-- MySQL dump 10.13  Distrib 5.7.23-23, for Linux (x86_64)
--
-- Host: localhost    Database: fivetec1_phpbb3
-- ------------------------------------------------------
-- Server version	5.7.23-23

/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;
/*!40103 SET @OLD_TIME_ZONE=@@TIME_ZONE */;
/*!40103 SET TIME_ZONE='+00:00' */;
/*!40014 SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0 */;
/*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0 */;
/*!40101 SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='NO_AUTO_VALUE_ON_ZERO' */;
/*!40111 SET @OLD_SQL_NOTES=@@SQL_NOTES, SQL_NOTES=0 */;
/*!50717 SELECT COUNT(*) INTO @rocksdb_has_p_s_session_variables FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_SCHEMA = 'performance_schema' AND TABLE_NAME = 'session_variables' */;
/*!50717 SET @rocksdb_get_is_supported = IF (@rocksdb_has_p_s_session_variables, 'SELECT COUNT(*) INTO @rocksdb_is_supported FROM performance_schema.session_variables WHERE VARIABLE_NAME=\'rocksdb_bulk_load\'', 'SELECT 0') */;
/*!50717 PREPARE s FROM @rocksdb_get_is_supported */;
/*!50717 EXECUTE s */;
/*!50717 DEALLOCATE PREPARE s */;
/*!50717 SET @rocksdb_enable_bulk_load = IF (@rocksdb_is_supported, 'SET SESSION rocksdb_bulk_load = 1', 'SET @rocksdb_dummy_bulk_load = 0') */;
/*!50717 PREPARE s FROM @rocksdb_enable_bulk_load */;
/*!50717 EXECUTE s */;
/*!50717 DEALLOCATE PREPARE s */;

--
-- Table structure for table `phpbb_acl_groups`
--

DROP TABLE IF EXISTS `phpbb_acl_groups`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_acl_groups` (
  `group_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_option_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_role_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_setting` tinyint(2) NOT NULL DEFAULT '0',
  KEY `group_id` (`group_id`),
  KEY `auth_opt_id` (`auth_option_id`),
  KEY `auth_role_id` (`auth_role_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_acl_groups`
--

LOCK TABLES `phpbb_acl_groups` WRITE;
/*!40000 ALTER TABLE `phpbb_acl_groups` DISABLE KEYS */;
INSERT INTO `phpbb_acl_groups` VALUES (5,1,0,14,0),(1,1,0,17,0),(6,1,0,19,0),(2,1,0,21,0),(5,2,0,14,0),(1,2,0,17,0),(6,2,0,19,0),(2,2,0,21,0),(5,3,0,14,0),(1,3,0,17,0),(6,3,0,19,0),(2,3,0,21,0),(5,4,0,14,0),(1,4,0,17,0),(6,4,0,19,0),(2,4,0,21,0),(5,5,0,14,0),(1,5,0,17,0),(6,5,0,19,0),(2,5,0,21,0),(5,6,0,14,0),(1,6,0,17,0),(6,6,0,19,0),(2,6,0,21,0),(5,7,0,14,0),(1,7,0,17,0),(6,7,0,19,0),(2,7,0,21,0),(5,8,0,14,0),(1,8,0,17,0),(6,8,0,19,0),(2,8,0,21,0),(5,11,0,14,0),(1,11,0,17,0),(6,11,0,19,0),(2,11,0,21,0),(5,12,0,14,0),(1,12,0,17,0),(6,12,0,19,0),(2,12,0,21,0),(5,16,0,14,0),(1,16,0,17,0),(6,16,0,19,0),(2,16,0,21,0),(5,17,0,14,0),(1,17,0,17,0),(6,17,0,19,0),(2,17,0,21,0),(5,18,0,14,0),(1,18,0,17,0),(6,18,0,19,0),(2,18,0,21,0),(5,19,0,14,0),(1,19,0,17,0),(6,19,0,19,0),(2,19,0,21,0),(5,20,0,14,0),(1,20,0,17,0),(6,20,0,19,0),(2,20,0,21,0),(5,21,0,14,0),(1,21,0,17,0),(6,21,0,19,0),(2,21,0,21,0),(5,22,0,14,0),(1,22,0,17,0),(6,22,0,19,0),(2,22,0,21,0),(5,23,0,14,0),(1,23,0,17,0),(6,23,0,19,0),(2,23,0,21,0),(1,0,85,0,1),(1,0,93,0,1),(1,0,111,0,1),(5,0,0,5,0),(4,0,0,5,0),(5,0,0,4,0),(2,0,0,6,0),(3,0,0,6,0),(4,0,0,10,0),(5,24,0,14,0),(4,24,0,14,0),(5,25,0,14,0),(4,25,0,14,0),(5,26,0,14,0),(4,26,0,14,0),(5,27,0,14,0),(4,27,0,14,0),(5,28,0,14,0),(4,28,0,14,0),(5,29,0,14,0),(4,29,0,14,0),(5,24,14,0,1),(5,24,1,0,1),(1,24,14,0,1),(1,24,1,0,1),(6,24,14,0,1),(6,24,1,0,1),(2,24,14,0,1),(2,24,1,0,1),(5,25,14,0,1),(5,25,1,0,1),(1,25,14,0,1),(1,25,1,0,1),(6,25,14,0,1),(6,25,1,0,1),(2,25,14,0,1),(2,25,1,0,1),(5,26,14,0,1),(5,26,1,0,1),(1,26,14,0,1),(1,26,1,0,1),(6,26,14,0,1),(6,26,1,0,1),(2,26,14,0,1),(2,26,1,0,1),(5,27,14,0,1),(5,27,1,0,1),(1,27,14,0,1),(1,27,1,0,1),(6,27,14,0,1),(6,27,1,0,1),(2,27,14,0,1),(2,27,1,0,1),(5,28,14,0,1),(5,28,1,0,1),(1,28,14,0,1),(1,28,1,0,1),(6,28,14,0,1),(6,28,1,0,1),(2,28,14,0,1),(2,28,1,0,1),(5,29,14,0,1),(5,29,1,0,1),(1,29,14,0,1),(1,29,1,0,1),(6,29,14,0,1),(6,29,1,0,1),(2,29,14,0,1),(2,29,1,0,1),(2,30,0,21,0),(6,30,0,19,0),(1,30,0,17,0),(5,30,0,14,0),(2,31,0,21,0),(6,31,0,19,0),(1,31,0,17,0),(5,31,0,14,0),(2,32,0,21,0),(6,32,0,19,0),(1,32,0,17,0),(5,32,0,14,0),(2,33,0,21,0),(6,33,0,19,0),(1,33,0,17,0),(5,33,0,14,0),(2,38,0,21,0),(6,38,0,19,0),(1,38,0,17,0),(5,38,0,14,0),(2,40,0,15,0),(6,40,1,0,1),(6,40,14,0,1),(1,40,0,17,0),(4,40,0,14,0),(5,40,0,14,0),(2,41,0,21,0),(6,41,0,19,0),(1,41,0,17,0),(5,41,0,14,0),(2,42,0,21,0),(6,42,0,19,0),(1,42,0,17,0),(5,42,0,14,0),(5,43,0,14,0),(1,43,0,17,0),(6,43,0,19,0),(2,43,0,21,0),(2,44,0,21,0),(6,44,0,19,0),(1,44,0,17,0),(5,44,0,14,0),(2,45,0,21,0),(6,45,0,19,0),(1,45,0,17,0),(5,45,0,14,0),(2,46,0,21,0),(6,46,0,19,0),(1,46,0,17,0),(5,46,0,14,0);
/*!40000 ALTER TABLE `phpbb_acl_groups` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_acl_options`
--

DROP TABLE IF EXISTS `phpbb_acl_options`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_acl_options` (
  `auth_option_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `auth_option` varchar(50) COLLATE utf8_bin NOT NULL DEFAULT '',
  `is_global` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `is_local` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `founder_only` tinyint(1) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`auth_option_id`),
  KEY `auth_option` (`auth_option`)
) ENGINE=MyISAM AUTO_INCREMENT=118 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_acl_options`
--

LOCK TABLES `phpbb_acl_options` WRITE;
/*!40000 ALTER TABLE `phpbb_acl_options` DISABLE KEYS */;
INSERT INTO `phpbb_acl_options` VALUES (1,'f_',0,1,0),(2,'f_announce',0,1,0),(3,'f_attach',0,1,0),(4,'f_bbcode',0,1,0),(5,'f_bump',0,1,0),(6,'f_delete',0,1,0),(7,'f_download',0,1,0),(8,'f_edit',0,1,0),(9,'f_email',0,1,0),(10,'f_flash',0,1,0),(11,'f_icons',0,1,0),(12,'f_ignoreflood',0,1,0),(13,'f_img',0,1,0),(14,'f_list',0,1,0),(15,'f_noapprove',0,1,0),(16,'f_poll',0,1,0),(17,'f_post',0,1,0),(18,'f_postcount',0,1,0),(19,'f_print',0,1,0),(20,'f_read',0,1,0),(21,'f_reply',0,1,0),(22,'f_report',0,1,0),(23,'f_search',0,1,0),(24,'f_sigs',0,1,0),(25,'f_smilies',0,1,0),(26,'f_sticky',0,1,0),(27,'f_subscribe',0,1,0),(28,'f_user_lock',0,1,0),(29,'f_vote',0,1,0),(30,'f_votechg',0,1,0),(31,'m_',1,1,0),(32,'m_approve',1,1,0),(33,'m_chgposter',1,1,0),(34,'m_delete',1,1,0),(35,'m_edit',1,1,0),(36,'m_info',1,1,0),(37,'m_lock',1,1,0),(38,'m_merge',1,1,0),(39,'m_move',1,1,0),(40,'m_report',1,1,0),(41,'m_split',1,1,0),(42,'m_ban',1,0,0),(43,'m_warn',1,0,0),(44,'a_',1,0,0),(45,'a_aauth',1,0,0),(46,'a_attach',1,0,0),(47,'a_authgroups',1,0,0),(48,'a_authusers',1,0,0),(49,'a_backup',1,0,0),(50,'a_ban',1,0,0),(51,'a_bbcode',1,0,0),(52,'a_board',1,0,0),(53,'a_bots',1,0,0),(54,'a_clearlogs',1,0,0),(55,'a_email',1,0,0),(56,'a_fauth',1,0,0),(57,'a_forum',1,0,0),(58,'a_forumadd',1,0,0),(59,'a_forumdel',1,0,0),(60,'a_group',1,0,0),(61,'a_groupadd',1,0,0),(62,'a_groupdel',1,0,0),(63,'a_icons',1,0,0),(64,'a_jabber',1,0,0),(65,'a_language',1,0,0),(66,'a_mauth',1,0,0),(67,'a_modules',1,0,0),(68,'a_names',1,0,0),(69,'a_phpinfo',1,0,0),(70,'a_profile',1,0,0),(71,'a_prune',1,0,0),(72,'a_ranks',1,0,0),(73,'a_reasons',1,0,0),(74,'a_roles',1,0,0),(75,'a_search',1,0,0),(76,'a_server',1,0,0),(77,'a_styles',1,0,0),(78,'a_switchperm',1,0,0),(79,'a_uauth',1,0,0),(80,'a_user',1,0,0),(81,'a_userdel',1,0,0),(82,'a_viewauth',1,0,0),(83,'a_viewlogs',1,0,0),(84,'a_words',1,0,0),(85,'u_',1,0,0),(86,'u_attach',1,0,0),(87,'u_chgavatar',1,0,0),(88,'u_chgcensors',1,0,0),(89,'u_chgemail',1,0,0),(90,'u_chggrp',1,0,0),(91,'u_chgname',1,0,0),(92,'u_chgpasswd',1,0,0),(93,'u_download',1,0,0),(94,'u_hideonline',1,0,0),(95,'u_ignoreflood',1,0,0),(96,'u_masspm',1,0,0),(97,'u_masspm_group',1,0,0),(98,'u_pm_attach',1,0,0),(99,'u_pm_bbcode',1,0,0),(100,'u_pm_delete',1,0,0),(101,'u_pm_download',1,0,0),(102,'u_pm_edit',1,0,0),(103,'u_pm_emailpm',1,0,0),(104,'u_pm_flash',1,0,0),(105,'u_pm_forward',1,0,0),(106,'u_pm_img',1,0,0),(107,'u_pm_printpm',1,0,0),(108,'u_pm_smilies',1,0,0),(109,'u_readpm',1,0,0),(110,'u_savedrafts',1,0,0),(111,'u_search',1,0,0),(112,'u_sendemail',1,0,0),(113,'u_sendim',1,0,0),(114,'u_sendpm',1,0,0),(115,'u_sig',1,0,0),(116,'u_viewonline',1,0,0),(117,'u_viewprofile',1,0,0);
/*!40000 ALTER TABLE `phpbb_acl_options` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_acl_roles`
--

DROP TABLE IF EXISTS `phpbb_acl_roles`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_acl_roles` (
  `role_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `role_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `role_description` text COLLATE utf8_bin NOT NULL,
  `role_type` varchar(10) COLLATE utf8_bin NOT NULL DEFAULT '',
  `role_order` smallint(4) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`role_id`),
  KEY `role_type` (`role_type`),
  KEY `role_order` (`role_order`)
) ENGINE=MyISAM AUTO_INCREMENT=23 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_acl_roles`
--

LOCK TABLES `phpbb_acl_roles` WRITE;
/*!40000 ALTER TABLE `phpbb_acl_roles` DISABLE KEYS */;
INSERT INTO `phpbb_acl_roles` VALUES (1,'ROLE_ADMIN_STANDARD','ROLE_DESCRIPTION_ADMIN_STANDARD','a_',1),(2,'ROLE_ADMIN_FORUM','ROLE_DESCRIPTION_ADMIN_FORUM','a_',3),(3,'ROLE_ADMIN_USERGROUP','ROLE_DESCRIPTION_ADMIN_USERGROUP','a_',4),(4,'ROLE_ADMIN_FULL','ROLE_DESCRIPTION_ADMIN_FULL','a_',2),(5,'ROLE_USER_FULL','ROLE_DESCRIPTION_USER_FULL','u_',3),(6,'ROLE_USER_STANDARD','ROLE_DESCRIPTION_USER_STANDARD','u_',1),(7,'ROLE_USER_LIMITED','ROLE_DESCRIPTION_USER_LIMITED','u_',2),(8,'ROLE_USER_NOPM','ROLE_DESCRIPTION_USER_NOPM','u_',4),(9,'ROLE_USER_NOAVATAR','ROLE_DESCRIPTION_USER_NOAVATAR','u_',5),(10,'ROLE_MOD_FULL','ROLE_DESCRIPTION_MOD_FULL','m_',3),(11,'ROLE_MOD_STANDARD','ROLE_DESCRIPTION_MOD_STANDARD','m_',1),(12,'ROLE_MOD_SIMPLE','ROLE_DESCRIPTION_MOD_SIMPLE','m_',2),(13,'ROLE_MOD_QUEUE','ROLE_DESCRIPTION_MOD_QUEUE','m_',4),(14,'ROLE_FORUM_FULL','ROLE_DESCRIPTION_FORUM_FULL','f_',7),(15,'ROLE_FORUM_STANDARD','ROLE_DESCRIPTION_FORUM_STANDARD','f_',5),(16,'ROLE_FORUM_NOACCESS','ROLE_DESCRIPTION_FORUM_NOACCESS','f_',1),(17,'ROLE_FORUM_READONLY','ROLE_DESCRIPTION_FORUM_READONLY','f_',2),(18,'ROLE_FORUM_LIMITED','ROLE_DESCRIPTION_FORUM_LIMITED','f_',3),(19,'ROLE_FORUM_BOT','ROLE_DESCRIPTION_FORUM_BOT','f_',9),(20,'ROLE_FORUM_ONQUEUE','ROLE_DESCRIPTION_FORUM_ONQUEUE','f_',8),(21,'ROLE_FORUM_POLLS','ROLE_DESCRIPTION_FORUM_POLLS','f_',6),(22,'ROLE_FORUM_LIMITED_POLLS','ROLE_DESCRIPTION_FORUM_LIMITED_POLLS','f_',4);
/*!40000 ALTER TABLE `phpbb_acl_roles` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_acl_roles_data`
--

DROP TABLE IF EXISTS `phpbb_acl_roles_data`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_acl_roles_data` (
  `role_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_option_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_setting` tinyint(2) NOT NULL DEFAULT '0',
  PRIMARY KEY (`role_id`,`auth_option_id`),
  KEY `ath_op_id` (`auth_option_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_acl_roles_data`
--

LOCK TABLES `phpbb_acl_roles_data` WRITE;
/*!40000 ALTER TABLE `phpbb_acl_roles_data` DISABLE KEYS */;
INSERT INTO `phpbb_acl_roles_data` VALUES (1,44,1),(1,46,1),(1,47,1),(1,48,1),(1,50,1),(1,51,1),(1,52,1),(1,56,1),(1,57,1),(1,58,1),(1,59,1),(1,60,1),(1,61,1),(1,62,1),(1,63,1),(1,66,1),(1,68,1),(1,70,1),(1,71,1),(1,72,1),(1,73,1),(1,79,1),(1,80,1),(1,81,1),(1,82,1),(1,83,1),(1,84,1),(2,44,1),(2,47,1),(2,48,1),(2,56,1),(2,57,1),(2,58,1),(2,59,1),(2,66,1),(2,71,1),(2,79,1),(2,82,1),(2,83,1),(3,44,1),(3,47,1),(3,48,1),(3,50,1),(3,60,1),(3,61,1),(3,62,1),(3,72,1),(3,79,1),(3,80,1),(3,82,1),(3,83,1),(4,44,1),(4,45,1),(4,46,1),(4,47,1),(4,48,1),(4,49,1),(4,50,1),(4,51,1),(4,52,1),(4,53,1),(4,54,1),(4,55,1),(4,56,1),(4,57,1),(4,58,1),(4,59,1),(4,60,1),(4,61,1),(4,62,1),(4,63,1),(4,64,1),(4,65,1),(4,66,1),(4,67,1),(4,68,1),(4,69,1),(4,70,1),(4,71,1),(4,72,1),(4,73,1),(4,74,1),(4,75,1),(4,76,1),(4,77,1),(4,78,1),(4,79,1),(4,80,1),(4,81,1),(4,82,1),(4,83,1),(4,84,1),(5,85,1),(5,86,1),(5,87,1),(5,88,1),(5,89,1),(5,90,1),(5,91,1),(5,92,1),(5,93,1),(5,94,1),(5,95,1),(5,96,1),(5,97,1),(5,98,1),(5,99,1),(5,100,1),(5,101,1),(5,102,1),(5,103,1),(5,104,1),(5,105,1),(5,106,1),(5,107,1),(5,108,1),(5,109,1),(5,110,1),(5,111,1),(5,112,1),(5,113,1),(5,114,1),(5,115,1),(5,116,1),(5,117,1),(6,85,1),(6,86,1),(6,87,1),(6,88,1),(6,89,1),(6,92,1),(6,93,1),(6,94,1),(6,96,1),(6,97,1),(6,98,1),(6,99,1),(6,100,1),(6,101,1),(6,102,1),(6,103,1),(6,106,1),(6,107,1),(6,108,1),(6,109,1),(6,110,1),(6,111,1),(6,112,1),(6,113,1),(6,114,1),(6,115,1),(6,117,1),(7,85,1),(7,87,1),(7,88,1),(7,89,1),(7,92,1),(7,93,1),(7,94,1),(7,99,1),(7,100,1),(7,101,1),(7,102,1),(7,105,1),(7,106,1),(7,107,1),(7,108,1),(7,109,1),(7,114,1),(7,115,1),(7,117,1),(8,85,1),(8,87,1),(8,88,1),(8,89,1),(8,92,1),(8,93,1),(8,94,1),(8,115,1),(8,117,1),(8,96,0),(8,97,0),(8,109,0),(8,114,0),(9,85,1),(9,88,1),(9,89,1),(9,92,1),(9,93,1),(9,94,1),(9,99,1),(9,100,1),(9,101,1),(9,102,1),(9,105,1),(9,106,1),(9,107,1),(9,108,1),(9,109,1),(9,114,1),(9,115,1),(9,117,1),(9,87,0),(9,96,0),(9,97,0),(10,31,1),(10,32,1),(10,42,1),(10,33,1),(10,34,1),(10,35,1),(10,36,1),(10,37,1),(10,38,1),(10,39,1),(10,40,1),(10,41,1),(10,43,1),(11,31,1),(11,32,1),(11,34,1),(11,35,1),(11,36,1),(11,37,1),(11,38,1),(11,39,1),(11,40,1),(11,41,1),(11,43,1),(12,31,1),(12,34,1),(12,35,1),(12,36,1),(12,40,1),(13,31,1),(13,32,1),(13,35,1),(14,1,1),(14,2,1),(14,3,1),(14,4,1),(14,5,1),(14,6,1),(14,7,1),(14,8,1),(14,9,1),(14,10,1),(14,11,1),(14,12,1),(14,13,1),(14,14,1),(14,15,1),(14,16,1),(14,17,1),(14,18,1),(14,19,1),(14,20,1),(14,21,1),(14,22,1),(14,23,1),(14,24,1),(14,25,1),(14,26,1),(14,27,1),(14,28,1),(14,29,1),(14,30,1),(15,1,1),(15,3,1),(15,4,1),(15,5,1),(15,6,1),(15,7,1),(15,8,1),(15,9,1),(15,11,1),(15,13,1),(15,14,1),(15,15,1),(15,17,1),(15,18,1),(15,19,1),(15,20,1),(15,21,1),(15,22,1),(15,23,1),(15,24,1),(15,25,1),(15,27,1),(15,29,1),(15,30,1),(16,1,0),(17,1,1),(17,7,1),(17,14,1),(17,19,1),(17,20,1),(17,23,1),(17,27,1),(18,1,1),(18,4,1),(18,7,1),(18,8,1),(18,9,1),(18,13,1),(18,14,1),(18,15,1),(18,17,1),(18,18,1),(18,19,1),(18,20,1),(18,21,1),(18,22,1),(18,23,1),(18,24,1),(18,25,1),(18,27,1),(18,29,1),(19,1,1),(19,7,1),(19,14,1),(19,19,1),(19,20,1),(20,1,1),(20,3,1),(20,4,1),(20,7,1),(20,8,1),(20,9,1),(20,13,1),(20,14,1),(20,17,1),(20,18,1),(20,19,1),(20,20,1),(20,21,1),(20,22,1),(20,23,1),(20,24,1),(20,25,1),(20,27,1),(20,29,1),(20,15,0),(21,1,1),(21,3,1),(21,4,1),(21,5,1),(21,6,1),(21,7,1),(21,8,1),(21,9,1),(21,11,1),(21,13,1),(21,14,1),(21,15,1),(21,16,1),(21,17,1),(21,18,1),(21,19,1),(21,20,1),(21,21,1),(21,22,1),(21,23,1),(21,24,1),(21,25,1),(21,27,1),(21,29,1),(21,30,1),(22,1,1),(22,4,1),(22,7,1),(22,8,1),(22,9,1),(22,13,1),(22,14,1),(22,15,1),(22,16,1),(22,17,1),(22,18,1),(22,19,1),(22,20,1),(22,21,1),(22,22,1),(22,23,1),(22,24,1),(22,25,1),(22,27,1),(22,29,1);
/*!40000 ALTER TABLE `phpbb_acl_roles_data` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_acl_users`
--

DROP TABLE IF EXISTS `phpbb_acl_users`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_acl_users` (
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_option_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_role_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `auth_setting` tinyint(2) NOT NULL DEFAULT '0',
  KEY `user_id` (`user_id`),
  KEY `auth_option_id` (`auth_option_id`),
  KEY `auth_role_id` (`auth_role_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_acl_users`
--

LOCK TABLES `phpbb_acl_users` WRITE;
/*!40000 ALTER TABLE `phpbb_acl_users` DISABLE KEYS */;
INSERT INTO `phpbb_acl_users` VALUES (6,20,0,11,0),(6,20,0,15,0),(6,20,2,0,1),(6,20,1,0,1),(6,20,26,0,1);
/*!40000 ALTER TABLE `phpbb_acl_users` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_attachments`
--

DROP TABLE IF EXISTS `phpbb_attachments`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_attachments` (
  `attach_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `post_msg_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `topic_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `in_message` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `poster_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `is_orphan` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `physical_filename` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `real_filename` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `download_count` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `attach_comment` text COLLATE utf8_bin NOT NULL,
  `extension` varchar(100) COLLATE utf8_bin NOT NULL DEFAULT '',
  `mimetype` varchar(100) COLLATE utf8_bin NOT NULL DEFAULT '',
  `filesize` int(20) unsigned NOT NULL DEFAULT '0',
  `filetime` int(11) unsigned NOT NULL DEFAULT '0',
  `thumbnail` tinyint(1) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`attach_id`),
  KEY `filetime` (`filetime`),
  KEY `post_msg_id` (`post_msg_id`),
  KEY `topic_id` (`topic_id`),
  KEY `poster_id` (`poster_id`),
  KEY `is_orphan` (`is_orphan`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_attachments`
--

LOCK TABLES `phpbb_attachments` WRITE;
/*!40000 ALTER TABLE `phpbb_attachments` DISABLE KEYS */;
/*!40000 ALTER TABLE `phpbb_attachments` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_banlist`
--

DROP TABLE IF EXISTS `phpbb_banlist`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_banlist` (
  `ban_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `ban_userid` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `ban_ip` varchar(40) COLLATE utf8_bin NOT NULL DEFAULT '',
  `ban_email` varchar(100) COLLATE utf8_bin NOT NULL DEFAULT '',
  `ban_start` int(11) unsigned NOT NULL DEFAULT '0',
  `ban_end` int(11) unsigned NOT NULL DEFAULT '0',
  `ban_exclude` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `ban_reason` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `ban_give_reason` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  PRIMARY KEY (`ban_id`),
  KEY `ban_end` (`ban_end`),
  KEY `ban_user` (`ban_userid`,`ban_exclude`),
  KEY `ban_email` (`ban_email`,`ban_exclude`),
  KEY `ban_ip` (`ban_ip`,`ban_exclude`)
) ENGINE=MyISAM AUTO_INCREMENT=70 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_banlist`
--

LOCK TABLES `phpbb_banlist` WRITE;
/*!40000 ALTER TABLE `phpbb_banlist` DISABLE KEYS */;
INSERT INTO `phpbb_banlist` VALUES (1,416,'','',0,0,0,'',''),(2,494,'','',0,0,0,'',''),(3,493,'','',0,0,0,'',''),(4,0,'84.171.157.*','',0,0,0,'',''),(5,0,'84.171.156.*','',0,0,0,'',''),(6,0,'84.171.179.*','',0,0,0,'',''),(7,0,'84.171.*.*','',0,0,0,'',''),(8,513,'','',0,0,0,'',''),(9,0,'','*@yandex.ru',0,0,0,'',''),(10,1648,'','',1233668165,0,0,'robot ?',''),(14,1755,'','',1246576021,0,0,'',''),(13,1193,'','',1238767568,0,1,'',''),(16,1994,'','',1283204844,0,0,'spam',''),(17,2147,'','',1304919365,0,0,'',''),(18,2065,'','',1305130660,0,0,'spam','spam'),(20,49,'','',1306138905,0,0,'',''),(21,2224,'','',1313566404,0,0,'',''),(22,2223,'','',1313580233,0,0,'spam',''),(23,2234,'','',1315247219,0,0,'',''),(24,1858,'','',1317474190,0,0,'',''),(25,1990,'','',1317747522,0,0,'',''),(26,2283,'','',1321347327,0,0,'',''),(27,1885,'','',1330438805,0,0,'Username banned via user management',''),(28,2346,'','',1331371493,0,0,'',''),(29,2438,'','',1335462079,0,0,'',''),(30,2450,'','',1335507516,0,0,'',''),(31,2485,'','',1338019192,0,0,'',''),(32,2470,'','',1344771897,0,0,'',''),(33,2591,'','',1350994262,0,0,'',''),(34,2657,'','',1356825233,0,0,'',''),(35,2682,'','',1359328705,0,0,'',''),(36,2695,'','',1359933842,0,0,'',''),(37,2705,'','',1361175120,0,0,'',''),(38,2772,'','',1366173345,0,0,'',''),(39,2587,'','',1374099436,0,0,'Username banned via user management',''),(40,2850,'','',1374508034,0,0,'Username banned via user management',''),(41,2848,'','',1374569258,0,0,'Username banned via user management',''),(43,2876,'','',1377684066,0,0,'spam',''),(44,2932,'','',1386765074,0,0,'',''),(45,3017,'','',1398105192,0,0,'',''),(46,3085,'','',1402063030,0,0,'',''),(47,3085,'','',1402063263,0,1,'',''),(48,3090,'','',1403336964,0,0,'',''),(49,3098,'','',1404367685,0,0,'',''),(50,2994,'','',1404403999,0,0,'',''),(51,2928,'','',1405228673,0,0,'',''),(52,3064,'','',1431065882,0,0,'',''),(53,3285,'','',1431497332,0,0,'',''),(54,3358,'','',1438073636,0,0,'',''),(55,3425,'','',1446106968,0,0,'Username banned via user management',''),(56,3568,'','',1462684640,0,0,'','spam'),(57,3712,'','',1478629780,0,0,'Username banned via user management',''),(58,3736,'','',1482261071,0,0,'Username banned via user management',''),(63,4689,'','',1673253411,0,0,'Username banned via user management',''),(62,4449,'','',1618820228,0,0,'Username banned via user management',''),(64,4697,'','',1674543924,0,0,'',''),(65,4728,'','',1683363401,0,0,'',''),(66,4761,'','',1691438360,0,0,'Username banned via user management',''),(68,3095,'','',1719218552,0,0,'',''),(69,1312,'','',1729415705,0,0,'Username banned via user management','');
/*!40000 ALTER TABLE `phpbb_banlist` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_bbcodes`
--

DROP TABLE IF EXISTS `phpbb_bbcodes`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_bbcodes` (
  `bbcode_id` tinyint(3) NOT NULL DEFAULT '0',
  `bbcode_tag` varchar(16) COLLATE utf8_bin NOT NULL DEFAULT '',
  `bbcode_helpline` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `display_on_posting` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `bbcode_match` text COLLATE utf8_bin NOT NULL,
  `bbcode_tpl` mediumtext COLLATE utf8_bin NOT NULL,
  `first_pass_match` mediumtext COLLATE utf8_bin NOT NULL,
  `first_pass_replace` mediumtext COLLATE utf8_bin NOT NULL,
  `second_pass_match` mediumtext COLLATE utf8_bin NOT NULL,
  `second_pass_replace` mediumtext COLLATE utf8_bin NOT NULL,
  PRIMARY KEY (`bbcode_id`),
  KEY `display_on_post` (`display_on_posting`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_bbcodes`
--

LOCK TABLES `phpbb_bbcodes` WRITE;
/*!40000 ALTER TABLE `phpbb_bbcodes` DISABLE KEYS */;
/*!40000 ALTER TABLE `phpbb_bbcodes` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_bookmarks`
--

DROP TABLE IF EXISTS `phpbb_bookmarks`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_bookmarks` (
  `topic_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`topic_id`,`user_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_bookmarks`
--

LOCK TABLES `phpbb_bookmarks` WRITE;
/*!40000 ALTER TABLE `phpbb_bookmarks` DISABLE KEYS */;
INSERT INTO `phpbb_bookmarks` VALUES (181,1853),(982,1055),(2869,147),(4116,1055),(4378,69),(4472,69),(4897,1853),(5282,1853),(6317,147),(6726,1853),(7034,456),(7047,69),(7228,1551),(7330,1363),(7842,1853),(8310,1853),(8621,456),(8658,1853),(8680,456),(9627,1055),(9627,1853),(9865,147),(9963,105),(9963,2342),(10050,1853),(10657,1853),(10851,171),(10970,1055),(11447,456),(11722,456),(11927,1063),(11940,1853),(12216,456),(12269,456),(12549,1853),(12983,1853),(13495,69),(13740,1055),(14152,58),(14190,58),(14251,456),(14372,58),(14421,456),(14489,1853),(14508,456),(14584,1853),(14596,456),(14632,456),(14663,487),(14670,1853),(14698,456),(14794,1853),(14841,1316),(14863,456),(14911,456),(14933,456),(14934,456),(14992,456),(14997,2141),(15008,456),(15018,1690),(15019,456),(15135,1853),(15244,456),(15319,456),(15409,456),(15417,456),(15427,147),(15490,456),(15500,456),(15564,456),(15631,1853),(15672,1690),(15677,1690),(15685,1690),(15730,46),(15733,69),(15742,456),(15785,456),(15875,1734),(15936,456),(16066,1215),(16344,1853),(16349,456),(16424,1215),(16429,1215),(16433,1215),(16473,456),(16473,1215),(16516,1215),(16568,456),(16615,1215),(16644,1215),(16646,456),(16745,456),(16885,456),(17077,456),(17079,58),(17174,147),(17195,456),(17287,456),(17292,456),(17299,456),(17330,171),(17373,456),(17425,456),(17472,456),(17538,2342),(17545,1853),(17551,1055),(17804,456),(17810,456),(17912,456),(17943,1853),(17960,456),(17972,1215),(17983,1853),(18039,7),(18054,456),(18087,1363),(18227,456),(18318,456),(18365,1853),(18367,456),(18371,1853),(18511,1055),(18526,2004),(18532,1688),(18554,456),(18726,1055),(18772,1853),(18795,1853),(18859,1853),(18908,1853),(18925,456),(18977,456),(18999,1055),(19035,456),(19091,456),(19091,1853),(19146,456),(19153,1853),(19164,456),(19172,1853),(19174,1853),(19204,147),(19363,1853),(19424,376),(19438,69),(19438,1853),(19591,1853),(19654,1853),(19698,1853),(19764,456),(19897,456),(20082,1853),(20096,1055),(20339,147),(20388,147),(20389,1853),(20501,147),(20501,249),(20501,1853),(20505,1853),(20517,78),(20694,1853),(20726,1853),(20728,1853),(20752,1853),(20761,1853),(20763,1853),(20856,1853),(20857,1853),(20860,396),(20864,1853),(20868,147),(20868,1055),(20868,1853),(20885,35),(20885,297),(20894,1853),(20905,1853),(20946,1853),(20959,1853),(20995,69),(21003,1853),(21028,1055),(21028,1853),(21048,1853),(21057,1853),(21062,1853),(21074,1853),(21078,179),(21085,147),(21085,1853),(21091,1853),(21102,1853),(21110,1853),(21145,69),(21147,1853),(21164,1853),(21172,1853),(21213,69),(21279,69),(21290,1853),(21373,1853),(21384,69),(21422,69),(21459,1853),(21470,1055),(21490,1853),(21556,69),(21556,1853),(21557,147),(21576,1853),(21583,1853),(21602,1853),(21625,1853),(21659,1853),(21714,1853),(21723,1853),(21724,1853),(21769,1853),(21770,1055),(21781,1853),(21822,1853),(21887,1853),(21967,1853),(21982,1853),(22031,1853),(22033,1853),(22093,1853),(22161,1853),(22164,1853),(22173,1853),(22181,1853),(22209,1055),(22219,1853),(22284,1853),(22288,1853),(22302,1853),(22340,1853),(22368,1853),(22409,1853),(22410,1853),(22418,1853),(22422,1853),(22432,419),(22441,1853),(22443,1853),(22463,1853),(22501,1853),(22506,1853),(22519,1853),(22555,1853),(22556,1853),(22563,456),(22608,1055),(22666,689),(22674,1853),(22691,1853),(22707,1853),(22712,1853),(22731,1853),(22755,1853),(22756,1853),(22793,1507),(22827,1853),(22834,1853),(22835,1853),(22852,1853),(22855,1853),(22865,147),(22873,1853),(22879,1853),(22897,1853),(23029,1853),(23036,1853),(23105,1521),(23334,147),(23456,147),(23464,147),(23528,147),(23562,147),(23598,147),(23610,147),(23699,147),(23759,147),(23764,147),(23806,147),(23925,147),(23977,1853),(23987,147),(24025,439),(24034,1853),(24040,147),(24047,1151),(24088,3769),(24097,147),(24100,69),(24127,69),(24127,1853),(24144,1055),(24151,147),(24170,1363),(24186,69),(24190,1853),(24195,1853),(24265,147),(24302,1853),(24304,147),(24339,1853),(24341,147),(24370,147),(24394,1853),(24402,1853),(24408,1853),(24432,69),(24514,1853),(24516,69),(24517,1853),(24519,69),(24519,1853),(24538,1853),(24568,147),(24577,147),(24597,1853),(24617,1853),(24635,413),(24635,1055),(24669,1853),(24682,3396),(24700,1853),(24710,1853),(24715,1853),(24727,1853),(24752,1853),(24774,147),(24780,1853),(24807,1055),(24819,1853),(24834,1853),(24836,1853),(24842,147),(24845,1853),(24851,1853),(24865,147),(24867,1853),(24868,147),(24871,1853),(24872,1853),(24916,147),(24925,147),(24929,1853),(24933,69),(24944,147),(24968,1055),(25060,147),(25073,1688),(25157,1853),(25167,147),(25178,147),(25196,1055),(25206,2623),(25280,78),(25290,147),(25329,147),(25369,1055),(25403,147),(25404,69),(25412,689),(25728,147),(25746,1853),(25795,69),(25832,147),(25844,147),(25845,147),(25894,147),(25906,2342),(25918,147),(25965,147),(26019,69),(26066,3593),(26094,147),(26162,739),(26166,147),(26313,147),(26317,147),(26354,147),(26437,147),(26444,147),(26468,249),(26546,147),(26602,147),(26689,147),(26754,147),(26796,147),(27161,147),(27187,147),(27275,147),(27408,147),(27519,147),(27520,147),(27577,147),(27582,147),(27583,147),(27588,147),(27658,147),(27727,147),(27786,147),(27889,1363),(27932,147),(28033,147),(28033,1055),(28061,147),(28095,69),(28106,147),(28329,147),(28419,69),(28495,147),(28497,147),(28523,69),(28524,4308),(28575,147),(28634,147),(28705,147),(28760,147),(28863,147),(28955,1055),(28996,147),(29145,1055),(29174,147),(29217,147),(29262,147),(29273,147),(29352,147),(29543,147),(29552,147),(29560,69),(29699,69),(29797,147),(29864,147),(29981,69),(30115,69),(30266,69),(30313,228),(30530,3593),(30582,147),(30613,39),(30651,3593),(30692,69),(30764,1055),(31002,1055),(31073,69),(31415,69),(31426,147),(31531,439),(31569,69),(31609,147),(31781,3593),(31830,147),(31992,3095),(32309,3593),(32316,147),(32660,439),(33214,65),(33304,147),(33729,439),(34903,147),(34959,147),(35200,3960),(35527,147),(35666,3593),(35980,3593),(36089,147),(36197,147),(36213,1984),(36577,3593),(36740,3593),(37097,3593),(37103,3593),(37115,2307),(37158,2023),(37314,147),(37369,3593),(37447,4208),(37691,3593),(37903,3593),(38212,147),(38433,644),(38565,3593),(38724,3593),(38871,3593),(39160,3593),(39359,3593),(39388,3976),(39433,3593),(39698,3593),(39752,3593),(39754,3593),(39761,3593),(39807,3593),(39824,3593),(39859,147),(39876,3593),(39894,3593),(40058,3976),(40833,644),(40864,1204),(41977,147),(42045,147),(42273,644),(42754,2598),(42986,78),(44032,1204);
/*!40000 ALTER TABLE `phpbb_bookmarks` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_bots`
--

DROP TABLE IF EXISTS `phpbb_bots`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_bots` (
  `bot_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `bot_active` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `bot_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `bot_agent` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `bot_ip` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  PRIMARY KEY (`bot_id`),
  KEY `bot_active` (`bot_active`)
) ENGINE=MyISAM AUTO_INCREMENT=51 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_bots`
--

LOCK TABLES `phpbb_bots` WRITE;
/*!40000 ALTER TABLE `phpbb_bots` DISABLE KEYS */;
INSERT INTO `phpbb_bots` VALUES (1,1,'AdsBot [Google]',1572,'AdsBot-Google',''),(2,1,'Alexa [Bot]',1573,'ia_archiver',''),(3,1,'Alta Vista [Bot]',1574,'Scooter/',''),(4,1,'Ask Jeeves [Bot]',1575,'Ask Jeeves',''),(5,1,'Baidu [Spider]',1576,'Baiduspider+(',''),(6,1,'Exabot [Bot]',1577,'Exabot/',''),(7,1,'FAST Enterprise [Crawler]',1578,'FAST Enterprise Crawler',''),(8,1,'FAST WebCrawler [Crawler]',1579,'FAST-WebCrawler/',''),(9,1,'Francis [Bot]',1580,'http://www.neomo.de/',''),(10,1,'Gigabot [Bot]',1581,'Gigabot/',''),(11,1,'Google Adsense [Bot]',1582,'Mediapartners-Google',''),(12,1,'Google Desktop',1583,'Google Desktop',''),(13,1,'Google Feedfetcher',1584,'Feedfetcher-Google',''),(14,1,'Google [Bot]',1585,'Googlebot',''),(15,1,'Heise IT-Markt [Crawler]',1586,'heise-IT-Markt-Crawler',''),(16,1,'Heritrix [Crawler]',1587,'heritrix/1.',''),(17,1,'IBM Research [Bot]',1588,'ibm.com/cs/crawler',''),(18,1,'ICCrawler - ICjobs',1589,'ICCrawler - ICjobs',''),(19,1,'ichiro [Crawler]',1590,'ichiro/2',''),(20,1,'Majestic-12 [Bot]',1591,'MJ12bot/',''),(21,1,'Metager [Bot]',1592,'MetagerBot/',''),(22,1,'MSN NewsBlogs',1593,'msnbot-NewsBlogs/',''),(23,1,'MSN [Bot]',1594,'msnbot/',''),(24,1,'MSNbot Media',1595,'msnbot-media/',''),(25,1,'NG-Search [Bot]',1596,'NG-Search/',''),(26,1,'Nutch [Bot]',1597,'http://lucene.apache.org/nutch/',''),(27,1,'Nutch/CVS [Bot]',1598,'NutchCVS/',''),(28,1,'OmniExplorer [Bot]',1599,'OmniExplorer_Bot/',''),(29,1,'Online link [Validator]',1600,'online link validator',''),(30,1,'psbot [Picsearch]',1601,'psbot/0',''),(31,1,'Seekport [Bot]',1602,'Seekbot/',''),(32,1,'Sensis [Crawler]',1603,'Sensis Web Crawler',''),(33,1,'SEO Crawler',1604,'SEO search Crawler/',''),(34,1,'Seoma [Crawler]',1605,'Seoma [SEO Crawler]',''),(35,1,'SEOSearch [Crawler]',1606,'SEOsearch/',''),(36,1,'Snappy [Bot]',1607,'Snappy/1.1 ( http://www.urltrends.com/ )',''),(37,1,'Steeler [Crawler]',1608,'http://www.tkl.iis.u-tokyo.ac.jp/~crawler/',''),(38,1,'Synoo [Bot]',1609,'SynooBot/',''),(39,1,'Telekom [Bot]',1610,'crawleradmin.t-info@telekom.de',''),(40,1,'TurnitinBot [Bot]',1611,'TurnitinBot/',''),(41,1,'Voyager [Bot]',1612,'voyager/1.0',''),(42,1,'W3 [Sitesearch]',1613,'W3 SiteSearch Crawler',''),(43,1,'W3C [Linkcheck]',1614,'W3C-checklink/',''),(44,1,'W3C [Validator]',1615,'W3C_*Validator',''),(45,1,'WiseNut [Bot]',1616,'http://www.WISEnutbot.com',''),(46,1,'YaCy [Bot]',1617,'yacybot',''),(47,1,'Yahoo MMCrawler [Bot]',1618,'Yahoo-MMCrawler/',''),(48,1,'Yahoo Slurp [Bot]',1619,'Yahoo! DE Slurp',''),(49,1,'Yahoo [Bot]',1620,'Yahoo! Slurp',''),(50,1,'YahooSeeker [Bot]',1621,'YahooSeeker/','');
/*!40000 ALTER TABLE `phpbb_bots` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_config`
--

DROP TABLE IF EXISTS `phpbb_config`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_config` (
  `config_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `config_value` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `is_dynamic` tinyint(1) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`config_name`),
  KEY `is_dynamic` (`is_dynamic`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_config`
--

LOCK TABLES `phpbb_config` WRITE;
/*!40000 ALTER TABLE `phpbb_config` DISABLE KEYS */;
INSERT INTO `phpbb_config` VALUES ('active_sessions','0',0),('allow_attachments','0',0),('allow_autologin','1',0),('allow_avatar_local','1',0),('allow_avatar_remote','0',0),('allow_avatar_upload','1',0),('allow_bbcode','1',0),('allow_birthdays','1',0),('allow_bookmarks','1',0),('allow_emailreuse','0',0),('allow_forum_notify','1',0),('allow_mass_pm','1',0),('allow_name_chars','USERNAME_CHARS_ANY',0),('allow_namechange','0',0),('allow_nocensors','0',0),('allow_pm_attach','0',0),('allow_post_flash','1',0),('allow_post_links','1',0),('allow_privmsg','0',0),('allow_sig','1',0),('allow_sig_bbcode','0',0),('allow_sig_flash','0',0),('allow_sig_img','0',0),('allow_sig_links','1',0),('allow_sig_pm','1',0),('allow_sig_smilies','0',0),('allow_smilies','1',0),('allow_topic_notify','1',0),('attachment_quota','52428800',0),('auth_bbcode_pm','1',0),('auth_flash_pm','0',0),('auth_img_pm','1',0),('auth_method','db',0),('auth_smilies_pm','1',0),('avatar_filesize','6144',0),('avatar_gallery_path','images/avatars/gallery',0),('avatar_max_height','80',0),('avatar_max_width','80',0),('avatar_min_height','20',0),('avatar_min_width','20',0),('avatar_path','images/avatars/upload',0),('avatar_salt','6f0acc6004670bf9cdefdc1910fe12de',0),('board_contact','antonio.fivetech@gmail.com',0),('board_disable','0',0),('board_disable_msg','',0),('board_dst','0',0),('board_email','antonio.fivetech@gmail.com',0),('board_email_form','0',0),('board_email_sig','Thanks, FiveTech Software',0),('board_hide_emails','1',0),('board_timezone','0',0),('browser_check','1',0),('bump_interval','10',0),('bump_type','d',0),('cache_gc','7200',0),('captcha_gd','0',0),('captcha_gd_foreground_noise','1',0),('captcha_gd_x_grid','200',0),('captcha_gd_y_grid','200',0),('check_attachment_content','1',0),('check_dnsbl','0',0),('chg_passforce','0',0),('cookie_domain','forums.fivetechsupport.com',0),('cookie_name','phpbb3_r8ok8',0),('cookie_path','/',0),('cookie_secure','0',0),('coppa_enable','1',0),('coppa_fax','',0),('coppa_mail','',0),('database_gc','604800',0),('dbms_version','5.0.67-community-log',0),('default_dateformat','D M d, Y g:i a',0),('default_style','1',0),('display_last_edited','1',0),('display_order','0',0),('edit_time','0',0),('email_check_mx','1',0),('email_enable','1',0),('email_function_name','mail',0),('email_package_size','50',0),('enable_confirm','1',0),('enable_pm_icons','1',0),('enable_post_confirm','1',0),('enable_queue_trigger','0',0),('flood_interval','15',0),('force_server_vars','0',0),('form_token_lifetime','7200',0),('form_token_mintime','0',0),('form_token_sid_guests','1',0),('forward_pm','1',0),('forwarded_for_check','0',0),('full_folder_action','2',0),('fulltext_mysql_max_word_len','84',0),('fulltext_mysql_min_word_len','4',0),('fulltext_native_common_thres','0',0),('fulltext_native_load_upd','1',0),('fulltext_native_max_chars','14',0),('fulltext_native_min_chars','3',0),('gzip_compress','1',0),('hot_threshold','25',0),('icons_path','images/icons',0),('img_create_thumbnail','0',0),('img_display_inlined','1',0),('img_imagick','/usr/bin/',0),('img_link_height','0',0),('img_link_width','0',0),('img_max_height','0',0),('img_max_thumb_width','400',0),('img_max_width','0',0),('img_min_thumb_filesize','12000',0),('ip_check','2',0),('jab_enable','0',0),('jab_host','',0),('jab_password','',0),('jab_package_size','20',0),('jab_port','5222',0),('jab_use_ssl','0',0),('jab_username','',0),('ldap_base_dn','',0),('ldap_email','',0),('ldap_password','',0),('ldap_port','',0),('ldap_server','',0),('ldap_uid','',0),('ldap_user','',0),('ldap_user_filter','',0),('limit_load','0',0),('limit_search_load','0',0),('load_anon_lastread','0',0),('load_birthdays','1',0),('load_cpf_memberlist','0',0),('load_cpf_viewprofile','1',0),('load_cpf_viewtopic','0',0),('load_db_lastread','1',0),('load_db_track','1',0),('load_jumpbox','1',0),('load_moderators','1',0),('load_online','1',0),('load_online_guests','1',0),('load_online_time','5',0),('load_onlinetrack','1',0),('load_search','1',0),('load_tplcompile','0',0),('load_user_activity','1',0),('max_attachments','3',0),('max_attachments_pm','1',0),('max_autologin_time','300',0),('max_filesize','262144',0),('max_filesize_pm','262144',0),('max_login_attempts','3',0),('max_name_chars','20',0),('max_pass_chars','30',0),('max_poll_options','10',0),('max_post_chars','60000',0),('max_post_font_size','200',0),('max_post_img_height','0',0),('max_post_img_width','0',0),('max_post_smilies','0',0),('max_post_urls','0',0),('max_quote_depth','3',0),('max_reg_attempts','5',0),('max_sig_chars','255',0),('max_sig_font_size','200',0),('max_sig_img_height','0',0),('max_sig_img_width','0',0),('max_sig_smilies','0',0),('max_sig_urls','5',0),('min_name_chars','3',0),('min_pass_chars','6',0),('min_search_author_chars','3',0),('mime_triggers','body|head|html|img|plaintext|a href|pre|script|table|title',0),('override_user_style','0',0),('pass_complex','PASS_TYPE_ANY',0),('pm_edit_time','0',0),('pm_max_boxes','4',0),('pm_max_msgs','10',0),('pm_max_recipients','0',0),('posts_per_page','15',0),('print_pm','1',0),('queue_interval','600',0),('queue_trigger_posts','3',0),('ranks_path','images/ranks',0),('require_activation','2',0),('referer_validation','1',0),('script_path','/forums',0),('search_block_size','250',0),('search_gc','7200',0),('search_indexing_state','',0),('search_interval','0',0),('search_anonymous_interval','0',0),('search_type','fulltext_native',0),('search_store_results','1800',0),('secure_allow_deny','1',0),('secure_allow_empty_referer','1',0),('secure_downloads','0',0),('server_name','www.fivetechsupport.com',0),('server_port','80',0),('server_protocol','http://',0),('session_gc','3600',0),('session_length','3600',0),('site_desc','www.FiveTechSoft.com',0),('sitename','FiveTech Software tech support forums',0),('smilies_path','images/smilies',0),('smtp_auth_method','PLAIN',0),('smtp_delivery','0',0),('smtp_host','',0),('smtp_password','CasaZen2024',0),('smtp_port','25',0),('smtp_username','Antonio Linares',0),('topics_per_page','50',0),('tpl_allow_php','0',0),('upload_icons_path','images/upload_icons',0),('upload_path','files',0),('version','3.0.4',0),('warnings_expire_days','90',0),('warnings_gc','14400',0),('cache_last_gc','1735988964',1),('cron_lock','1736052931 24a6931495733424',1),('database_last_gc','1735581578',1),('last_queue_run','1735972734',1),('newest_user_colour','',1),('newest_user_id','4901',1),('newest_username','irvingcruz',1),('num_files','0',1),('num_posts','271349',1),('num_topics','43494',1),('num_users','2749',1),('rand_seed','27844b7d1472af593be2233825e75323',1),('rand_seed_last_update','1736053534',1),('record_online_date','1625798040',1),('record_online_users','1163',1),('search_last_gc','1735989036',1),('session_last_gc','1735993149',1),('upload_dir_size','0',1),('warnings_last_gc','1735992759',1),('board_startdate','1128620862',0),('default_lang','en',0),('min_tags_count','30',0),('increment_user_id','0',1),('tapatalk_push_slug','a:9:{i:0;i:3;i:1;i:300;i:2;i:1;i:3;s:0:\"\";i:4;a:0:{}i:5;i:0;i:6;i:0;i:7;i:600;i:8;i:1;}',0),('mobiquo_push','1',0),('mobiquo_hide_forum_id','',0),('mobiquo_reg_url','ucp.php?mode=register',0),('tapatalkdir','mobiquo',0),('tapatalk_push_key','0165F9E029B34EBE378E76D143D786A8',0),('tapatalk_ad_filter','',0),('tapatalk_spam_status','1',0),('tapatalk_push_type','1',0),('tapatalk_register_group','2',0),('tapatalk_android_url','',0),('tapatalk_kindle_url','',0),('tapatalk_app_banner_msg','',0),('tapatalk_app_ios_id','',0),('tapatalk_forum_read_only','',0),('tapatalk_register_status','2',0),('tapatalk_auto_approve','1',0),('mobiquo_version','4.8.1',0),('tapatalk_custom_replace','',0),('tapatalk_app_desc','',0),('tapatalk_app_name','',0);
/*!40000 ALTER TABLE `phpbb_config` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_confirm`
--

DROP TABLE IF EXISTS `phpbb_confirm`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_confirm` (
  `confirm_id` char(32) COLLATE utf8_bin NOT NULL DEFAULT '',
  `session_id` char(32) COLLATE utf8_bin NOT NULL DEFAULT '',
  `confirm_type` tinyint(3) NOT NULL DEFAULT '0',
  `code` varchar(8) COLLATE utf8_bin NOT NULL DEFAULT '',
  `seed` int(10) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`session_id`,`confirm_id`),
  KEY `confirm_type` (`confirm_type`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_confirm`
--

LOCK TABLES `phpbb_confirm` WRITE;
/*!40000 ALTER TABLE `phpbb_confirm` DISABLE KEYS */;
INSERT INTO `phpbb_confirm` VALUES ('fe6f546907d8ac33544b3cdd549c8d83','fc3fce31b5cac546f7b622fc6ad6d544',1,'2B84TT',630348164),('f1f1e76e895e4cd8c595f7fa48412643','fc3fce31b5cac546f7b622fc6ad6d544',1,'54AGO',772066212),('f558d8d5ef9a8822f8826415ac81617e','fc3fce31b5cac546f7b622fc6ad6d544',1,'77POI',112436649),('dd44f4f75cfad66febe70307eed3a3d4','fc3fce31b5cac546f7b622fc6ad6d544',1,'2D1OB',2041905912),('e6ce9b41e0fd095a1df9f4ad7f059b39','fc3fce31b5cac546f7b622fc6ad6d544',1,'1L1KIK',953876092),('761b4dc700ecb16d4256197db69e2694','fc3fce31b5cac546f7b622fc6ad6d544',1,'5JSZYK6',853945736),('75ffbccd16c3326538744069aa7f9edd','c65943953547c7aeaba37166c8d51e79',1,'1FGT5LWL',1603219809),('26f12551f346a7509ca00e599ab1a52e','c65943953547c7aeaba37166c8d51e79',1,'5F1IU',96744649),('813c867abf285fa0df7b0ba41fac8d9e','c65943953547c7aeaba37166c8d51e79',1,'5ZRHYGVD',671528277),('cf47244f1f4715c9c0c7e31473330026','c65943953547c7aeaba37166c8d51e79',1,'3Y86OAPS',268714331),('ca70646db666ea464bd79bbad9aa5559','c65943953547c7aeaba37166c8d51e79',1,'2FPAZDF',1720680330),('28096f75598c0c52ca698ac688c5963f','c65943953547c7aeaba37166c8d51e79',1,'3KKG8W8K',349995488),('d60fd83e6d83b1b5f4bd0d9c35b74ec3','e3ba73541e0d30f65411f74a01395eec',1,'1LHRP9',1824548206),('f57365b830429e449a3823717d966660','e3ba73541e0d30f65411f74a01395eec',1,'1BKWZV2',701356575),('b9d700b902e8762ff8fdd71e2aa4a640','14182707ae2ff65afa6e6f807a6877ce',1,'16VLIG',2111678620),('06bd486a757370f435a9b371002375c8','fb7369fcd63f223c90e7f1e5e023d4df',1,'31QIUVH7',1116804646),('400a4dc80c799a74ce50efe1c8477da6','f70e16ad13f1420dbd75a011d975bc2b',1,'2MB4SPTH',1151697253),('b2acf0581c69bbd8957b7276f8d3f576','f70e16ad13f1420dbd75a011d975bc2b',1,'4D3ZS',779153436),('cdb82b3a6adc13977ddf74f29c337ef1','14182707ae2ff65afa6e6f807a6877ce',1,'3HPGKEH',877682470),('5a0774c5e9bcf76fe0d61f5e33b506a2','fb7369fcd63f223c90e7f1e5e023d4df',1,'93ONUU6',1124280637),('4406546a7ce34f810e6e647013e6d97d','79ad5e5ca6a588392676c89dfd66abac',1,'5ZYTOQW',1481623915),('ea84af0050f196b09eb047b08b0eda9b','79ad5e5ca6a588392676c89dfd66abac',1,'2OJWS9E',1992344743),('c0141adafa8561cb496ff8d34c739f9d','79ad5e5ca6a588392676c89dfd66abac',1,'13AQMX',1176105036),('0a8bdbfc714cf33010611f9c9f5256d1','79ad5e5ca6a588392676c89dfd66abac',1,'2PN1625Z',202537282),('370d5a1e73a30a7d71ed41a2b1e1cdd5','79ad5e5ca6a588392676c89dfd66abac',1,'1DU6N4',2090292855),('4cf8cebad4cf00e7212c4ac57e51bc06','79ad5e5ca6a588392676c89dfd66abac',1,'2RDCMHA',11060442),('dc2961f93cad286a90e7db399b7431bd','342deb41b9ffdf8ddc3df50257633381',1,'XQ8HR5U8',155871659),('d6d658f1a96c311c13fc4725cc140c48','ec3fbe8032fdc4155a44a6e0f80aaa04',1,'3HF3T8LN',879568319),('b2237036fccfe9cffeec58b272db5d67','ec3fbe8032fdc4155a44a6e0f80aaa04',1,'3N5XK4',1528785457),('7713c37aaab4508453576f05789d4f8f','50223dc00eb8ebe198f6bfdf09b825f5',1,'52X622',535482613),('213e19c5e15a902e5713feb163339fdb','f2c98f158fa6c0f4485450e4b61e713d',1,'3JA68JK',1297148460),('be03d16acc5bfc5eb42c60dc6cfc6569','f2c98f158fa6c0f4485450e4b61e713d',1,'4PHLQUT',2118668016),('f5f382e9463fcb97fe576937fe12dcd9','969be3098cbe598377b581748e06836d',1,'6SULWE',1873558209),('ee5063db42875c86a43bf35775376139','969be3098cbe598377b581748e06836d',1,'4KQBQSB',183226155),('51ebe81da5dabc00cb9fa78bcadba469','50223dc00eb8ebe198f6bfdf09b825f5',1,'VU9PR',1778406149),('462fff1542acd26d6c68b8990d95238b','a331e21a1a322907ea9ae9535d4dd34e',1,'1W7PCU',921796370),('6cfa852303b56016257216b907d9ffed','234c56f07973f0e139efb8f31ef648cd',1,'APRL7',544045851),('637e7ebd04a5796c99b81833063a05af','38adcc05572548eb3c21627c6c61e56d',1,'4PIP17E',227619288),('fa2a57c2847b537f575a18bc1d367e05','0b501611e987e0840242354a7e2c1654',1,'2VCXOP',1083963401);
/*!40000 ALTER TABLE `phpbb_confirm` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_disallow`
--

DROP TABLE IF EXISTS `phpbb_disallow`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_disallow` (
  `disallow_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `disallow_username` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  PRIMARY KEY (`disallow_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_disallow`
--

LOCK TABLES `phpbb_disallow` WRITE;
/*!40000 ALTER TABLE `phpbb_disallow` DISABLE KEYS */;
/*!40000 ALTER TABLE `phpbb_disallow` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_drafts`
--

DROP TABLE IF EXISTS `phpbb_drafts`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_drafts` (
  `draft_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `topic_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `save_time` int(11) unsigned NOT NULL DEFAULT '0',
  `draft_subject` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `draft_message` mediumtext COLLATE utf8_bin NOT NULL,
  PRIMARY KEY (`draft_id`),
  KEY `save_time` (`save_time`)
) ENGINE=MyISAM AUTO_INCREMENT=817 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_drafts`
--

LOCK TABLES `phpbb_drafts` WRITE;
/*!40000 ALTER TABLE `phpbb_drafts` DISABLE KEYS */;
INSERT INTO `phpbb_drafts` VALUES (1,409,0,6,1230688235,'Problemas Necesito Ayuda','Amigos: Tengo problemas, estoy compilando con Verce 5.3,  pero cuando compilo, me arroja el error: \nFatal: Unable to open file \'UUID.LIB\'. \n\n¿Cual puede ser el error? y para que se usa esta libreria, la que uso corresponde a BCC55. \n\ndicen q la solucion es el archivo ILINK32.CFG.  ,, pero de donde lo saco en el directorio BCC55 no esta...\n\nDesde ya muchas gracias'),(2,348,14102,6,1230694854,'Re: Oferta especial de Fin de Año !!!','Hola Antono\nNo se si sera tarde,  pero me podrias mandar cuanto es el costo y que incluye a mi correo\nlubin.am@speedy.com.pe\n\nLubin'),(3,570,14102,6,1230734562,'Re: Oferta especial de Fin de Año !!!','Antonio, Acabo de ver tu oferta y comprarla, aquí es 31/12/2008 - 12.39 pm espero me incluyan Gracias por la oferta y exitos rotundos para el 2009, y sobre todo por vuestro apoyo,\n\nsaludos, desde Argentina,\nGustavo Prediger'),(7,913,13582,6,1230919924,'Re: oTop, oLeft, oBottom, oRight, oClient para redimensionar ??','NO funciona con xbrowse :cry: \n\nahora si toy atorada con eso \n\nhise lo que me dijeron  de poner mi monitor en 1024 x 768 pixel pero cuando el programa esta en un monitor de  1880 x 1024\n\nel windos lo maximisan y  todo lo que esta dentro queda horrible todo chiquito y en partes de la windows  en blanco :cry: \n\ntermianre haciendo dos programas, uno para monitores de 14  y otro para monitores de 17 pulgadas :| \n\npero muchas gracias por su ayuda\n\nAida :('),(6,24,14125,18,1230913465,'Re: RSS Feed del Foro','Perfecto Antonio!, Ahora ya funcionan los rss.\n\nComo lector , liferea, desde GNU/Linux, creo que es Multiplataforma.'),(8,610,14113,3,1231167857,'Re: Display Alpha channel 32 bit BMP on ButtonBMP','Fiz algumas alterações na classe para funcionar com alpha channel\n\nhttp://www.fivewin.com.br/exibedicas.asp?id=924\n\nEx:\n\noBtn:lBmpAlpha := .T.'),(10,979,14164,6,1231271400,'Re: Codigo ejemplo para albaranes con TxBrowse y dialogo','Hola Pedro\n\nSi no es molestia, te agradeceria me enviaras una copia de lo ofrecido a mi correo jose_de_alfonso@yahoo.es\n[/b]\nGracias por adelantado,\n\nAlfonso'),(11,1072,14170,6,1231273451,'Re: Problemas en preview al cambiar la impresora.','amigo francisco a ver si nos iluminas con tu LUZ... y si es posible incluir en este foro tu rutina:: GRACIAS\n\no si es mucha pega.. si me la puedes mandar al mail.. LEIVA_36@hotmail.com\n\nUN ETERNO AGRADECIDO ..\n\nGRACIAS'),(12,29,14180,20,1231281614,'Re: Transparent radiobutton','Si, è però voluto perché vorrei il quadratino del checkbox invece del cerchio del radiobutton.\nIl problema della trasparenza comunque è indipendente da questa scelta.'),(13,1095,14164,6,1231283337,'Re: Codigo ejemplo para albaranes con TxBrowse y dialogo','Hola Pedro,\n\nSi puedes me lo envias, por favor.\n\nvhg@vlmsoftware.com\n\nGracias.'),(15,362,14195,6,1231355838,'Re: Sigo con prev32.dll sin previzualizacion','ya compilastes el ejemplo en \\samples\\TESTPRN1.PRG ??\n\nSaludos. :oops:'),(16,940,14170,6,1231364115,'Re: Problemas en preview al cambiar la impresora.','define tu codigo en este orden,\n\n   PRINT oPrn NAME &quot;Impresion de pedidos : &quot; + cTitulo PREVIEW\n   oPrn:SetPage(1)  //carta\n   oPrn:SetPortrait()                          // HORIZONTAL\n   oPrn:setup()\n\n   DEFINE FONT oFnt1 NAME &quot;Tahoma&quot; SIZE 0, -09  OF oPrn\n   DEFINE FONT oFnt2 NAME &quot;Tahoma&quot; SIZE 0, -09  OF oPrn bold\n\n   DEFINE FONT oFnt3 NAME &quot;Tahoma&quot; SIZE 0, -08  OF oPrn\n   DEFINE FONT oFnt4 NAME &quot;Tahoma&quot; SIZE 0, -08  OF oPrn bold\n\n\n   DEFINE PEN oPen WIDTH  2             OF oPrn\n\n\n   oPrn:lPrvModal := .t.\n\n   PAGE\n\n\n\nSALUDOS.'),(17,471,0,6,1231518557,'Donde hay Clase tdosprn con soporte para puerto USB','Amigos\nLa impresora q tengo usa puerto USB ya no serial pero no imprime con la clase\nTDOSPRN\n\nUn favor tendra la clase tdosprn con soporte para puerto USB001\n\nGracias'),(18,78,14243,6,1231777001,'Re: Mandar texto a otra aplicacion','Hola , usa estos comandos..\n...\ncFile  := &quot;TMP\\prueba.txt&quot;\n\naCadena := &quot;hola esta es una prueba&quot; + CRLF \naCadena += &quot;de como escribir una texto tipo TXT&quot; + CRLF\naCadena += &quot;es sumamente sencillo&quot;\n\noHand := FCreate( cFile )           // creamos el archivo con un manejador \nFWRITE(oHand, aCadena)          // escribimos el contenido de aCadena\nFCLose(oHand)                          // cerramos el manejador \n....\n\nel archivo pruena.txt lo puedes usar como cualquier otro archivo plano tipo txt\n\nSalu2'),(19,960,0,6,1231845555,'efecto BLINK en button','Compañeros:\n\nNecesito que al pulsar un button cree un efecto BLINK en el button. Tengo el siguiente codigo:\n\n[code]     for x=1 to 6\n      if int(x/2)!=(x/2) &amp;&amp; numero impar\n       aforo[temporal-&gt;nposicion]:SetColor( CLR_WHITE, nRGB(255,128,0), CLR_WHITE )\n      else\n       aforo[temporal-&gt;nposicion]:Setcolor( CLR_WHITE, CLR_BLUE, CLR_WHITE )\n      endif\n      aforo[temporal-&gt;nposicion]:refresh()\n      inkey(1)  &amp;&amp; si sustituimos inkey por un msginfo(\'prueba\') funciona perfectamente\n     next\n[/code]\n\nEste codigo funciona si sustituimos el inkey por un msginfo para ver la prueba. Obviamente con msginfo() no sería operativo. ¿ Por qué no funciona con inkey() ?, ¿ Hay otra manera ?\n\nMil gracias.\nLOREN'),(20,1238,0,6,1231848681,'Problema con Set Relation','Tengo dos tablas relacionadas mediante SET RELATION \n\n   USE Polizas NEW\n   SET INDEX TO I1Poliza\n   USE Facturas NEW\n   Set index to I2Factur\n   USE Siniestr NEW\n   INDEX ON Siniestr-&gt;NumControl TO I1Sini DESCENDING\n   SET INDEX TO I1Sini\n   GO TOP\n   SET RELATION TO NumPoliza INTO Polizas, NumControl INTO Facturas \n\ny realizo un LISTBOX así\n\n  @ 1, 1 LISTBOX oLbx FIELDS aHBitmaps[ MAX(1,Recal(Siniestr-&gt;FechaNoti ))],;\n                              Siniestr-&gt;NumControl,;\n                              Siniestr-&gt;NumSini,;\n                              Siniestr-&gt;NumPoliza,;\n                              Siniestr-&gt;FechaSini,;\n		                          Polizas-&gt;Nombre,;\n		                          Polizas-&gt;Domicilio,;\n		                          Facturas-&gt;NumFactura;\n          HEADERS    &quot;E&quot;,&quot;Referencia&quot;, &quot;Nº Siniestro&quot; , &quot;Nº Póliza&quot; ,&quot;Fecha Siniestro&quot;,&quot;Asegurado&quot;,&quot;Domicilio&quot;,&quot;Factura&quot;;\n          FIELDSIZES 16,65, 100, 100,100,240,180,65 ;\n          SIZE 450, 137 OF oDlg \n\n\nDesedaría saber si es posible que la lista sólo me presente los datos si Facturas-&gt;NumFactura no existe, es decir no está facturado el siniestro. La tabla Facturas es una de las &quot;hijas&quot;.\n\nUn saludo. Fernando'),(22,1088,13993,2,1231880127,'Re: hojas tamaño un cuarto de carta','Feliz año a todos, pues aqui de nuevo con mas preguntas, cual fuente es la idonea para usar en reportes que sean monospace es decir qual mandar un preview o una impresion los numeros queden ordenados, hice pruebas con la &quot;courier&quot; pero no puedo cambiar el tamaño\npor ejemplo\n  12,871.90\n       878.41\n    2,891.14\n\nes decir, alineados...\n\nsaludos'),(23,388,14264,3,1231941404,'Re: CDX ordKey question','Dear Otto,\n\nmaybe you can use getordnames() \n\nregard\n\nkok joek hao'),(24,428,0,6,1231944986,'TGRAPH','Estimados Colegas,\n\nEstoy intentando utilizar la clase TGraph para representar graficos estadisticos de Calidad y de SPC, realmente me gusto mucho poder utilizar el objeto oGraph y poder creear varios tipos en una misma Window, utilizando Spliter, la versión inicial de TGraph3 por cada grafico creaba una Window y eso era un limitante para mi trabajo, pero esta nueva clase  no es tan completa como la vieja ya que hay varios tipos de graficos que no se utilizan y que son los fundamentales para mi proyecto destinado a la calidad, los tipos que no halle en Tgraph  son: Mezclada, XY, Max-Min, Pila,Pila en % y Area, tampoco me permite seleccionar el tipo de cada serie, por ejemplo deseo que una serie muestre barras y que la otra muestre lineas, esto me permite crear graficos de distribucion normal  y la Campana de Gauss, necesarias para mi proyecto.\nPodria alguien indicarme si aparecio alguna otra actualizacion de TGraph que incluya los tipos de graficos indicados ?\nAgradeceria toda información al respecto.\n\nSaludos\n\nMiguel'),(25,24,0,6,1232033428,'Bug en UPPER xHarbour','Me ha llevado toda una mañana ver que esto;\nUPPER( &quot;muñozç&quot; )\n\nMe devuelve &quot;MUñOZç&quot; ¿?\n\n¿ Alguien puede hacer esta prueba ?\n\nVersion que estoy usando de xHarbour\n\nxHarbour Compiler build 1.1.0 (SimpLex)\nCopyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/\n\nHarbour Build Info\n---------------------------\nVersion: xHarbour build 1.1.0 Intl. (SimpLex)\nPCode Version: 9\nCompiler: Borland C++ 5.5.1 (32 bit)\nPlatform: Windows  XP Professional 5.01.2600 Service Pack 2\n\nBuilt on: Apr 11 2008 13:21:15\nLast ChangeLog entry: 2007-10-31 17:12 UTC+0100 Miguel Angel Marchuet &lt;miguelangel/at/marchuet.net&gt;\nChangeLog CVS version: ChangeLog,v 1.5756\n\nHarbour extensions: Yes\nCA-Clipper 5.2e undocumented: Yes\nCA-Clipper 5.2e strict compatibility: No\nCA-Clipper 5.3x compatible extensions: Yes\nAlaska Xbase++ compatible extensions: Yes\nCA-Visual Objects compatible extensions: No\nMultisoft Flagship compatible extensions: Yes\nMicrosoft FoxPro compatible extensions: No\ndBase compatible extensions: No\nObject file generation support: No\nANSI C usage: Non strict\nC++ mode: Off\nCompiler YACC debug mode: Off\nMemory tracing and statistics: Off\nMaximum symbol name length: 63\n---------------------------\n\n\nsaludos\nRafa Carmona'),(26,428,14276,6,1232036845,'Re: TGRAPH','Gracias Antonio, ya me comunique con el y pude solucionar el problema.\n\nSaludos\nMiguel'),(27,1088,14031,2,1232039290,'Re: Solicitar ruta y nombre de archivo','Antonio:\nYa logre hacer la hoja de excel (gracias x eso), pero ahora necesito que el usuario escoja la ruta donde grabarlo y el nombre, y ahi se genere el archivo, es posible ?\ncomo debo de hacerlo para q el despues de ponerle un nombre al archivo y escoger la ruta, al dale al boton aceptar me genere el archivo excel ?\n\nsaludos y feliz 2009'),(29,1178,14021,6,1232060057,'Re: Una Clase TDataBase mucho más rápida !!!','Como consigo esta clase , cual seria el Link, o biene incluida en la version de fivewin a partir de quie version gracias..'),(30,281,0,3,1232076743,'Wake-On-Lan program.','Hi All.\n\nWake-On-Lan program.\nThe person who is necessary use.\n\n[code]\n\n#include &quot;FiveWin.ch&quot;\n\n/*--------------------------------------------------------------------------*/\nFUNC Main()\npubl oWnd\n\nDEFINE WINDOW oWnd FROM 0, 0 TO 250, 250 TITLE &quot;WOL test&quot; PIXEL\nACTIVATE WINDOW oWnd ON INIT ( ss() )\n\nRETU NIL\n\n/*--------------------------------------------------------------------------*/\nFUNC ss()\nloca sRet\n\nsRet = wol_start(&quot;00:37:A5:E7:92:0E&quot;)\n//00:37:A5:E7:92:0E &lt;- Lights and character the computer Mac-address which does \n\nRETU NIL\n\n/*--------------------------------------------------------------------------*/\n#pragma BEGINDUMP\n\n#include &lt;windows.h&gt;\n#include &lt;hbapi.h&gt;\n#include &lt;hbapiitm.h&gt;\n#include &lt;wininet.h&gt;\n\n#include &lt;winsock.h&gt;\n\n#include &lt;stdio.h&gt;\n#include &lt;stdlib.h&gt;\n#include &lt;string.h&gt;\n#include &lt;sys/types.h&gt;\n\n#define BUFMAX   1024\n#define MACLEN   6\n\nint hex(char c) {\n    if (\'0\' &lt;= c &amp;&amp; c &lt;= \'9\') return c - \'0\';\n    if (\'a\' &lt;= c &amp;&amp; c &lt;= \'f\') return c - \'a\' + 10;\n    if (\'A\' &lt;= c &amp;&amp; c &lt;= \'F\') return c - \'A\' + 10;\n    return -1;\n}\n\nint hex2(char *p) {\n    int i;\n    unsigned char c;\n    i = hex(*p++);\n    if (i &lt; 0) return i;\n    c = (i &lt;&lt; 4);\n    i = hex(*p);\n    if (i &lt; 0) return i;\n    return c | i;\n}\n\nHB_FUNC( WOL_START )\n{\n    int sd;\n    int len;\n    int i, j;\n\n    BOOL optval;\n\n    struct sockaddr_in sin;\n\n    char unsigned buf[BUFMAX];\n    unsigned char mac[MACLEN];\n    unsigned char *p;\n\n    char temp_buff[1024] = {0};\n\n    WSADATA wsaData;\n\n    WSAStartup( MAKEWORD(2, 2), &amp;wsaData);\n    memset((char *)&amp;sin, \'0x00\', sizeof(sin));\n\n    sin.sin_family = AF_INET;\n    sin.sin_port = htons(9);\n    sin.sin_addr.s_addr = INADDR_BROADCAST;\n\n    sd = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP);\n\n    optval = TRUE;\n    setsockopt(sd, SOL_SOCKET, SO_BROADCAST, (const char *)&amp;optval, sizeof(BOOL) );\n\n    sprintf(temp_buff, hb_parc(1));\n\n    p = (unsigned char *)temp_buff;\n    j = hex2((char *)p);\n\n    mac[0] = j;\n    p += 2;\n    for (i=1; i &lt; MACLEN; i++) {\n        j = hex2((char *)p);\n        mac[i] = j;\n        p += 2;\n    }\n    p = buf;\n    for (i=0; i &lt; 6; i++) {\n        *p++ = 0xFF;\n    }\n    for (i=0; i &lt; 16; i++) {\n        for (j=0; j &lt; MACLEN; j++) {\n            *p++ = mac[j];\n        }\n    }\n    len = p - buf;\n\n    sendto(sd, (const char *)buf, len, 0, (struct sockaddr*)&amp;sin, sizeof(sin));\n\n    closesocket(sd);\n    WSACleanup();\n\n    hb_retni(0);\n}\n#pragma ENDDUMP\n[/code]'),(31,995,14263,3,1232103577,'Re: xHarbour -&gt; Harbour compatibility','Hello,\n\nIn old days in clipper global variables were implemented as :\n\nProg 1\n\nInstead from GLOBAL Var1  : STATIC Var1\n\nSo we could \n\n# ifndef __XHARBOUR\n  STATIC Var1\n# else\nGLOBAL EXTERNAL Var1\n# endif\n\nIn this prg-module \n# ifndef __XHARBOUR\nFUNCTION Var1(NewValue)\nIF NewValue == nil\n  Return Var1\nELSE\n  Var1 := NewValue\nEND\nRETURN Var1\n# endif\n\nProg 2\n\nGLOBAL EXTERNAL Var1 is not needed anymore , but each occurance from var1 should be replaced with var1()\n\nSo we could \n\n# ifndef __XHARBOUR\n  # xtranslate  Var1 =&gt; Var1()\n# else\nGLOBAL EXTERNAL Var1\n# endif\n\nFrank'),(32,84,0,6,1232109740,'Migrar a XBrowse','Quiero migrar mi aplicación para q use XBrowse ( q le veo muchas ventajas ) y deshacerme poco a poco del viejo WBrowse.\n \nUso una clase para mostrar los datos que hace muchas cosas, pero maneja las expresiones optimas para el antiguo Wbrowse, el problema concreto esta en los bitmaps, como conoces, antes si la columna traía un numero montaba el bitmap.\n \nEjemplo :\n \n   hBmp              := LoadBitmap( 0, 32760 )\n   hSel              := LoadBitmap( GetResources(), &quot;Send16&quot; )\n \n \n      FIELDS   if( ( dbfFamilia )-&gt;lSelDoc, hSel, 0 ),;\n               (dbfFamilia)-&gt;cCodFam,;\n               (dbfFamilia)-&gt;cNomFam,;\n               (dbfFamilia)-&gt;cCodGrp,;\n               (dbfFamilia)-&gt;cCodPrp1,;\n               (dbfFamilia)-&gt;cCodPrp2,;\n               if( ( dbfFamilia )-&gt;lIncTpv, hBmp, 0 ),;\n               if( ( dbfFamilia )-&gt;lPubInt, hBmp, 0 );\n \ndonde hSel y hBmp son los handles a los bitmaps\n \nhe intentado de la siguiente forma en el nuevo código \n \n   // Creacion de columnas ----------------------------------------------------\n \n   for n := 1 to ( ::nFlds )\n      oCol                 := ::oBrw:AddCol()\n      if Valtype( Eval( ::aFlds[ n ] ) ) == &quot;N&quot;\n         oCol:bBmpData     := ::aFlds[ n ]\n      else\n         oCol:bStrData     := ::aFlds[ n ]\n      end if\n \nNo me da errores pero no me muestra el bitmap, ¿necesito igualar alguna otra cosa en la columna para indicar q es un bitmap?\n \nMuchas gracias.\n \nSaludos.\nManuel Calero Soís.\n\n[url]http://www.apolosoftware.com[/url]'),(33,84,14303,6,1232193967,'Re: Migrar a XBrowse','Daniel gracias por tu respuesta.\n\nPero vista las diferencias voy a optar por migrar el codigo no de manera global si no adaptandome a nuevo Browse.\n\nAhora el problema es otro las imagenes no se me ven bien me utiliza el blanco como color de fondo de la imagen y me destroza la imagen.\n\n[img]http://www.watchdog.es/Dibujo.jpg[/img]\n\nQuiero q se muestre siempre como el registro q no esta seleccionado.\n\nEl código para agregar la columna es el siguiente.\n\n      with object ( oWndBrw:AddXCol() )\n         :AddResource( &quot;Send16&quot; )\n         :AddResource( &quot;&quot; )\n         :bStrData      := {|| &quot;&quot; }\n         :bBmpData      := {|| if( ( dbfFamilia )-&gt;lSelDoc, 1, 2 ) } //::aFlds[ n ]\n         :lBmpStretch   := .f.\n         :cHeader       := &quot;V&quot;\n         :nWidth        := 17\n      end with\n\nMuchas gracias.\n\nManuel Calero Sólis.\n[url]www.apolosoftware.com[/url]'),(34,84,14303,6,1232194001,'Re: Migrar a XBrowse','Daniel gracias por tu respuesta.\n\nPero vista las diferencias voy a optar por migrar el codigo no de manera global si no adaptandome a nuevo Browse.\n\nAhora el problema es otro las imagenes no se me ven bien me utiliza el blanco como color de fondo de la imagen y me destroza la imagen.\n\n[img]http://www.watchdog.es/Dibujo.jpg[/img]\n\nQuiero q se muestre siempre como el registro q no esta seleccionado.\n\nEl código para agregar la columna es el siguiente.\n\n      with object ( oWndBrw:AddXCol() )\n         :AddResource( &quot;Send16&quot; )\n         :AddResource( &quot;&quot; )\n         :bStrData      := {|| &quot;&quot; }\n         :bBmpData      := {|| if( ( dbfFamilia )-&gt;lSelDoc, 1, 2 ) } //::aFlds[ n ]\n         :lBmpStretch   := .f.\n         :cHeader       := &quot;V&quot;\n         :nWidth        := 17\n      end with\n\nMuchas gracias.\n\nManuel Calero Sólis.\n[url]www.apolosoftware.com[/url]'),(36,1088,13993,2,1232483345,'Re: hojas tamaño un cuarto de carta','HOLA:\nya genere, la hoja de excel, pero aun no se como hacer para hacer q el cliente seleccione la unidad y el nombre, es decir, al poner la funcion \n\ncGetFile32( &lt;cFileMask&gt;, &lt;cTitle&gt;, [&lt;nDefaultMask&gt;], [&lt;cInitialDirectory&gt;], [lSave], [nFlags], [cInitialFile] ) --&gt; cFileName\n\nrequiero que lo haga al dale aceptar no al salir de la ventana que forma la funcion, espero no confundirlos :( \n\nfeliz 2009'),(37,1257,14347,3,1232629590,'Re: TO GURUS : TRANSPARENT ERROR WITH XBROWSE','Hello Silvio,\n\na few month ago, I noticed that and there have been some tests.\nAntonio did some changes, but it was not 100 % and the old source was delivered again.\nThis problem Transparent bitmaps on Background-brush is not solved for the moment.\n\nRegards\nUwe :cry:'),(38,1072,14371,6,1232899235,'Re: Vaciar tabla secuencialmente.','super simple la solucion,,, me tope con el mismo problem,,, hace unos dias\n\nusar asi::\n\noDbfIng:GoTop()\nSET DELETED OFF\nDO WHILE !oDbfIng:Eof()\n   oDbfIng:RecLock()\n   oDbfIng:Delete()\n   oDbfIng:UnLock()\n   oDbfIng:Skip()\nENDDO\nSET DELETED ON\n\nal menos me funciona okis...\n\ncomentame ....'),(142,811,15512,3,1242393434,'Re: Slowdown performance with concurrent access','Finally, the trouble was found in the samba configuration with the oplocks seted in the smb.conf. It seems that using DBF/CDX files with concurrent access over a Samba system don\'t work as fine as I would hope. Thanks a lot for the answers to the forum.'),(42,1397,0,6,1233202321,'Para el maestro Antonio sobre xBrowse error con valid','El problema es el siguiente Cuando utilizo lfastedit  y a la colomna le coloco \noBrw:aCols[ 1 ]:bEditValid    := {|oGet,oBrwCol| FunValidar(oDlg,oBrw) } el me \nejecuta correcto cuando utilizo DEFINE WINDOW\npero cuando utilizo DEFINE DIALOG me ejecuta dos veces el valid\n\n[code]\n   DEFINE WINDOW oChild TITLE &quot;Basic Cell selector browse&quot; MDICHILD OF oWnd\n\n   @ 0,0 XBROWSE oBrw OF oWnd ALIAS Alias()\n\noBrw:aCols[ 1 ]:bEditValid    := {|oGet,oBrwCol| FunValidar(oDlg,oBrw) }\n\n   oBrw:CreateFromCode()\n   oBrw:cToolTip = &quot;This is a test&quot;\n   oChild:oClient := oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()\n[/code]\nLo hace correcto el valid\n\npero si lo hago asi\n[code]\nDEFINE DIALOG oDlg Size 800,600 \n\n   @ 0,0 XBROWSE oBrw OF oWnd ALIAS Alias()\n\noBrw:aCols[ 1 ]:bEditValid    := {|oGet,oBrwCol| FunValidar(oDlg,oBrw) }\n\n   oBrw:CreateFromCode()\n   oBrw:cToolTip = &quot;This is a test&quot;\n   oChild:oClient := oBrw\n\n   ACTIVATE DIALOG \n\n[/code]\n\nEL VALID lo hace dos veces\n\nde antemano Gracias'),(43,1454,0,6,1233238330,'Lectura de código de Barra','Necesito de forma urgente alguna classe o rutina que permita leer atravez de un get la captura de codigo de barra realizada por un dispositivo tipo pistola... si alguien pudiese ayudarme se los agradesco... :D'),(44,1072,14373,6,1233280096,'Re: Series incompletas en tGraph','porque no indicas mejor lo q quieres hacer,, algun ejemplo numerico podria ser mas grafico en estos casos::::\n\n\nasi vemos si podemos ayudarte::'),(45,1222,14362,3,1233414084,'Re: dbf to Xml','Hi,\n\nMaybe?\n\n[url]http://forums.fivetechsupport.com/viewtopic.php?f=6&amp;t=4116&amp;p=18168#p18168[/url]\n[url]http://forums.fivetechsupport.com/viewtopic.php?f=6&amp;t=4144&amp;hilit=xml[/url]\n\nSaludos\nErnesto'),(46,1457,0,4,1233457633,'Problem with FILETIMETOTIME function','I am using the TFTP() Class to successfully connect to an FTP Server.\n\nI then use the Directory(&quot;*.*&quot;) function to get an Array of files in the current folder again this works fine except the 4th element the filetime is returning the following string. &quot;%02i:%02&quot;. The first 3 elements are correctly returning the filename, filesize and filedate as expected.\n\nI am trying to see if there are newer copies of files to bring down to my device.\n\nA little bit of digging in tftp.prg and datetime.c shows that the FileTimeToTime function is the possible problem.\n\nCLIPPER FILETIMETOTIME( PARAMS )\n{\n   SYSTEMTIME st;\n   char buffer[ 9 ];\n   \n   FileTimeToSystemTime( ( FILETIME * ) _parc( 1 ), &amp;st );\n\n   wsprintf( buffer, &quot;%02i:%02i:%02i&quot;, st.wHour, st.wMinute, st.wSecond );\n   \n   _retclen( buffer, 8 );\n}\n\nI wonder if the PPC wsprintf does not except a format string as its first parameter.'),(139,292,0,6,1241995397,'Generar Ficheros XML','Colegas,\nNecesito generar ficheros en formato XML, agradezco su colaboración/'),(143,552,0,6,1242397934,'Antonio, no sé lo que está sucediendo','Buenos Dias Antonio, \n\nTengo esta función\n[code]\nFunction XX( oDlg, oBCli_1, oBCli_2 )\n\n   lapm := ANAM_08( oWnd, PVALORF, TCOD, TFIL, TUNID, TDATA, aJPG_1, n_1, aJPG_2, n_2 )\n\n   ? lapm\n   IF lapm\n      Ficha_122( oDlg, oBCli_1 )\n      Ficha_124( oDlg, oBCli_2 )\n      lapm := .f.\n      ? lapm\n   EndIF\n\nReturn nil\n[/code]\nLo que pasa es que cuando se llama a la función Anam_08, muestra el contenido de la variable LAPM, creo que esto sólo debería ocurrir cuando me clave en el botón para salir de la función anam_08, es en ese momento que me LAPM := TRUE.\nEs como si la función de Active WINDOW en anam_08 tuvo la cláusula nowait.\n\nAntonio, ¿cómo resolver el problema, o llame a la función anam_08, LAPM hacer := TRUE y la espalda, ejecute tela_122 y tela_124, a continuación, el fragmento de código de función anam_08\n[code]\n//----------------------------------------------------------------------------------------------------//\nFunction Anam_08( oWnd, VALORF, COD, FIL, UNID, DATA, JPG_1, m_1, JPG_2, m_2 )\n\n   aJPG_1 := JPG_1\n   aJPG_2 := JPG_2\n   n_1 := m_1\n   n_2 := m_2\n   nFator_1 := 9  // Se nFator_1 = 5, mostra foto com tamanho REAL\n   nFator_2 := 9  // Se nFator_2 = 5, mostra foto com tamanho REAL\n   lapm := .f.\n\n   // Iniciando...\n   //---------------------------------------------------------------------\n   // &quot;Escondendo a barra de tarefas&quot;\n   ShowWindow( FindWindow( \'Shell_TrayWnd\', Nil ), SW_HIDE )\n \n   //---- brush do fundo da janela principal\n   DEFINE BRUSH oBrush COLOR nRGB(  49, 106, 197 )\n\n   // definiciones de objetos icon y font\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0,-11\n\n   MENU oMenu\n   ENDMENU\n\n   DEFINE WINDOW oAnam_08;\n      FROM 00,00 TO ScreenHeight, ScreenWidth PIXEL;\n      NOMAXIMIZE NOMINIMIZE;\n      BRUSH oBrush;\n      MENU oMenu\n\n   //---------------------------------------------------------------------\n   // Lado Esquerdo da Tela - oAct_1\n   //---------------------------------------------------------------------\n   oAct_1 := TActiveX():New( oAnam_08, &quot;Ctrl.1&quot;, 1, 1, 400, 568 )\n\n   oAct_1:bOnEvent := { | event, aParams, pParams | Event_Esq( event, aParams, pParams, oAct_1 ) }\n\n   //---------------------------------------------------------------------\n   // Lado Direito da Tela - oAct_2\n   //---------------------------------------------------------------------\n   oAct_2 := TActiveX():New( oAnam_08, &quot;Ctrl.1&quot;, 1, 400, 400, 568 )\n\n   oAct_2:bOnEvent := { | event, aParams, pParams | Event_Dir( event, aParams, pParams, oAct_2 ) }\n\n   DEFINE MESSAGE BAR oMsg;\n      OF oAnam_08 FONT oFont COLOR &quot;R+/W&quot; NOINSET\n\n   //---------------------------------------------------------------------\n   // Lado Esquerdo da Tela - oAct_1\n   //---------------------------------------------------------------------\n\n   // Encerrar Rotina\n   DEFINE MSGITEM oMsgItem OF oMsg;\n      PROMPT \'Encerrar\';\n      SIZE 65;\n      ACTION( ShowWindow( FindWindow( \'Shell_TrayWnd\', nil ), SW_SHOWNA ),;\n              lapm := .t., oAnam_08:End() );\n      TOOLTIP &quot;Encerrar esta Rotina&quot;\n\ncomandos...\n\n   //-------------------------------------------------------------------------\n   // Inicio dos Eventos do teclado\n   //-------------------------------------------------------------------------\n\n   oAnam_08:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( AutResiz( .t., XY, oAnam_08, -1 ), oAnam_08:End() ), nil ) }\n\n   //----------------------------------------------------------------------------------\n   // Fim dos Eventos do teclado\n\n   ACTIVATE WINDOW oAnam_08 MAXIMIZED;\n      ON INIT( AutResiz( .t., XY, oAnam_08, YX ),; //   oAct_1 : Do( &quot;LicenseKey&quot;, &quot;5555&quot; ),;\n               SetWindowPos( oAnam_08:hwnd, -1, 0, 0, 0, 0, 3 ) )\n\n   // Retornando...\n   dbSelectArea( &quot;FiMed&quot; )\n   dbGotop()\n\n   oFont:End()\n\nReturn lapm\n\n[/code]\n\nGracias en Adelantado, \n\nSaludos desde Brasil'),(48,98,0,3,1233697600,'Eastern European characters','We have a user from Lithuania that complains he can\'t get Baltic characters to display properly\non our FWH app.\n\nSince my Windows version is the Western one I have no way of doing more testing than the\nfollowing.  Take this 4 chars:  ÅČĖŽ\n\nIf I use MS Word\'s Insert Symbol dialog I see that Å can be entered as Alt+0197 and Ž as Alt+0142.\nThere\'s no Alt+ shortcut for ČĖ.  So if I paste those for chars in a TGet object, it displays them\nas: ÅCEŽ.  It removes the accented portion for those 2 with no Alt+ shortcut.\n\nIt get\'s worst if I use CharMap.exe to attempt the same: ČĖ just become to question marks: Å??Ž\n\nFor this I made sure of using an OpenType font (i.e. those fonts listed by windows with a double-O)\nbecause those support non-Western chars, like Baltic which is the one required here.'),(50,644,14479,6,1233763509,'Re: HB_SENDMAIL COM PROGRESS','Ronaldo,\nPodrias poner un ejemplo con esta clase ?. me gustaría probarla. Desde ya muchas gracias.'),(51,986,0,7,1233837647,'IsExeRunning - ShowWindow nao funciona','Quando a aplicacao esta em execucao, e por chamar outro software, ela some da tela, mas fica rodando no aplicativo.\ncom a funcao IsExeRunning da para identificar que a aplicacao ta rodando, mas nao da para fechar ela ou chamar ela novamente na tela.\nA unica forma e dar um reset na maquina para chamar o aplicativo novamente.\n\n\nif IsExeRunning( cFileName( HB_ArgV( 0 ) ) )\n      \n    SHOWWINDOW( FINDWINDOW( 0, cWindowTitle ), 9 )\n    SETFOREGROUNDWINDOW( FINDWINDOW( 0, cWindowTitle ) )    [color=#FF0000]nao funciona, nao chama a aplicacao novamente[/color] \n\n     Return nil\n     \nEndif   \n\n\nAte mais\nCleber'),(52,284,0,3,1233841724,'PalBmpLoad() not returning an array.','PalBmpLoad() not returning an array.\nI have an application that loads small bitmaps in buttons using TBtnBmp().\nSometimes the LoadBitmaps() method crashes loading the bitmap because PalBmpLoad() returns an invalid handle ( big negative numeric ) and it is supposed to return an array, causing an &quot;array access&quot; error !\nThe bitmaps are coded directly in RCs and appended to the EXE, no DLLs, so the bitmaps are there for sure.\nThe weird is that it never crashes the first time the bitmap is loaded, only after it is loaded at least one time, and not always happens, sometimes the 2nd time, sometimes 3rd or 4th...  I some machines it never hapens !\nIt seems to me that Windows is &quot;discarding&quot; the bitmap after the first load in order to free memory.\nAm I correct ?\nHow can I avoid it ?\n \nMaurício Faria'),(53,1178,0,6,1233869291,'en un get como controlo que el TAB sea el ENTER','en un get como controlo que el TAB sea el ENTER'),(54,319,0,6,1234280898,'Activex com POPMENU..','Estou utilizando a ocx DHTML, para criar um editor de HTML, estou com problema no onEvent, não consigo saber a posição em que o mouse esta para demonstrar o POP MENU .. algum pode me auxiliar'),(55,348,14537,6,1234410571,'Re: Actualización de aplicaciones por internet','Mis estimados\n100 puntos !!!  el articulo \n\nGracias'),(57,110,0,6,1234663858,'Ayuda con funciones sin resolver','Estimado\n\ncon xharbour.com al intentar usar la funcion GETNETCARDID me da este error\n\nxLINK: error: Unresolved external symbol \'__chkstk\'.\nxLINK: error: Unresolved external symbol \'_GetAdaptersInfo\'. \n\nAntonio, mire en un post que Patrick te pidio ayuda sobre este topico, \ntu proporcionaste un obj para resolver el problema, pero el link en rapidshare ya no existe.\n\n\nsalu2'),(58,600,0,6,1234735927,'Programas externos','Hola, una preguntita.\n¿Es posible que llamando a un fichero tipo Word, tif, BMP, jpg, pdf, etc se ejecute el programa asociado que tenga el usuario en el ordenador?. Sin tener que llamar obligatoriamente al Paint u otro programa similar.\n\nQuerria poner algo asi: WinExec( &quot;..\\fichero.jpg&quot; ), sin tener que poner WinExec( &quot;mspaint ..\\fichero.jpg&quot;)\n\nUn saludo\nJuan José'),(59,428,14588,6,1234789774,'Re: Manejo del Mouse','Gracias Daniel,\nRealmente me ayuda mucho, solo que en lugar de cursor lo que necesito es que las rectas que forman la cruz del cursor esten siempre tocando los extremos de la ventana. \nSaludos \nMiguel'),(62,307,0,6,1234914823,'error 9001','saludos a todos..\nresulta que hice un respaldo de mis fuentes, los pase a un win2003srv compile mi aplicacion y todo perfecto pero a la hora de correr el exe me manda el siguiente error:  Unrecoverable error 9001 *error recovery failure..\n\nel mismo proyecto lo tengo aun funcionando en mi antigua pc y funciona perfecto (aunque en alguna ocacion ya me habia dado ese error aun no se porque sale)\n\nalguien sabe como correguirlo?....o a que se debe?\n\nSaludos\nArnulfo'),(66,77,0,6,1235027795,'error al compilar winsock de smtp luis','Hola a todos, al compilar el fichero winsock.c de la clase smtp modificada por luis me arroja 2 warnings:\n\n--------------------ConfiguraciÃ³n: factu32 - Debug--------------------\nbcc32 -O2 -D__HARBOUR__ -M -c -v -IC:\\Harbour\\INCLUDE -Ic:\\borlAND\\bcc55\\INCLUDE -Ic:\\FWH\\INCLUDE -oWINSOCK.obj C:\\Users\\user\\DOCUME~1\\Projects\\factu32\\LIBEXT\\smtp\\WINSOCK.C\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nC:\\Users\\user\\DOCUME~1\\Projects\\factu32\\LIBEXT\\smtp\\WINSOCK.C:\n[color=#FF0000]Warning W8017 C:\\Users\\user\\DOCUME~1\\Projects\\factu32\\LIBEXT\\smtp\\WINSOCK.C 11: Redefinition of \'SOCKET\' is not identical\nWarning W8060 C:\\Users\\user\\DOCUME~1\\Projects\\factu32\\LIBEXT\\smtp\\WINSOCK.C 125: Possibly incorrect assignment in function HB_FUN_GETHOSTBYNAME[/color]\n\n\nel winsock.c que utilizo es:\n[code=fw]\n// WinSock.dll API support\n// TCP/IP InterNet connections from FiveWin !!!\n\n#define SOCKET _SOCKET\n\n#include &lt;WinTen.h&gt;\n#include &lt;Windows.h&gt;\n#include &lt;ClipApi.h&gt;\n#include &lt;WinSock.h&gt;\n\n#define SOCKET SOCKET\n\nvoid _strcpy( char *, char * );\n\n#ifndef __FLAT__\n   //#define SOCKADDR_IN sockaddr_in    // LKM huge error. won\'t complile under 16 bits if used!!!!!\n#else\n   #define _send send\n#endif\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_WSASTARTUP( PARAMS )\n#else\n    CLIPPER WSASTARTUP( PARAMS )\n#endif\n{\n   WSADATA wsa;\n\n   _retni( WSAStartup( 0x101, &amp;wsa ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_WSAASYNCSELECT( PARAMS ) // ( nSocket, nHWnd, nMsg, nModes ) --&gt; nReturn\n#else\n   CLIPPER WSAASYNCSE( PARAMS ) // LECT( nSocket, nHWnd, nMsg, nModes ) --&gt; nReturn\n#endif\n{\n   _retni( WSAAsyncSelect( _parni( 1 ), ( HWND ) _parnl( 2 ), _parni( 3 ),\n                           _parnl( 4 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_WSAGETLASTERROR( PARAMS ) // () --&gt; nError\n#else\n   CLIPPER WSAGETLAST( PARAMS ) // ERROR() --&gt; nError\n#endif\n{\n  _retni( WSAGetLastError() );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_WSACLEANUP( PARAMS )\n#else\n    CLIPPER WSACLEANUP( PARAMS )\n#endif\n{\n   _retni( WSACleanup() );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_GETHOSTNAME( PARAMS ) // () --&gt; cHostName\n#else\n   CLIPPER GETHOSTNAM( PARAMS ) // E() --&gt; cHostName\n#endif\n{\n   BYTE Name[ 255 ];\n\n   gethostname( ( char * ) Name, 255 );\n\n   _retc( ( char * ) Name );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_GETHOSTBYADDRESS( PARAMS ) // ( cIPAddress )\n#else\n   CLIPPER GETHOSTBYA( PARAMS ) // DDRESS( cIPAddress )\n#endif\n{\n   LONG lAddr;\n   struct hostent * pHostent;\n\n   if( ISCHAR( 1 ) )\n   {\n      lAddr = inet_addr( _parc( 1 ) );\n      pHostent = gethostbyaddr( ( LPSTR ) &amp;lAddr, 4, PF_INET );\n   }\n   else\n   {\n      lAddr = _parnl( 1 );\n      pHostent = gethostbyaddr( ( char * ) &amp;lAddr, 4, PF_INET );\n   }\n\n   // if( ( int ) pHostent != INADDR_NONE )      // GPF\'s with some servers with no associated host name\n   if( pHostent )                                // Changed by Jorge Mason, http://www.htcsoft.cl, Sept.2002\n      _retc( pHostent-&gt;h_name );\n   else\n      _retc( &quot;Unknown&quot; );                        // changed from &quot;&quot; to &quot;unknown&quot; by LKM\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_GETHOSTBYNAME( PARAMS ) // ( cName ) --&gt; cIPAddress\n#else\n   CLIPPER GETHOSTBYN( PARAMS ) // AME( cName ) --&gt; cIPAddress\n#endif\n{\n   struct hostent * pHost;\n   BYTE addr[ 20 ];\n\n   strcpy( ( char * ) addr, &quot;0.0.0.0&quot; );\n\n   if( pHost = gethostbyname( _parc( 1 ) ) )\n   {\n      wsprintf( ( char * ) addr, &quot;%i.%i.%i.%i&quot;,\n               ( BYTE ) pHost-&gt;h_addr[ 0 ], ( BYTE ) pHost-&gt;h_addr[ 1 ],\n               ( BYTE ) pHost-&gt;h_addr[ 2 ], ( BYTE ) pHost-&gt;h_addr[ 3 ] );\n   }\n\n   _retc( ( char * ) addr );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_GETSERVBYNAME( PARAMS ) // ( cServerName ) --&gt; nPort\n#else\n   CLIPPER GETSERVBYN( PARAMS ) // AME( cServerName ) --&gt; nPort\n#endif\n{\n   struct servent * pServer;\n\n   pServer = getservbyname( _parc( 1 ), _parc( 2 ) );\n\n   _retnl( IF( pServer, pServer-&gt;s_port, 0 ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_HTONS( PARAMS )   // ( nAddress ) --&gt; nAddress\n#else\n    CLIPPER HTONS( PARAMS )   // ( nAddress ) --&gt; nAddress\n#endif\n{\n   _retnl( htons( _parnl( 1 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_SOCKET( PARAMS )  // ( nAf, nType, nProtocol ) --&gt; nSocket\n#else\n    CLIPPER SOCKET( PARAMS )  // ( nAf, nType, nProtocol ) --&gt; nSocket\n#endif\n{\n   _retnl( socket( _parni( 1 ), _parni( 2 ), _parni( 3 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_BINDTOPORT( PARAMS )   // nSocket, nPort, nAddr1, nAddr2, nAddr3, nAddr4 --&gt; lSuccess\n#else\n    CLIPPER BINDTOPORT( PARAMS )   // nSocket, nPort, nAddr1, nAddr2, nAddr3, nAddr4 --&gt; lSuccess\n#endif\n{\n   SOCKADDR_IN sa; // sockaddr_in sa;\n\n   _bset( ( char * ) &amp;sa, 0, sizeof( sa ) );\n\n   sa.sin_family       = AF_INET;\n   sa.sin_port         = htons( _parni( 2 ) );\n/*\n   sa.sin_addr.s_net   = _parni( 3 );\n   sa.sin_addr.s_host  = _parni( 4 );\n   sa.sin_addr.s_lh    = _parni( 5 );\n   sa.sin_addr.s_impno = _parni( 6 );\n */\n   sa.sin_addr.s_addr  = htonl( INADDR_ANY );\n\n   _retl( bind( _parni( 1 ), ( SOCKADDR * ) &amp;sa, sizeof( sa ) ) == 0 );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_LISTEN( PARAMS )  //  nSocket, nBackLog --&gt; nResult\n#else\n    CLIPPER LISTEN( PARAMS )  //  nSocket, nBackLog --&gt; nResult\n#endif\n{\n   _retni( listen( _parni( 1 ), _parni( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_ACCEPT( PARAMS )  //  nSocket --&gt; nResult\n#else\n    CLIPPER ACCEPT( PARAMS )  //  nSocket --&gt; nResult\n#endif\n{\n   SOCKADDR_IN sa; // sockaddr_in sa;\n   int iLen = sizeof( sa );\n\n   sa.sin_family       = AF_INET;\n   sa.sin_port         = 0;\n   sa.sin_addr.s_net   = 0;\n   sa.sin_addr.s_host  = 0;\n   sa.sin_addr.s_lh    = 0;\n   sa.sin_addr.s_impno = 0;\n\n   _retni( accept( _parni( 1 ), ( SOCKADDR * ) &amp;sa, &amp;iLen ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_CLOSESOCKET( PARAMS ) // ( nSocket )  --&gt; nResult\n#else\n   CLIPPER CLOSESOCKE( PARAMS ) // T( nSocket )  --&gt; nResult\n#endif\n{\n   _retni( closesocket( _parni( 1 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_RECV( PARAMS )  //  nSocket --&gt; cResult\n#else\n    CLIPPER RECV( PARAMS )  //  nSocket --&gt; cResult\n#endif\n{\n   LPBYTE buffer = ( LPBYTE ) _xgrab( 8192 );\n   WORD wLen = recv( _parni( 1 ), ( char * ) buffer, 8192, 0 );\n\n   if( wLen &lt; 10000 )  // socket errors = 10000 + ...\n      _storclen( ( char * ) buffer, wLen, 2 );\n   else\n      _storclen( &quot;&quot;, 0, 2 );\n\n   _retni( wLen );\n   _xfree( buffer );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_SOCKETSEND( PARAMS )  //  nSocket, cText --&gt; nResult\n#else\n    CLIPPER SOCKETSEND( PARAMS )  //  nSocket, cText --&gt; nResult\n#endif\n{\n   WORD wLen = _parclen( 2 );\n\n   if( wLen &gt; 32350 )\n       wLen = 32350;\n\n   _retni( _send( _parni( 1 ), _parc( 2 ), wLen, 0 ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_SENDBINARY( PARAMS )  //  nSocket, pMemory --&gt; nResult\n#else\n    CLIPPER SENDBINARY( PARAMS )  //  nSocket, pMemory --&gt; nResult\n#endif\n{\n   WORD wLen = _parnl( 3 );\n\n   if( wLen &gt; 32350 )\n       wLen = 32350;\n\n   _retni( _send( _parni( 1 ), ( LPSTR ) _parnl( 2 ), wLen, 0 ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_CONNECTTO( PARAMS )  // nSocket, nPort, cIPAddr --&gt; lSuccess\n#else\n    CLIPPER CONNECTTO( PARAMS )  // nSocket, nPort, cIPAddr --&gt; lSuccess\n#endif\n{\n   SOCKADDR_IN sa; // sockaddr_in sa;\n\n   _bset( ( char * ) &amp;sa, 0, sizeof( sa ) );\n\n   sa.sin_family      = AF_INET;\n   sa.sin_port        = htons( _parni( 2 ) );\n   sa.sin_addr.s_addr = inet_addr( _parc( 3 ) );\n\n  _retnl( connect( _parni( 1 ), ( SOCKADDR * ) &amp;sa, sizeof( sa ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_SETSOCKOPT( PARAMS ) //  SOCKET s, int level, int optname, const char FAR * optval, int optlen\n#else\n    CLIPPER SETSOCKOPT( PARAMS ) //  SOCKET s, int level, int optname, const char FAR * optval, int optlen\n#endif\n{\n   BOOL bTrue = 1;\n\n   _retl( setsockopt( _parni( 1 ), _parni( 2 ), _parni( 3 ),\n                      ( char * ) &amp;bTrue, 2 ) == 0 );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_GETPEERNAME( PARAMS ) // ( nSocket )\n#else\n   CLIPPER GETPEERNAM( PARAMS ) // E( nSocket )\n#endif\n{\n   SOCKADDR_IN sa; // sockaddr_in sa;\n   int iLen = sizeof( sa );\n\n   _bset( ( char * ) &amp;sa, 0, sizeof( sa ) );\n   getpeername( _parni( 1 ), ( SOCKADDR * ) &amp;sa, &amp;iLen );\n   _retc( inet_ntoa( sa.sin_addr ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HARBOUR HB_FUN_SOCKETSELECT( PARAMS ) // ( nSocket )\n#else\n   CLIPPER SOCKETSELE( PARAMS ) // CT( nSocket )\n#endif\n{\n   struct timeval timeout;\n   fd_set setWrite;\n\n   FD_ZERO( &amp;setWrite );\n   FD_SET( ( /*WORD*/ unsigned int ) _parni( 1 ), &amp;setWrite );\n   timeout.tv_sec  = 0;\n   timeout.tv_usec = 0;\n\n   // _retl( select( 0, 0, &amp;setWrite, 0, &amp;timeout ) == 0 );\n   _retni( select( 0, 0, &amp;setWrite, 0, 0 ) );  // 0 instead &amp;timeout makes wait\n}                                                  // for ever.\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_INET_ADDR( PARAMS ) // cIPAddress --&gt; nAddress\n#else\n    CLIPPER INET_ADDR( PARAMS ) // cIPAddress --&gt; nAddress\n#endif\n{\n   _retnl( inet_addr( _parc( 1 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_GETPORT( PARAMS ) // nSocket\n#else\n    CLIPPER GETPORT( PARAMS ) // nSocket\n#endif\n{\n   SOCKADDR_IN sa; // sockaddr_in sa;\n   int iLen = sizeof( sa );\n\n   _bset( ( char * ) &amp;sa, 0, sizeof( sa ) );\n   getsockname( _parni( 1 ), ( SOCKADDR * ) &amp;sa, &amp;iLen );\n\n   _retni( ntohs( sa.sin_port ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_GETIP( PARAMS ) // nSocket\n#else\n    CLIPPER GETIP( PARAMS ) // nSocket\n#endif\n{\n   SOCKADDR_IN sa; // sockaddr_in sa;\n   int iLen = sizeof( sa );\n   BYTE addr[ 20 ];\n\n   _bset( ( char * ) &amp;sa, 0, sizeof( sa ) );\n   getsockname( _parni( 1 ), ( SOCKADDR * ) &amp;sa, &amp;iLen );\n   strcpy( ( char * ) addr, &quot;error&quot; );\n\n   wsprintf( ( char * ) addr, &quot;%i.%i.%i.%i&quot;,\n               ( BYTE ) sa.sin_addr.s_net, ( BYTE ) sa.sin_addr.s_host,\n               ( BYTE ) sa.sin_addr.s_lh, ( BYTE ) sa.sin_addr.s_impno );\n\n   _retc( ( char * ) addr );\n}\n\n//----------------------------------------------------------------------------//\n\n [/code]'),(67,1068,14600,3,1235053903,'Re: Thread on FWH','[code=fw]\n#include &quot;FiveWin.ch&quot;\n\nfunction Main()\n\n   local oDlg\n\n   DEFINE DIALOG oDlg TITLE &quot;Please wait...&quot;\n\n   ACTIVATE DIALOG oDlg NOWAIT CENTERED\n\n   cSqlComand = &quot;SELECT ID,Name,City,Country,Phone  FROM tbCustomers ORDER BY Name&quot;\n   USE \'tbCustomers\' AS cSqlComand ALIAS \'TEMP\' VIA \'MySQL\'\n\n   oDlg:End()\n\n   SELECT TEMP\n   GO TOP\n   BROWSE()\n\nreturn nil \n][/code]\n\nMr.Antonio,\n\nin time I am already make these way (with a static message) , but what I needed was \na progress bar refreshed by timer, but this only is possible\nwith a multi-thred support...\n\nanyway, thanks for your answer and attention'),(68,1140,0,6,1235077106,'Problemas SetCheck Tree','Neste caso da erro pos o Timer faz rodar varias vezes a mesma rotina continua nao marcando o\n\noTree:SetCheck( oMenu[ nI ], .T. )\n\n\nFUNCTION TreeChk()\nLOCAL   oDlg, oTree, oBtn\n\nLOCAL cQuery  := &quot;Select codigo,descricao FROM Plancont &quot;\n\nPRIVATE oMenu , oSubMenu  ,aPCont\n\n       aPCont := SqlArray( cQuery )\n       oMenu  := LenArray( aPCont  ), oSubMenu := Array( 3 )  \n\n       DEFINE DIALOG oDlg\n\n       @ 0, 0 TREEVIEW oTree OF oDlg SIZE 100, 150 CHECKBOXES\n\n       @ 3, 20 BUTTON oBtn PROMPT &quot;Test&quot;\n\n\n    \n\n       ACTIVATE DIALOG oDlg CENTERED ON INIT TreeInit( oTree, oDlg )\n      MsgInfo( oTree:aItems[ 1 ]:GetCheck() )\n\n    return nil\n\nFUNCTION TreeInit( oTree, oDlg )\n\n       local oTmr\n\n\n       DEFINE TIMER oTmr OF oDlg ACTION BuildTree( oTree, oDlg ), oTmr:End()\n\n       ACTIVATE TIMER oTmr\n\nRETURN nil\n\nFUNCTION BuildTree( oTree, oDlg )\nLOCAL nI\n\n      FOR nI = 1 To Len(aPCont)\n\n    \n       oMenu[ nI ] = oTree:Add( Str(aPCont[nI,1]) + &quot;-&quot; + Str(aPCont[nI,2])  )\n          oTree:SetCheck( oMenu[ nI ], .T. )\n\n      * oSubMenu[ 1 ] = oMenu[ 1 ]:Add( &quot;Imprimir...&quot; )\n      *  oMenu[ 2 ]:= oTree:Add( &quot;Proyectos&quot; )\n      *     oSubMenu[ 2 ]:= oMenu[ 2 ]:Add( &quot;Definir Proyectos&quot; )\n      *     oTree:SetCheck( oSubMenu[ 2 ], .T. )\n      *    oSubmenu[ 3 ]:= oMenu[ 2 ]:Add( &quot;Actualización datos&quot; )\n       NEXT \n\n       oTree:Expand()\n\n    return nil'),(70,428,14659,6,1235236562,'Re: Texto Vertical','te agradezco muchisimo, pude solucionarlo con el NETSCAPMENT\nSaludos\nMiguel'),(71,409,14665,6,1235261276,'Re: Tamaño de Imagen según la Resolucion','Puede que asi se pueda\n\n  local abmp[1]\n\n\n    aBmp[1] := TImage():Define( , &quot;.\\bitmaps\\empresa.jpg&quot;, oVentPrinc )\n\n  SET FONT OF oVentPrinc TO oFont\n  SET MESSAGE OF oVentPrinc 2007;                   // Mensaje que mostrar  al estar\n      TO &quot;Provando&quot; CENTERED\n\n  oVentPrinc:bPainted := {|hDC| PalBmpDraw( hDC, 0, 0, aBmp[1]:hBitmap,,oVentPrinc:nWidth,oVentPrinc:nHeight(),, .T.) }\n\nsaludos'),(72,409,14665,6,1235261534,'Re: Tamaño de Imagen según la Resolucion','local abmp[1]\n\n\n    aBmp[1] := TImage():Define( , &quot;.\\bitmaps\\empresa.jpg&quot;, oVentPrinc )\n\n  SET FONT OF oVentPrinc TO oFont\n  SET MESSAGE OF oVentPrinc 2007;                   // Mensaje que mostrar  al estar\n      TO &quot;Probando&quot; //CENTERED\n\n  oVentPrinc:bPainted := {|hDC| PalBmpDraw( hDC, 0, 0, aBmp[1]:hBitmap,,oVentPrinc:nWidth,oVentPrinc:nHeight(),, .T.) }'),(73,409,14665,6,1235320909,'Re: Tamaño de Imagen según la Resolucion','a ver'),(74,409,14665,6,1235321198,'Re: Tamaño de Imagen según la Resolucion','a Ver'),(75,1178,0,6,1235401631,'CONSULTA ADO','Tengo una duda, Despe mi principal , hago la conexion de todas las base de datos y hago la conexion con todas las tablas , estoy trabajando con mysql, cuando abro un formulario uso la conexion que ya esta abierta, pero no cierro la conexion al salir del fromulario. La conexion de todas las base de datos la cierro cuando sale de la aplicacion del todo.\n\nPregunta es correcto como lo hago, cuando uno trabaja con base de datos DBF cada vez que ejecuta un programa abre la base de datos y despe la cierras. Tengo entendi que con Mysql no es necesario hacer esto porque esto ya lo administra el motor.'),(76,207,0,6,1235525895,'generar o provocar un click desde codigo','Hola a Todos ;\nalguien puede decirme como generar un click del mouse desde codigo?\n\nDesde ya Gracias\natte Miguel Salas'),(77,970,0,3,1235559800,'TSBROWSE HELP ON HEADER','I need a change HEADER of a particular column in the implementation of TSBROWSE. Is it possible and how to perform this operation?\n\nThe selection is done through a combobox\n\nThanks\n\n[code]fonts de my program\nREDEFINE BROWSE oTbr ALIAS &quot;Estoque&quot; ID 500 OF oDlg\n\nADD COLUMN TO oTbr HEADER &quot;Código&quot;          SIZE 120 ALIGN DT_LEFT                  ORDER &quot;CODIGO&quot;  DATA TransField( Estoque-&gt;Est_Cod, oPub:wEstPic )\nADD COLUMN TO oTbr HEADER &quot;Descrição&quot;       SIZE 344 ALIGN DT_LEFT                  ORDER &quot;NOME&quot;    DATA Estoque-&gt;Est_Nom\nADD COLUMN TO oTbr HEADER &quot;Grupo&quot;           SIZE  70 ALIGN DT_CENTER                ORDER &quot;GRUPO&quot;   DATA Estoque-&gt;Est_FamCod + &quot;-&quot; + TransField( Estoque-&gt;Est_GruCod, &quot;@R 99.999&quot; )\nADD COLUMN TO oTbr HEADER &quot;Código de Barra&quot; SIZE 150 ALIGN DT_LEFT                                  DATA Estoque-&gt;Est_CodBar\nADD COLUMN TO oTbr HEADER &quot;Estoque&quot;         SIZE 100 ALIGN DT_RIGHT                                 DATA TransAmount( IIF( Estoque-&gt;Est_FamCod = &quot;0&quot;, 0, Estoque-&gt;Est_QtdSdo ), Estoque-&gt;Est_Fra, True )\n(1) ADD COLUMN TO oTbr HEADER &quot;Deposito&quot;        SIZE 100 ALIGN DT_RIGHT                                 DATA Estoque_TrazQuantidade( oVar, oTbr )\nADD COLUMN TO oTbr HEADER &quot;Venda&quot;           SIZE 100 ALIGN DT_RIGHT                                 DATA TransField( Estoque-&gt;Est_ValVda, TransUnitario( Estoque-&gt;Est_NumDec ) )\nADD COLUMN TO oTbr HEADER &quot;Aquisição&quot;       SIZE 100 ALIGN DT_RIGHT                                 DATA TransField( Estoque-&gt;Est_ValDco, _PicUnit4 )\nADD COLUMN TO oTbr HEADER &quot;Custo Médio&quot;     SIZE 100 ALIGN DT_RIGHT                                 DATA TransField( Estoque-&gt;Est_CstMed, _PicMoeCusto )\nADD COLUMN TO oTbr HEADER &quot;1&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;2&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;3&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;4&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;5&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;6&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;7&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;8&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;9&quot;               SIZE  40 ALIGN nMakeLong( , DT_CENTER )\nADD COLUMN TO oTbr HEADER &quot;Grupo Principal&quot; SIZE 150 ALIGN DT_LEFT                  ORDER &quot;GRUPO&quot;   DATA Fetch( Left( Estoque-&gt;Est_GruCod, 2 ) + Space(3), &quot;GrupoProduto&quot;, &quot;Est_GruNom&quot;, &quot;Codigo&quot; )\nADD COLUMN TO oTbr HEADER &quot;Familia&quot;         SIZE 100 ALIGN DT_LEFT                  ORDER &quot;FAMILIA&quot; DATA ASeek( Estoque-&gt;Est_FamCod, oPub:aCodFamilia, oPub:aTabFamilia )\nADD COLUMN TO oTbr HEADER &quot;Fabricante&quot;      SIZE 150 ALIGN DT_LEFT                  ORDER &quot;MARCA&quot;   DATA Fetch( &quot;201&quot; + Estoque-&gt;Est_FabCod, &quot;TabArray&quot;, &quot;Tab_Nom&quot;, &quot;Codigo&quot; )\n\nADD SUPER HEADER TO oTbr FROM COLUMN  1 TO COLUMN  4 COLORS CLR_BLACK, oPub:nClrBrush 3DLOOK FONT oPub:hFntBarra TITLE &quot;Produto&quot;\nADD SUPER HEADER TO oTbr FROM COLUMN  5 TO COLUMN  6 COLORS CLR_BLACK, oPub:nClrBrush 3DLOOK FONT oPub:hFntBarra TITLE &quot;Saldo&quot;\nADD SUPER HEADER TO oTbr FROM COLUMN  7 TO COLUMN  9 COLORS CLR_BLACK, oPub:nClrBrush 3DLOOK FONT oPub:hFntBarra TITLE &quot;Valor de&quot;\nADD SUPER HEADER TO oTbr FROM COLUMN 10 TO COLUMN 18 COLORS CLR_BLACK, oPub:nClrBrush 3DLOOK FONT oPub:hFntBarra TITLE &quot;Áreas&quot;\nADD SUPER HEADER TO oTbr FROM COLUMN 19 TO COLUMN 21 COLORS CLR_BLACK, oPub:nClrBrush 3DLOOK FONT oPub:hFntBarra TITLE &quot;Informações&quot;\n\noTbr:cAlias                := &quot;Estoque&quot;\noTbr:l2007                 := True\noTbr:lVScroll              := True\noTbr:nHeightSuper          := 25\noTbr:nHeightHead           := 30\noTbr:nHeightCell           := 25\noTbr:bKeyDown              := {|nKey| Estoque_TeclaFuncao( nKey, oDlg, oTbr, oVar ) }\noTbr:aColumns[10]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 1, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[11]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 2, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[12]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 3, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[13]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 4, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[14]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 5, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[15]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 6, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[16]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 7, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[17]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 8, 1 ) ), hTicket, 0 ) }\noTbr:aColumns[18]:uBmpCell := {|| IIF( EA_CtoL( Substr( Estoque-&gt;Est_Are, 9, 1 ) ), hTicket, 0 ) }\noTbr:bLDblClick            := {|| Estoque_Consulta( oTbr, oVar ) }\n\noTbr:SetOrder( 2 )\noTbr:GoTop()\noTbr:ChangeFont( oPub:hFntBarra, , 2 )\noTbr:SetIndexCols( 2, 3, 4, 5 )\noTbr:SetColor( { 2, 4, 5, 6, 11, 12, 14, 15 }                                                ,;\n               { {|| IF( oTbr:nLogicPos % 2 = 0, oPub:nClrBrowse_021, oPub:nClrBrowse_022 ) },;\n                 oPub:nClrBrowse_04                                                          ,;\n                 oPub:nClrBrowse_05                                                          ,;\n                 oPub:nClrBrowse_06                                                          ,;\n                 oPub:nClrBrowse_11                                                          ,;\n                 oPub:nClrBrowse_12                                                          ,;\n                 oPub:nClrBrowse_14                                                          ,;\n                 oPub:nClrBrowse_15 } )\n\nACTIVATE DIALOG oDlg ON INIT ( oDlg:Move( 0, 0 ), Estoque_BuildMenu( oDlg, oTbr, oVar ) )\n\noVar:Release()\n\nEA_GetOpenFileName( aFiles, False )\nDeleteObject( oDlg  )\nDeleteObject( oTbr  )\nDeleteObject( oHand )\nDeleteObject( oVar  )\nSet_Restore( aSets )\n\nReturn( Nil )\n\n//******************************************************************************************\n*--------------------------------------------------------------------------\nSTATIC FUNCTION Estoque_BuildMenu( oDlg, oTbr, oVar )\n*--------------------------------------------------------------------------\n\nLOCAL oDlgMenu, oHand, oDlgBar, oPreco, oNovo, oAre\n\nMENU oDlgMenu 2007\nMENUITEM &quot;&amp;Arquivo&quot;\n    MENU\n    MENUITEM &quot;Produtos&quot;  + Chr(9) + &quot;Insert&quot; ACTION Estoque_Get_Registro( oTbr, oVar, True, True  )\n    MENUITEM &quot;Serviços&quot;  + Chr(9) + &quot;Ctrl+S&quot; ACTION Estoque_Get_Registro( oTbr, oVar, True, False )\n    SEPARATOR\n    MENUITEM &quot;Modificar&quot; + Chr(9) + &quot;Ctrl+M&quot; ACTION Estoque_Get_Registro( oTbr, oVar, False )\n    MENUITEM &quot;Eliminar&quot;  + Chr(9) + &quot;Delete&quot; // ACTION Estoque_EnviaObsoleto( oTbr, oVar )\n    SEPARATOR\n    MENUITEM &quot;Fechar&quot;    + Chr(9) + &quot;Alt+F4&quot; ACTION oDlg:End() RESOURCE &quot;16_Close&quot;\n    ENDMENU\n\nMENUITEM &quot;&amp;Editar&quot;\n    MENU\n    MENUITEM &quot;Deposito&quot;                 + Chr(9) + &quot;Ctlr+D&quot; ACTION Estoque_DepositoArea( oTbr, oVar )\n    MENUITEM &quot;Composição de Kits&quot;                           WHEN False\n    SEPARATOR\n    MENUITEM &quot;Preço de Compras&quot;         + Chr(9) + &quot;Ctlr+C&quot; ACTION Estoque_Preco_Compra( oTbr )\n    MENUITEM &quot;Acordo Especial de Preço&quot; + Chr(9) + &quot;Ctlr+V&quot; ACTION Estoque_Preco_Venda( oTbr, oVar )\n    ENDMENU\n\nMENUITEM &quot;E&amp;xibir&quot;\n    MENU\n    MENUITEM &quot;Ficha do Produto&quot; + Chr(9) + &quot;Enter&quot;  ACTION Estoque_Consulta( oTbr, oVar )\n    MENUITEM &quot;Ficha de Movimentação&quot;\n    SEPARATOR\n    MENUITEM &quot;Localizar&quot;        + Chr(9) + &quot;Ctlr+L&quot; ACTION SeekIt( MakeEmpty( Estoque-&gt;( OrdKeyVal() ) ), oTbr, &quot;Estoque&quot; ) RESOURCE &quot;16_Search&quot;\n    ENDMENU\n\nMENUITEM &quot;&amp;Dados&quot;\n    MENU\n    MENUITEM &quot;Auto Filtro&quot;  ACTION Estoque_Filtro( oTbr, oVar, True  )\n    MENUITEM &quot;Mostrar Tudo&quot; ACTION Estoque_Filtro( oTbr, oVar, False )\n    SEPARATOR\n    MENUITEM &quot;Classificar&quot;  ACTION DB_IndexOrder( &quot;Estoque&quot;, oTbr ) RESOURCE &quot;16_Indice&quot;\n    ENDMENU\n\nMENUITEM &quot;&amp;Impressão&quot;\n    MENU\n    MENUITEM &quot;Relatório&quot; RESOURCE &quot;16_Printer&quot;\n    MENUITEM &quot;Etiqueta&quot;  RESOURCE &quot;16_Label&quot;\n    ENDMENU\nENDMENU\n\noDlg:SetMenu( oDlgMenu )\n\nDEFINE CURSOR oHand HAND\nDEFINE BUTTONBAR oDlgBar SIZE oPub:nBarLargura,30 OF oDlg CURSOR oHand\n\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_New&quot;     TOOLTIP &quot;Incluir Produto&quot;       NOBORDER ACTION Estoque_Get_Registro( oTbr, oVar, True, True  )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Write&quot;   TOOLTIP &quot;Incluir Serviço&quot;       NOBORDER ACTION Estoque_Get_Registro( oTbr, oVar, True, False )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Edit&quot;    TOOLTIP cBar_Modifica           NOBORDER ACTION Estoque_Get_Registro( oTbr, oVar, False )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Delete&quot;  TOOLTIP cBar_Deleta             NOBORDER //ACTION bPerform( 72, {|| Estoque_EnviaObsoleto( oTbr, oVar ) } )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Open&quot;    TOOLTIP cBar_Registro     GROUP NOBORDER ACTION Estoque_Consulta( oTbr, oVar )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Search&quot;  TOOLTIP cBar_Localiza           NOBORDER ACTION SeekIt( MakeEmpty( Estoque-&gt;( OrdKeyVal() ) ), oTbr, &quot;Estoque&quot; )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Filter&quot;  TOOLTIP cBar_Filtro       GROUP NOBORDER ACTION Estoque_Filtro( oTbr, oVar, True  )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Cancel&quot;  TOOLTIP cBar_Tudo               NOBORDER ACTION Estoque_Filtro( oTbr, oVar, False )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Indice&quot;  TOOLTIP cBar_Classifica         NOBORDER ACTION DB_IndexOrder( &quot;Estoque&quot;, oTbr )\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Printer&quot; TOOLTIP cBar_Relatorio    GROUP NOBORDER\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Label&quot;   TOOLTIP cBar_Etiqueta           NOBORDER\nDEFINE BUTTON OF oDlgBar RESOURCE &quot;16_Close&quot;   TOOLTIP cBar_Encerra      GROUP NOBORDER ACTION oDlg:End()\n\noDlgBar:bRClicked := {|| Nil }\noDlgBar:l2007     := True\n\n(1) @ 0.30,107 COMBOBOX oAre VAR oVar:nArea ITEMS oVar:aAreaEstoque OF oDlgBar SIZE 150, 200 FONT oPub:hFntBold ON CHANGE Estoque_Filtro_Area( oTbr, oVar, oAre )\n\nDeleteObject( oDlgMenu )\nDeleteObject( oHand    )\nDeleteObject( oDlgBar  )\nDeleteObject( oPreco   )\nDeleteObject( oNovo    )\n\nReturn( Nil )[/code]\n\n(1) header to be changed\n\nElias Abrão Júnior\nSão Paulo - Brasil  :oops:  :oops:'),(78,264,12217,4,1235589688,'Re: Using ADOCE','Antonio.\nExists libs or functions for connect with ms-sql ? ( via ado )\nRegards'),(79,135,0,4,1235725622,'compress and decompress zip files','I have found the source for compress and decompress zip files \nbut i don\'t know how integrate into my fwppc program\n \nplease help me\n \nThanks,\n \nSanto Venezia'),(81,542,0,6,1236069826,'BUTTON','Hola desearía saber como puedo cambiar los colores de los botones que defino en esta ventana, he mirado en el foro y pone que lo haga segun lo hago pero no cambia nada alguien me podria ayudar:\n\nDEFINE WINDOW oDlgw MDICHILD OF oVentPrinc PIXEL FROM 0, 0 TO 140,800 TITLE &quot;Gestión de Actividades&quot; COLOR escri10, fondo10 STYLE nOr(WS_CAPTION)\n  @ 10,  8 SAY &quot;Número&quot;                        OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 10,324 SAY &quot;Epígrafe&quot;                      OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 10,655 SAY &quot;C.N.A.E.&quot;                      OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 30,  8 SAY &quot;Actividad&quot;                     OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 10, 72 say odlg01 VAR str(numero,6,0)      OF oDlgw PIXEL COLOR escri30, fondo30 SIZE  48,18 RIGHT BORDER\n  @ 10,384 say odlg02 VAR &quot; &quot; + epigrafe       OF oDlgw PIXEL COLOR escri30, fondo30 SIZE  48,18       BORDER\n  @ 10,724 say odlg03 VAR &quot; &quot; + cnae           OF oDlgw PIXEL COLOR escri30, fondo30 SIZE  48,18       BORDER\n  @ 30, 72 say odlg04 VAR &quot; &quot; + actividad      OF oDlgw PIXEL COLOR escri30, fondo30 SIZE 700,18       BORDER\n  @ 60,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme01 SIZE 780,28\n  @ 86,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme02 SIZE 780, 2\n  @ 60,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme03 SIZE 780, 2\n  @280,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme02 SIZE  30, 2\n  @ 60,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme03 SIZE  30, 2\n  @ 65, 10 BUTTON mBot01 PROMPT &quot;&amp;Alta&quot;        OF oDlgw PIXEL ACTION altaacti() SIZE 80, 18\n  @ 65, 95 BUTTON mBot02 PROMPT &quot;&amp;Baja&quot;        OF oDlgw PIXEL ACTION bajaacti() SIZE 80, 18\n  @ 65,180 BUTTON mBot03 PROMPT &quot;&amp;Modificar&quot;   OF oDlgw PIXEL ACTION modiacti() SIZE 80, 18\n  @ 65,265 BUTTON mBot04 PROMPT &quot;&amp;+ Siguiente&quot; OF oDlgw PIXEL ACTION siguacti() SIZE 80, 18\n  @ 65,350 BUTTON mBot05 PROMPT &quot;&amp;- Anterior&quot;  OF oDlgw PIXEL ACTION anteacti() SIZE 80, 18\n  @ 65,435 BUTTON mBot06 PROMPT &quot;&amp;Salir&quot;       OF oDlgw PIXEL ACTION saliacti() SIZE 80, 18\n  odlg01:SetFocus()\nACTIVATE WINDOW oDlgw NORMAL ON INIT oDlgw:Center()\nmBot01:SetColor(escri10,fondo10)\nmBot02:SetColor(escri20,fondo20)\nmBot03:SetColor(escri30,fondo30)\nmBot04:SetColor(fondo10,escri10)\nmBot05:SetColor(fondo20,escri20)\nmBot06:SetColor(fondo30,escri30)\n\nGracias\n\nCarlos'),(82,542,0,6,1236070232,'Colores en un BUTTON','Hola que tal:\n\nQuisiera saber que hago mal ya que quiero cambiar los colores de los botones y lo he echo segun he visto en el foro pero no cambian a los que quiero yo, alguien me puede ayudar. El codigo es el siguiente:\n\n[code=fw]DEFINE WINDOW oDlgw MDICHILD OF oVentPrinc PIXEL FROM 0, 0 TO 140,800 TITLE &quot;Gestión de Actividades&quot; COLOR escri10, fondo10 STYLE nOr(WS_CAPTION)\n  @ 10,  8 SAY &quot;Número&quot;                        OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 10,324 SAY &quot;Epígrafe&quot;                      OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 10,655 SAY &quot;C.N.A.E.&quot;                      OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 30,  8 SAY &quot;Actividad&quot;                     OF oDlgw PIXEL COLOR escri10, fondo10 SIZE 120,18\n  @ 10, 72 say odlg01 VAR str(numero,6,0)      OF oDlgw PIXEL COLOR escri30, fondo30 SIZE  48,18 RIGHT BORDER\n  @ 10,384 say odlg02 VAR &quot; &quot; + epigrafe       OF oDlgw PIXEL COLOR escri30, fondo30 SIZE  48,18       BORDER\n  @ 10,724 say odlg03 VAR &quot; &quot; + cnae           OF oDlgw PIXEL COLOR escri30, fondo30 SIZE  48,18       BORDER\n  @ 30, 72 say odlg04 VAR &quot; &quot; + actividad      OF oDlgw PIXEL COLOR escri30, fondo30 SIZE 700,18       BORDER\n  @ 60,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme01 SIZE 780,28\n  @ 86,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme02 SIZE 780, 2\n  @ 60,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme03 SIZE 780, 2\n  @280,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme02 SIZE  30, 2\n  @ 60,  5 say &quot;&quot;                              OF oDlgw PIXEL COLOR fondo20, colme03 SIZE  30, 2\n  @ 65, 10 BUTTON mBot01 PROMPT &quot;&amp;Alta&quot;        OF oDlgw PIXEL ACTION altaacti() SIZE 80, 18\n  @ 65, 95 BUTTON mBot02 PROMPT &quot;&amp;Baja&quot;        OF oDlgw PIXEL ACTION bajaacti() SIZE 80, 18\n  @ 65,180 BUTTON mBot03 PROMPT &quot;&amp;Modificar&quot;   OF oDlgw PIXEL ACTION modiacti() SIZE 80, 18\n  @ 65,265 BUTTON mBot04 PROMPT &quot;&amp;+ Siguiente&quot; OF oDlgw PIXEL ACTION siguacti() SIZE 80, 18\n  @ 65,350 BUTTON mBot05 PROMPT &quot;&amp;- Anterior&quot;  OF oDlgw PIXEL ACTION anteacti() SIZE 80, 18\n  @ 65,435 BUTTON mBot06 PROMPT &quot;&amp;Salir&quot;       OF oDlgw PIXEL ACTION saliacti() SIZE 80, 18\n  odlg01:SetFocus()\nACTIVATE WINDOW oDlgw NORMAL ON INIT oDlgw:Center()\nmBot01:SetColor(escri10,fondo10)\nmBot02:SetColor(escri20,fondo20)\nmBot03:SetColor(escri30,fondo30)\nmBot04:SetColor(fondo10,escri10)\nmBot05:SetColor(fondo20,escri20)\nmBot06:SetColor(fondo30,escri30)[/code]\n\nUn saludo\n\nCarlos[code=fw] [/code]'),(339,1030,0,6,1290171335,'Codigo de barras','Hola a todos! Tengo la necesidad de imprimir codigos de barras para facturacion electronica. Alguien sabe como imprimir codigos de barras con la clase tprinter? Tengo una cadena de caracteres que necesito se conviertan en un codigo de barras.\n\nGracias y slds!'),(84,300,14829,3,1236377276,'Re: Jpeg to PDF','Thank you Manuel but i receive this erros:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_compress\' referenced from E:\\LANG\\FWH0805\\XH1.1.0\\LIB\\RTL.LIB|hbcomprs\nError: Unresolved external \'_uncompress\' referenced from E:\\LANG\\FWH0805\\XH1.1.0\\LIB\\RTL.LIB|hbcomprs\nError: Unresolved external \'_zError\' referenced from E:\\LANG\\FWH0805\\XH1.1.0\\LIB\\RTL.LIB|hbcomprs'),(85,237,0,6,1236463724,'Consumo excesivo de memoria generando pdf','Tengo la necesidad de generar 9000 boletas, las tengo TODAS en vista preliminar y el cliente quiere que salgan todas en el mismo momento.\n\nEn oDevice:aMeta estan los nombres de cada emf ( se los asigné yo de antemano ya que requiero de un nombre específico para cada uno ) \ny necesito generar un pdf por cada archivo ( uso pdfcreator ), por lo que hice las siguiente modificación a Rpreview, agregándole una opcion aparte:\n\n[code=fw]\n         aFiles := oDevice:aMeta\n         FOR nFor := 1 TO Len( aFiles )\n\n               cFile := cFileNoPath( aFiles[ nFor ] )\n               cFile := cFileNoExt( cFile )\n               StartDoc( hDC, cFile )\n\n                    StartPage( hDC )\n                    hMeta := GetEnhMetaFile( aFiles[nFor] )\n                    PlayEnhMetaFile( hDC, hMeta,, .T. )\n                    DeleteMetafile( hMeta )\n                    EndPage( hDC )\n\n               EndDoc( hDC )\n               SysRefresh()\n\n         NEXT\n [/code]\n\nEl tema es que al cabo de unos momentos, los pdf se generan perfectamente pero el sistema [b]no libera memoria y llega hasta ocupar 2 gb de la ram[/b]!!!\nNo entiendo por que no libera memoria. Que otra manera hay de hacerlo???   :? \n\nDesde ya muchas gracias!\nUso fwh, bcc55, xhb'),(86,1486,0,2,1236554027,'Error de Corrupción _DBFCDX/8006','Estimados Listeros\n\nYa estoy Programado en FWH + xHarbour pero tube que modificar un programa que esta en 16 bits (este error ya lo había arreglado pero hace mucho tiempo y se me olvido), y una de las tablas esta ordenada por una campo fecha llamado &quot;TERMINO&quot;, uso indices CDX y cuando edito en una venta la fecha y la modifico al grabar me aparece el error _DBFCDX/8006 Se detecto corrupción TERMINO. Ocupe el Prometheus 2000 y ocurrio también un error -DBSKIPPER(0) Errror Interno 1210 uso FW 2.0, Blinker 5.1 y Clipper 5.3b.\n\nDesde ya Gracias por su ayuda \n\nSaludos Waldemar'),(87,1689,0,6,1236581094,'ToolTip','Hi, \n\noGet:ShowToolTip(,,&quot;test&quot;)\n\nNot show tooltip !?\n\nMilos'),(88,222,14889,6,1236829919,'Re: Cortar la image','http://freeimage.sourceforge.net/download.html'),(90,292,0,6,1237446520,'error en linkado','Error: Unresolved external \'_compress\' referenced from C:\\XHARBOUR9\\LIB\\RTL.LIB|\nhbcomprs\nError: Unresolved external \'_uncompress\' referenced from C:\\XHARBOUR9\\LIB\\RTL.LI\nB|hbcomprs\nError: Unresolved external \'_zError\' referenced from C:\\XHARBOUR9\\LIB\\RTL.LIB|hb\ncomprs'),(91,450,0,6,1237494294,'Como pegar a Data(fecha) e Hora de um Arquivo no FTP','Olá\n\nComo obter essas informações sem usar a classe TipClientFtp do xHarbour ?\n\nGracias'),(94,227,0,6,1237983552,'Treeview','Olá amigos...\n\nComo retirar a scrollbar horizontal ?\n\nAbraços'),(93,517,0,7,1237911040,'Exemplo de aplicacção FWPPC','Amigos,\nBoa tarde\nTeria como os amigos mandarem exemplos de aplicaçoes para FWPPC,\njá mexi em todo o material do samples, mas queira era ver um aplicativo mesmo para tirar ideias de como fazer o meu.\nobrigado a todos'),(97,1677,14924,3,1238058035,'Re: How to add Selective Columns to XBrowse','Thanks for ur Reply :D \nRegards,\nSajith'),(98,422,15007,6,1238059908,'Re: Crear/Leer Archivos TXT o PRN','Si David.. eso y mucho mas ;)'),(99,953,0,3,1238101150,'Access Violation Converting A Screen DLL','I\'m having difficulty trying to run the rc2dll32.bat file to convert my resource file to 32 bits.  I was able to export the 16 bit screens to an RC format, but when I run the rc2dll32.bat file I get the following error message:\n\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\n\nc:\\FWH\\dll&gt;c:\\bcc55\\bin\\ilink32 /Tpd c:\\bcc55\\lib\\c0d32.obj screen32.obj, michae(cut off)\nl.dll,,c:\\bc55\\lib\\cw32.lib c:\\bcc55\\lib\\import32.lib,, michael.res\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Access violation.  Link terminated.\nWarning: Unable to perform incremental link - performing full link...\nFatal: Access violation.  Link terminated.\n\nThere is an output file that is only about 43K, much smaller than the original dll file.\n\nDoes anyone have any clue on what I should be looking for in my 16 bit screen shots that might be resulting this sort of error message?'),(100,223,0,6,1238170941,'FiveHCM','Olá,\nEstou com um problema no FiveHCM, que não encontra algumas funções, alguém poderia me informar o que posso acertar para parar o erro ?\n\nFiveHCM.lib(SOUND.obj) : error LNK2019: unresolved external symbol __imp__sndPlaySoundA@8 referenced in function _HB_FUN_SNDPLAYSOUND\nFiveHCM.lib(LZEXPAND.obj) : error LNK2019: unresolved external symbol _LZClose@4 referenced in function _HB_FUN_LZCOPYFILE\nFiveHCM.lib(LZEXPAND.obj) : error LNK2019: unresolved external symbol _LZCopy@8 referenced in function _HB_FUN_LZCOPYFILE\nFiveHCM.lib(LZEXPAND.obj) : error LNK2019: unresolved external symbol _LZOpenFileA@12 referenced in function _HB_FUN_LZCOPYFILE\n\nFWH 9.01'),(101,953,15044,3,1238272714,'Re: Problems converting my 16 bit resource file.','Actually, I do have some bitmaps in that file, mostly as legacy bitmaps.   I can remove and recreate them if that is what is necessary.'),(102,1328,15074,4,1238413236,'Re: Windows CE emulator (ARM)','Antonio,\n\nYou can downlod it in following address.\n\nhttp://www.microsoft.com/downloads/details.aspx?FamilyID=dd567053-f231-4a64-a648-fea5e7061303&amp;displaylang=en#filelist\n\nTomas.'),(103,1328,15074,4,1238413346,'Re: Windows CE emulator (ARM)','Antonio,\n\nYou can downlod it in following address.\n\nhttp://www.microsoft.com/downloads/details.aspx?FamilyID=dd567053-f231-4a64-a648-fea5e7061303&amp;displaylang=en#filelist\n\nTomas.'),(104,1328,15074,4,1238413428,'Re: Windows CE emulator (ARM)','Antonio,\n\nYou can downlod it in following address.\n\nhttp://www.microsoft.com/downloads/details.aspx?FamilyID=dd567053-f231-4a64-a648-fea5e7061303&amp;displaylang=en#filelist\n\nTomas.'),(105,1328,15074,4,1238413616,'Re: Windows CE emulator (ARM)','Antonio,\n\nYou can downlod it in following address.\n\nhttp://www.microsoft.com/downloads/details.aspx?FamilyID=dd567053-f231-4a64-a648-fea5e7061303&amp;displaylang=en#filelist\n\nTomas.'),(106,1328,15074,4,1238413864,'Re: Windows CE emulator (ARM)','Antonio,\n\nYou can downlod it in following address.\n\nhttp://www.microsoft.com/downloads/details.aspx?FamilyID=dd567053-f231-4a64-a648-fea5e7061303&amp;displaylang=en#filelist\n\nTomas.'),(107,29,15065,20,1238436692,'Re: Confrontare due orari','Ho già risolto con TimeToSec(), grazie comunque per il suggerimento.'),(108,495,0,6,1238447618,'ayuda con Excel','amigos\n\nayuda por favor....\n\nabro un planilla excel para cargar sus datos en una dbf al abrirla y leer sus datos no tengo problema, pero si cancelo la apertura aparece este error y me bota el exe.\n\n  Error occurred at: 30/03/2009, 17:00:25\n   Error description: Error Excel.Application:WORKBOOKS/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   \n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: FT201b.prg =&gt; T201B:IMPORTAR_DATOS(288)\n   Called from: FT201b.prg =&gt; (b)T201B:NEW(190)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: FT.prg =&gt; TAPP:NEW(307)\n   Called from: FT.prg =&gt; MAIN(114)\n\neste el código de apertura y funciona perfecto\n\nLocal oExcel, oHoja, nRow, nCols, aFor, bFor, nAt, aDatos := Array(03)\n\n oExcel := TOleAuto():New( &quot;Excel.Application&quot; )\n oExcel:WorkBooks:Open(cGetFile(&quot;*.XLS&quot;, &quot;Seleccione Fichero&quot;))\n oHoja := oExcel:Get( &quot;ActiveSheet&quot; )\n\n    nRows := oHoja:UsedRange:Rows:Count()\n    nCols := oHoja:UsedRange:Columns:Count()\nFOR aFor = 1 to nRows\n   For bFor =1 to nCols\n         nAt := Len( aDatos )\n         xValue := oHoja:Cells(aFor,bFor):Value\n         aDatos[nAt][bFor] := xValue\n         SysRefresh()\n   NEXT\n      Memory(-1)\nNEXT\noExcel:Quit()\n\n....\n...\n\nAlguna ayuda....'),(109,495,15087,6,1238453391,'Re: ayuda con Excel','Cesar\n\nMuchas Gracias\n\nfunciono Perfecta la ayuda.\n\nsalu2\n\nMauro'),(110,161,15086,3,1238503948,'Re: Belgium VAT-list','Michel,\n\nHet is inderdaad zoals ik dacht dat de IBAN-nummers afhankelijk zijn van de Bank.\nZe hebben me al deze link doorgegeven om de nummers \'manueel\' zelf te berekenen.\n\n[url]http://nl.iban-bic.com/calculate.html?&amp;L=3[/url]\n\nMarc'),(112,124,0,6,1239049920,'Consulta sobre TdosPrn','Consulta:\nLa clase TdosPrn, que tiene soporte USB, funciona sobre impresoras WinPrinter?\nGracias!'),(132,300,0,6,1240531672,'para Antonio Linares sobre tdatabase','Olá Antonio,\n\nUtilizo la classe tdatabase de fwh, utilizo tambem varios arquivos temporários com la classe tdatabase\nOlhando la database.prg a cada obj:Save() es executado uno commit. \n\nSe utilizo assim:\n\nDo While ..... .and. ! oArq1:Eof()\n     oArq1:Load()\n     oTempor:Blank()\n     oTempor:CODIGO := oArq1:CODIGO\n     oTempor:Append()\n     oTempor:Save() // logo após aqui la tdatabase executa uno commit\n     oArq1:Skip(+1)\n     Loop\nEnddo\noTempor:Commit() // No seria necessário apenas uno commit aqui?\n\nEl tempo de processo és muy mas rápido se retiro ::commit del metodo Save()\nEstoy certo en retirá-lo?\n\nGracias.\nWanderson.'),(114,124,0,1,1239050019,'Question about TdosPrn','Hi, the class TdosPrn, that supports USB, works on WinPrinters?\nThanks!'),(117,552,0,6,1239230894,'Tela DOS abre junto','Buenas, \n\nPois es esto Antonio, \n\nEn mi arquivo .rmk defino GTGUI.LIB e me da el erro abajo:\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	C:\\BCC55\\bin\\ilink32.exe -Gn -aa -Tpe -s -v -IC:\\Belle3 @MAKE0000.@@@\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from D:\\XHB902\\LIB\\VM.LIB|mainstd\n\n** error 2 ** deleting C:\\Belle3\\flash.exe\n\nSi pongo el GTWIN.LIB no da error pero tengo duas telas, una DOS e otra Grafica, que hago mal??\n\nSaludos desde Brasil,\n\n[]´s'),(120,409,15228,6,1239500539,'Re: AYUDA CON TSBROWSE Y ADO','Amigo, bueno se puede hacer con array y no importa si la base es grande solo tienes q paginar, asi como lo hace google por pagina, solo filtra y listo\n\nsaludos'),(122,1312,0,3,1239536185,'My RibbonBar + ExplorerBar','Hi ! Antonio..\n\nFWH is the Best .. I created OCX with VB .. then use in FWH  :lol: \n\nFriend\'s\n\nPlease vote My OCX :\nhttp://rapidshare.com/files/220398469/FafiOcx.rar.html\n\nInclude main.exe created by :\n1. FWH 8.05\n2. xHB April 2009 \n\nBest Regards\nFafi'),(124,1397,0,3,1239592667,'Conexion Local o Remota','Hola a Todos\nExiste alguna forma de saber si al conectarme a una base de datos MySql me conecte via Local o Remota, esto es para saber cuando hacer una paginacion en el xBrowse, ya que localmente es rapido pero cuando acceso por internet es lento y la idea es que sea transparente al Usuario, ya que le doy la alternativa al usuario que escriba la Ip, el nombre del Equipo, etc, el problema es saber segun lo que escriba si es remoto o local, tomando en cuenta que el usuario puede utilizar un servicio para las Ip dinamicas como es por ejemplo [b]nombreusuario.dynalias.com[/b]\n\nGracias de antemano'),(125,1361,0,6,1239749767,'NOMBRE DE OBJETOS','Gusto de saludarlos.\n\nQuiero hacer una consulta actualmente tengo un sistema, que tiene los .OBJ pero no  los .PRG uno de esos PRG genera un Objeto Button Bar, yo necesito de alguna forma saber el nombre del objeto ya sea para desaparecerlo o agregarle mas botones, se podrá?\n\nMuchas Gracias \n\nAtentamente,\nJulio Ponce'),(127,1371,15300,6,1240210050,'Re: UEstudio','A mi en Vista Home Premium me funciona bien. Versión 09.00\n\nSaludos!'),(128,1178,0,6,1240263633,'Preguna sobre el BRUSH','Como hago para que me ocupe la imagen en toda la pantalla cuando utilizo el brush.\n\nEste es el codigo que tengo.\n\n    DEFINE WINDOW oWnd FROM 0,0 TO ScreenHeight, ScreenWidth PIXEL MDI; \n    TITLE &quot;Sistema  ;\n    MENU BuildMenu( );   \n    COLOR &quot;W+/B&quot; ICON oIco  \n\n       DEFINE BRUSH oBrush99   NAME &quot;logo2&quot; // STYLE NULL \n       SET BRUSH OF oWnd:oWNDCLIENT TO oBrush99\n.\n...\n..\n   ACTIVATE WINDOW oWnd'),(129,37,15277,6,1240408468,'Re: Conectar con BD desde otros puestos','Correcto !!'),(135,190,15102,3,1241154136,'Re: Codejock RibbonBar first tests','Hi Friends,\n\nHas anybody tried Office2003 themes in CodeJock ?, If so please guide me how to do it.\n\nThanks, \n\n- Ramesh Babu P'),(136,1719,0,8,1241277114,'Ftp','Holla,\nSoy nuevo aquí, sé que ahora la herramienta FiveWin. Estoy utilizando ahora para poner a prueba la versión con fw24 clipper 5.2e, blinker 7\nMe gustaría comenzar haciendo pequeños programas en las ventanas, pequeños programas que no pueden hacer en clipper 5.2e\nNecesito un acceso FTP, enviar y recibir archivos.\nAlguien me podría dar una pista, ¿dónde puedo encontrar la LIB para hacer esta operación?\n\nNote:\nI xbase programador por más de 15 años, el buque insignia de Linux usando actualmente (4 años), hacerlo muy fácilmente en el sistema operativo Linux. Pero tengo que hacer algunos pequeños programas para Windows, que se inicia con este pequeño programa para enviar y recibir archivos en servidores FTP.'),(137,1719,0,5,1241277256,'FTP','Hi,\nI am new here, I know the tool fivewin now. I am using for now to test the version with fw24 clipper 5.2e, blinker 7\nI would like to start making small programs in windows, small programs that can not do in clipper 5.2e\nI need a ftp access, send and receive files.\nSomeone could give me a hint, where can I find LIB\'s to do this transaction?\n\nNote:\nI xbase programmer for over 15 years, currently using flagship linux (4 years), do it very easily in linux OS. But I need to do some small programs for Windows, I start with this little program for sending and receiving files on FTP servers.'),(144,552,0,6,1242398203,'Antonio, no sé lo que está sucediendo','Buenos Dias Antonio, \n\nTengo esta función\n[code=fw]\nFunction XX( oDlg, oBCli_1, oBCli_2 )\n\n   lapm := ANAM_08( oWnd, PVALORF, TCOD, TFIL, TUNID, TDATA, aJPG_1, n_1, aJPG_2, n_2 )\n\n   ? lapm\n   IF lapm\n      Ficha_122( oDlg, oBCli_1 )\n      Ficha_124( oDlg, oBCli_2 )\n      lapm := .f.\n      ? lapm\n   EndIF\n\nReturn nil\n [/code]\nLo que pasa es que cuando se llama a la función Anam_08, muestra el contenido de la variable LAPM, creo que esto sólo debería ocurrir cuando me clave en el botón para salir de la función anam_08, es en ese momento que me LAPM := TRUE.\nEs como si la función de Active WINDOW en anam_08 tuvo la cláusula nowait.\n\nAntonio, ¿cómo resolver el problema, o llame a la función anam_08, LAPM hacer := TRUE y la espalda, ejecute tela_122 y tela_124, a continuación, el fragmento de código de función anam_08\n[code=fw]\n//----------------------------------------------------------------------------------------------------//\nFunction Anam_08( oWnd, VALORF, COD, FIL, UNID, DATA, JPG_1, m_1, JPG_2, m_2 )\n\n   aJPG_1 := JPG_1\n   aJPG_2 := JPG_2\n   n_1 := m_1\n   n_2 := m_2\n   nFator_1 := 9  // Se nFator_1 = 5, mostra foto com tamanho REAL\n   nFator_2 := 9  // Se nFator_2 = 5, mostra foto com tamanho REAL\n   lapm := .f.\n\n   // Iniciando...\n   //---------------------------------------------------------------------\n   // &quot;Escondendo a barra de tarefas&quot;\n   ShowWindow( FindWindow( \'Shell_TrayWnd\', Nil ), SW_HIDE )\n \n   //---- brush do fundo da janela principal\n   DEFINE BRUSH oBrush COLOR nRGB(  49, 106, 197 )\n\n   // definiciones de objetos icon y font\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0,-11\n\n   MENU oMenu\n   ENDMENU\n\n   DEFINE WINDOW oAnam_08;\n      FROM 00,00 TO ScreenHeight, ScreenWidth PIXEL;\n      NOMAXIMIZE NOMINIMIZE;\n      BRUSH oBrush;\n      MENU oMenu\n\n   //---------------------------------------------------------------------\n   // Lado Esquerdo da Tela - oAct_1\n   //---------------------------------------------------------------------\n   oAct_1 := TActiveX():New( oAnam_08, &quot;Ctrl.1&quot;, 1, 1, 400, 568 )\n\n   oAct_1:bOnEvent := { | event, aParams, pParams | Event_Esq( event, aParams, pParams, oAct_1 ) }\n\n   //---------------------------------------------------------------------\n   // Lado Direito da Tela - oAct_2\n   //---------------------------------------------------------------------\n   oAct_2 := TActiveX():New( oAnam_08, &quot;Ctrl.1&quot;, 1, 400, 400, 568 )\n\n   oAct_2:bOnEvent := { | event, aParams, pParams | Event_Dir( event, aParams, pParams, oAct_2 ) }\n\n   DEFINE MESSAGE BAR oMsg;\n      OF oAnam_08 FONT oFont COLOR &quot;R+/W&quot; NOINSET\n\n   //---------------------------------------------------------------------\n   // Lado Esquerdo da Tela - oAct_1\n   //---------------------------------------------------------------------\n\n   // Encerrar Rotina\n   DEFINE MSGITEM oMsgItem OF oMsg;\n      PROMPT \'Encerrar\';\n      SIZE 65;\n      ACTION( ShowWindow( FindWindow( \'Shell_TrayWnd\', nil ), SW_SHOWNA ),;\n              lapm := .t., oAnam_08:End() );\n      TOOLTIP &quot;Encerrar esta Rotina&quot;\n\ncomandos...\n\n   //-------------------------------------------------------------------------\n   // Inicio dos Eventos do teclado\n   //-------------------------------------------------------------------------\n\n   oAnam_08:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( AutResiz( .t., XY, oAnam_08, -1 ), oAnam_08:End() ), nil ) }\n\n   //----------------------------------------------------------------------------------\n   // Fim dos Eventos do teclado\n\n   ACTIVATE WINDOW oAnam_08 MAXIMIZED;\n      ON INIT( AutResiz( .t., XY, oAnam_08, YX ),; //   oAct_1 : Do( &quot;LicenseKey&quot;, &quot;5555&quot; ),;\n               SetWindowPos( oAnam_08:hwnd, -1, 0, 0, 0, 0, 3 ) )\n\n   // Retornando...\n   dbSelectArea( &quot;FiMed&quot; )\n   dbGotop()\n\n   oFont:End()\n\nReturn lapm\n\n [/code]\n\nGracias en Adelantado, \n\nSaludos desde Brasil'),(147,1030,14170,6,1242849658,'Re: Problemas en preview al cambiar la impresora.','Hola, eh probado de cambiar oPrn:Say() por oPrn:CmSay() ya que crei que de esta manera se solucionaria el problema que tengo al cambiar de impresora pero no fue asi, el tamaño de letra sigue cambiando y se me modifica toda la factura.\nA alguien se le ocurre porque?\n\nMil gracias y slds a todos!'),(148,348,0,6,1242850025,'Mostrar avance de un proceso largo','Buenas tardes  amigos\n\nDeseo ir mostrando el avance de un proceso largo, y  a su vez ir mostrando quizas algunos mensajes de ocurrencias durante el proceso en un cuadro de dialogo\nEsto se inicia en un dialogo el cual tiene tres campos : XPROCESOS, XAVANCES, XMENSAJES, los cuales deberian ir cambiando segun lo que ocurra en el proceso.\n\nEl proceso es activado con Un Boton &quot;iniciar&quot;  Mandando los argumentos  para su actualizacion, \n\nAqui les dejeo  un ejemplo abreviado de lo que estoy haciendo, y que no logro que funcione,  me pueden dar una idea como puedo lograr esto??\n\nMuchas gracias por la atencion\n\nLubin \n\n[code=fw]\n#include &quot;FiveWin.ch&quot;     &amp;&amp; Se incluye el Ch de FiveWin\n\nFUNCTION JK_PROCESO()\n*********************  \n*  ESTE MODULO MUESTRA UN CUADRO DIALOOGO CON EL: \n*       PROCESO .... \n*       AVANCE .... \n*       MENSAJE ... \n*  Y el Boton ..8011  lanza el proceso\n* \nLOCAL oDlg_Maestro \nLOCAL Z_EDIT:=.F.    &amp;&amp; pARA Q ME LO MUESTRE COM gETS  PERO  DESHABILITADO \n\n*Variables Locales para Registro del PERSONAL\n*######################## CAMPOS DEL REGISTRO  &amp;&amp; 9xx ID en recursos\nLOCAL oPROCESO   ,XPROCESO      := SPACE(40)           \nLOCAL oAVANCE    ,XAVANCE       := SPACE(40)  \nLOCAL oMENSAJE   ,XMENSAJE      := SPACE(40)     \n\n* COLOR CLR_GREEN, CLR_BLUE\n DEFINE DIALOG oDlg_Maestro RESOURCE &quot;JK_PROCESO&quot; TITLE &quot;CONTROL DE PROCESOS &quot;\n REDEFINE GET oPROCESO      VAR XPROCESO   ID 801  OF oDlg_Maestro PICTURE &quot;@!&quot;   WHEN Z_EDIT UPDATE\n REDEFINE GET oAVANCE       VAR XAVANCE    ID 802  OF oDlg_Maestro PICTURE &quot;@!&quot;   WHEN Z_EDIT UPDATE\n REDEFINE GET oMENSAJE      VAR XMENSAJE   ID 803  OF oDlg_Maestro PICTURE &quot;@!&quot;   WHEN Z_EDIT UPDATE\n REDEFINE BUTTON ID 8011 OF oDlg_Maestro ACTION JK_MODULO(oDlg_Maestro,oProceso,oAvance,oMensaje) \n REDEFINE BUTTON ID 8012 OF oDlg_Maestro ACTION (oDlg_Maestro:End())       \n\n  ACTIVATE DIALOG oDlg_Maestro CENTERED \n\nRETURN .T.\n\nFUNCTION JK_MODULO(oDlg,oProceso,oAvance,oMensaje)\n**************************************************\n*  ESTA FUNCION EJECUTA UN COINJUNTO DE PROCESOS... Y A MEDIDA  QUE VA  AVANZANDO  QUISIERA QUE  DE VISUALICE EN EL Dialogo MAESTRO \nlocal I\nLOCAL K_PRO:=&quot;&quot;\nLOCAL XMEN:=&quot;&quot;\nK_PRO=&quot;A&quot;  &amp;&amp; aqui va un proceso \n     oProceso:cText:=&quot;Proceso &gt;&gt;&gt;&quot;+K_PRO\n     oAvance:refresh()\n     FOR I=1 TO 100\n      XMEN=&quot;PROCESO (&quot;+K_PRO+&quot;) --&gt;&quot; +STR(I,10,0)\n      oAvance:cText:=xMEN\n      oAvance:UPDATE()\n      KPAUSE()  &amp;&amp;...  haciendo tiempo para el ejemplo\n     NEXT I \n\n\nK_PRO=&quot;B&quot;  &amp;&amp; Aqui va otro proceso \n     oProceso:cText:=&quot;Proceso &gt;&gt;&gt;&quot;+K_PRO\n     oAvance:refresh()\n     FOR I=1 TO 100 \n      XMEN=&quot;PROCESO (&quot;+K_PRO+&quot;) --&gt;&quot; +STR(I,10,0)\n      oAvance:cText:=xMEN\n      oAvance:UPDATE()\n      KPAUSE()    &amp;&amp; Haciendo tiempo para el ejemplo \n     NEXT I \n\nRETURN .T.\n\n\nFUNCTION KPAUSE(XN)  &amp;&amp;  FUNCION USADA  EN ESTE  CASO  SOLO PARA HACER TIEMPOO.... \nLOCAL XI:=0\nIF XN=NIL\n  XN=5\nENDIF \nFOR XI=1 TO XN*10000\nNEXT XI \nRETURN NIL\n\n [/code]'),(150,1282,0,3,1243454637,'Activex shell.explorer at https','authentication of the page ran normally but the following page is the following problem\ndoes not run the validations of TextEdit. the TextEdit this within a frame (javascript)\n\nusing:\n[code=fw] DEFINE DIALOG oWnd RESOURCE &quot;EXPLORER&quot; \nREDEFINE ACTIVEX oActiveX ID 4000 OF oWnd PROGID &quot;Shell.Explorer&quot;\noWnd:oClient := oActiveX\nACTIVATE DIALOG oWnd CENTERED  ON INIT oActiveX&amp;#058;Do( &quot;Navigate&quot;, https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5 )  \n [/code]\n\n\npage at https: (javascript)\n[code=fw]\n&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;\n\n&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot; &gt;\n&lt;head&gt;&lt;title&gt;\n    PGDAS - Programa Gerador do Documento de Arrecadação do Simples Nacional\n&lt;/title&gt;&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=ISO-8859-1&quot; /&gt;&lt;meta http-equiv=&quot;Cache-Control&quot; content=&quot;no-cache&quot; /&gt;&lt;meta http-equiv=&quot;Pragma&quot; content=&quot;no-cache&quot; /&gt;&lt;meta http-equiv=&quot;Expires&quot; content=&quot;-1&quot; /&gt;&lt;link type=&quot;text/css&quot; rel=&quot;stylesheet&quot; href=&quot;./css/pgdarf.css&quot; /&gt;&lt;link type=&quot;text/css&quot; rel=&quot;stylesheet&quot; href=&quot;./css/aesp.css&quot; /&gt;\n    \n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/wm_copyright.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/xbObjects.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pUtil.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pInput.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pBrowser.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pIO.js&quot;&gt;&lt;/script&gt;\n\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameInterface.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFramePA.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameRBT.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameRPA.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameImpFixo.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pAbas.js&quot;&gt;&lt;/script&gt;\n\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pTreeview.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameReceitaAtividade.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameRec.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameReducao.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameIsencao.js&quot;&gt;&lt;/script&gt;\n\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameFPagto.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameApuraComp.js&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pSelectApura.js&quot;&gt;&lt;/script&gt;\n&lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pMenu.js&quot;&gt;&lt;/script&gt;&lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pFrameEmpresa.js&quot;&gt;&lt;/script&gt;&lt;script type=&quot;text/javascript&quot; src=&quot;./js/pgdarf.pMain.js&quot;&gt;&lt;/script&gt;&lt;/head&gt;\n&lt;body&gt;\n    &lt;div style=&quot;display:none&quot;&gt;\n        &lt;span id=&quot;cnpj8&quot;&gt;00239322&lt;/span&gt;\n        &lt;span id=&quot;transacao&quot;&gt;80331423&lt;/span&gt;\n        &lt;span id=&quot;idDeclaracao&quot;&gt;&lt;/span&gt;\n        &lt;span id=&quot;tipoDeclaracao&quot;&gt;&lt;/span&gt;\n        &lt;span id=&quot;declaracaoAcao&quot;&gt;&lt;/span&gt;\n        &lt;span id=&quot;declaracaoURL&quot;&gt;&lt;/span&gt;        \n    &lt;/div&gt;\n    &lt;div id=&quot;container&quot;&gt;\n        &lt;div id=&quot;logo&quot;&gt;\n            &lt;img id=&quot;dir&quot; src=&quot;./images/topo2_D.jpg&quot; alt=&quot;&quot;/&gt;\n            &lt;img id=&quot;esq&quot; src=&quot;./images/topo2_E.jpg&quot; alt=&quot;&quot;/&gt;\n            &lt;span&gt;PGDAS - Programa Gerador do Documento de Arrecadação do Simples Nacional&lt;/span&gt;\n            &lt;span id=&quot;sombra&quot;&gt;PGDAS - Programa Gerador do Documento de Arrecadação do Simples Nacional&lt;/span&gt;\n        &lt;/div&gt;\n        &lt;div id=&quot;menu&quot;&gt;&lt;/div&gt;\n        &lt;div id=&quot;areatrabalho&quot;&gt;\n            &lt;!--&lt;br /&gt;\n            &lt;div style=&quot;font-size:12px&quot;&gt;&lt;strong&gt;Aviso:&lt;/strong&gt;&lt;/div&gt;\n            &lt;br /&gt;\n            &lt;div&gt;- Descomentar o texto... e mensagens aqui.&lt;/div&gt;\n            &lt;br /&gt;--&gt;\n        &lt;/div&gt;\n        &lt;div id=&quot;caminho&quot;&gt;&lt;span&gt;&lt;/span&gt;&lt;span&gt;&lt;/span&gt;&lt;/div&gt;\n        &lt;div id=&quot;rodape&quot;&gt;Versão: 1.3.12&lt;/div&gt;\n        &lt;div id=&quot;mensagens&quot;&gt;&lt;/div&gt;\n    &lt;/div&gt;\n&lt;/body&gt;\n&lt;/html&gt;[/code]'),(152,878,15767,6,1243886390,'Re: Ayuda sobre pistola lectora de codigos de barra','Vladimir,\n\nLos lectores de CB te devuelven una cadena con los numeros leidos, dependiendo del largo del CB luego lo pasas a numero VAL() o simplemente lo usas como CHAR,\nPor ej. haces :  REDEFINE GET cCodigo ......\n\n? cCodigo   -&gt;  &quot;1234567890123&quot; x ej\nSalu2, Ariel.'),(153,1636,0,4,1244021697,'Dll calls, where is my mistake ?','I try use dll calls in my FWPPC application. But I confused ... (I havn\'t strong C knowledge)\nI want open Motorola RFID reader. Reader has dll for handle RFID cals\n\n//\nDll Name:RFIDAPI32.dll\nFile Location:\\windows\\rfidapi32.dll\n//\n\nIs a functions.\nDWORD WINAPI RFID_Open(HANDLE *phReader);\nDWORD WINAPI RFID_Close(HANDLE *phReader);\n\nIt is  example (c++):\n\n//\n\nHANDLE hRFIDReader;\n  if(RFID_Open(&amp;HRFIDReader) == RFID_SUCCESS)\n{\nRFID_Close(&amp;hRFIDReader);\n}\n\n//\n\n    RFID_SUCCESS   0   Function succeeded.\n    RFID_INVALID_HANDLE   17    Invalid device handle provided.\n\n\nI declare this functions in my application:\n\n//\n\nDLL FUNCTION  RFID_Open(@hRFIDReader as PTR ) ;\n AS DWORD   LIB &quot;rfidapi32.dll&quot;\n\nDLL FUNCTION  RFID_Close(@hRFIDReader as PTR ) ;\n AS DWORD   LIB &quot;rfidapi32.dll&quot;\n//\n\n\n\nAnd run next code.\n\n\n\n//-------------------------------------------------------------------------//\nFunction RunUdlTags()\n//-------------------------------------------------------------------------//\nLocal nHandle:=0\nLocal nRet\nnRet:=RFID_Open(@nHandle)\nMsgInfo(str(nRet))\nRFID_Close(@nHandle)\nReturn Nil\n\nRDID_Open always return 17 - invalid device handle.\n\nIs possible that I make mistake in  DLL Functions declaration ?\n\n\nIf I call this function in this way \n\nHB_FUNC(OPEN_RFID) \n{ \n \n  nStatus=RFID_Open(&amp;hReader);\n	if(nStatus == RFID_SUCCESS)\n	{	\n}\n  hb_retnl( (LONG) hReader ); \n} \n\nis work fine.\n\n\nBest regards\n\n Andrej'),(154,348,15781,6,1244142600,'Re: graficos estilos tortas.','Hola Vladimir\n\nSoy uno mas en la cola ,,  te agradeceria  si pudieras enviarme ese ejecutable, me parece interesante ,  lubin.am@speedy.com.pe\n\nGracias,  por la paciencia \n\nLubin Azahuanche'),(156,1740,0,1,1244190982,'GamePipe Project In Need of A Developer','Hi there,\n\nWe have a 16-bit Clipper application originally built with Clip4Win that no longer runs on the 64 Bit Windows Vista.\nWe have a pretty big membership base that are beginning to drop like flies because the app won\'t work in 64 bit mode.\n\nI would like to immediately hire someone who can come into this project and convert the existing Clip4Win code over to\nFiveWin, or, if that\'s too difficult, perhaps show me how to do 3-4 .PRG\'s and I\'ll do the rest, and hire you as a part-time\nconsultant.\n\nInitial goals is to get the existing .PRG files running in 32 bit mode.\n\nI\'ve already invested time with Antonio, who had almost finished the porting of the code, but then the project went on\nthe backburner and it stalled for awhile. Now, due to the 64 bit Windows hitting the open market, I have no time lift\nand have been forced to the take project and get it done.\n\nFor more information, please email me at info &quot;at&quot; gamepipe.com\n\nNote: You can view the software application we\'ve designed at www.gamepipe.com/casino-1.php\n\nThis was done many many years ago ;-)\n\nThanks so much to anyone who can help us.\n\n-Mark @ GamePipe'),(157,878,15817,6,1244239275,'Re: COMO IMPRIMO UN CODIGO DE BARRA EN UN DIALOGO','Vladimir,\n\nNo pensaste en usar los fonts respectivos, y solamente defines un font para ese dato y listo!\n\nSalu2, Ariel.'),(158,449,0,6,1244453572,'TXBrowse() -&gt; :Setcheck() con intro','Hola,\n\nLe estoy dando vueltas y creo q me lio demasiado. A ver quiero q cuando haga un intro en una Col definida con ::SetCheck(), simplemente se comporte igual q el DblClick sin entrar en modo edicion EDIT_GET\n  [code=fw]oCol:SetCheck( { &quot;16NoCheck&quot;, &quot;16Check&quot; }, {|o, v | ... := v } )[/code]\nGracias.'),(160,1711,0,3,1244679447,'how can I have &quot;Script Errors Suppressed&quot;?','Dear Fivewin users,\n\nI am using ActiveX class to place internet exploere dialog in my application.\nBut, from time to time, when there is script error on certain site, an script error message was displayed and\nmy application stopped.\n\nOn this points, a friend using c# adviced me to use webBrowser class.\nThere was &quot;webBrowser.ScriptErrorsSuppressed&quot; in c# and other language, so, through setting this value as true or false,\nthose kinds of script errors of certain sites were ignored.\n\nHow can I have this function in fivewin harbour?\n\nThanks advances for your attention on my situation.\n\n\npharmabase@paran.com\nKim yong woo'),(161,1746,0,6,1244925031,'Guardar en TXBrowse sin CTRL + X','Soy un poko novato y necesito de su valiosa ayuda, Tengo el siguiente codigo donde al editar un TXBrowse solo me guarda la información si presionoCTRL + X, y enseguida ENTER y no se por que, si alguno de uds que tienen experiencia me puede ayudar se los agradeceria infinitamente.  \n\n[b]NECESITO QUE GUARDE LA INFORMACION SOLO PRESIONANDO ENTER, [/b]\n   DEFINE WINDOW oChild TITLE &quot;Auto edit browse&quot; MDICHILD OF oWnd\n\n   oBrw := TXBrowse():New( oWnd )\n\n   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n   oBrw:nColDividerStyle    := LINESTYLE_BLACK\n   oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n   oBrw:lColDividerComplete := .t.\n   oBrw:nHeaderLines        := 1\n   oBrw:nDataLines          := 1\n\n    oCol:= oBrw:AddCol()\n    oCol:cHeader := &quot;CANT.&quot;\n    oCol:bStrData := { || 100-&gt;CANT1}\n    oCol:nWidth := 50\n    oCol:nEditType := 1\n    oCol:bOnPostEdit := {|o, v, n| iif( n == VK_RETURN, _FIELD-&gt;CANT1:= v ,NIL ) }\n\n   oBrw:SetRDD()\n   oBrw:CreateFromCode()\n   oChild:oClient := oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()'),(162,49,15908,3,1245245665,'Re: datepick valid','sorry uwe, i cannot insert another field (yes or no) on the dbf i have two date field . i must to control if the room is free on period i ask. for sample: on the dbf i have a booked of room number 264 from 14.08.2009 to 20.08.09. And on the dialog i ask from 16.08.06 to 21.08.09 I hope U understand .'),(164,1398,0,6,1245340369,'Ayuda con CheckBox','Buenas a todos, necesito una ayudita con un Chbx, deseo que cuando consulte en la base de datos y el campo de la Dbf sea .t., la CheckBox aparezca marcada, como puedo hacer?[code=fw] [/code]\n a_datos[1,39] := .T.\n \n   REDEFINE CHECKBOX oDatos[1,39] VAR a_dados[1,39] ID 1027 OF oAbt;\n            ON CHANGE(Check_Participa())\n[/code]'),(166,24,15971,6,1246209106,'Re: PARA RAFAEL CARMONA (THEFULL)','En ADO, tienes un gestion de errores, que te indica que error se a producido.\nA ver si mañana puedo subirte dicha clase, que es el error que devuelve ADO.\n\nLo que yo realizo para ello es un control dentro de un try/catch, donde me guardo la query a \nejecutar en un variable, por si falla, e indico el error de ADO más la sentencia que ha generado ese error.'),(167,509,15943,6,1246288952,'Re: Recibir mail','Hola:\n\n     Te adjunto .PRG con el que recibo e-mail pop3 tanto mensajes como ficheros adjuntos. Conforme voy recibiendo los mensajes los guardo en lpop3.dbf y los proceso, es decir, si no trae adjuntos presento el cuerpo del mensaje y si trae ficheros adjuntos los extraigo en C:\\REMOTO\\INTER y los proceso (descomprimo el rar e incorporo los registros al central). Al procesar según tenga el Asunto un texto u otro actúo recibiendo, por ejemplo, pedidos de un puesto remoto o actualizando los ficheros maestros de la central al puesto.\n\n     También podrías guardar en un campo memo el mensaje y luego &quot;abrirlo&quot; para procesarlo.\n\n     Saludos.\n\n     Ricardo Patón\n     \nRECIB_.PRG\n\n#include &quot;Fivewin.ch&quot;\n#include &quot;c5grid.ch&quot;\n\nFUNCTION ReciboPOP3()\n	 LOCAL oIco\n	 LOCAL oWndChild\n	 LOCAL oGrid\n	 LOCAL oCol1,oCol2,oCol3,oCol4,oCol5,oCol6,oCol7,oCol8\n	 LOCAL oHdr1,oHdr2,oHdr3,oHdr4,oHdr5,oHdr6,oHdr7,oHdr8\n	 LOCAL oBar,oBtn1,oBtn2,oBtn3,oBtn4,oBtn5,oBtn6\n	 LOCAL oDbf5\n	 LOCAL oGet1\n	 LOCAL cSearch:=space(30)\n	 LOCAL oPanel,oTabs\n\n   Apertura({78})\n\n   DEFINE WINDOW oWndChild TITLE OemToAnsi(&quot;Historial de Correos&quot;) MDICHILD NOSYSMENU\n	 \n   #ifndef __XPP__\n      oPanel       = TPanel():New()\n   #else\n      oPanel       = TPanel():New():_New()\n   #endif\n   oWndChild:oClient = oPanel     // It is the client control of oWnd\n   @ 0,0 TABS oTabs PROMPTS &quot;Fecha Entrada&quot;,&quot;Origen&quot;,&quot;Fecha Proceso&quot; OF oPanel ;\n	          ACTION ( oGrid:=Cambia78Index(oGrid,oTabs:nOption,78) )\n   oPanel:oBottom = oTabs\n\n	 dbSelectArea(78)\n	 dbSetOrder(1)\n	 dbGotop()\n   DATABASE oDbf5\n\n   @ 0, 0 GRID oGrid  SIZE oApp:nResolX,oApp:nResolY OF oPanel   ;\n	        ALIAS &quot;lpop3&quot;                      ;\n					VSCROLL HSCROLL VGRID HGRID        ;\n					COLOR CLR_BLACK,CLR_LIGHTGRAY      ;\n					BAR ACTION (oBtn4:Click(),.T.)\n   oPanel:oLeft = oGrid\n   oPanel:oRight = oGrid\n\n   DEFINE HEADER oHdr0                          ;\n	        TITLE &quot;Procesado&quot;             ;\n					ALIGN CENTER                          ;\n					VGRID                                 ;\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK\n   DEFINE COLUMNA oCol1 OF oGrid                ;\n	        DATA  &quot;lpop3-&gt;fproce&quot; ;\n					HEADER oHdr0                          ;\n					NOEDITABLE WIDTH 70\n\n   DEFINE HEADER oHdr1                          ;\n	        TITLE &quot;Fecha Correo&quot;             ;\n					ALIGN CENTER                          ;\n					VGRID                                 ;\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK\n   DEFINE COLUMNA oCol1 OF oGrid                ;\n	        DATA  &quot;lpop3-&gt;fentra&quot; ;\n					HEADER oHdr1                          ;\n					NOEDITABLE WIDTH 70\n					\n   DEFINE HEADER oHdr11                          ;\n	        TITLE &quot;F.Recogida&quot;             ;\n					ALIGN CENTER                          ;\n					VGRID                                 ;\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK\n   DEFINE COLUMNA oCol11 OF oGrid                ;\n	        DATA  {|| dtoc(lpop3-&gt;flee)+&quot; &quot;+lpop3-&gt;hlee } ;\n					HEADER oHdr11                          ;\n					NOEDITABLE WIDTH 120\n					\n   DEFINE HEADER oHdr2                          ;\n	        TITLE &quot;Asunto&quot;        ;\n					ALIGN CENTER                          ;					\n					VGRID                                 ;					\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK \n   DEFINE COLUMNA oCol2 OF oGrid                ;\n	        DATA  &quot;lpop3-&gt;asunto&quot;         ;\n					HEADER oHdr2                          ;\n					NOEDITABLE WIDTH 200\n\n   DEFINE HEADER oHdr3                          ;\n	        TITLE &quot;Ficheros&quot;        ;\n					ALIGN CENTER                          ;					\n					VGRID                                 ;					\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK \n   DEFINE COLUMNA oCol3 OF oGrid                ;\n	        DATA  &quot;lpop3-&gt;files&quot;         ;\n					HEADER oHdr3                          ;\n					NOEDITABLE WIDTH 200\n\n   DEFINE HEADER oHdr5                          ;\n	        TITLE &quot;Origen&quot;        ;\n					ALIGN CENTER                          ;					\n					VGRID                                 ;					\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK \n   DEFINE COLUMNA oCol5 OF oGrid                ;\n	        DATA  &quot;lpop3-&gt;origen&quot;         ;\n					HEADER oHdr5                          ;\n					NOEDITABLE WIDTH 100\n\n   DEFINE HEADER oHdr4                          ;\n	        TITLE &quot;Ruta&quot;        ;\n					ALIGN CENTER                          ;					\n					VGRID                                 ;					\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK \n   DEFINE COLUMNA oCol4 OF oGrid                ;\n	        DATA  &quot;lpop3-&gt;ruta&quot;         ;\n					HEADER oHdr4                          ;\n					NOEDITABLE WIDTH 200\n\n   DEFINE HEADER oHdr6                          ;\n	        TITLE &quot;Texto&quot;        ;\n					ALIGN CENTER                          ;					\n					VGRID                                 ;					\n					COLORPANE CLR_HGRAY                   ;\n					BUTTONLOOK \n   DEFINE COLUMNA oCol6 OF oGrid                ;\n	        DATA  &quot;lpop3-&gt;texto&quot;         ;\n					HEADER oHdr6                          ;\n					NOEDITABLE WIDTH 200\n\n\n   DEFINE BUTTONBAR oBar _3D OF oWndChild\n\n\n   DEFINE BUTTON oBtn4 OF oBAR RESOURCE &quot;BTNLINREFRESH&quot; ;\n	               TOOLTIP &quot;Zoom&quot; GROUP NOBORDER ;\n                 ACTION( MsgInfo(lpop3-&gt;texto) )\n\n   DEFINE BUTTON oBtn5 OF oBAR RESOURCE &quot;BTNLINEXIT&quot; ;\n	               TOOLTIP &quot;(S)alir&quot; GROUP NOBORDER ;\n                 ACTION( oGrid:End(),Cierre({78}),oWndChild:End() )\n\n\n   @ 0.4,45 GET oSGet1 VAR cSearch PICTURE &quot;@D&quot; OF oBar SIZE 90,20 ;\n	               MESSAGE OemToAnsi(&quot;Introduzca C¢digo o Nombre a Buscar&quot;) ;\n	               VALID ( dbSetOrder(1),oGrid:Gotop(),;\n												 oGrid:Seek( dtos(cSearch),.T. ),;\n                         oGrid:Refresh(),oApp:Edicion:=.F.,.T. )	          \n	 \n   ACTIVATE WINDOW oWndChild  MAXIMIZED ;\n	       ON INIT ( oGrid:SetFilter(),oGrid:SetFocus() ) \n   oWndChild:bKeyDown:={|nKey,nFlag| LeeGeneralTeclas(nKey,oBtn1,oBtn2,oBtn3,oBtn4,oBtn5,oBtn6) }\n	 \nRETURN .F.\n\n\nstatic FUNCTION LeeGeneralTeclas(nKey,oBtn1,oBtn2,oBtn3,oBtn4,oBtn5,oBtn6)\n   DO CASE\n	    CASE nKey==27   // ESC\n           IF !oApp:Edicion\n			        oBtn5:Click()\n					 ENDIF\n	    CASE nKey==83   // S=Salir\n           IF !oApp:Edicion\n			        oBtn5:Click()\n					 ENDIF\n	    CASE nKey==76   // L=Localizar\n			     oApp:Edicion:=.T.\n			     oSGet1:SetFocus()\n	 ENDCASE\nRETURN .T.\n\nstatic FUNCTION Cambia78Index(oGrid,nTab,nArea)\n   dbSelectArea(nArea)\n   DO CASE\n	    CASE nTab==1\n			     dbSetOrder(1)\n	    CASE nTab==2\n			     dbSetOrder(2)\n	    CASE nTab==3\n			     dbSetOrder(3)\n	 ENDCASE\n	 oGrid:Refresh()\nRETURN oGrid\n\nstatic FUNCTION DaMes(nMes)\n   LOCAL nValor:=0\n	 \n   DO CASE\n	    CASE nMes==&quot;JAN&quot;\n			     nValor:=1\n	    CASE nMes==&quot;FEB&quot;\n			     nValor:=2\n	    CASE nMes==&quot;MAR&quot;\n			     nValor:=3\n	    CASE nMes==&quot;APR&quot;\n			     nValor:=4\n	    CASE nMes==&quot;MAY&quot;\n			     nValor:=5\n	    CASE nMes==&quot;JUN&quot;\n			     nValor:=6\n	    CASE nMes==&quot;JUL&quot;\n			     nValor:=7\n	    CASE nMes==&quot;AUG&quot;\n			     nValor:=8\n	    CASE nMes==&quot;SEP&quot;\n			     nValor:=9\n	    CASE nMes==&quot;OCT&quot;\n			     nValor:=10\n	    CASE nMes==&quot;NOV&quot;\n			     nValor:=11\n	    CASE nMes==&quot;DEC&quot;\n			     nValor:=12\n   ENDCASE\nRETURN str(nValor,2)\n\nstatic FUNCTION TmpDir()\n   LOCAL cTmpDir:=&quot;C:\\REMOTO\\INTER\\__temp&quot;\n	 \n	 DO WHILE File( cTmpDir := &quot;C:\\REMOTO\\INTER\\__&quot; + StrZero( nRandom( 99999 ), 5 ) )\n   ENDDO	 \n	 \n	 makedir(cTmpDir)\n	 	 	 \nRETURN cTmpDir\n\nFUNCTION ReadPOP3()\n   LOCAL oDlg\n	 LOCAL oMeter1:=0\n	 LOCAL nActual:=0\n	 \n   Apertura({78,20,21})\n	 dbSelectArea(78)\n	 \n   DEFINE DIALOG oDlg RESOURCE &quot;GENERAL&quot;\n\n   REDEFINE METER oMeter1 VAR nActual TOTAL 100 ID 51 OF oDlg\n	 \n	 ACTIVATE DIALOG oDlg CENTERED ON INIT ( ReadEmails(oMeter1,oDlg) )\n	 Cierre({78,20,21})\n\nRETURN\n	\nstatic FUNCTION ReadEmails( oMeter1, oDlg )\n   LOCAL oInMail\n\n   oMeter1:Set(10)\n   SysRefresh()  \n\n   oInMail = TPop3():New( alltrim(empre2-&gt;ippop3),, alltrim(empre2-&gt;usuario), alltrim(empre2-&gt;clave) )  // mail server IP\n   oInMail:bDone       = { || MeterLeeEmails( oMeter1, oInMail, oDlg ) }\n\n   oInMail:GetMail(.F.)\n\nRETURN nil\n\n\nstatic FUNCTION MeterLeeEmails( oMeter1, oInMail, oDlg )\n   LOCAL n\n	 LOCAL nTmpDir:=&quot;&quot;\n	 LOCAL cResul:=&quot;&quot;\n	 LOCAL cTexto:=&quot;&quot;\n   LOCAL cCadena:=&quot;&quot;\n   LOCAL nPosCadena:=0\n	 LOCAL aTexFiles:=ARRAY(0)\n	 LOCAL aNomFiles:=ARRAY(0)\n	 LOCAL nPos78\n	 LOCAL cTextul:=&quot;&quot;\n\n   oMeter1:nTotal:=len(oInMail:aMsgs)+1\n   SysRefresh()  \n\n   oMeter1:Set(1)\n   SysRefresh()\n	 \n   FOR n = 1 TO Len( oInMail:aMsgs )\n       oMeter1:Set(n+1)\n       SysRefresh()\n		 \n	     aTexFiles:=ARRAY(0)\n			 aNomFiles:=ARRAY(0)\n			 cAsunto:=substr(oInMail:aMsgs[ n ],;\n			                 at(&quot;Subject:&quot;,oInMail:aMsgs[n])+8,;\n											 at(chr(13),substr(oInMail:aMsgs[n],at(&quot;Subject:&quot;,oInMail:aMsgs[n])+8))-1)\n			 cFecha :=substr(oInMail:aMsgs[ n ],;\n			                 at(&quot;Date:&quot;,oInMail:aMsgs[n])+5,;\n											 at(chr(13),substr(oInMail:aMsgs[n],at(&quot;Date:&quot;,oInMail:aMsgs[n])+5))-1)\n			 nDia:=alltrim(substr(cFecha,at(&quot;, &quot;,cFecha)+2,2))\n			 nMes:=substr(cFecha,at(nDia+&quot; &quot;,cFecha)+3,3)\n			 nAnno:=substr(cFecha,at(nMes,cFecha)+4,4)\n			 nMes:=upper(nMes)\n			 dFecha:=ctod(nDia+&quot;/&quot;+DaMes(nMes)+&quot;/&quot;+nAnno)\n			 \n			 cOrigen:=substr(oInMail:aMsgs[ n ],;\n			                 at(&quot;From:&quot;,oInMail:aMsgs[n])+5,;\n											 at(chr(13),substr(oInMail:aMsgs[n],at(&quot;From:&quot;,oInMail:aMsgs[n])+5))-1)\n			 \n	     cCadena:=alltrim(oInMail:aMsgs[n])\n       DO WHILE .T.\n			    nPosCadena:=at(\'filename=&quot;\',cCadena)\n 				  IF nPosCadena#0\n			       cFile  :=alltrim(substr(cCadena,;\n			                               nPosCadena+10,;\n										                 at(\'&quot;\',substr(cCadena,nPosCadena+10))-1))\n						 cCadena:=substr(cCadena,nPosCadena+10)\n             cTexto :=substr(cCadena,at(chr(13),cCadena)+1)\n			       cTexto :=substr(cTexto,at(chr(13),cTexto)+2)\n					   cTexto :=substr(cTexto,1,at(&quot;NextPar&quot;,cTexto)-1)\n						 cTexto :=substr(cTexto,1,rat(chr(13),cTexto))\n						 AADD(aNomFiles,cFile)\n					   AADD(aTexFiles,cTexto)\n						 cCadena:=substr(cCadena,at(&quot;NextPar&quot;,cCadena)+7)\n						 nPosCadena:=0\n					ELSE\n					   EXIT\n					ENDIF\n			 ENDDO\n\n	     cCadena1:=alltrim(oInMail:aMsgs[n])\n	     nPos1Cadena:=at(\'text/plain;\',cCadena1)\n			 cCadena1:=substr(cCadena1,nPos1Cadena+12)\n       cCadena1:=substr(cCadena1,at(chr(13),cCadena1)+1)\n       cCadena1:=substr(cCadena1,at(chr(13),cCadena1)+2)\n		   cTextul:=substr(cCadena1,1,at(&quot;NextPar&quot;,cCadena1)-9)\n\n       DO CASE\n			    CASE &quot;MENSAJE&quot;$alltrim(upper(cAsunto))\n					     dbSelectArea(78)\n               IF CsInsertRec()\n						      fieldput(1,dFecha)\n						      fieldput(2,alltrim(cOrigen))\n					        fieldput(3,alltrim(cAsunto))\n						      fieldput(7,date())\n									fieldput(8,time())\n									lpop3-&gt;texto:=alltrim(cTextul)\n									lpop3-&gt;fproce:=date()\n									CsUnLock()\n									MsgInfo(lpop3-&gt;texto)\n					     ENDIF\n\n			    CASE &quot;Pedido:&quot;$alltrim(cAsunto)\n					     dbSelectArea(78)\n               IF CsInsertRec()\n						      fieldput(1,dFecha)\n						      fieldput(2,alltrim(cOrigen))\n					        fieldput(3,alltrim(cAsunto))\n						      nTmpDir:=TmpDir()\n					        fieldput(5,nTmpDir)\n						      FOR x:=1 TO len(aNomFiles)\n						          fieldput(4,alltrim(fieldget(4))+alltrim(aNomFiles[x])+&quot;,&quot;)\n						          nHanLer:=FCREATE(&quot;tmpmime.txt&quot;)\n						          FWRITE(nHanLer,aTexFiles[x],len(aTexFiles[x]))\n						          FCLOSE(nHanLer)\n						          FMIMEDEC(&quot;tmpmime.txt&quot;,nTmpDir+&quot;\\&quot;+alltrim(aNomFiles[x]))\n									NEXT\n						      fieldput(7,date())\n									fieldput(8,time())\n					     ENDIF\n							 // Lanza Proceso de Pedidos de REMOTO\n							 FOR x:=1 TO len(aNomFiles)\n                   origen:=nTmpDir+&quot;\\&quot;+aNomFiles[x]\n                   destino:=&quot;C:\\REMOTO\\INTER\\&quot;+aNomFiles[x]\n                   COPY FILE &amp;origen TO &amp;destino\n							 NEXT\n							 IF file(&quot;C:\\REMOTO\\INTER\\PED2TAJ.RAR&quot;)\n			            MsgMeter({| oMeter, oText,oDlg, lEnd | ;\n							       MeterPedido( oMeter, oText, oDlg, @lEnd ) },;\n									   &quot;Preparando Datos ...&quot;,&quot;Sincronizando&quot;)\n									dbSelectArea(78)\n									IF CsLockRec()\n									   lpop3-&gt;fproce:=date()\n										 CsUnLock()\n									ENDIF\n							 ELSE\n								  MsgInfo(&quot;No Encuentro el Fichero:&quot;+chr(13)+;\n									        &quot;C:\\REMOTO\\INTER\\PED2TAJ.RAR&quot;,OemToAnsi(&quot;Informaci¢n&quot;))\n							 ENDIF\n\n			    CASE &quot;Ficheros Maestros:&quot;$alltrim(cAsunto)\n					     dbSelectArea(78)\n               IF CsInsertRec()\n						      fieldput(1,dFecha)\n						      fieldput(2,alltrim(cOrigen))\n					        fieldput(3,alltrim(cAsunto))\n						      nTmpDir:=TmpDir()\n					        fieldput(5,nTmpDir)\n						      FOR x:=1 TO len(aNomFiles)\n						          fieldput(4,alltrim(fieldget(4))+alltrim(aNomFiles[x])+&quot;,&quot;)\n						          nHanLer:=FCREATE(&quot;tmpmime.txt&quot;)\n						          FWRITE(nHanLer,aTexFiles[x],len(aTexFiles[x]))\n						          FCLOSE(nHanLer)\n						          FMIMEDEC(&quot;tmpmime.txt&quot;,nTmpDir+&quot;\\&quot;+alltrim(aNomFiles[x]))\n									NEXT\n						      fieldput(7,date())\n									fieldput(8,time())\n					     ENDIF\n							 // Lanza Proceso de Recepcion de REMOTO\n							 FOR x:=1 TO len(aNomFiles)\n                   origen:=nTmpDir+&quot;\\&quot;+aNomFiles[x]\n                   destino:=&quot;C:\\REMOTO\\INTER\\&quot;+aNomFiles[x]\n                   COPY FILE &amp;origen TO &amp;destino\n							 NEXT\n							 IF file(&quot;C:\\REMOTO\\INTER\\OBR2TAJ.RAR&quot;)\n			            MsgMeter({| oMeter, oText,oDlg, lEnd | ;\n							       MeterRecibe( oMeter, oText, oDlg, @lEnd ) },;\n									   &quot;Preparando Datos ...&quot;,&quot;Sincronizando&quot;)\n									dbSelectArea(78)\n									IF CsLockRec()\n									   lpop3-&gt;fproce:=date()\n										 CsUnLock()\n									ENDIF\n							 ELSE\n								  MsgInfo(&quot;No Encuentro el Fichero:&quot;+chr(13)+;\n									        &quot;C:\\REMOTO\\INTER\\OBR2TAJ.RAR&quot;,OemToAnsi(&quot;Informaci¢n&quot;))\n							 ENDIF\n\n\n			 ENDCASE\n\n	 NEXT	 \n	 \n   oMeter1:Set(oMeter1:nTotal)\n	 SysRefresh()\n	 oDlg:End()	 \n\n\nRETURN nil\n\n\nstatic FUNCTION MeterRecibe( oMeter, oText, oDlg, lEnd )\n\n   Apertura({20})\n	 \n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.FPT\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.NDF\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n   WaitRun(\'RAR.EXE e -o+ -pxxxxxx C:\\REMOTO\\INTER\\OBR2TAJ.RAR C:\\REMOTO\\INTER\',6)\n   \n   origen:=&quot;C:\\REMOTO\\INTER\\&quot;\n   destino:=&quot;\\&quot;+DIRECTORIO+&quot;\\&quot;+cCamp+&quot;\\&quot;\n	 aOrigen:=DIRECTORY(\'C:\\REMOTO\\INTER\\@*.*\')\n	 \n   oMeter:nTotal = len(aOrigen)+2\n\n	 FOR x:=1 TO len(aOrigen)\n       origen2:=destino2:=&quot;&quot;\n       origen2:=origen+aOrigen[x,1]\n       destino2:=destino+aOrigen[x,1]\n       COPY FILE &amp;origen2 TO &amp;destino2     \n       oMeter:Set(x)\n       SysRefresh()\n	 NEXT\n   oMeter:Set(x+1)\n   SysRefresh()\n\n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.FPT\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.NDF\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n   oMeter:Set(x+2)\n   SysRefresh()\n	 Cierre({20})\n \n	 dbCommitAll()\nRETURN\n\nstatic FUNCTION MeterPedido( oMeter, oText, oDlg, lEnd )\n\n   Apertura({20,81,82})\n	 \n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.FPT\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.NDF\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n   WaitRun(\'RAR.EXE e -o+ -pxxxxxx C:\\REMOTO\\INTER\\PED2TAJ.RAR C:\\REMOTO\\INTER\',6)\n   \n   origen:=&quot;C:\\REMOTO\\INTER\\&quot;\n   destino:=&quot;\\&quot;+DIRECTORIO+&quot;\\&quot;+cCamp+&quot;\\&quot;\n	 aOrigen:=DIRECTORY(\'C:\\REMOTO\\INTER\\@*.*\')\n	 \n   oMeter:nTotal = len(aOrigen)+2\n\n	 FOR x:=1 TO len(aOrigen)\n       origen2:=destino2:=&quot;&quot;\n       origen2:=origen+aOrigen[x,1]\n       destino2:=destino+aOrigen[x,1]\n       COPY FILE &amp;origen2 TO &amp;destino2     \n       oMeter:Set(x)\n       SysRefresh()\n	 NEXT\n   dbSelectArea(81)\n	 append from C:\\REMOTO\\INTER\\$pedido.ndf\n	 dbSelectArea(82)\n	 append from C:\\REMOTO\\INTER\\$lped.ndf\n   oMeter:Set(x+1)\n   SysRefresh()\n\n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.FPT\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n	 AEVAL(DIRECTORY(\'C:\\REMOTO\\INTER\\*.NDF\'), {|x| ferase(&quot;C:\\REMOTO\\INTER\\&quot;+x[1]) })\n   oMeter:Set(x+2)\n   SysRefresh()\n	 Cierre({20,81,82})\n \n	 dbCommitAll()\nRETURN'),(168,1511,15994,3,1246433433,'Re: Read RcData, Pelles( .Res)...','Try C API LoadResource().'),(171,415,16017,6,1247089454,'Re: Capacidad del RES','Antolin:\n\nCon la versión de VERCE 5.3 se pueden añadir mas de un archivo .RES\n\nEn Propiedades del Proyecto, Recursos\n\nSaludos'),(173,473,16123,3,1247680795,'Re: tSmtp() with gmail','Thanks,\n\nThis seems to work properly.\n\nI\'ve just have to try out the pop3 with gmail.\n\nThanks for the effort.\n\nWilly'),(175,376,16115,6,1247782030,'Re: Manejar los CDROM','Antonio, el caso es que no puede leer nada porque para mostrar algo, o para utilizar el Directory(), primero debe hacerse que el CDROM funcione (es decir que el motorcito del aparatito haga la funciòn de girar el CD de datos).'),(176,793,0,6,1248102976,'Como conectar fwh con una access','Hola amigos  del Foro \n\nHe tratado de conectar  una base de datos access utilizando adorrdd pero no me funciona. Se me cuelga la aplicacion\nPor favor me orientan  como puedo hacerlo con otra clase.\n\n\n\nSaludos \nErick Almanza \nfwh. 806, bcc55, xharbour 1.1'),(177,891,16194,6,1248709264,'Re: Como mostrar un Archivo Texto Plano','[quote=&quot;lubin&quot;]Hola Lorenzo\n\nEs cierto,  yo tambien hacia  lo mismo en clipper,  e inclusive llegue a encontrar  en uno de los foros  un textView.obj  (hecho en C )  que lo compilabas y enlazabas con el clipper  y te mostraba perfectamente un archivo texto  sin importar el tamaño, pues  ni si quiera lo cargabas  en una variable  como se hacia  con el memoedit  ,, (ello te restringia el tamaño del archivo)  si no de frente le ponias  el Nombre del Archivo como parametro  :  (TextView(&quot;mitexto.txt&quot;) )  y listo  te abria la ventana...  bueno  lamentablemente  con  FiVeWin,Harbour  no funciona. se cuelga.\n\nHe estado  buscando y he probado inclusive  con el  Notepad.exe  del Windows mismo. y si funciona,  el inconveniente  que tambien  pueden  MODIFICAR el  texto, y esto no lo deseo,  solo deberian de poder verlo \n\nGracias por el comentario,  y si en caso sabes de algun programa externo que permita leer desde FWH  un archivo texto  sin posibilidad de editarlo seria de mucha  ayuda. \n\nLubin[/quote]\n\nHola Lubin buenos dias como esta amigo, les dejo unas funciones que a mi me sirvio de mucho en clipper 5.3, que se puede leer el texto y visualizarlo y asi como tambien enviar a la impresora , espero que les sirva de mucho y lo puedan adaptar al FWH, que yo no he tenido tiempo de adaptarlo y asi como tambien un ejemplo de como llamar de un archivo texto.\n[code]\n\n\n/***\n* Fbrwsdef.ch\n*\n* Translates para simular la sub-clase del browse de ficheros\n*/\n\n#xtranslate :fileHandle   =&gt; :cargo\\[1\\]\n#xtranslate :fileLine     =&gt; :cargo\\[2\\]\n#xtranslate :lineOffset   =&gt; :cargo\\[3\\]\n\n* Futils.ch\n// Posici¢n actual del fichero\n#xtranslate FTell(&lt;fHandle&gt;) =&gt; FSeek(&lt;fHandle&gt;, 0, 1)\n\nIF SINO = 1\n            FIN_REP()\n\n            IF !EMPTY(ARCH_EXP)\n                bDEVICE = SET(20)\n                COPY FILE (VER_REP) TO (ARCH_EXP)+&quot;.TXT&quot;\n                MENSAJE(&quot;SE CREO EL ARCHIVO &quot;+ALLTRIM(ARCH_EXP)+&quot;.TXT&quot;+&quot; &quot;+&quot;EN EL DIRECTORIO &quot;+CURDIR())\n            ENDIF\n\n            VER(VER_REP, 0,0,22,79)\n        ELSE\n            \n            RUN NODOSIMP &amp;WREPORTE\n            \n            CERRAR(\'R_ANTSDO\')\n        ENDIF                \n        \n        SELECT 99\n        USE\n            \n        FERASE(NEWDBF1)\n        FERASE(NEWNTX1)\n        FERASE(VER_REP)\n    ENDIF\n\n**************************************************************\n*--------- FUNCION QUE LEE ARCHIVOS ASCI A 64 BITS ----------*\n**************************************************************\n#include &quot;Fbrwsdef.ch&quot;\n\n// El nombre del fichero es pasado como par metro\n*-----------------------------------------\nFUNCTION VER(cFname, LIN1,COL1, LIN2,COL2)\n LOCAL COLORc:=SetColor(\'W/N ,N/W,,,W/B\')\n LOCAL oTbr, oTbc\n LOCAL lExitRequested := .F.\n LOCAL cSearcher, nSavefPos\n LOCAL nKey\n LOCAL GetList := {}\n\n SET SCOREBOARD OFF\n\n IF cFname == NIL .OR. !File(cFname)\n	 Alert(&quot;Sintaxis: FBTest &lt;cFileName&gt;&quot;)\n	 QUIT\n ENDIF\n\n SUBSTm:=\'P_\'+SUBSTR(cFNAME,3,10)\n*COPY FILE (cFNAME) TO (SUBSTm)\n\n* @ 23,1 SAY &quot;F2-B£squeda adelante  F3-B£squeda atr s  Pgup-Arriba   PgDn-Abajo           &quot; COLOR \'N/W\'\n\n CAJACONV(LIN1,COL1,LIN2,COL2,\'W+/W\',\'N/W\',\'\')\n \n @ 23,1 SAY &quot;F2-B£squeda adelante  F3-B£squeda atr s  Pgup-Arriba   PgDn-Abajo           &quot; COLOR \'N/W\'\n\n IF (oTbr := FBrowseNew()) != NIL\n	 FBrowseOpen(oTbr, cFname)\n	 oTbr:nTop	  := 1\n	 oTbr:nLeft   := 1\n	 oTbr:nBottom := 21\n	 oTbr:nRight  := 78\n	 oTbc:= TBColumnNew(, {|| SubStr(oTbr:fileLine, oTbr:lineOffset) })\n	 *oTbr:colorSpec =&quot;G/N,W+/R,N,N,B/W,R/B,B/R,R/B,B/R&quot;\n	 oTbr:colorSpec =&quot;W/B,W+/R,N,N,B/W,R/B,B/R,R/B,B/R&quot;\n     oTbc:width := 78\n	 oTbr:addColumn(oTbc)\n\n	 cSearcher := Space(20)\n	 DO WHILE !lExitRequested\n		 DO WHILE !oTbr:stabilize()\n		 ENDDO\n\n		 SET CURSOR OFF\n\n         nKey := InKey(0)\n		 DO CASE\n			CASE nKey == 27\n				  lExitRequested := .T.\n\n			CASE nKey == 19 //IZQUIERDA\n				  IF oTbr:lineOffset &gt; 1\n					  oTbr:lineOffset--\n					  oTbr:refreshall()\n				  ENDIF\n\n			CASE nKey == 4	// DERECHA\n				  IF oTbr:lineOffset &lt; len(oTbr:fileLine)\n					  oTbr:lineOffset++\n					  oTbr:refreshall()\n				  ENDIF\n\n			CASE nKey == 1	// INICIO\n				  oTbr:lineOffset := 1\n				  oTbr:refreshall()\n\n			CASE nKey == 6	// FIN\n				  oTbr:lineOffset := Max(1, Len(oTbr:fileLine) - oTbc:width + 1)\n				  oTbr:refreshAll()\n\n			CASE nKey == 9	// TABULADOR\n				  IF oTbr:lineOffset &lt;= Len(oTbr:fileLine) - 10\n					  oTbr:lineOffset += 10\n					  oTbr:refreshAll()\n				  ENDIF\n\n			CASE nKey == 271 // TABULADOR\n				  oTbr:lineOffset := MAX(1, oTbr:lineOffset - 10)\n				  oTbr:refreshall()\n\n			CASE nKey == -1  // F2\n				  SET CURSOR ON\n				  @ 24, 0\n				  @ 24, 10 SAY &quot;Introduzca la clave de b£squeda hacia delante&quot; GET cSearcher PICT \'@K\'\n				  READ\n\n				  @ 24, 0\n				  IF FrwdSrch(oTbr, Trim(cSearcher))\n					  oTbr:refreshAll()\n				  ELSE\n					  MENSAJE(\'No Encontrado\')\n                  ENDIF\n\n			CASE nKey == -2  // F3\n				  SET CURSOR ON\n                  @ 24, 0\n				  @ 24, 10 SAY &quot;Introduzca la clave de b£squeda hacia atras&quot; GET cSearcher PICT \'@K\'\n				  READ\n\n				  @ 24, 0\n				  IF BkwdSrch(oTbr, Trim(cSearcher))\n					  nSavefPos := FilePos(oTbr)\n					  oTbr:refreshAll()\n\n					  DO WHILE !oTbr:stabilize()\n					  ENDDO\n\n					  DO WHILE FilePos(oTbr) != nSavefPos\n						  oTbr:up()\n						  DO WHILE !oTbr:stabilize()\n						  ENDDO\n					  ENDDO\n				  ELSE\n					  MENSAJE(\'No Encontrado\')\n				  ENDIF\n\n		   *CASE nKey == -4  // F5\n				 *TYPE (SUBSTm) TO PRINTER\n\n		   *CASE nKey == -8  // F9\n		   *	  LB_CALCULADORA()\n\n            OTHERWISE\n				  IF StdMeth(oTbr, nKey)\n					 //  Manejador est ndar de teclas\n				  ELSE\n					// Se ignoran otras\n				  ENDIF\n			ENDCASE\n	 ENDDO	 \n\n*	 FERASE(SUBSTm)\n     SET CURSOR ON\n     SETCOLOR(COLORc)\n	 CLEAR SCREEN\n	 SET PRINTER TO\n ENDIF\n RETURN NIL\n\n*--------------------\nFUNCTION FilePos(oTbr)\n RETURN FTell(oTbr:fileHandle)\n\n*-------------------\nFUNCTION FBrowseNew\n LOCAL oTbr := TBrowseNew()\n\n oTbr:cargo := Array(3)\n oTbr:lineOffset := 1\n oTbr:goTopBlock	:= {| | FileGoFirst(oTbr) }\n oTbr:goBottomBlock := {| | FileGoLast(oTbr)  }\n oTbr:skipBlock 	:= {|n| FileSkip(n, oTbr) }\n RETURN (oTbr)\n\n*------------------------------------\nFUNCTION FBrowseOpen(oTbr, cFileName)\n LOCAL fHandle := FOpen(cFileName)\n\n IF fHandle &gt;= 0\n	 oTbr:fileHandle := fHandle\n	 FileGoFirst(oTbr)\n ENDIF\n RETURN ( fHandle &gt; 0 )\n\n\n// Ir a la primera l¡nea del fichero y leerla en oTbr:fileLine\n*----------------------------------\nSTATIC PROCEDURE FileGoFirst(oTbr)\n LOCAL cLine\n LOCAL fHandle := oTbr:fileHandle\n\n FSeek(fHandle, 0, 0)\n* * FReadLn(fHandle, @cline, 256)  *  ( * MODIFICADO ADRIANO * )\n FReadLn(fHandle, @cline, 512)\n oTbr:fileLine := cLine\n FSeek(fHandle, 0, 0)\n RETURN NIL\n\n// Ir a la £ltima l¡nea del fichero y leerla en oTbr:fileLine\n*--------------------------------\nSTATIC PROCEDURE FileGoLast(oTbr)\n FSeek(oTbr:fileHandle, 0, 2)\n GoPrevLn(oTbr)\n RETURN NIL\n\n\n// Salta n l¡neas en el fichero. n puede ser positivo o negativo.\n// Devuelve el n£mero de l¡neas que se ha movido\n*---------------------------------\nSTATIC FUNCTION FileSkip(n, oTbr)\n LOCAL nSkipped := 0\n\n SET COLOR TO \'G/N\'\n IF n &gt; 0\n	 DO WHILE nSkipped != n .AND. GoNextLn(oTbr)\n		 nSkipped++\n	 ENDDO\n ELSE\n	 DO WHILE nSkipped != n .AND. GoPrevLn(oTbr)\n		 nSkipped--\n	 ENDDO\n ENDIF\n RETURN (nSkipped)\n\n\n// Intenta moverse a la siguiente l¡nea del fichero\n// Devuelve .T. si lo consigue, sino .F. \n// Tiene que ser p£bica por la rutina de b£squeda\n*-----------------------\nFUNCTION GoNextLn(oTbr)\n LOCAL fHandle := oTbr:fileHandle\n LOCAL nSavePos := FTell(fHandle), cBuff := &quot;&quot;, lMoved, nNewPos\n\n FSeek(fHandle, Len(oTbr:fileLine) + 2, 1)\n nNewPos := FTell(fHandle)\n* * IF FReadLn(fHandle, @cBuff, 256) *  ( * MODIFICADO ADRIANO * )\n IF FReadLn(fHandle, @cBuff, 512)\n	 lMoved := .T.\n	 oTbr:fileLine := cBuff\n	 FSeek(fHandle, nNewPos, 0)\n ELSE\n	 lMoved := .F.\n	 FSeek(fHandle, nSavePos, 0)\n ENDIF\n RETURN (lMoved)\n\n\n// Tiene que ser p£blica por las rutinas de b£squeda\n*----------------------\nFUNCTION GoPrevLn(oTbr)\n LOCAL fHandle := oTbr:fileHandle\n LOCAL nOrigPos := FTell(fHandle), nMaxRead, nNewPos, ;\n		   lMoved, cBuff, nWhereCrLf, nPrev, cTemp\n\n IF nOrigPos == 0\n	 lMoved := .F.\n ELSE\n	 lMoved := .T.\n	 //  Comprobar los 2 caracteres precedentes para CR / LF\n	 FSeek(fHandle, -2, 1)\n	 cTemp := Space(2)\n	 FRead(fHandle, @cTemp, 2)\n	 IF cTemp == CHR(13)+CHR(10)\n		 FSeek(fHandle, -2, 1)\n	 ENDIF\n     nMaxRead := MIN(512, FTell(fHandle))\n\n	 cBuff := Space(nMaxRead)\n	 nNewPos := FSeek(fHandle, -nMaxRead, 1)\n	 FRead(fHandle, @cBuff, nMaxRead)\n	 nWhereCrLf := Rat(CHR(13)+CHR(10), cBuff)\n	 IF nWhereCrLf == 0\n		 nPrev := nNewPos\n		 oTbr:fileLine := cBuff\n	 ELSE\n		 nPrev := nNewPos + nWhereCrLf + 1\n		 oTbr:fileLine := SubStr(cBuff, nWhereCrLf + 2)\n	 ENDIF\n\n	 FSeek(fHandle, nPrev, 0)\n ENDIF\n RETURN (lMoved)\n\n\n// Devuelve si lo encotr¢ o no - busca hacia adelante\n// Si lo encuentra, asigna a cLine la l¡nea actual y\n// coloca el puntero al comienzo de lo encontrado\n// Si no se encuentra, no hay cambios\n*-------------------------------\nFUNCTION FrwdSrch(oTbr, cString)\n LOCAL fHandle := oTbr:fileHandle\n LOCAL lFound := .F.\n LOCAL nSavePos := FTell(oTbr:fileHandle)\n LOCAL cSavecLine := oTbr:fileLine\n\n DO WHILE !lFound .AND. GoNextLn(oTbr)\n	 lFound := cString $ oTbr:fileLine\n ENDDO\n\n IF !lFound\n	 FSeek(fHandle, nSavePos, 0)\n	 oTbr:fileLine := cSavecLine\n ENDIF\n RETURN (lFound)\n\n\n// Devuelve si lo encotr¢ o no - busca hacia atras\n// Si lo encuentra, asigna a cLine la l¡nea actual y\n// coloca el puntero al comienzo de lo encontrado\n// Si no se encuentra, no hay cambios\n*--------------------------------\nFUNCTION bkwdSrch(oTbr, cString)\n LOCAL lFound := .F.\n LOCAL fHandle := oTbr:fileHandle\n LOCAL nSavePos := FTell(fHandle)\n LOCAL cSavecLine := oTbr:fileLine\n\n DO WHILE !lFound .AND. GoPrevLn(oTbr)\n	 lFound := cString $ oTbr:fileLine\n ENDDO\n\n IF !lFound\n	 FSeek(fHandle, nSavePos, 0)\n	 oTbr:fileLine := cSavecLine\n ENDIF\n RETURN (lFound)\n\n/***\n* FReadLn(fHandle, cBuffer, nMaxLine)\n*\n*   --&gt; Lógico  - .T. Si se ha leido total o parcialmente.  \n*                 .F. implica fin de fichero\n*\n* fHandle       - El devuelto por FOpen()\n* cBuffer       - Buffer para la l¡nea (pasado por referencia)\n* nMaxLine      - Longitud de la l¡nea m s larga\n*\n* La funci¢n intenta leer una l¡nea del fichero especificado\n* por fHandle. Supone que la l¡nea esta terminada por un CR/LF.\n* Devuelve la l¡nea en el par metro cBuffer, que debe ser\n* pasado por referencia. Esta versi¢n utiliza un buffer para\n* mejorar el rendimiento.\n*/\n*--------------------------------------------\nFUNCTION FReadLn(fHandle, cBuffer, nMaxLine)\n LOCAL cLine, nEol, nNumRead, nSavePos\n\n cLine	 := Space(nMaxLine)\n cBuffer := &quot;&quot;\n\n // Guardar la posici¢n actual para b£squeda posterior\n nSavePos := FTell(fHandle)\n\n nNumRead := FRead(fHandle, @cLine, nMaxLine)\n\n IF (nEol := At(CHR(13)+CHR(10), SubStr(cLine, 1, nNumRead))) == 0\n	 cBuffer := cLine\n ELSE\n	 cBuffer := SubStr(cLine, 1, nEol - 1)	// Copiar hasta fin de l¡nea\n	 // Nos posicionamos en la siguiente l¡nea (saltamos LF)\n	 FSeek(fHandle, nSavePos + nEol + 1, 0)\n\n ENDIF\n RETURN (nNumRead != 0)    //NOTA: Si no se pudo leer la £ltima l¡nea, eof\n\n*---------------------------\nFUNCTION StdMeth(oTbr, nKey)\n LOCAL lKeyHandled := .T.\n\n DO CASE\n	CASE nKey == 24;  oTbr:down()\n	CASE nKey ==  5;  oTbr:up()\n	CASE nKey ==  3;  oTbr:pageDown()\n	CASE nKey == 18;  oTbr:pageUp()\n	CASE nKey == 31;  oTbr:goTop()\n	CASE nKey == 30;  oTbr:goBottom()\n	CASE nKey ==  4;  oTbr:right()\n	CASE nKey == 19;  oTbr:left()\n	CASE nKey ==  1;  oTbr:home()\n	CASE nKey ==  6;  oTbr:end()\n	CASE nKey == 26;  oTbr:panLeft()\n	CASE nKey ==  2;  oTbr:panRight()\n	CASE nKey == 29;  oTbr:panHome()\n	CASE nKey == 23;  oTbr:panEnd()\n	OTHERWISE;		  lKeyHandled := .F.\n ENDCASE\n RETURN lKeyHandled[/code]'),(178,292,0,6,1248929288,'Posicionar el final en MultiGet','Coelgas,\n\nDeseo refrescar las inserción de textos en MultiGet, es decir, agrego nuevas lineas, y al pasar el area visual deseo que se muestren los nuevos textos, o mejor dicho, mostrar las ultimas líneas.'),(179,2,16252,3,1248968647,'Re: New FWH 9.07','Using new RibbonBar controls in your own dialogs:\n\n[IMG]http://img22.imageshack.us/img22/8487/controlso.jpg[/IMG]'),(180,495,0,6,1249008837,'ERROR al Leer desde  Excel','Estimados Ayuda por favor...\n\nNecesito leer desde una planilla Excel la informacion que genera el usuario, este archivo tiene 9 Columnas e indefinidas Filas, la cosa es que NO logro entender por que siempre me deja fuera de la lectura las ultimas 2 o 3 filas.\neste codigo utilizo:\n\n    oExcel := TOleAuto():New( &quot;Excel.Application&quot; )\n    cFile := cGetFile(&quot;*.XLS&quot;, &quot;Seleccione Fichero&quot;)\n    if empty( cFile)\n       retur nil\n    endif\n\n    oExcel:WorkBooks:Open( cFile )\n    oHoja := oExcel:ActiveSheet\n\n    nRows := oHoja:UsedRange:Rows:Count()        ----&gt;Esto NO lee todas las filas, siempre falta por leer 1 o 2\n    nCols := oHoja:UsedRange:Columns:Count()\n\n    FOR nRow := 01 TO (nRows)\n      AAdd( ::aDatos,{NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL,NIL } )\n      FOR nCol := 1 TO nCols\n         nAt := Len( ::aDatos )\n         xValue := oHoja:Cells(nRow,nCol):Value\n         ::aDatos[nAt][nCol] := xValue\n         SysRefresh()\n      NEXT\n      Memory(-1)\n    NEXT\n   oExcel:Quit()\n\nalguien tiene alguna opinion?? existe otra forma de leer informacion desde planillas Excel.\n\ngracias a todos\n\nMauro'),(182,351,16286,3,1249412527,'Re: FWH 9.07 for Harbour SVN - ready! :-)','every thing OK with harbour.exe from FWH\nbut with harbour SVN\nI  have this error\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\FWH\\LIB\\FIVEH.LIB|IMAGE\nPatrick'),(184,1222,0,6,1250007507,'Error con la clase TIMAGE','Hola a todos,\n\nEstoy empezando a utilizar la clase Timage del FWH ver 8.02, incluyo en el directorio de la aplicación la libreria freeimage.dll.\n\nMi codigo .prg:\n[code=fw]\n   REDEFINE IMAGE oFotoEmp ID 400 OF oDlg_Empleado FILE ( mC20 ) SCROLL UPDATE ;\n                 WHEN lNew_Empleado .or. lEdit_Empleado\n   REDEFINE BUTTON oBtnFindFotoEmp ID 300 OF oDlg_Empleado  UPDATE;  //buscar Foto Empleado\n        ACTION ( FFindFotoEmp(oFotoEmp),oDlg_Empleado:Update() )\n   oBtnFindFotoEmp:cTooltip:=&quot;Buscar Imagen  Empleado...&quot;\n [/code]\n\ny la funcion FFindFotoEmp:\n[code=fw]\nFunction FFindFotoEmp(oFotoEmp)\n   local gcFile := cGetFile( &quot;Bitmap (*.bmp)| *.bmp|&quot; +         ;\n                             &quot;DIB   (*.dib)| *.dib|&quot; +          ;\n                             &quot;PCX   (*.pcx)| *.pcx|&quot;  +         ;\n                             &quot;JPEG  (*.jpg)| *.jpg|&quot; +          ;\n                             &quot;GIF   (*.gif)| *.gif|&quot;  +         ;\n                             &quot;TARGA (*.tga)| *.tga|&quot; +          ;\n                             &quot;RLE   (*.rle)| *.rle|&quot; +          ;\n                             &quot;All Files (*.*)| *.*&quot;             ;\n                            ,&quot;Please select a image file&quot;, 4 )\n  mC20:=gcFile\n  oFotoEmp:Reload( , mC20 )\n  oFotoEmp:Refresh()\nReturn nil\n [/code]\n\n\nLa primera vez que ejecuto, es decir, no hay fotos cargadas en la ficha, funcionma bien, me deja seleccionar, visualiza, etc.,; pero si salgo del mantenimiento al volver a abrir la ficha da el siguiente error:\n   Error occurred at: 11/08/2009, 17:07:30\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: SETRANGE\n   Args:\n     [   1] = U   \n     [   2] = N   0\n     [   3] = N   0\n\nAlguien se le ha dado este caso.\nUn cordial saludo\nErnesto'),(185,1511,15819,3,1250068302,'Re: XP-Theme for double-byte ASIA area','already attach!!'),(187,37,16356,6,1250280158,'Re: OT -&gt; SQL','Te puedo mencionar que aca lo usamos tambien y funciona Ok.\nHay 2 productos similares SQLLIB que funciona para MySQL y PostGreSQL y SQLRDD del mismo equipo de xHarbour.com que permite las 2 anteriore y SQL Server, Oracle y demas, ambas soportan los comandos xBase que tienes implementados en tus versiones DBF, pero te aseguro que con el tiempo, poco a poco cambiaras los Do Whil por Update y los Append por Insert, es mucho mas rapido cuando trabajas con comandos SQL nativos, pero puedes ir convirtiendo poco a poco.\nVienen con manual y ejemplos, lo mas dramatico, es la conexion, una vez que conectas y creas tus tablas, lo demas es &quot;casi&quot; como seguir usando xBase.\nSaludos'),(188,110,16410,6,1250782075,'Re: Ayuda a completar el wiki y gana un FWH 9.07 !!!','Antonio\n\n..\nSi no tienes acceso al wiki de FiveTech, envíame un email para solicitar acceso\n..\n\nno recuerdo tu email, podrias por favor decirme cual es, para solicitarte el acceso al wiki.\n\nsalu2\ncarlos vargas'),(189,362,0,6,1251294289,'ERROR(32) CREATING ENHANCED METAFILE','ERROR(32) CREATING ENHANCED METAFILE\n\nC:\\DOCUME~1\\USUARIO\\CONFIG~1\\TEMP\\TMP001.EMF\n\nBuenos dias, que estoy haciendo errado,  que causa este error y como soluccionar?\n\nGracias.\n\nAbraços.'),(190,362,0,6,1251294491,'ERROR(32) CREATING ENHANCED METAFILE','ERROR(32) CREATING ENHANCED METAFILE\n\nERROR(32) CREATING ENHANCED METAFILE\n\nC:\\DOCUME~1\\USUARIO\\CONFIG~1\\TEMP\\TMP001.EMF\n\nComo soluccionar este error?? :oops: \n\nGracias'),(191,362,0,6,1251314014,'ERROR(32) CREATING ENHANCED METAFILE','ERROR(32) CREATING ENHANCED METAFILE\n\nC:\\DOCUME~1\\USUARIO\\CONFIG~1\\TEMP\\TMP001.EMF\n\nGracias\n\nSaludos'),(192,362,16491,6,1251461728,'Re: APORTE: FUNCTION DISPLAY 2.0','[b]Bravo! Parabéns William[/b]'),(193,362,16491,6,1251461764,'Re: APORTE: FUNCTION DISPLAY 2.0','maravilhoso William!'),(194,1777,16443,6,1251745750,'Re: RDD para SQL','Estimados Srs:\n\nYo no hice los programas de Clipper y Fivewin. Me defiendo con FW y con lo básico de Clipper, pero me pierdo con los arrays y los codeblocks.\n\n¿Qué libros me recomiendan sobre Clipper avanzado?. Muchas gracias. :D'),(195,362,16559,6,1251987125,'Re: UNA de Checkbox','hola, en tu .dbf, tiene un campo logico? para retorna .T. ou .F.?'),(196,148,0,3,1252161982,'Australia resident members','Dear all,\nI need an advice from people from Australia about certain IT issues. Can you please help me sending me your own email.\nmy email is : ehabaziz2001@gmail.com\nThanks'),(197,1221,16587,6,1252175776,'Re: Get Redondos en un FOLDER ( RESUELTO )','También quisiera saber, investigué ne que no se encuentra nada acerca de este comando \n\n\nLuiz Fernando'),(198,1777,16611,6,1252351281,'Re: Prometheus en 32 bits o algo similar???','Hola:\n\nMira http://sourceforge.net/projects/ourxdbu/\n\nEs opensource y está realizado con FWH.\n\n\nSalu2'),(201,480,0,4,1252676215,'PMP com Windows CE 5.0','Hello \nI have a Cowon Q5W PMP with windows CE 5.0 and can not run FWPPC it. The processor is an AMD RMI Alchemy Au1250. FWPPC is incompatible with the device or is a matter of configuration?'),(202,396,0,6,1252946877,'SISTEMA PARA CRISTALERIA Y CARPINTERIA','Saludos amigos del foro, he vuelto despues de casi 1 año o mas de ausencia, gracias a Dios todo bien, como retomo mis andanzas de programacion empiezo a realizar mis consulta y tratare de ayudar en lo que pueda con mis pocos conocimientos, la pregunta del dia es la siguiente: alguien conoce un algoritmo para el ALGORITMO GRASP PARA CORTES DE GUILLOTINA EN 2D?.. es el metodo mas facil y practico para el diseño de sistemas para cristalerias y carpinteria, habia empezado hacer algo parecido conel colega Daniel, lo llamo DISTRIBUCION DE CORTES CUADRADOS Y RECTANGULARES EN UN AREA DADA, buscando y esperando el menor desecho. si alguien tiene alguna idea o sugerencia, BIENVENIDA sera, luego pondre lo que he adelantado, gracias y que todos esten bien..saludos...FELIZ DIA.!  :shock:'),(204,362,16809,6,1253823695,'Re: Uso Set Key','Angel,\n\nExcelente idéa!\n\nGracias :lol:'),(205,1388,16811,3,1253855530,'Re: Still a problem with Ribbon on FWH909','Anyone?\n\n\nMr. Antonio Linares?    any word from you?\n\n\nRegards,\nFrances'),(206,1397,16837,6,1254107823,'Re: Consulta de un dbf con Ado','Hola\nEspero te ayude a resolver tu problema\noRcs:Source := &quot;Select * From MaesFaVe m,Clientes c Where m.CodCli=c.CodCli And FecFave &gt;= \'&quot; + NtocSql(cFecDes) + &quot;\'And FecFaVe &lt;= \'&quot; + NtocSql(cFecHas)\n//\nFunction NtocSql(Fecha)\n	Return(Ntoc(Year(Fecha),4) + &quot;-&quot; + Ntoc(Month(Fecha),2) + &quot;-&quot; + Ntoc(Day(Fecha),2))'),(208,297,0,3,1254903112,'field name length','Hi everybody,\n     does exist a function that convert long field name (for instance helpful in a import program from Sql to Dbf).\ninto a dbf compatibile field_name (max 10 char)?\n\nAny hints?\n\nDoes exist a kind of dbf file type that permits FIELD_NAME lenght &gt; 10 char?\n	\nIt would be nice to create a new DBF format which allows to go beyond this limit.\n\nThanks in advance\nmarco'),(209,519,17002,6,1255169585,'Re: autocompletar get','Hola\n\n  La clase autoget hace lo que buscas.\n\n  En este enlace la puedes encontrar : http://forums.fivetechsupport.com/viewtopic.php?f=3&amp;t=6726&amp;hilit=autoget'),(210,367,0,3,1255712850,'WebService','I need to send an XML file generated by my system to ANVISA, but for that I\nto inform the User and password, the site of anvisa will check the User and password, if\nis correct will get the XML file, if it is wrong will not accept.\n\nThe shape of transmission is via WebService. How to do it via FiveWin? If you can give me a hint.\n\nWaiting in the wings,\n\nKleyton'),(211,26,17066,3,1255881660,'Re: FWH console (text-mode) application','[quote=&quot;Antonio Linares&quot;] and link gtwin.lib instead of gtgui.lib (modified inside samples\\buildhm.bat):\n[/quote]\n\nThanks for hints. When I link both GTGUI and GTWIN libraries, the solution, described in second message of this thread, works ...\nBut when I link only GTWIN, the following lines do the magic:\n\n[code=fw]procedure FW_GT\nreturn\n\nREQUEST HB_GT_WIN_DEFAULT\nANNOUNCE HB_GT_GUI[/code]\n\nAnyhow, with the help of this forum I was able to build new versions of our apps 3 days before the public launch of W7.  :mrgreen: \n\nCheers, Roman'),(213,1408,0,4,1256249260,'combobox not open in de WM 6.5','I have here a problem which has put the forum a few months and still can not solve.\nThe following example was tested on Windows emulator 6.5, and 6.1\n\n#include &quot;FWCE.ch&quot; \nfunction Main() \nlocal oWnd, cValue :=&quot;One&quot;\nDEFINE window oWnd TITLE &quot;Combos&quot; \n@ 1, 1 COMBOBOX cValue ITEMS { &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; } OF oWnd\nACTIVATE window oWnd\nreturn nil \n\nin the 6.5 the combobox not open \n\n\n\n\nin thr 6.1 or 5.0 operate normally\n\n\nAny topic will be a great help.\n best Regards\n    Sérgio'),(214,1060,0,3,1257232332,'Number of current page','Hi, all !\n\nI  have opened the multipage document (ActiveX IE)\n\n1) As it is possible to define number of current page ?\n2) As it is possible to forbid navigation buttons - PgDn/PgUp ?'),(215,1030,0,6,1257461072,'Enumerar paginas con tReport','Hola a todos!!\nAlguien me podria ayudar...estoy usando tReport y estoy tratando de enumerar las paginas de un reporte pero comenzando de un numero especifico. El metodo nPage me permite enumerar pero siempre comienza de 1 y yo necesito comenzar de un numero especifico que me ingresa el usuario.\n\nDesde ya mil gracias y saludos a todos!   :D'),(216,293,0,21,1257904391,'Erro na compilação','Sou um iniciante em Fivewin for harbour e comprei o FWH 9.10 mas não consigo funcionar porque me dá o seguinte erro:\n&quot;Fatal : Unable to open file UUID.LIB&quot;\n\nEu compilo o meu projecto com Verce, e estou usando FWH 9.10, xHarbour.\n\nEstive a verificar e tenho o ficheiro UUID.LIB em BCC55\\LIB.\nEmbora tenha BCC56 estou a usar BCC55.\n\nAlguém me pode ajudar a ultrapassar este problema??\n\nMuito obrigado\n\nJufer'),(217,1832,17311,3,1258445914,'Re: error upgrade from fwh7.11 to fwh9.10','Thanks for your help\n\nEnclosed is the .zop file containing .prg files, .lib files, make file and .bat file \nThe ecs.prg is taken from achoice.prg.\n\nPlease help\n\nThanks \n\nRegards\n\nAC Woo\nUsing fwh7.10+harbour+bcc55[size=85][/size]'),(218,953,17390,3,1258503039,'Re: Compiling WINDOWS 7 /AntiVir Guard','Does it tell you which file?'),(219,394,17408,3,1258650920,'Re: Is this the correct way to create a one byte LRC','Thanks Mike'),(222,367,0,3,1259440288,'FastReport','Dear, friends \n\nI can tell 3 titles via PRG, can you please tell me how?\n\nWaiting, thanks.\n\n[code=fw]\nFunction Main(_desig_, _arq_, _fastRep_, _tit01_, _tit02_, _tar01_, _arai_ )\nlocal oWnd, oFrPrn\nusuario := &quot;ADM&quot;\n\nif empty(_arq_)\n   quit \nEndif\n\nREQUEST DBFCDX\nuse (_arq_) alias tmp\ntmp-&gt;( browse() )\n\noFrPrn := frReportManager():new()\noFrPrn:SetTitle( &quot;Teste Title not visible in relat  1&quot; )         //título da janela do FRH\noFrPrn:SetIcon(1)                                                     //ícone da janela do FRH\noFrPrn:LoadLangRes( &quot;brazil.xml&quot;)                            //arquivo de idioma\noFrPrn:SetWorkArea(&quot;tmp&quot;, 1 )\noFrPrn:SetTitle( &quot;Teste Title not visible in relat 2&quot; )         //título da janela do FRH\noFrPrn:SetDefaultFontProperty(&quot;Name&quot;, &quot;Lucida Console&quot;)\noFrPrn:SetDefaultFontProperty(&quot;Size&quot;, 08)\n\noFrPrn:LoadFromFile(_fastRep_)                           // para leitura direta de arquivo FR3\n*oFrPrn:LoadFromResource(\'NOVO\')                       // leitura dos recursos do relatório ( FR3 ) incluído no arquivo RES\n\noFrPrn:PreviewOptions:SetAllowEdit( .t. )             // inibe o botão de edição do relatório pelo usuário\n\nif _desig_=&quot;S&quot;\n   oFrPrn:DesignReport()                        // aqui para &quot;desenhar&quot; o relatório\nelse\n   oFrPrn:ShowReport()                       // aqui para gerar o preview do relatório.\nendif\n\noFrPrn:DestroyFR()\n\n\nRETURN NIL\n\n [/code]'),(223,1839,0,6,1259566643,'FWH64 - error','Hi Antonio,\nThanks for the help related to new FWH64. I have another problem.\nI have a program developed under FWH32 and being work fine under window 7/64.\nProgram compiled with FWH64 -&gt; all good , no error.\nProgram start up fine in window 7 /64  -&gt; ok\nWhen run, no matter what errors - syntax, mistype, files etc. . It only\ndisplay one type of error message.\n&quot;Error Base/1099 Argument error: STR from Errorsys, line 0&quot;\nwith difference number (1091, 1099)\n\nIs there a way to display like the old FHW32 what kind of error , line no etc.. ?\nIt was very difficult to fix it if I don\'t know what it is.\n\nmany Thanks\n\nDinh HA'),(224,1518,17507,3,1259654417,'Re: Firebird database - any experience ?','Can consult and use xHarbour contrib\\firebird or Harbour contrib\\hbfbird \nIt is very happy that we use the experience of firebeird in the past five years. \n\nConsider the following advantages: \n1.Firebird supports many platform.\n2.Free mandate that can commercialize. \n3.The experience which I myself test, use DLL of embed edition to change into fbclient.dll,  \n   Revise line parameter, can totally inclusive embed and C/S edition. \n\n\nbest regards,\nTom Huang'),(225,1842,0,1,1260023217,'FWH for 32 bits application from Fivewin','I bought a new PC with windows 7.\nMy Fivewin (ex CA-Clipper) programs that are 16 bits do not run any more under windows 7\nI tried to transform them with the conbination of Harbour, FWH en Bcc55 and the programs were compiled and linked without problems.\nHowever when I call most of the functions in these programs, I have always the same error message:\n&quot;error base/1081 argument error:+ from errorsys, line: 0&quot;\nCan you tell me what is going wrong please.\nMany greatings and thanks.\nJosé Deschutter, Belgium'),(226,1844,0,3,1260267303,'ListBox column in the XBROWSE','When ListBox column get focused in the XBROWSE control and user select one of an Item from the list by pressing  \nEntry key the control focus is moving to the GET item ( aGET[1] ) whereas the control focus should get next column of the XBROWSE. \n\n\nSample Code here :\n\nprocedure billentry\n\nlocal aGet := array(5)\nlocal oBrw \nlocal aBill := {\'Floppy\',\'Pcs\', 10, 40}\nlocal cCustName := space(30) \n\ndefine dailoag oDlg from 0,0 to 24,79 title &quot;List Box Test&quot;\n\n    \n  @10,10 get aGet[1] var cCustName pict &quot;@!&quot;\n \n  @20,05 XBROWSE oBrw ;\n    COLUMNS 1,2,3,4,5 ;\n    HEADERS \'Item\',\'Unit\',\'Qty\',\'Rate\';\n    SIZE 200,100 OF oDlg  \n\n  WITH OBJECT oBrw:Unit\n    :nEditType := EDIT_LISTBOX\n    :aEditTxtList := {&quot;BOX&quot;,&quot;PCS&quot;,&quot;DOZ&quot;}\n  END\n   \n  oBrw:createfromcode()\n  // ... some other code to attach to oDlg \n\n  active window oDlg on init oBrw:setfoucs()\n\nreturn nil'),(227,1390,0,6,1260393841,'Juan Eugenio Planelles Lazaga','Uso Fivewin con Harbour, la versión de Octubre 2008. La &quot;rueda&quot; del ratón me va muy bien en todas las ventanas de texto Multiget, pero no consigo que funcione en una ventana del FORMAT GET  que se aporta con la documentación. No se porqué. ¿Hay forma de que funcione?, por favor. - Juan -'),(228,1294,0,6,1261070942,'Error en Windows Vista','Estimado colegas\n\npor que puede ser que me arroje este error un programa corriente en Wimdows Vista ?\n\n[b]Application\n===========\n   Path and name: C:\\EMPRESA\\ECOGRA\\dob_Ecog.Exe (32 bits)\n   Size:   706,048 bytes\n   Time from start: 0 hours 0 mins 8 secs \n   Error occurred at: 17/12/2009, 11:29:37\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: NMAX\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; NMAX(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:SCROLLRIGHT(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:HSCROLL(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: dob_eco.prg =&gt; MAINECOGRA(79)[/b]\n\nGracias\n\nDavid\nArgentina'),(229,141,0,6,1261933470,'Cuando el martillo no le sirve al Carpintero','Hola a todos y todas,\n\nAntes que nada y primero que todo, muchas Felicitades en Navidad y un Venturoso, Prospero y Saludable 2010 a toda la comunidad.  Cito los &quot;hechos&quot; como siguen:\n\n1.- Fue para inicios de septiembre que perdi toda la informacion de mi disco duro.  Gracias a [url=http://www.mozy.com]mozy[/url] pude recuperar todos mis fuentes, y gracias a Antonio y [url=http://sqlcmd.blogspot.com]Armando Estrada[/url] pude recuperar el FWH810 y la version xHarbour para que funcionara.  Hasta aqui todo bien.\n\nSegun la Ley de Murphy: puede pasar otra vez, y ASI OCURRIO.  A principios de este mes, trabajando en Pachuca, Etdo. de Hidalgo en Mexico, volvio a ocurrir, pero lo peor es que ahora fue con DAGNO FISICO del disco duro, incluido en el set de problemas.  Finalmente cambie de disco, e instale uno de 320 GB.  La unica diferencia: instale WINDOWS 7 con el nuevo disco duro.\n\nLuego de restaurar todos los fuentes, procedi a reinstalar FWH810 y xHarbour, ademas de Borland 5.5.1 descargado de la pagina correspondiente.  Compile tres o cuatro de los SAMPLES de FWH, al ejecutarlos todo bien.  Con esto di por buena y valida la instalacion del &quot;martillo del carpintero&quot;.\n\nProcedi a re-compilar algunos de mis sistemas.  Todo bien recompilando, PERO.. al ejecutar me aparece un dialogo con este mensaje:\n\n&quot;[i]No se pudo iniciar la aplicacion; la configuracion en paralelo no es correcta.  Consulte el\nregistro de eventos de la aplicacion o use la herramienta sxstrace.exe de la linea de comandos\npara obtener mas detalles[/i]\n\nAlli comenzaron mis actuales problemas:'),(230,1844,0,3,1263197041,'How can pass pointer paramter to C function ?','Hi, \n\n I have &quot;C&quot; function that needs to pass a pointer paramter of number ( dobule ) data type. \nHow I can pass pointer to C function ? I tried but its not working.\n\n Procedure Call_C_Func\n \n  atmp := { 123123.12,  123123.1223, 12312312312.12312 }\n  \n  c_wrap_func( atmp[1] )\n\n\n HB_FUNC( c_wrap_func )\n  {\n \n   c_function( (double *) hb_parptr(1) ) ;\n   \n  } \n\nPlease guide me. Thanks in advance. \nShridhar'),(231,267,0,3,1263304641,'Save binary file from BLOB field with TmySQL','I have a very large file. I need to split this file into several pieces and save in MySQL database.\n\nI\'m using fopen / fread to read these parts of the file, but can not save them in a blob field in my database.\n\nAs I read the parts of the file to be able to write into the blob?'),(232,45,17843,6,1263483920,'Re: Ayuda con esta funcion...','Hola gente linda, como anda todo por aca !!!  :D \n\nEsta la hice yo, espero te satisfaga:\n[code]\n\nFUNCTION NumLetra( nImporte, nDec )\n\n   local cTexto:= \'\' /// Equivale a \'999999999999.99\'\n   local cPicture:=  Replicate(\'9\',12)\n   local lSonSoloCentavos:= .F., nCpn\n   local cNumero,aU,aD,aV,aC,aE,aM\n   local nImporteDec:= 0\n\n   DEFAULT nDec:= 2\n\n   if nImporte &lt; 0\n      cTexto:= \'Menos\'\n      nImporte *=-1   /// Lo paso a positivo\n   endif\n\n   if nDec == 0\n      nImporte:= Int( nImporte )\n   endif\n\n   if nDec &gt; 0\n      cPicture+= \'.\' + Replicate(\'9\', nDec)\n   endif\n\n   if nImporte &lt; 1 .and. nImporte &gt; 0  // Solo Decimales\n      nImporteDec:= Val( SubStr( Transform( nImporte, &quot;9.9999999999999999&quot; ), 3, nDec ) )\n      nImporte   := Val( AllTrim(Str(Int(nImporte))) + &quot;.&quot; + AllTrim(Str(Int(nImporteDec))) )\n   endif\n\n   //// Evaluo la cadena numerica ,dividiendola en cuadro partes:\n   //// 999 - 999 - 999 - 999 y los decimales correspondientes.\n\n   cNumero := Transform( nImporte , cPicture )\n   nImporte:= Val( cNumero )\n\n   do case\n      case nImporte  == 0 .and. nImporteDec == 0\n         cTexto  := \'Cero\'\n\n      case nDec &gt; 0 .and. nImporteDec &gt; 0\n         nImporte:= nImporteDec\n         cNumero := Transform( nImporte , cPicture )\n         lSonSoloCentavos:= .T.\n   endcase\n\n\n   aU:= {\'Uno\',\'Dos\',\'Tres\',\'Cuatro\',\'Cinco\',\'Seis\',\'Siete\',\'Ocho\',\'Nueve\'}\n   aD:= {\'Once\',\'Doce\',\'Trece\',\'Catorce\',\'Quince\',\'Dieciseis\',\'Diecisiete\',;\n         \'Dieciocho\',\'Diecinueve\'}\n   aV:= {\'Diez\',\'Veinte\',\'Treinta\',\'Cuarenta\',\'Cincuenta\',\'Sesenta\',\'Setenta\',;\n         \'Ochenta\',\'Noventa\'}\n   aC:= {\'Ciento\',\'Doscientos\',\'Trescientos\',\'Cuatrocientos\',\'Quinientos\',;\n         \'Seiscientos\',\'Setecientos\',\'Ochocientos\',\'Novecientos\'}\n   aE:= {\'Veintiuno\',\'Veintidos\',\'Veintitres\',\'Veinticuatro\',\'Veinticinco\',;\n         \'Veintiseis\',\'Veintisiete\',\'Veintiocho\',\'Veintinueve\'}\n   aM:= {\'Billones\',\'Millones\',\'Mil\',\'/100\'}\n\n\n   for nCpn = 1 to 4  /// Los 4 \'999\'\n\n      //// Analizo 1er. 9 ///\n      if Val(SubStr(cNumero,1,1)) &lt;&gt; 0  // Si existe Centena !!!\n         do case\n            case SubStr(cNumero,1,3) == \'100\'\n               cTexto:= AllTrim(cTexto) + Space(1) + SubStr(aC[1],1,4)\n            otherwise\n               cTexto:= AllTrim(cTexto) + Space(1) + aC[Val(SubStr(cNumero,1,1))]\n         endcase\n      endif\n\n      //// Analizo 2do. 9 ///\n      if Val(SubStr(cNumero,2,1)) &lt;&gt; 0  // Si existe Decena !!!\n         do case\n            case SubStr(cNumero,2,1) == \'1\' .and. SubStr(cNumero,3,1) &lt;&gt; \'0\'\n               cTexto:= AllTrim(cTexto) + Space(1) + aD[ Val(SubStr(cNumero,3,1)) ]\n            case SubStr(cNumero,2,1) == \'2\' .and. SubStr(cNumero,3,1) &lt;&gt; \'0\'\n               cTexto:= AllTrim(cTexto) + Space(1) + aE[ Val(SubStr(cNumero,3,1)) ]\n            otherwise\n               cTexto:= AllTrim(cTexto) + Space(1) + aV[ Val(SubStr(cNumero,2,1)) ]\n         endcase\n      endif\n\n      //// Analizo 3er. 9 ///\n      if Val(SubStr(cNumero,3,1)) &lt;&gt; 0 // Si existe la Unidad !!!\n         do case\n            case SubStr(cNumero,2,1) == \'1\' .or. SubStr(cNumero,2,1) == \'2\'\n            // Del 1 al 29 ya se habrian definido antes.-\n            otherwise\n               if Val(SubStr(cNumero,1,2)) &lt;&gt; 0 .and. Val(SubStr(cNumero,2,1)) &lt;&gt; 0\n                  cTexto:= AllTrim(cTexto)+\' y\'\n               endif\n               cTexto:= AllTrim(cTexto) + Space(1) + aU[ Val(SubStr(cNumero,3,1)) ]\n         endcase\n\n         if nCpn &lt;&gt; 4 .and. SubStr(cNumero,3,1) == \'1\' .and. ;\n            SubStr(cNumero,2,1) &lt;&gt; \'1\'\n\n            cTexto:= SubStr( AllTrim(cTexto), 1, Len(AllTrim(cTexto))-1 )\n            /// Sino quedaria Uno millon o Uno mil =&gt; Le saco el ultimo caracter.\n\n         endif\n      endif\n\n      if nCpn &lt; 4\n\n          if ! Val(SubStr(cNumero,1,3)) == 0\n             cTexto:= AllTrim(cTexto) + Space(1) + aM[nCpn]\n          endif\n\n          if (nCpn == 1 .or. nCpn == 2) .and. Val(SubStr(cNumero,1,3)) == 1  /// \'  1\'\n             cTexto:= SubStr( AllTrim(cTexto) , 1, Len(AllTrim(cTexto))-4) + \'ón\'\n             /// Le saco el \'ones\' y le pongo \'ón\'\n          endif\n\n      endif\n\n      cNumero:= SubStr( cNumero , 4 )\n\n   next\n\n   cNumero:= SubStr(cNumero,2,2)  /// Decimales del Nro.\n\n   if Val(cNumero) &lt;&gt; 0  // Si tiene decimales\n      cTexto:= AllTrim(cTexto)+\' Con \'+ cNumero +&quot;/1&quot;+Replicate(&quot;0&quot;,nDec)\n   endif\n\n   if lSonSoloCentavos\n\n      cTexto:= StrTran(cTexto,\'Uno\',\'Un \')\n      cTexto:= AllTrim(cTexto) + \' Centavo\'\n      if nImporte &gt; 1\n         cTexto+= \'s\'\n      endif\n\n      if nDec &lt;&gt; 2 // No le Cabe la palabra &quot;centavo&lt;s&gt;&quot; cuando nDec no es 2.\n         cTexto:= &quot;Cero Con &quot; + AllTrim(Str(nImporteDec))+&quot;/1&quot;+Replicate(&quot;0&quot;,nDec)\n      endif\n\n   endif\n\nRETURN( AllTrim( cTexto ) )\n[/code]'),(238,1873,0,6,1264976698,'xBrowse + set relation...','Hola a todos.\n\nEstoy migrando una aplicación de FW16bits a FWH 32bits, y ya que cambio, pues intento mejorar el aspecto de los programas y el nuevo browse ( xBrowse ) es genial. Pero tengo el siguiente problema con la clase xBrowse y las relaciones entre las bases de datos.\n\nCon TSBrowse y TListBox los programas funcionan perfectamente con SET RELATION y estas clases, solo hay que indicarle en la declaracion el Alias y el campo de la otra base de datos para mostrar la información:\n\nPor ejemplo: En una base de datos (A) almaceno entre otros datos el codigo de ubicación A-&gt;CodUbi, y para mostra la informacion de su denominacion simplemente hay que indicar B-&gt;DenUbi para mostrar la informacion.\n\nPues ahora copn xBrowse no me funciona bien, me muesta siempre el mismo valor, es decir, muestra la denomiacion del primier registro de la base de datos B en todos los registros de A. \n\nEste es el codigo fuente de la declaracion de xBrowse que estoy probando:\n\n   oGrid                     := TXBrowse():New( oWndPClie )\n   oGrid:cAlias              := &quot;Nidadas&quot;\n   oGrid:l2007               := .F.\n   oGrid:nTop                := -2\n   oGrid:nLeft               := nSplit + 1\n   oGrid:nBottom             := oWndPClie:nBottom-48\n   oGrid:nRight              := oWndPClie:nRight-248\n   oGrid:nMarqueeStyle       := MARQSTYLE_HIGHLROW\n   oGrid:nColDividerStyle    := LINESTYLE_BLACK\n   oGrid:lColDividerComplete := .t.\n   oGrid:bClrSel             := {|| { CLR_BLACK, nRGB( 192,192,192 )  } }\n   oGrid:bClrSelFocus        := {|| { CLR_WHITE, nRGB( 128,128,255 ) } }\n   oGrid:nHeaderLines        := 1    // Numero de lineas en la cabeceras\n   oGrid:nDataLines          := 1    // Numero de lineas en los detalles\n   oGrid:lFooter             := .T.  // Inserta pies en cada columna\n   oGrid:nDataLines          := 1    // Lineas de separacion entre lineas del detalles\n\n   oCol := oGrid:AddCol()\n   oCol:bStrData  := { || Nidadas-&gt;CodNid }\n   oCol:cHeader   := &quot;Código&quot; +CRLF+ &quot;Nidada&quot;\n   oCol:oDataFont := oFont\n   oCol:bLDClickData := { || BoxNidadas( &quot;C&quot; ),RefrescaBRW( oGrid ) }\n   oCol:bRClickData  := { || NIL }\n\n   oCol := oGrid:AddCol()\n   oCol:bStrData  := { || Nidadas-&gt;CodPar }\n   oCol:cHeader   := &quot;Pareja&quot;\n   oCol:oDataFont := oFont\n   oCol:bLDClickData := { || BoxNidadas( &quot;C&quot; ),RefrescaBRW( oGrid ) }\n   oCol:bRClickData  := { || NIL }\n\n   oCol := oGrid:AddCol()\n   oCol:bStrData  := { || Transform( Nidadas-&gt;HueAct, &quot;999&quot; ) }\n   oCol:cHeader   := &quot;Huevos Act&quot;\n   oCol:oDataFont := oFont\n   oCol:bLDClickData := { || BoxNidadas( &quot;C&quot; ),RefrescaBRW( oGrid ) }\n   oCol:bRClickData  := { || NIL }\n\n   oCol := oGrid:AddCol()\n   oCol:bStrData  := { || Nidadas-&gt;CodUbi }\n   oCol:cHeader   := &quot;Cod Ubi&quot;\n   oCol:oDataFont := oFont\n   oCol:bLDClickData := { | nRow, nCol | MsgInfo( &quot;docble click&quot;) }\n   oCol:bRClickData  := { || MsgInfo( &quot;boton derecho1 &quot;) }\n\n  /*  El problema esta aqui en esta declaracion &lt;------------------------------------------------------------------*/ \n   oCol := oGrid:AddCol()\n   oCol:bStrData  := { || Ubicacio-&gt;DenUbi }\n   oCol:cHeader   := &quot;Ubicación.DBF&quot;\n   oCol:oDataFont := oFont\n   oCol:bLDClickData := { | nRow, nCol | MsgInfo( &quot;docble click&quot;) }\n   oCol:bRClickData  := { || MsgInfo( &quot;boton derecho1 &quot;) }[/b]\n\n   oGrid:SetRDD()\n   oGrid:CreateFromCode()\n\n\nEsta declaracion de la columna es la que no funciona bien.\n\n   /*  El problema esta aqui en esta declaracion &lt;------------------------------------------------------------------*/ \n   oCol := oGrid:AddCol()\n   oCol:bStrData  := { || Ubicacio-&gt;DenUbi }\n   oCol:cHeader   := &quot;Ubicación.DBF&quot;\n   oCol:oDataFont := oFont\n   oCol:bLDClickData := { | nRow, nCol | MsgInfo( &quot;docble click&quot;) }\n   oCol:bRClickData  := { || MsgInfo( &quot;boton derecho1 &quot;) }[/b]\n\nSi me he explicado bien, alguna sugerencia que puede ser, llevo 2 horas dandole vueltas y probando todo lo que se me ocurre pero no doy con el error.\n\nMuchas gracias de antemano.\nJLL'),(239,1873,17981,6,1264977271,'Re: Borrado de una clave unica','Hola JoseGS:\n\nEn FWH la indexación de las bases de datos con FOR !Deleted() los hago asi y funcionan.\n\n   USE ( cPath + &quot;\\Parejas.DBF&quot; ) VIA &quot;DBFNTX&quot; ALIAS Parejas NEW\n   INDEX ON Parejas-&gt;CodPar TO ( cPath + &quot;\\Pareja01.NTX&quot; ) FOR ! Parejas-&gt;( Deleted() ) UNIQUE\n   INDEX ON Parejas-&gt;CodUbi TO ( cPath + &quot;\\Pareja02.NTX&quot; ) FOR ! Parejas-&gt;( Deleted() )\n   Parejas-&gt;( DbCloseArea() )\n\n   Acuerdate de comprobar como tienes el SET DELETE.\n\n   Un saludo\n   JLL'),(240,1024,18026,6,1265424118,'Re: fivewin en colombia','Bienvenido a Colombia,\n\nSi necesitas algo estoy en Cartagena.\n\nSaludos,'),(241,1397,18029,6,1265430905,'Re: Ctrl + A, B, C en xBrowse','Hola\n\n oBrw:bKeyDown    := {| nKey | If(nKey = VK_DELETE,BorLinBr(oBrw,nKey),If(nKey = VK_INSERT,InsLinBr(oBrw),If(nKey == 71 .and. GetKeyState( VK_CONTROL ),GuardarFC(),)))}\n\nEspero te ayude'),(242,1294,16020,6,1265622149,'Re: Index Decreciente','Retomando.....\n\ny para un campo fecha ?\n\nstr(codigo,8) + dtos(fecha)\n\n\nGracias\n\nDavid\nArgentina'),(243,1432,0,20,1265716379,'FWPPC RIAVVIARE ESEGUIBILE','Ciao a tutti,\nho realizzato una procedura in FWPPC\nnon so perchè avvolte capita che rimane in esecuzione ma non si vede, come se fosse nella systray\nma in wincee non vedo nessuna icona\n\nCome posso fare se rilancio dall\'icona del desktop ad accorgermi che è gia lanciato e fare riaprire e visualizzare\nil programma gia in esecuzione?\n Utilizzando questo codice riesco a capire se il programma è gia in esecuzione\n\nIf IsExeRunning( cFileName( HB_ArgV( 0 ) ) )\nMsgInfo( &quot;Applicazione già in esecuzione&quot; )\nreturn nil\nEndif\n\n\nma come faccio a farlo riaprire a tutto schermo?\nGrazie mille anticipatamente'),(244,45,18019,6,1265743309,'Re: Para Hernan Diego Ceccarelli','Willy no se si funcionara con actuiales versiones de fw.'),(250,1063,0,6,1266010212,'FACTURA ELECTRONICA CHILE','ALGUN EJEMPLO'),(251,596,17831,6,1266400477,'Re: Añadir Texto a una imagen','[quote=&quot;Antonio Linares&quot;]oImagen:Say( nRow, nCol, cText [, nClrFore, nClrBack, oFont, lPixel, lTransparent, nAlign] )\noImagen:bPainted = { || oImagen:Say( nRow, nCol, cText [, nClrFore, nClrBack, oFont, lPixel, lTransparent, nAlign] ) }[/quote]\nTengo este codigo fuente y al mover el BMP con las barras de scroll el texto &quot;no se queda anclado&quot; al BMP sino a la ventana. Quiero que este anclado al BMP.\n[code=fw]function Main()\npublic oWnd,oBmp\n\nDEFINE WINDOW oWnd FROM 0,0 TO 500,500 PIXEL \n\n// fondo3.bmp es un BMP de 1000x1000 pixels\n@ 0,0 BITMAP oBmp FILE &quot;fondo3.bmp&quot; OF oWnd SIZE 1000,1000 PIXEL SCROLL\noBmp:bPainted:={||oBmp:Say(75,75,&quot;Hola mundo&quot;,CLR_HCYAN,CLR_BLUE,,.T.,.T.,)}\n\nACTIVATE WINDOW oWnd  ON PAINT {oBmp:aDjClient(),oBmp:ScrollAdjust()} ;\n                      ON RESIZE {oBmp:aDjClient(),oBmp:ScrollAdjust()}\n\nreturn nil[/code]'),(253,1178,0,6,1266965208,'REPORT IMPRIMIR EN 2 LINEAS UN REGISTRO','Buen dia alguien me puede indicar como le digo al REPORT que me genere otra linea ya que requiero imprimir en 2 lineas un registro.\n\n[code=fw]\n  REPORT oReport ;\n          TITLE  &quot;REGISTRO REFERENCIAS &quot;,;\n                 OemtoAnsi(&quot;&quot;);\n          FONT   oFon1,;\n                 oFon2,;\n                 oFon3 ;\n          PEN    oPen1,;\n                 oPen2 ;\n          HEADER  &quot; Fecha : &quot;+dtoc(date()),;\n                  &quot;Hora  : &quot;+time(),;\n                  &quot;Pagina: &quot;+strzero(oReport:nPage,3),;\n                  memvar-&gt;X_TPAQU;\n                  RIGHT ;\n          FOOTER OemtoAnsi(memvar-&gt;X_SIGLA );//  CENTERED;\n          PREVIEW  //TO DEVICE oPrn PREVIEW     //      TO FILE &quot;d:\\test.txt&quot; TO\n\n    oReport:bPreInit:= { || oDatos:MoveFirst() }  // se cocolo el 22 ago 2009 prueba para excel\n\n         COLUMN TITLE &quot;Sta&quot; DATA  { || iif( oDatos:Fields(&quot;status&quot;):Value=1,&quot;Si&quot;,&quot;No&quot;)} ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Item&quot; DATA oDatos:Fields(&quot;consec&quot;):Value;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Codigo.Prod&quot; DATA oDatos:Fields(&quot;codprod&quot;):Value;\n                FONT 1  SIZE 10 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Simbolo&quot; DATA oDatos:Fields(&quot;simbolo&quot;):Value ;\n                FONT 1  SIZE 35  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Referencia&quot; DATA oDatos:Fields(&quot;referencia&quot;):Value ;\n                FONT 1  SIZE 25  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Largo/Alt&quot; DATA oDatos:Fields(&quot;largo&quot;):Value PICTURE &quot;999.99&quot; ;\n                FONT 1  SIZE 8 //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Ancho/B.Menor&quot; DATA oDatos:Fields(&quot;ancho&quot;):Value PICTURE &quot;999.99&quot; ;\n                FONT 1  SIZE 8  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Ancho/B.Menor&quot; DATA oDatos:Fields(&quot;ancho_m&quot;):Value PICTURE &quot;999.99&quot;;\n                FONT 1  SIZE 10 //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Fuelle.F&quot; DATA oDatos:Fields(&quot;fuel_f&quot;):Value PICTURE &quot;999.99&quot; ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Fuelle.L&quot; DATA oDatos:Fields(&quot;fuel_l&quot;):Value PICTURE &quot;999.99&quot; ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Tara&quot; DATA oDatos:Fields(&quot;tara&quot;):Value  PICTURE &quot;999.99&quot;;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Solapa&quot; DATA oDatos:Fields(&quot;solapa&quot;):Value PICTURE &quot;999.99&quot; ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Metros&quot; DATA oDatos:Fields(&quot;metros&quot;):Value PICTURE &quot;999.99&quot; ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Peso/Mil&quot; DATA oDatos:Fields(&quot;kilmil&quot;):Value PICTURE &quot;99.9999&quot; ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n\n// esto que sigue lo requiero en otra linea \n         COLUMN TITLE &quot;Tipo.Selle&quot; DATA oDatos:Fields(&quot;nombre_selle&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Tipo.Estilo&quot; DATA oDatos:Fields(&quot;nombre_estilo&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Tipo.Material&quot; DATA oDatos:Fields(&quot;nombre_mat&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Ruta&quot; DATA oDatos:Fields(&quot;nombre_rut&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Tipo.Fac&quot; DATA oDatos:Fields(&quot;tipo_factu&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Caras&quot; DATA oDatos:Fields(&quot;caras&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;Colores&quot; DATA oDatos:Fields(&quot;colores&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;C.Tratatas&quot; DATA oDatos:Fields(&quot;tratado&quot;):Value ;\n                FONT 1  SIZE 6  //SHADOW grid  //coloca sombreado\n         COLUMN TITLE &quot;No.Carperf&quot; DATA  oDatos:Fields(&quot;ncarper&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Tipo.Perforado&quot; DATA  oDatos:Fields(&quot;tipo_perforado&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Tipo.Troquelado&quot; DATA  oDatos:Fields(&quot;Tipo_troquelado&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Selle.Adicional&quot; DATA  oDatos:Fields(&quot;Selle_adicn&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Dist.Perf&quot; DATA  oDatos:Fields(&quot;Distper&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Nro.Macperf&quot; DATA  oDatos:Fields(&quot;nro_macper&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Tipo.Manija&quot; DATA  oDatos:Fields(&quot;Tipo_manija&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Color.Manija&quot; DATA  oDatos:Fields(&quot;color_manija&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Termino_Envio&quot; DATA  oDatos:Fields(&quot;termino_envio&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;num_paq&quot; DATA  oDatos:Fields(&quot;num_paq&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;uni_paq&quot; DATA  oDatos:Fields(&quot;uni_paq&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n         COLUMN TITLE &quot;Nro.Macperf&quot; DATA  oDatos:Fields(&quot;nro_macper&quot;):Value ;\n                FONT 1  SIZE 3 //SHADOW GRID 1 hace la raya vertical\n\n    END REPORT[/code]'),(254,960,18191,6,1267105989,'Re: Problema para abril DBF con ADS','Patricio,\n\nestuve intentando reconvertir las DBF a traves de ACE32.exe (ADS) pero no encontré nada. Así que haré lo que tú dices.\n\nMil gracias\nLorenzo.'),(257,907,17616,6,1268929924,'Re: Búsqueda con TSBrowse','Estimado Manuel,\n     No contesté antes, porque dejé este tema un poco de lado y decidí terminar de pasar mi aplicación de 16 bots a 32, ahora que se encuentra finalizada, retomo el tema de la búsqueda incremental sobre TSBrowse. Coloqué la linea que Ud. me indicó, pero sigue con el mismo inconveniente. No se si se le puede ocurrir alguna otra cosa. Le agradezco su tiempo.\n     Saludos.\n\nFernando Monteporzi.'),(258,907,17616,6,1268930660,'Re: Búsqueda con TSBrowse','[quote=&quot;mmercado&quot;]Hola Fernando:\n[quote=&quot;fmontepo&quot;]   Al aparecer este dialogo con este browse ordenado por localidad, uno comienza a tipear pero no realiza ninguna búsqueda, ahora si se cambia el órden del ínidice a código postal y luego se lo vuelve a cambiar por Localidad (como cuando inicia), si busca correctamente.[/quote]Después de:  oBrw:aColumns[3]:cOrder:= &quot;CP_LOCA&quot;,  agrega la siguiente instrucción:\noBrw:SetOrder(3)\n\nUn abrazo.[/quote]\n\nEstimado Manuel,\n     He agregado la linea que me indicó, pero sigue sin fucionar la búsqueda...\n     Atte.\nFernando.'),(259,875,6999,6,1269379218,'Re: Nueva TdosPrn con Preview (tRichedit)','uso la version antigua,  sin preview,  porque uso el NOTEPAD para hacer el Preview.'),(260,519,18442,6,1269767063,'Re: Error MYSql UPDATE','Mauricio, puedes publicar el codigo de como lo estas haciendo  ?\n\n  Un saludo'),(263,1486,0,6,1270519729,'Get Password Caracteres','Ocupo un get en una ventana de dialogo donde debo ingresar una clave y me aparecen unos caracteres feos, puras lineas, donde debería haber unos puntos, cuando lo hago desde Pelles C todo se muestra bien pero en el programa sale mal; buscando en el foro vi un cambio en tget.prg que tampoco me funciono, tambien ocupe la Font TAHOMA 8 en el get y casí ni se ve he probado todo si alguien conoce el problema le agradecería su ayuda. \n\n\nGusto de saludarlos ya que hace tiempo que no entraba al foro.\n\nHabía decidido cambiarme a Visual studio ya que en Chile xbase esta definitivamente muriendo y para mi es una pena pero como me dijo mi Buen amigo William Morales aun que seamos pocos pero somos buenos y fieles.\n\nUn saludo grande desde Chile un país bien movido\n\nBendiciones :)'),(264,811,0,6,1271046089,'Biometria','Cordial Saludo al Foro,\nEn posts anteriores vi que ya se trato el tema de manejo de lectores de huella desde fwh, sin embargo los links para bajar ejemplos ya no estan funcionando. Por favor, si alguien me puede facilitar un codigo fuente de ejemplo para usar la libreria GrFinger.Dll dentro desde fwh les agradeceria. Tengo un sensor UareU-4000 y tengo la version trial de GrFinger. De antemano gracias por la ayuda que me puedan brindar.\n\nRCastano'),(266,1397,0,6,1271134093,'Error con cualquier xBrowse (Maestro Antonio y Daniel))','Maestro Antonio Linares y Maestro Daniel Garcia un Saludo\n\nRevisando el xBrowse cuando se edita una columna y se presiona dos o tres veces la tecla derecha da un error o cuando se preciona la tecla backspace dos o tres veces da un error primero pensaba que era un error en parte de mi programacion para estar seguro ejecute el testxbr3.prg y seleccione del menu la opcion [b]dialog[/b]  [b]rdd[/b] [b]all cols[/b] sale un [b]xbrowse[/b] me voy por ejemplo a una columna que se puede editar como lo es [b]salary[/b] y al presiona dos o tres veces la tecla derecha se sale el error es Len (::oGet:buffer) ya que que el tipo es &quot;U&quot; y no caracter como debe ser, si arreglo por decir algo con[b] Len( If(ValType(::oGet:buffer)$&quot;C&quot;,::oGet:buffer,Space(1)) )[/b] se soluciona pero dependiendo pasa a otras lineas mas abajos las cuales utilizan de nuevo  Len (::oGet:buffer) y da el mismo error.\n\nEl error se presenta en la clase TGet\nDe antemano gracias.'),(267,47,0,3,1271154377,'oSocket:bRead','Dear All,\n\nI\'ve got the problem when I use TSocket (TCP/IP).  \nWhen the program run on the Main Loop.  When another program send the data to our program that will receive on oSocket:bRead and put the data to Public Variable.  When I try to get Public Variable Value but the data has not change.  When I put MsgInfo() with Public Variable, it has update value.  If I don\'t put MsgInfo() and call Function GetRecData() the Public Variable has not update.\n\nFor Example\n==========\n- When :bRead (OnRead()) receive data from another program = \'12345\' and then put data to MEMVAR-&gt;cRecData\n- When I need to know MEMVAR-&gt;cRecData.  It shows \'\' (empty).\n- I try to put MsgInfo( MEMVAR-&gt;cRecData ), It still shows \'\' (empty) but now MEMVAR-&gt;cRecData has updated \'12345\'\n- When I put MsgInfo( MEMVAR-&gt;cRecData ) again, it show \'12345\' now.\n\nThe problem is how can I get this received data in Main Loop.\n\n[code=fw]function Client()\n     oSocket := TSocket():New( nPort )\n     oSocket:bRead    = { | oSocket | OnRead( oSocket ) }  // oSocket:GetData() }  // \n\n     // Never use a MsgInfo() here because it hangs Windows!!!\n     oSocket:bConnect = { || OnConnected() }\n\n     oSocket:bClose   = { || MsgInfo( &quot;Server has closed!&quot; ) }\n\n     oSocket:Connect( cSvrIP ) // use the server IP address here\nreturn nil\n\n*-------------------*\nFunction OnConnected\nlocal n := 0\nlocal AddChr\nlocal StartAck2, EndAck, EndTrnOk, lConnect, PabxText\n\nlConnect := .T.\nlRun        := !lRun\nEndTrnOk := .F.\nPabxText := \'\'\n\nif PmsOn \n    if !empty(PMSChkPBX)\n       Enquiry()\n    end\nend\nlRun := !lRun\nreturn nil\n\n*------------------*\nProcedure Enquiry()\nlocal EndTrnOk := .F.\nlocal n := 0\nlocal EndAck := \'x\'\n\ndo while n &lt;= 2\n     SendData( \'1\', PMSChkPBX )\n     EndTrnOk := .F.\n     inkey(0.5)\n     WaitPeriod(200)\n     do while (subs(EndAck,6,9) &lt;&gt; subs(PMSChkPBX,1,8)+\'0\' ) .and. WaitPeriod()\n          EndAck := GetRecData()\n          if !empty(EndAck)\n              if (subs(EndAck,6,9) = subs(PMSChkPBX,1,8)+\'0\' )\n                  Msginfo(\'Ok\')\n                  EndTrnOk := .T.\n                  MEMVAR-&gt;cRecData := \'\'\n                  exit\n             end\n        end\n   end\n    \n    if EndTrnOk\n        SendData( \'3\', \' \' )\n        exit\n    end    \n    n++\nend\n\nif n &gt; 2\n   oSocket:End()\nend\nreturn\n\n*-------------------------*\nfunction OnRead( oSocket )\nlocal PabxRecNo, FOPost\nlocal PabxText := oSocket:GetData()\n\nif !empty(PabxText)\n    SaveLog( \'NEC : \'+PabxText )\n    MEMVAR-&gt;cRecData := PabxText\n    oSays2:Refresh()\nend   \n..\n..\nreturn PabxText\n*------------------*\nFunction GetRecData\nMsgInfo( MEMVAR-&gt;cRecData )\nreturn MEMVAR-&gt;cRecData\n\n [/code]'),(268,47,0,3,1271285483,'oSocket:bRead','Dear All,\n\nI\'ve got the problem when I use TSocket (TCP/IP).  \nWhen the program run on the Main Loop.  When another program send the data to our program that will receive on oSocket:bRead and put the data to Public Variable.  When I try to get Public Variable Value but the data has not change.  When I put MsgInfo() with Public Variable, it has update value.  If I don\'t put MsgInfo() and call Function GetRecData() the Public Variable has not update.\n\nFor Example\n==========\n- When :bRead (OnRead()) receive data from another program = \'12345\' and then put data to MEMVAR-&gt;cRecData\n- When I need to know MEMVAR-&gt;cRecData.  It shows \'\' (empty).\n- I try to put MsgInfo( MEMVAR-&gt;cRecData ), It still shows \'\' (empty) but now MEMVAR-&gt;cRecData has updated \'12345\'\n- When I put MsgInfo( MEMVAR-&gt;cRecData ) again, it show \'12345\' now.\n\nThe problem is how can I get this received data in Main Loop.\n\n[code=fw]function Client()\n     oSocket := TSocket():New( nPort )\n     oSocket:bRead    = { | oSocket | OnRead( oSocket ) }  // oSocket:GetData() }  // \n\n     // Never use a MsgInfo() here because it hangs Windows!!!\n     oSocket:bConnect = { || OnConnected() }\n\n     oSocket:bClose   = { || MsgInfo( &quot;Server has closed!&quot; ) }\n\n     oSocket:Connect( cSvrIP ) // use the server IP address here\nreturn nil\n\n*-------------------*\nFunction OnConnected\nlocal n := 0\nlocal AddChr\nlocal StartAck2, EndAck, EndTrnOk, lConnect, PabxText\n\nlConnect := .T.\nlRun        := !lRun\nEndTrnOk := .F.\nPabxText := \'\'\n\nif PmsOn \n    if !empty(PMSChkPBX)\n       Enquiry()\n    end\nend\nlRun := !lRun\nreturn nil\n\n*------------------*\nProcedure Enquiry()\nlocal EndTrnOk := .F.\nlocal n := 0\nlocal EndAck := \'x\'\n\ndo while n &lt;= 2\n     SendData( \'1\', PMSChkPBX )\n     EndTrnOk := .F.\n     inkey(0.5)\n     WaitPeriod(200)\n     do while (subs(EndAck,6,9) &lt;&gt; subs(PMSChkPBX,1,8)+\'0\' ) .and. WaitPeriod()\n          EndAck := GetRecData()\n          if !empty(EndAck)\n              if (subs(EndAck,6,9) = subs(PMSChkPBX,1,8)+\'0\' )\n                  Msginfo(\'Ok\')\n                  EndTrnOk := .T.\n                  MEMVAR-&gt;cRecData := \'\'\n                  exit\n             end\n        end\n   end\n    \n    if EndTrnOk\n        SendData( \'3\', \' \' )\n        exit\n    end    \n    n++\nend\n\nif n &gt; 2\n   oSocket:End()\nend\nreturn\n\n*-------------------------*\nfunction OnRead( oSocket )\nlocal PabxRecNo, FOPost\nlocal PabxText := oSocket:GetData()\n\nif !empty(PabxText)\n    SaveLog( \'NEC : \'+PabxText )\n    MEMVAR-&gt;cRecData := PabxText\n    oSays2:Refresh()\nend   \n..\n..\nreturn PabxText\n*------------------*\nFunction GetRecData\nMsgInfo( MEMVAR-&gt;cRecData )\nreturn MEMVAR-&gt;cRecData\n\n [/code]'),(269,1077,0,1,1271497782,'Automatic RESIZING objects to the system display resolution.','Hi,\n\n    I have tried function DISPLAY 2.0 for resizig windows, dialogs … and objects on them … but resizing is going very slow expecially if there are manu objects on the dialog.\n    So here is my new idea which work perfectly on every display resolution and visual all dialogs windows and objects on them have the same size on any dipslay resolution. Don’t need changes in the source code of the program. I have maded the copy of .CH files and maded changes there.\n    In the start of the program you need only this:\n\n\npublic sSysSir := 0       // System Width\npublic sSysVis := 0       // System Height\npublic sNovSir := 800   // Source  Width\npublic sNovVis := 600   // Source Height\npublic sSir := 0            // Factor for new Width  \npublic sVis := 0            // Factor for new Height \nScrResolution(@sSysSir,@sSysVis)    \nsSir := sSysSir / sNovSir \nsVis := sSysVis / sNovVis \n\n//------------------------------------------------------------------------//\nfunction sSir(nSir)\nif !empty(nSir)\n   return nSir*sSir\n else\n   return nSir \nendif\n//------------------------------------------------------------------------//\nfunction sVis(nVis)\nif !empty(nVis)\n   return nVis*sVis\n else\n   return nVis \nendif \n//------------------------------------------------------------------------//\n\n\nChanges needed in include files is only to put nRow,nCol,nWidth,nHeight,nTop,nBottom,nLeft,nRight, ... in functions like:\n&lt;nRow&gt; need to look like sVis(&lt;nRow&gt;)\n&lt;nCol&gt; need to look like sSir(&lt;nCol&gt;)\n....\n\nFor example:\n\n//----------------------------------------------------------------------------//\n#xcommand DEFINE DIALOG &lt;oDlg&gt; ;\n             [ &lt;resource: NAME, RESNAME, RESOURCE&gt; &lt;cResName&gt; ] ;\n             [ TITLE &lt;cTitle&gt; ] ;\n             [ FROM &lt;nTop&gt;, &lt;nLeft&gt; TO &lt;nBottom&gt;, &lt;nRight&gt; ] ;\n             [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n             [ &lt;lib: LIBRARY, DLL&gt; &lt;hResources&gt; ] ;\n             [ &lt;vbx: VBX&gt; ] ;\n             [ STYLE &lt;nStyle&gt; ] ;\n             [ &lt;color: COLOR, COLORS&gt; &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ;\n             [ BRUSH &lt;oBrush&gt; ] ;\n             [ &lt;of: WINDOW, DIALOG, OF&gt; &lt;oWnd&gt; ] ;\n             [ &lt;pixel: PIXEL&gt; ] ;\n             [ ICON &lt;oIco&gt; ] ;\n             [ FONT &lt;oFont&gt; ] ;\n             [ &lt;help: HELP, HELPID&gt; &lt;nHelpId&gt; ] ;\n       =&gt; ;\n          &lt;oDlg&gt; = TDialog():New( sVis(&lt;nTop&gt;), sSir(&lt;nLeft&gt;), sVis(&lt;nBottom&gt;), sSir(&lt;nRight&gt;),;\n                 &lt;cTitle&gt;, &lt;cResName&gt;, &lt;hResources&gt;, &lt;.vbx.&gt;, &lt;nStyle&gt;,;\n                 &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;oBrush&gt;, &lt;oWnd&gt;, &lt;.pixel.&gt;,;\n                 &lt;oIco&gt;, &lt;oFont&gt;, &lt;nHelpId&gt;, sSir(&lt;nWidth&gt;), sVis(&lt;nHeight&gt;) )\n\n//----------------------------------------------------------------------------//\n#command @ &lt;nRow&gt;, &lt;nCol&gt; GET [ &lt;oGet&gt; VAR ] &lt;uVar&gt; ;\n            [ &lt;dlg: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n            [ &lt;memo: MULTILINE, MEMO, TEXT&gt; ] ;\n            [ &lt;color:COLOR,COLORS&gt; &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ;\n            [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n            [ FONT &lt;oFont&gt; ] ;\n            [ &lt;hscroll: HSCROLL&gt; ] ;\n            [ CURSOR &lt;oCursor&gt; ] ;\n            [ &lt;pixel: PIXEL&gt; ] ;\n            [ MESSAGE &lt;cMsg&gt; ] ;\n            [ &lt;update: UPDATE&gt; ] ;\n            [ WHEN &lt;uWhen&gt; ] ;\n            [ &lt;lCenter: CENTER, CENTERED&gt; ] ;\n            [ &lt;lRight: RIGHT&gt; ] ;\n            [ &lt;readonly: READONLY, NO MODIFY&gt; ] ;\n            [ VALID &lt;uValid&gt; ] ;\n            [ ON CHANGE &lt;uChange&gt; ] ;\n            [ &lt;lDesign: DESIGN&gt; ] ;\n            [ &lt;lNoBorder: NO BORDER, NOBORDER&gt; ] ;\n            [ &lt;lNoVScroll: NO VSCROLL&gt; ] ;\n       =&gt; ;\n          [ &lt;oGet&gt; := ] TMultiGet():New( sVis(&lt;nRow&gt;), sSir(&lt;nCol&gt;), bSETGET(&lt;uVar&gt;),;\n             [&lt;oWnd&gt;], sSir(&lt;nWidth&gt;), sVis(&lt;nHeight&gt;), &lt;oFont&gt;, &lt;.hscroll.&gt;,;\n             &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;oCursor&gt;, &lt;.pixel.&gt;,;\n             &lt;cMsg&gt;, &lt;.update.&gt;, &lt;{uWhen}&gt;, &lt;.lCenter.&gt;,;\n             &lt;.lRight.&gt;, &lt;.readonly.&gt;, &lt;{uValid}&gt;,;\n             [\\{|nKey, nFlags, Self| &lt;uChange&gt;\\}], &lt;.lDesign.&gt;,;\n             [&lt;.lNoBorder.&gt;], [&lt;.lNoVScroll.&gt;] )\n\n//----------------------------------------------------------------------------//\n\n#xcommand DEFINE FONT &lt;oFont&gt; ;\n             [ NAME &lt;cName&gt; ] ;\n             [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n             [ &lt;from:FROM USER&gt; ] ;\n             [ &lt;bold: BOLD&gt; ] ;\n             [ &lt;italic: ITALIC&gt; ] ;\n             [ &lt;underline: UNDERLINE&gt; ] ;\n             [ WEIGHT &lt;nWeight&gt; ] ;\n             [ OF &lt;oDevice&gt; ] ;\n             [ NESCAPEMENT &lt;nEscapement&gt; ] ;\n       =&gt; ;\n          &lt;oFont&gt; := TFont():New( &lt;cName&gt;, sSir(&lt;nWidth&gt;), sVis(&lt;nHeight&gt;), [&lt;.from.&gt;],;\n                     [&lt;.bold.&gt;],[&lt;nEscapement&gt;],,[&lt;nWeight&gt;], [&lt;.italic.&gt;],;\n                     [&lt;.underline.&gt;],,,,,, [&lt;oDevice&gt;] )\n//------------------------------------------------------------------------//\n\n\nBest regards,'),(270,24,0,6,1272031641,'Creacion de Harbour 1999-2000','Amigos, os dejo una animación que he realizado desde el log de SVN, a través de la herramienta gource.\n\nEl resultado es espectacular, aquí podéis ver \'visualmente\' un año desde la creación de Harbour.\nhttp://www.youtube.com/watch?v=_FEuktpNQmo\n\nEspero les guste.'),(271,1845,18662,6,1272385703,'Re: Optimizando filtros','Loren,\n\nSWITCH uVal\n   CASE &quot;C&quot;\n	cString += CHR(34)+UPPER(ALLTRIM(aGet[1,2]))+CHR(34);	EXIT\n   CASE &quot;N&quot;\n	cString += STR(aGet[1,2],,,.t.)				;	EXIT\n   CASE &quot;D&quot;\n	cString += &quot;CTOD(&quot;+\'&quot;\'+DTOC(aGet[1,2])+\'&quot;)\'		;	EXIT\n   CASE &quot;L&quot;\n	cString += &quot;.&quot;+ALLTRIM(aGet[1,2])+&quot;.&quot;\nEND\n\nIF ! HB_IsNull( cString )		//! EMPTY( cString )\n	cFilter := &quot;\'&quot;+cString+&quot;\'&quot;\n	TRY\n		(aFAlias[1,2])-&gt;( DbSetFilter( {||&amp;cString}, cFilter ) )\n	CATCH oErr\n		lOk := FALSE\n		? &quot;Caught:&quot;, oErr:Description\n	MsgInfo(&quot;Error de sintaxis, favor corrija&quot;)\noErr:Description\n	END\nENDIF\n\nEspero te sirva.\n\nSaludos. Jairo'),(272,991,18592,6,1272590513,'Re: tsbrowse 8','Olá Manuel,\n\nVocê poderia me mandar a versão 9.0 da TSBrowse? Gostaria de saber se ela já pode trabalhar com uma conexão SQL?\n\noliveiros.jr@uol.com.br\n\nAbraços,\n\nJunior'),(274,960,18662,6,1272975769,'Re: Optimizando filtros','Compañeros,\n\naunque con mucho retraso, pero encontré la solución para combiar campos Numeric,Date y Character en un mismo filtro:\n\nAdsClearAof()\ncfiltr=\'alltrim(str(numalb))=&quot;\'+alltrim(str(albaclie-&gt;numero))+\'&quot; .and. fecha=&quot;\'+dtoc(albaclie-&gt;fecha)+\'&quot; .and. codcli=&quot;\'+alltrim(albaclie-&gt;cliente)+\'&quot;\'\nalbaran-&gt;(AdsSetAOF( cfiltr )) ; go top\n\nDando gracias a todos los compañeros que han aportado una luz a mis dudas, saluda\nLORENZO.'),(275,1118,18143,16,1273018477,'Re: New FWPPC 10.2 for Harbour 2.1 and vce 2003','Hola Antonio, los datos que me enviaron cuando compre fwppc ya no me sirven, me los podrias enviar a sandromorandin@gmail.com por favor?'),(276,7,18736,6,1273112406,'Re: Indexar campo lógico','Lorenzo:\n\nlo mas sencillo seria indexarlo como char\n\nindex on iif( base-&gt;logico,\'S\',\'N\') tag \'indexado1\' ........ etc\n\npara buscar \nbase-&gt;( dbseek( \'S\'))\nwhile ........\n\n\n\nSaludos,\nMauricio'),(277,1090,0,3,1273149794,'error Excel','Hola, me da error usando las versiones nuevas 10.3 y 10.4. Con la 8.03, funcionaba bien. \nBásicamente abro un excel, configuro para que no me muestre carteles, y grabo un par de filas, columnas... con el viejo, ejecutaba perfecto. Ahora corre 1 o 2 veces, y la tercera pincha, con el error que copia luego del código. El código es este:\n\noExcel := CREATEOBJECT( &quot;Excel.Application&quot; ) \n//oExcel:WorkBooks:Open( xruta )\nOEXCEL:DISPLAYALERTS=.F.\n\noWorkBook := oExcel:WorkBooks:Add() \n\noSheet := oExcel:ActiveSheet \n\n// ****************\n\nDO CASE\n        CASE XORDEN=1\n                oSheet:Cells( 1, 1 ):Value = &quot;Codigo&quot;\n                oSheet:Cells( 1, 2 ):Value = &quot;Descripcion&quot;\n                oSheet:Cells( 1, 3 ):Value = &quot;Cod.Linea&quot;\n                oSheet:Cells( 1, 4 ):Value = &quot;Des.Linea&quot;\n                oSheet:Cells( 1, 5 ):Value = &quot;Cod.Rubro&quot;\n                oSheet:Cells( 1, 6 ):Value = &quot;Des.Rubro&quot;\n                \n                XFILA:=1\n                XCOL:=7\n        CASE XORDEN=2\n                oSheet:Cells( 1, 1 ):Value = &quot;Cod.Linea&quot;\n                oSheet:Cells( 1, 2 ):Value = &quot;Des.Linea&quot;\n                \n                XFILA:=1\n                XCOL:=3\n        CASE XORDEN=3\n                oSheet:Cells( 1, 1 ):Value = &quot;Codigo&quot;\n                oSheet:Cells( 1, 2 ):Value = &quot;Descripcion&quot;\n                \n                XFILA:=1\n                XCOL:=3\n\nENDCASE\n\n\n\noWorkbook:SaveAs( xruta )\n\noExcel:Quit()\noExcel:=NIL\n\n\nERROR que me tira:\n\n\nApplication\n===========\n   Path and name: c:\\FW192\\SAROSSX\\REP_CLI.EXE (32 bits)\n   Size: 2,019,840 bytes\n   Time from start: 0 hours 1 mins 28 secs \n   Error occurred at: 06-05-2010, 09:37:28\n   Error description: Error BASE/1004  No exported method: SAVEAS\n   Args:\n     [   1] = A   { ... }\n     [   2] = C   C:\\USERS\\ADMIN\\DOCUMENTS\\VTAANIO.XLS\n\nStack Calls\n===========\n   Called from:  =&gt; SAVEAS(0)\n   Called from: rep_cli.prg =&gt; IM_C_MXM(12820)\n   Called from: rep_cli.prg =&gt; (b)CLI_R_MXM(11989)\n   Called from: .\\source\\classes\\BUTTON.PRG =&gt; TBUTTON:CLICK(176)\n   Called from: .\\source\\classes\\CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(1446)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(3378)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: .\\source\\classes\\DIALOG.PRG =&gt; TDIALOG:COMMAND(408)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(944)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: .\\source\\classes\\DIALOG.PRG =&gt; TDIALOG:ACTIVATE(273)\n   Called from: rep_cli.prg =&gt; CLI_R_MXM(11992)\n   Called from: rep_cli.prg =&gt; REPCL(174)\n   Called from: rep_cli.prg =&gt; MAIN(86)'),(278,110,18740,6,1273175482,'Re: menuitem muy anchos','Daniel, en la imagen se muestra como qeu se excede por un 30% aprox.\npondre un 66 en lugar del 100, pero como tu dices, cual es la logia que se aplica.\nvere si en otros lenguajes delphi talvez como hace este trabajo. mas que todo para identificar la logica.\n\ntalve AL nos lo indique.\n\n\nsalu2\ncarlos vargas'),(279,1432,0,20,1274201366,'ICONA PRG WINCEE FWPPC','Scusatemi,\nho realizzato un prg con FWPPC utilizzando wincee 4.0 il file exe mi fa vedere l\'icona associata,\nmentre su wincee 5.0 lo stesso programma non mi associa l\'icona come mai?\nqualcuno mi può aiutare?\nil codice è questo:\n1 ICON DISCARDABLE &quot;SCANNER2.ico&quot;\n\nGrazie mille per la vostra cortesia'),(280,883,18785,6,1274267296,'Re: Nuevos controles para FWH','Five For Web,Five For Web Five For Web Five For Web Five For Web Five For Web  !!!!'),(281,1298,18785,6,1274269000,'Re: Nuevos controles para FWH','- Debug\n- Five Web\n\nMuchas gracias\n\nSaludos\n\nAnthony Ormond'),(282,367,18785,6,1274279285,'Re: Nuevos controles para FWH','- FiveWeb, Sr. Antonio Linhares, tem como nos dizer em que passo está o processo FiveWeb? Se tem previsão de alguma versão para testes?\n\nObrigado'),(283,1222,0,6,1274312403,'xBrowse con desplazamiento errático','Hola a todos,\n\nSe me está dando el caso &quot;curioso&quot; en un xbrowse creado desde recursos, el cual tiene un menu pop-up, que se activa cuando pulsamos el boton derecho del ratón (bRClicked) que al realizar varias pulsaciones del boton derecho sobre distintos registros del xbrowse y mostrar el menu, sin seleccionar ninguna opcion del menú, al hacer un click sobre cualquier registro del xbrowse ocurren dos cosas: por una parte el cursor del ratón cambia y aparace una &quot;manita&quot;, pero además los registros del xbrowse se despalzan hacia arriba.\n\nHe tomado el ejemplo que viene con FiveWin: testxbrw.prg y le he implementado un menú pop-up y tiene el mismo problema:\n\n¿Hay alguna forma de solucionarlo?\n¿No es correcta la forma de definir el menu? \n¿Es un problema de la clase xBrowse?\n\nFiveWin 10.4, Borland C 582, Pelles C, FastReport\n\n[code=fw]\n//----------------------------------------------------------------------------//\nSTATIC FUNCTION BasicCell( oWnd )\n\n   local oChild, oBrw\n   DEFINE WINDOW oChild TITLE &quot;Basic Cell selector browse&quot; MDICHILD OF oWnd\n\n   @ 0,0 XBROWSE oBrw OF oWnd ALIAS Alias()\n\n/*\n   oBrw := TXBrowse():New( oWnd )\n   oBrw:SetRDD()\n*/\n\n   oBrw:CreateFromCode()\n   oBrw:cToolTip = &quot;This is a test&quot;\n   oBrw :bRClicked = { | nRow, nCol | FLoad_MenuExped( nRow, nCol, oBrw ) } //------&gt; MENU POP-UP CON CLICK DERECHO\n   oChild:oClient := oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()\n\nRETURN NIL\n\n\nFunction FLoad_MenuExped( nRow, nCol, oBrw)\n   Local oMenu\n   \n   MENU oMenu POPUP 2007\n      MENUITEM &quot;Uno&quot;                      ACTION ( Msginfo(&quot;Right click on... &quot;)  )\n      SEPARATOR\n      MENUITEM &quot;Dos&quot;                      ACTION ( Msginfo(&quot;Right click on... &quot;)  )\n      MENUITEM &quot;Tres&quot;                     ACTION ( Msginfo(&quot;Right click on... &quot;)  )\n   ENDMENU\n\n   ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw\n\nReturn \n [/code]\n\n\nUn cordial saludo,\nErnesto'),(284,1920,18050,6,1274718783,'Re: Facturación electronica - España','Quisiera saber como tramitar Folios en el SAT'),(285,970,18584,6,1274921187,'Re: Sigo problema RMAKE: TsBrowse y Tsbutton','anuel Mercado, ¿podrías enviarme a mi correo electrónico y las nuevas clases TSBROWSE TSBUTTON\n\neajunior_fw@yahoo.com.br'),(286,486,0,3,1275568669,'SOAP','Hi,\n\nUPurl:=&quot;http://200.207.118.102:8079/axis2/services/RecargasWeb?wsdl&quot;\noUp := CreateObject(&quot;MSSOAP.SoapClient30&quot;)\noUp:MSSoapInit(alltrim(UPurl))\noUp:Logon(COD_ORI,PWD,COD_TER,COD_EST,MAC)\n\n? tokenvo\n[img]http://www.sysfar.com.br/temp/soap.jpg[/img]\n\n\nIn return Object shows, how do I read the contents?\n\nClemerson'),(288,558,19084,6,1276721636,'Re: Ordenar matriz multidimensiuonal','Puedes probar  con este codigo, es la forma como lo trabajo.\n\naDatos := {{},{},{}}\n...\nfn_aSort(aDatos,1,\'A\')\n\n\n\nFunction fn_ASort(_a,_n1,_AD)  //a=Arreglo de datos , n1=Columna a Ordenar , AD=\'A\'Asc.\'D\'Desc.\nLocal _aAux,_n,_m,_x,bCondicion\nIf ValType(_n1)=[B]\n   bCondicion:=_n1\nElse\n   bCondicion:={||If(_AD=\'A\',_a[_n1,_n]&gt;_a[_n1,_m],_a[_n1,_n]&lt;_a[_n1,_m])}\nEndif\nFor _n=1 To Len(_a[1])\n  For _m=_n+1 To Len(_a[1])\n   If Eval(bCondicion,_n,_m)\n      For _x=1 To Len(_a)\n          _aAux:=_a[_x,_n] ; _a[_x,_n]:=_a[_x,_m] ; _a[_x,_m]:=_aAux\n      Next\n   Endif\n  Next\nNext\nReturn Nil\n\nFrancisco N.'),(289,1844,0,3,1277389152,'TXBrowse for while condition','Hi, \n\n  How I can achive for,  while condition as Clipper having code block condition in the Five Win class TXBrowse? Please gude me for the same. Thanks in Advance.\n\nShridhar.'),(290,1844,0,3,1277389259,'TBorwse for while condition.','Hi ,\n\n  How I can achive the for while condition as Clipper code block ? Please guide me for the same. thanks in advance.\n\nThanks\nShridhar'),(291,1928,19173,8,1277903616,'Re: Primera consulta sobre fiveMac','Una nueva versión del instalador . En cuanto a donde instalar Mac deja muy pocas opciones .\nSaludos.\n[url]http://rapidshare.com/files/404045636/Harbour_for_Mac.pkg.html[/url]'),(293,1954,0,21,1277942621,'Alterar texto...','Boas.\n\nEstou avaliando o FWH 6.12 / xHarbour / BCC++ 5.82 e logo no primeiro programa que testei aconteceu um erro estranho.\n\nEste é o módulo que me está dando problemas na sua execução...\n\n[code=fw]\n// ------------------------------------------------------------------------------------ //\n// -------------- Controlo da barra de estado e suas mensagens -------------- //\n// ----------------------------------------------------------------------------------- //\n\nFUNCTION ChgCtrl( nOpcao, oMenu )\n\n    DO CASE\n       CASE nOpcao == 1\n            IF ! oWndf:oMsgBar:lClock\n                 oWndf:oMsgBar:ClockOn()\n                 oClock:cMsg := &quot;Desactivar relógio na barra de estado&quot;\n                 oClock:SetCheck( .T. )\n            ELSE\n                 oWndf:oMsgBar:ClockOff()\n                 oClock:cMsg := &quot;Activar relógio na barra de estado&quot;\n                 oClock:SetCheck( .F. )\n                 oMenu:Refresh()\n            ENDIF\n       CASE nOpcao == 2\n            IF ! oWndf:oMsgBar:lDate\n                 oWndf:oMsgBar:DateOn()\n                 oDate:cMsg := &quot;Desactivar a data na barra de estado&quot;\n                 oDate:SetCheck( .T. )\n            ELSE\n                 oWndf:oMsgBar:DateOff()\n                 oDate:cMsg := &quot;Activar data na barra de estado&quot;\n                 oDate:SetCheck( .F. )\n                 oMenu:Refresh()\n            ENDIF\n       CASE nOpcao == 3\n            IF ! oWndf:oMsgBar:lKbd\n                 oWndf:oMsgBar:KeybOn()\n                 oKeyb:cMsg := &quot;Desactivar estado teclado na barra de estado&quot;\n                 oKeyb:SetCheck( .T. )\n            ELSE\n                 oWndf:oMsgBar:KeybOff()\n                 oKeyb:cMsg := &quot;Activar estado do teclado na barra de estado&quot;\n                 oKeyb:SetCheck( .F. )\n                 oMenu:Refresh()\n            ENDIF\n    ENDCASE\n    \nreturn nil[/code]\n\nO programa executa na perfeição até ao momento em que clico na opção &quot;Relógio&quot; e surge então o erro.\n\nReproduzo aqui o conteúdo do log de erro:\n\nApplication\n===========\n   Path and name: L:\\Projectos\\FMUS\\FMUS.EXE (32 bits)\n   Size: 1,323,008 bytes\n   Time from start: 0 hours 0 mins 47 secs \n   Error occurred at: 01/07/10, 01:02:38\n   Error description: Error BASE/1004  Message not found: TMSGBAR:LCLOCK\n\nStack Calls\n===========\n   Called from:  =&gt; TMSGBAR:ERROR(179)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TMSGBAR:MSGNOTFOUND(0)\n   Called from: MSGBAR.PRG =&gt; TMSGBAR:LCLOCK(167)\n   Called from: FMUS.000 =&gt; CHGCTRL(122)\n   Called from: FMUS.000 =&gt; (b)FMUSMENU(96)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: FMUS.000 =&gt; MAIN(77)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 3.00GHz 3000 Mhz\n   Hardware memory: 2047 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 3\n\n   Windows total applications running: 38\n      1 TF_FloatingLangBar_WndTitle\n      2 CiceroUIWndFrame\n      3 M\n      4 Default IME\n      5 Menu \'Iniciar\'\n      6 SysFader\n      7 Fine Music Projects\n      8 FiveTech Software tech support forums • Post a new topic - Windows Internet Explorer\n      9 Gerenciador de Ajuda\n     10 Preview de Impressão\n     11 Page Setup\n     12 HintInfoWindow\n     13 Ir para\n     14 Lista de Funções\n     15 String Editor\n     16 Editor\n     17 Localizar em Arquivo(s)\n     18 Módulo principal\n     19 1 - 45\n     20 xDev Studio v0.72 -  [L:\\Projectos\\FMUS\\prg\\FMUS.prg (Alterado)]\n     21 SerLa\n     22 New PC Studio\n     23 MCI command handling window\n     24 Acrobat IEHelper\n     25 AcroStubUnloadWClass\n     26 DDE Server Window\n     27 Avira AntiVir Personal - Free Antivirus - SysTray\n     28 CtHelper32\n     29 CtSpkHlp\n     30 Creative Volume Control\n     31 CTDVDDET\n     32 MediaCenter\n     33 Connections Tray\n     34 Voltímetro\n     35 MS_WebcheckMonitor\n     36 NVSVCPMMWindowClass\n     37 GDI+ Window\n     38 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TMSGBAR:ERROR\n     Param   1:    C    &quot;Message not found&quot;\n     Param   2:    C    &quot;TMSGBAR&quot;\n     Param   3:    C    &quot;LCLOCK&quot;\n     Param   4:    N    1004\n     Local   1:    U    \n   (b)HBOBJECT:HBOBJECT\n     Param   1:    O    Class: TMSGBAR\n     Param   2:    C    &quot;LCLOCK&quot;\n   TMSGBAR:MSGNOTFOUND\n     Param   1:    C    &quot;LCLOCK&quot;\n   TMSGBAR:LCLOCK\n   CHGCTRL\n     Param   1:    N    1\n     Param   2:    O    Class: TMENU\n   (b)FMUSMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20002\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20002\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20002\n     Local   4:    N    0\n   TMDIFRAME:COMMAND\n     Param   1:    N    20002\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    L    .F.\n   TMDIFRAME:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20002\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20002\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TMDIFRAME\n   WINRUN\n     Param   1:    N    6881788\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    &quot;MAXIMIZED&quot;\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TICON\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    O    Class: TBAR\n     Local   5:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFCDX\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TWINDOW\n     5 TCONTROL\n     6 TICON\n     7 TBRUSH\n     8 TMDIFRAME\n     9 TMENU\n    10 TMENUITEM\n    11 TMDICLIENT\n    12 TFONT\n    13 TBAR\n    14 TRECT\n    15 TBTNBMP\n    16 TMSGBAR\n    17 TMSGITEM\n    18 TTIMER\n    19 TDIALOG\n    20 ERROR\n    21 TREG32\n\nMemory Analysis\n===============\n      118 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\nAlguém me explica o que se passa e como ultrapassar esta situação ?\n\nMuito obrigado,\n\nJoão Ferreira'),(294,519,19204,6,1278056394,'Re: TDolphin Clase para manejar MySql','Daniel ,    con esta clase de pueden crear datafield ?\n\n     Algo como esto:\n\n     oTabla:blank()\n    oTabla:codigo:=!23\n    oTabla:save()'),(295,1832,18964,3,1278122675,'Re: HBZIP','Hi,\n\nCould I have the new zlib.lib and the zlibbcc582.lib.\n\nThanks\n\nRegards\n\nACWOO\nusing fwh 10.6 + bcc582 + harbour 2.1.0\neddylou89@yahoo.com'),(298,574,19084,6,1279223010,'función modificada para un array simple o matriz basica','fn_asort(@matrizciudades,1,\'A\')\n\nFunction Fn_ASort(matriz,columna,orden) // orden=\'A\'Asc.\'D\'Desc.\nLocal _aAux,_n,_m,_x,bCondicion\nIf ValType(columna)=[B]\nbCondicion:=columna\nElse\nbCondicion:={||If(orden=\'A\',matriz[columna,_n]&gt;matriz[columna,_m],matriz[columna,_n]&lt;matriz[columna,_m])}\nEndif\nFor _n=1 To Len(matriz)\n     For _m=_n+1 To Len(matriz)\n        If matriz[_n]&gt;matriz[_m]\n           For _x=1 To Len(matriz)\n               _aAux:=matriz[_n]\n               matriz[_n]:=matriz[_m]\n               matriz[_m]:=_aAux\n           Next\n        Endif\n     Next\nNext\nReturn Nil'),(299,1464,19170,6,1279299877,'Re: FiveMac: Oferta temporal de regalo !!!','Antonio:\n\nMil gracias por el regalo, siempre es bueno ver/probar otros ambientes...\n\nporfa lo espero con ansias..\n\nSalu2\n\nNombre de Usuario : Rolando Salazar Ureña\nmail: SauroSrl@entelnet.bo'),(300,1464,19170,6,1279300327,'Re: FiveMac: Oferta temporal de regalo !!!','Antonio:\nGracias por el regalo, siempre es bueno probar otros ambientes.\n\nespero con asias..\n\nSalu2\n\nusuario: Rolando Salazar Ureña\nemail: SauroSrl@entelnet.bo'),(301,1924,19169,5,1279392941,'Re: FiveMac: Time-limited Giveaway Offer!!!','usuario: jesustarre\ne-mail: jesustarre@hotmail.com\n\nTHANKS !'),(304,228,19170,6,1279805089,'Re: FiveMac: Oferta temporal de regalo !!!','Usuario: leandro\nemail: leandroalfonso111@hotmail.com'),(305,228,19170,6,1279805176,'Re: FiveMac: Oferta temporal de regalo !!!','usuario: leandro\nemail: leandroalfonso111@hotmail.com'),(306,114,0,6,1280093143,'Unrecognized keyword \'€\'','Hola a todos:\n\nEstoy migrando a la version 10.1 de FWH, ya agregue la lib msimg32.lib de bcc55 y la pcrepos.lib de xHarbour, pero al querer generar la aplicacion, me da el error de Unrecognized keyword \'€\' y la vdd ya no encontre la manera de solucionarlo, si algun alma caritativa me pudiera dar un empujoncito para poder regresar al camino del FWH se lo agradeceria mucho.\n\nSaludos !!!\n\nLCP Eduardo Borondón Muñiz'),(307,384,0,6,1280242695,'wBrowse Hernan...','Estou tentando recompilar minha aplicacao utilizando:\nFiveWin 10.6 + xHarbour Compiler build 1.2.1 (Simples) &lt;Rev. 6633&gt;\n\nestou encontrando um unico problema com a wBrowse do Hernan:\n\nxLINK: error: Unresolved external symbol \'__param referenced from (wBRWLINE.obj)\'.\nxLINK: error: Unresolved external symbol \'__reta referenced from (wBRWLINE.obj)\'.\n\nJa tentei no wBrwLine.c alterar _param() para HB_param() e _reta para HB_reta()...\nAlguem sugere alguma correcao ou o wBrwLine.Obj ja compilada nesta versao ?\n\nMui grato...'),(308,798,0,21,1280610238,'iPhone','Antonio,\n\nO fivewin para iPhone está em desenvolvimento ?\n\nExiste uma previsão para término ?\n\nDaniel Segura'),(311,388,19520,3,1281289697,'Re: Barcode lib (Cayetano\'s BarLib)','Dear Dutch,\n\nBarlib32.lib as same as barlib.lib, except barlib32.lib run on 32 bit.\n\ndo you have barlib source code provide Enrico?\n\nregards,\n\nkok joek hoa'),(312,1215,19545,3,1281364607,'Re: Help with FILE()','[quote=&quot;tsai8839&quot;]Michel,\n\nThe result is &quot;C:\\Windows\\System32\\cmd.exe&quot;.\n\nSo far as I know, the path is correct, the file is exist. But the result of file() is .F. \nI don\'t know how to fix this problem. Do you have any idea?\n\nRegards,\nAndy[/quote]\n\nAndy, do you have correct rights to access to a system dir? Try to execute the test as administrator.'),(314,534,19170,6,1281533356,'Re: FiveMac: Oferta temporal de regalo !!!','gran oferta pero llege tarde aunque el tercer punto no lo encontre'),(315,552,19170,6,1281556937,'Re: FiveMac: Oferta temporal de regalo !!!','Gracias Antonio por tu oferta, \n\nNombre de Usuario : lAugusto\nEmail : laugusto@acbusca.com\n\nSalu'),(316,24,0,6,1281611243,'TDatabase Method delete()','No se porque este method ha cambiado de;\n\n[code=fw]METHOD _Delete() CLASS TDataBase\n\n   if ::lShared\n      if ::Lock()\n         ( ::nArea )-&gt;( DbDelete() )\n         ::Commit()\n         ::UnLock()\n      else\n         MsgAlert( &quot;DataBase in use&quot;, &quot;Please try again&quot; )\n      endif\n   else\n      ( ::nArea )-&gt;( DbDelete() )\n   endif\n\nreturn nil\n [/code]\n\nA este parte de esta porción de este [b] peligroso[/b] código;\n[code=fw]  \n   .... \n    if lDeleted\n         if Set( _SET_DELETED ) // .or. ! Empty( ( ::nArea )-&gt;( DbFilter() ) )\n            ::Skip( 1 )\n            if ::Eof()\n               ::GoBottom()\n            endif\n         endif\n      endif\n [/code]\n\n¿ Y ese ::SKIP( 1 ) ?\n\nPor mi parte, SIEMPRE acostumbro a, por poner un ejemplo;\n[code=fw] while !oDbf:Eof()\n         oDbf:Delete()\n         oDbf:Skip()\n end while   \n [/code]\n\nAsí, usando la clase de la última versión, VEO, que hay registros QUE NO SE BORRAN, y todo tiene que ver por el ::SKIP(1 ).\n¿ No seria mejor poner un ::SKIP( 0) ?\n\nLo dicho , ignoro el motivo de ese SKIP, pero el borrar un registro, no debería implicar un salto de registro.'),(317,1536,19568,6,1281807831,'Re: Ejecutar aplicación en red desde otra pc','Una opción para hacer esto es utilizar la CGI\nHabilite el servidor con lo ISS CGI - scripts y ejecutables.\nEn su lugar un sistema de rutina para ejecutar este archivo como: (POST y GET)\n\nhttp:\\\\IPdoServidor\\CONSULT.EXE?CODE=1000&amp;NOMBRE= \'Juan\'\nhttp:\\\\localhost\\CONSULT.EXE?CODE=1000&amp;NOMBRE=\'Juan\'\n\nAdemás, aún puede obster resultados.\nEl uso rutinario de consulta de datos de esta manera, con CGI.\nY si quieres puedes usar en la internet....\n\nValdmir de Oliveira Lopes\nhttp:\\\\www.uniware.com.br'),(319,480,19544,6,1282141026,'Re: Nueva Clase: TFolderEx','Ola\n\nAlguem saberia me dizer a partir de qual versão funciona a classe ?'),(321,1914,0,3,1282939812,'Save Image with Win 7','I\'m having a problem using ownd: SaveToBmp () with windows 7, has some configuration that needs to be done?\n\nThanks'),(322,534,19638,6,1282945282,'Re: Error no entiendo por que','[quote=&quot;QAZWSX2K&quot;]si pusieras el codigo seria mas facil que alguien te ayude, no crees?[/quote]\n\nla verdad que si'),(323,1536,19752,3,1283574100,'Re: OT: forum','From Brazil it´s working fine, too'),(325,1238,14255,6,1283858356,'Re: Problema con Set Relation','Buenos días nuevamente.\n\nAhora estoy intentando que la aplicación funcione en red. Las tablas relacionadas mediante SET RELATION las presento con un BROWSE.\n\nDebo bloquear la tablas, al funcionar en red, para presentar el BROWSE?  \n\nMuchas gracias. FERNANDO'),(326,1905,0,3,1285596132,'Error BASE/1004  Message not found: TBAO:OMYSQL','Buenos días\n\nEl programa me tira el siguiente error, no encuentro que puede ser:\n\nError BASE/1004  Message not found: TBAO:OMYSQL\n\nGracias por su ayuda de antemano.\n\nMario Santiago'),(327,1238,14255,6,1285763046,'Re: Problema con Set Relation','Perdón, las preguntas son:\n\nPara presentar la tabla utilizo un BROWSE. ¿se deben bloquear las tablas antes de utilizar BROWSE?\n\nCaso de utilizar la clausula EDITABLE ¿Debo bloquear las tablas?\n\nMuchas gracias'),(328,1238,14255,6,1285763360,'Re: Problema con Set Relation','Perdón, las preguntas son:\n\nPara presentar la tabla utilizo un BROWSE. ¿se deben bloquear las tablas antes de utilizar BROWSE?\n\nCaso de utilizar la clausula EDITABLE ¿Debo bloquear las tablas?\n\nMuchas gracias'),(329,1561,20035,3,1286802834,'Re: To Antônio Linhares (RESOLVED)','It worked!\n\nThanks\n\nGood week!'),(330,1949,0,3,1287144353,'TsBrowse 9.0','tentei enviar email , pra o senhor manuel mercador, para pedir o tsbrowse 9 e nao conseguir, gostaria de saber se tem como ele me enviar para o email gilmarss2010@gmail.com\nestou precisando muito. agradeco desde já.'),(331,986,0,4,1287570836,'FWPPC para Android - Linhares','Linhares,\n\n\nTem uma previsao para termos aplicacao rodando com o Android, meus clientes tao me cobrando isso.\n\nObrigado\n\nCleber'),(333,1535,20124,6,1288185526,'Re: Raro comportamiento en inicio de Windows','jrestojeda,\n\n¿ qué valores tienen curdrive() y curdir(), cuando se arranca al inicio de Windows ? A ver si por lo que sea Curdrive() no va bien. Recuerdo incluso versiones de xHarbour que creo que fallaba... ¿o era curdir() el que fallaba?... bueno uno de los dos.\n\n¿ No se podía arrancar un programa, también, colocándolo en la carpeta del menú inicio ?\n\nSaludos'),(334,384,20162,6,1288566448,'Re: FWH &amp;  Fast Report','Boa noite!!!\nTente trocar por:\n\nUSHORT TmpGetWA( AREAP area, void * ptr)\n{   \n   proc_I CurFunc = (proc_I)ptr;\n   CurFunc(area-&gt;uiArea);  \n   return 0;\n}'),(335,2041,0,3,1288792691,'Error R6025 when finish the procedure','Hi all!\nI have a problem when I finish the SoapSerializer object.\n\nRuntime Error!\nR6025\n- pure virtual function call\n\nThanks in advance!\n\nMy procedure is:\n\n/////////\nFUNCTION NFe_Comunica()\n/////////\nLOCAL oCertificado\nLOCAL oSoapConnector\nLOCAL oSoapReader\nLOCAL oSoapSerializer\nLOCAL cXML_SOAP\n\noCertificado    := CREATEOBJECT( &quot;CAPICOM.Certificate&quot;     )\noSoapConnector  := CREATEOBJECT( &quot;MSSOAP.HttpConnector30&quot;  )\noSoapReader     := CREATEOBJECT( &quot;MSSOAP.SoapReader30&quot;     )\noSoapSerializer := CREATEOBJECT( &quot;MSSOAP.SoapSerializer30&quot; )\n\n// Load certificate (supressed by security)\noCertificado:Load( &quot;XXXXX.pfx&quot;, &quot;PPPPP&quot;, 0, 0 )\n\n// Make a XML to communicate through SOAP\ncXML_SOAP := \'&lt;nfeStatusServicoNF xmlns=&quot;http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico&quot;&gt;\'\ncXML_SOAP += \'&lt;nfeCabecMsg&gt;\'\n//&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;&lt;cabecMsg xmlns=&quot;http://www.portalfiscal.inf.br/nfe&quot; versao=&quot;1.02&quot;&gt;&lt;versaoDados&gt;1.07&lt;/versaoDados&gt;&lt;/cabecMsg&gt;\ncXML_SOAP += \'&amp;lt;?xml version=&amp;quot;1.0&amp;quot; encoding=&amp;quot;UTF-8&amp;quot;?&amp;gt;&amp;lt;cabecMsg xmlns=&amp;quot;http://www.portalfiscal.inf.br/nfe&amp;quot; versao=&amp;quot;1.02&amp;quot;&amp;gt;&amp;lt;versaoDados&amp;gt;1.07&amp;lt;/versaoDados&amp;gt;&amp;lt;/cabecMsg&amp;gt;\'\ncXML_SOAP += \'&lt;/nfeCabecMsg&gt;&lt;nfeDadosMsg&gt;\'\n//&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;&lt;consStatServ xmlns=&quot;http://www.portalfiscal.inf.br/nfe&quot; versao=&quot;1.07&quot;&gt;&lt;tpAmb&gt;1&lt;/tpAmb&gt;&lt;cUF&gt;35&lt;/cUF&gt;&lt;xServ&gt;STATUS&lt;/xServ&gt;&lt;/consStatServ&gt;\ncXML_SOAP += \'&amp;lt;?xml version=&amp;quot;1.0&amp;quot; encoding=&amp;quot;UTF-8&amp;quot;?&amp;gt;&amp;lt;consStatServ xmlns=&amp;quot;http://www.portalfiscal.inf.br/nfe&amp;quot; versao=&amp;quot;1.07&amp;quot;&amp;gt;&amp;lt;tpAmb&amp;gt;1&amp;lt;/tpAmb&amp;gt;&amp;lt;cUF&amp;gt;35&amp;lt;/cUF&amp;gt;&amp;lt;xServ&amp;gt;STATUS&amp;lt;/xServ&amp;gt;&amp;lt;/consStatServ&amp;gt;\'\ncXML_SOAP += \'&lt;/nfeDadosMsg&gt;\'\ncXML_SOAP += \'&lt;/nfeStatusServicoNF&gt;\'\n \n\n// Make the SOAP message\noSOAPConnector:Property( &quot;EndPointURL&quot;, &quot;https://nfe.fazenda.sp.gov.br/nfeweb/services/nfestatusservico.asmx?WSDL&quot;, nil, nil )\noSOAPConnector:Property( &quot;SoapAction&quot; , &quot;http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF&quot; )\noSOAPConnector:Property( &quot;UseSSL&quot;     , .T. )\noSOAPConnector:Property( &quot;SSLClientCertificateName&quot;, oCertificado:GetInfo( 0 ) )\n//oSOAPConnector:Connect()\n//oSOAPConnector:BeginMessage()\noSOAPSerializer:Init( oSOAPConnector:InputStream )\noSOAPSerializer:StartEnvelope( &quot;soap&quot; )\n    oSOAPSerializer:StartBody()\n       oSOAPSerializer:WriteXML( cXML_SOAP )\n    oSOAPSerializer:EndBody()\noSOAPSerializer:EndEnvelope()\noSOAPSerializer:Finished()\n//oSOAPConnector:EndMessage()\noSOAPReader:Load( oSOAPConnector:OutputStream )\n \n\ncXML_Retorno := oSOAPReader:Body:XML\nMEMOEDIT( cXML_Retorno )      // This return correctly\n \noCertificado    := NIL\noSoapReader     := NIL\nAlert( &quot;Checkpoint 1&quot; )\noSoapSerializer := NIL              /////////// Here I got the error message, even trying RELEASE or OleReleaseObject methods\nAlert( &quot;Checkpoint 2&quot; )\noSoapConnector  := NIL\nRETURN ( cXML_Retorno )'),(337,1173,0,6,1288993468,'xBrowse y Scrollbar','Hola amigos del foro\n\nTengo una interrogante, en un dialogo aumento el FONT a 28.\nDentro del dialogo tengo un xBrowse, y efectivamente el los datos me aparencen con el font correcto.\nEl problema es la diminuta Scrollbar Vertical, no se como hacerla proporcional a la fuente, es decir agrandarla.\n\nEstoy usando dos versiones de FWH la 9.06 y la 10.9 en cual de ellas sera posible  :?: \n\nSaludos'),(338,2045,20252,21,1289510152,'Re: Listbox no FWH 6.2','Amigo Euclides\nObrigado pela pronta resposta, mas o que leio no error log não me dá pista nenhuma como poderá ver.\n\nHarbour Alpha build 1.0 Intl.\nCopyright 1999-2007, http:\\www.harbour-project.org/\nCompiling \'customer.prg\' and generating preprocessed output to \'customer.ppo\'...\nlinha igelivel e impossivel transcreve-la.\noutput to \'customer.c\'... Done.'),(342,1354,0,3,1291589913,'Copy database file to an open database.','The question may be a dumb one but I want to be able to have two users looking at seperate files but identical files. One user changes his file then send it to the other user who cound click a button and have his file'),(343,1728,0,6,1291833882,'Impresión a Pdf','Por favor necesito la ayuda del foro\n\nTengo configurada mi aplicacion para imprimir con TPrinter y USER PREVIEW\n\nSe trata de imprimir una factura que lleva una imagen (logo)\n\nAl momento de que me aparece el cuadro de diálogo de imprimir, yo selecciono una impresora virtual ( en este caso uso DOPDF), pulso imprimir y cuando veo mi factura, la imagen del logo está más grande.\n\nSin embargo cuando mando imprimir la factura directamente a la impresora todo sale normal, la cuestión es que requiero primeramente crear el pdf\n\nAnexo el link de imagenes\n\n\n\nSaludos'),(344,84,18050,6,1291898348,'Re: Facturación electronica - España','Aqui esta el link de la nueva clase\n\n[url]http://www.apolosoftware.com/TFacturaElectronica.rar[/url]\n\nSaludos'),(345,29,0,3,1294067862,'xbrowse and bitpmas by resource','Hi all,\nI need to display into an xbrowse the bitmaps contained (as hansle) in the first array element.\n\nHaving the following code:\n\nb_red:=LoadBitmap(GetResources(),&quot;RED&quot;)\nb_green:=LoadBitmap(GetResources(),&quot;GREEN&quot;)\n\naArray:={}\naadd(aArray,{b_red,&quot;Marc&quot;})\naadd(aArray,{b_green,&quot;Paul&quot;})\n\nI tried with:\n\n    REDEFINE XBROWSE oBrw ARRAY aArray  ID 101 OF oDlg\n     ADD COLUMN TO XBROWSE oBrw BITMAP DATA aArray[OBRW:NARRAYAT(),1] ;     // array element # 1\n        HEADER &quot;Status&quot;  SIZE 20 CENTER\n    ADD COLUMN TO XBROWSE oBrw DATA ARRAY ELEM 2 ;     \n        HEADER &quot;Names&quot;  SIZE 80\n \nbut the first column always appear blank.\n\nAny ideas ? Thanks in advance.'),(346,2040,20079,8,1294386003,'Re: he conseguido un iphone','Hola\n¿Funciona correctamente las aplicaciones 5p cuando se suspende el programa por una llamada, pongamos el caso? \nPor cierto, ya me he dado de alta como desarrollador, a falta de confirmación de Apple. ¿Cómo se instalan los programas en el ipod?\nUn saludo'),(347,1517,20623,6,1294658520,'Re: Tmail','[quote=&quot;fergonm&quot;]Buenos días.\n\nIntento mandar mail en modo interactivo (ejemplo testmail). Necasitaría en TEXT mandar varios campos de una base de datos. Para ello he modoifaco el programa como sigue:\n\n\n function InteractiveMessage()\n\n   local oMail\n   LOCAL cNumSini:=SPACE(18)\n   LOCAL cNumPoliza:=SPACE(15)\n   Use Siniestr\n	cnumSini:=siniestr-&gt;Numsini\n   DEFINE MAIL oMail ;\n      SUBJECT &quot;Siniestro &quot;+cNumSini ;\n      TEXT &quot;Número de siniestro&quot;+cnumSini+K_RETURN+&quot;Número de póliza&quot;+cNumPoliza ;\n      FROM USER ;\n      RECEIPT\n\n   ACTIVATE MAIL oMail\n\n   MsgInfo( oMail:nRetCode )\n	Close databases\nreturn nil\n\nNo funciona, ya que no está bien el codigo inkey para retorno de carro de manera que cada campo aparezca en una línea. ¿como puede hacer que cada campo aparezca en una línea?\n\nMuchas gracias. Fernando[/quote]\n\nHola.\nMe gustaria ponerme en contacto contigo.\nMi correo es jesus&lt;arroba&gt;sisalamanca.com\nSaludos'),(348,1328,0,3,1294664560,'\'hb_stackST\' Error','Hello All!\n\n\'hb_stackST\' Error!!\n\nError E2451 Undefined symbol \'hb_stackST\' in function HB_FUNC_GETCOMMERROR\n( hb_retni( GetCommError( ( HANDLE ) hb_parnl( 1 ), ( hb_pcount() &gt; 1 ) ? &amp;stat : 0 ) ); )\n\nbcc55 Compile Option\n bcc32 -D__HARBOUR__ -DHB_API_MACROS -DHB_OS_WIN_32 -M -c -O2\n\nHelp me.\n\n[code=fw]HB_FUNC( GETCOMMERROR )   // ()\n{\n    COMSTAT stat;\n\n    hb_retni( GetCommError( ( HANDLE ) hb_parnl( 1 ), ( hb_pcount() &gt; 1 ) ? &amp;stat : 0 ) );\n    if( ( int ) hb_pcount() &gt; 1 )\n        hb_storclen( ( char * ) &amp;stat, sizeof( COMSTAT ), 2 );\n}[/code]'),(350,532,0,20,1296139792,'DBFNDX','Buongiorno a tutti.\n\nAvrei bisogno di creare un file indice .NDX, purtroppo quando\nscrivo REQUEST DBFNDX etc.etc. mi da errore, non trova la libreria....\nUso ancora FWH 2.4, esiste una libreria dbfndx.lib?\n\nGrazie.'),(351,1911,20752,6,1296189543,'Re: method seek Dolphin','Muy interensante,\n\nagrego unas modificaciones para que sea mas generico el codigo\n\n     REDEFINE GET aGet[1] VAR cBusca ID 111              ;\n             PICTURE &quot;@!&quot;                                ;\n             OF oDlg UPDATE                              ;\n             ON CHANGE( oQry:Refresh(), Buscar_Inc( nKey, @aGet[1], oQry, oBrw ) )\n\n\n//------------------------------------------------------------------------//\n\nFunction Buscar_Inc( nKey, oGet, oQry, oBrw ) \n   local cFras\n   if nKey &lt;&gt; 13\n      if ( nKey &gt;= 032 .OR. nKey &lt;= 126 )\n         cFras:= upper( AllTrim( oGet:cTitle ) )\n         nSeek := oQry:Seek( cFras, 2, , , .T.) // lSoft := .T.        \n         if nSeek &gt; 0\n            oQry:refresh()  \n         else\n            oQry:Gotop()\n            oQry:refresh()\n         endif        \n      endif\n   endif\n   oBrw:refresh()\nreturn .t.\n\n//-----------------------------------------------------------------------//\n\nDaniel cuando el query tiene mas de una tabla la busqueda incremental el seek no funciona aunque este ordenada por la columna correcta\n\nEje: \n\n  cSql:=&quot;SELECT c.codciud as codigop,c.nomciud as puerto,p.codpuer as codigom,p.nompuer as muelle  &quot;+;\n        &quot;       FROM puertos p INNER JOIN ciudad c ON p.codciud=c.codciud &quot;+;\n        &quot;ORDER BY p.nompuer &quot;\n\nSi hago un locate funciona :\n\noQry:locate( { cBusca },{&quot;muelle&quot;},,.t. ) \n\nSlds,\n\nNicanor Martinez'),(353,413,0,6,1296731646,'No pinta los acentos del día de la semana','Hola, estoy siguiendo el ejemplo de outlook calendar del foro ingles ( [url]http://forums.fivetechsupport.com/viewtopic.php?f=3&amp;t=20732[/url]) ya lo compilo bien y me muestra todo en pantalla sin errores, pero cuando intento que todo el texto me lo mande en castellano (Nombre del día de la semana, nombre del mes...) me aparecen o desaparecen símbolos. Así el sábado me lo muestra sin la a acentuada &quot;S bado&quot; el miércoles como &quot;mielcoles&quot;... Eso sí la traducción es la correcta pero parece que los codigos de pagina no son correctos. Lo que he cambiado para que aparezca en castellano es lo siguiente:\n[code]REQUEST DBFCDX\nREQUEST HB_LANG_ES            // Que todos los mensajes me los saque en español\nREQUEST HB_CODEPAGE_ESWIN     // Los codigos de pagina tambien en español\n\nfunction Main()\n   \n   HB_LANGSELECT( \'ES\' )       //Selecciona lenguaje español\n   HB_SETCODEPAGE( \'ESWIN\' )   //Selecciona el codigo de pagina español\n   \n   SET DATE FORMAT &quot;MM/DD/YYYY&quot;\n   SET DELETE ON\n\n   SampleCalex():New()\n\nreturn nil[/code]\n\nSolo he añadido el soporte harbour para castellano y he hecho pruebas anotando &quot;sábado&quot; en todos los días y funciona. Parece que el problema lo genera la función  DrawTextTransparent( hDC, cText , aArea, nStyle ) del método siguiente:\n[code]\n//----------------------------------------------------------------------------//\n// all header will be painted over nTopMargin ( nTopMargin - nDNameHeight )\n//\n// ***************** &gt; Header\n// ----------------- &gt; TopMargin\n//\nMETHOD PaintHeader( hDC ) CLASS TMonthView\n\n   local dFirstDateWeek := ::dDate - DoW( ::dDate ) + 1\n   local n, nStyle\n   local aArea\n   local cText, nOldClr\n   local aCoor\n\n   nStyle = nOR( DT_SINGLELINE, DT_CENTER, DT_VCENTER )\n\n   for n = 0 to 6\n      aCoor = ::GetCoorFromPos( 1, n + 1 )\n      aArea = { ::nTopMargin - ::nDNameHeight, aCoor[ 2 ], ::nTopMargin, aCoor[ 2 ] + aCoor[ 3 ] }\n      cText = CDoW( dFirstDateWeek + n )\n      if aCoor[ 3 ] &lt; 100\n      	cText = SubStr( cText, 1, 3 )\n     	endif\n     	nOldClr  = SetTextColor( hDC, ::nClrText )\n      DrawTextTransparent( hDC, cText , aArea, nStyle )\n      SetTextColor( hDC, nOldClr )\n   next\n\nreturn ni[/code]\n\nAlguna pista?\n\nGrácias'),(356,868,20854,3,1297431170,'Re: rPreview does not close when app closes','[quote](1) the word factor overlaps with the buttons (there is already a thread on this subject and it looks ugly)[/quote]\n[quote](2) then I find that if the app is themed, new buttons and actions are ignored by this &quot;newer&quot; rpreview, [/quote]\n[quote](3) if you close the parent application, rpreview windows stay open and becomes a cpu hog[/quote]\n[quote]So, I\'ve decided to change rpreview again and (1) give it a better looking appearence by implementing a graded tbar with 32 x 32 bitmaps, (2) going back to the way I add custom buttons for custom actions, (3) getting rid of IsAppThemed() everywhere [/quote]\n[quote](4) commenting out the eternal while loop that may cause the window to stay open after the main app has been closed.[/quote]'),(365,1450,0,17,1300230528,'GET calculator - Source code included','GET calculator\nCalculadora em Fivewin, para uso com GET ou avulsa. Segue exemplo (testcalc.prg), o fonte das classes TRCalc e TMyDlg (TRCalc.PRG) e arquivo compilado (testcalc.exe).\nhttp://www.megaupload.com/?d=JP8I7ZFN'),(366,1450,21121,3,1300281771,'Re: GET Calculator - Source code included','Image / imagem\n[img]http://img850.imageshack.us/img850/9018/calculator.jpg[/img]\n\nRicardo Marques'),(362,534,20912,6,1299352706,'Re: Numeracion consecutiva de codigo (SOLUCIONADO)','para elegir un get en concreto para poner el foco\noGet[1]:oJump := oGet[2]\noGet[2]:SetFocus()\ny en el ini\nodlg:bStart   = {|| if  ( lalta , oGet[1]:SetFocus() ,  oGet[3]:SetFocus() )   }'),(364,281,0,11,1300096380,'Linux fedora core 1 -&gt; GLIBC-2.4 not found...','Hi all,.\n\ncompile := xharbour, fivewin-linux.\n\n/lib/tls/libc.so.6 : version \'GLIBC_2.4\' not found\n\nTo compile it is fedora core 1.\nHow compiling ?\n\nThank you.'),(368,367,0,3,1300729145,'FastReport How do I set number of copies of a receipt?','Good evening friends\nI\'m needing to issue a receipt, giving me two options discussed below:\n1 - Print two copies of the receipt and a sheet of A4 paper;\n2 - Print two copies of the receipt fanfold paper, perforated card in half.\n\nHere I set the page size: Width: 21cm and Height: 17cm, but prints only one way, then if we print on a laser printer and / or ink-jet, half sheet forfeited.\n\nIf anyone can give me this tip, I am grateful.\n\nthanks\n\nKleyton'),(369,67,21178,3,1301205635,'Re: Xbrowse array autosort behaviour','Richard , Nages :\n\n1) The arraysort will not be the same when the column to sort has equal elements.\n\nIn Custumer.dbf i have a index on Last (column 2). Sorting on column2 sort on this field , but with equal names also on recordnumber. \n\nFor \'Bink\' , 4 names :  125 ,152 , 176 , 382\n\nOrdering in a array (all the records from the dbf) \n\n\'Bink\' :  152 , 176 , 382 , 125 \n\nAfter changing to another column and restoring order from column 2 : 152 , 382 , 176 , 125\n\nProbably is the ordering at random\n\n2) After selecting \'Bink\' 382 , clicking another column , click column 2 i become \'Bink\' 176 . Xbrowse is only able to find one from the 4 \'Binks\' , it does it at random.\n\nTo become better results we could use a secundary key :\n\nINDEX ON PAD(TRIM(Last) + TRIM(First) , 20) \n\nThis is possible in the DBF , not in the array . See . The two problems are still there when last + first are equal (there are two Bink Gregory) .\n\nAnyhow the result would be much better.\n\n\n\nTo solve the problem we have to add a column \'Record number\' (can always be usefull )'),(370,1845,21224,6,1301612070,'Re: MDB CON ODBC','Prueba ésto:\n\n\ncConn:=&quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;+cFileMdb+&quot;;Persist Security Info=False;Jet OLEDB:Database Password=&quot;+dbPass&quot;\noCone := TOleAuto():New(&quot;ADODB.Connection&quot;)\noCone:ConnectionString := cConn\noCone:Open()'),(371,1802,0,3,1302334162,'Raed com port','I\'m trying to read a data from the COM port:\n\ninclude &quot;FiveWin.ch&quot;\n\nfunction Comm()\n\n   local oDlg, nComm := InitComm()\n\n   DEFINE DIALOG oDlg TITLE &quot;Testing Comm functions&quot;\n\n\n*** timet ***\n*  DEFINE TIMER oTmr INTERVAL 100 ACTION BytesAtPort( nComm, nStatus ) OF oWnd\n*  ACTIVATE TIMER oTmr\n*************\n\n\n   oDlg:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) }\n\n   ACTIVATE DIALOG oDlg ;\n            ON INIT EnableCommNotification( nComm, oDlg:hWnd, 20, 20 )\n\n   CloseComm( nComm )\n\nreturn nil\n\n\n*********************************************\n\nfunction InitCOMM()\n\n   local cDcb, nError, nBytes\n   local nComm := OpenComm( &quot;COM1&quot;, 1024, 128 )\n   local cF := \'commTest.log\'\n\nFErase( cF )\n\n  if nComm=1\n     LogFile( cF, { \'Otvoren COM 1 port \' + \'9600\' } )\n  endif\n\n   if ! BuildCommDcb( &quot;COM1:9600,n,8,1&quot;, @cDcb )\n      MsgStop( &quot;Error BUILD!&quot; )\n      return .f.\n   endif\n\n   if ! SetCommState( cDcb )\n      MsgStop( &quot;Error SETCOMM!&quot; )\n      return .f.\n   endif\n\nreturn nComm\n\n\n*********************************************\n\nfunction BytesAtPort( nComm, nStatus )\n  \n   local cBuffer := Replicate(Chr(255),1024)\n   local cF := \'commTest.log\'\n\n\n      ReadComm( nComm, @cBuffer )  // &lt;&lt;&lt;&lt;---- program will lock here\n\n         cBuffer:=StrTran(cBuffer,Chr(255),\'\')\n\n            LogFile( cF, {  cBuffer  } )\n\nreturn nil\n\n\neverything is fine but the result is:\n\n09.04.2011 08:01:52: Otvoren COM 1 port 9600	\n09.04.2011 08:01:52: 	\n09.04.2011 08:01:52: 	\n09.04.2011 08:01:52: 	\n09.04.2011 08:01:52: 	\n09.04.2011 08:01:52: 	\n09.04.2011 08:01:52: 	\n09.04.2011 08:01:52: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:53: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:54: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:55: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:56: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:57: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:58: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:01:59: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:00: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:01: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:02: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:03: 	\n09.04.2011 08:02:04: 	\n09.04.2011 08:02:04: 	\n09.04.2011 08:02:04: 	\n09.04.2011 08:02:04: 	\n09.04.2011 08:02:04: 	\n09.04.2011 08:02:04: 	\n09.04.2011 08:02:04: 	\n\n\nthe com port is currently connected mouse\n\nI have no experience with this. I need any help!\n\nbest regards\nMiloš'),(372,228,21293,6,1302698659,'Re: Foro, Buen dia, Refrescar un dbCombo...','Hace un tiempo me paso algo similar y lo solucione de la siguiente forma:\n\n[code=fw]\noT1oc1:aItems := ACLONE(oT1lc1)\noT1oc1:refresh()\n [/code]\n\nEn donde oT1oc1 Es el objeto y oT1lc1 el nuevo array\n\nEspero te sirva'),(373,925,0,6,1303053926,'Lector Zk6000  biometrico','[*]Hola amigos quiero saber si alguien a trabajado con el lector biometrico el modelo que tengo es ZK6000 pero los ejemplos estan en  c++,visual basic  y otro lenguaje,  si alguien tiene alguna idea  o ejemplo seria de gran ayuda.'),(374,708,0,6,1303765469,'busqueda con Mysql y Ado, error','Estimados amigos, cual sería el error de este codigo, lo he cambiado y probado nnn veces y no puedo apuntarle, es\nuna busqueda tipo seek con mysql con ado\n\nel error lo tengo cuando compilo y me sale error \nC:\\GESTOR11\\PRG\\menu01.prg(574) Warning W0001  Ambiguous reference: \'CURSORTYPE\'\nC:\\GESTOR11\\PRG\\menu01.prg(574) Warning W0001  Ambiguous reference: \'LOCKTYPE\'\nC:\\GESTOR11\\PRG\\menu01.prg(580) Warning W0005  RETURN statement with no return value in function\n\nuso, fwh 8.12, xharbour, verce 4.3, workshop\n\n\nStatic Function B_A(cArticulo)\noProducto:=TOleAuto():New(&quot;ADODB.Recordset&quot;)\noProducto:CursorLocation:= adUseClient\noProducto:Open(&quot;SELECT * FROM b_art WHERE cod_art = &quot;+ Alltrim(cArticulo), oConexion,CursorType,LockType)\nif (oProducto:RecordCount)==0\n   Msginfo(&quot;Existe&quot;)\nElse\n   MsgInfo(&quot;No Existe&quot;)\nEndif\nReturn\n\nme dice que hay error en  oConexion,CursorType,LockType\n\n\nFUNCTION GetArticulo( lAppend,oLbx)\n*--------------------------------------------\n	LOCAL oDlg, oIco, oCursor,cSql\n	LOCAL aGet	:= Array( 20 )\n	LOCAL cTitulo	:= IF( lAppend == .T., &quot;Ingreso un Nuevo Producto&quot;, &quot;Modificar datos del Producto&quot;)\n	LOCAL lAceptar  := .F.\n        LOCAL cArticulo :=Space(13)\n        LOCAL cDetalle  :=Space(60)\n        LOCAL nPrecio   :=0.00\n        LOCAL nStock    :=0.000\n        LOCAL nBookmark,nRecCount\n	IF lAppend == .F.\n	    IF  !oProducto:BOF() .AND. !oProducto:EOF()\n	      nBookmark:=oProducto:Bookmark\n              nRecCount:=oProducto:RecordCount()\n\n              cArticulo:=ADOField(oProducto,&quot;cod_art&quot;)\n              cDetalle :=ADOField(oProducto,&quot;des_art&quot;)\n              nPrecio  :=ADOField(oProducto,&quot;pco_art&quot;)\n              nStock   :=ADOField(oProducto,&quot;in1_art&quot;)\n\n            Else\n               Return .t.\n            ENDIF\n	ELSE\n           IF  oProducto:BOF() .AND. oProducto:EOF()\n               cArticulo:=Space(13)\n           Else\n             oProducto:MoveLast()\n             cDetalle :=Space(60)\n      	     nPrecio  :=0\n      	     nStock   :=0\n      	    Endif\n     	ENDIF\n\n	DEFINE CURSOR oCursor HAND\n	DEFINE DIALOG oDlg RESOURCE &quot;MA_ARTICULO&quot; TITLE cTitulo OF oWnd\n\n	REDEFINE GET aGet[  1 ] VAR cArticulo		ID 101 OF oDlg UPDATE VALID(B_A(cArticulo))\n	REDEFINE GET aGet[  2 ] VAR cDetalle		ID 102 OF oDlg UPDATE\n	REDEFINE GET aGet[  3 ] VAR nPrecio     	ID 103 OF oDlg UPDATE\n	REDEFINE GET aGet[  4 ] VAR nStock      	ID 104 OF oDlg UPDATE\n\n	REDEFINE BUTTON aGet[ 15 ] ID 501 OF oDlg ACTION ( lAceptar := .T., oDlg:End() )\n	REDEFINE BUTTON aGet[ 16 ] ID 502 OF oDlg ACTION ( oDlg:End() )\n\n	ACTIVATE DIALOG oDlg CENTERED\n	IF lAceptar == .T.\n	   IF lAppend == .T.\n              cSql:= &quot;INSERT INTO   &quot; +;\n              &quot;b_art (&quot; +;\n              &quot;cod_art,&quot;  +;\n              &quot;des_art,&quot;   +;\n              &quot;pco_art,&quot;    +;\n              &quot;in1_art) &quot;    +;\n              &quot;VALUES (&quot;   +;\n              &quot;\'&quot;+AllTrim(cArticulo)   + &quot;\',&quot; +;\n              &quot;\'&quot;+AllTrim(cDetalle)    + &quot;\',&quot; +;\n              &quot;\'&quot;+Str(nPrecio,12,2)    + &quot;\',&quot; +;\n              &quot;\'&quot;+Str(nStock,11,3)     + &quot;\')&quot;\n\n           oConexion:Execute( cSql )\n           oProducto:Requery()\n\n	    ELSE\n\n	     cSql:= &quot;UPDATE b_art SET des_art =\'&quot;+AllTrim(cDetalle)  + &quot;\',&quot; +  ;\n	                             &quot;pco_art  =\'&quot;+Str(nPrecio,12,2)  + &quot;\',&quot; +  ;\n                                     &quot;in1_art  =\'&quot;+Str(nStock,11,3)   + &quot;\'&quot;  +  ;\n                               &quot; WHERE cod_art =\'&quot;+ AllTrim(cArticulo) + &quot;\'&quot;\n\n                           oConexion:Execute(cSql)\n                           oProducto:Requery()\n                           IF nBookMark == nRecCount\n                            If nRecCount#1\n                        	oLbx:GoBottom()\n                            Endif\n                           ELSE\n                         	oProducto:BookMark()	:= nBookMark\n                           ENDIF\n\n 	    Endif\n	END IF\n\n        oLbx:SetFocus()\n	oLbx:Refresh()\nRETURN nil'),(379,1914,21701,6,1307366575,'Re: FASTLib. Open Source','Tambem posso ajudar, se quiser mande para o email aferracini@terra.com.br'),(381,1262,14739,4,1308653737,'Re: compress and decompress zip files','[quote]\nBetter, try to use this hbcommon.lib file:\nhttp://www.mediafire.com/?sharekey=414c ... cb2fc36a03[/quote]\n\nWhere can i find this lib? The link above i broken.'),(382,52,0,6,1312472051,'combobox me devuelve datos no correctos','Hola.\nSi el combobox lo tengo en un .res y en ese .res la variable SORT esta seteada a &quot;SI&quot;\ncuando se ejecuta oComboBox:bChange:= { || msginfo(vCombo) } el valor que me muestra\nes el correspondiente a aItems[indice - 1]. en vez de devolverme aItems[indice]\n\nEjemplo: Si estoy sobre el elemento &quot;DOS&quot; en vez de mostrarme DOS me muestra UNO\n\nSi en el .res a SORT lo seteo en &quot;NO&quot; esto no ocurre y me devuelve &quot;DOS&quot;\ngracias.\n\n[code=fw]FUNCTION main()\n   LOCAL oDlg,;\n      oCombo, vCombo,;\n      aItems\n      aItems:={ &quot;&quot;, &quot;uno&quot;, &quot;dos&quot;, &quot;tres&quot;}\n      DEFINE DIALOG oDlg resource &quot;DLG01&quot;\n           REDEFINE COMBOBOX oCombo VAR vCombo ID 200 OF oDlg\n           oCombo:setItems(aItems)\n           oCombo:bChange:= {|| MsgInfo(vCombo) }\n       ACTIVATE DIALOG oDlg CENTERED\nRETURN (NIL)[/code]'),(383,558,11940,6,1312647456,'Re: TIP:Usando AJAX con Harbour','Estimado.\n\nmuy bueno tu ejemplo de hecho lo uso para leer informacion de algunas paginas y extraer ciertos datos. (oHttp:responseText)\ndime si quisiera  decargar una imagen y mostrarlo en FW como seria\n\nSaludos\n\nFrancisco Nuñez'),(384,2216,22109,6,1312863283,'Re: Uso de DropBox','Muchas gracias, funciono a la perfeccion'),(385,1911,22124,6,1312866389,'Re: Fast Reports &amp; TDolphin','Esta es una clase parala administracion y diseño de los reportes con fastreport estos se almacenan en una base mysql, uso una especie de macros que se reemplazan con la funcion procesos_sql(cSql) ejemplo $fechas pide un rango de fechas y reemplaza en el query por elrepectivo rango antes de llamar a oserver:query(cSql) .\n\nSlds\n\nNicanor M.\n\n[code]\n#INCLUDE &quot;FIVEWIN.CH&quot;\n#INCLUDE &quot;XBROWSE.CH&quot;\n#INCLUDE &quot;TCBROWSE.CH&quot;\n#INCLUDE &quot;RECURSOS.CH&quot;\n#include &quot;FastRepH.ch&quot;\n\n#ifdef _MYSQLDB_\n\nStatic oQryGes , oQryCons , oTZonas, oQryCiud\n\n#endif\n\nCLASS TGesRep\n\n  METHOD New() CONSTRUCTOR\n  METHOD Borrar()\n  METHOD Browse()\n  METHOD Editar()\n  METHOD Cargar()\n  METHOD Grabar()\n  METHOD Blank()\n  Method EnviaReporte()\n  Method MuestraReporte()\n  METHOD Informe()\n\nENDCLAss\n\n//---------------------------------------------------------//\n\nMETHOD Informe() CLASS TGesRep\n\n  cSql := &quot;SELECT * from reportes &quot;\n\n  Sql_report(&quot;Listado de Reprtes&quot;,cSql)\n\nRETURN\n\n//---------------------------------------------------------//\n\nMETHOD Blank() CLASS TGesRep\n\nReturn\n\n//----------------------------------------------------------//\n\nMETHOD New(lLoad) CLASS TGesRep\n\n	  DEFAULT lload := .f.\n\n     xciud:=space(30)\n\n     if lLoad\n\n       ::Cargar()\n\n     endif\n\nReturn Self\n\n//---------------------------------------------------------//\n\nMETHOD Borrar() CLASS TGesRep\nLocal oQryC, oQryP\n\nIf Msgyesno(&quot;Esta seguro de Borrar esta Zona ?&quot;)\n\n    cSql  := &quot;UPDATE puertos SET zona = \'    \' where zona = \'&quot;+oTGRep:codzona+&quot;\' &quot;\n  	 oQryc := TDolphinQry():New( cSql, oServer )\n    cSql  := &quot;DELETE FROM zonas  where id = &quot;+str(oTGRep:id)\n  	 oQryP := TDolphinQry():New( cSql, oServer )\n\nendif\n\nReturn\n\n//-----------------------------------------------------------//\n\nMETHOD Cargar() CLASS TGesRep\n\n   oQryCons:SetWhere( &quot; ReportID = &quot;+ClipValue2SQL( oTGrep:id ) )\n   oQryCons:Refresh()\n   oQryCons:Gotop() \n\n\nReturn\n\n//------------------------------------------------//\n\nMETHOD Grabar() CLASS TGesRep\nLocal nOrden, lNuevo := .f.\n\n   if empty( oTGRep:Reporte )\n\n        Msginfo(&quot;Debe escribir el nombre del Reporte&quot;)\n        Return\n\n   endif\n\n   if empty( oTGRep:ReportFileName )\n\n        Msginfo(&quot;No ha especificado e nombre del archivo de reporte&quot;)\n        Return\n\n   endif\n\n   oTGRep:Save()\n\nReturn\n\n//--------------------------------------------//\n\nMETHOD Browse( lBusca, oQry ) CLASS TGesRep\nLocal oDlg,oBrow,lOk:=.f.,oBrw, oData, cBusca :=Space(80),aGet:=array(1), oQryC\nSTATIC oxa\n\n     oData := oQry\n\n     DEFINE DIALOG oDlg RESOURCE &quot;BROWSEB&quot; FONT TFont():New( GetDefaultFontName(), 0, GetDefaultFontHeight(),, ) // TRANSPARENT\n\n     oDlg:Settext(&quot;Reportes Registrados&quot;)\n\n     oDlg:lHelpIcon:=.F.\n\n     REDEFINE XBROWSE oBrw  ; //  OBJECT oQry  ;\n             FIELDS oData:Id,;\n                    oData:Reporte,;\n                    oData:ReportFileName  ;\n           HEADERS &quot;Codigo&quot;,;\n                   &quot;Nombre del Reporte&quot;, ;\n                   &quot;Nombre del Achivo&quot; ;\n           FIELDSIZES  80,200,200 ;\n           AUTOSORT ;\n           ON DBLCLICK ( lok:=.t.,oDlg:End(),cCod := oData:Id )\n\n     WITH OBJECT oBrw\n\n         :nMarqueeStyle       := MARQSTYLE_HIGHLROW\n         :nColDividerStyle    := LINESTYLE_BLACK\n         :lColDividerComplete := .T.\n         :nHeaderLines        := 1\n         :nDataLines          := 1\n         :bKeyDown            := { |nkey| iif(nKey==13,(lok:=.t.,oDlg:End(), cCod := oData:codzona ),) }\n\n     END\n\n     SetDolphin( oBrw, oQry, .F.)\n\n     oBrw:CreateFromResource( 101 )\n\n     REDEFINE GET aGet[1] VAR cBusca ID 111              ;\n             PICTURE &quot;@!&quot;                                ;\n             OF oDlg UPDATE\n\n     Redefine Button oBtn1  ID 112 of oDlg Action ( oQry:locate( { alltrim(cBusca) },{&quot;reporte&quot;},,.t. ), ;\n                                                     oQry:Refresh(),refrecont(aget),;\n                                                     oBrw:Refresh(),oBrw:SetFocus() )\n  ACTIVATE DIALOG oDlg ;\n       CENTERED\n\n\n\nReturn lOk\n\n//------------------------------------------------------------//\n\nFunction Browsecons( lBusca, oQry )\nLocal oDlg,oBrow,lOk:=.f.,oBrw, oData, cBusca :=Space(80),aGet:=array(1), oQryC\nSTATIC oxa\n\n\n     oData := oQry\n\n     DEFINE DIALOG oDlg RESOURCE &quot;BROWSEB&quot; // TRANSPARENT\n\n     oDlg:Settext(&quot;Consultas Registradas&quot;)\n\n     oDlg:lHelpIcon:=.F.\n\n     REDEFINE XBROWSE oBrw  ; //  OBJECT oQry  ;\n             FIELDS oData:codigo,;\n                    oData:Nombre ;\n           HEADERS &quot;Codigo&quot;,;\n                   &quot;Nombre de la Consulta&quot; ;\n           FIELDSIZES  80,500 ;\n           AUTOSORT ;\n           ON DBLCLICK ( lok:=.t.,oDlg:End(),cCod := oData:Id )\n\n     WITH OBJECT oBrw\n\n         :nMarqueeStyle       := MARQSTYLE_HIGHLROW\n         :nColDividerStyle    := LINESTYLE_BLACK\n         :lColDividerComplete := .T.\n         :nHeaderLines        := 1\n         :nDataLines          := 1\n         :bKeyDown            := { |nkey| iif(nKey==13,(lok:=.t.,oDlg:End(), cCod := oData:Id ),) }\n\n     END\n\n     SetDolphin( oBrw, oQry, .F.)\n\n     oBrw:CreateFromResource( 101 )\n\n     REDEFINE GET aGet[1] VAR cBusca ID 111              ;\n             PICTURE &quot;@!&quot;                                ;\n             OF oDlg UPDATE\n\n     Redefine Button oBtn1  ID 112 of oDlg Action ( oQry:locate( { alltrim(cBusca) },{&quot;nombre&quot;},,.t. ), ;\n                                                     oQry:Refresh(),refrecont(aget),;\n                                                     oBrw:Refresh(),oBrw:SetFocus() )\n  ACTIVATE DIALOG oDlg ;\n       CENTERED\n\n\n\nReturn lOk\n\n\n\n//-----------------------------------------------------------//\n\nMETHOD Editar( lNuevo, lEdita ) CLASS TGesRep\n\n   LOCAL oDlg,oBar,aGet:=array(9)\n   PRIVATE XCIUD,oBrow, aParams := {{&quot;FECHAS&quot;,&quot;$fechas&quot;},;\n                                    {&quot;CFECHAS&quot;,&quot;$cfechas&quot;},;\n                                    {&quot;OPERADORES&quot;,&quot;$operadores&quot;},;\n                                    {&quot;CIUDADES&quot;,&quot;$ciudades&quot;},;\n                                    {&quot;EQUIPOS&quot;,&quot;$equipos&quot;}, ;\n                                    {&quot;MUELLES&quot;,&quot;$muelles&quot;} }\n\n\n   DEFAULT lNuevo := .F.\n   DEFAULT lEdita := .F.\n\n   oQryGes := oServer:Query( &quot;Select * From reportes order by ID,reporte&quot; )\n   oQryCons:= oServer:Query( &quot;Select * From ReportQuerys where reportid = &quot;+ ClipValue2SQL( oQryGes:id ) )\n   oTGRep  := oQryGes:GetRowObj()\n\n   ::Cargar()\n\n\n   DEFINE DIALOG oDlg RESOURCE &quot;DEFREPORT&quot;\n\n\n   REDEFINE GET aGet[1] VAR oTGrep:Id PICTURE &quot;9999&quot; ID 101 OF oDlg READONLY UPDATE\n\n\n   REDEFINE GET aGet[2] VAR oTGRep:Reporte ID 102              ;\n      PICTURE &quot;@!&quot;                                           ;\n      OF oDlg\n\n   REDEFINE GET aGet[3] VAR oTGRep:ReportFileName ID 103       ;\n      PICTURE &quot;@!&quot;                                             ;\n      OF oDlg UPDATE\n\n   REDEFINE BTNBMP oBtn ID 122 RESOURCE &quot;LUPA_16&quot; NOBORDER  OF oDlg         ;\n           ACTION ( GETREPORTFILE( oTGRep:ReportFileName ) ,;\n                    Refrecont( aGet ) )\n\n\n  REDEFINE XBROWSE oBrow             ;\n             FIELDS oQryCons:ID ,;\n                    oQryCons:DataSetName ;\n           HEADERS &quot;Codigo&quot;         ,;\n                   &quot;Nombre del DataSet&quot; ;\n           FIELDSIZES  80,600 ;\n           AUTOSORT ;\n           ON DBLCLICK iif(!empty(oTGRep:Id),( RelacionaQuery(.f.,oQryCons,oTGRep:Id), ;\n 	                    oBrow:Refresh()  ),MsgInfo(&quot;Debe Grabar Primero&quot;) )\n\n\n\n\n     WITH OBJECT oBrow\n\n         :nMarqueeStyle       := MARQSTYLE_HIGHLROW\n         :nColDividerStyle    := LINESTYLE_BLACK\n         :lColDividerComplete := .T.\n         :nHeaderLines        := 1\n         :nDataLines          := 1\n         :bKeyDown            := { |nkey| iif(nKey==13,iif(!empty(oTGRep:Id),( RelacionaQuery(.f.,oQryCons,oTGRep:Id), ;\n	                                               oBrow:Refresh()  ),MsgInfo(&quot;Debe Grabar Primero&quot;) ) ,) }\n\n\n     END\n\n     oBrow:SetDolphin( oQryCons, .f., .F. )\n     oBrow:CreateFromResource( 104 )\n\n\n\n  aGet[4]:=oBrow\n\n  REDEFINE BUTTON aGet[5] ID 202 OF oDlg ;\n   ACTION iif(!empty(oTGRep:Id),( RelacionaQuery(.t.,oQryCons,oTGRep:Id), ;\n	    oBrow:Refresh()  ),MsgInfo(&quot;Debe Grabar Primero&quot;) )\n\n  REDEFINE BUTTON aGet[6] ID 203 OF oDlg ;\n   ACTION  iif( oQryCons:lastRec() &gt; 0 ,( QuitaQuery(oQryCons),;\n  			           oBrow:Refresh()  ),;\n                msgstop(&quot;No hay Consulta que Quitar&quot;) )\n\n  REDEFINE BUTTON aGet[7] ID 204 OF oDlg ;\n   ACTION   Disenareporte(oTGRep,.f.,aParams)\n\n\n  REDEFINE BUTTON aGet[8] ID 205 OF oDlg ;\n   ACTION   Disenareporte(oTGRep,.t.,aParams)\n\n  REDEFINE BUTTON aGet[9] ID 206 OF oDlg ;\n   ACTION   EnviaEmailReporte(oTGRep,aParams)\n\n\n  bActualiza := {|| oQryGes:Refresh(), ;\n	            oTGRep := oQryGes:GetRowObj(), ;\n                    ::Cargar(),;\n		    oBrow:Gotop(),;\n	            oBrow:Refresh(),;\n                    refrecont(aGet) ,;\n		    oBrow:SetFocus() }\n\n\n   bnuevo:={|| oTGRep := oQryGes:GetBlankRow()                                ,;\n               ::Cargar(),;\n               oBrow:Gotop(),;\n               oBrow:refresh(),;\n	       REFRECONT(aGet),;\n               ACTIVA(aGet)[1]:Setfocus() }\n\n   bGraba:={|| ::grabar(oTGRep) ,;\n               Eval( bActualiza ) }\n\n   bBusca:={|| ::browse(.t.,oQryGes)                               ,;\n                eval( bActualiza ),;\n                oBrow:Setfocus() }\n\n   bprim :={|| oQryGes:Gotop() ,;\n                eval( bActualiza ),;\n                REFRECONT(aGet) }\n\n   bEdit :={|| aGet[2]:Setfocus() }\n\n   bAnte :={|| oQryGes:skip( -1 ) ,;\n                eval( bActualiza ) }\n\n   bsig  :={|| oQryGes:skip() ,;\n                eval( bActualiza ) }\n\n   bULTI :={|| oQryGes:gobottom() ,;\n                eval( bActualiza ) }\n\n   bundo :={|| eval( bActualiza ) }\n\n   bborrar:={|| ::Borrar(),Eval(bSig) }\n\n\n   bInfo:= {|| ::informe() }\n\n\n   ACTIVATE DIALOG oDlg                                      ;\n      CENTERED  ;\n      on INIT ( oBar:=BARRACOM(oDlg,{bnuevo,bEdit,bgraba,bundo,bborrar,bprim,bante,;\n                                     bsig,bulti,bbusca,binfo}) ) // ,ACTCONTX(oBar:aControls,{2,4}) );\n\nRETURN( NIL )\n\n//------------------------------------------//\n\nFUNCTION GetReportFile( cFile )\nLocal cFileAnt := cFile\n\n   gcFile := cGetFile32(&quot;FastReport (*.fr3)| *.fr3 |&quot; +         ;\n                        &quot;Todos los Archivos (*.*)| *.* &quot;             ;\n                       ,&quot;Por favor seleccione un Archivo de FastReport&quot;,1)\n   IF !empty(gcFile)\n\n      cFilew       := memoread( gcFile ) // D_ReadFile( gcFile )\n      oTGRep:File  := Val2Escape( cFilew )\n      oTGrep:ReportFileName := getonlyName( gcFile )\n\n   ELSE\n\n      gcFile := cFileAnt // oImage:Setbmp(&quot;NULA&quot;)\n\n   ENDIF\n\nRETURN gcFile\n\n//-------------------------------------------------------------------------//\n\nFunction RelacionaQuery( lnew, oQry, idRep )\n\nLOCAL oDlg,aGet:=ARRAY(8),lsave:=.f., oCons\n\n   DEFAULT lnew := .F.\n\n   IF lnew\n\n        oCons          := oQry:GetBlankRow()\n        oCons:ReportId := IdRep\n\n   ELSE\n\n        oCons := oQry:GetRowObj()\n\n   ENDIF\n\n   oQrCs := oServer:Query( &quot;Select * From consulta where codigo=&quot;+ClipValue2Sql( oCons:consulta )+&quot; order by codigo,nombre&quot; )\n\n   If oQrCs:LastRec() &gt; 0\n\n      oMac := oQrCs:GetRowObj()\n\n      if Empty( alltrim(oCons:sqlquery) )\n      \n         oCons:SqlQuery := oMac:sqltxt\n         \n      Endif   \n\n\n   Else\n\n      oMac := oQrCs:GetBlankRow()\n\n   Endif\n\n   DEFINE DIALOG oDlg RESOURCE &quot;AGRECONS&quot;\n\n   REDEFINE GET aGet[1] VAR oCons:ID        ID 104 OF oDlg READONLY\n\n   REDEFINE GET aGet[2] VAR oMac:codigo     ID 101 OF oDlg READONLY\n\n   REDEFINE GET aGet[3] VAR oMac:nombre     ID 107 OF oDlg READONLY\n\n   REDEFINE GET aGet[4] VAR oCons:datasetName   ID 102 OF oDlg\n\n\n   REDEFINE GET aGet[5] VAR oCons:sqlquery MEMO ID 24 OF oDlg\n\n   REDEFINE BTNBMP aGet[6] ID 103 RESOURCE &quot;LUPAP&quot; OF oDlg ;\n        WHEN LNEW == .T. ;\n        ACTION ( oQrCs:SetWhere(&quot;Codigo like \'%%\'&quot;),;\n                 IIF( BrowseCons(,oQrCs) ,( oMac           := oQrCs:GetRowObj(),;\n                                            oCons:consulta := oMac:codigo,;\n                                            oCons:sqlquery := oMac:sqltxt,;\n                                            Refrecont( aGet ) ), ) )\n\n\n   REDEFINE BUTTON aGet[7] ID 25 OF oDlg ;\n       ACTION  IF( !EMPTY( oCons:Consulta) .and. !empty( oCons:DataSetName ), ( oCons:Save() , oDlg:End() ) , ;\n                   msginfo(&quot;No ha seleccionado una consulta o no ha definido dataset&quot;) )\n\n\n   REDEFINE BUTTON aGet[8] ID 26 OF oDlg ;\n       ACTION oDlg:End()\n\n\n   ACTIVATE DIALOG oDlg ;\n      CENTERED\n\n\n   oQry:refresh()\n\n   IF lnew\n\n       oQry:GoBottom()\n\n   Endif\n\n\nRETURN\n\n//----------------------------------------------//\n\nFunction QuitaQuery( oQry )\nLocal oQry1\n\nIF MSGNOYES(&quot;Esta seguro de borrar este DataSet ?&quot;)\n\n   oQry:Delete()\n   oQry:Refresh()\n\nENDIF\n\n\n\nRETURN\n\n//-------------------------------------//\n\nFUNCTION GetOnlyName( cFile )\n\n   LOCAL nRat\n\n   IF ! Empty( cFile )\n      nRat = RAt( &quot;\\&quot;, cFile )\n      cFile = SubStr( cFile, nRat + 1 )\n   ENDIF\n\nRETURN cFile\n\n\n\n//----------------------------------------------------------------------------//\nFunction Disenareporte(oGesRep,lver,aParams)\n\n   Local oFrP, oQyDst\n   Local oTip\n   Private aQrys, cParams := &quot;&quot;\n   \n   DEFAULT aParams := {{&quot;FECHAS&quot;,&quot;$fechas&quot;},;\n                       {&quot;CFECHAS&quot;,&quot;$cfechas&quot;},;\n                       {&quot;OPERADORES&quot;,&quot;$operadores&quot;},;\n                       {&quot;CIUDADES&quot;,&quot;$ciudades&quot;},;\n                       {&quot;EQUIPOS&quot;,&quot;$equipos&quot;}, ;\n                       {&quot;MUELLES&quot;,&quot;$muelles&quot;} }\n\n//  SET DEFAULT TO &quot;data\\&quot;\n  DEFAULT lver := .f.\n\n  oQyDst := oServer:Query( &quot;Select d.datasetname,d.sqlquery, c.sqltxt from reportquerys d inner join consulta c on c.codigo=d.consulta where reportid=&quot;+ClipValue2Sql( oGesRep:Id ) )\n  if oQyDst:LastRec() ==0\n     MsgInfo(&quot;No hay DataSet configurado&quot;)\n     Return\n  Endif\n  oQyDSt:Gotop()\n  While ! oQyDst:Eof()\n	  cMsql1 := iif( empty( alltrim( oQyDst:sqlquery ) ), oQyDst:sqltxt, oQyDst:sqlquery )\n     for xx := 1 to len( aParams )\n         xParam := aParams[xx,2]\n         if at( xparam, cMsql1 ) &gt; 0\n            if at( xparam, cParams ) == 0\n               cParams := cParams+&quot;,&quot;+xparam\n            endif\n         endif\n     next\n     oQyDst:skip()\n  End\n  xaParam := listasarray( cParams )\n  for xx:= 1 to len ( aParams )\n    for xa := 1 to len ( xaParam )\n        if aParams[xx,2]== xaparam[ xa ]\n            aParams[xx,1] := procesos_sql( xaparam[xa] )\n        endif\n    next\n  Next\n  aQrys := {}\n  oQyDSt:Gotop()\nTRY\n  While ! oQyDst:Eof()\n     cmSql := iif( empty( alltrim( oQyDst:sqlquery ) ), oQyDst:sqltxt, oQyDst:sqlquery )\n     for xx := 1 to len( aParams )\n         if at( aParams[xx,2], cmSql ) &gt; 0\n            ???  CRLF+aParams[xx,2] + &quot;   &quot;+CRLF\n            cmSql := STRTRAN( cmSql, aParams[ xx, 2 ], aParams[ xx, 1 ] )\n            ??? aParams[ xx, 1 ] +CRLF\n            ??? cmSql+CRLF\n         endif\n     next\n     ??? cmSql+CRLF\n     aadd( aQrys, { alltrim( oQyDst:datasetname ) ,oServer:Query( cmSql ) } )\n     oQyDst:skip()\n  End\nCATCH oErr\n   ShowError( oErr )\n   Return\nEND  \n  oFrP := frReportManager():new()\n  with object oFrP\n    for xx := 1 to len( aQrys )\n       cVar :=&quot;oDataset&quot;+strzero(xx,2)\n       &amp;cVar := oClone( aQrys[xx,2] )\n       :SetUserDataSet( aQrys[xx,1]          ,;\n                        mysqlfields( &amp;cVar ) ,;\n                        {|| &amp;cVar:GoTop()  } ,;\n                        {|| &amp;cVar:SKIP(1)  } ,;\n                        {|| &amp;cVar:SKIP(-1) } ,;\n                        {|| &amp;cvar:EOF()    } ,;\n                        { | aField | &amp;cVar:FieldGet( afield ) } )\n    next\n    :LoadFromString(oGesRep:file)\n    if !lver\n        :SetTitle( &quot;Diseñador de Informes&quot; )\n      //  :SetProperty(&quot;Designer&quot;, &quot;Restrictions&quot;,&quot;[drDontCreateReport, drDontLoadReport, drDontSaveReport]&quot;)\n        :DesignReport()  \n        :savetofile(GetEnv(&quot;TEMP&quot;)+&quot;\\&quot;+oGesRep:ReportFileName)\n        oGesRep:File := Val2Escape(  memoread( GetEnv(&quot;TEMP&quot;)+&quot;\\&quot;+oGesRep:ReportFileName  ) )\n    else\n        :SetTitle( &quot;Visor de Informes&quot; )\n		  :PreviewOptions:SetButtons( FR_PB_PRINT + FR_PB_EXPORT + FR_PB_ZOOM + FR_PB_FIND + FR_PB_OUTLINE + FR_PB_NAVIGATOR )\n        :PreviewOptions:SetMaximized(.f.)\n        :PreviewOptions:SetBounds(120, 120, 800, 600)\n     // :PreviewOptions:SetModal(.f.)\n        :ShowReport()\n    endif\n    :ClearDataSets()\n    :DestroyFr()\n  end with\nReturn\n\n//--------------------------------------------------------------------------------------------//\n\nFunction EnviaEmailReporte(oGesRep,aParams)\n   Local oFrP, oQyDst\n   Local oTip\n   Local RepDir  := CurDrive() +&quot;:\\&quot;+ CurDir() + \'\\REPS\\\'\n   Local DataDir := CurDrive() +&quot;:\\&quot;+ CurDir() + \'\\DATA\\\'\n   Local ResDir  := CurDrive() +&quot;:\\&quot;+ CurDir() + \'\\LANGRES\\\'\n   Private aQrys, cParams := &quot;&quot;\n   \n   DEFAULT aParams := {{&quot;FECHAS&quot;,&quot;$fechas&quot;},;\n                       {&quot;CFECHAS&quot;,&quot;$cfechas&quot;},;\n                       {&quot;OPERADORES&quot;,&quot;$operadores&quot;},;\n                       {&quot;CIUDADES&quot;,&quot;$ciudades&quot;},;\n                       {&quot;EQUIPOS&quot;,&quot;$equipos&quot;}, ;\n                       {&quot;MUELLES&quot;,&quot;$muelles&quot;} }\n\n//  SET DEFAULT TO &quot;data\\&quot;\n  oQyDst := oServer:Query( &quot;Select d.datasetname,d.sqlquery, c.sqltxt from reportquerys d inner join consulta c on c.codigo=d.consulta where reportid=&quot;+ClipValue2Sql( oGesRep:Id ) )\n  if oQyDst:LastRec() ==0\n     MsgInfo(&quot;No hay DataSet configurado&quot;)\n     Return\n  Endif\n  oQyDSt:Gotop()\n  While ! oQyDst:Eof()\n     for xx := 1 to len( aParams )\n         xParam := aParams[xx,2]\n         if at( xparam, oQyDst:sqltxt ) &gt; 0\n            if at( xparam, cParams ) == 0\n               cParams := cParams+&quot;,&quot;+xparam\n            endif\n         endif\n     next\n     oQyDst:skip()\n  End\n  xaParam := listasarray( cParams )\n  for xx:= 1 to len ( aParams )\n    for xa := 1 to len ( xaParam )\n        if aParams[xx,2]== xaparam[ xa ]\n            aParams[xx,1] := procesos_sql( xaparam[xa] )\n        endif\n    next\n  Next\n  aQrys := {}\n  oQyDSt:Gotop()\nTRY  \n  While ! oQyDst:Eof()\n     cmSql := iif( empty( alltrim( oQyDst:sqlquery) ), oQyDst:sqltxt,oQyDst:sqlquery )\n     for xx := 1 to len( aParams )\n         if at( aParams[xx,2], cmSql ) &gt; 0\n            ???  aParams[xx,2] + &quot;   &quot;\n            cmSql := STRTRAN( cmSql, aParams[xx,2], aParams[xx,1] )\n            ??? aParams[xx,1] +CRLF\n            ??? cmSql+CRLF\n         endif\n     next\n     ??? cmSql+CRLF\n     aadd( aQrys, { alltrim( oQyDst:datasetname ) ,oServer:Query( cmSql ) } )\n     oQyDst:skip()\n  End\nCATCH oErr\n   ShowError( oErr )\n   Return\nEND  \n  oFrP := frReportManager():new()\n  with object oFrP\n    for xx := 1 to len( aQrys )\n       cVar :=&quot;oDataset&quot;+strzero(xx,2)\n       &amp;cVar := oClone( aQrys[xx,2] )\n       :SetUserDataSet( aQrys[xx,1]          ,;\n                        mysqlfields( &amp;cVar ) ,;\n                        {|| &amp;cVar:GoTop()  } ,;\n                        {|| &amp;cVar:SKIP(1)  } ,;\n                        {|| &amp;cVar:SKIP(-1) } ,;\n                        {|| &amp;cvar:EOF()    } ,;\n                        { | aField | &amp;cVar:FieldGet( afield ) } )\n    next\n    :LoadFromString(oGesRep:file)\n    :SetTitle( &quot;Visor de Reportes&quot; )\n    cSubjectPdf  := &quot;Informe de Maniobras &quot;+dtoc( date() )+&quot;_&quot;+Time()\n    cFileNameRep := &quot;Reporte_de_Maniobras_&quot;+strtran(dtoc( date() ),&quot;.&quot;,&quot;-&quot;)+&quot;_&quot;+strtran(Time(),&quot;:&quot;,&quot;-&quot;)\n    cFileNamePdf := &quot;.\\&quot;+cFileNameRep+&quot;.pdf&quot;\n    cFileNameHtml := &quot;.\\&quot;+cFileNameRep+&quot;.html&quot; \n    :SetProperty(&quot;PDFExport&quot;, &quot;FileName&quot;, cFileNamePdf)\n    :SetProperty(&quot;PDFExport&quot;, &quot;EmbeddedFonts&quot;, .t.)\n    :SetProperty(&quot;PDFExport&quot;, &quot;PrintOptimized&quot;, .t.)\n    :SetProperty(&quot;PDFExport&quot;, &quot;Creator&quot;, &quot;Sistema Manta (Nikosoft)&quot;)\n    :SetProperty(&quot;PDFExport&quot;, &quot;OpenAfterExport&quot;, .f.)\n    :SetProperty(&quot;PDFExport&quot;, &quot;ShowDialog&quot;,.f.)\n    :PrepareReport()\n    :DoExport(&quot;PDFExport&quot;)\n//  :SetProperty(&quot;MailExport&quot;,&quot;ShowDialog&quot;,.f.)\n    :SetProperty(&quot;HTMLExport&quot;, &quot;FileName&quot;, cFileNameHtml)\n    :SetProperty(&quot;HTMLExport&quot;, &quot;OpenAfterExport&quot;, .f.)\n    :SetProperty(&quot;HTMLExport&quot;, &quot;ShowDialog&quot;,.f.)\n    :PrepareReport()\n    :DoExport(&quot;HTMLExport&quot;)\n    cHtm := memoread( cFileNameHtml )\n    cDirEm := &quot;nmartinez@coremar.com&quot;+Space( 500 )\n    if MsgGet(&quot;Correos&quot;,&quot;Emails :&quot;,@cDirEm )\n         cS :=  :SendMail( &quot;mail.coremar.com&quot;,25,&quot;&quot;,&quot;&quot;,&quot;maniobras@coremar.com&quot;,cDirEm,;\n		                           cSubjectPdf,&quot;Grupo Coremar&quot;,&quot;Envio de Informe Automatico de Maniobras&quot;,;\n											cFileNamePdf+CHR(13)+CHR(10)+cFileNameHtml )\n		   If ! empty( cS )\n		     msginfo( cS )\n		   Else\n		     Msginfo(&quot;Correo enviado&quot; )\n		  Endif	\n    Endif   \n    :ClearDataSets()\n    :DestroyFr()\n  end with\nReturn\n\n//--------------------------------------------------------------------------------//\n\nMethod EnviaReporte( ReportID ) CLASS TGesRep\n\n   oQryGes := oServer:Query( &quot;Select * From reportes order by ID,reporte&quot; )\n   oQryCons:= oServer:Query( &quot;Select * From ReportQuerys where reportid = &quot;+ ClipValue2SQL( oQryGes:id ) )\n   oTGRep  := oQryGes:GetRowObj()\n\nReturn\n\n//--------------------------------------------------------------------------------//\n\nMethod MuestraReporte( ReportID ) CLASS TGesRep\n\n   oQryGes := oServer:Query( &quot;Select * From reportes where id = &quot;+ClipValue2SQL( ReportID ) )\n   oQryCons:= oServer:Query( &quot;Select * From ReportQuerys where reportid = &quot;+ ClipValue2SQL( oQryGes:id ) )\n   oTGRep  := oQryGes:GetRowObj()\n   \n   Disenareporte(oTgRep,.t.)\n\nReturn\n\n//---------------------------------------------------------------------------------//\n\nStatic FUNCTION ShowError( oError )\nLocal cTextError\n\n  cTextError :=  &quot; Descripción  : &quot; + oError:Description+CRLF+;\n                 &quot; SubSystem    : &quot; + oError:SubSystem+CRLF+;\n                 &quot; Error Number : &quot; + Str( oError:SubCode )+CRLF+;\n                 &quot; Severity     : &quot; + Str( oError:Severity )+CRLF\n   \n   MsgInfo( cTextError, &quot;SQL Error&quot; )\n   \nRETURN \n\n//--------------------------------------------------------------//\n\nFUNCTION Sql_Report( cReport, cSql )\nLOCAL oAlias\n\n  SET DATE FORMAT &quot;yyyy-mm-dd&quot;\n\n  cSql:=PROCESA_SQL( cSql )\n\n  ??? cSql\n\n  IF AT(&quot;SELECT&quot;,upper(cSql))&gt;0 .AND. AT(&quot;;&quot;,cSql)=0\n\n	TRY\n       oAlias := oServer:Query( cSql )\n\n		 IF oAlias:Lastrec() &gt; 0\n\n           lOk:=.t.\n\n			  oAlias:Gotop()\n           reporte(oAlias,cReport)\n\n       ELSE\n\n           MsgInfo(&quot;No Se encontraron registros&quot;)\n\n       ENDIF\n\n   CATCH oErr\n\n      ShowError( oErr )\n\n	END\n\n  ELSE\n\n      MsgInfo(&quot;No hay una sentencia SQL Valida&quot;)\n\n  ENDIF\n\n  SET DATE ANSI\n\nreturn nil\n\n//-------------------------------------------------------------//\n\nfunction Reporte( oAlias, cReport)\n\n   local oRpt\n   local n,oFont1,oFont2\n\n   DEFAULT cReport := &quot;Reporte&quot;\n\n\n   DEFINE FONT oFont1 NAME &quot;COURIER NEW&quot; SIZE 0,-8\n   DEFINE FONT oFont2 NAME &quot;COURIER NEW&quot; SIZE 0,-8 BOLD\n\n   REPORT oRpt TITLE &quot;Reporte: &quot; + cReport ;\n      HEADER &quot;Fecha: &quot; + DToC( Date() ) + &quot;, Hora: &quot; + Time() ;\n      FOOTER &quot;Pagina: &quot; + Str( oRpt:nPage, 3 ) ;\n      FONT oFont1,oFont2 ;\n      CAPTION &quot;Sistema de Informes&quot; ;\n      PREVIEW\n\n\n      if Empty( oRpt ) .or. oRpt:oDevice:hDC == 0\n         return nil\n      endif\n\n      oRpt:margin(1,1,2)\n      oRpt:margin(1,2,2)\n\n      for n = 1 to oAlias:FCount()\n\n         oRpt:AddColumn( TrColumn():New( { FInfo1( oAlias, n  ) },,;\n                                         { FInfo2( oAlias, n ) },, iif(valtype( FInfo2( oAlias, n ) ) == &quot;D&quot;,{&quot;@D&quot;},;\n													                            iif(valtype( FInfo2( oAlias, n ) ) == &quot;N&quot;,{&quot;@Z 999,999,999&quot;},;\n																						                                           {&quot;@X&quot; } ) ) ,,,,,,,, oRpt ) )\n      next\n\n   ENDREPORT\n\n	oRpt:bSkip := {|| oAlias:Skip() }\n\n   ACTIVATE REPORT oRpt while ! oAlias:Eof()\n\n	oAlias:Gotop()\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\nstatic function FInfo1( oAlias, n )\nreturn { || upper( oAlias:FieldName( n ) ) }\n\nstatic function FInfo2( oAlias, n )\nreturn { ||  iif(empty( oAlias:FieldGet( n ) ),&quot; &quot;,oAlias:FieldGet( n ) ) }\n\n//-------------------------------------------------------------------------------//\n \nfunction mysqlfields( oQry )\nLocal clField := &quot;&quot; \n\n    nLen := oQry:Fcount()\n\n    for x := 1 to oQry:Fcount()\n    \n       cLfield := cLfield + oQry:FieldName( x ) + iif( x &lt; nLen ,&quot;;&quot;,&quot;&quot; )\n    Next\n	 \nReturn cLfield	    \n\n\n\n\n[/code]'),(386,1231,22105,3,1313078103,'Re: Mediator RDD','I use it for seven years with clipper &amp; xharbour, Mediator is good but quite expensive.'),(387,2220,0,3,1313109857,'MouseMove in ListBox','Boa Noite a todos,\n\ncomo faço para que, quando passar o mouse sobre uma linha do ListBox, mostrar onde o mouse está.\n\npor ex.: tenho um listbox com varias linhas e várias colunas.\n\na coluna 1 é o codigo do banco e a coluna 2 é o codigo da agencia bancária..\n\nquando passar o mouse na linha 1, eu quero mostrar o nome do banco e da agencia...\n\n[ sem presionar qualquer tecla ] só movendo o mouse por cima da linha, aciono uma rotina que irá me mostrar o que \npreciso...\n\n\nObrigado a todos...'),(390,249,22244,6,1314253399,'Re: ¿ Como valorar nuestro trabajo?','Saludos\n\nEs un tema bastante delicado, pero dare mi perspesctiva a &quot;media&quot;.\nDeje de hacer sistemas de gestion por esa razon, no son valorados correctamente por el cliente final... siempre quieren un ferrari y piden una patineta\nPase a otro nivel, hacer herramientas al programador, muchos de los usuarios saben que no cobro dinero pero estoy abierto a las donaciones, pero tambien es cierto, el dinero no lo tienen los programadores sino los usuarios finales (toda una &quot;referencia circular&quot;)\nPase al siguienet nivel.. realizar y/o contribuir con herramientas libres con la idea de conseguir mas clientes potenciales para el soporte tecnico, pero se acumulo mas de lo mismo, todos los programadores lo quieren todo listo y gratis, llamese gratis diferente a libre, pues por libre hay que contribuir y gratis (algo que pocos quieren hacer, aprovecho la oportunidad de agradecer a Rafa Carmona) simplemnte es aceptar lo que hay sin reclamar o criticar.\nPor tal razon deje de vivir de la programacion y dedicarme a otros negocios e inversiones y dejar a los usuarios (programadores) con sus conciencias y donar si quieren y yo hacerles trabajo si puedo, trato de aportar lo mayor posible en el foro y a fivetech\nNo hay adjeticos y/o palabras que expesen mi gratitud hacia fivetech y/o Antonio Linares por las oportunidades brindadas, mi contribucion hacia la comunidad es y seguira siendo libre'),(391,2221,0,3,1314673465,'sqlite3','some body have made some test with sqlite3, last week i tried with hbsqlit3 and harbour3 but when i use a table with dates field send me a error, winrdd could work with sqlite3.\n\nregards.\nfernando'),(394,1993,0,3,1315383832,'BCC64 Released','Those who want to try newest [b]Borland Compiler[/b] version [b]6.4[/b] can download from here [url]http://www.mediafire.com/download.php?0zz35jwryjbz47w[/url]\nNo much difference from the previous versions IMO, but I feel it a bit faster  :D\nPlease take note however, that the packed command line are for (x)Harbour programming purposes only.'),(395,413,22368,6,1315852833,'Re: xBrowse ayuda','Gracias va perfecto. \n\nIntento pasar el ejemplo que hay'),(396,1289,0,6,1316275731,'Reaultados de busquedas tipo Google','Hola soy un novato en la programacion y quiero saber si es posible lograr que al hacer una busqueda se vayan mostrando los registros que van cumpliendo con lo que se esta escribiendo para poder saber si ya existe algun regisro con el mismo nombre.\n\ngracias de antemano por la ayuda'),(397,1289,22346,6,1316279922,'Re: Combobox Busqueda Incremental','Apovecho tu post para hacerte una pregunta:\n\nsi quiero hacer una busqueda que me permita ir mostrando lo que encuentra por ejemplo google cuando vas escribiendo te va mostrando los resultados a manera de elegir, en realidad solo deseo ver si es posible hacer ese tipo de consulta\n\ngracias anticipadas\nTomas Hernandez'),(398,1173,22346,6,1316443010,'Re: Combobox Busqueda Incremental','Bueno cuano  funcionaba...\nTe ubicaba a medida que escribias en el elemento a que correspondia.\nLo que hace la busqueda de google es filtrar, y eso se puede hacer pero el problema es que los combos se cargan a memoria, y cuando las tablas crecen, dejan de ser amigables convirtiendose en largas  esperas :( ; aun el DBCOMBO trabaja subiendo los valores de la tabla a memoria, no se gestionan los registros  sino  arreglos de memoria.'),(399,1870,20444,4,1316594653,'Re: Big problem with harbour and WM 6 (6.5)','Hello.\nThanks for your feed back.\n\nand Yes I confirm problems on index files on WM6 and WM6.5.\nThe problem is on the indexes files.\nCan you test the sample (testseek) I posted?\n[url]http://forums.fivetechsupport.com/viewtopic.php?f=4&amp;t=21849#p116709[/url]\n\n\nRegards.\nPedro'),(400,974,0,3,1317242239,'.DOC to .HTML via fwh','help please!!!!!!\n\nSrs., Preciso converter um documento .doc (ms-word) para .html, usando somente comandos xharbou+fwh, alguem pode ajudar-me?  \n\nMuito obrigado.'),(401,37,22422,6,1317861709,'Re: Clase tpreview para Windows 7','Saludos JLL\nProbe compilar el RPreview que subiste y me arroja los siguientes errores :\n\nUnresolved External _HB_FUN_WinWordObj()\nUnresolved External _HB_FUN_FWSAVEPREVIEWTOPDF()\n\nLa pregunta es : Son clases propias o nuevas del FWH, pues yo trabajo con la version 10.02 y me bota esos errores, gracias'),(402,37,22422,6,1317861849,'Re: Clase tpreview para Windows 7','Saludos JLL\n\nMe esta botando error en 2 funciones, son tuyas o del FWH ?? Yo compilo con 10.02, gracias por tu atencion.\n\nUnresolved External _HB_FUN_WinWordObj()\nUnresolved External _HB_FUN_FWSAVEPREVIEWTOPDF()'),(403,37,22422,6,1317862123,'Re: Clase tpreview para Windows 7','Saludos, me bota error en 2 funciones (Yo uso FWH 10.02)\n\nWINWORDOBJ()\n\nFWSAVEPREVIEWTOPDF()\n\nGracias por tu atencion'),(404,1397,22592,6,1318095896,'Re: MSVC .and. Harbour3 .and. FWH','Hola Maestro Antonio,\n\nEL  Harbour 3.1 (build 17025) para Microsoft Visual C++ Express 2010: no tiene la libreia \nhbcomm.lib para harbour 2.1.0 64 bit y para harbour 3.1 bcc si estan,\ndonde se puede conseguir.\n\nel harbour 3.1 para 64 bit ya esta disponible, donde se puede descargar\n\n\n\ngracias'),(405,1949,0,3,1318212212,'CLAUSE IN ERROR WHEN GET FOLDER NE / FOLDEEX','hello everyone, I have the following situation in tfolder and tfolderex:\n\nuse the when clause to enable or disable gets the folder / folderex.\noperate normally without the folder when I change the variable value to false lBrowse.\ngets where they should be enabled and not enabled, refresh setoption already did before and do not refresh enables gets.\n\nwith normal folder when Fando FiveWin change the variable value to enable gets if I click on the second tab and then return to the first shows there apeans more so. tfolderex now not working right.\n\nDaniel or if someone there can help me thank you, \'cause do not want to get get: enable, so I created the variable lBrowse to be more practical and organized the code.\n\n\n#DEFINE AbaCadastro oFldEmpresa:aDialogs[01]\n\nlocal   lBrowse:=.T.\n\n\n   REDEFINE COMBOBOX oEstado VAR oDbfEmpresa:UF ITEMS aEstados ID 117 OF AbaCadastro;\n      WHEN !lBrowse UPDATE;'),(406,413,22614,3,1318433051,'Re: Metro class','Sorry ukoenig, where does this ICON com from or what are the names?'),(407,1289,22346,6,1318523579,'Re: Combobox Busqueda Incremental','[quote=&quot;Blessed&quot;]Hola Tomas\n\nBueno cuando funcionaba...\nTe ubicaba a medida que escribias en el elemento a que correspondia.\nLo que hace la busqueda de google es filtrar, y eso se puede hacer pero el problema es que los combos se cargan a memoria, y cuando las tablas crecen, dejan de ser amigables convirtiendose en largas  esperas :( ; aun el DBCOMBO trabaja subiendo los valores de la tabla a memoria, no se gestionan los registros  sino  arreglos de memoria.[/quote]\n\nGracias por tu respuesta, tendras alguna ejemplo? para poder revisarlo ?'),(409,999,22625,3,1318693915,'Re: ERROR USING TDABASE','gss200610 , \nthis code shows no error\n\n[code]Function main()\nlocal oDbf, nVlr:=0, nCnt:=0\nuse arquivo\nDATABASE oDbf\ndo while !eof()\n   nCnt++\n   if oDbf:valor &gt; nVlr\n      MsgInfo(nCnt, &quot; ERROR&quot;)\n   endif \n   oDbf:skip()\nenddo\n   MsgInfo(nCnt, &quot; END&quot;)\nreturn nil\n[/code]\nRegards, Euclides'),(410,37,22667,6,1318981613,'Re: FiveWin Web Interface','Saludos William\n\nYo lo tengo probado aqui con Chrome en Win7 de 64 Bits y si sale centrado el dialogo, igual que con IE9, la unica diferencia es el salto en el campo NOTES, ambos ocupan 2 lineas, Chrome solo pasa a la segunda el numero del registro, IE9 pasa la palabra &quot;Record&quot;  y el numero del registro.\n\nEn FireFox, el browse y los dialogos salen a la mitad de la primera parte de la pantalla, osea salen arriba, cortandose la mitad de los mismos y solo mostrando la segunda mitad pegada a la parte superior de la pantalla.\n\nEn Safari en un Iphone 3Gs aparece el dialogo de la opcion OPTIONS, pero no aparece ninguno de los menus desplegables de las opciones que los tienen habilitados'),(411,419,22741,3,1319699866,'Re: Save and Restore Dialog Position','Hello again,\n\nOK: I think I\'ve \'got it\'.\n\nI need to write an additional function that uses \'On Move oDlg:CoorsUpdate( )\', save the \'oDlg:nTop\' and \'oDlg:nLeft\' values to variables, and save the variables to a configuration file etc. etc. etc. and then use those saved variables when opening and activating the dialog with \'oDlg:Move( nTop, nLeft )\'.\n\nJust one question that I have:\n\nYou noted to use a .ini file.  Is there a particular function that creates (and writes to and reads from) a .ini file or is what you are describing simply the same as using \'Save To Something.Ini All Like oDlgCoors*\' (and then using \'Restore From Something.ini All Like oDlgCoors* Additive\'???\n\nRegards.\n\nDale.'),(412,1359,0,3,1320334665,'FWH 11.10 Error in get with folder','Using the tab key or tab ENTER you can not go to the next edit.\nI attach a small example.\n[code]\n#include &quot;FiveWin.Ch&quot;\n\nFUNCTION MAIN()\nLOCAL oWnd, oDlg, oFld, cVar1, cVar2\n\ncVar1 := SPACE(10)\ncVar2 := SPACE(15)\n\nDEFINE DIALOG oDlg TITLE &quot;Pruebas&quot; SIZE 400,300\n\n@ 0,0 FOLDER oFld PROMPT &quot;Folder 1&quot;, &quot;Folder 2&quot; OF oDlg\n\n#define PADRE1 oFld:aDialogs[1]\n\n@ 1,0 GET cVar1 VALID ( MsgInfo(&quot;Valid 1&quot;), .T. ) OF PADRE1\n@ 2,0 GET cVar2 VALID ( MsgInfo(&quot;Valid 2&quot;), .T. ) OF PADRE1\n\nACTIVATE DIALOG oDlg ;\n         CENTER\n\nRETURN NIL\n[/code]\n\nregards Maurizio'),(413,1392,0,3,1320408880,'COM Port redirection','Hi People!\n\nDo somebody work with Windows Terminal Server + FiveWin + COM Port redirection?\n\nI have edit  a litte Sample Programm from Enrico . That read the ComPort imput. On a Local Machine it works fine but on a Terminal Server I get no DATA. With a other Programm (no FW) it works. I hope someone can help me. \n\nHere the source:\n\n[code=fw]\n// Working sample of a simple ASCII terminal program - Developed by Enrico M. Giordano\n\n#include &quot;Fivewin.ch&quot; \n\nFUNCTION MAIN() \n\n    LOCAL oDlg \n\n    LOCAL oGet, cTxt := &quot;&quot; \n\n    LOCAL nCom \n\n    DEFINE DIALOG oDlg; \n           SIZE 500, 500; \n           TITLE &quot;Terminale&quot; \n\n    @ 0, 0 GET oGet VAR cTxt MEMO READONLY \n\n    oGet:bKeyDown = { | nKey | Tasti( nCom, nKey ) } \n\n    ACTIVATE DIALOG oDlg; \n             ON INIT ( oGet:AdjClient(),; \n                       nCom := APRICOM( oDlg, oGet ),; \n                       IF( nCom &lt; 0, oDlg:End(), ) ); \n             CENTER \n\n    IF nCom &gt;= 0; CLOSECOMM( nCom ); ENDIF \n\n    RETURN NIL \n\n\nSTATIC FUNCTION TASTI( nCom, nKey ) \n\n    SENDSTR( nCom, CHR( nKey ) ) \n\n    RETURN NIL \n\n\nSTATIC FUNCTION APRICOM( oDlg, oGet ) \n\n    LOCAL nCom, cDcb \n\n    BEGIN SEQUENCE \n        nCom = OPENCOMM( &quot;COM1&quot;, 2048, 128 ) \n\n        IF nCom &lt; 0 \n            ? &quot;Errore di apertura della porta di comunicazione.&quot; \n            BREAK \n        ENDIF \n\n        BUILDCOMMDCB( &quot;COM1:9600,N,8,1&quot;, @cDcb ) \n\n        IF !SETCOMMSTATE( nCom, cDcb ) \n            ? &quot;Errore di impostazione della porta di comunicazione.&quot; \n            BREAK \n        ENDIF \n\n        oDlg:bCommNotify = { | nCom | Connect( nCom, oGet ),; \n                                      EnableCommNotification( nCom, oDlg:hWnd, 1, -1 ) } \n\n        IF !ENABLECOMMNOTIFICATION( nCom, oDlg:hWnd, 1, -1 ) \n            ? &quot;Errore di abilitazione della notifica.&quot; \n            BREAK \n        ENDIF \n    RECOVER \n        nCom = -1 \n    END SEQUENCE \n\n    RETURN nCom \n\n\nSTATIC FUNCTION CONNECT( nCom, oGet ) \n\n    LOCAL cStr \n\n    ENABLECOMMNOTIFICATION( nCom, 0, 1, -1 ) \n\n    cStr = RECEIVESTR( nCom ) \n\n    cStr = STRTRAN( cStr, CHR( 13 ), &quot;&quot; ) \n    cStr = STRTRAN( cStr, CHR( 10 ), CRLF ) \n\n    oGet:Append( cStr ) \n\n    RETURN NIL \n\n\nSTATIC FUNCTION SENDSTR( nCom, cString ) \n\n    LOCAL nBytes := WRITECOMM( nCom, cString ) \n\n    RETURN nBytes = LEN( cString ) \n\n\nSTATIC FUNCTION RECEIVESTR( nCom ) \n\n    LOCAL cBuf := SPACE( 1000 ) \n\n    RETURN LEFT( cBuf, READCOMM( nCom, @cBuf ) )\n [/code]'),(415,2268,18829,6,1321470887,'Re: Para Antonio Linares.','Estimado\n\nUso la ocx &quot;ocxsam350.ocx&quot;\n\n[code=fw]      \n        Dim Fiscal As OCXSAM350Lib.Ocxsam350\n        Fiscal = New OCXSAM350Lib.Ocxsam350()\n\n        Dim Valor As String\n\n        Valor = Fiscal.init(2)\n [/code]\n\ny en &quot;Valor = Fiscal.init(2)&quot; me arroja el siguiente error:\n\nError catastrófico (Excepción de HRESULT: 0x8000FFFF (E_UNEXPECTED))\n\nLo he intentado todo pero aun así no obtengo la solución\nOjala me puedan ayudar.\n\nSaludos'),(416,1354,0,3,1322676004,'Problem using Transparent clause','My firest problem was not wrqaping says. This was fixed by using Daniel Garcia Gils Patch.obj.\nNow a new proble....ALL says and Gets are missing the last characet or number for example Harvey = Harve, 999,999 = 999,99...I need a fix. If any one has the source for Patch.obf I can try to see whats  causing the problem. Or any fix will do. \nThese issues only happen when using the transparent clause\n\nUsing Borland workshop.\nUsing Fixsays()'),(418,1361,0,6,1323049332,'.NET','Hola a todos\n\nAlguien podría decirme como podría leer una dll de .net o decirme si no se puede\n\nAtentamente \nJulio Ponce'),(419,1361,0,6,1323089622,'Dll','Hola a todos \nAlguien me puede ayudar se puede o no leer una dll de .net y ejecutar sus parámetros\n\nAtentamente \nJulio Ponce'),(420,1361,0,6,1323140930,'DLL','Hola a todos.\n\nAlguien podria decirme si puedo o no tomar datos o mandar parametros a una dll de .net.\n\nAtentamente\nJulio Ponce'),(421,267,0,3,1323981298,'how to compile RDDADS + ADS 10.0 + xHarbour 1.2.1','I am having trouble compiling RDDADS with xHarbour 1.2.1 (Rev 9411) and 10.0 ADS.\n\n[quote]MAKE Version 5.2  Copyright (c) 1987, 2000 Borland\nc:\\bcc582\\bin\\bcc32 -c -Ic:\\xHarbnv\\include ads1.c\nBorland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland\nads1.c:\nWarning W8075 ads1.c 2698: Suspicious pointer conversion in function adsCreate\nWarning W8075 ads1.c 3007: Suspicious pointer conversion in function adsOpen\nError E2024 ads1.c 3058: Cannot modify a const object in function adsOpen\nWarning W8075 ads1.c 3652: Suspicious pointer conversion in function adsOrderCreate\nWarning W8075 ads1.c 4663: Suspicious pointer conversion\nError E2451 ads1.c 4680: Undefined symbol \'DBENTRYP_VP\'\nError E2141 ads1.c 4680: Declaration syntax error\nError E2190 ads1.c 4743: Unexpected }\n*** 4 errors in Compile ***\n\n** error 1 ** deleting c:\\xharbnv\\contrib\\rdd_ads\\tmp\\ads1.obj[/quote]\n\nCan anyone help me?'),(422,924,0,20,1324061294,'testtcbr.prg: problemi per memorizzazione dati','Salve,\n\nqualcuno e\'  mai riuscito a fare funzionare il testtcbr.prg nei samples ?\n\nUna volta compilato, cliccando su &quot;Create&quot; non si riesce a modificare un solo record.\n\nHo provato anche a sostituire e modificare il file editcell.prg   ma non mi memorizza il dato modificato....\n\n...come cribbio si fa a farlo memorizzare  ?\n\nCiao e auguri a tutti.\n\nRomeo/Zingoni'),(426,281,0,11,1326262161,'hi all. redhat 9 + gcc + harbour compile error.','Hi all.\n\nhow to compile &amp; link \n\nlinux redhat 9 + gcc + xharbour 0.99\nxharbour-0.99.fc1.rpm install.\n\nsample test.prg\n\n//////////////////////////\nFUNC main()\n\n   ? &quot;test program...&quot;\n\nRETURN\n/////////////////////////////////////////////\n\n\n1. #harbour test.prg\n2. #gcc  test.o -otest.c -l /usr/include/xharbour \n\nerror .....\n\nundefined reference to \'hb_vm_Symbolinit_TEST\':\nundefined reference to \'hb_vm_ProcessSymbols\'\n.....\n.....\ncollect2: id returned 1 exit status\n\nhow to compile &amp; link ?.'),(427,1561,23271,3,1326374100,'Re: Behaviour of button class in FWH 11.12','Good day!\n\nThe reported problem that also happened with me!\n\nthank you'),(429,78,0,6,1326473514,'TOleauto + Excel  save???','Holas...\nEstoy abriendo una hoja excel con datos existentes, uso lo siguiente:\n[code]\noExcel := TOleAuto():New( &quot;Excel.Application&quot; )\nIF oExcel:hObj == 0\n  Alert( &quot;ERROR! Excel No Está Instaldo En Esta PC.&quot;,&quot;&quot;)\n  Return(.f.)\nEndIf\n\n\noExcel:Visible := .f. // .t. por si quieres ver la hoja abierta\noWorkbook := oExcel:WorkBooks:OPEN(cFile)\n\noHoja := oExcel:Get( &quot;ActiveSheet&quot; )\n\nnRows := oHoja:UsedRange:Rows:Count()\n\n\n\noHoja:Cells(19, 4):Value := cNombre\noHoja:Cells(19, 7):Value := cNumRuc\noHoja:Cells(21, 4):Value := cDirecc\noHoja:Cells(23, 4):Value := cRefere\n[/code]\n\n\n...luego no se como hacer para que la hoja excel se guarde con la informacion actualizada...\n\nAuxilio, Help......\nSalu2'),(431,228,23304,6,1326817985,'Re: dudas TDolphin','Buen día y perdonen mi ignorancia pero necesito salir de la duda\n\ntDolphin lo puedo usar con ADO?\n\nGracias'),(433,1361,23341,6,1327503353,'Re: Facturacion electronica mexico','Hola\n\nPor que o me envías como debes de hacer la facturación electrónica, ya tuve la oportunidad de hacer algo para una herramienta de México y realmente es bien sencillo si quieres enviarme la documentación técnica y si es a través de WebServices.\n\nY si es XML te daré un tip para no quebrarte la cabeza buscando una clase que genere XML.\n\n\nAtentamente\nJulio Rodrigo Ponce Hnestroza\nConsultor IT'),(436,868,23531,3,1329878699,'Re: Action execute when at bottom of xbrowse','Mr Marc\n\n[quote]\nIs it possible to execute an action when the last row is selected in xbrowse?\nI want to load a some data from the server and add them to the current file to improve network-speed.\n[/quote]\n\nI would suggest reading additional chunk not when the user reaches the last record read, but a bit earlier than that. Right time to read is when we are not left with enough rows to fill the full browse window.\n\nPlease consider this function:\nAssuming the variable &quot;nTotRecs&quot; is already assigned with the total number of records in the server database,\n[code]\nfunction ReadWhenNeeded( oBrw )\n\n   local lRead := .f.\n\n   \n\nreturn lRead\n[/code]'),(482,278,25372,6,1355755355,'Re: Para Juan Caro (Jcaro)','Hola Francisco :\n\nNo hay problemas, déjame buscarlos y los pongo aqui en el foro, para que los puedan utilizar cualquiera del grupo.\n\nSaludos,'),(485,355,0,1,1357656435,'cgetfile Windows7 64Bit crashes','I have a problem with cgetfile. Under XP the window to work properly under Windows 7 64 bit crashes the program.\nIn use (FiveWin 2.7) and (Alaska 1.9)\n\nA major customer has this problem and I have not found a solution.\n\nCarsten Graeber'),(486,2671,0,6,1357849043,'Error al compilar con TMySQL','He compilado un ejemplo que viene con la tmysql y me arroja los siguientes errores de compilación.\n\n┌────────────────────────────────────────────────────────────────────────────┐\n│ FiveWin for xHarbour 9.08 - Aug. 2009           xHarbour development power │▄\n│ (c) FiveTech, 1993-2009     for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7 │█\n└────────────────────────────────────────────────────────────────────────────┘█\n  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀\nCompiling...\nxHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406)\nCopyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/\nCompiling \'xcomunity.prg\' and generating preprocessed output to \'xcomunity.ppo\'.\n..\nLines 174, Functions/Procedures 6\nGenerating C source output to \'xcomunity.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nxcomunity.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'mysql_init\' referenced from C:\\FWH\\LIB\\MYSQL.LIB|mys\nql\nError: Unresolved external \'mysql_real_connect\' referenced from C:\\FWH\\LIB\\MYSQL\n.LIB|mysql\nError: Unresolved external \'mysql_close\' referenced from C:\\FWH\\LIB\\MYSQL.LIB|my\nsql\nError: Unresolved external \'mysql_select_db\' referenced from C:\\FWH\\LIB\\MYSQL.LI\nB|mysql\nError: Unresolved external \'mysql_query\' referenced from C:\\FWH\\LIB\\MYSQL.LIB|my\nsql\nError: Unresolved external \'mysql_store_result\' referenced from C:\\FWH\\LIB\\MYSQL\n.LIB|mysql\nError: Unresolved external \'mysql_fetch_field\' referenced from C:\\FWH\\LIB\\MYSQL.\nLIB|mysql\nError: Unresolved external \'mysql_field_count\' referenced from C:\\FWH\\LIB\\MYSQL.\nLIB|mysql\nError: Unresolved external \'mysql_list_fields\' referenced from C:\\FWH\\LIB\\MYSQL.\nLIB|mysql\nError: Unresolved external \'mysql_error\' referenced from C:\\FWH\\LIB\\MYSQL.LIB|my\nsql\nError: Unresolved external \'mysql_errno\' referenced from C:\\FWH\\LIB\\MYSQL.LIB|my\nsql\nError: Unresolved external \'mysql_list_dbs\' referenced from C:\\FWH\\LIB\\MYSQL.LIB\n|mysql\nError: Unresolved external \'mysql_list_tables\' referenced from C:\\FWH\\LIB\\MYSQL.\nLIB|mysql\nError: Unresolved external \'mysql_free_result\' referenced from C:\\FWH\\LIB\\MYSQL.\nLIB|mysql\nError: Unresolved external \'mysql_affected_rows\' referenced from C:\\FWH\\LIB\\MYSQ\nL.LIB|mysql\nError: Unresolved external \'mysql_get_host_info\' referenced from C:\\FWH\\LIB\\MYSQ\nL.LIB|mysql\nError: Unresolved external \'mysql_get_server_info\' referenced from C:\\FWH\\LIB\\MY\nSQL.LIB|mysql\nError: Unresolved external \'mysql_real_escape_string\' referenced from C:\\FWH\\LIB\n\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_escape_string\' referenced from C:\\FWH\\LIB\\MYSQ\nL.LIB|mysql\nError: Unresolved external \'mysql_ping\' referenced from C:\\FWH\\LIB\\MYSQL.LIB|mys\nql\nError: Unresolved external \'mysql_num_rows\' referenced from C:\\FWH\\LIB\\MYSQL.LIB\n|mysql\nError: Unresolved external \'mysql_data_seek\' referenced from C:\\FWH\\LIB\\MYSQL.LI\nB|mysql\nError: Unresolved external \'mysql_field_seek\' referenced from C:\\FWH\\LIB\\MYSQL.L\nIB|mysql\nError: Unresolved external \'mysql_num_fields\' referenced from C:\\FWH\\LIB\\MYSQL.L\nIB|mysql\nError: Unresolved external \'mysql_fetch_lengths\' referenced from C:\\FWH\\LIB\\MYSQ\nL.LIB|mysql\nError: Unresolved external \'mysql_fetch_row\' referenced from C:\\FWH\\LIB\\MYSQL.LI\nB|mysql\nError: Unresolved external \'_HB_FUN_ATNUM\' referenced from C:\\FWH\\LIB\\MYSQL.LIB|\ntmysql\n* Linking errors *\n\n\nMe falta algo?, qué sería?'),(488,2166,0,7,1359137656,'Compactar arquivo.','Olá Linhares, boa tarde.\n\n  Estou usando a FIVEPPC e estou precisando compactar e descompactar arquivos no formato zip.\n\n  Tentei usar a lib que você disponibilizou, mas ela só descompacta arquivos que ela mesma compactou, ou seja ela não tem padrão com os arquivos no formato zip.\n\n   Se puder me ajudar.\n\n   Leco \n   Brasil'),(489,135,0,3,1359562626,'help barcode EAN 128','Hi all,\ni need about print the EAN-128 barcode\nplease help me\nregards'),(490,1561,23395,3,1359807123,'Re: Objects that disappear within the control Group','Good day.\n\nReturning to the topic, since the problem still persists, with the help of a colleague he noted the following:\n\nDepending on the configuration of Windows, in my case 64-BIT WINDOWS SEVEN, the controls within the control group disappear, see the following screens that illustrate the problem:\n\n[url]http://www.salc.com.br/atual/windowsconfigok.jpg[/url]\n\n[url]http://www.salc.com.br/atual/telasistemaok.jpg[/url]\n\n[url]http://www.salc.com.br/atual/windowsconfigfail.jpg[/url]\n\n[url]http://www.salc.com.br/atual/telasistemafail.jpg[/url]\n\nI believe it is a clue to be found the reason for the problem.\n\nThank you.'),(438,1688,0,19,1331206115,'contar horas','pongo a disposición del foro una función útil en especial en aquellos sistemas donde haya que saber la cantidad de horas trabajadas desde hora de entrada hasta hora de salida.\nEspero de esta manera ayudar a quien lo necesite \n\n\n\n  #include &quot;Inipro.ch&quot;\n/*\n     Ejemplo de uso\n     total horas trabajadas desde las 10:32 hasta las 18:25\n     el llamado a la funcion quedaria de la siguiente forma\n     tHoras := CuentaHoras(&quot;10:32&quot;,&quot;18:25&quot;)\n     o tambien\n\n     H1 := &quot;10:32&quot;  hora de entrada \n     H2 := &quot;18:25&quot;  hora de salida\n\n     se contempla   entrada 22:01 pm y salida 06:05 am  \n     tHoras := CuentaHoras(h1,h2)\n              \n\n*/\n\n  Function Main()\n           Local mHoras := CuentaHoras(&quot;05:38&quot;,&quot;06:25&quot;)\n\n           ? mHoras\n\n  Return( NIL )\n\n\n\n//-----------------------------------------------------------------------//\n// Ing Bellucci Juan Carlos\n// juanca252@yahoo.com.ar\n// Escobar Buenos Aires Argentina\n// Parametros 2  ( &quot;00:00&quot; , &quot;00:00&quot;)\n// Retorna      total horas en formato &quot;00:00&quot;\n//-----------------------------------------------------------------------//\n  Function CuentaHoras( H1, H2 )\n           Local he \n           Local hs \n           Local nE \n           Local nS \n           Local tHora  := 0\n           Local eHora  \n           Local sHora  \n           Local eMinu  \n           Local sMinu  \n           Local dMinue := 0\n           Local dMinus := 0\n           Local hAcumu := 0\n           Local Cadena := &quot;&quot;\n           \n           If Empty(H1)   \n              Return( &quot;00:00&quot; )\n           EndIf\n           If Empty(H2)   \n              Return( &quot;00:00&quot; )\n           EndIf\n              \n           he := H1\n           hs := H2\n           nE := Val(SubStr(he,1,2))+ Val(SubStr(hE,4,2))/100\n           nS := Val(SubStr(hs,1,2))+ Val(SubStr(hs,4,2))/100\n         \n           eHora  := Val(SubStr(he,1,2))\n           sHora  := Val(SubStr(hs,1,2))\n           eMinu  := Val(SubStr(he,4,2))/100\n           sMinu  := Val(SubStr(hs,4,2))/100\n           \n           ////////////////////////////////////////\n           // Paso 1 Redondeo de Minutos         //\n           ////////////////////////////////////////\n           If eMinu &gt; sMinu\n              hAcumu := -1\n              dMinue := 0\n              Do While eMinu &lt; .60\n                 eMinu  := eMinu  + .01\n                 dMinue := dMinue + .01\n              EndDo\n           Else\n              If sMinu &gt;  eMinu \n                 sMinu := sMinu - eMinu\n              EndIf\n           EndIf\n           ////////////////////////////////////////\n           // Paso 2 Cuento Horas                //\n           ////////////////////////////////////////\n           If sHora &gt; eHora\n              tHora  := 0\n              Do While eHora &lt; sHora\n                 eHora  := eHora  + 1\n                 tHora  := tHora  + 1\n              EndDo\n           EndIf\n           //---- Si entro 22Hs pm del dia de hoy y sale ma¤ana 06 hs am\n           If eHora &gt; sHora\n              tHora  := 0\n              Do While eHora &lt; 24\n                 eHora  := eHora  + 1\n                 tHora  ++\n              EndDo\n              tHora := tHora + sHora\n             \n           EndIf\n           ////////////////////////////////////////\n           // Paso 3 Cuento el resto de Minutos  //\n           ////////////////////////////////////////\n           If sMinu &gt; 0\n              dMinus := 0\n              Do While sMinu &gt; dMinus\n                 dMinus := dMinus + .01\n              EndDo\n           EndIf\n           If tHora &gt; 0\n              tHora := tHora + hAcumu + dMinue + dMinus\n           EndIf\n\n           Cadena := SubStr(StrZero(tHora,5,2),1,2)+&quot;:&quot;+ SubStr(StrZero(tHora,5,2),4,2)\n             \n  Return( Cadena )\n//--------------------------------------------------------------------------//'),(439,978,23714,6,1332106374,'Re: Sobre el Diccionario de Datos','Saludos !\nTienes que añadir las tablas al diccionarios, esto lo puedes haer con el ARC o via codigo\nmediante la funcion AdsDDaddTable()\n\nejem\n\n  AdsDDaddTable( &quot;Table1&quot;, &quot;table1.adt&quot;, &quot;table1.adi&quot; ) Para tablas nativas\n  AdsDDaddTable( &quot;Table1&quot;, &quot;table1.dbf&quot;, &quot;table1.cdx&quot; ) Para DBFCDX\n\nen tu codigo despues de conectarte al diccionario, abres todas las tablas\n\n[code]\n*--\nFUNCTION CONECTACONADS()\n*--\nLOCAL cUser, cPass, nServ, cData\nLOCAL oErr\nLOCAL hConect\nLOCAL lRet := .F.\nLOCAL nFiles\nLOCAL cFileIni := &quot;.\\Conecta.ini&quot;\naFilesAdt := { &quot;Condowin&quot;, &quot;Conjunto&quot;, &quot;Propieta&quot;, &quot;Tablacon&quot;, &quot;Proveedo&quot;,;\n               &quot;Concepto&quot;, &quot;Deudagen&quot;, &quot;Emisione&quot;, &quot;Formatos&quot;, &quot;Historia&quot;,;\n               &quot;Movidiar&quot;, &quot;Operadia&quot;, &quot;Apartame&quot;, &quot;Codigos&quot;, &quot;Detamovi&quot;, ;\n               &quot;Contratos&quot;, &quot;Unidades&quot; }\n*--\ncUser := LOWER( ALLTRIM( NETNAME() ) )\ncPass := LOWER( ALLTRIM( NETNAME() ) )\nnServ := 7\ncData := &quot;\\\\SERVIDOR\\SERVERADS\\CONDOMINIOS\\CONDOMINIOS.ADD&quot;\nIF FILE( cFileIni )\n   cData := GetPvProfString( &quot;DATOS&quot;, &quot;CARPETA&quot;, cData, cFileIni )\nENDIF\n*--\nIF ADSCONNECT60( cData, nServ, cUser, cPass,,@hConect )\n   SET AUTOPEN ON\n   *--\n   FOR nFiles = 1 TO LEN( aFilesAdt )\n       DBUSEAREA( .T., RDDSETDEFAULT(), aFilesAdt[ nFiles ], aFilesAdt[ nFiles ], .T. )\n       ( aFilesAdt[ nFiles ] )-&gt;( ORDSETFOCUS( 1 ) )\n   NEXT\n   *--\n   lRet := .T.\nELSE\n   ADSGETLASTERROR( @oErr )\n   ADSSHOWERROR( oErr, FWDESCRIPTION )\nENDIF\n*--\nRETURN( lRet )\n*--\n*\n\n[/code]'),(440,45,23765,6,1333118954,'Re: Rutina numero a letras','Que buen Funcion  :D'),(442,1741,0,20,1334314630,'nuovo user','salve a tutti \nho letto molto su questo forum perche\' sono interessato allo sviluppo di applicativi per win ce\n\nPremesso che lavoro in clipper, alaska, visualdbsee.\n\nHo fatto alcune prove con harbour (3.0) per win ce e da quello che vedo in giro dovrebbe funzionare\nsolo che ho problemi nel settaggio dell\'ambiente di lavoro perche riesco a generare il classico hello.exe\nma sia su emulatori che su dispositivo reale non funziona, e sui vari forum ancora no trovo la soluzione del perche\'.\n\nComunque adesso vorrei provare fivewin for pocket pc, i miei dubbi sono :\n1) basta acquistare solo il pacchetto fwppc ?\n2) ho bisogno di altri tools ? tipo harbour gia\' installato, compilatore c presente ?  oppure il pacchetto fwppc comprende\n    il necessario ?.\n\nanche perche\' mi scoccia farmi trasformare una piccola procedura scritta in clipper ( che uso sui terminalini con dos )\nin visualbasic per win ce da terzi.\n\ngrazie per eventuali risposte.'),(443,223,0,6,1334346629,'TTreeView','Olá,\nPor que não funciona o SetCheck ??\n\n   oMenu[ 1 ]:= oTree:Add( &quot;Principal&quot; ) \n      oSubMenu[ 1 ]:= oMenu[ 1 ]:Add( &quot;Imprimir...&quot; )\n      oSubMenu[ 1 ]:SetCheck( .T. )  //Não Muda para .T.'),(445,1518,23942,3,1335239714,'Re: harbour unicows.dll','Bcc58 bcc6x will have the same problem\nbcc55 no error'),(448,1797,0,6,1337206010,'Autocode','Estimados,\n\nA pedido de Otto Atzwanger les traduzco un email que me envió con información de su producto AutoCode:'),(449,267,24218,3,1338947356,'Re: Help whith HRB Files','Thanks.'),(453,1533,24256,6,1339624817,'Re: BUTTONBAR Estatico','[quote=&quot;acuellar&quot;]Gracias Carlos.\n\nfuncionó perfecto.\n\nSaludos,\n\nAdhemar[/quote]'),(455,1005,24170,17,1340102900,'Re: FiveWin applications gallery','Espero no llegar tarde\n\nAñado un programa creado para el 112 Asturias con la colaboración del colegio de Químicos de Asturias y Leon\nTiene versión PDA y versión PC\n\nFue creado con el FWH 10.3\nEl enlace de descarga,\nFicha transportes peligrosos principado de asturias\nFicha de seguridad para el transporte de mercancías peligrosas\nhttp://www.112asturias.es/v_portal/apartados/apartado.asp?te=76\n\nHéctor Rodríguez\nllambion@llambion.com'),(456,974,24048,6,1340479911,'Re: Desarrollo FiveWeb','Sr. Antonio,\nPosso imaginar essa ferramenta sendo usada para desenvolver aplicativos para iphone, ipad, etc...  muito promissor, muito promissor mesmo... se seguir com a sintaxe próxima a do xbase/fivewin, promete dominar o mercado rapidamente, assim como por muitos anos o clipper reinou absoluto.  Não desista, rossiga e invista nela porque esta é a direção.  Ferramentas para desenvilvimento desktop estão com os dias contados, assim como o delphi, vb, etc.\n\nAbraços grande mestre.'),(457,2513,0,7,1340852115,'Harbour para compilar FW para Pocket PC','¿Cual es la ultima version estable de Harbour para compilar con FiveWin para Pocket PC?\n¿En donde se puede consegui el compilador?, ya que no la encuentro en el sitio.\n¿Que version del compilador es compatible con la ultima version de FiveWin para Pocket PC?\n¿Cuando se compra la ultima version de FiveWin para Pocket PC, tambien envian el compilador Harbour compatible?'),(458,2529,0,3,1342711972,'combine preview internal reports','Hi guys..\n\ni have a problem with print preview like this:\n\nin the case : some times i want to export a report form to MS-Excel files.\n\nthis method can be impementation if we create a stand alone procedure with output to MS-Excel or MS-Words file.\n\nbut, how can i do if i want to display a report with a standard prosedure internal FWH ?\nbecouse i look in the preview mode, we can send a report just to MS-Word and PDF file.'),(459,228,24474,6,1342972205,'Re: Cómo armar Trees en catalogo de cuentas...','creo q esto es lo que necesitas\n\nhttp://bielsys.blogspot.com/2008/01/treeview-con-xbrowse.html\n\nsaludos'),(460,228,24474,6,1342972263,'Re: Cómo armar Trees en catalogo de cuentas...','creo q es lo q necesitas\n\nhttp://bielsys.blogspot.com/2008/01/treeview-con-xbrowse.html'),(461,1288,24374,3,1343515175,'Re: FiveWin for QT','congratulations, this is the future since it is the harbor platform you will be able to have the same application for different platforms, it will leave a Fivewin qt?'),(462,413,24413,3,1343723842,'Re: UESTUDIO','Found, changed stop after 3 errors in advanced options, I put 200. Now the problems comes from RC file: \n\n[code]--------------------Configuración: GOP - Release--------------------\nMicrosoft (R) Windows (R) Resource Compiler Version 6.1.7600.16385\nCopyright (C) Microsoft Corporation.  All rights reserved.\n\nG:\\POLICIA\\winpol\\GOP\\Prg\\tCalendar\\CALENDAR.RC(13) : error RC2104 : undefined keyword or key name: DS_MODALFRAME\nGOP.EXE - 1 error(es), 0 advertencia(s)\n[/code]'),(463,2538,0,6,1344363291,'Para antonio Linares','Un saludo a toda la comunidad, despues de unos 4 años fuera de este foro, he vuelto para programar nuevamente. Mi problema surge porque la última vez que adquir fivewin fue en el 2008, la versión 8.01 y no me vino los manuales actualizados, por otro lado el xharbour build 1.1.0, pero no trajo las bibliotecas (libs) de mysql y no tengo idea como crearlas.Solicito pues sus buenos oficios para que me ayuden a reintegrarme a este mundo de xharbour/Fivewin.'),(465,190,0,3,1344562571,'Today is Mr.Rao\'s Birthday','Dear Mr.Nageswara Rao,\n\nI Wish you many happy returns of the day\nand pray for your good health and cheerful \nlife.\n\n- Ramesh Babu P'),(466,267,24696,3,1345834247,'Re: Trying to use SAY + FONT with Escapement','Thanks,\n\nIt´s Work fine :)'),(467,2276,0,3,1346272505,'Ribbom','I am in need of the following:\n\n A Ribbom mounted with their proper tabs.\n\n How to change the User, also change the tab Ribbom, at runtime.\n\n ex:\n Xaba: = {&quot; A 1&quot;, &quot;A 2&quot;,&quot;A 3&quot;}\n\n Switched user.\n Xaba: = {&quot;A 1&quot;, &quot;A 3&quot;}\n\n And giving a refresh () in same Ribbom be reassembled.\n\n grateful'),(468,100,24742,6,1346464805,'Re: Lentidão xBrowse','Ola amigo\n\nAfera infelizmente a Xbrowse para muitos registros, realmente fica lenta, tenho uma TABELA em MYSQL que bera a casa dos 8 milhoes, com SQLRDD abre beleza e muito rápida como se fosse DBF, mais na XBROWSE esta tabela fica muiiiito lenta, optei por usar a WBROWSE.\n\nMais se você for analizar com calma a xBrowse tem muiiitos controles, ja a WBROWSE é muito simples os metodos dela.\n\nEspero ter ajudado'),(497,986,25981,3,1364909937,'Re: Lumia 920 Phone and Fivewin','friend,\n\nCould you show us how to get an application running in FWH Lumia920.\n\nthank you'),(471,2571,0,21,1349121534,'UTILIZAÇÃO DE UM PROGRAMA EM REDE','Pessoal, estou enfrentando um problema ao tentar ultilizar o meu programa em rede, tenho a seguinte tabela:\n\n\n[code]\nif Select(&quot;SEMPRE13&quot;) = 0\n		      Use \\&amp;tmae\\Sempre13 alia sempre13 new shared\n		      ?select(&quot;Sempre13&quot;)\n				IF NETERR() \n				   MsgInfo(&quot;Arquivo Não Disponível no Momento&quot; + CRLF + &quot;SEMPRE13&quot;,&quot;Tente Novamente&quot;)\n					Close Data\n					Return .F. \n            ENDIF\n		      *Set Index to Sempre13\n		   ENDIF [/code]\n\n\nAcontece que, eu tenho a pasta do programa geral em um servidor, até ai tudo ok, logo apos eu possuo um desktop onde eu utilizo esse programa( com a unidade mapeada) direto no servidor e roda tudo beleza, porem o q eu queria era utilizar mais de uma maquina, testei com um notebook e ele nao abriu a tabela, exibiu a mensagem, retornou .f. e fechou. \n\nComo resolvo?'),(472,1398,24925,6,1349130905,'Re: Reconocer puerta USB','Gracias Adhemar, voy a testar, parece tan simple que solo me resta pensar que a vezes para encontrar una solución empezamos por complicar las cosas.\n\nAbrazos, Daniel'),(474,2582,23419,3,1349198028,'Re: help upgrade FWH32','hola....\n\nme sigue dando este problema:\n\nError: Unresolved external \'_HB_FUN_LOG10\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|VALTOSTR\nError: Unresolved external \'_HB_FUN_FLOOR\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|VALTOSTR\n\nmuchas gracias\n\ndavid'),(475,819,24921,3,1349717371,'Re: Harbour being ported to Windows 8 WinRT','Hi Guys!\n\nWe are happy of the result of our testing of our POS  on Windows 8.\n\nBut the posibiity of Harbour and FW RT is more exiciting.\n\nThe C/C++ approach for Harbour made by Anotnio realy works.\n\nMy congratulations to Harbour and FW team!\n\nThis can be an opportunity for Harbour to attract new generations of programmers.  \n\nCheers!\n\nJose'),(477,986,0,4,1353547401,'FWPPC RT Windows 8','There is already a preview to have the first version of FiveWin RT (Windows phone 8)\n?\nI have clients who are questioning me for not finding more mobile with windows mobile.\nIf you can take a position when we have the version, would greatly appreciate it\nthank you\nCleber'),(478,372,0,3,1353853523,'Chinese for FWH2.7','Hi,\n\nI have seen some previous postings about being able to type chinese characters, but is there already a good solution? (for getting, saving in a DB and printing)\n\nRegards,\n\nJohn.'),(479,147,0,6,1354198293,'Posicionar DLG en Window','Estimados;\nsupongo que este tema es &quot;viejito&quot;, pero hace idas que no doy con la solución\nMi aplicación arranca en una Ventana con RibbonBar; debajo de la cual pretendo que se abra un Dialog hecho desde recurso.\nEl punto es hubicarlo en la ventana para distintos tipos de resolución\nPara ello intente hubicarlo de la siguiente manera:\n[code]// Pantalla\nsnSCRANCHO  GetSysMetrics( 0 )\nsnSCRALTO     GetSysMetrics( 1 )\n[/code]'),(491,1637,25651,6,1360813450,'Re: generar doc. en word','Si no es importante la extension, es decir, si lo que deseas es que lo habra Word, entonces puedes usar RTF\n\nSimple, generas un template del contrato y donde van los datos del empleado, pones etiqueas, Despues lo grabas como RTF\nen tu prg, abres el RTF con memoread(), remplazas las etiquetas con los datos de tu tabla y grabas dicho TXT en un archivo con \nextension RTF, y listo, tienes un Documento \n\nEjemplo del template.rtf\n\n--------\nContrato que celebra la empresa Jobb-isoft y el empleado ##nombre##, con direccion en ##direccion##, ciudad ##ciudad##....\n--------\n\n\nLuego en tu app.\n\ncTxt := memoread( &quot;template.rtfc&quot;)\ncTxt += strtran( cTXT, &quot;#nombre##\',&quot;Pedro Paramo&quot;)\ncTxt += strtran( cTxt, &quot;#direccion##&quot;,&quot;Conocida&quot;)\n\nmemowrit( &quot;Contrato de Pedro.rtf&quot;,cTXT)\n\nHTH\nOsvaldo Ramirez'),(492,1005,25661,6,1361183543,'Re: Existe Clase para dibujar?','He estado buscando y la clase canvas no la encuentro. Alguien la tiene??'),(493,2588,0,6,1361284051,'oReport:ToExcel() somente cabeçalho','Bom dia\n\nEstou utilizando o método ToExcel, mas quando visualizo a planilha somenete é feito o cabeçalho, os dados não são colocados na planilha.\n\nO relatório está certo, apresenta todos os dados de forma correta.\n\nAtt\nJoão Bosco'),(494,471,25712,6,1361826266,'Re: Net use lpt1 no funciona con windows 8','Gracias por la ayuda\n\n\nEsa funcion es de xharbour \n\nSaludos'),(495,159,0,3,1361926325,'FWH Utf8 ?','I would like to ask, when to launch \'FIVEWIN\' for \'UTF-8\' version? or no any plain?'),(496,1749,0,3,1364229527,'multithreading','I linked my project using hbvmmt.lib and cw32mt.lib but I get the following error:\n\nunresolved external: \'_HB_FUN_THREAD\'\n\nPlease help...'),(500,2764,0,6,1365538468,'crystal report con mysql','saludos amigos del foro, tengo la siguiente duda;\ncomo hago para cambiar en el momento de la ejecución la tablas de reportes de cristal report  con query mysql.\n\noCRApp := CreateObject(&quot;CrystalRuntime.Application.11&quot;)\noCrp := oCRApp:OpenReport(&quot;c:\\dpxfac\\exe\\report2.rpt&quot;)\n oCrp:FormulaFields:GetItemByName( \'DARWIN\' ):Text( &quot; {invent_productos_sudatos.empresa_id}+3555 &quot; )\n oCrp:RecordSelectionFormula( &quot;{invent_productos_sudatos.empresa_id} = &quot;+ClipValue2SQL( nalmacen)+&quot; &quot;)\n \n DEFINE Window oVentHija MDICHILD Title &quot;prueba de crystal&quot; OF oDatos:oWndPPAL\noActiveX := TActiveX():New( oVentHija, &quot;CrystalReports.ActivexReportViewer&quot; )\noVentHija:oClient := oActiveX\noVentHija:cTitle( &quot;Título de la ventana&quot; )\noActivex:SetProp( &quot;ReportSource&quot;,  oCrp )\noActiveX:SetProp( &quot;EnableStopButton&quot;,     1  )\noActiveX:SetProp( &quot;EnableAnimationCtrl&quot;,  1  )\noActiveX:SetProp( &quot;EnableCloseButton&quot;,    1  )\noActiveX:SetProp( &quot;EnableExportButton&quot;,   1  )\noActiveX:SetProp( &quot;EnablePopupMenu&quot;,      1  )\noActiveX:bOnEvent = { | event, aParams | EventInfo( event, aParams, oCrp, oActivex  ) }\n\n\n\nel reportes en cristal los estoy conectando vía ODBC  de esta manera.\n[url=http://imageshack.us/photo/my-images/202/datasource.png/][img]http://img202.imageshack.us/img202/2765/datasource.png[/img][/url]\n\nUploaded with [url=http://imageshack.us]ImageShack.us[/url]'),(501,1977,26095,3,1366241709,'Re: hbmk2 errors','Hi, Antonio'),(502,400,0,3,1366642531,'Say Transparent...problems - ( Gradient Partial )','In recent versions, there are problems of Transparency, using the Function GradientFill(...).\n\nThere is another type of solution?\n\nWe would like to continue using Gradient partial screen!!!\n\n[img]http://img33.imageshack.us/img33/1391/grad1d.jpg[/img]\n\n[img]http://img803.imageshack.us/img803/6879/grad2n.jpg[/img]\n\n[code=fw]\n#include &quot;fivewin.ch&quot;\n\n********************************************************************************\nfunction Test_Gradient_Partial()\n********************************************************************************  \n  local aGrad1 := { { 0.50, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) }, ;\n                    { 0.50, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } }\n  local aGrad2 := { { 1, nRGB( 100, 200, 100 ), nRGB( 255, 230, 200 ) } }\n  local oDlg, oFontA12B\n  \n  DEFINE FONT oFontA12B NAME &quot;Arial&quot; SIZE 0,-12 BOLD ITALIC \n  DEFINE DIALOG oDlg TITLE &quot;Test Gradient Partial&quot;\n                oDlg:oFont        := oFontA12B\n                oDlg:lTransparent := .T.                    \n                oDlg:nTop         := 0\n                oDlg:nLeft        := 0\n                oDlg:nBottom      := 286\n                oDlg:nRight       := 307\n                     oDlg:nStyle       := nOR( DS_MODALFRAME, DS_SYSMODAL, WS_POPUP, WS_CAPTION, WS_SYSMENU )                    \n                     oDlg:SetColor( , nRGB( 255, 255, 25 ) )\n     \n    @ 08, 04 SAY oSay PROMPT &quot;GRADIENT PARTIAL TOP - GradientFill(...)&quot; OF oDlg SIZE 145, 10 PIXEL  TRANSPARENT update\n    @ 70, 04 SAY oSay VAR FWVERSION OF oDlg SIZE 145, 10 PIXEL  TRANSPARENT update\n    @ 82, 04 SAY oSay PROMPT &quot;oDlg:SetColor( , nRGB( 255, 255, 25 ) )&quot; OF oDlg SIZE 145, 10 PIXEL  TRANSPARENT update\n     @ 130, 04 SAY oSay PROMPT &quot;GRADIENT PARTIAL BOTTOM - GradientFill(...)&quot; OF oDlg SIZE 145, 10 PIXEL  TRANSPARENT update\n    \n  ACTIVATE DIALOG oDlg CENTERED ;\n           ON Paint ( GradientFill( oDlg:hDC, 0, 0, oDlg:nHeight/5, oDlg:nWidth, aGrad1 ),;\n                         GradientFill( oDlg:hDC, oDlg:nBottom-40, 0, oDlg:nHeight, oDlg:nWidth, aGrad2 ) )\n  \nreturn nil\n [/code]\n\nRegards, Ale SB'),(503,2764,26166,6,1367047511,'Re: RIBBON con imagenes PNG (SOLUCIONADO)','Saludos Falto una Linea en la clases:\npara que se vean bien los bmp.\n\nMETHOD LoadBitmaps( cName ) CLASS TRBtn\n\n   local aBmpPal\n\n   if ! Empty( cName )\n\n\n      if ! File( cName )\n         aBmpPal = PalBmpLoad( cName )\n         ::hBitmap1  = aBmpPal[ 1 ]\n         ::hPalette1 = aBmpPal[ 2 ]\n         ::HasAlpha( ::hBitmap1 )\n      else\n         ::cName = cName\n            if upper(right(cName,3))=&quot;PNG&quot;\n                ::hBitmap1  = FWOpenPngFile( cName )\n                ::hPalette1 = 0\n                ::HasAlpha( ::hBitmap1 )\n            else\n               aBmpPal     = PalBmpRead( ::GetDC(), cName )\n               ::hBitmap1  = aBmpPal[ 1 ]\n               ::hPalette1 = aBmpPal[ 2 ]\n               [size=150]::HasAlpha( ::hBitmap1 ) // esta es la linea[/size]\n\n               ::ReleaseDC()\n            endif\n      endif\n   endif\n\n\n   if ! Empty( ::hBitmap1 )\n      PalBmpNew( ::hWnd, ::hBitmap1, ::hPalette1 )\n   endif\n\nreturn nil'),(504,517,26154,6,1367448750,'Re: FiveWeb y Dolphin juntos!','Antonio Linares amigo, lo que me pregunto es una fecha, o cuando se dará a conocer la versión comercial! Sé que ustedes están haciendo cambios desde 2010, pero si no tenemos una fecha en la oscuridad. INSIST Cuál es la fecha?'),(505,450,26199,6,1367947225,'Re: SETNEWTIME() no funciona en Windows 7?','up'),(506,294,26377,6,1369314840,'Re: Error con ADO y XBrowse en recurso','La solucion estaba en el foro!\n[code]  // Defino el dialogo tomado del recurso ABMCAJA\n   DEFINE WINDOW oWnd1 MDICHILD TITLE &quot;RESULTADO DE LA CONSULTA&quot; ;\n          OF oWnd NOZOOM ICON oIco\n         DEFINE BUTTONBAR oBar  SIZE 60,60 OF oWnd1 2010\n         DEFINE BUTTON RESOURCE &quot;EXCE&quot; OF oBar ;\n            TOOLTIP &quot;Exportar a Excel&quot; ;\n            ACTION oBrw:ToExcel() ;\n            PROMPT &quot;Exporta&quot; TOP\n         DEFINE BUTTON RESOURCE &quot;IMPR&quot; OF oBar ;\n            TOOLTIP &quot;Imprimir Planilla&quot;  ;\n            ACTION oBrw:Report(&quot;Reporte&quot;,.T.,.F.);\n            PROMPT &quot;Reporte&quot; TOP\n         // Este boton cierra la aplicacion\n         DEFINE BUTTON RESOURCE &quot;SALE&quot; OF oBar;\n            TOOLTIP &quot;Cerrar Ventana&quot; ;\n            ACTION oWnd1:End();\n            PROMPT &quot;Cerrar&quot; TOP\n   DEFINE DIALOG oDlg RESOURCE &quot;ABMS&quot; OF oWnd1               \n   oWnd1:bGotFocus := { || oDlg:SetFocus}\n   oWnd1:bResized := { || Incrusta( oWnd1, oDlg, .t.) }\n   oBrw := TXBrowse():New( oDlg ) \n   oBrw:SetAdo(oRs,.T.,.T.)\n   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL \n   oBrw:nColDividerStyle    := LINESTYLE_BLACK \n   oBrw:nRowDividerStyle    := LINESTYLE_BLACK \n   oBrw:lColDividerComplete := .t. \n   oBrw:CreateFromResource(111)[/code]'),(507,1736,26394,3,1369482884,'Re: A xBrowse ASC-viewer ( DOWNLOAD )','Uwe,\n\nyou could try something like this:\n\n[code]FUNCTION TEST\nLOCAL nMaxiArray\nLOCAL aPrint		:= {}\nLOCAL I\nLOCAL cCHAR1 := &quot;ABCDEFGHIJKLMNOPQRSTUVWXYZ&quot;\nLOCAL cCHAR2 := &quot;abcdefghijklmnopqrstuvwxyzß&quot;\nLOCAL cCHAR3 := &quot;0123456789&quot;\nLOCAL cCHAR4 := \'^°!&quot;§$%&amp;/()=?\\´`@€+*~#\' + &quot;\'&quot; + \'&lt;&gt;|µ,;.:-_\'\nLOCAL aArray1 := {}\nLOCAL aArray2 := {}\nLOCAL aArray3 := {}\nLOCAL aArray4 := {}\n\nI := 1\nFOR I := 1 TO LEN( cCHAR1)\n	AADD(aArray1, { SUBSTR(cCHAR1,I,1), ASC(SUBSTR(cCHAR1,I,1)) })\nNEXT\nnMaxiArray := I\nI := 1\nFOR I := 1 TO LEN( cCHAR2)\n	AADD(aArray2, { SUBSTR(cCHAR2,I,1), ASC(SUBSTR(cCHAR2,I,1)) })\nNEXT\nnMaxiArray := max( nMaxiArray, I )\nI := 1\nFOR I := 1 TO LEN( cCHAR3)\n	AADD(aArray3, { SUBSTR(cCHAR3,I,1), ASC(SUBSTR(cCHAR3,I,1)) })\nNEXT\nnMaxiArray := max( nMaxiArray, I )\nI := 1\nFOR I := 1 TO LEN( cCHAR4)\n	AADD(aArray4, { SUBSTR(cCHAR4,I,1), ASC(SUBSTR(cCHAR4,I,1)) })\nNEXT\nnMaxiArray := max( nMaxiArray, I )\n\nFOR I := 1 TO nMaxiArray\n	IF I &lt;= len( aArray1 )\n		aAdd( aPrint, { aArray1[ I, 1 ], str( aArray1[ I, 2 ], 3 ) } )\n	ELSE\n		aAdd( aPrint, { space( 1 ), space( 4 ) } )\n	ENDIF\n	IF I &lt;= len( aArray2 )\n		aAdd( aTail( aPrint ), aArray2[ I, 1 ] )\n		aAdd( aTail( aPrint ), str( aArray2[ I, 2 ], 3 ) )\n	ELSE\n		aAdd( aTail( aPrint ), space( 1 ) )\n		aAdd( aTail( aPrint ), space( 4 ) )\n	ENDIF\n	IF I &lt;= len( aArray3 )\n		aAdd( aTail( aPrint ), aArray3[ I, 1 ] )\n		aAdd( aTail( aPrint ), str( aArray3[ I, 2 ], 3 ) )\n	ELSE\n		aAdd( aTail( aPrint ), space( 1 ) )\n		aAdd( aTail( aPrint ), space( 4 ) )\n	ENDIF\n	IF I &lt;= len( aArray4 )\n		aAdd( aTail( aPrint ), aArray4[ I, 1 ] )\n		aAdd( aTail( aPrint ), str( aArray4[ I, 2 ], 3 ) )\n	ELSE\n		aAdd( aTail( aPrint ), space( 1 ) )\n		aAdd( aTail( aPrint ), space( 4 ) )\n	ENDIF\nNEXT\nxbrowse( aPrint )\nRETURN NIL[/code]'),(508,2566,0,3,1372252920,'Debug Fivewin , dll','I have a doubt. To use the Debug Fivewin with xHarbour, wanted to achieve only open it in a part of the program, but always have the restriction of only open at the beginning of the program, how to do? :D'),(515,1313,0,6,1380221721,'TRIBBON Fix','Ao entrar no meu sistema, se o usuário ficasse apertando ALT+1 (repetidamente) acontecia o erro abaixo:\n\nfix:\n\nMETHOD RunAction( nKey, lControl ) CLASS TRibbonBar\nsubstituir:\nIf nKey &gt; 0 \npor:\nIf nKey &gt; 0 .and. ValType( ::cBufferAcc ) == \'C\'\n\n\nMETHOD ResetAcc() CLASS TRibbonBar\nadd:\n::aAcc = {}   \n\n\nerro:\nApplication\n===========\n   Path and name: C:\\getpdv\\ser\\getpdvr.exe (32 bits)\n   Size: ********* bytes\n   Time from start: 0 hours 0 mins 24 secs \n   Error occurred at: 24/09/13, 14:24:50\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = U   \n     [   2] = C   1\n\nStack Calls\n===========\n   Called from: .\\source\\classes\\TRIBBON.PRG =&gt; TRIBBONBAR:RUNACTION(1410)\n   Called from: .\\source\\classes\\TRIBBON.PRG =&gt; (b)TRIBBONBAR:KEYBMODE(1291)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; TWINDOW:KEYDOWN(2582)\n   Called from: .\\source\\classes\\CONTROL.PRG =&gt; TCONTROL:KEYDOWN(875)\n   Called from: .\\source\\classes\\TRIBBON.PRG =&gt; TRIBBONBAR:KEYDOWN(961)'),(510,1140,0,3,1372704202,'Fwh 13.05 Problemas com Brush','Bom dia a Todos\n \nEstou atualizando minha versão do Five e estou tendo problemas com o Brush\n \nEm todas as minhas dialogs eu utilizo minhas variaveis publicas q. sao carregadas a partir de um arquivo .ini\n \nneste caso do folder\n \nEu pego o conteudo de brush que ira conter o nome do arquivo que quero q. seja o brush\n oBrushPrinc  := GetPvProfString( \'Parametros\' , \'Brush\'      , \'\', oPub:wIniFile )\n E defino no modulo principal para usar nos outros\n DEFINE BRUSH oPub:oBrushS FILENAME oBrushPrinc\n\n  DEFINE DIALOG oDlg RESOURCE &quot;SV_CADGER&quot; \n                TITLE &quot;CADASTRO DE FORNECEDORES&quot;\n                FONT oWnd:oFont\n                ICON oPub:oIconeSv\n --&gt;           BRUSH oPub:oBrushS\n\n Tanto incluindo como tirando o TRANSPARENT a tela fica me mostrando tudo embolado com o conteudo q. esta abaixo no logo principal da tela\n\n Alguem sabe oq. fazer ?\n\n Caso eu carrege o objeto de brush na propria dialog funciona normalmente'),(511,2674,0,6,1374946373,'Problemas con Tone()','Porque en unas computadoras no suena el Tone()'),(512,154,25246,3,1376401168,'Re: Internet Date','Hi Stefan,\n\nthank you for your reply.\n\nI have found this mail: ssbbs@mail.zzz.com.tw on http://www4.zzz.com.tw/phpbb2, i send a mail and now we just have to wait ...'),(513,509,27111,6,1377952547,'Re: Impresión de LPT1 a USB','Hola:\nPrtWin de http://www.araisa.com funciona muy bien.\n\nSaludos.\n\nRicardo Patón'),(514,2885,27266,3,1379605944,'Re: rpreview class in FWH 13.08','I will try revised edition. Before I prepare a prg to send for test I wanted to say that my pc has windows vista Business and  office 2010. Is that ok?'),(516,105,27313,6,1380631672,'Re: DESCARGAR MYSQL Y INSTALARLO','MARIOG\n\nYo Probe MARIADB en un sistema grande que tengo en un supermercado, recupere directamente de un respaldo hecho en MYSQL y funciono sin ningun problema, extrañamente SOLO ALGUNOS select con muchos &quot;left join&quot; bajaron de 3 segundos a menos de 1, lo que encontre espectacular.\n\nEL unico problema fue que solo lo tenia en un Windows Server y no alcance a instalarlo en un LINUX como para dejarlo fijo, volvi a MYSQL en Linux.\nPero para la proxima instalacion, si o si, voy por MARIADB.\n\n(Se llama asi por su OTRA hija MAria, su hija mayor se llama MY  :wink:  )\n\nPD: el 1000% compatible con Mysql y con varias mejoras extras.. aqui una comparacion [url]https://mariadb.com/kb/en/mariadb-versus-mysql-features/[/url]'),(517,289,24707,3,1381091874,'RETURN  HBITMAP FOR IMAGE *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.','--------------------------- source -----------------1----------------------\n/*\nsource h2.h\n*****************************************************************************\n* INCLUDE HEADER FOR FUNCTION IMAGE_HBITMAP_CPP(char * File_Name);          *\n* WORKING WITH C\\C++                                                         * \n* BY  HATHAL 2012-10-02 http://WWW.LIVESYSTEM.NET &amp; LIVESYSTEM_NET@HOTMAIL.COM     *\n*****************************************************************************\n*/\n #ifdef __cplusplus\n extern &quot;C&quot; {\n #endif\n #if defined(__STDC__) || defined(__cplusplus)\n     extern  HBITMAP IMAGE_HBITMAP_CPP(char * File_Name);\n #else\n    extern   HBITMAP IMAGE_HBITMAP_CPP(char * File_Name);\n #endif\n #ifdef __cplusplus\n }\n #endif\n-------------------------------src 2 ---------------------------------------------\n/*\n*****************************************************************************\n* RETURN  HBITMAP FOR IMAGE *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.TIF *.WMF *\n* BY  HATHAL 2012-10-02 http://WWW.LIVESYSTEM.NET &amp; LIVESYSTEM_NET@HOTMAIL.COM     *\n*****************************************************************************\nHBITMAP.CPP\n*/\n#include &lt;windows.h&gt;\n#include &lt;stdio.h&gt;\n#include &lt;gdiplus.h&gt;\n#include &lt;winuser.h&gt;\n#include &lt;wingdi.h&gt;\n#include &lt;commctrl.h&gt;\n#include &lt;olectl.h&gt;\n#include &lt;stdlib.h&gt;\n#include &lt;malloc.h&gt;\n#include &lt;memory.h&gt;\n#include &lt;tchar.h&gt;\n#include &lt;shellapi.h&gt;\n#include &lt;commdlg.h&gt;\n#include &lt;shellapi.h&gt;\n#include &quot;h2.h&quot;\nstatic HBITMAP hbm; //  RETURN HBITMAP TO FIVEWIN \nusing namespace Gdiplus;\nHBITMAP IMAGE_HBITMAP_CPP(char * File_Name)\n{\n       WCHAR wchPath[MAX_PATH];\n     ZeroMemory(wchPath,MAX_PATH);\n MultiByteToWideChar(CP_ACP, 0,File_Name, -1,wchPath, MAX_PATH );\n     GdiplusStartupInput gdiplusStartupInput;\n   ULONG_PTR gdiplusToken;\n   GdiplusStartup(&amp;gdiplusToken, &amp;gdiplusStartupInput, NULL);\n    CLSID   encoderClsid;\n   Bitmap* pBitmap = Bitmap::FromFile(wchPath);\n    Sleep(20);\n   delete pBitmap;\n    GdiplusShutdown(gdiplusToken);\n    return hbm;\n}\n------------------------- src 3 ----------------------------------\n// I_HMM._F.C\n#include &lt;windows.h&gt;\n#include &lt;winuser.h&gt;\n#include &lt;wingdi.h&gt;\n#include &quot;hbapi.h&quot;\n#include &quot;hbvm.h&quot;\n#include &quot;hbstack.h&quot;\n#include &quot;hbapiitm.h&quot;\n#include &quot;commctrl.h&quot;\n#include &quot;olectl.h&quot;\n#include &lt;stdlib.h&gt;\n#include &lt;malloc.h&gt;\n#include &lt;memory.h&gt;\n#include &lt;tchar.h&gt;\n#include &lt;shellapi.h&gt;\n#include &lt;commdlg.h&gt;\n#include &quot;hbstack.h&quot;\n#include &quot;item.api&quot;\n#include &quot;hbpcode.h&quot; \n#include &quot;hbvmpub.h&quot;\n#include &lt;stdio.h&gt;\n#include &lt;shellapi.h&gt;\n#include &lt;commdlg.h&gt;\n#define IF(x,y,z) ((x)?(y):(z))\n#include &quot;hbinit.h&quot;\n#include &lt;vfw.h&gt;\n// ****************************\n #pragma comment(lib,&quot;F_HBM_W.lib&quot;) // LINK F_HBM_W.lib WITH I_HBM.LIB\n// *****************************\n       extern   HBITMAP IMAGE_HBITMAP_CPP(char * bFile_Name);\n      // ********************\n  HB_FUNC ( IMAGE_HBITMAP )\n {\n  hb_retnl ( (LONG) IMAGE_HBITMAP_CPP(hb_parc(1)));\n }\n ------------------------- src 4 ----------- F_HBM_W.DEF --------------------------\nLIBRARY     GDIPLUS\n\nEXPORTS\nGdipFree                       @225 ; GdipFree\nGdipCloneImage                 @50  ; GdipCloneImage\nGdipAlloc                      @34  ; GdipAlloc\nGdipDisposeImage               @143 ; GdipDisposeImage\nGdiplusStartup                 @609 ; GdiplusStartup\nGdipLoadImageFromFile          @419 ; GdipLoadImageFromFile\nGdipGetImageEncodersSize       @273 ; GdipGetImageEncodersSize\nGdipGetImageEncoders           @272 ; GdipGetImageEncoders\nGdiplusShutdown                @608 ; GdiplusShutdown\nGdipCreateBitmapFromFile       @66  ; GdipCreateBitmapFromFile\nGdipCreateHBITMAPFromBitmap    @87  ; GdipCreateHBITMAPFromBitmap\n------------------------- COMP.BAT -----------------------------------\nDEL *.OBJ\nDEL *.LIB\nbcc32 -M -c  -O2   -I%FWDIR%\\include -tW I_HBM_F.C\nbcc32 -M -c  -O2   -I%FWDIR%\\include -tW HBITMAP.cpp\nIMPLIB  F_HBM_W.LIB +  F_HBM_W.DEF\nTLIB I_HBM_F +I_HBM_F.OBJ +HBITMAP.OBJ\n--------------------------- TEST.PRG -----------------\n/*\nTEST.PRG\n*****************************************************************************\n* TESTING FOR VIEW IMAGE *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.TIF *.WMF    *\n* BY  HATHAL 2012-10-02 http://WWW.LIVESYSTEM.NET &amp; LIVESYSTEM_NET@HOTMAIL.COM     *\n*****************************************************************************\n*/\n#include &quot;FiveWin.ch&quot;\n#pragma BEGINDUMP\n// ********************************\n #pragma comment(lib,&quot;I_HBM_F.lib&quot;)\n #pragma ENDDUMP\n// ********************\nSTATIC ownd\n//----------------------------------------------------------------------------//\nFUNCTION main()\n   local oBar\n   local oIni\n   local cUnidad\n    DEFINE WINDOW ownd FROM 1, 1 TO 22, 75 ;\n      TITLE  &quot;Open image *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.TIF *.WMF&quot; MENU BuildMenu() ;\n      MDI\n   DEFINE BUTTONBAR oBar OF oWnd\n   DEFINE BUTTON FILENAME &quot;Open.bmp&quot; OF oBar ;\n      ACTION (OPEN_IMAGE()) MESSAGE &quot;Open image *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.TIF *.WMF&quot;\n   SET MESSAGE OF ownd TO FWVERSION CLOCK DATE KEYBOARD\n   ACTIVATE WINDOW ownd MAXIMIZED\nRETURN NIL\n//----------------------------------------------------------------------------//\nfunction BuildMenu()\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;&amp;Open&quot;\n      MENU\n         MENUITEM &quot;&amp;Open BITMAP&quot; ACTION (OPEN_IMAGE()) ;\n            MESSAGE OemToAnsi( &quot;Open image *.BMP *.EMF *.GIF *.ICO *.JPG *.PNG *.TIF *.WMF&quot; )\n      ENDMENU\n\n      MENUITEM &quot;&amp;Exit&quot; ACTION oWnd:End() MESSAGE &quot;Close Window&quot;\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction OPEN_IMAGE( )\n\n   local oWndBmp, oBar, oBmp, oIcon, oLupa\n   local oSay,oFont\n   local cBmpFile\n   cBmpFile:= cGetFile(    &quot;BITMAP   (*.bmp)| *.bmp|&quot; +  ;\n                           &quot;JPG (*.jpg)| *.jpg|&quot; +  ;\n                           &quot;GIF (*.GIF)| *.GIF|&quot; +  ;\n                           &quot;TIF (*.TIF)| *.TIF|&quot; +  ;\n                           &quot;ICO (*.ICO)| *.ICO|&quot; +  ;\n                           &quot;PNG (*.PNG)| *.PNG|&quot; +  ;\n                           &quot;EMF (*.EMF)| *.EMF|&quot; +  ;\n                           &quot;WMF (*.WMF)| *.WMF|&quot; ,&quot;Select ALL IMAGE&quot; )\n     if ! Empty( cBmpFile )\n      DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 5, 13\n\n\n      DEFINE WINDOW oWndBmp FROM 2,2 TO 25,50;\n         TITLE &quot;BITMAP &quot; + cBmpFile MDICHILD\n\n      DEFINE BUTTONBAR oBar OF oWndBmp\n      DEFINE BUTTON OF oBar FILENAME &quot;OPEN&quot; ;\n         ACTION (jpg(cBmpFile,obmp)) ;\n         MESSAGE &quot;ADJUST BITMAP ON WINDOW&quot;       \n \n      DEFINE BUTTON OF oBar FILENAME &quot;ZOOMOUT.bmp&quot; ;\n         ACTION AjustaZoom( oBmp ,&quot;S&quot;,oSay ) ;\n         MESSAGE &quot;ADJUST BITMAP ON WINDOW&quot;\n\n      DEFINE BUTTON OF oBar FILENAME &quot;..\\bitmaps\\DELWATCH.bmp&quot; ;\n         ACTION  AjustaZoom( oBmp ,&quot;A&quot;,oSay ) ;\n         MESSAGE &quot;+ ZOOM 10%&quot;\n\n      DEFINE BUTTON OF oBar FILENAME &quot;Font.bmp&quot; ;\n         ACTION AjustaZoom( oBmp ,&quot;R&quot;, oSay ) ;\n         MESSAGE &quot;- ZOOM 10%&quot;\n\n      DEFINE BUTTON OF oBar FILENAME &quot;Bitmap.bmp&quot; ;\n         ACTION ( oBmp:lStretch := .f. , oBmp:Reload(),;\n                  oBmp:Zoom( 1 ), AjustaZoom( oBmp,&quot;z&quot;,oSay ) ) ;\n         MESSAGE &quot;LOAD BITMAP&quot;\n\n      DEFINE BUTTON OF oBar FILENAME &quot;Report.bmp&quot; GROUP ;\n         ACTION imprimirBmp( cBmpFile, oBmp ) ;\n         MESSAGE &quot;PRINTER BITMAP&quot;\n\n      DEFINE BUTTON OF oBar FILENAME &quot;exit.bmp&quot; GROUP;\n         ACTION oWndBmp:End() ;\n         MESSAGE &quot;CLOSE BITMAP&quot;\n\n      @ 9, 210 SAY oSay PROMPT &quot;BITMAP ADJUST&quot; SIZE 200, 16 ;\n         PIXEL OF oBar FONT oFont\n\n      DEFINE CURSOR oLupa RESOURCE &quot;Search&quot;\n\n       @ 0, 0 BITMAP oBmp FILENAME &quot;OPEN&quot; SCROLL ADJUST OF oWndBmp ;\n         CURSOR oLupa ;\n         on left click (AjustaZoom(OBMP,&quot;A&quot;,oSay)) ;\n         on right click (AjustaZoom(OBMP,&quot;R&quot;,oSay))\n      oWndBmp:SetControl( OBMP )\n\n      ajustazoom(OBMP,&quot;z&quot;,oBar)\nobmp:HBITMAP:=IMAGE_HBITMAP(cBmpFile )\n      ACTIVATE WINDOW oWndBmp\n\n      oFont:End()\n\n   endif\n\nreturn oWndBmp\n\n\nfunction imprimirbmp(Bmp,oBmp)\nlocal oPrn\nlocal nZoom:=oBmp:Zoom()\nlocal anchura:=oBmp:nWidth()*nZoom\nlocal altura :=oBmp:nHeight()*nZoom\nPRINT oPrn NAME &quot;BITMAP&quot;\n   PAGE\n      oPrn:SayBitmap(0,0,bmp,anchura,altura)\n   ENDPAGE\nENDPRINT\nreturn nil\n\n\nFunction AjustaZoom(oBmp,cAccion,oSay)\nlocal nZoom:=oBmp:Zoom()\n\ndo case\n   case cAccion == &quot;S&quot;\n       oBmp:lStretch := !oBmp:lStretch\n       oBmp:ScrollAdjust()\n       oBmp:Refresh( .t. )\n   case cAccion == &quot;R&quot;\n       if nZoom*10&gt;1\n          oBmp:lStretch := .f.\n          nZoom:=nZoom-(0.10)\n          oBmp:Zoom(nZoom)\n          oBmp:Refresh()\n          oBmp:ScrollAdjust()\n       endif\n   case cAccion == &quot;A&quot;\n       oBmp:lStretch := .f.\n       nZoom:=nZoom+0.10\n       oBmp:Zoom(nZoom)\n       oBmp:Refresh()\n       oBmp:ScrollAdjust()\nendcase\nif oBmp:lStretch\n      oSay:SetText(Oemtoansi(&quot;BITMAP ADJUST&quot;))\nelse\n      oSay:SetText(Oemtoansi( &quot;ZOOM BITMAP...: &quot;+alltrim(str(nZoom*100,10,0))+&quot;%&quot;))\nendif\n\nreturn NIL\n\n//----------------------------------------------------------------------------//\n\nprocedure AppSys  // XBase++ requirement\n\nreturn\n\n//----------------------------------------------------------------------------//\nfunc jpg(cBmpFile2,obmp)\nLOCAL cBmpFile:= cGetFile(    &quot;BITMAP   (*.bmp)| *.bmp|&quot; +  ;\n                           &quot;JPG (*.jpg)| *.jpg|&quot; +  ;\n                           &quot;GIF (*.GIF)| *.GIF|&quot; +  ;\n                           &quot;TIF (*.TIF)| *.TIF|&quot; +  ;\n                           &quot;ICO (*.ICO)| *.ICO|&quot; +  ;\n                           &quot;PNG (*.PNG)| *.PNG|&quot; +  ;\n                           &quot;EMF (*.EMF)| *.EMF|&quot; +  ;\n                           &quot;WMF (*.WMF)| *.WMF|&quot; ,&quot;Select ALL IMAGE&quot; )\n     local hBitmap    :=IMAGE_HBITMAP(cBmpFile) \n    if hBitmap != 0\n      if oBmp:hBitmap != 0\n         PalBmpFree( oBmp:hBitmap, oBmp:hPalette )\n         oBmp:hBitmap  = 0\n         oBmp:hPalette = 0\n      endif\n      oBmp:hBitmap  = hBitmap\n      oBmp:hPalette = 0  // Where to get it from ?\n      PalBmpNew( oBmp:hWnd, hBitmap, 0 )\n      oBmp:ScrollAdjust()\n      oBmp:nX = 0\n      oBmp:nY = 0\n   endif\n--------------------------------------------------------------------------------------------------------------------\nI hope to be useful for all.\nI\'m working on the language C\\C++ ONLY .\n :D\nThata for all.\nHATHAL.'),(518,574,23823,6,1381335138,'Re: Como saber si procesador es de 32 o 64 bits','Creo dar con la respuesta, siempre va arrojar x86 si el programa nativo es a 32 bits, no importa si lo\nestes ejecutando en una maquina a 64 bits.\n\n[IMG]http://i40.tinypic.com/2w2kjo9.jpg[/IMG]\n\n\n\nLa pregunta es como hallar una función que haga la diferencia si es 32 o 64?'),(519,2460,27539,6,1383503060,'Re: Retorno del SqlArray()','Numeric\n\naEval( aSql, {|_1, _2| aSql[_2,1] := VAL(aSql[_2,1] } )\n\ndata\n\naEval( aSql, {|_1, _2| aSql[_2,1] := CTOD(aSql[_2,1] } )\n\n\nAbraços\n\nLuiz Fernando'),(521,147,0,6,1385598143,'TDolphin - Problemas en proceso de importar XLS','Gente;\nTengo una rutina que importa datos desde una hoja Excel.\nEl tema es que la rutina cubre mis expectativas al realizar el proceso cuando lo ejecuto en locahost.\nAhora bien, cuando lo hago al Servidor web, me salen los siguientes mensajes de error.\n[img]http://imageshack.com/scaled/medium/17/g2cy.jpg[/img]\neste, de arriba, sale en cada lectura de columna de la hoja excel (lee 10 columnas)\nProbe leyendo 200 renglones y bajando hasta 20, igualmente sale el error. La hoja tiene alrededor de 20000 filas\naunque, finalmente, se copian todas las filas leidas.\nSalvo cuando sale el mensaje de abajo\n[img]http://imageshack.com/scaled/medium/22/iywu.jpg[/img]\nEs un problema de mi codificación, o del proveedor del espacio?\n\nEse es mi codigo:\n[code=fw]   for each xItm in aXLSCols \n      nCol:= HB_EnumIndex()\n      nRow:= h1:nIni\n      // Cosmetica\n      aO[_Meter]:SetText( &quot;&quot; )\n      aO[_Meter]:Set( h1:nMeter:= 1)\n      aO[_Meter]:Refresh()\n\n      // Proceso\n      while nRow &lt;= (h1:nIni-1)+aO[_Meter]:nTotal      // Lee datos de la hoja\n         if nCol == _identif\n            aImpXLS[_identif][h1:nMeter]:= oHoja:Cells( nRow, nCol ):Value()\n         elseif nCol == _desclub .or. nCol == _dninro\n            aImpXLS[2][h1:nMeter]:= oHoja:Cells( nRow, nCol ):Value()\n         elseif nCol == _tipodoc\n            aImpXLS[_tipodoc][h1:nMeter]:= oHoja:Cells( nRow, nCol ):Value()\n         ...\n         end\n\n      end\n      SysRefresh()\n   next\n\n   oExcel:WorkBooks:Close()\n   oExcel:Quit()\n   oExcel:= NIL\n\n   // Defino Query de filas leidas\n   for each aCampos in aImpXLS\n      if HB_EnumIndex() == 2           // Solo es necesario recorrerlo UNA vez\n         exit\n      end\n      for each xItm in aCampos\n         nRow:= HB_EnumIndex()\n\n             if nRow == 1\n               cQuery:= &quot;INSERT INTO jugadores (id_player,docnro,id_doctpo,apellidos,nombres,fenacmto,feingreso,feegreso,id_club,id_pertipo) &quot;+ ;\n                        &quot;VALUES (&quot; +Str(aImpXLS[_identif][nRow],,,.T.)+&quot;,&quot;+Str(aImpXLS[_dninro][nRow],,,.T.)+&quot;,&quot;+Str(aImpXLS[_tipodoc][nRow],,,.T.)+&quot;,&quot; ;\n                                   +&quot;\'&quot;+ cApellidos +&quot;\',&quot; ;\n                                   +&quot;\'&quot;+ cNombres +&quot;\',&quot; ;\n                                   +if(!Empty(ctod(aImpXLS[_fenacto][nRow])), DtoS( CtoD(aImpXLS[_fenacto][nRow]) ), &quot;0000-00-00&quot; )+&quot;,&quot; ;\n                                   +if(!Empty(ctod(aImpXLS[_feingr ][nRow])), DtoS( CtoD(aImpXLS[_feingr ][nRow]) ), &quot;0000-00-00&quot; )+&quot;,&quot; ;\n                                   +if(!Empty(ctod(aImpXLS[_feegre ][nRow])), DtoS( CtoD(aImpXLS[_feegre ][nRow]) ), &quot;0000-00-00&quot; )+&quot;,&quot; ;\n                                   +if(!Empty(aImpXLS[_idclub][nRow]),Str(aImpXLS[_idclub][nRow],,,.T.),&quot;0&quot; )+&quot;,&quot; ;\n                                   +Str( aImpXLS[_perstpo][nRow] ) +&quot;)&quot;\n            else\n               cQuery += &quot;,(&quot; +Str(aImpXLS[_identif][nRow],,,.T.)+&quot;,&quot;+Str(aImpXLS[_dninro][nRow],,,.T.)+&quot;,&quot;+Str(aImpXLS[_tipodoc][nRow],,,.T.)+&quot;,&quot; ;\n                              +&quot;\'&quot;+ cApellidos +&quot;\',&quot; ;\n                              +&quot;\'&quot;+ cNombres +&quot;\',&quot; ;\n                              +if(!Empty(ctod(aImpXLS[_fenacto][nRow])), DtoS( CtoD(aImpXLS[_fenacto][nRow]) ), &quot;0000-00-00&quot; )+&quot;,&quot; ;\n                              +if(!Empty(ctod(aImpXLS[_feingr ][nRow])), DtoS( CtoD(aImpXLS[_feingr ][nRow]) ), &quot;0000-00-00&quot; )+&quot;,&quot; ;\n                              +if(!Empty(ctod(aImpXLS[_feegre ][nRow])), DtoS( CtoD(aImpXLS[_feegre ][nRow]) ), &quot;0000-00-00&quot; )+&quot;,&quot; ;\n                              +if(!Empty(aImpXLS[_idclub][nRow]),Str(aImpXLS[_idclub][nRow],,,.T.),&quot;0&quot; ) +&quot;,&quot; ;\n                              +Str( aImpXLS[_perstpo][nRow] ) +&quot;)&quot;\n            end\n         end\n         SysRefresh()\n      next\n   next\n\n    // Guardar en MySQL\n   if ::oConn:oSrv:Execute( cQuery )\n      MessageBox( 0, &quot;Transferencia exitosa&quot;, &quot;Hecho!&quot;, MB_ICONINFORMATION )\n      aO[_SFila]:VarPut( &quot;Proceso exitoso!&quot; )\n   else\n      MessageBox( 0, &quot;Falla en el proceso&quot;, &quot;Horror!&quot;, MB_ICONSTOP )\n      aO[_SFila]:VarPut( &quot;corrija el error y reintente&quot; )\n   end\n   aO[_SFila]:Refresh()\n   aO[_Meter]:cText:= &quot;&quot;\n   aO[_Meter]:Set( 0 )\n   aO[_Meter]:Refresh()\n\n   oQry:End()\n [/code]'),(522,1140,0,3,1385671198,'Problems in the xBrowse 1309 jumping columns','Same putting  \noLbx:nMoveType := MOVE_NONE    \n  \nI already changed also in the source of the xBrowse:: nMoveType := MOVE_NONE / / MOVE_FAST_RIGHT  \nand even so not for of jumping for the next cell  \n  \nI found what believe to be the problem in the method bkEYcHAR'),(523,150,25369,6,1386157241,'Re: Adeudos Directos SEPA en euros Esquema B2B','Hola. Muchas gracias a todos por lo que habéis aportado.\nHe encontrado en esta web la forma de generar ficheros xml,\nhttp://www.sepaeditor.com/'),(524,1527,27768,3,1386269158,'Re: Error BASE/1002  Alias does not exist: Clients','Marco,\n\nWhat do you mean &quot;hmpaquito trick&quot;?'),(525,388,27891,3,1389072941,'Re: EXCEL/CSV to DBF, a few questions','Hi George\n\nHere a sample using ADS import CSV to DBF and very fast.\n\nevery first column of CSV must &quot;DATA&quot; \n\n[code=fw]\nstatic function import_data_cutomer_dari_excel(oBrw)\n    local cfilename :=  cGetFile(\'*.csv\' ,\'Import Data\' )\n    local otextfile\n    local cline :=\'\'\n    LOCAL ADATA :={}\n    LOCAL NCTL :=0\n    LOCAL NTEMP_INDEX :=0\n    LOCAL NTEMP_INDEX_SALES := 0\n\n    \n    otextfile:=ttxtfile():new(cfilename)\n    IF OTEXTFILE:SEEK(\'DATA\')\n        for nctl:=1 to  otextfile:NTLINES()\n            cline := otextfile:readline()\n            IF upper(ALLTRIM(StrToken(cline, 1 ,\';\' )))==\'DATA\'\n                AADD(ADATA,{    StrToken(cline, 1 ,\';\' )            ,;    // DATA\n                                StrToken(cline, 2 ,\';\' )            ,;    //KODE CUSTOMER\n                                StrToken(cline, 3 ,\';\' )            ,;    //STATUS PERUSAHAAN PT /CV /LTD DLL\n                                StrToken(cline, 4 ,\';\' )            ,;    // NAMA CUSTOMER\n                                StrToken(cline, 5 ,\';\' )            ,;    // ALAMAT\n                                StrToken(cline, 6 ,\';\' )            ,;    // KOTA\n                                StrToken(cline, 7 ,\';\' )            ,;    // NPWP\n                                StrToken(cline, 8 ,\';\' )            ,;    // KODE POS\n                                StrToken(cline, 9 ,\';\' )            ,;    // CONTACK PERSON\n                                StrToken(cline, 10 ,\';\' )           ,;    // JABATAN KONTAK\n                                StrToken(cline, 11 ,\';\' )           ,;    // TELP\n                                StrToken(cline, 12 ,\';\' )           ,;    // FAK\n                                StrToken(cline, 13 ,\';\' )           ,;    // EMAIL\n                                StrToken(cline, 14 ,\';\' )           ,;    // WILAYAH\n                                StrToken(cline, 15 ,\';\' )           ,;    // KETERANGAN\n                                StrToken(cline, 16 ,\';\' )           ,;    // KODE SALES\n                                StrToken(cline, 17 ,\';\' )            ;    // NAMA SALES\n                            };\n                    )               \n            endif   \n            otextfile:advance()\n        next\n        OTEXTFILE:CLOSE()\n\n        \n        dbselectarea(AALIAS[DB_SALESMAN])\n        NTEMP_INDEX_SALES := INDEXORD()\n        SET ORDER TO TAG KODE\n        \n        DBSELECTAREA(AALIAS[DB_CUSTOMER])\n        NTEMP_INDEX := INDEXORD()\n        SET ORDER TO TAG KODE\n    \n        TRY     \n            AdsBeginTransaction()\n        \n            FOR NCTL =1 TO LEN(ADATA)\n                DBSELECTAREA(AALIAS[DB_CUSTOMER])   \n                SEEK LEFT(ADATA[NCTL,2],6)\n                IF FOUND()\n                    MSGALERT(\'Kode : \'+alltrim(ADATA[NCTL,2]) +\' sudah ada\')\n                else    \n                    \n                    if flock()\n                        append blank\n                        replace kode        with LEFT(ALLTRIM(ADATA[NCTL,2]),6)\n                        replace titel       with ALLTRIM(ADATA[NCTL,3])\n                        replace nama        with ALLTRIM(ADATA[NCTL,4])\n                        replace alamat      with ALLTRIM(ADATA[NCTL,5])\n                        replace kota        with ALLTRIM(ADATA[NCTL,6])\n                        replace npwp        with ALLTRIM(ADATA[NCTL,7])\n                        replace zipcode     with ALLTRIM(ADATA[NCTL,8])\n                        \n                        // ALAMAT NPWP DISAMAKAN\n                        replace nalamat     with ALLTRIM(ADATA[NCTL,5])\n                        replace nkota       with ALLTRIM(ADATA[NCTL,6])\n                        replace nzipcode    with ALLTRIM(ADATA[NCTL,8])\n                        //----alamat npwp\n                        \n                        \n                        replace kontak      with ALLTRIM(ADATA[NCTL,9])\n                        replace jabatan     with ALLTRIM(ADATA[NCTL,10])\n                        replace phone       with ALLTRIM(ADATA[NCTL,11])\n                        replace phone3      with ALLTRIM(ADATA[NCTL,12])\n                        replace email       with ALLTRIM(ADATA[NCTL,13])\n                        replace wilayah     with ALLTRIM(ADATA[NCTL,14])\n                        replace catatan     with ALLTRIM(ADATA[NCTL,15])\n                        replace kodesales   with LEFT( ALLTRIM(ADATA[NCTL,16]) ,10)  // PANJANG KODE SALES 10\n                        \n                    ELSE\n                        BREAK\n                    ENDIF\n                \n                    dbselectarea(AALIAS[DB_SALESMAN])\n                    SEEK LEFT( ADATA[NCTL,16] ,10)\n                    IF !FOUND()\n                        IF FLOCK()\n                            append blank\n                            REPLACE SL_KODE   WITH LEFT( ADATA[NCTL,16] ,10)\n                            REPLACE SL_NAMA   WITH LEFT( ADATA[NCTL,17] ,35)\n                        ELSE\n                            BREAK\n                        ENDIF\n                    ENDIF                   \n                endif\n            NEXT\n            AdsCommitTransaction()\n            dbunlockall()\n\n        CATCH\n            AdsRollback()\n            dbunlockall()\n            msgstop(\'Proses Import Gagal!!!\')\n            dbselectarea(AALIAS[DB_SALESMAN])\n            SET ORDER TO NTEMP_INDEX_SALES\n            \n            DBSELECTAREA(AALIAS[DB_CUSTOMER])\n            SET ORDER TO    NTEMP_INDEX\n            return nil\n        END         \n        \n    ELSE\n        OTEXTFILE:CLOSE()\n        MSGALERT(\'Proses dibatalkan!!\')\n        RETURN NIL\n    endif       \n    \n    dbselectarea(AALIAS[DB_SALESMAN])\n    SET ORDER TO NTEMP_INDEX_SALES\n    \n    DBSELECTAREA(AALIAS[DB_CUSTOMER])\n    SET ORDER TO    NTEMP_INDEX\n    oBrw:REFRESH()\n    \n    MSGINFO(\'Proses Complate\')\nreturn nil\n\n\n\n [/code]'),(527,2943,25043,3,1389775774,'Re: DBF to CSV - converter 1.2 ( Update )','super \n\ndanke'),(528,439,27953,3,1389890728,'Re: xBrowse, editar varios campos','Muchas gracias por tu post, has sido muy amable.\n\nMe pasa que me permite editar, pero no me guarda, no se porque, lo probe y me permite editar, no me da ningun error, pero no guarda el dato.\n\nLa función también puede andar reemplazando Edite(oBrw,xVal,oCol:cHeader) por Edite(oBrw,xVal,FieldName( i )) pero en ninguno de los dos casos guarda nada en la tabla.'),(529,534,27984,6,1390488617,'Re: Pedir disculpas por no responder a la peticiones.','javier que te recupere lo antes posible todo lo demas es superfluo lo principal es recordarlo uno mismo como una anecdota en la vida lo demas no importa y te digo lo mismo que te mejores pronto'),(530,75,27984,6,1391147694,'Re: Pedir disculpas por no responder a la peticiones.','Buenos días Javier,\nAdemás de la compañía &quot;virtual&quot; que todos te mandamos, me voy a atrever a recomendarte la lectura de tres libros que han caido en mis manos este último mes y que espero te puedan resultar de utilidad.\nEl motivo de que hayan caido en mis manos tiene relación también con ese padecimiento tan temible del cancer en un familiar muy próximo.\n\nAhí van:\n[b]Mis recetas anticancer[/b] - Alimentación y vida anticancer; Autora: Dra. Odile Fernández Martínez; Ed.: Urano.\n[b]La encima prodigiosa[/b]; Autor: Dr. Hiromi Shinya; Ed.:Aguilar\n[b]La verdad sobre el colesterol[/b]; Autores: Jonny Bowden y Stephen Sinatra; Ed.: Urano\n\nEl primero de la lista es el más directo al cancer -que lo ha padecido (y superado incluso con metástasis) la propia autora que es médico- pero los otros dos te dan pautas de alimentación y vida sana. Los resultados de los tres son congruentes entre sí a pesar de partir de problemas de enfermedades aparentemente dispares.\n\nY, por si no lo concieras, otro libro para la parte espiritual de tu vida, que en estos momentos te será tan necesaria. Este otro libro, a pesar del título, te lo recomiendo seas cristiano o no. Yo lo soy, aunque estate seguro que de forma imperfecta, pero leerlo me ha ayudado mucho a coger fuerza en estos momentos que de forma tan cercana me ha tocado vivir esa enfermedad:\n\n[b]Para ser Cirstiano[/b]; Autor: Juan Luis Lorda; Ed.:Ediciones Rialp\n\nCon la esperanza de poderte aportar ánimo y ser de alguna utilidad, Fuerza y un gran abrazo con mis mejores deseos a pesar de que no nos conozcamos personalmente.'),(531,131,28053,6,1391805054,'Re: Consulta. Que otro lenguaje utilizan ?','Hola Adolfo,\npersonalmente te aconsejo que le des una mirada a Python, hace poco hice un curso y me encantó. Lo cuento en http://cincomundos.wordpress.com/2014/01/07/an-introduction-to-interactive-programming-in-python/\n\nNo lo estoy usando para nada todavía, pero me estoy divirtiendo enormemente con él.\n\nSaludos,'),(532,2530,28058,3,1391820393,'Re: Trying to Migrate Harbour','Try\n\n#ifdef __HARBOUR__\n   #ifndef __XHARBOUR__\n      #xtranslate DbSkipper =&gt; DbSkip\n   #endif\n#endif'),(533,2561,0,3,1391876121,'TDOLPHIN Error 9025','Hello,\n\nToday i downloaded tDolphin with svn . After several hours i can compile and run some examples in console mode\n\n1) Building dolphin.lib i had to add some \'local super\' in tDolpexp.prg\n2) In setenvh.bat i had to change :\n    @SET PRG_COMP_LIB_PATH=%PRG_COMP_PATH%\\lib\\win\\bcc\n                              in\n     @SET PRG_COMP_LIB_PATH=%PRG_COMP_PATH%\\lib'),(534,300,0,3,1392039316,'ftp problem','Hi, Why this code dont work?\n\nftpproto  =&quot;ftp://&quot;\nftpserver = &quot;f10-preview.awardspace.net&quot;\nftpuser   = &quot;xxxxxx&quot;\nftppass   = &quot;xxxxxx&quot;\ncurl:=ftpproto+ftpuser+&quot;:&quot;+ftppass+&quot;@&quot;+ftpserver\noUrl:= turl():new(curl)\noCred:= tIPCredentials()\noFtp:= tipclientftp():NEW(oUrl,,.T.)\noFTP:nConnTimeout := 20000\noFTP:bUsePasv     := .T.\nIF oFTP:Open()\n   cLista := oFTP:List()\n   msginfo(cLista)\nELSE\n   msginfo(&quot;error in conection&quot;)\nENDIF\n\nIf I type the string in curl in internet browse, conection is ok.\n\nThanks in advance.'),(535,739,28158,6,1394241640,'Re: Consulta Web','Uno gratis con mysql es http://www.000webhost.com/ , pero no es comodo, porque te pone un anucio que tienes que cerrar cada página'),(536,960,28225,6,1395927573,'Re: GIF en proceso automático','FranciscoA:\n\nSigue igual, tu sugerencia no funcionó. Es muy raro, y no encuentro una explicación. \nHe probado incluso con otros GIF\'s y se muestran sin animación.\n\nSeguiré buscando una solución\n\nGracias.\nSaludos desde Cádiz, España'),(537,620,0,3,1396645033,'PrinterSetup() Cancel','Ive looked through the forum on an answer to this but can\'t seem to find anything conclusive.\n\nWhen using printersetup(), and the user presses &quot;Cancel&quot; button, the print job will continue...seems there is no return from printersetup()...is this still the case?\n\nIve lived with this just as a nuisance but it is problematic now with a client and larger print jobs.  I need a solution.\n\nThanks in advance,\nGreg'),(538,1516,0,21,1398715021,'Inserrir figura no Excel','Olá pessoal!\nTo com um pequeno problema, já procurei no fórum e no google mas não consegui encontrar nada sobre colocar uma figura dentro de uma planilha do excel.\nEstou usando a TOleauto\n\nAchei uma maneira de colocar no cabeçalho.\n\noAS:PAGESETUP:CENTERHEADERPICTURE:FILENAME := &quot;C:\\IMAGEM\\AJLOGO.BMP&quot; // SELECIONA A IMAGEM\n\noAS:PAGESETUP:CENTERHEADER := &quot;&amp;G&quot; // MOSTRA A IMAGEM (NÃO SEI PORQUE MAS SEM ESTA LINHA NÃO MOSTRA)\n\nmas no corpo da planilha não achei nada.\n\nSe alguém puder ajudar\n\nUm abraço\n\nAngelo Cendon\nFiveWin 6.12 for XHarbour 0.99.71 (Simplex), Workshop 4.5'),(539,1516,0,20,1398715228,'Inserir imagem no Excel','Olá pessoal!\nTo com um pequeno problema, já procurei no fórum e no google mas não consegui encontrar nada sobre colocar uma figura dentro de uma planilha do excel.\nEstou usando a TOleauto\n\nAchei uma maneira de colocar no cabeçalho.\n\noAS:PAGESETUP:CENTERHEADERPICTURE:FILENAME := &quot;C:\\IMAGEM\\AJLOGO.BMP&quot; // SELECIONA A IMAGEM\n\noAS:PAGESETUP:CENTERHEADER := &quot;&amp;G&quot; // MOSTRA A IMAGEM (NÃO SEI PORQUE MAS SEM ESTA LINHA NÃO MOSTRA)\n\nmas no corpo da planilha não achei nada.\n\nSe alguém puder ajudar\n\nUm abraço\n\nAngelo Cendon\nFiveWin 6.12 for XHarbour 0.99.71 (Simplex), Workshop 4.5'),(540,1527,28421,3,1399643233,'Re: AUTOSORT in xBrowse','Thanks Rao, \n\nIn this case there is no way to change the description of the column headings, but the xBrowse not find the tag, right?'),(541,2944,28667,6,1403013508,'Re: Funcion CallDll()','Antonio\n\nEl control es de 32 bits.\n\nEntoces no hay forma de llamar funciones de una dll de 32 bits desde 64 bits ?\n\nSaludos'),(543,2561,0,3,1404829585,'New combo class : TxCombox','[code][/code]'),(546,249,28917,6,1406161926,'Re: Pasar a SQL paso a paso para Novatos..','Saludos\n\naprovechare el hilo para hablar de mis experiencias y el porque existe TDolphin, libreria el cual hice y mantengo sin ningún costo y entregando el codigo fuente en su totalidad.\n\nEmpezare hablando de las ventajas de ADO sobre TDolpin (o cualquier otra libreria nacida del API de otro motor de base de datos, bien sea MySql, Postgres, MariaDB, etc)\nCon ADO puedes usar cualquier motor de base de datos'),(545,600,27309,6,1404850550,'Re: Como Insertar una imagen como Header en WORD','Gracias, esto ya lo vi, lo que yo preguntaba es si desde una dll que contiene cierto BMP es posible incluirlos en documento Word.\n\nJuanjo'),(547,1406,28708,3,1406729456,'Re: DBF to SQL script tool','Hi Mr. Rao,\n\nI trying to connect MySql. I have installed mysql-installer-community-5.6.19.0 with developer edition.\n\nMy code :\n[code]   ? &quot;Connect to Server Database &quot; + cInitCat\n   oCn   := FW_OpenAdoConnection( &quot;MYSQL,localhost,,root,1111&quot;, .t. )\n   if oCn == nil\n      ? &quot;Connect Fail&quot;\n      QUIT\n   endif[/code]\n\nI could not connect to mysql. \n\nMySql'),(548,2561,29101,31,1408627954,'Re: Los campos no se muestran correctamente','[quote=&quot;Antonio Linares&quot;]Frank,\n\nIn which PRG should I make the change ? thanks\n\nRegarding the prsht.h problem, this is the right fix:\n\nhttp://forums.fivetechsupport.com/viewtopic.php?p=147360#p147360[/quote]\n\nMETHOD OpenDatabases() CLASS VRD'),(549,177,0,19,1409336811,'Service Pack 4 no oficial para XP','Buenas,\n\npara los que quieran seguir usando XP\n\n[url]http://www.ryanvm.net/forum/viewtopic.php?t=10321&amp;postdays=0&amp;postorder=asc&amp;sta rt=0 [/url]\n\nSaludos'),(550,1398,0,6,1409791408,'Letras de un texto con diferente color','Hola amigos, estoy con dificultad para resolver este problema.\nEn un texto que utilizo en un Get when .F. se visualiza asi: [b]CAL/COR/POR/LOM[/b], cada conjunto de letras separadas por la barra debe aparecer en un color diferente para destacar o texto, por ejemplo:\n[color=#0000FF]CAL[/color]/[color=#FF0000]COR[/color]/[color=#008000]POR[/color]/LOM, \nAlguiem tiene alguna  idea de como puedo hacer esto?\n \noItens[1][m_cont,3]:nClrFore := CLR_ROJO Esto cambia todo el texto pero como utilizarlo para lo que necesito?\n\nDesde muchas gracias, toda ayuda sera bien recibida.\nGracias, Daniel'),(551,190,29192,3,1409926893,'Re: TDbf_PRO now available','[quote]TDbf_PRO now available in beta[/quote]\n\nHi xmanuel ,\n\nCan you please post here a direct link where we can download the source code\nwithout going into Yahoo Groups etc... etc..\n\nRegards,\n\n-Ramesh Babu P'),(555,802,26695,3,1413961839,'Re: TAPI Driver','Hi Baxajaun\n\nThanks for reply. \nI\'ll read these links. Is there any sample?\nI\'d like a way to use it direct from FW.'),(557,413,29449,6,1414201006,'Re: abrir chrome desde activex','silvina me puedes indicar como captas la dirección desde google map?'),(558,3174,29534,3,1414918271,'Re: dialog:move( ntop,nleft,nwidth,nheight)','In my case, I use GetRect() method for save pre-position.'),(559,36,29542,6,1415661562,'Re: tsbrowse metod toExcel','Estimados muchas gracias por sus comentarios\n\nel problema que a mi me funciona bien pero en mis clientes casca, bueno echando un vistacito la foro encontre la solucion\n\n1.-cambiar toleauto por createobject \n     oExcel := CREATEOBJECT( &quot;Excel.Application&quot; )\n\n2.- cambiar esta lineas oSheet:Range( &quot;A1:&quot; + cLet + &quot;1&quot; ):Set( &quot;HorizontalAlignment&quot;, xlHAlignCenterAcrossSelection )\npor      oSheet:Range( &quot;A1:&quot; + cLet + &quot;1&quot; ):HorizontalAlignment := xlHAlignCenterAcrossSelection\n\nhasta ahora no ha habido quejas,,\n\ngracias'),(560,3096,19912,6,1416313642,'Re: ACCESO A WEB SERVICE DESDE FWH USANDO SOAP','CONSUMIR WEB SERVICE\nNecesito ayuda sobre este tema\nhay mucho en el foro pero no logro encontrar lo mas indicado\nsi alguien me puede ayudar o en que parte del foro puede preguntar?\ngracias'),(561,3182,29544,3,1416406748,'Re: FWH 32 14.09 for just 150 euros for 15 days','Dear Mr. Antonio \n\nThanks for providing special price for fwh 14.09 , After 21years using clipper &amp; harbour (console) now finally entered in gui programing.\n\nIs there any function procedure for show incremental search data from database ?\n\n\nThanks &amp; Regards\nYunus.'),(563,24,29641,6,1416906225,'Re: WEB SERVICE  ayuda','Bueno, el webservices que quiere consumir tiene una pecualidad, y son 2;\n\n1.- Importante, es tener en la cabecera[b]  ( &quot;Connection:&quot;, &quot;Keep-Alive&quot;  )[/b] , de lo contrario, cuando establecemos conexión , esta es cerrada, dando un bonito valor nulo de respuesta.\n2.- En la SOAPAction , hay que poner la URL entera, de lo contrario, el webservices devolverá que no existe la acción.\n3.- usar soapUI, nos permite averiguar estos matices\n\n[b]Version MSXML2[/b]\n[code]function amigo_eduardo()\n   Local cXml := strtran( memoread(&quot;EnvioCFE.xml&quot;), hb_osnewline(), &quot;&quot; )\n   Local cLocation := &quot;http://190.64.89.202/SICFEServicesDINAPOLI/sicfe.svc&quot;\n   Local oHttp\n\n\n   oHttp := CreateObject( &quot;MSXML2.XMLHTTP&quot; )\n\n   oHttp:Open( &quot;POST&quot;, cLocation, .F. )\n   ohttp:SetRequestHeader(&quot;Content-Type&quot; ,&quot;text/xml;charset=UTF-8&quot; )\n   ohttp:SetRequestHeader( &quot;SOAPAction&quot; , &quot;http://tempuri.org/ISICFEEmisor/EnvioCFE&quot; )\n   oHttp:SetRequestHeader( &quot;Connection:&quot;, &quot;Keep-Alive&quot; )\n   oHttp:SetRequestHeader( &quot;Content-length: &quot;, Str( len( cXml ) ) )\n  \n   oHttp:Send( cXml )\n   Alert( oHttp:responseText   )\n\nreturn nil\n[/code]\n\n[b]Version con CURL[/b]\nNota:\nEnlaza estas librerias para CURL en tu makefile.\n#SOPORTE PARA CURL\nhbcurls.lib\nlibcurl.lib\n\n[code]#include &quot;hbcurl.ch&quot;\n#include &quot;common.ch&quot;\n#include &quot;fileio.ch&quot;\n\nfunction amigo_eduardo_curl(  )\n\n  local endpointUrl,curlHandle,curlErr\n  local aHeader,chpmserv,cc1\n   Local strXml := strtran( memoread(&quot;EnvioCFE.xml&quot;), hb_osnewline(), &quot;&quot; )\n   Local cLocation := &quot;http://190.64.89.202/SICFEServicesDINAPOLI/sicfe.svc&quot;\n\n   cc1 := &quot;&quot;\n\n   caction     := &quot;EnvioCFE&quot;\n   endpointUrl := cLocation\n\n   aHeader := {}\n   AADD(aHeader,&quot;Content-Type: text/xml;charset=UTF-8&quot;)\n   AADD(aHeader,&quot;SOAPAction: &quot;+ cAction )\n   AADD(aHeader,&quot;Connection: Keep-Alive&quot; )\n   AADD(aHeader,&quot;Content-length: &quot;+ Str( len( strXml )) )\n\n  curlHandle := curl_easy_init()\n\n  if !empty(curlHandle)\n\n      /* Specify the Header  data */\n      curl_easy_setopt(curlHandle,HB_CURLOPT_HTTPHEADER,aHeader)\n\n      /* Set the endpoint to send the POST to */\n      curl_easy_setopt(curlHandle, HB_CURLOPT_URL, endpointUrl)\n\n      /* Setup response data */\n      curl_easy_setopt( curlHandle, HB_CURLOPT_DOWNLOAD )\n      curl_easy_setopt( curlHandle, HB_CURLOPT_DL_BUFF_SETUP )\n\n      /* Specify the POST data */\n      curl_easy_setopt(curlHandle, HB_CURLOPT_POST, 1)\n      curl_easy_setopt(curlHandle, HB_CURLOPT_POSTFIELDS, strxml)\n\n      /* Do everything */\n       curlErr := curl_easy_perform( curlHandle )\n\n      /* Report any errors */\n      if empty(curlErr)\n         /* store response in variable */\n         cc1 := curl_easy_dl_buff_get( curlHandle )\n         Alert( &quot;ATENCION:&quot; +  strtran( htmltoansi( cc1 ), &quot;&amp;quot;&quot;, \'&quot;\' ) )\n      else\n         Alert(  &quot;Error:&quot; + curl_easy_strerror(curlErr) )\n      endif\n  else\n      Alert(  &quot;No handle&quot; )\n  endif\n\n  if !empty(curlHandle)\n     /* Clean-up libcurl */\n     curl_global_cleanup( curlHandle )\n  else\n     Alert(  &quot;Error&quot; )\n  endif\n\n  if empty(cc1)\n     Alert(  &quot;Error&quot; )\n  endif\nreturn cc1\n[/code]'),(564,868,29948,3,1421077604,'Re: Report Preview page Panel  FWH 1412','IMPORTANT: Please note:\n\nI have been  testing rpreview with the global setting TPreview():lListViewHide := .T.\n\nWhen this data is set to .T., run-time errors occur during toggling Zoom/Unzoom and SinglePage/TwoPages.\nWe are fixing the problem for the next release.'),(565,2604,29972,3,1422098420,'Re: Help with translations','{ &quot;Source editor&quot;, &quot;Editor de código&quot;, &quot;&quot;, &quot;&quot;, &quot;Quellcode Editor&quot;, &quot;Editor di codice sorgente&quot; }'),(566,3226,30083,3,1423069803,'Re: a function return 2 values','Hi\n\nFunctions can return only one value. This value can be of any supported type so you can simulate multiple return values using array, hashes, classes.\n\nOr you can use parameters passed by reference:\n\nIf Giornolib(ngiorno,@nOre,nOra)\n\nIn this call nGiorno and nOra is passed by value (the actual values of nGiorno and nOra are passed to the function) while nOre is passed by reference (the &quot;address&quot; of the variable is passed to the function).\n\nInfact in the function GiornoLib( nGiorno, nOre, nOra ) // Note that in function definition you can\'t specify @\nthere is this instruction:\nnOre:= iif(Left(datis-&gt;parame, 1) == &quot;0&quot;, 10, Val(Left(datis-&gt;parame, 1)))\n\nA new value to variable nOre is assigned: you can check that after the IF the variable has changed its value.\n\nPS: note that boolean, date, chars, numerics are always passed by value (unless @ is specified). &quot;Complex&quot; objects like classes, arrays, hashes etc are always passed by reference (you can modify them in the function)\nPPS: the fact that the variable names in GiornoLib are the same as in the calling ones is casual...'),(567,3226,30093,3,1423074709,'Re: Problem of a function','There is a mismatch in what you posted:\n\n[quote=&quot;Silvio.Falconi&quot;]the function \n[code=fw]\n...\n      if (or-&gt;(dbSeek(nClasse + Str(nGiorno, 1) + iif(nOra + n  == 10, &quot;0&quot;, Str(nOra + n, 1)))))\n [/code]\n[/quote]\n\nthen you say:\n[quote]\nThe index of the archive schedule is set on the third, and that is   INDEX ON   (upper(CLASSE)+upper(GG_ORA)) TAG ORARIO3\n[/quote]\n\nIn the INDEX ON you have only 2 parameters, CLASSE+GG_ORA while in the dbSeek'),(568,233,0,3,1425728759,'Unresolved external \'_png_init_io\' with FWH15.01 + Harbour','I downloaded Harbour source from https://github.com/harbour/core.git and compile it.\n\nI discovered with  FWH15.01 and this version of Harbour I\'ll get the error message &quot;Unresolved external \'_png_init_io\'&quot;\n\nAm I using the wrong source for Harbour?\n\nTIA'),(569,1427,13602,3,1427888015,'Re: How to open wmf files?','For me, the following code used while saving the word document is working as expected ie it is showing the thumbnail\n\nUse this to save the Word file with Thumbnail enabled\n[code]   oWord:ActiveDocument:SaveAs2( &quot;D:\\anser.docx&quot;, 16, .F., &quot;&quot;,  .T., &quot;&quot;, .F., .F., .F., .F., .F., 0 )[/code]\n\nYou may extract the thumbnails from the word file using the zip trick  :) \n\nRegards\n\n[b]Anser[/b]'),(570,292,30494,6,1428035507,'Re: SQL-ADS Consulta (SOLUCIONADO)','Mario\nMI recomendacion para hacer aplicaciones eficientes con MYSQL o SQLSERVER es rediseñar la base de datos para sacarle mayor provecho, te enviare a tu correo privado un articulo que redacte sobre la historia de aplicaciones en Venezuela que han heredado conceptos y diseños de la decada de los 80 y 90. A mi parecer no hicieron cambios fundamentales sino darle fachada graficas a las aplicaciones y en algunos casos desaprovechar el potencial de un RDBMS'),(571,3284,30669,6,1431441686,'Re: Problema version 15.04 TOUTLOOK:LLEGACYLOOK','Hi, G. N. Rao. \nnageswaragunupudi\nVery good, thanks.\nI need one think more, sorry but this is very important.\n[img]https://www.dropbox.com/s/boitqhgv4vlvmsy/btnbmp.PNG?dl=0[/img]\nTIA'),(572,868,30737,3,1432380532,'Re: How to create this xbrowse-filter ?','Sorry,\noBrw:lDisplayZeros := .f.\n( .f. meaning do not display zeros. Works same way as Excel)'),(573,292,0,6,1433831832,'Programa samples\\erp2.prg, Version de MySQL','Antonio\nSaludos, cual version de MySQL fue utilizada para crear este ejemplo?\nActualmente utilizo 5.5.40-cll (SELECT VERSION())'),(574,1911,30889,6,1434122462,'Re: O.T. ADS - Consulta SQL','Revisa el codigo, el AS te esta causando el error\n\n[code]\n\nUPDATE BDSGC03 SET BDSGC03.FCABFA14= SUM(D.FDETFA06*(D.FDETFA08-D.FDETFA07))\nFROM BDSGC03 INNER JOIN BDSGC04 [color=#FF4000]AS[/color] D ON BDSGC03.FDOCINT1=D.FDOCINT1 \nWHERE BDSGC03.FCABFA14=0\n\n[/code]\n\nForma correcta:\n\n[code]\n\nUPDATE BDSGC03 SET BDSGC03.FCABFA14= SUM(D.FDETFA06*(D.FDETFA08-D.FDETFA07))\nFROM BDSGC03 INNER JOIN BDSGC04  D ON BDSGC03.FDOCINT1=D.FDOCINT1 \nWHERE BDSGC03.FCABFA14=0\n\n[/code]'),(575,2528,0,6,1434836810,'Consulta Ado con Fw vs VB','Hola Gente:\nBuenas tardes.\nPara solicitarles su ayuda en este tema.\nEstoy accesando a una Bd Progress y hago una consulta para traer en un Recordset.\nEl tema es que haciendo la misma consulta con Fw y comparando con VB6.\n- Tiempo con FW = 03:00 minutos.\n- Tiempo con VB6= 00:10 sgdos.\n\nAlgo estaré haciendo incorrectamente ?\nPego aquí el código que estoy utilizando:\n\n[code=fw]\n\nFUNCTION fConecSrvAdo(xcCnxStr,xnCursor)\n     LOCAL xoCnxSrv:=NIL, oError\n     MsgWait( &quot;Estableciendo conexión con el Servidor ...&quot;)\n     xnCursor :=IF(xnCursor==NIL,adUseServer,xnCursor)  // adUseClient   \n     TRY\n       xoCnxSrv := TOleAuto():New( &quot;ADODB.Connection&quot; )     \n     CATCH oErr\n       MsgStop(&quot;No se puede establecer conexion con el Servidor de Base Datos ...!&quot;)\n       ShowErrorCnx( oErr )      \n       RETURN NIL\n     END   \n     xoCnxSrv:ConnecTionString:=xcCnxStr\n     xoCnxSrv:CursorLocation  :=xnCursor\n     TRY\n       xoCnxSrv:Open()\n     CATCH oErr\n       MsgStop(&quot;No se puede establecer conexion con el Servidor de Base Datos ...!&quot;)\n       ShowErrorCnx( oErr )\n       RETURN NIL\n     END   \n     RETURN xoCnxSrv\n*\n/*** Función para Crear RecordSet ***/\n*  xoCnxSrv  : Servidor Conectado\n*  xcCmdSql  : Consulta Sql\n*  xnCursor  : Que lado estará el cursor del Server o Cliente.\n*  xnLockType: Bloqueo del cursor.\n*  xnCurType : Tipo de cursor\n*    \nFUNCTION fCreaRecSet(xoCnxSrv, xcCmdSql, xnCursor, xnLockType, xnCurType)\n     LOCAL oRsLocal, oError   \n     TRY \n       oRsLocal := TOleAuto():New( &quot;ADODB.RecordSet&quot; )      \n     CATCH oError\n       MsgStop(\'No se puede establecer conexion con Recordset ...!\')\n       ShowErrorCnx( oError )      \n       RETURN NIL\n     END   \n     xnCursor  :=IF(xnCursor=NIL,adUseServer,xnCursor)  // adUseClient\n     xnLockType:=IF(xnLockType=NIL,adLockOptimistic,xnLockType)\n     xnCurType :=IF(xnCurType=NIL,adOpenKeyset,xnCurType)\n     oRsLocal:CursorLocation:=xnCursor\n     oRsLocal:LockType      :=xnLockType\n     oRsLocal:CursorType    :=xnCurType    \n     oRsLocal:Source        :=xcCmdSql\n     oRsLocal:ActiveConnection:=xoCnxSrv   \n     TRY\n       oRsLocal:Open()\n     CATCH oError\n       MsgStop(\'No se puede establecer conexion con Recordset ...!\')\n       ShowErrorCnx( oError )      \n       RETURN NIL\n     END\n     IF !oRsLocal:EOF()\n       oRsLocal:MoveFirst()\n     ENDIF   \n     RETURN oRsLocal\n*    \n/*** Manejador error para Conexion Server ***/\nFUNCTION ShowErrorCnx( oError )\n     LOCAL cError := &quot;&quot;\n     cError += &quot; Descripción  : &quot; + oError:Description\n     cError += &quot; SubSystem    : &quot; + oError:SubSystem\n     cError += &quot; Error Number : &quot; + Str( oError:SubCode )\n     cError += &quot; Severity     : &quot; + Str( oError:Severity )   \n     RETURN NIL\n [/code]\n\ny este es con VB6\n[code=fw]   \n/ ***  Conectando con el Servidor. ***/\nSet cCnx = New ADODB.Connection\n   cCnx = &quot;DSN=Chessgps;HOST=chess;PORT=2500;DB=distrib;UID=SYSPROGRESS;PWD=ch1573&quot;\n   With cCnx\n     \' Cursor en Cliente para poder usar un DataGrid\n     .CursorLocation = adUseClient\n     \' Abro la conexión con la base de datos usando un DSN\n     .Open cCnx\n   End With\n\n/***  Conectando al Recordset.***/\n\n     Dim rs As New ADODB.Recordset\n     rs.CursorLocation = adUseClient\n     rs.Open SQL, cCnx, adOpenStatic\n     Set rs.ActiveConnection = Nothing\n\n\n [/code]\n\nAtte.\nLucho Montero.\nLima - Perú.\n\n-----------------------------------------------------------------------\nFW 12.04 + xHarbour 123 + Borland 582'),(576,2528,30937,6,1434987710,'Re: Consulta Ado con Fw vs VB','Estimado Antonio:\nMuchas gracias por responder.\nAntes de analizar el resto del código de VB, por favor analicemos estas líneas en donde se ejecuta la consulta  tanto en FW como VB6; y es aquí en donde hago la medición de tiempos:\n\nCon Fw:\n[code=fw]\n\n  Llama la función que ejecuta la Consulta y genera el Recordset:\n\n  oRsAprvt:=\'\'\n  oRsAprvt:=fCreaRecSet(oCnxSrv, cCmdSql, adUseClient, adLockOptimistic, adOpenStatic)\n\nEsta es la función que ejecuta la consulta y crea el Recordset:\n\nFUNCTION fCreaRecSet(xoCnxSrv, xcCmdSql, xnCursor, xnLockType, xnCurType)\n     LOCAL oRsLocal, oError   \n     TRY \n       oRsLocal := TOleAuto():New( &quot;ADODB.RecordSet&quot; )      \n     CATCH oError\n       MsgStop(\'No se puede establecer conexion con Recordset ...!\')\n       ShowErrorCnx( oError )      \n       RETURN NIL\n     END   \n     xnCursor  :=IF(xnCursor=NIL,adUseServer,xnCursor)  // adUseClient\n     xnLockType:=IF(xnLockType=NIL,adLockOptimistic,xnLockType)\n     xnCurType :=IF(xnCurType=NIL,adOpenKeyset,xnCurType)\n     oRsLocal:CursorLocation:=xnCursor\n     oRsLocal:LockType      :=xnLockType\n     oRsLocal:CursorType    :=xnCurType    \n     oRsLocal:Source        :=xcCmdSql\n     oRsLocal:ActiveConnection:=xoCnxSrv   \n     TRY\n       oRsLocal:Open()                     =====&gt; Aquí es donde se ejecuta la consulta .... tiempo: 03:00 Minutos.\n     CATCH oError\n       MsgStop(\'No se puede establecer conexion con Recordset ...!\')\n       ShowErrorCnx( oError )      \n       RETURN NIL\n     END\n     IF !oRsLocal:EOF()\n       oRsLocal:MoveFirst()\n     ENDIF   \n     RETURN oRsLocal\n\n [/code]\n\nEste el código VB que ejecuta la Consulta y crea el Recordset:\n[code=fw]     Dim rs As New ADODB.Recordset\n     rs.CursorLocation = adUseClient\n     rs.Open SQL, cCnx, adOpenStatic          ====&gt; Aquí es donde se Ejecuta la Consulta ... tiempo: 00:10 sgdos.\n     Set rs.ActiveConnection = Nothing\n [/code]\n\n\nEste es el código de VB que hace lo mismo con FW. Ambos hacen exactamente la misma consulta y la muestran en una grilla.\n[code=fw]\n\nOption Explicit\n\n\'Database fields names from SQL query\nConst DB_CSUP = &quot;c_super&quot;\nConst DB_CVEN = &quot;c_perso&quot;\nConst DB_TVEN = &quot;d_perso&quot;\nConst DB_CRUT = &quot;ruta&quot;\nConst DB_TDESRUT = &quot;d_ruta&quot;\nConst DB_CCLI = &quot;idcliente&quot;\nConst DB_TNOMREP = &quot;nomcli&quot;\n\' DB_FECENTRE  := &quot;fecentre&quot;\nConst DB_CTIP = &quot;iddocument&quot;\nConst DB_NFAC = &quot;nroped&quot;\nConst DB_CARTAG = &quot;c_artag&quot;\nConst DB_DARTAG = &quot;d_artag&quot;\nConst DB_CSUBAG1 = &quot;c_subag1&quot;\nConst DB_DSUBAG1 = &quot;d_subag1&quot;\nConst DB_CCODART = &quot;codart&quot;\nConst DB_TDESART = &quot;descrip&quot;\nConst DB_QCANPED = &quot;nqbultos&quot;\nConst DB_QUMVTA = &quot;umedstd&quot;\nConst DB_QIMPORTE = &quot;qimporte&quot;\n\n\'Cube fields names, arbitrary\n\'Definir Descripcion Campos de la Tabla Contenedora del Cubo.\n     \nConst CUBEFLD_CSUP = &quot;Cod Supervisor&quot;\nConst CUBEFLD_CVEN = &quot;Cod Prevendedor&quot;\nConst CUBEFLD_TVEN = &quot;Nombre Prevendedor&quot;\nConst CUBEFLD_CRUT = &quot;Cod Ruta&quot;\nConst CUBEFLD_TDESRUT = &quot;Descripcion Ruta&quot;\nConst CUBEFLD_CCLI = &quot;Cod Cliente&quot;\nConst CUBEFLD_TNOMREP = &quot;Nombre del Cliente&quot;\n\' CUBEFLD_FECENTRE  := &quot;Fecha Entrega&quot;\nConst CUBEFLD_CTIP = &quot;Tipo Documento&quot;\nConst CUBEFLD_NFAC = &quot;Numero Pedido&quot;\nConst CUBEFLD_CARTAG = &quot;Agrup Articulo&quot;\nConst CUBEFLD_DARTAG = &quot;Descripcion Agrupa Articulo&quot;\nConst CUBEFLD_CSUBAG1 = &quot;Sub Agrup Articulo&quot;\nConst CUBEFLD_DSUBAG1 = &quot;Descripcion Sub Agrup Articulo&quot;\nConst CUBEFLD_CCODART = &quot;Cod Articulo&quot;\nConst CUBEFLD_TDESART = &quot;Descripcion Articulo&quot;\nConst CUBEFLD_QCANPED = &quot;Cantidad Bultos&quot;\nConst CUBEFLD_QUMVTA = &quot;Cantida Umed&quot;\nConst CUBEFLD_QIMPORTE = &quot;Importe Soles&quot;\n\n\n\'Const CUBEFLD_C_SUPER = &quot;Supervisor&quot;\n\'Const CUBEFLD_C_PERSO = &quot;Cod Vend&quot;\n\'Const CUBEFLD_D_PERSO = &quot;Nombre Vendedor&quot;\n\'Const CUBEFLD_FECENTRE = &quot;Fecha Entrega&quot;\n\'Const CUBEFLD_CODART = &quot;Cod Articulo&quot;\n\'Const CUBEFLD_DESCRIP = &quot;Nombre Articulo&quot;\n\'Const CUBEFLD_QCANPED = DB_QCANPED\n\'Const CUBEFLD_CANT = DB_CANT\n\n\'Const CUBEFLD_CATEGORY = DB_CATEGORY\n\'Const CUBEFLD_PRODUCT = DB_PRODUCT\n\'Const CUBEFLD_DATE = &quot;Date&quot;\n\'Const CUBEFLD_YEAR = &quot;Year&quot;\n\'Const CUBEFLD_QUARTER = &quot;Quarter&quot;\n\'Const CUBEFLD_MONTH = &quot;Month&quot;\n\'Const CUBEFLD_QUANTITY = DB_QUANTITY\n\'Const CUBEFLD_AMOUNT = DB_AMOUNT\n\n\nConst xCmdSql1 = &quot;SELECT PUB.perscom.c_super AS c_super, PUB.carga.c_perso AS c_perso, PUB.perscom.d_perso AS d_perso, &quot; &amp; vbCrLf &amp; _\n         &quot;PUB.carga.ruta AS ruta, PUB.rutasv.d_ruta AS d_ruta, PUB.carga.idcliente AS idcliente, &quot; &amp; vbCrLf &amp; _\n         &quot;PUB.clientes.nomcli AS nomcli, &quot;\nConst xCmdSql2 = &quot;PUB.carga.iddocumento AS iddocument, PUB.carga.fecentre AS fecentre, PUB.carga.nroped AS nroped, &quot; &amp; vbCrLf &amp; _\n         &quot;PUB.artagru.c_artag AS c_artag, PUB.foragru.d_artag AS d_artag, PUB.artagru.c_subag1 AS c_subag1, &quot; &amp; vbCrLf &amp; _\n         &quot;PUB.subagru1.d_subag1 AS d_subag1, PUB.lincarga.codart AS codart, PUB.articulos.descrip AS descrip, &quot; &amp; vbCrLf &amp; _\n         &quot;(PUB.lincarga.cant * PUB.articulos.resto + PUB.lincarga.resto) / PUB.articulos.resto AS nqbultos, &quot;\nConst xCmdSql3 = &quot;(PUB.lincarga.cant * PUB.articulos.resto + PUB.lincarga.resto) / PUB.articulos.resto * PUB.articulos.valor AS umedstd, &quot; &amp; vbCrLf &amp; _\n         &quot;PUB.lincarga.cant * PUB.lincarga.precio + PUB.lincarga.resto * (PUB.lincarga.precio / PUB.articulos.resto) + PUB.lincarga.iva1 + PUB.lincarga.per212 AS qimporte &quot;\nConst xCmdSql4 = &quot;FROM  PUB.artagru, PUB.foragru, PUB.subagru1, PUB.lincarga, PUB.carga, PUB.articulos, PUB.perscom, PUB.rutasv, PUB.clientes &quot; &amp; vbCrLf &amp; _\n         &quot;WHERE PUB.artagru.c_artag = PUB.foragru.c_artag AND PUB.artagru.c_artag = PUB.subagru1.c_artag AND PUB.artagru.c_subag1 = PUB.subagru1.c_subag1 AND &quot; &amp; vbCrLf &amp; _\n         &quot;PUB.artagru.codart = PUB.articulos.codart AND PUB.lincarga.nroped = PUB.carga.nroped AND PUB.lincarga.codart = PUB.articulos.codart AND &quot;\nConst xCmdSql5 = &quot;PUB.carga.idSucur = PUB.perscom.idSucur AND PUB.carga.c_perso = PUB.perscom.c_perso AND PUB.carga.idSucur = PUB.rutasv.idSucur AND &quot; &amp; vbCrLf &amp; _\n         &quot;PUB.carga.ruta = PUB.rutasv.ruta AND PUB.carga.idSucur = PUB.clientes.idSucur AND PUB.carga.idcliente = PUB.clientes.idcliente AND &quot; &amp; vbCrLf &amp; _\n         &quot;(PUB.artagru.c_artag = 21) AND (PUB.carga.idSucur = 1)&quot;\nConst SQL = xCmdSql1 + xCmdSql2 + xCmdSql3 + xCmdSql4 + xCmdSql5\nDim cCnx As ADODB.Connection\nPrivate CONS As String\n\n\nPrivate Sub ContourCubeX1_BeforeMoveDimension(ByVal ViewDim As CCubeX4.IViewDim, ByVal NewAxis As CCubeX4.TxDimAxis, ByVal NewPos As Long, ByVal Cancel As CCubeX4.IBoolean)\n  Select Case ViewDim.Name\n    Case CUBEFLD_CCODART\n      If NewAxis &lt;&gt; xda_outside Then\n            If NewAxis &lt;&gt; ContourCubeX1.Cube.Dims(CUBEFLD_CCODART).Axis Then\n              Cancel.Value = True\n            Else\n              If NewPos &lt;= ContourCubeX1.Cube.Dims(CUBEFLD_TDESART).Pos Then Cancel.Value = True\n            End If\n      End If\n    Case CUBEFLD_CVEN\n      If NewAxis &lt;&gt; xda_outside Then\n         If NewAxis &lt;&gt; ContourCubeX1.Cube.Dims(CUBEFLD_CVEN).Axis Then\n           Cancel.Value = True\n         Else\n           If NewPos &gt;= ContourCubeX1.Cube.Dims(CUBEFLD_TVEN).Pos Then Cancel.Value = True\n         End If\n      End If\n  End Select\nEnd Sub\n\nPrivate Sub Form_Load()\n   On Error GoTo handler\n   \' Instancio la conexión y me conecto con la base de datos\n   \' ----------------------------------------------------------\n   Set cCnx = New ADODB.Connection\n   cCnx = &quot;DSN=Chessgps;HOST=chess;PORT=2500;DB=distrib;UID=SYSPROGRESS;PWD=ch1573&quot;\n   With cCnx\n     \' Cursor en Cliente para poder usar un DataGrid\n     .CursorLocation = adUseClient\n     \' Abro la conexión con la base de datos usando un DSN\n     .Open cCnx\n   End With\n   ContourCubeX1.BorderStyle = xcbsSingle\n   ContourCubeX1.NULLValueString = &quot;&quot;\n   ContourCubeX1.InactiveDimAreaBkColor = 2\n      \n   \n   With ContourCubeX1.Cube\n     \'Create Dimensions and Facts in cube\n     \' Dimensions initially appeared on verical axis\n     \n     .Dims.Add CUBEFLD_CSUP, DB_CSUP, 5, 2\n     .Dims.Add CUBEFLD_CVEN, DB_CVEN, 5, 2\n     .Dims.Add CUBEFLD_TVEN, DB_TVEN, 1, 2\n     .Dims.Add CUBEFLD_CRUT, DB_CRUT, 5, 2\n     .Dims.Add CUBEFLD_TDESRUT, DB_TDESRUT, 1, 2\n     .Dims.Add CUBEFLD_CCLI, DB_CCLI, 5, 2\n     .Dims.Add CUBEFLD_TNOMREP, DB_TNOMREP, 1, 2\n     \':Dims:Add(CUBEFLD_FECENTRE, DB_FECENTRE, 9, 2)\n     .Dims.Add CUBEFLD_CTIP, DB_CTIP, 1, 2\n     .Dims.Add CUBEFLD_NFAC, DB_NFAC, 5, 2\n     \n     \' Mostrar Fijos Verticales al presentar el Cubo.\n     .Dims.Add CUBEFLD_CARTAG, DB_CARTAG, 5, 0\n     .Dims.Add CUBEFLD_DARTAG, DB_DARTAG, 1, 0\n     .Dims.Add CUBEFLD_CSUBAG1, DB_CSUBAG1, 5, 0\n     .Dims.Add CUBEFLD_DSUBAG1, DB_DSUBAG1, 1, 0\n     .Dims.Add CUBEFLD_CCODART, DB_CCODART, 5, 0\n     .Dims.Add CUBEFLD_TDESART, DB_TDESART, 1, 0\n     \n     \'Cube facts\n     .BaseFacts.Add DB_QCANPED, DB_QCANPED\n     .BaseFacts.Add DB_QUMVTA, DB_QUMVTA\n     .BaseFacts.Add DB_QIMPORTE, DB_QIMPORTE\n       \n     \'Add cube facts to the grid\n     .Facts.Add(CUBEFLD_QCANPED, DB_QCANPED, 1).Caption = &quot;Bultos&quot;\n     .Facts.Add(CUBEFLD_QUMVTA, DB_QUMVTA, 1).Caption = &quot; Cantidad Venta UM &quot;\n     .Facts.Add(CUBEFLD_QIMPORTE, DB_QIMPORTE, 1).Caption = &quot;Importe Bruto&quot;\n\n     \'Populate recordset\n\n     Dim rs As New ADODB.Recordset\n     rs.CursorLocation = adUseClient\n     rs.Open SQL, cCnx, adOpenStatic\n     Set rs.ActiveConnection = Nothing\n\n     \'Activate grid\n\n     \'.Open rs\n   End With\n   ContourCubeX1.Facts(CUBEFLD_QCANPED).Visible = True\n   ContourCubeX1.Facts(CUBEFLD_QCANPED).Appearance.Format = &quot;###,###,##0.00&quot;\n   ContourCubeX1.Facts(CUBEFLD_QUMVTA).Visible = True\n   ContourCubeX1.Facts(CUBEFLD_QUMVTA).Appearance.Format = &quot;###,###,##0.0000&quot;\n   ContourCubeX1.Facts(CUBEFLD_QIMPORTE).Visible = True\n   ContourCubeX1.Facts(CUBEFLD_QIMPORTE).Appearance.Format = &quot;###,###,##0.00&quot;\n   \'ContourCubeX1.FlatStyle = xfs_Flat\n   ContourCubeX1.Cube.Open rs\n \n   \n   infoBox.Text = info\n Exit Sub\n    \nhandler:\n  MsgBox (&quot;Error: &quot; &amp; Err.Description)\n  End\nEnd Sub\n\nPrivate Sub Form_Resize()\n    ContourCubeX1.Move 0, Image1.Height, Me.ScaleWidth, Me.ScaleHeight - Image1.Height - infoBox.Height\n    With Image2\n        .Left = Image1.Width\n        .Width = IIf((Me.Width - Image1.Width) &gt; 0, Me.Width - Image1.Width, 0)\n    End With\n    With infoBox\n        .Top = Image1.Height + ContourCubeX1.Height\n        .Width = ContourCubeX1.Width\n        .Left = 0\n    End With\nEnd Sub\n[/code]\n\nSaludos.\nAtte.\nLucho Montero.\nLima - Perú.\n------------------------------------------------------------------------\nFW 12.04 + xHarbour 1.2.3 + Borland 5.8.2'),(577,1711,0,3,1435804569,'How to combine (or use) SDK dll into Fivewin HB/XHB?','Hello every experts!\n\nI have limited experience with Fivewin.\n\nI am trying to build-up telephone CID(Caller Identification) program with SDK published by phone company.\n\n[color=#FFBF40]How Can I use this dll in FWH harbour/xHarbour?[/color]\nPleae help me...!\n\n[color=#BFFFBF][u]They mentioned to register their DLL ( KTOpenAPI.dll) as followings.[/u][/color]\n-----------------------------------------------------------------------------------  \n regsvr32 KTOpenAPI.dll\n\n[color=#BFFF80][u] And and in MSC Sharp sample were as followings[/u][/color]\n\nMain.cs\n\nusing System;\nusing System.Collections.Generic;\nusing System.Linq;\nusing System.Windows.Forms;\n\nnamespace KTOpenAPICSharpSample\n{\n    static class Program\n    {\n        /// &lt;summary&gt;\n        /// &lt;/summary&gt;\n        [STAThread]\n        static void Main()\n        {\n            Application.EnableVisualStyles();\n            Application.SetCompatibleTextRenderingDefault(false);\n            Application.Run(new OpenAPI());\n        }\n    }\n}\n\n-------------------------------------------------------------------------\nForm.cs\n\nusing System;\nusing System.Collections.Generic;\nusing System.ComponentModel;\nusing System.Data;\nusing System.Drawing;\nusing System.Linq;\nusing System.Text;\nusing System.Windows.Forms;\nusing System.Reflection;\nusing System.Runtime.InteropServices;\nusing KTPCBizLib;\n\nnamespace KTOpenAPICSharpSample\n{\n    public partial class OpenAPI : Form\n    {\n        protected bool bLogin = false;\n        protected bool bAlreayLogined = false;\n        protected string strCONCaller = &quot;&quot;;\n        protected bool bCONCalling = false;\n\n        public OpenAPI()\n        {\n            InitializeComponent();\n\n            textAuthKey.Text = &quot;AuthKey Please&quot;;\n            textUserID.Text = &quot;ID Input&quot;;\n            textUserPW.Text = &quot;Password Input&quot;;\n            textServerType.Text = &quot;0&quot;;\n\n            textCalleeNumber.Text = &quot;&quot;;\n\n            comboMemoType.Items.Add(&quot;Private Memo&quot;);\n            comboMemoType.Items.Add(&quot;Common Memo&quot;);\n            comboMemoType.SelectedIndex = 1;\n\n            comboGrouptype.Items.Add(&quot;Private Group&quot;);\n            comboGrouptype.Items.Add(&quot;Common Group&quot;);\n            comboGrouptype.SelectedIndex = 1;\n\n            comboCallType.Items.Add(&quot;All&quot;);\n            comboCallType.Items.Add(&quot;Send&quot;);\n            comboCallType.Items.Add(&quot;Receive&quot;);\n            comboCallType.Items.Add(&quot;Absent&quot;);\n            comboCallType.Items.Add(&quot;Fail&quot;);\n            comboCallType.Items.Add(&quot;Reserve&quot;);\n            comboCallType.Items.Add(&quot;Mobile&quot;);\n            comboCallType.SelectedIndex = 0;\n\n            comboSmsType.Items.Add(&quot;All&quot;);\n            comboSmsType.Items.Add(&quot;Send&quot;);\n            comboSmsType.Items.Add(&quot;Receive&quot;);\n            comboSmsType.Items.Add(&quot;Absent&quot;);\n            comboSmsType.Items.Add(&quot;Fail&quot;);\n            comboSmsType.Items.Add(&quot;Reserve&quot;);\n            comboSmsType.Items.Add(&quot;Mobile&quot;);\n            comboSmsType.SelectedIndex = 0;\n\n            comboAdBirthdaytype.Items.Add(&quot;Lunar&quot;);\n            comboAdBirthdaytype.Items.Add(&quot;Calendar&quot;);\n            comboAdBirthdaytype.SelectedIndex = 1;\n\n            comboAdType.Items.Add(&quot;Private User&quot;);\n            comboAdType.Items.Add(&quot;Common User&quot;);\n            comboAdType.SelectedIndex = 1;\n\n            cbState.SelectedIndex = 0;\n\n        }\n\n        /// &lt;summary&gt;\n        /// Login\n        /// &lt;/summary&gt;\n        /// &lt;param name=&quot;sender&quot;&gt;&lt;/param&gt;\n        /// &lt;param name=&quot;e&quot;&gt;&lt;/param&gt;\n        private void btnLogin_Click(object sender, EventArgs e)\n        {\n            if (textAuthKey.TextLength == 0 ||\n                textUserID.TextLength == 0 ||\n                textUserPW.TextLength == 0 ||\n                textServerType.TextLength == 0 )\n            {\n                MessageBox.Show(&quot;Lack of Login Data!!&quot;);\n                return;\n            }\n\n            int nLoginResult = axKTPCBizX1.Login(Convert.ToInt32(textServerType.Text),\n                                                textAuthKey.Text,\n                                                textUserID.Text,\n                                                textUserPW.Text);\n\n\n            switch (nLoginResult)\n            {\n                case 200 :\n                    textConnectState.Text = &quot;Connected!&quot;;\n                    break;\n                case 301 :\n                    textConnectState.Text = &quot;Double Login at another PC&quot;;\n                    bAlreayLogined = true;\n                    break;\n                case 0 :\n                default :\n                    textConnectState.Text = &quot;Failure&quot;;\n                    break;\n            }\n        }'),(578,1711,31014,3,1436171656,'Re: How to combine (or use) SDK dll into Fivewin HB/XHB?','Dear Mr.Antonio Linares\n\n Would you kindly upload or email to me  KTOpenAPI.h and KTOpenAPI_i.c?\n\n I am not a expert  :oops: to create those things.\n\nThanks.\n\nY.W.Kim'),(590,179,31233,6,1440195594,'Re: ot:atascado con resedit','Abrian muchas gracias\nTu ejemplo me funciona perfecto\nvoy a seguir con las pruebas\naprovenchando tendas unos rc\'s con dialogso incrustados folders ?\nte agradeceria un monton ando perdido con esto siempre he hecho la parte grafica con workshop de 16 bits que funcionaba perfecto\nGracias por tu tiempo\n\nsaludos\n\n\nWilson'),(580,2232,29694,3,1438188696,'Re: Xbrowse ToExcel Error','Después de probar varias de las respuestas, pude hallar el problema.\n\n Localiza OleFuncs.prg\n\nIr a function ExcelTranslate( cFunc )\n\nModificar el arreglo\n\n aTranslates := { ;\n   { &quot;TRUE&quot;,      &quot;VERDADERO&quot;,   &quot;VRAI&quot;,        &quot;VERDADEIRO&quot;, &quot;WAHR&quot;,          &quot;VERO&quot; }, ;\n   { &quot;FALSE&quot;,     &quot;FALSO&quot;,       &quot;FAUX&quot;,        &quot;FALSO&quot;,      &quot;FALSCH&quot;,        &quot;FALSO&quot; }, ;\n   { &quot;SUM(&quot;,      &quot;SUMA(&quot;,       &quot;SOMME(&quot;,      &quot;SOMA(&quot;,      &quot;SUMME(&quot;,        &quot;SOMMA(&quot; }, ;\n   { &quot;SUBTOTAL(&quot;, &quot;SUBTOTALES(&quot;, &quot;SOUS.TOTAL(&quot;, &quot;SUBTOTAL(&quot;,  &quot;TEILERGEBNIS(&quot;, &quot;SUBTOTALE(&quot; }, ;\n   { \',\',         \';\',           \';\',           \';\',          \';\',              \';\' } ;\n   }\n\ncon\n\n aTranslates := { ;\n   { &quot;TRUE&quot;,      &quot;VERDADERO&quot;,   &quot;VRAI&quot;,        &quot;VERDADEIRO&quot;, &quot;WAHR&quot;,          &quot;VERO&quot; }, ;\n   { &quot;FALSE&quot;,     &quot;FALSO&quot;,       &quot;FAUX&quot;,        &quot;FALSO&quot;,      &quot;FALSCH&quot;,        &quot;FALSO&quot; }, ;\n   { &quot;SUM(&quot;,      &quot;SUMA(&quot;,       &quot;SOMME(&quot;,      &quot;SOMA(&quot;,      &quot;SUMME(&quot;,        &quot;SOMMA(&quot; }, ;\n   { &quot;SUBTOTAL(&quot;, &quot;SUBTOTALES(&quot;, &quot;SOUS.TOTAL(&quot;, &quot;SUBTOTAL(&quot;,  &quot;TEILERGEBNIS(&quot;, &quot;SUBTOTALE(&quot; }, ;\n   { \',\',         \',\',           \';\',           \';\',          \';\',              \';\' } ;\n   }\n\ny la solución se da, ya que en xbrowse utiliza está función para trasladar a Excel la formula que se está usando.\n\nEspero sea de utilidad y no olviden añadir OleFunc.prg a su aplicación en el momento de compilar.\n\nSaludos'),(581,2232,29694,3,1438188983,'Re: Xbrowse ToExcel Error','Después de probar varias de las respuestas, pude hallar el problema.\n\n Localiza OleFuncs.prg\n\nIr a function ExcelTranslate( cFunc )\n\nModificar el arreglo\n\n aTranslates := { ;\n   { &quot;TRUE&quot;,      &quot;VERDADERO&quot;,   &quot;VRAI&quot;,        &quot;VERDADEIRO&quot;, &quot;WAHR&quot;,          &quot;VERO&quot; }, ;\n   { &quot;FALSE&quot;,     &quot;FALSO&quot;,       &quot;FAUX&quot;,        &quot;FALSO&quot;,      &quot;FALSCH&quot;,        &quot;FALSO&quot; }, ;\n   { &quot;SUM(&quot;,      &quot;SUMA(&quot;,       &quot;SOMME(&quot;,      &quot;SOMA(&quot;,      &quot;SUMME(&quot;,        &quot;SOMMA(&quot; }, ;\n   { &quot;SUBTOTAL(&quot;, &quot;SUBTOTALES(&quot;, &quot;SOUS.TOTAL(&quot;, &quot;SUBTOTAL(&quot;,  &quot;TEILERGEBNIS(&quot;, &quot;SUBTOTALE(&quot; }, ;\n   { \',\',         \';\',           \';\',           \';\',          \';\',              \';\' } ;\n   }\n\ncon\n\n aTranslates := { ;\n   { &quot;TRUE&quot;,      &quot;VERDADERO&quot;,   &quot;VRAI&quot;,        &quot;VERDADEIRO&quot;, &quot;WAHR&quot;,          &quot;VERO&quot; }, ;\n   { &quot;FALSE&quot;,     &quot;FALSO&quot;,       &quot;FAUX&quot;,        &quot;FALSO&quot;,      &quot;FALSCH&quot;,        &quot;FALSO&quot; }, ;\n   { &quot;SUM(&quot;,      &quot;SUMA(&quot;,       &quot;SOMME(&quot;,      &quot;SOMA(&quot;,      &quot;SUMME(&quot;,        &quot;SOMMA(&quot; }, ;\n   { &quot;SUBTOTAL(&quot;, &quot;SUBTOTALES(&quot;, &quot;SOUS.TOTAL(&quot;, &quot;SUBTOTAL(&quot;,  &quot;TEILERGEBNIS(&quot;, &quot;SUBTOTALE(&quot; }, ;\n   { \',\',         \',\',           \';\',           \';\',          \';\',              \';\' } ;\n   }\n\ny la solución se da, ya que en xbrowse utiliza está función para trasladar a Excel la formula que se está usando.\n\nEspero sea de utilidad y no olviden añadir OleFunc.prg a su aplicación en el momento de compilar.\n\nSaludos'),(583,3290,0,3,1438788930,'advantage database server (ADS)','Hello,\nI\'am trying to write a temporarly database in DBF format by using the following select\nSelect * INTO tempdbf from ...\nDoing this TEMPDBF is created as tempdbf.adt (d.i. the ADS format), but not in DBF format. TEMPDBF is [u]not[/u] part of the data dictionary (DD). \nDoes anxybody knows how I can force it to receive a DBF Table.\nwith kind regards Hoschik'),(584,3290,0,23,1438796188,'Create TEMP.DBF with ADS','Hallo,\nI\'am trying to create a new DBF Table by using Select * INTO tempdbf from ...\nwithin the advantage database server (ADS from Sybase). The Temdbf is not within the data dictionary (DD). When doing this a TEMPDBF.adt is created, but not a TEMDBF.dbf \nDoes anybody knows how I can force it.\nwith regards Hoschik'),(585,39,0,6,1439232573,'[Off Topic ] Necesito mas programadores !!!','Hola a Todos,\n\nAntes que todo, mis disculpas por el off-topic y si causa molestias favor remover.\n\nPara un proyecto en el cual estoy trabajando necesito mas programadores, tengo que desarrollar un modulo de compras sencillo y tengo US$1.000.- de presupuesto.\n\nEl modulo debe ser desarrollado en harbour + qtcontribs + QT 5.4 y usando mysql a traves de la clase tmysql de harbour o con tdolphin.\n\nfavor hacer llegar curriculums a lautaro punto moreira arroba gmail punto com ( reemplazar &quot; punto &quot; con &quot;.&quot; y &quot; arroba &quot; con @ )\n\n\nGracias.\n\n\n-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\n\nHi Everyone,\n\nFor a project in which I\'m working I need more programmers, I have to develop a module for simple shopping and have US $ 1,000 budget.\n\nThe module should be developed in harbor + qtcontribs + QT 5.4 and using MySQL over the harbor tmysql class or tdolphin.\n\nPlease do get resumes to lautaro moreira point at gmail dot com (replace &quot;dot&quot; with &quot;.&quot; and &quot;at&quot; with @)\n\n\nThanks,\n\n\n\nLautaro Moreira'),(586,1432,0,32,1439475581,'dbf / sql remoto','Hi, I would ask you Use clean with FiveTouch dbf remote type 82010.10.1 use \\\\ \\ data \\ client.dbf?\nand use remote sql select * from customers?\nYou could post some sample connection sql\nInsert, update, select, etc..\nThank you so much in advance\n\nItaliano\nSalve, Vorrei chiedere è possibile utilizare con FiveTouch dbf remoti tipo use \\\\82010.10.1\\data\\client.dbf?\ne utilizzare sql remoto  select * from clienti?\nSi potrebbe postare qualche esempio di connessione sql\nInsert, update, select ecc.\nGrazie mille anticipatamente'),(588,534,31223,6,1440022899,'Re: Soy nueva en este foro','rosa te paso un manual de fivewin  no es nuevo pero espero que para comprender su metologia te sirva .   \n\n\nhttps://www.dropbox.com/s/xhbwms3cqdew2q9/FIVEWIN.PDF?dl=0\n\n\n\np.d. no es mio y espero que el legitimo dueño no le importe si no retirare el enlace'),(592,1397,31189,6,1440398789,'Re: Problemas de alineación con xBrowse','Hola buenos dias\n\nPrueba cambiando bStrData por bEditValue\n\nTodos mis xBrowse los uso asi con ADO y trabajan bien'),(593,1317,31276,3,1441200110,'Re: dbf at Microsoft OneDrive','Aljoscha,\n\nPerhaps, may solve if installed NetDrive.\n[url]http://www.netdrive.net[/url]\nYou try.'),(594,1711,31284,3,1441379221,'Re: How can I correct Korean Alphabet broken in calling MSSQL ?','Thanks for your supports, Mr.Antonio Linares, Mr.Rick Lipkin\n\n Here I enclose two screen captures..\n[code=fw]cSQL := &quot;SELECT code, icode,num, name FROM CD_PERSON where num like \'580313%\' &quot;\noRs:Open( cSQL, oCn )\n? oRs:Fields(&quot;paname&quot;):Value\n [/code]\n\n** I did query with numeric code field \'num\', since Korean alphabet &quot;Name&quot; generate error...\n\nResult was\n[url]http://pharmalink.kr/images/num_no.jpg[/url]\n\n[code=fw]cSQL := &quot;SELECT code, icode,num, name FROM CD_PERSON where num like \'580313%\' &quot;\noRs:Open( cSQL, oCn )\nxBrowse(oRs)\n [/code]\n\nResult was\n[url]http://pharmalink.kr/images/num_Xbrow.jpg[/url]\n\nWhen I did Query with Name field(Korean alphabet), the error message was\n\n[code=fw]Application\n===========\n   Path and name: E:\\FWH\\FWH32\\samples\\mssql11.exe (32 bits)\n   Size: 3,106,304 bytes\n   Compiler version: Harbour 3.2.0dev (r1501292255)\n   FiveWin  Version: FWH 15.05\n   Windows version: 6.2, Build 9200 \n\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 09/04/15, 23:34:21\n   Error description: (DOS Error -2147352567) WINOLE/1007  BOF or EOF was .t. , or current record was deleted. &quot;Current record&quot; is required for requested work.. (0x800A0BCD): ADODB.Field\n\nStack Calls\n===========\n   Called from:  =&gt; TOLEAUTO:VALUE( 0 )\n   Called from: mssql11.prg =&gt; MAIN( 22 )\n\nSystem\n======\n   CPU type: Intel(R) Core(TM) i5-3317U CPU @ 1.70GHz 1700 Mhz\n   Hardware memory: 3718 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Windows total applications running: 6\n      1 ,                                                                                                     \n      2 , C:\\Program Files (x86)\\Samsung\\Settings\\CmdServer\\WinCRT.dll                                        \n      3 , C:\\windows\\WinSxS\\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.9200.16658_none_bf135 \n      4 DDE Server Window, C:\\windows\\SYSTEM32\\OLE32.DLL                                                                       \n      5 GDI+ Window, C:\\windows\\WinSxS\\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.9200.16518_none_ba1cf6b7e09f19 \n      6 작업 전환, E:\\FWH\\FWH32\\samples\\mssql11.exe                                                                    \n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TOLEAUTO:VALUE\n     Param   1:    O    Class: ERROR\n   MAIN\n     Local   1:    U    \n     Local   2:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 ERROR\n     2 HBCLASS\n     3 HBOBJECT\n     4 WIN_OLEAUTO\n     5 TOLEAUTO\n     6 TREG32\n\nMemory Analysis\n===============\n      324 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z[/code]\n\nHope to be helpful in understanding error.\n\nThanks.'),(595,1711,31348,3,1442755038,'Re: Can I show My Dialg Window in front of any other window?','Mr. Carlos vargas,\n\n Thanks for your post..\n\n But, in my case, I hope to show my new Dialog to be shown in front of other windows, as soon as generated...\n\n [code]\n   DEFINE BRUSH oBrush COLOR CLR_BLUE \n   DEFINE DIALOG oDlg ;\n      FROM 0, nPos TO 132, nPos+370 ;\n      STYLE WS_POPUP ;\n      BRUSH oBrush PIXEL\n\n      @ 19, 148  BUTTON &quot;Refuse(&amp;X)&quot; OF oDlg SIZE 30, 10   action  (nDap:=200, oDlg:end()) PIXEL       \n\n   ACTIVATE DIALOG oDlg ;\n      ON PAINT ( PalBmpDraw( oDlg:hDC, 0, 0, oBmp2:hBitmap, 0, 0, 0, SRCPAINT ),;\n                 PalBmpDraw( oDlg:hDC, 0, 0, oBmp1:hBitmap, 0, 0, 0, SRCAND ) ,;\n                 oDlg:Say( 43,147, aInfo[1,3],,, oFont,.t. ) ,oDlg:Say( 57, 147, aInfo[1,4],,, oFont, .T. ))  ; \n	    ON LEFT CLICK (nDap:=100, oDlg:End()) ;\n            ON INIT  SetTransparent( oDlg )                      //----------------Now...\n\n         // ON INIT ( SetTransparent( oDlg ),	SetWindowPos( oDlg:hWnd, 0   , oDlg:nTop, oDlg:nLeft, 370, 132 ) )   //----&gt; No change..\n          //ON INIT  ( SetTransparent( oDlg ), SetForeGroundWindow( oDlg:hWnd ) )  //----? No Change also...\n[/code]\n\nAdvise... please!!'),(596,292,31410,6,1443805797,'Re: Dialogo sin titulo','Carlos\nGracias, funciona bien, necesito que sea MODAL'),(597,223,31421,33,1444159092,'Re: Te gusta FiveWin ? Consigue un FiveTouch gratis!!!','Eu vivo FiveWin :)\n\nVagner.wirts@gmail.com'),(598,1432,31420,32,1444235444,'Re: Do you like FiveWin ? Like it and get a free FiveTouch!!!','XFOOD@LIBERO.IT\n_TOMRAIDER@LIVE.IT\nGRAZIE'),(599,974,0,6,1444263497,'desativar  somente o teclado numérico...','Como desabilitar o teclado numérico sem desabilitar a pistola de leitura de código de barras? alguém pode dar uma mãozinha aê?\nExperimentei o codigo abaixo:\n   For i=96 to 105 // 0..9 - ok\n       SetKey( i, { || NIL } )\n   Next\nmas isso desabilita também o leitor de codigo de barras. quero só o teclado numerico...\nalguma ajuda?'),(600,991,31420,32,1444333433,'Re: Do you like FiveWin ? Like it and get a free FiveTouch!!!','Olá Antonio,\n\nVocê poderia me enviar uma cópia também? \n\noliveiros.jr@uol.com.br\n\nAtt.,\n\nOliveiros Junior'),(601,267,31369,6,1445631743,'Re: Abrir archivos FDB','Amigos,\n\nEstoy probando el código y funcionó bien.  A menos que se coloca un campo de tipo fecha en la Query.\n\nEx:  oQuery := oServer:Query(&quot;SELECT id_ponto,nosso_numero,data_emissao FROM BOLETO_BANCARIO&quot;)\n\nSempre gera um erro -206. ¿Alguna idea de cómo resolver esto?'),(602,3248,31582,6,1447910641,'Re: Cómo poner color a control GET con campo MEMO?','Olá Amigo,\n\nTente:\n\nredefine Get aoGetsBem[04] var aDadosBem[04]   MEMO             id 204 of oFld:aDialogs[6] update COLORS nRgb(0,0,220),nRgb(253,252,213)                           \naoGetsBem[04]:bLostFocus := { || aoGetsBem[04]:SetColor( CLR_BLACK, CLR_WHITE) }\naoGetsBem[04]:bGotFocus  := { || aoGetsBem[04]:SetColor( CLR_BLACK, nRGB( 255,255,45 )), aoGetsBem[04]:setsel(0,0), aoGetsBas[12]:setpos(0) }\naoGetsBem[04]:cToolTip := \'Informe a Descrição do BEM (Ex: Imóvel na Rua São Paulo, 23 - Bairro Centro)\'\n\n\nUm abraço,\n\nAlexandre Pereira'),(603,2983,0,3,1450189933,'TTOC() on SQL DateTime Field','Hi, \n\nI am having problems showing the time element of a SQL DateTime field. \n\nI am using TTOC(Datetimefieldname) in trying to display in a browse window, and I am getting the Date showing, but not the time? \n\nTTOC(WAYBILLR-&gt;Delivery_EstimatedDeliveryTime)\n\nWhat am I missing?'),(604,89,31772,3,1451915683,'Re: New FWH 15.12','hello \nI have this error Compiling menu0002.prg \n\nLines 5464, Functions/Procedures 2\nGenerating C source output to \'menu0002.c\'... Done.\nEmbarcadero C++ 7.00 for Win32 Copyright (c) 1993-2015 Embarcadero Technologies, Inc.\nmenu0002.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\n\nError prsht.h 960 1: \'#endif\' before \'#if\'\n* Linking errors *\n\nMaurizio'),(605,924,31810,20,1453131784,'Re: Cifratura Codice Fiscale','Ho trovato questo esempio in C e C++\n\n\n  http://www.disi.unige.it/person/FerranteM/DM27072005/#c\n\n\n\nqualcuno sa come funziona e come posso usarlo in Fivewin32/Harbour  ultima versione ?\n\nGrazie'),(606,924,0,20,1453309112,'wmf2emf problemi in compilazione','Ciao\nHo un esempio, forse tuo, che non riesco a compilare con FWH 15.12\n\nContinua a dirmi che non trova il file FWHARB.H, eppure l\'ho copiato anche nella cartella.\n\nUn aiutino ?\n\nBCC7\nHarbour  3.20dev\n\nGrazie\n\n**** WMF2EMF.PRG\n*\n#pragma BEGINDUMP\n\n#include &quot;WinTen.h&quot;\n#include &quot;Windows.h&quot;\n#include &quot;HbApi.h&quot;\n#include &quot;ClipApi.h&quot;\n\n#include &lt;windows.h&gt;\n\n\nHB_FUNC( WMFTOEMF )  // ( cWmf, cEmf )\n{\n    HMETAFILE hWMF = GetMetaFile( hb_parc( 1 ) );\n\n    UINT nSize = GetMetaFileBitsEx( hWMF, 0, NULL );\n\n    LPVOID lpvData = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, nSize );\n\n    HENHMETAFILE hEMF, hEMF2;\n\n    GetMetaFileBitsEx( hWMF, nSize, lpvData );\n\n    hEMF = SetWinMetaFileBits( nSize, lpvData, 0, NULL );\n\n    HeapFree( GetProcessHeap(), 0, lpvData );\n\n    hEMF2 = CopyEnhMetaFile( hEMF, hb_parc( 2 ) );\n\n    DeleteEnhMetaFile( hEMF );\n    DeleteEnhMetaFile( hEMF2 );\n\n    DeleteMetaFile( hWMF );\n}\n\n\Z*'),(607,3290,0,23,1453459631,'API xHarbour 1.2.1 to Word','Hello,\nI\'m using the WORD API creating an objekt for filling bookmarks with data. It\'s written so:\n 	oWord := CreateObject( &quot;Word.Application&quot; )\nNow I\'d like to implement an OpenOffice API (i.e. Apache). \nDoes anybody have experiences with that and knows the statement to Create an object for OpenOffice? I hope it\'s supported by xHarbour\nWith kind regards \nHoschik'),(608,1561,31854,3,1453736194,'Re: New FWH 16.01','Good afternoon.\n\nI looked like the following screen:\n\nThe first was compiled with FWH1502.\n\n[img]http://www.salc.com.br/atual/fwh1502.jpg[/img]\n\nAnd second with FWH1512.\n\n[img]http://www.salc.com.br/atual/fwh1512.jpg[/img]\n\n\n[img]http://www.salc.com.br/atual/fwh1512.jpg[/img]\n\n\n\nYou see the mask editing \'E 999,999.99\' works correctly in version 1502 and does not work in version 1512, I am using REDEFINES SAY command, as below:\n\n[code=fw]\nredefines SAY osay_troco VAR vtroco picture \'@E 999,999.99 &quot;ID 303 of odlg_pag UPDATE FONT COLOR oFont_Troco _CORPADVEN2, _CORPADRAO\nosay_troco: ltransparent: = .t.\n[/code]\n\nThis problem has already been resolved in version 16.1, or if not how can I fix?\n\n\nThanks,'),(609,147,31426,6,1456828891,'Re: Warning: Error detected (LME288)','Hola Gente\nEstoy teniendo este problema\nHice unas cuantas compilaciones sin problemas. Hasta que sin mas comenzó el problema\nborre los \\Temp\nborre el .res\nUso UEStudio (genera el .res)\nEl problema persiste'),(612,1886,31569,3,1461082216,'Re: ADORDD FAQs','Este caso este también reportado aquí pero paso la prueba que acabo de hacer\nhttp://fivetechsupport.com/forums/viewtopic.php?f=6&amp;t=6815&amp;start=255\n\n[b]Codigo para adoddr SET[/b]\n-------------------------------------------------------\nfunction Main()\n     local oErr\n\n   SET RESOURCES TO &quot;OBRAS32.DLL&quot;\n\n   INI oIni FILE &quot;.\\Obras32.ini&quot;\n\n       GET IniPath SECTION &quot;Archivos&quot; ENTRY &quot;Path&quot;   OF oIni\n       GET cRddDrv SECTION &quot;Archivos&quot; ENTRY &quot;RddDrv&quot; OF oIni\n       GET cCopias SECTION &quot;Archivos&quot; ENTRY &quot;Copias&quot; OF oIni\n\n   RddRegister(&quot;ADORDD&quot;,1)\n   RddSetDefault(&quot;ADORDD&quot;)\n\n   SET ADO TEMPORAY NAMES INDEX LIST TO {&quot;TMP&quot;,&quot;TEMP&quot;}    \n   SET ADO DEFAULT RECNO FIELD TO &quot;id&quot;\n\n   Try\n     SET ADO DEFAULT DATABASE TO &quot;empre01&quot; SERVER TO &quot;localhost&quot; ENGINE TO &quot;MYSQL&quot; USER TO &quot;obras&quot; PASSWORD TO &quot;angel&quot;\n     MsgInfo( ADOVERSION() )\n   Catch oErr\n     Alert (&quot;No puedo abrir MySql&quot;)\n   End\n\n   cEmpresa := &quot;APUNTES&quot;\n\n   SELE 0\n   Alert (&quot;Antes de use&quot;)\n   USE  (cEmpresa) alias  &quot;APUNTES&quot; \n   SELE APUNTES\n   Alert (&quot;Despues de use&quot;)\n\n   browse()\n   Alert (&quot;Despues de browse&quot;)\n\n//   \n-----------------------------------------------\n\n[b]Resultado de error.log[/b]\n------------------------------------------------\nApplication\n===========\n   Path and name: D:\\OBRAS32\\Obras32.exe (32 bits)\n   Size: 3,695,616 bytes\n   Compiler version: Harbour 3.2.0dev (r1601050904)\n   FiveWin  Version: FWH 16.03\n   Windows version: 6.2, Build 9200 \n\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 04/19/16, 17:53:40\n   Error description: Warning /0  \n\nStack Calls\n===========\n   Called from: .\\SOURCE\\adordd.PRG =&gt; ADO_OPEN( 0 )\n   Called from:  =&gt; DBUSEAREA( 0 )\n   Called from: .\\SOURCE\\Obras32.PRG =&gt; MAIN( 0 )\n\nSystem\n======\n   CPU type: AMD Turion(tm) 64 X2 Mobile Technology TL-60 2000 Mhz\n   Hardware memory:       3839 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Windows total applications running: 6\n      1 ,                                                                                                     \n      2 , C:\\WINDOWS\\SYSTEM32\\shcore.dll                                                                      \n      3 , C:\\WINDOWS\\WinSxS\\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.10240.16384_none_3bccb \n      4 , D:\\OBRAS32\\Obras32.exe                                                                              \n      5 DDE Server Window, C:\\WINDOWS\\SYSTEM32\\OLE32.DLL                                                                       \n      6 GDI+ Window, C:\\WINDOWS\\WinSxS\\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.10240.16603_none_d15a3826af6dc \n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   ADO_OPEN\n     Param   1:    O    Class: ERROR\n   DBUSEAREA\n     Param   1:    N             1\n     Param   2:    A    Len:    8\n     Local   1:    A    Len:   42\n     Local   2:    U    NIL\n     Local   3:    A    Len:    5\n     Local   4:    U    NIL\n     Local   5:    N             0\n     Local   6:    O    Class: TOLEAUTO\n     Local   7:    N            10\n     Local   8:    N            11\n   MAIN\n     Param   1:    L    .F.\n     Param   2:    U    NIL\n     Param   3:    C    &quot;APUNTES&quot;\n     Param   4:    C    &quot;APUNTES&quot;\n     Param   5:    U    NIL\n     Param   6:    L    .F.\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n   ADORDD\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 ERROR\n     2 HBCLASS\n     3 HBOBJECT\n     4 TINI\n     5 WIN_OLEAUTO\n     6 TOLEAUTO\n     7 TFONT\n     8 TWINDOW\n     9 TDIALOG\n    10 TBRUSH\n    11 TCONTROL\n    12 TICON\n    13 TMULTIGET\n    14 TBUTTON\n    15 TRECT\n    16 TREG32\n\nMemory Analysis\n===============\n      1810 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z--------------------------------------------\n\nPantallazos de la versión      MsgInfo( ADOVERSION() ) y de la tabla en MySql con la estructura contenido etc...\n-------------------------------------'),(613,1010,0,6,1461087041,'Conocer el Numero de IP','Amigos....\n\nComo Conocer el Numero de IP de la PC\n\ndavid'),(615,2949,31741,3,1461845122,'Re: FWH64','Antonio,\n\nReally my installation had a problem, but after reinstalling , this error is generated:\n\n┌────────────────────────────────────────────────────────────────────────────┐\n│ FWH 64 for Harbour 14.08 (MSVC++) Aug.2014       Harbour development power │▄\n│ (c) FiveTech, 1993-2014   for Microsoft Windows 9X/NT/200X/ME/XP/Vista/7/8 │█\n└────────────────────────────────────────────────────────────────────────────┘█\n  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀\nCompiling...\nHarbour 3.2.0dev (r1412151448)\nCopyright (c) 1999-2014, http://harbour-project.org/\nCompiling \'tutor02.prg\' and generating preprocessed output to \'tutor02.ppo\'...\nLines 4261, Functions/Procedures 1\nGenerating C source output to \'tutor02.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 19.00.23918 for x64\nCopyright (C) Microsoft Corporation.  All rights reserved.\n\ntutor02.c\nMicrosoft (R) Windows (R) Resource Compiler Version 10.0.10011.16384\nCopyright (C) Microsoft Corporation.  All rights reserved.\n\nFiveH64.lib(HARBOUR.obj) : error LNK2019: unresolved external symbol __iob_func referenced in function HB_FUN_FREOPEN_STDERR\nFiveHC64.lib(FWPNG.obj) : error LNK2019: unresolved external symbol png_init_io referenced in function save_png_to_file\ntutor02.exe : fatal error LNK1120: 2 unresolved externals\n* Linking errors *\n\nThanks'),(616,73,32475,6,1464127603,'Re: SETCHECK EN XBROWSE CON QUERY MYSQL','Jose Luis,\n\nAsi lo hago yo:\n\n      aoCols[6] := oBrw:AddCol()\n      aoCols[6]:nWidth          := 26\n      aoCols[6]:cHeader         := &quot;CxC&quot;\n      aoCols[6]:AddBmpHandle( &quot;Chk_T&quot; )\n      aoCols[6]:AddBmpHandle( &quot;Chk_F&quot; )\n      aoCols[6]:bBmpData        := {|| IF(oQry:FieldGet(&quot;escxc&quot;), 1, 2) }\n      aoCols[6]:nDataStrAlign   := AL_CENTER\n      aoCols[6]:nHeadStrAlign   := AL_CENTER\n\nSaludos'),(617,933,32383,3,1464787789,'Re: Working With Visual Studio 2015 and FWH / Harbour','Hi to all, i get many errors something like this:\n\n[code]Gravedad	Código	Descripción	Proyecto	Archivo	Línea	Estado de supresión\nError	LNK2019	símbolo externo _GdipAlloc@4 sin resolver al que se hace referencia en la función &quot;public: static void * __cdecl Gdiplus::GdiplusBase::operator new(unsigned int)&quot; (??2GdiplusBase@Gdiplus@@SAPAXI@Z)	Win32Project1	C:\\Users\\vmarimon\\Documents\\Visual Studio 2015\\Projects\\Win32Project1\\Win32Project1\\FiveHC32.lib(GDIPFWH.obj)	1	\n[/code]\n\n\nMaybe any lib more to add to project?\n\nMany Thx.\n\nP.D: FiveWin 1604'),(618,1726,32170,3,1464802086,'Re: Webservices','Hola Thefull...\n\nFunciono perfecto mil gracias por tu ayuda... dejo el codigo funcionando..\n\n#include &quot;fivewin.ch&quot;\ndoc = CreateObject( &quot;MSXML2.DOMDocument&quot; )\nohttp = CreateObject( &quot;MSXML2.XMLHTTP&quot; )\nohttp:Open( &quot;POST&quot; ,&quot;https://www.nubefact.com/api/beta/invoices&quot;,.F.)\noHttp:SetRequestHeader(&quot;cache-control&quot;, &quot;no-cache&quot;)\nohttp:SetRequestHeader(&quot;content-type&quot;, &quot;application/json&quot; )\nohttp:SetRequestHeader(&quot;authorization&quot;, &quot;Token token=14ea9eac34ba4y8bb3f94ae309c3a03a17180f747ead46029014eff1a453922d&quot; )\nCtext:=MEMOREAD(&quot;dioni.json&quot;)\n?ctext     //ver lo que se envia\nTRY\nohttp:Send( cText )\nCATCH\nmsginfo(&quot;No Se Pudo Enviar Documento JSON&quot;,&quot;Intente Nuevamente&quot;)\nreturn .t.\nEND\nresponse:=ohttp:responseText\nMemowrit( \'SendVentasCli_Res.json\',Response)\nCtext1:=MEMOREAD(&quot;SendVentasCli_Res.json&quot;)\n?ctext1 // ver respuesta del servidor .'),(619,1446,0,6,1465566860,'Documentos PDF','Buenos dias\n\nTengo la necesidad de crear documentos en PDF desde mi aplicación, buscando encontré algunas opciones:\n\n1. PDFLIB\n2. TPDF\n\n\n(No estoy seguro si son lo mismo)\n\nMe incliné por la segunda, obtuve mas información, despues de hacer la batalla pude construir la TPDFX.lib, junto con la clase;\n\nEsta es la clase que bajé, gracias a Karinha:\n\n[url]\nhttps://code.google.com/p/fivewin-contributions/downloads/detail?name=TPDF.zip&amp;can=2&amp;q=[/url]\n\nel ejemplo que trae\n\n[code]Function MyFirstPdf(oWnd)\n\n   Local oPdf := TPdf():New( &quot;First.pdf&quot;,, letter_height, letter_width ) // ( cFileName, nHeight, nWidth )\n\n   oPdf:PdfNewPage( , &quot;P&quot;,, &quot;Arial&quot;,, 24 ) // ( cPaperSize, cOrientation, nLinesPerInch, cFontName, nFontType, nFontSize )\n   oPdf:PdfImage( &quot;nomina1.jpg&quot;, 0, 0, letter_width, letter_height )\n   oPdf:PdfClosePage()\n   oPdf:PdfNewPage( , &quot;P&quot;,, &quot;Arial&quot;,, 24 ) // ( cPaperSize, cOrientation, nLinesPerInch, cFontName, nFontType, nFontSize )\n   oPdf:PdfImage( &quot;nomina2.jpg&quot;, 0, 0, letter_width, letter_height )\n   oPdf:PdfClosePage()\n   oPdf:PdfClose()\n\n   ShellExecute( oWnd:hWnd, &quot;open&quot;, &quot;First.pdf&quot; )\n\nReturn Nil\n[/code]\n\n\nPude hacer'),(678,23,31119,6,1549005486,'Re: Quisiera empezar a probar LetoDB','Hola Jose Vicente, rescato este viejo post para preguntarte qué tal tu experiencia con LetoDb. Ahora hay un nuevo &quot;fork&quot; que parece que está muy actualizado : [url]https://github.com/elchs/LetoDBf[/url]'),(621,868,0,3,1467353093,'FWH : Built-in MySql/MariaDB functionality','FWH now provides inbuilt connectivity to MariaDB/MySql server without using any 3rd party libs. Works with both MariaDB and MySql servers. The functionality is available with bcc7 xHarour and Harbour, bcc7 64 bit with Harbour and MSVC 32 and 64 bits with Harbour. Yet to test with xhb.com and gcc.\n\nThe application needs to be linked with either libmariadb.lib or libmysql.lib to be used with libmariadb.dll or libmysql.dll. It may be noted that 64 bit versions of the lib and dll are to be used with 64 bit applications.'),(622,868,0,3,1467354358,'FWH : Built-in MySql/MariaDB functionality','FWH now provides inbuilt connectivity to MariaDB/MySql server without using any 3rd party libs. Works with both MariaDB and MySql servers. The functionality is available with bcc7 xHarour and Harbour, bcc7 64 bit with Harbour and MSVC 32 and 64 bits with Harbour. Yet to test with xhb.com and gcc.\n\nThe application needs to be linked with either libmariadb.lib or libmysql.lib to be used with libmariadb.dll or libmysql.dll. It may be noted that 64 bit versions of the lib and dll are to be used with 64 bit applications.'),(623,868,0,3,1467355895,'FWH : Built-in MySql/MariaDB functionality','FWH now provides inbuilt connectivity to MariaDB/MySql server without using any 3rd party libs. Works with both MariaDB and MySql servers. The functionality is available with bcc7 xHarour and Harbour, bcc7 64 bit with Harbour and MSVC 32 and 64 bits with Harbour. Yet to test with xhb.com and gcc.\n\nThe application needs to be linked with either libmariadb.lib or libmysql.lib to be used with libmariadb.dll or libmysql.dll. It may be noted that 64 bit versions of the lib and dll are to be used with 64 bit applications.\n\nExample:\n[code]FWCONNECT oCn HOST &quot;localhost&quot; USER &quot;root&quot; PASSWORD &quot;secret&quot; DB &quot;fwh&quot;\nif oCn == nil\n   ? &quot;Connect Fail&quot;\n   return nil\nelse\n   oRs := oCn:RowSet( &quot;customer&quot; )\n   XBROWSER oRs FASTEDIT\n   oCn:Close()\nendif\n[/code]\n\n[size=150][u][b]Connecting to Server:[/b][/u][/size]\n\n[Code]\nFWCONNECT oCn HOST cHost USER cUser PASSWORD cPwd [DB cdb] [PORT nPort] [FLAGS nFlags]\nor oCn := mysql_Connect( cHost, [cDB], cUser, cPwd, [nPort], [nFlags] )\nor oCn := mysql_Connect( { server, database, user, password, port, flags } ) // database,port,flags are optional\nor oCn := mysql_Connect( &quot;server,database,user,password&quot; )\n[/Code]\n\nOptional port number can also be specified as &quot;server:port&quot;\n\nIn case of failure, oCn is set to nil.\n\n[b]Unicode Support: [/b]\nIf FW_SetUnicode() is set to .T., then the connection is opened with utf8 character set and if not with the default character set of the Server (usually latin1)\n\nTo get the best, please always have primary key for every table and include the primary key field(s) in the sql while reading. \n\n[u][b][size=150]Connection Object:[/size]\n[/b][/u]\nNote: Instantiation of the connection object may be done only with the above command or funcction.\n\nDATAs \nReadOnly\ncClientInfo, cServerInfo\ncServer, cuser, nPort, nFlags, cDB\nnError // Last error ( 0 = no error)\ncError // Last error in the selected language\ncSqlInfo // Last sql execution informatuon in selected language\nlOpen    // If connection is open or not.\nReadWrite:\nlLog DEFAULT .f. // If .t. all sql statements and results are logged to &lt;exename&gt;.log\nCargo  // read-write by user\n\nMETHODS:\nConnect()  // This is already executed automatically. Can be used to reconnect by\n              oCn:Close(), oCn:Connect() --&gt; .t. / .f.\n\nLanguage Support:\nMETHOD SetMsgLang( &lt;cLang&gt; ) // DATA cError is set in this language\n\nThis method is automatically executed while connecting. The default language is en_US.\nIf FWSetLanguage() is already set or if HB_LangSelect() is one of es,fr,pt,de or it, then the corresponding language is automatically set.\n\nIn case the programmer wants any other language he may call this method explicitly.\nEg: oCn:SetMsgLang( &quot;ja_JP&quot; )\n\nLanguages supported by MySql server are :\n English, but they can also be displayed in any of several other languages: Czech, Danish, Dutch, Estonian, French, German, Greek, Hungarian, Italian, Japanese, Korean, Norwegian, Norwegian-ny, Polish, Portuguese, Romanian, Russian, Slovak, Spanish, or Swedish.\n\n[b]METHOD SetTimeLang( &lt;cLang&gt; ) [/b]// display week names and month names in the local language.\n\nThis method is automatically executed for the 6 above languages. For other languages the programmer needs to call this method explicitly. Supported languages can be found at:\nhttp://dev.mysql.com/doc/refman/5.7/en/locale-support.html\n\nOther User Settings:\n\n[b]MYSQL_TinyIntAsLogical( lOnOff ) [/b]--&gt; lPrevSetting // Default False\nBy default, BIT fields are used for Logical values.\nWhen set ON, TinyInt is used for Logical values instead.\nThis setting is used at the time of Creation and Opening of a Table. This setting can be toggled suitably while reading tables created with different settings. There can be different tables opened simultaneously with different settings.\n\n\n\n[b]Other methods[/b]:\n\nMETHOD ShowError( cTitle ) // displayed in selected language\nMETHOD SetMultiStatement( lOnOf )\nMETHOD max_allowed_packet_MB( nNewVal )\nMETHOD GetAutoCommit()\nMETHOD SetAutoCommit( lOnOff)\n\nMETHOD Ping() --&gt; lSuccess             \n\nMETHOD BeginTransaction()  \nMETHOD CommitTransaction() \nMETHOD RollBack()          \nNote: These methods are aliased to BeginTrans, CommitTrans and RollbackTrans\n\nMETHOD ListDbs( cMask ) \nMETHOD CreateDB( cDB, [cCharSet] ) \nMETHOD SelectDB( cDB )\nMETHOD CurrentDB()         \n\nMETHOD ListTables( cMask ) \nMETHOD TableExists( cTable )  --&gt; lExists    \nMETHOD CreateTable( cTable, aStruct, [lAddAutoInc], [char-set] ) --&gt; lSuccess\nMETHOD DropTable( cTable ) --&gt; lSuccess\n\nMETHOD QueryResult( cSql ) --&gt; nil / value / array\nMETHOD RowSet( cSql(or)cTableName ) --&gt; oRowSet or nil if fail\nMETHOD Execute( cSql ) --&gt; nil / val / array\nMETHOD Call( cStoredProc, params....... ) --? nil / rowset\n\nMETHOD PivotArray( cTable, cRowFld, cColFld, cValFld, [cAggrFunc] )\nMETHOD Insert( cTable, caFields, aValues, [lUpdateIgnore] ) --&gt; nInserted\nMETHOD Update( cTable, aFields, aValues, cWhere ) --&gt; nUpdated\nMETHOD InsertID() --&gt; Last AutoInc ID (not needed in app programs. )\nMETHOD ImportFromDBF( cDbf, cTable, cColPrefix, nMultiRowSize, aFields, cAutoIncFld )\nMETHOD SaveToDBF( tablename, [lForUpdate] )\nMETHOD UploadFromAlias( cTable, cSrcFieldList, cDstFieldList, [lUpdateIgnore] )\nMETHOD ValToSQL( uVal )\nMETHOD FieldsAndValsToSQL( aFields, aVals, lWhere )\n\nMETHOD Close() or End()\n\n[u][b]Important Methods Explained:[/b][/u]\n\n[b]MEHOD CreateTable(cTable, aStruct, [lAddAutoInc], [char-set] ) [/b]--&gt; lSuccess\nParams:\n1st Param: cTable : Table name\n2nd Param: aStruct: This is normally the familiar DBF structure, with some extensions where required.\na) To create a binary memo field (BLOB) for holding binary data, specify Type as &quot;m&quot; ( small m ) instead of \'M\'. This column can be used for storing binary data like images.\nb) To create a computed column ( virtual ) specify the field name as formula like:\n   { &quot;amount = qty * price&quot;, \'N\', 12, 2 }, ...\n   This column will be created as\n   amount DECIMAL( 12, 2 ) AS ( qty * price ),\nc) To spcify primary key add one more element to the array with &quot;PRI&quot;. Eg:\n   { &quot;custid&quot;, \'C\', 5, 0, &quot;PRI&quot; }\nd) Specify character set in extended element like\n   { &quot;custname&quot;, \'C\', 30, 0, &quot;utf8&quot; }\n   char sets can be specified as &quot;latin1&quot;, &quot;utf8&quot;, &quot;utf8mb4&quot; or as full collating spec\ne) Where a diffent specification is requied, same can be written as text in 2nd element of array eg:\n   { &quot;sex&quot; &quot;ENUM( \'male\', \'female\' )&quot; }\n\n3rd Param: Optional lAddAutoInc ( default .T. )\n   It is very strongly recommended that every table should have one unique primary key to make stable application. While you may decide which column is to be primary key, good practice is to have a numeric column, hidden from the user as primary key, which will not be altered during life of the database.\n   One easy way to create and maintain such a primary key is to have AutoInc column. By default, the method prepends an Auto Inc primary key with name &quot;ID&quot;.\n   This can be disabled by specifying .F. \n\n4th param : optional character set for the table.\n\nNote:\nDuring development of software it is quite useful to use MYSQL_CreateTableSQL( .. ) with the same params. This function returns the Sql Statement that can be examined by the programmer before finailizing the structure\n\n[b]METHOD ImportFromDBF( cDbf, cTable, cColPrefix, nMultiRowSize, aFields, cAutoIncFld )\n[/b]\n   /*\n   * cDbf : dbfname or alias name or default Alias()\n   * cTable: defaults to Lower( cdbf file name )\n   * cColPrefix: if specified this value is prefixed to each dbf field name\n   * nMultiRowSize: default 20 rows insert at a time:\n   * aFields: Can be part of dbfstruct() or comma separated list of fields\n   * - if afields is like dbstruct, this is used to create table\n   * cAutoIncfld: default: logical .t. : insert autoinc field\n   *                       if .f. do not insert autoinc field\n   *                        if char insert autoinc field with this name\n   */\n\nSample for test:\n[Code]\n   oCn:ImportFromDBF( &quot;c:\\fwh\\samples\\states.dbf&quot; )\n   XBROWSER oCn:RowSet( &quot;states&quot; )\n[/Code]\n\n[b]METHOD Insert( cTable, caFields, aValues, [lIgnoreOrUpdate] ) --&gt; Execute result[/b]\nand\n[b]METHOD InsertSQL( cTable, caFields, aValues, [lIgnoreOrUpdate] ) --&gt; cSql[/b]\n \nParam caFields: can be array of field names or comma delimited list of field names\nParam aValues: Array of values corresponding to the fields. A Single dim array for inserting single row and multi-dim array for inserting multiple rows in one operation.\nThe values can be constants or variables or expressions,\n\nExamples:\noCn:Insert( &quot;emp&quot;, &quot;name, age, dob&quot;, { cName, nAge, dDateofBirth } )\noCn:Insert( &quot;emp&quot;, &quot;name,photo&quot;, { &quot;John&quot;, MemoRead( &quot;john.jpg&quot; ) } )\noCn:Insert( &quot;emp&quot;, &quot;name,age&quot;, { { &quot;John&quot;, 32 }, ;\n                                 { &quot;James&quot;,40 } } )  // inserts 2 rows\nThe method handes all necessary conversions of the values to suit the Sql syntax.\n\nParam: Optional: lIgnoreOrUpdate:\n  Default: NIL: Inserting duplicate values in Primary/Unique fields results in error and the execution fails.\n  Logical FALSE: If .F. is sprecified as 3rd param, &quot;INSERT IGNORE &quot; sql satement is generated and execution continues ignoring duplicate insertions.\n  Logical TRUE: If .T. is specified as 3rd param, the function verifies if the fields list contains any primary or unique fields and in that case adds the clause &quot;ON DUPLICATE KEY UPDATE&quot; suitably.\n\nExample:\n[Code]\n? oCn:InsertSQL( &quot;states&quot;, &quot;id,code,name&quot;, { ;\n	{ 5, \'BC\', &quot;British Columbia&quot; }, ;\n        { 0, &quot;ON&quot;, &quot;Ontario&quot; } }, .T. )\n--&gt;\n&quot;INSERT INTO `states` \n   ( `id`,`code`,`name` ) \n   VALUES \n   ( 5,\'BC\',\'British Columbia\' ),\n   ( 0,\'ON\',\'Ontario\' ) \n   ON DUPLICATE KEY UPDATE \n      `code` = VALUES ( `code` ),\n      `name` = VALUES ( `name` )&quot;\n[/Code]\n\n[b]METHOD Update( cTable, caFields, aValues, caWhere )[/b]\n\nParam caFields: As in Insert\nParam aValues: As in Insert but only single dim array\nParam acWhere: Character exprn: Example &quot;ID = 340&quot;\nor a multi-dim array with field-value pairs\nEg: { { &quot;AGE&quot;, 40 }, { &quot;DEPT&quot;, &quot;AB&quot; } }\n\n[b]METHOD PivotArray( cTable, cRowFld, cColFld, cValFld, cAggrFunc )[/b]\nParam cTable can be a table name or any complex Sql statement\nReturns a Pivot array formatted for diplay in xbrowse. Functions similar to the ADO function.\n\n[b]METHOD Execute( cSqlStatement, [params], [lShowError] ) --&gt; uResult[/b]\n(Can also use [i]oCn:SqlQuery(...)[/i] )\nuResult can be \na) nil if there is no result or if error occured.\nIn case of error, oCn:nError and oCn:cError provide teh error information\nOptionally setting lShowError displays ther error or result of sql statement,\nb) Numeric: In case of insert, update, etc indicating the affected rows\nc) If the result is a result-set, it is returned as Multi-Dim array\n\n[b]METHOD QueryResult( cSql ) --&gt; scalar result[/b]\nSimilar to Execute() but greatly simplifies the result conversion.\nEg:\noCn:QueryResult( &quot;SELECT COUNT(*) FROM CUSTOMER&quot; ) --&gt; 500\noCn:QueryResult( &quot;select sum(amount),sum(qty) from bills&quot; ) --&gt; { 40000, 40 }\n\n[b]METHOD Call( &quot;storedproc&quot;, params,...)\n[/b]\nIn the next release it will be possible to use params by reference to get back values of OUT params.\n\n[b]METHOD SaveToDBF( cTable/cSql, cDbf, [lForUpdate] )[/b]\nSaves the contents of a table or result of an sql statement to a DBF. \n[b]METHOD UploadFromAlias( [cTable], [cSrcFieldsList], [cDstFieldsList], [lIgnoreOrUpdate] )[/b]\n\nThese two methods can also be used to save a local copy, edit and later upload the changes and additions to Server.\n \n[b]METHOD RowSet( cTableName or sql-statement ) --&gt; RowSet object[/b]\n( Can also use [i]oCn:Query(...)[/i]\n\n[b][size=150]RowSet Object[/size][/b]\n\nUsage:\n[Code]\noRs  := oCn:RowSet( cTableNameOrcSqlStatement, [lShowError] )\nor\noQry := oCn:Query( cTableNameOrcSqlStatement, [lShowError] )\n[/Code]\n\n[b]Navigation:[/b]\nSupports all methods of TDatabase like GoTop,GoBottom,GoTo,Skip,Eof,Bof,LastRec,RecCount,KeyCount,KeyGoTo, etc\nAlso supports aliased methods compatible with ADO\nMoveFirst,MoveLast,Move,BookMark,AbsolutePosition, etc\n\n[b]Sorting the rowset in memory:[/b]\n\noRs:SetOrder( fieldname, ignored, [lDesc] ) --&gt; cPrevSort\noRs:Sort := &lt;fieldname&gt; [ASC/DESC]\n? oRs:Sort\n\n[b]Filtering the rowset:[/b]\n\noRs:SetFilter( filterexpression_with_dbfsyntax )\noRs:Filter := &lt;newfilter&gt;\n\n[b][i]Both sorting and filtering are done for the rowset only without reading again from the server.[/i][/b]\n\n[b]METHOD Requery()[/b]\nExecutes the original Sql statement and reads entire data again from the Server. Currently effective sort order and filters are maintained and tries to reposition to the same record.\n\n[b]METHOD ReSync()[/b]\nReads only the current record from the server and refreshes the contents of the current row. This is possible only when the RowSet contains primary key.\n\nThis is also useful to capture any changes made by other users on the network to the current row, without reading the entire table/query.\n\n[b]METHOD Save()[/b]\nSaves any changes the current record or record being appended and ReSyncs contents of the current record from the server. Any changes in the calculated or dependant columns are also read back and current row refreshed.\n\nAfter refreshing, if the value of the sorted column (even derived/related) is modified, the rowset is resorted and the row is placed in its correct sorted position.\n\nNote: After modifying the contents of a row / appended row, any navigation automatically calls Save().\n\nExample:\n[Code]\noRs:Salary := 20000\noRs:Save()\n//or\noRs:Skip()  // saves and skips\n[/Code]\n\n[b]Appending Rows:\noRs:Append()\nor oRs:AddNew()\n[/b]\nCreates a new blank record. We can edit the fields in the usual way and call Save() or navigate to append the record\n\nExample:\n[Code]\noRs:Append()\noRs:Name := &quot;Andrew&quot;\noRs:Salary := 20000\noRs:Save() // commits the new record and refreshes the rowset\n[/Code]\n[b]oRs:Append( cafields, aValues ) --&gt; lSuccess[/b]\nAppends a new record and refershes the rowset. This includes automatic save.\n\nExample:\n[Code]\noRs:Append( { &quot;name&quot;, &quot;salary&quot; }, { &quot;Anderson&quot;, 30000 } )\n[/Code]\nAdds a new row to the database, re-reads the newly appended row and refreshes the contents of the rowset and repositions the record pointer to the new record.\n\n[b]METHOD Update( aFields, aValues ) --&gt; lSuccess[/b]\nModifies the values of the fields in aFields and writes the modifications to the database and resyncs and refreshes the current row.\n\n[b]METHOD Cancel()[/b] --&gt; Cancels the pending updates/append\n\n[b]METHOD Delete() [/b]--&gt; lSuccess\n[b]METHOD Zap()[/b] --&gt; lSuccess (Better avoid calling this)\n\n[b]METHOD GetRows() [/b]--&gt; aData\nReads the values of the records into an array. Respects current filter and sort order.\n\n[b]Access/Assign of values of a field:[/b]\n[Code]\n? oRs:&lt;fieldname&gt;   // may fail if fieldname conflicts with object\'s data/method\n? oRs:FieldGet( fieldnuber or fieldname )\n//FieldGet also can be used for simple expressions:\n? oRs:FieldGet( &quot;salary * 20&quot; )\n? oRs:Fields( &quot;salary&quot; ):Value\n[/Code]\n\n\n[b][size=150]Field Object and Fields() method and Fields Collection:[/size]\nCompatible with ADO.[/b]\n\noRs:Fields:Count\n? oRs:Fields( &quot;name&quot; ):Value \noRs:Fields( &quot;salary&quot; ):Value := 20000\n? oRs:Fields( n ):Value // numbers are 0 based in this usage\noField := oRs:Fields( fieldname ) --&gt; Field Object\n\nField Object DATAs:\n   DATA name, type, len, dec, cType\n   DATA len2\n   DATA sqltype, flags, table, org_name, org_table, cDb\n   DATA default, list\n   DATA lReadOnly INIT .f.\n   DATA lAutoInc  INIT .f.\n   DATA lPrimary  INIT .f.\n   DATA lUnique   INIT .f.\n   DATA lKey      INIT .f.\n   DATA lNoNull   INIT .f.\n   DATA lBinary   INIT .f.\n   DATA Collation INIT &quot;&quot;\n\n\nNotes on Editing/Modifying data of a RowSet:\n\nFor successful edit and save, it is very important that the main table in the sql (query) should contain primary key(s) and all the primary key(s) are also read by the sql (query). Once this condition is satisfied RowSet object provides maximum flexibilty for edit/save.\n\nIt is possible that results or some sql statements can not be modified or edited. Example: &quot;select state, count(*) as num from customer group by state&quot;\n\nIn such cases, oRs:lReadOnly is set to .T. \n\nAlso, columns which are computed or derived from joined tables are also flaged as readonly.\n\nIt is obvious that single tables can be edited/modified easily. In addition even the following types of queries are editable.\n\nSELECT id AS CustID, first AS FirstName, last AS SurName from customer.\n\nThough the field names used in the rowset are CustID, FirstName, SurName any modificatiosn to these fields are correctly saved to the corresponding fields first,last in the original database.\n\nSELECT c.id AS CustID, c.first AS Name, c.state AS St, s.name AS StateName FROM customer c left outer join states s ORDER BY Name\n\nIn this case, fields Name, St are editable and can be read back with the changed StateName.'),(624,868,0,3,1467356372,'FWH : Built-in MySql/MariaDB functionality','FWH now provides inbuilt connectivity to MariaDB/MySql server without using any 3rd party libs. Works with both MariaDB and MySql servers. The functionality is available with bcc7 xHarour and Harbour, bcc7 64 bit with Harbour and MSVC 32 and 64 bits with Harbour. Yet to test with xhb.com and gcc.\n\nThe application needs to be linked with either libmariadb.lib or libmysql.lib to be used with libmariadb.dll or libmysql.dll. It may be noted that 64 bit versions of the lib and dll are to be used with 64 bit applications.\n\nExample:\n[code]FWCONNECT oCn HOST &quot;localhost&quot; USER &quot;root&quot; PASSWORD &quot;secret&quot; DB &quot;fwh&quot;\nif oCn == nil\n   ? &quot;Connect Fail&quot;\n   return nil\nelse\n   oRs := oCn:RowSet( &quot;customer&quot; )\n   XBROWSER oRs FASTEDIT\n   oCn:Close()\nendif\n[/code]\n\n[size=150][u][b]Connecting to Server:[/b][/u][/size]\n\n[Code]\nFWCONNECT oCn HOST cHost USER cUser PASSWORD cPwd [DB cdb] [PORT nPort] [FLAGS nFlags]\nor oCn := mysql_Connect( cHost, [cDB], cUser, cPwd, [nPort], [nFlags] )\nor oCn := mysql_Connect( { server, database, user, password, port, flags } ) // database,port,flags are optional\nor oCn := mysql_Connect( &quot;server,database,user,password&quot; )\n[/Code]\n\nOptional port number can also be specified as &quot;server:port&quot;\n\nIn case of failure, oCn is set to nil.\n\n[b]Unicode Support: [/b]\nIf FW_SetUnicode() is set to .T., then the connection is opened with utf8 character set and if not with the default character set of the Server (usually latin1)\n\nTo get the best, please always have primary key for every table and include the primary key field(s) in the sql while reading. \n\n[u][b][size=150]Connection Object:[/size]\n[/b][/u]\nNote: Instantiation of the connection object may be done only with the above command or funcction.\n\nDATAs \nReadOnly\ncClientInfo, cServerInfo\ncServer, cuser, nPort, nFlags, cDB\nnError // Last error ( 0 = no error)\ncError // Last error in the selected language\ncSqlInfo // Last sql execution informatuon in selected language\nlOpen    // If connection is open or not.\nReadWrite:\nlLog DEFAULT .f. // If .t. all sql statements and results are logged to &lt;exename&gt;.log\nCargo  // read-write by user\n\nMETHODS:\nConnect()  // This is already executed automatically. Can be used to reconnect by\n              oCn:Close(), oCn:Connect() --&gt; .t. / .f.\n\nLanguage Support:\nMETHOD SetMsgLang( &lt;cLang&gt; ) // DATA cError is set in this language\n\nThis method is automatically executed while connecting. The default language is en_US.\nIf FWSetLanguage() is already set or if HB_LangSelect() is one of es,fr,pt,de or it, then the corresponding language is automatically set.\n\nIn case the programmer wants any other language he may call this method explicitly.\nEg: oCn:SetMsgLang( &quot;ja_JP&quot; )\n\nLanguages supported by MySql server are :\n English, but they can also be displayed in any of several other languages: Czech, Danish, Dutch, Estonian, French, German, Greek, Hungarian, Italian, Japanese, Korean, Norwegian, Norwegian-ny, Polish, Portuguese, Romanian, Russian, Slovak, Spanish, or Swedish.\n\n[b]METHOD SetTimeLang( &lt;cLang&gt; ) [/b]// display week names and month names in the local language.\n\nThis method is automatically executed for the 6 above languages. For other languages the programmer needs to call this method explicitly. Supported languages can be found at:\nhttp://dev.mysql.com/doc/refman/5.7/en/locale-support.html\n\nOther User Settings:\n\n[b]MYSQL_TinyIntAsLogical( lOnOff ) [/b]--&gt; lPrevSetting // Default False\nBy default, BIT fields are used for Logical values.\nWhen set ON, TinyInt is used for Logical values instead.\nThis setting is used at the time of Creation and Opening of a Table. This setting can be toggled suitably while reading tables created with different settings. There can be different tables opened simultaneously with different settings.\n\n\n\n[b]Other methods[/b]:\n\nMETHOD ShowError( cTitle ) // displayed in selected language\nMETHOD SetMultiStatement( lOnOf )\nMETHOD max_allowed_packet_MB( nNewVal )\nMETHOD GetAutoCommit()\nMETHOD SetAutoCommit( lOnOff)\nNote: Multiple row inserts are speeded up autocommit is disabled before insert and enabled after insert.\n\nMETHOD Ping() --&gt; lSuccess             \n\nMETHOD BeginTransaction()  \nMETHOD CommitTransaction() \nMETHOD RollBack()          \nNote: These methods are aliased to BeginTrans, CommitTrans and RollbackTrans\n\nMETHOD ListDbs( cMask ) \nMETHOD CreateDB( cDB, [cCharSet] ) \nMETHOD SelectDB( cDB )\nMETHOD CurrentDB()         \n\nMETHOD ListTables( cMask ) \nMETHOD TableExists( cTable )  --&gt; lExists    \nMETHOD CreateTable( cTable, aStruct, [lAddAutoInc], [char-set] ) --&gt; lSuccess\nMETHOD DropTable( cTable ) --&gt; lSuccess\n\nMETHOD QueryResult( cSql ) --&gt; nil / value / array\nMETHOD RowSet( cSql(or)cTableName ) --&gt; oRowSet or nil if fail\nMETHOD Execute( cSql ) --&gt; nil / val / array\nMETHOD Call( cStoredProc, params....... ) --? nil / rowset\n\nMETHOD PivotArray( cTable, cRowFld, cColFld, cValFld, [cAggrFunc] )\nMETHOD Insert( cTable, caFields, aValues, [lUpdateIgnore] ) --&gt; nInserted\nMETHOD Update( cTable, aFields, aValues, cWhere ) --&gt; nUpdated\nMETHOD InsertID() --&gt; Last AutoInc ID (not needed in app programs. )\nMETHOD ImportFromDBF( cDbf, cTable, cColPrefix, nMultiRowSize, aFields, cAutoIncFld )\nMETHOD SaveToDBF( tablename, [lForUpdate] )\nMETHOD UploadFromAlias( cTable, cSrcFieldList, cDstFieldList, [lUpdateIgnore] )\nMETHOD ValToSQL( uVal )\nMETHOD FieldsAndValsToSQL( aFields, aVals, lWhere )\n\nMETHOD Close() or End()\n\n[u][b]Important Methods Explained:[/b][/u]\n\n[b]MEHOD CreateTable(cTable, aStruct, [lAddAutoInc], [char-set] ) [/b]--&gt; lSuccess\nParams:\n1st Param: cTable : Table name\n2nd Param: aStruct: This is normally the familiar DBF structure, with some extensions where required.\na) To create a binary memo field (BLOB) for holding binary data, specify Type as &quot;m&quot; ( small m ) instead of \'M\'. This column can be used for storing binary data like images.\nb) To create a computed column ( virtual ) specify the field name as formula like:\n   { &quot;amount = qty * price&quot;, \'N\', 12, 2 }, ...\n   This column will be created as\n   amount DECIMAL( 12, 2 ) AS ( qty * price ),\nc) To spcify primary key add one more element to the array with &quot;PRI&quot;. Eg:\n   { &quot;custid&quot;, \'C\', 5, 0, &quot;PRI&quot; }\nd) Specify character set in extended element like\n   { &quot;custname&quot;, \'C\', 30, 0, &quot;utf8&quot; }\n   char sets can be specified as &quot;latin1&quot;, &quot;utf8&quot;, &quot;utf8mb4&quot; or as full collating spec\ne) Where a diffent specification is requied, same can be written as text in 2nd element of array eg:\n   { &quot;sex&quot; &quot;ENUM( \'male\', \'female\' )&quot; }\n\n3rd Param: Optional lAddAutoInc ( default .T. )\n   It is very strongly recommended that every table should have one unique primary key to make stable application. While you may decide which column is to be primary key, good practice is to have a numeric column, hidden from the user as primary key, which will not be altered during life of the database.\n   One easy way to create and maintain such a primary key is to have AutoInc column. By default, the method prepends an Auto Inc primary key with name &quot;ID&quot;.\n   This can be disabled by specifying .F. \n\n4th param : optional character set for the table.\n\nNote:\nDuring development of software it is quite useful to use MYSQL_CreateTableSQL( .. ) with the same params. This function returns the Sql Statement that can be examined by the programmer before finailizing the structure\n\n[b]METHOD ImportFromDBF( cDbf, cTable, cColPrefix, nMultiRowSize, aFields, cAutoIncFld )\n[/b]\n   /*\n   * cDbf : dbfname or alias name or default Alias()\n   * cTable: defaults to Lower( cdbf file name )\n   * cColPrefix: if specified this value is prefixed to each dbf field name\n   * nMultiRowSize: default 20 rows insert at a time:\n   * aFields: Can be part of dbfstruct() or comma separated list of fields\n   * - if afields is like dbstruct, this is used to create table\n   * cAutoIncfld: default: logical .t. : insert autoinc field\n   *                       if .f. do not insert autoinc field\n   *                        if char insert autoinc field with this name\n   */\n\nSample for test:\n[Code]\n   oCn:ImportFromDBF( &quot;c:\\fwh\\samples\\states.dbf&quot; )\n   XBROWSER oCn:RowSet( &quot;states&quot; )\n[/Code]\n\n[b]METHOD Insert( cTable, caFields, aValues, [lIgnoreOrUpdate] ) --&gt; Execute result[/b]\nand\n[b]METHOD InsertSQL( cTable, caFields, aValues, [lIgnoreOrUpdate] ) --&gt; cSql[/b]\n \nParam caFields: can be array of field names or comma delimited list of field names\nParam aValues: Array of values corresponding to the fields. A Single dim array for inserting single row and multi-dim array for inserting multiple rows in one operation.\nThe values can be constants or variables or expressions,\n\nExamples:\noCn:Insert( &quot;emp&quot;, &quot;name, age, dob&quot;, { cName, nAge, dDateofBirth } )\noCn:Insert( &quot;emp&quot;, &quot;name,photo&quot;, { &quot;John&quot;, MemoRead( &quot;john.jpg&quot; ) } )\noCn:Insert( &quot;emp&quot;, &quot;name,age&quot;, { { &quot;John&quot;, 32 }, ;\n                                 { &quot;James&quot;,40 } } )  // inserts 2 rows\nThe method handes all necessary conversions of the values to suit the Sql syntax.\n\nParam: Optional: lIgnoreOrUpdate:\n  Default: NIL: Inserting duplicate values in Primary/Unique fields results in error and the execution fails.\n  Logical FALSE: If .F. is sprecified as 3rd param, &quot;INSERT IGNORE &quot; sql satement is generated and execution continues ignoring duplicate insertions.\n  Logical TRUE: If .T. is specified as 3rd param, the function verifies if the fields list contains any primary or unique fields and in that case adds the clause &quot;ON DUPLICATE KEY UPDATE&quot; suitably.\n\nExample:\n[Code]\n? oCn:InsertSQL( &quot;states&quot;, &quot;id,code,name&quot;, { ;\n	{ 5, \'BC\', &quot;British Columbia&quot; }, ;\n        { 0, &quot;ON&quot;, &quot;Ontario&quot; } }, .T. )\n--&gt;\n&quot;INSERT INTO `states` \n   ( `id`,`code`,`name` ) \n   VALUES \n   ( 5,\'BC\',\'British Columbia\' ),\n   ( 0,\'ON\',\'Ontario\' ) \n   ON DUPLICATE KEY UPDATE \n      `code` = VALUES ( `code` ),\n      `name` = VALUES ( `name` )&quot;\n[/Code]\n\n[b]METHOD Update( cTable, caFields, aValues, caWhere )[/b]\n\nParam caFields: As in Insert\nParam aValues: As in Insert but only single dim array\nParam acWhere: Character exprn: Example &quot;ID = 340&quot;\nor a multi-dim array with field-value pairs\nEg: { { &quot;AGE&quot;, 40 }, { &quot;DEPT&quot;, &quot;AB&quot; } }\n\n[b]METHOD PivotArray( cTable, cRowFld, cColFld, cValFld, cAggrFunc )[/b]\nParam cTable can be a table name or any complex Sql statement\nReturns a Pivot array formatted for diplay in xbrowse. Functions similar to the ADO function.\n\n[b]METHOD Execute( cSqlStatement, [params], [lShowError] ) --&gt; uResult[/b]\n(Can also use [i]oCn:SqlQuery(...)[/i] )\nuResult can be \na) nil if there is no result or if error occured.\nIn case of error, oCn:nError and oCn:cError provide teh error information\nOptionally setting lShowError displays ther error or result of sql statement,\nb) Numeric: In case of insert, update, etc indicating the affected rows\nc) If the result is a result-set, it is returned as Multi-Dim array\n\n[b]METHOD QueryResult( cSql ) --&gt; scalar result[/b]\nSimilar to Execute() but greatly simplifies the result conversion.\nEg:\noCn:QueryResult( &quot;SELECT COUNT(*) FROM CUSTOMER&quot; ) --&gt; 500\noCn:QueryResult( &quot;select sum(amount),sum(qty) from bills&quot; ) --&gt; { 40000, 40 }\n\n[b]METHOD Call( &quot;storedproc&quot;, params,...)\n[/b]\nIn the next release it will be possible to use params by reference to get back values of OUT params.\n\n[b]METHOD SaveToDBF( cTable/cSql, cDbf, [lForUpdate] )[/b]\nSaves the contents of a table or result of an sql statement to a DBF. \n[b]METHOD UploadFromAlias( [cTable], [cSrcFieldsList], [cDstFieldsList], [lIgnoreOrUpdate] )[/b]\n\nThese two methods can also be used to save a local copy, edit and later upload the changes and additions to Server.\n \n[b]METHOD RowSet( cTableName or sql-statement ) --&gt; RowSet object[/b]\n( Can also use [i]oCn:Query(...)[/i]\n\n[b][size=150]RowSet Object[/size][/b]\n\nUsage:\n[Code]\noRs  := oCn:RowSet( cTableNameOrcSqlStatement, [lShowError] )\nor\noQry := oCn:Query( cTableNameOrcSqlStatement, [lShowError] )\n[/Code]\n\n[b]Navigation:[/b]\nSupports all methods of TDatabase like GoTop,GoBottom,GoTo,Skip,Eof,Bof,LastRec,RecCount,KeyCount,KeyGoTo, etc\nAlso supports aliased methods compatible with ADO\nMoveFirst,MoveLast,Move,BookMark,AbsolutePosition, etc\n\n[b]Sorting the rowset in memory:[/b]\n\noRs:SetOrder( fieldname, ignored, [lDesc] ) --&gt; cPrevSort\noRs:Sort := &lt;fieldname&gt; [ASC/DESC]\n? oRs:Sort\n\n[b]Filtering the rowset:[/b]\n\noRs:SetFilter( filterexpression_with_dbfsyntax )\noRs:Filter := &lt;newfilter&gt;\n\n[b][i]Both sorting and filtering are done for the rowset only without reading again from the server.[/i][/b]\n\n[b]METHOD Requery()[/b]\nExecutes the original Sql statement and reads entire data again from the Server. Currently effective sort order and filters are maintained and tries to reposition to the same record.\n\n[b]METHOD ReSync()[/b]\nReads only the current record from the server and refreshes the contents of the current row. This is possible only when the RowSet contains primary key.\n\nThis is also useful to capture any changes made by other users on the network to the current row, without reading the entire table/query.\n\n[b]METHOD Save()[/b]\nSaves any changes the current record or record being appended and ReSyncs contents of the current record from the server. Any changes in the calculated or dependant columns are also read back and current row refreshed.\n\nAfter refreshing, if the value of the sorted column (even derived/related) is modified, the rowset is resorted and the row is placed in its correct sorted position.\n\nNote: After modifying the contents of a row / appended row, any navigation automatically calls Save().\n\nExample:\n[Code]\noRs:Salary := 20000\noRs:Save()\n//or\noRs:Skip()  // saves and skips\n[/Code]\n\n[b]Appending Rows:\noRs:Append()\nor oRs:AddNew()\n[/b]\nCreates a new blank record. We can edit the fields in the usual way and call Save() or navigate to append the record\n\nExample:\n[Code]\noRs:Append()\noRs:Name := &quot;Andrew&quot;\noRs:Salary := 20000\noRs:Save() // commits the new record and refreshes the rowset\n[/Code]\n[b]oRs:Append( cafields, aValues ) --&gt; lSuccess[/b]\nAppends a new record and refershes the rowset. This includes automatic save.\n\nExample:\n[Code]\noRs:Append( { &quot;name&quot;, &quot;salary&quot; }, { &quot;Anderson&quot;, 30000 } )\n[/Code]\nAdds a new row to the database, re-reads the newly appended row and refreshes the contents of the rowset and repositions the record pointer to the new record.\n\n[b]METHOD Update( aFields, aValues ) --&gt; lSuccess[/b]\nModifies the values of the fields in aFields and writes the modifications to the database and resyncs and refreshes the current row.\n\n[b]METHOD Cancel()[/b] --&gt; Cancels the pending updates/append\n\n[b]METHOD Delete() [/b]--&gt; lSuccess\n[b]METHOD Zap()[/b] --&gt; lSuccess (Better avoid calling this)\n\n[b]METHOD GetRows() [/b]--&gt; aData\nReads the values of the records into an array. Respects current filter and sort order.\n\n[b]Access/Assign of values of a field:[/b]\n[Code]\n? oRs:&lt;fieldname&gt;   // may fail if fieldname conflicts with object\'s data/method\n? oRs:FieldGet( fieldnuber or fieldname )\n//FieldGet also can be used for simple expressions:\n? oRs:FieldGet( &quot;salary * 20&quot; )\n? oRs:Fields( &quot;salary&quot; ):Value\n\noRs:&lt;fieldname&gt; := &lt;newValue&gt;\noRs:FieldPut( fieldnum or fieldname, newvalue )  // numbers start with 1\noRs:Fields( fieldname ):Value := &lt;newvalue&gt;\noRs:Fields( num ):Value := &lt;newvalue&gt;  // numbers start with 0 like in ADO\n[/Code]\n\n\n[b][size=150]Field Object and Fields() method and Fields Collection:[/size]\nCompatible with ADO.[/b]\n\noRs:Fields:Count\n? oRs:Fields( &quot;name&quot; ):Value \noRs:Fields( &quot;salary&quot; ):Value := 20000\n? oRs:Fields( n ):Value // numbers are 0 based in this usage\noField := oRs:Fields( fieldname ) --&gt; Field Object\n\nField Object DATAs:\n   DATA name, type, len, dec, cType\n   DATA len2\n   DATA sqltype, flags, table, org_name, org_table, cDb\n   DATA default, list\n   DATA lReadOnly INIT .f.\n   DATA lAutoInc  INIT .f.\n   DATA lPrimary  INIT .f.\n   DATA lUnique   INIT .f.\n   DATA lKey      INIT .f.\n   DATA lNoNull   INIT .f.\n   DATA lBinary   INIT .f.\n   DATA Collation INIT &quot;&quot;\n\n\n[b][size=150]Notes on Editing/Modifying data of a RowSet:[/size][/b]\n\nFor successful edit and save, [b]it is very important that the main table in the sql (query) should contain primary key(s) and all the primary key(s) are also read[/b] by the sql (query). Once this condition is satisfied RowSet object provides maximum flexibilty for edit/save.\n\nIt is possible that results or some sql statements can not be modified or edited. Example: &quot;select state, count(*) as num from customer group by state&quot;\n\nIn such cases, oRs:lReadOnly is set to .T. \n\nAlso, columns which are computed or derived from joined tables are also flaged as readonly.\n\nIt is obvious that single tables can be edited/modified easily. In addition even the following types of queries are editable.\n\n[b]SELECT id AS CustID, first AS FirstName, last AS SurName from customer.\n[/b]\nThough the field names used in the rowset are CustID, FirstName, SurName any modificatiosn to these fields are correctly saved to the corresponding fields first,last in the original database.\n\n[b]SELECT c.id AS CustID, c.first AS Name, c.state AS St, s.name AS StateName FROM customer c left outer join states s ORDER BY Name[/b]\n\nIn this case, fields Name, St are editable and can be read back with the changed StateName.'),(626,147,0,6,1467382728,'O.T. MySQL - campo INT','Hola Gente\nHe definido un campo INT(11) para almacenar valores de CUIT.\nAhora no tuve en cuenta que el campo INT'),(628,135,0,3,1469170961,'Embarcadero Releases Free C++ Compiler for Windows','to all\n\nC++Compiler - FREE TOOL\n\nhttps://www.embarcadero.com/free-tools/ccompiler'),(629,1013,0,6,1471961912,'sql con AZURE','Estimados\n\nEn este momento estoy tratando de conectarme a una base de datos en Microsoft azure, les agradeceré si me pueden ayudar como realizar la conexión, la cadena que me entrega Microsoft no funciona remplazándola directamente.\n \nw_sql=\'Provider=sqloledb;Server=tcp:siscont.database.windows.net,1433;Initial Catalog=prueba;Persist Security Info=False;User ID={marcelo};Password={C12345678};MultipleActiveResultSets=False;Encrypt=True;TrustServerCertificate=False;Connection Timeout=30\'\n\noCon:=CREATEOBJECT(&quot;adodb.connection&quot;)\noComando:=CREATEOBJECT(&quot;adodb.command&quot;)\noCon:open(w_sql)\noComando:ActiveConnection:=oCon   \n\n \ncadana original para remplazar\nADO.NET\nw_sql=\'Provider=sqloledb;Server=tcp:siscont.database.windows.net,1433;Initial Catalog=prueba;Persist Security Info=False;User ID={your_username};Password={your_password};MultipleActiveResultSets=False;Encrypt=True;TrustServerCertificate=False;Connection Timeout=30\'\n\nsaludos,\n\nMarcelo'),(630,1344,32841,3,1472724420,'Re: Problem with Print Preview','Thanks, Maurizio, we had the same problem as Byron described and after turning of the updates you mentioned, the behaviour restored to the behaviour we were used to! :D'),(631,1886,32718,3,1473507246,'Re: Painting Tab-images from res. RC and DLL TFOLDEREX (solved)','Buenos días, \n\nHe hecho la prueba con los tres cambios en etc.prg y no consigo que salgan las imágenes en las pestañas.\nel recurso pruebatab.dll tiene tres botones y tres diálogos\n\nel código del programa es este\n\n[code=fw]#INCLUDE &quot;fivewin.ch&quot;\n\nstatic oWin , oDlg , oFld, aBitmaps1\n//----------------------------------------------------------------------//\nfunction main()\n\nSET RESOURCES TO &quot;pruebatab.dll&quot;\naBitmaps1 := { &quot;BOTON1&quot;, &quot;BOTON2&quot;,  &quot;BOTON3&quot; } ; //From DLL\n\nDEFINE DIALOG oDlg OF oWin NAME &quot;MAIN&quot;\n\nREDEFINE FOLDEREX oFld ID 4001 OF oDlg ;\n    PROMPT &quot; F1 &quot;,&quot; F2 &quot;,&quot; F3 &quot;;\n    DIALOGS &quot;DIALOGO1&quot; , &quot;DIALOGO2&quot; , &quot;DIALOGO3&quot;;\n  BITMAPS aBitmaps1 ; \n\nACTIVATE DIALOG oDlg\nreturn NIL\n [/code]\nAdjunto las imágenes\n\n[img]http://imgur.com/HK6HCXQ[/img]'),(632,1140,0,3,1474399990,'Gfinger Sdk 2009 problemas','#Include &quot;FiveWin.ch&quot;\n#Include &quot;grFinger.ch&quot;\n**************************************//***************************************\nFUNCTION BuscaDigital( cQualDedo , oImagemDedo )\n**************************************//***************************************\nLOCAL oDlgActiveX\nLOCAL oFoto\nLOCAL cFoto := oPub:wPathBmp + &quot;DigitalVazia.bmp&quot;\nLOCAL cMyContextID := &quot;0&quot;\nPRIVATE lEmOperacao := .F.\n\n   DEFINE DIALOG oDlgActiveX RESOURCE &quot;SV_DIGITAL&quot; TITLE &quot;Capturar Digital&quot; // FONT oWnd:oFont ICON oPub:oIconeSv BRUSH oPub:oBrushS TRANSPARENT\n\n      REDEFINE BITMAP oFoto ID 900 OF oDlgActiveX FILENAME cFoto ADJUST\n      REDEFINE BUTTON oBt   ID 950 OF oDlgActiveX ACTION ( oDlgActivex:End() )\n\n   ACTIVATE DIALOG oDlgActiveX CENTERED ON INIT ( oDlgActiveX:lHelpIcon := .F. , GrFingerInitialize( oDlgActiveX ,oFoto ,oImagemDedo ,cMyContextID , cQualDedo ) ) ;\n                                 VALID GrFingerDestroyContext( cMyContextID )\n\n\n**************************************//***************************************\nSTATIC FUNCTION GrFingerInitialize( oDlgActiveX ,oFoto ,oImagemDedo ,cMyContextID , cQualDedo )\n**************************************//***************************************\nLOCAL nErr,oFinger\n\nIF IsActiveX(&quot;GrFingerX.GrFingerXCtrl.1&quot;)\n\n  oFinger := TActiveX():New( oDlgActiveX, &quot;GrFingerX.GrFingerXCtrl.1&quot;,0,0,.2,.2)\n  oDlgActiveX:oClient = oFinger\n  nErr = oFinger:Do(&quot;Initialize&quot;)\n  If nErr = 0\n\n     oFinger:Do(&quot;CapInitialize&quot;)\n     oFinger:Do(&quot;CreateContext&quot;, cMyContextID )\n     oFinger:bOnEvent = { | event, aParams, pParams | EventInfo( event, aParams , oFinger ,oFoto ,oImagemDedo ,oDlgActiveX ,cMyContextID , cQualDedo ) }\n\n  ELSE\n\n     MSGSTOP(&quot;Não foi encontrado o controle activex GrFingerX.GrFingerXCtrl.&quot;,;\n             &quot;Inicialização abortada...&quot;)\n     RETURN  .F.\n\n  ENDIF\n\nELSE\n\n   MSGStop(&quot;Para utilização do Leitor Biométrico é necessário&quot; + CRLF +;\n       &quot;a instalação de seu SDK Gfinger&quot;,&quot;ATENÇÃO&quot;,&quot;STOP&quot;)\n\nENDIF\n\nRETURN .T.\n\n**************************************//***************************************\nSTATIC FUNCTION GrFingerDestroyContext( cMyContextID )\n**************************************//***************************************\nLOCAL nErr\n\n  oFinger:Do( &quot;CapFinalize&quot; )\n  oFinger:Do( &quot;Finalize&quot; )\n  oFinger:Do( &quot;DestroyContext&quot;, MyContextID )\n\nRETURN .T.\n\n**************************************//***************************************\nFUNCTION EventInfo( event, aParams , oFinger ,oFoto ,oImagemDedo ,oDlgActiveX ,cMyContextID , cQualDedo )\n**************************************//***************************************\nLOCAL cEvent := cValToChar( event )\nLOCAL cTemplate, nTemplateSize, nRet\n\n\nIF .NOT. lEmOperacao\n\n   IF cEvent == &quot;SensorPlug&quot; .and. aParams[1] != &quot;File&quot;\n\n      oFinger:Do(&quot;CapStartCapture&quot;,AllTrim(aParams[1]))\n\n   ENDIF\n\n\n   IF cEvent == &quot;SensorUnplug&quot;\n\n      oFinger:Do(&quot;CapStopCapture&quot;,AllTrim(aParams[1]))\n\n   ENDIF\n\n\n   IF cEvent == &quot;ImageAcquired&quot;\n\n      lEmOperacao := .T.\n      FERASE( oPub:wPathBmp + &quot;Dedo.BMP&quot; )\n\n  \n      nTemplateSize := 10000\n      cTemplate     := SPACE(10000)\n\n	  \n	  *** Usando somente a Sintax do ActiveX\n  \n	  \n      Em qualquer das sintax da o problema de vir zerado\n	  * Assim funciona\n      * nIni := oFinger:ExtractEx( cImagem, aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, 0, GR_FORMAT_ISO )\n\n     * nIni := oFinger:DO(&quot;Extract&quot;, aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, cMyContextID ) \n      nIni := oFinger:Extract( aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, cMyContextID ) \n      \n	  **** Aqui da erro o Len(AllTrim(cTemplate)) da Zero                                                                     \n	  ? &quot;Extract&quot;,nIni,Len(AllTrim(cTemplate))                                                                     \n* Ou desta maneira\n*     nIni := oFinger:DO(&quot;ExtractEx&quot;, aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, 0 , GR_FORMAT_DEFAULT ) // GR_FORMAT_ANSI\n      nIni := oFinger:ExtractEx( aParams[4], aParams[2], aParams[ 3], 500, cTemplate, @nTemplateSize, cMyContextID , GR_FORMAT_DEFAULT ) // GR_FORMAT_ANSI\n      ? &quot;ExtractEx&quot;,nIni,Len(AllTrim(cTemplate))                                                                                              \n\n      nIni := oFinger:Do(&quot;CapSaveRawImageToFile&quot;,aParams[ 4],aParams[ 2], aParams[ 3], oPub:wPathBmp + &quot;Dedo.BMP&quot;,GRCAP_IMAGE_FORMAT_BMP)\n      *? &quot;CapSaveRaw&quot;,nIni                                                                                        \n\n      oFoto:LoadBmp( oPub:wPathBmp + &quot;Dedo.BMP&quot; )    // cargo la imagen guardada en la anterior línea\n      oFoto:Refresh()\n\n       ret := oFinger:DO(&quot;IdentifyPrepare&quot;, cTemplate, cMyContextID )\n       *** Devido a isso da erro -5\n	   ? &quot;IdentifyPrepare&quot;,ret \n\n       *ret := oFinger:Identify( cTemplate, @nIdScore , 0 )\n       ret := oFinger:DO(&quot;Identify&quot;, cTemplate, @nIdScore , cMyContextID )\n       ? &quot;Identify&quot;,ret\n\n  \n	  *** Ou usando a sintax das Dlls abaixo.\n\n      cLibFinger := LoadLibrary(&quot;GrFinger.dll&quot;)\n      GrInitialize()\n    \n      TemplateSize := 10000\n      cTemplate     := SPACE(10000)\n      * Assim com o @cTemplate\n      ret:= GrExtract( aParams[ 4], aParams[ 2], aParams[ 3], aParams[ 5], @cTemplate, @nTemplateSize, 0 )\n      Assim sem cTemplate\n	  ret:= GrExtract( aParams[ 4], aParams[ 2], aParams[ 3], aParams[ 5], @cTemplate, @nTemplateSize, 0 )\n	  \n      select(&quot;Personal&quot;)\n      APPEND BLANK\n      IF Personal-&gt;(rlock())\n         REPLACE Huella WITH cTemplate\n         Personal-&gt;(dbcommit())\n         Personal-&gt;(dbunlock())\n      ENDIF\n      GO TOP\n	  \n      nIdScore := 0\n      WHILE !eof()\n\n         GrIdentifyPrepare( cTemplate, 0 )\n         nId:= GrIdentify( Personal-&gt;Huella, @nIdScore , 0 )\n         ? nId é sempre 0 Zero\n         IF nId = 1\n	       // Ok\n	          msgwait(&quot;Digltal  encontrada!&quot;,&quot;Atenção&quot;,1)\n	     ELSE \n	          msgwait(&quot;Digital não encontrado!&quot;,&quot;Atenção&quot;,1)\n         ENDIF \n         \n		 ** oU\n         nId:= GrVerify( cTemplate , Personal-&gt;Huella, @nIdScore , 0 )\n         ? &quot;nId&quot;,nId\n		 Skip\n       ENDDO\n		   \n  \n     GrFinalize()\n     FreeLibrary(xLib)\n  ENDIF\n\nENDIF\nRETURN NIL \n\n\nDLL32 FUNCTION GrInitialize() AS LONG PASCAL FROM &quot;_GrInitialize@0&quot; LIB xLib\nDLL32 FUNCTION GrFinalize()  AS LONG PASCAL FROM &quot;_GrFinalize@0&quot; LIB xLib\nDLL32 FUNCTION GrExtract( @rawImage AS LONG, width AS LONG, height AS LONG, res AS LONG, ttpt AS LPSTR, @ttptSize AS LONG , context AS LONG ) AS LONG PASCAL FROM &quot;_GrExtract@28&quot; LIB xLib\nDLL32 FUNCTION GrIdentifyPrepare( ttpt AS LPSTR, context AS LONG ) AS LONG PASCAL FROM &quot;_GrIdentifyPrepare@8&quot; LIB xLib\nDLL32 FUNCTION GrIdentify( @ttpt AS LPSTR, @Idscore AS LONG, context AS LONG ) AS LONG PASCAL FROM &quot;_GrIdentify@12&quot; LIB xLib\nDLL32 FUNCTION GrVerify( ttpt AS LPSTR, qtpt AS LPSTR, @Idscore AS LONG, context AS LONG ) AS LONG PASCAL FROM &quot;_GrVerify@16&quot; LIB xLib\n\n\nNão vai de jeito algum\nAlguém saberia oq. pode ser ?'),(634,3396,18412,6,1477594532,'Re: Problema al escribir en el registro ¿falla la clase treg32?','En Windows 10 funciona poniendo esta direccion\n\noReg := TReg32():Create( HKEY_LOCAL_MACHINE, &quot;SOFTWARE\\WOW6432Node\\CaSoft\\WinConta Pro&quot; )'),(635,1257,33253,3,1480589275,'Re: New FWH 16.11','Mr.Rao,\n\nI will still look at FWH - sample &lt; xBrecsel.prg &gt; if there is a difference, \nbecause there the image is visible and works.\n\nThis is the part of the rec-selector I used before with FWH 16.10 :\n\n[code]\nWITH OBJECT oBrw1\n   :bRecSelData      := { || (&quot;PATIENT&quot;)-&gt;( ORDKEYNO() ) } // database\n   :bRecSelHeader  := { |brw| &quot;Nr.&quot; }  // or simply &quot;SlNo&quot;\n   :bRecSelFooter   := { |brw| brw:nLen } // or Simpy any value\n   :nRecSelWidth    := 50\n   :AutoFit()\n   :nRowSel := 1\nEND\n[/code]\n\nregards\nUwe :?:'),(636,131,33335,6,1481709028,'Re: Controles en folder desaparecen','Quería decir que si voy avazando con el ratón, haciendo click en cada control, no desaparece nada.'),(639,1140,33258,6,1483637681,'Re: Funciona hoy el CreateObject( &quot;CDO.Message&quot; ) ??','Tenho o mesmo problema q. vc. \nO que fiz foi criar mais uma opcao de envio de email utilizando o Hb_sendmail \nTenho redes com 10 computadores onde 8 funcionam com o Cdo  e os outros dois usando o mesmo sistema exatamente a mesma rotina não funciona ai configuro estes dois terminais pra usar o Hb_sendmail.'),(640,2526,0,3,1483969373,'ON INIT( ) CLASSE METRO','How can I call a function in the METRO class\n     ex:      \n     ACTIVATE DIALOG oDlg CENTER ON INIT ( TRel_compra (): mCarga (theSystem: cCgcemp, oTree, oDlg), true);\n    ON PAINT TFillWnd (): New (oDlg, nCordia,, nTam)'),(641,3777,33690,6,1487979976,'Re: UEStudio  Comportamientro del  exe muy estraño','Gracias.\n\nEn las variables tenia este.\n\n#HOPT = /m /gc0 /q /n  /o /p $(Compiler Options) /i$(HPATH)\\INCLUDE $(User Include Path&amp;1) $(User Defines) $(Automatic Memvar Declaration) $(Variables Are Assumed) $(Generate Preprocessed Output) $(Warning Level)\n\nLo cambie por este otro..\n\nHOPT = /n /gc0 /q $(Compiler Options) /i$(HPATH)\\INCLUDE $(User Include Path&amp;1) $(User Defines) $(Automatic Memvar Declaration) $(Variables Are Assumed) $(Generate Preprocessed Output) $(Warning Level)\n\n\nPero aun no consigo  conectarme al server MYSQL\n\nGracias  por tu tiempo'),(642,991,33723,6,1488503241,'Re: SUBIR ARCHIVOS VIA FTP','Olá,\n\nTem uma solução do BielSys que uso há algum tempo e funciona bem para atualização via FTP talvez possa lhe ajudar. Veja no link http:/bielsys.blogspot.com.br - no titulo &quot;actualización automática de aplicaciones via FTP&quot;. Lá você vai encontrar os fontes também.\n\nAté mais.\n\nOliveiros Junior'),(645,1736,33818,3,1491078917,'Re: Quien me ayuda...Adquirir datos de respuesta de una web','What is the purpose of theses lines?\n\nwhile upper(alltrim(cTextoHTML))==alltrim(upper(oIE:Document:body:innerHTML()))\nSysRefresh()\nend while\n\nI\'d add oIE:quit() after cTextoHTML:=oIE:Document:body:innerHTML() to avoid leaving hidden IE instances and free memory.'),(646,3831,0,2,1494247837,'sintaxis de BitMap','Hola Buen dia, tengo en uso una opcion Verificador de Precios, en clipper 5.03, necesito desplegar la imagen del producto, he tratado de hacer una app en fivewin, para ejecutarla desde clipper, pero no he podido controlar la imagen en tamaño y posicion en la pantalla. cualquier apoyo es bienvenido y Muchas Gracias .\njcdeleonr@hotmail.com'),(647,1741,34072,20,1494947987,'Re: Ditron','esempi :\n\nper invio dati : txc.bat \n\nECHO OFF\nCLS\n\nECHO ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::\nECHO :: TXC.BAT        TRASMISSIONE ARTICOLI A DITRON                    ::\nECHO ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::\nECHO :: PLUIC.TXT                                                        ::\nECHO ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::\n:START\n\nECHO .\nECHO ........ TRASMISSIONE INSERIMENTI IN CORSO ..........\nECHO .\n\nECHO ........ CASSA 1 ..........\nECHO .\n\nCALL WEC INVIA.TXT /p1\n\nECHO .\nECHO ........ CASSA 2 ..........\nECHO .\n\nCALL WEC INVIA.TXT /p2\n\n:FINE\n\n\nContenuto file INVIA.TXT :\n\n; INVIA.TXT : Esempio di file-comando WinEcrCom\n;\n; Esempio che trasmette un file dati-articolo\n\n;Trasmetto il file articoli\nEM_LINK CMD=\'UA\', FILE = \'C:\\TX\\PLUIC.TXT\', ERR=\'C:\\TX\\ERRORI.TXT\', BLOCK, OFFLINE\n\nContenuto file pluic.txt :\n\nIM,0000080412021,\'LETE ACQUA LT.1\',0,066,03,00000050,0000,0000\nIM,0000080464457,\'SANGEMINI ACQUA\',0,222,03,00000095,0000,0000\nIM,0000000058179,\'HEINEKEN BIRRA \',0,215,03,00000120,0000,0000\nIM,8000000004376,\'MORETTI BIRRA C\',0,0,03,00001800,0000,0000\nIM,8000000006516,\'ULIVETO ACQUA L\',0,0,03,00000249,0000,0000\nIM,8000000006523,\'DANONE VITASNEL\',0,0,03,00000320,0000,0000\nIM,8000000006547,\'LEVISSIMA ACQUA\',0,0,03,00000240,0000,0000\nIM,8000000015365,\'PERONI BIRRA CL\',0,0,03,00001750,0000,0000\nIM,8000000056542,\'DREHER BIRRA CL\',0,0,03,00001560,0000,0000\nIM,8000000096111,\'VERA ACQUA NATU\',0,0,03,00000220,0000,0000\nIM,8000000178794,\'SANTA MARIA ACQ\',0,0,03,00000210,0000,0000\nIM,8000000180001,\'LA FONTE ACQUA \',0,0,03,00000150,0000,0000\nIM,8000000238931,\'DREHER BIRRA CL\',0,0,03,00001560,0000,0000\nIM,8001050010508,\'LEVISSIMA ACQUA\',0,0,03,00000280,0000,0000\nIM,8001050056575,\'LEVISSIMA ACQUA\',0,0,03,00000240,0000,0000\nIM,8001346014012,\'FONTALBA ACQUA \',0,225,03,00000040,0000,0000\nIM,8001346015019,\'FONTALBA ACQUA \',0,202,03,00000040,0000,0000\n\nTRACCIATO RECORD \nIM,000000000001,\'ARTICOLO 1\',0,0,1,1000,1200,1300\n\narticolo 1, condizioni=0, offerta=0, reparto=1,\nprezzo1=10.00 Euro, Prezzo2=12.00, Prezzo3=13.00\n\nCIAO'),(648,3289,34243,3,1498083089,'Re: Utilizar SqlServer','Muchas Gracias!!! , por Uxiliarme, yo tengo la version 15.5 fw 32bits, esta tambien esta incluida?'),(649,1406,34258,3,1498308793,'Re: 1st FWH + [x]Harbour 2017 international conference','+  :D'),(650,428,34298,6,1499187606,'Re: Grabar un objeto','Carles, gracias por la información, veo que hay opciones, el problema es que en mi version de fivewin no tengo ese codigo, es posible publicarlo aqui ?'),(651,131,18785,6,1499268674,'Re: Nuevos controles para FWH','Hola Andrés,\nsupongo que estarás en Sillian en la conferencia, ¿ puedes contar más de esta clase TGoogle ? ¿ Podemos ver los videos de las conferencias de alguna manera ?\n\nSaludos,'),(652,991,34076,3,1500941384,'Re: Harbour Problems','Olá Silvio,\n\nObrigado pela resposta. Necessitava do contato do paco garcia.\n\nAtt.,\n\nOliveiros Junior'),(653,140,34554,6,1504670810,'Re: Mysql Remoto','[quote]Estimados, genero este hilo.. consulte con mi proveedor de hosting.. y me dice que mi base de datos, puede ser operada remotamente, para ello, al crearla, me indico que la generara con la opcion %,\nla pregunta que hago y es trabajando con ADO, FW 13.2 y xHarbour, para conectarme con esta base..\n\nLocal cHost := &quot;192.168.100.101%&quot; // direccion del hosting\nLocal cUser := &quot;root&quot; \nLocal cPsw := &quot;root&quot; \nLOCAL cDBName := &quot;DBASE0001&quot; \n\n\nestaría esto en lo correcto, favor de indicarme si alguien lo ha probado asi...\n[/quote]\n\nIlustrisimo, Saludos...\n\n1) debes entrar al panel de control de tu proveedor de hosting (el mas común es el cPanel) con tu usuario y clave que te asignaron al momento de contratar el servicio. Una vez que hayas ingresado al panel de control busca el grupo &quot;Bases de datos&quot; y clic sobre &quot;MySQL remoto&quot;. Añade un &quot;anfitrión&quot; con la mascara %.%.%.% y listo... eso es para que MySQL acepte conexiones remotas desde cualquier IP.\n\n2) Una vez que hayas indicado que MySQL va aceptar conexiones desde cualquier IP, el siguiente paso es definir un usuario por medio del cual se va a conectar tu aplicación. A menos que tengas contratado un hosting vps para ti solito, no podrás conectarte como usuario &quot;root&quot;... de hecho aun así tampoco es buena idea que tu aplicación pueda conectarse con el usuario root, así que en el mismo panel de control debes regresa a las opciones de &quot;Bases de Datos&quot;, clic en &quot;Bases de Datos MySQL&quot; y alli vas a hacer dos cosas:\n* Crea la base de datos con la cual deseas que trabaje tu aplicación.\n* Crea el usuario/clave con el cual te conectaras desde tu aplicación. anota eso porque lo necesitaras luego.\n* Vincula al usuario con la Base de Datos y le asignas el perfil de lo que puede o no hacer el usuario con esa base de datos (insert, select, update, delete, trigger, etc...)\nla versión de cPanel que me suministra mi proveedor de hosting (60.0.46) permite hacer esas tres cosas en el mismo módulo... se supone que la mayoría de los servicios de hosting trabajan con la misma versión.\nEs importante que tengas en cuenta que si el hosting que tienes contratado es compartido, va a ser inevitable que tanto el nombre de la base de datos, como del usuario, tengan un prefijo que te asigna tu proveedor, y que debes usar obligatoriamente.\n\n3) es conveniente probar con un cliente MySQL que puedes conectarte al servidor... cualquier cliente MySQL sirve... yo uso Navicat y en ocasiones Heidi (gratuito https://www.heidisql.com) para ello vas a crear una nueva conexión y le vas a indicar los parámetros que definistes en el paso 2:\n* host: dominio que tienes con tu servidor: ej: tudominio.com (no coloques ni http://, ni www, ni ninguna otra monería...)\nno es buena idea usar la IP del servidor aun cuando este tenga asignada una IP fija.\n* user: el usuario que definistes en el paso 2.\n* password: la clave que definistes en el paso 2.\n* DataBase: muchas veces este parámetro es opcional, salvo que el usuario esté restringido a una(s) bases de datos en particular. de todas formas para ir por lo seguro indica la Base de Datos que creastes en el paso anterior.\n* Puerto: el estándar de MySQL es el 3306... raras veces un proveedor de hosting lo cambia.\nuna vez creada la conexión grabas eso y conectate... si se conecta bien quiere decir que lo anterior estuvo bien hecho y ya puedes poner la mira en tu aplicación FW.\nSi tu servicio de hosting es con plataforma Linux, ten en cuenta que Linux diferencia MAYÚSCULAS de minúsculas... ese detalle te ahorrará muchos dolores de cabeza.\n\n4) con tu cliente MySQL crea las tablas que usaras en tu aplicación FW... también puedes usar PHP-MyAdmin que forma parte del cPanel.\n\n\n[quote]la pregunta que hago y es trabajando con ADO, FW 13.2 y xHarbour, para conectarme con esta base..[/quote]\n\nYo no uso ADO... uso la clase tDolphin con la cual me ha ido muy bien... por lo tanto no conozco ADO y no se cuales pueden ser las diferencias con respecto a la tDolphin, pero se supone que todas las clases que permiten conectividad con MySQL tienen que seguir los mismos estándares... la conexión con ADO debería admitir los parámetros: dominio, usuario, clave, puerto, base de datos... eso debería permitir que tu aplicación FW se conecte a tu servidor como aplicación remota.\n\nGiancarlo Sabattino\nValencia, Venezuela.'),(654,483,0,3,1506513176,'Consulta múltiple en tDolphin','Hola Foro:\nTengo el siguiente problema\nal hacer la consulta \n  oQryClien := oServer:Query( &quot;SELECT * FROM cliente ORDER BY nomcom ASC&quot; )\n  oQryCob   := oServer:Query( &quot;SELECT * FROM cobranza,deudor,vendedor,cliente WHERE cobranza.c_estado = &quot;+cEstado+ &quot; AND cobranza.codideu = deudor.codigo AND cobranza.clien = cliente.codigo AND cobranza.codi_vende = vendedor.codigo_V ORDER BY cobranza.cod_est&quot;)\n  oQryEsta  := oServer:Query( &quot;SELECT * FROM estados ORDER BY descrip ASC&quot; )\n  oQryDeu   := oServer:Query( &quot;SELECT * FROM deudor ORDER BY codigo ASC&quot; )\n\nMe arroja este resultado:'),(656,1140,0,3,1510665542,'Group with image inside','Good morning everyone\n\nHow do I make the image appear inside the group?\n\nIn the example below if you comment the group line the image appears and I need it to be exactly inside the group and I can not make it appear.\n\n#include &quot;FiveWin.ch&quot; \n\nSTATIC oWnd, oBmp \n\nFUNCTION Main()\n local oGrp\n   \n  DEFINE WINDOW oWnd FROM 0,0 TO 200,200 TITLE &quot;Test Class TBitmap&quot; pixel \n\n\n       @   0, 1 GROUP oGrp TO 300, 500 PROMPT &quot;Test&quot; OF oWnd pixel\n       @ 50, 20 BITMAP oBmp FILENAME &quot;..\\bitmaps\\Tutanka1.bmp&quot; OF oWnd SIZE 300,200 PIXEL SCROLL \n\n   ACTIVATE WINDOW oWnd MAXIMIZED  \n\nRETURN ( nil )'),(657,805,34118,3,1516529926,'Re: PostgresSQL from core-master\\contrib\\hbpgsql','Hi.\nWhere can I find a list of all the functions inside the lib ?\nThanks a lot'),(658,1140,34946,3,1516715448,'Re: Alternative Gif Control','Re: Alternative Gif Control\n\nPostby Enrico Maria Giordano » Fri Jan 19, 2018 10:17 pm \n\n\n\n\nmarca wrote:\nI use xHarbour and am not able to compile. It gives a lot of mistakes.\n\nYou have to compile it in C++ mode.\n\nEMG\n\nEnrico. \nMe desculpe mais não entendi o que você quis dizer. \nPoderia me dar um exemplo de como fazer ?'),(659,2561,0,3,1518691866,'ADODB.Connection mystery','Hello ,\n\nIn a program module a static var receives his value as :\n\noCon := oCn\n\nLater  , i use the propertie as oCon:Proporties(&quot;Data Source Name&quot;) , which seems to be the seventh propertie (DBG oCon) , 93 properties\n\nAfter creating (and dropping) some tables , this propertie gives me an error.\n\nControling oCon with DBG gives as result a ADODB.connection with no propertie &quot;Data source Name&quot;\noCon seems to be changed , now the fifth propertie is &quot;Data Source&quot; , the seventh is &quot;Mode&quot; , the object has only 26 properties\n\nHow can this change ?\n\nFrank'),(661,1114,35471,6,1523496790,'Re: imprimir etiqueta en zebra GC420t','Patricio   te envio   el codigo  que uso\n\n rescoluna:=oPrinter:nlogpixelx()/2.54\n reslinha:=oPrinter:nlogpixely()/2.54\n\nxcanteti := round(xcanteti,0)\n\n FOR  nI=1  TO xcanteti\n \n  page\n\n    nLineDes := 1.8\n    nCol  := 1.5\n    nLineBar := 300\n    nLineCod := 300\n\n   @ 0.6*rescoluna,0.6*reslinha code3_9 ALLTRIM(XCODIGOC) of oPrinter\n   oPrinter:say(2.1*reslinha,1*rescoluna,ALLTRIM(XCODIGOC)+&quot; &quot;+SUBSTR(xdetalle,1,30))\n   @ 2.8*rescoluna,1*reslinha code3_9 ALLTRIM(XCODIGOCC) of oPrinter\n   oPrinter:say(4.3*reslinha,1*rescoluna, ALLTRIM(&quot;Honecker&quot; +&quot; &quot; + &quot;Fecha de Vto &quot;+dtoc(xvto)) )\n\n\n   endpage\n\nnext\n\n\nCualquier duda avisame  \nSaludos\nFabian'),(662,3777,0,3,1523661520,'Google maps Another way to see  a tracking route','Google maps Another way to see  a tracking route, very  soon i will provide the code to do this.\n\n\n\n[img]http://www.busmaticcr.com/images/seguimiento2.png[/img]'),(663,300,35590,3,1525440443,'Re: email with CDO and attachment','Try to put the entire file path even though it is in the folder.'),(665,304,0,6,1531436621,'Busqueda SQL','Para ingresar un registro en una Tabla SQL hago:\n\noRecordSet:Addnew()\noRecordSet:Fields(&quot;Bill_num&quot;):value := alltrim(Var1)\noRecordSet:Update()\n\nPara borrar:\noRecordSet:Delete()\noRecordSet:Requery()\n\nComo seria para buscar la Variable xRFC ??\noRecordSet:Find( xRfc, If( lContinue, 1, 0 ) ) //Asi marca error\n\nGracias'),(666,1323,0,3,1533185719,'PDF make Problem','I have a problem with function FwSAvePreviewToPdf()\nThe image it´s ok in preview, but, make PDF file and viewer it´s bad.\n\nHow to do?\n\n[img]http://www.acessosoft.com.br/img/pdf.png[/img]'),(667,3766,0,3,1533322497,'FWH 17.06 - xHarbour/Bcc 72 (Erro ao compilar o programa)','Olá,\n\nEstá ocorrendo o erro abaixo ao tentar compilar o programa com a versão 17.06 do FWH.\n\nExecutando: ILINK32 @B32.BC\nTurbo Incremental Link 6.75 Copyright (c) 1997-2016 Embarcadero Technologies, Inc.\n[b]Warning: Unexpected error detected during link\nError: Unable to perform link[/b]\n\nCom a versão 15.07 compila normalmente.'),(668,1741,36092,20,1537609098,'Re: Fatturazione Elettronica','Salve\n\nPremessa : Non Uso Harbour, altro ambiente di lavoro , ma sempre ambiente xbase/clipper\n\nPer la fattura elettronica i passi da seguire sono ( che seguo ):\n\n1) Generazione file xml ( a secondo se Pubblica Amministrazione o Privati, cambiano alcuni campi/impostazioni nel file xml  per il resto tutto uguale).\n2) Se inviato alla PA ( generalmente Ospedali, Enti, Comuni, etc...si ha bisogno del codice Univoco del cliente 6 caratteri.\n3) Se inviato a privati si puo\' avere o il codice univoco 7 caratteri o la pec del cliente.\nQueste info vanno messe nel file xml.\n4) Se da inviare alla PA deve essere firmato ( aruba, infocert etc... chiavetta o tessera rilasciato dal Camera commercio ).\n5) Se da inviare a Privati , sembra ci sia una circolare dove dice che non e\' necessaria la firma del file xml se Invio singolo\nse invece si crea un file .zip con piu\' file xml , il file zip deve essere firmato.\n6) l\'nvio del file xml o zip tramite Pec Aziendale a sdi01@pec.fatturapa.it. la prima volta, si ottera\' una conferma\ndove in alcuni casi dira\' di inviare ad altro indirizzo ( es. sdi22@pec.fatturapa.it. ) e poi usare sempre quello.\n\nPer l\'nvio del documento &quot;leggibile&quot; allego nel file xml il documento convertito in pdf e poi codificato Base64 ( come da specifiche )\n\nil punto 6 e quello semplice poi ci sono varie alternative ( accredito canale aziendale, appoggiarsi ad aziende esterne dove si invia solo il file xml e poi pensano a tutto loro, etc.. ).\nAdesso ci sono le Poste , Tim, Banche che lo danno come servizio ( a pagamento naturalmente ). \n\nInfo interessanti in questo blog ( anche se usano altri linguaggi )\n https://www.iprogrammatori.it/forum-programmazione/programmatori/fatturazione-elettronica-b2b-t34079.html\n\nAltra soluzione per gestire i file xml in arrivo : software gratuito di assoinvoice  http://www.assosoftware.it/assoinvoice\nche permette di trasformare il documento xml in documento &quot;leggibile&quot; ( meglio del modulo che propone AdE ).\nprovato da me fà vedere l\'allegato inserito e lo converte nel formato originale in pdf ( quindi logo, fincature, etc..).\n\nSaluti'),(669,140,0,3,1539356522,'Problema con transparencias en control SAY desde código','Saludos a todos los colegas del Foro...\n\nLes traigo un caso que se me está presentando con la transparencia en un control SAY creado desde código y que está dentro de un control GROUP que también tiene la cláusula de transparencia...\n[img]http://intranet.info.ve/fw/sayfromcode_tranparent.jpg[/img]\n\ncomo pueden ver cuando actualizo el contenido del control por medio del método oSay:SetText() no borra lo anterior sino que monta el contenido nuevo encima del anterior...\nEl código es este:\n@ nRow+24, nCol   SAY       ::oSayDMater  VAR cSayDMater;\n                  OF        ::oGrpMater;\n                  CENTERED  ;\n                  SIZE      314, 14;\n                  PIXEL     ;\n                  FONT      oControl:oFontAr12;\n                  TRANSPARENT\n\nsi le quito la clausula de transparencia al control SAY, si funciona como debe, sustituyendo el nuevo dato por el anterior, pero se ve un recuadro que echa a perder la estética...\n[img]http://intranet.info.ve/fw/sayfromcode.jpg[/img]\n\nsi le quito la transparencia'),(670,1535,36288,6,1541356436,'Re: [HM] Nueva entrada en Harbour Magazine','Hola José Luis,\n\nGracias por tu artículo. \n\nTengo algún software &quot;enlatado&quot;. \n\nEn mi caso es el usuario quien manualmente comprueba si hay alguna nueva versión.\nEl proceso consiste en mirar en un ftp si hay algun paquete (rar) más actualizado. El paquete puede incluir archivos dbf con datos y/o el ejecutable actualizado.\n\nSi lo hay, se descarga y se actualizan dbfs y .exe. Hay que llevar mucho cuidado al reemplazar el ejecutable, porque nos podemos quedar sin programa.\n\nSaludos'),(671,292,36262,6,1541460482,'Re: Consulta Mysql','SELECT numdoc,fechemis, sum(debe) debitos, sum(haber) creditos, sum(debe-haber) diferencia\nFROM facturas \nGROUP BY numdoc,fechemis \nHAVING SUM(debe-haber) &gt; 0;\n\nDebes tener indice por ambos campos, (Si fuese SQLSERVER rechazará la sentencia), todos los campos del SELECT deben estar en el GROUP BY excepto las funciones\n\nSELECT numdoc,fechemis, sum(debe) debitos, sum(haber) creditos, sum(debe-haber) diferencia\nFROM facturas \nGROUP BY numdoc,fechemis \nHAVING SUM(debe-haber) &gt; 0;\n\nRecomiendo\n\nSELECT fechemis,numdoc, sum(debe) debitos, sum(haber) creditos, sum(debe-haber) diferencia\nFROM facturas \nGROUP BY fechemis,numdoc \nHAVING SUM(debe-haber) &gt; 0;\n\nDebes tener indice de fechemis,numdoc,\n\nSi solo requiere las fechas,\n\nSELECT fechemis, sum(debe) debitos, sum(haber) creditos, sum(debe-haber) diferencia\nFROM facturas \nGROUP BY fechemis \nHAVING SUM(debe-haber) &gt; 0;\n\nIndice de fechemis'),(672,610,36325,3,1541982092,'Re: EXE passwords are visible in plain','You can change to stay exclusively from your program\n\nExample: &quot;.% B&gt;?&quot; or &quot;67! 9)&quot;'),(673,1741,36092,20,1542219883,'Re: Fatturazione Elettronica','Salve\n\nper quanto riguarda il nome file xml da inviare bisogna usare un progressivo\n( i famosi 5 numeri e/o caratteri di   ITcodicefiscal_XXXXX.xml )\nquindi partendo da 1 si arriva a 99999.\n\npensavo di andare oltre i soli numeri e usare un progressivo alfanumerico quando si supera il 99999.\n\nEs. dopo il 99999 usare Lettera + 4 cifre , quindi da A0000 a A9999\npoi passare ad B0000 a B99999 etc....\narrivati a Z9999 passare a AA999 e cosi via ( quindi lettera + lettera + 3 cifre ).\n\nIn questo modo si avra\' una combinazione enorme del progressivo nome file .\n\nSe poi si usano anche le lettere minuscole nella combinazione ( a ....z ) la quantità di generazione\naumenta.\n\nQualcuno ha implementato una funzione che genera questo incremento ?\nho provato alcune soluzioni ma in alcuni casi &quot;toppano&quot;  :) \n\nGrazie.'),(674,292,30338,6,1543153413,'Re: Clase TTABLE insertar Registros en Tablas SQL Lexico XBASE','Saludos\nGracias por la pregunta,\nPara la lectura de datos, realice una clase llamada TTABLE clonada desde la clase tdbodbcd, utilizando un arreglo reemplazando el uso de tablas DBF, tambien la utilizo de manera general para MySQL , SQL SERVER sin tener que realizar ningun cambio,\nSi necesitas puedo crear un ejemplo para uso con FW,'),(675,3174,0,3,1547226872,'Add some functions for Tensorflow','Hello.\n\nI adding some functions/method for Tensoflow for Fivewin like following.^^\n\n\nMETHOD GraphNextOperation( nPos )\n\nDLL FUNCTION TF_GraphNextOperation( hGraph AS LONG, @nPos AS LONG ) AS LONG LIB hDLL\nDLL FUNCTION TF_OperationName( hOperation AS LONG ) AS LPSTR LIB hDLL\nDLL FUNCTION TF_OperationOpType( hOperation AS LONG ) AS LPSTR LIB hDLL\nDLL FUNCTION TF_OperationDevice( hOperation AS LONG ) AS LPSTR LIB hDLL\nDLL FUNCTION TF_OperationNumOutputs( hOperation AS LONG ) AS LONG LIB hDLL\nDLL FUNCTION TF_OperationNumInputs( hOperation AS LONG ) AS LONG LIB hDLL\n\n\n\n[code=fw]\n#include &quot;FiveWin.ch&quot;\n\n#define TF_INT32   3\n#define TF_STRING  7\n#define TF_INT64   9\n\nstatic hDLL\n\nfunction Main()\n   local oTF  := TensorFlow():New()\n   LOCAL nOp\n   LOCAL nCounter := 0\n   LOCAL nPos := 1\n   LOCAL nOld  := 0\n\n   oTF:ImportGraph( &quot;graph.pb&quot; )\n\n   WHILE .T.\n       nOp := oTF:GraphNextOperation( @nPos )\n\n       IF nOp == 0\n           EXIT\n       ENDIF\n\n       ?TF_OperationName( nOp ),TF_OperationOpType( nOp ), TF_OperationDevice( nOp ), TF_OperationNumOutputs( nOp ), TF_OperationNumInputs( nOp )\n\n       IF nPos == nOld\n          EXIT\n       ENDIF\n\n   ENDDO\n\n\n\n   //MsgInfo( oTF:Version() )\n\n  // oTF:Run( oTF:Mul( oTF:Constant( 5, &quot;Five&quot; ), oTF:Constant( 3, &quot;three&quot; ) ) )\n\n  //   MsgInfo( oTF:Output() )\n\n   oTF:End()\n\nreturn nil\n\nCLASS TensorFlow\n\n   DATA hGraph\n   DATA hOptions\n   DATA hStatus\n   DATA hSession\n   DATA hTensorOutput\n\n   METHOD New()\n\n   METHOD Add( hOperation1, hOperation1, cName )\n\n   METHOD Mul( hOperation1, hOperation2, cName )\n\n   METHOD MatMul( hOperation1, hOperation2, cName )\n\n   METHOD Version() INLINE TF_Version()\n\n   METHOD ImportGraph( cFileName )\n\n   METHOD TensorNum( nValue )\n\n   METHOD TensorString( cString )\n\n   METHOD End()\n\n   METHOD StatusCode() INLINE TF_GetCode( ::hStatus )\n\n   METHOD Variable( cVarName, nDataType )\n\n   METHOD Constant( uValue, cName )\n\n   METHOD Run( hOperation )\n\n   METHOD Output()\n\n   METHOD GraphNextOperation()\n\nENDCLASS\n\nMETHOD New() CLASS TensorFlow\n\n   hDLL = LoadLibrary( &quot;tensorflow.dll&quot; )\n\n   ::hGraph = TF_NewGraph()\n   ::hOptions = TF_NewSessionOptions()\n   ::hStatus = TF_NewStatus()\n   ::hSession = TF_NewSession( ::hGraph, ::hOptions, ::hStatus )\n\nreturn Self\n\nMETHOD End() CLASS TensorFlow\n\n   TF_CloseSession( ::hSession, ::hStatus )\n   TF_DeleteSession( ::hSession, ::hStatus )\n   TF_DeleteStatus( ::hStatus )\n   TF_DeleteSessionOptions( ::hOptions )\n\n   FreeLibrary( hDLL )\n\nreturn nil\n\nMETHOD Add( hOperation1, hOperation2, cName ) CLASS TensorFlow\n\n   local hOperationDescription := TF_NewOperation( ::hGraph, &quot;AddN&quot;, If( cName == nil, &quot;AddN&quot;, cName ) )\n   local hOperation, hOutput\n\n   TF_AddInputList( hOperationDescription, hOutput := TF_Output2( hOperation1, hOperation2 ), 2 )\n\n   hOperation = TF_FinishOperation( hOperationDescription, ::hStatus )\n\n   hb_xfree( hOutput )\n\n   if TF_GetCode( ::hStatus ) != 0\n      MsgAlert( TF_Message( ::hStatus ), &quot;Error creating AddN operator: &quot; + Str( TF_GetCode( ::hStatus ) ))\n   endif\n\nreturn hOperation\n\n\n/*\n\n\n*/\n\nMETHOD Mul( hOperation1, hOperation2, cName ) CLASS TensorFlow\n\n   local hOperationDescription := TF_NewOperation( ::hGraph, &quot;Mul&quot;, If( cName == nil, &quot;Mul&quot;, cName ) )\n   local hOperation, hOutput1, hOutput2\n\n\n   TF_AddInput( hOperationDescription, hOutput1 := TF_Output( hOperation1 ) )\n   TF_AddInput( hOperationDescription, hOutput2 := TF_Output( hOperation2 ) )\n\n\n   hOperation = TF_FinishOperation( hOperationDescription, ::hStatus )\n\n   hb_xfree( hOutput1 )\n   hb_xfree( hOutput2 )\n\n   if TF_GetCode( ::hStatus ) != 0\n      MsgAlert( TF_Message( ::hStatus ), &quot;Error creating AddN operator: &quot; + Str( TF_GetCode( ::hStatus ) ))\n   endif\n\nreturn hOperation\n\n\nMETHOD MatMul( hOperation1, hOperation2, cName ) CLASS TensorFlow\n\n   local hOperationDescription := TF_NewOperation( ::hGraph, &quot;MatMul&quot;, If( cName == nil, &quot;MatMul&quot;, cName ) )\n   local hOperation, hOutput1, hOutput2\n\n\n   TF_AddInput( hOperationDescription, hOutput1 := TF_Output( hOperation1 ) )\n   TF_AddInput( hOperationDescription, hOutput2 := TF_Output( hOperation2 ) )\n\n   hOperation = TF_FinishOperation( hOperationDescription, ::hStatus )\n\n   hb_xfree( hOutput1 )\n   hb_xfree( hOutput2 )\n\n   if TF_GetCode( ::hStatus ) != 0\n      MsgAlert( TF_Message( ::hStatus ), &quot;Error creating 0perator: &quot; + Str( TF_GetCode( ::hStatus ) ))\n   endif\n\nreturn hOperation\n\nMETHOD ImportGraph( cFileName ) CLASS TensorFlow\n\n   local cGraph := MemoRead( cFileName )\n   local hGraphDefOptions := TF_NewImportGraphDefOptions()\n\n   LOCAL lOk := .F.\n\n   IF !FILE ( cFileName )\n      RETURN lOk\n   ENDIF\n\n   TF_GraphImportGraphDef( ::hGraph, TF_NewBufferFromString( cGraph, Len( cGraph ) ), hGraphDefOptions, ::hStatus )\n\n   IF TF_GetCode( ::hStatus ) != 0\n      MsgAlert( TF_Message( ::hStatus ), &quot;Error importing a Graph file&quot; )\n      lOk := .F.\n   ELSE\n      lOk := .T.\n   ENDIF\n\n   TF_DeleteImportGraphDefOptions( hGraphDefOptions )\n\nreturn lOk\n\nMETHOD TensorNum( nValue ) CLASS TensorFlow\n\n   local hTensor := TF_AllocateTensor( TF_INT32, 0, 0, 8 )\n\n   Memset( TF_TensorData( hTensor ), 0, 8 )\n   Memcpy( TF_TensorData( hTensor ), L2Bin( nValue ), Len( L2Bin( nValue ) ) )\n\nreturn hTensor\n\nMETHOD TensorString( cString ) CLASS TensorFlow\n\n   local hTensor := TF_AllocateTensor( TF_STRING, 0, 0, 8 + TF_StringEncodedSize( Len( cString ) ) )\n\n   Memset( TF_TensorData( hTensor ), 0, 8 )\n\n   TF_StringEncode( cString, Len( cString ), 8 + TF_TensorData( hTensor ), TF_StringEncodedSize( Len( cString ) ), ::hStatus )\n\n   if TF_GetCode( ::hStatus ) != 0\n      MsgAlert( TF_Message( ::hStatus ), &quot;Error creating a Tensor string&quot; )\n   endif\n\nreturn hTensor\n\nMETHOD Variable( cVarName, nDataType ) CLASS TensorFlow\n\n   local hOperationDescription := TF_NewOperation( ::hGraph, &quot;Variable&quot;, cVarName )\n\n   TF_SetAttrType( hOperationDescription, &quot;dtype&quot;, nDataType )\n\nreturn TF_FinishOperation( hOperationDescription, ::hStatus )\n\nMETHOD Constant( uValue, cName ) CLASS TensorFlow\n\n   local hOperationDescription, hTensor\n\n   do case\n      case ValType( uValue ) == &quot;C&quot;\n         hTensor = ::TensorString( uValue )\n\n      case ValType( uValue ) == &quot;N&quot;\n         hTensor = ::TensorNum( uValue )\n   endcase\n\n   hOperationDescription = TF_NewOperation( ::hGraph, &quot;Const&quot;, cName )\n   TF_SetAttrTensor( hOperationDescription, &quot;value&quot;, hTensor, ::hStatus )\n   TF_SetAttrType( hOperationDescription, &quot;dtype&quot;, TF_TensorType( hTensor ) )\n\nreturn TF_FinishOperation( hOperationDescription, ::hStatus )\n\nMETHOD Run( hOperation ) CLASS TensorFlow\n\n   local hTensorOutput := 0, hOutput\n\n   TF_SessionRun( ::hSession, 0,;\n                  0, 0, 0,;  // Inputs\n                  hOutput := TF_Output( hOperation, 0 ), @hTensorOutput, 1,;  // Outputs\n                  hOperation, 1,;  // Operations\n                  0, ::hStatus )\n\n   hb_xfree( hOutput )\n\n   ::hTensorOutput = hTensorOutput\n\nreturn nil\n\nMETHOD Output() CLASS TensorFlow\n\n   local nType := TF_TensorType( ::hTensorOutput )\n   local uValue\n\n   do case\n      case nType == TF_STRING\n         uValue = TF_TensorString( TF_TensorData( ::hTensorOutput ) )\n\n      case nType == TF_INT64 .or. nType == TF_INT32\n         uValue = TF_TensorNum( TF_TensorData( ::hTensorOutput ) )\n\n      otherwise\n         MsgAlert( &quot;type not supported in Method Output yet&quot;, nType )\n   endcase\n\nreturn uValue\n\n/*\n  2019-01-12 by. Charles Kwon\n*/\n\nMETHOD GraphNextOperation( nPos ) CLASS TensorFlow\n   LOCAL nOp  := TF_GraphNextOperation( ::hGraph, @nPos )\n\nRETURN nOp\n\n\n\n\nDLL FUNCTION TF_Version() AS LPSTR LIB hDLL\n\nDLL FUNCTION TF_NewGraph() AS LONG LIB hDLL\n\nDLL FUNCTION TF_NewSessionOptions() AS LONG LIB hDLL\n\nDLL FUNCTION TF_NewStatus() AS LONG LIB hDLL\n\nDLL FUNCTION TF_NewSession( hGraph AS LONG, hOptions AS LONG, hStatus AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_CloseSession( hSession AS LONG, hStatus AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_DeleteSession( hSession AS LONG, hStatus AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_DeleteStatus( hStatus AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_DeleteSessionOptions( hOptions AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_NewImportGraphDefOptions() AS LONG LIB hDLL\n\nDLL FUNCTION TF_GraphImportGraphDef( hGraph AS LONG, hBuffer AS LONG, hGraphDefOptions AS LONG, hStatus AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_NewBufferFromString( cString AS LPSTR, nLegth AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_GetCode( hStatus AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_DeleteImportGraphDefOptions( hGraphDefOptions AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_NewTensor( nType AS LONG, @pDims AS LONG, nDims AS LONG, @pData AS LONG, nLength AS LONG, pDeallocator AS LONG,;\n                           pDeallocatorArgs AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_AllocateTensor( nType AS LONG, pDims AS LONG, nDims AS LONG, nLegth AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_StringEncodedSize( nLength AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_TensorData( hTensor AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_StringEncode( cString AS LPSTR, nLength AS LONG, pDest AS LONG, nDestLength AS LONG, hStatus AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_SessionRun( hSession AS LONG, hRunOptions AS LONG, hInputs AS LONG, @hInputValues AS LONG, nInputs AS LONG,;\n                            hOutputs AS LONG, @hOutputValues AS LONG, nOutputs AS LONG, @hTargetOperations AS LONG, nTargets AS LONG,;\n                            hRunMetadata AS LONG, hStatus AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_Message( hStatus AS LONG ) AS LPSTR LIB hDLL\n\nDLL FUNCTION TF_NewOperation( hGraph AS LONG, cOperationType AS LPSTR, cOperationName AS LPSTR ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_SetAttrTensor( hOperationDescription AS LONG, cAttributeName AS LPSTR, hTensor AS LONG, hStatus AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_TensorType( hTensor AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_SetAttrType( hOperationDescription AS LONG, cAttributeName AS LPSTR, nDataType AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_FinishOperation( hOperationDescription AS LONG, hStatus AS LONG ) AS LONG LIB hDLL\n\nDLL FUNCTION TF_AddInput( hOperationDescription AS LONG, nInput AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_AddInputList( hOperationDescription AS LONG, hInputs AS LONG, nInputs AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_GraphSetTensorShape( hGraph AS LONG, hOutput AS LONG, @pDims AS LONG, nDims AS LONG, hStatus AS LONG ) AS VOID LIB hDLL\n\nDLL FUNCTION TF_SetAttrShape( hOperationDescription AS LONG, cAttributeName AS LPSTR, @pDims AS LONG, nDims AS LONG ) AS VOID LIB hDLL\n\n/*\n  2019-01-12 by. Charles Kwon\n*/\nDLL FUNCTION TF_GraphNextOperation( hGraph AS LONG, @nPos AS LONG ) AS LONG LIB hDLL\nDLL FUNCTION TF_OperationName( hOperation AS LONG ) AS LPSTR LIB hDLL\nDLL FUNCTION TF_OperationOpType( hOperation AS LONG ) AS LPSTR LIB hDLL\nDLL FUNCTION TF_OperationDevice( hOperation AS LONG ) AS LPSTR LIB hDLL\nDLL FUNCTION TF_OperationNumOutputs( hOperation AS LONG ) AS LONG LIB hDLL\nDLL FUNCTION TF_OperationNumInputs( hOperation AS LONG ) AS LONG LIB hDLL\n\n\n\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n\ntypedef struct TF_Output {\n  void * oper;\n  int index;\n} TF_Output;\n\nHB_FUNC( TF_OUTPUT )\n{\n   TF_Output * hOutput = ( TF_Output * ) hb_xgrab( sizeof( TF_Output ) );\n\n   hOutput-&gt;oper = ( void * ) hb_parnll( 1 );\n   hOutput-&gt;index = hb_parnl( 2 );\n\n   hb_retnll( ( HB_LONGLONG ) hOutput );\n}\n\nHB_FUNC( TF_OUTPUT2 )\n{\n   TF_Output * hOutput = ( TF_Output * ) hb_xgrab( sizeof( TF_Output ) * 2 );\n\n   hOutput[ 0 ].oper = ( void * ) hb_parnll( 1 );\n   hOutput[ 0 ].index = 0;\n   hOutput[ 1 ].oper = ( void * ) hb_parnll( 2 );\n   hOutput[ 1 ].index = 0;\n\n   hb_retnll( ( HB_LONGLONG ) hOutput );\n}\n\nHB_FUNC( TF_TENSORSTRING )\n{\n   hb_retc( ( ( char * ) hb_parnll( 1 ) ) + 9 );\n}\n\nHB_FUNC( TF_TENSORNUM )\n{\n   hb_retnl( * ( int * ) hb_parnll( 1 ) );\n}\n\nHB_FUNC( MEMSET )\n{\n   hb_retnll( ( HB_LONGLONG ) memset( ( void * ) hb_parnll( 1 ), hb_parnl( 2 ), hb_parnll( 3 ) ) );\n}\n\nHB_FUNC( MEMCPY )\n{\n   hb_retnll( ( HB_LONGLONG ) memcpy( ( void * ) hb_parnll( 1 ), ( void * ) hb_parc( 2 ), hb_parnll( 3 ) ) );\n}\n\nHB_FUNC( HB_XFREE )\n{\n   hb_xfree( ( void * ) hb_parnll( 1 ) );\n}\n\n#pragma ENDDUMP[/code]'),(679,1690,36713,3,1549352785,'Re: How to get the coordinates of a child window?','Found for I was looking for  :!: \n\nThe methods :GetCliRect() and :GetCliAreaRect() are doing exactly what I was looking for!'),(680,2473,36746,6,1550038908,'atualiza TOOLBAR','[quote=&quot;Sistem&quot;]para atualizar o menu faço assim:\n   oWnd:setmenu( MenuPrincipal() )\n   oWnd:Refresh()\n\n[b]pergunta[/b], como faço para atualizar TOOLBAR ?\n   ex: DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 IMAGELIST oImageList BALLOON\n??[/quote]'),(682,107,35365,6,1550599874,'Re: Problema con Windows 10 y la impresora predeterminada','Veo que este problema sigue sin solucionar. \nDado que ma ha vuelto a pasar retomo el asunto\n\nDespues de una instalacion en un nuevo equipo hay desactivar la función de administración automatica de Windows 10 de la impresora por defecto para poder imprimir desde fivewin a una impresora predeterminada.\n\n¿No es posible hacerlo correctamente sin desactivar esta funcionalidad de Windows?\n\nGracias'),(683,2818,0,6,1550761401,'Abrir explorador internet con una variable como URL','Estimados colegas,\n                Estoy trabajando con una programa que debe leer una variable y abrir un internet explorer con la direccion obtenida que es dinamica en mi caso. \n\nDebajo dejo un ejemplo de lo que estoy intentando ejecutar.\n\nSTATIC oWnd  // ya esta definida en mi programa\n\nFUNCTION TEST()\nLocal cIp,cCadena\n\ncIp:=\'192.168.0.253\' // esta dirección la obtengo consultando un impresor fiscal en linea sin problemas\n\ncCadena:=\'http://\' +cIp\n\nShellExecute( oWnd:hwnd,\'open\', cCadena )\n\nRETU .T.\n\nEl resultado es la apertura del internet explorer pero sin ninguna dirección en la barra de dirección, por lo tanto no muestra nada, deberia mostrar la interface del impresor que esta disponible en http://192.168.0.253\n\nMuchas gracias por su ayuda,\nSaludos cordiales Mariano'),(685,868,36874,3,1552158295,'Re: MariaDB doubt about field','[quote]Thank you Carlos but no need to block and unblock the field like dbf table in lan enviroment?[/quote]\nSELECT ... FOR UPDATE\nlocks the record.'),(686,428,0,12,1553122634,'FiveLinux sigue activo ?','Antonio, trabajo desde hace años desarrollando aplicaciones 100% Fivewin para window, tengo que ingresar al mundo de linux porque debo crear aplicaciones bajo RaspBerry, hice pruebas con Phyton para raspberry y funciona muy bien, pero de ser posible deseo continuar usando Fivewin o en este caso FiveLinux si es que puede  resolver mi requerimiento.\nLo que necesito en Linux es conectarme (odbc) con  base de datos Sql Server y/o MaríaDb para lanzar querys, necesito generar gráficos estadísticos como los que genera Tgraph entre otros, desarrollar ventanas de muy buena presentación gráfica, utilizar xbrowse (en lo posible).\n\nPuedo cubrir estos requerimientos con fiveLinux ?\n\nTu recomendación al respecto es muy apreciada para mí.\n\nMiguel'),(687,875,36898,6,1553130931,'Re: calcular stock dentro de un select con funciones de usuario','¿Tus tablas estan migradas a Sql server?'),(691,1561,37307,3,1560601304,'Re: Envio de arquivo zipado pelo webservice','Bom dia.\n\nNo envio de arquivos compactados que utilizo, seguindo a orientação de quem disponibiliza o web-service, faço o seguinte procedimento:\n\n- COMPACTO O XML;\n\n- FAÇO O BASE64;\n\n- O BASE64 É COLOCADO COMO O CONTEÚDO A SER ENVIADO PARA O SERVIDOR;\n\nNão sei se isso é padrão para todo web-service ou se é apenas pra quem utiliza o servidor para qual envio.\n\nÉ preciso ver a documentação que disponibilizaram pra você.\n\nSegue um exemplo:\n\n[code=fw]\nSaveFile( localexe+alltrim(sonumero(_cgc))+\'.xml\', cXmlConteudo)\n\nHB_ZIPFILE( localexe+alltrim(sonumero(_cgc))+&quot;.zip&quot;, {localexe+alltrim(sonumero(_cgc))+\'.xml\'}, , , .t.,, .f.,,)\n\ncXmlConteudo := Memoread(localexe+alltrim(sonumero(_cgc))+&quot;.zip&quot;)\n\nHB_Base64EncodeFile(localexe+alltrim(sonumero(_cgc))+&quot;.zip&quot;, localexe+alltrim(sonumero(_cgc))+&quot;.z64&quot;)\n\ncXmlCont := MEMOREAD(localexe+alltrim(sonumero(_cgc))+&quot;.z64&quot;)\n [/code]\n\nO conteúdo da variavel cXmlCont é que será colocado no WebService para ser enviado.\n\nEspero que ajude.\n\nt+'),(693,1535,37320,6,1560869555,'Re: Duda con oGet:cText','Hola José Luis,\n\nYo siempre lo he hecho así:\n\n[code]      cFormapag := FP-&gt;FpPago\n      IF oGet1 != NIL\n         oGet1:VarPut( FP-&gt;FpPago )\n         oGet1:Refresh()\n      ENDIF[/code]\n\nSaludos'),(694,89,0,3,1561366592,'Problem with FWH 19.05 and TDataRow','Hello RAO \n\nWith FWH 19.05 in TdataRow  ( I use ADO Mysql)  the field MEMO dosn\'t work \n\n[img]https://drive.google.com/open?id=1HWVtLRt-iPN2ecxnzS-_6PKj94VltHcx[/img]\n\nTime from start: 0 hours 5 mins 58 secs \n   Error occurred at: 24/06/2019, 10:55:41\n   Error description: Error BASE/1004  Message not found: TDATAROW:NOTE\n\nStack Calls\n===========\n   Called from: .\\source\\function\\HARBOUR.PRG =&gt; _CLSSETERROR( 247 )\n   Called from: .\\source\\classes\\DATAROW.PRG =&gt; TDATAROW:NOTE( 2152 )\n\n\nNOTE is the MEMO field \n\nRegards \nMaurizio'),(695,1406,0,3,1561467036,'TBtnBmp and font problem.','[quote=&quot;nageswaragunupudi&quot;]There is absolutely no problem with creating a font once in a global variable like oApp:oFont and then destroying it at the end of the program. This should work perfectly.\n\nI think we all know the rules, but the issue is how do we ensure that our program strictly follows this discipline.\n\nPlease ensure that:\n1) Font created by the application should be released by the application once. Only once, not more or less.\n    That means: If we created a global font variable and release it at the end of the program, we should not explicitly release that font any where inside the program either by oFont:End() or RELEASE FONT oFont.\n\n2) Wherever we want to use that font, we should either assign the font in the COMMAND or oObj:SetFont( oFont ). \nDo not assign the font directly to any control/dialog or window.[/quote]\n\nI have found Mr. Rao\'s advice about using fonts. \n\nI have never use ofont:End() in my sub programs. I have defined fonts in main application. \n\nI have not any problem with using TButton. \n\nI have decided to convert my all TButton to TBtnBmp and problem is occured. My fonts returns to default font after a while and log is created like that.\n\n[code=fw]    ------------------------------------------------------------    \n25/06/2019 14:31:36: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : 0 )\n     &lt;-TFONT:END(289) &lt;-TCONTROL:DESTROY(2259) &lt;-TBTNBMP:DESTROY(1011) &lt;-(b)TBTNBMP(184) &lt;-TBTNBMP:END(0) &lt;-TYK_DLIST:END(1317) &lt;-TYK_DETAY:VBROWSE_TEMIZLE(2379) &lt;-TYK_DETAY:ACTIVATE(1809) &lt;-TYK_LIST:GO_DETAY(831)\n    ------------------------------------------------------------    \n25/06/2019 14:31:36: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -1 )\n     &lt;-TFONT:END(289) &lt;-TCONTROL:DESTROY(2259) &lt;-TBTNBMP:DESTROY(1011) &lt;-(b)TBTNBMP(184) &lt;-TBTNBMP:END(0) &lt;-TYK_DLIST:END(1318) &lt;-TYK_DETAY:VBROWSE_TEMIZLE(2379) &lt;-TYK_DETAY:ACTIVATE(1809) &lt;-TYK_LIST:GO_DETAY(831)\n    ------------------------------------------------------------    \n25/06/2019 14:31:36: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -2 )\n     &lt;-TFONT:END(289) &lt;-TCONTROL:DESTROY(2259) &lt;-TBTNBMP:DESTROY(1011) &lt;-(b)TBTNBMP(184) &lt;-TBTNBMP:END(0) &lt;-TYK_DLIST:END(1312) &lt;-TYK_DETAY:VBROWSE_TEMIZLE(2379) &lt;-TYK_DETAY:ACTIVATE(1809) &lt;-TYK_LIST:GO_DETAY(831)\n    ------------------------------------------------------------    \n\n....\n....\n....\n\n25/06/2019 14:31:37: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -47 )\n     &lt;-TFONT:END(289) &lt;-TCONTROL:DESTROY(2280) &lt;-TXBROWSE:DESTROY(975) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-TCONTROL:HANDLEEVENT(1801) &lt;-TXBROWSE:HANDLEEVENT(11123) &lt;-_FWH(3546) &lt;-SYSREFRESH(0) &lt;-TDIALOG:END(701)\n    ------------------------------------------------------------    \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -48 )\n     &lt;-TFONT:END(289) &lt;-TWINDOW:DESTROY(2280) &lt;-(b)TDIALOG(93) &lt;-TDIALOG:DESTROY(0) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-TDIALOG:HANDLEEVENT(1136) &lt;-DIALOGBOXINDIRECT(0) &lt;-TDIALOG:ACTIVATE(304) &lt;-TYK_LIST:NEW(544)\n    ------------------------------------------------------------    \n25/06/2019 14:31:37: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -49 )\n     &lt;-TFONT:END(289) &lt;-TCONTROL:DESTROY(2280) &lt;-TBTNBMP:DESTROY(1011) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-TCONTROL:HANDLEEVENT(1801) &lt;-TBTNBMP:HANDLEEVENT(2006) &lt;-_FWH(3546) &lt;-DIALOGBOXINDIRECT(0) &lt;-TDIALOG:ACTIVATE(304)\n    ------------------------------------------------------------    \n25/06/2019 14:31:37: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -50 )\n     &lt;-TFONT:END(289) &lt;-ICRAKART(120) &lt;-MASTER_KEYDOWN(2671) &lt;-(b)MAIN(283) &lt;-TAPPLICATION:KEYDOWN(3378) &lt;-(b)TAPPLICATION_ACTIVATE(1001) &lt;-TWINDOW:KEYDOWN(2854) &lt;-TWINDOW:KEYDOWN(2858) &lt;-TCONTROL:KEYDOWN(1114)\n    ------------------------------------------------------------    \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:37: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:38: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:38: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -50 )\n     &lt;-TFONT:END(289) &lt;-TWINDOW:DESTROY(2280) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-_FWH(3546) &lt;-DESTROYWINDOW(0) &lt;-TCONTROL:SHOWTOOLTIP(3319) &lt;-TMSGBAR:SHOWTOOLTIP(700) &lt;-TMSGBAR:CHECKTOOLTIP(3289) &lt;-TMSGBAR:MOUSEMOVE(525)\n    ------------------------------------------------------------    \n25/06/2019 14:31:39: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:40: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:41: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:42: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:43: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:44: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:44: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -50 )\n     &lt;-TFONT:END(289) &lt;-TWINDOW:DESTROY(2280) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-_FWH(3546) &lt;-DESTROYWINDOW(0) &lt;-TCONTROL:SHOWTOOLTIP(3319) &lt;-TMSGBAR:SHOWTOOLTIP(700) &lt;-TMSGBAR:CHECKTOOLTIP(3289) &lt;-TMSGBAR:MOUSEMOVE(525)\n    ------------------------------------------------------------    \n25/06/2019 14:31:44: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:44: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:44: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n.....\n.....\n25/06/2019 14:31:47: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:48: FW_SAYTEXT( 266 )  hFont =     &quot;invalid font&quot; = &quot;invalid font&quot; \n25/06/2019 14:31:48: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -51 )\n     &lt;-TFONT:END(289) &lt;-TWINDOW:DESTROY(2280) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-_FWH(3546) &lt;-WINRUN(0) &lt;-TWINDOW:ACTIVATE(1078) &lt;-TAPPLICATION:ACTIVATE(1156) &lt;-MAIN(321)\n    ------------------------------------------------------------    \n25/06/2019 14:31:48: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -52 )\n     &lt;-TFONT:END(289) &lt;-TMSGITEM:END(403) &lt;-(b)TMSGBAR_DESTROY(323) &lt;-AEVAL(0) &lt;-TMSGBAR:DESTROY(323) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-TMSGBAR:HANDLEEVENT(1801) &lt;-_FWH(3546) &lt;-WINRUN(0)\n    ------------------------------------------------------------    \n25/06/2019 14:31:48: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -53 )\n     &lt;-TFONT:END(289) &lt;-TMSGITEM:END(403) &lt;-(b)TMSGBAR_DESTROY(323) &lt;-AEVAL(0) &lt;-TMSGBAR:DESTROY(323) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-TMSGBAR:HANDLEEVENT(1801) &lt;-_FWH(3546) &lt;-WINRUN(0)\n    ------------------------------------------------------------    \n.....\n.....\n\n25/06/2019 14:31:48: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -59 )\n     &lt;-TFONT:END(289) &lt;-TCONTROL:DESTROY(2280) &lt;-TMSGBAR:DESTROY(334) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-TMSGBAR:HANDLEEVENT(1801) &lt;-_FWH(3546) &lt;-WINRUN(0) &lt;-TWINDOW:ACTIVATE(1078) &lt;-TAPPLICATION:ACTIVATE(1156)\n    ------------------------------------------------------------    \n25/06/2019 14:31:48: EXCESS RELEASE OF FONT Verdana[ hFont : 0] ( nCount : -60 )\n     &lt;-TFONT:END(289) &lt;-TWINDOW:DESTROY(2280) &lt;-(b)TDIALOG(93) &lt;-TDIALOG:DESTROY(0) &lt;-TWINDOW:HANDLEEVENT(0) &lt;-TDIALOG:HANDLEEVENT(1136) &lt;-_FWH(3546) &lt;-WINRUN(0) &lt;-TWINDOW:ACTIVATE(1078)\n    ------------------------------------------------------------   [/code]'),(696,3578,37392,3,1561999682,'Re: mod_harbour what to install','[quote=&quot;Antonio Linares&quot;]More examples:\n\n[url]https://harbour.fourtech.es/modharbour_samples/chart.prg[/url][/quote]\n\nWow, amazing. Antonio is modharbour safe to provide a external access for custumers? A external user can execute a malicious prg or change one in apache server? Thank you!'),(700,190,37793,3,1569230322,'Re: ICON Image is NOT Showing','Dear Shridhar,\n\nTry like this:\n\n[code]\n\n#include &quot;fivewin.ch&quot;\n#include &quot;constant.ch&quot; // for ICO_CHARPIX_H and ICO_CHARPIX_W definistions\n\nPROCEDURE VFA_UserLogin\n\n    LOCAL oDlg\n    LOCAL oULoginIcon\n    LOCAL cDIR := &quot;C:\\APP\\IMG\\&quot;\n \n    DEFINE DIALOG oDlg TITLE &quot;Login&quot; FROM 0,0 TO 450,720  PIXEL TRUEPIXEL\n\n    @ 5, 6 ICON oULoginIcon  FILENAME  cDIR +&quot;ulogin.ico&quot;  OF oDlg \n    @ 150/ICO_CHARPIX_H, 050/ICO_CHARPIX_W ICON oULoginIcon  FILENAME  cDIR +&quot;ulogin.ico&quot;  OF oDlg \n   \n     ACTIVATE DIALOG oDlg CENTERED  \n \n return\n\n[/code]'),(699,147,34260,3,1563971119,'Re: METRO with visible taskbar ?','Hello Uwe\nsorry for my english\nI do it your change: oRect:nTop        := oRect:nBottom - SCRLB_HEIGHT - 40\nbut... look my image. Not see the Taskbar\nwaht is the problem?'),(701,51,37860,45,1570466991,'Re: session object','Hello,\nsession object is working perferctly.\nSave Javascript objects in sessionStorage\n\n https://stackoverflow.com/questions/6193574/save-javascript-objects-in-sessionstorage\n\n\n\ncalling web page:\n [code=fw]\n   var name =  Object.create(null);\n    name.FirstName= &quot;Otto&quot;;\n    name.LastName = &quot;Mustermann&quot;\n    name.strasse=&quot;Bahnhofstrasse&quot;\n    name.Age =&quot;25&quot;\n\n     sessionStorage.setItem(\'example\', JSON.stringify(name));[/code]\n\nrequest page\n\n[code=fw]var temp = sessionStorage.getItem(\'example\');\n        \nvar viewName = $.parseJSON(temp);\nvar div = \'&lt;div&gt;\' + viewName.FirstName + \' \' + viewName.LastName + \' \' + viewName.strasse + \' is \' + viewName.Age + \' years old.\' + \'&lt;/div&gt;\';[/code]'),(702,1639,0,45,1572598052,'mistake','If when performing any .prg there was a mistake,\n(for example at me midnight.prg gives a mistake) and after it to start the working .prg\n(for example info.prg), in the browser the mistake will hang all the same. That info.prg\nearned it is necessary to stop Apach in XAMPP\'e, to start and refresh the page. Whether there is simpler option?'),(703,3921,0,6,1572959388,'TXBROWSE: colorear líneas','Hola gente !\nUna pregunta sencilla para ustedes:\n\nCuando muestro un archivo con el xbrowse;\nComo hago para que al pasar el mouse sobre todos los registros (sin hacer clic), \nse vayan iluminando las filas como si fuera la página principal de éste foro ?\n\nSaludos y gracias.\nPedro Lavallen.'),(705,3140,37272,6,1573121069,'Re: Fwh19.05 - New Class TDockPnel','Bom dia \nAonde faço o download do arquivo citas.dbf'),(706,2713,38025,6,1573572774,'Re: Consulta Sobre Agenda Medica','[b]amminf[/b]\n+\n[b]@[/b]\n+\n[b]hotmail[/b]\n+\n[b].com[/b]'),(708,1257,38242,3,1576954174,'Re: Problem on a Dialog (btnbmp are disabled)','Silvio,\n\nchange \n\n[color=#FF0000]oDlg:bResized  := &lt;||[/color]\nto \n[color=#008000][b]oDlg:bPainted  := &lt;||[/b][/color]\nand delete\n[color=#FF0000]EVAL( oDlg:bResized[/color])\n\nregards\nUwe :D'),(710,89,38455,3,1581167573,'Re: Field type time() in MYSQL','[quote=&quot;Maurizio&quot;]Hello\nI have a MySQL table with a field type time()  ( I use Ado  )\n\n[url]https://drive.google.com/file/d/1w85dTGdh8HasWiJfbggHCotneDcabXZH/view?usp=sharing[/url]\n \n\n\nWhen I use with FW instead of having  13:00:00     I have \n\n[url]https://drive.google.com/open?id=12yT0ssLDJSLocr_U2yof3-ar-3BMxoM1[/url]\n \n\nis it a error or should i format the field?\n\nThanks \n\nMaurizio[/quote]'),(711,110,38522,3,1582581795,'Re: ADS and autoincremental fields','Hi, i try this examples and work ok.\n[code]\n#include &quot;common.ch&quot;\n#include &quot;dbinfo.ch&quot;\n#include &quot;ads.ch&quot;\n\nREQUEST ADS\n//REQUEST DBFCDX, DBFFPT\nREQUEST HB_LANG_ESWIN, HB_CODEPAGE_ESWIN\n\n//EXTERNAL OrdKeyNo, OrdKeyCount, OrdKeyGoTo, OrdKeyRelPos\nEXTERNAL AdsKeyNo, AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos\n\nPROCEDURE Main()\n  LOCAL aStruct := { ;\n         { &quot;CHARACTER&quot;, &quot;C&quot;, 25, 0 }, ;\n         { &quot;NUMERIC&quot;  , &quot;N&quot;,  8, 0 }, ;\n         { &quot;DOUBLE&quot;   , &quot;N&quot;,  8, 2 }, ;\n         { &quot;DATE&quot;     , &quot;D&quot;,  8, 0 }, ;\n         { &quot;LOGICAL&quot;  , &quot;L&quot;,  1, 0 }, ;\n         { &quot;MEMO1&quot;    , &quot;M&quot;, 10, 0 }, ;\n         { &quot;MEMO2&quot;    , &quot;M&quot;, 10, 0 }, ;\n         { &quot;MYRECNO&quot;  , &quot;+&quot;, 4, 0  }  } /*work with Autoinc and + both*/\n\n  hb_LangSelect(  &quot;ESWIN&quot; )\n  hb_SetCodePage( &quot;ESWIN&quot; )\n\n  RddSetDefault( &quot;ADS&quot; )\n   \n  set date brit\n  set cent on\n  set opti on\n  set dele on\n  \n  SET SERVER LOCAL\n  SET AXS LOCKING OFF\n  SET RIGHTS CHECKING OFF\n  SET CHARTYPE TO ANSI\n  SET FILETYPE TO ADT\n  \n  SetMode(25,80)\n  cls\n  \n  WAIT &quot;Exist table: &quot; + iif( hb_dbExists( &quot;testdbf&quot; ), &quot;Si&quot;, &quot;No&quot; )\n  \n  IF !hb_dbExists( &quot;testdbf&quot; )\n    DbCreate( &quot;testdbf&quot;, aStruct, &quot;ADS&quot;, .T., &quot;mylias&quot; )\n    index on CHARACTER to char01\n  ELSE\n    USE testdbf NEW ALIAS myalias\n    SET INDEX TO char01\n    WAIT &quot;IndexOrder: &quot; + hb_ntos( OrdNumber() ) + &quot; / &quot; + OrdKey()\n  ENDIF\n  \n  Browse()\n  \n  use\n  \nRETURN\n[/code]'),(712,1010,0,6,1583923038,'FIVEDIT noname.prg','Estimados\n\nCompilando con FIVEDIT, me quedó asociado el prg noname.prg con el saludo Hello Work, y no encuentro donde sacarlo.\n\ngracias'),(713,1140,38600,3,1584833268,'Re: BUFFER CONVERSION TO BITMAP','[quote=&quot;Antonio Linares&quot;]Marcelo,\n\nPlease check function CreateMemBitmap() here:\n\nhttp://forums.fivetechsupport.com/viewtopic.php?p=230018#p230018[/quote]\n\n\n\nAntônio\nthanks'),(714,1010,0,6,1585014318,'Funcion Enviar mail de xHabour a Habour no funciona','Estimados\n\nesta funcion de enviar mail que funciona con xHarbour no funciona en Harbour\n\n[code]\nFUNCTION SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer, nPriority, lRead, lTrace, lPopAuth, lNoAuth, nTimeOut, cReplyTo )\n   /*\n   cServer    -&gt; Necessário. Nome IP ou o domínio do servidor de email\n   nPort      -&gt; Opcional.   A porta usada pelo o meu servidor de email\n   cFro       -&gt; Necessário. Endereço de email do remetente\n   aTo        -&gt; Necessário. Seqüência de caracteres ou matriz de endereços de email para enviar o email para\n   aCC        -&gt; Opcional.   Seqüência de caracteres ou matriz de email adresses para CC (Copia do email)\n   aBCC       -&gt; Opcional.   Seqüência de caracteres ou matriz de email adresses de Cco (copia oculta do email)\n   cBody      -&gt; Opcional.   A mensagem do corpo do email como texto, ou o nome do arquivo da mensagem em HTML para enviar.\n   cSubject   -&gt; Opcional.   Assunto do email\n   aFiles     -&gt; Opcional.   Matriz/arquivos de anexos para enviar com o email\n   cUser      -&gt; Necessário. Nome de usuário para o servidor POP3\n   cPass      -&gt; Necessário. Senha para cUser\n   cPopServer -&gt; Necessário. Nome IP ou o domínio do servidor de email POP3\n   nPriority  -&gt; Opcional.   Email de prioridade: 1 = alta, 3 = Normal (padrão), 5 = baixa\n   lRead      -&gt; Opcional.   Se definido como. T., uma solicitação de confirmação é enviada. A configuração padrão é. f.\n   lTrace     -&gt; Opcional.   Se definido como. T., um arquivo de log é criado (sendmail &lt;nNr&gt;.log). A configuração padrão é. f.\n   lPopAuth   -&gt; Opcional.   Sinalizador para indicar que Autentication POP3 é usado. A configuração padrão é. T.\n   lnoauth    -&gt; Opcional.   Servidores de email que nao precisam de autenticacao smtp\n   nTimeOut   -&gt; Opcional.   Numero de milesimos de segundos a Aguarda o envio - Padrão é 2000(2 segundos)\n   cReplyTo   -&gt; Opcional.\n   */\n\n   LOCAL oInMail, cBodyTemp, oUrl, oMail, oAttach, aThisFile, cFile, cFname, cFext, cData, oUrl1\n\n   LOCAL cTmp          :=&quot;&quot;\n   LOCAL cMimeText     := &quot;&quot;\n   LOCAL cTo           := &quot;&quot;\n   LOCAL cCC           := &quot;&quot;\n   LOCAL cBCC          := &quot;&quot;\n\n   LOCAL lConnectPlain := .F.\n   LOCAL lReturn       := .T.\n   LOCAL lAuthLogin    := .F.\n   LOCAL lAuthPlain    := .F.\n   LOCAL lConnect      := .T.\n   LOCAL oPop\n   LOCAL adata:={},nCount,nSize,nSent\n\n   DEFAULT cUser       := &quot;&quot;\n   DEFAULT cPass       := &quot;&quot;\n   DEFAULT nPort       := 25\n   DEFAULT aFiles      := {}\n   DEFAULT nPriority   := 3\n   DEFAULT lRead       := .F.\n   DEFAULT lTrace      := .F.\n   DEFAULT lPopAuth    := .T.\n   DEFAULT lNoAuth     := .F.\n   DEFAULT nTimeOut    := 10000  // 20000\n   DEFAULT cReplyTo    := &quot;&quot;\n\n   cUser := StrTran( cUser, &quot;@&quot;, &quot;&amp;at;&quot; )\n\n   IF !( (&quot;.htm&quot; IN Lower( cBody ) .OR. &quot;.html&quot; IN Lower( cBody ) ) .AND. File(cBody) )\n\n      IF !( Right( cBody, 2 ) == HB_OSNewLine() )\n         cBody += HB_OsNewLine()\n      ENDIF\n\n   ENDIF\n\n   // cTo\n   IF Valtype( aTo ) == &quot;A&quot;\n      IF Len( aTo ) &gt; 1\n         FOR EACH cTo IN aTo\n            IF HB_EnumIndex() != 1\n               cTmp += cTo + &quot;,&quot;\n            ENDIF\n         NEXT\n         cTmp := Substr( cTmp, 1, Len( cTmp ) - 1 )\n      ENDIF\n      cTo := aTo[ 1 ]\n      IF Len( cTmp ) &gt; 0\n         cTo += &quot;,&quot; + cTmp\n      ENDIF\n   ELSE\n      cTo := Alltrim( aTo )\n   ENDIF\n\n\n   // CC (Carbon Copy)\n   IF Valtype(aCC) ==&quot;A&quot;\n      IF Len(aCC) &gt;0\n         FOR EACH cTmp IN aCC\n            cCC += cTmp + &quot;,&quot;\n         NEXT\n         cCC := Substr( cCC, 1, Len( cCC ) - 1 )\n      ENDIF\n   ELSEIF Valtype(aCC) ==&quot;C&quot;\n      cCC := Alltrim( aCC )\n   ENDIF\n\n\n   // BCC (Blind Carbon Copy)\n   IF Valtype(aBCC) ==&quot;A&quot;\n      IF Len(aBCC)&gt;0\n         FOR EACH cTmp IN aBCC\n            cBCC += cTmp + &quot;,&quot;\n         NEXT\n         cBCC := Substr( cBCC, 1, Len( cBCC ) - 1 )\n      ENDIF\n   ELSEIF Valtype(aBCC) ==&quot;C&quot;\n      cBCC := Alltrim( aBCC )\n   ENDIF\n\n   IF cPopServer != NIL .AND. lPopAuth\n      TRY\n         oUrl1 := tUrl():New( &quot;pop://&quot; + cUser + &quot;:&quot; + cPass + &quot;@&quot; + cPopServer + &quot;/&quot; )\n         oUrl1:cUserid := Strtran( cUser, &quot;&amp;at;&quot;, &quot;@&quot; )\n         opop:= tIPClientPOP():New( oUrl1, lTrace )\n         IF oPop:Open()\n            oPop:Close()\n         ENDIF\n      CATCH\n         lReturn := .F.\n      END\n\n   ENDIF\n\n   IF !lReturn\n      RETURN .F.\n   ENDIF\n\n   TRY\n      oUrl := tUrl():New( &quot;smtp://&quot; + cUser + &quot;@&quot; + cServer + \'/\' + cTo )\n   CATCH\n      lReturn := .F.\n   END\n\n   IF !lReturn\n      RETURN .F.\n   ENDIF\n\n   oUrl:nPort   := nPort\n   oUrl:cUserid := Strtran( cUser, &quot;&amp;at;&quot;, &quot;@&quot; )\n\n   oMail   := tipMail():new()\n   oAttach := tipMail():new()\n   oAttach:SetEncoder( &quot;7-bit&quot; )\n\n   IF (&quot;.htm&quot; IN Lower( cBody ) .OR. &quot;.html&quot; IN Lower( cBody ) ) .AND. File(cBody)\n      cMimeText := &quot;text/html ; charset=ISO-8859-1&quot;\n      oAttach:hHeaders[ &quot;Content-Type&quot; ] := cMimeText\n      cBodyTemp := cBody\n      cBody     := MemoRead( cBodyTemp ) + chr( 13 ) + chr( 10 )\n\n   ELSE\n      oMail:hHeaders[ &quot;Content-Type&quot; ] := &quot;text/plain; charset=iso8851&quot;\n   ENDIF\n\n   oAttach:SetBody( cBody )\n   oMail:Attach( oAttach )\n   oUrl:cFile := cTo + If( Empty(cCC), &quot;&quot;, &quot;,&quot; + cCC ) + If( Empty(cBCC), &quot;&quot;, &quot;,&quot; + cBCC)\n\n   oMail:hHeaders[ &quot;Date&quot; ] := tip_Timestamp()\n   oMail:hHeaders[ &quot;From&quot; ] := cFrom\n\n   IF !Empty(cCC)\n      oMail:hHeaders[ &quot;Cc&quot; ] := cCC\n   ENDIF\n   IF !Empty(cBCC)\n      oMail:hHeaders[ &quot;Bcc&quot; ] := cBCC\n   ENDIF\n   IF !Empty(cReplyTo)\n      oMail:hHeaders[ &quot;Reply-To&quot; ] := cReplyTo\n   ENDIF\n\n   TRY\n      oInmail := tIPClientSMTP():New( oUrl, lTrace)\n   CATCH\n      lReturn := .F.\n   END\n\n   IF !lReturn\n      RETURN .F.\n   ENDIF\n\n   oInmail:nConnTimeout:= nTimeOut\n\n   IF !lNoAuth\n\n      IF oInMail:Opensecure()\n\n         WHILE .T.\n            oInMail:GetOk()\n            IF oInMail:cReply == NIL\n               EXIT\n            ELSEIF &quot;LOGIN&quot; IN oInMail:cReply\n               lAuthLogin := .T.\n            ELSEIF &quot;PLAIN&quot; IN oInMail:cReply\n               lAuthPlain := .T.\n            ENDIF\n         ENDDO\n\n         IF lAuthLogin\n            IF !oInMail:Auth( cUser, cPass )\n               lConnect := .F.\n            ELSE\n               lConnectPlain  := .T.\n            ENDIF\n         ENDIF\n\n         IF lAuthPlain .AND. !lConnect\n            IF !oInMail:AuthPlain( cUser, cPass )\n               lConnect := .F.\n            ENDIF\n         ELSE\n            IF !lConnectPlain\n               oInmail:Getok()\n               lConnect := .F.\n            ENDIF\n         ENDIF\n      ELSE\n         lConnect := .F.\n      ENDIF\n   ELSE\n      lConnect := .F.\n   ENDIF\n\n   IF !lConnect\n\n      if !lNoAuth\n         oInMail:Close()\n      endif\n\n      TRY\n         oInmail := tIPClientsmtp():New( oUrl, lTrace)\n      CATCH\n         lReturn := .F.\n      END\n\n      oInmail:nConnTimeout:=nTimeOut\n\n\n      IF !oInMail:Open()\n         lConnect := .F.\n         oInmail:Close()\n         RETURN .F.\n      ENDIF\n\n      WHILE .T.\n         oInMail:GetOk()\n         IF oInMail:cReply == NIL\n            EXIT\n         ENDIF\n      ENDDO\n\n   ENDIF\n\n   oInMail:oUrl:cUserid := cFrom\n   oMail:hHeaders[ &quot;To&quot; ]      := cTo\n   oMail:hHeaders[ &quot;Subject&quot; ] := cSubject\n\n   FOR EACH aThisFile IN AFiles\n\n      IF Valtype( aThisFile ) == &quot;C&quot;\n         cFile := aThisFile\n         cData := Memoread( cFile ) + chr( 13 ) + chr( 10 )\n      ELSEIF Valtype( aThisFile ) == &quot;A&quot; .AND. Len( aThisFile ) &gt;= 2\n         cFile := aThisFile[ 1 ]\n         cData := aThisFile[ 2 ] + chr( 13 ) + chr( 10 )\n      ELSE\n         lReturn := .F.\n         EXIT\n      ENDIF\n\n      oAttach := TipMail():New()\n\n      HB_FNameSplit( cFile,, @cFname, @cFext )\n\n      IF Lower( cFile ) LIKE &quot;.+\\.(vbd|asn|asz|asd|pqi|tsp|exe|sml|ofml)&quot;    .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(pfr|frl|spl|gz||stk|ips|ptlk|hqx|mbd)&quot;    .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(mfp|pot|pps|ppt|ppz|doc|n2p|bin|class)&quot;   .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(lha|lzh|lzx|dbf|cdx|dbt|fpt|ntx|oda)&quot;     .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(axs|zpa|pdf|ai|eps|ps|shw|qrt|rtc|rtf)&quot;   .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(smp|dst|talk|tbk|vmd|vmf|wri|wid|rrf)&quot;    .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(wis|ins|tmv|arj|asp|aabaam|aas|bcpio)&quot;    .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(vcd|chat|cnc|coda|page|z|con|cpio|pqf)&quot;   .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(csh|cu|csm|dcr|dir|dxr|swa|dvi|evy|ebk)&quot;  .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(gtar|hdf|map|phtml|php3|ica|ipx|ips|js)&quot;  .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(latex|bin|mif|mpl|mpire|adr|wlt|nc|cdf)&quot;  .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(npx|nsc|pgp|css|sh||shar|swf|spr|sprite)&quot; .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(sit|sca|sv4cpio|sv4crc|tar|tcl|tex)&quot;      .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(texinfo|texi|tlk|t|tr|roff|man|mems)&quot;     .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(alt|che|ustar|src|xls|xlt|zip|au|snd)&quot;    .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(es|gsm|gsd|rmf|tsi|vox|wtx|aif|aiff)&quot;     .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(aifc|cht|dus|mid|midi|mp3|mp2|m3u|ram)&quot;   .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(ra|rpm|stream|rmf|vqf|vql|vqe|wav|wtx)&quot;   .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(mol|pdb|dwf|ivr|cod|cpi|fif|gif|ief)&quot;     .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(jpeg|jpg|jpe|rip|svh|tiff|tif|mcf|svf)&quot;   .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(dwg|dxf|wi|ras|etf|fpx|fh5|fh4|fhc|dsf)&quot;  .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(pnm|pbm|pgm|ppm|rgb|xbm|xpm|xwd|dig)&quot;     .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(push|wan|waf||afl|mpeg|mpg|mpe|qt|mov)&quot;   .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(viv|vivo|asf|asx|avi|movie|vgm|vgx)&quot;      .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(xdr|vgp|vts|vtts|3dmf|3dm|qd3d|qd3)&quot;      .OR. ;\n         Lower( cFile ) LIKE &quot;.+\\.(svr|wrl|wrz|vrt)&quot;                       .OR. Empty(cFExt)\n         oAttach:SetEncoder( &quot;base64&quot; )\n      ELSE\n         oAttach:SetEncoder( &quot;7-bit&quot; )\n      ENDIF\n\n      cMimeText := HB_SetMimeType( cFile, cFname, cFext )\n      // Some EMAIL readers use Content-Type to check for filename\n\n      IF &quot;.html&quot; in lower( cFext) .OR. &quot;.htm&quot; in lower( cFext )\n         cMimeText += &quot;; charset=ISO-8859-1&quot;\n      ENDIF\n\n      oAttach:hHeaders[ &quot;Content-Type&quot; ] := cMimeText\n      // But usually, original filename is set here\n      oAttach:hHeaders[ &quot;Content-Disposition&quot; ] := &quot;attachment; filename=&quot; + cFname + cFext\n      oAttach:SetBody( cData )\n      oMail:Attach( oAttach )\n\n   NEXT\n\n   IF lRead\n      oMail:hHeaders[ &quot;Disposition-Notification-To&quot; ] := cUser\n   ENDIF\n\n   IF nPriority != 3\n      oMail:hHeaders[ &quot;X-Priority&quot; ] := Str( nPriority, 1 )\n   ENDIF\n\n   oInmail:Write( oMail:ToString() )\n/*   cData := oMail:ToString()\n   nSize := Len(cData)\n   for nCount := 1 to len(cData) step 1024\n       aadd(aData, substr( cData,nCount,1024))\n   next\n   nSent :=0\n   for nCount :=1 to len(aData)\n      nSent += oInmail:Write( aData[nCount],len(aData[nCount]))\n   next\n*/\n   oInMail:Commit()\n   oInMail:Close()\n\nRETURN lReturn\n\n\n//-------------------------------------------------------------//\n\n\nFUNCTION HB_SetMimeType( cFile, cFname, cFext )\n\n   cFile := Lower( cFile )\n\n   IF     cFile LIKE &quot;.+\\.vbd&quot;                         ; RETURN &quot;application/activexdocument=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(asn|asz|asd)&quot;               ; RETURN &quot;application/astound=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pqi&quot;                         ; RETURN &quot;application/cprplayer=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tsp&quot;                         ; RETURN &quot;application/dsptype=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.exe&quot;                         ; RETURN &quot;application/exe=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(sml|ofml)&quot;                  ; RETURN &quot;application/fml=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pfr&quot;                         ; RETURN &quot;application/font-tdpfr=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.frl&quot;                         ; RETURN &quot;application/freeloader=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.spl&quot;                         ; RETURN &quot;application/futuresplash =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.gz&quot;                          ; RETURN &quot;application/gzip =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.stk&quot;                         ; RETURN &quot;application/hstu =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ips&quot;                         ; RETURN &quot;application/ips=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ptlk&quot;                        ; RETURN &quot;application/listenup =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.hqx&quot;                         ; RETURN &quot;application/mac-binhex40 =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.mbd&quot;                         ; RETURN &quot;application/mbedlet=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.mfp&quot;                         ; RETURN &quot;application/mirage=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(pot|pps|ppt|ppz)&quot;           ; RETURN &quot;application/mspowerpoint =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.doc&quot;                         ; RETURN &quot;application/msword=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.n2p&quot;                         ; RETURN &quot;application/n2p=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(bin|class|lha|lzh|lzx|dbf)&quot; ; RETURN &quot;application/octet-stream =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.oda&quot;                         ; RETURN &quot;application/oda=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.axs&quot;                         ; RETURN &quot;application/olescript=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.zpa&quot;                         ; RETURN &quot;application/pcphoto=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pdf&quot;                         ; RETURN &quot;application/pdf=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(ai|eps|ps)&quot;                 ; RETURN &quot;application/postscript=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.shw&quot;                         ; RETURN &quot;application/presentations=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.qrt&quot;                         ; RETURN &quot;application/quest=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rtc&quot;                         ; RETURN &quot;application/rtc=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rtf&quot;                         ; RETURN &quot;application/rtf=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.smp&quot;                         ; RETURN &quot;application/studiom=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.dst&quot;                         ; RETURN &quot;application/tajima=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.talk&quot;                        ; RETURN &quot;application/talker=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tbk&quot;                         ; RETURN &quot;application/toolbook =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vmd&quot;                         ; RETURN &quot;application/vocaltec-media-desc=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vmf&quot;                         ; RETURN &quot;application/vocaltec-media-file=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wri&quot;                         ; RETURN &quot;application/write=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wid&quot;                         ; RETURN &quot;application/x-DemoShield =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rrf&quot;                         ; RETURN &quot;application/x-InstallFromTheWeb=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wis&quot;                         ; RETURN &quot;application/x-InstallShield=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ins&quot;                         ; RETURN &quot;application/x-NET-Install=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tmv&quot;                         ; RETURN &quot;application/x-Parable-Thing=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.arj&quot;                         ; RETURN &quot;application/x-arj=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.asp&quot;                         ; RETURN &quot;application/x-asap=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.aab&quot;                         ; RETURN &quot;application/x-authorware-bin =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(aam|aas)&quot;                   ; RETURN &quot;application/x-authorware-map =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.bcpio&quot;                       ; RETURN &quot;application/x-bcpio=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vcd&quot;                         ; RETURN &quot;application/x-cdlink =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.chat&quot;                        ; RETURN &quot;application/x-chat=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.cnc&quot;                         ; RETURN &quot;application/x-cnc=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(coda|page)&quot;                 ; RETURN &quot;application/x-coda=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.z&quot;                           ; RETURN &quot;application/x-compress=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.con&quot;                         ; RETURN &quot;application/x-connector=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.cpio&quot;                        ; RETURN &quot;application/x-cpio=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pqf&quot;                         ; RETURN &quot;application/x-cprplayer=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.csh&quot;                         ; RETURN &quot;application/x-csh=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(cu|csm)&quot;                    ; RETURN &quot;application/x-cu-seeme=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(dcr|dir|dxr|swa)&quot;           ; RETURN &quot;application/x-director=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.dvi&quot;                         ; RETURN &quot;application/x-dvi=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.evy&quot;                         ; RETURN &quot;application/x-envoy=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ebk&quot;                         ; RETURN &quot;application/x-expandedbook=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.gtar&quot;                        ; RETURN &quot;application/x-gtar=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.hdf&quot;                         ; RETURN &quot;application/x-hdf=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.map&quot;                         ; RETURN &quot;application/x-httpd-imap =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.phtml&quot;                       ; RETURN &quot;application/x-httpd-php=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.php3&quot;                        ; RETURN &quot;application/x-httpd-php3 =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ica&quot;                         ; RETURN &quot;application/x-ica=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ipx&quot;                         ; RETURN &quot;application/x-ipix=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ips&quot;                         ; RETURN &quot;application/x-ipscript=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.js&quot;                          ; RETURN &quot;application/x-javascript =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.latex&quot;                       ; RETURN &quot;application/x-latex=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.bin&quot;                         ; RETURN &quot;application/x-macbinary=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.mif&quot;                         ; RETURN &quot;application/x-mif=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(mpl|mpire)&quot;                 ; RETURN &quot;application/x-mpire=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.adr&quot;                         ; RETURN &quot;application/x-msaddr =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wlt&quot;                         ; RETURN &quot;application/x-mswallet=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(nc|cdf)&quot;                    ; RETURN &quot;application/x-netcdf =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.npx&quot;                         ; RETURN &quot;application/x-netfpx =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.nsc&quot;                         ; RETURN &quot;application/x-nschat =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pgp&quot;                         ; RETURN &quot;application/x-pgp-plugin =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.css&quot;                         ; RETURN &quot;application/x-pointplus=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.sh&quot;                          ; RETURN &quot;application/x-sh =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.shar&quot;                        ; RETURN &quot;application/x-shar=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.swf&quot;                         ; RETURN &quot;application/x-shockwave-flash=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.spr&quot;                         ; RETURN &quot;application/x-sprite =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.sprite&quot;                      ; RETURN &quot;application/x-sprite =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.sit&quot;                         ; RETURN &quot;application/x-stuffit=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.sca&quot;                         ; RETURN &quot;application/x-supercard=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.sv4cpio&quot;                     ; RETURN &quot;application/x-sv4cpio=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.sv4crc&quot;                      ; RETURN &quot;application/x-sv4crc =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tar&quot;                         ; RETURN &quot;application/x-tar=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tcl&quot;                         ; RETURN &quot;application/x-tcl=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tex&quot;                         ; RETURN &quot;application/x-tex=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(texinfo|texi)&quot;              ; RETURN &quot;application/x-texinfo=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tlk&quot;                         ; RETURN &quot;application/x-tlk=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(t|tr|roff)&quot;                 ; RETURN &quot;application/x-troff=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.man&quot;                         ; RETURN &quot;application/x-troff-man=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.me&quot;                          ; RETURN &quot;application/x-troff-me=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ms&quot;                          ; RETURN &quot;application/x-troff-ms=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.alt&quot;                         ; RETURN &quot;application/x-up-alert=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.che&quot;                         ; RETURN &quot;application/x-up-cacheop =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ustar&quot;                       ; RETURN &quot;application/x-ustar=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.src&quot;                         ; RETURN &quot;application/x-wais-source=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.xls&quot;                         ; RETURN &quot;application/xls=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.xlt&quot;                         ; RETURN &quot;application/xlt=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.zip&quot;                         ; RETURN &quot;application/zip=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(au|snd)&quot;                    ; RETURN &quot;audio/basic=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.es&quot;                          ; RETURN &quot;audio/echospeech =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(gsm|gsd)&quot;                   ; RETURN &quot;audio/gsm=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rmf&quot;                         ; RETURN &quot;audio/rmf=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tsi&quot;                         ; RETURN &quot;audio/tsplayer=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vox&quot;                         ; RETURN &quot;audio/voxware=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wtx&quot;                         ; RETURN &quot;audio/wtx=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(aif|aiff|aifc)&quot;             ; RETURN &quot;audio/x-aiff =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(cht|dus)&quot;                   ; RETURN &quot;audio/x-dspeech=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(mid|midi)&quot;                  ; RETURN &quot;audio/x-midi =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.mp3&quot;                         ; RETURN &quot;audio/x-mpeg =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.mp2&quot;                         ; RETURN &quot;audio/x-mpeg =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.m3u&quot;                         ; RETURN &quot;audio/x-mpegurl=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(ram|ra)&quot;                    ; RETURN &quot;audio/x-pn-realaudio =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rpm&quot;                         ; RETURN &quot;audio/x-pn-realaudio-plugin=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.stream&quot;                      ; RETURN &quot;audio/x-qt-stream=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rmf&quot;                         ; RETURN &quot;audio/x-rmf=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(vqf|vql)&quot;                   ; RETURN &quot;audio/x-twinvq=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vqe&quot;                         ; RETURN &quot;audio/x-twinvq-plugin=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wav&quot;                         ; RETURN &quot;audio/x-wav=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wtx&quot;                         ; RETURN &quot;audio/x-wtx=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.mol&quot;                         ; RETURN &quot;chemical/x-mdl-molfile=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pdb&quot;                         ; RETURN &quot;chemical/x-pdb=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.dwf&quot;                         ; RETURN &quot;drawing/x-dwf=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ivr&quot;                         ; RETURN &quot;i-world/i-vrml=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.cod&quot;                         ; RETURN &quot;image/cis-cod=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.cpi&quot;                         ; RETURN &quot;image/cpi=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.fif&quot;                         ; RETURN &quot;image/fif=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.gif&quot;                         ; RETURN &quot;image/gif=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ief&quot;                         ; RETURN &quot;image/ief=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(jpeg|jpg|jpe)&quot;              ; RETURN &quot;image/jpeg=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rip&quot;                         ; RETURN &quot;image/rip=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.svh&quot;                         ; RETURN &quot;image/svh=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(tiff|tif)&quot;                  ; RETURN &quot;image/tiff=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.mcf&quot;                         ; RETURN &quot;image/vasa=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(svf|dwg|dxf)&quot;               ; RETURN &quot;image/vnd=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.wi&quot;                          ; RETURN &quot;image/wavelet=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ras&quot;                         ; RETURN &quot;image/x-cmu-raster=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.etf&quot;                         ; RETURN &quot;image/x-etf=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.fpx&quot;                         ; RETURN &quot;image/x-fpx=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(fh5|fh4|fhc)&quot;               ; RETURN &quot;image/x-freehand =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.dsf&quot;                         ; RETURN &quot;image/x-mgx-dsf=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pnm&quot;                         ; RETURN &quot;image/x-portable-anymap=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pbm&quot;                         ; RETURN &quot;image/x-portable-bitmap=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pgm&quot;                         ; RETURN &quot;image/x-portable-graymap =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ppm&quot;                         ; RETURN &quot;image/x-portable-pixmap=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rgb&quot;                         ; RETURN &quot;image/x-rgb=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.xbm&quot;                         ; RETURN &quot;image/x-xbitmap=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.xpm&quot;                         ; RETURN &quot;image/x-xpixmap=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.xwd&quot;                         ; RETURN &quot;image/x-xwindowdump=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.dig&quot;                         ; RETURN &quot;multipart/mixed=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.push&quot;                        ; RETURN &quot;multipart/x-mixed-replace=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(wan|waf)&quot;                   ; RETURN &quot;plugin/wanimate=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.ccs&quot;                         ; RETURN &quot;text/ccs =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(htm|html)&quot;                  ; RETURN &quot;text/html=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.pgr&quot;                         ; RETURN &quot;text/parsnegar-document=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.txt&quot;                         ; RETURN &quot;text/plain=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.rtx&quot;                         ; RETURN &quot;text/richtext=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.tsv&quot;                         ; RETURN &quot;text/tab-separated-values=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.hdml&quot;                        ; RETURN &quot;text/x-hdml=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.etx&quot;                         ; RETURN &quot;text/x-setext=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(talk|spc)&quot;                  ; RETURN &quot;text/x-speech=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.afl&quot;                         ; RETURN &quot;video/animaflex=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(mpeg|mpg|mpe)&quot;              ; RETURN &quot;video/mpeg=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(qt|mov)&quot;                    ; RETURN &quot;video/quicktime=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(viv|vivo)&quot;                  ; RETURN &quot;video/vnd.vivo=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(asf|asx)&quot;                   ; RETURN &quot;video/x-ms-asf=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.avi&quot;                         ; RETURN &quot;video/x-msvideo=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.movie&quot;                       ; RETURN &quot;video/x-sgi-movie=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(vgm|vgx|xdr)&quot;               ; RETURN &quot;video/x-videogram=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vgp&quot;                         ; RETURN &quot;video/x-videogram-plugin =&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vts&quot;                         ; RETURN &quot;workbook/formulaone=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vtts&quot;                        ; RETURN &quot;workbook/formulaone=&quot;+cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(3dmf|3dm|qd3d|qd3)&quot;         ; RETURN &quot;x-world/x-3dmf=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.svr&quot;                         ; RETURN &quot;x-world/x-svr=&quot; + cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.(wrl|wrz)&quot;                   ; RETURN &quot;x-world/x-vrml=&quot; +cFname + cFext\n   ELSEIF cFile LIKE &quot;.+\\.vrt&quot;                         ; RETURN &quot;x-world/x-vrt=&quot; + cFname + cFext\n   ENDIF\nRETURN &quot;text/plain;filename=&quot; + cFname + cFext\n\n\n[/code]'),(715,3687,38634,6,1585746528,'Re: Ayuda con SQL','Esta es la rutina donde genero los registros:\n\n\nfunction generoreci()\n   xtotal = xefectivo + xtotche + ximpretiva + ximpretgan + ximpretrg + ximpretibr + acuenta\n   if xtotal = 0\n      msginfo( &quot;Monto abonado en cero&quot; )\n      retu .f.\n   endif\n\n   wtxt = &quot;errorecib.txt&quot;\n   ferase( wtxt )\n   cHande = FCREATE ( wtxt )\n\n   cSQLNum := &quot;SELECT * FROM numdoc where numero = &quot; + str( xemprevige )\n   oRS1num := CargaRecordSet( cSQLnum, CadenaCon )\n\n   IF oRS1num = nil\n      Msginfo( &quot;problemas, no puedo leer numdoc&quot; )\n      retu .t.\n   endif\n   if acuenta = 0\n      xrecibo    := oRS1num:Fields( &quot;recibo&quot;  ):value + 1\n   endif\n\n\n   val_fam( xfamilia )\n\n   if limpreci\n      imprireci()\n    *  retu .f.\n   endif\n\n   xnombre = xpadre\n   sele au_reci\n   go top\n   i = 1\n *  ? xdescu\n   copias = 1\n\n   if ximpinteres &lt; 0\n      x1impabon := xtotal + imp_nc + ( ximpinteres * - 1 ) + acuenta\n   else\n      x1impabon := xtotal + imp_nc + acuenta - ximpinteres\n   endif\n\n   xsaldo = 0\n   SQLMVen = &quot;&quot;\n   if xfactura = 0\n   else\n      do while i &lt;= len( tfactura )\n         if tfactura[ i, 1 ] = &quot;*&quot;\n            jk = val( tfactura[ i, 3 ] )\n            if tfactura[ i, 2 ] $ &quot;N NCM &quot;\n               wrecset = oRS1RecLic\n               wrec = &quot;licita&quot;\n               wfac = &quot;licita&quot;\n            else\n               wrecset = oRS1Recvta\n               wrec = &quot;ventas&quot;\n               wfac = &quot;factura&quot;\n            endif\n            wtipo = &quot;N&quot;\n            xpuesto = val( tfactura[ i, 8 ] )\n            if tfactura[ i, 2 ] = &quot;AC&quot;\n               xsaldo = val( tfactura[ i, 10 ] )\n               *x1impabon = x1impabon -  val(  tfactura[ i, 10 ] )\n               wtipo = &quot;X&quot;\n               ws = 0\n               *SQLMVen = SQLMVen + &quot;UPDATE pagos SET saldoafa = 0, cancelado = 0, importe = &quot; + str( val(  tfactura[ i, 10 ] ), 10, 2 ) + &quot; where id = &quot; + str(tregistro[ x ]) + chr( 13 ) + chr( 10 )\n               SQLMVen = SQLMVen + &quot;UPDATE pagos SET saldoafa = saldoafa + &quot; + str(val( tfactura[ i, 10 ] ),10,2) + &quot;, cancelado = 9999999 where id = &quot; + str(tregistro[ i ]) + chr( 13 ) + chr( 10 )\n            else\n               wrecset:AbsolutePosition = tregistro[ i ]\n\n               //wrecset:find(&quot;factura&quot;=jk ) //oRs:Find( &quot;file_num = \'&quot;+cFIND+&quot;\'&quot; )\n               if tfactura[ i, 2 ] $ &quot;CCNC&quot;\n                  xsaldo := wrecset:Fields( &quot;saldo&quot; ):value\n                  SQLMVen = SQLMVen + &quot;UPDATE &quot; + wrec + &quot; SET saldo = 0, ult_pago = \'&quot; + dtoc( xfecha ) + &quot;\' where &quot; + wfac + &quot; = &quot; + str( jk ) + chr( 13 ) + chr( 10 )\n               else\n                  if  val(  tfactura[ i, 10 ] ) &lt; x1impabon\n                     xsaldo = val(  tfactura[ i, 10 ] )\n                     x1impabon = x1impabon -  val(  tfactura[ i, 10 ] )\n                     ws = val(  tfactura[ i, 10 ] )\n                  else\n                     xsaldo = x1impabon\n                     ws =  x1impabon\n                     x1impabon = 0\n                  endif\n\n                  SQLMVen = SQLMVen + &quot;UPDATE &quot; + wrec + &quot; SET saldo = saldo - &quot; + str( ws, 10, 2 ) + &quot;, ult_pago = &quot; + dtoc( xfecha ) + &quot; where &quot; + wfac + &quot; = &quot; + str( jk ) + chr( 13 ) + chr( 10 )\n               ENDIF\n          *  endif\n               SQLMVen = SQLMVen + &quot;INSERT INTO Pagos   ([familia],[Factura],[Fecha],[Recibo],[Importe],[Fecven],[Fecpago],[Puesto],[TIPO],[descu], [observa], saldo, saldoafa, interescalculado           )     VALUES           (&quot; + ;\n                 str( xfamilia       , 8, 0 ) + &quot;, &quot; + str( jk, 8, 0 ) + &quot;, \'&quot; + dtoc( xfecha ) ;\n                 + &quot;\', &quot; + str( xrecibo, 8, 0 ) + &quot;, &quot; + str( xsaldo, 10, 2 ) + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\', \'&quot; + dtoc( xfecha ) + &quot;\', &quot; + str( xpuesto, 4, 0 ) + &quot;, &quot; + &quot;\'&quot;+wtipo+&quot;\',&quot; + tfactura[ i, 9 ] + &quot;,\'&quot; + xobserva + &quot;\',0,0,&quot; + tfactura[ i, 9 ] + &quot; )&quot; + chr( 13 ) + chr( 10 )\n            endif\n         endif\n\n         i = i + 1\n      enddo\n   endif\n\n   jorden = 0\n   hh = 1\n\n   sele au_reci\n   go top\n   do while .not. eof()\n      if cuenta &lt;&gt; 0\n         wque = &quot;mov_bco&quot;\n         SQLMVen = SQLMVen + &quot;INSERT INTO &quot; + wque + &quot; ([Fecha],[Puesto],[Cuit_che],[Numero],[Descri],[Factura],pagos,[Num_che],[Fec_che],[Banco],[Titular],[Forpago],[Vendedor], [orden], cuenta, esinter) VALUES (\'&quot; + dtoc( xfecha ) + &quot;\',&quot; + str( xemprevige, 1, 0 ) ;\n           + &quot;,\'&quot; + au_reci-&gt;cuit_che + &quot;\',&quot; + str( xrecibo, 8, 0 ) + &quot;,\'&quot; + alltrim( substr( xnombre, 1, 45 ) ) + &quot;\',&quot; + str( au_reci-&gt;importe, 10, 2 ) + &quot;,0,&quot; + str( au_reci-&gt;chenro, 8, 0 ) + &quot;,\'&quot; + dtoc( au_reci-&gt;fecche ) + &quot;\',\'&quot; + substr( au_reci-&gt;banco, 1, 15 ) + &quot;\',\'&quot; + alltrim( substr( au_reci-&gt;titular, 1, 30 ) ) + &quot;\',2,\'&quot; + alltrim( xnombreven ) + &quot;\',&quot; + str( au_reci-&gt;orden, 8, 0 ) + &quot;,&quot; + str( au_reci-&gt;cuenta, 10, 0 ) + &quot;, \'S\')&quot; + chr( 13 ) + chr( 10 )\n      else\n         wque = &quot;mov_ven&quot;\n         SQLMVen = SQLMVen + &quot;INSERT INTO &quot; + wque + &quot; ([Fecha],[Puesto],[Cuit_che],[Numero],[Descri],[Factura],pagos,[Num_che],[Fec_che],[Banco],[Titular],[Forpago],[Vendedor], [orden]) VALUES (\'&quot; + dtoc( xfecha ) + &quot;\',&quot; + str( xemprevige, 1, 0 ) ;\n           + &quot;,\'&quot; + au_reci-&gt;cuit_che + &quot;\',&quot; + str( xrecibo, 8, 0 ) + &quot;,\'&quot; + alltrim( substr( xnombre, 1, 45 ) ) + &quot;\',&quot; + str( au_reci-&gt;importe, 10, 2 ) + &quot;,0,&quot; + str( au_reci-&gt;chenro, 8, 0 ) + &quot;,\'&quot; + dtoc( au_reci-&gt;fecche ) + &quot;\',\'&quot; + substr( au_reci-&gt;banco, 1, 15 ) + &quot;\',\'&quot; + alltrim( substr( au_reci-&gt;titular, 1, 30 ) ) + &quot;\',2,\'&quot; + alltrim( xnombreven ) + &quot;\',&quot; + str( au_reci-&gt;orden, 8, 0 ) + &quot;)&quot; + chr( 13 ) + chr( 10 )\n      endif\n      sele au_reci\n      skip\n   enddo\n\n   if xefectivo &lt;&gt; 0\n      SQLMVen = SQLMVen + &quot;INSERT INTO Mov_ven ([Fecha],[Puesto],[Numero],[Descri],[Factura],pagos,[Forpago],[Vendedor]) VALUES (\'&quot; + dtoc( xfecha ) + &quot;\',&quot; + str( xemprevige, 1, 0 ) ;\n                + &quot;,&quot; + str( xrecibo, 8, 0 ) + &quot;,\'&quot; + substr( xnombre, 1, 45 ) + &quot;\',&quot; + str( xefectivo, 10, 2 ) + &quot;,0,1,\'&quot; + xnombreven + &quot;\')&quot;  + chr( 13 ) + chr( 10 )\n   endif\n\n   if ximpinteres  &lt; 0\n      if x1impabon &gt; 0  // - ximpdescu\n         SQLMVen = SQLMVen + &quot;INSERT INTO Pagos   ([familia],[Factura],[Fecha],[Recibo],[Importe],[Fecven],[Fecpago],[Puesto],[TIPO], saldo, saldoafa, InteresCalculado, [observa]           )     VALUES           (&quot; + str( xfamilia       , 8, 0 ) + &quot;, 0, \'&quot; + dtoc( xfecha ) ;\n                   + &quot;\', &quot; + str( xrecibo, 8, 0 ) + &quot;, &quot; + str( x1impabon, 10, 2 ) + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\', \'&quot; + dtoc( xfecha ) + &quot;\', 1, &quot; + &quot;\'N\', 0, 0, 0,\'&quot; + xobserva + &quot;\' )&quot; + chr( 13 ) + chr( 10 )\n      endif\n   else\n      if x1impabon   &gt; 0  //- ximpinteres  // - ximpdescu\n         SQLMVen = SQLMVen + &quot;INSERT INTO Pagos   ([familia],[Factura],[Fecha],[Recibo],[Importe],[Fecven],[Fecpago],[Puesto],[TIPO], saldo, saldoafa, InteresCalculado, [observa]           )     VALUES           (&quot; + str( xfamilia       , 8, 0 ) + &quot;, 0, \'&quot; + dtoc( xfecha ) ;\n                   + &quot;\', &quot; + str( xrecibo, 8, 0 ) + &quot;, &quot; + str( x1impabon, 10, 2 ) + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\', \'&quot; + dtoc( xfecha ) + &quot;\', 1, &quot; + &quot;\'N\', 0, 0, 0,\'&quot; + xobserva + &quot;\' )&quot; + chr( 13 ) + chr( 10 )\n      endif\n   endif\n\n   if ximpretiva &lt;&gt; 0\n      SQLMVen  = SQLMVen + &quot;INSERT INTO Compret ([Cliente],[Comproba],[Tipo],[Fecha],[Recibo],[Importe],[Fecpago]) VALUES &quot; + ;\n      &quot; ( &quot; + str( xfamilia, 8, 0 ) + &quot;, &quot; + str( xcomretiva, 12, 0 ) + &quot;, &quot; + &quot;\'IVA\'&quot; + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\', &quot; + str( xrecibo, 8, 0 ) + &quot;, &quot; + str( ximpretiva, 10, 2 ) + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\')&quot;   + chr( 13 ) + chr( 10 )\n   endif\n   if ximpretgan &lt;&gt; 0\n\n      SQLMVen  = SQLMVen + &quot;INSERT INTO Compret ([Cliente],[Comproba],[Tipo],[Fecha],[Recibo],[Importe],[Fecpago]) VALUES &quot; + ;\n      &quot; ( &quot; + str( xfamilia, 8, 0 ) + &quot;, &quot; + str( xcomretgan, 12, 0 ) + &quot;, &quot; + &quot;\'GAN\'&quot; + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\', &quot; + str( xrecibo, 8, 0 ) + &quot;, &quot; + str( ximpretgan, 10, 2 ) + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\')&quot;  + chr( 13 ) + chr( 10 )\n   endif\n   if ximpretrg &lt;&gt; 0\n      SQLMVen = SQLMVen + &quot;INSERT INTO Compret ([Cliente],[Comproba],[Tipo],[Fecha],[Recibo],[Importe],[Fecpago]) VALUES &quot; + ;\n      &quot; ( &quot; + str( xfamilia, 8, 0 ) + &quot;, &quot; + str( xcomretrg, 12, 0 ) + &quot;, &quot; + &quot;\'RG\'&quot; + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\', &quot; + str( xrecibo, 8, 0 ) + &quot;, &quot; + str( ximpretrg, 10, 2 ) + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\')&quot; + chr( 13 ) + chr( 10 )\n   endif\n   if ximpretibr &lt;&gt; 0\n      SQLMVen = SQLMVen + &quot;INSERT INTO Compret ([Cliente],[Comproba],[Tipo],[Fecha],[Recibo],[Importe],[Fecpago]) VALUES &quot; + ;\n      &quot; ( &quot; + str( xfamilia, 8, 0 ) + &quot;, &quot; + str( xcomretibr, 12, 0 ) + &quot;, &quot; + &quot;\'IBR\'&quot; + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\', &quot; + str( xrecibo, 8, 0 ) + &quot;, &quot; + str( ximpretibr, 10, 2 ) + &quot;, \'&quot; + dtoc( xfecha ) + &quot;\')&quot;  + chr( 13 ) + chr( 10 )\n   endif\n\n   SQLMVen = SQLMVen + &quot;UPDATE Numdoc SET recibo = &quot; + str( xrecibo, 8, 0 ) + &quot;, nroorden = &quot; + str( xorden, 8, 0 ) + &quot; where numero = &quot; + str( xemprevige )  + chr( 13 ) + chr( 10 )\n   TRY\n      oCon:Execute( sqlMVen )\n      oCon:Close() ; Catch oErr\n       msginfo(&quot;Error al grabar el recibo &quot;+sqlmven)\n      FWrite ( cHande, SQLMVen + chr( 13 ) + chr( 10 )+ oErr )\n   END TRY\n\n  FClose ( cHande )'),(716,1406,0,3,1589474256,'Unrecoverable error 9009: hb_xrealloc can\'t reallocate memor','Hi,\n\n[code]..\n..\naStruct  := FW_DBFSTRUCT( cDbf )\nAEVAL( aStruct, { |a| If( a[ 1 ] == cMYAU_ID, a[ 2 ] := &quot;+&quot;, nil ) } )\noCn:ImportFromDBF( cDbf, cCurrent_File, nil, nil, aStruct )		    \n..\n..[/code]\nI am trying to transfer my data to MariaDB. It gives an error below in FW_DBFSTRUCT. There is approximately 814000 records. \n\nIf I zap the file, there is not any error.\n\n\n\n\n[code]Application Internal Error - D:\\KUTLUBAY\\HUKUK\\OBJEKT\\IcraW - SQL\\icraw.exe\nTerminated at: 2020-05-14 18:19:27\nUnrecoverable error 9009: hb_xrealloc can\'t reallocate memory\nCalled from AADD(0)\nCalled from FW_DBFSTRUCT(1054) in .\\source\\function\\DBFFUNC2.PRG\nCalled from MARIA_TRANS(18407) in .\\ICRA_Lib.prg\nCalled from (b)DEFINE_RIBBON(1985) in .\\Master.prg[/code]'),(717,281,39033,3,1591114868,'Re: How to do my question ?','&quot;webexp.prg&quot; it is work so I don\'t worry about this but \n\n &quot;AcroPDF.PDF.1&quot; &lt;-- it is doesn\'t work for me so can you check what\'s going on it ?\n\nThank you'),(719,3795,0,6,1591897973,'Se puede tener un Combobox, con esta condición ...','Estimados:\n\nUna consulta, ¿es posible crear un Combobox, de forma que de acuerdo a una condición previa, cambie la seleccionabilidad de algunos de los elementos a mostrarse en la lista de selección (los oCbx:aItems), es decir la lista no cambiaría, pero si la seleccionabilidad de algunos de los elementos, de esta forma se los saltará con el recorrido del cursor y no se los puede seleccionar?.\n\nSaludos\n\nFernando Espinoza A.'),(720,3465,0,3,1591925054,'SQLLIB compiling error Please help me.','Hello, friends.\n\nMy name is Kim Jung Ho and I live in Korea.\nI\'m an XHarbour user. \n\nCan I get help with the SQLIB library? Please.\nSQLLIB v1.9h has an error when compiling. Can you help me?\n\nxHarbour 1.2.1 (SimpLex) (Rev. 6706) + Fivewin + Bcc5.82\n\n-&gt; Turbo Industrial Link 5.69 Copyright (c) 1997-2005 Borland\n-&gt; ERROR: Unresolved external \'_hb_set\' referenced from C:\\WDRLIB32X\\SQLLIBV19H\\SQLLIB_XHB_XHB_V1.2.1_REV.6406.LIB|sqllib_apii\n\nWhat do I do? Help me.'),(722,2859,39126,6,1594150452,'Re: ot: curso ModHarbour Mercury  MVC','Hola a todos: Podria anotarme hoy y recibir los videos por favor?.\n\nSaludos\nRuben Fernandez'),(723,147,39167,3,1596718249,'Re: Quiero comenzar con sqlite','[quote=&quot;nageswaragunupudi&quot;]If you have installed sqlite odbc driver and want to use ODBC/ADO, FWH makes it EXTREMELY simple to use Sqlite3.\nYou do not have to know anything other than simple FWH ado functions, which we must be already using for other ADO databaes.\n\nHere is a simple program:\n[code=fw]#include &quot;fivewin.ch&quot;\n\nfunction Main()\n\n   local cdb := &quot;testsqlite3.db&quot;\n   local ocn, ors, cSql\n\n   oCn := FW_OpenAdoConnection( cdb )\n   if oCn == nil\n      ? &quot;failed&quot;\n      return nil\n   endif\n\n   FW_AdoImportFromDBF( ocn, &quot;c:\\fwh\\samples\\customer.dbf&quot; )\n\n   oRs   := FW_OpenRecordSet( oCn, &quot;customer&quot; )\n\n   XBROWSER oRs FASTEDIT TITLE &quot;SQLITE3 DATABASE TABLE&quot;\n\n   oRs:Close()\n   ocn:close()\n\nreturn nil\n [/code]\nThis program connects to the database if it exists and otherwise creates a new database and connects.\nTo use sqlite, you do not need to learn anything more than this and you can start working straight from the next minute.[/quote]\n\nBuenos dias\nNo tengo exito al ejecutar este ejemplo\nMe podrían escribir un paso a paso hasta la conexión?\n\nEn principio lo que hice fue'),(725,78,39285,6,1598324821,'Re: Ejecutar llamada a servicio.','Hola Adolfo...  puedes enviarme el contenido de do.bat\nSalu2'),(726,1344,38232,45,1598967456,'Re: mod_harbour Genesis: The Harbour for the web ERP !!!','Antonio,\n\nthanks a lot. First I got an error after logging in, but now it works!\n\n[code]Error opening table: views\nUserName: Gilbert\nFile to open: /var/www/html/modharbour_samples/genesis/data/Gilbert/data/views\nFile exists: No\nError: Open error\nfilename: /var/www/html/modharbour_samples/genesis/data/Gilbert/data/views.dbf\ncalled from: pcode.hrb, VIEW, line: 424\ncalled from: pcode.hrb, LOGIN, line: 292\ncalled from: pcode.hrb, CONTROLLER, line: 124\ncalled from: pcode.hrb, MAIN, line: 13\ncalled from: HB_HRBDO, line: 0\ncalled from: ../source/exec.prg, EXECUTE, line: 70[/code]\n\ntrying a second time worked.'),(727,586,39487,6,1604237524,'Re: tPrinter en vertical','Estimados buen dia, ayer termine con la solucion a la impresion de Codigo de Barra Vertical.\nMil gracias por la ayuda recibida, les dejo el codigo por si a alguien le es util\n\nEdu\n\n[img]http://prntscr.com/vb6upr[/img]\n\n\n[code=fw]func ImpCB(nCant, aCB1, aCB2, aCB3, aCB4)\n    local oPrn\n    local oFontCodigo,oFontDescripcion,oFontEnvase,oFontFabrica\n\n    local nArriba := 0\n    local nIzq := .5\n    local nAbajo := 0\n    local nDerecha := 0\n\n    local nCodeLeft1\n    local nCodeLeft2\n    local nCodeLeft3\n    local nCodeLeft4\n    local cCod1\n    local cCod2\n    local cCod3\n    local cCod4\n    local nSaltoLineaIzq,nSaltoCB1,nSaltoCB2,nSaltoCB3,nSaltoCB4,SaltoEnvase\n\n\n    DEFAULT aCB1 := {&quot;3041&quot;,&quot;SINT.BERMELLON&quot;,&quot;X 1&quot;, dtos(date()) + &quot;-&quot; + left(time(),2) + substr(time(),4,2)}\n    DEFAULT aCB2 := {&quot;3042&quot;,&quot;SINT.BERMELLON&quot;,&quot;X 4&quot;, dtos(date()) + &quot;-&quot; + left(time(),2) + substr(time(),4,2)}\n    DEFAULT aCB3 := {&quot;3043&quot;,&quot;SINT.BERMELLON&quot;,&quot;X 20&quot;, dtos(date()) + &quot;-&quot; + left(time(),2) + substr(time(),4,2)}\n    DEFAULT aCB4 := {&quot;3044&quot;,&quot;SINT.BERMELLON&quot;,&quot;X 200&quot;, dtos(date()) + &quot;-&quot; + left(time(),2) + substr(time(),4,2)}\n\n\n    nCant := 2   // sacar para finalizar\n\n    PRINTER oPrn PREVIEW\n    /*\n    DEFINE FONT oFont  NAME &quot;TIME NEW ROMAN&quot; SIZE 0,-12 OF oPrn\n    DEFINE FONT oFont1 NAME &quot;TIME NEW ROMAN&quot; SIZE 0,-58 OF oPrn\n    DEFINE FONT oFont2 NAME &quot;TIME NEW ROMAN&quot; SIZE 0,-7 OF oPrn\n    DEFINE FONT oFont3  NAME &quot;TIME NEW ROMAN&quot; SIZE 0,-16 OF oPrn\n      */\n\n    Define Font oFontCodigo Name &quot;TAHOMA&quot; Size 0,-16 OF oPrn NESCAPEMENT 2700  // Esta es la letra vertical\n   Define Font oFontDescripcion Name &quot;TAHOMA&quot; Size 0,-10 OF oPrn NESCAPEMENT 2700  // Esta es la letra vertical\n   Define Font oFontEnvase Name &quot;TAHOMA&quot; Size 0,-10 OF oPrn NESCAPEMENT 2700  // Esta es la letra vertical\n   Define Font oFontFabrica Name &quot;TAHOMA&quot; Size 0,-10 OF oPrn NESCAPEMENT 2700  // Esta es la letra vertical\n\n    oaFont := {oFontCodigo,oFontDescripcion,oFontEnvase,oFontFabrica}\n\n    page\n\n    nCodeLeft1 := 1.5\n    nCodeLeft2 := 2.2 + nCodeLeft1\n    nCodeLeft3 := 4.6 + nCodeLeft1\n    nCodeLeft4 := 6.7 + nCodeLeft1\n    // 6.7\n\n    cCod1 := aCB1[1] + &quot;999&quot;\n    cCod2 := aCB2[1] + &quot;999&quot;\n    cCod3 := aCB3[1] + &quot;999&quot;\n    cCod4 := aCB4[1] + &quot;999&quot;\n\n    nSaltoLineaIzq := -.3\n    nSaltoCB1 := nCodeLeft1 + .5\n    nSaltoCB2 := nCodeLeft2 + .5\n    nSaltoCB3 := nCodeLeft3 + .5\n    nSaltoCB4 := nCodeLeft4 + .5\n    SaltoEnvase := 1\n\n\n    nArriba := .3\n    // *********************************************************** //\n    // CB1\n    xCor := oPrn:Cmtr2Pix(nArriba, nCodeLeft1)\n    @ xCor[1], xCor[2]  ean8 cCod1 of oPrn    SIZE 0.8  Vertical // WIDTH   0.04\n\n    // nSaltoCB1 -= nSaltoLineaIzq\n\n    // ------------------------------------------------------------  //\n    //  codigo\n    oPrn:cmsay(nArriba+ 2.0, nSaltoCB1+.3 ,   ;\n                left(cCod1,4) ,oFontCodigo ,, CLR_BLACK,,PAD_LEFT)\n\n\n    nSaltoCB1 += nSaltoLineaIzq + .1\n\n    // ------------------------------------------------------------  //\n    //  descripcion\n    nSaltoCB1 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB1,   ;\n                aCB1[2], oFontDescripcion ,, CLR_BLACK,,PAD_LEFT)\n\n    // ------------------------------------------------------------  //\n    // envase\n    nSaltoCB1 += nSaltoLineaIzq\n    IF  !empty(aCB1[3])\n        oPrn:cmsay(nArriba+SaltoEnvase, nSaltoCB1,   ;\n                    aCB1[3], oFontEnvase ,, CLR_BLACK,,PAD_LEFT)\n    ENDIF\n\n    // ------------------------------------------------------------  //\n    // codig fabrica\n    nSaltoCB1 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB1,   ;\n                aCB1[4], oFontFabrica ,, CLR_BLACK,,PAD_LEFT)\n    // ------------------------------------------------------------  //\n\n\n\n    // *********************************************************** //\n    // *********************************************************** //\n    // 2do CB\n    xCor := oPrn:Cmtr2Pix(nArriba,nCodeLeft2)\n    @ xCor[1], xCor[2]  ean8 cCod2 of oPrn    SIZE 0.8 Vertical  // WIDTH   0.03 // WIDTH   0.025\n\n    // ------------------------------------------------------------  //\n    //  codigo\n    oPrn:cmsay(nArriba+2, nSaltoCB2+.3,   ;\n                left(cCod2,4) ,oFontCodigo ,, CLR_BLACK,,PAD_LEFT)\n\n    nSaltoCB2 += nSaltoLineaIzq + .1\n\n    // ------------------------------------------------------------  //\n    //  descripcion\n    nSaltoCB2 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB2,   ;\n                aCB2[2], oFontDescripcion ,, CLR_BLACK,,PAD_LEFT)\n\n    // ------------------------------------------------------------  //\n    // envase\n    nSaltoCB2 += nSaltoLineaIzq\n    IF  !empty(aCB2[3])\n\n        oPrn:cmsay(nArriba+SaltoEnvase, nSaltoCB2,   ;\n                    aCB2[3], oFontEnvase ,, CLR_BLACK,,PAD_LEFT)\n    endif\n    // ------------------------------------------------------------  //\n    // codig fabrica\n    nSaltoCB2 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB2,   ;\n                aCB2[4], oFontFabrica ,, CLR_BLACK,,PAD_LEFT)\n    // ------------------------------------------------------------  //\n\n\n\n    // *********************************************************** //\n    // *********************************************************** //\n    // *********************************************************** //\n    // 3 CB\n    xCor := oPrn:Cmtr2Pix(nArriba, nCodeLeft3)\n    @ xCor[1], xCor[2]  ean8 cCod3 of oPrn    SIZE 0.8 Vertical  // WIDTH   0.03 // WIDTH   0.025\n\n    // ------------------------------------------------------------  //\n    //  codigo\n    oPrn:cmsay(nArriba+2, nSaltoCB3+.3,   ;\n                left(cCod3,4) ,oFontCodigo ,, CLR_BLACK,,PAD_LEFT)\n\n    nSaltoCB3 += nSaltoLineaIzq + .1\n\n    // ------------------------------------------------------------  //\n    //  descripcion\n    nSaltoCB3 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB3,   ;\n                aCB3[2], oFontDescripcion ,, CLR_BLACK,,PAD_LEFT)\n\n    // ------------------------------------------------------------  //\n    // envase\n    nSaltoCB3 += nSaltoLineaIzq\n    IF  !empty(aCB3[3])\n\n        oPrn:cmsay(nArriba +SaltoEnvase, nSaltoCB3 ,   ;\n                    aCB3[3], oFontEnvase ,, CLR_BLACK,,PAD_LEFT)\n    endif\n    // ------------------------------------------------------------  //\n    // codig fabrica\n    nSaltoCB3 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB3,   ;\n                aCB3[4], oFontFabrica ,, CLR_BLACK,,PAD_LEFT)\n    // ------------------------------------------------------------  //\n\n\n\n    // *********************************************************** //\n    // *********************************************************** //\n    // *********************************************************** //\n    // *********************************************************** //\n    // 4 CB\n    xCor := oPrn:Cmtr2Pix(nArriba, nCodeLeft4)\n    @ xCor[1], xCor[2]  ean8 cCod4 of oPrn    SIZE 0.8 Vertical  // WIDTH   0.03 // WIDTH   0.025\n\n    // ------------------------------------------------------------  //\n    //  codigo\n    oPrn:cmsay(nArriba+2, nSaltoCB4 + .3,   ;\n                left(cCod4,4) ,oFontCodigo ,, CLR_BLACK,,PAD_LEFT)\n\n    nSaltoCB4 += nSaltoLineaIzq + .1\n\n    // ------------------------------------------------------------  //\n    //  descripcion\n    nSaltoCB4 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB4,   ;\n                aCB4[2], oFontDescripcion ,, CLR_BLACK,,PAD_LEFT)\n\n    // ------------------------------------------------------------  //\n    // envase\n    nSaltoCB4 += nSaltoLineaIzq\n    IF  !empty(aCB4[3])\n\n        oPrn:cmsay(nArriba+SaltoEnvase, nSaltoCB4 ,   ;\n                    aCB4[3], oFontEnvase ,, CLR_BLACK,,PAD_LEFT)\n\n    endif\n    // ------------------------------------------------------------  //\n    // codig fabrica\n    nSaltoCB4 += nSaltoLineaIzq\n    oPrn:cmsay(nArriba, nSaltoCB4,   ;\n                aCB4[4], oFontFabrica ,, CLR_BLACK,,PAD_LEFT)\n    // ------------------------------------------------------------  //\n\n\n\n\n\n\n    endpage\n\n    aeval(oaFont, {|oFont| if(valtype(oFont)==&quot;O&quot;,(oFont:End() , oFont := NIL ) ,)  })\n\n    oPrn:SetCopies(nCant)\n\n    endprint\n\nreturn .T.\n [/code]'),(729,936,39635,3,1605702429,'Re: Korean character problem...','Rao, I have noticed another problem with these Korean characters, when presenting them in a Get, they are not seen either\n[url=https://ibb.co/5vCM3w5][img]https://i.ibb.co/1KBvNj9/nomenclatura4.jpg[/img][/url]\nI have two problems...\n\nCarlos Sincuir'),(730,1428,39930,6,1612448195,'Re: EXTEND CLASS TDOLPHINSRV WITH METHOD','O prueba a poner este ch xhbcls.ch'),(731,1667,0,3,1613058775,'BTNBMP FONT','Hello everyone,\n\nI am using BTNBMP to show a set of buttons but I have already modified the FONT several times and it does not change.\n\nDo any of you know any solutions?\n\n[code][/code]\nREDEFINE BTNBMP ButQST[nContST] ID nIDST OF oStObj FONT oFont13 PROMPT ALLTRIM(STR(nContST,2)) PIXELS ;\nFILE &quot;H:\\LSOFT\\BINGO\\FIGURAS\\BOLAQD.PNG&quot; ADJUST CENTER NOBORDER TRANSPARENT\nButQST[nContST]:SETCOLOR( NRGB(180,180,180) )   \n[code][/code]\n\nThank you!'),(732,3144,22664,6,1615970393,'Re: Envio Teclas a un Get','programmatically how to fire mouse button click in windows os via fivewin :)'),(733,875,40108,6,1616814483,'Re: AYUDA PARA LEER XML DE FACTURA ELECTRONICA ( SOLUCIONADO )','#include \'FiveWin.Ch\'\n\nFunction Main()\n   Local _Xml_,Pos_1,_Txt_\n   \n   _Xml_:=\'&lt;cac:PartyIdentification&gt;\'+ ;\n          \'&lt;cbc:ID&gt;20606177896&lt;/cbc:ID&gt;\'+ ;\n          \'&lt;/cac:PartyIdentification&gt;\'\n\n   Pos_1:=HB_At(\'PartyIdentification\',_Xml_)\n   _Txt_:=Subs(_Xml_,Pos_1,60)\n   \n   Pos_1:=HB_At(\'ID&gt;\',_Txt_)\n   \n   ? \'Ruc -&gt; \'+Subs(_Txt_,Pos_1+3,11)\n   \n   \n   \nReturn(Nil)'),(734,4444,0,6,1618583261,'No me acepta el COLORMENU en el MenuItem','Buenas\nMi nombre es Fridgar soy de Venezuela\n\nsoy nuevo con fivewin, tome del Sr. Navarro este prg de ejemplo\n\n// Autor:  Cristobal Navarro\n// Fecha:  01/01/2016\n// Pruebas de Menus\n//\npero en los menu solo me acepta el estilo 2007 para abajo, no me acepta ni el 2010, 2013 ni el 2015\n\nen los menuitem no me aceptan los\nCOLORMENU, ni COLORRIGHT, ni los CHARICON, ni ITALICA, ni BOLD\npor lo que tengo que colocarlos como comentario\n\n//   MENU oMenu 2015 //FONT oFontMenu\n     MENU oMenu \n \n\n      MENUITEM &quot;&amp;Archivos&quot; //COLORMENU CLR_BLUE, CLR_HBLUE ITALIC  \n  \n      MENU\n            \n         MENUITEM &quot;&amp;Nuevo item Mru&quot; CHECKED MESSAGE &quot;Mensaje para el item 32&quot;\n         							\n         MENUITEM &quot;&amp;Datos  &quot; MESSAGE &quot;Archivos del sistema&quot;//COLORRIGHT CLR_HBLUE\n         MENU\n            MENUITEM &quot;&amp;Nuevo&quot; CHECK MESSAGE &quot;Nueva Base de datos&quot;\n            MENUITEM &quot;&amp;Abrir&quot;  MESSAGE &quot;Abrir una Base de datos&quot;//CHARICON &quot;A&quot; ITALIC\n\n\nuso la version \nFiveWin 18.01\nBorland 5.5 como encadenador\ny xHarbour 5.1\n\nAgradeceria cualquier ayuda que me puedan brindar\nRepito, soy muy NUEVO en esto\nmi correo es\nmfridgar@gmail.com\nGRACIAS'),(736,2532,40439,3,1621626307,'Re: Call HTML form in FWH application','Tim,\n\nI don\'t completely understand the ask. What exactly do you want to be able to do from within your application?'),(737,1428,40454,6,1622185016,'Re: Pido su consejo','Armando, sin duda yo usaría varias tablas más sabiendo que vas a usar MySQL.\nEl criterio de como debes conseguir esas tablas pueden ser diferentes pero hay motivos infinitos para hacerlo como te digo.\nUna base de datos que mantiene tablas de 700 columnas no solo es un despropósito si no un error. Y para mi el diseño de la base de datos debería ser al meno 75% de tu tiempo ya que eso será más difícil de modificar que los programas que la accedan. No ha ni un sólo motivo para que tengas 700 columnas en una tabla.\nA partir de aquí podemos discutir lo que se quiera...'),(738,227,0,3,1623626097,'Colors','Hello friends!\n\nI need a little help, I have a color in decimal (for example 6736896). How to get tones above or below, what\'s the logic?\n\nTanks'),(739,75,40540,6,1623918498,'Re: Visual Studio','He intentado añadir los includes de esa ruta donde están los ficheros de cabecera para el comando de compilación en línea de comandos con:\n[color=#0000FF]cl -TC -W3 -O2 -c /I&quot;C:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um&quot; /I%hdir%\\include %1.c\n[/color]\n\nY obtengo los errores siguientes:\n[code=fw].Compila con Harbour 64 ...\nHarbour 3.2.0dev (r1412151448)\nCopyright (c) 1999-2014, http://harbour-project.org/\nCompiling \'wintpv.prg\' and generating preprocessed output to \'wintpv.ppo\'...\nLines 68327, Functions/Procedures 865\nGenerating C source output to \'wintpv.c\'... Done.\n.\n.Compila con MSVC 2012:\nCompilador de optimización de C/C++ de Microsoft (R) versión 18.00.21005.1 para x64\n(C) Microsoft Corporation. Reservados todos los derechos.\n\nwintpv.c\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(32) : error C2054: se esperaba \'(\' a continuación de \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(37) : error C2085: \'CopyFileFromAppW\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(40) : error C2061: error de sintaxis : identificador \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(51) : error C2054: se esperaba \'(\' a continuación de \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(60) : error C2085: \'CreateFileFromAppW\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(63) : error C2061: error de sintaxis : identificador \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(77) : error C2054: se esperaba \'(\' a continuación de \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(80) : error C2085: \'DeleteFileFromAppW\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(83) : error C2061: error de sintaxis : identificador \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(98) : error C2054: se esperaba \'(\' a continuación de \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(103) : error C2085: \'GetFileAttributesExFromAppW\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(106) : error C2061: error de sintaxis : identificador \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(117) : error C2054: se esperaba \'(\' a continuación de \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(120) : error C2085: \'RemoveDirectoryFromAppW\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(123) : error C2061: error de sintaxis : identificador \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(138) : error C2054: se esperaba \'(\' a continuación de \'WINSTORAGEAPI\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\fileapifromapp.h(142) : error C2085: \'SetFileAttributesFromAppW\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(34) : error C2085: \'IsDebuggerPresent\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(49) : error C2085: \'DebugBreak\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(57) : error C2085: \'OutputDebugStringA\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(64) : error C2085: \'OutputDebugStringW\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(85) : error C2085: \'ContinueDebugEvent\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(94) : error C2085: \'WaitForDebugEvent\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(102) : error C2085: \'DebugActiveProcess\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(110) : error C2085: \'DebugActiveProcessStop\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(127) : error C2085: \'CheckRemoteDebuggerPresent\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\debugapi.h(144) : error C2085: \'WaitForDebugEventEx\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\utilapiset.h(33) : error C2085: \'EncodePointer\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\utilapiset.h(42) : error C2085: \'DecodePointer\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\utilapiset.h(51) : error C2085: \'EncodeSystemPointer\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\utilapiset.h(60) : error C2085: \'DecodeSystemPointer\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\utilapiset.h(76) : error C2085: \'EncodeRemotePointer\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\utilapiset.h(86) : error C2085: \'DecodeRemotePointer\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\utilapiset.h(101) : error C2085: \'Beep\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\handleapi.h(40) : error C2085: \'CloseHandle\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\handleapi.h(54) : error C2085: \'DuplicateHandle\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\handleapi.h(69) : error C2085: \'CompareObjectHandles\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\handleapi.h(84) : error C2085: \'GetHandleInformation\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\handleapi.h(94) : error C2085: \'SetHandleInformation\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\errhandlingapi.h(33) : error C2085: \'PTOP_LEVEL_EXCEPTION_FILTER\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\errhandlingapi.h(35) : error C2085: \'PTOP_LEVEL_EXCEPTION_FILTER\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\errhandlingapi.h(35) : error C2146: error de sintaxis : falta \',\' delante del identificador \'LPTOP_LEVEL_EXCEPTION_FILTER\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\errhandlingapi.h(50) : error C2085: \'RaiseException\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\errhandlingapi.h(65) : error C2085: \'UnhandledExceptionFilter\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\errhandlingapi.h(76) : error C2085: \'LPTOP_LEVEL_EXCEPTION_FILTER\' : no está en la lista de parámetros formales\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\errhandlingapi.h(76) : error C2143: error de sintaxis : falta \';\' delante de \'__cdecl\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\winuser.h(14448) : error C2143: error de sintaxis : falta \'{\' delante de \'__cdecl\'\nC:\\Program Files (x86)\\Windows Kits\\10\\Include\\10.0.19041.0\\um\\winsock2.h(116) : fatal error C1083: No se puede abrir el archivo incluir: \'ws2def.h\': No such file or directory\nMicrosoft (R) Windows (R) Resource Compiler Version 6.3.9600.16384\nCopyright (C) Microsoft Corporation.  All rights reserved.\n\n.\n.Linka con MSVC 2012...\nLINK : fatal error LNK1181: no se puede abrir el archivo de entrada \'wintpv.obj\'[/code]'),(740,3687,0,3,1630095687,'generar bmp con texto','Hola gente, necesito leer una imagen bmp/jpg agregarle un texto y guardarla.\n\nSaludos.\nJorge'),(741,1140,0,3,1631223903,'Base64 to Audio','Hey guys\nHow do I convert a Base64 to Audio file'),(743,4555,40907,3,1634138767,'Re: unrecoverable error 9015 hb_vmdo()','ola Karinha!\nBoa Tarde \n\nSegue o prg  e o erro.log que ocorre ao incluir um obj button a mais.\n\nSe ficar só um BUTTON o programa roda normalmente.\n\n1 - O erro apresentado ao se incluir mais um obj button:\n\n[color=#4000FF]Application\n===========\n   Path and name: I:\\CUSMOL\\CUSMOL.EXE (32 bits)\n   Size: 1,243,648 bytes\n   Time from start: 0 hours 1 mins 51 secs \n   Error occurred at: 13/10/2021, 11:33:35\n   Error description: Warning BASE/1005  Message not found: TBUTTON:_LHELPICON\n\nStack Calls\n===========\n   Called from: source\\rtl\\tobject.prg =&gt; TBUTTON:ERROR(172)\n   Called from: source\\rtl\\tobject.prg =&gt; TBUTTON:MSGNOTFOUND(205)\n   Called from: source\\rtl\\tobject.prg =&gt; TBUTTON:_LHELPICON(0)\n   Called from: I:\\CUSMOL\\CADPLAN.PRG =&gt; CADPLAN(428)\n   Called from: I:\\CUSMOL\\A.PRG =&gt; (b)FPRINCIPAL(308)\n   Called from: ..\\SOURCE\\CLASSES\\TSBUTTON.PRG =&gt; TSBUTTON:CLICK(852)\n   Called from: d:\\fwh\\source\\classes\\control.prg =&gt; TCONTROL:HANDLEEVENT(1447)\n   Called from: ..\\SOURCE\\CLASSES\\TSBUTTON.PRG =&gt; TSBUTTON:HANDLEEVENT(1296)\n   Called from: d:\\fwh\\source\\classes\\window.prg =&gt; _FWH(3394)\n   Called from:  =&gt; WINRUN(0)\n   Called from: d:\\fwh\\source\\classes\\window.prg =&gt; TWINDOW:ACTIVATE(978)\n   Called from: I:\\CUSMOL\\A.PRG =&gt; FPRINCIPAL(378)\n   Called from: I:\\CUSMOL\\A.PRG =&gt; MAIN(194)\n\nSystem\n======\n   CPU type: Pentium(R) Dual-Core  CPU      E5300  @ 2.60GHz 2600 Mhz\n   Hardware memory: 2048 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6714)\n   Windows version: 6.2, Build 9200 \n\n   Windows total applications running: 35\n      1 MSCTFIME UI\n      2 Default IME\n      3 Medidor de Bateria\n      4 Network Flyout\n      5 Window\n      6 Sistema de Custos v.21.07 - Molpark Ind.e Com. Molas e Aramados\n      7 I:\\ - Altap Salamander 4.0 (x64)\n      8 CALCULADORA DE SENHAS DO CHEQUETOTAL\n      9 Multi-Edit - [I:\\CUSMOL\\A.PRG]\n     10 Gerenciador de Ajuda\n     11 Preview de Impressão\n     12 Page Setup\n     13 HintInfoWindow\n     14 Ir para\n     15 Lista de Funções\n     16 String Editor\n     17 Editor\n     18 Localizar em Arquivo(s)\n     19 Confirmar Substituição\n     20 xDev Studio v0.72 -  [file:///I:/XDEVSTUDIOBLACK/HOME/INDEX.HTML (Leitura)]\n     21 GDI+ Window (XDEVSTUDIO.EXE)\n     22 I:\\CUSMOL\\Error.log - Viewer\n     23 DDE Server Window\n     24 Monitor de Recursos\n     25 100% concluído(s)\n     26 GDI+ Window (Explorer.EXE)\n     27 SecurityHealthSystray\n     28 MS_WebcheckMonitor\n     29 BluetoothNotificationAreaIconWindowClass\n     30 Windows Push Notifications Platform\n     31 Task Host Window\n     32 DWM Notification Window\n     33 Microsoft Text Input Application\n     34 Configurações\n     35 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TBUTTON:ERROR\n     Param   1:    C    &quot;Message not found&quot;\n     Param   2:    C    &quot;TBUTTON&quot;\n     Param   3:    C    &quot;_LHELPICON&quot;\n     Param   4:    N    1005\n     Local   1:    U    \n     Local   2:    O    Class: TBUTTON\n     Local   3:    N    16\n   TBUTTON:MSGNOTFOUND\n     Param   1:    C    &quot;_LHELPICON&quot;\n     Param   2:    O    Class: TBUTTON\n   TBUTTON:_LHELPICON\n     Param   1:    L    .F.\n   CADPLAN\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TBRUSH\n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    L    .F.\n     Local   7:    N    1\n     Local   8:    C    &quot;&quot;\n     Local   9:    C    &quot;- Utilize a roda do mouse para selecionar o registro desejado ou clique nos botões de movimentação acima e a esquerda!\n\n- Digite os primeiros caracteres do dado desejado para seleciona-lo automáticamente (obedecendo a ordenação atual).\n\n- Clique com o botão da esquerda do mouse sobre a lista e sem solta-lo arraste-o para ver paginas seguintes e anteriores.\n\n- Clique com o botão da direita na área dos &quot;CABEÇALHOS&quot; para incluir/excluir colunas apresentadas.\n\nEfeitos de Teclas nesta tela: (&quot;teclas de atalho&quot;)\n-------------------------------------------------------------------------------------------------------------------------------------\nF2 - Informa os parâmetros de filtragem. (se houverem).\n\nDel ou Alt+E - Exclui a planilha atualmente marcada pela barra luminosa.\nIns ou Alt+I - Inclui uma nova planilha. \nAlt+R - Revisa a planilha atualmente marcada pela barra luminosa.\nAlt+X - Gera planilhas Excel em diversos formatos.\nEnter ou Alt+V ou Duplo Clique sobre a linha - Visualiza a planilha atualmente marcada pela barra luminosa.\nAlt+F - Filtra a lista de planilhas.\nCtrl+seta dir. - Vai para o fim da linha atualmente selecionada.\nCtrl+seta esq. - Vai para o início da linha atualmente selecionada.\n\nBusca de dados por digitação (&quot;Busca Incremental&quot;): Posiciona o cursor no item desejado apenas digitando as letras ou nºs iniciais do dado procurado.\n-------------------------------------------------------------------------------------------------------------------------------------\nPressione a tecla &quot;Ctrl&quot; junto com a tecla da letra &quot;L&quot; para preparar para uma nova busca por digitação .\nPrimeiro selecione a &quot;ORDEM DE APRESENTAÇÃO&quot; dos dados da lista. \nDepois basta digitar as primeiras letras ou digitos do dado procurado.\n\nObs.: Se a ordem for a de &quot;NÚMEROS DE PLANILHA&quot; digite a seguinte sequencia:\nPrimeiro digite os dois algarismos do ANO desejado depois, os QUATRO NÚMEROS da planilha.\n\nObs.: Se a ordem for a de &quot;SITUAÇÃO DA PLANILHA&quot; digite A para Aprovadas, C para Cancelada, G para Aguardando Aprovação,\nO para Outras, R para Reprovada, T para Cotando Mat.Prima e V para Analisando Viabilidade, -.\n\nSe for informado que o dado procurado não existe: A função pesquisadora ficará pronta para outra pesquisa.\nPara cancelar a pesquisa enquanto estava digitando: pressione a tecla Ctrl junto com a tecla L.&quot;\n   (b)FPRINCIPAL\n     Param   1:    O    Class: TSBUTTON\n   TSBUTTON:CLICK\n     Local   1:    O    Class: TSBUTTON\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    2048\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TSBUTTON\n     Local   2:    U    \n   TSBUTTON:HANDLEEVENT\n     Param   1:    N    2048\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TSBUTTON\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    2048\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    3\n     Local   1:    O    Class: TSBUTTON\n   WINRUN\n     Param   1:    N    1443428\n   TWINDOW:ACTIVATE\n     Param   1:    C    &quot;NORMAL&quot;\n     Param   2:    U    \n     Param   3:    B    {|| ... }\n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    B    {|| ... }\n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   FPRINCIPAL\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    N    310\n     Local   6:    N    32\n     Local   7:    N    132\n     Local   8:    N    52\n     Local   9:    N    42\n     Local  10:    N    226\n     Local  11:    N    800\n     Local  12:    N    600\n     Local  13:    N    295.50\n     Local  14:    N    237.50\n     Local  15:    U    \n     Local  16:    O    Class: TBRUSH\n     Local  17:    O    Class: TSBUTTON\n     Local  18:    O    Class: TSBUTTON\n     Local  19:    O    Class: TSBUTTON\n     Local  20:    L    .T.\n     Local  21:    U    \n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFCDX\n   DBFNTX\n\nDataBases in use\n================\n\n  1:    LOGADOS                            RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n          1            3      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; nomelog                            LOGADOS\n\n     Relations in use\n\n  2: =&gt; PLANILHA                           RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        159          158      .F.   .T.\n\n     Indexes in use                        TagName\n           descend (subs(nridplan,5,2)+ subs(nNRIDPLAN\n           upper(DOCORCAM)                    DOCORCAM\n           upper(CLIENTE)                     CLIENTE\n           (cliente+desenho+desmestre+item)   PCLDSDMI\n           (cliente+desmestre+desenho+item)   PCLDMDSI\n           (desenho+desmestre+item)           PLDSDMIT\n           (desmestre+desenho+item)           PLDMDSIT\n           dtanalise                          PLDTANAL\n           DESCEND (subs(nridplan,5,2)+subs(nrPLIDPLAI\n        =&gt; subs(nridplan,5,2)+subs(nridplan,1,PLIDPLAN\n           situacao+descend(dtos(dtanalise))  PLSITUAC\n\n     Relations in use\n\nClasses in use:\n===============\n     1 ERROR\n     2 HASHENTRY\n     3 HBCLASS\n     4 HBOBJECT\n     5 TWINDOW\n     6 TDIALOG\n     7 TBRUSH\n     8 TFONT\n     9 TCURSOR\n    10 TCONTROL\n    11 TSAY\n    12 TRADMENU\n    13 TRADIO\n    14 TGET\n    15 GET\n    16 TCLIPGET\n    17 TBUTTON\n    18 TMETER\n    19 TREG32\n    20 TGROUP\n    21 TICON\n    22 TSKINBUTTON\n    23 TMENU\n    24 TMENUITEM\n    25 TMSGBAR\n    26 TRECT\n    27 TMSGITEM\n    28 TTIMER\n    29 TSBUTTON\n    30 TCOMBOBOX\n    31 TXBROWSE\n    32 TXBRWCOLUMN\n\nMemory Analysis\n===============\n      226 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes[/color]\n\n[b]2 - PRG ONDE OCORRE O ERRO[/b]\n\n[color=#BF0000]****************************************************\n* CADPLAN.PRG - CADASTRO DAS PLANILHAS DE CUSTOS   *\n* CHAMADA DE A.PRG                                 *\n****************************************************\n#include &quot;fivewin.ch&quot;\n#include &quot;xbrowse.ch&quot;\n#include &quot;vkey.ch&quot;\n#include &quot;inkey.ch&quot;\n#include &quot;dbinfo.ch&quot;\n#include &quot;Dbstruct.ch&quot;\n\n************\nfunc cadplan\n************\nlocal ob\nlocal nrecno\nlocal obrush\nlocal ocursorp\nlocal nordem\nlocal ldbfnaovazio := .f.\nlocal areaberta    := select()\nlocal cstate       := \'\'\nlocal vobsemovs    :=  \'- Utilize a roda do mouse para selecionar o registro desejado ou clique nos botões de movimentação acima e a esquerda!\'+CRLF+CRLF+;\n                       \'- Digite os primeiros caracteres do dado desejado para seleciona-lo automáticamente (obedecendo a ordenação atual).\'+CRLF+CRLF+;\n                       \'- Clique com o botão da esquerda do mouse sobre a lista e sem solta-lo arraste-o para ver paginas seguintes e anteriores.\'+CRLF+CRLF+;\n                       \'- Clique com o botão da direita na área dos &quot;CABEÇALHOS&quot; para incluir/excluir colunas apresentadas.\'+CRLF+CRLF+;\n                       \'Efeitos de Teclas nesta tela: (&quot;teclas de atalho&quot;)\'+CRLF+;\n                       \'-------------------------------------------------------------------------------------------------------------------------------------\'+CRLF+;\n                       \'F2 - Informa os parâmetros de filtragem. (se houverem).\'+CRLF+CRLF+;\n                       \'Del ou Alt+E - Exclui a planilha atualmente marcada pela barra luminosa.\'+CRLF+;\n                       \'Ins ou Alt+I - Inclui uma nova planilha. \'+CRLF+;\n                       \'Alt+R - Revisa a planilha atualmente marcada pela barra luminosa.\'+CRLF+;\n                       \'Alt+X - Gera planilhas Excel em diversos formatos.\'+CRLF+;\n                       \'Enter ou Alt+V ou Duplo Clique sobre a linha - Visualiza a planilha atualmente marcada pela barra luminosa.\'+CRLF+;\n                       \'Alt+F - Filtra a lista de planilhas.\'+CRLF+;\n                       \'Ctrl+seta dir. - Vai para o fim da linha atualmente selecionada.\'+CRLF+;\n                       \'Ctrl+seta esq. - Vai para o início da linha atualmente selecionada.\'+CRLF+CRLF+;\n                       \'Busca de dados por digitação (&quot;Busca Incremental&quot;): Posiciona o cursor no item desejado apenas digitando as letras ou nºs iniciais do dado procurado.\'+CRLF+;\n                       \'-------------------------------------------------------------------------------------------------------------------------------------\'+CRLF+;\n                       \'Pressione a tecla &quot;Ctrl&quot; junto com a tecla da letra &quot;L&quot; para preparar para uma nova busca por digitação .\'+CRLF+;\n                       \'Primeiro selecione a &quot;ORDEM DE APRESENTAÇÃO&quot; dos dados da lista. \'+CRLF+;\n                       \'Depois basta digitar as primeiras letras ou digitos do dado procurado.\'+CRLF+CRLF+;\n                       \'Obs.: Se a ordem for a de &quot;NÚMEROS DE PLANILHA&quot; digite a seguinte sequencia:\'+CRLF+;\n                       \'Primeiro digite os dois algarismos do ANO desejado depois, os QUATRO NÚMEROS da planilha.\'+CRLF+CRLF+;\n                       \'Obs.: Se a ordem for a de &quot;SITUAÇÃO DA PLANILHA&quot; digite A para Aprovadas, C para Cancelada, G para Aguardando Aprovação,\'+CRLF+;\n                       \'O para Outras, R para Reprovada, T para Cotando Mat.Prima e V para Analisando Viabilidade, -.\'+CRLF+CRLF+;\n                       \'Se for informado que o dado procurado não existe: A função pesquisadora ficará pronta para outra pesquisa.\'+CRLF+;\n                       \'Para cancelar a pesquisa enquanto estava digitando: pressione a tecla Ctrl junto com a tecla L.\'\n\npriva obtcancelap, obtmostrap, obtprintp\npriva nttinic     := 0\npriva ntt         := nttfiltr := 0\npriva i           := 0\npriva obtanterior,obtprimeiro,obtseguinte,obtultimo\npriva obtinclui    // inclui\npriva obtexclui    // exclui\npriva obtrevisa    // revisa\npriva obtfiltra    // filtra\npriva obtcancfi    // cancela filtro\npriva obtprocura   // procura\npriva obtrepproc   // repete ultima procura\npriva odlgplan     // esta variavel tem que ser private\npriva olstbplan\npriva v_escolha   := \' nº planilha - da +nova para +antiga \'\npriva n_escolha\npriva ocombordem\npriva ostemfilt\npriva ostipselemb  // 5713     // este objeto deve ficar nesta rotina\n\npriva obtinfs      // 1140\npriva vdatavalid\npriva nrpos := 0\npriva nx\n\nprocutoque  := \'\'\nvtipoforesc := 0\nvtiposecesc := 0\n\nUSE planilha;\n    INDE pcldsdmi,pcldmdsi,pldsdmit,pldmdsit,pldtanal,plidplai,plidplan,plsituac;\n    ALIAS planilha ;\n    NEW ;\n    SHARED\nplanilha-&gt;( dbsetorder(\'plidplan\') )\nplanilha-&gt;( orddescend( ,, .t. ) )\nldecend := .t.\n\n   // pcldsdmi,pcldmdsi,pldsdmit,pldmdsit,pldtanal,plidplai,plidplan,plsituac ;\n   // planilha-&gt;( orddescend( ,, .t. ) )  se antes era .f. seta para .t. mas retorna como estava antes\n   // ORDKEY(),                            = \'subs(nridpla,5,2)+subs(nridpla,1,4)+subs(nridpla,7,2)\'\n   // indexkey(0)                          = \'subs(nridpla,5,2)+subs(nridpla,1,4)+subs(nridpla,7,2)\'\n   // \'ORDNUMBER()\',ORDNUMBER()            =  7\n   // indexord()                           =  7\n   // planilha-&gt;( dbsetorder(\'plidplan\') ) =  seta indice para PLIDPLAN\n   // OrdSetFocus(\'plidplan\')              =  seta indice para PLIDPLAN\n   // planilha-&gt;( dbsetorder(7)          ) =  seta indice para PLIDPLAN\n   // DBORDERINFO(5)                       =  PLIDPLAN   (o indice atual)\n\n\nplanilha-&gt;( dbgotop() )\n\nif file(\'statbrw.sys\')  //  arquivo de registro dos tamanhos das colunas\n	restore from statbrw.sys addi\n   cstate   := a_cstate\n   a_cstate := \'\'\nendif\n\n\n* VERIFICAR O NUMERO DE REGISTROS APARENTES\n  // ntt := 0\n  // count to ntt for !deleted()\n  // if ntt # 0\n  //    ldbfnaovazio := .t.\n  // endif\n  // ?ntt     OU TAMBEM COMO ABAIXO...\n  nttinic := planilha-&gt;( dbeval( {|| ++ntt },{|| planilha-&gt;(!eof()) } ))\n\n\ndefine dialog odlgplan;\n       resource \'rcadplan\';\n       color  cor_pret,cor_cinz_;\n       font ofntprinc;\n       title \'CADASTRO DAS PLANILHAS DE CUSTOS\'\n\n\n   redefine say id 6002 color cor_pret,cor_cinz_\n\n\n   // SELECÁO DOS INDEXADORES\n   redefine combobox ocombordem;\n            var v_escolha;\n            items    {  v_escolha                              ,;\n                       \' nº planilha - da +antiga para +nova \' ,;\n                       \' cliente+desenho+desmestre+item      \' ,;\n                       \' cliente+desmestre+desenho+item      \' ,;\n                       \' desenho+desmestre+item              \' ,;\n                       \' desmestre+desenho+item              \' ,;\n                       \' data da analise                     \' ,;\n                       \' situação e data                     \' };\n            on change ( procutoque   := \'\'         ,;\n                        nrecno:=planilha-&gt;(recno()),;\n                        fselordem(ocombordem:nat)  ,;\n                        planilha-&gt;(dbgotop())      ,; //planilha-&gt;(dbgoto(nrecno)) ,;\n                        olstbplan:vupdateall()     ,;\n                        olstbplan:refresh()        ,;\n                        olstbplan:setfocus()       );\n            id 6003;\n            of odlgplan;\n            update;\n            color cor_azule,cor_azulff\n\n            ocombordem:ocursor := ocursorp\n\n   redefine say ostemfilt;\n            prompt if( !empty(planilha-&gt;(dbfilter())),\'  A RELAÇÃO ABAIXO ESTÁ FILTRADA! \',\'\');\n            id 6001;\n            of odlgplan;\n            color cor_vermt,cor_cinz_;\n            font ofntbold;\n            update\n   /*\n   redefine dynamic say ostemfilt ;\n            prompt if( !empty(planilha-&gt;(dbfilter())),\'  A RELAÇÃO ABAIXO ESTÁ FILTRADA! \',\'\');\n            id 6001;\n            of odlgplan;\n            color cor_vermt,cor_cinz_;\n            font ofntbold;\n            update;\n            blinking\n   */\n\n   define brush obrush resource &quot;paper&quot;\n\n   redefine xbrowse olstbplan alias planilha-&gt;( alias() ); // autosort footers fastedit\n            lines cell;\n            fields (subs(planilha-&gt;nridplan,1,4)+\'/\'+;\n                    subs(planilha-&gt;nridplan,5,2)+\'-\'+;\n                    subs(planilha-&gt;nridplan,7,2))   ,;\n                    oemtoansi(planilha-&gt;cliente)    ,;\n                    fmostrsit(planilha-&gt;situacao)   ,;\n                    oemtoansi(planilha-&gt;desenho)    ,;\n                    oemtoansi(planilha-&gt;desmestre)  ,;\n                    planilha-&gt;item,;\n                    trans(1000*planilha-&gt;quantpedd,\'@e 999,999,999\'),;\n                    planilha-&gt;descricao  ,;  // oemtoansi(planilha-&gt;descricao)  ,;\n                    planilha-&gt;tipomola   ,; // oemtoansi(planilha-&gt;tipomola)   ,;\n                    oemtoansi(alltrim(planilha-&gt;material)),;\n                    planilha-&gt;tiposecao             ,;\n                    oemtoansi(planilha-&gt;forneced)   ,;\n                    planilha-&gt;celula,;\n                    trans(planilha-&gt;custotpla,\'@e 999,999,999.99\'),;\n                    trans(planilha-&gt;Totvdpla ,\'@e 999,999,999.99\'),;\n                    oemtoansi(planilha-&gt;analista)   ,;\n                    oemtoansi(planilha-&gt;solicita)   ,;\n                    trans(planilha-&gt;dtanalise,\'99/99/9999\'),;\n                    trans(planilha-&gt;validade,\'99\')+\' dias\';\n            id 1001;\n            of odlgplan;\n            on change ( olstbplan:setfocus() );\n            font ofntprinc;\n            update\n\n            olstbplan:ajustify               := {.f.,.f.,.f.,.f.,.f.,.f.,.t.,.f.,.f.,.f.,.f.,.f.,.f.,.t.,.t.,.f.,.f.,.f.,.f.}\n            olstbplan:nRowDividerStyle := 0 // no LINES\n            olstbplan:nColDividerStyle := 4 // cinza claro\n            olstbplan:nmarqueestyle          := MARQSTYLE_HIGHLROW // 4\n            olstbplan:nfreeze                := 2\n            olstbplan:bclrstd                := { ||{ cor_azule, if( ( olstbplan:calias )-&gt;( ordkeyno() ) %2 == 0, cor_azulf, cor_azulff ) } }\n            olstbplan:nheaderlines           := 1\n            olstbplan:nfooterlines           := 0\n            olstbplan:ndatalines             := 1\n            olstbplan:lfooter                := .f.\n            olstbplan:acols[ 1]:cheader      := \'nº/ano-rev.\'\n            olstbplan:acols[ 1]:odatafont    := ofntbold\n            olstbplan:acols[ 1]:bclrselfocus := {||{cor_amar,cor_azule}}  // olstbplan:acols[ 1]:obrush := obrush\n            olstbplan:acols[ 2]:cheader      := \'CLIENTE\'\n            olstbplan:acols[ 2]:odatafont    := ofntprinc\n            olstbplan:acols[ 3]:cheader      := \'SITUACAO\'\n            olstbplan:acols[ 3]:bclrselfocus := { ||{ if( (olstbplan:calias)-&gt;situacao==UPPER(\'A\'), cor_amar,cor_azulf),cor_azule }}\n            olstbplan:acols[ 3]:odatafont    := if( (olstbplan:calias)-&gt;situacao==UPPER(\'A\'),ofntbold,ofntprinc)\n            olstbplan:acols[ 4]:cheader      := \'DESENHO\'\n            olstbplan:acols[ 4]:odatafont    := ofntprinc\n            olstbplan:acols[ 5]:cheader      := \'DES.MESTRE\'\n            olstbplan:acols[ 5]:odatafont    := ofntprinc\n            olstbplan:acols[ 6]:cheader      := \'ITEM\'\n            olstbplan:acols[ 7]:cheader      := \'QUANT PEDD\'\n            olstbplan:acols[ 8]:cheader      := \'DESCRIÇÃO\'\n            olstbplan:acols[ 9]:cheader      := \'TIPO PROD\'\n            olstbplan:acols[10]:cheader      := \'MATERIAL\'\n            olstbplan:acols[11]:cheader      := \'TIPO SEÇÃO\'\n            olstbplan:acols[12]:cheader      := \'FORNECEDOR\'\n            olstbplan:acols[13]:cheader      := \'CÉLULA\'\n            olstbplan:acols[14]:cheader      := \'CUSTO INDUST.\'\n            olstbplan:acols[15]:cheader      := \'TOT.VENDA\'\n            olstbplan:acols[16]:cheader      := \'ANALISTA\'\n            olstbplan:acols[17]:cheader      := \'SOLICITA\'\n            olstbplan:acols[18]:cheader      := \'DT ANALISE\'\n            olstbplan:acols[19]:cheader      := \'VALIDADE\'\n\n            // olstbplan:bseek                  := {|carac| buscadig( carac, olstbplan ) }\n\n            /* Era\n            * registro das larguras das colunas do txbrowse\n            for i := 1 to len(ar_cadplan)\n               olstbplan:acols[i]:nwidth := ar_cadplan[i]\n            next\n            */\n\n            * duplo clique numa linha =&gt; mostra a planilha\n            olstbplan:bLDblClick := { || if( planilha-&gt;(lastrec())&gt;0,; // mostrapl(@olstbplan,odlgplan,\'cadplan\'),   ),;\n                                             mostrapl(@olstbplan,odlgplan,\'cadplan\'),   ),;\n                                             olstbplan:setfocus() }\n\n            // olstbplan:bRClicked := { || if( l_testando , owndprinc:end(), ) }\n\n            olstbplan:bRClicked := { || if( l_testando , prtbreak(), ) }\n            olstbplan:bkeydown  := {|nkey| if( nkey==27, procutoque:= \'\', fteclei(nkey,olstbplan)) }\n\n\n   // INCLUI\n   redefine button obtinclui;\n            id 1010;\n            of odlgplan;\n            prompt \'&amp;INCLUI NOVA\';\n            update;\n            action if( v_operad==\'adm\',;\n                       ( if(inrevpla(\'inclusao\',@odlgplan), ((++ntt,++nttinic),frefreshbt(\'\'),olstbplan:refresh()) ,olstbplan:refresh() ));\n                         ,olstbplan:refresh() )\n\n\n/*\n\n   // EXCLUI\n   redefine button obtexclui;\n            id 1020;\n            prompt \'&amp;EXCLUI\';\n            of odlgplan;\n            update;\n            action if(v_operad==\'adm\',(if(fexcluipla(olstbplan), ((--ntt,--nttinic),frefreshbt(\'\')), )),)\n\n\n   // REVISA\n   redefine button obtrevisa;\n            id 1030;\n            prompt \'&amp;REVISA\';\n            of odlgplan;\n\n            //action if(v_operad==\'adm\', (if( planilha-&gt;(lastrec())&gt;0 ,;\n            //          if(inrevpla(\'revisao\',@odlgplan),(++ntt,++nttinic,olstbplan:refresh()),), ),;\n            //             olstbplan:refresh(), olstbplan:setfocus(),olstbplan:refresh()),)\n\n\n   // VISUALIZA PLANILHA\n   redefine button obtmostrap;\n            id 1040;\n            prompt \'&amp;VISUALIZA\';\n            of odlgplan;\n\n            //action  mostrapl(olstbplan,odlgplan,\'cadplan\')\n\n            // if( planilha-&gt;(lastrec()) &gt; 0 , mostrapl(olstbplan,odlgplan,\'cadplan\'), )\n\n\n\n\n   // IMPRIME PLANILHA\n   redefine button obtprintp;\n            id 1050;\n            prompt \'Imprime Planilha\' ;\n            of odlgplan;\n\n           //action prtwind() cancel\n\n            // if(planilha-&gt;(lastrec())&gt;0,prtwind() , )\n\n\n   // PROCURA PLANILHA\n   redefine button obtprocura;\n            id 1070;\n            of odlgplan;\n            prompt \'&amp;Procura\';\n            action procupla(odlgplan)\n\n   // REPETE PROCURA\n   redefine sbutton obtrepproc;\n            id 1071;\n            update;\n            of odlgplan;\n            action if( repete() , olstbplan:refresh() , obtrepproc:disable ); // CONCLUIR\n            tooltip \'Busca por mais ocorrencias da ultima procura\';\n            font ofntprinc;\n            colors corbotaoazul1,corbotaoazul2;\n            W97 ROUNDRECT\n\n   // FILTRA PLANILHA\n   redefine button obtfiltra;\n            id 1080;\n            of odlgplan;\n            update;\n            action ( if( frotfiltro(), ( olstbplan:keycount      ,;\n                                         ostemfilt:refresh()     ,;\n                                         obtfiltra:disable()     ,;\n                                         obtcancfi:enable()      ,;\n                                         olstbplan:vupdateall()) ,  ),;\n                      olstbplan:gotop()                          ,;\n                      olstbplan:refresh()                        ,;\n                      olstbplan:setfocus() )\n\n\n   // CANCELA FILTRO\n   redefine button obtcancfi;\n            id 1081;\n            of odlgplan;\n            update; // when !empty(planilha-&gt;( dbfilter()))\n            action ( planilha-&gt;( dbsetfilter() ) ,;\n                     ostemfilt:refresh()         ,;\n                     obtfiltra:enable()          ,;\n                     obtcancfi:disable()         ,;\n                     olstbplan:vupdateall()      ,;\n                     olstbplan:gotop()           ,;\n                     olstbplan:refresh()         ,;\n                     ntt := nttinic              ,;\n                     olstbplan:setfocus() )\n\n   // VAI PARA PRIMEIRO REGISTRO\n   redefine button obtprimeiro;\n            id 1100;\n            of odlgplan;\n            update;\n            prompt \'Topo da Lista\'+CRLF+\'[Ctrl+Home]\';\n            action ( olstbplan:gotop(),frefreshbt(\'primeiro\'),olstbplan:setfocus())\n\n            //obtprimeiro:ocursor := ocursorp\n\n   redefine button obtanterior;\n            id 1110;\n            of odlgplan;\n            update;\n            prompt \'Planilha Anterior\'+CRLF+\'[seta p/cima]\';\n            action ( olstbplan:goup(),frefreshbt(\'\'),olstbplan:setfocus())\n\n\n            // obtanterior:ocursor := ocursorp\n\n   redefine button obtseguinte;\n            id 1120;\n            of odlgplan;\n            update;\n            prompt \'Planilha Seguinte\'+CRLF+\'[seta p/baixo]\';\n            action (olstbplan:godown(),frefreshbt(\'\'),olstbplan:setfocus())\n\n            // obtseguinte:ocursor := ocursorp\n\n   redefine button obtultimo;\n            id 1130;\n            of odlgplan;\n            update;\n            prompt \'Final da Lista\'+CRLF+\'[Ctrl+End]\';\n            action (olstbplan:gobottom(), frefreshbt(\'ultimo\'),olstbplan:setfocus())\n\n            //obtultimo:ocursor := ocursorp\n\n   redefine button obtinfs;\n            id 1140;\n            of odlgplan;\n            action (msgalert(vobsemovs,\'Ações e Movimentações:\'),olstbplan:setfocus());\n            cancel;\n            update\n\n            // obtinfs:ocursor := ocursorp\n\n   redefine button obtcancelap;\n            id 5000;\n            of odlgplan; // tooltip \'Retorna a tela anterior\'\n            prompt \'RETORNA &amp;A TELA INICIAL\';\n            update;\n            action odlgplan:end();\n            cancel\n\n            // obtcancelap:ocursor := ocursorp\n\n*/\n\n    odlgplan:lhelpicon := .f.\n\n    odlgplan:bkeydown  := {|nt|  if( nt==27, procutoque := \'\', fteclei(nt,olstbplan)) }\n\nactivate dialog odlgplan centered;//         on paint poenotopo(odlgplan);\n         on right click if( l_testando ,(ondestou(procfile()),owndprinc:end()), );\n         on init ( odlgplan:lballoon:= .t., owndprinc:hide(),;\n                   olstbplan:restorestate(cstate),;\n                   cfiltrotela := \'\'             ,;\n                   ostemfilt:refresh()           ,; // obtanterior:disable(),; obtfiltra:enable()            ,; obtcancfi:disable()           ,; // if(alltrim(v_operad)#\'adm\',(obtinclui:disable(),; obtexclui:disable(),; obtrevisa:disable()),),;\n                   olstbplan:gotop()             ,;\n                   olstbplan:setfocus()          ,;\n                   olstbplan:refresh()     );\n         valid (cstate:=olstbplan:savestate(),.t.)\n\na_cstate := cstate\n\nsave to statbrw.sys all like a_cstate\n\n// as_cadplan := asave(ar_cadplan)\n// save to colunas.sys all like as_*\n\ndbcloseall()\nsele (areaberta)\nowndprinc:show()\nretu nil\n\n*******************\nstat func fmostrsit()\n*******************\nif     planilha-&gt;situacao == \'A\'\n   retu padr(\'APROVADO\',22 )\nelseif planilha-&gt;situacao == \'V\'\n   retu padr(\'ANALISANDO VIABILIDADE\',22 )\nelseif planilha-&gt;situacao == \'G\'\n   retu padr(\'AGUARDANDO APROVAÇÃO\',22 )\nelseif planilha-&gt;situacao == \'C\'\n   retu padr(\'CANCELADO\',22 )\nelseif planilha-&gt;situacao == \'T\'\n   retu padr(\'COTANDO MATÉRIA-PRIMA\',22 )\nelseif planilha-&gt;situacao == \'0\'\n   retu padr(\'OUTRAS\',22 )\nelseif planilha-&gt;situacao == \'R\'\n   retu padr(\'REPROVADO\',22 )\nendif\nretu space(22)\n\n*********************\nstat func fmostrtip()\n*********************\nif     planilha-&gt;tipomola == 1\n   retu \'COMPRESSÃO\'\nelseif planilha-&gt;tipomola == 2\n   retu padr(\'TRAÇÃO\',10)\nelseif planilha-&gt;tipomola == 3\n   retu padr(\'TORÇÃO\',10)\nelseif planilha-&gt;tipomola == 4\n   retu padr(\'ARTEFATO\',10)\nendif\nretu 0\n\n\n*****************************\nstat func fselordem(vordsele) // seleciona a ordem de apresentaçao dos registros\n*****************************\nn_escolha := vordsele\n\nif vordsele==1\n   planilha-&gt;( dbsetorder( \'plidplan\'))\n   ldescend := planilha-&gt;( orddescend(,,.t.) )\nelseif vordsele==2\n   planilha-&gt;( dbsetorder( \'plidplan\' ))\n   ldescend := planilha-&gt;( orddescend(,,.f.) )\nelseif vordsele==3\n   planilha-&gt;( dbsetorder(\'pcldsdmi\' ))\nelseif vordsele==4\n   planilha-&gt;( dbsetorder(\'pcldmdsi\' ))\nelseif vordsele==5\n   planilha-&gt;( dbsetorder(\'pldsdmit\' ))\nelseif vordsele==6\n   planilha-&gt;( dbsetorder(\'pldmdsit\' ))\nelseif vordsele==7\n   planilha-&gt;( dbsetorder(\'pldtanal\' ))\nelseif vordsele==8\n   planilha-&gt;( dbsetorder(\'plsituac\' ))\nendif\nretu nil\n\n****************************\nstat func fexcluipla(olstbox)\n****************************\n\n   // pcldsdmi,pcldmdsi,pldsdmit,pldmdsit,pldtanal,plidplai,plidplan,plsituac ;\n   // planilha-&gt;( orddescend( ,, .t. ) )   se antes era .f. seta para .t. mas retorna como estava antes\n   // ORDKEY(),                            = \'subs(nridpla,5,2)+subs(nridpla,1,4)+subs(nridpla,7,2)\'\n   // indexkey(0)                          = \'subs(nridpla,5,2)+subs(nridpla,1,4)+subs(nridpla,7,2)\'\n   // ORDNUMBER()                          =  7\n   // indexord()                           =  7\n   // planilha-&gt;( dbsetorder(\'plidplan\') ) =  seta indice para PLIDPLAN\n   // OrdSetFocus(\'plidplan\')              =  seta indice para PLIDPLAN\n   // planilha-&gt;( dbsetorder(7)          ) =  seta indice para PLIDPLAN\n   // DBORDERINFO(5)                       =  PLIDPLAN\n\nlocal nreg_atual := planilha-&gt;( recno() )        // registro atual\nlocal regdepois  := planilha-&gt;( recno() )\nlocal ultimo_reg := planilha-&gt;( lastrec() )\nlocal fil_atual  := planilha-&gt;( dbfilter() )     // filtro atual\nlocal nind_atual := planilha-&gt;( indexord() )     // indice principal atual\nlocal ldescendo  := planilha-&gt;(DbOrderInfo(DBOI_ISDESC))     // ordenaçao atual (descendente ou ascendente )\nlocal n_revisao  := subs(planilha-&gt;nridplan,1,6) // numero da revisao atual da planilha\n\nlocal l_resp     := .f.\nlocal lretu      := .f.\n\nplanilha-&gt;( dbsetorder(\'plidplan\') ) // seta indice para PLIDPLAN\nplanilha-&gt;( orddescend(,,.f.) )      // seta para numero de planilha ascendente\nplanilha-&gt;( dbskip() )\n\nif planilha-&gt;( eof() )\n   * COMO JÁ ESTA NO ULTIMO REGISTRO - NAO HAVERÃO REGISTROS POSTERIORES A SEREM DELETADOS - ENTÃO: VOLTA PARA O TOPO\n   planilha-&gt;( dbgoto(nreg_atual) )\n   planilha-&gt;( dbgobottom() )\n   regdepois := planilha-&gt;( recno() )\nelse\n   regdepois := nreg_atual\nendif\n\nplanilha-&gt;( dbgoto(nreg_atual) )\n\n* SE EXISTIR FILTRO ATIVO: CANCELA-LO (PARA QUE AS REVISOES DA PLANILHA SELECIONADA APAREÇAM)\nif ! empty( fil_atual )\n   planilha-&gt;( dbsetfilter())\n   planilha-&gt;( dbgoto(nreg_atual))\nendif\n\n* REODENA PELA ORDEM NATURAL DE PLIDPLAN\nplanilha-&gt;( dbsetorder(\'plidplan\') )\nplanilha-&gt;( orddescend( ,, .f. ) )\nplanilha-&gt;( dbgotop() )\nplanilha-&gt;( dbgoto(nreg_atual))\n\n* CHECA SE É A ULTIMA REVISAO (pois só ela pode ser deletada!!!)\nplanilha-&gt;( dbskip() )\nif subs(planilha-&gt;nridplan,1,6) == n_revisao .and.  planilha-&gt;( !eof() )\n      msgalert(\'Só será possível excluir uma planilha a partir de sua última revisão!\')\n      planilha-&gt;( dbskip(-1) )\n      regdepois := nreg_atual\n      lretu := .f.\nelse // E SE FOR A ULTIMA REVISAO...\n   planilha-&gt;( dbgoto( nreg_atual ) )\n\n   l_resp := msgnoyes(\'A operação de  exclusão  elimina  definitivamente  o registro da\' + CRLF+;\n                      \'planilha selecionada.                                           \' + CRLF+;\n                      \'                Responda a pergunta abaixo.                     \' + CRLF+;\n                      \'                                                                \' + CRLF+;\n                      \'Voce tem certeza que deseja excluir a planilha: \' +  trans(nridplan,\'@r 9999/99-99\'), \'Atenção!!!\' )\n\n   if l_resp\n\n    if alltrim(v_operad)==\'adm\'\n         if planilha-&gt;( flock()  )\n            planilha-&gt;( dbdelete() )\n            planilha-&gt;( dbunlock() )\n            //planilha-&gt;( dbpack() )  // não é possivel packear com shared e preciso do shared para o procupla.prg\n            planilha-&gt;( dbcommit() )\n            lretu := .t.\n         else\n            msgstop( &quot;O registro selecionado está em uso!&quot;, &quot;Por favor, tente novamente mais tarde!&quot; )\n            regdepois := nreg_atual\n            lretu := .f.\n         endif\n      else\n         regdepois := nreg_atual\n         lretu := .f.\n      endif\n   else\n      lretu := .f.\n   endif\nendif\n\n* RESTAURA FILTRO (SE EXISTIR)\nif ! empty( fil_atual )\n   planilha-&gt;( dbsetfilter( {|| &amp;fil_atual}, fil_atual) )\nendif\n\n* VOLTA PARA O INDICE E A ORDEM QUE ESTAVAM SELECIONADOS\nplanilha-&gt;( dbsetorder(nind_atual ))\nplanilha-&gt;( orddescend(,,ldescendo) )\nplanilha-&gt;( dbgoto(regdepois) )\nolstbplan:vupdateall()\nolstbox:refresh()\nolstbox:setfocus(.t.)\nretu lretu\n\n/*\n*****************************\nstat func regprod(vforma_reg)\n*****************************\nif vforma_reg == \'inclusao\'\n   appe blan\nendif\nplanilha-&gt;nomeprod := cnomeprod\nplanilha-&gt;( dbcommit() )\nretu .t.\n\n******************\nstat func procprod\n******************\nlocal obtproccr,obtokprcr\nlocal ogetncr,ogetnmcr\nlocal osayncr,osaynmcr\nlocal odlgproccr\n\ncnomeprod := space(35)\n\ndefine dialog odlgproccr;\n       resource \'rcadpro_pr\';\n       color cor_pret,cor_cinz_;\n       font ofntprinc;\n       title \'PROCURA DESCRIÇÃO\';\n\nredefine say;\n         id 010;\n         color cor_verm,cor_amar\n\nredefine get ogetnmcr;\n         var cnomeprod;\n         id 101;\n         picture \'@k!\'\n\n         ogetnmcr:ctooltip := \'Informe a descrição (ou parte dela)\'\n\nredefine button obtokprcr;\n         id 300;\n         action if( procurprod(ogetnmcr) ,;\n                  ( olstbplan:refresh(),;\n                    odlgproccr:end()) ,)\n\nredefine button obtproccr;\n         id 200;\n         action odlgproccr:end();\n         cancel\n\n   odlgproccr:lhelpicon := .f.\n\nactivate dialog odlgproccr center; //   on paint poenotopo();\n         on right click if( l_testando ,(ondestou(procfile()),owndprinc:end()), )\n\nolstbplan:setfocus(.t.)\nretu nil\n*/\n\n*******************************\nstat func procurprod(objorigem)\n*******************************\n\nlocal nregatual  := planilha-&gt;(recno())\n\nif !empty(cnomeprod)\n\n   locate for alltrim(cnomeprod) $ planilha-&gt;nomeprod\n\n   if planilha-&gt;(found())\n\n      if !planilha-&gt;(eof())\n\n         obtrepproc:show()\n         obtrepproc:enable()\n\n      endif\n\n      retu .t.\n\n   endif\n\n   msgalert( \'Descrição não encontrada!\')\n\n   planilha-&gt;(dbgoto(nregatual))\n\n   retu .f.\n\nendif\nretu .f.\n\n/*\n******************\nstat func repete()\n******************\nlocal nregatual  := planilha-&gt;(recno())\nlocal areawork   := select()\n\nsele planilha\n\ncontinue\n\nsele (areawork)\n\nif planilha-&gt;(found())\n\n   if !planilha-&gt;(eof())\n\n      obtrepproc:show()\n      obtrepproc:enable()\n\n   endif\n\n   olstbplan:refresh()\n   olstbplan:setfocus(.t.)\n\n   retu .t.\n\nendif\n\nmsgalert(\'Nao foram encontradas mais ocorrencias do dado procurado\')\nplanilha-&gt;(dbgoto(nregatual))\nobtrepproc:disable()\nolstbplan:setfocus(.t.)\nretu .f.\n*/\n\n/*\n*****************************\nstat func regtamcol(ncolunas)\n*****************************\nlocal i := 0\nar_cadplan := {}\nfor i := 1 to ncolunas\n   aadd(ar_cadplan, olstbplan:acols[i]:nwidth )\nnext\nretu .t.\n*/\n\n**************************\nstat func frefreshbt(vpos)\n**************************\nlocal nrecno := planilha-&gt;( recno() )\n\nif empty(vpos)\n   planilha-&gt;( dbskip(1) )\n   if planilha-&gt;( eof() )\n      vpos := \'ultimo\'\n      planilha-&gt;( dbgobottom() )\n   else\n      vpos := \'\'\n      planilha-&gt;( dbgoto(nrecno) )\n      planilha-&gt;( dbskip(-1) )\n      if planilha-&gt;( bof() )\n         vpos := \'primeiro\'\n         planilha-&gt;( dbgotop() )\n      else\n         vpos := \'\'\n         planilha-&gt;( dbgoto(nrecno) )\n      endif\n   endif\nendif\n\nif     vpos == \'primeiro\'\n   obtprimeiro:disable()\n   obtanterior:disable()\n   obtseguinte:enable()\n   obtultimo:enable()\nelseif vpos == \'ultimo\'\n   obtprimeiro:enable()\n   obtanterior:enable()\n   obtseguinte:disable()\n   obtultimo:disable()\nelse\n   obtprimeiro:enable()\n   obtanterior:enable()\n   obtseguinte:enable()\n   obtultimo:enable()\nendif\nretu nil\n\n********************\nstat func frotfiltro\n********************\nlocal lretu := .f.\n\n* O FILTRO ESTÁ VAZIO ?\n\n// SIM\nif empty(  planilha-&gt;(dbfilter())   )\n\n     // FILTROU E VERIFICOU SE EXISTEM REGISTROS QUE ATENDAM AO FILTRO?\n     if filtropl(olstbplan) // SIM\n        lretu := .t.\n     endif\n\n// NÃO\nelse\n\n     * DESEJA LIMPAR O FILTRO ATUAL E REALIZAR OUTRA FILTRAGEM ?\n\n     // SIM\n     if flimpafilt()\n\n           * CRIOU O FILTRO - APLICOU - E ENCONTROU REGISTROS QUE ATENDAM AO FILTRO?\n\n          // SIM\n          if filtropl(olstbplan)\n             lretu := .t.\n\n          // NÃO\n          else\n\n             * ZERA O FILTRO E FINALIZA\n             cfiltrotela := \'\'\n             planilha-&gt;( dbsetfilter() )\n             planilha-&gt;( dbgotop() )\n             lretu := .t.\n\n          endif\n\n     // NÃO\n     else\n\n       lretu := .f.\n\n     endif\n\nendif\nretu lretu\n\n********************\nstat func flimpafilt\n********************\n\nlocal lretu := .f.\n\nif empty(cfiltrotela) //  este if não é obrigatório - só o fiz para uma eventualidade do texto do filtro ficar vazio\n   cfiltrotela := planilha-&gt;( dbfilter() )\nendif\n\nif simnao( \'A relação (apresentada acima) já está filtrada para:!\' +CRLF+CRLF+;\n            cfiltrotela +CRLF+CRLF+ \'Deseja cancelar este filtro e iniciar um outro?\' )\n\n   cfiltrotela := \'\'\n   planilha-&gt;( dbsetfilte() )\n   planilha-&gt;( dbgotop() )\n   lretu := .t.\n\nelse\n   lretu := .f.\nendif\nretu lretu\n\n*******************************\nstat func fteclei(ntecla,olstb)\n*******************************\nlocal lretu   := .f.\nlocal vindkey\nlocal lfield\n\n* SE LOCALIZADOR DO MOUSE ESTIVER ATIVO ...\nif ntecla == VK_CONTROL\n   procutoque := \'\'\n   retu nil\nendif\n\n* NAO TIRE O TRECHO ABAIXO DAQUI*********************************\nif upper(chr(ntecla)) == upper(\'L\') .and. GetKeyState(VK_CONTROL)\n   msgwait(\'Busca por digitação pronta para nova pesquisa!\',,1)\n   procutoque := \'\'\n   olstb:gotop()\n   retu nil\nendif\n\n//MOSTRA - VISUALIZA\nif ntecla == VK_RETURN .or. ntecla==13 .or. ntecla==K_ALT_V\n   procutoque := \'\'\n   obtmostrap:setfocus()\n   eval(obtmostrap:baction)\n   retu nil\n//FILTRA\nelseif ntecla == K_ALT_F\n   procutoque := \'\'\n   obtfiltra:setfocus()\n   eval(obtfiltra:baction)\n   retu lretu\n//INCLUI\nelseif (ntecla==K_INS .or. ntecla==K_ALT_I .or. ntecla==VK_INSERT) .and. v_operad#\'adm\'\n   procutoque := \'\'\n   retu .t.\nelseif (ntecla==K_INS .or. ntecla==K_ALT_I .or. ntecla==VK_INSERT) .and. v_operad==\'adm\'\n   procutoque := \'\'\n   obtinclui:setfocus()\n   eval(obtinclui:baction)\n   retu lretu\n//EXCLUI\nelseif (ntecla==K_ALT_E .or. ntecla==K_DEL .or. ntecla==VK_DELETE) .and. v_operad#\'adm\'\n   procutoque := \'\'\n   retu .t.\nelseif (ntecla==K_ALT_E .or. ntecla==K_DEL .or. ntecla==VK_DELETE) .and. v_operad==\'adm\'\n   procutoque := \'\'\n   obtexclui:setfocus()\n   eval(obtexclui:baction)\n   retu lretu\n//REVISA\nelseif (ntecla==K_ALT_R ) .and. v_operad#\'adm\'\n   procutoque := \'\'\n   retu .t.\nelseif (ntecla==K_ALT_R ) .and. v_operad==\'adm\'\n   procutoque := \'\'\n   obtrevisa:setfocus()\n   eval(obtrevisa:baction)\n   retu lretu\nelseif ntecla==VK_UP\n   procutoque := \'\'\n   olstb:goup()\n   if olstb:bof .or. olstb:nat == 1\n      olstb:gotop()\n      frefreshbt(\'primeiro\')\n   endif\nelseif ntecla==VK_DOWN\n   procutoque := \'\'\n   olstb:godown()\n   if olstb:eof\n      olstbpla:gobottom()\n      frefreshbt(\'ultimo\')\n   endif\nelseif ntecla== VK_HOME\n   procutoque := \'\'\n   olstb:gotop()\n   frefreshbt(\'primeiro\')\nelseif ntecla== VK_END\n   procutoque := \'\'\n   olstb:gobottom()\n   frefreshbt(\'ultimo\')\nelseif ntecla==VK_F2\n   procutoque := \'\'\n   msginfo( if(!empty(planilha-&gt;(dbfilter())), cfiltrotela , \'Nemhum filtro ativo!\'), \'Parâmetros do Filtro:\' )\n   retu nil\nelseif ntecla &gt;= 96 .and. ntecla &lt;=105 // se digitar no teclado numerico &quot;keypad&quot;\n   * caracter &quot;0&quot; -&gt; ascii = 48\n   ntecla = ntecla - 48\nendif\n\n // pcldsdmi,pcldmdsi,pldsdmit,pldmdsit,pldtanal,plidplai,plidplan,plsituac\n //     1       2        3        4        5        6        7        8\nif (indexord()= 7 .or. indexord()= 6) .and. ! chr(ntecla)$\'1234567890\'  // PLIDPLAN\n   alerta( \'Para a atual ordem de apresentação: \'+ v_escolha +CRLF+CRLF+;\n           \'Voce deve digitar ANO + Nº DA PLANILHA + Nº DA REVISAO\'+CRLF+CRLF+;\n           \'no formato  AANNNRR     \'+CRLF+CRLF+;\n           \'Ou selecionar a ordem de apresentação relativa ao dados pesquisado !!!\')\n   procutoque:=\'\'\n   retu nil\nelseif alltrim(str(indexord())) $ \'12348\' .and. chr(ntecla)$ \'1234567890\'\n   alerta( \'Para a atual ordem de apresentação: \'+ v_escolha +CRLF+CRLF+;\n           \'Voce deve digitar, sómente, CARACTERES ALFABETICOS E PONTUAÇÕES\'+CRLF+CRLF+;\n           \'Ou selecionar a ordem de apresentação relativa ao dados pesquisado !!!\')\n   procutoque:=\'\'\n   retu nil\n\nelseif indexord()=5\n   alerta( \'Para a atual ordem de apresentação: \'+ v_escolha+CRLF+CRLF+;\n           \'Não é possível fazer pesquisa incremental\'+CRLF+CRLF+;\n           \'Utilize o botão &quot;PROCURA&quot; ou o botão &quot;FILTRA&quot; !!!\')\n\n   procutoque:=\'\'\n   retu nil\nendif\n\nif (upper(chr(ntecla)) $ \' _ABCÇDEFGHIJKLMNOPQRSTUVWXYZ1234567890/&lt;&gt;*&quot;&amp;¨@(){}[]#$%-+.,:;?\' .or.;\n         chr(ntecla) == &quot;\'&quot; .and.;\n   !empty(indexkey()) .and. fieldtype(fieldnum(indexkey())) $ upper(\'CN\') )\n\n   flocadig(upper(chr(ntecla)),@olstb)\n   ntecla := nil\n\nendif\nretu nil\n\n***********************************\nstat func flocadig(toquelocal,olbx)\n***********************************\nlocal atregs\n//local indextual := planilha-&gt;(indexord())   //OrdBagName()\npriva ultimapos := planilha-&gt;(recno())\nprocutoque      := procutoque + toquelocal\n\nmsgwait(procutoque,,.5)\n\nif ! planilha-&gt;(  dbseek(  procutoque) )\n    alerta(\'O dado digitado nao esta cadastrado!\')\n    planilha-&gt;( dbgoto(ultimapos) )\n    olbx:refresh()\n    procutoque := \'\'\nelse\n   atregs := recno()\n   olbx:gotop()\n   planilha-&gt;( dbgoto(atregs) )\n   olbx:refresh()\nendif\nretu .t.\n\n\n\n[/color]'),(744,89,0,3,1637342300,'Information on Richedit','Hello Navarro \nI use TRichEdit5\nwhat is the difference between an RTF string starting with \n\n[b]{\\rtf1\\ansi\\ansicpg1252\\deff0\\nouicompat\\deflang1040{\\fonttbl[/b] \nI have this in my DBF \nand \n[b]{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1040{\\fonttbl[/b]\nI have this in MySql , and are not compatible .\n\nRegards Maurizio'),(747,2967,41550,6,1648022727,'Re: GET continuo para captura de codigos UHF RFID.','Buenos días todos y gracias por contestar. \n\nEl lector es de chips UHF como los que llevan los libros. Ya manda el CTRL al final de la lectura. Lo pruebas en NOTEPAD y va bien. Lo que necesito es que la lectura sea dinámica, que se ejecute el codigo nesesario después de cada lectura para actualizar la BD y que despues de cada una el GET se reinicie para un nuevo codigo. Antes lo hacia muy facil con clipper, pero ahora me cuesta mucho despues de tantos años.\n\nEstoy partiendo de la base, que es esta que pongo. Necesito que esa entrada, que puede ser en multiplos desde 4 hasta 24 caracteres alfanumericos pase el codigo para ejecurar una función y despues vuelva al punto de partida para otro nuevo.\n\n[code=fw]\n\n#include &quot;fivewin.Ch&quot;\n\n//------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg, oFont1\n   local oGet1, aVar1 = space( 24 ) \n   \n   DEFINE FONT oFont1 NAME &quot;TAMOA&quot; SIZE 0,-15\n   DEFINE DIALOG oDlg SIZE 540,100 PIXEL TRUEPIXEL FONT oFont1 ;\n      TITLE &quot;PROBANDO&quot;\n\n   @  30,30 SAY &quot; CÓDIGO EPG :&quot;  WIDTH 120 GET oGet1 VAR aVar1 SIZE 450,32 PIXEL OF oDlg   \n\n   ACTIVATE DIALOG oDlg CENTERED\n   RELEASE FONT oFont1\n\nreturn nil\n\n[/code]\n\nMuchas gracias de antemano.\n\nJosé García'),(748,600,41586,6,1648722526,'Re: Insertar Hoja en libro Excel','Sebastian, gracias por contestar\n\nLa primera opcion que das es la que estoy utilizando y la hoja se crea en el lugar que ocupa la hoja activa y esta la desplaza a la derecha.\n\nLa segunda opcion no logro ponerla en marcha. Me da error\n\nEncontré por el foro esta instruccion\noBook := oExcel:ActiveWorkbook:Sheets:Add( oExcel:ActiveWorkbook:Worksheets( oExcel:ActiveWorkbook:Worksheets:Count() ) )\nPero actua igual que la primera opcion.'),(749,1711,0,3,1648878190,'How can I execute below java with Fivewin?','Dear developers,\n\n   I am trying to execute java to move into next pages.\n   The problem is Execution of below java.\n\n      &lt;a href=&quot;../static/js/#page-2&quot; class=&quot;page-link&quot;&gt;2&lt;/a&gt;\n\n   The web list page is\n      [url]https://www.foodsafetykorea.go.kr/portal/healthyfoodlife/searchHomeHF.do?menu_grp=MENU_NEW01&amp;menu_no=2823[/url]\n\n   I\'ve attached the image of above page as below\n      [img]https://bestcare.kr/mail/how_java.jpg[/img]\n\n   Please kidnly give me an advice to move into next page throughr execution of above java.\n\n  Thanks.\n\n Sincerely,\n\n Y.W.Kim'),(750,1711,0,3,1648879656,'How can I excecute javascript &quot;../js/#page-2&quot;?','Dear deveopers,\n\n  In web page,  I am trying to execute (call) below java to move into next page.\n   \n     &lt;a href=&quot;../static/js/#page-2&quot; class=&quot;page-link&quot;&gt;2&lt;/a&gt;\n\n  In old days, it was possible to execute java as below...\n    oAx:oActiveX:Document:ParentWindow:ExecScript( cMove ,&quot;javascript&quot;)\n\n But,  in above case,  ExecScript was not working... \n\n  [url]https://www.foodsafetykorea.go.kr/portal/healthyfoodlife/searchHomeHF.do?menu_grp=MENU_NEW01&amp;menu_no=2823[/url]\n\n  Please see below.\n[img]https://bestcare.kr/mail/how_java.jpg[/img]\n\n  Thanks for your advice..\n\n  Y.W.Kim'),(751,924,37535,45,1649516673,'Re: mod_harbour FAQ','Ciao \nI installed :\n1. Copy this mod_harbour.so to c:\\xampp\\apache\\modules\nhttps://github.com/FiveTechSoft/mod_harbour/blob/master/windows/win32/mod_harbour.so\n\n2. Copy this libharbour.dll to c:\\xampp\\htdocs\nhttps://github.com/FiveTechSoft/mod_harbour/blob/master/windows/win32/libharbour.dll\n\n3. Add these lines to the bottom of c:\\xampp\\apache\\conf\\httpd.conf\n**********************\nLoadModule harbour_module modules/mod_harbour.so\n\n&lt;FilesMatch &quot;\\.(prg|hrb)$&quot;&gt;\n    SetEnv LIBHARBOUR &quot;c:/xampp/htdocs&quot;\n    SetHandler harbour\n&lt;/FilesMatch&gt;\n*********************\n\n\nThen i Created a test.prg at c:\\xampp\\htdocs:\n************\nfunction Main()\n\n   ? &quot;Hello world&quot;\n\nreturn nil\n*************\n\n\nBut when i run it at: http://localhost/test.prg\n\ni got this error:\n********************\nmod_harbour version May 13 2020, 12:49:18\nc:/xampp/htdocs\nImpossibile trovare il modulo specificato.\nfailed to load hb_apache()\n\n*********************\n\n\nWhere i wronged ?\n\nMaybe because i have windows 7 at 32bit ?\n\nGrazie'),(752,1689,0,3,1649578869,'Dialog style','This is may Pellas rc file:\n[code=fw]// RESOURCE SCRIPT generated by &quot;Pelles C for Windows, version 10.00&quot;.\n\nLANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US\n\n1 MANIFEST &quot;winxp.man&quot;\n\nEEF3 DIALOG DISCARDABLE 197, 105, 277, 127\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CENTER|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;TEST&quot;\nFONT 8, &quot;Microsoft Sans Serif&quot;\n{\n  CONTROL &quot;&quot;, 101, &quot;Edit&quot;, ES_UPPERCASE|WS_BORDER|WS_TABSTOP, 24, 20, 180, 12\n  CONTROL &quot;&quot;, 102, &quot;ListBox&quot;, LBS_NOTIFY|WS_VSCROLL|WS_BORDER|WS_GROUP|WS_TABSTOP, 24, 40, 180, 82\n  CONTROL &quot;&amp;Izlaz&quot;, 103, &quot;Button&quot;, WS_TABSTOP, 212, 96, 56, 18\n}[/code]\n\nThis is my Test.prg:\n\n[code=fw]#include &quot;fivewin.ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Test()\n\nLocal cKrit,oLbx\n\n   DEFINE DIALOG oDlg  RESOURCE &quot;EEF3&quot; \n   \n   REDEFINE GET oKrit VAR cKrit ID 101 OF oDlg \n\n   REDEFINE LISTBOX oLbx ID 102;\n            OF oDlg\n\n   REDEFINE BUTTON ID 103 OF oDlg ;\n            ACTION oDlg:end()\n\n   ACTIVATE DIALOG oDlg\n\nreturn nil\n [/code]'),(755,4632,0,3,1653912845,'usar o Sumatra para exportar','Alguém pode me ajudar?\n\nPreciso usar o Sumatra para exportar pdf para txt via linha de comando...\n\nOu seja, sem abrir diretamente o Sumatra para fazer a conversão...'),(756,1140,0,3,1654698620,'Progress with error','Exact example of the problem\nI changed the array to a value of 168 elements and had it run\n\nfunction Main() \n\n   local oDlg, oProg1, oProg2\n   \n    DEFINE DIALOG oDlg TITLE &quot;Progress Bars&quot;\n   \n    @ 1, 1 PROGRESS oProg1 SIZE 80, 12 \n\n   @ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL\n   \n    @ 3,  9 BUTTON &quot;Ok&quot; ACTION oDlg:End()\n   \n    oDlg:bStart = { || Increase( oProg1, oProg2 ) }\n   \n    ACTIVATE DIALOG oDlg CENTER ;\n       ON INIT ( oProg1:SetRange( 0, 168 ), oProg1:SetStep( 1 ),;\n                 oProg2:SetRange( 0, 168 ), oProg2:SetStep( 1 ) )\n   \n return nil   \n\nfunction Increase( oProg1, oProg2 ) \n\n   local n \n\n   for n = 1 to 168 // 111\n       // oProg1:StepIt()\n       // oProg2:StepIt()\n       oProg1:SetPos( n )\n       oProg2:SetPos( n )\n       Sleep( 50 )\n       SysRefresh()\n    next'),(757,34,0,3,1657400703,'Windows OS Version Display','Somewhere I recall this may have been addressed but I can\'t find it.\n\nOn one of my dialogs, I want to display the version of Windows that the computer is using.  I am testing this on a Windows 11 computer.\n\nIf I use either OS()  or Windows( ) I get Version 8.\n\nIf I use GetVersion( ) and use the array values, I get Version 6.2.\n\nWhat I want to display is Windows 8, 10, or 11, depending on what is actually running on the computer.  Is this possible ?'),(758,3289,0,6,1657490931,'Problemas con Advamtage','Uso la version de fwh ver 17.6, con xharbour y b7, no me funciona con advantage, aclaro, que lo he usado con otras versiones anteriores de fwh y excelente!, Gracias!!'),(759,1689,0,3,1657788745,'SQL Insert into... Select','I try:\n\n[code]cSql:=&quot;INSERT INTO Smp_Test (SELECT PR_Sifra, PR_Naziv FROM Smp_Partneri)&quot;\n	oCn:Execute( cSql )\n[/code]'),(761,875,42118,6,1661658363,'Re: Xbrowse, cambio color texto y celda','For I=1 To [Numeros de columnas]\n          If I=8\n             oBrw:aCols[I]:bClrStd:={|| If(((aAlias[22])-&gt;clasef=&quot;1&quot; .and. (aAlias[22])-&gt;estado=&quot;1&quot; ),{CLR_BLACK,nRGB(250,219,216)}, {CLR_BLACK,If( oLbx:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(226,226,208) )}) }\nnRGB(242,247,252),nRGB(226,226,208) )}) }\n	  Endif\n      Next I'),(762,276,42329,3,1666541017,'Re: List of printers','WIN_PRINTERLIST()\nWIN_PRINTERGETDEFAULT()\n\nLib: Hbwin  :)'),(763,3795,0,6,1668266656,'Consejos sobre el uso de las clases TImprime y TUtilPrn','Estimados todos\n\nHe usado previamente con éxito las clases TImprime + TUtilPrn de The Full, pero ahora al cambiarme a la nueva versión de FHW2210 con xHarbour, empiezo a tener problemas que antes no tenía, he intentado de todo, pero me empiezan a aparecer errores que antes no tenía.\n\nPor ello, les quería consultar detalles de este caso, si han tenido problemas o errores como estos: \n\nStack Calls\n===========\n   Called from:  =&gt; ABS( 0 )\n   Called from: c:\\pruebas\\mundial_2018\\bin\\Utilprn.prg =&gt; ROUNDRECT( 0 )\n   Called from: c:\\pruebas\\mundial_2018\\bin\\Utilprn.prg =&gt; TUTILPRN:BOX( 0 )\n   Called from: c:\\pruebas\\mundial_2018\\bin\\Utilprn.prg =&gt; TUTILPRN:BOXMSG( 0 )\n\nEn otro error, no me carga las imágenes (), parece que se leyera bien la FREEIMAGE.DLL, aunque está bien referenciado.\n\nStack Calls\n===========\n   Called from: .\\source\\classes\\IMAGE.PRG =&gt; LOADFREEIMAGE( 505 )\n   Called from: .\\source\\classes\\IMAGE.PRG =&gt; FILOADIMG( 325 )\n   Called from: .\\source\\classes\\IMAGE.PRG =&gt; TIMAGE:DEFINE( 95 )\n   Called from: c:\\sicef_desarrollo\\bin\\Utilprn.prg =&gt; TUTILPRN:SAYIMAGE( 0 )\n\n\nAdemás, me gustaría conocer: ¿si tienen sugerencias, experiencias para resolver estos problemas, hay alguna versión más nueva de esta clase (uso la versión 4.0 de TUtilPrn) o existe otra clase que se pueda usar, similar a la TImprime+TUtilPrn?\n\nSaludos\n\nFernando Espinoza A.'),(765,4681,41696,45,1670430651,'Re: A big hit: Neither Apache and mod_harbour are needed','Hello everybody,\n\nwe are trying the new HbWeb functionality that seems really interesting.\n\nHowever in our tests on FiveDBU.exe we can\'t obtain the results shown in the forum.\n\nThe Windows application FiveDBU.exe is generated with buildhmt.bat and seems to run as expected.\nWhen we start the webserver with the contestual menu item &quot;WebApp&quot; and go to http://localhost on the browser we can see the main window of the Windows application.\nBut clicking on any voice of the menu or button does nothing. The only thing that happens is that the URL is changed according to the button/menuitem we have selected but the rendering of the HTML page is not updated.\n\nAt the same time, in the windows application, the contestual menu item &quot;Controller&quot; shows an empty list, and clicking on the item &quot;Dialogs&quot; we get the following error that close the application:\n\n[code]Application\n===========\n   Path and name: B:\\fwh2210\\samples\\fivedbu.exe (32 bits)\n   Size: 7,683,072 bytes\n   Compiler version: Harbour 3.2.0dev (r2008190002)\n   FiveWin  version: FWH 22.10\n   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)\n   Windows 10 64 Bits, version: 6.2, Build 9200 \n\n   Time from start: 0 hours 17 mins 58 secs \n   Error occurred at: 07/12/2022, 17:26:59\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = H   {=&gt;}\n     [   2] = C   Dialogs\n\nStack Calls\n===========\n   Called from: .\\source\\function\\WEBAPP.PRG =&gt; WA_SHOWCODEDIALOGS( 253 )\n   Called from: fivedbu.prg =&gt; (b)BUILDPOPUPMENU( 124 )\n   Called from: .\\source\\classes\\MENU.PRG =&gt; TMENU:ACTIVATE( 1810 )\n   Called from: fivedbu.prg =&gt; BUILDPOPUPMENU( 127 )\n   Called from: fivedbu.prg =&gt; (b)FIVEDBU( 92 )\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; TMDICLIENT:RBUTTONDOWN( 2184 )\n   Called from:  =&gt; TMDICLIENT:HANDLEEVENT( 0 )\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH( 3689 )\n   Called from:  =&gt; WINRUN( 0 )\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE( 1114 )\n   Called from: fivedbu.prg =&gt; FIVEDBU( 92 )\n\nSystem\n======\n   CPU type: Intel(R) Core(TM) i9-9900K CPU @ 3.60GHz 3600 Mhz\n   Hardware memory: 32434 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Windows total applications running: 6\n      1 , B:\\fwh2210\\samples\\fivedbu.exe                                                                      \n      2 , C:\\WINDOWS\\System32\\shcore.dll                                                                      \n      3 , C:\\WINDOWS\\WinSxS\\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.19041.1110_none_a8625c \n      4 DDE Server Window, C:\\WINDOWS\\System32\\OLE32.DLL                                                                       \n      5 GDI+ Window (TabTip.exe),                                                                                                     \n      6 GDI+ Window (fivedbu.exe), C:\\WINDOWS\\WinSxS\\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.1348_none_d94f9953e1060d \n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   WA_SHOWCODEDIALOGS\n     Param   1:    O    Class: ERROR\n   (b)BUILDPOPUPMENU\n     Local   1:    U    \n     Local   2:    A    Len:    0\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    S    \n     Local  12:    U    \n     Local  13:    H    {=&gt;}\n     Local  14:    C    &quot;Dialogs&quot;\n     Local  15:    U    \n     Local  16:    U    \n   TMENU:ACTIVATE\n     Param   1:    O    Class: TMENUITEM\n   BUILDPOPUPMENU\n     Param   1:    N    370\n     Param   2:    N    755\n     Param   3:    O    Class: TMDIFRAME\n     Param   4:    L    .T.\n     Param   5:    N    0\n     Local   1:    A    Len:    2\n   (b)FIVEDBU\n     Param   1:    N    370\n     Param   2:    N    755\n     Param   3:    O    Class: TMDIFRAME\n     Local   1:    O    Class: TMENU\n   TMDICLIENT:RBUTTONDOWN\n     Param   1:    N    370\n     Param   2:    N    755\n     Param   3:    N    2\n     Param   4:    O    Class: TMDICLIENT\n   TMDICLIENT:HANDLEEVENT\n     Param   1:    N    370\n     Param   2:    N    755\n     Param   3:    N    2\n   _FWH\n     Param   1:    N    516\n     Param   2:    N    2\n     Param   3:    N    24249075\n   WINRUN\n     Param   1:    N    24249075\n     Param   2:    N    516\n     Param   3:    N    2\n     Param   4:    N    24249075\n     Param   5:    N    2\n     Local   1:    O    Class: TMDICLIENT\n   TMDIFRAME:ACTIVATE\n     Param   1:    N    4659632\n   FIVEDBU\n     Param   1:    C    &quot;MAXIMIZED&quot;\n     Param   2:    U    \n     Param   3:    B    {|| ... }\n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    B    {|| ... }\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Param  20:    L    .F.\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    O    Class: TSCROLLBAR\n     Local   3:    O    Class: TSCROLLBAR\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFCDX\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 ERROR\n     2 HBCLASS\n     3 HBOBJECT\n     4 TPREVIEW\n     5 TINI\n     6 TFONT\n     7 TWINDOW\n     8 TCONTROL\n     9 TBITMAP\n    10 TMDIFRAME\n    11 TMENU\n    12 TREG32\n    13 TMENUITEM\n    14 TMRU\n    15 TBRUSH\n    16 TMDICLIENT\n    17 TSCROLLBAR\n    18 TBAR\n    19 TRECT\n    20 TBTNBMP\n    21 TMSGBAR\n    22 TMSGITEM\n    23 TTIMER\n    24 HBWEBSERVER\n    25 TDIALOG\n    26 TXBROWSE\n    27 TXBRWCOLUMN\n    28 TCLIPBOARD\n    29 GDIBMP\n    30 TCHECKBOX\n    31 TSAY\n    32 TCOMBOBOX\n    33 TGET\n    34 GET\n    35 TCLIPGET\n    36 TBUTTON\n    37 TSTRUCT\n\nMemory Analysis\n===============\n      754 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:    2555904 bytes\n      Highest Value:    2555904 bytes\n[/code]\n\nLooking at the code we got the impression that the variable hWebApp has no &quot;Dialogs&quot; key inside.\n\nCould someone point out what are we doing wrong?\n\nThanks in advance.'),(768,3795,42638,6,1672275652,'Re: Que cambios de hacer para pasar de RichEdit a la RICHEDIT5','Estimado Cristobal:\n\nDos temas más:\n\n1) Al usar la clausula BARBUTTON aparece un menú flotante que solo se visualiza al pasar el ratón por la parte superior del control RICHEDIT5. ¿Hay alguna forma de que ese ButtonBar se vea de forma permanente?\n\nLe anexo la captura de pantalla, sobre como se ve el menú contextual.\n\n[img]https://i.postimg.cc/TPKRSL38/Captura-Sicef.png[/img]\n\nSaludos\n\nFernando Espinoza A.'),(769,3593,42614,3,1672398532,'Re: Fighting Xbrowse and lozing !!!','Thank you Mr.Rao,  I will start looking into to code and addapt where possible.'),(770,1140,0,3,1674047505,'incremental search with array','Good morning everyone.\nIn xbrowse incremental search with array I can\'t get the customer\'s name if it starts with *\nEx: * JOAO he disregards *\nIs there any way to resolve this?'),(771,78,0,6,1676158338,'Paleta de Colores de Windows','Hola Amigos, como se puede acceder a la paleta de colores desde FW ?\n\n[url]https://ibb.co/GnCgH2C[/url]'),(772,1464,42888,6,1678499772,'Re: FieldGet() no recupera bien dato NUMERIC de tabla ADT','Jose\n\nGracias por responder\n\n&gt;&gt;La unica solucion que encontre fue grabar los numeros en campos alfanunericos y hacerme las funciones de conversion.\n\nsi, al parecer es la unica solucion.'),(773,409,42880,6,1678794543,'Re: Insertar imágen de recurso en Excel','yo lo hago asi\n\n  LOCAL cLogo:=&quot;c:\\systema\\bus\\ima\\logo.bmp&quot;\n\n\n       oSheet:Shapes:AddPicture( cLogo, .F., .T., 0, 0, 130, 50 )\n\nSaludos'),(774,1639,43168,3,1683797188,'Re: Copy several files to the clipboard','And how to activate the changes in clpbrd.c? Do I need to rebuild the library (which one) or is there another way?'),(775,936,43233,3,1684931649,'Re: drop to GET how ?','[quote=&quot;csincuir&quot;]Hello Nages\nVery nice example! Thank you.\n\nYour example works correctly, but only with Window, with Dialog or Window MDI Child it doesn\'t work.\nIt is possible to lock this option with Dialogs?\n\nBest regards.\n\nCarlos[/quote]'),(776,4118,0,6,1685982792,'a/a LEANDRO - Nueva clase TMdiFolder','Buenas tardes Leandro ( y buenas tardes a todos )\n\nTe muestro los avances, ahora convertido en una clase. Espero que 100% compatible con el resto de clases de fivewin.\nTe copio también el código fuente de lo que se muestra en el video. Dos archivos .prg \nEn el primero se crea la ventana base (MdiFrame)\nEn el segundo las tres opciones del menú. (solo como ejemplos)\n\nComo verás, la única diferencia es que cuando defines la ventana MDICHILD en vez de poner :\n[code=fw]DEFINE WINDOW MDICHILD oMDI OF ...[/code]\ntienes que poner :\n[code=fw]DEFINE WINDOW MDICHILDFOLDER oMDI OF ....[/code]'),(778,1690,43396,3,1688067345,'Re: SetClipboardData to UTF-8','At first, everything seemed to be in order:\n[code=fw]\nÄsthetik\nästhetischer\nÄther\näußere\nÅke Edwardson\nÅsa Ericsdotter\nÅse Falkman Fredrikson &amp; Anna Hallén\nÆleen Frisch\nÆvar Örn Jósepsson\nÈnn, Aléna\nÉdith Piaf\nÓlafur Arnalds\nÓscar Hijuelos\nÓskar Hrafn Thorvaldsson\nÖdipus\nöffentliche\nöffnen\nÖffner\nÖhm, Christoph\nÖkofimmel\nökologischen\nÖkonomie\nÖl\nÖmer Bükülmezoğlu\nØystein Wiik\nØresund Space Collective\nÃžráinn Bertelsson\nАнастасия Варнавская[/code]\nnot ok:\n[code]über\nÜberblick\nüberflüssige\nüberfällig\nÃœbungshandbuch\nÃœbungsmaterial\nÃœbungsraum\nÃœbungsreihe\nÃžráinn Bertelsson\nÐÐ½Ð°ÑÑ‚Ð°ÑÐ¸Ñ Ð’Ð°Ñ€Ð½Ð°Ð²ÑÐºÐ°Ñ[/code]'),(779,3441,43403,3,1688219726,'Re: FiveWin on Apple/Mac works great','For sure there is more development needed, but also now the libs works great. So why not support FiveTech and use this great tool.'),(780,1060,43461,3,1689588067,'Re: Tables in RichEdit5','Antonio, thanks for the example!\n\n1. What is a hRichedit handle, because we are working with a TRichEdit object ?\n2. Is there any guide for working with RichEdit5 ?'),(782,131,43610,6,1693554291,'Re: Incluyendo el SQLRDD','Buenos días,\n¿ Se puede usar SQLRDD con Sqlite ?\n\nSaludos,'),(787,389,43873,6,1699282508,'Re: Que necesito para desarrollar para IPAD?','Armando\nQuizas esto te ayude además hay otras herramientas.. pero hay que respertar el foro con la publicidad\n[url]\nhttps://forums.fivetechsupport.com/viewtopic.php?f=46&amp;t=43782&amp;p=264408&amp;sid=989f97747420c89c8e4b627eb28525d6#p264280\n[/url]'),(788,870,0,3,1699446302,'Acessar MySQL local','¡Hola!\n\nUsando FWH 21.04 no puedo acceder a MySQL local, solo a través de Internet.\n\nUtilizo FWH 21.04 con BCC 7.6 y xHB 20.275.\n\n¿Que puede ser?\n\n¡Gracias!\n\nRodrigo Melo\nBrasil\n\n[img][/img]'),(789,870,0,3,1699446560,'Acessar MySQL local','¡Hola!\n\nUsando FWH 21.04 no puedo acceder a MySQL local, solo a través de Internet.\n\nUtilizo FWH 21.04 con BCC 7.6 y xHB 20.275.\n\n¿Que puede ser?\n\n¡Gracias!\n\nRodrigo Melo\nBrasil\n[img]C:\\Users\\rodri\\OneDrive\\Imagens\\Capturas%20de%20tela\\Erro%20MySQL%20local.jpg[/img]'),(790,4793,43027,3,1700080671,'Re: Xbrowse : oBrw:ToArray (How to do it)','soy nuevo y tengo un ejecutable crackeado que me vendieron de un programa contable\ny sale este error en algunas maquinas casi en la mayoría\n\nerror description: error base/1111 argument error: LEN\n\ny tiene un log del error\n\nApplication\n===========\n   Path and name: C:\\Siscont2\\siscont1.exe (32 bits)\n   Size: 6,800,896 bytes\n   Compiler version: Harbour 3.2.0dev (r1703231115)\n   FiveWin  version: FWH 17.12\n   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)\n   Windows version: 6.2, Build 9200 \n\n   Time from start: 0 hours 0 mins 22 secs \n   Error occurred at: 15/11/2023, 14:36:04\n   Error description: Error BASE/1111  Argument error: LEN\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; LEN( 0 )\n   Called from: a_tc.prg =&gt; TCAMBIOSBS( 342 )\n   Called from: c_todo.prg =&gt; C_TODO( 57 )\n   Called from: siscont.prg =&gt; (b)MENUPP( 669 )\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE( 1023 )\n   Called from: siscont.prg =&gt; MENUPP( 669 )\n   Called from: siscont.prg =&gt; MAIN( 509 )\n\nSystem\n======\n   CPU type: Intel(R) Core(TM) i7-4700MQ CPU @ 2.40GHz 2394 Mhz\n   Hardware memory: 16296 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Windows total applications running: 3\n      1 ,                                                                                                     \n      2 , C:\\Siscont2\\siscont1.exe                                                                            \n      3 GDI+ Window (siscont1.exe), C:\\WINDOWS\\WinSxS\\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.19041.2251_none_d9513b1fe1046f \n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LEN\n     Param   1:    O    Class: ERROR\n   TCAMBIOSBS\n     Param   1:    U    \n     Local   1:    U    \n     Local   2:    U    \n   C_TODO\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    D    15/11/2023\n     Local   1:    U    \n   (b)MENUPP\n     Param   1:    O    Class: TMDIFRAME\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    A    Len:    4\n     Local  11:    A    Len:   31\n     Local  12:    U    \n     Local  13:    A    Len:    4\n     Local  14:    A    Len:   31\n     Local  15:    U    \n   TMDIFRAME:ACTIVATE\n     Param   1:    O    Class: TMDIFRAME\n   MENUPP\n     Param   1:    C    &quot;MAXIMIZED&quot;\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Param  20:    L    .F.\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TBITMAP\n     Local   2:    O    Class: TICON\n     Local   3:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFCDX\n   DBFNTX\n\nDataBases in use\n================\n\n  1: =&gt; EMP                                RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n          1            1      .F.   .F.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\nClasses in use:\n===============\n     1 ERROR\n     2 HBCLASS\n     3 HBOBJECT\n     4 TFONT\n     5 WIN_OLEAUTO\n     6 TOLEAUTO\n     7 TWINDOW\n     8 TDIALOG\n     9 TBRUSH\n    10 TCONTROL\n    11 TICON\n    12 TMULTIGET\n    13 TBUTTON\n    14 TRECT\n    15 TSAY\n    16 TGET\n    17 GET\n    18 TCLIPGET\n    19 TREG32\n    20 TCURSOR\n    21 TBITMAP\n    22 TMDIFRAME\n    23 TMENU\n    24 TMENUITEM\n    25 TMDICLIENT\n    26 TBAR\n    27 TBTNBMP\n    28 TMSGBAR\n    29 TMSGITEM\n    30 TTIMER\n    31 TSTRUCT\n\nMemory Analysis\n===============\n      557 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:    2359296 bytes\n      Highest Value:    2359296 bytes'),(791,107,43955,6,1701321880,'Re: Subuir un fichero a un servidor','Hola de nuevo\n\nYa funciona curl, he tenido que copiar las dlls MSVCR120.DLL y LIBCURL.dll  en la ruta de mi ejecutable.\n\nAhora ya consigo enviar los [b]datos [/b]con curl y puedo procesar la respuesta del servidor,\n\npero sigo  sin poder enviar el fichero.\n\nEste es el codigo que estoy utilizando\n\n[code=fw]STATIC FUNCTION TestSend2(cAccess_Token)\nLocal cFile, cUrlAcceso, hMime, hcUrl, nRet, cRespuesta\n// ========================================================================\n//                                                  ENVIAR FICHERO ADJUNTO\n// ========================================================================\ncFile      := &quot;X:/PdfS/ZOHO_PRE.Pdf&quot;\ncUrlAcceso := &quot;https://www.zohoapis.eu/crm/v5/Leads/594992000001640002/Attachments&quot; //+ space(1)\n\nGLog( PADL(&quot;ENVIAR FICHERO ADJUNTO&quot;,100, &quot;&gt;&quot;) )\n\nIf ! empty( hCurl := curl_easy_init() )\n\n   curl_easy_setopt( hcUrl, HB_CURLOPT_URL, cUrlAcceso)\n   //curl_easy_setopt( hcUrl, HB_CURLOPT_RETURNTRANSFER , .T.)\n   curl_easy_setopt( hcUrl, HB_CURLOPT_ENCODING , \'\')\n   curl_easy_setopt( hcUrl, HB_CURLOPT_MAXREDIRS , 10)\n   curl_easy_setopt( hcUrl, HB_CURLOPT_TIMEOUT , 1500)\n   curl_easy_setopt( hcUrl, HB_CURLOPT_FOLLOWLOCATION , .t.)\n   curl_easy_setopt( hcUrl, HB_CURLOPT_HTTP_VERSION , HB_CURL_HTTP_VERSION_1_1)\n   curl_easy_setopt( hcUrl, HB_CURLOPT_CUSTOMREQUEST , \'POST\')\n   curl_easy_setopt( hcUrl, HB_CURLOPT_HTTPHEADER , {\'Authorization: Zoho-oauthtoken \' + cAccess_Token})\n   //curl_easy_setopt( hCurl, HB_CURLOPT_POSTFIELDS, xJson )\n   curl_easy_setopt(hCurl, HB_CURLOPT_VERBOSE, 1)\n   curl_easy_setopt(hCurl, HB_CURLOPT_UPLOAD, 1)\n   curl_easy_setopt(hCurl, HB_CURLOPT_UL_FILE_SETUP, @cFile )\n\n   nRet := curl_easy_perform( hCurl )\n   Depura(nRet, &quot;nRet (233)&quot;)\n   If nRet == 0\n     cRespuesta = curl_easy_dl_buff_get( hCurl )\n   Else\n     cRespuesta := &quot;Error &quot; + NTRIM(nRet) + curl_easy_dl_buff_get( hCurl )\n   endif\nEndIf\nDepura(cRespuesta)\nRETURN NIL\n [/code]'),(792,107,43955,6,1701322089,'Re: Subuir un fichero a un servidor','TES'),(793,297,43967,3,1701356286,'Re: Convert a print to Rtf or doc','[url]http://www.marcoboschi.it/public/sample.jpg[/url]'),(794,86,43994,3,1702052567,'Re: Strange characters going from FWH to Outlook FWH 3.10','Thanks for you reply.\n\nThis is the result which is shown:\n\ncTxt_dri :  &amp;é&quot;\'(§è!çà)-âêîûôäëïöü \n\nOemToAnsi ( cTxt_dri ) :  &amp;Ú&quot;\'(ºÞ!þÓ)-ÔÛ¯¹¶õÙ´÷³ \n\nAnsiToOem ( cTxt_dri ) :  &amp;‚&quot;\'(õŠ!‡…)-ƒˆŒ–“„‰‹” \n\nIt is strange that the problem does NOT occur in FWH 13.07.\nIt does occur in FWH 13.10.\n\nSo, what has been changed?\n\nThanks.'),(795,179,43996,33,1702316521,'Re: compilar harbour para android','Victor gracias por responder ya he sguido esos paso y tengo estos errores'),(796,868,44087,3,1704854080,'Re: error oBrw:ToExcel','&quot;FreezePanes&quot; is giving error on some versions of Excel.\n\nWe suggest you to modify xbrowse.prg\nIn the method ToExcel()\nPlease locate the line \n[code]oWin:FreezePanes := .t.[/code] \nPlease change as:\n[code]   TRY\n      oWin:FreezePanes := .t.\n   CATCH\n   END\n[/code]'),(798,991,44432,6,1713990414,'Re: Brush','Olá, obrigado pela opções. Vou testar e retorno aqui.\n\nAtt.,\n\nOliveiros Junior'),(799,4794,0,3,1716240350,'MQTT xHarbour','Hello goodnight.\n\nIs there any way to connect MQTT\nbecause I already tried:  \n    HBAMQP\n    pah0-mqtt3c.\n\nporem não consigo efetuar a conexao:\n\n   conn_opts := &quot;{\'M\', \'Q\', \'T\', \'C\'}, 8, 60, 1, 1, NULL, NULL, NULL, 30, 0, NULL,&quot;\n   conn_opts += &quot;0, NULL, 0, {NULL, 0, 0}, {0, NULL}, -1, 0, NULL, NULL, NULL&quot;\n   \nDllCall( hHandle, DLL_OSAPI, &quot;MQTTClient_connect&quot;, @hHandle, Conn_Opts )   &lt;- AQUI não funciona???\n\nhelp???\n\nAtt.\n\nlZAnardo'),(801,868,44611,6,1720253015,'Re: Preview a PDF con imagen de fondo','Is this PDF okay for you?\n\n[URL=https://imageshack.com/i/pmJFIbNBp][IMG]https://imagizer.imageshack.com/v2/xq70/922/JFIbNB.png[/IMG][/URL]'),(802,86,44707,3,1721718664,'Re: Macros in Outlook','Dear Antonio,\n\nThanks for your reaction.\n\nI tried your suggestion but I got an error : WINOLE/1009 No exported method: RUNMACRO\n\nI also tried: oOutlook:Application:Run( &quot;MacroOutl&quot; )\n\nBut unfortunately I got the same error : WINOLE/1009 No exported method: RUN\n\nAny further suggestions?'),(803,2140,44679,6,1722456169,'Re: Propuesta para que hagan un curso virtual FW','Estimados Colegas, adjunto mi respaldo del pago de este maravilloso curso, el cual todos estábamos esperando y nos ayudará a reforzar nuestros conocimientos, aprender cosas nuevas y actualizar mejor nuestros conocimientos:\n\n[img] https://postimg.cc/ThJ7GZZ0[/img]'),(804,3949,44679,6,1722977034,'Re: Propuesta para que hagan un curso virtual FW','Buen día a todos. \n\nLes saluda Jorge Antonio Crisóstomo y confirmo mi asistencia, \n\nEl abono estare realizando el sábado 10 de agosto.'),(805,75,44679,6,1723357585,'Re: Propuesta para que hagan un curso virtual FW','Buenos días Antonio,\nTengo unas cuestiones:\n1.- Es posible pagar por transferencia?.\n2.- Dado que acualmente usamos la versión de 64bits, sería posible recibir la verión de 64bits en vez de la de 32.\n3.- Por cuestiones de trabajo me va a ser imposible estar presencial todos los días. Ruego confirmen que los cursos quedarán grabados.\n\nSaludos.'),(808,4224,44874,3,1726493759,'Re: what does these BCC77 32 BIt Error mean ?','hi,\n[quote=&quot;karinha&quot;][code=fw]\n// Always at the end of a FUNCTION\n[/code][/quote]\nthat seem the Solution when put these DLL Function at the End'),(810,1140,0,3,1727786051,'Create button in FastReport preview','Good morning everybody.\nI need to know if there is any way to create a button in the FastReport preview where I can execute my own routine.\n\nOr if I can do it exactly like in the case of email, I can replace the call from their native email routine\n\nand exchange it for mine. \n\nIf I could do the same when exporting to Excel, that would also solve my problem here. Could anyone tell me if this is a possibility?\n\nI no longer know how to contact anyone at Fast.'),(813,878,45039,6,1729696490,'Re: FWH 24.09 y bOnPostEdit','Hola Rober,\n\nsi mal no recuerdo Rao desaconseja usar bonpostedit en su lugar bEditValid o cEditValue\n\nSlds.'),(814,4149,0,6,1730819593,'CREAR PDF CON FILE','Hola amigos del forum\n\n\nEstoy grabando unos pdf y mostrandolos, pero me crea unos bien y la mayoria vacios, me los muestra vacios. Este es el codigo\n\n[code=fw]PRINT oPrn FILE  &quot;.\\pdfs\\fact_pdf.pdf&quot; NAME &quot;Impresión en Vertical..&quot; PREVIEW\noPrn:SetPage(5)  // LEGAL\noPrn:SetPortrait() //Vertical\noPrn:StartPage()\n\n  ENDPAGE\nENDPRINT\n\n [/code]\n\nEsta aplicacion esta hecha con xharbour//bcc7 \n\nLo que busco es grabar los pdf, de las facturas, que cuando este facturando grabe la factura. Que estoy haciendo mal.\n\n\nPero este codigo sin grabarlos me los muestra bien a todos.\n\n[code=fw]\nPRINT oPrn  NAME &quot;Impresión en Vertical..&quot; PREVIEW\noPrn:SetPage(5)  // LEGAL\noPrn:SetPortrait() //Vertical\noPrn:StartPage()\n\n\n\n\n\n\n\n  ENDPAGE\nENDPRINT\n [/code]'),(807,4224,44874,3,1726489280,'Re: what does these BCC77 32 BIt Error mean ?','hi Enrico,\n\ni have posted all CODE which is need. \ni don´t have a Runtime Error, these 6 DLL Function simply don´t compile using BCC 7.7 and Error Message don´t explain what is going on.\n\nhere DEMO32.BAT\n[code=fw]    set bcc=bcc770\n    set path=c:\\%bcc%\\bin\n    set HB_USER_CFLAGS=-Ic:\\%bcc%\\INCLUDE\\windows\\crtl -Ic:\\%bcc%\\INCLUDE\\windows\\sdk -Lc:\\%bcc%\\LIB\n    set HB_USER_LDFLAGS=-Lc:\\%bcc%\\LIB;c:\\%bcc%\\LIB\\psdk\n    c:\\harbour\\bin\\hbmk2.exe demo32.hbp -comp=bcc[/code]\n\nhere DEMO32.HBP\n[code=fw]    -gui\n\nDEMO.PRG\n\n    -info\n \n    -Ic:\\fwh\\include\n    -Lc:\\fwh\\lib\n\n    -lfiveh\n    -lfivehc\n    -luxtheme\n\n    hbct.hbc\n    xhb.hbc\n    hbziparc.hbc[/code]\n\nhere DEMO.PRG\n[code=fw]#include &quot;FiveWin.ch&quot;\n#include &quot;DLL.CH&quot;\n\nSTATIC hDLL\n\n\nDLL FUNCTION Everything_GetBuildNumber() AS LONG PASCAL FROM &quot;Everything_GetBuildNumber&quot; LIB hDll\nDLL FUNCTION Everything_SetSearchA( cSearch AS LPSTR ) AS VOID PASCAL FROM &quot;Everything_SetSearchA&quot; LIB hDll\nDLL FUNCTION Everything_QueryA( lWait AS BOOL ) AS BOOL PASCAL FROM &quot;Everything_QueryA&quot; LIB hDll\nDLL FUNCTION Everything_GetNumResults() AS LONG PASCAL FROM &quot;Everything_GetNumResults&quot; LIB hDll\n// need to check Parameter Type\nDLL FUNCTION Everything_SetRequestFlags( nFlag AS DWORD ) AS VOID PASCAL FROM &quot;Everything_SetRequestFlags&quot; LIB hDll\nDLL FUNCTION Everything_GetResultFullPathNameA( nNum AS _INT, cBuffer AS LPSTR, nSize AS _INT ) AS VOID PASCAL FROM &quot;Everything_GetResultFullPathNameA&quot; LIB hDll\n\nProcedure MAIN\nMsgInfo(&quot;Demo&quot;)\nRETURN[/code]'),(816,35,45116,3,1731421931,'Re: cloud or not cloud','Put your data out there and they will come ....\n\nAmazon confirms employee data breach after vendor hack\nAmazon confirmed a data breach involving employee information after data allegedly stolen during the May 2023 MOVEit attacks was leaked on a hacking forum.\n\n[url]\nhttps://www.bleepingcomputer.com/news/security/amazon-confirms-employee-data-breach-after-vendor-hack/\n[/url]\n\nand the Band plays on .....');
/*!40000 ALTER TABLE `phpbb_drafts` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_extension_groups`
--

DROP TABLE IF EXISTS `phpbb_extension_groups`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_extension_groups` (
  `group_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `group_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `cat_id` tinyint(2) NOT NULL DEFAULT '0',
  `allow_group` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `download_mode` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `upload_icon` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `max_filesize` int(20) unsigned NOT NULL DEFAULT '0',
  `allowed_forums` text COLLATE utf8_bin NOT NULL,
  `allow_in_pm` tinyint(1) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`group_id`)
) ENGINE=MyISAM AUTO_INCREMENT=10 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_extension_groups`
--

LOCK TABLES `phpbb_extension_groups` WRITE;
/*!40000 ALTER TABLE `phpbb_extension_groups` DISABLE KEYS */;
INSERT INTO `phpbb_extension_groups` VALUES (1,'Images',1,1,1,'',0,'',0),(2,'Archives',0,1,1,'',0,'',0),(3,'Plain Text',0,0,1,'',0,'',0),(4,'Documents',0,0,1,'',0,'',0),(5,'Real Media',3,0,1,'',0,'',0),(6,'Windows Media',2,0,1,'',0,'',0),(7,'Flash Files',5,0,1,'',0,'',0),(8,'Quicktime Media',6,0,1,'',0,'',0),(9,'Downloadable Files',0,0,1,'',0,'',0);
/*!40000 ALTER TABLE `phpbb_extension_groups` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_extensions`
--

DROP TABLE IF EXISTS `phpbb_extensions`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_extensions` (
  `extension_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `group_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `extension` varchar(100) COLLATE utf8_bin NOT NULL DEFAULT '',
  PRIMARY KEY (`extension_id`)
) ENGINE=MyISAM AUTO_INCREMENT=67 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_extensions`
--

LOCK TABLES `phpbb_extensions` WRITE;
/*!40000 ALTER TABLE `phpbb_extensions` DISABLE KEYS */;
INSERT INTO `phpbb_extensions` VALUES (1,1,'gif'),(2,1,'png'),(3,1,'jpeg'),(4,1,'jpg'),(5,1,'tif'),(6,1,'tiff'),(7,1,'tga'),(8,2,'gtar'),(9,2,'gz'),(10,2,'tar'),(11,2,'zip'),(12,2,'rar'),(13,2,'ace'),(14,2,'torrent'),(15,2,'tgz'),(16,2,'bz2'),(17,2,'7z'),(18,3,'txt'),(19,3,'c'),(20,3,'h'),(21,3,'cpp'),(22,3,'hpp'),(23,3,'diz'),(24,3,'csv'),(25,3,'ini'),(26,3,'log'),(27,3,'js'),(28,3,'xml'),(29,4,'xls'),(30,4,'xlsx'),(31,4,'xlsm'),(32,4,'xlsb'),(33,4,'doc'),(34,4,'docx'),(35,4,'docm'),(36,4,'dot'),(37,4,'dotx'),(38,4,'dotm'),(39,4,'pdf'),(40,4,'ai'),(41,4,'ps'),(42,4,'ppt'),(43,4,'pptx'),(44,4,'pptm'),(45,4,'odg'),(46,4,'odp'),(47,4,'ods'),(48,4,'odt'),(49,4,'rtf'),(50,5,'rm'),(51,5,'ram'),(52,6,'wma'),(53,6,'wmv'),(54,7,'swf'),(55,8,'mov'),(56,8,'m4v'),(57,8,'m4a'),(58,8,'mp4'),(59,8,'3gp'),(60,8,'3g2'),(61,8,'qt'),(62,9,'mpeg'),(63,9,'mpg'),(64,9,'mp3'),(65,9,'ogg'),(66,9,'ogm');
/*!40000 ALTER TABLE `phpbb_extensions` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_forums`
--

DROP TABLE IF EXISTS `phpbb_forums`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_forums` (
  `forum_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `parent_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `left_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `right_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_parents` mediumtext COLLATE utf8_bin NOT NULL,
  `forum_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_desc` text COLLATE utf8_bin NOT NULL,
  `forum_desc_bitfield` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_desc_options` int(11) unsigned NOT NULL DEFAULT '7',
  `forum_desc_uid` varchar(8) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_link` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_password` varchar(40) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_style` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_image` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_rules` text COLLATE utf8_bin NOT NULL,
  `forum_rules_link` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_rules_bitfield` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_rules_options` int(11) unsigned NOT NULL DEFAULT '7',
  `forum_rules_uid` varchar(8) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_topics_per_page` tinyint(4) NOT NULL DEFAULT '0',
  `forum_type` tinyint(4) NOT NULL DEFAULT '0',
  `forum_status` tinyint(4) NOT NULL DEFAULT '0',
  `forum_posts` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_topics` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_topics_real` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_last_post_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_last_poster_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_last_post_subject` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_last_post_time` int(11) unsigned NOT NULL DEFAULT '0',
  `forum_last_poster_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_last_poster_colour` varchar(6) COLLATE utf8_bin NOT NULL DEFAULT '',
  `forum_flags` tinyint(4) NOT NULL DEFAULT '32',
  `display_subforum_list` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `display_on_index` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `enable_indexing` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `enable_icons` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `enable_prune` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `prune_next` int(11) unsigned NOT NULL DEFAULT '0',
  `prune_days` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `prune_viewed` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `prune_freq` mediumint(8) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`forum_id`),
  KEY `left_right_id` (`left_id`,`right_id`),
  KEY `forum_lastpost_id` (`forum_last_post_id`)
) ENGINE=MyISAM AUTO_INCREMENT=47 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_forums`
--

LOCK TABLES `phpbb_forums` WRITE;
/*!40000 ALTER TABLE `phpbb_forums` DISABLE KEYS */;
INSERT INTO `phpbb_forums` VALUES (24,0,1,18,'','English Forums','','',7,'','','',0,'','','','',7,'',0,0,0,0,0,0,0,0,'',0,'','',32,1,1,1,1,0,0,0,0,0),(25,0,19,36,'','Foros en Español','','',7,'','','',0,'','','','',7,'',0,0,0,0,0,0,0,0,'',0,'','',32,1,1,1,1,0,0,0,0,0),(26,0,37,40,'','Forum italiani','','',7,'','','',0,'','','','',7,'',0,0,0,0,0,0,0,0,'',0,'','',32,1,1,1,1,0,0,0,0,0),(27,0,41,44,'','Forum Portuguese','','',7,'','','',0,'','','','',7,'',0,0,0,0,0,0,0,0,'',0,'','',32,1,1,1,1,0,0,0,0,0),(28,0,45,48,'','Forum German','','',7,'','','',0,'','','','',7,'',0,0,0,0,0,0,0,0,'',0,'','',32,1,1,1,1,0,0,0,0,0),(29,0,49,60,'','General','','',7,'','','',0,'','','','',7,'',0,0,0,0,0,0,0,0,'',0,'','',32,1,1,1,1,0,0,0,0,0),(1,24,2,3,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','FiveWin for CA-Clipper','','',7,'','','',0,'','','','',7,'',0,1,0,2118,414,414,233467,2,'Re: volviendo a 16bits con Fivewin, Clipper y Blinker',1592980979,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(3,24,4,5,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','FiveWin for Harbour/xHarbour','','',7,'','','',0,'','','','',7,'',0,1,0,126263,17825,17825,276757,2,'Re: OpenAI vision API from FWH',1735944514,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(4,24,14,15,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','FiveWin for Pocket PC','','',7,'','','',0,'','','','',7,'',0,1,0,3779,733,733,266965,2598,'tiny11 core for ARM64',1705573430,'Silvio.Falconi','',34,1,1,1,0,0,0,0,0,0),(31,25,26,27,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','EasyReport, EasyDialog y EasyPreview','','',7,'','','',0,'','','','',7,'',0,1,0,677,65,65,220888,2721,'Error al instalar EasyReport',1555084743,'jvtecheto','',32,1,0,1,0,0,0,7,7,1),(5,24,10,11,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','FiveMac / FivePhone (iPhone, iPad)','','',7,'','','',0,'','','','',7,'',0,1,0,814,142,142,276394,2,'Building Harbour on Macs arm',1733830890,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(11,24,12,13,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','FiveLinux / FiveDroid (Android)','','',7,'','','',0,'','','','',7,'',0,1,0,768,161,161,248350,2,'Re: FW on a mobile phone',1645721571,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(2,25,20,21,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','FiveWin para CA-Clipper','','',7,'','','',0,'','','','',7,'',0,1,0,3359,886,886,271772,1104,'Re: Excel desde consola',1721411939,'jrestojeda','',34,1,1,1,0,0,0,0,0,0),(6,25,22,23,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','FiveWin para Harbour/xHarbour','','',7,'','','',0,'','','','',7,'',0,1,0,114441,18934,18934,276759,2,'Re: Por qué el oDLG cambia de color?',1735972727,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(7,25,32,33,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','FiveWin para Pocket PC','','',7,'','','',0,'','','','',7,'',0,1,0,4331,918,918,267880,2,'Re: FW Pocket PC en Symbol motorola mc3190',1707980393,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(8,25,28,29,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','FiveMac / FivePhone (iPhone, iPad)','','',7,'','','',0,'','','','',7,'',0,1,0,1442,138,138,269486,2,'Re: Ventana semitrasparente',1713470515,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(12,25,30,31,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','FiveLinux / FiveDroid (Android)','','',7,'','','',0,'','','','',7,'',0,1,0,545,128,128,242617,4480,'Re: FiveLinux en Ubuntu',1625565148,'David Huffman','',34,1,1,1,0,0,0,0,0,0),(16,29,50,51,'a:1:{i:29;a:2:{i:0;s:7:\"General\";i:1;i:0;}}','WhatsNew / Novedades','','',7,'','','',0,'','','','',7,'',0,1,0,1222,291,291,274509,6,'Re: xHarbour.org updated!',1728467899,'Enrico Maria Giordano','00AA00',34,1,1,1,0,0,0,0,0,0),(18,29,52,53,'a:1:{i:29;a:2:{i:0;s:7:\"General\";i:1;i:0;}}','Bugs report &amp; fixes / Informe de errores y arreglos','','',7,'','','',0,'','','','',7,'',0,1,0,1035,182,182,272857,6,'Re: Bug in TActiveX 64 bit',1725279746,'Enrico Maria Giordano','00AA00',34,1,1,1,0,0,0,0,0,0),(22,29,54,55,'a:1:{i:29;a:2:{i:0;s:7:\"General\";i:1;i:0;}}','To do - WishList / Por hacer - Peticiones','','',7,'','','',0,'','','','',7,'',0,1,0,504,129,129,273770,2598,'Navigator',1726997763,'Silvio.Falconi','',34,1,1,1,0,0,0,0,0,0),(17,29,56,57,'a:1:{i:29;a:2:{i:0;s:7:\"General\";i:1;i:0;}}','Utilities / Utilidades','','',7,'','','',0,'','','','',7,'',0,1,0,1547,388,388,276546,2,'Copilot for vscode finally free !!!',1734558377,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(19,29,58,59,'a:1:{i:29;a:2:{i:0;s:7:\"General\";i:1;i:0;}}','Off Topic / Otros temas','','',7,'','','',0,'','','','',7,'',0,1,0,2464,805,805,276688,4594,'Re: VERIFACTU,  criterios, dudas 10/11/2024',1735558955,'paquitohm','',34,1,1,1,0,0,0,0,0,0),(20,26,38,39,'a:1:{i:26;a:2:{i:0;s:14:\"Forum italiani\";i:1;i:0;}}','All products support','','',7,'','','',0,'','','','',7,'',0,1,0,2649,530,530,267930,2598,'Re: leggere test,hrb',1708114346,'Silvio.Falconi','',34,1,1,1,0,0,0,0,0,0),(21,27,42,43,'a:1:{i:27;a:2:{i:0;s:16:\"Forum Portuguese\";i:1;i:0;}}','All products support','','',7,'','','',0,'','','','',7,'',0,1,0,298,75,75,256883,4684,'DBF REDE/WEB WINDOWS 7/10/11',1673190604,'wanderson8','',34,1,1,1,0,0,0,0,0,0),(23,28,46,47,'a:1:{i:28;a:2:{i:0;s:12:\"Forum German\";i:1;i:0;}}','All products support','','',7,'','','',0,'','','','',7,'',0,1,0,149,54,54,225540,2,'Re: neuer User',1567922778,'Antonio Linares','AA0000',34,1,1,1,0,0,0,0,0,0),(30,24,8,9,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','EasyReport, EasyDialog and EasyPreview','','',7,'','','',0,'','','','',7,'',0,1,0,90,21,21,267714,2,'Re: source code of easyreport',1707729375,'Antonio Linares','AA0000',32,1,0,1,0,0,0,7,7,1),(33,25,24,25,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','FiveTouch','','',7,'','','',0,'','','','',7,'',0,1,0,354,72,72,266137,179,'Re: compilar harbour para android',1702318359,'wilsongamboa','',32,1,0,1,0,0,0,7,7,1),(32,24,6,7,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','FiveTouch','','',7,'','','',0,'','','','',7,'',0,1,0,267,44,44,261970,4750,'Re: Building Harbour gtxwc (libgtxwc.a)',1689847785,'sajawal','',32,1,0,1,0,0,0,7,7,1),(41,38,64,65,'a:1:{i:38;a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;i:1;}}','TensorFlow.dll for Harbour and FWH','','',7,'','','',0,'','','','',7,'',0,1,0,35,2,2,216784,292,'Re: TensorFlow DLL for Windows (64 bits)',1541902316,'jnavas','',32,1,0,1,0,0,0,7,7,1),(38,0,61,72,'','Artificial Intelligence','','',7,'','','',0,'','','','',7,'',0,1,0,17,6,6,269695,449,'Re: IA y Harbour Conceptos básicos',1714391632,'Carles','',32,1,0,1,0,0,0,7,7,1),(40,38,62,63,'a:1:{i:38;a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;i:1;}}','Artificial Intelligence examples','','',7,'','','',0,'Antonio Linares','','','',7,'',0,1,0,30,13,13,273278,2,'Re: AI: testing the &quot;HyperPrompt&quot; from HuggingChat',1726229001,'Antonio Linares','AA0000',32,1,0,1,0,0,0,7,7,1),(42,38,66,67,'a:1:{i:38;a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;i:1;}}','latest AI news','','',7,'','','',0,'','','','',7,'',0,1,0,137,79,79,276681,2,'Google Vision API test',1735457050,'Antonio Linares','AA0000',32,1,0,1,0,0,0,7,7,1),(43,38,68,69,'a:1:{i:38;a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;i:1;}}','Building TensorFlow.dll','','',7,'','','',0,'','','','',7,'',0,1,0,4,1,1,204822,2,'Re: Building TensorFlow.dll 64 bits',1503295618,'Antonio Linares','AA0000',32,1,0,1,0,0,0,7,7,1),(44,38,70,71,'a:1:{i:38;a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;i:1;}}','AI Introduction (Harbour code and samples)','','',7,'','','',0,'','','','',7,'',0,1,0,47,7,7,271446,2,'Re: Understanding Transformers',1720334808,'Antonio Linares','AA0000',32,1,0,1,0,0,0,7,7,1),(45,24,16,17,'a:1:{i:24;a:2:{i:0;s:14:\"English Forums\";i:1;i:0;}}','mod_harbour','mod_harbour is an Apache module that allows to run PRGs directly on the web !!!','',7,'','','',0,'','','','',7,'',0,1,0,1578,361,361,274980,51,'Route from Fiber Optic to the Web Server',1729449579,'Otto','',32,1,0,1,0,0,0,7,7,1),(46,25,34,35,'a:1:{i:25;a:2:{i:0;s:17:\"Foros en Español\";i:1;i:0;}}','mod_harbour','mod_harbour es un módulo para Apache que permite correr tus PRGs directamente en la web!!!','',7,'','','',0,'','','','',7,'',0,1,0,605,141,141,276655,2342,'Re: Felices Fiestas a todos',1735091620,'cnavarro','00AA00',32,1,0,1,0,0,0,7,7,1);
/*!40000 ALTER TABLE `phpbb_forums` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_forums_access`
--

DROP TABLE IF EXISTS `phpbb_forums_access`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_forums_access` (
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `session_id` char(32) COLLATE utf8_bin NOT NULL DEFAULT '',
  PRIMARY KEY (`forum_id`,`user_id`,`session_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_forums_access`
--

LOCK TABLES `phpbb_forums_access` WRITE;
/*!40000 ALTER TABLE `phpbb_forums_access` DISABLE KEYS */;
/*!40000 ALTER TABLE `phpbb_forums_access` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_forums_track`
--

DROP TABLE IF EXISTS `phpbb_forums_track`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_forums_track` (
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `mark_time` int(11) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`user_id`,`forum_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_forums_track`
--

LOCK TABLES `phpbb_forums_track` WRITE;
/*!40000 ALTER TABLE `phpbb_forums_track` DISABLE KEYS */;
INSERT INTO `phpbb_forums_track` VALUES (105,16,1233003307),(1427,3,1308384350),(1427,0,1636523752),(1324,0,1238436209),(1340,0,1233108358),(77,19,1236460263),(77,0,1270881043),(77,8,1257874434),(456,16,1451460743),(456,0,1691404392),(456,7,1612945170),(137,3,1230669867),(137,0,1431529764),(58,3,1268332077),(58,0,1275598450),(58,16,1270585986),(58,19,1268332697),(58,22,1262265412),(57,16,1258962941),(1313,0,1407449937),(1313,5,1233085431),(1639,0,1233033544),(1340,6,1233108358),(34,3,1265990502),(1406,3,1231859010),(1406,0,1407399486),(533,8,1232730615),(533,0,1540836256),(582,6,1332729357),(1427,20,1238477362),(935,5,1243966245),(92,16,1233737783),(92,0,1233737783),(37,16,1230644273),(37,0,1426642559),(1703,0,1238510489),(106,0,1264080031),(1724,6,1241740460),(105,0,1564420121),(46,16,1234175843),(46,0,1427606246),(507,16,1230650035),(507,0,1230650035),(444,17,1231168320),(130,3,1392978786),(130,0,1392979424),(130,8,1257764087),(130,16,1389625912),(130,22,1392632459),(130,19,1391432150),(46,8,1257859828),(533,16,1230657605),(1794,1,1407390393),(3115,30,1407400810),(533,22,1230658045),(53,3,1535311031),(53,0,1735947305),(53,6,1735947305),(106,7,1254129623),(1736,1,1244540351),(444,23,1271067281),(100,16,1233159707),(100,0,1257737757),(940,16,1230669525),(940,0,1230669525),(137,20,1231678143),(935,16,1317934804),(456,23,1270535280),(444,20,1305994841),(444,0,1305994841),(444,8,1299743089),(135,22,1230672913),(135,0,1231446224),(2,19,1288709427),(2,3,1248694411),(3374,2,1440108414),(53,19,1236389473),(53,16,1262883367),(53,20,1232545547),(58,11,1231589928),(1521,0,1407505328),(51,23,1271015460),(936,16,1230685035),(936,0,1515675725),(989,16,1230686968),(989,0,1230686968),(69,16,1230687809),(69,0,1407432381),(149,16,1230702941),(149,0,1244392222),(149,22,1230703034),(57,6,1316947097),(57,0,1316947131),(57,8,1311583938),(57,3,1316946528),(1193,8,1238917065),(1193,0,1716626946),(1193,20,1233933695),(1193,16,1297752474),(1193,19,1259637429),(382,22,1230722639),(382,0,1407413399),(382,19,1230722711),(1427,16,1417506516),(382,16,1233154404),(51,19,1230729478),(51,0,1271015460),(1715,17,1243871677),(2099,0,1297255512),(130,6,1392979424),(135,16,1230738805),(444,22,1230740190),(444,16,1230740264),(141,18,1231347733),(141,0,1231347733),(1255,17,1230744096),(1255,0,1230744096),(500,18,1231180535),(500,0,1257591479),(49,21,1236732394),(58,18,1265016300),(396,0,1407427305),(46,19,1231174566),(46,18,1235209397),(51,4,1230760335),(106,18,1246291831),(65,19,1414105894),(53,18,1235354594),(1193,18,1259637289),(53,4,1230771701),(1427,4,1284786144),(1637,16,1233171386),(1521,11,1233344708),(582,19,1313713776),(135,20,1230804013),(1477,4,1263365753),(1477,0,1315200422),(1427,19,1288586508),(1427,18,1284191511),(366,0,1248415409),(1724,0,1241740460),(1719,0,1241100896),(1719,21,1241100896),(65,3,1735053408),(65,0,1735053408),(1624,18,1231413100),(1624,0,1512507926),(26,18,1230839812),(26,0,1230839812),(149,23,1244392222),(1371,8,1259999821),(1371,0,1261994363),(8,20,1289502715),(8,0,1289502715),(65,20,1331137658),(348,16,1231722221),(100,4,1230864670),(100,18,1231001520),(1427,6,1249103871),(57,4,1316946732),(92,18,1230935037),(851,0,1230908829),(851,4,1230908829),(58,4,1241186759),(456,8,1257841818),(456,5,1266407461),(456,4,1281363169),(460,16,1235555288),(460,0,1235555288),(1324,5,1238436209),(456,19,1282291505),(130,17,1392300257),(24,18,1230913604),(24,0,1230913604),(1794,31,1407400014),(53,2,1701720812),(4369,0,1596371198),(4118,6,1546462692),(1624,5,1244053362),(1703,1,1238510489),(51,22,1231613244),(868,5,1233515758),(4607,46,1646674946),(2342,20,1712534637),(4224,6,1735983246),(868,0,1597075062),(1427,30,1619091431),(77,18,1231347436),(1427,2,1239176403),(1406,20,1230985886),(444,18,1230992753),(1507,4,1705585301),(1507,0,1735899522),(1507,3,1535117366),(1507,2,1721629455),(1507,6,1735899522),(1507,20,1708158502),(1507,16,1729152673),(1507,18,1725355357),(1507,19,1735559605),(130,18,1392806471),(456,6,1284126702),(1193,17,1259637324),(1711,3,1239535335),(1507,17,1734595034),(1388,16,1231122757),(1388,0,1231122757),(456,18,1279182475),(456,22,1326380098),(456,17,1298371454),(533,19,1231143785),(1624,16,1233087502),(1427,17,1305200143),(422,21,1238019502),(1312,16,1231162018),(1312,0,1249098690),(1193,4,1231336384),(500,17,1231181293),(500,2,1231181681),(890,16,1231198033),(890,0,1231198033),(1193,3,1231336351),(444,11,1280755032),(935,18,1318516595),(935,0,1318516595),(935,22,1318260509),(935,17,1318431272),(935,19,1318260245),(58,17,1268332313),(105,17,1231241960),(46,17,1231534302),(53,17,1289436543),(1257,23,1232287543),(1257,0,1548595435),(53,23,1231470007),(456,3,1263888742),(846,18,1231305758),(846,0,1231305758),(1427,23,1271051034),(2015,0,1285252667),(1427,11,1275062830),(49,5,1242660566),(49,0,1265653156),(58,5,1268332773),(1427,5,1266662368),(77,5,1266340187),(1507,5,1733901117),(935,8,1278785064),(1507,23,1567947537),(444,5,1299743061),(456,11,1257408821),(1193,5,1251855603),(137,5,1237487452),(2015,3,1285252667),(362,16,1233155906),(362,0,1242758131),(362,23,1242758131),(77,17,1270881043),(1710,2,1239536268),(130,5,1266397348),(130,23,1388505396),(130,20,1359969530),(8,5,1238023788),(8,16,1233096735),(8,17,1248544372),(46,5,1270659855),(34,0,1407514654),(65,5,1610470467),(1624,22,1232918911),(1427,22,1283491176),(1193,22,1298995467),(1193,23,1270305584),(57,5,1311918091),(137,11,1231407116),(92,11,1231411087),(1624,11,1231412681),(92,5,1231411175),(490,7,1708946537),(105,8,1231414549),(190,8,1231415299),(190,0,1231662436),(58,23,1238739422),(1458,0,1231845607),(456,20,1234969342),(1708,7,1239301509),(1507,11,1645801123),(1507,22,1727096237),(456,1,1252048889),(105,5,1231428767),(1723,18,1242123561),(1458,16,1231845607),(106,22,1261492508),(2,7,1254726550),(2,0,1726229002),(135,17,1231446224),(80,5,1252115649),(80,0,1425622636),(80,11,1246933649),(972,5,1232190425),(106,16,1254227483),(239,5,1234576439),(239,0,1234576439),(456,2,1248770795),(92,17,1231499275),(1406,30,1407399486),(53,22,1338136318),(1639,16,1233033544),(65,22,1414105835),(29,16,1233067438),(29,0,1233067438),(972,0,1399470465),(190,5,1231662436),(533,11,1231672056),(533,5,1231672383),(1312,5,1249098690),(1723,0,1244722811),(348,0,1231722221),(1521,21,1231846132),(362,18,1231860057),(460,5,1231762524),(1406,5,1231776425),(137,16,1233782975),(1406,17,1231774046),(1371,5,1231785144),(1507,21,1673202244),(1427,21,1247724385),(1477,16,1231913258),(92,7,1232231801),(106,2,1247573876),(210,5,1237468102),(1193,21,1253756539),(456,21,1241774210),(137,8,1233263858),(1477,7,1242136777),(366,3,1248415409),(43,16,1231979368),(43,0,1231979368),(1736,0,1244540351),(57,7,1316945915),(1507,7,1707980990),(4283,46,1581705960),(1507,8,1713541486),(4047,0,1536733003),(1427,7,1238477381),(376,8,1257796795),(376,0,1407448156),(210,16,1232980787),(210,0,1407403729),(995,23,1232114864),(995,0,1234651974),(47,16,1234293364),(47,0,1432211155),(935,2,1309740105),(1708,0,1239301509),(239,16,1233056446),(972,3,1398149287),(1427,1,1313563913),(1750,0,1245334623),(53,8,1244593710),(170,16,1232283713),(170,0,1232283713),(1549,16,1232822952),(294,0,1582571682),(53,5,1232304671),(400,7,1232321004),(400,0,1232321004),(294,16,1232447223),(4594,6,1642157607),(58,21,1233309163),(106,4,1254918883),(1193,1,1233148502),(1636,4,1232725024),(1636,0,1232725024),(1637,0,1233171386),(935,11,1243966290),(1637,7,1232427990),(1521,16,1233231552),(582,16,1416490427),(582,0,1416490427),(53,21,1232545570),(448,16,1232707847),(448,0,1426148702),(384,16,1232710915),(384,0,1288262887),(1246,16,1233856411),(1246,0,1233856411),(222,16,1233099345),(222,0,1233099345),(1549,0,1232822952),(1427,8,1271244702),(51,8,1232837979),(58,1,1275598450),(53,1,1593008990),(65,1,1593472051),(1507,1,1592993939),(1740,1,1244191200),(106,20,1263820160),(4594,0,1706267981),(582,17,1332728759),(57,18,1246423061),(57,21,1233733360),(57,20,1233733348),(57,22,1246423076),(137,18,1233734527),(267,0,1248705911),(65,17,1414105818),(456,30,1495461889),(2342,46,1735091620),(267,21,1248705911),(582,22,1313668637),(65,16,1472637010),(1715,0,1257789814),(1750,6,1245334623),(106,17,1261492471),(65,18,1414105853),(65,6,1610470837),(582,18,1316433288),(995,5,1234651974),(1713,0,1239748227),(106,6,1247573847),(1673,6,1234213681),(210,23,1234197130),(1673,0,1234213681),(1324,3,1236976131),(210,11,1234454632),(149,11,1239818333),(1674,2,1234453785),(1674,0,1234453785),(105,21,1234352419),(131,11,1234861363),(1713,6,1239748227),(116,21,1234879766),(116,0,1234892279),(131,0,1407423260),(644,8,1240250513),(644,0,1584189499),(116,12,1234892279),(1677,3,1235137857),(1677,0,1235137857),(1710,0,1239536268),(1711,0,1239535335),(65,8,1331137718),(1312,11,1248881480),(422,0,1238019502),(1690,5,1237467069),(1690,0,1237467069),(1714,0,1239819529),(106,19,1258620395),(1714,16,1239819529),(1740,0,1244191200),(169,0,1245348441),(106,5,1264079632),(1742,16,1244966936),(935,6,1318516550),(1741,7,1244477125),(1741,0,1244477125),(169,3,1245348441),(1723,3,1244722811),(1742,0,1244966936),(1193,30,1713695043),(106,21,1264080031),(1761,6,1247164518),(1761,0,1247164518),(106,11,1258474824),(56,5,1251866479),(56,0,1502783210),(56,19,1248589900),(2,16,1321861651),(4684,0,1673190607),(2342,5,1734083296),(6,21,1673254713),(77,23,1249475797),(2,11,1289980131),(56,11,1249711579),(2,17,1287580952),(2,2,1269544323),(2,5,1257660192),(1688,8,1258231848),(1688,0,1258231848),(1193,11,1251734727),(130,4,1251876635),(148,3,1252175368),(2,1,1267811097),(148,0,1252175368),(1221,21,1252342161),(1221,0,1252342161),(430,6,1252348338),(430,0,1252348338),(1800,16,1253899422),(1800,0,1253899422),(1808,3,1253915180),(1808,0,1253915180),(1805,16,1255011864),(1805,0,1255011864),(106,12,1255016216),(1624,12,1255039629),(490,0,1733913441),(2,12,1293476066),(1507,12,1625578042),(2206,0,1316194126),(805,3,1314602371),(644,12,1254759708),(1811,20,1255073555),(1811,0,1258226676),(1816,3,1254858154),(1816,0,1257412029),(1816,21,1257412029),(37,12,1255662318),(935,12,1266704921),(444,12,1293697732),(1824,16,1256587020),(1824,0,1256587020),(1827,6,1257328965),(1827,0,1262111053),(456,12,1279182990),(1830,1,1257627140),(1830,0,1257627140),(100,12,1257737757),(2,8,1279699132),(56,8,1257579484),(500,12,1257591479),(237,40,1706190604),(444,21,1272268552),(1715,8,1257789814),(106,8,1257927006),(39,40,1697472250),(1811,1,1258226676),(7,3,1331757132),(7,0,1399081424),(7,6,1399081424),(7,7,1397634532),(1834,7,1267015320),(1834,0,1267015320),(2,18,1259836392),(7,4,1322771595),(7,16,1268760706),(7,17,1336509729),(1832,0,1449722991),(1832,16,1259067915),(1847,4,1260884603),(1847,0,1260884603),(7,2,1344379626),(130,11,1389356031),(75,12,1264153417),(75,0,1264153417),(1850,6,1260758034),(1850,0,1260758034),(2,22,1265190065),(2342,32,1690003939),(2,23,1261762938),(1856,2,1262014553),(1371,6,1261994363),(1856,0,1262014553),(1827,8,1262111054),(49,23,1262798161),(1860,4,1263251912),(1860,0,1263251912),(1870,16,1265307117),(152,6,1263663436),(152,0,1263663436),(1874,0,1284370787),(1870,0,1272289739),(1874,6,1264848097),(7,12,1382303793),(1866,16,1264587318),(1866,0,1264587318),(1845,5,1264811208),(1845,0,1264811208),(4071,16,1542193750),(1193,41,1637598795),(2004,16,1285620092),(2037,0,1288380960),(1842,1,1267729232),(1842,0,1267729232),(2002,0,1283972949),(49,3,1265653156),(1863,16,1265964522),(1863,0,1265964522),(7,22,1266013414),(7,19,1266013535),(924,3,1268235880),(924,0,1268235880),(7,18,1268363609),(1892,7,1269446780),(1892,0,1272558007),(1894,2,1269521857),(1894,0,1269521857),(1900,0,1270069413),(1900,4,1270069413),(1238,6,1283860999),(1957,6,1278545310),(36,0,1270475046),(36,6,1270475046),(56,23,1320131639),(1892,16,1272558007),(1908,4,1271965053),(2342,18,1725543750),(1907,3,1271930311),(1907,0,1271930311),(1908,0,1271965053),(1910,7,1272076619),(1910,0,1272076619),(1870,21,1272289739),(1777,8,1272812655),(1777,0,1272812655),(1916,4,1273246717),(1916,0,1273246717),(1925,2,1274372360),(1925,0,1274372360),(1928,3,1274974019),(1928,0,1278336057),(1929,3,1274999099),(1929,0,1274999099),(1932,3,1275548064),(1932,0,1275548064),(1934,3,1275557894),(1934,0,1275557894),(1942,6,1276012207),(1942,0,1276012207),(1947,3,1276666062),(1936,19,1276180909),(1936,0,1276180909),(1947,0,1276666062),(1950,19,1277405031),(1950,0,1277405031),(1949,16,1277720525),(1949,0,1277720525),(1955,4,1278009661),(1955,0,1278009661),(1954,21,1278014350),(1954,0,1278102965),(1954,17,1278102965),(1928,8,1278278551),(1928,5,1278159263),(1928,18,1278336057),(1957,0,1278545310),(1238,0,1283860999),(6,8,1713471243),(3945,6,1708619568),(1874,22,1284370787),(4224,8,1714112968),(4224,32,1689984030),(3976,40,1707405646),(21,17,1681206858),(2342,40,1726910925),(4790,3,1698691773),(1974,3,1280681803),(1974,0,1280681803),(1972,0,1280860773),(1975,11,1280735731),(1975,0,1280735731),(1782,0,1717186547),(1874,18,1284370542),(1972,11,1280860773),(1986,0,1281648653),(1994,18,1283200173),(1981,2,1281468711),(1981,0,1300053109),(1272,3,1283197981),(1994,11,1283202735),(3976,7,1707990748),(1986,1,1281648653),(1994,0,1283203759),(1994,21,1283199149),(1994,2,1283203759),(7,8,1351119116),(4750,32,1689847850),(4224,7,1708125056),(1272,6,1283732582),(1272,0,1283732582),(2002,1,1283972949),(1998,21,1283443727),(1998,0,1283443727),(4224,19,1735983258),(2021,0,1285577527),(2021,16,1285577527),(2004,0,1285620092),(4761,1,1691429416),(2037,6,1288380960),(2034,0,1287174636),(2034,1,1287174636),(2044,0,1289461167),(384,23,1288262887),(2044,5,1289461167),(2038,0,1288481909),(2038,6,1288481909),(2045,0,1314452163),(2045,21,1314452163),(2496,17,1340620182),(2045,20,1290004369),(1873,23,1290637337),(2040,0,1298023404),(2045,16,1291985226),(1873,0,1290637337),(2451,0,1338888323),(4843,0,1717627142),(1354,3,1508806434),(1354,0,1508806434),(2063,8,1291749849),(2063,0,1291749849),(2076,0,1294857491),(2040,16,1298023404),(2071,19,1293290443),(2071,0,1293290443),(2040,8,1295035036),(1981,12,1293464514),(2076,17,1294857491),(2082,7,1294689637),(2081,20,1295342686),(2082,0,1294689637),(2099,1,1297255512),(2081,0,1295342686),(2080,16,1295462321),(2080,0,1295462321),(1981,11,1300053109),(2121,17,1300269239),(2121,0,1300269239),(57,12,1308680640),(4683,0,1670401936),(2150,6,1305276612),(2150,0,1305276612),(2142,4,1303896904),(2142,0,1303896904),(57,11,1316947131),(2156,0,1306426209),(2146,0,1304613117),(2146,6,1304613117),(2141,16,1304745994),(2141,0,1304745994),(2156,2,1306426209),(2174,17,1308160314),(2174,0,1308160314),(57,1,1309974119),(2195,0,1320911902),(805,0,1314888562),(2195,19,1312441142),(2222,19,1313696253),(2232,0,1315592996),(582,2,1312035037),(582,7,1312429755),(582,8,1312035089),(582,12,1312992686),(582,1,1313781011),(582,3,1314546114),(582,4,1312429746),(582,5,1312035156),(582,11,1313781029),(582,20,1312035173),(582,21,1312035182),(582,23,1312035194),(2220,21,1314139420),(2195,16,1317382330),(2224,20,1313565766),(2232,16,1315592996),(805,16,1314688247),(2221,6,1313355092),(2221,0,1313355092),(2224,0,1313565766),(2657,4,1356155892),(2223,23,1313576786),(2223,0,1313576786),(2246,3,1316340054),(2222,0,1313696253),(2220,0,1314139420),(2695,1,1359625623),(2206,21,1316194126),(1565,0,1319063361),(2246,19,1316340153),(2258,5,1318006507),(805,20,1314888562),(1565,3,1319063361),(1477,23,1315200422),(2258,4,1318006753),(2246,0,1316340153),(2252,7,1317432383),(2252,0,1317432383),(1063,16,1316719006),(1063,0,1316719006),(2259,3,1318186190),(2258,0,1318006753),(2259,0,1318186190),(1982,23,1319363591),(1982,0,1319363591),(7,5,1322771586),(2270,0,1320263785),(2270,16,1320263785),(2195,23,1320911902),(7,11,1339187634),(2334,0,1327999090),(7,1,1322771873),(2334,16,1327999090),(2307,16,1325501754),(2307,0,1325501754),(2598,0,1425763019),(2336,0,1328460204),(2336,21,1328460204),(2346,8,1330331335),(65,11,1610470490),(2346,0,1331364396),(65,21,1331137639),(2345,17,1330111350),(2345,19,1330111273),(2345,0,1334163799),(65,12,1331137694),(2344,0,1350016135),(2346,11,1331364396),(2344,19,1330338406),(65,2,1331137748),(2354,0,1333628171),(65,7,1331137729),(2354,3,1330694781),(65,23,1331137625),(2344,16,1350016135),(2462,22,1337786516),(65,4,1610470321),(2354,19,1331638802),(2438,0,1335434156),(1450,3,1334108169),(2459,3,1336134420),(2345,16,1334163799),(237,18,1684504507),(2462,0,1337786516),(2450,17,1335506914),(1450,0,1334108169),(2450,3,1335506835),(2450,0,1335506914),(2450,6,1335506758),(2354,16,1333628171),(2450,20,1335506708),(32,0,1334323622),(32,3,1334323622),(2436,2,1334801225),(2436,0,1334801225),(2435,3,1334566472),(2435,0,1334566472),(2344,22,1338170217),(2438,5,1335434156),(2469,0,1336716450),(179,6,1336107504),(2443,16,1335746017),(2443,0,1335746017),(179,0,1702318363),(179,3,1486850212),(2459,0,1336134420),(2462,19,1336522624),(179,5,1507847216),(179,12,1632853326),(179,7,1632858560),(2469,4,1336716450),(179,8,1682439705),(179,17,1510253058),(2509,20,1342608347),(179,21,1360073334),(2451,4,1338888323),(2451,7,1338458506),(2542,1,1344244531),(2497,11,1339654329),(161,30,1601720015),(2473,0,1340403766),(2509,0,1359122548),(316,44,1507462188),(179,19,1510586478),(39,12,1708523477),(2496,0,1340620182),(2496,7,1339495139),(179,11,1503957977),(2497,0,1339654329),(179,16,1485467485),(2473,21,1340403766),(2502,17,1340125215),(2502,0,1340125215),(2542,2,1344334776),(2513,7,1340852170),(2513,0,1340852170),(2538,17,1345236015),(2516,6,1340974901),(2516,0,1340974901),(2622,0,1352736817),(2538,0,1509649331),(2538,16,1350501933),(2542,0,1344334776),(2764,0,1370286564),(2764,7,1369667065),(2509,16,1344685752),(2509,1,1359122548),(1794,7,1407152841),(2530,16,1344734029),(2530,0,1663383344),(475,0,1370012461),(2535,16,1345644629),(2535,0,1345644629),(2558,11,1346252178),(2558,0,1346252178),(2566,0,1348666595),(2566,11,1348666595),(2561,17,1346958060),(2561,0,1408009295),(2562,4,1346656147),(2562,0,1346656508),(2562,3,1346656508),(2582,6,1349198174),(2563,19,1346762357),(2563,0,1346762357),(2561,16,1358234541),(2598,20,1352742155),(2571,0,1349121865),(475,3,1370012461),(2582,0,1349198174),(2561,18,1349711907),(2571,21,1349121865),(2567,0,1357839955),(2622,23,1352736817),(2591,5,1350994117),(2567,16,1357839955),(2713,1,1367006731),(2598,1,1353056542),(2591,8,1350862390),(2591,0,1350994117),(161,0,1601720015),(2657,0,1356155892),(2324,6,1355734343),(490,2,1462286863),(179,4,1503618128),(130,21,1361951763),(179,18,1487105059),(2695,0,1359625623),(130,12,1359444972),(2324,0,1355734343),(179,22,1543922163),(2561,23,1358189158),(161,3,1406388884),(2693,11,1359539835),(2693,0,1359539835),(2679,6,1358281978),(2679,0,1358281978),(161,4,1364635527),(2705,4,1361175015),(2671,16,1360937800),(2671,0,1360937800),(2698,3,1359707303),(2698,0,1359707303),(2713,0,1367006754),(2598,22,1362595452),(12,11,1402596744),(2705,0,1361175015),(2713,17,1362062677),(161,1,1470133793),(130,1,1362122707),(2742,23,1363630862),(2724,16,1362646504),(2724,0,1362646504),(23,0,1408005691),(2733,17,1363273811),(2733,0,1363273811),(2713,18,1367006754),(2744,12,1363614914),(2744,0,1363614914),(2742,0,1363630862),(2772,1,1366172810),(39,1,1407333987),(2772,0,1366172810),(739,6,1485438823),(2764,18,1369667644),(739,3,1367528631),(2780,1,1366939805),(2780,0,1366939805),(739,0,1485438823),(46,3,1367797601),(2819,0,1371233148),(2795,2,1369149364),(2795,0,1369149364),(2764,21,1369667322),(2764,22,1370286564),(2819,22,1371233148),(2870,16,1377104238),(2876,11,1377680179),(2870,0,1377104238),(2851,4,1374819940),(2851,0,1374819940),(2838,16,1375205185),(2838,0,1375205185),(2859,6,1375279152),(2859,0,1407504912),(2876,0,1377680179),(2870,3,1376921000),(2859,22,1377522073),(2885,0,1379519161),(2885,16,1379519161),(39,5,1450192660),(39,4,1450913883),(39,0,1708523477),(2940,6,1610715927),(39,11,1690775316),(2940,0,1610715927),(2929,6,1384870830),(2929,0,1384870830),(2930,6,1384955005),(2930,0,1384955005),(39,3,1451498627),(490,6,1439187149),(2932,11,1386737511),(2932,0,1386737511),(39,6,1451909775),(2532,30,1407397924),(2940,17,1392070314),(2944,7,1392306597),(39,22,1444133286),(39,19,1454594211),(39,16,1475866691),(2943,3,1388666818),(2943,0,1388666818),(39,20,1451498670),(2944,17,1391712648),(2790,11,1390831179),(39,31,1451498532),(2940,19,1392070356),(39,17,1450192198),(39,18,1454328243),(2944,0,1392306597),(2790,0,1390831179),(210,30,1407403729),(39,30,1450913862),(2561,30,1408009295),(39,7,1450913874),(126,11,1392544425),(126,0,1392544425),(2989,0,1414755687),(39,2,1451498540),(12,17,1396001452),(2940,16,1395095944),(39,23,1451498711),(12,16,1400779707),(382,30,1407413399),(12,0,1431483013),(2989,17,1396320839),(972,6,1399470465),(3064,5,1398671090),(1507,31,1555236739),(456,31,1524125562),(2991,3,1396116057),(2991,0,1396116057),(1082,2,1396421042),(1082,0,1396421042),(1428,31,1407657377),(2999,7,1397564767),(2999,0,1397564767),(37,31,1407420222),(3064,0,1400404777),(1794,0,1482217883),(3077,23,1400330931),(3077,0,1400330931),(3078,6,1400702628),(3064,8,1400404724),(3064,11,1400404777),(1794,6,1482217883),(3078,0,1400702628),(39,8,1548690006),(12,8,1402049523),(53,31,1563203403),(1193,40,1502799339),(3098,2,1404366719),(2727,30,1407471985),(2532,0,1407397924),(23,31,1408005691),(3098,0,1404366719),(1507,30,1707807934),(1466,31,1407472649),(1632,33,1724361096),(1794,22,1407229009),(3115,0,1527230749),(2,31,1408196054),(177,0,1407420978),(2727,0,1407471985),(4251,4,1600374928),(69,30,1407432381),(1726,0,1407931682),(2,30,1707729376),(1726,31,1407931682),(177,31,1407420978),(131,31,1407423260),(1794,8,1407152861),(396,30,1407427305),(1521,30,1407505328),(179,30,1522191572),(179,31,1567526333),(376,31,1407448156),(1313,31,1407449937),(34,30,1407514654),(80,30,1407815389),(978,31,1407454362),(978,0,1505075229),(1464,31,1407463916),(1464,0,1658698725),(1466,0,1407472649),(4224,3,1735983229),(46,31,1407961763),(2859,31,1407504912),(65,30,1673785296),(137,30,1407954340),(3115,12,1409231130),(12,31,1407748409),(39,21,1451498693),(3115,16,1413880082),(1428,0,1542285266),(53,30,1694542597),(303,16,1407776015),(303,0,1407776015),(3115,19,1408186621),(294,31,1408297989),(3115,11,1409231293),(3135,0,1410202418),(12,2,1431483013),(3135,2,1410202418),(3148,3,1412000112),(3148,0,1412000112),(2989,21,1414755687),(39,44,1550515226),(3182,3,1416407359),(3182,0,1416407359),(2940,3,1417993977),(3226,30,1423211153),(3318,8,1435457000),(3333,0,1436197067),(80,32,1425622636),(1794,2,1421857664),(78,6,1735997980),(3226,20,1423324464),(3220,3,1422268437),(3220,0,1422268437),(3211,0,1422966367),(3226,0,1423324464),(3211,16,1422966367),(448,32,1426148702),(39,33,1708523453),(3243,3,1425224215),(4071,0,1542193750),(456,32,1691404392),(179,33,1702318363),(12,5,1424610658),(179,32,1537717926),(2,33,1425634545),(4681,0,1670257109),(53,32,1425655366),(3,32,1425621498),(3233,16,1441792552),(2,32,1555827047),(3233,0,1568643710),(3374,0,1440108414),(161,32,1432476535),(3243,0,1425224215),(456,33,1611925216),(3,0,1425621498),(1507,32,1690536247),(1507,33,1702366202),(3233,18,1463577818),(21,16,1688642681),(137,32,1431529764),(1535,0,1643312412),(105,33,1425650579),(46,32,1425741171),(46,33,1427606246),(12,33,1425674800),(53,33,1426303162),(1193,32,1429088672),(1427,32,1435146062),(1814,33,1426246380),(2598,32,1425763019),(37,32,1426642559),(1814,0,1564411072),(1794,33,1425894893),(3248,3,1426565419),(3248,0,1426565552),(3248,6,1426565552),(3233,22,1465563904),(3233,17,1426603321),(39,32,1504871433),(3233,5,1427213214),(1832,30,1449722991),(4224,22,1727085328),(3233,30,1435931471),(3197,7,1429022091),(3197,0,1430401559),(3197,23,1430401559),(47,32,1432211155),(3290,23,1432504078),(3290,0,1432504078),(3333,6,1436197067),(3358,23,1438059685),(3318,0,1435717736),(3311,6,1434627239),(3311,0,1434627239),(3233,3,1568643710),(3318,17,1435717736),(3318,19,1435696531),(3233,11,1436454918),(3358,32,1437993484),(3358,0,1438059685),(490,11,1646135434),(490,19,1470831027),(490,32,1689935897),(490,16,1485869073),(490,17,1469085905),(490,22,1647862323),(3441,0,1492170393),(3435,0,1447364005),(3398,33,1444391832),(490,30,1707912075),(3398,0,1444391832),(2518,0,1444132441),(2518,32,1444132441),(3419,0,1445514048),(490,33,1704194106),(490,31,1555894767),(3407,32,1444480463),(3407,0,1444480463),(3419,6,1445514048),(3425,16,1446106582),(3425,0,1446106582),(490,4,1705667189),(3435,31,1447364005),(3441,5,1492170393),(490,5,1733913441),(3457,0,1451317638),(3457,2,1451317638),(249,12,1455055901),(3480,6,1454491837),(3480,0,1454491837),(490,18,1494260156),(249,11,1454469792),(249,0,1493552786),(490,12,1625728111),(249,19,1493552677),(2538,6,1457037446),(249,17,1463170648),(249,16,1463170666),(3562,19,1462385720),(249,6,1459849654),(3589,0,1466457445),(3562,0,1462385720),(3568,0,1462672174),(3568,19,1462671304),(3568,20,1462671632),(3568,21,1462671842),(3568,16,1462672174),(3150,1,1469755163),(3150,0,1469755163),(249,18,1493552786),(3574,20,1464198652),(3574,0,1464198652),(3589,21,1466457445),(3602,0,1467137545),(3602,6,1467137545),(3233,1,1471449811),(490,8,1713787508),(3609,0,1469575614),(3609,16,1469575614),(3624,1,1471963741),(3624,0,1471963741),(3612,1,1469868496),(3612,0,1469868496),(3644,1,1473697310),(3644,0,1473697310),(3666,19,1477071712),(3666,0,1477071712),(249,3,1479689518),(249,22,1488797811),(3706,0,1480482562),(3728,3,1480939028),(3706,21,1480482562),(3728,0,1480939028),(3725,1,1481130737),(3725,0,1481130737),(1632,2,1698076664),(3727,8,1481816393),(3727,0,1481816393),(3593,3,1546116443),(3593,0,1546116443),(3289,6,1498588024),(1215,3,1548695010),(3734,19,1482240479),(3734,0,1482240479),(1344,6,1500479450),(2342,33,1702414542),(4689,19,1673252243),(3869,0,1499709834),(3811,0,1491051149),(1344,33,1500835201),(3806,19,1490638490),(3806,0,1490638490),(6,30,1707729381),(3811,19,1491051149),(6,2,1721411957),(4224,45,1729587813),(3830,0,1494238660),(4689,0,1673252243),(6,6,1735986763),(3830,17,1494238660),(3831,2,1502247549),(3831,0,1502247549),(3144,0,1497442419),(3828,16,1495912527),(3828,0,1495912527),(4683,3,1670401936),(4697,20,1674543164),(4161,12,1553548150),(1632,5,1714409326),(3289,0,1498588024),(1632,22,1573587210),(3144,2,1497442419),(2,46,1580139815),(4251,12,1638722162),(490,44,1720435008),(3593,30,1518098725),(1344,3,1502016385),(3869,33,1499709834),(1344,0,1505117378),(1632,30,1714409185),(3976,46,1713163178),(2342,16,1728837629),(4312,5,1586797702),(1632,12,1642310089),(1344,19,1501764808),(4299,0,1583863780),(1344,17,1501764782),(6,44,1720339125),(1344,20,1501579966),(1344,2,1501745402),(4206,0,1560893374),(3921,0,1511301859),(4315,20,1589983053),(70,8,1544485196),(233,42,1735523965),(1344,16,1503236125),(3558,0,1525768237),(456,42,1539786759),(56,42,1502783210),(3558,30,1503003107),(2,40,1726229002),(2,42,1512736647),(1507,42,1735559741),(1507,40,1726468568),(78,0,1735997980),(233,0,1735967808),(179,40,1562910628),(233,45,1729494980),(456,40,1532704743),(4216,7,1565505829),(4208,0,1562974819),(179,42,1505344345),(39,38,1689981383),(4129,0,1572904948),(39,42,1502924085),(1632,11,1648358510),(456,38,1555345243),(2,38,1515740967),(1507,41,1542009985),(533,40,1540836256),(2,41,1541928437),(1632,20,1620447130),(1507,38,1714395582),(456,41,1544443917),(4480,0,1625565148),(3904,0,1506756132),(179,38,1503336314),(179,41,1549108535),(179,43,1503519251),(2,43,1503467303),(1507,43,1503469348),(456,43,1503483823),(4787,19,1697926033),(1632,32,1714409145),(2538,42,1503500985),(2538,40,1503501266),(490,43,1503606867),(490,41,1542012527),(2,44,1720334810),(3881,0,1504806272),(456,44,1573490161),(4118,0,1546462692),(3904,32,1505315010),(1215,16,1550239793),(3881,16,1504806272),(39,41,1554502195),(978,41,1505075229),(1507,44,1720433560),(4290,0,1582545477),(449,44,1504380229),(449,0,1504380229),(179,44,1558750371),(1344,43,1505117378),(1689,0,1657789593),(3593,11,1504961103),(3902,42,1505208366),(3902,0,1505208366),(3904,33,1506756132),(4129,16,1549902779),(1027,6,1558465639),(4224,2,1721482562),(6,45,1729450958),(2342,4,1706109245),(4796,6,1700587022),(3976,0,1729022252),(2530,43,1663383344),(3900,0,1507116659),(3900,16,1507116659),(65,45,1610470576),(2342,2,1722457744),(316,0,1507462188),(3900,17,1506619355),(1215,0,1552646196),(1632,42,1614656873),(4477,46,1623428074),(4224,38,1714394759),(596,0,1613298311),(596,3,1613298311),(4165,0,1554725330),(3919,32,1507223196),(3919,0,1507223196),(3921,16,1511301859),(4697,0,1674543164),(2538,43,1509649331),(6,42,1735471006),(3946,0,1512644293),(2342,21,1673273225),(3946,3,1512644293),(1215,20,1552646196),(4341,46,1593826941),(1632,44,1614656832),(4224,11,1663209344),(1624,43,1512507926),(4283,0,1581705960),(3963,1,1533553685),(4026,0,1532091474),(70,22,1514660951),(4165,16,1554725330),(1632,16,1643601469),(21,42,1681206760),(4251,2,1638806252),(936,38,1515675725),(70,0,1570588043),(4728,33,1683363128),(3960,33,1515529481),(3960,0,1515529481),(21,6,1689940629),(3476,41,1536875844),(490,38,1568963595),(1257,40,1517344311),(1257,43,1517344296),(3966,19,1517191571),(644,41,1558456916),(1257,42,1519998544),(1257,41,1548595435),(4224,18,1725287780),(1632,31,1555085894),(3966,0,1517191571),(2342,17,1735091700),(1632,17,1620447018),(6,17,1734597137),(1257,44,1517329865),(1464,38,1644290429),(4224,16,1728535743),(1027,0,1558465639),(3667,0,1527875675),(1632,0,1724361096),(4206,17,1560893374),(4251,32,1576834932),(3593,23,1529443658),(4208,2,1562974819),(4312,0,1586797702),(1632,6,1596739062),(1428,44,1542285266),(397,43,1523765880),(3836,30,1521192802),(3836,0,1521192802),(4607,0,1646674946),(6,5,1733832545),(397,0,1523765880),(4026,12,1532091474),(4030,0,1533247602),(237,33,1693489137),(1686,44,1521408710),(1686,0,1521408763),(1686,43,1521408763),(70,6,1536408964),(3985,0,1526365576),(3115,38,1527230749),(4623,0,1651251272),(3985,18,1526365576),(3963,0,1533553685),(4607,45,1646589441),(1632,1,1593558757),(1632,18,1643681919),(70,40,1546819704),(6,3,1735985810),(4047,4,1536733003),(237,16,1683035051),(1632,3,1596747762),(3667,6,1527875675),(4224,44,1720344773),(4290,6,1582545477),(4298,21,1583865487),(21,19,1670534192),(3476,0,1536875844),(3985,16,1525783222),(3558,43,1525768237),(4030,6,1533247602),(1193,43,1547092445),(1632,19,1698085439),(294,46,1582571682),(39,43,1554502249),(70,31,1570588043),(6,40,1726310350),(4161,0,1553548150),(4224,21,1673215006),(1427,41,1636523752),(6,38,1714400642),(4224,30,1707786658),(2342,42,1735091682),(1535,19,1643312412),(4899,0,1734025511),(4251,19,1574349015),(2342,30,1712534372),(237,0,1707770286),(179,46,1570462359),(490,46,1615901370),(4251,16,1643743548),(2342,19,1734085389),(2,45,1565341831),(3945,46,1596381925),(6,16,1728467900),(644,46,1584189499),(1632,7,1620447276),(4246,45,1572619306),(4224,0,1735983258),(490,45,1564386557),(233,3,1735967808),(4216,0,1565505829),(1632,23,1568145140),(4251,46,1676335481),(4254,32,1574514593),(1507,45,1729496626),(1507,46,1735208123),(1814,46,1564411000),(1814,45,1564411072),(105,46,1564420121),(4750,0,1689847850),(6,0,1735986763),(4224,5,1733850247),(53,46,1565200844),(1632,45,1596738652),(1632,46,1624550327),(4681,45,1670257109),(4251,1,1600374975),(6,32,1689864754),(4224,4,1705625254),(4251,11,1665849588),(4243,0,1575076786),(4254,0,1574514593),(4243,12,1575076786),(1464,40,1658698725),(4251,0,1676335481),(4251,33,1608214181),(2342,44,1723433672),(4315,0,1589983053),(1632,38,1569263190),(4728,0,1683363266),(6,19,1735571452),(4246,0,1572619306),(4787,0,1697926033),(4298,0,1583865487),(1632,4,1714410391),(4251,45,1673362077),(4129,31,1572904948),(4299,6,1583863780),(1632,21,1596739104),(6,22,1727008240),(4369,16,1596371198),(4350,0,1593858206),(4224,46,1735453532),(3945,0,1708619568),(21,3,1689940667),(4477,0,1623428074),(4761,0,1691429659),(4371,0,1597643328),(4428,19,1613155872),(6,18,1725279747),(4380,46,1600158105),(6,46,1735143773),(4350,20,1593858206),(4406,0,1607694265),(4341,0,1593826941),(4388,45,1600669532),(4380,0,1600158105),(4623,45,1651251272),(4371,4,1596520741),(4371,17,1597643328),(4728,7,1683363266),(4251,30,1600374955),(4251,7,1638722099),(2342,0,1735091700),(4372,46,1596900764),(4372,0,1596900764),(4388,0,1600669532),(4380,45,1599820038),(868,43,1597075062),(1632,8,1698079257),(4251,3,1639751001),(2342,6,1735091664),(4251,5,1638721204),(21,0,1689940667),(1632,40,1614656885),(6,20,1708161911),(233,18,1725330547),(2342,22,1727566015),(65,32,1610470453),(4480,12,1625565148),(1689,3,1657789593),(2342,45,1729471117),(2342,3,1735091644),(4224,42,1735470744),(1782,6,1717186547),(4429,3,1612975383),(4406,32,1607606284),(4406,33,1607694265),(4202,6,1728766350),(1427,40,1612260927),(4224,20,1708125074),(4251,18,1608648420),(65,33,1610470409),(4224,17,1734631188),(4684,21,1673190607),(4429,0,1612975383),(4428,0,1613155872),(6,1,1691429501),(2342,8,1714684423),(4224,33,1702435544),(4761,4,1691429659),(4761,16,1691429606),(6,33,1702322284),(4796,0,1703923803),(4790,0,1698691773),(6,4,1705582821),(4796,46,1703923803),(3976,3,1712031125),(3976,30,1707730160),(4224,40,1726234573),(2342,38,1717248317),(4594,40,1706267981),(3976,6,1729022252),(233,16,1728527105),(4843,46,1717627142),(1193,38,1716626946),(78,3,1735957880),(3976,16,1711814206),(2342,7,1712534528),(3976,45,1709448303),(233,5,1733971577),(3976,17,1711814190),(3976,38,1713163297),(237,30,1707770286),(3976,20,1708176608),(6,7,1707989567),(233,19,1735611220),(3976,19,1712050685),(4202,0,1728766350),(233,40,1726629510),(4899,19,1734025511),(233,17,1734580024),(233,22,1727086142),(4846,46,1718204978),(233,46,1733282629),(4846,0,1718204978);
/*!40000 ALTER TABLE `phpbb_forums_track` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_forums_watch`
--

DROP TABLE IF EXISTS `phpbb_forums_watch`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_forums_watch` (
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `notify_status` tinyint(1) unsigned NOT NULL DEFAULT '0',
  KEY `forum_id` (`forum_id`),
  KEY `user_id` (`user_id`),
  KEY `notify_stat` (`notify_status`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_forums_watch`
--

LOCK TABLES `phpbb_forums_watch` WRITE;
/*!40000 ALTER TABLE `phpbb_forums_watch` DISABLE KEYS */;
INSERT INTO `phpbb_forums_watch` VALUES (6,108,1),(6,54,1),(6,2140,1),(3,1082,1),(6,1082,1),(3,3182,1),(3,3211,1),(3,3323,1),(6,2,0),(3,2,0),(32,2,0),(33,2,0),(30,2,0),(5,2,0),(11,2,0),(4,2,0),(31,2,0),(8,2,1),(7,2,0),(16,2,1),(18,2,0),(22,2,1),(17,2,0),(19,2,0),(3,34,1),(3,3612,1),(3,3398,1),(6,3407,1),(30,3574,1),(16,305,1),(6,2721,1),(3,413,1),(16,413,1),(3,70,1),(6,70,1),(32,413,1),(3,227,1),(3,3574,1),(45,3574,1),(1,3574,1),(20,3574,1),(6,3398,1),(45,3328,1),(42,2,0),(16,3976,0),(6,1824,1),(45,299,1),(3,2721,1),(40,4224,0),(38,3976,1),(46,70,1);
/*!40000 ALTER TABLE `phpbb_forums_watch` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_groups`
--

DROP TABLE IF EXISTS `phpbb_groups`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_groups` (
  `group_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `group_type` tinyint(4) NOT NULL DEFAULT '1',
  `group_founder_manage` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `group_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `group_desc` text COLLATE utf8_bin NOT NULL,
  `group_desc_bitfield` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `group_desc_options` int(11) unsigned NOT NULL DEFAULT '7',
  `group_desc_uid` varchar(8) COLLATE utf8_bin NOT NULL DEFAULT '',
  `group_display` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `group_avatar` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `group_avatar_type` tinyint(2) NOT NULL DEFAULT '0',
  `group_avatar_width` smallint(4) unsigned NOT NULL DEFAULT '0',
  `group_avatar_height` smallint(4) unsigned NOT NULL DEFAULT '0',
  `group_rank` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `group_colour` varchar(6) COLLATE utf8_bin NOT NULL DEFAULT '',
  `group_sig_chars` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `group_receive_pm` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `group_message_limit` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `group_max_recipients` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `group_legend` tinyint(1) unsigned NOT NULL DEFAULT '1',
  PRIMARY KEY (`group_id`),
  KEY `group_legend_name` (`group_legend`,`group_name`)
) ENGINE=MyISAM AUTO_INCREMENT=7 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_groups`
--

LOCK TABLES `phpbb_groups` WRITE;
/*!40000 ALTER TABLE `phpbb_groups` DISABLE KEYS */;
INSERT INTO `phpbb_groups` VALUES (1,3,0,'GUESTS','','',7,'',0,'',0,0,0,0,'',0,0,0,0,0),(2,3,0,'REGISTERED','','',7,'',0,'',0,0,0,0,'',0,0,0,0,0),(3,3,0,'REGISTERED_COPPA','','',7,'',0,'',0,0,0,0,'',0,0,0,0,0),(4,3,0,'GLOBAL_MODERATORS','','',7,'',0,'',0,0,0,0,'00AA00',0,0,0,0,1),(5,3,1,'ADMINISTRATORS','','',7,'',0,'',0,0,0,0,'AA0000',0,0,0,0,1),(6,3,0,'BOTS','','',7,'',0,'',0,0,0,0,'9E8DA7',0,0,0,0,0);
/*!40000 ALTER TABLE `phpbb_groups` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_icons`
--

DROP TABLE IF EXISTS `phpbb_icons`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_icons` (
  `icons_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `icons_url` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `icons_width` tinyint(4) NOT NULL DEFAULT '0',
  `icons_height` tinyint(4) NOT NULL DEFAULT '0',
  `icons_order` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `display_on_posting` tinyint(1) unsigned NOT NULL DEFAULT '1',
  PRIMARY KEY (`icons_id`),
  KEY `display_on_posting` (`display_on_posting`)
) ENGINE=MyISAM AUTO_INCREMENT=11 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_icons`
--

LOCK TABLES `phpbb_icons` WRITE;
/*!40000 ALTER TABLE `phpbb_icons` DISABLE KEYS */;
INSERT INTO `phpbb_icons` VALUES (1,'misc/fire.gif',16,16,1,1),(2,'smile/redface.gif',16,16,9,1),(3,'smile/mrgreen.gif',16,16,10,1),(4,'misc/heart.gif',16,16,4,1),(5,'misc/star.gif',16,16,2,1),(6,'misc/radioactive.gif',16,16,3,1),(7,'misc/thinking.gif',16,16,5,1),(8,'smile/info.gif',16,16,8,1),(9,'smile/question.gif',16,16,6,1),(10,'smile/alert.gif',16,16,7,1);
/*!40000 ALTER TABLE `phpbb_icons` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_lang`
--

DROP TABLE IF EXISTS `phpbb_lang`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_lang` (
  `lang_id` tinyint(4) NOT NULL AUTO_INCREMENT,
  `lang_iso` varchar(30) COLLATE utf8_bin NOT NULL DEFAULT '',
  `lang_dir` varchar(30) COLLATE utf8_bin NOT NULL DEFAULT '',
  `lang_english_name` varchar(100) COLLATE utf8_bin NOT NULL DEFAULT '',
  `lang_local_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `lang_author` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  PRIMARY KEY (`lang_id`),
  KEY `lang_iso` (`lang_iso`)
) ENGINE=MyISAM AUTO_INCREMENT=3 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_lang`
--

LOCK TABLES `phpbb_lang` WRITE;
/*!40000 ALTER TABLE `phpbb_lang` DISABLE KEYS */;
INSERT INTO `phpbb_lang` VALUES (1,'en','en','British English','British English','phpBB Group'),(2,'es','es','Spanish','Español','HuanManwe');
/*!40000 ALTER TABLE `phpbb_lang` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_log`
--

DROP TABLE IF EXISTS `phpbb_log`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_log` (
  `log_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `log_type` tinyint(4) NOT NULL DEFAULT '0',
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `topic_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `reportee_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `log_ip` varchar(40) COLLATE utf8_bin NOT NULL DEFAULT '',
  `log_time` int(11) unsigned NOT NULL DEFAULT '0',
  `log_operation` text COLLATE utf8_bin NOT NULL,
  `log_data` mediumtext COLLATE utf8_bin NOT NULL,
  PRIMARY KEY (`log_id`),
  KEY `log_type` (`log_type`),
  KEY `forum_id` (`forum_id`),
  KEY `topic_id` (`topic_id`),
  KEY `reportee_id` (`reportee_id`),
  KEY `user_id` (`user_id`)
) ENGINE=MyISAM AUTO_INCREMENT=7030 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_log`
--

LOCK TABLES `phpbb_log` WRITE;
/*!40000 ALTER TABLE `phpbb_log` DISABLE KEYS */;
INSERT INTO `phpbb_log` VALUES (1,0,1,0,0,0,'87.218.146.208',1230613098,'LOG_INSTALL_CONVERTED','a:2:{i:0;s:11:\"phpBB 2.0.x\";i:1;s:5:\"3.0.4\";}'),(2,0,2,0,0,0,'87.218.146.208',1230613228,'LOG_ADMIN_AUTH_SUCCESS',''),(3,0,2,0,0,0,'87.218.146.208',1230613403,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(4,0,2,0,0,0,'87.218.146.208',1230614676,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:15:\"Fulltext native\";}'),(5,0,2,0,0,0,'87.218.146.208',1230615418,'LOG_CONFIG_SERVER',''),(6,1,2,3,5260,0,'87.218.146.208',1230615513,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:50:\"IMPORTANT: FiveWin version number system to change\";}'),(7,1,2,6,5261,0,'87.218.146.208',1230615572,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:61:\"IMPORTANTE: Nuevo sistema en la numeración de versión de FW\";}'),(8,3,533,0,0,533,'80.32.177.143',1230632814,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Mike Serra\";}'),(9,0,2,0,0,0,'87.218.146.208',1230634862,'LOG_ADMIN_AUTH_SUCCESS',''),(10,0,2,0,0,0,'87.218.146.208',1230635005,'LOG_DB_BACKUP',''),(11,3,1308,0,0,1308,'189.1.7.88',1230661933,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:2:\"JC\";}'),(12,3,343,0,0,343,'204.57.111.194',1230678026,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"Gale FORd\";}'),(13,0,2,0,0,0,'87.218.146.208',1230684840,'LOG_ADMIN_AUTH_SUCCESS',''),(14,0,2,0,0,0,'87.218.146.208',1230684924,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:17:\"Daniel Garcia-Gil\";}'),(15,0,2,0,0,0,'87.218.146.208',1230685017,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:17:\"Daniel Garcia-Gil\";}'),(16,0,2,0,0,0,'87.218.146.208',1230685284,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(17,0,2,0,0,0,'87.218.146.208',1230685386,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:21:\"Enrico Maria Giordano\";}'),(18,0,2,0,0,0,'87.218.146.208',1230685680,'LOG_DB_BACKUP',''),(19,0,2,0,0,0,'87.218.146.208',1230708492,'LOG_ADMIN_AUTH_SUCCESS',''),(20,0,2,0,0,0,'87.218.146.208',1230708620,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(21,0,2,0,0,0,'87.218.146.208',1230708727,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:21:\"Enrico Maria Giordano\";}'),(22,0,2,0,0,0,'87.218.146.208',1230709064,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(23,0,2,0,0,0,'87.218.146.208',1230709145,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:21:\"Enrico Maria Giordano\";}'),(24,1,249,19,14096,0,'190.74.52.221',1230709380,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Windows 7 build 7000\";}'),(25,1,249,19,14096,0,'190.74.52.221',1230709522,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: Windows 7 build 7000\";i:1;s:15:\"Antonio Linares\";}'),(26,0,2,0,0,0,'87.218.146.208',1230752235,'LOG_ADMIN_AUTH_SUCCESS',''),(27,0,2,0,0,0,'87.218.146.208',1230752344,'LOG_DB_BACKUP',''),(28,1,2,3,14101,0,'87.218.146.208',1230835584,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: Special End of Year Offer !!!\";i:1;s:5:\"kajot\";}'),(29,0,2,0,0,0,'87.218.146.208',1230837145,'LOG_ADMIN_AUTH_SUCCESS',''),(30,0,2,0,0,0,'87.218.146.208',1230837275,'LOG_TEMPLATE_ADD_FS','a:1:{i:0;s:10:\"subsilver2\";}'),(31,0,2,0,0,0,'87.218.146.208',1230837275,'LOG_THEME_ADD_FS','a:1:{i:0;s:10:\"subsilver2\";}'),(32,0,2,0,0,0,'87.218.146.208',1230837275,'LOG_IMAGESET_ADD_FS','a:1:{i:0;s:10:\"subsilver2\";}'),(33,0,2,0,0,0,'87.218.146.208',1230837275,'LOG_STYLE_ADD','a:1:{i:0;s:10:\"subsilver2\";}'),(34,0,2,0,0,0,'87.218.146.208',1230837477,'LOG_ADMIN_AUTH_SUCCESS',''),(35,0,2,0,0,0,'87.218.146.208',1230837805,'LOG_PURGE_CACHE',''),(36,0,2,0,0,0,'87.218.146.208',1230838018,'LOG_PURGE_CACHE',''),(37,1,1466,6,14134,0,'190.184.47.83',1230838455,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Footer en TXBrowse\";}'),(38,0,2,0,0,0,'87.218.146.208',1230839075,'LOG_PURGE_CACHE',''),(39,0,2,0,0,0,'87.218.146.208',1230839111,'LOG_LANGUAGE_PACK_INSTALLED','a:1:{i:0;s:7:\"Spanish\";}'),(40,3,141,0,0,141,'200.88.94.134',1230846229,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jllinas\";i:1;s:22:\"jllinas@verizon.net.do\";i:2;s:22:\"jllinas@codetel.net.do\";}'),(41,0,2,0,0,0,'87.218.146.208',1230849513,'LOG_PURGE_CACHE',''),(42,0,2,0,0,0,'87.218.146.208',1230850322,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"jllinas\";}'),(43,3,2,0,0,141,'87.218.146.208',1230850322,'LOG_USER_ACTIVE_USER',''),(44,0,2,0,0,0,'87.218.146.208',1230857176,'LOG_ADMIN_AUTH_SUCCESS',''),(45,0,2,0,0,0,'87.218.146.208',1230857188,'LOG_PURGE_CACHE',''),(46,0,2,0,0,0,'87.218.146.208',1230857236,'LOG_PURGE_CACHE',''),(47,0,2,0,0,0,'87.218.146.208',1230861321,'LOG_PURGE_CACHE',''),(48,0,2,0,0,0,'87.218.146.208',1230861461,'LOG_PURGE_CACHE',''),(49,0,2,0,0,0,'87.218.146.208',1230861581,'LOG_PURGE_CACHE',''),(50,0,2,0,0,0,'87.218.146.208',1230861769,'LOG_PURGE_CACHE',''),(51,0,2,0,0,0,'87.218.146.208',1230889653,'LOG_ADMIN_AUTH_SUCCESS',''),(52,0,2,0,0,0,'87.218.146.208',1230890029,'LOG_CONFIG_ATTACH',''),(53,0,2,0,0,0,'87.218.146.208',1230891180,'LOG_DB_BACKUP',''),(54,1,456,6,13501,0,'79.109.212.189',1230911230,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(55,3,1354,0,0,1354,'208.127.20.179',1230930174,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"hag\";}'),(56,3,1272,0,0,1272,'200.64.99.194',1230935361,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"andresreyes_mzt\";}'),(57,0,2,0,0,0,'87.218.146.208',1230968415,'LOG_ADMIN_AUTH_SUCCESS',''),(58,3,1507,0,0,1507,'88.24.194.252',1230998941,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"SantaCroya\";}'),(59,1,2,17,14139,0,'87.218.146.208',1231059165,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(60,1,2,17,13098,0,'87.218.146.208',1231224220,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:21:\"Borland C setup files\";}'),(61,0,2,0,0,0,'87.218.146.208',1231228201,'LOG_ADMIN_AUTH_SUCCESS',''),(62,0,2,0,0,0,'87.218.146.208',1231228338,'LOG_DB_BACKUP',''),(63,0,2,0,0,0,'87.218.146.208',1231271522,'LOG_ADMIN_AUTH_SUCCESS',''),(64,0,2,0,0,0,'87.218.146.208',1231271685,'LOG_DB_BACKUP',''),(65,1,1257,3,14179,0,'195.93.60.106',1231278398,'LOG_DELETE_TOPIC','a:1:{i:0;s:63:\"Helpful &lt;A free Translation-software for forum-topics &gt; ?\";}'),(66,1,2,17,12908,0,'87.218.146.208',1231290855,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:33:\"WordList for UEStudio and FiveWin\";}'),(67,1,49,21,3799,0,'94.161.225.243',1231290951,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"sample small cash\";}'),(68,1,49,23,3800,0,'94.161.225.243',1231291055,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"small cash\";}'),(69,1,49,3,14189,0,'94.161.197.73',1231374800,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"creating a new class : TLBxChech\";}'),(70,0,2,0,0,0,'87.218.146.102',1231402581,'LOG_ADMIN_AUTH_SUCCESS',''),(71,0,2,0,0,0,'87.218.146.102',1231402708,'LOG_DB_BACKUP',''),(72,1,2,19,14196,0,'87.218.146.208',1231403651,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(73,1,2,19,14197,0,'87.218.146.208',1231403688,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(74,1,2,22,14201,0,'87.218.146.208',1231403936,'LOG_POST_EDITED','a:2:{i:0;s:47:\"The New FW BBS not as good as before\'s (solved)\";i:1;s:11:\"ShumingWang\";}'),(75,0,2,0,0,0,'87.218.146.208',1231410938,'LOG_ADMIN_AUTH_SUCCESS',''),(76,3,2,0,0,95,'87.218.146.208',1231412131,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"ramirezosvaldo\";}'),(77,0,2,0,0,0,'87.218.146.208',1231412131,'LOG_USER_USER_UPDATE','a:1:{i:0;s:14:\"ramirezosvaldo\";}'),(78,1,249,6,14195,0,'190.74.52.221',1231466361,'LOG_POST_EDITED','a:2:{i:0;s:53:\"Sigo con prev32.dll sin previzualizacion (solventado)\";i:1;s:10:\"noe aburto\";}'),(79,1,2,6,14221,0,'87.218.146.208',1231521864,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Opinion sobre xEdit2 ?\";}'),(80,1,278,6,14221,0,'190.95.42.167',1231522381,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Opinion sobre xEdit2 ?\";}'),(81,1,2,8,14224,0,'87.218.146.208',1231522745,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Consulta...\";}'),(82,1,2,3,14160,0,'87.218.146.208',1231522782,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Message for Dutch\";}'),(83,1,49,3,14152,0,'94.161.208.139',1231639693,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Header multiple with Xbrowse\";}'),(84,3,148,0,0,148,'196.205.180.2',1231666206,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Ehab Samir Aziz\";}'),(85,0,2,0,0,0,'87.218.146.208',1231707693,'LOG_ADMIN_AUTH_SUCCESS',''),(86,0,2,0,0,0,'87.218.146.208',1231707927,'LOG_DB_BACKUP',''),(87,1,1466,3,14204,0,'190.184.47.83',1231713408,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: New Background-Tools Vers. 4.0\";}'),(88,1,6,20,14052,0,'87.10.10.15',1231849866,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(89,1,47,3,14270,0,'58.8.108.78',1231951044,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"XBrowse 8.12 compatible problem? *Ignore this*\";}'),(90,1,249,6,14271,0,'190.74.52.221',1231953943,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"PolyPoligon() Manejar mapas e imagenes\";}'),(91,1,2,17,14261,0,'87.222.199.86',1231982425,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(92,0,2,0,0,0,'87.222.199.198',1232012305,'LOG_ADMIN_AUTH_SUCCESS',''),(93,0,2,0,0,0,'87.222.199.198',1232012436,'LOG_DB_BACKUP',''),(94,1,49,3,14251,0,'213.82.134.66',1232016957,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: Method to transfer xBrowse Data to OpenOffice Calc\";}'),(95,1,2,3,14132,0,'87.222.199.86',1232034926,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: FWH 8.12 Printer problem\";}'),(96,3,431,0,0,431,'190.142.52.108',1232075342,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"mag071\";}'),(97,1,1308,3,14291,0,'189.1.7.88',1232126627,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Background checkboxes on xBrowse!?\";}'),(98,3,1336,0,0,1336,'190.39.121.226',1232130660,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"pinzon_jesus\";}'),(99,1,2,4,14190,0,'87.222.199.86',1232265039,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: First FWPPC App - Help :-)\";}'),(100,0,2,0,0,0,'87.222.199.86',1232307823,'LOG_ADMIN_AUTH_SUCCESS',''),(101,0,2,0,0,0,'87.222.199.86',1232307982,'LOG_DB_BACKUP',''),(102,1,1257,3,14318,0,'85.182.27.34',1232355858,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"Folder-Brushes don\'t work with Dialog TRANSPARENT ?\";}'),(103,1,2,6,14330,0,'88.2.185.22',1232433894,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Visual Union for Fivewin GRATIS\";i:1;s:4:\"AIDA\";}'),(104,1,2,3,14309,0,'88.2.185.22',1232434082,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Re: Missing Cursor\";i:1;s:7:\"ukoenig\";}'),(105,0,2,0,0,0,'88.2.185.22',1232477430,'LOG_ADMIN_AUTH_SUCCESS',''),(106,3,2,0,0,582,'88.2.185.22',1232477534,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"El Loco\";}'),(107,0,2,0,0,0,'88.2.185.22',1232477534,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"El Loco\";}'),(108,0,2,0,0,0,'88.2.185.22',1232480339,'LOG_ADMIN_AUTH_SUCCESS',''),(109,3,2,0,0,582,'88.2.185.22',1232480422,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"El Loco\";}'),(110,0,2,0,0,0,'88.2.185.22',1232480422,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"El Loco\";}'),(111,1,1521,19,14296,0,'189.22.134.132',1232538713,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Anyone know of a good source code formatter?\";}'),(112,1,1313,6,14324,0,'201.22.89.59',1232538820,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: xharb 1.1.0 simples rev 6195\";}'),(113,1,1313,6,14324,0,'201.22.89.59',1232538829,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"xharb 1.1.0 simples rev 6195\";}'),(114,1,51,3,14338,0,'85.13.2.90',1232554549,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Resize xbrowse\";}'),(115,0,2,0,0,0,'87.222.198.117',1232653911,'LOG_ADMIN_AUTH_SUCCESS',''),(116,0,2,0,0,0,'87.222.198.117',1232654103,'LOG_DB_BACKUP',''),(117,3,533,0,0,533,'80.32.177.143',1232730203,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Mike Serra\";}'),(118,0,2,0,0,0,'87.222.199.254',1232885591,'LOG_ADMIN_AUTH_SUCCESS',''),(119,0,2,0,0,0,'87.222.199.254',1232885710,'LOG_DB_BACKUP',''),(120,1,1104,6,14371,0,'201.255.35.56',1232900098,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Vaciar tabla secuencialmente.\";}'),(121,0,2,0,0,0,'87.222.199.55',1232980815,'LOG_ADMIN_AUTH_SUCCESS',''),(122,3,2,0,0,785,'87.222.199.55',1232980866,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Ruben Fernandez\";}'),(123,0,2,0,0,0,'87.222.199.55',1232980866,'LOG_USER_USER_UPDATE','a:1:{i:0;s:15:\"Ruben Fernandez\";}'),(124,0,2,0,0,0,'87.222.199.55',1233003818,'LOG_ADMIN_AUTH_SUCCESS',''),(125,0,2,0,0,0,'87.222.199.55',1233003930,'LOG_DB_BACKUP',''),(126,1,51,3,14384,0,'80.122.88.242',1233039966,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"TBar vs. TToolBar\";}'),(127,1,1427,3,14113,0,'59.99.130.53',1233043733,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Display Alpha channel 32 bit BMP on ButtonBMP (Solved)\";}'),(128,1,1427,3,14113,0,'59.99.130.53',1233043745,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Display Alpha channel 32 bit BMP on ButtonBMP (Solved)\";}'),(129,1,210,6,14391,0,'81.24.147.150',1233070310,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"ERROR in new 9.01\";}'),(130,0,2,0,0,0,'87.222.199.55',1233308085,'LOG_ADMIN_AUTH_SUCCESS',''),(131,0,2,0,0,0,'87.222.199.55',1233308214,'LOG_DB_BACKUP',''),(132,1,2,19,14440,0,'87.222.198.209',1233444024,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(133,0,2,0,0,0,'87.222.198.210',1233526990,'LOG_ADMIN_AUTH_SUCCESS',''),(134,0,2,0,0,0,'87.222.198.210',1233527132,'LOG_DB_BACKUP',''),(135,3,1526,0,0,1526,'95.113.42.66',1233594710,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"IBTC\";}'),(136,1,2,17,13098,0,'87.222.199.84',1233595481,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Borland C setup files\";}'),(137,1,2,3,14455,0,'87.222.199.36',1233650368,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Bitmap in xBrowse\";i:1;s:14:\"Detlef Hoefner\";}'),(138,0,2,0,0,0,'87.222.199.36',1233668165,'LOG_BAN_USER','a:2:{i:0;s:7:\"robot ?\";i:1;s:9:\"Dymnknilm\";}'),(139,1,2,0,0,0,'87.222.199.36',1233668165,'LOG_BAN_USER','a:2:{i:0;s:7:\"robot ?\";i:1;s:9:\"Dymnknilm\";}'),(140,0,249,0,0,0,'190.74.52.221',1233674241,'LOG_ADMIN_AUTH_FAIL',''),(141,0,2,0,0,0,'87.222.199.36',1233742074,'LOG_ADMIN_AUTH_SUCCESS',''),(142,3,2,0,0,2,'87.222.199.36',1233742122,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(143,0,2,0,0,0,'87.222.199.36',1233742122,'LOG_USER_USER_UPDATE','a:1:{i:0;s:15:\"Antonio Linares\";}'),(144,0,2,0,0,0,'87.222.199.36',1233742966,'LOG_ADMIN_AUTH_SUCCESS',''),(145,0,2,0,0,0,'87.222.199.36',1233743171,'LOG_DB_BACKUP',''),(146,0,2,0,0,0,'87.222.199.36',1233744341,'LOG_CONFIG_SIGNATURE',''),(147,1,170,1,14481,0,'86.77.135.194',1233762436,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Base64 natives functions in Clipper !\";}'),(148,1,1308,3,14480,0,'189.1.7.88',1233770353,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: Erroneous type in ADO-&gt;boolean to xBrowse-&gt;logical\";}'),(149,1,2,3,13333,0,'87.222.199.76',1233771636,'LOG_POST_EDITED','a:2:{i:0;s:50:\"Checkbox and Radio are not transparent!? (solved!)\";i:1;s:8:\"byte-one\";}'),(150,1,2,3,14483,0,'87.222.199.76',1233771749,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Base64 natives functions in Clipper !\";i:1;s:12:\"Badara Thiam\";}'),(151,0,2,0,0,0,'87.222.199.76',1233772168,'LOG_ADMIN_AUTH_SUCCESS',''),(152,0,2,0,0,0,'87.222.199.82',1233800974,'LOG_ADMIN_AUTH_SUCCESS',''),(153,0,2,0,0,0,'87.222.199.82',1233801004,'LOG_PURGE_CACHE',''),(154,1,1466,6,14488,0,'190.184.48.173',1233846272,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"¿Cómo enviar a Excel reporte con TPrinter?\";}'),(155,1,1104,3,14496,0,'201.255.58.42',1233871180,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Como saber el Path del SO.\";}'),(156,0,2,0,0,0,'87.222.198.215',1233912996,'LOG_ADMIN_AUTH_SUCCESS',''),(157,3,2,0,0,1085,'87.222.198.215',1233913136,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armin Thurner\";}'),(158,0,2,0,0,0,'87.222.198.215',1233913136,'LOG_USER_USER_UPDATE','a:1:{i:0;s:13:\"Armin Thurner\";}'),(159,0,2,0,0,0,'87.222.199.103',1233998384,'LOG_ADMIN_AUTH_SUCCESS',''),(160,0,2,0,0,0,'87.222.199.103',1233998541,'LOG_DB_BACKUP',''),(161,0,2,0,0,0,'87.222.199.11',1234155433,'LOG_ADMIN_AUTH_SUCCESS',''),(162,0,2,0,0,0,'87.222.199.11',1234155467,'LOG_PURGE_CACHE',''),(163,0,2,0,0,0,'87.222.199.11',1234156684,'LOG_CONFIG_SETTINGS',''),(164,0,2,0,0,0,'87.222.199.11',1234157110,'LOG_CONFIG_SETTINGS',''),(165,0,2,0,0,0,'87.222.199.11',1234157308,'LOG_PURGE_CACHE',''),(166,0,2,0,0,0,'87.222.199.11',1234158172,'LOG_CONFIG_SETTINGS',''),(167,0,2,0,0,0,'87.222.199.11',1234158670,'LOG_PURGE_CACHE',''),(168,0,2,0,0,0,'87.222.199.11',1234159187,'LOG_PURGE_CACHE',''),(169,0,2,0,0,0,'87.222.199.11',1234160227,'LOG_PURGE_CACHE',''),(170,0,2,0,0,0,'87.222.199.11',1234160824,'LOG_PURGE_CACHE',''),(171,0,2,0,0,0,'87.222.199.11',1234160917,'LOG_PURGE_CACHE',''),(172,0,2,0,0,0,'87.222.199.11',1234161312,'LOG_PURGE_CACHE',''),(173,0,2,0,0,0,'87.222.199.11',1234161598,'LOG_PURGE_CACHE',''),(174,0,2,0,0,0,'87.222.199.11',1234161752,'LOG_PURGE_CACHE',''),(175,0,2,0,0,0,'87.222.199.11',1234162326,'LOG_PURGE_CACHE',''),(176,0,2,0,0,0,'87.222.199.11',1234162441,'LOG_PURGE_CACHE',''),(177,0,2,0,0,0,'87.222.199.11',1234162796,'LOG_PURGE_CACHE',''),(178,0,2,0,0,0,'87.222.199.11',1234162989,'LOG_PURGE_CACHE',''),(179,0,2,0,0,0,'87.222.199.11',1234163089,'LOG_PURGE_CACHE',''),(180,0,2,0,0,0,'87.222.199.11',1234163136,'LOG_PURGE_CACHE',''),(181,0,2,0,0,0,'87.222.199.11',1234163185,'LOG_PURGE_CACHE',''),(182,0,2,0,0,0,'87.222.199.11',1234163707,'LOG_CONFIG_SETTINGS',''),(183,0,2,0,0,0,'87.222.199.11',1234165368,'LOG_PURGE_CACHE',''),(184,0,2,0,0,0,'87.222.199.11',1234165735,'LOG_PURGE_CACHE',''),(185,0,2,0,0,0,'87.222.199.11',1234165843,'LOG_PURGE_CACHE',''),(186,0,2,0,0,0,'87.222.199.11',1234166027,'LOG_PURGE_CACHE',''),(187,0,2,0,0,0,'87.222.199.11',1234166124,'LOG_PURGE_CACHE',''),(188,3,1215,0,0,1215,'83.103.43.2',1234167599,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Patrizio\";}'),(189,0,2,0,0,0,'87.222.199.11',1234168762,'LOG_DB_BACKUP',''),(190,0,2,0,0,0,'87.222.199.11',1234271041,'LOG_ADMIN_AUTH_SUCCESS',''),(191,0,2,0,0,0,'87.222.199.11',1234271103,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:9:\"ander7319\";}'),(192,1,2,0,0,0,'87.222.199.11',1234271103,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:9:\"ander7319\";}'),(193,0,2,0,0,0,'87.222.198.163',1234276729,'LOG_ADMIN_AUTH_SUCCESS',''),(194,0,2,0,0,0,'87.222.198.163',1234276795,'LOG_UNBAN_USER','a:1:{i:0;s:9:\"ander7319\";}'),(195,1,2,0,0,0,'87.222.198.163',1234276795,'LOG_UNBAN_USER','a:1:{i:0;s:9:\"ander7319\";}'),(196,0,2,0,0,0,'87.222.199.11',1234299043,'LOG_ADMIN_AUTH_SUCCESS',''),(197,0,2,0,0,0,'87.222.198.163',1234381683,'LOG_ADMIN_AUTH_SUCCESS',''),(198,0,2,0,0,0,'87.222.198.163',1234381821,'LOG_DB_BACKUP',''),(199,0,2,0,0,0,'87.222.199.39',1234607274,'LOG_ADMIN_AUTH_SUCCESS',''),(200,0,2,0,0,0,'87.222.199.39',1234607288,'LOG_PURGE_CACHE',''),(201,0,2,0,0,0,'87.222.199.39',1234607471,'LOG_ADMIN_AUTH_SUCCESS',''),(202,0,2,0,0,0,'87.222.199.39',1234607482,'LOG_PURGE_CACHE',''),(203,0,2,0,0,0,'87.222.199.39',1234608236,'LOG_ADMIN_AUTH_SUCCESS',''),(204,0,2,0,0,0,'87.222.199.39',1234608245,'LOG_PURGE_CACHE',''),(205,0,2,0,0,0,'87.222.199.39',1234608335,'LOG_ADMIN_AUTH_SUCCESS',''),(206,0,2,0,0,0,'87.222.199.39',1234608346,'LOG_PURGE_CACHE',''),(207,0,2,0,0,0,'87.222.199.39',1234608546,'LOG_ADMIN_AUTH_SUCCESS',''),(208,0,2,0,0,0,'87.222.199.39',1234608557,'LOG_PURGE_CACHE',''),(209,0,2,0,0,0,'87.222.199.39',1234609408,'LOG_PURGE_CACHE',''),(210,0,2,0,0,0,'87.222.199.39',1234617876,'LOG_ADMIN_AUTH_SUCCESS',''),(211,0,2,0,0,0,'87.222.199.39',1234617887,'LOG_PURGE_CACHE',''),(212,0,2,0,0,0,'87.222.199.39',1234618110,'LOG_PURGE_CACHE',''),(213,0,2,0,0,0,'87.222.199.39',1234618223,'LOG_PURGE_CACHE',''),(214,0,2,0,0,0,'87.222.199.39',1234618293,'LOG_PURGE_CACHE',''),(215,0,2,0,0,0,'87.222.199.39',1234618879,'LOG_PURGE_CACHE',''),(216,0,2,0,0,0,'87.222.199.39',1234619105,'LOG_PURGE_CACHE',''),(217,0,2,0,0,0,'87.222.199.39',1234619633,'LOG_PURGE_CACHE',''),(218,0,2,0,0,0,'87.222.199.39',1234619701,'LOG_PURGE_CACHE',''),(219,0,2,0,0,0,'87.222.199.39',1234620222,'LOG_PURGE_CACHE',''),(220,0,2,0,0,0,'87.222.199.39',1234620326,'LOG_PURGE_CACHE',''),(221,0,2,0,0,0,'87.222.199.39',1234620547,'LOG_PURGE_CACHE',''),(222,0,2,0,0,0,'87.222.199.39',1234620777,'LOG_PURGE_CACHE',''),(223,0,2,0,0,0,'87.222.199.39',1234620896,'LOG_PURGE_CACHE',''),(224,0,2,0,0,0,'87.222.199.39',1234620973,'LOG_PURGE_CACHE',''),(225,0,2,0,0,0,'87.222.199.39',1234621151,'LOG_PURGE_CACHE',''),(226,0,2,0,0,0,'87.222.199.39',1234621225,'LOG_PURGE_CACHE',''),(227,0,2,0,0,0,'87.222.199.39',1234621324,'LOG_PURGE_CACHE',''),(228,0,2,0,0,0,'87.222.199.39',1234621415,'LOG_PURGE_CACHE',''),(229,0,2,0,0,0,'87.222.199.39',1234621531,'LOG_PURGE_CACHE',''),(230,0,2,0,0,0,'87.222.199.39',1234621649,'LOG_PURGE_CACHE',''),(231,0,2,0,0,0,'87.222.199.39',1234621751,'LOG_PURGE_CACHE',''),(232,0,2,0,0,0,'87.222.199.39',1234621832,'LOG_PURGE_CACHE',''),(233,0,2,0,0,0,'87.222.199.39',1234621880,'LOG_PURGE_CACHE',''),(234,0,2,0,0,0,'87.222.199.39',1234622961,'LOG_PURGE_CACHE',''),(235,0,2,0,0,0,'87.222.199.39',1234623071,'LOG_PURGE_CACHE',''),(236,0,2,0,0,0,'87.222.199.39',1234623187,'LOG_PURGE_CACHE',''),(237,0,2,0,0,0,'87.222.199.39',1234623269,'LOG_PURGE_CACHE',''),(238,0,2,0,0,0,'87.222.199.39',1234623332,'LOG_PURGE_CACHE',''),(239,0,2,0,0,0,'87.222.199.39',1234623457,'LOG_PURGE_CACHE',''),(240,0,2,0,0,0,'87.222.199.39',1234623509,'LOG_PURGE_CACHE',''),(241,0,2,0,0,0,'87.222.199.39',1234623581,'LOG_PURGE_CACHE',''),(242,0,2,0,0,0,'87.222.199.39',1234623703,'LOG_PURGE_CACHE',''),(243,0,2,0,0,0,'87.222.199.39',1234624069,'LOG_PURGE_CACHE',''),(244,0,2,0,0,0,'87.222.199.39',1234624143,'LOG_PURGE_CACHE',''),(245,0,2,0,0,0,'87.222.199.39',1234624224,'LOG_PURGE_CACHE',''),(246,0,2,0,0,0,'87.222.199.39',1234624309,'LOG_PURGE_CACHE',''),(247,0,2,0,0,0,'87.222.199.39',1234624402,'LOG_PURGE_CACHE',''),(248,0,2,0,0,0,'87.222.199.39',1234624474,'LOG_PURGE_CACHE',''),(249,0,2,0,0,0,'87.222.199.39',1234625151,'LOG_PURGE_CACHE',''),(250,0,2,0,0,0,'87.222.199.39',1234625225,'LOG_PURGE_CACHE',''),(251,0,2,0,0,0,'87.222.199.39',1234625311,'LOG_PURGE_CACHE',''),(252,0,2,0,0,0,'87.222.199.39',1234625406,'LOG_PURGE_CACHE',''),(253,0,2,0,0,0,'87.222.199.39',1234625497,'LOG_PURGE_CACHE',''),(254,0,2,0,0,0,'87.222.199.39',1234625703,'LOG_PURGE_CACHE',''),(255,0,2,0,0,0,'87.222.199.39',1234625759,'LOG_PURGE_CACHE',''),(256,0,2,0,0,0,'87.222.199.39',1234625816,'LOG_PURGE_CACHE',''),(257,0,2,0,0,0,'87.222.199.39',1234626381,'LOG_PURGE_CACHE',''),(258,0,2,0,0,0,'87.222.199.39',1234626434,'LOG_PURGE_CACHE',''),(259,0,2,0,0,0,'87.222.199.39',1234626590,'LOG_PURGE_CACHE',''),(260,0,2,0,0,0,'87.222.199.39',1234626663,'LOG_PURGE_CACHE',''),(261,0,2,0,0,0,'87.222.199.39',1234626749,'LOG_PURGE_CACHE',''),(262,0,2,0,0,0,'87.222.199.39',1234626795,'LOG_PURGE_CACHE',''),(263,0,2,0,0,0,'87.222.199.39',1234627159,'LOG_PURGE_CACHE',''),(264,0,2,0,0,0,'87.222.199.39',1234627169,'LOG_PURGE_CACHE',''),(265,0,2,0,0,0,'87.222.199.39',1234627397,'LOG_PURGE_CACHE',''),(266,0,2,0,0,0,'87.222.199.39',1234627506,'LOG_PURGE_CACHE',''),(267,0,2,0,0,0,'87.222.199.39',1234627571,'LOG_PURGE_CACHE',''),(268,0,2,0,0,0,'87.222.199.39',1234627680,'LOG_PURGE_CACHE',''),(269,0,2,0,0,0,'87.222.199.39',1234627738,'LOG_PURGE_CACHE',''),(270,0,2,0,0,0,'87.222.199.39',1234627877,'LOG_PURGE_CACHE',''),(271,0,2,0,0,0,'87.222.199.39',1234628297,'LOG_PURGE_CACHE',''),(272,0,2,0,0,0,'87.222.199.39',1234628497,'LOG_PURGE_CACHE',''),(273,0,2,0,0,0,'87.222.199.39',1234628646,'LOG_PURGE_CACHE',''),(274,0,2,0,0,0,'87.222.199.39',1234628713,'LOG_PURGE_CACHE',''),(275,0,2,0,0,0,'87.222.199.39',1234628773,'LOG_PURGE_CACHE',''),(276,0,2,0,0,0,'87.222.199.39',1234628843,'LOG_PURGE_CACHE',''),(277,0,2,0,0,0,'87.222.199.39',1234628925,'LOG_PURGE_CACHE',''),(278,0,2,0,0,0,'87.222.199.39',1234629347,'LOG_PURGE_CACHE',''),(279,0,2,0,0,0,'87.222.199.39',1234629916,'LOG_PURGE_CACHE',''),(280,0,2,0,0,0,'87.222.199.39',1234630053,'LOG_PURGE_CACHE',''),(281,0,2,0,0,0,'87.222.199.39',1234630109,'LOG_PURGE_CACHE',''),(282,0,2,0,0,0,'87.222.199.39',1234630185,'LOG_PURGE_CACHE',''),(283,0,2,0,0,0,'87.222.199.39',1234630245,'LOG_PURGE_CACHE',''),(284,0,2,0,0,0,'87.222.199.39',1234630411,'LOG_PURGE_CACHE',''),(285,0,2,0,0,0,'87.222.199.39',1234630503,'LOG_PURGE_CACHE',''),(286,0,2,0,0,0,'87.222.199.39',1234630559,'LOG_PURGE_CACHE',''),(287,0,2,0,0,0,'87.222.199.39',1234630715,'LOG_PURGE_CACHE',''),(288,0,2,0,0,0,'87.222.199.39',1234630855,'LOG_PURGE_CACHE',''),(289,0,2,0,0,0,'87.222.199.39',1234630922,'LOG_PURGE_CACHE',''),(290,0,2,0,0,0,'87.222.199.39',1234630973,'LOG_PURGE_CACHE',''),(291,0,2,0,0,0,'87.222.199.39',1234631175,'LOG_PURGE_CACHE',''),(292,0,2,0,0,0,'87.222.199.39',1234631246,'LOG_PURGE_CACHE',''),(293,0,2,0,0,0,'87.222.199.39',1234631352,'LOG_PURGE_CACHE',''),(294,0,2,0,0,0,'87.222.199.39',1234632737,'LOG_PURGE_CACHE',''),(295,0,2,0,0,0,'87.222.198.85',1234653588,'LOG_ADMIN_AUTH_SUCCESS',''),(296,0,2,0,0,0,'87.222.198.85',1234653656,'LOG_PURGE_CACHE',''),(297,1,1104,6,14589,0,'201.255.32.206',1234653827,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Hubicarse en un registro de un listbox\";}'),(298,0,2,0,0,0,'87.222.198.85',1234654358,'LOG_ADMIN_AUTH_SUCCESS',''),(299,0,2,0,0,0,'87.222.198.85',1234654370,'LOG_PURGE_CACHE',''),(300,0,2,0,0,0,'87.222.198.85',1234654543,'LOG_ADMIN_AUTH_SUCCESS',''),(301,0,2,0,0,0,'87.222.198.85',1234654554,'LOG_PURGE_CACHE',''),(302,0,2,0,0,0,'87.222.198.85',1234655090,'LOG_ADMIN_AUTH_SUCCESS',''),(303,0,2,0,0,0,'87.222.198.85',1234655103,'LOG_PURGE_CACHE',''),(304,0,2,0,0,0,'87.222.198.85',1234655823,'LOG_PURGE_CACHE',''),(305,0,2,0,0,0,'87.222.198.85',1234655967,'LOG_PURGE_CACHE',''),(306,0,2,0,0,0,'87.222.198.85',1234656181,'LOG_PURGE_CACHE',''),(307,0,2,0,0,0,'87.222.198.85',1234656756,'LOG_PURGE_CACHE',''),(308,0,2,0,0,0,'87.222.198.85',1234657022,'LOG_PURGE_CACHE',''),(309,0,2,0,0,0,'87.222.198.85',1234663624,'LOG_ADMIN_AUTH_FAIL',''),(310,0,2,0,0,0,'87.222.198.85',1234663630,'LOG_ADMIN_AUTH_SUCCESS',''),(311,0,2,0,0,0,'87.222.198.85',1234663644,'LOG_PURGE_CACHE',''),(312,0,2,0,0,0,'87.222.198.85',1234663837,'LOG_ADMIN_AUTH_SUCCESS',''),(313,0,2,0,0,0,'87.222.198.85',1234663847,'LOG_PURGE_CACHE',''),(314,0,2,0,0,0,'87.222.198.85',1234664287,'LOG_ADMIN_AUTH_SUCCESS',''),(315,0,2,0,0,0,'87.222.198.85',1234664298,'LOG_PURGE_CACHE',''),(316,0,2,0,0,0,'87.222.198.85',1234664536,'LOG_PURGE_CACHE',''),(317,0,2,0,0,0,'87.222.198.85',1234664618,'LOG_PURGE_CACHE',''),(318,0,2,0,0,0,'87.222.198.85',1234664750,'LOG_PURGE_CACHE',''),(319,0,2,0,0,0,'87.222.198.85',1234665750,'LOG_PURGE_CACHE',''),(320,0,2,0,0,0,'87.222.198.85',1234666180,'LOG_PURGE_CACHE',''),(321,0,2,0,0,0,'87.222.198.85',1234666406,'LOG_PURGE_CACHE',''),(322,0,2,0,0,0,'87.222.198.85',1234666508,'LOG_PURGE_CACHE',''),(323,0,2,0,0,0,'87.222.198.85',1234666693,'LOG_PURGE_CACHE',''),(324,1,2,3,6971,0,'87.222.198.85',1234666799,'LOG_POST_EDITED','a:2:{i:0;s:27:\"oPrn:SetSize(nWidth,nHeigt)\";i:1;s:7:\"Armando\";}'),(325,0,2,0,0,0,'87.222.198.85',1234666877,'LOG_PURGE_CACHE',''),(326,1,2,6,14399,0,'87.222.198.85',1234666920,'LOG_POST_EDITED','a:2:{i:0;s:21:\"oPrinter:SetCopies(n)\";i:1;s:8:\"Mauricio\";}'),(327,0,2,0,0,0,'87.222.198.85',1234668825,'LOG_PURGE_CACHE',''),(328,1,249,6,14554,0,'190.74.52.221',1234669342,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Movimiento post edicion xbrowse\";}'),(329,0,2,0,0,0,'87.222.198.85',1234669801,'LOG_PURGE_CACHE',''),(330,0,2,0,0,0,'87.222.199.39',1234692391,'LOG_ADMIN_AUTH_SUCCESS',''),(331,1,2,3,14584,0,'87.222.199.39',1234692512,'LOG_POST_EDITED','a:2:{i:0;s:33:\"How Open Cash Drawer via printer?\";i:1;s:5:\"dutch\";}'),(332,0,2,0,0,0,'87.222.199.39',1234692523,'LOG_DB_BACKUP',''),(333,1,2,3,14584,0,'87.222.199.39',1234692581,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Re: How Open Cash Drawer via printer?\";i:1;s:4:\"Otto\";}'),(334,0,2,0,0,0,'87.222.199.39',1234692858,'LOG_ADMIN_AUTH_SUCCESS',''),(335,0,2,0,0,0,'87.222.199.39',1234692883,'LOG_PURGE_CACHE',''),(336,0,2,0,0,0,'87.222.199.39',1234693048,'LOG_PURGE_CACHE',''),(337,0,2,0,0,0,'87.222.199.39',1234693234,'LOG_PURGE_CACHE',''),(338,0,2,0,0,0,'87.222.199.39',1234694832,'LOG_PURGE_CACHE',''),(339,0,2,0,0,0,'87.222.199.39',1234695026,'LOG_PURGE_CACHE',''),(340,1,2,3,14591,0,'87.222.199.39',1234695153,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Syntax highlight in these forums\";}'),(341,0,2,0,0,0,'87.222.199.39',1234695460,'LOG_PURGE_CACHE',''),(342,1,2,3,14591,0,'87.222.199.39',1234695527,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Syntax highlight in these forums\";}'),(343,1,2,3,14591,0,'87.222.199.39',1234695537,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Syntax highlight in these forums\";}'),(344,1,2,3,14591,0,'87.222.199.39',1234695709,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Syntax highlight in these forums\";}'),(345,1,2,3,14591,0,'87.222.199.39',1234696037,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Syntax highlight in these forums\";}'),(346,1,2,3,14594,0,'87.222.199.39',1234697339,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Combobox dropdown style - search\";}'),(347,0,2,0,0,0,'87.222.198.85',1234712773,'LOG_ADMIN_AUTH_SUCCESS',''),(348,0,2,0,0,0,'87.222.198.85',1234712784,'LOG_PURGE_CACHE',''),(349,0,2,0,0,0,'87.222.198.85',1234714588,'LOG_PURGE_CACHE',''),(350,1,2,3,14594,0,'87.222.198.85',1234717407,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Combobox dropdown style - search\";i:1;s:4:\"Otto\";}'),(351,1,2,3,14594,0,'87.222.198.85',1234717479,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: Combobox dropdown style - search\";i:1;s:7:\"ukoenig\";}'),(352,1,2,3,14594,0,'87.222.198.85',1234728494,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Combobox dropdown style - search\";i:1;s:4:\"Otto\";}'),(353,1,2,3,12565,0,'87.222.198.85',1234733427,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Unresolved externals\";i:1;s:12:\"Patrick Mast\";}'),(354,1,1104,6,14592,0,'201.255.60.195',1234733566,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Resaltado de sintaxis en estos foros\";}'),(355,3,1666,0,0,1666,'71.12.76.9',1234757431,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"toddevans\";}'),(356,0,2,0,0,0,'87.222.199.131',1234771279,'LOG_ADMIN_AUTH_SUCCESS',''),(357,0,2,0,0,0,'87.222.199.131',1234771291,'LOG_PURGE_CACHE',''),(358,0,2,0,0,0,'87.222.199.131',1234771392,'LOG_ADMIN_AUTH_FAIL',''),(359,0,2,0,0,0,'87.222.199.131',1234771401,'LOG_ADMIN_AUTH_SUCCESS',''),(360,0,2,0,0,0,'87.222.199.131',1234771413,'LOG_PURGE_CACHE',''),(361,1,1257,3,14594,0,'85.182.20.59',1234782368,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Combobox dropdown style - search\";}'),(362,1,2,6,14588,0,'87.222.199.131',1234796317,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Manejo del Mouse\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(363,1,2,6,14588,0,'87.222.199.131',1234796590,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Manejo del Mouse\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(364,1,2,6,14588,0,'87.222.199.131',1234796680,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Manejo del Mouse\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(365,1,2,6,14588,0,'87.222.199.131',1234796719,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Manejo del Mouse\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(366,1,2,6,14588,0,'87.222.199.131',1234796736,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Manejo del Mouse\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(367,1,2,3,14593,0,'87.222.198.85',1234814274,'LOG_POST_EDITED','a:2:{i:0;s:53:\"Re: GPF In Borland Resource Workshop with New Machine\";i:1;s:11:\"Rick Lipkin\";}'),(368,1,249,20,14601,0,'190.74.52.221',1234822656,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: accesso a database SQL\";i:1;s:21:\"Enrico Maria Giordano\";}'),(369,1,2,20,14601,0,'87.222.198.85',1234822717,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: accesso a database SQL\";i:1;s:21:\"Enrico Maria Giordano\";}'),(370,1,249,6,14564,0,'190.74.52.221',1234823011,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: Variables PRIVATE\";i:1;s:8:\"ADBLANCO\";}'),(371,3,358,0,0,358,'81.33.75.230',1234830095,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"Salvador\";i:1;s:28:\"salvador@gallayme.jazztel.es\";i:2;s:22:\"salvagallard@gmail.com\";}'),(372,1,249,6,14612,0,'190.74.52.221',1234907160,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: Problemas con Folder de la Version FWH 9.01\";i:1;s:10:\"DiGregorio\";}'),(373,1,1521,18,14599,0,'189.22.134.132',1234955996,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: ChooseFont() Don\'t return the color selected\";}'),(374,0,2,0,0,0,'87.222.198.99',1234962762,'LOG_ADMIN_AUTH_SUCCESS',''),(375,0,2,0,0,0,'87.222.198.99',1234962880,'LOG_DB_BACKUP',''),(376,1,1458,6,14624,0,'80.32.243.219',1234969755,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"TxBrowse y SelectAll\";}'),(377,1,1313,6,14623,0,'189.26.68.242',1234990209,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Ajuda para enviar comando para impressora\";}'),(378,0,2,0,0,0,'87.222.198.99',1235035136,'LOG_ADMIN_AUTH_SUCCESS',''),(379,0,2,0,0,0,'87.222.198.99',1235035250,'LOG_DB_BACKUP',''),(380,1,2,6,14639,0,'87.222.198.99',1235048175,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Ayuda con Menús.\";i:1;s:11:\"triumvirato\";}'),(381,1,1068,3,14600,0,'200.153.245.50',1235054166,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Thread on FWH\";}'),(382,1,2,4,12217,0,'87.222.198.99',1235111662,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Using ADOCE\";}'),(383,0,2,0,0,0,'87.222.198.99',1235111989,'LOG_ADMIN_AUTH_SUCCESS',''),(384,0,2,0,0,0,'87.222.198.99',1235112146,'LOG_USER_DEL_SIG','a:1:{i:0;s:17:\"lailton.webmaster\";}'),(385,3,2,0,0,1387,'87.222.198.99',1235112146,'LOG_USER_DEL_SIG_USER',''),(386,1,2,6,14617,0,'87.222.198.99',1235115070,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ErrSysW y Rebars\";}'),(387,3,1140,0,0,1140,'189.24.87.229',1235133196,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"marca\";}'),(388,3,1140,0,0,1140,'189.24.87.229',1235133196,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"marca\";i:1;s:22:\"marca@compuland.com.br\";i:2;s:31:\"marcelo@marcainformatica.com.br\";}'),(389,0,2,0,0,0,'87.222.199.34',1235170728,'LOG_ADMIN_AUTH_SUCCESS',''),(390,0,2,0,0,0,'87.222.199.34',1235170838,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:6:\"Javier\";}'),(391,0,2,0,0,0,'87.222.199.34',1235170918,'LOG_ADMIN_AUTH_SUCCESS',''),(392,0,2,0,0,0,'87.222.199.34',1235170933,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:6:\"Javier\";}'),(393,0,2,0,0,0,'87.222.199.34',1235170967,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"javierSoft\";}'),(394,0,2,0,0,0,'87.222.199.34',1235171104,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"javierSoft\";}'),(395,1,2,3,14667,0,'87.222.199.34',1235216762,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: TEXTBOX CHANGE EVENT\";i:1;s:7:\"anserkk\";}'),(396,1,2,3,14667,0,'87.222.199.34',1235216857,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: TEXTBOX CHANGE EVENT\";i:1;s:7:\"anserkk\";}'),(397,0,2,0,0,0,'87.222.199.34',1235242584,'LOG_ADMIN_AUTH_SUCCESS',''),(398,0,2,0,0,0,'87.222.199.34',1235242752,'LOG_DB_BACKUP',''),(399,1,2,6,11267,0,'87.222.198.99',1235390782,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Listas de distribucion con OutLook\";i:1;s:8:\"JmGarcia\";}'),(400,1,1387,6,14680,0,'201.69.213.97',1235447187,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Help With CodeJock\";}'),(401,1,2,3,14685,0,'87.222.198.99',1235480675,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Re: Error in code\";i:1;s:7:\"anserkk\";}'),(402,1,1257,3,14701,0,'85.182.20.150',1235519209,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"Possible, to patch a EXE with a defined string ?\";}'),(403,1,2,3,14681,0,'87.222.199.231',1235520704,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Re: Help codejock\";i:1;s:15:\"richard-service\";}'),(404,3,904,0,0,904,'196.35.158.178',1235587480,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Ollie\";}'),(405,3,1336,0,0,1336,'190.207.172.225',1235601207,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"pinzon_jesus\";}'),(406,0,2,0,0,0,'87.222.198.99',1235647487,'LOG_ADMIN_AUTH_SUCCESS',''),(407,0,2,0,0,0,'87.222.198.99',1235647498,'LOG_PURGE_CACHE',''),(408,1,36,6,14663,0,'200.113.108.250',1235652419,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: enviar emails desde fwh\";}'),(409,1,36,6,14663,0,'200.113.108.250',1235652571,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: enviar emails desde fwh\";}'),(410,0,2,0,0,0,'87.222.198.99',1235654243,'LOG_DB_BACKUP',''),(411,1,303,3,14718,0,'72.220.140.249',1235656718,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: SetFocus to element in array\";}'),(412,0,2,0,0,0,'87.222.198.99',1235675392,'LOG_ADMIN_AUTH_SUCCESS',''),(413,0,2,0,0,0,'87.222.198.99',1235675442,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"JavierVital\";}'),(414,0,2,0,0,0,'87.222.198.99',1235675454,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"JavierVital\";}'),(415,1,36,6,14729,0,'200.113.108.250',1235688285,'LOG_DELETE_TOPIC','a:1:{i:0;s:5:\"ASORT\";}'),(416,1,249,6,14732,0,'190.74.52.221',1235697153,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"xBrowse con array vacio\";}'),(417,0,2,0,0,0,'87.222.198.99',1235729889,'LOG_ADMIN_AUTH_SUCCESS',''),(418,0,2,0,0,0,'87.222.198.99',1235730011,'LOG_DB_BACKUP',''),(419,1,1677,3,14738,0,'121.247.146.76',1235735944,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Command Object Error while inserting data to Mysql\";}'),(420,0,2,0,0,0,'87.222.199.57',1235901099,'LOG_ADMIN_AUTH_SUCCESS',''),(421,0,2,0,0,0,'87.222.199.57',1235901271,'LOG_DB_BACKUP',''),(422,1,1257,3,14772,0,'85.182.22.89',1235992534,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Always  11,11\";}'),(423,1,249,3,14789,0,'190.74.52.221',1236100131,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: xBrowse Quitar Cabecera\";}'),(424,1,249,6,13246,0,'190.72.26.146',1236115021,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Aqui Un Ejemplo funcional para xbrowse\";i:1;s:10:\"FranciscoA\";}'),(425,0,2,0,0,0,'87.222.199.53',1236186746,'LOG_ADMIN_AUTH_SUCCESS',''),(426,0,2,0,0,0,'87.222.199.53',1236186833,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"erwinn\";}'),(427,3,2,0,0,1687,'87.222.199.53',1236186833,'LOG_USER_ACTIVE_USER',''),(428,1,47,3,14808,0,'61.90.13.58',1236197647,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: GET ACTION SetFocus()  question?\";}'),(429,1,1387,3,14715,0,'200.100.212.206',1236246433,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: TIP: Script to compile Harbour + FWH + MSVC 2008 Express\";}'),(430,1,1466,6,14811,0,'190.184.49.123',1236297047,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"PARA ALEX PATIÑO\";}'),(431,0,2,0,0,0,'87.222.198.56',1236364529,'LOG_ADMIN_AUTH_SUCCESS',''),(432,3,2,0,0,213,'87.222.198.56',1236364561,'LOG_USER_UPDATE_NAME','a:2:{i:0;s:15:\"Randal Ferguson\";i:1;s:6:\"Randal\";}'),(433,0,2,0,0,0,'87.222.198.56',1236364563,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"Randal\";}'),(434,1,1257,3,14833,0,'85.182.19.198',1236439451,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: ShellExecute and Outlook\";}'),(435,1,249,6,14795,0,'190.74.52.221',1236475762,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Teclas aceleradoras en TBTNBMP\";i:1;s:5:\"RodMG\";}'),(436,1,249,6,14835,0,'190.74.52.221',1236476495,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Como se pone texto en vertical en la cabecera de un xbrowse\";}'),(437,3,511,0,0,511,'190.75.254.38',1236478147,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:15:\"Alvaro Urdaneta\";i:1;s:21:\"ajcsistemas@cantv.net\";i:2;s:17:\"alvarou@cantv.net\";}'),(438,0,2,0,0,0,'87.222.199.223',1236502731,'LOG_ADMIN_AUTH_SUCCESS',''),(439,3,1486,0,0,1486,'190.208.108.38',1236569726,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"wyerco\";}'),(440,1,249,3,14820,0,'190.74.52.221',1236576994,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Adjust a Bmp to a xBrowse-Cell-Grid ?\";}'),(441,1,51,3,14793,0,'80.122.88.242',1236605965,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: How Many controls in a dialog  ?\";}'),(442,1,249,3,14594,0,'190.74.52.221',1236649581,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: Combobox dropdown style - search\";i:1;s:4:\"Otto\";}'),(443,1,249,3,14875,0,'190.74.52.221',1236733741,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: checkbox bug\";}'),(444,1,249,3,14879,0,'190.74.52.221',1236780281,'LOG_POST_EDITED','a:2:{i:0;s:18:\"CUT bitmap in part\";i:1;s:17:\"lailton.webmaster\";}'),(445,1,1466,6,14885,0,'190.184.48.175',1236797594,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Error de sintaxis en Report\";}'),(446,1,979,6,14831,0,'88.23.195.117',1236847336,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Fijar el calendario con el uso de DTPICKER\";}'),(447,1,51,3,14899,0,'80.122.88.242',1236858249,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"comboBox REDEFINE  + Bitmaps\";}'),(448,0,2,0,0,0,'87.222.198.198',1236877999,'LOG_ADMIN_AUTH_SUCCESS',''),(449,3,2,0,0,127,'87.222.198.198',1236878274,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Julio Cepeda\";}'),(450,0,2,0,0,0,'87.222.198.198',1236878274,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Julio Cepeda\";}'),(451,0,2,0,0,0,'87.222.199.211',1237121463,'LOG_ADMIN_AUTH_SUCCESS',''),(452,0,2,0,0,0,'87.222.199.211',1237121596,'LOG_PURGE_CACHE',''),(453,0,2,0,0,0,'87.222.199.211',1237122017,'LOG_ADMIN_AUTH_SUCCESS',''),(454,1,1466,6,14926,0,'190.184.48.175',1237122582,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"AYUDA CON TREPORT\";}'),(455,0,2,0,0,0,'87.222.199.211',1237125742,'LOG_ADMIN_AUTH_SUCCESS',''),(456,0,2,0,0,0,'87.222.199.179',1237131797,'LOG_ADMIN_AUTH_SUCCESS',''),(457,0,2,0,0,0,'87.222.199.179',1237131921,'LOG_DB_BACKUP',''),(458,1,2,19,14944,0,'87.222.199.179',1237309107,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(459,0,2,0,0,0,'87.222.199.179',1237325830,'LOG_ADMIN_AUTH_SUCCESS',''),(460,3,477,0,0,477,'70.55.98.154',1237389518,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"richard wilson\";}'),(461,1,249,8,14959,0,'190.74.52.221',1237420876,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:18:\"Ayuda con Visualfw\";}'),(462,1,249,0,14955,0,'190.74.52.221',1237420876,'LOG_SPLIT_SOURCE','a:1:{i:0;s:18:\"Ayuda con Visualfw\";}'),(463,1,249,8,14958,0,'190.74.52.221',1237420962,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Ayuda con VisualFW\";}'),(464,3,1676,0,0,1676,'124.107.6.11',1237424202,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"ryugarai27\";}'),(465,0,2,0,0,0,'87.222.199.164',1237459751,'LOG_ADMIN_AUTH_SUCCESS',''),(466,0,2,0,0,0,'87.222.199.164',1237459788,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"renemontano72\";}'),(467,0,2,0,0,0,'87.222.199.164',1237459794,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:13:\"renemontano72\";}'),(468,0,2,0,0,0,'87.222.199.164',1237459800,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"renemontano72\";}'),(469,1,49,3,14969,0,'213.82.134.66',1237546217,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"checkbox refresh()\";}'),(470,1,35,3,14974,0,'167.7.140.254',1237574085,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Xbrowse newbie\";}'),(471,3,394,0,0,394,'207.219.124.134',1237705328,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Mike Buckler\";}'),(472,3,343,0,0,343,'204.57.111.194',1237846235,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"Gale FORd\";}'),(473,1,249,3,14997,0,'190.74.52.221',1237856052,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Re: Interesting problem\";i:1;s:16:\"César E. Lozada\";}'),(474,1,249,3,14998,0,'190.74.52.221',1237857190,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: Stored Procedure/Function of MySql\";i:1;s:16:\"César E. Lozada\";}'),(475,1,249,3,15015,0,'190.74.52.221',1237949958,'LOG_POST_EDITED','a:2:{i:0;s:20:\"remove icon cCaption\";i:1;s:17:\"lailton.webmaster\";}'),(476,2,1,0,0,0,'80.122.88.242',1237992884,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(477,1,979,6,15012,0,'80.39.19.161',1237996879,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Implantar el control MonthCal\";}'),(478,1,1257,3,15036,0,'85.182.30.183',1238064030,'LOG_DELETE_TOPIC','a:1:{i:0;s:58:\"Different ABPaint(hDC, ..)  to  oBmp:lTransparent := .T. ?\";}'),(479,0,2,0,0,0,'87.222.199.79',1238094313,'LOG_ADMIN_AUTH_SUCCESS',''),(480,0,2,0,0,0,'87.222.199.79',1238094364,'LOG_WORD_DELETE','a:1:{i:0;s:5:\"canal\";}'),(481,1,249,3,15015,0,'190.74.52.221',1238103296,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: remove icon cCaption (Antonio Help)\";i:1;s:10:\"James Bott\";}'),(482,1,51,3,15052,0,'80.122.88.242',1238180481,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"xBrowse error with 1680*1050\";}'),(483,1,49,20,14802,0,'94.162.179.84',1238290292,'LOG_DELETE_TOPIC','a:1:{i:0;s:7:\"Per Emg\";}'),(484,1,49,20,13641,0,'94.162.179.84',1238290490,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(485,1,422,6,2048,0,'195.8.25.135',1238310228,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Xbrowse e bloques de codigo\";}'),(486,1,249,17,13664,0,'190.37.255.102',1238358495,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Set Image Aspect Ratio\";i:1;s:16:\"César E. Lozada\";}'),(487,1,1257,3,15078,0,'85.182.25.162',1238421583,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Hight, Low and Average dates\";}'),(488,1,1257,3,15078,0,'85.182.25.162',1238435259,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Hight, Low and Average dates\";}'),(489,1,1257,3,15101,0,'85.182.26.196',1238530498,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Language-Translation in Forum\";}'),(490,1,2,3,15102,0,'87.222.199.221',1238534143,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";i:1;s:17:\"nageswaragunupudi\";}'),(491,1,2,3,15102,0,'87.222.199.221',1238534162,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";i:1;s:4:\"Otto\";}'),(492,1,2,3,15102,0,'87.222.199.221',1238537242,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(493,1,2,3,15102,0,'87.222.199.221',1238537438,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(494,1,2,3,15102,0,'87.222.199.221',1238537535,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(495,1,2,6,15103,0,'87.222.199.221',1238537612,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Codejock RibbonBar primeras pruebas\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(496,1,2,6,15103,0,'87.222.199.221',1238539930,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Codejock RibbonBar primeras pruebas\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(497,1,2,3,15102,0,'87.222.199.221',1238539962,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(498,1,1257,3,15099,0,'85.182.25.43',1238566657,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: sound when click in button\";}'),(499,1,2,3,15102,0,'87.222.199.221',1238575078,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(500,1,2,3,15077,0,'87.222.199.221',1238575272,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Stoped CodeJock.Lib\";}'),(501,1,2,3,15077,0,'87.222.199.221',1238575820,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Stoped CodeJock.Lib\";}'),(502,1,2,3,15102,0,'87.222.199.221',1238575897,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(503,1,2,3,15077,0,'87.222.199.221',1238577220,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: New Library CodeJock.Lib\";i:1;s:7:\"anserkk\";}'),(504,0,2,0,0,0,'87.222.199.221',1238580543,'LOG_ADMIN_AUTH_SUCCESS',''),(505,0,2,0,0,0,'87.222.199.221',1238580578,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"FRA_RAMIREZ\";}'),(506,0,2,0,0,0,'87.222.199.221',1238580585,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"FRA_RAMIREZ\";}'),(507,1,249,3,15105,0,'190.74.52.221',1238592517,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: FWH903 and btnget issue?\";}'),(508,1,2,3,15102,0,'87.222.199.79',1238594891,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(509,1,2,3,15102,0,'87.222.199.79',1238595620,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(510,0,2,0,0,0,'87.222.199.79',1238626833,'LOG_ADMIN_AUTH_SUCCESS',''),(511,3,1327,0,0,1327,'79.151.158.132',1238670557,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jfafive\";i:1;s:15:\"jfa_y@yahoo.com\";i:2;s:23:\"info@teleinformatica.eu\";}'),(512,1,249,6,15110,0,'190.74.52.221',1238679504,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Algunos problemillas\";}'),(513,0,2,0,0,0,'87.222.198.80',1238766541,'LOG_ADMIN_AUTH_SUCCESS',''),(514,0,2,0,0,0,'87.222.198.80',1238766798,'LOG_BAN_USER','a:2:{i:0;s:20:\"waiting for the code\";i:1;s:15:\"richard-service\";}'),(515,1,2,0,0,0,'87.222.198.80',1238766798,'LOG_BAN_USER','a:2:{i:0;s:20:\"waiting for the code\";i:1;s:15:\"richard-service\";}'),(516,0,2,0,0,0,'87.222.198.80',1238767568,'LOG_BAN_EXCLUDE_USER','a:2:{i:0;s:0:\"\";i:1;s:15:\"richard-service\";}'),(517,1,2,0,0,0,'87.222.198.80',1238767568,'LOG_BAN_EXCLUDE_USER','a:2:{i:0;s:0:\"\";i:1;s:15:\"richard-service\";}'),(518,0,2,0,0,0,'87.222.199.79',1238773106,'LOG_ADMIN_AUTH_SUCCESS',''),(519,1,51,4,15133,0,'80.122.88.242',1238782849,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"how to disable vertical scrollbar listbox\";}'),(520,1,51,4,15130,0,'80.122.88.242',1238783354,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: How do HIDETASKBAR / HIDESTARTICON functional for DIALOGs ?\";}'),(521,0,2,0,0,0,'83.59.230.86',1238879264,'LOG_ADMIN_AUTH_SUCCESS',''),(522,1,2,6,15136,0,'87.222.199.79',1238954553,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Cambiar los Encabezados de Columnas de TReport\";i:1;s:11:\"JavierVital\";}'),(523,1,1427,3,15102,0,'202.88.227.131',1239005055,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(524,3,309,0,0,309,'194.204.28.27',1239178102,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Taavi\";}'),(525,1,281,3,15173,0,'218.39.136.177',1239188282,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"FWH 9.03 link Error...!!!\";}'),(526,3,1406,0,0,1406,'78.176.204.21',1239196167,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Horizon\";}'),(527,1,2,6,15171,0,'87.222.198.125',1239229688,'LOG_POST_EDITED','a:2:{i:0;s:51:\"Re: Clase TActiveX mejorada y RibbonBar más fácil\";i:1;s:9:\"Cgallegoa\";}'),(528,3,31,0,0,31,'79.142.112.69',1239259766,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Rimantas\";}'),(529,0,2,0,0,0,'87.222.198.198',1239288417,'LOG_ADMIN_AUTH_SUCCESS',''),(530,3,2,0,0,455,'87.222.198.198',1239288469,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:12:\"E. Bartzokas\";i:1;s:15:\"ebartzok@hol.gr\";i:2;s:20:\"ebartzokas@gmail.com\";}'),(531,3,2,0,0,455,'87.222.198.198',1239288469,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"E. Bartzokas\";}'),(532,0,2,0,0,0,'87.222.198.198',1239288469,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"E. Bartzokas\";}'),(533,1,249,6,15211,0,'190.74.52.221',1239352508,'LOG_POST_EDITED','a:2:{i:0;s:34:\"XBrowse con Alpha Channel Bitmaps!\";i:1;s:15:\"Antonio Linares\";}'),(534,1,249,6,15211,0,'190.74.52.221',1239352595,'LOG_POST_EDITED','a:2:{i:0;s:34:\"XBrowse con Alpha Channel Bitmaps!\";i:1;s:15:\"Antonio Linares\";}'),(535,1,52,6,15209,0,'190.224.74.175',1239375152,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: como capturo el click en cabecera twbrowse\";}'),(536,1,1257,3,15220,0,'85.182.20.82',1239383785,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Valid email address\";}'),(537,1,2,18,11476,0,'87.222.199.84',1239388651,'LOG_POST_EDITED','a:2:{i:0;s:10:\"MDI window\";i:1;s:21:\"Enrico Maria Giordano\";}'),(538,1,2,3,11616,0,'87.222.199.120',1239444286,'LOG_POST_EDITED','a:2:{i:0;s:30:\"TsBrowse with ADORDD Recordset\";i:1;s:8:\"sanilpmc\";}'),(539,1,2,3,11616,0,'87.222.199.120',1239444399,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: TsBrowse with ADORDD Recordset\";i:1;s:8:\"sanilpmc\";}'),(540,1,2,3,11616,0,'87.222.199.120',1239444422,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: TsBrowse with ADORDD Recordset\";i:1;s:8:\"mmercado\";}'),(541,1,2,3,11616,0,'87.222.199.120',1239444450,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: TsBrowse with ADORDD Recordset\";i:1;s:8:\"mmercado\";}'),(542,1,2,6,15232,0,'87.222.198.222',1239458450,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: UEstudio  download?\";}'),(543,1,249,6,15205,0,'190.37.255.102',1239475459,'LOG_POST_EDITED','a:2:{i:0;s:45:\"Re: Como puedo hacer mas vistosos los Folders\";i:1;s:7:\"jfafive\";}'),(544,1,1446,6,15240,0,'190.42.125.7',1239491951,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"salir de un dialogo\";}'),(545,1,249,18,15239,0,'190.74.52.221',1239554347,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Bug in TBtnBmp\";}'),(546,1,2,3,14863,0,'87.222.198.222',1239619851,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Creating a LIB or DLL\";i:1;s:12:\"Dave Zowasky\";}'),(547,1,2,3,14863,0,'87.222.198.222',1239620110,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Creating a LIB or DLL\";i:1;s:12:\"Dave Zowasky\";}'),(548,1,2,3,15244,0,'87.222.198.222',1239654437,'LOG_POST_EDITED','a:2:{i:0;s:30:\"Re: My RibbonBar + ExplorerBar\";i:1;s:13:\"carlos vargas\";}'),(549,0,2,0,0,0,'87.222.199.229',1239728815,'LOG_ADMIN_AUTH_SUCCESS',''),(550,3,904,0,0,904,'196.35.158.178',1239802503,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Ollie\";}'),(551,1,2,3,15281,0,'87.222.199.229',1239812252,'LOG_MOVE','a:2:{i:0;s:20:\"WhatsNew / Novedades\";i:1;s:28:\"FiveWin for Harbour/xHarbour\";}'),(552,1,2,3,15244,0,'87.222.199.229',1239812444,'LOG_POST_EDITED','a:2:{i:0;s:30:\"Re: My RibbonBar + ExplorerBar\";i:1;s:4:\"fafi\";}'),(553,1,2,6,15287,0,'87.222.199.229',1239834390,'LOG_MOVE','a:2:{i:0;s:20:\"WhatsNew / Novedades\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(554,3,52,0,0,52,'190.31.89.195',1239835044,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"goosfancito\";}'),(555,3,52,0,0,52,'190.31.89.195',1239835044,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:11:\"goosfancito\";i:1;s:21:\"goosfancito@gmail.com\";i:2;s:22:\"fwh@goosfancito.com.ar\";}'),(556,1,2,6,3059,0,'87.222.199.229',1239914140,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Se esta volviendo viejo el foro?\";i:1;s:10:\"Biel EA6DD\";}'),(557,1,2,6,3059,0,'87.222.199.229',1239914197,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Se esta volviendo viejo el foro?\";i:1;s:13:\"Manuel Aranda\";}'),(558,1,2,4,15306,0,'87.222.198.101',1239961686,'LOG_POST_EDITED','a:2:{i:0;s:13:\"Nice surprise\";i:1;s:4:\"Otto\";}'),(559,1,456,6,15271,0,'79.109.212.189',1239964768,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: DLL para monitorar 1 camara IP - AXIS\";}'),(560,1,1692,6,15269,0,'201.24.180.69',1239995630,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: XBrowse y Colores\";}'),(561,0,2,0,0,0,'87.222.199.229',1240090764,'LOG_ADMIN_AUTH_SUCCESS',''),(562,0,2,0,0,0,'87.222.199.229',1240090809,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"ARROW\";}'),(563,0,2,0,0,0,'87.222.199.229',1240090816,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"ARROW\";}'),(564,0,2,0,0,0,'87.222.198.101',1240133670,'LOG_ADMIN_AUTH_SUCCESS',''),(565,3,2,0,0,995,'87.222.198.101',1240133698,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"demont frank\";}'),(566,0,2,0,0,0,'87.222.198.101',1240133699,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"demont frank\";}'),(567,1,2,6,15323,0,'87.222.198.101',1240163648,'LOG_POST_EDITED','a:2:{i:0;s:15:\"amigos del foro\";i:1;s:13:\"Ramon Paredes\";}'),(568,3,52,0,0,52,'201.253.186.69',1240176499,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"goosfancito\";}'),(569,0,2,0,0,0,'121.138.66.106',1240298312,'LOG_ADMIN_AUTH_SUCCESS',''),(570,3,2,0,0,52,'121.138.66.106',1240298697,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"goosfancito\";}'),(571,0,2,0,0,0,'121.138.66.106',1240298697,'LOG_USER_USER_UPDATE','a:1:{i:0;s:11:\"goosfancito\";}'),(572,1,358,7,14635,0,'81.45.226.9',1240331056,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Soporte de MySQL para FWPPC !!!\";}'),(573,1,249,6,15336,0,'190.74.52.221',1240352355,'LOG_POST_EDITED','a:2:{i:0;s:59:\"Dialogo con fuentes &quot;como en bold&quot;...extraño....\";i:1;s:5:\"dbzap\";}'),(574,3,52,0,0,52,'190.224.75.37',1240438089,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"goosfancito\";}'),(575,1,1255,3,15362,0,'189.188.208.226',1240442480,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Error 9000 with FWH 9.04\";}'),(576,1,1427,6,15373,0,'202.88.227.131',1240564425,'LOG_DELETE_POST','a:1:{i:0;s:10:\"Re: Dialog\";}'),(577,1,281,3,15375,0,'125.146.83.121',1240645887,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Like this case substitution? help me please.\";}'),(578,1,1257,3,15410,0,'78.50.22.241',1240776002,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Tabs / Dialogs\";}'),(579,1,1357,6,15398,0,'87.217.127.212',1240850822,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"¿ COMO REPRODUCIR VIDEO  ?\";}'),(580,1,1684,6,15389,0,'189.131.146.3',1240871250,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Click Izq. en Data de Xbrowse\";}'),(581,1,49,4,15411,0,'213.82.134.66',1240917052,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"many dbf into a prg\";}'),(582,1,1357,6,15402,0,'87.217.127.232',1240936172,'LOG_DELETE_TOPIC','a:1:{i:0;s:65:\"perdido en el uso de la CLASE TVIDEO de &quot;Rafa Carmonal&quot;\";}'),(583,3,913,0,0,913,'201.137.76.195',1240960866,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"AIDA\";}'),(584,1,1387,6,15441,0,'201.69.8.50',1241007871,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: FWH próxima RibbonBar !\";}'),(585,1,1387,3,15440,0,'201.69.8.50',1241007893,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: FWH built-in RibbonBar !\";}'),(586,1,319,3,15455,0,'189.18.248.16',1241035788,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Lianrea! Erro nos METHOD HIDE()\";}'),(587,1,2,3,15489,0,'220.76.6.197',1241484272,'LOG_POST_EDITED','a:2:{i:0;s:13:\"CodeJock code\";i:1;s:4:\"fafi\";}'),(588,1,1312,3,15489,0,'125.163.96.150',1241508461,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"CodeJock code\";}'),(589,1,2,4,15505,0,'220.76.6.197',1241629634,'LOG_POST_EDITED','a:2:{i:0;s:13:\"compile error\";i:1;s:6:\"Silvio\";}'),(590,1,249,3,15514,0,'190.74.52.221',1241799241,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Big problem with xbrowse and lFastEdit=.t.\";i:1;s:11:\"Marco Turco\";}'),(591,1,249,3,15514,0,'190.74.52.221',1241799553,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: Big problem with xbrowse and lFastEdit=.t.\";i:1;s:11:\"Marco Turco\";}'),(592,3,108,0,0,108,'190.177.136.232',1241802273,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"cmarucco\";}'),(593,1,2,19,15539,0,'115.93.90.212',1242000310,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Clipper is Alive\";}'),(594,1,2,19,15560,0,'115.93.90.212',1242114049,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(595,1,49,4,15566,0,'94.163.142.57',1242251756,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: ALIGN   BUG ?\";}'),(596,1,49,4,15566,0,'94.163.142.57',1242251766,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"ALIGN   BUG ?\";}'),(597,1,24,6,15595,0,'80.25.193.101',1242297297,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Ayuda con Transaccion en SQL Server\";}'),(598,1,49,4,15598,0,'213.82.134.66',1242315091,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"TPAGES FROM SOURCE\";}'),(599,1,49,4,15600,0,'213.82.134.66',1242316931,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"To Antonio: error with tpages . can you explain me pls\";}'),(600,1,49,6,3597,0,'213.82.134.66',1242373548,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Reservation hotel/motel\";}'),(601,1,1257,3,15319,0,'85.182.22.197',1242507008,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Drawing PNG from Resources !!!\";}'),(602,1,1387,3,15319,0,'200.100.147.64',1242507299,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Drawing PNG from Resources !!!\";}'),(603,1,1466,6,15616,0,'190.184.84.243',1242514919,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"AYUDA!!!\";}'),(604,1,2,3,15556,0,'220.76.6.197',1242570469,'LOG_POST_EDITED','a:2:{i:0;s:63:\"Re: [Plz Linares] How to change the color of a disabled folder?\";i:1;s:14:\"Dietmar Jahnel\";}'),(605,1,1387,3,15624,0,'201.69.213.34',1242616712,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Question about shell.explorer ActiveX\";}'),(606,1,2,19,15116,0,'220.76.6.197',1242765962,'LOG_MOVE','a:2:{i:0;s:20:\"All products support\";i:1;s:23:\"Off Topic / Otros temas\";}'),(607,1,2,4,15632,0,'220.76.6.197',1242827164,'LOG_POST_EDITED','a:2:{i:0;s:41:\"How are you designing your screen layout?\";i:1;s:13:\"Ross_ValuSoft\";}'),(608,1,69,1,15660,0,'206.248.190.92',1242865160,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Rotate Text on Screen\";}'),(609,1,2,4,15632,0,'115.93.90.212',1242883298,'LOG_POST_EDITED','a:2:{i:0;s:45:\"Re: How are you designing your screen layout?\";i:1;s:13:\"Ross_ValuSoft\";}'),(610,1,51,4,15675,0,'80.122.88.242',1242939147,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"BEGIN SEQUENCE -  RECOVER -  END\";}'),(611,1,1257,3,15681,0,'85.182.23.118',1243025071,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"How detailed a published code might be ?\";}'),(612,1,1427,3,14829,0,'121.247.146.173',1243311995,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Jpeg to PDF\";}'),(613,1,1387,3,15077,0,'200.100.212.168',1243376155,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(614,1,1387,3,14681,0,'200.100.212.168',1243376194,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Code Jock In fivewin\";}'),(615,1,1387,3,15077,0,'200.100.212.168',1243376251,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(616,3,52,0,0,52,'200.82.104.115',1243424748,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"goosfancito\";}'),(617,1,49,3,15744,0,'94.163.156.85',1243688420,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"hOW BLOCK A PRG\";}'),(618,1,1257,3,15748,0,'85.182.20.27',1243706653,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"Transparent Folder-Tab-Area diff. to Background ?\";}'),(619,3,270,0,0,270,'174.101.151.232',1243854502,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Dan Landon\";}'),(620,1,1257,3,15780,0,'85.182.31.71',1243986101,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: Transparent frame a-glass for MDI WinChild ( antonio ? )\";}'),(621,1,1540,6,15791,0,'201.246.220.61',1244051691,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: ¿Dónde Consigo Verce?\";}'),(622,1,249,6,15791,0,'87.222.199.71',1244069436,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: ¿Dónde Consigo Verce?\";i:1;s:7:\"wmormar\";}'),(623,1,1312,3,15789,0,'114.121.19.33',1244093955,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: CLASS TScrWnd\";}'),(624,3,913,0,0,913,'201.137.78.85',1244178509,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"AIDA\";}'),(625,1,1312,3,15789,0,'125.163.101.23',1244184709,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: CLASS TScrWnd\";}'),(626,1,1257,3,15813,0,'85.182.24.159',1244207224,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Rmake -Error after Harddisk-change ?\";}'),(627,1,409,6,15818,0,'200.28.8.134',1244250902,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Saber la Fecha con que empieza una semana\";}'),(628,1,1744,3,15834,0,'84.121.61.215',1244492954,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Migracion automatica a Calc\";}'),(629,1,35,3,15828,0,'167.7.140.254',1244829383,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: How to move a MDI-Child without title ?\";}'),(630,1,2,6,15878,0,'87.222.199.242',1244865500,'LOG_POST_EDITED','a:2:{i:0;s:21:\"OT: Agradecimiento...\";i:1;s:10:\"pablovidal\";}'),(631,0,2,0,0,0,'87.222.199.190',1245133656,'LOG_ADMIN_AUTH_SUCCESS',''),(632,0,2,0,0,0,'87.222.199.190',1245133677,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:15:\"Cristian Hernan\";}'),(633,0,2,0,0,0,'87.222.199.190',1245133684,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:15:\"Cristian Hernan\";}'),(634,1,303,3,15889,0,'72.220.140.249',1245173426,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: rango dates\";}'),(635,1,303,3,15889,0,'72.220.140.249',1245174615,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: rango dates\";}'),(636,1,35,3,15900,0,'167.7.140.254',1245176836,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Extract TIME from a DateTime SQL field\";}'),(637,1,2,7,15947,0,'87.222.199.231',1245708904,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Soporte de SQL para FWPPC\";i:1;s:8:\"Salvador\";}'),(638,0,2,0,0,0,'87.222.199.200',1246104844,'LOG_ADMIN_AUTH_SUCCESS',''),(639,1,249,6,15943,0,'87.222.198.79',1246300313,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Re: Recibir mail\";i:1;s:6:\"RPATON\";}'),(640,3,1055,0,0,1055,'84.123.182.231',1246561968,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"antolin\";}'),(641,0,2,0,0,0,'87.222.199.200',1246573433,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:7:\"ssdavsa\";}'),(642,0,2,0,0,0,'87.222.199.200',1246573472,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:7:\"ssdavsa\";}'),(643,0,2,0,0,0,'87.222.199.200',1246573495,'LOG_ADMIN_AUTH_SUCCESS',''),(644,0,2,0,0,0,'87.222.199.200',1246573514,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"ssdavsa\";}'),(645,0,2,0,0,0,'87.222.199.200',1246573521,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"ssdavsa\";}'),(646,0,2,0,0,0,'87.222.199.195',1246576021,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"ssdavsa\";}'),(647,1,2,0,0,0,'87.222.199.195',1246576021,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"ssdavsa\";}'),(648,1,35,3,16051,0,'98.25.236.136',1246931628,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Writing a Lat\\Long to MS Sql server\";}'),(649,1,249,3,16059,0,'190.37.255.240',1246978951,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Bug in xbrowse + SuperHeader\";i:1;s:5:\"Ariel\";}'),(650,1,249,3,16045,0,'190.74.52.221',1247063277,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: XBROWSE SetCheck Help Needed.\";}'),(651,1,52,6,14843,0,'201.252.195.231',1247066730,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: necesito ejemplo xbrowse con ADO y mysql\";}'),(652,1,1257,3,16072,0,'85.182.16.128',1247103217,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"Defined Cursor lost, after Return to Main-dlg ?\";}'),(653,1,1257,3,16077,0,'85.182.19.85',1247162603,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"xBrowse AddResource different to AddBmpFile ?\";}'),(654,1,1140,3,16080,0,'187.13.136.238',1247163503,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Dosprin.exe\";}'),(655,1,1257,3,16111,0,'85.182.27.74',1247505612,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: xBrowse: How to display two columns from diferent databases?\";}'),(656,3,322,0,0,322,'201.134.185.82',1247526402,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"nazariosn\";}'),(657,3,322,0,0,322,'201.134.185.82',1247526402,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"nazariosn\";i:1;s:28:\"nazariosalazarn@tsjdf.gob.mx\";i:2;s:22:\"nazariosn@yahoo.com.mx\";}'),(658,1,51,4,1951,0,'80.122.88.242',1247673771,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Useful tools\";}'),(659,1,47,4,16144,0,'58.8.102.19',1247833494,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"SMS in my opinion\";}'),(660,1,47,4,16143,0,'58.8.102.19',1247833543,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"SMS in my opinion\";}'),(661,1,2,6,16146,0,'87.222.199.22',1247935630,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Nuevo enlazador de xHarbour-Fivewin disponible\";i:1;s:8:\"acuellar\";}'),(662,1,2,3,16099,0,'87.222.199.112',1248022066,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: How to display a Multiline Get with linefeed in Alerts ?\";}'),(663,3,77,0,0,77,'213.98.161.146',1248248410,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MANOLO\";}'),(664,3,77,0,0,77,'213.98.161.146',1248248410,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"MANOLO\";i:1;s:18:\"manuelcvi@auna.com\";i:2;s:22:\"mcanada@francesport.es\";}'),(665,1,249,3,16210,0,'190.74.52.221',1248463367,'LOG_POST_EDITED','a:2:{i:0;s:23:\"xBrowse - how to update\";i:1;s:4:\"Otto\";}'),(666,1,1387,3,16215,0,'201.46.44.228',1248654496,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Language C ( To Antonio )\";}'),(667,1,1387,3,16221,0,'201.46.44.228',1248656761,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"METHOD REDEFINE\";}'),(668,1,1387,3,16215,0,'201.46.44.204',1248659253,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Language C ( To Antonio )\";}'),(669,0,2,0,0,0,'87.222.199.230',1248678915,'LOG_ADMIN_AUTH_SUCCESS',''),(670,0,2,0,0,0,'87.222.199.230',1248678940,'LOG_PURGE_CACHE',''),(671,0,2,0,0,0,'87.222.199.230',1248680646,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(672,0,2,0,0,0,'87.222.199.230',1248680714,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(673,0,2,0,0,0,'87.222.199.230',1248680733,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:15:\"Fulltext native\";}'),(674,0,2,0,0,0,'87.222.199.230',1248684698,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:15:\"Fulltext native\";}'),(675,1,1257,3,16226,0,'85.182.17.85',1248706683,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"xBrowse Gradient-Background ( Download )\";}'),(676,0,2,0,0,0,'87.222.198.213',1248778576,'LOG_ADMIN_AUTH_SUCCESS',''),(677,0,2,0,0,0,'87.222.198.213',1248778706,'LOG_CONFIG_SEARCH',''),(678,0,2,0,0,0,'87.222.198.213',1248778736,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:15:\"Fulltext native\";}'),(679,0,2,0,0,0,'87.222.198.213',1248782275,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:15:\"Fulltext native\";}'),(680,1,348,6,16194,0,'201.230.35.200',1248801488,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Como mostrar un Archivo Texto Plano\";}'),(681,1,49,5,16208,0,'94.163.7.205',1248905875,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"to Antonio: Suggestions to Create Visual Report\";}'),(682,1,249,3,16248,0,'190.74.52.221',1248973401,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: Vertical scroll wbrowse on folders\";i:1;s:11:\"Rick Lipkin\";}'),(683,0,2,0,0,0,'87.222.198.10',1249039281,'LOG_ADMIN_AUTH_SUCCESS',''),(684,3,2,0,0,495,'87.222.198.10',1249039359,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"un_jeepero\";}'),(685,0,2,0,0,0,'87.222.198.10',1249039359,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"un_jeepero\";}'),(686,1,2,6,12759,0,'87.222.198.10',1249073754,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Nuevo FWH 9.07\";}'),(687,1,1387,3,16275,0,'187.45.6.236',1249268496,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Erro in Return Params ( To Antonio Linares / Daniel Garcia )\";}'),(688,1,1387,3,16275,0,'187.45.6.236',1249271668,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Erro in Return Params ( To Antonio Linares / Daniel Garcia )\";}'),(689,1,1387,3,16275,0,'187.45.6.236',1249271676,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Erro in Return Params ( To Antonio Linares / Daniel Garcia )\";}'),(690,1,1677,3,16282,0,'122.172.114.41',1249289934,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"DBCombo Problem\";}'),(691,1,1387,3,15882,0,'201.46.44.183',1249365815,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"TOleAuto (Antonio)\";}'),(692,0,2,0,0,0,'87.222.198.107',1249374185,'LOG_ADMIN_AUTH_SUCCESS',''),(693,3,2,0,0,77,'87.222.198.107',1249374236,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MANOLO\";}'),(694,0,2,0,0,0,'87.222.198.107',1249374236,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"MANOLO\";}'),(695,0,2,0,0,0,'87.222.199.15',1249375039,'LOG_ADMIN_AUTH_SUCCESS',''),(696,0,2,0,0,0,'87.222.199.15',1249375118,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"MANOLO\";}'),(697,3,2,0,0,77,'87.222.199.15',1249375118,'LOG_USER_ACTIVE_USER',''),(698,3,1406,0,0,1406,'85.100.26.69',1249397923,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Horizon\";}'),(699,1,110,6,16258,0,'148.168.127.10',1249399923,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Antonio Consulta ¿ Cuando compatiblidad con Harbour svn ?\";}'),(700,3,1406,0,0,1406,'78.176.206.150',1249407566,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Horizon\";}'),(701,1,1257,3,16304,0,'85.182.29.162',1249494499,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Something to be changed for Vtitles and Ribbonbar FWH 9.07 ?\";}'),(702,1,1387,3,16291,0,'201.46.44.167',1249503600,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Class ActiveX\";}'),(703,1,1387,3,16291,0,'201.46.41.17',1249523011,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Class ActiveX\";}'),(704,3,1438,0,0,1438,'200.89.32.106',1249587194,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"VPOZO\";}'),(705,1,1158,3,16319,0,'200.233.185.181',1249654423,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Google maps windows 2000\";}'),(706,1,1387,3,16291,0,'189.28.241.1',1249676886,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Class ActiveX\";}'),(707,1,2,7,16325,0,'87.222.199.50',1249734120,'LOG_MOVE','a:2:{i:0;s:21:\"FiveWin for Pocket PC\";i:1;s:22:\"FiveWin para Pocket PC\";}'),(708,1,249,3,16323,0,'190.74.52.221',1249757489,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Intermittant xBrowse ADO error ( again )\";i:1;s:11:\"Rick Lipkin\";}'),(709,1,2,3,16335,0,'87.222.199.107',1249903898,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Blue in bmp turns grey\";i:1;s:14:\"Dietmar Jahnel\";}'),(710,1,303,3,16322,0,'72.220.177.125',1249971840,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Empty xBrowse\";}'),(711,1,2,3,16337,0,'87.222.198.194',1249990841,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Button-Actions added to new Class VTitle FWH 9.07\";}'),(712,1,303,3,16316,0,'72.220.177.125',1250029779,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Mappoint Methods question\";}'),(713,1,2,3,16352,0,'87.222.199.151',1250068520,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Re: lib\\user32.lib\";i:1;s:17:\"nageswaragunupudi\";}'),(714,1,249,3,16354,0,'190.74.52.221',1250182999,'LOG_POST_EDITED','a:2:{i:0;s:21:\"How can I make this ?\";i:1;s:11:\"Marco Turco\";}'),(715,1,249,3,16354,0,'190.74.52.221',1250187902,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: How can I make this ?\";i:1;s:11:\"Marco Turco\";}'),(716,1,249,6,16348,0,'190.74.52.221',1250269956,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: SOBRE BOTONES Y SU FORMA\";i:1;s:8:\"acuellar\";}'),(717,1,1387,3,16379,0,'201.46.41.85',1250378264,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"file win32ole.prg\";}'),(718,1,249,6,16348,0,'190.74.52.221',1250530436,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: SOBRE BOTONES Y SU FORMA\";i:1;s:8:\"acuellar\";}'),(719,1,249,6,16387,0,'190.74.52.221',1250611759,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: RADIO Horizontal según un ARRAY\";}'),(720,2,29,0,0,0,'88.149.212.200',1250786126,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(721,2,1,0,0,0,'200.38.157.3',1250788274,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(722,1,2,3,16409,0,'87.222.199.59',1250790666,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:53:\"Help to complete the wiki and get a free FWH 9.07 !!!\";}'),(723,1,2,6,16410,0,'87.222.199.59',1250790778,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:48:\"Ayuda a completar el wiki y gana un FWH 9.07 !!!\";}'),(724,1,1193,3,16409,0,'123.204.171.104',1250865487,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Help to complete the wiki and get a free FWH 9.07 !!!\";}'),(725,1,249,6,16406,0,'190.74.52.221',1250943657,'LOG_POST_EDITED','a:2:{i:0;s:60:\"Re: Validar Usario y Pass para conectar a recurso compartido\";i:1;s:6:\"GUSPRE\";}'),(726,1,249,3,16441,0,'190.74.52.221',1251154891,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: About windows xp manifest file\";}'),(727,1,2,3,16452,0,'87.222.199.100',1251268655,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Re: New FWH 9.08\";i:1;s:7:\"Horizon\";}'),(728,3,1403,0,0,1403,'200.184.85.3',1251290701,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"dempty\";}'),(729,1,1193,4,16482,0,'123.204.163.232',1251391149,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: First test FWPPC and got error\";}'),(730,1,2,3,16409,0,'87.222.198.224',1251394071,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Help to complete the wiki and get a free FWH 9.07 !!!\";}'),(731,1,2,6,16302,0,'87.222.198.224',1251395280,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: ANTONIO - CVS XHAR DE FWH_906\";i:1;s:6:\"GUSPRE\";}'),(732,1,49,4,16427,0,'94.162.142.15',1251411376,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: manifest theme on wm5 or wm6\";}'),(733,0,2,0,0,0,'87.222.198.193',1251440314,'LOG_ADMIN_AUTH_SUCCESS',''),(734,0,2,0,0,0,'87.222.198.193',1251440334,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"shrifww\";}'),(735,0,2,0,0,0,'87.222.198.193',1251440341,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"shrifww\";}'),(736,0,2,0,0,0,'87.222.198.193',1251440370,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:16:\"GUILLERMOSANCHEZ\";}'),(737,0,2,0,0,0,'87.222.198.193',1251440376,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:16:\"GUILLERMOSANCHEZ\";}'),(738,1,2,3,16409,0,'87.222.198.193',1251445521,'LOG_POST_EDITED','a:2:{i:0;s:57:\"Re: Help to complete the wiki and get a free FWH 9.07 !!!\";i:1;s:15:\"richard-service\";}'),(739,1,2,3,16236,0,'87.222.199.186',1251619164,'LOG_POST_EDITED','a:2:{i:0;s:22:\"compile simple program\";i:1;s:5:\"kajot\";}'),(740,1,51,3,11722,0,'80.122.88.242',1251655694,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: fwh\\samples\\RE.prg - FiveWin Resources Editor underrated\";}'),(741,3,1454,0,0,1454,'190.47.172.21',1251729001,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:16:\"Mayor_Valenzuela\";}'),(742,1,190,3,16528,0,'124.123.80.96',1251732210,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"MySql users - can anybody help to compile MySql.c\";}'),(743,1,2,6,16508,0,'87.222.198.49',1251735213,'LOG_POST_EDITED','a:2:{i:0;s:11:\"Re: Consejo\";i:1;s:9:\"PREGUNTON\";}'),(744,0,2,0,0,0,'87.222.198.49',1251750495,'LOG_ADMIN_AUTH_SUCCESS',''),(745,0,2,0,0,0,'87.222.198.49',1251750514,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:21:\"Márcio Augusto Cezar\";}'),(746,0,2,0,0,0,'87.222.198.49',1251750521,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:21:\"Márcio Augusto Cezar\";}'),(747,0,2,0,0,0,'87.222.198.247',1251793875,'LOG_ADMIN_AUTH_SUCCESS',''),(748,0,2,0,0,0,'87.222.198.247',1251793891,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"groiss\";}'),(749,0,2,0,0,0,'87.222.198.247',1251793896,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"groiss\";}'),(750,0,2,0,0,0,'87.222.199.233',1251794005,'LOG_ADMIN_AUTH_SUCCESS',''),(751,0,2,0,0,0,'87.222.199.233',1251794019,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"jlgroiss\";}'),(752,0,2,0,0,0,'87.222.199.233',1251794023,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"jlgroiss\";}'),(753,1,456,6,16475,0,'79.109.208.76',1251875130,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Gestion Errores FWH 0906\";}'),(754,1,1734,6,15875,0,'201.159.5.4',1251913831,'LOG_BUMP_TOPIC','a:1:{i:0;s:27:\"Apertura de Tablas Limitada\";}'),(755,3,1540,0,0,1540,'201.222.129.4',1251924388,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Leon Valenzuela\";}'),(756,1,221,6,16509,0,'200.109.96.253',1251986191,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Pequeño aporte al FORO clase RPREVIEW\";}'),(757,1,221,6,16509,0,'200.109.96.253',1251986199,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Pequeño aporte al FORO clase RPREVIEW\";}'),(758,1,2,6,16502,0,'87.222.199.37',1252013128,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Duda existencial: Aplicativos de escritorio o internet\";}'),(759,1,6,3,16573,0,'87.3.228.58',1252056393,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Problem in alligning say in report\";}'),(760,1,2,3,11722,0,'87.222.199.37',1252080871,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: fwh\\samples\\RE.prg - FiveWin Resources Editor underrated\";}'),(761,1,1387,3,16585,0,'201.46.41.141',1252168833,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Problem in ActiveX Object. ( To Antonio )\";}'),(762,1,2,19,16593,0,'87.222.198.201',1252170168,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(763,1,2,19,16605,0,'87.222.198.84',1252307491,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(764,1,2,3,16604,0,'87.222.198.84',1252307515,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"OS Google\";}'),(765,1,1387,3,16585,0,'201.46.40.155',1252383819,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Problem in ActiveX Object. ( To Antonio )\";}'),(766,1,249,6,16610,0,'190.74.52.221',1252431100,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Cambiar fuente en una buttonbar (Para Antonio)\";}'),(767,1,249,3,16620,0,'190.74.52.221',1252446880,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Gradiente in Background of a GET ?\";i:1;s:17:\"lailton.webmaster\";}'),(768,1,1387,3,16620,0,'189.28.233.114',1252447041,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Gradiente in Background of a GET ?\";}'),(769,1,249,3,16622,0,'190.74.52.221',1252465462,'LOG_POST_EDITED','a:2:{i:0;s:59:\"Re: Is there a way to set oSays to transparent universally?\";i:1;s:4:\"fafi\";}'),(770,1,1387,3,16621,0,'201.46.44.66',1252510877,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Get Transparent\";}'),(771,3,206,0,0,206,'125.160.92.240',1252545982,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"yam_hiong\";}'),(772,1,2,6,16492,0,'87.222.199.162',1252576148,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Error SOCKET 10093 en Windows VISTA\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(773,1,1677,3,16573,0,'122.172.116.13',1252650416,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Problem in alligning say in report\";}'),(774,0,2,0,0,0,'87.222.198.5',1252774699,'LOG_ADMIN_AUTH_SUCCESS',''),(775,3,2,0,0,1750,'87.222.198.5',1252774762,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Antonio G.\";}'),(776,0,2,0,0,0,'87.222.198.5',1252774762,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Antonio G.\";}'),(777,3,1750,0,0,1750,'92.56.17.64',1252778710,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Antonio G.\";}'),(778,1,1466,6,16677,0,'190.184.62.111',1252781709,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Problemas con VALID   EN EL GET\";}'),(779,1,1387,3,16672,0,'201.46.44.240',1252802031,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Get Disabled\";}'),(780,3,500,0,0,500,'83.43.161.242',1252840516,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Pedro\";}'),(781,3,500,0,0,500,'83.43.161.242',1252840516,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"Pedro\";i:1;s:16:\"algafiq@terra.es\";i:2;s:20:\"gahetesoft@gmail.com\";}'),(782,3,500,0,0,500,'83.43.161.242',1252840682,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Pedro\";}'),(783,1,1257,3,16686,0,'85.182.27.99',1252885429,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"xBrowse-Error on Bottom of Image-List (Array) ???\";}'),(784,0,2,0,0,0,'87.222.198.101',1252886397,'LOG_ADMIN_AUTH_SUCCESS',''),(785,0,2,0,0,0,'87.222.198.101',1252886486,'LOG_PURGE_CACHE',''),(786,0,2,0,0,0,'87.222.198.28',1253020592,'LOG_ADMIN_AUTH_SUCCESS',''),(787,0,2,0,0,0,'87.222.198.28',1253020620,'LOG_RESET_ONLINE',''),(788,1,39,6,16374,0,'190.95.18.247',1253116065,'LOG_BUMP_TOPIC','a:1:{i:0;s:20:\"Problemas con Ribbon\";}'),(789,1,1387,6,16689,0,'201.46.40.139',1253166754,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Para Antonio\";}'),(790,3,1246,0,0,1246,'189.129.185.131',1253204894,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"JOSEMAR\";}'),(791,1,1387,6,16689,0,'187.45.9.125',1253208671,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Para Antonio\";}'),(792,1,1387,3,16738,0,'187.45.9.125',1253222880,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Call DLL in fwh\";}'),(793,1,1387,6,16689,0,'187.45.9.16',1253230239,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Para Antonio\";}'),(794,1,2,19,16399,0,'87.222.199.86',1253278452,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: great music mixes online\";}'),(795,1,1257,3,16750,0,'85.182.16.78',1253308789,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"Possible to change Button-Font in Folders at Runt. ?\";}'),(796,1,249,3,16745,0,'190.74.52.221',1253320916,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: How to set a progressbar - range 1 - 5\";}'),(797,1,2,3,16755,0,'87.222.199.86',1253380238,'LOG_POST_EDITED','a:2:{i:0;s:41:\"xbrowse settings to ini file - TO Antonio\";i:1;s:6:\"Silvio\";}'),(798,1,1387,6,16760,0,'201.46.50.76',1253418612,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Mover Window sem caption\";}'),(799,1,9,6,16748,0,'81.44.32.118',1253420823,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: FWH y JAVA\";}'),(800,0,2,0,0,0,'87.222.199.158',1253472540,'LOG_ADMIN_AUTH_SUCCESS',''),(801,0,2,0,0,0,'87.222.199.158',1253472560,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"Gilberto León\";}'),(802,0,2,0,0,0,'87.222.199.158',1253472565,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"Gilberto León\";}'),(803,1,249,6,16769,0,'190.74.52.221',1253558606,'LOG_POST_EDITED','a:2:{i:0;s:30:\"Re: xBrowse y SetArray(aArray)\";i:1;s:10:\"FranciscoA\";}'),(804,1,249,6,16769,0,'190.74.52.221',1253559397,'LOG_POST_EDITED','a:2:{i:0;s:30:\"Re: xBrowse y SetArray(aArray)\";i:1;s:10:\"FranciscoA\";}'),(805,1,249,6,16774,0,'190.74.52.221',1253562321,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:56:\"Error de pintado con TCBrowse al pasar de FWH27 a FWH907\";}'),(806,1,249,0,16773,0,'190.74.52.221',1253562321,'LOG_SPLIT_SOURCE','a:1:{i:0;s:56:\"Error de pintado con TCBrowse al pasar de FWH27 a FWH907\";}'),(807,1,1387,6,16761,0,'201.46.40.231',1253598521,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: ToolTip ( To antonio )\";}'),(808,1,1257,3,16775,0,'85.182.30.243',1253630172,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: New Function CircleGradient() in FWH 9.09\";}'),(809,1,1388,3,16779,0,'124.107.6.13',1253667527,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Ribbon problem with other controls - SOLVED!\";}'),(810,1,49,3,16784,0,'213.82.134.66',1253705736,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"drawselect and other\";}'),(811,0,2,0,0,0,'87.222.199.69',1253706427,'LOG_ADMIN_AUTH_SUCCESS',''),(812,0,2,0,0,0,'87.222.199.69',1253706442,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"Roloce\";}'),(813,0,2,0,0,0,'87.222.199.69',1253706446,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"Roloce\";}'),(814,3,760,0,0,760,'200.106.123.175',1253719327,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Francis\";}'),(815,1,1387,6,16793,0,'189.28.239.99',1253730558,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Png From resource\";}'),(816,1,2,6,16792,0,'87.222.199.69',1253745921,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Maestro Antonio: Ayuda con PCODE DLL\";i:1;s:9:\"Cgallegoa\";}'),(817,3,449,0,0,449,'81.38.24.96',1253782962,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"Carles\";i:1;s:24:\"carles.aubia.ca@bayer.es\";i:2;s:20:\"carles9000@gmail.com\";}'),(818,1,49,3,16816,0,'213.82.134.66',1253792597,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"MOVE A BITMAP\";}'),(819,1,1257,3,16826,0,'85.182.16.4',1253837744,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Creating Menues with Coverflow FW 9.09\";}'),(820,0,2,0,0,0,'87.222.199.69',1253862667,'LOG_ADMIN_AUTH_SUCCESS',''),(821,0,2,0,0,0,'87.222.199.69',1253862778,'LOG_USER_DELETED','a:1:{i:0;s:16:\"Fernando Mancera\";}'),(822,0,2,0,0,0,'87.222.199.69',1253862993,'LOG_WORD_ADD','a:1:{i:0;s:7:\"Mancera\";}'),(823,0,2,0,0,0,'87.222.199.69',1253863139,'LOG_WORD_ADD','a:1:{i:0;s:8:\"fmancera\";}'),(824,0,2,0,0,0,'87.222.199.69',1253863183,'LOG_WORD_ADD','a:1:{i:0;s:7:\"viaopen\";}'),(825,0,2,0,0,0,'87.222.199.69',1253863207,'LOG_WORD_ADD','a:1:{i:0;s:8:\"viacoral\";}'),(826,0,2,0,0,0,'87.222.199.69',1253863471,'LOG_WORD_ADD','a:1:{i:0;s:7:\"vianemo\";}'),(827,0,2,0,0,0,'87.222.199.69',1253877643,'LOG_ADMIN_AUTH_SUCCESS',''),(828,3,2,0,0,596,'87.222.199.69',1253877741,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"JmGarcia\";}'),(829,0,2,0,0,0,'87.222.199.69',1253877741,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"JmGarcia\";}'),(830,3,596,0,0,596,'194.224.177.237',1253878116,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"JmGarcia\";}'),(831,1,249,3,16834,0,'190.74.52.221',1253879309,'LOG_POST_EDITED','a:2:{i:0;s:32:\"FWH 9.09 and OLE methods problem\";i:1;s:5:\"Taavi\";}'),(832,3,187,0,0,187,'189.231.242.66',1253904081,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ramon\";}'),(833,1,2,6,16842,0,'87.222.199.69',1253976467,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Consigue FWH 6.12 gratuitamente !!!\";i:1;s:13:\"Jairo Barbosa\";}'),(834,1,49,3,16849,0,'94.163.178.104',1254092682,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"FIRST RIBBON TEST\";}'),(835,1,1446,6,16828,0,'190.42.107.240',1254093291,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Compilar y Enlazar\";}'),(836,3,221,0,0,221,'200.109.96.253',1254153004,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"QAZWSX2K\";}'),(837,1,2,7,11,0,'87.222.198.68',1254295337,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Bienvenidos a los foros de FiveTech Software\";}'),(838,1,2,7,11,0,'87.222.198.68',1254295351,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Bienvenidos a los foros de FiveTech Software\";}'),(839,1,2,7,11,0,'87.222.198.68',1254295363,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Bienvenidos a los foros de FiveTech Software\";}'),(840,1,1387,3,16892,0,'189.28.241.53',1254417008,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Image PNG  ( to antonio )\";}'),(841,1,1387,3,16897,0,'189.28.241.148',1254426028,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"To Daniel\";}'),(842,1,1387,3,16898,0,'201.46.40.74',1254428735,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"To Daniel\";}'),(843,1,1387,3,16901,0,'201.46.40.74',1254442553,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Problems with memory allocation\";}'),(844,1,303,3,16882,0,'72.220.177.125',1254448396,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: tooltip timing\";}'),(845,1,249,6,16693,0,'190.74.52.221',1254477409,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Ribbon Bar and Bitmaps from Resources\";}'),(846,1,249,6,16693,0,'190.74.52.221',1254477423,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Ribbon Bar and Bitmaps from Resources\";}'),(847,1,49,3,16877,0,'213.82.134.66',1254482988,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"tree with checkbox\";}'),(848,1,2,3,16873,0,'87.222.199.213',1254502126,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Ideas for the ribbon class\";}'),(849,0,2,0,0,0,'87.222.199.213',1254502651,'LOG_ADMIN_AUTH_SUCCESS',''),(850,1,249,6,16491,0,'190.74.52.221',1254513126,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: APORTE: FUNCTION DISPLAY 2.0\";i:1;s:7:\"alfonso\";}'),(851,3,1438,0,0,1438,'200.89.49.79',1254524582,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"VPOZO\";}'),(852,3,1438,0,0,1438,'200.89.49.79',1254524582,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"VPOZO\";i:1;s:20:\"vpozosalas@yahoo.com\";i:2;s:20:\"vpozosalas@gmail.com\";}'),(853,1,49,3,16908,0,'94.163.176.73',1254682093,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"createregion\";}'),(854,1,1257,3,16928,0,'85.182.20.37',1254722550,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: show a bitmap\";}'),(855,1,2,17,12807,0,'87.222.199.81',1254739889,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: FiveTech products online documentation\";}'),(856,0,2,0,0,0,'87.222.199.81',1254759055,'LOG_ADMIN_AUTH_SUCCESS',''),(857,0,2,0,0,0,'87.222.199.81',1254759075,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:15:\"armando.lagunas\";}'),(858,0,2,0,0,0,'87.222.199.81',1254759081,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:15:\"armando.lagunas\";}'),(859,1,1257,3,16943,0,'85.182.20.37',1254783727,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"xBrowse &lt; SetBackground &gt; only with Arrays ?\";}'),(860,1,1387,3,16944,0,'189.28.239.26',1254843789,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: DBF via ADO\";}'),(861,1,249,6,16955,0,'190.74.52.221',1254906418,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: Convertir números a palabras\";i:1;s:5:\"Dioni\";}'),(862,1,58,6,16967,0,'217.229.197.154',1254920304,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"TEXTBOTTOM clause working?\";}'),(863,1,249,3,16973,0,'190.74.52.221',1254924431,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:9:\"To Silvio\";}'),(864,1,249,0,16972,0,'190.74.52.221',1254924431,'LOG_SPLIT_SOURCE','a:1:{i:0;s:9:\"To Silvio\";}'),(865,1,979,3,16973,0,'83.38.168.23',1254941399,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"To Silvio\";}'),(866,1,1257,3,16980,0,'85.182.17.100',1254959991,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"A question about VTitles using the &lt; Base-Option &gt;\";}'),(867,1,2,6,16824,0,'87.222.198.209',1255159391,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Error TKButton en windows Transparente\";i:1;s:7:\"softruz\";}'),(868,1,2,7,16971,0,'87.222.198.209',1255160481,'LOG_POST_EDITED','a:2:{i:0;s:39:\"RIGHT no GET via RECURSO não funciona?\";i:1;s:3:\"SGS\";}'),(869,1,249,6,17003,0,'190.74.52.221',1255185614,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Antonio o Daniel Error Con xBrowse\";i:1;s:10:\"compubrion\";}'),(870,1,2,6,16842,0,'87.222.198.209',1255217365,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Consigue FWH 6.12 gratuitamente !!!\";i:1;s:4:\"AIDA\";}'),(871,1,409,6,16957,0,'200.28.161.36',1255225322,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: OFF TOPIC - Necesito Programador para Reemplazo\";}'),(872,1,2,3,17027,0,'87.222.198.50',1255430588,'LOG_POST_EDITED','a:2:{i:0;s:9:\"tDataBase\";i:1;s:10:\"Colin Haig\";}'),(873,3,39,0,0,39,'190.95.27.194',1255546046,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lautaro\";}'),(874,1,1387,6,17038,0,'187.45.9.249',1255622777,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Execute Click Mouse ( To Antonio )\";}'),(875,1,249,6,17037,0,'222.108.40.245',1255634140,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: RIBBON NATIVA AVANCES???\";i:1;s:11:\"mantonio_08\";}'),(876,1,2,7,17044,0,'87.222.198.93',1255638779,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Proyecto nuevo con FWPCC\";i:1;s:4:\"Otto\";}'),(877,1,2,7,17044,0,'87.222.198.93',1255638808,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Proyecto nuevo con FWPCC\";i:1;s:4:\"Otto\";}'),(878,1,2,7,17044,0,'87.222.198.93',1255647760,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Proyecto nuevo con FWPPC\";i:1;s:10:\"pablovidal\";}'),(879,0,2,0,0,0,'87.222.198.93',1255649969,'LOG_ADMIN_AUTH_SUCCESS',''),(880,3,2,0,0,1645,'87.222.198.93',1255650089,'LOG_USER_UPDATE_NAME','a:2:{i:0;s:14:\"MambaLeylaChka\";i:1;s:5:\"mchka\";}'),(881,3,2,0,0,1645,'87.222.198.93',1255650089,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:14:\"MambaLeylaChka\";i:1;s:26:\"mambaleylachkapt@gmail.com\";i:2;s:15:\"mchka@gmail.com\";}'),(882,3,2,0,0,1645,'87.222.198.93',1255650090,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"MambaLeylaChka\";}'),(883,0,2,0,0,0,'87.222.198.93',1255650091,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"mchka\";}'),(884,3,18,0,0,18,'201.144.92.226',1255709808,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Vikthor\";}'),(885,3,1561,0,0,1561,'189.26.223.4',1255737599,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"tiaofw\";}'),(886,1,800,20,16986,0,'93.39.110.213',1255772144,'LOG_DELETE_TOPIC','a:1:{i:0;s:6:\"lavoro\";}'),(887,1,249,6,17072,0,'222.108.40.245',1255899696,'LOG_POST_EDITED','a:2:{i:0;s:20:\"XBROWSE y CHECKBOXES\";i:1;s:16:\"César E. Lozada\";}'),(888,1,1257,3,17078,0,'85.182.28.107',1255961139,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"VTitles &lt; End() or Destroy() &gt; needed ?\";}'),(889,3,1340,0,0,1340,'200.121.55.6',1255985490,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Angel_Miguel\";}'),(890,0,2,0,0,0,'87.222.198.30',1256304019,'LOG_ADMIN_AUTH_SUCCESS',''),(891,0,2,0,0,0,'87.222.198.30',1256304036,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"LeandroPtu\";}'),(892,0,2,0,0,0,'87.222.198.30',1256304042,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"LeandroPtu\";}'),(893,1,1387,3,17129,0,'201.46.40.133',1256364001,'LOG_DELETE_POST','a:1:{i:0;s:8:\"Re: Erro\";}'),(894,0,2,0,0,0,'87.222.198.30',1256451591,'LOG_ADMIN_AUTH_SUCCESS',''),(895,1,303,3,17158,0,'72.220.177.125',1256598614,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Txlm class?\";}'),(896,1,2,3,6814,0,'87.222.198.186',1256727756,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: New AdoRDD (free)\";}'),(897,1,838,6,17177,0,'80.34.222.112',1256908028,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Ayuda con Radio\";}'),(898,3,1561,0,0,1561,'189.115.135.158',1256990879,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"tiaofw\";}'),(899,1,86,3,17255,0,'81.83.186.205',1257469867,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Acrobat reader\";}'),(900,0,2,0,0,0,'87.222.198.154',1257545771,'LOG_ADMIN_AUTH_SUCCESS',''),(901,0,2,0,0,0,'87.222.198.154',1257545792,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"CARLOSALBATUN\";}'),(902,0,2,0,0,0,'87.222.198.154',1257545799,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:13:\"CARLOSALBATUN\";}'),(903,0,2,0,0,0,'87.222.198.237',1257941631,'LOG_ADMIN_AUTH_SUCCESS',''),(904,0,2,0,0,0,'87.222.198.237',1257941645,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"tesys\";}'),(905,0,2,0,0,0,'87.222.198.237',1257941650,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"tesys\";}'),(906,1,2,3,17311,0,'87.222.198.237',1257974213,'LOG_POST_EDITED','a:2:{i:0;s:41:\"Re: error upgrade from fwh7.11 to fwh9.10\";i:1;s:6:\"acwoo1\";}'),(907,1,6,3,17339,0,'87.16.238.19',1258024693,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Difference between mouse and keyboard\";i:1;s:11:\"MarcoBoschi\";}'),(908,1,1257,3,17346,0,'85.182.19.75',1258060883,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"How to set xBrowse-Backgrd. from a defined Gradient-Array ?\";}'),(909,1,596,6,15032,0,'89.128.172.7',1258144135,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: HB_UnCompress\";}'),(910,1,2,3,17311,0,'87.222.199.167',1258169416,'LOG_POST_EDITED','a:2:{i:0;s:41:\"Re: error upgrade from fwh7.11 to fwh9.10\";i:1;s:6:\"acwoo1\";}'),(911,3,367,0,0,367,'201.40.58.144',1258217636,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Kleyton\";}'),(912,1,2,3,17288,0,'87.222.199.167',1258323270,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Transparent bitmap on MDI with manifest file\";}'),(913,1,1257,3,17240,0,'85.182.27.200',1258372637,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Reduced Memory after VTitle-Dialog-Switch ?\";}'),(914,1,2,6,8435,0,'87.222.199.167',1258417432,'LOG_POST_EDITED','a:2:{i:0;s:59:\"Implementar RollBack para garantizar integridad referencial\";i:1;s:18:\"Marcelo Via Giglio\";}'),(915,1,2,4,17397,0,'87.222.198.97',1258556415,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: garbage collector?\";i:1;s:4:\"Otto\";}'),(916,1,2,4,17397,0,'87.222.198.97',1258556464,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: garbage collector?\";i:1;s:4:\"Otto\";}'),(917,1,2,4,17397,0,'87.222.198.97',1258556539,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: garbage collector?\";i:1;s:4:\"Otto\";}'),(918,3,394,0,0,394,'207.219.124.134',1258572976,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Mike Buckler\";}'),(919,0,2,0,0,0,'87.222.199.173',1258574769,'LOG_ADMIN_AUTH_SUCCESS',''),(920,0,2,0,0,0,'87.222.199.173',1258574785,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"evajosan\";}'),(921,0,2,0,0,0,'87.222.199.173',1258574792,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"evajosan\";}'),(922,1,2,6,17399,0,'87.222.199.173',1258576331,'LOG_POST_EDITED','a:2:{i:0;s:35:\"Re: Error con click izdo en XBrowse\";i:1;s:7:\"jfafive\";}'),(923,1,249,6,17417,0,'118.219.52.110',1258699741,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Como puedo hacer esto :\";i:1;s:6:\"JoseGS\";}'),(924,3,1454,0,0,1454,'200.113.168.35',1258722188,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:16:\"Mayor_Valenzuela\";}'),(925,3,971,0,0,971,'150.214.206.97',1259001302,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"Uri\";}'),(926,1,303,3,17423,0,'72.220.177.125',1259072352,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Sendig SMS help needed.\";}'),(927,1,1158,3,17455,0,'200.159.198.125',1259111353,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: FWH911 xharbour build april/09\";}'),(928,1,2,6,17452,0,'87.222.199.12',1259178210,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: Antonio Error En Listbox....\";i:1;s:8:\"cmarucco\";}'),(929,1,2,19,14894,0,'87.222.199.12',1259275806,'LOG_POST_EDITED','a:2:{i:0;s:45:\"Re: Best blogs to read / Mejores blogs a leer\";i:1;s:8:\"csincuir\";}'),(930,1,1104,6,7034,0,'201.255.60.44',1259373158,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Dialog de recurso incrustada en una ventana\";}'),(931,3,367,0,0,367,'201.14.123.11',1259497782,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Kleyton\";}'),(932,1,2,3,17494,0,'87.222.199.173',1259520039,'LOG_POST_EDITED','a:2:{i:0;s:22:\"TO ANTONIO : XML CLASS\";i:1;s:6:\"Silvio\";}'),(933,2,2,0,0,0,'87.222.199.248',1259704898,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(934,1,303,3,17536,0,'72.220.177.125',1259793112,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: LEFT() and RIGHT() but in centimeters in stead of characters\";}'),(935,1,2,19,17371,0,'87.222.199.33',1259826038,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: The End of CrunchPad ?\";i:1;s:6:\"modicr\";}'),(936,1,2,19,14894,0,'87.222.199.33',1259826560,'LOG_POST_EDITED','a:2:{i:0;s:45:\"Re: Best blogs to read / Mejores blogs a leer\";i:1;s:8:\"csincuir\";}'),(937,3,586,0,0,586,'200.117.226.62',1259843884,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"fullpaint\";}'),(938,1,2,6,17546,0,'87.222.198.191',1259940949,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: SOBRE TOOLTIP ( ANTONIO )\";}'),(939,1,2,19,17371,0,'87.222.199.43',1259961985,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: More news about the CrunchPad\";i:1;s:10:\"James Bott\";}'),(940,0,2,0,0,0,'87.222.199.43',1260025712,'LOG_ADMIN_AUTH_SUCCESS',''),(941,0,2,0,0,0,'87.222.199.43',1260025728,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"Manolin2009\";}'),(942,0,2,0,0,0,'87.222.199.43',1260025733,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"Manolin2009\";}'),(943,0,2,0,0,0,'87.222.199.209',1260197889,'LOG_ADMIN_AUTH_SUCCESS',''),(944,0,2,0,0,0,'87.222.199.209',1260197905,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"shri_fwh\";}'),(945,0,2,0,0,0,'87.222.199.209',1260197909,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"shri_fwh\";}'),(946,1,868,3,14143,0,'59.164.66.53',1260260407,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: The exact ISO 8601-Week-number-Calculation\";}'),(947,3,512,0,0,512,'150.101.224.252',1260276444,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"angelo.c\";i:1;s:20:\"angelo.c@adam.com.au\";i:2;s:25:\"angelo.c@internode.on.net\";}'),(948,1,1257,3,14143,0,'85.182.16.80',1260292481,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: The exact ISO 8601-Week-number-Calculation\";}'),(949,3,1540,0,0,1540,'190.162.4.196',1260300032,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Leon Valenzuela\";}'),(950,1,49,3,17569,0,'89.97.124.66',1260358293,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"move a sprite\";}'),(951,3,365,0,0,365,'207.188.233.100',1260371299,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"dionie\";}'),(952,1,86,3,17575,0,'81.83.186.205',1260440691,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Problem solved\";}'),(953,3,132,0,0,132,'83.213.40.190',1260459926,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:4:\"txon\";i:1;s:27:\"bsinformatica@euskalnet.net\";i:2;s:22:\"info@bsinformatica.net\";}'),(954,1,868,3,14143,0,'59.164.66.105',1260463129,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: The exact ISO 8601-Week-number-Calculation\";}'),(955,1,868,3,14143,0,'59.164.66.105',1260544411,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: The exact ISO 8601-Week-number-Calculation\";}'),(956,2,396,0,0,0,'201.243.166.44',1260637171,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(957,0,2,0,0,0,'87.222.199.107',1260697220,'LOG_ADMIN_AUTH_SUCCESS',''),(958,0,2,0,0,0,'87.222.199.107',1260697235,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"lham\";}'),(959,0,2,0,0,0,'87.222.199.107',1260697241,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"lham\";}'),(960,0,2,0,0,0,'87.222.199.107',1260739982,'LOG_ADMIN_AUTH_SUCCESS',''),(961,0,2,0,0,0,'87.222.199.107',1260739998,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:18:\"Francis Barrimbhal\";}'),(962,0,2,0,0,0,'87.222.199.107',1260740003,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:18:\"Francis Barrimbhal\";}'),(963,0,2,0,0,0,'87.222.199.107',1260742148,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"tomaso26\";}'),(964,0,2,0,0,0,'87.222.199.107',1260742152,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"tomaso26\";}'),(965,1,34,3,17582,0,'68.5.50.250',1260842009,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: xBrowse Top Header\";}'),(966,1,2,3,17614,0,'87.222.199.107',1260875424,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Configuration  buttons ribbon bar\";}'),(967,1,2,3,17566,0,'87.222.199.107',1260885748,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: FiveTech Xmas offer! :-)\";i:1;s:7:\"ukoenig\";}'),(968,1,2,6,17445,0,'87.222.198.226',1260919372,'LOG_POST_EDITED','a:2:{i:0;s:45:\"Re: RibbonBar de FWH con apariencia Windows 7\";i:1;s:11:\"mantonio_08\";}'),(969,1,49,3,17642,0,'213.82.134.66',1261140581,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"CREATING a CIRCLE\";}'),(970,1,2,3,17582,0,'87.222.199.73',1261466088,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: xBrowse Top Header DISPLAY ERROR - Ideas ?\";}'),(971,1,2,21,17684,0,'87.222.199.98',1261701596,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Feliz Navidad\";}'),(972,1,2,23,17683,0,'87.222.199.98',1261701614,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Frohe Weihnachten\";}'),(973,1,2,20,17682,0,'87.222.199.98',1261701636,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Buon Natale\";}'),(974,1,2,6,17668,0,'87.222.199.98',1261701671,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Feliz Navidad\";}'),(975,1,2,3,17667,0,'87.222.199.98',1261701720,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Merry Christmas\";}'),(976,1,2,23,17691,0,'87.222.199.225',1261762973,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Santa Claus\";}'),(977,0,2,0,0,0,'87.222.199.225',1261762997,'LOG_ADMIN_AUTH_SUCCESS',''),(978,0,2,0,0,0,'87.222.198.44',1261763035,'LOG_ADMIN_AUTH_SUCCESS',''),(979,0,2,0,0,0,'87.222.198.44',1261763112,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:6:\"Silvio\";}'),(980,1,2,0,0,0,'87.222.198.44',1261763112,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:6:\"Silvio\";}'),(981,1,2,3,17667,0,'87.222.198.44',1261763136,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Merry Christmas\";}'),(982,1,2,20,17690,0,'87.222.198.44',1261763149,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Natale 2009\";}'),(983,1,2,20,17692,0,'87.222.198.44',1261763169,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Errori in fwh : A EMG\";}'),(984,1,2,6,17668,0,'87.222.198.44',1261763229,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Feliz Navidad\";}'),(985,1,2,19,17697,0,'87.222.198.217',1261904771,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(986,1,1257,3,17715,0,'85.182.22.136',1262049075,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Tooltip-problem with BtnBMP ( FWH 9.12 ) ?\";}'),(987,1,2,6,17714,0,'87.222.198.31',1262051327,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Re: Ayuda Con NetCard() harbour y xharbour\";i:1;s:9:\"carloslmm\";}'),(988,1,2,6,17716,0,'87.222.198.31',1262106524,'LOG_POST_EDITED','a:2:{i:0;s:56:\"FWH Gratis - Versión de Diciembre (broma dia Inocentes)\";i:1;s:8:\"Mauricio\";}'),(989,1,2,6,17716,0,'87.222.198.31',1262106603,'LOG_POST_EDITED','a:2:{i:0;s:19:\"broma dia Inocentes\";i:1;s:8:\"Mauricio\";}'),(990,1,2,6,17714,0,'87.222.198.31',1262110838,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Re: Ayuda Con NetCard() harbour y xharbour\";i:1;s:9:\"carloslmm\";}'),(991,1,868,3,17687,0,'59.164.66.67',1262450001,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Bug in Transparent Group\";}'),(992,1,868,3,17687,0,'59.164.66.67',1262450012,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Bug in Transparent Group\";}'),(993,3,911,0,0,911,'200.120.199.36',1262540738,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"metaldrummer\";}'),(994,3,911,0,0,911,'200.120.199.36',1262540738,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:12:\"metaldrummer\";i:1;s:23:\"dlagoss@manejatuvida.cl\";i:2;s:21:\"webmaster@wificafe.cl\";}'),(995,1,2,3,17765,0,'87.222.198.25',1262687455,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: Unresolved external referenced from RDDADO\";i:1;s:4:\"wzaf\";}'),(996,0,2,0,0,0,'87.222.199.147',1262773033,'LOG_ADMIN_AUTH_SUCCESS',''),(997,0,2,0,0,0,'87.222.199.147',1262773095,'LOG_UNBAN_USER','a:1:{i:0;s:6:\"Silvio\";}'),(998,1,2,0,0,0,'87.222.199.147',1262773095,'LOG_UNBAN_USER','a:1:{i:0;s:6:\"Silvio\";}'),(999,1,1257,3,17782,0,'85.182.20.179',1262813803,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"New ButtonSkin-Tool Update 4.0 ( Preview )\";}'),(1000,1,1858,3,17799,0,'94.163.15.201',1262994604,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"NO THEME XP\";}'),(1001,1,49,3,17804,0,'89.97.124.66',1263201808,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New class on development\";}'),(1002,1,249,3,17804,0,'190.74.49.61',1263202051,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: New class on development\";i:1;s:6:\"Silvio\";}'),(1003,1,1257,3,17806,0,'85.182.27.114',1263214291,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: How to create a multiline button?\";}'),(1004,3,5,0,0,5,'83.213.1.171',1263246799,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Jaime Irurzun\";}'),(1005,1,51,3,17820,0,'80.122.88.242',1263387604,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: RibbonBar ALT key\";}'),(1006,0,2,0,0,0,'87.222.198.127',1263422756,'LOG_ADMIN_AUTH_FAIL',''),(1007,0,2,0,0,0,'87.222.198.127',1263422763,'LOG_ADMIN_AUTH_SUCCESS',''),(1008,0,2,0,0,0,'87.222.198.127',1263422804,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"Karulo\";}'),(1009,0,2,0,0,0,'87.222.198.127',1263422809,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"Karulo\";}'),(1010,3,376,0,0,376,'190.232.44.176',1263442239,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(1011,1,2,12,17853,0,'87.222.198.127',1263551003,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:9:\"FiveLinux\";}'),(1012,1,1257,3,17865,0,'85.182.22.192',1263685873,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: How to detect focus\";}'),(1013,1,1221,6,17874,0,'200.168.152.34',1263818633,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Decrade Box\";}'),(1014,1,1221,6,17880,0,'200.168.152.34',1263846830,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"xbrowse &quot;pict&quot;\";}'),(1015,1,249,6,17895,0,'190.74.49.61',1263971988,'LOG_POST_EDITED','a:2:{i:0;s:60:\"ANTONIO,, Y COLEGAS,, SOBRE CORDENADAS DE PANTALLA Y VENTANA\";i:1;s:11:\"mantonio_08\";}'),(1016,1,1858,3,17898,0,'213.82.134.66',1263988850,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"RETURN value from array\";}'),(1017,1,1834,7,17913,0,'201.222.11.22',1264180777,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"FTP desde HandHelp Pidion BIP-1300\";}'),(1018,1,1858,3,17886,0,'94.163.81.45',1264199114,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Ribbon Limit\";}'),(1019,1,54,18,17928,0,'189.133.233.125',1264318459,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"COMBOBOX - TAB\";}'),(1020,0,2,0,0,0,'87.222.199.196',1264413544,'LOG_ADMIN_AUTH_SUCCESS',''),(1021,0,2,0,0,0,'87.222.199.196',1264413669,'LOG_USER_REACTIVATE','a:1:{i:0;s:12:\"Julio Agruel\";}'),(1022,3,2,0,0,1026,'87.222.199.196',1264413669,'LOG_USER_REACTIVATE_USER',''),(1023,0,2,0,0,0,'87.222.199.196',1264446628,'LOG_ADMIN_AUTH_SUCCESS',''),(1024,0,2,0,0,0,'87.222.199.196',1264446653,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"jcuzco\";}'),(1025,0,2,0,0,0,'87.222.199.196',1264446659,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"jcuzco\";}'),(1026,1,2,3,12758,0,'87.222.198.217',1264511333,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: New FWH 9.11\";}'),(1027,1,2,3,12758,0,'87.222.198.217',1264511348,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: New FWH 9.11\";}'),(1028,1,49,3,17624,0,'94.162.113.138',1264522158,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"Floor PLan  Project : I need Your Help !!!!!!!!!\";}'),(1029,1,303,3,17903,0,'72.220.177.125',1264616134,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: RELEASE ALL LIKE Does not work !!!\";}'),(1030,1,249,7,17921,0,'190.74.49.61',1264767507,'LOG_POST_EDITED','a:2:{i:0;s:53:\"Problemas para Envio y Rececpcion de Archivos por FTP\";i:1;s:11:\"Julio Perez\";}'),(1031,1,49,3,17958,0,'94.163.14.37',1264800821,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: RibbonBar News\";}'),(1032,0,2,0,0,0,'87.222.198.108',1264845900,'LOG_ADMIN_AUTH_SUCCESS',''),(1033,0,2,0,0,0,'87.222.198.108',1264845915,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"jll-fwh\";}'),(1034,0,2,0,0,0,'87.222.198.108',1264845919,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"jll-fwh\";}'),(1035,1,249,3,17977,0,'190.74.49.61',1264857656,'LOG_POST_EDITED','a:2:{i:0;s:25:\"why not show the bitmap ?\";i:1;s:6:\"Silvio\";}'),(1036,1,1257,3,17987,0,'85.182.19.195',1265025652,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"How to stretch / adjust BRUSH-Bmp to Dialog-Size ?\";}'),(1037,1,249,3,17982,0,'190.74.49.61',1265117832,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Folder Itemsize\";i:1;s:14:\"Dietmar Jahnel\";}'),(1038,1,2,3,17982,0,'87.222.198.26',1265200988,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Folder Itemsize\";i:1;s:14:\"Dietmar Jahnel\";}'),(1039,3,1715,0,0,1715,'190.145.253.18',1265202919,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"fusion\";i:1;s:25:\"sistemas@hoferreteria.com\";i:2;s:28:\"jair.linares@tecnitintas.com\";}'),(1040,1,2,3,17982,0,'87.222.198.26',1265205190,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Folder Itemsize\";i:1;s:14:\"Dietmar Jahnel\";}'),(1041,1,249,6,17993,0,'190.74.49.61',1265284912,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: Ayuda sobre TVIDEO y DIALOGS\";i:1;s:7:\"jll-fwh\";}'),(1042,1,249,6,17993,0,'190.74.49.61',1265285052,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: Ayuda sobre TVIDEO y DIALOGS\";i:1;s:7:\"jll-fwh\";}'),(1043,1,303,3,17968,0,'72.220.177.125',1265321081,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: A problem with GradientBrush()\";}'),(1044,1,249,4,17743,0,'190.74.49.61',1265373303,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: ROM Kitchen tools\";i:1;s:8:\"Rochinha\";}'),(1045,1,1257,3,18014,0,'85.182.25.182',1265374281,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: New ButtonTools 4.0a DOWNLOAD\";}'),(1046,1,409,6,17961,0,'190.82.238.58',1265376012,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: Migrar formularios FW a la Web (WebForm) Ver 1.1\";}'),(1047,3,1024,0,0,1024,'190.9.205.35',1265424509,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"audisys\";i:1;s:25:\"movil@microepressltda.com\";i:2;s:34:\"jose.angulo@auditoriaysistemas.com\";}'),(1048,1,86,3,18025,0,'81.83.186.205',1265447217,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Windows 64-bits\";}'),(1049,1,86,3,18033,0,'81.83.186.205',1265475135,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Urgent : ZIP\";}'),(1050,1,2,6,18028,0,'87.222.198.96',1265482159,'LOG_POST_EDITED','a:2:{i:0;s:11:\"GOOGLE MAPS\";i:1;s:7:\"jll-fwh\";}'),(1051,3,348,0,0,348,'190.234.135.27',1265513802,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"lubin\";}'),(1052,3,348,0,0,348,'190.234.135.27',1265513802,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"lubin\";i:1;s:25:\"lubin@lubsys-asesores.com\";i:2;s:20:\"lubin.am@hotmail.com\";}'),(1053,1,249,6,18030,0,'190.74.49.61',1265650580,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Ayuda Con Puertos COMM\";i:1;s:9:\"carloslmm\";}'),(1054,1,249,6,18015,0,'190.74.49.61',1265684463,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Bug en TWBROWSE ( wBrowse.prg) y FIX\";i:1;s:10:\"albeiroval\";}'),(1055,1,1877,3,18038,0,'88.67.119.78',1265714059,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: e-mailadresses\";}'),(1056,3,1024,0,0,1024,'190.255.146.242',1265898436,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"audisys\";}'),(1057,1,249,3,18070,0,'190.74.49.61',1265907999,'LOG_POST_EDITED','a:2:{i:0;s:44:\"Re: Also for Tree on the Xbrowse  for Mr Rao\";i:1;s:6:\"Silvio\";}'),(1058,1,1853,6,16020,0,'69.249.227.131',1265989332,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Index Decreciente\";}'),(1059,1,1853,6,18046,0,'69.249.227.131',1266083935,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: UNA SOBRE BRUSH\";}'),(1060,1,249,3,17746,0,'190.74.49.61',1266120322,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: need tcrw.prg for 32 bit\";i:1;s:7:\"jll-fwh\";}'),(1061,1,249,3,17746,0,'190.74.49.61',1266120367,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: need tcrw.prg for 32 bit\";i:1;s:7:\"jll-fwh\";}'),(1062,1,249,3,17746,0,'190.74.49.61',1266120390,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: need tcrw.prg for 32 bit\";i:1;s:7:\"jll-fwh\";}'),(1063,1,2,6,7330,0,'87.222.198.235',1266234612,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Calculadora Calculator\";}'),(1064,1,1853,17,18057,0,'69.249.227.131',1266243448,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Haru Free PDF Library\";}'),(1065,1,1257,3,18099,0,'85.182.25.70',1266322029,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Resource-resizing at Runtime ?\";}'),(1066,1,303,3,18111,0,'72.220.177.125',1266389853,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Which LIB file contains OLE functions\";}'),(1067,1,2,16,18118,0,'87.222.198.235',1266415551,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Harbour 2.1 for Windows Mobile / CE\";}'),(1068,1,2,3,18121,0,'87.222.198.219',1266655966,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Re: FWH 10.1 - DLL32 Function\";i:1;s:6:\"vilian\";}'),(1069,1,249,6,17077,0,'190.74.49.61',1266808037,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Situaciones con TSocket\";}'),(1070,0,2,0,0,0,'87.222.198.179',1266937909,'LOG_ADMIN_AUTH_SUCCESS',''),(1071,0,2,0,0,0,'87.222.198.179',1266937935,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"ukservice\";}'),(1072,0,2,0,0,0,'87.222.198.179',1266937951,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"ukservice\";}'),(1073,1,303,3,18163,0,'72.220.177.125',1267023006,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: How get DPI ?\";}'),(1074,3,1853,0,0,1853,'69.249.217.239',1267024046,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"Bayron\";i:1;s:23:\"bayron@mayabuilders.com\";i:2;s:22:\"mayabuilders@gmail.com\";}'),(1075,1,2,4,3989,0,'87.222.199.253',1267039579,'LOG_POST_EDITED','a:2:{i:0;s:10:\"DATEPICKER\";i:1;s:15:\"Richard Chidiak\";}'),(1076,1,1257,3,18203,0,'85.182.22.143',1267220602,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Missing xBrowse oLbx:lHScroll / oLbx:lVScroll in FWH 10.2 ?\";}'),(1077,1,1257,3,18203,0,'85.182.22.143',1267229072,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Missing xBrowse oLbx:lHScroll / oLbx:lVScroll in FWH 10.2 ?\";}'),(1078,1,2,6,18215,0,'87.222.199.253',1267259985,'LOG_MOVE','a:2:{i:0;s:23:\"Off Topic / Otros temas\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(1079,1,49,6,18236,0,'94.166.45.32',1267463260,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"RIBBON NO DIALOG ??????\";}'),(1080,1,1387,3,18253,0,'189.28.239.129',1267575682,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Erro in Fwh10.2\";}'),(1081,1,2,3,18270,0,'87.222.198.140',1267697411,'LOG_POST_EDITED','a:2:{i:0;s:28:\"MDICHILD - New Data bPostEnd\";i:1;s:17:\"nageswaragunupudi\";}'),(1082,3,209,0,0,209,'206.172.29.250',1267806343,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Vytas\";}'),(1083,3,1392,0,0,1392,'88.117.95.24',1267907707,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:3:\"ali\";i:1;s:22:\"a.richter@winhotel.net\";i:2;s:21:\"a.richter@winhotel.at\";}'),(1084,1,868,3,18279,0,'59.164.67.254',1267962232,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: On Dropfiles\";}'),(1085,1,249,6,18240,0,'190.74.49.61',1267971426,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: cGetFile32 no me funciona en Windows 7\";}'),(1086,1,2,3,14719,0,'87.222.198.149',1268144934,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: About UNICODE\";}'),(1087,1,1257,3,18308,0,'85.182.18.158',1268269223,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: A question about TGroup - Text and Colours\";}'),(1088,1,1257,3,18308,0,'85.182.18.158',1268269420,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"A question about TGroup - Text and Colours\";}'),(1089,1,2,6,16842,0,'87.222.198.149',1268324656,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Consigue FWH 6.12 gratuitamente !!!\";i:1;s:7:\"antolin\";}'),(1090,1,1313,6,17757,0,'189.26.73.238',1268477962,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Bug message bar com 2007\";}'),(1091,1,1313,6,17757,0,'189.26.73.238',1268477974,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Bug message bar com 2007\";}'),(1092,1,1313,6,18302,0,'189.26.73.238',1268478013,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Sr. Antonio - Possível Fix para TRIBBON.PRG\";}'),(1093,1,1313,6,18302,0,'189.26.73.238',1268478024,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Sr. Antonio - Possível Fix para TRIBBON.PRG\";}'),(1094,1,1427,3,18329,0,'202.88.227.131',1268632480,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: show the help button\";}'),(1095,1,1312,3,18332,0,'61.94.103.236',1268676179,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"How to send BYTE to LED Display\";}'),(1096,0,2,0,0,0,'87.222.199.169',1268694085,'LOG_ADMIN_AUTH_SUCCESS',''),(1097,0,2,0,0,0,'87.222.199.169',1268694103,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:7:\"anserkk\";}'),(1098,0,2,0,0,0,'87.222.199.169',1268694207,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:17:\"Global moderators\";i:1;s:7:\"anserkk\";}'),(1099,0,2,0,0,0,'87.222.199.169',1268694340,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:17:\"nageswaragunupudi\";}'),(1100,0,2,0,0,0,'87.222.199.169',1268694345,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:17:\"Global moderators\";i:1;s:17:\"nageswaragunupudi\";}'),(1101,1,49,3,18354,0,'213.82.134.66',1268818413,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"HB_CODEPAGE and\";}'),(1102,1,9,6,17509,0,'193.153.125.225',1268857917,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Sitio para pruebas con MySQL - Free\";}'),(1103,1,1288,3,18338,0,'189.59.105.77',1268929372,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: how to compile the file maindllp.c\";}'),(1104,1,249,6,18050,0,'190.74.49.61',1269026205,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: Facturación electronica - España\";i:1;s:6:\"mgsoft\";}'),(1105,1,1257,3,18374,0,'85.182.25.246',1269041960,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"Slow painting, using BtnBmp =&gt; oBtn:bClrGrad ?\";}'),(1106,1,1387,3,18382,0,'189.28.239.187',1269104843,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"GetVolumeInformation\";}'),(1107,1,9,6,18050,0,'193.153.125.225',1269172512,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Facturación electronica - España\";}'),(1108,0,2,0,0,0,'87.222.199.118',1269226560,'LOG_ADMIN_AUTH_SUCCESS',''),(1109,0,2,0,0,0,'87.222.199.118',1269226577,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"jfaguiar\";}'),(1110,0,2,0,0,0,'87.222.199.118',1269226582,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"jfaguiar\";}'),(1111,1,152,6,18393,0,'200.81.215.157',1269270425,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Grafico barra horizontal\";}'),(1112,0,2,0,0,0,'87.222.199.118',1269296399,'LOG_ADMIN_AUTH_SUCCESS',''),(1113,0,2,0,0,0,'87.222.199.118',1269296413,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"Oceano\";}'),(1114,0,2,0,0,0,'87.222.199.118',1269296419,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"Oceano\";}'),(1115,1,2,3,18370,0,'87.222.199.118',1269506796,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Take a look   Harbour Ide\";}'),(1116,1,2,3,18370,0,'87.222.199.118',1269506807,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Take a look   Harbour Ide\";}'),(1117,1,2,3,18370,0,'87.222.199.118',1269506820,'LOG_LOCK','a:1:{i:0;s:25:\"Take a look   Harbour Ide\";}'),(1118,0,2,0,0,0,'87.222.199.103',1269552747,'LOG_ADMIN_AUTH_SUCCESS',''),(1119,0,2,0,0,0,'87.222.199.103',1269552761,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"silvinam\";}'),(1120,0,2,0,0,0,'87.222.199.103',1269552766,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"silvinam\";}'),(1121,1,2,3,18432,0,'87.222.199.103',1269565687,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"OT: MS Access app use\";}'),(1122,1,2,6,18431,0,'87.222.199.103',1269565703,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"OT: Uso de la aplicación Access de MS\";}'),(1123,3,1035,0,0,1035,'190.68.15.127',1269591302,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"danielr cyberia®\";}'),(1124,1,249,6,18459,0,'190.74.49.61',1269949646,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:22:\"Consejos sobre windows\";}'),(1125,1,249,0,18458,0,'190.74.49.61',1269949646,'LOG_SPLIT_SOURCE','a:1:{i:0;s:22:\"Consejos sobre windows\";}'),(1126,1,413,6,18334,0,'195.55.176.97',1270121108,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: FWDBG.dll con UESTUDIO\";}'),(1127,1,51,3,18483,0,'80.122.88.242',1270123043,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Office 2010 beta  Home\";}'),(1128,1,51,3,18483,0,'80.122.88.242',1270123064,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Office 2010 beta  Home\";}'),(1129,3,656,0,0,656,'88.19.180.173',1270341986,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"helvant\";}'),(1130,3,656,0,0,656,'88.19.180.173',1270341986,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"helvant\";i:1;s:17:\"helvan@vrocio.com\";i:2;s:17:\"choces@hotmail.es\";}'),(1131,1,362,6,18473,0,'189.102.40.52',1270557019,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: GET MULTILINE justificada\";}'),(1132,0,2,0,0,0,'87.222.198.108',1270645139,'LOG_ADMIN_AUTH_SUCCESS',''),(1133,0,2,0,0,0,'87.222.198.108',1270645154,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"Eric.Developer\";}'),(1134,0,2,0,0,0,'87.222.198.108',1270645159,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"Eric.Developer\";}'),(1135,1,362,6,18473,0,'189.102.38.128',1270728817,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: GET MULTILINE justificada\";}'),(1136,1,281,11,18498,0,'113.197.88.118',1270799963,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"How about File open....\";}'),(1137,1,249,6,18514,0,'190.74.49.61',1270817680,'LOG_POST_EDITED','a:2:{i:0;s:13:\"Re: Menu 2007\";i:1;s:3:\"SGS\";}'),(1138,1,2,3,18519,0,'87.222.198.122',1270848453,'LOG_POST_EDITED','a:2:{i:0;s:35:\"Alt+ letter( &amp; ) POSSIBLE BUG ?\";i:1;s:11:\"MdaSolution\";}'),(1139,1,2,3,18502,0,'87.222.198.251',1270923477,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:26:\"FiveWin\'s fans on Facebook\";}'),(1140,1,2,6,18503,0,'87.222.198.251',1270923519,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:27:\"Fans de FiveWin en Facebook\";}'),(1141,3,1322,0,0,1322,'201.10.23.34',1270924706,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"sygecom\";}'),(1142,3,1322,0,0,1322,'201.10.23.34',1270924706,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"sygecom\";i:1;s:23:\"leonardo@sygecom.com.br\";i:2;s:29:\"leonardodemachado@hotmail.com\";}'),(1143,0,2,0,0,0,'87.222.198.75',1271040605,'LOG_ADMIN_AUTH_SUCCESS',''),(1144,0,2,0,0,0,'87.222.198.75',1271040620,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"Mario Santiago\";}'),(1145,0,2,0,0,0,'87.222.198.75',1271040626,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"Mario Santiago\";}'),(1146,1,868,3,18527,0,'59.164.67.26',1271080434,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: V I A C O R A L\";}'),(1147,1,362,6,18473,0,'189.102.38.242',1271101023,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: GET MULTILINE justificada\";}'),(1148,1,2,3,18527,0,'87.222.198.75',1271128074,'LOG_POST_EDITED','a:2:{i:0;s:4:\"vcrl\";i:1;s:8:\"driessen\";}'),(1149,1,1814,6,18552,0,'201.239.36.54',1271229670,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Duda para crear Vista previa factura\";}'),(1150,1,362,6,18473,0,'189.102.38.249',1271247379,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: GET MULTILINE justificada\";}'),(1151,0,2,0,0,0,'87.222.198.75',1271290643,'LOG_ADMIN_AUTH_SUCCESS',''),(1152,0,2,0,0,0,'87.222.198.75',1271290810,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"helvant\";}'),(1153,3,2,0,0,656,'87.222.198.75',1271290810,'LOG_USER_ACTIVE_USER',''),(1154,1,2,3,18570,0,'87.222.198.75',1271314865,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Canal Five web site is infected!\";}'),(1155,1,249,6,18585,0,'190.74.49.61',1271441316,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Sigo problema RMAKE: TsBrowse y Tsbutton\";}'),(1156,1,1313,6,17859,0,'189.114.165.15',1271769720,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"BTNBMP sem 2007 - BITMAP TOP\";}'),(1157,1,543,6,18626,0,'80.35.53.178',1271923471,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Cómo creo una librería con LIB.EXE\";}'),(1158,1,24,6,18618,0,'88.25.70.8',1272058228,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Una de Clases\";}'),(1159,1,868,6,18665,0,'59.164.66.75',1272430885,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Problemas com Date() em 10.3\";}'),(1160,1,1874,6,18669,0,'217.18.225.77',1272449592,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"xBrowse with SQLRDD\";}'),(1161,1,543,6,18687,0,'80.35.53.178',1272560436,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Error con oBrw:ToExcel() y campo numérico\";}'),(1162,1,868,6,18696,0,'59.164.66.214',1272638081,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: xBrowse no muestra bitmaps desde recurso\";}'),(1163,3,41,0,0,41,'190.107.33.180',1272762697,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:18:\"Marcelo Via Giglio\";i:1;s:21:\"via@dicyt.umss.edu.bo\";i:2;s:21:\"marcelo.via@gmail.com\";}'),(1164,1,2,3,18678,0,'87.222.198.254',1272819520,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: New FWH 10.4\";}'),(1165,3,35,0,0,35,'70.62.69.84',1272900461,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:11:\"Rick Lipkin\";i:1;s:23:\"lipkinrm29063@yahoo.com\";i:2;s:16:\"r1.1955@live.com\";}'),(1166,1,148,3,18719,0,'41.196.215.143',1272908768,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"error though right paths\";}'),(1167,1,543,6,18724,0,'80.35.53.178',1272970888,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Solucionado\";}'),(1168,1,2,3,18731,0,'87.222.199.106',1273056295,'LOG_POST_EDITED','a:2:{i:0;s:11:\"To Antonio:\";i:1;s:8:\"HunterEC\";}'),(1169,1,51,3,18731,0,'80.122.88.242',1273062318,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: To Antonio:\";}'),(1170,1,24,6,18734,0,'80.25.193.101',1273069246,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: O.T. ADS 6.20 para xHarbour 1.1.0\";}'),(1171,1,868,3,18731,0,'59.164.66.181',1273086787,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: To Antonio:\";}'),(1172,1,1387,3,18744,0,'201.46.42.103',1273132225,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: How to read data from Magnatic Card?\";}'),(1173,1,249,6,18750,0,'190.74.49.61',1273151671,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:11:\"Fallo Excel\";}'),(1174,1,249,0,18748,0,'190.74.49.61',1273151671,'LOG_SPLIT_SOURCE','a:1:{i:0;s:11:\"Fallo Excel\";}'),(1175,1,249,6,18751,0,'190.74.49.61',1273151761,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:6:\"BCC582\";}'),(1176,1,249,0,18749,0,'190.74.49.61',1273151761,'LOG_SPLIT_SOURCE','a:1:{i:0;s:6:\"BCC582\";}'),(1177,1,1104,6,18753,0,'200.63.165.86',1273171189,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"Se pueden combinar celdas al exportar a Excel con TOleAuto?\";}'),(1178,0,2,0,0,0,'87.222.199.106',1273180534,'LOG_ADMIN_AUTH_SUCCESS',''),(1179,0,2,0,0,0,'87.222.199.106',1273180565,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"Luis\";}'),(1180,0,2,0,0,0,'87.222.199.106',1273180570,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"Luis\";}'),(1181,1,163,3,18744,0,'82.58.208.204',1273213776,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: How to read data from Magnatic Card?\";}'),(1182,1,21,6,18733,0,'217.127.84.163',1273221442,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Salvar Screen to Bmp\";}'),(1183,1,21,6,18763,0,'217.127.84.163',1273234843,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"valid de get con msgrun y clase buton\";}'),(1184,1,1257,3,18698,0,'85.182.31.250',1273424064,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: bitmaps trasparents\";}'),(1185,1,1257,3,18698,0,'85.182.31.250',1273424134,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: bitmaps trasparents\";}'),(1186,1,1257,3,18698,0,'85.182.31.250',1273424329,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: bitmaps trasparents\";}'),(1187,1,1807,6,18786,0,'190.136.82.145',1273582802,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: xBrowse - Problema con fondo\";}'),(1188,1,1257,3,18698,0,'85.182.22.104',1273681396,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: bitmaps trasparents\";}'),(1189,1,249,6,18802,0,'190.74.49.61',1273803161,'LOG_POST_EDITED','a:2:{i:0;s:34:\"cómo poner bototes en una ventana\";i:1;s:6:\"mgsoft\";}'),(1190,1,34,3,18690,0,'68.5.50.250',1273878414,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Using T Calendar 10.04\";}'),(1191,1,2,3,18815,0,'87.222.199.56',1273964478,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: dealing with a CSV file\";i:1;s:3:\"hag\";}'),(1192,1,249,3,18812,0,'190.74.49.61',1274020452,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Error : Calendar Control\";i:1;s:8:\"TimStone\";}'),(1193,1,47,3,18832,0,'61.90.13.82',1274180960,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: How to Resize Button in program?\";}'),(1194,0,2,0,0,0,'87.222.199.246',1274262265,'LOG_ADMIN_AUTH_SUCCESS',''),(1195,0,2,0,0,0,'87.222.199.246',1274262605,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:15:\"Fulltext native\";}'),(1196,0,2,0,0,0,'87.222.199.246',1274265984,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:15:\"Fulltext native\";}'),(1197,0,2,0,0,0,'87.222.199.246',1274266056,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:15:\"Fulltext native\";}'),(1198,0,2,0,0,0,'87.222.199.246',1274266069,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(1199,0,2,0,0,0,'87.222.199.246',1274266134,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(1200,0,2,0,0,0,'87.222.199.246',1274266143,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(1201,1,89,3,18850,0,'213.21.136.60',1274280789,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Error in FW 10.04 PCODE\";}'),(1202,1,249,3,18812,0,'190.74.49.61',1274296902,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Error : Calendar Control\";i:1;s:8:\"TimStone\";}'),(1203,1,249,3,18812,0,'190.74.49.61',1274297429,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Error : Calendar Control\";i:1;s:8:\"TimStone\";}'),(1204,0,2,0,0,0,'87.222.199.246',1274329050,'LOG_ADMIN_AUTH_SUCCESS',''),(1205,0,2,0,0,0,'87.222.199.246',1274329065,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"jesustarre\";}'),(1206,0,2,0,0,0,'87.222.199.246',1274329071,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"jesustarre\";}'),(1207,0,2,0,0,0,'87.222.199.246',1274338324,'LOG_ADMIN_AUTH_SUCCESS',''),(1208,0,2,0,0,0,'87.222.199.246',1274343466,'LOG_PURGE_CACHE',''),(1209,0,2,0,0,0,'87.222.199.246',1274343825,'LOG_CONFIG_SETTINGS',''),(1210,1,1257,3,18808,0,'92.231.5.214',1274388308,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Border around GET\";}'),(1211,1,1313,6,12886,0,'189.114.244.97',1274874885,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Sr. Manuel Mercado - CANCEL TSBUTTON\";}'),(1212,1,1533,6,18914,0,'200.105.209.250',1274908490,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Ayuda con tablas\";}'),(1213,1,1387,6,18915,0,'187.45.22.46',1274912583,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Ajuda com DLL\";}'),(1214,0,2,0,0,0,'87.222.199.138',1275045671,'LOG_ADMIN_AUTH_SUCCESS',''),(1215,0,2,0,0,0,'87.222.199.138',1275046058,'LOG_PURGE_CACHE',''),(1216,0,2,0,0,0,'87.222.199.138',1275046132,'LOG_PURGE_CACHE',''),(1217,0,2,0,0,0,'87.222.199.138',1275046185,'LOG_PURGE_CACHE',''),(1218,1,2,3,12758,0,'87.222.199.138',1275046313,'LOG_DELETE_POST','a:1:{i:0;s:12:\"New FWH 10.5\";}'),(1219,1,2,3,12758,0,'87.222.199.138',1275046354,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"New FWH 10.5\";}'),(1220,1,2,3,18934,0,'87.222.199.138',1275046405,'LOG_USER_LOCK','a:1:{i:0;s:12:\"New FWH 10.5\";}'),(1221,1,1387,3,18939,0,'201.46.42.205',1275114102,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: How to implement Show Desktop functionality in FWH.\";}'),(1222,1,3,3,18941,0,'90.55.70.211',1275148523,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Xbrowse bug in fwh 10.5\";}'),(1223,1,1257,3,18630,0,'85.182.16.61',1275207792,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: change font to ALL dialogs\";}'),(1224,0,2,0,0,0,'87.222.199.202',1275208377,'LOG_ADMIN_AUTH_SUCCESS',''),(1225,0,2,0,0,0,'87.222.199.202',1275208417,'LOG_USER_DELETED','a:1:{i:0;s:12:\"minagrowband\";}'),(1226,1,2,3,18913,0,'87.222.199.202',1275261929,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Harbour can create oleserver and activex\";i:1;s:7:\"Lautaro\";}'),(1227,1,2,17,18953,0,'87.222.198.203',1275336913,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(1228,1,1313,6,18800,0,'201.47.70.42',1275425595,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Sr.Antonio/Biel - ALT+F10\";}'),(1229,0,2,0,0,0,'87.222.199.205',1275549493,'LOG_ADMIN_AUTH_SUCCESS',''),(1230,0,2,0,0,0,'77.208.217.188',1275651520,'LOG_ADMIN_AUTH_SUCCESS',''),(1231,0,2,0,0,0,'77.208.217.188',1275651606,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"bramvo\";}'),(1232,0,2,0,0,0,'77.208.217.188',1275651640,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"bramvo\";}'),(1233,0,2,0,0,0,'77.208.217.188',1275651654,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"bramvo\";}'),(1234,0,2,0,0,0,'87.222.198.182',1275689121,'LOG_ADMIN_AUTH_SUCCESS',''),(1235,0,2,0,0,0,'87.222.198.182',1275689137,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"vito_cordones\";}'),(1236,0,2,0,0,0,'87.222.198.182',1275689143,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:13:\"vito_cordones\";}'),(1237,0,2,0,0,0,'87.222.198.182',1275689147,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"vito_cordones\";}'),(1238,0,2,0,0,0,'87.222.199.174',1275785307,'LOG_ADMIN_AUTH_SUCCESS',''),(1239,0,2,0,0,0,'87.222.199.174',1275785354,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(1240,0,2,0,0,0,'87.222.199.174',1275785360,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(1241,0,2,0,0,0,'87.222.199.174',1275785422,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(1242,0,2,0,0,0,'87.222.199.174',1275785711,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:14:\"Fulltext mysql\";}'),(1243,0,2,0,0,0,'87.222.199.174',1275807878,'LOG_ADMIN_AUTH_SUCCESS',''),(1244,0,2,0,0,0,'87.222.199.174',1275807898,'LOG_SEARCH_INDEX_REMOVED','a:1:{i:0;s:15:\"Fulltext native\";}'),(1245,0,2,0,0,0,'87.222.199.174',1275821885,'LOG_SEARCH_INDEX_CREATED','a:1:{i:0;s:15:\"Fulltext native\";}'),(1246,1,486,3,18979,0,'201.82.136.171',1275829797,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Web service\";}'),(1247,0,2,0,0,0,'87.222.199.7',1275833094,'LOG_ADMIN_AUTH_SUCCESS',''),(1248,0,2,0,0,0,'87.222.198.140',1275912283,'LOG_ADMIN_AUTH_SUCCESS',''),(1249,0,2,0,0,0,'87.222.198.140',1275912319,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"mixharbour\";}'),(1250,0,2,0,0,0,'87.222.198.140',1275912325,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"mixharbour\";}'),(1251,3,1005,0,0,1005,'156.35.192.3',1275995196,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"llambion\";}'),(1252,0,2,0,0,0,'213.98.186.87',1276011390,'LOG_ADMIN_AUTH_SUCCESS',''),(1253,0,2,0,0,0,'213.98.186.87',1276011407,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"leondefrancia\";}'),(1254,0,2,0,0,0,'213.98.186.87',1276011412,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:13:\"leondefrancia\";}'),(1255,3,1354,0,0,1354,'68.183.139.114',1276125155,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:3:\"hag\";i:1;s:26:\"hgoldstein@singerlewak.com\";i:2;s:29:\"hgoldstein@dslextreme.com.com\";}'),(1256,3,430,0,0,430,'157.100.146.2',1276261692,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"fespinoza\";i:1;s:23:\"fespinoz@emeloro.gov.ec\";i:2;s:21:\"fespinoza@eor.cnel.ec\";}'),(1257,1,1257,3,19058,0,'92.231.6.81',1276328179,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"How to place Controls inside a Folder in DESIGN-Mode ?\";}'),(1258,1,1390,6,19033,0,'84.122.90.229',1276412569,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: VSCROLL en WBROWSE\";}'),(1259,1,303,3,18784,0,'68.7.204.149',1276433918,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: New controls for FWH\";}'),(1260,1,51,3,18784,0,'80.122.88.242',1276457107,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: New controls for FWH\";}'),(1261,1,2,6,18957,0,'87.222.198.168',1276587886,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: Implementando una Clase TExplorerBar propia de FWH\";i:1;s:4:\"AIDA\";}'),(1262,1,2,3,19068,0,'87.222.198.213',1276617961,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: How does Fivetech plan Backstage menu\";}'),(1263,1,51,4,19093,0,'80.122.88.242',1276793855,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"error handling - TRY CATCH - END\";}'),(1264,1,1387,3,19090,0,'187.45.23.121',1276809495,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: spell check with word activex\";}'),(1265,1,2,6,19092,0,'87.222.198.213',1276813529,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Diseñador web urgente !!!\";}'),(1266,1,2,6,19092,0,'87.222.198.213',1276813539,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Diseñador web urgente !!!\";}'),(1267,0,2,0,0,0,'87.222.198.106',1276947745,'LOG_ADMIN_AUTH_SUCCESS',''),(1268,0,2,0,0,0,'87.222.198.106',1276947760,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"gss200610\";}'),(1269,0,2,0,0,0,'87.222.198.106',1276947768,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"gss200610\";}'),(1270,1,1387,3,18956,0,'187.45.8.170',1277125466,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Implementing FWH own Class TExplorerBar\";}'),(1271,1,6,3,19112,0,'79.36.196.7',1277199260,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: FTP upload with progressbar\";}'),(1272,1,2,3,19136,0,'87.222.199.127',1277324717,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Re: New FWH 10.6\";i:1;s:11:\"MdaSolution\";}'),(1273,3,904,0,0,904,'41.132.186.212',1277355050,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Ollie\";}'),(1274,1,249,3,19157,0,'190.204.139.111',1277471415,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Error using Backstage\";}'),(1275,1,2,3,19136,0,'87.222.198.88',1277475178,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Re: New FWH 10.6\";i:1;s:8:\"Maurizio\";}'),(1276,1,249,6,19163,0,'190.204.139.111',1277564966,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Como cambio los colores en rbbtn ?\";}'),(1277,1,2,5,19169,0,'87.222.199.173',1277647284,'LOG_POST_EDITED','a:2:{i:0;s:43:\"Re: FiveMac: Time-limited Giveaway Offer!!!\";i:1;s:9:\"mbelgrano\";}'),(1278,1,1257,3,19175,0,'78.50.22.51',1277751882,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Resize dialogs from resources\";}'),(1279,1,2,8,19173,0,'87.222.198.53',1277805132,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Primera consulta sobre fiveMac\";i:1;s:9:\"mastintin\";}'),(1280,1,2,6,19174,0,'87.222.198.53',1277831141,'LOG_MOVE','a:2:{i:0;s:22:\"Utilities / Utilidades\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(1281,0,2,0,0,0,'87.222.198.53',1277831177,'LOG_ADMIN_AUTH_SUCCESS',''),(1282,3,2,0,0,2,'87.222.198.53',1277831327,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(1283,1,1427,3,19200,0,'122.166.65.112',1277981880,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: image trasparent\";}'),(1284,1,1863,3,19210,0,'124.107.6.11',1278039429,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Opening a file that no associated program\";}'),(1285,1,2,12,19147,0,'87.222.198.53',1278055063,'LOG_MOVE','a:2:{i:0;s:23:\"Off Topic / Otros temas\";i:1;s:9:\"FiveLinux\";}'),(1286,1,2,17,19207,0,'87.222.198.53',1278055101,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(1287,1,868,3,19193,0,'59.161.117.10',1278146488,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: xBrowse setPos(n,n) error\";}'),(1288,0,2,0,0,0,'87.222.198.188',1278148989,'LOG_ADMIN_AUTH_SUCCESS',''),(1289,0,2,0,0,0,'87.222.198.188',1278149061,'LOG_FORUM_EDIT','a:1:{i:0;s:7:\"FiveMac\";}'),(1290,0,2,0,0,0,'87.222.198.188',1278149102,'LOG_FORUM_EDIT','a:1:{i:0;s:7:\"FiveMac\";}'),(1291,1,2,8,19173,0,'87.222.198.188',1278150449,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:7:\"FiveMac\";}'),(1292,1,2,5,19169,0,'87.222.198.188',1278150800,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:7:\"FiveMac\";}'),(1293,1,2,5,19179,0,'87.222.198.188',1278151526,'LOG_MOVE','a:2:{i:0;s:20:\"WhatsNew / Novedades\";i:1;s:7:\"FiveMac\";}'),(1294,1,2,5,9346,0,'87.222.198.188',1278151618,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:7:\"FiveMac\";}'),(1295,1,2,5,4779,0,'87.222.198.188',1278151659,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:7:\"FiveMac\";}'),(1296,1,2,8,4780,0,'87.222.198.188',1278151689,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:7:\"FiveMac\";}'),(1297,3,184,0,0,184,'190.38.55.81',1278192289,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Simon\";}'),(1298,3,184,0,0,184,'190.38.55.81',1278192289,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"Simon\";i:1;s:30:\"simon.barrios@transcoal.com.ve\";i:2;s:25:\"multisistemas@hotmail.com\";}'),(1299,1,12,6,19274,0,'200.88.29.101',1278532055,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"OT: Linux Fedora y xHarbour\";}'),(1300,0,2,0,0,0,'87.222.199.157',1278536498,'LOG_ADMIN_AUTH_SUCCESS',''),(1301,3,2,0,0,693,'87.222.199.157',1278536562,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Marcelo Roggeri\";}'),(1302,0,2,0,0,0,'87.222.199.157',1278536562,'LOG_USER_USER_UPDATE','a:1:{i:0;s:15:\"Marcelo Roggeri\";}'),(1303,3,693,0,0,693,'190.231.188.130',1278548071,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Marcelo Roggeri\";}'),(1304,3,693,0,0,693,'190.231.188.130',1278548071,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:15:\"Marcelo Roggeri\";i:1;s:27:\"roggerimarcelo@flyvt.com.ar\";i:2;s:24:\"roggerimarcelo@gmail.com\";}'),(1305,1,249,6,19302,0,'190.204.139.111',1278716740,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:38:\"Algun ejemplo de GET usando FWCalendar\";}'),(1306,1,249,0,19301,0,'190.204.139.111',1278716740,'LOG_SPLIT_SOURCE','a:1:{i:0;s:38:\"Algun ejemplo de GET usando FWCalendar\";}'),(1307,1,303,3,19279,0,'68.7.204.149',1278729217,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: How to get Active Object in MDI app\";}'),(1308,1,249,3,19305,0,'190.204.139.111',1278870338,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: xBrowse code block to evaluate fieldname()-&gt;value\";}'),(1309,1,2,3,19328,0,'87.222.199.183',1279099270,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: UE Studio &amp; xHarbour Builder\";i:1;s:21:\"Enrico Maria Giordano\";}'),(1310,1,543,6,19350,0,'80.35.53.178',1279108889,'LOG_DELETE_TOPIC','a:1:{i:0;s:58:\"Para Fivetech: ¿Cómo quitar el look 3d en los diálogos?\";}'),(1311,0,2,0,0,0,'87.222.199.183',1279113030,'LOG_ADMIN_AUTH_SUCCESS',''),(1312,3,2,0,0,810,'87.222.199.183',1279113068,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Uwe Diemer\";}'),(1313,0,2,0,0,0,'87.222.199.183',1279113068,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Uwe Diemer\";}'),(1314,1,303,3,19334,0,'68.7.204.149',1279132215,'LOG_DELETE_POST','a:1:{i:0;s:59:\"Re: Refreshing xbrowse when dataset is closed and re-opened\";}'),(1315,1,1257,3,19362,0,'92.231.4.253',1279177828,'LOG_DELETE_TOPIC','a:1:{i:0;s:57:\"How to show selected Array-elements DISABLED in xBrowse ?\";}'),(1316,0,2,0,0,0,'87.222.199.183',1279183190,'LOG_ADMIN_AUTH_SUCCESS',''),(1317,3,2,0,0,810,'87.222.199.183',1279183235,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Uwe Diemer\";}'),(1318,0,2,0,0,0,'87.222.199.183',1279183235,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Uwe Diemer\";}'),(1319,0,2,0,0,0,'87.222.199.183',1279188537,'LOG_USER_REACTIVATE','a:1:{i:0;s:10:\"Uwe Diemer\";}'),(1320,3,2,0,0,810,'87.222.199.183',1279188537,'LOG_USER_REACTIVATE_USER',''),(1321,0,2,0,0,0,'87.222.199.44',1279233433,'LOG_ADMIN_AUTH_SUCCESS',''),(1322,3,2,0,0,810,'87.222.199.44',1279233730,'LOG_USER_UPDATE_NAME','a:2:{i:0;s:10:\"Uwe Diemer\";i:1;s:17:\"UD previous posts\";}'),(1323,3,2,0,0,810,'87.222.199.44',1279233730,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"Uwe Diemer\";i:1;s:14:\"udiemer@web.de\";i:2;s:17:\"udoldposts@web.de\";}'),(1324,0,2,0,0,0,'87.222.199.44',1279233730,'LOG_USER_USER_UPDATE','a:1:{i:0;s:17:\"UD previous posts\";}'),(1325,0,2,0,0,0,'87.222.199.44',1279241821,'LOG_ADMIN_AUTH_SUCCESS',''),(1326,1,376,6,19375,0,'201.230.184.209',1279249768,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"¿Qué pasó con AT() y RAT() ?\";}'),(1327,1,1526,5,19377,0,'91.46.168.197',1279301675,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Disable resize a window\";}'),(1328,1,868,3,19334,0,'59.161.88.99',1279340889,'LOG_DELETE_POST','a:1:{i:0;s:59:\"Re: Refreshing xbrowse when dataset is closed and re-opened\";}'),(1329,1,6,3,18430,0,'79.40.56.149',1279482918,'LOG_POST_EDITED','a:2:{i:0;s:12:\"Re: combobox\";i:1;s:3:\"jds\";}'),(1330,1,36,6,19393,0,'200.113.108.252',1279553409,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: añadir una data a una class\";}'),(1331,0,2,0,0,0,'87.222.199.153',1279627910,'LOG_ADMIN_AUTH_SUCCESS',''),(1332,0,2,0,0,0,'87.222.199.153',1279627937,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:12:\"Chack Bouwer\";}'),(1333,0,2,0,0,0,'87.222.199.153',1279628004,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:12:\"Chack Bouwer\";}'),(1334,0,2,0,0,0,'87.222.199.153',1279628146,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:12:\"Chack Bouwer\";}'),(1335,0,2,0,0,0,'87.222.199.153',1279628152,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:12:\"Chack Bouwer\";}'),(1336,1,249,6,19400,0,'190.204.139.111',1279632702,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: Nueva pagina de tabla de colores para todos\";i:1;s:8:\"FiveWiDi\";}'),(1337,1,249,6,19400,0,'190.204.139.111',1279632762,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: Nueva pagina de tabla de colores para todos\";i:1;s:8:\"FiveWiDi\";}'),(1338,1,249,6,19400,0,'190.204.139.111',1279632797,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: Nueva pagina de tabla de colores para todos\";i:1;s:8:\"FiveWiDi\";}'),(1339,1,249,6,19400,0,'190.204.139.111',1279632831,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: Nueva pagina de tabla de colores para todos\";i:1;s:8:\"FiveWiDi\";}'),(1340,1,2,6,19394,0,'87.222.199.153',1279693563,'LOG_POST_EDITED','a:2:{i:0;s:59:\"Re: No encuentro explicación!! Alguna ayuda? (Solucionado)\";i:1;s:10:\"jrestojeda\";}'),(1341,0,2,0,0,0,'87.222.199.153',1279694740,'LOG_ADMIN_AUTH_SUCCESS',''),(1342,3,2,0,0,228,'87.222.199.153',1279694774,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"leandro\";}'),(1343,0,2,0,0,0,'87.222.199.153',1279694774,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"leandro\";}'),(1344,1,1858,3,19415,0,'94.167.189.88',1279840485,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"RIBBON DETECT\";}'),(1345,1,36,6,19404,0,'200.113.108.253',1279989260,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: XBROWSE y WITH OBJECT SOLUCIONADO\";}'),(1346,3,446,0,0,446,'151.32.100.177',1280255390,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"chiaiese\";i:1;s:21:\"chiaiese@interfree.it\";i:2;s:26:\"chiaiese@recinformatica.it\";}'),(1347,0,2,0,0,0,'83.32.215.226',1280264519,'LOG_ADMIN_AUTH_SUCCESS',''),(1348,0,2,0,0,0,'83.32.215.226',1280264543,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:18:\"Alessandro Avelino\";}'),(1349,0,2,0,0,0,'83.32.215.226',1280264548,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:18:\"Alessandro Avelino\";}'),(1350,1,1313,6,12759,0,'189.26.78.83',1280401114,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Nuevo FWH 10.7\";}'),(1351,3,1640,0,0,1640,'190.255.213.6',1280446018,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Jairo Barbosa\";}'),(1352,3,543,0,0,543,'80.35.53.178',1280493583,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"fernandomoralesdr\";}'),(1353,3,543,0,0,543,'80.35.53.178',1280493583,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:17:\"fernandomoralesdr\";i:1;s:26:\"fernandomoralesdr@yahoo.es\";i:2;s:32:\"fernandomoralesdr@telefonica.net\";}'),(1354,1,12,6,19473,0,'200.88.29.25',1280496017,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"E2225 Too many initializers (c++)\";}'),(1355,3,52,0,0,52,'200.117.51.51',1280504788,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:11:\"goosfancito\";i:1;s:22:\"fwh@goosfancito.com.ar\";i:2;s:21:\"goosfancito@gmail.com\";}'),(1356,1,543,6,19474,0,'80.35.53.178',1280505097,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Buenos dias a todos. imprimir pdf...\";}'),(1357,1,486,3,19482,0,'187.106.52.129',1280589537,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"RC and HRB\";}'),(1358,1,1104,6,19457,0,'201.255.48.152',1280678186,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Como saber el proceso en ejecución?\";}'),(1359,1,1104,6,19457,0,'201.255.48.152',1280681868,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Como saber el proceso en ejecución?\";}'),(1360,1,303,3,19485,0,'68.7.204.149',1280691209,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Help with MENU COMMAND !!\";}'),(1361,1,1975,11,4764,0,'125.160.120.93',1280735791,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: FiveLinux on Ubuntu\";}'),(1362,1,297,3,19495,0,'151.47.54.9',1280775204,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: create and use an index for a set of records\";}'),(1363,1,36,3,19484,0,'200.113.108.253',1280777489,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"FastReport, imprimir varios colores\";}'),(1364,0,2,0,0,0,'83.38.54.69',1280785209,'LOG_ADMIN_AUTH_FAIL',''),(1365,0,2,0,0,0,'83.38.54.69',1280785223,'LOG_ADMIN_AUTH_SUCCESS',''),(1366,3,2,0,0,2,'83.38.54.69',1280785331,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(1367,0,2,0,0,0,'83.38.54.69',1280785331,'LOG_USER_USER_UPDATE','a:1:{i:0;s:15:\"Antonio Linares\";}'),(1368,1,47,3,19516,0,'58.8.237.40',1280930270,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"SButton7 &amp; Alpha Chanel problem, help please\";}'),(1369,3,846,0,0,846,'201.11.136.93',1281092435,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Dorneles\";}'),(1370,1,868,3,18878,0,'117.241.88.73',1281437475,'LOG_REPORT_CLOSED','a:1:{i:0;s:28:\"Re: OT: new FWH ECR released\";}'),(1371,3,322,0,0,322,'189.254.84.2',1281572582,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"nazariosn\";}'),(1372,1,1257,3,19588,0,'85.182.19.94',1281804320,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"No Top / Left-Values with Window &lt; ON MOVE &gt; ?\";}'),(1373,1,249,3,19587,0,'190.75.135.204',1281816129,'LOG_POST_EDITED','a:2:{i:0;s:41:\"Re: FWH32 cannot read 64bit Registry Keys\";i:1;s:6:\"Davide\";}'),(1374,1,249,3,19587,0,'190.204.139.111',1281956798,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: FWH32 cannot read 64bit Registry Keys\";}'),(1375,1,249,6,19596,0,'190.204.139.111',1282061642,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Que es mejor usar Harbour o xHarbor?\";i:1;s:7:\"thefull\";}'),(1376,1,24,6,19596,0,'80.25.193.101',1282148686,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Que es mejor usar Harbour o xHarbor?\";}'),(1377,1,1257,3,19543,0,'92.224.210.198',1282231051,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: New Class: TFolderEx\";}'),(1378,3,192,0,0,192,'87.235.195.107',1282549116,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Juan Gálvez\";}'),(1379,1,249,6,19617,0,'190.204.139.111',1282614636,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: Mostrar base .MDB\";i:1;s:20:\"juan carlos bellucci\";}'),(1380,1,303,3,19609,0,'68.7.204.149',1282672576,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Win7 + EZTW32.DLL problem?\";}'),(1381,1,1371,6,19657,0,'80.32.252.29',1282744195,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Longitud de página en Epson LX300 II\";}'),(1382,1,49,3,19614,0,'94.166.171.143',1282746418,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Explorer Bar Class Issues\";}'),(1383,3,39,0,0,39,'190.121.15.74',1282765488,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lautaro\";}'),(1384,1,249,3,19671,0,'190.204.139.111',1282817287,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Xbrowse vertical scroll position\";i:1;s:15:\"Richard Chidiak\";}'),(1385,1,1257,3,19675,0,'85.182.20.98',1282833397,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Tsay =&gt; lBorder, lBox =&gt; Message not found ?\";}'),(1386,1,2,3,19688,0,'95.121.67.107',1282864719,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:19:\"How do my question?\";}'),(1387,1,2,3,19688,0,'95.121.67.107',1282893315,'LOG_POST_EDITED','a:2:{i:0;s:22:\"How to do my question?\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(1388,1,249,6,19686,0,'190.204.139.111',1282915113,'LOG_POST_EDITED','a:2:{i:0;s:13:\"Xbrowse y ADO\";i:1;s:11:\"ruben Dario\";}'),(1389,1,249,6,19686,0,'190.204.139.111',1282918696,'LOG_POST_EDITED','a:2:{i:0;s:13:\"Xbrowse y ADO\";i:1;s:11:\"ruben Dario\";}'),(1390,1,108,6,19696,0,'200.51.42.91',1282928744,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Erroneo....\";}'),(1391,1,108,6,19696,0,'200.51.42.91',1282928755,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"OT:Error de Secuencia de Listbox\";}'),(1392,1,249,6,9627,0,'190.204.139.111',1282947539,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Guardar Imagenes en una tabla\";i:1;s:14:\"Willi Quintana\";}'),(1393,1,1257,3,19695,0,'92.224.209.183',1283129420,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Problem with display of Checkbox and Radio\";}'),(1394,1,36,6,19705,0,'200.113.108.253',1283174756,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Consulta sobre SetKey\";}'),(1395,1,249,2,19714,0,'190.204.139.111',1283204798,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"levitra overnight\";}'),(1396,0,249,0,0,0,'190.204.139.111',1283204845,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:10:\"josephwind\";}'),(1397,1,249,0,0,0,'190.204.139.111',1283204845,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:10:\"josephwind\";}'),(1398,1,249,18,19712,0,'190.204.139.111',1283204866,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"caffeine content of decaf\";}'),(1399,1,249,21,19711,0,'190.204.139.111',1283204878,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"when to use aspirin\";}'),(1400,1,249,11,19713,0,'190.204.139.111',1283204888,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"side affects of zocor\";}'),(1401,1,249,6,6448,0,'190.204.139.111',1283261121,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Para Antonio Linares\";i:1;s:7:\"lorenzo\";}'),(1402,1,249,6,6448,0,'190.204.139.111',1283261136,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: Para Antonio Linares\";i:1;s:8:\"gdeteran\";}'),(1403,3,104,0,0,104,'189.107.75.88',1283265876,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Rossine\";}'),(1404,1,233,3,19732,0,'60.50.100.126',1283331158,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Command Prompt stay on top\";}'),(1405,1,249,3,19737,0,'190.204.139.111',1283350999,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: Excessive memory consuption\";i:1;s:15:\"Richard Chidiak\";}'),(1406,1,210,3,19678,0,'81.24.147.150',1283420910,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"XBROWSE VScroll\";}'),(1407,1,1965,3,19718,0,'92.75.200.182',1283497738,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: New FWH 10.8\";}'),(1408,1,2,6,19738,0,'83.38.54.64',1283685049,'LOG_POST_EDITED','a:2:{i:0;s:60:\"He actualizado a FiveWin 10.8 y nome Funciona la tecla ENTER\";i:1;s:7:\"colthop\";}'),(1409,1,1257,3,19771,0,'92.224.208.192',1283725504,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: xBrowse, how to add / change Images in structure browser ?\";}'),(1410,3,511,0,0,511,'186.14.168.31',1283915462,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:15:\"Alvaro Urdaneta\";i:1;s:17:\"alvarou@cantv.net\";i:2;s:27:\"alvaro.urdaneta@hotmail.com\";}'),(1411,1,36,6,19797,0,'200.113.108.253',1284048983,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: O.T. Conectar unidad de red\";}'),(1412,1,1257,3,19807,0,'85.182.18.219',1284069590,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: How to type Norway Language (Norwegian) in FWH?\";}'),(1413,3,1990,0,0,1990,'188.99.180.87',1284103078,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Silvio.Balcony\";}'),(1414,3,1990,0,0,1990,'188.99.180.87',1284103078,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:14:\"Silvio.Balcony\";i:1;s:13:\"duc-jo@web.de\";i:2;s:29:\"silvio.balcony@googlemail.com\";}'),(1415,0,2,0,0,0,'83.38.54.64',1284103231,'LOG_ADMIN_AUTH_SUCCESS',''),(1416,0,2,0,0,0,'83.38.54.64',1284103275,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"Silvio.Balcony\";}'),(1417,0,2,0,0,0,'83.38.54.64',1284103281,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"Silvio.Balcony\";}'),(1418,1,1257,3,19829,0,'92.231.6.55',1284233358,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Unresolved Externals in FiveHX.lib ?\";}'),(1419,1,1257,3,19830,0,'92.231.6.55',1284238554,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Unresolved External from FiveHX.lib ?\";}'),(1420,1,1257,3,19831,0,'92.231.6.55',1284244754,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"Resource-Error with BCC582 ( invalid OMF-record )\";}'),(1421,1,1257,3,19807,0,'85.182.17.63',1284378278,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: How to type Norway Language (Norwegian) in FWH?\";}'),(1422,1,2,19,19836,0,'95.121.66.149',1284379707,'LOG_MOVE','a:2:{i:0;s:22:\"Utilities / Utilidades\";i:1;s:23:\"Off Topic / Otros temas\";}'),(1423,0,2,0,0,0,'81.44.121.155',1284528112,'LOG_ADMIN_AUTH_SUCCESS',''),(1424,0,2,0,0,0,'81.44.121.155',1284528132,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"maxhd\";}'),(1425,0,2,0,0,0,'81.44.121.155',1284528138,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"maxhd\";}'),(1426,1,2,6,19861,0,'81.44.127.0',1284703041,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Ayuda cambio de tcbrowse a xbrowse.\";i:1;s:10:\"FranciscoA\";}'),(1427,1,2,6,19861,0,'81.44.127.0',1284703302,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: Ayuda cambio de tcbrowse a xbrowse.\";i:1;s:10:\"FranciscoA\";}'),(1428,3,1344,0,0,1344,'87.164.150.168',1284975987,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"gkuhnert\";}'),(1429,1,1466,6,19887,0,'200.62.70.163',1284993846,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Comportamiento anómalo en Get con cláusulas WHEN y CANCEL\";}'),(1430,1,2,3,19813,0,'83.43.80.115',1285062876,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Re: skinbuttons and enter key\";i:1;s:15:\"Richard Chidiak\";}'),(1431,1,1257,3,19902,0,'85.182.19.154',1285089489,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"How to define transparent Controls on Explorerbar ?\";}'),(1432,0,2,0,0,0,'81.37.200.59',1285224314,'LOG_ADMIN_AUTH_SUCCESS',''),(1433,0,2,0,0,0,'81.37.200.59',1285224358,'LOG_WORD_DELETE','a:1:{i:0;s:9:\"CanalFive\";}'),(1434,3,2,0,0,67,'81.37.200.59',1285231775,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Frank Demont\";}'),(1435,0,2,0,0,0,'81.37.200.59',1285231775,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Frank Demont\";}'),(1436,0,2,0,0,0,'81.37.200.59',1285242438,'LOG_ADMIN_AUTH_SUCCESS',''),(1437,3,2,0,0,67,'81.37.200.59',1285242491,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Frank Demont\";}'),(1438,0,2,0,0,0,'81.37.200.59',1285242491,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Frank Demont\";}'),(1439,1,2,3,19932,0,'81.37.200.59',1285406716,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: &quot;BCC 6.3&quot; Released\";}'),(1440,1,2,3,19946,0,'81.37.200.59',1285665984,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: New Class TWebCam in FWH 10.9\";}'),(1441,1,303,3,19948,0,'68.7.204.149',1285717043,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: vTaskBar on the left MDIChild Window on the Right\";}'),(1442,1,303,3,19955,0,'68.7.204.149',1285720133,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Question about XBROWSE\";}'),(1443,0,2,0,0,0,'83.32.215.194',1285778596,'LOG_ADMIN_AUTH_SUCCESS',''),(1444,0,2,0,0,0,'83.32.215.194',1285778617,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"evert mora\";}'),(1445,0,2,0,0,0,'83.32.215.194',1285778633,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"evert mora\";}'),(1446,1,34,3,19969,0,'68.4.53.80',1285893412,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Get cut/paste menu\";}'),(1447,3,2024,0,0,2024,'216.82.251.228',1285932958,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"tnetland\";}'),(1448,1,1466,3,19985,0,'200.62.70.163',1286062513,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Changing degrade buttonbar color\";}'),(1449,1,1466,3,19985,0,'200.62.70.163',1286062522,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Changing degrade buttonbar color\";}'),(1450,3,240,0,0,240,'85.201.87.174',1286096461,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:17:\"Raymond Fischbach\";i:1;s:25:\"r_fischbach@tvcablenet.be\";i:2;s:17:\"rfischbach@voo.be\";}'),(1451,0,2,0,0,0,'83.45.70.2',1286211903,'LOG_ADMIN_AUTH_SUCCESS',''),(1452,0,2,0,0,0,'83.45.70.2',1286211924,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"Pedro lerda\";}'),(1453,0,2,0,0,0,'83.45.70.2',1286211931,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"Pedro lerda\";}'),(1454,3,309,0,0,309,'95.129.199.176',1286364523,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Taavi\";}'),(1455,1,303,3,19966,0,'68.7.204.149',1286383162,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: FWH1009  CheckBox Prompt disappear\";}'),(1456,1,6,3,19966,0,'79.43.213.244',1286383329,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: FWH1009  CheckBox Prompt disappear\";}'),(1457,1,249,6,20033,0,'190.204.139.111',1286637562,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:11:\"FWH - Mysql\";}'),(1458,1,249,0,20031,0,'190.204.139.111',1286637563,'LOG_SPLIT_SOURCE','a:1:{i:0;s:11:\"FWH - Mysql\";}'),(1459,3,1561,0,0,1561,'189.26.209.100',1286747597,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"tiaofw\";}'),(1460,1,1990,3,18232,0,'188.99.185.240',1286888088,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: last source of rpreview\";}'),(1461,1,249,3,20007,0,'190.204.139.111',1286929958,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Problem with aGetFiles()\";}'),(1462,1,249,3,20046,0,'186.25.13.77',1286977586,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Enhanced TFOLDEREX\";i:1;s:8:\"byte-one\";}'),(1463,1,249,3,20046,0,'186.25.13.77',1286978137,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Enhanced TFOLDEREX\";i:1;s:8:\"byte-one\";}'),(1464,3,251,0,0,251,'87.29.190.163',1287216461,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"DiGregorio\";}'),(1465,1,249,3,20071,0,'186.25.21.219',1287321144,'LOG_POST_EDITED','a:2:{i:0;s:12:\"Re: TFoldeEX\";i:1;s:15:\"Antonio Linares\";}'),(1466,1,249,3,20056,0,'201.209.228.87',1287337279,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: BtnBmp changed behavior?\";}'),(1467,1,86,3,20090,0,'81.83.145.53',1287576924,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Urgent : installing a MSI-file\";}'),(1468,1,36,6,20102,0,'200.113.108.252',1287781936,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Control GET sobre una imagen\";}'),(1469,1,2,8,20079,0,'83.49.82.18',1287827907,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: he conseguido un iphone\";i:1;s:9:\"mastintin\";}'),(1470,0,2,0,0,0,'83.49.82.18',1287917244,'LOG_ADMIN_AUTH_SUCCESS',''),(1471,0,2,0,0,0,'83.49.82.18',1287917315,'LOG_FORUM_EDIT','a:1:{i:0;s:33:\"FiveMac / FivePhone (iPhone/iPad)\";}'),(1472,0,2,0,0,0,'83.49.82.18',1287917360,'LOG_FORUM_EDIT','a:1:{i:0;s:33:\"FiveMac / FivePhone (iPhone/iPad)\";}'),(1473,0,2,0,0,0,'83.49.82.18',1287917417,'LOG_FORUM_EDIT','a:1:{i:0;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";}'),(1474,0,2,0,0,0,'83.49.82.18',1287917447,'LOG_FORUM_EDIT','a:1:{i:0;s:36:\"FiveMac / FivePhone ( iPhone, iPad )\";}'),(1475,0,2,0,0,0,'83.49.82.18',1287917503,'LOG_FORUM_EDIT','a:1:{i:0;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";}'),(1476,1,6,3,20119,0,'79.33.222.113',1288017567,'LOG_POST_EDITED','a:2:{i:0;s:29:\"The born and died Fw Projects\";i:1;s:10:\"Uwe.Diemer\";}'),(1477,3,543,0,0,543,'85.60.22.30',1288093551,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"fernandomoralesdr\";}'),(1478,3,543,0,0,543,'85.60.22.30',1288093551,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:17:\"fernandomoralesdr\";i:1;s:32:\"fernandomoralesdr@telefonica.net\";i:2;s:27:\"fernandomoralesdr@gmail.com\";}'),(1479,1,1928,8,20079,0,'83.97.169.215',1288096155,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: he conseguido un iphone\";}'),(1480,1,1928,8,20079,0,'83.97.169.215',1288115587,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: he conseguido un iphone\";}'),(1481,1,1257,3,20071,0,'92.224.208.169',1288261542,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Re: TFoldeEX\";}'),(1482,0,2,0,0,0,'83.49.82.18',1288374699,'LOG_ADMIN_AUTH_SUCCESS',''),(1483,3,2,0,0,2,'83.49.82.18',1288374749,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(1484,0,2,0,0,0,'83.49.82.18',1288380444,'LOG_ADMIN_AUTH_SUCCESS',''),(1485,0,2,0,0,0,'83.49.82.18',1288380459,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"jesvela\";}'),(1486,0,2,0,0,0,'83.49.82.18',1288380465,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"jesvela\";}'),(1487,1,303,3,20159,0,'68.7.204.149',1288391243,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Compile Error\";}'),(1488,0,2,0,0,0,'83.49.82.18',1288480735,'LOG_ADMIN_AUTH_SUCCESS',''),(1489,0,2,0,0,0,'83.49.82.18',1288480750,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"jjlopezg\";}'),(1490,0,2,0,0,0,'83.49.82.18',1288480756,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"jjlopezg\";}'),(1491,1,249,6,20173,0,'200.8.143.76',1288621380,'LOG_DELETE_POST','a:1:{i:0;s:66:\"Re: ¿Cómo hago para mostrar un get que fue definido con PASSWORD\";}'),(1492,1,2,6,20179,0,'83.49.82.18',1288685187,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Envio de transferencias bancarias automatizadas\";}'),(1493,1,2,6,20179,0,'83.49.82.18',1288685203,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Envio de transferencias bancarias automatizadas\";}'),(1494,1,2,6,20179,0,'83.49.82.18',1288685212,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Envio de transferencias bancarias automatizadas\";}'),(1495,1,6,3,19858,0,'79.33.220.112',1288694393,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Winword and OLE\";}'),(1496,1,35,3,20185,0,'70.63.254.31',1288806790,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Looking for some part time work\";}'),(1497,3,404,0,0,404,'85.155.208.163',1288890428,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"JMFS-D\";}'),(1498,1,249,3,20203,0,'186.90.217.161',1289050992,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Append SDF error\";i:1;s:17:\"Marc Vanzegbroeck\";}'),(1499,3,261,0,0,261,'76.79.236.154',1289067257,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"byron.hopp\";}'),(1500,1,1257,3,20231,0,'78.50.20.4',1289262124,'LOG_DELETE_TOPIC','a:1:{i:0;s:53:\"How to replace Text in VTitles ( refresh Textarea ) ?\";}'),(1501,1,2,8,20232,0,'88.26.195.150',1289390592,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Usando el simulador del iPhone/iPad\";}'),(1502,1,1257,3,20242,0,'85.182.19.160',1289438732,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"Possible multiple selections ( from Menu and Submenu ) ?\";}'),(1503,3,1057,0,0,1057,'190.233.47.22',1289534970,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"artu01\";}'),(1504,1,2,7,20245,0,'88.26.195.150',1289557379,'LOG_MOVE','a:2:{i:0;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";i:1;s:22:\"FiveWin para Pocket PC\";}'),(1505,3,255,0,0,255,'201.122.8.175',1289608660,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"VeRCE\";i:1;s:29:\"salinasj@geainternacional.com\";i:2;s:17:\"jcsomac@gmail.com\";}'),(1506,1,2,6,20269,0,'83.41.222.55',1289680764,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Tipo de letra en Folder\";}'),(1507,1,2,6,20270,0,'83.41.222.55',1289680779,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Tipo de letra en Folder\";}'),(1508,1,249,6,20286,0,'190.75.135.204',1289920444,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:40:\"menu modo windows funciones modo comando\";}'),(1509,1,249,0,20285,0,'190.75.135.204',1289920444,'LOG_SPLIT_SOURCE','a:1:{i:0;s:40:\"menu modo windows funciones modo comando\";}'),(1510,1,1928,8,20079,0,'83.97.169.215',1289936232,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: he conseguido un iphone\";}'),(1511,1,249,6,20239,0,'190.75.135.204',1289941851,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Re: Clases y Prgs\";i:1;s:11:\"servicomver\";}'),(1512,1,49,3,20266,0,'94.166.120.217',1289941853,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"TO ANTONIO\";}'),(1513,3,1322,0,0,1322,'201.22.33.118',1289960098,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"sygecom\";}'),(1514,1,249,6,20319,0,'201.209.228.87',1290103505,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:40:\"Socket Cliente solo xharbour sin FiveWin\";}'),(1515,1,249,0,20318,0,'201.209.228.87',1290103505,'LOG_SPLIT_SOURCE','a:1:{i:0;s:40:\"Socket Cliente solo xharbour sin FiveWin\";}'),(1516,3,1736,0,0,1736,'200.223.215.213',1290105373,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"ADutheil\";}'),(1517,3,1327,0,0,1327,'81.47.148.189',1290108664,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jfafive\";i:1;s:23:\"info@teleinformatica.eu\";i:2;s:15:\"jfa_y@yahoo.com\";}'),(1518,1,543,6,20305,0,'85.54.240.180',1290154233,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Solucionado.\";}'),(1519,0,2,0,0,0,'83.41.222.55',1290321743,'LOG_ADMIN_AUTH_SUCCESS',''),(1520,0,2,0,0,0,'83.41.222.55',1290321759,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"cristcaballero\";}'),(1521,0,2,0,0,0,'83.41.222.55',1290321764,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"cristcaballero\";}'),(1522,1,92,16,20351,0,'217.125.161.120',1290471014,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"Experiencia \'rara\' Windows 7, XP y pendrive USB\";}'),(1523,1,249,6,20359,0,'186.90.217.161',1290517532,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:44:\"Necesito la libreria HBCOMM.LIB con xHarbour\";}'),(1524,1,249,0,20358,0,'186.90.217.161',1290517532,'LOG_SPLIT_SOURCE','a:1:{i:0;s:44:\"Necesito la libreria HBCOMM.LIB con xHarbour\";}'),(1525,1,249,6,20364,0,'201.209.228.87',1290552726,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:33:\"¿Como se si compilo con FiveWin?\";}'),(1526,1,249,0,20362,0,'201.209.228.87',1290552726,'LOG_SPLIT_SOURCE','a:1:{i:0;s:33:\"¿Como se si compilo con FiveWin?\";}'),(1527,1,49,3,20357,0,'213.82.134.66',1290589007,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: REGISTRY  commands\";}'),(1528,1,249,6,20371,0,'186.90.217.161',1290724203,'LOG_POST_EDITED','a:2:{i:0;s:44:\"Re: OT- feliz cumple maestro Antonio Linares\";i:1;s:15:\"Ruben Fernandez\";}'),(1529,1,1853,6,20371,0,'190.148.184.113',1290792844,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: OT- feliz cumple maestro Antonio Linares\";}'),(1530,1,249,6,20390,0,'186.90.217.161',1290812810,'LOG_POST_EDITED','a:2:{i:0;s:41:\"Ubicar un Dlg en una ventana con Splitter\";i:1;s:6:\"MarioG\";}'),(1531,1,249,3,20387,0,'186.90.217.161',1290858166,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: sample of tree with checkbox\";}'),(1532,1,249,8,20079,0,'186.90.217.161',1291033787,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: he conseguido un iphone\";}'),(1533,3,394,0,0,394,'207.219.124.134',1291140802,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Mike Buckler\";}'),(1534,1,190,3,20401,0,'183.82.243.209',1291163466,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: HELP FOR A TEST  TO ALLOW  APPLICATIONS\";}'),(1535,1,1858,3,20357,0,'213.82.134.66',1291200072,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: REGISTRY  commands\";}'),(1536,1,49,3,20417,0,'94.166.128.99',1291233629,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: See on an array\";}'),(1537,1,1231,4,20298,0,'89.79.14.89',1291283178,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: DIALOG\'s title and national characters\";}'),(1538,1,36,6,20428,0,'200.113.108.252',1291390072,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Ads + SQL + Decimales ( SOLUCIONADO )\";}'),(1539,1,249,6,20433,0,'186.90.217.161',1291575471,'LOG_POST_EDITED','a:2:{i:0;s:14:\"Re: Una de Gif\";i:1;s:13:\"Jairo Barbosa\";}'),(1540,3,1354,0,0,1354,'68.183.52.21',1291747077,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:3:\"hag\";i:1;s:29:\"hgoldstein@dslextreme.com.com\";i:2;s:25:\"hgoldstein@dslextreme.com\";}'),(1541,1,249,6,20449,0,'186.90.217.161',1291863563,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Abrir un archivo con NotePad (SOLUCIONADO)\";i:1;s:13:\"juan_arroyo_t\";}'),(1542,3,2040,0,0,2040,'81.33.168.37',1291925299,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"pgfdz\";}'),(1543,1,1257,3,20459,0,'85.182.19.156',1291976130,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"Any Infos about publishing FWH-release 10.11 ???\";}'),(1544,1,86,3,20470,0,'81.83.152.111',1291988439,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"Urgent problem while linking with FWH 10.11\";}'),(1545,3,52,0,0,52,'186.124.254.189',1292164896,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"goosfancito\";}'),(1546,1,1257,3,20460,0,'92.231.6.196',1292262423,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"Possible to change MDI-frame-backgrd. at runtime ???\";}'),(1547,1,882,3,20495,0,'189.68.132.212',1292429574,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"xBrowse x Columns\";}'),(1548,1,882,21,20491,0,'189.68.132.212',1292437250,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"XBrowse x Colunas\";}'),(1549,1,249,3,20522,0,'186.90.189.58',1292928015,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:15:\"Merry Christmas\";}'),(1550,1,249,0,20521,0,'186.90.189.58',1292928015,'LOG_SPLIT_SOURCE','a:1:{i:0;s:15:\"Merry Christmas\";}'),(1551,1,449,7,20469,0,'88.24.254.104',1292949783,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Abrir archivos DBF compartidos\";}'),(1552,1,596,6,20520,0,'85.62.69.237',1293009160,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Feliz Navidad\";}'),(1553,1,2,6,20520,0,'88.26.195.150',1293020086,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Feliz Navidad\";}'),(1554,3,851,0,0,851,'83.1.198.235',1293262268,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"kajot\";i:1;s:14:\"inkom.kj@wp.pl\";i:2;s:12:\"inkom@hot.pl\";}'),(1555,1,2040,8,20079,0,'79.159.211.212',1293456188,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: he conseguido un iphone\";}'),(1556,3,1387,0,0,1387,'189.0.158.236',1293502206,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:17:\"lailton.webmaster\";i:1;s:29:\"lailton.webmaster@hotmail.com\";i:2;s:24:\"developer@lailton.com.br\";}'),(1557,1,58,3,20119,0,'88.65.112.12',1293697222,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: The born and died Fw Projects\";}'),(1558,1,2040,8,20079,0,'79.159.212.39',1294268229,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: he conseguido un iphone\";}'),(1559,1,1387,6,20619,0,'189.0.151.192',1294345100,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"UES AutoRun\";}'),(1560,1,811,6,20633,0,'190.24.47.104',1294638088,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Parpadeo de Checkbox y Radio fwh10.11\";}'),(1561,1,1981,6,20580,0,'200.54.92.138',1294746560,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Consulta sobre ListBox\";}'),(1562,1,1981,6,20385,0,'200.54.92.138',1294746633,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Re: Error BASE/1004 Class: \'NIL\' has no exported method: NEW\";}'),(1563,1,1981,6,19664,0,'200.54.92.138',1294746652,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Vouch32 ActiveX  - Vouch32x.dll\";}'),(1564,1,1981,6,19612,0,'200.54.92.138',1294746675,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Error: Unresolved external \'_HB_FUN_TDIALOG\' referenced from\";}'),(1565,1,1981,3,20250,0,'200.54.92.138',1294746697,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Socket Cliente\";}'),(1566,3,396,0,0,396,'190.36.50.82',1294887305,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"joseluisysturiz\";}'),(1567,1,1257,3,20648,0,'85.182.17.137',1294923732,'LOG_DELETE_TOPIC','a:1:{i:0;s:58:\"A problem with Ribbonbar =&gt; Option with  single-group ?\";}'),(1568,1,1257,3,20650,0,'92.231.6.207',1294968072,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Restore problems with Ribbonbar and Window min/max\";}'),(1569,1,1981,2,20637,0,'200.68.62.246',1295027795,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Pantalla 800 x 600\";}'),(1570,1,1257,3,20668,0,'85.182.16.240',1295267193,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"A Virus of a compiled Exe-file ???\";}'),(1571,1,1858,3,20667,0,'89.97.124.66',1295267232,'LOG_DELETE_TOPIC','a:1:{i:0;s:55:\"Help to create a test class for Controls mouse-resizing\";}'),(1572,0,2,0,0,0,'95.121.66.94',1295284775,'LOG_ADMIN_AUTH_SUCCESS',''),(1573,0,2,0,0,0,'95.121.66.94',1295284797,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"ltorres\";}'),(1574,0,2,0,0,0,'95.121.66.94',1295284808,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"ltorres\";}'),(1575,1,1981,6,20573,0,'200.54.92.138',1295349706,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"xHarbour.org y xHarbour.com\";}'),(1576,1,1981,6,20562,0,'200.54.92.138',1295349738,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Duda sobre FiveWin y xHarbour.com\";}'),(1577,1,1981,2,20626,0,'200.54.92.138',1295349803,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Trabajo con ventanas FiveWin (DEFINE WINDOW)\";}'),(1578,1,1981,2,20675,0,'201.241.22.9',1295396891,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Problema con ventana\";}'),(1579,1,1981,2,20676,0,'201.241.22.9',1295398581,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"NO BORDER EN BTNBMP\";}'),(1580,3,1712,0,0,1712,'200.27.171.194',1295479589,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"LGALDAMES\";}'),(1581,1,86,3,20615,0,'77.109.100.5',1295565219,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"No FWH 10.12 ?\";}'),(1582,3,140,0,0,140,'186.92.182.1',1295718395,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"gsabattino\";}'),(1583,1,249,6,20719,0,'186.90.188.73',1295833054,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Consulta sobre TSButton\";i:1;s:13:\"juan_arroyo_t\";}'),(1584,1,249,3,20714,0,'186.90.188.73',1295878719,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: TO DANIEL  FOLDEREX + CHECKBOX ERROR\";}'),(1585,1,1858,3,20714,0,'213.82.134.66',1295957291,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: TO DANIEL  FOLDEREX + CHECKBOX ERROR\";}'),(1586,3,1981,0,0,1981,'200.54.92.138',1296047585,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"jgayoso\";}'),(1587,1,1853,6,20728,0,'190.56.70.14',1296066056,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Imagenes en Mysql\";}'),(1588,1,249,3,20732,0,'186.90.188.73',1296083282,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Outlook Calendar (prototype)\";}'),(1589,1,249,3,20732,0,'186.90.188.73',1296083294,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Outlook Calendar (prototype)\";}'),(1590,1,249,6,20752,0,'186.90.188.73',1296209715,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Re: method seek Dolphin\";i:1;s:8:\"nnicanor\";}'),(1591,1,1257,3,20758,0,'92.231.7.248',1296220908,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Draw  a Circle into a Bitmap\";}'),(1592,1,868,3,20765,0,'59.93.89.106',1296393777,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Footer on last page.\";}'),(1593,1,1853,3,17470,0,'190.149.98.94',1296486379,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: HOW TO DIM &quot;CLOSE BUTTON&quot;\";}'),(1594,1,303,3,20793,0,'68.7.204.149',1296700247,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Doubt about define mail\";}'),(1595,1,1257,3,20677,0,'85.182.21.208',1296751489,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: xBrowse with round corners ??\";}'),(1596,1,1858,3,20801,0,'213.82.134.66',1296900152,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: the programs from alanit are now freeware\";}'),(1597,1,868,3,20817,0,'59.93.65.193',1296975543,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Counter in report.\";}'),(1598,1,49,3,20808,0,'94.164.135.160',1297012884,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Error FiveWin/3  Cannot create Dialog Box\";}'),(1599,0,2,0,0,0,'83.43.81.209',1297140836,'LOG_ADMIN_AUTH_SUCCESS',''),(1600,0,2,0,0,0,'83.43.81.209',1297140856,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"frota\";}'),(1601,0,2,0,0,0,'83.43.81.209',1297140861,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"frota\";}'),(1602,1,49,3,20831,0,'213.82.134.66',1297158051,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Combobox with bitmaps\";}'),(1603,1,249,3,20861,0,'186.90.188.73',1297351014,'LOG_POST_EDITED','a:2:{i:0;s:21:\"alanit TInforme class\";i:1;s:19:\"José Luis Sánchez\";}'),(1604,1,249,3,20861,0,'186.90.188.73',1297351032,'LOG_POST_EDITED','a:2:{i:0;s:21:\"alanit TInforme class\";i:1;s:19:\"José Luis Sánchez\";}'),(1605,1,1853,6,20865,0,'190.148.218.119',1297418925,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Ajustes de posicionamiento en la ventana\";}'),(1606,1,1387,3,20875,0,'189.0.208.115',1297487677,'LOG_DELETE_TOPIC','a:1:{i:0;s:7:\"Fiveweb\";}'),(1607,1,3,3,20882,0,'89.249.220.17',1297609123,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Xbrowse array refresh\";}'),(1608,3,130,0,0,130,'141.51.48.220',1297674943,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"StefanHaupt\";}'),(1609,3,316,0,0,316,'83.175.212.82',1297679541,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Carlos Mora\";}'),(1610,0,2,0,0,0,'83.43.81.209',1297791947,'LOG_ADMIN_AUTH_SUCCESS',''),(1611,3,2,0,0,34,'83.43.81.209',1297791999,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"TimStone\";}'),(1612,0,2,0,0,0,'83.43.81.209',1297791999,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"TimStone\";}'),(1613,3,1736,0,0,1736,'200.223.215.213',1297942542,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"ADutheil\";}'),(1614,3,376,0,0,376,'201.230.213.171',1297979781,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(1615,1,249,6,20962,0,'186.90.181.187',1298217773,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: Browse no muestra registros\";i:1;s:7:\"Compuin\";}'),(1616,1,1853,6,20969,0,'190.149.99.159',1298249890,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Re: RBBTN\";}'),(1617,1,1257,3,20967,0,'78.50.20.16',1298251397,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"BTNBMP different Size from Resource / Code ?\";}'),(1618,1,49,3,20975,0,'213.82.134.66',1298286426,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"translate on xbrowse\";}'),(1619,1,439,6,20977,0,'190.135.53.96',1298311432,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: ¡¡¡¡¡AYUDA!!!!! FASTREPORT CON FIVEWIN\";}'),(1620,1,309,3,20978,0,'95.129.199.176',1298315877,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"ADS development server\";}'),(1621,1,1427,6,20977,0,'122.166.65.112',1298373359,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: ¡¡¡¡¡AYUDA!!!!! FASTREPORT CON FIVEWIN\";}'),(1622,3,579,0,0,579,'189.200.204.12',1298446480,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RodolfoRBG\";}'),(1623,1,579,6,14171,0,'189.200.204.12',1298457418,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: como ver las Fechas de un archivo\";}'),(1624,0,2,0,0,0,'95.121.54.224',1298631033,'LOG_ADMIN_AUTH_SUCCESS',''),(1625,3,2,0,0,67,'95.121.54.224',1298631068,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Frank Demont\";}'),(1626,0,2,0,0,0,'95.121.54.224',1298631068,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Frank Demont\";}'),(1627,3,1336,0,0,1336,'190.207.73.92',1298738421,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"pinzon_jesus\";}'),(1628,0,2,0,0,0,'95.121.54.224',1298753632,'LOG_ADMIN_AUTH_SUCCESS',''),(1629,0,2,0,0,0,'95.121.54.224',1298753687,'LOG_USER_USER_UPDATE','a:1:{i:0;s:11:\"pinzonjesus\";}'),(1630,0,2,0,0,0,'95.121.54.224',1298753727,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"pinzonjesus\";}'),(1631,0,2,0,0,0,'95.121.54.224',1298753731,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"pinzonjesus\";}'),(1632,0,2,0,0,0,'95.121.54.224',1298753735,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"pinzonjesus\";}'),(1633,0,2,0,0,0,'95.121.54.224',1298861130,'LOG_ADMIN_AUTH_SUCCESS',''),(1634,0,2,0,0,0,'95.121.54.224',1298861149,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:12:\"LEOPOLDO1966\";}'),(1635,0,2,0,0,0,'95.121.54.224',1298861154,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:12:\"LEOPOLDO1966\";}'),(1636,1,2,8,21017,0,'95.121.54.224',1298914030,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Pregunta Usuario Nuevo Mac\";i:1;s:11:\"ruben Dario\";}'),(1637,1,180,6,21020,0,'83.38.161.37',1298963539,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Refrescar datos en Folder\";}'),(1638,0,2,0,0,0,'95.121.54.224',1299143300,'LOG_ADMIN_AUTH_SUCCESS',''),(1639,1,1874,4,21040,0,'217.18.225.77',1299165542,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: Is FWPPC compatible with latest Windows for PPC?\";}'),(1640,1,1981,12,21036,0,'200.68.62.246',1299245878,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Instalación FiveLinux y xHarbour\";}'),(1641,1,1981,11,21042,0,'200.68.62.246',1299245909,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Instalación FiveLinux y xHarbour\";}'),(1642,1,1981,12,21043,0,'200.68.62.246',1299245920,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Contenido paquete FiveLinux\";}'),(1643,3,392,0,0,392,'186.204.199.219',1299367659,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"vailtom\";i:1;s:24:\"renato@kssoftware.com.br\";i:2;s:17:\"vailtom@gmail.com\";}'),(1644,1,49,3,21058,0,'89.97.124.66',1299572311,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: symbol € on xbrowse\";}'),(1645,1,49,3,21065,0,'89.97.124.66',1299574477,'LOG_DELETE_TOPIC','a:1:{i:0;s:55:\"FOR NAGES  ERROR WITH MAKETOTAL() ON XBROWSE AND AN DBF\";}'),(1646,3,1344,0,0,1344,'87.164.147.158',1299681609,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"gkuhnert\";}'),(1647,1,249,3,21077,0,'186.90.181.187',1299757382,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: bitmap  changed from user\";}'),(1648,1,49,3,21090,0,'89.97.124.66',1299839241,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"change a xbrowse view\";}'),(1649,1,1814,6,21092,0,'200.72.167.138',1299851490,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: copy &amp; paste con Xbrowse\";}'),(1650,1,1397,6,21102,0,'190.207.133.7',1300041798,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: CAPTURAR LAMADA DE CENTRAL TELEFONICA\";}'),(1651,1,249,6,20969,0,'186.90.181.187',1300062717,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Re: RBBTN (SOLUCIONADO)\";i:1;s:11:\"elmoiquique\";}'),(1652,1,49,3,21115,0,'89.97.124.66',1300176661,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"for MAURIZIO GHERARDINI\";}'),(1653,1,362,6,21119,0,'189.102.117.246',1300307636,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: TPRINTER como configurar los margenes?\";}'),(1654,1,1387,3,21127,0,'201.9.96.226',1300307654,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Harbour on linux\";}'),(1655,1,249,6,21133,0,'186.90.181.187',1300315185,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Re: Error TDOSPRN:CNEGON / LINEA: 282\";i:1;s:11:\"ruben Dario\";}'),(1656,1,249,6,21133,0,'186.90.181.187',1300315230,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Re: Error TDOSPRN:CNEGON / LINEA: 282\";i:1;s:11:\"ruben Dario\";}'),(1657,1,49,3,21143,0,'94.166.230.152',1300404813,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"PRINT IMAGE on REPORT\";}'),(1658,1,249,6,20718,0,'186.90.181.187',1300699006,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: BITMAPS a veces desaparecen\";i:1;s:6:\"mgsoft\";}'),(1659,1,249,6,20718,0,'186.90.181.187',1300699763,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: BITMAPS a veces desaparecen\";i:1;s:6:\"mgsoft\";}'),(1660,1,249,6,11165,0,'186.90.181.187',1300705097,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Barra de menu muy ancha\";i:1;s:6:\"George\";}'),(1661,1,249,6,20582,0,'186.90.181.187',1300752776,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: bug errsysw.prg\";}'),(1662,1,297,3,21159,0,'217.57.213.130',1300799889,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: difference between xp and seven\";}'),(1663,3,579,0,0,579,'189.200.204.12',1300941223,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RodolfoRBG\";}'),(1664,1,1981,11,21104,0,'200.54.92.138',1301066372,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Can\'t open #include file: \'hbclass.ch\'\";}'),(1665,1,1981,12,21103,0,'200.54.92.138',1301066386,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Can\'t open #include file: \'hbclass.ch\'\";}'),(1666,1,1981,6,20739,0,'200.54.92.138',1301066427,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Imagenes Transparentes\";}'),(1667,1,1981,6,20685,0,'200.54.92.138',1301066444,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"NO BORDER EN BTNBMP\";}'),(1668,3,868,0,0,868,'117.241.89.18',1301173006,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"nageswaragunupudi\";}'),(1669,1,1257,3,21205,0,'92.231.4.53',1301440913,'LOG_DELETE_TOPIC','a:1:{i:0;s:55:\"How to define the Backgrd. of a Dialog with Scrollbar ?\";}'),(1670,0,2,0,0,0,'79.159.113.75',1301521132,'LOG_ADMIN_AUTH_SUCCESS',''),(1671,3,2,0,0,1361,'79.159.113.75',1301521184,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"jponce\";}'),(1672,0,2,0,0,0,'79.159.113.75',1301521184,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"jponce\";}'),(1673,1,249,6,20476,0,'186.90.181.187',1301612524,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: He perdido Verce 5.0\";i:1;s:7:\"wmormar\";}'),(1674,1,249,6,20476,0,'186.90.181.187',1301612564,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: He perdido Verce 5.0\";i:1;s:7:\"wmormar\";}'),(1675,0,2,0,0,0,'79.159.113.75',1301619379,'LOG_ADMIN_AUTH_SUCCESS',''),(1676,3,2,0,0,171,'79.159.113.75',1301619418,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"George\";}'),(1677,0,2,0,0,0,'79.159.113.75',1301619418,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"George\";}'),(1678,1,1853,3,21213,0,'190.148.218.234',1301684058,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Changing Screen-resolution to Applic.-resol. at Runtime ?\";}'),(1679,3,171,0,0,171,'76.127.235.154',1301757970,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"George\";}'),(1680,3,26,0,0,26,'84.52.130.249',1301916549,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"modicr\";}'),(1681,1,35,3,21234,0,'98.101.195.13',1302017493,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: access to a supplier web site under program control\";}'),(1682,0,2,0,0,0,'79.159.113.75',1302073957,'LOG_ADMIN_AUTH_SUCCESS',''),(1683,0,2,0,0,0,'79.159.113.75',1302074198,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"pascual\";}'),(1684,3,2,0,0,2132,'79.159.113.75',1302074198,'LOG_USER_ACTIVE_USER',''),(1685,3,66,0,0,66,'186.136.57.65',1302180412,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Databaselab2002\";}'),(1686,1,1981,12,21265,0,'200.68.62.246',1302200142,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Barra de progreso al reindexar - FIVELINUX\";}'),(1687,1,1981,11,21276,0,'200.68.62.246',1302204619,'LOG_DELETE_TOPIC','a:1:{i:0;s:66:\"(&lt;unknown&gt;:23056): Gtk-CRITICAL **: gtk_main_quit: assertion\";}'),(1688,1,1981,12,21277,0,'200.68.62.246',1302204633,'LOG_DELETE_TOPIC','a:1:{i:0;s:66:\"(&lt;unknown&gt;:23056): Gtk-CRITICAL **: gtk_main_quit: assertion\";}'),(1689,3,69,0,0,69,'98.158.113.18',1302297087,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Jeff Barnes\";}'),(1690,1,249,3,21221,0,'186.90.181.187',1302307048,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Upgrade Errror From FWH107 to FWH113\";i:1;s:6:\"acwoo1\";}'),(1691,1,2,3,21296,0,'79.159.113.75',1302392064,'LOG_POST_EDITED','a:2:{i:0;s:13:\"Read com port\";i:1;s:6:\"favory\";}'),(1692,1,2,3,21221,0,'79.159.113.75',1302417674,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Upgrade Errror From FWH107 to FWH113\";i:1;s:6:\"acwoo1\";}'),(1693,1,1257,3,21250,0,'92.231.4.203',1302523287,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"Image Directory-selection and xBrowse-preview ?\";}'),(1694,1,49,3,21316,0,'94.165.134.219',1302625222,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"CALC   BITS OF PASSWORD\";}'),(1695,0,2,0,0,0,'194.24.138.7',1303242110,'LOG_ADMIN_AUTH_SUCCESS',''),(1696,3,2,0,0,1085,'194.24.138.7',1303242187,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armin Thurner\";}'),(1697,0,2,0,0,0,'194.24.138.7',1303242187,'LOG_USER_USER_UPDATE','a:1:{i:0;s:13:\"Armin Thurner\";}'),(1698,3,190,0,0,190,'183.82.218.169',1303269729,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RAMESHBABU\";}'),(1699,3,190,0,0,190,'183.82.218.169',1303269729,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"RAMESHBABU\";i:1;s:23:\"aksharasoft@hotmail.com\";i:2;s:20:\"aksharasoft@live.com\";}'),(1700,1,1257,3,21369,0,'85.182.16.45',1303323573,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"xBrw-ImageViewer DOWNLOAD Release 1.1\";}'),(1701,1,49,3,21372,0,'94.164.48.62',1303394596,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Problem with combobox\";}'),(1702,1,1257,3,21290,0,'92.231.7.168',1303410778,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Project : Programming a Image-viewer with xBrowse\";}'),(1703,1,1257,3,21385,0,'78.50.20.18',1303550045,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: MDI without caption\";}'),(1704,3,261,0,0,261,'76.79.236.154',1303601903,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"byron.hopp\";}'),(1705,1,1257,3,21393,0,'92.231.5.191',1303647380,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Using ASCAN ( Arrayseek ) with Wildcards ?\";}'),(1706,1,1257,3,21399,0,'85.182.23.232',1303757861,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"Changing Button-prompt &lt; BtnBmp &gt; at Runtime ?\";}'),(1707,3,1363,0,0,1363,'80.224.114.120',1303763566,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"alvaro533\";}'),(1708,3,1363,0,0,1363,'80.224.114.120',1303763566,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"alvaro533\";i:1;s:16:\"alvaro@gmail.com\";i:2;s:19:\"alvaro533@gmail.com\";}'),(1709,1,1853,3,21392,0,'190.148.184.26',1303795932,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Smtp help needed\";}'),(1710,0,1,0,0,0,'83.39.93.214',1303800443,'LOG_ADMIN_AUTH_SUCCESS',''),(1711,0,2,0,0,0,'83.39.93.214',1303800477,'LOG_ADMIN_AUTH_SUCCESS',''),(1712,0,2,0,0,0,'83.39.93.214',1303800566,'LOG_FORUM_EDIT','a:1:{i:0;s:31:\"FiveLinux / FIveDroid (Android)\";}'),(1713,0,2,0,0,0,'83.39.93.214',1303800627,'LOG_FORUM_EDIT','a:1:{i:0;s:31:\"FiveLinux / FIveDroid (Android)\";}'),(1714,0,2,0,0,0,'83.39.93.214',1303807739,'LOG_FORUM_EDIT','a:1:{i:0;s:31:\"FiveLinux / FiveDroid (Android)\";}'),(1715,0,2,0,0,0,'83.39.93.214',1303808069,'LOG_FORUM_EDIT','a:1:{i:0;s:31:\"FiveLinux / FiveDroid (Android)\";}'),(1716,1,1981,11,21332,0,'200.68.62.246',1303826526,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Ejemplo de SET MESSAGE en FiveLinux\";}'),(1717,1,1981,11,21328,0,'200.68.62.246',1303826594,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Problema con caracteres especiales\";}'),(1718,1,2,16,21420,0,'88.5.6.110',1303893975,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"FiveTech 2011-2012 WorldWide tour !!!\";}'),(1719,1,2,16,21419,0,'88.5.6.110',1303894075,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"FiveTech 2011-2012 WorldWide tour !!!\";}'),(1720,3,130,0,0,130,'87.168.178.168',1303929853,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"StefanHaupt\";}'),(1721,3,37,0,0,37,'190.41.59.208',1303981411,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Enrrique Vertiz\";}'),(1722,3,37,0,0,37,'190.41.59.208',1303981411,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:15:\"Enrrique Vertiz\";i:1;s:32:\"evertiz@consorcioinformatico.com\";i:2;s:32:\"evertiz@consorcioinformatico.net\";}'),(1723,1,239,3,21447,0,'113.109.40.116',1304044385,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"fwh1103,radio text dispeared after click\";}'),(1724,1,1981,11,21330,0,'200.54.92.138',1304081116,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Actualización de FiveLinux\";}'),(1725,1,1981,11,21329,0,'200.54.92.138',1304081128,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Actualización de FiveLinux\";}'),(1726,1,1981,11,21326,0,'200.54.92.138',1304081148,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"Multiple selección de un arreglo con ListBox o Browse\";}'),(1727,1,1981,12,21325,0,'200.54.92.138',1304081163,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"Multiple selección de un arreglo con ListBox o Browse\";}'),(1728,1,6,3,21257,0,'79.56.23.1',1304171244,'LOG_POST_EDITED','a:2:{i:0;s:21:\"obrw:GoTop() [Solved]\";i:1;s:11:\"MarcoBoschi\";}'),(1729,1,6,3,20878,0,'79.56.23.1',1304171326,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Bug in REDEFINE SAY? [Solved]\";i:1;s:4:\"IBTC\";}'),(1730,1,180,3,21454,0,'83.49.28.208',1304250495,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Activar/Desactivar opciones en EXPLORERBAR\";}'),(1731,1,297,3,21464,0,'217.57.213.130',1304410856,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"A Request\";}'),(1732,1,1257,3,21492,0,'92.224.209.92',1304758411,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"Dialog-Scrollbars to move oversized Images in Dialog ?\";}'),(1733,1,3,3,21481,0,'195.96.155.67',1304775458,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Problems with Checkbox\";}'),(1734,1,2147,6,12759,0,'82.158.12.92',1304886609,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 11.04\";}'),(1735,1,2,6,21498,0,'95.126.28.13',1304919308,'LOG_DELETE_POST','a:1:{i:0;s:34:\"versión estable y sin bugs de FWH\";}'),(1736,0,2,0,0,0,'95.126.28.13',1304919365,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"pmarfil\";}'),(1737,1,2,0,0,0,'95.126.28.13',1304919365,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"pmarfil\";}'),(1738,1,2,6,21498,0,'95.126.28.13',1304919408,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: versión estable y sin bugs de FWH\";}'),(1739,1,2,6,21498,0,'95.126.28.13',1304919424,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: versión estable y sin bugs de FWH\";}'),(1740,1,2,6,21498,0,'95.126.28.13',1304919438,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: versión estable y sin bugs de FWH\";}'),(1741,1,2,6,21498,0,'95.126.28.13',1304919449,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: versión estable y sin bugs de FWH\";}'),(1742,1,2,6,21498,0,'95.126.28.13',1304919462,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"versión estable y sin bugs de FWH\";}'),(1743,0,249,0,0,0,'201.209.237.247',1305130660,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:11:\"huangdong03\";}'),(1744,1,249,0,0,0,'201.209.237.247',1305130660,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:11:\"huangdong03\";}'),(1745,1,249,2,14844,0,'201.209.237.247',1305130678,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Shoulders\";}'),(1746,1,249,2,8137,0,'201.209.237.247',1305130692,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Shoulders\";}'),(1747,1,249,1,12799,0,'201.209.237.247',1305130707,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Shoulders\";}'),(1748,1,249,1,11383,0,'201.209.237.247',1305130724,'LOG_DELETE_POST','a:1:{i:0;s:10:\"calledsale\";}'),(1749,1,6,20,20750,0,'80.181.50.209',1305139538,'LOG_DELETE_POST','a:1:{i:0;s:10:\"calledsale\";}'),(1750,1,6,20,20282,0,'80.181.50.209',1305139574,'LOG_DELETE_POST','a:1:{i:0;s:10:\"calledsale\";}'),(1751,1,35,3,21543,0,'98.101.195.13',1305404203,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Transparent text on dialog with resources\";}'),(1752,1,249,6,21508,0,'186.90.181.187',1305508858,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: MySQL con ADO y Tdolphin error\";i:1;s:7:\"rterraz\";}'),(1753,3,596,0,0,596,'85.62.69.237',1305620332,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"JmGarcia\";}'),(1754,1,1257,3,21555,0,'92.231.5.251',1305649127,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: bGotFocus and bLostFocus on Radios ?\";}'),(1755,1,249,6,21508,0,'186.90.181.187',1305662827,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: MySQL con ADO y Tdolphin error\";i:1;s:7:\"rterraz\";}'),(1756,1,190,3,21556,0,'183.82.195.202',1305685979,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Scripts for Harbour and FWH !!!\";}'),(1757,3,267,0,0,267,'200.217.217.222',1305720982,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"vilian\";}'),(1758,1,2,6,21592,0,'83.43.83.82',1305999339,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Diseñador de RibbonBar - En desarrollo\";}'),(1759,1,2,3,21591,0,'83.43.83.82',1305999417,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: RibbonBar designer - work in progress\";}'),(1760,0,2,0,0,0,'83.43.83.82',1305999454,'LOG_ADMIN_AUTH_SUCCESS',''),(1761,0,2,0,0,0,'83.43.83.82',1305999538,'LOG_BAN_USER','a:2:{i:0;s:29:\"Please relax and calm down...\";i:1;s:6:\"Silvio\";}'),(1762,1,2,0,0,0,'83.43.83.82',1305999538,'LOG_BAN_USER','a:2:{i:0;s:29:\"Please relax and calm down...\";i:1;s:6:\"Silvio\";}'),(1763,0,2,0,0,0,'83.43.83.82',1306008014,'LOG_ADMIN_AUTH_SUCCESS',''),(1764,0,2,0,0,0,'83.43.83.82',1306008053,'LOG_UNBAN_USER','a:1:{i:0;s:6:\"Silvio\";}'),(1765,1,2,0,0,0,'83.43.83.82',1306008053,'LOG_UNBAN_USER','a:1:{i:0;s:6:\"Silvio\";}'),(1766,0,2,0,0,0,'83.43.83.82',1306138905,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:6:\"Silvio\";}'),(1767,1,2,0,0,0,'83.43.83.82',1306138905,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:6:\"Silvio\";}'),(1768,1,2,6,21590,0,'83.43.83.82',1306138941,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: VISUAL DESIGNER RIBBONBARS Free Release\";}'),(1769,1,2,3,21589,0,'83.43.83.82',1306138955,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: VISUAL DESIGNER RIBBONBARS Free Release\";}'),(1770,1,2,3,21589,0,'83.43.83.82',1306138970,'LOG_LOCK','a:1:{i:0;s:39:\"VISUAL DESIGNER RIBBONBARS Free Release\";}'),(1771,1,2,6,21590,0,'83.43.83.82',1306139013,'LOG_LOCK','a:1:{i:0;s:39:\"VISUAL DESIGNER RIBBONBARS Free Release\";}'),(1772,1,1257,3,21591,0,'85.182.25.174',1306154397,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: RibbonBar designer - work in progress\";}'),(1773,1,110,6,21603,0,'190.212.109.71',1306246921,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"La forma correcta - Transacciones, bloqueos, append, update\";}'),(1774,1,439,6,21615,0,'190.135.11.214',1306322182,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Un problemita con TTreeView\";}'),(1775,0,2,0,0,0,'83.49.83.251',1306355687,'LOG_ADMIN_AUTH_SUCCESS',''),(1776,0,2,0,0,0,'83.49.83.251',1306355721,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"Juan\";}'),(1777,0,2,0,0,0,'83.49.83.251',1306355728,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"Juan\";}'),(1778,0,2,0,0,0,'83.49.83.251',1306357101,'LOG_ADMIN_AUTH_SUCCESS',''),(1779,0,2,0,0,0,'83.49.83.251',1306357145,'LOG_USER_REACTIVATE','a:1:{i:0;s:4:\"Juan\";}'),(1780,3,2,0,0,2162,'83.49.83.251',1306357145,'LOG_USER_REACTIVATE_USER',''),(1781,3,1990,0,0,1990,'92.74.21.201',1306404294,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Silvio.Balcony\";}'),(1782,0,2,0,0,0,'83.49.83.251',1306407513,'LOG_ADMIN_AUTH_SUCCESS',''),(1783,1,1257,3,21625,0,'92.224.209.169',1306487032,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Brushed Group Object\";}'),(1784,1,6,3,20878,0,'79.17.189.11',1306691478,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Bug in REDEFINE SAY?\";i:1;s:4:\"IBTC\";}'),(1785,0,2,0,0,0,'81.44.120.26',1306773432,'LOG_ADMIN_AUTH_SUCCESS',''),(1786,3,2,0,0,80,'81.44.120.26',1306773482,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Colin Haig\";}'),(1787,0,2,0,0,0,'81.44.120.26',1306773482,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Colin Haig\";}'),(1788,1,1257,3,21656,0,'85.182.26.25',1306883986,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Displaying an image with xbrowse ( uwe )\";}'),(1789,1,1257,3,21656,0,'92.231.6.104',1307025984,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Displaying an image with xbrowse ( uwe )\";}'),(1790,0,2,0,0,0,'83.45.70.169',1307124138,'LOG_ADMIN_AUTH_SUCCESS',''),(1791,0,2,0,0,0,'83.45.70.169',1307124181,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"lecojales\";}'),(1792,0,2,0,0,0,'83.45.70.169',1307124204,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"lecojales\";}'),(1793,1,2,17,21578,0,'83.41.222.3',1307255368,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:54:\"A collection of free source code and tools for FiveWin\";}'),(1794,1,2,17,21695,0,'83.41.222.3',1307255410,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:28:\"How to build Harbour 64 bits\";}'),(1795,3,2,0,0,2,'88.25.48.160',1307309942,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(1796,1,249,6,21701,0,'186.90.181.187',1307378653,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: FASTLib. Open Source\";i:1;s:7:\"thefull\";}'),(1797,1,249,6,21712,0,'201.209.237.247',1307464878,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Alquien Le ha pasado Esto\";}'),(1798,1,596,3,21720,0,'85.62.69.237',1307616004,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: ETA on FWH11.06 and some VS 2010 question\";}'),(1799,0,2,0,0,0,'88.25.50.109',1307704439,'LOG_ADMIN_AUTH_SUCCESS',''),(1800,0,2,0,0,0,'88.25.50.109',1307704483,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"SoftWeb\";}'),(1801,3,2,0,0,2174,'88.25.50.109',1307704483,'LOG_USER_ACTIVE_USER',''),(1802,1,1257,3,21757,0,'85.182.26.96',1308167335,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Title and Border Rel. 1.1 =&gt; Download\";}'),(1803,1,249,6,21684,0,'186.90.181.187',1308311562,'LOG_POST_EDITED','a:2:{i:0;s:44:\"Re: fwh11.5 - FWH\\samples\\shtest.prg - error\";i:1;s:3:\"SGS\";}'),(1804,1,281,4,21739,0,'222.121.21.200',1308512115,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Hi. Can i get phoneNumber ?\";}'),(1805,1,297,3,21783,0,'217.57.213.130',1308565053,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Trivial question\";}'),(1806,3,2030,0,0,2030,'200.204.229.179',1308597991,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"eduardo\";}'),(1807,1,2030,3,21789,0,'200.204.229.179',1308598851,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Check Box Dinamico\";}'),(1808,3,1262,0,0,1262,'87.105.50.138',1308653313,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"marekrz\";}'),(1809,1,6,3,21814,0,'79.33.221.86',1308940719,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Bug in TGet\";}'),(1810,1,249,6,21778,0,'186.89.44.8',1308959012,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: Enviando un mensaje a un objeto desde bajo nivel\";}'),(1811,1,1858,3,21807,0,'89.97.124.66',1308992001,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"the last tsbutton class\";}'),(1812,3,169,0,0,169,'201.95.74.77',1309173833,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(1813,1,1870,4,21825,0,'85.241.176.236',1309175419,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Harbour 2.0\";}'),(1814,1,1257,3,21826,0,'85.182.17.232',1309184966,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"ABPAINT() possible Logo-changes at Runtime ?\";}'),(1815,1,2,17,21841,0,'83.40.201.62',1309301334,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:21:\"How to build xHarbour\";}'),(1816,1,2,6,12759,0,'83.40.201.62',1309307159,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 10.12\";}'),(1817,1,110,3,21852,0,'190.184.23.21',1309467132,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Program Error at GET\";}'),(1818,3,900,0,0,900,'201.134.159.245',1309467299,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"mariordz\";}'),(1819,1,297,3,21860,0,'151.51.15.36',1309623142,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Window and a Resizable dialog inside\";}'),(1820,1,2,6,21701,0,'2.138.245.77',1309716785,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: FASTLib. Open Source\";i:1;s:7:\"xmanuel\";}'),(1821,3,1173,0,0,1173,'190.107.142.254',1309965526,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Blessed\";}'),(1822,3,1173,0,0,1173,'190.107.142.254',1309965526,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Blessed\";i:1;s:22:\"oscar_mriv@hotmail.com\";i:2;s:26:\"oscar_mriv@multisofthn.com\";}'),(1823,1,2,17,21695,0,'79.158.39.231',1310465419,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: How to build Harbour 32 &amp; 64 bits\";}'),(1824,3,1870,0,0,1870,'85.244.169.51',1310487889,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"PeterBaga\";}'),(1825,1,180,6,21900,0,'83.32.146.193',1310503345,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Idioma menú contextual TGET MEMO\";}'),(1826,1,1257,3,21948,0,'85.182.18.181',1310761658,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"xBrowse-sample needed ( Project edit )\";}'),(1827,1,1257,3,21968,0,'92.224.211.190',1311014974,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Aspect Ratio of a resized Image ?\";}'),(1828,3,804,0,0,804,'190.222.178.163',1311020745,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Lucho Montero\";}'),(1829,1,86,3,21957,0,'84.193.205.225',1311031179,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Re: GETTASKS\";}'),(1830,1,1354,3,21591,0,'208.127.23.185',1311045157,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: RibbonBar designer - work in progress\";}'),(1831,1,362,6,21969,0,'201.52.20.110',1311105997,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: xHarbour los comandos equivalentes\";}'),(1832,0,2,0,0,0,'187.141.76.5',1311120593,'LOG_ADMIN_AUTH_SUCCESS',''),(1833,0,2,0,0,0,'187.141.76.5',1311120645,'LOG_USER_ACTIVE','a:1:{i:0;s:12:\"walter_galan\";}'),(1834,3,2,0,0,2171,'187.141.76.5',1311120645,'LOG_USER_ACTIVE_USER',''),(1835,1,362,6,21969,0,'201.52.21.7',1311168566,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: xHarbour los comandos equivalentes\";}'),(1836,3,913,0,0,913,'189.136.172.238',1311376500,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"AIDA\";}'),(1837,1,297,3,21995,0,'151.51.29.185',1311431453,'LOG_DELETE_POST','a:1:{i:0;s:10:\"Re: Cursor\";}'),(1838,1,6,3,21990,0,'79.47.194.16',1311434078,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"GET, COMBO Undo() And cursor\";}'),(1839,1,297,3,21995,0,'151.51.4.55',1311441205,'LOG_DELETE_POST','a:1:{i:0;s:10:\"Re: Cursor\";}'),(1840,3,80,0,0,80,'203.59.74.189',1311553127,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Colin Haig\";}'),(1841,1,297,3,22012,0,'217.57.213.130',1311694598,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Undo Button , Cut Button, Copy Button Paste Button\";}'),(1842,1,1257,3,22018,0,'85.182.28.148',1311805896,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: path of an image\";}'),(1843,3,2206,0,0,2206,'186.213.7.96',1311851794,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"roberio\";}'),(1844,1,297,3,22030,0,'217.57.213.130',1311933195,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"COMBOBOX with strange pixels\";}'),(1845,1,6,3,22035,0,'79.36.196.210',1312019834,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"oGet:Paste()\";}'),(1846,1,2,3,22037,0,'79.157.136.138',1312049416,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: SAY PROMPT &quot;HELLO &amp; HELLO&quot;\";}'),(1847,1,1858,3,22046,0,'94.164.147.213',1312150598,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"btnbmp prompt color\";}'),(1848,0,2,0,0,0,'83.32.2.251',1312273304,'LOG_ADMIN_AUTH_SUCCESS',''),(1849,0,2,0,0,0,'83.32.2.251',1312273361,'LOG_USER_DELETED','a:1:{i:0;s:7:\"JamesMA\";}'),(1850,1,1257,3,22066,0,'85.182.18.202',1312303011,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"Possible to get Row / Col-position on Image-click ?\";}'),(1851,1,2,3,22065,0,'83.32.2.251',1312303262,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: switch between multiple windows\";}'),(1852,1,1063,6,11923,0,'200.111.99.54',1312406285,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Dudas Sobre XML\";}'),(1853,1,1354,3,22027,0,'208.127.23.185',1312412761,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: ADS function list\";}'),(1854,1,596,6,22031,0,'90.172.4.216',1312472801,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Manejar puerto USB (serial)\";}'),(1855,1,1257,3,22094,0,'85.182.16.129',1312573961,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: How to create Auto-filenames ( Counter ) ?\";}'),(1856,1,1858,3,22092,0,'94.165.238.248',1312659096,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: ERROR ON BTNBMP CLASS : resolved!!!\";}'),(1857,1,1858,3,18128,0,'94.163.172.111',1312667584,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: ADDING DATA INTO AN ARRAY....[X,Y]\";}'),(1858,1,1535,3,22094,0,'95.125.140.92',1312701955,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: How to create Auto-filenames ( Counter ) ?\";}'),(1859,0,2,0,0,0,'79.155.223.104',1312885250,'LOG_ADMIN_AUTH_SUCCESS',''),(1860,0,2,0,0,0,'79.155.223.104',1312885287,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"Nemo22\";}'),(1861,0,2,0,0,0,'79.155.223.104',1312885292,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"Nemo22\";}'),(1862,0,2,0,0,0,'79.155.223.104',1312885301,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"Nemo22\";}'),(1863,1,249,6,22124,0,'186.90.181.187',1312907377,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: Fast Reports &amp; TDolphin\";i:1;s:10:\"compubrion\";}'),(1864,1,249,6,22124,0,'186.90.181.187',1312907422,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: Fast Reports &amp; TDolphin\";i:1;s:8:\"nnicanor\";}'),(1865,1,1063,3,22130,0,'200.111.99.54',1312927039,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"IMPRESION DISTINTA EN CADA IMPRESORA\";}'),(1866,1,2,6,22145,0,'2.138.254.230',1313088790,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Re: Harbour 3.0\";i:1;s:14:\"lucasdebeltran\";}'),(1867,0,2,0,0,0,'2.138.254.230',1313096236,'LOG_ADMIN_AUTH_SUCCESS',''),(1868,3,2220,0,0,2220,'201.74.90.189',1313111082,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"SENUN\";}'),(1869,1,1257,3,22155,0,'85.182.22.134',1313185166,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Hotspot-Editor Release 1.1 =&gt; DOWNLOAD\";}'),(1870,1,1257,3,22156,0,'85.182.22.134',1313189767,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Hotspot-Editor Release 1.1 =&gt; DOWNLOAD\";}'),(1871,1,1257,3,22157,0,'85.182.22.42',1313370757,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: HotSpot-Editor Release 2.1 =&gt; UPDATE\";}'),(1872,1,1853,6,4897,0,'190.148.218.172',1313426654,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: ACTIVEX PDF y fusión de datos\";}'),(1873,1,1466,6,22174,0,'200.62.83.243',1313508008,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"GET MULTILINE Y PICTURE\";}'),(1874,0,2,0,0,0,'212.78.216.38',1313518765,'LOG_ADMIN_AUTH_SUCCESS',''),(1875,0,2,0,0,0,'212.78.216.38',1313518786,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"amcdenk\";}'),(1876,0,2,0,0,0,'212.78.216.38',1313518792,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"amcdenk\";}'),(1877,0,2,0,0,0,'212.78.216.38',1313566404,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:11:\"Leida Haims\";}'),(1878,1,2,0,0,0,'212.78.216.38',1313566404,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:11:\"Leida Haims\";}'),(1879,1,2,20,22187,0,'212.78.216.38',1313566456,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Notebook style iPad case question.?\";}'),(1880,0,249,0,0,0,'186.90.181.187',1313580233,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:6:\"rubado\";}'),(1881,1,249,0,0,0,'186.90.181.187',1313580233,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:6:\"rubado\";}'),(1882,1,249,23,22188,0,'186.90.181.187',1313580252,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"young models free pictures\";}'),(1883,1,249,3,22191,0,'190.203.137.22',1313591696,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:29:\"harbour 3.0 ready to download\";}'),(1884,1,249,0,21961,0,'190.203.137.22',1313591696,'LOG_SPLIT_SOURCE','a:1:{i:0;s:29:\"harbour 3.0 ready to download\";}'),(1885,1,1313,6,22189,0,'200.146.119.151',1313614538,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"tablets com FIVEWIN é possível?\";}'),(1886,3,1466,0,0,1466,'200.62.83.243',1313688605,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"FranciscoA\";i:1;s:23:\"falegria230349@yahoo.es\";i:2;s:21:\"f.alegria.p@gmail.com\";}'),(1887,1,12,6,22196,0,'190.167.177.122',1313692638,'LOG_DELETE_TOPIC','a:1:{i:0;s:55:\"Warning BASE/1004  Message not found: TREPORT:ADDCOLUMN\";}'),(1888,1,303,3,22173,0,'68.7.204.149',1313712942,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: DEFINE MAIL .... HTML\";}'),(1889,1,249,6,22180,0,'190.203.137.22',1313768185,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: VALID ejecuta 2 veces\";}'),(1890,1,1257,3,22199,0,'85.182.16.198',1313855580,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: dialog creation ..\";}'),(1891,1,2,3,22048,0,'212.29.185.114',1313905690,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 11.07\";}'),(1892,0,2,0,0,0,'212.29.185.114',1313911678,'LOG_ADMIN_AUTH_SUCCESS',''),(1893,1,249,17,22240,0,'186.90.181.187',1314209732,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:39:\"NUNCA ESTAN DE MAS, LEGALES Y GRATIS...\";}'),(1894,1,249,0,22239,0,'186.90.181.187',1314209732,'LOG_SPLIT_SOURCE','a:1:{i:0;s:39:\"NUNCA ESTAN DE MAS, LEGALES Y GRATIS...\";}'),(1895,1,35,3,22252,0,'98.101.195.31',1314363226,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: no wait dialog of mdichild vs pure no wait dialog\";}'),(1896,1,1858,3,22264,0,'94.164.183.70',1314516055,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Window+ribbon+tpanel\";}'),(1897,1,249,3,22062,0,'186.186.114.56',1314582561,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: possible with xBrowse?\";}'),(1898,1,249,3,19643,0,'186.90.181.187',1314584017,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Re: oFont\";}'),(1899,1,249,3,19867,0,'186.90.181.187',1314584041,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Ue Studio Beginner Question\";}'),(1900,1,249,3,22263,0,'186.90.181.187',1314584083,'LOG_DELETE_POST','a:1:{i:0;s:28:\"3 Variables are the Same ???\";}'),(1901,1,249,3,22263,0,'186.90.181.187',1314584083,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: 3 Variables are the Same ???\";}'),(1902,1,249,3,22263,0,'186.90.181.187',1314584083,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: 3 Variables are the Same ???\";}'),(1903,1,249,3,22263,0,'186.90.181.187',1314584083,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: 3 Variables are the Same ???\";}'),(1904,1,249,3,22263,0,'186.90.181.187',1314584083,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: 3 Variables are the Same ???\";}'),(1905,1,249,3,22263,0,'186.90.181.187',1314584083,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: 3 Variables are the Same ???\";}'),(1906,1,2,3,22245,0,'79.146.53.117',1314653183,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: Wdbu compile with (x)Harbour\";i:1;s:11:\"MdaSolution\";}'),(1907,1,2,3,22257,0,'83.39.92.180',1314686708,'LOG_POST_EDITED','a:2:{i:0;s:19:\"WDBU clone - xbrDBU\";i:1;s:4:\"Otto\";}'),(1908,3,251,0,0,251,'82.104.86.105',1314708827,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"DiGregorio\";}'),(1909,3,251,0,0,251,'82.104.86.105',1314708827,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"DiGregorio\";i:1;s:20:\"digregorio@cantv.net\";i:2;s:17:\"ddg.974@gmail.com\";}'),(1910,1,1858,3,22261,0,'89.97.124.66',1314712854,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: OTTO ExPerience Support\";}'),(1911,1,2,3,22257,0,'83.41.29.24',1314718845,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Re: WDBU clone - xbrDBU\";i:1;s:4:\"Otto\";}'),(1912,1,1853,17,21841,0,'190.149.9.82',1314723612,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: How to build xHarbour\";}'),(1913,1,2,6,22242,0,'2.139.15.159',1314766713,'LOG_POST_EDITED','a:2:{i:0;s:58:\"Re: NO funciona clase llamada desde otro .prg(SOLUCIONADO)\";i:1;s:7:\"Compuin\";}'),(1914,1,47,3,22298,0,'58.8.240.50',1315099867,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Unable to Delete Sheet in Excel File\";}'),(1915,1,249,6,22318,0,'186.186.179.122',1315134032,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Pregunta sobre RibbonBar\";i:1;s:7:\"jll-fwh\";}'),(1916,1,249,6,22318,0,'186.186.179.122',1315134114,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Pregunta sobre RibbonBar\";i:1;s:7:\"jll-fwh\";}'),(1917,0,2,0,0,0,'79.156.168.146',1315247219,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:5:\"Yoshi\";}'),(1918,1,2,0,0,0,'79.156.168.146',1315247219,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:5:\"Yoshi\";}'),(1919,1,249,6,22327,0,'186.187.245.167',1315311657,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Pregunta sobre MyRpt\";i:1;s:11:\"ruben Dario\";}'),(1920,1,2,3,3,0,'79.156.168.146',1315330068,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:43:\"Welcome to the new FiveTech Software forums\";}'),(1921,1,2,3,18502,0,'79.156.168.146',1315330089,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:26:\"FiveWin\'s fans on Facebook\";}'),(1922,1,2,3,6814,0,'79.156.168.146',1315330115,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:17:\"New AdoRDD (free)\";}'),(1923,1,2,3,12646,0,'79.156.168.146',1315330134,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:27:\"SQLWIN - a free RDD for SQL\";}'),(1924,1,2,3,16409,0,'79.156.168.146',1315330151,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:53:\"Help to complete the wiki and get a free FWH 9.07 !!!\";}'),(1925,1,1853,18,22338,0,'190.148.254.72',1315416485,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"xBrowse MouseWheel\";}'),(1926,3,419,0,0,419,'41.26.132.17',1315419206,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"dpaterso\";i:1;s:23:\"dpaterso@fleetfocus.net\";i:2;s:26:\"dpaterson@deltastock.co.za\";}'),(1927,1,1885,3,22237,0,'82.158.15.53',1315429869,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: bug xBrowse Win7 style FW 11.7\";}'),(1928,1,249,6,22342,0,'186.184.234.148',1315478594,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Necesito ayuda sobre vTaskBar en FWH1108\";i:1;s:7:\"jll-fwh\";}'),(1929,1,249,6,22339,0,'186.184.234.148',1315478822,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Mas Efectos (2) visual diferente FWH812/FWH1108\";i:1;s:7:\"jll-fwh\";}'),(1930,1,249,6,22356,0,'186.90.181.187',1315650291,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Get con botton bitmap no funciona bien FWH1108\";i:1;s:7:\"jll-fwh\";}'),(1931,1,249,6,22356,0,'186.90.181.187',1315650334,'LOG_POST_EDITED','a:2:{i:0;s:50:\"Re: Get con botton bitmap no funciona bien FWH1108\";i:1;s:7:\"jll-fwh\";}'),(1932,1,1853,6,22352,0,'190.149.4.67',1315759629,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Blur effect!!!\";}'),(1933,1,1853,6,22352,0,'190.149.4.67',1315761107,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Blur effect!!!\";}'),(1934,1,2,3,22361,0,'83.49.195.100',1315776536,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: WDBU 32/64 bits version\";i:1;s:8:\"norberto\";}'),(1935,1,2,6,22362,0,'83.49.195.100',1315778271,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: WDBU 32/64 bits version\";i:1;s:14:\"lucasdebeltran\";}'),(1936,0,2,0,0,0,'80.27.101.185',1315852254,'LOG_ADMIN_AUTH_SUCCESS',''),(1937,0,2,0,0,0,'80.27.101.185',1315852317,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:16:\"prasanth.sunrise\";}'),(1938,0,2,0,0,0,'80.27.101.186',1315852335,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:16:\"prasanth.sunrise\";}'),(1939,0,2,0,0,0,'80.27.101.186',1315852342,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:16:\"Registered users\";i:1;s:16:\"prasanth.sunrise\";}'),(1940,1,249,6,22332,0,'186.90.181.187',1315855012,'LOG_POST_EDITED','a:2:{i:0;s:52:\"Re: Antonio - Efecto visual diferente FWH812/FWH1108\";i:1;s:7:\"jll-fwh\";}'),(1941,1,249,6,22369,0,'186.90.181.187',1315855694,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Fastreport - Como hago la conexion\";i:1;s:11:\"ruben Dario\";}'),(1942,1,249,6,22369,0,'186.90.181.187',1315855707,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Fastreport - Como hago la conexion\";i:1;s:11:\"ruben Dario\";}'),(1943,1,249,6,22369,0,'186.90.181.187',1315855733,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Fastreport - Como hago la conexion\";i:1;s:11:\"ruben Dario\";}'),(1944,1,249,6,22369,0,'186.90.181.187',1315869005,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Fastreport - Como hago la conexion\";i:1;s:11:\"ruben Dario\";}'),(1945,1,249,6,22369,0,'186.90.181.187',1315869136,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: Fastreport - Como hago la conexion\";i:1;s:11:\"ruben Dario\";}'),(1946,1,413,6,22368,0,'195.55.176.97',1315899186,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: xBrowse ayuda\";}'),(1947,3,578,0,0,578,'218.215.14.232',1316047660,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"xProgrammer\";}'),(1948,0,2,0,0,0,'83.41.29.105',1316191259,'LOG_ADMIN_AUTH_SUCCESS',''),(1949,3,2,0,0,397,'83.41.29.105',1316191296,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Rochinha\";}'),(1950,0,2,0,0,0,'83.41.29.105',1316191296,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"Rochinha\";}'),(1951,3,397,0,0,397,'187.38.182.171',1316191949,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Rochinha\";}'),(1952,3,397,0,0,397,'187.38.182.171',1316191949,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"Rochinha\";i:1;s:28:\"irochinha@itelefonica.com.br\";i:2;s:24:\"irochinha@hotmail.com.br\";}'),(1953,1,2,3,22414,0,'83.41.29.105',1316447885,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"message for Mr. Marco Turco\";}'),(1954,1,249,6,22416,0,'186.90.181.187',1316450005,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"unrecoverable error 9023, oleauto\";}'),(1955,1,2,17,22418,0,'83.41.29.105',1316459707,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:57:\"Free FiveWin applications - Full source code provided !!!\";}'),(1956,1,1551,6,22422,0,'189.179.196.202',1316496368,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Clase tpreview para Windows 7\";}'),(1957,1,2,6,22278,0,'83.41.29.105',1316533810,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 11.08\";}'),(1958,1,1257,3,22365,0,'85.182.21.140',1316614150,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Disabled BtnBmp 11.08\";}'),(1959,1,1257,3,22365,0,'85.182.21.140',1316619779,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Disabled BtnBmp 11.08\";}'),(1960,1,249,6,22436,0,'190.205.16.60',1316620231,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Pregunta Fastrepor\";i:1;s:11:\"ruben Dario\";}'),(1961,3,2243,0,0,2243,'123.236.86.76',1316622787,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:16:\"prasanth.sunrise\";}'),(1962,1,249,6,22044,0,'190.205.16.60',1316625231,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: TDolphin, problemas con \'\\\'\";i:1;s:10:\"compubrion\";}'),(1963,1,249,6,22417,0,'186.90.181.187',1316632569,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Re: TDiskInfo 2.1\";i:1;s:10:\"compubrion\";}'),(1964,1,2,3,22296,0,'79.156.169.243',1316687106,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: error with nExtMem()\";i:1;s:4:\"IBTC\";}'),(1965,1,2,17,21841,0,'83.52.249.188',1316751757,'LOG_DELETE_POST','a:1:{i:0;s:21:\"How to build xHarbour\";}'),(1966,1,2,17,21841,0,'83.52.249.188',1316751770,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: How to build xHarbour\";}'),(1967,1,2,17,21841,0,'83.52.249.188',1316751782,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: How to build xHarbour\";}'),(1968,1,2,17,21841,0,'83.52.249.188',1316751791,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: How to build xHarbour\";}'),(1969,1,1257,3,21662,0,'85.182.28.16',1316979406,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Bug in TBar?\";}'),(1970,1,249,6,22457,0,'190.39.0.183',1316981891,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Tres Preguntas sobre Fastreport\";i:1;s:11:\"ruben Dario\";}'),(1971,1,233,3,22382,0,'60.49.112.83',1317090955,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Unresolved external LoadLibrary() in Harbour\";}'),(1972,1,210,3,22439,0,'178.190.215.64',1317139080,'LOG_DELETE_POST','a:1:{i:0;s:8:\"Re: GDI+\";}'),(1973,1,249,16,22483,0,'186.90.181.187',1317206772,'LOG_POST_EDITED','a:2:{i:0;s:46:\"New FTDN September/Septiembre 2011 (FWH 11.09)\";i:1;s:15:\"Antonio Linares\";}'),(1974,1,2,3,22485,0,'83.58.3.28',1317212721,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 11.09\";}'),(1975,1,2,19,22524,0,'83.58.3.28',1317406139,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(1976,1,1858,3,15122,0,'94.163.72.104',1317427587,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Gantt class\";}'),(1977,0,2,0,0,0,'83.58.3.28',1317474190,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:11:\"MdaSolution\";}'),(1978,1,2,0,0,0,'83.58.3.28',1317474190,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:11:\"MdaSolution\";}'),(1979,1,2,3,15122,0,'83.58.3.28',1317474204,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Gantt class\";}'),(1980,1,2,3,15122,0,'83.58.3.28',1317474224,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Gantt class\";}'),(1981,1,2,3,15122,0,'83.58.3.28',1317474284,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Gantt class\";}'),(1982,1,2,3,15122,0,'83.58.3.28',1317474297,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Gantt class\";}'),(1983,1,2,3,15122,0,'83.58.3.28',1317474322,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Gantt class\";}'),(1984,1,2,3,15122,0,'83.58.3.28',1317474365,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Gantt class\";}'),(1985,1,1257,3,22435,0,'85.182.18.42',1317549278,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Test-application ( for debugging ) DOWNLOAD\";}'),(1986,1,2,3,22538,0,'83.58.3.28',1317551629,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: Prototype missing?\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(1987,3,195,0,0,195,'85.73.224.186',1317643169,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"Sakis\";i:1;s:13:\"sv1fkk@hol.gr\";i:2;s:21:\"support.sgs@gmail.com\";}'),(1988,0,2,0,0,0,'83.58.3.28',1317747522,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:14:\"Silvio.Balcony\";}'),(1989,1,2,0,0,0,'83.58.3.28',1317747522,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:14:\"Silvio.Balcony\";}'),(1990,1,2,3,22536,0,'83.58.3.28',1317747545,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Ramón Avendaño`s TGantt design\";}'),(1991,1,233,3,22560,0,'60.48.251.21',1317797109,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Memory is overwritten after continuosly calling functions in\";}'),(1992,1,303,3,22566,0,'68.7.204.149',1317824333,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Trap Printer Dialog cancel\";}'),(1993,1,868,3,22505,0,'59.93.66.196',1318006743,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: xBrowse &amp; SQLRDD\";}'),(1994,1,2,4,21289,0,'83.58.3.28',1318007497,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: windows phone 7\";i:1;s:10:\"stevebrown\";}'),(1995,1,376,17,13098,0,'190.232.170.201',1318010420,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Borland C setup files - SOLUCIONADO\";}'),(1996,1,376,17,13098,0,'190.232.170.201',1318010434,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Borland C setup files\";}'),(1997,1,2,17,13098,0,'83.58.3.28',1318010597,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Borland C setup files\";}'),(1998,1,249,6,22605,0,'190.39.0.183',1318186719,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Imagen falla con Windows Manifest\";i:1;s:7:\"Compuin\";}'),(1999,1,2,17,22623,0,'83.58.3.28',1318345256,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2000,1,1853,6,22610,0,'190.56.70.93',1318439059,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: FWH Clase TWebServer ejemplo\";}'),(2001,1,1691,6,22610,0,'187.158.61.199',1318455030,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: FWH Clase TWebServer ejemplo\";}'),(2002,1,1691,6,22610,0,'187.158.61.199',1318455063,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: FWH Clase TWebServer ejemplo\";}'),(2003,1,249,6,22632,0,'186.90.189.190',1318459758,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"TFolder -Consulta\";}'),(2004,1,249,6,22633,0,'186.90.189.190',1318459784,'LOG_POST_EDITED','a:2:{i:0;s:17:\"TFolder -Consulta\";i:1;s:13:\"juan_arroyo_t\";}'),(2005,1,35,3,22647,0,'75.183.149.152',1318545024,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"ADO ReSync fails in Access\";}'),(2006,3,2040,0,0,2040,'84.20.29.118',1318574171,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"pgfdz\";}'),(2007,1,2040,22,22652,0,'83.60.129.227',1318601362,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"bToolTip\";}'),(2008,1,2,6,22282,0,'79.159.29.221',1318754584,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Compatibilidad MinGW\";i:1;s:17:\"Daniel Garcia-Gil\";}'),(2009,3,169,0,0,169,'201.42.165.30',1318767237,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(2010,1,233,18,22636,0,'60.50.102.252',1318818909,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: DEFINE MESSAGE BAR is pre-processed incorrectly?\";}'),(2011,1,596,6,22615,0,'90.164.56.234',1318885655,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Scroll vertical en pestaña de folder\";}'),(2012,1,596,6,22615,0,'90.164.56.234',1318885676,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Scroll vertical en pestaña de folder\";}'),(2013,1,35,3,22682,0,'98.101.195.148',1318941051,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Xbrowse Auto Edit\";}'),(2014,3,29,0,0,29,'81.174.6.40',1319051188,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marco Turco\";}'),(2015,1,2252,6,22428,0,'189.203.10.173',1319072007,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Windows 8 estilo Metro - Una Clase TMetro\";}'),(2016,1,86,3,22677,0,'193.190.131.200',1319135605,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Problem in errsysw.prg in FWH 10.9\";}'),(2017,1,6,20,22494,0,'79.53.21.82',1319199706,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: BUTTON vs BTNBMP\";}'),(2018,1,1565,3,22733,0,'189.29.208.99',1319630327,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Fivewin 11.09 + UEStudio 11 + C++  microsoft\";}'),(2019,1,419,3,22741,0,'41.26.172.41',1319700089,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Save and Restore Dialog Position\";}'),(2020,1,249,6,22755,0,'190.204.197.237',1319886048,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Volviendo al tema CDO\";i:1;s:13:\"Armando Picon\";}'),(2021,1,1646,6,22660,0,'81.43.211.135',1319902577,'LOG_BUMP_TOPIC','a:1:{i:0;s:22:\"errores en compilacion\";}'),(2022,3,739,0,0,739,'201.141.222.18',1320079984,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"quique\";}'),(2023,3,400,0,0,400,'189.27.69.189',1320195831,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Ale SB\";}'),(2024,1,233,3,19895,0,'60.49.115.71',1320286218,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: hash with (x)harbour - knowledge base\";}'),(2025,3,1222,0,0,1222,'85.155.103.0',1320331731,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"ermatica\";}'),(2026,3,1222,0,0,1222,'85.155.103.0',1320331731,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"ermatica\";i:1;s:18:\"eagm2004@gmail.com\";i:2;s:20:\"ernesto@ermatica.com\";}'),(2027,0,2,0,0,0,'186.165.96.128',1320464266,'LOG_ADMIN_AUTH_SUCCESS',''),(2028,1,249,3,22680,0,'190.204.197.237',1320660252,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: Errsysw Visual Update ?\";i:1;s:11:\"Carlos Mora\";}'),(2029,1,300,3,22824,0,'201.47.180.31',1320675997,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Convert rc to res\";}'),(2030,1,130,3,22828,0,'87.168.171.86',1320681973,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"unresolved external with FWH 11.09\";}'),(2031,1,249,6,22827,0,'190.204.197.237',1320682139,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: mostrar mensaje al hacer un append from\";}'),(2032,3,29,0,0,29,'81.174.6.149',1320762367,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marco Turco\";}'),(2033,1,868,3,22844,0,'59.93.77.113',1320898743,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Help on TRichEdit\";}'),(2034,1,35,3,22852,0,'98.101.195.148',1320943423,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Test for a .Pdf reader\";}'),(2035,1,1178,6,22858,0,'190.9.64.30',1321031456,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Esposible cargar un recurso con DEFINE WINDOW\";}'),(2036,0,2,0,0,0,'80.31.146.157',1321347327,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:9:\"William.P\";}'),(2037,1,2,0,0,0,'80.31.146.157',1321347327,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:9:\"William.P\";}'),(2038,1,2,3,22765,0,'80.31.146.157',1321347366,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Metro style ComboBox for Windows 8\";}'),(2039,1,6,3,22807,0,'79.51.12.152',1321365900,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Error in last version FWH 11.10 (Folder + get)\";}'),(2040,2,2,0,0,0,'80.31.146.157',1321419913,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(2041,1,2,3,22835,0,'80.31.146.157',1321696212,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Creation of xHarbour PCODE DLL succeeded\";}'),(2042,0,2,0,0,0,'80.31.146.157',1321764060,'LOG_ADMIN_AUTH_SUCCESS',''),(2043,0,2,0,0,0,'80.31.146.157',1321764157,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:7:\"Ingessi\";}'),(2044,0,2,0,0,0,'80.31.146.157',1321764203,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:7:\"Ingessi\";}'),(2045,0,2,0,0,0,'80.31.146.157',1321764262,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"Ingessi\";}'),(2046,0,2,0,0,0,'80.31.146.157',1321764271,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"Ingessi\";}'),(2047,3,689,0,0,689,'189.115.20.149',1321904248,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"Eroni\";i:1;s:23:\"eroni@swsistemas.com.br\";i:2;s:26:\"eroni_americo@yahoo.com.br\";}'),(2048,0,2,0,0,0,'80.31.146.157',1322012370,'LOG_ADMIN_AUTH_SUCCESS',''),(2049,0,2,0,0,0,'80.31.146.157',1322012388,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"icarrales\";}'),(2050,0,2,0,0,0,'80.31.146.157',1322012394,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"icarrales\";}'),(2051,1,409,6,22534,0,'190.82.232.18',1322051997,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: ¿sería posible con xBrowse?.\";}'),(2052,1,2,6,12759,0,'80.31.146.157',1322128310,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Nuevo FWH 11.01 - Recibido, gracias\";}'),(2053,1,2,6,12759,0,'80.31.146.157',1322128323,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 11.09\";}'),(2054,1,2,6,12759,0,'80.31.146.157',1322128334,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 11.01\";}'),(2055,1,2,6,12759,0,'80.31.146.157',1322128350,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 10.12\";}'),(2056,1,2,6,12759,0,'80.31.146.157',1322128359,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 10.12\";}'),(2057,1,1257,3,22938,0,'85.182.22.230',1322234488,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Testing CODE+RESOURCE-Brushes ( DOWNLOAD )\";}'),(2058,3,9,0,0,9,'188.76.165.137',1322290359,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"Manuel Valdenebro\";}'),(2059,3,9,0,0,9,'188.76.165.137',1322290359,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:17:\"Manuel Valdenebro\";i:1;s:0:\"\";i:2;s:22:\"valdenebro@mixmail.com\";}'),(2060,2,210,0,0,0,'88.117.0.239',1322484448,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(2061,1,284,6,22971,0,'189.7.154.204',1322566761,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Code that used to work fails\";}'),(2062,1,2,3,22943,0,'83.49.192.170',1322591127,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 11.11\";}'),(2063,1,1427,3,22980,0,'202.88.246.11',1322647010,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: FWH 11.11 + xharbour.com + xCC\";}'),(2064,3,23,0,0,23,'79.159.117.0',1322654056,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"AngelSalom\";}'),(2065,1,233,3,22981,0,'60.49.114.169',1322820649,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Any guide on creating DPI-aware apps?\";}'),(2066,1,210,3,23000,0,'188.22.184.97',1322838601,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Enhanced Methods GoPrevCtrl() and GoNextCtrl()\";}'),(2067,1,34,3,23012,0,'68.4.206.89',1322869477,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: FWH 11.11 Errors - FWH / Harbour 3.0 / MSVC\";}'),(2068,1,6,21,22231,0,'79.51.12.152',1322990995,'LOG_REPORT_DELETED','a:1:{i:0;s:24:\"Re: MouseMove no ListBox\";}'),(2069,1,21,6,23014,0,'84.124.8.199',1323001650,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Bug en 11.11 30/septiembre\";}'),(2070,1,2,6,23033,0,'83.32.161.140',1323200832,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Error generar FIVEHX.LIB\";}'),(2071,1,2,6,23034,0,'83.32.161.140',1323200849,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Error generar FIVEHX.LIB\";}'),(2072,1,409,6,23047,0,'190.82.223.15',1323288387,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"PROBLEMAS ARRAY/XBROWSE\";}'),(2073,1,1853,3,23045,0,'190.148.218.252',1323309017,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: FiveNet - .NET GUI from Harbour\";}'),(2074,1,2,3,23083,0,'83.61.148.167',1323802341,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Bug in FolderEx ...\";}'),(2075,1,2,3,23083,0,'83.61.148.167',1323802352,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Bug in FolderEx ...\";}'),(2076,1,2206,6,23086,0,'187.58.86.86',1323813990,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"ERRO FWH1111\";}'),(2077,1,1526,3,23101,0,'46.223.158.59',1323972968,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: non-standard behavior\";}'),(2078,1,1427,3,23107,0,'122.166.65.112',1324025601,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Bitmap in XBrowse\";}'),(2079,1,2206,21,23139,0,'187.58.86.157',1324357794,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"scripts.prg  no puedo ejecutar &quot;hello world&quot;\";}'),(2080,1,960,6,23079,0,'217.12.24.131',1324386695,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: dtpicker y dialogo transparente no refresca correctamente\";}'),(2081,1,2,3,23117,0,'2.138.226.22',1324574556,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: New User FWH6.12\";i:1;s:8:\"RiazKhan\";}'),(2082,3,2206,0,0,2206,'177.42.161.142',1324790745,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"roberio\";}'),(2083,3,2206,0,0,2206,'177.42.161.142',1324790745,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"roberio\";i:1;s:24:\"roberio_bell@hotmail.com\";i:2;s:21:\"suporte@sistem.net.br\";}'),(2084,1,2,3,23174,0,'2.138.226.22',1324921251,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: HTML5 WebSockets server working demo! :-)\";}'),(2085,3,92,0,0,92,'2.136.26.138',1325150687,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"FiveWiDi\";i:1;s:0:\"\";i:2;s:14:\"fwd@gelbla.com\";}'),(2086,1,1526,3,21662,0,'46.223.158.59',1325195507,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Bug in TBar?\";}'),(2087,3,1363,0,0,1363,'81.60.172.100',1325448389,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"alvaro533\";}'),(2088,1,2,19,23210,0,'79.146.1.83',1325669446,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2089,0,2,0,0,0,'2.139.13.241',1325879425,'LOG_ADMIN_AUTH_SUCCESS',''),(2090,0,2,0,0,0,'2.139.13.241',1325879476,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"fivewin\";}'),(2091,3,2,0,0,2317,'2.139.13.241',1325879476,'LOG_USER_ACTIVE_USER',''),(2092,1,2143,3,23254,0,'201.208.203.22',1326200620,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"Diferencias entre el resultado de nStrCrc en FW vs FWh\";}'),(2093,1,249,6,23244,0,'190.204.203.229',1326247050,'LOG_POST_EDITED','a:2:{i:0;s:51:\"Re: Define Dialog oDlg .....TRANSPARENT No funciona\";i:1;s:9:\"carloslmm\";}'),(2094,1,249,6,23244,0,'190.204.203.229',1326247104,'LOG_POST_EDITED','a:2:{i:0;s:51:\"Re: Define Dialog oDlg .....TRANSPARENT No funciona\";i:1;s:9:\"carloslmm\";}'),(2095,1,35,3,23246,0,'98.101.195.148',1326302980,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: TestImg Example\";}'),(2096,0,2,0,0,0,'83.41.158.82',1326309540,'LOG_ADMIN_AUTH_SUCCESS',''),(2097,0,2,0,0,0,'83.41.158.82',1326309567,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"vmolina\";}'),(2098,0,2,0,0,0,'83.41.158.82',1326309575,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"vmolina\";}'),(2099,1,180,6,20093,0,'79.152.85.29',1326311828,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Deshabilitar botón\";}'),(2100,1,6,3,23271,0,'79.33.217.244',1326377782,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Behaviour of button class in FWH 11.12\";}'),(2101,0,2,0,0,0,'213.27.179.106',1326550267,'LOG_ADMIN_AUTH_SUCCESS',''),(2102,0,2,0,0,0,'213.27.179.106',1326550294,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"quim\";}'),(2103,0,2,0,0,0,'213.27.179.106',1326550300,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"quim\";}'),(2104,3,106,0,0,106,'82.52.245.130',1326803593,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"pymsoft\";}'),(2105,1,1690,3,23302,0,'178.208.98.87',1326813845,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: xBrowse &amp; Excel\";}'),(2106,1,2,6,23324,0,'2.138.249.54',1327258560,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"EventLog\";}'),(2107,3,2332,0,0,2332,'201.159.51.87',1327637822,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"interwin\";}'),(2108,1,2,6,23360,0,'79.144.147.127',1327766810,'LOG_MOVE','a:2:{i:0;s:20:\"WhatsNew / Novedades\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(2109,3,543,0,0,543,'85.49.17.227',1327951656,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"fernandomoralesdr\";}'),(2110,3,846,0,0,846,'200.96.211.57',1328040418,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Dorneles\";}'),(2111,1,249,6,23397,0,'190.204.203.229',1328131506,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: MENU EN UN DIÁLOGO\";}'),(2112,1,2,19,23422,0,'83.40.5.247',1328379281,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2113,1,2,3,23421,0,'83.40.5.247',1328383003,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Bug in fwerror.prg (Solved, not a bug)\";i:1;s:5:\"frose\";}'),(2114,1,1257,3,23423,0,'92.224.211.34',1328390835,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: PalBmpDraw transparent on main window with gradient\";}'),(2115,1,1257,3,23475,0,'78.50.23.167',1329092455,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"Logo-change using &lt; ABpaint &gt; at Runtime ?\";}'),(2116,1,6,20,23487,0,'79.53.234.239',1329247164,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: errore irrecuperabile 9006\";}'),(2117,1,6,3,23495,0,'79.53.234.239',1329327491,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Bug in TDialog\";}'),(2118,1,2,6,23501,0,'85.57.22.202',1329413631,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"programa colgado en memoria\";}'),(2119,1,1928,8,23516,0,'83.97.189.171',1329582037,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Noticias desde Montain Lion\";}'),(2120,1,2,17,23339,0,'85.57.22.202',1329649438,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2121,1,2,8,23515,0,'85.57.22.202',1329659872,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Noticias desde Mountain Lion\";i:1;s:9:\"mastintin\";}'),(2122,1,2,6,23526,0,'85.57.18.54',1329762173,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Para Antonio Linares - actualizacion\";i:1;s:7:\"wmormar\";}'),(2123,0,2,0,0,0,'85.60.227.15',1329856927,'LOG_ADMIN_AUTH_SUCCESS',''),(2124,0,2,0,0,0,'85.60.227.15',1329856944,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"dani\";}'),(2125,0,2,0,0,0,'85.60.227.15',1329856950,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"dani\";}'),(2126,1,1178,6,23456,0,'190.9.64.30',1330005726,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Pregunta para el amigo Daniel\";}'),(2127,1,2,6,3620,0,'85.60.227.15',1330165107,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: Antonio - Curiosidad logotipo FivetechSoft\";i:1;s:8:\"cnavarro\";}'),(2128,1,2,6,3620,0,'85.60.227.15',1330165179,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: Antonio - Curiosidad logotipo FivetechSoft\";i:1;s:8:\"cnavarro\";}'),(2129,1,2,3,23554,0,'85.60.227.15',1330205995,'LOG_POST_EDITED','a:2:{i:0;s:61:\"Re: What is the best of MySql (lib or class) TMySql, TDolphin\";i:1;s:11:\"Rick Lipkin\";}'),(2130,1,249,8,20652,0,'190.204.203.229',1330336896,'LOG_DELETE_POST','a:1:{i:0;s:32:\"The man referred to as &amp;quot\";}'),(2131,1,2,3,23573,0,'80.27.97.142',1330438623,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: RichEdit - speed up coloring\";}'),(2132,0,2,0,0,0,'80.27.97.142',1330438707,'LOG_ADMIN_AUTH_SUCCESS',''),(2133,0,2,0,0,0,'80.27.97.129',1330438805,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:9:\"ukservice\";}'),(2134,1,2,0,0,0,'80.27.97.129',1330438805,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:9:\"ukservice\";}'),(2135,1,35,3,23569,0,'98.101.195.148',1330441192,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Borland bcc582 Changes with xMate\";}'),(2136,1,2,19,23578,0,'85.57.27.38',1330457128,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2137,1,2,3,23573,0,'85.57.27.38',1330466382,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: RichEdit - speed up coloring\";}'),(2138,1,2,3,23573,0,'85.57.27.38',1330466392,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: RichEdit - speed up coloring\";}'),(2139,1,2,3,23573,0,'85.57.27.38',1330466409,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: RichEdit - speed up coloring\";}'),(2140,1,2,8,23579,0,'85.57.27.38',1330468262,'LOG_POST_EDITED','a:2:{i:0;s:16:\"FiveMac y Iphone\";i:1;s:14:\"lucasdebeltran\";}'),(2141,1,1928,6,23600,0,'81.36.106.140',1330677350,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Problema con say transparent\";}'),(2142,3,2086,0,0,2086,'190.187.85.10',1330725285,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"ltorres\";}'),(2143,1,249,6,23564,0,'190.39.0.183',1330725990,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Problemas con SEEK en Tdolphin y Mysql indice campo NUMERICO\";}'),(2144,1,249,6,23564,0,'190.39.0.183',1330726052,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Problemas con SEEK en Tdolphin y Mysql indice campo NUMERICO\";}'),(2145,3,148,0,0,148,'41.130.36.242',1330789564,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Ehab Samir Aziz\";}'),(2146,1,1257,3,23615,0,'85.182.17.114',1330963223,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Shows tranp. Controls on MDIFRAME ( Download )\";}'),(2147,1,1427,3,23633,0,'122.166.65.112',1331182317,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Treeview class question?\";}'),(2148,1,249,18,11904,0,'190.204.203.229',1331200157,'LOG_DELETE_POST','a:1:{i:0;s:13:\"in particular\";}'),(2149,1,2,3,23645,0,'92.59.221.61',1331208774,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"tDatepick : error in 12.02\";}'),(2150,1,2,3,23642,0,'92.59.221.61',1331274039,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Where can I download BCC582?\";}'),(2151,0,2,0,0,0,'92.59.221.61',1331371493,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"stmudjgx\";}'),(2152,1,2,0,0,0,'92.59.221.61',1331371493,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"stmudjgx\";}'),(2153,1,2,11,21408,0,'92.59.221.61',1331371516,'LOG_DELETE_POST','a:1:{i:0;s:26:\"closing down 1.36 yuan / g\";}'),(2154,1,868,3,23606,0,'117.195.220.92',1331423189,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Incremental Search\";}'),(2155,1,1765,6,23661,0,'213.37.39.254',1331461492,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: bat para crear rddads.lib con Harbour\";}'),(2156,1,1257,3,23688,0,'92.231.5.66',1331813161,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"A painting Problem with Ribbonbar-pages ?\";}'),(2157,1,1388,3,23684,0,'124.107.6.13',1331856913,'LOG_DELETE_POST','a:1:{i:0;s:70:\"Re: ADS not supports hb_WildMatch( \'&quot;+cWild+&quot;\', DbRecordInfo\";}'),(2158,1,1257,3,23701,0,'92.224.210.60',1331862804,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Image not adjusted to new Size ?\";}'),(2159,1,47,3,23700,0,'115.87.253.159',1331863535,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"How to Override FW TWbrowse with Hernan\'s TWbrowse?\";}'),(2160,1,2,19,23718,0,'92.59.207.4',1332238464,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2161,1,2,3,23724,0,'92.59.207.4',1332399065,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Win8 Metro UI WinRT API from FWH and Harbour!\";}'),(2162,1,2,3,23724,0,'92.59.207.4',1332399075,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Win8 Metro UI WinRT API from FWH and Harbour!\";}'),(2163,1,2,3,23724,0,'92.59.207.4',1332399085,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Win8 Metro UI WinRT API from FWH and Harbour!\";}'),(2164,1,2,3,23724,0,'92.59.207.4',1332399096,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Win8 Metro UI WinRT API from FWH and Harbour!\";}'),(2165,1,2,3,23724,0,'92.59.207.4',1332399105,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Win8 Metro UI WinRT API from FWH and Harbour!\";}'),(2166,1,2,3,23724,0,'92.59.207.4',1332399118,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Win8 Metro UI WinRT API from FWH and Harbour!\";}'),(2167,1,2,3,23724,0,'92.59.207.4',1332399128,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Win8 Metro UI WinRT API from FWH and Harbour!\";}'),(2168,3,1322,0,0,1322,'186.215.58.121',1332738962,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"sygecom\";}'),(2169,1,35,3,23750,0,'98.101.195.148',1332773037,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Resize Window and controls\";}'),(2170,1,1178,6,23754,0,'190.9.64.30',1332852937,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"Pregunta sobre el archivo.bc  para compilar\";}'),(2171,1,6,3,23648,0,'79.52.194.144',1333009177,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: A Strange Error in TGroup in 12.02\";}'),(2172,3,178,0,0,178,'173.188.62.55',1333121119,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Dave Zowasky\";}'),(2173,1,2,6,23772,0,'83.61.112.255',1333121557,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Primera app real de Windows 8 Metro desde FWH !!!\";}'),(2174,1,2,3,20885,0,'83.61.112.255',1333224786,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(2175,1,1466,6,23792,0,'200.62.83.243',1333246226,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"MySql and xBrowse\";}'),(2176,1,2206,4,23797,0,'177.98.162.251',1333282229,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Windows Phone\";}'),(2177,1,2206,4,23797,0,'177.98.162.251',1333282237,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Windows Phone\";}'),(2178,1,36,3,23741,0,'200.113.108.254',1333566371,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: expert of ADS and Harbour\";}'),(2179,3,2342,0,0,2342,'95.16.255.50',1333931975,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"cnavarro\";}'),(2180,3,1322,0,0,1322,'201.47.210.96',1334175911,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"sygecom\";}'),(2181,3,1430,0,0,1430,'122.166.65.112',1334316131,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"sanilpmc\";}'),(2182,3,305,0,0,305,'190.232.135.163',1334411701,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ralph\";}'),(2183,3,2342,0,0,2342,'95.16.254.9',1334487946,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"cnavarro\";}'),(2184,1,1388,3,23885,0,'124.107.6.13',1334567544,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: xBrowse Tree bClrStd Not Working\";}'),(2185,1,110,6,23902,0,'200.85.175.26',1334696122,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: No aparezcan los decimales que sean cero.\";}'),(2186,3,65,0,0,65,'77.92.6.20',1334766661,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"betoncu\";}'),(2187,3,65,0,0,65,'77.92.6.20',1334766661,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"betoncu\";i:1;s:20:\"betoncu@birimnet.com\";i:2;s:23:\"birol.betoncu@gmail.com\";}'),(2188,1,2,3,23926,0,'87.216.164.248',1334952966,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: FWH 12.03 and MinGW\";}'),(2189,1,1077,3,23936,0,'80.77.147.50',1335197773,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: TXBROWSE:LBUTTONUP() ERROR\";}'),(2190,3,1430,0,0,1430,'202.88.246.11',1335242831,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"sanilpmc\";}'),(2191,1,1257,3,23934,0,'92.231.4.24',1335269687,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: NEW Update Logoedit 2.3 ( Download )\";}'),(2192,1,1257,3,23934,0,'92.231.4.24',1335271418,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Update Logoedit 2.3 ( Download )\";}'),(2193,1,52,6,23949,0,'190.138.22.83',1335304374,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: aSort no me ordena array de fechas...\";}'),(2194,3,52,0,0,52,'190.138.21.233',1335361056,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:11:\"goosfancito\";i:1;s:21:\"goosfancito@gmail.com\";i:2;s:17:\"gusmavf@gmail.com\";}'),(2195,1,2,6,23959,0,'79.159.112.86',1335379615,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Soporte de grupos en ListView\";}'),(2196,0,2,0,0,0,'79.159.112.86',1335462079,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"jayceww\";}'),(2197,1,2,0,0,0,'79.159.112.86',1335462079,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"jayceww\";}'),(2198,1,2,5,23967,0,'79.159.112.86',1335462102,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: How to backup iphone contacts?\";}'),(2199,1,2,5,23967,0,'79.159.112.86',1335462113,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"How to backup iphone contacts?\";}'),(2200,1,2,5,23966,0,'79.159.112.86',1335462129,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"how do you backup your ipod music?\";}'),(2201,0,2,0,0,0,'79.159.112.86',1335507516,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"Palmerston\";}'),(2202,1,2,0,0,0,'79.159.112.86',1335507516,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"Palmerston\";}'),(2203,1,2,17,22608,0,'79.159.112.86',1335507529,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: How to rebuild FWH libs\";}'),(2204,1,2,3,23975,0,'79.159.112.86',1335507548,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: xBrowse edit_get cell based on table value at runtime\";}'),(2205,1,2,6,23976,0,'79.159.112.86',1335507564,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: como defino un GROUPBOX dede codigo?\";}'),(2206,1,2,20,23189,0,'79.159.112.86',1335507578,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Windows Terminal Server\";}'),(2207,1,1427,6,23977,0,'202.88.246.11',1335508380,'LOG_POST_EDITED','a:2:{i:0;s:54:\"GET LLAMA XBROWSE PARA SELECCIONAR-COMPARTIENDO CODIGO\";i:1;s:15:\"joseluisysturiz\";}'),(2208,0,2,0,0,0,'83.41.14.156',1335519394,'LOG_ADMIN_AUTH_SUCCESS',''),(2209,0,2,0,0,0,'83.41.14.156',1335519427,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"cllow208\";}'),(2210,0,2,0,0,0,'83.41.14.156',1335519436,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"cllow208\";}'),(2211,0,2,0,0,0,'83.41.14.156',1335519442,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"cllow208\";}'),(2212,1,2,6,23981,0,'79.159.112.86',1335607469,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Re: La caja de FiveTech - disfrutadla! :-)\";i:1;s:14:\"lucasdebeltran\";}'),(2213,1,1257,3,23991,0,'78.50.23.129',1335777686,'LOG_DELETE_TOPIC','a:1:{i:0;s:55:\"Delete a painted BMP from Metrobutton ( Design-mode ) ?\";}'),(2214,0,2,0,0,0,'79.159.112.86',1335790558,'LOG_ADMIN_AUTH_SUCCESS',''),(2215,1,1077,3,23968,0,'80.77.147.50',1335945899,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: oBrw:ToExcel() error ACTIVESHEET:CELLS/0  S_OK: _FORMULA\";}'),(2216,1,409,6,23996,0,'190.82.254.157',1335966601,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: presentación y duda xBrowse\";}'),(2217,0,2,0,0,0,'83.49.163.242',1336153569,'LOG_ADMIN_AUTH_SUCCESS',''),(2218,0,2,0,0,0,'83.49.163.242',1336153596,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:15:\"Luisão PITBULL\";}'),(2219,0,2,0,0,0,'83.49.163.242',1336153604,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:15:\"Luisão PITBULL\";}'),(2220,1,1158,3,24032,0,'200.139.160.83',1336322616,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: isexerunning\";}'),(2221,1,1387,3,24047,0,'189.28.241.101',1336526197,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: FiveWeb development\";}'),(2222,3,1387,0,0,1387,'189.28.241.101',1336526268,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"lailton.webmaster\";}'),(2223,1,1257,3,24051,0,'85.182.21.218',1336577184,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"How to build a Font defined in a DBF-text-field ?\";}'),(2224,1,1257,3,24065,0,'92.231.4.193',1336670580,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Color Fill a GroupBox\";}'),(2225,1,34,3,24066,0,'68.4.204.253',1336672320,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Harbour/FWH/VC2010 Observations\";}'),(2226,1,249,4,24008,0,'190.75.243.108',1336782968,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Listbox selections\";}'),(2227,1,249,4,24008,0,'190.75.243.108',1336783004,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Listbox selections\";}'),(2228,1,2,3,23942,0,'92.59.192.242',1336844543,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: harbour error from cvs : unicows.dll\";}'),(2229,1,2,3,23942,0,'92.59.192.242',1336844551,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: harbour error from cvs : unicows.dll\";}'),(2230,1,1257,3,24077,0,'92.224.208.48',1336942493,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Scroll in a Combobox array\";}'),(2231,1,1257,3,24030,0,'78.50.23.77',1336988786,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: From PDF to OCR\";}'),(2232,1,2,6,24082,0,'92.59.192.242',1337030755,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Re: Printer Server\";i:1;s:6:\"Bayron\";}'),(2233,3,261,0,0,261,'76.79.236.154',1337041843,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"byron.hopp\";}'),(2234,1,6,3,24047,0,'79.52.233.90',1337071889,'LOG_REPORT_DELETED','a:1:{i:0;s:23:\"Re: FiveWeb development\";}'),(2235,1,1168,3,24091,0,'88.30.24.190',1337092366,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Image2Pdf dll\";}'),(2236,1,2,19,24117,0,'85.51.211.148',1337419278,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2237,1,249,19,24117,0,'186.90.179.216',1337428940,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Simulador de resoluciones web\";i:1;s:15:\"joseluisysturiz\";}'),(2238,1,1257,3,24133,0,'92.224.209.123',1337784606,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Textcolor from Skinbuttons\";}'),(2239,1,2,4,4983,0,'85.60.254.88',1337848358,'LOG_DELETE_POST','a:1:{i:0;s:7:\"Re: DLL\";}'),(2240,1,868,3,24132,0,'14.99.83.32',1337879373,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: Passing variables by reference in nested functions\";}'),(2241,0,2,0,0,0,'85.51.209.31',1338019192,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"John Mille\";}'),(2242,1,2,0,0,0,'85.51.209.31',1338019192,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"John Mille\";}'),(2243,1,2,5,24153,0,'85.51.209.31',1338020079,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"How can I transfer iphone videos to ipad?\";}'),(2244,1,1257,3,24154,0,'78.50.21.241',1338136130,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Flashing / animated Buttons\";}'),(2245,1,1257,3,24164,0,'85.182.18.218',1338241104,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"A sample : Directory-Filecopy with TMeterEx\";}'),(2246,1,51,3,24176,0,'80.122.88.243',1338317225,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"TDatabase DBZAP\";}'),(2247,3,936,0,0,936,'216.230.150.56',1338332478,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(2248,3,936,0,0,936,'216.230.150.56',1338332478,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"csincuir\";i:1;s:17:\"sincuir@yahoo.com\";i:2;s:26:\"csincuir@tecnisistemas.com\";}'),(2249,1,1646,6,22851,0,'81.36.70.246',1338333907,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Cambiar fecha en metro\";}'),(2250,1,2,6,24180,0,'85.51.209.31',1338366423,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FiveDBU para 32/64 bits\";}'),(2251,1,2,17,24170,0,'85.51.209.31',1338370388,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: FiveWin applications gallery\";i:1;s:6:\"fgondi\";}'),(2252,1,1556,3,24186,0,'79.131.191.140',1338416686,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Manipulating Bitmaps (BMP)\";}'),(2253,1,86,3,24179,0,'84.193.200.150',1338540495,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: FiveDBU for 32/64 bits\";}'),(2254,1,2,6,24169,0,'83.33.43.115',1338557271,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Tutorial de FiveWin para novatos :-)\";i:1;s:7:\"karinha\";}'),(2255,1,362,6,24197,0,'189.102.162.225',1338557512,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Ventana dos en aplicación windows\";}'),(2256,1,2,19,24204,0,'85.60.251.184',1338756296,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2257,3,2473,0,0,2473,'177.42.153.249',1338772993,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Sistem\";}'),(2258,1,362,6,24206,0,'189.102.163.37',1338828220,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Asignarle teclas a un control Get\";}'),(2259,1,2,6,24180,0,'85.60.251.184',1339097523,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FiveDBU para 32/64 bits\";}'),(2260,1,35,3,24233,0,'98.101.195.148',1339259588,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: See32 SMTP examples ( Codemaker )\";}'),(2261,1,2,3,24179,0,'92.59.222.150',1339416020,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: FiveDBU for 32/64 bits\";i:1;s:8:\"csincuir\";}'),(2262,1,2,3,24179,0,'92.59.222.150',1339663393,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: FiveDBU for 32/64 bits\";}'),(2263,1,2,3,24179,0,'92.59.222.150',1339665099,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: FiveDBU for 32/64 bits\";}'),(2264,1,249,17,24170,0,'190.78.212.43',1339716155,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: FiveWin applications gallery\";}'),(2265,1,1911,6,24266,0,'190.253.189.162',1339814633,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Compilación para 12.05\";}'),(2266,1,1691,12,22922,0,'187.158.61.226',1339865823,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Intentando compilar\";}'),(2267,1,2,6,24271,0,'90.168.143.16',1339946075,'LOG_REPORT_CLOSED','a:1:{i:0;s:40:\"Re: Para mi muy estimado Antonio Linares\";}'),(2268,1,2,19,24272,0,'80.39.19.66',1339949413,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2269,3,1005,0,0,1005,'156.35.192.2',1340102636,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"llambion\";}'),(2270,1,2,3,24047,0,'90.168.143.16',1340306025,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Re: FiveWeb development\";i:1;s:11:\"Rick Lipkin\";}'),(2271,1,2443,3,23984,0,'187.55.16.240',1340335969,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Sample Get No Work\";}'),(2272,1,2443,3,23984,0,'187.55.16.240',1340335978,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Sample Get No Work\";}'),(2273,1,2443,3,24133,0,'187.55.16.240',1340336015,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Textcolor from Skinbuttons\";}'),(2274,3,1387,0,0,1387,'187.55.16.240',1340337366,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"lailton.webmaster\";}'),(2275,3,1387,0,0,1387,'187.55.16.240',1340337366,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:17:\"lailton.webmaster\";i:1;s:24:\"developer@lailton.com.br\";i:2;s:22:\"griaule@lailton.com.br\";}'),(2276,0,2,0,0,0,'90.168.136.182',1340354380,'LOG_ADMIN_AUTH_SUCCESS',''),(2277,0,2,0,0,0,'90.168.136.182',1340354455,'LOG_USER_REACTIVATE','a:1:{i:0;s:17:\"lailton.webmaster\";}'),(2278,3,2,0,0,1387,'90.168.136.182',1340354455,'LOG_USER_REACTIVATE_USER',''),(2279,1,2443,3,24133,0,'200.101.233.170',1340377215,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Textcolor from Skinbuttons\";}'),(2280,1,1257,3,24315,0,'85.182.25.157',1340574943,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Sorting multidimenzional array\";}'),(2281,0,2,0,0,0,'2.138.231.236',1340693943,'LOG_ADMIN_AUTH_SUCCESS',''),(2282,0,2,0,0,0,'2.138.231.236',1340693958,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"gortizlapaz\";}'),(2283,0,2,0,0,0,'2.138.231.236',1340693963,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"gortizlapaz\";}'),(2284,1,1691,12,24336,0,'187.158.61.226',1340729484,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Mi primer programa en fivelinux (editor dbf )\";}'),(2285,1,1853,18,24320,0,'190.149.9.197',1340836315,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Report.prg FWH12.04\";}'),(2286,0,2,0,0,0,'90.168.136.182',1340850092,'LOG_ADMIN_AUTH_SUCCESS',''),(2287,0,2,0,0,0,'90.168.136.182',1340850106,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"josegh99\";}'),(2288,0,2,0,0,0,'90.168.136.182',1340850110,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"josegh99\";}'),(2289,3,1730,0,0,1730,'110.142.9.113',1340931160,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"patdriscoll\";}'),(2290,1,1853,6,24355,0,'190.148.216.220',1341015067,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"oPrn:DraftMode(  )\";}'),(2291,1,2,19,24367,0,'81.32.154.84',1341153380,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2292,1,2496,3,24377,0,'37.103.202.66',1341254717,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Problem with datepick on ribbon\";}'),(2293,1,35,3,24381,0,'98.101.195.148',1341270736,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Print formatted text\";}'),(2294,1,1077,3,24302,0,'80.77.147.50',1341308694,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: XBROWSE &lt;binary&gt; problem\";}'),(2295,1,1077,3,24302,0,'80.77.147.50',1341385103,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: XBROWSE &lt;binary&gt; problem\";}'),(2296,1,1981,12,24213,0,'200.68.62.252',1341437240,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Consulta sobre SetDialogEsc()\";}'),(2297,1,1981,12,24210,0,'200.68.62.252',1341437264,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Deshabilitar tecla ESC en menu\";}'),(2298,1,1981,12,24231,0,'200.68.62.252',1341437304,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Saber cuando se presiona una tecla\";}'),(2299,1,1794,6,24407,0,'80.32.19.89',1341563197,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Combobox me vuelve loco\";}'),(2300,1,2259,3,23554,0,'24.190.84.201',1341931366,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: What is the best of MySql (lib or class) TMySql, TDolphin\";}'),(2301,1,1794,6,24427,0,'80.32.19.89',1342006038,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"OT- Error al hacer un informe, no lveo el fallo\";}'),(2302,1,396,6,24431,0,'200.44.246.214',1342062058,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Adecuar un dialogo de recursos a la resolución del monitor.\";}'),(2303,3,2443,0,0,2443,'200.203.53.174',1342466861,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"DevBr\";}'),(2304,1,2,6,24379,0,'80.39.48.243',1342513300,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: El IDE xEdit2 se cuelga al compilar\";i:1;s:7:\"horacio\";}'),(2305,1,2,6,24379,0,'80.39.48.243',1342513321,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: El IDE xEdit2 se cuelga al compilar\";i:1;s:7:\"horacio\";}'),(2306,1,2,6,24379,0,'80.39.48.243',1342513448,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: El IDE xEdit2 se cuelga al compilar\";i:1;s:7:\"horacio\";}'),(2307,1,2,6,24379,0,'80.39.48.243',1342513519,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Re: El IDE xEdit2 se cuelga al compilar\";i:1;s:7:\"horacio\";}'),(2308,0,2,0,0,0,'85.51.211.143',1342599529,'LOG_ADMIN_AUTH_SUCCESS',''),(2309,0,2,0,0,0,'85.51.211.143',1342599544,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"Mulyadi32\";}'),(2310,0,2,0,0,0,'85.51.211.143',1342599548,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"Mulyadi32\";}'),(2311,1,2443,3,24472,0,'201.10.57.175',1342749102,'LOG_DELETE_TOPIC','a:1:{i:0;s:4:\"TGet\";}'),(2312,1,2443,3,24440,0,'201.10.57.175',1342749108,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Valkyrie for Harbour/xHarbour\";}'),(2313,1,2443,3,24133,0,'201.10.57.175',1342749130,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Textcolor from Skinbuttons\";}'),(2314,0,2,0,0,0,'85.51.211.143',1342817841,'LOG_ADMIN_AUTH_SUCCESS',''),(2315,1,2443,6,24281,0,'189.10.156.18',1342818963,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Cerrar ventana de ayuda\";}'),(2316,3,2530,0,0,2530,'189.10.156.18',1342819498,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lailton\";}'),(2317,3,2530,0,0,2530,'189.10.156.18',1342819498,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Lailton\";i:1;s:26:\"lailton@redstarsoft.com.br\";i:2;s:24:\"developer@lailton.com.br\";}'),(2318,1,36,6,24491,0,'200.113.108.253',1342889568,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Ribon y Popup\";}'),(2319,3,1174,0,0,1174,'95.132.244.204',1342963756,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Gosha\";}'),(2320,1,1257,3,24461,0,'92.231.4.80',1343027774,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: DRAW A TEXT ON A BITMAP\";}'),(2321,0,2,0,0,0,'85.51.211.143',1343033592,'LOG_ADMIN_AUTH_SUCCESS',''),(2322,0,2,0,0,0,'85.51.211.143',1343062115,'LOG_ADMIN_AUTH_SUCCESS',''),(2323,0,2,0,0,0,'85.51.211.143',1343062145,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:12:\"Marcelo peru\";}'),(2324,0,2,0,0,0,'85.51.211.143',1343062268,'LOG_ADMIN_AUTH_SUCCESS',''),(2325,0,2,0,0,0,'85.51.211.143',1343062284,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:12:\"Marcelo peru\";}'),(2326,0,2,0,0,0,'85.51.211.143',1343062325,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:12:\"Marcelo peru\";}'),(2327,0,2,0,0,0,'85.51.211.143',1343062331,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:12:\"Marcelo peru\";}'),(2328,3,1749,0,0,1749,'113.193.192.116',1343098951,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"compaqt\";}'),(2329,1,1257,3,24494,0,'85.182.17.94',1343122938,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: Write xBrowse Cell-Number on Top of Cell-Image ?\";}'),(2330,1,1257,3,21700,0,'85.182.21.7',1343322133,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: XBROWSE question\";}'),(2331,2,6,0,0,0,'79.47.211.223',1343411870,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(2332,1,249,12,20847,0,'190.142.190.56',1343673766,'LOG_DELETE_POST','a:1:{i:0;s:17:\"of all the people\";}'),(2333,1,36,6,24543,0,'186.78.124.120',1343704666,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"ADS y SQL\";}'),(2334,1,36,6,22711,0,'200.113.108.253',1343743429,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Error compilando TsBrowse9 con HB 3 y BCC582 (solucionado)\";}'),(2335,1,26,19,24547,0,'84.52.130.249',1343839762,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: New Microsoft outlook.com\";}'),(2336,1,36,6,24556,0,'200.113.108.253',1343852146,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Crear en Ads el diccionario de datos\";}'),(2337,1,110,3,24573,0,'200.85.175.26',1344021525,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Modify KeyDown in xBrowse sub-classing\";}'),(2338,1,1911,6,24586,0,'186.112.62.225',1344115646,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"Wbrowse de Hernan modificado Harbour BCC,MVC y MINGW\";}'),(2339,1,2542,1,24591,0,'213.98.8.184',1344246444,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Problemas con comunicacion serie\";}'),(2340,1,1736,3,24593,0,'186.214.238.16',1344253958,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: creating DBF file from text file\";}'),(2341,1,644,6,24610,0,'186.109.195.180',1344436797,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"xbrowse modificado\";}'),(2342,1,1257,3,24612,0,'92.224.209.4',1344461283,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Font and Textcolor with &lt; DrawTextEx &gt; ?\";}'),(2343,1,2,3,24561,0,'85.57.38.61',1344599601,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Fivewin and Microsoft VS2010 VC (visual C)\";i:1;s:14:\"lucasdebeltran\";}'),(2344,0,2,0,0,0,'85.57.38.61',1344771897,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:9:\"questions\";}'),(2345,1,2,0,0,0,'85.57.38.61',1344771897,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:9:\"questions\";}'),(2346,1,2,17,12423,0,'85.57.38.61',1344771917,'LOG_DELETE_POST','a:1:{i:0;s:47:\"les enquêteurs auraient trouvé de l\'Ibuprofen\";}'),(2347,1,413,3,24634,0,'195.55.176.97',1344837364,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Sending WhatsApp msgs\";}'),(2348,1,35,3,24666,0,'70.60.209.112',1345232181,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Hernans TwBrowse ( one last time )\";}'),(2349,1,110,3,24673,0,'190.212.91.155',1345346904,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: error in function DBRLOCKLIST\";}'),(2350,1,110,3,24673,0,'190.212.91.155',1345346912,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"error in function DBRLOCKLIST\";}'),(2351,1,1312,3,24668,0,'118.96.121.41',1345352370,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: To : Mr. Antonio , Can I use Fivewin 6.12 ?\";}'),(2352,1,110,6,24674,0,'190.212.94.175',1345396014,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"esta funcion retorna valor incorrecto DBRLOCKLIST\";}'),(2353,3,21,0,0,21,'95.20.44.202',1345459428,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"fgondi\";}'),(2354,3,21,0,0,21,'95.20.44.202',1345459428,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"fgondi\";i:1;s:29:\"fgondi.borraspam@ghe-soft.com\";i:2;s:20:\"fernando@alsisghe.es\";}'),(2355,0,2,0,0,0,'90.168.142.210',1345459894,'LOG_ADMIN_AUTH_SUCCESS',''),(2356,0,2,0,0,0,'90.168.142.210',1345459935,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"fgondi\";}'),(2357,3,2,0,0,21,'90.168.142.210',1345459935,'LOG_USER_ACTIVE_USER',''),(2358,3,21,0,0,21,'95.20.44.202',1345460127,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"fgondi\";}'),(2359,0,2,0,0,0,'92.59.222.32',1345463423,'LOG_ADMIN_AUTH_SUCCESS',''),(2360,0,2,0,0,0,'92.59.222.32',1345463437,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"khamiss\";}'),(2361,0,2,0,0,0,'92.59.222.32',1345463444,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"khamiss\";}'),(2362,0,2,0,0,0,'92.59.222.32',1345463486,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:12:\"CARLOALBATUN\";}'),(2363,0,2,0,0,0,'92.59.222.32',1345463490,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:12:\"CARLOALBATUN\";}'),(2364,1,1059,6,23218,0,'190.139.67.5',1345496301,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Tdolphin Ejemplo ABM - Para José Rios\";}'),(2365,0,2,0,0,0,'92.59.222.32',1345515582,'LOG_ADMIN_AUTH_SUCCESS',''),(2366,0,2,0,0,0,'92.59.222.32',1345515597,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"alfredlam\";}'),(2367,0,2,0,0,0,'92.59.222.32',1345515602,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"alfredlam\";}'),(2368,1,36,6,24703,0,'200.113.108.253',1345756960,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"FRH imprimir directo\";}'),(2369,1,396,6,24706,0,'190.198.117.125',1345761523,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Problema con TXBrowse ,alguien me ayuda ?\";}'),(2370,1,46,3,24714,0,'41.215.211.151',1345826509,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"off-topic: hb_out.log\";}'),(2371,1,2496,3,24717,0,'37.102.243.141',1345840920,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Read a IniFIle\";}'),(2372,0,2,0,0,0,'85.60.249.239',1346089810,'LOG_ADMIN_AUTH_SUCCESS',''),(2373,0,2,0,0,0,'85.60.249.239',1346089828,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"kurowskic\";}'),(2374,0,2,0,0,0,'85.60.249.239',1346089834,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"kurowskic\";}'),(2375,1,2,12,24738,0,'85.60.249.239',1346179102,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: FiveLinux se convierte en GPL\";i:1;s:10:\"pablovidal\";}'),(2376,0,2,0,0,0,'92.59.207.110',1346581467,'LOG_ADMIN_AUTH_SUCCESS',''),(2377,0,2,0,0,0,'92.59.207.110',1346582727,'LOG_PURGE_CACHE',''),(2378,0,2,0,0,0,'92.59.207.110',1346582833,'LOG_RESET_ONLINE',''),(2379,1,1689,3,24753,0,'78.30.179.177',1346610903,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: I want to buy the latest version Fivewin\'s\";}'),(2380,1,2496,3,24767,0,'213.82.134.66',1346759051,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Names of the days\";}'),(2381,1,249,19,24769,0,'186.90.222.229',1346763033,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Benefits Of Online GED\";}'),(2382,1,2496,3,24772,0,'128.67.194.115',1346778856,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"show bitmaps on xbrowse\";}'),(2383,1,1257,3,24773,0,'85.182.19.54',1346851697,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: show a calendar\";}'),(2384,3,1743,0,0,1743,'189.128.124.203',1347063968,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Andres Barillas\";}'),(2385,1,2496,3,24800,0,'37.227.237.94',1347300564,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"TO ANTONIO: ERROR WITH RADIOMENU\";}'),(2386,1,2,19,24818,0,'85.51.211.20',1347436333,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2387,1,2561,3,24813,0,'83.134.67.165',1347438558,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Conversion XHARBOUR to HARBOUR\";}'),(2388,1,2,6,24635,0,'85.51.211.20',1347481804,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: Enviando mensajes de WhatsApp\";i:1;s:9:\"mastintin\";}'),(2389,1,2496,3,24832,0,'213.82.134.66',1347616515,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Creation dbf from array\";}'),(2390,1,41,6,22865,0,'190.106.241.220',1347663178,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Nuevo DEFINE DIALOG oDlg GRADIENT aGradColors en FWH 11.11\";}'),(2391,1,2,19,24831,0,'92.59.206.252',1347712380,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2392,3,2496,0,0,2496,'176.207.176.82',1347812091,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:4:\"Eoeo\";i:1;s:12:\"info@eoeo.it\";i:2;s:32:\"silvio.falconi.151@istruzione.it\";}'),(2393,1,2496,3,24858,0,'213.82.134.66',1348049022,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Negative and positive\";}'),(2394,1,1257,3,24794,0,'85.182.22.186',1348327161,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: xBrowse-Memory, something to Relax ( UPDATE 2.3 )\";}'),(2395,1,2496,3,24886,0,'37.103.7.103',1348579604,'LOG_DELETE_POST','a:1:{i:0;s:10:\"Re: Easter\";}'),(2396,1,2,6,24287,0,'85.51.202.43',1348663404,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: Windows Phone 8 a soportar C nativo nuevamente !!!\";}'),(2397,1,2,6,24287,0,'85.51.202.43',1348663521,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: Windows Phone 8 a soportar C nativo nuevamente !!!\";}'),(2398,1,2,3,24892,0,'92.59.211.110',1348737760,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Metro style\";}'),(2399,1,2,3,24892,0,'92.59.211.110',1348825703,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Re: Metro style\";i:1;s:8:\"norberto\";}'),(2400,1,2,3,24921,0,'92.59.211.110',1349015758,'LOG_POST_EDITED','a:2:{i:0;s:43:\"Re: Harbour being ported to Windows 8 WinRT\";i:1;s:8:\"norberto\";}'),(2401,1,6,3,9505,0,'79.45.212.176',1349120563,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: User rights on a Vista OS\";}'),(2402,1,533,6,18050,0,'83.41.203.63',1349218544,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Facturación electronica - España\";}'),(2403,3,460,0,0,460,'217.37.54.49',1349347700,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"PeterHarmes\";}'),(2404,1,1981,12,24572,0,'200.68.62.252',1349372878,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"Abrir archivos no importando minusculas y mayusculas\";}'),(2405,1,1981,12,24570,0,'200.68.62.252',1349372899,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"oBrw:oHScroll:Hide no desaparace\";}'),(2406,1,1257,3,24976,0,'85.182.21.106',1349736652,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"xBrowse missing records on startup ( index ) ?\";}'),(2407,1,2,17,24981,0,'85.57.35.30',1349772827,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2408,0,2,0,0,0,'85.57.35.30',1349778675,'LOG_ADMIN_AUTH_SUCCESS',''),(2409,0,2,0,0,0,'85.57.35.30',1349778795,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"BeoBeo\";}'),(2410,0,2,0,0,0,'85.57.35.30',1349778801,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"BeoBeo\";}'),(2411,1,1257,3,24989,0,'85.182.18.221',1349871024,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"How to use Button-accelerators in Folder-pages ?\";}'),(2412,3,2332,0,0,2332,'201.159.51.13',1349914293,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"interwin\";}'),(2413,1,2587,3,24994,0,'91.18.24.64',1349945259,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"oWnd:end crash\";}'),(2414,3,2532,0,0,2532,'24.131.48.65',1350002522,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"rhlawek\";}'),(2415,3,1340,0,0,1340,'200.121.55.6',1350055696,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Angel_Miguel\";}'),(2416,1,1257,3,25013,0,'92.224.208.194',1350166924,'LOG_DELETE_TOPIC','a:1:{i:0;s:57:\"Possible to print Fields from differerent DBF\'s in Line ?\";}'),(2417,1,596,17,24984,0,'62.151.121.213',1350247525,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Clonar disco o imagen del S.O. instalado\";}'),(2418,0,2,0,0,0,'90.168.142.138',1350331841,'LOG_ADMIN_AUTH_SUCCESS',''),(2419,0,2,0,0,0,'90.168.142.138',1350331857,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:17:\"soporte_busmatick\";}'),(2420,0,2,0,0,0,'90.168.142.138',1350331861,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:17:\"soporte_busmatick\";}'),(2421,1,1736,3,24992,0,'187.59.199.208',1350418118,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: xHB TipClientHTTP( ) substitute ?\";}'),(2422,1,297,3,25040,0,'217.57.213.130',1350568408,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: DBF to CSV -&gt; RddSetdefault - question\";}'),(2423,1,34,3,24992,0,'68.4.204.253',1350583569,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: xHB TipClientHTTP( ) substitute ?\";}'),(2424,1,6,16,24803,0,'79.52.193.12',1350722826,'LOG_DELETE_POST','a:1:{i:0;s:50:\"www.monclereuffciales.com  industrial injury insur\";}'),(2425,1,249,8,21387,0,'186.90.222.229',1350865068,'LOG_DELETE_POST','a:1:{i:0;s:50:\"www.monclereuffciales.com 37%.From the turnover po\";}'),(2426,1,2598,3,25055,0,'88.38.121.105',1350904138,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Report record selected from xbrowse\";}'),(2427,1,1466,6,25052,0,'190.212.81.2',1350908956,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Cómo hago para registrar varios días de semana en un campo\";}'),(2428,1,2,19,25059,0,'92.58.215.115',1350936954,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Windows 8 is ‘the end of Windows’\";}'),(2429,0,2,0,0,0,'83.41.246.98',1350994262,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"sanshieryi\";}'),(2430,1,2,0,0,0,'83.41.246.98',1350994262,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"sanshieryi\";}'),(2431,1,2,5,20369,0,'83.41.246.98',1350994287,'LOG_DELETE_POST','a:1:{i:0;s:50:\"www.monclereuffciales.com  the little dog disappea\";}'),(2432,1,180,6,25070,0,'83.44.181.255',1351184220,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Suma en REPORT\";}'),(2433,3,1095,0,0,1095,'80.35.166.25',1351198795,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"vlmsoft\";}'),(2434,2,1,0,0,0,'27.186.223.149',1351230608,'LOG_ERROR_EMAIL','a:1:{i:0;s:74:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/ucp.php</em><br /><br /><br />\";}'),(2435,2,1,0,0,0,'27.186.223.149',1351230609,'LOG_ERROR_EMAIL','a:1:{i:0;s:74:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/ucp.php</em><br /><br /><br />\";}'),(2436,1,6,3,25081,0,'79.47.195.226',1351427384,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Some can help me please ?\";}'),(2437,3,1158,0,0,1158,'189.41.202.56',1351594085,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"norberto\";i:1;s:24:\"norberto@windowslive.com\";i:2;s:16:\"nlfcorp@live.com\";}'),(2438,1,1257,3,25086,0,'92.231.5.138',1351676515,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: PROBLEMS !!! installing new Windows 8 - release\";}'),(2439,1,1162,3,24801,0,'166.147.120.143',1351787576,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: No more shadows on Win8 :-(\";}'),(2440,3,2614,0,0,2614,'201.237.247.154',1351958803,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"costarica\";}'),(2441,1,35,3,25116,0,'70.60.209.112',1351970842,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Timer and using local passed as reference\";}'),(2442,3,2473,0,0,2473,'177.42.163.129',1351997010,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Sistem\";}'),(2443,3,2473,0,0,2473,'177.42.163.129',1351997010,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"Sistem\";i:1;s:19:\"admin@sistem.net.br\";i:2;s:20:\"sistem@sistem.net.br\";}'),(2444,1,1257,3,24794,0,'92.231.7.54',1352069309,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: xBrowse-Memory, something to Relax ( UPDATE 2.3 )\";}'),(2445,1,2496,3,25139,0,'213.82.134.66',1352191743,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Error with TclipGet\";}'),(2446,1,2496,3,25133,0,'213.82.134.66',1352194707,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: strange problem with xbrowse\";}'),(2447,1,2598,3,25156,0,'94.166.101.38',1352317810,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"insert a symbol on a get\";}'),(2448,1,2,3,25132,0,'92.59.207.138',1352362956,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Metro Samples\";}'),(2449,3,92,0,0,92,'93.92.230.17',1352378399,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"FiveWiDi\";i:1;s:14:\"fwd@gelbla.com\";i:2;s:19:\"siperono@gelbla.com\";}'),(2450,1,1257,3,24794,0,'92.224.209.147',1352678008,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: xBrowse-Memory, something to Relax ( UPDATE 2.5 )\";}'),(2451,1,2598,3,25183,0,'213.82.134.66',1352711388,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"popmenu image\";}'),(2452,1,1466,6,25179,0,'190.212.81.2',1352726173,'LOG_DELETE_POST','a:1:{i:0;s:59:\"Re: CREAR SELECT CON DATOS DE OTRO SELECT O SELECT ANIDADOS\";}'),(2453,1,35,3,25193,0,'70.60.209.112',1352821944,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"MDI Child without title\";}'),(2454,1,2598,3,25184,0,'213.82.134.66',1352977598,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: POPMENU  WITH ACTION ERROR\";}'),(2455,1,2473,6,25194,0,'177.158.164.21',1353362736,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Sr. Antonio - FIVEWIN BUG\";}'),(2456,3,2342,0,0,2342,'188.76.43.152',1353443455,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"cnavarro\";}'),(2457,1,2,6,25073,0,'85.51.205.135',1353512410,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)\";}'),(2458,1,34,3,25230,0,'68.4.204.253',1353518551,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Database.prg problem w/ MSVC libs\";}'),(2459,3,804,0,0,804,'190.222.220.120',1353548716,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Lucho Montero\";}'),(2460,3,2538,0,0,2538,'186.14.242.56',1353632279,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"hebert_j_vargas\";}'),(2461,3,2538,0,0,2538,'200.8.93.1',1353712025,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"hebert_j_vargas\";}'),(2462,1,249,19,25256,0,'186.90.222.229',1353795517,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:18:\"NUESTROS ANCESTROS\";}'),(2463,1,249,0,25255,0,'186.90.222.229',1353795517,'LOG_SPLIT_SOURCE','a:1:{i:0;s:18:\"NUESTROS ANCESTROS\";}'),(2464,1,1257,3,25245,0,'85.182.26.181',1353848027,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: Quotation\";}'),(2465,3,936,0,0,936,'186.151.140.175',1354373636,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(2466,0,2,0,0,0,'88.148.89.221',1354551861,'LOG_ADMIN_AUTH_SUCCESS',''),(2467,0,2,0,0,0,'88.148.89.221',1354551882,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"mylog\";}'),(2468,0,2,0,0,0,'88.148.89.221',1354551889,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"mylog\";}'),(2469,1,868,3,25285,0,'124.123.6.178',1354650798,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: lost memory with images in xBrowse\";}'),(2470,1,2,6,12759,0,'85.60.255.75',1354698212,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 12.09\";}'),(2471,1,2,6,12759,0,'85.60.255.75',1354698222,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 12.09\";}'),(2472,0,2,0,0,0,'85.60.255.75',1354702468,'LOG_ADMIN_AUTH_SUCCESS',''),(2473,0,2,0,0,0,'85.60.255.75',1354702527,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"gimson\";}'),(2474,0,2,0,0,0,'85.60.255.75',1354702531,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"gimson\";}'),(2475,1,2561,3,25300,0,'83.134.103.121',1354705386,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"XBRDBU : Index routines\";}'),(2476,1,2,6,25298,0,'85.60.255.75',1354708148,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 12.11\";}'),(2477,1,35,3,25305,0,'70.60.209.112',1354745524,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"xBrowse Checkbox and bOnPreEdit\";}'),(2478,1,1257,3,21591,0,'92.224.210.10',1354892254,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: RibbonBar designer - work in progress\";}'),(2479,3,1328,0,0,1328,'125.176.15.189',1355162251,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"oknbs\";}'),(2480,3,66,0,0,66,'186.136.74.229',1355682260,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Databaselab2002\";}'),(2481,1,51,3,25351,0,'80.122.88.244',1355705641,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: xBrowse Table records with a subtree\";}'),(2482,0,2,0,0,0,'90.168.143.229',1355733530,'LOG_ADMIN_AUTH_SUCCESS',''),(2483,0,2,0,0,0,'90.168.143.229',1355733574,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"Joaquim Ferrer\";}'),(2484,0,2,0,0,0,'90.168.143.229',1355733578,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"Joaquim Ferrer\";}'),(2485,3,2,0,0,236,'90.168.143.229',1355736058,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"rchristie\";}'),(2486,0,2,0,0,0,'90.168.143.229',1355736058,'LOG_USER_USER_UPDATE','a:1:{i:0;s:9:\"rchristie\";}'),(2487,1,1077,3,25346,0,'80.77.147.50',1355817927,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Using SSH Protocol ?\";}'),(2488,1,2,6,25363,0,'92.59.203.52',1355843848,'LOG_POST_EDITED','a:2:{i:0;s:56:\"Re: como uso try catch en winapi de windows ? (resuelto)\";i:1;s:10:\"albeiroval\";}'),(2489,3,131,0,0,131,'95.21.177.131',1355862433,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:19:\"José Luis Sánchez\";}'),(2490,3,1064,0,0,1064,'220.135.73.21',1355905918,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"kokookao2007\";}'),(2491,1,1077,3,25346,0,'92.53.49.25',1356280140,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Using SSH Protocol ?\";}'),(2492,0,2,0,0,0,'90.168.143.166',1356825233,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"elendyne\";}'),(2493,1,2,0,0,0,'90.168.143.166',1356825233,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"elendyne\";}'),(2494,1,2,4,25393,0,'90.168.143.166',1356825245,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"gprs setting\";}'),(2495,1,233,3,25414,0,'175.143.222.2',1357115155,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: OT - Error compilng latest Harbour (18753)\";}'),(2496,1,233,3,25414,0,'175.143.222.2',1357115166,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"OT - Error compilng latest Harbour (18753)\";}'),(2497,1,249,6,8822,0,'186.90.222.229',1357231068,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: Verce 5.0 - Nuevo error\";i:1;s:15:\"joseluisysturiz\";}'),(2498,3,1637,0,0,1637,'187.131.177.167',1357317489,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"ramirezosvaldo2\";}'),(2499,1,2076,6,25433,0,'200.3.1.6',1357321695,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Crear Base de Datos con TDolphin\";}'),(2500,1,2076,3,25432,0,'200.3.1.6',1357321709,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Crear Base de Datos con TDolphin\";}'),(2501,1,1853,6,25438,0,'190.149.68.164',1357679858,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: PROBLEMA CON TXBROWSE\";}'),(2502,1,1853,6,25438,0,'190.148.254.155',1357702751,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: PROBLEMA CON TXBROWSE\";}'),(2503,1,249,6,25449,0,'200.109.235.142',1357771768,'LOG_POST_EDITED','a:2:{i:0;s:44:\"borrar una rama de un treeitem de un xbrowse\";i:1;s:15:\"armando.lagunas\";}'),(2504,0,2,0,0,0,'88.148.89.222',1358281295,'LOG_ADMIN_AUTH_SUCCESS',''),(2505,0,2,0,0,0,'88.148.89.222',1358281318,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"psebas1974\";}'),(2506,0,2,0,0,0,'88.148.89.222',1358281327,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"psebas1974\";}'),(2507,1,1313,6,25480,0,'189.114.160.32',1358387096,'LOG_DELETE_TOPIC','a:1:{i:0;s:58:\"Algum exemplo de como guarda IMAGEM no BANCO com TDOLPHIN?\";}'),(2508,3,29,0,0,29,'5.157.102.18',1358694258,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marco Turco\";}'),(2509,1,2561,6,25498,0,'78.22.48.196',1358758793,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Problems with MSGBAR\";}'),(2510,1,2561,6,25499,0,'78.22.48.196',1358758815,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Problems with MSGBAR\";}'),(2511,1,500,6,25506,0,'2.141.29.146',1358791006,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Error Fivewin/1 no defined ID Nº\";}'),(2512,1,868,6,25484,0,'124.123.6.178',1358836680,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Error en xBrowse\";}'),(2513,3,404,0,0,404,'85.155.216.145',1359202614,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"JMFS-D\";}'),(2514,3,404,0,0,404,'85.155.216.145',1359202614,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"JMFS-D\";i:1;s:17:\"jmfsd@idecnet.com\";i:2;s:18:\"jmfdezsd@yahoo.com\";}'),(2515,0,2,0,0,0,'88.148.89.208',1359328706,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:6:\"Plogan\";}'),(2516,1,2,0,0,0,'88.148.89.208',1359328706,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:6:\"Plogan\";}'),(2517,1,2,1,25532,0,'88.148.89.208',1359328722,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"I\'m sorry 87545\";}'),(2518,1,2,19,25534,0,'85.51.199.164',1359367212,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2519,1,2598,3,25543,0,'31.190.55.121',1359491690,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: dbeval error\";}'),(2520,1,2573,6,25552,0,'201.220.104.59',1359567644,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"PDF417 no decodifica ñ ni acentos\";}'),(2521,1,1238,6,25476,0,'217.127.123.34',1359807061,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: OT. Windows 8: una opinión favorable\";}'),(2522,1,2,6,12759,0,'88.148.89.84',1359824616,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 12.11\";}'),(2523,1,2,6,25491,0,'88.148.89.84',1359824669,'LOG_MOVE','a:2:{i:0;s:20:\"WhatsNew / Novedades\";i:1;s:28:\"FiveWin for Harbour/xHarbour\";}'),(2524,1,2,6,25491,0,'88.148.89.84',1359824690,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(2525,1,1257,3,25565,0,'85.182.20.116',1359907003,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: SavetoPDF problem\";}'),(2526,0,2,0,0,0,'90.168.142.162',1359933842,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:18:\"chandrasekar gopal\";}'),(2527,1,2,0,0,0,'90.168.142.162',1359933842,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:18:\"chandrasekar gopal\";}'),(2528,1,2,1,25556,0,'90.168.142.162',1359933860,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Create reports from any programming language and any operati\";}'),(2529,1,249,22,25604,0,'186.90.192.11',1360322357,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"test invoice\";}'),(2530,3,2040,0,0,2040,'88.1.72.223',1360324347,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"pgfdz\";}'),(2531,1,2598,3,25609,0,'128.66.236.70',1360344297,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: ERROR XBROWSE MAKETOTALS\";}'),(2532,1,1257,3,25613,0,'85.182.24.30',1360352628,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: EDIT_BUTTON and EDIT_GET\";}'),(2533,3,1991,0,0,1991,'80.122.88.244',1360479370,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"iris\";}'),(2534,1,2460,7,25629,0,'201.26.43.88',1360597140,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"Windows CE\";}'),(2535,1,249,19,25633,0,'200.8.192.138',1360605259,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:20:\"CANSADO DE MS-OFFICE\";}'),(2536,1,249,0,25632,0,'200.8.192.138',1360605287,'LOG_SPLIT_SOURCE','a:1:{i:0;s:20:\"CANSADO DE MS-OFFICE\";}'),(2537,3,2321,0,0,2321,'189.104.55.211',1360764803,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"nixbeau\";}'),(2538,0,2,0,0,0,'85.60.254.88',1361175120,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:13:\"natarajmasala\";}'),(2539,1,2,0,0,0,'85.60.254.88',1361175120,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:13:\"natarajmasala\";}'),(2540,1,2,4,25668,0,'85.60.254.88',1361175134,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"masala export in India\";}'),(2541,1,1853,18,22547,0,'190.149.68.227',1361195063,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"RibbonBar Unexpected behavior\";}'),(2542,1,1928,6,25638,0,'88.22.190.164',1361275092,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Twitter para FWH\";}'),(2543,1,6,3,25537,0,'79.49.229.92',1361288406,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: xbrdbu : new version\";}'),(2544,1,6,3,25537,0,'79.49.229.92',1361288416,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: xbrdbu : new version\";}'),(2545,1,2,3,25682,0,'88.148.89.27',1361376295,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: moving to MSVC 32 bits\";i:1;s:14:\"lucasdebeltran\";}'),(2546,1,2,3,25682,0,'88.148.89.27',1361376315,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: moving to MSVC 32 bits\";i:1;s:14:\"lucasdebeltran\";}'),(2547,1,1257,3,25691,0,'78.50.23.29',1361405138,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Testing Window and Dialog - Move ( DOWNLOAD )\";}'),(2548,1,2,17,25702,0,'85.51.198.77',1361501309,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2549,3,1168,0,0,1168,'88.28.252.84',1361534308,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:16:\"Antonio Martinez\";}'),(2550,1,1807,6,25728,0,'190.138.176.113',1361901014,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Planning reservas hotel\";}'),(2551,1,1257,3,25740,0,'92.231.6.167',1361963219,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Image Hotspot-editor Rel. 1.1 ( DOWNLOAD )\";}'),(2552,1,2,17,25753,0,'85.51.200.217',1362003654,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2553,1,159,3,25760,0,'203.70.248.125',1362147984,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: FWH for utf8 ?\";}'),(2554,1,159,3,25760,0,'203.70.248.125',1362147994,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"FWH for utf8 ?\";}'),(2555,1,596,6,25765,0,'62.151.121.213',1362254681,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: MAC address\";}'),(2556,1,2,3,25745,0,'176.32.53.57',1362298040,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: XML viewer\";}'),(2557,1,1853,3,21995,0,'190.148.250.25',1362363466,'LOG_DELETE_POST','a:1:{i:0;s:10:\"Re: Cursor\";}'),(2558,1,396,6,25799,0,'200.44.227.118',1362608628,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Fastreport y PDF sin pasar por un PREVIEW\";}'),(2559,1,868,3,25795,0,'124.123.6.178',1362629764,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: HARBOUR VS XHARBOUR\";}'),(2560,1,2,19,25801,0,'194.121.161.227',1362647089,'LOG_MOVE','a:2:{i:0;s:20:\"WhatsNew / Novedades\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2561,1,1257,3,25824,0,'85.182.21.177',1362836259,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"A SQLForum Problem ?\";}'),(2562,1,1257,3,25823,0,'85.182.21.177',1362836286,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"A SQLForum Problem ?\";}'),(2563,1,1257,3,25822,0,'85.182.21.177',1362836473,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Forum Problem ?\";}'),(2564,1,1059,6,25833,0,'190.230.209.153',1362958617,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Tmail con adjuntos,¿se puede?\";}'),(2565,1,303,19,25850,0,'68.7.204.149',1363126643,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Intro Article on Win 8\";}'),(2566,0,2,0,0,0,'85.51.198.97',1363241902,'LOG_ADMIN_AUTH_SUCCESS',''),(2567,3,2,0,0,656,'85.51.198.97',1363241944,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"helvant\";}'),(2568,0,2,0,0,0,'85.51.198.97',1363241944,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"helvant\";}'),(2569,3,656,0,0,656,'46.24.230.13',1363259851,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"helvant\";}'),(2570,3,656,0,0,656,'46.24.230.13',1363259851,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"helvant\";i:1;s:17:\"choces@hotmail.es\";i:2;s:19:\"jperezhlv@gmail.com\";}'),(2571,3,126,0,0,126,'79.154.132.243',1363394015,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:4:\"AJHM\";i:1;s:16:\"a-jesus@terra.es\";i:2;s:20:\"ajesus0501@gmail.com\";}'),(2572,1,2598,3,25880,0,'213.82.134.66',1363431443,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"getdesktopwidth()/getdesktopheight()\";}'),(2573,3,2713,0,0,2713,'83.42.219.148',1363598874,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Antonio Mart.\";}'),(2574,1,868,6,25836,0,'14.96.114.123',1363662884,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Operaciones con fechas en ADO\";}'),(2575,1,130,23,25902,0,'141.51.121.186',1363679877,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Menüelemente zur Laufzeit generieren\";}'),(2576,3,542,0,0,542,'79.151.153.2',1363762648,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"colthop\";}'),(2577,3,542,0,0,542,'79.151.153.2',1363762648,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"colthop\";i:1;s:22:\"colthop@telefonica.net\";i:2;s:17:\"carlos@colthop.es\";}'),(2578,0,2,0,0,0,'176.32.53.57',1363768863,'LOG_ADMIN_AUTH_SUCCESS',''),(2579,0,2,0,0,0,'176.32.53.57',1363768887,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"JLBCia\";}'),(2580,0,2,0,0,0,'176.32.53.57',1363768892,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"JLBCia\";}'),(2581,1,2598,3,25910,0,'213.82.134.66',1363785191,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: To Nages Understand XBrowse tree with dbf\";}'),(2582,1,1257,3,25906,0,'92.224.208.86',1363785580,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Possible to keep TTITLE transparent on Window-resize ?\";}'),(2583,1,1257,3,25906,0,'92.224.208.86',1363785605,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Possible to keep TTITLE transparent on Window-resize ?\";}'),(2584,1,1914,6,25908,0,'189.63.236.59',1363790188,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: C STRUCTURE\";}'),(2585,1,2,6,25908,0,'85.51.211.132',1363808637,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Re: C STRUCTURE\";i:1;s:6:\"aferra\";}'),(2586,1,2,3,25919,0,'85.51.211.132',1363809144,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Compilar con rddAds\";}'),(2587,1,2598,3,25924,0,'213.82.134.66',1363859226,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"WndBox2007\";}'),(2588,1,2598,3,25875,0,'213.82.134.66',1363950793,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: DATE RANGE\";}'),(2589,1,2598,3,25875,0,'213.82.134.66',1363950863,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: DATE RANGE\";}'),(2590,1,2598,3,25932,0,'213.82.134.66',1364028899,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"EXAMPLE INVOICE XBROWSE\";}'),(2591,1,2598,6,25728,0,'128.67.218.159',1364223474,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Planning reservas hotel\";}'),(2592,1,1749,3,25952,0,'1.38.27.61',1364230803,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"multithreading\";}'),(2593,1,2,6,25073,0,'85.51.211.132',1364269620,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)\";}'),(2594,1,2,19,25967,0,'85.51.211.132',1364337001,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2595,1,2598,3,25910,0,'94.165.153.149',1364509570,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: To Nages Understand XBrowse tree with dbf\";}'),(2596,1,2,6,25988,0,'85.51.210.163',1364678336,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: DESCARGAR BCC582\";i:1;s:8:\"QAZWSX2K\";}'),(2597,0,2,0,0,0,'92.58.209.51',1364749747,'LOG_ADMIN_AUTH_SUCCESS',''),(2598,1,1794,6,25996,0,'80.32.19.89',1364818736,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Como asignar valor bprint en tpreview\";}'),(2599,1,6,3,26004,0,'79.18.211.58',1364833041,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"SET BACKGROUND TASKS ON command\";}'),(2600,0,2,0,0,0,'176.32.53.57',1364842734,'LOG_ADMIN_AUTH_SUCCESS',''),(2601,0,2,0,0,0,'176.32.53.57',1364842764,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"mrivera\";}'),(2602,0,2,0,0,0,'176.32.53.57',1364842771,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"mrivera\";}'),(2603,1,303,3,25962,0,'68.7.204.149',1364857668,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Sending e-mail with CDO and SSL\";}'),(2604,1,2,3,26013,0,'92.58.209.51',1364922880,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Re: First steps\";i:1;s:14:\"Silvio.Falconi\";}'),(2605,1,2,17,9321,0,'92.58.209.51',1364922922,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: templates / plantillas\";i:1;s:4:\"Eoeo\";}'),(2606,1,2,3,26013,0,'92.58.209.51',1364922960,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Re: First steps\";i:1;s:14:\"Silvio.Falconi\";}'),(2607,1,2,6,25894,0,'92.58.209.51',1364938540,'LOG_POST_EDITED','a:2:{i:0;s:43:\"Re: Interface visual para Harbour hbmk2.exe\";i:1;s:8:\"cnavarro\";}'),(2608,1,2,6,25894,0,'92.58.209.51',1364938575,'LOG_POST_EDITED','a:2:{i:0;s:43:\"Re: Interface visual para Harbour hbmk2.exe\";i:1;s:8:\"cnavarro\";}'),(2609,0,2,0,0,0,'92.58.209.51',1365028549,'LOG_ADMIN_AUTH_SUCCESS',''),(2610,0,2,0,0,0,'92.58.209.51',1365028566,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"rogstar\";}'),(2611,0,2,0,0,0,'92.58.209.51',1365028571,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"rogstar\";}'),(2612,1,2598,3,26046,0,'213.82.134.66',1365246983,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: TFont for Antonio\";}'),(2613,1,51,3,26058,0,'83.170.101.78',1365539749,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: xBrowse editing color\";}'),(2614,1,2,3,25926,0,'90.168.139.135',1365578196,'LOG_POST_EDITED','a:2:{i:0;s:7:\"FiveWeb\";i:1;s:4:\"Otto\";}'),(2615,1,2,19,26067,0,'90.168.139.135',1365583022,'LOG_POST_EDITED','a:2:{i:0;s:28:\"[OT]Buenas practicas con GIT\";i:1;s:7:\"thefull\";}'),(2616,1,2,19,26067,0,'90.168.139.135',1365583043,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2617,3,131,0,0,131,'89.29.168.100',1365603678,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:19:\"José Luis Sánchez\";}'),(2618,1,2,19,26067,0,'85.51.198.92',1365615468,'LOG_POST_EDITED','a:2:{i:0;s:29:\"[OT] Buenas practicas con GIT\";i:1;s:7:\"thefull\";}'),(2619,1,1178,3,26071,0,'190.9.64.30',1365619251,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Pregunta sobre ADo y Tdolphin\";}'),(2620,1,1853,3,26066,0,'190.149.68.48',1365643818,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: xbrowse\";}'),(2621,1,2598,3,26062,0,'89.97.124.69',1365667350,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Calc with Date\";}'),(2622,1,2,3,26076,0,'92.59.204.175',1365691347,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Upgrading FWH/xHarbour &amp; VS 2010\";}'),(2623,1,2,3,26076,0,'92.59.204.175',1365691557,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Upgrading FWH/xHarbour &amp; VS 2010\";}'),(2624,1,2,3,26076,0,'92.59.204.175',1365691568,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Upgrading FWH/xHarbour &amp; VS 2010\";}'),(2625,1,2,3,26076,0,'92.59.204.175',1365691577,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Upgrading FWH/xHarbour &amp; VS 2010\";}'),(2626,1,1257,3,26082,0,'92.224.211.15',1365762435,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: metro buttons\";}'),(2627,1,739,6,26044,0,'189.134.201.87',1365790313,'LOG_DELETE_POST','a:1:{i:0;s:59:\"Re: Error con un programa de fivewin en una maquina virtual\";}'),(2628,1,2,6,25988,0,'85.51.198.92',1366021298,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: DESCARGAR BCC582\";i:1;s:5:\"santy\";}'),(2629,0,2,0,0,0,'176.32.53.57',1366173345,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"liliana\";}'),(2630,1,2,0,0,0,'176.32.53.57',1366173345,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"liliana\";}'),(2631,1,2,1,26109,0,'176.32.53.57',1366173361,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Fresh Connection Kitchens Norwich\";}'),(2632,1,1257,3,26110,0,'85.182.17.220',1366196019,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: Protection\";}'),(2633,1,868,3,26115,0,'124.123.6.178',1366293868,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: To Nages xbrowse onpostedit\";}'),(2634,3,190,0,0,190,'183.82.198.216',1366371727,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RAMESHBABU\";}'),(2635,1,3,3,26125,0,'212.40.142.137',1366384652,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"HB_ZIPFILE for Harbour\";}'),(2636,3,358,0,0,358,'217.126.48.52',1366385557,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Salvador\";}'),(2637,3,1985,0,0,1985,'190.186.11.235',1366472858,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"abelcervantes\";}'),(2638,3,46,0,0,46,'41.215.223.207',1366728352,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"RenOmaS\";}'),(2639,3,46,0,0,46,'41.215.223.207',1366728352,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"RenOmaS\";i:1;s:29:\"americobalboa@cabosys-net.com\";i:2;s:24:\"americobalboa@cabosys.cv\";}'),(2640,1,2,6,26142,0,'85.60.254.247',1366804068,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: GET con tamaño indefinido\";}'),(2641,1,3,3,26143,0,'212.40.142.132',1366829411,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Harbour + Msvc 2010 express\";}'),(2642,1,6,1,26163,0,'79.22.225.237',1366958106,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Kitchen Design Oxford\";}'),(2643,1,2764,6,26064,0,'186.14.192.191',1367047652,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Crystal Report XI con Mysql\";}'),(2644,0,2,0,0,0,'92.58.215.22',1367341556,'LOG_ADMIN_AUTH_SUCCESS',''),(2645,0,2,0,0,0,'92.58.215.22',1367341581,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"EVER MORA\";}'),(2646,0,2,0,0,0,'92.58.215.22',1367341586,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"EVER MORA\";}'),(2647,1,303,3,26196,0,'68.7.204.149',1367352706,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: VCard import\";}'),(2648,3,533,0,0,533,'88.12.163.23',1367404979,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"Mike Serra\";i:1;s:18:\"mserracat@terra.es\";i:2;s:19:\"mserracat@gmail.com\";}'),(2649,1,2598,3,26200,0,'213.82.134.66',1367496524,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: to Nages:also for Vertical Xbrowse\";}'),(2650,1,92,6,25073,0,'188.77.191.128',1367522909,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)\";}'),(2651,1,92,6,25073,0,'188.77.191.128',1367522932,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)\";}'),(2652,1,2,6,25073,0,'176.32.53.25',1367537134,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: FiveWeb de FiveTech (gratis hasta la versión 1.0)\";i:1;s:8:\"FiveWiDi\";}'),(2653,3,178,0,0,178,'75.187.205.129',1367804568,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Dave Zowasky\";}'),(2654,1,303,3,26171,0,'68.7.204.149',1367870536,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Simulate BackSpace on a Get resolved !!\";}'),(2655,1,739,6,25258,0,'189.134.208.67',1367979129,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Alguien puede mandar correos con archivo adjunto?\";}'),(2656,1,2,6,26276,0,'176.32.53.38',1368172924,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Saber Metodos de un CREATEOBJECT\";}'),(2657,1,1765,3,26289,0,'80.28.138.233',1368273391,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"bug in FW 13.04 - Webcam\";}'),(2658,1,739,6,26291,0,'189.134.208.67',1368286444,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Barra de Botones vertical\";}'),(2659,1,1466,3,26292,0,'186.77.193.80',1368314746,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: bug on xbrowse selectall() and selectnone() methods\";}'),(2660,1,303,3,26301,0,'68.7.204.149',1368459196,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: How to ... on a SAY\";}'),(2661,1,1257,3,26296,0,'78.50.22.172',1368472222,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Transparent Controls using &lt; Fillrect &gt; ?\";}'),(2662,1,163,3,26314,0,'79.31.234.83',1368515025,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Using Outlook\";}'),(2663,1,2,17,26300,0,'85.57.36.108',1368518189,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2664,3,913,0,0,913,'201.103.78.220',1368551402,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"AIDA\";}'),(2665,1,1257,3,26321,0,'78.50.22.243',1368632316,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: About MAIN-WINDOW Top-position ?\";}'),(2666,1,1257,3,26321,0,'78.50.22.243',1368632330,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"About MAIN-WINDOW Top-position ?\";}'),(2667,0,2,0,0,0,'85.51.209.2',1368633199,'LOG_ADMIN_AUTH_SUCCESS',''),(2668,3,2,0,0,45,'85.51.209.2',1368633247,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:23:\"Hernan Diego Ceccarelli\";}'),(2669,0,2,0,0,0,'85.51.209.2',1368633247,'LOG_USER_USER_UPDATE','a:1:{i:0;s:23:\"Hernan Diego Ceccarelli\";}'),(2670,1,163,3,26316,0,'79.31.234.83',1368647849,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Using gmail\";}'),(2671,1,12,19,26327,0,'66.98.36.74',1368652891,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"OT: Con Daniel Garcia-Gil\";}'),(2672,3,45,0,0,45,'190.18.109.56',1368735348,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:23:\"Hernan Diego Ceccarelli\";}'),(2673,3,45,0,0,45,'190.18.109.56',1368735348,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:23:\"Hernan Diego Ceccarelli\";i:1;s:18:\"checanet@gmail.com\";i:2;s:20:\"checanet@hotmail.com\";}'),(2674,3,1011,0,0,1011,'112.198.82.149',1368809250,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"toyet\";}'),(2675,3,2538,0,0,2538,'186.94.55.208',1368998337,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"hebert_j_vargas\";}'),(2676,1,2598,3,26373,0,'213.82.134.66',1369216483,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Beta TLed Class\";}'),(2677,1,1257,3,26376,0,'85.182.16.88',1369224929,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"FTP-problem after new Windows8-update ?\";}'),(2678,1,2,6,26388,0,'92.59.205.29',1369321185,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Un control en un TPanel\";i:1;s:7:\"antolin\";}'),(2679,1,1736,3,26394,0,'177.42.221.213',1369482738,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: A xBrowse ASC-viewer ( DOWNLOAD )\";}'),(2680,0,2,0,0,0,'176.32.53.38',1369589613,'LOG_ADMIN_AUTH_SUCCESS',''),(2681,0,2,0,0,0,'176.32.53.38',1369589653,'LOG_USER_REACTIVATE','a:1:{i:0;s:23:\"Hernan Diego Ceccarelli\";}'),(2682,3,2,0,0,45,'176.32.53.38',1369589653,'LOG_USER_REACTIVATE_USER',''),(2683,0,2,0,0,0,'176.32.53.38',1369589674,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:23:\"Hernan Diego Ceccarelli\";}'),(2684,0,2,0,0,0,'176.32.53.38',1369589775,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:23:\"Hernan Diego Ceccarelli\";}'),(2685,0,2,0,0,0,'176.32.53.38',1369589807,'LOG_USER_ACTIVE','a:1:{i:0;s:23:\"Hernan Diego Ceccarelli\";}'),(2686,3,2,0,0,45,'176.32.53.38',1369589807,'LOG_USER_ACTIVE_USER',''),(2687,1,2582,6,26382,0,'200.117.254.200',1369684736,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: MsgLogo  con jpg y png desde recursos\";}'),(2688,1,2598,3,26433,0,'213.82.134.66',1369915386,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"error on aadd array : help please !!!\";}'),(2689,1,303,3,26424,0,'68.7.204.149',1369916874,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Check if a device was connected\";}'),(2690,1,1257,3,26447,0,'78.50.23.128',1370074750,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"How to detect BREAK using ChooseColor() ?\";}'),(2691,1,3,3,26465,0,'212.40.142.145',1370331172,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Ado question\";}'),(2692,1,2,6,26467,0,'85.60.248.225',1370372422,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Para los Expertos en Linux\";}'),(2693,0,2,0,0,0,'176.32.53.142',1370581675,'LOG_ADMIN_AUTH_SUCCESS',''),(2694,0,2,0,0,0,'176.32.53.142',1370581752,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"acrisostomo\";}'),(2695,0,2,0,0,0,'176.32.53.142',1370581757,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"acrisostomo\";}'),(2696,1,868,3,26545,0,'124.123.6.178',1371034217,'LOG_DELETE_POST','a:1:{i:0;s:65:\"Re: new bug FW 13.05:can´t append records to ACCESS and TDatarow\";}'),(2697,2,1313,0,0,0,'200.146.119.59',1371053716,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(2698,1,35,3,26569,0,'70.60.209.112',1371325595,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Printing an Image from resource\";}'),(2699,1,249,3,26571,0,'186.90.192.11',1371348732,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Descargar  Borland 5.82\";}'),(2700,3,1715,0,0,1715,'190.85.16.114',1371502808,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"fusion\";i:1;s:28:\"jair.linares@tecnitintas.com\";i:2;s:24:\"jair.linares71@gmail.com\";}'),(2701,1,303,3,26489,0,'68.7.204.149',1371577131,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: TDataRow  and ADO questions\";}'),(2702,1,1874,6,26586,0,'88.6.84.219',1371583149,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: DLL en .net\";}'),(2703,1,2,6,26565,0,'85.60.248.42',1371595715,'LOG_POST_EDITED','a:2:{i:0;s:34:\"TActiveX() (play a video or sound)\";i:1;s:8:\"acuellar\";}'),(2704,1,41,6,26593,0,'200.87.163.74',1371676201,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: XBrowse comportamiento raro bEditValid (SOLUCIONADO)\";}'),(2705,1,249,19,26603,0,'186.90.192.11',1371753232,'LOG_SPLIT_DESTINATION','a:1:{i:0;s:17:\"HUMOR INFORMATICO\";}'),(2706,1,249,0,26600,0,'186.90.192.11',1371753232,'LOG_SPLIT_SOURCE','a:1:{i:0;s:17:\"HUMOR INFORMATICO\";}'),(2707,1,294,6,24040,0,'190.178.10.100',1371822411,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Tdolphin: se bloquea seek al cambiar el orden de Query\";}'),(2708,1,2,3,26524,0,'176.32.53.66',1371903965,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Fivedroid on Qt\";}'),(2709,1,456,3,26524,0,'217.127.39.57',1372060444,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Fivedroid on Qt\";}'),(2710,1,47,3,26642,0,'124.120.188.229',1372214729,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Compile TMySql Error with FWH1305\";}'),(2711,1,180,3,21571,0,'79.148.215.115',1372252722,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: To Mr Nages : change  bClrStd on line\";}'),(2712,3,358,0,0,358,'217.126.48.52',1372422768,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Salvador\";}'),(2713,3,376,0,0,376,'190.236.125.44',1372447963,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(2714,1,2,17,26680,0,'176.32.53.66',1372496535,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2715,1,579,6,26725,0,'189.200.149.116',1372903947,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Desaparecen datos del folder\";}'),(2716,1,2,3,26298,0,'37.230.81.241',1372960438,'LOG_POST_EDITED','a:2:{i:0;s:55:\"Re: Building Harbour + FWH apps from Visual Studio 2012\";i:1;s:8:\"Maurizio\";}'),(2717,1,2,19,26416,0,'37.230.81.241',1372962599,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Windows 8 theme for Windows 7\";}'),(2718,3,305,0,0,305,'201.230.74.104',1373306436,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ralph\";}'),(2719,1,2,19,26750,0,'176.32.53.55',1373317094,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2720,1,1691,6,26769,0,'187.131.0.189',1373496974,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Ayuda Combo Box\";}'),(2721,1,2,6,26771,0,'213.143.58.108',1373532892,'LOG_POST_EDITED','a:2:{i:0;s:52:\"Nuevo problema con CheckBox en FWH1306 (solucionado)\";i:1;s:10:\"RodolfoRBG\";}'),(2722,1,2,3,26773,0,'176.32.53.75',1373550700,'LOG_POST_EDITED','a:2:{i:0;s:18:\"\'DATA\' hAlphaLevel\";i:1;s:15:\"arthursilvestre\";}'),(2723,1,358,3,26789,0,'189.210.143.2',1373861438,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"ThreadSleep, Mysql, Tdolphin\";}'),(2724,1,2,17,26798,0,'92.58.210.158',1373987365,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"VC98 on Windows 8/8.1\";}'),(2725,1,303,3,26799,0,'68.7.204.149',1374001461,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Trouble with PIXEL clause of SAY command\";}'),(2726,0,2,0,0,0,'176.32.53.75',1374099375,'LOG_ADMIN_AUTH_SUCCESS',''),(2727,0,2,0,0,0,'176.32.53.75',1374099436,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:6:\"BeoBeo\";}'),(2728,1,2,0,0,0,'176.32.53.75',1374099436,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:6:\"BeoBeo\";}'),(2729,1,2,3,26748,0,'176.32.53.75',1374099470,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Reports designers comparison\";}'),(2730,1,6,3,26820,0,'79.26.212.166',1374340595,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: force table alias in complex select\";}'),(2731,1,2,17,26824,0,'176.32.53.75',1374430864,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2732,1,413,6,26829,0,'195.55.176.97',1374505552,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Fallo en el COMMIT\";}'),(2733,0,2,0,0,0,'85.60.254.244',1374508019,'LOG_ADMIN_AUTH_SUCCESS',''),(2734,0,2,0,0,0,'85.60.254.244',1374508034,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:11:\"angun66asll\";}'),(2735,1,2,0,0,0,'85.60.254.244',1374508034,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:11:\"angun66asll\";}'),(2736,1,2,3,26828,0,'85.60.254.244',1374508057,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"温暖我久违的笑靥\";}'),(2737,3,376,0,0,376,'190.236.98.53',1374539978,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(2738,0,2,0,0,0,'85.60.254.244',1374569241,'LOG_ADMIN_AUTH_SUCCESS',''),(2739,0,2,0,0,0,'85.60.254.244',1374569258,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:13:\"procsmags2013\";}'),(2740,1,2,0,0,0,'85.60.254.244',1374569258,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:13:\"procsmags2013\";}'),(2741,1,2,19,26832,0,'85.60.254.244',1374569272,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Software Contest ($3500 Prize)\";}'),(2742,1,2,16,21421,0,'92.59.192.59',1374614165,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: FiveTech 2011-2012 WorldWide tour !!!\";}'),(2743,1,2,3,26809,0,'176.32.53.75',1374683139,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: bugs FWH64\";}'),(2744,1,3,3,26854,0,'93.185.232.86',1374929665,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Metro Interface Menus how to exit\";}'),(2745,1,2,6,26867,0,'92.59.206.241',1375288457,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 13.07\";}'),(2746,1,2,3,26866,0,'92.59.206.241',1375359851,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 13.07\";}'),(2747,1,2,6,26887,0,'176.32.53.47',1375387678,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Sub Directório Sounds\";i:1;s:7:\"karinha\";}'),(2748,1,2,6,26853,0,'92.59.206.241',1375423656,'LOG_POST_EDITED','a:2:{i:0;s:44:\"Re: El mejor editor de código para xBase...\";i:1;s:10:\"noe aburto\";}'),(2749,2,2,0,0,0,'92.59.206.241',1375449159,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(2750,2,1466,0,0,0,'186.77.197.80',1375474280,'LOG_ERROR_EMAIL','a:1:{i:0;s:82:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/forums/cron.php</em><br /><br /><br />\";}'),(2751,1,1313,6,26909,0,'186.212.76.201',1375672566,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Exemplo de TOUTLOOK+XBROWSE\";}'),(2752,1,1257,3,26918,0,'85.182.19.221',1375703336,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"xbrowse cell-tooltip on Image from DBF ?\";}'),(2753,3,376,0,0,376,'201.230.67.80',1375729621,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(2754,1,303,3,26942,0,'68.7.204.149',1375997071,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Record Lock problem\";}'),(2755,0,2,0,0,0,'176.32.53.47',1375997428,'LOG_ADMIN_AUTH_SUCCESS',''),(2756,0,2,0,0,0,'176.32.53.47',1375997458,'LOG_PURGE_CACHE',''),(2757,1,300,3,26942,0,'186.214.162.175',1376005056,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Record Lock problem\";}'),(2758,1,163,3,26957,0,'79.24.235.227',1376206880,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Happy birthday\";}'),(2759,1,475,3,26917,0,'109.76.178.22',1376228130,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Multiline button on a window\";}'),(2760,1,2,19,26968,0,'85.51.192.135',1376377595,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2761,3,1095,0,0,1095,'80.35.166.25',1376470358,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"vlmsoft\";}'),(2762,1,2,19,26994,0,'85.51.192.135',1376822265,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2763,1,2,3,26708,0,'85.51.204.177',1376906095,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Goodbye  Windows ce Welcome   Xpphone\";}'),(2764,3,159,0,0,159,'203.70.248.125',1377133002,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ssbbs\";}'),(2765,1,2,3,27018,0,'85.51.204.177',1377166843,'LOG_POST_EDITED','a:2:{i:0;s:28:\"several minor bugs FWH 13.07\";i:1;s:14:\"lucasdebeltran\";}'),(2766,1,2,6,27042,0,'85.51.204.177',1377181537,'LOG_POST_EDITED','a:2:{i:0;s:32:\"FWH 13.08 -  Estado traducciones\";i:1;s:6:\"elvira\";}'),(2767,0,2,0,0,0,'85.51.204.177',1377244844,'LOG_ADMIN_AUTH_SUCCESS',''),(2768,0,2,0,0,0,'85.51.204.177',1377244883,'LOG_USER_REACTIVATE','a:1:{i:0;s:14:\"lucasdebeltran\";}'),(2769,3,2,0,0,1765,'85.51.204.177',1377244883,'LOG_USER_REACTIVATE_USER',''),(2770,0,2,0,0,0,'85.51.204.177',1377245089,'LOG_BAN_USER','a:2:{i:0;s:22:\"esperando tu respuesta\";i:1;s:14:\"lucasdebeltran\";}'),(2771,1,2,0,0,0,'85.51.204.177',1377245089,'LOG_BAN_USER','a:2:{i:0;s:22:\"esperando tu respuesta\";i:1;s:14:\"lucasdebeltran\";}'),(2772,1,36,6,27010,0,'200.113.108.252',1377266980,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Líneas en combobox al tomar el foco\";}'),(2773,3,267,0,0,267,'186.247.88.36',1377267494,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"vilian\";}'),(2774,1,1313,6,22367,0,'177.42.46.23',1377458751,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"TDOLPHIN method SAVE\";}'),(2775,0,2,0,0,0,'92.59.194.26',1377684066,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:9:\"saifdavid\";}'),(2776,1,2,0,0,0,'92.59.194.26',1377684066,'LOG_BAN_USER','a:2:{i:0;s:4:\"spam\";i:1;s:9:\"saifdavid\";}'),(2777,1,2,11,27087,0,'92.59.194.26',1377684082,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"Block users from creating a password on their user account?\";}'),(2778,1,2,17,25371,0,'92.59.194.26',1377684256,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(2779,0,2,0,0,0,'92.58.210.33',1377728338,'LOG_ADMIN_AUTH_SUCCESS',''),(2780,0,2,0,0,0,'92.58.210.33',1377728361,'LOG_USER_ACTIVE','a:1:{i:0;s:14:\"lucasdebeltran\";}'),(2781,3,2,0,0,1765,'92.58.210.33',1377728361,'LOG_USER_ACTIVE_USER',''),(2782,3,2252,0,0,2252,'189.231.251.43',1377794679,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"GuillermoMtz\";}'),(2783,3,2530,0,0,2530,'177.124.37.10',1377830814,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Lailton\";i:1;s:24:\"developer@lailton.com.br\";i:2;s:22:\"suporte@lailton.com.br\";}'),(2784,1,1749,3,27102,0,'113.193.193.100',1377867987,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Typical problem with dll\";}'),(2785,1,1077,3,27091,0,'92.53.49.25',1378220643,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: How To Disable Some Rows In A Listbox\";}'),(2786,1,1059,6,27126,0,'190.246.241.61',1378223523,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Ayuda con &quot;C&quot;\";}'),(2787,1,1077,3,27091,0,'80.77.147.50',1378363267,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: How To Disable Some Rows In A Listbox\";}'),(2788,3,109,0,0,109,'187.139.75.132',1378388249,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"ricardog\";}'),(2789,1,249,6,27165,0,'186.90.192.11',1378506516,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Request _ADS?\";}'),(2790,1,249,6,27170,0,'186.90.192.11',1378576920,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"hb_xgrab, error\";}'),(2791,1,409,6,27172,0,'190.151.30.242',1378584064,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Sobre Poner Imagenes\";}'),(2792,1,1313,6,27178,0,'200.146.119.59',1378729321,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"TDOLPHIN - Exemplo para comparar e atualizar tabela\";}'),(2793,1,409,6,27198,0,'190.82.219.99',1378821289,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Problemas con IMAGE\";}'),(2794,1,2598,3,24580,0,'128.45.10.94',1378912299,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: c5tooltip class\";}'),(2795,1,249,6,27215,0,'186.90.192.11',1378998811,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Colores en los gets, como?\";}'),(2796,1,2598,3,27221,0,'94.162.177.191',1379055930,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Another for otree\";}'),(2797,3,69,0,0,69,'174.114.96.166',1379116601,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Jeff Barnes\";}'),(2798,1,2,19,27235,0,'85.51.211.29',1379147031,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2799,1,6,3,27241,0,'79.55.224.77',1379246105,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"CopyFileEx\";}'),(2800,3,1404,0,0,1404,'200.175.80.158',1379420596,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"kabrau\";}'),(2801,1,2,6,27250,0,'213.143.50.74',1379430872,'LOG_POST_EDITED','a:2:{i:0;s:38:\"xHarbour.org BUG error  Build 20130422\";i:1;s:9:\"devtuxtla\";}'),(2802,0,2,0,0,0,'213.143.50.53',1379445055,'LOG_ADMIN_AUTH_SUCCESS',''),(2803,0,2,0,0,0,'213.143.50.53',1379445205,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"jorjio\";}'),(2804,3,2,0,0,2885,'213.143.50.53',1379445205,'LOG_USER_ACTIVE_USER',''),(2805,1,868,3,25428,0,'124.123.6.178',1379445412,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: JPG &gt; PDF and viceversa\";}'),(2806,1,1313,3,27269,0,'200.146.119.59',1379446901,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"fwh1307 - Unresolved external \'__pcre_version\'\";}'),(2807,3,1800,0,0,1800,'194.154.205.138',1379501024,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"ellano\";}'),(2808,1,249,6,27281,0,'186.90.192.11',1379551730,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Path para dll, funcionara?\";}'),(2809,1,249,6,27280,0,'186.90.192.11',1379551744,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Path para dll, funcionara?\";}'),(2810,1,2598,3,27292,0,'31.189.49.43',1379609459,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"problem with datepick\";}'),(2811,1,2,22,26570,0,'213.143.60.104',1379610850,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: un sisstema para acceder a las últimas librerías\";}'),(2812,1,2,22,26570,0,'213.143.60.104',1379610865,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: un sisstema para acceder a las últimas librerías\";}'),(2813,1,2,22,27071,0,'213.143.60.104',1379610888,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: new command SQL:&gt; ALTER TABLE\";}'),(2814,1,2,19,27310,0,'92.59.206.209',1379706668,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2815,1,6,3,27308,0,'79.55.224.77',1379797413,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Strange numeric behavior\";i:1;s:15:\"Antonio Linares\";}'),(2816,1,2,3,27308,0,'213.143.60.4',1379838092,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: Strange numeric behavior\";i:1;s:21:\"Enrico Maria Giordano\";}'),(2817,1,1313,6,27295,0,'200.146.119.59',1379934327,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: FOLDEREx - Bug\";}'),(2818,1,2,3,27258,0,'92.59.195.244',1379961246,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 13.08\";}'),(2819,1,2,3,27338,0,'213.143.60.57',1380045389,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Embedding a 3rd party .dll\";}'),(2820,1,2473,6,27285,0,'177.42.154.229',1380110946,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: erro CALEXX.LIB + FWH1308 + xharbour_bcc582_20130610\";}'),(2821,1,2473,6,27285,0,'177.42.154.229',1380110956,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"erro CALEXX.LIB + FWH1308 + xharbour_bcc582_20130610\";}'),(2822,1,2598,3,27362,0,'213.82.134.66',1380272276,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: MOVE  a SAY CONTROL\";}'),(2823,1,303,3,27363,0,'68.7.204.149',1380301370,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Problem with TGET class in FWH 13.08\";}'),(2824,1,303,3,27189,0,'68.7.204.149',1380468257,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: encrypting dbf files\";}'),(2825,1,1313,6,27320,0,'200.146.119.59',1380656337,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Nueva clase TLayout\";}'),(2826,3,132,0,0,132,'83.213.33.43',1380792263,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"txon\";}'),(2827,1,228,6,27358,0,'181.130.139.107',1380899408,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Canal de Internet Saturado\";}'),(2828,1,2,6,27405,0,'92.59.194.235',1381139228,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: Rebuild\";}'),(2829,3,169,0,0,169,'177.21.54.106',1381141487,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(2830,1,1257,3,27413,0,'85.182.20.239',1381234508,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Rotate Image with freeimage.dll\";}'),(2831,1,2,3,27434,0,'5.8.190.123',1381308874,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Help needed\";}'),(2832,1,868,3,25428,0,'124.123.6.178',1381359810,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: JPG &gt; PDF and viceversa\";}'),(2833,1,3,3,27445,0,'83.200.253.77',1381420188,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Xbrowse edit mode\";}'),(2834,1,170,3,25428,0,'78.119.92.250',1381498312,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: JPG &gt; PDF and viceversa\";}'),(2835,1,1556,3,27417,0,'188.120.97.61',1381612700,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: TEXTOUT() function cannot use some predefined fonts?\";}'),(2836,1,2,19,27460,0,'92.58.211.44',1381690457,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2837,1,2598,3,27465,0,'5.87.56.87',1381828233,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: TO CHARLES : HELP FOR   MYRPT\";}'),(2838,1,2598,3,27465,0,'5.87.56.87',1381828243,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"TO CHARLES : HELP FOR   MYRPT\";}'),(2839,1,2598,3,27454,0,'5.87.56.87',1381828758,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"To Charles :MyRpt\";}'),(2840,3,582,0,0,582,'201.213.83.217',1381944424,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"El Loco\";}'),(2841,1,1059,6,27491,0,'181.1.131.214',1382140741,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: xBrowse con Tdatabase mal en 1307\";}'),(2842,1,2598,3,27489,0,'176.206.92.102',1382201899,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"dragrid rpreview\";}'),(2843,1,1357,6,27502,0,'87.218.220.217',1382379373,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: problema con los combobox y manifiest\";}'),(2844,1,1357,6,27502,0,'87.218.220.217',1382379430,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: problema con los combobox y manifiest\";}'),(2845,0,2,0,0,0,'85.60.255.225',1382515564,'LOG_ADMIN_AUTH_FAIL',''),(2846,0,2,0,0,0,'85.60.255.225',1382515584,'LOG_ADMIN_AUTH_FAIL',''),(2847,0,2,0,0,0,'85.60.255.225',1382515591,'LOG_ADMIN_AUTH_FAIL',''),(2848,0,2,0,0,0,'85.60.255.225',1382515610,'LOG_ADMIN_AUTH_FAIL',''),(2849,0,2,0,0,0,'85.60.255.225',1382515629,'LOG_ADMIN_AUTH_SUCCESS',''),(2850,0,2,0,0,0,'85.60.255.225',1382515657,'LOG_USER_ACTIVE','a:1:{i:0;s:15:\"Jeanette Panitz\";}'),(2851,3,2,0,0,2909,'85.60.255.225',1382515657,'LOG_USER_ACTIVE_USER',''),(2852,1,2,3,27338,0,'5.8.190.123',1382617901,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Embedding a 3rd party .dll\";}'),(2853,0,2,0,0,0,'92.58.213.119',1382861502,'LOG_ADMIN_AUTH_FAIL',''),(2854,0,2,0,0,0,'92.58.213.119',1382861525,'LOG_ADMIN_AUTH_FAIL',''),(2855,0,2,0,0,0,'92.58.213.119',1382861531,'LOG_ADMIN_AUTH_FAIL',''),(2856,0,2,0,0,0,'92.58.213.119',1382861551,'LOG_ADMIN_AUTH_SUCCESS',''),(2857,0,2,0,0,0,'92.58.213.119',1382861585,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"Martin\";}'),(2858,3,2,0,0,2914,'92.58.213.119',1382861585,'LOG_USER_ACTIVE_USER',''),(2859,1,1928,6,25369,0,'80.31.89.161',1383037995,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Adeudos Directos SEPA en euros Esquema B2B\";}'),(2860,1,1535,6,27546,0,'83.37.55.228',1383128508,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Problea con CodeBlock\";}'),(2861,3,109,0,0,109,'187.175.175.93',1383260320,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"ricardog\";}'),(2862,2,1,0,0,0,'187.240.178.168',1383265495,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(2863,0,2,0,0,0,'92.59.203.119',1383389477,'LOG_ADMIN_AUTH_SUCCESS',''),(2864,0,2,0,0,0,'92.59.203.119',1383389509,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"Ribo\";}'),(2865,0,2,0,0,0,'92.59.203.119',1383389514,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"Ribo\";}'),(2866,1,249,19,27604,0,'184.91.211.31',1383834502,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Me gustaría conocer a un hombre serio...\";}'),(2867,3,131,0,0,131,'89.29.168.63',1383846249,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:19:\"José Luis Sánchez\";}'),(2868,1,34,3,27593,0,'68.5.48.88',1383873446,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"rPreview 13.09.  xHarbour vs Harbour - Problem\";}'),(2869,1,2342,3,27594,0,'87.217.246.1',1383892195,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Windows / TPANEL\";}'),(2870,1,1257,3,27617,0,'92.224.208.143',1384019532,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Create a bitmap\";}'),(2871,0,2,0,0,0,'85.51.203.61',1384205022,'LOG_ADMIN_AUTH_FAIL',''),(2872,0,2,0,0,0,'85.51.203.61',1384205029,'LOG_ADMIN_AUTH_SUCCESS',''),(2873,3,2,0,0,2923,'85.51.203.61',1384205093,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"ELOY\";}'),(2874,0,2,0,0,0,'85.51.203.61',1384205093,'LOG_USER_USER_UPDATE','a:1:{i:0;s:4:\"ELOY\";}'),(2875,1,1162,17,13098,0,'24.139.190.11',1384209401,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Borland C setup files\";}'),(2876,1,1257,3,27643,0,'78.50.20.222',1384356121,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: TGET in insert mode\";}'),(2877,1,2598,3,27638,0,'213.82.134.66',1384427469,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: To Daniel : test of Tlayout\";}'),(2878,1,2598,3,27638,0,'213.82.134.66',1384427479,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: To Daniel : test of Tlayout\";}'),(2879,1,274,6,27681,0,'177.138.47.227',1384997990,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"CLASS TSmtp con autenticacion\";}'),(2880,1,1535,6,27694,0,'83.37.52.42',1385047485,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: El programa es lento.\";}'),(2881,3,2141,0,0,2141,'151.252.238.176',1385104412,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"davor0501\";}'),(2882,1,249,3,27705,0,'186.90.221.129',1385126034,'LOG_POST_EDITED','a:2:{i:0;s:11:\"To Antonio:\";i:1;s:8:\"HunterEC\";}'),(2883,1,303,3,27704,0,'68.7.204.149',1385138320,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Finding out dialog size\";}'),(2884,1,1257,3,27705,0,'92.224.208.116',1385158790,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: To Antonio:\";}'),(2885,1,1257,3,27704,0,'92.224.208.116',1385158814,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Finding out dialog size\";}'),(2886,1,1257,3,27706,0,'92.224.208.116',1385158833,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Simple questions...\";}'),(2887,1,249,6,27709,0,'186.90.221.129',1385224263,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: De donde descargó Verce 5.0\";i:1;s:7:\"wmormar\";}'),(2888,1,1059,6,27736,0,'190.246.245.228',1385641978,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Pasandome a Harbour\";}'),(2889,1,147,6,27728,0,'201.231.225.63',1385666930,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: como compilar con xHarbour para modo consola\";}'),(2890,1,1313,6,27749,0,'189.58.55.160',1385944492,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"MySql timeout - Sr. Daniel\";}'),(2891,3,1010,0,0,1010,'200.45.184.6',1386066510,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"davidbarrio\";}'),(2892,1,1059,6,23644,0,'190.246.240.158',1386159727,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: HOWTO. HB_SENDMAIL y gmail\";}'),(2893,1,1059,6,23644,0,'190.246.240.158',1386159753,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: HOWTO. HB_SENDMAIL y gmail\";}'),(2894,1,147,6,27755,0,'201.231.225.63',1386191929,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: xBrowse - Footer (SOLUCIONADO)\";}'),(2895,1,1527,3,27768,0,'177.183.131.206',1386269306,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Error BASE/1002  Alias does not exist: Clients\";}'),(2896,1,1162,3,27750,0,'24.41.152.11',1386475541,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Rao: can you relook this post ?\";}'),(2897,1,1059,6,27737,0,'190.229.87.205',1386507538,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: xBrowse - Pasandome a HARBOUR\";}'),(2898,1,1059,6,27737,0,'190.229.87.205',1386508231,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Pasandome a HARBOUR - Solucionado\";}'),(2899,1,103,6,27790,0,'201.76.137.133',1386514719,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: TDolphin - Como se muestra informaciones relacionadas\";}'),(2900,1,1059,6,27745,0,'186.153.187.147',1386540576,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: RDDADS.LIB para último HARBOUR (¿Como crear ó conseguir?)\";}'),(2901,1,1059,6,27745,0,'190.30.61.93',1386548849,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: RDDADS.LIB para último HARBOUR\";}'),(2902,0,2,0,0,0,'149.126.45.152',1386753662,'LOG_ADMIN_AUTH_FAIL',''),(2903,0,2,0,0,0,'149.126.45.152',1386753670,'LOG_ADMIN_AUTH_SUCCESS',''),(2904,0,2,0,0,0,'149.126.45.152',1386753737,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"Olympio\";}'),(2905,0,2,0,0,0,'149.126.45.152',1386753744,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"Olympio\";}'),(2906,3,2,0,0,2914,'149.126.45.152',1386753941,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Martin\";}'),(2907,0,2,0,0,0,'149.126.45.152',1386753941,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"Martin\";}'),(2908,0,249,0,0,0,'186.90.221.129',1386765074,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:11:\"trevorwilde\";}'),(2909,1,249,0,0,0,'186.90.221.129',1386765074,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:11:\"trevorwilde\";}'),(2910,1,249,11,27804,0,'186.90.221.129',1386765143,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Picking a smartphone: the best voice possible\";}'),(2911,1,1313,6,27701,0,'200.146.119.59',1386942331,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: BUG TWINDOWS Title\";}'),(2912,3,248,0,0,248,'212.225.201.103',1387297055,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Garbi\";}'),(2913,1,1535,6,27831,0,'81.37.131.18',1387303633,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Extraer tokens estilo &lt;Tag&gt;\";}'),(2914,1,1844,3,27792,0,'46.253.188.155',1387316769,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: What about FWH 13.10 and 13.11?\";}'),(2915,1,582,6,27843,0,'190.190.208.224',1387523920,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: xBrowse - Coordenadas en Pixel - Solucionado !!!\";}'),(2916,0,2,0,0,0,'149.126.45.151',1387551380,'LOG_ADMIN_AUTH_SUCCESS',''),(2917,0,2,0,0,0,'149.126.45.151',1387551456,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:15:\"informaticaeloy\";}'),(2918,0,2,0,0,0,'149.126.45.151',1387551463,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:15:\"informaticaeloy\";}'),(2919,1,2940,3,27881,0,'90.165.99.180',1388418466,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Problema con el error.log\";}'),(2920,3,1057,0,0,1057,'190.234.136.80',1388456100,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"artu01\";}'),(2921,1,249,6,27871,0,'186.90.221.129',1388690807,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Re: Códico IBAN\";i:1;s:17:\"Manuel Valdenebro\";}'),(2922,3,178,0,0,178,'76.188.82.115',1388949530,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Dave Zowasky\";}'),(2923,1,1257,3,27907,0,'92.231.7.126',1389022628,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"CSV with optional field - TRIM / keep fieldsize ?\";}'),(2924,1,2,3,27896,0,'90.174.2.168',1389170506,'LOG_POST_EDITED','a:2:{i:0;s:35:\"Re: Problem TfolderEX and FWH 13.11\";i:1;s:6:\"tiaofw\";}'),(2925,1,335,3,27908,0,'68.196.174.190',1389390092,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: How to work with Blowfish encryption\";}'),(2926,3,2566,0,0,2566,'177.158.228.151',1389794980,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Matheusfarias\";}'),(2927,0,2,0,0,0,'90.174.229.156',1389939807,'LOG_ADMIN_AUTH_SUCCESS',''),(2928,0,2,0,0,0,'90.174.229.156',1389940199,'LOG_USER_USER_UPDATE','a:1:{i:0;s:11:\"Greg Gammon\";}'),(2929,0,2,0,0,0,'85.51.197.117',1389973443,'LOG_ADMIN_AUTH_SUCCESS',''),(2930,3,2,0,0,620,'85.51.197.117',1389973520,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Greg Gammon\";}'),(2931,0,2,0,0,0,'85.51.197.117',1389973520,'LOG_USER_USER_UPDATE','a:1:{i:0;s:11:\"Greg Gammon\";}'),(2932,3,620,0,0,620,'209.189.229.150',1389976728,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Greg Gammon\";}'),(2933,3,620,0,0,620,'209.189.229.150',1389976973,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Greg Gammon\";}'),(2934,3,620,0,0,620,'209.189.229.150',1389976973,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:11:\"Greg Gammon\";i:1;s:23:\"ggammon@insitegroup.com\";i:2;s:19:\"ggammon04@gmail.com\";}'),(2935,3,620,0,0,620,'209.189.229.150',1389985855,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Greg Gammon\";}'),(2936,3,131,0,0,131,'89.29.177.10',1390252775,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:19:\"José Luis Sánchez\";}'),(2937,1,1313,6,11639,0,'200.146.119.59',1390590417,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"Activex GOOGLE Maps - definir rota entre dois pontos\";}'),(2938,1,1257,3,28004,0,'85.182.19.164',1391213009,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Compare 2 DBF files\";}'),(2939,3,1320,0,0,1320,'186.125.91.99',1391545691,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"albertofernandezm\";}'),(2940,1,1162,3,25043,0,'24.139.188.131',1391840699,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: DBF to CSV - converter 3.1 ( Update )\";}'),(2941,1,86,3,28116,0,'84.193.71.183',1392913163,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"TGET : problem with copy and paste\";}'),(2942,1,350,6,28124,0,'95.22.79.204',1392997455,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: GEt multiline y cPicture no anda.\";}'),(2943,1,2838,6,28124,0,'187.35.92.145',1393009197,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: GEt multiline y cPicture no anda.\";}'),(2944,1,1466,6,28133,0,'186.77.198.142',1393130448,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Simular INTRO en GET\";}'),(2945,3,913,0,0,913,'187.233.73.93',1393280297,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"AIDA\";}'),(2946,3,29,0,0,29,'88.149.241.40',1393512236,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marco Turco\";}'),(2947,0,2,0,0,0,'88.3.117.136',1394389654,'LOG_ADMIN_AUTH_SUCCESS',''),(2948,0,2,0,0,0,'88.3.117.136',1394389722,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"octavio.d\";}'),(2949,0,2,0,0,0,'88.3.117.136',1394389729,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"octavio.d\";}'),(2950,3,2040,0,0,2040,'84.20.29.118',1395239014,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"pgfdz\";}'),(2951,0,2,0,0,0,'83.50.140.91',1395306513,'LOG_ADMIN_AUTH_SUCCESS',''),(2952,3,2,0,0,1726,'83.50.140.91',1395306550,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Dioni\";}'),(2953,0,2,0,0,0,'83.50.140.91',1395306550,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"Dioni\";}'),(2954,1,1257,3,28224,0,'85.182.17.72',1395439670,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"How to extract single values from a gradient-array ?\";}'),(2955,1,1063,6,26415,0,'200.111.99.54',1395697045,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: ON EDIT CHANGE en Combobox (Sin Solución)\";}'),(2956,1,1521,17,12773,0,'186.194.106.130',1396005084,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Free Resources Editors for Windows\";}'),(2957,2,1257,0,0,0,'85.182.19.163',1396016413,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(2958,1,249,6,28260,0,'66.98.36.6',1396438622,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"PARA DANIEL GARCIA - GRACIAS\";}'),(2959,3,376,0,0,376,'190.234.105.119',1396461324,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(2960,1,6,3,28246,0,'82.55.44.72',1396475644,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Drawing on a TImage and save [Solved]\";}'),(2961,1,110,6,28293,0,'186.77.223.118',1397107873,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: ayuda con mysql - reconexiones\";}'),(2962,1,249,3,28308,0,'190.204.194.140',1397162043,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"t3Pz louis vuitton outlet online boCIv\";}'),(2963,1,1257,3,28298,0,'92.224.208.30',1397257223,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: How to save a PNG or BMP transp with Freeimage ? (solved )\";}'),(2964,1,303,3,28324,0,'68.7.204.149',1397744287,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: OnPostEdit does not save changes\";}'),(2965,1,396,6,28333,0,'200.44.227.118',1397749272,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Consulta de hojas TOleAuto()\";}'),(2966,1,2,3,28332,0,'79.156.61.151',1397888715,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: fwh 14.2 print preview issue with win xp\";}'),(2967,1,1257,3,28337,0,'92.224.209.50',1397921696,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"How to Insert a image from clipboard into a ext. Prog. ?\";}'),(2968,1,36,6,28340,0,'190.21.175.221',1397944511,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"NO PUEDO ANEXAR MAS OBJETOS A MI APLICACION\";}'),(2969,0,2,0,0,0,'92.58.18.190',1398105192,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"dynljjra\";}'),(2970,1,2,0,0,0,'92.58.18.190',1398105192,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"dynljjra\";}'),(2971,1,2,3,28347,0,'92.58.18.190',1398105208,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"cheap gucci handbags hFOwsWc\";}'),(2972,1,6,5,28374,0,'82.55.44.72',1398673357,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"focusing on buying apartmen Handbag woman would hi\";}'),(2973,1,249,6,28373,0,'190.204.202.43',1398685328,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Political satirist Stephen  FITNESS Staying motiva\";}'),(2974,3,1516,0,0,1516,'187.114.16.149',1398714604,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"cendon\";}'),(2975,1,1257,3,28387,0,'85.182.19.162',1398944379,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Signature-creator Release 1.1 ( Download )\";}'),(2976,1,1257,3,28388,0,'85.182.19.162',1398948577,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"Signature-edit Release 1.1 ( DOWNLOAD )\";}'),(2977,1,362,6,28406,0,'179.183.1.117',1399313051,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Multi Preview de Jose Lalín\";}'),(2978,1,92,6,28415,0,'195.57.224.250',1399457658,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Que tal Windows 8?\";}'),(2979,3,278,0,0,278,'190.121.65.120',1400001979,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"jcaro\";}'),(2980,1,1257,3,27708,0,'85.182.20.205',1400085775,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Which event to display latest value of cSeek IN XBROWSE ?\";}'),(2981,1,1257,3,28402,0,'85.182.20.205',1400094601,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Imagepainter Release 1.3 ( Download )\";}'),(2982,0,2,0,0,0,'81.47.158.103',1400325013,'LOG_ADMIN_AUTH_FAIL',''),(2983,0,2,0,0,0,'81.47.158.103',1400325019,'LOG_ADMIN_AUTH_SUCCESS',''),(2984,1,6,11,28459,0,'79.19.217.43',1400411002,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Womens another name is high-heeled shoes\";}'),(2985,1,249,8,28458,0,'190.204.194.140',1400430505,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Real Vans Shoes\";}'),(2986,1,2,19,28473,0,'81.47.158.103',1400573477,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2987,3,2040,0,0,2040,'84.20.29.118',1400749403,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"pgfdz\";}'),(2988,1,2,6,27923,0,'81.47.158.103',1400775528,'LOG_MOVE','a:2:{i:0;s:20:\"WhatsNew / Novedades\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(2989,1,2,16,28192,0,'81.47.158.103',1400775635,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: New FTDN February/Febrero 2014 (FWH 14.02)\";}'),(2990,1,2598,3,28477,0,'213.82.134.66',1400915141,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Operation with a array\";}'),(2991,1,2598,3,28496,0,'213.82.134.66',1400918351,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: Please  help  : array error to save into a xbrowse\";}'),(2992,1,2598,3,28496,0,'213.82.134.66',1400918365,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Please  help  : array error to save into a xbrowse\";}'),(2993,1,2,19,28500,0,'81.47.158.103',1400935088,'LOG_MOVE','a:2:{i:0;s:20:\"All products support\";i:1;s:23:\"Off Topic / Otros temas\";}'),(2994,3,1333,0,0,1333,'189.33.242.215',1400939623,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Zeca Roque\";}'),(2995,1,36,6,26469,0,'181.163.220.252',1400993858,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Error linkando nueva versión\";}'),(2996,0,2,0,0,0,'81.47.158.103',1401292878,'LOG_ADMIN_AUTH_FAIL',''),(2997,0,2,0,0,0,'81.47.158.103',1401292886,'LOG_ADMIN_AUTH_SUCCESS',''),(2998,3,2,0,0,3052,'81.47.158.103',1401292953,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"jesusdelamora\";}'),(2999,0,2,0,0,0,'81.47.158.103',1401292953,'LOG_USER_USER_UPDATE','a:1:{i:0;s:13:\"jesusdelamora\";}'),(3000,1,2,6,28525,0,'81.47.158.103',1401334390,'LOG_POST_EDITED','a:2:{i:0;s:59:\"No muy profesonional,con lector de barras..pero funciona...\";i:1;s:5:\"ACC69\";}'),(3001,1,2598,3,28549,0,'151.44.242.78',1401550359,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: FWH programmers Turin and Piemonte area\";}'),(3002,1,1257,3,28569,0,'85.182.17.79',1401868047,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Merging a alpha-channel to JPG\";}'),(3003,1,2,6,15126,0,'81.32.154.227',1402062984,'LOG_POST_EDITED','a:2:{i:0;s:49:\"Re: como hago para hacerlas mas vistozas a la tw?\";i:1;s:17:\"Vladimir Zorrilla\";}'),(3004,0,2,0,0,0,'81.32.154.227',1402063030,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:3:\"Ela\";}'),(3005,1,2,0,0,0,'81.32.154.227',1402063030,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:3:\"Ela\";}'),(3006,0,2,0,0,0,'81.32.154.227',1402063263,'LOG_BAN_EXCLUDE_USER','a:2:{i:0;s:0:\"\";i:1;s:3:\"Ela\";}'),(3007,1,2,0,0,0,'81.32.154.227',1402063263,'LOG_BAN_EXCLUDE_USER','a:2:{i:0;s:0:\"\";i:1;s:3:\"Ela\";}'),(3008,1,2,6,15126,0,'81.32.154.227',1402063305,'LOG_REPORT_DELETED','a:1:{i:0;s:49:\"Re: como hago para hacerlas mas vistozas a la tw?\";}'),(3009,0,2,0,0,0,'81.32.154.227',1402142266,'LOG_ADMIN_AUTH_SUCCESS',''),(3010,3,2,0,0,3085,'81.32.154.227',1402142335,'LOG_USER_UPDATE_NAME','a:2:{i:0;s:3:\"Ela\";i:1;s:4:\"Elas\";}'),(3011,3,2,0,0,3085,'81.32.154.227',1402142335,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:3:\"Ela\";i:1;s:28:\"moniel_marina_24@hotmail.com\";i:2;s:17:\"noemail@email.com\";}'),(3012,3,2,0,0,3085,'81.32.154.227',1402142335,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"Ela\";}'),(3013,0,2,0,0,0,'81.32.154.227',1402142336,'LOG_USER_USER_UPDATE','a:1:{i:0;s:4:\"Elas\";}'),(3014,1,2,3,28581,0,'81.32.154.227',1402171715,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Index problem\";}'),(3015,1,2,3,28581,0,'81.32.154.227',1402171724,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Index problem\";}'),(3016,1,2,3,28581,0,'81.32.154.227',1402171781,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Index problem\";}'),(3017,1,2,3,28598,0,'81.32.154.227',1402213177,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"Syntax highlighting for Visual Studio source code\";}'),(3018,1,987,6,28401,0,'187.175.72.105',1402358870,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Ayuda Funciones a Bajo Nivel\";}'),(3019,1,52,6,28615,0,'201.213.158.226',1402387134,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Tdolphin tengo un problema...\";}'),(3020,1,2,19,28616,0,'81.32.154.227',1402388176,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(3021,1,2598,3,28604,0,'212.131.197.245',1402393034,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"INSERT FIELDS OF A DBF ON RFT FILE\";}'),(3022,1,868,3,28609,0,'124.123.15.71',1402417123,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: XHARBOUR , ADO , ANSI and OEM\";}'),(3023,1,2598,3,28617,0,'151.19.62.225',1402424053,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"For Daniel and all   :  Tcalex class\";}'),(3024,1,2598,3,25218,0,'212.131.197.245',1402483238,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Converte Time\";}'),(3025,1,2598,3,20732,0,'212.131.197.245',1402563964,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Outlook Calendar (prototype)\";}'),(3026,1,52,6,28645,0,'186.125.99.156',1402580614,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"¿Cómo saber el nombre de la constante de un valor?\";}'),(3027,1,2,17,28649,0,'81.32.154.227',1402597036,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(3028,1,34,3,28654,0,'68.5.48.88',1402612321,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Email failure - Win XP ?\";}'),(3029,1,34,3,28640,0,'68.5.48.88',1402612368,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: PDF error pops up again\";}'),(3030,1,47,3,28678,0,'124.122.247.177',1403160829,'LOG_DELETE_POST','a:1:{i:0;s:65:\"Re: where do I get an example xBrowse &amp; (TMySql or TDolphin)?\";}'),(3031,1,2,6,28706,0,'47.63.180.32',1403203219,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"Por qué debería migrar de xHarbour a Harbour ?\";}'),(3032,1,2,3,28704,0,'47.63.180.32',1403204095,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Why should I migrate from xHarbour to Harbour ?\";}'),(3033,0,2,0,0,0,'47.63.180.32',1403212738,'LOG_ADMIN_AUTH_SUCCESS',''),(3034,0,2,0,0,0,'47.63.180.32',1403212773,'LOG_ADMIN_AUTH_SUCCESS',''),(3035,0,2,0,0,0,'47.63.180.32',1403212794,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"Minoru\";}'),(3036,0,2,0,0,0,'47.63.180.32',1403212800,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"Minoru\";}'),(3037,0,2,0,0,0,'81.32.154.227',1403336964,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:12:\"anton.dzubya\";}'),(3038,1,2,0,0,0,'81.32.154.227',1403336964,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:12:\"anton.dzubya\";}'),(3039,1,2,8,24068,0,'2.138.238.110',1403432789,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: Un DBU con FiveMac\";i:1;s:9:\"mastintin\";}'),(3040,0,2,0,0,0,'2.138.238.110',1403457754,'LOG_ADMIN_AUTH_FAIL',''),(3041,0,2,0,0,0,'2.138.238.110',1403457760,'LOG_ADMIN_AUTH_SUCCESS',''),(3042,0,2,0,0,0,'2.138.238.110',1403457786,'LOG_ADMIN_AUTH_SUCCESS',''),(3043,0,2,0,0,0,'2.138.238.110',1403457802,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"unavoda\";}'),(3044,0,2,0,0,0,'2.138.238.110',1403457808,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"unavoda\";}'),(3045,0,2,0,0,0,'2.138.238.110',1403498178,'LOG_ADMIN_AUTH_SUCCESS',''),(3046,3,2,0,0,1726,'2.138.238.110',1403498211,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Dioni\";}'),(3047,0,2,0,0,0,'2.138.238.110',1403498212,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"Dioni\";}'),(3048,1,2,17,28723,0,'2.138.238.110',1403521696,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Detailed guide to use the Visual Studio 2013 IDE with FWH\";}'),(3049,3,2259,0,0,2259,'69.119.116.105',1403538359,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"mosh1\";}'),(3050,1,12,19,28738,0,'179.52.66.157',1403630883,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"OT: Estoy de luto\";}'),(3051,1,9,6,28725,0,'95.20.128.80',1403638721,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: MIGRACION DE XHARBOUR A HARBOUR (SOLUCIONADO)\";}'),(3052,1,9,6,28725,0,'95.20.128.80',1403638721,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: MIGRACION DE XHARBOUR A HARBOUR (SOLUCIONADO)\";}'),(3053,1,2,6,28760,0,'2.138.238.110',1403850035,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Mapa caracteres Harbour\";}'),(3054,3,1954,0,0,1954,'188.250.131.183',1403858943,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"LordJonas\";}'),(3055,1,52,6,28761,0,'190.137.64.242',1403871164,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"¿Cómo elimino una columna del xbrowse?\";}'),(3056,1,1257,3,28771,0,'85.182.16.204',1403973669,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"Any infos / usage of =&gt; MakeBkBrush(.. ?\";}'),(3057,1,1928,6,28775,0,'83.97.188.148',1404163622,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: bugs FW14.06\";}'),(3058,1,2,17,21695,0,'2.138.238.110',1404234103,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: How to build Harbour 32 &amp; 64 bits\";}'),(3059,1,2,6,28385,0,'2.138.238.110',1404273235,'LOG_LOCK','a:1:{i:0;s:25:\"FWH 64 oferta promocional\";}'),(3060,1,2,3,28790,0,'2.138.238.110',1404281593,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Timm (EasyReport) I just saw you connected pleas email me !!\";}'),(3061,1,2276,3,28793,0,'201.95.119.88',1404307349,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"FolderEx, When\";}'),(3062,1,2,3,28779,0,'47.63.180.32',1404311482,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Next target: EasyReport !!! :-)\";}'),(3063,1,303,3,28747,0,'68.7.204.149',1404314559,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Visual Studio with harbour\";}'),(3064,0,2,0,0,0,'2.138.238.110',1404367685,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"fernepayno\";}'),(3065,1,2,0,0,0,'2.138.238.110',1404367685,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"fernepayno\";}'),(3066,1,2,2,28803,0,'2.138.238.110',1404367698,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Ideal Phone Jammer to Create Quiet Condition\";}'),(3067,0,2,0,0,0,'2.138.238.110',1404403999,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"kpekfinz\";}'),(3068,1,2,0,0,0,'2.138.238.110',1404403999,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"kpekfinz\";}'),(3069,1,2,23,28806,0,'2.138.238.110',1404404015,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"www.businessadmiral.com aCXqsK\";}'),(3070,1,2,3,28804,0,'2.138.238.110',1404451874,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: hb_zip difference between harbour and xharbour\";}'),(3071,0,2,0,0,0,'47.63.180.32',1404599436,'LOG_ADMIN_AUTH_SUCCESS',''),(3072,0,2,0,0,0,'47.63.180.32',1404599733,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:8:\"ricardog\";}'),(3073,0,2,0,0,0,'47.63.180.32',1404599750,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:8:\"ricardog\";}'),(3074,0,2,0,0,0,'47.63.180.32',1404793474,'LOG_ADMIN_AUTH_SUCCESS',''),(3075,0,2,0,0,0,'47.63.180.32',1404793484,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:8:\"ricardog\";}'),(3076,1,1257,3,28813,0,'92.224.208.75',1404826145,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: TTitle on TFolderEx a problem, to be painted from RESOURCE ?\";}'),(3077,3,2299,0,0,2299,'189.26.81.132',1404929621,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"anacatacombs\";}'),(3078,1,2,3,28845,0,'90.174.3.172',1405152826,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: List of donations already received to buy EasyReport\";}'),(3079,3,139,0,0,139,'2.85.179.244',1405194620,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"dbSoft\";}'),(3080,0,2,0,0,0,'47.63.180.32',1405228673,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"fladimir\";}'),(3081,1,2,0,0,0,'47.63.180.32',1405228673,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"fladimir\";}'),(3082,1,2,3,28779,0,'47.63.180.32',1405228684,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Next target: EasyReport !!! :-)\";}'),(3083,1,2,3,28845,0,'47.63.180.32',1405234432,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: List of donations already received to buy EasyReport\";}'),(3084,1,2,3,28842,0,'47.63.180.32',1405404053,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:34:\"EasyReport: We have a deal !!! :-)\";}'),(3085,1,89,6,28783,0,'2.113.68.153',1405926618,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Bug harbour_3.2_32bits_MSVC2013_20142906\";}'),(3086,1,34,3,28900,0,'68.5.48.88',1405980154,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"How did we resolve this ?\";}'),(3087,1,1535,19,28896,0,'83.37.40.109',1406018425,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Microsoft to drop 18.000 employees\";}'),(3088,1,2,6,28880,0,'47.63.180.32',1406037688,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Progress Bars, no funciona correctamente (Solucionado)\";i:1;s:7:\"karinha\";}'),(3089,1,2,16,28774,0,'47.63.180.32',1406183586,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Harbour 3.4 (from Viktor) 2014-29-06\";i:1;s:4:\"AIDA\";}'),(3090,0,2,0,0,0,'47.63.180.32',1406229517,'LOG_ADMIN_AUTH_SUCCESS',''),(3091,3,2,0,0,2582,'47.63.180.32',1406229546,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"davidObarrio\";}'),(3092,0,2,0,0,0,'47.63.180.32',1406229546,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"davidObarrio\";}'),(3093,0,2,0,0,0,'90.174.3.169',1406643551,'LOG_ADMIN_AUTH_FAIL',''),(3094,0,2,0,0,0,'90.174.3.169',1406643558,'LOG_ADMIN_AUTH_FAIL',''),(3095,0,2,0,0,0,'90.174.3.169',1406643570,'LOG_ADMIN_AUTH_FAIL',''),(3096,0,2,0,0,0,'90.174.3.169',1406643578,'LOG_ADMIN_AUTH_FAIL',''),(3097,0,2,0,0,0,'90.174.3.169',1406643649,'LOG_ADMIN_AUTH_FAIL',''),(3098,0,2,0,0,0,'90.174.3.169',1406643669,'LOG_ADMIN_AUTH_SUCCESS',''),(3099,0,2,0,0,0,'90.174.3.169',1406643748,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"Male\";}'),(3100,0,2,0,0,0,'90.174.3.169',1406643757,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"Male\";}'),(3101,1,362,6,28919,0,'179.183.2.224',1406822030,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Makefile para Borland\";}'),(3102,1,2,3,28968,0,'47.63.180.32',1406954448,'LOG_POST_EDITED','a:2:{i:0;s:29:\"EDICION TXBROWSE 10 LINEAS...\";i:1;s:5:\"ACC69\";}'),(3103,1,2,3,28968,0,'47.63.180.32',1406954522,'LOG_POST_EDITED','a:2:{i:0;s:29:\"EDICION TXBROWSE 10 LINEAS...\";i:1;s:5:\"ACC69\";}'),(3104,1,2,3,28968,0,'47.63.180.32',1406954545,'LOG_POST_EDITED','a:2:{i:0;s:29:\"EDICION TXBROWSE 10 LINEAS...\";i:1;s:5:\"ACC69\";}'),(3105,3,2561,0,0,2561,'78.21.233.157',1406987005,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:15:\"Franklin Demont\";i:1;s:22:\"frankdemont@scarlet.be\";i:2;s:24:\"franklindemont@gmail.com\";}'),(3106,3,227,0,0,227,'201.52.241.118',1407148472,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ctoas\";}'),(3107,0,2,0,0,0,'47.63.180.32',1407220780,'LOG_ADMIN_AUTH_SUCCESS',''),(3108,0,2,0,0,0,'47.63.180.32',1407221133,'LOG_FORUM_ADD','a:1:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3109,0,2,0,0,0,'47.63.180.32',1407221186,'LOG_FORUM_EDIT','a:1:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3110,0,2,0,0,0,'47.63.180.32',1407221210,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";i:1;s:31:\"FiveLinux / FiveDroid (Android)\";}'),(3111,0,2,0,0,0,'47.63.180.32',1407221212,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";i:1;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";}'),(3112,0,2,0,0,0,'47.63.180.32',1407221215,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";i:1;s:21:\"FiveWin for Pocket PC\";}'),(3113,0,2,0,0,0,'47.63.180.32',1407221265,'LOG_FORUM_ADD','a:1:{i:0;s:36:\"EasyReport, EasyDialog y EasyPreview\";}'),(3114,0,2,0,0,0,'47.63.180.32',1407221286,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:36:\"EasyReport, EasyDialog y EasyPreview\";i:1;s:31:\"FiveLinux / FiveDroid (Android)\";}'),(3115,0,2,0,0,0,'47.63.180.32',1407221288,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:31:\"FiveLinux / FiveDroid (Android)\";i:1;s:36:\"EasyReport, EasyDialog y EasyPreview\";}'),(3116,0,2,0,0,0,'47.63.180.32',1407221292,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:36:\"EasyReport, EasyDialog y EasyPreview\";i:1;s:31:\"FiveLinux / FiveDroid (Android)\";}'),(3117,0,2,0,0,0,'47.63.180.32',1407221294,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:36:\"EasyReport, EasyDialog y EasyPreview\";i:1;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";}'),(3118,0,2,0,0,0,'47.63.180.32',1407221297,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:36:\"EasyReport, EasyDialog y EasyPreview\";i:1;s:22:\"FiveWin para Pocket PC\";}'),(3119,0,2,0,0,0,'47.63.180.32',1407221369,'LOG_FORUM_EDIT','a:1:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3120,0,2,0,0,0,'47.63.180.32',1407221423,'LOG_FORUM_EDIT','a:1:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3121,0,2,0,0,0,'47.63.180.32',1407221561,'LOG_FORUM_EDIT','a:1:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3122,0,2,0,0,0,'47.63.180.32',1407221615,'LOG_FORUM_EDIT','a:1:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3123,1,891,3,28968,0,'187.191.10.99',1407336531,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: EDICION TXBROWSE 10 LINEAS...(Cerra\";}'),(3124,1,2,3,28968,0,'47.63.180.32',1407380167,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: EDICION TXBROWSE 10 LINEAS...\";i:1;s:5:\"ACC69\";}'),(3125,1,2,6,28967,0,'47.63.180.32',1407380216,'LOG_POST_EDITED','a:2:{i:0;s:55:\"Re: EDICION TXBROWSE 10 LINEAS...(Cerrado Sin solucion)\";i:1;s:5:\"ACC69\";}'),(3126,1,2,6,28967,0,'47.63.180.32',1407380251,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: EDICION TXBROWSE 10 LINEAS..(Cerrado Sin solucion)\";i:1;s:5:\"ACC69\";}'),(3127,1,2,3,28968,0,'47.63.180.32',1407380310,'LOG_POST_EDITED','a:2:{i:0;s:50:\"EDICION TXBROWSE 10 LINEAS..(Cerrado sin solucion)\";i:1;s:5:\"ACC69\";}'),(3128,0,2,0,0,0,'47.63.180.32',1407397353,'LOG_ADMIN_AUTH_SUCCESS',''),(3129,0,2,0,0,0,'47.63.180.32',1407397436,'LOG_FORUM_EDIT','a:1:{i:0;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3130,0,2,0,0,0,'47.63.180.32',1407397463,'LOG_FORUM_EDIT','a:1:{i:0;s:36:\"EasyReport, EasyDialog y EasyPreview\";}'),(3131,1,110,16,28978,0,'200.85.175.26',1407429417,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: New FTDN (July) 2014 (FWH 14.07)\";}'),(3132,1,1257,3,29033,0,'78.50.20.97',1407685561,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"xBrowse protect a column to be selected ( marquestyle 3 ) ?\";}'),(3133,1,1313,3,29047,0,'200.146.119.59',1407864734,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"DOWNLOAD the latest version of TDOLPHIN\";}'),(3134,1,1313,6,29097,0,'177.156.64.199',1408495733,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"tdolphin - definir database padrão\";}'),(3135,1,2,6,29091,0,'189.133.234.190',1408498133,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Error de pintado Treeview\";}'),(3136,1,2,6,29080,0,'189.132.12.107',1408668244,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Error el Activex\";i:1;s:10:\"J. Ernesto\";}'),(3137,1,2,31,29090,0,'189.133.238.12',1408679160,'LOG_POST_EDITED','a:2:{i:0;s:60:\"Los Says que muestran los colores no funcionan (solucionado)\";i:1;s:9:\"mastintin\";}'),(3138,1,422,6,22768,0,'41.79.124.12',1408988249,'LOG_BUMP_TOPIC','a:1:{i:0;s:29:\"Usando XML con TXmlDocument()\";}'),(3139,1,41,3,29136,0,'200.87.163.74',1409067230,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Inestabilidad de la Aplicacion\";}'),(3140,1,1981,12,29139,0,'200.68.62.252',1409076107,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Exportar variable de C a clipper\";}'),(3141,1,1313,6,29076,0,'200.146.119.59',1409156597,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: fwh1407R2 - xbrowse possível Bug\";}'),(3142,1,2582,6,29148,0,'200.45.184.6',1409280297,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Web Service - Factura Electronica\";}'),(3143,1,2582,6,29148,0,'200.45.184.6',1409280324,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Web Service - Factura Electronica\";}'),(3144,1,52,6,29162,0,'186.109.176.229',1409327077,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Como hago para que el contenido de una celda ocupe varias l?\";}'),(3145,1,110,6,29165,0,'200.85.175.26',1409338222,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: TSButton - Harbour Parameters\";}'),(3146,0,2,0,0,0,'47.63.180.32',1409466684,'LOG_ADMIN_AUTH_SUCCESS',''),(3147,0,2,0,0,0,'47.63.180.32',1409466700,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"william1888\";}'),(3148,0,2,0,0,0,'47.63.180.32',1409466705,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"william1888\";}'),(3149,3,1782,0,0,1782,'189.189.42.46',1409600157,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"Male\";}'),(3150,3,490,0,0,490,'46.234.144.241',1409994158,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"jmartial\";i:1;s:0:\"\";i:2;s:23:\"buzonjmartial@gmail.com\";}'),(3151,1,1077,3,29198,0,'92.53.49.25',1410110955,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: XBROWSE QUESTIONS ?\";}'),(3152,0,2,0,0,0,'149.126.45.148',1410192900,'LOG_ADMIN_AUTH_SUCCESS',''),(3153,0,2,0,0,0,'149.126.45.148',1410192944,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"jbudil\";}'),(3154,0,2,0,0,0,'149.126.45.148',1410192966,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"jbudil\";}'),(3155,3,184,0,0,184,'186.94.186.90',1410285031,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Simon\";}'),(3156,3,184,0,0,184,'186.94.186.90',1410285031,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"Simon\";i:1;s:25:\"multisistemas@hotmail.com\";i:2;s:23:\"simonbarriosc@gmail.com\";}'),(3157,1,2598,6,29223,0,'212.131.197.246',1410335866,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Nueva web e imagen corporativa de FivetechSoft\";}'),(3158,1,1077,3,29198,0,'80.77.147.50',1410417247,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: XBROWSE QUESTIONS ?\";}'),(3159,0,2,0,0,0,'213.143.50.213',1410424872,'LOG_ADMIN_AUTH_SUCCESS',''),(3160,3,2,0,0,1984,'213.143.50.213',1410425314,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Uwe.Diemer\";}'),(3161,0,2,0,0,0,'213.143.50.213',1410425314,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Uwe.Diemer\";}'),(3162,0,2,0,0,0,'149.126.45.148',1410471484,'LOG_ADMIN_AUTH_SUCCESS',''),(3163,0,2,0,0,0,'149.126.45.148',1410471791,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"capiro01\";}'),(3164,0,2,0,0,0,'149.126.45.148',1410471819,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"capiro01\";}'),(3165,1,1077,3,29198,0,'80.77.147.50',1410528878,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: XBROWSE QUESTIONS ?\";}'),(3166,3,46,0,0,46,'41.79.124.12',1410933655,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"RenOmaS\";}'),(3167,1,1533,6,29265,0,'200.87.49.125',1411059032,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Daniel.. error en ::refresh()\";}'),(3168,1,2342,18,29283,0,'87.216.164.51',1411069869,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: TTreeView\";}'),(3169,0,2,0,0,0,'213.143.51.121',1411363930,'LOG_ADMIN_AUTH_SUCCESS',''),(3170,0,2,0,0,0,'213.143.51.121',1411363968,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"ameneses\";}'),(3171,0,2,0,0,0,'213.143.51.121',1411363976,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"ameneses\";}'),(3172,1,1257,3,29290,0,'85.182.19.48',1411377916,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Problem with RADIO control\";}'),(3173,1,52,6,29319,0,'200.82.109.45',1411475788,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Mysql embebido. Se puede indicar la carpeta?\";}'),(3174,1,1928,31,29070,0,'88.12.70.169',1411542584,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: La nueva apariencia de EasyReport\";}'),(3175,1,362,6,29341,0,'177.206.109.116',1411661230,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: ¿Cuál es la correcta definición para MENUITEM?\";}'),(3176,1,233,4,29344,0,'175.142.135.232',1411720910,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"How to specify color for background when printing?\";}'),(3177,1,2859,6,29350,0,'186.53.103.120',1411930928,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"ads error local\";}'),(3178,1,1313,6,24187,0,'200.146.119.59',1412858974,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Consulta sobre TDOLPHIN - Method Seek\";}'),(3179,1,1313,6,24187,0,'200.146.119.59',1412858984,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Consulta sobre TDOLPHIN - Method Seek\";}'),(3180,1,1313,6,29076,0,'200.146.119.59',1412883277,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Mr. Rao fwh1407R2 - xbrowse possível Bug\";}'),(3181,1,1313,3,29412,0,'177.156.199.73',1413169545,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Fivewin App Socket + Android\";}'),(3182,1,1313,6,29413,0,'177.156.199.73',1413169565,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Socket FIVEWIN + ANDROID\";}'),(3183,1,2598,3,29420,0,'212.131.197.246',1413278519,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Problem with Hour into a xbrowse\";}'),(3184,1,52,6,29427,0,'190.138.114.139',1413285702,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Como se si un objeto fue creado?\";}'),(3185,3,159,0,0,159,'210.244.75.88',1413382886,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ssbbs\";}'),(3186,1,960,6,29444,0,'84.122.229.56',1413575784,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Minimizar ventana\";}'),(3187,0,2,0,0,0,'47.63.180.82',1413788917,'LOG_ADMIN_AUTH_SUCCESS',''),(3188,3,2,0,0,3143,'47.63.180.82',1413789090,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Buran48\";}'),(3189,0,2,0,0,0,'47.63.180.82',1413789090,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"Buran48\";}'),(3190,0,2,0,0,0,'47.63.180.82',1413789122,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"Buran48\";}'),(3191,3,2,0,0,3143,'47.63.180.82',1413789122,'LOG_USER_ACTIVE_USER',''),(3192,1,1880,6,29445,0,'190.16.183.135',1413808339,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Ir a una fila en un Query\";}'),(3193,1,1533,6,29468,0,'200.87.49.125',1413916796,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Busqueda con QSeek de TDolphin\";}'),(3194,0,2,0,0,0,'47.63.180.82',1414031947,'LOG_ADMIN_AUTH_SUCCESS',''),(3195,3,2,0,0,1146,'47.63.180.82',1414031984,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MOISES\";}'),(3196,0,2,0,0,0,'47.63.180.82',1414031984,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"MOISES\";}'),(3197,0,2,0,0,0,'47.63.180.82',1414031994,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"MOISES\";}'),(3198,3,2,0,0,1146,'47.63.180.82',1414031994,'LOG_USER_ACTIVE_USER',''),(3199,1,35,3,29462,0,'75.183.147.182',1414092599,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 14.09\";}'),(3200,1,2,19,29487,0,'81.35.42.159',1414101116,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Toptrial school\";}'),(3201,1,1928,31,29505,0,'83.34.134.84',1414494174,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: desarollo en EasyReport\";}'),(3202,1,2598,3,29501,0,'151.44.64.37',1414690739,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: XBROWSE RecordSelector &amp; Record Number\";}'),(3203,1,1330,1,29336,0,'79.44.104.75',1414863378,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"exclusive dbf\";}'),(3204,1,1535,6,23638,0,'79.157.65.178',1415002796,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: En CLase Timprime/Utilprn, como uso SetLandScape ?\";}'),(3205,1,1178,6,18785,0,'186.146.135.11',1415134130,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevos controles para FWH\";}'),(3206,1,2598,3,29528,0,'151.44.44.109',1415219139,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"To Mr Nages : making a small invoice\";}'),(3207,1,2598,3,29568,0,'212.131.197.246',1415445998,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"mGet : setpos error ( bug?)\";}'),(3208,1,110,6,26381,0,'200.85.175.26',1415654781,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: MsgLogo  con jpg y png desde recursos\";}'),(3209,1,960,3,29589,0,'217.12.24.135',1415693233,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"diseños con Preview en tiempo de ejecucion\";}'),(3210,1,2,17,29592,0,'47.63.180.82',1415698258,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(3211,1,2,17,29591,0,'47.63.180.82',1415698280,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(3212,1,2598,20,25567,0,'212.131.197.246',1415705480,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Aiuto : situazione disperata !!!!\";}'),(3213,3,362,0,0,362,'191.248.146.236',1415818828,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"karinha\";}'),(3214,1,2598,3,29606,0,'212.131.197.246',1415866119,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"change size of a Tfolder on RunTime\";}'),(3215,1,6,18,29619,0,'79.26.226.36',1416045405,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"A reporter asked whether he might be a s\";}'),(3216,1,1814,6,29616,0,'181.75.2.54',1416089144,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: colorear hasta el final de una columna del xbrowse\";}'),(3217,3,936,0,0,936,'186.151.60.113',1416139838,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(3218,1,180,6,26133,0,'83.60.222.187',1416160014,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: PRINT oPrn PDF (Solucionado)\";}'),(3219,1,180,6,26133,0,'83.60.222.187',1416160027,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: PRINT oPrn PDF\";}'),(3220,3,180,0,0,180,'83.60.222.187',1416160463,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:13:\"Manuel Aranda\";i:1;s:17:\"mareli@tiscali.es\";i:2;s:28:\"arandarosales@telefonica.net\";}'),(3221,1,2598,3,29628,0,'212.131.197.246',1416221085,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Xbrowse oTree Show Bad\";}'),(3222,1,2598,3,29648,0,'212.131.197.246',1416485049,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Modify a record from oTree made with Xbrowse\";}'),(3223,1,2598,3,29648,0,'212.131.197.246',1416485062,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Modify a record from oTree made with Xbrowse\";}'),(3224,1,2598,3,29652,0,'212.131.197.246',1416570366,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"close an app and run again\";}'),(3225,1,1077,3,29629,0,'92.53.49.25',1416647819,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: XBROWSE exclude or control ARROW keys in edit mode\";}'),(3226,1,1077,3,29629,0,'92.53.49.25',1416702616,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: XBROWSE exclude or control ARROW keys in edit mode\";}'),(3227,1,1077,3,29629,0,'92.53.49.25',1416766750,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: XBROWSE exclude or control ARROW keys in edit mode\";}'),(3228,1,2598,3,29674,0,'212.131.197.246',1416832975,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"To ADutheil\";}'),(3229,1,2598,3,29678,0,'212.131.197.246',1416914376,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Re: Key code\";}'),(3230,1,2598,3,29678,0,'212.131.197.246',1416914385,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Re: Key code\";}'),(3231,1,2598,3,29678,0,'212.131.197.246',1416914394,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Re: Key code\";}'),(3232,1,177,6,29697,0,'82.130.208.82',1417033436,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Existe Libreria Nanfor en (x)Harbour\";}'),(3233,3,116,0,0,116,'177.158.30.102',1417045765,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Joao Cezar\";}'),(3234,3,116,0,0,116,'177.158.30.102',1417045765,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"Joao Cezar\";i:1;s:25:\"joao.cezar@cultura.com.br\";i:2;s:20:\"joaojr.gyn@gmail.com\";}'),(3235,1,396,6,29243,0,'200.44.227.118',1417097453,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: tDolphin  ::Refresh() no funciona\";}'),(3236,1,2598,31,29751,0,'151.19.251.70',1417630072,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: To All help  to compile last Ereport repository\";}'),(3237,1,110,6,29579,0,'200.85.175.26',1417630969,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Compilando con Harbour (intentando :-()\";}'),(3238,1,1535,6,29762,0,'83.38.59.241',1417727892,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Definiendo un timeout para FTP\";}'),(3239,1,110,6,29769,0,'200.85.175.26',1417817836,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: xbrwose tdolphin y fillarray\";}'),(3240,3,415,0,0,415,'186.81.160.47',1418063321,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:12:\"MauroArevalo\";i:1;s:19:\"hymplus@hotmail.com\";i:2;s:18:\"hymplusn@gmail.com\";}'),(3241,1,2598,3,29802,0,'212.131.197.246',1418288949,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"To Nages: Xbrowse and Image gif\";}'),(3242,1,2598,3,29812,0,'151.46.180.185',1418322452,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Tpanel click\";}'),(3243,1,2598,3,29817,0,'212.131.197.246',1418395110,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Fwh now for the music...\";}'),(3244,1,86,3,29818,0,'84.193.198.207',1418401062,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"TRY ... CATCH ... END\";}'),(3245,1,6,3,29788,0,'79.27.233.66',1418465218,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: xHarbour vs Harbour\";}'),(3246,1,303,3,29806,0,'68.7.204.149',1418496072,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Migrating to Harbour\";}'),(3247,1,2,3,29727,0,'47.63.180.82',1418548591,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: bug-FWH64(build64.bat)\";i:1;s:15:\"richard-service\";}'),(3248,0,2,0,0,0,'47.63.180.82',1418668760,'LOG_ADMIN_AUTH_SUCCESS',''),(3249,0,2,0,0,0,'47.63.180.82',1418668782,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"geo_sts\";}'),(3250,0,2,0,0,0,'47.63.180.82',1418668787,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"geo_sts\";}'),(3251,1,2,3,29806,0,'47.63.180.82',1418714972,'LOG_POST_EDITED','a:2:{i:0;s:24:\"Re: Migrating to Harbour\";i:1;s:10:\"James Bott\";}'),(3252,1,2,17,13098,0,'47.63.180.82',1418765286,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Borland C setup files\";}'),(3253,1,2,17,13098,0,'47.63.180.82',1418765322,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Borland C setup files\";}'),(3254,1,1257,3,29832,0,'78.50.21.67',1418942679,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: New Rating Class\";}'),(3255,1,2598,3,29832,0,'212.131.197.246',1419065620,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: New Rating Class\";}'),(3256,1,1875,6,29857,0,'190.147.205.186',1419280938,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 14.12\";}'),(3257,0,2,0,0,0,'47.63.180.82',1419402313,'LOG_ADMIN_AUTH_SUCCESS',''),(3258,3,2,0,0,2,'47.63.180.82',1419402528,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(3259,0,2,0,0,0,'47.63.180.82',1419402528,'LOG_USER_USER_UPDATE','a:1:{i:0;s:15:\"Antonio Linares\";}'),(3260,1,2598,3,29873,0,'151.34.173.51',1419540214,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Insert  Images into a class\";}'),(3261,1,1313,6,29405,0,'189.115.67.214',1419713559,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Para Carlos Vargas - TDOLPHIN SEEK\";}'),(3262,1,6,3,29852,0,'79.27.233.66',1419775814,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: TGRAPH Technical Question\";}'),(3263,1,2598,3,29853,0,'151.34.74.133',1419806381,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Xbrowse class technical question\";}'),(3264,1,2598,3,29814,0,'94.167.112.81',1420067444,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: click a area of Tpanel control\";}'),(3265,1,2598,3,29814,0,'94.167.112.81',1420071519,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: click a area of Tpanel control ( Creating a Piano)\";}'),(3266,1,1640,3,29901,0,'186.27.139.228',1420079033,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Happy new year\";}'),(3267,1,2598,3,29910,0,'94.160.207.83',1420502137,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: To  Nages : xbrowse changed\";}'),(3268,1,2598,3,29910,0,'94.160.207.83',1420502149,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: To  Nages : xbrowse changed\";}'),(3269,1,439,6,29928,0,'200.108.196.221',1420631634,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Ayuda para pasar de FWH a FWH64\";}'),(3270,1,1257,3,29765,0,'92.231.5.107',1420753301,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Copy or paste one record\";}'),(3271,1,1077,3,29938,0,'92.53.49.25',1420764416,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"CLASS TTxtFile Missing method :End()\";}'),(3272,1,1257,3,29765,0,'92.231.4.209',1420798162,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Copy or paste one record\";}'),(3273,1,868,3,29806,0,'124.123.15.71',1420820256,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Migrating to Harbour\";}'),(3274,1,2,6,29950,0,'47.63.180.82',1420886485,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Presentando fivedit de FiveTech\";}'),(3275,1,2,3,29949,0,'47.63.180.82',1420886494,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Introducing FiveTech\'s fivedit\";}'),(3276,1,1178,6,29953,0,'186.146.134.243',1420936370,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Como evito que cargue fwdbg.dll\";}'),(3277,1,1178,6,29955,0,'186.146.135.11',1420980336,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Ayuda con Errores con Harbour\";}'),(3278,1,2,3,29960,0,'88.23.114.102',1421082506,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Acción en un bitmap\";}'),(3279,1,2598,3,29963,0,'212.131.197.246',1421139102,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"oget...messsage\";}'),(3280,1,2598,3,29973,0,'212.131.197.246',1421228358,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"help for a string\";}'),(3281,1,2598,3,29971,0,'212.131.197.246',1421231376,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"big array to field\";}'),(3282,1,2598,3,29976,0,'212.131.197.246',1421238274,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"random record from an array\";}'),(3283,1,1178,6,29962,0,'186.144.47.51',1421367422,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Duda Al Compilar Con Harbour\";}'),(3284,1,177,3,29991,0,'194.30.62.6',1421395087,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Introducing FiveTech\'s fivedit\";}'),(3285,1,303,3,29991,0,'68.7.204.149',1421436244,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Introducing FiveTech\'s fivedit\";}'),(3286,1,2,19,30015,0,'79.155.245.147',1421677821,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(3287,1,1928,6,30017,0,'83.41.41.88',1421690592,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: EXCESS RELEASE OF FONT\";}'),(3288,1,2598,3,30002,0,'151.19.171.44',1421696766,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Sudoku with fwh\";}'),(3289,1,1257,3,30038,0,'92.224.211.210',1422017156,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"How to protect a xbrowse-col, to be selected ( NO focus ) ?\";}'),(3290,3,1322,0,0,1322,'201.86.244.64',1422265733,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"sygecom\";}'),(3291,1,610,3,29987,0,'177.170.242.117',1422318128,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: RDDADS.lib for Harbour and Borland\";}'),(3292,1,110,6,30047,0,'200.85.175.26',1422396765,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Consulta sobre tDolphin\";}'),(3293,3,870,0,0,870,'200.198.58.39',1422537367,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"ip_ram\";}'),(3294,1,878,3,30079,0,'190.226.220.164',1422651633,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"SetGroupHeader de xbrowse(), como alinear texto?\";}'),(3295,1,303,3,30048,0,'68.7.204.149',1422655063,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: use FLOCK()\";}'),(3296,1,2,17,21695,0,'79.155.245.147',1422953594,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: How to build Harbour 32 &amp; 64 bits\";}'),(3297,1,913,6,29992,0,'187.234.56.238',1423020210,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Presentando fivedit de FiveTech\";}'),(3298,0,2,0,0,0,'188.84.79.128',1423110831,'LOG_ADMIN_AUTH_FAIL',''),(3299,0,2,0,0,0,'188.84.79.128',1423110839,'LOG_ADMIN_AUTH_SUCCESS',''),(3300,3,2,0,0,293,'188.84.79.128',1423110880,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"jufer\";}'),(3301,0,2,0,0,0,'188.84.79.128',1423110880,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"jufer\";}'),(3302,1,86,3,30113,0,'84.193.198.207',1423312741,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: OLE and fonts used in Outlook\";}'),(3303,0,2,0,0,0,'188.84.79.128',1423372093,'LOG_ADMIN_AUTH_FAIL',''),(3304,0,2,0,0,0,'188.84.79.128',1423372099,'LOG_ADMIN_AUTH_SUCCESS',''),(3305,0,2,0,0,0,'188.84.79.128',1423372125,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:12:\"robertoafila\";}'),(3306,0,2,0,0,0,'188.84.79.128',1423372130,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:12:\"robertoafila\";}'),(3307,1,35,3,30154,0,'75.183.147.182',1423696486,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"xBrowse edit_get_button icons disapear on network 1501\";}'),(3308,1,1257,3,30160,0,'78.50.22.34',1423757617,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Checkbox and Radio- styles\";}'),(3309,1,303,3,30157,0,'68.7.204.149',1423859065,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: To Mr Rao: Problem with old array\";}'),(3310,1,1077,3,30140,0,'92.53.49.25',1424110030,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Documents ARCHIVE program\";}'),(3311,3,3233,0,0,3233,'151.16.211.104',1424162766,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"AntoninoP\";i:1;s:23:\"don_perricone@libero.it\";i:2;s:26:\"perricone@tecnologica.info\";}'),(3312,0,2,0,0,0,'89.248.140.12',1424244281,'LOG_ADMIN_AUTH_SUCCESS',''),(3313,3,1561,0,0,1561,'186.213.93.70',1424258264,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"tiaofw\";}'),(3314,0,2,0,0,0,'86.25.161.154',1424265612,'LOG_ADMIN_AUTH_SUCCESS',''),(3315,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_ADD','a:1:{i:0;s:17:\"Tapatalk Settings\";}'),(3316,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_ADD','a:1:{i:0;s:16:\"Tapatalk General\";}'),(3317,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_REMOVED','a:1:{i:0;s:16:\"Tapatalk General\";}'),(3318,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_REMOVED','a:1:{i:0;s:16:\"Tapatalk General\";}'),(3319,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_ADD','a:1:{i:0;s:16:\"Tapatalk General\";}'),(3320,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_REMOVED','a:1:{i:0;s:16:\"Tapatalk General\";}'),(3321,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_REMOVED','a:1:{i:0;s:16:\"Tapatalk General\";}'),(3322,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_ADD','a:1:{i:0;s:16:\"Tapatalk General\";}'),(3323,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_ADD','a:1:{i:0;s:20:\"Tapatalk BYO Options\";}'),(3324,0,2,0,0,0,'86.25.161.154',1424266036,'LOG_MODULE_ADD','a:1:{i:0;s:30:\"Tapatalk - In App Registration\";}'),(3325,0,2,0,0,0,'86.25.161.154',1424266145,'LOG_CONFIG_MOBIQUO',''),(3326,3,167,0,0,167,'192.119.208.34',1424273676,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"don lowenstein\";}'),(3327,0,2,0,0,0,'188.84.79.128',1424316756,'LOG_ADMIN_AUTH_SUCCESS',''),(3328,1,2,6,30218,0,'188.84.79.128',1424504799,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:53:\"FiveTouch: Un nuevo producto para Android de FiveTech\";}'),(3329,1,2,3,30217,0,'188.84.79.128',1424504816,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:50:\"FiveTouch: a new product for Android from FiveTech\";}'),(3330,3,2909,0,0,2909,'87.164.148.172',1424689547,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:15:\"Jeanette Panitz\";i:1;s:22:\"panitz@cto-software.de\";i:2;s:31:\"delete-jeanette@cto-software.de\";}'),(3331,3,870,0,0,870,'200.198.58.39',1424701907,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"ip_ram\";}'),(3332,1,110,3,30232,0,'200.85.175.26',1424810656,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Unresolved external in new FWH 15.02\";}'),(3333,1,868,3,30219,0,'124.123.15.71',1424826918,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: help for xbrowse tooltip\";}'),(3334,1,1077,3,30223,0,'80.77.147.50',1424939546,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: RIBBONBAR GROUP Resize ?\";}'),(3335,1,3233,3,30253,0,'95.240.63.153',1424941710,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Report column total different\";}'),(3336,1,868,3,30235,0,'124.123.15.71',1424993700,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: BtnBmp problems with 1502\";}'),(3337,0,2,0,0,0,'188.84.79.128',1425165135,'LOG_ADMIN_AUTH_SUCCESS',''),(3338,0,2,0,0,0,'188.84.79.128',1425165151,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"mamp\";}'),(3339,0,2,0,0,0,'188.84.79.128',1425165156,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"mamp\";}'),(3340,1,868,3,30223,0,'124.123.15.71',1425245726,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: RIBBONBAR GROUP Resize ?\";}'),(3341,1,3182,3,30278,0,'41.243.11.2',1425335327,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"LISTBOX vs XBROWSE\";}'),(3342,1,2,16,30286,0,'81.184.148.142',1425444700,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:41:\"FiveTouch Alpha public time limited demos\";}'),(3343,1,2,16,30287,0,'81.184.148.142',1425444725,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:57:\"Demos limitadas en tiempo de versiones alpha de FiveTouch\";}'),(3344,1,2598,3,30285,0,'212.131.197.246',1425463334,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: TO Nages - Also xbrowse dragdrop\";}'),(3345,1,2598,3,30285,0,'212.131.197.246',1425463343,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"TO Nages - Also xbrowse dragdrop\";}'),(3346,1,41,3,30282,0,'200.87.163.74',1425505842,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: FW App sending email but pc has no email client\";}'),(3347,1,448,3,30266,0,'95.95.164.107',1425552460,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3348,0,2,0,0,0,'83.46.190.19',1425597508,'LOG_ADMIN_AUTH_SUCCESS',''),(3349,0,2,0,0,0,'83.46.190.19',1425597555,'LOG_FORUM_ADD','a:1:{i:0;s:9:\"FiveTouch\";}'),(3350,0,2,0,0,0,'83.46.190.19',1425597567,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:31:\"FiveLinux / FiveDroid (Android)\";}'),(3351,0,2,0,0,0,'83.46.190.19',1425597570,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";}'),(3352,0,2,0,0,0,'83.46.190.19',1425597573,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:21:\"FiveWin for Pocket PC\";}'),(3353,0,2,0,0,0,'83.46.190.19',1425597575,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:21:\"FiveWin for Pocket PC\";i:1;s:9:\"FiveTouch\";}'),(3354,0,2,0,0,0,'83.46.190.19',1425597584,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:21:\"FiveWin for Pocket PC\";}'),(3355,0,2,0,0,0,'83.46.190.19',1425597588,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";i:1;s:21:\"FiveWin for Pocket PC\";}'),(3356,0,2,0,0,0,'83.46.190.19',1425597594,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:31:\"FiveLinux / FiveDroid (Android)\";i:1;s:21:\"FiveWin for Pocket PC\";}'),(3357,0,2,0,0,0,'83.46.190.19',1425597601,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:38:\"EasyReport, EasyDialog and EasyPreview\";}'),(3358,0,2,0,0,0,'83.46.190.19',1425597620,'LOG_FORUM_ADD','a:1:{i:0;s:9:\"FiveTouch\";}'),(3359,0,2,0,0,0,'83.46.190.19',1425597627,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:31:\"FiveLinux / FiveDroid (Android)\";}'),(3360,0,2,0,0,0,'83.46.190.19',1425597630,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";}'),(3361,0,2,0,0,0,'83.46.190.19',1425597632,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:22:\"FiveWin para Pocket PC\";}'),(3362,0,2,0,0,0,'83.46.190.19',1425597636,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:9:\"FiveTouch\";i:1;s:36:\"EasyReport, EasyDialog y EasyPreview\";}'),(3363,0,2,0,0,0,'83.46.190.19',1425597642,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:34:\"FiveMac / FivePhone (iPhone, iPad)\";i:1;s:22:\"FiveWin para Pocket PC\";}'),(3364,0,2,0,0,0,'83.46.190.19',1425597645,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:31:\"FiveLinux / FiveDroid (Android)\";i:1;s:22:\"FiveWin para Pocket PC\";}'),(3365,0,2,0,0,0,'83.46.190.19',1425598331,'LOG_FORUM_EDIT','a:1:{i:0;s:9:\"FiveTouch\";}'),(3366,0,2,0,0,0,'83.46.190.19',1425598363,'LOG_FORUM_EDIT','a:1:{i:0;s:9:\"FiveTouch\";}'),(3367,1,1257,3,30324,0,'85.182.16.68',1425760388,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"METROBUTTON-tooltips =&gt; SETBALLOON( .T. ) ???\";}'),(3368,3,3242,0,0,3242,'177.12.225.66',1425765569,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"mamp\";}'),(3369,1,2,3,29972,0,'188.84.79.128',1426070790,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:21:\"Enrico Maria Giordano\";}'),(3370,1,1178,6,30363,0,'186.146.134.243',1426421534,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Ayuda con Sentencia SQL con Mysql\";}'),(3371,1,3,3,30380,0,'90.50.108.39',1426543808,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"scrollbar width larger\";}'),(3372,1,3248,3,30390,0,'186.226.222.33',1426565560,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Haga clic en el BITMAP no obedece WHEN GET\";}'),(3373,1,3233,3,30392,0,'95.240.63.153',1426584609,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"TBtnBmp behavior\";}'),(3374,1,409,6,30296,0,'191.113.144.102',1426596419,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Pasar .TXT a EXCEL\";}'),(3375,1,289,32,30307,0,'5.156.47.214',1426806180,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Welcome to FiveTouch tech support forum\";}'),(3376,1,2598,3,30371,0,'212.131.197.246',1426854614,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Print an array\";}'),(3377,0,2,0,0,0,'188.84.79.128',1427063383,'LOG_ADMIN_AUTH_SUCCESS',''),(3378,1,41,3,30456,0,'190.107.35.140',1427424275,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: XBROWSE remove or show header sort bitmap\";}'),(3379,3,358,0,0,358,'62.82.198.161',1427448793,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Salvador\";}'),(3380,1,358,3,30460,0,'62.82.198.161',1427451306,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Puertos seriales en Harbour máximo COM9\";}'),(3381,1,2,3,30266,0,'66.249.93.175',1427547798,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3382,3,2137,0,0,2137,'180.248.238.150',1427701511,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Mulyadi\";}'),(3383,3,2137,0,0,2137,'180.248.238.150',1427701511,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Mulyadi\";i:1;s:17:\"mld62@hotmail.com\";i:2;s:22:\"itboss2014@outlook.com\";}'),(3384,1,1077,3,30456,0,'80.77.147.50',1427803536,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: XBROWSE remove or show header sort bitmap\";}'),(3385,3,2991,0,0,2991,'181.177.186.32',1427914679,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Modesto\";}'),(3386,1,2,19,30499,0,'66.249.93.175',1428068948,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: These forums soon will be 10 years running\";i:1;s:7:\"bpd2000\";}'),(3387,1,1466,3,30456,0,'186.77.199.196',1428168417,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: XBROWSE remove or show header sort bitmap\";}'),(3388,1,868,3,30511,0,'124.123.15.71',1428308332,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Convert date string based on regional setting\";}'),(3389,1,1313,3,30510,0,'200.146.119.59',1428318935,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"google maps point marker\";}'),(3390,1,2598,3,30472,0,'151.44.183.135',1428325165,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Date from Internet\";}'),(3391,3,63,0,0,63,'79.157.167.92',1428349293,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Rafael Clemente\";}'),(3392,1,249,6,20837,0,'179.53.168.165',1428403757,'LOG_POST_EDITED','a:2:{i:0;s:22:\"WSFE Afip Web Services\";i:1;s:15:\"diegopolverelli\";}'),(3393,1,249,6,20837,0,'179.53.168.165',1428403776,'LOG_POST_EDITED','a:2:{i:0;s:22:\"WSFE Afip Web Services\";i:1;s:15:\"diegopolverelli\";}'),(3394,0,2,0,0,0,'66.249.93.175',1428434092,'LOG_ADMIN_AUTH_SUCCESS',''),(3395,3,2,0,0,1932,'66.249.93.175',1428434119,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Pritpal Bedi\";}'),(3396,0,2,0,0,0,'66.249.93.175',1428434119,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Pritpal Bedi\";}'),(3397,1,2598,3,30522,0,'151.19.83.198',1428447405,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Report footer problem\";}'),(3398,1,2598,6,30549,0,'212.131.197.246',1429083643,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Como Capturar el tipo de letra del sistema\";}'),(3399,1,3233,30,30556,0,'95.240.63.153',1429266277,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"EasyReport build\";}'),(3400,1,2530,3,30552,0,'177.124.37.10',1429273742,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: TDolphin UPDATE,INSERT error\";}'),(3401,1,2530,3,30552,0,'177.124.37.10',1429273751,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: TDolphin UPDATE,INSERT error\";}'),(3402,1,2530,3,30573,0,'177.124.37.10',1429660655,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: libssh2\";}'),(3403,2,2342,0,0,0,'87.216.164.51',1429692440,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(3404,1,2598,3,30577,0,'212.131.197.246',1429692502,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Max and Min calc bank account\";}'),(3405,1,2,6,30597,0,'66.249.93.171',1430202112,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: Versión del ejecutable\";i:1;s:6:\"quique\";}'),(3406,1,1257,3,30516,0,'92.231.6.166',1430246107,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Add Color to a Group Frame\";}'),(3407,1,2,19,30613,0,'66.249.93.175',1430328886,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(3408,1,249,6,30581,0,'179.52.79.49',1430392768,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Control equivalente a Group, de otro color\";}'),(3409,1,1875,6,30620,0,'190.147.205.186',1430396234,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: problema con xbrowser\";}'),(3410,1,1875,6,30620,0,'190.147.205.186',1430398874,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: problema con xbrowser\";}'),(3411,1,1875,6,30620,0,'190.147.205.186',1430406884,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: problema con xbrowser\";}'),(3412,1,1178,6,6815,0,'186.146.135.11',1430526574,'LOG_DELETE_POST','a:1:{i:0;s:43:\"libreria orclib.lib Alquien la Ha trabajado\";}'),(3413,1,644,6,30582,0,'190.111.244.227',1430838213,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Compilando una rutina de menu\";}'),(3414,1,35,3,30657,0,'75.183.152.11',1431008377,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Add a Method on specific class\";}'),(3415,1,2530,6,30645,0,'177.124.37.10',1431043154,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: HDO una imagen vale más que...\";}'),(3416,0,2,0,0,0,'66.249.93.179',1431065882,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"lurenshiwo\";}'),(3417,1,2,0,0,0,'66.249.93.179',1431065882,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"lurenshiwo\";}'),(3418,1,2,16,30662,0,'66.249.93.179',1431065897,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"sed15050673\";}'),(3419,1,1257,3,30651,0,'92.231.4.161',1431076604,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: xbrowse reset incr.-seekstring on btn-action ?\";}'),(3420,1,1928,6,30631,0,'83.97.189.228',1431199973,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Rotar Imagen\";}'),(3421,3,2040,0,0,2040,'84.20.29.118',1431334039,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"pgfdz\";}'),(3422,1,2,6,30658,0,'66.249.93.179',1431364881,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: bug en Fivewin Abril 2015.2\";}'),(3423,1,2598,3,30675,0,'151.47.96.174',1431443450,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"change the height  and insert buttons\";}'),(3424,0,2,0,0,0,'66.249.81.229',1431497332,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:12:\"kirbybiviano\";}'),(3425,1,2,0,0,0,'66.249.81.229',1431497332,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:12:\"kirbybiviano\";}'),(3426,1,2,3,30695,0,'66.249.81.226',1431497347,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Video Signal Jammer\";}'),(3427,3,1535,0,0,1535,'83.39.194.225',1431544345,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"hmpaquito\";}'),(3428,1,362,16,30357,0,'191.248.155.177',1431979557,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"xHarbour 1.2.3 build -  xHarbour Version\";}'),(3429,1,1257,3,30718,0,'78.50.20.33',1432084027,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"Excluding fields from a dbf, using Append from ?\";}'),(3430,3,305,0,0,305,'190.234.105.173',1432130228,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ralph\";}'),(3431,3,305,0,0,305,'190.234.105.173',1432130228,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"ralph\";i:1;s:18:\"rdcd@tradel.com.pe\";i:2;s:28:\"rdelcastillo@dcdgestiona.com\";}'),(3432,1,1984,3,28845,0,'95.141.28.118',1432188872,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: List of donations already received to buy EasyReport\";}'),(3433,0,2,0,0,0,'66.249.93.175',1432363216,'LOG_ADMIN_AUTH_SUCCESS',''),(3434,0,2,0,0,0,'66.249.93.171',1432363257,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"CarlosFossati\";}'),(3435,0,2,0,0,0,'66.249.93.171',1432363263,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:13:\"CarlosFossati\";}'),(3436,1,1765,3,30266,0,'83.57.252.108',1432374596,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3437,1,2598,3,30726,0,'151.47.186.116',1432585484,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: send mail\";}'),(3438,1,1875,6,27920,0,'190.147.205.186',1432608245,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Web Services\";}'),(3439,1,2,19,30772,0,'66.249.93.171',1432799174,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(3440,1,2598,3,30774,0,'212.131.197.246',1432799832,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"sample test request\";}'),(3441,1,362,3,22872,0,'191.248.152.164',1432825821,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Windows 7 taskbar button progress bar\";}'),(3442,3,1741,0,0,1741,'95.226.54.113',1432825856,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"solving\";}'),(3443,1,3233,3,22872,0,'95.240.63.153',1432827227,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Windows 7 taskbar button progress bar\";}'),(3444,3,2971,0,0,2971,'70.40.42.108',1433214904,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Jay Hill\";}'),(3445,1,300,3,30815,0,'177.17.223.146',1433267842,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"xBrowse Line\";}'),(3446,1,1178,6,30792,0,'186.146.135.11',1433382475,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: OT - Necesito programadores en HBQT + Harbour\";}'),(3447,0,2,0,0,0,'66.249.93.175',1433395555,'LOG_ADMIN_AUTH_SUCCESS',''),(3448,0,2,0,0,0,'66.249.93.171',1433395570,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"hugodatapro\";}'),(3449,0,2,0,0,0,'66.249.93.171',1433395576,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"hugodatapro\";}'),(3450,1,1535,6,30822,0,'79.158.40.176',1433427819,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Duda HBQT + Harbour\";}'),(3451,0,2,0,0,0,'66.249.93.175',1433430886,'LOG_ADMIN_AUTH_SUCCESS',''),(3452,3,2,0,0,1932,'66.249.93.171',1433430923,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Pritpal Bedi\";}'),(3453,0,2,0,0,0,'66.249.93.171',1433430923,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Pritpal Bedi\";}'),(3454,1,2598,3,30833,0,'212.131.197.246',1433502389,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Listview test\";}'),(3455,1,2598,22,29746,0,'151.46.165.26',1433518035,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Filter Xbrowse Header\";}'),(3456,1,2598,3,30795,0,'212.131.197.246',1433589414,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"To Nages : search into a xbrowse\";}'),(3457,1,2598,3,30843,0,'151.18.21.174',1433696188,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Search on Xbrowse with incfilter\";}'),(3458,1,2598,3,30843,0,'151.18.21.174',1433696211,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Search on Xbrowse with incfilter\";}'),(3459,3,1095,0,0,1095,'80.35.166.25',1433764168,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"vlmsoft\";}'),(3460,1,1257,3,30864,0,'92.224.209.86',1433855440,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Mousewheel-problem in Xbrowse - relation\";}'),(3461,1,1928,8,29497,0,'176.86.127.187',1433945903,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: programa compilado con framework 10.10\";}'),(3462,0,2,0,0,0,'83.41.80.56',1434022181,'LOG_ADMIN_AUTH_SUCCESS',''),(3463,3,2,0,0,2582,'83.41.80.56',1434022235,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"davidObarrio\";}'),(3464,0,2,0,0,0,'83.41.80.56',1434022235,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"davidObarrio\";}'),(3465,1,1178,6,21701,0,'186.146.135.11',1434037427,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: FASTLib. Open Source\";}'),(3466,0,2,0,0,0,'66.249.93.171',1434039347,'LOG_ADMIN_AUTH_SUCCESS',''),(3467,0,2,0,0,0,'66.249.93.175',1434039381,'LOG_USER_REACTIVATE','a:1:{i:0;s:12:\"davidObarrio\";}'),(3468,3,2,0,0,2582,'66.249.93.175',1434039381,'LOG_USER_REACTIVATE_USER',''),(3469,1,83,6,30881,0,'83.56.39.178',1434043021,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: inestabilidad con DBFS\";}'),(3470,1,1257,3,30893,0,'92.224.211.53',1434187821,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"Missing data-bottomline with xBrowse Col:Hide() =\";}'),(3471,1,2598,3,30907,0,'212.131.197.246',1434445311,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Also for Listview\";}'),(3472,1,105,22,30911,0,'190.54.227.111',1434492173,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"GET con clausula Not null\";}'),(3473,0,2,0,0,0,'66.249.93.175',1434617828,'LOG_ADMIN_AUTH_SUCCESS',''),(3474,0,2,0,0,0,'66.249.93.179',1434617844,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"xunan\";}'),(3475,0,2,0,0,0,'66.249.93.175',1434617849,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"xunan\";}'),(3476,1,2598,3,30907,0,'151.34.44.3',1434656604,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Also for Listview\";}'),(3477,1,1535,19,30931,0,'88.15.79.65',1434728917,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Que hacer con Venezuela?\";}'),(3478,0,2,0,0,0,'66.249.93.171',1434974952,'LOG_ADMIN_AUTH_SUCCESS',''),(3479,3,991,0,0,991,'200.152.43.203',1435006245,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:16:\"oliveiros junior\";}'),(3480,3,190,0,0,190,'49.205.234.22',1435016159,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RAMESHBABU\";}'),(3481,3,190,0,0,190,'49.205.234.22',1435016159,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"RAMESHBABU\";i:1;s:20:\"aksharasoft@live.com\";i:2;s:21:\"aksharasoft@gmail.com\";}'),(3482,1,1178,6,30884,0,'186.146.135.11',1435023393,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: dialog32_3 Error de Variale SUPER\";}'),(3483,1,1178,6,30884,0,'186.146.135.11',1435023402,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"dialog32_3 Error de Variale SUPER\";}'),(3484,1,2598,3,30955,0,'212.131.197.246',1435044584,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"URGENT!!! STRANGE ERROR\";}'),(3485,3,190,0,0,190,'49.205.234.22',1435045378,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RAMESHBABU\";}'),(3486,1,362,6,30967,0,'191.248.159.4',1435177358,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: usando servicios Generador de codigo QR\";}'),(3487,1,2598,3,30970,0,'212.131.197.246',1435231729,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"help with Treg32\";}'),(3488,1,2598,3,30977,0,'212.131.197.246',1435311399,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"zoom image\";}'),(3489,1,2598,3,30982,0,'212.131.197.246',1435400183,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Problem with Turlink control\";}'),(3490,1,3052,6,20442,0,'201.127.136.218',1435498721,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: MySQL: Hagámoslo entre todos\";}'),(3491,3,891,0,0,891,'187.147.46.215',1435502171,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(3492,1,2598,3,30957,0,'212.131.197.246',1435568708,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: strange error on btnbmp\";}'),(3493,1,2598,3,30974,0,'212.131.197.246',1435575910,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: urllink\";}'),(3494,1,2598,3,30957,0,'151.18.78.130',1435587178,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: strange error on btnbmp\";}'),(3495,1,2598,3,30957,0,'151.18.78.130',1435587212,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"strange error on btnbmp\";}'),(3496,0,2,0,0,0,'66.249.93.171',1435732712,'LOG_ADMIN_AUTH_SUCCESS',''),(3497,3,2,0,0,1711,'66.249.93.199',1435732952,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"kim yong woo\";}'),(3498,0,2,0,0,0,'66.249.93.199',1435732952,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"kim yong woo\";}'),(3499,1,86,3,31000,0,'84.193.22.82',1435734115,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Writing into the Windows registry\";}'),(3500,1,500,6,30995,0,'81.36.10.122',1435777807,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Propiedades y cursores de un Recordset\";}'),(3501,3,1711,0,0,1711,'59.5.197.112',1435802720,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"kim yong woo\";}'),(3502,1,2598,3,31030,0,'151.44.198.99',1435949371,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: bmpfromico\";}'),(3503,1,1928,3,31030,0,'83.97.188.78',1435989684,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: bmpfromico\";}'),(3504,1,1928,3,31030,0,'83.97.188.78',1435994233,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: bmpfromico\";}'),(3505,1,2,3,31030,0,'66.249.93.171',1436084005,'LOG_POST_EDITED','a:2:{i:0;s:14:\"Re: bmpfromico\";i:1;s:17:\"nageswaragunupudi\";}'),(3506,1,3233,3,31014,0,'95.240.63.153',1436254493,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: How to combine (or use) SDK dll into Fivewin HB/XHB?\";}'),(3507,0,2,0,0,0,'66.249.93.179',1436254865,'LOG_ADMIN_AUTH_SUCCESS',''),(3508,0,2,0,0,0,'66.249.93.179',1436254880,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"morin0510\";}'),(3509,0,2,0,0,0,'66.249.93.179',1436254904,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"morin0510\";}'),(3510,1,2,33,31052,0,'66.249.93.179',1436450708,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: La Biblia para android con Fivetouch\";i:1;s:13:\"Jairo Barbosa\";}'),(3511,0,2,0,0,0,'66.249.93.179',1436526830,'LOG_ADMIN_AUTH_SUCCESS',''),(3512,1,303,3,30266,0,'68.7.205.228',1436541209,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3513,1,868,3,27484,0,'124.123.30.192',1436833777,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: XBROWSE; EDIT_GET_LISTBOX\";}'),(3514,1,449,6,28927,0,'195.55.52.102',1436867665,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Factura Electrónica / Fivewin (CHILE)\";}'),(3515,1,303,3,31079,0,'68.7.205.228',1436910842,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: problems with radio and radioitem\";}'),(3516,1,303,3,31079,0,'68.7.205.228',1436910873,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: problems with radio and radioitem\";}'),(3517,1,6,3,31054,0,'79.49.176.202',1436957569,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: DBF TEMPORARY\";}'),(3518,3,900,0,0,900,'187.188.81.44',1436973005,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"mariordz\";}'),(3519,1,2,16,30962,0,'66.249.81.229',1437398925,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: xharbour 1.2.3 32bits bcc7 2015/06/03\";}'),(3520,3,1712,0,0,1712,'186.67.11.114',1437424221,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"LGALDAMES\";}'),(3521,1,868,3,31108,0,'124.123.30.192',1437579247,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: changes for TDataRow\";}'),(3522,1,1535,6,19018,0,'84.236.172.121',1437689358,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: ToolTip con Imagen\";}'),(3523,3,2299,0,0,2299,'187.39.205.138',1437756237,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"anacatacombs\";}'),(3524,0,2,0,0,0,'66.249.93.179',1437832425,'LOG_ADMIN_AUTH_SUCCESS',''),(3525,0,2,0,0,0,'66.249.93.171',1437832440,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"softcon\";}'),(3526,0,2,0,0,0,'66.249.93.171',1437832445,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"softcon\";}'),(3527,1,987,6,31112,0,'187.143.147.182',1437845411,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Cambiar Puntero del Mouse para PickColor\";}'),(3528,3,1430,0,0,1430,'122.166.65.112',1437991257,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"sanilpmc\";}'),(3529,1,6,32,31141,0,'79.49.176.202',1437997565,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Nike TN Homme Vermont Sports Images Home_58Betting\";}'),(3530,0,2,0,0,0,'66.249.93.225',1438029448,'LOG_ADMIN_AUTH_SUCCESS',''),(3531,0,2,0,0,0,'66.249.93.225',1438029465,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"dmlopez\";}'),(3532,0,2,0,0,0,'66.249.93.222',1438029474,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"dmlopez\";}'),(3533,1,303,3,31142,0,'68.7.205.228',1438055435,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Metro Class on notebooks\";}'),(3534,0,6,0,0,0,'79.49.176.202',1438073636,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"millercdiv\";}'),(3535,1,6,0,0,0,'79.49.176.202',1438073636,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:10:\"millercdiv\";}'),(3536,1,6,23,31145,0,'79.49.176.202',1438073648,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Nike Air Max Sport - Wikipedia,the at no cost ency\";}'),(3537,1,303,3,30266,0,'68.7.205.228',1438302970,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3538,1,2040,3,31149,0,'84.20.29.118',1438325789,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: OT: TS.exe ( text find ) utility replacement\";}'),(3539,1,891,6,31156,0,'189.221.44.147',1438387214,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Extraer cadenas a la derecha y/o izquierda..\";}'),(3540,3,2342,0,0,2342,'87.216.164.51',1438679917,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"cnavarro\";}'),(3541,0,2,0,0,0,'80.31.224.87',1438692801,'LOG_ADMIN_AUTH_SUCCESS',''),(3542,0,2,0,0,0,'80.31.224.87',1438692822,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"otepa\";}'),(3543,0,2,0,0,0,'80.31.224.87',1438692830,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"otepa\";}'),(3544,3,3284,0,0,3284,'186.59.144.64',1438710881,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"lelu\";}'),(3545,1,35,3,31181,0,'204.116.145.106',1438969367,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Multiple :MakeTotals\";}'),(3546,1,303,3,31180,0,'68.7.205.228',1438978919,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Some problems after the WIN10 - update\";}'),(3547,1,1257,3,31188,0,'92.231.7.95',1439128131,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Why xBrowse font changes from NORMAL to BOLD ?\";}'),(3548,1,1711,3,31191,0,'211.200.98.110',1439256027,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: How to make transparent window/dialog?\";}'),(3549,1,3233,3,31196,0,'95.240.63.153',1439300685,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Query website save response\";}'),(3550,1,362,6,31197,0,'191.251.0.82',1439319526,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Cursor get coloreado al editar\";}'),(3551,1,35,3,31200,0,'204.116.145.106',1439399020,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"aSort on two fields\";}'),(3552,1,1875,6,29291,0,'190.147.205.186',1439472181,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Display.prg y ComboBox ( SOLUCIONADO )\";}'),(3553,3,1712,0,0,1712,'186.67.11.114',1439479342,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"LGALDAMES\";}'),(3554,1,1711,3,31191,0,'218.145.189.43',1439522396,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: How to make transparent window/dialog?\";}'),(3555,1,1257,3,31212,0,'92.224.210.13',1439660392,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"xBrowse show combination of RELATION and UNIQUE ?\";}'),(3556,1,2342,6,31216,0,'87.216.164.51',1439932922,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: LEER VARIAS COLUMNAS DE UNA TABLA HTML\";}'),(3557,1,35,3,31206,0,'204.116.145.106',1439996794,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Exempt certain xBrowse rows from MakeTotals()\";}'),(3558,1,1178,6,31217,0,'186.146.135.11',1440033188,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"Firebird - Que Archivos se Requiere para Distribuir\";}'),(3559,3,190,0,0,190,'49.205.208.227',1440205296,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RAMESHBABU\";}'),(3560,0,2,0,0,0,'159.147.174.6',1440526400,'LOG_ADMIN_AUTH_SUCCESS',''),(3561,3,2,0,0,2582,'159.147.174.6',1440526433,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"davidObarrio\";}'),(3562,0,2,0,0,0,'159.147.174.6',1440526433,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"davidObarrio\";}'),(3563,3,1711,0,0,1711,'121.162.24.233',1440598074,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"kim yong woo\";}'),(3564,1,303,3,30266,0,'68.7.205.228',1440604293,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3565,1,1711,3,31282,0,'121.162.24.233',1441288130,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"MSSQL Link-working in xHarbour , not working in Harbour?\";}'),(3566,1,1711,3,31257,0,'121.162.24.233',1441288156,'LOG_DELETE_TOPIC','a:1:{i:0;s:57:\"How can I show &quot;EDIT_BUTTON&quot; ALWAYS in XBrowse?\";}'),(3567,1,3233,3,31283,0,'95.240.63.153',1441637658,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: How to paste into a web page\";}'),(3568,1,1535,3,30266,0,'88.14.211.254',1441991436,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3569,1,409,6,31310,0,'201.223.195.139',1442241644,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: PONER BOTONES EN UN XBROWSE\";}'),(3570,1,409,6,31310,0,'201.223.195.139',1442241868,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: PONER BOTONES EN UN XBROWSE\";}'),(3571,1,86,3,31320,0,'84.193.22.82',1442332458,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Width of the menu title\";}'),(3572,1,2598,3,31354,0,'151.18.82.45',1442853475,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"how search ?\";}'),(3573,1,2598,3,31342,0,'151.18.82.45',1442853500,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Simulate a advance search\";}'),(3574,1,316,3,31363,0,'213.171.251.180',1443095551,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: refresh  a get with when\";}'),(3575,1,303,3,30266,0,'68.7.205.228',1443115565,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: ADO RDD xHarbour\";}'),(3576,1,2598,3,31368,0,'212.131.197.246',1443251098,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"XBROWSE ASELECTED\";}'),(3577,1,2,19,31377,0,'159.147.174.6',1443251338,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(3578,1,1257,3,31379,0,'92.224.210.90',1443271487,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 15.09\";}'),(3579,1,2,3,31379,0,'159.147.174.6',1443434658,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Re: New FWH 15.09\";i:1;s:17:\"nageswaragunupudi\";}'),(3580,1,868,3,31379,0,'49.15.80.86',1443434683,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 15.09\";}'),(3581,1,868,3,31418,0,'124.123.30.192',1443892180,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: c5tooltip and xbrowse\";}'),(3582,3,1095,0,0,1095,'80.35.166.25',1443986556,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"vlmsoft\";}'),(3583,1,1257,3,31424,0,'85.182.16.170',1444074608,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"a problem with GetPvProfString ?\";}'),(3584,1,176,6,31426,0,'141.0.9.75',1444091539,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Warning: Error detected (LME288)\";}'),(3585,1,34,3,31415,0,'68.5.48.88',1444093976,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Save signature BMP in DBF ?\";}'),(3586,1,1313,3,31428,0,'177.125.217.138',1444142137,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"tsbrowse for harbour download\";}'),(3587,1,1313,6,31429,0,'177.125.217.138',1444142225,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"tsbrowse para harbour download\";}'),(3588,1,1009,20,31427,0,'31.3.174.18',1444296208,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: errore HBZIP\";}'),(3589,1,1009,20,31427,0,'31.3.174.18',1444374832,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: errore HBZIP\";}'),(3590,1,1009,20,31427,0,'31.3.174.18',1444377226,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: errore HBZIP\";}'),(3591,0,2,0,0,0,'81.36.172.65',1444387015,'LOG_ADMIN_AUTH_SUCCESS',''),(3592,3,2,0,0,1085,'81.36.172.65',1444387041,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armin Thurner\";}'),(3593,0,2,0,0,0,'81.36.172.65',1444387041,'LOG_USER_USER_UPDATE','a:1:{i:0;s:13:\"Armin Thurner\";}'),(3594,1,2,33,31421,0,'66.249.93.199',1444396154,'LOG_LOCK','a:1:{i:0;s:50:\"Te gusta FiveWin ? Consigue un FiveTouch gratis!!!\";}'),(3595,1,2,32,31420,0,'66.249.93.195',1444396176,'LOG_LOCK','a:1:{i:0;s:57:\"Do you like FiveWin ? Like it and get a free FiveTouch!!!\";}'),(3596,1,2598,3,31447,0,'212.131.197.246',1444471770,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Drag and Drop Xbrowse Cells\";}'),(3597,1,1257,3,31452,0,'78.50.23.38',1444516706,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"New Buttonfocus ( border ) on METRO-buttons\";}'),(3598,3,1741,0,0,1741,'95.226.54.113',1444743044,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"solving\";}'),(3599,1,1794,6,31466,0,'80.32.19.89',1444900035,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Listar un directorio en un FTP\";}'),(3600,1,2598,3,31471,0,'212.131.197.246',1444995778,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Operation with date\";}'),(3601,1,413,6,31249,0,'213.4.20.209',1445204533,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Usando HBZEBRA.LIB para generar QRCODE\";}'),(3602,1,1193,3,31475,0,'111.249.150.149',1445241832,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: bound error in Loop checkbox\";}'),(3603,0,2,0,0,0,'46.222.204.177',1445362524,'LOG_ADMIN_AUTH_SUCCESS',''),(3604,3,2,0,0,3419,'46.222.204.177',1445362597,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"sajarm\";}'),(3605,0,2,0,0,0,'46.222.204.177',1445362597,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"sajarm\";}'),(3606,0,2,0,0,0,'46.222.204.177',1445362614,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:6:\"sajarm\";}'),(3607,0,2,0,0,0,'46.222.204.177',1445362727,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:6:\"sajarm\";}'),(3608,0,2,0,0,0,'46.222.204.177',1445362783,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"sajarm\";}'),(3609,0,2,0,0,0,'46.222.204.177',1445362788,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"sajarm\";}'),(3610,0,2,0,0,0,'46.222.255.32',1445434843,'LOG_ADMIN_AUTH_SUCCESS',''),(3611,0,2,0,0,0,'46.222.255.32',1445434867,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"sajarm\";}'),(3612,3,2,0,0,3419,'46.222.255.32',1445434867,'LOG_USER_ACTIVE_USER',''),(3613,3,3419,0,0,3419,'95.17.125.123',1445462903,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"sajarm\";}'),(3614,3,3419,0,0,3419,'95.17.125.123',1445462903,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"sajarm\";i:1;s:18:\"sajarm@hotmail.com\";i:2;s:25:\"trrgsoftconsult@gmail.com\";}'),(3615,3,3419,0,0,3419,'95.17.125.123',1445504651,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"sajarm\";}'),(3616,1,1257,3,31486,0,'92.231.7.6',1445520854,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: calculate a week\";}'),(3617,1,2819,6,31493,0,'187.202.84.132',1445611915,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Capturar una subcadena entre &gt; ...... &lt;\";}'),(3618,1,1928,3,31492,0,'83.97.188.78',1445665736,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: TXImage from resources\";}'),(3619,1,2,3,31485,0,'81.36.172.65',1445680091,'LOG_POST_EDITED','a:2:{i:0;s:59:\"Files Needed - ADS / Harbour / MSVC 2013 (and FiveWeb info)\";i:1;s:8:\"TimStone\";}'),(3620,1,1009,20,31507,0,'31.3.174.18',1445932877,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: cambio graduale di luminosità in ribbonbar\";}'),(3621,1,36,6,30561,0,'191.113.252.107',1445949657,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: ace32.lib y rddads.lib con ads 11.1 una parte de la solucion\";}'),(3622,0,2,0,0,0,'37.29.144.169',1446106951,'LOG_ADMIN_AUTH_SUCCESS',''),(3623,0,2,0,0,0,'37.29.144.169',1446106968,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:10:\"theskysoft\";}'),(3624,1,2,0,0,0,'37.29.144.169',1446106968,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:10:\"theskysoft\";}'),(3625,1,2,16,31515,0,'37.29.144.169',1446106982,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Email Extractor Tool | Files Email Extractor | Bulk Text Mes\";}'),(3626,1,2598,3,31520,0,'212.131.197.246',1446201210,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"save from xbrowse with array\";}'),(3627,1,3326,3,31458,0,'91.253.156.242',1446231958,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: fivewin/Harbour encrypt decrypt function in c#\";}'),(3628,3,1264,0,0,1264,'64.76.128.19',1446233524,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"mchumpitazv\";}'),(3629,1,2,3,31522,0,'47.59.219.177',1446289043,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Bad quality with GIF (and GDI+)\";i:1;s:21:\"Enrico Maria Giordano\";}'),(3630,1,6,3,31522,0,'79.49.229.197',1446635865,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Bad quality with GIF (and GDI+)\";}'),(3631,3,1741,0,0,1741,'95.226.54.113',1447342979,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"solving\";}'),(3632,1,3419,3,31576,0,'95.19.60.11',1447783100,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Problema con xbrowse\";}'),(3633,1,210,3,31569,0,'80.121.120.187',1448875648,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: ADORDD FAQs\";}'),(3634,1,2,7,31642,0,'77.208.199.186',1448963262,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Nuevo GPF en win CE 6.0 y fwppc2015\";}'),(3635,1,1257,3,31628,0,'92.224.210.133',1449081528,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: A problem xBrowse and RELATION of 2 DBF\'s\";}'),(3636,1,1794,6,31659,0,'80.32.19.89',1449123859,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: O.T: Pequeño problema con una sentencia SQL\";}'),(3637,1,1535,6,25369,0,'83.39.193.88',1449155145,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Adeudos Directos SEPA en euros Esquema B2B\";}'),(3638,1,644,6,23964,0,'186.138.67.119',1449265383,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: como activo o desactivo una edicion de celda?\";}'),(3639,1,2,6,12759,0,'77.211.150.85',1449314984,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevo FWH 15.09 (build 5)\";}'),(3640,1,2,6,12759,0,'77.211.150.85',1449314995,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevo FWH 15.09 (build 5)\";}'),(3641,1,2,6,12759,0,'77.211.150.85',1449315006,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevo FWH 15.09 (build 5)\";}'),(3642,1,2,6,12759,0,'77.211.150.85',1449315017,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevo FWH 15.09 (build 5)\";}'),(3643,1,2,6,12759,0,'77.211.150.85',1449315027,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevo FWH 15.09 (build 5)\";}'),(3644,1,2,6,12759,0,'77.211.150.85',1449315037,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevo FWH 15.09 (build 3)\";}'),(3645,1,2,6,12759,0,'77.211.150.85',1449315048,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevo FWH 15.09 (build 3)\";}'),(3646,1,1313,6,31671,0,'177.125.217.138',1449482767,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Java Instalado\";}'),(3647,1,6,3,31490,0,'79.27.234.79',1449668247,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: To save an image [Solved]\";}'),(3648,1,2,5,31678,0,'66.249.93.35',1449745710,'LOG_POST_EDITED','a:2:{i:0;s:27:\"some questions about browse\";i:1;s:13:\"plantenkennis\";}'),(3649,3,248,0,0,248,'81.203.176.47',1450283815,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Garbi\";}'),(3650,3,248,0,0,248,'81.203.176.47',1450299801,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Garbi\";}'),(3651,3,169,0,0,169,'177.54.203.154',1450302641,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(3652,1,2598,6,31708,0,'212.131.197.246',1450429188,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Borrar Items de Treeview\";}'),(3653,1,868,3,31732,0,'124.123.20.124',1450513677,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: LostFocus\";}'),(3654,3,1711,0,0,1711,'121.162.24.233',1450576980,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"kim yong woo\";}'),(3655,1,2598,20,31730,0,'151.44.168.47',1450619108,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Programma in Windows Seven/ 8 /10\";}'),(3656,1,2598,20,31730,0,'151.44.168.47',1450619117,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Programma in Windows Seven/ 8 /10\";}'),(3657,1,2,3,31689,0,'77.208.214.232',1450680792,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Combobox scroll (function PopupBrowse())\";i:1;s:15:\"Richard Chidiak\";}'),(3658,3,1316,0,0,1316,'192.119.208.34',1450798678,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Perry Nichols\";}'),(3659,1,2,3,31743,0,'66.249.93.227',1450812079,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Merry Christmas\";i:1;s:6:\"Carles\";}'),(3660,1,1257,3,31746,0,'92.224.208.136',1450879558,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Refresh Record Set\";}'),(3661,3,1195,0,0,1195,'190.39.64.128',1451146531,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(3662,3,1195,0,0,1195,'190.39.64.128',1451146531,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"albeiroval\";i:1;s:22:\"albeiroval@hotmail.com\";i:2;s:20:\"albeiroval@gmail.com\";}'),(3663,3,1195,0,0,1195,'190.39.64.128',1451231213,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(3664,1,1313,6,31762,0,'191.248.125.221',1451346908,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Google Maps - Activex\";}'),(3665,1,34,3,31760,0,'68.109.66.10',1451520240,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Error:  15.10\";}'),(3666,0,2,0,0,0,'77.211.203.233',1452154666,'LOG_BAN_EXCLUDE_USER','a:2:{i:0;s:0:\"\";i:1;s:6:\"bigcco\";}'),(3667,1,2,0,0,0,'77.211.203.233',1452154666,'LOG_BAN_EXCLUDE_USER','a:2:{i:0;s:0:\"\";i:1;s:6:\"bigcco\";}'),(3668,3,1062,0,0,1062,'122.116.50.192',1452155581,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"kokookao\";}'),(3669,3,2307,0,0,2307,'175.110.186.18',1452250018,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"RiazKhan\";}'),(3670,1,1406,3,31791,0,'78.172.8.110',1452327067,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: National Characters in Filename?\";}'),(3671,1,1535,3,31796,0,'83.42.216.87',1452502189,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Bugs in latest Harbour\";}'),(3672,1,2,3,31788,0,'77.208.196.49',1452528920,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: LAN User Messaging Service\";}'),(3673,1,210,3,31804,0,'194.96.72.58',1452547528,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Abnormal program termination\";}'),(3674,0,2,0,0,0,'47.59.250.79',1452635441,'LOG_ADMIN_AUTH_SUCCESS',''),(3675,1,439,6,24025,0,'200.108.196.221',1452694271,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Mejoras para scintilla\";}'),(3676,0,2,0,0,0,'77.208.195.25',1452793132,'LOG_ADMIN_AUTH_SUCCESS',''),(3677,0,2,0,0,0,'77.208.195.25',1452793204,'LOG_PURGE_CACHE',''),(3678,0,2,0,0,0,'77.208.195.25',1452799948,'LOG_ADMIN_AUTH_SUCCESS',''),(3679,0,2,0,0,0,'77.208.195.25',1452800211,'LOG_ADMIN_AUTH_SUCCESS',''),(3680,0,2,0,0,0,'77.208.195.25',1452800270,'LOG_CONFIG_SECURITY',''),(3681,0,2,0,0,0,'77.208.195.25',1452800279,'LOG_CONFIG_SECURITY',''),(3682,0,2,0,0,0,'77.208.195.25',1452800434,'LOG_ADMIN_AUTH_SUCCESS',''),(3683,0,2,0,0,0,'77.208.195.25',1452800518,'LOG_ADMIN_AUTH_SUCCESS',''),(3684,1,2598,3,31814,0,'151.19.223.146',1452801394,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Error conditional\";}'),(3685,1,644,6,31823,0,'181.228.196.44',1452956187,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Impresora Fiscal Hasar\";}'),(3686,1,960,6,31845,0,'217.12.24.135',1453362167,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"DBF Abiertos\";}'),(3687,1,2,3,31802,0,'77.208.128.28',1453585649,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: FWH1512 Unicode problem?\";}'),(3688,1,396,6,31882,0,'190.36.56.225',1454092969,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: dialogo o ventana pantalla completa\";}'),(3689,3,3378,0,0,3378,'200.45.184.6',1454099271,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"davidbarrio1965\";}'),(3690,0,2,0,0,0,'77.208.140.190',1454262470,'LOG_ADMIN_AUTH_SUCCESS',''),(3691,0,2,0,0,0,'77.208.140.190',1454262858,'LOG_CONFIG_COOKIE',''),(3692,0,2,0,0,0,'77.208.140.190',1454263114,'LOG_ADMIN_AUTH_SUCCESS',''),(3693,0,2,0,0,0,'77.208.140.190',1454264618,'LOG_ADMIN_AUTH_SUCCESS',''),(3694,0,2,0,0,0,'77.211.152.48',1454322386,'LOG_ADMIN_AUTH_SUCCESS',''),(3695,0,2,0,0,0,'77.211.152.48',1454323015,'LOG_ADMIN_AUTH_SUCCESS',''),(3696,0,2,0,0,0,'77.211.152.48',1454343874,'LOG_ADMIN_AUTH_SUCCESS',''),(3697,0,2,0,0,0,'77.211.152.48',1454343906,'LOG_ACL_TRANSFER_PERMISSIONS','a:1:{i:0;s:10:\"James Bott\";}'),(3698,0,2,0,0,0,'77.211.152.48',1454343958,'LOG_ADMIN_AUTH_SUCCESS',''),(3699,0,2,0,0,0,'77.211.152.48',1454343983,'LOG_ACL_RESTORE_PERMISSIONS','a:1:{i:0;s:10:\"James Bott\";}'),(3700,0,2,0,0,0,'47.59.221.126',1454619999,'LOG_ADMIN_AUTH_SUCCESS',''),(3701,3,2,0,0,924,'47.59.221.126',1454620041,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Romeo\";}'),(3702,0,2,0,0,0,'47.59.221.126',1454620041,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"Romeo\";}'),(3703,1,2598,3,31913,0,'151.18.33.145',1454621385,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"trying to converte old listbox to xbrowse\";}'),(3704,0,2,0,0,0,'47.59.192.245',1454750025,'LOG_ADMIN_AUTH_SUCCESS',''),(3705,3,2,0,0,49,'47.59.192.245',1454750496,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"Silvio\";i:1;s:24:\"silvio.falconi@gmail.com\";i:2;s:14:\"none@gmail.com\";}'),(3706,0,2,0,0,0,'47.59.192.245',1454750496,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"Silvio\";}'),(3707,3,2,0,0,2598,'47.59.192.245',1454750523,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:14:\"Silvio.Falconi\";i:1;s:22:\"silvio.falconi@eoeo.it\";i:2;s:24:\"silvio.falconi@gmail.com\";}'),(3708,0,2,0,0,0,'47.59.192.245',1454750523,'LOG_USER_USER_UPDATE','a:1:{i:0;s:14:\"Silvio.Falconi\";}'),(3709,1,2598,3,31921,0,'212.131.197.246',1454760360,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"FWH16.02 ERROR ON BUTTON ?\";}'),(3710,1,1257,3,31922,0,'92.231.7.205',1454763376,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"A ChooseColor() - question\";}'),(3711,0,2,0,0,0,'47.59.177.178',1454974387,'LOG_ADMIN_AUTH_SUCCESS',''),(3712,0,2,0,0,0,'47.59.177.178',1454974407,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"macgataa\";}'),(3713,0,2,0,0,0,'47.59.177.178',1454974416,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"macgataa\";}'),(3714,1,2598,3,31950,0,'151.18.183.31',1455493272,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Menu button transparent\";}'),(3715,3,23,0,0,23,'81.203.185.224',1455537700,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"AngelSalom\";}'),(3716,3,147,0,0,147,'181.164.191.241',1455590013,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MarioG\";}'),(3717,1,1257,3,31955,0,'92.224.208.248',1455627877,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Check if the user is gone away\";}'),(3718,1,644,6,31896,0,'181.111.220.50',1455633408,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Conectarme a puerto\";}'),(3719,1,2,6,31358,0,'47.58.145.249',1455699596,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Adios borland c\";}'),(3720,0,2,0,0,0,'47.58.145.249',1455699636,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"dropdmn\";}'),(3721,1,2,0,0,0,'47.58.145.249',1455699636,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:7:\"dropdmn\";}'),(3722,0,2,0,0,0,'66.249.93.227',1455720211,'LOG_UNBAN_USER','a:1:{i:0;s:7:\"dropdmn\";}'),(3723,1,2,0,0,0,'66.249.93.227',1455720211,'LOG_UNBAN_USER','a:1:{i:0;s:7:\"dropdmn\";}'),(3724,3,1886,0,0,1886,'82.130.160.222',1455727434,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"gautxori\";i:1;s:21:\"amgomez@euskaltel.net\";i:2;s:19:\"amgomez@outlook.com\";}'),(3725,3,1886,0,0,1886,'82.130.160.222',1455727439,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"gautxori\";i:1;s:21:\"amgomez@euskaltel.net\";i:2;s:19:\"amgomez@outlook.com\";}'),(3726,1,249,19,31970,0,'186.149.243.229',1455884684,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Ransomware Locky\";i:1;s:8:\"Baxajaun\";}'),(3727,1,249,19,31970,0,'186.149.243.229',1455884752,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Ransomware Locky\";i:1;s:8:\"Baxajaun\";}'),(3728,1,303,3,29991,0,'68.7.205.228',1456248164,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Introducing FiveTech\'s fivedit\";}'),(3729,3,3421,0,0,3421,'187.252.73.197',1456337382,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"Delgadoma\";}'),(3730,3,861,0,0,861,'186.138.221.75',1456408440,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"rterraz\";}'),(3731,1,1257,3,32004,0,'78.50.21.254',1456484516,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"A xBrowse speed question ( RELATION )\";}'),(3732,1,2598,3,32003,0,'212.131.197.246',1456484953,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Help to control an position on a array\";}'),(3733,1,303,3,32005,0,'68.7.205.228',1456515810,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Xbrowse a speed problem using SCOPE ?\";}'),(3734,1,868,3,31899,0,'124.123.30.235',1456561688,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: FWH 15:12: Bug in the size of the column in xbrowse\";}'),(3735,1,2598,3,32030,0,'212.131.197.246',1456832020,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"How scroll a Panel into a folder\";}'),(3736,1,2,6,32033,0,'77.208.206.80',1456929459,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: errores con fwh 16.02\";i:1;s:17:\"nageswaragunupudi\";}'),(3737,1,2342,6,32036,0,'87.216.164.51',1456933614,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: PROBLEMAS CON LA FWH 16.02\";}'),(3738,3,92,0,0,92,'80.27.129.116',1456954161,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(3739,1,2342,6,32043,0,'87.216.164.51',1457036530,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Checkbox activo\";}'),(3740,1,861,6,32046,0,'181.165.155.208',1457082829,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: PROBLEMA CON :oFontData en XBROWSE FWH16.02\";}'),(3741,1,1257,3,32042,0,'92.231.5.188',1457114351,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Question rPreview\";}'),(3742,0,2,0,0,0,'47.59.130.237',1457128599,'LOG_ADMIN_AUTH_SUCCESS',''),(3743,3,2,0,0,2944,'47.59.130.237',1457128625,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Vikthor.Thomas\";}'),(3744,0,2,0,0,0,'47.59.130.237',1457128625,'LOG_USER_USER_UPDATE','a:1:{i:0;s:14:\"Vikthor.Thomas\";}'),(3745,3,1711,0,0,1711,'121.162.24.233',1457184277,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"kim yong woo\";}'),(3746,1,1257,3,32059,0,'92.231.5.35',1457444649,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Desktop Alerts\";}'),(3747,1,171,12,32066,0,'73.17.237.232',1457554109,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FiveLinux Actualizacion\";}'),(3748,0,2,0,0,0,'47.59.134.22',1457554137,'LOG_ADMIN_AUTH_SUCCESS',''),(3749,0,2,0,0,0,'47.59.134.22',1457554156,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"empregestor\";}'),(3750,0,2,0,0,0,'47.59.134.22',1457554162,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"empregestor\";}'),(3751,1,960,6,29590,0,'217.12.24.135',1457600546,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: diseños con Preview en tiempo de ejecucion\";}'),(3752,1,1388,3,32063,0,'45.64.82.166',1457601169,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Filtering xBrowse Arrays - SOLVED!\";}'),(3753,1,362,6,30871,0,'191.248.133.97',1457641213,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: PRINT oPrn en Archivo.txt no funciona.\";}'),(3754,3,2086,0,0,2086,'179.7.86.158',1458093052,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"ltorres\";}'),(3755,1,1257,3,32118,0,'92.231.4.59',1458132648,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"A problem using xBrowse with index UNIQUE\";}'),(3756,1,2342,6,32085,0,'87.216.164.51',1458228320,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Borland7 versus VisualStudio\";}'),(3757,3,190,0,0,190,'49.205.242.18',1458308289,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RAMESHBABU\";}'),(3758,3,2143,0,0,2143,'190.77.156.223',1458331490,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"hidroxid\";}'),(3759,3,190,0,0,190,'49.205.242.18',1458345691,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RAMESHBABU\";}'),(3760,3,1549,0,0,1549,'187.240.252.123',1458417822,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"noe aburto\";}'),(3761,3,1549,0,0,1549,'187.240.252.123',1458417822,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"noe aburto\";i:1;s:23:\"noeaburto67@hotmail.com\";i:2;s:18:\"naburtos@gmail.com\";}'),(3762,1,2076,6,32133,0,'184.161.132.62',1458444566,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Error con FiveDBU\";}'),(3763,1,2,3,32142,0,'66.249.93.97',1458547860,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Help with translation\";i:1;s:15:\"Richard Chidiak\";}'),(3764,1,2,3,32142,0,'66.249.93.101',1458547885,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Help with translation\";i:1;s:15:\"Richard Chidiak\";}'),(3765,0,2,0,0,0,'66.249.93.101',1459274355,'LOG_ADMIN_AUTH_SUCCESS',''),(3766,0,2,0,0,0,'47.58.104.7',1459274398,'LOG_ADMIN_AUTH_SUCCESS',''),(3767,0,2,0,0,0,'47.58.104.7',1459274501,'LOG_ADMIN_AUTH_SUCCESS',''),(3768,3,2,0,0,1078,'47.58.104.7',1459274523,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"luiz53\";}'),(3769,0,2,0,0,0,'47.58.104.7',1459274523,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"luiz53\";}'),(3770,1,2598,3,32174,0,'151.47.198.149',1459284005,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"checked menu\";}'),(3771,1,210,3,31741,0,'91.113.23.229',1459432816,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Re: FWH64\";}'),(3772,1,316,6,32193,0,'188.78.151.154',1459490970,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Tremendo! Microsoft &quot;apaga&quot; Ubuntu!\";}'),(3773,1,2598,3,32175,0,'212.131.197.246',1459495195,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"question for Folderex\";}'),(3774,1,2,3,32188,0,'66.249.93.97',1459537046,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: FWH 16.03 32 BIT\";}'),(3775,1,2598,3,32205,0,'151.35.59.125',1459626737,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Meter in tray messages. Is it possible?\";}'),(3776,1,2,3,32222,0,'66.249.93.93',1460014045,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Build.bat for MSVC 2015\";}'),(3777,1,2598,3,32223,0,'151.47.188.107',1460045343,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: chronometer\";}'),(3778,1,2598,3,32223,0,'151.47.188.107',1460055178,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: chronometer\";}'),(3779,1,2598,3,32223,0,'151.47.188.107',1460055192,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: chronometer\";}'),(3780,1,2598,3,32223,0,'151.47.188.107',1460055202,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: chronometer\";}'),(3781,1,2076,6,32236,0,'184.161.132.62',1460083323,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"lentitud con ADO\";}'),(3782,1,1466,6,32235,0,'186.77.198.189',1460084054,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: informe dinámico\";}'),(3783,1,1257,3,32243,0,'92.231.5.198',1460147288,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"A fontproblem in METROBUTTONS ?\";}'),(3784,1,180,6,32190,0,'176.84.185.237',1460184979,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: APORTE ( Busqueda en Archivos )\";}'),(3785,1,868,3,32240,0,'124.123.30.235',1460190861,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: C-function in FWH\";}'),(3786,1,274,6,32148,0,'179.228.178.206',1460222217,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Version de lib\'s tdolphin\";}'),(3787,1,868,3,32240,0,'124.123.30.235',1460228476,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: C-function in FWH\";}'),(3788,1,2,3,32247,0,'66.249.93.93',1460282567,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3789,1,2,6,32248,0,'66.249.93.97',1460371565,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: De DBF a BBDD con el minimo cambio\";}'),(3790,3,23,0,0,23,'81.203.185.224',1460384931,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"AngelSalom\";}'),(3791,1,2,3,32247,0,'66.249.93.93',1460404116,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3792,1,2,3,32247,0,'66.249.93.93',1460404139,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3793,1,2,3,32247,0,'66.249.93.97',1460404159,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3794,1,2,3,32247,0,'66.249.93.97',1460404170,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3795,1,2,3,32247,0,'66.249.93.93',1460404190,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3796,1,2,3,32247,0,'66.249.93.97',1460404217,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3797,1,2,3,32247,0,'66.249.93.101',1460404241,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3798,1,2,3,32247,0,'66.249.93.97',1460404285,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3799,1,2,3,32247,0,'66.249.93.101',1460404320,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3800,1,2,3,32247,0,'66.249.93.97',1460404345,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3801,1,2,3,32247,0,'66.249.93.97',1460404368,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3802,1,2,3,32247,0,'66.249.93.93',1460404395,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3803,1,2,3,32247,0,'66.249.93.93',1460404437,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3804,1,2,6,32255,0,'66.249.93.97',1460478403,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: Donde puedo conseguir xMate\";i:1;s:15:\"joseluisysturiz\";}'),(3805,1,2598,3,32267,0,'151.82.38.42',1460642026,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Harbor Env set Xmate\";}'),(3806,1,868,3,32262,0,'124.123.30.235',1460648704,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: xBrowse improvement\";}'),(3807,3,439,0,0,439,'200.108.196.221',1460716149,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"jose_murugosa\";}'),(3808,3,2076,0,0,2076,'184.161.132.62',1460812912,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Compuin\";}'),(3809,1,1814,6,32271,0,'186.103.145.171',1460817489,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Clase para ADO\";}'),(3810,1,34,3,32283,0,'68.109.66.10',1460853495,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"What library ?\";}'),(3811,1,1257,3,32285,0,'92.231.6.240',1460886599,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Who knows something about Daniel Garcia-Gil ?\";}'),(3812,1,1257,3,32288,0,'78.50.20.70',1460933672,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"BtnBmp -&gt; image not adjusted using TOP or BOTTOM\";}'),(3813,1,2076,6,32292,0,'207.236.254.202',1461020117,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Clase Tscript\";}'),(3814,1,2076,6,21557,0,'207.236.254.202',1461020133,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Scripts para Harbour y FWH !!!\";}'),(3815,1,1257,3,32005,0,'92.231.6.67',1461182204,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Xbrowse a speed problem using SCOPE ?\";}'),(3816,1,2,6,32315,0,'77.208.192.92',1461305023,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Medio de Pago PAYPAL -\";i:1;s:6:\"jbrita\";}'),(3817,1,2076,6,32319,0,'207.236.254.202',1461365420,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Algun ejemplo de uso de la clase TODBC\";}'),(3818,1,2,6,32351,0,'47.59.228.88',1461695081,'LOG_POST_EDITED','a:2:{i:0;s:56:\"Re: Error E0019  #error: \'Class not declared for method:\";i:1;s:7:\"Compuin\";}'),(3819,1,110,3,32263,0,'200.85.175.26',1461961332,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Windows Toast notifications - second try\";}'),(3820,1,2598,3,32359,0,'212.131.197.246',1462012444,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"to antonio : REGetCharFormat\";}'),(3821,1,868,3,32370,0,'117.195.203.228',1462186534,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: TPrinter recent methods PrintImage() and SayText()\";}'),(3822,1,868,3,32370,0,'117.195.203.228',1462186667,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: TPrinter recent methods PrintImage() and SayText()\";}'),(3823,1,2,6,29755,0,'47.59.214.92',1462259126,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Descargar Editor NotePad++\";}'),(3824,1,2598,3,32376,0,'212.131.197.246',1462262444,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: btnbmp on buttonbar\";}'),(3825,1,1928,3,32370,0,'83.97.169.109',1462383162,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: TPrinter recent methods PrintImage() and SayText()\";}'),(3826,1,2598,3,32389,0,'151.57.46.136',1462484485,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"error on compile\";}'),(3827,3,500,0,0,500,'83.41.202.201',1462537084,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Pedro\";}'),(3828,1,2076,6,32399,0,'184.161.132.62',1462632504,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Error con bcc55 y xharbour 1.2.1\";}'),(3829,0,2,0,0,0,'66.249.93.101',1462684641,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:5:\"maria\";}'),(3830,1,2,0,0,0,'66.249.93.101',1462684641,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:5:\"maria\";}'),(3831,1,2,3,31569,0,'66.249.93.101',1462684662,'LOG_DELETE_POST','a:1:{i:0;s:11:\"ADORDD FAQs\";}'),(3832,1,2,16,32402,0,'66.249.93.101',1462684673,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Oferta de préstamo entre particular\";}'),(3833,1,2,21,32401,0,'66.249.93.97',1462684685,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"de empréstimo entre particular,\";}'),(3834,1,2,20,32227,0,'66.249.93.93',1462684699,'LOG_DELETE_POST','a:1:{i:0;s:32:\"offrono prestiti tra particolare\";}'),(3835,1,2,19,31970,0,'66.249.93.93',1462684713,'LOG_DELETE_POST','a:1:{i:0;s:30:\"offer loans between particular\";}'),(3836,1,2,19,31970,0,'66.249.93.101',1462684720,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Oferta de préstamo entre particular\";}'),(3837,1,2,6,8814,0,'66.249.93.97',1462684735,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Asociar Extencion de Archivos a mi Aplicación\";}'),(3838,1,2,6,8814,0,'66.249.93.97',1462684742,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Asociar Extencion de Archivos a mi Aplicación\";}'),(3839,3,53,0,0,53,'189.139.255.159',1462806366,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Armando\";}'),(3840,1,2,6,32413,0,'66.249.93.93',1462966347,'LOG_POST_EDITED','a:2:{i:0;s:44:\"Transacciones con Visual Fox Pro ODBC Driver\";i:1;s:7:\"lgarcia\";}'),(3841,1,868,3,32425,0,'117.195.209.76',1463049847,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Get and picture problem\";}'),(3842,1,1875,6,32421,0,'190.147.205.186',1463059781,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: txbrowse -   Workarea not in use ??\";}'),(3843,1,2598,3,32438,0,'151.37.93.35',1463242564,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: How change the size of a Bar... ( from final user)\";}'),(3844,1,2598,3,32438,0,'151.37.93.35',1463242575,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: How change the size of a Bar... ( from final user)\";}'),(3845,1,2,3,32442,0,'66.249.93.93',1463406459,'LOG_POST_EDITED','a:2:{i:0;s:59:\"BTNBMP 16.04 : Translucent buttons, Textured buttons, HGrad\";i:1;s:17:\"nageswaragunupudi\";}'),(3846,1,34,17,32390,0,'68.109.66.10',1463514740,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Visual Studio Community 2015 PRGs/CHs syntax coloring\";}'),(3847,1,3233,18,32449,0,'95.240.63.153',1463584301,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Modify for TEdit\";}'),(3848,1,868,3,32264,0,'124.123.48.55',1463594899,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: pagers for xBrowse\";}'),(3849,1,1257,3,32451,0,'78.50.22.1',1463597237,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: xBrowse how to show a button-seek-result on top\";}'),(3850,1,190,3,32455,0,'49.206.156.136',1463716775,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: error on menu\";}'),(3851,0,2,0,0,0,'66.249.93.93',1463739753,'LOG_ADMIN_AUTH_SUCCESS',''),(3852,3,2,0,0,936,'66.249.93.97',1463739780,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(3853,0,2,0,0,0,'66.249.93.97',1463739780,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"csincuir\";}'),(3854,0,2,0,0,0,'66.249.93.97',1464017901,'LOG_ADMIN_AUTH_SUCCESS',''),(3855,3,2,0,0,1914,'66.249.93.93',1464017929,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"aferra\";}'),(3856,0,2,0,0,0,'66.249.93.93',1464017929,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"aferra\";}'),(3857,3,1914,0,0,1914,'179.217.153.2',1464022865,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"aferra\";}'),(3858,1,2,3,32464,0,'47.59.182.163',1464075125,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Universal Windows Platform + Harbour + FiveWin\";}'),(3859,1,2,6,32465,0,'47.59.182.163',1464075148,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Universal Windows Platform + Harbour + FiveWin\";}'),(3860,3,92,0,0,92,'83.53.19.243',1464113795,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(3861,3,278,0,0,278,'186.11.10.183',1464182953,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"jcaro\";}'),(3862,1,1466,6,32507,0,'186.77.196.189',1464403143,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: Programas FiveWin-xHarbour-32 y Windows 10 64 bits\";}'),(3863,1,2,6,32506,0,'47.59.173.195',1464427355,'LOG_POST_EDITED','a:2:{i:0;s:14:\"Re: Harbour 32\";i:1;s:8:\"cnavarro\";}'),(3864,1,2,3,32509,0,'47.59.173.195',1464434263,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3865,1,2,3,32509,0,'47.59.173.195',1464504565,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:7:\"ukoenig\";}'),(3866,3,936,0,0,936,'186.151.60.113',1464641750,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(3867,3,936,0,0,936,'186.151.60.113',1464641750,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"csincuir\";i:1;s:26:\"csincuir@tecnisistemas.com\";i:2;s:24:\"sincuir.romero@gmail.com\";}'),(3868,0,2,0,0,0,'47.59.215.129',1464678644,'LOG_ADMIN_AUTH_SUCCESS',''),(3869,1,500,6,32513,0,'88.24.178.167',1464709387,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Se puede hacer esto ?\";}'),(3870,3,385,0,0,385,'93.188.138.1',1464778540,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"josei\";i:1;s:25:\"josei@canariastelecom.com\";i:2;s:20:\"jjimalalsd@gmail.com\";}'),(3871,1,868,3,32523,0,'124.123.48.55',1464783881,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: list of zipped files with date, time and size\";}'),(3872,1,41,6,32513,0,'181.114.82.80',1464826995,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Se puede hacer esto ?\";}'),(3873,1,2598,3,32536,0,'151.38.40.208',1465060170,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"array control\";}'),(3874,0,2,0,0,0,'47.59.174.106',1465412357,'LOG_ADMIN_AUTH_SUCCESS',''),(3875,3,2,0,0,428,'47.59.174.106',1465412459,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"infosys\";}'),(3876,0,2,0,0,0,'47.59.174.106',1465412459,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"infosys\";}'),(3877,1,2,3,32559,0,'47.59.174.106',1465491506,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Help with translations\";i:1;s:6:\"vilian\";}'),(3878,1,868,6,32550,0,'124.123.48.55',1465606777,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Ver PDF dentro de la aplicación\";}'),(3879,1,2598,3,29023,0,'151.47.206.164',1465665900,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: TTagEver class for FWH\";}'),(3880,1,2598,3,32541,0,'151.47.206.164',1465666017,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"TAGCLOUD\";}'),(3881,1,2342,6,32566,0,'87.216.164.51',1465814241,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Sugerencia de cambio a clase: TRibbonBar\";}'),(3882,0,2,0,0,0,'47.58.205.75',1465894565,'LOG_ADMIN_AUTH_SUCCESS',''),(3883,0,2,0,0,0,'47.58.205.75',1465894656,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"Marc Venken\";}'),(3884,0,2,0,0,0,'47.58.205.75',1465894663,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"Marc Venken\";}'),(3885,1,1257,3,32642,0,'92.224.210.217',1467104318,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Error on opening a DLL from FWH-samles (Windows10)\";}'),(3886,1,2598,3,32623,0,'212.131.197.246',1467111204,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: How to use RichText font attributes\";}'),(3887,1,1257,3,32643,0,'78.50.22.157',1467113992,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Error loading a DLL from FWH-samples windows10\";}'),(3888,1,2,3,32651,0,'77.211.181.29',1467276391,'LOG_POST_EDITED','a:2:{i:0;s:32:\"Re: TGet\'s Button problem-Solved\";i:1;s:15:\"richard-service\";}'),(3889,1,2598,3,32652,0,'212.131.197.246',1467288337,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"ascii table\";}'),(3890,1,868,3,32658,0,'124.123.48.55',1467365839,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"FWH : Built-in MySql/MariaDB functionality\";}'),(3891,0,2,0,0,0,'77.208.188.108',1467394744,'LOG_ADMIN_AUTH_SUCCESS',''),(3892,0,2,0,0,0,'77.208.188.108',1467394786,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"Ariovaldo\";}'),(3893,0,2,0,0,0,'77.208.188.108',1467394791,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"Ariovaldo\";}'),(3894,1,2076,6,32660,0,'207.236.254.202',1467643585,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: FWH : Built-in MySql/MariaDB functionality\";}'),(3895,1,180,6,32676,0,'176.84.172.67',1467826343,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Desplegar bmps en celdas de xbrowse\";}'),(3896,1,348,3,32704,0,'190.41.162.96',1468519705,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Crear listbox Array en tiempo de ejecucion listbox o xbrowse\";}'),(3897,1,2,3,32708,0,'46.222.255.133',1468605297,'LOG_POST_EDITED','a:2:{i:0;s:10:\"EasyReport\";i:1;s:4:\"Otto\";}'),(3898,2,1,0,0,0,'92.249.184.10',1468610402,'LOG_ERROR_EMAIL','a:1:{i:0;s:75:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><br />\";}'),(3899,1,1257,3,32717,0,'78.50.20.146',1468843174,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"A problem TFOLDEREX tab-images from resource ?\";}'),(3900,1,1914,3,31569,0,'189.123.65.240',1469129480,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: ADORDD FAQs\";}'),(3901,3,2040,0,0,2040,'89.141.48.219',1469264291,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"pgfdz\";}'),(3902,3,169,0,0,169,'177.54.203.235',1469405528,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(3903,3,92,0,0,92,'195.57.224.250',1469699457,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(3904,1,868,3,32758,0,'124.123.48.55',1469726144,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Error with xBrowse\";}'),(3905,1,177,6,32387,0,'82.130.230.14',1469741894,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: version de IE en oActivex:Do(Navigate)\";}'),(3906,3,53,0,0,53,'187.190.163.217',1469821625,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Armando\";i:1;s:24:\"soisa2002@prodigy.net.mx\";i:2;s:19:\"estbucarm@gmail.com\";}'),(3907,1,2,6,32725,0,'217.61.225.35',1469953647,'LOG_POST_EDITED','a:2:{i:0;s:34:\"clase TFiveUI de Cristobal Navarro\";i:1;s:5:\"Ariel\";}'),(3908,3,579,0,0,579,'148.246.242.161',1470329320,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"RodolfoRBG\";}'),(3909,1,303,3,32739,0,'68.7.205.228',1470407833,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Long Printer Names.\";}'),(3910,1,1257,3,32812,0,'92.224.208.169',1470852537,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"A problem activating TCALENDAR from resource\";}'),(3911,1,1313,3,32811,0,'179.184.65.94',1470912342,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"ADS - CHR(0)  append error\";}'),(3912,3,913,0,0,913,'201.114.209.226',1470966200,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"AIDA\";}'),(3913,1,2342,3,29991,0,'37.35.130.198',1471005945,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Introducing FiveTech\'s fivedit\";}'),(3914,1,2,19,32819,0,'217.61.225.35',1471025702,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(3915,1,1257,3,32820,0,'92.224.211.147',1471033645,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"A problem with TPRINTER pensize\";}'),(3916,1,1257,3,32823,0,'78.50.20.215',1471128758,'LOG_DELETE_TOPIC','a:1:{i:0;s:53:\"xBrowse bClrStd defined with a calculated intervall ?\";}'),(3917,1,303,3,30856,0,'68.7.205.228',1471185997,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Windows 10 version\";}'),(3918,3,169,0,0,169,'177.54.199.32',1471204142,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(3919,1,2,3,18934,0,'217.61.225.35',1471343573,'LOG_UNLOCK','a:1:{i:0;s:13:\"New FWH 16.06\";}'),(3920,3,92,0,0,92,'176.80.141.59',1471426191,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(3921,1,1880,6,32833,0,'190.247.180.150',1471434558,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Ejemplo TdosPrn\";}'),(3922,3,169,0,0,169,'177.54.203.12',1471643369,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(3923,0,2,0,0,0,'217.61.225.35',1471935634,'LOG_ADMIN_AUTH_SUCCESS',''),(3924,0,2,0,0,0,'217.61.225.35',1471935832,'LOG_ADMIN_AUTH_SUCCESS',''),(3925,3,2,0,0,1013,'217.61.225.35',1471935884,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:18:\"Marcelo De La Cruz\";}'),(3926,0,2,0,0,0,'217.61.225.35',1471935884,'LOG_USER_USER_UPDATE','a:1:{i:0;s:18:\"Marcelo De La Cruz\";}'),(3927,3,3640,0,0,3640,'190.160.7.146',1471981373,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"kpidata2016\";}'),(3928,3,1158,0,0,1158,'186.210.108.229',1472060763,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"norberto\";}'),(3929,3,1158,0,0,1158,'186.210.108.229',1472060763,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"norberto\";i:1;s:16:\"nlfcorp@live.com\";i:2;s:16:\"nlfo@outlook.com\";}'),(3930,1,2342,6,32885,0,'37.35.130.198',1472257550,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Clase TCalex algunos problemitas....\";}'),(3931,3,1011,0,0,1011,'112.198.102.240',1472761189,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"toyet\";}'),(3932,0,2,0,0,0,'217.61.225.35',1472939940,'LOG_ADMIN_AUTH_SUCCESS',''),(3933,0,2,0,0,0,'217.61.225.35',1472939957,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"vinhesoft\";}'),(3934,0,2,0,0,0,'217.61.225.35',1472939962,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"vinhesoft\";}'),(3935,1,52,6,32919,0,'200.107.103.138',1473163370,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"OT: mysql me informa el numero de ip\";}'),(3936,3,1316,0,0,1316,'192.119.208.34',1473190504,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Perry Nichols\";}'),(3937,1,52,6,32925,0,'200.107.103.138',1473248139,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"No se como se hace esto del MENUITEM\";}'),(3938,0,2,0,0,0,'217.61.225.35',1473409802,'LOG_ADMIN_AUTH_SUCCESS',''),(3939,3,2,0,0,207,'217.61.225.35',1473409830,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Miguel Salas\";}'),(3940,0,2,0,0,0,'217.61.225.35',1473409830,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Miguel Salas\";}'),(3941,1,1313,6,32936,0,'177.156.121.128',1473476157,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Função para Modificar TAG XML\";}'),(3942,1,47,3,32942,0,'124.122.155.150',1473677034,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"How does the CUEBANNER work?\";}'),(3943,0,2,0,0,0,'217.61.225.35',1473868507,'LOG_ADMIN_AUTH_SUCCESS',''),(3944,0,2,0,0,0,'217.61.225.35',1473868542,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"wmanesco\";}'),(3945,0,2,0,0,0,'217.61.225.35',1473868547,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"wmanesco\";}'),(3946,1,3666,3,32954,0,'179.221.193.26',1473879367,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"TIPClientHTTP with SSL error\";}'),(3947,1,2,6,32962,0,'217.61.225.35',1474021100,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:43:\"Servicio de desarrollo de FiveTech software\";}'),(3948,1,2,3,32961,0,'217.61.225.35',1474021127,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:38:\"FiveTech software development services\";}'),(3949,1,34,3,32955,0,'68.109.66.10',1474302587,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: GET for xBrowse\";}'),(3950,0,2,0,0,0,'217.61.225.35',1474671163,'LOG_ADMIN_AUTH_SUCCESS',''),(3951,3,2,0,0,1688,'217.61.225.35',1474671190,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:20:\"juan carlos bellucci\";}'),(3952,0,2,0,0,0,'217.61.225.35',1474671190,'LOG_USER_USER_UPDATE','a:1:{i:0;s:20:\"juan carlos bellucci\";}'),(3953,1,868,3,32988,0,'124.123.8.85',1474723083,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Tempory Recordset question\";}'),(3954,1,2,6,32996,0,'217.61.225.35',1474916448,'LOG_POST_EDITED','a:2:{i:0;s:55:\"Re: bcc32.exe en FWH901 Error en Windows 10 Anniversary\";i:1;s:7:\"karinha\";}'),(3955,1,1313,3,33022,0,'189.58.156.39',1475462972,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Calendar integrated with Google Calendar\";}'),(3956,0,2,0,0,0,'217.61.225.35',1475740568,'LOG_ADMIN_AUTH_SUCCESS',''),(3957,0,2,0,0,0,'217.61.225.35',1475740608,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"albertk\";}'),(3958,0,2,0,0,0,'217.61.225.35',1475740613,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"albertk\";}'),(3959,1,6,3,33035,0,'79.23.210.141',1475741172,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: last xharbour compile error\";}'),(3960,1,1880,3,23050,0,'190.247.180.150',1475784436,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: OLEUninitialize()\";}'),(3961,0,2,0,0,0,'217.61.225.35',1476202690,'LOG_ADMIN_AUTH_SUCCESS',''),(3962,0,2,0,0,0,'217.61.225.35',1476202706,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:11:\"jpcavagnaro\";}'),(3963,0,2,0,0,0,'217.61.225.35',1476202710,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:11:\"jpcavagnaro\";}'),(3964,0,2,0,0,0,'217.61.225.35',1476202854,'LOG_ADMIN_AUTH_SUCCESS',''),(3965,0,2,0,0,0,'217.61.225.35',1476202878,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"aflm\";}'),(3966,0,2,0,0,0,'217.61.225.35',1476202882,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"aflm\";}'),(3967,1,239,3,33049,0,'183.41.34.182',1476239711,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"new nsis 3.0 lzma fixed out file too big\";}'),(3968,1,2598,6,33026,0,'212.131.197.246',1476446367,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Re: xSlot\";}'),(3969,1,1886,3,20763,0,'82.130.160.222',1476471171,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Import and Export to Excel\";}'),(3970,1,1313,6,33061,0,'189.26.160.228',1476635849,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"TDOLPHIN - Download ultima versão\";}'),(3971,1,1313,6,33085,0,'189.58.159.136',1477006538,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"GETSYSFONT Problema\";}'),(3972,1,6,3,33090,0,'79.23.210.141',1477208111,'LOG_POST_EDITED','a:2:{i:0;s:45:\"Re: Crystal Reports upgrade 8.5 to Release 10\";i:1;s:8:\"RiazKhan\";}'),(3973,3,1527,0,0,1527,'187.183.107.96',1478297681,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"ORibeiro\";i:1;s:15:\"oasys@ig.com.br\";i:2;s:18:\"oscar@oasysitu.com\";}'),(3974,0,2,0,0,0,'217.61.225.35',1478447704,'LOG_ADMIN_AUTH_SUCCESS',''),(3975,3,2,0,0,1984,'217.61.225.35',1478447772,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Uwe.Diemer\";}'),(3976,0,2,0,0,0,'217.61.225.35',1478447772,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Uwe.Diemer\";}'),(3977,0,2,0,0,0,'217.61.225.35',1478511917,'LOG_ADMIN_AUTH_SUCCESS',''),(3978,0,2,0,0,0,'217.61.225.35',1478629761,'LOG_ADMIN_AUTH_SUCCESS',''),(3979,0,2,0,0,0,'217.61.225.35',1478629780,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:7:\"Eprousa\";}'),(3980,1,2,0,0,0,'217.61.225.35',1478629780,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:7:\"Eprousa\";}'),(3981,1,107,2,33165,0,'178.57.135.40',1478795624,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"enventos del mouse en MDI\";}'),(3982,1,2,3,33168,0,'217.61.225.35',1479071436,'LOG_MOVE','a:2:{i:0;s:23:\"Off Topic / Otros temas\";i:1;s:28:\"FiveWin for Harbour/xHarbour\";}'),(3983,1,1313,6,33181,0,'177.96.64.210',1479219080,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Borland ou Microsoft Visual Studio\";}'),(3984,3,1741,0,0,1741,'95.226.54.113',1479226065,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"solving\";}'),(3985,3,3182,0,0,3182,'169.239.72.25',1479743823,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"dagiayunus\";}'),(3986,1,3182,3,33056,0,'169.239.72.25',1479744288,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: TELEGRAM with FIVEWIN (Tutorial)\";}'),(3987,1,35,6,24025,0,'172.74.196.165',1479851988,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Mejoras para scintilla\";}'),(3988,3,870,0,0,870,'200.198.58.34',1479925470,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"ip_ram\";}'),(3989,1,868,3,33208,0,'124.123.10.179',1480075176,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Icons in column xBrowse\";}'),(3990,1,1257,3,33217,0,'92.224.208.177',1480608609,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FWH 16.11 Texured Fonts\";}'),(3991,0,2,0,0,0,'217.61.225.35',1480693230,'LOG_ADMIN_AUTH_SUCCESS',''),(3992,3,2,0,0,278,'217.61.225.35',1480693293,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"jcaro\";}'),(3993,0,2,0,0,0,'217.61.225.35',1480693293,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"jcaro\";}'),(3994,1,2076,6,33266,0,'207.236.254.202',1480703978,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Ejemplo en la Wiki para FWH 16.05 ?\";}'),(3995,0,2,0,0,0,'217.61.225.35',1480804540,'LOG_ADMIN_AUTH_SUCCESS',''),(3996,0,2,0,0,0,'217.61.225.35',1480804563,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"lmheimendinger\";}'),(3997,0,2,0,0,0,'217.61.225.35',1480804567,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"lmheimendinger\";}'),(3998,1,2,3,33286,0,'217.61.225.35',1480952725,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:37:\"FWH MySQL/MariaDB native support docs\";}'),(3999,1,3725,1,33277,0,'50.35.67.229',1480956431,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: multiple defintions, forst defined here\";}'),(4000,1,2598,3,33301,0,'151.57.65.166',1481148428,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"How create an alphabetic ... index...\";}'),(4001,1,107,3,33310,0,'85.60.77.8',1481279514,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Lentitud en RED\";}'),(4002,0,2,0,0,0,'217.61.225.35',1481408949,'LOG_ADMIN_AUTH_SUCCESS',''),(4003,0,2,0,0,0,'217.61.225.35',1481408967,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"José\";}'),(4004,0,2,0,0,0,'217.61.225.35',1481408971,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"José\";}'),(4005,1,1911,6,33077,0,'181.59.91.177',1481853427,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Versão atual TDOLPHIN - Campo Null\";}'),(4006,1,1397,6,33254,0,'190.199.108.116',1481951983,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 16.11\";}'),(4007,1,6,19,33366,0,'95.252.249.104',1482249499,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"I am the new one\";}'),(4008,0,2,0,0,0,'217.61.225.35',1482261019,'LOG_ADMIN_AUTH_SUCCESS',''),(4009,0,2,0,0,0,'217.61.225.35',1482261071,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:8:\"Fernando\";}'),(4010,1,2,0,0,0,'217.61.225.35',1482261071,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:8:\"Fernando\";}'),(4011,1,2,19,33390,0,'217.61.225.35',1482651677,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4012,1,163,3,33392,0,'149.35.14.57',1482765745,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Merry Christmas\";}'),(4013,1,34,3,33376,0,'68.109.88.62',1482781287,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: FWH 16.12 : Display Seek values in Header Search Bar\";}'),(4014,1,36,6,33406,0,'190.209.35.192',1482946019,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Imagen -  agregar texto y grabarla\";}'),(4015,1,2076,6,32945,0,'45.74.183.253',1483325396,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: De Tscript a Script de Harbour\";}'),(4016,1,92,6,33419,0,'195.57.224.250',1483356345,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: como puedo corregir este error que tengo en codigo?\";}'),(4017,1,868,3,33434,0,'117.195.197.127',1483654303,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: xBrowse Font Problem\";}'),(4018,1,2598,3,33437,0,'94.163.125.92',1483655194,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Disable some buttons on ribbonbar\";}'),(4019,1,2,6,33438,0,'217.61.225.35',1483778689,'LOG_POST_EDITED','a:2:{i:0;s:22:\"PROBLEMAS CON MEMOREAD\";i:1;s:6:\"jbrita\";}'),(4020,1,3666,3,33469,0,'191.187.231.214',1484171949,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Code for Google OAuth2 available\";}'),(4021,1,348,3,33480,0,'190.41.162.96',1484252221,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Crear un archivo Zip\";}'),(4022,1,644,6,33482,0,'190.19.129.118',1484353387,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Xbrowse con edicion automatica\";}'),(4023,1,2598,3,25783,0,'94.166.134.197',1484496052,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"tree with xbrowse\";}'),(4024,1,52,6,33508,0,'190.113.183.82',1484640209,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"bucanero.pdf\";}'),(4025,1,89,3,33544,0,'95.240.152.242',1485280172,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"MariaDB and select  SOLVED\";}'),(4026,1,2598,3,33570,0,'212.131.197.246',1485765176,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"DIALOG STYLE\";}'),(4027,1,644,6,33580,0,'190.19.129.118',1485982074,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Problemas con menues\";}'),(4028,0,2,0,0,0,'217.61.225.35',1486145118,'LOG_ADMIN_AUTH_SUCCESS',''),(4029,3,2,0,0,207,'217.61.225.35',1486145158,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Miguel Salas\";}'),(4030,0,2,0,0,0,'217.61.225.35',1486145158,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Miguel Salas\";}'),(4031,1,396,6,33593,0,'186.90.150.8',1486170045,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: error al totalizar columna xbrowse\";}'),(4032,1,644,6,33580,0,'190.19.129.118',1486207568,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Problemas con menues\";}'),(4033,1,2342,6,33580,0,'87.221.83.43',1486248720,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Problemas con menues\";}'),(4034,1,1178,6,33604,0,'186.81.60.246',1486308840,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Buscar los DLL de mi proyecto\";}'),(4035,0,2,0,0,0,'217.61.225.35',1486375550,'LOG_ADMIN_AUTH_SUCCESS',''),(4036,3,2,0,0,3419,'217.61.225.35',1486375893,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"sajarm\";}'),(4037,0,2,0,0,0,'217.61.225.35',1486375893,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"sajarm\";}'),(4038,1,1794,6,26731,0,'80.32.19.89',1486470884,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Ayuda para leer peso de una bascula\";}'),(4039,1,2,3,33515,0,'217.61.225.35',1486550682,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:50:\"1st FWH + [x]Harbour 2017 international conference\";}'),(4040,0,2,0,0,0,'193.152.133.28',1486654761,'LOG_ADMIN_AUTH_SUCCESS',''),(4041,0,2,0,0,0,'193.152.133.28',1486654776,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:12:\"BarryNielsen\";}'),(4042,0,2,0,0,0,'193.152.133.28',1486654780,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:12:\"BarryNielsen\";}'),(4043,1,868,6,33636,0,'183.82.160.116',1486877770,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: HB_UnzipFile()\";}'),(4044,1,1880,6,33650,0,'190.246.158.11',1487073087,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Error de linkeo\";}'),(4045,3,500,0,0,500,'83.39.130.224',1487236327,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Pedro\";}'),(4046,1,2598,3,33672,0,'94.161.39.144',1487418548,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Rating Class\";}'),(4047,1,2598,3,33673,0,'5.87.77.225',1487501555,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Help to Build a class\";}'),(4048,0,2,0,0,0,'217.61.225.35',1487662007,'LOG_ADMIN_AUTH_SUCCESS',''),(4049,3,3182,0,0,3182,'169.239.72.25',1487696033,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"dagiayunus\";}'),(4050,1,870,6,12759,0,'200.198.58.33',1487782736,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 17.01\";}'),(4051,1,870,6,33665,0,'200.198.58.33',1487782751,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"FWH 17.01 suporta Firebird?\";}'),(4052,1,3776,17,33691,0,'138.197.195.90',1487843628,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"How To Get Affordable Live Chat Outsource Agents!\";}'),(4053,1,6,16,32157,0,'79.42.212.141',1487886931,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Harbour 3.2 for Borland bcc 7.1 64 bits !!!\";}'),(4054,1,870,21,33213,0,'200.198.41.70',1487941970,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Assinador digital\";}'),(4055,1,870,3,30301,0,'200.198.41.70',1487941985,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Someone uses Firebird?\";}'),(4056,1,2,6,33705,0,'217.61.225.35',1488214185,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(4057,1,1535,6,33693,0,'83.39.193.111',1488216669,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: OT Resolucion en Tablet\";}'),(4058,1,2,6,33705,0,'217.61.225.35',1488264279,'LOG_POST_EDITED','a:2:{i:0;s:60:\"Respetuosamente: Carta abierta a TODOS los miembros del foro\";i:1;s:8:\"HunterEC\";}'),(4059,1,2,6,33705,0,'217.61.225.35',1488264323,'LOG_POST_EDITED','a:2:{i:0;s:60:\"Respetuosamente: Carta abierta a TODOS los miembros del foro\";i:1;s:8:\"HunterEC\";}'),(4060,1,24,6,33688,0,'188.77.249.53',1488318421,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Ayuda acerca de variable con un XML\";}'),(4061,1,2598,3,33724,0,'94.161.231.8',1488558628,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Problem with combobox\";}'),(4062,1,2598,3,33724,0,'94.161.231.8',1488558638,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Problem with combobox\";}'),(4063,1,2598,3,33726,0,'94.161.231.8',1488560467,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: SHOWWINDOW,  SETFOREGROUNDWIND\";}'),(4064,0,2,0,0,0,'217.61.225.35',1489117234,'LOG_ADMIN_AUTH_SUCCESS',''),(4065,3,913,0,0,913,'201.114.200.218',1489135888,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"AIDA\";}'),(4066,1,2598,3,33772,0,'5.86.142.4',1489510520,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: circolar grapphics\";}'),(4067,1,868,6,33785,0,'183.82.160.218',1489755681,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Windows MDI Transparentes\";}'),(4068,3,3623,0,0,3623,'190.162.205.116',1489758117,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"kpidata\";}'),(4069,1,868,3,33800,0,'183.82.160.218',1490015462,'LOG_POST_EDITED','a:2:{i:0;s:51:\"Re: FWH 17.03 Work with Remote + Embedded using ADO\";i:1;s:9:\"hmpaquito\";}'),(4070,1,868,3,33800,0,'183.82.160.218',1490016078,'LOG_POST_EDITED','a:2:{i:0;s:51:\"Re: FWH 17.03 Work with Remote + Embedded using ADO\";i:1;s:9:\"hmpaquito\";}'),(4071,1,2076,6,33802,0,'207.236.254.202',1490111424,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Eagle1 para BCC7 y Harbour 3.2\";}'),(4072,1,2530,3,33687,0,'179.176.176.141',1490136171,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Someone has news about Codemaker ?\";}'),(4073,3,1392,0,0,1392,'77.117.186.129',1490459627,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"ali\";}'),(4074,3,1392,0,0,1392,'77.117.186.129',1490459627,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:3:\"ali\";i:1;s:21:\"a.richter@winhotel.at\";i:2;s:28:\"aljoscha.richter@outlook.com\";}'),(4075,3,147,0,0,147,'200.126.197.31',1490613378,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MarioG\";}'),(4076,1,2,19,33844,0,'217.61.225.35',1490639725,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Paquete de xBase en 2017\";}'),(4077,0,2,0,0,0,'217.61.225.35',1490639781,'LOG_ADMIN_AUTH_SUCCESS',''),(4078,0,2,0,0,0,'217.61.225.35',1490639804,'LOG_USER_INACTIVE','a:1:{i:0;s:4:\"msdn\";}'),(4079,3,2,0,0,3806,'217.61.225.35',1490639804,'LOG_USER_INACTIVE_USER',''),(4080,1,2076,6,26443,0,'207.236.254.202',1490745262,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: eagle fw + mysql\";}'),(4081,1,2,3,18934,0,'217.61.225.35',1490782350,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 17.01\";}'),(4082,1,2,3,18934,0,'217.61.225.35',1490782360,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 17.01\";}'),(4083,1,2,3,18934,0,'217.61.225.35',1490782370,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 17.01\";}'),(4084,1,2,3,18934,0,'217.61.225.35',1490782379,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 17.01\";}'),(4085,1,2,3,18934,0,'217.61.225.35',1490782394,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 17.01\";}'),(4086,1,2,3,18934,0,'217.61.225.35',1490782404,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 17.03\";}'),(4087,1,2,6,12759,0,'217.61.225.35',1490782426,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Nuevo FWH 16.12\";}'),(4088,0,2,0,0,0,'217.61.225.35',1490817010,'LOG_ADMIN_AUTH_SUCCESS',''),(4089,0,2,0,0,0,'217.61.225.35',1490817030,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"vork\";}'),(4090,0,2,0,0,0,'217.61.225.35',1490817035,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"vork\";}'),(4091,1,396,6,33871,0,'190.79.83.33',1490994612,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Ventana de instalacion MySQL\";}'),(4092,0,2,0,0,0,'217.61.225.35',1491054440,'LOG_ADMIN_AUTH_FAIL',''),(4093,0,2,0,0,0,'217.61.225.35',1491054448,'LOG_ADMIN_AUTH_FAIL',''),(4094,0,2,0,0,0,'217.61.225.35',1491054496,'LOG_ADMIN_AUTH_FAIL',''),(4095,0,2,0,0,0,'217.61.225.35',1491054519,'LOG_ADMIN_AUTH_FAIL',''),(4096,0,2,0,0,0,'217.61.225.35',1491054546,'LOG_ADMIN_AUTH_SUCCESS',''),(4097,0,2,0,0,0,'217.61.225.35',1491054589,'LOG_USER_INACTIVE','a:1:{i:0;s:10:\"calixsteve\";}'),(4098,3,2,0,0,3811,'217.61.225.35',1491054589,'LOG_USER_INACTIVE_USER',''),(4099,1,2,19,33873,0,'217.61.225.35',1491054622,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Quality Mobile App Developers in Dubai\";}'),(4100,0,2,0,0,0,'217.61.225.35',1491210981,'LOG_ADMIN_AUTH_SUCCESS',''),(4101,3,2,0,0,2137,'217.61.225.35',1491211037,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Mulyadi\";}'),(4102,0,2,0,0,0,'217.61.225.35',1491211037,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"Mulyadi\";}'),(4103,1,2342,6,33878,0,'85.54.225.155',1491378034,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: TCALEX - Sr. Cristobal Navarro\";}'),(4104,1,868,18,33872,0,'183.82.162.161',1491441752,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Bug in HasAlpha()\";}'),(4105,0,2,0,0,0,'217.61.225.35',1491499507,'LOG_ADMIN_AUTH_SUCCESS',''),(4106,0,2,0,0,0,'217.61.225.35',1491499521,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"agallardo\";}'),(4107,0,2,0,0,0,'217.61.225.35',1491499525,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"agallardo\";}'),(4108,0,2,0,0,0,'217.61.225.35',1491842862,'LOG_ADMIN_AUTH_SUCCESS',''),(4109,0,2,0,0,0,'217.61.225.35',1491842877,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"ideinsj\";}'),(4110,0,2,0,0,0,'217.61.225.35',1491842881,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"ideinsj\";}'),(4111,1,2076,6,26443,0,'207.236.254.202',1492030622,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: eagle fw + mysql\";}'),(4112,1,1313,3,33898,0,'179.184.65.94',1492102055,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Tcalex printing\";}'),(4113,1,2076,6,33913,0,'207.236.254.202',1492127106,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Diferencia entre _parnl() y hb_parnl()\";}'),(4114,1,2076,6,33802,0,'207.236.254.202',1492127121,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Eagle1 para BCC7 y Harbour 3.2\";}'),(4115,1,2076,6,32524,0,'207.236.254.202',1492127142,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Migrar de E1 a TDolphin\";}'),(4116,0,2,0,0,0,'217.61.225.35',1492329216,'LOG_ADMIN_AUTH_SUCCESS',''),(4117,3,2,0,0,279,'217.61.225.35',1492329263,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"maecmx\";}'),(4118,0,2,0,0,0,'217.61.225.35',1492329263,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"maecmx\";}'),(4119,1,2076,6,33767,0,'45.74.211.188',1492348851,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Error: Unresolved external \'_HB_FUN___CLS_PARAM\' referenced\";}'),(4120,1,303,3,33930,0,'68.7.224.104',1492535420,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Borland Make Utility Issues\";}'),(4121,1,2944,6,33939,0,'189.245.172.133',1492633192,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Construir Harbour con BCC 7.1\";}'),(4122,1,1535,6,33522,0,'88.11.233.6',1492708683,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Suministro Inmediato de Informacion - SII\";}'),(4123,1,1535,6,33522,0,'88.11.233.6',1492708690,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Suministro Inmediato de Informacion - SII\";}'),(4124,1,1535,6,33522,0,'88.11.233.6',1492708707,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Suministro Inmediato de Informacion - SII\";}'),(4125,1,2,6,31358,0,'217.61.225.35',1492806479,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Adios borland c\";i:1;s:7:\"Compuin\";}'),(4126,1,2598,3,33958,0,'94.166.12.153',1492949179,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Problem to populate a combobox\";}'),(4127,1,2598,3,33959,0,'94.166.12.153',1492951010,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"where is the tpanel ?\";}'),(4128,1,1875,6,33961,0,'190.147.205.186',1493250315,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Hdo para Mysql\";}'),(4129,3,147,0,0,147,'181.29.209.196',1493307791,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MarioG\";}'),(4130,0,2,0,0,0,'217.61.225.35',1493366836,'LOG_ADMIN_AUTH_SUCCESS',''),(4131,3,2,0,0,578,'217.61.225.35',1493366862,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"xProgrammer\";}'),(4132,0,2,0,0,0,'217.61.225.35',1493366862,'LOG_USER_USER_UPDATE','a:1:{i:0;s:11:\"xProgrammer\";}'),(4133,1,3589,3,33986,0,'179.217.189.167',1493421117,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: FWH 17.04: BtnBmp: Symbol Fonts as bitmaps\";}'),(4134,3,3827,0,0,3827,'186.92.16.234',1493731310,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:20:\"fridgar@yahoo.com.ve\";}'),(4135,1,2076,6,34000,0,'207.236.254.202',1493752407,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"xEdit para BCC7 y Harbour 3.2\";}'),(4136,0,2,0,0,0,'217.61.225.35',1493991058,'LOG_ADMIN_AUTH_SUCCESS',''),(4137,1,303,3,34013,0,'68.7.224.104',1494006466,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Ribbon tab color MICROSOFT OFFICE 2016\";}'),(4138,1,1728,6,34022,0,'189.241.212.26',1494088436,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Imprimir imagen con TPrinter\";}'),(4139,3,2819,0,0,2819,'189.190.92.111',1494093221,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"VitalJavier\";}'),(4140,1,2,17,34032,0,'217.61.225.35',1494242418,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Suggest any Freeware PST Repair Tool\";i:1;s:8:\"Baxajaun\";}'),(4141,1,47,3,29045,0,'183.88.78.203',1494316036,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Crystal report with Mysql\";}'),(4142,1,1535,6,34048,0,'88.11.232.188',1494429108,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: error en xbrowse o FWH ???\";}'),(4143,1,1078,3,32737,0,'177.103.70.171',1494682060,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: FWH: MySql/MariaDB:  RowSet object\";}'),(4144,0,2,0,0,0,'217.61.225.35',1494739446,'LOG_ADMIN_AUTH_SUCCESS',''),(4145,0,2,0,0,0,'217.61.225.35',1494739469,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"buitragoaagusb\";}'),(4146,0,2,0,0,0,'217.61.225.35',1494739473,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"buitragoaagusb\";}'),(4147,3,78,0,0,78,'191.97.53.246',1494880865,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Willi Quintana\";}'),(4148,3,1741,0,0,1741,'95.226.54.113',1494924402,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"solving\";}'),(4149,1,2,17,34078,0,'217.61.225.35',1494964100,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(4150,3,78,0,0,78,'191.97.53.246',1494988138,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Willi Quintana\";}'),(4151,1,2598,3,34076,0,'94.162.64.200',1495042839,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Harbour Problems\";}'),(4152,3,110,0,0,110,'200.85.175.26',1495044035,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"carlos vargas\";}'),(4153,1,2598,3,34082,0,'94.167.74.17',1495061395,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"vMenu on Harbour\";}'),(4154,1,2,6,34081,0,'217.61.225.35',1495088752,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:29:\"FiveWin para Harbour/xHarbour\";}'),(4155,3,3833,0,0,3833,'88.11.232.24',1495113853,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"juanp\";i:1;s:24:\"misael.protege@gmail.com\";i:2;s:19:\"juanp0001@gmail.com\";}'),(4156,3,1981,0,0,1981,'200.68.62.252',1495124949,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jgayoso\";i:1;s:15:\"jgayoso@fasa.cl\";i:2;s:18:\"jgayoso@ahumada.cl\";}'),(4157,1,303,44,33945,0,'68.7.224.104',1495147915,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Artificial intelligence - Class TPerceptron\";}'),(4158,0,2,0,0,0,'217.61.225.35',1495433707,'LOG_ADMIN_AUTH_SUCCESS',''),(4159,0,2,0,0,0,'217.61.225.35',1495433722,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:16:\"Everson Carvalho\";}'),(4160,0,2,0,0,0,'217.61.225.35',1495433726,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:16:\"Everson Carvalho\";}'),(4161,1,2598,3,34104,0,'5.87.178.8',1495471240,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: convert C to fivewin\";}'),(4162,1,2076,6,34115,0,'207.236.254.202',1495724533,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Toutlook 2003..donde la consigo ?\";}'),(4163,1,303,3,34006,0,'68.7.224.104',1496188030,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Tdata still Up to Date ?\";}'),(4164,1,868,3,34118,0,'124.123.10.124',1496227741,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: PostgresSQL from core-master\\contrib\\hbpgsql\";}'),(4165,1,2,19,34147,0,'217.61.225.35',1496303740,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4166,1,2598,3,32442,0,'94.166.173.101',1496396832,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: BTNBMP 16.04 : Translucent buttons, Textured buttons, HGrad\";}'),(4167,1,2,3,33755,0,'217.61.225.35',1496610954,'LOG_POST_EDITED','a:2:{i:0;s:49:\"Re: FAQ - 1st [x]Harbour INTERNATIONAL CONFERENCE\";i:1;s:4:\"Ruth\";}'),(4168,1,2598,3,34162,0,'94.162.246.36',1496691055,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"variantes\";}'),(4169,1,2,17,34175,0,'217.61.225.35',1496846887,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(4170,1,2598,3,34165,0,'5.86.149.224',1496920383,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: xbrowse tree\";}'),(4171,1,2598,3,34165,0,'5.86.149.224',1496920392,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"xbrowse tree\";}'),(4172,1,868,3,33515,0,'183.82.162.181',1497678890,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: 1st FWH + [x]Harbour 2017 international conference\";}'),(4173,1,868,3,33515,0,'183.82.162.181',1497678977,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: 1st FWH + [x]Harbour 2017 international conference\";}'),(4174,3,169,0,0,169,'177.54.194.237',1497793945,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(4175,1,2342,6,24025,0,'85.54.236.40',1498077850,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Mejoras para scintilla\";}'),(4176,1,2342,3,34262,0,'85.59.186.226',1498393015,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Top-level menu in print-preview\";}'),(4177,1,3182,3,34264,0,'169.239.72.25',1498506778,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"OFF-TPOIC (EID-MUBARAK)\";}'),(4178,1,449,3,34279,0,'81.44.204.18',1498766272,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Example Business Object (Customer)\";}'),(4179,3,1356,0,0,1356,'88.16.50.34',1498999930,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"RBLANCO\";i:1;s:14:\"mpxzz@yahoo.es\";i:2;s:20:\"rlblanco17@gmail.com\";}'),(4180,3,1215,0,0,1215,'91.141.0.85',1499066039,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Patrizio\";}'),(4181,1,1178,6,34296,0,'186.84.216.116',1499183576,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Error al compilar con Xharbour Comercial\";}'),(4182,1,2,19,34295,0,'77.119.251.147',1499225687,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4183,1,2,17,34286,0,'77.119.251.147',1499225721,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(4184,1,2,3,34258,0,'217.61.225.35',1499474779,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: 1st FWH + [x]Harbour 2017 international conference\";i:1;s:4:\"Otto\";}'),(4185,1,2,3,34258,0,'217.61.225.35',1499488026,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: 1st FWH + [x]Harbour 2017 international conference\";i:1;s:4:\"Otto\";}'),(4186,1,303,3,34310,0,'68.7.224.104',1499493249,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Final conversion 16 bit to FWH\";}'),(4187,1,303,3,34310,0,'68.7.224.104',1499494414,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Final conversion 16 bit to FWH\";}'),(4188,3,415,0,0,415,'186.29.146.6',1499628762,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"MauroArevalo\";}'),(4189,1,303,3,34324,0,'68.7.224.104',1499802047,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: oBrw:Report\";}'),(4190,3,1676,0,0,1676,'49.144.114.215',1500008443,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"ryugarai27\";}'),(4191,1,34,3,34336,0,'68.109.65.18',1500226942,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Data Retrieval : XML output\";}'),(4192,3,891,0,0,891,'187.189.50.17',1500306664,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(4193,1,35,3,34358,0,'172.74.196.165',1500558569,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: ADO and decimal numbers\";}'),(4194,1,3777,3,34366,0,'172.58.12.75',1500683334,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Test GPS  Error  en  encontrado\";}'),(4195,1,1344,3,34376,0,'78.94.72.158',1501160486,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Alignment of column CHAR in Xbrowse\";}'),(4196,3,439,0,0,439,'167.60.19.178',1501295647,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"jose_murugosa\";}'),(4197,3,3687,0,0,3687,'200.81.153.239',1501355541,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"jpcavagnaro\";}'),(4198,1,868,3,32657,0,'124.123.11.248',1501704246,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: FWH 16.08 : Built-in MySql/MariaDB functionality (Updated )\";}'),(4199,1,1313,3,34415,0,'186.212.77.42',1501728309,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"MYSQL - service stops running\";}'),(4200,3,622,0,0,622,'190.242.118.3',1502224014,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"mario_san_insig\";}'),(4201,3,169,0,0,169,'177.54.195.193',1502455846,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"toninhofwi\";}'),(4202,0,2,0,0,0,'85.63.73.197',1502753270,'LOG_ADMIN_AUTH_SUCCESS',''),(4203,0,2,0,0,0,'85.63.73.197',1502753365,'LOG_FORUM_ADD','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4204,0,2,0,0,0,'85.63.73.197',1502753394,'LOG_FORUM_MOVE_UP','a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4205,0,2,0,0,0,'85.63.73.197',1502753470,'LOG_FORUM_ADD','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4206,0,2,0,0,0,'85.63.73.197',1502753524,'LOG_FORUM_DEL_POSTS','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4207,0,2,0,0,0,'85.63.73.197',1502753588,'LOG_FORUM_ADD','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4208,0,2,0,0,0,'85.63.73.197',1502753938,'LOG_FORUM_ADD','a:1:{i:0;s:30:\"TensorFlow and Python examples\";}'),(4209,0,2,0,0,0,'85.63.73.197',1502754015,'LOG_FORUM_DEL_POSTS','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4210,0,2,0,0,0,'85.63.73.197',1502754202,'LOG_FORUM_SYNC','a:1:{i:0;s:30:\"TensorFlow and Python examples\";}'),(4211,0,2,0,0,0,'85.63.73.197',1502754311,'LOG_FORUM_ADD','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4212,0,2,0,0,0,'85.63.73.197',1502754370,'LOG_FORUM_ADD','a:1:{i:0;s:30:\"TensorFlow and Python examples\";}'),(4213,0,2,0,0,0,'85.63.73.197',1502755412,'LOG_FORUM_EDIT','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4214,0,2,0,0,0,'85.63.73.197',1502755453,'LOG_FORUM_DEL_POSTS_FORUMS','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4215,0,2,0,0,0,'85.63.73.197',1502755477,'LOG_FORUM_EDIT','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4216,0,2,0,0,0,'85.63.73.197',1502755505,'LOG_FORUM_ADD','a:1:{i:0;s:30:\"TensorFlow and Python examples\";}'),(4217,0,2,0,0,0,'85.63.73.197',1502755584,'LOG_FORUM_ADD','a:1:{i:0;s:34:\"TensorFlow.dll for Harbour and FWH\";}'),(4218,0,2,0,0,0,'85.63.73.197',1502755621,'LOG_FORUM_ADD','a:1:{i:0;s:11:\"latest news\";}'),(4219,0,2,0,0,0,'85.63.73.197',1502778681,'LOG_ADMIN_AUTH_SUCCESS',''),(4220,0,2,0,0,0,'85.63.73.197',1502778706,'LOG_FORUM_EDIT','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4221,0,2,0,0,0,'85.63.73.197',1502778822,'LOG_FORUM_EDIT','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4222,0,2,0,0,0,'85.63.73.197',1502778874,'LOG_FORUM_EDIT','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4223,0,2,0,0,0,'85.63.73.197',1502778895,'LOG_FORUM_EDIT','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4224,0,2,0,0,0,'85.63.73.197',1502778925,'LOG_FORUM_EDIT','a:1:{i:0;s:23:\"Artificial Intelligence\";}'),(4225,0,2,0,0,0,'85.63.73.197',1502779194,'LOG_ADMIN_AUTH_SUCCESS',''),(4226,0,2,0,0,0,'85.63.73.197',1502779217,'LOG_FORUM_EDIT','a:1:{i:0;s:30:\"TensorFlow and Python examples\";}'),(4227,0,2,0,0,0,'85.63.73.197',1502779241,'LOG_FORUM_DEL_POSTS','a:1:{i:0;s:30:\"TensorFlow and Python examples\";}'),(4228,0,2,0,0,0,'85.63.73.197',1502779257,'LOG_FORUM_EDIT','a:1:{i:0;s:34:\"TensorFlow.dll for Harbour and FWH\";}'),(4229,0,2,0,0,0,'85.63.73.197',1502779270,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"latest news\";}'),(4230,0,2,0,0,0,'85.63.73.197',1502779530,'LOG_ADMIN_AUTH_SUCCESS',''),(4231,0,2,0,0,0,'85.63.73.197',1502779913,'LOG_ACL_ADD_FORUM_LOCAL_F_','a:2:{i:0;s:104:\"Artificial Intelligence, TensorFlow and Python examples, TensorFlow.dll for Harbour and FWH, latest news\";i:1;s:190:\"<span class=\"sep\">Guests</span>, <span class=\"sep\">Registered users</span>, <span class=\"sep\">Global moderators</span>, <span class=\"sep\">Administrators</span>, <span class=\"sep\">Bots</span>\";}'),(4232,0,2,0,0,0,'85.63.73.197',1502789397,'LOG_ADMIN_AUTH_SUCCESS',''),(4233,0,2,0,0,0,'85.63.73.197',1502789416,'LOG_FORUM_EDIT','a:1:{i:0;s:14:\"latest AI news\";}'),(4234,1,2,40,34459,0,'85.63.73.197',1502872057,'LOG_POST_EDITED','a:2:{i:0;s:58:\"Re: Welcome to the FiveTech Artificial Intelligence forums\";i:1;s:10:\"Biel EA6DD\";}'),(4235,3,109,0,0,109,'201.161.166.22',1503067157,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"ricardog\";}'),(4236,1,2,41,34151,0,'217.61.225.35',1503082644,'LOG_MOVE','a:2:{i:0;s:22:\"Utilities / Utilidades\";i:1;s:34:\"TensorFlow.dll for Harbour and FWH\";}'),(4237,1,2,42,34433,0,'217.61.225.35',1503082812,'LOG_MOVE','a:2:{i:0;s:23:\"Off Topic / Otros temas\";i:1;s:14:\"latest AI news\";}'),(4238,1,2,41,34424,0,'217.61.225.35',1503082889,'LOG_MOVE','a:2:{i:0;s:22:\"Utilities / Utilidades\";i:1;s:34:\"TensorFlow.dll for Harbour and FWH\";}'),(4239,1,1060,3,34496,0,'94.29.126.107',1503393454,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"Popup menu\";}'),(4240,0,2,0,0,0,'217.61.225.35',1503467203,'LOG_ADMIN_AUTH_SUCCESS',''),(4241,0,2,0,0,0,'217.61.225.35',1503467255,'LOG_FORUM_ADD','a:1:{i:0;s:23:\"Building TensorFlow.dll\";}'),(4242,1,2,43,34490,0,'217.61.225.35',1503467288,'LOG_MOVE','a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;s:23:\"Building TensorFlow.dll\";}'),(4243,1,303,3,34468,0,'68.7.224.104',1503680174,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Database - 17.07 - Problems\";}'),(4244,1,303,3,34468,0,'68.7.224.104',1503682626,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Database - 17.07 - Problems\";}'),(4245,1,409,6,34513,0,'186.9.29.225',1503710410,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"AYUDA CON CODIGO BARRA PDF417\";}'),(4246,0,2,0,0,0,'217.61.225.35',1503767476,'LOG_ADMIN_AUTH_SUCCESS',''),(4247,0,2,0,0,0,'217.61.225.35',1503767705,'LOG_FORUM_ADD','a:1:{i:0;s:42:\"AI Introduction (Harbour code and samples)\";}'),(4248,1,2,44,33945,0,'217.61.225.35',1503767731,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:42:\"AI Introduction (Harbour code and samples)\";}'),(4249,0,2,0,0,0,'217.61.225.35',1504074074,'LOG_ADMIN_AUTH_FAIL',''),(4250,0,2,0,0,0,'217.61.225.35',1504074087,'LOG_ADMIN_AUTH_SUCCESS',''),(4251,0,2,0,0,0,'217.61.225.35',1504074134,'LOG_USER_ACTIVE','a:1:{i:0;s:11:\"teddydjohan\";}'),(4252,3,2,0,0,3891,'217.61.225.35',1504074134,'LOG_USER_ACTIVE_USER',''),(4253,1,2,6,34513,0,'85.63.73.197',1504248408,'LOG_POST_EDITED','a:2:{i:0;s:30:\"Re: Donde puedo descargar BCC7\";i:1;s:7:\"karinha\";}'),(4254,1,2,3,34468,0,'85.63.73.197',1504285231,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: Database - 17.07 - Problems\";i:1;s:14:\"Diego Decandia\";}'),(4255,1,1313,3,34548,0,'189.58.39.162',1504524256,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: HDO v1.00 Ejemplos con RDL de MySQL y SQLite\";}'),(4256,1,1313,6,34547,0,'189.58.40.243',1504556728,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: HDO v1.00 Ejemplos con RDL de MySQL y SQLite\";}'),(4257,1,1689,3,34551,0,'109.93.142.34',1504635273,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: how to assign the sql query results to the variable\";}'),(4258,1,1535,6,34619,0,'88.11.232.79',1505746189,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Picture para cuentas IBAN y teléfonos.\";}'),(4259,1,868,3,34648,0,'183.82.160.196',1506143720,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: Is this Netopen function from 16 bit ok for FWH32 ?\";}'),(4260,1,303,3,34645,0,'68.7.224.104',1506442749,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Referencing a dialog from a different class ?\";}'),(4261,1,1814,6,34668,0,'186.103.145.171',1506713444,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: se puede  habilitar software\";}'),(4262,1,2598,3,34234,0,'95.240.68.135',1507623003,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: drag with xbrowses\";}'),(4263,1,2598,3,34234,0,'95.240.68.135',1507623014,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"drag with xbrowses\";}'),(4264,1,2598,3,34710,0,'95.240.68.135',1507634691,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Menu error fwh 17.09\";}'),(4265,1,2598,3,34711,0,'95.240.68.135',1507634940,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"ERROR on POPUP  (fwh17.09)\";}'),(4266,1,2342,6,34726,0,'31.221.228.32',1507988433,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: MENUs CON RECURSOS en variables\";}'),(4267,3,1323,0,0,1323,'187.181.109.120',1507997514,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"shark\";}'),(4268,1,2342,3,34736,0,'46.222.173.163',1508193573,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Hide menu toolbar left\";}'),(4269,1,2,3,34727,0,'85.63.73.197',1508351326,'LOG_LOCK','a:1:{i:0;s:15:\"Pdf into dialog\";}'),(4270,1,2598,3,34752,0,'95.240.68.135',1508482887,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Xbrowse drag\";}'),(4271,1,2598,3,34152,0,'95.240.68.135',1508497455,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"help to scroll an archive with btnbmp\";}'),(4272,1,1257,3,34761,0,'78.50.20.213',1508622202,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"A problem ending a GROUP in design-mode\";}'),(4273,1,2,19,34784,0,'85.63.73.197',1509171370,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: Cataluña\";}'),(4274,1,2,19,34784,0,'85.63.73.197',1509171378,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: Cataluña\";}'),(4275,1,2,19,34784,0,'85.63.73.197',1509171387,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"Cataluña\";}'),(4276,1,2598,3,34801,0,'94.165.239.9',1509556350,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"draw a box\";}'),(4277,3,110,0,0,110,'186.77.170.37',1509650413,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"carlos vargas\";}'),(4278,1,2598,3,34815,0,'5.87.190.241',1509796446,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Problem ribbon on windows 10\";}'),(4279,1,2076,6,34822,0,'32.97.110.58',1509992374,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Errores compilando Harbour en modo consola\";}'),(4280,1,2076,6,34822,0,'32.97.110.58',1509992436,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Errores compilando Harbour en modo consola\";}'),(4281,1,6,3,34092,0,'79.19.223.177',1510062273,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Warning, MS Edge copy problem [Fixed]\";i:1;s:10:\"James Bott\";}'),(4282,0,2,0,0,0,'85.63.73.197',1510070774,'LOG_ADMIN_AUTH_SUCCESS',''),(4283,0,2,0,0,0,'85.63.73.197',1510134994,'LOG_ADMIN_AUTH_SUCCESS',''),(4284,3,2,0,0,177,'85.63.73.197',1510135053,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Baxajaun\";}'),(4285,0,2,0,0,0,'85.63.73.197',1510135053,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"Baxajaun\";}'),(4286,3,177,0,0,177,'194.30.62.6',1510137503,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"Baxajaun\";}'),(4287,3,177,0,0,177,'194.30.62.6',1510137503,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"Baxajaun\";i:1;s:22:\"fpgrande@euskalnet.net\";i:2;s:18:\"fpgrande@gmail.com\";}'),(4288,0,2,0,0,0,'85.63.73.197',1510138832,'LOG_ADMIN_AUTH_SUCCESS',''),(4289,0,2,0,0,0,'85.63.73.197',1510138851,'LOG_USER_ACTIVE','a:1:{i:0;s:8:\"Baxajaun\";}'),(4290,3,2,0,0,177,'85.63.73.197',1510138851,'LOG_USER_ACTIVE_USER',''),(4291,1,362,6,27493,0,'191.251.6.123',1510145225,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: BUSCA EN CUALQUIER POSICION CON DBF\";}'),(4292,1,644,6,34836,0,'181.111.220.50',1510162391,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Combobox y búsqueda incremental\";}'),(4293,1,2076,6,34830,0,'32.97.110.59',1510232823,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Valkyrie y nombre de variables\";}'),(4294,3,936,0,0,936,'186.151.61.161',1510316796,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(4295,1,84,6,34857,0,'92.58.71.118',1510570393,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"EasyDialog\";}'),(4296,0,2,0,0,0,'85.63.73.197',1510575327,'LOG_ADMIN_AUTH_SUCCESS',''),(4297,0,2,0,0,0,'85.63.73.197',1510575354,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:3:\"ARC\";}'),(4298,0,2,0,0,0,'85.63.73.197',1510575359,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:3:\"ARC\";}'),(4299,1,2076,6,34860,0,'32.97.110.60',1510588014,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Importar DBF a Mysql\";}'),(4300,1,1257,3,34847,0,'92.224.209.37',1510605844,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: To Marc -&gt; A xBrowse-image colorpicker\";}'),(4301,1,2598,20,34658,0,'95.240.68.135',1510650878,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Per stefano\";}'),(4302,1,2598,20,34658,0,'95.240.68.135',1510650887,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"Per stefano\";}'),(4303,1,1257,3,25906,0,'78.50.23.24',1510693770,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: Possible to keep TTITLE / DIALOG transp. on Wnd-resize ?\";}'),(4304,1,1257,3,34871,0,'78.50.22.138',1510929211,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: tree in a dialog with multiples dialogs\";}'),(4305,1,2076,6,34861,0,'45.74.211.188',1511109656,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Error con funcion ImportFromDBF\";}'),(4306,1,2076,6,34861,0,'45.74.211.188',1511115165,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Error con funcion ImportFromDBF\";}'),(4307,1,2076,6,34885,0,'32.97.110.58',1511294351,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Exportar a Mysql desde fivedbu\";}'),(4308,3,1993,0,0,1993,'139.0.250.79',1511309022,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"andijahja\";i:1;s:22:\"xharbour@telkom.net.id\";i:2;s:22:\"andi.jahja@yahoo.co.id\";}'),(4309,0,2,0,0,0,'85.63.73.197',1511332176,'LOG_ADMIN_AUTH_SUCCESS',''),(4310,0,2,0,0,0,'85.63.73.197',1511332200,'LOG_USER_ACTIVE','a:1:{i:0;s:9:\"andijahja\";}'),(4311,3,2,0,0,1993,'85.63.73.197',1511332200,'LOG_USER_ACTIVE_USER',''),(4312,1,2598,3,34900,0,'94.167.185.126',1511370915,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Download data from Excel\";}'),(4313,1,2076,6,34895,0,'32.97.110.58',1511376531,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Ya estan obsoletos los archivos DBF ?\";}'),(4314,1,2598,3,34919,0,'94.162.193.174',1511635663,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Know wich key is pressed from get\";}'),(4315,1,2342,6,34844,0,'90.106.199.127',1511966172,'LOG_DELETE_POST','a:1:{i:0;s:8:\"Re: TGif\";}'),(4316,1,2,19,34936,0,'85.63.73.197',1511990355,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4317,1,2076,6,34941,0,'45.74.211.188',1512091041,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"Error DBCMD/1005  Argument error: DBUSEAREA\";}'),(4318,1,2076,6,34942,0,'45.74.211.188',1512093195,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"Error DBCMD/1005  Argument error: DBUSEAREA\";}'),(4319,0,2,0,0,0,'217.61.225.35',1512511093,'LOG_ADMIN_AUTH_SUCCESS',''),(4320,1,868,3,34958,0,'124.123.11.0',1512625892,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: FWMARIADB:copy record.  How can it know the dest. record id?\";}'),(4321,0,2,0,0,0,'217.61.225.35',1512633096,'LOG_ADMIN_AUTH_SUCCESS',''),(4322,3,2,0,0,1844,'217.61.225.35',1512633135,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"shri_fwh\";}'),(4323,0,2,0,0,0,'217.61.225.35',1512633135,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"shri_fwh\";}'),(4324,1,2,3,34955,0,'217.61.225.35',1512636937,'LOG_LOCK','a:1:{i:0;s:55:\"Possible to show a xBrowse groupheader without header ?\";}'),(4325,1,362,6,34959,0,'191.251.6.168',1512651894,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Rutina para enviar mails\";}'),(4326,1,456,38,34967,0,'88.12.53.239',1512663828,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"The new Chess Master\";}'),(4327,1,3945,6,34979,0,'188.79.249.172',1512990841,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Iniciar en FW, novato\";}'),(4328,0,2,0,0,0,'85.63.73.197',1513244767,'LOG_ADMIN_AUTH_SUCCESS',''),(4329,0,2,0,0,0,'85.63.73.197',1513244798,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:15:\"acrisostomo2017\";}'),(4330,0,2,0,0,0,'85.63.73.197',1513244803,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:15:\"acrisostomo2017\";}'),(4331,1,868,3,34981,0,'124.123.9.147',1513275580,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Horizontal Scroll via Mouse Scroll\";}'),(4332,1,2076,6,34945,0,'32.97.110.61',1513346108,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Clipperos / Fivewiners de Argentina\";}'),(4333,0,2,0,0,0,'46.222.79.4',1513450987,'LOG_ADMIN_AUTH_SUCCESS',''),(4334,3,2,0,0,3863,'46.222.79.4',1513451019,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"dhf27\";}'),(4335,0,2,0,0,0,'46.222.79.4',1513451019,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"dhf27\";}'),(4336,0,2,0,0,0,'46.222.79.4',1513451031,'LOG_USER_ACTIVE','a:1:{i:0;s:5:\"dhf27\";}'),(4337,3,2,0,0,3863,'46.222.79.4',1513451031,'LOG_USER_ACTIVE_USER',''),(4338,3,3863,0,0,3863,'201.176.211.1',1513455034,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"dhf27\";}'),(4339,1,2598,3,35027,0,'95.240.68.135',1513764696,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"select some records from xbrowse\";}'),(4340,1,1257,3,35033,0,'92.224.209.77',1513886966,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: xBrowse with WaterMark\";}'),(4341,1,2076,6,35043,0,'45.74.211.188',1514254173,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Borrar registro actual en xBrowse\";}'),(4342,3,305,0,0,305,'181.67.100.224',1514352492,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ralph\";}'),(4343,3,70,0,0,70,'187.159.42.188',1514480376,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"admsoporte\";i:1;s:25:\"admsoporte@prodigy.net.mx\";i:2;s:20:\"admsoporte@gmail.com\";}'),(4344,3,2567,0,0,2567,'198.45.19.111',1514485491,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"JimHayden\";i:1;s:23:\"jameshayden@comcast.net\";i:2;s:23:\"jim.hayden@spglobal.com\";}'),(4345,0,2,0,0,0,'109.48.35.129',1514621400,'LOG_ADMIN_AUTH_SUCCESS',''),(4346,1,92,6,35078,0,'95.21.168.120',1514936320,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Saber si existe un método en una clase.\";}'),(4347,3,415,0,0,415,'181.59.58.17',1515096719,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"MauroArevalo\";}'),(4348,3,65,0,0,65,'77.92.6.20',1515193899,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"betoncu\";}'),(4349,1,2598,3,35112,0,'94.165.3.100',1515442586,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Print xImage\";}'),(4350,1,2598,3,35121,0,'88.61.5.253',1515576030,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Intel Microsoft Camera help\";}'),(4351,0,2,0,0,0,'5.59.70.34',1515615879,'LOG_ADMIN_AUTH_SUCCESS',''),(4352,3,2,0,0,620,'5.59.70.34',1515615913,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Greg Gammon\";}'),(4353,0,2,0,0,0,'5.59.70.34',1515615913,'LOG_USER_USER_UPDATE','a:1:{i:0;s:11:\"Greg Gammon\";}'),(4354,1,2,42,35129,0,'5.59.70.34',1515829680,'LOG_MOVE','a:2:{i:0;s:23:\"Artificial Intelligence\";i:1;s:14:\"latest AI news\";}'),(4355,1,3777,6,35140,0,'99.197.12.66',1515902300,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Me Urge saber Como logro conectar a un  dispositivo via IP.\";}'),(4356,1,2342,3,35145,0,'92.59.107.169',1516041555,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: strange errors\";}'),(4357,1,362,3,35156,0,'191.251.4.136',1516197430,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Spirin\'s fastreport library\";}'),(4358,3,305,0,0,305,'181.67.100.224',1516197874,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ralph\";}'),(4359,1,1406,3,35156,0,'85.105.58.49',1516200373,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Spirin\'s fastreport library\";}'),(4360,1,868,3,35167,0,'183.82.160.235',1516707879,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: GET...ACTION Bug?\";}'),(4361,1,2598,3,35179,0,'5.86.161.134',1516882060,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"tip.lib for Harbour\";}'),(4362,1,3593,3,35170,0,'84.194.16.168',1516914144,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Mr. Rao\'s samples collection for Xbrowse\";}'),(4363,1,51,3,35194,0,'80.122.88.242',1517160510,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: encrypt-decrypt word doc\";}'),(4364,1,2598,3,35195,0,'31.189.28.10',1517222737,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"cBmpfile\";}'),(4365,1,2598,3,35197,0,'94.166.125.75',1517242051,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Help to create a Control class\";}'),(4366,1,3945,17,13098,0,'188.79.249.172',1517311464,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Borland C setup files\";}'),(4367,1,1257,3,35170,0,'78.50.21.218',1517328680,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Mr. Rao\'s samples collection for Xbrowse\";}'),(4368,1,1257,3,35213,0,'78.50.23.29',1517643449,'LOG_DELETE_TOPIC','a:1:{i:0;s:55:\"A posted textsearch-download-link removed ( to Otto ) ?\";}'),(4369,1,35,3,35230,0,'172.74.196.165',1517844607,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Caution: Windows 10 Fall Creators Update\";}'),(4370,1,2598,3,35243,0,'88.61.5.253',1517997893,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Problem with Texplorebar\";}'),(4371,1,2598,3,35244,0,'88.61.5.253',1518004731,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Problem with Texplorebar\";}'),(4372,1,2598,3,35235,0,'151.43.15.53',1518049845,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Dialog, xbrowse,splitter,folder and ttitle\";}'),(4373,1,2598,3,35251,0,'88.61.5.253',1518252278,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: defective movement effect - RESOLVED!\";}'),(4374,1,2598,3,35251,0,'88.61.5.253',1518252286,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"defective movement effect\";}'),(4375,1,1257,3,35170,0,'78.50.20.234',1518300117,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Mr. Rao\'s samples collection.\";}'),(4376,1,1257,3,35170,0,'78.50.21.108',1518459991,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Mr. Rao\'s samples collection.\";}'),(4377,1,1257,3,35170,0,'78.50.21.134',1518622206,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Mr. Rao\'s samples collection.\";}'),(4378,3,1195,0,0,1195,'200.82.177.189',1518630032,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(4379,1,92,19,35248,0,'95.17.255.186',1518826239,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Programa de contabilidad en FiveWin\";}'),(4380,1,2342,19,35248,0,'62.37.59.95',1518826720,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Programa de contabilidad en FiveWin\";}'),(4381,1,868,3,34499,0,'124.123.8.160',1518865117,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Wbrowse cell edit - problem in TGET class\";}'),(4382,3,1095,0,0,1095,'217.125.140.227',1519031476,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"vlmsoft\";}'),(4383,1,1257,3,35293,0,'78.50.21.174',1519164556,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"A problem with xbrowse &lt; SetProgBar &gt; ?\";}'),(4384,3,227,0,0,227,'179.228.11.31',1519221154,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ctoas\";}'),(4385,1,2598,3,35298,0,'88.61.5.253',1519288349,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"To Nages: star on Xbrowse\";}'),(4386,1,1257,3,35321,0,'78.50.21.185',1519722730,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: A question about function FW_Cdxcreate()\";}'),(4387,1,868,3,35321,0,'117.195.213.71',1519744572,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: A question about function FW_Cdxcreate()\";}'),(4388,1,2598,3,35315,0,'94.167.92.118',1519818594,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: problem with gdiplus\";}'),(4389,1,3233,3,35337,0,'93.144.72.17',1520196062,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Disable image paste on richedit and VSCROLL\";}'),(4390,1,1257,3,35343,0,'78.50.22.109',1520247966,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"A problem using xBrowse SetGroupHeader - height\";}'),(4391,1,3593,3,35170,0,'109.130.65.200',1520257510,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Mr. Rao\'s samples collection.\";}'),(4392,1,2,4,35354,0,'5.59.70.34',1520498121,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Add bitmap to taskbar\";i:1;s:4:\"reds\";}'),(4393,3,110,0,0,110,'170.80.16.209',1520627991,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"carlos vargas\";}'),(4394,1,1257,3,35355,0,'78.50.23.115',1520627998,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: xBrowse footer counting on cell / field-condition ?\";}'),(4395,1,644,6,35389,0,'190.18.73.158',1520972009,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Problemas con Report\";}'),(4396,1,1313,3,35391,0,'191.248.123.161',1521046455,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"is it possible with xbrowse\";}'),(4397,1,2,3,35360,0,'5.59.70.34',1521104003,'LOG_POST_EDITED','a:2:{i:0;s:30:\"Re: Base sample with scintilla\";i:1;s:8:\"cnavarro\";}'),(4398,1,114,6,24025,0,'148.243.151.232',1521203376,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Mejoras para scintilla\";}'),(4399,1,227,3,35398,0,'189.38.170.157',1521208159,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"xBrowse seek\";}'),(4400,1,2598,3,35404,0,'5.87.178.235',1521409903,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"scrolling images\";}'),(4401,1,1257,3,35409,0,'78.49.205.235',1521454597,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Any RichEdit-sample DBF-memo, textfields &lt;&gt; RichEdit ?\";}'),(4402,1,51,3,35428,0,'80.122.88.242',1522058522,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: fwdbu request\";}'),(4403,0,2,0,0,0,'5.59.70.34',1522170397,'LOG_ADMIN_AUTH_SUCCESS',''),(4404,3,2,0,0,1158,'5.59.70.34',1522170432,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"norberto\";}'),(4405,0,2,0,0,0,'5.59.70.34',1522170432,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"norberto\";}'),(4406,1,362,3,35454,0,'177.134.1.158',1522691575,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: download file from url\";}'),(4407,3,3182,0,0,3182,'169.239.72.18',1522926837,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"dagiayunus\";}'),(4408,3,110,0,0,110,'170.80.16.209',1523038780,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"carlos vargas\";}'),(4409,1,51,3,35488,0,'80.122.88.242',1523275540,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Tool to find the path of the project\";}'),(4410,1,2598,3,35491,0,'94.161.184.243',1523392440,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Insert a Window to another\";}'),(4411,1,2,33,35494,0,'5.59.70.34',1523432837,'LOG_POST_EDITED','a:2:{i:0;s:59:\"Re: FiveTouch para iOS (iPhone/iPad) ya está disponible!!!\";i:1;s:6:\"Carles\";}'),(4412,1,23,17,34057,0,'81.203.185.224',1523458313,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: How to build Harbour hbcurl.lib and hbcurls.lib\";}'),(4413,1,1313,6,35505,0,'177.204.70.245',1523565673,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Folderex + Checkbox + when .f.  problema\";}'),(4414,3,2530,0,0,2530,'179.180.189.238',1524071502,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lailton\";}'),(4415,3,2530,0,0,2530,'179.180.189.238',1524071502,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Lailton\";i:1;s:22:\"suporte@lailton.com.br\";i:2;s:22:\"lailton@harbour.com.br\";}'),(4416,1,2342,6,35536,0,'85.60.64.192',1524156583,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: lector codigo de barras, y dialogo\";}'),(4417,3,1388,0,0,1388,'122.54.251.27',1524541854,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"fraxzi\";}'),(4418,1,2598,3,35560,0,'5.87.89.175',1524843167,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: AES encryption library?\";}'),(4419,1,2598,3,35546,0,'88.61.5.253',1524900972,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"sockserv and sockcli prgs understanding\";}'),(4420,1,2598,3,35556,0,'88.61.5.253',1524900996,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: send a data to a client\";}'),(4421,3,2626,0,0,2626,'8.30.127.2',1525268534,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"jauzcanga\";}'),(4422,1,6,3,35580,0,'79.12.62.142',1525278978,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Remove Line feeds\";}'),(4423,1,2598,3,35584,0,'5.87.117.210',1525278981,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"recompiling an oldest application\";}'),(4424,1,2598,3,35459,0,'88.61.5.253',1525338126,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: open dbf file via internet\";}'),(4425,1,2598,3,35585,0,'88.61.5.253',1525340868,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Reservation Nages Test with New Xbrowse\";}'),(4426,1,2598,3,35596,0,'94.163.159.164',1525709330,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Insert a button on ribbonbar\";}'),(4427,1,2598,3,35598,0,'94.166.14.157',1525797798,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"timer on ribbonbar\";}'),(4428,3,3182,0,0,3182,'169.239.72.18',1525804524,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"dagiayunus\";}'),(4429,1,2561,3,35622,0,'80.201.77.112',1526125332,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"uCharToVal(uVar,&quot;T&quot;)\";}'),(4430,1,2598,3,35617,0,'94.162.41.58',1526211291,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Graphics ComboBox with xbrowse ?\";}'),(4431,1,1903,3,35613,0,'177.47.85.24',1526328514,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Hex Edit hack to allow .dbf to open in old Dbase3 ( solved )\";}'),(4432,1,2598,3,35634,0,'194.243.201.246',1526369886,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: bug ribbonbar and combobox\";}'),(4433,1,2598,3,35643,0,'88.61.5.253',1526556833,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"help to create a btnbmp\";}'),(4434,1,2598,3,35645,0,'94.165.67.128',1526586936,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Date string into a get\";}'),(4435,1,1313,6,32879,0,'179.83.23.132',1526641194,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Tomando fotos con la webcam\";}'),(4436,1,1313,6,32879,0,'179.83.23.132',1526641254,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Tomando fotos con la webcam\";}'),(4437,3,3137,0,0,3137,'201.240.21.185',1526928249,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Cesar Moreyra\";}'),(4438,1,3182,3,35606,0,'169.239.72.18',1526975403,'LOG_DELETE_TOPIC','a:1:{i:0;s:53:\"XBROWSE Column Autofit (Stretch or srink) (To Mr.Rao)\";}'),(4439,1,2598,3,35658,0,'88.61.5.253',1526981361,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Crash on harbour TGet using FiveWin TGet\";}'),(4440,1,2598,3,35672,0,'94.161.205.217',1527207834,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Problem with Tplann of Daniel Garcia\";}'),(4441,1,1427,3,35689,0,'202.88.246.106',1527741258,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: How can I read (extract) data from PDF file?\";}'),(4442,1,2598,3,35698,0,'151.37.31.169',1527895681,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: TPLANN of Daniel\";}'),(4443,1,2598,3,35698,0,'151.37.31.169',1527895691,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"TPLANN of Daniel\";}'),(4444,1,170,6,35709,0,'37.173.159.87',1528035685,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"IsAlpha() not work fully with french language\";}'),(4445,1,2598,3,35719,0,'88.61.5.253',1528284074,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Error to load an image\";}'),(4446,1,868,3,35703,0,'183.82.160.47',1528307428,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: In xbrowse valid is Executed twice\";}'),(4447,1,2,19,35737,0,'89.131.21.102',1528979018,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4448,1,2,19,35748,0,'5.59.70.34',1529217571,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4449,1,2,19,35747,0,'5.59.70.34',1529217599,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4450,1,868,3,18986,0,'124.123.8.140',1529382325,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Dialog controls are flickering when resized..\";}'),(4451,1,868,3,35744,0,'157.44.220.209',1529674174,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: XBROWSE WITH oTREE OF 2 TABLES\";}'),(4452,1,2473,3,35781,0,'191.190.65.113',1529806472,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"fivewin gratis?\";}'),(4453,1,1388,6,35229,0,'122.54.251.27',1530089448,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: cual es el evento al hacer click en un control dtpicker?\";}'),(4454,1,868,3,35807,0,'124.123.8.54',1530640496,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Error on PanelScroll resizing the dialog\";}'),(4455,1,2598,3,35808,0,'94.166.236.193',1530654660,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"xbrowse and image\";}'),(4456,1,2598,3,35823,0,'194.243.201.243',1531219098,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Change XBROWSE Style?\";}'),(4457,1,1178,6,35835,0,'186.84.216.105',1531313938,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Error al compilar con bcc73 y Easyreport\";}'),(4458,1,2598,3,35845,0,'194.243.201.243',1531382738,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"FOLDER or FOLDEREX not resize\";}'),(4459,1,2598,3,35847,0,'194.243.201.243',1531389902,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"change color on line\";}'),(4460,1,1313,3,35849,0,'191.251.36.64',1531396070,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"which site to hire free lancer programmer - IONIC applicatio\";}'),(4461,1,2598,3,35779,0,'94.162.93.107',1531737660,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: show tooltip on btnbmp\";}'),(4462,1,2598,3,35871,0,'94.166.67.201',1531843456,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Searching a multiple  reservation\";}'),(4463,1,2598,3,35871,0,'94.166.67.201',1531843465,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Searching a multiple  reservation\";}'),(4464,1,2598,3,35863,0,'94.166.67.201',1531843490,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Button On RibbonBar\";}'),(4465,1,47,3,35884,0,'58.11.88.222',1532350033,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: How to ENCRYPT/DECRYPT columns in MySql comfortably?\";}'),(4466,3,3777,0,0,3777,'99.197.78.53',1533002432,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Busmatic_wpb\";}'),(4467,1,2342,3,34904,0,'90.71.237.50',1533039875,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Google APIS Lib for Fivewin\";}'),(4468,1,868,3,35827,0,'117.195.216.248',1533112350,'LOG_DELETE_POST','a:1:{i:0;s:70:\"Re: FWH 1805 - oBrw:SetTree( [&lt;nLevels&gt;] ) -&gt; Automatic Trees\";}'),(4469,3,3593,0,0,3593,'84.194.16.168',1533142540,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(4470,3,1535,0,0,1535,'83.40.213.24',1533207044,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"hmpaquito\";}'),(4471,1,2598,3,35923,0,'94.163.141.210',1533655006,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: error on NToCDOW\";}'),(4472,1,868,3,35938,0,'183.82.62.7',1533729490,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: xBrowse (MariaDB RS) :bEdit (SOLVED)\";}'),(4473,3,2783,0,0,2783,'87.183.35.246',1533825960,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"brilo\";}'),(4474,1,2598,3,35953,0,'94.163.199.207',1534186092,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: windows 10 colors\";}'),(4475,1,2598,3,35956,0,'94.163.199.207',1534190736,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"ARRAY to txt\";}'),(4476,1,2598,3,35953,0,'94.163.199.207',1534190751,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"windows 10 colors\";}'),(4477,1,2598,3,35961,0,'94.165.54.171',1534281461,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"load images from resources\";}'),(4478,3,3593,0,0,3593,'84.194.16.168',1534335120,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(4479,1,362,6,35950,0,'191.251.2.66',1534449892,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Crear function para Script de Harbour\";}'),(4480,1,51,32,35990,0,'46.165.229.163',1534838324,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"TTagEver class for FWH\";}'),(4481,1,47,3,35998,0,'180.183.52.23',1535004750,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"How to disable TXImage():MouseWhee()\";}'),(4482,1,1800,3,36000,0,'185.106.24.14',1535012441,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"xBrowse error on version 18.05\";}'),(4483,1,2,3,35994,0,'89.131.21.102',1535096091,'LOG_POST_EDITED','a:2:{i:0;s:8:\"Re: Tweb\";i:1;s:14:\"Silvio.Falconi\";}'),(4484,3,6,0,0,6,'95.235.222.47',1535375467,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:21:\"Enrico Maria Giordano\";}'),(4485,0,2,0,0,0,'5.59.70.34',1535387415,'LOG_ADMIN_AUTH_SUCCESS',''),(4486,1,2598,3,36017,0,'5.87.159.178',1535485709,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: set cursor\";}'),(4487,1,2598,3,36017,0,'5.87.159.178',1535485726,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"set cursor\";}'),(4488,1,2598,3,36031,0,'94.160.186.92',1535837192,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Order on Xbrowse\";}'),(4489,1,2598,3,36049,0,'94.166.1.48',1535993662,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Problem with ximage\";}'),(4490,1,2598,3,36050,0,'94.166.1.48',1535993676,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Problems with xbrowse and array\";}'),(4491,1,2598,3,36026,0,'94.166.1.48',1535993752,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: button coordinates\";}'),(4492,1,2598,3,36026,0,'94.166.1.48',1535993762,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"button coordinates\";}'),(4493,3,891,0,0,891,'187.188.15.156',1536244337,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(4494,1,1466,6,36071,0,'186.77.203.119',1536357093,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Autosort no funciona con Object (MySql)?\";}'),(4495,3,3777,0,0,3777,'99.198.51.162',1536634914,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Busmatic_wpb\";}'),(4496,1,2598,3,36103,0,'5.86.214.231',1537185988,'LOG_DELETE_TOPIC','a:1:{i:0;s:7:\"TIP.lib\";}'),(4497,1,303,3,36112,0,'68.6.163.93',1537404130,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Ribbonbar with solid brush color\";}'),(4498,3,3182,0,0,3182,'169.239.72.18',1537432084,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"dagiayunus\";}'),(4499,1,2598,3,36124,0,'94.167.70.80',1537637101,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Problem with dbseek\";}'),(4500,1,2076,6,36146,0,'32.97.110.61',1538150110,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Pasar sql query a Array\";}'),(4501,1,1844,6,36153,0,'49.35.125.140',1538322959,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"How To Change the Get Text Color When it is Focused  ?\";}'),(4502,1,248,6,36155,0,'80.173.180.50',1538394665,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Pregunta Letodb e index ON.\";}'),(4503,3,147,0,0,147,'190.183.181.130',1538432356,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MarioG\";}'),(4504,1,3398,6,36156,0,'190.133.62.192',1538532218,'LOG_DELETE_TOPIC','a:2:{i:0;s:19:\"Combase.Dll error. \";i:1;s:16:\"rubenfernandez01\";}'),(4505,1,2,3,36165,0,'5.59.70.34',1538542844,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Download hbUtilKb\";}'),(4506,0,2,0,0,0,'5.59.70.34',1538542875,'LOG_ADMIN_AUTH_SUCCESS',''),(4507,0,2,0,0,0,'5.59.70.34',1538542910,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:14:\"Eric.Developer\";}'),(4508,1,2,0,0,0,'5.59.70.34',1538542910,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:14:\"Eric.Developer\";}'),(4509,1,6,19,35748,0,'79.19.216.81',1538559399,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"OT: E-MOUNTAINBIKE WORLD CHAMPIONSHIP\";}'),(4510,1,41,3,25080,0,'167.157.60.111',1538578254,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Change GET TEXT COLOR when GET Focused.\";}'),(4511,1,1800,3,36173,0,'89.159.98.8',1538592825,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"FieldPut not working for memo fields\";}'),(4512,1,107,2,36182,0,'89.128.196.95',1538673900,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Impresoras que no existen en Terminal Server\";}'),(4513,3,92,0,0,92,'95.17.255.192',1538776133,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(4514,1,2598,3,36172,0,'194.243.201.246',1538827469,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Microsoft Office need ?\";}'),(4515,3,1432,0,0,1432,'176.32.16.10',1539025811,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"xfood\";}'),(4516,1,2076,6,36200,0,'170.225.9.146',1539175891,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4517,1,2076,6,36194,0,'32.97.110.60',1539280528,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Interface en Fivewin...se puede?\";}'),(4518,1,2,3,36203,0,'5.59.70.34',1539287474,'LOG_LOCK','a:1:{i:0;s:28:\"Silvio, you are a plagiarist\";}'),(4519,1,2,6,36200,0,'5.59.70.34',1539287497,'LOG_LOCK','a:1:{i:0;s:25:\"Silvio, eres un plagiador\";}'),(4520,1,2,3,36203,0,'5.59.70.34',1539287518,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4521,1,2,3,36203,0,'5.59.70.34',1539287526,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4522,1,2,3,36203,0,'5.59.70.34',1539287534,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4523,1,2,3,36203,0,'5.59.70.34',1539287541,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4524,1,2,3,36203,0,'5.59.70.34',1539287549,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4525,1,2,3,36203,0,'5.59.70.34',1539287556,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4526,1,2,3,36203,0,'5.59.70.34',1539287564,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4527,1,2,3,36203,0,'5.59.70.34',1539287571,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4528,1,2,3,36203,0,'5.59.70.34',1539287579,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4529,1,2,3,36203,0,'5.59.70.34',1539287586,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4530,1,2,3,36203,0,'5.59.70.34',1539287594,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4531,1,2,3,36203,0,'5.59.70.34',1539287601,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4532,1,2,3,36203,0,'5.59.70.34',1539287609,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4533,1,2,3,36203,0,'5.59.70.34',1539287617,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4534,1,2,3,36203,0,'5.59.70.34',1539287625,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4535,1,2,3,36203,0,'5.59.70.34',1539287633,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4536,1,2,3,36203,0,'5.59.70.34',1539287641,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4537,1,2,3,36203,0,'5.59.70.34',1539287649,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4538,1,2,3,36203,0,'5.59.70.34',1539287657,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4539,1,2,3,36203,0,'5.59.70.34',1539287665,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4540,1,2,3,36203,0,'5.59.70.34',1539287672,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4541,1,2,3,36203,0,'5.59.70.34',1539287680,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4542,1,2,3,36203,0,'5.59.70.34',1539287688,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4543,1,2,3,36203,0,'5.59.70.34',1539287697,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4544,1,2,3,36203,0,'5.59.70.34',1539287704,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4545,1,2,3,36203,0,'5.59.70.34',1539287713,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Silvio, you are a plagiarist\";}'),(4546,1,2,3,36203,0,'5.59.70.34',1539287720,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Silvio, you are a plagiarist\";}'),(4547,1,2,6,36200,0,'5.59.70.34',1539287739,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4548,1,2,6,36200,0,'5.59.70.34',1539287747,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4549,1,2,6,36200,0,'5.59.70.34',1539287754,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4550,1,2,6,36200,0,'5.59.70.34',1539287763,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4551,1,2,6,36200,0,'5.59.70.34',1539287770,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4552,1,2,6,36200,0,'5.59.70.34',1539287778,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4553,1,2,6,36200,0,'5.59.70.34',1539287785,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4554,1,2,6,36200,0,'5.59.70.34',1539287792,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4555,1,2,6,36200,0,'5.59.70.34',1539287799,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4556,1,2,6,36200,0,'5.59.70.34',1539287807,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4557,1,2,6,36200,0,'5.59.70.34',1539287815,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4558,1,2,6,36200,0,'5.59.70.34',1539287822,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4559,1,2,6,36200,0,'5.59.70.34',1539287830,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4560,1,2,6,36200,0,'5.59.70.34',1539287837,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4561,1,2,6,36200,0,'5.59.70.34',1539287845,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4562,1,2,6,36200,0,'5.59.70.34',1539287854,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4563,1,2,6,36200,0,'5.59.70.34',1539287861,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4564,1,2,6,36200,0,'5.59.70.34',1539287870,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4565,1,2,6,36200,0,'5.59.70.34',1539287877,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4566,1,2,6,36200,0,'5.59.70.34',1539287885,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4567,1,2,6,36200,0,'5.59.70.34',1539287895,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4568,1,2,6,36200,0,'5.59.70.34',1539287903,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4569,1,2,6,36200,0,'5.59.70.34',1539287911,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Silvio, eres un plagiador\";}'),(4570,1,2,6,36200,0,'5.59.70.34',1539287919,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Silvio, eres un plagiador\";}'),(4571,1,2,6,36194,0,'5.59.70.34',1539287949,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Interface en Fivewin...se puede?\";}'),(4572,1,2,6,36194,0,'5.59.70.34',1539287960,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Interface en Fivewin...se puede?\";}'),(4573,1,2,6,36194,0,'5.59.70.34',1539287971,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Interface en Fivewin...se puede?\";}'),(4574,1,2,6,36194,0,'5.59.70.34',1539287979,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Interface en Fivewin...se puede?\";}'),(4575,1,2,6,36194,0,'5.59.70.34',1539287987,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Interface en Fivewin...se puede?\";}'),(4576,1,2,6,36194,0,'5.59.70.34',1539287995,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Interface en Fivewin...se puede?\";}'),(4577,1,2076,6,36194,0,'32.97.110.59',1539288374,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Interface en Fivewin...se puede?\";}'),(4578,1,3176,6,36220,0,'190.142.231.30',1539639209,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Brush desde una imagen de recursos\";}'),(4579,1,3921,6,36217,0,'190.107.117.245',1539639676,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Acceso en red mediante hosting\";}'),(4580,1,2598,3,36207,0,'151.43.100.69',1539705142,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Your EXE into a Web app\";}'),(4581,3,2008,0,0,2008,'186.121.233.195',1539794831,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"praul\";}'),(4582,1,1886,6,36199,0,'212.142.198.77',1539848281,'LOG_DELETE_POST','a:2:{i:0;s:53:\"Re: oPrn PREVIEW en Apaisado pero imprime en Vertical\";i:1;s:8:\"gautxori\";}'),(4583,1,2598,3,36225,0,'94.163.141.248',1539892977,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Execute a Script (pp)\";}'),(4584,3,1765,0,0,1765,'88.8.181.169',1540036730,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"lucasdebeltran\";}'),(4585,1,2598,3,36235,0,'5.86.232.72',1540236595,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Full FW source of a optical Software\";}'),(4586,1,2598,3,36244,0,'194.243.201.246',1540281163,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: FWH 1808: Dialog as Mdichild\";}'),(4587,1,1193,3,36247,0,'223.137.205.155',1540314003,'LOG_DELETE_TOPIC','a:1:{i:0;s:55:\"How to change color Same as Office 365 within ButtonBar\";}'),(4588,1,303,3,36251,0,'68.6.163.93',1540426059,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Ribbon Bar Sample ?\";}'),(4589,1,248,6,36258,0,'80.173.180.50',1540458816,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Errores Compilando dshow.prg Visual Sutdio\";}'),(4590,1,248,6,36259,0,'80.173.180.50',1540459811,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Error compilando dshow.prg - Camara WEb.\";}'),(4591,1,248,6,36260,0,'80.173.180.50',1540467772,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Dshow.prg Visual Studio 2015\";}'),(4592,1,2076,6,36266,0,'45.74.211.188',1540513861,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: algunas libs y mas\";}'),(4593,1,2076,6,36267,0,'45.74.211.188',1540516649,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Error compilando BtnGet 32\";}'),(4594,1,2076,6,36276,0,'45.74.211.188',1540651098,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Incluir variable publica en lib\";}'),(4595,1,2076,6,36279,0,'45.74.211.188',1540688475,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Version de Fwh para BCC101\";}'),(4596,1,2,19,36286,0,'5.59.70.34',1540835438,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4597,3,3593,0,0,3593,'109.132.140.20',1540900792,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(4598,1,3578,3,36272,0,'189.5.177.3',1541132447,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: New field type ?\";}'),(4599,1,2,5,36301,0,'5.59.70.34',1541238452,'LOG_POST_EDITED','a:2:{i:0;s:20:\"MacExec not working?\";i:1;s:13:\"plantenkennis\";}'),(4600,1,2076,6,36307,0,'45.74.211.188',1541385416,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Creacion de MenuBegin()\";}'),(4601,1,2076,6,36308,0,'45.74.211.188',1541532958,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Problema menu con MenuBegin()\";}'),(4602,1,1814,6,36264,0,'186.103.145.171',1541596658,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: XBROWSE NO Actualiza Campos Modificados\";}'),(4603,1,2598,3,36322,0,'94.163.254.55',1541611234,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"Path Issue\";}'),(4604,3,3593,0,0,3593,'84.194.52.40',1541937416,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(4605,3,213,0,0,213,'73.206.196.179',1542211279,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"Randal\";i:1;s:16:\"scebee@yahoo.com\";i:2;s:23:\"rferguson26@comcast.net\";}'),(4606,1,2819,6,36350,0,'187.235.89.38',1542312586,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: AYUDA URGENTE CON COMBOBOX\";}'),(4607,1,2598,3,36354,0,'5.87.94.6',1542364047,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"txtfile problem\";}'),(4608,1,2598,3,36357,0,'94.161.17.182',1542385195,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Help for gradient btnbmp\";}'),(4609,1,3834,6,36350,0,'190.162.251.15',1542395294,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: AYUDA URGENTE CON COMBOBOX\";}'),(4610,1,1741,20,36092,0,'82.62.25.10',1542798407,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Fatturazione Elettronica\";}'),(4611,2,3777,0,0,0,'184.21.33.242',1543170647,'LOG_ERROR_EMAIL','a:1:{i:0;s:265:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><b>[phpBB Debug] PHP Notice</b>: in file <b>/includes/functions_messenger.php</b> on line <b>655</b>: <b>mail(): Could not execute mail delivery program \'/usr/sbin/sendmail -t -i\'</b><br />\n<br />\";}'),(4612,1,2342,6,36395,0,'85.54.231.176',1543627055,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Para el Sr. Cristobal Navarro\";}'),(4613,1,23,6,36379,0,'92.57.152.59',1543784927,'LOG_DELETE_POST','a:1:{i:0;s:59:\"Re: Aporte para TCalex: Navegación con teclas en Vista Dia\";}'),(4614,1,2,19,36412,0,'5.59.70.34',1544002881,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4615,1,86,3,36416,0,'84.192.130.147',1544024560,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"Very very very strange problem - urgent\";}'),(4616,1,362,6,36422,0,'177.134.29.77',1544105852,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Como hacer esta tela(screen) en FWH, cual classe?\";}'),(4617,1,362,6,36422,0,'177.134.29.77',1544105861,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Como hacer esta tela(screen) en FWH, cual classe?\";}'),(4618,1,2076,6,36422,0,'32.97.110.58',1544106597,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Como hacer esta tela(screen) en FWH, cual classe?\";}'),(4619,1,362,6,36422,0,'177.134.29.77',1544106715,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Como hacer esta tela(screen) en FWH, cual classe?\";}'),(4620,1,2598,3,36427,0,'194.243.201.246',1544177266,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"add a text infot a file xml\";}'),(4621,1,2598,3,36419,0,'94.162.167.99',1544285887,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"xml and file styles\";}'),(4622,3,453,0,0,453,'79.155.59.101',1544380202,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"Ramón J.\";i:1;s:17:\"rajimto@orange.es\";i:2;s:18:\"rajimto@hotmail.es\";}'),(4623,1,2598,3,36452,0,'194.243.201.246',1544540684,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"Error on\";}'),(4624,2,1178,0,0,0,'190.217.116.195',1544884104,'LOG_ERROR_EMAIL','a:1:{i:0;s:265:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><b>[phpBB Debug] PHP Notice</b>: in file <b>/includes/functions_messenger.php</b> on line <b>655</b>: <b>mail(): Could not execute mail delivery program \'/usr/sbin/sendmail -t -i\'</b><br />\n<br />\";}'),(4625,2,1178,0,0,0,'190.217.116.195',1544884104,'LOG_ERROR_EMAIL','a:1:{i:0;s:265:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><b>[phpBB Debug] PHP Notice</b>: in file <b>/includes/functions_messenger.php</b> on line <b>655</b>: <b>mail(): Could not execute mail delivery program \'/usr/sbin/sendmail -t -i\'</b><br />\n<br />\";}'),(4626,2,1178,0,0,0,'190.217.116.195',1544884104,'LOG_ERROR_EMAIL','a:1:{i:0;s:265:\"<strong>EMAIL/PHP/mail()</strong><br /><em>/cron.php</em><br /><br /><b>[phpBB Debug] PHP Notice</b>: in file <b>/includes/functions_messenger.php</b> on line <b>655</b>: <b>mail(): Could not execute mail delivery program \'/usr/sbin/sendmail -t -i\'</b><br />\n<br />\";}'),(4627,1,2598,3,36472,0,'194.243.201.246',1545126469,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Problem with btnbmp\";}'),(4628,1,2598,3,36472,0,'194.243.201.246',1545126478,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Problem with btnbmp\";}'),(4629,1,1323,3,36473,0,'189.6.20.111',1545165592,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: List of COM Port\";}'),(4630,1,2598,3,36477,0,'194.243.201.246',1545387762,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Problems with scrollPanels\";}'),(4631,1,2598,3,36477,0,'194.243.201.246',1545387781,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Problems with scrollPanels\";}'),(4632,1,2598,3,36477,0,'194.243.201.246',1545387789,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Problems with scrollPanels\";}'),(4633,1,2598,3,36453,0,'5.86.87.146',1545419885,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: How to control run out EXE into B Monitor\";}'),(4634,1,2598,3,36469,0,'5.86.87.146',1545420272,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Price List creation\";}'),(4635,1,2598,3,36469,0,'5.86.87.146',1545420281,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Price List creation\";}'),(4636,1,1257,3,36495,0,'78.49.15.19',1545431008,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Happy Xmas to All\";}'),(4637,1,294,6,36500,0,'181.16.45.149',1545497867,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: TDOLPHIN atribuir valor a objeto\";}'),(4638,1,2598,3,36513,0,'94.161.31.195',1545665253,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"error get bitmap\";}'),(4639,1,2598,3,36510,0,'94.161.31.195',1545668616,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: fwh Dec 17 vs Fwh Nov 18\";}'),(4640,1,868,3,36514,0,'183.82.62.7',1545675712,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: other problems with new release fwh11.18\";}'),(4641,1,2598,3,36511,0,'94.162.41.220',1545761190,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Where is Franklin Demont?\";}'),(4642,1,2598,3,36520,0,'94.161.109.149',1545843489,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"saving a image\";}'),(4643,1,2598,3,36517,0,'94.161.109.149',1545844473,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: How Open the same dbf\";}'),(4644,3,221,0,0,221,'186.145.52.217',1545991263,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"QAZWSX2K\";}'),(4645,1,2,19,36538,0,'89.131.23.179',1545995650,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4646,1,2,19,36537,0,'89.131.23.179',1545995668,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(4647,1,51,3,36536,0,'80.122.88.242',1546686294,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: How to Create Easy Report Designer Files ?\";}'),(4648,3,1313,0,0,1313,'191.251.40.22',1546865715,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"SGS\";}'),(4649,3,1313,0,0,1313,'191.251.40.22',1546865715,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:3:\"SGS\";i:1;s:21:\"sgsistemas@bol.com.br\";i:2;s:21:\"ubiratanmga@gmail.com\";}'),(4650,0,2,0,0,0,'5.59.70.34',1546968155,'LOG_ADMIN_AUTH_SUCCESS',''),(4651,3,2,0,0,1313,'5.59.70.34',1546968183,'LOG_USER_UPDATE_NAME','a:2:{i:0;s:3:\"SGS\";i:1;s:3:\"MGA\";}'),(4652,0,2,0,0,0,'5.59.70.34',1546968183,'LOG_USER_USER_UPDATE','a:1:{i:0;s:3:\"MGA\";}'),(4653,3,1313,0,0,1313,'189.114.252.20',1546968776,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"MGA\";}'),(4654,3,1313,0,0,1313,'177.47.27.203',1547066741,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"MGA\";}'),(4655,1,2,17,36576,0,'5.59.70.34',1547069959,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(4656,1,2598,3,36595,0,'194.243.201.246',1547209742,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Multiarray &amp; Combobox\";}'),(4657,0,2,0,0,0,'5.59.70.34',1547281807,'LOG_ADMIN_AUTH_SUCCESS',''),(4658,0,2,0,0,0,'5.59.70.34',1547281828,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"viasoluciones\";}'),(4659,0,2,0,0,0,'5.59.70.34',1547281833,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:13:\"viasoluciones\";}'),(4660,1,2,17,36602,0,'89.131.23.179',1547372019,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(4661,1,2,17,36601,0,'89.131.23.179',1547372046,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(4662,1,35,3,36570,0,'24.168.211.172',1547406852,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: TGET behavior (Antonio)\";}'),(4663,1,2598,3,36516,0,'194.243.201.246',1547469332,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"found a letter or a number\";}'),(4664,0,2,0,0,0,'89.131.23.179',1547481414,'LOG_ADMIN_AUTH_SUCCESS',''),(4665,0,2,0,0,0,'89.131.23.179',1547481428,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"jgabri\";}'),(4666,0,2,0,0,0,'89.131.23.179',1547481432,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"jgabri\";}'),(4667,1,2598,3,36607,0,'94.162.131.112',1547485244,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Simulate drag &amp; drop on buttons for tablet\";}'),(4668,1,2598,3,36598,0,'194.243.201.246',1547537594,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"bitmap on column xbrowse with array\";}'),(4669,1,2598,3,36584,0,'94.162.244.2',1547547003,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: sort an array on line\";}'),(4670,1,2598,3,36618,0,'194.243.201.246',1547629000,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: TO Cristobal\";}'),(4671,1,2598,3,36618,0,'194.243.201.246',1547629007,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: TO Cristobal\";}'),(4672,1,2598,3,36618,0,'194.243.201.246',1547629015,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: TO Cristobal\";}'),(4673,1,2598,3,36612,0,'194.243.201.246',1547636421,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Simulate drag &amp; drop on buttons for tablet\";}'),(4674,1,2598,3,36622,0,'194.243.201.246',1547637197,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Buttons on Tablet : Drag and drop for xbrowse\";}'),(4675,1,2598,3,36631,0,'194.243.201.246',1547808907,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Clear a Filter from an array\";}'),(4676,1,2598,3,36603,0,'194.243.201.246',1547810148,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: strange execution of Index\";}'),(4677,3,596,0,0,596,'62.151.121.213',1547828072,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"JmGarcia\";}'),(4678,1,2598,3,36644,0,'194.243.201.246',1548075336,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Crate a combobox with alphabet\";}'),(4679,3,3731,0,0,3731,'201.187.97.138',1548177298,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"José\";}'),(4680,3,3731,0,0,3731,'201.187.97.138',1548177298,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"José\";i:1;s:24:\"joseconcha@antumalal.net\";i:2;s:19:\"joseconcha@sigue.cl\";}'),(4681,1,303,3,36577,0,'68.6.163.93',1548346357,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: A toolbox of netfunctions\";}'),(4682,1,868,3,36675,0,'183.82.62.7',1548449138,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Function File() but for hidden files\";}'),(4683,1,2,3,36675,0,'89.131.23.179',1548506359,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: Function File() but for hidden files\";i:1;s:17:\"nageswaragunupudi\";}'),(4684,1,1690,3,36680,0,'87.133.103.183',1548514073,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Bug in getsysin.prg, line 260\";}'),(4685,3,1313,0,0,1313,'189.114.253.31',1548670772,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"MGA\";}'),(4686,1,1313,3,36653,0,'189.114.253.31',1548670916,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: a btnbmp question (show popup)\";}'),(4687,3,58,0,0,58,'87.183.37.36',1548691660,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Detlef Hoefner\";}'),(4688,1,2598,3,36525,0,'194.243.201.246',1548751578,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: trying with tdatabase\";}'),(4689,1,1257,3,36678,0,'93.131.57.18',1548788007,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: to Nages : problem with FW_ArrayToDbf with tdatabase\";}'),(4690,1,34,3,36688,0,'68.109.70.185',1548788705,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Errorsysw.prg\";}'),(4691,0,2,0,0,0,'81.32.103.51',1548789651,'LOG_ADMIN_AUTH_SUCCESS',''),(4692,1,1313,3,36653,0,'189.114.253.31',1548789747,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: a btnbmp question (show popup)\";}'),(4693,0,2,0,0,0,'89.131.23.179',1548847937,'LOG_ADMIN_AUTH_SUCCESS',''),(4694,0,2,0,0,0,'89.131.23.179',1548848000,'LOG_USER_REACTIVATE','a:1:{i:0;s:14:\"Eric.Developer\";}'),(4695,3,2,0,0,1903,'89.131.23.179',1548848000,'LOG_USER_REACTIVATE_USER',''),(4696,0,2,0,0,0,'5.59.70.34',1548863972,'LOG_ADMIN_AUTH_SUCCESS',''),(4697,0,2,0,0,0,'5.59.70.34',1548871024,'LOG_ADMIN_AUTH_SUCCESS',''),(4698,0,2,0,0,0,'5.59.70.34',1548871085,'LOG_UNBAN_USER','a:1:{i:0;s:14:\"Eric.Developer\";}'),(4699,1,2,0,0,0,'5.59.70.34',1548871085,'LOG_UNBAN_USER','a:1:{i:0;s:14:\"Eric.Developer\";}'),(4700,0,2,0,0,0,'5.59.70.34',1548871163,'LOG_UNBAN_USER','a:1:{i:0;s:0:\"\";}'),(4701,1,2,0,0,0,'5.59.70.34',1548871163,'LOG_UNBAN_USER','a:1:{i:0;s:0:\"\";}'),(4702,1,2598,3,36692,0,'94.160.56.144',1548878761,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Show an Image on xbrowse\";}'),(4703,1,2598,3,36692,0,'94.160.56.144',1548878987,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Show an Image on xbrowse\";}'),(4704,1,913,17,36601,0,'189.217.74.219',1549010760,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: OT If you do not want to use google maps .. look at this\";}'),(4705,1,913,17,36601,0,'189.217.74.219',1549010778,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: OT If you do not want to use google maps .. look at this\";}'),(4706,1,2598,3,36705,0,'194.243.201.246',1549024325,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"Problem with fwh Tdatabase &amp; filter\";}'),(4707,1,51,3,36708,0,'80.122.88.242',1549097467,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"SET XBROWSE TO TXBrCode()\";}'),(4708,1,868,3,36710,0,'183.82.62.7',1549152138,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: AADD not working with GETS\";}'),(4709,1,2598,3,36695,0,'94.164.158.91',1549184895,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Founding a solution for recall delete  fields\";}'),(4710,1,2598,3,36718,0,'194.243.201.246',1549364661,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Array script\";}'),(4711,1,2598,3,36715,0,'194.243.201.246',1549452735,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: other of Tdatarow of fwh\";}'),(4712,1,2598,3,36727,0,'194.243.201.246',1549529044,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: name of the day\";}'),(4713,1,2,3,36727,0,'89.131.23.179',1549533680,'LOG_LOCK','a:1:{i:0;s:15:\"name of the day\";}'),(4714,3,1195,0,0,1195,'190.24.198.62',1549636305,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(4715,1,1257,3,36731,0,'2.243.187.217',1549834004,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"xBrowse :bSumCondition of logical fields NOT counted ?\";}'),(4716,1,1257,3,36732,0,'78.49.122.208',1549877604,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"Possible Dialog TRANSPARENT and xBrowse-brush ?\";}'),(4717,1,1257,3,36745,0,'93.131.84.67',1550012265,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"A problem with new FWH 19_01\";}'),(4718,1,2473,6,36746,0,'191.190.75.251',1550038976,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"atualiza\";}'),(4719,1,2598,3,36748,0,'194.243.201.246',1550056674,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Problem with XBROWSE and IMAGE\";}'),(4720,1,2598,3,36777,0,'94.165.10.246',1550521863,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"COMBOBOX DISABLE\";}'),(4721,3,4149,0,0,4149,'186.1.168.146',1550669480,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:18:\"Adolfredo Martinez\";}'),(4722,1,1193,3,36798,0,'42.72.80.184',1550821354,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Import Chinese Characters from XLS\";}'),(4723,1,1193,3,36798,0,'42.72.80.184',1550821373,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Import Chinese Characters from XLS\";}'),(4724,3,936,0,0,936,'186.151.60.187',1550837039,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(4725,1,3834,6,36806,0,'190.162.251.15',1550945479,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Error al Crear DBF\";}'),(4726,1,2,3,36800,0,'31.148.193.229',1550997339,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: How manually mapping a field to TDatabase\";}'),(4727,1,1257,3,36807,0,'93.132.22.194',1551017465,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Error including xBrowse to the make-file\";}'),(4728,1,878,6,36809,0,'190.31.229.214',1551038990,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"FILLARRAY en :Rowset() ? Mr.Rao\";}'),(4729,1,2598,3,36812,0,'194.243.201.246',1551099096,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"help for a search of date\";}'),(4730,1,1193,3,36802,0,'42.72.80.184',1551142097,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: cGetFile32 not support Chinese File Name\";}'),(4731,1,1193,3,36802,0,'42.72.80.184',1551232144,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: cGetFile32 not support Chinese File Name\";}'),(4732,3,600,0,0,600,'95.127.56.168',1551348208,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"juanjogascem\";}'),(4733,1,303,3,36832,0,'68.6.163.93',1551552846,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(4734,1,2,32,36842,0,'31.148.193.229',1551601913,'LOG_TOPIC_TYPE_CHANGED','a:1:{i:0;s:46:\"Download fivetouch.apk for Android and Windows\";}'),(4735,0,2,0,0,0,'31.148.193.229',1551913070,'LOG_ADMIN_AUTH_SUCCESS',''),(4736,0,2,0,0,0,'31.148.193.229',1551913086,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"wywerco\";}'),(4737,0,2,0,0,0,'31.148.193.229',1551913090,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"wywerco\";}'),(4738,0,2,0,0,0,'31.148.193.229',1551913132,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"irraxd\";}'),(4739,0,2,0,0,0,'31.148.193.229',1551913136,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"irraxd\";}'),(4740,1,2598,3,36859,0,'194.243.201.246',1551950483,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"List name of files\";}'),(4741,1,47,3,36838,0,'124.122.137.7',1552017476,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Insert a logo image on a background image.\";}'),(4742,1,47,3,36838,0,'124.122.137.7',1552019673,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Insert a logo image on a background image.\";}'),(4743,1,35,19,36779,0,'96.10.121.194',1552055461,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"ADO Conversion Specialist\";}'),(4744,3,1277,0,0,1277,'200.51.92.181',1552666947,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"patriciodanel\";}'),(4745,1,1880,6,36914,0,'186.137.200.130',1552999821,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Ordenamiento CH y LL\";}'),(4746,1,1193,3,36922,0,'42.73.209.22',1553161890,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: What kind of Business Applications can be developed in FWH ?\";}'),(4747,1,303,3,36930,0,'68.6.163.93',1553361572,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: convert from oldest Listbox to xbrowse\";}'),(4748,1,1853,3,36913,0,'69.249.230.111',1553432674,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Map under WINDOWS 10\";}'),(4749,0,2,0,0,0,'31.148.193.229',1553801918,'LOG_ADMIN_AUTH_SUCCESS',''),(4750,0,2,0,0,0,'31.148.193.229',1553801941,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:7:\"Lailton\";}'),(4751,0,2,0,0,0,'31.148.193.229',1553801953,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"Lailton\";}'),(4752,0,2,0,0,0,'31.148.193.229',1553802034,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:8:\"cnavarro\";}'),(4753,0,2,0,0,0,'31.148.193.229',1553802039,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"cnavarro\";}'),(4754,0,2,0,0,0,'31.148.193.229',1553802084,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:7:\"karinha\";}'),(4755,0,2,0,0,0,'31.148.193.229',1553802089,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"karinha\";}'),(4756,0,2,0,0,0,'31.148.193.229',1553802253,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:13:\"carlos vargas\";}'),(4757,0,2,0,0,0,'31.148.193.229',1553802258,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"carlos vargas\";}'),(4758,0,2,0,0,0,'31.148.193.229',1553802363,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"Lailton\";}'),(4759,0,2,0,0,0,'31.148.193.229',1553802380,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"karinha\";}'),(4760,0,2,0,0,0,'31.148.193.229',1553802395,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"carlos vargas\";}'),(4761,0,2,0,0,0,'31.148.193.229',1553802411,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"cnavarro\";}'),(4762,1,1257,3,36930,0,'93.131.135.140',1554042892,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: convert from oldest Listbox to xbrowse\";}'),(4763,1,693,3,36960,0,'190.11.154.216',1554057753,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: lgetbar on road\";}'),(4764,1,2530,3,20885,0,'191.32.1.107',1554125949,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4765,1,2530,3,20885,0,'191.32.1.107',1554125972,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4766,1,2530,3,20885,0,'191.32.1.107',1554125990,'LOG_DELETE_POST','a:1:{i:0;s:7:\"FiveWeb\";}'),(4767,1,2530,3,20885,0,'191.32.1.107',1554135689,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4768,1,2530,3,20885,0,'191.32.1.107',1554135742,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4769,1,2530,3,20885,0,'191.32.1.107',1554135779,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4770,1,2530,3,20885,0,'191.32.1.107',1554135787,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4771,1,2530,3,20885,0,'191.32.1.107',1554135794,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4772,1,2530,3,20885,0,'191.32.1.107',1554135804,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4773,1,2530,3,20885,0,'191.32.1.107',1554135811,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4774,1,2530,3,20885,0,'191.32.1.107',1554135818,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4775,1,2530,3,20885,0,'191.32.1.107',1554135824,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4776,1,2530,3,20885,0,'191.32.1.107',1554135840,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4777,1,2530,3,20885,0,'191.32.1.107',1554135936,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4778,1,2530,3,20885,0,'191.32.1.107',1554135947,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4779,1,2530,3,20885,0,'191.32.1.107',1554135982,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4780,1,2530,3,20885,0,'191.32.1.107',1554135998,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4781,1,2530,3,20885,0,'191.32.1.107',1554136005,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4782,1,2530,3,20885,0,'191.32.1.107',1554136012,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4783,1,2530,3,20885,0,'191.32.1.107',1554136020,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4784,1,2530,3,20885,0,'191.32.1.107',1554136026,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4785,1,2530,3,20885,0,'191.32.1.107',1554136033,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4786,1,2530,3,20885,0,'191.32.1.107',1554136039,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4787,1,2530,3,20885,0,'191.32.1.107',1554136044,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4788,1,2530,3,20885,0,'191.32.1.107',1554136049,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4789,1,2530,3,20885,0,'191.32.1.107',1554136057,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4790,1,2530,3,20885,0,'191.32.1.107',1554136072,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4791,1,2530,3,20885,0,'191.32.1.107',1554136079,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4792,1,2530,3,20885,0,'191.32.1.107',1554136086,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4793,1,2530,3,20885,0,'191.32.1.107',1554136096,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4794,1,2530,3,20885,0,'191.32.1.107',1554136109,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4795,1,2530,3,20885,0,'191.32.1.107',1554136116,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4796,1,2530,3,20885,0,'191.32.1.107',1554136121,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4797,1,2530,3,20885,0,'191.32.1.107',1554136126,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4798,1,2530,3,20885,0,'191.32.1.107',1554136132,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4799,1,2530,3,20885,0,'191.32.1.107',1554136137,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4800,1,2530,3,20885,0,'191.32.1.107',1554136142,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4801,1,2530,3,20885,0,'191.32.1.107',1554136147,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4802,1,2530,3,20885,0,'191.32.1.107',1554136152,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4803,1,2530,3,20885,0,'191.32.1.107',1554136158,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4804,1,2530,3,20885,0,'191.32.1.107',1554136163,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4805,1,2530,3,20885,0,'191.32.1.107',1554136169,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4806,1,2530,3,20885,0,'191.32.1.107',1554136175,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4807,1,2530,3,20885,0,'191.32.1.107',1554136180,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4808,1,2530,3,20885,0,'191.32.1.107',1554136184,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4809,1,2530,3,20885,0,'191.32.1.107',1554136189,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4810,1,2530,3,20885,0,'191.32.1.107',1554136194,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4811,1,2530,3,20885,0,'191.32.1.107',1554136200,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4812,1,2530,3,20885,0,'191.32.1.107',1554136206,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4813,1,2530,3,20885,0,'191.32.1.107',1554136211,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4814,1,2530,3,20885,0,'191.32.1.107',1554136219,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4815,1,2530,3,20885,0,'191.32.1.107',1554136224,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4816,1,2530,3,20885,0,'191.32.1.107',1554136230,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4817,1,2530,3,20885,0,'191.32.1.107',1554136234,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4818,1,2530,3,20885,0,'191.32.1.107',1554136240,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4819,1,2530,3,20885,0,'191.32.1.107',1554136244,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4820,1,2530,3,20885,0,'191.32.1.107',1554136249,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4821,1,2530,3,20885,0,'191.32.1.107',1554136254,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4822,1,2530,3,20885,0,'191.32.1.107',1554136258,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4823,1,2530,3,20885,0,'191.32.1.107',1554136263,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4824,1,2530,3,20885,0,'191.32.1.107',1554136268,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4825,1,2530,3,20885,0,'191.32.1.107',1554136273,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4826,1,2530,3,20885,0,'191.32.1.107',1554136278,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4827,1,2530,3,20885,0,'191.32.1.107',1554136283,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4828,1,2530,3,20885,0,'191.32.1.107',1554136289,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4829,1,2530,3,20885,0,'191.32.1.107',1554136294,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4830,1,2530,3,20885,0,'191.32.1.107',1554136299,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4831,1,2530,3,20885,0,'191.32.1.107',1554136303,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4832,1,2530,3,20885,0,'191.32.1.107',1554136308,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4833,1,2530,3,20885,0,'191.32.1.107',1554136315,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4834,1,2530,3,20885,0,'191.32.1.107',1554136320,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4835,1,2530,3,20885,0,'191.32.1.107',1554136325,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4836,1,2530,3,20885,0,'191.32.1.107',1554136331,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4837,1,2530,3,20885,0,'191.32.1.107',1554136336,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4838,1,2530,3,20885,0,'191.32.1.107',1554136341,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4839,1,2530,3,20885,0,'191.32.1.107',1554136346,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4840,1,2530,3,20885,0,'191.32.1.107',1554136352,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4841,1,2530,3,20885,0,'191.32.1.107',1554136358,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4842,1,2530,3,20885,0,'191.32.1.107',1554136363,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4843,1,2530,3,20885,0,'191.32.1.107',1554136368,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4844,1,2530,3,20885,0,'191.32.1.107',1554136373,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4845,1,2530,3,20885,0,'191.32.1.107',1554136378,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4846,1,2530,3,20885,0,'191.32.1.107',1554136383,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4847,1,2530,3,20885,0,'191.32.1.107',1554136387,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4848,1,2530,3,20885,0,'191.32.1.107',1554136393,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4849,1,2530,3,20885,0,'191.32.1.107',1554136399,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4850,1,2530,3,20885,0,'191.32.1.107',1554136404,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4851,1,2530,3,20885,0,'191.32.1.107',1554136409,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4852,1,2530,3,20885,0,'191.32.1.107',1554136414,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4853,1,2530,3,20885,0,'191.32.1.107',1554136418,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4854,1,2530,3,20885,0,'191.32.1.107',1554136423,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4855,1,2530,3,20885,0,'191.32.1.107',1554136427,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4856,1,2530,3,20885,0,'191.32.1.107',1554136431,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4857,1,2530,3,20885,0,'191.32.1.107',1554136436,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4858,1,2530,3,20885,0,'191.32.1.107',1554136440,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4859,1,2530,3,20885,0,'191.32.1.107',1554136445,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4860,1,2530,3,20885,0,'191.32.1.107',1554136449,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4861,1,2530,3,20885,0,'191.32.1.107',1554136455,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4862,1,2530,3,20885,0,'191.32.1.107',1554136459,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4863,1,2530,3,20885,0,'191.32.1.107',1554136463,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4864,1,2530,3,20885,0,'191.32.1.107',1554136468,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4865,1,2530,3,20885,0,'191.32.1.107',1554136472,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4866,1,2530,3,20885,0,'191.32.1.107',1554136477,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4867,1,2530,3,20885,0,'191.32.1.107',1554136482,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4868,1,2530,3,20885,0,'191.32.1.107',1554136487,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4869,1,2530,3,20885,0,'191.32.1.107',1554136492,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4870,1,2530,3,20885,0,'191.32.1.107',1554136496,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4871,1,2530,3,20885,0,'191.32.1.107',1554136500,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4872,1,2530,3,20885,0,'191.32.1.107',1554136505,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4873,1,2530,3,20885,0,'191.32.1.107',1554136509,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4874,1,2530,3,20885,0,'191.32.1.107',1554136512,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4875,1,2530,3,20885,0,'191.32.1.107',1554136517,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4876,1,2530,3,20885,0,'191.32.1.107',1554136522,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4877,1,2530,3,20885,0,'191.32.1.107',1554136526,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4878,1,2530,3,20885,0,'191.32.1.107',1554136531,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4879,1,2530,3,20885,0,'191.32.1.107',1554136537,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4880,1,2530,3,20885,0,'191.32.1.107',1554136542,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4881,1,2530,3,20885,0,'191.32.1.107',1554136546,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4882,1,2530,3,20885,0,'191.32.1.107',1554136551,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4883,1,2530,3,20885,0,'191.32.1.107',1554136557,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4884,1,2530,3,20885,0,'191.32.1.107',1554136561,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4885,1,2530,3,20885,0,'191.32.1.107',1554136566,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4886,1,2530,3,20885,0,'191.32.1.107',1554136571,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4887,1,2530,3,20885,0,'191.32.1.107',1554136577,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4888,1,2530,3,20885,0,'191.32.1.107',1554136581,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4889,1,2530,3,20885,0,'191.32.1.107',1554136587,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4890,1,2530,3,20885,0,'191.32.1.107',1554136592,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4891,1,2530,3,20885,0,'191.32.1.107',1554136596,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4892,1,2530,3,20885,0,'191.32.1.107',1554136600,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4893,1,2530,3,20885,0,'191.32.1.107',1554136607,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4894,1,2530,3,20885,0,'191.32.1.107',1554136612,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4895,1,2530,3,20885,0,'191.32.1.107',1554136616,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4896,1,2530,3,20885,0,'191.32.1.107',1554136621,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4897,1,2530,3,20885,0,'191.32.1.107',1554136625,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4898,1,2530,3,20885,0,'191.32.1.107',1554136629,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4899,1,2530,3,20885,0,'191.32.1.107',1554136634,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4900,1,2530,3,20885,0,'191.32.1.107',1554136639,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4901,1,2530,3,20885,0,'191.32.1.107',1554136643,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4902,1,2530,3,20885,0,'191.32.1.107',1554136649,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4903,1,2530,3,20885,0,'191.32.1.107',1554136653,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4904,1,2530,3,20885,0,'191.32.1.107',1554136659,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4905,1,2530,3,20885,0,'191.32.1.107',1554136664,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4906,1,2530,3,20885,0,'191.32.1.107',1554136668,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4907,1,2530,3,20885,0,'191.32.1.107',1554136673,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4908,1,2530,3,20885,0,'191.32.1.107',1554136678,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4909,1,2530,3,20885,0,'191.32.1.107',1554136683,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4910,1,2530,3,20885,0,'191.32.1.107',1554136688,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4911,1,2530,3,20885,0,'191.32.1.107',1554136693,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4912,1,2530,3,20885,0,'191.32.1.107',1554136697,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4913,1,2530,3,20885,0,'191.32.1.107',1554136710,'LOG_DELETE_TOPIC','a:1:{i:0;s:7:\"FiveWeb\";}'),(4914,1,2530,6,22493,0,'191.32.1.107',1554137052,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Consulta para Fivetech\";}'),(4915,1,2530,6,20886,0,'191.32.1.107',1554137073,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4916,1,2530,6,20886,0,'191.32.1.107',1554137079,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4917,1,2530,6,20886,0,'191.32.1.107',1554137100,'LOG_DELETE_POST','a:1:{i:0;s:7:\"FiveWeb\";}'),(4918,1,2530,6,20886,0,'191.32.1.107',1554137105,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4919,1,2530,6,20886,0,'191.32.1.107',1554137111,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4920,1,2530,6,20886,0,'191.32.1.107',1554137116,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4921,1,2530,6,20886,0,'191.32.1.107',1554137120,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4922,1,2530,6,20886,0,'191.32.1.107',1554137125,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4923,1,2530,6,20886,0,'191.32.1.107',1554137129,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4924,1,2530,6,20886,0,'191.32.1.107',1554137134,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4925,1,2530,6,20886,0,'191.32.1.107',1554137137,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4926,1,2530,6,20886,0,'191.32.1.107',1554137142,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4927,1,2530,6,20886,0,'191.32.1.107',1554137146,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4928,1,2530,6,20886,0,'191.32.1.107',1554137150,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4929,1,2530,6,20886,0,'191.32.1.107',1554137157,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4930,1,2530,6,20886,0,'191.32.1.107',1554137161,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4931,1,2530,6,20886,0,'191.32.1.107',1554137165,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4932,1,2530,6,20886,0,'191.32.1.107',1554137170,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4933,1,2530,6,20886,0,'191.32.1.107',1554137175,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4934,1,2530,6,20886,0,'191.32.1.107',1554137179,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4935,1,2530,6,20886,0,'191.32.1.107',1554137184,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4936,1,2530,6,20886,0,'191.32.1.107',1554137188,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4937,1,2530,6,20886,0,'191.32.1.107',1554137192,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4938,1,2530,6,20886,0,'191.32.1.107',1554137197,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4939,1,2530,6,20886,0,'191.32.1.107',1554137201,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4940,1,2530,6,20886,0,'191.32.1.107',1554137205,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4941,1,2530,6,20886,0,'191.32.1.107',1554137210,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4942,1,2530,6,20886,0,'191.32.1.107',1554137214,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4943,1,2530,6,20886,0,'191.32.1.107',1554137221,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4944,1,2530,6,20886,0,'191.32.1.107',1554137225,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4945,1,2530,6,20886,0,'191.32.1.107',1554137229,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4946,1,2530,6,20886,0,'191.32.1.107',1554137233,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4947,1,2530,6,20886,0,'191.32.1.107',1554137236,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4948,1,2530,6,20886,0,'191.32.1.107',1554137240,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4949,1,2530,6,20886,0,'191.32.1.107',1554137243,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4950,1,2530,6,20886,0,'191.32.1.107',1554137247,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4951,1,2530,6,20886,0,'191.32.1.107',1554137251,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4952,1,2530,6,20886,0,'191.32.1.107',1554137255,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4953,1,2530,6,20886,0,'191.32.1.107',1554137259,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4954,1,2530,6,20886,0,'191.32.1.107',1554137262,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4955,1,2530,6,20886,0,'191.32.1.107',1554137266,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4956,1,2530,6,20886,0,'191.32.1.107',1554137270,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4957,1,2530,6,20886,0,'191.32.1.107',1554137274,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4958,1,2530,6,20886,0,'191.32.1.107',1554137277,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4959,1,2530,6,20886,0,'191.32.1.107',1554137280,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4960,1,2530,6,20886,0,'191.32.1.107',1554137285,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4961,1,2530,6,20886,0,'191.32.1.107',1554137288,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4962,1,2530,6,20886,0,'191.32.1.107',1554137292,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4963,1,2530,6,20886,0,'191.32.1.107',1554137295,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4964,1,2530,6,20886,0,'191.32.1.107',1554137299,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4965,1,2530,6,20886,0,'191.32.1.107',1554137302,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4966,1,2530,6,20886,0,'191.32.1.107',1554137306,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4967,1,2530,6,20886,0,'191.32.1.107',1554137309,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4968,1,2530,6,20886,0,'191.32.1.107',1554137313,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4969,1,2530,6,20886,0,'191.32.1.107',1554137317,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4970,1,2530,6,20886,0,'191.32.1.107',1554137322,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: FiveWeb\";}'),(4971,1,2530,6,20886,0,'191.32.1.107',1554137328,'LOG_DELETE_TOPIC','a:1:{i:0;s:7:\"FiveWeb\";}'),(4972,1,2530,3,21338,0,'191.32.1.107',1554137355,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4973,1,2530,3,21338,0,'191.32.1.107',1554137370,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4974,1,2530,3,21338,0,'191.32.1.107',1554137375,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4975,1,2530,3,21338,0,'191.32.1.107',1554137379,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4976,1,2530,3,21338,0,'191.32.1.107',1554137385,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4977,1,2530,3,21338,0,'191.32.1.107',1554137390,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4978,1,2530,3,21338,0,'191.32.1.107',1554137396,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4979,1,2530,3,21338,0,'191.32.1.107',1554137402,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4980,1,2530,3,21338,0,'191.32.1.107',1554137407,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: json data routine ( lailton )\";}'),(4981,1,2530,3,21338,0,'191.32.1.107',1554137414,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"json data routine ( lailton )\";}'),(4982,1,2530,3,11004,0,'191.32.1.107',1554137898,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Cool more...\";}'),(4983,1,2530,3,11004,0,'191.32.1.107',1554137903,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(4984,1,2530,3,11004,0,'191.32.1.107',1554137907,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"Biometric\";}'),(4985,1,2530,6,21046,0,'191.32.1.107',1554137931,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Blogs que traten sobre FWH/Harbour\";}'),(4986,1,2530,3,20602,0,'191.32.1.107',1554137954,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Ribbon Bar like Office 2010\";}'),(4987,1,2530,3,20602,0,'191.32.1.107',1554137960,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Ribbon Bar like Office 2010\";}'),(4988,1,2530,3,20602,0,'191.32.1.107',1554137966,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Ribbon Bar like Office 2010\";}'),(4989,1,2530,3,20602,0,'191.32.1.107',1554137972,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Ribbon Bar like Office 2010\";}'),(4990,1,2530,3,20602,0,'191.32.1.107',1554137978,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Ribbon Bar like Office 2010\";}'),(4991,1,2530,6,18420,0,'191.32.1.107',1554137996,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: codejocks control ocx con activex\";}'),(4992,1,2530,6,18420,0,'191.32.1.107',1554138006,'LOG_DELETE_POST','a:1:{i:0;s:33:\"codejocks control ocx con activex\";}'),(4993,1,2530,6,18420,0,'191.32.1.107',1554138011,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: codejocks control ocx con activex\";}'),(4994,1,2530,6,18420,0,'191.32.1.107',1554138016,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: codejocks control ocx con activex\";}'),(4995,1,2530,6,18420,0,'191.32.1.107',1554138020,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: codejocks control ocx con activex\";}'),(4996,1,2530,6,18420,0,'191.32.1.107',1554138025,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: codejocks control ocx con activex\";}'),(4997,1,2530,6,18420,0,'191.32.1.107',1554138029,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: codejocks control ocx con activex\";}'),(4998,1,2530,6,18420,0,'191.32.1.107',1554138035,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"codejocks control ocx con activex\";}'),(4999,1,2530,3,15102,0,'191.32.1.107',1554138055,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(5000,1,2530,3,15102,0,'191.32.1.107',1554138065,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(5001,1,2530,3,15102,0,'191.32.1.107',1554138072,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Codejock RibbonBar first tests\";}'),(5002,1,2530,3,15353,0,'191.32.1.107',1554138186,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Free FafiButton Class with FWH\";}'),(5003,1,2530,3,15353,0,'191.32.1.107',1554138195,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Free FafiButton Class with FWH\";}'),(5004,1,2530,3,15077,0,'191.32.1.107',1554138212,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Codejock.Lib\";}'),(5005,1,2530,3,15077,0,'191.32.1.107',1554138216,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5006,1,2530,3,15077,0,'191.32.1.107',1554138221,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5007,1,2530,3,15077,0,'191.32.1.107',1554138225,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5008,1,2530,3,15077,0,'191.32.1.107',1554138229,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5009,1,2530,3,15077,0,'191.32.1.107',1554138233,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5010,1,2530,3,15077,0,'191.32.1.107',1554138237,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5011,1,2530,3,15077,0,'191.32.1.107',1554138241,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5012,1,2530,3,15077,0,'191.32.1.107',1554138246,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5013,1,2530,3,15077,0,'191.32.1.107',1554138250,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5014,1,2530,3,15077,0,'191.32.1.107',1554138254,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Library CodeJock.Lib\";}'),(5015,1,2530,3,15077,0,'191.32.1.107',1554138260,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Codejock.Lib\";}'),(5016,1,2530,3,14681,0,'191.32.1.107',1554138287,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Code Jock In fivewin\";}'),(5017,1,2530,3,14681,0,'191.32.1.107',1554138291,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Help codejock\";}'),(5018,1,2530,3,14681,0,'191.32.1.107',1554138295,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Code Jock In fivewin\";}'),(5019,1,2530,3,14681,0,'191.32.1.107',1554138299,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Code Jock In fivewin\";}'),(5020,1,2530,3,14681,0,'191.32.1.107',1554138303,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Code Jock In fivewin\";}'),(5021,1,2530,3,14681,0,'191.32.1.107',1554138308,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Code Jock In fivewin\";}'),(5022,1,2530,3,12698,0,'191.32.1.107',1554138325,'LOG_DELETE_POST','a:1:{i:0;s:3:\"hum\";}'),(5023,1,2530,3,12698,0,'191.32.1.107',1554138331,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5024,1,2530,3,12698,0,'191.32.1.107',1554138335,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5025,1,2530,3,12698,0,'191.32.1.107',1554138338,'LOG_DELETE_POST','a:1:{i:0;s:3:\"hum\";}'),(5026,1,2530,3,12698,0,'191.32.1.107',1554138342,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5027,1,2530,3,12698,0,'191.32.1.107',1554138346,'LOG_DELETE_POST','a:1:{i:0;s:2:\"hu\";}'),(5028,1,2530,3,12698,0,'191.32.1.107',1554138349,'LOG_DELETE_POST','a:1:{i:0;s:2:\"61\";}'),(5029,1,2530,3,12698,0,'191.32.1.107',1554138353,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5030,1,2530,3,12698,0,'191.32.1.107',1554138356,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5031,1,2530,3,12698,0,'191.32.1.107',1554138360,'LOG_DELETE_POST','a:1:{i:0;s:3:\"Not\";}'),(5032,1,2530,3,12698,0,'191.32.1.107',1554138365,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5033,1,2530,3,12698,0,'191.32.1.107',1554138370,'LOG_DELETE_POST','a:1:{i:0;s:2:\"ok\";}'),(5034,1,2530,3,12698,0,'191.32.1.107',1554138382,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Microsoft Finger Print\";}'),(5035,1,2530,3,12698,0,'191.32.1.107',1554138386,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5036,1,2530,3,12698,0,'191.32.1.107',1554138391,'LOG_DELETE_POST','a:1:{i:0;s:3:\"hum\";}'),(5037,1,2530,3,12698,0,'191.32.1.107',1554138395,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5038,1,2530,3,12698,0,'191.32.1.107',1554138399,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5039,1,2530,3,12698,0,'191.32.1.107',1554138403,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Show me it error\";}'),(5040,1,2530,3,12698,0,'191.32.1.107',1554138407,'LOG_DELETE_POST','a:1:{i:0;s:6:\"My PRG\";}'),(5041,1,2530,3,12698,0,'191.32.1.107',1554138411,'LOG_DELETE_POST','a:1:{i:0;s:11:\"i need help\";}'),(5042,1,2530,3,12698,0,'191.32.1.107',1554138416,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5043,1,2530,3,12698,0,'191.32.1.107',1554138420,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5044,1,2530,3,12698,0,'191.32.1.107',1554138424,'LOG_DELETE_POST','a:1:{i:0;s:3:\"hum\";}'),(5045,1,2530,3,12698,0,'191.32.1.107',1554138428,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5046,1,2530,3,12698,0,'191.32.1.107',1554138432,'LOG_DELETE_POST','a:1:{i:0;s:3:\"hum\";}'),(5047,1,2530,3,12698,0,'191.32.1.107',1554138435,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5048,1,2530,3,12698,0,'191.32.1.107',1554138440,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Microsoft Finger Print\";}'),(5049,1,2530,3,12338,0,'191.32.1.107',1554138451,'LOG_DELETE_POST','a:1:{i:0;s:8:\"GRFinger\";}'),(5050,1,2530,3,12338,0,'191.32.1.107',1554138455,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Re: GRFinger\";}'),(5051,1,2530,3,12338,0,'191.32.1.107',1554138459,'LOG_DELETE_POST','a:1:{i:0;s:2:\"Hi\";}'),(5052,1,2530,3,12338,0,'191.32.1.107',1554138463,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5053,1,2530,3,12338,0,'191.32.1.107',1554138467,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5054,1,2530,3,12338,0,'191.32.1.107',1554138472,'LOG_DELETE_POST','a:1:{i:0;s:12:\"finger print\";}'),(5055,1,2530,3,12338,0,'191.32.1.107',1554138476,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5056,1,2530,3,12338,0,'191.32.1.107',1554138480,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5057,1,2530,3,12338,0,'191.32.1.107',1554138483,'LOG_DELETE_POST','a:1:{i:0;s:9:\"not found\";}'),(5058,1,2530,3,12338,0,'191.32.1.107',1554138487,'LOG_DELETE_POST','a:1:{i:0;s:4:\"back\";}'),(5059,1,2530,3,12338,0,'191.32.1.107',1554138491,'LOG_DELETE_POST','a:1:{i:0;s:0:\"\";}'),(5060,1,2530,3,12338,0,'191.32.1.107',1554138495,'LOG_DELETE_POST','a:1:{i:0;s:1:\"?\";}'),(5061,1,2530,3,12338,0,'191.32.1.107',1554138500,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"GRFinger\";}'),(5062,1,449,3,36963,0,'80.31.103.238',1554143978,'LOG_DELETE_POST','a:1:{i:0;s:71:\"Re: Harbour Community 2019 &quot;los viejos rockeros nunca mueren&quot;\";}'),(5063,0,2,0,0,0,'31.148.193.229',1554205685,'LOG_ADMIN_AUTH_SUCCESS',''),(5064,3,2,0,0,293,'31.148.193.229',1554205730,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"jufer\";}'),(5065,0,2,0,0,0,'31.148.193.229',1554205730,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"jufer\";}'),(5066,1,376,3,36977,0,'190.235.225.26',1554316569,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Volviendo a programar con Fivewin\";}'),(5067,3,376,0,0,376,'190.235.225.26',1554319320,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(5068,1,2342,3,36993,0,'62.37.25.31',1554547488,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: How to use GDIPLUS -&gt; NewGradientBrush ?\";}'),(5069,1,2342,3,36997,0,'90.71.217.81',1554716170,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: MINIMIZED /MAXIMIZED\";}'),(5070,1,2598,3,36997,0,'194.243.201.246',1554718129,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"MINIMIZED /MAXIMIZED\";}'),(5071,1,2342,6,37012,0,'85.58.182.156',1555003190,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Volver a Fivewin\";i:1;s:8:\"brakaman\";}'),(5072,1,2598,3,36976,0,'194.243.201.246',1555151906,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: SayBarCode control\";}'),(5073,1,2598,3,36976,0,'194.243.201.246',1555151913,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: SayBarCode control\";}'),(5074,1,237,6,24025,0,'186.22.198.203',1555164574,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Mejoras para scintilla\";}'),(5075,1,851,3,37005,0,'83.1.197.179',1555178198,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"build Fivehmx.lib\";}'),(5076,1,2598,3,37019,0,'94.166.59.121',1555355643,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: FWH1904: Printing Memos, Snaking columns and Multiple Pages\";}'),(5077,3,92,0,0,92,'95.17.241.104',1555361749,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(5078,1,2530,6,12983,0,'189.26.152.254',1555370376,'LOG_DELETE_POST','a:1:{i:0;s:4:\"help\";}'),(5079,1,2530,6,12983,0,'189.26.152.254',1555370389,'LOG_DELETE_POST','a:1:{i:0;s:2:\":)\";}'),(5080,1,2530,6,12983,0,'189.26.152.254',1555370405,'LOG_DELETE_POST','a:1:{i:0;s:4:\"hola\";}'),(5081,1,2530,6,12983,0,'189.26.152.254',1555370473,'LOG_DELETE_POST','a:1:{i:0;s:8:\"Re: hola\";}'),(5082,1,2530,6,12983,0,'189.26.152.254',1555370513,'LOG_DELETE_POST','a:1:{i:0;s:8:\"Re: help\";}'),(5083,1,2,6,3620,0,'31.148.193.229',1555394320,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Antonio - Curiosidad logotipo FivetechSoft\";i:1;s:6:\"George\";}'),(5084,1,2,6,3620,0,'31.148.193.229',1555395259,'LOG_POST_EDITED','a:2:{i:0;s:42:\"Antonio - Curiosidad logotipo FivetechSoft\";i:1;s:18:\"Ricardo Ramirez E.\";}'),(5085,1,2530,3,15763,0,'179.177.193.85',1555615061,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: ToleAuto() Events ?\";}'),(5086,1,2530,3,15763,0,'179.177.193.85',1555615069,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"ToleAuto() Events ?\";}'),(5087,3,1392,0,0,1392,'212.186.143.118',1555674455,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"ali\";}'),(5088,3,1432,0,0,1432,'176.32.19.191',1555692160,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"xfood\";}'),(5089,3,2579,0,0,2579,'105.235.130.168',1555712321,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"xbouaziz\";}'),(5090,3,92,0,0,92,'95.17.242.145',1555774702,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(5091,3,92,0,0,92,'95.17.242.59',1555835638,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(5092,1,868,3,37051,0,'183.82.62.7',1555836932,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Garbage Value on Multiply\";}'),(5093,1,868,3,37051,0,'183.82.62.7',1555836942,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Garbage Value on Multiply\";}'),(5094,1,2530,3,28238,0,'177.40.11.254',1555934488,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FiveWeb (FiveWin days are numbered)\";}'),(5095,1,2530,3,28238,0,'177.40.11.254',1555934537,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FiveWeb (FiveWin days are numbered)\";}'),(5096,1,2530,3,28238,0,'177.40.11.254',1555934626,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FiveWeb (FiveWin days are numbered)\";}'),(5097,1,2530,3,28238,0,'177.40.11.254',1555934635,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FiveWeb (FiveWin days are numbered)\";}'),(5098,1,2530,3,28238,0,'177.40.11.254',1555934669,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FiveWeb (FiveWin days are numbered)\";}'),(5099,1,2530,3,28238,0,'177.40.11.254',1555934695,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FiveWeb (FiveWin days are numbered)\";}'),(5100,1,2530,3,28238,0,'177.40.11.254',1555934802,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FiveWeb (FiveWin days are numbered)\";}'),(5101,1,2530,3,28238,0,'177.40.11.254',1555935235,'LOG_DELETE_POST','a:1:{i:0;s:7:\"FiveWeb\";}'),(5102,1,2530,3,28303,0,'177.40.11.254',1555935498,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: FastReport, variables from PRG in FR3 file\";}'),(5103,1,2530,3,28303,0,'177.40.11.254',1555935584,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: FastReport, variables from PRG in FR3 file\";}'),(5104,1,210,3,37054,0,'213.225.37.230',1555949157,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: xbrowse listbox\";}'),(5105,1,868,3,37064,0,'183.82.62.7',1556075494,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: tdatabase Filter error\";}'),(5106,3,376,0,0,376,'190.235.225.26',1556129121,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(5107,1,3945,6,37075,0,'85.54.33.42',1556208486,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Caja electrónica de cobro\";}'),(5108,1,2598,3,37064,0,'94.163.146.50',1556212791,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: tdatabase Filter error\";}'),(5109,1,2598,3,37064,0,'94.163.146.50',1556212800,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: tdatabase Filter error\";}'),(5110,1,2,3,36832,0,'31.148.193.229',1556262023,'LOG_LOCK','a:1:{i:0;s:52:\"To Nages : Explain me how I must make this tdatabase\";}'),(5111,1,2,3,36832,0,'31.148.193.229',1556262056,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5112,1,2,3,36832,0,'31.148.193.229',1556262064,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5113,1,2,3,36832,0,'31.148.193.229',1556262080,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5114,1,2,3,36832,0,'31.148.193.229',1556262101,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5115,1,2,3,36832,0,'31.148.193.229',1556262112,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5116,1,2,3,36832,0,'31.148.193.229',1556262122,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5117,1,2,3,36832,0,'31.148.193.229',1556262221,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5118,1,2,3,36832,0,'31.148.193.229',1556262254,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: To Nages : Explain me how I must make this tdatabase\";}'),(5119,1,2076,6,37082,0,'32.97.110.58',1556299166,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Clase para leer DBF desde Dialogo\";}'),(5120,1,2076,6,37082,0,'32.97.110.60',1556300746,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Clase para leer DBF desde Dialogo\";}'),(5121,1,2,3,36145,0,'31.148.193.229',1556347589,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Ribbon Theme\";}'),(5122,1,2342,3,36145,0,'85.60.87.46',1556471193,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Re: Ribbon Theme\";i:1;s:7:\"rhlawek\";}'),(5123,1,2076,6,37089,0,'45.74.211.188',1556504437,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Error con BMPGET\";}'),(5124,1,2598,3,36858,0,'94.163.123.37',1556882937,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"resize pannel scroll\";}'),(5125,1,2598,3,37064,0,'94.166.199.114',1556912644,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: tdatabase Filter error\";}'),(5126,1,913,6,37082,0,'189.217.73.201',1556943873,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Clase para leer DBF desde Dialogo\";}'),(5127,1,2530,3,37113,0,'177.132.182.70',1556956453,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: PNG ON RIBBONBAR\";}'),(5128,1,2598,3,37114,0,'94.160.189.138',1556957046,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"space white on border\";}'),(5129,1,2598,3,37118,0,'94.164.118.144',1556992848,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"resize controls\";}'),(5130,1,2598,3,37113,0,'94.163.24.173',1557045710,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: PNG ON RIBBONBAR\";}'),(5131,1,2598,3,37113,0,'94.163.24.173',1557045721,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"PNG ON RIBBONBAR\";}'),(5132,1,2598,3,37121,0,'94.163.238.101',1557092116,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Move a dialog\";}'),(5133,1,2,3,37133,0,'31.148.193.229',1557219725,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: User defined Windows captions\";}'),(5134,1,2,3,37133,0,'31.148.193.229',1557225539,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: User defined Windows captions\";i:1;s:14:\"Silvio.Falconi\";}'),(5135,1,2,3,37133,0,'31.148.193.229',1557255510,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: User defined Windows captions\";}'),(5136,1,2,3,36145,0,'31.148.193.229',1557293150,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Re: Ribbon Theme\";i:1;s:10:\"James Bott\";}'),(5137,1,2,44,37145,0,'31.148.193.229',1557349423,'LOG_MOVE','a:2:{i:0;s:23:\"Off Topic / Otros temas\";i:1;s:42:\"AI Introduction (Harbour code and samples)\";}'),(5138,1,2598,3,36145,0,'194.243.201.246',1557387636,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Ribbon Theme\";}'),(5139,1,2598,3,37080,0,'94.160.85.252',1557412633,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: to Nages: test for tdatabase\";}'),(5140,3,1195,0,0,1195,'190.24.198.62',1557505116,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(5141,1,2,3,37155,0,'31.148.193.229',1557511121,'LOG_POST_EDITED','a:2:{i:0;s:26:\"TDatabase: Relating Tables\";i:1;s:17:\"nageswaragunupudi\";}'),(5142,1,449,3,36990,0,'176.83.71.75',1557586482,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: DOS accounting system to TWeb\";}'),(5143,3,376,0,0,376,'190.235.225.26',1557638552,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(5144,1,2598,3,37162,0,'194.243.201.246',1557747092,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"Problem with date pick and refresh Planning\";}'),(5145,1,1195,6,37169,0,'190.24.198.62',1557861971,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"BUTTONBAR no funciona bKeydown\";}'),(5146,1,2598,3,37166,0,'194.243.201.246',1558001961,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: resize a position with fw_drawimage\";}'),(5147,1,2598,3,37181,0,'94.161.217.239',1558104147,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"png and combobox\";}'),(5148,1,34,3,37182,0,'68.109.70.185',1558136715,'LOG_DELETE_TOPIC','a:1:{i:0;s:51:\"Unique mouse problem with xBrowse ... not universal\";}'),(5149,1,1257,3,37188,0,'93.133.105.150',1558259637,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Converting date string into date format\";}'),(5150,1,2598,3,37189,0,'194.243.201.246',1558339903,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"valid error with dtpicker\";}'),(5151,0,2,0,0,0,'92.59.20.236',1558369523,'LOG_ADMIN_AUTH_SUCCESS',''),(5152,0,2,0,0,0,'92.59.20.236',1558369536,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:18:\"cwanderlei_cardoso\";}'),(5153,0,2,0,0,0,'92.59.20.236',1558369541,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:18:\"cwanderlei_cardoso\";}'),(5154,1,2598,3,37196,0,'94.163.14.101',1558371965,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"folderex error\";}'),(5155,1,2598,3,37200,0,'194.243.201.246',1558441100,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Problem to Resize a Panel\";}'),(5156,1,2598,3,37200,0,'194.243.201.246',1558441108,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Problem to Resize a Panel\";}'),(5157,1,3945,6,37191,0,'85.54.33.42',1558455425,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Ejecutar Harbour en Apache Linux desde Windows 10 !!!\";}'),(5158,1,1814,6,37199,0,'186.103.145.171',1558528743,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Ajustar Combobox a Buttonbar\";}'),(5159,1,2598,3,37206,0,'194.243.201.246',1558593631,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"date calc error\";}'),(5160,1,2473,6,37214,0,'191.190.106.64',1558638053,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: oLbx:cSeek fwh1903\";}'),(5161,1,2473,6,37214,0,'191.190.106.64',1558638061,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: oLbx:cSeek fwh1903\";}'),(5162,1,362,6,37214,0,'177.134.4.168',1558638152,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: oLbx:cSeek fwh1903\";i:1;s:6:\"Sistem\";}'),(5163,1,34,3,37183,0,'68.109.70.185',1558724950,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Building a Windows Service\";}'),(5164,1,2598,3,37222,0,'94.161.223.118',1558880412,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: TO JAmes Bott : command for tdata\";}'),(5165,1,210,3,37176,0,'89.144.210.61',1559037665,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"XBROWSE question, Mr. Rao\";}'),(5166,3,1873,0,0,1873,'84.123.3.75',1559150285,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jll-fwh\";i:1;s:25:\"proyectos-meliana@ono.com\";i:2;s:25:\"jllorispersonal@gmail.com\";}'),(5167,1,2076,3,37217,0,'207.96.240.194',1559151424,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: When will this happen again ??  10 Years are gone\";}'),(5168,1,1257,3,37230,0,'2.244.78.131',1559245364,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: oWnd:oClient   := oPanel\";}'),(5169,1,2598,3,37193,0,'194.243.201.246',1559286790,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: TO Mr Rao : XBrDtPicker\";}'),(5170,1,2598,3,37248,0,'194.243.201.246',1559295777,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: class to make Report  with  tdatabase\";}'),(5171,3,936,0,0,936,'190.148.209.121',1559566635,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(5172,1,1257,3,35869,0,'78.48.124.171',1559757101,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: XBROWSE Border on cells\";}'),(5173,1,2076,6,22097,0,'32.97.110.58',1559828362,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Pelles C Archivo .RC o .RES????\";}'),(5174,3,152,0,0,152,'200.74.10.159',1560019112,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"gdeteran\";i:1;s:19:\"nitobel@adsl.tie.cl\";i:2;s:21:\"gonzadete@hotmail.com\";}'),(5175,1,1984,3,37290,0,'84.182.99.203',1560083203,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Error E2209 C:\\fwh\\include\\ClipApi.h 22: Unable to open incl\";}'),(5176,1,1984,3,37291,0,'84.182.99.203',1560088367,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Unable to open file \'C0W32.OBJ\'\";}'),(5177,1,2076,3,37295,0,'32.97.110.59',1560175705,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Leer archivos .ch en otra carpeta\";}'),(5178,1,1257,3,37294,0,'93.135.126.206',1560278337,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: trasparent bitmap on xbrowse\";}'),(5179,1,1257,3,37302,0,'78.49.134.153',1560519822,'LOG_DELETE_POST','a:1:{i:0;s:59:\"Re: Sample Program Toolbar2.prg is NOT working in other App\";}'),(5180,1,303,3,37234,0,'68.6.163.93',1560819862,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: xBrowse edit dialog and navigation\";}'),(5181,1,1257,3,37319,0,'78.49.114.17',1560863677,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Request for New Stylish Flat ICONs in the next FWH version\";}'),(5182,1,1257,3,37319,0,'78.49.114.17',1560864466,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Request for New Stylish Flat ICONs in the next FWH version\";}'),(5183,1,2076,6,37317,0,'32.97.110.60',1560946371,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"ORM para Eagle1\";}'),(5184,3,1873,0,0,1873,'84.123.3.75',1560948670,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"jll-fwh\";}'),(5185,1,2076,6,37329,0,'45.74.211.188',1561000588,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Error compilando con visualstudio 2019\";}'),(5186,1,2076,6,37329,0,'45.74.211.188',1561000624,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Error compilando con visualstudio 2019\";}'),(5187,1,396,6,37335,0,'190.36.64.206',1561051003,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: TGRAPH DESDE RECURSO\";}'),(5188,1,2598,3,37338,0,'94.162.117.247',1561060598,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Problem to open a tdatabase\";}'),(5189,1,868,3,37337,0,'183.82.62.7',1561109877,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Converting sample test of Tplan\";}'),(5190,1,1178,2,37346,0,'186.82.126.11',1561164707,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"hbnetio.lib\";}'),(5191,1,2598,3,37337,0,'94.162.104.23',1561192877,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Converting sample test of Tplan\";}'),(5192,1,2598,3,37337,0,'94.162.104.23',1561198526,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Converting sample test of Tplan\";}'),(5193,1,396,6,37384,0,'190.36.64.206',1561685067,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"IMPRIMIR GRAFICA\";}'),(5194,3,891,0,0,891,'187.188.15.156',1561740306,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(5195,1,2598,3,37388,0,'5.87.78.150',1561797225,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Possible to change default report preview zoom factor?\";}'),(5196,1,2598,3,37394,0,'94.163.96.59',1561980221,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Problem with Tplan : Cargo Error\";}'),(5197,1,303,3,37394,0,'68.6.163.93',1562005905,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Problem with Tplan : Cargo Error\";}'),(5198,1,868,3,37400,0,'183.82.62.7',1562128213,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Btnbmp: Different look after link in FWH19.05\";}'),(5199,1,1257,3,37396,0,'78.48.24.166',1562135690,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: dialog resizable\";}'),(5200,1,2076,6,37403,0,'32.97.110.58',1562168923,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Menu dinamico desde Mysql con array\";}'),(5201,3,4167,0,0,4167,'80.168.23.146',1562248386,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Martin Reeves\";}'),(5202,1,868,3,35819,0,'183.82.62.7',1562474910,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Unicode characters displaying as ANSI on windows title bar\";}'),(5203,1,70,6,37415,0,'187.159.68.55',1562520144,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Archivos ico extraños\";}'),(5204,1,2598,3,37410,0,'94.162.49.103',1562577064,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: bringing the structure of the example yunus\";}'),(5205,1,2598,3,37410,0,'94.162.49.103',1562577073,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"bringing the structure of the example yunus\";}'),(5206,1,2598,3,37418,0,'94.162.49.103',1562578839,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"problem with xbrowse -array\";}'),(5207,1,868,3,37419,0,'183.82.62.7',1562597143,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: xbrowse -get date\";}'),(5208,1,2598,3,37425,0,'94.160.159.54',1562672143,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FW_DbfToExcel() problem\";}'),(5209,1,2598,3,37422,0,'94.160.159.54',1562673018,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"error making calc beetwen date\";}'),(5210,1,3777,6,37417,0,'99.197.15.108',1562709353,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: ¿ Alguien ha hecho un función para leer código QR ?\";}'),(5211,1,362,6,37375,0,'179.95.153.243',1562761914,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: sintaxis tsbutton\";i:1;s:8:\"brakaman\";}'),(5212,1,362,6,37376,0,'179.95.153.243',1562767986,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Boton en BtnGet\";}'),(5213,1,2598,3,37394,0,'94.162.195.13',1562782756,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Problem with Tplan : Cargo Error\";}'),(5214,1,2598,3,37420,0,'94.166.194.35',1562831289,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"FW_DbfToArray error\";}'),(5215,1,2598,3,37444,0,'94.162.20.116',1562923671,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"Limit a codeblock\";}'),(5216,1,2598,3,37436,0,'94.164.164.176',1563007777,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: To Nages : error on FW_DbfToArray\";}'),(5217,1,2598,3,37450,0,'94.166.25.213',1563179935,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: error on cdx (tdatabase)\";}'),(5218,1,2598,3,37450,0,'94.166.25.213',1563179944,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"error on cdx (tdatabase)\";}'),(5219,1,1193,3,35819,0,'111.71.0.151',1563214812,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Unicode characters displaying as ANSI on windows title bar\";}'),(5220,1,1193,3,37462,0,'111.71.0.151',1563244976,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: MDI Set MenuInfo not work\";}'),(5221,3,1195,0,0,1195,'201.244.207.10',1563457983,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(5222,1,2,3,37483,0,'31.148.193.229',1563629287,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Problem building mod_harbour libraries\";}'),(5223,1,396,3,37490,0,'190.36.64.206',1563647981,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"ALGORITMO PARA CREAR PLAN DE CUETA CONTABLE\";}'),(5224,1,1257,3,37494,0,'93.131.73.108',1563740178,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Possible using TMPicker without seconds ?\";}'),(5225,0,2,0,0,0,'31.148.193.229',1563786370,'LOG_ADMIN_AUTH_SUCCESS',''),(5226,3,2,0,0,2721,'31.148.193.229',1563786402,'LOG_USER_UPDATE_NAME','a:2:{i:0;s:8:\"brakaman\";i:1;s:9:\"jvtecheto\";}'),(5227,0,2,0,0,0,'31.148.193.229',1563786403,'LOG_USER_USER_UPDATE','a:1:{i:0;s:9:\"jvtecheto\";}'),(5228,1,1257,3,37496,0,'2.244.173.151',1563789553,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Possible TMPicker without seconds ?\";}'),(5229,1,1178,6,37486,0,'186.82.126.11',1563853645,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Ayuda a Crear LIbreria GCC\";}'),(5230,1,1535,19,37502,0,'83.52.222.24',1563872264,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: HRB curiosities...\";}'),(5231,1,1313,6,37505,0,'5.62.51.100',1563889950,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"can someone explain to me what is mod_harbour?\";}'),(5232,1,2076,6,37518,0,'32.97.110.60',1564064326,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: Tablas adt\";}'),(5233,1,2598,3,37520,0,'5.86.192.188',1564160270,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: ERROR ON TBTNBMP:SHOWPOPUP\";}'),(5234,1,2598,3,37520,0,'94.163.210.50',1564217977,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: ERROR ON TBTNBMP:SHOWPOPUP\";}'),(5235,1,1257,3,37527,0,'2.243.67.219',1564224396,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"How to calc. values of wnd-text &lt; oWnd:SayText &gt; ?\";}'),(5236,1,2342,3,37534,0,'90.71.222.186',1564342703,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: mod harbour session js session object\";}'),(5237,0,2,0,0,0,'5.59.89.232',1564384150,'LOG_ADMIN_AUTH_SUCCESS',''),(5238,0,2,0,0,0,'5.59.89.232',1564384317,'LOG_FORUM_ADD','a:1:{i:0;s:11:\"mod_harbour\";}'),(5239,0,2,0,0,0,'5.59.89.232',1564385200,'LOG_FORUM_ADD','a:1:{i:0;s:11:\"mod_harbour\";}'),(5240,0,2,0,0,0,'5.59.89.232',1564385307,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5241,0,2,0,0,0,'5.59.89.232',1564385380,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5242,0,2,0,0,0,'5.59.89.232',1564386319,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5243,0,2,0,0,0,'5.59.89.232',1564386412,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5244,0,2,0,0,0,'5.59.89.232',1564386431,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5245,1,1257,3,5313,0,'78.48.189.194',1564415954,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Multiline Edit : Insert always on.\";}'),(5246,0,2,0,0,0,'5.59.89.232',1564421149,'LOG_ADMIN_AUTH_SUCCESS',''),(5247,0,2,0,0,0,'5.59.89.232',1564421206,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5248,0,2,0,0,0,'5.59.89.232',1564462651,'LOG_ADMIN_AUTH_SUCCESS',''),(5249,0,2,0,0,0,'5.59.89.232',1564462733,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5250,0,2,0,0,0,'5.59.89.232',1564462797,'LOG_FORUM_EDIT','a:1:{i:0;s:11:\"mod_harbour\";}'),(5251,0,2,0,0,0,'92.59.20.166',1564483179,'LOG_ADMIN_AUTH_SUCCESS',''),(5252,0,2,0,0,0,'5.59.89.232',1564498928,'LOG_ADMIN_AUTH_SUCCESS',''),(5253,0,2,0,0,0,'5.59.89.232',1564499149,'LOG_ADMIN_AUTH_SUCCESS',''),(5254,0,2,0,0,0,'5.59.89.232',1564499195,'LOG_ADMIN_AUTH_SUCCESS',''),(5255,1,1257,3,32677,0,'93.133.18.34',1564504358,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: A sample how to create a IMAGE-ani. ( indexbuilder ) UPD.\";}'),(5256,1,2598,3,37559,0,'94.165.238.45',1564521239,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"New error on btnbmp\";}'),(5257,0,2,0,0,0,'5.59.89.232',1564546621,'LOG_ADMIN_AUTH_SUCCESS',''),(5258,3,2,0,0,4154,'5.59.89.232',1564546672,'LOG_USER_UPDATE_NAME','a:2:{i:0;s:7:\"wywerco\";i:1;s:9:\"wyerco613\";}'),(5259,0,2,0,0,0,'5.59.89.232',1564546672,'LOG_USER_USER_UPDATE','a:1:{i:0;s:9:\"wyerco613\";}'),(5260,1,1178,6,37525,0,'186.82.126.11',1564695479,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: AL crear ejecutable con Minigui o GCC me da este error\";}'),(5261,3,4149,0,0,4149,'186.1.168.146',1564754620,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:18:\"Adolfredo Martinez\";}'),(5262,1,35,3,37580,0,'96.10.121.194',1565012925,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: SQL Update Response\";}'),(5263,1,1178,6,37408,0,'186.82.126.11',1565044235,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Diferentias versiones del Compilador de C\";}'),(5264,3,2579,0,0,2579,'105.235.133.138',1565171565,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"xbouaziz\";}'),(5265,0,2,0,0,0,'5.59.89.232',1565502263,'LOG_ADMIN_AUTH_SUCCESS',''),(5266,0,2,0,0,0,'5.59.89.232',1565502296,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"usulr2019\";}'),(5267,0,2,0,0,0,'5.59.89.232',1565502300,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"usulr2019\";}'),(5268,3,4030,0,0,4030,'181.177.188.112',1565547447,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"modestorocabado\";}'),(5269,1,2023,6,37617,0,'190.67.216.166',1565603368,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: abrir en excel sin vista protegida\";}'),(5270,1,1257,3,37632,0,'93.131.82.75',1565807257,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Problem after new Windows 10 -update\";}'),(5271,1,1428,3,37613,0,'88.9.180.251',1565814123,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Manu Exposito\'s pearls\";}'),(5272,1,2076,3,37637,0,'198.168.234.125',1565889545,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"Mejor forma de crear objetos desde codigo - Experiencias\";}'),(5273,1,163,45,37650,0,'151.51.245.89',1566027025,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Some questions and two solutions\";}'),(5274,0,2,0,0,0,'5.59.89.232',1566272520,'LOG_ADMIN_AUTH_SUCCESS',''),(5275,0,2,0,0,0,'5.59.89.232',1566272536,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:14:\"ramalhoajunior\";}'),(5276,0,2,0,0,0,'5.59.89.232',1566272540,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:14:\"ramalhoajunior\";}'),(5277,1,233,3,37232,0,'118.101.196.219',1566287524,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Strange characters in TFtp:directory()\";}'),(5278,1,228,6,37662,0,'181.234.241.81',1566349485,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Nueva Clase TMP3Info\";}'),(5279,1,2307,3,37649,0,'103.255.5.114',1566377577,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Require Services for Crystal Reports Upgrade..\";}'),(5280,1,2,19,23540,0,'92.59.20.199',1566489752,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: My favorite Clipper ad\";i:1;s:6:\"George\";}'),(5281,1,2,19,23540,0,'92.59.20.199',1566491464,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: My favorite Clipper ad\";i:1;s:6:\"George\";}'),(5282,1,1257,3,37664,0,'78.49.184.25',1566550322,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New Class TMP3Info\";}'),(5283,1,233,3,37678,0,'118.101.196.219',1566795600,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"xbRowse, Tree and bChanged\";}'),(5284,1,2598,3,37680,0,'94.161.178.107',1566918782,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"TScrollMsg\";}'),(5285,1,362,6,37683,0,'179.95.147.184',1567090760,'LOG_POST_EDITED','a:2:{i:0;s:30:\"Re: barra de progreso circular\";i:1;s:14:\"Silvio.Falconi\";}'),(5286,1,2598,3,37694,0,'5.86.70.143',1567162444,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"block a Splitter\";}'),(5287,1,2598,3,37696,0,'94.162.80.108',1567189325,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Convert Time string to numeric\";}'),(5288,1,1257,3,37684,0,'78.48.43.86',1567503963,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: help for creating a class\";}'),(5289,1,2598,3,37716,0,'94.161.81.5',1567522248,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Tdatabase and Macros\";}'),(5290,1,2342,6,37718,0,'85.54.92.240',1567548548,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Solicitud a colegas que tengan la version FW 1204\";}'),(5291,1,2598,3,37724,0,'5.86.160.196',1567709250,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Problem with Tdatabase and :record()\";}'),(5292,1,1984,3,37732,0,'84.182.98.214',1568120517,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5293,1,2598,3,37732,0,'94.160.123.52',1568143601,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5294,1,2,3,37732,0,'5.59.89.232',1568145047,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5295,1,2,3,37732,0,'5.59.89.232',1568145056,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5296,1,2,3,37732,0,'5.59.89.232',1568145068,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5297,1,2,3,37732,0,'5.59.89.232',1568145081,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5298,1,2,3,37732,0,'5.59.89.232',1568145092,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5299,1,2,3,37732,0,'5.59.89.232',1568145101,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5300,1,2,3,37732,0,'5.59.89.232',1568145111,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5301,1,2,3,37732,0,'5.59.89.232',1568145124,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5302,1,2,3,37732,0,'5.59.89.232',1568145132,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5303,1,2,3,37732,0,'5.59.89.232',1568145140,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5304,1,2,3,37732,0,'5.59.89.232',1568145149,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5305,1,2,3,37732,0,'5.59.89.232',1568145164,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5306,1,2,3,37732,0,'5.59.89.232',1568145175,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5307,0,2,0,0,0,'5.59.89.232',1568145273,'LOG_BAN_USER','a:2:{i:0;s:17:\"Respeto por favor\";i:1;s:7:\"Compuin\";}'),(5308,1,2,0,0,0,'5.59.89.232',1568145273,'LOG_BAN_USER','a:2:{i:0;s:17:\"Respeto por favor\";i:1;s:7:\"Compuin\";}'),(5309,0,2,0,0,0,'5.59.89.232',1568145327,'LOG_BAN_USER','a:2:{i:0;s:28:\"Please respect in the forums\";i:1;s:15:\"Massimo Linossi\";}'),(5310,1,2,0,0,0,'5.59.89.232',1568145327,'LOG_BAN_USER','a:2:{i:0;s:28:\"Please respect in the forums\";i:1;s:15:\"Massimo Linossi\";}'),(5311,1,2,3,37732,0,'5.59.89.232',1568145386,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5312,1,2,6,37733,0,'5.59.89.232',1568145462,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5313,1,2,3,37732,0,'5.59.89.232',1568154005,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5314,1,2,3,37732,0,'5.59.89.232',1568154018,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5315,1,2,3,37732,0,'5.59.89.232',1568154027,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5316,1,2,3,37732,0,'5.59.89.232',1568154040,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5317,1,2,3,37732,0,'5.59.89.232',1568154054,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5318,1,2,3,37732,0,'5.59.89.232',1568154077,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5319,1,2,20,37739,0,'5.59.89.232',1568193189,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Massimo Linossi\";}'),(5320,1,2598,3,37732,0,'94.162.161.207',1568230282,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5321,1,233,3,37738,0,'118.101.196.219',1568275965,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"How to avoid VALID from firing when jumping treeitems?\";}'),(5322,3,147,0,0,147,'190.7.59.147',1568377683,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MarioG\";}'),(5323,1,2598,3,37758,0,'94.163.195.207',1568490455,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Creating an complex array\";}'),(5324,1,47,3,37750,0,'110.168.13.245',1568554099,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: asort array but on row\";}'),(5325,1,1257,3,37775,0,'93.135.64.57',1568744511,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: To Ukoenig\";}'),(5326,1,2598,3,37750,0,'94.161.47.164',1568804676,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: asort array but on row\";}'),(5327,1,2598,3,37722,0,'94.161.47.164',1568806467,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: xbrowse too slow\";}'),(5328,1,2,17,37764,0,'92.59.21.142',1568889479,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Reinstall Bootcamp Windows from OSX VirtualBox\";}'),(5329,1,1257,3,37722,0,'93.133.4.43',1569055171,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: xbrowse too slow\";}'),(5330,1,2342,3,37790,0,'85.60.20.4',1569179558,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: mod harbour &quot;SEAMAP&quot;\";i:1;s:4:\"Otto\";}'),(5331,1,2,3,37797,0,'92.59.21.142',1569249143,'LOG_POST_EDITED','a:2:{i:0;s:25:\"SEAMAP your Skipper Guide\";i:1;s:4:\"Otto\";}'),(5332,1,2,45,37800,0,'5.59.89.232',1569304860,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Visual Studio Code\";i:1;s:11:\"Iris Gesser\";}'),(5333,1,3233,3,37801,0,'185.210.115.16',1569320243,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: UrlEncode, UnlDeCode\";}'),(5334,1,2342,3,37628,0,'85.60.20.4',1569337734,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: How to generate Master/Deltail XML from maridb Rowsets ?\";}'),(5335,1,2598,3,37806,0,'37.227.98.52',1569452386,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: FWH 1908: Meter Control Enhancements\";}'),(5336,1,1313,6,37807,0,'189.58.159.78',1569527735,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Download Harbour 3.4 para BCC7.3\";}'),(5337,1,362,6,37752,0,'189.68.168.55',1569588581,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Abnormal programa termination\";}'),(5338,1,228,3,37822,0,'186.179.100.77',1569862192,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Saber si ventana MDI esta abierta\";}'),(5339,1,1257,3,37839,0,'93.135.98.101',1570212584,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: A possible adjustment of a GET-action bmp ?\";}'),(5340,1,233,3,37898,0,'110.159.77.169',1571214021,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Saving blob into memo field\";}'),(5341,1,233,3,37895,0,'110.159.77.169',1571219947,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Fastreport: Printing blob from memo fields\";}'),(5342,3,3795,0,0,3795,'186.47.122.139',1571414557,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"nanoespinoza\";}'),(5343,1,1257,3,37883,0,'78.48.191.23',1571560775,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 19.09\";}'),(5344,1,233,17,37916,0,'110.159.77.169',1571629166,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Question for users in FastReport / Pregunta para usuarios en\";}'),(5345,1,1193,3,37931,0,'180.204.69.39',1571806857,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: FWH Graphs\";}'),(5346,1,2342,3,37934,0,'90.71.149.106',1571846415,'LOG_POST_EDITED','a:2:{i:0;s:41:\"Error FiveWin/3  Cannot create Dialog Box\";i:1;s:11:\"IgorMatheus\";}'),(5347,1,2598,3,37937,0,'91.253.248.189',1571932100,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"save on txt file\";}'),(5348,0,2,0,0,0,'5.59.89.232',1572073640,'LOG_ADMIN_AUTH_SUCCESS',''),(5349,3,2,0,0,176,'5.59.89.232',1572073685,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"surGom\";}'),(5350,0,2,0,0,0,'5.59.89.232',1572073685,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"surGom\";}'),(5351,1,1736,3,37952,0,'177.148.30.131',1572270187,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Question about Excel\";}'),(5352,1,1844,3,37945,0,'49.35.80.198',1572329668,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: IMAGE Control does NOT display .PNG resource\";}'),(5353,1,1814,6,37969,0,'186.103.145.171',1572470883,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: SAYBARCODE algunas dudas\";}'),(5354,1,1814,6,37966,0,'186.103.145.171',1572471243,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Ayuda Para Totalizar  Columna en XBROWSE\";}'),(5355,1,868,6,37962,0,'183.82.62.7',1572482066,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Posible Bug method SaveState() Mr.Rao.\";}'),(5356,1,233,3,37975,0,'110.159.77.169',1572606586,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"TPrinter: How to print Page X/X?\";}'),(5357,1,1257,3,37972,0,'93.135.96.10',1572621212,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: Possible to change gradient-directions in xBrowse ?\";}'),(5358,1,2598,45,37999,0,'91.252.185.99',1573069607,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"Understanding how to structure a procedure\";}'),(5359,1,2598,45,37998,0,'91.252.185.99',1573070066,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"Understanding how to structure a procedure with Mod_harbour\";}'),(5360,1,2598,45,38001,0,'194.243.201.246',1573126075,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Request  easy test\";}'),(5361,1,1257,3,38010,0,'2.243.91.123',1573139826,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Missing images in xBrowse\";}'),(5362,1,1257,3,38008,0,'2.243.91.123',1573139844,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Missing images in xBrowse\";}'),(5363,1,1257,3,38009,0,'2.243.91.123',1573139865,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Missing images in xBrowse\";}'),(5364,1,3834,6,38000,0,'190.162.251.15',1573141236,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Consulta Sobre Total en Footer de Xbrowse\";}'),(5365,1,177,19,37995,0,'31.4.242.96',1573146660,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Happy Birthday Antonino\";}'),(5366,1,1257,3,38011,0,'2.243.91.123',1573160631,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Missing images in xBrowse\";}'),(5367,1,1257,3,38011,0,'2.243.91.123',1573160666,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Missing images in xBrowse\";}'),(5368,1,1257,3,38011,0,'2.243.91.123',1573160699,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Missing images in xBrowse\";}'),(5369,1,1257,3,38011,0,'2.243.91.123',1573160710,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Missing images in xBrowse\";}'),(5370,1,3834,6,38000,0,'190.162.251.15',1573161579,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Consulta Sobre Total en Footer de Xbrowse\";}'),(5371,1,177,3,38014,0,'31.4.242.31',1573325078,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: UNIX time /POSIX\";}'),(5372,1,2598,3,38022,0,'194.243.201.246',1573472813,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"move the cursor on next record of xbrowse\";}'),(5373,1,2598,3,38036,0,'194.243.201.246',1573727061,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Problem on xbrowse  bCalcRow\";}'),(5374,1,2598,3,38036,0,'194.243.201.246',1573727068,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Problem on xbrowse  bCalcRow\";}'),(5375,1,3834,6,38045,0,'200.104.63.192',1573773260,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Xbrowse Padre / Hijo\";}'),(5376,0,2,0,0,0,'2.137.235.164',1573921882,'LOG_ADMIN_AUTH_SUCCESS',''),(5377,0,2,0,0,0,'2.137.235.164',1573921907,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"apais\";}'),(5378,0,2,0,0,0,'2.137.235.164',1573921914,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"apais\";}'),(5379,1,868,3,37792,0,'183.82.62.7',1574049685,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: another bug in TDataRow: failure with datetime fields\";}'),(5380,1,868,3,37792,0,'183.82.62.7',1574049706,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: another bug in TDataRow: failure with datetime fields\";}'),(5381,1,2598,3,38051,0,'194.243.201.246',1574077519,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: calculating the percentage (slider)\";}'),(5382,1,2598,3,38051,0,'194.243.201.246',1574077532,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"calculating the percentage (slider)\";}'),(5383,1,2598,20,38058,0,'194.243.201.246',1574077550,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Problemi di calcolo\";}'),(5384,1,2598,3,38060,0,'194.243.201.246',1574092264,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Problem with Xbrgetdate - get\";}'),(5385,3,1985,0,0,1985,'190.180.19.57',1574113805,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"abelcervantes\";}'),(5386,1,3834,6,38064,0,'200.104.63.192',1574129217,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Generar Horas\";}'),(5387,1,2598,3,38078,0,'194.243.201.246',1574338181,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: problem to erase rows of xbrowse\";}'),(5388,1,348,6,38082,0,'200.60.89.233',1574443626,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Compilar con Make y varios PRG y RES\";}'),(5389,1,2598,3,38087,0,'91.252.68.222',1574591461,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"error on get picture right\";}'),(5390,1,2598,3,38107,0,'194.243.201.246',1574858462,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Pasting records\";}'),(5391,1,2598,3,38108,0,'194.243.201.246',1574860796,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"longname\";}'),(5392,1,3834,6,38111,0,'200.104.63.192',1574904045,'LOG_DELETE_TOPIC','a:1:{i:0;s:53:\"Como Deshabilitar Primera Columna y Flecha en Xbrowse\";}'),(5393,1,2342,6,38114,0,'90.106.148.3',1574979512,'LOG_POST_EDITED','a:2:{i:0;s:48:\"Re: Retomando el hilo me tropiezo con HB_HHASKEY\";i:1;s:9:\"Cgallegoa\";}'),(5394,0,2,0,0,0,'5.59.82.205',1575009824,'LOG_ADMIN_AUTH_SUCCESS',''),(5395,3,2,0,0,1726,'5.59.82.205',1575009868,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Dioni\";}'),(5396,0,2,0,0,0,'5.59.82.205',1575009868,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"Dioni\";}'),(5397,1,3834,6,38118,0,'200.104.63.192',1575132356,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"Como Actualizar Valores de Array en Xbrowse\";}'),(5398,1,2076,6,38126,0,'129.41.87.0',1575306231,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Como puedo crear una lib con MSVC ??\";}'),(5399,1,4224,3,38121,0,'79.208.47.156',1575508297,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Problem x:\\fwh\\samples\\dshow.prg\";}'),(5400,1,2342,6,38133,0,'90.164.118.66',1575541337,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: TDolphin para 64 Bits error\";}'),(5401,1,2342,6,38133,0,'90.164.118.66',1575541377,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: TDolphin para 64 Bits error\";}'),(5402,1,2076,6,32524,0,'45.74.211.188',1575601466,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Migrar de E1 a TDolphin\";}'),(5403,1,2530,19,38077,0,'177.97.164.145',1575695880,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Search for freelancer\";}'),(5404,1,6,6,38134,0,'79.41.61.221',1575730043,'LOG_REPORT_CLOSED','a:1:{i:0;s:30:\"Re: FWCONNECT con Mysql 8.0.17\";}'),(5405,1,1178,6,38123,0,'186.82.126.11',1575938475,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Creacion de Un MAK una duda\";}'),(5406,1,2598,3,38169,0,'194.243.201.246',1575993699,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Tcalex Data Box\";}'),(5407,1,2598,3,38171,0,'91.253.12.213',1576011062,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"call a function on a dll\";}'),(5408,1,1257,3,38167,0,'93.132.138.251',1576057948,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Clipper Code under FiveWin ?\";}'),(5409,1,3233,3,38160,0,'185.210.115.16',1576136106,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: problem with harbour dll\";}'),(5410,1,2,19,38190,0,'92.59.21.243',1576317618,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Completely free! Personal Edition of X_ailer\";}'),(5411,1,228,6,38207,0,'186.179.100.77',1576522720,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Tipos de Array o Arreglo (hash que no es hash)\";}'),(5412,1,2076,3,38214,0,'129.41.87.0',1576619737,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"build LibMySQL for Borland 64 bits\";}'),(5413,1,362,6,38212,0,'186.220.198.246',1576690219,'LOG_POST_EDITED','a:2:{i:0;s:49:\"Re: mostrar imagen desde MARIAdb sin recordset...\";i:1;s:3:\"EBM\";}'),(5414,1,2076,6,38240,0,'129.41.87.0',1576848507,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Clase BMPGET, donde la descargo ???\";}'),(5415,1,2598,3,38236,0,'194.243.201.246',1576854224,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"panel with  img and text and urllnk\";}'),(5416,1,110,3,38246,0,'45.238.28.98',1576869281,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: encrypt/decrypt in Harbour and php\";}'),(5417,1,2598,3,38242,0,'194.243.201.246',1577091984,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Problem on a Dialog (btnbmp are disabled)\";}'),(5418,1,2598,3,38237,0,'194.243.201.246',1577099841,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: tabs look 2015\";}'),(5419,1,2598,3,38237,0,'194.243.201.246',1577099848,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: tabs look 2015\";}'),(5420,1,1313,6,38259,0,'189.58.52.78',1577100559,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: xmate y harbour?\";}'),(5421,1,2598,3,38237,0,'194.243.201.246',1577100886,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: tabs look 2015\";}'),(5422,1,2076,3,33205,0,'45.74.211.188',1577158762,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Borland 64 bits makefile for FWH 64\";}'),(5423,1,1060,3,38277,0,'94.29.126.107',1577364832,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"TPQServer\";}'),(5424,1,2598,3,38282,0,'194.243.201.246',1577698330,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: PICTURE &quot;@Z&quot;\";}'),(5425,1,1060,3,38291,0,'94.29.126.107',1577698680,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"Open file\";}'),(5426,1,2,16,38249,0,'46.6.220.144',1577969166,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: New FTDN December 2019 (FWH 19.12)\";i:1;s:5:\"Jimmy\";}'),(5427,1,2598,3,38328,0,'194.243.201.246',1578485959,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"flash a panel with colors\";}'),(5428,1,3834,6,38332,0,'200.104.63.192',1578598009,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Problemas con Validar Get  y Mostrar contenido\";}'),(5429,1,2598,3,35460,0,'194.243.201.246',1578657061,'LOG_DELETE_TOPIC','a:1:{i:0;s:7:\"autoget\";}'),(5430,1,610,3,23011,0,'191.241.136.64',1579047775,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: UE Studio Config - Harbour 3.0, MSVC, FWH\";}'),(5431,3,987,0,0,987,'187.135.95.102',1579114010,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"cuatecatl82\";}'),(5432,1,362,6,38356,0,'186.220.198.194',1579262830,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Re: Error sintaxis EVAL\";i:1;s:9:\"Ramón J.\";}'),(5433,1,1178,6,38360,0,'186.82.126.11',1579314706,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Ayuda usando gtwvg\";}'),(5434,1,362,3,38372,0,'186.220.198.194',1579695968,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Texts In Tgraph\";i:1;s:3:\"MGA\";}'),(5435,1,362,3,38372,0,'186.220.198.194',1579696154,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Texts In Tgraph\";i:1;s:3:\"MGA\";}'),(5436,3,3976,0,0,3976,'62.174.148.249',1579718443,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"VictorCasajuana\";}'),(5437,1,2,3,38344,0,'80.102.112.131',1579719365,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Mobile App Development\";i:1;s:4:\"Otto\";}'),(5438,1,2,19,38378,0,'80.102.112.131',1579719451,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(5439,1,1313,6,38383,0,'5.62.51.108',1580160830,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Install MariaDB Portable\";}'),(5440,3,86,0,0,86,'84.192.130.147',1580168596,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"driessen\";}'),(5441,3,86,0,0,86,'84.192.130.147',1580168596,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:8:\"driessen\";i:1;s:0:\"\";i:2;s:29:\"michel.driessen@ma-consult.be\";}'),(5442,1,6,3,38417,0,'79.46.175.213',1580406627,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"missing libs for MSVC\";}'),(5443,1,1257,3,38422,0,'2.243.92.202',1580471968,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: F1 should open HTML file on internet\";}'),(5444,1,1112,3,23227,0,'79.27.242.210',1580566328,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: app crash on ShellExecute()\";}'),(5445,1,2,19,38447,0,'80.102.112.131',1580975246,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(5446,1,2598,3,38436,0,'194.243.201.246',1580992872,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Update a  scrollpanel\";}'),(5447,3,4149,0,0,4149,'186.1.168.146',1581091006,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:18:\"Adolfredo Martinez\";}'),(5448,1,3834,6,38459,0,'200.104.63.192',1581186339,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Favor, Ayuda como limpiar Pantalla de Xbrowser\";}'),(5449,1,2598,3,38466,0,'194.243.201.246',1581352777,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"xbrowse show bad symbol ( array)\";}'),(5450,1,2598,3,38468,0,'194.243.201.246',1581416395,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"error to print an  image\";}'),(5451,1,2598,3,38469,0,'194.243.201.246',1581420121,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"problem with report and image\";}'),(5452,3,147,0,0,147,'201.213.179.4',1581428667,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"MarioG\";}'),(5453,1,362,3,38479,0,'186.220.198.194',1581597618,'LOG_DELETE_POST','a:1:{i:0;s:10:\"Windows 12\";}'),(5454,1,362,3,38479,0,'186.220.198.194',1581597640,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: Windows 12\";}'),(5455,1,362,3,38479,0,'186.220.198.194',1581597657,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"Windows 12\";}'),(5456,1,228,6,38484,0,'186.114.255.38',1581621993,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Ayuda con Array y Hash\";}'),(5457,1,2,46,38494,0,'80.102.112.131',1581949938,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: mod_harbour Genesis: Como funciona ?\";i:1;s:6:\"Carles\";}'),(5458,1,2598,3,38493,0,'194.243.201.246',1582185097,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"erase a numeric get\";}'),(5459,1,4290,3,38524,0,'212.170.99.229',1582545412,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Foco en un browse de array\";}'),(5460,1,2342,3,38522,0,'46.6.159.103',1582554926,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: ADS and autoincremental fields\";}'),(5461,1,110,3,38522,0,'45.238.28.98',1582581480,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: ADS and autoincremental fields\";}'),(5462,3,80,0,0,80,'115.70.196.78',1582636756,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Colin Haig\";}'),(5463,1,3578,3,38532,0,'189.5.178.64',1582720277,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Alltrim() help\";}'),(5464,1,2342,6,38529,0,'46.222.18.125',1582721991,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: aporte FiveDBU: soporte tipo campo extendido ModTime\";}'),(5465,1,2598,3,38542,0,'194.243.201.246',1582885881,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Display  a Bitmap -  to Gurus\";}'),(5466,1,2342,3,38548,0,'46.222.24.240',1582922712,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Imagem em BTNBMP\";}'),(5467,1,868,3,38551,0,'183.83.85.94',1582939037,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Fivewin opening QuickBooks\";}'),(5468,1,2598,3,38562,0,'194.243.201.246',1583232291,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Error on get - action\";}'),(5469,1,2598,3,38582,0,'194.243.201.246',1583409549,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"erro on tbntbmp\";}'),(5470,1,868,3,38394,0,'183.83.85.94',1583432672,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Mr. Nages please: HARU PDF Bugs/Extensions\";}'),(5471,1,2,6,38602,0,'80.102.112.131',1583866445,'LOG_POST_EDITED','a:2:{i:0;s:18:\"teléfono Fivetech\";i:1;s:6:\"MOISES\";}'),(5472,1,2,6,38602,0,'80.102.112.131',1583866498,'LOG_POST_EDITED','a:2:{i:0;s:18:\"teléfono Fivetech\";i:1;s:6:\"MOISES\";}'),(5473,1,2,6,38602,0,'80.102.112.131',1583866506,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: El teléfono de Fivetech no está disponible\";}'),(5474,1,2,6,38602,0,'80.102.112.131',1583866544,'LOG_POST_EDITED','a:2:{i:0;s:18:\"teléfono Fivetech\";i:1;s:6:\"MOISES\";}'),(5475,1,868,3,38584,0,'183.83.85.94',1583934350,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Problem with datepick\";}'),(5476,1,960,6,38604,0,'84.122.94.166',1584387464,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: Conexión con balanza a través del puerto RS232\";}'),(5477,3,1853,0,0,1853,'172.58.206.165',1584394855,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Bayron\";}'),(5478,0,2,0,0,0,'5.59.82.205',1584509211,'LOG_ADMIN_AUTH_SUCCESS',''),(5479,0,2,0,0,0,'5.59.82.205',1584509229,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:12:\"Angel Miguel\";}'),(5480,0,2,0,0,0,'5.59.82.205',1584509235,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:12:\"Angel Miguel\";}'),(5481,3,3593,0,0,3593,'80.201.139.80',1584518267,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(5482,3,3687,0,0,3687,'200.110.188.145',1584537181,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"jpcavagnaro\";}'),(5483,3,1884,0,0,1884,'190.235.217.166',1584563831,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"hpoliz\";}'),(5484,1,233,3,38580,0,'60.48.189.237',1584680886,'LOG_DELETE_TOPIC','a:1:{i:0;s:57:\"[OT: Fastreport] How to call another report using script?\";}'),(5485,1,2342,6,38644,0,'84.78.247.53',1584701822,'LOG_POST_EDITED','a:2:{i:0;s:26:\"FWH 2002 error con XBROWSE\";i:1;s:14:\"CARLOS ATUNCAR\";}'),(5486,3,3593,0,0,3593,'80.201.139.80',1584714508,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(5487,1,2598,3,38648,0,'37.227.141.153',1584718385,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Help with a codeblock\";}'),(5488,3,542,0,0,542,'83.51.40.34',1584876919,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"colthop\";}'),(5489,1,228,3,38665,0,'191.95.51.46',1584976251,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Color of text in a selector column\";}'),(5490,1,2598,3,38655,0,'91.252.237.141',1584984906,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"erase all controls of a btnbmp\";}'),(5491,1,2598,3,38628,0,'91.252.237.141',1584985333,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"sample with 4 scroll panels ( multiple Orders)\";}'),(5492,1,2,19,38676,0,'80.102.112.131',1585120565,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(5493,1,110,3,38682,0,'45.238.28.98',1585242848,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: How to copy a row of a rowset\";}'),(5494,0,2,0,0,0,'80.102.112.131',1585256204,'LOG_ADMIN_AUTH_SUCCESS',''),(5495,3,2,0,0,2,'80.102.112.131',1585256434,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(5496,0,2,0,0,0,'80.102.112.131',1585256434,'LOG_USER_USER_UPDATE','a:1:{i:0;s:15:\"Antonio Linares\";}'),(5497,1,2598,3,38711,0,'91.252.223.47',1585579164,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: ButtonBar in a specific location\";}'),(5498,1,2342,3,38711,0,'85.52.243.196',1585584395,'LOG_POST_EDITED','a:2:{i:0;s:43:\"ButtonBar in a specific location ( Solved )\";i:1;s:5:\"ctoas\";}'),(5499,1,1257,3,38704,0,'93.135.66.43',1585945605,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Wrong Tooltip\";}'),(5500,3,1388,0,0,1388,'112.206.43.153',1585976279,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"fraxzi\";}'),(5501,1,2598,3,38035,0,'91.252.7.75',1586012709,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"strange error on XbrGetDate\";}'),(5502,1,2598,3,38765,0,'91.253.218.169',1586386534,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"BTNBMP to BUTTOMBMP\";}'),(5503,1,2342,6,38774,0,'85.52.243.105',1586524772,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"bug FWH EXCESS RELEASE\";}'),(5504,1,2598,3,38776,0,'37.227.19.99',1586539170,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Radio format  button(push)\";}'),(5505,1,2598,3,38778,0,'37.227.255.83',1586562464,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"btnbmp no click\";}'),(5506,1,2598,3,38788,0,'91.252.139.77',1586633296,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: transparent on a say\";}'),(5507,1,2948,6,18957,0,'84.127.233.131',1586882804,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: Implementando una Clase TExplorerBar propia de FWH\";}'),(5508,1,2342,6,38803,0,'46.222.61.157',1586906265,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: libmysql.lib de MySQL 8.x para Borland\";}'),(5509,1,2721,6,38830,0,'79.144.226.239',1587239813,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Ejemplo Access\";}'),(5510,1,362,6,38845,0,'179.145.21.103',1587558697,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Errores con CFTS (IA) o Hiper-SEEK\";}'),(5511,1,2,3,38745,0,'92.59.20.163',1587644268,'LOG_POST_EDITED','a:2:{i:0;s:22:\"xBrowse and SQLRDD bug\";i:1;s:6:\"MOISES\";}'),(5512,1,2,3,38745,0,'92.59.20.163',1587644289,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: xBrowse and SQLRDD bug\";i:1;s:6:\"MOISES\";}'),(5513,1,2,3,38745,0,'92.59.20.163',1587644300,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: xBrowse and SQLRDD bug\";i:1;s:6:\"MOISES\";}'),(5514,1,2,3,38745,0,'92.59.20.163',1587644310,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: xBrowse and SQLRDD bug\";i:1;s:6:\"MOISES\";}'),(5515,1,2,6,38859,0,'92.59.20.235',1587897651,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Consulta XIMAGE\";i:1;s:6:\"MOISES\";}'),(5516,1,2,6,38859,0,'92.59.20.235',1587897684,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Consulta XIMAGE\";i:1;s:6:\"MOISES\";}'),(5517,1,2598,3,38848,0,'91.252.124.155',1587941425,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: error on xbrowse footer\";}'),(5518,0,2,0,0,0,'92.59.20.235',1587964586,'LOG_ADMIN_AUTH_SUCCESS',''),(5519,1,2,3,38293,0,'92.59.20.235',1588226516,'LOG_POST_EDITED','a:2:{i:0;s:34:\"bug cWinVersion() [fixed in 20.04]\";i:1;s:6:\"MOISES\";}'),(5520,1,2721,6,33421,0,'79.144.226.74',1588257192,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Funciones propias en una lib\";}'),(5521,1,3593,3,38884,0,'84.194.52.40',1588340337,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: xBrowse faster with less colums\";}'),(5522,1,2342,3,38886,0,'84.78.247.143',1588428982,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: Auto-Close Application On Timer (Resolved)\";i:1;s:8:\"RiazKhan\";}'),(5523,1,2342,3,38886,0,'84.78.247.143',1588429016,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: Auto-Close Application On Timer (Resolved)\";i:1;s:11:\"Marc Venken\";}'),(5524,1,2598,3,38895,0,'91.253.83.140',1588465969,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"action on BMP LEFT of Quantity\";}'),(5525,1,2598,3,38915,0,'91.255.133.99',1588761962,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Urgent To Nages\";}'),(5526,1,1814,6,38910,0,'186.103.145.171',1588782925,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Busqueda incremental en Dialogo\";}'),(5527,1,2598,3,38928,0,'91.253.27.216',1588942699,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"script extern\";}'),(5528,1,1880,6,38918,0,'186.137.26.141',1588945423,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Enviar Código de Barras en un mail\";}'),(5529,1,2948,3,38941,0,'84.127.233.131',1589301866,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: &quot;PROBLEMILLA&quot; CON TCBROWSE FWH\";}'),(5530,3,3182,0,0,3182,'43.241.146.110',1589307846,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"dagiayunus\";}'),(5531,1,2598,3,38865,0,'91.252.209.162',1589438216,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Fast Report´s future\";}'),(5532,1,2598,3,38948,0,'91.252.164.82',1589459869,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: How to print Labels with Fivewin (TO MR.RAO)\";}'),(5533,1,3834,6,38960,0,'152.231.123.193',1589564325,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Ayuda Problema Xbrowse Anidados\";}'),(5534,1,3834,6,38960,0,'152.231.123.193',1589564338,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Ayuda Problema Xbrowse Anidados\";}'),(5535,1,2598,3,38977,0,'151.38.16.175',1589728023,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Strange setup on Datepick\";}'),(5536,1,2598,3,38978,0,'91.253.186.10',1589742562,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Word Report\";}'),(5537,1,2598,3,38958,0,'91.253.186.10',1589748968,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: How run TextInBox\";}'),(5538,1,2,6,38987,0,'92.59.20.235',1589979684,'LOG_POST_EDITED','a:2:{i:0;s:67:\"libro interesante programación Windows y sus &quot;internals&quot;\";i:1;s:6:\"MOISES\";}'),(5539,1,267,3,39001,0,'179.223.244.128',1590000003,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"SaveData() AND composid Primary Key\";}'),(5540,1,2,6,38697,0,'92.59.21.160',1590084907,'LOG_POST_EDITED','a:2:{i:0;s:43:\"Re: Enlazar y compilar con el editor VSCode\";i:1;s:8:\"acuellar\";}'),(5541,1,2598,3,38982,0,'91.255.75.167',1590266935,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: RibbonBar + datepick+ xbrowse\";}'),(5542,1,2598,3,38982,0,'91.255.75.167',1590266954,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: RibbonBar + datepick+ xbrowse\";}'),(5543,1,2598,3,38982,0,'91.255.75.167',1590266970,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"RibbonBar + datepick+ xbrowse  RESOLVED\";}'),(5544,3,376,0,0,376,'190.236.202.154',1590494566,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Armando Picon\";}'),(5545,3,3328,0,0,3328,'179.223.244.128',1590608767,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"ricbarraes\";}'),(5546,3,4306,0,0,4306,'186.156.238.153',1590974184,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"lagm\";}'),(5547,1,2,3,39041,0,'92.59.21.160',1590990985,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Another historic moment in Harbour ...\";i:1;s:6:\"Carles\";}'),(5548,3,348,0,0,348,'179.6.206.31',1591040884,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"lubin\";i:1;s:20:\"lubin.am@hotmail.com\";i:2;s:18:\"lubin.am@gmail.com\";}'),(5549,1,2598,3,39046,0,'151.19.154.24',1591204168,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Panel Scroll Update\";}'),(5550,1,35,1,39062,0,'172.74.196.80',1591287854,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"DatePicker shows incorrect date ( month ) FWH 2004\";}'),(5551,1,35,3,39063,0,'172.74.196.80',1591802265,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: DatePicker shows incorrect date ( month ) FWH 2004\";}'),(5552,1,1427,3,39070,0,'202.88.246.106',1591939620,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: NO RESPONSE = TITLETEXT Refresh() Arrays...???\";}'),(5553,1,2342,6,23455,0,'85.52.243.58',1591989600,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Error en ejemplo de FWH\";i:1;s:5:\"Orbex\";}'),(5554,1,2342,6,23455,0,'85.52.243.58',1591990029,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Error en ejemplo de FWH\";i:1;s:5:\"Orbex\";}'),(5555,1,2342,6,23455,0,'85.52.243.58',1591990047,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Error en ejemplo de FWH\";i:1;s:5:\"Orbex\";}'),(5556,1,3834,6,39109,0,'190.163.16.183',1592356591,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Consulta Sobre un Valid()\";}'),(5557,1,34,3,39125,0,'68.109.95.131',1593016140,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Which C compiler and which Harbour should be used for FW?\";}'),(5558,1,2342,6,39130,0,'37.29.209.44',1593032515,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Las dbf temporales se vacían con W10\";}'),(5559,1,2342,6,39131,0,'37.29.209.44',1593032515,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Las dbf temporales se vacían con W10\";}'),(5560,1,2342,6,39126,0,'31.221.234.155',1593136986,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: ot: curso ModHarbour Mercury  MVC\";}'),(5561,1,2342,6,39126,0,'31.221.234.155',1593137002,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: ot: curso ModHarbour Mercury  MVC\";}'),(5562,1,2342,6,39126,0,'31.221.234.155',1593137018,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: ot: curso ModHarbour Mercury  MVC\";}'),(5563,1,36,46,39129,0,'190.164.87.131',1593182849,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: GET FECHA SOLUCIONADO\";}'),(5564,1,2598,3,39133,0,'151.19.15.80',1593244082,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: FOR NAGES\";}'),(5565,1,1257,3,39143,0,'78.48.51.11',1593550015,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: HEIC to JPG\";}'),(5566,1,2598,3,36640,0,'194.243.201.246',1593775429,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"add a filter on line\";}'),(5567,1,2598,3,39159,0,'151.37.170.182',1594029514,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Problem Numeric get\";}'),(5568,1,2598,3,39159,0,'151.37.170.182',1594029651,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Problem Numeric get\";}'),(5569,1,2598,3,39159,0,'151.37.170.182',1594029660,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"Problem Numeric get RESOLVED\";}'),(5570,1,1313,3,39161,0,'191.248.123.98',1594050737,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"mariadb is affected by the restoration of windows\";}'),(5571,1,2598,3,39166,0,'151.19.48.170',1594154040,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"ArrTranspose problem\";}'),(5572,1,78,6,39192,0,'190.236.76.61',1594816469,'LOG_DELETE_POST','a:1:{i:0;s:36:\"SOLUCIONADO  CONTROL TXIMAGE EN .RES\";}'),(5573,1,4350,45,38232,0,'87.27.57.101',1595231095,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: mod_harbour Genesis: The Harbour for the web ERP !!!\";}'),(5574,1,389,3,39212,0,'187.138.104.77',1595383772,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: For Silvio\";}'),(5575,1,2598,3,36693,0,'151.47.77.22',1595695982,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Long File Name to Short File Name converter\";}'),(5576,1,913,3,37732,0,'189.217.72.201',1596354889,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: New TprogressWheel\";}'),(5577,1,868,6,18785,0,'49.205.250.210',1596431870,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevos controles para FWH\";}'),(5578,1,868,6,18785,0,'49.205.250.210',1596431879,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Nuevos controles para FWH\";}'),(5579,0,2,0,0,0,'95.47.35.206',1596707967,'LOG_ADMIN_AUTH_SUCCESS',''),(5580,0,2,0,0,0,'95.47.35.206',1596708003,'LOG_USER_INACTIVE','a:1:{i:0;s:4:\"Tito\";}'),(5581,3,2,0,0,4090,'95.47.35.206',1596708003,'LOG_USER_INACTIVE_USER',''),(5582,0,2,0,0,0,'95.47.35.206',1596708041,'LOG_USER_INACTIVE','a:1:{i:0;s:10:\"karina2040\";}'),(5583,3,2,0,0,4370,'95.47.35.206',1596708041,'LOG_USER_INACTIVE_USER',''),(5584,1,389,6,36872,0,'187.171.35.94',1596845741,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Sqlite cipher\";}'),(5585,0,2,0,0,0,'95.47.35.206',1596923288,'LOG_ADMIN_AUTH_SUCCESS',''),(5586,1,868,3,39259,0,'49.205.250.210',1597178881,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: HELP HELP FOR PLANNING  TO NAGES TO ANTONIO\";}'),(5587,1,960,6,39263,0,'84.122.101.127',1597353805,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Certificado digital\";}'),(5588,1,2,17,39282,0,'95.47.35.206',1597845217,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(5589,1,2342,6,37272,0,'46.222.128.194',1598320670,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Fwh19.05 - New Class TDockPnel\";}'),(5590,1,228,6,39305,0,'181.152.149.97',1598792224,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Combinar teclas dentro xbrowse\";}'),(5591,1,1178,6,39303,0,'186.82.126.11',1598831102,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Ayuda Al compilar me Da error en ::Super\";}'),(5592,1,1466,6,39312,0,'186.77.203.82',1598832404,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: CENTRADO DE CABECERAS EN TREPORT\";}'),(5593,1,1313,6,39316,0,'189.26.164.91',1598893499,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"CONSUMO DE RECURSOS\";}'),(5594,1,51,3,35702,0,'80.122.88.242',1599588705,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: webserver using RESTFUL API and responsive\";}'),(5595,1,2,46,39347,0,'46.6.234.210',1599620958,'LOG_POST_EDITED','a:2:{i:0;s:12:\"LIBRERIA WDO\";i:1;s:3:\"PGO\";}'),(5596,1,2,3,39125,0,'46.6.234.210',1599622177,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Which C compiler and which Harbour should be used for FW?\";}'),(5597,3,4149,0,0,4149,'191.102.218.5',1600283388,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:18:\"Adolfredo Martinez\";}'),(5598,1,2342,3,39362,0,'84.78.246.2',1600294328,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: How detect connection or not to MySql?\";}'),(5599,1,51,3,39373,0,'80.122.88.242',1600430869,'LOG_DELETE_TOPIC','a:1:{i:0;s:4:\"WIKI\";}'),(5600,1,23,3,39385,0,'46.24.93.28',1600613097,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"FWMaria ó TDolphin ??\";}'),(5601,0,2,0,0,0,'5.59.173.11',1600667549,'LOG_ADMIN_AUTH_SUCCESS',''),(5602,0,2,0,0,0,'5.59.173.11',1600667564,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"anang\";}'),(5603,0,2,0,0,0,'5.59.173.11',1600667569,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:5:\"anang\";}'),(5604,1,35,3,39379,0,'172.74.196.86',1600692121,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: sql server guardar y mostrar imagen\";}'),(5605,1,868,3,39379,0,'49.205.250.210',1600701130,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: sql server guardar y mostrar imagen\";}'),(5606,1,152,6,39404,0,'200.120.114.117',1601124084,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Cambia Dialog (RC)  según BaseDato que abra\";}'),(5607,1,1880,6,37838,0,'186.137.26.141',1601316336,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Consulta sobre PRINT\";}'),(5608,1,2,44,39418,0,'5.59.173.11',1601459790,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Artificial Intelligence - Class TNeuralNetwork\";}'),(5609,1,693,3,38764,0,'190.11.133.71',1601565090,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: get problem not execute ON CHANGE command\";}'),(5610,1,362,3,39420,0,'179.145.22.178',1601688292,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: New Password problem\";}'),(5611,1,2,44,39419,0,'5.59.173.11',1601704196,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Artificial Intelligence - Class TNeuralNetwork\";}'),(5612,1,6,3,39455,0,'79.22.232.210',1602264327,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: XBrowse and nomodal dialogs\";}'),(5613,1,868,3,39462,0,'49.205.250.210',1602504948,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: matrices multiplication\";i:1;s:15:\"Antonio Linares\";}'),(5614,1,2598,3,39476,0,'151.47.82.101',1602705935,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: USING TCALEX STRANGE ERROR ON XBROWSE\";}'),(5615,1,2598,3,39476,0,'151.47.82.101',1602705945,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"USING TCALEX STRANGE ERROR ON XBROWSE\";}'),(5616,1,152,6,39479,0,'200.120.114.117',1602808131,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"Como traspaso caracteres especiales con FW_AdoImportFromDBF\";}'),(5617,1,2598,3,39484,0,'151.46.130.248',1602841770,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Problem with ribbonBar\";}'),(5618,3,891,0,0,891,'187.188.58.245',1603146808,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(5619,1,110,6,39487,0,'45.238.28.98',1603295763,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: tPrinter en vertical\";}'),(5620,1,2721,6,7330,0,'88.10.11.199',1603808857,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Calculadora\";}'),(5621,1,152,6,39512,0,'200.86.214.223',1603812090,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Con FW_AdoImportFromDBF se interrumpe proceso\";}'),(5622,3,92,0,0,92,'188.76.65.36',1603824696,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(5623,1,51,3,39520,0,'80.122.88.242',1603836676,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: How to implement GETACTIVE()?\";}'),(5624,3,891,0,0,891,'187.188.58.209',1603905193,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(5625,1,2342,3,39520,0,'85.52.243.229',1603998477,'LOG_POST_EDITED','a:2:{i:0;s:33:\"Re: How to implement GETACTIVE()?\";i:1;s:13:\"mauri.menabue\";}'),(5626,1,23,6,37272,0,'195.235.122.198',1604042857,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Fwh19.05 - New Class TDockPnel\";}'),(5627,1,2598,3,39535,0,'151.19.1.136',1604081621,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: buttonbar bottom\";}'),(5628,1,2598,3,39535,0,'151.19.1.136',1604081883,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: buttonbar bottom\";}'),(5629,1,2598,3,39534,0,'151.37.7.117',1604131211,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"problem with RIGHT clausole of a get\";}'),(5630,1,51,3,39547,0,'80.122.88.242',1604167272,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: BUG COMBOBOX ?????\";}'),(5631,1,2598,3,39548,0,'151.19.181.58',1604169998,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Hide some controls\";}'),(5632,1,2598,3,39547,0,'151.44.153.183',1604225619,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: BUG COMBOBOX ?????\";}'),(5633,1,2598,3,39547,0,'151.44.153.183',1604225628,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: BUG COMBOBOX ?????\";}'),(5634,1,2598,3,39530,0,'151.44.153.183',1604226354,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: WHEN on a Say\";}'),(5635,3,233,0,0,233,'124.13.242.124',1604286066,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"hua\";}'),(5636,3,2940,0,0,2940,'79.149.205.138',1604344909,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:15:\"informaticaeloy\";i:1;s:28:\"contacto@informaticaeloy.com\";i:2;s:18:\"eloyvilla@dasit.es\";}'),(5637,1,2598,3,39532,0,'151.35.142.150',1604397171,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Know the size of a font selected\";}'),(5638,1,2598,3,39558,0,'151.46.142.59',1604432049,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Help for buttonBar color\";}'),(5639,1,52,6,39565,0,'190.230.235.160',1604571763,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"re-construccion de un tree\";}'),(5640,1,2598,3,39572,0,'151.37.187.229',1604603532,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"SAYIMAGE NOT RUN\";}'),(5641,1,2598,3,39574,0,'151.57.185.82',1604650749,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: &quot;Front Retro&quot;\";}'),(5642,1,2598,3,39586,0,'151.35.129.30',1604999599,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"To Nages : search with an array\";}'),(5643,1,2598,3,39579,0,'151.35.129.30',1604999694,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"ENABLE/DISABLE  BTNBMP\";}'),(5644,1,2598,3,30651,0,'151.35.129.30',1605000983,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: xbrowse reset incr.-seekstring on btn-action ?\";}'),(5645,1,2598,3,30651,0,'151.35.129.30',1605000993,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: xbrowse reset incr.-seekstring on btn-action ?\";}'),(5646,1,1257,3,39588,0,'93.131.57.15',1605012672,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: A question about download- and image - links\";}'),(5647,1,2598,3,39591,0,'151.19.44.81',1605037802,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Xbrowse Seek\";}'),(5648,1,362,3,39591,0,'179.100.70.33',1605093087,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Xbrowse Seek\";}'),(5649,1,23,6,39611,0,'195.235.122.198',1605252860,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Calidad de Fuentes\";}'),(5650,1,2598,3,39613,0,'151.19.218.152',1605258795,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"SetDialogEsc not run ...solution ?\";}'),(5651,1,2598,3,39614,0,'151.57.167.86',1605267054,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"When...error!!\";}'),(5652,1,2598,3,39615,0,'151.19.150.178',1605342533,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"return a  logic value\";}'),(5653,1,2598,3,39631,0,'151.46.135.79',1605612320,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"converte and replace\";}'),(5654,3,396,0,0,396,'190.75.114.52',1605843274,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"joseluisysturiz\";}'),(5655,3,92,0,0,92,'188.76.65.158',1606256134,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"FiveWiDi\";}'),(5656,1,1257,3,39669,0,'2.244.84.48',1606323934,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Buttonbar color\";}'),(5657,3,3465,0,0,3465,'1.239.46.242',1606525629,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"bigcco\";}'),(5658,1,1057,6,35767,0,'190.238.29.251',1607023016,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Crear una tabla dinamica con un enlace externo desde fivewin\";}'),(5659,1,233,3,39703,0,'110.159.87.244',1607076967,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"xBrowse: How to have different font for different row?\";}'),(5660,1,2598,3,39723,0,'151.19.161.172',1607516241,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: XBrowse: Using Get for incremental Seek/Filters\";}'),(5661,3,3176,0,0,3176,'186.167.251.201',1607557723,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:11:\"JoseAlvarez\";i:1;s:37:\"jose_alberto_alvarez_rada@hotmail.com\";i:2;s:27:\"jose.alvarez.rada@gmail.com\";}'),(5662,1,4406,32,39732,0,'37.152.145.24',1607618544,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Ver Nuevo Registro Browse\";}'),(5663,1,2033,6,39649,0,'190.235.179.74',1607832024,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Inquietud en Dinamica de Variables\";}'),(5664,1,2,3,39746,0,'88.7.212.227',1608056734,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: EasyReport progress?\";}'),(5665,1,3593,3,39754,0,'109.133.166.215',1608114493,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: XBrowse: report header and footer\";}'),(5666,3,1428,0,0,1428,'88.25.10.74',1608198637,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"xmanuel\";}'),(5667,1,3593,3,39759,0,'109.133.166.215',1608206028,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Peer to Peer,  NAS and NTX -&gt; CDX\";}'),(5668,1,2598,3,39746,0,'151.44.194.60',1608223531,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: EasyReport progress?\";}'),(5669,1,1257,3,39784,0,'93.133.70.129',1608810272,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: MERRY CHRISTMAS\";}'),(5670,3,171,0,0,171,'24.34.215.133',1608817038,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"George\";}'),(5671,1,6,6,21723,0,'87.20.213.47',1608974093,'LOG_REPORT_CLOSED','a:1:{i:0;s:56:\"Re: MyRpt - Diseñador de Reportings - En desarrollo :-)\";}'),(5672,1,2598,3,39746,0,'151.47.89.21',1609025963,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: EasyReport progress?\";}'),(5673,1,2,3,39715,0,'79.144.248.79',1609267128,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: About TCalendar\";}'),(5674,1,2598,3,39723,0,'151.47.158.151',1609363984,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: XBrowse: Using Get for incremental Seek/Filters\";}'),(5675,1,533,3,39810,0,'81.45.34.64',1609570045,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FW MariaDB/MySql native\";}'),(5676,1,868,3,34272,0,'49.205.249.126',1609604260,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Mysql ADO and TDataRow\";}'),(5677,1,868,3,39810,0,'49.205.249.126',1609604320,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FW MariaDB/MySql native\";}'),(5678,1,303,3,39799,0,'68.6.163.93',1609614239,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: Marc : Conversion process and questions about it\";}'),(5679,1,2863,3,39830,0,'98.11.238.31',1609867886,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: WaitUntil - batch command replacement for scheduler\";}'),(5680,1,2,3,39827,0,'88.19.164.204',1609879029,'LOG_POST_EDITED','a:2:{i:0;s:44:\"Re: Problem in barmenu in FWH 20.12 (solved)\";i:1;s:8:\"cnavarro\";}'),(5681,1,600,6,39824,0,'31.4.242.84',1610016714,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: galería de imágenes\";}'),(5682,1,362,6,39818,0,'179.145.22.139',1610370014,'LOG_POST_EDITED','a:2:{i:0;s:48:\"Re: ZIP AUTOEXTRAIBLE SE PUEDE HACER DESDE FWH ?\";i:1;s:15:\"informaticaeloy\";}'),(5683,1,1466,3,39845,0,'186.77.202.210',1610378833,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Happy Birthday, Mr. Cristobal Navarro Lopez\";}'),(5684,1,362,3,38519,0,'179.145.22.139',1610449930,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: How to print PDF file without GUI?\";}'),(5685,1,362,3,38519,0,'179.145.22.139',1610450329,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: How to print PDF file without GUI?\";}'),(5686,1,110,6,39848,0,'190.106.63.131',1610473717,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: hbclas error 2012  que hice mal?\";}'),(5687,1,1880,6,39853,0,'186.137.26.141',1610546659,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Excel a Matriz\";}'),(5688,1,161,3,39861,0,'84.192.181.6',1610638579,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"CMIMEENC (pdf-file to mime)\";}'),(5689,1,227,3,39855,0,'177.76.103.6',1610641490,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: xBrowse color\";}'),(5690,1,868,3,39858,0,'49.205.254.186',1610642384,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Previously opened Excel / Word files.\";}'),(5691,1,868,6,39860,0,'49.205.254.186',1610644910,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: FW_SetUnicode mostrar valor GET con FWINLOG\";}'),(5692,1,2598,3,39879,0,'151.35.81.90',1611093346,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"hbcurl function\";}'),(5693,1,2598,3,39881,0,'151.43.206.232',1611218025,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"Telegram Class by Riztan Gutierrez\";}'),(5694,1,2598,3,39813,0,'151.57.191.117',1611501793,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: illegal copy protection\";}'),(5695,1,303,3,39810,0,'68.6.163.93',1611589397,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: FW MariaDB/MySql native\";}'),(5696,1,4419,6,39900,0,'186.137.26.141',1611664720,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Estilo de botones de Windows 10\";}'),(5697,1,4419,6,39900,0,'186.137.26.141',1611664795,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Estilo de botones de Windows 10\";}'),(5698,1,110,6,36266,0,'161.0.60.83',1611697789,'LOG_DELETE_POST','a:1:{i:0;s:18:\"algunas libs y mas\";}'),(5699,1,868,6,39915,0,'49.205.254.186',1612150667,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Arhivos xls y xlsm\";}'),(5700,1,89,3,39922,0,'194.32.172.237',1612513636,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: xBrowse and lMergeVert\";}'),(5701,1,228,6,39943,0,'190.253.153.170',1612569158,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Folder de codigo con pages de recurso\";}'),(5702,3,1095,0,0,1095,'79.144.14.153',1612809782,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"vlmsoft\";}'),(5703,1,4426,3,39967,0,'190.244.2.145',1612877072,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Superindice a imprimir\";}'),(5704,1,1466,6,39950,0,'186.77.202.146',1612917156,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"Ordenar y/o Filtrar hoja de Excel desde Fivewin\";}'),(5705,1,86,3,39952,0,'84.193.19.190',1613043225,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 21.01\";}'),(5706,1,23,3,37133,0,'46.24.93.54',1613144381,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: User defined Windows captions\";}'),(5707,3,596,0,0,596,'62.151.121.213',1613297888,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"JmGarcia\";}'),(5708,1,1406,3,39995,0,'85.105.58.6',1613321046,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"Help about Combobox, bitmap, resource\";}'),(5709,1,2,19,39994,0,'79.144.248.11',1613381891,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(5710,3,4149,0,0,4149,'186.1.190.58',1613437432,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:18:\"Adolfredo Martinez\";}'),(5711,1,2,19,40001,0,'79.144.248.11',1613465296,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(5712,1,6,6,40003,0,'95.238.228.8',1613555256,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"tree leido desde mysql no me funciona\";}'),(5713,3,2530,0,0,2530,'179.156.242.31',1613705822,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lailton\";}'),(5714,1,396,6,40024,0,'201.211.56.16',1614082024,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Sistema multi empresa con mysql\";}'),(5715,1,891,6,40024,0,'187.188.58.248',1614092693,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Sistema multi empresa con mysql\";}'),(5716,1,2342,6,40028,0,'37.29.193.154',1614181759,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: crear tabla con el api de harbour\";}'),(5717,1,34,3,40031,0,'98.163.35.2',1614198394,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Errsysw not working\";}'),(5718,1,6,6,40039,0,'79.44.22.16',1614291031,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Ordenar solo una parte de un array\";}'),(5719,1,913,6,40026,0,'189.217.73.137',1614386442,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Para Antonio Linares\";}'),(5720,1,868,6,40045,0,'49.205.254.186',1614426892,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Seleccionar primer y ultimo registro de una consulta.\";}'),(5721,3,2143,0,0,2143,'201.242.199.121',1615068989,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"hidroxid\";}'),(5722,1,2598,3,40067,0,'151.57.141.217',1615139565,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"animation by user for a child\";}'),(5723,3,4149,0,0,4149,'191.102.222.17',1615157756,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:18:\"Adolfredo Martinez\";}'),(5724,0,2,0,0,0,'80.27.213.37',1615188488,'LOG_ADMIN_AUTH_SUCCESS',''),(5725,0,2,0,0,0,'81.39.160.107',1615217304,'LOG_ADMIN_AUTH_SUCCESS',''),(5726,0,2,0,0,0,'81.39.160.107',1615309186,'LOG_ADMIN_AUTH_SUCCESS',''),(5727,3,2,0,0,891,'81.39.160.107',1615309223,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(5728,0,2,0,0,0,'81.39.160.107',1615309223,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"ACC69\";}'),(5729,3,1654,0,0,1654,'186.28.243.41',1615337536,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"J. Ernesto\";}'),(5730,3,1654,0,0,1654,'186.28.243.41',1615337536,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"J. Ernesto\";i:1;s:16:\"jepsys@yahoo.com\";i:2;s:18:\"jepsys@hotmail.com\";}'),(5731,0,2,0,0,0,'81.39.160.107',1615363611,'LOG_ADMIN_AUTH_SUCCESS',''),(5732,1,2342,3,40088,0,'84.78.246.248',1615382366,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: PROBLEMAS PREVIEW CLASE TPRINT CON ACTUALIZACION WINDOWS\";}'),(5733,0,2,0,0,0,'81.39.160.107',1615394355,'LOG_ADMIN_AUTH_SUCCESS',''),(5734,0,2,0,0,0,'81.39.160.107',1615395315,'LOG_ADMIN_AUTH_SUCCESS',''),(5735,3,1794,0,0,1794,'2.139.209.75',1615445509,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"groiss\";}'),(5736,0,2,0,0,0,'81.39.160.107',1615567476,'LOG_ADMIN_AUTH_SUCCESS',''),(5737,0,2,0,0,0,'81.39.160.107',1615802909,'LOG_ADMIN_AUTH_SUCCESS',''),(5738,0,2,0,0,0,'81.39.160.107',1615802939,'LOG_CONFIG_COOKIE',''),(5739,0,2,0,0,0,'81.39.160.107',1615881088,'LOG_ADMIN_AUTH_SUCCESS',''),(5740,1,362,6,40118,0,'179.145.22.50',1615910397,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: enseñenme a interpretar este error.\";}'),(5741,1,304,6,35324,0,'201.123.62.235',1616092758,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Error en Excel\";}'),(5742,1,2598,3,39746,0,'151.47.12.138',1616239777,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: EasyReport progress?\";}'),(5743,1,913,16,38896,0,'189.217.3.137',1616276635,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: New FTDN April/Abril 2020 (FWH 20.04)\";}'),(5744,1,2721,6,40151,0,'79.146.11.48',1616316318,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Alguien sabe como cambiar el fondo del escritorio de windows\";}'),(5745,1,913,6,40151,0,'189.217.0.137',1616490979,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Alguien sabe como cambiar el fondo del escritorio de windows\";}'),(5746,3,23,0,0,23,'195.235.122.198',1616491408,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"AngelSalom\";}'),(5747,1,868,6,40155,0,'49.205.253.149',1616523581,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Como validar  un string MySQL\";}'),(5748,3,52,0,0,52,'181.105.90.172',1616617016,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"goosfancito\";}'),(5749,3,52,0,0,52,'181.105.90.172',1616617016,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:11:\"goosfancito\";i:1;s:17:\"gusmavf@gmail.com\";i:2;s:20:\"calafestuk@gmail.com\";}'),(5750,1,362,6,40170,0,'179.174.1.162',1616670371,'LOG_POST_EDITED','a:2:{i:0;s:13:\"Re: clases...\";i:1;s:11:\"goosfancito\";}'),(5751,1,868,3,40162,0,'49.205.253.149',1616694410,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Array of Gets on a scroll panel\";}'),(5752,1,2598,3,40184,0,'151.44.170.57',1616885417,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"image not trasparent on a brush\";}'),(5753,1,2598,3,40190,0,'151.43.211.61',1617005052,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"Pathname\";}'),(5754,1,2076,6,40193,0,'45.74.238.210',1617214207,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Error con \'mysql.h\'\";}'),(5755,1,3834,6,40198,0,'190.163.16.183',1617234527,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Consulta Sobre Report\";}'),(5756,0,2,0,0,0,'81.39.160.107',1617273583,'LOG_ADMIN_AUTH_SUCCESS',''),(5757,0,2,0,0,0,'81.39.160.107',1617273722,'LOG_CONFIG_SECURITY',''),(5758,0,2,0,0,0,'81.39.160.107',1617273757,'LOG_ADMIN_AUTH_SUCCESS',''),(5759,0,2,0,0,0,'81.39.160.107',1617273783,'LOG_CONFIG_SECURITY',''),(5760,0,2,0,0,0,'81.39.160.107',1617273840,'LOG_ADMIN_AUTH_SUCCESS',''),(5761,0,2,0,0,0,'81.39.160.107',1617273861,'LOG_CONFIG_SECURITY',''),(5762,1,449,6,40145,0,'62.83.88.246',1617521957,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: *** Curso de C para programadores Harbour.\";}'),(5763,1,362,6,40081,0,'179.145.21.207',1617710462,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Workshop 32/64 Bits.\";}'),(5764,1,362,6,40081,0,'179.145.21.207',1617710475,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Workshop 32/64 Bits.\";}'),(5765,1,362,6,40081,0,'179.145.21.207',1617710486,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Workshop 32/64 Bits.\";}'),(5766,1,362,6,40081,0,'179.145.21.207',1617710501,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Workshop 32/64 Bits.\";}'),(5767,0,2,0,0,0,'81.39.160.107',1617781690,'LOG_ADMIN_AUTH_SUCCESS',''),(5768,0,2,0,0,0,'81.39.160.107',1617781711,'LOG_CONFIG_COOKIE',''),(5769,1,190,3,40215,0,'183.83.37.187',1617785780,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: SMS To Customer - Upon Order Delivery\";}'),(5770,0,2,0,0,0,'81.39.160.107',1617804501,'LOG_ADMIN_AUTH_SUCCESS',''),(5771,0,2,0,0,0,'81.39.160.107',1617804818,'LOG_ADMIN_AUTH_SUCCESS',''),(5772,0,2,0,0,0,'81.39.160.107',1617804905,'LOG_CONFIG_SERVER',''),(5773,0,2,0,0,0,'81.39.160.107',1617804977,'LOG_ADMIN_AUTH_SUCCESS',''),(5774,0,2,0,0,0,'81.39.160.107',1617804990,'LOG_CONFIG_COOKIE',''),(5775,3,3593,0,0,3593,'84.194.52.40',1617831243,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(5776,1,2342,6,40225,0,'90.167.7.251',1617900666,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Mostrar BMP en XBrowse\";i:1;s:12:\"José Camilo\";}'),(5777,1,3834,6,40204,0,'190.163.16.183',1617919238,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Ayuda Imprimir Liquidacion de Sueldo\";}'),(5778,1,3834,6,40204,0,'190.163.16.183',1617921850,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Ayuda Imprimir Liquidacion de Sueldo\";}'),(5779,1,3834,6,40204,0,'190.163.16.183',1617921869,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Ayuda Imprimir Liquidacion de Sueldo\";}'),(5780,1,3834,6,40229,0,'186.10.98.121',1617983641,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: Favor ayuda con DTPICKER &quot;SOLUCIONADO&quot;\";}'),(5781,1,1257,3,40231,0,'93.135.87.2',1618002311,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Problem xBrowse EDIT_LISTBOX numeric\";}'),(5782,1,3834,6,40237,0,'190.163.16.183',1618094792,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Problema con Array\";}'),(5783,1,2598,3,40222,0,'151.47.39.131',1618174628,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"datepick Not Process bchange\";}'),(5784,0,2,0,0,0,'81.39.160.107',1618231707,'LOG_ADMIN_AUTH_SUCCESS',''),(5785,0,2,0,0,0,'81.39.160.107',1618231726,'LOG_CONFIG_COOKIE',''),(5786,3,3593,0,0,3593,'84.194.52.40',1618341760,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Marc Venken\";}'),(5787,0,2,0,0,0,'79.148.53.13',1618563189,'LOG_ADMIN_AUTH_SUCCESS',''),(5788,1,439,6,40230,0,'201.217.133.98',1618573350,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Sistemita de Backup de archivos FWH y Harbour\";}'),(5789,1,439,6,40230,0,'201.217.133.98',1618573428,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Sistemita de Backup de archivos FWH y Harbour\";}'),(5790,1,439,6,40268,0,'201.217.133.98',1618597252,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"abm con FWMariadb\";}'),(5791,0,2,0,0,0,'79.148.53.13',1618820211,'LOG_ADMIN_AUTH_SUCCESS',''),(5792,0,2,0,0,0,'79.148.53.13',1618820228,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:8:\"MauriceW\";}'),(5793,1,2,0,0,0,'79.148.53.13',1618820228,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:8:\"MauriceW\";}'),(5794,1,439,6,40290,0,'201.217.133.98',1619030471,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Aporte: ABM para FWHmariadb\";}'),(5795,1,3834,6,40303,0,'186.10.98.173',1619200739,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Favor Ayuda con REPORT\";}'),(5796,1,2076,6,40304,0,'45.74.238.210',1619210966,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"TDatarow issue with Eagle1\";}'),(5797,1,2342,6,40311,0,'46.222.190.139',1619375052,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Requery nativa Mr.Rao.\";i:1;s:5:\"Ariel\";}'),(5798,1,2598,3,40323,0,'151.57.212.60',1619607149,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Nages ,  btnbmp setfile  bug ?\";}'),(5799,1,2076,3,40333,0,'45.74.238.210',1619699246,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Refrescar array en Browse\";}'),(5800,1,2,3,40335,0,'83.52.219.229',1619784223,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: progress on msgitem\";}'),(5801,1,2598,3,40336,0,'151.35.94.115',1619800435,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"report with tdatabase\";}'),(5802,1,2,45,39119,0,'83.52.219.229',1620057017,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Migration to the new mod_harbour fastCGI\";}'),(5803,1,89,3,40354,0,'194.32.172.237',1620059277,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: New Fwh with Borland 64  - Antonio\";}'),(5804,1,2598,3,40363,0,'151.43.36.82',1620209262,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: xbrowse column nHeadBmpNo called too late\";}'),(5805,1,110,6,40352,0,'161.0.60.84',1620231195,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: ya no me ordena el xbrowse..\";}'),(5806,3,392,0,0,392,'177.183.85.44',1620238561,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"vailtom\";}'),(5807,1,2598,3,40370,0,'151.37.163.215',1620379581,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Determine a list of Month\";}'),(5808,1,2598,3,40371,0,'151.37.163.215',1620384489,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Determine a list of Month\";}'),(5809,1,868,6,40367,0,'49.205.253.149',1620396322,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: get no disable y tampoco editable\";}'),(5810,1,2598,3,40344,0,'151.57.6.241',1620722712,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Problem with datepick control\";}'),(5811,1,2598,3,40379,0,'151.37.154.66',1620759324,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Determine names of months between two dates\";}'),(5812,1,2,3,40378,0,'83.52.218.236',1620810445,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: MENUITEM with BLOCK command executed TWICE.\";i:1;s:7:\"Horizon\";}'),(5813,0,2,0,0,0,'83.52.218.236',1620900800,'LOG_ADMIN_AUTH_SUCCESS',''),(5814,0,2,0,0,0,'83.52.218.236',1620900839,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:13:\"eulisesquidel\";}'),(5815,0,2,0,0,0,'83.52.218.236',1620900847,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:13:\"eulisesquidel\";}'),(5816,1,1060,3,40391,0,'94.29.124.107',1620918966,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Drive letter\";}'),(5817,1,1257,3,40261,0,'93.131.54.173',1620991754,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: How to change the xBrowse-bkstyle at runtime ?\";}'),(5818,1,23,6,40401,0,'46.24.93.54',1621016427,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"TOutLook2010 desde Recursos\";}'),(5819,1,2598,3,40406,0,'151.46.195.197',1621077166,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"To Nages : Grid TopBar Problem\";}'),(5820,0,2,0,0,0,'83.52.218.236',1621243959,'LOG_ADMIN_AUTH_SUCCESS',''),(5821,3,2,0,0,80,'83.52.218.236',1621243999,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Colin Haig\";}'),(5822,0,2,0,0,0,'83.52.218.236',1621243999,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Colin Haig\";}'),(5823,3,1686,0,0,1686,'179.49.145.69',1621259872,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Marnio Miranda\";}'),(5824,3,1686,0,0,1686,'179.49.145.69',1621259872,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:14:\"Marnio Miranda\";i:1;s:23:\"exatasistemas@globo.com\";i:2;s:25:\"exatasistemas@hotmail.com\";}'),(5825,1,3834,6,40421,0,'190.163.16.183',1621287816,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Consulta Sobre Report\";}'),(5826,0,2,0,0,0,'83.52.218.236',1621509665,'LOG_ADMIN_AUTH_SUCCESS',''),(5827,0,2,0,0,0,'83.52.218.236',1621509694,'LOG_USER_ACTIVE','a:1:{i:0;s:10:\"chrisiwien\";}'),(5828,3,2,0,0,4467,'83.52.218.236',1621509694,'LOG_USER_ACTIVE_USER',''),(5829,3,1406,0,0,1406,'85.105.58.49',1621589248,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Horizon\";}'),(5830,1,362,6,40433,0,'179.145.22.235',1621615152,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Bloqueo al Actualizar y al enviar email\";}'),(5831,3,4306,0,0,4306,'181.42.55.147',1621777883,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"lagm\";}'),(5832,1,3593,3,40441,0,'84.194.52.40',1621805661,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Use cUrl to upload data to online server\";}'),(5833,1,868,3,40453,0,'49.205.253.149',1621966946,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: TDatabase Again .. Xbrowse does not resolve data\";}'),(5834,1,159,3,40460,0,'210.244.75.88',1622163832,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: many bug about local file/directory when name is utf8\";}'),(5835,1,2598,3,40463,0,'151.47.24.105',1622193252,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: To Nages: Problem with Datepick control\";}'),(5836,1,52,6,40007,0,'181.105.91.179',1622236704,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"altura de las ramas de un arbol\";}'),(5837,0,2,0,0,0,'83.52.218.236',1622306220,'LOG_ADMIN_AUTH_SUCCESS',''),(5838,3,2,0,0,12,'83.52.218.236',1622306340,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:10:\"pablovidal\";i:1;s:25:\"pablovidal@verizon.net.do\";i:2;s:27:\"pabloalbertovidal@gmail.com\";}'),(5839,3,2,0,0,12,'83.52.218.236',1622306340,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"pablovidal\";}'),(5840,0,2,0,0,0,'83.52.218.236',1622306340,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"pablovidal\";}'),(5841,1,2598,3,40476,0,'151.43.82.123',1622583837,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"ToExcel  selecting columns\";}'),(5842,1,2,6,40486,0,'83.52.218.236',1622882270,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: TSELEX problema desde recursos con UPDATE\";}'),(5843,3,140,0,0,140,'200.109.29.210',1622933217,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"gsabattino\";}'),(5844,1,868,3,40481,0,'49.205.253.149',1623007062,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: oDbf:Delete() error\";}'),(5845,1,303,3,40481,0,'68.6.163.93',1623020649,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: oDbf:Delete() error\";}'),(5846,1,303,3,40481,0,'68.6.163.93',1623023531,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: oDbf:Delete() error\";}'),(5847,1,868,3,40498,0,'49.205.253.149',1623120163,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Print Problem with FWH2104\";}'),(5848,1,2598,3,40500,0,'151.57.38.68',1623251304,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: TO Cristobal : Message position\";}'),(5849,1,2598,3,40517,0,'151.35.135.41',1623316755,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Path of Images\";}'),(5850,0,2,0,0,0,'83.52.218.236',1623320937,'LOG_ADMIN_AUTH_SUCCESS',''),(5851,0,2,0,0,0,'83.52.218.236',1623321003,'LOG_ADMIN_AUTH_SUCCESS',''),(5852,0,2,0,0,0,'83.52.218.236',1623321110,'LOG_ADMIN_AUTH_SUCCESS',''),(5853,0,2,0,0,0,'83.52.218.236',1623321436,'LOG_ADMIN_AUTH_SUCCESS',''),(5854,3,248,0,0,248,'84.126.144.38',1623322331,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Garbi\";}'),(5855,1,3176,6,40521,0,'200.8.146.229',1623423548,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Spinner sin Get\";}'),(5856,1,3176,6,40521,0,'200.8.146.229',1623423559,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Spinner sin Get\";}'),(5857,3,891,0,0,891,'187.188.58.248',1623427232,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"ACC69\";}'),(5858,1,2598,3,40254,0,'151.35.159.126',1623660566,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: FWH 2103: XBrowse: oSortCbx\";}'),(5859,1,453,6,40465,0,'79.159.192.172',1623679547,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"Búsqueda incremental xBrowse [CONSULTA RETIRADA]\";}'),(5860,1,2,3,40529,0,'83.52.218.236',1623824768,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: sudden problem with tscrollpanel\";}'),(5861,1,4426,3,40546,0,'186.139.16.73',1623983425,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: XBrowse altura de las lineas - rows\";}'),(5862,3,1654,0,0,1654,'186.28.243.41',1624359070,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"J. Ernesto\";}'),(5863,1,2859,6,40565,0,'190.135.150.109',1624491305,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"OFF TOPIC   (enmascarar web)\";}'),(5864,1,2076,6,40564,0,'45.74.238.210',1624493274,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Error compilando MSVC 2019 y 64 Bits\";}'),(5865,1,52,3,40381,0,'181.9.179.156',1624538499,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Buscar en unas tuplas\";}'),(5866,1,2598,3,40579,0,'151.37.133.53',1624870450,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Check a date\";}'),(5867,0,2,0,0,0,'83.52.218.236',1625153829,'LOG_ADMIN_AUTH_SUCCESS',''),(5868,0,2,0,0,0,'83.52.218.236',1625164689,'LOG_ADMIN_AUTH_SUCCESS',''),(5869,3,2,0,0,292,'83.52.218.236',1625164726,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"jnavas\";i:1;s:21:\"jnavas@datapronet.com\";i:2;s:24:\"adaptaprodrive@gmail.com\";}'),(5870,3,2,0,0,292,'83.52.218.236',1625164727,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"jnavas\";}'),(5871,0,2,0,0,0,'83.52.218.236',1625164727,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"jnavas\";}'),(5872,1,362,6,38837,0,'179.100.26.70',1625275312,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Problema enviar correo desde vista Previa\";}'),(5873,1,868,6,40601,0,'49.205.253.149',1625463931,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Common dialogs\";}'),(5874,1,362,6,40609,0,'179.145.22.26',1625497327,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Solicito mejoras a FWH (ANTONIO MR RAO)?\";}'),(5875,1,2342,6,40618,0,'46.222.74.123',1625733044,'LOG_POST_EDITED','a:2:{i:0;s:49:\"XBROWSE PROVOCA ERROR AL REINGRESAR A LA CONSULTA\";i:1;s:14:\"CARLOS ATUNCAR\";}'),(5876,0,2,0,0,0,'83.52.218.236',1626025363,'LOG_ADMIN_AUTH_SUCCESS',''),(5877,1,2,6,181,0,'83.52.218.236',1626025462,'LOG_POST_EDITED','a:2:{i:0;s:16:\"Webcam y Fivewin\";i:1;s:15:\"George Abinader\";}'),(5878,1,2,3,40621,0,'83.52.218.236',1626071888,'LOG_LOCK','a:1:{i:0;s:13:\"print a array\";}'),(5879,1,6,6,40640,0,'87.20.210.45',1626247627,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Cerrar dbf despues de preview\";}'),(5880,1,2721,6,40640,0,'79.156.199.26',1626254137,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Cerrar dbf despues de preview\";}'),(5881,1,2721,6,40640,0,'79.156.199.26',1626254201,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Cerrar dbf despues de preview\";}'),(5882,1,362,6,40644,0,'179.145.21.100',1626357768,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Capturar pulsación de tecla ESC en DIALOG\";}'),(5883,1,2598,3,40628,0,'151.35.168.164',1626942393,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"searching on archive\";}'),(5884,1,37,6,40653,0,'190.236.213.99',1627052795,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Mostrar password que se esta digitando (al presionar click)\";}'),(5885,3,53,0,0,53,'187.190.189.103',1627080393,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Armando\";}'),(5886,1,6,3,40661,0,'87.20.210.45',1627285989,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: Why electric cars will take over sooner than you think\";}'),(5887,1,3593,3,40678,0,'84.194.52.40',1627416849,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 21.06\";}'),(5888,1,6,3,39746,0,'87.20.210.45',1627630750,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: EasyReport progress?\";}'),(5889,1,2,3,40678,0,'83.57.219.108',1627670978,'LOG_LOCK','a:1:{i:0;s:13:\"New FWH 21.06\";}'),(5890,1,2,3,40678,0,'83.57.219.108',1627683394,'LOG_UNLOCK','a:1:{i:0;s:13:\"New FWH 21.06\";}'),(5891,1,161,3,40687,0,'84.192.181.6',1627730985,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: HTML reports -  live preview inside VS Code\";}'),(5892,1,228,3,40678,0,'190.66.140.85',1627773418,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 21.06\";}'),(5893,1,2,3,40678,0,'83.57.219.108',1627833445,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 21.06\";}'),(5894,1,6,3,40701,0,'82.55.219.217',1628149937,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: ResEdit is on the Fritz ( again ) today\";}'),(5895,1,1736,3,40701,0,'177.148.43.198',1628159032,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: ResEdit is on the Fritz ( again ) today\";}'),(5896,1,35,3,40707,0,'172.74.196.86',1628202238,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Fix for Resedit\";}'),(5897,1,2,3,40708,0,'83.57.219.108',1628209048,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Fix for Resedit\";}'),(5898,1,2342,6,40709,0,'81.42.192.61',1628259256,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Sincronizar tablas Maridb\";}'),(5899,0,2,0,0,0,'83.57.219.108',1628410813,'LOG_ADMIN_AUTH_SUCCESS',''),(5900,0,2,0,0,0,'83.57.219.108',1628410851,'LOG_PURGE_CACHE',''),(5901,0,2,0,0,0,'83.57.219.108',1628499449,'LOG_ADMIN_AUTH_SUCCESS',''),(5902,3,2,0,0,6,'83.57.219.108',1628501535,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:21:\"Enrico Maria Giordano\";}'),(5903,0,2,0,0,0,'83.57.219.108',1628501535,'LOG_USER_USER_UPDATE','a:1:{i:0;s:21:\"Enrico Maria Giordano\";}'),(5904,0,6,0,0,0,'87.3.229.192',1628502562,'LOG_ADMIN_AUTH_SUCCESS',''),(5905,0,6,0,0,0,'87.3.229.192',1628502973,'LOG_CONFIG_COOKIE',''),(5906,0,6,0,0,0,'87.3.229.192',1628503411,'LOG_CONFIG_COOKIE',''),(5907,0,6,0,0,0,'87.3.229.192',1628503488,'LOG_CONFIG_COOKIE',''),(5908,0,6,0,0,0,'87.3.229.192',1628503535,'LOG_CONFIG_COOKIE',''),(5909,0,6,0,0,0,'87.3.229.192',1628504444,'LOG_CONFIG_SECURITY',''),(5910,0,6,0,0,0,'87.3.229.192',1628504715,'LOG_CONFIG_COOKIE',''),(5911,0,6,0,0,0,'87.3.229.192',1628504972,'LOG_CONFIG_COOKIE',''),(5912,0,6,0,0,0,'87.3.229.192',1628514715,'LOG_ADMIN_AUTH_SUCCESS',''),(5913,1,362,6,40719,0,'179.145.21.104',1628521243,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: O.T. Inno Scrip Studio\";i:1;s:6:\"MarioG\";}'),(5914,0,6,0,0,0,'87.3.229.192',1628523868,'LOG_ADMIN_AUTH_SUCCESS',''),(5915,1,610,3,40721,0,'191.241.136.64',1628554739,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"High Resolution in WebCam\";}'),(5916,1,2598,3,40693,0,'151.19.233.167',1628586289,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: To Nages  lookup function\";}'),(5917,1,177,19,40723,0,'31.4.247.165',1628596585,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Have a nice day Mr. Rao !!!\";}'),(5918,0,6,0,0,0,'87.3.229.192',1628605582,'LOG_ADMIN_AUTH_SUCCESS',''),(5919,0,2,0,0,0,'83.57.219.108',1628606485,'LOG_ADMIN_AUTH_SUCCESS',''),(5920,0,2,0,0,0,'83.57.219.108',1628606659,'LOG_CONFIG_SECURITY',''),(5921,0,6,0,0,0,'87.3.229.192',1628607281,'LOG_CONFIG_SECURITY',''),(5922,0,6,0,0,0,'87.3.229.192',1628607847,'LOG_CONFIG_COOKIE',''),(5923,0,6,0,0,0,'87.3.229.192',1628607913,'LOG_ADMIN_AUTH_SUCCESS',''),(5924,0,6,0,0,0,'87.3.229.192',1628607929,'LOG_CONFIG_COOKIE',''),(5925,0,6,0,0,0,'87.3.229.192',1628608542,'LOG_CONFIG_COOKIE',''),(5926,0,6,0,0,0,'87.3.229.192',1628608574,'LOG_ADMIN_AUTH_SUCCESS',''),(5927,0,6,0,0,0,'87.3.229.192',1628608588,'LOG_CONFIG_COOKIE',''),(5928,0,6,0,0,0,'87.3.229.192',1628615326,'LOG_ADMIN_AUTH_SUCCESS',''),(5929,0,6,0,0,0,'87.3.229.192',1628615343,'LOG_CONFIG_COOKIE',''),(5930,0,6,0,0,0,'87.3.229.192',1628615373,'LOG_ADMIN_AUTH_SUCCESS',''),(5931,0,6,0,0,0,'87.3.229.192',1628615400,'LOG_CONFIG_COOKIE',''),(5932,0,6,0,0,0,'87.3.229.192',1628615428,'LOG_ADMIN_AUTH_SUCCESS',''),(5933,0,6,0,0,0,'87.3.229.192',1628615450,'LOG_CONFIG_COOKIE',''),(5934,0,6,0,0,0,'87.3.229.192',1628615725,'LOG_ADMIN_AUTH_SUCCESS',''),(5935,0,6,0,0,0,'87.3.229.192',1628616105,'LOG_CONFIG_COOKIE',''),(5936,0,6,0,0,0,'87.3.229.192',1628616141,'LOG_ADMIN_AUTH_SUCCESS',''),(5937,0,6,0,0,0,'87.3.229.192',1628616215,'LOG_CONFIG_COOKIE',''),(5938,0,6,0,0,0,'87.3.229.192',1628616283,'LOG_ADMIN_AUTH_SUCCESS',''),(5939,0,6,0,0,0,'87.3.229.192',1628616298,'LOG_CONFIG_COOKIE',''),(5940,0,6,0,0,0,'87.3.229.192',1628616480,'LOG_ADMIN_AUTH_SUCCESS',''),(5941,0,6,0,0,0,'87.3.229.192',1628675979,'LOG_ADMIN_AUTH_SUCCESS',''),(5942,0,6,0,0,0,'87.3.229.192',1628676511,'LOG_CONFIG_SERVER',''),(5943,0,6,0,0,0,'87.3.229.192',1628676531,'LOG_CONFIG_SERVER',''),(5944,0,6,0,0,0,'87.3.229.192',1628677001,'LOG_CONFIG_COOKIE',''),(5945,0,6,0,0,0,'87.3.229.192',1628677028,'LOG_ADMIN_AUTH_SUCCESS',''),(5946,0,6,0,0,0,'87.3.229.192',1628677037,'LOG_CONFIG_COOKIE',''),(5947,0,6,0,0,0,'87.3.229.192',1628703968,'LOG_ADMIN_AUTH_SUCCESS',''),(5948,1,1428,6,40700,0,'195.57.5.110',1628751921,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Creacion de archivos Excel .XLSX  grandes de manera rapida\";}'),(5949,0,6,0,0,0,'87.3.229.192',1628756745,'LOG_ADMIN_AUTH_SUCCESS',''),(5950,0,6,0,0,0,'87.3.229.192',1628761994,'LOG_ADMIN_AUTH_SUCCESS',''),(5951,0,6,0,0,0,'87.3.229.192',1628762012,'LOG_CONFIG_COOKIE',''),(5952,0,6,0,0,0,'87.3.229.192',1628762082,'LOG_ADMIN_AUTH_SUCCESS',''),(5953,0,6,0,0,0,'87.3.229.192',1628762099,'LOG_CONFIG_COOKIE',''),(5954,0,6,0,0,0,'87.3.229.192',1628762167,'LOG_ADMIN_AUTH_SUCCESS',''),(5955,0,6,0,0,0,'87.3.229.192',1628762185,'LOG_CONFIG_COOKIE',''),(5956,1,2598,3,40693,0,'151.43.85.97',1628959822,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: To Nages  lookup function\";}'),(5957,1,2598,3,40693,0,'151.43.85.97',1628959923,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"lookup method of Tdatabase\";}'),(5958,1,2,3,40739,0,'83.52.219.250',1628967059,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Lookup method of Tdatabase\";}'),(5959,1,303,3,40739,0,'68.6.163.93',1629057172,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Lookup method of Tdatabase\";}'),(5960,1,2598,3,40739,0,'151.57.139.16',1629059741,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Lookup method of Tdatabase\";}'),(5961,0,2,0,0,0,'83.52.219.250',1629193607,'LOG_ADMIN_AUTH_SUCCESS',''),(5962,0,2,0,0,0,'83.52.219.250',1629193658,'LOG_ADMIN_AUTH_SUCCESS',''),(5963,1,2721,6,40743,0,'88.12.146.124',1629218833,'LOG_DELETE_POST','a:2:{i:0;s:48:\"Re: Bitmap de opcion de menu queda desabilitado.\";i:1;s:9:\"jvtecheto\";}'),(5964,0,2,0,0,0,'83.52.219.250',1629282274,'LOG_ADMIN_AUTH_SUCCESS',''),(5965,0,6,0,0,0,'95.252.70.5',1629297930,'LOG_ADMIN_AUTH_SUCCESS',''),(5966,0,6,0,0,0,'95.252.70.5',1629300487,'LOG_ADMIN_AUTH_SUCCESS',''),(5967,0,6,0,0,0,'95.252.70.5',1629383173,'LOG_ADMIN_AUTH_SUCCESS',''),(5968,1,868,3,40739,0,'49.205.253.149',1629394056,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Lookup method of Tdatabase\";}'),(5969,1,1057,6,40757,0,'181.67.170.248',1629396577,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Comportamiento bEnd de un Report\";}'),(5970,1,362,6,40771,0,'179.100.70.122',1629742507,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: LO HE LOGRADO! L\'HO RAGGIUNTO!\";}'),(5971,1,362,6,40771,0,'179.100.70.122',1629742524,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: LO HE LOGRADO! L\'HO RAGGIUNTO!\";}'),(5972,1,362,6,40776,0,'191.13.69.168',1629901433,'LOG_POST_EDITED','a:2:{i:0;s:35:\"Re: necesito que me saquen una duda\";i:1;s:11:\"goosfancito\";}'),(5973,1,1533,46,40763,0,'190.171.250.77',1629915460,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Subir una base.dbf a una carpeta en la nube\";}'),(5974,1,2598,3,40780,0,'151.35.54.201',1630017097,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"to Nages   edit one record ( tdatabase)\";}'),(5975,1,2598,3,40775,0,'151.35.100.175',1630277150,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Not show control say on folder with res\";}'),(5976,1,2,3,33515,0,'79.148.53.89',1630507602,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: 1st FWH + [x]Harbour 2017 international conference\";i:1;s:17:\"nageswaragunupudi\";}'),(5977,1,36,46,40800,0,'190.161.135.245',1630607709,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Obtener datos de un browse\";}'),(5978,1,2342,3,40832,0,'84.78.247.95',1631622950,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: Web page filling, changing. how?\";i:1;s:7:\"Horizon\";}'),(5979,1,868,3,40839,0,'49.205.253.149',1631871252,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: 1-to-many loke Foxpro\";}'),(5980,1,861,6,40838,0,'181.230.175.58',1632000969,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: HBSSL CON FUNCIONES DE DIEGO FAZIO INCLUIDAS\";}'),(5981,1,861,6,40838,0,'181.230.175.58',1632000990,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: HBSSL CON FUNCIONES DE DIEGO FAZIO INCLUIDAS\";}'),(5982,1,861,6,40838,0,'181.230.175.58',1632156055,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: HBSSL CON FUNCIONES DE DIEGO FAZIO INCLUIDAS\";}'),(5983,1,2342,17,40854,0,'217.113.244.234',1632220892,'LOG_MOVE','a:2:{i:0;s:41:\"To do - WishList / Por hacer - Peticiones\";i:1;s:22:\"Utilities / Utilidades\";}'),(5984,1,2,3,40014,0,'79.148.53.89',1632302897,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Handle para query - Freeze de pantalla\";}'),(5985,0,2,0,0,0,'79.148.53.89',1632307984,'LOG_ADMIN_AUTH_SUCCESS',''),(5986,0,2,0,0,0,'79.148.53.89',1632308255,'LOG_CONFIG_COOKIE',''),(5987,1,35,17,40856,0,'75.183.146.157',1632420367,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Can you use Windows 11 on your PC ?\";}'),(5988,1,152,6,40853,0,'186.10.243.58',1632512653,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Imprimir en rollo y matriz de punto\";}'),(5989,0,2,0,0,0,'79.148.53.89',1632557533,'LOG_ADMIN_AUTH_SUCCESS',''),(5990,3,2,0,0,4543,'79.148.53.89',1632557585,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"metro2\";}'),(5991,0,2,0,0,0,'79.148.53.89',1632557585,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"metro2\";}'),(5992,0,2,0,0,0,'79.148.53.89',1632557596,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"metro2\";}'),(5993,3,2,0,0,4543,'79.148.53.89',1632557596,'LOG_USER_ACTIVE_USER',''),(5994,1,2598,3,40843,0,'212.81.60.31',1632725424,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"FW_ExcelToDBF\";}'),(5995,1,52,6,40868,0,'181.110.151.249',1632775536,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Error: Unresolved external \'_HB_FUN_SET_MYLANG\' referenced f\";}'),(5996,1,52,3,32657,0,'181.110.151.249',1632777943,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: FWH 16.08 : Built-in MySql/MariaDB functionality (Updated )\";}'),(5997,1,2342,17,40854,0,'94.73.47.152',1632918843,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: WebView2 for Harbour/Fivewin and VSC 2019\";}'),(5998,1,868,6,40576,0,'49.205.253.149',1632932393,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: xbrowse - formato de columna numérica\";}'),(5999,1,4426,6,40875,0,'186.139.16.110',1632933135,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Error al compilar en versión vieja\";}'),(6000,3,3976,0,0,3976,'212.106.236.70',1633015234,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"VictorCasajuana\";}'),(6001,1,868,3,33722,0,'49.205.253.149',1633050732,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: How to read a unicode TXT file\";}'),(6002,1,362,6,40878,0,'191.13.69.43',1633111465,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: antes con TDolphin hacia refresh\";}'),(6003,3,319,0,0,319,'177.33.142.16',1633480139,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"ronaldo\";}'),(6004,0,2,0,0,0,'79.148.53.89',1633531771,'LOG_ADMIN_AUTH_SUCCESS',''),(6005,3,2,0,0,2530,'79.148.53.89',1633532032,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lailton\";}'),(6006,0,2,0,0,0,'79.148.53.89',1633532032,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"Lailton\";}'),(6007,3,2530,0,0,2530,'189.110.209.72',1633532510,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Lailton\";i:1;s:22:\"lailton@harbour.com.br\";i:2;s:21:\"lailton@harbour.ninja\";}'),(6008,0,2,0,0,0,'79.148.53.89',1633532709,'LOG_ADMIN_AUTH_SUCCESS',''),(6009,0,2,0,0,0,'79.148.53.89',1633532730,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"Lailton\";}'),(6010,3,2,0,0,2530,'79.148.53.89',1633532730,'LOG_USER_ACTIVE_USER',''),(6011,1,362,6,40887,0,'179.145.21.98',1633550977,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: De xHarbour a Harbour\";}'),(6012,1,362,6,40908,0,'191.13.69.24',1633706438,'LOG_POST_EDITED','a:2:{i:0;s:60:\"Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH\";i:1;s:11:\"goosfancito\";}'),(6013,1,110,6,40908,0,'161.0.60.84',1633729029,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH\";}'),(6014,1,3176,6,40910,0,'201.243.170.20',1633741840,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Cerrar Ejecutable externo\";}'),(6015,3,35,0,0,35,'75.183.146.157',1634074236,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Rick Lipkin\";}'),(6016,1,362,3,40907,0,'179.145.22.166',1634124838,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: unrecoverable error 9015 hb_vmdo()\";}'),(6017,1,2342,3,40907,0,'94.73.40.235',1634210853,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: unrecoverable error 9015 hb_vmdo()\";i:1;s:5:\"Edman\";}'),(6018,1,2342,3,40907,0,'94.73.40.235',1634211109,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: unrecoverable error 9015 hb_vmdo()\";i:1;s:5:\"Edman\";}'),(6019,1,582,6,40913,0,'181.238.42.164',1634389852,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Campos empaquetados en archivo de texto\";}'),(6020,1,2598,3,39440,0,'212.81.60.31',1634549020,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: error on download\";}'),(6021,1,1060,3,40915,0,'94.29.124.107',1634550762,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Gluing images\";}'),(6022,1,2598,3,40942,0,'151.57.91.26',1634647319,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: editing yunus invoice\";}'),(6023,1,1313,3,40921,0,'177.156.196.12',1634737274,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Draw Text Bitmap\";}'),(6024,3,12,0,0,12,'179.53.2.216',1635388958,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"pablovidal\";}'),(6025,3,127,0,0,127,'193.153.189.236',1635420896,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:12:\"Julio Cepeda\";i:1;s:19:\"jjcepeda@arrakis.es\";i:2;s:21:\"julio@cepedaserinf.es\";}'),(6026,1,2598,3,40985,0,'212.81.60.31',1635494383,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"To Nages: problem with combobox oSortCbx\";}'),(6027,1,439,3,40996,0,'201.217.133.98',1635529774,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"AYUDA PARA ENTENDER COMBOBOX\";}'),(6028,1,2598,3,40998,0,'212.81.60.31',1635579881,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"headers of xbrowse\";}'),(6029,1,362,6,40989,0,'191.13.69.164',1635639477,'LOG_POST_EDITED','a:2:{i:0;s:35:\"Re: DBZAP() no funciona en HARBOUR?\";i:1;s:17:\"nageswaragunupudi\";}'),(6030,1,362,6,40989,0,'191.13.69.164',1635639511,'LOG_POST_EDITED','a:2:{i:0;s:35:\"Re: DBZAP() no funciona en HARBOUR?\";i:1;s:17:\"nageswaragunupudi\";}'),(6031,0,6,0,0,0,'82.49.131.87',1635673940,'LOG_ADMIN_AUTH_SUCCESS',''),(6032,1,2721,6,40986,0,'79.154.166.196',1635705355,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: TIMprime como hago salto de hoja?\";}'),(6033,1,439,6,40997,0,'201.217.133.98',1635771723,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Ayuda con Combobox RESUELTO\";}'),(6034,1,362,6,41007,0,'179.145.22.243',1635860267,'LOG_POST_EDITED','a:2:{i:0;s:48:\"Re: MARIADB no me respeta el filtro con xbrowser\";i:1;s:11:\"goosfancito\";}'),(6035,1,362,6,40962,0,'179.145.22.41',1635935005,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: ¿Cómo hago una búsqueda incremental en xBrowse?\";i:1;s:9:\"Ramón J.\";}'),(6036,1,2598,3,41017,0,'151.37.236.164',1635971389,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"oPrn:Box()   typeBorder\";}'),(6037,1,2598,3,41014,0,'151.37.236.164',1635971417,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Return a value of a field\";}'),(6038,1,362,6,40962,0,'179.100.26.25',1636039031,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: ¿Cómo hago una búsqueda incremental en xBrowse?\";i:1;s:6:\"jbrita\";}'),(6039,1,2598,3,41025,0,'212.81.60.31',1636115684,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"Problem with color on xbrowse\";}'),(6040,1,2598,3,41026,0,'212.81.60.31',1636117422,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"insert a string from array  on xbrowse\";}'),(6041,1,362,6,41028,0,'179.145.21.180',1636209846,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: quiero definir fuentes que esten disponible en toda la app\";}'),(6042,1,52,6,41030,0,'181.95.53.172',1636233082,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Tipo de fuente para el xbrowse?\";}'),(6043,1,362,3,41037,0,'179.145.21.127',1636458512,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Background color of the GET\";}'),(6044,1,1060,3,41063,0,'85.141.210.26',1636828980,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Lock the mouse\";}'),(6045,1,362,3,41064,0,'179.145.21.206',1636840758,'LOG_POST_EDITED','a:2:{i:0;s:18:\"Re: Lock the mouse\";i:1;s:6:\"Natter\";}'),(6046,1,4543,3,40870,0,'188.252.196.6',1636957945,'LOG_BUMP_TOPIC','a:1:{i:0;s:48:\"ActiveX  -  CREATEOBJECT  and  singleton pattern\";}'),(6047,1,362,6,41065,0,'179.145.21.251',1636980243,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: ¿Es posible cambiar el color del título de la ventana?\";}'),(6048,3,53,0,0,53,'187.190.238.163',1637018198,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Armando\";}'),(6049,3,233,0,0,233,'60.52.25.158',1637029684,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"hua\";}'),(6050,1,233,3,41013,0,'60.52.25.158',1637047929,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"Request idea to auto resize/reposition xBrowse\";}'),(6051,1,233,3,41016,0,'60.52.25.158',1637047936,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"xBrowse: How resize when dialog resized and make all columns\";}'),(6052,1,868,3,37922,0,'49.205.253.149',1637055735,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: Dark mode\";}'),(6053,1,3176,6,41083,0,'200.8.144.79',1637196523,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Incrustar DLL dentro de EXE\";}'),(6054,1,1880,3,37931,0,'186.137.26.141',1637263261,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: FWH Graphs\";}'),(6055,1,3176,6,41087,0,'200.8.144.79',1637329629,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Consulta FW64\";}'),(6056,1,362,3,41093,0,'179.145.22.242',1637586725,'LOG_POST_EDITED','a:2:{i:0;s:14:\"Re: emal valid\";i:1;s:14:\"Silvio.Falconi\";}'),(6057,1,362,3,41093,0,'179.145.22.242',1637586758,'LOG_POST_EDITED','a:2:{i:0;s:14:\"Re: emal valid\";i:1;s:14:\"Silvio.Falconi\";}'),(6058,1,2598,3,41103,0,'212.81.60.31',1637659685,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Problem with a Combo\";}'),(6059,1,362,3,41100,0,'179.100.26.244',1637675018,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Re: Button click action\";i:1;s:4:\"Otto\";}'),(6060,1,1060,3,41112,0,'94.29.124.107',1637848926,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: HB_PING() under Harbour\";}'),(6061,1,2598,3,41106,0,'212.81.60.31',1638004500,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: To Nages : Conversion txt into xbrowse bad\";}'),(6062,1,2076,6,41115,0,'45.74.238.210',1638323998,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: .HBP para harbour y Visual Studio\";}'),(6063,1,2076,6,41107,0,'45.74.238.210',1638383576,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: Ejemplo FUNCIONAL *hola mundo* FW + HARBOUR + BCC7.4\";}'),(6064,1,362,3,41150,0,'179.145.22.233',1638457526,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Can Colorized this border ?\";}'),(6065,1,362,3,41150,0,'179.145.22.233',1638471788,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Can Colorized this border ?\";}'),(6066,1,2,19,41160,0,'79.148.53.89',1638557969,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Towards QHarbour ?\";}'),(6067,0,6,0,0,0,'87.3.37.113',1638690690,'LOG_ADMIN_AUTH_SUCCESS',''),(6068,0,6,0,0,0,'87.3.37.113',1638690797,'LOG_CONFIG_COOKIE',''),(6069,0,6,0,0,0,'87.3.37.113',1638690982,'LOG_ADMIN_AUTH_SUCCESS',''),(6070,0,6,0,0,0,'87.3.37.113',1638690995,'LOG_CONFIG_COOKIE',''),(6071,0,6,0,0,0,'87.3.37.113',1638691019,'LOG_ADMIN_AUTH_SUCCESS',''),(6072,0,6,0,0,0,'87.3.37.113',1638691031,'LOG_CONFIG_COOKIE',''),(6073,0,6,0,0,0,'87.3.37.113',1638691063,'LOG_ADMIN_AUTH_SUCCESS',''),(6074,0,6,0,0,0,'87.3.37.113',1638691077,'LOG_CONFIG_COOKIE',''),(6075,0,2,0,0,0,'79.148.53.89',1638725488,'LOG_ADMIN_AUTH_SUCCESS',''),(6076,3,2,0,0,1873,'79.148.53.89',1638725846,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"jll-fwh\";}'),(6077,0,2,0,0,0,'79.148.53.89',1638725846,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"jll-fwh\";}'),(6078,0,2,0,0,0,'79.148.53.89',1638726425,'LOG_ADMIN_AUTH_SUCCESS',''),(6079,3,2,0,0,1873,'79.148.53.89',1638726473,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"jll-fwh\";}'),(6080,0,2,0,0,0,'79.148.53.89',1638726473,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"jll-fwh\";}'),(6081,1,2,3,41161,0,'79.148.53.89',1638728588,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Face Detect for FWH64\";i:1;s:11:\"CharlesKwon\";}'),(6082,1,2,3,41161,0,'79.148.53.89',1638728948,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Re: Face Detect for FWH64\";i:1;s:11:\"CharlesKwon\";}'),(6083,1,449,3,41169,0,'5.224.5.114',1638946016,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: nRandom Numbers no duplicates\";}'),(6084,1,362,3,41171,0,'179.145.21.42',1639082045,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Name of the user\";i:1;s:8:\"ADutheil\";}'),(6085,1,3593,3,41175,0,'87.67.232.254',1639147612,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Focus error on this new project\";}'),(6086,1,2,6,41181,0,'79.148.53.89',1639289437,'LOG_POST_EDITED','a:2:{i:0;s:34:\"como acumulo los valores de array?\";i:1;s:11:\"goosfancito\";}'),(6087,3,56,0,0,56,'31.150.208.100',1639745359,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Timm Sodtalbers\";}'),(6088,1,2598,3,41163,0,'151.57.223.88',1639913158,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Problem with tdatabase\";}'),(6089,3,1874,0,0,1874,'91.204.124.71',1639984333,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"pcordonet\";}'),(6090,3,1874,0,0,1874,'91.204.124.71',1639984333,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:9:\"pcordonet\";i:1;s:29:\"pcordonet@central.aplitec.com\";i:2;s:32:\"pcordonet@aplitecinformatica.com\";}'),(6091,1,439,6,41217,0,'201.217.133.98',1640085168,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"FWMariaDB y XBrowse - Consulta Query - Mr. Rao\";}'),(6092,1,439,6,41215,0,'201.217.133.98',1640085200,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"FWMariaDB y XBrowse - Consulta Query - Mr. Rao\";}'),(6093,1,47,3,41228,0,'171.100.20.28',1640276789,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Resolution of monitor\";}'),(6094,1,1535,6,40705,0,'185.252.59.54',1640606919,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: España: Normativa sancionadora sistemas informáticos\";}'),(6095,0,2,0,0,0,'79.150.145.70',1640795235,'LOG_ADMIN_AUTH_SUCCESS',''),(6096,0,2,0,0,0,'79.150.145.70',1640796396,'LOG_ADMIN_AUTH_SUCCESS',''),(6097,0,2,0,0,0,'79.150.145.70',1640796477,'LOG_CONFIG_SECURITY',''),(6098,0,2,0,0,0,'79.150.145.70',1640796587,'LOG_ADMIN_AUTH_SUCCESS',''),(6099,0,2,0,0,0,'79.150.145.70',1640796617,'LOG_CONFIG_SECURITY',''),(6100,0,2,0,0,0,'79.150.145.70',1640796858,'LOG_ADMIN_AUTH_SUCCESS',''),(6101,0,2,0,0,0,'79.150.145.70',1640797677,'LOG_ADMIN_AUTH_SUCCESS',''),(6102,0,2,0,0,0,'79.150.145.70',1640797754,'LOG_CONFIG_SECURITY',''),(6103,0,2,0,0,0,'79.150.145.70',1640797943,'LOG_ADMIN_AUTH_SUCCESS',''),(6104,0,2,0,0,0,'79.150.145.70',1640797968,'LOG_CONFIG_COOKIE',''),(6105,0,6,0,0,0,'79.49.6.196',1640807713,'LOG_ADMIN_AUTH_SUCCESS',''),(6106,1,2598,3,41251,0,'151.19.216.236',1641035918,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: error not found DBFTOARRAY  resolved !!!\";}'),(6107,1,2598,3,41251,0,'151.19.216.236',1641035928,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"error not found DBFTOARRAY\";}'),(6108,1,362,6,41249,0,'179.145.22.89',1641049617,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"FONTs en TGRAPH (Disculpen la duplicidad)\";}'),(6109,3,1853,0,0,1853,'172.58.204.119',1641092413,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Bayron\";}'),(6110,1,2,17,41255,0,'79.150.145.70',1641109081,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"test image from whatsapp\";}'),(6111,1,2,17,41256,0,'79.150.145.70',1641109146,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Image from whatsapp\";}'),(6112,3,543,0,0,543,'83.46.219.57',1641126864,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"fernandomoralesdr\";}'),(6113,1,2598,3,41252,0,'151.57.85.132',1641160317,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"oBrw:aDeleted\";}'),(6114,1,2076,6,41264,0,'45.74.238.210',1641235707,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Posible error cargando ARRAY con MySQL Eagle1\";}'),(6115,0,2,0,0,0,'79.150.145.70',1641313882,'LOG_ADMIN_AUTH_SUCCESS',''),(6116,3,2,0,0,167,'79.150.145.70',1641313949,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"don lowenstein\";}'),(6117,0,2,0,0,0,'79.150.145.70',1641313949,'LOG_USER_USER_UPDATE','a:1:{i:0;s:14:\"don lowenstein\";}'),(6118,1,2598,3,41272,0,'151.43.79.100',1641343467,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"search on database\";}'),(6119,1,1428,6,41268,0,'195.57.5.110',1641377418,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Libro sobre módulos de Apache\";}'),(6120,1,2598,3,41223,0,'212.81.60.31',1641541585,'LOG_DELETE_TOPIC','a:1:{i:0;s:8:\"TO NAGES\";}'),(6121,0,2,0,0,0,'79.150.145.70',1641556307,'LOG_ADMIN_AUTH_SUCCESS',''),(6122,1,2,3,41277,0,'79.150.145.70',1641564742,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: ID of the current session\";}'),(6123,1,47,3,41281,0,'171.100.20.28',1641577177,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"How to use oCon:SelectDb()?\";}'),(6124,0,2,0,0,0,'79.150.145.70',1641631853,'LOG_ADMIN_AUTH_SUCCESS',''),(6125,0,2,0,0,0,'79.150.145.70',1641631953,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:6:\"cmsoft\";}'),(6126,0,2,0,0,0,'79.150.145.70',1641631960,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:17:\"Global moderators\";i:1;s:6:\"cmsoft\";}'),(6127,3,86,0,0,86,'84.193.19.190',1641651128,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"driessen\";}'),(6128,1,233,3,41286,0,'60.50.162.91',1641808916,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"PrnGetName(), PrinterSetup()\";}'),(6129,1,228,6,41283,0,'201.221.172.58',1641813024,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Alguien que acceda a Postgres\";}'),(6130,0,2,0,0,0,'79.150.145.70',1641813301,'LOG_ADMIN_AUTH_SUCCESS',''),(6131,0,2,0,0,0,'79.150.145.70',1641813326,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:7:\"leandro\";}'),(6132,0,2,0,0,0,'79.150.145.70',1641813333,'LOG_GROUP_DEFAULTS','a:2:{i:0;s:17:\"Global moderators\";i:1;s:7:\"leandro\";}'),(6133,0,2,0,0,0,'79.150.145.70',1641813338,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"leandro\";}'),(6134,1,2598,3,41288,0,'212.81.60.31',1641893976,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"ArrTranspose problem on a combobox\";}'),(6135,1,1060,3,41295,0,'198.16.70.52',1641987921,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Showwindow and RDP\";}'),(6136,0,2,0,0,0,'79.150.145.70',1641992687,'LOG_ADMIN_AUTH_SUCCESS',''),(6137,0,2,0,0,0,'79.150.145.70',1641992709,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:9:\"hmpaquito\";}'),(6138,0,2,0,0,0,'79.150.145.70',1641992716,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"hmpaquito\";}'),(6139,1,2598,3,41306,0,'212.81.60.31',1642152695,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Warnings on a class\";}'),(6140,0,2,0,0,0,'79.150.145.70',1642167899,'LOG_ADMIN_AUTH_SUCCESS',''),(6141,0,2,0,0,0,'79.150.145.70',1642167943,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"hmpaquito\";}'),(6142,0,2,0,0,0,'79.150.145.70',1642491086,'LOG_ADMIN_AUTH_SUCCESS',''),(6143,1,362,6,41335,0,'179.145.22.215',1642945942,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"ayuda sale letrero extraño con FW_SaveImage()\";}'),(6144,1,2076,6,41342,0,'45.74.238.210',1643126810,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Erro de compilacion VC2022\";}'),(6145,0,2,0,0,0,'79.150.144.145',1643151837,'LOG_ADMIN_AUTH_SUCCESS',''),(6146,0,2,0,0,0,'79.150.144.145',1643151866,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"leandro\";}'),(6147,1,1060,3,41345,0,'198.16.74.205',1643279495,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Type the window\";}'),(6148,3,1264,0,0,1264,'190.237.151.75',1643319527,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"mchumpitazv\";}'),(6149,1,362,3,41359,0,'179.145.21.200',1643806376,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: Google Map\";}'),(6150,1,868,3,41360,0,'49.205.253.149',1644148867,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Problem with SQL Native\";}'),(6151,1,2598,3,41380,0,'212.81.60.31',1644237282,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"show one cr on xbrowse\";}'),(6152,1,1060,3,41353,0,'50.7.142.180',1644238049,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Insert device context\";}'),(6153,1,868,3,41360,0,'49.205.253.149',1644242708,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Problem with SQL Native\";}'),(6154,0,6,0,0,0,'79.53.239.103',1644273166,'LOG_ADMIN_AUTH_SUCCESS',''),(6155,0,2,0,0,0,'79.150.144.145',1644348286,'LOG_ADMIN_AUTH_SUCCESS',''),(6156,3,2,0,0,1726,'79.150.144.145',1644348336,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"Dioni\";}'),(6157,0,2,0,0,0,'79.150.144.145',1644348336,'LOG_USER_USER_UPDATE','a:1:{i:0;s:5:\"Dioni\";}'),(6158,1,868,3,41368,0,'49.205.253.149',1644381135,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Leer Excel grande a un array o DBF\";}'),(6159,0,2,0,0,0,'79.150.144.145',1644566590,'LOG_ADMIN_AUTH_SUCCESS',''),(6160,0,2,0,0,0,'79.150.144.145',1644591368,'LOG_ADMIN_AUTH_SUCCESS',''),(6161,3,2,0,0,4597,'79.150.144.145',1644591458,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"Detlef\";i:1;s:15:\"hamelau@mail.de\";i:2;s:15:\"testx@gmail.com\";}'),(6162,0,2,0,0,0,'79.150.144.145',1644591458,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"Detlef\";}'),(6163,3,2,0,0,4597,'79.150.144.145',1644591546,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:6:\"Detlef\";i:1;s:15:\"testx@gmail.com\";i:2;s:15:\"hamelau@mail.de\";}'),(6164,3,2,0,0,4597,'79.150.144.145',1644591546,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Detlef\";}'),(6165,0,2,0,0,0,'79.150.144.145',1644591546,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"Detlef\";}'),(6166,0,2,0,0,0,'79.150.144.145',1644595601,'LOG_ADMIN_AUTH_SUCCESS',''),(6167,0,2,0,0,0,'79.150.144.145',1644595624,'LOG_USER_ACTIVE','a:1:{i:0;s:6:\"Detlef\";}'),(6168,3,2,0,0,4597,'79.150.144.145',1644595624,'LOG_USER_ACTIVE_USER',''),(6169,3,4597,0,0,4597,'87.183.35.8',1644598603,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Detlef\";}'),(6170,1,294,3,41143,0,'191.80.99.170',1645043759,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Using WebView with Borland !!!\";}'),(6171,3,543,0,0,543,'83.37.54.167',1645096053,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:17:\"fernandomoralesdr\";}'),(6172,1,2,3,41411,0,'83.60.228.107',1645105775,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Error in database.prg?\";i:1;s:17:\"nageswaragunupudi\";}'),(6173,1,2,3,41411,0,'83.60.228.107',1645105822,'LOG_POST_EDITED','a:2:{i:0;s:56:\"Ca you use a field named End with Class TDataBase ? yes!\";i:1;s:8:\"wartiaga\";}'),(6174,1,2,3,41411,0,'83.60.228.107',1645106271,'LOG_POST_EDITED','a:2:{i:0;s:57:\"Can you use a field named End with Class TDataBase ? yes!\";i:1;s:8:\"wartiaga\";}'),(6175,1,294,6,41416,0,'200.32.49.173',1645107116,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: TOOLTIP en título de columna Xbrowse\";}'),(6176,3,1313,0,0,1313,'186.212.70.223',1645463942,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"MGA\";}'),(6177,1,2,45,40037,0,'95.127.175.8',1645464722,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"xbhosts.com\";}'),(6178,3,936,0,0,936,'190.148.209.210',1645534879,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"csincuir\";}'),(6179,3,1195,0,0,1195,'200.71.191.57',1645535796,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(6180,1,2076,6,41442,0,'45.74.238.210',1645626127,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"xbrowse command not working properly -- MR. RAO\";}'),(6181,1,2076,3,41443,0,'45.74.238.210',1645638428,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: xbrowse command not working properly -- MR. RAO\";}'),(6182,1,2598,3,41447,0,'212.81.60.31',1645691824,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Buttonbar with a get a Combox\";}'),(6183,1,2598,3,41452,0,'212.81.60.31',1645705757,'LOG_DELETE_TOPIC','a:1:{i:0;s:9:\"FLOAT BAR\";}'),(6184,1,2598,3,41465,0,'212.81.60.31',1646123004,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Xbrowse Show bad\";}'),(6185,1,2598,3,41467,0,'151.47.202.123',1646387282,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"group an array\";}'),(6186,1,1535,6,41476,0,'185.252.59.124',1646400754,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Email automatico con Thunderbird\";}'),(6187,1,2598,3,41493,0,'151.57.81.39',1646933240,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: search highest digit in the array\";}'),(6188,1,6,3,41466,0,'87.6.225.237',1646938059,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: Conversion from ca-clipper ( not found a variable)\";i:1;s:7:\"karinha\";}'),(6189,1,6,3,41466,0,'87.6.225.237',1646938151,'LOG_POST_EDITED','a:2:{i:0;s:54:\"Re: Conversion from ca-clipper ( not found a variable)\";i:1;s:7:\"karinha\";}'),(6190,3,1195,0,0,1195,'186.14.162.231',1647045092,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(6191,1,2342,6,40871,0,'217.113.244.136',1647176305,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Conectar SFTP con CURL\";i:1;s:11:\"pepe_garcia\";}'),(6192,1,2342,6,40871,0,'217.113.244.136',1647205539,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Conectar SFTP con CURL\";}'),(6193,1,1535,6,40871,0,'185.252.59.124',1647262485,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Conectar SFTP con CURL\";}'),(6194,1,868,6,41494,0,'183.82.232.106',1647401811,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Clase Nativa MySql\";}'),(6195,1,2598,3,41524,0,'151.35.126.240',1647516801,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Dialod with splitter and panels\";}'),(6196,0,2,0,0,0,'88.29.47.28',1647582528,'LOG_ADMIN_AUTH_SUCCESS',''),(6197,3,2,0,0,900,'88.29.47.28',1647582594,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:8:\"mariordz\";}'),(6198,0,2,0,0,0,'88.29.47.28',1647582594,'LOG_USER_USER_UPDATE','a:1:{i:0;s:8:\"mariordz\";}'),(6199,1,177,17,41530,0,'212.73.35.26',1647593955,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"x64dbg - An open-source x64/x32 debugger for windows\";}'),(6200,1,3687,6,33795,0,'200.110.188.147',1647603600,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: leer archivo\";}'),(6201,1,2598,3,41535,0,'151.43.19.245',1647681519,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Old Locate into Tdatabase\";}'),(6202,1,294,6,41541,0,'191.80.66.73',1647701380,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Una envio con Post\";}'),(6203,1,987,6,41512,0,'187.171.142.230',1647751608,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Como cargar cursor desde archivo ( RESUELTO )\";}'),(6204,1,348,6,41540,0,'181.65.25.196',1647764878,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Una envio con Post\";}'),(6205,3,2530,0,0,2530,'187.112.163.137',1647872548,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Lailton\";i:1;s:21:\"lailton@harbour.ninja\";i:2;s:22:\"lailton@paysoft.com.br\";}'),(6206,1,2598,3,41551,0,'151.19.42.152',1648030537,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"ButtonBmp with popmenu\";}'),(6207,1,350,6,41538,0,'94.73.40.70',1648199302,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: Dos grupos de radiobuttons en el mismo dialogo\";}'),(6208,3,1500,0,0,1500,'62.99.68.45',1648216370,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"landaga\";}'),(6209,1,2598,3,41561,0,'151.35.118.244',1648332768,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: add a number on Random\";}'),(6210,1,2598,3,41564,0,'151.43.48.60',1648393724,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"For Next with Tgroup\";}'),(6211,1,2598,3,41565,0,'151.43.48.60',1648395048,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Table of prices\";}'),(6212,1,2598,3,41554,0,'151.57.222.232',1648399382,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: 3 state btnbmp\";}'),(6213,1,2598,3,41569,0,'151.57.228.226',1648503313,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Calculation with an array\";}'),(6214,1,439,6,41576,0,'201.217.133.98',1648560047,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"Treport de Tabla SQL con FWH nativo ( parte 3 )\";}'),(6215,1,868,3,41590,0,'183.82.232.106',1648796403,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: New Version of FiveWin 20.02\";}'),(6216,1,2598,3,41591,0,'212.81.60.31',1648804625,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"extraction of one number at a time\";}'),(6217,1,439,6,41593,0,'201.217.133.98',1648821740,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Almacenar en un campo fecha mysql un campo fecha MSSqlServer\";}'),(6218,1,868,3,41600,0,'183.82.232.106',1648906641,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: how add image in POST\";}'),(6219,1,868,3,41583,0,'183.82.232.106',1649073545,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Xbrowse Error\";}'),(6220,1,2,3,41605,0,'81.38.208.10',1649102931,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:22:\"Utilities / Utilidades\";}'),(6221,1,2,3,41605,0,'81.38.208.10',1649106312,'LOG_MOVE','a:2:{i:0;s:22:\"Utilities / Utilidades\";i:1;s:28:\"FiveWin for Harbour/xHarbour\";}'),(6222,1,2,3,41597,0,'81.38.208.10',1649184397,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: New Fivewin with new PDF\";}'),(6223,1,2598,3,41609,0,'151.19.15.33',1649242348,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Search from get Memo\";}'),(6224,1,1535,6,32229,0,'185.252.59.128',1649411812,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: APORTE - Refundición de libros excel: clase TExcelPaste\";}'),(6225,1,110,3,41647,0,'186.77.198.74',1649869453,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Fwteam - Xbrowse too slow\";}'),(6226,1,2598,3,41657,0,'151.47.65.151',1650015605,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Problem to converte from excel\";}'),(6227,1,1060,3,41661,0,'85.140.249.52',1650125466,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"emulator Wine\";}'),(6228,1,2598,3,41673,0,'151.57.243.82',1650399788,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"found equal values (xbrowse)\";}'),(6229,1,3834,6,41659,0,'190.163.16.183',1650413157,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Ayuda para Instalar Microsoft Visual Studio\";}'),(6230,1,2342,19,41486,0,'66.81.165.153',1650557917,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Daniel Lopez Sanchez ha fallecido\";}'),(6231,1,2342,19,41486,0,'66.81.165.153',1650557927,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Daniel Lopez Sanchez ha fallecido\";}'),(6232,1,2342,19,41486,0,'66.81.165.153',1650557934,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Daniel Lopez Sanchez ha fallecido\";}'),(6233,1,2342,19,41486,0,'66.81.165.153',1650557943,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Daniel Lopez Sanchez ha fallecido\";}'),(6234,1,362,6,41680,0,'179.145.22.43',1650654385,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Ayuda para Compilar Microsoft Visual Studio\";}'),(6235,1,3834,6,41681,0,'190.163.16.183',1650667719,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Ayuda con DTPICKER\";}'),(6236,1,3834,6,41681,0,'190.163.16.183',1650667946,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Ayuda con DTPICKER\";}'),(6237,1,110,6,41680,0,'190.143.246.17',1650741193,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Ayuda para Compilar Microsoft Visual Studio\";}'),(6238,1,2598,3,41699,0,'151.43.51.167',1651008930,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Xbrowse style lines\";}'),(6239,1,2598,3,41697,0,'151.43.51.167',1651008978,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: xbrowse with array\";}'),(6240,1,868,3,41690,0,'183.82.232.106',1651161819,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Copy / Paste Behaviour\";}'),(6241,1,2598,3,41706,0,'212.81.60.31',1651223829,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: How write a right name of a  field\";}'),(6242,1,2598,3,41706,0,'212.81.60.31',1651225038,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: How write a right name of a  field\";}'),(6243,1,110,6,41711,0,'186.77.198.74',1651257382,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"problema con checkbox en folderex\";}'),(6244,1,2,45,41696,0,'81.38.208.10',1651392914,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: A big hit: Neither Apache and mod_harbour are needed\";}'),(6245,1,41,6,41718,0,'177.222.98.5',1651450421,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Antiguo programa, error al correr\";}'),(6246,1,294,6,41702,0,'191.80.106.126',1651623794,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: SetSize no funciona\";}'),(6247,1,3834,6,41740,0,'190.163.16.183',1651802114,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Ayuda 2 Xbrowse en Dialogo\";}'),(6248,1,2598,3,41743,0,'212.81.60.31',1651831491,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"strange error on msgitem\";}'),(6249,3,1313,0,0,1313,'177.96.142.236',1651870145,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"MGA\";}'),(6250,1,2598,3,41765,0,'151.47.47.6',1652197217,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"radio with change\";}'),(6251,1,2,6,41767,0,'81.38.208.10',1652398388,'LOG_POST_EDITED','a:2:{i:0;s:5:\"ASort\";i:1;s:11:\"goosfancito\";}'),(6252,1,2,6,41767,0,'81.38.208.10',1652398410,'LOG_POST_EDITED','a:2:{i:0;s:9:\"Re: ASort\";i:1;s:11:\"goosfancito\";}'),(6253,1,1247,45,41517,0,'80.122.88.242',1652701073,'LOG_DELETE_POST','a:1:{i:0;s:65:\"Re: W3Schools webpage template &quot;COMPANY&quot; to mod harbour\";}'),(6254,1,2,3,41777,0,'81.38.208.10',1652734411,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Wine under Mac with FWH app\";}'),(6255,1,2598,3,41787,0,'212.81.60.31',1652789025,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: analytical scoreboard\";}'),(6256,1,2598,3,41789,0,'151.37.24.129',1652817110,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"found the same number on an array\";}'),(6257,3,2530,0,0,2530,'177.42.1.187',1652997987,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Lailton\";i:1;s:22:\"lailton@paysoft.com.br\";i:2;s:19:\"lailton@paysoft.dev\";}'),(6258,1,4218,6,41801,0,'201.212.190.243',1653078529,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Sumar un mes a una fecha\";}'),(6259,1,2598,3,41813,0,'151.47.217.227',1653381803,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"why this commands are bad ?\";}'),(6260,1,2598,3,41795,0,'151.47.217.227',1653382044,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"count numbers on a column\";}'),(6261,1,2,3,41809,0,'81.38.208.10',1653411796,'LOG_LOCK','a:1:{i:0;s:21:\"JSON with HTTPS: post\";}'),(6262,1,2,3,41809,0,'81.38.208.10',1653412048,'LOG_UNLOCK','a:1:{i:0;s:21:\"JSON with HTTPS: post\";}'),(6263,1,2,3,41809,0,'81.38.208.10',1653412141,'LOG_LOCK','a:1:{i:0;s:21:\"JSON with HTTPS: post\";}'),(6264,1,2,3,41809,0,'81.38.208.10',1653412491,'LOG_UNLOCK','a:1:{i:0;s:21:\"JSON with HTTPS: post\";}'),(6265,1,2598,3,41823,0,'151.43.117.208',1653474003,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"dbftoarray from  -&lt; to\";}'),(6266,1,2598,3,41815,0,'151.43.117.208',1653474520,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"asort an array - founding a number\";}'),(6267,1,2,3,41821,0,'81.38.208.10',1653482575,'LOG_POST_EDITED','a:2:{i:0;s:6:\"Re: IE\";i:1;s:6:\"Natter\";}'),(6268,1,439,6,41819,0,'201.217.133.98',1653487789,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Cual sería la forma mejor y más segura de optimizar tablas\";}'),(6269,1,2598,3,41824,0,'151.43.204.175',1653492641,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: found 90 numbers\";}'),(6270,3,54,0,0,54,'187.187.194.232',1653536170,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"wmormar\";}'),(6271,1,2598,3,41832,0,'151.57.245.38',1653651510,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Ribbonbar Check update\";}'),(6272,1,2598,3,41832,0,'151.57.245.38',1653651519,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Ribbonbar Check update\";}'),(6273,1,2598,3,41833,0,'151.37.109.62',1653682190,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"asort multi array\";}'),(6274,1,2,6,41837,0,'193.152.124.170',1653751772,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: Por que no tenemos un IDE en FWH ?\";i:1;s:7:\"Compuin\";}'),(6275,1,2,6,41837,0,'193.152.124.170',1653762107,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: Por que no tenemos un IDE en FWH ?\";i:1;s:7:\"Compuin\";}'),(6276,1,2,6,41837,0,'81.38.210.72',1653891000,'LOG_POST_EDITED','a:2:{i:0;s:38:\"Re: Por que no tenemos un IDE en FWH ?\";i:1;s:7:\"Compuin\";}'),(6277,1,1060,3,41830,0,'198.16.66.195',1653912666,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: xHarbour to Harbour\";}'),(6278,1,1060,3,41830,0,'198.16.66.195',1653975054,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: xHarbour to Harbour\";}'),(6279,1,2143,6,41498,0,'200.8.14.138',1654181934,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: GMail no funciona\";}'),(6280,1,2721,6,41845,0,'79.151.64.58',1654189403,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: Para no estar preguntando a cada rato sobre MARIADB\";}'),(6281,1,2598,3,41859,0,'151.47.55.237',1654251416,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Xbrowse Del Column\";}'),(6282,1,1880,3,41861,0,'181.94.37.49',1654260143,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Barcodes y QR Codes\";}'),(6283,1,1880,6,41860,0,'181.94.37.49',1654260176,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Códigos de Barra y QR\";}'),(6284,1,449,6,41864,0,'148.3.48.85',1654495383,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: asignar DATA a Var local\";}'),(6285,1,2598,3,41865,0,'151.37.182.157',1654510231,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"problem with  GEt\";}'),(6286,1,2598,3,41863,0,'151.37.182.157',1654513393,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Problem to array\";}'),(6287,1,2598,3,41863,0,'151.37.182.157',1654513404,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Problem to array\";}'),(6288,1,2598,3,41867,0,'151.47.68.140',1654593674,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"Load data from INI\";}'),(6289,1,4168,6,41872,0,'189.240.35.178',1654617377,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Maestro Manuel Mercado\";}'),(6290,1,1060,3,41873,0,'94.29.124.107',1654687593,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Desktop font\";}'),(6291,1,439,6,41882,0,'201.217.133.98',1654781761,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Dificultad con mysql\";}'),(6292,1,2598,3,41895,0,'151.57.111.108',1655454093,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: problem of conversion array and Print a Coupon\";}'),(6293,1,2598,3,41895,0,'151.57.111.108',1655454104,'LOG_DELETE_TOPIC','a:1:{i:0;s:46:\"problem of conversion array and Print a Coupon\";}'),(6294,1,644,6,41914,0,'201.235.112.136',1656077767,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: xBrowser y xHarbour\";}'),(6295,1,2598,3,41917,0,'151.47.127.121',1656409994,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: prices breakdown\";}'),(6296,3,35,0,0,35,'75.183.146.157',1657051118,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"Rick Lipkin\";}'),(6297,1,2,3,41928,0,'81.38.211.26',1657280942,'LOG_POST_EDITED','a:2:{i:0;s:29:\"2206 - 64 bit errors (solved)\";i:1;s:8:\"TimStone\";}'),(6298,1,2,3,41945,0,'81.38.211.26',1657290142,'LOG_POST_EDITED','a:2:{i:0;s:58:\"Re: If you send me an email and you don\'t get my answer...\";i:1;s:8:\"driessen\";}'),(6299,0,2,0,0,0,'81.38.211.26',1657290632,'LOG_ADMIN_AUTH_SUCCESS',''),(6300,3,2,0,0,963,'81.38.211.26',1657290700,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"Leon DeBurgh\";}'),(6301,0,2,0,0,0,'81.38.211.26',1657290700,'LOG_USER_USER_UPDATE','a:1:{i:0;s:12:\"Leon DeBurgh\";}'),(6302,1,3834,6,41939,0,'190.163.16.183',1657565803,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Consulta sobre uso de FW_BarCodeBmp\";}'),(6303,1,2,6,41987,0,'95.127.185.97',1658516740,'LOG_POST_EDITED','a:2:{i:0;s:19:\"Re: Campos Memo FPT\";i:1;s:6:\"remtec\";}'),(6304,1,2,6,41992,0,'81.38.208.202',1658571177,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Mensaje para Hmpaquito\";}'),(6305,1,4224,3,42024,0,'91.11.163.194',1659396989,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: TGet with rounded corners in Windows 11\";}'),(6306,0,2,0,0,0,'81.38.208.202',1659623196,'LOG_ADMIN_AUTH_SUCCESS',''),(6307,3,2,0,0,4038,'81.38.208.202',1659623246,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:4:\"nlfo\";}'),(6308,0,2,0,0,0,'81.38.208.202',1659623246,'LOG_USER_USER_UPDATE','a:1:{i:0;s:4:\"nlfo\";}'),(6309,1,6,3,42024,0,'87.21.225.185',1659625741,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: TGet with rounded corners in Windows 11\";}'),(6310,1,2,6,42057,0,'81.38.208.202',1660299420,'LOG_POST_EDITED','a:2:{i:0;s:48:\"En que LIBs encuentro las funciones que faltan ?\";i:1;s:9:\"PAUL SIMM\";}'),(6311,0,2,0,0,0,'81.38.208.202',1660403969,'LOG_ADMIN_AUTH_SUCCESS',''),(6312,0,2,0,0,0,'81.38.208.202',1660403997,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"shrifw\";}'),(6313,0,2,0,0,0,'81.38.208.202',1660404003,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"shrifw\";}'),(6314,1,2,3,42061,0,'81.38.208.202',1660631158,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: RANDOM FileName ?\";i:1;s:4:\"Otto\";}'),(6315,1,3834,6,42089,0,'190.163.16.183',1661046840,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Oculta Get al Ingresar al Dialog\";}'),(6316,1,1535,6,42098,0,'185.252.59.88',1661533959,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: Consulta Tecnica.\";i:1;s:6:\"remtec\";}'),(6317,1,2,45,41696,0,'81.38.208.202',1661578643,'LOG_POST_EDITED','a:2:{i:0;s:56:\"Re: A big hit: Neither Apache and mod_harbour are needed\";i:1;s:8:\"FiveWiDi\";}'),(6318,1,3834,6,42119,0,'190.163.16.183',1661622859,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Ayuda Urgente en Valid\";}'),(6319,1,3947,6,42139,0,'85.137.182.11',1662111758,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: ERROR Class: \'NUMERIC\' has no exported method: CCHEX_VERSION\";}'),(6320,1,2,3,42126,0,'83.60.157.31',1662132178,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Re: FWH WebApp (HTML) testing\";i:1;s:3:\"Ari\";}'),(6321,1,2,3,42126,0,'83.60.157.31',1662132219,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Re: FWH WebApp (HTML) testing\";i:1;s:3:\"Ari\";}'),(6322,1,2,3,42126,0,'83.60.157.31',1662132271,'LOG_POST_EDITED','a:2:{i:0;s:29:\"Re: FWH WebApp (HTML) testing\";i:1;s:3:\"Ari\";}'),(6323,1,2076,6,42146,0,'45.74.238.210',1662203947,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: LEER DATOS DE UN LECTOR DE TARJETAS DE CREDITOS Y DEBITOS\";}'),(6324,1,2,42,42151,0,'83.60.157.31',1662412354,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Amazing AI game tutorial\";}'),(6325,1,868,3,42177,0,'183.82.232.106',1663007186,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: little bug in rpreview.prg\";}'),(6326,1,868,6,42150,0,'183.82.232.106',1663470917,'LOG_DELETE_POST','a:1:{i:0;s:15:\"Re: Tabla Pivot\";}'),(6327,1,2598,3,42207,0,'151.47.247.79',1663496286,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: convert from a txt text file to a dbf with errors - RESOLVED\";}'),(6328,1,3834,6,42217,0,'190.163.16.183',1663712806,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Consulta tecnica sobre Reporte.\";}'),(6329,1,2324,6,40705,0,'139.47.32.121',1663836922,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: España: Normativa sancionadora sistemas informáticos\";}'),(6330,1,362,6,40473,0,'179.145.21.174',1664116193,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: ¿ No funciona cToolTip con :Disable() ?\";}'),(6331,1,868,3,42218,0,'183.82.232.106',1664128188,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Browse edit of cell with brush\";}'),(6332,3,1195,0,0,1195,'186.14.162.231',1664835779,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"albeiroval\";}'),(6333,1,2598,3,42280,0,'151.47.69.221',1665224493,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Array get and colors\";}'),(6334,1,2598,3,42284,0,'151.47.69.221',1665226961,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"convert a color\";}'),(6335,1,2598,3,42290,0,'212.81.60.31',1665473436,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"color Hex to Decimal\";}'),(6336,1,3176,6,42296,0,'186.88.123.102',1665622875,'LOG_DELETE_TOPIC','a:1:{i:0;s:43:\"¿ Un Dialogo puede funcionar como ventana?\";}'),(6337,1,868,3,42291,0,'183.82.232.106',1665691474,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Search for a number on xbrowse and highlight it\";}'),(6338,1,362,3,42304,0,'191.13.70.99',1665862931,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: oPopUp in class btnbmp\";i:1;s:14:\"Silvio.Falconi\";}'),(6339,1,2598,3,42260,0,'212.81.60.31',1665995737,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"color on xbrowse cell\";}'),(6340,1,2598,3,42298,0,'212.81.60.31',1665995964,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"activare lines on Xbrowse (hide or show)\";}'),(6341,1,2598,3,42315,0,'212.81.60.31',1666008214,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: show a btnbmp pressed\";}'),(6342,1,362,3,42263,0,'191.13.69.72',1666011689,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: BtnBmp.. I not understood this error\";}'),(6343,1,362,3,42263,0,'191.13.69.72',1666011755,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: BtnBmp.. I not understood this error\";i:1;s:14:\"Silvio.Falconi\";}'),(6344,1,362,3,42263,0,'191.13.69.72',1666011794,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: BtnBmp.. I not understood this error\";i:1;s:14:\"Silvio.Falconi\";}'),(6345,1,2342,6,42318,0,'66.81.163.118',1666120791,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Re: Parpadeo de  Menu  COLOR  , Ayuda\";i:1;s:10:\"devwin2010\";}'),(6346,1,2598,3,42263,0,'212.81.60.31',1666163463,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: BtnBmp.. I not understood this error\";}'),(6347,1,2598,3,42263,0,'212.81.60.31',1666163472,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: BtnBmp.. I not understood this error\";}'),(6348,1,2598,3,42263,0,'212.81.60.31',1666163483,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: BtnBmp.. I not understood this error\";}'),(6349,1,4224,3,42325,0,'91.11.163.194',1666238094,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: ENTER for TGrid From TControl\";}'),(6350,1,2598,3,41880,0,'212.81.60.31',1666259093,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: edit a cell of a xbrowse\";}'),(6351,1,2598,3,42333,0,'212.81.60.31',1666264952,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Save on a txt array of xbrowse\";}'),(6352,1,2,6,42336,0,'2.155.18.229',1666371360,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Abm con TDataBase ( Resuelto )\";}'),(6353,1,3900,3,42340,0,'24.11.115.114',1666374297,'LOG_DELETE_TOPIC','a:1:{i:0;s:42:\"fivewin Clipper 16 bis to harbour fwh 2206\";}'),(6354,1,2,3,42326,0,'176.87.1.37',1666416684,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: HMG 64 Bit Constante -&gt; FiveWin ?\";i:1;s:17:\"nageswaragunupudi\";}'),(6355,1,2,3,42326,0,'176.87.1.37',1666416703,'LOG_POST_EDITED','a:2:{i:0;s:40:\"Re: HMG 64 Bit Constante -&gt; FiveWin ?\";i:1;s:5:\"Jimmy\";}'),(6356,1,2,3,42349,0,'37.222.59.153',1666626058,'LOG_POST_EDITED','a:2:{i:0;s:9:\"FWH 21.06\";i:1;s:10:\"byron.hopp\";}'),(6357,1,2,3,42349,0,'37.222.59.153',1666626077,'LOG_POST_EDITED','a:2:{i:0;s:13:\"Re: FWH 21.06\";i:1;s:7:\"karinha\";}'),(6358,1,362,3,42352,0,'191.13.70.116',1666626114,'LOG_POST_EDITED','a:2:{i:0;s:37:\"intercept repeated values in an array\";i:1;s:14:\"Silvio.Falconi\";}'),(6359,1,1535,6,42338,0,'185.252.59.112',1666697019,'LOG_DELETE_POST','a:1:{i:0;s:65:\"Re: TGet bLostFocus yWHEN no entiendo bien la lógica[SOLUCIONADO\";}'),(6360,0,2,0,0,0,'176.80.49.44',1666782573,'LOG_ADMIN_AUTH_SUCCESS',''),(6361,0,2,0,0,0,'176.80.49.44',1666782606,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"Bes-soft\";}'),(6362,0,2,0,0,0,'176.80.49.44',1666782612,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"Bes-soft\";}'),(6363,0,6,0,0,0,'87.19.54.231',1667342463,'LOG_ADMIN_AUTH_SUCCESS',''),(6364,0,6,0,0,0,'87.19.54.231',1667342683,'LOG_ADMIN_AUTH_SUCCESS',''),(6365,1,2598,3,42314,0,'151.57.111.80',1667424837,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Show LINESTYLE  of Xbrowse on line\";}'),(6366,1,1880,6,42402,0,'186.137.104.175',1667486322,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Cabecera Lista de Precios\";}'),(6367,1,2,3,42389,0,'46.8.172.37',1667490897,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: MENUITEM RESOURCE transparency ?\";i:1;s:8:\"cnavarro\";}'),(6368,1,362,3,42408,0,'191.13.70.194',1667579663,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Update checkboxes\";i:1;s:14:\"Silvio.Falconi\";}'),(6369,1,2598,3,42406,0,'151.19.57.100',1667582238,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: xbrowse gradient cell colors\";}'),(6370,1,2598,3,42421,0,'151.35.39.165',1667756423,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Dialog AS MDICHILD   with xbrowse\";}'),(6371,1,2598,3,42370,0,'151.35.39.165',1667756468,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"searching repeated numbers\";}'),(6372,1,2598,3,42424,0,'151.47.41.49',1667764608,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"Error on xbrowse drawing vertical lines\";}'),(6373,1,3176,6,42423,0,'190.36.150.242',1667783703,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Consulta para Cesar CMSOFT\";}'),(6374,1,233,3,42425,0,'118.101.196.23',1667809515,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: special Codeblock Syntax under Fivewin\";}'),(6375,1,2598,3,42426,0,'212.81.60.31',1667815183,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"creating an array of number\";}'),(6376,1,868,3,42389,0,'183.82.232.106',1667871905,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: MENUITEM RESOURCE transparency ?\";}'),(6377,1,868,3,42389,0,'183.82.232.106',1667872220,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: MENUITEM RESOURCE transparency ?\";}'),(6378,1,868,3,42389,0,'183.82.232.106',1667872243,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: MENUITEM RESOURCE transparency ?\";}'),(6379,1,4224,3,42419,0,'91.11.163.194',1667974086,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Fivewin OOP Question\";}'),(6380,1,4224,3,42419,0,'91.11.163.194',1667974107,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Fivewin OOP Question\";}'),(6381,3,1178,0,0,1178,'186.81.60.202',1668009613,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"ruben Dario\";}'),(6382,1,2342,3,42445,0,'66.81.163.118',1668026550,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: Notifications\";}'),(6383,1,6,17,42444,0,'87.19.54.231',1668117772,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: prsht.h changes for Borland 64 bits\";}'),(6384,1,2598,3,42455,0,'212.81.60.31',1668160340,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"How to set up a child window inside a main window\";}'),(6385,1,34,3,42476,0,'98.163.35.2',1668489701,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"BROWSER display format problem\";}'),(6386,1,1892,3,42490,0,'168.0.217.184',1668695631,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Txbrowse Column Sort Indicator\";}'),(6387,1,2598,3,42493,0,'212.81.60.31',1668761621,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Xbrowse cursor  windows 10 effect\";}'),(6388,1,2598,3,42495,0,'212.81.60.31',1668770640,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"xbrowser picture problem\";}'),(6389,1,868,3,42460,0,'183.82.232.106',1668782134,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: xbrowse report &amp; Preview style\";}'),(6390,1,868,3,42460,0,'183.82.232.106',1668791790,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: xbrowse report &amp; Preview style\";}'),(6391,1,2,19,42501,0,'46.8.172.36',1669019213,'LOG_MOVE','a:2:{i:0;s:28:\"FiveWin for Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(6392,0,2,0,0,0,'46.8.172.36',1669036238,'LOG_ADMIN_AUTH_SUCCESS',''),(6393,0,2,0,0,0,'46.8.172.36',1669036263,'LOG_USERS_ADDED','a:2:{i:0;s:17:\"Global moderators\";i:1;s:5:\"Jimmy\";}'),(6394,0,2,0,0,0,'46.8.172.36',1669036280,'LOG_GROUP_REMOVE','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"Jimmy\";}'),(6395,0,2,0,0,0,'46.8.172.36',1669208169,'LOG_ADMIN_AUTH_SUCCESS',''),(6396,0,2,0,0,0,'46.8.172.36',1669208191,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:5:\"Jimmy\";}'),(6397,1,4224,3,42524,0,'91.11.163.194',1669524315,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Newbie Question : XBROWSE\";}'),(6398,1,1535,6,42511,0,'185.252.59.191',1669795053,'LOG_DELETE_POST','a:1:{i:0;s:60:\"Re: error al personalizar hoja de excel despues de toexcel()\";}'),(6399,1,2598,3,42553,0,'212.81.60.31',1669978397,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"HELP FOR GDIPLUS\";}'),(6400,1,303,3,42100,0,'68.6.163.93',1670314034,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Very strange problem - ideas needed\";}'),(6401,0,2,0,0,0,'46.8.172.36',1670337128,'LOG_ADMIN_AUTH_SUCCESS',''),(6402,1,3176,6,42564,0,'201.243.183.250',1670425680,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Combinaciones de letras\";}'),(6403,1,6,6,42564,0,'79.18.220.128',1670440674,'LOG_REPORT_DELETED','a:1:{i:0;s:23:\"Combinaciones de letras\";}'),(6404,1,228,6,42577,0,'181.51.48.149',1670596735,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Compilar webview.prg con xharbour\";}'),(6405,0,2,0,0,0,'46.8.172.61',1670830012,'LOG_ADMIN_AUTH_SUCCESS',''),(6406,0,2,0,0,0,'46.8.172.61',1670830043,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"wanderson8\";}'),(6407,0,2,0,0,0,'46.8.172.61',1670830048,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"wanderson8\";}'),(6408,1,2,3,42607,0,'46.8.172.44',1671208874,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Amending preprocessor directive for TFolderEx\";}'),(6409,1,1892,3,42625,0,'168.0.217.184',1671707345,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"lSeekWild   XBROWSE()  I NEED TO KNOW WHEN NOT TO LOCATE\";}'),(6410,1,2342,6,42638,0,'66.81.162.146',1672166182,'LOG_DELETE_POST','a:1:{i:0;s:62:\"Re: Que cambios de hacer para pasar de RichEdit a la RICHEDIT5\";}'),(6411,0,2,0,0,0,'46.8.172.44',1672220832,'LOG_ADMIN_AUTH_SUCCESS',''),(6412,0,2,0,0,0,'46.8.172.44',1672221056,'LOG_CONFIG_SECURITY',''),(6413,1,2598,3,42646,0,'151.57.171.10',1672616368,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"Problem with No also records on year 2023\";}'),(6414,1,2598,3,42653,0,'212.81.60.31',1672741548,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"folder win 10/11\";}'),(6415,0,2,0,0,0,'46.8.172.44',1673244240,'LOG_ADMIN_AUTH_SUCCESS',''),(6416,0,2,0,0,0,'46.8.172.44',1673244261,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"jerrywph\";}'),(6417,0,2,0,0,0,'46.8.172.44',1673244267,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"jerrywph\";}'),(6418,0,2,0,0,0,'46.8.172.44',1673253392,'LOG_ADMIN_AUTH_SUCCESS',''),(6419,0,2,0,0,0,'46.8.172.44',1673253411,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:12:\"Rizwan Ahmed\";}'),(6420,1,2,0,0,0,'46.8.172.44',1673253411,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:12:\"Rizwan Ahmed\";}'),(6421,1,2,19,42667,0,'46.8.172.44',1673253444,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Umrah Hajj Packages\";}'),(6422,1,2598,3,42654,0,'212.81.60.31',1673262888,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"xbrowse as Lotus\";}'),(6423,1,6,6,42679,0,'95.247.232.200',1673511291,'LOG_REPORT_DELETED','a:1:{i:0;s:20:\"Re: Consulta Urgente\";}'),(6424,1,2721,6,42684,0,'79.150.108.47',1673705371,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"include para funciones Hash\";}'),(6425,0,2,0,0,0,'46.8.172.44',1674543924,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:16:\"smithmarysmith12\";}'),(6426,1,2,0,0,0,'46.8.172.44',1674543924,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:16:\"smithmarysmith12\";}'),(6427,1,2,20,42710,0,'46.8.172.44',1674543938,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Get Instant Technical Help For Quickbooks Issue At 267773433\";}'),(6428,1,78,3,42716,0,'201.240.205.158',1675083514,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Change Footer colors (xBrowse)\";}'),(6429,1,92,6,42729,0,'188.79.163.133',1675283490,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Que control usar para gestionar 3 valores numéricos?\";}'),(6430,1,4224,3,42733,0,'91.11.170.138',1675479149,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: SUB-CLASS TFolderEx()\";}'),(6431,1,2598,3,42736,0,'212.81.60.31',1675672829,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: store up to 8 images in a memo or character field\";}'),(6432,1,2598,3,41163,0,'212.81.60.31',1675673283,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Problem with tdatabase\";}'),(6433,3,23,0,0,23,'46.24.93.254',1675678513,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"AngelSalom\";}'),(6434,1,78,6,42759,0,'201.240.205.158',1675870028,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: se nos fue Ignacio Vizcaino Tapia\";}'),(6435,1,2598,3,42766,0,'212.81.60.31',1676018001,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"disable a dialog command\";}'),(6436,1,4224,3,42773,0,'91.11.170.138',1676074345,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"64 Bit Warning\";}'),(6437,1,1060,3,42777,0,'85.140.248.113',1676188313,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Imagelist : Icon and Bitmap from Resource\";}'),(6438,1,2598,3,42762,0,'151.35.64.180',1676310152,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"a button under Xbrowse in a dialog with buttonbar\";}'),(6439,1,2,42,42790,0,'46.8.172.57',1676362121,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:14:\"latest AI news\";}'),(6440,1,4224,3,42800,0,'91.11.170.138',1676630747,'LOG_DELETE_POST','a:1:{i:0;s:54:\"Re: a Main wnd  with two ScrollPanel +buttonbar+msgbar\";}'),(6441,1,1060,3,42818,0,'94.29.126.107',1676982013,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"DC and WebView\";}'),(6442,1,3593,3,42693,0,'91.179.37.210',1677056046,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: HASH vs single variables\";}'),(6443,1,2598,3,42819,0,'212.81.60.31',1677139062,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Resize Scrpanel\";}'),(6444,3,1114,0,0,1114,'170.51.110.33',1677433992,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"devwin2010\";}'),(6445,1,2598,3,33656,0,'212.81.60.31',1677499052,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: dialog with the same size\";}'),(6446,1,2598,3,42851,0,'212.81.60.31',1677587518,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: sort up/down xbrowse error function sort\";}'),(6447,1,2598,3,42883,0,'212.81.60.31',1678456276,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Know the name of the file ximage\";}'),(6448,1,2598,3,42895,0,'151.57.5.237',1678808700,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: still the ordkeycount error\";}'),(6449,1,2598,3,42915,0,'212.81.60.31',1679301665,'LOG_DELETE_TOPIC','a:1:{i:0;s:26:\"Xbrowse Columns to printer\";}'),(6450,1,2076,3,42923,0,'200.8.48.207',1679361016,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Error compilacion TXBrowse con hbmk2 y vc2022\";}'),(6451,1,2598,3,42931,0,'151.57.238.252',1679433545,'LOG_DELETE_TOPIC','a:1:{i:0;s:10:\"choosefont\";}'),(6452,1,1689,3,42944,0,'77.46.215.47',1679655361,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"mdichild window\";}'),(6453,1,1060,3,42946,0,'94.29.126.107',1679662069,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Set option R1C1 in excel\";}'),(6454,3,2530,0,0,2530,'177.96.30.6',1679706122,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"Lailton\";i:1;s:19:\"lailton@paysoft.dev\";i:2;s:22:\"lailton@paysoft.com.br\";}'),(6455,0,2,0,0,0,'46.8.172.57',1679750431,'LOG_ADMIN_AUTH_SUCCESS',''),(6456,0,2,0,0,0,'46.8.172.57',1679750454,'LOG_USER_ACTIVE','a:1:{i:0;s:7:\"Lailton\";}'),(6457,3,2,0,0,2530,'46.8.172.57',1679750454,'LOG_USER_ACTIVE_USER',''),(6458,1,868,3,42925,0,'183.82.232.106',1679913526,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Help with complex JSON\";}'),(6459,1,4118,6,42981,0,'88.22.79.32',1680504406,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: MyBarMdi [5]\";}'),(6460,1,2598,3,41048,0,'151.43.135.237',1680999515,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Box question\";}'),(6461,3,3334,0,0,3334,'88.0.244.99',1681061409,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"morin0510\";}'),(6462,1,868,3,43034,0,'183.82.232.106',1681394170,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Can I get object from handle?\";}'),(6463,1,362,6,43040,0,'179.100.70.29',1681496810,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Funciones de FWH\";}'),(6464,1,2076,6,43063,0,'45.74.238.210',1681832737,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"Erro con browse en ventanas y TDolphin\";}'),(6465,1,1060,3,43088,0,'85.140.251.21',1682232731,'LOG_DELETE_TOPIC','a:1:{i:0;s:12:\"Window frame\";}'),(6466,1,2,3,43092,0,'46.8.172.53',1682261938,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: autoGPT for OpenAI\";i:1;s:5:\"Jimmy\";}'),(6467,1,86,3,43082,0,'84.193.19.190',1682461420,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Opening 2 Word-documents from my application - solved\";}'),(6468,1,913,3,43101,0,'187.189.33.142',1682481083,'LOG_DELETE_TOPIC','a:1:{i:0;s:40:\"Hola Antonio ya no funciona el host SQL?\";}'),(6469,1,2,6,43102,0,'46.8.172.53',1682485188,'LOG_POST_EDITED','a:2:{i:0;s:52:\"Hola Antonio ya no funciona el host SQL? solucionado\";i:1;s:4:\"AIDA\";}'),(6470,1,2,3,43074,0,'46.8.172.53',1682580123,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Harbour using phind.com AI undocumented API\";}'),(6471,0,2,0,0,0,'46.8.172.51',1682669776,'LOG_ADMIN_AUTH_SUCCESS',''),(6472,0,2,0,0,0,'46.8.172.51',1682669809,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:7:\"wsiscom\";}'),(6473,0,2,0,0,0,'46.8.172.51',1682669816,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:7:\"wsiscom\";}'),(6474,1,2,3,43114,0,'46.8.172.51',1682751465,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Speech Recognizer for harbour App ?\";}'),(6475,1,2598,3,43111,0,'151.57.99.56',1682775766,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: :SetMultiSelectCol()  Problems\";}'),(6476,1,2598,3,43111,0,'151.57.99.56',1682775777,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: :SetMultiSelectCol()  Problems\";}'),(6477,1,2598,3,43111,0,'151.57.99.56',1682775786,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\":SetMultiSelectCol()  Problems\";}'),(6478,1,2598,3,43127,0,'151.47.118.139',1683015767,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Indexes from xbrowse\";}'),(6479,1,3593,16,43129,0,'109.131.60.216',1683100983,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: New FTDN April/Abril 2023 (FWH 23.04)\";}'),(6480,1,362,3,43142,0,'179.100.70.111',1683120026,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: also the error  end on tbtnbmp\";}'),(6481,1,868,3,43138,0,'183.82.232.106',1683135588,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: identify Type of DBF\";}'),(6482,1,6,6,43146,0,'82.53.162.126',1683274729,'LOG_REPORT_DELETED','a:1:{i:0;s:12:\"Re: cFileExt\";}'),(6483,1,2598,3,43155,0,'212.81.60.31',1683276482,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"index a xbrowse\";}'),(6484,1,2,3,43150,0,'46.8.172.51',1683286505,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: simulate unknown Function of UDF in IndexKey()\";}'),(6485,1,2,7,43163,0,'46.8.172.51',1683363379,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"The four-day affected brought calm 15\";}'),(6486,0,2,0,0,0,'46.8.172.51',1683363401,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:9:\"haoxiuyun\";}'),(6487,1,2,0,0,0,'46.8.172.51',1683363401,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:9:\"haoxiuyun\";}'),(6488,1,2,33,43162,0,'46.8.172.51',1683363415,'LOG_DELETE_TOPIC','a:1:{i:0;s:49:\"Diablo four Accommodation Division Canyon Affairs\";}'),(6489,1,2,3,43161,0,'46.8.172.51',1683363429,'LOG_DELETE_TOPIC','a:1:{i:0;s:52:\"So, we’re simply smartening up some small textures\";}'),(6490,0,2,0,0,0,'46.8.172.51',1683379089,'LOG_ADMIN_AUTH_SUCCESS',''),(6491,0,2,0,0,0,'46.8.172.51',1683379104,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:17:\"Chiripitiflautico\";}'),(6492,0,2,0,0,0,'46.8.172.51',1683379108,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:17:\"Chiripitiflautico\";}'),(6493,1,1193,3,32745,0,'101.10.93.244',1683529740,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Bugs in TButtonBmp\";}'),(6494,1,868,3,43166,0,'183.82.232.106',1683543941,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Festivities of the year\";}'),(6495,1,3593,3,43165,0,'109.131.60.216',1683622775,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Effect Pjama on Treport ( from Xbrowse)\";}'),(6496,1,2598,3,43177,0,'212.81.60.31',1683877206,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: UNIX to date\";}'),(6497,1,2598,3,43174,0,'212.81.60.31',1683877703,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: chat open Ai  questions ( currency rates )\";}'),(6498,1,868,3,43183,0,'183.82.232.106',1683939774,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: change the ndatalines (xbrowse)  on lines\";}'),(6499,1,1257,3,43181,0,'93.131.10.145',1683982662,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: BUTTONBAR BORDER\";}'),(6500,1,868,3,43190,0,'183.82.232.106',1684124815,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: HOW REPORT PREVIEW CAN BE CUSTOMIZED ?\";}'),(6501,1,868,3,43190,0,'183.82.232.106',1684124891,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: HOW REPORT PREVIEW CAN BE CUSTOMIZED ?\";}'),(6502,1,2598,3,43210,0,'212.81.60.31',1684491915,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: two scroll Panels on a dialog\";}'),(6503,1,2598,3,43210,0,'212.81.60.31',1684491927,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"two scroll Panels on a dialog\";}'),(6504,1,1060,3,43214,0,'94.29.126.107',1684501927,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Default browser\";}'),(6505,1,362,3,43219,0,'179.100.70.129',1684680597,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: hb_out.. exe crashed...\";}'),(6506,1,228,6,43223,0,'181.59.2.160',1684784101,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Recortar foto tomada con la camara web\";}'),(6507,1,2598,3,43221,0,'151.35.152.6',1684785137,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: calendar not run ( DBLCLICK)\";}'),(6508,1,2,19,43225,0,'46.8.172.51',1684815812,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(6509,1,180,6,43249,0,'79.145.76.178',1685175678,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"Ver errores de compilación/enlazado\";}'),(6510,1,868,3,43254,0,'183.82.232.106',1685326458,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Associate PDF file with browser\";}'),(6511,1,868,3,43254,0,'183.82.232.106',1685326539,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Associate PDF file with browser\";}'),(6512,1,868,3,43196,0,'183.82.232.106',1685484317,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Problem with xBrowse\";}'),(6513,1,868,3,43273,0,'183.82.232.106',1685725450,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: MariaDb delete\";}'),(6514,1,868,6,43280,0,'183.82.232.106',1685784444,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: SAY dentro de BUTTOMBAR??\";}'),(6515,1,2598,3,43287,0,'109.239.240.96',1686047934,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Bed and Breakfast\";}'),(6516,1,3593,3,43298,0,'109.131.60.216',1686318361,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Color a Groupbox Frame\";}'),(6517,1,362,3,43298,0,'179.100.26.45',1686342344,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Color a Groupbox Frame\";}'),(6518,1,868,3,43327,0,'183.82.232.106',1686796652,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: how to handle License for MySQL, PostgreSQL &amp; Co ?\";}'),(6519,1,439,6,43331,0,'201.217.133.98',1686845196,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"FWHMariaDB  de Mr. Rao - problema con una tabla\";}'),(6520,1,868,3,43352,0,'183.82.232.106',1687453888,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: FW_SetUnicode( .T. ) 2-Byte characters\";}'),(6521,1,1428,6,43354,0,'195.57.5.110',1687500037,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: recordSet vs Hash\";}'),(6522,1,2598,3,43360,0,'109.239.240.96',1687518465,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: change nheight of xbrowse on line\";}'),(6523,1,2598,3,43360,0,'109.239.240.96',1687518477,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"change nheight of xbrowse on line\";}'),(6524,0,2,0,0,0,'46.8.172.52',1687681634,'LOG_ADMIN_AUTH_SUCCESS',''),(6525,0,2,0,0,0,'46.8.172.52',1687681739,'LOG_USER_ACTIVE','a:1:{i:0;s:5:\"rodmc\";}'),(6526,3,2,0,0,4596,'46.8.172.52',1687681739,'LOG_USER_ACTIVE_USER',''),(6527,3,4596,0,0,4596,'181.115.60.79',1687729984,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:5:\"rodmc\";}'),(6528,1,677,6,43382,0,'181.67.43.73',1687795436,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"hb_gcCollect()  hb_gcCollectAll() equivalencia para xHarbour\";}'),(6529,1,51,3,43302,0,'80.122.88.242',1688055389,'LOG_DELETE_POST','a:1:{i:0;s:64:\"Re: Promtp-Editor:  Unleash ChatGPT\'s Power: The Ultimate Prompt\";}'),(6530,1,2,3,43403,0,'46.8.172.55',1688223566,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: FiveWin on Apple/Mac works great\";i:1;s:13:\"plantenkennis\";}'),(6531,1,2,3,43403,0,'46.8.172.55',1688223579,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: FiveWin on Apple/Mac works great\";i:1;s:13:\"plantenkennis\";}'),(6532,1,2,3,43403,0,'46.8.172.55',1688223612,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: FiveWin on Apple/Mac works great\";i:1;s:13:\"plantenkennis\";}'),(6533,1,1880,6,43416,0,'186.137.83.117',1688554929,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Consulta sobre xbrowse\";}'),(6534,1,2,6,43411,0,'46.8.172.55',1688557898,'LOG_POST_EDITED','a:2:{i:0;s:49:\"Saber si webview esta listo para funcionar en PC?\";i:1;s:7:\"leandro\";}'),(6535,1,1892,3,43419,0,'168.0.217.134',1688741989,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Mark field as required\";}'),(6536,1,4746,6,43423,0,'186.158.228.112',1688771425,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Lentitud al abrir una dbf en red\";}'),(6537,1,1406,3,43420,0,'85.105.58.6',1688813788,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: how to open devtoolswindow from application.\";}'),(6538,1,2721,6,43423,0,'79.151.190.98',1688839098,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Lentitud al abrir una dbf en red\";}'),(6539,1,78,6,43437,0,'181.67.30.4',1689037625,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Imprimir fechaq\";}'),(6540,1,2818,6,43440,0,'191.97.43.235',1689114744,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Webservice - Error de Seguridad\";}'),(6541,1,362,6,43449,0,'191.13.70.200',1689260298,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Preguntontas - Editado.\";i:1;s:7:\"El Loco\";}'),(6542,1,362,6,43449,0,'191.13.70.200',1689260406,'LOG_POST_EDITED','a:2:{i:0;s:23:\"Preguntontas - Editado.\";i:1;s:7:\"El Loco\";}'),(6543,1,582,6,43426,0,'170.51.109.101',1689270153,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Desaparecen controles en Folder - SOLUCIONADO\";}'),(6544,1,868,3,43337,0,'183.82.232.106',1689313703,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: build Import LIB from LibPQ.DLL\";}'),(6545,1,868,3,43456,0,'117.195.201.200',1689431414,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: For Rao, xbrowse\";}'),(6546,1,582,6,43426,0,'170.51.109.101',1689697977,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Desaparecen controles en Folder - Ayuda por favor\";}'),(6547,1,2,6,43474,0,'46.8.172.50',1689773285,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Conectar a un SFTP con CURL usando xHarbour ...\";}'),(6548,1,2,6,43474,0,'46.8.172.50',1689786160,'LOG_DELETE_POST','a:1:{i:0;s:51:\"Re: Conectar a un SFTP con CURL usando xHarbour ...\";}'),(6549,1,2818,3,43443,0,'191.97.42.233',1689806413,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Webservice de .NET a Fivewin\";}'),(6550,1,2,32,36909,0,'46.8.172.50',1689848605,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Building Harbour gtxwc (libgtxwc.a)\";}'),(6551,1,110,6,43493,0,'190.143.246.137',1690261259,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: mysql o mariadb explico porque necesito esto..\";}'),(6552,1,156,3,43518,0,'181.175.253.174',1690468842,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Acceder a dbf mediante ado\";}'),(6553,1,3687,3,43518,0,'170.231.36.10',1690556439,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Acceder a dbf mediante ado\";}'),(6554,1,86,3,43534,0,'84.193.19.190',1690809277,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Another Question about FWH and Word\";}'),(6555,1,1789,16,43537,0,'124.66.171.188',1690825197,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Looking TDATAROW Examples MariaDB\";}'),(6556,1,52,6,39944,0,'93.34.149.30',1691401718,'LOG_DELETE_TOPIC','a:1:{i:0;s:48:\"Quiero aportar codigo que quizas ya este... Tree\";}'),(6557,1,2,4,43568,0,'46.8.172.50',1691438329,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"IELTS Certificates GTEC, IELCA, IELCA, ITEP, TELCMSRT, TSE,\";}'),(6558,0,2,0,0,0,'46.8.172.50',1691438340,'LOG_ADMIN_AUTH_SUCCESS',''),(6559,0,2,0,0,0,'46.8.172.50',1691438360,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:6:\"cosmos\";}'),(6560,1,2,0,0,0,'46.8.172.50',1691438360,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:6:\"cosmos\";}'),(6561,1,2,1,43564,0,'46.8.172.50',1691438396,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"IELTS CERTIFICATES in the United Arab Emirates and Saudi Ara\";}'),(6562,1,2,3,43565,0,'46.8.172.50',1691438419,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"BUY YOUR IDENTIFICATION CARDS. PASSPORT, DRIVER\'S LICENSE, V\";}'),(6563,1,2,16,43567,0,'46.8.172.50',1691438431,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"Comparing and selling the original IELTS certificates onlin\";}'),(6564,1,2,19,43566,0,'46.8.172.50',1691438447,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"Comparing the certificates of the GTEC, IELCA, IELCA, ITEP,\";}'),(6565,1,868,3,43572,0,'183.82.232.106',1691569988,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: DBF to Excel Sheet, without Excel, using ADO ?\";}'),(6566,0,2,0,0,0,'46.8.172.50',1691727914,'LOG_ADMIN_AUTH_SUCCESS',''),(6567,0,2,0,0,0,'46.8.172.50',1691728118,'LOG_ADMIN_AUTH_SUCCESS',''),(6568,0,2,0,0,0,'46.8.172.50',1691728154,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"streikpc\";}'),(6569,0,2,0,0,0,'46.8.172.50',1691728160,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"streikpc\";}'),(6570,0,2,0,0,0,'46.8.172.50',1691728184,'LOG_USER_ACTIVE','a:1:{i:0;s:8:\"streikpc\";}'),(6571,3,2,0,0,4765,'46.8.172.50',1691728184,'LOG_USER_ACTIVE_USER',''),(6572,1,4224,3,43591,0,'91.11.168.155',1691879772,'LOG_DELETE_TOPIC','a:1:{i:0;s:64:\"EDIT_GET vs. EditSource() LEN of Type &quot;C&quot; when use ADO\";}'),(6573,1,3174,3,43596,0,'49.172.249.236',1692064144,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Saving OuterHTML using Await Implementation with TWebView\";}'),(6574,1,868,3,43602,0,'183.82.232.106',1692162035,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: need Help with oBro:bSeek\";}'),(6575,1,3174,3,43596,0,'49.172.249.236',1692268210,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Saving OuterHTML using Await Implementation with TWebView\";}'),(6576,1,3174,3,43596,0,'49.172.249.236',1692268339,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Saving OuterHTML using Await Implementation with TWebView\";}'),(6577,1,3174,3,43596,0,'49.172.249.236',1692268349,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Saving OuterHTML using Await Implementation with TWebView\";}'),(6578,1,3174,3,43596,0,'49.172.249.236',1692268544,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: Saving OuterHTML using Await Implementation with TWebView\";}'),(6579,1,1060,3,43619,0,'85.140.251.60',1692547058,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Select part of the cell\";}'),(6580,1,52,6,43627,0,'93.34.149.30',1692597996,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: Inicie repositorio prueba e Tree\";}'),(6581,1,2,3,43633,0,'46.8.172.50',1692705244,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: como obtengo el valor mas chico de un array\";}'),(6582,1,2,3,43633,0,'46.8.172.50',1692706270,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: como obtengo el valor mas chico de un array\";}'),(6583,1,2,3,43633,0,'46.8.172.50',1692706873,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: como obtengo el valor mas chico de un array\";}'),(6584,1,2324,6,43610,0,'139.47.34.10',1692896517,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Incluyendo el SQLRDD\";}'),(6585,1,2324,6,43610,0,'139.47.34.10',1692955235,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Incluyendo el SQLRDD\";}'),(6586,1,868,3,43651,0,'183.82.232.106',1693589157,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: not ISOEM(), ISANSI() or IsUTF8()\";}'),(6587,1,2598,3,43653,0,'109.239.240.96',1693993945,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Unknown PickColor()\";}'),(6588,1,2598,3,43653,0,'109.239.240.96',1693993954,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Unknown PickColor()\";}'),(6589,1,47,3,43693,0,'124.120.130.86',1694333191,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"error _HB_FUN_HB_BASE64DECODE\";}'),(6590,1,362,6,43685,0,'179.100.26.35',1694460191,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: De *.C  Para *.Obj en BCC74 no funciona más.\";}'),(6591,1,228,6,43649,0,'181.59.2.160',1694471967,'LOG_POST_EDITED','a:2:{i:0;s:39:\"Una sobre la clase TTOAST - SOLUCIONADO\";i:1;s:11:\"JoseAlvarez\";}'),(6592,1,228,6,43649,0,'181.59.2.160',1694534073,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Una sobre la clase TTOAST\";i:1;s:11:\"JoseAlvarez\";}'),(6593,1,233,3,43698,0,'110.159.25.79',1694661498,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Disabled buttons at oBar not greyed out after using FWH1912\";}'),(6594,1,1690,3,43352,0,'188.136.112.201',1694678879,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: FW_SetUnicode( .T. ) 2-Byte characters\";}'),(6595,1,1690,3,43352,0,'188.136.112.201',1694678891,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: FW_SetUnicode( .T. ) 2-Byte characters\";}'),(6596,1,1875,3,43708,0,'186.119.6.90',1695139806,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Reason for closing DBF file\";}'),(6597,1,3593,3,43715,0,'109.131.60.216',1695309872,'LOG_DELETE_POST','a:1:{i:0;s:14:\"Re: cGetFile()\";}'),(6598,1,237,6,43729,0,'190.55.233.38',1695492343,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Consulta sobre la clase folderEx\";}'),(6599,1,89,16,43737,0,'194.32.172.237',1695739007,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"xBrowse error with sort with multiple fields\";}'),(6600,1,4224,3,43739,0,'87.180.101.169',1695830352,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Re: who use PostgreSQL with Fivewin ?\";i:1;s:6:\"Natter\";}'),(6601,1,4224,3,43739,0,'87.180.101.169',1695830375,'LOG_POST_EDITED','a:2:{i:0;s:37:\"Re: who use PostgreSQL with Fivewin ?\";i:1;s:14:\"Willi Quintana\";}'),(6602,1,1193,3,43746,0,'49.216.173.213',1695887634,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"problem with report to excel and auto close my opened Excel\";}'),(6603,1,439,6,43762,0,'200.125.29.126',1696338323,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Como obtener el resultado de una formula\";}'),(6604,1,2342,6,43766,0,'93.156.192.21',1696384544,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Xlsxlibhb_ver2\";}'),(6605,1,2342,3,43767,0,'93.156.192.21',1696384586,'LOG_POST_EDITED','a:2:{i:0;s:14:\"Xlsxlibhb_ver2\";i:1;s:13:\"arturo tamayo\";}'),(6606,1,6,16,33542,0,'87.21.232.30',1696530965,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: xHarbour.org updated!\";}'),(6607,1,1178,6,30976,0,'186.84.126.34',1696697337,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: MySql embebido\";}'),(6608,0,2,0,0,0,'46.8.172.48',1697511396,'LOG_ADMIN_AUTH_SUCCESS',''),(6609,3,2,0,0,281,'46.8.172.48',1697511426,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"yunbg1\";}'),(6610,0,2,0,0,0,'46.8.172.48',1697511426,'LOG_USER_USER_UPDATE','a:1:{i:0;s:6:\"yunbg1\";}'),(6611,1,233,3,43796,0,'60.52.25.63',1697598289,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Sending whatsapp message via web-based app\";}'),(6612,0,2,0,0,0,'46.8.172.48',1697814807,'LOG_ADMIN_AUTH_SUCCESS',''),(6613,0,2,0,0,0,'46.8.172.48',1697814873,'LOG_ADMIN_AUTH_SUCCESS',''),(6614,3,2,0,0,1984,'46.8.172.48',1697814912,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"Uwe.Diemer\";}'),(6615,0,2,0,0,0,'46.8.172.48',1697814912,'LOG_USER_USER_UPDATE','a:1:{i:0;s:10:\"Uwe.Diemer\";}'),(6616,1,6,6,43811,0,'87.9.45.177',1697829513,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: No borrar fichero\";}'),(6617,0,2,0,0,0,'46.8.172.48',1697915765,'LOG_ADMIN_AUTH_SUCCESS',''),(6618,0,2,0,0,0,'46.8.172.48',1697915778,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"jlborlando\";}'),(6619,0,2,0,0,0,'46.8.172.48',1697915782,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"jlborlando\";}'),(6620,1,868,3,43817,0,'183.82.232.106',1697988021,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Moving the dialog\";}'),(6621,1,2,6,43822,0,'46.8.172.48',1698125785,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Ayuda con codigo - conversion\";}'),(6622,1,3687,3,43825,0,'170.231.36.9',1698152004,'LOG_DELETE_TOPIC','a:1:{i:0;s:16:\"Leer dbf con ADO\";}'),(6623,1,2,6,43830,0,'46.8.172.48',1698255264,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: Error raro al compilar\";i:1;s:5:\"Jimmy\";}'),(6624,1,1060,3,39454,0,'85.140.251.224',1698528662,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: Reading number of pages in a Word-document (docx)\";}'),(6625,1,1060,3,43845,0,'94.29.126.107',1698664823,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"Long file names\";}'),(6626,1,51,3,43854,0,'80.122.88.242',1698872650,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"The Future of Developer Forums\";}'),(6627,3,1690,0,0,1690,'188.136.112.201',1698996580,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"frose\";i:1;s:26:\"frank.rosenthal@sewerin.de\";i:2;s:16:\"frank@rothal.net\";}'),(6628,0,2,0,0,0,'46.8.172.48',1699117330,'LOG_ADMIN_AUTH_SUCCESS',''),(6629,0,2,0,0,0,'46.8.172.48',1699117348,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"sirotoca\";}'),(6630,0,2,0,0,0,'46.8.172.48',1699117354,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"sirotoca\";}'),(6631,1,868,3,43879,0,'183.82.232.106',1699336512,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: Does TDatabase supports SEEK LAST?\";}'),(6632,3,870,0,0,870,'186.240.2.88',1699446191,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"ip_ram\";}'),(6633,0,2,0,0,0,'46.8.172.48',1699456354,'LOG_ADMIN_AUTH_SUCCESS',''),(6634,0,2,0,0,0,'46.8.172.48',1699456367,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:8:\"lzanardo\";}'),(6635,0,2,0,0,0,'46.8.172.48',1699456371,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:8:\"lzanardo\";}'),(6636,1,110,6,43883,0,'190.143.247.185',1699458289,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Clase para tratar una matriz como una dbf\";}'),(6637,1,362,6,43893,0,'187.34.170.88',1699620723,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Como detecto si un archivo es del tipo XML?\";}'),(6638,1,2598,3,43898,0,'109.239.240.96',1699625472,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Right Text on BTNBMP\";}'),(6639,1,6,3,43877,0,'95.251.235.201',1699654147,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: xBrowse - Dates - FWH 2310\";}'),(6640,1,2598,3,43909,0,'109.239.240.96',1700040145,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"ERROR PRINT A TEXT ON BUTTONBAR\";}'),(6641,1,2,3,43911,0,'46.8.172.48',1700113869,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: String in unicode\";}'),(6642,1,6,16,33542,0,'95.251.235.201',1700401460,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: xHarbour.org updated!\";}'),(6643,1,6,3,43924,0,'95.251.235.201',1700479940,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"QScanner2 compile\";}'),(6644,3,3947,0,0,3947,'85.137.178.219',1700521382,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"Pg_cts\";}'),(6645,1,2,19,43935,0,'46.8.172.48',1700629922,'LOG_MOVE','a:2:{i:0;s:29:\"FiveWin para Harbour/xHarbour\";i:1;s:23:\"Off Topic / Otros temas\";}'),(6646,1,2598,3,43937,0,'109.239.240.96',1700647504,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: To Nages: Record deleted but make error also\";}'),(6647,1,1689,3,43923,0,'87.116.132.68',1700650235,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: QScanner2 compile\";}'),(6648,3,4616,0,0,4616,'187.66.154.208',1700665602,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"rodrigoppt\";}'),(6649,1,6,3,43767,0,'95.251.235.201',1700681567,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Xlsxlibhb_ver2\";}'),(6650,1,1060,3,43953,0,'85.141.146.5',1700987381,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Strange behavior of xBrowse\";}'),(6651,1,2,6,43964,0,'46.8.172.40',1701197914,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"De vuelta tras 10 años por enfermedad.[Javier LLoris]\";}'),(6652,3,1873,0,0,1873,'84.123.3.75',1701247572,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jll-fwh\";i:1;s:25:\"jllorispersonal@gmail.com\";i:2;s:33:\"javierllorisprogramador@gmail.com\";}'),(6653,0,2,0,0,0,'46.8.172.40',1701260516,'LOG_ADMIN_AUTH_SUCCESS',''),(6654,3,2,0,0,1873,'46.8.172.40',1701260578,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"jll-fwh\";}'),(6655,0,2,0,0,0,'46.8.172.40',1701260578,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"jll-fwh\";}'),(6656,1,6,16,33542,0,'95.251.235.201',1701281149,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: xHarbour.org updated!\";}'),(6657,1,297,3,43967,0,'93.44.0.125',1701356378,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Convert a print to Rtf or doc\";}'),(6658,1,1178,6,43970,0,'186.84.126.34',1701388407,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Compilar xbase con VSCode\";}'),(6659,1,1060,3,43979,0,'85.141.147.241',1701632884,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"File Error.log\";}'),(6660,1,413,3,43982,0,'77.211.5.11',1701718704,'LOG_DELETE_TOPIC','a:1:{i:0;s:57:\"Borrados los ficheros del github harbour y xharbour files\";}'),(6661,1,868,3,43989,0,'183.82.232.106',1701973090,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Small buttonbar at x,y\";}'),(6662,1,868,6,43995,0,'183.82.232.106',1702055770,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Seleccion multiple automatica xBrowse\";}'),(6663,1,362,3,44006,0,'177.138.85.51',1702400375,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: add a line in the print report\";}'),(6664,1,51,3,44013,0,'80.122.88.242',1702411598,'LOG_DELETE_TOPIC','a:1:{i:0;s:30:\"Variable row height in xbrowse\";}'),(6665,1,2598,3,44031,0,'109.239.240.96',1702892645,'LOG_DELETE_TOPIC','a:1:{i:0;s:11:\"To Mr Nages\";}'),(6666,1,2342,3,44037,0,'139.47.98.242',1703229028,'LOG_POST_EDITED','a:2:{i:0;s:8:\"xBrowser\";i:1;s:16:\"oliveiros junior\";}'),(6667,1,2342,3,44037,0,'139.47.98.242',1703229067,'LOG_POST_EDITED','a:2:{i:0;s:12:\"Re: xBrowser\";i:1;s:16:\"oliveiros junior\";}'),(6668,1,2,3,44041,0,'46.8.172.40',1703528316,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: phpBB to LLM\";}'),(6669,1,449,6,44056,0,'5.224.86.180',1703871107,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"La IA contesta y se queda tan ancha\";}'),(6670,1,449,6,44057,0,'5.224.86.180',1703871113,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"La IA contesta y se queda tan ancha\";}'),(6671,3,4796,0,0,4796,'177.190.208.213',1703924027,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"jhnsnlb\";}'),(6672,3,4796,0,0,4796,'177.190.208.213',1703924027,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jhnsnlb\";i:1;s:19:\"admin@sistem.net.br\";i:2;s:22:\"johnson.lobo@proton.me\";}'),(6673,1,2598,3,44051,0,'151.57.20.207',1704276844,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Backups into blu rays\";}'),(6674,1,2598,3,44070,0,'151.19.51.60',1704398870,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"two texplorer bar into a dialog\";}'),(6675,1,2598,3,44043,0,'151.35.151.65',1704572914,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Create a Panel width a text\";}'),(6676,1,2598,3,44043,0,'109.239.240.96',1704795797,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Create a Panel width a text\";}'),(6677,1,51,3,44086,0,'80.122.88.242',1704798633,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: webview - how to get values from js to FWH\";}'),(6678,1,2598,3,44092,0,'109.239.240.96',1704893261,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: searching on xbrowse aarraydata\";}'),(6679,1,2598,3,44092,0,'151.47.185.60',1705012590,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"searching on xbrowse aarraydata\";}'),(6680,1,34,3,44106,0,'98.163.35.2',1705195437,'LOG_DELETE_TOPIC','a:1:{i:0;s:17:\"User Help problem\";}'),(6681,1,2598,3,44104,0,'109.239.240.96',1705250623,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Help for Labels Report ( no web no Html)  to Nages\";}'),(6682,1,940,3,32737,0,'138.186.31.134',1705423920,'LOG_DELETE_POST','a:1:{i:0;s:38:\"Re: FWH: MySql/MariaDB:  RowSet object\";}'),(6683,1,52,6,44120,0,'172.226.14.21',1705558402,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: Incorrecto numero de argumento para AT\";}'),(6684,0,2,0,0,0,'46.8.172.102',1705648154,'LOG_ADMIN_AUTH_SUCCESS',''),(6685,0,2,0,0,0,'46.8.172.102',1705648187,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:9:\"johnsonBL\";}'),(6686,0,2,0,0,0,'46.8.172.102',1705648192,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:9:\"johnsonBL\";}'),(6687,1,2,3,44105,0,'46.8.172.102',1705742434,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Labels Report with EAN WEBVIEW\";}'),(6688,1,2,3,44122,0,'46.8.172.102',1705742531,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: I\'m not asking for the moon... Resolved!!\";}'),(6689,1,2,3,44128,0,'46.8.172.102',1705743131,'LOG_POST_EDITED','a:2:{i:0;s:25:\"Pasos para integrar la IA\";i:1;s:7:\"leandro\";}'),(6690,1,2,3,44128,0,'46.8.172.102',1705743169,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Steps to integrate AI\";i:1;s:7:\"leandro\";}'),(6691,1,2,3,44122,0,'46.8.172.102',1705743278,'LOG_LOCK','a:1:{i:0;s:41:\"I\'m not asking for the moon... Resolved!!\";}'),(6692,1,2598,3,44133,0,'5.99.149.54',1705926314,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"refresh ximages\";}'),(6693,3,1727,0,0,1727,'93.42.8.133',1706092998,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"a.tixi@htech.it\";}'),(6694,0,2,0,0,0,'217.61.226.102',1706163230,'LOG_ADMIN_AUTH_SUCCESS',''),(6695,0,2,0,0,0,'217.61.226.102',1706163327,'LOG_FORUM_EDIT','a:1:{i:0;s:32:\"Artificial Intelligence examples\";}'),(6696,1,52,6,44140,0,'104.28.98.47',1706199456,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"procedure y filter\";}'),(6697,1,52,6,44152,0,'104.28.98.45',1706268560,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: leer y pdf y extraer datos\";}'),(6698,1,1060,3,44147,0,'94.29.126.107',1706276702,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: &quot;Save As&quot; dialog box\";}'),(6699,1,2,3,44134,0,'217.61.226.230',1706333906,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: future of Rich Text Editor maybe time to start with WEBVIEW\";}'),(6700,1,2,3,44134,0,'217.61.226.230',1706334059,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: future of Rich Text Editor maybe time to start with WEBVIEW\";}'),(6701,1,2,3,44134,0,'217.61.226.230',1706352461,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: future of Rich Text Editor maybe time to start with WEBVIEW\";}'),(6702,1,2,3,44159,0,'217.61.226.230',1706509426,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: HarbourWave -  leaked information\";}'),(6703,1,868,3,44170,0,'183.82.232.106',1706543474,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: How to convert a Date to an Unix TimeStamp?\";}'),(6704,1,89,3,44150,0,'194.32.172.237',1706624576,'LOG_DELETE_TOPIC','a:1:{i:0;s:45:\"Delay in opening Mysql and xBrowse , help RAO\";}'),(6705,3,3174,0,0,3174,'49.172.249.236',1706746899,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"CharlesKwon\";}'),(6706,1,868,3,44180,0,'183.82.232.106',1706945894,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: SQL connection\";}'),(6707,1,362,6,44190,0,'177.138.85.149',1707060484,'LOG_POST_EDITED','a:2:{i:0;s:45:\"Re: Validar e-mail usando Regex (SOLUCIONADO)\";i:1;s:9:\"Cgallegoa\";}'),(6708,1,2,3,44196,0,'217.61.226.230',1707214720,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Easier WebView use\";}'),(6709,1,1406,3,43874,0,'188.119.46.74',1707219639,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Fwh 23.10 TGet another problem (UNSOLVED)\";}'),(6710,1,362,6,44195,0,'201.95.180.72',1707243079,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Refrescar el Tree en un xBrowse\";}'),(6711,1,1060,3,44197,0,'94.29.126.107',1707289844,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: Search by line\";}'),(6712,1,2,3,44156,0,'217.61.226.230',1707298117,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: FW_MemoEdit error\";}'),(6713,0,2,0,0,0,'217.61.226.230',1707298123,'LOG_ADMIN_AUTH_SUCCESS',''),(6714,0,2,0,0,0,'217.61.226.230',1707298248,'LOG_BAN_USER','a:2:{i:0;s:15:\"lack of respect\";i:1;s:14:\"Silvio.Falconi\";}'),(6715,1,2,0,0,0,'217.61.226.230',1707298248,'LOG_BAN_USER','a:2:{i:0;s:15:\"lack of respect\";i:1;s:14:\"Silvio.Falconi\";}'),(6716,1,2388,3,44135,0,'190.120.183.28',1707393459,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: SAPI : change Voice\";}'),(6717,1,3558,3,44206,0,'77.119.247.16',1707469256,'LOG_DELETE_TOPIC','a:1:{i:0;s:37:\"TOLEAUto():New - MEMBERNOTFOUND: SEND\";}'),(6718,1,2388,3,44135,0,'190.120.183.28',1707491217,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: SAPI : change Voice\";}'),(6719,1,2,3,44135,0,'217.61.226.230',1707652681,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: SAPI : change Voice\";}'),(6720,1,2,3,44217,0,'217.61.226.230',1707691079,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"fivewin21 for clipper 53\";}'),(6721,3,4443,0,0,4443,'181.93.95.39',1707783015,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:12:\"José Camilo\";}'),(6722,1,2598,20,42755,0,'5.99.149.53',1708077664,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: leggere test,hrb\";}'),(6723,1,362,6,44243,0,'187.57.158.55',1708271120,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: ancho del setgroup?\";}'),(6724,1,868,3,43874,0,'183.82.232.106',1708322966,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Fwh 23.10 TGet another problem (UNSOLVED)\";}'),(6725,1,2598,3,44246,0,'5.99.149.53',1708333750,'LOG_DELETE_TOPIC','a:1:{i:0;s:47:\"How I can to disable all buttons on buttonbar ?\";}'),(6726,1,2818,6,44247,0,'181.230.163.85',1708357421,'LOG_DELETE_TOPIC','a:1:{i:0;s:54:\"EanQRCode() funcion imprime algunos codigos y otros no\";}'),(6727,3,39,0,0,39,'190.217.149.75',1708522531,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lautaro\";}'),(6728,1,362,6,44258,0,'187.34.169.189',1708528948,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: FW_DbfSqlQuery GROUP BY no funciona\";}'),(6729,1,3945,6,44260,0,'85.56.18.251',1708623079,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"Ley antifraude y VERI*FACTU\";}'),(6730,0,2,0,0,0,'217.61.226.230',1708835765,'LOG_ADMIN_AUTH_SUCCESS',''),(6731,0,2,0,0,0,'217.61.226.230',1708836169,'LOG_DB_BACKUP',''),(6732,0,2,0,0,0,'217.61.226.230',1708836313,'LOG_DB_BACKUP',''),(6733,0,2,0,0,0,'217.61.226.230',1708836757,'LOG_ADMIN_AUTH_SUCCESS',''),(6734,1,2388,6,43867,0,'190.120.183.28',1708987876,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Ayuda URGENTE- con puerto serial virtual USB\";}'),(6735,1,2598,3,44273,0,'5.99.149.53',1709107714,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: To Nageswrao Del Objs on TscrollPanel\";}'),(6736,1,2598,3,44273,0,'5.99.149.53',1709107724,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: To Nageswrao Del Objs on TscrollPanel\";}'),(6737,1,267,3,44291,0,'189.42.110.153',1709289779,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: How to show and print a pdf file?\";}'),(6738,1,2,3,44301,0,'217.61.226.230',1709422317,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.02\";}'),(6739,1,2,3,44301,0,'217.61.226.230',1709422326,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.02\";}'),(6740,1,2,3,44301,0,'217.61.226.230',1709422335,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.02\";}'),(6741,1,2,3,44301,0,'217.61.226.230',1709422344,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.02\";}'),(6742,1,2,3,44301,0,'217.61.226.230',1709422352,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.02\";}'),(6743,1,868,6,44304,0,'183.82.232.106',1709572232,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: ¿Cómo saber la fecha de los cambios a una carpeta?\";}'),(6744,1,868,6,44310,0,'183.82.232.106',1709622766,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: FWH 24.02 y Harbour con BCC7.7 y Select()\";}'),(6745,1,92,6,44310,0,'188.79.41.133',1709677929,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: FWH 24.02 y Harbour con BCC7.7 y Select()\";}'),(6746,1,868,6,44318,0,'183.82.232.106',1709734180,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Bug FWH2402 - Botones\";}'),(6747,3,39,0,0,39,'190.217.149.75',1709750472,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"Lautaro\";}'),(6748,1,3593,3,44305,0,'84.194.202.99',1710095303,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: How to include hbCurl?\";}'),(6749,1,362,6,44330,0,'187.57.148.251',1710332506,'LOG_POST_EDITED','a:2:{i:0;s:34:\"Re: Imagen en login? (SOLUCIONADO)\";i:1;s:6:\"jbrita\";}'),(6750,1,2598,3,44352,0,'151.57.203.51',1710792402,'LOG_DELETE_POST','a:1:{i:0;s:39:\"Re: Hide/show search system on a dialog\";}'),(6751,1,51,3,44345,0,'80.122.88.242',1710927304,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Fulltext-Search\";}'),(6752,1,868,3,44343,0,'183.82.232.106',1710949655,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Question about performance RowSet\";}'),(6753,1,868,3,44343,0,'183.82.232.106',1710952936,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Question about performance RowSet\";}'),(6754,3,587,0,0,587,'179.217.144.173',1711397532,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"betovsp\";}'),(6755,1,2598,3,44370,0,'5.99.149.53',1711443640,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: records on xbrowse\";}'),(6756,1,868,3,44382,0,'183.82.232.106',1711727535,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: also error  with btnbmp\";}'),(6757,1,2598,3,44385,0,'151.57.160.238',1712011878,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: xbrowse  SelectRow  method\";}'),(6758,1,233,3,44392,0,'175.144.183.41',1712138539,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Best practice to implement REST and OAuth2.0\";}'),(6759,1,2598,3,44399,0,'5.99.149.53',1712319190,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Problem with valid email refresh btnbmp\";}'),(6760,1,362,3,44399,0,'201.42.89.208',1712669316,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Problem with valid email refresh btnbmp\";}'),(6761,1,2342,3,44393,0,'82.213.247.215',1712671069,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: harbour/xharbour appear ADS functions error\";i:1;s:15:\"richard-service\";}'),(6762,1,2,6,44413,0,'217.61.226.230',1712850968,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: Ayuda C++\";}'),(6763,1,2,3,44415,0,'217.61.226.230',1712864902,'LOG_POST_EDITED','a:2:{i:0;s:27:\"compile errors - send a SMS\";i:1;s:11:\"Jeff Barnes\";}'),(6764,1,2598,3,44406,0,'151.43.132.121',1712954481,'LOG_DELETE_TOPIC','a:1:{i:0;s:34:\"xbrowse :bLClicked and doubleclick\";}'),(6765,1,2,3,44419,0,'217.61.226.230',1713088718,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Digital signing a document\";}'),(6766,1,2598,3,44424,0,'5.99.149.53',1713178446,'LOG_DELETE_POST','a:1:{i:0;s:47:\"Re: Help to friends to Config Xmate with bcc7.7\";}'),(6767,1,2,6,44423,0,'217.61.226.230',1713183529,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Multiget con color cuando esta deshabilitado\";}'),(6768,1,2598,3,44416,0,'5.99.149.53',1713249688,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Duplicate record with tdatabase\";}'),(6769,1,2598,3,44416,0,'5.99.149.53',1713249701,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Duplicate record with tdatabase\";}'),(6770,1,2598,3,44416,0,'5.99.149.53',1713249710,'LOG_DELETE_TOPIC','a:1:{i:0;s:31:\"Duplicate record with tdatabase\";}'),(6771,1,233,3,44434,0,'60.48.188.111',1713507985,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: Compiler with MSVC y HARBOUR\";}'),(6772,1,2598,3,44425,0,'5.99.149.53',1713525801,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: colorize btnbmp with diagonal\";}'),(6773,1,2,40,44439,0,'217.61.226.230',1713599966,'LOG_MOVE','a:2:{i:0;s:23:\"Off Topic / Otros temas\";i:1;s:32:\"Artificial Intelligence examples\";}'),(6774,3,4837,0,0,4837,'195.32.24.210',1713687635,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"nicos18\";}'),(6775,1,362,6,44432,0,'179.145.45.243',1713708812,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Re: Brush\";}'),(6776,1,362,6,44432,0,'179.145.45.243',1713708879,'LOG_DELETE_POST','a:1:{i:0;s:9:\"Re: Brush\";}'),(6777,1,2598,3,44443,0,'5.99.149.53',1713770335,'LOG_DELETE_POST','a:1:{i:0;s:36:\"Re: xbrowse problem with  :bLClicked\";}'),(6778,1,362,3,44452,0,'179.145.45.243',1714048013,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Report rpreview excel button disable not work\";}'),(6779,1,35,3,44453,0,'172.75.70.0',1714068348,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Link errors xHarbour 10283.bcc770\";}'),(6780,1,34,3,44456,0,'72.219.147.143',1714155672,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Error FWH 2404  unresolved external \'SetWindow Theme\'\";}'),(6781,1,2598,3,44425,0,'151.35.102.214',1714244258,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: colorize btnbmp with diagonal\";}'),(6782,1,51,3,44457,0,'80.122.88.242',1714250287,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: combobox color\";}'),(6783,1,51,3,44457,0,'80.122.88.242',1714250300,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: combobox color\";}'),(6784,1,2598,3,44457,0,'151.35.139.11',1714408342,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: combobox color\";}'),(6785,1,35,3,44462,0,'172.75.70.0',1714409667,'LOG_DELETE_TOPIC','a:1:{i:0;s:59:\"xMate users  why do program file show up on the main screen\";}'),(6786,1,35,3,44463,0,'172.75.70.0',1714410070,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"xMAte .prg now show up at top of Proj Mgr\";}'),(6787,1,233,19,44468,0,'110.159.24.175',1714463458,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Command-line calendar\";}'),(6788,1,362,3,44466,0,'179.100.34.108',1714492380,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Silvo .. changes to your xMate environment\";}'),(6789,1,2598,3,44488,0,'151.19.209.77',1714987290,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: products photos\";}'),(6790,1,2598,3,44488,0,'151.19.209.77',1714987299,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"products photos\";}'),(6791,1,2598,3,44489,0,'151.19.209.77',1714992168,'LOG_DELETE_TOPIC','a:1:{i:0;s:15:\"adel  and asize\";}'),(6792,0,6,0,0,0,'79.16.32.63',1715522593,'LOG_ADMIN_AUTH_SUCCESS',''),(6793,1,233,3,44398,0,'110.159.24.175',1715573969,'LOG_DELETE_POST','a:1:{i:0;s:49:\"Re: Any code snippet for getting token of OAuth2?\";}'),(6794,1,3176,6,44503,0,'38.171.5.170',1715722024,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Una pregunta de párvulo\";}'),(6795,1,362,3,43805,0,'179.145.46.83',1715860804,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: Send Emails from Fivewin application\";}'),(6796,1,868,3,44528,0,'183.82.232.106',1716280898,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: XBROWSE  (It\'s giving me an error when I put Transparent)\";}'),(6797,1,868,3,44528,0,'183.82.232.106',1716281009,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: XBROWSE  (It\'s giving me an error when I put Transparent)\";}'),(6798,1,868,3,44528,0,'183.82.232.106',1716281142,'LOG_DELETE_POST','a:1:{i:0;s:61:\"Re: XBROWSE  (It\'s giving me an error when I put Transparent)\";}'),(6799,1,868,3,44531,0,'183.82.232.106',1716354779,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Relative coordinates of Controls\";}'),(6800,1,2598,3,44533,0,'5.99.149.53',1716363297,'LOG_DELETE_TOPIC','a:1:{i:0;s:29:\"error in bresize with radmenu\";}'),(6801,1,362,3,44537,0,'179.111.76.185',1716489402,'LOG_POST_EDITED','a:2:{i:0;s:36:\"Re: Socket Programming good practice\";i:1;s:10:\"byron.hopp\";}'),(6802,1,2598,3,44548,0,'151.19.57.4',1716822819,'LOG_DELETE_TOPIC','a:1:{i:0;s:36:\"FTPREADFILE/FTPWRITEFILE  a question\";}'),(6803,0,2,0,0,0,'217.61.226.230',1716911062,'LOG_ADMIN_AUTH_SUCCESS',''),(6804,3,2,0,0,2,'217.61.226.230',1716911154,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:15:\"Antonio Linares\";}'),(6805,0,2,0,0,0,'217.61.226.230',1716911154,'LOG_USER_USER_UPDATE','a:1:{i:0;s:15:\"Antonio Linares\";}'),(6806,1,362,3,44555,0,'187.116.107.72',1716916894,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: changing xbrowse size\";}'),(6807,1,2598,3,44555,0,'5.179.137.100',1717069963,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: changing xbrowse size\";}'),(6808,1,3834,3,44561,0,'181.43.197.111',1717091753,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Favor ayuda  con Array\";}'),(6809,1,2598,3,44485,0,'5.99.149.54',1717404083,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: get your external IP\";}'),(6810,0,2,0,0,0,'217.61.226.230',1717445210,'LOG_ADMIN_AUTH_SUCCESS',''),(6811,3,2,0,0,196,'217.61.226.230',1717445242,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:13:\"Jorge Jaurena\";}'),(6812,0,2,0,0,0,'217.61.226.230',1717445242,'LOG_USER_USER_UPDATE','a:1:{i:0;s:13:\"Jorge Jaurena\";}'),(6813,1,4224,3,44572,0,'91.11.174.125',1717490198,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Re: EXCEL and interior color\";i:1;s:11:\"MarcoBoschi\";}'),(6814,3,3176,0,0,3176,'186.185.202.158',1717532946,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"JoseAlvarez\";}'),(6815,1,2,3,44540,0,'217.61.226.230',1717762686,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: ayuda para configurar entorno FWH2404 de 64 bits\";}'),(6816,1,2,6,44592,0,'217.61.226.230',1718028351,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: Tema calendario nuevamente.\";i:1;s:12:\"José Camilo\";}'),(6817,3,159,0,0,159,'210.244.75.88',1718077654,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:5:\"ssbbs\";i:1;s:21:\"ssbbs@mail.zzz.com.tw\";i:2;s:19:\"wen.ssbbs@gmail.com\";}'),(6818,0,2,0,0,0,'217.61.226.230',1718203674,'LOG_ADMIN_AUTH_SUCCESS',''),(6819,0,2,0,0,0,'217.61.226.230',1718203691,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"JoãoGomes\";}'),(6820,0,2,0,0,0,'217.61.226.230',1718203696,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"JoãoGomes\";}'),(6821,1,362,3,44594,0,'179.100.34.158',1718369143,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: problem with big dbf on xbrowse\";}'),(6822,1,362,3,44594,0,'189.38.149.200',1718802786,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: problem with big dbf on xbrowse\";}'),(6823,1,294,3,44628,0,'191.80.72.40',1719190899,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Contraste de colores?\";}'),(6824,0,2,0,0,0,'217.61.226.230',1719218552,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"daniv096\";}'),(6825,1,2,0,0,0,'217.61.226.230',1719218552,'LOG_BAN_USER','a:2:{i:0;s:0:\"\";i:1;s:8:\"daniv096\";}'),(6826,1,2,23,44634,0,'217.61.226.230',1719218564,'LOG_DELETE_TOPIC','a:1:{i:0;s:44:\"Exemplary Сasual Dating - Authentic Maidens\";}'),(6827,1,868,3,44628,0,'117.206.251.147',1719465121,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Contraste de colores?\";}'),(6828,3,3176,0,0,3176,'190.204.235.182',1719520178,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"JoseAlvarez\";}'),(6829,1,3176,6,44642,0,'200.82.255.48',1719607056,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Problema con el re pintado\";}'),(6830,1,868,3,44639,0,'183.82.232.106',1719807968,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Image x xImage quality difference\";}'),(6831,1,233,3,44659,0,'175.144.180.177',1719996690,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"Any FWH/xHb function to convert time to UTC format\";}'),(6832,1,868,6,44611,0,'117.206.253.139',1720068444,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: Preview a PDF con imagen de fondo\";}'),(6833,1,2,3,44661,0,'217.61.226.230',1720070472,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Intercept pressing VK_SNAPSHOT ( &quot;PrtScr&quot; )\";}'),(6834,1,4594,6,44660,0,'185.252.59.151',1720113511,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: Error en ISLEAP()?, SOLUCIONADO\";}'),(6835,1,362,3,44666,0,'189.47.246.220',1720197860,'LOG_DELETE_POST','a:1:{i:0;s:19:\"Re: Btnbmp disabled\";}'),(6836,1,233,3,44668,0,'175.144.180.177',1720259632,'LOG_DELETE_TOPIC','a:1:{i:0;s:56:\"What function to convert a JSON string into JSON object?\";}'),(6837,1,190,3,44673,0,'61.2.193.45',1720793872,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: XIMAGE : Gamma Level Adjustment\";}'),(6838,1,1060,3,44689,0,'85.141.147.129',1720940267,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Color saturation\";}'),(6839,1,2,3,44687,0,'217.61.226.230',1720940386,'LOG_DELETE_POST','a:1:{i:0;s:13:\"Re: hbwin.lib\";}'),(6840,1,1060,3,44689,0,'85.141.147.129',1720955126,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Color saturation\";}'),(6841,3,3176,0,0,3176,'45.186.208.58',1721003387,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:11:\"JoseAlvarez\";}'),(6842,3,3182,0,0,3182,'106.77.77.117',1721288793,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:10:\"dagiayunus\";}'),(6843,1,2,3,44689,0,'217.61.226.230',1721737063,'LOG_POST_EDITED','a:2:{i:0;s:20:\"Re: Color saturation\";i:1;s:6:\"Natter\";}'),(6844,1,6,6,44710,0,'87.6.234.134',1721830659,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Compilar con Fivedit FWH24.04 BCC7.7 y HARBOUR - C. Navarro\";}'),(6845,1,6,6,44710,0,'87.6.234.134',1721830677,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Compilar con Fivedit FWH24.04 BCC7.7 y HARBOUR - C. Navarro\";}'),(6846,1,6,6,44710,0,'87.6.234.134',1721830695,'LOG_DELETE_POST','a:1:{i:0;s:63:\"Re: Compilar con Fivedit FWH24.04 BCC7.7 y HARBOUR - C. Navarro\";}'),(6847,1,1313,6,44713,0,'191.96.5.59',1721938881,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"MYSQL8 + TDOLPHIN CONNECT\";}'),(6848,1,2,3,44690,0,'217.61.226.230',1722191254,'LOG_POST_EDITED','a:2:{i:0;s:27:\"Re: Dbf/cdx to sql changing\";i:1;s:17:\"nageswaragunupudi\";}'),(6849,0,2,0,0,0,'217.61.226.230',1722356955,'LOG_ADMIN_AUTH_SUCCESS',''),(6850,3,2,0,0,2598,'217.61.226.230',1722356999,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Silvio.Falconi\";}'),(6851,0,2,0,0,0,'217.61.226.230',1722356999,'LOG_USER_USER_UPDATE','a:1:{i:0;s:14:\"Silvio.Falconi\";}'),(6852,1,1880,6,44729,0,'186.137.205.105',1722429735,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"ADO para SQL Server  y Array\";}'),(6853,1,1533,6,44679,0,'190.171.250.77',1722436791,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Propuesta para que hagan un curso virtual FW\";}'),(6854,1,868,3,44735,0,'183.82.232.106',1722490609,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: Error on report Page\";}'),(6855,1,868,6,44725,0,'183.82.232.106',1722614343,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Problema de Xbrowse()\";}'),(6856,0,2,0,0,0,'217.61.226.230',1722628426,'LOG_ADMIN_AUTH_SUCCESS',''),(6857,3,2,0,0,428,'217.61.226.230',1722628460,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:7:\"infosys\";}'),(6858,0,2,0,0,0,'217.61.226.230',1722628460,'LOG_USER_USER_UPDATE','a:1:{i:0;s:7:\"infosys\";}'),(6859,1,868,3,44741,0,'183.82.232.106',1722743222,'LOG_DELETE_POST','a:1:{i:0;s:23:\"Re: Correct use xBrowse\";}'),(6860,1,2,6,44679,0,'217.61.226.230',1722744745,'LOG_POST_EDITED','a:2:{i:0;s:48:\"Re: Propuesta para que hagan un curso virtual FW\";i:1;s:5:\"Jimmy\";}'),(6861,1,2,6,44679,0,'217.61.226.230',1722744774,'LOG_POST_EDITED','a:2:{i:0;s:48:\"Re: Propuesta para que hagan un curso virtual FW\";i:1;s:5:\"Jimmy\";}'),(6862,1,92,6,40705,0,'188.77.100.190',1722800523,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: España: Normativa sancionadora sistemas informáticos\";}'),(6863,1,868,3,44739,0,'183.82.232.106',1722901034,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: MsgSplash Centered\";}'),(6864,1,1313,3,44756,0,'191.7.191.1',1722978952,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"GETFILESIZEBYHANDLE.C ERROR\";}'),(6865,1,3176,6,44757,0,'77.111.246.126',1722998721,'LOG_DELETE_TOPIC','a:1:{i:0;s:41:\"¿Algún serviicio de hosting rcomendado?\";}'),(6866,1,2818,6,44762,0,'190.14.157.52',1723048459,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Leer datos de un Hash\";}'),(6867,1,689,3,43643,0,'187.23.71.203',1723121173,'LOG_DELETE_POST','a:1:{i:0;s:41:\"Re: Announcing DrXlsx 1.0 by Charles Kwon\";}'),(6868,1,362,3,44768,0,'189.47.246.71',1723212005,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: No logro definir tamaño de papel\";}'),(6869,1,362,3,44768,0,'189.47.246.71',1723217079,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: No logro definir tamaño de papel\";}'),(6870,1,362,6,44770,0,'177.170.228.97',1723476153,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Traer al frente - primer plano\";}'),(6871,1,1689,3,44781,0,'87.116.134.1',1723655821,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Fastreport and Outlook\";}'),(6872,1,40,6,44679,0,'177.227.45.150',1723845259,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Propuesta para que hagan un curso virtual FW\";}'),(6873,1,2,3,44789,0,'217.61.226.230',1724210492,'LOG_POST_EDITED','a:2:{i:0;s:47:\"Re: Join the Harbour Project Community and Win!\";i:1;s:8:\"wartiaga\";}'),(6874,1,228,6,44795,0,'181.59.3.176',1724438263,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Capturar pagina html y recuperar resultado\";}'),(6875,1,86,3,44790,0,'84.193.19.190',1724596296,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: GdiPlus\";}'),(6876,3,2598,0,0,2598,'5.99.149.54',1724829651,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:14:\"Silvio.Falconi\";}'),(6877,0,2,0,0,0,'217.61.226.230',1725084168,'LOG_ADMIN_AUTH_SUCCESS',''),(6878,0,2,0,0,0,'217.61.226.230',1725084185,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:6:\"Pedroj\";}'),(6879,0,2,0,0,0,'217.61.226.230',1725084190,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:6:\"Pedroj\";}'),(6880,1,693,16,44747,0,'190.1.111.60',1725369456,'LOG_DELETE_POST','a:1:{i:0;s:40:\"Re: New FTDN July/Julio 2024 (FWH 24.07)\";}'),(6881,1,1313,3,44813,0,'169.150.220.174',1725387425,'LOG_DELETE_POST','a:1:{i:0;s:42:\"Re: FWH2404 TGet  lPassword problem SOLVED\";}'),(6882,0,2,0,0,0,'217.61.226.230',1725575227,'LOG_ADMIN_AUTH_SUCCESS',''),(6883,3,2,0,0,3921,'217.61.226.230',1725575256,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"pedroluis\";}'),(6884,0,2,0,0,0,'217.61.226.230',1725575256,'LOG_USER_USER_UPDATE','a:1:{i:0;s:9:\"pedroluis\";}'),(6885,1,6,6,44788,0,'95.251.5.109',1725775835,'LOG_DELETE_POST','a:1:{i:0;s:37:\"Re: FWH64 : ERROR SE SALE DEL SISTEMA\";}'),(6886,1,2818,6,44841,0,'190.14.157.52',1725896031,'LOG_DELETE_TOPIC','a:1:{i:0;s:18:\"INDICES EN MEMORIA\";}'),(6887,1,2604,3,44844,0,'89.144.213.249',1725976561,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: What is wrong with 24.07\";}'),(6888,1,1880,6,44851,0,'186.137.195.17',1726070002,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: Burbujas Flotantes\";}'),(6889,1,156,6,44855,0,'186.71.37.247',1726099803,'LOG_DELETE_TOPIC','a:1:{i:0;s:80:\"Librerías de &quot;harbour_bcc770_64_20240814.zip&quot; extesión &quot;a&quot;\";}'),(6890,1,2,6,44854,0,'217.61.226.230',1726116480,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Error al compilar\";i:1;s:7:\"kutojed\";}'),(6891,1,2,6,44854,0,'217.61.226.230',1726116505,'LOG_POST_EDITED','a:2:{i:0;s:17:\"Error al compilar\";i:1;s:7:\"kutojed\";}'),(6892,1,2,6,44856,0,'217.61.226.230',1726123163,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"Factura del webinar\";}'),(6893,1,2,3,44840,0,'217.61.226.230',1726124057,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: Harbour + FWH webinar today + Tuesday + Wednesday !!!\";}'),(6894,1,362,3,44852,0,'201.92.8.131',1726152029,'LOG_DELETE_POST','a:1:{i:0;s:12:\"Re: slowness\";}'),(6895,1,362,6,44851,0,'179.100.34.231',1726229591,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: Burbujas Flotantes\";i:1;s:10:\"TOTOVIOTTI\";}'),(6896,3,1057,0,0,1057,'38.43.130.120',1726249602,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"artu01\";}'),(6897,1,2,6,44869,0,'217.61.226.230',1726289389,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Compilar con hmbk2 es realmente frustrante\";}'),(6898,1,2,6,44869,0,'217.61.226.230',1726291769,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Compilar con hmbk2 es realmente frustrante\";}'),(6899,1,2,6,44869,0,'217.61.226.230',1726291894,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Compilar con hmbk2 es realmente frustrante\";}'),(6900,1,2,6,44869,0,'217.61.226.230',1726291968,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Compilar con hmbk2 es realmente frustrante\";}'),(6901,1,2,6,44869,0,'217.61.226.230',1726376150,'LOG_POST_EDITED','a:2:{i:0;s:56:\"Compilar con hmbk2 es realmente frustrante (solucionado)\";i:1;s:7:\"leandro\";}'),(6902,1,2,6,44870,0,'217.61.226.230',1726379821,'LOG_POST_EDITED','a:2:{i:0;s:44:\"Re: Creando Servicios con Harbour y xHarbour\";i:1;s:10:\"alerchster\";}'),(6903,1,4224,3,44844,0,'91.11.175.183',1726497656,'LOG_DELETE_POST','a:1:{i:0;s:24:\"What is wrong with 24.07\";}'),(6904,1,4224,3,44876,0,'91.11.175.183',1726499949,'LOG_DELETE_POST','a:1:{i:0;s:20:\"missing Five64.LIB ?\";}'),(6905,1,4224,3,44876,0,'91.11.175.183',1726500211,'LOG_DELETE_POST','a:1:{i:0;s:26:\"GOT 64 BIt Version running\";}'),(6906,1,2,6,44864,0,'217.61.226.230',1726510924,'LOG_POST_EDITED','a:2:{i:0;s:31:\"Re: xHarbour 64 bits y xbScritp\";i:1;s:9:\"paquitohm\";}'),(6907,1,179,6,44870,0,'186.4.216.203',1726675793,'LOG_DELETE_POST','a:1:{i:0;s:44:\"Re: Creando Servicios con Harbour y xHarbour\";}'),(6908,1,4428,3,44893,0,'179.250.174.105',1726769656,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"Browse of my ADO Class\";}'),(6909,1,2598,3,44898,0,'5.99.149.53',1726822841,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"SetGroupHeader\";}'),(6910,1,2,3,44890,0,'217.61.226.230',1726831292,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: RichEdit5 and auto-texts\";}'),(6911,1,2598,3,44900,0,'5.99.149.53',1726833927,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"buttonbar  up ribbonbar\";}'),(6912,1,1880,6,44896,0,'186.137.197.34',1726857155,'LOG_DELETE_POST','a:1:{i:0;s:20:\"Re: Webview 2 + Html\";}'),(6913,1,2598,3,44906,0,'151.35.171.162',1726863392,'LOG_DELETE_TOPIC','a:1:{i:0;s:27:\"error to save data from txt\";}'),(6914,1,644,6,44901,0,'181.85.50.179',1726868693,'LOG_DELETE_POST','a:1:{i:0;s:30:\"Re: Aplicación de cartelería\";}'),(6915,1,868,3,44905,0,'183.82.232.106',1727065210,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: Bug Maria_Connect() FWH-24.07 64 bits ???\";}'),(6916,1,362,3,44919,0,'187.101.44.59',1727112210,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Find Pretty Womans in your town for night - Verified Damsels\";}'),(6917,1,2,3,44921,0,'217.61.226.230',1727158128,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: erro xhb  fwh23-10\";}'),(6918,1,2598,3,44920,0,'5.99.149.53',1727160632,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Demo version\";}'),(6919,0,6,0,0,0,'87.21.224.217',1727165643,'LOG_ADMIN_AUTH_SUCCESS',''),(6920,1,34,3,44920,0,'72.219.147.143',1727201765,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Demo version\";}'),(6921,1,362,3,44920,0,'179.111.77.144',1727268897,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: Demo version\";}'),(6922,1,868,6,44871,0,'183.82.232.106',1727269473,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: lUseHaruPDF - FWH 24.07\";}'),(6923,1,2,6,44896,0,'217.61.226.230',1727325261,'LOG_POST_EDITED','a:2:{i:0;s:28:\"Webview 2 + Html + ChatGPT !\";i:1;s:10:\"TOTOVIOTTI\";}'),(6924,1,868,3,44894,0,'183.82.232.106',1727359006,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Browse of my ADO Class\";}'),(6925,1,4428,3,44894,0,'179.250.174.105',1727365950,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Browse of my ADO Class\";}'),(6926,1,4428,3,44894,0,'179.250.174.105',1727365971,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Browse of my ADO Class\";}'),(6927,1,2,3,44894,0,'217.61.226.230',1727686266,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Browse of my ADO Class\";}'),(6928,1,2598,3,44949,0,'5.99.149.54',1727691912,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"error to read a file\";}'),(6929,1,2598,3,44950,0,'5.99.149.54',1727693641,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"read from file\";}'),(6930,3,1313,0,0,1313,'191.7.191.1',1727696378,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:3:\"MGA\";}'),(6931,1,1313,3,44951,0,'191.96.5.168',1727721016,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: HB_ZipFile - Password problem\";}'),(6932,0,2,0,0,0,'217.61.226.230',1727721572,'LOG_ADMIN_AUTH_SUCCESS',''),(6933,0,2,0,0,0,'217.61.226.230',1727721585,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"leo1bueno1\";}'),(6934,0,2,0,0,0,'217.61.226.230',1727721590,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"leo1bueno1\";}'),(6935,1,4594,6,40705,0,'185.252.59.3',1727801292,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: España: Normativa sancionadora sistemas informáticos\";}'),(6936,1,868,3,44963,0,'183.82.232.106',1727876393,'LOG_DELETE_POST','a:1:{i:0;s:32:\"Re: drawing a circle with FW_Box\";}'),(6937,1,2,6,44795,0,'217.61.226.230',1727929047,'LOG_DELETE_POST','a:1:{i:0;s:46:\"Re: Capturar pagina html y recuperar resultado\";}'),(6938,1,2,6,44795,0,'217.61.226.230',1727929667,'LOG_POST_EDITED','a:2:{i:0;s:46:\"Re: Capturar pagina html y recuperar resultado\";i:1;s:8:\"cnavarro\";}'),(6939,1,362,16,44965,0,'187.101.46.60',1727962189,'LOG_DELETE_POST','a:1:{i:0;s:50:\"Re: New FTDN September/Septiembre 2024 (FWH 24.09)\";}'),(6940,1,6,3,44971,0,'87.21.224.217',1727971351,'LOG_POST_EDITED','a:2:{i:0;s:23:\"GPF with FW August 2024\";i:1;s:8:\"Maurizio\";}'),(6941,1,6,3,44971,0,'87.21.224.217',1727971428,'LOG_POST_EDITED','a:2:{i:0;s:23:\"GPF with FW August 2024\";i:1;s:8:\"Maurizio\";}'),(6942,1,3731,6,44974,0,'190.101.1.183',1728155233,'LOG_DELETE_TOPIC','a:1:{i:0;s:38:\"XBrowse oChild, bBmpData no funciona ?\";}'),(6943,1,6,3,44977,0,'87.21.224.217',1728234018,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Find Beautiful Womans in your town for night - Authentic Dam\";}'),(6944,1,868,3,44966,0,'183.82.232.106',1728288964,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.09\";}'),(6945,1,2598,3,44983,0,'5.99.149.54',1728376266,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"save data from xbrowse array\";}'),(6946,1,2598,3,44984,0,'5.99.149.54',1728465796,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Print Pixel from oBrw\";}'),(6947,1,2598,3,44984,0,'5.99.149.54',1728465805,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Print Pixel from oBrw\";}'),(6948,1,2598,3,44984,0,'5.99.149.54',1728465819,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"Print Pixel from oBrw\";}'),(6949,1,3593,3,44988,0,'81.241.134.222',1728472345,'LOG_DELETE_POST','a:1:{i:0;s:18:\"Re: pixel on print\";}'),(6950,1,110,6,44993,0,'190.143.247.41',1728510281,'LOG_DELETE_TOPIC','a:1:{i:0;s:21:\"function FW_ISWOW64()\";}'),(6951,1,4428,3,44987,0,'179.250.174.105',1728576740,'LOG_DELETE_POST','a:1:{i:0;s:45:\"Re: focus on folderex navigating between gets\";}'),(6952,1,2598,3,45002,0,'5.99.149.54',1728646522,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: SYSLINK\";}'),(6953,1,2598,3,45006,0,'151.44.190.205',1728765283,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Problem with ArrayToDBF\";}'),(6954,1,4428,3,44894,0,'191.39.143.118',1728790028,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Browse of my ADO Class\";}'),(6955,1,362,3,44966,0,'187.101.106.213',1728918903,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.09\";}'),(6956,1,3976,6,40705,0,'188.26.207.18',1728929784,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: España: Normativa sancionadora sistemas informáticos\";}'),(6957,1,2598,3,45013,0,'5.99.149.54',1728985779,'LOG_DELETE_TOPIC','a:1:{i:0;s:25:\"Xbrowse headers and other\";}'),(6958,1,2598,3,45020,0,'5.99.149.54',1728985986,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"xbrowse recsel numbers\";}'),(6959,1,1880,6,45021,0,'186.137.107.116',1728994526,'LOG_DELETE_TOPIC','a:1:{i:0;s:28:\"maria_Connect (to Mr.Nagues)\";}'),(6960,1,362,3,45014,0,'179.111.76.15',1728999655,'LOG_POST_EDITED','a:2:{i:0;s:15:\"Re: Spinner Get\";i:1;s:14:\"Silvio.Falconi\";}'),(6961,1,2140,6,45012,0,'181.43.35.246',1729018423,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Ayuda compilar 64 bits con FivEdit y BCC7764\";}'),(6962,1,6,6,45012,0,'87.13.236.237',1729105466,'LOG_DELETE_POST','a:1:{i:0;s:48:\"Re: Ayuda compilar 64 bits con FivEdit y BCC7764\";}'),(6963,1,2,6,45000,0,'217.61.226.230',1729127021,'LOG_DELETE_POST','a:1:{i:0;s:29:\"Re: Cambiar Prompt de Mensage\";}'),(6964,3,4068,0,0,4068,'213.4.32.0',1729155418,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:6:\"nicinf\";}'),(6965,1,362,3,44966,0,'179.118.180.113',1729244173,'LOG_DELETE_POST','a:1:{i:0;s:17:\"Re: New FWH 24.09\";}'),(6966,1,362,3,45007,0,'201.95.133.138',1729342660,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: creation dbf with\";i:1;s:11:\"Rick Lipkin\";}'),(6967,1,362,3,45007,0,'201.95.133.138',1729342697,'LOG_POST_EDITED','a:2:{i:0;s:21:\"Re: creation dbf with\";i:1;s:11:\"Rick Lipkin\";}'),(6968,0,2,0,0,0,'217.61.226.230',1729415686,'LOG_ADMIN_AUTH_SUCCESS',''),(6969,0,2,0,0,0,'217.61.226.230',1729415705,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:4:\"fafi\";}'),(6970,1,2,0,0,0,'217.61.226.230',1729415705,'LOG_BAN_USER','a:2:{i:0;s:35:\"Username banned via user management\";i:1;s:4:\"fafi\";}'),(6971,1,2,3,45030,0,'217.61.226.230',1729415734,'LOG_DELETE_TOPIC','a:1:{i:0;s:60:\"Search Prettys Womans from your city for night - Verified Fe\";}'),(6972,1,4594,6,40705,0,'185.252.59.163',1729516067,'LOG_DELETE_POST','a:1:{i:0;s:58:\"Re: España: Normativa sancionadora sistemas informáticos\";}'),(6973,1,2598,3,45038,0,'5.99.149.54',1729594795,'LOG_DELETE_TOPIC','a:1:{i:0;s:19:\"strange calculation\";}'),(6974,1,4428,6,44430,0,'191.137.88.189',1729626583,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: RMChart\";}'),(6975,1,2,3,45037,0,'217.61.226.230',1729694921,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: problem with buttonbar\";i:1;s:7:\"karinha\";}'),(6976,1,2,3,45037,0,'217.61.226.230',1729694936,'LOG_POST_EDITED','a:2:{i:0;s:26:\"Re: problem with buttonbar\";i:1;s:7:\"karinha\";}'),(6977,1,362,3,45045,0,'189.46.148.146',1729777672,'LOG_POST_EDITED','a:2:{i:0;s:41:\"Re: General program technique : on init()\";i:1;s:11:\"Marc Venken\";}'),(6978,1,41,6,45061,0,'186.121.238.172',1730134331,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"Una revision de DBCOMBO\";}'),(6979,1,3593,3,45070,0,'81.241.134.222',1730276366,'LOG_DELETE_POST','a:1:{i:0;s:33:\"Re: Ins from ClipBoard to Xbrowse\";}'),(6980,1,51,3,45073,0,'80.122.88.242',1730360292,'LOG_DELETE_POST','a:1:{i:0;s:31:\"Re: Adjusting the setup program\";}'),(6981,1,92,19,45082,0,'188.77.100.190',1730664492,'LOG_DELETE_POST','a:1:{i:0;s:55:\"Re: VERIFACTU,  criterios (las facturas rectificativas)\";}'),(6982,1,2598,3,45098,0,'5.99.149.54',1730806183,'LOG_DELETE_TOPIC','a:1:{i:0;s:23:\"xbrowse border vertical\";}'),(6983,1,92,6,45099,0,'188.77.100.190',1730833437,'LOG_DELETE_POST','a:1:{i:0;s:27:\"Re: Syswait() - SOLUCIONADO\";}'),(6984,1,41,3,44981,0,'186.121.238.172',1730907823,'LOG_DELETE_POST','a:1:{i:0;s:57:\"Re: How to add 2d barcode to fastreport or fwh/harbour？\";}'),(6985,1,6,3,45086,0,'87.13.236.237',1730968309,'LOG_DELETE_POST','a:1:{i:0;s:21:\"Re: Copy file by mask\";}'),(6986,1,362,6,43670,0,'189.68.255.132',1730992382,'LOG_POST_EDITED','a:2:{i:0;s:40:\"CONTROLAR CLICK SOBRE COLUMNA EN XBROWSE\";i:1;s:7:\"kpidata\";}'),(6987,1,1875,6,45115,0,'181.55.22.128',1731026571,'LOG_DELETE_TOPIC','a:1:{i:0;s:22:\"ERROR hb_CheckSpanMode\";}'),(6988,1,362,6,45113,0,'201.42.90.86',1731076740,'LOG_DELETE_POST','a:1:{i:0;s:25:\"Re: Generar QR para cobro\";}'),(6989,1,1313,6,44430,0,'191.96.5.13',1731097427,'LOG_DELETE_POST','a:1:{i:0;s:11:\"Re: RMChart\";}'),(6990,0,2,0,0,0,'217.61.226.230',1731134751,'LOG_ADMIN_AUTH_SUCCESS',''),(6991,0,2,0,0,0,'217.61.226.230',1731135095,'LOG_CONFIG_EMAIL',''),(6992,1,362,6,45100,0,'189.47.88.248',1731156875,'LOG_POST_EDITED','a:2:{i:0;s:22:\"Re: CREAR PDF CON FILE\";i:1;s:18:\"Adolfredo Martinez\";}'),(6993,1,1875,3,45079,0,'181.129.179.186',1731337919,'LOG_DELETE_POST','a:1:{i:0;s:52:\"Re: how to close downloaded files window in webview2\";}'),(6994,1,2598,3,45133,0,'5.99.149.54',1731408046,'LOG_DELETE_TOPIC','a:1:{i:0;s:14:\"Update aTgroup\";}'),(6995,1,92,3,45134,0,'188.77.100.190',1731421812,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: change color checkboxex on line\";}'),(6996,0,2,0,0,0,'217.61.226.230',1731431641,'LOG_ADMIN_AUTH_SUCCESS',''),(6997,0,2,0,0,0,'217.61.226.230',1731431659,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:4:\"TomH\";}'),(6998,0,2,0,0,0,'217.61.226.230',1731431665,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:4:\"TomH\";}'),(6999,0,2,0,0,0,'217.61.226.230',1731483734,'LOG_ADMIN_AUTH_SUCCESS',''),(7000,0,2,0,0,0,'217.61.226.230',1731483769,'LOG_USER_ACTIVE','a:1:{i:0;s:4:\"TomH\";}'),(7001,3,2,0,0,4895,'217.61.226.230',1731483769,'LOG_USER_ACTIVE_USER',''),(7002,1,51,3,45116,0,'80.122.88.242',1731654962,'LOG_DELETE_POST','a:1:{i:0;s:22:\"Re: cloud or not cloud\";}'),(7003,1,1875,6,45150,0,'181.55.22.128',1731794297,'LOG_DELETE_TOPIC','a:1:{i:0;s:50:\"SETORDER / SORT  de : TArrayData()  o  RowSet(SQL)\";}'),(7004,1,1875,6,45165,0,'181.55.22.128',1732047402,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Soporte a mariaConnect ?\";}'),(7005,1,1875,6,45165,0,'181.55.22.128',1732047494,'LOG_DELETE_POST','a:1:{i:0;s:28:\"Re: Soporte a mariaConnect ?\";}'),(7006,1,2598,3,45166,0,'151.57.129.244',1732058785,'LOG_DELETE_TOPIC','a:1:{i:0;s:20:\"Antonio now stop!!!!\";}'),(7007,3,2255,0,0,2255,'170.238.199.170',1732314533,'LOG_USER_UPDATE_EMAIL','a:3:{i:0;s:7:\"jmsilva\";i:1;s:16:\"saa50@bol.com.br\";i:2;s:20:\"silva.ifsp@gmail.com\";}'),(7008,1,362,6,45202,0,'179.93.31.13',1732896588,'LOG_POST_EDITED','a:2:{i:0;s:52:\"Re: Necesito Crear *. bat para compilar version 2402\";i:1;s:13:\"CarlosFossati\";}'),(7009,1,2598,3,29903,0,'151.19.47.27',1732998960,'LOG_DELETE_TOPIC','a:1:{i:0;s:32:\"Trating class new ( the revenge)\";}'),(7010,1,3176,6,45211,0,'190.97.234.108',1733008753,'LOG_DELETE_TOPIC','a:1:{i:0;s:13:\"Ayuda con API\";}'),(7011,1,47,3,45205,0,'124.120.113.106',1733027515,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Incorrect Font Display\";}'),(7012,1,2598,3,33677,0,'151.19.9.101',1733090046,'LOG_DELETE_TOPIC','a:1:{i:0;s:7:\"trating\";}'),(7013,1,1313,3,45210,0,'187.63.148.78',1733258580,'LOG_DELETE_POST','a:1:{i:0;s:53:\"Re: copy an image from the Windows clipboard - SOLVED\";}'),(7014,1,4428,3,45221,0,'177.51.149.86',1733333940,'LOG_DELETE_POST','a:1:{i:0;s:43:\"Re: Is there exists a delay on oDlg:End() ?\";}'),(7015,1,4428,3,45221,0,'177.51.149.86',1733333950,'LOG_DELETE_TOPIC','a:1:{i:0;s:39:\"Is there exists a delay on oDlg:End() ?\";}'),(7016,1,435,6,44351,0,'201.62.94.39',1733404083,'LOG_DELETE_POST','a:1:{i:0;s:35:\"Re: FWH 24.02 nueva Clase TWebView2\";}'),(7017,1,2598,6,45224,0,'5.99.149.54',1733497334,'LOG_DELETE_TOPIC','a:1:{i:0;s:24:\"Graphics memory problems\";}'),(7018,1,868,3,45235,0,'183.82.232.106',1733894863,'LOG_DELETE_POST','a:1:{i:0;s:26:\"Re: Open XLS without Excel\";}'),(7019,1,2598,3,45250,0,'5.99.149.54',1734349503,'LOG_DELETE_TOPIC','a:1:{i:0;s:33:\"Problem with popmenu on Buttonbar\";}'),(7020,1,1880,6,45217,0,'186.137.102.60',1734524200,'LOG_DELETE_POST','a:1:{i:0;s:34:\"Re: Multihilo - Multithread (duda)\";}'),(7021,3,1363,0,0,1363,'88.1.89.139',1734595611,'LOG_USER_NEW_PASSWORD','a:1:{i:0;s:9:\"alvaro533\";}'),(7022,1,2,6,45255,0,'217.61.226.230',1734726924,'LOG_DELETE_POST','a:1:{i:0;s:56:\"Re: AYUDA PARA COMPILAR EN 64 HBMK2, BORLAND Y HARBOUR64\";}'),(7023,1,2,6,45266,0,'217.61.226.230',1734876662,'LOG_POST_EDITED','a:2:{i:0;s:43:\"Ocultar solo algunos botones de un xbrowser\";i:1;s:15:\"Enrrique Vertiz\";}'),(7024,1,233,3,45268,0,'60.54.10.206',1735056176,'LOG_DELETE_TOPIC','a:1:{i:0;s:35:\"Lib to read banks\' SWIFT MT940 file\";}'),(7025,1,2342,6,45270,0,'79.116.176.27',1735091542,'LOG_DELETE_POST','a:1:{i:0;s:24:\"Re: A toda la familia FW\";}'),(7026,1,362,6,45259,0,'187.101.47.177',1735231774,'LOG_DELETE_POST','a:1:{i:0;s:16:\"Re: get...action\";}'),(7027,0,2,0,0,0,'217.61.226.230',1735333199,'LOG_ADMIN_AUTH_SUCCESS',''),(7028,0,2,0,0,0,'217.61.226.230',1735333212,'LOG_USERS_ADDED','a:2:{i:0;s:16:\"Registered users\";i:1;s:10:\"irvingcruz\";}'),(7029,0,2,0,0,0,'217.61.226.230',1735333216,'LOG_GROUP_REMOVE','a:2:{i:0;s:22:\"Registered COPPA users\";i:1;s:10:\"irvingcruz\";}');
/*!40000 ALTER TABLE `phpbb_log` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_moderator_cache`
--

DROP TABLE IF EXISTS `phpbb_moderator_cache`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_moderator_cache` (
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `username` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `group_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `group_name` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `display_on_index` tinyint(1) unsigned NOT NULL DEFAULT '1',
  KEY `disp_idx` (`display_on_index`),
  KEY `forum_id` (`forum_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_moderator_cache`
--

LOCK TABLES `phpbb_moderator_cache` WRITE;
/*!40000 ALTER TABLE `phpbb_moderator_cache` DISABLE KEYS */;
INSERT INTO `phpbb_moderator_cache` VALUES (20,6,'Enrico Maria Giordano',0,'',1);
/*!40000 ALTER TABLE `phpbb_moderator_cache` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_modules`
--

DROP TABLE IF EXISTS `phpbb_modules`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_modules` (
  `module_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `module_enabled` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `module_display` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `module_basename` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `module_class` varchar(10) COLLATE utf8_bin NOT NULL DEFAULT '',
  `parent_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `left_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `right_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `module_langname` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `module_mode` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `module_auth` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  PRIMARY KEY (`module_id`),
  KEY `left_right_id` (`left_id`,`right_id`),
  KEY `module_enabled` (`module_enabled`),
  KEY `class_left_id` (`module_class`,`left_id`)
) ENGINE=MyISAM AUTO_INCREMENT=196 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_modules`
--

LOCK TABLES `phpbb_modules` WRITE;
/*!40000 ALTER TABLE `phpbb_modules` DISABLE KEYS */;
INSERT INTO `phpbb_modules` VALUES (1,1,1,'','acp',0,1,60,'ACP_CAT_GENERAL','',''),(2,1,1,'','acp',1,4,17,'ACP_QUICK_ACCESS','',''),(3,1,1,'','acp',1,18,39,'ACP_BOARD_CONFIGURATION','',''),(4,1,1,'','acp',1,40,47,'ACP_CLIENT_COMMUNICATION','',''),(5,1,1,'','acp',1,48,59,'ACP_SERVER_CONFIGURATION','',''),(6,1,1,'','acp',0,61,78,'ACP_CAT_FORUMS','',''),(7,1,1,'','acp',6,62,67,'ACP_MANAGE_FORUMS','',''),(8,1,1,'','acp',6,68,77,'ACP_FORUM_BASED_PERMISSIONS','',''),(9,1,1,'','acp',0,79,102,'ACP_CAT_POSTING','',''),(10,1,1,'','acp',9,80,91,'ACP_MESSAGES','',''),(11,1,1,'','acp',9,92,101,'ACP_ATTACHMENTS','',''),(12,1,1,'','acp',0,103,156,'ACP_CAT_USERGROUP','',''),(13,1,1,'','acp',12,104,135,'ACP_CAT_USERS','',''),(14,1,1,'','acp',12,136,143,'ACP_GROUPS','',''),(15,1,1,'','acp',12,144,155,'ACP_USER_SECURITY','',''),(16,1,1,'','acp',0,157,204,'ACP_CAT_PERMISSIONS','',''),(17,1,1,'','acp',16,160,169,'ACP_GLOBAL_PERMISSIONS','',''),(18,1,1,'','acp',16,170,179,'ACP_FORUM_BASED_PERMISSIONS','',''),(19,1,1,'','acp',16,180,189,'ACP_PERMISSION_ROLES','',''),(20,1,1,'','acp',16,190,203,'ACP_PERMISSION_MASKS','',''),(21,1,1,'','acp',0,205,218,'ACP_CAT_STYLES','',''),(22,1,1,'','acp',21,206,209,'ACP_STYLE_MANAGEMENT','',''),(23,1,1,'','acp',21,210,217,'ACP_STYLE_COMPONENTS','',''),(24,1,1,'','acp',0,219,238,'ACP_CAT_MAINTENANCE','',''),(25,1,1,'','acp',24,220,229,'ACP_FORUM_LOGS','',''),(26,1,1,'','acp',24,230,237,'ACP_CAT_DATABASE','',''),(27,1,1,'','acp',0,239,264,'ACP_CAT_SYSTEM','',''),(28,1,1,'','acp',27,240,243,'ACP_AUTOMATION','',''),(29,1,1,'','acp',27,244,255,'ACP_GENERAL_TASKS','',''),(30,1,1,'','acp',27,256,263,'ACP_MODULE_MANAGEMENT','',''),(31,1,1,'','acp',0,265,274,'ACP_CAT_DOT_MODS','',''),(32,1,1,'attachments','acp',3,19,20,'ACP_ATTACHMENT_SETTINGS','attach','acl_a_attach'),(33,1,1,'attachments','acp',11,93,94,'ACP_ATTACHMENT_SETTINGS','attach','acl_a_attach'),(34,1,1,'attachments','acp',11,95,96,'ACP_MANAGE_EXTENSIONS','extensions','acl_a_attach'),(35,1,1,'attachments','acp',11,97,98,'ACP_EXTENSION_GROUPS','ext_groups','acl_a_attach'),(36,1,1,'attachments','acp',11,99,100,'ACP_ORPHAN_ATTACHMENTS','orphan','acl_a_attach'),(37,1,1,'ban','acp',15,145,146,'ACP_BAN_EMAILS','email','acl_a_ban'),(38,1,1,'ban','acp',15,147,148,'ACP_BAN_IPS','ip','acl_a_ban'),(39,1,1,'ban','acp',15,149,150,'ACP_BAN_USERNAMES','user','acl_a_ban'),(40,1,1,'bbcodes','acp',10,81,82,'ACP_BBCODES','bbcodes','acl_a_bbcode'),(41,1,1,'board','acp',3,21,22,'ACP_BOARD_SETTINGS','settings','acl_a_board'),(42,1,1,'board','acp',3,23,24,'ACP_BOARD_FEATURES','features','acl_a_board'),(43,1,1,'board','acp',3,25,26,'ACP_AVATAR_SETTINGS','avatar','acl_a_board'),(44,1,1,'board','acp',3,27,28,'ACP_MESSAGE_SETTINGS','message','acl_a_board'),(45,1,1,'board','acp',10,83,84,'ACP_MESSAGE_SETTINGS','message','acl_a_board'),(46,1,1,'board','acp',3,29,30,'ACP_POST_SETTINGS','post','acl_a_board'),(47,1,1,'board','acp',3,31,32,'ACP_SIGNATURE_SETTINGS','signature','acl_a_board'),(48,1,1,'board','acp',3,33,34,'ACP_REGISTER_SETTINGS','registration','acl_a_board'),(49,1,1,'board','acp',4,41,42,'ACP_AUTH_SETTINGS','auth','acl_a_server'),(50,1,1,'board','acp',4,43,44,'ACP_EMAIL_SETTINGS','email','acl_a_server'),(51,1,1,'board','acp',5,49,50,'ACP_COOKIE_SETTINGS','cookie','acl_a_server'),(52,1,1,'board','acp',5,51,52,'ACP_SERVER_SETTINGS','server','acl_a_server'),(53,1,1,'board','acp',5,53,54,'ACP_SECURITY_SETTINGS','security','acl_a_server'),(54,1,1,'board','acp',5,55,56,'ACP_LOAD_SETTINGS','load','acl_a_server'),(55,1,1,'bots','acp',29,245,246,'ACP_BOTS','bots','acl_a_bots'),(56,1,1,'captcha','acp',3,35,36,'ACP_VC_SETTINGS','visual','acl_a_board'),(57,1,0,'captcha','acp',3,37,38,'ACP_VC_CAPTCHA_DISPLAY','img','acl_a_board'),(58,1,1,'database','acp',26,231,232,'ACP_BACKUP','backup','acl_a_backup'),(59,1,1,'database','acp',26,233,234,'ACP_RESTORE','restore','acl_a_backup'),(60,1,1,'disallow','acp',15,151,152,'ACP_DISALLOW_USERNAMES','usernames','acl_a_names'),(61,1,1,'email','acp',29,247,248,'ACP_MASS_EMAIL','email','acl_a_email && cfg_email_enable'),(62,1,1,'forums','acp',7,63,64,'ACP_MANAGE_FORUMS','manage','acl_a_forum'),(63,1,1,'groups','acp',14,137,138,'ACP_GROUPS_MANAGE','manage','acl_a_group'),(64,1,1,'icons','acp',10,85,86,'ACP_ICONS','icons','acl_a_icons'),(65,1,1,'icons','acp',10,87,88,'ACP_SMILIES','smilies','acl_a_icons'),(66,1,1,'inactive','acp',13,107,108,'ACP_INACTIVE_USERS','list','acl_a_user'),(67,1,1,'jabber','acp',4,45,46,'ACP_JABBER_SETTINGS','settings','acl_a_jabber'),(68,1,1,'language','acp',29,249,250,'ACP_LANGUAGE_PACKS','lang_packs','acl_a_language'),(69,1,1,'logs','acp',25,221,222,'ACP_ADMIN_LOGS','admin','acl_a_viewlogs'),(70,1,1,'logs','acp',25,223,224,'ACP_MOD_LOGS','mod','acl_a_viewlogs'),(71,1,1,'logs','acp',25,225,226,'ACP_USERS_LOGS','users','acl_a_viewlogs'),(72,1,1,'logs','acp',25,227,228,'ACP_CRITICAL_LOGS','critical','acl_a_viewlogs'),(73,1,1,'main','acp',1,2,3,'ACP_INDEX','main',''),(74,1,1,'modules','acp',30,257,258,'ACP','acp','acl_a_modules'),(75,1,1,'modules','acp',30,259,260,'UCP','ucp','acl_a_modules'),(76,1,1,'modules','acp',30,261,262,'MCP','mcp','acl_a_modules'),(77,1,1,'permission_roles','acp',19,181,182,'ACP_ADMIN_ROLES','admin_roles','acl_a_roles && acl_a_aauth'),(78,1,1,'permission_roles','acp',19,183,184,'ACP_USER_ROLES','user_roles','acl_a_roles && acl_a_uauth'),(79,1,1,'permission_roles','acp',19,185,186,'ACP_MOD_ROLES','mod_roles','acl_a_roles && acl_a_mauth'),(80,1,1,'permission_roles','acp',19,187,188,'ACP_FORUM_ROLES','forum_roles','acl_a_roles && acl_a_fauth'),(81,1,1,'permissions','acp',16,158,159,'ACP_PERMISSIONS','intro','acl_a_authusers || acl_a_authgroups || acl_a_viewauth'),(82,1,0,'permissions','acp',20,191,192,'ACP_PERMISSION_TRACE','trace','acl_a_viewauth'),(83,1,1,'permissions','acp',18,171,172,'ACP_FORUM_PERMISSIONS','setting_forum_local','acl_a_fauth && (acl_a_authusers || acl_a_authgroups)'),(84,1,1,'permissions','acp',18,173,174,'ACP_FORUM_MODERATORS','setting_mod_local','acl_a_mauth && (acl_a_authusers || acl_a_authgroups)'),(85,1,1,'permissions','acp',17,161,162,'ACP_USERS_PERMISSIONS','setting_user_global','acl_a_authusers && (acl_a_aauth || acl_a_mauth || acl_a_uauth)'),(86,1,1,'permissions','acp',13,109,110,'ACP_USERS_PERMISSIONS','setting_user_global','acl_a_authusers && (acl_a_aauth || acl_a_mauth || acl_a_uauth)'),(87,1,1,'permissions','acp',18,175,176,'ACP_USERS_FORUM_PERMISSIONS','setting_user_local','acl_a_authusers && (acl_a_mauth || acl_a_fauth)'),(88,1,1,'permissions','acp',13,111,112,'ACP_USERS_FORUM_PERMISSIONS','setting_user_local','acl_a_authusers && (acl_a_mauth || acl_a_fauth)'),(89,1,1,'permissions','acp',17,163,164,'ACP_GROUPS_PERMISSIONS','setting_group_global','acl_a_authgroups && (acl_a_aauth || acl_a_mauth || acl_a_uauth)'),(90,1,1,'permissions','acp',14,139,140,'ACP_GROUPS_PERMISSIONS','setting_group_global','acl_a_authgroups && (acl_a_aauth || acl_a_mauth || acl_a_uauth)'),(91,1,1,'permissions','acp',18,177,178,'ACP_GROUPS_FORUM_PERMISSIONS','setting_group_local','acl_a_authgroups && (acl_a_mauth || acl_a_fauth)'),(92,1,1,'permissions','acp',14,141,142,'ACP_GROUPS_FORUM_PERMISSIONS','setting_group_local','acl_a_authgroups && (acl_a_mauth || acl_a_fauth)'),(93,1,1,'permissions','acp',17,165,166,'ACP_ADMINISTRATORS','setting_admin_global','acl_a_aauth && (acl_a_authusers || acl_a_authgroups)'),(94,1,1,'permissions','acp',17,167,168,'ACP_GLOBAL_MODERATORS','setting_mod_global','acl_a_mauth && (acl_a_authusers || acl_a_authgroups)'),(95,1,1,'permissions','acp',20,193,194,'ACP_VIEW_ADMIN_PERMISSIONS','view_admin_global','acl_a_viewauth'),(96,1,1,'permissions','acp',20,195,196,'ACP_VIEW_USER_PERMISSIONS','view_user_global','acl_a_viewauth'),(97,1,1,'permissions','acp',20,197,198,'ACP_VIEW_GLOBAL_MOD_PERMISSIONS','view_mod_global','acl_a_viewauth'),(98,1,1,'permissions','acp',20,199,200,'ACP_VIEW_FORUM_MOD_PERMISSIONS','view_mod_local','acl_a_viewauth'),(99,1,1,'permissions','acp',20,201,202,'ACP_VIEW_FORUM_PERMISSIONS','view_forum_local','acl_a_viewauth'),(100,1,1,'php_info','acp',29,251,252,'ACP_PHP_INFO','info','acl_a_phpinfo'),(101,1,1,'profile','acp',13,113,114,'ACP_CUSTOM_PROFILE_FIELDS','profile','acl_a_profile'),(102,1,1,'prune','acp',7,65,66,'ACP_PRUNE_FORUMS','forums','acl_a_prune'),(103,1,1,'prune','acp',15,153,154,'ACP_PRUNE_USERS','users','acl_a_userdel'),(104,1,1,'ranks','acp',13,115,116,'ACP_MANAGE_RANKS','ranks','acl_a_ranks'),(105,1,1,'reasons','acp',29,253,254,'ACP_MANAGE_REASONS','main','acl_a_reasons'),(106,1,1,'search','acp',5,57,58,'ACP_SEARCH_SETTINGS','settings','acl_a_search'),(107,1,1,'search','acp',26,235,236,'ACP_SEARCH_INDEX','index','acl_a_search'),(108,1,1,'styles','acp',22,207,208,'ACP_STYLES','style','acl_a_styles'),(109,1,1,'styles','acp',23,211,212,'ACP_TEMPLATES','template','acl_a_styles'),(110,1,1,'styles','acp',23,213,214,'ACP_THEMES','theme','acl_a_styles'),(111,1,1,'styles','acp',23,215,216,'ACP_IMAGESETS','imageset','acl_a_styles'),(112,1,1,'update','acp',28,241,242,'ACP_VERSION_CHECK','version_check','acl_a_board'),(113,1,1,'users','acp',13,105,106,'ACP_MANAGE_USERS','overview','acl_a_user'),(114,1,0,'users','acp',13,117,118,'ACP_USER_FEEDBACK','feedback','acl_a_user'),(115,1,0,'users','acp',13,119,120,'ACP_USER_PROFILE','profile','acl_a_user'),(116,1,0,'users','acp',13,121,122,'ACP_USER_PREFS','prefs','acl_a_user'),(117,1,0,'users','acp',13,123,124,'ACP_USER_AVATAR','avatar','acl_a_user'),(118,1,0,'users','acp',13,125,126,'ACP_USER_RANK','rank','acl_a_user'),(119,1,0,'users','acp',13,127,128,'ACP_USER_SIG','sig','acl_a_user'),(120,1,0,'users','acp',13,129,130,'ACP_USER_GROUPS','groups','acl_a_user && acl_a_group'),(121,1,0,'users','acp',13,131,132,'ACP_USER_PERM','perm','acl_a_user && acl_a_viewauth'),(122,1,0,'users','acp',13,133,134,'ACP_USER_ATTACH','attach','acl_a_user'),(123,1,1,'words','acp',10,89,90,'ACP_WORDS','words','acl_a_words'),(124,1,1,'users','acp',2,5,6,'ACP_MANAGE_USERS','overview','acl_a_user'),(125,1,1,'groups','acp',2,7,8,'ACP_GROUPS_MANAGE','manage','acl_a_group'),(126,1,1,'forums','acp',2,9,10,'ACP_MANAGE_FORUMS','manage','acl_a_forum'),(127,1,1,'logs','acp',2,11,12,'ACP_MOD_LOGS','mod','acl_a_viewlogs'),(128,1,1,'bots','acp',2,13,14,'ACP_BOTS','bots','acl_a_bots'),(129,1,1,'php_info','acp',2,15,16,'ACP_PHP_INFO','info','acl_a_phpinfo'),(130,1,1,'permissions','acp',8,69,70,'ACP_FORUM_PERMISSIONS','setting_forum_local','acl_a_fauth && (acl_a_authusers || acl_a_authgroups)'),(131,1,1,'permissions','acp',8,71,72,'ACP_FORUM_MODERATORS','setting_mod_local','acl_a_mauth && (acl_a_authusers || acl_a_authgroups)'),(132,1,1,'permissions','acp',8,73,74,'ACP_USERS_FORUM_PERMISSIONS','setting_user_local','acl_a_authusers && (acl_a_mauth || acl_a_fauth)'),(133,1,1,'permissions','acp',8,75,76,'ACP_GROUPS_FORUM_PERMISSIONS','setting_group_local','acl_a_authgroups && (acl_a_mauth || acl_a_fauth)'),(134,1,1,'','mcp',0,1,10,'MCP_MAIN','',''),(135,1,1,'','mcp',0,11,18,'MCP_QUEUE','',''),(136,1,1,'','mcp',0,19,26,'MCP_REPORTS','',''),(137,1,1,'','mcp',0,27,32,'MCP_NOTES','',''),(138,1,1,'','mcp',0,33,42,'MCP_WARN','',''),(139,1,1,'','mcp',0,43,50,'MCP_LOGS','',''),(140,1,1,'','mcp',0,51,58,'MCP_BAN','',''),(141,1,1,'ban','mcp',140,52,53,'MCP_BAN_USERNAMES','user','acl_m_ban'),(142,1,1,'ban','mcp',140,54,55,'MCP_BAN_IPS','ip','acl_m_ban'),(143,1,1,'ban','mcp',140,56,57,'MCP_BAN_EMAILS','email','acl_m_ban'),(144,1,1,'logs','mcp',139,44,45,'MCP_LOGS_FRONT','front','acl_m_ || aclf_m_'),(145,1,1,'logs','mcp',139,46,47,'MCP_LOGS_FORUM_VIEW','forum_logs','acl_m_,$id'),(146,1,1,'logs','mcp',139,48,49,'MCP_LOGS_TOPIC_VIEW','topic_logs','acl_m_,$id'),(147,1,1,'main','mcp',134,2,3,'MCP_MAIN_FRONT','front',''),(148,1,1,'main','mcp',134,4,5,'MCP_MAIN_FORUM_VIEW','forum_view','acl_m_,$id'),(149,1,1,'main','mcp',134,6,7,'MCP_MAIN_TOPIC_VIEW','topic_view','acl_m_,$id'),(150,1,1,'main','mcp',134,8,9,'MCP_MAIN_POST_DETAILS','post_details','acl_m_,$id || (!$id && aclf_m_)'),(151,1,1,'notes','mcp',137,28,29,'MCP_NOTES_FRONT','front',''),(152,1,1,'notes','mcp',137,30,31,'MCP_NOTES_USER','user_notes',''),(153,1,1,'queue','mcp',135,12,13,'MCP_QUEUE_UNAPPROVED_TOPICS','unapproved_topics','aclf_m_approve'),(154,1,1,'queue','mcp',135,14,15,'MCP_QUEUE_UNAPPROVED_POSTS','unapproved_posts','aclf_m_approve'),(155,1,1,'queue','mcp',135,16,17,'MCP_QUEUE_APPROVE_DETAILS','approve_details','acl_m_approve,$id || (!$id && aclf_m_approve)'),(156,1,1,'reports','mcp',136,20,21,'MCP_REPORTS_OPEN','reports','aclf_m_report'),(157,1,1,'reports','mcp',136,22,23,'MCP_REPORTS_CLOSED','reports_closed','aclf_m_report'),(158,1,1,'reports','mcp',136,24,25,'MCP_REPORT_DETAILS','report_details','acl_m_report,$id || (!$id && aclf_m_report)'),(159,1,1,'warn','mcp',138,34,35,'MCP_WARN_FRONT','front','aclf_m_warn'),(160,1,1,'warn','mcp',138,36,37,'MCP_WARN_LIST','list','aclf_m_warn'),(161,1,1,'warn','mcp',138,38,39,'MCP_WARN_USER','warn_user','aclf_m_warn'),(162,1,1,'warn','mcp',138,40,41,'MCP_WARN_POST','warn_post','acl_m_warn && acl_f_read,$id'),(163,1,1,'','ucp',0,1,12,'UCP_MAIN','',''),(164,1,1,'','ucp',0,13,22,'UCP_PROFILE','',''),(165,1,1,'','ucp',0,23,30,'UCP_PREFS','',''),(166,1,1,'','ucp',0,31,42,'UCP_PM','',''),(167,1,1,'','ucp',0,43,48,'UCP_USERGROUPS','',''),(168,1,1,'','ucp',0,49,54,'UCP_ZEBRA','',''),(169,1,1,'attachments','ucp',163,10,11,'UCP_MAIN_ATTACHMENTS','attachments','acl_u_attach'),(170,1,1,'groups','ucp',167,44,45,'UCP_USERGROUPS_MEMBER','membership',''),(171,1,1,'groups','ucp',167,46,47,'UCP_USERGROUPS_MANAGE','manage',''),(172,1,1,'main','ucp',163,2,3,'UCP_MAIN_FRONT','front',''),(173,1,1,'main','ucp',163,4,5,'UCP_MAIN_SUBSCRIBED','subscribed',''),(174,1,1,'main','ucp',163,6,7,'UCP_MAIN_BOOKMARKS','bookmarks','cfg_allow_bookmarks'),(175,1,1,'main','ucp',163,8,9,'UCP_MAIN_DRAFTS','drafts',''),(176,1,0,'pm','ucp',166,32,33,'UCP_PM_VIEW','view','cfg_allow_privmsg'),(177,1,1,'pm','ucp',166,34,35,'UCP_PM_COMPOSE','compose','cfg_allow_privmsg'),(178,1,1,'pm','ucp',166,36,37,'UCP_PM_DRAFTS','drafts','cfg_allow_privmsg'),(179,1,1,'pm','ucp',166,38,39,'UCP_PM_OPTIONS','options','cfg_allow_privmsg'),(180,1,0,'pm','ucp',166,40,41,'UCP_PM_POPUP_TITLE','popup','cfg_allow_privmsg'),(181,1,1,'prefs','ucp',165,24,25,'UCP_PREFS_PERSONAL','personal',''),(182,1,1,'prefs','ucp',165,26,27,'UCP_PREFS_POST','post',''),(183,1,1,'prefs','ucp',165,28,29,'UCP_PREFS_VIEW','view',''),(184,1,1,'profile','ucp',164,14,15,'UCP_PROFILE_PROFILE_INFO','profile_info',''),(185,1,1,'profile','ucp',164,16,17,'UCP_PROFILE_SIGNATURE','signature',''),(186,1,1,'profile','ucp',164,18,19,'UCP_PROFILE_AVATAR','avatar',''),(187,1,1,'profile','ucp',164,20,21,'UCP_PROFILE_REG_DETAILS','reg_details',''),(188,1,1,'zebra','ucp',168,50,51,'UCP_ZEBRA_FRIENDS','friends',''),(189,1,1,'zebra','ucp',168,52,53,'UCP_ZEBRA_FOES','foes',''),(190,1,1,'','acp',31,266,273,'ACP_MOBIQUO','',''),(193,1,1,'mobiquo','acp',190,267,268,'ACP_MOBIQUO_SETTINGS','mobiquo','acl_a_board'),(194,1,1,'mobiquo','acp',190,269,270,'ACP_TAPATALK_REBRANDING','rebranding','acl_a_board'),(195,1,1,'mobiquo','acp',190,271,272,'ACP_MOBIQUO_REGISTER_SETTINGS','register','acl_a_board');
/*!40000 ALTER TABLE `phpbb_modules` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_poll_options`
--

DROP TABLE IF EXISTS `phpbb_poll_options`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_poll_options` (
  `poll_option_id` tinyint(4) NOT NULL DEFAULT '0',
  `topic_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `poll_option_text` text COLLATE utf8_bin NOT NULL,
  `poll_option_total` mediumint(8) unsigned NOT NULL DEFAULT '0',
  KEY `poll_opt_id` (`poll_option_id`),
  KEY `topic_id` (`topic_id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_poll_options`
--

LOCK TABLES `phpbb_poll_options` WRITE;
/*!40000 ALTER TABLE `phpbb_poll_options` DISABLE KEYS */;
INSERT INTO `phpbb_poll_options` VALUES (1,210,'Harbour',13),(1,11082,'si',10),(1,3315,'Si',17),(1,215,'Yes',8),(1,7202,'FTP',1),(1,9187,'Pelles C',18),(2,9187,'Workshop',16),(2,210,'xHarbour',16),(2,11082,'no',3),(2,3315,'No',2),(2,215,'No',1),(2,7202,'EMAIL',0),(3,9187,'Other',1),(3,3315,'Realmente no me importa, quiero mis previews como estan',1),(3,215,'Maybe',2),(3,7202,'NETBIOS',1),(4,3315,'soy usuario de xharbour y lo uso gratis porqué debería pagar por una herramienta así',1),(4,7202,'HTTP',0),(5,7202,'Modelo Cliente/Servidor',6),(1,30387,'Not interested',0),(2,30387,'Maybe I may use it in the future',8),(3,30387,'A usefull tool that I plan to use',11),(4,30387,'Very interested',14),(1,30388,'No me interesa',0),(2,30388,'Tal vez lo use en el futuro',5),(3,30388,'Una herramienta que pienso usar',17),(4,30388,'Muy interesante',10),(1,37723,'Ja',0),(2,37723,'Nein',0);
/*!40000 ALTER TABLE `phpbb_poll_options` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_poll_votes`
--

DROP TABLE IF EXISTS `phpbb_poll_votes`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_poll_votes` (
  `topic_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `poll_option_id` tinyint(4) NOT NULL DEFAULT '0',
  `vote_user_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `vote_user_ip` varchar(40) COLLATE utf8_bin NOT NULL DEFAULT '',
  KEY `topic_id` (`topic_id`),
  KEY `vote_user_id` (`vote_user_id`),
  KEY `vote_user_ip` (`vote_user_ip`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_poll_votes`
--

LOCK TABLES `phpbb_poll_votes` WRITE;
/*!40000 ALTER TABLE `phpbb_poll_votes` DISABLE KEYS */;
INSERT INTO `phpbb_poll_votes` VALUES (210,127,2,'80.58.2.107'),(210,127,185,'200.87.83.50'),(210,127,61,'201.217.147.158'),(210,127,101,'200.28.122.59'),(210,127,38,'87.202.35.79'),(210,127,17,'81.41.214.168'),(210,127,23,'80.58.44.235'),(210,127,88,'82.150.2.20'),(210,127,21,'81.38.234.65'),(210,127,579,'148.223.141.242'),(210,127,24,'80.58.33.109'),(210,127,12,'200.88.33.169'),(210,127,106,'80.105.201.36'),(210,127,18,'200.67.188.236'),(210,127,53,'200.66.175.186'),(210,127,252,'201.140.20.84'),(210,127,43,'201.144.18.150'),(210,127,1,'200.65.138.155'),(210,127,107,'80.58.24.107'),(210,127,201,'201.246.152.65'),(210,127,71,'200.35.79.50'),(210,127,52,'201.235.155.110'),(210,127,199,'209.161.115.254'),(210,127,16,'200.64.60.94'),(210,127,5,'80.58.41.235'),(210,127,93,'201.152.249.52'),(210,127,294,'201.250.196.241'),(215,127,69,'65.92.154.253'),(215,127,31,'195.182.84.105'),(215,127,2,'80.58.2.107'),(215,127,3,'82.124.244.11'),(215,127,88,'82.150.2.20'),(215,127,467,'217.37.54.49'),(215,127,35,'65.188.6.143'),(215,127,150,'62.15.120.84'),(215,127,58,'84.149.202.102'),(215,127,143,'24.119.1.160'),(215,127,19,'217.153.83.2'),(3315,127,141,'201.152.251.227'),(3315,127,53,'201.137.106.232'),(3315,127,57,'83.56.200.168'),(3315,127,138,'200.67.30.7'),(3315,127,12,'200.88.146.23'),(3315,127,295,'201.222.154.210'),(3315,127,424,'200.67.147.201'),(3315,127,21,'81.172.121.225'),(3315,127,439,'190.0.138.188'),(3315,127,61,'201.217.164.1'),(3315,127,519,'83.40.41.25'),(3315,127,278,'200.72.147.140'),(3315,127,579,'148.223.141.242'),(3315,127,121,'201.154.79.240'),(3315,127,496,'200.107.36.176'),(3315,127,422,'195.8.13.76'),(3315,127,37,'201.230.20.161'),(3315,127,376,'200.48.229.226'),(3315,127,179,'200.24.221.138'),(3315,127,328,'201.216.155.62'),(3315,127,171,'71.232.193.197'),(7202,127,598,'200.75.105.42'),(7202,127,78,'190.40.224.180'),(7202,127,57,'80.58.205.40'),(7202,127,527,'83.35.20.189'),(7202,127,106,'85.34.123.173'),(7202,127,89,'213.21.136.60'),(7202,127,431,'190.142.49.2'),(7202,127,54,'189.132.118.9'),(9187,127,956,'200.222.21.2'),(9187,127,103,'189.12.229.204'),(9187,127,6,'82.57.159.99'),(9187,127,2,'87.218.146.240'),(9187,127,384,'189.23.199.138'),(9187,127,156,'201.244.240.107'),(9187,127,54,'189.132.94.139'),(9187,127,370,'88.33.43.186'),(9187,127,362,'200.158.18.106'),(9187,127,43,'189.188.13.92'),(9187,127,179,'201.217.100.136'),(9187,127,1146,'217.127.105.137'),(9187,127,78,'190.43.178.59'),(9187,127,936,'200.6.249.100'),(9187,127,46,'217.168.114.212'),(9187,127,582,'200.117.82.254'),(9187,127,533,'83.46.207.92'),(9187,127,106,'85.34.123.173'),(9187,127,1201,'200.90.17.154'),(9187,127,644,'201.253.76.69'),(9187,127,39,'201.220.103.7'),(9187,127,348,'190.81.59.69'),(9187,127,396,'200.71.186.108'),(9187,127,163,'87.4.232.132'),(9187,127,456,'217.127.39.57'),(9187,127,308,'84.148.25.150'),(9187,127,1236,'201.22.71.169'),(9187,127,935,'200.62.78.153'),(9187,127,267,'189.12.136.118'),(9187,127,217,'200.159.120.34'),(9187,127,415,'190.159.12.23'),(9187,127,119,'217.168.114.224'),(9187,127,987,'189.133.21.146'),(9187,127,382,'91.56.81.5'),(11082,127,396,'200.71.177.2'),(11082,127,37,'201.230.208.4'),(11082,127,936,'69.79.114.69'),(11082,127,935,'200.62.120.112'),(11082,127,103,'200.253.153.81'),(11082,127,1106,'190.135.152.52'),(11082,127,507,'189.161.20.141'),(11082,127,456,'217.127.39.57'),(11082,127,913,'201.103.75.125'),(11082,127,54,'189.132.98.139'),(11082,127,89,'213.21.136.60'),(11082,127,316,'213.97.245.163'),(11082,127,978,'201.243.165.126'),(9187,2,171,'76.119.132.81'),(210,2,644,'190.30.121.241'),(210,2,1072,'200.86.43.201'),(30387,3,2,'188.84.79.128'),(30388,3,2,'188.84.79.128'),(30388,4,41,'181.177.163.227'),(30387,2,233,'175.143.131.167'),(30388,2,121,'187.232.110.65'),(30387,2,3115,'59.90.110.142'),(30388,2,3115,'59.90.110.142'),(30387,4,9,'188.78.60.71'),(30388,4,9,'188.78.60.71'),(30387,4,80,'113.165.167.205'),(30387,3,195,'141.255.47.212'),(30388,4,177,'194.30.62.6'),(30387,4,177,'194.30.62.6'),(30387,4,89,'2.113.68.153'),(30388,3,1535,'83.38.59.55'),(30387,3,1526,'134.3.35.52'),(30388,4,54,'189.229.4.122'),(30388,3,12,'179.52.65.242'),(30387,3,12,'179.52.65.242'),(30387,4,267,'200.217.139.242'),(30388,3,456,'217.127.39.57'),(30388,4,490,'87.221.83.160'),(30387,2,35,'75.183.152.11'),(30387,3,388,'139.192.90.195'),(30388,3,105,'190.151.50.90'),(30388,4,267,'200.217.139.242'),(30387,3,2604,'89.144.199.248'),(30387,4,6,'87.6.234.212'),(30388,4,39,'190.217.149.74'),(30388,2,46,'41.74.134.8'),(30387,4,343,'50.194.160.25'),(30388,2,21,'79.109.115.158'),(30387,3,1474,'189.143.204.201'),(30388,3,2342,'87.216.164.51'),(30387,2,163,'79.16.10.122'),(30388,3,179,'190.152.234.155'),(30387,3,179,'190.152.234.155'),(30388,3,1397,'190.199.125.222'),(30388,2,37,'190.232.163.104'),(30387,3,1060,'85.141.142.161'),(30387,2,3,'90.50.108.39'),(30388,3,78,'190.232.179.34'),(30388,3,1195,'186.95.181.185'),(30387,2,2532,'208.65.22.195'),(30388,3,936,'186.151.61.177'),(30387,3,103,'201.76.129.4'),(30388,3,103,'201.76.129.4'),(30388,3,1640,'186.27.192.239'),(30387,2,2538,'190.202.82.99'),(30388,4,294,'190.178.14.192'),(30388,3,1794,'80.32.19.89'),(30387,4,161,'84.195.184.122'),(30388,4,292,'200.8.227.8'),(30388,3,83,'83.56.39.178'),(30388,3,1814,'186.103.145.171'),(30388,3,1313,'200.146.119.59'),(30387,3,1193,'111.249.148.231'),(30387,4,1011,'180.191.106.2'),(30388,4,644,'190.111.244.227'),(30387,4,1146,'217.127.105.137'),(30387,4,47,'58.11.81.28'),(30387,2,171,'76.24.179.252'),(30387,4,86,'84.193.22.82'),(30387,4,689,'191.250.106.153'),(30387,4,210,'213.225.7.84');
/*!40000 ALTER TABLE `phpbb_poll_votes` ENABLE KEYS */;
UNLOCK TABLES;

--
-- Table structure for table `phpbb_posts`
--

DROP TABLE IF EXISTS `phpbb_posts`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `phpbb_posts` (
  `post_id` mediumint(8) unsigned NOT NULL AUTO_INCREMENT,
  `topic_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `forum_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `poster_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `icon_id` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `poster_ip` varchar(40) COLLATE utf8_bin NOT NULL DEFAULT '',
  `post_time` int(11) unsigned NOT NULL DEFAULT '0',
  `post_approved` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `post_reported` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `enable_bbcode` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `enable_smilies` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `enable_magic_url` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `enable_sig` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `post_username` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `post_subject` varchar(255) CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL DEFAULT '',
  `post_text` mediumtext CHARACTER SET utf8 COLLATE utf8_unicode_ci NOT NULL,
  `post_checksum` varchar(32) COLLATE utf8_bin NOT NULL DEFAULT '',
  `post_attachment` tinyint(1) unsigned NOT NULL DEFAULT '0',
  `bbcode_bitfield` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `bbcode_uid` varchar(8) COLLATE utf8_bin NOT NULL DEFAULT '',
  `post_postcount` tinyint(1) unsigned NOT NULL DEFAULT '1',
  `post_edit_time` int(11) unsigned NOT NULL DEFAULT '0',
  `post_edit_reason` varchar(255) COLLATE utf8_bin NOT NULL DEFAULT '',
  `post_edit_user` mediumint(8) unsigned NOT NULL DEFAULT '0',
  `post_edit_count` smallint(4) unsigned NOT NULL DEFAULT '0',
  `post_edit_locked` tinyint(1) unsigned NOT NULL DEFAULT '0',
  PRIMARY KEY (`post_id`),
  KEY `forum_id` (`forum_id`),
  KEY `topic_id` (`topic_id`),
  KEY `poster_ip` (`poster_ip`),
  KEY `poster_id` (`poster_id`),
  KEY `post_approved` (`post_approved`),
  KEY `tid_post_time` (`topic_id`,`post_time`),
  FULLTEXT KEY `post_subject` (`post_subject`),
  FULLTEXT KEY `post_text` (`post_text`),
  FULLTEXT KEY `post_content` (`post_subject`,`post_text`)
) ENGINE=MyISAM AUTO_INCREMENT=276760 DEFAULT CHARSET=utf8 COLLATE=utf8_bin;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `phpbb_posts`
--

LOCK TABLES `phpbb_posts` WRITE;
/*!40000 ALTER TABLE `phpbb_posts` DISABLE KEYS */;
INSERT INTO `phpbb_posts` VALUES (2,2,1,2,0,'80.58.2.107',1128623099,1,0,1,1,1,0,'','Welcome to the new FiveTech Software forums','Hello everybody,\n\nWe do expect that these new forums will provide a much better service to the FiveWin users community.\n\nregards,\n\nAntonio Linares\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','xtrb8sll',1,1128654748,'',2,1,0),(3,3,3,2,0,'80.58.2.107',1128623186,1,0,1,1,1,0,'','Welcome to the new FiveTech Software forums','Hello everybody, \n\nWe do expect that these new forums will provide a much better service to the FiveWin users community. \n\nregards, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','2czu37xb',1,1128654783,'',2,1,0),(4,4,4,2,0,'80.58.2.107',1128623472,1,0,1,1,1,0,'','Welcome to the new FiveTech Software forums','Hello everybody, \n\nWe do expect that these new forums will provide a much better service to the FiveWin users community. \n\nregards, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','hpdike3h',1,0,'',2,0,0),(5,5,5,2,0,'80.58.2.107',1128623628,1,0,1,1,1,0,'','Welcome to the new FiveTech Software forums','Hello everybody, \n\nWe do expect that these new forums will provide a much better service to the FiveWin users community. \n\nregards, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','35zyxmi2',1,0,'',2,0,0),(7,7,11,2,0,'80.58.2.107',1128624052,1,0,1,1,1,0,'','Welcome to the new FiveTech Software forums','Hello everybody, \n\nWe do expect that these new forums will provide a much better service to the FiveWin users community. \n\nregards, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','3v4psj8k',1,0,'',2,0,0),(8,8,2,2,0,'80.58.2.107',1128624149,1,0,1,1,1,0,'','Bienvenidos a los foros de FiveTech Software','Hola a todos,\n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin.\n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','hp6gz0jw',1,1128654699,'',2,1,0),(10,10,6,2,0,'80.58.2.107',1128624262,1,0,1,1,1,0,'','Bienvenidos a los foros de FiveTech Software','Hola a todos, \n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin. \n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','ej95kjz6',1,1128654807,'',2,1,0),(11,11,7,2,0,'80.58.2.107',1128624302,1,0,1,1,1,0,'','Bienvenidos a los foros de FiveTech Software','Hola a todos, \n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin. \n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','2o9a7jkh',1,0,'',2,0,0),(12,12,8,2,0,'80.58.2.107',1128624336,1,0,1,1,1,0,'','Bienvenidos a los foros de FiveTech Software','Hola a todos, \n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin. \n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','1gj33wl0',1,0,'',2,0,0),(14,14,12,2,0,'80.58.2.107',1128624411,1,0,1,1,1,0,'','Bienvenidos a los foros de FiveTech Software','Hola a todos, \n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin. \n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','1tkpooz5',1,0,'',2,0,0),(16,3,3,6,0,'82.59.51.16',1128630142,1,0,0,1,1,0,'','','Hi Antonio, here I am!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nEMG','',0,'','6c0pv38c',1,0,'',6,0,0),(17,2,1,1,0,'81.44.159.224',1128630493,1,0,1,1,1,0,'','','Congratulations, with adsl widely used these days, this hmtl based service seems much more usefull for all of us.\n\nthanks!  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','f17jm26p',1,0,'',1,0,0),(18,10,6,7,0,'200.79.147.91',1128632939,1,0,1,1,1,0,'','','porque el cambio Antonio?\n\nMauricio Bernal','',0,'','2vxwbtcz',1,0,'',7,0,0),(19,16,2,9,0,'62.174.202.39',1128636145,1,0,1,1,1,0,'','Folder de Folder','Antonio, muchas gracias por tu ayuda. Ahora funciona estupendamente.\n\nUn saludo\n\nManuel','',0,'','1rg11fe9',1,0,'',9,0,0),(20,8,2,10,0,'85.155.132.205',1128637215,1,0,1,1,1,0,'','Esto es otra cosa Antonio','<!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> Esto es otra cosa Antonio. <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->  Creo que tenemos que [u:14rsufn2]felicitarnos [/u:14rsufn2] todos al haber puesto, a disposición de la comunidad FiveWin, esta nueva forma más amigable de comunicarnos desde cualquier parte del mundo.\nSaludos','',0,'AQ==','14rsufn2',1,0,'',10,0,0),(21,10,6,2,0,'80.58.2.107',1128651416,1,0,1,1,1,0,'','','Mauricio,\n\nHay muchas razones. Algunas de ellas son que las empresas de \"hosting\" no dan servicio de news basadas en NNTP, mientras que sí dan facilidades para usar MySQL y PHP (los que usa estos foros). Así podemos tener todos nuestros servicios alojados en un host único.\n\nPor otra parte, este sistema permite incluir publicidad de la cual se consiguen unos ingresos que revertiran en ofrecer más servicios, gratificar a los usuarios que más colaboran, etc.\n\nLa idea es que lo usemos por un tiempo y veamos si somos capaces de acostumbrarnos  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  \n\nsaludos,\n\nAntonio','',0,'AQ==','28i0f7yl',1,0,'',2,0,0),(22,16,2,2,0,'80.58.2.107',1128651524,1,0,1,1,1,0,'','','Manuel,\n\nMe alegro que hayamos localizado y solucionado el problema.\n\nsaludos,\n\nAntonio','',0,'AQ==','32uu55z3',1,0,'',2,0,0),(23,17,3,1,0,'201.230.108.70',1128658744,1,0,1,1,1,0,'Willi','Hi','Hola todos,,,, de nuevo por aqui...\nSalu2... Willi Quintana','',0,'AQ==','179jhf2v',1,0,'',1,0,0),(24,10,6,18,0,'201.129.2.108',1128663028,1,0,1,1,1,1,'','','eh , Antonio , suerte con este nuevo servicio.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AQ==','v3fdkm7o',1,0,'',18,0,0),(25,10,6,2,0,'80.58.2.107',1128663597,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:3sjol6tk]eh , Antonio , suerte con este nuevo servicio.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:3sjol6tk]\n\nGracias Vikthor, confiemos en que sea de más utilidad para todos.','',0,'gA==','3sjol6tk',1,0,'',2,0,0),(27,3,3,19,0,'217.153.83.2',1128667147,1,0,1,1,1,0,'','','Here I am\nRegards Eugeniusz','',0,'gA==','keqjiw7m',1,0,'',19,0,0),(28,19,2,1,0,'80.58.4.237',1128669640,1,0,1,1,1,0,'javi iglesias','ayuda para un novato','Hola,\n\nTengo una aplicación echa en clipper 5.2a, y estoy interesado en pasarla a\nentorno windows, He descargado la version 1.92 junto con el link de la\npagina de fivetech, para hacer pruebas  \nHe compilado el tutor01.prg con el build.bat y luego el linkado\ncon el link, cuando me pide run file lo dejo en blanco, list file igual,\nlibraries igual, definitions file lo mismo.\nMe saca dos errores L2029 MSGINFO, SET3DLOOK unresolved external\n\nCual es el problema y como se soluciona.\n\nGracias por vuestro tiempo y\nPerdonad mi ignoracia de novato\n\n(Ya habreis leido este mensaje en las news)','',0,'gA==','5wfrtdi8',1,0,'',1,0,0),(29,20,3,1,0,'80.58.14.107',1128670123,1,0,1,1,1,0,'Manuel Barranco','error de protección general','Hola\n\n\n¿ Alguien utiliza C3 + fwC3 ?\n\nTengo un problema :\n\nLas aplicaciones funcionan bien, sin fallos, pero al finalizar las aplicaciónes\naparece la mayoria de las veces el siguiente mensaje  \"error de protección General\", sin mas datos .\n\n¿ Alguien sabe a que se puede deber ? , ¿ alguna utilidad para depurar el\nerror ?\n\nUn Saludo\n\nManuel Barranco','',0,'gA==','1hecds54',1,0,'',1,0,0),(30,21,6,1,0,'80.58.14.107',1128670262,1,0,1,1,1,0,'Manuel barranco','Error de protección genereal','Hola\n\n¿ Alguien utiliza C3 + fwC3 ?\n\nTengo un problema :\n\nLas aplicaciones funcionan bien, sin fallos, pero al finalizar las aplicaciónes\naparece la mayoria de las veces el siguiente mensaje \"error de protección General\", sin mas datos .\n\n¿ Alguien sabe a que se puede deber ? , ¿ alguna utilidad para depurar el\nerror ?\n\nUn Saludo\n\nManuel Barranco','',0,'gA==','1vkq48v4',1,0,'',1,0,0),(31,10,6,1,0,'80.58.35.235',1128670785,1,0,1,1,1,0,'thefull','Re: Bienvenidos a los foros de FiveTech Software','[quote=&quot;Antonio Linares&quot;:3o90z737]Hola a todos, \n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin. \n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->[/quote:3o90z737]\n\nBueno, yo estaba mas a gusto con la News, puesto que no tengo que estar\nconectado para buscar una determinada informacion, pero , si crees conveniente este cambio, y crees que es a mejor, pues por probar que no quede <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nEso si, si ves que no es el efecto que esperamos, piensa en volver a un servidor de news <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSuerte, y que se tan productivo como fue el servidor de new.\n\nSaludos\nRafa Carmona','',0,'gA==','3o90z737',1,0,'',1,0,0),(32,10,6,23,0,'80.58.44.235',1128671003,1,0,1,1,1,1,'','Buen Cambio','Enhorabuena por cambiar a este entorno.\nMe parece muy amigable, veremos que tal resulta en cuanto a funcionalidad.\n\nUn saludo.','',0,'gA==','2mxfkqoe',1,0,'',23,0,0),(33,21,6,2,0,'80.58.2.107',1128674805,1,0,1,1,1,1,'','','Manuel,\n\nLos errores de protección general siempre indican una dirección que es donde se produce el error. Suelen ser unos valores en hexadecimal que muestra Windows.\n\nPues si generas un fichero MAP al enlazar el EXE, podrás buscar dicha dirección dentro del fichero MAP, y así saber en qué módulo se genera el error de protección general.\n\nSi construyes el fichero MAP y lo adjuntas aquí (ó indicas una dirección desde donde descargarlo) así como la dirección del GPF, intentaremos ayudarte. \n\n¿ Se lo has comentado a Bruno ?','',0,'gA==','2ik5qqwm',1,0,'',2,0,0),(35,20,3,2,0,'80.58.2.107',1128675094,1,0,1,1,1,1,'','','Hola Manuel,\n\nTe he contestado en el foro en Español.','',0,'gA==','yi7mzg0y',1,0,'',2,0,0),(37,19,2,2,0,'80.58.2.107',1128675551,1,0,1,1,1,1,'','','Javi,\n\nEstás usando el link de Microsoft para enlazar ? Que versión ?','',0,'gA==','3n785bb1',1,0,'',2,0,0),(38,22,6,1,0,'80.58.44.235',1128675955,1,0,1,1,1,0,'','Can not create dialog box (tsbrowse)','Hola foro, estoy migrando mi aplicación de clip53+fw2.0 a harbour+fwh.\nMe encuentro con el horrible error que pongo en el título y me lo produce el control tsbrowse.\n\nAQUI VA EL .RC que uso.\n\nPIDEUSU DIALOG 65, 46, 276, 208\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT 102, 231, 166, 32, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP\n LTEXT \"Clave de acceso del usuario\", -1, 130, 169, 91, 8\n PUSHBUTTON \"&amp;Aceptar\", 400, 121, 185, 50, 14\n PUSHBUTTON \"&amp;Cancelar\", 401, 176, 185, 50, 14\n CONTROL \"\", 200, \"TBitmap\", 0 | WS_CHILD | WS_VISIBLE, 5, 3, 107, 194\n LTEXT \"Aplicación de Contabilidad General\", -1, 131, 28, 111, 8\n LTEXT \"Copyright (c) 1997-2005 Sigev, S.L.\", -1, 131, 39, 112, 8\n LTEXT \"info@sigev.com\", 250, 4, 198, 54, 8\n LTEXT \"Selección de usuario\", -1, 125, 80, 93, 8\n LTEXT \"www.sigev.com\", 251, 60, 198, 53, 8\n LTEXT \"SICONTAWIN\", 252, 131, 11, 127, 16\n CONTROL \"\", 201, \"TBitmap\", 0 | WS_CHILD | WS_VISIBLE, 132, 51, 22, 18\n LTEXT \"Teléfono : 964 455 551\", -1, 158, 50, 85, 8\n LTEXT \"Fax :         964 450 664\", -1, 158, 60, 79, 8\n CONTROL \"\", 103, \"TBitmap\", 0 | WS_CHILD | WS_VISIBLE, 216, 95, 53, 63\n CONTROL \"\", 110, \"TSBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 125, 96, 83, 62\n}\n\n\nPues bien, si quito el control 110 \"TsBrowse\" el programa presenta el diálogo sin problemas, pero al ponerlo me peta con el cannot create dialog box. Estoy usando el workshop y grabo rc que luego compilo.\n\nNecesito ayuda urgente.\nGracias.','',0,'gA==','2cqh02mc',1,0,'',1,0,0),(39,22,6,23,0,'80.58.44.235',1128676024,1,0,1,1,1,1,'','Soy yo','Que no me había \"logueado\" y he salido como guest.','',0,'gA==','18iwe43d',1,0,'',23,0,0),(40,22,6,2,0,'80.58.2.107',1128676061,1,0,1,1,1,1,'','','Estás redefiniendo el control 110 desde el PRG ?','',0,'gA==','20mffwjd',1,0,'',2,0,0),(41,19,2,1,0,'80.58.4.237',1128677074,1,0,1,1,1,0,'javi iglesias','','es el que he descargado de fivetech \nversion 5.31.009\n\nun saludo','',0,'gA==','gzyp2ocz',1,0,'',1,0,0),(42,23,22,26,0,'193.77.20.135',1128678810,1,0,1,1,1,1,'','Cool feature of forum :)','Hello!\n\nFor all of us who do not comprendre espanol:\n\nYou can \"translate\" Spanish section of this forum with this link:\n[url:2q07str2]http&#58;//babelfish&#46;altavista&#46;com/babelfish/trurl_pagecontent?lp=es_en&amp;trurl=http%3a%2f%2ffivetechsoft&#46;com%2fforums[/url:2q07str2]\n(Warning: It can be funny ...)\n\nCheers, Roman','',0,'EA==','2q07str2',1,0,'',26,0,0),(45,22,6,23,0,'80.58.44.235',1128680115,1,0,1,1,1,1,'','','Cieeeerto, ese era el problema.\nAl estar migrando desde Clip53+FW, llamaba a una función que me crea los Browses y estaba llamando al que usaba con FW.\n\nGracias.','',0,'EA==','20ml9qce',1,0,'',23,0,0),(46,26,3,1,0,'212.171.42.58',1128684862,1,0,1,1,1,0,'','Tsbrowse and lostfocus','Hi,\nI succesfully work with TSBrowse 7.0,\nmy only problem is when I write a new value in a cell\nbecause that value will not be assigned if the user change the focus to\nanother control (for example press an \"Exit\" button after wrote the new\nvalue\nin the cell).\nThe new value is assigned only if I go to another cell after inserted the\nnew value.\n\nIs there any way to assign the new value to the cell when the browse lost\nthe focus ?\n\nSee this sample code:\n#include \"FiveWin.ch\"\n#include \"TSBrowse.ch\"\n\n//----------------------------------------------------------------------------//\n\nstatic oDlg\n\nfunction Main()\n\nlocal aArray,oBrw\n\naArray:=array(0,2)\naadd(aArray,{\"Marko\",4})\naadd(aArray,{\"Robert\",5})\naadd(aArray,{\"Mary\",6})\n\nDEFINE DIALOG oDlg FROM 2,2 TO 24, 75 TITLE \"Test \"\n\n   @ 1.5, 1 TSBROWSE oBrw  CELLED OF oDlg ;\n\n        oBrw:SetArray(aArray)\n\n       TSADD COLUMN TO oBrw DATA ARRAY ELEMENT 1;\n          HEADER \"Name\";\n          3DLOOK FALSE, TRUE, TRUE ;\n          ALIGN DT_RIGHT, DT_LEFT, DT_RIGHT;\n          EDITABLE MOVE DT_MOVE_RIGHT;\n          SIZE 100\n\n       TSADD COLUMN TO oBrw DATA ARRAY ELEMENT 2;\n          HEADER \"Age\";\n          3DLOOK FALSE, TRUE, TRUE ;\n          ALIGN DT_RIGHT, DT_LEFT, DT_RIGHT;\n          EDITABLE MOVE DT_MOVE_RIGHT;\n          PICTURE \"@k 999\";\n          SIZE 100\n\n\n   @ 0.2, 1 BUTTON \"E&amp;xit\" OF oDlg  SIZE 30,12;\n     ACTION (MsgInfo(\"Marko\'s age is \"+str(aArray[1,2])),oDlg:End())\n\n   @0.2,10 SAY \"Write 15 into the Marko\'s age cell and then press Exit, as\nyou can see the new value is not token.\"+CHR(13)+CHR(10)+\"I want that the\nnew value will be assigned with the lostfocus too !\" OF ODLG\n\n   ACTIVATE DIALOG oDlg\nreturn nil\n\n\n\nThanks in advance\n\nBest Regards,\n\n-- \nMarco Turco\nSOFTWARE XP LLP, London\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk\">www.softwarexp.co.uk</a><!-- w -->','',0,'','2iigzvrz',1,0,'',1,0,0),(47,27,4,13,0,'213.76.252.200',1128685444,1,0,1,1,1,0,'','Internet file transfer','Hi,\n\nHow to make simple internet file transfer procedure with FWPPC and/or other libraries ? \nI found datareel_ce library but my knowledge about C++ is very small...\n\nBest regards, Pawel','',0,'','86unyog4',1,0,'',13,0,0),(48,27,4,2,0,'80.58.2.107',1128685810,1,0,1,1,1,1,'','','Pawel,\n\nIf it is on an intranet, you may try a simple COPY FILE &lt;filename&gt; TO \\\\machine\\&lt;filename&gt;.','',0,'','32d5yhbp',1,0,'',2,0,0),(49,10,6,5,0,'80.58.41.235',1128686109,1,0,1,1,1,1,'','','Antonio,\n\nA mí me parece un buen cambio. Tal vez sea más incómodo al principio si estás acostumbrado a utilizar un lector de news, pero a la larga puede ser mejor olvidarse de si se te han borrado los mensajes o no, de andar configurando la cuenta cada vez que formateas el HD... así se puede acceder de la misma forma desde cualquier parte del mundo. Esperemos que a todo el mundo le parezca un buen cambio  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','tzq1udue',1,0,'',5,0,0),(50,21,6,1,0,'80.58.14.107',1128686316,1,0,1,1,1,0,'Manuel Barranco','','Hola Antonio\n\nGracias por contestar, \n\nlos programas funcionan bien no dan ningun error, solo al finalizar la ejecución sale la ventana,el problema es que no da ninguna dirección, solo sale la ventana y como titulo del dialogo \"error de proteccion general\"\n\nSolo me da el error con FWC3, las pruebas con c3 no dan el error\n\nUn Saludo\nManuel Barranco','',0,'','n1y8d6jn',1,0,'',1,0,0),(51,28,4,13,0,'213.76.252.200',1128686629,1,0,1,1,1,0,'','Numeric keypad','Hi,\n\nI have simple forms with several button control and get control. They represent numeric keypad button,decimal separator and sign char. How to write function where get control is still focused and continuously press button insert char with right position in get.\n\nSample:\nButton 1 + Button 2 + Decimal , + Button 0 + Button 2\nDecimal , + Button 2\nSet cursor in the get and write in current position in the get object\n\nRegards\nPawel','',0,'','1zik0ykv',1,0,'',13,0,0),(52,27,4,13,0,'213.76.252.200',1128687011,1,0,1,1,1,0,'','','Antonio,\n\nI would write own socket mini server and client where PocketPc transfer file. Apps on the server side process this file.\n\nPawel','',0,'','13y00h4c',1,0,'',13,0,0),(53,29,1,1,0,'64.116.212.96',1128689588,1,0,1,1,1,0,'dbZap','Color en TcBrowse()','Hola a todos.\nTengo un problema con una grilla que deseo colorear una linea de color verde\nclaro ( por ejemplo ) si algo ocurre en el registro.\nCon TcBrowse, usaba el ::nClrPane pero con columnas no ha funcionado.\nAlguien tiene una idea para corregir esto, les adjunto un trozo de codigo,\ncualquier ayuda sera bien recibida.\nSaludos\n\nTb:nClrPane := {|| If( Paso-&gt;estado==1, CLR_YELLOW ,;\n                            If( Paso-&gt;Estado==2, CLR_HGRAY, CLR_WHITE ) ) }','',0,'','2euylv9n',1,0,'',1,0,0),(54,28,4,2,0,'80.58.2.107',1128689788,1,0,1,1,1,1,'','','Pawel,\n\nDo you mean like a calculator ?','',0,'','1c8xmvn7',1,0,'',2,0,0),(55,27,4,2,0,'80.58.2.107',1128689989,1,0,1,1,1,1,'','','Pawel,\n\nMost recent FWPPC has sockets support though still we need to do some tests with it.','',0,'','1z6pt08j',1,0,'',2,0,0),(56,3,3,31,0,'195.182.84.105',1128690037,1,0,1,1,1,1,'','Regards !','OK ! Now we can use forums ! Goods !','',0,'','2kaozo7r',1,0,'',31,0,0),(57,21,6,2,0,'80.58.2.107',1128691653,1,0,1,1,1,1,'','','Manuel,\n\nPuedes indicarme algún ejemplo del directorio samples de FW que te dé ese error para que podamos probarlo aquí ? gracias.','',0,'','1f6s1qg8',1,0,'',2,0,0),(58,30,3,33,0,'68.23.164.103',1128692337,1,0,1,1,1,0,'','ASC bug - re: Barbara THIAM\'s post','Since the change in the fivetech forum I could not reply to Barbara\'s post.\n\nHowever the following code worked flawlessly under FWH using Harbour Alpha build 44.0 and also using xHarbour build 99.3\n\n// Test of ASC function\n\nFUNCTION MAIN()\n\n   LOCAL n, cStr := \"\", lf := CHR(13)+CHR(10)\n\n   FOR n := 0 TO 255\n      cStr += LSTR( ASC(CHR(n)) )+IF(n%10=0,lf,\" - \")\n   NEXT\n\n\n   MSGINFO( cStr )\n\n   RETURN NIL\n\n\nFUNCTION LSTR( val )\n   RETURN LTRIM(STR( val ))','',0,'','2lpv73nw',1,0,'',33,0,0),(59,31,6,1,0,'201.152.9.198',1128692419,1,0,1,1,1,0,'antonio almaraz','TFolder, TButton y TButtonBmp  aportaciones de Rossine','Bueno leyendo un post del blog de vicktor vi que Rossine habia puesto algunas nuevas clases en las news \n\nalguien las puede postear o enviarmelas por mail a <!-- e --><a href=\"mailto:antonioalmaraz@yahoo.com.mx\">antonioalmaraz@yahoo.com.mx</a><!-- e -->\n\npor gavor \n\ntengo limitados los servicios en la empresa donde trabajo y en la casa tengo problemas con la linea\n\nsaludotes','',0,'','3rhkkick',1,0,'',1,0,0),(60,32,3,34,0,'68.4.154.81',1128693067,1,0,1,1,1,1,'','Auto Fill Combo box','We\'ll try this again.  Does anyone have an update for a combo box ( CBS_DROPDOWN ) that will autofill the data from available items or allow a new item to be entered ?\n\nTim <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'','35h0n25y',1,0,'',34,0,0),(61,19,2,1,0,'80.58.4.237',1128693709,1,0,1,1,1,0,'','','[quote=&quot;javi iglesias&quot;:3bd3iadv]es el que he descargado de fivetech \nversion 5.31.009\n\nun saludo[/quote:3bd3iadv]\nasi mismo pasa con la ultima version 5.60.339\nEs posible que no lo esté haciendo bien?\nO no este bien el path?','',0,'gA==','3bd3iadv',1,0,'',1,0,0),(62,33,6,36,0,'164.77.96.205',1128693943,1,0,1,1,1,0,'','router y Ads','Estimados \n\n    Hay alguna forma o software para saber si esta abierto el puerto 2000 y ver la carpeta si esta compartida desde internet, es que estoy haciendo pruebas con ADS y no pasa nada, entonces primero quiero saber si esta abierto el puerto del exterior, tengo un router phobe y win2k3 \n\nsaludos\nPatricio','',0,'gA==','3nwqb5vo',1,0,'',36,0,0),(63,19,2,1,0,'80.58.4.237',1128695898,1,0,1,1,1,0,'javi iglesias','','Necesito la lib 501_520.lib? \nDonde puedo conseguirla?\n\nGracias','',0,'gA==','2v10k4ka',1,0,'',1,0,0),(64,10,6,38,0,'62.103.19.226',1128697818,1,0,1,1,1,0,'','','Antonio, suerte con este nuevo foro !\nYo creo que nos vamos a acostubrarnos  poco  a poco.\nCierto que con las news NNTP es mas facil buscar algo...\nComo look,  lo veo muy bien !\n\nUn saludo \nYannis Yannas\nRodas - Grecia','',0,'gA==','1mmmv9bi',1,0,'',38,0,0),(65,34,6,1,0,'200.23.91.222',1128698107,1,0,1,1,1,0,'Jose F Dominguez Serafin','Ayuda !!!','Buenos dias \n\nAgradecere si alguien me envia varios ejemplos para controlar webcams desde FWH, si existe alguna clase.\nNota no puedo hacer funcionar la de Cesar (Webcam32) ya que trata de abrir el programa pero se cierra automaticamente\n\n\n\n\n\nSaludos','',0,'gA==','2jkvy6dy',1,0,'',1,0,0),(66,33,6,41,0,'200.87.67.10',1128699625,1,0,1,1,1,0,'','','Hola,\n\nprueba desde afuera de tu red con un telnet ip 2000\ntendra que conectarse, ahora no es necesario que compartas nada del directorio donde tienes ADS, tan solo deja que le RDD se conecte al diccionario y lo demas te funcionara\n\nsaludos\n\nMarcelo','',0,'gA==','2sog77r3',1,0,'',41,0,0),(67,28,4,13,0,'213.76.252.200',1128699692,1,0,1,1,1,0,'','','Antonio,\n\nYes, I would write keypad like calculator with automatic recalculated bound say control e.g. product price. (user input quantity, say control  show quantity * price).\n\nPawel','',0,'gA==','3ic6bi08',1,0,'',13,0,0),(68,19,2,2,0,'80.58.2.107',1128701904,1,0,1,1,1,1,'','','Javi,\n\nPara usar el link de Microsoft, quita el rem de esta línea en samples\\build.bat:\n\nrem link /se:2000 /NOE %1,,%1.map, Five FiveC Objects WinApi Clipper Extend\n\ny ponle el rem a la línea que llama a blinker','',0,'gA==','1o0x1vux',1,0,'',2,0,0),(69,10,6,45,0,'200.45.177.132',1128704107,1,0,1,1,1,0,'','Re: Bienvenidos a los foros de FiveTech Software','Hola a todos  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ,\n   Me encanta el entorno phpBB Antonio, realmente muy bueno, es un estandard mundial de foros, con mas posibilidades  <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> \n  Les mando un abrazo a todos y pronto habra mas noticias  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nHernan','',0,'gA==','3lqntuwu',1,0,'',45,0,0),(70,35,6,18,0,'200.67.188.236',1128704251,1,0,1,1,1,1,'','TTrackBar y Tprogress creados de código fuente.','Al crear los controles desde código fuente obtengo un error de creación al momento de activar el dialogo.\n\nPero si defino el dialogo como \"NO MODAL\", los controles se muestran perfectamente.\n\nHe revisado la clase TDialog para ubicar en donde está el problema y observe que el método Activate hace uso de dos funciones si la variable lModal tiene valor TRUE, y es ahí donde se devuelve un valor 65535 que indica error, en la creación del dialogo.\n\nAntonio, alguna sugencia?','',0,'gA==','2m9ij3mp',1,0,'',18,0,0),(71,35,6,45,0,'200.45.177.132',1128704501,1,0,1,1,1,0,'','Re: TTrackBar y Tprogress creados de código fuente.','[quote=&quot;Vikthor&quot;:1omszim7]Al crear los controles desde código fuente obtengo un error de creación al momento de activar el dialogo.\n\nPero si defino el dialogo como \"NO MODAL\", los controles se muestran perfectamente.\n\nHe revisado la clase TDialog para ubicar en donde está el problema y observe que el método Activate hace uso de dos funciones si la variable lModal tiene valor TRUE, y es ahí donde se devuelve un valor 65535 que indica error, en la creación del dialogo.\n\nAntonio, alguna sugencia?[/quote:1omszim7]\n\n   Sip me tope con ese tema una vez, crealos en el ON INIT de la caja de dialogo, cuando la misma ya posee handle real.\n\nSalu2\nHernan','',0,'gA==','1omszim7',1,0,'',45,0,0),(72,36,1,1,0,'203.144.143.6',1128705658,1,0,1,1,1,0,'Dutch','How to open file in specificatio IP instead of Drive Letter','Dear All,\n\nHow can I open file with IP address such as  \\\\192.168.0.1\\data\\test.dbf ? \nCan we map network driver in VPN?\n\nThanks,\nDutch','',0,'gA==','189q4yno',1,0,'',1,0,0),(73,37,6,38,0,'62.103.19.226',1128705839,1,0,1,1,1,1,'','Una de cGetFile()','Hola a todos !\nTengo un problema con cGetFile()\nEn modo seleccionar UN solo archivo, todo funciona .\nEn modo multiseleccion , me deja seleccionar mas archivos, pero me devuelve SOLO la ruta donde estan los archivos !\n\nFWH 2.5 + xHarbour + Borland + Windows XP pro\nEsta es la funcion que uso :\n\n[code:62y0v30j]// Function YGetFile\nFunction YGetFile&#40;cFileName&#41;\n   local cFile,  cFileMask, cTitle\n   Local nDefaultMask, cInitDir, nFlags,  cIniFile, lSave\n   Local lLongNames\n   MemVar oApp\n\n   cTitle       &#58;= &quot;Select file&quot;\n   cFileMask    &#58;= &quot;Jpeg   &#40;*&#46;jpg&#41; |*&#46;jpg|&quot; + ;\n                   &quot;Bitmap &#40;*&#46;bmp&#41; |*&#46;bmp|&quot; + ;\n                   &quot;Tiff   &#40;*&#46;tif&#41;  |*&#46;tif|&quot; + ;\n                   &quot;Gif    &#40;*&#46;gif&#41;  |*&#46;gif|&quot;\n\n   cTitle       &#58;= &quot;Select a photo&quot;\n   nDefaultMask &#58;= 1\n   cInitDir     &#58;= &quot;&#46;\\&quot;\n   nFlags       &#58;= OFN_ALLOWMULTISELECT + OFN_EXPLORER   // 512 + 524288\n   cIniFile     &#58;= &quot;&quot;\n   cFileName    &#58;= &quot;&quot;\n   lSave        &#58;= &#46;f&#46;\n   lLongNames   &#58;= &#46;t&#46;\n\n   cFile        &#58;= Space&#40;32000&#41;\n\n   //cGetFile&#40; &lt;cFileMask&gt;, &lt;cTitle&gt;, &#91;&lt;nDefaultMask&gt;&#93;, &#91;&lt;cInitialDirectory&gt;&#93;, &#91;lSave&#93;, &#91;lLongNames&#93;, &#91;nFlags&#93; &#41;  --&gt; &lt;cFileName&gt;\n   cFile &#58;= cGetFile&#40;cFileMask,;\n                     cTitle,;\n                     nDefaultMask,;\n                     cInitDir,;\n                     lSave,;\n                     lLongNames,;\n                     nFlags&#41;\n\n   ? cfile\n\n   If Empty&#40;cFile&#41;\n      cFile &#58;= cFileName\n   Endif\nReturn cFile[/code:62y0v30j]\n\n\nAlguien tiene una solucion ?\nDe antemano muchas gracias por su ajuda <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nUn saludo','',0,'AIA=','62y0v30j',1,1129914218,'',38,2,0),(74,10,6,46,0,'195.8.13.24',1128706282,1,0,1,1,1,0,'','','Uno que esta acostumbrado a las News.    <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \nSiempre es bueno los cambios buenos.  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \nSuerte para todos.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','z4duo5zx',1,0,'',46,0,0),(75,38,7,1,0,'80.58.45.107',1128707155,1,0,1,1,1,0,'Daniel Asensio','PACK no borra los registros.','Tenemos problemas con Harbour en un programa en FWPPC porque no borra los registros de un DBF.\n \nAl hacer PACK no se borran los registros y ademas no se queda con la marca de borrado el primer registro.\n\nZAP tampoco funciona \n\nNo hay indices en la base de datos\n\n*\n \nUSE FALLIN\nGO TOP\nDO WHILE .not. Eof()\n  DELETE\n  SKIP 1\nENDDO\nPACK\nCLOSE\n\nUSE FALLIN\nGO TOP \nIF .not. Eof()\n  MsgInfo(\"Hay Datos\",\"Atencion\")\nENDIF\nCLOSE\n \nSaludos','',0,'AIA=','2ow46vl2',1,0,'',1,0,0),(76,38,7,2,0,'80.58.2.107',1128707297,1,0,1,1,1,1,'','','Daniel,\n\nHas probado ese mismo código, con la misma base de datos, con FWH y Harbour ?','',0,'AIA=','vpy8d05u',1,0,'',2,0,0),(77,10,6,21,0,'81.172.125.116',1128707301,1,0,0,0,1,1,'','Buena suerte','Hola Antonio,\n\nTengo dudas de como realizar busquedas de mensajes en este nuevo formato.\n\nEspero que todo funcione bien y que nos adaptemos lo mas rapido posible (por lo menos a mi me va a costar)','',0,'AIA=','xpimhopj',1,0,'',21,0,0),(78,10,6,21,0,'81.172.125.116',1128707503,1,0,0,0,1,1,'','','Hola,\n\nHe realizado pruebas de busqueda y ya me voy consiguiendo adaptar.','',0,'AIA=','lfrm9fsg',1,0,'',21,0,0),(79,35,6,18,0,'200.67.188.236',1128707940,1,0,1,1,1,1,'','','Hernán :\n\nGracias por responder, aunque la opción que me indicas resuelve el problema, yo no deseo usar la clausula ON INIT para crearlos correctamente.\n\nLlevó dos días buscando la solución y sí alguien me puede iluminar el camino, desde ya estoy agradecido.','',0,'AIA=','3if38v3p',1,0,'',18,0,0),(80,10,6,48,0,'82.158.47.201',1128708316,1,0,1,1,1,0,'','','Un saludo Antonio.\n\nEspero acostumbrarme un poco a esto y que las busquedas funcionen bien.','',0,'AIA=','4v8dyze2',1,0,'',48,0,0),(81,39,6,23,0,'80.58.44.235',1128708565,1,0,1,1,1,1,'','Consulta sobre ajustes a ventana','Hola foro, en la aplicación que estoy migrando de Clip+Fw a Harbour+FWH, estoy empezando a usar TsBrowse y recientemente adquirí vTaskBar de Paco García.\nBien hasta ahora para mostrar un browse de datos, generaba una ventana desde código (redimensionable) y montaba el browse. \nPara que el browse se redimensione cuando se redimensiona la ventana, pongo la siguiente orden :\n\n    oWnd[nId]:SetControl(oLbx[nId])\n\ncon lo cual cuando la ventana cambia de tamaño el browse también.\nBien ahora la pregunta. He puesto un vtaskbar a la izquierda del browse que queda muuuuuuuy chulo pero claro si pongo el SetControl, el browse se lo \"come\" literalmente. Sin el setcontrol cada cosa está en su sitio pero claro, el browse no cambia de tamaño.\nLa pregunta (por fin <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->) es como puedo realizar el proceso sin que se \"coma\" el vtaskbar.\n\nGraciassss.\nUn saludo.\n[img:2xouhpmo]http&#58;//www&#46;sigev&#46;com/muestra&#46;jpg[/img:2xouhpmo]','',0,'CA==','2xouhpmo',1,0,'',23,0,0),(82,35,6,45,0,'200.45.177.132',1128708668,1,0,1,1,1,0,'','','[quote=&quot;Vikthor&quot;:2vw5cipz]Hernán :\n\nGracias por responder, aunque la opción que me indicas resuelve el problema, yo no deseo usar la clausula ON INIT para crearlos correctamente.\n\nLlevó dos días buscando la solución y sí alguien me puede iluminar el camino, desde ya estoy agradecido.[/quote:2vw5cipz]\n\n\nEs que las funciones que INCRUSTAN el array de controles en tiempo de ejecucion cuando se crea el dialogo realmente, son de tipo INTERNAL, y no puedo ver donde esta el problema que dices. Seguramente ahi esta el problema, no me cabe la duda. Este control necesita un Initialize especial cuando se crea, el TProgress por ejemplo. Deberias charlarlo con Antonio.\n\n\nSalu2\nHernan','',0,'gA==','2vw5cipz',1,0,'',45,0,0),(83,40,3,49,0,'82.53.119.56',1128710514,1,0,1,1,1,0,'','How link two or many pc','I wanted link two or many pc with my pc located into a lab at my school\nI wanted create a procedure to show ( with tree or buttons) all the pc that the procedure found in a local red.\nAfet I can click on each and see their  desktop and work on it  as an mini vnc\nIt is possible with fivewin and (x)harbour ?\n\n\nRegards','',0,'gA==','3bqjbq2v',1,0,'',49,0,0),(84,41,6,1,0,'84.121.117.186',1128711390,1,0,1,1,1,0,'Antonio F. Ortega','CheckBox transparente','Hola a todos:\n\nNecesito poner un checkbox en un dialogo que tiene como fondo un bmp, y no me lo pinta transparente, alguien me puede indicar como hacerlo; se que Carlos Mora, en su momento tenía este problema, me podrias indicar como lo resolviste ?.\n\nGracias.\n\nAntonio F. Ortega','',0,'gA==','5a2q33d8',1,0,'',1,0,0),(85,41,6,1,0,'62.14.204.113',1128712275,1,0,1,1,1,0,'Carlos Mora','Re: CheckBox transparente','Antonio (Ortega),\n[quote=&quot;Antonio F. Ortega&quot;:2xfnyc0o]Hola a todos:\n\nNecesito poner un checkbox en un dialogo que tiene como fondo un bmp, y no me lo pinta transparente, alguien me puede indicar como hacerlo; se que Carlos Mora, en su momento tenía este problema, me podrias indicar como lo resolviste ?.\n\nGracias.\n\nAntonio F. Ortega[/quote:2xfnyc0o]\n\nPues va a ser que no. Le he buscado la vuelta y nada. Espero que ahora que ya no hay más problemas de news pueda obtener alguna respuesta. Antonio Linares no me respondió al problema, espero que se desocupe pronto y pueda ver eso. Navas tambien me dijo que le estuvo dando vueltas, pero tampoco ha tenido suerte, o al menos no me ha comentado nada.\n\nSaludos.','',0,'gA==','2xfnyc0o',1,0,'',1,0,0),(86,2,1,51,0,'80.122.88.242',1128712282,1,0,1,1,1,0,'','','Greetings from Austria/Tyrol.\n\nOtto','',0,'gA==','2yo25e4x',1,0,'',51,0,0),(87,35,6,18,0,'200.67.188.236',1128715594,1,0,1,1,1,1,'','','Seguramente que sí, la llamada a oWnd:DefControl() se hace cuando el hWnd de la ventana contenedora está vació, pero hasta ahí es donde he llegado.\n\nEspero que Antonio, no pueda decir por donde buscar los tiros.','',0,'gA==','82zg4x7d',1,0,'',18,0,0),(88,42,6,1,0,'200.66.175.196',1128715992,1,0,1,1,1,0,'Armando Estrada B.','Puntos de venta vs oficina central','Saludos:\n\nAmigos les platico que tengo un prospecto de cliente que tiene 35 puntos de venta y una oficina central, él quiere le desarrolle un software que le permita consultar las ventas, existencias, etc. de cada pv desde la oficina central, podrían orientarme sobre la forma más eficiente de solventar este requerimiento ?, cómo conectar los PV a la oficina central ?, cliente servidor ? algun ejemplo ?\n\nUn abrazo, Armando','',0,'gA==','3w5ao56f',1,0,'',1,0,0),(89,42,6,1,0,'201.128.111.62',1128717438,1,0,1,1,1,0,'Rene Flores','','Armando:\n\nLlamame, ya hemos manejado esos proyectos con anterioridad con bastante exito.\n\nHay varias alternativas, ADS, VPN, Terminal Server, Servidor Web, etc. depende claro del presupuesto del cliente.\n\nSaludos\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'gA==','1ky69dtt',1,0,'',1,0,0),(90,33,6,1,0,'201.128.111.62',1128717604,1,0,1,1,1,0,'Rene Flores','Re: router y Ads','[quote=&quot;Patricio Avalos Aguirre&quot;:1g1nghil]Estimados \n\n    Hay alguna forma o software para saber si esta abierto el puerto 2000 y ver la carpeta si esta compartida desde internet, es que estoy haciendo pruebas con ADS y no pasa nada, entonces primero quiero saber si esta abierto el puerto del exterior, tengo un router phobe y win2k3 \n[/quote:1g1nghil]\n\nAds no requiere que tengas compartida la carpeta cuando te conectas por internet, simplemente le pones AdsRightsCheck(.F.) y listo.\n\nPor otro lado recuerda que antes de poder conectarte a un servidor AIS, debes crear un diccionario de datos con los usuarios que podran acceder a los datos desde internet.\n\nSaludos\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'gA==','1g1nghil',1,0,'',1,0,0),(91,39,6,28,0,'62.15.40.164',1128720896,1,0,1,1,1,0,'','ajustes de ventana','Hola\n\nAngel. En los ejemplos que trae taskbar puedes ver unos cuantos que hacen mas o menos lo que pides. Me parece que puedes enfocarlo de varias formas. Una poniendo un slider que este entre vtaskbar y tsbrowse. Otra utilizando paneles. Uno oLeft y el otro oCLient. En el oLeft pones vTaskbar y en el oClient pones el browse.\n\nEchale un vistazo a los ejemplos y si no encuentras lo que necesitas comentamelo por correo privado y miramos como podemos hacerlo.\n\nUn saludo\n\nPaco Garcia','',0,'gA==','qyk00m10',1,0,'',28,0,0),(92,33,6,36,0,'164.77.96.205',1128724300,1,0,1,1,1,0,'','Re: router y Ads','[quote=&quot;RF&quot;:2zor4rn6][quote=&quot;Patricio Avalos Aguirre&quot;:2zor4rn6]Estimados \n\n    Hay alguna forma o software para saber si esta abierto el puerto 2000 y ver la carpeta si esta compartida desde internet, es que estoy haciendo pruebas con ADS y no pasa nada, entonces primero quiero saber si esta abierto el puerto del exterior, tengo un router phobe y win2k3 \n[/quote:2zor4rn6]\n\nAds no requiere que tengas compartida la carpeta cuando te conectas por internet, simplemente le pones AdsRightsCheck(.F.) y listo.\n\nPor otro lado recuerda que antes de poder conectarte a un servidor AIS, debes crear un diccionario de datos con los usuarios que podran acceder a los datos desde internet.\n\nSaludos\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->[/quote:2zor4rn6]\n\nGracias Rene\n\nLo que hice fue lo siguiente:\n\nEn el servidor win2k3 cree una carpeta en\ne:\\internet\\datos  //las bases\ne:\\internet\\temp  //los temporales\n\n[b:2zor4rn6]luego hize el diccionario [/b:2zor4rn6]\n\nnombre=demointernet\nalias=\ndatabase=e:\\demointernet\\datos\ndefault=e:\\demointernet\\datos\ntemp=e:\\demointernet\\temp\n\n[ok] login required \n[ok] check user  rights\n\n[ok] Enable Data diccionary encryptation\n\ntable encryption [NO]\n\n[internet]\n[ok] anabled \nsecurity level [0]\nmax login atte.. [5]\n\n[b:2zor4rn6]Luego agrege las tablas que estaban en e:\\internet\\datos\\*.dbf[/b:2zor4rn6]\n\n[b:2zor4rn6]despues cree el usuario[/b:2zor4rn6]\nname:pavalos\n[  ]  disabel user\n[ok] enable internet access\n\npermisions\nTables\na todas las tablas estan con ticket\n\nahora en el programa\n\n__rddSetDefault( \"ADS\" )\nrddRegister( \"ADS\", 1 )\nAdsSetFileType(ADS_CDX)\nAdsLocking( .t. )\nAdsRightsCheck(.F.)\nif !AdsConnect60( \"demointernet.add\",   \n       4, \"pavalos\", \"1234\" )\nMsgInfo( \"No es posible conectarse al servidor ADS\")\n		endif\n\nahora bien \n\nads.ini\n[SETTINGS]\nDEFAULT_PROTOCOL = 1\n[DRIVES]\nW:=\\\\SERVERCARMONA\n[SERVERCARMONA]\nINTERNET_PORT=2000\nINTERNET_IP=200.113.56.235\n\nCualquier ayudita es bienvenida\n\nSaludos\nPatricio','',0,'wA==','2zor4rn6',1,0,'',36,0,0),(93,10,6,54,0,'201.128.95.85',1128725297,1,0,1,1,1,1,'','','Acá estamos también\n\nSaludos\n\nWilliam, Morales','',0,'wA==','38e3rzsp',1,0,'',54,0,0),(94,43,6,54,0,'201.128.95.85',1128726801,1,0,1,1,1,1,'','Meter','Hola amigos.\n\nTengo el siguiente problema y no le encuentro solución, cuando lanzo un Meter en un dialogo y lo oculto con otra ventana (para hacer o ver otras cuestiones) este se inicia, y asi tantas veces como lo oculte.\n\nGracias anticipadas','',0,'wA==','23qgsr4k',1,0,'',54,0,0),(95,35,6,45,0,'200.117.129.31',1128726900,1,0,1,1,1,0,'','','[quote=&quot;Vikthor&quot;:dyrk68i9]Seguramente que sí, la llamada a oWnd:DefControl() se hace cuando el hWnd de la ventana contenedora está vació, pero hasta ahí es donde he llegado.\n\nEspero que Antonio, no pueda decir por donde buscar los tiros.[/quote:dyrk68i9]\n\nHola,\n   No faltara el InitCommonControlsEx ???????\n\nSalu2','',0,'gA==','dyrk68i9',1,0,'',45,0,0),(96,44,3,38,0,'62.103.19.226',1128745072,1,0,1,1,1,0,'','Problem with cGetFile()','Hello everyone !\nI have a problem with cGetFile()\nSelecting only ONE file, works OK .\nWhen trying to select more files, lets me do it, but it returns ONLY the path of the files!\n\nFWH 2.5 + xHarbour + Borland + Windows XP pro\nThis is the function i use :\n\n[code:hzq2gzza]\n// Function YGetFile\nFunction YGetFile&#40;cFileName&#41;\n   local cFile,  cFileMask, cTitle\n   Local nDefaultMask, cInitDir, nFlags,  cIniFile, lSave\n   Local lLongNames\n   MemVar oApp\n\n   cTitle       &#58;= &quot;Select file&quot;\n   cFileMask    &#58;= &quot;Jpeg   &#40;*&#46;jpg&#41; |*&#46;jpg|&quot; + ;\n                   &quot;Bitmap &#40;*&#46;bmp&#41; |*&#46;bmp|&quot; + ;\n                   &quot;Tiff   &#40;*&#46;tif&#41;  |*&#46;tif|&quot; + ;\n                   &quot;Gif    &#40;*&#46;gif&#41;  |*&#46;gif|&quot;\n\n   cTitle       &#58;= &quot;Select a photo&quot;\n   nDefaultMask &#58;= 1\n   cInitDir     &#58;= &quot;&#46;\\&quot;\n   nFlags       &#58;= OFN_ALLOWMULTISELECT + OFN_EXPLORER   // 512 + 524288\n   cIniFile     &#58;= &quot;&quot;\n   cFileName    &#58;= &quot;&quot;\n   lSave        &#58;= &#46;f&#46;\n   lLongNames   &#58;= &#46;t&#46;\n\n   cFile        &#58;= Space&#40;32000&#41;\n\n   //cGetFile&#40; &lt;cFileMask&gt;, &lt;cTitle&gt;, &#91;&lt;nDefaultMask&gt;&#93;, &#91;&lt;cInitialDirectory&gt;&#93;, &#91;lSave&#93;, &#91;lLongNames&#93;, &#91;nFlags&#93; &#41;  --&gt; &lt;cFileName&gt;\n   cFile &#58;= cGetFile&#40;cFileMask,;\n                     cTitle,;\n                     nDefaultMask,;\n                     cInitDir,;\n                     lSave,;\n                     lLongNames,;\n                     nFlags&#41;\n\n   ? cfile\n\n   If Empty&#40;cFile&#41;\n      cFile &#58;= cFileName\n   Endif\nReturn cFile[/code:hzq2gzza]\n\n\n\nCan you help me to solve thsi problem?\nThank you for your help! Smile\nUn saludo\nYannis Yannas\n<!-- w --><a class=\"postlink\" href=\"http://www.trinityvision.gr\">www.trinityvision.gr</a><!-- w -->','',0,'AIA=','hzq2gzza',1,0,'',38,0,0),(97,45,2,1,0,'201.240.49.76',1128750152,1,0,1,1,1,0,'VLADIMIR ZORRILLA','VISUAL WINRAD DEMO','Amigos \n\nSe que muchos de vosotros me habeis solicitado una copia del Visual Winrad pues como no tengo aun  ftp ni pagina he puesto de momento una demo en <!-- e --><a href=\"mailto:visualwinrad@yahoo.es\">visualwinrad@yahoo.es</a><!-- e --> \n\nEntrais con la clave RUNTIME  \n\n\nGracias por vuestro interes y si deseais participaros en el proyecto no dudeis en enviarme un mail a <!-- e --><a href=\"mailto:cps_net@yahoo.es\">cps_net@yahoo.es</a><!-- e --> para enviaros los codigos fuentes del proyecto.\n\nVladimir Zorrilla Llerena \n<!-- e --><a href=\"mailto:cps_net@gotmail.com\">cps_net@gotmail.com</a><!-- e -->','',0,'AIA=','vpuifaek',1,0,'',1,0,0),(98,46,6,1,0,'201.240.49.76',1128750243,1,0,1,1,1,0,'VLADIMIR ZORILLA LLERENA','VISUAL WINRAD DEMO','Amigos \n\nSe que muchos de vosotros me habeis solicitado una copia del Visual Winrad pues como no tengo aun  ftp ni pagina he puesto de momento una demo en <!-- e --><a href=\"mailto:visualwinrad@yahoo.es\">visualwinrad@yahoo.es</a><!-- e --> \n\nEntrais con la clave RUNTIME  \n\n\nGracias por vuestro interes y si deseais participaros en el proyecto no dudeis en enviarme un mail a <!-- e --><a href=\"mailto:cps_net@yahoo.es\">cps_net@yahoo.es</a><!-- e --> para enviaros los codigos fuentes del proyecto.\n\nVladimir Zorrilla Llerena \n<!-- e --><a href=\"mailto:cps_net@gotmail.com\">cps_net@gotmail.com</a><!-- e -->','',0,'AIA=','5r4uot6q',1,0,'',1,0,0),(99,45,2,2,0,'80.58.2.107',1128750891,1,0,1,1,1,1,'','','Vladimir,\n\nNo tienes una versión que no use MySQL ? sino solo DBFs e índices clipper ?\n\nTe agradecemos si te registras aqui en los nuevos foros, y así tu nombre solo lo puedes usar tú. Gracias  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1vnlnlb8',1,0,'',2,0,0),(101,48,3,1,0,'201.240.35.71',1128752989,1,0,1,1,1,0,'VLADIMIR ZORRILLA','IDE RUNTIME VISUAL WINRAD DEMO','DOWNLOAD  of \n\n <!-- e --><a href=\"mailto:VISUALWINRAD@YAHOO.ES\">VISUALWINRAD@YAHOO.ES</a><!-- e -->\n\n PASSWORD    RUNTIME\n\nVladimir Zorrilla Llerena\n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->\n\n\n\n REGARDS','',0,'AIA=','aiotgw1e',1,0,'',1,0,0),(102,49,1,1,0,'201.240.35.71',1128753069,1,0,1,1,1,0,'','IDE RUNTIME  VISUAL WINRAD DEMO','DOWNLOAD  of \n\n <!-- e --><a href=\"mailto:VISUALWINRAD@YAHOO.ES\">VISUALWINRAD@YAHOO.ES</a><!-- e -->\n\n PASSWORD    RUNTIME\n\nVladimir Zorrilla Llerena\n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->\n\n\n\n REGARDS','',0,'AIA=','2moycpmm',1,0,'',1,0,0),(103,37,6,28,0,'62.14.70.59',1128763229,1,0,1,1,1,0,'','cGetFile multiple','Hola, pues algo asi me paso a mi. Copiando de aqui y de allí conseguí sacar esta función que creo que funciona. \n\nSi alguien la quiere mejorar pues... la compartiremos todos.\n\nUn saludo\n\nPaco García\n\n[code:3u7g9s1p]\n\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &lt;shlobj&#46;h&gt;\n\nstatic far char IniDir&#91;&#93; = &quot;&#46;\\\\&quot;;\nstatic char szDirName&#91; MAX_PATH &#93;;\nvoid cdecl _bcopy&#40; void *, void *, unsigned int &#41;;\nstatic far char Title&#91;&#93; = &quot;Select the file&quot;;\n\nHB_FUNC &#40; CGETFILEEX &#41;   \n&#123;\n	OPENFILENAME ofn;\n	char buffer&#91;65536&#93;;\n	char cFullName&#91;64&#93;&#91;1024&#93;;\n	char cCurDir&#91;512&#93;;\n	char cFileName&#91;512&#93;;\n	int iPosition = 0;\n	int iNumSelected = 0;\n	int n;\n   LPSTR  pFile,pFilter,pTitle,pDir;\n   WORD w = 0, wLen;\n	int flags =  OFN_ALLOWMULTISELECT | OFN_EXPLORER ; //OFN_FILEMUSTEXIST  |\n\n	buffer&#91;0&#93; = 0 ;\n\n   pTitle = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; hb_pcount&#40;&#41; &gt; 1 &amp;&amp; ISCHAR&#40; 2 &#41; &#41;\n   &#123;\n      wLen   = min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 2 &#41; &#41;;\n      _bcopy&#40; pTitle, hb_parc&#40; 2 &#41;, wLen &#41;;\n      * &#40; pTitle + wLen &#41; = 0;\n\n   &#125;\n   else\n   &#123;\n      pTitle  = Title;\n   &#125;\n\n   pDir = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; hb_pcount&#40;&#41; &gt; 3 &amp;&amp; ISCHAR&#40; 4 &#41; &#41;\n   &#123;\n      wLen  = min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 4 &#41; &#41;;\n      _bcopy&#40; pDir, hb_parc&#40; 4 &#41;, wLen &#41;;\n      * &#40; pDir + wLen &#41; = 0;\n   &#125;\n   else\n   &#123;\n      * &#40; pDir &#41; = 0;\n   &#125;\n\n   pFile = &#40; LPSTR &#41; hb_xgrab&#40; 255 &#41;;\n\n   if &#40; hb_pcount&#40;&#41; &gt; 7 &amp;&amp; ISCHAR&#40; 8 &#41; &#41;\n   &#123;\n      wLen = min&#40; &#40; unsigned long &#41; 254, hb_parclen&#40; 8 &#41; &#41;;\n      _bcopy&#40; pFile, hb_parc&#40; 8 &#41;, wLen &#41;;\n   &#125;\n   else\n   &#123;\n      wLen = min&#40; &#40; unsigned long &#41; 254, hb_parclen&#40; 1 &#41; &#41;;\n      _bcopy&#40; pFile, hb_parc&#40; 1 &#41;, wLen &#41;;\n   &#125;\n   * &#40; pFile + wLen &#41; = 0;\n\n   pFilter = &#40; LPSTR &#41; hb_xgrab&#40; 400 &#41;;\n   wLen    = min&#40; &#40; unsigned long &#41; 398, hb_parclen&#40; 1 &#41; &#41;;\n   _bcopy&#40; pFilter, hb_parc&#40; 1 &#41;, wLen &#41;;\n   * &#40; pFilter + wLen &#41; = 0;\n\n   while&#40; * &#40; pFilter + w &#41; &#41;\n   &#123;\n      if&#40; * &#40; pFilter + w &#41; == \'|\' &#41;\n      &#123;\n         * &#40; pFilter + w &#41; = 0;\n         if &#40; hb_pcount&#40;&#41; &lt; 8 &#41;\n            * &#40;pFile&#41; = 0;\n      &#125;\n      w++;\n   &#125;\n\n   * &#40; pFilter + wLen  &#41; = 0;\n   * &#40; pFilter + wLen + 1 &#41; = 0;\n\n\n	memset&#40; &#40;void*&#41; &amp;ofn, 0, sizeof&#40; OPENFILENAME &#41; &#41;;\n	ofn&#46;lStructSize = sizeof&#40;ofn&#41;;\n	ofn&#46;hwndOwner = GetActiveWindow&#40;&#41;;\n	ofn&#46;lpstrFilter = pFilter;\n	ofn&#46;nFilterIndex = 1;\n	ofn&#46;lpstrFile = buffer;\n	ofn&#46;nMaxFile = sizeof&#40;buffer&#41;;\n	ofn&#46;lpstrInitialDir = hb_parc&#40;3&#41;;\n	ofn&#46;lpstrTitle = pTitle;\n	ofn&#46;nMaxFileTitle = 512;\n	ofn&#46;Flags = flags;\n\n	if&#40; GetOpenFileName&#40; &amp;ofn &#41; &#41;\n	&#123;\n		if&#40;ofn&#46;nFileExtension!=0&#41;\n		&#123;\n			hb_retc&#40; ofn&#46;lpstrFile &#41;;\n		&#125;\n		else\n		&#123;\n			wsprintf&#40;cCurDir,&quot;%s&quot;,&amp;buffer&#91;iPosition&#93;&#41;;\n			iPosition=iPosition+strlen&#40;cCurDir&#41;+1;\n\n			do\n			&#123;\n				iNumSelected++;\n				wsprintf&#40;cFileName,&quot;%s&quot;,&amp;buffer&#91;iPosition&#93;&#41;;\n				iPosition=iPosition+strlen&#40;cFileName&#41;+1;\n				wsprintf&#40;cFullName&#91;iNumSelected&#93;,&quot;%s\\\\%s&quot;,cCurDir,cFileName&#41;;\n			&#125;\n			while&#40;  &#40;strlen&#40;cFileName&#41;!=0&#41; &amp;&amp; &#40; iNumSelected &lt;= 63 &#41; &#41;;\n\n			if&#40;iNumSelected &gt; 1&#41;\n			&#123;\n				hb_reta&#40; iNumSelected - 1 &#41;;\n\n				for &#40;n = 1; n &lt; iNumSelected; n++&#41;\n				&#123;\n					hb_storc&#40; cFullName&#91;n&#93;, -1, n &#41;;\n				&#125;\n			&#125;\n			else\n			&#123;\n				hb_retc&#40; &amp;buffer&#91;0&#93; &#41;;\n			&#125;\n		&#125;\n	&#125;\n	else\n	&#123;\n		hb_retc&#40; &quot;&quot; &#41;;\n	&#125;\n&#125;\n\nINT CALLBACK BrowseCallbackProc&#40;HWND hwnd,\n                                UINT uMsg,\n                                LPARAM lp,\n                                LPARAM pData&#41;\n&#123;\n   switch&#40;uMsg&#41;\n   &#123;\n   case BFFM_INITIALIZED&#58;\n      if &#40;szDirName&#41;\n      &#123;\n         // WParam is TRUE since you are passing a path&#46;\n         // It would be FALSE if you were passing a pidl&#46;\n         SendMessage&#40;hwnd, BFFM_SETSELECTION, TRUE, &#40;LPARAM&#41;szDirName&#41;;\n      &#125;\n      break;\n   &#125;\n   return 0;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:3u7g9s1p]','',0,'AIA=','3u7g9s1p',1,0,'',28,0,0),(104,26,3,58,0,'84.149.230.239',1128763352,1,0,1,1,1,0,'','Tsbrowse and lostfocus','Hi Marco,\n\nhave a look at the sbtest.prg sample.\nThere you can see the usage of [b:2hvlqfzw]bPostEdit[/b:2hvlqfzw].\n\nMaybe this could solve your problem.\n\nRegards,\nDetlef','',0,'QA==','2hvlqfzw',1,0,'',58,0,0),(105,39,6,28,0,'62.14.70.59',1128763615,1,0,1,1,1,0,'','','Esto es mas o menos lo que deberías hacer.\n\nUn saludo\n\nPaco García\n\n[code:bpl27bo3]\nfunction main&#40;&#41;\n\n\nlocal oWnd\n\nlocal oFont\nlocal oVMenu, oItem, oChild, oDlg\nlocal oSplit\n\n\n\nDEFINE FONT oFont NAME &quot;Ms Sans Serif&quot;  SIZE 0, -10 BOLD\n\nDEFINE WINDOW oWnd //COLOR 0, RGB&#40; 1, 162, 255 &#41;\n\n\n   @ 10, 10 VMENU oVMenu SIZE 215, 220 OF oWnd ;\n            COLOR RGB&#40;86,102,45&#41;, CLR_WHITE  ;\n            BORDER COLORBORDE RGB&#40; 224, 231, 184 &#41; ;\n            COLORSELECT 0 ;\n            UNDERLINE  ;\n            HEIGHT ITEM 25\n\n   DEFINE TITLE OF oVMenu ;\n          CAPTION &quot;Tareas de Red&quot; ;\n          HEIGHT 25 ;\n          COLOR RGB&#40;86,102,45&#41;, RGB&#40;252, 252, 236 &#41;, RGB&#40; 224, 231, 184 &#41; ;\n          RADIOSQUARE 4;\n          IMGBTN &quot;bmps\\upgreen&#46;bmp&quot;,&quot;bmps\\downgreen&#46;bmp&quot; ;\n          OPENCLOSE ;\n          FONT oFont ROUNDSQUARE\n\n       DEFINE VMENUITEM oItem OF oVMenu           ;\n	  HEIGHT 300\n\n  @ x, y BROWSE oListBox &#46;&#46;&#46;&#46;\n\n  @ 0, 260 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS  oVMenu;\n      HINDS CONTROLS oListBox ;\n      SIZE 4, 1300 PIXEL ;\n      OF oWnd   UPDATE\n\nACTIVATE WINDOW oWnd MAXIMIZED \n\noFont&#58;End&#40;&#41;\n\nreturn nil\n[/code:bpl27bo3]','',0,'AIA=','bpl27bo3',1,0,'',28,0,0),(106,3,3,58,0,'84.149.252.195',1128765627,1,0,1,1,1,0,'','','Hello Antonio,\n\nbeautiful new home.\nCongratulation to your new forum.\n\nBest regards,\nDetlef','',0,'AIA=','nls3jojb',1,0,'',58,0,0),(107,37,6,1,0,'62.103.19.226',1128766476,1,0,1,1,1,0,'','','Hola Paco !\nYa me hice unas pruebas.\nFunciona muy bien ! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nExcellente la solucion la de revolver un array de archivos !\n\nUn problemita :\nCuando la seleccion es de UN solo archivo, devuelve un array con las letras del nombre del archivo. \nNada para preocuparse. Hago un check para ver si los elementos del array\ntienen un solo caratter.\n\nYa me salvaste el dia  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nMuchas gracias por tu tiempo y por este aporte..\nUn saludo \nYannis Yannas\n[url:44r27kqg]http&#58;//www&#46;trinityvision&#46;gr[/url:44r27kqg]','',0,'EA==','44r27kqg',1,0,'',1,0,0),(108,44,3,38,0,'62.103.19.226',1128766773,1,0,1,1,1,0,'','','Hello again,\nPaco Garcia posted a solution in the Spanish Harbour/xHarbour forum.\n\nBest regards\nYanni Yannas\n[url:xgjdl7tj]http&#58;//www&#46;trinityvision&#46;gr[/url:xgjdl7tj]','',0,'EA==','xgjdl7tj',1,0,'',38,0,0),(109,43,6,12,0,'200.88.146.151',1128779586,1,0,1,1,1,0,'','Espero te funcione','DEFINE DIALOG oDLG RESOURCE \"TuDialogo\"\n\n oBar := TProgress():Redefine( 101, oDlg )\n\n oDlg:bStart := { || tufuncion( oBar ) }\n\nACTIVATE DIALOG oDLG CENTER\n\n\nStatic Function tuFuncion( oBar )\nLocal nAt := 0\noBar:SetRange( 0, 100 )\n\nFor nAt := 1 to 100\n oBar:SetPos( nAt )\nNext nAt\n\nReturn(.t.)','',0,'EA==','3nnsrrpo',1,0,'',12,0,0),(110,50,3,50,0,'84.121.117.186',1128781706,1,0,1,1,1,0,'','Lista de Correo','Hola Antonio, quería preguntar si es posible implementar el soporte que da FiveTech tambien mediante listas de correo, he visto que funciona de forma bastante \"fluída\" esta implementación....ya desde las listas de clipper.\n\nGracias.\n\nAntonio F. Ortega','',0,'EA==','1punk72j',1,0,'',50,0,0),(111,23,22,58,0,'84.149.240.30',1128783520,1,0,1,1,1,0,'','','Hi Roman,\n\ni would prefer people asking questions in Spanish language should post their questions in the Spanish section.\n\nJust my 2 Cents,\nDetlef','',0,'EA==','2nbpif3m',1,0,'',58,0,0),(112,43,6,54,0,'201.128.95.85',1128786961,1,0,1,1,1,1,'','Gracias','Pablo.\n\nGracias, resulto.\n\nmi problema era el on paint, ahora funciona.','',0,'EA==','162fy81n',1,0,'',54,0,0),(113,50,3,2,0,'80.58.2.107',1128790845,1,0,1,1,1,1,'','','Antonio,\n\nHay bastantes usuarios que no quieren listas de correos porque hacen de spam en sus buzones de correo, llenándolos de muchos mensajes.\n\nEste foro es privado, y podemos consultarlo cuando queramos, desde cualquier navegador web y hoy en día practicamente todos usamos adsl por lo que el tiempo de conexión no es un problema.','',0,'EA==','1m96wa7r',1,0,'',2,0,0),(114,44,3,49,0,'82.57.115.96',1128791200,1,0,1,1,1,0,'','','Dear Yanni,\nhave you the last release of your chat ?\nI wanted insert to it a webcam .\nDo you think it is possible ?','',0,'EA==','zlig5i9x',1,0,'',49,0,0),(115,41,6,45,0,'200.117.129.31',1128799351,1,0,1,1,1,0,'','Re: CheckBox transparente','[quote=&quot;Antonio F. Ortega&quot;:2fi1wvyw]Hola a todos:\n\nNecesito poner un checkbox en un dialogo que tiene como fondo un bmp, y no me lo pinta transparente, alguien me puede indicar como hacerlo; se que Carlos Mora, en su momento tenía este problema, me podrias indicar como lo resolviste ?.\n\nGracias.\n\nAntonio F. Ortega[/quote:2fi1wvyw]\n\n   Si le asignas un BRUSH tipo NULL al control, no se pone transparente ???\n   Algo asi:\n   oCheckBox:SetBrush( Trush():New(\"NULL\") )\n\nEso lo has probado ?\n\nHernan','',0,'gA==','2fi1wvyw',1,0,'',45,0,0),(116,36,1,1,0,'219.92.92.90',1128802873,1,0,1,1,1,0,'tnhoe','remote access dbf over IP address','Hi,\n\nYou can do this :-\n\n- install web server (eg: Apache,IIS, Fivewin web server)\n- install xBase plugin which support Clipper/Foxpro commands (eg: AFP or others)\n- write html script in html+javascript+Clipper/Foxpro to update dbf/cdx\n\nThe speed depands on line connection and the server  pc.\n\nRegards\ntnhoe','',0,'gA==','38vhw1jl',1,0,'',1,0,0),(117,42,6,43,0,'201.154.239.171',1128805410,1,0,1,1,1,0,'','','Hola Armando\n\n\n   Yo te recomiendo MySQL, claro obviamente con tu aplización FWH, te comento que tengo una aplicacion corriendo las cuales se conectan a las Matriz sin ningun problema, claro tambien aplicando no-ip (gratis), lo cual te sale mas barato no gastas en hosting, ni servidores (por el momento) y no se ve afectado el presupuesto de tu cliente, solo tienes que pagar tu licencia de MySQL.\n\n   Si tienes alguna duda, con gusto te puedo ayudar. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos\n\n  Marco A. Delgado','',0,'gA==','3dqb4216',1,0,'',43,0,0),(118,51,1,64,0,'200.217.108.149',1128806166,1,0,1,1,1,1,'','Preview with blank page','Hello,\n\n    Some times I have page blank when I use preview, to correct this problem I have to reset the machine. What is wrong?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','3drk1bit',1,0,'',64,0,0),(119,42,6,54,0,'201.128.95.85',1128823016,1,0,1,1,1,1,'','','Asi es, es muy funcional con mysql, funciona con no-ip.\n\nUso xHarbour, FWH 2.6, mySQL 5.11\n\nCualquier duda, ya sabes, acá estamos.','',0,'gA==','1u14666b',1,0,'',54,0,0),(120,41,6,2,0,'80.58.2.107',1128830992,1,0,1,1,1,1,'','Re: CheckBox transparente','Como bien dice Hernan, eso es lo primero a probar:\n\n[quote=&quot;Hernan Diego Ceccarelli&quot;:2v2ocds1]\n   Si le asignas un BRUSH tipo NULL al control, no se pone transparente ???\n   Algo asi: oCheckBox:SetBrush( Trush():New(\"NULL\") )\n\nEso lo has probado ?[/quote:2v2ocds1]\n\nLe faltó una \"B\": TBrush():New( \"NULL\" )  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2v2ocds1',1,0,'',2,0,0),(121,44,3,38,0,'62.103.19.226',1128832343,1,0,1,1,1,0,'','','Sorry Silvio, but i do not have a newer version.\nThat was a test to learn sockets, at the time.\n\nBest regards\nYannis Yannas\n[url:3lvq8eac]http&#58;//www&#46;trinityvision&#46;gr[/url:3lvq8eac]','',0,'EA==','3lvq8eac',1,0,'',38,0,0),(122,52,6,1,0,'201.140.20.184',1128833613,1,0,1,1,1,0,'Rios','Ot: Codigo para metodos de costeo de inventarios UEPS,PEPS..','Un saludo colegas del Foro.\n\n        Me gustaria saber si alguien que ya hizo algun sistema de control de inventarios quisiera compartir en el foro el codigo o el algoritmo para el costeo por UEPS, PEPS, Promedio, etc.\n\n        De antemano muchas gracias.\n\n        Jose Rios.','',0,'EA==','1ncu64bb',1,0,'',1,0,0),(123,53,3,1,0,'83.134.49.3',1128842677,1,0,1,1,1,0,'Frank Demont','Radio button\'s , focus not visible','Hello,\n\nIn a dialog , i have :\n\n    First object      : Get\n    Second object :  4 RadioButtons\n    Third object    :  2 RadioButtons\n\nWhen the dialog receives focus , The first get is focused. Putting his value\n, or pressing TAB , the cursor disappears (no expected rectangle)  , noway\nto now which control has focus. Pressing TAB again shows the third object\nhas focus , Shift TAB indicates correct the Second object has focus.\n\nThis kind off error\'s is VERY confusing and frustrating for the user and\nmake using radiobuttons so good as impossible.\n\nI have this behaviour on mine desktop computer (XP) , but i have it also\nseen at the client (WINDOWS 2000).\n\nOn 24/8/2004 i reported a similar problem with a checkbox.\n\nCan this problem be resolved ? If not i suppose that i have to change the\nradiobutton\'s in Comboboxes.\n\n                Frank','',0,'EA==','28w1u24c',1,0,'',1,0,0),(124,53,3,2,0,'80.58.2.107',1128852739,1,0,1,1,1,1,'','','Frank,\n\nAre you using XP themes ?','',0,'EA==','24zogy9n',1,0,'',2,0,0),(125,54,3,1,0,'83.134.49.226',1128854982,1,0,1,1,1,0,'Frank Demont','Getting GPF\'s','Antonio,\n\nUsing this forum , i get many GPF\'s , in several circumstances.\n\nSo i tryed to reply to mine previous post , GPF !\n\nSo , here is twe answer : no xp themes (so far as i know)','',0,'EA==','3farmwn7',1,0,'',1,0,0),(126,53,3,1,0,'83.134.49.226',1128855151,1,0,1,1,1,0,'Frank Demont','Focus on button not visible','Prevous try givesa gpf , the third in 5 minutes.\n\nI don\'t use wp-themes , mine clients works on win 2000','',0,'EA==','2cvy466l',1,0,'',1,0,0),(127,54,3,2,0,'80.58.2.107',1128855190,1,0,1,1,1,1,'','','Frank,\n\nDo you mean that your FW application GPFs if you are using these forums ???  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'EA==','1tuba8v6',1,0,'',2,0,0),(128,53,3,2,0,'80.58.2.107',1128855303,1,0,1,1,1,1,'','','Frank,\n\nCould you point to a FW samples directory sample that reproduces such behavior ? Or do you have a small and self contained sample to test here ? Thanks.\n\nBTW, Frank, would you mind to register here so no one else can use your name ? thanks.','',0,'EA==','2mmg49a7',1,0,'',2,0,0),(129,55,3,1,0,'83.134.49.226',1128855370,1,0,1,1,1,0,'Frank demont','GPF in this forum !','This forum , two minutes ago , i could enter in the reply , but when submitting , GPF !','',0,'EA==','33kmd51t',1,0,'',1,0,0),(130,55,3,2,0,'80.58.2.107',1128855544,1,0,1,1,1,1,'','','What Windows version do you use ? \n\nIf it is Windows 2000, have you applied all available patches from Microsoft ?\n\nWe do have a Win2000 machine here at the office, properly updated with all MS patches, and no GPF at all if we use these forums.  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'EA==','2vo9azl6',1,0,'',2,0,0),(131,39,6,23,0,'85.54.254.217',1128855885,1,0,1,1,1,1,'','','Genial! Paco, muchas gracias, tan fácil y tan ciego como estaba.\n\nUn saludo.','',0,'EA==','12rn2usk',1,0,'',23,0,0),(133,3,3,69,0,'65.92.154.253',1128864232,1,0,1,1,1,0,'','','Hi Everybody.\n\nI too have made it to the new forums.\n\nJeff','',0,'EA==','1y7o4vg0',1,0,'',69,0,0),(134,36,1,69,0,'65.92.154.253',1128864732,1,0,1,1,1,0,'','','Dutch,\n\nI do this in one of my apps.  I have a config file with the IP address for a certain PC then I just do the following:\n\ncFile := \"\\\\\"+alltrim(config-&gt;cIP)+\"\\myDir\\Text.dbf\"\nUSE &amp;cFile SHARED NEW ALIAS \"PCserver\"\n\nHope this helps,\n\nJeff','',0,'EA==','35zo4lil',1,0,'',69,0,0),(135,57,6,1,0,'201.132.234.243',1128879151,1,0,1,1,1,0,'Francisco Horta','OT News...','Hola foro,\n\nnecesito ayuda, desde que borre las news anteriores y me suscribi nuevamente, no he podido publicar nada en news.fivetechsoft.com, de hecho las publicaciones estan hasta el dia 6 de octubre, ya elimine el grupo y lo volvi a crear y sigue igual, el mensaje que manda es: No esta permitida la publicacion en el grupo de noticias \"local.fivewin.harbour.spanish\", utilizo Outlook Express, en el grupo de noticias de xharbour, ozs, olivares2000 si me permite publicar, algo al respecto...\nGracias','',0,'EA==','2skqxelb',1,0,'',1,0,0),(136,57,6,2,0,'80.58.2.107',1128879745,1,0,1,1,1,1,'','','Francisco,\n\nLas news anteriores estan de sólo lectura, por lo que no se puede publicar en ellas.\n\nLa idea es que nos acostumbremos a estos nuevos foros y veamos si somos capaces  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','3iq8ii92',1,0,'',2,0,0),(137,39,6,28,0,'62.14.204.108',1128880183,1,0,1,1,1,0,'','','un placer como siempre  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','2e1ystlo',1,0,'',28,0,0),(138,57,6,73,0,'201.132.234.243',1128880214,1,0,1,1,1,0,'','News...','[quote=&quot;Antonio Linares&quot;:9sg6njo8]Francisco,\n\nLas news anteriores estan de sólo lectura, por lo que no se puede publicar en ellas.\n\nLa idea es que nos acostumbremos a estos nuevos foros y veamos si somos capaces  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:9sg6njo8]\n\nGracias Antonio, pero para ser sinceros veo dificil que la gente se acostumbre a publicar en este tipo de foro, ya que por las news, era todo muy rapido y facil, ojala y se alcance el objetivo... y si la gente no se acostumbra que pasara?\nSalu2\nPaco','',0,'gA==','9sg6njo8',1,0,'',73,0,0),(139,51,1,1,0,'201.255.26.132',1128881287,1,0,1,1,1,0,'DanielPuente','Re: Preview with blank page','syda:\n\n         That happens in windows xp when you have an error in your print code, the program quits with an error and a temporary .wmf file like tmp0001.wmf is not deleted in your c:\\windows\\temp directory. What you have to do to avoid reseting the machine is to manually delete that file if you can, and if it has read only attributes you have to press ctrl+alt+del and kill the task wowexec.exe and only sometimes vtvdm.exe. Then you can delete the temporary file and all become normal again.\n\nRegards,\nDaniel Puente\nMar del Plata, Argentina\n<!-- e --><a href=\"mailto:danielpuente@speedy.com.ar\">danielpuente@speedy.com.ar</a><!-- e -->\n<!-- e --><a href=\"mailto:puenteda@hotmail.com\">puenteda@hotmail.com</a><!-- e -->\n\n[quote=&quot;syda&quot;:bjkyblak]Hello,\n\n    Some times I have page blank when I use preview, to correct this problem I have to reset the machine. What is wrong?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:bjkyblak]','',0,'gA==','bjkyblak',1,0,'',1,0,0),(140,10,6,72,0,'201.129.244.104',1128881818,1,0,1,1,1,0,'','','Ya llegué!!! (anadaba perdido).\n\nFelicidades.','',0,'gA==','1ux90ldh',1,0,'',72,0,0),(141,58,4,13,0,'213.76.252.200',1128883376,1,0,1,1,1,0,'','Final version FwPpc','Hello Antonio\n\nDo you planned include with FwPpc final version multiline edit control and other functionality (print methods, comm port methods etc.) ? When this version will be released ?\n\nRegards, Pawel','',0,'gA==','1owbt592',1,0,'',13,0,0),(142,59,4,1,0,'65.100.82.92',1128884231,1,0,1,1,1,0,'Terry Bottorff','Visual Foxpro and Pocket Pc','I develop in Visual FoxPro and I want to Use a Pocket PC for one of my applications.  What one of your products would I want to use?  Also, what would the cost be in U.S. Dollars?  TIA.','',0,'gA==','1yvoslsi',1,0,'',1,0,0),(143,53,3,67,0,'83.134.57.44',1128884240,1,0,1,1,1,0,'','','Antonio\n\nTomorrow , i will try , but i did some test\'s :\n\n    Unvisible focus from radiobuttons are frequent. In mine first thread , it was produced EVERY time the dialog was opened and the second object received focus , not when it received focus a second time\n\nNow , i changed the second object in a drop down combo box , and the third object (radiobuttons) shows still focus as expected \n\nIn the passed i reported simular problem with checkbox (when it was the first from the dialog)\n\nI hate it to give to mine users a declaration as : sorry , it isn\'t mine fault , but ..... (Microsoft , fivewin , .....)\n\nFrank','',0,'gA==','gaotus4b',1,0,'',67,0,0),(144,60,4,1,0,'65.100.82.92',1128884463,1,0,1,1,1,0,'Terry Bottorff','Sample Applications','I downloaded your sample applications.   What do I need to do to get them to run?  Or are there directions that will tell me how and what I need to do to run them?  I have a pocket PC.  TIA','',0,'gA==','yigpfjw2',1,0,'',1,0,0),(145,61,1,1,0,'66.130.4.121',1128884736,1,0,1,1,1,0,'Gilbert Vaillancourt','DeviceCapabilities()','Hi All,\n \nI would like to understand why I cannot get anything out of DeviceCapa() function. \n \nI absolutely need to retreive a paper type and source bin list,\nbut I only get weird results.\n \nAccording to documentation I should be getting an array containing the names of the paper bins available for the tested printer. \n(HP LaserJet 2100)\n \nHere is a piece of code I\'m using for testing with the results I get:\n\n \n\nnValue := DeviceCapabilities(scPrntName, DC_BINNAMES, @xContainer)\n\nif nValue &gt; 0\n\n       MsgInfo(Str(nValue))                                  // Returns 15.    Don\'t know what it means\n\n       MsgInfo(Str(Len(xContainer)))                  // Returns 15.    Seems to be the lenght of the string \n\n       MsgInfo(ValType(xContainer))                 // Returns `C`  for string instead of  `A`for array\n\n       MsgInfo(xContainer)                                  //  Displays `Sélection aut`  instead of  a full list of bin names\n\n                                                                               // The HP LaserJet 2100 I own has 3 bins on it\n\nendif\n\nI did another test using DC_PAPERNAMES. I also get false results. \n \nDeviceCapabilities() returns 11\nLenght of xContainer is also 11\nValType of xCOntainer is `C`\nContent of xContainer only displays (8 1. wich is only 5 characters while Lenght of xContainer reported a string of 11 char.\n \nWhat am I doing wrong ?\nNedd to say that I`m testing on a station that runs on Windows 98SE french version and the printer driver are also french.\nCan this be the resson ?\n \nRegards,\n \n \nGilbert Vaillancourt\nInformatique TurboLogie\n(418) 845-0611\n<!-- e --><a href=\"mailto:turbolog@videotron.ca\">turbolog@videotron.ca</a><!-- e -->','',0,'gA==','11yifq7m',1,0,'',1,0,0),(146,62,3,76,0,'212.216.133.30',1128890120,1,0,1,1,1,1,'','zip-unzip','I\'m trying to work with zipfile() and unzipfile(), testing testzip.prg in the samples folder. I get a link error for the two unknown functions. Looking at functions help of FWH, it seems the two functions were integrated in FWH libs.\nI\'m using Xharbour, where is the problem?\nregards','',0,'gA==','20jx4pdp',1,0,'',76,0,0),(147,63,6,77,0,'80.224.242.96',1128891266,1,0,1,1,1,0,'','SCOPES CON HARBOUR','hOLA A TODOS, Estoy pasando una aplicación de fw a Fwh 2.5, el problema que me encuentro es cuando llego a los scopes al compilar con harbour la linea \n\nSET SCOPE TO strzero((odtemp)-&gt;numeroped,5)\n\nme da el siguiente error:\nError E0030  Syntax error: \"parse error at \'SCOPE\'\"\n\ny al cambiar la linea anterior por:\n\n   (odtem1)-&gt;(ordscope(0,strzero((odtemp)-&gt;numeroped,5)))\n   (odtem1)-&gt;(ordscope(1,NIL))\n\no por:\n ordscope(strzero((odtemp)-&gt;numeroped,5),strzero((odtemp)-&gt;numeroped,5))\n\nno actua el scope, es como si no existiera.\n\n¿ Que Estoy haciendo mal ?\n\nGracias','',0,'gA==','254zcupw',1,0,'',77,0,0),(148,60,4,2,0,'80.58.2.107',1128893908,1,0,1,1,1,1,'','','Terry,\n\nIf you have a SD memory card (and a card reader connected to your PC), just copy the applications to it. Put the memory card on your Pocket PC and run them.\n\nOr, you may transfer them from your PC to the Pocket PC using ActiveSync or bluetooth.','',0,'gA==','kfvcj4sb',1,0,'',2,0,0),(149,58,4,2,0,'80.58.2.107',1128894021,1,0,1,1,1,1,'','','Pawel,\n\nYes, we are in the process to implement printing support, com port management and infrared and bluetooth support too, besides the controls you mentioned.\n\nThat will reach version 1.0.','',0,'gA==','1fmdf3e3',1,0,'',2,0,0),(150,59,4,2,0,'80.58.2.107',1128894170,1,0,1,1,1,1,'','','Terry,\n\nWe already have several FoxPro developers using our product FiveWin for Pocket PC (FWPPC) and they feel very comfortable developing Pocket PC applications with it.\n\nClipper language syntax and FWPPC commands are quite similar to FoxPro, so the learning curve is not hard.\n\nIf you visit our purchase section at <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> and select FiveWin for Pocket PC (FWPPC) you will see its price on the screen.','',0,'gA==','21jxev4b',1,0,'',2,0,0),(151,57,6,2,0,'80.58.2.107',1128894512,1,0,1,1,1,1,'','Re: News...','[quote=&quot;Francisco Horta&quot;:y2c1i5fv] y si la gente no se acostumbra que pasara?[/quote:y2c1i5fv]\n\nEste tipo de foros son ya muy usados en Internet, sobre todo ahora que casi todo el mundo usa adsl. Seguro que dentro de poco lo usaremos con mucha soltura  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nAdemás tienen muchas ventajas: se pueden editar y modificar los mensajes. Se puede solicitar que se nos notifique por email cuando alguien responda. Las opciones de búsqueda y filtrado son muy eficientes, etc.','',0,'gA==','y2c1i5fv',1,0,'',2,0,0),(152,62,3,2,0,'80.58.2.107',1128894802,1,0,1,1,1,1,'','','Riccardo,\n\nThose functions are not available in FWH. You may use the free hbzip.lib for Harbour/xHarbour.','',0,'gA==','nwif51bn',1,0,'',2,0,0),(153,59,4,1,0,'65.100.82.92',1128914433,1,0,1,1,1,0,'Terry Bottorff','Euros','I went to your purchase section and it says 232 euros.  I do not know what the conversion to US Dollars would be?  TIA.','',0,'gA==','2bcrzarz',1,0,'',1,0,0),(154,60,4,1,0,'65.100.82.92',1128915311,1,0,1,1,1,0,'Terry Bottorff','Manual','Is the manual available so one could look at it to see what is involved in a setting up a form and so forth?  Also, where does one get the pocket PC emulator (ARM)?  TIA.','',0,'gA==','3a2x9sx5',1,0,'',1,0,0),(155,63,6,73,0,'201.132.234.243',1128915391,1,0,1,1,1,0,'','Re: SCOPES CON HARBOUR','probate aponer el puntero al principio y completar el segundo scope a mi me va bien asi:\n\n(oDPqm)-&gt;(DbGoTop())\n(oDPqm)-&gt;( OrdScope( 0, Str((oDPaq)-&gt;PAQ_NUMER,4)+Str((oDPaq)-&gt;PAQ_ANO,4) ) )\n(oDPqm)-&gt;( OrdScope( 1, Str((oDPaq)-&gt;PAQ_NUMER,4)+Str((oDPaq)-&gt;PAQ_ANO,4) ) )','',0,'gA==','3u3kn3pi',1,0,'',73,0,0),(156,59,4,2,0,'80.58.2.107',1128927797,1,0,1,1,1,1,'','','Terry,\n\nYou can calculate it from here: [url:2ipbqlwr]http&#58;//finance&#46;yahoo&#46;com/currency[/url:2ipbqlwr]','',0,'EA==','2ipbqlwr',1,0,'',2,0,0),(157,60,4,2,0,'80.58.2.107',1128927997,1,0,1,1,1,1,'','','Terry,\n\nThere are several FiveWin manuals you may download from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> download section which will provide you a FiveWin use intro.\n\nWe provide you all the free Microsoft tools required to build the Pocket PC applications, with FWPPC. Everything ready for a quick start.','',0,'EA==','1gmrctle',1,0,'',2,0,0),(158,41,6,1,0,'80.58.10.235',1128931240,1,0,1,1,1,0,'Carlos Mora','Re: CheckBox transparente','Hernán,\nProbar con Brushes NULL fué una de las primeras cosas que hice, tambien probé de ponerle el brush del diálogo, aunque seguro lo pintaba mal pq el brush del dialogo es un bmp con degradé y no coincidiría. El fondo, indefectiblemente, lo tiene que pintar el diálogo. Debería ser transparente.\nPor las dudas lo probé de nuevo y no funciona. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSaludos','',0,'EA==','2ppgzv12',1,0,'',1,0,0),(159,27,4,19,0,'217.153.83.2',1128931711,1,0,1,1,1,0,'','','Pawel\n\nI have made some application on PocketPC using embeded VC with connection on socket v.2.0 to socket server. I can send BMP file to PPC , display it on screen, i can get some data and sent it to socket server. I start program this device prior FWPPC and it is realy hard to understand how my program works . I think FWPPC will simplify my work but I\'m waiting for stable version with full socket support. \n\nregards Eugeniusz','',0,'EA==','3dtkduo0',1,0,'',19,0,0),(160,41,6,1,0,'80.58.10.235',1128931741,1,0,1,1,1,0,'Carlos Mora','Re: CheckBox transparente','Antonio, Hernán,\nEste problema está posteado en las news el 21/09, y la sugerencia de Hernán fue la misma que ahora, y ya estaba dicho que no marchaba.\nY sigue sin resolver...\n\nSaludos','',0,'EA==','2irgyoon',1,0,'',1,0,0),(161,41,6,2,0,'80.58.2.107',1128932052,1,0,1,1,1,1,'','','Carlos,\n\nUna posible solución es crear un control que se comporte como un checkbox y que sea transparente. No es un control dificil de hacer.\n\nPor favor, regístrate para que sólo tú puedas usar tu nombre de usuario. Gracias.','',0,'EA==','13ozw2z4',1,0,'',2,0,0),(162,23,22,26,0,'193.95.231.199',1128938090,1,0,1,1,1,1,'','','Sure - above link is meant to be used as read-only!\n\nCheers, Roman','',0,'EA==','3sac6kp6',1,0,'',26,0,0),(163,64,22,26,0,'193.95.231.199',1128938785,1,0,1,1,1,1,'','Two suggestions!','Hello.\n\n(i) Some forums (for example Adobe: [url:3hyga0js]http&#58;//www&#46;adobe&#46;com/support/forums/main&#46;html[/url:3hyga0js]) can be\nused both in newsgroup readers and web browsers. Any chance to \ndo this in the future? For example, sometimes I work with laptop\nat places without internet connection ...  <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> \nLocal archive on disk is sometimes good feature ...\n\n(ii) I think that off-topic or non-technical section is missing.  <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: -->\n\nCheers, Roman','',0,'EA==','3hyga0js',1,0,'',26,0,0),(164,64,22,2,0,'80.58.2.107',1128940574,1,0,1,1,1,1,'','Re: Two suggestions!','[quote=&quot;modicr&quot;:13rdcvxi]be used both in newsgroup readers and web browsers. Any chance to do this in the future?...\n[/quote:13rdcvxi]\n\nI think its quite difficult to get that dual functionality with this phpbb we are using.\n\n[quote=&quot;modicr&quot;:13rdcvxi](ii) I think that off-topic or non-technical section is missing.  <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: -->[/quote:13rdcvxi]\n\nImplemented  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','13rdcvxi',1,0,'',2,0,0),(165,65,6,63,0,'80.58.35.107',1128940886,1,0,1,1,1,0,'','RClicked en ListBox','Alguien podría decirme cómo hacer que al clicar con el botón derecho en una linea de un ListBox se active (o sea, se ponga azul) esa línea.  Se trata de implementar un menú PopUp cuyos items hacen relación a cada línea del ListBox.   \n\nHasta ahora, lo tengo que hacer mediante LClick para seleccionar  seguido de RClick para abrir el PopUp.  Seguro que tiene que haber una forma de combinar las dos acciones en una pero no consigo encontrarla\n\nGracias\n\nRafael','',0,'gA==','2gcvtj8k',1,0,'',63,0,0),(166,66,3,63,0,'80.58.35.107',1128941567,1,0,1,1,1,0,'','RClick in ListBox','Anybody could give an example to solve the following problem:\n\nI have a ListBox and would like that upon clicking the Right button on any line, that line becomes activated (blue).   The idea is to open a PopUp menu to perform some actions on the contens of that line.  Until now, I have to Lclik first to select the line and then RClick to open the menu.  Surely must be some way to perform both actions at once.\n\nThanks\n\nRafael','',0,'gA==','34lcjtdv',1,0,'',63,0,0),(167,65,6,2,0,'80.58.2.107',1128942372,1,0,1,1,1,1,'','','Rafael,\n\nPrueba con esto:\n[code:1pxngpdt] oLbx&#58;bRClicked &#58;= &#123; | nRow, nCol | oLbx&#58;SendMsg&#40; WM_LBUTTONDOWN, nRow, nCol &#41; &#125; [/code:1pxngpdt]','',0,'AIA=','1pxngpdt',1,0,'',2,0,0),(168,66,3,2,0,'80.58.2.107',1128942447,1,0,1,1,1,1,'','','Rafael,\n\nPlease review my suggestion at the spanish forum.','',0,'AIA=','316foi2s',1,0,'',2,0,0),(169,63,6,77,0,'80.58.35.107',1128942714,1,0,1,1,1,0,'','','Gracias Francisco, solucionado...','',0,'AIA=','33btnf9y',1,0,'',77,0,0),(170,3,3,86,0,'81.83.185.136',1128943988,1,0,1,1,1,0,'','','Great initiative.\n\nThanks, Antonio, and much succes.\n\nMichel D.\nGenk (Belgium)','',0,'AIA=','c2l1mzr1',1,0,'',86,0,0),(171,62,3,76,0,'80.17.137.201',1128946300,1,0,1,1,1,1,'','','Ok Antonio. Why are they in FWH 2.6 docs?\nanyway, where could I find hbzip.lib?\n\nregards, riccardo','',0,'AIA=','1v1qj0zo',1,0,'',76,0,0),(172,8,2,88,0,'82.150.2.19',1128948976,1,0,1,1,1,1,'','','Saludos,\n\neste foro, a mi entender, es un gran avance para la comunidad de usuarios de FiveWin, sobre todo de habla hispana.\n\n\nEsperemos que el dia a dia le de solidez al foro.\n\n\n\nBien hecho!','',0,'AIA=','1p8lglp8',1,0,'',88,0,0),(173,67,2,1,0,'82.150.2.19',1128951883,1,0,1,1,1,0,'','Cambiar el aspecto de la ventana de la aplicacion.','Saludos,\n\nquisiera saber como cambiar el aspecto de mis ventanas al que ofrece Win-XP.\n\nEn la actualidad se ven como si estuviesen en Win 3.11, como si ejecutases el simbolo del sistema (cmd.exe) o algo similar.\n\n\n\n\nGracias de antemano.','',0,'AIA=','1zibcs67',1,0,'',1,0,0),(174,67,2,88,0,'82.150.2.19',1128951988,1,0,1,1,1,1,'','','El post anterior es mio.\n\n\nAl parecer tarde demasiado tiempo y estaba fuera del sistema.\n\n\n\nNos leemos!!','',0,'AIA=','2khp9mhv',1,0,'',88,0,0),(175,19,2,42,0,'80.58.4.237',1128952014,1,0,1,1,1,0,'','','ahi estaba, muchas gracias!\npero al linkar alguno de los prg (p.e. Turtor01) de samples me da este error, en otros no hay problema.\nC:\\FWEVAL\\LIB\\FIVE.LIB(ERRSYSW) error L2025 : errorsys : simbol defined more than once','',0,'AIA=','2q69imvs',1,0,'',42,0,0),(176,66,3,63,0,'80.58.35.107',1128952849,1,0,1,1,1,0,'','','Antonio:\nTu sugerencia no parece funcionar.  El primer RClick hace que el elemento seleccionado \"siga\" al cursor del ratón pero no se estabiliza.  Aquí está el programa que he utilizado para probarlo  (XP Prof + FWH/FWHX 2.6 May/2005), por si lo quieres verificar:\n\n[code:2nr2eclr]#include &quot;FiveWin&#46;ch&quot;\nSTATIC oWnd, oLbx, oSay\nFUNCTION Main&#40;&#41;\nLOCAL  cLbx, cTxt &#58;= SPACE&#40;10&#41;\n\nDEFINE WINDOW oWnd TITLE &quot;Test bRClicked&quot;\n@ 1, 2 SAY oSay VAR cTxt COLOR CLR_BLACK, CLR_WHITE\n@ 4, 2 LISTBOX oLbx VAR cLbx ;\n       ITEMS &#123;&quot;Uno&quot;,&quot;Dos&quot;,&quot;Tres&quot;,&quot;Cuatro&quot;,&quot;Cinco&quot;,&quot;Seis&quot;,&quot;Siete&quot;,&quot;Ocho&quot;&#125;;\n       SIZE 200,100 OF oWnd\noLbx&#58;bRClicked &#58;= &#123;|nRow, nCol| Prueba&#40;nRow, nCol&#41;&#125;\nACTIVATE WINDOW oWnd\nRETURN NIL\n\nFUNCTION Prueba&#40;nRow, nCol&#41;\noLbx&#58;SendMsg&#40;WM_LBUTTONDOWN, nRow, nCol&#41;\noSay&#58;VarPut&#40;oLbx&#58;VarGet&#40;&#41;&#41;; oSay&#58;Refresh&#40;&#41;\nRETURN NIL[/code:2nr2eclr]','',0,'AIA=','2nr2eclr',1,0,'',63,0,0),(177,68,22,26,0,'193.95.194.183',1128953133,1,0,1,1,1,1,'','memberlist','Link to [url:2g63r7ir]http&#58;//fivetechsoft&#46;com/forums/memberlist&#46;php[/url:2g63r7ir] does not work anymore. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRoman','',0,'EA==','2g63r7ir',1,0,'',26,0,0),(178,68,22,2,0,'80.58.2.107',1128953499,1,0,1,1,1,1,'','','Roman,\n\nWe keep that info as private to avoid spam.','',0,'EA==','3hmp25z0',1,0,'',2,0,0),(179,69,6,1,0,'200.119.56.118',1128960594,1,0,1,1,1,0,'leandro alfonso','no funcionan botones','Hola a todos los compañeros del foro.\n\nTengo el siguiente problema cuando hago clic sobre los botones me arroja un error de argumento. alguien me puede decir que me falta?\n\nLEANDRO ALFONSO\nDESDE COLOMBIA','',0,'EA==','27nurgrk',1,0,'',1,0,0),(180,69,6,74,0,'201.255.23.117',1128961435,1,0,1,1,1,1,'','Re: no funcionan botones','Leandro:\n              Tendrias que mostrarnos las linea donde definis los botones y decirnos la descripcion exacta del error que te da para que te podamos ayudar.\n\nSaludos,\n\n[quote=&quot;leandro alfonso&quot;:j2i14sdc]Hola a todos los compañeros del foro.\n\nTengo el siguiente problema cuando hago clic sobre los botones me arroja un error de argumento. alguien me puede decir que me falta?\n\nLEANDRO ALFONSO\nDESDE COLOMBIA[/quote:j2i14sdc]','',0,'gA==','j2i14sdc',1,0,'',74,0,0),(181,70,6,61,0,'200.40.234.11',1128962275,1,0,1,1,1,0,'','Editor de recursos - modo texto ? Cual ?','Hola amigos:\n\nEstoy usando Pelles C pero deseo saber si alguien sabe\nde un Editor de Recursos que muestre el dialogo (por Ejemplo)\nen  modo textto (como el Workshop de Borland)\n\nEsto me facilita copiarlo a  mi editor de codigo y desde\nahi modificarlo para hacer el codigo mas rapido.\n\nGracias.\n\nBuenasaso el foro.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','2o5glo9j',1,0,'',61,0,0),(182,62,3,1,0,'201.128.111.62',1128962409,1,0,1,1,1,0,'','','[quote=&quot;Maverich&quot;:3wq0w2jd]Ok Antonio. Why are they in FWH 2.6 docs?\nanyway, where could I find hbzip.lib?\n\nregards, riccardo[/quote:3wq0w2jd]\n\nThose functions are in FW 2.6 because they only work on 16 bits, both, 32 &amp; 16 bits FiveWin use the most of the functions, not all of them so they share the same documentatio.\n\nFW 16 bits zip system is based on a free DLL set inclued with fivewin, (see DLL folder, infounz.dll and wizzip.dll) and those DLLs can only be used under 16 bits FiveWin.\n\nIf you are workin with (x)HB, you have to use the hbzip.lib inclued in the contributions of the project, for xHB you can donwload the lib from <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->, section DOWNLOADS/CONTRIBS\n\nRegard\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'gA==','3wq0w2jd',1,0,'',1,0,0),(183,71,6,37,0,'200.121.160.67',1128962576,1,0,1,1,1,0,'','Impresion con TDosPrn en Xerox Phaser 3121','Saludos Amigos, un buen dia un cliente me dice que compro una impresora  y no sale nada a la hora de imprimir ???\nEsta es una Xerox Phaser 3121, efectivamente, si voy por la TReport imprime Ok, pero si paso por la TDosPrn no imprime nada, Yo paso los\ncaracteres de impresion ( ::cCompress  := &gt; \"27,40,115,49,56,72\" )  para impresoras Laser y hasta la fecha habia funcionado Ok, es mas aca tengo una Lexmark E230 (Laser) y imprime Ok, y en otros modelos que he probado tambien, por favor que creen que pueda estar pasando ???, hay algunos codigos de impresion adicionales que pueda usar ???\nComo dato les comento que aun saliendo al prompt del DOS y escribiendo \nDIR &gt; PRN no sucede nada, cosa que si imprime en mi Epson Matricial y mi Lexmark Laser.\nEntorno de Trabajo : WinXP Service Pack 2, FW 2.6, en ambos\ncasos mando por puerto paralelo local (LPT1) Estare muy\nagradecido a sus comentarios, cordiales saludos\n\nEnrrique Vertiz Pitta\nLima-Peru','',0,'gA==','egn0ml06',1,0,'',37,0,0),(184,35,6,18,0,'200.67.188.236',1128963834,1,0,1,1,1,1,'','','[quote=&quot;Hernan Diego Ceccarelli&quot;:3uttt9jo]\n\nHola,\n   No faltara el InitCommonControlsEx ???????\n\nSalu2[/quote:3uttt9jo]\n\nAl agregar esa función en el New de las clases , solamente TProgress se soluciona   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , TTrackbar sigue presentando el mismo problema   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .\n\nGracias Hernán.','',0,'gA==','3uttt9jo',1,0,'',18,0,0),(185,69,6,1,0,'201.245.106.245',1128968800,1,0,1,1,1,0,'leandroalfonso','no funcionan botones','Hola a todos los compañeros del foro,\ntengo el problema que los botones no me ejecutan al acción que necesito y me genera un error de argumento.\n\nintente con los botones BTNBMP y no lo logre tampoco me sigue arrojando el\nmismo error\n\ndefino lode botones de la siguiente menera:\n\nDEFINE DIALOG OBentr00 RESOURCE \"OBentr00\" OF dwpri\n\nREDEFINE GET Oaliusu VAR Galiusu ID 110  OF OBentr00\nREDEFINE GET Oclausu VAR Gclausu ID 111  OF OBentr00\nREDEFINE GET Oclaemp VAR Gclaemp ID 116  OF OBentr00\n\nREDEFINE SAY Sacla0              ID   5  OF OBentr00\nREDEFINE SAY Sacla1              ID   8  OF OBentr00\nREDEFINE SAY Sacla2              ID   9  OF OBentr00\nREDEFINE SAY Sacla3              ID  23  OF OBentr00\n\nREDEFINE BITMAP bdibu ID 19 OF  OBentr00 FILENAME (Bent)\n\nREDEFINE BTNBMP vbot1 ID 120 OF OBentr00 FILENAME (Bacep) NOBORDER ACTION\nVERIFICA(OBentr00)\n\nREDEFINE BTNBMP vbot2 ID 109 OF OBentr00 FILENAME (Bsali) NOBORDER ACTION\ndwpri:END()\n\nREDEFINE LISTBOX lisbas VAR este FIELDS HEMP-&gt;hymecodi,HEMP-&gt;hymeempr ID 113\nOF OBentr00 ;\n               HEADERS \"Código\",\"Nombre\";\n               ON CHANGE\n(codemp:=(HEMP-&gt;hymecodi),anoemp:=(HEMP-&gt;hymeanos),PIDECLAVE())\n\nlisbas:CtrPanel\nOaliusu:bGotFocus:={||Oaliusu:SelectAll()}\nOclausu:bGotFocus:={||Oclausu:SelectAll()}\nOclaemp:bGotFocus:={||Oclaemp:SelectAll()}\n\nACTIVATE DIALOG OBentr00 ON INIT (lisbas:gotfocus(),lisbas:gotop()) VALID\n(Salir)\n\nUn abrazo desde colomb ia\n\nLEANDRO ALFONSO','',0,'gA==','2ng79zd8',1,0,'',1,0,0),(186,72,4,20,0,'80.117.236.206',1128971278,1,0,1,1,1,0,'','FWPPC: DLL &amp; FOLDER/TAB','I have need to use external functions recorded in one DLL.\nThe Calldll() function still does not allow to pass parameters.\nI have also need to use the FOLDER/TAB class.\nWhen it will be possible to make this?\n\nRegards.\nPier Luigi','',0,'gA==','3ldb3sis',1,0,'',20,0,0),(187,73,19,2,0,'81.36.70.146',1128980040,1,0,1,1,1,1,'','Installing the Windows Vista sidebar on XP','<!-- m --><a class=\"postlink\" href=\"http://www.tipmonkies.com/2005/10/10/installing-the-windows-vista-sidebar-on-xp\">http://www.tipmonkies.com/2005/10/10/in ... ebar-on-xp</a><!-- m -->\n\nWorks nicely!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nNotice that you can drag &amp; drop the \"parts\" (named \"gadgets\") onto the desktop, having a similar functionality like OSX tiger \"widgets\".','',0,'gA==','38tb4dvx',1,1130226739,'',2,1,0),(188,71,6,1,0,'200.92.135.6',1128980928,1,0,1,1,1,0,'','Re: Impresion con TDosPrn en Xerox Phaser 3121','[quote=&quot;Enrrique Vertiz&quot;:2a90hz82]\nEsta es una Xerox Phaser 3121, efectivamente, si voy por la TReport imprime Ok, pero si paso por la TDosPrn no imprime nada, Yo paso los\ncaracteres de impresion ( ::cCompress  := &gt; \"27,40,115,49,56,72\" )  para impresoras Laser y hasta la fecha habia funcionado Ok, es mas aca tengo una Lexmark E230 (Laser) y imprime Ok, y en otros modelos que he probado tambien, por favor que creen que pueda estar pasando ???, hay algunos codigos de impresion adicionales que pueda usar ???\nComo dato les comento que aun saliendo al prompt del DOS y escribiendo \nDIR &gt; PRN no sucede nada, cosa que si imprime en mi Epson Matricial y mi Lexmark Laser.\nEnrrique Vertiz Pitta\nLima-Peru[/quote:2a90hz82]\n\nDesde hace tiempo muchas impresoras \"nuevas\" no incluyen soporte de codigos de impresora (impresion directa), y solamente pueden ser usadas como \"impresoras  Windows\"\nNo se si lo hagan para abaratar costos, o simplemente para ayudar  a MS a desaparecer el mundo DOS\n\nEn mi caso tengo tres impresoras:\n- Epson 740. Soporta codigos de impresora\n- Epson C82. No soporta codigos de impresora\n- HP Laserjet 1200. Soporta codigos de impresora\n\nNo quiero deshacerme de la Epson 740 porque entonces no podria imprimir usando el clasico estilo DOS mediante codigos Epson\n\nDesde hace años, siempre que compro una nueva impresora, primero verifico que funcione usando codigos de impresora\n\nGracias,\nDavid Macias','',0,'gA==','2a90hz82',1,0,'',1,0,0),(189,70,6,53,0,'200.66.175.248',1128981216,1,0,1,1,1,0,'','Re: Editor de recursos - modo texto ? Cual ?','Rubén:\n\nYo uso Resource Builder de Sicomponents\n<!-- w --><a class=\"postlink\" href=\"http://www.sicomponents.com/\">www.sicomponents.com/</a><!-- w -->\n\nY tiene esa función\nSaludos, Armando','',0,'gA==','319xo946',1,0,'',53,0,0),(190,74,6,52,0,'201.235.155.56',1128983795,1,0,0,1,1,0,'','API','Estimados: las definiciones de las API que trae el FW, puedo usarlas en el FWH + Harbour?\n\nGracias.\nAlgun ejemplo, agradecería.','',0,'gA==','3b0ovsau',1,0,'',52,0,0),(191,75,3,49,0,'87.3.176.204',1128985546,1,0,1,1,1,0,'','Help to antonio','I trying to convert old program ( 16 bit) to xharbour and now my xmate make me errors :\n\n::nWidth  := pBmpWidth ( ::hBmp )\n::nHeight := pBmpHeight( ::hBmp )\n\nthese func exist or not ?\n\nRegards\nSilvio','',0,'gA==','2vg688xq',1,0,'',49,0,0),(192,69,6,74,0,'201.250.157.127',1128987553,1,0,1,1,1,1,'','Re: no funcionan botones','Alfonso:\n\n             Sigues sin decirnos la descripcion exacta del error y en que linea se produce, por ejemplo si nos dijeras, el error dice:\n\n   Descripci¢n: Error BASE/1081  Error de argumento: +\n   Invocado por TIT_ENTE(858)\n\n              Y cual es la linea 858 de tu programa (siguiendo este ejemplo) te podriamos decir exactamente cual es el problema.\n\n               De todas maneras:\n\n-Si el error es en este boton nos deberias decir la descripcion exacta del error y en que linea de verifica() se produce y que tienes escrito ahi\n\nREDEFINE BTNBMP vbot1 ID 120 OF OBentr00 FILENAME (Bacep) NOBORDER ACTION\nVERIFICA(OBentr00)\n\n-Y es este boton supongo que lo que deberias cerrar ahi es el dialogo (oBentr00:End()) y no el control que lo contiene (dwpri) que supongo que sera alguna ventana.\n\nREDEFINE BTNBMP vbot2 ID 109 OF OBentr00 FILENAME (Bsali) NOBORDER ACTION\ndwpri:END()\n\n         Mostranos la descripcion y la linea del error.\n\nSaludos\n\n\n[quote=&quot;leandroalfonso&quot;:1451agj3]Hola a todos los compañeros del foro,\ntengo el problema que los botones no me ejecutan al acción que necesito y me genera un error de argumento.\n\nintente con los botones BTNBMP y no lo logre tampoco me sigue arrojando el\nmismo error\n\ndefino lode botones de la siguiente menera:\n\nDEFINE DIALOG OBentr00 RESOURCE \"OBentr00\" OF dwpri\n\nREDEFINE GET Oaliusu VAR Galiusu ID 110  OF OBentr00\nREDEFINE GET Oclausu VAR Gclausu ID 111  OF OBentr00\nREDEFINE GET Oclaemp VAR Gclaemp ID 116  OF OBentr00\n\nREDEFINE SAY Sacla0              ID   5  OF OBentr00\nREDEFINE SAY Sacla1              ID   8  OF OBentr00\nREDEFINE SAY Sacla2              ID   9  OF OBentr00\nREDEFINE SAY Sacla3              ID  23  OF OBentr00\n\nREDEFINE BITMAP bdibu ID 19 OF  OBentr00 FILENAME (Bent)\n\nREDEFINE BTNBMP vbot1 ID 120 OF OBentr00 FILENAME (Bacep) NOBORDER ACTION\nVERIFICA(OBentr00)\n\nREDEFINE BTNBMP vbot2 ID 109 OF OBentr00 FILENAME (Bsali) NOBORDER ACTION\ndwpri:END()\n\nREDEFINE LISTBOX lisbas VAR este FIELDS HEMP-&gt;hymecodi,HEMP-&gt;hymeempr ID 113\nOF OBentr00 ;\n               HEADERS \"Código\",\"Nombre\";\n               ON CHANGE\n(codemp:=(HEMP-&gt;hymecodi),anoemp:=(HEMP-&gt;hymeanos),PIDECLAVE())\n\nlisbas:CtrPanel\nOaliusu:bGotFocus:={||Oaliusu:SelectAll()}\nOclausu:bGotFocus:={||Oclausu:SelectAll()}\nOclaemp:bGotFocus:={||Oclaemp:SelectAll()}\n\nACTIVATE DIALOG OBentr00 ON INIT (lisbas:gotfocus(),lisbas:gotop()) VALID\n(Salir)\n\nUn abrazo desde colomb ia\n\nLEANDRO ALFONSO[/quote:1451agj3]','',0,'gA==','1451agj3',1,0,'',74,0,0),(193,35,6,45,0,'200.117.223.50',1128988134,1,0,1,1,1,0,'','','[quote=&quot;Vikthor&quot;:2emox24n][quote=&quot;Hernan Diego Ceccarelli&quot;:2emox24n]\n\nHola,\n   No faltara el InitCommonControlsEx ???????\n\nSalu2[/quote:2emox24n]\n\nAl agregar esa función en el New de las clases , solamente TProgress se soluciona   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , TTrackbar sigue presentando el mismo problema   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .\n\nGracias Hernán.[/quote:2emox24n]\n\n\nDeberias inicializar con la misma funcion desde C, PERO como parametro ICC_BAR_CLASSES\n\nRecuerda el API.\n[code:2emox24n]\n#define ICC_LISTVIEW_CLASSES 0x00000001 // listview, header\n#define ICC_TREEVIEW_CLASSES 0x00000002 // treeview, tooltips\n#define ICC_BAR_CLASSES      0x00000004 // toolbar, statusbar, trackbar, tooltips\n#define ICC_TAB_CLASSES      0x00000008 // tab, tooltips\n#define ICC_UPDOWN_CLASS     0x00000010 // updown\n#define ICC_PROGRESS_CLASS   0x00000020 // progress\n#define ICC_HOTKEY_CLASS     0x00000040 // hotkey\n#define ICC_ANIMATE_CLASS    0x00000080 // animate\n#define ICC_WIN95_CLASSES    0x000000FF\n#define ICC_DATE_CLASSES     0x00000100 // month picker, date picker, time picker, updown\n[/code:2emox24n]\n\nAvisa si te anduvo  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gIA=','2emox24n',1,0,'',45,0,0),(194,76,18,1,0,'200.101.44.231',1128995400,1,0,1,1,1,0,'Wanderson','Cancel with acelerator','Hi Antônio,\n\nYou solve the problem in fivewin for harbour 2.6? Cancel in button dont work with acelerator.\n\nThanks.','',0,'gIA=','1l7lp50r',1,0,'',1,0,0),(195,77,3,99,0,'202.63.103.132',1128999140,1,0,1,1,1,1,'','mac address','Can any please help me how to find mac address of the PC ?\nThanks in advance\n\nNageswaraRao','',0,'gIA=','3q1xjjec',1,0,'',99,0,0),(196,78,6,79,0,'200.8.16.156',1129003596,1,0,1,1,1,0,'','Como coloco UN JPG en mi pantalla principal','Saludos a Todos;\n\n   Ahora por esta via \n   a ver quien me puede ayudar \n   necesito colocar un JPG en mi pantalla principal\n   hasta ahora solo puedo BMP\n\nde antemano gracias.\n\nMario Gonzalez\nDesde Venezuela\n<!-- e --><a href=\"mailto:mag071@hotmail.com\">mag071@hotmail.com</a><!-- e -->','',0,'gIA=','24rv3g1a',1,0,'',79,0,0),(197,79,3,31,0,'195.182.84.105',1129007334,1,0,1,0,1,1,'','Colouring TwBrowse ( Hernan\'s )','Hello !\n\n At this time TwBrowse have 2 possibilities to colour background of active row - logic lCellStyle . If choose ! lCellStyle , then all active row coloured with one color and the active cell too . I want to do something mix of both styles - paint active row with wanted color and underline with other color active cell . Is it possible ?\n\n   Here is my own background painting for bBkColor color :\n\nMETHOD GrPair( nRow, nCol, nStyle, oSel, nFtr ) CLASS TWBrowse // Rimantas U.\n   local nClr    := ::nClrPane\n   default nFtr  := NIL\n\n   if nStyle == 1 .or. nStyle == 2 // headers and footers\n      nClr := GetSysColor( 15 )\n      if nStyle == 1 .and. nFtr # NIL\n         if nFtr == nCol\n            nClr := nRGB( 192, 192, 192 )\n         endif\n      endif\n     elseif nStyle == 3   // active cells\n      nClr := GetSysColor( 13 )\n      if ( ::lCellStyle .and. nCol == ::nColAct ) .or. !::lCellStyle\n         if oSel &lt;&gt; NIL .and. oSel:lSelect\n            nClr := nRGB( 128, 128, 128 ) // CLR_GRAY\n         endif\n      endif\n     elseif nStyle == 0 // normal cells\n      if oSel &lt;&gt; NIL .and. oSel:lSelect\n         nClr := nRGB( 192, 192, 192 ) // CLR_HGRAY\n        else\n         if ::aGrPair[ 1 ] # ::aGrPair[ 2 ]\n            if ::nGrRec != if( upper( ::cAlias ) # \"ARRAY\", ( ::cAlias )-&gt;( recno() ), ::nAt ) .and. ::lScrolling\n               ::nGrRec := if( upper( ::cAlias ) # \"ARRAY\", ( ::cAlias )-&gt;( recno() ), ::nAt )\n               nClr := ::aGrPair[ 1 ]\n               ::aGrPair[ 1 ] := ::aGrPair[ 2 ]\n               ::aGrPair[ 2 ] := nClr\n            endif\n            if nRow % 2 == 0\n               nClr := ::aGrPair[ 2 ]\n              else\n               nClr := ::aGrPair[ 1 ]\n            endif\n           else\n            nClr := NIL\n         endif\n         // for active row\n         if nRow == ::nRowPos\n            nClr := nRGB( 0, 200, 255 )\n         endif\n      endif\n   endif\nreturn( nClr )\n\n   The problem : repainting of background after moving with Up and Down keys . It leave the same background colour an the previuos line . I tried to correct GoUp() and GoDown() methods adding Refresh . It did the job , but it slowness browse too .. :-(( . With PgDown and PgUp it works OK , because here its repainting of all browse . Maybe you can help me in this situation ?\n\n   With best regards ! Rimantas .','',0,'','1nlduvik',1,0,'',31,0,0),(198,78,6,17,0,'80.58.38.235',1129007557,1,0,1,1,1,1,'','','Puedes utilizar la clase TImage retocada por EMG que utiliza freeimage.dll Te la envio por e-mail privado...\n\nUn saludo\nJesús Díez González','',0,'','2jy0oyfl',1,0,'',17,0,0),(199,78,6,16,0,'201.145.136.71',1129007642,1,0,1,1,1,1,'','JPG BMP','Puedes usar IMAGE para manejar JPGS, o bien convertir tu JPG a BMP\n\nEspero te sirva...','',0,'','26tmipif',1,0,'',16,0,0),(200,10,6,101,0,'200.28.122.59',1129008040,1,0,1,1,1,0,'','A mi no me gustan para nada !','Hola Antonio,\n\nEste foro a mí por lo menos no me gusta nada, era muy comodo visitar las news en el outlook.\n\nSeguiré entrando a ver si me acostumbro y espero que sea beneficioso para todos.\n\nUn abrazo\nJorge','',0,'','dhbtjz1c',1,0,'',101,0,0),(201,10,6,101,0,'200.28.122.59',1129008337,1,0,1,1,1,0,'','Los mensajes se pueden editar y borrar !','Antonio,\n\nLos mensajes se pueden editar y modificar por quienes lo crearon, esto me parece muy malo ya que normalmente aparecen polémicas y sería fácil retractarse modificando el mensaje original lo que haría que todo el hilo de la discusión perdiera sentido.\n\nNo sabría calificar esto como grave o no, pero al menos es un asunto discutible.\n\nSaludos\nJorge','',0,'','23u5m0r1',1,0,'',101,0,0),(202,80,6,102,0,'80.224.235.17',1129010651,1,0,1,1,1,0,'','Prefiero las News','Hola.\n\nNo se mi opinion cuenta pero prefiero las News. Con ellas es mas facil y mas comodo.\nEspero quen este foro funcione.\n\nJosé Martin Uriarte','',0,'','2qq6xntr',1,0,'',102,0,0),(203,53,3,1,0,'80.60.21.135',1129012207,1,0,1,1,1,0,'Klaas den Dekker','Focus on checkbox','I can confirm this behaviour.\nIt occurs on XP pc\'s with and without themes.\nThe problem is that it does not occur allways; I have situations where (on the same object) sometimes the rectangle (visible focus) is present and sometimes not...\n\nBest regards,\nKlaas den Dekker','',0,'','33am0q9g',1,0,'',1,0,0),(204,62,3,76,0,'80.17.137.201',1129017034,1,0,1,1,1,1,'','','thanks rene','',0,'','389f3sg3',1,0,'',76,0,0),(205,75,3,2,0,'81.36.70.146',1129017136,1,0,1,1,1,1,'','Re: Help to antonio','Silvio,\n\n[quote=&quot;Silvio&quot;:3futwv4v]I trying to convert old program ( 16 bit) to xharbour and now my xmate make me errors :\n\n::nWidth  := pBmpWidth ( ::hBmp )\n::nHeight := pBmpHeight( ::hBmp )\n\nthese func exist or not ?[/quote:3futwv4v]\n\nUse:\n\n::nWidth  := nBmpWidth ( ::hBmp )\n::nHeight := nBmpHeight( ::hBmp )','',0,'gA==','3futwv4v',1,0,'',2,0,0),(206,77,3,2,0,'81.36.70.146',1129017260,1,0,1,1,1,1,'','','You may use GETNETCARDID()','',0,'gA==','qz7ybpea',1,0,'',2,0,0),(207,81,4,1,0,'80.176.234.174',1129018483,1,0,1,1,1,0,'GWard','Retrieving Column clicked in LISTBOX browse','How can I access the column number clicked when using a LISTBOX?\n\nI thought oLbx:nAtCol held the value but apparently it is always ZERO','',0,'gA==','ors2wbkm',1,0,'',1,0,0),(208,80,6,1,0,'80.58.10.235',1129018959,1,0,1,1,1,0,'Carlos Mora','Re: Prefiero las News','Hola,\n[quote=&quot;jmua&quot;:2uelvwlr]Hola.\n\nNo se mi opinion cuenta pero prefiero las News. Con ellas es mas facil y mas comodo.\nEspero quen este foro funcione.\n\nJosé Martin Uriarte[/quote:2uelvwlr]\nLa cuestión será cuando el nro de msgs sea grande. Y pobres de aquellos sin ADSL.','',0,'gA==','2uelvwlr',1,0,'',1,0,0),(209,82,3,76,0,'80.17.137.201',1129024781,1,0,1,1,1,1,'','wait dialog','I\'d like to have a dialog with a TAnimate object (example the copy files di windows) during massive dbf operations. The animation doesn\'t start, the only way to make it move is placing various sysrefresh() during dbf operations. Is there any other way?\n\nthis is the code:\n\n[code:3jjoesea]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n	local a\n	\n	attendi&#40;&#46;t&#46;&#41;\n	inkey&#40;3&#41;  // this way doesn\'t move\n	attendi&#40;&#46;f&#46;&#41;\n	\n	attendi&#40;&#46;t&#46;&#41;\n	for a=1 to 200  // this way it moves!!!\n		inkey&#40;&#46;01&#41;\n		sysrefresh&#40;&#41;\n	next\n	attendi&#40;&#46;f&#46;&#41;\nreturn nil\n\nFUNCTION Attendi&#40; lStatus &#41;\n	STATIC oDlg\n	LOCAL oAnimate\n\n	IF lStatus &#46;AND&#46; oDlg = NIL\n		DEFINE dialog oDlg resource &quot;Main&quot;\n		oAnimate = TAnimate&#40;&#41;&#58;REDEFINE&#40; 160, oDlg &#41;\n\n		ACTIVATE dialog oDlg NOWAIT centered ;\n		ON INIT &#40; , oAnimate&#58;CopyFiles&#40;&#41;, oAnimate&#58;Play&#40;&#41; &#41;\n	ELSE\n	oDlg&#58;END&#40;&#41;\n	oDlg = NIL\nENDIF\n\nRETURN NIL\n[/code:3jjoesea]\n\nregards \nriccardo','',0,'AIA=','3jjoesea',1,0,'',76,0,0),(210,64,22,26,0,'193.77.23.99',1129025875,1,0,1,1,1,1,'','Re: Two suggestions!','Hello!\n\n[quote=&quot;Antonio Linares&quot;:29adoxm6][quote=&quot;modicr&quot;:29adoxm6]be used both in newsgroup readers and web browsers. Any chance to do this in the future?...\n[/quote:29adoxm6]\n\nI think its quite difficult to get that dual functionality with this phpbb we are using.\n\n[/quote:29adoxm6]\n\nWhich database do you use for phpBB (probably MySQL or PostgreSQL)?\n\nRoman','',0,'gA==','29adoxm6',1,0,'',26,0,0),(211,64,22,2,0,'80.58.2.107',1129029871,1,0,1,1,1,1,'','Re: Two suggestions!','[quote=&quot;modicr&quot;:ob3nwko2]Which database do you use for phpBB (probably MySQL or PostgreSQL)?[/quote:ob3nwko2]\n\nMySQL','',0,'gA==','ob3nwko2',1,0,'',2,0,0),(212,82,3,2,0,'80.58.2.107',1129029986,1,0,1,1,1,1,'','','Riccardo,\n\nSysRefresh() is required in order to let Windows process pending messages.','',0,'gA==','2533qum3',1,0,'',2,0,0),(213,83,3,15,0,'203.73.91.16',1129030939,1,0,1,1,1,0,'','New ADS Local Server v8.0 beta','Hello Alls\n\nI just test ADS Local Server v8.0 beta and work fine for my AP.\n\nRegards,\n\nRichard\nFivetech.net Taiwan\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'gA==','3o4plm92',1,0,'',15,0,0),(214,83,3,15,0,'203.73.91.16',1129031796,1,0,1,1,1,0,'','','File below:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw/big5/demo_files/ads80beta.rar\">http://www.fivetech.com.tw/big5/demo_fi ... 80beta.rar</a><!-- m -->\n\nRichard\nFivetech.net Taiwan\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'gA==','1slcx52h',1,0,'',15,0,0),(215,80,6,101,0,'200.28.122.59',1129032850,1,0,1,1,1,0,'','Desventajas !','Hola,\n\nCreo que las desventajas son varias :\n\n1.- Interface poco amigable y lenta\n2.- Los mensajes se pueden modificar lo que no es correcto para cierto tipo de asuntos\n3.- Nos impone una forma de lectura distinta a nuestro habitual lector de noticias y nos hace pasar a un ambiente distinto, antes yo tenía todos las noticias xBase en mi lector de mail y noticias, ahora para leer las noticias de Fivetech tendré que pasarme a otra aplicación.','',0,'gA==','9s31pdu7',1,0,'',101,0,0),(216,70,6,61,0,'201.217.145.8',1129033730,1,0,1,1,1,0,'','Gracias Armando','Gracias Armando...\n\nRuben Fernandez','',0,'gA==','28osv4j5',1,0,'',61,0,0),(217,64,22,26,0,'193.77.23.99',1129033831,1,0,1,1,1,1,'','','Hello!\n\nSorry - last question was unnecessary.\nThere exists package NewsSync, but I don\'t have any experience with it:\n-------\nNewsSync synchronizes messages between Usenet and phpBB.\nAll Usenet messages from a single newsgroup (e.g. alt.food.wine\nor, alt.php, etc.) are synchronized with a single phpBB forum.  One\nway (from Usenet to phpBB) and two-way synchronizations are\nsupported.  In two-way synchronization, phpBB users can\nparticipate in a discussion across the Internet that extends outside\nof phpBB.\nNewsSync is supported on both Windows and Unix.  However,\nWindows has a few limitations:  administrator access is required,\nand it is strongly recommended that unless you are in full control of\nthe Windows box you should switch to a Unix system.\nNewsSync also supports a few open source content management\nsystem integrations that support phpBB.  These include postnuke\nand phpnuke.  Others may work but have not been tested.\n------\nHere is a link:\n[url:bvd0s41y]http&#58;//www&#46;phpbb&#46;com/phpBB/viewtopic&#46;php?p=688725[/url:bvd0s41y]\n\n\nHTH, Roman','',0,'EA==','bvd0s41y',1,0,'',26,0,0),(218,84,18,26,0,'195.210.233.123',1129035592,1,0,1,1,1,1,'','Pressing TAB in TMultiGet (fixed)','Hello!\n\nI\'m testing sample \"testmem2.prg\" in Fivewin for Clipper (16bit).\nThis sample opens text file in TMultiGet control.\nI added another TMultiGet control on the same window like:\n\n    @40,40 get oG2 VAR cV2 MEMO SIZE 250,100 OF hWnd\n\nThe problem occurs when I press TAB. The following happens: TAB is inserted into first memo and focus jumps to second memo. When I press TAB again, TAB is inserted into second memo and focus jumps back to the first memo. How can I change this behaviour???\n\nRegards, Roman','',0,'EA==','2tao5xwn',1,0,'',26,0,0),(219,10,6,106,0,'80.105.201.36',1129036819,1,0,0,1,1,0,'','','Bueno, aqui estamos. No estuve por una semana y veo grandes cambios. Espero que sean para bien de todos.\n\nPedro Gonzalez\nSavona - Italia','',0,'EA==','3tn1roul',1,0,'',106,0,0),(220,85,4,6,0,'87.1.225.221',1129037622,1,0,0,0,1,0,'','FWPPC compatibility','Dear friends, is it possible to have the list of the processors that are compatible with FWPPC?\n\nEMG','',0,'EA==','37ebpg01',1,0,'',6,0,0),(221,75,3,49,0,'87.3.176.74',1129038119,1,0,1,1,1,0,'','','thanks  Antonio \nbut now I am a problem to convert two file c  ( clipper ) into xharbour  can you help me I can send they on email ?','',0,'EA==','1wul2d9z',1,0,'',49,0,0),(222,75,3,49,0,'87.3.176.74',1129038415,1,0,1,1,1,0,'','','this is one \n[code:q3xkncsa]#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n\nCLIPPER xVScrll&#40;&#41; // &#40; hWnd, wRows, nHRow, nRows, lHeader, nHeader &#41;\n&#123;\n   HWND hWnd     = _parni&#40; 1 &#41;;\n   WORD wRows    = _parni&#40; 2 &#41;;\n   int  nHRow    = _parni&#40; 3 &#41;;\n   int  nRows    = _parni&#40; 4 &#41;;\n   HDC hDC     = GetDC&#40; hWnd &#41;;\n   RECT rct;\n   BOOL bHeader = _parl&#40; 5 &#41;;\n   WORD nHeader = _parni&#40; 6 &#41;;\n\n   GetClientRect&#40; hWnd, &amp;rct &#41;;\n\n   if &#40; bHeader &#41;\n      rct&#46;top    = nHeader + 1;\n      rct&#46;bottom = &#40; nHRow * nRows &#41; - 1;\n      ScrollWindowEx&#40; hWnd, 0, -&#40; nHRow * wRows &#41;, 0, &amp;rct, 0, 0, 0 &#41;;\n      ReleaseDC&#40; hWnd, hDC &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nCLIPPER xHScrll&#40;&#41; // &#40; hWnd, nCols, nLeft, nRight &#41;\n&#123;\n   HWND hWnd     = _parni&#40; 1 &#41;;\n   WORD wCols    = _parni&#40; 2 &#41;;\n   int nLeft   = _parni&#40; 3 &#41;;\n   int nRight  = _parni&#40; 4 &#41;;\n   HDC hDC     = GetDC&#40; hWnd &#41;;\n   RECT rct;\n\n   GetClientRect&#40; hWnd, &amp;rct &#41;;\n\n   if &#40; nLeft &#41; &#123;\n      rct&#46;left = nLeft;\n   &#125;\n\n   if &#40; nRight &#41; &#123;\n      rct&#46;right = nRight;\n   &#125;\n\n\n   ScrollWindowEx&#40; hWnd, wCols, 0, 0, &amp;rct, 0, 0, 0 &#41;;\n\n\n   ReleaseDC&#40; hWnd, hDC &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n\Z[/code:q3xkncsa]\n\n\nand this another\n[code:q3xkncsa]#include &quot;WinTen&#46;h&quot;\n#include &lt;Windows&#46;h&gt;\n#include &quot;ClipApi&#46;h&quot;\n\nvoid pascal Dos3Call&#40; void &#41;;\n\n#define SUBSTDRIVE 0x8000\n#define NETDRIVE   0x1000\n\n//----------------------------------------------------------------------------//\n\nCLIPPER cDrives&#40;&#41;   // It returns an string with all the valid drives ids\n&#123;\n   BYTE b,c;\n   BYTE drives&#91; 26 &#93;;\n   BYTE nDrives = 0;\n   c = 0;\n\n   for&#40; b = 0; b &lt; 26; b++ &#41;\n      drives&#91; b &#93; = \' \';\n\n   for&#40; b = 0; b &lt; 26; b++ &#41;\n   &#123;\n      // drives&#91; b &#93; = \' \';\n\n      _AX = 0x4409;\n      _BL = b;\n      Dos3Call&#40;&#41;;\n\n      if&#40; ! &#40; _FLAGS &amp; 1 &#41; &#41;\n        &#123;\n         drives&#91; c++ &#93; = \'A\' + b - &#40; b &gt;= 1 &#41;;\n         nDrives++;\n      &#125;\n   &#125;\n\n   _retclen&#40; drives+1 , nDrives - 1&#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\Z[/code:q3xkncsa]\n\n\nCan You help me ...\n\nRegards','',0,'AIA=','q3xkncsa',1,0,'',49,0,0),(223,85,4,6,0,'87.1.225.221',1129039113,1,0,0,0,1,0,'','','Specifically, is this compatible with FWPPC?\n\nQQAAXX LP1\nintel xscale pxa255  400 MHz\nWindows mobile 2003\nmemoria 64 MB   flash rom 64 MB risoluzione 240x320\n\nEMG','',0,'AIA=','16seusn0',1,0,'',6,0,0),(224,35,6,18,0,'200.67.188.236',1129041498,1,0,1,1,1,1,'','','[quote=&quot;Hernan Diego Ceccarelli&quot;:29vmqcyw]\nDeberias inicializar con la misma funcion desde C, PERO como parametro ICC_BAR_CLASSES\n\nRecuerda el API.\n[code:29vmqcyw]\n#define ICC_LISTVIEW_CLASSES 0x00000001 // listview, header\n#define ICC_TREEVIEW_CLASSES 0x00000002 // treeview, tooltips\n#define ICC_BAR_CLASSES      0x00000004 // toolbar, statusbar, trackbar, tooltips\n#define ICC_TAB_CLASSES      0x00000008 // tab, tooltips\n#define ICC_UPDOWN_CLASS     0x00000010 // updown\n#define ICC_PROGRESS_CLASS   0x00000020 // progress\n#define ICC_HOTKEY_CLASS     0x00000040 // hotkey\n#define ICC_ANIMATE_CLASS    0x00000080 // animate\n#define ICC_WIN95_CLASSES    0x000000FF\n#define ICC_DATE_CLASSES     0x00000100 // month picker, date picker, time picker, updown\n[/code:29vmqcyw]\n\nAvisa si te anduvo  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->[/quote:29vmqcyw]\n\nAgregé está pequeña función para inicializar el control desde C, sin embargo sigue mostrando el error.\n[code:29vmqcyw]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;vfw&#46;h&gt;\n#include &lt;WinTen&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n#include &lt;shlobj&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; INITTRACKB &#41;\n&#123;\n   INITCOMMONCONTROLSEX i;\n\n   _bset&#40; &#40; char * &#41; &amp;i, 0, sizeof&#40; INITCOMMONCONTROLSEX &#41; &#41;;\n\n   i&#46;dwSize = sizeof&#40; INITCOMMONCONTROLSEX &#41;;\n   i&#46;dwICC  = ICC_BAR_CLASSES;\n\n   if&#40; ! InitCommonControlsEx&#40; &amp;i &#41; &#41;\n      MessageBox&#40; 0, &quot;can\'t load Common controls extended&quot;, &quot;From TrackBar&#46;Prg&quot;, 0 &#41;;\n&#125;\n#pragma ENDDUMP\n[/code:29vmqcyw]','',0,'gIA=','29vmqcyw',1,0,'',18,0,0),(225,86,1,109,0,'200.56.178.137',1129043927,1,0,1,1,1,0,'','Ayuda con SAY','Alguien me podria decir como hacer en tiempo de ejecucion. Que un say cambie de centrado hacia la izquierda, o a la derecha.\n\n   si yo defino un SAY con la clausula CENETERED\n\n  como hago para que ciertos SAYS sean movidos en tiempo de ejecucion.\n\n\n\nPor su atencion gracias.','',0,'gIA=','1xg7wwlb',1,0,'',109,0,0),(226,80,6,28,0,'213.27.201.254',1129045823,1,0,1,1,1,0,'','Ya que estamos...','Yo tambien prefiero las news antiguas','',0,'gIA=','13pzeyur',1,0,'',28,0,0),(227,87,3,63,0,'80.58.35.107',1129046085,1,0,1,1,1,0,'','In a TGet, make the cursor jump one position to thr right','Hi everybody\n\nIn a TGet(), how can I make the cursor step one position to the right.  I have tried  oGet:PostMsg( WM_KEYDOWN, VK_RIGHT, 0 ) but it does not seem to work\nAny suggestion?  Thanks\n\nRafael','',0,'gIA=','2m62h2n2',1,0,'',63,0,0),(228,85,4,2,0,'81.36.70.146',1129046125,1,0,1,1,1,1,'','','Enrico,\n\nThe pocket pc we use (HP iPAQ) has an Intel PXA255 and the same memory. \n\nSo that pocket pc you describe should work ok with FWPPC  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','36c12f0k',1,1129047443,'',2,1,0),(229,80,6,1,0,'201.137.90.154',1129046216,1,0,1,1,1,0,'Marcela P','tampoco me gustan...','Hola a todos,\n\nDe acuerdo. Este sistema es muy tedioso, tener q regresar al link anterior para poder ver los mensajes no leidos, es un gorro.\n\nAdemas que creo q la participacion  de todos demuestra el desagrado por\neste nuevo sistema, el numero de mensajes nuevos bajo.\n\nsaludos,\n  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gIA=','m57evk12',1,0,'',1,0,0),(230,81,4,2,0,'81.36.70.146',1129046490,1,0,1,1,1,1,'','','GWard,\n\nYou have to call it this way: oLbx:nAtCol( nColPixel ) where nColPixel is the column in pixels where the mouse has clicked.\n\nYou may review classes\\wbrowse.prg to see how such method is used.','',0,'gIA=','3rh421g6',1,0,'',2,0,0),(231,72,4,2,0,'81.36.70.146',1129046608,1,0,1,1,1,1,'','','Pier Luigi,\n\nWe are working on the CallDll() issue. Its not an easy task. We had to contact Microsoft developers, as the pocket pc architecture is not the same as the one used by PCs, and there are some tricky ways to implement it (the stack is not used to supply the parameters, instead CPU registers are used. Same as in 64 bits architecture, but pocket pc is even more complex).\n\nRegarding the folders with tabs, we plan to implement them asap.','',0,'gIA=','2nqqu262',1,0,'',2,0,0),(232,86,1,2,0,'81.36.70.146',1129046792,1,0,1,1,1,1,'','','Ricardo,\n\nUna primera idea sería añadirle espacios a la izquierda ó a la derecha del texto, y volver a asignarlo (dicho texto con los espacios) al SAY.\n\nPor favor, regístrate en estos foros para publicar preguntas. Gracias.','',0,'gIA=','1a64v9cf',1,0,'',2,0,0),(233,75,3,2,0,'81.36.70.146',1129047023,1,0,1,1,1,1,'','','Silvio,\n\nThe first functions are quite easy. Just add \"hb\" before the \"_\" of the extend system functions. Please review Harbour C source code RTL functions to get lots of examples.\n\nRegarding the second one, you have to implement it using a Win32 API call as Dos3Call() is not supported in Win32.','',0,'gIA=','213352fs',1,0,'',2,0,0),(234,85,4,6,0,'87.1.225.221',1129047212,1,0,0,0,1,0,'','','Thank you, Antonio!\n\nEMG','',0,'gIA=','1e415grk',1,0,'',6,0,0),(235,87,3,63,0,'80.58.35.107',1129047333,1,0,1,1,1,0,'','Solved!','It was just a matter of adding SysRefresh() !!!  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nRafael','',0,'gIA=','3rx4i7gy',1,0,'',63,0,0),(236,87,3,2,0,'81.36.70.146',1129047347,1,0,1,1,1,1,'','','Rafael,\n\nYou may try: \n\n[code:156ppdwx]oGet&#58;SetPos&#40; oGet&#58;nPos + 1 &#41;[/code:156ppdwx]','',0,'AIA=','156ppdwx',1,0,'',2,0,0),(237,88,3,67,0,'83.134.57.206',1129047388,1,0,1,1,1,0,'','Dtepicker','Hello,\n\nWhen i jump to the pick routine , on returning NO FOCUS OBJECT is visible. I have to press the TAB button to see the next object in focus\n\nIt is very confusing and frustrating for a user to see no focus !!!!!','',0,'AIA=','28edbpsh',1,0,'',67,0,0),(238,87,3,2,0,'81.36.70.146',1129047402,1,0,1,1,1,1,'','Re: Solved!','[quote=&quot;Rafael Clemente&quot;:26um4qax]It was just a matter of adding SysRefresh() !!![/quote:26um4qax]\n\ngood  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','26um4qax',1,0,'',2,0,0),(239,80,6,2,0,'81.36.70.146',1129047674,1,0,1,1,1,1,'','','Marcela,\n\nNunca llueve a gusto de todos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> pero este sistema ofrece una serie de ventajas, y con un poco de práctica seguro que nos acostumbramos.\n\nPor favor, regístrate. Solo te lleva unos minutos y así nos permite estar identificados, por si alguien desea contactarnos, etc.','',0,'gA==','3evz6u2a',1,0,'',2,0,0),(240,72,4,20,0,'80.116.231.49',1129047978,1,0,1,1,1,0,'','','Many thanks, Antonio.\n\nPier Luigi','',0,'gA==','1ujur8e0',1,0,'',20,0,0),(241,89,6,29,0,'212.171.42.58',1129048023,1,0,1,1,1,0,'','Which is the better report for Fivewin ?','Hello,\nI\'m thinking to choose a report for my app.\nMy customers require me:\n- a preview of the report (obviusly)\n- the ability to export the outpur into XLS, RTF and PDF format\n- the ability to send the report via email\n\nI already made this using EasyPreview (for the preview,PDF export and email send) and using a self-made set of functions to generate a RTF and XLS export. \n\nHowever I would like now to provide a more professional output expecially for the RTF and XLS export. \n\nI took a look on the various topics on the old newsgroup and I saw that many users works with RPV report but it doesn\'t support the RTF and XLS export.\n\nDo you have any suggest about a Report that could satisfy this features ?\n\nThanks in advance\n\nMarco','',0,'gA==','2a70heau',1,0,'',29,0,0),(242,90,3,29,0,'212.171.42.58',1129048127,1,0,1,1,1,0,'','Which is the better print report for fivewin ?','Hello, \nI\'m thinking to choose a report for my app. \nMy customers require me: \n- a preview of the report (obviusly) \n- the ability to export the outpur into XLS, RTF and PDF format \n- the ability to send the report via email \n\nI already made this using EasyPreview (for the preview,PDF export and email send) and using a self-made set of functions to generate a RTF and XLS export. \n\nHowever I would like now to provide a more professional output expecially for the RTF and XLS export. \n\nI took a look on the various topics on the old newsgroup and I saw that many users works with RPV report but it doesn\'t support the RTF and XLS export. \n\nDo you have any suggest about a Report that could satisfy this features ? \n\nThanks in advance \n\nMarco','',0,'gA==','3omvcyig',1,0,'',29,0,0),(243,26,3,29,0,'212.171.42.58',1129048368,1,0,1,1,1,0,'','','Hi Detlef,\nI tried but this method is not called when the browse lost the focus.\nHowever I solved with a small modify into the EditExit method.\n\nBest Regards,\n\nMarco','',0,'gA==','29p0zkja',1,0,'',29,0,0),(244,21,6,84,0,'80.58.11.235',1129050404,1,0,1,1,1,0,'','','Yo uso C3 y FW, la verdad es q me va muy bien, el tema que me dices me ha surgido muchas veces y son normalmente por errores en la programación, pero que C3 devuelve este tipo de errores y no los tipicos, del errorsys.prg.\n\nMira si tienes llamadas a metodos que no existen el el objeto instaciado.\n\nSaludos Manuel Calero.','',0,'gA==','31u9doi6',1,0,'',84,0,0),(245,80,6,110,0,'165.98.157.23',1129050461,1,0,1,1,1,1,'','Ya vine :-)','Saludos\nYa estoy por aca, la verdad no me gusta pero ni modo <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gA==','63hwtwpi',1,0,'',110,0,0),(246,91,2,9,0,'62.174.202.39',1129050653,1,0,1,1,1,0,'','FWBACKUP','Vengo utilizando, hasta ahora, EasyBackup, pero estoy probando FWBackup, del amigo Bingen, pero no consigo que haga el respaldo automaticamente, sin que el usuario tenga que cambiar nada. En el INI tengo puesto lAutoBackup=.t. y cAutoOption=1.-\n¿Que me falta?\n\nUn saludo.\n\nManuel','',0,'gA==','29zw6d66',1,0,'',9,0,0),(247,80,6,107,0,'80.58.24.107',1129051687,1,0,1,1,1,0,'','','yo también prefiero el sistema antiguo\nque la vamos a hacer','',0,'gA==','3rti8hji',1,0,'',107,0,0),(248,80,6,2,0,'81.36.70.146',1129052487,1,0,1,1,1,1,'','','Hay un tema muy importante que teneis que comprender:\n\nEn los pocos dias que llevamos usando estos foros, la publicidad que tienen ya ha generado ingresos para pagar la publicidad que nosotros ponemos en google (y que funciona realmente bien) y para pagar el hosting de este servidor, incluyendo las páginas webs de FiveTech.\n\nPensad que estos foros de soporte proporcionan un servicio muy valioso para todos los usuarios, y que son gratuitos, y que de esta forma colaboramos todos a rentabilizar este servicio que a todos nos ayuda.\n\nAdemás está el problema de los usuarios \"ilegales\" que así por lo menos al usar estos foros, contribuyen en algo.\n\nPor otra parte, estos foros funcionan de manera \"desatendida\" ya que la empresa de hosting supervisa el servidor mySQL, php, backups, etc. Con las news tipo NNTP hay que tener una máquina con una con una conexión suficientemente rápida, y hay que estar pendiente de que no haya problemas. Para que os hagais una idea: la reindexación del servidor NNTP ya necesitaba de media hora!\n\nEste tipo de foros los usa muchísima gente, asi que no creo que nosotros no seamos capaces de acostumbrarnos a su uso  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','6e268465',1,0,'',2,0,0),(249,92,12,62,0,'80.58.22.107',1129054012,1,0,1,1,1,0,'','Harbour + FiveLinux en Debian','Buenas a todos.\n\nSoy el actual mantenedor de Harbour en Debian. Escribo este mensaje para avisaros que a lo largo de esta semana subiré un paquete de Harbour 0.45 a los repositorios de Debian. Ello implica que estará en sid y dentro de una semana o dos en testing, pero no en stable (sarge). Si alguno necesitase la 0.45 para Sarge no tiene más que pedírmelo y se la mando.\n\nHe estado haciendo pruebas con la versión inicial de FiveLinux y por el momento todo bien, no se resiente al trabajar con gcc 4.0 (el compilador por defecto en Debian sid) ni con las últimas GTK.\n\nLa ventaja de esta nueva versión subida a sid es que a los pocos días estará disponible para TODAS las arquitecturas en las que Debian funciona, al contrario de lo que nos pasó con la versión 0.44 <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','37yo4a45',1,0,'',62,0,0),(250,92,12,2,0,'81.36.70.146',1129054807,1,0,1,1,1,1,'','','Luis,\n\nMuchas gracias por el estupendo trabajo que estás haciendo de promocionar Harbour en Linux  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','30okyiex',1,0,'',2,0,0),(251,10,6,1,0,'200.84.200.179',1129057363,1,0,1,1,1,0,'','','Antonio,\n\nTengo un foro local con Linux en mi oficina, tengo un direccionamiento de dynu.com\n\nEste tipo de foro tambien se ve util. Veremos como nos va.\n\nSaludos\nJuan Navas','',0,'gA==','252kkr1q',1,0,'',1,0,0),(252,75,3,49,0,'82.53.119.251',1129060683,1,0,1,1,1,0,'','','Dear Antonio,\nif you remember they are two prg ( c) of grid : I\'m try to converte the old classes of Canal5\nOn olivares2000 there are some classes of canal5 but there is not the grid class, i just converte today  the banner class with help of Paco.','',0,'gA==','bvwrjcwi',1,0,'',49,0,0),(253,77,3,99,0,'202.63.103.132',1129066970,1,0,1,1,1,1,'','mac address','Thanks Mr. Antonio.\nBut I am getting unlinked external \"GetAdapetersInfo\" referenced by function \"NETCRDID\"\nI am using xHarbour with FWH.\nCan you help me with this please?\nRegards\nNageswararao','',0,'gA==','2pfdz7v5',1,0,'',99,0,0),(254,93,1,1,0,'66.130.4.121',1129069179,1,0,1,1,1,0,'Gilbert Vaillancourt','ComboBox Refresh','Hi All,\n\nHow can I refresh the display and list of a combobox once it`s content has changed ? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nRegards,\n\n\nGilbert','',0,'gA==','elirsnte',1,0,'',1,0,0),(255,77,3,2,0,'81.36.70.146',1129069718,1,0,1,1,1,1,'','','NageswaraRao,\n\nAre you using xHarbour commercial ?','',0,'gA==','22zld400',1,0,'',2,0,0),(256,94,6,43,0,'201.138.93.20',1129071666,1,0,1,1,1,0,'','Metodo para graficos','Hola a Todos.\n\n   Alguien me podria decir o recomedar el mejor metodo para realizar una grafica en FWH y xHarbour\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','3w2sfxt6',1,0,'',43,0,0),(257,95,18,87,0,'81.38.0.197',1129072931,1,0,1,1,1,0,'','Choosefont  no funciona bien  ?  (fixed)','Hola \n\n\n  Estoy utilizando la funcion Choosefont(), cuando selecciono un tipo de letra y la pongo en negrita, en el array que me devuelve no me lo devuelve con un tipo de letra en negrita, es que funciona mal esta funcion ?\n\n\naFont:=Choosefont() &gt; AFont[8]  siempre me devuelve .f.','',0,'','1npf6vu9',1,0,'',87,0,0),(258,94,6,1,0,'148.221.81.53',1129074125,1,0,1,1,1,0,'','Re: Metodo para graficos','Marco:\n\nEn 16 bits yo usaba la TGraph de Alfredo Arteaga (Saludos alfredo) y si no recuerdo mal él donó la clase a FWH, si esto es así, te la recomiendo.\n\nSaludos, Armando','',0,'','2gxvllol',1,0,'',1,0,0),(259,96,6,66,0,'24.232.135.75',1129080018,1,0,1,0,1,0,'','AYUDA FILTROS CON COMODINES *COOP*','Estimados Colegas\n\nPuedo  filtrar una dbf por Ej: *coop* en el campo nombre y\nque me muestre todos las ocurrencias del campo independiente\nmente de las posicion en que esten ya sea que empieze coop\no que este en el medio ej :asoc cooperadora\n\nGraCIAS\nFABIAN \ndatabaselab2002','',0,'','29v99v71',1,0,'',66,0,0),(260,97,1,44,0,'201.154.129.4',1129080912,1,0,1,1,1,0,'','Mapear/Detectar Impresoras USB en red','Hola a tod@s.\n\nEn una red de pc\'s con xp tengo demasiados problemas para poder mapear una impresora usb al momento de mandar los reportes, sin embargo, como todos sabemos con una conectada al LPTX no hay tales.\n\nAlguna idea o sugerencia para poder dirigir los reportes sin tanto rollo ??\n\nGracias por adelantado.','',0,'','v8phzdqs',1,0,'',44,0,0),(261,93,1,74,0,'201.255.151.9',1129081219,1,0,1,1,1,1,'','Re: ComboBox Refresh','Gilbert:\n\noCombo:SetItems(aItems)\noCombo:Refresh()\n\nIf necessary:\n\noCombo:Reset()\n\n\nRegards,\n\n[quote=&quot;Gilbert Vaillancourt&quot;:2rljo3g7]Hi All,\n\nHow can I refresh the display and list of a combobox once it`s content has changed ? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nRegards,\n\n\nGilbert[/quote:2rljo3g7]','',0,'gA==','2rljo3g7',1,0,'',74,0,0),(262,93,1,44,0,'201.154.129.4',1129081314,1,0,1,1,1,0,'','','Hi\n\nSorry for my english <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nREDEFINE COMBOBOX oCmbX VAR cVarX ID 119 OF oFold:aDialogs[1] ITEMS aDtsX\n\nIn a new array you put the new values, then write this :\n\noCmbX:SetItems( aNewArr )\noCmbX:Refresh()\n\nand that\'s it !!!\n\n\nIt works for me.','',0,'','1klv0kqa',1,0,'',44,0,0),(263,97,1,74,0,'201.255.151.9',1129081385,1,0,1,1,1,1,'','Re: Mapear/Detectar Impresoras USB en red','Ray:\n\nnet use lpt1 \\\\nombredepc\\nombredeimpresora\n\nSaludos,\n\n\n[quote=&quot;Ray Islas&quot;:s60qz996]Hola a tod@s.\n\nEn una red de pc\'s con xp tengo demasiados problemas para poder mapear una impresora usb al momento de mandar los reportes, sin embargo, como todos sabemos con una conectada al LPTX no hay tales.\n\nAlguna idea o sugerencia para poder dirigir los reportes sin tanto rollo ??\n\nGracias por adelantado.[/quote:s60qz996]','',0,'gA==','s60qz996',1,0,'',74,0,0),(264,88,3,74,0,'201.255.151.9',1129081627,1,0,1,1,1,1,'','Re: Dtepicker','Frank:\n\n          You must set the focus with :setfocus. Here you have an example with btnget class:\n\n	REDEFINE BTNGET oDesde VAR cDesde ID 113 OF oDlg ;\n      RESOURCE \"B_Cld\" PICTURE \"@D\" VALID ValDesde(oBrw,vCodigo,@cDesde,oDesde,@vSaldo,oSaldo) ;\n			FONT oFont3;\n      ACTION (aRec :=GetCoors(oDesde:hWnd),;\n              cDesde:=Calend(cDesde,aRec[1],aRec[4],oDlg),;\n              oDesde:Refresh(),oDesde:SetFocus())\n\nRegards\n  \n[quote=&quot;Frank Demont&quot;:2861jqnl]Hello,\n\nWhen i jump to the pick routine , on returning NO FOCUS OBJECT is visible. I have to press the TAB button to see the next object in focus\n\nIt is very confusing and frustrating for a user to see no focus !!!!![/quote:2861jqnl]','',0,'gA==','2861jqnl',1,0,'',74,0,0),(266,97,1,44,0,'201.154.129.4',1129081794,1,0,1,1,1,0,'','','Hola Daniel.\n\nGracias por responder, el detalle ( se me paso comentar ) es que tengo un dialogo donde muestro las impresoras instaladas en X pc, para seleccionarla y asignarla a X reporte, asi que, aunque comparto la impresora usb desde la pc propietaria, no la puedo visualizar desde otra maquina para dicha asignacion, ya he intentado con la opcion de instalar nueva impresora desde red, etc. solamente medio se puede cuando sale con el texto \"autodetectando impresora X en X pc\" ya que trae el puerto usb de la pc propietaria.\n\nEspero haberme dado a entender.\n\n\nGracias mil !!!','',0,'gA==','g8lgohz3',1,0,'',44,0,0),(267,96,6,74,0,'201.255.151.9',1129082014,1,0,1,1,1,1,'','Re: AYUDA FILTROS CON COMODINES *COOP*','Fabian:\n\n            Usa el operador $.\n\ntubase-&gt;(DbSetFilter({|| \"coop\" $ tubase-&gt;campo }))\n\nSaludos,\n\n[quote=&quot;Databaselab2002&quot;:13nmitrg]Estimados Colegas\n\nPuedo  filtrar una dbf por Ej: *coop* en el campo nombre y\nque me muestre todos las ocurrencias del campo independiente\nmente de las posicion en que esten ya sea que empieze coop\no que este en el medio ej :asoc cooperadora\n\nGraCIAS\nFABIAN \ndatabaselab2002[/quote:13nmitrg]','',0,'gA==','13nmitrg',1,0,'',74,0,0),(268,99,6,79,0,'200.8.16.156',1129083110,1,0,1,1,1,0,'','FTP','Estimado Amigos,\n  \n    Gracias por las ayuda prestada a todos hasta la fecha ahora la pregunta siempre he leido en el foro que qftp que si el ftp modificado por LKM que si la clase tFtp ahora estoy pasando una aplicacion donde hasta ahora solo llama a un .bat para ejecutar por comandos ftp traerse un archivo desde un servidor ahora quiero hacerlo desde la aplicacion cual me aconsejas .\n\n   Gracias\n\nmario gonzalez\n<!-- e --><a href=\"mailto:mag071@hotmail.com\">mag071@hotmail.com</a><!-- e -->','',0,'gA==','s6es92lw',1,0,'',79,0,0),(269,93,1,1,0,'66.130.4.121',1129086273,1,0,1,1,1,0,'Gilbert Vaillancourt','Thanks','Hi,\n\nThanks Guys  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\n\nGilbert\n\n[/u]','',0,'','2vml7a69',1,0,'',1,0,0),(270,100,1,1,0,'66.130.4.121',1129086699,1,0,1,1,1,0,'Gilbert Vaillancourt','ComboBax vs Multi dimension array','Hi All,\n\nIhave a multi denmension array which have 4 elements and 5 fields.\nI want to display and select any of the 4 elements but only on field 2.\n\nHow can I achive this ?   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nRegards,\n\nGilbert','',0,'','1itm9pde',1,0,'',1,0,0),(271,80,6,78,0,'201.240.242.245',1129087010,1,0,1,1,1,0,'','','Hola Amigos, Todos cambio siempre es traumatico ç, asi que a trabajar con esta herramienta,,, <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nSalu2\nWilli','',0,'','2qj9gaol',1,0,'',78,0,0),(272,80,6,45,0,'201.252.213.228',1129088542,1,0,1,1,1,0,'','','Es un tipico fenomeno de resistencia al cambio  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \nMuchachos, el 90% o mas de los foros mundiales se basan en phpBB o vBulletin, las news estan pasadas de moda, o marcaron otra epoca de internet, una mas rudimentaria.\nEl tema es que el servicio news quiza ayudaba un poco mas a los usuarios DialUp, que se les complica mas usar foros basados en web.\nPienso que es cuestion de tiempo, de mi parte me da absolutamente lo mismo usar una y otra forma, estoy conforme con ambas, pero los foros de este tipo, ofrecen muchas mas posibilidades y estabilidad.\n\nSalu2  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','31x7m67o',1,0,'',45,0,0),(273,101,6,73,0,'201.132.225.154',1129089163,1,0,1,1,1,0,'','Theader...','Algun ejemplo de uso theader con wbrowse?\nGracias  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','30djac09',1,0,'',73,0,0),(274,98,19,10,0,'85.155.132.205',1129089508,1,0,1,1,1,1,'','','Este mismo foro en el que estás puedes verlo en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.phpbb.com/\">http://www.phpbb.com/</a><!-- m -->\n\nSaludos','',0,'','gq9qsmfq',1,0,'',10,0,0),(275,94,6,73,0,'201.132.225.154',1129089532,1,0,1,1,1,0,'','Re: Metodo para graficos','Hola Marco\n\nyo uso tgraph y esta muy facil y funcional para lo que la necesito, hay otras mas complejas y no recuerdo si algunas de costo pero tienes opciones como citlalli, chartfx...\n\nsalu2\nPaco','',0,'','3uheinjf',1,0,'',73,0,0),(276,96,6,73,0,'201.132.225.154',1129089744,1,0,1,1,1,0,'','Re: AYUDA FILTROS CON COMODINES *COOP*','Daniel y se puede utilizar el operador $ en los scopes de cdx ya que el dbsetfilter entre mas grande la base de datos mas lentoooo trabaja..\nSalu2\nPaco','',0,'','1hgwy572',1,0,'',73,0,0),(277,100,1,2,0,'81.36.70.146',1129092693,1,0,1,1,1,1,'','','Gilbert,\n\nYou may review samples\\TestArr2.prg.\n\nPlease register on this forum, thanks.','',0,'','3m7ekfi0',1,0,'',2,0,0),(279,102,19,2,0,'81.36.70.146',1129096259,1,0,1,1,1,1,'','Google 2084','Excellent!!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n<!-- m --><a class=\"postlink\" href=\"http://www.nytimes.com/imagepages/2005/10/10/opinion/1010opart.html\">http://www.nytimes.com/imagepages/2005/ ... opart.html</a><!-- m -->','',0,'','2xihl6jw',1,0,'',2,0,0),(280,98,19,2,0,'81.36.70.146',1129096376,1,0,1,1,1,1,'','','Oskar,\n\nPara Windows o para Linux ?','',0,'','3sh3xibd',1,0,'',2,0,0),(281,77,3,55,0,'61.246.103.42',1129096871,1,0,1,1,1,0,'','GetNetCardID','Add IPHLPAPI.LIB from bcc55 into your script if your are using bcc','',0,'','1ud59cn9',1,0,'',55,0,0),(282,80,6,38,0,'87.202.43.71',1129098486,1,0,1,1,1,0,'','','A mi tambien me gustan mas las news de NNTP, pero si el que paga (en este caso Antonio) prefiere este tipo de forum, yo me meto y me acostumbro a usarlo. Les digo que me cuesta mucho trabajo a adaptar mis habitos....\nBueno, vamos a intentar, a ver que pasa  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nUn saludo\nYannis Yannas\n[url:3b73xq4w]http&#58;//www&#46;trinityvision&#46;gr[/url:3b73xq4w]','',0,'EA==','3b73xq4w',1,0,'',38,0,0),(283,77,3,99,0,'202.63.103.132',1129099888,1,0,1,1,1,1,'','mac address','I am using xharbour with bcc55. not the commercial version.  i included the lib iphlpapi.lib as advised by srrao and now its working fine. thanks mr. antonio and mr. sanjay','',0,'EA==','38d8iljp',1,0,'',99,0,0),(284,77,3,2,0,'81.36.70.146',1129102445,1,0,1,1,1,1,'','','NageswaraRao,\n\nYes, right, that library is needed. We already provided it included in samples\\buildh.bat. I guess you are using an older version of buildh.bat.','',0,'EA==','39yyeqqp',1,0,'',2,0,0),(285,81,4,1,0,'80.176.234.174',1129105345,1,0,1,1,1,0,'GWard','','Many thanks,\n\nI used oLbx:bLClicked := {|nRow,nCol,nKeyFlags| MyFunction(oLbx,nCol)}\n\nThen\n\nFUNCTION MyFunction(oLbx,nCol)\nLOCAL iActualCol := oLbx:nAtCol(nCol)\n\ndo case\ncase iActualCol=1\nendc\n... Etc','',0,'EA==','3ahz3k3g',1,0,'',1,0,0),(286,80,6,119,0,'217.168.114.142',1129105611,1,0,1,1,1,0,'','News..','Como dice Willi, todo cambia es traumático... a acostumbrarse foro.\n\n\nSaludos','',0,'EA==','2s0i2z1c',1,0,'',119,0,0),(287,3,3,55,0,'61.246.96.255',1129105784,1,0,1,1,1,0,'','','I am to here.  Only problem is we cannot have a offline copy of all the messages  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'EA==','39vd5gyw',1,0,'',55,0,0),(289,79,3,31,0,'195.182.84.105',1129106712,1,0,1,0,1,1,'','','Hi ! After some tests I did what I wanted . Maybe it\'s not so good solution , but that works fine . In GoUp and GoDown methods I added some lines :\n\nMETHOD GoUp() CLASS TWBrowse\n\n   local nSkipped\n   local nLines := ::nRowCount()\n   // 2 new lines here\n   local nRowPrv := ::nRowPos\n   local nRecNew := nRecPrv := ( ::cAlias )-&gt;( recno() )\n\n   if ( ::nLen := Eval( ::bLogicLen ) ) &lt; 1\n      return nil\n   endif\n\n   if ! ::lHitTop\n      ::DrawLine()\n      if ::Skip( -1 ) == -1\n         ::lHitBottom := .f.\n         if ::nRowPos &gt; 1\n            ::nRowPos--\n           else\n            ::lScrolling := .T. //fgam\n            WBrwScrl( ::hWnd, -1, If( ::oFont != nil, ::oFont:hFont, 0 ), ::nLineStyle )\n         endif\n        else\n         ::lHitTop := .t.\n      endif\n      ::DrawSelect()\n      if ::oVScroll != nil\n         If ::bLogicPos != Nil  // By CeSoTech\n            ::oVScroll:SetPos( _POSVSCROLL_ )\n           else\n            ::oVScroll:GoUp()\n         endif\n      endif\n      // it\'s needful to repaint previuos line\n      // ::lCellMix , my new parameter  \n      if !::lHitTop .and. ::lCellStyle .and. ::lCellMix\n         if nRowPrv == 1 // if go up at the top of browse\n            nRowPrv ++\n         endif\n         nRecNew := ( ::cAlias )-&gt;( recno() )\n         ( ::cAlias )-&gt;( dbgoto( nRecPrv ) )\n         ::DrawLine( nRowPrv )\n         ( ::cAlias )-&gt;( dbgoto( nRecNew ) )\n      endif\n\n      if ::bChange != nil\n         Eval( ::bChange, Self )\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD GoDown() CLASS TWBrowse\n\n   local nSkipped\n   local nLines := ::nRowCount()\n   local nRecPrv := ( ::cAlias )-&gt;( recno() )\n   local nRowPrv := ::nRowPos\n   local nRecNew\n\n   if ( ::nLen := Eval( ::bLogicLen ) ) &lt; 1\n      return nil\n   endif\n\n   if ! ::lHitBottom\n      ::DrawLine()\n      if ::Skip( 1 ) == 1\n         ::lHitTop := .f.\n         if ::nRowPos &lt; nLines\n            ::nRowPos++\n           else\n            ::lScrolling := .T. //fgam\n            WBrwScrl( ::hWnd, 1, If( ::oFont != nil, ::oFont:hFont, 0 ), ::nLineStyle )\n         endif\n        else\n         ::lHitBottom := .t.\n      endif\n      ::DrawSelect()\n      if ::oVScroll != nil\n         If ::bLogicPos != Nil  // By CeSoTech\n            ::oVScroll:SetPos( _POSVSCROLL_ )\n           else\n            ::oVScroll:GoDown()\n         endif\n      endif\n      if !::lHitBottom .and. ::lCellStyle .and. ::lCellMix\n         if nRowPrv == nLines\n            nRowPrv --\n         endif\n         nRecNew := ( ::cAlias )-&gt;( recno() )\n         ( ::cAlias )-&gt;( dbgoto( nRecPrv ) )\n         ::DrawLine( nRowPrv )\n         ( ::cAlias )-&gt;( dbgoto( nRecNew ) )\n      endif\n      if ::bChange != nil\n         Eval( ::bChange, Self )\n      endif\n   endif\n\nreturn nil\n\n   Now I\'m seeing actual row in selected color and with active cell . One my customer asked about that possibility , because it\'s more easy to detect in which row you are and then only with &lt;- and -&gt; keys you can go to needful column and then press enter to correct data .\n\n   With best regards ! Rimantas .','',0,'EA==','21gf5ys7',1,0,'',31,0,0),(290,51,1,86,0,'81.83.185.136',1129107130,1,0,1,1,1,0,'','','Indeed, what Daniel said is right.\n\nOnly it is the process NTVDM.EXE which needs to be killed, not the vtvdm.exe. If you kill ntvdm.exe, the process wowexec.exe will be killed automatically.\n\nIt is not a question of the attribute read only, but the proces NTVDM.EXE keeps the tmp-file occupied. By killing this process, the file can be deleted again, which will be done automatically if you remake your report.\n\nMichel','',0,'EA==','3376hhqn',1,0,'',86,0,0),(291,104,1,86,0,'81.83.185.136',1129107341,1,0,1,1,1,0,'','OLE','I use OLE the make a connection between my FiveWin-application and MS-Word.\n\nWord is launched together with my application. If I close Word accidently, I got an error \"Variant type not implemented from OLE GetProperty\", followed by a GPF.\n\nMy question : how can I test that a OLE is running ?\n\nThank you.\n\nMichel D.\nGenk (Belgium)','',0,'EA==','3v2ys3hg',1,0,'',86,0,0),(292,104,1,6,0,'82.54.221.151',1129107716,1,0,0,0,1,0,'','Re: OLE','Try to not showing Word:\n\noWord = CREATEOBJECT( \"Word.Application\" )\n\n// your code here\n\noWord:Quit()\n\nEMG','',0,'EA==','2zu2t1b6',1,0,'',6,0,0),(293,105,4,89,0,'213.21.136.60',1129109800,1,0,1,1,1,0,'','Problem with dbdelete()  and  pack','I use DBFCDX RDD \nthe command dbdelete() and pack \ndon\'t work correctly\n\nRegards  Maurizio','',0,'EA==','143hd1vn',1,0,'',89,0,0),(294,102,19,26,0,'193.77.18.52',1129111798,1,0,1,1,1,1,'','','Hehe!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ragingtrifle.com/cthulhu_rising/23rd_century_life.php\">http://www.ragingtrifle.com/cthulhu_ris ... y_life.php</a><!-- m -->\n\nCheers, Roman','',0,'EA==','1k3zzw6c',1,0,'',26,0,0),(295,106,6,1,0,'80.58.37.235',1129114220,1,0,1,1,1,0,'José Luis Capel','OT: comprobar conexión a internet...','Hola...\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> os dejo una manera de comprobar si tenemos  o no conexión a internet.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'EA==','222hwn2j',1,0,'',1,0,0),(296,106,6,2,0,'81.36.70.146',1129117666,1,0,1,1,1,1,'','','Hola Jose Luis,\n\nEncantado de verte por aquí <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPor favor, regístrate en este foro, que son sólo unos minutos. Gracias  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'EA==','1jmem4ie',1,0,'',2,0,0),(297,79,3,35,0,'167.7.140.254',1129126067,1,0,1,1,1,0,'','Hernan\'s Twbrowse ( msvc ) ??','Just curious if you are using Borland or MSVC as your C++ compiler. I would like  to be able to re-compile TWbrowse with Microsoft but am hung up on the naitave .c code.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'EA==','3vvp3y6a',1,0,'',35,0,0),(298,107,2,1,0,'201.215.15.85',1129129238,1,0,1,1,1,0,'','Acceder a un programa en forma remorta pasando por un router','hola amigos, necesito entrar a un programa como control remoto, pero pasando por un router dlink, alguien conoce alguna herramienta que permita hacer esto','',0,'EA==','2ezs0gx6',1,0,'',1,0,0),(299,108,6,1,0,'200.119.44.10',1129130567,1,0,1,1,1,0,'LEANDRO ALFONSO','no funcionan botones','Compañeros del foro, tengo el siguiente problema, tengo una aplicacion desarrollada en fw23 a 16 bits; he estado tratando de compilar en 32 bits la misma aplicación hasta ahora todo bien, el problema me surge cuando al hacer clic sobre cualquier boton me genera un error que dice lo siguiente:\n\nApplication\n===========\n   Path and name: C:\\PRUEBA\\LYMA.Exe (32 bits)\n   Size: 1,337,856 bytes\n   Time from start: 0 hours 0 mins 24 secs \n   Error occurred at: 12/10/2005, 10:16:35\n   Error description: Error BASE/1070  Argument error: ==\n   Args:\n     [   1] = O   Object\n     [   2] = N   131794\n\nStack Calls\n===========\n   Called from TWINDOW:LBUTTONDOWN(411)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(1255)\n   Called from _FWH(2990)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(248)\n   Called from PERIODO(204)\n   Called from VERIFICA(169)\n   Called from (b)USUACLA(68)\n   Called from TWINDOW:LDBLCLICK(1683)\n   Called from TWINDOW:LDBLCLICK(1030)\n   Called from TCONTROL:HANDLEEVENT(0)\n   Called from TCONTROL:HANDLEEVENT(1255)\n   Called from _FWH(2990)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(248)\n   Called from USUACLA(78)\n   Called from USUA(22)\n   Called from (b)PANTALLA(261)\n   Called from TWINDOW:ACTIVATE(849)\n   Called from PANTALLA(261)\n   Called from DIWMENU(230)\n\ny la linea que me arroja el error no es nada coorente con el prg\n\nSi alguien me puede ayuar con esto muchas gracias de verdad. Un abrazo desde Colombia\n\nLEANDRO ALFONSO','',0,'','a1lxvt91',1,0,'',1,0,0),(300,94,6,43,0,'201.138.93.20',1129135197,1,0,1,1,1,0,'','','es cierto... lo probare\n\n Muchas Gracias\n\nSaludos\n\n  Marco A. Delgado','',0,'','1u6vfhjy',1,0,'',43,0,0),(301,106,6,123,0,'80.58.37.235',1129138551,1,0,1,1,1,0,'','','Antonio,\n\nOido cocina!!\n\nSaludos,\nJosé Luis Capel','',0,'','33m5yfdg',1,0,'',123,0,0),(302,106,6,2,0,'81.36.70.146',1129139468,1,0,1,1,1,1,'','','Gracias Jose Luis, y si encima pones la foto tuya en el dato \"avatar\", aún mejor que mejor  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1x4msvfl',1,0,'',2,0,0),(303,80,6,37,0,'200.121.244.168',1129140934,1,0,1,1,1,0,'','','Bueno adaptarse al cambio, ni modo, no es tan malo, Antonio asegura algunos ingresos, no invierte tiempo en supervisar las News y por lo tanto (me inmagino) tiene mas tiempo para contestar los mensajes de este Foro\n\nSaludos\n\nEnrrique Vertiz','',0,'','jtbrvl1x',1,0,'',37,0,0),(304,98,19,1,0,'201.144.217.12',1129141671,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:a1fw9llc]Oskar,\n\nPara Windows o para Linux ?[/quote:a1fw9llc]\n\nGracias Antonio\n\nPara windows, encontre el Argosoft News Server pero no me convence mucho \n\nSalu2','',0,'gA==','a1fw9llc',1,0,'',1,0,0),(305,50,3,52,0,'201.235.155.110',1129145985,1,0,0,1,1,0,'','Sobre Foro','Estimados:\n\nLa verdad no me gusta el acceso por forma de foro, la version NNTP estaba mucho mejor, era mejor accesible y rapidamente a la información. Me gustaría saber la opinion de ustedes.\n\nGracias.','',0,'gA==','1wldznva',1,0,'',52,0,0),(306,109,6,1,0,'201.244.193.239',1129146636,1,0,1,1,1,0,'leandro alfonso','error al compilar','Cuando intento compilar con XHARBOUR me arroja el siguiente error.\n\nFatal: Unable to open file \'DBFDBT.LIB\'\n\nAlguien me puede indicar como solucionar el problema\n\nLEANDRO ALFONSÒ\nBogotá (Colombia)','',0,'gA==','34hmefgz',1,0,'',1,0,0),(307,110,6,1,0,'201.245.208.207',1129149364,1,0,1,1,1,0,'leandro alfonso','una clase de botones estilo windows xp','Hola a todos los compañeros del foro, alguien tiene o sabe de alguna clase de botones que dibuje los botones del estilo windows xp o clase BTNBMP que funcione en 32 bits.\n\nLEANDRO ALFONSO \nDesde Colombia','',0,'gA==','1pt0v84u',1,0,'',1,0,0),(308,96,6,1,0,'80.58.11.235',1129149473,1,0,1,1,1,0,'','','Francisco, yo utilizo la creación de indices temporales con la condicon, para simular estos filtros se demora un poco en la creación pero despues vuela por los datos, a mi me ha ayudado a resolver muchas situaciones.\n\nSaludos Manuel Calero','',0,'gA==','3r6uhxri',1,0,'',1,0,0),(309,94,6,1,0,'201.129.63.183',1129149979,1,0,1,1,1,0,'alfredoarteaga','TGraph','Va de nuez.\n\nLes diría que descargasen la actualización más reciente desde <!-- m --><a class=\"postlink\" href=\"httP://www.despachoarteaga.com/tgraph.zip\">httP://www.despachoarteaga.com/tgraph.zip</a><!-- m --> pero por el momento no tengo servicio (quiero chillar).\n\nSigo en línea...','',0,'gA==','olvln1a4',1,0,'',1,0,0),(310,80,6,84,0,'80.58.11.235',1129150266,1,0,1,1,1,0,'','','A mi me gustan mas las news antiguas, aunque hay que agradecea a Antonio que explique claramente que estas nuevas news son simplemente para aumentar los ingresos por publicidad y no se ande con milongas.\n\nSaludos.','',0,'gA==','jjeqgy6n',1,0,'',84,0,0),(311,111,6,72,0,'201.129.63.183',1129150844,1,0,1,1,1,0,'','Efecto en GET deshabilitado','Finalmente he llevado mis aplicaciones a 32 bits con FWH y Harbour, en cuanto se superen las pruebas finales se las muestro y si les agrada algo pos nomas me dicen y listo.\n\nBueno resulta que en 16 bits los GET deshabilitados podían verse normales si se les indicaba la característica multilínea. En 32 existe algún truco?\n\nSolo dos detalles que no pude superar: \n\nSetDate(dDate) - decrementa un día en la fecha indicada\nlRmDir() - no me funcionó.\n\nGracias.','',0,'gA==','1ta8yesu',1,0,'',72,0,0),(312,110,6,43,0,'201.138.93.20',1129156607,1,0,1,1,1,0,'','','Hola Leandro..\n\n  Si quieres, que tu aplicacion tenga la apariencia de windows xp,\n\n  solo tienes que poner en tu archivo .rc la siguiente linea\n\n      1 24 \"WindowsXP.Manifest\"\n\n  y por supuesto tener el archivo  windowsXP.Manifest\n\n\nSaludos\n\n  Marco A. Delgado  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','30b5e94g',1,0,'',43,0,0),(313,109,6,43,0,'201.138.93.20',1129156951,1,0,1,1,1,0,'','','Hola Leandro.\n\n   Ese error, se debe a que te falta añadir DBFDBT.LIB al momento de compilar, lo encuentras en el directorio LIB de xHarbour.\n\n   y tienes que añadirlo en tu archivo de compilacion, estos son los archivo de xHarbour que deben de estar al momento de compilar\n\necho ..\\lib\\Fivehx.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\n\nSaludos\n\n  Marco A. Delgado','',0,'gA==','3r6ndh96',1,0,'',43,0,0),(314,112,3,69,0,'65.92.154.253',1129160003,1,0,1,1,1,0,'','ADS - Question','Hi Everybody,\n\nI\'ve seen alot of posts over the years about ADS (Advantage Database Server).\n\nIf I am correct, the ADS \"Server\" program allows you to have one computer (server) handle the database files / searches etc...  This one is not free but the \"local\" server is ... so, what exactly does the \"Local\" server do?\n\n\n\nThanks in advance,\nJeff B','',0,'gA==','36q08pia',1,0,'',69,0,0),(315,113,3,69,0,'65.92.154.253',1129165331,1,0,1,1,1,0,'','Folders','Hi Everybody,\n\nI have never used folders before and now have a need to.\n\nI would like to create the folders from resources (Borland Resource Workshop).\n\nCan someone please provide a sample as to how I would create folders.\n\nThanks,\n\nJeff','',0,'gA==','wz3xpu7t',1,0,'',69,0,0),(316,113,3,74,0,'201.255.80.105',1129168943,1,0,1,1,1,1,'','Re: Folders','Jeff:\n\n// This is the main dialog that contains the folder control\n\n  DEFINE DIALOG oDlg RESOURCE \"OCOMPRA\" ;\n                TITLE OEMTOANSI(\"Actualizaci¢n de Orden de Compra N§ \")+LEFT(MOVSTOCK-&gt;OCNUM,2)+\"-\"+;\n								SUBSTR(MOVSTOCK-&gt;OCNUM,3,4)+\'-\'+RIGHT(MOVSTOCK-&gt;OCNUM,4) ;\n								COLOR CLR_BLACK, RGB(202, 197, 192)\n\n// This is the folder declaration\n\n  REDEFINE FOLDER oFld ID 701 OF oDlg  ;\n         PROMPT \"Datos Generales\",\"Articulos\",\"Vista Previa\",\"Recibido del proveedor\",;\n				        oemtoansi(\"Env¡os realizados\");\n         DIALOGS \"FOLDER_DATOSG\" ,\"FOLDER_OPMER\",\"OPVPREVIA\",\"ENTREGA3\",\"ENVIOS\"\n\n \n// This is a get that belongs to that main dialog  \n\nREDEFINE GET             cFecha     ID  103  FONT oFont3 OF oDlg PICTURE \"@d\" UPDATE\n\n// This are controls that belongs to the first folder\n\n	REDEFINE GET oNumdoc VAR cOcNum     ID  101  FONT oFont1 OF oFld:aDialogs[1] ;\n                                      VALID Valnumdoc(oFld,lNew,cXoc,@cOcNum,cEjercicio,oNumdoc,cOcOf) PICTURE \"99999\";\n																			WHEN (WNRO_NIV == 1)\n	REDEFINE SAY oEjercicio PROMPT \"/ \"+SUBSTR(cEjercicio,3,2) ID 118 FONT oFont1 OF oFld:aDialogs[1]\n\n\n// This to the second folder\n\n  REDEFINE SBUTTON OT:oBtn[1] FONT oFont4 ID 121;\n            RESOURCE \"B_RNW\",\"B_RNW\",\"B_RNW\" OF oFld:aDialogs[2] ;\n						PROMPT \"&amp;Agrega\" ;\n            ACTION ( TAgrega(),Habilita(),OBACEPTAR:DISABLE(),OBCANCELAR:DISABLE(),oImprimir:Disable(),;\n						oAceptar:Enable(),oCancelar:enable(),oImprimir:Disable() ) ;\n						TOOLTIP \"Agrega una nueva partida de articulos (Insert)\" ;\n            TEXT POSITION ON_BOTTOM;\n						LOOK W97\n\n// Finally, you activate the main dialog as usual\n\n	ACTIVATE DIALOG oDlg CENTERED VALID OPSALIR(oDlg,oFld,oAceptar,oCancelar,OBACEPTAR,OBCANCELAR,OIMPRIMIR,;\n	                owCodSubp,owNomSubp1,owNomSubp2,@cwCodsubp,@cwNomsubp1,@cwNomsubp2)  ;\n 									ON INIT desabilita(oAceptar,oCancelar)\n\nThe dialogs in workshop have to be:\n\n-Window type: CHILD\n-Dialog style: only visible checked  \n\n\nRegards,\n\n\n[quote=&quot;Jeff Barnes&quot;:2uppqy5w]Hi Everybody,\n\nI have never used folders before and now have a need to.\n\nI would like to create the folders from resources (Borland Resource Workshop).\n\nCan someone please provide a sample as to how I would create folders.\n\nThanks,\n\nJeff[/quote:2uppqy5w]','',0,'gA==','2uppqy5w',1,0,'',74,0,0),(317,112,3,74,0,'201.255.80.105',1129169426,1,0,1,1,1,1,'','Re: ADS - Question','Jeff:\n\n   If you have Advantage Database Server installed the dbfs are managed in the server (client/server architecture) as you said.\n\n   If you use Advantage Local Server client/server architecture is not supported and the dbfs are managed as usual, the utility of using Local Server is only for programing the aplication without a server or the posibility to use advantage rdd without a server. Then, if you have a server you have to do almost no changes to the application.\n\nRegards,\n\n[quote=&quot;Jeff Barnes&quot;:1vsmi701]Hi Everybody,\n\nI\'ve seen alot of posts over the years about ADS (Advantage Database Server).\n\nIf I am correct, the ADS \"Server\" program allows you to have one computer (server) handle the database files / searches etc...  This one is not free but the \"local\" server is ... so, what exactly does the \"Local\" server do?\n\n\n\nThanks in advance,\nJeff B[/quote:1vsmi701]','',0,'gA==','1vsmi701',1,0,'',74,0,0),(318,96,6,74,0,'201.255.80.105',1129170058,1,0,1,1,1,1,'','Re: AYUDA FILTROS CON COMODINES *COOP*','Francisco:\n\n    No, no se puede usar $ en los scopes ya que estos funcionan filtrando por el indice activo desde/hasta segun lo que vos pongas como condicion. Los scopes son utiles por ejemplo si queres filtrar entre dos fechas, suponiendo que tenes x ejemplo un indice x dtos(base-&gt;fecha) podes hacer:\n\nbase-&gt;(ordscope(0,\'20050101\'))\nbase-&gt;(ordscope(0,\'20051231\'))\n\n    Lo mismo si quisieras filtrar todos los que COMIENZAN con \'coop\' pero simular el $ no se puede.\n\nSaludos,\n\n\n[quote=&quot;Francisco Horta&quot;:y2n1v4s3]Daniel y se puede utilizar el operador $ en los scopes de cdx ya que el dbsetfilter entre mas grande la base de datos mas lentoooo trabaja..\nSalu2\nPaco[/quote:y2n1v4s3]','',0,'gA==','y2n1v4s3',1,0,'',74,0,0),(319,79,3,31,0,'195.182.84.105',1129181878,1,0,1,1,1,1,'','Re: Hernan\'s Twbrowse ( msvc ) ??','[quote=&quot;Rick Lipkin&quot;]Just curious if you are using Borland or MSVC as your C++ compiler. I would like  to be able to re-compile TWbrowse with Microsoft but am hung up on the naitave .c code.\n\n   Hi Rick ! I can\'t to run FWH with MS C++ compiler . It seems that my olds FWH libraries ( 2.5 ver of 2004 October ) are buggies for that compiler . Antonio , as ussual , promised to view about that . But that was promise ... So I leaved with BC ++ . \n\n   With best regards ! Rimantas .','',0,'','r5biwyfk',1,0,'',31,0,0),(320,99,6,17,0,'80.58.38.235',1129182146,1,0,1,1,1,1,'','','Mario !\nEstoy utilizando la clase original de FWH y funciona , envio y traigo archivos, y hago un directory de los datos en el ftp, no necesito mas.\nUtilizo tftp.prg y tftpfile.prg  mira el ejemplo ftpdir.prg y otro ejemplo muy bueno en ...fwh...\\samples\\gallery\\icopyfil\\icopyfil.prg\nEspero que te sirva de algo, yo tambien sustitui un .bat con comandos de conexión por esta clase.\nUn saludo.','',0,'','1lbptypu',1,0,'',17,0,0),(321,79,3,31,0,'195.182.84.105',1129182411,1,0,1,1,1,1,'','Re: Hernan\'s Twbrowse ( msvc ) ??','Also I did this my paint fully - as for DBF as for array . For mouse move too . It works fine . I did one method :\n\nMETHOD LineRepaint( nRowPrv, nRecPrv, nDirection ) CLASS TWBrowse\nlocal nRecNew := if( upper( ::cAlias ) != \"ARRAY\", ( ::cAlias )-&gt;( recno() ), ::nAt )\ndefault nDirection := 0\n\nif ::lCellStyle\n\n   if nDirection == 1\n      if !::lHitTop .and. nRowPrv == 1\n         nRowPrv ++\n      endif\n     elseif nDirection == 2\n      if !::lHitBottom .and. nRowPrv == ::nRowCount()\n         nRowPrv --\n      endif\n   endif\n   if nRowPrv # ::nRowPos\n\n      if upper( ::cAlias ) != \"ARRAY\"\n         ( ::cAlias )-&gt;( dbgoto( nRecPrv ) )\n        else\n         ::nAt := nRecPrv\n      endif\n\n      ::DrawLine( nRowPrv )\n\n      if upper( ::cAlias ) != \"ARRAY\"\n         ( ::cAlias )-&gt;( dbgoto( nRecNew ) )\n        else\n         ::nAt := nRecNew\n      endif\n\n   endif\n\nendif\nreturn( NIL )\n\n  And in GoUp, GoDown, LButtonDow, PageDown I added this method after ::DrawSelect() . In mentioned methods two vars added :\n\nlocal nRowPrv := ::nRowPos\nlocal nRecPrv := if( upper( ::cAlias ) # \"ARRAY\", ( ::cAlias )-&gt;( recno() ), ::nAt )\n\n   only in GoUp and GoDown nDirection it\'s needful . Because if you reach browse top and bottom , but don\'t lHitTop and lHitBottom , then only this lines are repainted , so it\'s needful ++ or -- for this the previuos line .\n \n   With best regards ! Rimantas','',0,'','13o8ojod',1,0,'',31,0,0),(322,109,6,38,0,'87.202.35.219',1129183573,1,0,1,1,1,0,'','','Hola Lenadro,\nQue version de xHarbour utilizas ?\nSi es una de las ultimas, la dbfdbt.lib no existe.\nTodas las funciones se trasferieron en la lib [b:p1uq7nog]dbffpt.lib[/b:p1uq7nog] (segun un mensaje que dejo Luiz en las news de xHarbour.Unstable.CVS)\nTambien deberias anadir a tu link script la [b:p1uq7nog]hbsix.lib[/b:p1uq7nog].\n\nUn saludo\nYannis\n[url:p1uq7nog]http&#58;//www&#46;trinityvision&#46;gr[/url:p1uq7nog]','',0,'UA==','p1uq7nog',1,0,'',38,0,0),(323,79,3,2,0,'80.58.2.237',1129191761,1,0,1,1,1,1,'','Re: Hernan\'s Twbrowse ( msvc ) ??','Rimantas,\n\n[quote=&quot;Rimantas&quot;:3tyfcv3r]It seems that my olds FWH libraries ( 2.5 ver of 2004 October ) are buggies for that compiler . Antonio , as ussual , promised to view about that. But that was promise ... So I leaved with BC ++.[/quote:3tyfcv3r]\n\nIts an old version and new Microsoft compiler versions. We can\'t make miracles, sorry  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3tyfcv3r',1,0,'',2,0,0),(324,30,3,1,0,'213.103.197.157',1129191867,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','Hello Mr Babin,\nHello Everybody,\n\nI am testing xHarbour build 0.99.5, waiting new release of Harbour.\nI get an executable, but when i run it, this message appears at first :\n\n\"ALERT.PRG was compiled by older version, PCODE version 5 is no longer supported - Please recompile.\"\n\nAre the FWH 2.5 lib\'s not compatibles with xHarbour 0.99.5 ?\n\nRegards,\nBadara','',0,'gA==','23t6h7ao',1,0,'',1,0,0),(325,113,3,15,0,'203.79.155.24',1129192660,1,0,1,1,1,0,'','','Hello Jeff,\n\nThis is fix/Enhance Folder function. Below:\n\n[b:30hgiycz][color=darkred:30hgiycz][size=150:30hgiycz]Code-PRG[/size:30hgiycz][/color:30hgiycz][/b:30hgiycz]\n\n#include \"Fivewin.ch\"\n#include \"Folder.ch\"\n.........\nREDEFINE FOLDER ::oFld ID 300 OF ::oDlg                             ;\n         PROMPTS \"&#22522;&#26412;&#36039;&#26009;\"  , \"&#23478;&#23660;&#25104;&#21729;\", \"&#29694;&#29376;&#22294;\"              ,;\n                 \"&#24179;&#38754;&#35373;&#35336;&#22294;\", \"&#20132;&#23627;&#36104;&#21697;\", \"&#26989;&#20027;&#30003;&#35380;\"            ,;\n                 \"&#31150;&#21697;&#30332;&#36865;\"  , \"&#23436;&#24037;&#29031;&#29255;\"                           ;\n         DIALOGS \"D_DR_WIN_CUSTMSF_FLD1\", \"D_DR_WIN_CUSTMSF_FLD2\",;\n                 \"D_DR_WIN_CUSTMSF_FLD3\", \"D_DR_WIN_CUSTMSF_FLD4\",;\n                 \"D_DR_WIN_CUSTMSF_FLD5\", \"D_DR_WIN_CUSTMSF_FLD6\",;\n                 \"D_DR_WIN_CUSTMSF_FLD7\", \"D_DR_WIN_CUSTMSF_FLD8\"   ;\n         [color=red:30hgiycz][b:30hgiycz]BITMAPS { GetC5MenuIconDir()+\"TCustMsf01.ico\",;\n                   GetC5MenuIconDir()+\"TCustMsf02.ico\",;\n                   GetC5MenuIconDir()+\"TCustMsf03.ico\",;\n                   GetC5MenuIconDir()+\"TCustMsf04.ico\",;\n                   GetC5MenuIconDir()+\"TCustMsf05.ico\",;\n                   GetC5MenuIconDir()+\"TCustMsf06.ico\",;\n                   GetC5MenuIconDir()+\"TCustMsf07.ico\",;\n                   GetC5MenuIconDir()+\"TCustMsf08.ico\" }[/b:30hgiycz][/color:30hgiycz]\n::oFld:SetFont( oFnt1 )\n\n\n[size=150:30hgiycz][color=darkred:30hgiycz][b:30hgiycz]Resource File[/b:30hgiycz][/color:30hgiycz][/size:30hgiycz]\n\nD_DR_WIN_CUSTMSF DIALOG 5, -17, 508, 367\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"&#23458;&#25142;&#22522;&#26412;&#36039;&#26009;\"\nFONT 12, \"&#32048;&#26126;&#39636;\"\n{\n CONTROL \"\", 301, \"TCBrowse\", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 1, 274, 506, 80\n CONTROL \"\", 300, \"[b:30hgiycz][size=100:30hgiycz][color=red:30hgiycz]SysTabControl32[/color:30hgiycz][/size:30hgiycz][/b:30hgiycz]\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 1, 19, 506, 254\n}\n\n\n\n\nRegards,\n\nRichard Huang\nFivetech.net Taiwan\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'Tg==','30hgiycz',1,0,'',15,0,0),(326,79,3,31,0,'195.182.84.105',1129193175,1,0,1,1,1,1,'','Re: Hernan\'s Twbrowse ( msvc ) ??','[quote=&quot;Antonio Linares&quot;:1pa2em5r]Rimantas,\n\nIts an old version and new Microsoft compiler versions. We can\'t make miracles, sorry  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:1pa2em5r]\n\n   Excuse , Antonio , but I can\'t agree . When I buyed FWH I don\'t checked have bugs your libs for MS compiler or not . But in my opinion , your libs must be without bugs . So please , give me information which MS compiler works with your libs ( 2004 October ) or give libs without bugs .\n\n    With best regards ! Rimantas','',0,'gA==','1pa2em5r',1,0,'',31,0,0),(327,114,1,86,0,'81.83.185.136',1129194651,1,0,1,1,1,0,'','TReport and its WMF-files','Hello,\n\nIf a report is made by using the TReport class, a WMF-files is generated for each page of the report. If the report is made or its preview is closed, the WMF-files are deleted automatically.\n\nI have 2 questions :\n\n1. Is there a possibility to store these files ?\n2. Can these WMF-files be opened ? With which software ?\n\nThanks.\n\nMichel D.\nGenk (Belgium)','',0,'gA==','2p4h14es',1,0,'',86,0,0),(328,30,3,6,0,'87.1.198.66',1129194683,1,0,1,1,1,0,'','Re: ASC bug - re: Barbara THIAM\'s post','You have to recompile *all* your PRGs and *all* FWH PRGs.\n\nEMG','',0,'gA==','2u3jdvnq',1,0,'',6,0,0),(329,104,1,86,0,'81.83.185.136',1129194732,1,0,1,1,1,0,'','','Thank you very much for you help, Enrico.\n\nI was able to solve my problem.\n\nYou mentioned CREATEOBJECT. It must be CREATEOLEOBJECT.\n\nMichel D.\nGenk (Belgium)','',0,'gA==','39nk3lju',1,0,'',86,0,0),(330,115,4,1,0,'80.176.234.174',1129194761,1,0,1,1,1,0,'GWard','Is Multiple Select Available In LISTBOX browses','As Subject.\n\nI need to be able to drag the pointer down multiple rows which represent items of stock to extract just like \'Pocket Excel\'.\n\nAs A Test I have tried adding MULTI/MULIPLE/MULTISEL to the test example TUTOR10 all 3 resulted in errors.','',0,'gA==','2hnm4rqe',1,0,'',1,0,0),(331,115,4,2,0,'80.58.2.237',1129195329,1,0,1,1,1,1,'','','GWard,\n\nMultiple selection rows on a browse are not implemented yet.\n\nPlease take some minutes to register on these forums. Thanks.','',0,'gA==','2wh7051t',1,0,'',2,0,0),(332,104,1,6,0,'87.1.198.66',1129195551,1,0,1,1,1,1,'','','What is CREATEOLEOBJECT()? I never heard or used it.\n\nEMG','',0,'gA==','1e33xb7y',1,0,'',6,0,0),(333,116,6,131,0,'194.179.55.36',1129195833,1,0,1,1,1,0,'','error al abrir archivos RTF','Hola:\nEstoy intentando abrir un archivo RTF a través de los ejemplos del directorio de samples llamados TESTRICH y TESTRTF. En ambos casos al abrir los RTF del propio directorio me aparece un \'unrecoverable error 9010\'  y algo así como\n\nhb_xFree() invalid pointer\n\n¿? \n\nSaludos,','',0,'gA==','1hn4ezd0',1,0,'',131,0,0),(334,80,6,1,0,'80.58.10.235',1129196343,1,0,1,1,1,0,'Carlos Mora','','[quote=&quot;Hernan Diego Ceccarelli&quot;:xxaohwof]Es un tipico fenomeno de resistencia al cambio  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \nMuchachos, el 90% o mas de los foros mundiales se basan en phpBB o vBulletin, las news estan pasadas de moda, o marcaron otra epoca de internet, una mas rudimentaria.\nEl tema es que el servicio news quiza ayudaba un poco mas a los usuarios DialUp, que se les complica mas usar foros basados en web.\nPienso que es cuestion de tiempo, de mi parte me da absolutamente lo mismo usar una y otra forma, estoy conforme con ambas, pero los foros de este tipo, ofrecen muchas mas posibilidades y estabilidad.\n\nSalu2  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:xxaohwof]\nResistencia al cambio? No macho, no estoy de acuerdo. Fijate la cantidad de listas de correo que hay en Yahoo, google y me contas.\nQue economicamente es mas conveniente para FiveTech es una cosa, pero que sea mas estable y comoda que una lista de correo?\nCuando tengamos muchos mensajes veremos.\nQue posibilidades ofrece por encima de una lista de correo?\nSaludos','',0,'gA==','xxaohwof',1,0,'',1,0,0),(335,104,1,86,0,'81.83.185.136',1129196411,1,0,1,1,1,0,'','','Enrico,\n\nThe function CreateObject() doesn\'t exist. I got an error while compiling.\n\nYou can look in the sample OLE.PRG where CreateOLEobject() is used.\n\nMichel','',0,'gA==','1xrldon2',1,0,'',86,0,0),(336,117,6,1,0,'80.58.10.235',1129196991,1,0,1,1,1,0,'Carlos Mora','LLamada a WNetGetConnectionA no me funciona','Amigos,\nno se que estoy haciendo mal, a ver si alguien me dice donde meto la pata.\nQuiero saber el nombre de red de un disco. Para eso esta la funcion WNetGetConnectionA en mpr.dll\nLa declaracion segun los manuales de la API son \n[code:195oimd9]\nPrivate Declare Function WNetGetConnection Lib &quot;mpr&#46;dll&quot; Alias &quot;WNetGetConnectionA&quot; &#40;ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long&#41; As Long\n[/code:195oimd9]\npor lo que la declaro en mi prg de HArbour + FW\n[code:195oimd9]\ndll32 static function ;\n      WNetGetCon&#40; @cLocalName AS STRING, @cRemoteName AS STRING, nLength AS LONG &#41; ;\n      AS LONG PASCAL FROM &quot;WNetGetConnectionA&quot; ;\n      Lib &quot;mpr&#46;dll&quot;\n[/code:195oimd9]\n\nY luego la llamo\n\n[code:195oimd9]\nfunction GetNetDriveName&#40; cDrive &#41;\nlocal x &#58;= 0\nlocal cName &#58;= Space&#40; 128 &#41;\n\ncDrive &#58;= Left&#40; cDrive, 3 &#41;+Chr&#40;0&#41;\nx&#58;= WNetGetCon&#40; @cDrive, @cName, 128 &#41;\ndebug x, cDrive, Len&#40;cname&#41;\nIf x != 0\n   cDrive &#58;= Left&#40; cDrive, 2 &#41;+Chr&#40;0&#41;\n   x&#58;= WNetGetCon&#40; @cDrive, @cName, 128 &#41;\n   debug x, cDrive, Len&#40;cname&#41;\n   If x != 0\n      cDrive &#58;= Left&#40; cDrive, 1 &#41;+Chr&#40;0&#41;\n      x&#58;= WNetGetCon&#40; @cDrive, @cName, 128 &#41;\n      debug x, cDrive, Len&#40;cname&#41;\n   EndIf\nEndIf\n[/code:195oimd9]\n\nAsi, a lo bruto, porque me falla!\nel comando debug me hace un Outputdebugstring de cada parametro en el dbwin\nx siempre me trae el codigo de error 487\nque en winerror.h dice:\n[code:195oimd9]\n//\n// MessageId&#58; ERROR_INVALID_ADDRESS\n//\n// MessageText&#58;\n//\n//  Attempt to access invalid address&#46;\n//\n#define ERROR_INVALID_ADDRESS            487L\n[/code:195oimd9]\n\nEs decir que hay algun problma con la declaracion o el pase de parametros o algo, pero no me doy cuenta.\n\nAlguna idea?\n\nSaludos','',0,'AIA=','195oimd9',1,0,'',1,0,0),(337,104,1,6,0,'87.1.198.66',1129197779,1,0,1,1,1,1,'','','Sorry Michel, now I know that OLE2.LIB offers CREATEOLEOBJECT() while xHarbour offers CREATEOBJECT(). I always used TOleAuto() with FW/Clipper and OLE2.LIB.\n\nEMG','',0,'AIA=','dxkp9vsq',1,0,'',6,0,0),(338,75,3,1,0,'80.58.10.235',1129197994,1,0,1,1,1,0,'Carlos Mora','','[quote=&quot;Silvio&quot;:tcx1j1l3]Dear Antonio,\nif you remember they are two prg ( c) of grid : I\'m try to converte the old classes of Canal5\nOn olivares2000 there are some classes of canal5 but there is not the grid class, i just converte today  the banner class with help of Paco.[/quote:tcx1j1l3]\n\n[code:tcx1j1l3]\ndll32 static function ;\n      AcpGetDrives&#40; nLength AS LONG, ;\n                    @cBuffer AS STRING &#41; ;\n      AS LONG PASCAL FROM &quot;GetLogicalDriveStringsA&quot; ;\n      LIB &quot;kernel32&#46;dll&quot;\n\nfunction GetLocalDrives&#40;&#41;\n\nlocal nError &#58;= 0\nlocal x &#58;= 0\nlocal cDrives &#58;= Space&#40; 78 &#41;\nlocal aDrives &#58;= &#123;&#125;\n\nAcpGetDrives&#40; 78, @cDrives &#41;\n\nfor x&#58;= 1 to 78 step 4\nif !Empty&#40; StrTran&#40; SubStr&#40; cDrives, x, 3 &#41;, Chr&#40; 0 &#41;, &quot;&quot; &#41; &#41;\nAAdd&#40; aDrives, SubStr&#40; cDrives, x, 3 &#41; &#41;\nendif\nnext\n\nreturn aDrives\n[/code:tcx1j1l3]','',0,'gIA=','tcx1j1l3',1,0,'',1,0,0),(339,36,1,47,0,'203.147.0.44',1129198395,1,0,1,1,1,0,'','I works great.  Can I open with public (internet) IP?','Dear Jeff,\n\nI try to open with local IP, it works great but I cannot open with public IP (internet).  Can I do it?  If so, how?\n\nThanks&amp;regards,\nDutch','',0,'gIA=','3el88gj4',1,0,'',47,0,0),(340,115,4,133,0,'80.176.234.174',1129198941,1,0,1,1,1,0,'','','Now registered.\n\nAny idea how long until multiple selection will be implemented as it will be essential to the final project I am developing.','',0,'gIA=','162hseoz',1,0,'',133,0,0),(341,110,6,88,0,'82.150.2.19',1129199691,1,0,1,1,1,1,'','','Saludos Marco,\n\nhe hecho lo que has comentado, porque tambien me interesa que mis aplicaciones tengan el aspecto de Win-Xp, pero el workshop por alguna extraña razon, al abrir el .rc no me encuentra el fichero \"WindowsXP.Manifest\".\n\nLo he colocado en todos los directorios que se que estan en el path, en el directorio local donde compilo, pero sigue sin funcionar.\n\n\nAlguien que aporte algo de luz?\n\n\nGracias por adelantado.\n\n\nNos leemos!!','',0,'gIA=','12ee1zfx',1,0,'',88,0,0),(342,104,1,86,0,'81.83.185.136',1129207016,1,0,1,1,1,0,'','','Enrico,\n\nI need to build a connection between my FiveWin application and Outlook through OLE.\n\nHave you any experience in this ?\n\nDo you know where the instructions, to be used for Outlook, can be found ?\n\nThank you.\n\nMichel','',0,'gIA=','zq0ov9f9',1,0,'',86,0,0),(343,118,1,86,0,'81.83.185.136',1129207152,1,0,1,1,1,0,'','OLE and Outlook','Hello,\n\nI want to build a synchronisation between my FW-application and Outlook through OLE.\n\nDoes anyone have any experience with this type of connection ?\n\nWhere can I find the necessary instruction that I need for OleIvoke() to connect to Outlook ?\n\nThank you very much.\n\nMichel D.\nGenk (Belgium)','',0,'gIA=','1briuu80',1,0,'',86,0,0),(344,104,1,6,0,'87.1.198.66',1129207167,1,0,1,1,1,1,'','','Search for VBA*.CHM in your hard disk.\n\nEMG','',0,'gIA=','2cy9gi4f',1,0,'',6,0,0),(345,104,1,86,0,'81.83.185.136',1129208447,1,0,1,1,1,0,'','','Enrico,\n\nThanks.\n\nMichel','',0,'gIA=','3tv7p97r',1,0,'',86,0,0),(347,110,6,101,0,'200.28.122.59',1129210112,1,0,1,1,1,0,'','','Puedes renombrar el achivo a temasXP.man por ejemplo y colocarlo en el RC asi :\n\n1 24 \"temasXP.man\"\n\nEl workshop no entiendo de nombres largos.','',0,'gIA=','t8wqd19s',1,0,'',101,0,0),(348,100,1,1,0,'66.130.4.121',1129211132,1,0,1,1,1,0,'Gilbert Vaillancourt','ComboBox vs Multi dimension Array','Hi Antonio,\n\n\nThanks for your answer, but I think you didn`t understand my question.\n\nBrowsing an array is not causing me any problem for now.\n\nWhat I want to do is use a COMBOBOX and combine two fields for selection in the drop down list. TestArr2.prg demonstrated how to browse multi dimension array.  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nRegards,\n\nGilbert','',0,'gIA=','15r695a9',1,0,'',1,0,0),(349,80,6,24,0,'80.58.35.235',1129214740,1,0,1,1,1,1,'','','Personalmente, considero el hecho de usar NEWS, muy superiores a este tipo de forums, pero vete aqui, que si Fivetech considera que es mejor,\ncomo Antonio ya a comentado, puede asi aumentar ingresos, al menos para\npagar el hosting y demas.... pues que le vamos hacer...\n\nEn fin, solamente queda valorar , dentro de un tiempo razonable, el nivel ,\ntanto de preguntas/respuestas, como de las soluciones dadas.\n\nAhora bien, seria interesante averiguar COMO NARIZES le dio para que el titulo, Re: No me gustan estas news, salga solo, porque yo le doy al quote, pero el titulo no lo pone...\n\nEso si, para vernos el careto, como esta nada <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->, porque al ver al Manolo Calero, me di un susto, con esos pelos,... jejejeje.','',0,'gIA=','1tstyvwe',1,0,'',24,0,0),(350,107,2,78,0,'200.121.196.125',1129215250,1,0,1,1,1,0,'','','Hola,\nSi describirias con mas detalle tu peticion talvez pueda ayudarte..\nSalu2\nWilli','',0,'gIA=','iif6dhpb',1,0,'',78,0,0),(352,120,2,1,0,'201.215.15.85',1129217230,1,0,1,1,1,0,'','Pasar a travez de un router','El cuento es el siguiente, tengo un programa  hecho en fivewin 2.2, clipper 5.3, blinker, conectado a una red en windows xp,  qaue esta  detras de un router dlink 604, la historia es que mi cliente quiere salir a terreno y cominicarse con la oficina, para ver los stock y saldos que tiene el sistema, pero desde su notebook, conectado a internet, esto yo lo hago cuando un pc esta conectado directamente a la señal adsl y uso un recurso de win xp, conexion remota, pero ahora yo quiero llegar al mismo pc, pero pasando por el router, y de ahi al computador que esta como servidor, alguna sugerencia.....','',0,'gIA=','36lho8ot',1,0,'',1,0,0),(353,121,6,1,0,'83.213.45.32',1129217490,1,0,1,1,1,0,'','DBSETRELATION en xHarbour','Hola amigos:\n\nPasando mis programas de 16 a 32 bytes, me da un problema con los campos relacionados.\nOs envio un fracmento de lo que quiero hacer, en FW24 + Clipper 5.3, funcion perfectamente, pero en FW+xHarbour 0.92.0, no me encuentra los datos de la tabla relacionada.\n\n/* Asi se crearon los indices\nINDEX ON CODART+CODALM TAG STK1 FOR EMPTY(LOTE) .AND. !DELETED()\nINDEX ON CODALM+CODART+LOTE TAG STK2 FOR !EMPTY(LOTE) .AND. !DELETED()\n*/\n\n// Abro los archivos\ndLot:=AbreDbf(\"LOTE\",\"Lote\")\ndStk:=AbreDbf(\"STOCK\",\"Stock\")\n\n// Selecciono el indice activo\n(dStk)-&gt;(OrdSetFocus(2)) // Almacen + Articulo + Lote\n\n// Creo la relacion\nDBSETRELATION(dLot,{||(dStk)-&gt;CodArt+(dStk)-&gt;Lote},dStk+ ;\n\"-&gt;CodArt\"+dStk+\"-&gt;Lote\")\n(dStk)-&gt;(DBGOTOP())\n\n// Pruebo a ver los resultados, pero no me localiza, ni el lote, ni la fecha\n?(dLot)-&gt;Lote,(dLot)-&gt;Fecha,(dLot)-&gt;(RECNO())\n\nGracias de antemano por vuestra ayuda.\n\nUn saludo\nAlfonso Larrinaga\n<!-- e --><a href=\"mailto:bsinformatica@euskalnet.net\">bsinformatica@euskalnet.net</a><!-- e -->','',0,'gIA=','101j5dw8',1,0,'',1,0,0),(354,3,3,136,0,'66.201.225.194',1129218492,1,0,1,1,1,0,'','','Hi there !\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','zeglvvhz',1,0,'',136,0,0),(355,110,6,43,0,'201.138.93.20',1129223967,1,0,1,1,1,0,'','','Hola Leandro\n\n  pon en tu archivo .rc esto.\n\n  #ifdef __FLAT__\n      1 24 \"WindowsXP.Manifest\"\n   #endif\n\n   haa, una cosa creo que para que tu aplicacion tenga el look de windows xp, necesita ser de 32 bits, por lo tanto necesitas recompilar con [x]Harbour, nunca he probado con clipper... pero creo que esa es solución..  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos\n\n   Marco A. Delgado.','',0,'','25yihu02',1,0,'',43,0,0),(356,99,6,43,0,'201.138.93.20',1129224503,1,0,1,1,1,0,'','','Hola Jesus.\n\n  Estoy algo sacado de onda, donde haces el directorio del ftp obviamente que debes de tener tu servidor ftp.\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'','ch8862y2',1,0,'',43,0,0),(358,110,6,1,0,'201.128.111.62',1129229727,1,0,1,1,1,0,'Rene Flores','Re: una clase de botones estilo windows xp','[quote=&quot;leandro alfonso&quot;:39o2sn4t]Hola a todos los compañeros del foro, alguien tiene o sabe de alguna clase de botones que dibuje los botones del estilo windows xp o clase BTNBMP que funcione en 32 bits.\n\nLEANDRO ALFONSO \nDesde Colombia[/quote:39o2sn4t]\n\nFiveWin 2.6 incluye botones con bitmap \"XP Style\"\n\nSaludos\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'gA==','39o2sn4t',1,0,'',1,0,0),(359,110,6,1,0,'201.128.111.62',1129229884,1,0,1,1,1,0,'Rene Flores','','[quote=&quot;Chantiel&quot;:ez8ebuet]Saludos Marco,\n\nhe hecho lo que has comentado, porque tambien me interesa que mis aplicaciones tengan el aspecto de Win-Xp, pero el workshop por alguna extraña razon, al abrir el .rc no me encuentra el fichero \"WindowsXP.Manifest\".\n[/quote:ez8ebuet]\n\nJejeje, Workshop es una aplicacion de 16 bits que no acepta nombres largos, para solucionar el tema, simplemente renombra el archivo como \"themed.man\" y agregalo con el 1 24 famoso a tu archivo RC:\n\n1 24 \"themed.man\"\n\nasegurate que le themed.man este en el mismo directorio de tu archivo .RC\n\nSaludos\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'gA==','ez8ebuet',1,0,'',1,0,0),(360,67,2,138,0,'201.128.111.62',1129230780,1,0,1,1,1,1,'','Re: Cambiar el aspecto de la ventana de la aplicacion.','[quote=&quot;Anonymous&quot;:3obm25zv]Saludos,\n\nquisiera saber como cambiar el aspecto de mis ventanas al que ofrece Win-XP.\n\nEn la actualidad se ven como si estuviesen en Win 3.11, como si ejecutases el simbolo del sistema (cmd.exe) o algo similar.\n\nGracias de antemano.[/quote:3obm25zv]\n\nSolo se puede hacer a 32 bits, cambia a FWH.','',0,'gA==','3obm25zv',1,0,'',138,0,0),(361,107,2,138,0,'201.128.111.62',1129230883,1,0,1,1,1,1,'','Re: Acceder a un programa en forma remorta pasando por un ro','[quote=&quot;Anonymous&quot;:vk5d1zx6]hola amigos, necesito entrar a un programa como control remoto, pero pasando por un router dlink, alguien conoce alguna herramienta que permita hacer esto[/quote:vk5d1zx6]\n\nTienes que utilizar la opcion de \"NAT\" o \"Virtual Server\" que tienen todos los routers.\n\nEn esa opcion deberas indicar que puerto vas a abrir y que equipo dentro de la red interna (direccion IP) debe responder a las peticiones','',0,'gA==','vk5d1zx6',1,0,'',138,0,0),(362,112,3,138,0,'201.128.111.62',1129231223,1,0,1,1,1,1,'','Re: ADS - Question','Jeff:\n\nThe ADS local server has all the features of the remote server except: Internet data access, Client/server technology and Transaccions.\n\nThe local server supports up to 5 concurrent users and it was though for development propouses only, so you can to have all the features of the remote server, but installed in a single PC when you app need to move into the real Client/Server world, you don\'t have make any mod into the source code, simply install the remote server, and you app will become into a powerful client/server app, even letting you to have internet access to you dbfs.\n\n\n[quote=&quot;Jeff Barnes&quot;:2jvj6x2d]Hi Everybody,\n\nI\'ve seen alot of posts over the years about ADS (Advantage Database Server).\n\nIf I am correct, the ADS \"Server\" program allows you to have one computer (server) handle the database files / searches etc...  This one is not free but the \"local\" server is ... so, what exactly does the \"Local\" server do?\n\n\n\nThanks in advance,\nJeff B[/quote:2jvj6x2d]','',0,'gA==','2jvj6x2d',1,0,'',138,0,0),(363,90,3,138,0,'201.128.111.62',1129231431,1,0,1,1,1,1,'','','Take a look into Crystal Reports.\n\nIt saves you *a lot* of report coding time. and you have over 20 different output formats including, XLS, DOC, HTML, PDF, Mail, DBF, SQL DATABASE, etc.','',0,'gA==','2r3b22vw',1,0,'',138,0,0),(364,83,3,138,0,'201.128.111.62',1129231596,1,0,1,1,1,1,'','','Good to know.\n\nADS 8.0 has very powerful new features like automatic backup system within the same server, and memo field \"filtering\"\n\nOther features like replication and mirroring are still supported along with other very useful like Internet DBF access.','',0,'gA==','1hit8c1e',1,0,'',138,0,0),(365,123,6,1,0,'201.245.213.54',1129232350,1,0,1,1,1,0,'leandro alfonso','si es una de las ultimas','Si es una de las ultimas versiones.\n\nPara solucionar el problema agrege una antigua que tenia.\n\nSera que me puedes indicar la forma de solucionar el problema\n\nUN ABRAZO\nLEANDRO ALFONSO','',0,'gA==','29z3q7hx',1,0,'',1,0,0),(366,75,3,49,0,'82.60.39.220',1129234508,1,0,1,1,1,0,'','','thanks...\nbut i have another problems to onverte grid class','',0,'gA==','nc4bccmc',1,0,'',49,0,0),(367,3,3,1,0,'200.164.92.242',1129238450,1,0,1,1,1,0,'','Hi','Hello All,\n\n I am here too!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','2sjfu6zu',1,0,'',1,0,0),(368,124,1,1,0,'200.59.52.168',1129238547,1,0,1,1,1,0,'leonorgonz@yahoo.com.ar','clase twbrowse','HOla Amigos: Tengo trabajando la clase twbrowse en un dialog, al abrir  otra ventana con dialog y twbrowse en otra area de trabajo veo en la ventana de atras lo mismo que en la ventana nueva al cambiar el area. Como hago para que la ventana de atras siga mostrando los datos del area de trabajo de inicio. Gracias.\nSaludos.\nLeonor\nRosario - Argentina','',0,'gA==','wslo4ugd',1,0,'',1,0,0),(369,111,6,72,0,'200.95.25.7',1129245824,1,0,1,1,1,0,'','','Será que no se entendió la consulta o no hay trucos al respecto?  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','1tf99iq0',1,0,'',72,0,0),(370,125,6,141,0,'200.88.94.146',1129250215,1,0,1,1,1,1,'','Alguien esta utilizando xBScript ?','Hola a todos,\n\nPues eso... es que me tiene atrapado en algo que parece sencillo, pero no doi \"pie con bola\".... <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nA ver quienes lo estan utilizando que me tiendan una mano!\n\nSalu2,','',0,'gA==','wnn5mv46',1,0,'',141,0,0),(371,126,6,79,0,'200.8.16.156',1129251270,1,0,1,1,1,0,'','Una de Mercurio retrogrado','Estimados amigos,\n\n\nTengo una aplicacion que se conecta via tFtp a un servidor para bajar un archivo pero despues que baja el archivo que todo lo hace muy bien cuando te sales de la aplicacion la misma no termina la siguo viendo cargada en el administrador de tareas de windows si no bajo nada via ftp si termina bien <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->.\n\nGracias \n\nMario Gonzalez','',0,'gA==','3y40fk3q',1,0,'',79,0,0),(372,126,6,79,0,'200.8.16.156',1129251354,1,0,1,1,1,0,'','Se me olvidaba algo','Uso BCC5.5 + HARBOUR + FWH26','',0,'gA==','1b4q3vcy',1,0,'',79,0,0),(373,111,6,1,0,'201.145.241.55',1129252272,1,0,1,1,1,0,'','','Hola alfredo, si me deschongo mucho me paras un alto va? \n\nok. para la primer pregunta yo le diria ddate := date() o en su defecto un calendario bonito...\n\npara la segunda, existen funciones para crear directorios en fwh, pero lo que yo uso para crear directorios es la siguiente...\n\nlMkDir( cRutaLogica+\"BACKUP\" )\n\nasi de esa forma y si me ha dado resultados...','',0,'gA==','z6d4fd3g',1,0,'',1,0,0),(374,111,6,72,0,'200.95.25.7',1129254013,1,0,1,1,1,0,'','','Gracias por la respuesta, me refería principalmente al efecto en los GETs, las otras dos situaciones ya fueron resueltas.\n\nUso SetDate() para facilitarle algunas labores o procesos a los usuarios permitiéndoles cambiar la fecha, pero resulta que cuando la restablesco decrementa un día, bueno fue suficiente con incrementarlo antes de restablecerla. Esta situación se presentó en alguna ocasión con FiveWin hice los comentarios y entonces fue corregida pero hoy la vuelvo a encontrar en FWH.\n\nSobre lRmDir() o lLFNRmDir(), ninguna de estas dos funciona tuve que agregar a sugerencia de Willy (saludos) la DLL32 y listo, aquí la dejo por si a alguien le interesa.\n\nDLL32 FUNCTION RemoveDir(cPathName AS LPSTR) AS BOOL PASCAL ;\n          FROM \"RemoveDirectoryA\" LIB \"Kernel32.Dll\"\n\nEsperaré lo del control GET se que ahora no se trata del pintado pero talvez alguién ya logro el efecto, posiblemente cambiando de editor de recursos.\n\nSaludos.','',0,'gA==','3c7a2yb6',1,0,'',72,0,0),(375,127,1,142,0,'218.111.175.119',1129263262,1,0,1,1,1,0,'','error Fivewin/1 Non Defined Id : No 210','hi all,\n\nI\'ve ancounter problem at my user where same dll/exe files updated to same computer BUT return different result. Computer A, can run all the module with susccesfull. But Computer B, prompt this error fivewin/1 : non defined id. This error prompt when reading my program to activate a dialog 210 on screen. \n\nI tottaly lost in my own jungle where after checked tru my program, there\'s no problem at all.\n\nrelaly need help on how to solve this. How come same program return different result.\n\n--\nMasita','',0,'gA==','qmulw8wc',1,0,'',142,0,0),(376,128,3,67,0,'83.134.58.169',1129270911,1,0,1,1,1,0,'','Using fonts','Hello,\n\nI try to define 3 sizes of fonts :\n\nDEFINE FONT Fnt[1] NAME \"MS Sans Serif\" SIZE 9 , 12\nDEFINE FONT Fnt[2] NAME \"MS Sans Serif\" SIZE 0 , 10\nDEFINE FONT Fnt[3] NAME \"MS Sans Serif\" SIZE 0 , 8\nDEFINE DIALOG oDlg\n@ 1 , 1 SAY \"SIZE 12\" OF oDlg FONT Fnt[1]\n@ 1 , 5 SAY \"SIZE 10\" OF oDlg FONT Fnt[2]\n@ 1 , 7 SAY \"SIZE 8\" OF oDlg FONT Fnt[3]\n\nMaking a test , i can see difference between size 12 , and size 10 , NOT between size 10 and size 8\n\nIs Size 8 not available with MS Sans Serif ?\nMaybe another font ?\n\nFrank','',0,'','240ipx7p',1,0,'',67,0,0),(377,124,1,2,0,'80.58.2.237',1129274588,1,0,1,1,1,1,'','','Leonor,\n\nLa segunda DBF que usas, lo haces con la claúsula NEW ?\n\nUSE ... NEW\n\nSi no, estarias cerrando la DBF anterior y reemplazándola por la nueva.\n\nPor favor, regístrate en estos foros. Son sólo unos minutos. Gracias.','',0,'','1i6rgg7p',1,0,'',2,0,0),(378,3,3,1,0,'195.210.65.23',1129277348,1,0,1,1,1,0,'Roberto Chiaiese','','Antonio,\nI do not agree with this choice, it makes the newsgroup less usable, readable and portable.\nWith Html format we cannot download all messages, keep them on a notebook for off-line consulting and so on\nIt is a very useful database to consult at everytime in every place (also without a connection to internet)\nI hope you will consider the idea to go back to NNTP newsgroup or at least to keep them in parrallel\n\nbest regards\nRoberto Chiaiese','',0,'','l33hfccx',1,0,'',1,0,0),(379,129,6,23,0,'80.58.44.235',1129277995,1,0,1,1,1,1,'','Duda con TsBrowse','Hola foro, estoy usando TsBrowse de M.Mercado y tengo una pequeña duda sobre los colores.\nHe definido un browse y le doy los colores mediante esta orden :\n\noLbx:SetColor( { 1, 2, 3, 4, 5, 6 },{CLR_BLUE,CLR_WHITE,CLR_GREEN,CLR_YELLOW,CLR_WHITE,CLR_RED})\n\nEsto asigna correctamente los colores al fondo a la cabecera y supuestamente a la línea seleccionada (la del foco), pero realmente la línea seleccionada pues no se ve.\n\nMuestra de la pantalla\n[url:3p8tlf6u]http&#58;//www&#46;sigev&#46;com/clip0001&#46;jpg[/url:3p8tlf6u]\n\nQue hago mal??\nGracias','',0,'EA==','3p8tlf6u',1,0,'',23,0,0),(380,110,6,88,0,'82.150.2.19',1129278993,1,0,1,1,1,1,'','','Gracias a ambos,\n\nJoms y Rene.\n\n\nAhora si funciona  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nNos leemos!!','',0,'EA==','21661fik',1,0,'',88,0,0),(381,116,6,17,0,'80.58.38.235',1129280537,1,0,1,1,1,1,'','','Jose Luis !\n\nCon FWH Ver2.6 Septiembre y su xHarbour que distribuye Antonio, compilo los dos ejemplos que pones y abro los 3 archivos.rtf que hay de ejemplo sin ningun problema... Si quieres que haga alguna otra prueba, me lo dices.\n\nUn saludo','',0,'EA==','2pxzk5po',1,0,'',17,0,0),(382,127,1,2,0,'83.40.12.109',1129282175,1,0,1,1,1,1,'','','Masita,\n\nIt is really strange. Please do a search on the computer that fails, to check if there is another copy of the resources DLL.','',0,'EA==','2x2el0fe',1,0,'',2,0,0),(383,36,1,47,0,'203.144.143.7',1129283037,1,0,1,1,1,0,'','Thanks','Thanks tnhoe, I will try it.\n\nRegards,\nDutch','',0,'EA==','fm71kypm',1,0,'',47,0,0),(384,30,3,1,0,'80.170.10.162',1129283325,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','Hello EMG,\n\nCan you tell me the betters compiler options to compile\nall Fivewin for Harbour .prg with xHarbour in one pass (if possible) ?\n\nI have some compiler errors with these options : \"-l -n -w -m -gc0\"\n\nie error :\n\n\"dbms.ch (84) Warning I0003 : No markers in repeatable group\n[;#undef _Dbms_ ] - group will never be used.\"\n\nRegards,\nBadara','',0,'','236izgu0',1,0,'',1,0,0),(385,104,1,1,0,'212.205.251.2',1129283878,1,0,1,1,1,0,'','','Look at and this you it helps \n\n[url:1dyk6dqc]http&#58;//www&#46;dbsoft&#46;gr/ole2/OleOutlook&#46;zip[/url:1dyk6dqc]\n\nFriendlily\njohn','',0,'EA==','1dyk6dqc',1,0,'',1,0,0),(386,118,1,139,0,'212.205.251.2',1129284673,1,0,1,1,1,0,'','','Michel\nLook at and this you it helps \n\n <!-- m --><a class=\"postlink\" href=\"http://www.dbsoft.gr/ole2/OleOutlook.zip\">http://www.dbsoft.gr/ole2/OleOutlook.zip</a><!-- m -->\n\nFriendlily \njohn','',0,'EA==','106nosm5',1,0,'',139,0,0),(387,126,6,2,0,'83.40.12.109',1129285328,1,0,1,1,1,1,'','','Mario,\n\nQue clase usas, ó que utilidad, para hacer la descarga FTP ?','',0,'EA==','29o7eybn',1,0,'',2,0,0),(388,121,6,2,0,'83.40.12.109',1129285439,1,0,1,1,1,1,'','','Alfonso,\n\nConsigue una versión más actualizada de xHarbour.','',0,'EA==','3gl6b239',1,0,'',2,0,0),(389,69,6,1,0,'80.58.10.235',1129286607,1,0,1,1,1,0,'Carlos Mora','Re: no funcionan botones','Daniel,\nhace falta hacer quote del mensaje? Digo, para ahorrar espacio, lectura, etc.\n\nPor lo general se deja solo lo minimo necesario\n\nSaludos','',0,'EA==','2fh93c6u',1,0,'',1,0,0),(391,111,6,21,0,'81.38.234.65',1129287182,1,0,0,1,1,1,'','','Hola alfredo,\n\nNo se si tu pregunta sobre get se refiere exactamente a esto, pero yo uso \noGet:lReadOnly := .T.\nSin tener que desabilitar el get. De esta forma el get esta habilitado, perminte movimiento hacia arriba y hacia abajo, en el caso de un multilinea, y no se puede escribir nada en él, es sólo de lectura.','',0,'EA==','2tqoh4u9',1,0,'',21,0,0),(393,113,3,2,0,'83.40.12.109',1129287687,1,0,1,1,1,1,'','','Jeff,\n\nYou may review the working samples\\TestFld... prg at FWH samples directory.','',0,'EA==','3fzfu7h5',1,0,'',2,0,0),(394,121,6,1,0,'80.58.10.235',1129287765,1,0,1,1,1,0,'Carlos Mora','Re: DBSETRELATION en xHarbour','Alfonso,\n\n[quote=&quot;Anonymous&quot;:1no9e6i4]\n\n// Creo la relacion\nDBSETRELATION(dLot,{||(dStk)-&gt;CodArt+(dStk)-&gt;Lote},dStk+ ;\n\"-&gt;CodArt\"+dStk+\"-&gt;Lote\")\n(dStk)-&gt;(DBGOTOP())\n\n// Pruebo a ver los resultados, pero no me localiza, ni el lote, ni la fecha\n?(dLot)-&gt;Lote,(dLot)-&gt;Fecha,(dLot)-&gt;(RECNO())\n\n[/quote:1no9e6i4]\n\nFíjate si agregando el \'+\' te corrige el problema\n\nDBSETRELATION(dLot,{||(dStk)-&gt;CodArt+(dStk)-&gt;Lote},dStk+ ;\n\"-&gt;CodArt[b:1no9e6i4]+[/b:1no9e6i4]\"+dStk+\"-&gt;Lote\")\n(dStk)-&gt;(DBGOTOP())\n\nOtra cosa: Para evitar eventuales problemas con las variables, como codeblock de la relacion usa:\ncRelation:= dStk+\"-&gt;CodArt+\"+dStk+\"-&gt;Lote\"\nbRelation:= &amp;( \"{||\" + cFiltro + \"}\" )\ndBSetRelation( Select( dLot ), bRealtion, cRelation )\n\n\nEn tu programa actual, que te devuelve dbrselect()?\n\nSaludos[/b]','',0,'wA==','1no9e6i4',1,0,'',1,0,0),(395,30,3,6,0,'82.57.159.249',1129287922,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','This is what I use:\n\nSET HARBOURCMD=/a /es1 /gc0 /l /m /n /q /w\n\nAnyway, you don\'t have to recompile the following PRGs:\n\nexpbuild.prg\ndb10.prg\nodbc32.prg\ndbm.prg\nvbxctrl.prg\n_index.prg\ndbms.prg\nddeserv.prg\nfield.prg\ntnewsins.prg\nc3.prg\n\nEMG','',0,'wA==','1elg7z5c',1,0,'',6,0,0),(396,132,3,31,0,'195.182.84.105',1129288291,1,0,1,1,1,1,'','FWH and MS VC','Hi I want to ask you , if I have old FWH ( 2004 October ) libs it must to rebuild this libs for xHarbour ( from CVS )  pcode coordination ? If yes , can you share with rebuilding project ? I have MS Visual Studio 98 , VC ++ 6.0 version .\n\n   With best regards ! Rimantas .  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'wA==','1861g68v',1,0,'',31,0,0),(397,129,6,21,0,'81.38.234.65',1129289016,1,0,0,1,1,1,'','','Hola Angel,\n\nHe probado a colocar esos mismo colores que pones tu y a mi me funciona correctamente, Tanto usando Celled como sin ello\n\nComprueba que no sea que no tienes el foco posicionado en el browse y que este este al principio del mismo. Para comprobar si es eso, una vez carges el browse pulsa en el ratón en él para ver si sale el color del foco.','',0,'wA==','3hhxreaw',1,0,'',21,0,0),(398,132,3,2,0,'83.40.12.109',1129290657,1,0,1,1,1,1,'','','Rimantas,\n\nYou just need to make a batch file where you compile each PRG and replace it at fiveh.lib. Anyhow, you are using an old FWH version and we can not guarantie you it may finally work.','',0,'wA==','2ahq2z7g',1,0,'',2,0,0),(399,104,1,86,0,'81.83.185.136',1129291513,1,0,1,1,1,1,'','','Thanks, John, for your tip.\n\nUnfortunately, this link doesn\'t exist anymore.','',0,'wA==','20g34n6x',1,0,'',86,0,0),(400,118,1,86,0,'81.83.185.136',1129291588,1,0,1,1,1,1,'','','Thanks, John, for your tip. \n\nUnfortunately, this link doesn\'t exist anymore.','',0,'wA==','2amooqcz',1,0,'',86,0,0),(401,132,3,31,0,'195.182.84.105',1129292818,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:32wx8mjf]Rimantas,\n\nYou just need to make a batch file where you compile each PRG and replace it at fiveh.lib. Anyhow, you are using an old FWH version and we can not guarantie you it may finally work.[/quote:32wx8mjf]\n\n   Hi Antonio ! Where I  can get this batch ? What are MS VC settings for creating libs ? I\'m not C user , so will be thankfull for any concrete help .\n\n   With best regards ! Rimantas','',0,'gA==','32wx8mjf',1,0,'',31,0,0),(402,129,6,23,0,'80.58.44.235',1129295590,1,0,1,1,1,1,'','','Gracias por la sugerencia, el problema radicaba a la hora de declarar la columna porque si le hacia un oLbx:LoadFields(), lo pintaba bien.\nHe revisado la creación de las columnas y ahora ya lo hace correctamente.\n\nGracias por todo','',0,'gA==','1jhrdmct',1,0,'',23,0,0),(403,133,1,148,0,'62.135.38.155',1129298507,1,0,1,1,1,0,'','Scanner','How can I use scanners with FW ?\nGice an Example from the sample directory .','',0,'gA==','3biecrj9',1,0,'',148,0,0),(404,126,6,79,0,'201.248.111.244',1129299450,1,0,1,1,1,0,'','tFtp','la clase tftp original y tftpfile  tomando el ejemplo icopyfile','',0,'gA==','1yj4u17n',1,0,'',79,0,0),(405,134,6,66,0,'24.232.135.75',1129301634,1,0,1,0,1,0,'','Se puede Utilizar $String en indices Condicionales','Mi pregunta es se puede Utilizar $String en indices condicionales\n\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx FOR \"COOP\" $ UPPER(md-&gt;RAZON_SOC)\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx for UPPER(md-&gt;RAZON_SOC) $\n\"COOP\"\n\nosea que me muestre por pantalla todos los registros que contengan\ncoop independientemente cual sea su posicion en el campo, he probado\nestos dos ejemplos per no me funcionan , si me funciona set filter\npero tarda mucho ya que es una dbf de 175000 registros\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','1h8pssto',1,0,'',66,0,0),(406,90,3,29,0,'212.171.42.58',1129301991,1,0,1,1,1,0,'','','Hi  Rene,\nI find CR interesting but a little heavy,\nhowever Do you have a wrapper and some example to use FWH with CR ?\n\nIs there anyone alse work with R&amp;R Report or List and Label that could share his experience about there other reports ?\n\n\nMarco','',0,'gA==','3c9rqtuc',1,0,'',29,0,0),(407,134,6,66,0,'24.232.135.75',1129302280,1,0,1,0,1,0,'','INDICES Condic. vs SET FILTER  MEJORA DE PERFOMANCE','Estimados Colegas\n\nMi pregunta es tengo una DBF de 175000 registros, y quiero buscar\ntodos los registros que contengan la palabra coop dentro del campo\nRazon_soc  independientemente en la posicion en que se encuentren\nCcon Set filter  me funciona perfecto pero tarda alrededor\nde 5 minutos, con indices condicionales lo probe baja el tiempo pero\nno me trae las coincidencias \n\nej:\n\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx FOR \"COOP\" $ UPPER(md-&gt;RAZON_SOC)\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx for UPPER(md-&gt;RAZON_SOC) $\n\"COOP\"\nExiste alguna otra manera de hacerlo\n\n\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','2coj9bvx',1,0,'',66,0,0),(408,135,6,66,0,'24.232.135.75',1129302371,1,0,1,0,1,0,'','INDICES Condic. vs SET FILTER  MEJORA DE PERFOMANCE','Estimados Colegas\n\nMi pregunta es tengo una DBF de 175000 registros, y quiero buscar\ntodos los registros que contengan la palabra coop dentro del campo\nRazon_soc independientemente en la posicion en que se encuentren\nCcon Set filter me funciona perfecto pero tarda alrededor\nde 5 minutos, con indices condicionales lo probe baja el tiempo pero\nno me trae las coincidencias\n\nej:\n\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx FOR \"COOP\" $ UPPER(md-&gt;RAZON_SOC)\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx for UPPER(md-&gt;RAZON_SOC) $\n\"COOP\"\nExiste alguna otra manera de hacerlo\n\n\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\nVolver arriba 	\nVer perfil de usuario','',0,'gA==','ux4gyk9y',1,0,'',66,0,0),(409,109,6,1,0,'201.245.245.122',1129305869,1,0,1,1,1,0,'leandro alfonso','como arreglo el problema','Yannis, lo que pasa es que yo compilo con verce 4.5 tu me puedes indicar la forma de incluir esos archivos.\n\nde paso te hago otra preguntica, cuando defino los botones en mi aplicación me genera un error de argumento pero no ejecuto ninguna accion sobre el boton simplemente me arroja el error al hacer clic. me gustaria saber si esto tiene que ver con las librerias que mecionaste anteriormente.\n\nUn abrazo desde Colombia\nLEANDRO ALFONSO','',0,'gA==','fs3hoyfs',1,0,'',1,0,0),(410,135,6,138,0,'201.128.111.62',1129308272,1,0,1,1,1,1,'','Re: INDICES Condic. vs SET FILTER  MEJORA DE PERFOMANCE','Si estas utilizando el RDD ADS prueba con los AOF (Advantage Optimized Filters) son super rapidos, miles de veces mas rapidos que un SET FILTER nativo de (x)HB\n\n[quote=&quot;Databaselab2002&quot;:zoiku24q]Estimados Colegas\n\nMi pregunta es tengo una DBF de 175000 registros, y quiero buscar\ntodos los registros que contengan la palabra coop dentro del campo\nRazon_soc independientemente en la posicion en que se encuentren\nCcon Set filter me funciona perfecto pero tarda alrededor\nde 5 minutos, con indices condicionales lo probe baja el tiempo pero\nno me trae las coincidencias\n\nej:\n\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx FOR \"COOP\" $ UPPER(md-&gt;RAZON_SOC)\nINDEX ON upper(MD-&gt;RAZON_SOC) to xxx for UPPER(md-&gt;RAZON_SOC) $\n\"COOP\"\nExiste alguna otra manera de hacerlo\n\n\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\nVolver arriba 	\nVer perfil de usuario[/quote:zoiku24q]','',0,'gA==','zoiku24q',1,0,'',138,0,0),(411,109,6,1,0,'201.138.93.20',1129310633,1,0,1,1,1,0,'','','Hola Leandro.\n\n  Disculpa, donde conseguiste verce 4.5, si no mas recuerdo va en la 4.1 y ya incluye esos cambios, y si utilizas verce 4.x solo tienes que agregarla como una libreria mas en Librerias de terceros y listo.\n\n  Te recomiendo que te actualices a la ultima versión de xharbour y Verce\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','1c82us51',1,0,'',1,0,0),(412,109,6,43,0,'201.138.93.20',1129310772,1,0,1,1,1,0,'','','Mil Disculpas...  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Es que todavia no me acostumbro, a registrarme.... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','3f072tt3',1,0,'',43,0,0),(413,136,4,149,0,'195.4.159.137',1129311121,1,0,1,1,1,0,'','BtnBmp in a dialog','Hello,\n\nis it possible that btnbmp in a dialog is not available yet?\nI have: message not found tbtnbmp:_ctooltip, tbtnbmp_ctooltip(169)\n\nRegards\nThomas','',0,'gA==','3uq3w1f0',1,0,'',149,0,0),(414,137,6,151,0,'200.72.167.139',1129316118,1,0,1,1,1,0,'','compilar mas prgs','Hola \n\ntengo un arhivo mak para compilar con xharbour 0.99.0 con 65 programas .prg que enlaza muy bien... pero al agregar un nuevo prg al archivo mak, al terminar el enlazado la aplicación se queda en la pantalla de inicio pidiendo el password de entrada no reconociendo lo que le indico en un eterno loop. \n\nAl sacar el prg del archivo mak, y al enlazarlo de nuevo el programa se ejecuta normalmente....\n\nhabra algun flag que agregar al xharbour o bcc55 para solucionar esto?\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','3t7y39ii',1,0,'',151,0,0),(415,136,4,3,0,'82.251.150.42',1129317446,1,0,1,1,1,0,'','Re: BtnBmp in a dialog','[quote=&quot;Thomas Grueninger&quot;:1d5ewypd]Hello,\n\nis it possible that btnbmp in a dialog is not available yet?\nI have: message not found tbtnbmp:_ctooltip, tbtnbmp_ctooltip(169)\n\nRegards\nThomas[/quote:1d5ewypd]\n\nThomas\n\nCheck the syntax, i have no problems with btnbmp.\n\nThis is a sample of what i use,\n\nIf you still have a problem, can you show the offending code ?\n\nHTH\n\nRichard\n\n@ 125, 20 BTNBMP FILE CurDir() + \"\\client.bmp\" ;\n      SIZE 30, 30 ;\n      ACTION oSay:SetText( \"Clients\" )','',0,'gA==','1d5ewypd',1,0,'',3,0,0),(416,138,6,77,0,'80.224.171.203',1129319501,1,0,1,1,1,0,'','errorsysw','Hola foro, \n\nTengo el siguiente problema, estoy traspasando una aplicación de fw a fwh25, y me ocurre lo siguiente, tengo una opción que pinta un grafico en una ventana, y cuando los datos que se buscan en el fichero para comparar suele pasar que no hayan datos, y entonces se genera el error de division por cero que segun el errorsysw debería devolver el control a la función con un retorno de cero, pues sí, devuelve el control, pero cuando esto es seguido + de 3 veces, se sale del programa sin aviso alguno, alguien podría decirme que puede pasar.\n\nSaludos.\nManolo','',0,'gA==','sxj5gf4y',1,0,'',77,0,0),(417,105,4,3,0,'82.251.150.42',1129320168,1,0,1,1,1,0,'','Re: Problem with dbdelete()  and  pack','[quote=&quot;Maurizio&quot;:2twxhegn]I use DBFCDX RDD \nthe command dbdelete() and pack \ndon\'t work correctly\n\nRegards  Maurizio[/quote:2twxhegn]\n\nMaurizio\n\nDo you have\n\nSET DELETE ON \n\nRichard','',0,'gA==','2twxhegn',1,0,'',3,0,0),(418,19,2,1,0,'81.203.97.132',1129323278,1,0,1,1,1,0,'Fraguibo','Julio Iglesias','Julio,\n         si necesitas la libreria  501_520.lib, me mandas un e-mail y te la pasare.\n                <!-- e --><a href=\"mailto:fraguibo1@hotmail.com\">fraguibo1@hotmail.com</a><!-- e -->\n\n        un saludo.\n                                   Fraguibo','',0,'gA==','2ht4q9ap',1,0,'',1,0,0),(419,118,1,139,0,'212.205.251.57',1129326086,1,0,1,1,1,0,'','','[code:v84ddso8]\n*********************************************\n*  CONEXION DE DSGCD 2004 CON OUTLOOK 2000  *      EN PREPARACION\n*                                           *\n*  EXPORTA / IMPORTA DATOS Y SINCRONIZA     *      OUTLOOK&#46;PRG\n*********************************************\n#include &quot;FIVEWIN&#46;CH&quot;\n\n//--------------------------------------------------------------------\n// PASA TODAS LAS DIRECCIONES DE OUTLOOK A DSGCD COMPARANDO PRIMERO SI\n// EXISTEN POR SU EMAIL O SI NO LO TIENE POR NOMBRE+APELLIDOS+EMPRESA\n//--------------------------------------------------------------------\nFUNCTION OUTLK2DIRTEL&#40;&#41;\n\nLOCAL oOL, oLista, oMail, i, oNameSpace, lcMessage, oContact, oNewContact\nLOCAL oDirtel,oTipodirt,nCodigo&#58;=0,lCategoria&#58;=&#46;F&#46;,nCategoria&#58;=0,nCatoutlook&#58;=0\nLOCAL nNuevos&#58;=0\n\n //Abrir conexión OLE\n oOL &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Outlook&#46;Application&#46;9&quot; &#41;\n IF Ole2TxtError&#40;&#41; != &quot;S_OK&quot;\n    MsgAlert&#40;&quot;Outlook 2000 no está disponible&#46;&quot;, &quot;Error&quot;&#41;\n    Return &#46;F&#46;\n Endif\n\n //Abrir archivos\n IF !NETUSE&#40;IF&#40;nIDIOMA=5,&quot;TIPODIPG&quot;,&quot;TIPODIES&quot;&#41;&#41;\n    Return &#46;F&#46;\n Endif\n DATABASE oTipodirt\n oTipodirt&#58;bEOF&#58;=&#123;|| NIL&#125;\n Do While !oTipodirt&#58;Eof&#40;&#41;\n    If ALLTRIM&#40;oTipodirt&#58;Tipodirt&#41;==&quot;OUTLOOK&quot;\n       lCategoria&#58;=&#46;T&#46;\n       nCatoutlook&#58;=oTipodirt&#58;Codigo\n    Endif\n    nCategoria&#58;=If&#40;oTipodirt&#58;Codigo&gt;nCategoria,oTipodirt&#58;Codigo,nCategoria&#41;\n    oTipodirt&#58;Skip&#40;&#41;\n Enddo\n If !lCategoria\n    nCatoutlook&#58;=++nCategoria\n    oTipodirt&#58;Append&#40;&#41;\n    oTipodirt&#58;Codigo  &#58;=nCatoutlook\n    oTipodirt&#58;Tipodirt&#58;=&quot;OUTLOOK&quot;\n    oTipodirt&#58;Save&#40;&#41;\n Endif\n\n IF !NETUSE&#40;&quot;DIRTEL&quot;&#41;\n    oTipodirt&#58;Close&#40;&#41;\n    Return &#46;F&#46;\n ENDIF\n DATABASE oDirtel\n oDirtel&#58;bEOF&#58;=&#123;|| NIL&#125;\n oDirtel&#58;Gobottom&#40;&#41;\n nCodigo&#58;=Val&#40;oDirtel&#58;Codigo&#41;\n oDirtel&#58;Setorder&#40;&quot;EMAIL&quot;&#41;\n\n //Recorre la lista de contactos\n WAITON&#40;&quot;Cargando lista de contactos OUTLOOK&quot;&#41;\n\n oNameSpace   = oOL&#58;Get&#40;&quot;GetNameSpace&quot;,&quot;MAPI&quot;&#41;\n oContacts    = oNameSpace&#58;Get&#40;&quot;GetDefaultFolder&quot;,&quot;10&quot;&#41;\n ShowOleErrors&#40; &#46;F&#46; &#41;\n\n FOR nContador = 1 TO oContacts&#58;Items&#58;Count&#40;&#41;\n     oContact  = oContacts&#58;Items&#40;nContador&#41;\n\n     lNombre&#58;=oContact&#58;get&#40;&quot;FirstName&quot;&#41;\n     If ValType&#40;lNombre&#41;=&quot;C&quot;     //Para descartar que no sea un grupo de contactos\n        lNuevo&#58;=&#46;F&#46;\n        If !oDirtel&#58;Seek&#40;IF&#40;Len&#40;Alltrim&#40;oContact&#58;get&#40;&quot;Email1Address&quot;&#41;&#41;&#41;&gt;0,;\n                            Alltrim&#40;oContact&#58;get&#40;&quot;Email1Address&quot;&#41;&#41;,;\n                            Alltrim&#40;PADR&#40;oContact&#58;get&#40;&quot;LastName&quot;&#41;,40&#41;+;\n                                    PADR&#40;oContact&#58;get&#40;&quot;FirstName&quot;&#41;,25&#41;+;\n                                    PADR&#40;oContact&#58;get&#40;&quot;CompanyName&quot;&#41;,50&#41; &#41; &#41; &#41;\n           oDirtel&#58;Append&#40;&#41;\n           oDirtel&#58;CODIGO    &#58;=Strzero&#40;++nCodigo,8&#41;\n           oDirtel&#58;APELLIDOS &#58;=oContact&#58;get&#40;&quot;LastName&quot;&#41;\n           oDirtel&#58;NOMBRE    &#58;=oContact&#58;get&#40;&quot;FirstName&quot;&#41;\n           oDirtel&#58;EMPRESA   &#58;=oContact&#58;get&#40;&quot;CompanyName&quot;&#41;\n           oDirtel&#58;TLF1      &#58;=oContact&#58;get&#40;&quot;BusinessTelephoneNumber&quot;&#41;\n           oDirtel&#58;TLF2      &#58;=oContact&#58;get&#40;&quot;Business2TelephoneNumber&quot;&#41;\n           oDirtel&#58;TLF3      &#58;=oContact&#58;get&#40;&quot;HomeTelephoneNumber&quot;&#41;\n           oDirtel&#58;FAX       &#58;=oContact&#58;get&#40;&quot;BusinessFaxNumber&quot;&#41;\n           oDirtel&#58;MOVIL     &#58;=oContact&#58;get&#40;&quot;MobileTelephoneNumber&quot;&#41;\n           oDirtel&#58;DIRECCION &#58;=oContact&#58;get&#40;&quot;BusinessAddress&quot;&#41;\n           If Empty&#40;oDirtel&#58;DIRECCION&#41;\n              oDirtel&#58;DIRECCION &#58;=oContact&#58;get&#40;&quot;HomeAddressStreet&quot;&#41;\n           Endif\n           oDirtel&#58;POBLACION &#58;=oContact&#58;get&#40;&quot;BusinessAddressCity&quot;&#41;\n           If Empty&#40;oDirtel&#58;POBLACION&#41;\n              oDirtel&#58;POBLACION &#58;=oContact&#58;get&#40;&quot;HomeAddressCity&quot;&#41;\n           Endif\n           oDirtel&#58;CP        &#58;=oContact&#58;get&#40;&quot;BusinessAddressPostalCode&quot;&#41;\n           If Empty&#40;oDirtel&#58;CP&#41;\n              oDirtel&#58;CP &#58;=oContact&#58;get&#40;&quot;HomeAddressPostalCode&quot;&#41;\n           Endif\n           oDirtel&#58;DNINIF    &#58;=&quot;&quot;\n           oDirtel&#58;CUMPLE    &#58;=&quot;&quot;\n           oDirtel&#58;RECORDAR  &#58;=&#46;F&#46;\n           oDirtel&#58;TRANSFER  &#58;=&#46;F&#46;\n           oDirtel&#58;AVISADO   &#58;=Ctod&#40;&quot;  -  -    &quot;&#41;\n           oDirtel&#58;EMAIL     &#58;=oContact&#58;get&#40;&quot;Email1Address&quot;&#41;\n           oDirtel&#58;WWW       &#58;=oContact&#58;get&#40;&quot;WebPage&quot;&#41;\n           oDirtel&#58;CATEGORIA &#58;=nCategoria\n           oDirtel&#58;OBSERVA   &#58;=&quot;&quot;\n           oDirtel&#58;LOUTLOOK  &#58;=&#46;T&#46;\n           oDirtel&#58;Modificado&#58;=Dtos&#40;Date&#40;&#41;&#41;+Time&#40;&#41;\n           oDirtel&#58;Save&#40;&#41;\n           nNuevos++\n        Endif\n     Endif\n Next\n ShowOleErrors&#40; &#46;T&#46; &#41;\n WAITOFF&#40;&#41;\n\n //Cerrar conexión OLE y Archivos\n oOL&#58;End&#40;&#41;\n oDirtel&#58;Close&#40;&#41;\n oTipodirt&#58;Close&#40;&#41;\n\n If nNuevos&gt;0\n    Msginfo&#40;IF&#40;!lCategoria,&quot;Añadida la categoría de contactos OUTLOOK&quot;+CRLF+CRLF,&quot;&quot;&#41;+;\n            &quot;Se han añadido &quot;+ALLTRIM&#40;STR&#40;nNuevos&#41;&#41;+&quot; registros de OutLook&quot;,&quot;Finalizado&quot;&#41;\n Else\n    Msginfo&#40;&quot;No se han añadido contactos nuevos de Outlook&quot;,&quot;Finalizado&quot;&#41;\n Endif\n\nRETURN &#46;T&#46;\n\n\n//--------------------------------------------------------------------\n// PASA TODAS LAS DIRECCIONES DE DSGCD A OUTLOOK COMPARANDO PRIMERO SI\n// EXISTEN POR SU EMAIL O SI NO LO TIENE POR NOMBRE+APELLIDOS+EMPRESA\n//--------------------------------------------------------------------\nFUNCTION DIRTEL2OUTLK&#40;&#41;\n\nLOCAL oOL, oLista, oMail, i, oNameSpace, lcMessage, oContact, oNewContact\nLOCAL oDirtel,oTipodirt,nCodigo&#58;=0,lCategoria&#58;=&#46;F&#46;,nCategoria&#58;=0,nCatoutlook&#58;=0\nLOCAL nNuevos&#58;=0, aTablaOutlk&#58;=Array&#40;0&#41;\n\n //Abrir conexión OLE\n oOL &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Outlook&#46;Application&#46;9&quot; &#41;\n IF Ole2TxtError&#40;&#41; != &quot;S_OK&quot;\n    MsgAlert&#40;&quot;Outlook 2000 no está disponible&#46;&quot;, &quot;Error&quot;&#41;\n    Return &#46;F&#46;\n Endif\n\n //Abrir archivos\n IF !NETUSE&#40;IF&#40;nIDIOMA=5,&quot;TIPODIPG&quot;,&quot;TIPODIES&quot;&#41;&#41;\n    Return &#46;F&#46;\n Endif\n DATABASE oTipodirt\n oTipodirt&#58;bEOF&#58;=&#123;|| NIL&#125;\n\n IF !NETUSE&#40;&quot;DIRTEL&quot;&#41;\n    oTipodirt&#58;Close&#40;&#41;\n    Return &#46;F&#46;\n ENDIF\n DATABASE oDirtel\n oDirtel&#58;bEOF&#58;=&#123;|| NIL&#125;\n\n //Recorre la lista de contactos\n WAITON&#40;&quot;Exportando lista de contactos a OUTLOOK&quot;&#41;\n\n oNameSpace   = oOL&#58;Get&#40;&quot;GetNameSpace&quot;,&quot;MAPI&quot;&#41;\n oContacts    = oNameSpace&#58;Get&#40;&quot;GetDefaultFolder&quot;,&quot;10&quot;&#41;\n\n FOR nContador = 1 TO oContacts&#58;Items&#58;Count&#40;&#41;\n     oContact  = oContacts&#58;Items&#40;nContador&#41;\n     Do While !oDirtel&#58;Eof&#40;&#41;\n           oDirtel&#58;Modificado&#58;=Dtos&#40;Date&#40;&#41;&#41;+Time&#40;&#41;\n\n           oNewContact  = oContacts&#58;Items&#58;Add&#40;&#41;\n           oNewContact&#58;Set&#40;&quot;LastName&quot;,oDirtel&#58;APELLIDOS&#41;\n           oNewContact&#58;Set&#40;&quot;FirstName&quot;,oDirtel&#58;NOMBRE&#41;\n           oNewContact&#58;Set&#40;&quot;CompanyName&quot;,oDirtel&#58;EMPRESA&#41;\n           oNewContact&#58;Set&#40;&quot;BusinessTelephoneNumber&quot;,oDirtel&#58;TLF1&#41;\n           oNewContact&#58;Set&#40;&quot;Business2TelephoneNumber&quot;,oDirtel&#58;TLF2&#41;\n           oNewContact&#58;Set&#40;&quot;HomeTelephoneNumber&quot;,oDirtel&#58;TLF3&#41;\n           oNewContact&#58;Set&#40;&quot;BusinessFaxNumber&quot;,oDirtel&#58;FAX&#41;\n           oNewContact&#58;Set&#40;&quot;MobileTelephoneNumber&quot;,oDirtel&#58;MOVIL&#41;\n           oNewContact&#58;Set&#40;&quot;BusinessAddress&quot;,oDirtel&#58;DIRECCION&#41;\n           oNewContact&#58;Set&#40;&quot;BusinessAddressCity&quot;,oDirtel&#58;POBLACION&#41;\n           oNewContact&#58;Set&#40;&quot;BusinessAddressPostalCode&quot;,oDirtel&#58;CP&#41;\n           oNewContact&#58;Set&#40;&quot;Email1Address&quot;,oDirtel&#58;EMAIL&#41;\n           oNewContact&#58;Set&#40;&quot;WebPage&quot;,oDirtel&#58;WWW&#41;\n\n           oNewContact&#58;Save&#40;&#41;\n           nNuevos++\n\n\n        oDirtel&#58;Save&#40;&#41;\n        oDirtel&#58;Skip&#40;&#41;\n     Enddo\n\n Next\n ShowOleErrors&#40; &#46;T&#46; &#41;\n WAITOFF&#40;&#41;\n\n //Cerrar conexión OLE y Archivos\n oOL&#58;End&#40;&#41;\n oDirtel&#58;Close&#40;&#41;\n oTipodirt&#58;Close&#40;&#41;\n\n If nNuevos&gt;0\n    Msginfo&#40;&quot;Se han añadido &quot;+ALLTRIM&#40;STR&#40;nNuevos&#41;&#41;+&quot; registros de DSGCD a OutLook&quot;,&quot;Finalizado&quot;&#41;\n Else\n    Msginfo&#40;&quot;No se han añadido contactos nuevos de DSGCD a Outlook&quot;,&quot;Finalizado&quot;&#41;\n Endif\n\nRETURN &#46;T&#46;\n\n\n//--------------------------------------------------------------------\n\nSTATIC PROCEDURE OUTLOOK&#40;&#41;\n\n   LOCAL oOL, oLista, oMail, i, oNameSpace, lcMessage, oContact, oNewContact\n\n   oOL &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Outlook&#46;Application&#46;9&quot; &#41;\n\n   IF Ole2TxtError&#40;&#41; != &quot;S_OK&quot;\n      MsgAlert&#40;&quot;Outlook 2000 no está disponible&#46;&quot;, &quot;Error&quot;&#41;\n   ELSE\n\n\n   oNameSpace   = oOL&#58;Get&#40;&quot;GetNameSpace&quot;,&quot;MAPI&quot;&#41;\n   oContacts    = oNameSpace&#58;Get&#40;&quot;GetDefaultFolder&quot;,&quot;10&quot;&#41;\n\n   //Recorre la lista de contactos y los muestra\n   FOR lnContador = oContacts&#58;Items&#58;Count&#40;&#41; to 1 step -1\n       oContact  = oContacts&#58;Items&#40;lnContador&#41;\n       lNombre&#58;=oContact&#58;get&#40;&quot;FirstName&quot;&#41;\n\n       If ValType&#40;lNombre&#41;=&quot;C&quot;\n          lcMessage= &quot;Contacto&#58; &quot;  + CHR&#40;9&#41; + STR&#40;lnContador&#41;      + CHR&#40;13&#41; + CHR&#40;10&#41; +;\n                     &quot;Nombre&#58;  &quot;   + CHR&#40;9&#41; + oContact&#58;get&#40;&quot;FirstName&quot;&#41;  + CHR&#40;13&#41; + CHR&#40;10&#41; +;\n                     &quot;Apellido&#58; &quot;  + CHR&#40;9&#41; + oContact&#58;get&#40;&quot;LastName&quot;&#41;   + CHR&#40;13&#41; + CHR&#40;10&#41; +;\n                     &quot;Empresa&#58;  &quot;  + CHR&#40;9&#41; + oContact&#58;get&#40;&quot;CompanyName&quot;&#41;+ CHR&#40;13&#41; + CHR&#40;10&#41; +;\n                     &quot;movil&#58;  &quot;    + CHR&#40;9&#41; + oContact&#58;get&#40;&quot;MobileTelephoneNumber&quot;&#41;+ CHR&#40;13&#41; + CHR&#40;10&#41; +;\n                     &quot;email&#58;    &quot;  + CHR&#40;9&#41; + oContact&#58;get&#40;&quot;Email1Address&quot;&#41;\n\n          ? lcmessage\n       Endif\n   Next\n\n\n/*\n   //Añadir un contacto\n   oNewContact  = oContacts&#58;Items&#58;Add&#40;&#41;\n\n   oNewContact&#58;Set&#40;&quot;FirstName&quot;,  &quot;Filippo&quot;&#41;\n   oNewContact&#58;Set&#40;&quot;LastName&quot;,   &quot;Cavalcanti&quot;&#41;\n   oNewContact&#58;Set&#40;&quot;FullName&quot;,   &quot;Filippo Cavalcanti&quot;&#41;\n   oNewContact&#58;Set&#40;&quot;CompanyName&quot;,&quot;Global Connection&quot;&#41;\n\n   oNewContact&#58;Save&#40;&#41;\n*/\n\n\n\n/*\n  //Añadir grupo de contactos\n      oMail &#58;= oOL&#58;CreateItem&#40; 0 &#41;  // olMailItem\n\n      FOR i &#58;= 1 TO 10\n         oMail&#58;Recipients&#58;Add&#40; &quot;Contacto&quot; + LTRIM&#40; STR&#40; i, 2 &#41; &#41; + ;\n               &quot;&lt;contacto&quot; + LTRIM&#40; STR&#40; i, 2 &#41; &#41; + &quot;@servidor&#46;com&gt;&quot; &#41;\n      NEXT\n\n      oLista &#58;= oOL&#58;CreateItem&#40; 7 &#41;  // olDistributionListItem\n      oLista&#58;DLName &#58;= &quot;Prueba de lista de distribución&quot;\n      oLista&#58;Display&#40; &#46;F&#46; &#41;\n      oLista&#58;AddMembers&#40; oMail&#58;Recipients &#41;\n      oLista&#58;Save&#40;&#41;\n      oLista&#58;Close&#40; 0 &#41;\n\n\n\n      oMail&#58;End&#40;&#41;\n      oLista&#58;End&#40;&#41;\n*/\n      oOL&#58;End&#40;&#41;\n\n   ENDIF\n\nRETURN\n [/code:v84ddso8]','',0,'AIA=','v84ddso8',1,0,'',139,0,0),(420,118,1,86,0,'81.83.185.136',1129328779,1,0,1,1,1,1,'','','John,\n\nThanks a lot for sending me your example.\n\nI can start working now.\n\nThanks once again.','',0,'AIA=','2qk9wcfd',1,0,'',86,0,0),(421,30,3,1,0,'80.170.29.221',1129332359,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','Thanks Enrico.\nNow i can run the program, but this code work bad :\n\n*************\nFUNCTION TEST()\n**********\nLOCAL cName := SPACE(10)\nSET EXACT ON\nIF cName = \"\"\n  MessageBox(\"OK : This work like Clipper\")\nELSE\n  MessageBox(\"STOP : This work bad\")\nENDIF\nRETURN NIL\n\nThis is too hard...\n(But i confirm, Asc() and ReadInsert() work fine with xHarbour 0.99.5)\n\nBadara\n<!-- m --><a class=\"postlink\" href=\"http://www.icim.fr\">http://www.icim.fr</a><!-- m -->','',0,'AIA=','1a40887i',1,0,'',1,0,0),(422,118,1,86,0,'81.83.185.136',1129335055,1,0,1,1,1,1,'','','John,\n\nWhere can I find the latest TOleAuto() class ?\n\nThe one that I got seems to be incomplete.\n\nThanks.','',0,'AIA=','18g2gcc4',1,0,'',86,0,0),(423,125,6,101,0,'200.28.122.59',1129337150,1,0,1,1,1,0,'','Prueba WinAsp','Estimado jllinas,\n\nLas aplicaciones Web son realmente fáciles, sin embargo el comienzo es díficil, con WinAsp puedes hacer aplicaciones en forma rápida y sencilla.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl/winasp.htm\">http://www.htcsoft.cl/winasp.htm</a><!-- m -->\n\nSaludos\nJorge Mason','',0,'AIA=','2ade0qq1',1,0,'',101,0,0),(424,136,4,149,0,'195.4.159.137',1129351705,1,0,1,1,1,0,'','','Hello Richard,\n\nsorry, i forgot to wrote that the dialog is in a resource.\n\nThomas','',0,'AIA=','21io04no',1,0,'',149,0,0),(425,3,3,154,0,'151.81.4.142',1129359134,1,0,1,1,1,1,'','','Hi Antonio,\nI have little time to read the news but is very simple to download all news on my notebook and read also off line.\n\nYour decision is good, open the fivewin world to all, great!   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMy suggestion is to relicate the  post also on the previuos news server.  \nI think that is a little thank to old user.   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','2xi6isby',1,0,'',154,0,0),(426,136,4,2,0,'83.40.12.109',1129362650,1,0,1,1,1,1,'','Re: BtnBmp in a dialog','[quote=&quot;Thomas Grueninger&quot;:1977ile9]I have: message not found tbtnbmp:_ctooltip, tbtnbmp_ctooltip(169)[/quote:1977ile9]\n\nTooltips are not available yet.','',0,'gA==','1977ile9',1,0,'',2,0,0),(427,30,3,6,0,'82.57.161.243',1129364606,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','This works fine for me:\n\n************* \nFUNCTION TEST() \n********** \nLOCAL cName := SPACE(10) \nSET EXACT ON \nIF cName = \"\" \n? \"OK : This work like Clipper\"\nELSE \n? \"STOP : This work bad\"\nENDIF \nINKEY(0)\nRETURN NIL\n\nEMG','',0,'gA==','3vja4a70',1,0,'',6,0,0),(428,79,3,2,0,'83.40.12.109',1129368463,1,0,1,1,1,1,'','','Rimantas,\n\nTell me a software product that does not have bugs. Software is constantly in evolution, towards a new version, with more functionality and as few bugs as possible.\n\nFWH 2.4 version has more than two years. Our software is constantly evolving, and its quite difficult to support a two years old version.','',0,'gA==','2qbsw4go',1,0,'',2,0,0),(429,136,4,149,0,'195.4.159.196',1129372219,1,0,1,1,1,0,'','','Hello Antonio,\n\nthanks for your answer.\nBut i will not use tooltips. \n\n\nThomas','',0,'gA==','1tqnr4kw',1,0,'',149,0,0),(430,139,3,1,0,'84.172.62.241',1129372642,1,0,1,1,1,0,'Meister Ede','This new Forum is ...','u dont have money for a newsserver ??','',0,'gA==','1jelnp6t',1,0,'',1,0,0),(431,136,4,2,0,'83.40.12.109',1129372957,1,0,1,1,1,1,'','','Thomas,\n\nDo you get the error without using tooltips ? If so, how may we reproduce the error ? thanks.','',0,'gA==','ab7aq81t',1,0,'',2,0,0),(434,128,3,58,0,'84.149.240.238',1129374079,1,0,1,1,1,0,'','','Frank,\n\nyou are right. \nWith Arial font the example shows different sizes 10 and 8.\nWith Sans serif not.\n\n[code:2sco1mbo]#include  &quot;fivewin&#46;ch&quot;\n\n///////////////\nFUNCTION Main&#40;&#41;\n///////////////\nLOCAL aFont &#58;= array&#40; 3 &#41;\nLOCAL oDlg\n\n\n   DEFINE FONT aFont&#91; 1 &#93; NAME &quot;Arial&quot; SIZE 0 , -12 \n   DEFINE FONT aFont&#91; 2 &#93; NAME &quot;Arial&quot; SIZE 0 , -10 \n   DEFINE FONT aFont&#91; 3 &#93; NAME &quot;Arial&quot; SIZE 5 ,  -8 \n   \n   DEFINE DIALOG oDlg \n\n   @ 1 , 10 SAY &quot;SIZE 12&quot; OF oDlg FONT aFont&#91; 1 &#93; \n   @ 2 , 10 SAY &quot;SIZE 10&quot; OF oDlg FONT aFont&#91; 2 &#93; \n   @ 3 , 10 SAY &quot;SIZE 8&quot;  OF oDlg FONT aFont&#91; 3 &#93; \n\n   ACTIVATE DIALOG oDlg\n\nRETURN&#40; NIL &#41;\n[/code:2sco1mbo]\n\nRegards,\nDetlef','',0,'AIA=','2sco1mbo',1,0,'',58,0,0),(435,139,3,58,0,'84.149.240.238',1129374867,1,0,1,1,1,0,'','This new Forum is ...','message deleted because Antonio censored the subject.\nSo nobody would have understood my reaction.\n\nDetlef','',0,'AIA=','2hlf2cyl',1,1130503811,'',58,2,0),(437,139,3,2,0,'83.40.12.109',1129376433,1,0,1,1,1,1,'','Re: This new Forum is ...','[quote=&quot;Meister Ede&quot;:3ptzli6o]u dont have money for a newsserver ??[/quote:3ptzli6o]\n\nUsing this forum we can keep all our Internet services placed at the same hosting company. Unfortunately hosting companies don\'t provide NNTP servers, unless you hire a dedicated server, which -yes- it is quite expensive and it is not as use friendly as this hosting company software we actually use, which saves us a lot of time and work to mantain our web pages, ftp for software download and users control, and tech support forums.\n\nThousands of people use this kind of web forums. I am sure we can adapt to its use, with a little help and cooperation from everybody.','',0,'gA==','3ptzli6o',1,0,'',2,0,0),(438,100,1,58,0,'84.149.240.238',1129376519,1,0,1,1,1,0,'','','Gilbert,\n\nmay be this could help you.\n\nBest regards,\nDetlef\n\n[code:3tyco3ly]#include  &quot;fivewin&#46;ch&quot;\n\n///////////////\nFUNCTION Main&#40;&#41;\n///////////////\nLOCAL oDlg, oCbx\nLOCAL aSmall &#58;= &#123;&#125;\nLOCAL cVar   &#58;= &quot;&quot;\nLOCAL aBig   &#58;= &#123;;\n                  &#123; &quot;Element 1, 1&quot;, &quot;Element 1, 2&quot;, &quot;Element 1, 3&quot;, &quot;Element 1, 4&quot;, &quot;Element 1, 5&quot; &#125;,;\n                  &#123; &quot;Element 2, 1&quot;, &quot;Element 2, 2&quot;, &quot;Element 2, 3&quot;, &quot;Element 2, 4&quot;, &quot;Element 2, 5&quot; &#125;,;\n                  &#123; &quot;Element 3, 1&quot;, &quot;Element 3, 2&quot;, &quot;Element 3, 3&quot;, &quot;Element 3, 4&quot;, &quot;Element 3, 5&quot; &#125;,;\n                  &#123; &quot;Element 4, 1&quot;, &quot;Element 4, 2&quot;, &quot;Element 4, 3&quot;, &quot;Element 4, 4&quot;, &quot;Element 4, 5&quot; &#125; ;\n                &#125;\n\n\n\n   aEval&#40; aBig, &#123; |a| aadd&#40; aSmall, a&#91; 2 &#93; &#41; &#125; &#41;\n   cVar &#58;= aSmall&#91; 1 &#93;\n   \n   DEFINE DIALOG oDlg \n\n   @ 10, 10 COMBOBOX oCbx;\n     VAR cVar;\n     ITEMS aSmall;\n     SIZE 60, 150;\n     PIXEL;\n     OF oDlg\n   \n   ACTIVATE DIALOG oDlg\n\nRETURN&#40; NIL &#41;\n[/code:3tyco3ly]','',0,'AIA=','3tyco3ly',1,0,'',58,0,0),(439,114,1,2,0,'83.40.12.109',1129377168,1,0,1,1,1,1,'','Re: TReport and its WMF-files','[quote=&quot;driessen&quot;:wp4av3w8]1. Is there a possibility to store these files ?[/quote:wp4av3w8]\n\nThe EMF files are stored at the Windows temporary directory: GetEnv(\"TEMP\").\n\n[quote=&quot;driessen&quot;:wp4av3w8]2. Can these WMF-files be opened ? With which software ?[/quote:wp4av3w8]\n\nYes, you may use a program like Paint Shop Pro, which it is shareware and may be downloaded from Internet.','',0,'gA==','wp4av3w8',1,0,'',2,0,0),(440,144,3,67,0,'83.134.50.159',1129384632,1,0,1,1,1,0,'','Disabling Close Button (Style Sysmenu)','Hello,\n\nWhen a dialog is opened with style sysmenu , can this turned off (and on)dynamically ?\n\nIs there an example ?\n\n\n\nFrank','',0,'gA==','2qxvricb',1,0,'',67,0,0),(441,109,6,38,0,'83.235.9.159',1129387017,1,0,1,1,1,0,'','','Hola Leandro,\nYo no uso Verce... Pero haga como dice Marco. \nAnade tus librerias de xHarbour y listo para compilar.\nDe tu otra pregunta, yo no creo que tenga relacion.\n\nUn saludo\nYannis Yannas\n[url:3s485m1y]http&#58;//www&#46;trinityvision&#46;gr[/url:3s485m1y]','',0,'EA==','3s485m1y',1,0,'',38,0,0),(444,145,1,47,0,'203.144.143.6',1129392051,1,0,1,1,1,0,'','File transfer via modem (phone dial)','Dear All,\n\nI would like to have to send a file via modem (phone dial).  Where can I get an example?\n\nThanks for any help,\nDutch','',0,'EA==','3vrob48z',1,0,'',47,0,0),(446,79,3,31,0,'84.15.27.93',1129399625,1,0,1,1,1,1,'','','[Tell me a software product that does not have bugs. Software is constantly in evolution, towards a new version, with more functionality and as few bugs as possible.\n\nFWH 2.4 version has more than two years. Our software is constantly evolving, and its quite difficult to support a two years old version.[/quote]\n\n    All other softwares have freely accessible correction of bugs . I buyed your libs at 2004 September , you let me upgrade to October version also , because you promised for that ActiveX support . That\'s OK . With BCC all is working . Today is 2005 October. One year passed . At July-August I tried your libs with MS VC and found that they are buggy . But it\'s true to believe , that at this time from 2004.09 to 2005.07 nothing was working with 2004.09-10 FWH versions with MS VC compiler and that they buyed new version for that compiler , without bugs ... Of course , I can\'t to direct how to organize your own job . But ... I think that this discusion is a waste of time . Because I don\'t have any means for you to correct libs or something similar . And you and I have own trues and opinions . So good luck to you , please , create software without bugs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . Be more careful .\n\n   With best regards ! Rimantas .','',0,'','39d5gxfm',1,0,'',31,0,0),(447,30,3,1,0,'213.103.212.232',1129399754,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','With all these lib it\'s always impossible for me.\nPerhaps the order of one lib ?\n\n*********\ne:\\borland\\bcc55\\lib\\c0w32.obj +\nE:\\MAINTEST\\MAINTEST.obj +\n, +\nE:\\MAINTEST\\TEST.exe,, +\nE:\\PROGS\\LIB32\\Ace32.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\rdd.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\rddads.LIB +\n+\nE:\\FWH\\LIB\\FIVEHX.LIB +\nE:\\FWH\\LIB\\FIVEHC.LIB +\n+\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\DBFCDX.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\DBFFPT.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\DBFDBT.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\DBFNTX.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\rtl.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\vm.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\gtstd.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\gtwin.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\lang.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\macro.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\common.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\pp.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\codepage.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\hbzip.LIB +\n+\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\nulsys.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\ct.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\dllmain.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\hbcc.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\hbodbc.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\optcon.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\optgui.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\tip.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\libmisc.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\libnf.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\whoo.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\design.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\html.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\internet.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\what32.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\telepath.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\xwt.LIB +\nE:\\XHARBOU\\XHARBO~1.BCC\\LIB\\wvtgui.LIB +\n+\nE:\\BORLAND\\BCC55\\LIB\\cw32.LIB +\nE:\\BORLAND\\BCC55\\LIB\\import32.LIB +\nE:\\BORLAND\\BCC55\\LIB\\psdk\\odbc32.LIB +\nE:\\BORLAND\\BCC55\\LIB\\psdk\\nddeapi.LIB +\nE:\\BORLAND\\BCC55\\LIB\\psdk\\iphlpapi.LIB +\nE:\\BORLAND\\BCC55\\LIB\\psdk\\rasapi32.LIB \n***********','',0,'','u5fxeruj',1,0,'',1,0,0),(448,30,3,6,0,'82.57.162.108',1129400436,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','What is the exact error message you get?\n\nEMG','',0,'','1ogwvvc1',1,0,'',6,0,0),(449,30,3,1,0,'213.103.212.232',1129402832,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','No error message now.\n\nWhen there is SET EXACT ON, a cVariable with space(s),\nlike cVar := \" \", is not equal to \"\" for xHarbour.\nWhen SET EXACT OFF, it\'s ok, \" \" = \"\".\nWith Clipper, \" \" = \"\", always.\n\nBadara','',0,'','2i5edzsi',1,0,'',1,0,0),(450,79,3,2,0,'83.40.12.109',1129404789,1,0,1,1,1,1,'','','Rimantas,\n\n&gt;  At July-August I tried your libs with MS VC and found that they are buggy \n\nCould you please describe what bugs are them and how to reproduce them ? Thanks.','',0,'','26llr6zf',1,0,'',2,0,0),(452,30,3,6,0,'82.57.162.108',1129409047,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','From your sample\n\n************* \nFUNCTION TEST() \n********** \nLOCAL cName := SPACE(10) \nSET EXACT ON \nIF cName = \"\" \n? \"OK : This work like Clipper\" \nELSE \n? \"STOP : This work bad\" \nENDIF \nINKEY(0) \nRETURN NIL\n\nI get\n\n\"OK : This work like Clipper\"\n\nusing the latest xHarbour from CVS.\n\nEMG','',0,'','1cx85238',1,0,'',6,0,0),(453,105,4,1,0,'81.61.215.201',1129414273,1,0,1,1,1,0,'Daniel','PACK and ZAP in real pocket pc','We have same problem, only in real pocket pc.\n\nIn PC with harbour or xharbour work ok. Also in emulator is ok.\n\nPACK and ZAP not delete records, only mark it except the first record that recall delete.\n\nWe do not use index.\n\nAnd we use SET DELETED ON\n\nIf PACK is not used all records mark deleted correctly.\n\n* \n\nUSE FALLIN \nGO TOP \nDO WHILE .not. Eof() \nDELETE \nSKIP 1 \nENDDO \nPACK \nCLOSE \n\nUSE FALLIN \nGO TOP \nIF .not. Eof() \n   MsgInfo(\"Hay Datos\",\"Atencion\") \nENDIF \nCLOSE \n\nRegards','',0,'','mjbgs0r8',1,0,'',1,0,0),(454,105,4,2,0,'83.40.12.109',1129420579,1,0,1,1,1,1,'','','Daniel,\n\nYes, it is working ok on the emulator but it isn\'t on the pocket pc. Very strange. They should work the same.\n\nDo other FWPPC users have noticed the same ? Any workaround ?','',0,'','26obsv5r',1,0,'',2,0,0),(455,105,4,2,0,'83.40.12.109',1129421287,1,0,1,1,1,1,'','','A first idea to use as a workaround it may be to create a temporary DBF and copy the non deleted record only to it. \n\nThen remove the first DBF file, and rename the temporary as the good one.','',0,'','3odh9q9w',1,0,'',2,0,0),(456,111,6,1,0,'201.129.244.104',1129433297,1,0,1,1,1,0,'','','Gracias Fgondi, en mi poca experiencia en FWH (32 bits) empiezo a ver que toma los controles naturales del API Windows (soy algo menso un año de retrazo) ya te avisaré entonces.','',0,'','cehldrsi',1,0,'',1,0,0),(457,137,6,1,0,'201.3.158.19',1129450614,1,0,1,1,1,0,'','','Armando\n\nEu surigo usar o hbmake para criar os makefiles de suas apps assim como para compilar as mesmas.\n\num excelente tutorial de como usar o hbmake esta em \n<!-- m --><a class=\"postlink\" href=\"http://www.caclipperwebsite.com/harbour.shtml\">http://www.caclipperwebsite.com/harbour.shtml</a><!-- m -->\n\n[]s\nLuiz','',0,'','3s67p1tq',1,0,'',1,0,0),(458,30,3,1,0,'213.103.212.232',1129457083,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','Hello EMG,\n\nThanks for your answer. When post the message below\nto \"join@xharbour.org\", i get a non-delivery message :\n\"Invalid final delivery userid: <!-- e --><a href=\"mailto:patrick@xharbour.com\">patrick@xharbour.com</a><!-- e -->\".\n\n**************\nHello,\nI am Fivewin user and i want to join the xHarbour team\nand access to the developpers mailing list and CVS.\n\nI want help you to extract all bugs from xHarbour,\nby report you all problems found.\n\nRegards,\nBadara Thiam\nAuthor of ICIM Sofware\nContact : <!-- e --><a href=\"mailto:tb@icim.fr\">tb@icim.fr</a><!-- e -->\nSite internet : <!-- m --><a class=\"postlink\" href=\"http://www.icim.fr\">http://www.icim.fr</a><!-- m -->\n\n**************','',0,'','v33f5gkb',1,0,'',1,0,0),(459,30,3,6,0,'82.61.69.102',1129457512,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','I just forward your message to the xHarbour developer\'s list.\n\nEMG','',0,'','3dgfthf9',1,0,'',6,0,0),(460,147,2,1,0,'81.39.193.250',1129462522,1,0,1,1,1,0,'pacofcc','FRANCISCO CARRASCO','Hola: soy un veterano programador de Clipper 5.2 y tengo una aplicacion bastante compleja que funciona perfectamente pero que necesito pasarla a Windows. El trabajo lo tengo bastante encauzado pero he tropezado con unos probles en unso gets que no consigo solucionar. Los enumero:\n\n- Por necesidades de uso tengo que habiliar teclas de funcion (F2-F10) para diversas opciones junto con los pushbotton habituales. Bien, cuando utilizo el raton la busqueda se realiza bien, pero si utilizo la tecla de funcion que apunta a la misma funcion de busqueda, la variable con la clave de busqueda se pasa vacia. \n\n- Como hago para que el get que tenga el foco, sea de otro color ?\n\n- Como hago para pasar de campo a campo de los get con la tecla ENTER. Se trata de una rutina de captura de datos numericos donde la velocidad y uso de ambas manos es muy necesaria. \n\nGracias por vuestra ayuda y saludos','',0,'','13cxztbs',1,0,'',1,0,0),(461,127,1,86,0,'81.83.185.136',1129470711,1,0,1,1,1,1,'','','You could avoid this problem by adding the resource compiler to your LNK-file.\n\nWhat do you have to do :\n\n1. Open your DLL-files with Workshop and save them as RES-files.\n2. Re-open your RES-files and save them with the same name (you need to this otherwisse you\'ll get an error \"unable to create dialogbox\").\n3. Add the resource compiler into your LNK-file. Do it like this :\n\n-----------------\nOUTPUT YOUR_APPLICATION.EXE\n\nBLINKER INCREMENTAL OFF\nBLINKER CLIPPER SYMBOL OFF\nBLINKER EXECUTABLE ALIGNMENT 128\n\nPACKCODE\nPACKDATA\n\nFI YOUR_PRG-files\n\nDEFBEGIN\n   name        YOUR_APPLICATION\n   description \'Your application\'\n   exetype     Windows 3.1\n   code          moveable discardable preload\n   data          preload moveable\n   rc              YOUR-RES-file.RES\n   stacksize    10500 (use your own stacksize)\n   heapsize    1024   (use your own heapsize)\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nLIB  YOUR_LIB\'s\nLIB  oFive16, oFive16C, OZLIBc, Objects\nLIB  WinApi\n\nNOBELL\n-----------------\n\n4. Add a rc-line for each RES-file\n5. Compile and link your application.\n\nBy doing this, you\'ll avoid a wrong DLL-file to be used.\n\nGood luck.','',0,'','ed0d0n1c',1,0,'',86,0,0),(462,133,1,47,0,'203.144.143.7',1129472520,1,0,1,1,1,0,'','It may help','Hi Ehab Samir Aziz,\n\nThis is Tscanner class for FW 16bit.  I hope it help.\n\nRegards,\nDutch\n\n[code:tdijd8g4]/*------------------------------------------------------------------------*\n     &#3642;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3615;\n   &#63681;&#63683;&#3603;                                                                   &#3603;\n   &#63681;&#63683;&#3603; ProcName&#46;&#46;&#46;&#46;&#46;&#46;&#58; Scanner&#46;prg                                       &#3603;\n   &#63681;&#63683;&#3603; Pourpose&#46;&#46;&#46;&#46;&#46;&#46;&#58; TWAIN standard device Class interface             &#3603;\n   &#63681;&#63683;&#3603; Date&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#58; 05-11-96                                          &#3603;\n   &#63681;&#63683;&#3603; Author&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#58; &#40;c&#41;,L&#46;Gadaleta                                    &#3603;\n   &#63681;&#63683;&#3603;                                                                   &#3603;\n   &#63681;&#63683;&#3616;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3641;\n   &#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;&#63681;\n*------------------------------------------------------------------------*/\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define STAND_ALONE\n\n#define TWAIN_DLL               &quot;DMTwain&#46;dll&quot;\n\nSTATIC oWnd\n\n#ifdef STAND_ALONE\n\nFUNCTION ScanMe&#40;cFileRes&#41;\n\n	/*\n        FUNCTION Main&#40;cFileRes&#41;\n		cFileRes = &quot;C&#58;\\PATH\\FILENAME&#46;BMP , 150&quot; 		\n		&#46;OR&#46;\n		cFileRes = &quot;C&#58;\\PATH\\FILENAME&#46;BMP&quot; 		// Dpi Will be 100 &#40;default value&#41;\n	*/\n\n	LOCAL cFile, nRes, n\n        cFile &#58;= cFileRes\n	if !cFileRes == NIL\n		if &#40; n&#58;=AT&#40;&quot;,&quot;,cFileRes&#41; &#41; &gt; 0\n			cFile &#58;= Alltrim&#40;Substr&#40;cFileRes,1,n-1&#41;&#41;\n			nRes  &#58;= Val&#40;Alltrim&#40;Substr&#40;cFileRes,n+1&#41;&#41;&#41;\n		end\n	end\n\n        nRes  &#58;= 100\n\n        CursorWait&#40;&#41;\n\n        DEFINE WINDOW oWnd FROM 1,1 TO 1,1\n        ACTIVATE WINDOW oWnd ON INIT &#40;oWnd&#58;Hide&#40;&#41;, RunScan&#40;cFile,oWnd&#58;hWnd,nRes&#41;&#41;\n\n        CursorArrow&#40;&#41;\n\nRETURN NIL\n\n	STATIC FUNCTION RunScan&#40;cFile,hWnd,nRes&#41;\n	LOCAL oScanner &#58;= Scanner&#40;&#41;&#58;New&#40;hWnd&#41;\n	DEFAULT nRes &#58;= 100					// Scanner resolution in Dpi\n        oScanner&#58;Set&#40;&#46;F&#46;&#41;                                               // Set User Interface Off\n	oScanner&#58;DigiToFile&#40;cFile,nRes&#41;	// Acquires\n	oScanner&#58;End&#40;&#41;\n	oWnd&#58;End&#40;&#41;\n        RETURN NIL\n\n#endif\n\nCLASS Scanner\n	DATA	hWnd	AS NUMERIC	// Handle of the window\n	DATA	hDll	AS NUMERIC	// Handle of the DLL\n	DATA	lLoad	AS LOGICAL	//	&#46;T&#46; DLL &amp; Driver Loaded\n	DATA	hDib	AS NUMERIC	// Current Dib handle\n	*\n	METHOD New&#40;&#41;			CONSTRUCTOR\n	METHOD End&#40;&#41;\n	METHOD Set&#40;&#41;				// Acquiring Dialog ON/OFF\n	METHOD Choose&#40;&#41;			// Select Image Device Source\n	METHOD DigiToFile&#40;&#41;		// Acquire Image and save to a file\n	METHOD DigiToClip&#40;&#41;		// Acquire Image and copy to ClipBoard\n	METHOD SetResolution&#40;&#41;	// Set Dpi for the scanner\n	*\n	PROTECTED &#58;\n		METHOD Free&#40;&#41;			// Release Dib\'s handle\n		METHOD IsActive&#40;&#41;		// Twain Driver Loaded\n		METHOD Register&#40;&#41;		// Register my application into Twain application\n		METHOD DibToFile&#40;&#41;	// Write to file Dib\'s handle in BMP format\nEND CLASS\n\nMETHOD New&#40;hWnd&#41;\n// Constructor\n&#58;&#58;hWnd &#58;= iif&#40; ValType&#40; hWnd &#41; == &quot;N&quot; , hWnd , 0 &#41;\n&#58;&#58;lLoad &#58;= &#46;T&#46;\n&#58;&#58;hDLL &#58;= LoadLibrary&#40; TWAIN_DLL &#41;\n&#58;&#58;hDib &#58;= 0\nif &#58;&#58;hDll &lt;= 21\n	&#58;&#58;lLoad &#58;= &#46;F&#46;\n	MsgAlert&#40; BuildError&#40;&#58;&#58;hDll&#41; , TWAIN_DLL &#41;\n	RETU Self\nend\nif &#40; &#58;&#58;lLoad &#58;= &#58;&#58;IsActive&#40;&#41; &#41;\n	&#58;&#58;Register&#40;&#41;\nend\nRETU Self\n\nMETHOD End&#40;&#41;\n// Destructor\nif &#58;&#58;hDib != 0\n	&#58;&#58;Free&#40; &#58;&#58;hDib &#41;\nend\nFreeLibrary&#40; &#58;&#58;hDll &#41;\nRETU NIL\n\nMETHOD DigiToFile&#40; cFile , nRes &#41;\n// Acquire Document &amp; save to file\nLOCAL nPixType &#58;= 0\nLOCAL cFarProc\nDEFAULT nRes &#58;= 100\n\n&#58;&#58;SetResolution&#40; nRes &#41;\n\nif &#58;&#58;lLoad\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_AcquireNative&quot;,&#46;T&#46;, WORD,WORD,_INT &#41;\n	&#58;&#58;hDib  &#58;= CallDLL&#40; cFarProc,&#58;&#58;hWnd,nPixType &#41;\n	if &#58;&#58;hDib == 0\n                MsgInfo&#40;&quot;Cannot Load Image, Scanner not found&quot;,&quot;&quot;&#41;\n	else\n		&#58;&#58;DibToFile&#40;&#58;&#58;hDib,cFile&#41;\n		&#58;&#58;Free&#40; &#58;&#58;hDib &#41;\n	end\nend\nRETU Self\n\nMETHOD DigiToClip&#40;&#41;\n// Acquire document &amp; copy to ClipBoard\nLOCAL nPixType &#58;= 0\nLOCAL cFarProc\nLOCAL nResult\nif &#58;&#58;lLoad\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_AcquireToClipBoard&quot;,&#46;T&#46;, _INT,WORD,_INT &#41;\n	nResult  &#58;= CallDLL&#40; cFarProc,&#58;&#58;hWnd,nPixType &#41;\nend\nRETU Self\n\nMETHOD SetResolution&#40; nDpi &#41;\n// NEW\nLOCAL cFarProc\nLOCAL uResult\nDEFAULT nDpi &#58;= 100\nif &#58;&#58;lLoad\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_SetResolution&quot;,&#46;T&#46;, VOID,_DOUBLE &#41;\n	uResult  &#58;= CallDLL&#40; cFarProc,nDpi &#41;\nend\nRETU Self\n\nMETHOD Set&#40;lShow&#41;\n// Show-Hide Scanner\'s Dialog Box\nLOCAL nHide &#58;= 0		// Default&#58; Shows Scanner\'s Dialog Box\nLOCAL cFarProc\nLOCAL uResult\nDEFAULT lShow &#58;= &#46;T&#46;\nif &#58;&#58;lLoad\n	nHide &#58;= iif&#40;lShow,0,1&#41;\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_SetHideUI&quot;,&#46;T&#46;, VOID,_INT &#41;\n	uResult  &#58;= CallDLL&#40; cFarProc,nHide &#41;\nend\nRETU Self\n\nMETHOD Choose&#40;&#41;\n// Select Image Device Source\nLOCAL cFarProc\nLOCAL nResult\nif &#58;&#58;lLoad\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_SelectImageSource&quot;,&#46;T&#46;, _INT,WORD &#41;\n	nResult  &#58;= CallDLL&#40; cFarProc,&#58;&#58;hWnd &#41;\nend\nRETU Self\n\n//---------- Protected Methods\n\n	METHOD Free&#40;hDib&#41;\n	// Release Dib\'s Handle\n	LOCAL cFarProc\n	LOCAL uResult\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_FreeNative&quot;,&#46;T&#46;, VOID,WORD &#41;\n	uResult  &#58;= CallDLL&#40; cFarProc,hDib &#41;\n	RETU NIL\n\n	METHOD DibToFile&#40;hDib,cFile&#41;\n	// Write to File From DIB\'s handle\n	LOCAL cFarProc\n	LOCAL nResult\n	LOCAL lRet\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_WriteNativeToFilename&quot;,&#46;T&#46;, _INT,WORD,LPSTR&#41;\n	lRet     &#58;= &#40; &#40;nResult&#58;=CallDLL&#40; cFarProc,hDib,cFile &#41;&#41;==0 &#41;\n	DO CASE\n		CASE nResult == -1\n			MsgInfo&#40;&quot;Annullato dall\'utente&quot;,&quot;File non registrato&quot;&#41;\n		CASE nResult == -2\n			MsgInfo&#40;&quot;Errore durante la scrittura sul file &quot;+cFile,&quot;File non registrato&quot;&#41;\n		CASE nResult == -3\n			MsgInfo&#40;&quot;Errore interno sul file DIB&quot;,&quot;File non registrato&quot;&#41;\n		CASE nResult == -4\n			MsgInfo&#40;&quot;Errore durante la scrittura sul file &quot;+cFile+&quot;, probabile spazio insufficiente sul disco !&quot;,&quot;File non registrato&quot;&#41;\n	ENDCASE\n	RETU lRet\n\n	METHOD IsActive&#40;&#41;\n	// Is Twain driver loaded ?\n	LOCAL cFarProc\n	LOCAL nResult\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_IsAvailable&quot;,&#46;T&#46;, _INT &#41;\n	if ! &#40;nResult 	&#58;= CallDLL&#40; cFarProc &#41;&#41; == 1\n		MsgAlert&#40;&quot;Nessun driver per apparecchi TWAIN compatibili risulta disponibile !&quot;,&quot;Errore hardware&quot;&#41;\n		// Messaggio inviato direttamente da TWAIN&#46;DLL\n	end\n	RETU iif&#40;nResult==1,&#46;T&#46;,&#46;F&#46;&#41;\n\n	METHOD Register&#40;&#41;\n	// Register my application into Twain application\n	LOCAL	nMaiorNum &#58;= 1\n	LOCAL nMinorNum &#58;= 0	// Result -&gt; 1&#46;0\n	LOCAL nLanguage &#58;= 0\n	LOCAL nCountry  &#58;= 0\n	LOCAL cVersion  &#58;= &quot;1&#46;0&quot;\n	LOCAL cManifact &#58;= &quot;The Genius&quot;\n	LOCAL cFamily   &#58;= &quot;Digitizer&quot;\n	LOCAL cProduct &#58;= StrTran&#40;cFileName&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41;,&quot;&#46;EXE&quot;,&quot;&quot;&#41;\n	LOCAL cFarProc\n	LOCAL uResult\n	cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, &quot;TWAIN_RegisterApp&quot;,&#46;T&#46;,;\n									VOID,_INT,_INT,_INT,_INT,LPSTR,LPSTR,LPSTR,LPSTR &#41;\n	uResult  &#58;= CallDLL&#40; cFarProc,nMaiorNum,nMinorNum,nLanguage,nCountry,cVersion,cManifact,cFamily,cProduct &#41;\n	RETU NIL\n\n//---------- END Protected Methods\n\nSTATIC FUNCTION BuildError&#40;nError&#41;\nLOCAL cRet &#58;= &quot;Errore nella libreria dinamica&quot;\nDO CASE\n	CASE nError == 0\n			cRet &#58;= &quot;Memoria insufficiente ad eseguire il programma&quot;\n	CASE nError == 2\n			cRet &#58;= &quot;File non trovato&quot;\n	CASE nError == 3\n			cRet &#58;= &quot;Percorso non trovato&quot;\n	CASE nError == 5\n			cRet &#58;= &quot;Tentantivo di collegarsi dinamicamente ad un task o errore di condivisione&quot;\n	CASE nError == 6\n			cRet &#58;= &quot;La libreria richiede un segemento separato per ogni task&quot;\n	CASE nError == 8\n			cRet &#58;= &quot;Memoria insufficiente ad avviare l\'applicazione&quot;\n	CASE nError == 10\n			cRet &#58;= &quot;Versione di MS Windows non corretta&quot;\n	CASE nError == 11\n			cRet &#58;= &quot;Libreria non valida oppure non &#138; un\'applicazione MS Windows&quot;\n	CASE nError == 12\n			cRet &#58;= &quot;Applicazione disegnata per un sistema operativo diverso&quot;\n	CASE nError == 13\n			cRet &#58;= &quot;Applicazione disegnata per MS-DOS 4&#46;0&quot;\n	CASE nError == 14\n			cRet &#58;= &quot;Tipo di file eseguibile sconosciuto&quot;\n	CASE nError == 15\n			cRet &#58;= &quot;Tentativo di caricare un\'applicazione disegnata per funzionare in modalit… reale&quot;\n	CASE nError == 16\n			cRet &#58;= &quot;Tentativo di caricare una seconda istanza dell\'applicazione contenente segmenti di dati multipli non marcati per la sola lettura&quot;\nENDCASE\nRETU OemToAnsi&#40; cRet + &quot;!&quot; &#41;\n[/code:tdijd8g4]','',0,'AIA=','tdijd8g4',1,0,'',47,0,0),(463,30,3,6,0,'82.54.221.92',1129483947,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','And this is the answer from Ron Pinkas:\n\n\"You may tell Badara, that he may report any issues on the\nxHarbour.Unstable.CVS NG which is the forum dedicated to such activity. IOTH\nhe has development plans, please ask him to forward an email with his\ndevelopment proposals. xHarbour is always interested in additional\ndevelopers, but otherwise the Developers list dedicated to Developers only.\"\n\nEMG','',0,'AIA=','3fcwetg2',1,0,'',6,0,0),(464,79,3,31,0,'84.15.27.93',1129484206,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2por9vnz]Rimantas,\n\n&gt;  At July-August I tried your libs with MS VC and found that they are buggy \n\nCould you please describe what bugs are them and how to reproduce them ? Thanks.[/quote:2por9vnz]\n\n   Of course ! At first I tried to build FWH samples with MS VC ( mine Visual studio 98 , VC++ 6 ver. ) . xHarbour binaries downloaded from xHarbour.org ( 0.99.50 version ) . I only changed needful paths in your buildxm.bat .  All buildings of samples are stopped on the same error . Log of trying to build testtcbr :\n\n   rtl.lib(dateshb.obj) : warning LNK4006: \"void __cdecl HB_FUN_STOD(void)\" \n\n(?HB_FUN_STOD@@YAXXZ) already defined in FiveHCM.lib(OR.obj); second definition ignored\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in \n\nLIBC.lib(matherr.obj); second definition ignored\nFiveHCM.lib(FFDLGPRC.obj) : error LNK2001: unresolved external symbol \"struct METHOD * \n\n__cdecl hb_objGetpMethod(struct _HB_ITEM *,struct HB_SYMB *)\" \n\n(?hb_objGetpMethod@@YAPAUMETHOD@@PAU_HB_ITEM@@PAUHB_SYMB@@@Z)\ntesttcbr.exe : fatal error LNK1120: 1 unresolved externals\n\n   In all builds the same : the 2 warnings and the error on FFDLGPRC.obj . Maybe it\'s the only one bug . Sorry , but my compilation allways stopped on this error and I don\'t know exist them more or not ...\n\n   With best regards ! Rimantas .','',0,'gA==','2por9vnz',1,0,'',31,0,0),(465,50,3,1,0,'212.106.253.81',1129488926,1,0,1,1,1,0,'Carlos Mora','Re: Sobre Foro','Goosfancito,\n[quote=&quot;goosfancito&quot;:1v6z4u4q]\nLa verdad no me gusta el acceso por forma de foro, la version NNTP estaba mucho mejor, era mejor accesible y rapidamente a la información. Me gustaría saber la opinion de ustedes.\nGracias.[/quote:1v6z4u4q]\nA mi no me gusta, y respecto de que en las listas de correos se llenan de spam no es cierto, porque si solo pueden postear usuarios registrados no hay ningun problema. Y los que aca postean son todos usuarios de fw. \nAdemás solo guardas los mensajes que consideres significativos y no los irrelevantes. Puedes buscar desconectado. Con mailman te puedes bajar toda la base de mensajes de un solo saque, que dicho sea de paso, tambien tiene una interface web para la busqueda.\nCon las news te tenias que comer los attaches que no t interesaban.\nCon la interface web no me doy cuenta como hacer un attach o adjuntar una imagen por ejemplo para mostrar un error.\nMe cuesta mucho saber que mensajes nuevos hay, quien los posteo y eso.\n\nY no me acuerdo que más.\n\nSaludos','',0,'gA==','1v6z4u4q',1,0,'',1,0,0),(466,148,4,150,0,'212.106.243.248',1129513492,1,0,1,1,1,0,'','Simple aplication','Hello:\n\nI have to do a very simple aplication: a Pda reads barcodes, look for the code of the article and the weight, looks for the price and prints a ticket.\n\nThe problem, as usual, it has to be done in two weeks.\n\nDo you thing that I can do with your product?\n\nThanks for your answer\n\nJose Valle','',0,'gA==','2bn41aqz',1,0,'',150,0,0),(467,149,6,66,0,'24.232.135.75',1129513824,1,0,1,0,1,0,'','Como usar meter c/ Set Filter','Estimados Colegas\n\nAlguien tiene algun prg de ejemplo de  \nmeter  con set filter, ya que la \ndbf es bastante grande .\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','l87nbhh7',1,0,'',66,0,0),(468,150,2,66,0,'24.232.135.75',1129514014,1,0,1,0,1,0,'','Como usar meter c/ Set Filter','Estimados Colegas\n\nAlguien tiene algun prg de ejemplo de  \nmeter  con set filter, ya que la \ndbf es bastante grande .\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','2zj35bp5',1,0,'',66,0,0),(469,151,6,73,0,'201.132.225.43',1129515263,1,0,1,1,1,0,'','uan de wbrowse...','Hola Foro,\n\ncomo puedo combinar imagen y texto en un header?\nGracias,\nPaco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2ae2k9vo',1,0,'',73,0,0),(470,152,6,73,0,'201.132.225.43',1129517978,1,0,1,1,1,0,'','news ...','Hola Antonio,\nhay forma de recuperar muchos mensajes de agosto y septiembre, ya borre las news del outlook y volvi a suscribirme para cargar todo, perooo, pasa algo muy raro eso nomas verificando las news de harbour.spanish, no se si a mis demas compañeros tambien, pero son muy importantes para todos los programadores de fw, resulta que me muestra a descargar 13500 aprox. y me muestra 2486 pero por ejemplo de agosto me muestra unos 15 encabezados y del dia 16 de agosto se brinca hasta el dia 2 de sep y en sep tengo muchos dias que no aparecen, que paso con todos esos mensajes? recomiendas algo?? se perdieron? como conseguirlos?\nGracias\nSalu2\nPaco   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','19ecw0ap',1,0,'',73,0,0),(471,79,3,31,0,'195.182.84.105',1129523721,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:54hcrqq1]Rimantas,\n\nTell me a software product that does not have bugs. Software is constantly in evolution, towards a new version, with more functionality and as few bugs as possible.\n\nFWH 2.4 version has more than two years. Our software is constantly evolving, and its quite difficult to support a two years old version.[/quote:54hcrqq1]\n\n  Excuse me , I mixed up years and version <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . Mine is FWH 2.5 of 2004 October .\n\n   With best regards !','',0,'gA==','54hcrqq1',1,0,'',31,0,0),(472,105,4,89,0,'213.21.136.60',1129532839,1,0,1,1,1,0,'','','I try on  Windows CE.NET  and on pocket pc \nwith the same problems\nMaurizio','',0,'gA==','3ril1qkc',1,0,'',89,0,0),(473,30,3,1,0,'83.177.232.113',1129535859,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','Enrico,\n\nThis is my response to Ron Pinkas\n\n------------\nRon,\n\nMy actual developpement plan is to obtain the latest xHarbour lib and bin possible to test with my several code lines, to be sure xHarbour has no others very important bugs.\n\nToday i can\'t continue my tests because \" \" is not equal to \"\"\nwhen Set Exact is On, with the version of xHarbour i use.\nI could give you others informations to debug xHarbour today,\nif the latest update was in my pc.\n\nIt\'s not only for help you, i am before all interested to create the 32 bit version of my sofware.\n\nIf i can accelerate the processus of developpement of [x]Harbour,\ntell me how please. If i must wait few months to test again, i think\nthis is not the better way.\n\nThe first project of developpement in my head is :\nGive to [x]Harbour the real ability to work exactly like Clipper,\nwhere Clipper do what [x]Harbour do. I am not interested\nby others projects of [x]Harbour today.\n\nJust Clipper -&gt; [x]Harbour compatibility.\n\nMy source code writted in Clipper 5.3b is 235000 lines big. If a bug\nis not fixed, i am sure it occur in my code. My tests have, and can again,\ngreatly help to increase the reliability of [x]Harbour.\n\nRegards,\nBadara Thiam\n<!-- m --><a class=\"postlink\" href=\"http://www.icim.fr\">http://www.icim.fr</a><!-- m -->','',0,'','2e6i4dqu',1,0,'',1,0,0),(474,30,3,6,0,'82.61.144.130',1129537280,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','Do I have to forward it to Ron or can you do it yourself?\n\nEMG','',0,'','2rpp5awj',1,0,'',6,0,0),(475,153,3,49,0,'213.82.134.66',1129538422,1,0,1,1,1,0,'','White Preview','when I run the preview the rpreview show me white paper blank and not the data and close the window MDI of the menu program .\nWhy ?\nI controlled in temp directory but there is nothing and the procedure not have a crash.\nI have xharbour 0.99.51 and fw 2.5\nCan you help me please','',0,'','l81knnmm',1,0,'',49,0,0),(476,75,3,49,0,'213.82.134.66',1129538834,1,0,1,1,1,0,'','','thanks to all \nI asked help to paco and we have resolve all ..\nthe func driver is not important \nNow the classes tbanner and grid  canal5 run ok  but there is only one small error for the footer of canal5 grid class .\n\nThanks to all\nsilvio','',0,'','rj0jyoqx',1,0,'',49,0,0),(477,147,2,88,0,'82.150.2.19',1129540412,1,0,1,1,1,1,'','Re: FRANCISCO CARRASCO','Buenas,\n\n[quote=&quot;pacofcc&quot;:whluqnh5] - Por necesidades de uso tengo que habiliar teclas de funcion (F2-F10) [/quote:whluqnh5]\n\nTe comento, tienes que capturar las teclas, y por lo que yo he leido y comprobado hasta ahora, las teclas F1 y F10 estan reservadas para el sistema.\n\n[code:whluqnh5]oWin&#58;bKeyDown &#58;= &#123;|nKey| iif&#40;&#40;nkey==VK_F2&#41;,Funcion&#40;&#41;,nil&#41;&#125;[/code:whluqnh5]\n\nDe esta forma capturas la tecla F2 dentro de la ventana oWin y la asocias a la funcion que necesites. Podrias cambiar oWin y poner cualquier objeto desde el que quieras captuar F2.\n\nMirate para mas referencias el archivo que encontraras en \\include\\vkey.ch, dentro del directorio donde has instalado el fivewin. \n\n[quote=&quot;pacofcc&quot;:whluqnh5] - Como hago para que el get que tenga el foco, sea de otro color ? [/quote:whluqnh5]\n\nAqui no te puedo ayudar, pero he visto por los foros que tienes que meterte directamente a cambiar la clase TGet. Pero puede que existan otras alternativas ... espera que busco algo ...\n\nTienes estas variables:\n\nnClrFocusText - 	Color for the get text when receiving focus\nnClrFocusPane -  	Color for the get back when receiving focus\n\ny estos metodos:\n\nGotFocus -        	Action to be performed when receiving the focus\nLostFocus -       	Action to be performed when losing the focus\n\nasociados a la clase TGet. Podrias empezar a investigar por ahi.\n\n\n[quote=&quot;pacofcc&quot;:whluqnh5] - Como hago para pasar de campo a campo de los get con la tecla ENTER. [/quote:whluqnh5]\n\nFijate en el ejemplo que te puse antes, y modificandolo un poco ...\n\n[code:whluqnh5]\n@ 10,10 get oGet1 var vVariable of oWindow size 70,18 pixel\noGet1&#58;bKeyDown &#58;= &#123;|nKey| iif&#40;&#40;nkey==VK_RETURN&#41;,oGet5&#58;SetFocus&#40;&#41;,nil&#41;&#125;[/code:whluqnh5]\n\nse quedaria asi. \n\nLo que hace es saltar desde oGet1 a oGet5 al apretar enter.\n\n\n\n\nNos leemos!!','',0,'gIA=','whluqnh5',1,0,'',88,0,0),(478,148,4,2,0,'80.58.2.107',1129540829,1,0,1,1,1,1,'','','Jose,\n\nI guess you plan to use the comm port for reading the barcodes. Is that ok ?\n\nWhat communication system do you plan to use to print the tickets from the pda ? Infrared ? Bluetooth ? comm port ?','',0,'gIA=','yvbfnffm',1,0,'',2,0,0),(479,154,16,2,0,'80.58.2.107',1129544571,1,0,1,1,1,1,'','Comm support (synchronous)','A new FWPPC (FiveWin for Pocket PC) build is already available with comm support (synchronous). Functions descriptions are located at whatsnew.txt.\n\nYou may already download it.','',0,'gIA=','2rqz2p5h',1,0,'',2,0,0),(480,148,4,150,0,'212.106.243.248',1129545057,1,0,1,1,1,0,'','','Hello Antonio:\n\nI plan to use a Symbol pda PPT-8846. The processor is Intel Xscale PXA250 and has the codebar scanner integrated.\n\nThe printer is Star, conected thru bluetooth.\n\nI have no experience with pda and may client is waiting for buying the hardware, so I can still choose another pda\n\nThanks for your help\n\nJose Valle','',0,'gIA=','rg25qug6',1,0,'',150,0,0),(481,148,4,2,0,'80.58.2.107',1129545727,1,0,1,1,1,1,'','','[quote=&quot;josevalle&quot;:zm10x3c7]I plan to use a Symbol pda PPT-8846. The processor is Intel Xscale PXA250[/quote:zm10x3c7]\n\nThe one we use for our testings is a HP iPAQ with a Intel PXA255 processor, so we assume it may be compatible. Anyhow, to be 100% sure we do recommend you to download some of the samples we provide from <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwppc.html\">http://www.fivetechsoft.com/english/fwppc.html</a><!-- m --> , copy them on a SD memory card, and plug it into the pda and run them.\n\n[quote=&quot;josevalle&quot;:zm10x3c7] and has the codebar scanner integrated.[/quote:zm10x3c7] Then probably the scanned barcode will be transformed as keyboard input. If so, then you should not have any troubles with it.\n\n[quote=&quot;josevalle&quot;:zm10x3c7]The printer is Star, conected thru bluetooth.[/quote:zm10x3c7] We are in the process to provide bluetooth support though it is not currently available. It may be just a matter of a few days.','',0,'gA==','zm10x3c7',1,0,'',2,0,0),(482,156,3,49,0,'213.82.134.66',1129546577,1,0,1,1,1,0,'','TXT to Speek','have You create a func or class with this component in (x) harbour and fw ?\nSomeone can help me please ?\n\nRegards\nsilvio <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','25gizcu7',1,0,'',49,0,0),(483,157,1,27,0,'212.145.65.52',1129547298,1,0,1,1,1,1,'','Class Tsmtp with Authentication','Is there anyway I can send a user name and pasword using this class.\n\nOn some machines I have problems with the Tmail Class \"No Mapi Client\"','',0,'gA==','307zkhom',1,0,'',27,0,0),(484,158,4,27,0,'212.145.65.52',1129547414,1,0,1,1,1,1,'','Signature Capture with FWPPC','Ant way I can programa capture of hand written text on the screen to a JPG file?','',0,'gA==','319mzji3',1,0,'',27,0,0),(485,30,3,1,0,'83.177.232.113',1129548543,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','I have not his email adress.\nLike you want.','',0,'gA==','3sr8y9xo',1,0,'',1,0,0),(486,159,6,49,0,'213.82.134.66',1129549930,1,0,1,1,1,0,'','TXT to Speek','have You create a func or class with this component in (x) harbour and fw ? \nSomeone can help me please ? \n\nRegards \nsilvio','',0,'gA==','3doqbya9',1,0,'',49,0,0),(487,105,4,82,0,'213.45.62.1',1129551833,1,0,1,1,1,0,'','','I think that problem is dbf  path.\nI have oher problems\' with this...\nbut not with emulator.... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nUse path for open dbf...\n\nMy two cents\nregard\'s\nandrea bruni','',0,'gA==','iv7p2s1z',1,0,'',82,0,0),(488,105,4,3,0,'82.120.23.144',1129554164,1,0,1,1,1,0,'','','[quote=&quot;andreab&quot;:8czvsbtb]I think that problem is dbf  path.\nI have oher problems\' with this...\nbut not with emulator.... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nUse path for open dbf...\n\nMy two cents\nregard\'s\nandrea bruni[/quote:8czvsbtb]\n\nIt is not the path but probably the header of the dbf for the first record.\n\nAntonio, i tried the test.prg that you have in samples dir and tried to open the dbf file (after program execution) on my laptop pc.  My dbf editor (cdbfw) did not want to open it mentionning dbf header is not correct. Once corrected, it shows that 2nd and third are deleted.\n\nRichard','',0,'gA==','8czvsbtb',1,0,'',3,0,0),(489,160,2,1,0,'201.215.15.85',1129554352,1,0,1,1,1,0,'','Ejemplo de Tdbf + tsbrowse','Saludos amigos, necesito entrar a trabajar con tdbf, por un asunto de red, para tal efecto, necesito usar tsbrowse, yo trabajo con blinker, clip 5.3 y workshop, fw 2.2, sucede que cuando trabajo con la clase, me sale un error al linkear de DBFSEVER, de seguro, que algo molesta, pero necesito ver un ejemplo para saber como trabajar. es importante por favor','',0,'gA==','3rmswk1z',1,0,'',1,0,0),(490,105,4,3,0,'82.120.23.144',1129554709,1,0,1,1,1,0,'','','[quote=&quot;Richard Chidiak&quot;:3mzu5mez][quote=&quot;andreab&quot;:3mzu5mez]I think that problem is dbf  path.\nI have oher problems\' with this...\nbut not with emulator.... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nUse path for open dbf...\n\nMy two cents\nregard\'s\nandrea bruni[/quote:3mzu5mez]\n\nIt is not the path but probably the header of the dbf for the first record.\n\nAntonio, i tried the test.prg that you have in samples dir and tried to open the dbf file (after program execution) on my laptop pc.  My dbf editor (cdbfw) did not want to open it mentionning dbf header is not correct. Once corrected, it shows that 2nd and third are deleted.\n\nRichard[/quote:3mzu5mez]\n\nForgot to say, execution did occur on pocket pc and file was copied to laptop afterwards','',0,'gA==','3mzu5mez',1,0,'',3,0,0),(491,161,6,106,0,'85.34.123.172',1129555950,1,0,0,1,1,0,'','Sbutton para xHarbour/FW26','Como dice en el asunto... alguien tiene las librerias de sbutton para xHarbour/FW26?\nO que alguien me explique como compilarlas, porque no doy pie con bola...\n\n\nRMAKE 1.4  Copyright (c) 1989-1993 Computer Associates International, Inc.\nc:\\xHxFw26\\bin\\harbour ..\\SOURCE\\CLASSES\\TSBUTTON.PRG /n  /i..\\source\\classes;..\n\\include;c:\\ut\\Fwh26\\include;c:\\xHxFw26\\include &gt; comp.log\nError RMAKE/R2001  Exit 12: \'c:\\xHxFw26\\bin\\harbour ..\\SOURCE\\CLASSES\\TSBUTTON.P\nRG /n  /i..\\source\\classes;..\\include;c:\\ut\\Fwh26\\include;c:\\xHxFw26\\include &gt; c\nomp.log\'\n\n\n\nPedro Gonzalez\nSavona - Italia','',0,'gA==','15ettjd6',1,0,'',106,0,0),(492,105,4,2,0,'80.58.2.107',1129556472,1,0,1,1,1,1,'','','Richard,\n\nI have tested it on the emulator and works ok. Then I modified the DBF path (SD card) and tested it again on the real pocket pc and the problem then happens.\n\nI guess we need to create a zapDbf() function that does what I described on a previous msg. Also we could try COPY TO ... FOR ... command too.','',0,'gA==','13jb0dan',1,0,'',2,0,0),(493,148,4,2,0,'80.58.2.107',1129556531,1,0,1,1,1,1,'','','Jose,\n\nI have forwarded you a spanish email which describes quite well how to use a printer from the pocket pc.','',0,'gA==','2y9xbmaq',1,0,'',2,0,0),(494,161,6,2,0,'80.58.2.107',1129556704,1,0,1,1,1,1,'','','Pedro,\n\nQue errores te aparecen en comp.log ?','',0,'gA==','33ie78zs',1,0,'',2,0,0),(495,152,6,2,0,'80.58.2.107',1129556840,1,0,1,1,1,1,'','','Paco,\n\nLos mensajes no se han perdido. Comentaron que algunos mensajes daban error, pero solo dos ó tres, y los borramos. Prueba a borrar la cuenta y a darla de alta de nuevo desde tu lector de news.','',0,'gA==','286mabta',1,0,'',2,0,0),(496,161,6,106,0,'85.34.123.172',1129557008,1,0,0,1,1,0,'','','Hola Antonio, no me aparece ningun error. En realidad, aparece vacío.\n\nPedro Gonzalez\nSavona - Italia','',0,'gA==','347rxzqy',1,0,'',106,0,0),(497,121,6,1,0,'83.213.45.32',1129558099,1,0,1,1,1,0,'Alfonso Larrinaga','Re: DBSETRELATION en xHarbour','Efectivamente faltaba el simbolo +\nAhora funciona perfectamente, muchas gracias.\n\nUn saludo.\nAlfonso Larrinaga\n<!-- e --><a href=\"mailto:bsinformatica@euskalnet.net\">bsinformatica@euskalnet.net</a><!-- e -->','',0,'gA==','1s9gpxgq',1,0,'',1,0,0),(498,161,6,121,0,'201.139.128.45',1129558549,1,0,1,1,1,1,'','COMPILACION DE LAS LIBRERIAS TSBROWSE Y TSBUTTON','HOLA COMO DATO CURIOSO A MI TAMBIEN ME HA DADO EL MISMO ERROR CUANDO COMPILO ESA LIBRERIAS\nPOR POR CASUALIDAD NOTE QUE EN WINDOWS 98 SI COMPILA BIEN','',0,'gA==','3bf3lx7i',1,0,'',121,0,0),(499,161,6,106,0,'85.34.123.172',1129558748,1,0,0,1,1,0,'','','<!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nNo tengo una maquina con W98 a mano y con todo instalado.\nDe todos modos, me resolvería el problema, al menos por ahora, si alguien me puede enviar la librería ya compilada.\n\nxHarbour 0.99.51/FWH26\n\nGracias\n\nPedro Gonzalez\nSavona - Italia','',0,'gA==','2xhx1c1g',1,0,'',106,0,0),(500,30,3,6,0,'82.55.208.34',1129559979,1,0,1,1,1,1,'','Re: ASC bug - re: Barbara THIAM\'s post','Here it is:\n\n<!-- e --><a href=\"mailto:Ron@remove-this.xharbour.com\">Ron@remove-this.xharbour.com</a><!-- e -->\n\nEMG\n\nPS. Remove \"remove-this.\".','',0,'gA==','2gyegje5',1,0,'',6,0,0),(501,105,4,3,0,'82.120.23.144',1129560039,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:wdg3opfx]Richard,\n\nI have tested it on the emulator and works ok. Then I modified the DBF path (SD card) and tested it again on the real pocket pc and the problem then happens.\n\nI guess we need to create a zapDbf() function that does what I described on a previous msg. Also we could try COPY TO ... FOR ... command too.[/quote:wdg3opfx]\n\nAntonio\n\nI tried COPY TO on pocket pc\n\nOnly one record (the first one) is copied ??? none should be there\n\nAgain the header of the original file where we delete is corrupted. \n\nRichard','',0,'gA==','wdg3opfx',1,0,'',3,0,0),(502,30,3,1,0,'83.177.232.113',1129561738,1,0,1,1,1,0,'Badara Thiam','Re: ASC bug - re: Barbara THIAM\'s post','Thanks Enrico\n\nRegards,\nBadara','',0,'gA==','1dvn6ifp',1,0,'',1,0,0),(503,161,6,106,0,'85.34.123.172',1129563202,1,0,0,1,1,0,'','','Bueno, lo solucioné leyendo el forum de español o ingles, ya no lo recuerdo:\n\n\n@ECHO OFF\nCLS\nset fwh=c:\\ut\\fwh26\nset include=.\\INCLUDE;c:\\ut\\fwh26\\include;%INCLUDE%\nset hdir=c:\\xhxFW26\nset bcdir=c:\\bcc55\\bin\nset def=HB_API_MACROS \n\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSBAR.PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSBAR.C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSBUTTON.PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSBUTTON.C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSLINES.PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSLINES.C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSRADIO.PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSRADIO.C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSTSAY.PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSTSAY.C\n\n\nrem INICIO Modulos C Generados por Harbour !!!\n\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSBAR.OBJ  OBJ\\TSBAR.C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSBUTTON.OBJ  OBJ\\TSBUTTON.C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSLINES.OBJ  OBJ\\TSLINES.C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSRADIO.OBJ  OBJ\\TSRADIO.C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSTSAY.OBJ  OBJ\\TSTSAY.C\n\n@del OBJ\\*.c\n\n\nrem Modulos C Nativos !!!\n\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include;%fwh%\\include  -oOBJ\\BPAINT.OBJ  source\\function\\BPAINT.C\n\n\n\n@del LIB\\SButtonX.LIB\n\nc:\\bcc55\\bin\\Tlib lib\\SButtonX +obj\\TSBar     &gt; Lib.log\nc:\\bcc55\\bin\\Tlib lib\\SButtonX +obj\\TSBUtton  &gt;&gt; Lib.log\nc:\\bcc55\\bin\\Tlib lib\\SButtonX +obj\\TSLines   &gt;&gt; Lib.log\nc:\\bcc55\\bin\\Tlib lib\\SButtonX +obj\\TSRadio   &gt;&gt; Lib.log\nc:\\bcc55\\bin\\Tlib lib\\SButtonX +obj\\TSTSay    &gt;&gt; Lib.log\nc:\\bcc55\\bin\\Tlib lib\\SButtonX +obj\\BPaint   &gt;&gt; Lib.log\n\n\n\nrem @del tmplib.bc\n\n@echo Library built\n\n\n\nSaludos\n\nPedro Gonzalez\nSavona - Italia','',0,'gA==','kb1ve2jc',1,0,'',106,0,0),(504,162,2,157,0,'81.39.193.250',1129564232,1,0,1,1,1,0,'','Para Chantiel','Gracias por tu ayuda. Pongo manos a la obra de inmediato ya te comentare.\n\nSaludos Paco Carrasco','',0,'gA==','3dpuoujk',1,0,'',157,0,0),(505,157,1,138,0,'201.128.111.62',1129565134,1,0,1,1,1,1,'','Re: Class Tsmtp with Authentication','[quote=&quot;PAUL SIMM&quot;:ksbclrzk]Is there anyway I can send a user name and pasword using this class.\n\nOn some machines I have problems with the Tmail Class \"No Mapi Client\"[/quote:ksbclrzk]\n\nPaul:\n\nTry Luis Krause\'s SMTP, it works with autentication.','',0,'gA==','ksbclrzk',1,0,'',138,0,0),(506,150,2,138,0,'201.128.111.62',1129566301,1,0,1,1,1,1,'','Re: Como usar meter c/ Set Filter','[quote=&quot;Databaselab2002&quot;:3mi9ikue]Estimados Colegas\n\nAlguien tiene algun prg de ejemplo de  \nmeter  con set filter, ya que la \ndbf es bastante grande .\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->[/quote:3mi9ikue]\n\nNo es posible utilizarlo, veras, el set filter, va evaluando los registros conforme va avanzando sobre ellos, en realidad, la base de datos nunca estan realmente \"filtrada\"\n\nEs decir, no haces un SET FILTER y purrum, la base de datos se hace mas corta, no no no, las cosas no suceden asi con SET FILTER\n\nPor ejemplo, si tu pones una base de datos \"filtrada\" en un browse, cada registro es evaluado al momento de pintarse para ver si se dibuja o no se dibuja de acuerdo al criterio del filtro.... por eso son estupidamente lentos, porque si 500 registros no entran en el pintado del browse, internamete se realiza una operaicon de SKIP() 500 veces antes de llegar al registro que se debe pintar en la linea del browse correspondiente..... esto empeora si luego quieres moverte sobre la base de datos con las flechas, o con pgup o pgdn, porque claro, para pintar el registro marcado se tienen que evaluar otra vez todos los criterios de filtro para cada registro.\n\nLo mismo ocurre si haces un filtro y luego un DO WHILE NOT EOF, cada operacion de SKIP evalua el criterio del filtro para ver si el registro donde esta el puntero entra o no dentro de los registros filtrados., sin embargo esta operacion es mucho mas rapida porque no tiene salida a pantalla.\n\nEn cambio, si tu tienes un indice que utiliza la clausula FOR para filtrar, la operacion de hace instantaneamente.\n\nTambien si utilizas los AOFs de Advantage Database Server, no hay necesidad de hacer un indice para filtrar, los filtros optimizados Advantage te dan exactamente una copia de la base de datos debidamente filtrada','',0,'gA==','3mi9ikue',1,0,'',138,0,0),(507,105,4,2,0,'80.58.2.107',1129567155,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:185zfcyw]Only one record (the first one) is copied ??? none should be there[/quote:185zfcyw]\nHave you checked if that record is marked as deleted ?\n\n[quote=&quot;Richard Chidiak&quot;:185zfcyw]Again the header of the original file where we delete is corrupted.[/quote:185zfcyw]\n\nHow do you know this ? Do you get an error when you try to open it ? What tool are you using to open it ? Thanks.','',0,'gA==','185zfcyw',1,0,'',2,0,0),(508,30,3,2,0,'80.58.2.107',1129567379,1,0,1,1,1,1,'','','Badara,\n\nPlease register on these forums. Its just a few minutes issue. Thanks.','',0,'gA==','xn46i48q',1,1129621903,'',2,1,0),(509,151,6,2,0,'80.58.2.107',1129567642,1,0,1,1,1,1,'','','Paco,\n\nNo está implementado como tal, pero si revisas source\\classes\\wbrowse.prg verás la función wBrwLine que es la encargada de dibujar cada línea del browse. \n\nNo sería muy complicado modificarla para que dibuje una imagen en una determinada columna de la cabecera.','',0,'gA==','2qgt940n',1,0,'',2,0,0),(510,10,6,103,0,'200.164.92.242',1129569850,1,0,1,1,1,0,'','','Bueno, estoy por acá, intentando acostumbrarme a estes nuevos foros.\n\nSaludos,\n\nKleyber Derick','',0,'gA==','2hkp77vq',1,0,'',103,0,0),(511,105,4,3,0,'82.249.0.250',1129571379,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1r8sabwq][quote=&quot;Richard Chidiak&quot;:1r8sabwq]Only one record (the first one) is copied ??? none should be there[/quote:1r8sabwq]\nHave you checked if that record is marked as deleted ?\n\n[quote=&quot;Richard Chidiak&quot;:1r8sabwq]Again the header of the original file where we delete is corrupted.[/quote:1r8sabwq]\n\nHow do you know this ? Do you get an error when you try to open it ? What tool are you using to open it ? Thanks.[/quote:1r8sabwq]\n\nAntonio,\n\nThe only record left (first one) is \"not\" quoted as DELETED\n\nAfter execution on my pocket pc, i remove the sd card and put it on a sd card reader connected to my computer, then i can open the file on my laptop.\n\nI use cdbfw for browsing any dbf, this product is just magic, and cdbfw informs me that the header is corrupted. \n\nRichard','',0,'gA==','1r8sabwq',1,0,'',3,0,0),(512,147,2,1,0,'83.35.123.220',1129572224,1,0,1,1,1,0,'','Manuel','Para que el GET cambie de color cuando tome el foco, tienes que modificar el método GotFocus() de la clase TGET añadiendo al final el texto en rojo.\nUn saludo.\nManuel\n//----------------------------------------------------------------------------//\n\nMETHOD GotFocus() CLASS TGet\n\n   if ! Empty( ::cPicture ) .and. ::oGet:type == \"N\"\n      ::oGet:Picture := StrTran( ::cPicture, \",\", \"\" )\n   endif\n\n   if ! ::lDrag\n      ::oGet:KillFocus()   // to properly initialize internal status\n      ::oGet:SetFocus()\n      ::DispText()\n      if ::oGet:type$\"DN\"\n         ::nPos :=  1\n      endif\n      ::oGet:Pos = ::nPos\n      ::SetPos( ::nPos )\n      CallWindowProc( ::nOldProc, ::hWnd, WM_SETFOCUS )\n      if Set( _SET_INSERT )\n         DestroyCaret()\n         CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() )\n         ShowCaret( ::hWnd )\n      endif\n   else\n      HideCaret( ::hWnd )\n   endif\n\n   [color=red:1r3mw0kt]Super:GotFocus()\n   ::SetColor(CLR_BLACK,CLR_YELLOW)[/color:1r3mw0kt]\nreturn 0\n\n//----------------------------------------------------------------------------//','',0,'Ag==','1r3mw0kt',1,0,'',1,0,0),(513,151,6,45,0,'200.117.226.233',1129572807,1,0,1,1,1,0,'','Re: uan de wbrowse...','[quote=&quot;Francisco Horta&quot;:2lvh0ts5]Hola Foro,\n\ncomo puedo combinar imagen y texto en un header?\nGracias,\nPaco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:2lvh0ts5]\n\nTal como dice Antonio, no seria muy dificil modificar codigo, aunque no es para todo el mundo <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->. !!!\n\nRespecto a la TW Version 18 (soon que la tengo en beta) puedes hacerlo desde un bloque de codigo nuevo, ejecutado desde C, para no retardar tanto el pintado de las cabeceras, y puedes ejecutar 2 cosas.\n[code:2lvh0ts5]\nLos bloques se ejecutan por celda al momento de pintado&#46; Dichas variables son &#58;&#58;bPrevPaint y &#58;&#58;bNextPaint&#46; El primero se usa para\npoder escribir en la celda en forma personalizada ANTES del pintado estandard de la celda,  y &#58;&#58;bNextPaint se ejecuta DESPUES del pintado normal&#46; Esto le da FLEXIBILIDAD TOTAL a la clase&#46;  Valores que puede devolver el bloque &#58;&#58;bPrevPaint;\n      &gt;---&gt; &lt;0&gt; El pintado por defecto NO se hara, por lo tanto es su resposabilidad cubrir  el area total de la celda\n      &gt;---&gt; &lt;1&gt; El pintado por defecto SI se hara EXCEPTO el Texto, por lo tanto es su resposabilidad pintar un texto especifico en la celda&#46;\n      &gt;---&gt; &lt;Otro valor distino&gt; Indicara que SI debe hacerse el pintado por defecto de la celda&#46; \nLos bloques reciben los siguientes parametros&#58;\n\n &#123;|nRow,nCol,nStyle,hDC,cChar,nTop,nLeft,nBottom,nRight| &lt;su codigo&gt; &#125;\n[/code:2lvh0ts5]\n\nEntre otras cosas, tendremos como novedades headers nativas sobre 32bit opcional, con correcta implementacion pudiendo en tiempo de ejecucion cambiar a viejas o nuevas, posibilidad de freezear el browse permitiendo que no se refresque ni se muevan punteros de ningun tipo en el pintado, algo asi como sacar una foto y dejarlo asi hasta que uno decida, mejoras de velocidad, doble buffer opcional y sin doble buffer tambien el browse no produce parpadeos practicamente, algunas nuevas implementaciones, posiblidad ejecutar manejo de keychar y keydown definidos por el usuario, etc,etc,etc. estas seran algunas de las cosas nuevas. Pronto en las bateas <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nUna MINI implementacion un beta tester:, como vemos usa los nuevos bloques y usa los bColor, alineaciones especiales y solo pinta caracteres en el cotextor de dispositivo. No usa imagenes pero podria haberlo hecho <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n[img:2lvh0ts5]http&#58;//img66&#46;imageshack&#46;us/img66/3056/twbeta186bl&#46;jpg[/img:2lvh0ts5]','',0,'iIA=','2lvh0ts5',1,0,'',45,0,0),(514,163,6,141,0,'200.88.94.146',1129573509,1,0,1,1,1,1,'','Sobre RSS y las news','Antonio,\n\nHay manera de saber si existe una pagina que me permita considerar este foro para mi agregador de RSS ?\n\nEn otras palabras \"sindicar\" este foro ?\n\nCreo que seria la solucion a poder tener este foro y las news (pasadas) en el mismo programa que utilizamos para manejar el nntp...\n\nLo menciono porque ya lo hice con muchisimos blog de compañeros de FW, y funciona de maravilla con un servicio que encontre (despues descubir que hay varios, y gratis) para utilizar Outlook Express como agregador...\n\nSalu2,','',0,'iIA=','2i2gde12',1,0,'',141,0,0),(515,151,6,61,0,'201.217.148.242',1129578542,1,0,1,1,1,0,'','HDC - se ve ESPECTACULAR...','Hernán lo que se ve parece muy bueno.\n\nMuchas gracias desde ya...\n\nSaludos\n\nRuben Fernandez','',0,'iIA=','fk2ytvqk',1,0,'',61,0,0),(516,163,6,2,0,'80.58.2.107',1129580323,1,0,1,1,1,1,'','','Julio,\n\nLa verdad es que no lo se. Sería muy interesante poder encontrar la forma de hacer lo que dices.','',0,'iIA=','1zg8d2vc',1,0,'',2,0,0),(517,164,3,1,0,'64.91.126.182',1129583817,1,0,1,1,1,0,'don l.','continuation of news group discussion','Antonio,\n\nI reported problems with fwh2.6 on the \"old\" newsgroup.\n\nOne was the slow painting of dialogs.  You suggested changing the dispbegin() and dispend() methods to VIRTUAL.\n\nHere is the reply I attempted to send to the news group.\n\n*********************************\n\nChanging the methods to \"VIRTUAL\" made a HUGE difference in speed of dialog painting, large browses, etc.\n\nWhat exactly did I do by delcaring those methods as VIRTUAL?\n\nMuch better now.  What is the advantage of \"non-Virtual\" over \"Virtual\"\n?????\n\nI\'m leaving it as \"virtual\" for my application.  Will this mean I must\nforever link a \"modified\" version of window.prg into my applications?\n\nThanks\n\nDon Lowenstein\n\n\n\n\"Antonio Linares\" &lt;alinares@fivetechsoft.com&gt; wrote in message\nnews:EiZSqsoyFHA.1908@second...\n&gt; Don,\n&gt;\n&gt;&gt;&gt;&gt; 5.  My intro screen paints very slowly, compared to the one used in\n&gt;&gt;&gt;&gt; fwh25 version.\n&gt;\n&gt; This may be due to double buffer painting. You may declare methods\n&gt; DispBegin() and DispEnd() as VIRTUAL at window.prg and see if that makes a\n&gt; difference. Thanks.\n&gt;\n&gt; regards,\n&gt;\n&gt; Antonio Linares\n&gt; <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->\n&gt;','',0,'iIA=','345f16so',1,0,'',1,0,0),(518,165,3,1,0,'64.91.126.182',1129583909,1,0,1,1,1,0,'don l','user name taken','I tried to submit a message under the name \"don lowenstein\" but system told me \"username already taken\" so I changed to \"Don L\" \n\nWhy can\'t I post under \"don lowenstein?\"','',0,'iIA=','9rzhfhbr',1,0,'',1,0,0),(519,111,6,1,0,'80.58.24.107',1129583999,1,0,1,1,1,0,'miguel','','Yo me encuentro en el mismo punto, pero el problema que tengo es que al recorrer los controles de un array, no todos los controles tienen la propiedad lReadOnly.\n\nSi se pudiera modificar algo para lograr este comportamiento lo agradecería mucho\n\nUn saludo','',0,'iIA=','2mpo0rwh',1,0,'',1,0,0),(520,166,3,1,0,'64.91.126.182',1129584440,1,0,1,1,1,0,'don l','preview problems with fwh 2.6','Antonio,\n\nI noticed that the metafile.c program was supplemented with metafi32.c\n\nI am experincing 2 problems with the \"new metafile\" logic.\n\n1.  Each time I use the preview process ( vanilla - right out of the box ) with my report object, I get the following message - EVERY TIME.\n\n( from metafi32.c )\n\nError (6) deleting enhanced metafile\nError Description\n\nThis is new with FWH 2.6 over FWH 2.5\n\n\n2.  If my report object is sized for legal sized / landscape paper and I double-click on the page, it does not get \"larger\" as in FWH 2.5.  If my report object is for letter page portrait - it does get (slightly) larger.\n\nThe behaviour is much different from FWH 2.5 - before you started coding the previewer for ENHANCED METAFILES.\n\nWhat is the difference?  How can I address this?  Why am I getting the message?\n\nEtc.\n\n\nThanks in advance for your help.\n\nPS - I think I will like this new message format once I get used to it.;','',0,'iIA=','3i9r7gdq',1,0,'',1,0,0),(522,165,3,167,0,'64.91.126.182',1129584622,1,0,1,1,1,0,'','problem solved','I wasn\'t \"logging in\" to my profile.\n\nPlease bear with me as I am \"changing gears.\"','',0,'iIA=','3kwblseq',1,0,'',167,0,0),(523,166,3,167,0,'64.91.126.182',1129586324,1,0,1,1,1,0,'','more preview testing results','Double click on preview screen.\n\nIf the image is for Portrait / 8.5 x 11 inch paper\n\nthe image WILL GET LARGER.\n\nIt appears that all LANDSCAPE reports, both 8.5 x 11 and 8.5 x 14 reports DO NOT GET LARGER by double clicking.','',0,'iIA=','3c5837u8',1,0,'',167,0,0),(524,151,6,73,0,'201.135.53.236',1129590579,1,0,1,1,1,0,'','Re: uan de wbrowse...','UUUPPPPPSSS Hernan; Fabulosa !!! Grandiosa !!!\n100% comentario aceptado, no todos tenemos la capacidad de mover fuentes !!, jejeje puede ser mi caso, pero voy a ver que saco.\nEsperamos (de seguro todo el foro) ansiosos tu version 18\nSuerte !!\nSalu2\nPaco','',0,'iIA=','2t5okp8z',1,0,'',73,0,0),(525,168,6,52,0,'201.235.155.110',1129598829,1,0,0,1,1,0,'','Error: Unresolved external \'_HB_FUN_DBFDBT\' referenced from','pueden darme una solucion para este error?\nuso la version 0.99.50 del xharbour\n\nGracias','',0,'iIA=','20mvn1pi',1,0,'',52,0,0),(526,168,6,2,0,'80.58.2.107',1129603699,1,0,1,1,1,1,'','','Gustavo,\n\nTienes que enlazar la librería dbfdbt.lib también,','',0,'iIA=','2vw7kjsp',1,0,'',2,0,0),(527,169,16,2,0,'80.58.2.107',1129609200,1,0,1,1,1,1,'','New FWPPC build','There is a new FWPPC build, already available to be downloaded:\n\n * Enhancement: FWPPC, SysRefresh(). Thanks to Joaquin for the tip!       \n\n * New: FWPPC: ON INIT clause for dialogboxes already available.\n\n * Enhancement: FWPPC: METHOD AEvalWhen() is autimatically invoked from the dialogbox \n   initialization.\n   \n * Enhancement: FWPPC: DATA bStart support already implemented.\n   \n * Fix: FWPPC: Fonts are properly working. Thanks to Joaquin for the tip!','',0,'iIA=','3u5lvh4a',1,0,'',2,0,0),(528,170,16,2,0,'80.58.2.107',1129609461,1,0,1,1,1,1,'','Nuevo FWPPC build','Hay un nuevo build de FWPPC, ya disponible para ser descargado: \n\n* Mejora: FWPPC, SysRefresh(). Gracias a Joaquin por la sugerencia! \n\n* Nuevo: FWPPC: la cláusula ON INIT para dialogboxes ya está disponible. \n\n* Mejora: FWPPC: METHOD AEvalWhen() es automaticamente llamado desde la inicialización de los diálogos. \n\n* Mejora: FWPPC: Soporte de DATA bStart. \n\n* Arreglo: FWPPC: los Fonts estan funcionando correctamente. Gracias a Joaquín por la sugerencia!','',0,'iIA=','3vidubcu',1,0,'',2,0,0),(529,38,7,2,0,'80.58.2.107',1129609661,1,0,1,1,1,1,'','','Daniel,\n\nPor lo visto la solución es no usar PACK, sino ZAP, si lo que deseas es eliminar todos los registros. Para eliminar sólo los borrados, tienes que crear una DBF temporal con la misma estructura, copiar los registros no borrados, eliminar la original y renombrar la temporal al nombre inicial.\n\nAsí funciona correctamente. Y es realmente curioso, porque en el emulador funciona bien sin necesidad de esto, pero en la Pocket PC real es necesario.','',0,'iIA=','1mh0sld4',1,0,'',2,0,0),(530,151,6,38,0,'87.202.47.223',1129616747,1,0,1,1,1,1,'','','Hernan, lo que describes es una maravilla !  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nLas celdas personalizadas abren nuevos horizontes, y desde ya estoy pensando como disfrutar este nuevo browser. \nFelicidades por este excelente trabajo !\n\nUn saludo','',0,'iIA=','1z6sel1c',1,0,'',38,0,0),(531,173,6,17,0,'80.58.38.235',1129617142,1,0,1,1,1,1,'','Me falta parte de una entrada de un INI','Hola !\nHe podido guardar en una entrada del INI con ::oIni:Set(\"Seccion\",\"Entrada\",cValor)  unos 2000 caracteres, pero, mi sorpresa cuando hago el cValor := ::oIni:Get(\"Seccion\",\"Entrada\") resulta que no me lee mas de 1024,  ¿ Como se puede ampliar esto ? Necesito poder leer lo mismo que me deja escribir en lo INI, no?\n\nUn saludo\nJesús Díez González','',0,'iIA=','17btpo8b',1,0,'',17,0,0),(532,174,3,67,0,'83.134.58.223',1129617821,1,0,1,1,1,0,'','Combobox , changing aitems dynimacaly','Hello,\n\nI try to use comboxes , and change oCombox:aItems in the dialog.\n\nI started with samples/Combox.prg , and try to change oCbx2:aItems (second combobox)\n\n1)oCbx2:bGotFocus := ;\n           {|| oCbx2:aItems := { \"1:One\", \"2:CHANGED\", \"3:Three\" } }\nThe second combobox receives no visible focus , clicking shows the old  items \n bWhen shows focus , but the result is also bad\n\n2) I tryed to use the VALID clausule from the first combobox :\n\nVALID ( msginfo(\"ok\")  , oCbx2:aItems := { \"1:One\", \"2:CHANGED\", \"3:Three\" } , .T. )\n\nBUT , THIS IS NOT EXECUTED , MSGINFO HAS NO EFFECT !!!!!!!!!\n\nFrank','',0,'iIA=','2p2d0ykb',1,0,'',67,0,0),(533,174,3,31,0,'195.182.84.105',1129620293,1,0,1,1,1,1,'','Re: Combobox , changing aitems dynimacaly','[quote=&quot;Frank Demont&quot;:3cfal3wu]\n\nI try to use comboxes , and change oCombox:aItems in the dialog.\n\nI started with samples/Combox.prg , and try to change oCbx2:aItems (second combobox)\n\n1)oCbx2:bGotFocus := ;\n           {|| oCbx2:aItems := { \"1:One\", \"2:CHANGED\", \"3:Three\" } }\nThe second combobox receives no visible focus , clicking shows the old  items \n bWhen shows focus , but the result is also bad\n\n2) I tryed to use the VALID clausule from the first combobox :\n\nVALID ( msginfo(\"ok\")  , oCbx2:aItems := { \"1:One\", \"2:CHANGED\", \"3:Three\" } , .T. )\n\nBUT , THIS IS NOT EXECUTED , MSGINFO HAS NO EFFECT !!!!!!!!!\n\nFrank[/quote:3cfal3wu]\n\n   Try this codeblock :\n@ nRow, nCol COMBOBOX oCbx VAR cPav PIXEL UPDATE VALID !empty( cPav ) OF oDlg SIZE n, nFh * 4\n\naeval( MyArray, { |x| aadd( oCbx:aItems, x[ 2 ] ) } ) // for multidimensional array .\n or \naeval( MyArray, { || aadd( oCbx:aItems, MyArray ) } )\n\n   I\'m changing my comboboxec at runtine in this way . Maybe it helps .\n\n   With best regards ! Rimantas','',0,'gA==','3cfal3wu',1,0,'',31,0,0),(534,175,4,133,0,'80.176.234.174',1129620588,1,0,1,1,1,0,'','FONT And SetFont()','I do not appear to be able to set the font for a LISTBOX unless I use resources. \n\nI am using @ 0,0 LISTBOX oLbx......\n\nDEFINE oFont....\nACTIVATE oFont\n\nI then either want to add \"FONT oFont\" or oLbx:setFont(oFont)\n\nIs runtime font control not implemented as yet as I note that the font control is commented out in tutor05.prg.','',0,'gA==','3ifu17hd',1,0,'',133,0,0),(535,30,3,1,0,'213.103.199.188',1129621417,1,0,1,1,1,0,'Badara Thiam','','Antonio,\n\nI have many passwords and i not remember\nmy password and email address used in these forums.\n\nIt\'s why i am not register today.\n\nSaludos,\nBadara','',0,'gA==','2in0es99',1,0,'',1,0,0),(536,173,6,2,0,'83.39.227.26',1129621661,1,0,1,1,1,1,'','','Jesús,\n\nEn source\\winapi\\profile.c verás que se usan unos buffers de 1024 bytes. Amplíalos, recompila y solucionado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1c4waq2d',1,0,'',2,0,0),(537,175,4,2,0,'83.39.227.26',1129621789,1,0,1,1,1,1,'','','GWard,\n\nToday we have published a new FWPPC build. Please download it.\n\nTutor05.prg is modified to test fonts.','',0,'gA==','2bn40i2l',1,0,'',2,0,0),(538,30,3,2,0,'83.39.227.26',1129621877,1,0,1,1,1,1,'','','Badara,\n\nYou may register again and write down your login and password for future use.','',0,'gA==','1jzbxdl6',1,0,'',2,0,0),(539,173,6,17,0,'80.58.38.235',1129624455,1,0,1,1,1,1,'','','Antonio, ya lo he visto, pero...\n\nSe puede cambiar la funcion para que reciba como parametro la longitud del buffer ? asi ya seria mas estandard, no?\nde otra forma si modifico profile.c , debo llevar un control de versiones de FWH para que no se pierda mi modificación.\n\nComo hago para compilar y linkar profile.c , en que libreria ?\n\nUn saludo','',0,'gA==','2lmmjqhj',1,0,'',17,0,0),(540,162,2,88,0,'82.150.2.20',1129624604,1,0,1,1,1,1,'','','No hace falta que habras otro post, tan solo con seguir el otro es suficiente.\n\n\nDe nada, ya me comentaras.\n\n\n\nNos leemos!!','',0,'gA==','f1bktftt',1,0,'',88,0,0),(541,175,4,133,0,'80.176.234.174',1129625164,1,0,1,1,1,0,'','','Antonio,\n\nThe fonts work fine.\n\nUnfortunately one of my applications has stopped working that was fine with the last update of 15th October.\n\nFirstly the visibility of the open files has changed as I am getting an \"Alias Not Found\" error in TWBrose:onPaint where none existed before.\n\nThe function ShowRolls() access the datafile which caused the alias error.\n\n   STOCKLOC-&gt;(DbGoTop())\n\n   DEFINE WINDOW oWnd TITLE \"Locations\" MENU MyLocMenu()\n\n   @ 1,2 LISTBOX oLbx FIELDS  STOCKLOC-&gt;ID,;\n  str(STOCKLOC-&gt;Rolls,4),str(STOCKLOC-&gt;CURR_VOL,10,2) ;\n     HEADERS \"Pot\",\"Rolls\",\"Current Vol\" SIZE 200,250 OF oWnd ;\n          FIELDSIZES 30,40,40 UPDATE\n\n   oLbx:blClicked := ;\n    {|nRow,nCol,nKeyFlags|  if(oLbx:nAtCol(nCol)=2,ShowRolls(),nil)}\n   oLbx:lCellStyle := .T.\n   oLBx:bSkip := {|nRecs| STOCKLOC-&gt;(DbSkipper(nRecs))}\n   oLbx:bLine := {|| {STOCKLOC-&gt;Id,;\n                      str(STOCKLOC-&gt;Rolls,4),;\n                      str(STOCKLOC-&gt;Curr_Vol,10,2)}}\n\n   ACTIVATE WINDOW oWnd\n\nI fixed this by opening the required files in Main()\n\nSecondly clicking the \'X\' on secondary windows now closes the entire application rather than returning to the previous window.\n\nI believe I can fix this by having the \"OK\" Icon instead of the \'X\' like in the various windows utilised in \'Pocket Word\'\n\nHow do I configure a window to use \'OK\' and return to the previous Window. I need windows rather than dialog in order to use menus.\n\nMany thanks.','',0,'gA==','3pbvws4b',1,0,'',133,0,0),(542,173,6,17,0,'80.58.38.235',1129626149,1,0,1,1,1,1,'','','hago tlib  lib\\fivehc.lib , fivehc.txt  y obtengo una lista de funciones que estan dentro de fivec.lib ahi está el módulo profile.c con sus funciones. \n\nAhora, ¿ como compilo el módulo profile.c , que parámetros... ?\n\nluego supongo que con el .obj  haciendo tlib \\lib\\fivehc.lib -+profile.objy listo, no?\n\nNecesito una pequeña ayuda, ...','',0,'gA==','34lnlyk5',1,0,'',17,0,0),(543,79,3,31,0,'195.182.84.105',1129626585,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2m2fnwaz]Rimantas,\n\n&gt;  At July-August I tried your libs with MS VC and found that they are buggy \n\nCould you please describe what bugs are them and how to reproduce them ? Thanks.[/quote:2m2fnwaz]\n  \n   Excuse me , but maybe I\'m not so patient <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> . Are any news about that ?\n\n   With best regards ! Rimantas .','',0,'gA==','2m2fnwaz',1,0,'',31,0,0),(544,111,6,21,0,'80.58.46.235',1129628110,1,0,1,1,1,1,'','','Hola Miguel,\n\nSi los tienes en un array prueba a realizar los siguiente\n\n[code:qu0tdohe]\nFor i&#58;= 1 to len&#40;aGet&#41;\n&#46;&#46;&#46;\n if aGet&#91;i&#93;&#58;ClassName&#40;&#41;==\'TGET\'\n   aGet&#91;i&#93;&#58;lReadOnly &#58;= &#46;T&#46;\n endif\n&#46;&#46;&#46;\nnext\n[/code:qu0tdohe]','',0,'AIA=','qu0tdohe',1,0,'',21,0,0),(546,175,4,2,0,'83.39.227.26',1129631441,1,0,1,1,1,1,'','','GWard,\n\nThere is a minor fix we need to implement. We may do it today and we will announce it to download the build again.','',0,'AIA=','200nakdf',1,0,'',2,0,0),(547,175,4,2,0,'83.39.227.26',1129634808,1,0,1,1,1,1,'','','DWard,\n\nThere is already a new build. Please download it and test it again. Thanks!','',0,'AIA=','2wne5ny5',1,0,'',2,0,0),(548,176,6,1,0,'80.58.10.235',1129635015,1,0,1,1,1,0,'Carlos Mora','Error de Hbr que no entiendo, me ayuudan a interpretar?','Dado\n[code:2lq9fgcd]\n      REDEFINE GET oGetCodigo VAR cCodigoP ID 10 OF oDlg ;\n         Valid If&#40; Cuentas-&gt;&#40; dBSeek&#40; Left&#40; cCodigoP, Len&#40; Cuentas-&gt;CodigoP &#41; &#41; &#41; &#41;, &#40; cNomCuenta&#58;= Cuentas-&gt;Empresa, &#46;T&#46; &#41;, &#46;F&#46; &#41;\n[/code:2lq9fgcd]\n\nObtengo \n\n[code:2lq9fgcd]\nMAKE Version 5&#46;0  Copyright &#40;c&#41; 1987, 1997 Borland International\n	c&#58;\\harbour\\bin\\harbour&#46;exe -i&#46;;c&#58;\\fwh\\include;c&#58;\\harbour\\include -p -n -m -q -es2 -gc0 &#46;\\Cartera&#46;prg -oobj\\Cartera&#46;hrb\nHarbour Compiler Alpha build 43&#46;0 &#40;Flex&#41;\nCopyright 1999-2004, http&#58;//www&#46;harbour-project&#46;org/\n\n&#46;\\Cartera&#46;prg&#40;1033&#41; Warning W0027  Meaningless use of expression&#58; \'Logical\'\n[/code:2lq9fgcd]\n\nNo entiendo que significa, que es lo sin sentido.\n\nSaludos','',0,'AIA=','2lq9fgcd',1,0,'',1,0,0),(549,176,6,141,0,'200.88.94.146',1129635950,1,0,1,1,1,1,'','','Hola,\n\nTe recomendaría proba una de dos (o las dos) cosas:\n\n- Enciera entre parentesis tambien el total de la expresión IF, o\n- Sustituye IF por IIF\n\nDime como te va entonces....\n\nSalu2,','',0,'AIA=','3i5szo0x',1,0,'',141,0,0),(550,177,3,160,0,'210.212.142.6',1129636608,1,0,1,1,1,0,'','TMail Class problems','Dear All,\n\nI tried the class using \\Samples\\TestMail.Prg.\n\nCan anybody guide me on following issues regarding the class :\n1) Can I send mail in HTML format ?\n2) How to CC and BCC ?\n3) It only takes one address in TO. If multiple are supplied, it \nconsiders only the last one.\n4) GPF occurs while trying to logon using MAPILogon()\n5) I have created multiple identity and password thereof in the \noutlook express. When I send message, it asks me to select \nidentity and password, sends message but exits without login off. \nAs a result somebody else can enter my identity without password.\n\nCan anybody guide me on above matters ?','',0,'AIA=','1s4qbjqk',1,0,'',160,0,0),(551,178,3,160,0,'210.212.142.6',1129636674,1,0,1,1,1,0,'','TSmtp class Problem','Dear All\n\nI am trying \\samples\\testsmpt.prg. While trying to send mail \n\nusing the tSmtp class, I get following error.\n\nundeliverable to <!-- e --><a href=\"mailto:lotusint@sancharnet.in\">lotusint@sancharnet.in</a><!-- e -->\n\nServer response to MAIL FROM:\n550 5.7.1 No Reverse DNS Entry for host: 210.212.142.16 - \n\nauthoritative host not found\n\nCan anybody guide me ?\n\nMilan.','',0,'AIA=','1i1quzei',1,0,'',160,0,0),(552,175,4,133,0,'80.176.234.174',1129638403,1,0,1,1,1,0,'','','Antonio,\n\nHelp!!\n\nHave just downloaded latest build now ALL applications and samples with a WINDOW fail with the error\n\nMessage not found\nTWINDOW:BINIT\nstack calls\n__ERRT_SBASE(0)\nHBOBJECT:ERROR(179)\n__EVAL(105)\nHBOBJECT:MSGNOTFOUND(0)\nTWINDOW:BINIT(169)\nMAIN(35)','',0,'AIA=','3gada86s',1,0,'',133,0,0),(553,175,4,2,0,'83.39.227.26',1129643824,1,0,1,1,1,1,'','','GWard,\n\nPlease download it again and try it again. many thanks for your feedback,','',0,'AIA=','3vec6whb',1,0,'',2,0,0),(554,168,6,36,0,'200.113.56.235',1129644804,1,0,1,1,1,0,'','','gustavo si utilizas indices ntx, debes enlazar la libreria dbfdbt\n\nsi utilizas indices cdx, has esto..\n\n[b:1lpm1jin]al principio del programa[/b:1lpm1jin]\nANNOUNCE RDDSYS\n\n[b:1lpm1jin]al final[/b:1lpm1jin]\nprocedure RddInit()\n   REQUEST HB_LANG_ES         //español\n   REQUEST DBFCDX, DBFFPT   //solo indice cdx\nreturn\n\nespero que te sirva\n\nSaludos\nPatricio','',0,'QA==','1lpm1jin',1,0,'',36,0,0),(555,176,6,1,0,'80.58.10.235',1129644846,1,0,1,1,1,0,'Carlos Mora','pos si','Si, esa eso nomás, poner entre parentesis la expresión. No se porque no se dá cuenta.\n\nGracias','',0,'QA==','1chtl245',1,0,'',1,0,0),(556,151,6,45,0,'201.252.213.228',1129647386,1,0,1,1,1,0,'','','[quote=&quot;Yannis&quot;:qtbmsv7d]Hernan, lo que describes es una maravilla !  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nLas celdas personalizadas abren nuevos horizontes, y desde ya estoy pensando como disfrutar este nuevo browser. \nFelicidades por este excelente trabajo !\n\nUn saludo[/quote:qtbmsv7d]\n\nExacto, si bien las celdas personalizadas hacen a la flexibilidad, NO hay que abusar de los tiempos de pintado, entonces ahi juega un papel muy importante cuan optimizado sea ese codigo. Si la funcion esta hecha en lenguaje C seria todo mas rapido, en PRG tambien seria posible, pero bueno, dependera de cuan complicada sea. Las pruebas hechas sobre PRG han sido satisfactorias realmente y comviene mucho usar el doble buffer en estos casos, casi obligatoriamente.\n\nSalu2','',0,'gA==','qtbmsv7d',1,0,'',45,0,0),(557,175,4,1,0,'80.176.234.174',1129649295,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1ab0adjh]GWard,\n\nPlease download it again and try it again. many thanks for your feedback,[/quote:1ab0adjh]\n\nLatest build appears excellent.\n\nIf I encounter any further problems I shall begin a seperate thread\n\nMany thanks for the impressive service','',0,'gA==','1ab0adjh',1,0,'',1,0,0),(558,175,4,133,0,'80.176.234.174',1129649432,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1i02gur8]GWard,\n\nPlease download it again and try it again. many thanks for your feedback,[/quote:1i02gur8]\n\nApologies for \'Guest\' post I thought I was logged in.','',0,'gA==','1i02gur8',1,0,'',133,0,0),(559,179,3,6,0,'82.61.69.71',1129649883,1,0,1,1,1,1,'','FWH and latest xHarbour from CVS','I think we need a new FWH build:\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWHARBOUR\\LIB\\FIVEHC.LIB|FFWNDRUN\n\nEMG','',0,'gA==','ugin7dym',1,0,'',6,0,0),(560,148,4,3,0,'82.120.153.186',1129650497,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1tnj5i6t]Jose,\n\nI have forwarded you a spanish email which describes quite well how to use a printer from the pocket pc.[/quote:1tnj5i6t] <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAntonio,\n\nIf you have the same document (or maybe a link) in English (or French), i am candidate,\n\nTia\n\nRichard','',0,'gA==','1tnj5i6t',1,0,'',3,0,0),(561,151,6,38,0,'87.202.48.133',1129652749,1,0,1,1,1,1,'','','Hernan, \nEntiendo lo que dices sobre la optimizacion del codigo. Es evidente que los .prg seran mucho mas lentos. Un trabajo mas para uno como yo que del lenguaje C no entiende un....\nPero, este browser ya es un paso gigante en adelante !!!.\nMuchas gracias por tu tiempo !\nUn saludo,','',0,'gA==','lmr3oe7f',1,0,'',38,0,0),(562,168,6,38,0,'87.202.48.133',1129653070,1,0,1,1,1,1,'','','Hola Gustavo,\nMira estos mensajes :\n[url:28agwv4y]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=109[/url:28agwv4y]\n\nUn saludo','',0,'EA==','28agwv4y',1,0,'',38,0,0),(563,148,4,2,0,'83.39.227.26',1129654882,1,0,1,1,1,1,'','','Richard,\n\nIts in spanish. Anyhow its quite technical so I guess its not difficult to understand it.','',0,'EA==','bgrf5097',1,0,'',2,0,0),(564,158,4,2,0,'83.39.227.26',1129655200,1,0,1,1,1,1,'','','Paul,\n\nTo capture a signature its not difficult. Just a empty window which detects mouse move events and call SetPixel() to do the drawing. Then it could be saved as a BMP file. \n\nFor a JPG file we need an additional routine, probably a google search may help.','',0,'EA==','2dki9gl6',1,0,'',2,0,0),(565,179,3,2,0,'83.39.227.26',1129655324,1,0,1,1,1,1,'','','Thanks Enrico. We are going to review it asap.','',0,'EA==','tsynbswb',1,0,'',2,0,0),(566,180,6,49,0,'87.1.179.148',1129655463,1,0,1,1,1,0,'','Error in Rpreview','the same code on  16 bit run ok \nOn 32 bit NOt printer in preview nothing  I see only white paper ..\n\nI have x harbour 0.99.51 and fw2.5\nSomeone an help me ,pls\n\nSilvio','',0,'EA==','1kqorr5r',1,0,'',49,0,0),(567,111,6,107,0,'80.58.24.107',1129655609,1,0,1,1,1,0,'','','gracias, pero ReadOnly solo lo puedo usar con los Gets, y el caso es que yo en el array de controles puedo tener CheckBox,  combobox, y botones.\n\nAntes, yo desahabilitaba los controles sin preocuparme de que tipo de control era el que estaba desactivando \n\nSi pudiera controlar el color con el que se muestran los objetos desactivados creo que podría solucionar el problema.\n\nEs posible cambiar durante la ejecución el color de los objetos desactivados.\n\nGracias','',0,'EA==','3efwkkoe',1,0,'',107,0,0),(568,111,6,21,0,'80.58.46.235',1129658021,1,0,1,1,1,1,'','','Hola\n\nSi se pueden cambiar los colores\n\n[code:1qpho6ws]For i&#58;= 1 to len&#40;aGet&#41; \n&#46;&#46;&#46; \n aGet&#91;i&#93;&#58;Disable&#40;&#41;\n aGet&#91;i&#93;&#58;SetColor&#40; CLR_BLACK, nRgb&#40;255,255,128&#41; &#41;\n&#46;&#46;&#46; \nnext [/code:1qpho6ws]\n\nYo cambio los colores para que los desabilitados se vean en negro con un fondo amarillo.','',0,'AIA=','1qpho6ws',1,0,'',21,0,0),(569,148,4,27,0,'62.174.195.220',1129659504,1,0,1,1,1,1,'','','These guys sell plugin SD Digital Scan Cards. \n\n<!-- m --><a class=\"postlink\" href=\"http://www.socketcom.com/product/IS5300-464.asp\">http://www.socketcom.com/product/IS5300-464.asp</a><!-- m -->\n\nThe Secure Digital Scan Card (SDSC) 3E is a Series 3 Entry Level scanner that adds affordable bar code scanning to your Pocket PC or Palm device. Based on miniature Linear CMOS Imaging technology from Symbol Technologies, the SDSC 3E scans all popular linear bar code symbologies and uses only 57mA of power during scanning to maximize battery life. SocketScan keyboard emulation software sends decoded data to any Windows or Palm application as virtual keystrokes.\n\n\nI\'ll be trying one out next week.','',0,'AIA=','41rj8wy7',1,0,'',27,0,0),(570,111,6,107,0,'80.58.24.107',1129659601,1,0,1,1,1,0,'','','Gracias por la respuesta, pero no consigo hacer que un get deshabilitado tenga otro color de fondo, el color se activa cuando sel get vuelve a habilitarse\n\nUn saludo','',0,'AIA=','2ee6hyb4',1,0,'',107,0,0),(571,148,4,6,0,'87.3.184.28',1129660258,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1rk690jy]Richard,\n\nIts in spanish. Anyhow its quite technical so I guess its not difficult to understand it.[/quote:1rk690jy]\n\nCan I have it too, please?\n\nEMG','',0,'gA==','1rk690jy',1,0,'',6,0,0),(572,181,6,1,0,'24.147.25.226',1129661236,1,0,1,1,1,0,'George Abinader','Webcam y Fivewin','He tratado de usar la clase webcam32.prg de Cesar E. Lozada para tomar fotos desde mi aplicacion fivewin, pero siempre consigo un GPF error cuando la aplicacion trata de usar la siguiente funcion:\n*********************************************************\nDLL32 STATIC FUNCTION wCamCreaWnd;\n     (cTitle AS STRING,;\n      nStyle AS LONG,;\n      x AS LONG, y AS LONG, nWidth AS LONG, nHeight AS LONG,;\n      hWndParent AS LONG, nID AS LONG) AS LONG PASCAL;\n      FROM &quot;capCreateCaptureWindowA&quot; LIB &quot;avicap32.dll&quot;\n**********************************************************\nEsta es la funcion que trata de capturar la imagen.\n\nMi configuracion es:\nxHarbour Personal Feb 2005\nFWH Version 2.5\nWindows XP Pro\n\nAlguien que haya usado esta clase me puede dar una sugerencia?\n\nSaludos\n\n\nGeorge','ee50b0d03d0ad93f9e80d7581e5070ae',0,'','bviopm9d',1,0,'',1,0,0),(573,148,4,2,0,'83.39.227.26',1129661980,1,0,1,1,1,1,'','','I have asked permission to the author of the msg to post it here so everybody can read it.','',0,'gA==','2tsixcu0',1,0,'',2,0,0),(574,181,6,2,0,'83.39.227.26',1129662060,1,0,1,1,1,1,'','','George,\n\nPor favor regístrate en el foro. Son sólo unos minutos. Gracias.','',0,'gA==','1l4jlayx',1,0,'',2,0,0),(575,182,3,167,0,'64.91.126.182',1129662419,1,0,1,1,1,1,'','Folder Scroll Bar Question','If a folder is re-sized smaller than the width of all tabs, a scrollbar automatically appears, presumably from the Windows API( ? ) \n\nCan FWH \"scroll\" the folder tabs if the \"arrows\" are clicked?  If yes, how to activate.  If no, how to assign a code block action to this folder scroll?','',0,'gA==','3pze3aab',1,0,'',167,0,0),(576,181,6,171,0,'24.147.25.226',1129663784,1,0,1,1,1,0,'','','Ya lo hice Antonio  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2wu8dj3x',1,0,'',171,0,0),(577,183,2,172,0,'201.153.116.81',1129664406,1,0,1,1,1,1,'','Programa para red','Hola, me gustaria saber si alguien de ustedes me puede facilitar algun manual sobre funciones que se deben utilizar, etc para hacer un programa que funcione en red, ya que soy nueva en eso.\n\nGracias.','',0,'gA==','1kqpvg3u',1,0,'',172,0,0),(578,147,2,1,0,'81.39.193.250',1129664974,1,0,1,1,1,0,'Manuel','Configuracion de gets','Gracias Manuel, pero mi gran probles es que aunque el Clipper lo domino bastan bien, las OOP no ya que hasta ahora no he tenido necesidad de ello. el caso es que no tengo ni idea de que tendria que hacer para modificar un metodo de una deteminada clase ni que herramientas necesito. Hay alguna documentacion donde aprender lo relativo a OOP asi como se utilizan los metodos, clases etc.\n\nGracias y saludos.  Paco Carrasco','',0,'gA==','2xiuwacn',1,0,'',1,0,0),(579,111,6,21,0,'80.58.46.235',1129666869,1,0,1,1,1,1,'','','Intentar poner algo del código para probarlo, \n\nYo juego mucho con los colores en los gets y no tengo ningun problema.\n\nPor ejemplo desabilito, habilito según el bChange de un checkbox, el valid de Get...','',0,'gA==','1m7wug7a',1,0,'',21,0,0),(580,183,2,54,0,'201.144.47.11',1129670433,1,0,1,1,1,1,'','Re: Programa para red','[quote=&quot;Maritza Rodriguez&quot;:2480i00t]Hola, me gustaria saber si alguien de ustedes me puede facilitar algun manual sobre funciones que se deben utilizar, etc para hacer un programa que funcione en red, ya que soy nueva en eso.\n\nGracias.[/quote:2480i00t]\n\nUSE midbf ALIAS \"mialias\" NEW SHARED\nmialias-&gt;(DBAPPEND())\nmialias-&gt;(DBRLOCK())\n    mialias-&gt;NOMBRE := \"William\"\n    mialias-&gt;APELLIDO := \"Morales\"\nmialias-&gt;(DBRUNLOCK())\nmialias-&gt;(DBCLOSEAREA())','',0,'gA==','2480i00t',1,0,'',54,0,0),(582,185,19,1,0,'80.58.1.235',1129672230,1,0,1,1,1,0,'guest','VII CONGRESO OLIVARES 2000. Abierto plazo de inscripción.','En\n\n<!-- m --><a class=\"postlink\" href=\"http://www.olivares2000.org/modules.php?name=listacursos\">http://www.olivares2000.org/modules.php ... istacursos</a><!-- m -->\n\nestá publicada la agenda de ponencias y abierto el plazo de inscripción.','',0,'gA==','1e9ytqz5',1,0,'',1,0,0),(583,179,3,167,0,'64.91.126.182',1129672871,1,0,1,1,1,1,'','','In the \"new build\" please look at the error message I receive from the previewer\n\n\"can\'t delete enhanced metafile\"\n\nthanks.','',0,'gA==','1ejqndsw',1,0,'',167,0,0),(584,133,1,86,0,'81.83.185.136',1129681133,1,0,1,1,1,1,'','','Is it possible to translate the message to English ?\n\nCan you tell me where the file DMTwain.dll can be found ? Or can you send me a copy of this file ?\n\nThanks.','',0,'gA==','2gohlsdl',1,0,'',86,0,0),(585,186,6,79,0,'200.8.16.156',1129690960,1,0,1,1,1,0,'','IsPrinter() en Harbour','Estimados Amigos ,\n\n\nNecesito la funcion IsPrinter o otra solucion para que una impresora NO windows pueda saber si esta lista o no\nUso la funcion standar  TDosPrn() que viene con fivewin \n\nUso Harbour 45.0 (Flex) + BCC 5.5 + FWH26\n\nGracias \n\nMario Gonzalez\n<!-- e --><a href=\"mailto:mario.gonzalez@jhennyran.com\">mario.gonzalez@jhennyran.com</a><!-- e -->','',0,'gA==','2114ocdp',1,0,'',79,0,0),(586,187,1,1,0,'203.151.140.118',1129693149,1,0,1,1,1,0,'Pe N Chi','Dialog and TWBrowse','Dear all,\n\nCan I ask for something ? Have someone ever done Transparant TWBrowse or Transparant Dialog ? I\'m looking for example to learn and understand a both.\n\nThank you in advance\n\nBest Regrad,\n\nPe N Chi','',0,'gA==','5d1xlvc4',1,0,'',1,0,0),(587,151,6,73,0,'201.132.230.32',1129693249,1,0,1,1,1,0,'','Re: una de wbrowse...','En efecto,  no entiendo nada de .c asi que mejor ahi le dejo, no se me da,  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nGracias a ambos Antonio y Hernan\nSalu2\nPaco','',0,'gA==','lmtewb9u',1,0,'',73,0,0),(588,181,6,38,0,'83.235.16.128',1129705058,1,0,1,1,1,1,'','','Hola George,\nMe podrias decir donde encuentro la clase webcam32.prg ?\n\nDe antemano muchas gracias !\nUn saludo','',0,'gA==','sqkh04ch',1,0,'',38,0,0),(589,188,6,102,0,'80.224.235.17',1129708449,1,0,1,1,1,1,'','Problemas al enviar email\'s','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Hola Chicos:\nTengo una aplicación en la que mando email\'s.\nEste es el código:\n\n[color=blue:37nj1bdw]Static Function EnviaMensage(oDlg)\n   Local oMail,CorreoElectronico := AllTrim(Emp-&gt;C_EMAIL)\n   DEFINE MAIL oMail ;\n      SUBJECT \"Envio de email...\" ;\n      TEXT \"Esto es un mensaje de prueba\" ;\n      FROM USER ;\n      FILES   \"c:\\fwh26\\samples\\testmail.prg\", \"testmail.prg\" ;\n      TO  (CorreoElectronico),(CorreoElectronico) ;\n      RECEIPT\n   ACTIVATE MAIL oMail\nReturn nil[/color:37nj1bdw]\nCuando accedo a esta funcion me sale la ventana de Outlook y todo va bien, pero\ncuando pincho en enviar, me deberia de salir la ventana de conexion de Outlook\nindicando el porcentaje de salida del mensaje.\nSin embargo me sale una ventana en la que no se ve nada.\nEl caso es que el mensaje si que lo envia y luego vuelve a la ventana anterior.\nVuelvo a repetir lo mismo y sigue saliendo esta ventana sin ver nada.\nAlguien puede decirme que pasa?\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> Por cierto: ¿Alguien puede decirme como adjunto una imagen?\n\nMuchas gracias','',0,'Ag==','37nj1bdw',1,0,'',102,0,0),(590,189,16,2,0,'83.39.227.26',1129712525,1,0,1,1,1,1,'','FTDN July-September ready','FTDN July/September build is ready to be downloaded. FWH users may download the new FWH build too.\n\nAlong these months we have been mainly focused on FiveWin for Pocket PC development, also we took some holidays on August, this is why we have been delayed to deliver this build.\n\nWe plan to deliver a new FTDN build by end of October.','',0,'Ag==','2lx2007k',1,0,'',2,0,0),(591,190,16,2,0,'83.39.227.26',1129712755,1,0,1,1,1,1,'','FTDN Julio-Septiembre disponible','El build de Julio/Septiembre de FTDN está preparado para ser descargado.\nLos usuarios de FWH pueden tambien descargar el nuevo FWH build.\n\nEn estos meses hemos estados principalmente ocupados en el desarrollo de FiveWin para Pocket PC, también tuvimos algo de vacaciones en Agosto, razones por las que hemos tenido este retraso en entregar este nuevo build.\n\nTenemos previsto ofrecer un nuevo build de FTDN para finales de Octubre.','',0,'Ag==','3mqli0yy',1,0,'',2,0,0),(592,183,2,88,0,'82.150.2.20',1129714283,1,0,1,1,1,1,'','','Buenas Maritza,\n\nlo que te ha puesto [b:1ctdie2b]Wmormar[/b:1ctdie2b] son las funciones para el control de bases de datos a traves de la red.\n\nYo te aconsejaria que buscases por la red material didactico gratuito, [i:1ctdie2b][url:1ctdie2b]http&#58;//www&#46;google&#46;com[/url:1ctdie2b]  rulz![/i:1ctdie2b].\n\nPero, si tienes el Fivewin, en el directorio [directorio del FW]\\MANUAL\\ tienes dos archivos, el FWPROG.HLP y el FWFUN.HLP, que son [b:1ctdie2b]fundamentales [/b:1ctdie2b] guias de consulta, sobre todo si eres novata en esto. Alli encontraras todo lo que buscas, o en su defecto, la gran mayoria.\n\n\nSiempre tendras el foro para consultar tus dudas.\n\n\nUn saludo.\n\n\nNos leemos!!','',0,'cA==','1ctdie2b',1,0,'',88,0,0),(593,179,3,31,0,'195.182.84.105',1129718185,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2uvc1c5h]Thanks Enrico. We are going to review it asap.[/quote:2uvc1c5h]\n\n   In xharbour.news I saw that the news of FWH is in \"What is new\" , but I didn\'t found where it\'s ... It seems that the olds libs with new xharbour builds have problems ? Or not ? I tried with the latest xHarbour from CVS and as Enrico gived the same errors . Maybe it\'s xharbour development teams problems ? \n\n   With best regards ! Rimantas .','',0,'gA==','2uvc1c5h',1,0,'',31,0,0),(594,179,3,2,0,'83.39.227.26',1129718634,1,0,1,1,1,1,'','','Rimantas,\n\nWe have not tested it yet. We will do asap.','',0,'gA==','3un4fi02',1,0,'',2,0,0),(595,173,6,17,0,'80.58.38.235',1129722713,1,0,1,1,1,1,'','Solucionado con TTxtFile','Al final lo he solucionado con la clase TTxtFile sólo para ciertos oIni con entradas muy grandes, utilizo:\n\nLOCAL  oIni := TTxtFile():New(::oIni:cIniFile)\n  oIni:nMaxLineLength := 3000\n  cState := oIni:GetValue( ::cSection, \"Estado\", \"\" )\n  oIni:End()\n\nBueno, pues listo.\nUn saludo','',0,'gA==','3653z8nc',1,0,'',17,0,0),(596,173,6,2,0,'83.39.227.26',1129722867,1,0,1,1,1,1,'','','Jesus,\n\nVamos a mirar modificar la función. Lo hacemos lo antes posible. Gracias,','',0,'gA==','d3rt9881',1,0,'',2,0,0),(597,191,3,67,0,'83.134.49.148',1129723595,1,0,1,1,1,0,'','GPF With FWH SEPTEMBER 2005','Hello,\n\nI tryed to recompile a big aplication with the september release , but had to return to the previous release , due to a gpf (xbrowse)\n\nFrank','',0,'gA==','1t6jkag9',1,0,'',67,0,0),(598,163,6,141,0,'200.88.94.147',1129723874,1,0,1,1,1,1,'','','Antonio,\n\nLa manera es simple:  pregunta sobre la facilidad de incluir manejo de RSS al proveedor del servicio de este foro.\n\nAvisanos,','',0,'gA==','2gtpwhne',1,0,'',141,0,0),(599,181,6,171,0,'24.147.25.226',1129725966,1,0,1,1,1,0,'','','Yannis,\n\nSi quieres te la puedo enviar a tu email, enviame un email y te hago un reply con el attachment.\n\nA proposito, la clase trabaja PERFECTA! con Harbour y xHarbour de libre uso (Mas FWH) . El problema solo se presenta cuando uso el xBuilder con la version comercial de xHarbour. \n\nEsta clase es un excelente aporte a la comunidad Fivewin de parte de Cesar Lozada\n\n\nSaludos, \n\n\nGeorge','',0,'gA==','i4nlo9a2',1,0,'',171,0,0),(600,192,3,6,0,'87.3.232.119',1129727477,1,0,1,1,1,1,'','Bug in TIcon','This is the sample:\n\n[code:2uo6nd3f]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define IDI_QUESTION    MAKEINTRESOURCE&#40; 32514 &#41;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oIcon\n\n    DEFINE DIALOG oDlg;\n           COLOR CLR_BLACK, CLR_CYAN\n\n    @ 1, 1 ICON oIcon OF oDlg\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oIcon&#58;hIcon &#58;= LOADICON&#40; 0, IDI_QUESTION &#41;;\n             CENTER\n\n    RETURN NIL[/code:2uo6nd3f]\n\nThe offending code seems to be\n\nMETHOD EraseBkGnd() VIRTUAL  // for transparency on dialogs\n\nfrom icon.prg.\n\nEMG','',0,'AIA=','2uo6nd3f',1,0,'',6,0,0),(601,192,3,6,0,'87.3.232.119',1129728038,1,0,1,1,1,1,'','Re: Bug in TIcon','I forgot to describe the problem: the sample shows a square of different color around the icon.\n\nEMG','',0,'AIA=','2p7yykmk',1,0,'',6,0,0),(602,193,6,177,0,'194.30.62.6',1129731945,1,0,1,1,1,0,'','Uso del editor de recursos de PellesC con Fivewin','Buenas,\n\nalguién ha usado el editor de recursos de PellesC con Fivewin ?\n\nSaludos.','',0,'AIA=','1sufftbp',1,0,'',177,0,0),(603,194,3,178,0,'69.40.205.125',1129732490,1,0,1,1,1,1,'','__hbload and __hbdo','Hello All,\n\nI have been playing with the __hbload and __hbdo and get the\nfollowing error.\n\n\n Error BASE/9999  Unknown or unregistered symbol: MSGNOYES\n\n\nAny advice?\n\n\nThanks\nDave','',0,'AIA=','30p7olil',1,0,'',178,0,0),(605,196,6,36,0,'200.113.56.235',1129734986,1,0,1,1,1,0,'','imagen al inicio del sistema','Estimados\n\n    Hay alguna forma de colocar una imagen bmp sin necesidad de hacer una por cada resolucion de pantalla\n\nlo hago se la siguente manera\n\n   DEFINE WINDOW _oWnd TITLE \'Sistema \";\n        COLOR Rgb( 130, 130, 130 ), Rgb( 130, 130, 130 )       ;\n        MENU BuildMenu()                     ;\n        MENUINFO 2                     ;\n        MDI\n\nDEFINE BITMAP oBmp FILE \"Imagen\\Fondo.bmp\" OF _oWnd\n\nbla....bla..\n\nACTIVATE WINDOW _oWnd MAXIMIZED              ;\n               ON PAINT DrawBitmap( hDC, oBmp:hBitmap,         ;\n      ( _oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ),   ;\n      ( _oWnd:nWidth() / 2 ) -  ( oBmp:nWidth() / 2  ),0,0 )\n\n\nEl problema que si cambian la resolucion es bmp no sale\n\nalguna sugerencia\n\nSaludos\nPatricio','',0,'AIA=','54a0lqie',1,0,'',36,0,0),(607,191,3,2,0,'83.39.227.26',1129737835,1,0,1,1,1,1,'','','Frank,\n\nAre you able to provide a sample to reproduce it ? Could you also generate a map file and see on what address is it GPFing ? Don\'t you get the calls stack list on a MsgAlert() ?','',0,'AIA=','1fbjs7wc',1,0,'',2,0,0),(608,182,3,2,0,'83.39.227.26',1129738283,1,0,1,1,1,1,'','Re: Folder Scroll Bar Question','[quote=&quot;don lowenstein&quot;:10opp9jy]Can FWH \"scroll\" the folder tabs if the \"arrows\" are clicked?[/quote:10opp9jy]  \n\nYes,\n\n[quote=&quot;don lowenstein&quot;:10opp9jy]If yes, how to activate.  If no, how to assign a code block action to this folder scroll?[/quote:10opp9jy]\n\nJust check that your class TFolder in source\\classes\\folder.prg has this method:\n\n[code:10opp9jy]METHOD HScroll&#40; nWParam, nLParam &#41; VIRTUAL[/code:10opp9jy]','',0,'gIA=','10opp9jy',1,0,'',2,0,0),(609,192,3,2,0,'83.39.227.26',1129738452,1,0,1,1,1,1,'','','Enrico,\n\nhave you tried to assign it a \"NULL\" brush ?','',0,'gIA=','3m1lvfcj',1,0,'',2,0,0),(610,192,3,6,0,'87.3.232.119',1129738784,1,0,1,1,1,1,'','','How?\n\nEMG','',0,'gIA=','2t8wx6s0',1,0,'',6,0,0),(611,133,1,47,0,'58.8.243.201',1129739948,1,0,1,1,1,0,'','tscanner problem (scan all include backgroup area)','Dear All,\n\nI use tscanner with DMTwain.dll but it has some problem with some scanner machine.  I\'ve used Hp SJ3300c in my office, it works fine but other machine such as Hp SJ2400 does not crop the image area when I scan.  For example when I scan my ID card with Hp Director, it crop the image only my ID card area (118Kb) but the tscanner from my program scan all area include white backgroup (almost 3 Mb).  I try to setting Automatic crop in Hp Director Setting but it has no effect.\n\nThanks for any help and idea,\nDutch','',0,'gIA=','2jykjtkj',1,0,'',47,0,0),(612,166,3,2,0,'83.39.227.26',1129740965,1,0,1,1,1,1,'','','Don,\n\nHave you check if there are others EMF files in your windows TEMP (GetEnv(\"TEMP\")) directory ?\n\nDoes the report preview remains open ?\n\nCould you provide a sample to reproduce it ? Thanks.','',0,'gIA=','2141god5',1,0,'',2,0,0),(613,164,3,2,0,'83.39.227.26',1129741086,1,0,1,1,1,1,'','','Don,\n\nThose methods are related to \"double buffer painting\" technique. This technique avoids flickering but it is more time consuming.\n\nYou can have them as VIRTUAL, there is no problem on that.','',0,'gIA=','3jmtif8j',1,0,'',2,0,0),(614,192,3,2,0,'83.39.227.26',1129741193,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:119sl56g]How?[/quote:119sl56g]\n\n[code:119sl56g]\nACTIVATE DIALOG oDlg; \n   ON INIT &#40; oIcon&#58;hIcon &#58;= LOADICON&#40; 0, IDI_QUESTION &#41;,;\n             oIcon&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41; &#41; ; \n   CENTER[/code:119sl56g]','',0,'gIA=','119sl56g',1,0,'',2,0,0),(615,166,3,2,0,'83.39.227.26',1129741357,1,0,1,1,1,1,'','','Don,\n\nCould you please test samples\\TestPrn2.prg and check if it works ok for you ? Here it works ok. Thanks.','',0,'gIA=','3pj0sgle',1,0,'',2,0,0),(616,197,6,73,0,'201.135.53.236',1129741889,1,0,1,1,1,0,'','otra de wbrowse','Hola foro,\nNuevamente con una pregunta de la wbrowse..\nTengo un browse de 5 columnas la primera columna pinta un bitmap, y tengo activo por celdas individuales el movimiento, como le hago para que cuando muevo el puntero de celda a la primer columna no se posicione ahi que se siga quedando en la columna 2, sino que nomas me pueda mover de la columna 2 a la 5, o sea bloquear la columna 1 ( no freeze) no uso array ni edicion unicamente muestra uan dbf\nSalu2\nPaco','',0,'gIA=','2pv38xnf',1,0,'',73,0,0),(617,10,6,93,0,'201.152.249.52',1129742052,1,0,1,1,1,0,'','Hola Antonio','No había tenido tiempo de felicitarte por este nuevo espacio. Honestamente me agradan más las news, pero a todo se acostumbra uno.\n\nMuchas gracias y esperemos que este cambio funcione y sea para mejor.\n\nSaludos!!\n\nFernando Castro\nMéxico, D.F.','',0,'gIA=','23x7xnuo',1,0,'',93,0,0),(618,196,6,40,0,'201.132.137.86',1129742081,1,0,1,1,1,0,'','Imagen BMP','Patricio Yo, utilizo esto para colocar un JPG\n\nnJpgAlto   :=228    // Alto  del JPG\nnJpgAncho:=251    // Ancho del JPG\nnMaxAlto  :=GetSysMetrics(1)    // Altura de Conf. del monitor en Pixeles\n nMaxAncho:=GetSysMetrics(0)  // Ancho  de Conf. del monitor en Pixeles\n nRenJpg    :=(nMaxAlto /2)-(nJpgAlto /2)-30\n nColJpg     :=(nMaxAncho/2)-(nJpgAncho/2)\n\n cJPGFile:=\'\\IMAGENES\\LOGOSCA.JPG\'\n @nRenJpg,nColJpg IMAGE oBmp FILENAME cJPGFile SIZE 228,251 PIXEL NOBORDER OF oPpal\n\nSaludos espero te sirva\nJoel Andujo','',0,'gIA=','3rqk8anh',1,0,'',40,0,0),(619,34,6,93,0,'201.152.249.52',1129742194,1,0,1,1,1,0,'','Hola','El maestro The Full creó una clase que se llama TCapture, escribeme y con gusto te la envío.\n\n<!-- e --><a href=\"mailto:gersomfernando@yahoo.com\">gersomfernando@yahoo.com</a><!-- e -->\n\n\nSaludos!!','',0,'gIA=','1he1r7mz',1,0,'',93,0,0),(620,193,6,2,0,'83.39.227.26',1129742890,1,0,1,1,1,1,'','','Hola Felix,\n\nSí, lo usan muchos usuarios de FWH.','',0,'gIA=','ffswpprj',1,0,'',2,0,0),(621,193,6,131,0,'193.145.234.34',1129744560,1,0,1,1,1,0,'','re:','Félix:\n<!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/000061.html\">http://www.avemundi.com/archivos/000061.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/000080.html\">http://www.avemundi.com/archivos/000080.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/000161.html\">http://www.avemundi.com/archivos/000161.html</a><!-- m -->\n\nSaludos,','',0,'gIA=','vajlfgxw',1,0,'',131,0,0),(622,192,3,6,0,'87.3.232.119',1129745214,1,0,1,1,1,1,'','','Sorry, no change:\n\n[code:2u1x1qux]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define IDI_QUESTION    MAKEINTRESOURCE&#40; 32514 &#41;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oIcon\n\n    DEFINE DIALOG oDlg;\n           COLOR CLR_BLACK, CLR_CYAN\n\n    @ 1, 1 ICON oIcon OF oDlg \n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oIcon&#58;hIcon &#58;= LOADICON&#40; 0, IDI_QUESTION &#41;,;\n                       oIcon&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41; &#41;;\n             CENTER\n\n    RETURN NIL[/code:2u1x1qux]\n\nEMG','',0,'AIA=','2u1x1qux',1,0,'',6,0,0),(623,198,7,179,0,'64.46.80.210',1129747529,1,0,1,1,1,1,'','Para Antonio - FwPocket','Antonio, un cliente mio necesita que le desarrolle un soft para pocket Pc, antes de comprarte necesito me ayudes con cual Pocket Pc debo comprar\nMarca Modelo para que me funcione bien Fw Pocket Pc\ny ademas que software adicional necesito\n\nSaludos\nAtt\n\nWilson','',0,'AIA=','9n8hm70f',1,0,'',179,0,0),(624,196,6,36,0,'200.113.56.235',1129749666,1,0,1,1,1,0,'','','Joel \n\nconsulta, con lo que tu dices puedes agrandar la pantalla o achicar sin que el dibujo se pierda\n\nsaludos\nPatricio','',0,'AIA=','1ywvamff',1,0,'',36,0,0),(625,196,6,36,0,'200.113.56.235',1129750969,1,0,1,1,1,0,'','Resuelto!!','!!Resuelto!!\n\n    La verdad que sucede solo con xp, y la solucion la encontre en fivetilus\n\n\nACTIVATE WINDOW _oWnd MAXIMIZED ;\n  ON PAINT  BmpTiled( hDC, _oWnd, oBmp )\n\n\nSTATIC FUNCTION BmpTiled( hDC, oWnd, oBmp )\n\nlocal nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()\nlocal nRow := 0, nCol := 0, n\nlocal nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight()\n\nif oBmp:hBitmap == 0\n return nil\nendif\n\nwhile nRow &lt; nHeight\n nCol = 0\nwhile nCol &lt; nWidth\n PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )\n nCol += nBmpWidth\nend\n nRow += nBmpHeight\nend\n\nreturn nil\n\n\nsaludos\nPatricio','',0,'AIA=','35dleh04',1,0,'',36,0,0),(626,166,3,167,0,'64.91.126.182',1129751001,1,0,1,1,1,1,'','','I have isolated the problem.\n\nEmbarassingly (?) I must report the problem was due to \"old sloppy coding\".\n\nHere is what happened.\n\nIn my library, I coded:\n\noReport:End() after calling the report-preview process.  Apparently, this was needed at one point many years ago.\n\nProblem was, your preview processor ended the report from within the Play() method.  The enhanced metafile was deleted during this process.\n\nWhen I called oreport:end() the oreport:device:end() method attempted to delete the metafile (which was deleted from the ::play() - ::end() - ::endpage() method) and the resultant error occured.\n\nConsequently, when I called oreport:end() there was no metafile to delete - hence the error.\n\nI\'m not sure why this \"old sloppy code\" of mine did not produce a problem with prior versions (fwh 2.5 and Harbour .44).  But the important thing is I\'m ok now.\n\nThanks for your continued service and excellent product.  Sorry for \"venting\" off-line.  Just goes to show, most computer \"users\" (me in this case) are inherintly lazy, but, if the developers ( you in this case )make the users think a bit on their own, the users usually figure it out on their own.\n\nSincerely,\n\ndon','',0,'AIA=','2gblpwd2',1,0,'',167,0,0),(627,182,3,167,0,'64.91.126.182',1129751244,1,0,1,1,1,1,'','','No, that method is not in my folder.prg\n\nIs there a more recent library of fwh 2.6 that contains it?\n\nI can add it to the folder.prg, but I don\'t like to, modify your source code and link it in.  It is, however, much easier to link in your libraries than to add several individual prg / obj modules.','',0,'AIA=','27s1u0sm',1,0,'',167,0,0),(628,193,6,177,0,'62.99.99.189',1129751917,1,0,1,1,1,0,'','','Antonio, José Luis,\n\nmuchas gracias a los dos.\n\nSaludos','',0,'AIA=','jlm40ugs',1,0,'',177,0,0),(629,193,6,75,0,'80.58.11.235',1129754008,1,0,1,1,1,0,'','','<!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->\nA mi lo que no me convence es que me falla en la importación de los recursos creados con WS.\n\nHago lo siguiente:\n  1.- Con WS grabo los recursos en formato RES\n  2.- Con Pelles C los importo sin problemas.\n  3.- Y ahora, al modificar cualquier cosa de un diálogo, al volver a entrar en  el Pelles C para verlo me han desaparecido la mayor parte de los controles controles.\n\nEs un comportamiento anómalo que no logro corregir.\n\nSi a alguien le ha pasado y lo ha resuelto le ruego me explique como lo ha hecho.\n\nSaludos.','',0,'AIA=','73ubl1gx',1,0,'',75,0,0),(630,147,2,180,0,'83.35.123.220',1129754217,1,0,1,1,1,0,'','','Sencillo. Solo tienes que coger el fichero TGET.PRG (está en la carpeta /SOURCE/CLASSES) modificarlo como ya te apunté en el mensaje anterior y compilarlo/enlazarlo con el restos de tus .prg,s.\n\nUn saludo,\nManuel','',0,'AIA=','1hhxq0qe',1,0,'',180,0,0),(631,199,19,7,0,'200.79.144.183',1129757529,1,0,1,1,1,0,'','Fivewin 1.0','Me encontre este viejo articulo sobre fivewin.\n================================\n\n\nCompilador de Clipper para Windows.\n\n\n/ <!-- e --><a href=\"mailto:duhlcar@ctv.es\">duhlcar@ctv.es</a><!-- e --> / 19/01/99 \n\nSoy usuario de Clipper. Hace unos meses se anunció un compilador llamado Five 1.0, de 32 bits, compatible Clipper, que estaría disponible el último trimestre de 1997. Localicé un web tratando el tema (<!-- w --><a class=\"postlink\" href=\"http://www.ozs.com\">www.ozs.com</a><!-- w -->) y pedí información más detallada pero aún no me han contestado, ¿sabéis algo de este compilador? ¿Cuándo sale al mercado?\n\nEsta es la primera noticia que tenemos de la existencia de un compilador de Clipper para entornos Windows de 32 bits. Si bien la existencia de una herramienta de este tipo puede resultarle interesante a muchos programadores habituados al lenguaje Clipper, debe tener en cuenta que en la actualidad existen herramientas de programación que proporcionan unas capacidades de acceso a bases de datos mucho más amplias, como por ejemplo Delphi. Tenga en cuenta, además, que muchas de las aplicaciones desarrolladas en Clipper que aún se mantienen en funcionamiento corren sobre máquinas que en la actualidad se pueden considerar como obsoletas (sistemas 486 con poca memoria RAM) que no serían capaces de ejecutar de forma razonable un sistema operativo Windows de 32 bits como Windows 95 y mucho menos Windows NT. Eugenio Barahona Marciel','',0,'AIA=','1bxdx8tu',1,0,'',7,0,0),(632,198,7,2,0,'83.39.227.26',1129760623,1,0,1,1,1,1,'','','Wilson,\n\nBasicamente existen tres tipos de Pocket PC: compatibles \"ARM\", compatibles \"SH\" y compatibles \"MIPS\". Microsoft ha desarrollado sus herramientas centrandose fundamentalmente en el \"ARM\". Por ejemplo, el emulador que se usa para probar las aplicaciones para el Pocket PC, sólo emula \"ARM\".\n\nAhora bien, si preguntas esto en un comercio en donde vendan Pocket PCs, no tendrán ni idea, ya que esta información es muy técnica.\n\nLo idóneo es que descargues algunas de las demos que proporcionamos desde <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwppc.html\">http://www.fivetechsoft.com/spanish/fwppc.html</a><!-- m --> , que las copies a una tarjeta de memoria tipo \"SD\" (existen lectores de tarjetas desde el PC a 6 dólares aproximadamente) y que insertes la tarjeta en el Pocket PC y pruebes nuestras demos. Si arrancan correctamente entonces es que el procesador que lleva el Pocket PC es compatible tipo \"ARM\".\n\nUn micro muy usado, y que es compatible \"ARM\", es el Intel PXA255. Es el micro que usa, por ejemplo, el Pocket PC de HP iPAQ que nosotros usamos para las pruebas en un Pocket PC real. El mismo software funciona en el emulador de Microsoft, sin problemas.\n\nEn cuanto a software adicional, no tienes necesidad de comprar nada más. Nosotros te proporcionamos todo lo necesario, de forma que solo tienes que instalar y comenzar a desarrollar. Adicionalmente existen utilidades que puedes comprar para hacer ciertos tipos de impresión, etc. pero eso ya depende de las necesidades especificas de la aplicación que vayas a desarrollar.','',0,'AIA=','29wpp3an',1,0,'',2,0,0),(633,182,3,2,0,'83.39.227.26',1129761053,1,0,1,1,1,1,'','','Don,\n\nPlease review the \"WhatsNew\" section on these forums to know what FWH version is the most recent one. Thanks.','',0,'AIA=','2en4h9zh',1,0,'',2,0,0),(634,192,3,2,0,'83.39.227.26',1129761107,1,0,1,1,1,1,'','','Enrico,\n\nI assume you are using XP and themes enabled, right ?','',0,'AIA=','xuwepmr3',1,0,'',2,0,0),(635,166,3,2,0,'83.39.227.26',1129761219,1,0,1,1,1,1,'','','Don,\n\nCongratulations for solving it. We are happy to know its ok now.','',0,'AIA=','2wpcr6bs',1,0,'',2,0,0),(636,153,3,2,0,'83.39.227.26',1129761312,1,0,1,1,1,1,'','','Silvio,\n\nCould you please try samples\\TestPrn2.prg and check if it works ok for you ? Here it works ok. Thanks.','',0,'AIA=','2y4iww21',1,0,'',2,0,0),(637,180,6,53,0,'148.221.81.43',1129765970,1,0,1,1,1,0,'','','Silvio:\n\nPerhaps you use Preview.Dll, It is for 16 bits, you must use Prev32.Dll\n\nRegards','',0,'AIA=','35qfimlb',1,0,'',53,0,0),(638,199,19,45,0,'201.252.213.228',1129770449,1,0,1,1,1,0,'','Re: Fivewin 1.0','Five es una parte importante de HARBOUR, es decir, es la base de Harbour <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1dyt7dh9',1,0,'',45,0,0),(639,200,6,66,0,'24.232.135.75',1129772110,1,0,1,0,1,0,'','Multiseleccion Tsbrowse a DBF','Estimados Colegas\n\nAlguien tiene un prg ejemplo de como copiar los items multiseleccionados\ncon Tsbrowse a una DBF\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','1xczyli1',1,0,'',66,0,0),(640,198,7,179,0,'200.25.180.199',1129777939,1,0,1,1,1,1,'','gracias antonio','Con esta info voy a ver si compro la Pocket Pc\nme surgen mas preguntas como por ejemplo\ndeberias de pensar en incluir en el Ftdn a FwPocket Pc (aumentando el precio claro) para los que quieran, en este caso a mi me convendria ya que ademas necesito actualizarme desde Fwh 2.4 a la actual\n\n\nSaludos\ny Gracias\nAtt\nWilson','',0,'AIA=','3crmi769',1,0,'',179,0,0),(641,198,7,2,0,'83.39.227.26',1129783236,1,0,1,1,1,1,'','','Wilson,\n\nNuestro plan es incluir FiveWin para Pocket PC (FWPPC) en el FTDN, una vez llegue a la versión 1.0, y subiendo el precio del FTDN.\n\nOtro proyecto que tenemos es ofrecer un FTDN que pueda confeccionarse según las necesidades del usuario, es decir eligiendo los productos que se incluyan en el FTDN, pero esto de momento no está disponible.\n\nWilson te agradecería que incluyeses una foto tuya en tus datos de registro de este foro, así nos conocemos todos un poco mejor. Gracias.','',0,'AIA=','3rulg298',1,0,'',2,0,0),(642,180,6,2,0,'83.39.227.26',1129783592,1,0,1,1,1,1,'','','Silvio,\n\nCurrent FWH version is 2.6 and it does support EMF files (32 bits) for the preview.','',0,'AIA=','slft1bup',1,0,'',2,0,0),(643,197,6,2,0,'83.39.227.26',1129783702,1,0,1,1,1,1,'','','Paco,\n\nDe nuevo tendrías que modificar un poco la clase TWBrowse para impedirle que se posicione en la columna 1. No es dificil.','',0,'AIA=','1vt5eftv',1,0,'',2,0,0),(644,186,6,2,0,'83.39.227.26',1129783836,1,0,1,1,1,1,'','','Mario,\n\nSupongo que tendrás que hacerlo como se haría en MsDos, es decir, enviándo una determinada secuencia de caracteres a la impresora y viendo que responde.','',0,'AIA=','30obnpl3',1,0,'',2,0,0),(645,201,3,31,0,'195.182.84.105',1129784985,1,0,1,1,1,1,'','Any news about compatibility with xHarbour changes ( CVS ) ?','Hi ! Today I read in xHarbour.news that are some critical changes which are affected to FWH libs as errors . It seems that for xHarbour new changes , if you  are not FTDN user , can say good bye ... Can you inform , what can help in this situation ?\n\n   With best regards !','',0,'AIA=','343t3mqv',1,0,'',31,0,0),(646,201,3,2,0,'83.39.227.26',1129785260,1,0,1,1,1,1,'','','Rimantas,\n\nWe have not reviewed the current CVS files yet. So FWH is not compatible yet (the same applies for FTDN users).','',0,'AIA=','3e6vr2eg',1,0,'',2,0,0),(647,192,3,6,0,'82.53.175.126',1129789814,1,0,1,1,1,1,'','','Yes.\n\nEMG','',0,'AIA=','1bmqh5oj',1,0,'',6,0,0),(649,203,4,133,0,'80.176.234.174',1129798920,1,0,1,1,1,0,'','MULTISELECT in LISTBOX - How long until implementation','Hello Antonio,\n\nAs subject.\n\nI would like to know how long until I am able to include multiple selection of items in my stock system LISTBOX browses.\n\nWill my users be able to simply drag the stylus down the browse to select consecutive rows similar to \"Pocket Word\"\n\nMany thanks.','',0,'AIA=','2hcaa79k',1,0,'',133,0,0),(650,203,4,2,0,'80.58.2.107',1129799845,1,0,1,1,1,1,'','','GWard,\n\nYou are browsing a DBF on the listbox, right ?','',0,'AIA=','2npctvzi',1,0,'',2,0,0),(651,204,19,26,0,'193.77.133.181',1129800784,1,0,1,1,1,1,'','VMWare player','<!-- m --><a class=\"postlink\" href=\"http://www.theinquirer.net/?article=27082\">http://www.theinquirer.net/?article=27082</a><!-- m -->\n...\nThis nifty piece of software will take a VMware, MS VM or Symantec LiveState Recovery image and run it on a host PC. For free.\n...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vmware.com/products/player/\">http://www.vmware.com/products/player/</a><!-- m -->\n\nCheers, Roman','',0,'AIA=','1fu2gpy8',1,0,'',26,0,0),(652,204,19,2,0,'80.58.2.107',1129801456,1,0,1,1,1,1,'','','Roman,\n\nDownloading it, thanks!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','210genp5',1,0,'',2,0,0),(653,203,4,3,0,'82.124.251.208',1129802019,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1l57taqa]GWard,\n\nYou are browsing a DBF on the listbox, right ?[/quote:1l57taqa] <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nAntonio,\n\nThis feature (multisel) is in Hernan DC\'s twbrowse , it is very useful. If it could be adapted to fw\'s browse (fwh and pocket), that would be fantastic.\n\nRichard','',0,'gA==','1l57taqa',1,0,'',3,0,0),(654,203,4,133,0,'80.176.234.174',1129802771,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2rtu5ewj]GWard,\n\nYou are browsing a DBF on the listbox, right ?[/quote:2rtu5ewj]\n\nAntonio,\n\nYes.\n\nThe user selects a product order from one DBF. I then display all factory locations in which the product is stored within another DBF browse.\n\nThey select the location they are standing at and the individual product items within the location are displayed in a DBF browse. \n\nThey then select the actual numbered products to extract.\n\nRather than tapping on 6 consecutive items I want them to drag the stylus down the 6 and tap the \"Include Selected\" BUTTON.\n\nBTW  I meant like \"Pocket Excel\" not \"Word\"','',0,'gA==','2rtu5ewj',1,0,'',133,0,0),(655,147,2,157,0,'81.39.193.250',1129806738,1,0,1,1,1,0,'','Para manuel','Gracias Manuel. Me imagino que esto no interferira en que este mismo .prg este incluido como .obj en la libreria OBJETS o por lo menos es como yo pienso. me equivoco ??','',0,'gA==','1xq5ziim',1,0,'',157,0,0),(656,147,2,180,0,'194.179.55.34',1129807799,1,0,1,1,1,0,'','','No tiene interferencia alguna. Tiene preferencia el fichero que tu enlazas.\nUn saludo.\nManuel','',0,'gA==','1fgmjpju',1,0,'',180,0,0),(657,205,6,17,0,'81.41.208.83',1129808756,1,0,1,1,1,1,'','Mantener fecha del archivo Origen al Copiar','Necesito que al hacer \n\n__CopyFile(cOrigen, cDestino )\no\n    COPY FILE (cOrigen) TO (cDestino)\n\nLa fecha del archivo en destino sea la misma que la fecha en Origen\nAhora me esta poniendo la fecha de creación del archivo.hoy ahora\n\nMe serviria tambien si se puede cambiar la fecha a un archivo...\n\nUn saludo','',0,'gA==','1jrcrwuq',1,0,'',17,0,0),(659,205,6,24,0,'80.58.33.109',1129809675,1,0,1,1,1,1,'','Re:','Prueba esto, al menos, yo tambien tuve esa necesidad y lo logré al menos\nde esta forma:\n\n[b:fmouy6i8]DLL32 FUNCTION MYCOPYFILE( lpExistingFileName AS STRING, lpNewFileName AS STRING, bFailIfExists AS LONG) AS LONG;\nPASCAL FROM \"CopyFileA\" LIB \"kernel32.dll\"\n\n       if( MYCOPYFILE(  cFile_Origen , cFile_Destino, 0 ) == 0 )\n              lError := .T.\n       endif\n\n[/b:fmouy6i8]\n\nLo que detecte es que en Windows 98 no lo respetaba....[/b]','',0,'QA==','fmouy6i8',1,0,'',24,0,0),(660,206,6,107,0,'80.58.24.107',1129810824,1,0,1,1,1,0,'','Antonio. Sobre el nombre de las Clases','Hola:\n\nEl problema que tengo es que si creo una clase heredando de otra ( lo estoy haciendo con btnbmp) el comportamiento de esta clase no es el mismo que el de la clase original.\n\nEsto es debido en que algunas partes del codigo de las clases de Fivewin se controla el nombre de la clase para actuar de una u otra forma.\n\nCreo que este comportaiento no debería depender del nombre de la clase sinó de algún otro dato que tuviese la clase, porque sino una simple modificación de una clase me obliga a modificar la clase principal window y también creo que la clase control.\n\nYo sólo quiero crear una clase nueva igual que la otra pero con otro nombre, en la que le agregaré una serie de datos adicionales para modificar su comportamiento.\n\nBueno, ahora la pregunta.\n\nSi tengo el siguiente codigo\n\n[code:28v92dxf]CLASS MiBtn FROM TBNTBMP\n&#46;&#46;&#46;&#46;&#46;\nENDCLASS\n\n// redefino los métodos constructores para que se ejecuten los metodos del padre\n\nO &#58;= MiBtn&#40;&#41;&#58;New&#40;&#41;\no&#58;lCancel &#58;= &#46;T&#46;[/code:28v92dxf]\nPues la clausula cancel no funciona\n\nComo puedo solucionar esto sin tener que modificar la clase WINDOW, control, ... no se cuales más tendría que modificar.\n[b:28v92dxf]¿Es posible cambiar el nombre de una clase para que tenga uno distinto al que se usó para crearla?[/b:28v92dxf]','',0,'QIA=','28v92dxf',1,0,'',107,0,0),(661,197,6,73,0,'201.135.53.236',1129813418,1,0,1,1,1,0,'','','Con todo respeto uds. son master uno ya no da pa\'mas..\nYa le meti cuchillo !!  y listo el pollo !!\nTodavia quiero agregarle otros detallitos a ver si sale... por lo pronto se pieden bloquear las columnas a la izq. que quieras...\nGracias\nSalu2\nPaco','',0,'QIA=','1tys10v6',1,0,'',73,0,0),(662,189,16,167,0,'64.91.126.182',1129813756,1,0,1,1,1,1,'','','What is the procedure for downloading updated libraries?\n\nAlso, do you have \"matching\" xharbour binaries?','',0,'QIA=','24ikhnge',1,0,'',167,0,0),(663,200,6,73,0,'201.135.53.236',1129813776,1,0,1,1,1,0,'','Re: Multiseleccion Tsbrowse a DBF','Fabia,\n\nnunca he usado tsbrowse, pero te sugiero que te eches un clavado a la clase y veas si existe algun DATA o variable donde almacene el \"multiselect\" y creo que tendras que barrer todo los reg del browse y de esa variable unicamente sacar los registros seleccionados... es una idea\nSalu2\nPaco','',0,'QIA=','2fhoborv',1,0,'',73,0,0),(664,148,4,150,0,'212.106.243.248',1129819126,1,0,1,1,1,0,'','','Hello Antonio.\n\nIn the Symbol web I have seen several C programs to deal with the bluetooth printer and the scanner.\n\nI have read that your product (and harbourg) generates C code. Is possible to add code to your generated code.\n\nThanks','',0,'QIA=','24o7927x',1,0,'',150,0,0),(665,207,3,35,0,'167.7.140.254',1129820342,1,0,1,1,1,0,'','FTDN Sept\\Oct Missing MSVC Libs','Antonio\n\nI just downloaded your latest xharbour compile for msvc and the dbffpt and dbfdbt lib files are missing.\n\nIf you would please send them to my private e-mail at your earliest convenience .. \n\nMany Thanks\nRick lipkin\nSC Dept of Health, USA','',0,'QIA=','3gtnfni4',1,0,'',35,0,0),(666,208,6,141,0,'66.98.33.240',1129820945,1,0,1,1,1,1,'','Commit en clase database','Hola,\n\nNo se si ya alguien pregunto sobre esto, pero recien note que la clase database, antes de hacer un ::unlock() no tiene un ::commit().\n\nLa ayuda de Clipper, y muchos textos mas, recomiendan hacer un COMMIT antes de un UNLOCK para conservar la integridad de datos...\n\nDebo modificar la clase database para tomar en cuenta esto ???\n\nSalu2,','',0,'QIA=','2vuqr6d7',1,0,'',141,0,0),(667,148,4,2,0,'80.58.2.107',1129821592,1,0,1,1,1,1,'','','[quote=&quot;josevalle&quot;:2jym440k]In the Symbol web I have seen several C programs to deal with the bluetooth printer and the scanner.[/quote:2jym440k]\n\ncould you please provide the url for them ? thanks,\n\n[quote=&quot;josevalle&quot;:2jym440k]I have read that your product (and harbourg) generates C code. Is possible to add code to your generated code.[/quote:2jym440k]\n\nYes, of course. You can add as many C/C++ routines as needed, and also manage standard DLLs.','',0,'gA==','2jym440k',1,0,'',2,0,0),(668,189,16,2,0,'80.58.2.107',1129821828,1,0,1,1,1,1,'','','Don,\n\nYou may use your login and password to download them. Check the download email you got from us on your latest renewal.\n\nThe harbour/xHarbour binaries we provide are the most recent ones that we have tested and that we are sure they work ok with our products.\n\nAnyhow, we plan to publish in the next days new Harbour/xHarbour tested (with our products) builds.','',0,'gA==','4lnbpp0q',1,0,'',2,0,0),(669,207,3,2,0,'80.58.2.107',1129822057,1,0,1,1,1,1,'','','Rick,\n\nThe FTDN xHarbour build is not a recent one. We are actually working to get compatible with the current CVS files. In a very few days it will be available and we will announce it.','',0,'gA==','2bd5m2ug',1,0,'',2,0,0),(670,208,6,2,0,'80.58.2.107',1129822552,1,0,1,1,1,1,'','','Julio,\n\nya hemos modificado la Clase TDataBase para que se llame a ::Commit() siempre antes de llamar a ::Unlock(). Gracias.\n\nSi, puedes modificarla, y enlazarla en tu PRG ó bien reemplazarla en la librería.','',0,'gA==','2jgfex6d',1,0,'',2,0,0),(671,206,6,2,0,'80.58.2.107',1129822797,1,0,1,1,1,1,'','','Tienes toda la razón. Los nombres de las Clases no deberían usarse directamente en determinadas clases, sino usar el método que comprueba si una determinada clase es igual ó deriva de otra.\n\nPuedes cambiar el nombre de la clase, pero busca en los PRGs donde se está usando el nombre de esa clase, y añade el tuyo tambien.','',0,'gA==','qu4m7p0n',1,0,'',2,0,0),(672,207,3,35,0,'167.7.140.254',1129822939,1,0,1,1,1,0,'','','thanks .. I will just use the 99.51 xHarbour from your last release.\n\nRick','',0,'gA==','2tjclwnm',1,0,'',35,0,0),(673,149,6,2,0,'80.58.2.107',1129823940,1,0,1,1,1,1,'','','Un meter se puede usar con una indexación, no con un SET FILTER.','',0,'gA==','9mtgdyjb',1,0,'',2,0,0),(674,117,6,2,0,'80.58.2.107',1129824068,1,0,1,1,1,1,'','','Carlos,\n\nPruébalo así:\n\n[code:2qe58lj2]\ndll32 static function ; \n      WNetGetCon&#40; cLocalName AS STRING, cRemoteName AS STRING, nLength AS LONG &#41; ; \n      AS LONG PASCAL FROM &quot;WNetGetConnectionA&quot; ; \n      Lib &quot;mpr&#46;dll&quot;\n[/code:2qe58lj2]','',0,'AIA=','2qe58lj2',1,0,'',2,0,0),(675,100,1,186,0,'66.130.4.121',1129826709,1,0,1,1,1,1,'','','Hi Detlef,\n\nThanks for your suggestion. That`s exactly the technique I`m using right now, but I don`t like it. I was thinking of eliminate the second array and work with the original array instead. \n\nThe original multi dimension array content has to change according to two other Get fields. Working with two array makes the code much more complex because I will need to update the orignal array wich in turn will be used to update the second array.  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRegards,','',0,'AIA=','3eh1l6xp',1,0,'',186,0,0),(676,205,6,17,0,'81.41.214.25',1129827589,1,0,1,1,1,1,'','Al menos funciona para XP ;-)','Gracias Rafa !\n\nAl menos funciona perfecto para XP, aún no lo he probado en Win98.\n\nLa única solución para win98 es alguna función para cambiar la fecha a un fichero una vez copiado...\n\nUn saludo','',0,'AIA=','363ccdbk',1,0,'',17,0,0),(677,37,6,17,0,'81.41.214.25',1129827807,1,0,1,1,1,1,'','Se puede arreglar la clase Original ;-)','Ya que hay un parche que funciona, mas o menos... Necesita que se le pasen ciertos parametros para que sea igual que la clase original.\n\nAntonio !\n ¿ por que no se puede arreglar la clase original ?\nNecesito la multiple selección, pero tambien la normal y que le pueda pasar los flags...\n\nUn saludo','',0,'AIA=','v3yalmfe',1,0,'',17,0,0),(678,80,6,17,0,'81.41.214.25',1129828025,1,0,1,1,1,1,'','Pues estas no estan mal...','Es cierto que sin ADSL no se pueden consultar, parte negativa. Pero tienen una cosa positiva. Que cuando das una respuesta el hilo se pone al principio de la lista y puedes llevar un seguimiento muy rápido. Además de un monton de estadísticas... Y para rematar, vernos las caras un poco <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nBueno, pues mi opinión.\nUn saludo','',0,'AIA=','38onnbh7',1,0,'',17,0,0),(679,201,3,2,0,'80.58.2.107',1129831138,1,0,1,1,1,1,'','','FWH has been already modified to work with current xHarbour CVS code.\n\nWe are actually testing it to be totally sure everything is ok.\n\nIt has been modified in a way that FiveHC.lib remains being just the same file for both Harbour and xHarbour  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','18y0ju0q',1,0,'',2,0,0),(680,144,3,2,0,'80.58.2.107',1129831325,1,0,1,1,1,1,'','','Frank,\n\nWill it be ok to disable all its menuitems ?','',0,'AIA=','27ltunrs',1,0,'',2,0,0),(681,209,6,2,0,'80.58.2.107',1129832145,1,0,1,1,1,1,'','Compatibilidad de FWH con actual CVS de xHarbour','Ya hemos adaptado FWH para funcionar correctamente con los cambios más recientes del CVS de xHarbour.\n\nActualmente estamos probándolo para asegurarnos de que todo funcione correctamente.\n\nHemos podido seguir manteniendo el mismo fichero FiveHC.lib tanto para Harbour y xHarbour  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1vnrb8dx',1,0,'',2,0,0),(682,108,6,2,0,'80.58.2.107',1129832429,1,0,1,1,1,1,'','','Leandro,\n\nPuedes proporcionar un ejemplo pequeño y autocontenido para reproducir el error ? Que versión de FWH estás usando ?','',0,'AIA=','14zjp53m',1,0,'',2,0,0),(683,80,6,2,0,'80.58.2.107',1129832909,1,0,1,1,1,1,'','','Jesús,\n\nEstoy de acuerdo contigo. La información adicional que ofrecen estos foros es muy valiosa.\n\nTodos podemos ver cuantos usuarios leen los mensajes, cuantos usuarios se van registrando (de momento muchísimos menos de los que leen), cuantas veces se ha leido un mensaje. \n\nAdemás podemos modificar los mensajes una vez escritos, por si queremos completar algo ó hacer alguna corrección. Están mejor organizados por productos. Se pueden mover mensajes de un foro a otro (sólo los administradores), etc.\n\nTambién permite hacer encuestas, aunque es algo que aún no se ha probado.\n\nPersonalmente cada vez me siento más cómodo con estos foros  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','qtt1peuu',1,0,'',2,0,0),(684,210,6,2,0,'80.58.2.107',1129833206,1,0,1,1,1,1,'','Probando la opción de encuestas','Probando la opción de encuestas de estos foros.','',0,'AIA=','3nxlas54',1,0,'',2,0,0),(685,189,16,167,0,'64.91.126.182',1129833212,1,0,1,1,1,1,'','','Thanks.','',0,'AIA=','3bvdwhuo',1,0,'',167,0,0),(687,147,2,9,0,'62.174.202.39',1129834647,1,0,1,1,1,0,'','','Si modifica el color de GotFocus tambien debe modificar el color en LostFocus, sino, a medida que vaya corriendo el focus, todos los campos del Get quedarán con su color.\n\nUn saludo\n\nManuel','',0,'AIA=','33sgwc0i',1,0,'',9,0,0),(688,212,3,19,0,'83.18.178.178',1129835257,1,0,1,1,1,0,'','OLE file name','Hallo \nHow can I get name of opened thru OLE xls file?\n\n....\n       oExcel := TOleAuto():New( \"Excel.Application\" )\n     oExcel:WorkBooks:Open(cGetFile(\"*.XLS\", \"Select Excel File\"))\n     //msginfo(oExcel:WorkBooks:FileName())\n ...\n\nRegards Eugeniusz','',0,'AIA=','17gym1be',1,0,'',19,0,0),(689,148,4,51,0,'80.122.88.242',1129836570,1,0,1,1,1,0,'','Printing','I think printig is not the problem.\nYou can send a txt or dbf-file to your PC.\nOn the PC you have a \"Software-PrintServer\" runnig, \nwhich checks controlled by a timer if a new file is there. \nIf yes the file will be printed.','',0,'AIA=','2a1mke7r',1,0,'',51,0,0),(690,148,4,150,0,'212.106.243.248',1129837751,1,0,1,1,1,1,'','','Thanks Otto.\n\nThe sellers will be out of the office, and they will have a printer (I don´t know if will be in the car, an star matrix model, or in the belt, a very small zebra printer)\n\nSo there is no Pc whith a printer available.\n\nBut your idea is good for other situations.','',0,'AIA=','2rrs2x9i',1,0,'',150,0,0),(691,148,4,3,0,'82.65.132.148',1129837795,1,0,1,1,1,0,'','Re: Printing','[quote=&quot;Otto&quot;:1bbqu17n]I think printig is not the problem.\nYou can send a txt or dbf-file to your PC.\nOn the PC you have a \"Software-PrintServer\" runnig, \nwhich checks controlled by a timer if a new file is there. \nIf yes the file will be printed.[/quote:1bbqu17n]\nOtto,\n\nThere are many applications where the pocket pc is used far from the pc and we need a stand alone print possibility.  This is mandatory for a pocket pc product. \n\nRichard','',0,'gA==','1bbqu17n',1,0,'',3,0,0),(692,212,3,3,0,'82.65.132.148',1129838110,1,0,1,1,1,0,'','Re: OLE file name','[quote=&quot;Eugeniusz Owsiak&quot;:klo8u8dg]Hallo \nHow can I get name of opened thru OLE xls file?\n\n....\n       oExcel := TOleAuto():New( \"Excel.Application\" )\n     oExcel:WorkBooks:Open(cGetFile(\"*.XLS\", \"Select Excel File\"))\n     //msginfo(oExcel:WorkBooks:FileName())\n ...\n\nRegards Eugeniusz[/quote:klo8u8dg] <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nTry it this way\n\nCFILE   := cgetfile32(\"*.xls\", \"Sélectionnez le fichier\",1,ALLTRIM(BDEF-&gt;CHEMIN))\n\noExcel:WorkBooks:Open( CFILE )\n\nRichard','',0,'gA==','klo8u8dg',1,0,'',3,0,0),(693,206,6,107,0,'80.58.24.107',1129839904,1,0,1,1,1,0,'','','Gracias Antonio,\n\n[color=red:2ula6w6y]pero hay alguna forma para que pueda cambiar el nombre de la clase\n\nLo que pretendo es no tener que modificar las clases padres.\n[/color:2ula6w6y]\n\nTe explico el porqué\n\nCuando empece a desarrollar con fivewin me encontré en la necesidad de modificar algunas clases para adaptarlas al funcionamiento que quería. El resultado final es el que yo deseaba, pero al cabo de un poco de tiempo decidí actualizar la versión de fivewin y el resultado fué que tuve que volver a modificar mis clases para poder usar las modificaciones que se se habían realizado en algunas de ellas (yo ignoraba e ignoro cuales fueron modificadas). Entonces decidí que no actualizaria la librería porque los problemas que me originaba no me conpensaba y mientras no necesitara otra cosa pues a aguantarse. Hace aproximadadamente un año decidí volver a actualizar y me volvió a pasar lo mismo, el caso es que se me hace bastante complicado el mantenimiento de las clases modificadas.\n\nComo lo resuelvo, bueno pues decido no usar las clases que modifico y en su lugar usar clases heredadas de las originales pero con una serie de comportamientos especificos, reprogramo los metodos que me interesan y el resto los dejo. Al final obtengo una clase con cuatro o cinco métodos modificados que me es muy facil de mantener, pero\n\nSi modifico la clase, por ejemplo Window, y actualizo la libreria no solo tengo que preocuparme de los cambios que afecten a las clases que yo he modificado sinoo de otras que no cambié.\n\nUn saludo y gracias de nuevo','',0,'Ag==','2ula6w6y',1,0,'',107,0,0),(694,148,4,51,0,'80.122.88.242',1129841261,1,0,1,1,1,0,'','','You are right. I didn\'t thought of that.\nWe have a solution for restaurants where we solved the problem like that.','',0,'Ag==','1m2o8yjz',1,0,'',51,0,0),(695,147,2,180,0,'83.35.123.220',1129842158,1,0,1,1,1,0,'','','Efectivamente, mis disculpas por el olvido:\n\n//---------------------------------------------------------------------------//\n\nMETHOD LostFocus( hCtlFocus ) CLASS TGet\n\n   Super:LostFocus( hCtlFocus )\n\n   if ! Empty( ::cPicture ) .and. ::oGet:type == \"N\"\n      ::oGet:Assign()\n      ::oGet:Picture := ::cPicture\n      ::oGet:UpdateBuffer()\n   endif\n\n   #ifdef __CLIPPER__\n      ::oGet:SetFocus()   // because Clipper set buffer to nil\n   #endif\n\n   if ! ::oGet:BadDate .and. ! ::lReadOnly .and. ;\n      ( ::oGet:changed .or. ::oGet:unTransform() &lt;&gt; ::oGet:original )\n      ::oGet:Assign()     // for adjust numbers\n      ::oGet:UpdateBuffer()\n   endif\n\n   ::DispText()\n\n   if ! ::oGet:BadDate\n      ::oGet:KillFocus()\n   else\n      ::oGet:Pos = 1\n      ::nPos = 1\n      #ifndef __CLIPPER__\n         ::oGet:TypeOut = .f.\n      #endif\n   endif\n\n   [color=red:1zy1wigf]::SetColor()[/color:1zy1wigf]\nreturn nil\n\n//----------------------------------------------------------------------------//','',0,'Ag==','1zy1wigf',1,0,'',180,0,0),(696,213,6,36,0,'200.113.56.235',1129842767,1,0,1,1,1,0,'','#xcommand','Alguien me puede ayudar a con este comando\n\n    Resulta que modifique la clase dbcombo y lo que quiero es agregarlo en \nxcommand pero me arroja un error\n\n        nunca he podido decifrar como funcionan esto de los #xcomm#~??654556\n\n\n#xcommand REDEFINE DBCOMBO [ &lt;oCbx&gt; VAR ] &lt;cVar&gt; ;\n                 [ &lt;items: ITEMS, PROMPTS&gt; &lt;aItems&gt; ] ;\n                 [ ID &lt;nId&gt; ] ;\n                 [ &lt;dlg:OF,WINDOW,DIALOG&gt; &lt;oWnd&gt; ] ;\n                 [ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ;\n                 [ ON CHANGE &lt;uChange&gt; ] ;\n                 [b:2mrgnm2w][ ON CONDICION &lt;uCondicion&gt; ] ;[/b:2mrgnm2w]\n                 [ VALID   &lt;uValid&gt; ] ;\n                 [ &lt;color: COLOR,COLORS&gt; &lt;nClrText&gt; [,&lt;nClrBack&gt;] ] ;\n                 [ &lt;update: UPDATE&gt; ] ;\n                 [ MESSAGE &lt;cMsg&gt; ] ;\n                 [ WHEN &lt;uWhen&gt; ] ;\n                 [ BITMAPS &lt;acBitmaps&gt; ] ;\n                 [ ON DRAWITEM &lt;uBmpSelect&gt; ] ;\n                [ ALIAS &lt;cAlias&gt; ] ;\n                [ ITEMFIELD &lt;cFldItem&gt; ] ;\n                [ LISTFIELD &lt;cFldList&gt; ] ;\n                 [ &lt;list: LIST, PROMPTS&gt; &lt;aList&gt; ] ;\n       =&gt; ;\n          [ &lt;oCbx&gt; := ] TDBCombo():ReDefine( &lt;nId&gt;, bSETGET(&lt;cVar&gt;),;\n             &lt;aItems&gt;, &lt;oWnd&gt;, &lt;nHelpId&gt;, &lt;{uValid}&gt;, [{|Self|&lt;uChange&gt;}],;\n             &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;cMsg&gt;, &lt;.update.&gt;, &lt;{uWhen}&gt;,;\n             &lt;acBitmaps&gt;, [{|nItem|&lt;uBmpSelect&gt;}], ;\n             &lt;cAlias&gt;, &lt;cFldItem&gt;, &lt;cFldList&gt;, &lt;aList&gt;,[b:2mrgnm2w] [{||&lt;uCondicion&gt;}] [/b:2mrgnm2w])\n\n\n\n\ndesde ya gracias\n\nSaludos\nPatricio','',0,'QA==','2mrgnm2w',1,0,'',36,0,0),(697,148,4,2,0,'80.58.2.107',1129844115,1,0,1,1,1,1,'','','This is the text we got from a Pocket PC experienced user: (we may translate it to English)\n\n[quote:o6fjxw38]\nSi es por irda, utilizamos un puerto COM sin necesidad de configurar nada más en la PDA y si es por bluetooth instalas en la impresora el receptor bluetooth y se sincronizan ambos equipos. Despues se le asigna un puerto desde el propio Administrador bluetooth y a funcionar. \n\nSea la impresora que sea utilizo si es IRDA (puerto RS232) un cable especial que contiene un receptor final IRDA, y si es bluetooth instalamos un receptor bluetoorh con salida a cualquier impresora Paralelo. Ambos dispositivos no requieren configuración adicional se instalan como un cable normal y a funcionar. La única consideración a tener en cuenta es que ambos dispositivos deben ser alimentados de energía. En nuestro caso, ponteamos la placa base de la impresora STAR DP8340 para alimentar a traves de la propia salida de la impresora, el conector utilizado. \n\nLos modelos de impresoras que utilizamos son generalmente de 2 tipos. Una impresora a 12v. Matricial que se instala en un vehículo (directamente a la bateria) y tanto puede ser serie como paralelo (adjunto imagen stardp8340) y una impresora portátil (con pilas) que la lleva el usuario enganchada al cinturon y es siempre con conexión IRDA. (Marca Extech). <!-- m --><a class=\"postlink\" href=\"http://www.extech.com/\">http://www.extech.com/</a><!-- m -->\n[/quote:o6fjxw38]','',0,'gA==','o6fjxw38',1,0,'',2,0,0),(698,214,7,2,0,'80.58.2.107',1129844269,1,0,1,1,1,1,'','Impresión en Pocket PC','Este es un comentario que hemos recibido de un usuario experimentado en impresión con Pocket PCs:\n\n[quote:1wx9rdd1]\nSi es por irda, utilizamos un puerto COM sin necesidad de configurar nada más en la PDA y si es por bluetooth instalas en la impresora el receptor bluetooth y se sincronizan ambos equipos. Despues se le asigna un puerto desde el propio Administrador bluetooth y a funcionar. \n\nSea la impresora que sea utilizo si es IRDA (puerto RS232) un cable especial que contiene un receptor final IRDA, y si es bluetooth instalamos un receptor bluetoorh con salida a cualquier impresora Paralelo. Ambos dispositivos no requieren configuración adicional se instalan como un cable normal y a funcionar. La única consideración a tener en cuenta es que ambos dispositivos deben ser alimentados de energía. En nuestro caso, ponteamos la placa base de la impresora STAR DP8340 para alimentar a traves de la propia salida de la impresora, el conector utilizado. \n\nLos modelos de impresoras que utilizamos son generalmente de 2 tipos. Una impresora a 12v. Matricial que se instala en un vehículo (directamente a la bateria) y tanto puede ser serie como paralelo (adjunto imagen stardp8340) y una impresora portátil (con pilas) que la lleva el usuario enganchada al cinturon y es siempre con conexión IRDA. (Marca Extech). <!-- m --><a class=\"postlink\" href=\"http://www.extech.com/\">http://www.extech.com/</a><!-- m -->\n[/quote:1wx9rdd1]','',0,'gA==','1wx9rdd1',1,0,'',2,0,0),(699,147,2,157,0,'81.39.193.250',1129849422,1,0,1,1,1,0,'','','Muchas gracias a los dos. Lo he probado y funciona bien. Ahora estoy intentando  conseguir que en una pantalla de GETS se pase de campo a campo con la tecla RETURN . Lo que he hecho a veces funciona y a veces no y me imagino que lo ideal seria modificar o bien la clase TGET o bien la TCONTROL.. Bueno como trabajo con copias de ficheros si me cargo algo siempre podre volver atras. \nSaludos','',0,'gA==','26ff6k05',1,0,'',157,0,0),(700,215,3,69,0,'65.92.154.253',1129852783,1,0,1,1,1,0,'','Test Poll for Antonio','Test Poll','',0,'gA==','3hurnqsm',1,0,'',69,0,0),(701,215,3,69,0,'65.92.154.253',1129852930,1,0,1,1,1,0,'','','Antonio,\n\nThere should have been three options (Yes, No, Maybe) only the first two options seem to work.\n\nJeff','',0,'gA==','1pcijhh2',1,0,'',69,0,0),(702,216,6,66,0,'24.232.135.75',1129861636,1,0,1,0,1,0,'','Buscar,comparar,extraer datos desde DBF a MDB Access','Estimados Colegas\n\n\nTengo que acceder a una guia de TE en  Tabla access ,necesito \nbuscar comparar y extraer datos desde un base DBF \n\nej:\n DBF-&gt;Calle                ACCESS-&gt;CALLE \n25 DE  MAYO                  25 DE MAYO\n\nALGUIEN TENDRIA ALGUN PRG EJEMPLO SENCILLO, HE PROBADO\nEXPORTAR LA TABLA  ACCESS PERO ME TARDA MUCHISIMO\nYA QUE SON COMO 4 MILLONES DE REGISTROS \n\nDESDE YA MUCHISIMAS GRACIAS\n<!-- e --><a href=\"mailto:DATABASELAB2002@YAHOO.COM.AR\">DATABASELAB2002@YAHOO.COM.AR</a><!-- e -->','',0,'gA==','1sm4bo84',1,0,'',66,0,0),(703,217,2,66,0,'24.232.135.75',1129861701,1,0,1,0,1,0,'','Buscar,comparar,extraer datos desde DBF a MDB Access','Estimados Colegas\n\n\nTengo que acceder a una guia de TE en  Tabla access ,necesito \nbuscar comparar y extraer datos desde un base DBF \n\nej:\n DBF-&gt;Calle                ACCESS-&gt;CALLE \n25 DE  MAYO                  25 DE MAYO\n\nALGUIEN TENDRIA ALGUN PRG EJEMPLO SENCILLO, HE PROBADO\nEXPORTAR LA TABLA  ACCESS PERO ME TARDA MUCHISIMO\nYA QUE SON COMO 4 MILLONES DE REGISTROS \n\nDESDE YA MUCHISIMAS GRACIAS\n<!-- e --><a href=\"mailto:DATABASELAB2002@YAHOO.COM.AR\">DATABASELAB2002@YAHOO.COM.AR</a><!-- e -->','',0,'gA==','24ykhqe3',1,0,'',66,0,0),(704,218,6,189,0,'201.10.42.112',1129865537,1,0,1,1,1,0,'','Para Antonio Linhares (comm.c , BuildCommDCB, SetCommState)','Antonio\n\n1-) Fiz algumas alteracoes no fonte COMM.C para FWH. \n     Espero que sirva outros usuarios.\n2-) Gostaria muito que se agregasse as futuras versoes de FWH\n     (nao estou sendo pretencioso). Acontece que a toda atualizacao\n     recompilo o codigo e atacho a FIVEHC.LIB\n3-) Segue pequeno exemplo de como usar SetCommState() em\n     WinXP/NT que é uma dor de cabeça para muitos usuarios.\n\n[color=green:ok57uvzr]\n/////////////////\nCOMM.C\n////////////////\n\n#include &lt;WinTen.h&gt;\n#include &lt;Windows.h&gt;\n#include &lt;ClipApi.h&gt;\n\n#ifdef __FLAT__\n   int OpenComm( LPCSTR lpszDevControl, unsigned int cbInQueue,\n                       unsigned int cbOutQueue );\n   int CloseComm( int idComDev );\n   int FlushComm( int idComDev, int fnQueue );\n   int WriteComm( int idComDev, LPCVOID lpvBuf, int cbWrite );\n   int ReadComm( int idComDev,   LPVOID lpvBuf, int cbRead );\n   int GetCommError( int idComDev, COMSTAT * lpStat );\n   BOOL EnableCommNotification( int idComDev, HWND hwnd,\n                                int cbWriteNotify, int cbOutQueue );\n   DWORD ThreadCommNotification( LPVOID data );\n   int GetCommHandle( int idComDev );\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLIPPER OPENCOMM( PARAMS )         //  cPortName, nInQueue, nOutQueue  --&gt; nPortId\n{\n   WORD cbInQueue  = IF( ISNUM( 2 ), _parni( 2 ), 1024 );\n   WORD cbOutQueue = IF( ISNUM( 3 ), _parni( 3 ),  128 );\n\n   _retni( OpenComm( _parc( 1 ), cbInQueue, cbOutQueue ) );\n}\n\n//----------------------------------------------------------------------------//\n\nCLIPPER CLOSECOMM( PARAMS )\n{\n   _retl( CloseComm( _parni( 1 ) ) == 0 );\n}\n\n//----------------------------------------------------------------------------//\n\nCLIPPER WRITECOMM( PARAMS )\n{\n   _retni( WriteComm( _parni( 1 ), _parc( 2 ), _parclen( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nCLIPPER READCOMM( PARAMS )        //  ( nId, @ cBuffer ) --&gt; nBytesRead\n{\n   _retni( ReadComm( _parni( 1 ), _parc( 2 ), _parclen( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   CLIPPER BUILDCOMMDCB( PARAMS )   //  ()   cInfoDef, @ cDeviceBlock  --&gt; lOk\n#else\n   CLIPPER BUILDCOMMD( PARAMS )     //  CB()   cInfoDef, @ cDeviceBlock  --&gt; lOk\n#endif\n{\n   DCB dcb;\n\n   #ifdef __FLAT__\n      if( BuildCommDCB( _parc( 1 ), &amp;dcb ) )        // OK\n   #else\n      if( BuildCommDCB( _parc( 1 ), &amp;dcb ) == 0 )   // OK\n   #endif\n   {\n      _storclen( ( char * ) &amp;dcb, sizeof( dcb ), 2 );\n      _retl( TRUE );\n   }\n   else                                             // Error\n   {\n      _storc( \"\", 2 );\n      _retl( FALSE );\n   }\n}\n\n//----------------------------------------------------------------------------//\n/*\n#ifdef __HARBOUR__\n   CLIPPER GETCOMMSTATE( PARAMS )   //  ()   cInfoDef, @ cDeviceBlock  --&gt; lOk\n#else\n   CLIPPER GETCOMMSTA( PARAMS )            //  TE()   cInfoDef, @ cDeviceBlock  --&gt; lOk\n#endif\n{\n   DCB dcb;\n\n   #ifdef __FLAT__\n      if( GetCommState( (HANDLE) GetCommHandle( _parni( 1 ) ), &amp;dcb ) )     // OK\n   #else\n      if( GetCommState( ( int ) GetCommHandle( _parni( 1 ) ), &amp;dcb ) == 0 ) // OK\n   #endif\n   {\n      _storclen( ( char * ) &amp;dcb, sizeof( dcb ), 2 );\n      _retl( TRUE );\n   }\n   else                                            // Error\n   {\n      _storc( \"\", 2 );\n      _retl( FALSE );\n   }\n}\n*/\n\n//----------------------------------------------------------------------------//\n\n/*\n#ifdef __HARBOUR__\n   CLIPPER GETCOMMHANDLE( PARAMS )  // ()  idCommDev ==&gt; nHandle\n#else\n   CLIPPER GETCOMMHAN( PARAMS )  //DLE()\n#endif\n{\n   _retni( GetCommHandle( _parni( 1 ) ) );\n}\n*/\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   CLIPPER SETCOMMSTATE( PARAMS )  // ()\n#else\n   CLIPPER SETCOMMSTA( PARAMS )           // TE()\n#endif\n{\n   #ifdef __FLAT__\n     _retl( SetCommState( (HANDLE) GetCommHandle( _parni( 1 ) ), ( DCB FAR * ) _parc( 2 ) ) );\n   #else\n     _retl( SetCommState( ( DCB FAR * ) _parc( 1 ) ) == 0 );\n   #endif\n}\n\n//----------------------------------------------------------------------------//\n\nCLIPPER FLUSHCOMM( PARAMS )\n{\n   _retni( FlushComm( _parni( 1 ), _parni( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   CLIPPER GETCOMMERROR( PARAMS )   // ()\n#else\n   CLIPPER GETCOMMERR( PARAMS )     // OR()\n#endif\n{\n   COMSTAT stat;\n\n   _retni( GetCommError( _parni( 1 ), ( PCOUNT() &gt; 1 ) ? &amp;stat: 0 ) );\n\n   if( ( int ) PCOUNT() &gt; 1 )\n      _storclen( ( char * ) &amp;stat, sizeof( COMSTAT ), 2 );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   CLIPPER ENABLECOMMNOTIFICATION( PARAMS ) // ( nComDev, hWnd, nInBytes, nOutBytes )\n                                            //  --&gt; &lt;lSuccess&gt;\n#else\n   CLIPPER ENABLECOMM( PARAMS ) // NOTIFICATION( nComDev, hWnd, nInBytes, nOutBytes )\n#endif                          //  --&gt; &lt;lSuccess&gt;\n{\n   _retl( EnableCommNotification( _parni( 1 ), ( HWND ) _parni( 2 ),\n          _parni( 3 ), _parni( 4 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   CLIPPER ESCAPECOMMFUNCTION( PARAMS ) // ( nComDev, nFunctionCode )\n                                        //  --&gt; &lt;lSuccess&gt;\n#else\n   CLIPPER ESCAPECOMM( PARAMS ) // FUNCTION( nComDev, nFunctionCode )\n                                //  --&gt; &lt;lSuccess&gt;\n#endif\n{\n   _retl( ! EscapeCommFunction( ( HANDLE ) _parnl( 1 ), _parni( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\n#ifdef __FLAT__\n\ntypedef struct _tagCOMMST\n{\n	HANDLE hComm;\n	HANDLE hThread;\n	HWND   hWndEv;\n	int    cbWriteNotify;\n	int    cbOutQueue;\n}COMMST, *LPCOMMST;\n\nint OpenComm( LPCSTR lpszDevControl, UINT cbInQueue, UINT cbOutQueue )\n{\n	char		port[ 16 ];\n	HANDLE		hComm;\n	LPCOMMST	Com = ( LPCOMMST ) LocalLock( LocalAlloc( LPTR, sizeof( COMMST ) ) );\n    COMMTIMEOUTS ct;\n\n	wsprintf( port, \"\\\\%s\", lpszDevControl );\n\n	Com-&gt;hComm = CreateFile( port, GENERIC_WRITE | GENERIC_READ, 0, NULL,\n		OPEN_EXISTING, 0, NULL );\n	SetupComm( Com-&gt;hComm, cbInQueue, cbOutQueue );\n\n    ct.ReadIntervalTimeout         = MAXDWORD;\n    ct.ReadTotalTimeoutMultiplier  = 0;\n    ct.ReadTotalTimeoutConstant    = 0;\n    ct.WriteTotalTimeoutMultiplier = 10;\n    ct.WriteTotalTimeoutConstant   = 1000;\n    SetCommTimeouts( Com-&gt;hComm, &amp;ct );\n\n    return ( int ) Com;\n}\n\nint CloseComm( int idComDev )\n{\n	int			nRet;\n	LPCOMMST	Com = ( LPCOMMST )idComDev;\n\n	TerminateThread( Com-&gt;hThread, 0 );\n\n	nRet = ( int )( CloseHandle( Com-&gt;hComm ) ? 0 : -1 );\n	LocalFree( LocalHandle( ( LPVOID ) Com ) );\n\n	return nRet;\n}\n\nint FlushComm( int idComDev, int fnQueue )\n{\n	LPCOMMST Com = ( LPCOMMST )idComDev;\n	return ( int ) FlushFileBuffers( Com-&gt;hComm );\n}\n\nint GetCommHandle( int idComDev )\n{\n	LPCOMMST Com = ( LPCOMMST )idComDev;\n	return ( int ) Com-&gt;hComm ;\n}\n\nint WriteComm( int idComDev, LPCVOID lpvBuf, int cbWrite )\n{\n	DWORD dw = 0;\n	LPCOMMST Com = ( LPCOMMST )idComDev;\n	WriteFile( Com-&gt;hComm, lpvBuf, ( DWORD )cbWrite, &amp;dw, NULL );\n	return ( int ) dw ? dw : -1;\n}\n\nint ReadComm( int idComDev, LPVOID lpvBuf, int cbRead )\n{\n	DWORD dw = 0;\n	LPCOMMST Com = ( LPCOMMST )idComDev;\n	ReadFile( Com-&gt;hComm, lpvBuf, ( DWORD )cbRead, &amp;dw, NULL );\n	return ( int ) dw ? dw : -1;\n}\n\n//COMSTAT existen en 16 y en 32\nint GetCommError( int idComDev, COMSTAT * lpStat )\n{\n	LPCOMMST	Com = ( LPCOMMST )idComDev;\n	DWORD		nRetErrors = 0;\n\n	ClearCommError(	Com-&gt;hComm, &amp;nRetErrors, lpStat );\n\n	return ( int )nRetErrors;\n}\n\n\nDWORD ThreadCommNotification( LPVOID data )\n{\n	LPCOMMST	Com = ( LPCOMMST )data;\n	DWORD		dwEvtMask;\n	int			dwReceived = 0, dwSent = 0;\n\n	GetCommMask( Com-&gt;hComm, &amp;dwEvtMask );\n	SetCommMask( Com-&gt;hComm, EV_RXCHAR | EV_RXFLAG | dwEvtMask );\n\n	for( ; ; )\n	{\n		WaitCommEvent( Com-&gt;hComm, &amp;dwEvtMask, NULL );\n\n		if( dwEvtMask &amp; EV_RXCHAR )\n		{\n			dwReceived++;\n			if( dwReceived == Com-&gt;cbWriteNotify )\n			{\n				dwReceived = 0;\n				PostMessage( Com-&gt;hWndEv, WM_COMMNOTIFY, ( WPARAM )Com, ( LPARAM )0x01 ); //CN_RECEIVE\n			}\n		}\n		else\n		{\n			if( dwSent &amp; EV_RXFLAG )\n			{\n				dwSent++;\n				if( dwSent == Com-&gt;cbOutQueue )\n				{\n					dwSent = 0;\n					PostMessage( Com-&gt;hWndEv, WM_COMMNOTIFY, ( WPARAM )Com, ( LPARAM )0x02 ); //CN_TRANSMIT\n				}\n			}\n		}\n		PostMessage( Com-&gt;hWndEv, WM_COMMNOTIFY, ( WPARAM )Com, ( LPARAM )0x04 ); //CN_EVENT\n	}\n//	return 0;\n}\n\nBOOL EnableCommNotification( int idComDev, HWND hwnd, int cbWriteNotify, int cbOutQueue )\n{\n	LPCOMMST	Com = ( LPCOMMST )idComDev;\n	DWORD		ThId;\n\n	Com-&gt;hWndEv			= hwnd;\n	Com-&gt;cbWriteNotify	= cbWriteNotify;\n	Com-&gt;cbOutQueue		= cbOutQueue;\n	Com-&gt;hThread		= CreateThread( NULL, NULL,\n		( LPTHREAD_START_ROUTINE )ThreadCommNotification,( LPVOID ) Com, NULL, &amp;ThId );\n\n	return TRUE;\n}\n\n#endif\n\n//----------------------------------------------------------------------------//[/color:ok57uvzr]\n\n\n\n\n\n\n[color=blue:ok57uvzr]\n/////////////////\nSAMPLE    PRG\n////////////////\n\n// Teste de uso da porta COMM\n\n//\n// exemplo de uso de porta COMM\n//\n\n/*\n\n... sua rotina\n\n   nPortA:= InitComm( \"COM1\", \"19200,n,8,1\" )\n   if nPortA &gt; 0\n      // ... Porta aberta com sucesso...\n   endif\n\n   nPortB:= InitComm( \"COM2\", \"4800,n,8,1\" )  // usando uma outra porta\n   if nPortB &gt; 0\n      // ... Porta aberta com sucesso...\n   endif\n\n\n   ... sua rotina\n\n\n   if nPortA &gt; 0  // COMM aberta\n     CloseComm( nPortA )\n   endif\n\n   if nPortB &gt; 0  // COMM aberta\n     CloseComm( nPortB )\n   endif\n\n... sua rotina\n\nQUIT\n\n*/\n\n////////////////////////////////////////////////\n// InitComm( c_Porta_Comm, cProperties )   //Ex: InitiComm( \"COM1\", \"4800,n,8,1\" )\n////////////////////////////////////////////////\nFunction InitComm( cPort, cProp )\nlocal nComm, sComm:=\"\", lOkComm:= .f.\n\n  if empty( cPort)\n    cPort:= \"COM1\"\n  endif\n\n  if empty( cProp )\n    cProp:= \"19200,n,8,1\"\n  endif\n\n  if ( nComm := OpenComm( cPort, 2048, 512 ) ) &lt; 1\n    MsgStop( cPort + \" - Nao disponivel.\")\n    retu 0\n  endif\n\n  if !BuildCommDcb( cPort + \":\" + cProp, @sComm )\n    MsgStop( cPort + \" - Nao ativa.\")\n    CloseComm( nComm )\n    retu 0\n  endif\n\n  sComm:= AdjustDCB( sComm )   // corrige DCB\n\n  if !SetCommState( nComm, sComm)\n    MsgStop( cPort + \" - Nao ativa.\")\n    CloseComm( nComm )\n    retu 0\n  endif\n\n  if !writeComm(nComm, \"}}}}}}\" )&lt;&gt;6\n    MsgStop( cPort + \" - falha gravacao.\")\n    CloseComm( nComm )\n    retu 0\n  endif\n\n  if !FlushComm(nComm,0) = 1\n    MsgStop( cPort + \" - falha fluxo.\")\n    CloseComm( nComm )\n    retu 0\n  endif\n\nretu nComm\n\n\nFunction AdjustDCB( _dcb )\n\n // Obs\n //\n // no WinXp/NT, a funcao BuildCommDCB() retorna estrutura DCB com valores\n // de threshold para XonLim e XoffLim, e, se o controle de fluxo nao estiver\n // configurado para Xon/Xoff a funcao SetCommState() retorna falso.\n // A solucao esta em zerar os valores de threshold para XonLim e XoffLim\n\n // _dcb:= subs( _dcb,1,14) + L2Bin( 0 ) + subs( _dcb,19 )  // XonLim,XoffLim set to 0\n // retu ( _dcb )\n\n // Obs 2\n // Consulte estrutura DCB p/ alterar outros valores conforme necessidade\n\n // Ex.: Setar Binary Mode e habilitar DTR\n //\n // habilitar DTR eh obrigatorio para quem utiliza conversor RS232&lt;-&gt;485\n // e tambem para alguns conversores USB&lt;-&gt;RS232\n //\n // 1h=binary_mode_true + 10h=Ctr_DTR_Enable == 11h == chr(17)\n // alterar byte 9 do DCB ( total da estrutura DCB = 28 bytes )\n // _dcb:= subs( _dcb, 1, <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> + chr( 17 ) + chr( 0 ) + subs( _dcb, 10, 4) + ;\n //        L2Bin( 0 ) + subs( _dcb, 19 )\n // retu ( _dcb )\n\nretu subs( _dcb,1,14) + L2Bin( 0 ) + subs( _dcb,19 )\n[/color:ok57uvzr][/list]','',0,'Ag==','ok57uvzr',1,0,'',189,0,0),(705,219,16,2,0,'80.58.2.107',1129873012,1,0,1,1,1,1,'','Harbour/xHarbour October 2005 builds','You may already download the new Harbour/xHarbour october builds from:\n\nPodeis descargar los nuevos builds de octubre de Harbour/xHarbour desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w --> (Borland version)\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> (Borland version)\n\nMicrosoft versions will be announced very soon.','',0,'Ag==','adj0m3fg',1,0,'',2,0,0),(706,212,3,19,0,'217.153.83.2',1129873042,1,0,1,1,1,0,'','','Richard,\n\nI think it is a good and simple solution but where can I found info of oExcel object property? \n\n\nregards Eugeniusz','',0,'Ag==','1w2tcf6v',1,0,'',19,0,0),(707,215,3,2,0,'80.58.2.107',1129873617,1,0,1,1,1,1,'','','Jeff,\n\nYou have to add a choice, one by one, and see, now it is ok. Thanks for your feedback  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Ag==','x081as3y',1,0,'',2,0,0),(708,209,6,131,0,'194.179.55.36',1129873963,1,0,1,1,1,0,'','re:','Antonio: \n\n¿ Podrías contar un poco a que se refieren estos cambios ?\n\n¿ Supone esto que los usuarios de versiones anteriores de FWH tenemos que pasar por caja o vas a liberar algún parche gratuito ?\n\nSaludos,','',0,'Ag==','nam3wxag',1,0,'',131,0,0),(709,220,3,190,0,'202.63.116.3',1129874274,1,0,1,1,1,0,'','Disabled bitmaps not appearing in POPUP Menus','Hi Friends\n\nI have a problem.  When I disable some of the menu items in a popup menu,\nthe bitmaps of the respective menu items are completely missing from the\nview and only the menu text is appearing in gray colour.\n\nCan anybody suggest me how to do it.\n\nAttached are two examples\n\nThe disbabled bitmaps in 2nd one is just painted not done thru programe.\n\n- Ramesh Babu P','',0,'Ag==','1110cjtk',1,0,'',190,0,0),(710,209,6,2,0,'80.58.2.107',1129874693,1,0,1,1,1,1,'','','[quote=&quot;José Luis Sánchez&quot;:122v89mj]¿ Podrías contar un poco a que se refieren estos cambios ?[/quote:122v89mj]\n\nHasta ahora FWH accedía directamente a la variable hb_stack de Harbour/xHarbour, desde bastantes funciones. xHarbour ha cambiado el nombre de dicha variable, lo que nos ha llevado a usar una serie de funciones intermedias que acceden a esa variable, y a sus datos (es una estructura de C), sin tener que manipularla directamente.\n\nGracias a que Harbour/xHarbour mantienen compatibilidad en esas funciones intermedias, la nueva FiveHC.lib sigue siendo una única librería para ambos.\n\nPor otra parte, estos cambios le dan más robustez a FWH, pues nuestra política de desarrollo es no acceder a valores internos de los compiladores, de manera que FiveWin sea lo más independiente posible de los cambios internos que se produzcan ahora y en el futuro en Harbour/xHarbour.\n\n[quote=&quot;José Luis Sánchez&quot;:122v89mj]\n¿ Supone esto que los usuarios de versiones anteriores de FWH tenemos que pasar por caja o vas a liberar algún parche gratuito ?[/quote:122v89mj]\n\nCuando este tipo de cambios ocurren nuestra intención no es hacer pasar por caja a los usuarios, sino intentar controlar quienes estan usando versiones ilegales de FWH. \n\nDe momento está siendo probado por un grupo reducido de desarrolladores. Una vez se confirme que está totalmente estable, entonces veremos la forma de que los usuarios se identifiquen para que sólo los debidamente registrados accedan a esta nueva versión de FiveHC.lib.','',0,'gA==','122v89mj',1,0,'',2,0,0),(711,220,3,2,0,'80.58.2.107',1129875423,1,0,1,1,1,1,'','','Ramesh,\n\nPlease provide a download link for the samples. Thanks,','',0,'gA==','odu6fsu1',1,0,'',2,0,0),(712,212,3,3,0,'82.124.244.11',1129876327,1,0,1,1,1,0,'','','[quote=&quot;Eugeniusz Owsiak&quot;:3bri44ck]Richard,\n\nI think it is a good and simple solution but where can I found info of oExcel object property? \n\n\nregards Eugeniusz[/quote:3bri44ck]\n\nEugeniusz\n\nSorry i do not understand the question\n\nWhat exactly are you looking for ? Active sheet ? \n\nIf so try \n\noSheet = oExcel:Get( \"ActiveSheet\" )\nnRows  := oSheet:UsedRange:Rows:Count()\nnCols   := oSheet:UsedRange:Columns:Count()\n\n\nRichard','',0,'gA==','3bri44ck',1,0,'',3,0,0),(713,221,4,68,0,'203.13.90.2',1129878674,1,0,1,0,1,0,'','Registry functions','Antonio,\nAre you planning to release the registry functions in version 1? Thanks for everything so far.\nregards, saludos,\nJon Munro','',0,'gA==','1oxqw8jw',1,0,'',68,0,0),(714,187,1,86,0,'81.83.185.136',1129878871,1,0,1,1,1,1,'','','What do you mean by \"transparent\" ?','',0,'gA==','35q9g5ht',1,0,'',86,0,0),(715,220,3,190,0,'202.63.116.3',1129879115,1,0,1,1,1,0,'','Disabled bitmaps not appearing in POPUP Menus','Dear Mr.Antonio\n\nIs there any way to attach a file to the message other than providing a downloadable link ( when members do not have their urls to provide a link)\n\nCurrently I am sending it to your personal e-mail in help-less state.\n\nIn our earlier news forum outlook express used accept all sorts of attachments.  If that feature is provided here also this would be more and more useful  I believe.\n\n- Ramesh Babu[/url][/code][/quote]','',0,'','1f4j6ycq',1,0,'',190,0,0),(716,148,4,89,0,'213.21.136.60',1129879630,1,0,1,1,1,0,'','','Antonio\n\nWith VBE I use a very good printer engine of Field Software \n\n<!-- m --><a class=\"postlink\" href=\"http://www.fieldsoftware.com/PrinterCE.htm\">http://www.fieldsoftware.com/PrinterCE.htm</a><!-- m -->\n\nMaurizio','',0,'','spv5wcur',1,0,'',89,0,0),(717,222,6,23,0,'80.58.44.235',1129880723,1,0,1,1,1,1,'','Una duda con un get de Fecha','Hola foro.\nUn get que tengo tipo fecha me hace una cosa muy rara.\nCuando intento entrar el dato sólo me pinta DDDDD la letra \"D\".\nSi quito el picture, lo entro bien... esto en Clipper+FW funcionaba, ahora en Harbour+FWH ocurre esto, ¿es raro o algo falla?\n\nAhi va el get\n\nREDEFINE GET oGet[ 5] VAR (fEmpresa)-&gt;FECHA_INI  PICTURE \"D\"    ID 105 OF oFld:aDialogs[1] \n\nUn saludo.','',0,'','1pvlm3w0',1,0,'',23,0,0),(718,212,3,6,0,'82.57.162.83',1129881529,1,0,1,1,1,1,'','','[quote=&quot;Eugeniusz Owsiak&quot;:15c8ng55]Richard,\n\nI think it is a good and simple solution but where can I found info of oExcel object property? \n\n\nregards Eugeniusz[/quote:15c8ng55]\n\nSearch for VBA*.CHM in your hard disk.\n\nEMG','',0,'gA==','15c8ng55',1,0,'',6,0,0),(719,223,6,183,0,'80.58.13.43',1129887062,1,0,1,1,1,1,'','Dudas sobre Toolbar','Estoy probando esta clase y me encuentro con las siguientes dudas:\n1) Gracias a Antonio, en un mensaje de hace unas semanas, modifiqué la clase window para conseguir efectos \"ballon\" en los tooltip. Funcionó perfecto, pero, esta nueva clase \"pasa\" del cambio ofreciendo los tooltip tradicionales. ¿Es posible conseguir ésto para que todo el programa funcionae con los mismos tooltip?\n2) Otra duda es cómo disponer de un botón en la barra, con menú desplegable. No se si  es posible hacerlo con algún parámetro. Por otra parte, como el comando que me crea el botón no devuelve un objeto, no puedo hacer referencia a él para conseguir abrir el popup sobre ese objeto. Es decir, no puedo escribir \"ACTIVATE POPUP MENUPOP AT 20,20 OF NOMBREDELBOTON\", porque \"NOMBREDELBOTON:=OTOOLBAR:ADDBUTTON...\" me devuelve NIL. ¿Alguna idea?.','',0,'gA==','37ug589w',1,0,'',183,0,0),(720,187,1,88,0,'82.150.2.20',1129887443,1,0,1,1,1,1,'','','I supouse he means with \"transparent\" property. \n\nHe tries the dialog and the browse allows to see what is printed under/behind them.\n\nPersonaly i dont know how to do it, sorry.\n\n\nKeep in touch!!\n\n\nNos leemos!!','',0,'gA==','2ujgpjkh',1,0,'',88,0,0),(721,206,6,192,0,'80.58.50.109',1129889640,1,0,1,1,1,0,'','','Quizás pueda servir algo así :\n[code:bssunol6]CLASS MiBtn FROM TBNTBMP \n&#46;&#46;&#46;&#46;&#46;\n   METHOD ClassName&#40;&#41; INLINE &quot;TBTNBMP&quot;\n&#46;&#46;&#46;&#46;&#46; \nENDCLASS[/code:bssunol6]\nSaludos','',0,'AIA=','bssunol6',1,0,'',192,0,0),(722,205,6,24,0,'80.58.33.109',1129891526,1,0,1,1,1,1,'','Re: Al menos funciona para XP ;-)','[quote=&quot;jesus&quot;:ayr01fyj]Gracias Rafa !\n\nAl menos funciona perfecto para XP, aún no lo he probado en Win98.\n\nLa única solución para win98 es alguna función para cambiar la fecha a un fichero una vez copiado...\n\nUn saludo[/quote:ayr01fyj]\n\nEso estuve yo mirando antes de dar con esa funcion del API, pero no logré realizarlo, osease, cambiarle las propiedades, ahora no recuerdo si encontre la solucion adecuada o no.\n\nEstoy interesado en poder cambiarle fecha/hora , por el tema del W98, si logras algo, acuerdate del foro <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos\nRafa Carmona','',0,'gA==','ayr01fyj',1,0,'',24,0,0),(723,221,4,2,0,'80.58.2.107',1129892258,1,0,1,1,1,1,'','','Jon,\n\nWe have just published a new FWPPC build with registry management functions support. You may already download it.\n\nWe appreciate your feedback about how they work, thanks  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2l12u6wt',1,0,'',2,0,0),(724,224,16,2,0,'80.58.2.107',1129892414,1,0,1,1,1,1,'','New FWPPC build / Nuevo FWPPC build','We have just published a new FWPPC build with registry management functions support. You may already download it. \n\nWe appreciate your feedback about how they work, thanks \n\nAcabamos de publicar un nuevo build de FWPPC con soporte de funciones para el manejo del registro.\n\nOs agradecemos vuestra información acerca de su funcionamiento, gracias.','',0,'gA==','1cn161x1',1,0,'',2,0,0),(725,225,3,160,0,'210.212.142.6',1129892687,1,0,1,1,1,0,'','TestMail.Prg Compilation error','Dear All,\n\nwhile compiling \\Samples\\TestMail.Prg I get following error :\n  but HB_THREAD_SUPPORT not defined.\n\nWhat am I doing wrong ? Can anybody guide ?\n\nTIA\nMilan.','',0,'gA==','36u65paa',1,0,'',160,0,0),(726,225,3,2,0,'80.58.2.107',1129892827,1,0,1,1,1,1,'','','Milan,\n\nIt looks as a xHarbour issue. You may ask them. Thanks.','',0,'gA==','1r89xkq5',1,0,'',2,0,0),(727,223,6,2,0,'80.58.2.107',1129894516,1,0,1,1,1,1,'','','Jose Maria,\n\nEstamos buscando en google información acerca de cómo usar tooltips tipo \"balloon\" en las toolbars. De momento esto es lo más completo que hemos podido encontrar:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.clubdelphi.com/foros/printthread.php?t=4189\">http://www.clubdelphi.com/foros/printthread.php?t=4189</a><!-- m --> (está en object pascal y habría que pasarlo a C, pero lo importante es que nos sirve de orientación).\n\nRespecto a tu cuestión sobre los botones, comentarte que aún no está implementado. Esperamos tenerlo pronto.','',0,'gA==','1e2g7lul',1,1129966522,'',2,1,0),(728,222,6,88,0,'82.150.2.20',1129896076,1,0,1,1,1,1,'','','Buenas Angel,\n\nhas probado por casualidad en poner PICTURE [b:gwbxo5oh]\"@D\"[/b:gwbxo5oh], asi es como las pongo yo, con la arroba.\n\n\nCuidese.\n\n\nNos leemos!!','',0,'QA==','gwbxo5oh',1,0,'',88,0,0),(729,226,6,116,0,'200.96.235.61',1129896534,1,0,1,1,1,0,'','Unresolved external \'_hb_stack\'','Olá\n\nEstou usando o xHarbour 0.99.51 do CVS + FHW 26. \nCompilei o xharbour recentemente e compilei minhas libs,\nsó que a lib do fwh FIVEHC.LIB os fontes não são disponiveis.\nParece que Ron renomeou a função HB_STACK() para\nHB_STACKST(), agora não consigo compilar meus\nprogramas em fivewin. Acontece o seguinte erro:\n\nd:\\Borland\\Bcc55\\BIN\\ilink32  @makefile.lnk\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from D:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\n\n-- \n[]´s\n\nJoão Cezar\n<!-- e --><a href=\"mailto:joao.cezar@cutura.com.br\">joao.cezar@cutura.com.br</a><!-- e -->\n<!-- e --><a href=\"mailto:teknosight@cultura.com.br\">teknosight@cultura.com.br</a><!-- e -->','',0,'','1v1843j3',1,0,'',116,0,0),(730,160,2,97,0,'200.33.72.30',1129899131,1,0,1,1,1,1,'','tdbf','Si estas ligando la libreria TDBf.','',0,'','37mq62al',1,0,'',97,0,0),(731,222,6,23,0,'80.58.44.235',1129899869,1,0,1,1,1,1,'','','Efectivamente!, así funciona. \nGracias.','',0,'','1jjtz2bq',1,0,'',23,0,0),(732,227,6,23,0,'80.58.44.235',1129901861,1,0,1,1,1,1,'','Duda con filtros y TsBrowse','Hola foro estoy usando tsbrowse y me encuentro con un problema con los filtros de base de datos.\nAntes yo usaba\n(cAlias)-&gt;(DbSetFilter (...))\ny luego refresca el browse (usaba twbrowse) y todo andaba bien.\nAhora hago lo mismo y el tsbrowse no se entera.\nHe probado usando oLbx:bFilter:={|| ... } pero tampoco se entera.\nLe ha pasado esto a alguien??\n\nGracias.','',0,'','3olo5huc',1,0,'',23,0,0),(733,228,2,129,0,'201.215.15.85',1129903355,1,0,1,1,1,0,'','Realmente necesito ayuda tdbf + tsbrowse','Amigos, es una lastima, hecho de menos las otras News, habia mas apoyo\npero igual, alguien me ayudar con un ejemplo con tsbrowse y tdbf','',0,'','3rsbbj9c',1,0,'',129,0,0),(734,226,6,2,0,'80.58.2.107',1129904088,1,0,1,1,1,1,'','','Ya hemos solucionado ese problema. Actualmente estamos probando la nueva FiveHC.lib para asegurarnos de que funciona correctamente.','',0,'','1uzkwyhp',1,0,'',2,0,0),(735,229,6,39,0,'201.220.111.30',1129904998,1,0,1,1,1,0,'','Visualizacion Menus Previews','Hola, \nAl mostrar la ventana del preview el menu se ve muy mal, cuando se selecciona queda solo un rectangulo azul segun ilustracion adjunta, a y no solo pasa con el menu del preview, pasa con todas las nuevas ventanas que creo en el programa.\n\nRecuerdo que para esto se publico solucion pero no recuerdo cual.\n\nUso FW23c, Harbour 4.3 y borland\n\nAtte,\nLautaro','',0,'','2krnkthw',1,0,'',39,0,0),(736,230,6,39,0,'201.220.111.30',1129905182,1,0,1,1,1,0,'','Como postear imagenes ???','Hola,\n\nComo se puede postear una imagen (pequeña) en el mensaje ??\n\n\n\nAtte,\nLautaro','',0,'','2ilgn1tm',1,0,'',39,0,0),(737,227,6,53,0,'200.66.175.186',1129912074,1,0,1,1,1,0,'','','Angel:\n\nY con (cAlias)-&gt;(DBGOTOP())  despues del filtro ?\n\nSaludos','',0,'','3dz53dob',1,0,'',53,0,0),(738,231,6,23,0,'80.58.44.235',1129912339,1,0,1,1,1,1,'','Error linkando','Hola foro linkando Harbour+FWH. \nEl Turbo incremental Link 5.00 me da\nError : \'fichero.c contains invalid OMF record, type 0x2f\'\n\nNo entiendo que es lo que ocurre, he recompilado toda mi aplicación contable funcionando perfectamente, ahora voy a recompilar la aplicación comercial y me canta este error.\n\nPodeis ayudarme?? gracias.','',0,'','qh4gyixx',1,0,'',23,0,0),(739,205,6,138,0,'201.128.111.62',1129913622,1,0,1,1,1,1,'','','A ver, que sois todavia unos padawans y ya vais de maestros Jedi, esta bien que sois alumnos avanzados, pero no os olvideis del viejo maestro:\n\nManual de FiveWin, funcion SetFTime() uso:\n\nhFile := Fopen(\"ficheroafechar.ext\")\nSetFTime(hFile, \"10:20:59\", \"15:01:2005\")\nFclose(hFile)\n\nCon esta funcion podeis poner la fecha y la hora que querais en los ficheros.','',0,'','alvllzu0',1,0,'',138,0,0),(740,232,3,31,0,'84.15.27.93',1129914655,1,0,1,1,1,1,'','MDIchild problem','Hi ! I have one problem with MDIChilds windows . The situation looks like that :\n\n   1 - open first MDIChild window oWnd1 ;\n   2 - open second MDIChild window oWnd2 ;\n     ( this second MDI Child have folders ) ;\n   3 - maximize it .The first window maximized too ;\n   4 - let to close the second ( oWnd2 ) window ;\n   - application hangs up ... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->(\n\n   It appears not allways , but sometimes . At first I was thinking that this is my problem , because I\'m using owns classes for window management - to save states of windows , browses and etc. . But with not maximized window or windows without folders it works OK . With one MDIChild if it\'s maximized ( with folder too ) it works OK . So why it hangs up only for maximized ( with folders ) and if are open some windows ?\n   If I will close the first window oWnd1 ( from described sequence ) , then and second will be closelly without problems . It seem that folder dialogs are interfere in sequence of MDI Childs ... That\'s mine opinion . What it\'s really - I believe that guru will help to elucidate .\n\n   Here is my pieces of sources :\n\nMETHOD WCreate() CLASS TMyBasic // to create MDI CHild window\n::WndBasic()\nif ::nWd == 1\n   ::Bar()\nendif\nif ::lFld\n  ::oFld := TFolder():New( 5, 5, ::aFold,, ::oWnd,,,, .t.,,,,, .t. )\n   ::oFld:SetOption( ::nFld )\n   ::oFld:bChange := { || ::nOldFld := ::nFld, ::nFld := ::oFld:nOption, ::FldChg() }\n   ::oFld:aDialogs[ ::nFld ]:bLClicked := { || ::nOldFld := ::nFld, ::nFld := ::oFld:nOption, ::FldChg() }\n   ::oFld:SetFont( wndMain():oFont )\n   if ::nWd == 1\n      ::oWnd:SetControl( ::oFld )\n   endif\nendif\n::oBrw := array( len( ::aAlias ) ) // browse obj arrays\n::oSel := array( len( ::aAlias ) ) \n::BrwBasic()\n\n::oWnd:bLostFocus := { || if( ::nLst &lt;= 0, ::LstFcs(), ) }\n::oWnd:bGotFocus  := { || if( ::nLst &lt;= 0, ::GotFcs(), ) }\n::oWnd:bValid     := { || ( ::End(), .t. ) }\n::oWnd:bKeyDown   := { | nKey, nFlags | ::Keys( nKey ) }\nreturn( NIL )\n\nMETHOD Start() CLASS TMyBasic\n   local n := 0\n   if ::nWd == 1 // for MDIChilds\n      if !::lMax\n         for n := 1 to len( wndMain():oWndClient:aWnd )\n            if IsZoomed( wndMain():oWndClient:aWnd[ n ]:hWnd )\n               ::lMax := .t.\n               exit\n            endif\n         next\n      endif\n      ::oWnd:Activate( if( ::lMax, \"MAXIMIZED\", \"NORMAL\" ) )\n      ::nPrvWnd := GetFocus()\n      ::oWnd:SetFocus()\n      ::Focus()\n     else // for dialogs\n      ::oWnd:lHelpIcon = .F.\n      ::oWnd:Activate( ,,,, { || ::End(), SetFocus( ::nPrvWnd ), .t. },, ;\n      { || ::oWnd:Move( ::nWk1, ::nWk2, ::nWk3, ::nWk4, .t. ), ::DlgCtrl(), ;\n      ::nPrvWnd := GetFocus(), ::PradIrs( ::cPrdKnt, ::aPrdBsn, ::cPrdAls ), ::oBrw[ ::nFld ]:SetFocus(), oApp:OpWd( ::cCargo, Self, 1 ) },,)\n   endif\nreturn( NIL )\n\nMETHOD End() CLASS TMyBasic\n   local cCrg := ::cCargo\n   local n := 0\n   if ::bEnd !=NIL // codeblock for needfuls ends of windows\n      eval( ::bEnd )\n   endif\n   if ::oWnd != NIL\n      if ::lEnv\n         for n := 1 to len( ::aBrwID )\n            wbrw_save( ::cCargo, ::aBrwID[ n ], ::oBrw[ n ], ::aColSrw[ n ] )\n         next\n         wind_save( padr( ::cCargo, 10 ), ::oWnd )\n      endif\n      ::LstFcs()\n   endif\n   if ::bEndPst !=NIL  // another codeblock from my class\n      eval( ::bEndPst )\n   endif\n   oApp:OpWd( cCrg,, 2 ) // to release object from \n   ::lEnd := .t.\n   if ::nWd == 1\n      // it hangs up in this place - I don\'t reach PostMessage function .\n      PostMessage( ::oWnd:hWnd, WM_CLOSE )\n   endif\nreturn( NIL )\n\n   Any ideas and help are very appreciatable . With best regards !\n\n  P.S. Antonio , this isn\'t related to FiveHc or xHarbour , it was in earlier . Only at this moment I decided to direct for help .. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','k6q6fjqj',1,0,'',31,0,0),(741,153,3,49,0,'82.61.128.35',1129916007,1,0,1,1,1,0,'','','I use printer class modify by klm  but this is very strange because on 16 bit run ok  , on 32 bit there  the number but not the letters\n\nI leave printer class but I must modify all the programs prntout\nRegards','',0,'','2fcrb9x4',1,0,'',49,0,0),(742,223,6,45,0,'201.252.217.188',1129916124,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3ojn16qj]Jose Maria,\n\nEstamos buscando en google información acerca de cómo usar tooltips tipo \"balloon\" en las toolbars. De momento esto es lo más completo que hemos podido encontrar:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.clubdelphi.com/foros/printthread.php?t=4189\">http://www.clubdelphi.com/foros/printthread.php?t=4189</a><!-- m --> (está en object pascal y habría que pasarlo a C, pero lo importante es que nos sirve de orientación).\n\nRespecto a tu custión sobre los botones, comentarte que aún no está implementado. Esperamos tenerlo pronto.[/quote:3ojn16qj]\n\nYo he implementado Ballons en los ToolTip, despues cuando llegue a casa te los envio por mail <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3ojn16qj',1,0,'',45,0,0),(743,181,6,49,0,'82.61.128.35',1129916219,1,0,1,1,1,0,'','','can you send me the webcam class pls','',0,'gA==','xw71nnky',1,0,'',49,0,0),(744,230,6,45,0,'201.252.217.188',1129916370,1,0,1,1,1,0,'','Re: Como postear imagenes ???','[quote=&quot;Lautaro&quot;:q2k3ses6]Hola,\n\nComo se puede postear una imagen (pequeña) en el mensaje ??\n\n\n\nAtte,\nLautaro[/quote:q2k3ses6]\n\nPrimero, necesitas un HOST para subirla, siempre se recomienda. Uno MUY BUENO es <!-- m --><a class=\"postlink\" href=\"http://imageshack.us/\">http://imageshack.us/</a><!-- m -->  . Subes el JPG o lo que fuera. Luego te propone muchos formatos ese host, para foros <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nSi tiene una URL directa es bien simple debes usar [img]URL[/img] \npor ejemplo la gif del ojito <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/templates/subSilver/images/logo_phpBB.gif\">http://fivetechsoft.com/forums/template ... _phpBB.gif</a><!-- m -->\nse publicaria asi\n[img:q2k3ses6]http&#58;//fivetechsoft&#46;com/forums/templates/subSilver/images/logo_phpBB&#46;gif[/img:q2k3ses6]\n\nSalu2','',0,'iA==','q2k3ses6',1,0,'',45,0,0),(745,80,6,45,0,'201.252.217.188',1129917005,1,0,1,1,1,0,'','','[quote=&quot;Carlos Mora&quot;:ijmdwjpf]Resistencia al cambio? No macho, no estoy de acuerdo. Fijate la cantidad de listas de correo que hay en Yahoo, google y me contas.\nQue economicamente es mas conveniente para FiveTech es una cosa, pero que sea mas estable y comoda que una lista de correo?\nCuando tengamos muchos mensajes veremos.\nQue posibilidades ofrece por encima de una lista de correo?\nSaludos[/quote:ijmdwjpf]\n\nCarlos.\n    La mayoria de los foros mundiales sean del tema que sean estan basados en phpbb y vBulletin o similares. o todos estan locos, o estas forma es la mejor, la mayoria da tendencias logicas de comunicacion. Las listas de correo son feas y impracticas, insisto que responden a una epoca de internet anterior al igual que las news.\nLos foros son las mejores formas de comunicacion.\nLos mensajes se guardan se muestran los ultimos x, uno puede consultar viejos mensajes, buscar lo que se le plazca rapidamente. Es otra tecnologia, las new, listas, con cosas de antaño, que si bien se siguen usando, no son de lo mejor.\nYo hace mas de 5 o 6 años que uso distintos foros, desde se moderador o super moderador en algunos, de distintos temas. Inicialmente NO me gustaban, pero despues me di cuenta, que esta errado fiero, cuando se le empiezan a ver las bondades de uno y otro, es como querer comparar un Fiat 600 con un bmw 0km.\n\nSalu2\n\nSalu2','',0,'gA==','ijmdwjpf',1,0,'',45,0,0),(746,80,6,45,0,'201.252.217.188',1129917204,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:18afex1d]\nPersonalmente cada vez me siento más cómodo con estos foros  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:18afex1d]\n\nAntonio, \n    Te falta implementar un \"Quick Reply\", creo que con phpbb esta en la configuracion la posibilidad.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','18afex1d',1,0,'',45,0,0),(747,233,6,66,0,'24.232.135.75',1129918153,1,0,1,0,1,0,'','Desafio Fivewin','Estimados Colegas\n\nTengo que comparar dos DBFS, y demostrar que se puede \n\n1-&gt;DBF                    2-&gt;DBF\n\nNombre                    Nombre\n\nAV Alem                   AV L N Alem \n\n\nEl tema es el siguiente  leo registro de la DBF 1  Av Alem\ny me tiene que traer  todos los registros que contengan Alem\nde la base 2 independientemente de la ubicacion en que este\nalem en el campo\n\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','21p4t71m',1,0,'',66,0,0),(748,213,6,41,0,'200.87.67.10',1129919796,1,0,1,1,1,0,'','','Hola,\n\nprueba con &lt;{uCondicion}&gt; en lugar de [{||&lt;uCondicion&gt;}] \n\nsaludos\n\nMarcelo','',0,'','o9nz0wvi',1,0,'',41,0,0),(749,234,6,52,0,'201.235.155.110',1129919950,1,0,0,1,1,0,'','Error E2222','Amigos:\n\nEstoy compilando la libreria bTnget y resulta que me tira este error:\n\nError E2222 fwbmp.c 296: Macro expansion too long\nError E2219 fwbmp.c 296: Wrong number of arguments in call of macro \'HB_FUNC\'\n\nQue es? como solucionarlo?\n\nGracias','',0,'','1assk0ys',1,0,'',52,0,0),(750,231,6,2,0,'80.58.2.107',1129920374,1,0,1,1,1,1,'','','Angel,\n\nEstás intentando enlazar un fichero con extension .C en vez de .OBJ','',0,'','2a2zjr2l',1,0,'',2,0,0),(751,80,6,2,0,'80.58.2.107',1129920805,1,0,1,1,1,1,'','','[quote=&quot;Hernan Diego Ceccarelli&quot;:1xr2b860]\nTe falta implementar un \"Quick Reply\", creo que con phpbb esta en la configuracion la posibilidad.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:1xr2b860]\n\nHemos estado buscando esa opción en la configuración del phpBB pero no la encontramos  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','1xr2b860',1,0,'',2,0,0),(752,232,3,2,0,'80.58.2.107',1129921060,1,0,1,1,1,1,'','','Rimantas,\n\nWe may need a self contained and reduced sample to reproduce the error using FWH standard FWH classes. Without that, its quite difficult to help.\n\nYou say the application hangs. Does it GPF ? Do you loose control of it ? No mouse response ? Keyboard response ? Does Windows report it is not responding ?','',0,'gA==','s74u75hc',1,0,'',2,0,0),(753,223,6,2,0,'80.58.2.107',1129921234,1,0,1,1,1,1,'','','[quote=&quot;Hernan Diego Ceccarelli&quot;:15vm37w1]Yo he implementado Ballons en los ToolTip, despues cuando llegue a casa te los envio por mail <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:15vm37w1]\n\nEn los tooltips de la toolbar ?  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'gA==','15vm37w1',1,0,'',2,0,0),(754,235,6,61,0,'201.217.148.211',1129921745,1,0,1,1,1,0,'','Mew da error en la n ueva version de Harbour','Amigos: Al compilar con la nueva versión de Harbour, bajada hoy\nerrores: hb_sxDeCrypt ; hb_sxPtoD ; hb_sxDtoP ; hb_sxDtoP ; hb_sxEnCrypt\n\nMuchas gracias.','',0,'gA==','1zomltns',1,0,'',61,0,0),(755,230,6,39,0,'201.220.111.30',1129922195,1,0,1,1,1,0,'','Re: Como postear imagenes ???','Gracias,\n\nAtte,\nLautaro','',0,'gA==','114b50xd',1,0,'',39,0,0),(756,229,6,39,0,'201.220.111.30',1129922282,1,0,1,1,1,0,'','Re: Visualizacion Menus Previews','Aqui va la imagen,\n\n[url=http&#58;//img488&#46;imageshack&#46;us/my&#46;php?image=menu3he&#46;png:2clx83ht][img:2clx83ht]http&#58;//img488&#46;imageshack&#46;us/img488/2153/menu3he&#46;th&#46;png[/img:2clx83ht][/url:2clx83ht]\n\nSe que alguien lo resolvio alguna vez, pero no se donde lo lei\n\nAtte,\nLautaro','',0,'GA==','2clx83ht',1,0,'',39,0,0),(757,206,6,107,0,'80.58.24.107',1129923044,1,0,1,1,1,0,'','','Gracias funcionó.\n\nPero supongo que el nombre de la clase estará registrado en alguna parte de esta, pero no encuentro el data ni el método  ClassName definido dentro de la clase.\n\nHe rebuscado en Windows y Control, pero no lo encuentro, espero que no me cause futuros problemas.\n\nUn saludo\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'GA==','snxcf288',1,0,'',107,0,0),(758,236,6,177,0,'62.99.102.204',1129925007,1,0,1,1,1,0,'','FWBackup 32 bits','Buenas,\n\nalguien puede dejar por aquí FWBackup de Bingen pasado a 32 bits ?\n\nSaludos','',0,'GA==','19frsill',1,0,'',177,0,0),(759,237,2,198,0,'201.154.115.250',1129925509,1,0,1,1,1,1,'','Integracion de rutinas en C','Hola!\n\nAlguien podrìa indicarme como puedo integrar rutinas en C a mi aplicaciòn.  Tengo clipper 5.3 + five win +blinker\n\nSaludos','',0,'GA==','z1cmpx4y',1,0,'',198,0,0),(760,238,3,61,0,'200.40.236.247',1129925986,1,0,1,1,1,0,'','MyError in Harbour download today from Fivetech, how fix it?','Hi friends:\n\nI have an error:\nhb_sxDeCrypt ; hb_sxPtoD ; hb_sxDtoP; hb_sxEnCrypt\n\nFWH september build\nHarbour download today\nBorland\n\nThanks in advance.\n\nRuben Fernandez','',0,'GA==','2eynp0fb',1,0,'',61,0,0),(761,237,2,2,0,'80.58.2.107',1129931603,1,0,1,1,1,1,'','','Revisa el directorio de FiveWin source\\winapi y source\\function. Ahí encontrarás el código fuente de muchas funciones en C que te serviran de modelo para desarrollar tus propias funciones en C.','',0,'GA==','w3823y0i',1,0,'',2,0,0),(762,238,3,2,0,'80.58.2.107',1129931728,1,0,1,1,1,1,'','','Ruben,\n\nYou have to link dbffpt.lib and hbsix.lib from harbour/xharbour.','',0,'GA==','28qslr24',1,0,'',2,0,0),(763,206,6,2,0,'80.58.2.107',1129932221,1,0,1,1,1,1,'','','Harbour/xHarbour registran automaticamente el nombre de la clase desde la línea CLASS ... \n\nla Clase HBObject de [x]Harbour implementa esos métodos y todas las clases heredan automaticamente de ella. Puedes revisar dicha clase en Harbour/source/rtl/tobject.prg.','',0,'','yzwb6zhh',1,0,'',2,0,0),(764,235,6,2,0,'80.58.2.107',1129932573,1,0,1,1,1,1,'','','Tienes que enlazar la librería dbffpt.lib y hbsix.lib','',0,'','wil2miy5',1,0,'',2,0,0),(765,216,6,2,0,'80.58.2.107',1129932673,1,0,1,1,1,1,'','','Posiblemente puedas solucionarlo usando ADO. Consulta los mensajes de Enrico Maria Giordano en <!-- m --><a class=\"postlink\" href=\"news://news.fivetechsoft.com\">news://news.fivetechsoft.com</a><!-- m --> respecto a ADO.','',0,'','1p0td6el',1,0,'',2,0,0),(766,74,6,2,0,'80.58.2.107',1129932829,1,0,1,1,1,1,'','','Gustavo,\n\nDepende de lo que vayas a hacer y que funciones vayas a usar.','',0,'','g09icwf5',1,0,'',2,0,0),(767,74,6,52,0,'201.235.155.110',1129933007,1,0,0,1,1,0,'','Api','Tengo que hacer funcionar las CReateNamedPiped','',0,'','cajv4eo5',1,0,'',52,0,0),(768,239,6,107,0,'80.58.24.107',1129936732,1,0,1,1,1,0,'','Metodos heredados de una clase','¿Como puedo acceder al método padre de una clase cuando se encuentra redefinido? \nHace tiempo leí algo al respecto, pero por más que busco no lo encuentro.\n\nPor ejemplo\n\n   [code:7rgiys62]      CLASS UNO\n             METHOD nombre&#40;&#41;  INLINE &quot;ESUNO&quot;\n          END CLASS\n\n         CLASS DOS FROM UNO\n            METHOD nombre&#40;&#41;  INLINE &quot;ESDOS&quot;\n         ENDCLASS\n\n         CLASS TRES FROM DOS\n            METHOD nombre&#40;&#41;   INLINE &quot;ESTRES&quot;\n        ENDCLASS[/code:7rgiys62]\n            \nSi en mi función main() creo un objeto O1 de la clase TRES y ejecuto el método nombre() obtengo ESTRES, \n\nComo obtengo el \"ESDOS\" y el \"ESUNO\"','',0,'AIA=','7rgiys62',1,0,'',107,0,0),(769,239,6,45,0,'201.252.213.228',1129939414,1,0,1,1,1,0,'','Re: Metodos heredados de una clase','[quote=&quot;miarcod&quot;:3v5s5zti]¿Como puedo acceder al método padre de una clase cuando se encuentra redefinido? \nHace tiempo leí algo al respecto, pero por más que busco no lo encuentro.\n\nPor ejemplo\n\n   [code:3v5s5zti]      CLASS UNO\n             METHOD nombre&#40;&#41;  INLINE &quot;ESUNO&quot;\n          END CLASS\n\n         CLASS DOS FROM UNO\n            METHOD nombre&#40;&#41;  INLINE &quot;ESDOS&quot;\n         ENDCLASS\n\n         CLASS TRES FROM DOS\n            METHOD nombre&#40;&#41;   INLINE &quot;ESTRES&quot;\n        ENDCLASS[/code:3v5s5zti]\n            \nSi en mi función main() creo un objeto O1 de la clase TRES y ejecuto el método nombre() obtengo ESTRES, \n\nComo obtengo el \"ESDOS\" y el \"ESUNO\"[/quote:3v5s5zti]\n\nCaso de Herancia Simple:\nSuper:&lt;Metodo&gt; --&gt; Metodo del Padre <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSuper proviene de SUPERTIPO, En objetos las jerarquías se habla de subtipo o especialización de un supertipo o generalización. . Los subtipos (niveles inferiores de la jerarquía) heredan las características de sus supertipos, además, cada instancia de un tipo de objeto lo es también de sus supertipos. \n\nCaso de Herencia Multiple:\nSuper devolvera el objeto primero, aunque la clase que hereda a uno o mas objetos tiene variables de instancia o exportadas cuyos nombres son los de la clase que se pretende heredar. Esto es aplicable a Objects y el motor de Objetos de Harbour.\n\n\nSalu2\nHernan <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','3v5s5zti',1,0,'',45,0,0),(770,80,6,201,0,'201.246.152.65',1129943985,1,0,1,1,1,0,'','Y también te falta ...','Agregar unos Sticky unos FAQs y las normas del foro\n\nMarco Morales','',0,'gIA=','2h9rw42t',1,0,'',201,0,0),(771,233,6,138,0,'201.128.111.62',1129944468,1,0,1,1,1,1,'','','no es en serio que eso es un desafio ..... o si  ????\n\nSET FILTER to \"ALEM\" $  NOMBRE\n\nListo....\n\nLo quieres mas rapido\n\nINDEX ON loquequieras FOR \"N ALEM\" $ NOMBRE','',0,'gIA=','3v6phy97',1,0,'',138,0,0),(772,233,6,66,0,'24.232.135.75',1129946140,1,0,1,0,1,0,'','Desafio fivewin','Estimado Rene \n\nEl desafio esta en que es un proceso automatico  y no puedo\nponer set filter $ \"Alem\" ya que lo estoy leyendo desde la base 1\n\nGracias','',0,'gIA=','3dvepk6k',1,0,'',66,0,0),(773,148,4,150,0,'62.15.120.84',1129946285,1,0,1,1,1,1,'','off topic','I have just started today the aplication. Fwppc really seems very easy to work with.\n\nNext week I will have a matricial printer, they have tell me that it works with 12 volts. ¿Hoy can a work with it?. Perhaps I go to my car for making the test?.\n\nThanks','',0,'gIA=','jyygrfbi',1,0,'',150,0,0),(774,80,6,177,0,'62.99.102.204',1129953806,1,0,1,1,1,0,'','','Hola,\n\nademás de lo que ya se ha dicho, creo que este nuevo sistema tiene una ventaja sobre las antiguas news, puedes ver ver los mensajes sin tener que pedir al administrador que habrá el puerto 119 en el cortafuegos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .  Y al utilizar http puedes ver los mensajes desde cualquier parte. Lo que estaría bien sería incorporar los mensajes de las antiguas news.\n\nSaludos','',0,'gIA=','3c5u2r19',1,0,'',177,0,0),(775,223,6,57,0,'80.58.36.235',1129960915,1,0,1,1,1,0,'','Re: Dudas sobre Toolbar','[quote=&quot;jmcsoftware&quot;:3b5qigcy]Estoy probando esta clase y me encuentro con las siguientes dudas:\n1) Gracias a Antonio, en un mensaje de hace unas semanas, modifiqué la clase window para conseguir efectos \"ballon\" en los tooltip. Funcionó perfecto, pero, esta nueva clase \"pasa\" del cambio ofreciendo los tooltip tradicionales. ¿Es posible conseguir ésto para que todo el programa funcionae con los mismos tooltip?\n2) Otra duda es cómo disponer de un botón en la barra, con menú desplegable. No se si  es posible hacerlo con algún parámetro. Por otra parte, como el comando que me crea el botón no devuelve un objeto, no puedo hacer referencia a él para conseguir abrir el popup sobre ese objeto. Es decir, no puedo escribir \"ACTIVATE POPUP MENUPOP AT 20,20 OF NOMBREDELBOTON\", porque \"NOMBREDELBOTON:=OTOOLBAR:ADDBUTTON...\" me devuelve NIL. ¿Alguna idea?.[/quote:3b5qigcy]\n\nYo lo estoy haciendo sobre el objecto oToolbar y funciona correctamente. Calculo la posición en base a la toolbar y la posición del botón * por el ancho: \n\nLOCAL nTop  := GetClientRect( ::oToolbar:hwnd )[3]\nLOCAL nLeft := ::oToolBar:nBtnWidth * (nButton-1)\n....\nACTIVATE MENU oMenu AT nTop - 8, nLeft - 5 OF ::oToolbar\n\nY me funciona correctamente\n\nSaludos','',0,'gA==','3b5qigcy',1,0,'',57,0,0),(776,74,6,2,0,'80.58.2.107',1129966720,1,0,1,1,1,1,'','','Gustavo,\n\nUsando las funciones en C que proporcionamos en el directorio source\\winapi como ejemplo, no debieras tener ningun problema en implementar ese API.','',0,'gA==','327gn543',1,0,'',2,0,0),(777,240,2,124,0,'200.59.37.130',1129971121,1,0,1,1,1,0,'','APARIENCIA DE XP A LOS PROGRAMAS','Amigos:\n\n¿Existe la posibilidad de dar apariencia XP a nuestros programas?\n\nSi es así, por favor indiquenme cómo. Sino, esperaremos.\n\nSaludos.\nRicardo Bécares\nRosario, Argentina','',0,'gA==','opsv9x3k',1,0,'',124,0,0),(778,232,3,31,0,'84.15.27.93',1129977568,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1j8f58a5]Rimantas,\n\nWe may need a self contained and reduced sample to reproduce the error using FWH standard FWH classes. Without that, its quite difficult to help.\n\nYou say the application hangs. Does it GPF ? Do you loose control of it ? No mouse response ? Keyboard response ? Does Windows report it is not responding ?[/quote:1j8f58a5]\n\n   Hello Antonio ! \n\n Yes , you are right , if it shows on a small sample that will be easy to detect where is the problem . I understand that , from FWH samples redid one sample with MDIChilds . But that sample works fine . Of course , that can be only mine problem , but I can\'t to detect that , so I directed to newsgroup - maybe with something similar collided other developers ? Or give me an idea ?\n\n   At this time I solved that in my ::End() method . It works , not so clear, but works ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) .\n\nMETHOD End() CLASS TMyBasic\nlocal cCrg := ::cCargo\nlocal n := 0\nlocal oWnd\nlocal lRest := .f.\nif ::bEnd !=NIL\n   eval( ::bEnd )\nendif\nif ::oWnd != NIL\n   if ::lEnv\n      for n := 1 to len( ::aBrwID )\n         wbrw_save( ::cCargo, ::aBrwID[ n ], ::oBrw[ n ], ::aColSrw[ n ] )\n      next\n      wind_save( padr( ::cCargo, 10 ), ::oWnd )\n   endif\n   // added here some line - if window was maximized and with folders\n   if IsZoomed( ::oWnd:hWnd ) == .t. .and. ::lFld\n      lRest := .t.\n      ::oWnd:Hide()\n      ::oWnd:Restore() // minimize that window\n   endif\n   ::LstFcs()\nendif\nif ::bEndPst !=NIL\n   eval( ::bEndPst )\nendif\n::lEnd := .t.\noApp:OpWd( cCrg,, 2 )\nif ::nWd == 1\n   do while PostMessage( ::oWnd:hWnd, WM_CLOSE ) # 1\n   enddo\nendif\nSelf := NIL\n// if exist other windows then again restore them to maximize state , as after :Restore() methods others windows restore too .\n\nif lRest .and. len( wndMain():oWndClient:aWnd ) &gt; 0 \n   wndMain():oWndClient:PrevWindow()\n   wndMain():oWndClient:GetActive():Maximize()\nendif\nreturn( NIL )\n\n   With best regards !','',0,'gA==','1j8f58a5',1,0,'',31,0,0),(779,241,2,129,0,'201.215.15.85',1129990538,1,0,1,1,1,0,'','antonio, creo que fue un error cambiar las new, aqui no..','antonio, creo que fue un error cambiar las news, creo en la modernidad, pero en este foro no te ayuda nada,,,, es una lastima, hecho de menos a vicktor, alfredo arteaga, the full, manuel mercado, fernando leal, adolfo lagos, ...... si uno no respondia, el otro estaba ahi, donde estan amigos, que sin ud. fivewin no \"existe\"....','',0,'gA==','apmoebd5',1,0,'',129,0,0),(780,242,1,204,0,'87.202.95.222',1129991037,1,0,1,1,1,0,'','Opening DBFs error','Hello\nI\'m having some problems with an app that I\'m recoding for windows. Although I\'m using the right commands I cant seem to open a DBF file that is needed for my app.\nThe code snip that hase the problem is\n[code:1zf726g0]\n      DEFINE WINDOW oBrwsWin MDICHILD TITLE OemToAnsi&#40;&quot;&#917;&#958;&#949;&#961;&#949;&#965;&#957;&#951;&#963;&#951;&quot;&#41;;\n        OF oMainWin NOICONIZE NOZOOM NOCAPTION NOSYSMENU MENU BuildMenu&#40;&#41;\n\n      SELECT 1\n      //SX_SETPASS&#40; cIFTPwd, 1&#41;\n      USE FOLDERS VIA &quot;SIXCDX&quot; ALIAS FOLDER PASSWORD &#40;cIFTPwd&#41;\n      MSGInfo&#40;ALIAS&#40;&#41;&#41;\n\n@0,0 LISTBOX oLstBx1;\n  FIELDS PADL&#40;ALLTRIM&#40;FOLDER-&gt;SIDE_A&#41;,4&#41;+&quot;/&quot;+FOLDER-&gt;SIDE\n         PADL&#40;ALLTRIM&#40;FOLDER-&gt;RED_A&#41;,4&#41;+&quot;/&quot;+SUBSTR&#40;FOLDER\n         FOLDER-&gt;NAME,;\n         FOLDER-&gt;ADDRESS,;\n         FOLDER-&gt;TYPE;\n    FIELDSIZES 20, 20, 150, 150, 80;\n    HEADERS OemToAnsi&#40;&quot;&#928;&#955;&#945;&#970;&#957;&#959;&quot;&#41;, OemToAnsi&#40;&quot;&#913;&#961;&#46; &#928;&#961;&#969;&#964;&quot;&#41;,;\n            OemToAnsi&#40;&quot;&#921;&#948;&#953;&#959;&#954;&#964;&#951;&#964;&#951;&#962;&quot;&#41;, OemToAnsi&#40;&quot;&#917;&#953;&#948;&#959;&#962;&quot;&#41;;\n    SIZE &#40;oBrwsWin&#58;nBottom-oBrwsWin&#58;nTop&#41;,;\n         &#40;oBrwsWin&#58;nRight - oBrwsWin&#58;nLeft&#41;;\n    OF oBrwsWin\n[/code:1zf726g0]\nThe ALIAS function returns nothing. When I try to make a browse listbox the app crashes with to base/1002 Alias dose not exist FOLDER. In the error log there are no DBFs in use <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \nI\'m using\nClipper 5.2e, Blinker 6, Six 3.02, and fivewin 1.92 demo.\nWhat am I doing wrong?\nThanks','',0,'AIA=','1zf726g0',1,0,'',204,0,0),(781,240,2,45,0,'201.252.213.228',1129996146,1,0,1,1,1,0,'','Re: APARIENCIA DE XP A LOS PROGRAMAS','Ricardo\n    Me has mandado a mi correo un PM, pero si bien me llego el mail notificandome, no puedo acceder al PM, porque hay sido desahilitados por el administrador. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n   Cualquier pregunta que tengas, me la haces directamente al correo.\n\nHernan','',0,'AIA=','2w2lcoh8',1,1130425380,'',45,1,0),(782,17,3,199,0,'209.161.115.254',1129996756,1,0,1,1,1,0,'','Re: Hi','[quote=&quot;Willi&quot;:ofv2544e]Hola todos,,,, de nuevo por aqui...\nSalu2... Willi Quintana[/quote:ofv2544e]\n\nHola Ayer me Inscribi','',0,'gA==','ofv2544e',1,0,'',199,0,0),(783,10,6,199,0,'209.161.115.254',1129997282,1,0,1,1,1,0,'','Re: Bienvenidos a los foros de FiveTech Software','[quote=&quot;Antonio Linares&quot;:2u7811zx]Hola a todos, \n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin. \n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->[/quote:2u7811zx]\n\n\npues pa serte sincero, me gusta mas estos forros.\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->      <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \nque las NEWS,\nhe leido mucho en los blog, que no gustan estos forros.\nno hay que tenerle miedo a los cambios, mas si son para mejorar.\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','2u7811zx',1,0,'',199,0,0),(784,236,6,131,0,'83.53.159.167',1129998532,1,0,1,1,1,0,'','Re','En el XAAC del año pasado hubo un programa de backup. Se llamaba xBackupLite, buscalo y si no lo encuentas dimelo para que te lo mande.\n\nSaludos,','',0,'gA==','2dscp2hm',1,0,'',131,0,0),(785,243,4,149,0,'195.4.158.58',1129998971,1,0,1,1,1,0,'','Pocket PC Denso BHT-200 Windows CE 4.1','Hello,\n\ni have for testing a Denso Barcode Pocket-PC. It works with Windows CE 4.1, CPU Intel PXA250. FWPPC Program don´t work. I have changed in the link command to 4.10 or 4.00, it doesent help.\nThe Errormessage is: Cannot find \"program.exe\" (or one of its components). Make sure the path and filename are correct and that all the requiered libraries are available.\n\nHave i any change to run a fwppc-program?\n\nRegards\nThomas','',0,'gA==','cksz6y00',1,0,'',149,0,0),(786,243,4,2,0,'80.58.2.107',1130002559,1,0,1,1,1,1,'','','Thomas,\n\nPlease copy one of its applications like the calculator or similar, to the memory card and from there to the computer and run it with the emulator. That way we may be sure they are compatible. Thanks,','',0,'gA==','3s5z57fr',1,0,'',2,0,0),(787,17,3,2,0,'80.58.2.107',1130002630,1,0,1,1,1,1,'','','Daniel,\n\nGracias por inscribirte. Por favor proporcionar una foto personal en vuestra configuración para que así nos conozcamos un poco mejor. Gracias  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','o8uyzwsp',1,0,'',2,0,0),(788,242,1,2,0,'80.58.2.107',1130002731,1,0,1,1,1,1,'','','Are you closing the DBF after activating the MdiChild window ? If so, don\'t close it and try it again.','',0,'gA==','3ha1n7rs',1,0,'',2,0,0),(789,241,2,2,0,'80.58.2.107',1130002818,1,0,1,1,1,1,'','','Luis,\n\nYa hay más de doscientos usuarios registrados en estos foros y siguen llegando más. Verás como dentro de poco estamos todos por aqui  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','b2a9bgxh',1,0,'',2,0,0),(790,223,6,45,0,'201.252.213.228',1130005999,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3tsv7szp][quote=&quot;Hernan Diego Ceccarelli&quot;:3tsv7szp]Yo he implementado Ballons en los ToolTip, despues cuando llegue a casa te los envio por mail <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:3tsv7szp]\n\nEn los tooltips de la toolbar ?  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:3tsv7szp]\n\nEhhh amigo, ya desconfias de mi  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> acaso\n[img:3tsv7szp]http&#58;//img480&#46;imageshack&#46;us/img480/8505/tooltopballon7rl&#46;jpg[/img:3tsv7szp]   <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \ny con titulito y todo  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'iA==','3tsv7szp',1,0,'',45,0,0),(791,242,1,204,0,'87.202.95.222',1130008657,1,0,1,1,1,0,'','','No that DBF will be left open all through the app. It\'s funny all the sample apps that use DBFs work fine. Origanly I had the USE command under the LOCAL statment and before any line of code.\n\n[color=red:hxckdro9][EDIT][/color:hxckdro9]\nOk I did a \"backstep\" and used one of the older versions of the DBF. That version is an uncrypted DBFNTX file. The one I would like to use and is on the clients pc is a encrypted SIXCDX file. One other thing I saw was with the \\samples\\fwbrow.prg the app still dosen\'t open the file it just shows a blank (empty) box where the listbox should be.\nIf this is the case than I can\'t use FW because I want to have my DOS app as a safty net with out having to encrypt the new data again.','',0,'Ag==','hxckdro9',1,0,'',204,0,0),(792,233,6,138,0,'201.129.13.60',1130010069,1,0,1,1,1,1,'','','Insisto no es un desafio\n\nLlamemos a las bases de datos DBF1 y DBF2\n\nLa cosa seria asi:\n\nUSE DBF1 SHARED NEW\nUSE DBF2 SHARED NEW\n\nSET FILTER TO DBF1-&gt;nombre $ DBF2-&gt;nombre\n\nNo le veo la mayor complicacion','',0,'Ag==','2kkykn3p',1,0,'',138,0,0),(793,240,2,138,0,'201.129.13.60',1130010251,1,0,1,1,1,1,'','','El look XP solo vale para aplicaciones de 32 y 64 bits, si trabajas con FiveWin Harbour no tienes el menor problema para usarlas.\n\nMira este articulo:\n\n[url:3iepam9o]http&#58;//google&#46;blogspot&#46;com/2005/07/crnica-de-una-migracin-exitosa-parte-4&#46;html[/url:3iepam9o]','',0,'EA==','3iepam9o',1,0,'',138,0,0),(794,219,16,205,0,'81.205.236.20',1130012902,1,0,1,1,1,0,'','','Hi Antonio,\n\nVery stange !\nThis xHarbour version is 0.99.51 and this is the same version number as distributed with FDTN july 2005. \nBut the libs and also harbour.exe is not the same. \nThis must be a new build...\nWhere can I find what has changed ?\n\nBest regards,\nKlaas den Dekker','',0,'EA==','2aeh4zwy',1,0,'',205,0,0),(795,236,6,177,0,'62.99.102.47',1130013748,1,0,1,1,1,0,'','','Muchas gracias José Luis.\n\nSaludos.','',0,'EA==','2746bqp8',1,0,'',177,0,0),(796,219,16,2,0,'83.39.227.26',1130022106,1,0,1,1,1,1,'','','Klaas,\n\nMaybe the version number remains the same, but they are different builds (around 3 months development differences).\n\n[quote=&quot;Klaas&quot;:1dfnyi8s]Where can I find what has changed ?[/quote:1dfnyi8s]\n\nYou may download the changelog file from the CVS.','',0,'gA==','1dfnyi8s',1,0,'',2,0,0),(797,242,1,2,0,'80.58.2.107',1130043844,1,0,1,1,1,1,'','','[quote=&quot;kronos911&quot;:3hkj55iz]One other thing I saw was with the \\samples\\fwbrow.prg the app still dosen\'t open the file it just shows a blank (empty) box where the listbox should be.[/quote:3hkj55iz]\n\nsamples\\fwbrow.prg works fine here. Have you modified it ? What FW version are you using ?','',0,'gA==','3hkj55iz',1,0,'',2,0,0),(798,83,3,45,0,'201.252.213.228',1130047558,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:39jn8zvz]Good to know.\n\nADS 8.0 has very powerful new features like automatic backup system within the same server, and memo field \"filtering\"\n\nOther features like replication and mirroring are still supported along with other very useful like Internet DBF access.[/quote:39jn8zvz]\n\nAnd velocity ???','',0,'gA==','39jn8zvz',1,0,'',45,0,0),(799,223,6,2,0,'80.58.2.107',1130047714,1,0,1,1,1,1,'','','Hernán,\n\nSencillamente genial  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  Simple, elegante y funcionando ok!\n\nYa lo hemos implementado en la clase TToolBar como una claúsula más:\n\n[code:3ing1q9v]DEFINE TOOLBAR &#46;&#46;&#46; BALLOON[/code:3ing1q9v]\n\nSe almacena en la DATA lTTBalloon del objeto toolbar, con lo que se puede modificar en tiempo de ejecución. En cuanto convirtamos los botones de la toolbar en objetos, entonces ampliaremos para poder definirles título e iconos a cada uno de ellos.\n\nMuchas gracias Maestro <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3ing1q9v',1,0,'',2,0,0),(800,242,1,204,0,'87.202.90.29',1130050149,1,0,1,1,1,0,'','','First I tried it as is. Then I linked in six3.lib and added the USE ... PASSWORD command before the browse() function. I tried it with 1.92 demo. If you like send me a PM with an email that I can use to send you the file and you can try it out (source code too).','',0,'AIA=','3ved7xfu',1,0,'',204,0,0),(801,243,4,149,0,'195.4.158.58',1130052748,1,0,1,1,1,0,'','','Antonio,\n\ncopy files from ROM doesn´t work (error message). I think i have no chance.\n\nThomas','',0,'AIA=','ofsxpbcx',1,0,'',149,0,0),(802,243,4,2,0,'80.58.2.107',1130058960,1,0,1,1,1,1,'','','Thomas,\n\nDon\'t you have an application that runs on that Pocket PC and it is not from Rom ? You may copy that one to the emulator, just to check if it is \"ARM\" compatible (the mode supported by the Microsoft emulator and FWPPC).','',0,'AIA=','u6u2f1j9',1,0,'',2,0,0),(803,242,1,2,0,'80.58.2.107',1130059161,1,0,1,1,1,1,'','','[quote=&quot;kronos911&quot;:3vyiy10a]First I tried it as is.[/quote:3vyiy10a]\n\nDid it work ok ? It should.\n\n[quote=&quot;kronos911&quot;:3vyiy10a]\nThen I linked in six3.lib and added the USE ... PASSWORD command before the browse() function. I tried it with 1.92 demo[/quote:3vyiy10a]\n\nAs far as I remember the six driver was buggy with Clipper. Does it work ok on MsDos mode ?','',0,'gA==','3vyiy10a',1,0,'',2,0,0),(804,242,1,204,0,'87.202.90.29',1130070550,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1n4yddgl]Did it work ok ? It should.[/quote:1n4yddgl]\nWith DBFNTX files yes. With my file no.\n\n[quote=&quot;Antonio Linares&quot;:1n4yddgl]\nAs far as I remember the six driver was buggy with Clipper. Does it work ok on MsDos mode ?[/quote:1n4yddgl]\n\nFor the last 3 monthes when I baught it (SIX3.LIB) and changed the RDD system of my dos app from DBFCDX to SIXCDX with encryption, all is ok and the dos app works fine. (The app has been running for the last 5 years using the DBFCDX RDD, but the user whanted encrypted data and now a new GUI)\nWhith the sample app I can\'t even see the field headers. I just get a blank screen. \nI\'m going to try opening the DBFCDX version of my file with the SIXCDX with out encryption or onverting it.','',0,'gA==','1n4yddgl',1,0,'',204,0,0),(805,242,1,204,0,'87.202.90.29',1130072701,1,0,1,1,1,0,'','','Ok I found the problem. From the monthly backup files that I get somehow the dbf was readonly  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> I found that error out when I used the same dbf on my dos app and the dos #5 error came up. As I dont have it for multiuser and the system didn\'t crash I looked at the file with the attrib cmd. There it was R FOLDERS.DBF. <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \nSo this thread is closed and the demo app works fine (so far, what questions will come up down the road I don\'t know)\n\nI do have one question how to trap the escape key so that it wont close an MDIchild window\n\nAny way thank you for you replies.','',0,'gA==','y33ry68k',1,0,'',204,0,0),(806,221,4,68,0,'203.45.174.65',1130074015,1,0,1,1,1,1,'','','Antonio\nThanks for the update! \'RegQueryValue\' is possibly missing the unicode to ascii conversion of the result and just returns the first character...tried patching it myself but clipapi.h prevents me. On the emulator I just used the \'owner\' key to test this.  The emulator doesn\'t seem to support writing to the registry, so I\'ll be testing on an Intermec 700 (where FWPPC runs perfectly) in a day or two and will let you know results...   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nRegards, Saludos,\nJon Munro','',0,'gA==','31udo5tz',1,0,'',68,0,0),(807,244,3,101,0,'200.28.122.59',1130075093,1,0,1,1,1,0,'','Unresolved external _hb_stack','Estimado Antonio,\n\nHe bajado la ultima actualización de xharbour y no puedo compilar los programas porque sale está leyenda\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWX\\LIB\\FIVEHC.LIB|FFW\nNDRUN\n\nTiene alguna solución ?\n\nYo uso FWH y creo que es la primera versión  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  ( Digamos la 1.95 )\n\nSaludos','',0,'gA==','3l8jwfy5',1,0,'',101,0,0),(808,221,4,2,0,'80.58.2.107',1130081385,1,0,1,1,1,1,'','','Jon,\n\n[quote=&quot;Jon Munro&quot;:wyv2m0zt]\'RegQueryValue\' is possibly missing the unicode to ascii conversion of the result and just returns the first character...[/quote:wyv2m0zt]\n\nYes, you are right. We have just fixed it and a new build is ready for download.\n\n[quote=&quot;Jon Munro&quot;:wyv2m0zt]The emulator doesn\'t seem to support writing to the registry, so I\'ll be testing on an Intermec 700 (where FWPPC runs perfectly) in a day or two and will let you know results...   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:wyv2m0zt]\n\nMany thanks for your feedback,','',0,'gA==','wyv2m0zt',1,0,'',2,0,0),(809,244,3,2,0,'80.58.2.107',1130081496,1,0,1,1,1,1,'','','Jorge,\n\nEs un tema que ya hemos comentado hace un par de dias aqui en los foros. Además te he enviado un email privado.','',0,'gA==','1jruzkjh',1,0,'',2,0,0),(810,242,1,2,0,'80.58.2.107',1130081698,1,0,1,1,1,1,'','','Kronos,\n\nglad to know you found the problem. To avoid closing the MdiChild, use its VALID clause.\n\nWe do appreciate if you use a personal photo for your \"avatar\" instead of a drawing. Thanks.','',0,'gA==','2s5icwnh',1,0,'',2,0,0),(811,224,16,2,0,'80.58.2.107',1130081818,1,0,1,1,1,1,'','','We have just publised a new FWPPC upgrade with a minor fix on the registry management functions.','',0,'gA==','1nqa1oqf',1,0,'',2,0,0),(812,236,6,53,0,'200.66.175.138',1130085927,1,0,1,1,1,0,'','','Baxajun:\n\nTal vez una alternativa sea EasyBackup del buen amigo Timm, mira en\nla zona de descargas de <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info/index.html\">www.reportdesigner.info/index.html</a><!-- w -->, es free y totalmente configurable hasta en el lenguaje.\n\nSaludos','',0,'gA==','rbsxvbdd',1,0,'',53,0,0),(813,113,3,69,0,'65.92.154.253',1130087703,1,0,1,1,1,0,'','','Thanks guys ... I have it working now.','',0,'gA==','8hfo5zh3',1,0,'',69,0,0),(814,236,6,9,0,'62.174.202.39',1130092193,1,0,1,1,1,0,'','','Te confirmo el comentario de Armando. Yo estoy usando EasyBackup y estoy bastante contento.\n\nUn saludo\n\nManuel','',0,'gA==','11kg2cr6',1,0,'',9,0,0),(815,239,6,123,0,'83.49.56.173',1130092778,1,0,1,1,1,0,'','','Hola Hernán, Miarcod,\n\nUtilizando el motor de objetos de (x)Harbour,  según veo en el código de Miarcod, si hacemos super:Nombre() devolverá \"ESDOS\" por que el padre de la clase TRES es DOS.\n\nA nivel PRG, si lo que interesa es acceder a la clase \'padre\' de una jerarquía de clases debería hacerse de una forma parecida a esta:\n\n[code:2t31ztuu]\nCLASS UNO\n         METHOD nombre&#40;&#41;  INLINE &quot;ESUNO&quot;\nEND CLASS\n\nCLASS DOS FROM UNO\n           METHOD nombre&#40;&#41;  Super&#58;Nombre&#40;&#41;\nENDCLASS\n\nCLASS TRES FROM DOS\n           METHOD nombre&#40;&#41;   Super&#58;Nombre&#40;&#41;\nENDCLASS\n[/code:2t31ztuu]\n\nCon esto te aseguras siempre que la llamada al método Nombre dará como resultado el que hay en la case padre.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2t31ztuu',1,0,'',123,0,0),(816,245,3,2,0,'80.58.2.107',1130098068,1,0,1,1,1,1,'','xHarbour builder and FWH','We already have FiveHCM.lib for xHarbour builder and FWH users, using \nxHarbour most recent CVS code. (Is xHarbour builder already using the most recent CVS code ?)\n\nPlease email us to get it.','',0,'AIA=','iekew4eu',1,0,'',2,0,0),(817,246,6,2,0,'80.58.2.107',1130098193,1,0,1,1,1,1,'','xHarbour builder y FWH','Ya tenemos preparada la librería FiveHCM.lib para los usuarios de xHarbour builder y FWH (¿ Está xHarbour builder usando ya el código más reciente del CVS ?)\n\nEnviadnos un email para solicitarla.','',0,'AIA=','2h1clbid',1,0,'',2,0,0),(818,232,3,208,0,'84.160.130.199',1130098664,1,0,1,1,1,0,'','','[quote=&quot;Rimantas&quot;:ct7cnzu9] Of course , that can be only mine problem , but I can\'t to detect that , so I directed to newsgroup - maybe with something similar collided other developers ?\n[/quote:ct7cnzu9]\n\nI can confirm this problem, but also don\'t have a solution.\n\nRay','',0,'gA==','ct7cnzu9',1,0,'',208,0,0),(819,179,3,115,0,'85.41.183.42',1130102113,1,0,1,1,1,1,'','','Any news on below error ?\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\nTIA','',0,'gA==','1zcy0yhb',1,0,'',115,0,0),(820,247,3,209,0,'209.217.64.30',1130104946,1,0,1,1,1,0,'','Long file names to array','Hi All,\n\nIs there a way to get an array of long file names from a directory and put them into an array using WinWin?\n\nVytas','',0,'gA==','1b4a7x2f',1,0,'',209,0,0),(821,247,3,6,0,'82.57.162.150',1130106892,1,0,1,1,1,1,'','Re: Long file names to array','The [x]Harbour function DIRECTORY() works fine with long file names.\n\nEMG','',0,'','4i31rrab',1,0,'',6,0,0),(822,248,6,140,0,'200.84.225.46',1130114543,1,0,1,1,1,0,'','Como emular transcripcion de un usuario en una pagina web??','Hola a todos... mi primera aparicion en este nuevo foro...\n\nEl tema es el siguiente...\nHay una organizacion que tiene una pagina web orientada a carga de datos, y hace un par de años que tengo una pequeña aplicación que maneja alrrededor del 95% de los datos que se piden en el citado website...\nArgumentando razones de seguridad la gente que ha diseñado la pagina ha puesto tantas restricciones y tantas trabas que lo unico que se me ocurre es que pueda hacerce un programa que se comporte como si un usuario estuviese transcribiendo los datos... o sea.. seria algo asi como un navegador web con capacidad de sacar los datos de una dbf y enviarlos via post o via get... Es eso posible??? de ser afirmativa la respuesta... me pueden hacer llegar algun ejemplo???\n\nComo siempre, 1Gb de Gracias de antemano por cualquier sugerencia o idea..\n\nGiancarlo J. Sabattino S.\nValencia, venezuela.','',0,'','2x0a9vju',1,0,'',140,0,0),(823,83,3,45,0,'201.252.223.216',1130118035,1,0,1,1,1,0,'','','is really very very FAST  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','tenqgs1v',1,0,'',45,0,0),(824,249,6,121,0,'200.95.154.20',1130122751,1,0,1,1,1,1,'','Encriptar','Existe alguna funcion en xHarbour para encriptar informacion en la base de datos ?\n\nGracias\n\nSaludos','',0,'','c8s6b7q5',1,0,'',121,0,0),(825,250,4,150,0,'62.15.120.84',1130123776,1,0,1,1,1,1,'','Star of aplication','Hello:\n\nI get hb_errInternal the second time that I star a very simple aplication. The first time is ok. I use emulator.','',0,'','3l7un6x3',1,0,'',150,0,0),(826,221,4,68,0,'203.13.90.2',1130126546,1,0,1,1,1,1,'','','Antonio\nThanks for the update.  I\'ve tested it on an Intermec 700 and used VidyaRegistry editor to check results:\nReading values and Creating keys is now OK.  However, regsetvalue correctly creates the required subkey but writes the type \'REG_SZ\' instead of the intended text contents...  Nearly there <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> hth\nRegards, Saludos,','',0,'','1i8ah7wp',1,0,'',68,0,0),(827,250,4,150,0,'62.15.120.84',1130126647,1,0,1,1,1,1,'','','Sorry. Just my mistake.\n\nI copy ACTIVATE WINDOWS twice, one after the other','',0,'','2eqehqyt',1,0,'',150,0,0),(828,179,3,160,0,'210.212.142.91',1130134103,1,0,1,1,1,0,'','Eagerly awaiting your remedy.','[quote=&quot;fsgiudice&quot;:30m55w7x]Any news on below error ?\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\nTIA[/quote:30m55w7x]\n\nDear Antonio,\n\nWe are eagerly awaiting your remedy on above error. I am being punished for not keeping the old lib before updating last cvs.\n\nTIA\nMilan.','',0,'gA==','30m55w7x',1,0,'',160,0,0),(829,223,6,45,0,'201.252.223.216',1130135762,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:z1krgwta]Hernán,\n\nSencillamente genial  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  Simple, elegante y funcionando ok!\n\nYa lo hemos implementado en la clase TToolBar como una claúsula más:\n\n[code:z1krgwta]DEFINE TOOLBAR &#46;&#46;&#46; BALLOON[/code:z1krgwta]\n\nSe almacena en la DATA lTTBalloon del objeto toolbar, con lo que se puede modificar en tiempo de ejecución. En cuanto convirtamos los botones de la toolbar en objetos, entonces ampliaremos para poder definirles título e iconos a cada uno de ellos.\n\nMuchas gracias Maestro <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:z1krgwta]\n\nMe alegro que te haya gustado   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nHernan  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gIA=','z1krgwta',1,0,'',45,0,0),(830,231,6,23,0,'80.58.44.235',1130137669,1,0,1,1,1,1,'','','Cierto, cierto. Un descuido de novato.\n\nGracias.','',0,'gIA=','24mx9s6o',1,0,'',23,0,0),(831,251,1,125,0,'213.140.6.105',1130140548,1,0,1,1,1,0,'','How destroy a preview report  object','Hi,\nif have:\nreport  oRep preview \n.\n.\n.\nend report\n.\n.\n i need later to destroy the preview (also to avoid a second prevew error)\n\ni tried with \noRep:end()   and also\noRep:oDevice:end()  but them dont work !\n\nAny help ?\nTks\nPiscicelli/Zingoni','',0,'gIA=','bgu6p8m3',1,0,'',125,0,0),(832,242,1,193,0,'195.212.29.163',1130143037,1,0,1,1,1,0,'','','I\'d like to add that if you open a database enclose the corresponding statement in BEGIN SEQUENCE END SEQUENCE statements. There are only a few errors (02h, 03h, 05h and maybe one more error code) which concern with the file operations, so you can process all of them in your program and give informative messages to users.','',0,'gIA=','1vq6qjie',1,0,'',193,0,0),(833,251,1,193,0,'195.212.29.163',1130143511,1,0,1,1,1,0,'','','I advice to define all objects (as all other program variables) as local (or static). After performing the general destroy method for most of objects (oObject:end()) assign NIL value to a object variable. I.e.\n\noObject:end()\noObject := NIL\n\nI usually use the following command for the statements above\nRELEASE OBJECT oObject\nwhere OBJECT should be replaced with the specific class name\nFor example\nRELEASE METER oMeter.','',0,'gIA=','oj857xng',1,0,'',193,0,0),(834,251,1,6,0,'82.61.28.228',1130146200,1,0,1,1,1,1,'','Re: How destroy a preview report  object','I think you would have to End() the preview window but its variable oWnd is static inside rpreview.prg. I don\'t think it\'s possible to do what you\'re asking for without modifying rpreview.prg.\n\nEMG','',0,'gIA=','1o7e6qgt',1,0,'',6,0,0),(835,221,4,2,0,'80.58.2.107',1130146803,1,0,1,1,1,1,'','','Jon,\n\nWe have just published a new build. Please test it and let us know how it goes. Thanks!','',0,'gIA=','1p70jqjp',1,0,'',2,0,0),(836,179,3,2,0,'80.58.2.107',1130146924,1,0,1,1,1,1,'','','Milan,\n\nPlease send me a private email specifying the version you are using, and the date when you purchased it or latest upgrade you did. Thanks.','',0,'gIA=','1xlwil72',1,0,'',2,0,0),(837,252,1,161,0,'81.165.129.86',1130147084,1,0,1,1,1,0,'','Contacting Timm Sodtalbers for EasyReports','Hello,\n\nIs anyone has been able to contact Timm Sodtalbers.\nI\'am using EasyReports for one customer, but there is a bug in EasyReports. I have send this bug in february to him and he told me that he will fix it. Then I resend it a few time but I don\'t get a responce.\n\nRegards,\nMarc','',0,'gIA=','2n4e2pds',1,0,'',161,0,0),(838,251,1,193,0,'195.212.29.163',1130148368,1,0,1,1,1,0,'','','In my turn I think that there is no matter how oWnd is declared. Either a new report object should (and indeed does) rerwite oWnd value or the end() method should assign it to NIL (I have not seen the source code; it is general remarks). If this is not the truth then class REPORT should be corrected.','',0,'gIA=','1m5s1403',1,0,'',193,0,0),(839,251,1,6,0,'82.61.28.228',1130149698,1,0,1,1,1,1,'','Re: How destroy a preview report  object','I agree, but I don\'t think it is possible as TReport is today.\n\nEMG','',0,'gIA=','1v4ss72b',1,0,'',6,0,0),(840,249,6,41,0,'200.87.67.10',1130156660,1,0,1,1,1,0,'','','Hola,\n\npuedes utilizar el RDD para ADS y utilizar las dbf encriptadas\n\nsaludos\n\nMarcelo','',0,'gIA=','3bpsz3me',1,0,'',41,0,0),(841,229,6,39,0,'201.220.111.30',1130157330,1,0,1,1,1,0,'','Solucionado','Hola,\n\nEl problema se produce si has definido mal y asignado es menu mal definido a una ventana cualquiera, todas las ventanas y menus que construyas despues saldran mal.\n\n\nAtte,\nLautaro','',0,'gIA=','1rstxius',1,0,'',39,0,0),(842,247,3,209,0,'209.217.64.30',1130158808,1,0,1,1,1,0,'','','Thanks Enrico!\n\nExactly what I was looking for.\n\nVytas','',0,'gIA=','17obwoco',1,0,'',209,0,0),(843,253,3,209,0,'209.217.64.30',1130159262,1,0,1,1,1,0,'','Testzip and Testuzip will not compile','Hi \n\nI run the standard Buildh.bat on either Testzip.prg or Testuzip and get multiple Unresolved externals error messages similar to example below.\n\nAny idea what I am missing?  All other Test*.prg I compiled with Buildh.bat  compile fine.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_UNZIPFILE\' referenced from D:\\FWH\\SAMPLES\\TSTUZIP.OBJ\n\nsnip ...\n\nCould Not Find D:\\FWH\\SAMPLES\\testuzip.il?\n\nThanks,\n\nVytas','',0,'gIA=','4y6a01q2',1,0,'',209,0,0),(844,179,3,159,0,'210.243.203.20',1130161340,1,0,1,1,1,0,'','','FWH 2.5 for xHarbour(BCC55) have not problem!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','2h4uzpg3',1,0,'',159,0,0),(845,124,1,74,0,'201.255.136.103',1130162036,1,0,1,1,1,1,'','','Leonor:\n\n            Agregale la clausula alias a la definicion de cada browse:\n\n  WALIAS:=\'MOVART\'\n  REDEFINE LISTBOX oBrw fields  ID 999  OF oDlg ;\n  COLOR CLR_BLACK, CLR_WHITE ;\n  FONT oFont ALIAS (WALIAS) UPDATE\n\n  wAlias3:=\"MOVAR2\"\n  REDEFINE LISTBOX oBrw3 fields  ID 998  OF oDlg ;\n  COLOR CLR_BLACK, CLR_WHITE ;\n  FONT oFont ALIAS (WALIAS3) UPDATE\n\n            Y en las definiciones de las columnas del browse inclui siempre el alias de la base, no pongas solo el nombre del campo o fieldblock(). Si la base es la misma en los dos browses, abrilas en dos alias distintas.\n\nSaludos,','',0,'gIA=','67n3nzkv',1,0,'',74,0,0),(846,80,6,24,0,'80.58.33.109',1130164126,1,0,1,1,1,1,'','Re:','Lo siento, pero comparar ESTO con las NEWS , no es posible, es como\nquerer comparar un seisciento con  un Ferrari.\n\nEl hecho de que millones de personas usen una cosa determinado, no implica\nque sea mejor.\n\n¿ Una mierda esta buena ?\nPues va ser que no...\n\nY si, millones de moscas le gustan la mierda, no quiere decir que la mierda\nsea buena.\n\nPodriamos hacer un simil entre esto FOROS WEB versus NEWS, con\nWEBMAIL versos POP3, es , a la practica, LO MISMO.\n\nY ahora me vienes y me dices que usas un WEBMAIL!! Anda ya!!\n\nY ojo, que yo no critico a Fivetech por ello, y Antonio a creido que le\nconviene mas a Fivetech esto, pues a respectar al honorable, pero eso si,\npor favor, no compareis FOROS WEB versus NEWS, porque no se pueden\ncomparar.\n\nEs otra manera mas, y si para solucionar nuestros problemas, nos lo soluciona, pues como si quiere ser WEBOS FORUMS!\n\nPor cierto, eso si, quizas para servir como GRAN HERMANO, sea cojonudo,\nestadisticas de cada cual, que has leido, que has respondido , a quien, en definitiva SABER que hace la gente en los FOROS, cosa que con las news, a priori, es harto mas complicado de llevar a cabo.','',0,'gIA=','3nvt7dab',1,0,'',24,0,0),(847,179,3,170,0,'83.177.210.15',1130165529,1,0,1,1,1,1,'','','[quote=&quot;ssbbs&quot;:1hlso9m5]FWH 2.5 for xHarbour(BCC55) have not problem!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:1hlso9m5]\n\ni get these two link errors with Fivewin 2.5, xHarbour 0.99.51\nand Borland  c++ 5.5.1 :\n\n\"Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from E:\\FWH\\LIB\\FIVEHC.LIB|FFW\nNDRUN\nError: Unresolved external \'_HB_FUN__ADS\' referenced from E:\\PROGS\\OBJ32\\IC_DLL3\n2.OBJ\"','',0,'gA==','1hlso9m5',1,0,'',170,0,0),(848,254,6,179,0,'64.46.80.210',1130167672,1,0,1,1,1,1,'','Clase tWorld &amp; Merge','Buenos dias compañeros\n\nFavor si alguien tiene un ejemplo de una carta con campos en Word y los pueda reemplazar con tWord y Fwh (2.4) creo que se llama merge esa funcion\n\n\nSaludos\n\nAtt\n\nWilson \'W\' Gamboa A\n<!-- e --><a href=\"mailto:swrite@uio.satnet.net\">swrite@uio.satnet.net</a><!-- e -->','',0,'gA==','2uncuz6i',1,0,'',179,0,0),(849,255,2,211,0,'80.58.47.107',1130167692,1,0,1,1,1,0,'','linkando varios PRGs','Hola. Uso FW 2.3c, harbour y bcc55. He modificado el fichero de ejemplo buildh.bat pero no consigo linkar varios PRGs como hacía antes con \nblinker fi menu @linkados\n\ncómo he de hacerlo ?\n\nGracias','',0,'gA==','2pdz6oa2',1,0,'',211,0,0),(850,256,3,211,0,'80.58.47.107',1130168309,1,0,1,1,1,0,'','sobre IDE','Hola. Estoy buscando un IDE para FW 2.3c y harbour. Qué me recomiendan ? Visual Fivewin que bajé del ftp de quiquesoft ? multiedit ? Gracias.\nY para los recursos ? los genero y los guado en DLLs, o en ficheros RC, ... ? y como los genero ? con el workshop ? con visual c++ ?\nLas bases de datos las creo con dBaseIII+. Existe algún otro sistema que les convenza más, SQL, ... ??? \nPerdonen tantas preguntas, pero soy nuevo con FHW. Siempre había programado con FW, clipper y blinker, y por fín me decidí a hacer el cambio, pero la información de ayuda que encontré en el software que adquirí lo encuentro muy escueto. Gracias.','',0,'gA==','2xyrma8r',1,0,'',211,0,0),(851,80,6,179,0,'64.46.80.210',1130168479,1,0,1,1,1,1,'','Prefiero las News','Buenos dias\n\nyo tambien prefiero las news anteriores era muchisimo mas rapido\npero donde manda capitan ....\n\na acostumbrarse\n\nSaludos','',0,'gA==','1itkvf94',1,0,'',179,0,0),(852,124,1,146,0,'200.59.40.151',1130168706,1,0,1,1,1,0,'','','[quote=&quot;DanielPuente&quot;:dtcvzvt8]Leonor:\n\n            Agregale la clausula alias a la definicion de cada browse:\n\n  WALIAS:=\'MOVART\'\n  REDEFINE LISTBOX oBrw fields  ID 999  OF oDlg ;\n  COLOR CLR_BLACK, CLR_WHITE ;\n  FONT oFont ALIAS (WALIAS) UPDATE\n\n  wAlias3:=\"MOVAR2\"\n  REDEFINE LISTBOX oBrw3 fields  ID 998  OF oDlg ;\n  COLOR CLR_BLACK, CLR_WHITE ;\n  FONT oFont ALIAS (WALIAS3) UPDATE\n\n            Y en las definiciones de las columnas del browse inclui siempre el alias de la base, no pongas solo el nombre del campo o fieldblock(). Si la base es la misma en los dos browses, abrilas en dos alias distintas.\n\nSaludos,[/quote:dtcvzvt8]\n\n\nGracias por la ayuda: \nTengo una serie de dudas al respecto, cosas que no me quedan muy claras. Para el armado de la ventana con el listbox yo siempre llamo a una subrutina en la que ya cambie el area de trabajo con un dbselectar, o sea que ingreso a la subrutina con el area que necesito activa, la subrutina hace lo siguiente:\n\n// genero la ventana que va a contener el listbox\noForm := TDialog():New( Top, Left, Bottom, Right, cTitle,,,,,,,,, .T.,, oFont )\n // armo un array con todas las columnas que va a contener el listbox, porque pueden ser campos directos de la base o algunos relacionados con otras\n    CantFields := LEN( aDefFields )\n    FOR i = 1 TO CantFields\n        VarDef      := ACLONE( aDefFields[i] )\n        M-&gt;Ancho    := FormParse( VarDef[1] )\n        M-&gt;Etiqueta := ALLTRIM( OemToAnsi( FormParse( VarDef[2] ) ) )\n        VarDef[3]   := SUBSTR( ALLTRIM( VarDef[3] ), 4 )\n        AADD( cEtiqueta, M-&gt;Etiqueta )\n        AADD( nAncho, M-&gt;Ancho )\n        M-&gt;Bloque:= LEFT( VarDef[3], LEN( ALLTRIM( VarDef[3] ) ) - 1 )\n        bBloque+=ACaracter( M-&gt;Bloque, VALTYPE(&amp;(M-&gt;Bloque)))+\",\"\n    NEXT\n    // en bBloque dejo por ejemplo campo1, campo2, campo3\n    bBloque= LEFT( bBloque, LEN( ALLTRIM( bBloque ) ) -1 )\n    bBloque= \"{ \" + bBloque + \" }\"\n\n    nProxArra := Alias()\n\n    @RowLis,1 LISTBOX ObjBrowse FIELDS \"\" ALIAS nProxArra SIZE X2Window, Y2Window OF oForm FONT oFontMulti\n\n    ObjBrowse:aHeaders = cEtiqueta\n    ObjBrowse:bLine    = { || &amp;(bBloque) }\n    ACTIVATE DIALOG oForm CENTER  ON RIGHT CLICK MenuPopup( oForm,, aMenu ) ON INIT ( InitMulti( oForm ), ObjBrowse:Refresh() )\n\nEsto funciona barbaro, dentro de esa ventana hay una accion que seleccionando una linea del listbox llama nuevamente a esa subrutina y trae datos de otra area de trabajo, sucede que cuando cambio el area automaticamente la ventana de atras pasa a tener los mismos datos que la ventana de adelante. Como hago para que en la ventana de atras quede fijo el alias de la otra area de trabajo. No olvidarse que la subrutina es siempre la misma. Por otro lado nunca use el REDEFINE, para que casos lo tendria que utilizar y como hago para saber el ID de un objeto ya creado, porque por lo que veo todos los redefine de todos los comandos necesitan el ID del objeto. \nAdemas tengo otro problema, en algunos casos se me va de sistema con este cartel: ERROR BASE/1513 Operation too complex\nEn bBloque estoy ingresando lo siguiente:\n//primer columna\n{ IF(Abonos-&gt;CodTer==M-&gt;CodTer,\"&gt;\",\" \"),\n//segunda columna\nAbonos-&gt;CodTer,\n//tercer columna\nAbonos-&gt;CodArt,\n//cuarta columna\nLEFT(Abonos-&gt;Nombre,39),\n//quinta columna\nSTR(Abonos-&gt;Cantidad,8,2),\n//sexta columna\nTRANSFORM(ROUND(Abonos-&gt;Precio*(1+IIF(!TipImpu-&gt;Discrimina.AND.TipMov-&gt;Calc_Iva==\"SI  \",(Abonos-&gt;PorGravado/100)*(TipImpu-&gt;PorIva/100+TipImpu-&gt;PorIvaPlus/100),0))+(IIF(!TipImpu-&gt;Discrimina,Abonos-&gt;PrecVta*Abonos-&gt;PorInterno/100,0)),_REDONDEO),\"@Z \"+REPLICATE(\"9\",10-_REDONDEO-1)+\".\"+REPLICATE(\"9\",_REDONDEO) ),\n//septima columna\nTRANSFORM(Abonos-&gt;DescuenArt,\"@Z 99.99\"),TRANSFORM(Abonos-&gt;DescuenAr2,\"@Z 99.99\"),TRANSFORM(Abonos-&gt;DescuenAr3,\"@Z 99.99\"),TRANSFORM(ROUND(Abonos-&gt;Precio*(1+IIF(!TipImpu-&gt;Discrimina.AND.TipMov-&gt;Calc_Iva==\"SI  \",(Abonos-&gt;PorGravado/100)*(TipImpu-&gt;PorIva/100+TipImpu-&gt;PorIvaPlus/100),0))+(IIF(!TipImpu-&gt;Discrimina,Abonos-&gt;PrecVta*Abonos-&gt;PorInterno/100,0)),_REDONDEO)*(1-Abonos-&gt;DescuenArt/100)*(1-Abonos-&gt;DescuenAr2/100)*(1-Abonos-&gt;DescuenAr3/100)*Abonos-&gt;Cantidad ,\"@Z \"+REPLICATE(\"9\",10-_REDONDEO-1)+\".\"+REPLICATE(\"9\",_REDONDEO)) }\n\nsi yo elimino la sexta o septima columna (primero uno y despues vuelvo a colocar esa y elimino la otra) me lo hace bien, pero con las dos columnas juntas no puede, saben si hay algun límite o porque me esta pasando esto. \n\nDesde ya muchas gracias. Saludos a todos\nLeonor','',0,'gA==','dtcvzvt8',1,0,'',146,0,0),(853,179,3,159,0,'210.243.203.20',1130168753,1,0,1,1,1,0,'','','I do CVS at today and no any problem,\nI use compiler FLAG is(BCC5):\nCOBJFLAGS     = -D__HARBOUR__ -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_FM_STATISTICS_OFF -5 -6 -a8 -O2 -OS -tW -c -w3 -I$(CC_INCPP_DIR);$(HRB_INCPP_DIR);$(FW_INCPP_DIR);$(AP_DIR)\\mysql -L$(CC_LIB_DIR)\n\n\n[quote=&quot;Badara Thiam&quot;:cemcxvq3][quote=&quot;ssbbs&quot;:cemcxvq3]FWH 2.5 for xHarbour(BCC55) have not problem!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:cemcxvq3]\n\ni get these two link errors with Fivewin 2.5, xHarbour 0.99.51\nand Borland  c++ 5.5.1 :\n\n\"Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from E:\\FWH\\LIB\\FIVEHC.LIB|FFW\nNDRUN\nError: Unresolved external \'_HB_FUN__ADS\' referenced from E:\\PROGS\\OBJ32\\IC_DLL3\n2.OBJ\"[/quote:cemcxvq3]','',0,'gA==','cemcxvq3',1,0,'',159,0,0),(854,219,16,43,0,'201.138.96.4',1130169910,1,0,1,1,1,0,'','','Hola Antonio\n\n   Recien instale el nuevo build de xHarbour, pero me saca una pequeño error de que no se encuentra el archivo DBFDBT.LIB y efectivamente no se encuentra ese archivo en el directorio despues de la instalacion, lo podrias checar por favor. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','1iov7jw8',1,0,'',43,0,0),(855,219,16,2,0,'83.39.227.26',1130170197,1,0,1,1,1,1,'','','Marco,\n\nYa no se enlaza esa librería. Ahora hay que enlazar DBFFPT.LIB y HBSIX.LIB.','',0,'gA==','2vrv4yti',1,0,'',2,0,0),(856,257,6,123,0,'80.58.36.235',1130171148,1,0,1,1,1,0,'','Preprocesado y clases','Antonio,\n\nAl utilizar los comandos de controles en clases creadas por mi, en algunos controles, me encuento con problemas del preprocesado.\n\nTe pongo un ejemplo claro:\n\n[code:38z6ln9q]\nCLASS MiClase\n           DATA  cDatoaCambiar AS CHARACTER INIT &quot;Valor&quot;\n           METHOD NEW&#40;&#41;  INLINE Self\n           METHOD Prueba&#40;&#41;\nENDCLASS\n\nMETHOD PRUEBA&#40;&#41; CLASS MiClase\n             LOCAL oDlg, oCbx\n             LOCAL cCbx &#58;= &quot;Uno&quot;\n             LOCAL aCbx &#58;= &#123;&quot;Uno&quot;,&quot;Dos&quot;&#41;\n\n             \n             DEFINE DIALOG oDlg NAME &quot;MiDialogo&quot; OF oWnd\n\n             REDEFINE COMBOBOX oCbx VAR cCbx ITEMS aCbx ;\n                            ID 205 OF oDlg ;\n                            ON CHANGE &#40;&#58;&#58;cDatoaCambiar &#58;= &quot;Pepe &#46;T&#46;&#41; ;\n                            UPDATE\n\n             ACTIVATE DIALOG oDlg\nRETURN NIl\n[/code:38z6ln9q]\n\nSi ejecutamos ese trozo de código, Fivewin arroja un error indicando algo parecido a esto:\n\nMessage not found oCombobox:cDatoaCambiar.\n\nEsto ocurre por que en el procesado de este control es como sigue:\n[code:38z6ln9q]\n#xcommand REDEFINE COMBOBOX &#91; &lt;oCbx&gt; VAR &#93; &lt;cVar&gt; ;\n             &#91; &lt;items&#58; PROMPTS, ITEMS&gt; &lt;aItems&gt; &#93; ;\n             &#91; ID &lt;nId&gt; &#93; ;\n             &#91; &lt;dlg&#58;OF,WINDOW,DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n             &#91; ON CHANGE &lt;uChange&gt; &#93; ;\n             &#91; VALID   &lt;uValid&gt; &#93; ;\n             &#91; &lt;color&#58; COLOR,COLORS&gt; &lt;nClrText&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; BITMAPS &lt;acBitmaps&gt; &#93; ;\n             &#91; ON DRAWITEM &lt;uBmpSelect&gt; &#93; ;\n             &#91; STYLE &lt;nStyle&gt; &#93; ;\n             &#91; PICTURE &lt;cPicture&gt; &#93;;\n             &#91; ON EDIT CHANGE &lt;uEChange&gt; &#93; ;\n       =&gt; ;\n          &#91; &lt;oCbx&gt; &#58;= &#93; TComboBox&#40;&#41;&#58;ReDefine&#40; &lt;nId&gt;, bSETGET&#40;&lt;cVar&gt;&#41;,;\n             &lt;aItems&gt;, &lt;oWnd&gt;, &lt;nHelpId&gt;, &lt;&#123;uValid&#125;&gt;, &#91;&#123;|Self|&lt;uChange&gt;&#125;&#93;,;\n             &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;cMsg&gt;, &lt;&#46;update&#46;&gt;, &lt;&#123;uWhen&#125;&gt;,;\n             &lt;acBitmaps&gt;, &#91;&#123;|nItem|&lt;uBmpSelect&gt;&#125;&#93;, &lt;nStyle&gt;, &lt;cPicture&gt;,;\n             &#91;&lt;&#123;uEChange&#125;&gt;&#93; &#41;\n[/code:38z6ln9q]\n\nY quedaría resuelto cambiado el [b:38z6ln9q]Self[/b:38z6ln9q] por [b:38z6ln9q]This[/b:38z6ln9q]. Algo así:\n\n       =&gt; ;\n          [ &lt;oCbx&gt; := ] TComboBox():ReDefine( &lt;nId&gt;, bSETGET(&lt;cVar&gt;),;\n             &lt;aItems&gt;, &lt;oWnd&gt;, &lt;nHelpId&gt;, &lt;{uValid}&gt;, [{|[color=red:38z6ln9q]this[/color:38z6ln9q]|&lt;uChange&gt;}],;\n             &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;cMsg&gt;, &lt;.update.&gt;, &lt;{uWhen}&gt;,;\n             &lt;acBitmaps&gt;, [{|nItem|&lt;uBmpSelect&gt;}], &lt;nStyle&gt;, &lt;cPicture&gt;,;\n             [&lt;{uEChange}&gt;] )\n\n\n\n\nEste problema ocurre en varios controles.\n\nSaludos,\nJosé Luis Capel','',0,'QoA=','38z6ln9q',1,0,'',123,0,0),(857,219,16,43,0,'201.138.96.4',1130171310,1,0,1,1,1,0,'','','Gracias Antonio\n\n   Por responder, pero creo que necesito el nuevo build de FWH, que mencionas ya que me arroja el error external _hb_stack\n\n   Lo solicitare\n\n\nGracias.\n\n   Marco A. Delgado.','',0,'QoA=','nbxzm408',1,0,'',43,0,0),(858,258,6,212,0,'200.40.212.197',1130171947,1,0,1,1,1,0,'','Fuentes distintas en los dialogos sin especificarle cambios','La verdad que este error me pasa hace un tiempo y no he podido descurbir a qué se debe.\nEn la fase de desarrollo siempre hay errores y luego que se producen algunos errores sucede esto que les muestro en la imágen.\nAlguno diálogos quedan con fuente distinta al resto, pero si instalo en una carpeta nueva, todo desde cero, anda bien.\nHay dialogos que quedan con Arial Black por lo que se puede ver y diálogos derivados de ese salen perfectos.\nUso xHarbour 993 y fwh 25','',0,'QoA=','12w6kccs',1,0,'',212,0,0),(859,259,6,54,0,'201.128.96.167',1130172449,1,0,1,1,1,1,'','Primero plano','Pues eso.\n\nHe visto aplicaciones PROMETHEUS, que obtienen el primer plano sin problemas. Alguien tendra un ejemplillo.\n\nSaludos y mil gracias de antemano.','',0,'QoA=','36ydrz7v',1,0,'',54,0,0),(860,257,6,2,0,'80.58.2.107',1130174204,1,0,1,1,1,1,'','','Jose Luis,\n\nUna solución fácil es declarar:\n\n   local this := Self\n\ny en vez de hacer ::cDatoaCambiar, hacer this:cDatoaCambiar\n\nasi no hay que modificar los includes.','',0,'QoA=','15kzeldg',1,0,'',2,0,0),(861,257,6,123,0,'80.58.36.235',1130176954,1,0,1,1,1,0,'','','Antonio,\n\nGracias!! La solución me parece correcta.  No obstante.... sería interesante plantearse esos cambios a nivel preprocesado.  Creo que no rompe ningún código existente.  ¿Qué opinas?\n\nSaludos,\nJosé Luis Capel','',0,'QoA=','347okzq6',1,0,'',123,0,0),(862,253,3,3,0,'82.65.182.234',1130178146,1,0,1,1,1,0,'','Re: Testzip and Testuzip will not compile','[quote=&quot;Vytas&quot;:4t1x2ca7]Hi \n\nI run the standard Buildh.bat on either Testzip.prg or Testuzip and get multiple Unresolved externals error messages similar to example below.\n\nAny idea what I am missing?  All other Test*.prg I compiled with Buildh.bat  compile fine.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_UNZIPFILE\' referenced from D:\\FWH\\SAMPLES\\TSTUZIP.OBJ\n\nsnip ...\n\nCould Not Find D:\\FWH\\SAMPLES\\testuzip.il?\n\nThanks,\n\nVytas[/quote:4t1x2ca7]\n\nZip and unzip are 16 bits programs, they will not work with harbour/xharbour.\n\nYou must use hbzip instead available for harbour and xharbour.\n\nCheck at <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->\n\nRichard','',0,'gA==','4t1x2ca7',1,0,'',3,0,0),(863,257,6,2,0,'80.58.2.107',1130183909,1,0,1,1,1,1,'','','Jose Luis,\n\nMi opinión es que si hay varios objetos en ámbito, es preferible especificar explícitamente a cual queremos acceder, en vez de hacerlo automático, con el peligro de acceder al que no es.','',0,'gA==','5mmll4bj',1,0,'',2,0,0),(864,260,3,213,0,'24.162.36.40',1130184561,1,0,1,1,1,0,'','FWH &amp; xHarbour','All,\n\nI recently upgraded to xBuilder/xHarbour Oct 2005.  Is there a problem using the new xHarbour with FWH Jan 2005?  Using xcc compilier.  I recompiled all my .prg\'s but when I open the program I get a gpf.  I tried putting a msginfo at the beginning of my program but it doesn\'t get that far.\n\nThanks,\nRandal Ferguson','',0,'gA==','3lou0kbf',1,0,'',213,0,0),(865,257,6,123,0,'88.0.84.57',1130184564,1,0,1,1,1,0,'','','Antonio,\n\nEstoy totalmente de acuerdo contigo.  Sin embargo, con el preprocesado actual, existe una ambigüedad que hace que en tiempo de ejecución arroje un error.  \n\nLa forma más elegante de solucionar esto es, desde mi humilde punto de vista, cambiar el preprocesado tal y como he comentado más arriba.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'gA==','33yup0w0',1,0,'',123,0,0),(866,260,3,2,0,'80.58.2.107',1130184949,1,0,1,1,1,1,'','','Randal,\n\nDon\'t you get the FWH GPF MsgAlert() with the callstack ?\n\nHave you tried to build some FWH samples that come with xHB ?\n\nIf not, could you create a MAP file and seach the GPF address into it ?','',0,'gA==','2r3kvyw2',1,0,'',2,0,0),(867,257,6,2,0,'80.58.2.107',1130185125,1,0,1,1,1,1,'','','[quote=&quot;jlcapel&quot;:3qlc92bs]La forma más elegante de solucionar esto es, desde mi humilde punto de vista, cambiar el preprocesado tal y como he comentado más arriba[/quote:3qlc92bs]\n\nTu solución me parece muy buena, pero antes de implementarla habría que pensar si puede romper código existente de usuarios.','',0,'gA==','3qlc92bs',1,0,'',2,0,0),(868,261,6,121,0,'201.139.152.127',1130202178,1,0,1,1,1,1,'','UNA DE LISTBOX','Existe alguna forma de cambiar la altura de las columnas utilizando listbox \n\n\nGracias','',0,'gA==','1yuwyor0',1,0,'',121,0,0),(869,262,6,215,0,'201.154.237.127',1130203344,1,0,1,1,1,0,'','Unable to open file \'DBFDBT.LIB\' en fwh 2.6 de Septiembre','Buen dia foro,\nacabo de descargar la versión de fwh 2.6 de Septiembre 2005\nAl compilar cualquier sample me aparece este mensaje\n\nUnable to open file \'DBFDBT.LIB\' \n\nEsa lib no aparece en mi nueva instalación de harbour o xharbour\nPero si viene en mi antigua versión que usaba para la fwh 2.5\n\nGracias\nFernando Leal\nMéxico, DF','',0,'gA==','12azhyag',1,0,'',215,0,0),(870,261,6,73,0,'201.132.248.12',1130206970,1,0,1,1,1,0,'','Re: UNA DE LISTBOX','[quote=&quot;Marco Augusto&quot;:1szto3fv]Existe alguna forma de cambiar la altura de las columnas utilizando listbox \n\n\nGracias[/quote:1szto3fv]\n\nsi usas wbrowse con esto lo cambias:\noBrw:nLineHeight   := 17  &lt;- con esto cambias el alto lineas\noBrw:nHeaderHeight := 24 &lt;- alto de encabezados\nsalu2\nPaco','',0,'gA==','1szto3fv',1,0,'',73,0,0),(871,262,6,2,0,'80.58.2.107',1130212817,1,0,1,1,1,1,'','','Fernando,\n\nEsa librería ya no existe. Ahora se usan DBFFPT.LIB y HBSIX.LIB.','',0,'gA==','3qo394ie',1,0,'',2,0,0),(872,257,6,45,0,'201.252.223.216',1130216067,1,0,1,1,1,0,'','','Hola,\n   Yo ya me acostumbre al oSelf\n\n[code:2ouz9200]\nlocal oSelf &#58;= Self\n\n\n[/code:2ouz9200]\n\nComo dice Jose Luis, muchos controles toman el Self como correpsonde por supuesto del argumento del codeblock. En fin es solucionable. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSalu2','',0,'AIA=','2ouz9200',1,0,'',45,0,0),(873,263,6,52,0,'201.235.155.110',1130218393,1,0,0,1,1,0,'','Error E2139 C:\\FWH24\\INCLUDE\\clipapi.h 77: Declaration missi','Pueden ayudarme con esto, revise el codigo del clipapi.h y en esa linea dice esto:\n\ntypedef struct\n{\n   WORD  wType;   &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt; esta es la linea que dice 77\n   WORD  w2;\n   WORD  w3;\n   LPBYTE pPointer1;\n   LPBYTE pPointer2;\n} CLIPVAR;              // sizeof( CLIPVAR )  --&gt; 14 bytes\n\n\nEstoy tratando de hacer esto:\n\n#include \"winten.h\"\n#include \"clipapi.h\"\n#include \"windows.h\"\n\nHB_FUNC( misuma ) {\n   Int inum1 := hb_parni( 1 ) ;\n   Int inum2 := hb_parni( 2 ) ;\n\n   hb_retni( inum1 + inum2 ) ;\n\n}\n\n\npara luego llamarlo desde un prg de xharb\n\n\nGracias.','',0,'AIA=','2orb43sr',1,0,'',52,0,0),(874,264,6,45,0,'201.252.223.216',1130219389,1,0,1,1,1,0,'','Consultas SQL con ADS &quot;LOCAL&quot; DUDA','Hola,\n    Siempre me quedo una duda existencial. Se pueden hacer consultas SQL de \ntablas DBF del ADS Local server desde funciones propias del ADS local ?? \nComo ? Que funciones ?? Como se usan ? Algun mini ejemplo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nHernan  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1xsxkdim',1,0,'',45,0,0),(875,221,4,68,0,'203.13.90.2',1130224243,1,0,1,1,1,1,'','','Antonio,\nRegSetValue now writes OK except that only half the string gets written to the registry - ie 10 chs become only 5 !  I suspect that the size of the data needs to be defined as DWORD.  Also it works with the emulator too.  RegDeleteKey is also OK.  So now I can use it the way it is, there is no need to rush out a patch just for me, thanks.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nregards','',0,'AIA=','utjlyybd',1,0,'',68,0,0),(876,249,6,81,0,'80.28.244.140',1130224434,1,0,1,1,1,0,'','','encrypt() decrypt()','',0,'AIA=','2wvfhxh1',1,0,'',81,0,0),(877,265,16,2,0,'80.58.2.107',1130224733,1,0,1,1,1,1,'','RSS support for these forums / Soporte RSS para estos foros','For those of you that already use RSS readers, you may access the most recent posts on these forums from here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/rss.php\">http://www.fivetechsoft.com/forums/rss.php</a><!-- m -->\n\nAs a free RSS news reader you may use the free Google <!-- m --><a class=\"postlink\" href=\"http://www.google.com/reader\">http://www.google.com/reader</a><!-- m -->\n\nPara aquellos de vosotros que useis lectores de RSS, podeis acceder a los mensajes más recientes de estos foros desde aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/rss.php\">http://www.fivetechsoft.com/forums/rss.php</a><!-- m -->\n\nComo lector de noticias RSS podeis usar el gratuito de Google <!-- m --><a class=\"postlink\" href=\"http://www.google.com/reader\">http://www.google.com/reader</a><!-- m -->','',0,'AIA=','3lx87ujh',1,0,'',2,0,0),(878,262,6,81,0,'80.28.244.140',1130225111,1,0,1,1,1,0,'','','Antonio enlazo la libreria que indicas y no es capaz de montar ningun rdd. \nDa error cuando haces USE.\nHay que hacer algo mas ademas de enlazar esta libreria hbsix??\nSaludos','',0,'AIA=','2xw4b5ve',1,0,'',81,0,0),(879,73,19,2,0,'80.58.2.107',1130226127,1,0,1,1,1,1,'','','Rafael Rivera has published now a little utility to hide the sidebar, so you can get the gadgets floating around your desktop without showing the sidebar. Really cool <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRafael Rivera ha publicado ahora una pequeña utilidad para ocultar la barra lateral, por lo que podeis tener \"gadgets\" por el desktop, sin necesidad de mostrar el \"sidebar\". Muy interesante!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.extended64.com/blogs/rafael/archive/2005/10/20/1443.aspx\">http://www.extended64.com/blogs/rafael/ ... /1443.aspx</a><!-- m -->\n\n[url=http&#58;//img491&#46;imageshack&#46;us/my&#46;php?image=gadgets9gh&#46;jpg:3au1urhx][img:3au1urhx]http&#58;//img491&#46;imageshack&#46;us/img491/1100/gadgets9gh&#46;jpg[/img:3au1urhx][/url:3au1urhx]','',0,'GA==','3au1urhx',1,0,'',2,0,0),(880,266,19,2,0,'80.58.2.107',1130227215,1,0,1,1,1,1,'','disposable email accounts system / Cuentas de usar y tirar','Me estoy acostumbrando cada vez más a usar <!-- w --><a class=\"postlink\" href=\"http://www.pookmail.com\">www.pookmail.com</a><!-- w -->. Como allí explican \"PookMail.com es un sistema de cuentas de correo de usar-y-tirar, que se puede utilizar para evitar tener que dar su cuenta de correo personal.\" \n\nHay multitud de sitios en Internet en donde te piden una cuenta de email. Puedes inventar el nombre que quieras, sobre la marcha, y sin registrarte, y luego ir a <!-- w --><a class=\"postlink\" href=\"http://www.pookmail.com\">www.pookmail.com</a><!-- w --> y ver lo que te han enviado. Realmente práctico.\n\nI am getting used more and more to <!-- w --><a class=\"postlink\" href=\"http://www.pookmail.com\">www.pookmail.com</a><!-- w -->. As they explain \"PookMail.com is a disposable email account system. Use PookMail.com to avoid giving your personal email address to suspicious websites.\"\n\nThere are plenty of sites on Internet where your email is requested. You can invent the name that you want on the run, and without having to register at all, go to <!-- w --><a class=\"postlink\" href=\"http://www.pookmail.com\">www.pookmail.com</a><!-- w --> and review what they send you. Really usefull.','',0,'GA==','1l3dcumw',1,0,'',2,0,0),(881,262,6,2,0,'80.58.2.107',1130227870,1,0,1,1,1,1,'','','Rafael,\n\nTienes que enlazar las demás librerías de RDDs. El cambio ha sido que en vez de DBFDBT.LIB, ahora se usa DBFFPT.LIB y HBSIX.LIB, pero todas las demas tienes que enlazarlas.','',0,'GA==','2epkawy4',1,0,'',2,0,0),(882,221,4,2,0,'80.58.2.107',1130228112,1,0,1,1,1,1,'','','Jon,\n\nWe have published a new FWPPC build. Hopefully this time is ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe do appreciate your feedback, so we can get registry functions working ok and continue with other issues development. Thanks!','',0,'GA==','255cf70m',1,0,'',2,0,0),(883,263,6,2,0,'80.58.2.107',1130228552,1,0,1,1,1,1,'','Re: Error E2139 C:\\FWH24\\INCLUDE\\clipapi.h 77: Declaration m','Gustavo,\n\n[quote=&quot;goosfancito&quot;:15t4sfhm]Pueden ayudarme con esto, revise el codigo del clipapi.h y en esa linea dice esto:\n\ntypedef struct\n{\n   WORD  wType;   &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt; esta es la linea que dice 77\n   WORD  w2;\n   WORD  w3;\n   LPBYTE pPointer1;\n   LPBYTE pPointer2;\n} CLIPVAR;              // sizeof( CLIPVAR )  --&gt; 14 bytes[/quote:15t4sfhm]\n\nEstás usando un clipapi.h antiguo, que no es el de FWH. Ya que esa definición de CLIPVAR es sólo para Clipper y no para FWH.\n\n[quote=&quot;goosfancito&quot;:15t4sfhm]\nEstoy tratando de hacer esto:\n\n#include \"winten.h\"\n#include \"clipapi.h\"\n#include \"windows.h\"\n\nHB_FUNC( misuma ) {\n   Int inum1 := hb_parni( 1 ) ;\n   Int inum2 := hb_parni( 2 ) ;\n\n   hb_retni( inum1 + inum2 ) ;\n\n}\n[/quote:15t4sfhm]\n\nmisuma tiene que ir en mayúsculas, es decir, MISUMA. Por otra parte, Int no comienza en mayúsculas, sin en minúsculas: int','',0,'gA==','15t4sfhm',1,0,'',2,0,0),(884,262,6,81,0,'80.28.244.140',1130228556,1,0,1,1,1,0,'','','Esto son los enlaces:\nUtilizo el cvs de harbour y Fw2.5. Si utilizo la version ultima que hay oficial no tengo problemas.\n\n\"c:\\paco\\Obj\\paco.obj\" +\n\"C:\\bcc55\\Lib\\c0w32.obj\", +\n\"C:\\paco\\paco.EXE\",\"c:\\paco\\paco.map\", +\n\"C:\\FWH\\LIB\\Fiveh.lib\" +\n\"C:\\FWh\\Lib\\fivehc.lib\" +\n\"C:\\FWH\\LIB\\TSBRW32.LIB\" +\n\"C:\\harbour\\lib\\codepage.lib\" +\n\"C:\\harbour\\lib\\common.lib\" +\n\"C:\\harbour\\lib\\dbfcdx.lib\" +\n\"C:\\harbour\\lib\\dbffpt.lib\" +\n\"C:\\harbour\\lib\\dbfntx.lib\" +\n\"C:\\harbour\\lib\\debug.lib\" +\n\"C:\\harbour\\lib\\gtcgi.lib\" +\n\"C:\\harbour\\lib\\gtpca.lib\" +\n\"C:\\harbour\\lib\\hbole.LIB\" +\n\"C:\\harbour\\lib\\lang.lib\" +\n\"C:\\harbour\\lib\\macro.lib\" +\n\"C:\\harbour\\lib\\nulsys.lib\" +\n\"C:\\harbour\\lib\\pp.lib\" +\n\"C:\\harbour\\lib\\rdd.lib\" +\n\"C:\\harbour\\lib\\rtl.lib\" +\n\"C:\\harbour\\lib\\vm.lib\" +\n\"C:\\harbour\\lib\\zlib1.lib\" +\n\"C:\\harbour\\lib\\ziparchive.lib\" +\n\"C:\\harbour\\lib\\hbsix.lib\" +\n\"C:\\harbour\\lib\\gtstd.lib\" +\n\"C:\\bcc55\\Lib\\uuid.lib\" +\n\"C:\\bcc55\\Lib\\import32.lib\" +\n\"C:\\bcc55\\Lib\\cw32.lib\" +\n\"C:\\bcc55\\Lib\\wininet.lib\", \n\"c:\\paco\\paco.res\"','',0,'gA==','2j0cfxbr',1,0,'',81,0,0),(885,124,1,2,0,'80.58.2.107',1130229638,1,0,1,1,1,1,'','','Leonor,\n\nProcura que tus preguntas sean más cortas y simples de leer, sino se hace pesada su lectura y no consigues ayuda  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','yfivkl2l',1,0,'',2,0,0),(886,262,6,81,0,'80.28.244.140',1130229812,1,0,1,1,1,0,'','','Como llamo al rdd en el prg es:\n\n	REQUEST DBFCDX, dbffpt, ordkeyno, ordkeycount\n	RddSetDefault( \"DBFCDX\" )\n\nAlgo mas??\nSaludos\nRafa','',0,'gA==','3salkhnj',1,0,'',81,0,0),(887,267,4,133,0,'80.176.234.174',1130230213,1,0,1,1,1,0,'','OK Icon on application Windows','Is it possible to replace the \"X\" close icon with the \"OK\" icon on all application windows created from parent windows.','',0,'gA==','24xxrelm',1,0,'',133,0,0),(888,267,4,2,0,'80.58.2.107',1130230624,1,0,1,1,1,1,'','','GWard,\n\nI think it only works on dialogboxes adding this style to the dialogbox resource: EXSTYLE WS_EX_CAPTIONOKBTN','',0,'gA==','2ezkjzg0',1,0,'',2,0,0),(889,262,6,2,0,'80.58.2.107',1130230726,1,0,1,1,1,1,'','','Rafa,\n\nPrueba a ponerlas en este orden:\n\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc','',0,'gA==','2pu35rbw',1,0,'',2,0,0),(890,268,6,88,0,'82.150.2.20',1130230941,1,0,1,1,1,1,'','[Duda] Lista de Objetos ...','Saludos gente,\n\ntengo una duda de programacion. Tengo un array de objetos y quisiera que todos obtuviesen la propiedad de Disable().\n\nlista:= {oGet1,oGet2,oGet3,....}\n\nHe intentado varias cosas pero no me han funcionado:\n\n- Utilizar un bucle for asignando a cada valor del array la propiedad Disable().\n\n[code:3br56szb]\nfor i&#58;= 1 to n\n    lista&#91;i&#93;&#58;= Disable&#40;&#41;\nnext\n[/code:3br56szb]\n\n- Asignar de alguna manera a la variable lista directamente la propiedad.\n\n[code:3br56szb]\nlista&#58;= Disable&#40;&#41;\n[/code:3br56szb]\n\n\nTambien quisiera saber como modificar la propiedad de uno de los objetos en especifico de la lista, y si hay alguna forma de hacer un Refresh() de los mismos.\n\n\nMuchas gracias por adelantado.\n\n\nNos leemos!!','',0,'AIA=','3br56szb',1,0,'',88,0,0),(891,269,2,88,0,'82.150.2.20',1130230974,1,0,1,1,1,1,'','[Duda] Lista de Objetos ...','Saludos gente,\n\ntengo una duda de programacion. Tengo un array de objetos y quisiera que todos obtuviesen la propiedad de Disable().\n\nlista:= {oGet1,oGet2,oGet3,....}\n\nHe intentado varias cosas pero no me han funcionado:\n\n- Utilizar un bucle for asignando a cada valor del array la propiedad Disable().\n\n[code:14ybjr3g]\nfor i&#58;= 1 to n\n    lista&#91;i&#93;&#58;= Disable&#40;&#41;\nnext\n[/code:14ybjr3g]\n\n- Asignar de alguna manera a la variable lista directamente la propiedad.\n\n[code:14ybjr3g]\nlista&#58;= Disable&#40;&#41;\n[/code:14ybjr3g]\n\n\nTambien quisiera saber como modificar la propiedad de uno de los objetos en especifico de la lista, y si hay alguna forma de hacer un Refresh() de los mismos.\n\n\nMuchas gracias por adelantado.\n\n\nNos leemos!!','',0,'AIA=','14ybjr3g',1,0,'',88,0,0),(892,268,6,123,0,'80.58.36.235',1130232190,1,0,1,1,1,0,'','','Chantiel,\n\nPrueba\n\n[code:37ajtozq]\nAsend&#40; lista, &quot;Disable&#40;&#41;&quot;&#41;\n[/code:37ajtozq]\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','37ajtozq',1,0,'',123,0,0),(893,262,6,81,0,'80.28.244.140',1130232349,1,0,1,1,1,0,'','','Gracias Antonio.\nEra el orden, deben de tener funciones con el mismo nombre.\nSaludos\nRafa','',0,'AIA=','3544z80j',1,0,'',81,0,0),(894,267,4,133,0,'80.176.234.174',1130233972,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:266swr8k]GWard,\n\nI think it only works on dialogboxes adding this style to the dialogbox resource: EXSTYLE WS_EX_CAPTIONOKBTN[/quote:266swr8k]\n\nAntonio,\n\nI am using WINDOWs because of the additional usable area and ability to hold multiple options within the MENU.\n\nMy application is designed similar to \"Pocket Word\". I have a Company Logo dominating the first window with a MENU allowing access to the various system operations.\n\nOn all subsequent WINDOWs with MENUs I want to display the same \"OK\" icon that is used on child windows as in \"Pocket Word\" simply to denote that the user is not closing the entire application only the current WINDOW.','',0,'gA==','266swr8k',1,0,'',133,0,0),(895,203,4,133,0,'80.176.234.174',1130234131,1,0,1,1,1,0,'','','Antonio,\n\nSorry to press you on this but do you have a time frame for the inclusion of multi-select.\n\nI have reached a point where I can demonstrate my application to the client and the ability to drag the stylus down and mark multiple LISTBOX items is very important.\n\nMany thanks','',0,'gA==','5jv6yx98',1,0,'',133,0,0),(896,263,6,123,0,'80.58.36.235',1130234162,1,0,1,1,1,0,'','','Gustavo,\n\nPrueba a poner este include en sustitución del clipapi.ch\n\n#include \"hbapi.h\"\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'gA==','3bwmh1r3',1,0,'',123,0,0),(897,270,4,133,0,'80.176.234.174',1130235432,1,0,1,1,1,0,'','WHEN option in REDEFINE MENUITEM','I need to enable/disable various MENUITEMs dependant on the data situation at the time of display.\n\nI note that as yet the WHEN statement is apparently not implemented in FWPPC.\n\nWill this ability be added and if so when.','',0,'gA==','2l8rzjnb',1,0,'',133,0,0),(898,271,6,21,0,'81.38.234.65',1130240215,1,0,1,1,1,1,'','funciones redefinidas','Hola foro,\n\nExiste alguna forma de llamar a una función harbour que este redefinida en fwh.\n\nPor ejemplo \nMemoedit, existe en harbour y en fwh y al enlazarlo llama a la de fwh y desearía que llamara a la de harbour.\n\nEn blinker se pasa la instrucción \"module xxxxx from yyyy\" para decir que la función xxxx lo cogiera de la librería yyyyy','',0,'gA==','2ubmne42',1,0,'',21,0,0),(899,271,6,2,0,'80.58.2.107',1130240834,1,0,1,1,1,1,'','','Fernando,\n\nPueds probar a enlazar las librerías de Harbour antes que las de FWH.','',0,'gA==','11zpztm9',1,0,'',2,0,0),(900,267,4,2,0,'80.58.2.107',1130241278,1,0,1,1,1,1,'','','GWard,\n\nI have not tried it myself, but maybe this may work:\n\n[code:139kas7w]\nDEFINE WINDOW oWnd &#46;&#46;&#46;\n\nnStyle = GetWindowLong&#40; oWnd&#58;hWnd, GWL_STYLE &#41;                 SetWindowLong&#40; oWnd&#58;hWnd, GWL_STYLE, nOr&#40; nStyle, WS_EX_CAPTIONOKBTN &#41; &#41; \n[/code:139kas7w]','',0,'AIA=','139kas7w',1,0,'',2,0,0),(901,271,6,21,0,'81.38.234.65',1130241382,1,0,1,1,1,1,'','','Hola Antonio,\n\nAnte todo gracias por tu rapida respuesta\n\nEso es lo que estoy usando ahora. El problema biene cuando tienes varios programas vivos y en unos necesito esa redefinición y en otros no.\nTengo que recordar cambiar en el enlazador (uso verce) el orden de las librerías o sino armo la de san quintin.\n\nYa se que una alternativa sería no usar el mismo para todos, pero era por saber si se había pensado en alguna instrucción','',0,'AIA=','233d4y5o',1,0,'',21,0,0),(902,253,3,209,0,'209.217.64.30',1130241496,1,0,1,1,1,0,'','','Thanks Richard,\n\nI downloaded the contribution libs from Xharbour and put the hbzip.lib into directory d:\\harbour\\lib.  Modified my rmk file it include hbzip.lib as follows.\n\nHBDIR=d:\\harbour\nBCDIR=d:\\Borland\\bcc55\nFWDIR=d:\\fwh\n\nsnip ...\n\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\hbzip.lib + &gt;&gt; b32.bc\n\nsnip ...\n\nIn testing I added the following line to my function\n\nLOCAL oZipFile := ZipNew()\n\nThe compile seems to run fine,  however on linking I get the following error.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPNEW\' referenced from T:\\T1\\PRG\\OBJ\\CTI.OBJ\n\nAny idea of what I am missing?  Do I need some additional libs or is something else missing?\n\nThanks,\n\nVytas','',0,'AIA=','2wb5n3hj',1,0,'',209,0,0),(903,268,6,5,0,'80.58.41.235',1130241961,1,0,1,1,1,1,'','','Chantiel,\n\nSi Disable() es un método, deberías poder hacerlo así:\n\n[code:1g2ltenz]\nfor i &#58;= 1 to n\n   lista&#91;i&#93;&#58;Disable&#40;&#41;\nnext\n[/code:1g2ltenz]','',0,'AIA=','1g2ltenz',1,0,'',5,0,0),(904,271,6,5,0,'80.58.41.235',1130242176,1,0,1,1,1,1,'','','fgondi,\n\nSiempre puedes copiar el código C de la función de Harbour y meterla como código C en tu programa cambiándole el nombre. memoEdit() sería la de FWH y memoEditH() la de Harbour...','',0,'AIA=','3t4cnxkw',1,0,'',5,0,0),(905,124,1,146,0,'200.59.40.151',1130242652,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:27uecflt]Leonor,\n\nProcura que tus preguntas sean más cortas y simples de leer, sino se hace pesada su lectura y no consigues ayuda  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->[/quote:27uecflt]\n\nGracias por el consejo Antonio. Vamos con una sola pregunta: en algunos casos cuando arma el listbox con la clase twbrowse si coloco los campos por separado lo arma bien pero cuando pongo todos los campos juntos sale es siguiente mensaje ERROR BASE/1513 Operation Too Complex. Existe algun límite de caracteres o datos a evaluar. Muchas Gracias.\nSaludos. Leonor','',0,'gA==','27uecflt',1,0,'',146,0,0),(906,267,4,133,0,'80.176.234.174',1130243406,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:21a3c63s]GWard,\n\nI have not tried it myself, but maybe this may work:\n\n[code:21a3c63s]\nDEFINE WINDOW oWnd &#46;&#46;&#46;\n\nnStyle = GetWindowLong&#40; oWnd&#58;hWnd, GWL_STYLE &#41;                 SetWindowLong&#40; oWnd&#58;hWnd, GWL_STYLE, nOr&#40; nStyle, WS_EX_CAPTIONOKBTN &#41; &#41; \n[/code:21a3c63s][/quote:21a3c63s]\n\nAntonio,\n\nSorry but I am new to FiveWin.\n\nWhat do I need to #include in my .prg file to get the values of GWL_STYLE and WS_EX_CAPTIONOKBTN for use in the functions you mention.','',0,'gIA=','21a3c63s',1,0,'',133,0,0),(907,267,4,133,0,'80.176.234.174',1130244691,1,0,1,1,1,0,'','','Antonio,\n\nI used \n\n#define GWL_STYLE -16\n#define WS_EX_CAPTIONOKBTN  0x80000000\n\n(Found them on a Web site)\n\nThen :\n\n DEFINE WINDOW oWnd TITLE \"Orders\"  \n\nnStyle = GetWindowLong( oWnd:hWnd, GWL_STYLE )                 \nSetWindowLong( oWnd:hWnd, GWL_STYLE, nOr( nStyle, WS_EX_CAPTIONOKBTN ) )\n\nThe Icon remains as an \"X\" and not \"OK\"\n\nThe \"Orders\" WINDOW contains a COMBOBOX and LISTBOX.\n\nThe LISTBOX represents storage areas which when tapped on column 2 displays all of the individual products within that location in another WINDOW with a LISTBOX.\n\nWhen I return from the product WINDOW and tap the \"X\" in the \"Orders\" WINDOW it does not exit. If I tap it again the \"X\" vanishes completely.\n\nIf I do not enter the products WINDOW the \"X\" operates as expected.\n\nAre my define values wrong.\n\nI trust I am not overusing the forum but I am nearly there with my application and the client is overjoyed.\n\nMany thanks','',0,'gIA=','qxi59dpy',1,0,'',133,0,0),(908,219,16,14,0,'201.128.159.59',1130245426,1,0,1,1,1,0,'','','Hola\n\nPara usar ese nuevo build de harbour con FWH 2.6 (junio) es necesario\nregenerar las libs de FWH ?\n\nsaludos.','',0,'gIA=','37b9hyc9',1,0,'',14,0,0),(909,271,6,21,0,'81.38.234.65',1130246568,1,0,1,1,1,1,'','','Hola Jaime,\n\nEsa es mejor idea, y también lo he intente  pero lo que no consigo encontrar es donde esta la función memoedit en harbour.\n\nHe buscado dentro de todos los ficheros que vienen con harbour y no aparece.\n\nNo se si estoy muy negado o que <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gIA=','298ja603',1,0,'',21,0,0),(910,179,3,170,0,'80.170.157.99',1130247185,1,0,1,1,1,1,'','','[quote=&quot;ssbbs&quot;:1g66rjel]I do CVS at today and no any problem,\nI use compiler FLAG is(BCC5):\nCOBJFLAGS     = -D__HARBOUR__ -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_FM_STATISTICS_OFF -5 -6 -a8 -O2 -OS -tW -c -w3 -I$(CC_INCPP_DIR);$(HRB_INCPP_DIR);$(FW_INCPP_DIR);$(AP_DIR)\\mysql -L$(CC_LIB_DIR)\n\n\n[quote=&quot;Badara Thiam&quot;:1g66rjel][quote=&quot;ssbbs&quot;:1g66rjel]FWH 2.5 for xHarbour(BCC55) have not problem!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:1g66rjel]\n\ni get these two link errors with Fivewin 2.5, xHarbour 0.99.51\nand Borland  c++ 5.5.1 :\n\n\"Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from E:\\FWH\\LIB\\FIVEHC.LIB|FFW\nNDRUN\nError: Unresolved external \'_HB_FUN__ADS\' referenced from E:\\PROGS\\OBJ32\\IC_DLL3\n2.OBJ\"[/quote:1g66rjel][/quote:1g66rjel]','',0,'gA==','1g66rjel',1,0,'',170,0,0),(911,271,6,123,0,'80.58.36.235',1130247580,1,0,1,1,1,0,'','','Fernando,\n\nEcha un vistazo a \\source\\rtl\\memoedit.prg \n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'gA==','5554r4pd',1,0,'',123,0,0),(912,271,6,21,0,'81.38.234.65',1130248169,1,0,1,1,1,1,'','','José Luis,\n\nTienes toda la razón. Hay esta entera y verdadera la función Memoedit.\nMe faltaba parte del source. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nLo he intentado bajar de [url:2e3be9lz]http&#58;//www&#46;harbour-roject&#46;org/download&#46;htm[/url:2e3be9lz] pero no me deja.\n\nLo he conseguido de esta otra dirección [url:2e3be9lz]http&#58;//harbour&#46;netfang&#46;net/[/url:2e3be9lz]\n\nMuchas gracias por vuestras respuestas.','',0,'EA==','2e3be9lz',1,0,'',21,0,0),(913,179,3,170,0,'80.170.157.99',1130248748,1,0,1,1,1,1,'','','I am waiting the new [x]Harbour official build to see,\nbut with 0.99.51, this not work, like with your compiler\noptions.\n\nWho know why Blinker 7.0 don\'t work with Harbour ?','',0,'','15xp1xlb',1,0,'',170,0,0),(914,272,6,24,0,'80.58.33.109',1130250766,1,0,1,1,1,1,'','No funciona LFNMkDir','Quiero crear un directorio:\ncFile_Path := \"C:\\test\\\"\n\nEsto parece no funcionar:\nif !lLFNMkDir( cFile_Path )    // parece ser que no funciona ?¿?¿\n\nEn cambio, esto si que funciona:\nif !lMkDir( cFile_Path )   \n\nQueria que soportara mas de 8 caracteres.\n\n¿ Alguien puede reportar que usa para crear directorios sin restringiones ?\n\nCreo recordad que pregunte esto mismo hace bastante tiempo, pero ignoro si encontré la solucion o me quede igual.\n\nSe agracederia que alguien informara si va bien o no va bien dicha funcion, es que del Alzemier estoy fatal!!','',0,'','bqaxygma',1,0,'',24,0,0),(915,124,1,74,0,'201.255.137.182',1130250885,1,0,1,1,1,1,'','','Leonor:\n\n  Respecto al error en el bloque, si, el operador &amp; tiene un limite. Tendrias que dividir su contenido o llamar a una funcion que haga el trabajo y devuelva un valor. Tampoco es necesario que todas las definiciones de las columnas del browse las tengas en un codigo de bloque, prodrias usar por ejemplo un codigo de bloque para cada columna en un vector:\n\nLocal VEC0_FIELD1 := {    { || IF(LLOFACT-&gt;PENDIENTE==\'X\',hBmp,\"\") },;\n	                        { || DTOC(LLOFACT-&gt;FECHA) }     ,;\n													{ || LLOFACT-&gt;LFACT+\" \"+LLOFACT-&gt;PNFACT+\"-\"+LLOFACT-&gt;SNFACT }     ,;\n										 			{ || BUS_DES(\"LLOCLIEN\",1,LLOFACT-&gt;CLIENTE,\"RAZSOC\")  },;\n													{ || TRANS(LLOFACT-&gt;TOTAL,\"@E 999,999.99\") }     ,;\n\nLocal VEC0_ENC1   := {   \" \" ,;\n				                 OEMTOANSI(\"Fecha\"),;\n												 OEMTOANSI(\"Factura\"),;\n												 \" Cliente\",;\n												 \"Total\"     ,;\n         VEC0_SIZE1   := {20,62,110,240,80,75,75,75,80,90,90,90},;\n				 VEC0_JUSTIF  := {2,2,2,0,2,2,2,2,2,2,2},;\n\n	wAlias3:=\"MOVART\"\n\n  REDEFINE LISTBOX oBrw fields  ID 999  OF oDlg ;\n  COLOR CLR_BLACK, CLR_WHITE ;\n  FONT oFont ALIAS (WALIAS) UPDATE\n\n   oBrw:SetCols( VEC0_FIELD1, VEC0_ENC1, VEC0_SIZE1 )\n\n   Respecto a usar redefines con ids tenes que utilizar algun editor de recursos como el resource workshop de borland. Conseguite un manual. Si queres te mando algun ejemplo con el prg explicado o algo asi.\n\nSaludos,','',0,'','25kw71y0',1,0,'',74,0,0),(916,273,6,93,0,'201.152.249.52',1130251787,1,0,1,1,1,0,'','DBFCDX','Una pregunta.\n\nQuiero accesar a una tabla DBF nativa de Fox y con el driver CDX nativo de Harbour no puedo accesar,tengo que hacerlo forzosamente vía ADS. He hecho pruebas con el xHrb y con este driver nativo si entro sin problemas. Que tantas son las diferencias entre el driver del Hrb y el xHrb? Es muy complicado o genera muchois problemas igualarlos en esto?\n\nMuchas gracias.\n\nFernando','',0,'','32p9c5qf',1,0,'',93,0,0),(917,274,3,217,0,'200.153.134.125',1130251820,1,0,1,1,1,0,'','Forum missing','Antonio, I think Portuguese/Italian/French/etc forums is missing in this web version.\nDo you plan include it?\n\nBest regards\nMaurilio','',0,'','1ej5o4fm',1,0,'',217,0,0),(918,269,2,74,0,'201.255.137.182',1130252336,1,0,1,1,1,1,'','','Chantiel:\n\n   La primer manera que comentas deberia funcionar:\n\nlista[i]:= Disable() \n\n   Solo asegurate que la asignacion en el vector se haga DESPUES de que los objetos esten definidos y que el <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable() se haga en el lugar adecuado, cuando ya esten creados, por ejemplo al activar el dialogo. Toma cualquier prg y hace algo como lo siguiente:\n\nLocal lista:={}\n\n  REDEFINE GET oFecha      VAR vFecha                    ID 102 FONT oFont2 of oDlg COLOR CLR_BLACK,RGB(255,255,168)\n	REDEFINE GET oAtiende    VAR cAtiende PICTURE \"@Z 99\"  ID 101 FONT oFont  of oDlg \n\n  REDEFINE GET oCliente    VAR vCliente PICTURE \"@z 999999\" ID 103 of oDlg FONT oFont\n\nLISTA:={oFecha,oAtiende,oCliente}\n\nACTIVATE DIALOG oDlg CENTERED ON INIT (Lista[1]:Disable(),Lista[2]:Disable(),Lista[3]:Disable())\n\n    Y al activar el dialogo veras los tres gets deshabilitados.\n\nSaludos,','',0,'','12bjkcr9',1,0,'',74,0,0),(919,272,6,21,0,'81.38.234.65',1130252441,1,0,1,1,1,1,'','','Hola\n\nYo uso la clase TLfn() y no tengo problemas.\n\nTLfn():lMkdir','',0,'','3afzc2vh',1,0,'',21,0,0),(920,255,2,74,0,'201.255.137.182',1130253124,1,0,1,1,1,1,'','','Chocochester:\n\n  Tenes que repetir las lineas donde se llama al compilador (harbour):\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n\n   Y las lineas donde se genera b32.bc para el bcc32:\n\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\n\n    Repitiendolas por cada prg. Si no queres complicarte podes usar cualquiera de las aplicaciones que hay para compilar (frontend, xmate, ajmake, etc, etc) donde es mucho mas sencillo configurar todo.\n\nSaludos,','',0,'','2urrmoy2',1,0,'',74,0,0),(921,275,2,42,0,'83.49.240.1',1130253205,1,0,1,1,1,0,'','problema utilizando una base de datos','<!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  Hola amigos:\n\n Estoy haciendo pruebas con bases de datos con fivewin, antes de migrar un aplicación y me surge este problema con una base de datos:\n\nfunction principal()\n  declaro variables\n\n.............\n  use clientes new\n  index on nombre to cli01\n  index on direccion to cli02\n  ..............\n  define window oWnd\n\n  llamada a browseclientes()\n \n  Activate window oWnd\n \n use   // cierra la base de datos\n  \n function browseclientes()\n \ndeclaro variables\n\nDEFINE DIALOG oDlg \n\n@ 3, 1 LISTBOX oLbx;\n	FIELDS Clientes-&gt;Nombre;\n                HEADERS Nombre;\n	FIELDSIZES 50;\n	etc ...\nACTIVATE DIALOG oDlg;\n\nreturn (nil)\n\nEL BROWSE LO HACE SIN NINGUN PROBLEMA TODAS LAS VECES QUE LLAMO A LA FUNCION\nAL SALIR DEL PROGRAMA PRINCIPAL DA UN ERROR DE PROTECCION GENERAL \n\npero... \n \n\nsi quito las lineas   \n  use clientes new\n  index on nombre to cli01\n  index on direccion to cli02\n\n de la funcion principal()\n\ny las pongo despues de la declaracion de variables de la funcion browseclientes()\nme da el ERROR DE PROTECCION GENERAL al llamar a esta funcion y el programa se cierra\n\n\n\n estoy utilizando la version 1.92 de fivewin \nclipper 5.2a\ny microsoft link 5.60','',0,'','3t07wmya',1,0,'',42,0,0),(922,272,6,24,0,'80.58.33.109',1130253360,1,0,1,1,1,1,'','Re:','[quote=&quot;fgondi&quot;:177mqrpj]Hola\n\nYo uso la clase TLfn() y no tengo problemas.\n\nTLfn():lMkdir[/quote:177mqrpj]\nBien, has solucionado mi problema. Si eso no forma parte de Fivewin,\npuedes indicar DONDE esta esa clase, o , el method lMkDir que es lo\nrealiza...?\n\nLo digo, porque , con lo que me dices, no hago absolutamente nada y me\nquedo, lamentablemente , igual que antes.\n\nSaludos.\nRafa Carmona','',0,'gA==','177mqrpj',1,0,'',24,0,0),(923,264,6,138,0,'201.129.13.60',1130255862,1,0,1,1,1,1,'','','Con ADS se puede hacer DE TODO.\n\nSe puede hacer con las funciones propias del RDDADS, pero no te lo recomiendo, el barrido de los cursores es bastante complicado\n\nYo lo hago via ADO de esta manera: (OJO, requiere diccionario de datos y tener instalado el cliente ADO para ADS)\n\n [code:2g03sxx0]\n\nLOCAL oConexionAdo &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41;\nLOCAL oComando &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;command&quot;&#41;\nLOCAL oRecordset\nLOCAL aDatos &#58;= &#123;&#125;\n\n /* comenzamos la conexion */\noConexionAdo&#58;Open&#40;&quot;Provider=Advantage&#46;OLEDB&#46;1;User ID=adssys;Data Source=c&#58;\\fwapps\\klm\\agentperformance&#46;add;Persist Security Info=False;ServerType=ADS_LOCAL_SERVER&quot;&#41;\n\n/*paso 2, crear un objeto comando y relacionarlo con el objeto conexion previamente creado */\noComando&#58;ActiveConnection&#40;oConexionAdo&#41;\n\n// indicamos el comando a ejecutar como cadena de caracteres\noComando&#58;CommandText &#58;= &quot;Select * from agents order by iatacode&quot;\n\n//ejecutamos el comando y el resultado regresa en un objeto de tipo RecordSet\noRecordSet &#58;= oComando&#58;Execute&#40;&#41;\n? oRecordSet&#58;RecordCount&#40;&#41;\n? oRecordSet&#58;Fields&#58;Count&#40;&#41;\nDO WHILE &#46;NOT&#46; oRecordSet&#58;Eof&#40;&#41;\n      AADD&#40;aDatos,oRecordset&#58;Fields&#40;0&#41;&#58;value&#41;\n      oRecordSet&#58;MoveNext&#40;&#41;\nENDDO\nMsgList&#40;aDatos&#41;[/code:2g03sxx0]','',0,'AIA=','2g03sxx0',1,0,'',138,0,0),(924,61,1,170,0,'80.170.157.99',1130256001,1,0,1,1,1,1,'','Re: DeviceCapabilities()','Let\'s down, use GetDeviceCaps() instead...','',0,'AIA=','1i3orv58',1,0,'',170,0,0),(925,263,6,52,0,'201.235.155.110',1130258007,1,0,0,1,1,0,'','Re: Error E2139 C:\\FWH24\\INCLUDE\\clipapi.h 77: Declaration m','Antonio:\n\n   dicho encabezado esta en el paquete original del FWH. No entiendo cuiando me decis que no se lo usa mas al clipapi.h \nGracias.\n\n[quote=&quot;Antonio Linares&quot;]Gustavo,\n\n[quote=&quot;goosfancito&quot;]Pueden ayudarme con esto, revise el codigo del clipapi.h y en esa linea dice esto:\n\ntypedef struct\n{\n   WORD  wType;   &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt; esta es la linea que dice 77\n   WORD  w2;\n   WORD  w3;\n   LPBYTE pPointer1;\n   LPBYTE pPointer2;\n} CLIPVAR;              // sizeof( CLIPVAR )  --&gt; 14 bytes[/quote]\n\nEstás usando un clipapi.h antiguo, que no es el de FWH. Ya que esa definición de CLIPVAR es sólo para Clipper y no para FWH.\n\n[quote=&quot;goosfancito&quot;]\nEstoy tratando de hacer esto:\n\n#include \"winten.h\"\n#include \"clipapi.h\"\n#include \"windows.h\"\n\nHB_FUNC( misuma ) {\n   Int inum1 := hb_parni( 1 ) ;\n   Int inum2 := hb_parni( 2 ) ;\n\n   hb_retni( inum1 + inum2 ) ;\n\n}\n[/quote]\n\nmisuma tiene que ir en mayúsculas, es decir, MISUMA. Por otra parte, Int no comienza en mayúsculas, sin en minúsculas: int[/quote]','',0,'AIA=','vl68qiwc',1,0,'',52,0,0),(926,276,6,106,0,'80.105.201.36',1130258422,1,0,0,1,1,0,'','error, creating enhanced metafile/deleting enhanced metafile','veo que para los enhanced metafiles, crea archivos del tipo tmp0001.emf, tmp0002.emf...\nEl problema es que en algunos casos me da estos errores:\n\nerror (32), creating enhanced metafile: en este caso, me sucede porque estoy probando 2 estaciones de trabajo (2 sesiones del programa) en la misma estacion, a 16 bits no tenia este problema.\n\nerror (6) deleting enhanced metafile: ese error deberia ser de manejador no valido...\n\nComo hago?\nA veces me hace bien la impresion, a veces imprime solo algunas cosas (hablando del preview, claramente)\n\nPedro Gonzalez\nSavona - Italia\n\n\nFWH2.6/BCC55/xHarbour el que viene con FWH 0.99.51','',0,'AIA=','3koj65oh',1,0,'',106,0,0),(927,267,4,2,0,'80.58.2.107',1130258528,1,0,1,1,1,1,'','','GWard,\n\nYour defines are ok. It seems as the windows don\'t allow such style. We have modified FWPPC to allow DEFINE WINDOW ... STYLE ... clause (as FW for PC) but the OK button at the caption area does not show  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .\n\nIt looks as you may need to use a dialogbox to get the OK button on the caption. Maybe you could use pushbuttons at the bottom instead of a pulldown menu ?','',0,'AIA=','2v4m8k4u',1,0,'',2,0,0),(928,272,6,21,0,'81.38.234.65',1130259172,1,0,1,1,1,1,'','Re:','Hola,\n\n[quote=&quot;thefull&quot;:1nucr4g8]Lo digo, porque , con lo que me dices, no hago absolutamente nada y me\nquedo, lamentablemente , igual que antes.\n[/quote:1nucr4g8]\n\nTranqui, lo único que hago es comentarte lo que uso y si te interesa no tienes nada mas que pedirlo. \nYa se que no es de fivewin y no se si lo que quieres es una solución a la función que usas o una solución al problema.\n\nTe envio al privado la clase.','',0,'gA==','1nucr4g8',1,0,'',21,0,0),(929,263,6,52,0,'201.235.155.110',1130262728,1,0,0,1,1,0,'','Gracias-','[quote=&quot;jlcapel&quot;]Gustavo,\n\nPrueba a poner este include en sustitución del clipapi.ch\n\n#include \"hbapi.h\"\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->[/quote]\n\nGracias José. \n\nQuiero saber algo, que encabezados deben tener los codigos c para xHarbour a parte de este?\n\nMuchas Gracias.','',0,'gA==','2a7ykhsj',1,0,'',52,0,0),(930,267,4,2,0,'80.58.2.107',1130263161,1,0,1,1,1,1,'','','GWard,\n\nWe have found this Pocket PC API function:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/apippc/html/ppc_aygshell_ztgv.asp\">http://msdn.microsoft.com/library/defau ... l_ztgv.asp</a><!-- m -->\n\nbut sadly doesn\'t work too, the way we need it...','',0,'gA==','10r2jt8b',1,0,'',2,0,0),(931,270,4,2,0,'80.58.2.107',1130263812,1,0,1,1,1,1,'','','GWard,\n\nWe are testing standard API EnableMenuItem() function but it looks as it does not work on Pocket PC. We need to find a function that may do the same work','',0,'gA==','1x17tvsp',1,0,'',2,0,0),(932,274,3,2,0,'80.58.2.107',1130263951,1,0,1,1,1,1,'','','Should we create them ? Please vote.','',0,'gA==','1cm4h8rt',1,0,'',2,0,0),(933,263,6,2,0,'80.58.2.107',1130264517,1,0,1,1,1,1,'','','Gustavo,\n\nNo he dicho que no se use clipapi.h, sino que tal vez estes usando uno antiguo. \n\nRevisa tu ordenador y asegúrate de que no tienes otro clipapi.h por ahi.','',0,'gA==','1gnfugws',1,0,'',2,0,0),(934,274,3,6,0,'82.61.68.158',1130265377,1,0,1,1,1,1,'','','Yes, please. I have some italian colleagues with insufficient english language knowledge. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','iino0lgl',1,0,'',6,0,0),(935,263,6,123,0,'83.53.63.233',1130265493,1,0,1,1,1,0,'','','Gustavo,\n\nPara hacer funciones C de (x)Harbour en principio solo necesitas el hbapi.h\n\nSi quieres además utilizar el api de windows deberás añadir windows.h además de aquellos ficheros de cabecera que necesites.\n\nSi quieres ver como se hace un [i:1a6gvyn2]wrapper[/i:1a6gvyn2] de una función del API de windows sigue este enlace <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=48\">http://www.capelblog.com/?p=48</a><!-- m -->\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'IA==','1a6gvyn2',1,0,'',123,0,0),(936,263,6,52,0,'201.235.155.110',1130265814,1,0,0,1,1,0,'','','[quote=&quot;Antonio Linares&quot;]Gustavo,\n\nNo he dicho que no se use clipapi.h, sino que tal vez estes usando uno antiguo. \n\nRevisa tu ordenador y asegúrate de que no tienes otro clipapi.h por ahi.[/quote]\n\nAntonio:\n\nSolo tengo el fhw24 en mi computadora, ya he quitado el fw21 que tenia. y esa libreria esta dentro de fw24\\include.\n\nGracias.','',0,'IA==','34ckmuf0',1,0,'',52,0,0),(937,263,6,52,0,'201.235.155.110',1130266069,1,0,0,1,1,0,'','WRAPPER','[quote=&quot;jlcapel&quot;]Gustavo,\n\nPara hacer funciones C de (x)Harbour en principio solo necesitas el hbapi.h\n\nSi quieres además utilizar el api de windows deberás añadir windows.h además de aquellos ficheros de cabecera que necesites.\n\nSi quieres ver como se hace un [i]wrapper[/i] de una función del API de windows sigue este enlace <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=48\">http://www.capelblog.com/?p=48</a><!-- m -->\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->[/quote]\n\nHe estado buscando que son los WRAPPER pero todos lo utilzan pero no dicen que es- podrias darme una pequeña explicacion porque hasta en el msdn hablan del mismo pero no explican en si que es.\n\nGracias.','',0,'IA==','rz0zu4uy',1,0,'',52,0,0),(938,253,3,3,0,'82.255.122.49',1130267357,1,0,1,1,1,0,'','','[quote=&quot;Vytas&quot;:3fu3sds2]Thanks Richard,\n\nI downloaded the contribution libs from Xharbour and put the hbzip.lib into directory d:\\harbour\\lib.  Modified my rmk file it include hbzip.lib as follows.\n\nHBDIR=d:\\harbour\nBCDIR=d:\\Borland\\bcc55\nFWDIR=d:\\fwh\n\nsnip ...\n\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\hbzip.lib + &gt;&gt; b32.bc\n\nsnip ...\n\nIn testing I added the following line to my function\n\nLOCAL oZipFile := ZipNew()\n\nThe compile seems to run fine,  however on linking I get the following error.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPNEW\' referenced from T:\\T1\\PRG\\OBJ\\CTI.OBJ\n\nAny idea of what I am missing?  Do I need some additional libs or is something else missing?\n\nThanks,\n\nVytas[/quote:3fu3sds2] <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nVytas,\n\nThis is a snapshot of my backup/restore program using hbzzip/unzip wuith meter progress, Comments ae in french, if you need help, let me know  \n\nRichard\n\nDEFINE DIALOG oDlg NAME \"ZIP\"\n\nREDEFINE SAY oSource PROMPT cpath   ID 101 OF oDlg\nREDEFINE SAY oTarget PROMPT cDEST   ID 102 OF oDlg\nREDEFINE GET OFILE VAR DFILE   ID 103 OF ODLG READONLY UPDATE COLOR CLR_BLUE\n\nREDEFINE METER oMEtEr  VAR nPerc1   ID 150 OF oDlg TOTAL 100\n\nREDEFINE BUTTON OBTNOK ID 01  OF oDlg ;\n    ACTION (OBTNOK:DISABLE(),OBTNCAN:DISABLE(),ZIPME(OMETER,cPATH,CDEST,@LSAVE,SOUSREP,ODLG,@DFILE,OFILE))\n\nREDEFINE BUTTON OBTNCAN ID 02  OF oDlg ;\n    ACTION LSAVE := .F., oDlg:end()\n\nACTIVATE DIALOG oDlg CENTERED\n\nIF LSAVE\n   ECRSTAT(\"S\")\nENDIF\nRETURN NIL\n\nSTATIC FUNCTION  ZIPME(OMETER,cPATH,CDEST,LSAVE,SOUSREP,ODLG,DLGFILE,OBJFILE)\n\nLOCAL aFiles      := {}, ;\n     lZipWithPath := .t., ;\n     lZipDone     := .T.\n\nLOCAL aDir := DIRECTORY(CURDRIVE() + \":&quot; + CURDIR() + \"\\*.*\",\"D\")\nLOCAL NCTR := 0\nLOCAL NLEN := 0, ;\n      CZIP\n\nMSGINFO(\"Veuillez insérer votre disque dans le lecteur\")\n\ncZip := CDEST + \"DATA.ZIP\"\n\nIF FILE(\"DATA.ZIP\")\n   ERASE \"DATA.ZIP\"\nENDIF\n\nIF FILE(CZIP)\n   ERASE (CZIP)\nENDIF\n\nFillFiles( @aFiles, aDir, cPath,SOUSREP )\n\nnLEN := len(afiles)\n\nlZipDone := HB_ZIPFILE( cZip , aFiles , 9, {|cFile,nPos| UPDMETER(CFILE,OMETER,NPOS,@nctr,NLEN,ODLG,@DLGFILE,OBJFILE)}, ;\n              .T.,, lZipWithPath, .F. )\n\n IF ! lZipdone\n    ALERT(\"Erreur création fichier Zip \" )\n    RETURN NIL\nENDIF\n\nCDEST := CURDRIVE() + \":&quot; + CURDIR() + \"\\DATA.ZIP\"\n\nerase (cdEST)\nCOPY FILE (CZIP) TO (CDEST)\n\ntone( 500,1 )\ntone( 600,1 )\ntone( 700,1 )\nMSGINFO(\"Sauvegarde terminée\")\n\nLSAVE := .T.\nODLG:END()\nRETURN NIL\n\nSTATIC Function FillFiles( aFiles, cDir, cPath,SOUSREP )\nLOCAL aSubDir,cItem,LEXT\n  FOR EACH cItem IN cDir\n    IF cItem[5] &lt;&gt; \"D\"\n      LEXT := ALLTRIM(CITEM[1])\n      LEXT := SUBS(LEXT,LEN(LEXT) -2 ,3)\n      IF UPPER(CITEM[1]) # \"DATA.ZIP\" .AND. UPPER(CITEM[1]) # \"PRO99.EXE\" ;\n       .AND. UPPER(CITEM[1]) # \"CBATIWIN.EXE\" .AND. UPPER(CITEM[1]) # \"XHBZIPDLL.DLL\" ;\n       .AND. UPPER(LEXT) # \"DLL\" .AND. UPPER(LEXT) # \"EXE\" .AND. UPPER(LEXT) # \"ZIP\"\n         SETFILEATTRIBUTES(cPath+cItem[1], FILE_ATTRIBUTE_ARCHIVE )\n         AADD( aFiles, cPath+cItem[1] )\n      ENDIF\n    ELSEIF cItem[1] &lt;&gt; \".\" .AND. cItem[1] &lt;&gt; \"..\"\n      IF SOUSREP\n         aSubDir := DIRECTORY( cPath+cItem[1]+\"\\*.*\", \"D\" )\n         aFiles  := FillFiles( aFiles ,aSubdir , cPath+cItem[1]+\"&quot;,SOUSREP )\n      ENDIF\n    ENDIF\n  NEXT\nRETURN aFiles\n\nDLL32 FUNCTION SETFILEATTRIBUTES(cFileName AS LPSTR, nFileAttributes AS DWORD ) ;\nAS BOOL PASCAL FROM \"SetFileAttributesA\" LIB \"Kernel32.dll\"\n\nSTATIC FUNCTION UPDMETER(CFILE,OMETER,NPOS,nctr,NLEN,ODLG,DLGFILE,OBJFILE)\nNCTR++\nDLGFILE := CFILE + SPACE(30)\nOBJFILE:REFRESH()\nometer:set(nCTR * 100 / NLEN)\nsysrefresh()\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nFUNCTION REST(fico)\n\nLOCAL SOUSREP := .F., ;\n      cPath   := CURDRIVE()+\":&quot;+CURDIR()+\"&quot;, ;\n      NPERC1  := 0, ;\n      LSAVE   := .F., ;\n      DFILE   := SPACE(80), ;\n      ODLG,OMETER,OFILE,CZIP,Osource,Otarget,OBTNOK,OBTNCAN\n\nLOCAL cIniFile  := GetWinDir()+\"\\CBATI.CFG\"\n\nIF ! FILE(\"DEVZIP.DBF\")\n   IF ! CUTILZIP()\n      RETURN NIL\n   ENDIF\nENDIF\n\nCZIP    := GetPvProfString(\"USER\",\"SAUVEGARDE\",,CINIFile )\n\nIF CZIP = \" \" .OR. CZIP = NIL .OR. CZIP &lt; \"A\" .OR. CZIP &gt; \"Z\"\n   IF FILE(\"DEVPILOT.DBF\")\n      IF ! NETOPEN(\"DEVPILOT\")\n         RETURN NIL\n      ENDIF\n      CZIP     := SUBS(DEVPILOT-&gt;PARAM2,41,1)\n      SOUSREP  := SUBS(DEVPILOT-&gt;PARAM2,58,1)\n      WRITEPPROSTRING(\"USER\" ,\"SAUVEGARDE\" ,CZIP , cIniFile )\n      CZIP := GetPvProfString(\"USER\",\"SAUVEGARDE\",,CINIFile )\n      WRITEPPROSTRING(\"USER\" ,\"SAUVESDIR\" ,SOUSREP , cIniFile )\n      SOUSREP := .F.\n   ENDIF\nENDIF\n\nDBCLOSEALL()\n\nMSGINFO(\"Attention, Vous demandez d\'écraser vos fichiers actuels\" + ;\n        CRLF + \"Par votre sauvegarde, veuillez reconfirmer\")\n\nIF ! MSGYESNO(\"Voulez-vous vraiment restituer sur disque votre sauvegarde ?\", ;\n    \"Veuillez reconfirmer\")\n   RETURN NIL\nENDIF\n\nIF CZIP = \"A\"\n   MSGSTOP(\"Sauvegarde sur disquettes non supportée\")\n   RETURN NIL\nENDIF\n\nIF CZIP == \" \"\n   MSGSTOP(\"Lecteur non identifié, restitution impossible\")\n   RETURN NIL\nENDIF\n\nCZIP += \":\\DATA.ZIP\"\n\nMSGINFO(\"Veuillez insérer votre disque de sauvegarde\")\n\nIF ! FILE( cZip )\n   ALERT(\"Fichier Zip introuvable ! \")\n   RETURN NIL\nENDIF\n\nDEFINE DIALOG oDlg RESOURCE \"unzip\"\n\nREDEFINE SAY oSource PROMPT cZIP    ID 101 OF oDlg\nREDEFINE SAY oTarget PROMPT cPATH   ID 102 OF oDlg\n\nREDEFINE GET OFILE VAR DFILE   ID 103 OF ODLG READONLY UPDATE COLOR CLR_HRED\n\nREDEFINE METER oMEtEr  VAR nPerc1   ID 150 OF oDlg TOTAL 100\n\nREDEFINE BUTTON OBTNOK ID 01  OF oDlg ;\n    ACTION (OBTNOK:DISABLE(),OBTNCAN:DISABLE(),UNZIPME(CZIP,OMETER,cPATH,@LSAVE,SOUSREP,ODLG,@DFILE,OFILE))\n\nREDEFINE BUTTON OBTNCAN ID 02  OF oDlg ;\n    ACTION LSAVE := .F., oDlg:end()\n\nACTIVATE DIALOG oDlg CENTERED\n\nIF LSAVE\n   ECRSTAT(\"R\")\nENDIF\n\ntone( 500,1 )\ntone( 600,1 )\ntone( 700,1 )\nMSGINFO(\"Restitution terminée\")\nRETURN NIL\n\nSTATIC FUNCTION UNZIPME(CZIP,OMETER,cPATH,LSAVE,SOUSREP,ODLG,DLGFILE,OBJFILE)\nLOCAL cCurdir, cZipDir, ;\n      lZipWithPath := .T., ;\n      aFiles       := {}, ;\n      NCTR         := 0, ;\n      NLEN         := 0\n\naFiles := hb_GetFilesInZip( CZIP ,.t.)\nnLEN   := len(afiles)\n\ncCurdir:=cZipdir:=CURDRIVE()+\":&quot;+CURDIR()+\"&quot;\nSwitchDir(\"&quot;)\ncZipdir:=\".&quot;\n\nIF ! HB_UNZIPFILE( cZip, {|cFile,nPos| UPDMETER(CFILE,OMETER,NPOS,@nctr,NLEN,ODLG,@DLGFILE,OBJFILE)}, lZipWithPath,, cZipdir )\n    ALERT(\"Erreur décompression fichiers\")\n    RETURN NIL\n  ELSE\n    LSAVE := .T.\nENDIF\nSwitchDir( cCurdir )\nODLG:END()\nRETURN NIL\n\nSTATIC FUNCTION SwitchDir( cDir )\n  LOCAL nError:=0\n\n  nError:=DIRCHANGE( cDir )\n  SWITCH nError\n    CASE 0\n      EXIT\n    CASE -1\n      ALERT(\"Mauvais Paramètre\")\n      EXIT\n    CASE 3\n      ALERT( \"Ce dossier n\'esiste pas \"+cDir )\n      EXIT\n    CASE 5\n      ALERT(\"Accès refusé au dossier \"+cDir )\n      EXIT\n    DEFAULT\n      ALERT( \"Erreur inconnue : \"+ALLTRIM( STR( nError ) )+\" pour \"+cDir )\n  END\n  IF nError &lt;&gt; 0\n    RETURN NIL\n  ENDIF\nRETURN NIL','',0,'gA==','3fu3sds2',1,0,'',3,0,0),(939,277,3,69,0,'206.210.97.138',1130267412,1,0,1,1,1,0,'','Disable a tab on a folder','Hi Everybody,\n\nIs there a way to disable a tab on a folder, for example something like:\n\nIF nValue &lt;&gt; 1\n   oFld1:Disable()\nENDIF\n\nThis way only oFld1 would not be clickable but the rest would.\n\nThanks in advance,\n\nJeff','',0,'gA==','1lhulure',1,0,'',69,0,0),(940,277,3,3,0,'82.255.122.49',1130271551,1,0,1,1,1,0,'','Re: Disable a tab on a folder','[quote=&quot;Jeff Barnes&quot;:3lnkg67j]Hi Everybody,\n\nIs there a way to disable a tab on a folder, for example something like:\n\nIF nValue &lt;&gt; 1\n   oFld1:Disable()\nENDIF\n\nThis way only oFld1 would not be clickable but the rest would.\n\nThanks in advance,\n\nJeff[/quote:3lnkg67j]\n\nJeff\n\nyou can do it this way\n\noFld1:aEnable = { .f., .t., .t., .T., .T.,.T. } \n\nRichard','',0,'gA==','3lnkg67j',1,0,'',3,0,0),(941,278,1,204,0,'87.202.105.121',1130275407,1,0,1,1,1,0,'','How to ... and Where to ...','1) How can I track the length of a multi line get. I understand that the UDF of the ON CHANGE clause is the trick. What parameters are passed to it (the NG file is missing that kind of info). Will something like this work for the UDF\n[code:1emc4gvs]\nPROCEDURE MemoLenChk&#40;nLen&#41;\n  IF LEN&#40;oGetMemo&#58;cText&#40;&#41;&#41; &lt;= nLen\n    oGetMemo&#58;KeyChar&#40;&#41;\n  ENDIF\nRETURN\n[/code:1emc4gvs]\n\n2) How can I make the size of a listbox \"lock\" to the size of the window it\'s drawn in? When a user zooms a window the listbox should \"follow\" the window\'s size and redraw itself to that size.\n\n3) Where can I find a detaled hlp or ng file for fivewin 2,3. A fellow coleague has lost the original one and cant find the setup files\n\nThanks\n------\nUsing 1.92 demo version of FW for Clipper','',0,'AIA=','1emc4gvs',1,0,'',204,0,0),(942,278,1,6,0,'82.61.68.158',1130276159,1,0,1,1,1,1,'','Re: How to ... and Where to ...','1) From mget.prg:\n\nEval( ::bChange, nKey, nFlags, Self )\n\n2) oWnd:SetControl( oBrw )\n\n3) Ask to Antonio\n\nEMG','',0,'AIA=','77tf791x',1,0,'',6,0,0),(943,277,3,69,0,'65.92.154.253',1130278876,1,0,1,1,1,0,'','','Thanks','',0,'AIA=','1s4vstg5',1,0,'',69,0,0),(944,273,6,2,0,'80.58.2.107',1130292895,1,0,1,1,1,1,'','','Fernando,\n\nActualmente los RDDs de Harbour y xHarbour son exactamente los mismos, luego ambos deben funcionar de igual forma.','',0,'AIA=','241pcwxz',1,0,'',2,0,0),(945,219,16,2,0,'80.58.2.107',1130293062,1,0,1,1,1,1,'','','Depende de que version y build de FWH estés usando. Si es una reciente, no, no hace falta recompilar los PRGs.','',0,'AIA=','3f2jpof4',1,0,'',2,0,0),(946,217,2,2,0,'80.58.2.107',1130293273,1,0,1,1,1,1,'','','Busca en <!-- m --><a class=\"postlink\" href=\"news://news.fivetechsoft.com\">news://news.fivetechsoft.com</a><!-- m --> mensajes relativos a ADO publicados por Enrico Maria Giordano en la seccion FWH en inglés, ó envíale un email a él preguntándole.','',0,'AIA=','39nrbzlf',1,0,'',2,0,0),(947,275,2,2,0,'80.58.2.107',1130293425,1,0,1,1,1,1,'','','Javi,\n\nla versión 1.92 de FiveWin es muy antigua y contenía muchos errores. Lo idóneo es que te actualices a una versión de FiveWin reciente. Y de paso, el mejor consejo es que te pases a 32 bits usando FiveWin para Harbour/xHarbour (FWH).','',0,'AIA=','i4n9lclv',1,0,'',2,0,0),(948,252,1,2,0,'80.58.2.107',1130293608,1,0,1,1,1,1,'','','Marc,\n\nYou may try it again. I emailed him past 20 Oct, and got his answer on the same day.','',0,'AIA=','3of8hx9e',1,0,'',2,0,0),(949,29,1,2,0,'80.58.2.107',1130293781,1,0,1,1,1,1,'','','Revisa el ejemplo samples\\TestTcbr.prg','',0,'AIA=','3bpzboz5',1,0,'',2,0,0),(950,274,3,2,0,'80.58.2.107',1130294534,1,0,1,1,1,1,'','','Enrico,\n\nHow do you write in Italian, \"Italian forums\" ? Thanks','',0,'AIA=','36j8aw59',1,0,'',2,0,0),(951,32,3,2,0,'80.58.2.107',1130294665,1,0,1,1,1,1,'','','Tim,\n\nYou may use these methods: SetItems( aItems ) or Insert( cItem, nAt )','',0,'AIA=','3mm0v4l1',1,0,'',2,0,0),(952,264,6,45,0,'201.252.223.216',1130305291,1,0,1,1,1,0,'','','Rene,\n  A que te refieres con \"barrido de cursores\" ?\n  Estuve usando las funciones de ADS, realmente las consultas son INSTANTANEAS, las creo en un area y la lee como un dbf obteniendo e recno original y todo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  Despues cierro el area, no necesito mucha complejidad, que problema me traeria eso ? No uso ni diccionarios ni nada, algo bien simple me conformo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAdsConnect\nADSCreateSQLStatement(\"SQLarea\",2)\nADSExecuteSQLDirect( &lt;cConsulta&gt; ) \ny despues cierro el area SQLarea\nAdsDisconnect\n\nA proposito, donde ha quedado la funcion AdsGetConnectionHandle() en la nueva version de xHarbour ??? Sabes algo al respecto ?\n\n\nHernan','',0,'AIA=','20n2y7fd',1,0,'',45,0,0),(953,274,3,6,0,'82.59.51.238',1130309241,1,0,1,1,1,1,'','','\"Forum italiani\"\n\nbut\n\n\"Italian forums\"\n\nwould be fine as well.\n\nBy the way: a single italian forum, just like it was in the newsgroups, will be more than enough.\n\nThank you!\n\nEMG','',0,'AIA=','3psbvu69',1,0,'',6,0,0),(954,279,6,23,0,'80.58.44.235',1130309562,1,0,1,1,1,1,'','TScan32 de Rafa Carmona','Hola gente!\nEstoy implementando la clase TScan32 de Rafa y va de perlas, tan solo una pregunta.\n¿Es posible o existe algun modo de indicarle al scanner que me capture una zona determinada del folio?\nHe visto que esta la funcion Tscan32:RegionSet (nTop,nLeft,nRight,nBottom) pero parece ser que no hace ningún efecto.\nAqui va mi código\n\n-------------------------------------------------------------------------------------\nFunction RunScan (cFileBmp)  \nLocal oScan\n   oScan := TScan32():New( cFileBmp )\n\n   If oScan:State()&lt;4\n     oScan:OpenDefault()\n   Endif\n   \n   oScan:SetRes (100)\n   oScan:SetHide (.T.)\n   oScan:PixelType (TWPT_GRAY)  // Gris\n   oScan:DigitoFile()\n   oScan:End()\nReturn (nil)\n\nUn saludo.','',0,'AIA=','nd0oyu6l',1,0,'',23,0,0),(955,280,3,31,0,'195.182.84.105',1130310437,1,0,1,1,1,1,'','Array of gets','Hi ! \n\n I want to assign gets in for .. next . Here is a small sample :\n\nlocal oGets[ len( aFlds ) ]\n...\nfor nGt := 1 to len( aFlds )\n   cFld := aFlds[ nGt ]\n   @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld )\nnext\n\n It seems that this isn\'t working .. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->( I remmember something about deattached locals , but at this moment i can\'t to find about them . Thanks in advance for any help !\n\n   With best regards !','',0,'','30k0spky',1,0,'',31,0,0),(956,221,4,68,0,'203.13.90.2',1130310699,1,0,1,1,1,1,'','','Antonio,\nSorry, but RegSetValue still only writes half the string plus some spurious data.  I believe the length of the string after conversion to unicode and including the terminating null is required (I\'ve been reading MS help)  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> .  My simple tests just write a string then read it back for display and it shows up on the emulator as well as an Intermec 700 (where I can examine the registry independently).\nRegEnumKey operates OK.\nBTW - the Forum seems more focused and business-like, thanks.\nhth\nregards','',0,'','2uuvuxer',1,0,'',68,0,0),(957,267,4,133,0,'80.176.234.174',1130316624,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:m9ahov34]GWard,\n\nIt looks as you may need to use a dialogbox to get the OK button on the caption. Maybe you could use pushbuttons at the bottom instead of a pulldown menu ?[/quote:m9ahov34]\n\nAntonio,\n\nI simply require too many options to utilise pushbuttons.\n\nThe \"OK\" button on child windows is a nice touch rather than essential. As long as the \"X\" never closes the entire application that is.\n\nI wonder how they manage to do it in \"Pocket Word\"','',0,'gA==','m9ahov34',1,0,'',133,0,0),(958,278,1,204,0,'87.202.74.195',1130317040,1,0,1,1,1,0,'','','Thank you for your reply. As a newbee to FW I find that a forum like this is very helpfull.','',0,'gA==','26hejhu0',1,0,'',204,0,0),(959,270,4,133,0,'80.176.234.174',1130317789,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:anhrgx9z]GWard,\n\nWe are testing standard API EnableMenuItem() function but it looks as it does not work on Pocket PC. We need to find a function that may do the same work[/quote:anhrgx9z]\n\nAntonio,\n\nThis is not my area of expertise but does the below have any relevance.\n\n<!-- m --><a class=\"postlink\" href=\"http://tinyurl.com/buno9\">http://tinyurl.com/buno9</a><!-- m -->','',0,'gA==','anhrgx9z',1,0,'',133,0,0),(960,272,6,63,0,'80.58.35.107',1130319939,1,0,1,1,1,0,'','','Rafa:\nYo uso simplemente \n\ncDir := \"C:\\Nombre muy largo, con coma\\\"\nlMkDir(cDir)\n\ny me funciona perfectamente (FWH 2.6).  Incluso con espacios intercalados y hasta comas!\n\nSaludos\nRafael','',0,'gA==','1py81o8v',1,0,'',63,0,0),(961,274,3,2,0,'83.39.227.26',1130321426,1,0,1,1,1,1,'','','Enrico,\n\nOk, it is created. How do you say in italian \"all products support\" ?\n\nPlease post a welcome msg there, in italian <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks,','',0,'gA==','1lxahe52',1,0,'',2,0,0),(962,280,3,31,0,'195.182.84.105',1130322609,1,0,1,1,1,1,'','Re: Array of gets','[quote=&quot;Rimantas&quot;:2zpotmbn]\nlocal oGets[ len( aFlds ) ]\n...\nfor nGt := 1 to len( aFlds )\n   cFld := aFlds[ nGt ]\n   @ nRw, nCol GET oGets[ nGt ] VAR aGets[ nGt ] PICTURE aPct[ nGt ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld )\nnext\n\n It seems that this isn\'t working .. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->( I remmember something about deattached locals , but at this moment i can\'t to find about them .[/quote:2zpotmbn]\n\n  Alreday found samples for that - testarr4.prg and tesloop.prg . But I have an problem with bValid for oGets arrays . My function n_pas( cAlias, cFld ) get an lats cFld value . How it make true ? One solution it can be at oDlg close moment , but I want to do that in oGet stage .\n\n   With best regards !','',0,'gA==','2zpotmbn',1,0,'',31,0,0),(963,276,6,123,0,'80.58.36.235',1130323018,1,0,1,1,1,0,'','','Hola,\n\nEl problema está en la clase tprinter, en el método _startpage.\n\nParece ser que la generación de nombres de ficheros temporales emf es consecutiva, empezando por 1 cada vez que se lanza un listado al previsualizador.  El nombre de fichero tiene esta forma: tmpXXXX.emf o tmpXXXX.wmf (para los antiguos 16 bits).\n\nUna solución para evitar este problema podría ser la siguiente:\n\n         \n[code:15fcx7k7]\nAAdd&#40; &#58;&#58;aMeta, &#58;&#58;cDir + &quot;\\tmp&quot;+ALLTRIM&#40;cTempFile&#40;&#41;&#41; + PadL&#40; &#58;&#58;nPage, 4, &quot;0&quot; &#41; + &quot;&#46;emf&quot; &#41;\n[/code:15fcx7k7]\n\nAunque, siendo también un poco críticos, la función cTempFile() tampoco nos asegura un nombre único de fichero.\n\nEspero que esto te ayude.\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','15fcx7k7',1,0,'',123,0,0),(964,274,3,217,0,'200.153.134.109',1130323198,1,0,1,1,1,0,'','','Antonio, how about forum in Portuguese? ^_^\n\nRegards from Brazil\nMaurilio','',0,'AIA=','25ex58rt',1,0,'',217,0,0),(965,280,3,31,0,'195.182.84.105',1130327383,1,0,1,1,1,1,'','Re: Array of gets','[quote=&quot;Rimantas&quot;:1nnsjamu]\n  Alreday found samples for that - testarr4.prg and tesloop.prg . But I have an problem with bValid for oGets arrays . My function n_pas( cAlias, cFld ) get an lats cFld value . How it make true ? One solution it can be at oDlg close moment , but I want to do that in oGet stage [/quote:1nnsjamu]\n\n   All is workig OK . Simply create codeblock \n\n local bCdb := { |oGet, nGt, others params...| get_blc( oGet, nGt, other params ..) }\n\n   Now in the loop evaluate codeblock\n\n  for nGt := 1 to len( aFlds )\n     oGet[ nGt ] = eval( bCdb, oGet[ nGt ], nGt, other params )\n  next\n\n  mine get_blc function :\n\nstatic function get_blc( oDlg, oGt, cAlias, cFld, nGt, aGet, cPict, nRow, nCol )\n\noGt := TGet():New( nRow, nCol, GenLocalBlock( aGet, nGt ), oDlg,,, cPict,,,,,,, .t. )\n\nif fieldtp( cAlias, cFld ) == \"C\"\n   oGt:bValid := { |oGet| n_pas( cAlias, cFld,, oGet:Value(), .t. ) }\nendif\nreturn( oGt )\n\nstatic function GenLocalBlock( aGet, n )\nreturn bSETGET( aGet[ n ] )\n\n   Now all is working OK ! With best regards !','',0,'gA==','1nnsjamu',1,0,'',31,0,0),(966,221,4,2,0,'80.58.2.107',1130327407,1,0,1,1,1,1,'','','Jon,\n\nThere is a new FWPPC build already available. This time it should work ok. Many thanks for your feedback and patience,  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2l4fu5eh',1,0,'',2,0,0),(967,276,6,106,0,'80.105.201.36',1130327526,1,0,0,1,1,0,'','','José Luis: esto me resuelve el tema poder imprimir en dos o mas estaciones de trabajo en el mismo pc, pero me sigue dando el error algunas veces que no puede eliminar el archivo, cosa que cuando voy a verificar el archivo no está, por lo que eliminarlo, lo elimina, pero me da este error.  <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\nGracias\n\nPedro Gonzalez','',0,'gA==','2o2widui',1,0,'',106,0,0),(968,274,3,2,0,'80.58.2.107',1130327753,1,0,1,1,1,1,'','','Maurilio,\n\nCreated too. Could you please post a welcome message in portuguese ? Thanks!','',0,'gA==','i7mwpcid',1,0,'',2,0,0),(969,281,21,217,0,'200.153.134.109',1130328126,1,0,1,1,1,0,'','Bem vindos ao forum em português','Olá, pessoal!\n\nEste é o recém inaugurado forum em português para os produtos FiveTech.\nVamos fazer deste nosso espaço para a comunidade FiveWin que fala português.\n\n[ ]\'s\nMaurilio','',0,'','11ecphzj',1,0,'',217,0,0),(970,274,3,217,0,'200.153.134.109',1130328243,1,0,1,1,1,0,'','','Antonio,\n\nThanks a lot.\nI sent a welcome message in portuguese. Now I\'ll contact any brazilian users to \"migrate\" to this forum.\n\nRegards,\nMaurilio','',0,'','2yqy1mz9',1,0,'',217,0,0),(971,282,20,6,0,'82.61.144.179',1130328498,1,0,1,1,1,1,'','Benvenuti nel nuovo forum in lingua italiana!','Questo forum è dedicato al supporto tecnico relativo a tutti i prodotti della Fivetech Software.\n\nSi prega di iscriversi utilizzando l\'apposita opzione e, possibilmente, anche di allegare una propria foto in modo tale da conoscerci anche di viso.\n\nBuon lavoro a tutti.\n\nEMG','',0,'','1l8a58s6',1,0,'',6,0,0),(972,274,3,6,0,'82.61.144.179',1130328560,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:vak9aeba]Enrico,\n\nOk, it is created.[/quote:vak9aeba]\n\nThank you!\n\n[quote=&quot;Antonio Linares&quot;:vak9aeba]How do you say in italian \"all products support\" ?[/quote:vak9aeba]\n\n\"Supporto tecnico per tutti i prodotti\"\n\n[quote=&quot;Antonio Linares&quot;:vak9aeba]Please post a welcome msg there, in italian <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:vak9aeba]\n\nDone.\n\nEMG','',0,'gA==','vak9aeba',1,0,'',6,0,0),(973,276,6,106,0,'80.105.201.36',1130329596,1,0,0,1,1,0,'','','Ya descubrí donde estaba el problema   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   y era en mi codigo, para variar... solo que antes no se quejaba... llamaba dos veces el endpage, y claro, no lo podía borrar a la segunda vez...\n\n\nPedro Gonzalez','',0,'gA==','3ktwvaih',1,0,'',106,0,0),(974,281,21,1,0,'200.204.170.177',1130330104,1,0,1,1,1,0,'Vagner','Olá pessoal','Olá, Estou aqui também :þ)\nNão esqueçam do III Encontro de programadores que será realizado em São Paulo dia 19 de Novembro de 2.005, incrição e mais informações\n<!-- m --><a class=\"postlink\" href=\"http://www.installsis.com.br/encontro\">http://www.installsis.com.br/encontro</a><!-- m -->\n\nAbraços\nVagner Wirts','',0,'gA==','ks5hjcof',1,0,'',1,0,0),(975,283,6,177,0,'194.30.62.6',1130333032,1,0,1,1,1,0,'','Error FiveWin/3  Cannot create Dialog Box:','Buenas tardes,\n\nyo cada vez más torpe.  En el siguiente ejemplo:\n\n[code:3cn7ivqg]\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;directry&#46;ch&quot;\n\nStatic oConexion\nStatic lConecta\n\nPROCEDURE Main\n    Ofak&#40;&#41;\nRETURN\n\nPROCEDURE Ofak&#40;&#41;\n\n    LOCAL oIcon\n    LOCAL oFont\n    LOCAL oDlg\n\n\n    DEFINE FONT oFont  NAME GetSysFont&#40;&#41; SIZE 0,-11\n    DEFINE ICON oIcon NAME &quot;32&quot;\n\n    DEFINE DIALOG oDlg NAME &quot;OFAK&quot; TITLE &quot;Generar fichero OFAK&quot; FONT oFont ICON oIcon\n\n    REDEFINE BITMAP ;\n        ID 101 OF oDlg;\n        NAME &quot;LOGO&quot;;\n        ADJUST\n\n     REDEFINE BITMAP ;\n        ID 102 OF oDlg;\n        NAME &quot;FELIX&quot;;\n        ADJUST\n\n\n    ACTIVATE DIALOG oDlg CENTER\n\n    oFont&#58;END&#40;&#41;\n    \nRETURN \n[/code:3cn7ivqg]\n\nAL ejecutar el ejemplo apararece el error del asunto. Ya siento dar el coñazo con la preguntita de marras, pero no veo donde está el problema.\n\nSaludos y gracias.','',0,'AIA=','3cn7ivqg',1,0,'',177,0,0),(976,284,4,224,0,'162.83.94.176',1130333584,1,0,1,1,1,1,'','Problem with Checkbox Object?','First, thank you to Antonio and company for a terrific tool -- FWPPC!\n\nSecond, thank you for moving to this new forum format. It is far superior to the old NTTP...\n\nFinally, I have a problem with the checkbox object. Perhaps I am not defining it correctly? The object\'s height is greatly exaggerated when displayed. This causes it to clip siblings and be sensitive to taps in areas not normally associated with it.  If I query for the :nTop and :nBottom values of the object, they are what I expect, but not what is displayed. This problem occurs whether I specify a size or not.\n\nI have included a small sample PRG below that illustrates the problem. I have set the checkbox background to \"N*\" to highlight the issue.\n\nThanks in advance...\n[code:21hde8l2]// Test checkbox objects\n\n#include &quot;FWCE&#46;ch&quot;\n\n#xtranslate NTrim&#40;&lt;n&gt;&#41; =&gt; LTrim&#40;Str&#40;&lt;n&gt;&#41;&#41;\n\n//----------------------------------------------------------------------------//\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oWnd, oChk1, oChk2\n   LOCAL lChk1 &#58;= &#46;T&#46;\n   LOCAL lChk2 &#58;= &#46;F&#46;\n\n   DEFINE WINDOW oWnd TITLE &quot;ChkBox&quot;\n\n   @ 2, 1 CHECKBOX oChk1 VAR lChk1 PROMPT &quot;Check 1&quot; OF oWnd COLOR &quot;N/N*&quot;\n\n   @ 6, 1 CHECKBOX oChk2 VAR lChk2 PROMPT &quot;Check 2&quot; OF oWnd COLOR &quot;N/N*&quot;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Top 1=&quot; + NTrim&#40; oChk1&#58;nTop &#41; + &quot;, Bott 1=&quot; + NTrim&#40; oChk1&#58;nBottom &#41; + CRLF + ;\n                        &quot;Top 2=&quot; + NTrim&#40; oChk2&#58;nTop &#41; + &quot;, Bott 2=&quot; + NTrim&#40; oChk2&#58;nBottom &#41; &#41;\n\nRETURN NIL[/code:21hde8l2]','',0,'AIA=','21hde8l2',1,0,'',224,0,0),(977,221,4,68,0,'203.45.174.65',1130333701,1,0,1,1,1,1,'','','Antonio,\nRegSetValue now operates OK and the few extra characters it throws in gratis are not a problem. Thanks for the rapid solution. Sockets are next...\nregards','',0,'AIA=','200e498r',1,0,'',68,0,0),(978,283,6,123,0,'83.56.205.189',1130334167,1,0,1,1,1,0,'','','Baxajau,\n\nSolo se me ocurre que te hayas dejado de redefinir algún control tipo custom (un tcbrowse, un wbrowse, etc) que haya en ese diálogo.\n\nEspero que sea esto.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','nblbav07',1,0,'',123,0,0),(979,283,6,177,0,'194.30.62.6',1130334382,1,0,1,1,1,0,'','','Jose Luis,\n\nlo que ves en el código, redefino dos controles TBitMap, que son el logo de la compañía y mi jeta  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos','',0,'AIA=','3qmiy3fv',1,0,'',177,0,0),(980,263,6,123,0,'83.56.205.189',1130334434,1,0,1,1,1,0,'','','Gustavo,\n\nUn [i:3pgt8puk]wrapper[/i:3pgt8puk] no es más que una función puente entre el nivel PRG de (x)harbour y una función C (que puede ser del API de Windows, de una DLL de un tercero, etc).\n\nPara hacer un [i:3pgt8puk]wrapper[/i:3pgt8puk] has de tener un mínimo conocimiento de C y documentación de la función que vas a [i:3pgt8puk]wrapear[/i:3pgt8puk].\n\nEn <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=48\">http://www.capelblog.com/?p=48</a><!-- m --> hay un artículo donde hay dos wrappers a dos funciones del API de Windows.  Míratelo y haz pruebas con alguna otra función del API de Windows.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'IA==','3pgt8puk',1,0,'',123,0,0),(981,221,4,2,0,'80.58.2.107',1130334448,1,0,1,1,1,1,'','','Jon,\n\nDo you mean it is writting extra characters ? How many ? We may need to do an extra fine tunning.\n\nYes, we need to review sockets support.\n\nThanks!','',0,'IA==','2zguzbth',1,0,'',2,0,0),(982,283,6,123,0,'83.56.205.189',1130334498,1,0,1,1,1,0,'','','Baxajaun,\n\n¿Puedes enviarme el \'proyecto\' para que lo vea?\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'IA==','28npgttu',1,0,'',123,0,0),(983,283,6,177,0,'194.30.62.6',1130334754,1,0,1,1,1,0,'','','José Luis,\n\nte he enviado el fichero rc a tu cuenta de Hotmail.\n\nSaludos.','',0,'IA==','12txxuqt',1,0,'',177,0,0),(984,283,6,123,0,'80.58.36.235',1130335380,1,0,1,1,1,0,'','','Baxajaun,\n\nLo siento... el fichero .zip al abrirlo me sale como un solo binario.\n\n¿Puedes comprobar lo que me has enviado?\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'IA==','3ksabh2s',1,0,'',123,0,0),(985,283,6,177,0,'194.30.62.6',1130335597,1,0,1,1,1,0,'','','José Luis,\n\nel fichero zip tiene que contener el fichero ofak.rc que lo puedes cargar con el WorkShop.\n\nSaludos','',0,'IA==','2xpnmv4y',1,0,'',177,0,0),(986,281,21,226,0,'200.162.111.226',1130335823,1,0,1,1,1,1,'','','Eu tambem estou por aqui...\n\nqq coisa que eu puder ajudar não se acanhem... rsss\n\nfala ai Vagnão...  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'IA==','1abr50kb',1,0,'',226,0,0),(987,284,4,2,0,'80.58.2.107',1130335830,1,0,1,1,1,1,'','','Bill,\n\nThanks for your kind words.\n\nWe have just published a new FWPPC build, you may download, that fixes the checkbox sizes. Using this new build, and with these little changes in your code:\n\n[code:2386ot4v]\n   @ 2, 1 CHECKBOX oChk1 VAR lChk1 PROMPT &quot;Check 1&quot; OF oWnd COLOR &quot;N/N*&quot; SIZE 80, 20\n\n   @ 6, 1 CHECKBOX oChk2 VAR lChk2 PROMPT &quot;Check 2&quot; OF oWnd COLOR &quot;N/N*&quot; SIZE 80, 20\n[/code:2386ot4v]\n\nWe get this image:\n[img:2386ot4v]http&#58;//img476&#46;imageshack&#46;us/img476/8782/checkboxes1ek&#46;jpg[/img:2386ot4v]\n\nWe appreciate your feedback, Thanks.','',0,'CIA=','2386ot4v',1,0,'',2,0,0),(988,283,6,177,0,'194.30.62.6',1130335973,1,0,1,1,1,0,'','','José Luis,\n\nel fichero que te he enviado es un zip con un fichero de recursos (ofak.rc) en él. Está comprobado y lo puedo abrir con el WorkShop.\n\nSaludos.','',0,'CIA=','2ft836u4',1,0,'',177,0,0),(989,283,6,123,0,'80.58.36.235',1130335986,1,0,1,1,1,0,'','','Baxajaun,\n\nNegativo.  Es un fichero AFAK sin extensión.  Es binario.  No puedo abrirlo con RWS ni con VC6.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'CIA=','y3stxhm0',1,0,'',123,0,0),(990,283,6,177,0,'194.30.62.6',1130336087,1,0,1,1,1,0,'','','José Luis,\n\nal fichero ofak ponle extensión .rc y dime si puedes abrirlo.\n\nSaludos.','',0,'CIA=','2tbgcihf',1,0,'',177,0,0),(991,283,6,123,0,'80.58.36.235',1130336238,1,0,1,1,1,0,'','','Baxajaun,\n\nNegativo.  Es un fichero binario.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'CIA=','pebumlqw',1,0,'',123,0,0),(992,283,6,177,0,'194.30.62.6',1130336344,1,0,1,1,1,0,'','','José Luis, \n\nlo vuelvo a enviar con dos ficheros ofak.rc y ofak.res\n\nSaludos.','',0,'CIA=','22f8myqi',1,0,'',177,0,0),(993,284,4,224,0,'162.83.94.176',1130336869,1,0,1,1,1,1,'','WOW! What great service!!','Thank you for the [i:2k6iiz59][b:2k6iiz59]FAST [/b:2k6iiz59][/i:2k6iiz59]fix.  Tremendous support!','',0,'YA==','2k6iiz59',1,0,'',224,0,0),(994,253,3,209,0,'209.217.64.30',1130336958,1,0,1,1,1,0,'','','I have added hbzip.lib that I downloaded from the xharbour site to my harbour\\lib directory.  I modified the default Buildh.bat  file to add \"echo %hdir%\\lib\\hbzip.lib + &gt;&gt; b32.bc\".  \n\nRunning the compile/link batch still give me the following errors.  Should not adding the hbzip.lib file provide the missing functions or is there another lib file I require?\n\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPFILE\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPTYPE\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPBLOCK\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPMSG\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\n\nThanks for the sample zip/unzip program.   I noticed that you have the function names all starting with HB_ while the Fivewin samples do not. Why?  I tried modifying the sample program using the HB_ prefix however it still will not link.\n\nSurely I am missing something very basic.\n\nThanks again.','',0,'YA==','1r38kkvl',1,0,'',209,0,0),(995,280,3,67,0,'83.134.58.90',1130337144,1,0,1,1,1,0,'','','Why not using hash arrays ?\nThey are very usefull for building dialog\'s , also afterwards when they must be referenced in another get\n\nLOCAL oGets := Hash() \nLOCAL aPct := Hash()\nfor nGt := 1 to len( aFlds ) \ncFld := aFlds[ nGt ] \n@ nRw, nCol GET oGets[ cFld ] VAR aGets[ nGt ] PICTURE aPct[ cFld ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) \nnext \n\n\n\nFrank','',0,'','34fhgi33',1,0,'',67,0,0),(996,281,21,227,0,'200.168.80.7',1130337729,1,0,1,1,1,1,'','','Cheguei.....','',0,'','64u8sw42',1,0,'',227,0,0),(997,283,6,123,0,'80.58.36.235',1130338038,1,0,1,1,1,0,'','','Baxajaun,\n\nParece que se te ha colado un bicho.\n\nOFAK DIALOG 60, 41, 328, 245\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Generar fichero OFAK\"\nFONT 8, \"MS Sans Serif\"\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n{\n PUSHBUTTON \"&amp;Generar Fichero\", 1, 104, 223, 63, 14\n PUSHBUTTON \"&amp;Cancelar\", 2, 173, 223, 50, 14\n COMBOBOX 103, 178, 85, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n COMBOBOX 104, 178, 107, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n COMBOBOX 105, 178, 135, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n COMBOBOX 106, 178, 159, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n LTEXT \"De proyecto :\", 1, 116, 85, 47, 8\n LTEXT \"A proyecto :\", 2, 116, 110, 42, 8\n LTEXT \"De minifábrica :\", 3, 116, 139, 60, 8\n LTEXT \"A minifábrica :\", 4, 116, 161, 60, 9\n LTEXT \"Ofak 1.0\", 5, 6, 206, 33, 8, WS_DISABLED | WS_GROUP\n[color=red:1nler9o6] CONTROL \"\", 6, \"BorShade\", BSS_HDIP | BSS_LEFT | WS_CHILD | [/color:1nler9o6]WS_VISIBLE, 35, 211, 293, 1\n CONTROL \"TBitMap\", 101, \"TBitMap\", WS_CHILD | WS_VISIBLE | WS_BORDER, 7, 7, 43, 40\n CONTROL \"TBitMap\", 102, \"TBitMap\", WS_CHILD | WS_VISIBLE | WS_BORDER, 273, 7, 43, 40\n}\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'Ag==','1nler9o6',1,0,'',123,0,0),(998,124,1,146,0,'200.59.40.151',1130338317,1,0,1,1,1,0,'','','[quote=&quot;DanielPuente&quot;:2yxn5kpl]Leonor:\n\n  Respecto al error en el bloque, si, el operador &amp; tiene un limite. Tendrias que dividir su contenido o llamar a una funcion que haga el trabajo y devuelva un valor. Tampoco es necesario que todas las definiciones de las columnas del browse las tengas en un codigo de bloque, prodrias usar por ejemplo un codigo de bloque para cada columna en un vector:\n\nLocal VEC0_FIELD1 := {    { || IF(LLOFACT-&gt;PENDIENTE==\'X\',hBmp,\"\") },;\n	                        { || DTOC(LLOFACT-&gt;FECHA) }     ,;\n													{ || LLOFACT-&gt;LFACT+\" \"+LLOFACT-&gt;PNFACT+\"-\"+LLOFACT-&gt;SNFACT }     ,;\n										 			{ || BUS_DES(\"LLOCLIEN\",1,LLOFACT-&gt;CLIENTE,\"RAZSOC\")  },;\n													{ || TRANS(LLOFACT-&gt;TOTAL,\"@E 999,999.99\") }     ,;\n\nLocal VEC0_ENC1   := {   \" \" ,;\n				                 OEMTOANSI(\"Fecha\"),;\n												 OEMTOANSI(\"Factura\"),;\n												 \" Cliente\",;\n												 \"Total\"     ,;\n         VEC0_SIZE1   := {20,62,110,240,80,75,75,75,80,90,90,90},;\n				 VEC0_JUSTIF  := {2,2,2,0,2,2,2,2,2,2,2},;\n\n	wAlias3:=\"MOVART\"\n\n  REDEFINE LISTBOX oBrw fields  ID 999  OF oDlg ;\n  COLOR CLR_BLACK, CLR_WHITE ;\n  FONT oFont ALIAS (WALIAS) UPDATE\n\n   oBrw:SetCols( VEC0_FIELD1, VEC0_ENC1, VEC0_SIZE1 )\n\n   Respecto a usar redefines con ids tenes que utilizar algun editor de recursos como el resource workshop de borland. Conseguite un manual. Si queres te mando algun ejemplo con el prg explicado o algo asi.\n\nSaludos,[/quote:2yxn5kpl]\n\n\nMil Gracias Master sos un genio, problema solucionado. \nSaludos. Leonor','',0,'gA==','2yxn5kpl',1,0,'',146,0,0),(999,285,2,146,0,'200.59.40.151',1130338499,1,0,1,1,1,0,'','when de los gets','Hola Amigos: tengo una dialog con muchos gets, cada vez que uno de ellos pierde foco me revisa todas las condiciones when de cada get, esto es normal, es algo de las clases? o me esta pasando algo raro. \nSaludos. Gracias.','',0,'gA==','ku0qm9am',1,0,'',146,0,0),(1000,283,6,177,0,'194.30.62.6',1130338700,1,0,1,1,1,0,'','','José Luis,\n\nefectivamente si lo quito funciona perfectamente. Como puedo poner una línea de separación  en la misma posición en la que se me había colado el bichito ?\n\nSe coló un control de Borland   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nSaludos','',0,'gA==','3r4ldt1l',1,1130358511,'',177,1,0),(1001,108,6,228,0,'201.245.246.212',1130339186,1,0,1,1,1,0,'','No funcionan los botones','Antonio te mande al correo una imagen de lo que sucede y los prg para que me ayudes, un abrazo. \n\nLEANDRO ALFONSO\nBogotá (Colombia)','',0,'gA==','3vo2jloj',1,0,'',228,0,0),(1002,286,2,146,0,'200.59.40.151',1130340103,1,0,1,1,1,0,'','funciones inkey() y __Keyboard() de clipper','Hola Amigos: Tengo en muchos procesos usando las funciones Inkey() de clipper y __Keyboard(CHR(5)+CHR(13)), con que fueron reemplazadas esas funciones en fivewin porque me tiran error interno 5333.','',0,'gA==','32wzzhae',1,0,'',146,0,0),(1003,253,3,3,0,'82.124.244.227',1130340990,1,0,1,1,1,0,'','','[quote=&quot;Vytas&quot;:3gmsfz4a]I have added hbzip.lib that I downloaded from the xharbour site to my harbour\\lib directory.  I modified the default Buildh.bat  file to add \"echo %hdir%\\lib\\hbzip.lib + &gt;&gt; b32.bc\".  \n\nRunning the compile/link batch still give me the following errors.  Should not adding the hbzip.lib file provide the missing functions or is there another lib file I require?\n\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPFILE\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPTYPE\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPBLOCK\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPMSG\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\n\nThanks for the sample zip/unzip program.   I noticed that you have the function names all starting with HB_ while the Fivewin samples do not. Why?  I tried modifying the sample program using the HB_ prefix however it still will not link.\n\nSurely I am missing something very basic.\n\nThanks again.[/quote:3gmsfz4a]\n\nVytas\n\nForget about the fivewin sample for zipping and unzipping, they are only for 16 bits, they do not work in 32 bits environment. The function name is HB_ZIPFILE.  Try to use my sample and i am sure you will make it.\n\nRegards\n\nRichard','',0,'gA==','3gmsfz4a',1,0,'',3,0,0),(1004,287,6,215,0,'201.144.63.242',1130341509,1,0,1,1,1,0,'','¿Cóm se ordena un array?','Tengo el siguiente código que me ordena por el primer elemento, luego por el segundo.\n\n  aResumen := ASort( aResumen, , , { | x, y | If( x[1] &lt; y[1], .T., If( x[1] == y[1],  x[2] &lt; y[2], FALSE ) ) } )\n\n\nPero no he conseguido ordenar por el tercer elemento \n\nSaludos\nFernando Leal\nMéxico, DF','',0,'','3raqvrla',1,0,'',215,0,0),(1005,108,6,138,0,'201.154.236.172',1130341783,1,0,1,1,1,1,'','','A mi me paso exactamene lo mismo con los botones, en cuanto el cursor se paraba encima de uno crashhhhhh, cascaba la aplicacion.\n\nSolucion, volver a reconstruir la lib de FiveWin, compilando con la version de (x)HB adecuada.','',0,'','1vj9awg5',1,0,'',138,0,0),(1006,253,3,3,0,'82.124.244.227',1130341817,1,0,1,1,1,0,'','','[quote=&quot;Vytas&quot;:34bftrgh]I have added hbzip.lib that I downloaded from the xharbour site to my harbour\\lib directory.  I modified the default Buildh.bat  file to add \"echo %hdir%\\lib\\hbzip.lib + &gt;&gt; b32.bc\".  \n\nRunning the compile/link batch still give me the following errors.  Should not adding the hbzip.lib file provide the missing functions or is there another lib file I require?\n\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPFILE\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPTYPE\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPBLOCK\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPMSG\' referenced from D:\\FWH\\SAMPLES\\TESTZIP.OBJ\n\nThanks for the sample zip/unzip program.   I noticed that you have the function names all starting with HB_ while the Fivewin samples do not. Why?  I tried modifying the sample program using the HB_ prefix however it still will not link.\n\nSurely I am missing something very basic.\n\nThanks again.[/quote:34bftrgh]\n\nTry this very easy sample and let me know \n\n#INCLUDE \"FiveWin.ch\"\n/*\nSample for zipping files with Fivewin and xharbour\n\nYou need hbzip.lib  and xhbzipdll.lib  that you can download from <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->\n\nIn your working directory you need xhbzipdll.dll  that you can download from the same url\n\nThis is an original program written by my friend Sylvain Robert and reviewed by me\n\n*/\n\nFUNCTION Main()\n\nLOCAL aDir := DIRECTORY( \"*.*\",\"D\" ), aFiles:= {}, lZipWithPath:= .t.\nLOCAL cPath := CURDRIVE()+\":&quot;+CURDIR()+\"&quot;,lZipDone,DID\n\nczip := \"e:\\test.zip\"    // MAKE CHANGE IF NEEDED\n\nFillFiles( aFiles, aDir, cPath )\nIF UPPER( LEFT( cZip, 2 ) ) &lt;&gt; \"A:\"\n\n    lZipDone:= HB_ZIPFILE( cZip , aFiles , 9, { |cFile,npos| QOUT( cFile ) }, ;\n                .T.,, lZipWithPath, .F. )\n  ELSE\n    HB_SETDISKZIP({|x| ALERT(\"Please Insert Disk No:\"+ ALLTRIM( STR( x,3 ) ) ) } )\n    lZipDone:= HB_ZIPFILEBYPKSPAN( cZip , aFiles , 9, { |cFile,npos| QOUT( cFile ) }, ;\n                .T.,, lZipWithPath, .F. )\nENDIF\nIF ! lZipdone\n  ALERT( \"Zip file not created\" )\nENDIF\nRETURN NIL\n\nFUNCTION FillFiles( aFiles, cDir, cPath )\nLOCAL aSubDir,cItem\n\nFOR EACH cItem IN cDir\n    IF cItem[5] &lt;&gt; \"D\"\n      AADD( aFiles, cPath+cItem[1] )\n    ELSEIF cItem[1] &lt;&gt; \".\" .AND. cItem[1] &lt;&gt; \"..\"\n      aSubDir := DIRECTORY( cPath+cItem[1]+\"\\*.*\", \"D\" )\n      aFiles:=FillFiles( aFiles ,aSubdir , cPath+cItem[1]+\"&quot; )\n    ENDIF\nNEXT\nRETURN aFiles','',0,'gA==','34bftrgh',1,0,'',3,0,0),(1007,273,6,81,0,'80.28.244.140',1130342159,1,0,1,1,1,0,'','','Antonio pero estos cambios se han aplicado en el CVS de hace un mes aprox. Las versiones de descargas estables que hay en la web no creo que tengan los cambios implementados.\nSaludos\nRafa','',0,'gA==','3fykyddo',1,0,'',81,0,0),(1008,203,4,2,0,'80.58.2.107',1130343045,1,0,1,1,1,1,'','','GWard,\n\nOur friend Hernan has a browse for FiveWin which has what you need. We may try to port it to FWPPC. We may need several days.','',0,'gA==','3i9kdbv0',1,0,'',2,0,0),(1009,286,2,2,0,'80.58.2.107',1130343148,1,0,1,1,1,1,'','','Leonor,\n\nNo puedes usar Inkey(). Si nos explicas lo que quieres hacer podemos darte una idea de cómo hacerlo.','',0,'gA==','13z2oo38',1,0,'',2,0,0),(1010,281,21,103,0,'200.164.92.242',1130344088,1,0,1,1,1,0,'','','Tô na área também...  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nAh, e não esqueçam de colocar a foto de vocês... hehehe\n\nKleyber Derick','',0,'gA==','1vqbzy94',1,0,'',103,0,0),(1011,283,6,103,0,'200.164.92.242',1130344645,1,0,1,1,1,0,'','','Hola,\n\n Aprovechando el tema, tengo una duda que me da inquietud: ¿Cuales son las situaciones en que esta mensaje aparece? El motivo de mi pregunta es que tengo un sistema funcionando perfectamente en una red, con todas las pantallas bien definidas (no uso controles Borland) pero en algunos momentos y en algunos terminales (no son necesariamente los mismos) aparece la dicha mensaje y no comprendo el motivo. Yo uso DLL con las pantallas... ¿Sera que es por eso?\n\nUso xHarbour 0.99.4 + FWH 2.5\n\nSaludos,\n\nKleyber Derick','',0,'gA==','162evjri',1,0,'',103,0,0),(1012,270,4,2,0,'80.58.2.107',1130345821,1,0,1,1,1,1,'','','GWard,\n\nThanks for your help, but we finally found at Microsoft forums some info that helped us to implement the WHEN clause for MenuItems. It is working ok  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nYou may already download a new FWPPC build that implements it. Please check samples\\tutor03.prg for a working sample. On the sample we just use .f. to disable, but remember you may call any expression or function to evaluate the WHEN state.\n\nWe appreciate your feedback,','',0,'gA==','v78ayywy',1,0,'',2,0,0),(1013,253,3,209,0,'209.217.64.30',1130346481,1,0,1,1,1,0,'','','Hi Richard,  \n\nI googled and searched the xHarbour site and could not find reference to the file called xhbzipdll.lib.  Can you please point me to where you got it.\n\nThanks for your patience.\n\nVytas','',0,'gA==','390c8out',1,0,'',209,0,0),(1014,263,6,52,0,'201.235.155.110',1130346927,1,0,0,1,1,0,'','Mira vos lo que se aprende','O sea que lo que estoy tratando de hacer es un WRAPPER, estoy tratando hace un tiempo crear, conectar y manipular pipes. por medio de funciones mias y utilizando API. Bueno siempre y cuando el xHarbour me lo deje.\n\nGracias Soberano.\n\n[quote=&quot;jlcapel&quot;]Gustavo,\n\nUn [i]wrapper[/i] no es más que una función puente entre el nivel PRG de (x)harbour y una función C (que puede ser del API de Windows, de una DLL de un tercero, etc).\n\nPara hacer un [i]wrapper[/i] has de tener un mínimo conocimiento de C y documentación de la función que vas a [i]wrapear[/i].\n\nEn <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=48\">http://www.capelblog.com/?p=48</a><!-- m --> hay un artículo donde hay dos wrappers a dos funciones del API de Windows.  Míratelo y haz pruebas con alguna otra función del API de Windows.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->[/quote]','',0,'gA==','27s1mkz2',1,0,'',52,0,0),(1015,288,3,213,0,'24.162.36.40',1130349029,1,0,1,1,1,0,'','xHarbour/FWH/Canal 5 Calendar','All,\n\nI posted a msg a few days ago about a problem I\'m having since upgrading to the latest xHarbour Oct 2005 w/xcc.  When I start my app I get the Windows \"myapp.exe has encountered a problem and needs to close\".  I\'ve narrowed it down to canal 5 calendar code.  There are some .prg\'s and one .c source file being linked in.  I\'ve included below the .c source below.  Can you see anything in this source that would cause a problem?  Is anyone else using the C5 Calendar control?  Using FWH Jan 2005. \n\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\n\nBOOL    WINAPI StretchBlt(HDC, int, int, int, int, HDC, int, int, int, int, DWORD);\n\nHB_FUNC( COMPATDC ) // ( hDC )\n{\n   hb_retnl( ( LONG ) CreateCompatibleDC( ( HDC ) hb_parnl( 1 ) ) );\n   // hb_retni( CreateCompatibleDC( hb_parnl( 1 ) ) );\n\n}\n\n\nHB_FUNC( COMPATBMP ) // ( hDC, nWidth, nHeight )\n{\n\n    hb_retnl( (LONG) CreateCompatibleBitmap( (HDC) hb_parnl(1),hb_parni(2), hb_parni(3) ) );\n\n}\n\n\nHB_FUNC( BITBLT ) // ( hdcDest, nXDest, nYDest, nWidth, nHeight,hdcSrc,  nXSrc , nYSrc, dwRop )\n{\n     hb_retl( BitBlt( ( HDC ) hb_parnl( 1 ), hb_parni( 2 ), hb_parni( 3 ),\n                  hb_parni( 4 ), hb_parni( 5 ), ( HDC ) hb_parnl( 6 ),\n                  hb_parni( 7 ), hb_parni( 8 ), hb_parnl( 9 ) ) );\n}\n\n\n\nHB_FUNC( STRETCHBLT )\n{\n   hb_retl(StretchBlt( ( HDC ) hb_parnl(1),hb_parni(2),hb_parni(3),hb_parni(4),hb_parni(5),\n                     ( HDC ) hb_parnl(6),hb_parni(7),hb_parni(8),hb_parni(9),hb_parni(10),\n                     hb_parni(11)));\n\n\n}\n\nThanks,\nRandal Ferguson','',0,'gA==','fj7b2ryq',1,0,'',213,0,0),(1016,253,3,3,0,'82.64.194.121',1130350516,1,0,1,1,1,0,'','','[quote=&quot;Vytas&quot;:ed4thnhj]Hi Richard,  \n\nI googled and searched the xHarbour site and could not find reference to the file called xhbzipdll.lib.  Can you please point me to where you got it.\n\nThanks for your patience.\n\nVytas[/quote:ed4thnhj] <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org/download.asp?filename=http://files.xharbour.org/windows/xharbour-0.99.50.contrib.w32.bcc32.zip\">http://www.xharbour.org/download.asp?fi ... .bcc32.zip</a><!-- m -->','',0,'gA==','ed4thnhj',1,0,'',3,0,0),(1017,273,6,93,0,'201.152.249.52',1130351068,1,0,1,1,1,0,'','Antonio','Lo intenté con el driver nativo de Harbour, de junio de este año. No se si haya puesto los includes y request corresponidientes, lo voy a probar de nuevo y te estaré avisando. pero de entrada, si lo hago normalmente como lo hago siempre con los demás DBF\'s te comento que marca error.\n\nVoy a ver si te puedo enviar un ejemplo pequeño para que lo veas.\n\nSaludos y gracias por el tiempo\n\nFernando Castro\n<!-- m --><a class=\"postlink\" href=\"http://gfernando.blogspot.com\">http://gfernando.blogspot.com</a><!-- m -->','',0,'gA==','ivv1ryam',1,0,'',93,0,0),(1018,253,3,209,0,'209.217.64.30',1130352375,1,0,1,1,1,0,'','','Hi Richard,\n\nThe link you provided to me is where I found the hbzip.lib file however the xhbzipdll.lib is not in the zip file.\n\nThinking that they renamed it I added all the lib files located in the contribution zip to my compile/link bat.  Unfortunately I still have unresolved externals.  I suspect it is due to not having the xhbzipdll.lib file.\n\nError: Unresolved external \'_deflateEnd\' referenced from D:\\HARBOUR\\LIB\\HBZIP.LIB|ziparchive\n\nVytas','',0,'gA==','39dqh682',1,0,'',209,0,0),(1019,283,6,123,0,'83.41.31.115',1130353282,1,0,1,1,1,0,'','','Baxajaun,\n\n[quote:2x8p6b8a]\nefectivamente si lo quito funciona perfectamente. Como puedo poner una línea de separación en la misma posición en la que se me había colado el bichito ? [/quote:2x8p6b8a]\n\nPues no se exactamente que contestarte.  No utilizo ni he utilizado controles Borland.  Podrías, por ejemplo, utilizar las tslines de Manuel Mercado (no las he usado nunca) o también, un control EDIT con los atributos SS_SUNKEN (lo estiras y lo haces bajito).  En fin... espero que te sea de ayuda.\n\nKleyber,\n\n[quote:2x8p6b8a]\n Aprovechando el tema, tengo una duda que me da inquietud: ¿Cuales son las situaciones en que esta mensaje aparece? El motivo de mi pregunta es que tengo un sistema funcionando perfectamente en una red, con todas las pantallas bien definidas (no uso controles Borland) pero en algunos momentos y en algunos terminales (no son necesariamente los mismos) aparece la dicha mensaje y no comprendo el motivo. Yo uso DLL con las pantallas... ¿Sera que es por eso? \n[/quote:2x8p6b8a]\n\nPues en eso tendremos que preguntarselo directamente a Antonio.  ¿Por qué? Pues por que si miramos la clase tDialog veremos que en el método ACTIVATE hay varias funciones para crear el diálogo.  Esas funciones retornan un resultado que si es falso, llama a la función CreateDlgError.  En esas funciones (que me imagino que son parte de los fuentes [i:2x8p6b8a]ocultos[/i:2x8p6b8a]) está la explicación a los errores.  Antonio... ¿puedes aportarnos algo de luz?\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'oA==','2x8p6b8a',1,0,'',123,0,0),(1020,283,6,9,0,'62.174.202.39',1130353774,1,0,1,1,1,0,'','','A mi siempre me ha dado ese tipo de error, cuando  al copiar un recurso desde otro fichero.rc,  este tenia un control de Borland, ( por ejemplo, una linea de separación) y hasta que no me he roto la cabeza y me ha dado por borrar la dichosa linea, no me ha funcionado.\n\nUn saludo','',0,'oA==','1vxxhef0',1,0,'',9,0,0),(1021,289,6,52,0,'201.235.155.110',1130355741,1,0,0,1,1,0,'','hb_retni.. y las otras como son?','Estimados:\n\nNo tengo Guias norton o de donde averiguar, podrían decirme cuales son las funciones (creo que son funciones) que se utilizan para que una funcion desde C devuelva un valor:\nComo ser:\n\nhb_retni\nhb_ret...\n\nnecesito saber como hago para decirle que NO DEVOLVERA NADA: algo asi como RETURN nil\n\nGracias.','',0,'oA==','22k0qth0',1,0,'',52,0,0),(1022,289,6,2,0,'80.58.2.107',1130356792,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.clipx.net/ng/cltech/ng242.php\">http://www.clipx.net/ng/cltech/ng242.php</a><!-- m -->','',0,'oA==','28cnpmy2',1,0,'',2,0,0),(1023,289,6,123,0,'83.41.31.115',1130356851,1,0,1,1,1,0,'','','Gustavo,\n\nPrueba a simplemente hacer un return;\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'oA==','1903m7jn',1,0,'',123,0,0),(1024,289,6,2,0,'80.58.2.107',1130356964,1,0,1,1,1,1,'','','Jose Luis,\n\nLa forma correcta es hb_ret()\n\nAunque en realidad lo único que hace es limpiar el valor de retorno que haya de una función anterior. Realmente no es necesario llamarlo, aunque sería lo correcto.','',0,'oA==','2v7f5aa9',1,0,'',2,0,0),(1025,289,6,123,0,'83.41.31.115',1130357087,1,0,1,1,1,0,'','','Antonio,\n\nTienes razón... como casi siempre  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nPero como quería no devolver nada... pues un simple return ya hace ese trabajo.  Pero como bien dices, lo correcto es un hb_ret();\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'oA==','10fria19',1,0,'',123,0,0),(1026,289,6,52,0,'201.235.155.110',1130357707,1,0,0,1,1,0,'','Solucion...','hb_ret();\n\nGracias José\n\n[quote=&quot;jlcapel&quot;]Gustavo,\n\nPrueba a simplemente hacer un return;\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->[/quote]','',0,'oA==','ehtmrs1l',1,0,'',52,0,0),(1027,253,3,3,0,'82.64.194.121',1130357839,1,0,1,1,1,0,'','','[quote=&quot;Vytas&quot;:2h8cgspg]Hi Richard,\n\nThe link you provided to me is where I found the hbzip.lib file however the xhbzipdll.lib is not in the zip file.\n\nThinking that they renamed it I added all the lib files located in the contribution zip to my compile/link bat.  Unfortunately I still have unresolved externals.  I suspect it is due to not having the xhbzipdll.lib file.\n\nError: Unresolved external \'_deflateEnd\' referenced from D:\\HARBOUR\\LIB\\HBZIP.LIB|ziparchive\n\nVytas[/quote:2h8cgspg]\n\nSorry Vytas, i do not use xharbour.org, i use xharbour.com and xcc compiler. It has been a while since i used bcc compiler, i can not help you further. I am sure someone else will help you get the missing files or a more appropriate link to download them.  If not, then please post a message on xharbour.org news.\n\nRichard','',0,'gA==','2h8cgspg',1,0,'',3,0,0),(1028,278,1,204,0,'87.202.74.195',1130357849,1,0,1,1,1,0,'','','Ok next question. How to make a GET object that is editing a Date field popup an datepicker when there is a bad date. \nI know recompile and relink the TGET.PRG with a moded lValid METHOD. (The datepicker is the msgdate source code I got from a colleges 2.3 installation and will mod it to support Greek language).\nI want to know if there is an easy way to do it.\nThanks','',0,'gA==','3iugfnk8',1,0,'',204,0,0),(1029,290,4,3,0,'82.64.194.121',1130358168,1,0,1,1,1,0,'','printer','Antonio,\n\nI want to purchase a printer for my pocket pc, is there any particular model you would recommend or is there any model to avoid ? This is in regards to fwppc of course. Pocket pc is wifi, blue tooth, IR\n\nThanks\n\nRichard','',0,'gA==','3j8ameb6',1,0,'',3,0,0),(1030,283,6,21,0,'80.58.46.235',1130358251,1,0,1,1,1,1,'','','Hola Baxajaun,\n\n[quote=&quot;Baxajaun&quot;:1bxsu65f]\nefectivamente si lo quito funciona perfectamente. Como puedo poner una línea de separación  en la misma posición en la que se me había colado el bichito ?[/quote:1bxsu65f]\n\nPara colocar lineas de separcióne entre objetos uso lo siguiente:\n\n[code:1bxsu65f]CONTROL &quot;&quot;, 801, &quot;Static&quot;, SS_ETCHEDFRAME, 2, 16, 528, 1[/code:1bxsu65f]','',0,'gIA=','1bxsu65f',1,0,'',21,0,0),(1031,283,6,177,0,'62.99.99.66',1130358418,1,0,1,1,1,0,'','','Fernando,\n\neskerrik asko ! Muchas gracias !\n\n\nSaludos','',0,'gIA=','1djklk0g',1,0,'',177,0,0),(1032,283,6,177,0,'62.99.99.66',1130359614,1,0,1,1,1,0,'','','Fernando,\n\nno falta algo ?\n\n[quote=&quot;fgondi&quot;:274ra3os]Hola Baxajaun,\n\nPara colocar lineas de separcióne entre objetos uso lo siguiente:\n\n[code:274ra3os]CONTROL &quot;&quot;, 801, &quot;Static&quot;, SS_ETCHEDFRAME, 2, 16, 528, 1[/code:274ra3os][/quote:274ra3os]\n\nSaludos','',0,'gIA=','274ra3os',1,0,'',177,0,0),(1033,283,6,103,0,'200.164.92.242',1130362828,1,0,1,1,1,0,'','','Jose Luiz,\n\n[quote:2zorq9ou] Pues en eso tendremos que preguntarselo directamente a Antonio. ¿Por qué? Pues por que si miramos la clase tDialog veremos que en el método ACTIVATE hay varias funciones para crear el diálogo. Esas funciones retornan un resultado que si es falso, llama a la función CreateDlgError. En esas funciones (que me imagino que son parte de los fuentes ocultos) está la explicación a los errores. Antonio... ¿puedes aportarnos algo de luz?[/quote:2zorq9ou]\n\nGracias por tu respuesta. Estoy a esperar uan respuesta de Antonio.\n\nSaludos,\n\nKleyber Derick','',0,'gA==','2zorq9ou',1,0,'',103,0,0),(1034,283,6,21,0,'80.58.46.235',1130362837,1,0,1,1,1,1,'','','Hola,\n\n[quote=&quot;Baxajaun&quot;:3i9894kc]no falta algo ?[/quote:3i9894kc]\nla instrucción que te he enviado la uso en Pellec no en WorkShop\n\nHe revisado lo que tenia antiguo, cuando usaba workshop y lo que usaba entonces era:\n\n[code:3i9894kc] CONTROL &quot;&quot;, 801, &quot;STATIC&quot;, SS_GRAYFRAME | WS_CHILD | WS_VISIBLE, -1, 19, 435, 1[/code:3i9894kc]\n\nEz horregatik!','',0,'gIA=','3i9894kc',1,0,'',21,0,0),(1035,203,4,133,0,'80.176.234.174',1130363307,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:20nzq599]GWard,\n\nOur friend Hernan has a browse for FiveWin which has what you need. We may try to port it to FWPPC. We may need several days.[/quote:20nzq599]\n\nAntonio,\n\nThat is great news.\n\nThe feature will be VERY useful indeed.','',0,'gA==','20nzq599',1,0,'',133,0,0),(1036,270,4,133,0,'80.176.234.174',1130363564,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3r12ah5v]GWard,\n\nThanks for your help, but we finally found at Microsoft forums some info that helped us to implement the WHEN clause for MenuItems. It is working ok  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[/quote:3r12ah5v]\n\nAntonio,\n\nDownloading new version now.\n\nMany thanks indeed','',0,'gA==','3r12ah5v',1,0,'',133,0,0),(1037,264,6,41,0,'200.87.67.10',1130363719,1,0,1,1,1,0,'','','Hernan,\n\nno consigo enviarte un emial a cesotech.com.ar\n\nMarcelo','',0,'gA==','1bxdf70f',1,0,'',41,0,0),(1038,282,20,115,0,'85.41.183.42',1130364028,1,0,1,1,1,1,'','Re: Benvenuti nel nuovo forum in lingua italiana!','Ciao Enrico,\n\n[quote:2qji8uvz]\nBuon lavoro a tutti.\n[/quote:2qji8uvz]\n\nAnche a te. Ciao','',0,'gA==','2qji8uvz',1,0,'',115,0,0),(1039,291,6,43,0,'201.127.3.88',1130365565,1,0,1,1,1,0,'','Herramienta para hacer ayuda de programa','Hola a Todos\n\n   Alguien me podria recomendar alguna utileria para poder hacer el tema de ayuda de mi sistema (por favor que sea gratuito  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  si no es molestia)\n\n   De antemano muchas gracias.\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','20qcdu2m',1,0,'',43,0,0),(1040,282,20,6,0,'82.59.51.91',1130366720,1,0,1,1,1,1,'','Re: Benvenuti nel nuovo forum in lingua italiana!','Grazie. A proposito: hai ricevuto la mia email nella quale ti chiedevo consiglio su dove mettere quelle istruzioni sul MinGW che mi avevi segnalato?\n\nEMG','',0,'gA==','1pb9reul',1,0,'',6,0,0),(1041,264,6,45,0,'201.252.223.216',1130367688,1,0,1,1,1,0,'','','Marcelo,\n    <!-- e --><a href=\"mailto:hceccarelli@cesotech.com.ar\">hceccarelli@cesotech.com.ar</a><!-- e -->\n    <!-- e --><a href=\"mailto:checanet@gmail.com\">checanet@gmail.com</a><!-- e --> \n\nEs mas el correo <!-- e --><a href=\"mailto:hceccarelli@cesotech.com.ar\">hceccarelli@cesotech.com.ar</a><!-- e --> lo uso siempre, no tiene problemas, salvo que tengas algun problema de DNS, que te hace rebota ? Lo estoy usando y bajo mails de todos correctamente <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nBueno prueba enviarme a la casilla de gmail que te puse.\nRECUERDA NO ENVIAR .ZIP al correo de gmail que gmail los filtra (pensando que es warez  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> ) Recuerda, si quieres mandar un archivo comprimido zipeado con ejemplos y documentacion, cambiarle la extension y avisa.\n\nSalu2\nHernan  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3vzi9roi',1,0,'',45,0,0),(1042,282,20,115,0,'85.41.183.42',1130368783,1,0,1,1,1,1,'','Re: Benvenuti nel nuovo forum in lingua italiana!','Si, anzi scusami se non ti ho risposto prima.\n\nNon ti ho risposto perchè stavo facendo qualche prova con la configurazione e la compilazione con MinGW con i parametri postati da Lorenzo, ma ho avuto qualche problema.\nLa compilazione la fa, ma non mi installa i programmi compilati.\nDevo fare qualche prova per vedere qual\'è la sequenza corretta e in cosa sbaglio.\nSpero di riuscire entro la fine della settimana, il lavoro in questi giorni mi impegna più del previsto, così ti do la sequenza completa.\n\nPensavo che la potresti pubblicare sotto:\n[url:174ow6zb]http&#58;//www&#46;xharbour&#46;org/index&#46;asp?page=download/windows/required_win[/url:174ow6zb]\nnella sezione di MinGW\n\ned inoltre lo vorrei aggiungere nel file howtomak.txt nei doc nel CVS\n\nSpero di riuscire a completare i test (mi piacerebbe abbandonare BCC ed avere la compatibilità di ambiente fra Windows e Linux) questo fine settimana.\n\nTi faccio sapere\n\nCiao\n\nPS: Hai modo, tempo e voglia di farti un giro con GD che ho messo in contrib? mi piacerebbe avere un parere, ma pare che per il momento non se lo sia filato nessuno   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'EA==','174ow6zb',1,0,'',115,0,0),(1043,273,6,199,0,'168.243.152.157',1130369081,1,0,1,1,1,1,'','Re: Antonio','[quote=&quot;FerCastro&quot;:fha433mr]Lo intenté con el driver nativo de Harbour, de junio de este año. No se si haya puesto los includes y request corresponidientes, lo voy a probar de nuevo y te estaré avisando. pero de entrada, si lo hago normalmente como lo hago siempre con los demás DBF\'s te comento que marca error.\n\nVoy a ver si te puedo enviar un ejemplo pequeño para que lo veas.\n\nSaludos y gracias por el tiempo\n\nFernando Castro\n<!-- m --><a class=\"postlink\" href=\"http://gfernando.blogspot.com\">http://gfernando.blogspot.com</a><!-- m -->[/quote:fha433mr]\n\nHi','',0,'gA==','fha433mr',1,0,'',199,0,0),(1044,292,3,230,0,'64.12.116.66',1130369635,1,0,1,0,1,0,'','Missing Files/Fivegen (FWH)','I have try to compile and run the sample program (Fivegen)\nbut the system (Dir) is missing all its index files, and memo files.\nIt only has the *.dbf files.  The system is also trying to load and\nuse the *.dbt memo file format, and i found in a older version\nthe Memo file format of *.fpt for memo files.\n\nThe System is also missing files in the bitmap (Dir) it is empty.\n\nIt is also missing the (LinkH.bat) file called from inside the\nmake file (Fivegenh.rmk).','',0,'gA==','1sg6024q',1,0,'',230,0,0),(1045,278,1,74,0,'201.255.24.66',1130373313,1,0,1,1,1,1,'','','Kronos:\n\n            Use the valid clause of the get (redefine get .... VALID Valfecha(cFecha), and in valfecha() you evaluate the date.)\n\nRegards,','',0,'gA==','33w0lo7x',1,0,'',74,0,0),(1046,285,2,74,0,'201.255.24.66',1130373661,1,0,1,1,1,1,'','','Leonor:\n\n            La condicion when de tus gets se evaluan todas juntas al activar el dialogo que los contiene, por ejemplo si vos tenes en variables locales las condiciones asociadas a cada get al activarse el dialogo los que no cumplan la condicion when estaran deshabilitados. Una vez que el dialogo esta activado si cambia el valor de la condicion when de algun get le tenes que hacer un :refresh().\n\nSaludos,','',0,'gA==','16n8efis',1,0,'',74,0,0),(1047,292,3,74,0,'201.255.24.66',1130374170,1,0,1,1,1,1,'','','J-Bohanan:\n\n                 What version of fwh are you talking about ?.\n\nRegards,','',0,'gA==','i9qzee4h',1,0,'',74,0,0),(1048,291,6,72,0,'201.135.231.144',1130375160,1,0,1,1,1,0,'','','En mi caso uso de Help&amp;Manual <!-- m --><a class=\"postlink\" href=\"http://helpandmanual.com\">http://helpandmanual.com</a><!-- m --> desconozco si es gratuito o no, vengo usandolo desde hace más de un año y no he tenido mayor problema.\n\nEn <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">http://www.despachoarteaga.com.mx</a><!-- m --> encontrarás agunas aplicaciones con su uso.\n\nSaludos.','',0,'gA==','2vk5ezob',1,0,'',72,0,0),(1049,287,6,74,0,'201.255.24.66',1130375294,1,0,1,1,1,1,'','','Fernando:\n\n               Que tipo de informacion contiene el array, valores simples o son arrays anidados ?.\n\nSaludos,','',0,'gA==','3e5tfp17',1,0,'',74,0,0),(1050,279,6,72,0,'201.135.231.144',1130375954,1,0,1,1,1,0,'','','Deseo hacer algunas pruebas con esta clase pero no la encuentro, podrás indicarme de que lugar obtenerla o enviarla a mi correo?\n\n<!-- e --><a href=\"mailto:servicios@despachoarteaga.com.mx\">servicios@despachoarteaga.com.mx</a><!-- e -->\n\nGracias de antemano.','',0,'gA==','1kc6lfbu',1,0,'',72,0,0),(1051,287,6,215,0,'201.154.224.143',1130382420,1,0,1,1,1,0,'','','Contiene valores simples.\n\nGracias\nFernando Leal','',0,'gA==','37wtqxn5',1,0,'',215,0,0),(1052,291,6,9,0,'62.174.202.39',1130386484,1,0,1,1,1,0,'','','Utilizo el programa oficial de Microsoft (Html Help WorkShop) que es gratuito, con estupendo resultados. Ademas de compilar el programa de ayuda, trae una utilidad para capturar pantallas que tambien es muy útil.\n\nUn saludo','',0,'gA==','11vz7zo4',1,0,'',9,0,0),(1053,290,4,2,0,'83.39.227.26',1130386717,1,0,1,1,1,1,'','','Richard,\n\nWe have not tested it yet, but I got advise from a Pocket PC user who has been using this one for two years with success:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.extech.com/printer/index.html\">http://www.extech.com/printer/index.html</a><!-- m -->','',0,'gA==','39nufhh4',1,0,'',2,0,0),(1054,283,6,177,0,'194.30.62.6',1130388179,1,0,1,1,1,0,'','','Fernando,\n\nahora queda perfecto.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos','',0,'gA==','1zcpxsfy',1,0,'',177,0,0),(1055,280,3,31,0,'195.182.84.105',1130389203,1,0,1,1,1,1,'','','[quote=&quot;Frank Demont&quot;:39mn9ziv]Why not using hash arrays ?\nThey are very usefull for building dialog\'s , also afterwards when they must be referenced in another get\n\nLOCAL oGets := Hash() \nLOCAL aPct := Hash()\nfor nGt := 1 to len( aFlds ) \ncFld := aFlds[ nGt ] \n@ nRw, nCol GET oGets[ cFld ] VAR aGets[ nGt ] PICTURE aPct[ cFld ] PIXEL SIZE nSz, nFh VALID n_pas( cAlias, cFld ) \nnext  [/quote:39mn9ziv]\n\n  Frank , very good sample ! I\'m using hash , but in that way - no so much brains <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . Many thanks to you !\n\n   With best regards !','',0,'gA==','39mn9ziv',1,0,'',31,0,0),(1056,293,1,142,0,'60.49.127.58',1130389538,1,0,1,1,1,0,'','To Backup database into CD or Tape','Hi all,\n\nAnyone can let me know on how I can write a finvewin-CA clipper programm to let my user do a backup for their database into CD or Tape ?\nAny special function kan use in fivewin ?\n\nCurrently, I only manage to create a backup with zipfile and copy into destination selected by user. \n\nI\'ve NO IDEA how to backup direct to CD or TAPE.\n\nAnyone, please help.\n\n--\nMasita','',0,'gA==','ckp29ccz',1,0,'',142,0,0),(1057,283,6,123,0,'83.56.201.218',1130392823,1,0,1,1,1,0,'','','Baxajaun,\n\n¿Te has planteado en utilizar otro editor de recursos que no sea el RWS?  Te lo comento por que éste es limitadito en cuanto a las opciones y estilos de controles.  Échale un vistazo al PellesC (es free) y al VisualC que es el que estudio yo.\n\nYa me contarás....\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'gA==','32qitqpq',1,0,'',123,0,0),(1058,283,6,177,0,'194.30.62.6',1130392954,1,0,1,1,1,0,'','','José Luis,\n\ntengo el PellesC, pero no me encuentro cómodo con él. Hay algún documento para tomarlo como referencia ?\n\nSaludos,\n\nFélix','',0,'gA==','2l9qcmon',1,0,'',177,0,0),(1059,221,4,68,0,'203.13.90.2',1130396815,1,0,1,1,1,1,'','','Antonio\nYes RegSetValue seems to write extra characters depending on length - eg ABCDEFGHIJKLMNOP becomes ABCDEFGHIJKLMNOP???? plus Chr(03)\nABCDEFGHIJKLMNOPQ becomes ABCDEFGHIJKLPMNOPQ??? plus Chr(03)\nyet strings of 10,11 or 20 chs are handled OK \nABCDEFGHIJKL becomes ABCDEFGHIJKL???????? plus Chr(03) which displays as a non-display character. I was planning on using a 16 digit user registration key  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nhth\nregards, saludos','',0,'gA==','1dedgera',1,0,'',68,0,0),(1060,282,20,6,0,'87.1.198.228',1130396841,1,0,1,1,1,1,'','Re: Benvenuti nel nuovo forum in lingua italiana!','[quote=&quot;fsgiudice&quot;:1obyp3di]Si, anzi scusami se non ti ho risposto prima.[/quote:1obyp3di]\n\nE di che?\n\n[quote=&quot;fsgiudice&quot;:1obyp3di]Non ti ho risposto perchè stavo facendo qualche prova con la configurazione e la compilazione con MinGW con i parametri postati da Lorenzo, ma ho avuto qualche problema.\nLa compilazione la fa, ma non mi installa i programmi compilati.\nDevo fare qualche prova per vedere qual\'è la sequenza corretta e in cosa sbaglio.\nSpero di riuscire entro la fine della settimana, il lavoro in questi giorni mi impegna più del previsto, così ti do la sequenza completa.[/quote:1obyp3di]\n\nHai fatto benissimo.\n\n[quote=&quot;fsgiudice&quot;:1obyp3di]Pensavo che la potresti pubblicare sotto:\n[url:1obyp3di]http&#58;//www&#46;xharbour&#46;org/index&#46;asp?page=download/windows/required_win[/url:1obyp3di]\nnella sezione di MinGW[/quote:1obyp3di]\n\nGiusto! Grazie. Allora aspetto la versione definitiva.\n\n[quote=&quot;fsgiudice&quot;:1obyp3di]PS: Hai modo, tempo e voglia di farti un giro con GD che ho messo in contrib? mi piacerebbe avere un parere, ma pare che per il momento non se lo sia filato nessuno   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:1obyp3di]\n\nLo farò. Se fosse una valida sostituta della FreeImage non sarebbe male.\n\nEMG','',0,'kA==','1obyp3di',1,0,'',6,0,0),(1061,280,3,31,0,'195.182.84.105',1130398893,1,0,1,1,1,1,'','','[quote=&quot;Rimantas&quot;:3r0l928s]  Frank , very good sample ! I\'m using hash , but in that way - no so much brains <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . Many thanks to you ![/quote:3r0l928s]\n\n   This isn\'t working Frank ... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> . I tried that . Simply add MsgInfo() to valid clause \n    @ CRow( 0 ), nCl GET oGets[ cFld ] VAR aGets[ cFld ] PICTURE aPct[ cFld ] PIXEL VALID ( MsgInfo( aGets[ cFld ] + \" ; \" + cFld ), ;\n      n_pas( ::aAlias[ ::nFld ], cFld,, aGets[ cFld ], .t. ) )\n\n  I did hash\'es all clauses : oGets , aPct, aGets . But validation will receive only the last cFld . Have you ideas , how to nake to work this ?\n\n   With best regards !','',0,'gA==','3r0l928s',1,0,'',31,0,0),(1062,280,3,67,0,'83.134.58.178',1130401185,1,0,1,1,1,0,'','','You can try :\n\n\nFOR EACH xKey in hHash:Keys\n    ? xKey, hHash[ xKey ]\nNEXT\n\nor\n\nFOR EACH xVal IN hHash:Values\n    ? xVal\nNEXT','',0,'','2qthph0a',1,0,'',67,0,0),(1063,268,6,88,0,'82.150.2.19',1130402153,1,0,1,1,1,1,'','','Gracias a los dos,\n\nhe estado liado y no he podido probarlo, ya os comunicare si me funciona <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\n\nNos leemos!!','',0,'','x0pi9dwb',1,0,'',88,0,0),(1064,269,2,88,0,'82.150.2.19',1130402409,1,0,1,1,1,1,'','','Muchas gracias Daniel,\n\nlo probare y te dire que tal va.\n\n\n\nNos leemos!!','',0,'','1c9drrfi',1,0,'',88,0,0),(1066,280,3,31,0,'195.182.84.105',1130403894,1,0,1,1,1,1,'','','[quote=&quot;Frank Demont&quot;:2ne9c45j]You can try :\n\nFOR EACH xKey in hHash:Keys\n    ? xKey, hHash[ xKey ]\nNEXT\n\nor\n\nFOR EACH xVal IN hHash:Values\n    ? xVal\nNEXT[/quote:2ne9c45j]\n\n   Tried , the same result ... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> . The first get receive the last get\'s parameter .','',0,'gA==','2ne9c45j',1,0,'',31,0,0),(1067,221,4,2,0,'83.39.227.26',1130405384,1,0,1,1,1,1,'','','Jon,\n\nWe are going to do some tests here. Thanks!','',0,'gA==','2kvvgd43',1,0,'',2,0,0),(1068,293,1,2,0,'83.39.227.26',1130406045,1,0,1,1,1,1,'','','You may review <!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com/\">http://www.viaopen.com/</a><!-- m -->','',0,'gA==','729i7zwu',1,0,'',2,0,0),(1069,237,2,223,0,'200.204.170.177',1130410047,1,0,1,1,1,1,'','Re: Integracion de rutinas en C','[quote=&quot;Laurel&quot;:1wdyixac]Hola!\n\nAlguien podrìa indicarme como puedo integrar rutinas en C a mi aplicaciòn.  Tengo clipper 5.3 + five win +blinker\n\nSaludos[/quote:1wdyixac]\nOlá,\nPara isso vc teria que ter o borland 5.0 montar como disse o AL e compilar desse jeito :\n\nRem *---- Programas C++ ----*\n\\Bc5\\Bin\\Bcc -3 -c -ml -O2 -Tg -I\\Bc5\\Include\\Win16 Meus_C\\DrawVBox.C\n\\Bc5\\Bin\\Bcc -3 -c -ml -O2 -Tg -I\\Bc5\\Include\\Win16 Meus_C\\MsgTools.C \n...\n\nAí, basta incluir o obj no seu bat.\nEspero que entenda   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1wdyixac',1,0,'',223,0,0),(1070,295,6,17,0,'81.41.210.226',1130414566,1,0,1,1,1,1,'','F1 Ayuda en FWH2.6','Antonio !\n\nHe detectado que al pulsar F1 para mostrar la ayuda me en la versión FWH2.6 me sale 2 veces la ventana de ayuda , cuando con la versión 2.4 el mismo .exe sólo sale 1 vez, como creo tiene que ser.\nLa pueba: Compila TUTOR02.PRG con FW2.6 y pulsa F1 veras 2 pantallas de Ayuda no disponible y con FW2.4 sólo una.\nAlguien más puede confirmar esto ?\n\nUn saludo','',0,'gA==','28x8ora2',1,0,'',17,0,0),(1071,287,6,74,0,'201.255.132.106',1130416997,1,0,1,1,1,1,'','','Fernando:\n\n               Si contiene valores simples no necesitas pasarle el criterio de ordenacion como parametro por cada uno de los elementos. Con poner:\n\n        aMatriz := { 3, 5, 1, 2, 4 }\n        ASORT(aMatriz)\n        //Resultado: { 1, 2, 3, 4, 5 }\n\n        ASORT(aMatriz,,, { |x, y| x &gt; y })\n        //Resultado: { 5, 4, 3, 2, 1 }\n\n               Es suficiente, fijate en las NG.\n\nSaludos,','',0,'gA==','3dpzyvsx',1,0,'',74,0,0),(1072,183,2,74,0,'201.255.132.106',1130419893,1,0,1,1,1,1,'','','Maritza:\n\n             Te mande a tu correo un archivo word con Consideraciones para el bloqueo de Archivos de bases de datos en RED. escritas por Adolfo Lagos Jimenez y un archivo de texto conteniendo ejemplos explicados escritos por Luis Vasquez que te seran muy utiles.\n\nSaludos','',0,'gA==','10cuub9q',1,0,'',74,0,0),(1073,296,1,231,0,'83.131.6.165',1130420974,1,0,1,1,1,0,'','Problem with LastKey()','Hi all!\nCan anyone tell me why LastKey() function in VALID clause work properly when my GET is placed in WINDOW, and doesn\'t work when GET is in DIALOG?\nGoran','',0,'gA==','2agca2eb',1,0,'',231,0,0),(1074,286,2,146,0,'200.59.40.151',1130421639,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1s2bojf6]Leonor,\n\nNo puedes usar Inkey(). Si nos explicas lo que quieres hacer podemos darte una idea de cómo hacerlo.[/quote:1s2bojf6]\n\n\nHasta ahora se esta utilizando cuando hay un proceso largo como listar una cuenta corriente y se quiere cancelar la operacion en medio del proceso con la tecla escape. \nCon que función puedo realizar esa operación. Gracias. Leonor','',0,'gA==','1s2bojf6',1,0,'',146,0,0),(1075,285,2,146,0,'200.59.40.151',1130422930,1,0,1,1,1,0,'','','Esta bien lo que me explicas, y así esta trabajando, pero lo que me hace es lo siguiente: ejecuta los when de cada get en el activate del dialog, despues por cada get que pierde foco vuelve a ejecutar los when de cada get, en el dialog veo como se refrescan todos los get por cada uno que pierde foco y me puse carteles y veo como pasa por todos los get en lugar de hacer el valid de ese y el when del proximo a tomar foco unicamente, no hay ningun refresh puesto en ningun lugar, evidentemente estoy armando mal el vector que tiene los when guardados. Gracias. Leonor.','',0,'gA==','ym1hvcbi',1,0,'',146,0,0),(1076,295,6,45,0,'201.252.223.216',1130425182,1,0,1,1,1,0,'','Re: F1 Ayuda en FWH2.6','Confirmado,\n    Siempre con las ayudas paso esto. Estoy viendo de donde puede venir el problema, pero es verdad, se llaman mas de 1 vez. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nHernan','',0,'gA==','3fsmxkjc',1,0,'',45,0,0),(1077,282,20,76,0,'80.17.137.201',1130426741,1,0,1,1,1,1,'','Re: Benvenuti nel nuovo forum in lingua italiana!','[quote=&quot;EnricoMaria&quot;:3my9ubpt]Questo forum è dedicato al supporto tecnico relativo a tutti i prodotti della Fivetech Software.\n\nSi prega di iscriversi utilizzando l\'apposita opzione e, possibilmente, anche di allegare una propria foto in modo tale da conoscerci anche di viso.\n\nBuon lavoro a tutti.\n\nEMG[/quote:3my9ubpt]\n\nCiao a tutti,\nfinalmente possiamo ricontattarci! Auguri a tutti di buon lavoro.','',0,'gA==','3my9ubpt',1,0,'',76,0,0),(1078,287,6,215,0,'201.144.63.177',1130428277,1,0,1,1,1,0,'','','Daniel,\nPerdona... es así como se contruye el array.\n\nwhile HISTORIA-&gt;( !eof() )\n     AADD( aResumen,{ HISTORIA-&gt;CLAVE_VERI, HISTORIA-&gt;CPRODUCTO, HISTORIA-&gt;ID_VERIF, HISTORIA-&gt;ID_ZONA, 1 } )\n HISTORIA-&gt;( DbSkip() )\nenddo\n\nComo ves, recorro la HISTORIA.DBF y voy agregando al array 4 campos y el al quinto solo le pongo el número 1\n\nPues, necesito ordenar por CLAVE_VERI despues por CPRODUCTO hasta aquí no tengo problemas, pero no he podido subordernar por ID_VERIF Y ID_ZONA\n\nSaludos\nFernando','',0,'gA==','26mann07',1,0,'',215,0,0),(1079,286,2,106,0,'80.105.201.36',1130430203,1,0,0,1,1,0,'','','IF GetaSyncKey( VK_ESCAPE ) .AND. MsgYesNo(\"Salir?\" )\n  EXIT \nENDIF\n\nPedro Gonzalez','',0,'gA==','1ablkp2y',1,0,'',106,0,0),(1080,283,6,2,0,'80.58.2.107',1130434485,1,0,1,1,1,1,'','','[quote=&quot;Kleyber&quot;:8oyeagpl]\nGracias por tu respuesta. Estoy a esperar uan respuesta de Antonio.\n[/quote:8oyeagpl]\n\nLa DLL con los recursos está en una máquina remota ?','',0,'gA==','8oyeagpl',1,0,'',2,0,0),(1081,291,6,138,0,'201.154.236.172',1130434754,1,0,1,1,1,1,'','','Otro voto mas para Help &amp; Manual.\n\nDe una sola sentada te hace:\n\n1) Archivo PDF\n2) Documento de Word para que luego imprimas la ayuda\n3) Help de Windows ya sea en formato CHM o HLP\n4) Codigo HTML para que puedas publicar la ayuda de tu sistema por internet.','',0,'gA==','1im0a1gq',1,0,'',138,0,0),(1082,297,1,148,0,'62.135.38.136',1130438231,1,0,1,1,1,0,'','resources or commands','Which is better programming and faster using :\nExternal resources or xbase commands?\nWhich is usable ,better and faster using DLL or RC?\nThanks in advance .','',0,'gA==','1c6msrsz',1,0,'',148,0,0),(1083,298,6,52,0,'201.235.155.110',1130439639,1,0,0,1,1,0,'','Problemas con TPrinter() y la HP Officejet 4255','Estimados:\n\nAlguien tuvo problemas al imprimir en este tipo de impresoras.\n\nEsta impresora imprime bien cuando usas report (columnar), pero no imprime nada (dando un error de Printer Not Ready) usando TPrinter()\n\nAlguna idea?.\nChaaaaa gracias a todos.\n\nAntonio (estoy preparando mi foto)','',0,'gA==','1u5922sc',1,0,'',52,0,0),(1084,288,3,213,0,'24.162.36.40',1130442392,1,0,1,1,1,0,'','','Never mind, I figured it out.\n\nThanks,\nRandal Ferguson','',0,'gA==','4ds0lgiw',1,0,'',213,0,0),(1085,297,1,6,0,'87.3.212.90',1130442759,1,0,1,1,1,1,'','Re: resources or commands','They are different techniques for different situations. There is nothing like \"one is better than the other\". You have to use the one that better fits your needs.\n\nEMG','',0,'gA==','1j09yg55',1,0,'',6,0,0),(1086,279,6,49,0,'82.61.128.134',1130443081,1,0,1,1,1,0,'','','can you send me also ( <!-- e --><a href=\"mailto:silvio_falconi@tin.it\">silvio_falconi@tin.it</a><!-- e -->)\n\np.s. there some possibility to execute OCR function ?\n\nBest Regards','',0,'gA==','20476j4r',1,0,'',49,0,0),(1087,295,6,49,0,'82.61.128.134',1130443195,1,0,1,1,1,0,'','','Hernan,\nwhy the footer of wbrowse on 32 bit not run ok  ?\n\nRegards','',0,'gA==','3i7f32qs',1,0,'',49,0,0),(1088,299,6,49,0,'82.61.128.134',1130443281,1,0,1,1,1,0,'','Wbrowse footer','For Hernan..\nOn 32 bit footers\' wbrowse not run ...\n\nWhy ?\n\nRegards\nSilvio','',0,'gA==','3gjggmcl',1,0,'',49,0,0),(1089,282,20,8,0,'213.45.250.182',1130448811,1,0,1,1,1,0,'','','Saluti a tutti anche da parte mia, sinceramente il forum in lingua italiana mi mancava tanto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1i3f1wa4',1,0,'',8,0,0),(1090,300,3,230,0,'152.163.100.66',1130450051,1,0,1,1,1,0,'','Install for Fivewin','What ever happen to the Install Program/Class?  Is it still listed \nsomewhere that I can buy it and download it and use it in my\nprograms?\n\nI think that OZS Software was the one that was saleing it.\nIt is not on there site any more.','',0,'gA==','372fh91f',1,0,'',230,0,0),(1091,285,2,74,0,'201.255.128.40',1130460933,1,0,1,1,1,1,'','','Leonor:\n\n            Mostranos el codigo involucrado.\n\nSaludos,','',0,'gA==','cv3tqpl8',1,0,'',74,0,0),(1092,288,3,15,0,'203.73.90.195',1130463302,1,0,1,1,1,0,'','','Hello\n\nI use xHarbour 0.99.4+FWH26 SEPT+C5 Calendar no problem.\n\nRegards,\n\nRichard\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'gA==','36tt37va',1,0,'',15,0,0),(1093,287,6,74,0,'201.255.128.40',1130463331,1,0,1,1,1,1,'','','Fernando:\n\naResumen:=ASORT(aResumen,,,{ |x,y| x[1]+x[2]+x[3]+x[4] &lt; y[1]+y[2]+y[3]+y[4] } )\n\nSaludos,','',0,'','27h48lxg',1,0,'',74,0,0),(1094,296,1,74,0,'201.255.128.40',1130463875,1,0,1,1,1,1,'','','Goran:\n\n           Don\'t use Lastkey(), use GetAsyncKey(), for example:\n\n	 IF GetAsyncKey(VK_UP)\n		 RETURN .T.\n	 ENDIF\n\nRegards','',0,'','1vx0uzzw',1,0,'',74,0,0),(1095,300,3,15,0,'203.73.90.195',1130463943,1,0,1,1,1,0,'','','Hello\n\nyou mean OZS\'s Install code for Fivewin?\nI think it\'s 16bit. I have it in my home.\nBut you can use Inno Setup to make install solution of your ap.\nVery nice.\n\nRegards,\n\nRichard\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'','2twrgoty',1,0,'',15,0,0),(1096,223,6,15,0,'203.73.90.195',1130464424,1,0,1,1,1,0,'','','[quote=&quot;Hernan Diego Ceccarelli&quot;:3b7ytl5z][quote=&quot;Antonio Linares&quot;:3b7ytl5z][quote=&quot;Hernan Diego Ceccarelli&quot;:3b7ytl5z]Yo he implementado Ballons en los ToolTip, despues cuando llegue a casa te los envio por mail <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:3b7ytl5z]\n\nEn los tooltips de la toolbar ?  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:3b7ytl5z]\n\nEhhh amigo, ya desconfias de mi  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> acaso\n[img:3b7ytl5z]http&#58;//img480&#46;imageshack&#46;us/img480/8505/tooltopballon7rl&#46;jpg[/img:3b7ytl5z]   <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \ny con titulito y todo  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->[/quote:3b7ytl5z]\n\nHello\n\nCould you show it how to make it( ToolTip of Balloon ) and small icon into ToolTip?\n\nRegards,\n\nRichard','',0,'iA==','3b7ytl5z',1,0,'',15,0,0),(1097,248,6,140,0,'200.84.226.129',1130465702,1,0,1,1,1,0,'','','Parece que mi necesidad no es compartida por ningún otro compañero... <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->\n\nIndagando un poco pareciera que el asunto ese de los sockets pudiera ayudar a implementar la idea.\n\nEn <!-- m --><a class=\"postlink\" href=\"http://www.jmarshall.com/easy/http\">http://www.jmarshall.com/easy/http</a><!-- m --> hay una documentación que me indica que tecnicamente mi inquietud puede ser implementada desde [x]Harbour+FWH.\n\nDe todas formas sigo en espera de algun comentario que me ayude a acortar el camino...\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela.','',0,'','23cao70b',1,0,'',140,0,0),(1098,301,22,233,0,'218.208.249.84',1130467042,1,0,1,1,1,0,'','Individual RSS','Would it be possible to have individual RSS feed for each of the available forum? The current feed, if I\'m not mistaken, simply generate feeds as long as anyone post. I only want to monitor the English forums.\n\nAn example of site that has this kind of implementation is [url=http&#58;//enforum&#46;farmanager&#46;com/:3ay564qz]here[/url:3ay564qz]','',0,'EA==','3ay564qz',1,0,'',233,0,0),(1099,220,3,233,0,'218.208.249.84',1130468305,1,0,1,1,1,0,'','Re: Disabled bitmaps not appearing in POPUP Menus','[quote=&quot;RAMESHBABU&quot;:1jg45pxi]\n\nIs there any way to attach a file to the message other than providing a downloadable link ( when members do not have their urls to provide a link)\n[/quote:1jg45pxi]\n\nFor images, you can dump them at someplace like [url=http&#58;//www&#46;photobucket&#46;com:1jg45pxi]photobucket[/url:1jg45pxi] and later refer them in your post by using the [Img] BBCode. For other type of files I guess this forum need to have a mod that would allow us to do that','',0,'kA==','1jg45pxi',1,0,'',233,0,0),(1100,299,6,45,0,'201.252.223.216',1130471819,1,0,1,1,1,0,'','Re: Wbrowse footer','[quote=&quot;Silvio&quot;:31l3zx1t]For Hernan..\nOn 32 bit footers\' wbrowse not run ...\n\nWhy ?\n\nRegards\nSilvio[/quote:31l3zx1t]\n\nThe Next Version 18 (soon ... i\'m working in beta version) TW++ support full headers/footers in native mode.\n\n[img:31l3zx1t]http&#58;//img480&#46;imageshack&#46;us/img480/1650/tw180wk&#46;jpg[/img:31l3zx1t]\n\nRegards,\nHernan','',0,'iA==','31l3zx1t',1,0,'',45,0,0),(1101,299,6,73,0,'200.66.34.1',1130472794,1,0,1,1,1,0,'','Re: Wbrowse footer','[quote=&quot;Silvio&quot;:2xvgs90y]For Hernan..\nOn 32 bit footers\' wbrowse not run ...\n\nWhy ?\n\nRegards\nSilvio[/quote:2xvgs90y]\n\nperdon, silvio, pero si quieres el aspecto de headers 32 bits nativos, todavia no, pero de la otra forma yo los uso y si me funcionan...\nsaludos\nPaco\n\n\npd. no supe como insertar la imagen, si alguien me puede explicar <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gA==','2xvgs90y',1,0,'',73,0,0),(1102,220,3,2,0,'80.58.2.107',1130477538,1,0,1,1,1,1,'','','We are going to look for that phpBB mod. In the meantime you may use <!-- w --><a class=\"postlink\" href=\"http://www.putfile.com\">www.putfile.com</a><!-- w --> and <!-- w --><a class=\"postlink\" href=\"http://www.sendmefile.com\">www.sendmefile.com</a><!-- w -->','',0,'gA==','1lukhchm',1,0,'',2,0,0),(1103,299,6,45,0,'200.82.51.191',1130477555,1,0,1,1,1,0,'','Re: Wbrowse footer','[quote=&quot;Francisco Horta&quot;:3u9gqyw8]\npd. no supe como insertar la imagen, si alguien me puede explicar <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->[/quote:3u9gqyw8]\n\nPaco, por ahora solo puede incorporar una imagen entoda la cabecera, NO combinarla con texto.\nEn vez de escribir la cadena, simplemente escribes el HANDLE NUMERICO del bitmap.\n\nSalu2','',0,'gA==','3u9gqyw8',1,0,'',45,0,0),(1104,288,3,2,0,'80.58.2.107',1130477765,1,0,1,1,1,1,'','','[quote=&quot;Randal Ferguson&quot;:2z7wals6]Never mind, I figured it out.[/quote:2z7wals6]\n\nWould you mind to share it with us ?\n\nI would suggest to change all hb_parni() to hb_parnl() calls.','',0,'gA==','2z7wals6',1,0,'',2,0,0),(1105,285,2,2,0,'80.58.2.107',1130477966,1,0,1,1,1,1,'','','Leonor,\n\nTodos los WHEN de los GETs tienen que evaluarse, porque en función del cambio que se haya hecho, podría afectarles.','',0,'gA==','1zu36dc8',1,0,'',2,0,0),(1106,248,6,2,0,'80.58.2.107',1130478195,1,0,1,1,1,1,'','','Giancarlo,\n\nExiste software que te permite grabar una serie de acciones con el ratón y el teclado. Es decir, tu completarias el formulario, y el programa registraría todo lo que haces, para poder repetirlo.\n\nSi no recuerdo mal una de estas utilidades es de Microsoft y se llama \"stress\". Pero seguro que ya existen muchas mas. Busca en google por macro recorder ó similar.','',0,'gA==','6qd2pudw',1,0,'',2,0,0),(1107,295,6,2,0,'80.58.2.107',1130479663,1,0,1,1,1,1,'','','Jesús, Hernan,\n\nArreglado. El problema era que se estaba procesando por una parte el mensaje WM_HELP que le llega al SAY (en samples\\tutor02.prg) y por otra parte se comprobaba la pulsación de VK_F1 en window.prg.\n\nLo he arreglado anulando el proceso de WM_HELP, ya que así permitimos usar VK_F1 a quien quiera usarlo para otra tarea y no para ayuda.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEn un siguiente build publicaremos la solución ya que se realiza en código interno a bajo nivel. Basicamente es anular el proceso de WM_HELP desde el método HandleEvent() de la clase TControl, y dejar solo el código que comprueba VK_F1 en la clase TWindow.','',0,'gA==','3sqohbfe',1,0,'',2,0,0),(1108,299,6,2,0,'80.58.2.107',1130480218,1,0,1,1,1,1,'','Re: Wbrowse footer','[quote=&quot;Francisco Horta&quot;:z0afjxgx]pd. no supe como insertar la imagen, si alguien me puede explicar <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->[/quote:z0afjxgx]\n\nTienes que publicar la imagen en un lugar como <!-- w --><a class=\"postlink\" href=\"http://www.putfile.com\">www.putfile.com</a><!-- w --> ó <!-- m --><a class=\"postlink\" href=\"http://reg.imageshack.us\">http://reg.imageshack.us</a><!-- m --> y poner aqui el link que esas páginas te dan.','',0,'gA==','z0afjxgx',1,0,'',2,0,0),(1109,223,6,2,0,'80.58.2.107',1130480405,1,0,1,1,1,1,'','','Richard,\n\nSeveral changes are required. Next FWH build will include it  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2pjwkb0m',1,0,'',2,0,0),(1110,301,22,2,0,'80.58.2.107',1130480497,1,0,1,1,1,1,'','','Hua,\n\nWe are going to look for a phpBB mod like that. Thanks','',0,'gA==','39sc6c4c',1,0,'',2,0,0),(1111,95,18,2,0,'80.58.2.107',1130480970,1,0,1,1,1,1,'','','Gabri,\n\nAcabo de probar este ejemplo, y funciona correctamente. Pulsa el botón, selecciona negrita y verás como el botón se ve en negrita y muestra .t.. Y si luego le quitas negrita, sucede lo contrario. (Que version y build estás usando?):\n\n[code:1wl02kzj]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\nfunction Main&#40;&#41;\n\n   local oBtn\n\n   DEFINE WINDOW oWnd TITLE &quot;Testing ChooseFont&quot;\n\n   @ 2, 2 BUTTON oBtn PROMPT &quot;&amp;Choose&quot; OF oWnd ;\n      ACTION &#40; oBtn&#58;GetFont&#40;&#41;,;\n               oBtn&#58;SelFont&#40;&#41;, MsgInfo&#40; oBtn&#58;oFont&#58;lBold &#41; &#41; ;  // nSize&#40;&#41;\n      SIZE 80, 25\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:1wl02kzj]','',0,'AIA=','1wl02kzj',1,0,'',2,0,0),(1112,95,18,2,0,'80.58.2.107',1130481906,1,0,1,1,1,1,'','Re: Choosefont  no funciona bien  ?','[quote=&quot;Gabri&quot;:30wgp0ax]aFont:=Choosefont() &gt; AFont[8]  siempre me devuelve .f.[/quote:30wgp0ax]\n\nEl valor negrita no se almacena en la posición 8. Se toma a partir del valor 5: \n\n[code:30wgp0ax]   \n&#58;&#58;lBold = If&#40; lFromUser, ! &#40; &#58;&#58;nWeight == FW_NORMAL &#41;, lBold &#41;\n[/code:30wgp0ax]','',0,'gIA=','30wgp0ax',1,0,'',2,0,0),(1113,302,19,2,0,'80.58.2.107',1130483619,1,0,1,1,1,1,'','Using these forums RSS support / Usando RSS con estos foros','This is just a sample of how to use these forums RSS support:\n\n1. Download this screensaver from Microsoft: <!-- m --><a class=\"postlink\" href=\"http://screensaver.msn.com/\">http://screensaver.msn.com/</a><!-- m -->\n\n2. Add a RSS feed to it: <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/rss.php\">http://www.fivetechsoft.com/forums/rss.php</a><!-- m -->\n\nThis is how it looks:\n\n[url=http&#58;//imageshack&#46;us:9zhk9nn2][img:9zhk9nn2]http&#58;//img452&#46;imageshack&#46;us/img452/5549/screen5ph&#46;jpg[/img:9zhk9nn2][/url:9zhk9nn2]','',0,'GA==','9zhk9nn2',1,0,'',2,0,0),(1114,279,6,24,0,'80.58.33.109',1130487795,1,0,1,1,1,1,'','Re:','Angel, en tu codigo no defines ninguna area:\n\noScan:RegionSet( nLeft,nTop, nRigth, nBottom ), establece el area a escanear.\n\nPuedes preguntar por el area oScan:RegionGet( @L,@T,@R,@B ), y comparar\nlos valores ANTES y depues del RegionSet.\n\nA mi me funciona, raro es que no te funcione <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n\n      Con estos metodos que acontinuacion veremos , podemos seleccionar\n      una porcion de la region a adquirir.\n\n      RegionSet( nLeft,nTop, nRigth, nBottom )\n      Selecciona una region para adquirir.\n\n      METHOD RegionReset()\n      Restaura a la region que habia por defecto, toda la superficie.\n\n      RegionGet( L,T,R,B )\n      Devuelve en las variables la porciones de la region actualmente definidas.\n      El uso es muy simple:\n\n      Local L,T,R,B  // Left,Top,Rigth y Bottom, logicamente <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n      oScan := oScan:New()\n      oScan:RegionGet(@L,@T,@R,@B), obteniendo el resultado en las misma variables\n      pasadas por referencia.\n\n      RegionGetDefault( L,T,R,B )\n      Devuelve los valores de la region por defecto. El mismo ejemplo del method\n      RegionGet es aplicable a este.','',0,'GA==','2qac1tgj',1,0,'',24,0,0),(1115,303,20,76,0,'80.17.137.201',1130488073,1,0,1,1,1,1,'','uso di zip-unzip','avete a portata di mano un esempietto di compattazione-scompattazione zip? qual\'è la lib giusta da usare?','',0,'GA==','1vt7xej3',1,0,'',76,0,0),(1116,279,6,23,0,'80.58.44.235',1130488719,1,0,1,1,1,1,'','','Gracias, Rafa. Lo pruebo y te cuento.\nAprovecho desde aqui para agradecerte las fabulosas contribuciones que haces con clases como esta.\n\nUn saludo.','',0,'GA==','30mkzi32',1,0,'',23,0,0),(1117,296,1,231,0,'83.131.46.185',1130490732,1,0,1,1,1,0,'','','Thanks!','',0,'GA==','ihuke00u',1,0,'',231,0,0),(1118,304,6,17,0,'81.41.210.148',1130491207,1,0,1,1,1,1,'','lRmDir en FW2.6 no va','En FWH2.4 iba perfectamente y ahora con FWH2.6 ha dejado de ir.\n\nlRmDir(\"C:\\COPIA05\\CopiaViernes_10h38m43s\\CLIPPER\\LIBRERIA\")\n\nAlguien mas puede comprobar si va o no va el eliminar directorios con nombres largos ?\n\nUn saludo','',0,'GA==','3v9mtr2k',1,0,'',17,0,0),(1119,30,3,170,0,'213.103.208.250',1130491259,1,0,1,1,1,1,'','','Antonio,\n\nThere is no way to continue under FWH 2.5 today.\nTell this to your users please. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nRegards,','',0,'GA==','2xtfxe4o',1,0,'',170,0,0),(1120,304,6,17,0,'81.41.216.142',1130491484,1,0,1,1,1,1,'','Tampoco va con nombres cortos','Tampoco va con nombres cortos \n lRmDir(\"c:\\kkcopia\")','',0,'GA==','1wlfz92m',1,0,'',17,0,0),(1121,280,3,231,0,'83.131.46.185',1130491631,1,0,1,1,1,0,'','FOR ... GET ...NEXT','I had a same problem in FW1.9.2 and I solved it by replacing aGets array with vars:\n\nfor nGt := 1 to len( aFlds ) \n  cFld := aFlds[ nGt ] \n  xVar=\"x\"+strzero(nGt,3)\n  @ nRw, nCol GET oGets[ nGt ] VAR &amp;xVar .....\nnext\n\nI hope that it works in FW for Harbour too.\n\nRegards\n\nGoran','',0,'','30xmbxeh',1,0,'',231,0,0),(1122,30,3,2,0,'80.58.2.107',1130492302,1,0,1,1,1,1,'','','Badara,\n\nFWH 2.5 users should upgrade to 2.6 version.\n\nWe try to keep backwards compatibility as much as we can, but sometimes its not possible.','',0,'','37yi4efa',1,0,'',2,0,0),(1123,272,6,24,0,'80.58.33.109',1130492324,1,0,1,1,1,1,'','re:','[quote=&quot;Rafael Clemente&quot;:1b3pbopi]Rafa:\nYo uso simplemente \n\ncDir := \"C:\\Nombre muy largo, con coma&quot;\nlMkDir(cDir)\n\ny me funciona perfectamente (FWH 2.6).  Incluso con espacios intercalados y hasta comas!\n\nSaludos\nRafael[/quote:1b3pbopi]\nGracias tocayo, pero si uno se lee la ayuda de Fivewin, puede llegar a confundir conceptos <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSi dices que funciona, si lo dejo , y una compilacion mas que me ahorro...','',0,'gA==','1b3pbopi',1,0,'',24,0,0),(1124,272,6,24,0,'80.58.33.109',1130492379,1,0,1,1,1,1,'','Re:','[quote=&quot;fgondi&quot;:3dyfdkyn]Hola,\nTe envio al privado la clase.[/quote:3dyfdkyn]\nGracias gracias gracias','',0,'gA==','3dyfdkyn',1,0,'',24,0,0),(1125,304,6,2,0,'80.58.2.107',1130492737,1,0,1,1,1,1,'','','Jesús,\n\nUsa esta función:\n\n[code:5wkq6vcn]\nDLL32 FUNCTION lRmDir&#40; cPathName AS LPSTR &#41; AS BOOL ;\n      PASCAL FROM &quot;RemoveDirectoryA&quot; LIB &quot;kernel32&#46;dll&quot;\n[/code:5wkq6vcn]','',0,'AIA=','5wkq6vcn',1,0,'',2,0,0),(1126,305,5,234,0,'218.106.179.149',1130493467,1,0,1,1,1,0,'','Fw++ Update','Hi Antonio, do you have an upgrade to the current version of FW++ to resolve the problems that I previously mentioned to you. Also, there are problems with buttons; you click a button but nothing happens. Also, I mentioned the problems with folders. I really do not want to go back to FW++; but I never got the answer to the problems I was having with FWH terminating for no reason. Do you want me to send you the code?\n\nThank You,','',0,'AIA=','3s8bt96d',1,0,'',234,0,0),(1127,279,6,49,0,'213.82.134.66',1130495023,1,0,1,1,1,0,'','','thank for the tscan class\nI Hope if Rafa Carmona let me said how we can use Tscan32 to OCR func\nI hope the guru of fivewin and xharbour help us\n\nRegards\nsilvio','',0,'AIA=','2bwgn60q',1,0,'',49,0,0),(1128,306,3,234,0,'218.106.179.149',1130495319,1,0,1,1,1,0,'','Problem with application terminating','Hello, I am having a problem with an application that continues to exit with no error message. The application is reading a folder with incoming files; opens the file; parses the information; then stores to a database. I think the problem might relate to the number of files in the folder which exceeds 1000. I did recompile using FW++ and the application worked with no problems. I am attaching the code in case it helps.\n\n// PROGRAM: cargo.prg\n//-----------------------------------------------------------------------------\n #include \"fivewin.ch\"\n\n static oMenu\n\n REQUEST DBFCDX\n REQUEST DBFFPT\n REQUEST _ADS\n\n function Main()\n\n    PUBLIC cEol         := CHR(13)+CHR(10)                      , ;\n           Pdebug       := .F.                                  , ;\n           oWnd[25]                                             , ;\n           PA[25]                                               , ;\n           cSay         := \"\"                                   , ;\n           oSay                                                 , ;\n           aSay[05]                                             , ;\n           Pext         := \".IDX\"                               , ;\n           Prdd         := \"ADS\"                                , ;\n           Pdd          := \"\\\\topocean-cdm\\ocean\\\"              , ;\n           Prca         := \"\\\\topocean-cdm\\toptrack\\\"\n\n    // Init...\n    IF Pdebug\n       Pext := \".CDX\"\n       Prdd := \"DBFCDX\"\n       Pdd  := \"c:\\winapps\\frt\\data\\\"\n       Prca := \"c:\\clipweb\\winrca\\\"\n    ENDIF\n\n    // RDD...\n    RddRegister( \"ADS\", 1 )\n    RddSetDefault( \"DBFCDX\" )\n\n    // Caching...\n    ADSLocking(.F.)\n\n    // Init...\n    PA[001] := \"\"\n    PA[002] := \"\"\n    PA[003] := \"\"\n    PA[004] := \"CDM WinEDI Version 5.0\"\n    PA[005] := \"20051020 : 2305\"\n    PA[006] := \"DBFCDX\"\n    PA[007] := \"\"\n    PA[008] := 0\n    PA[009] := 0\n    PA[010] := \"001\"\n    PA[011] := \"company name\"\n    PA[012] := \"company addr\"\n    PA[013] := \"company city\"\n    PA[014] := \"company phone\"\n    PA[015] := \"company fax\"\n    PA[016] := \"company e-mail\"\n    PA[017] := .T.\n    PA[018] := \"\"\n    PA[019] := \"\"\n    PA[020] := CHR(13)+CHR(10)\n    PA[021] := \"\"\n    PA[022] := \"\"\n\n    // Icon...\n    DEFINE ICON PA[001] RESOURCE \"CDMLOGO\"\n\n    DEFINE WINDOW oWnd[01] MDI FROM 10,00 TO 25,70       ;\n      TITLE PA[004]                                      ;\n      MENU BuildMenu() COLOR \"B/W+\"                      ;\n      ICON  PA[001]\n\n    // Say...\n    @01,01 SAY oSay VAR cSay OF oWnd[01] SIZE 800,80\n\n    SET MESSAGE OF oWnd[01] TO \"(c)2005. CDM Software Solutions, Inc. \" + PA[005] ;\n      CENTERED COLOR \"B/W+\"     ;\n      KEYBOARD                  ;\n      DATE                      ;\n      TIME\n\n    ACTIVATE WINDOW oWnd[01]    ;\n      ON INIT  ( StartUp()                      , ;\n                 oWnd[01]:End() )\n\n    // Close...\n    DbCloseAll()\n\n    RETURN nil\n\n//----------------------------------------------------------------------------//\nfunction BuildMenu()\n\n   MENU oMenu\n      MENUITEM \"\"       ACTION oWnd[01]:End()\n   ENDMENU\n\n   RETURN oMenu\n\n//----------------------------------------------------------------------------//\nfunction Startup( cAuto )\n\n    local lEof     := .F.                               , ;\n          cLine    := \"\"                                , ;\n          aFolder  := {}                                , ;\n          cFolder  := \"\"                                , ;\n          cTmp     := \"\"                                , ;\n          nTmp     := 0                                 , ;\n          nHan     := 0                                 , ;\n          hHan     := 0                                 , ;\n          nCtnr    := 0                                 , ;\n          nFile    := 0                                 , ;\n          nUpd     := 0                                 , ;\n          cMask    := \"*.*\"                             , ;\n          nX       := 0                                 , ;\n          nY       := 0                                 , ;\n          nZ       := 0                                 , ;\n          cMsg     := \"\"                                , ;\n          cOrgf    := \"\"                                , ;\n          cDstf    := \"\"                                , ;\n          nProc    := 0                                 , ;\n          lUpd     := .F.                               , ;\n          lFirst   := .T.                               , ;\n          cChar    := \"\"                                , ;\n          nTag     := 1\n\n    // Init...\n    IF Pdebug\n       AADD( aFolder, \"c:\\edi\\TOPLAX\\meau\\\"        )\n       AADD( aFolder, \"c:\\edi\\TOPLAX\\oocl\\\"        )\n     ELSE\n       AADD( aFolder, \"d:\\ftp\\maeu\\\"        )\n       AADD( aFolder, \"d:\\ftp\\oocl\\\"        )\n    ENDIF\n\n    // Open...\n    _db( \"\" , \"edilog\"   )\n    _db( Pdd, \"import\"   )\n    _db( Pdd, \"impctnr\"  )\n    _db( Pdd, \"event\"    )\n    _db( Prca, \"rcaevnt\" )\n\n    // Process...\n    FOR nZ=1 TO LEN( aFolder )\n        cFolder := aFolder[nZ]\n        nHan    := ADIR( cFolder + cMask )\n        DECLARE aEdi[nHan]\n        ADIR( cFolder + cMask, aEdi )\n\n        FOR nY=1 TO nHan\n\n            // Message...\n            cSay := LTRIM( STR( ROUND( (nY/nHan)*100, 0), 3) ) + \"% Complete...\" + cEol\n            cSay += \"Total      = \" + LTRIM(STR(nHan ,9)) + cEol\n            cSay += \"Files      = \" + LTRIM(STR(nFile,9)) + cEol\n            cSay += \"Containers = \" + LTRIM(STR(nCtnr,9)) + cEol\n            cSay += \"Updates    = \" + LTRIM(STR(nUpd ,9)) + cEol\n            oSay:Refresh()\n            Sysrefresh()\n\n            hHan := FOPEN( cFolder + aEdi[nY], 0)\n            IF (hHan &gt;= 0)\n\n               // Init...\n               lEof   := .F.\n               cEq    := \"\"\n               cMbl   := \"\"\n               cEvent := \"\"\n               cEname := \"\"\n               cDay   := \"\"\n               cMon   := \"\"\n               cYear  := \"\"\n               cTime  := \"\"\n               lMove  := .T.\n\n               // Process...\n               DO WHILE ! lEof\n\n                  // Refresh...\n                  SysRefresh()\n\n                  // Init...\n                  cLine := \"\"\n\n                  // Read...\n                  Ureadln( hHan, @cLine, 1, @lEof )\n\n                  // Update...\n                  IF ( ! EMPTY( cLine ) )\n                     DO CASE\n                        CASE LEFT(cLine,2)     == \"B4\"\n                             cChar := \"\"\n                             cTmp  := \"\"\n                             nTag  := 1\n\n                             FOR nX = 1 TO LEN( cLine )\n                                 cChar = SUBSTR( cLine, nX, 1 )\n                                 IF cChar=\"*\"\n                                    DO CASE\n                                       CASE nTag=4\n                                            cEvent := cTmp\n                                       CASE nTag=5\n                                            cYear  := SUBSTR( cTmp, 1, 4 )\n                                            cMon   := SUBSTR( cTmp, 5, 2 )\n                                            cDay   := SUBSTR( cTmp, 7, 2 )\n                                       CASE nTag=6\n                                            cTime  := cTmp\n                                    ENDCASE\n                                    nTag++\n                                    cTmp := \"\"\n                                  ELSE\n                                    cTmp += cChar\n                                 ENDIF\n                             NEXT nX\n\n                        CASE SUBSTR(cLine,4,2) == \"BM\"\n                             cMbl   := SUBSTR( cLine,  7 )\n                        CASE SUBSTR(cLine,4,2) == \"EQ\"\n                             cEq    := SUBSTR( cLine,  7, 12 )\n                     ENDCASE\n\n                     // Find by MBL...\n                     IF (! EMPTY( cEq ) ) .AND. (! EMPTY( cEvent ) )\n\n                        // Init...\n                        cMsg := aEdi[nY]       + cEol\n                        cMsg += \"EV: \" + cEvent+ cEol\n                        cMsg += \"YR: \" + cYear + cEol\n                        cMsg += \"MO: \" + cMon  + cEol\n                        cMsg += \"DY: \" + cDay  + cEol\n                        cMsg += \"TM: \" + cTime + cEol\n                      //IF MsgNoYes( cMsg )\n                      //   DbCloseAll()\n                      //   oWnd[01]:End()\n                      //   QUIT\n                      //ENDIF\n\n                        // Init...\n                        cEname := _Event( cEvent )\n                        dDate  := CTOD( cMon + \"/\" + cDay + \"/\" + cYear )\n\n                        SELECT impctnr\n                        SET ORDER TO TAG S1\n                        GO TOP\n                        SEEK \'001\' + LEFT( cEq + SPACE(15), 15 )\n                        IF FOUND()\n\n                           // Init...\n                           nCtnr++\n\n                           DO WHILE ! EOF() .AND. ( LEFT( cEq + SPACE(15), 15 ) == impctnr-&gt;ctnr )\n\n                              // Init...\n                              lUpd := .T.\n\n                              SELECT import\n                              SET ORDER TO TAG SA\n                              GO TOP\n                              SEEK \'001\' + impctnr-&gt;file\n                              IF FOUND()\n\n                                 // Init...\n                                 nFile++\n\n                                 // Event...\n                                 SELECT event\n                                 GO TOP\n                                 SEEK \'001\' + import-&gt;file\n                                 IF FOUND()\n                                    DO WHILE ! EOF() .AND. ( import-&gt;file == event-&gt;file )\n\n                                       IF ( ALLTRIM( event-&gt;event )==ALLTRIM( cEvent ) ) .AND. ( event-&gt;date == dDate ) .AND. ( event-&gt;time == cTime )\n                                          lUpd := .F.\n                                       ENDIF\n\n                                       SELECT event\n                                       SKIP\n                                    ENDDO\n                                 ENDIF\n\n                                 // Update...\n                                 IF lUpd\n                                    // Event...\n                                    SELECT event\n                                    APPEND BLANK\n                                    event-&gt;file         := import-&gt;file\n                                    event-&gt;event        := cEvent\n                                    event-&gt;date         := dDate\n                                    event-&gt;time         := cTime\n                                    event-&gt;by           := \"CDMEDI\"\n                                    event-&gt;notes        := cEname\n                                    event-&gt;( dbcommit() )\n\n                                    // CTS Events...\n                                    SELECT rcaevnt\n                                    APPEND BLANK\n                                    rcaevnt-&gt;file       := import-&gt;file\n                                    rcaevnt-&gt;event      := cEvent\n                                    rcaevnt-&gt;date       := dDate\n                                    rcaevnt-&gt;time       := cTime\n                                    rcaevnt-&gt;by         := \"CDMEDI\"\n                                    rcaevnt-&gt;notes      := cEname\n                                    rcaevnt-&gt;( dbcommit() )\n\n                                    // Init...\n                                    nUpd++\n                                 ENDIF\n\n                               ELSE\n                                 lUpd := .F.\n\n                              ENDIF\n\n                              // Next...\n                              SELECT impctnr\n                              SKIP\n\n                           ENDDO\n\n                        ENDIF\n\n                        // Init...\n                        cMbl   := \"\"\n                        cEq    := \"\"\n                        cEvent := \"\"\n                     ENDIF\n\n                  ENDIF\n\n               ENDDO\n\n               // Close...\n               FCLOSE( hHan )\n\n               // Init...\n               cOrgf := cFolder + aEdi[nY]\n               cDstf := cFolder + \"history\\\" + aEdi[nY]\n\n               // Message...\n               cSay := \"Moving \" + cOrgf                        + cEol\n               cSay += \"to \"     + cDstf\n               oSay:Refresh()\n               Sysrefresh()\n\n               // Copy to History...\n               COPY FILE (cOrgf) TO (cDstf)\n               IF FILE( cDstf )\n                  FERASE( cOrgf )\n               ENDIF\n\n            ENDIF\n        NEXT nY\n\n        RELEASE aEdi\n\n    NEXT nZ\n\n    // Log...\n    IF (nCtnr + nFile &gt; 0)\n       SELECT edilog\n       APPEND BLANK\n       edilog-&gt;date     := DATE()\n       edilog-&gt;time     := TIME()\n       edilog-&gt;filecnt  := nFile\n       edilog-&gt;ctnr     := nCtnr\n       edilog-&gt;( dbcommit() )\n    ENDIF\n\n    // Close...\n    DbCloseAll()\n\n    // Init...\n    cMsg := \"\"\n    FOR nX=1 TO LEN( aFolder )\n        cMsg += aFolder[nX] + cEol\n    NEXT nX\n    cMsg += \"Containers = \" + LTRIM(TRANSF(nCtnr,\"999,999\"))            + cEol\n    cMsg += \"File(s)    = \" + LTRIM(TRANSF(nFile,\"999,999\"))            + cEol\n    cMsg += \"Update(s)  = \" + LTRIM(TRANSF(nUpd ,\"999,999\"))            + cEol\n // MsgInfo( cMsg, PA[04] )\n\n    RETURN (.T.)\n\n\n//----------------------------------------------------------------------------//\n   FUNC _Event( cCode )\n\n     local cRet := \"\"\n\n     DO CASE\n        CASE ALLTRIM( cCode ) == \"EE\"\n             cRet := \"EMPTY CONTAINER OUT EMPTY AGAINST BOOKING\"\n        CASE ALLTRIM( cCode ) == \"I\"\n             cRet := \"CONTAINER RETURNED TO YARD\"\n        CASE ALLTRIM( cCode ) == \"AL\"\n             cRet := \"CONTAINER LOADED ON RAIL\"\n        CASE ALLTRIM( cCode ) == \"AR\"\n             cRet := \"CONTAINER UNLOADED FROM RAIL\"\n        CASE ALLTRIM( cCode ) == \"AE\"\n             cRet := \"CONTAINER LOADED ON VESSEL\"\n        CASE ALLTRIM( cCode ) == \"VD\"\n             cRet := \"VESSEL DEPARTURE\"\n        CASE ALLTRIM( cCode ) == \"VA\"\n             cRet := \"VESSEL ARRIVAL\"\n        CASE ALLTRIM( cCode ) == \"UV\"\n             cRet := \"CONTAINER DISCHARGED FROM VESSEL\"\n        CASE ALLTRIM( cCode ) == \"CU\"\n             cRet := \"CUSTOMS/FREIGHT RELEASE\"\n        CASE ALLTRIM( cCode ) == \"CT\"\n             cRet := \"CUSTOMS/FREIGHT RELEASE\"\n        CASE ALLTRIM( cCode ) == \"OA\"\n             cRet := \"CONTAINER LEFT PORT OF DISCHARGE\"\n        CASE ALLTRIM( cCode ) == \"D\"\n             cRet := \"CONTAINER OUT FOR DELIVERY\"\n        CASE ALLTRIM( cCode ) == \"RD\"\n             cRet := \"CONTAINER RETURNED EMPTY\"\n        CASE ALLTRIM( cCode ) == \"AV\"\n             cRet := \"CONTAINER AVAILABLE FOR PICKUP/DELIVERY\"\n        CASE ALLTRIM( cCode ) == \"AF\"\n             cRet := \"CONTAINER ACTUAL DOOR PICKUP\"\n        CASE ALLTRIM( cCode ) == \"RL\"\n             cRet := \"DEPATURE FROM 1ST INTERMODAL HUB\"\n        CASE ALLTRIM( cCode ) == \"Z2\"\n             cRet := \"LAST DERAMP UNDER O/B\"\n        CASE ALLTRIM( cCode ) == \"Z6\"\n             cRet := \"TRANSHIPMENT VESSEL ARRIVAL\"\n        CASE ALLTRIM( cCode ) == \"Z4\"\n             cRet := \"CONTAINER DISCHARGED FROM TRANSHIPMENT PORT\"\n        CASE ALLTRIM( cCode ) == \"Z3\"\n             cRet := \"CONTAINER LOADED AT TRANSHIPMENT PORT\"\n        CASE ALLTRIM( cCode ) == \"Z7\"\n             cRet := \"TRANSHIPMENT VESSEL DEPARTURE\"\n        CASE ALLTRIM( cCode ) == \"Z5\"\n             cRet := \"1ST LOADED ON RAIL UNDER I/B\"\n        CASE ALLTRIM( cCode ) == \"Z1\"\n             cRet := \"INTERMODAL DEPARTURE FROM LAST PORT OF DISCHARGE\"\n        CASE ALLTRIM( cCode ) == \"Z8\"\n             cRet := \"PICKED UP AT FINAL DESTINATION FOR DELIVERY\"\n        CASE ALLTRIM( cCode ) == \"UR\"\n             cRet := \"LAST DERAMP UNDER I/B\"\n        CASE ALLTRIM( cCode ) == \"CR\"\n             cRet := \"CARRIER RELEASED\"\n        CASE ALLTRIM( cCode ) == \"OB\"\n             cRet := \"ORIGINAL BOL RECEIVED\"\n        CASE ALLTRIM( cCode ) == \"NO\"\n             cRet := \"FREIGHT SETTLEMENT\"\n        CASE ALLTRIM( cCode ) == \"PA\"\n             cRet := \"CUSTOMS HOLD\"\n        CASE ALLTRIM( cCode ) == \"TM\"\n             cRet := \"INTRA TERMINAL MOVE\"\n        CASE ALLTRIM( cCode ) == \"PL\"\n             cRet := \"USDA HOLD\"\n        CASE ALLTRIM( cCode ) == \"PU\"\n             cRet := \"OTHER GOV\'T AGENCY HOLD\"\n     ENDCASE\n\n     RETURN (cRet)\n\n//----------------------------------------------------------------------------//\n   FUNC Ureadln( hHandle, cReturn, nLen, lEof, cSkip, cSkipchr )\n\n    local cChar     := \"\"                               , ;\n          lRestline := .F.                              , ;\n          nRead     := 1\n\n    IF PCOUNT()&lt;6\n       cSkipchr = CHR(255)\n    ENDIF\n    IF PCOUNT()&lt;5\n       cSkip = .F.\n    ENDIF\n    IF PCOUNT()&lt;3\n       nLen = 1\n    ENDIF\n\n    // Init...\n    IF nRead &gt; 1\n       cChar = SPACE(nRead)\n    ENDIF\n\n    DO WHILE (! lEof)\n\n       // Init...\n       Mline   = .F.\n       IF nLen = 1\n          cChar = FREADSTR(hHandle,1)\n        ELSE\n\n          nRead = FREAD(hHandle, @cChar, nLen)\n\n          IF nRead&lt;&gt;nLen\n             lEof = .T.\n          ENDIF\n          EXIT\n       ENDIF\n\n       DO CASE\n          CASE ASC(cChar) = 10\n               EXIT\n\n          CASE ASC(cChar) = 13\n               LOOP\n\n          CASE ASC(cChar) = 9                   // Replace TAB with SPACE(1)...\n               cReturn += SPACE(1)\n\n          CASE ASC(cChar) = 0 .OR. ASC(cChar) = 27\n               lEof = .T.\n\n          OTHERWISE\n               IF cSkip\n                  IF cChar = cSkipchr\n                     lRestline = .T.\n                     LOOP\n                  ENDIF\n               ENDIF\n\n               // Add to character string if rest of line not be ignored\n               IF ! lRestline\n                  cReturn += cChar\n               ENDIF\n       ENDCASE\n    ENDDO\n\n    // Trim...\n    IF nLen&gt;1\n       Mtmp    = LEFT(cChar, LEN(cChar)-2)\n       cReturn = Mtmp\n    ENDIF\n\n    RETURN nil\n\n//---------------------------------------------------------------------------//\n  FUNCTION _db\n    PARAM cDir, cDb, lExclusive, cAlias\n\n    local nHoldCnt := 1         , ;\n          cErr     := \"\"        , ;\n          cDvr     := Prdd\n\n    IF PCOUNT()&lt;4\n       cAlias = cDb\n    ENDIF\n    IF PCOUNT()&lt;3\n       lExclusive = .F.\n    ENDIF\n    IF PCOUNT()&lt;2\n       cDb = \"\"\n    ENDIF\n    IF PCOUNT()&lt;1\n       cDir = \"\"\n    ENDIF\n\n    // Init...\n    IF EMPTY(cDir)\n       cDir = Pdd\n    ENDIF\n\n    ** Open...\n    DO WHILE (.T.)\n       IF (SELECT( UPPER(cDb) ) &gt; 0) .AND. ( cDb=cAlias )\n          SELECT &amp;cDb\n          RETURN (.T.)\n        ELSE\n\n          DO CASE\n             CASE UPPER(LEFT(cDb,3))==\"RCA\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"RCACTNR\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"RCAPO\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"RCAEVNT\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"PROFILE\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"PROPO\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"PO\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"PODET\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"PONOTE\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"POTRACK\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"FLG\"\n                  cDvr = \"DBFCDX\"\n             CASE UPPER(cDb)==\"ARHOLD\"\n                  cDvr = \"DBFCDX\"\n          ENDCASE\n\n          // Open....\n          DbUseArea( .T., cDvr, cDir+cDb, cAlias, ! lExclusive )\n       ENDIF\n\n       IF NETERR()\n          cErr := \"You are not the only one in this Module.\" + CHR(13)+CHR(10)\n          cErr += CHR(13)+CHR(10)\n          cErr += \"Everyone else must exit before you can continue!\" + CHR(13)+CHR(10)\n          cErr += CHR(13)+CHR(10)\n          cErr += \"The file trying to be used exclusively is \" + CHR(13)+CHR(10)\n          cErr += cDir + cDb\n\n       // MsgWait2( cErr, cDir + cDb, .5 )\n          nHoldCnt++\n          IF nHoldCnt&gt;2\n             RETURN (.F.)\n          ENDIF\n          LOOP\n       ENDIF\n\n       DO CASE\n          CASE UPPER(cDb)==\"QUOTE\"\n               SET INDEX TO &amp;cDir.qtx01&amp;Pext\n          CASE UPPER(cDb)==\"QTEDIM\"\n               SET INDEX TO &amp;cDir.qtxdim&amp;Pext\n          CASE UPPER(cDb)==\"QTEDET\"\n               SET INDEX TO &amp;cDir.qtxdet&amp;Pext\n          CASE UPPER(cDb)==\"BOOKING\"\n               SET INDEX TO &amp;cDir.bkgx01&amp;Pext\n          CASE UPPER(cDb)==\"BKGDIM\"\n               SET INDEX TO &amp;cDir.bkgxdim&amp;Pext\n          CASE UPPER(cDb)==\"BKGRATE\"\n               SET INDEX TO &amp;cDir.bkgxrat&amp;Pext\n          CASE UPPER(cDb)==\"BKNUM\"\n               SET INDEX TO &amp;cDir.bkgxnum&amp;Pext\n          CASE UPPER(cDb)==\"WR\"\n               SET INDEX TO &amp;cDir.wrx01&amp;Pext\n          CASE UPPER(cDb)==\"WRDET\"\n               SET INDEX TO &amp;cDir.wrx02&amp;Pext\n          CASE UPPER(cDb)==\"WRDETSN\"\n               SET INDEX TO &amp;cDir.wrxsn&amp;Pext\n          CASE UPPER(cDb)==\"WRDETPA\"\n               SET INDEX TO &amp;cDir.wrxpa&amp;Pext\n          CASE UPPER(cDb)==\"WRDETSZ\"\n               SET INDEX TO &amp;cDir.wrxsz&amp;Pext\n          CASE UPPER(cDb)==\"WHLOC\"\n               SET INDEX TO &amp;cDir.whxloc&amp;Pext\n          CASE UPPER(cDb)==\"WHLOG\"\n               SET INDEX TO &amp;cDir.wlx01&amp;Pext\n          CASE UPPER(cDb)==\"WRRATE\"\n               SET INDEX TO &amp;cDir.wrxr01&amp;Pext\n          CASE UPPER(cDb)==\"WRR\"\n               SET INDEX TO &amp;cDir.wrrx01&amp;Pext\n          CASE UPPER(cDb)==\"WRRDET\"\n               SET INDEX TO &amp;cDir.wrrx02&amp;Pext\n          CASE UPPER(cDb)==\"WRRDETSN\"\n               SET INDEX TO &amp;cDir.wrrx03&amp;Pext\n          CASE UPPER(cDb)==\"WRRCOMM\"\n               SET INDEX TO &amp;cDir.wrrx04&amp;Pext\n          CASE UPPER(cDb)==\"WRRPICK\"\n               SET INDEX TO &amp;cDir.wrrx05&amp;Pext\n          CASE UPPER(cDb)==\"WRRDETSZ\"\n               SET INDEX TO &amp;cDir.wrrxsz&amp;Pext\n          CASE UPPER(cDb)==\"WRPICK\"\n               SET INDEX TO &amp;cDir.wrpx01&amp;Pext\n          CASE UPPER(cDb)==\"WRPICKD\"\n               SET INDEX TO &amp;cDir.wrpx02&amp;Pext\n          CASE UPPER(cDb)==\"WRINV\"\n               SET INDEX TO &amp;cDir.wrix01&amp;Pext\n          CASE UPPER(cDb)==\"WRIDET\"\n               SET INDEX TO &amp;cDir.wrdx01&amp;Pext\n          CASE UPPER(cDb)==\"WREDET\"\n               SET INDEX TO &amp;cDir.wrex01&amp;Pext\n          CASE UPPER(cDb)==\"MT\"\n               SET INDEX TO &amp;cDir.mt01&amp;Pext\n          CASE UPPER(cDb)==\"MTDET\"\n               SET INDEX TO &amp;cDir.mt02&amp;Pext\n          CASE UPPER(cDb)==\"MTDETSN\"\n               SET INDEX TO &amp;cDir.mt03&amp;Pext\n          CASE UPPER(cDb)==\"INVADJ\"\n               SET INDEX TO &amp;cDir.invadj01&amp;Pext\n          CASE UPPER(cDb)==\"INVADJD\"\n               SET INDEX TO &amp;cDir.invadj02&amp;Pext\n          CASE UPPER(cDb)==\"SHPREF\"\n               SET INDEX TO &amp;cDir.shpxref&amp;Pext\n          CASE UPPER(cDb)==\"OCEAN\"\n               SET INDEX TO &amp;cDir.ocnx01\n          CASE UPPER(cDb)==\"OCNDET\"\n               SET INDEX TO &amp;cDir.ocnxdet&amp;Pext\n          CASE UPPER(cDb)==\"OCNCTNR\"\n               SET INDEX TO &amp;cDir.ocnxctnr\n          CASE UPPER(cDb)==\"OCNCLS\"\n               SET INDEX TO &amp;cDir.ocnxcls\n          CASE UPPER(cDb)==\"OCNRATE\"\n               SET INDEX TO &amp;cDir.ocnxrate\n          CASE UPPER(cDb)==\"OCNBKG\"\n               SET INDEX TO &amp;cDir.ocnxbkg&amp;Pext\n          CASE UPPER(cDb)==\"OCNSTAT\"\n               SET INDEX TO &amp;cDir.ocnxstat&amp;Pext\n          CASE UPPER(cDb)==\"AIRDISP\"\n               SET INDEX TO &amp;cDir.airxdisp\n          CASE UPPER(cDb)==\"AIR\"\n               SET INDEX TO &amp;cDir.airx01\n          CASE UPPER(cDb)==\"AIRDET\"\n               SET INDEX TO &amp;cDir.airxdet&amp;Pext\n          CASE UPPER(cDb)==\"AIRDIM\"\n               SET INDEX TO &amp;cDir.airxdim&amp;Pext\n          CASE UPPER(cDb)==\"AIRMAN\"\n               SET INDEX TO &amp;cDir.airmanx&amp;Pext\n          CASE UPPER(cDb)==\"SITA\"\n               SET INDEX TO &amp;cDir.sitax01\n          CASE UPPER(cDb)==\"NOTES\"\n               SET INDEX TO &amp;cDir.notes&amp;Pext\n          CASE UPPER(cDb)==\"SEDDAT\"\n               SET INDEX TO &amp;cDir.sedxdat&amp;Pext\n          CASE UPPER(cDb)==\"SEDDET\"\n               SET INDEX TO &amp;cDir.sedxdet&amp;Pext\n          CASE UPPER(cDb)==\"SEDVEH\"\n               SET INDEX TO &amp;cDir.sedxveh&amp;Pext\n          CASE UPPER(cDb)==\"MASTER\"\n               SET INDEX TO &amp;cDir.mastx01&amp;Pext\n          CASE UPPER(cDb)==\"CONTTBL\"\n               SET INDEX TO &amp;cDir.contt01&amp;Pext\n          CASE UPPER(cDb)==\"CONSTMN\"\n               SET INDEX TO &amp;cDir.conxtop&amp;Pext\n          CASE UPPER(cDb)==\"TICKLER\"\n               SET INDEX TO &amp;cDir.tickx01&amp;Pext\n          CASE UPPER(cDb)==\"CARRIER\"\n               SET INDEX TO &amp;cDir.carr01&amp;Pext, &amp;cDir.carr02&amp;Pext, &amp;cDir.carr03&amp;Pext, &amp;cDir.carr04&amp;Pext\n          CASE UPPER(cDb)==\"CARRLOC\"\n               SET INDEX TO &amp;cDir.frxcaloc&amp;Pext\n          CASE UPPER(cDb)==\"AWBDET\"\n               SET INDEX TO &amp;cDir.awbdet&amp;Pext, &amp;cDir.awbdet2&amp;Pext\n          CASE UPPER(cDb)==\"INVOICE\"\n               SET INDEX TO &amp;cDir.invx01\n          CASE UPPER(cDb)==\"INVDET\"\n               SET INDEX TO &amp;cDir.invdx01\n          CASE UPPER(cDb)==\"INVCOST\"\n               SET INDEX TO &amp;cDir.invcx01\n          CASE UPPER(cDb)==\"INVSUMM\"\n               SET INDEX TO &amp;cDir.invxsumm&amp;Pext\n          CASE UPPER(cDb)==\"EDITRACK\"\n               SET INDEX TO &amp;cDir.edi01&amp;Pext\n          CASE UPPER(cDb)==\"EDI\"\n               SET INDEX TO &amp;cDir.edix01&amp;Pext\n          CASE UPPER(cDb)==\"EDILOG\"\n               SET INDEX TO &amp;cDir.edixlog&amp;Pext\n          CASE UPPER(cDb)==\"ARCUST\"\n               SET INDEX TO &amp;cDir.custx01&amp;Pext\n          CASE UPPER(cDb)==\"ARHOLD\"\n               SET INDEX TO &amp;cDir.arhldx01.cdx\n          CASE UPPER(cDb)==\"ARGLCD\"\n               SET INDEX TO &amp;cDir.arxglcd&amp;Pext, &amp;cDir.arxglnm&amp;Pext\n          CASE UPPER(cDb)==\"ARREPCD\"\n               SET INDEX TO &amp;cDir.arxrepcd&amp;Pext, &amp;cDir.arxrepnm&amp;Pext\n          CASE UPPER(cDb)==\"TERMS\"\n               SET INDEX TO &amp;cDir.terms&amp;Pext\n          CASE UPPER(cDb)==\"BANK\"\n               SET INDEX TO &amp;cDir.bank&amp;Pext\n          CASE UPPER(cDb)==\"SAILING\"\n               SET INDEX TO &amp;cDir.sail01&amp;Pext, &amp;cDir.sail02&amp;Pext, &amp;cDir.sail03&amp;Pext, &amp;cDir.sail04&amp;Pext, &amp;cDir.sail05&amp;Pext\n          CASE UPPER(cDb)==\"CTNR\"\n               SET INDEX TO &amp;cDir.ctnr01&amp;Pext, &amp;cDir.ctnr02&amp;Pext\n          CASE UPPER(cDb)==\"RATES\"\n               SET INDEX TO &amp;cDir.ratexid&amp;Pext, &amp;cDir.ratexorg&amp;Pext, &amp;cDir.ratexdst&amp;Pext\n          CASE UPPER(cDb)==\"RATECOST\"\n               SET INDEX TO &amp;cDir.ratexcst&amp;Pext\n          CASE UPPER(cDb)==\"PRODUCT\"\n               SET INDEX TO &amp;cDir.prodxcd&amp;Pext, &amp;cDir.prodxnm&amp;Pext, &amp;cDir.prodxcs&amp;Pext, &amp;cDir.prodxsu&amp;Pext\n          CASE UPPER(cDb)==\"PRODRESV\"\n               SET INDEX TO &amp;cDir.prodrsv&amp;Pext\n          CASE UPPER(cDb)==\"PRODSIZE\"\n               SET INDEX TO &amp;cDir.prodsiz&amp;Pext\n          CASE UPPER(cDb)==\"APVEND\"\n               SET INDEX TO &amp;cDir.vendx01&amp;Pext\n          CASE UPPER(cDb)==\"APEXPCD\"\n               SET INDEX TO &amp;cDir.apxglcd&amp;Pext, &amp;cDir.apxglnm&amp;Pext\n          CASE UPPER(cDb)==\"SED\"\n               SET INDEX TO &amp;cDir.schbx01&amp;Pext\n          CASE UPPER(cDb)==\"PORTS\"\n               SET INDEX TO &amp;cDir.portxcd&amp;Pext, &amp;cDir.portxnm&amp;Pext\n          CASE UPPER(cDb)==\"UNCODE\"\n               SET INDEX TO &amp;cDir.unxloc&amp;Pext\n          CASE UPPER(cDb)==\"COB\"\n               SET INDEX TO &amp;cDir.cobx01&amp;Pext\n          CASE UPPER(cDb)==\"POD\"\n               SET INDEX TO &amp;cDir.podx01&amp;Pext\n          CASE UPPER(cDb)==\"SHIPCYCL\"\n               SET INDEX TO &amp;cDir.shpcyx01&amp;Pext\n          CASE UPPER(cDb)==\"FILECNT\"\n               SET INDEX TO &amp;cDir.filexcnt&amp;Pext\n          CASE UPPER(cDb)==\"IMPORT\"\n               SET INDEX TO &amp;cDir.impx01&amp;Pext,&amp;cDir.impx02&amp;Pext\n          CASE UPPER(cDb)==\"IMPCTNR\"\n               SET INDEX TO &amp;cDir.impxctnr&amp;Pext\n          CASE UPPER(cDb)==\"IMPHSE\"\n               SET INDEX TO &amp;cDir.impxhser&amp;Pext\n          CASE UPPER(cDb)==\"IMPDATA\"\n               SET INDEX TO &amp;cDir.impxdat&amp;Pext\n          CASE UPPER(cDb)==\"IMPREL\"\n               SET INDEX TO &amp;cDir.imprx&amp;Pext\n          CASE UPPER(cDb)==\"IMPRELD\"\n               SET INDEX TO &amp;cDir.imprdx&amp;Pext\n          CASE UPPER(cDb)==\"IMPDET\"\n               SET INDEX TO &amp;cDir.impxdet&amp;Pext\n          CASE UPPER(cDb)==\"TRUCK\"\n               SET INDEX TO &amp;cDir.trkx01&amp;Pext\n          CASE UPPER(cDb)==\"TRKDET\"\n               SET INDEX TO &amp;cDir.trkxdet\n          CASE UPPER(cDb)==\"TRKBRK\"\n               SET INDEX TO &amp;cDir.trkbx01&amp;Pext\n          CASE UPPER(cDb)==\"TRKCARR\"\n               SET INDEX TO &amp;cDir.trkcx01&amp;Pext\n\n          CASE UPPER(cDb)==\"CARR\"\n               SET INDEX TO &amp;cDir.sedx01&amp;Pext, &amp;cDir.sedx02&amp;Pext\n          CASE UPPER(cDb)==\"CONTROL\"\n               SET INDEX TO &amp;cDir.sedx03&amp;Pext\n          CASE UPPER(cDb)==\"EXPLIC\"\n               SET INDEX TO &amp;cDir.sedx04&amp;Pext, &amp;cDir.sedx05&amp;Pext\n          CASE UPPER(cDb)==\"SEDPROC\"\n               SET INDEX TO &amp;cDir.sedx06&amp;Pext, &amp;cDir.sedx07&amp;Pext, &amp;cDir.sedx08&amp;Pext\n          CASE UPPER(cDb)==\"SEDSHIP\"\n               SET INDEX TO &amp;cDir.sedx09&amp;Pext\n          CASE UPPER(cDb)==\"MEXSTATE\"\n               SET INDEX TO &amp;cDir.sedx10&amp;Pext, &amp;cDir.sedx11&amp;Pext\n          CASE UPPER(cDb)==\"SCHC\"\n               SET INDEX TO &amp;cDir.sedx12&amp;Pext, &amp;cDir.sedx13&amp;Pext, &amp;cDir.sedx13b&amp;Pext\n          CASE UPPER(cDb)==\"SCHD\"\n               SET INDEX TO &amp;cDir.sedx14&amp;Pext, &amp;cDir.sedx15&amp;Pext\n          CASE UPPER(cDb)==\"SCHK\"\n               SET INDEX TO &amp;cDir.sedx16&amp;Pext, &amp;cDir.sedx17&amp;Pext\n          CASE UPPER(cDb)==\"SCAC\"\n               SET INDEX TO &amp;cDir.sedx19&amp;Pext, &amp;cDir.sedx20&amp;Pext\n          CASE UPPER(cDb)==\"ARTEMP\"\n               SET INDEX TO &amp;cDir.ar01&amp;Pext, &amp;cDir.ar02&amp;Pext, &amp;cDir.ar03&amp;Pext\n          CASE UPPER(cDb)==\"PAYTEMP\"\n               SET INDEX TO &amp;cDir.rop01&amp;Pext\n          CASE UPPER(cDb)==\"PAYTEMPT\"\n               SET INDEX TO &amp;cDir.ropdet&amp;Pext\n          CASE UPPER(cDb)==\"APTEMP\"\n               SET INDEX TO &amp;cDir.ap01&amp;Pext, &amp;cDir.ap02&amp;Pext, &amp;cDir.ap03&amp;Pext\n          CASE UPPER(cDb)==\"APTEMPT\"\n               SET INDEX TO &amp;cDir.ap04&amp;Pext, &amp;cDir.ap05&amp;Pext\n          CASE UPPER(cDb)==\"APRECUR\"\n               SET INDEX TO &amp;cDir.apr01&amp;Pext\n          CASE UPPER(cDb)==\"CHKTEMPT\"\n               SET INDEX TO &amp;cDir.chkdet&amp;Pext\n          CASE UPPER(cDb)==\"ARHIST\"\n               SET INDEX TO &amp;cDir.arhist01&amp;Pext, &amp;cDir.arhist02&amp;Pext, &amp;cDir.arhist03&amp;Pext, &amp;cDir.arhist04&amp;Pext, &amp;cDir.arhist05&amp;Pext, &amp;cDir.arhist06&amp;Pext\n          CASE UPPER(cDb)==\"ARNOTES\"\n               SET INDEX TO &amp;cDir.arnotes&amp;Pext\n          CASE UPPER(cDb)==\"APHIST\"\n               SET INDEX TO &amp;cDir.aphist01&amp;Pext, &amp;cDir.aphist02&amp;Pext, &amp;cDir.aphist03&amp;Pext, &amp;cDir.aphist04&amp;Pext, &amp;cDir.aphist05&amp;Pext\n          CASE UPPER(cDb)==\"APNOTES\"\n               SET INDEX TO &amp;cDir.apnotes&amp;Pext\n          CASE UPPER(cDb)==\"APRECON\"\n               SET INDEX TO &amp;cDir.aprec01&amp;Pext, &amp;cDir.aprec02&amp;Pext, &amp;cDir.aprec03&amp;Pext\n          CASE UPPER(cDb)==\"GLACCT\"\n               SET INDEX TO &amp;cDir.glacct01&amp;Pext, &amp;cDir.glacct02&amp;Pext\n          CASE UPPER(cDb)==\"GLCAT\"\n               SET INDEX TO &amp;cDir.glcat01&amp;Pext\n          CASE UPPER(cDb)==\"GL\"\n               SET INDEX TO &amp;cDir.glje01&amp;Pext\n          CASE UPPER(cDb)==\"GLAPPLY\"\n               SET INDEX TO &amp;cDir.glje02&amp;Pext\n          CASE UPPER(cDb)==\"GLHIST\"\n               SET INDEX TO &amp;cDir.glhist01&amp;Pext, &amp;cDir.glhist02&amp;Pext\n          CASE UPPER(cDb)==\"GLPCLOSE\"\n               SET INDEX TO &amp;cDir.glpclose&amp;Pext\n          CASE UPPER(cDb)==\"GLYCLOSE\"\n               SET INDEX TO &amp;cDir.glyclose&amp;Pext\n          CASE UPPER(cDb)==\"GLSUM\"\n               SET INDEX TO &amp;cDir.glsum01&amp;Pext\n          CASE UPPER(cDb)==\"COMINV\"\n               SET INDEX TO &amp;cDir.cominv01&amp;Pext, &amp;cDir.cominv02&amp;Pext, &amp;cDir.cominv03&amp;Pext, &amp;cDir.cominv04&amp;Pext\n          CASE UPPER(cDb)==\"COMDET\"\n               SET INDEX TO &amp;cDir.comdet&amp;Pext\n          CASE UPPER(cDb)==\"CANCUS\"\n               SET INDEX TO &amp;cDir.cancus01&amp;Pext\n          CASE UPPER(cDb)==\"CANCUSD\"\n               SET INDEX TO &amp;cDir.cancus02&amp;Pext\n          CASE UPPER(cDb)==\"ISRAEL\"\n               SET INDEX TO &amp;cDir.isrl01&amp;Pext\n          CASE UPPER(cDb)==\"ISRAELD\"\n               SET INDEX TO &amp;cDir.isrld01&amp;Pext\n          CASE UPPER(cDb)==\"CARGOAGT\"\n               SET INDEX TO &amp;cDir.cargo01&amp;Pext, &amp;cDir.cargo02&amp;Pext\n          CASE UPPER(cDb)==\"CARGODET\"\n               SET INDEX TO &amp;cDir.cargo03&amp;Pext, &amp;cDir.cargo04&amp;Pext\n          CASE UPPER(cDb)==\"CARINV\"\n               SET INDEX TO &amp;cDir.carinv01&amp;Pext, &amp;cDir.carinv02&amp;Pext, &amp;cDir.carinv03&amp;Pext\n          CASE UPPER(cDb)==\"CARDET\"\n               SET INDEX TO &amp;cDir.cardet&amp;Pext\n          CASE UPPER(cDb)==\"DRAFT\"\n               SET INDEX TO &amp;cDir.draft01&amp;Pext, &amp;cDir.draft02&amp;Pext\n          CASE UPPER(cDb)==\"DFTCNT\"\n               SET INDEX TO &amp;cDir.dftcnt&amp;Pext\n          CASE UPPER(cDb)==\"DOCTRANS\"\n               SET INDEX TO &amp;cDir.doc01&amp;Pext\n          CASE UPPER(cDb)==\"HAZMAT\"\n               SET INDEX TO &amp;cDir.haz01&amp;Pext\n          CASE UPPER(cDb)==\"HAZDET\"\n               SET INDEX TO &amp;cDir.hazdet&amp;Pext\n          CASE UPPER(cDb)==\"NAFTA\"\n               SET INDEX TO &amp;cDir.nafta01&amp;Pext, &amp;cDir.nafta02&amp;Pext\n          CASE UPPER(cDb)==\"NAFDET\"\n               SET INDEX TO &amp;cDir.nafdet&amp;Pext\n          CASE UPPER(cDb)==\"CANCO\"\n               SET INDEX TO &amp;cDir.canco01&amp;Pext\n          CASE UPPER(cDb)==\"CCODET\"\n               SET INDEX TO &amp;cDir.canco02&amp;Pext\n          CASE UPPER(cDb)==\"CANCED\"\n               SET INDEX TO &amp;cDir.ced01&amp;Pext\n          CASE UPPER(cDb)==\"CEDDET\"\n               SET INDEX TO &amp;cDir.ced02&amp;Pext\n          CASE UPPER(cDb)==\"INSCFT\"\n               SET INDEX TO &amp;cDir.inscft01&amp;Pext, &amp;cDir.inscft02&amp;Pext\n          CASE UPPER(cDb)==\"CREDNOTE\"\n               SET INDEX TO &amp;cDir.crednote&amp;Pext\n          CASE UPPER(cDb)==\"CREDDET\"\n               SET INDEX TO &amp;cDir.creddet&amp;Pext\n          CASE UPPER(cDb)==\"TIC\"\n               SET INDEX TO &amp;cDir.tic&amp;Pext\n          CASE UPPER(cDb)==\"WEST\"\n               SET INDEX TO &amp;cDir.west&amp;Pext\n          CASE UPPER(cDb)==\"GLOBIMP\"\n               SET INDEX TO &amp;cDir.globimp&amp;Pext\n          CASE UPPER(cDb)==\"APEX\"\n               SET INDEX TO &amp;cDir.apex01&amp;Pext\n          CASE UPPER(cDb)==\"NJ\"\n               SET INDEX TO &amp;cDir.nj&amp;Pext\n          CASE UPPER(cDb)==\"USTC\"\n               SET INDEX TO &amp;cDir.ustc&amp;Pext\n          CASE UPPER(cDb)==\"SHIPSTAT\"\n               SET INDEX TO &amp;cDir.shipxsta&amp;Pext\n          CASE UPPER(cDb)==\"STATFILE\"\n               SET INDEX TO &amp;cDir.statxfil&amp;Pext\n          CASE UPPER(cDb)==\"USER\"\n               IF ! FILE(cDir + \"USER\" + Pext )\n                  INDEX ON company+pw   TO &amp;cDir.user&amp;Pext\n               ENDIF\n               SET INDEX TO &amp;cDir.user&amp;Pext\n          CASE UPPER(cDb)==\"ERROR\"\n               IF ! FILE(cDir + \"ERROR\" + Pext )\n                  INDEX ON DTOS(date) TO &amp;Psys.error&amp;Pext DESCENDING\n               ENDIF\n               SET INDEX TO &amp;cDir.error&amp;Pext\n          CASE UPPER(cDb)==\"CDMLOG\"\n               IF ! FILE( cDir + \"LOGX01\" + Pext )\n                  MsgWait( \"Building Log Search Keys\", \"CDM WinFrt\", 1 )\n                  INDEX ON DTOS(date)+process      TAG S1   TO &amp;cDir.logx01&amp;Pext         DESCENDING\n                  INDEX ON user+DTOS(date)+process TAG S2   TO &amp;cDir.logx01&amp;Pext         DESCENDING\n                  INDEX ON process+DTOS(date)      TAG S3   TO &amp;cDir.logx01&amp;Pext         DESCENDING\n               ENDIF\n               SET INDEX TO &amp;cDir.logx01&amp;Pext\n          CASE UPPER(cDb)==\"PROFILE\"\n               IF ! FILE(cDir + \"PROFX01.CDX\")\n                  INDEX ON custid TAG S1 TO &amp;cDir.profx01.cdx\n                  INDEX ON pw     TAG S2 TO &amp;cDir.profx01.cdx\n               ENDIF\n               SET INDEX TO &amp;cDir.profx01\n          CASE UPPER(cDb)==\"RCANOTES\"\n               SET INDEX TO &amp;cDir.rcanx01\n          CASE UPPER(cDb)==\"RCA\"\n               SET INDEX TO &amp;cDir.rcax01\n          CASE UPPER(cDb)==\"RCACTNR\"\n               SET INDEX TO &amp;cDir.rcax04\n          CASE UPPER(cDb)==\"RCAPO\"\n               SET INDEX TO &amp;cDir.rcax05\n          CASE UPPER(cDb)==\"RCAEVNT\"\n               SET INDEX TO &amp;cDir.rcax07\n\n          CASE UPPER(cDb)==\"FLG\"\n               SET INDEX TO &amp;cDir.flgx01, &amp;cDir.flgx02, &amp;cDir.flgx03, &amp;cDir.flgx04, &amp;cDir.flgx05, &amp;cDir.flgx06\n          CASE UPPER(cDb)==\"PROPO\"\n               SET INDEX TO &amp;cDir.proxpo\n          CASE UPPER(cDb)==\"PO\"\n               SET INDEX TO &amp;cDir.pox01\n          CASE UPPER(cDb)==\"PODET\"\n               SET INDEX TO &amp;cDir.podtx01\n          CASE UPPER(cDb)==\"PONOTE\"\n               SET INDEX TO &amp;cDir.ponx01\n          CASE UPPER(cDb)==\"POTRACK\"\n               SET INDEX TO &amp;cDir.potx01\n          CASE UPPER(cDb)==\"ZIPCODES\"\n               SET INDEX TO &amp;cDir.zipx01\n          CASE UPPER(cDb)==\"ROUTE\"\n               SET INDEX TO &amp;cDir.rtex01\n          CASE UPPER(cDb)==\"EMPLOYEE\"\n               SET INDEX TO &amp;cDir.emp01&amp;Pext, &amp;cDir.emp02&amp;Pext\n          CASE UPPER(cDb)==\"DEPT\"\n               SET INDEX TO &amp;cDir.dept01&amp;Pext, &amp;cDir.dept02&amp;Pext\n          CASE UPPER(cDb)==\"FEDERAL\"\n               SET INDEX TO &amp;cDir.federal&amp;Pext\n          CASE UPPER(cDb)==\"PAYROLL\"\n               SET INDEX TO &amp;cDir.pay01&amp;Pext, &amp;cDir.pay02&amp;Pext, &amp;cDir.pay03&amp;Pext\n          CASE UPPER(cDb)==\"PAYHIST\"\n               SET INDEX TO &amp;cDir.payhst01&amp;Pext, &amp;cDir.payhst02&amp;Pext, &amp;cDir.payhst03&amp;Pext\n          CASE UPPER(cDb)==\"CODES\"\n               SET INDEX TO &amp;cDir.codesx01&amp;Pext, &amp;cDir.codesx02&amp;Pext, &amp;cDir.codesx03&amp;Pext\n          CASE UPPER(cDb)==\"ELOG\"\n               SET INDEX TO &amp;cDir.elogx&amp;Pext\n          CASE UPPER(cDb)==\"PROFSPLT\"\n               SET INDEX TO &amp;cDir.psx01&amp;Pext\n          CASE UPPER(cDb)==\"PSDET\"\n               SET INDEX TO &amp;cDir.psx02&amp;Pext\n\n          CASE UPPER(cDb)==\"EVENT\"\n               SET INDEX TO &amp;cDir.evntx01&amp;Pext\n       ENDCASE\n       INKEY(.1)\n       EXIT\n    ENDDO\n\n    RETURN (.T.)\n\n ******************************************************************************\n * FUNC: _dbclose - Database Open Close Facility...                                *\n ******************************************************************************\n   FUNCTION _dbclose( cDb )\n\n    // Init...\n    local cDbFile := cDb\n\n    // Close...\n    &amp;cDbFile.-&gt;( dbclosearea() )\n\n    RETURN (.T.)','',0,'','2lqef07j',1,0,'',234,0,0),(1129,299,6,49,0,'213.82.134.66',1130495501,1,0,1,1,1,0,'','','To hernan \ncan I have the beta 18 version now  ?\n\nTO PACO ( you not come to msn)\nI trying to use your grid class ( 32 bit)  modified from I and You but the footer ot run ok\n\nI have many program using the footers on browse . On 16 bit it run ok , on 32 not run\n\nI try to use xbrowse but For a browse i must write many lines of commands and the xbrowse is not simple\n\nI must found the solution ....','',0,'','oww68zzh',1,0,'',49,0,0),(1130,307,4,150,0,'87.223.255.127',1130497740,1,0,1,1,1,1,'','@    SAY  GET    without resources','Hello.\n\nI have no example about this and if I write\n\n@ 10,10 say \"Nombre  \" GET mRaso\n@ 20,10 say \"Calle      \" GET mCalle\n\nREAD\n\nI get the fields one over the other.\n\nNote: I have never used resources and have no resources editor','',0,'','27ro4b61',1,0,'',150,0,0),(1131,307,4,6,0,'82.61.144.129',1130498020,1,0,1,1,1,1,'','Re: @    SAY  GET    without resources','You should use separate @ row, col commands for SAY and GET.\n\nEMG','',0,'','25ab3oj1',1,0,'',6,0,0),(1132,303,20,6,0,'82.61.144.129',1130498285,1,0,1,1,1,1,'','Re: uso di zip-unzip','/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILE( &lt;cFile&gt;, &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file to create\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *         _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used, it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file,otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password.\n *\n *      If &lt;lWithPath&gt; is used, it tells  the path should also be stored with\n *      the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored\n *      with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n *\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_ZIPFILE( \"TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILE( \"TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILE( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" }, 9, {|cFile,nPos,| qout(cFile) } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\" , \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILE( \"test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ) },, \"hello\" )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_UNZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Unzip a compressed file\n * $SYNTAX$\n *      HB_UNZIPFILE( &lt;cFile&gt;, &lt;bBlock&gt;, &lt;lWithPath&gt;, &lt;cPassWord&gt;, &lt;cPath&gt;,\n *      &lt;cFile&gt; | &lt;aFile&gt;, &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file to extract\n *\n *      &lt;bBlock&gt;  Code block to execute while extracting\n *\n *      &lt;lWithPath&gt; Toggle to create directory if needed\n *\n *      &lt;cPassWord&gt; Password to use to extract files\n *\n *      &lt;cPath&gt;    Path to extract the files to - mandatory\n *\n *      &lt;cFile&gt; | &lt;aFiles&gt; A File or Array of files to extract - mandatory\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if all file was successfully restored, otherwise .f.\n * $DESCRIPTION$\n *      This function restores all files contained inside the &lt;cFile&gt;.\n *      If the extension is omitted, .ZIP will be assumed. If a file already\n *      exists, it will be overwritten.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      The &lt;cPath&gt; is a mandatory parameter. Set to \".\\\" to extract to the\n *      current directory\n *\n *      If &lt;cFile&gt; or &lt;aFiles&gt; are not provided, no files will be extracted!\n *      Make sure you provide the file or files you want extracted\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      aExtract := hb_GetFilesInZip( \"TEST.ZIP\" )  // extract all files in zip\n *      IF HB_UNZIPFILE( \"TEST.ZIP\",,,, \".\\\", aExtract )\n *         qout(\"File was successfully extracted\")\n *      ENDIF\n *\n *      aExtract := hb_GetFilesInZip( \"TEST2.ZIP\" )  // extract all files in zip\n *      IF HB_UNZIPFILE( \"TEST2.ZIP\", {|cFile| qout( cFile ) },,, \".\\\", aExtract )\n *         qout(\"File was successfully extracted\")\n *      ENDIF\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Gets the number of files that are in the zipfile\n * $SYNTAX$\n *      HB_GETUNZIPFILE( &lt;cFile&gt; ) ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the zipfile\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the zipfile.\n *      The purpose for this function is to use in conjunction with the\n *      HB_UNZIPFILE() function, so you can use returned result in the code\n *      block. See example below.\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *      Local nFiles := HB_GETUNZIPFILE( \"test.zip\" )\n *\n *      if nFiles &gt; 0\n *         ? \"This files Contains \", nfiles\n *      endif\n *\n *      Return Nil\n *\n *      Here is an example of How to use HB_GETUNZIPFILE() in conjunction\n *      with HB_UNZIPFILE()\n *\n *      Function Main()\n *      Local aGauge, nLen\n *\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\" ,\"²\" )\n *      GaugeDisplay( aGauge )\n *      nLen := HB_GETUNZIPFILE( \"test22\" )\n *      HB_UNZIPFILE( \"test22\", {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ), qout(cFile) }, .t. )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYTDSPAN()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILEBYTDSPAN( &lt;cFile&gt; ,&lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;iSize&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt;) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *          _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;iSize&gt; Size of the archive, in bytes. Default is 1457664 bytes\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used, it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file, otherwise if &lt;lOverWrite&gt; is\n *      false the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored \'\n *      with the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also\n *      be stored with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" }, 9, {|nPos,cFile| qout(cFile) }, \"hello\",, 521421 )\n *         qout(\"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\", \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILEBYTDSPAN( \"test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen) },, \"hello\",, 6585452 )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYPKSPAN()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file on removable media\n * $SYNTAX$\n *      HB_ZIPFILEBYPKSPAN( &lt;cFile&gt;, &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt;) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *          _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.  Also, the use of this function is for creating\n *      backup in removable media like an floppy drive/zip drive.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used , it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file, otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password.\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored with\n *      the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored\n *      with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n *\n *      Before calling this function, Set an Changedisk codeblock by calling\n *      the HB_SETDISKZIP().\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      hb_setdiskzip( {|nDisk| Alert( \"Please insert disk no \" + Str( nDisk, 3 ) ) } )\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"a:\\TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"a:\\TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\"}, 9, {|nPos,cFile| qout(cFile) } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\", \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILEBYPKSPAN( \"f:\\test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ) },, \"hello\" )\n *      // assuming f:\\ is a Zip Drive\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETDISKZIP()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Set an codeblock for disk changes\n * $SYNTAX$\n *     HB_SETDISKZIP( &lt;bBlock&gt; ) ---&gt; TRUE\n * $ARGUMENTS$\n *     &lt;bBlock&gt; an Code block that contains an function that will be performed\n *     when the need of changing disk are need.\n * $RETURNS$\n *     It always returns True\n * $DESCRIPTION$\n *     This function will set an codeblock that will be evaluated every time\n *     that an changedisk event is necessary. &lt;bBlock&gt; receives nDisk as a\n *     code block param that corresponds to the diskette number to be processed.\n *\n *     Set this function before opening archives that are in removable media.\n *     This block will be released, when the caller finish it job.\n * $EXAMPLES$\n *      HB_SETDISKZIP( {|nDisk| Alert( \"Please insert disk no \" + Str( nDisk, 3 ) ) } )\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_ZIPDELETEFILES()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Delete files from an zip archive\n * $SYNTAX$\n *     HB_ZIPDELETEFILES( &lt;cFile&gt;, &lt;cFiletoDelete&gt; | &lt;aFiles&gt; | &lt;nFilePos&gt; ) --&gt; &lt;lDeleted&gt;\n * $ARGUMENTS$\n *     &lt;cFile&gt;  The name of the zip files from where the files will be deleted\n *\n *     &lt;cFiletoDelete&gt; An File to be removed\n *        _or_\n *     &lt;aFiles&gt;    An Array of Files to be removed\n *        _or_\n *     &lt;nFilePos&gt; The Position of the file to be removed\n * $RETURNS$\n *     &lt;lDeleted&gt; If the files are deleted, it will return .T.; otherwise\n *     it will return .f. in the following cases: Spanned Archives; the file(s)\n *     could not be found in the zip file.\n * $DESCRIPTION$\n *     This  function removes files from an Zip archive.\n * $EXAMPLES$\n *     ? \"has the file zipnew.i been deleted \", if( HB_ZIPDELETEFILES( \"\\test23.zip\", \"zipnew.i\" ), \"Yes\", \"No\" )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_ZIPTESTPK()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Test pkSpanned zip files\n * $SYNTAX$\n *     HB_ZIPTESTPK( &lt;cFile&gt; ) --&gt; &lt;nReturnCode&gt;\n * $ARGUMENTS$\n *     &lt;cFile&gt;  File to be tested.\n * $RETURNS$\n *     &lt;nReturn&gt; A code that tells if the current disk is the last of a\n *     pkSpanned disk set.\n * $DESCRIPTION$\n *     This function tests if the disk inserted is the last disk of an backup\n *     set or not.\n *     It will return the follow return code when an error is found\n *\n *     &lt;table&gt;\n *     Error code     Meaning\n *     114            Incorrect Disk\n *     103            No Call back was set with HB_SETDISKZIP()\n *     &lt;/table&gt;\n *\n *     Call this function to determine if the disk inserted is the correct\n *     one before any other function.\n * $EXAMPLES$\n *      if HB_ZIPTESTPK( \"a:\\test22.zip\" ) == 114\n *          ? \"Invalid Diskette\"\n *      endif\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_GETZIPCOMMENT()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Return the comment of an zip file\n * $SYNTAX$\n *     HB_GETZIPCOMMENT( &lt;szFile&gt; ) --&gt; &lt;szComment&gt;\n * $ARGUMENTS$\n *     &lt;szFile&gt;  File to get the comment from\n * $RETURNS$\n *     &lt;szComment&gt;  The comment that was stored in &lt;szFile&gt;\n * $DESCRIPTION$\n *     This function receives a valid zip file name as parameter,\n *     and returns the global comment stored within.\n * $EXAMPLES$\n *     ? \"The comment in test.zip is \", HB_GETZIPCOMMENT( \"test.zip\" )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETZIPCOMMENT()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Set an Zip archive Comment\n * $SYNTAX$\n *     HB_SETZIPCOMMENT( &lt;cComment&gt; ) --&gt; Nil\n * $ARGUMENTS$\n *     &lt;cComment&gt;   Comment to add to the zip archive\n * $RETURNS$\n *     &lt;NIL&gt; this function always return NIL\n * $DESCRIPTION$\n *     This function stored an global comment to an zip archive.\n *     It should be called before any of the compression functions.\n * $EXAMPLES$\n *     HB_SETZIPCOMMENT( \"This is an Test\" )\n *     hb_zipfile( \"test.zip\", { \"\\windows\\ios.ini\", \"\\windows\\win.ini\" } )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETBUFFER()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *\n * $SYNTAX$\n *     HB_SETBUFFER( [&lt;nWriteBuffer&gt;], [&lt;nExtractBuffer&gt;], [&lt;nReadBuffer&gt;] ) --&gt; Nil\n * $ARGUMENTS$\n *     &lt;nWriteBuffer&gt;   The size of the write buffer.\n *\n *     &lt;nExtractBuffer&gt; The size of the extract buffer.\n *\n *     &lt;nReadBuffer&gt;    The size of the read buffer.\n * $RETURNS$\n *     &lt;NIL&gt;            This function always returns NIL.\n * $DESCRIPTION$\n *     This function set the size of the internal buffers for write/extract/read\n *     operation\n *\n *     If the size of the buffer is smaller then the default, the function\n *     will automatically use the default values, which are 65535/16384/32768\n *     respectively.\n *\n *     This function be called before any of the compression/decompression\n *     functions.\n * $EXAMPLES$\n *     HB_SETBUFFER( 100000, 115214, 65242 )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNRARFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Gets the number of files that are in the RAR file\n * $SYNTAX$\n *      HB_GETUNRARFILE( &lt;cFile&gt; ) ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the rar file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the RAR file\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the RAR file.\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *      Local nFiles := HB_GETUNRARFILE( \"test.rar\" )\n *\n *      if nFiles &gt; 0\n *         ? \"This files contains \", nFiles\n *      endif\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_UNZIPFILEINDEX()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Unzip a compressed file referenced by it number in the zipfile\n * $SYNTAX$\n *      HB_UNZIPFILE( &lt;cFile&gt;, &lt;bBlock&gt;, &lt;lWithPath&gt;, &lt;cPassWord&gt;, &lt;cPath&gt;,\n *      &lt;nFile&gt; | &lt;anFiles&gt;, &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lWithPath&gt; Toggle to create directory if needed\n *\n *      &lt;cPassWord&gt; Password to use to extract files\n *\n *      &lt;cPath&gt;    Path to extract the files to - mandatory.\n *\n *      &lt;cFile&gt; | &lt;anFiles&gt; A File or Array of files position to extract - mandatory\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if all file was successfully restored, otherwise .f.\n * $DESCRIPTION$\n *      This function restores all files contained inside the &lt;cFile&gt;.\n *      If the extension is omitted, .ZIP will be assumed. If a file already\n *      exists, it will be overwritten.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      The &lt;cPath&gt; is a mandatory parameter. Set to \".\\\" to extract to the\n *      current dir\n *\n *      If &lt;cFile&gt; or &lt;anFiles&gt; are not provided, no files will be extracted!\n *      Make sure you provide the file or files you want extracted\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_UNZIPFILEINDEX( \"TEST.ZIP\",,,, \".\\\", 1 )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_UNZIPFILEINDEX( \"TEST2.ZIP\", {|cFile|, qout(cFile) },,, \".\\\", { 1, 2 } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\nEMG','',0,'','3a042v3s',1,0,'',6,0,0),(1134,305,5,2,0,'80.58.2.107',1130498565,1,0,1,1,1,1,'','','Just watched your homepage and remembered our conversation. Many users to remember all conversations <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nYes, we fixed the FW++ problem you described regarding to buttons and folders. We email you the FW++ patch. \n\nPlease let us know how it works there for you. Thanks.','',0,'','2p3l23ag',1,0,'',2,0,0),(1135,307,4,2,0,'80.58.2.107',1130499040,1,0,1,1,1,1,'','','Jose,\n\nPlease review samples\\tutor05.prg source code.\n\nREAD is not used in FiveWin.','',0,'','3sco673r',1,0,'',2,0,0),(1136,307,4,2,0,'80.58.2.107',1130499269,1,0,1,1,1,1,'','Re: @    SAY  GET    without resources','[quote=&quot;josevalle&quot;:16q024qh]Note: I have never used resources and have no resources editor[/quote:16q024qh]\n\nPlease review the PRGs provided in samples directory that also have a RC file with the same name. Resources use is easy and it will speed up very much your development.\n\nYou may download the free Pelles C resources editor, builted in the Pelles C IDE from here: <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m -->','',0,'gA==','16q024qh',1,0,'',2,0,0),(1137,306,3,2,0,'80.58.2.107',1130499522,1,0,1,1,1,1,'','','Darrell,\n\nAre you using Harbour or xHarbour ? Please try it with both. You have them from our setup files.\n\nProbably xHarbour will support that amount of files with no problems at all. Harbour requires an extra module to support so many files.','',0,'gA==','1rlcceep',1,0,'',2,0,0),(1138,279,6,24,0,'80.58.33.109',1130501620,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3vdw6snu]thank for the tscan class\nI Hope if Rafa Carmona let me said how we can use Tscan32 to OCR func\nI hope the guru of fivewin and xharbour help us\n[/quote:3vdw6snu]\nSorry , i speak spanish, i not find letter in english, please use you traslate.\n\nLa tecnologia de OCR, o reconocimiento de caracteres, si bien implica el usar\nun dispositivo para capturar o scanear un documento, NO implica que la\nclase TScan32 sea capaz de \'reconocer\' lo que a escaneado, por ejemplo,\nes posible usar, y de hecho asi tengo en el trabajo,  una webcam, que\nhace el trabajo de capturar el documento y realizar un OCR.\n\nEs decir, en usar un scanner para obtener una imagen en un fichero, no\ntiene nada que ver con el OCR.\n\nSi tu preguntas es si he realizado ALGO sobre OCR, directamente no, pero\nsi he realizado y usado conexiones a DLL que realizan esta tipo de trabajo.\n\nAhora bien, la licencia de una vale 6000 Euros, nada recomendable, y\nvarias estan pos los 3000€, y eso solamente para reconocimiento de DNI y pasaportes.\n\nSeria interesante averiaguar o realizar algun tipo de libreria que fuese\ncapaz de , segun unas plantillas, que es como funcionan realmente esto del OCR, devolvernos unos valores en texto.\n\nComo , cuando, y donde existe esto , no tengo ni idea.','',0,'gA==','3vdw6snu',1,0,'',24,0,0),(1139,285,2,146,0,'200.59.40.151',1130502554,1,0,1,1,1,0,'','','Este es el código que estoy utilizando:\n\n// Genero el objeto get, esto esta dentro de un for \n ObjGet       := TGet():New( (aDefFields[i][1]+1)*GET_CHARPIX_H, aDefFields[i][2]*GET_CHARPIX_W, bBloq,, nWidth*GET_CHARPIX_W, 11.3, cPicture,,,,oFont, .F.,, .T.,, .F.,, .F., .F.,, .F.,,, .F. )\n//leo la clausula when para ese get        \n        lcWhen       := aDefFields[i][6]\n//armo un bloque con la clausula y otra variable\n        lcWhenBloq   := \"{||nFormEditPos:= \" + STR( i, 3, 0 ) + \",\" + lcWhen + \"}\"\n// le asigno la evaluacion del bloque al dato bWhen del get\n        ObjGet:bWhen := &amp;( lcWhenBloq )\n// le asigno la lectura del valid al objeto get\n        ObjGet:bValid    := &amp;( aDefFields[i][7] )\nCada vez que un get pierde foco los pasos que realiza son los siguientes:\n* pasa por lostfocus de la clase tget\n* entra en gotfocus de la clase tget para asignarle el foco al get siguiente\n* evalua el valid del get que perdio foco\n* realiza todos los when y en las ventanas que tengo mas de 30 get se ve como pasa uno por uno aparte de los mensajes \n* le da foco al proximo get\nMuchas Gracias. Saludos. Leonor','',0,'','1xi4op0e',1,0,'',146,0,0),(1140,187,1,173,0,'203.151.140.113',1130503913,1,0,1,1,1,0,'','TWBrowse more...','Dear all,\n\nI\'m put some Bitmap and TWBrowse on Dialog. If I need to show bitmap under/behind when I painted bitmap on activate dialog, How I do ? If some who ever done that case, can I get some idea ?\n\nBest Regrad,\n\nPe N Chi\n\nPS: FiveWin 2.1c','',0,'','3n34xyxa',1,0,'',173,0,0),(1141,280,3,31,0,'195.182.84.105',1130504345,1,0,1,1,1,1,'','Re: FOR ... GET ...NEXT','[quote=&quot;Goran Papic&quot;:3nv7aum3]I had a same problem in FW1.9.2 and I solved it by replacing aGets array with vars:\n\nfor nGt := 1 to len( aFlds ) \n  cFld := aFlds[ nGt ] \n  xVar=\"x\"+strzero(nGt,3)\n  @ nRw, nCol GET oGets[ nGt ] VAR &amp;xVar .....\nnext\n\nI hope that it works in FW for Harbour too [/quote:3nv7aum3]\n\n   Yes Goran , your sample is working in that way , I know . I used in early something similar . Simply it\'s interesting to do in others ways , like Frank\'s sample with hashes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> .\n\n   With best regards !','',0,'gA==','3nv7aum3',1,0,'',31,0,0),(1142,285,2,74,0,'201.255.31.197',1130504393,1,0,1,1,1,1,'','','Leonor:\n\n            Estuve prestando atencion a un dialogo con whens y asi es, se evaluan todos los when, pero es el comportamiento normal y deseable (ademas ya lo confirmo el propio Antonio). En el codigo no se ve que contiene aDefFields[i][6] como condicion de los when, pero de todas maneras porque no queres que se evaluen todos los when de los gets ?. Sino, si queres controlar vos el momento de habilitar o deshabilitar los gets tendrias que hacerlo vos con :Enable() y <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable() en cada get en el momento que lo necesites. \n\nSaludos,','',0,'','2li16zkt',1,0,'',74,0,0),(1143,280,3,136,0,'66.201.225.194',1130506157,1,0,1,1,1,0,'','','Here\'s a way with the detached local method...\n\n  for i := 1 to Len( aGets )\n    @i,0 GET oGets[i] VAR aGets[i]\n    oGets[i]:bSetGet := oGets[i]:oGet:Block := ArrayGetBlock(aGets,i)\n  next\n\n\n  function ArrayGetBlock(aGets,i)\n\n    return { | u | If( PCount()==0, aGets[i], aGets[i]:= u ) }','',0,'','1jswrvuk',1,0,'',136,0,0),(1144,283,6,103,0,'200.164.92.242',1130508221,1,0,1,1,1,0,'','','Antonio,\n\n  [quote:tpe6tx5s]La DLL con los recursos está en una máquina remota ?[/quote:tpe6tx5s]\n\nNo, esta en un servidor Win 2000 Server y todas las estaciones usan Win XP. Es en una red local.\n\nKleyber','',0,'gA==','tpe6tx5s',1,0,'',103,0,0),(1145,308,3,160,0,'210.212.142.6',1130509519,1,0,1,1,1,0,'','How can I increase RowHeight of TWBrowse ?','Dear All,\n\nHow can I increase RowHeight of TWBrowse ?\n\nHow can I define Font to be used in TWBrowse ?\n\nTIA\nMilan.','',0,'gA==','2qoh3rwh',1,0,'',160,0,0),(1146,223,6,15,0,'211.23.144.6',1130511769,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1vvwqo9h]Richard,\n\nSeveral changes are required. Next FWH build will include it  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:1vvwqo9h]\n\nAntonio,\n\nI see.I will wait it for next build.\n\nRegards,\n\nRichard\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'gA==','1vvwqo9h',1,0,'',15,0,0),(1147,309,3,209,0,'209.217.64.30',1130511807,1,0,1,1,1,0,'','Mouse behavior','I ported an old FiveWin application to HFW it has some folders with standard input dialogs.  In the old application when I press the left button on a field  the cursor get positioned to the new locate at the click point.  In the FWH application clicking the left button does nothing.  However the right button moves the cursor to the new location but positions the cursor at the start of the field.  Client wants the old mousing restored.  Any ideas of what I must do?\n\nVytas','',0,'gA==','1kxtoawu',1,0,'',209,0,0),(1148,310,6,39,0,'201.220.111.30',1130514729,1,0,1,1,1,0,'','Donde encuentro la ultima version de toleauto ???','Pues eso, donde y cual es la ultima version de la clase toleauto de jose gimenez.\n\nGracias,','',0,'gA==','3rvda08c',1,0,'',39,0,0),(1149,311,6,39,0,'201.220.111.30',1130515576,1,0,1,1,1,0,'','como intercepto los evento con ole ??','Hola, estoy tratando de usar un ocx por medio de ole y no logro entender como interceptar un evento del objeto, alguna ayuda ????\n\nGracias,','',0,'gA==','2w095cll',1,0,'',39,0,0),(1150,312,2,235,0,'201.135.152.37',1130516459,1,0,1,1,1,0,'','necesito ayuda con codigos de barras y con archivos jpg','Codigos de Barra\nResulta que estoy usando la barlib (de cayetano), pero no me funciona, este es parte de mi codigo:\n\n[color=green:1l5uhgb0]\nFunction ImprimeCB(nTipoBarra,nCuantos,cCodigoProd,cNomArtic)\nLocal oPrn,oFont,oFong,oFonc,oFonr,oFonm,lCondi,vRow:=1,xStep,yStep,vCont\nLocal vTitle:=tRazon,vCodeB,vPage:=0,vCort:=1\nCursorWait()\nPRINT oPrn PREVIEW TITLE \"Imprimiendo Códigos de Barra\"\n  oPrn:lPrvModal := .T.\n  DEFINE FONT oFonr NAME \"ARIAL\" SIZE 0,-7  OF oPrn\n  DEFINE FONT oFonc NAME \"ARIAL\" SIZE 0,-5  OF oPrn\n  DEFINE FONT oFont NAME \"ARIAL\" SIZE 0,-15 BOLD OF oPrn\n  DEFINE FONT oFonm NAME \"ARIAL\" SIZE 0,-19 BOLD OF oPrn\n  DEFINE FONT oFong NAME \"ARIAL\" SIZE 0,-22 OF oPrn\n  PAGE\n    oPrn:CmSay(vRow,1,vTitle,oFont,2,CLR_BLUE)\n    vRow:=vRow+0.5\n    oPrn:CmSay(vRow,1,AllTrim(cNomArtic),oFont,2,CLR_BLUE)\n    vRow ++\n    FOR vCont:=1 To nCuantos\n      vCodeB:=AllTrim(cCodigoProd)\n      oPrn:CmSay(vRow,1,vCodeB,,2,CLR_BLACK)\n      vRow:=vRow+0.5\n      If vCont&gt;50\n        ENDPAGE\n        PAGE\n          vRow:=1\n          oPrn:CmSay(vRow,1,cNomArtic,oFont,2,CLR_BLUE)\n          vRow++\n      EndIf\n    NEXT\n  ENDPAGE\n  vRow:=1\n  PAGE\n    FOR vCont:=1 To nCuantos\n      vCodeB:=AllTrim(cCodigoProd)\n      oPrn:CmSay(vRow,1,cNomArtic,oFont,2,CLR_BLUE)\n      oPrn:CmSay(vRow+0.5,1,vCodeB,oFonr,2,CLR_BLACK)\n      Do Case\n        Case nTipoBarra=1 ; @ vRow+0.8,1 CM_CODABAR vCodeB OF oPrn\n        Case nTipoBarra=2 ; @ vRow+0.8,1 CM_CODE128 vCodeB OF oPrn\n        Case nTipoBarra=3 ; @ vRow+0.8,1 CM_CODE3_9 vCodeB OF oPrn\n        Case nTipoBarra=4 ; @ vRow+0.8,1 CM_EAN13 vCodeB OF oPrn\n        Case nTipoBarra=5 ; @ vRow+0.8,1 CM_EAN8 vCodeB OF oPrn\n        Case nTipoBarra=6 ; @ vRow+0.8,1 CM_INT25 vCodeB OF oPrn\n        Case nTipoBarra=7 ; @ vRow+0.8,1 CM_IND25 vCodeB OF oPrn\n        Case nTipoBarra=8 ; @ vRow+0.8,1 CM_MAT25 vCodeB OF oPrn\n        Case nTipoBarra=9 ; @ vRow+0.8,1 CM_SUP5 vCodeB OF oPrn\n        Case nTipoBarra=10 ; @ vRow+0.8,1 CM_UPCA vCodeB OF oPrn\n[/color:1l5uhgb0]\n\npor mas que le busco no me imprime el codigo de barra (imprime: nombre de la empresa, clave del producto), tengo al principio el barcode.ch\n\narchivos jpg\ntengo el sig. codigo:\n[color=green:1l5uhgb0]\nFunction VerFoto(Vars,oDlg)\nlocal oBmp\nmsginfo(vars)\nIf AllTrim(Vars)=AllTrim(Artic-&gt;Foto)\n  MemoWrit(\"$Foto.bmp\",AllTrim(Artic-&gt;Foto))\nEndIf\n*REDEFINE BITMAP oBmp ID 103 FILENAME \"$Foto.bmp\" OF oDlg update\noDlg:UPDATE() ; oDlg:aEvalWhen()\nReturn(.T.)[/color:1l5uhgb0]\n\nademas la guardo en un campo memo de la siguiente forma:\n[color=green:1l5uhgb0]\n      Artic-&gt;NomFoto:=aVars[15,2]\n      nHandle:=FOpen(\".\\Fotos\\\"+aVars[15,2])\n      tFile:=\"\"\n      Do While .T.\n        nRead:=FRead(nHandle,@cBuff,255)\n        tFile+=Left(cBuff,nRead)\n        If nRead != 255\n          Exit\n        EndIf\n      EndDo\n      FClose(nHandle)\n      // Guarda foto en campo memo\n      If Rec_Lock(.5)\n        Replace Artic-&gt;Foto With tFile\n        DBCommit() ; DBUnLock()\n      EndIf\n      DBCOMMITALL() ; DBUNLOCKALL()[/color:1l5uhgb0]\n\ndentro del folder en donde muestro la foto tiene el sig. codigo:\n[color=green:1l5uhgb0]\nRedefine GET aVars[15,1] VAR aVars[15,2] ID 102 OF aVars[1,1]:aDialogs[3]\nReDefine Button ID 809 OF aVars[1,1]:aDialogs[3] Action(VerFoto(aVars[15,2],aVars[1,1]:aDialogs[3])) UPDATE\nREDEFINE BITMAP oBmp ID 103 FILENAME \"$Foto.bmp\" OF aVars[1,1]:aDialogs[3] update[/color:1l5uhgb0]\n\npero nunca me muestra la figura y cuando me lo llega a hacer, en el siguiente articulo me muestra la foto del articulo anterior.\n\ncomo se soluciona esto????\nuso clipper 5.3b blinker y fivewin 2.2\n\nde antemano muchas gracias por su ayuda','',0,'Ag==','1l5uhgb0',1,0,'',235,0,0),(1151,308,3,6,0,'82.61.144.129',1130517197,1,0,1,1,1,1,'','Re: How can I increase RowHeight of TWBrowse ?','1) You have to increase the font.\n\n2) Use the FONT clause.\n\nEMG','',0,'Ag==','3hzc96li',1,0,'',6,0,0),(1152,279,6,49,0,'82.59.143.103',1130519404,1,0,1,1,1,0,'','','thanks...\nI understand lating language because I have an uncle in Venezuela..\nFor the Ocr I found any source for Delphi 6 ma nothing for c++ .\nI think there is something in Internet and I continue thr search...\n\nRegards','',0,'Ag==','2qbtdtsx',1,0,'',49,0,0),(1153,313,3,49,0,'82.59.143.103',1130521536,1,0,1,1,1,0,'','Ado &amp; MDB','I want use a file MDB on Xharbour( &amp;fw) with ado or another class\nI want open a table and make insert,mod,search and print\nthere is some example to make it ?\n\nRegards\nSilvio','',0,'Ag==','36v5o6q1',1,0,'',49,0,0),(1154,285,2,146,0,'200.59.43.140',1130522316,1,0,1,1,1,0,'','','Bien en realidad esto lo encuentro por otro problema relacionado que tengo: cuando un get pierde foco realiza los siguientes pasos:\n* entra en lostfocus de la clase tget\n* entra en gotfocus de la clase tget para darle foco al proximo get\n* realiza la condicion valid del get que perdio foco, cuando esa condicion no se cumple hace que pierda foco el get proximo y le vuelve a colocar el foco al que esta validando. Para hacer que pierda foco el get siguiente verifica tambien la condicion valid del mismo cuando el proximo get no es obligatorio esta todo bien, pero si el proximo get es obligatorio  entra en un blucle y no puede salir de el. \nComo puedo solucionar ese problema.\nMil Gracias por el tiempo que me estan dedicando. Saludos. Leonor','',0,'Ag==','30m7clou',1,0,'',146,0,0),(1155,310,6,138,0,'201.154.236.172',1130522345,1,0,1,1,1,1,'','','Si utilizas xHarbour no la necesitas, viene incluida.','',0,'Ag==','lrpyitv3',1,0,'',138,0,0),(1156,297,1,138,0,'201.154.236.172',1130522863,1,0,1,1,1,1,'','','For me the fastest way are resources in RC files then linked into the EXE.\n\nI\'ve been working this way for years.... no complain.','',0,'Ag==','2uqcg9q7',1,0,'',138,0,0),(1157,314,20,8,0,'213.45.250.227',1130523910,1,0,1,1,1,0,'','Compatibilità applicazioni 16 bit','Vorrei aggiornare la piattaforma hardware su cui lavoro passando dai P4 a 32 bit ai nuovi Pentium serie 600 con supporto a 64 bit o AMD a 64 bit però dovendo utilizzare un vecchio RAD scritto in clipper che non posso ricompilare per mancanza dei sorgenti mi sorge il dubbio dell\'esecuzione del codice a 16 bit sulle cpu a 64 bit idem per applicazioni xHarbour compilate con il borland c++ che come sappiamo è a 32 bit.\nForse è solo paranoia (  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ) ma qualcuno di voi ha avuto modo di fare dei test in proposito ?\nGrazie e ciao a tutti.\nRoberto.','',0,'Ag==','3gltkzcs',1,0,'',8,0,0),(1158,310,6,39,0,'201.220.111.30',1130524320,1,0,1,1,1,0,'','','Estoy usando harbour .43 con fwh23c y creo que no me sirve la clase que tiene el xharbour, \n\nGracias de todas formas.\n\nAtte,\nLautaro','',0,'Ag==','2xyhsy9z',1,0,'',39,0,0),(1159,299,6,104,0,'201.19.93.136',1130524619,1,0,1,1,1,0,'','','Olá Hernan,\n\nMuito bom trabalho esta nova versão de wbrowse <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)\n\nEm todos o meus sistemas uso o wbrowse versão 1.7. Na minha opnião o melhor browse para FWH. Você tem uma previsão para o lançamento da versão 1.8 ?\n\nObrigado e sucesso,\n\nRossine.','',0,'Ag==','173c73nb',1,0,'',104,0,0),(1160,285,2,74,0,'201.255.139.148',1130526555,1,0,1,1,1,1,'','','Leonor:\n\n            A que te referis con \"entra en un blucle y no puede salir de el\", cuando un get no cumple el valid pasa lo que vos decis, el foco \'rebota\' y vuelve al get que no cumple el valid y no podes ir al siguiente hasta que no se cumpla, salvo que tengas especificado por ejemplo la tecla VK_UP para devolver .T. en el valid y en ese caso x ejemplo volver al get anterior.\n\nSaludos,','',0,'Ag==','smuuomc5',1,0,'',74,0,0),(1161,248,6,140,0,'200.84.226.129',1130527288,1,0,1,1,1,0,'','','Antonio... Gracias por responder..\n\nLo que yo necesito no es repetir acciones en una secuencia estricta... Se trata de llenar el formulario de la pagina web con los datos extraidos de una DBF, y hasta cierto punto debo poder detectar cuando los datos de un formulario han sido rechazados y por cual motivo...\n\nLa pagina pertenece a un ente gubernamental de aca de Venezuela con unos tiempos de respuesta verdaderamente desesperantes en especial en el horario laboral habitual...\n\nDe todas formas voy a seguir tu sugerencia a ver que encuentro...','',0,'Ag==','2kdpeqkg',1,0,'',140,0,0),(1162,315,6,228,0,'201.245.106.245',1130529819,1,0,1,1,1,0,'','alguien tiene una version antigua del xharbour','Hola a todos los compañeros del foro, tengo un problema con la ultima version del xharbour que encuentro en la pagina oficial y no puedo compilar correctamente.\n\nAlguien me puede decir en donde descargar una version o me puede enviar una version mas antigua muchas gracias.\n\nDESDE COLOMBIA\nLEANDRO ALFONSO','',0,'Ag==','2pqaw4sa',1,0,'',228,0,0),(1163,297,1,6,0,'82.57.160.136',1130529833,1,0,1,1,1,1,'','','Me too. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','39w3mle6',1,0,'',6,0,0),(1164,308,3,74,0,'201.255.139.148',1130530365,1,0,1,1,1,1,'','','Milan:\n\n			 DEFINE FONT oFont NAME \"ARIAL\" SIZE 0,-9 			 DEFINE FONT oFont1 NAME \"ARIAL\" SIZE 0,-9 BOLD\n			 DEFINE FONT oFont5 NAME \"ARIAL\" SIZE 0,-12 BOLD\n\n          You can:\n\n-Define a font to use with the browse:\n\n 			 REDEFINE LISTBOX oBrwMov fields  ID 999  OF oDlg ;\n			 ALIAS (cALIAS) FONT oFont;\n  		 COLOR CLR_BLACK, CLR_WHITE UPDATE ON RIGHT CLICK RMENU(oDlg);\n			 ON DBLCLICK IF(oBrwMov:nColAct &gt; 0,oBrwMov:Edit(oBrwMov:nColAct,.t.),)\n\n-Define another font for a specific column:\n\n	 			oBrwMov:bFont:={|nRow,nCol,nStyleLine| IF((nStyleLine==1.or.nStyleLine==0).and.(nCol==5.or.ncol==6.or.ncol==7),oFont5:hFont,;\n	 			                   IF(nStyleLine==2,oFont5:hFont,)) }\n\n-Use diferent height of headers, rows or footers:\n\n				oBrwMov:nHeaderHeight:= 32\n				oBrwMov:nFooterHeight:= 25\n				oBrwMov:nLineHeight:= 16\n\nAnd more... Read the header of wbrowse.prg\n\nRegards,','',0,'Ag==','37n9amot',1,0,'',74,0,0),(1165,308,3,6,0,'82.57.160.136',1130531008,1,0,1,1,1,1,'','','FWH standard TWBrowse does not support bFont, nHeaderHeight,  nFooterHeight or nLineHeight.\n\nEMG','',0,'Ag==','3keex66w',1,0,'',6,0,0),(1166,316,6,207,0,'148.233.32.162',1130532108,1,0,1,0,1,0,'','alguien tiene ejemplo de hbcomm?','Que tal foro:\n\n       Actualmente tengo la necesidad de leer codigo de barra desde el puerto serial, ya consegui la hbcomm, solo que no se por donde empezar, si alguno de ustedes tiene algo se los agradezco...\n\nAtte \nMiguel Salas\nSaludos','',0,'Ag==','2v0b90lb',1,0,'',207,0,0),(1167,285,2,146,0,'200.59.43.140',1130532422,1,0,1,1,1,0,'','','Te explico puntualmente un caso en el que me entra en un bucle y no sale de el. Vamos a suponer que tengo 4 get trabajando en una ventana:\n\nCodigo: primer get  con valid verificando que no exista en la tabla y mensaje de codigo existente\nNombre: segundo get con valid que no sea vacio y mensaje tiene que ingresar un dato si o si\nDireccion: tercer get no importa con que\nLocalidad: cuarto get no importa con que\n\nToma foco codigo, ingreso un codigo existente presiono enter, entra en lostfocus de clase tget, entra en gotfocus de clase tget pasando el foco al segundo get, valida el primer get como existe efectivamente rebota y quiere volver el foco al primer get, entonces entra en lostfocus el segundo get lo valida y como es vacio me muestra simultaneamente los dos msginfo y no para hasta que aborto el programa.  Yo tengo una funcion armada que revisa cuando el último get pierde foco guarda todos los gets en la tabla correspondiente, esa funcion esta asignada al dato bLostFocus de cada get pero previamente conte los gets activos en la ventana y lo primero que pregunto es si es el último get lo hace sino sigue. Si en el valid del segundo get no hay ninguna condicion el foco rebota al primer get y queda ahi hasta que coloco un codigo inexistente como corresponde, el problema se presenta cuando el valid del get siguiente tiene una condicion obligatoria. Nuevamente Mil Gracias. Saludos. Leonor.','',0,'Ag==','2rwvq3g0',1,0,'',146,0,0),(1168,307,4,150,0,'87.223.255.127',1130533445,1,0,1,1,1,1,'','','With the Pelles resource editor I have changed the names and the sizes. But it also chages some things in the header of the file.\n\nI have a workaround, just copy from the new files what refers to the dialog and paste in you tutor04.rc.\n\nThanks Antonio.','',0,'Ag==','n3koxt06',1,0,'',150,0,0),(1169,317,2,129,0,'201.239.148.37',1130534907,1,0,1,1,1,0,'','Es difinitivo, fw, para clipper murio, nadie responde...','Despues de 1 semana de veer este post, me doy cuenta de algo,\n\n1. Fivewin para Clipper, no existe.\n2. Los grandes amigos y Dbwide.ar.com.  ya no existen...\n3. Solo se ve movimiento en fwh..\n\nEn pocas palabras, estoy igual o pero que hace casi 1 año atras, cuando me meti en esto y pregunte, \"TIENE FUTURO\" fivewin.., gracias al foro, sali adelante, pero ahora........ si los \"amigos\", desaparecieron, y \"no llego\" la generacion de recambio, ademas, no existen manuales claros \"los hubo, pero ahora nada, y lo que es pero,,  tiene vida realmente Fivewin, no sera luchar contra los molinos de viento, y saberse perdido, pero ser terco de querer usar el \"antiguo\" formato de clipper, y las clases de los grandes amigos, \"salvo\", tsbrowse y \"tdbf\", creo, tienen algo de documentacion, el resto nada....... o sea, no hay vuelta.  CLIPPER A MUERTO, VIVA ... NO SE QUE','',0,'Ag==','35c8fmn0',1,0,'',129,0,0),(1170,308,3,74,0,'201.255.139.148',1130534912,1,0,1,1,1,1,'','','Enrico/Milan:\n\n                   The examples are for Hernan Ceccarelli\'s wbrowse class.\n\nRegards,','',0,'Ag==','1pag8k77',1,0,'',74,0,0),(1171,285,2,74,0,'201.255.139.148',1130535574,1,0,1,1,1,1,'','','Leonor:\n           \n            Eso no deberia pasar, el valid del segundo get no deberia actuar si no se cumple el del primero. El problema debe estar en el codigo que debes tener asignado a algun :bGotFocus o :bLostFocus que debe hacer que se refresquen los dos gets y actuen ambos valids.\n\n            Para no hacerla tan larga por aca hace lo siguiente, mandame un prg reducido ilustrativo del problema que yo pueda compilar, probar y corregir a mi correo.\n\nSaludos,','',0,'Ag==','1z7mi5zi',1,0,'',74,0,0),(1172,318,6,131,0,'83.53.153.168',1130537940,1,0,1,1,1,0,'','reiniciar una aplicación','Hola:\nMe gustaría saber si existe la manera de reiniciar una aplicación desde dentro de la misma. Hay situaciones como un cambio de idioma, coger datos de configuración,... que hacen necesario reiniciar la aplicación, y me gustaría saber como se hace.\n\nSaludos,','',0,'Ag==','3bp4rrb8',1,0,'',131,0,0),(1173,299,6,15,0,'203.73.90.195',1130550385,1,0,1,1,1,0,'','Re: Wbrowse footer','[quote=&quot;Hernan Diego Ceccarelli&quot;:2cym1eih][quote=&quot;Silvio&quot;:2cym1eih]For Hernan..\nOn 32 bit footers\' wbrowse not run ...\n\nWhy ?\n\nRegards\nSilvio[/quote:2cym1eih]\n\nThe Next Version 18 (soon ... i\'m working in beta version) TW++ support full headers/footers in native mode.\n\n[img:2cym1eih]http&#58;//img480&#46;imageshack&#46;us/img480/1650/tw180wk&#46;jpg[/img:2cym1eih]\n\nRegards,\nHernan[/quote:2cym1eih]\n\nHello Hernan,\n\nCould you Send to me TW++ v18 when Finished?\n\nRegards,\n\nRichard\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'iA==','2cym1eih',1,0,'',15,0,0),(1174,315,6,52,0,'201.235.155.110',1130554088,1,0,0,1,1,0,'','Re: alguien tiene una version antigua del xharbour','Esas usando FWH? si es asi tengo problemas con lo mismo pero me dicen que la version 26 del FWH funciona de 10.\n[quote=&quot;leandro&quot;]Hola a todos los compañeros del foro, tengo un problema con la ultima version del xharbour que encuentro en la pagina oficial y no puedo compilar correctamente.\n\nAlguien me puede decir en donde descargar una version o me puede enviar una version mas antigua muchas gracias.\n\nDESDE COLOMBIA\nLEANDRO ALFONSO[/quote]','',0,'iA==','7u191wv9',1,0,'',52,0,0),(1175,223,6,52,0,'201.235.155.110',1130554874,1,0,0,1,1,0,'','Sobre ToolTip','Hernan podrias pasarme el ejemplo de este tema?\ngracias\n\n[quote=&quot;Hernan Diego Ceccarelli&quot;][quote=&quot;Antonio Linares&quot;][quote=&quot;Hernan Diego Ceccarelli&quot;]Yo he implementado Ballons en los ToolTip, despues cuando llegue a casa te los envio por mail <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote]\n\nEn los tooltips de la toolbar ?  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote]\n\nEhhh amigo, ya desconfias de mi  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> acaso\n[img]http://img480.imageshack.us/img480/8505/tooltopballon7rl.jpg[/img]   <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \ny con titulito y todo  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->[/quote]','',0,'iA==','1r1x5eru',1,0,'',52,0,0),(1176,319,3,52,0,'201.235.155.110',1130555334,1,0,0,1,1,0,'','Problem with TPrinter and printer HP...','Hi all:\n\n   Who has problem with class Tprinter(), i use \" HP Officejet 4255 All on One\".\n\n\n   Problem: don´t print and put this error: Printer Not Ready.\n\nSo solution?\n\nTank you.','',0,'iA==','1vqfrzhc',1,0,'',52,0,0),(1177,320,6,52,0,'201.235.155.110',1130557870,1,0,0,1,1,0,'','Esperando conexión...','Amigos:\n\nEstoy haciendo un programa que trabaja con Pipes. en el proceso mismo el programa debe esperar hasta que la conexion sea satisfactoria, todo esto esta hecho en C y necesito que mientras no se realice una conexión se muestre un Mensaje informando que se esta esperando una conexión, como puedo hacer esto? le envio el fragmento del que hablo. Gracias por adelantado.\n\n[color=blue]   while (ConnectNamedPipe( npipe, NULL ) ){\n      char buf[ 1024 ];\n      char conf[ ] = \" Confirmación... \";\n      DWORD bread;\n\n      while ( ReadFile( npipe, ( void* ) buf, 1023, &amp;bread, NULL ) ) {\n         buf[ bread ] = 0;\n\n         // Aca mostraria la cadena de caracteres\n         // que recibio la pipe\n\n         if( !WriteFile( npipe, ( void* )conf, strlen( conf ), &amp;bread, NULL ) ){\n            // Error de escritura en pipe\n         }\n      }\n\n      DisconnectNamedPipe( npipe );\n\n      #ifdef TRACE_ON\n         // esperando conexion...\n      #endif\n   }[/color]','',0,'iA==','3owas44l',1,0,'',52,0,0),(1178,321,3,195,0,'62.38.27.190',1130563087,1,0,1,1,1,0,'','Why Tanimate stacks when used with db reindexing functions.','Hi FiveWiners\n\nTrying to make a \"live\" reindex function using TAnimate class found that when  using it with OrderCreate() it stacks (stop playing...). When i Used alone in a resource dilaoge plays fine.\n\nAny help apreciate.....\n\nTIA\nDIONISIS','',0,'iA==','2xdysk7i',1,0,'',195,0,0),(1179,299,6,45,0,'200.82.51.191',1130564846,1,0,1,1,1,0,'','Re: Wbrowse footer','Estimados amigos,\n    Bueno, veo que parecen atractivas los screenshots, ya me empiezan a bombardear el correo electronico <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> y ahora los post estos.\nEn rigor de verdad estoy haciendo pruebas, con los Headers y Footers, ya los tengo finalizados, son dificiles de domar, notifican cosas a veces si a veces no, en funcion de como esta windows configurado, etc,etc, pero ya le tome la mano, y estan funcionando correctamente. Me falta chequear un par de cosas relacionadas con otros bugs que encontre.\nPor favor, sean pacientes, ya voy a sacar la revision y actualizar mi website, no tengo mucho tiempo disponible y hago como puedo las cosas.\nRecuerden eso si, mandarme al correo electronico BUGs que hayan encontrado en la ultima version para verificar que no me haya olvidado de corregirlo. Otro tema, los Headers / Footers solo funcionaran con Compiladores de 32bit, NO en Clipper, primero porque no se justifica y segundo la compatibilidad con 16 bit es deprimente en este control.\n\nSalu2\nHernan','',0,'iA==','ivw4b1vh',1,0,'',45,0,0),(1180,321,3,2,0,'83.39.227.26',1130567419,1,0,1,1,1,1,'','','Dionisis,\n\nYou have to call SysRefresh() from your reindexing process from time to time to let Windows process pending messages.','',0,'iA==','2y3aqz8a',1,0,'',2,0,0),(1181,322,3,31,0,'195.182.84.105',1130571467,1,0,1,1,1,1,'','Index progress','Hi ! \n\n I\'m using this for CDX index progress , this works fine :\n\nMsgMeter( { | oMeter, oText, oDlg, lEnd | ;\nIndProgres( oMeter, @lEnd, cInd_key, cInd_name, cDbf_name, \ncDb_kel ) }, \"File - \" + alltrim( cDbf_name ) + \" . Index - \" + ;\nalltrim( str( i, 2 ) ) + \" ... \", ;\n\"Please wait , creating index of database . \" + alltrim( str( len( aKeys ), \n2 ) ) + \" ind.\" )\n\nfunction IndProgres( oMeter, lEnd, cInd_key, cInd_name, cDbf_name, cDb_kel )\noMeter:nTotal := ( cDbf_name )-&gt;( RecCount() )\nindex on &amp;cInd_key tag &amp;cInd_name to ( cDb_kel + cDbf_name ) ;\neval( oMeter:Set( ( cDbf_name )-&gt;( RecNo() ) ), SysRefresh(), !lEnd )\nreturn( NIL )\n\n   How it make to work ADS CDX ? What values to use instead RecCount() and recno() ?\n\n   With best regards !','',0,'iA==','2yg53cng',1,0,'',31,0,0),(1182,318,6,17,0,'81.41.214.105',1130573506,1,0,1,1,1,1,'','Es una forma poco ortodoxa pero me funciona','Es una forma poco ortodoxa pero me funciona,\ndonde quieras que se reinicie tu aplicación,\n1º llamas a un exe que va a volver a llamar a tu aplicación\n2º te sales de la aplicación\n\nEspero te sirva,\nSaludos\n\n .... tu codigo de tu aplicacion ...\n  Ejecuta(\"LlamaNuevoExe.EXE ) \n  ErrorLevel(3)\n  PostQuitMessage(0)\n  __Quit()\n .... fin\n\n\n--- LlamaNuevoExe.EXE ---\n// LLamaNuevoExe.prg  sólo tiene una función y es llamar a tu aplicación.\nfunction LlamaNuevoExe()\n Ejecuta(\"TuAplicación.EXE\")\nReturn nil\n\n-- Function Ejecuta --\n*******************************\n* Ejecutar Programas Externos *\n*******************************\nFUNCTION Ejecuta(cEjecuta, lSeparate)\nLOCAL hInstance\nDEFAULT lSeparate TO .F.\n  IF IsWinNT()\n    IF lSeparate\n     hInstance := WinExec(\"cmd.exe /c start /SEPARATE \"+cEjecuta ,0)\n    ELSE\n     hInstance := WinExec(\"cmd.exe /c start \"+cEjecuta ,0)\n    ENDIF\n  ELSE\n    hInstance := WinExec(\"Start \"+cEjecuta ,0)\n  ENDIF\nRETURN hInstance','',0,'iA==','2a4twgid',1,0,'',17,0,0),(1183,304,6,17,0,'81.41.214.105',1130573661,1,0,1,1,1,1,'','Solución en xHarbour','En xHarbour he encontrado esta función\n  DirRemove(cDir)\ny si que funcíona\nUn saludo','',0,'iA==','32c6aabu',1,0,'',17,0,0),(1184,244,3,170,0,'83.179.11.79',1130586542,1,0,1,1,1,1,'','','Antonio,\n\nCan you tell to all your users of FWH (before october 2005)\nhow they can continue to work with the new HB_STACK\nlink error ?\n\nWe need the list of functions of FIVEHC.LIB we can not use now,\nto continue to work.\n\nToday, the FWH 2.5 users :\n\n- not \"could upgrade to FWH 2.6\"\n- but \"must absolutely upgrade to the most recent build of FWH 2.6\"\n\nThere is not a possibility, but the ONLY way.\n\nIsn\'t it ?\n\nRegards,','',0,'iA==','1h74yit1',1,0,'',170,0,0),(1185,323,4,6,0,'87.1.225.40',1130588548,1,0,1,1,1,1,'','Compiler/linker switches','Dear friends, what are the optimal compiler/linker switches for a FWPPC app?\n\nAnother thing: I noticed that a FWPPC EXE can greatly compressed. Can we use any compiler/linker switches to reduce the size of the EXE?\n\nEMG','',0,'iA==','34xtfr0a',1,0,'',6,0,0),(1186,324,4,6,0,'87.1.225.40',1130588684,1,0,1,1,1,1,'','Bitmaps limitation','Dear Antonio, have you found the time to examine the issue I sent you some days ago?\n\nEMG','',0,'iA==','3bn0wr0r',1,0,'',6,0,0),(1187,324,4,2,0,'83.39.227.26',1130591447,1,0,1,1,1,1,'','','Enrico,\n\nNot yet. Its on the to-do list','',0,'iA==','3lt9c1ju',1,0,'',2,0,0),(1188,244,3,2,0,'83.39.227.26',1130591668,1,0,1,1,1,1,'','','Badara,\n\nIs it our fault if xHarbour has been modified the way it has been ?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'iA==','nu6mapq8',1,0,'',2,0,0),(1189,244,3,170,0,'213.103.193.3',1130593157,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:548sn8ub]Badara,\n\nIs it our fault if xHarbour has been modified the way it has been ?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:548sn8ub]\n\nAntonio,\n\nIs it the fault of your Fivewin for [x]Harbour users,\nwho have pay, not for [x]Harbour, but for FWH,\nand have today a \"version for test only\"  ?\n\nDo you think they buy FWH if they know that before pay ?','',0,'gA==','548sn8ub',1,0,'',170,0,0),(1190,325,3,53,0,'200.66.175.205',1130595620,1,0,1,1,1,0,'','Date Picker','Could somebody send to me a small example to define in resources and to use in PRG file the DATE PICKER control ?\n\nRegards','',0,'gA==','2spp8onh',1,0,'',53,0,0),(1191,326,6,53,0,'200.66.175.205',1130595805,1,0,1,1,1,0,'','Ejemplo de Date Picker','Amigos:\n\nPodría alguien enviarme un pequeño ejemplo para definir en recursos y usar en PRG el control Date Picker ?\n\nGracias, Saludos','',0,'gA==','1kh1cvyg',1,0,'',53,0,0),(1192,299,6,73,0,'201.138.166.223',1130597035,1,0,1,1,1,0,'','Re: Wbrowse footer','Hola Hernan,\nEn veradad tu trabajo es excelente y valoramos y apreciamos mucho esta estupenda clase, el tiempo que sea necesario para que este funcional es nada comparado por el beneficio que obtendremos.\nEn cuanto a bitmap sip si puedo colocarlos en los headers y footers, a mi en lo personal me interesaria la combinacion de ambos texto+imagen, pero bueno con lo que tiene es mas que suficiente, en estos momentos estoy tratando de adaptar un recordselector en tu wbrowse algo muy rudimentario pero es cuestion personal, a ver si queda luego informo... \nAnotados en primera fila para wbrowse18\nSalu2\nPaco','',0,'gA==','37vd8f5n',1,0,'',73,0,0),(1193,327,6,87,0,'83.45.250.105',1130598464,1,0,1,1,1,0,'','Twbrowse 18  ?','Hernan para cuando la proxima versión del Twbrowse ?\n\n\n   un saludo','',0,'gA==','1n0uug0z',1,0,'',87,0,0),(1194,328,6,73,0,'201.138.166.223',1130599513,1,0,1,1,1,0,'','Texto..','Hola foro,\ntengo un dbf con el nombre del cliente en mayusculas,\nen consultas tengo un browse y despliega el campo del nombre del cliente en mayusculas, lo que quiero es si se muestra asi \"FRANCISCO JAVIER HORTA GONZALEZ\"  cambiarlo y que se muestre asi \"Francisco Javier Horta Gonzalez\", la primer letra de cualquier texto siempre en mayuscula y lo demas en minuscula, hay alguna funcion?\nGracias\nPaco','',0,'gA==','8xjopkq6',1,0,'',73,0,0),(1195,328,6,16,0,'200.64.60.151',1130603017,1,0,1,1,1,1,'','Me parecio curioso e hice esta funcioncita a ver que tal...','function main ()\n         ? CapsFirst(\'PRIMERO SEGUNDO TERCERO\')\n         ? CapsFirst(\'primero segundo tercero\')\n         ? CapsFirst(\'pRIMero SeGUNdo terceRO\')\n         ? CapsFirst(\'1er 2do 3ero\')\nReturn NIL\n\nFunction CapsFirst( cTxt )\n         Local nFor, cRet := \'\'\n         lCaps := .t.\n         For nFor := 1 to Len( cTxt )\n             if lCaps\n                cChar := Upper( SubStr( cTxt,nFor,1 ) )\n                lCaps := .f.\n              Else\n                cChar := Lower( SubStr( cTxt,nFor,1 ) )\n             Endif\n             cRet += cChar\n             if SubStr( cTxt,nFor,1 ) = \' \'\n                lCaps := .t.\n             Endif\n         Next\nReturn cRet\n\n// Saludos al Foro','',0,'gA==','3mda1roz',1,0,'',16,0,0),(1197,328,6,16,0,'200.64.60.151',1130603194,1,0,1,1,1,1,'','No se porque no lo Indento, lo pegue indentado y lo puso asi','Gracias...','',0,'gA==','2xkxnwik',1,0,'',16,0,0),(1198,326,6,16,0,'200.64.60.151',1130603635,1,0,1,1,1,1,'','Aqui ta','En el Prg\n\nRedefine dtpicker oFecha var M_FECHA  id X111_GETFECHA  ;\n              valid   ValidaFec()  of ODlg Update\n\nEn el rc\n\nCONTROL \"\", X111_GETFECHA, \"SysDateTimePick32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 71, 12, 52, 11','',0,'gA==','1fesjhlh',1,0,'',16,0,0),(1199,287,6,215,0,'201.129.19.134',1130604392,1,0,1,1,1,0,'','Re: ¿Cóm se ordena un array?','Funciona bien,\ngracias \n\n\nSaludos\nFernando Leal\nMéxico, DF','',0,'gA==','3rfqykaf',1,0,'',215,0,0),(1200,193,6,61,0,'200.40.237.52',1130604648,1,0,1,1,1,0,'','Verhoven prueba esta sugerencia','El PellesC me funciona sin problemas.\n\nEn Tools-Options-Folder\nExecutables= C:\\PellesC\\bin\nLibraries= C:\\PellesC\\Lib, C:\\PellesC\\Lib\\Win, C:\\PellesC\\Lib\\Win\\gl\nIncludes= C:\\PellesC\\Include, C:\\PellesC\\Include\\Win\n\nAgragale a tu PellesC estos directorios y despues me cuentas.\n\nSaludos\nRuben Fernnandez','',0,'gA==','25rdjz6s',1,0,'',61,0,0),(1201,326,6,53,0,'200.66.175.84',1130605519,1,0,1,1,1,0,'','Date Picker','Carlos:\n\nTe agradezco el empujon pero te cuento que me tira error de compilación\nSyntax Error \"Parse error at \'DTPICKER\'\", será que me falta incluir algun archivo .h ?\n\nSaludos','',0,'gA==','15euwxmw',1,0,'',53,0,0),(1202,325,3,6,0,'82.61.68.89',1130606035,1,0,1,1,1,1,'','Re: Date Picker','From FWH samples:\n\n[code:3md9l599]#include &quot;FiveWin&#46;ch&quot;\n#include &quot;dtpicker&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n\n   local oWnd, oSay\n   local dDate &#58;= Date&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;DTPicker from code &#46;&#46;&#46;&#46;&quot;\n\n   @ 2, 2 DTPICKER dDate OF oWnd ON CHANGE oSay&#58;Refresh&#40;&#41;\n\n   @ 3, 30 SAY oSay PROMPT &quot;Date&#58; &quot;+ Dtoc&#40; dDate &#41; OF oWnd SIZE 200, 20\n\n   @ 6, 2 BUTTON &quot;From resources &#46;&#46;&#46;&quot; OF oWnd ACTION FromRes&#40; oWnd &#41; SIZE 150, 30\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nFUNCTION FromRes&#40; oWnd &#41;\n\n   local oDlg, oSay\n   local dDate &#58;= Date&#40;&#41;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;DTPTEST&quot;\n\n   REDEFINE DTPICKER dDate ID 101 OF oDlg ;\n      ON CHANGE oSay&#58;Refresh&#40;&#41;\n\n   REDEFINE SAY oSay PROMPT &quot;Date&#58; &quot;+ Dtoc&#40;dDate&#41; ID 102 OF oDlg\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nprocedure AppSys  // Xbase++ requirement\n\nreturn[/code:3md9l599]\n\n[code:3md9l599]#include &quot;&#46;&#46;\\include\\WinApi&#46;ch&quot;\n\nDTPTEST DIALOG 6, 15, 207, 56\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;DTPicker test from resources &#46;&#46;&#46;&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;Close&quot;, IDOK, 148, 6, 50, 14\n CONTROL &quot;&quot;, 101, &quot;SysDateTimePick32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 16, 13, 81, 11\n EDITTEXT 102, 16, 33, 81, 11\n&#125;[/code:3md9l599]\n\nEMG','',0,'AIA=','3md9l599',1,0,'',6,0,0),(1203,324,4,6,0,'82.61.68.89',1130606126,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','3fvynxmb',1,0,'',6,0,0),(1204,309,3,2,0,'83.39.227.26',1130607412,1,0,1,1,1,1,'','','Vytas,\n\nWe have just tested samples\\TestGet2.prg and clicked on the first GET at different locations, and the caret moved ok. Could you please check this sample there and see if it works ok for you ? Thanks.','',0,'AIA=','3fj8ov6r',1,0,'',2,0,0),(1205,244,3,2,0,'83.39.227.26',1130607526,1,0,1,1,1,1,'','','Badara,\n\nDo you think that we can see the future and know in advance that there will be a version that will break backwards compatibility ?\n\nBesides that, nobody is pushing you to use the xharbour cvs code. You can use the \"official\" xharbour build and build and deliver professional applications. That does not look as a \"test\" mode as you say.','',0,'AIA=','2nvbjsnm',1,0,'',2,0,0),(1206,317,2,138,0,'201.154.236.172',1130607813,1,0,1,1,1,1,'','','No no no... perdona.....\n\nLas aplicaciones de 16 bits han muerto.... que es otra muy distinta a Clipper ha muerto.\n\nPasate a 32 bits, que aqui en el mundo de 16 queda menos vida que en la luna.\n\nJuega un poco a 32 bits y con (x)Harbour y en poco tiempo te preguntaras como casi todos nosotros.... ¿ porque no me cambie a 32 bits antes ????.\n\nTodo tu codigo FW trabajara practicamente sin cambios, un 95% pasara sin tocar nada.\n\nEs un mundo practicamente sin limitaciones con miles y miles de controles para utilziar, y un monton de juguetes nuevos como ADO, Sockets, OLE, OCX y todos usables desde FW.\n\nLa ventaja de usar (x)Harobur es que tu codigo intermedio es un  un PCode en \"C\" puro y duro, luego entonces puedes utilizar CUAQLUIER lib para C++ o para MSVC que se encuentre disponbile haciendo unos cuantos cambios en el codigo.\n\nY mejor que te apresures.... los 64 bits estan a la vueta de la esquina y FiveWin y Harbour ya estan listos para entrar a la fiesta.','',0,'AIA=','1v94cv0n',1,0,'',138,0,0),(1207,328,6,73,0,'201.138.166.223',1130610237,1,0,1,1,1,0,'','Re: Me parecio curioso e hice esta funcioncita a ver que tal','[quote=&quot;rbt&quot;:fx4n4ipd]function main ()\n         ? CapsFirst(\'PRIMERO SEGUNDO TERCERO\')\n         ? CapsFirst(\'primero segundo tercero\')\n         ? CapsFirst(\'pRIMero SeGUNdo terceRO\')\n         ? CapsFirst(\'1er 2do 3ero\')\nReturn NIL\n\nFunction CapsFirst( cTxt )\n         Local nFor, cRet := \'\'\n         lCaps := .t.\n         For nFor := 1 to Len( cTxt )\n             if lCaps\n                cChar := Upper( SubStr( cTxt,nFor,1 ) )\n                lCaps := .f.\n              Else\n                cChar := Lower( SubStr( cTxt,nFor,1 ) )\n             Endif\n             cRet += cChar\n             if SubStr( cTxt,nFor,1 ) = \' \'\n                lCaps := .t.\n             Endif\n         Next\nReturn cRet\n\n// Saludos al Foro[/quote:fx4n4ipd]\n\nla probare\nGracias','',0,'gA==','fx4n4ipd',1,0,'',73,0,0),(1208,330,4,6,0,'82.61.68.89',1130610625,1,0,1,1,1,1,'','CurDir() bug','The following sample shows spurious characters if run from the root directory (MyDevice):\n\n#include \"Fwce.ch\"\n\n\nFUNCTION MAIN()\n\n    MSGALERT( \"*\" + CURDIR() + \"*\" )\n\n    RETURN NIL\n\nThe problem is reproduceable with the device emulator.\n\nEMG','',0,'gA==','1vd5yzif',1,0,'',6,0,0),(1209,325,3,53,0,'200.66.175.84',1130611929,1,0,1,1,1,0,'','Thanks','Enrico:\n\nThanks a lot, it\'s very clear\n\nBest Regards','',0,'gA==','336mf3xy',1,0,'',53,0,0),(1210,326,6,53,0,'200.66.175.84',1130612835,1,0,1,1,1,0,'','Solucionado','Carlos:\n\nEfectivamente me faltaba el archivo h.\n\nSolucionado, muchas gracias','',0,'gA==','3oddq4fr',1,0,'',53,0,0),(1211,331,4,2,0,'83.39.227.26',1130615262,1,0,1,1,1,1,'','Sockets working!!!','We have enhanced sockets implementation and now they are already working:\n\n[url=http&#58;//imageshack&#46;us:p5ki9avv][img:p5ki9avv]http&#58;//img448&#46;imageshack&#46;us/img448/3876/sockets1lz&#46;jpg[/img:p5ki9avv][/url:p5ki9avv]\n\nWe are going to upload a new FWPPC in a few minutes. Please notice that Class TSocket Method SendFile() is not properly working yet (we are testing it), though SendData() is working ok (in the image, the server displays the data it gets from the Pocket PC emulator through sockets).\n\nWe have been able to setup the emulator to connect to the Internet (and to our Intranet) so we have been able to perform these tests. We do expect to fine tune SendFile() asap.\n\nThe \"socket server\" is a sample provided with FiveWin for Harbour for the PC (samples\\sockserv.prg).','',0,'GA==','p5ki9avv',1,0,'',2,0,0),(1212,330,4,2,0,'83.39.227.26',1130616369,1,0,1,1,1,1,'','','Enrico,\n\nStrange. I have just tested it here and see how it looks:\n\n[url=http&#58;//imageshack&#46;us:rzyvetwm][img:rzyvetwm]http&#58;//img255&#46;imageshack&#46;us/img255/3842/curdir0qu&#46;jpg[/img:rzyvetwm][/url:rzyvetwm]\n\nAlso, if I copy the EXE to the root directory I get \"**\", which it is ok.','',0,'GA==','rzyvetwm',1,0,'',2,0,0),(1213,332,16,2,0,'83.39.227.26',1130617237,1,0,1,1,1,1,'','New FWPPC build with sockets support!','We have just published a new build of FWPPC with sockets already working. Please review samples\\sockcli.prg for a working sample. You may need to run at your PC the FWH sample sockserv.prg, so a communication is established between the emulator and the PC. First you need to setup the Internet access on the emulator.\n\nAcabamos de publicar un nuevo build de FWPPC con soporte de sockets funcionando. Por favor revisar samples\\sockcli.prg. Para probar el ejemplo es preciso ejecutar en el PC el ejemplo de FWH sockserv.prg, con lo que se establece comunicación entre el emulador y el PC. Es preciso configurar la conexión a Internet desde el emulador.','',0,'GA==','hf52ozsy',1,0,'',2,0,0),(1214,317,2,2,0,'83.39.227.26',1130617695,1,0,1,1,1,1,'','','Luis,\n\nSi te fijas en el índice del foro, de momento hay 237 usuarios registrados, y muchos más que van a ir llegando, ya que no todos los usuarios conocen aún estos nuevos foros, y muchos entran aún como invitados (guest) y no se han registrado.\n\nEn un mes escaso, 237 usuarios registrados y creciendo, y 1198 posts publicados. Esto está pero que muy vivo! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nY otro producto que está creciendo mucho es FiveWin para Pocket PC. Se está vendiendo como \"rosquillas calientes\" y a clientes que estan llegando incluso desde FoxPro, ya que Microsoft no tiene FoxPro para Pocket PC. Conforme los teléfonos móviles pasen a ser PDAs y vayan bajando los precios, el mercado de los Pocket PCs y teléfonos PDAs va a ir creciendo y creciendo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','3ax2ely4',1,0,'',2,0,0),(1215,330,4,6,0,'82.59.51.179',1130618475,1,0,1,1,1,1,'','','Try to copy the EXE in MyDevice directory.\n\nEMG','',0,'GA==','20k3e9an',1,0,'',6,0,0),(1216,330,4,2,0,'83.39.227.26',1130618827,1,0,1,1,1,1,'','','Enrico,\n\nThis is what I get:\n\n[url=http&#58;//imageshack&#46;us:184chnql][img:184chnql]http&#58;//img407&#46;imageshack&#46;us/img407/7089/root5hq&#46;jpg[/img:184chnql][/url:184chnql]','',0,'GA==','184chnql',1,0,'',2,0,0),(1217,330,4,6,0,'82.57.159.122',1130619208,1,0,1,1,1,1,'','','Can you send me your EXE to test it here?\n\nEMG','',0,'GA==','3ar8rnvi',1,0,'',6,0,0),(1218,330,4,2,0,'80.58.2.107',1130619780,1,0,1,1,1,1,'','','Enrico,\n\nWe have just uploaded a new FWPPC build that may fix what you describe. Please test it again, thanks!','',0,'GA==','3446opg2',1,0,'',2,0,0),(1219,330,4,6,0,'82.57.159.122',1130620427,1,0,1,1,1,1,'','','Unfortunately the problem is still here. I\'ve just sent you my EXE and a screenshot of the problem to your private email.\n\nLet me know.\n\nEMG','',0,'GA==','3uxge52z',1,0,'',6,0,0),(1220,330,4,2,0,'80.58.2.107',1130622302,1,0,1,1,1,1,'','','Enrico,\n\nYour sample fails here. Mine is ok. I have sent you my test.\n\nAre you using standard samples\\buildce.bat or do you have a modified one ? \n\nThanks!','',0,'GA==','lw0n97gs',1,0,'',2,0,0),(1221,330,4,6,0,'82.57.159.122',1130624484,1,0,1,1,1,1,'','','Your test works fine here but I discovered something very strange. I simply made a copy of my PRG and recompiled it. The new EXE works fine while the old EXE shows the bug!\n\nAnd yes, I tried using the standard FWPPC batch with identical results.\n\nEMG','',0,'GA==','15x7dj56',1,0,'',6,0,0),(1222,330,4,2,0,'80.58.2.107',1130630310,1,0,1,1,1,1,'','','Enrico,\n\nIt looks as we still had a little bug in GetCurrentDirectory() implementation. We are going to upload a new build. \n\nI appreciate your feedback. Thanks,','',0,'GA==','3gmbh8s9',1,0,'',2,0,0),(1223,333,7,2,0,'80.58.2.107',1130663201,1,0,1,1,1,1,'','Soporte de sockets !!!','Hemos completado la implementación de sockets y ahora ya están funcionando:\n \n[img:3phgqbqi]http&#58;//img448&#46;imageshack&#46;us/img448/3876/sockets1lz&#46;jpg[/img:3phgqbqi]\n\nYa hay un nuevo FWPPC build listo para ser descargado. Sólo falta revisar el método SendFile() que aún no va bien. Sin embargo el método SendData() funciona correctamente. \n\nEn la imagen se ve como hemos establecido una comunicación por sockets desde el emulador de Pocket PC y el ejemplo sockserv.prg de FWH (FiveWin para Harbour en PC).','',0,'CA==','3phgqbqi',1,0,'',2,0,0),(1224,334,4,240,0,'85.201.103.229',1130666050,1,0,1,1,1,1,'','Delete last record of a table','Hello All,\n\nI am facing a problem which is existing in all my browses.\nI show a table within a browse. \nIf i delete a record in the middle of the browse, all work as expected.\nThe problem is when i delete the last record of the browse (not lthe last record of the table, records can be filtered). The record is correctly deleted but the [b:2uc9mtb2]new last record[/b:2uc9mtb2] is displayed twice.\nIf i close the browse and reopen it, all is ok again.','',0,'QA==','2uc9mtb2',1,0,'',240,0,0),(1225,335,16,2,0,'80.58.2.107',1130669927,1,0,1,1,1,1,'','New Harbour for Pocket PC build','You may download a new Harbour for Pocket PC build from FWPPC download site, with proper support for Directory() and ADir(). \n\nYou may test samples\\test.prg.','',0,'QA==','2yefm9uq',1,0,'',2,0,0),(1226,337,7,2,0,'80.58.2.107',1130670081,1,0,1,1,1,1,'','Nuevo build de Harbour para Pocket PC','Hemos subido un nuevo build de Harbour para Pocket PC al sitio de descarga de FWPPC, con soporte correcto para Directory() y ADir().\n\nPodeis revisar el ejemplo samples\\Test.prg.','',0,'QA==','3ebgyz5k',1,0,'',2,0,0),(1227,334,4,2,0,'80.58.2.107',1130670285,1,0,1,1,1,1,'','','Raymond,\n\nPlease do a &lt;oBrowse&gt;:Refresh() after you delete the record. It will force a repaint of the entire browse.\n\nPlease let us know if that fixes it. Thanks!','',0,'QA==','37dgg1qi',1,0,'',2,0,0),(1228,338,1,47,0,'203.147.0.44',1130684138,1,0,1,1,1,0,'','No way to transfer file via modem dial by FW? Really...','Dear All,\n\nHow can I send a file to another computer via modem dial?  I try to see comm class but it has no example.  It works with clipper (I used to) but I don\'t believe FW cannot.\n\nThanks for any idea,\nDutch','',0,'QA==','3azs70dr',1,0,'',47,0,0),(1229,318,6,131,0,'81.34.6.174',1130688217,1,0,1,1,1,0,'','re:','Gracias Jesús. Lo que quiero hacer es que el mismo exe se llame a si mismo. Lo que me propones está bien, pero no es lo que quiero hacer.\n\nSaludos,','',0,'QA==','38no0972',1,0,'',131,0,0),(1230,339,3,131,0,'81.34.6.174',1130688453,1,0,1,1,1,0,'','how to restart an app','Hello:\nI have an application and I want to finish and restart it again. This is needed in situations like change language in menus or similar things, but I don\'t know how to do it. Any sugestion ? \n\nRegards,\nJosé Luis','',0,'QA==','2zhjk9xs',1,0,'',131,0,0),(1231,334,4,240,0,'85.201.103.229',1130689155,1,0,1,1,1,1,'','','Antonio,\n\nOf course I did it. I just forgot to mention it in my post. I even tried to do a gotop() before refreshing but the problem persists.\n\nThank you anyway,\nRaymond','',0,'QA==','2icfk88v',1,0,'',240,0,0),(1232,339,3,6,0,'82.61.69.172',1130689990,1,0,1,1,1,1,'','Re: how to restart an app','Using an external EXE or BAT?\n\nEMG','',0,'QA==','1yrek51w',1,0,'',6,0,0),(1233,340,18,6,0,'82.61.69.172',1130693216,1,0,1,1,1,1,'','Report preview bug (fixed)','The following sample shows an empty report:\n\n[code:1y89swdf]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Report&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRpt\n\n    USE C&#58;\\XHARBOUR\\TEST\n\n    REPORT oRpt PREVIEW\n\n    COLUMN TITLE &quot;FIRST&quot;;\n           DATA FIELD -&gt; first\n\n    COLUMN TITLE &quot;LAST&quot;;\n           DATA FIELD -&gt; last\n\n    COLUMN TITLE &quot;STREET&quot;;\n           DATA FIELD -&gt; street\n\n    COLUMN TITLE &quot;CITY&quot;;\n           DATA FIELD -&gt; city\n\n    END REPORT\n\n    ACTIVATE REPORT oRpt\n\n    CLOSE\n\n    RETURN NIL[/code:1y89swdf]\n\nEMG','',0,'AIA=','1y89swdf',1,0,'',6,0,0),(1234,334,4,2,0,'80.58.2.107',1130697432,1,0,1,1,1,1,'','','Raymond,\n\nhave you tried it in both the emulator and the real Pocket PC ? Do they behave the same way ? Thanks.','',0,'AIA=','3pu41ai9',1,0,'',2,0,0),(1235,318,6,2,0,'80.58.2.107',1130697764,1,0,1,1,1,1,'','','Jose Luis,\n\nCon WinExec() podrías volver a ejecutar el EXE, luego darle foco a la nueva aplicación y finalmente terminar la primera. \n\nDe un modo esquemático sería asi:\n\n   WinExec( &lt;aplicacion&gt; )\n   SetFocus( &lt;ventana_principal_aplicacion_nueva_instancia&gt; )\n   &lt;ventana_principal&gt;:End()\n\nAsi terminaría la actual, y la nueva quedaría activa.','',0,'AIA=','17b002uz',1,0,'',2,0,0),(1236,334,4,240,0,'85.201.103.229',1130698718,1,0,1,1,1,1,'','','Antonio,\n\nI did not try it with the emulator but directly on the Pocket PC.\n\nRegards','',0,'AIA=','30ov3o00',1,0,'',240,0,0),(1237,339,3,131,0,'81.34.6.174',1130699783,1,0,1,1,1,0,'','','No, I want to do with the same exe. Imagine you allow the user to select the language of the app, and you have your menus with i18n() calls... you have to reinit the app to achieve the menus on the new language selected. It\'s pretty smart if the app reinit for itself, not need the user doubleclick the icon again.\n\nI want this to do my Colossus - <!-- m --><a class=\"postlink\" href=\"http://www.alanit.com/programas/colossus.php\">http://www.alanit.com/programas/colossus.php</a><!-- m --> - multilingual <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nRegards,','',0,'AIA=','175jm0vu',1,0,'',131,0,0),(1238,318,6,131,0,'81.34.6.174',1130699920,1,0,1,1,1,0,'','','Antonio:\n\n¿ y como le doy foco a la nueva instancia de la aplicación ?','',0,'AIA=','1j4fst6m',1,0,'',131,0,0),(1239,339,3,67,0,'83.134.58.112',1130701216,1,0,1,1,1,0,'','','I not tryed , but :\n\nStart the aplication with a batch file with as content :\n\n    YourExe.exe\n     CALL YoutBatch.bat\n\nThen you have the possibilty to change YourBatch.bat from in the aplication and after that close the aplication\n\nFrank','',0,'AIA=','1w9qxtk6',1,0,'',67,0,0),(1240,334,4,2,0,'80.58.2.107',1130701308,1,0,1,1,1,1,'','','Raymond,\n\nPlease try it also on the emulator. Thanks.\n\nAre you familiar with it ? Let me know if you need some assistance.','',0,'AIA=','33mkwndf',1,0,'',2,0,0),(1241,318,6,2,0,'80.58.2.107',1130701677,1,0,1,1,1,1,'','','Puedes usar FindWindow() para encontrar el handle de la ventana. \n\nPosiblemente habría que esperar un poco desde que arrancas la aplicación con WinExec() hasta que la ventana se crea y está visible. \n\nHabría que revisar las opciones de WinExec() ó usar alguna función que aguarde un cierto tiempo (Sleep(), bucle con SysRefresh(), etc.)','',0,'AIA=','188spv15',1,0,'',2,0,0),(1242,341,6,228,0,'65.167.51.137',1130703825,1,0,1,1,1,0,'','Antonio, sera que ayudas con el error de los botones','Hola antonio como vas he estado tratando de compilar con fw24 bcc55 y xharbour ultima version, pero me sigue arrojando los errores que te he comentado he hecho de todo hasta ahora sin resultados, rene me contesto que debo modicar la clase y buscar otra version de xharbor. Tu me puedes indicar algo.\n\nUN ABRAZO LEANDRO ALFONSO','',0,'AIA=','12g0bg5s',1,0,'',228,0,0),(1243,317,2,228,0,'65.167.51.137',1130704530,1,0,1,1,1,0,'','vive five win?','Mi te cuento mi experiencia, yo era fanatico del fox, realice pequeños proyetos para la universidad y cuando creamos la empresa, seguia insistendo en usar fox, hasta que un muy buen amigo me mostro fw y clipper y desde ahora hasta la fecha he realziado infinidad de pruebas y me quedo con fw. De antemano cuenten con migo para que  fw siga creciendo de verdad que es lo mejor que existe\n\nDESDE COLOMBIAÇ\nLANDRO ALDONO','',0,'AIA=','14cd64rw',1,0,'',228,0,0),(1244,339,3,6,0,'87.3.212.82',1130709424,1,0,1,1,1,1,'','','[quote=&quot;José Luis Sánchez&quot;:327hzb0x]No, I want to do with the same exe. Imagine you allow the user to select the language of the app, and you have your menus with i18n() calls... you have to reinit the app to achieve the menus on the new language selected. It\'s pretty smart if the app reinit for itself, not need the user doubleclick the icon again.\n\nI want this to do my Colossus - <!-- m --><a class=\"postlink\" href=\"http://www.alanit.com/programas/colossus.php\">http://www.alanit.com/programas/colossus.php</a><!-- m --> - multilingual <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nRegards,[/quote:327hzb0x]\n\nWhat is \"i18n() calls\"? Anyway, it should be possible to change the menu items language without restarting the EXE. Why do you want to restart the EXE?\n\nEMG','',0,'gA==','327hzb0x',1,0,'',6,0,0),(1245,342,6,52,0,'201.235.155.110',1130720444,1,0,0,0,1,0,'','Uso de hp MULTIFUNCION','Amigos:\n\nAlguien esa usando la TPRINTER con las HP multifuncion?\n\nGracias.','',0,'gA==','1zxrowda',1,0,'',52,0,0),(1246,286,2,9,0,'62.174.202.39',1130738744,1,0,1,1,1,0,'','','Leonor,\n\nEstas poniendo los mensajes en el Foro inglés. ¿Porque no lo pones en el foro en español? \n\nUn saludo.','',0,'gA==','24fuu6hq',1,0,'',9,0,0),(1247,293,1,9,0,'62.174.202.39',1130738988,1,0,1,1,1,0,'','','if you use NERO Burning Software &gt; v5.5x your can use Nero Command- \nLine Tool : \n\nC:\\Programme\\Ahead\\Nero\\NeroCmd.exe --write --drivename W --speed \n12 --real --tao --disable_eject --underrun_prot --iso Backup --create_iso_fs \n\"D:\\ALASKA\\*.*\" --recursive --verify --nero_log_timestamp --no_user_interact \nion --detect_non_empty_cdrw --force_erase_cdrw \n\n\nALL in one Line !!!','',0,'gA==','1v4195wh',1,0,'',9,0,0),(1248,244,3,170,0,'213.103.209.202',1130739721,1,0,1,1,1,1,'','','Antonio,\n\nI not use the CVS, just the last official build provided by yourself.\nSince, i have unresolved external.','',0,'gA==','t6vnp6tq',1,0,'',170,0,0),(1249,244,3,2,0,'80.58.2.107',1130740402,1,0,1,1,1,1,'','','Badara,\n\nThen, use the previous xharbour build that we published.','',0,'gA==','1xx05lc7',1,0,'',2,0,0),(1250,338,1,2,0,'80.58.2.107',1130740515,1,0,1,1,1,1,'','','Dutch,\n\nDo you use a third party library to do it on MsDos ? Don\'t you have a Windows version of it ?','',0,'gA==','1suw2iey',1,0,'',2,0,0),(1251,343,6,52,0,'201.235.155.110',1130740943,1,0,0,0,1,0,'','Tray System','Estimados:\n\nQuiero hacer que cuando mi programa en xHarbour este corriendo se muestre en el systray (al lado del reloj, por ejemplo) un ícono indicando que esta siendo utilizado el programa. \n\nMe pueden dar una idea del mismo.\n\nGracias.','',0,'gA==','1bh14h9u',1,0,'',52,0,0),(1252,341,6,2,0,'80.58.2.107',1130741000,1,0,1,1,1,1,'','','Leandro,\n\nEs preciso que copies aquí la línea 411 de TWindow:LButtonDown (window.prg) para que intentemos ayudarte. Estás usando una versión bastante antigua de FWH y es dificil poder solucionarlo, salvo que veamos que código exactamente estás usando y que es el que causa el error.','',0,'gA==','2edbuxvm',1,0,'',2,0,0),(1253,343,6,2,0,'80.58.2.107',1130741224,1,0,1,1,1,1,'','','Gustavo,\n\nRevisa el ejemplo samples\\TestTray.prg.\n\nDe paso, te pido que uses una foto personal tuya como \"avatar\". Gracias.','',0,'gA==','2gmju857',1,0,'',2,0,0),(1254,244,3,170,0,'213.103.209.202',1130741635,1,0,1,1,1,1,'','','Antonio,\n\nI have found this runtime error in the previous xharbour build\nthat you published :\n\n\" \" = \"\" is true for Clipper\n\" \" = \"\" is false for xHarbour\n\nwhen SET EXACT ON.\n\nThis is a very important incompatibility between Clipper code\nand xHarbour code. You can tell me \"it\'s easy to replace\nwith the function Empty()\", but how do you do in macros ?\n\nIf my users create macros for databases, how can i change\nthis in their PCs ?','',0,'gA==','3toszage',1,0,'',170,0,0),(1255,244,3,2,0,'80.58.2.107',1130742481,1,0,1,1,1,1,'','','Badara,\n\nYou may ask at <!-- m --><a class=\"postlink\" href=\"news://news.xharbour.org\">news://news.xharbour.org</a><!-- m --> that someone may provide you the most recent xharbour build, previous to the hb_stack change. That may be the solution for you, and some other users. Thanks.\n\nPlease let me know if you get it. In case you don\'t, we may build it here for you.\n\nBy the way, would you mind to include a personal photo of you for the \"avatar\" field of your personal setting on these forums ? Thanks.','',0,'gA==','1u2sck5z',1,0,'',2,0,0),(1256,343,6,52,0,'201.235.155.110',1130745054,1,0,0,0,1,0,'','','[quote=&quot;Antonio Linares&quot;]Gustavo,\n\nRevisa el ejemplo samples\\TestTray.prg.\n\nDe paso, te pido que uses una foto personal tuya como \"avatar\". Gracias.[/quote]\n\nCon respecto a la foto, puse esa porque pensé que habias autorizado a usar cualquiera, ya que vi que otros usuarios la tienen.','',0,'gA==','2q59y90d',1,0,'',52,0,0),(1257,335,16,89,0,'213.21.136.60',1130745556,1,0,1,1,1,0,'','','Antonio \n\nyou have solve the problem of delete() and pack to ? \n\nMaurizio','',0,'gA==','1f5nywth',1,0,'',89,0,0),(1258,244,3,170,0,'213.103.209.202',1130747062,1,0,1,1,1,1,'','','Antonio,\n\nI have posted my ask in the xharbour users group.\nThanks for your answer. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nI seek a photo of me.\n\nRegards,','',0,'gA==','khiojok0',1,0,'',170,0,0),(1259,334,4,240,0,'85.201.103.229',1130749537,1,0,1,1,1,1,'','','Antonio,\n\nThank you for your help to install the emulator.\n\nI did install it and tried the application with the same results as in the pocket pc\n\nHere is the code snippet :\n\n@ 14.4,20.5 BUTTON \"Sup.\" SIZE 40, 35 ACTION (SuiDel(aParams,oSui,oSui:Recno()),oSui:GoTop(),oBrw:refresh(),oBrw:SetFocus())\n\noSui = Tdatabase of the dbf\n\nThanks for any hint\nRaymond','',0,'gA==','1uqxek3b',1,0,'',240,0,0),(1260,338,1,47,0,'203.144.143.6',1130750268,1,0,1,1,1,0,'','IOLIB.LIB','Dear Antonio,\n\nI think IOLIB.LIB.  I will send to your private mail.\n\nThanks,\nDutch','',0,'gA==','3k46d967',1,0,'',47,0,0),(1261,338,1,2,0,'80.58.2.107',1130750575,1,0,1,1,1,1,'','','Dutch,\n\nWhy don\'t you try to port it to Windows ?','',0,'gA==','8pg8c8m0',1,0,'',2,0,0),(1262,334,4,2,0,'80.58.2.107',1130750731,1,0,1,1,1,1,'','','Raymond,\n\nCould you modify our provided tutor10.prg sample to reproduce the error ? Thanks,','',0,'gA==','29mhmtwn',1,0,'',2,0,0),(1263,343,6,2,0,'80.58.2.107',1130750842,1,0,1,1,1,1,'','','Gustavo,\n\nEstamos pidiéndole a todos los usuarios que proporcionen una foto personal. Las que no sean fotos personales se borrarán en breve.','',0,'gA==','31pfrh9m',1,0,'',2,0,0),(1264,335,16,2,0,'80.58.2.107',1130750958,1,0,1,1,1,1,'','','Maurizio,\n\nNot yet. In the meantime you may use a function to create a new DBF with just the records you want, then erase the original one and rename the copy as the original.','',0,'gA==','ha3j7fkd',1,0,'',2,0,0),(1265,338,1,47,0,'203.144.143.7',1130751111,1,0,1,1,1,0,'','I have no source code for IOLIB.LIB','Dear Antonio,\n\nSorry, I have no source code.  I download it from OASIS website.\n\nRegards,\nDutch','',0,'gA==','j5cgs31p',1,0,'',47,0,0),(1266,334,4,240,0,'85.201.103.229',1130751265,1,0,1,1,1,1,'','','Sure, but i will need some time as i have other urgent things to do now.','',0,'gA==','gpgfvlk2',1,0,'',240,0,0),(1267,344,18,137,0,'151.38.8.195',1130752734,1,0,1,1,1,0,'','Themed TGet on windows (fixed)','I can\'t obtain themed edit box on windows.\n\nSee the code below:\n\n#include \"fivewin.ch\"\n\nprocedure main()\n	local oDlg, cText := Space(30)\n	define window oDlg title \"Test\" from 10,10 to 300,300 pixel\n	@1,1 get cText of oDlg size 200,20\n	activate window oDlg\nreturn\n\nThe edit box has a black border instead the theme blue border.\n\nIt only happens with window, if I change the \"define/activate window\" with \"define/activate dialog\" it looks fine.\n\nAntonio, I post this problem the first time in July 2004, please make my app full xp themed <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards,\nRoberto Parisi','',0,'gA==','20hje0t1',1,0,'',137,0,0),(1268,248,6,48,0,'212.145.153.241',1130753266,1,0,1,1,1,0,'','','Encontré este link que quizas pueda serte de ayuda.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.inetformfiller.com/\">http://www.inetformfiller.com/</a><!-- m -->','',0,'gA==','1yp5r2xy',1,0,'',48,0,0),(1269,193,6,75,0,'81.36.249.89',1130755352,1,0,1,1,1,0,'','Sigue con mal funcionamiento','<!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nPues va a ser que NO. Sigue dando el mismo problema, a saber:\n  Con WS genero el recursos.RES\n  Con Pelles C lo importo.\n  Abro cualquier Dialogo con el Pelles C.\n      - Hasta aquí todo bien, al menos en apariencia.\n  Modifico un control cualquiera, por ejemplo de posición.\n  Cierro la Ventana de edición.\n  Al volver a entrar, sigo dentro del Pelles C, en ese diálogo para editarlo o símplemente verlo me encuentro que ha borrado los botones y demás controles.\n\nNo tengo ni idea de que pasa.','',0,'gA==','1ear5tn1',1,0,'',75,0,0),(1270,334,4,240,0,'85.201.103.229',1130755496,1,0,1,1,1,1,'','','Antonio,\n\nI have sent you by prv mail a modified tutor10 that shows the problem.\n\nHTH,\nRaymond','',0,'gA==','4swfmrvi',1,0,'',240,0,0),(1271,345,6,49,0,'82.57.115.193',1130758673,1,0,1,1,1,0,'','File MDB','I must use a file Mdb \nHow can use with this file \nODBc let me a list of tables but I not want see to user this list and I want open a table ( and modify it) direct to a listbox\nHave you an example to use a mdb in xharbour ,pls\nRegards','',0,'gA==','1nvfq6xt',1,0,'',49,0,0),(1272,346,2,237,0,'200.59.172.50',1130762036,1,0,1,1,1,0,'','Lentitud extrema en xp','Amigos:\nActualmente tengo un problema que jamás antes había tenido con una \naplicacion que tengo en un cliente y es que cambiaron el equipo por uno mas nuevo con Pentium 4 y XP sp2 y me reportan que anda unas 6 veces mas lento, sin embargo el mismo exe lo utilizo en otras pc de iguales características y anda perfecto, nadie había tenido antes problemas con el xp, de hecho el programa está armado en mi pc con windows xp proffesional sp2. \nLa version si no me equivoco es fw 2.0b y blinker.\n\nDesde ya, muchisimas gracias.\n \nAlejandro Cebolido.\nBuenos Aires, Argentina','',0,'gA==','2pub0d4j',1,0,'',237,0,0),(1273,343,6,74,0,'201.255.129.182',1130768182,1,0,1,1,1,1,'','','Gustavo:\n	\nStatic oTray, oTrayMenu\nstatic oTaskBarIcon, oIcon\n\nDEFINE ICON oIco   RESOURCE \"PETROSUR\" \n\n	 DEFINE WINDOW oWnd FROM 0,0 TO 23, 79 ;\n      TITLE OEMTOANSI(\"Petrosur S.R.L. * Actualizador de datos en servidor MYSQL\");\n			ICON oIco ;\n			MENU BuildMenu();\n			COLOR CLR_BLACK, RGB(88,102,129)\n\n   oWnd:bTaskBar  := { | nWParam, nLParam | TaskBar( nWParam, nLParam ) }\n\n   ACTIVATE WINDOW oWnd MAXIMIZED ;\n	 ON INIT (SetUpTray(oBmp),IF(LOGIN(),(cLogin:=.T.,Start(), MuestraUsuario()), oWnd:End()));\n	 VALID FINALIZAR(oTray)\n\nFunction SetUpTray(oBmp)\n   Local oIcon\n\n   DEFINE ICON oIcon RESOURCE \"PETROSUR\" //\"SANTAC\"\n   oTray := TaskAddIcon( oWnd, oIcon, \"Programa Actualizador MYSQL\" )\n\nReturn NIL\n\nFunction RMenu(r,c)\n   Local oMenu\n\n   MENU oMenu POPUP\n	    MENUITEM \"Abrir  Programa Actualizador MYSQL\"   ACTION ( oWnd:Show() )\n      MENUITEM \"Cerrar Programa Actualizador MYSQL\"   ACTION ( oWnd:end() )\n   ENDMENU\n\n   ACTIVATE POPUP oMenu OF oWnd AT r,c\nReturn NIL\n\nFunction TaskBar( nWParam, nLParam )\n   Local a := array(2)\n\n   static lWorking := .f.\n\n   if ! lWorking\n      lWorking = .t.\n      do case\n         case nLParam == WM_LBUTTONUP\n\n         case nLParam == WM_RBUTTONUP\n            a := GetCursorPos()\n            a = ScreenToClient( oWnd:hWnd, a )\n\n            RMenu(a[1],a[2])\n      endcase\n\n      lWorking = .f.\n   endif\n\nreturn nil\n\nFUNCTION FINALIZAR()\n\nLOCAL RET:=.F.\n\nSALIR:=99\n\nIF cProcesando\nELSE\n				 RET:=.T.\nENDIF\nif oMysql # nil .and. ret\n	oMysql:Close()\nendif\nif ret\n	TaskDelIcon( oTray )\n	IF oTmr # nil\n		oTmr:Deactivate()\n	ENDIF\n\nendif\n\nRETURN RET\n\nSaludos,','',0,'','345mk7jj',1,0,'',74,0,0),(1274,347,7,179,0,'64.46.80.210',1130770466,1,0,1,1,1,1,'','ot emulador de pocket pc','Antonio \nbuenos dias\nperdon por el Off Topic\ncomo hago para que en el emulador que baje de el site de\nfivetechsoft.com\nme ejecute un programa compilado con Fwppc\n\nademas al compilar el ejemplo test.prg me aparecen estos warnings\n\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'test.prg\' and generating preprocessed output to \'test.ppo\'...\nLines 8, Functions/Procedures 1\nGenerating C source output to \'test.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\ntest.c\n   Creating library test.lib and object test.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=\n0x00018984\nrdd.lib(dbcmd.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, r\nva=0x0005DB4C\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rv\na=0x0006BD14\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x000010\n00, rva=0x00075E6C\n* Application successfully built\n\nc:\\FWPPC\\SAMPLES&gt;\n\nAtt\n\nWilson \'W\' Gamboa A\n<!-- e --><a href=\"mailto:swrite@uio.satnet.net\">swrite@uio.satnet.net</a><!-- e -->\n\npd: como veras antonio recien inicio con fwppc gracias x todo','',0,'','35dg7ev1',1,0,'',179,0,0),(1275,348,18,23,0,'80.58.44.235',1130771760,1,0,1,1,1,1,'','CheckBox en Folders','Porque no salta de control en control con la tecla intro en checkboxes dentro de un folder?\nFuera de él pasa de uno a otro con intro sin problemas.\nAlgún parámetro???\n\nGracias','',0,'','28tpcl9e',1,0,'',23,0,0),(1276,349,19,26,0,'193.95.194.5',1130772695,1,0,1,1,1,1,'','Why do programmers confuse Christmas with Halloween?','DEC25 = OCT31\n\nCheers, Roman','',0,'','prlu3bsr',1,0,'',26,0,0),(1277,344,18,2,0,'80.58.2.107',1130773164,1,0,1,1,1,1,'','','Roberto,\n\nWe have been today more than one hour trying to fix it. \n\nNo luck yet  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','tle61x66',1,0,'',2,0,0),(1278,343,6,52,0,'201.235.155.110',1130774378,1,0,0,0,1,0,'','Grac ias a todos.','Tema cerrado.','',0,'','2yn0ylxv',1,0,'',52,0,0),(1279,339,3,74,0,'201.255.21.49',1130776072,1,0,1,1,1,1,'','','Jose Luis:\n\n               You can call another fw application that calls your exe again, with a non visible window and then exit as the only task to do. In your fw program you call this exe and quits. The new application can activate a timer to wait a few seconds before execute the other program, if necessary.\n\nRegards,','',0,'','2a4uegzh',1,0,'',74,0,0),(1280,283,6,103,0,'200.164.92.242',1130776395,1,0,1,1,1,0,'','','Antonio,\n\n ¿Alguna idea?\n\nGracias,\n\nKleyber Derick','',0,'','2cuao9c7',1,0,'',103,0,0),(1281,349,19,6,0,'82.53.175.60',1130776628,1,0,1,1,1,1,'','Re: Why do programmers confuse Christmas with Halloween?','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','35zgx7bp',1,0,'',6,0,0),(1282,350,18,6,0,'82.53.175.60',1130780458,1,0,1,1,1,1,'','Bug in TCBrowse:lEditCol() method (fixed)','This is the sample. Valid is never executed:\n\n[code:2yrkhmc8]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, cVar\n\n    LOCAL bValid &#58;= &#123; || MsgInfo&#40;&#41;, &#46;T&#46; &#125;\n\n    USE C&#58;\\XHARBOUR\\TEST\n\n    cVar = FIELD -&gt; first\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 BROWSE oBrw;\n           ON RIGHT CLICK oBrw&#58;lEditCol&#40; 1, @cVar, , bValid &#41;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;\n\n    @ 6, 0 BUTTON &quot;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2yrkhmc8]\n\nEMG','',0,'AIA=','2yrkhmc8',1,0,'',6,0,0),(1283,280,3,31,0,'84.15.27.93',1130780593,1,0,1,1,1,1,'','','[quote=&quot;Marc Boissinot&quot;:1aqucv08]Here\'s a way with the detached local method...\n\n  for i := 1 to Len( aGets )\n    @i,0 GET oGets[i] VAR aGets[i]\n    oGets[i]:bSetGet := oGets[i]:oGet:Block := ArrayGetBlock(aGets,i)\n  next\n\n\n  function ArrayGetBlock(aGets,i)\n\n    return { | u | If( PCount()==0, aGets[i], aGets[i]:= u ) }[/quote:1aqucv08]\n \n   Hello Marc !\n\n I\'m using that \"deatached\" . Also I\'m using codeblock to check validation of my vars . Evaluting of that works fine for array of gets . From codeblock it\'s direction to deatached function .\n\n   With best regards ! Rimantas .','',0,'gA==','1aqucv08',1,0,'',31,0,0),(1284,353,6,24,0,'80.58.35.235',1130781311,1,0,1,1,1,1,'','Clases TSCAN32, TVIDEO, TMCI, TCAPTURE','Hoy he hablado con Antonio Linares sobre estas clases, y desde aqui notifico que permito y hasta le aliento a Antonio Linares a incluir las clases que realice, ponerlas en Fivewin.\n\nDichas clases las realice para mi, y las done para toda la comunidad de Fivewin, asi , que me alegro si son incluidas en Fivewin, y si con ello \nlogramos ayudar a la gente, pues mucho mejor <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','2zjugvl2',1,0,'',24,0,0),(1285,354,6,23,0,'80.58.44.235',1130782647,1,0,1,1,1,1,'','La función RD(cDir) de Harbour','Parece que no está??\nCuando hago un Rd(\"directorio\") al linkar me da que no existe la función _HB_FUN_RD.\n\nEn teoría debe existir :\n<!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/doc/rd.htm\">http://www.harbour-project.org/doc/rd.htm</a><!-- m -->\n\nAlguien sabe algo? \nGracias.','',0,'gA==','1ux16zdh',1,0,'',23,0,0),(1286,182,3,167,0,'69.29.89.156',1130782785,1,0,1,1,1,1,'','','Antonio,\n\nI downloaded fwh 2.6 - september and the folder scroll bars work perfectly.\n\nThanks.','',0,'gA==','34eyo5a2',1,0,'',167,0,0),(1287,355,2,242,0,'81.45.227.110',1130783165,1,0,1,1,1,0,'','Cambio de color a etiquetas en diálogo.','Hola a todos.\n\n¿Cómo puedo cambiar el color de todas las etiquetas de un diálogo sabiendo que están todas con el ID -1?\n\nGracias por adelantado y un saludo.\n\nFernando Morales del Rosario','',0,'gA==','3d2a2a90',1,0,'',242,0,0),(1288,291,6,43,0,'201.127.3.83',1130783718,1,0,1,1,1,0,'','','Muchas Gracias.. Por sus Respuestas..\n\n\nSaludos\n\n  Marco A. Delgado. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2hr9ls2e',1,0,'',43,0,0),(1289,356,6,53,0,'200.66.175.53',1130785977,1,0,1,1,1,0,'','Gets de solo lectura opacos','Amigos:\n\nCómo se puede lograr que los GETs de solo lectura que ahora se ven sumamente opacos se vean como el resto delos Gets ?\n\n\nSaludos, Armando','',0,'gA==','2y3l9iuu',1,0,'',53,0,0),(1290,357,6,37,0,'200.121.149.87',1130787121,1,0,1,1,1,0,'','Error con FWH 2.6 de Setiembre y xHb 0.9951 desde Verce','Saludos amigos, el problema es que al compilar me sigue solicitando la LIB DBFDBT aunque por ahi lei que esta ya no se usaba, alguna idea ???','',0,'gA==','lk859bh5',1,0,'',37,0,0),(1291,357,6,2,0,'80.58.2.107',1130787197,1,0,1,1,1,1,'','','Enrique,\n\nAhora tienes que enlazar las librerías DBFFPT.lib y HBSIX.LIB.\n\nLa librería DBFDBT.lib ya no se usa (no existe).','',0,'gA==','33hnao59',1,0,'',2,0,0),(1292,354,6,2,0,'80.58.2.107',1130787329,1,0,1,1,1,1,'','','Angel,\n\nPuedes usar esta:\n\n[code:2yez9bwn]DLL32 FUNCTION lRmDir&#40; cPathName AS LPSTR &#41; AS BOOL ;\n      PASCAL FROM &quot;RemoveDirectoryA&quot; LIB &quot;kernel32&#46;dll&quot;\n[/code:2yez9bwn]','',0,'AIA=','2yez9bwn',1,0,'',2,0,0),(1293,353,6,2,0,'80.58.2.107',1130787412,1,0,1,1,1,1,'','','Rafa,\n\nTe doy publicamente las gracias y te felicito por tu trabajo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','rb0l5rtp',1,0,'',2,0,0),(1294,358,6,61,0,'200.40.245.233',1130787621,1,0,1,1,1,0,'','Para TheFull UtilPrn si es posible ?','TheFull: disculpa la molestia, pero solo uso UtilPrn para imprimir\nEsto me creaba un recuadro \ndesde 0.2,0.2 arriva, izq a 9.2 . 15 abajo , derecha en centimetros\n \npcm := 0.2\n\nUTILPRN oUtils MSG \"\"  PCM,2 TO PCM + 9 , 15 ;\n                 BRUSH oBrush PEN oPen1  \n\nPero no respeta los centímetros.\nSi tienes alguna  sugerencia te agradezco.\n\nHarbour 45, FWH 2.6 build de septiembre.\n\nMuchas Gracias\n\nRuben Fernandez.','',0,'AIA=','y2vqb7r7',1,0,'',61,0,0),(1295,359,6,221,0,'201.242.42.77',1130789143,1,0,1,1,1,0,'','mi 1 programa de FW a FWH','alguien me puede echar una mano ya que no se como es el asunto con el harbour y todo eso, algun ejemplo claro de compilacion, gracias','',0,'AIA=','2thmoso0',1,0,'',221,0,0),(1296,357,6,37,0,'200.121.149.87',1130790786,1,0,1,1,1,0,'','','Antonio, efectivamente, eso tambien lo lei en el foro, quite DBFDBT.LIB y aumente DBFFTP.LIB y HBSIX.LIB, pero aun asi me pide la DBFDBT, sera un problema del Verce ????\nGracias','',0,'AIA=','20np7ifw',1,0,'',37,0,0),(1297,357,6,177,0,'62.99.103.170',1130791662,1,0,1,1,1,0,'','','Enrique,\n\nefectivamente es un problema de VeRCE, me ha comentado Juan Carlos que mañana martes tendrá una versión que solucionará el problema.\n\nSaludos.','',0,'AIA=','2bsoc9m4',1,0,'',177,0,0),(1298,345,6,177,0,'62.99.103.170',1130792032,1,0,1,1,1,0,'','','Hi Silvio,\n\nsend a message to Manu Expósito <!-- e --><a href=\"mailto:manuexposito@gmail.com\">manuexposito@gmail.com</a><!-- e -->, his \"Condor1\" can help you. Condor1 is a Class to work with ODBC.\n\nRegards.','',0,'AIA=','1x4nf974',1,0,'',177,0,0),(1299,357,6,37,0,'200.121.149.87',1130792071,1,0,1,1,1,0,'','','Baxajaun, gracias por tu informacion, estaremos a la espera\nSaludos','',0,'AIA=','1l3552mq',1,0,'',37,0,0),(1300,359,6,177,0,'62.99.103.170',1130792138,1,0,1,1,1,0,'','','Puedes utilizar VeRCE de Juan Carlos Salinas Ojeda <!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m --> para compilar tus proyectos Harbour.\n\nSaludos.','',0,'AIA=','xesiwn6o',1,0,'',177,0,0),(1301,345,6,49,0,'87.3.179.113',1130795493,1,0,1,1,1,0,'','','I sent a email to Manuel but it have the bad email\nwhere I can found condor 1?','',0,'AIA=','284bco7f',1,0,'',49,0,0),(1302,360,6,147,0,'200.68.215.7',1130806739,1,0,1,0,1,1,'','Ayuda con Hotkeys','Buenas...\n\nDesde un Dialog hago lo siguiente\n\n...\n\nACTIVATE DIALOG oDlg ;\n       ON INIT ( oSelf:BarraFac()  , ;\n                      oSelf:ActivaKeys() )\n \nEl metodo ::BarraFac() carga una barra de botones definidos con TSButtons; luego ::Activakeys() es un metodo que asigna procesos a teclas de funcion, segun una condición, de la siguiente manera:\n\n   if ::lNueva\n      ::aFunKeys[_F2] := SetKey( VK_F2, {|| ::aoBar[_BNewF]:KeyDown( VK_RETURN ) })  ; ::aoBar[_BNewF]:Show()\n      SetKey( VK_F3,  ::aFunKeys[_F3] ) ; ::aoBar[_BFactu]:Hide()\n      ::aFunKeys[_F6] := SetKey( VK_F6, {|| ::aoBar[_BLista]:KeyDown( VK_RETURN ) })  ; ::aoBar[_BLista]:Show()\n   else\n      SetKey( VK_F2,  ::aFunKeys[_F2] )  ; ::aoBar[_BNewF]:Hide()\n      ::aFunKeys[_F3] := SetKey( VK_F3,  {|| ::aoBar[_BFactu]:KeyDown( VK_RETURN ) }) ; ::aoBar[_BFactu]:Show()\n      SetKey( VK_F6,  ::aFunKeys[_F6] )  ; ::aoBar[_BLista]:Hide()\n   end\n\n::aoBar, como se observa, es un array de los objetos botones y según se cumpla la condición algunos se muestran y otros se ocultan, para que en el caso falso ocurra lo contrario.\n\nhasta aquí todo se ejecuta correctamente salvo que... cuando lanzo la app si pulso cualquiera de las teclas de funcion redefinidas, y visibles, no responde a la puslación, pero; si hago clic sobre cualquiera de los botones visibles, a posteriori puedo pulsar sobre cualquiera de las teclas de función para que respondan; o sea, evidentemente se están asignando luego de que se produzca el promer evento desde un boton de la barra de botones a través del clic de mouse.\nEspero me entiendan. Si es así pregunto: que debo hacer para que al desplegarse el Dialog de la app el usuario pueda usar las teclas redefinidas de primera instancia?\nAclaro: Necesariamente ::ActivaKeys() debe estar despues de ::BarraFac porque es allí donde se asignan los objetos botones.\n\nmuchas gracias\nMario','',0,'','3ivrj6sc',1,0,'',147,0,0),(1303,315,6,147,0,'200.68.215.7',1130842339,1,0,1,0,1,1,'','','Leandro\nEn la pág. de PuertoSur hay dos versiones de xHarbour 0.99.3, una para FWH24 y otra para FWH25\n\n[url:3acqjolw]http&#58;//www&#46;puertosur&#46;org/modules&#46;php?name=Downloads&amp;d_op=viewdownload&amp;cid=1[/url:3acqjolw]\n\nsaludos','',0,'EA==','3acqjolw',1,0,'',147,0,0),(1304,356,6,223,0,'200.204.170.177',1130843271,1,0,1,1,1,1,'','','Olá Armando,\nVeja a VGet <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.com.br\">www.fivewin.com.br</a><!-- w --> Dicas+Dicas\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=348\">http://www.fivewin.com.br/exibedicas.asp?id=348</a><!-- m -->','',0,'EA==','2fuc63dk',1,0,'',223,0,0),(1305,282,20,244,0,'151.49.137.142',1130847574,1,0,1,1,1,1,'','','E così finalmente rieccoci qua <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nSono contento che esista questo nuovo spazio anche se condivido la nostalgia di alcuni per il ng che consentiva una archiviazione e una gestione dei messaggi anche in locale. E\' un patrimonio di informazioni che va conservato con cura.\n\nSono sempre stato un lurker e dubito di avere molta voce in capitolo in un forum, visto che (come Enrico sa già bene) mi diletto di programmazione a fasi mooolto alterne ed è un bel po\' che sono fermo.\n\nPerò eccomi qua e per giunta con la mia foto  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> ... è la prima volta che la metto su un forum  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->\n\nAntonio','',0,'EA==','2kcb7pqf',1,0,'',244,0,0),(1306,361,21,217,0,'200.153.134.190',1130848332,1,0,1,1,1,0,'','Classe para TreeView','Olá!\n\nQue classe vocês costumam usar para TreeView?\nPreciso fazer um cadastro em esquema de árvore (plano de contas), com opções de incluir, excluir e alterar item, tipo assim:\n\n 1--- DESPESAS\n    +---- 1.1 DESPESAS ADMINISTRATIVAS\n       +----- 1.1.1 Salarios\n       +----- 1.1.2 Encargos\n       +----- 1.1.3 Etc\n    +---- 1.2 TAL COISA\n 2--- RECEITAS\n\nAtualmente tenho este cadastro em um listbox, mas a visualizacao nao da a noção de hierarquia das contas ao usuário...\n\n[ ]\'s\nMaurilio','',0,'','10dg9kut',1,0,'',217,0,0),(1307,241,2,237,0,'200.68.70.89',1130848691,1,0,1,1,1,0,'','Me parece que estás equivocado...','Por mi parte creo que era muchisimo mas práctico poder descargar las news y realizar búsquedas offline, era mucho mas rápido, no lo se, tal vez sea cuestion de costumbre pero me parece que esto ( por ahora ) apunta a ser un fracaso, tal vez me equivoque.\n\nSalu2\n\nAlejandro Cebolido.','',0,'','bbi4zclw',1,0,'',237,0,0),(1308,348,18,217,0,'200.153.134.190',1130850957,1,0,1,1,1,0,'','','Angel, yo uso este truco:\n\nredefine checkbox oCh1 var lChk id 101 of oFld:aDialogs[4]\n\noCh1:bKeyChar :={|k| if(k == VK_RETURN, oFld:aDialogs[4]:GoNextCtrl( oCh1:hWnd ), Nil) }\n\n\nSaludos de Brasil\nMaurilio','',0,'','1hgkn386',1,0,'',217,0,0),(1309,241,2,2,0,'80.58.2.107',1130852579,1,0,1,1,1,1,'','','Alejandro,\n\nMás de 240 usuarios registrados, y más de 1200 mensajes publicados en un mes desde que inciamos estos nuevos foros, para nosotros, es todo un éxito  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3sit6a4b',1,0,'',2,0,0),(1310,362,4,245,0,'87.202.29.29',1130853507,1,0,1,1,1,0,'','Sending Data with from pocket pc','Is it possible to send data from a pocket pc via FTP or Email?\nI want to create an application that collects data to a table stored localy to the pocket pc an when the user choose to send them creates an ascii file and send it to an ftp server or email account or what ever is possible over internet.  (is the tftp available to the pocket pc edition?)\n \nThanks\nVagelis','',0,'','zltxmygn',1,0,'',245,0,0),(1311,363,1,148,0,'62.135.38.105',1130855438,1,0,1,1,1,0,'','set date format','I used browse class How can I set the date format for ctod() function ?','',0,'','27j0yo18',1,0,'',148,0,0),(1312,363,1,6,0,'87.3.184.167',1130857764,1,0,1,1,1,1,'','Re: set date format','From the Clipper 5.3b Norton Guides:\n\n SET DATE\n Set the date format for input and display\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n Syntax\n\n     SET DATE FORMAT [TO] &lt;cDateFormat&gt;\n     SET DATE [TO] AMERICAN | ansi | British | French\n        | German | Italian | Japan | USA\n\n Arguments\n\n     &lt;cDateFormat&gt; is a character expression that directly specifies the\n     date format when the FORMAT clause is specified.  &lt;cDateFormat&gt; must\n     evaluate to a string of 12 or fewer characters.\n\n     When specified, &lt;cDateFormat&gt; is analyzed to determine the proper\n     placement and number of digits for the day, month, and year.  The\n     position of the day, month, and year digits is determined by scanning\n     the string for one or more occurrences of the letters d, m, and y,\n     respectively.  Other characters in the string are copied verbatim into\n     displayed date values.\n\n     When FORMAT is not used, one of several keywords describes the date\n     format.  The following table shows the format for each keyword setting:\n\n     SET DATE Formats\n     ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n     SETting   Format\n     ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n     AMERICAN  mm/dd/yy\n     ANSI      yy.mm.dd\n     BRITISH   dd/mm/yy\n     FRENCH    dd/mm/yy\n     GERMAN    dd.mm.yy\n     ITALIAN   dd-mm-yy\n     JAPAN     yy/mm/dd\n     USA       mm-dd-yy\n     ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n\n Description\n\n     SET DATE is an environment command that sets the display format for date\n     values.  SET DATE is a global setting that affects the behavior of dates\n     throughout a program, allowing you to control date formatting in a way\n     that facilitates porting applications to foreign countries.\n\n Examples\n\n     þ  In this example the FORMAT clause directly specifies the date\n        format:\n\n        SET DATE FORMAT \"yyyy:mm:dd\"\n\n     þ  This example configures the date setting at runtime by passing\n        a DOS environment variable to the program, retrieving its value with\n        GETENV(), and setting DATE with the retrieved value:\n\n        C&gt;SET CLIP_DATE=dd/mm/yy\n\n        In the configuration section of the application program, the date\n        format is set like this:\n\n        FUNCTION AppConfig\n           SET DATE FORMAT TO GETENV(\"CLIP_DATE\")\n           RETURN NIL\n\n Files   Library is CLIPPER.LIB.\n\nEMG','',0,'','im30ezwf',1,0,'',6,0,0),(1313,315,6,38,0,'87.202.47.215',1130858456,1,0,1,1,1,1,'','','Hola Leandro,\nYo tengo las lib desde el 05/Oct/2005, y trabajo bien con FWH 2.5\nSi no encuentras las lib que nececitas, dejame un mensaje para enviarte las mias.\n\nUn saludo','',0,'','3rmg23dy',1,0,'',38,0,0),(1314,325,3,167,0,'209.206.249.182',1130858465,1,0,1,1,1,1,'','','This is great - I\'ve been looking for this for a long time.\n\nQuestion - I am using your example in my application and have discovered that empty date variables will default to the current date, using the current TDatePick class.\n\nHow can I preserve the \"empty date\" in using this class?\n\nOne other question - if I want the users to \"tab\" through the entire field should it be coded within the KeyChar method within the class?\n\nThanks for any help with this.  I\'m exicted to finally find this functionality.','',0,'','1ezdpxyp',1,0,'',167,0,0),(1315,362,4,2,0,'80.58.2.107',1130861301,1,0,1,1,1,1,'','','Vagelis,\n\nClass TSocket is already available and it has a SendData() method. We provide a samples\\sockcli.prg sample.\n\nUsing sockets you may connect to a FTP server, or a mail server, and send the data you want. Its not difficult. \n\nClass TFTP has not been ported yet to FWPPC. We plan to port it soon.','',0,'','iy7ciaa9',1,0,'',2,0,0),(1316,359,6,2,0,'80.58.2.107',1130861460,1,0,1,1,1,1,'','','Alex,\n\nRevisa el fichero samples\\buildh.bat. \n\nEs un ejemplo simple de cómo compilar y enlazar, usando Harbour.','',0,'','31sl3q7u',1,0,'',2,0,0),(1317,347,7,2,0,'80.58.2.107',1130861790,1,0,1,1,1,1,'','','Wilson,\n\nUna vez instales el emulador, sitúate en el directorio c:\\Archivos de programa\\Microsoft\\Device Emulator Preview\\PPC_2003_SE y crea un fichero go.bat con este contenido:\n\n[code:1yjh3isg]&#46;&#46;\\deviceemulator ppc_2003_se_wwe_armv4&#46;bin /skin Pocketpc_2003_skin&#46;xml[/code:1yjh3isg]\n\nEjecuta go.bat y el emulador comenzará a funcionar. Una vez esté funcionando, ve a la opción del menu del emulador: File-Configure-Shared Folder, y selecciona un directorio de tu PC. Los EXEs que situes en ese directorio, se verán en el emulador desde la carpeta \"Storage card\". Si ejecutas el File manager del emulador, el botón central, te lleva a esa carpeta directamente.\n\nUna vez estes en esa carpeta del emulador, haz click ó enter sobre el EXE que quieras ejecutar  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1yjh3isg',1,0,'',2,0,0),(1318,364,21,1,0,'200.138.35.110',1130862354,1,0,1,1,1,0,'Wilson Chaves','Desativação / Reativação de acesso a GETs.','Olá a todos!\n\n           Primeiramente gostaria de parabenizá-los pela iniciativa da criação de um fórum em português. Espero que haja uma grande aderência por parte dos demais programadores.\n\n           Estou iniciando na FiveWin e também no xHarbour, por isso tenho uma infinidade de dúvidas. Algumas eu consigo nos exemplos dos produtos, mas tem uma que eu gostaria de tirar com vocês.\n\n           Estou trabalhando com tela nativa do FiveWin, sem resource; e com GETs direto nos campos das tabelas. Mas gostaria de dar acesso ao conteúdo do campo só quando o usuário \"clicasse\" no botão editar.\n\n           Trabalhei no Delphi um pouco de tempo (isso gera certos vícios...rss) e lá havia uma \"propriedade\" nos componentes onde eu podia habilitar ou desabilitar o componente, ou colocar a tabela em modo de edição ou não. Há algo parecido com isso?\n\nAntecipadamente agradeço!\n\nAbraços!\n\n\nWilson R. Chaves','',0,'AIA=','2q5kpv79',1,0,'',1,0,0),(1319,241,2,9,0,'62.174.202.39',1130867688,1,0,1,1,1,0,'','Re: antonio, creo que fue un error cambiar las new, aqui no.','[quote=&quot;luis cortes&quot;:1xupdx4j] ...... si uno no respondia, el otro estaba ahi, donde estan amigos, que sin ud. fivewin no \"existe\"....[/quote:1xupdx4j]\n\nSerá porque llevo años entrando diariamente en los foros de Clipper en español (yahoo) e inglés (com.lang.clipper) que la verdad, no encuentro razón alguna para la queja sino todo lo contrario.\n\nEn cuanto a que Fivewin \"no existe\", porque no te han contestado a un mensaje, me parece una opinión un poco exagerada. Noto la presencia permanente de Antonio Linares en el foro (cosa que a veces echaba de menos en las News) y no creo que nadie conozca el producto mejor que su padre.  \n\nEl problema quizás (como te indico RF) pueda ser que cada vez somos menos en 16bit y que la mayoría de los maestros que citas están peleándose con los 32 bit y Harbour/xHarbour.\n\nPor cierto Antonio, ¿de quien es el ojo que aparece arriba en la pantalla?.\n\nUn saludo cariñoso desde Málaga','',0,'gA==','1xupdx4j',1,0,'',9,0,0),(1320,346,2,9,0,'62.174.202.39',1130867788,1,0,1,1,1,0,'','','Me imagino que config.nt y autoexec.nt modificados.\n\n¿Utilizas oslib?','',0,'gA==','17y6bgc4',1,0,'',9,0,0),(1321,228,2,9,0,'62.174.202.39',1130868466,1,0,1,1,1,0,'','','Tdbf es del bueno de Manu Expósito (aunque sea sevillano) y tienen un foro en yahoo:\n\n<!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/eagle1/\">http://es.groups.yahoo.com/group/eagle1/</a><!-- m -->\n\n\nUn saludo desde Málaga (y no rajes tanto)','',0,'gA==','p3cj3hm7',1,0,'',9,0,0),(1322,365,3,76,0,'212.216.131.69',1130871209,1,0,1,1,1,1,'','zip SPAN','In preceding posts, Antonio said I should use the hbzip.lib found in xharbour.org to Zip files.\nOk, I\'ve used it, but calling the function\nHB_ZIPFILEBYPKSPAN\ncauses a FiveWin GPF.\nI\'ve tried that function in Xharbour console, it plays well. It seems an incompatibility with FWH.\n\nHere\'s the code:\n[code:3qrz55zh]\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION main&#40;&#41;\n\n  hb_setdiskzip&#40; &#123; | nDisk | Alert&#40; &quot;Please insert disk no &quot; + Str&#40; nDisk, 3 &#41; &#41; &#125; &#41;\n\n  IF HB_ZIPFILEBYPKSPAN&#40; &quot;a&#58;\\TEST&#46;ZIP&quot;, &quot;TEST&#46;PRG&quot; &#41;\n    Alert&#40; &quot;File was successfully created&quot; &#41;\n  ENDIF\n\n  RETURN NIL\n[/code:3qrz55zh]\n\nAny suggestion?\nthanks','',0,'AIA=','3qrz55zh',1,0,'',76,0,0),(1323,366,20,76,0,'212.216.131.69',1130871403,1,0,1,1,1,1,'','Multiline GET','Non riesco a far funzionare una get multiline.\nIl mio scopo è correggere la calcolatrice Dutch.prg dei samples, dove i risultati vengono visualizzati appunto su una multiline get che dovrebbe scorrere verso l\'alto, ma non lo fa.\nIn pratica ogni volta che premo un operatore artimetico viene aggiunta una riga, però malgrado sia inserito un oggetto:goBottom il cursore rimane sempre in cima alla get, e costringe ogni volta a scorrere alla fine della get per vedere l\'ultimo risultato.\nHo riassunto nell\'esempio minimale che allego il problema. \n[code:2y5cxcam]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n	local oRes, cRes, oDlg\n\n	DEFINE DIALOG oDlg SIZE 205, 260\n\n	@ 0&#46;1, 0&#46;5 GET oRes VAR cRes OF oDlg ;\n	MULTILINE ;\n	SIZE 95, 45 RIGHT\n\n	ores&#58;bKeyDown &#58;= &#123; | nKey | test&#40;oRes,nKey&#41;&#125;\n\n	ACTIVATE DIALOG oDlg CENTER\nreturn &#46;T&#46;\n\n*-------------------------------*\n\nFUNCTION test&#40;oRes,nKey&#41;\n	if nKey == 107		      // &quot;+&quot;\n		oRes&#58;cText&#40; oRes&#58;cText&#40;&#41;+&quot;altra riga&quot;+CRLF+&quot; &quot;&#41;\n		Tone&#40;400,1&#41;\n		oRes&#58;GoBottom&#40;&#41;\n	endif\n\nreturn NIL\n[/code:2y5cxcam]\nIn questo esempio premendo il tasto + viene aggiunta una riga; funziona ma i CRLF non vengono eseguiti (nel senso che rimane il simbolo dell\'a capo ma non va a capo, non so perchè). Se metto una oggetto:refresh gli a capo funzionano, ma il cursore ritorna in testa.\n\nCome risolvere il problema?\nsaluti','',0,'AIA=','2y5cxcam',1,0,'',76,0,0),(1324,361,21,226,0,'200.162.111.226',1130871633,1,0,1,1,1,1,'','','dá uma olhada em <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w -->  .. lá tem uma classe TTree muito boa...','',0,'AIA=','1co310qh',1,0,'',226,0,0),(1325,356,6,53,0,'200.66.175.241',1130871640,1,0,1,1,1,0,'','Obrigado','Vagner:\n\nMuito obrigado.\n\nPor cierto, esta disponible tu excelente clase VFOLDER ?','',0,'AIA=','a66vbojx',1,0,'',53,0,0),(1326,326,6,75,0,'83.52.12.63',1130872257,1,0,1,1,1,0,'','','Y cual es el archivo h. ??','',0,'AIA=','28alctw0',1,0,'',75,0,0),(1327,347,7,2,0,'80.58.2.107',1130882761,1,0,1,1,1,1,'','','Wilson,\n\nRespecto a esos warnings, son sólo avisos que pueden ignorarse. No hay problema con ellos.','',0,'AIA=','2usxnjj1',1,0,'',2,0,0),(1328,367,6,53,0,'200.66.175.151',1130897792,1,0,1,1,1,0,'','De puntos de venta','Amigos del foro:\n\nEn una aplicación punto de venta se dan casos en que se debe\ndejar abierta (pendiente) una venta mientras se abre una nueva\npara atender a otro cliente y posteriormente continuar con la\nventa anterior.\n\nAlguien tiene una sugerencia para manejar esta situación ?, abrir un fichero por cada venta ?, usar un solo fichero y manejar filtros o scopes ?, etc.\n\nSaludos','',0,'AIA=','1nddjh9b',1,0,'',53,0,0),(1329,367,6,138,0,'201.154.236.172',1130898165,1,0,1,1,1,1,'','','Una ventana MDI trabajando sobre un arreglo.\n\nUna vez que termines de hacer la factura, vuelcas los datos del arreglo a la base de datos y asunto arreglado.\n\nLa ventaja de esta tecnica radica principalmente en que si tienes una falla en la energia electrica no dejas archivos DBFs temporales, puedes trabajar con varias notas al mismo tiempo y no trabajas directametne sobre tus archivos de datos.','',0,'AIA=','1p8quqtf',1,0,'',138,0,0),(1330,368,6,66,0,'24.232.135.75',1130898744,1,0,1,0,1,0,'','Report Imprimir apaisado y seleccionar impresoras','Estimados Colegas\n\nQuiero imprimir apaisado y seleccionar impresora\nprobe  OREPORT:SETLANDSCAPE() y no me funciona\ny quisiera saber como hago para seleccionar impresora\nprobe con from user y tampoco me funciona\n\nadjunto codigo\n\n\nDesde ya muchas gracias\nfabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n\n\n     SELE 6\n     USE coopsm\n     SET INDEX TO  MAT \n    \n\n     DBGOTOP()\n\n\n     REPORT oReport TITLE  \"COOPERATIVAS Y MUTUALES \" PREVIEW CAPTION \"COOPERATIVAS\"  FROM USER\n\n\n\n\n     COLUMN TITLE \"MAT \"           DATA coopsm-&gt;MATRICULA\n     COLUMN TITLE \"RAZON SOCIAL\"   DATA ALLTRIM(SUBSTR(coopsm-&gt;RAZON_SOC,1,20)),ALLTRIM(coopsm-&gt;PER_NOMBRE)\n     COLUMN TITLE \"DIRECCION\"      DATA ALLTRIM(coopsm-&gt;DIRECCION),ALLTRIM(coopsm-&gt;CALDESCRI)+\"\"+ALLTRIM(coopsm-&gt;PERALTURA),ALLTRIM(coopsm-&gt;DIRECCION1),ALLTRIM(coopsm-&gt;TELEFO)    &amp;&amp;;TOTAL\n    * COLUMN TITLE \"TELEFONO\"       DATA ALLTRIM(coopsm-&gt;TELEFONO),ALLTRIM(coopsm-&gt;PER_CARACT)+\"\"+ALLTRIM(coopsm-&gt;PER_TELEFO)\n     COLUMN TITLE \"TELEFONO\"       DATA ALLTRIM(coopsm-&gt;TELEFONO),ALLTRIM(coopsm-&gt;PER_CARACT)+\"\"+ALLTRIM(coopsm-&gt;PER_TELEFO)\n    * COLUMN TITLE \"CUIT     \"      DATA coopsm-&gt;MATRICULA2;TOTAL\n     COLUMN TITLE \"CUIT     \"      DATA ALLTRIM(coopsm-&gt;CUIT)\n\n     OREPORT:SETLANDSCAPE()\n\n     END REPORT\n\n\n     ACTIVATE REPORT oReport','',0,'AIA=','1gqki423',1,0,'',66,0,0),(1331,369,2,66,0,'24.232.135.75',1130898835,1,0,1,0,1,0,'','Report Imprimir apaisado y seleccionar impresoras','Estimados Colegas\n\nQuiero imprimir apaisado y seleccionar impresora\nprobe  OREPORT:SETLANDSCAPE() y no me funciona\ny quisiera saber como hago para seleccionar impresora\nprobe con from user y tampoco me funciona\n\nadjunto codigo\n\n\nDesde ya muchas gracias\nfabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n\n\n     SELE 6\n     USE coopsm\n     SET INDEX TO  MAT \n    \n\n     DBGOTOP()\n\n\n     REPORT oReport TITLE  \"COOPERATIVAS Y MUTUALES \" PREVIEW CAPTION \"COOPERATIVAS\"  FROM USER\n\n\n\n\n     COLUMN TITLE \"MAT \"           DATA coopsm-&gt;MATRICULA\n     COLUMN TITLE \"RAZON SOCIAL\"   DATA ALLTRIM(SUBSTR(coopsm-&gt;RAZON_SOC,1,20)),ALLTRIM(coopsm-&gt;PER_NOMBRE)\n     COLUMN TITLE \"DIRECCION\"      DATA ALLTRIM(coopsm-&gt;DIRECCION),ALLTRIM(coopsm-&gt;CALDESCRI)+\"\"+ALLTRIM(coopsm-&gt;PERALTURA),ALLTRIM(coopsm-&gt;DIRECCION1),ALLTRIM(coopsm-&gt;TELEFO)    &amp;&amp;;TOTAL\n    * COLUMN TITLE \"TELEFONO\"       DATA ALLTRIM(coopsm-&gt;TELEFONO),ALLTRIM(coopsm-&gt;PER_CARACT)+\"\"+ALLTRIM(coopsm-&gt;PER_TELEFO)\n     COLUMN TITLE \"TELEFONO\"       DATA ALLTRIM(coopsm-&gt;TELEFONO),ALLTRIM(coopsm-&gt;PER_CARACT)+\"\"+ALLTRIM(coopsm-&gt;PER_TELEFO)\n    * COLUMN TITLE \"CUIT     \"      DATA coopsm-&gt;MATRICULA2;TOTAL\n     COLUMN TITLE \"CUIT     \"      DATA ALLTRIM(coopsm-&gt;CUIT)\n\n     OREPORT:SETLANDSCAPE()\n\n     END REPORT\n\n\n     ACTIVATE REPORT oReport','',0,'AIA=','3apj10b7',1,0,'',66,0,0),(1332,369,2,74,0,'201.255.143.148',1130902402,1,0,1,1,1,1,'','','Fabian:\n\n   cImpresora:=PRINTERSETUP()\n\n     REPORT oReport ;\n          TITLE oemtoansi(\"Listado de Proveedores \")+cTexto,;\n     \"\" CENTERED ;\n          FONT   oFont1,;\n                 oFont2,;\n                 oFont3,oFont4,oFont5,oFont6,oFont7,oFont8,oFont9,oFont10 ;\n          PEN    oPen1,;\n                 oPen2 ;\n          HEADER \"   \",;\n            \"Fecha: \"+dtoc(date()),;\n                 \"Hora:  \"+LEFT(time(),5),\"\",\"\",\"\",\"\" ;\n                 RIGHT ;\n          FOOTER \"Pagina: \"+str(oReport:nPage,3),;\n            \"\" CENTERED ;\n     CAPTION \"Listado de Proveedores \"+cTexto;\n          PREVIEW TO cImpresora\n\n     oReport:oDevice:SetLANDSCAPE()\n\nSaludos,','',0,'AIA=','17kmkp3w',1,0,'',74,0,0),(1333,325,3,67,0,'83.134.58.173',1130912752,1,0,1,1,1,0,'','Date picker , empty date','In the first versions from dtepicker , there was no possibility to have a empty date\n\nI think that in fw 2.5 , there was a possibilty to have a checkbox that indicates that the date is empty (not sure)\n\nFor me : i have two problems with dtepicker :\n\n1) Can not have empty date\n2) When the user go to the calendar , on returning there is no visible focus , have to press the tab\n\nSo , i try now to use btnget , it seems to work well\n\nFrank','',0,'AIA=','1t1hs7e4',1,0,'',67,0,0),(1334,348,18,23,0,'80.58.44.235',1130916055,1,0,1,1,1,1,'','','Genial!\nCon tus indicaciones modifiqué la clase checkbox añadiendo\n\n::bKeyChar :={|k| if(k == VK_RETURN, oWnd:GoNextCtrl( ::hWnd ), Nil) }\n\ny funcionó perfecto.\n\nUn saludo.','',0,'AIA=','72s7blva',1,0,'',23,0,0),(1335,354,6,23,0,'80.58.44.235',1130916278,1,0,1,1,1,1,'','','Gracias Antonio. Funcionó perfecto.\nSólo por curiosidad, hay algún sitio (libro,web,etc...) donde estén indicadas esas funciones que sacais de los DLL32, me refiero a funciones de las librerias del sistema como la que tu has posteado.\n\nUn saludo.','',0,'AIA=','i3sqk0zl',1,0,'',23,0,0),(1336,339,3,131,0,'194.179.55.36',1130919676,1,0,1,1,1,0,'','','Enrico: the i18n() calls are the way to internazionalizate the app using the tools provided with xharbour.\nDaniel: I know the way to do it, but I want to do it with the same app.\n\nRegards,','',0,'AIA=','2xp01u4o',1,0,'',131,0,0),(1337,325,3,130,0,'141.51.32.40',1130921175,1,0,1,1,1,0,'','Re: Date picker , empty date','Frank,\n\nthis code from Roberto Chiaiese may help you:\n\n-----------------------------------------------\nFor those who are interested:\n\n Using the class TDatePicker is possible to return an empty date only \n using the DTS_SHOWNONE style.\n Unchecking the flag it will return the empty date.\n But if you pass an empty date as starting value then the datepicker \n shows the today date and the checkbox is ON.\n In this way if you have an editing window with a datepicker the user can \n modify an empty date to today date without being aware of it.\n\n below is the solution I found:\n (using FWH 2.5)\n\n #define DTS_SHOWNONE        2                   // r.c. add: 05/09/2005\n #define DTM_FIRST        0x1000                 //\n #define DTM_GETSYSTEMTIME   (DTM_FIRST + 1)     //\n #define DTM_SETSYSTEMTIME   (DTM_FIRST + 2)     //\n #define GDT_VALID    0                          //\n #define GDT_NONE     1                          //\n\n   /*   r.c. mod:   05/09/2005\n   METHOD SetDate( dDate ) INLINE SetDatePick( ::hWnd, Year( dDate ),;\n                                  Month( dDate ), Day( dDate ) )\n   */\nMETHOD SetDate( dDate ) INLINE if( empty(dDate), ::SetNull(),;\n             SetDatePick( ::hWnd, Year( dDate ), Month( dDate ),;\n             Day( dDate )) )\n\nMETHOD SetNull()  INLINE SendMessage(::hWnd,;\n                  DTM_SETSYSTEMTIME, GDT_NONE )\n\n (don\'t forget the following in the new() method:)\n\n // r.c. add: DTS_SHOWNONE\n ::nStyle    = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP,;\n                    DTS_SHOWNONE,;\n                    If( lDesign, WS_CLIPSIBLINGS, 0 ) )\n-------------------------------------------------------------\n\n best regards\n Stefan','',0,'AIA=','2oly4mnv',1,0,'',130,0,0),(1338,325,3,67,0,'83.134.58.173',1130924032,1,0,1,1,1,0,'','Dtepicker','Stefan,\n\nYes, i know this.\n\nBut it seems that i have not the same dtepicker (fw2.5 on release)\n\nI think that there be made changes afterwards\n\nFrank','',0,'AIA=','bzupayx3',1,0,'',67,0,0),(1339,354,6,177,0,'194.30.62.6',1130926114,1,0,1,1,1,0,'','','Angel, Antonio,\n\nquizás este enlace pueda ser de ayuda  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n<!-- m --><a class=\"postlink\" href=\"http://www.nirsoft.net/utils/dll_export_viewer.html\">http://www.nirsoft.net/utils/dll_export_viewer.html</a><!-- m -->\n\nSaludos.','',0,'AIA=','1mykyda1',1,0,'',177,0,0),(1340,370,3,247,0,'87.202.27.89',1130928307,1,0,1,1,1,0,'','hb_xFree invalid pointer','Hi ,\n\nCan anyone tell me why this error occures ?\n\nhb_xfree() Invalid Pointer 012879FC\n\nI can\'t provide a sample because the program is too big. If anyone has any idea please respond.\n\nThanks\nA.S.K','',0,'AIA=','2mgn210t',1,0,'',247,0,0),(1341,170,16,246,0,'85.84.207.207',1130928638,1,0,1,1,1,0,'','como puedo descargar la Nueva versión','He comenzado atrabajar con FwPPC y es genial \nEn solo 2 dias he confeccionado una agenda de clientes,proveedores y artículos .\n\nCon la compra del paquete de desarrollo , se ofrecian las actualizaciones hasta la versión 1.0 \n\n¿Cómo descargarlas ?\n\nGracias y Felicidades Antonio','',0,'AIA=','1pflwh7w',1,0,'',246,0,0),(1342,358,6,24,0,'80.58.35.235',1130929324,1,0,1,1,1,1,'','Re: Para TheFull UtilPrn si es posible ?','[quote=&quot;RuFer&quot;:3447u44k]TheFull: disculpa la molestia, pero solo uso UtilPrn para imprimir\nEsto me creaba un recuadro \ndesde 0.2,0.2 arriva, izq a 9.2 . 15 abajo , derecha en centimetros\n \npcm := 0.2\n\nUTILPRN oUtils MSG \"\"  PCM,2 TO PCM + 9 , 15 ;\n                 BRUSH oBrush PEN oPen1  \n\nPero no respeta los centímetros.\nRuben Fernandez.[/quote:3447u44k]\n\nCreo que seria lo correcto, segun tu explicacion :\nUTILPRN oUtils MSG \"\"  PCM,PCM TO PCM + 9 , 15 ;\n                 BRUSH oBrush PEN oPen1','',0,'gA==','3447u44k',1,0,'',24,0,0),(1343,315,6,24,0,'80.58.35.235',1130929732,1,0,1,1,1,1,'','Re:','Seria interesante que aprendieras a bajarte directamente desde el CVS la version o desde una fecha enconcreta, terminaras antes <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSi tienes como cliente el Tortuise , es relavativamente sencillo indicar que\nquieres bajarte , chekcout , de una fecha en concreta, al menos, que te acuerdes que te funcionaba bien.\n\nVete a la pestaña revision.\nMarca Files at certain time y selecciona la fecha que te interesa bajar como estaba en ese momento el compilador.\n\nPara que no entre en conflicto con el directorio que tienes, puedes indicar en la pestaña Options , Selecciona \"Enter your own folder name\", y ponle el nombre que quieres que te deje ahi el harbour que te vas a bajar.\n\nSi aprendes esto, cuando veas que han realiza alguna cosa que no funciona bien, puedes coger la version anterior, y al menos , no perderas tiempo inutilmente <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','3od9wy2l',1,0,'',24,0,0),(1344,368,6,24,0,'80.58.35.235',1130929841,1,0,1,1,1,1,'','Re:','Recuerda que la clase TReport NO HEREDA de TPRINTER, si no que contiene una DATA que es el objeto Printer.\nEntonces:\n\n OREPORT:OPRN:SETLANDSCAPE() \n\nEt Voila, yasta!!!','',0,'gA==','3pr6gnoc',1,0,'',24,0,0),(1345,354,6,24,0,'80.58.35.235',1130930068,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:2t6alqu0]Gracias Antonio. Funcionó perfecto.\nSólo por curiosidad, hay algún sitio (libro,web,etc...) donde estén indicadas esas funciones que sacais de los DLL32, me refiero a funciones de las librerias del sistema como la que tu has posteado.\n\nUn saludo.[/quote:2t6alqu0]\nAngel, cualquier compilador de C , Visual Basic, Delphi, es de donde sacamos toda esta informacion.\nTambien en linea, tienes el MSDN Library, creo recordad, que tendras informacion sobre un monton de cosas del API de M$.\n\nYo usaba algo llamado API-Guide, estaba fenomenal, puesto que era en Visual Basic, con toda la informacion sobre una funcion, sus paramentros , notas, ejemplos, etc....\n\nLa verdad creo que estaba <!-- m --><a class=\"postlink\" href=\"http://www.allapi.net\">http://www.allapi.net</a><!-- m -->\n\nDespues , solamente se trata de transformar la codificacion de cada caso al formato DLL32','',0,'gA==','2t6alqu0',1,0,'',24,0,0),(1346,371,6,23,0,'80.58.44.235',1130930567,1,0,1,1,1,1,'','Una de Folders','Hola foro, tengo un folder con múltiples pestañas (muuuuchas) y el control me presenta a la derecha arriba del folder dos flechas de desplazamiento pero que no realizan su función.\n¿hay que activar algo?\n\nAdjunto imagen.\nGracias.\n[img:1f3shbb3]http&#58;//www&#46;sigev&#46;com/folder&#46;jpg[/img:1f3shbb3][/img]','',0,'CA==','1f3shbb3',1,0,'',23,0,0),(1347,317,2,24,0,'80.58.35.235',1130930907,1,0,1,1,1,1,'','Re:','Amigo Luis, si he de serte sincero, para mi , Fivewin para clipper a muerto, porque creo sinceramente que [x]Harbour es muy superior a clipper, ademas se nota Y MUCHO, en usar 16 o 32 bits, al menos en los Windows 2000, XP.\n\nEn fin, lo bueno de esto , es que no tienes que comerte mucho el coco de dejar de usar clipper y meterte con Harbour, recuerda que Fivewin comparte el codigo fuente entre los distintos productos.\n\nCon respecto a que no hay documentacion sobre clases, es que si encima que la gente regala o pone a disposicion de la gente SU TRABAJO, encima este tenga que venir documentado, ya suena a pitorreo...\n\nDa gracias que es de libre uso y no tengas que pagarlo.\n\nAh!!! se me olvidaba, que el usar las clases de los demas no nos da derecho , encima, a tener que dar soporte tecnico... esto ya es el re-pitorreo...','',0,'','2onzlicx',1,0,'',24,0,0),(1348,371,6,17,0,'83.38.119.135',1130931423,1,0,1,1,1,1,'','Me pasa lo mismo','Confirmar que me pasa lo mismo con la versión FWH2.6 + xHarbour...\n¿ Hay algún ejemplo de como se utilizan esos dos botones ?\n\nAprovecho para preguntar si se pueden poner las pestañas en 2 o mas filas horizontalmente (una encima de otra), si no caben en una sóla y no van los botones...\n\nSaludos','',0,'','2gwl09nq',1,0,'',17,0,0),(1349,371,6,24,0,'80.58.35.235',1130932091,1,0,1,1,1,1,'','Re: Me pasa lo mismo','[quote=&quot;jesus&quot;:9ko4e4bv]Confirmar que me pasa lo mismo con la versión FWH2.6 + xHarbour...\n¿ Hay algún ejemplo de como se utilizan esos dos botones ?\n\nAprovecho para preguntar si se pueden poner las pestañas en 2 o mas filas horizontalmente (una encima de otra), si no caben en una sóla y no van los botones...\n\nSaludos[/quote:9ko4e4bv]\n\nA mi me funcionan perfectamente.\nEsos botones simplemente hacen un efecto \"scrolleable\" de las pestañas, no \nrealizan la funcion de PASAR de una pestaña a otra.\nSolamente se muestran cuando es necesario o se ocultan cuando no es necesario.\n\nRespecto a la segunda pregunta, NO TENGO ni idea...','',0,'gA==','9ko4e4bv',1,0,'',24,0,0),(1350,370,3,2,0,'80.58.2.107',1130933711,1,0,1,1,1,1,'','','Are you using harbour or xharbour ? what build ?','',0,'gA==','3air0rcs',1,0,'',2,0,0),(1351,371,6,2,0,'80.58.2.107',1130934018,1,0,1,1,1,1,'','','Hay que añadir este método a la Clase TFolder para que funcionen las flechas:\n\n[code:16pwfvtm]   METHOD HScroll&#40; nWParam, nLParam &#41; VIRTUAL\n[/code:16pwfvtm]\n\nEn cuanto a la doble barra de pestañas, aún no está implementado.','',0,'AIA=','16pwfvtm',1,0,'',2,0,0),(1352,170,16,2,0,'80.58.2.107',1130934130,1,0,1,1,1,1,'','','Puedes descargarlas usando los datos que te enviamos en el email de compra. Misma dirección y datos de login.\n\nMe alegro de que te guste <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1h4hi7jh',1,0,'',2,0,0),(1353,354,6,2,0,'80.58.2.107',1130934288,1,0,1,1,1,1,'','','Angel,\n\nPrincipalmente buscando en google <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2h6qjaqw',1,0,'',2,0,0),(1354,360,6,2,0,'80.58.2.107',1130934624,1,0,1,1,1,1,'','','Mario,\n\nPrueba a darle el foco a uno de los botones desde la claúsula ON INIT del diálogo:\n\n   ACTIVATE DIALOG oDlg ;   \n      ON INIT ..., oBoton1:SetFocus()','',0,'AIA=','9ficaufn',1,0,'',2,0,0),(1355,366,20,6,0,'82.54.221.213',1130936099,1,0,1,1,1,1,'','Re: Multiline GET','Eccoti un esempio funzionante. Spero di aver capito bene ciò che ti serve. Ti ho messo due possibilità, una con un pulsante e una digitando direttamente:\n\n[code:25kz4581]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 200\n\n    @ 1, 1 GET oGet VAR cVar MEMO OF oDlg;\n           SIZE 100, 50\n\n    oGet&#58;bKeyDown = &#123; | nKey | ADDLINE&#40; oGet, nKey &#41; &#125;\n\n    @ 4, 1 BUTTON &quot;&amp;Add text&quot; ACTION ADDTEXT&#40; oGet &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION ADDTEXT&#40; oGet &#41;\n\n    oGet&#58;Append&#40; &quot;This is a test&quot; + CRLF &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION ADDLINE&#40; oGet, nKey &#41;\n\n    IF nKey = 107\n        SYSREFRESH&#40;&#41;\n        oGet&#58;Append&#40; CRLF &#41;\n    ENDIF\n\n    RETURN NIL[/code:25kz4581]\n\nEMG','',0,'AIA=','25kz4581',1,0,'',6,0,0),(1356,365,3,6,0,'82.54.221.213',1130936639,1,0,1,1,1,1,'','Re: zip SPAN','I confirm the problem. Found no solution so far.\n\nEMG','',0,'AIA=','10qad9r2',1,0,'',6,0,0),(1357,372,2,129,0,'201.215.15.27',1130938179,1,0,1,1,1,0,'','Ok, me convenci, pero que necesito...','Ok, clipper comparado con Xarbour, nada que hacer, pero que necesito entonces, FWH ?, yo tengo fw 2.2, blinker, y clipper 5.3 como herramientas de trabajo, he tratado de informarme, pero, bien que necesito para pasar mis aplicaciones hechas con estas herramientas a xHarbour\ncual es el paso logico de crecimiento y de cambio, la lata es que hasta hace 1 1/2 año atras, yo usaba clipper para DOS, me pase a fw, y ahora siento que lo hecho no sirve de nada, pues debo pasarme a Harbour, espero que el cambio, me sirva algo de lo usado y no tener que empezar de nuevo, no lo resistiria','',0,'AIA=','2s0s135x',1,0,'',129,0,0),(1358,346,2,237,0,'200.68.70.89',1130940290,1,0,1,1,1,0,'','No he modificado nada','Los programas que tengo con fw - clipper - blinker  funcionando sobre windows xp sp2 nunca necesitaron modificación de nada. Que se supone que debería colocar dentro de autoexec.nt y config.nt ??? \nLo que no entiendo es por que en esa pc en especial tiene este problema, la pc es nueva y el xp está recién instalado.\n\nMuchas gracias y necesito cualquer ayuda que me puedan dar!!!!\n\nAlejandro.','',0,'AIA=','1yvhleo3',1,0,'',237,0,0),(1359,373,2,129,0,'201.215.15.27',1130943643,1,0,1,1,1,0,'','Que forma de Archivos, y Browse deo usar para este problema.','Amigos, tengo el siguiente problema, estoy trabajando en Red, bueno el cliente necesita ingresar facturas de compra, en un pc, hasta ahi todo bien, pero ahora se le ocurrio hacer lo mismo con 3 pc, o sea, que tres equipos entren a la misma funcion y hagan el mismo trabajo, bueno en DOS, yo eso lo habia superado con macros, pero en FW, me funcionan para algunas cosas, pero con TSBROWSE, en el modo de edicion no me sirve, se cae. \n\nes TSBROWSE, lo mejor para red, debo usar archivos temporales o pasarme a TDBF, pero cuando oo ejecuto, me sale un error de DBFSERVER, entonces, que hago amigos mios, necesito su ayuda, esto me tiene entrampado, y lo peor es que este cliente necesita que una ventana, se pueda abrir en \"el mismo\" equipo mas de una vez, es decir que tenga 3 o 4 notas de ventas en pantalla, que tipo de clase o formato de archivos debo usar, se que debo usar mdi, pero esto puede trabajar con dialogos con get y say... ?, digamen, que necesito para trabajar con archivos en red, lo mismo de clipper, la clase tdatabase de FW o TDBF.. me urge, please','',0,'AIA=','2by4vxts',1,0,'',129,0,0),(1360,354,6,23,0,'80.58.44.235',1130943932,1,0,1,1,1,1,'','','Muchas gracias a todos.\nIré \"oliendo\" por aquí y por allá a ver que veo.\n\nUn saludo.','',0,'AIA=','1azuhud6',1,0,'',23,0,0),(1361,358,6,61,0,'200.40.244.45',1130945106,1,0,1,1,1,0,'','Gracias Mestro.','La verdad que tu clase es espectacular.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','1ue7j5gh',1,0,'',61,0,0),(1362,374,2,248,0,'212.145.179.68',1130945925,1,0,1,1,1,0,'','Error de Proteccion General.','Una aplicacion me da aleatoriamente error de proteccion general en la direccion 001A:5EDE.\nAntonio me dijo que generara el fichero MAP para revisarlo y ver el posible fallo, asi lo he hecho pero no entiendo su significado, si alguien pudiera ayudarme se lo agradeceria mucho. Gracias.\n\nSaludos.\n\nNota.- ¿Es posible adjuntar un fichero? ¿Como?\n\nComo no se si se puede y como hacerlo aqui pongo el fichero MAP.\n\n\n FiveWin\n\n Start     Length     Name                   Class                  Group\n 0001:0010 009B4H     MAIN                   CODE \n 0001:09C4 00B27H     BUILDMENU              CODE \n 0001:14EC 00239H     BUILDMENU              CODE \n 0001:1726 0042DH     BUILDMENU              CODE \n 0001:1B54 000ABH     FCLIENTE               CODE \n 0001:1C00 000ABH     FDATOS                 CODE \n 0001:1CAC 000ABH     FPPTO                  CODE \n 0001:1D58 000ABH     FALBARAN               CODE \n 0001:1E04 000ABH     FPEDIDO                CODE \n 0001:1EB0 000ABH     FFACTURAS              CODE \n 0001:1F5C 000ABH     FABONO                 CODE \n 0001:2008 000ABH     FPARTES                CODE \n 0001:20B4 000ABH     FLABORA                CODE \n 0001:2160 000ABH     FALMACEN               CODE \n 0001:220C 000F9H     NUEVO                  CODE \n 0001:2306 000B1H     FTARIFAS               CODE \n 0001:23B8 0015AH     PRIMERA_MA             CODE \n 0001:2512 00230H     MASCARA                CODE \n 0001:2742 00374H     MENUOFFICE             CODE \n 0001:2AB6 00268H     INICIAL$               CODE \n 0001:2D1E 000BBH     SALIR$                 CODE \n 0001:2DDA 000C8H     PEND                   CODE \n 0001:2EA2 0031EH     CLIENTE                CODE \n 0001:31C0 015CDH     CLIACEPTA              CODE \n 0001:478E 0017DH     CLIBORRAR              CODE \n 0001:490C 000CBH     CLIVALCAMP             CODE \n 0001:49D8 000B1H     CLICLEAR               CODE \n 0001:4A8A 0009EH     STATICS$               CODE \n 0001:4B28 0009EH     STATICS$               CODE \n 0001:4BC6 0009EH     STATICS$               CODE \n 0001:4C64 0009EH     STATICS$               CODE \n 0001:4D02 0009EH     STATICS$               CODE \n 0001:4DA0 0009EH     STATICS$               CODE \n 0001:4E3E 0009EH     STATICS$               CODE \n 0001:4EDC 0009EH     STATICS$               CODE \n 0001:4F7A 0009EH     STATICS$               CODE \n 0001:5018 0009EH     STATICS$               CODE \n 0001:50B6 000A8H     STATICS$               CODE \n 0001:515E 0009EH     STATICS$               CODE \n 0001:51FC 000A4H     STATICS$               CODE \n 0001:52A0 000A4H     STATICS$               CODE \n 0001:5344 0009EH     STATICS$               CODE \n 0001:53E2 0009EH     STATICS$               CODE \n 0001:5480 0009EH     STATICS$               CODE \n 0001:551E 0009EH     STATICS$               CODE \n 0001:55BC 0001EH     STATICS$               CODE \n 0001:55DA 0002AH     STATICS$               CODE \n 0001:5604 0001EH     STATICS$               CODE \n 0001:5622 0002CH     STATICS$               CODE \n 0001:564E 0001EH     STATICS$               CODE \n 0001:566C 0002AH     STATICS$               CODE \n 0001:5696 00020H     STATICS$               CODE \n 0001:56B6 0001EH     STATICS$               CODE \n 0001:56D4 0001EH     STATICS$               CODE \n 0001:56F2 0001EH     STATICS$               CODE \n 0001:5710 0001EH     STATICS$               CODE \n 0001:572E 0001EH     STATICS$               CODE \n 0001:574C 0001EH     STATICS$               CODE \n 0001:576A 0001EH     STATICS$               CODE \n 0001:5788 0001EH     STATICS$               CODE \n 0001:57A6 00024H     STATICS$               CODE \n 0001:57CA 0001EH     STATICS$               CODE \n 0001:57E8 0001EH     STATICS$               CODE \n 0001:5806 0001EH     STATICS$               CODE \n 0001:5824 0001EH     STATICS$               CODE \n 0001:5842 0001EH     STATICS$               CODE \n 0001:5860 0001EH     STATICS$               CODE \n 0001:587E 0001EH     STATICS$               CODE \n 0001:589C 0001EH     STATICS$               CODE \n 0001:58BA 0001EH     STATICS$               CODE \n 0001:58D8 0001EH     STATICS$               CODE \n 0001:58F6 00024H     STATICS$               CODE \n 0001:591A 0001EH     STATICS$               CODE \n 0001:5938 0001EH     STATICS$               CODE \n 0001:5956 0001EH     STATICS$               CODE \n 0001:5974 0001EH     STATICS$               CODE \n 0001:5992 0001EH     STATICS$               CODE \n 0001:59B0 0001EH     STATICS$               CODE \n 0001:59CE 0001EH     STATICS$               CODE \n 0001:59EC 00026H     STATICS$               CODE \n 0001:5A12 0001EH     STATICS$               CODE \n 0001:5A30 00024H     STATICS$               CODE \n 0001:5A54 0001EH     STATICS$               CODE \n 0001:5A72 00020H     STATICS$               CODE \n 0001:5A92 0001EH     STATICS$               CODE \n 0001:5AB0 00020H     STATICS$               CODE \n 0001:5AD0 0001EH     STATICS$               CODE \n 0001:5AEE 0003CH     STATICS$               CODE \n 0001:5B2A 0001EH     STATICS$               CODE \n 0001:5B48 0001EH     STATICS$               CODE \n 0001:5B66 00020H     STATICS$               CODE \n 0001:5B86 00032H     STATICS$               CODE \n 0001:5BB8 0001EH     STATICS$               CODE \n 0001:5BD6 0001EH     STATICS$               CODE \n 0001:5BF4 00030H     STATICS$               CODE \n 0001:5C24 0001EH     STATICS$               CODE \n 0001:5C42 00117H     STATICS$               CODE \n 0001:5D5A 00024H     STATICS$               CODE \n 0001:5D7E 0001EH     STATICS$               CODE \n 0001:5D9C 0001EH     STATICS$               CODE \n 0001:5DBA 0001EH     STATICS$               CODE \n 0001:5DD8 0001EH     STATICS$               CODE \n 0001:5DF6 0001EH     STATICS$               CODE \n 0001:5E14 0002BH     STATICS$               CODE \n 0001:5E40 0001EH     STATICS$               CODE \n 0001:5E5E 00022H     STATICS$               CODE \n 0001:5E80 00030H     STATICS$               CODE \n 0001:5EB0 0087BH     GENERA                 CODE \n 0001:672C 000EBH     UNINDICE               CODE \n 0001:6818 01A18H     REINDX                 CODE \n 0001:8230 0067FH     DATOS                  CODE \n 0001:88B0 00838H     CAMBIO                 CODE \n 0001:90E8 001F3H     CAMBIO                 CODE \n 0001:92DC 00466H     PPTO                   CODE \n 0001:9742 012C7H     PPTACEPTA              CODE \n 0001:AA0A 00264H     PPTBORRAR              CODE \n 0001:AC6E 0128BH     PPTREPORTE             CODE \n 0001:BEFA 003D5H     CABECERA               CODE \n 0001:C2D0 00361H     CABECERA               CODE \n 0001:C632 00360H     CABECERA               CODE \n 0001:C992 003E5H     CABECERA               CODE \n 0001:CD78 0034DH     CABECERA               CODE \n 0001:D0C6 00762H     CABECERA               CODE \n 0001:D828 000B1H     PPTVALCAMP             CODE \n 0001:D8DA 00544H     DATOSADICI             CODE \n 0001:DE1E 00537H     BUSCAR                 CODE \n 0001:E356 000DFH     BUSCAR                 CODE \n 0001:E436 00126H     TRASPASAR              CODE \n 0001:E55C 001D5H     TRASPASAR              CODE \n 0001:E732 003F1H     LINEAS                 CODE \n 0001:EB24 0027FH     FTOTAL                 CODE \n 0002:0000 01445H     NUEVOCLIEN             CODE \n 0002:1446 00469H     ALBARAN                CODE \n 0002:18B0 012D0H     ALBACEPTA              CODE \n 0002:2B80 0026DH     ALBBORRAR              CODE \n 0002:2DEE 00A34H     ALBREPORTE             CODE \n 0002:3822 000B1H     ALBVALCAMP             CODE \n 0002:38D4 00466H     PEDIDO                 CODE \n 0002:3D3A 01351H     PEDACEPTA              CODE \n 0002:508C 0026AH     PEDBORRAR              CODE \n 0002:52F6 00A95H     PEDREPORTE             CODE \n 0002:5D8C 000B1H     PEDVALCAMP             CODE \n 0002:5E3E 00468H     FACTURA                CODE \n 0002:62A6 012D0H     FACACEPTA              CODE \n 0002:7576 0026DH     FACBORRAR              CODE \n 0002:77E4 00DEEH     FACREPORTE             CODE \n 0002:85D2 000B1H     FACVALCAMP             CODE \n 0002:8684 00459H     ABONO                  CODE \n 0002:8ADE 01218H     ABOACEPTA              CODE \n 0002:9CF6 00267H     ABOBORRAR              CODE \n 0002:9F5E 009FBH     ABOREPORTE             CODE \n 0002:A95A 000B1H     ABOVALCAMP             CODE \n 0002:AA0C 00660H     TARIFAS                CODE \n 0002:B06C 00729H     PRODUCTOS              CODE \n 0002:B796 000D2H     VALOR                  CODE \n 0002:B868 00666H     MARGEN                 CODE \n 0002:BECE 0015DH     VALORM                 CODE \n 0002:C02C 00491H     ACTUALIZAR             CODE \n 0002:C4BE 00800H     BUILDINDEX             CODE \n 0002:CCBE 0011BH     REFERENCIA             CODE \n 0002:CDDA 00303H     MARGENPI               CODE \n 0002:D0DE 002E0H     BUILDPRECI             CODE \n 0002:D3BE 001A4H     CONECTA                CODE \n 0002:D562 0046AH     PARTES                 CODE \n 0002:D9CC 019BBH     PARACEPTA              CODE \n 0002:F388 0026AH     PARBORRAR              CODE \n 0003:0000 00BBEH     PARREPORTE             CODE \n 0003:0BBE 00396H     LABORA                 CODE \n 0003:0F54 00741H     LABACEPTA              CODE \n 0003:1696 00197H     LABBORRAR              CODE \n 0003:182E 0036BH     ALMACEN                CODE \n 0003:1B9A 00A50H     ALMACEPTA              CODE \n 0003:25EA 0017DH     ALMBORRAR              CODE \n 0003:2768 000C5H     CALCULOPVP             CODE \n 0003:282E 0049BH     BMODULO1               CODE \n 0003:2CCA 003A2H     LINEAS1                CODE \n 0003:306C 002EBH     BORRAR1                CODE \n 0003:3358 00518H     BMODULO2               CODE \n 0003:3870 003DEH     LINEAS2                CODE \n 0003:3C4E 001D2H     BORRAR2                CODE \n 0003:3E20 000DDH     TABLA1                 CODE \n 0003:3EFE 00184H     TABLA2                 CODE \n 0003:4082 0009AH     TOOLS                  CODE \n 0003:411C 0001AH     TOOLS                  CODE \n 0003:4136 0049EH     LEEPASSWOR             CODE \n 0003:45D4 0041EH     LEEPASSWOR             CODE \n 0003:49F2 001B6H     PASSDBF                CODE \n 0003:4BA8 00136H     PASSDBF                CODE \n 0003:4CDE 000E6H     ANIMACION              CODE \n 0003:4DC4 00066H     ANIMACION              CODE \n 0003:4E2A 00117H     ANIMAMETER             CODE \n 0003:4F42 00097H     ANIMAMETER             CODE \n 0003:4FDA 00218H     ACCESO                 CODE \n 0003:51F2 00198H     ACCESO                 CODE \n 0003:538A 0014FH     COLORES                CODE \n 0003:54DA 000CFH     COLORES                CODE \n 0003:55AA 00192H     LETRA                  CODE \n 0003:573C 00112H     LETRA                  CODE \n 0003:584E 001EBH     CAMBIOUS               CODE \n 0003:5A3A 0016BH     CAMBIOUS               CODE \n 0003:5BA6 00338H     APLIEXIT               CODE \n 0003:5EDE 002B8H     APLIEXIT               CODE \n 0003:6196 0009AH     JOSE                   CODE \n 0003:6230 0036CH     CODBROWSE              CODE \n 0003:659C 00A2AH     NEW                    CODE \n 0003:6FC6 005CBH     NEW                    CODE \n 0003:7592 002F3H     NEW                    CODE \n 0003:7886 0048DH     NEW                    CODE \n 0003:7D14 00886H     NEW                    CODE \n 0003:859A 00066H     NEW                    CODE \n 0003:8600 0008CH     NEW                    CODE \n 0003:868C 00065H     NEW                    CODE \n 0003:86F2 000CFH     NEW                    CODE \n 0003:87C2 000B3H     NEW                    CODE \n 0003:8876 0003BH     NEW                    CODE \n 0003:88B2 00362H     NEW                    CODE \n 0003:8C14 00091H     NEW                    CODE \n 0003:8CA6 000F1H     NEW                    CODE \n 0003:8D98 00090H     NEW                    CODE \n 0003:8E28 00059H     NEW                    CODE \n 0003:8E82 00444H     NEW                    CODE \n 0003:92C6 00383H     NEW                    CODE \n 0003:964A 001EFH     NEW                    CODE \n 0003:983A 00161H     NEW                    CODE \n 0003:999C 003D3H     NEW                    CODE \n 0003:9D70 002F3H     NEW                    CODE \n 0003:A064 002EAH     NEW                    CODE \n 0003:A34E 00084H     NEW                    CODE \n 0003:A3D2 00354H     NEW                    CODE \n 0003:A726 00388H     NEW                    CODE \n 0003:AAAE 001B6H     NEW                    CODE \n 0003:AC64 0028EH     NEW                    CODE \n 0003:AEF2 00265H     NEW                    CODE \n 0003:B158 0045EH     NEW                    CODE \n 0003:B5B6 00565H     NEW                    CODE \n 0003:BB1C 00425H     NEW                    CODE \n 0003:BF42 002FEH     NEW                    CODE \n 0003:C240 0013FH     NEW                    CODE \n 0003:C380 000B9H     NEW                    CODE \n 0003:C43A 000C5H     NEW                    CODE \n 0003:C500 00508H     NEW                    CODE \n 0003:CA08 00398H     NEW                    CODE \n 0003:CDA0 00361H     NEW                    CODE \n 0003:D102 00329H     NEW                    CODE \n 0003:D42C 00571H     NEW                    CODE \n 0003:D99E 00435H     NEW                    CODE \n 0003:DDD4 004FEH     NEW                    CODE \n 0003:E2D2 0093BH     NEW                    CODE \n 0003:EC0E 001EFH     NEW                    CODE \n 0003:EDFE 003CBH     NEW                    CODE \n 0003:F1CA 0043BH     NEW                    CODE \n 0003:F606 00232H     NEW                    CODE \n 0003:F838 002B5H     NEW                    CODE \n 0003:FAEE 002F1H     NEW                    CODE \n 0004:0000 00A30H     NEW                    CODE \n 0004:0A30 000FAH     NEW                    CODE \n 0004:0B2A 009FFH     NEW                    CODE \n 0004:152A 00098H     NEW                    CODE \n 0004:15C2 0036EH     BRWFIELDS              CODE \n 0004:1930 000E7H     REFRESHBAR             CODE \n 0004:1A18 00274H     REGGOTO                CODE \n 0004:1C8C 000F0H     REGPOS                 CODE \n 0004:1D7C 006F5H     BUSINCR                CODE \n 0004:2472 00216H     FLOATCLICK             CODE \n 0004:2688 00230H     FLOATCLICK             CODE \n 0004:28B8 00396H     SUMACOLUMN             CODE \n 0004:2C4E 0072FH     NATION_TEXT            CODE \n 0004:337E 00FA3H     TWBROWSE               CODE \n 0004:4322 00402H     REDEFINE               CODE \n 0004:4724 00256H     REDEFINE               CODE \n 0004:497A 00169H     REDEFINE               CODE \n 0004:4AE4 00183H     REDEFINE               CODE \n 0004:4C68 000BAH     REDEFINE               CODE \n 0004:4D22 00135H     REDEFINE               CODE \n 0004:4E58 00124H     REDEFINE               CODE \n 0004:4F7C 001C3H     REDEFINE               CODE \n 0004:5140 001C1H     REDEFINE               CODE \n 0004:5302 003C1H     REDEFINE               CODE \n 0004:56C4 000B3H     REDEFINE               CODE \n 0004:5778 001F1H     REDEFINE               CODE \n 0004:596A 00254H     REDEFINE               CODE \n 0004:5BBE 00157H     REDEFINE               CODE \n 0004:5D16 000CDH     REDEFINE               CODE \n 0004:5DE4 00204H     REDEFINE               CODE \n 0004:5FE8 000FEH     REDEFINE               CODE \n 0004:60E6 001F8H     REDEFINE               CODE \n 0004:62DE 001D3H     REDEFINE               CODE \n 0004:64B2 0005FH     REDEFINE               CODE \n 0004:6512 001B4H     REDEFINE               CODE \n 0004:66C6 0012EH     REDEFINE               CODE \n 0004:67F4 0080DH     REDEFINE               CODE \n 0004:7002 00185H     _DRAWICON              CODE \n 0004:7188 00102H     _DRAWICON              CODE \n 0004:728A 00121H     NATICON                CODE \n 0004:73AC 000A4H     NATICON                CODE \n 0004:7450 0027DH     DRAWICONS              CODE \n 0004:76CE 002A7H     DRAWICONS              CODE \n 0004:7976 005C2H     EDITCOL                CODE \n 0004:7F38 001AAH     SETARRAY               CODE \n 0004:80E2 0027EH     SETARRAY               CODE \n 0004:8360 002F3H     SETARRAY               CODE \n 0004:8654 00279H     SETTREE                CODE \n 0004:88CE 00215H     SETTREE                CODE \n 0004:8AE4 00331H     PAINT                  CODE \n 0004:8E16 002EDH     PAINT                  CODE \n 0004:9104 0018FH     PAINT                  CODE \n 0004:9294 00379H     PAINT                  CODE \n 0004:960E 000D3H     PAINT                  CODE \n 0004:96E2 0008FH     PAINT                  CODE \n 0004:9772 00166H     PAINT                  CODE \n 0004:98D8 00102H     PAINT                  CODE \n 0004:99DA 000C3H     PAINT                  CODE \n 0004:9A9E 00182H     PAINT                  CODE \n 0004:9C20 0049DH     PAINT                  CODE \n 0004:A0BE 00424H     PAINT                  CODE \n 0004:A4E2 00177H     PAINT                  CODE \n 0004:A65A 00577H     LEDITCOL               CODE \n 0004:ABD2 00612H     LEDITCOL               CODE \n 0004:B1E4 00FEAH     LEDITCOL               CODE \n 0004:C1CE 0019FH     DLGADJUST              CODE \n 0004:C36E 001EDH     GOUP                   CODE \n 0004:C55C 00227H     GOUP                   CODE \n 0004:C784 00331H     GOUP                   CODE \n 0004:CAB6 001E9H     GODOWN                 CODE \n 0004:CCA0 00226H     GODOWN                 CODE \n 0004:CEC6 001ADH     GODOWN                 CODE \n 0004:D074 00480H     GODOWN                 CODE \n 0004:D4F4 00106H     GOLEFT                 CODE \n 0004:D5FA 00197H     GOLEFT                 CODE \n 0004:D792 00152H     GOLEFT                 CODE \n 0004:D8E4 00253H     GOLEFT                 CODE \n 0004:DB38 0010FH     GORIGHT                CODE \n 0004:DC48 002D3H     GORIGHT                CODE \n 0004:DF1C 00152H     GORIGHT                CODE \n 0004:E06E 0045BH     GORIGHT                CODE \n 0004:E4CA 0017AH     GOTOP                  CODE \n 0004:E644 001A0H     GOTOP                  CODE \n 0004:E7E4 0016FH     GOTOP                  CODE \n 0004:E954 00148H     GOTOP                  CODE \n 0004:EA9C 00251H     GOBOTTOM               CODE \n 0004:ECEE 00277H     GOBOTTOM               CODE \n 0004:EF66 0022CH     GOBOTTOM               CODE \n 0004:F192 0020DH     LDBLCLICK              CODE \n 0004:F3A0 003F7H     LDBLCLICK              CODE \n 0004:F798 00050H     LDBLCLICK              CODE \n 0005:0000 00E94H     LDBLCLICK              CODE \n 0005:0E94 004B8H     LBUTTONDOW             CODE \n 0005:134C 00445H     LBUTTONDOW             CODE \n 0005:1792 000E7H     LBUTTONDOW             CODE \n 0005:187A 00056H     LBUTTONDOW             CODE \n 0005:18D0 00090H     LBUTTONDOW             CODE \n 0005:1960 00050H     LBUTTONDOW             CODE \n 0005:19B0 0007BH     LBUTTONDOW             CODE \n 0005:1A2C 00109H     LBUTTONDOW             CODE \n 0005:1B36 000E4H     LBUTTONDOW             CODE \n 0005:1C1A 00509H     LBUTTONDOW             CODE \n 0005:2124 00129H     LBUTTONUP              CODE \n 0005:224E 00223H     LBUTTONUP              CODE \n 0005:2472 00074H     LBUTTONUP              CODE \n 0005:24E6 00074H     LBUTTONUP              CODE \n 0005:255A 0015EH     LBUTTONUP              CODE \n 0005:26B8 0009DH     LBUTTONUP              CODE \n 0005:2756 00457H     LBUTTONUP              CODE \n 0005:2BAE 001B8H     LBUTTONUP              CODE \n 0005:2D66 00194H     LBUTTONUP              CODE \n 0005:2EFA 00522H     DEFAULT                CODE \n 0005:341C 004A1H     DEFAULT                CODE \n 0005:38BE 00060H     DEFAULT                CODE \n 0005:391E 001D1H     DEFAULT                CODE \n 0005:3AF0 00084H     DEFAULT                CODE \n 0005:3B74 0003AH     DEFAULT                CODE \n 0005:3BAE 00089H     DEFAULT                CODE \n 0005:3C38 001CEH     DEFAULT                CODE \n 0005:3E06 00060H     DEFAULT                CODE \n 0005:3E66 00343H     DEFAULT                CODE \n 0005:41AA 00051H     DEFAULT                CODE \n 0005:41FC 00113H     DEFAULT                CODE \n 0005:4310 0009AH     DEFAULT                CODE \n 0005:43AA 0003CH     DEFAULT                CODE \n 0005:43E6 002F7H     DEFAULT                CODE \n 0005:46DE 00D60H     DEFAULT                CODE \n 0005:543E 0019AH     KEYDOWN                CODE \n 0005:55D8 00387H     KEYDOWN                CODE \n 0005:5960 000D8H     KEYDOWN                CODE \n 0005:5A38 000F9H     KEYDOWN                CODE \n 0005:5B32 000C2H     KEYDOWN                CODE \n 0005:5BF4 0009DH     KEYDOWN                CODE \n 0005:5C92 00551H     KEYDOWN                CODE \n 0005:61E4 000DBH     KEYDOWN                CODE \n 0005:62C0 00098H     KEYDOWN                CODE \n 0005:6358 001C7H     KEYDOWN                CODE \n 0005:6520 000B0H     KEYDOWN                CODE \n 0005:65D0 000C4H     KEYDOWN                CODE \n 0005:6694 00150H     KEYDOWN                CODE \n 0005:67E4 00177H     KEYDOWN                CODE \n 0005:695C 01241H     KEYDOWN                CODE \n 0005:7B9E 00104H     KEYCHAR                CODE \n 0005:7CA2 0011CH     KEYCHAR                CODE \n 0005:7DBE 00113H     KEYCHAR                CODE \n 0005:7ED2 000C1H     KEYCHAR                CODE \n 0005:7F94 0004FH     KEYCHAR                CODE \n 0005:7FE4 00374H     KEYCHAR                CODE \n 0005:8358 000C5H     KEYCHAR                CODE \n 0005:841E 00150H     KEYCHAR                CODE \n 0005:856E 0005DH     KEYCHAR                CODE \n 0005:85CC 000B5H     KEYCHAR                CODE \n 0005:8682 000DDH     KEYCHAR                CODE \n 0005:8760 000FCH     KEYCHAR                CODE \n 0005:885C 0016DH     KEYCHAR                CODE \n 0005:89CA 00238H     PAGEUP                 CODE \n 0005:8C02 00110H     PAGEUP                 CODE \n 0005:8D12 000DCH     PAGEUP                 CODE \n 0005:8DEE 00285H     PAGEUP                 CODE \n 0005:9074 00355H     PAGEDOWN               CODE \n 0005:93CA 00110H     PAGEDOWN               CODE \n 0005:94DA 000D5H     PAGEDOWN               CODE \n 0005:95B0 00353H     PAGEDOWN               CODE \n 0005:9904 00320H     VSCROLL                CODE \n 0005:9C24 000E3H     VSCROLL                CODE \n 0005:9D08 000FFH     VSCROLL                CODE \n 0005:9E08 0018AH     VSCROLL                CODE \n 0005:9F92 002E9H     VSCROLL                CODE \n 0005:A27C 002E4H     HSCROLL                CODE \n 0005:A560 004CFH     HSCROLL                CODE \n 0005:AA30 000E3H     HSCROLL                CODE \n 0005:AB14 000FFH     HSCROLL                CODE \n 0005:AC14 0017CH     HSCROLL                CODE \n 0005:AD90 00271H     HSCROLL                CODE \n 0005:B002 000E9H     SKIP                   CODE \n 0005:B0EC 00090H     SKIP                   CODE \n 0005:B17C 00096H     SKIP                   CODE \n 0005:B212 00064H     SKIP                   CODE \n 0005:B276 00111H     BRWGOBOTTO             CODE \n 0005:B388 00094H     BRWGOBOTTO             CODE \n 0005:B41C 00275H     BUILDSKIP              CODE \n 0005:B692 00204H     BUILDSKIP              CODE \n 0005:B896 0016FH     BRWGOTO                CODE \n 0005:BA06 0017DH     BRWGOTO                CODE \n 0005:BB84 001B7H     _RECCOUNT              CODE \n 0005:BD3C 0010DH     _RECCOUNT              CODE \n 0005:BE4A 000C6H     GENLOCAL               CODE \n 0005:BF10 000B9H     GENBLOCK               CODE \n 0005:BFCA 004CCH     REPORT                 CODE \n 0005:C496 005EEH     REPORT                 CODE \n 0005:CA84 005EBH     REPORT                 CODE \n 0005:D070 00217H     UPSTABLE               CODE \n 0005:D288 00239H     UPSTABLE               CODE \n 0005:D4C2 0034AH     SETFILTER              CODE \n 0005:D80C 0027BH     SETFILTER              CODE \n 0005:DA88 0018FH     MOUSEMOVE              CODE \n 0005:DC18 00428H     MOUSEMOVE              CODE \n 0005:E040 00050H     MOUSEMOVE              CODE \n 0005:E090 00067H     MOUSEMOVE              CODE \n 0005:E0F8 00050H     MOUSEMOVE              CODE \n 0005:E148 00050H     MOUSEMOVE              CODE \n 0005:E198 000C4H     MOUSEMOVE              CODE \n 0005:E25C 00050H     MOUSEMOVE              CODE \n 0005:E2AC 000C4H     MOUSEMOVE              CODE \n 0005:E370 0009DH     MOUSEMOVE              CODE \n 0005:E40E 00099H     MOUSEMOVE              CODE \n 0005:E4A8 000CAH     MOUSEMOVE              CODE \n 0005:E572 001FEH     MOUSEMOVE              CODE \n 0005:E770 0017CH     MOUSEMOVE              CODE \n 0005:E8EC 003FEH     MOUSEMOVE              CODE \n 0005:ECEA 00056H     MOUSEMOVE              CODE \n 0005:ED40 001CDH     VERTLINE               CODE \n 0005:EF0E 001FFH     VERTLINE               CODE \n 0005:F10E 001AFH     VERTLINE               CODE \n 0005:F2BE 000EAH     NATCOL                 CODE \n 0005:F3A8 00183H     NATCOL                 CODE \n 0005:F52C 000FEH     NATCOL                 CODE \n 0005:F62A 0019AH     DISPLAY                CODE \n 0005:F7C4 00041H     DISPLAY                CODE \n 0005:F806 00041H     DISPLAY                CODE \n 0005:F848 00253H     DISPLAY                CODE \n 0005:FA9C 00132H     GETDLGCODE             CODE \n 0005:FBCE 0006AH     GETDLGCODE             CODE \n 0005:FC38 000ECH     GETDLGCODE             CODE \n 0005:FD24 00080H     GETDLGCODE             CODE \n 0005:FDA4 0005EH     GETDLGCODE             CODE \n 0005:FE02 0005EH     GETDLGCODE             CODE \n 0005:FE60 000B5H     GETDLGCODE             CODE \n 0006:0000 001F4H     _AFIELDS               CODE \n 0006:01F4 00231H     SETCOLS                CODE \n 0006:0426 001B6H     SETCOLS                CODE \n 0006:05DC 00109H     SHOWSIZES              CODE \n 0006:06E6 0017FH     SHOWSIZES              CODE \n 0006:0866 00198H     ISCOLVISIB             CODE \n 0006:09FE 0013CH     ISCOLVISIB             CODE \n 0006:0B3A 000F6H     _ADATA                 CODE \n 0006:0C30 00079H     _ADATA                 CODE \n 0006:0CAA 000E5H     RESIZE                 CODE \n 0006:0D90 0014AH     RESIZE                 CODE \n 0006:0EDA 00121H     RESIZE                 CODE \n 0006:0FFC 00050H     RESIZE                 CODE \n 0006:104C 00129H     RESIZE                 CODE \n 0006:1176 00068H     RESIZE                 CODE \n 0006:11DE 011E1H     TCBROWSE               CODE \n 0006:23C0 00171H     LOADFIELDS             CODE \n 0006:2532 00345H     LOADFIELDS             CODE \n 0006:2878 000D7H     FIELDSETGE             CODE \n 0006:2950 0005AH     FIELDSETGE             CODE \n 0006:29AA 003FFH     DRAWHEADER             CODE \n 0006:2DAA 00890H     DRAWHEADER             CODE \n 0006:363A 00472H     DRAWLINE               CODE \n 0006:3AAC 006C4H     DRAWLINE               CODE \n 0006:4170 004C6H     DRAWSELECT             CODE \n 0006:4636 008A2H     DRAWSELECT             CODE \n 0006:4ED8 00218H     SETODBF                CODE \n 0006:50F0 00239H     SETODBF                CODE \n 0006:532A 0019EH     SWITCHCOLS             CODE \n 0006:54C8 0013EH     SWITCHCOLS             CODE \n 0006:5606 000B9H     GENHEAD                CODE \n 0006:56C0 0003CH     GENHEAD                CODE \n 0006:56FC 000B9H     GENFOOT                CODE \n 0006:57B6 0003CH     GENFOOT                CODE \n 0006:57F2 000D8H     GENDATA                CODE \n 0006:58CA 0005BH     GENDATA                CODE \n 0006:5926 0051BH     SEEK                   CODE \n 0006:5E42 00194H     SEEK                   CODE \n 0006:5FD6 004F1H     SEEK                   CODE \n 0006:64C8 0023AH     SETORDER               CODE \n 0006:6702 0027BH     SETORDER               CODE \n 0006:697E 0021CH     DATESEEK               CODE \n 0006:6B9A 00199H     DATESEEK               CODE \n 0006:6D34 00104H     RESETSEEK              CODE \n 0006:6E38 000ABH     RESETSEEK              CODE \n 0006:6EE4 0044EH     RESETBARPO             CODE \n 0006:7332 0094CH     RESETBARPO             CODE \n 0006:7C7E 000DFH     INSPECT                CODE \n 0006:7D5E 0009BH     INSPECT                CODE \n 0006:7DFA 00084H     INSPECT                CODE \n 0006:7E7E 00066H     INSPECT                CODE \n 0006:7EE4 003E3H     HILITECELL             CODE \n 0006:82C8 003B5H     HILITECELL             CODE \n 0006:867E 00103H     GETCOLUMN              CODE \n 0006:8782 00086H     GETCOLUMN              CODE \n 0006:8808 00261H     DELCOLUMN              CODE \n 0006:8A6A 001D9H     DELCOLUMN              CODE \n 0006:8C44 0028BH     INSCOLUMN              CODE \n 0006:8ED0 00227H     INSCOLUMN              CODE \n 0006:90F8 00182H     SELEDITFIE             CODE \n 0006:927A 0069FH     TCCOLUMN               CODE \n 0006:991A 00264H     LOAD                   CODE \n 0006:9B7E 00191H     LOAD                   CODE \n 0006:9D10 001E5H     LOAD                   CODE \n 0006:9EF6 00196H     LOAD                   CODE \n 0006:A08C 001E4H     LOAD                   CODE \n 0006:A270 002F2H     SAVE                   CODE \n 0006:A562 0018AH     SAVE                   CODE \n 0006:A6EC 001C9H     SAVE                   CODE \n 0006:A8B6 00229H     SAVE                   CODE \n 0006:AAE0 0026CH     SAVE                   CODE \n 0006:AD4C 0048EH     CATMOD                 CODE \n 0006:B1DA 005A3H     MODACEPTA              CODE \n 0006:B77E 00101H     MODBORRAR              CODE \n 0006:B880 00253H     MODVALCAMP             CODE \n 0006:BAD4 000C5H     MODCLEAR               CODE \n 0006:BB9A 003B7H     USUARIOS               CODE \n 0006:BF52 0134BH     USUACEPTA              CODE \n 0006:D29E 00165H     USUBORRAR              CODE \n 0006:D404 000B1H     USUREPORTE             CODE \n 0006:D4B6 0025CH     USUVALCAMP             CODE \n 0006:D712 000BBH     USUCLEAR               CODE \n 0006:D7CE 0029FH     USUGRABA               CODE \n 0006:DA6E 00437H     TMAINCTRL              CODE \n 0006:DEA6 0022EH     TCLIPBOARD             CODE \n 0006:E0D4 00054H     SETTEXT                CODE \n 0006:E128 00049H     GETTEXT                CODE \n 0006:E172 00048H     ISEMPTY                CODE \n 0006:E1BA 001F6H     TDDE                   CODE \n 0006:E3B0 00056H     ACTIVATE               CODE \n 0006:E406 0005DH     ACTIVATE               CODE \n 0006:E464 0010BH     ACTIVATE               CODE \n 0006:E570 00411H     ACTIVATE               CODE \n 0006:E982 0067BH     ACTIVATE               CODE \n 0006:EFFE 00329H     ACTIVATE               CODE \n 0006:F328 000A0H     EXECUTE                CODE \n 0006:F3C8 00098H     DDEACK                 CODE \n 0006:F460 00096H     DDETERMINA             CODE \n 0006:F4F6 0007FH     GETTASKS               CODE \n 0006:F576 00129H     TINI                   CODE \n 0006:F6A0 0010DH     GET                    CODE \n 0006:F7AE 00066H     SET                    CODE \n 0006:F814 00067H     SET                    CODE \n 0006:F87C 000ECH     SET                    CODE \n 0006:F968 000C7H     SET                    CODE \n 0006:FA30 0007CH     _SETKEY                CODE \n 0006:FAAC 0017FH     MEMSTAT                CODE \n 0006:FC2C 00059H     NEXTMEM                CODE \n 0006:FC86 00166H     TPEN                   CODE \n 0006:FDEC 0006CH     END                    CODE \n 0006:FE58 0012AH     END                    CODE \n 0007:0000 00077H     END                    CODE \n 0007:0078 00050H     END                    CODE \n 0007:00C8 00093H     END                    CODE \n 0007:015C 000ECH     END                    CODE \n 0007:0248 000C9H     END                    CODE \n 0007:0312 000C5H     END                    CODE \n 0007:03D8 000CFH     END                    CODE \n 0007:04A8 00073H     END                    CODE \n 0007:051C 0018EH     END                    CODE \n 0007:06AA 00109H     END                    CODE \n 0007:07B4 001C6H     TTIMER                 CODE \n 0007:097A 0006FH     TIMEREVENT             CODE \n 0007:09EA 0003CH     CREATE                 CODE \n 0007:0A26 00322H     CREATE                 CODE \n 0007:0D48 00322H     CREATE                 CODE \n 0007:106A 00312H     CREATE                 CODE \n 0007:137C 0001EH     DOBREAK                CODE \n 0007:139A 0009EH     ADD                    CODE \n 0007:1438 000D5H     ADD                    CODE \n 0007:150E 0006AH     ADD                    CODE \n 0007:1578 000C0H     ADD                    CODE \n 0007:1638 0032CH     ADD                    CODE \n 0007:1964 0009BH     ADD                    CODE \n 0007:1A00 0015CH     TSTRUCT                CODE \n 0007:1B5C 000F7H     ADDMEMBER              CODE \n 0007:1C54 000FDH     ONERROR                CODE \n 0007:1D52 00401H     SETMEMBER              CODE \n 0007:2154 00174H     GETMEMBER              CODE \n 0007:22C8 00030H     THISSTRUCT             CODE \n 0007:22F8 00078H     INITIATE               CODE \n 0007:2370 0008AH     INITIATE               CODE \n 0007:23FA 00095H     INITIATE               CODE \n 0007:2490 00064H     INITIATE               CODE \n 0007:24F4 000C6H     INITIATE               CODE \n 0007:25BA 0023BH     INITIATE               CODE \n 0007:27F6 0008AH     INITIATE               CODE \n 0007:2880 0009FH     INITIATE               CODE \n 0007:2920 00160H     INITIATE               CODE \n 0007:2A80 00050H     INITIATE               CODE \n 0007:2AD0 000A3H     HANDLEEVEN             CODE \n 0007:2B74 00050H     HANDLEEVEN             CODE \n 0007:2BC4 000FDH     HANDLEEVEN             CODE \n 0007:2CC2 00067H     HANDLEEVEN             CODE \n 0007:2D2A 001ACH     TBRUSH                 CODE \n 0007:2ED6 0007EH     CGENPRG                CODE \n 0007:2F54 000CDH     CGENPRG                CODE \n 0007:3022 0013CH     CGENPRG                CODE \n 0007:315E 0010CH     CGENPRG                CODE \n 0007:326A 000C4H     CGENPRG                CODE \n 0007:332E 00118H     CGENPRG                CODE \n 0007:3446 000C6H     CGENPRG                CODE \n 0007:350C 00361H     CGENPRG                CODE \n 0007:386E 00073H     CGENPRG                CODE \n 0007:38E2 000ADH     DEL                    CODE \n 0007:3990 0021BH     DEL                    CODE \n 0007:3BAC 000AAH     DEL                    CODE \n 0007:3C56 00146H     DEL                    CODE \n 0007:3D9C 0007CH     DEL                    CODE \n 0007:3E18 0004FH     DRAWITEM               CODE \n 0007:3E68 0004FH     DRAWITEM               CODE \n 0007:3EB8 0015FH     DRAWITEM               CODE \n 0007:4018 000A3H     INSERT                 CODE \n 0007:40BC 002EEH     INSERT                 CODE \n 0007:43AA 0008FH     INSERT                 CODE \n 0007:443A 000C2H     LOSTFOCUS              CODE \n 0007:44FC 0007CH     LOSTFOCUS              CODE \n 0007:4578 000D3H     LOSTFOCUS              CODE \n 0007:464C 000C3H     LOSTFOCUS              CODE \n 0007:4710 00106H     LOSTFOCUS              CODE \n 0007:4816 0006BH     LOSTFOCUS              CODE \n 0007:4882 000C6H     LOSTFOCUS              CODE \n 0007:4948 00175H     LOSTFOCUS              CODE \n 0007:4ABE 0009AH     MODIFY                 CODE \n 0007:4B58 00074H     MODIFY                 CODE \n 0007:4BCC 00075H     DESTROY                CODE \n 0007:4C42 000DDH     DESTROY                CODE \n 0007:4D20 00059H     DESTROY                CODE \n 0007:4D7A 00091H     DESTROY                CODE \n 0007:4E0C 0004AH     DESTROY                CODE \n 0007:4E56 00075H     DESTROY                CODE \n 0007:4ECC 0004AH     DESTROY                CODE \n 0007:4F16 000A5H     DESTROY                CODE \n 0007:4FBC 001DAH     DESTROY                CODE \n 0007:5196 000A8H     DESTROY                CODE \n 0007:523E 0005BH     DESTROY                CODE \n 0007:529A 0002DH     CFILENAME              CODE \n 0007:52C8 000BBH     SETCOLOR               CODE \n 0007:5384 009C5H     SETCOLOR               CODE \n 0007:5D4A 0004BH     NGETBYTE               CODE \n 0007:5D96 00099H     _SETPOS                CODE \n 0007:5E30 000AAH     CLOSE                  CODE \n 0007:5EDA 003E8H     TTXTFILE               CODE \n 0007:62C2 000A5H     ADVANCE                CODE \n 0007:6368 0002EH     APPENDLN               CODE \n 0007:6396 000BAH     REWIND                 CODE \n 0007:6450 0006EH     READLINE               CODE \n 0007:64BE 000B1H     DELLINE                CODE \n 0007:6570 000BDH     DELLINE                CODE \n 0007:662E 00085H     INSLINE                CODE \n 0007:66B4 00145H     GETVALUE               CODE \n 0007:67FA 0013CH     SETVALUE               CODE \n 0007:6936 00075H     GOTO                   CODE \n 0007:69AC 00554H     TFILE                  CODE \n 0007:6F00 00055H     NGETWORD               CODE \n 0007:6F56 00048H     CGETSTR                CODE \n 0007:6F9E 0003CH     PUTBYTE                CODE \n 0007:6FDA 00043H     PUTWORD                CODE \n 0007:701E 000D9H     COUNT                  CODE \n 0007:70F8 00236H     DELBYTES               CODE \n 0007:732E 00228H     INSBYTES               CODE \n 0007:7556 00046H     NOEXT                  CODE \n 0007:759C 00030H     ERRORSYS               CODE \n 0007:75CC 0003CH     ERRORSYS               CODE \n 0007:7608 0001AH     ERRORLINK              CODE \n 0007:7622 012B9H     ERRORDIALO             CODE \n 0007:88DC 000B4H     ERRORDIALO             CODE \n 0007:8990 00147H     ERRORMESSA             CODE \n 0007:8AD8 00160H     ERRORMESSA             CODE \n 0007:8C38 000A1H     CGETINFO               CODE \n 0007:8CDA 000C5H     CGETINFO               CODE \n 0007:8DA0 007CDH     TRFILE                 CODE \n 0007:956E 000EEH     ENDPAGE                CODE \n 0007:965C 00110H     ENDPAGE                CODE \n 0007:976C 0011AH     SAY                    CODE \n 0007:9886 001F7H     SAY                    CODE \n 0007:9A7E 00135H     SAY                    CODE \n 0007:9BB4 001CEH     SAY                    CODE \n 0007:9D82 00141H     SAY                    CODE \n 0007:9EC4 000B8H     SELFILE                CODE \n 0007:9F7C 0007EH     GOTFOCUS               CODE \n 0007:9FFA 0008BH     GOTFOCUS               CODE \n 0007:A086 00166H     GOTFOCUS               CODE \n 0007:A1EC 0004FH     GOTFOCUS               CODE \n 0007:A23C 00123H     GOTFOCUS               CODE \n 0007:A360 000C8H     GOTFOCUS               CODE \n 0007:A428 000C0H     GOTFOCUS               CODE \n 0007:A4E8 00093H     GOTFOCUS               CODE \n 0007:A57C 0011BH     GOTFOCUS               CODE \n 0007:A698 0011BH     GOTFOCUS               CODE \n 0007:A7B4 00247H     GOTFOCUS               CODE \n 0007:A9FC 0009EH     COPY                   CODE \n 0007:AA9A 0009EH     COPY                   CODE \n 0007:AB38 0009AH     PASTE                  CODE \n 0007:ABD2 001AFH     PASTE                  CODE \n 0007:AD82 0011EH     TRECT                  CODE \n 0007:AEA0 00030H     __LOWMEMER             CODE \n 0007:AED0 00196H     _FWGENERRO             CODE \n 0007:B066 000B3H     SETOPTION              CODE \n 0007:B11A 00150H     SETOPTION              CODE \n 0007:B26A 00051H     MOVE                   CODE \n 0007:B2BC 00077H     MOVE                   CODE \n 0007:B334 0004EH     MOVE                   CODE \n 0007:B382 000BFH     MOVE                   CODE \n 0007:B442 00067H     ADJUST                 CODE \n 0007:B4AA 0007BH     ADJUST                 CODE \n 0007:B526 001EDH     ADDGROUP               CODE \n 0007:B714 001FFH     ADDITEM                CODE \n 0007:B914 00207H     MSGGET                 CODE \n 0007:BB1C 001B4H     MSGGET                 CODE \n 0007:BCD0 003CCH     _ALERT                 CODE \n 0007:C09C 00039H     LOCALBLOCK             CODE \n 0007:C0D6 002B4H     TSAY                   CODE \n 0007:C38A 00062H     VARPUT                 CODE \n 0007:C3EC 00892H     TLISTBOX               CODE \n 0007:CC7E 000B4H     CHANGE                 CODE \n 0007:CD32 0012AH     CHANGE                 CODE \n 0007:CE5C 00165H     SETBITMAPS             CODE \n 0007:CFC2 000EDH     SETBITMAPS             CODE \n 0007:D0B0 000C1H     ASELECTION             CODE \n 0007:D172 0005DH     SETSELITEM             CODE \n 0007:D1D0 000D6H     SWAPUP                 CODE \n 0007:D2A6 000DFH     SWAPDOWN               CODE \n 0007:D386 00410H     TMETAFILE              CODE \n 0007:D796 00072H     SETFILE                CODE \n 0007:D808 0007EH     SETFILE                CODE \n 0007:D886 00049H     SETFILE                CODE \n 0007:D8D0 00117H     SHADOW                 CODE \n 0007:D9E8 00104H     SHADOW                 CODE \n 0007:DAEC 000D3H     SETZOOMFAC             CODE \n 0007:DBC0 00044H     INIT                   CODE \n 0007:DC04 00181H     MSGERROR               CODE \n 0007:DD86 00077H     RPTBEGIN               CODE \n 0007:DDFE 0005FH     RPTADDGROU             CODE \n 0007:DE5E 00074H     RPTADDCOLU             CODE \n 0007:DED2 0009AH     RPTEND                 CODE \n 0007:DF6C 00118H     TCURSOR                CODE \n 0007:E084 00239H     TCHECKBOX              CODE \n 0007:E2BE 00091H     CLICK                  CODE \n 0007:E350 000ACH     CLICK                  CODE \n 0007:E3FC 00077H     CLICK                  CODE \n 0007:E474 0006AH     CLICK                  CODE \n 0007:E4DE 00215H     DELITEM                CODE \n 0007:E6F4 00083H     DELITEM                CODE \n 0007:E778 00084H     GETHOTPOS              CODE \n 0007:E7FC 000FDH     GETHOTPOS              CODE \n 0007:E8FA 0006BH     SYSCOMMAND             CODE \n 0007:E966 0008DH     SYSCOMMAND             CODE \n 0007:E9F4 000BFH     SYSCOMMAND             CODE \n 0007:EAB4 002BDH     TRADIO                 CODE \n 0007:ED72 000D6H     REFRESH                CODE \n 0007:EE48 000EFH     REFRESH                CODE \n 0007:EF38 00099H     REFRESH                CODE \n 0007:EFD2 00234H     MSGMETER               CODE \n 0007:F206 00460H     MSGDATE                CODE \n 0007:F666 0039AH     MOVECALEND             CODE \n 0007:FA00 0004FH     DDATETOSTR             CODE \n 0007:FA50 0052FH     TBAR                   CODE \n 0008:0000 0023AH     NEWAT                  CODE \n 0008:023A 002C2H     BTNADJUST              CODE \n 0008:04FC 001EBH     DELGROUP               CODE \n 0008:06E8 0028CH     GETBTNLEFT             CODE \n 0008:0974 000F1H     GETBTNTOP              CODE \n 0008:0A66 0020EH     RBUTTONDOW             CODE \n 0008:0C74 00380H     RBUTTONDOW             CODE \n 0008:0FF4 00380H     RBUTTONDOW             CODE \n 0008:1374 00050H     RBUTTONDOW             CODE \n 0008:13C4 00430H     RBUTTONDOW             CODE \n 0008:17F4 00420H     RBUTTONDOW             CODE \n 0008:1C14 0075CH     RBUTTONDOW             CODE \n 0008:2370 00489H     FLOAT                  CODE \n 0008:27FA 002CFH     SAVEINI                CODE \n 0008:2ACA 0010CH     TDLGFIND               CODE \n 0008:2BD6 00036H     DLGFINDTEX             CODE \n 0008:2C0C 00276H     TMETER                 CODE \n 0008:2E82 00177H     TASKADDICO             CODE \n 0008:2FFA 0003CH     TASKDELICO             CODE \n 0008:3036 0004FH     TASKCHANGE             CODE \n 0008:3086 00136H     SHELL_NOTI             CODE \n 0008:31BC 00142H     SHELLEXECU             CODE \n 0008:32FE 00129H     COPYFILE               CODE \n 0008:3428 00827H     TSCROLLBAR             CODE \n 0008:3C50 001AAH     WINNEW                 CODE \n 0008:3DFA 00023H     SETPAGE                CODE \n 0008:3E1E 006DEH     TMENUITEM              CODE \n 0008:44FC 00144H     SETPROMPT              CODE \n 0008:4640 00069H     __HELPTOPI             CODE \n 0008:46AA 0007FH     __HELPTOPI             CODE \n 0008:472A 0006CH     __HELPTOPI             CODE \n 0008:4796 000D3H     ASAVE                  CODE \n 0008:486A 000FAH     ASAVE                  CODE \n 0008:4964 000DAH     ASAVE                  CODE \n 0008:4A3E 0014FH     AREAD                  CODE \n 0008:4B8E 0019DH     AREAD                  CODE \n 0008:4D2C 00152H     AREAD                  CODE \n 0008:4E7E 00046H     CCAPTION               CODE \n 0008:4EC4 00240H     TICON                  CODE \n 0008:5104 00079H     SETNAME                CODE \n 0008:517E 003CAH     TRADMENU               CODE \n 0008:5548 00072H     NOPTION                CODE \n 0008:55BA 00057H     _SELECT                CODE \n 0008:5612 0008DH     _SELECT                CODE \n 0008:56A0 00092H     MENUBEGIN              CODE \n 0008:5732 00079H     MENUADDITE             CODE \n 0008:57AC 000A6H     MENUEND                CODE \n 0008:5852 00037H     LASTMENU               CODE \n 0008:588A 00038H     LASTITEMPO             CODE \n 0008:58C2 004B2H     TFOLDER                CODE \n 0008:5D74 00055H     SYSWAIT                CODE \n 0008:5DCA 003ABH     TFONT                  CODE \n 0008:6176 0033CH     CHOOSE                 CODE \n 0008:64B2 0009DH     NSIZE                  CODE \n 0008:6550 00892H     TMULTIGET              CODE \n 0008:6DE2 0005BH     CTEXT                  CODE \n 0008:6E3E 00053H     CTEXT                  CODE \n 0008:6E92 000A7H     CUT                    CODE \n 0008:6F3A 0014CH     CUT                    CODE \n 0008:7086 00071H     GETSEL                 CODE \n 0008:70F8 0006FH     GETSEL                 CODE \n 0008:7168 00042H     GETROW                 CODE \n 0008:71AA 0004AH     GETCOL                 CODE \n 0008:71F4 00045H     SETCOORS               CODE \n 0008:723A 000C1H     SETCOORS               CODE \n 0008:72FC 00152H     PRINT                  CODE \n 0008:744E 00092H     PRINT                  CODE \n 0008:74E0 000E9H     PRINT                  CODE \n 0008:75CA 002EBH     MEMOEDIT               CODE \n 0008:78B6 00424H     TRCOLUMN               CODE \n 0008:7CDA 0027EH     STABILIZE              CODE \n 0008:7F58 0019FH     STABILIZE              CODE \n 0008:80F8 001C5H     STABILIZE              CODE \n 0008:82BE 00AD8H     STABILIZE              CODE \n 0008:8D96 001D7H     SAYTITLE               CODE \n 0008:8F6E 001E7H     SAYDATA                CODE \n 0008:9156 001B4H     SAYTOTAL               CODE \n 0008:930A 00187H     TITLEHEIGH             CODE \n 0008:9492 002CEH     SEPARATOR              CODE \n 0008:9760 00239H     SEPARATOR              CODE \n 0008:999A 003DBH     TRGROUP                CODE \n 0008:9D76 002E3H     TOTAL                  CODE \n 0008:A05A 000E1H     HEADER                 CODE \n 0008:A13C 000DBH     FOOTER                 CODE \n 0008:A218 001F1H     TRLINE                 CODE \n 0008:A40A 00179H     INS                    CODE \n 0008:A584 00064H     LISDIR                 CODE \n 0008:A5E8 0003FH     CFILEDISC              CODE \n 0008:A628 00058H     CFILEPATH              CODE \n 0008:A680 00087H     CFILENOPAT             CODE \n 0008:A708 00050H     CFILEMASK              CODE \n 0008:A758 00064H     CFILENOEXT             CODE \n 0008:A7BC 0007AH     CFILEEXT               CODE \n 0008:A836 0004DH     CFILESUBDI             CODE \n 0008:A884 0009AH     CNEWFILENA             CODE \n 0008:A91E 0005DH     CTEMPFILE              CODE \n 0008:A97C 0006CH     FSIZE                  CODE \n 0008:A9E8 00115H     AFINDFILE              CODE \n 0008:AAFE 000EEH     LOGFILE                CODE \n 0008:ABEC 0013FH     GETDISKFRE             CODE \n 0008:AD2C 0075DH     TMENU                  CODE \n 0008:B48A 00095H     NEWSYS                 CODE \n 0008:B520 0005EH     DELITEMS               CODE \n 0008:B57E 00068H     GETPOPUP               CODE \n 0008:B5E6 000B0H     SEARCHSUBM             CODE \n 0008:B696 00087H     COMMAND                CODE \n 0008:B71E 00274H     COMMAND                CODE \n 0008:B992 00060H     COMMAND                CODE \n 0008:B9F2 00120H     COMMAND                CODE \n 0008:BB12 0011CH     SEARCHITEM             CODE \n 0008:BC2E 000BFH     DESTROYITE             CODE \n 0008:BCEE 001D9H     RESBUILD               CODE \n 0008:BEC8 00118H     MENUCLONE              CODE \n 0008:BFE0 00425H     ADDMDI                 CODE \n 0008:C406 001D6H     ADDHELP                CODE \n 0008:C5DC 00554H     ADDEDIT                CODE \n 0008:CB30 0033DH     ADDFILE                CODE \n 0008:CE6E 00084H     HELPTOPIC              CODE \n 0008:CEF2 000C0H     HELPTOPIC              CODE \n 0008:CFB2 006E4H     TCOMBOBOX              CODE \n 0008:D696 0004CH     DEFCONTROL             CODE \n 0008:D6E2 000E1H     DEFCONTROL             CODE \n 0008:D7C4 00078H     VARGET                 CODE \n 0008:D83C 00094H     LVALID                 CODE \n 0008:D8D0 00076H     LVALID                 CODE \n 0008:D946 00068H     LVALID                 CODE \n 0008:D9AE 000BDH     LVALID                 CODE \n 0008:DA6C 000BDH     LVALID                 CODE \n 0008:DB2A 00073H     SHOWTOOLTI             CODE \n 0008:DB9E 002B5H     SHOWTOOLTI             CODE \n 0008:DE54 000A6H     SHOWTOOLTI             CODE \n 0008:DEFA 006FDH     TDIALOG                CODE \n 0008:E5F8 00155H     CTOCHAR                CODE \n 0008:E74E 00169H     CTOCHAR                CODE \n 0008:E8B8 0011DH     DEFINE                 CODE \n 0008:E9D6 00125H     DEFINE                 CODE \n 0008:EAFC 0010EH     VBXINITDIA             CODE \n 0008:EC0A 00102H     VBXINIT                CODE \n 0008:ED0C 000F4H     VBXTERM                CODE \n 0008:EE00 000F1H     VBXTERM                CODE \n 0008:EEF2 00091H     CREATEDLGE             CODE \n 0008:EF84 000A3H     HELP                   CODE \n 0008:F028 0006FH     ERASEBKGND             CODE \n 0008:F098 000CBH     ERASEBKGND             CODE \n 0008:F164 00060H     ERASEBKGND             CODE \n 0008:F1C4 000D9H     SETFONT                CODE \n 0008:F29E 00087H     SETFONT                CODE \n 0008:F326 000BDH     SETFONT                CODE \n 0008:F3E4 00118H     LOADIMAGE              CODE \n 0008:F4FC 00263H     TBUTTON                CODE \n 0009:0000 00D59H     TPRINTER               CODE \n 0009:0D5A 000C5H     REBUILD                CODE \n 0009:0E20 00108H     _STARTPAGE             CODE \n 0009:0F28 001A7H     _ENDPAGE               CODE \n 0009:10D0 000FCH     SAYBITMAP              CODE \n 0009:11CC 00136H     SAYBITMAP              CODE \n 0009:1302 0008FH     SAYBITMAP              CODE \n 0009:1392 000C2H     SAYIMAGE               CODE \n 0009:1454 00041H     _FILLRECT              CODE \n 0009:1496 00082H     CMTR2PIX               CODE \n 0009:1518 00092H     INCH2PIX               CODE \n 0009:15AA 0007EH     GETPHYSIZE             CODE \n 0009:1628 0009DH     CHARSAY                CODE \n 0009:16C6 00050H     CHARWIDTH              CODE \n 0009:1716 0004DH     CHARHEIGHT             CODE \n 0009:1764 0012CH     IMPORTWMF              CODE \n 0009:1890 0004AH     IMPORTRAW              CODE \n 0009:18DA 00233H     PRINTBEGIN             CODE \n 0009:1B0E 00029H     PAGEBEGIN              CODE \n 0009:1B38 00029H     PAGEEND                CODE \n 0009:1B62 00046H     PRINTEND               CODE \n 0009:1BA8 0076CH     TMDICHILD              CODE \n 0009:2314 00089H     MDIACTIVAT             CODE \n 0009:239E 00700H     TMDIFRAME              CODE \n 0009:2A9E 000AFH     SETMENU                CODE \n 0009:2B4E 00021H     GETWNDFRAM             CODE \n 0009:2B70 0081BH     TGET                   CODE \n 0009:338C 00058H     EDITUPDATE             CODE \n 0009:33E4 0004CH     GETSELPOS              CODE \n 0009:3430 000BBH     GETDELSEL              CODE \n 0009:34EC 0008CH     DISPTEXT               CODE \n 0009:3578 000D8H     KEYUP                  CODE \n 0009:3650 000EFH     INC                    CODE \n 0009:3740 000EFH     DEC                    CODE \n 0009:3830 0011FH     SPINNER                CODE \n 0009:3950 00166H     SPINNER                CODE \n 0009:3AB6 0014CH     SPINNER                CODE \n 0009:3C02 00FA5H     TREPORT                CODE \n 0009:4BA8 00110H     MARGIN                 CODE \n 0009:4CB8 00148H     BOX                    CODE \n 0009:4E00 00055H     BOX                    CODE \n 0009:4E56 00148H     LINE                   CODE \n 0009:4F9E 00064H     LINE                   CODE \n 0009:5002 002C9H     GRID                   CODE \n 0009:52CC 0006BH     SETPENCOLO             CODE \n 0009:5338 0047CH     PLAY                   CODE \n 0009:57B4 000BFH     STARTPAGE              CODE \n 0009:5874 000E0H     STARTLINE              CODE \n 0009:5954 000A8H     ENDLINE                CODE \n 0009:59FC 000FAH     STARTGROUP             CODE \n 0009:5AF6 001CFH     ENDGROUP               CODE \n 0009:5CC6 00241H     PAGETOTAL              CODE \n 0009:5F08 00137H     COLTITLE               CODE \n 0009:6040 007D5H     TOTALLINE              CODE \n 0009:6816 00539H     TMDICLIENT             CODE \n 0009:6D50 00064H     CHILDNEW               CODE \n 0009:6DB4 0007FH     GETACTIVE              CODE \n 0009:6E34 000C9H     CHILDCLOSE             CODE \n 0009:6EFE 00059H     LCLOSEALL              CODE \n 0009:6F58 008C0H     TBITMAP                CODE \n 0009:7818 00140H     ADJCONTROL             CODE \n 0009:7958 000FBH     CENTER                 CODE \n 0009:7A54 000DCH     PAGELEFT               CODE \n 0009:7B30 000D5H     PAGERIGHT              CODE \n 0009:7C06 00075H     RELOAD                 CODE \n 0009:7C7C 00113H     SCROLLUP               CODE \n 0009:7D90 0007BH     SCROLLDOWN             CODE \n 0009:7E0C 0016AH     SCROLLLEFT             CODE \n 0009:7F76 00115H     SCROLLRIGH             CODE \n 0009:808C 001DAH     SCROLLADJU             CODE \n 0009:8266 00040H     ZOOM                   CODE \n 0009:82A6 001C6H     ZOOM                   CODE \n 0009:846C 00C73H     RPREVIEW               CODE \n 0009:90E0 00286H     PAINTMETA              CODE \n 0009:9366 00100H     NEXTPAGE               CODE \n 0009:9466 000FCH     PREVPAGE               CODE \n 0009:9562 000F9H     TOPPAGE                CODE \n 0009:965C 000DDH     BOTTOMPAGE             CODE \n 0009:973A 001DBH     TWOPAGES               CODE \n 0009:9916 0012FH     SETORG1                CODE \n 0009:9A46 001A0H     SETORG2                CODE \n 0009:9BE6 001B8H     CHECKKEY               CODE \n 0009:9D9E 000DDH     SETFACTOR              CODE \n 0009:9E7C 002AAH     PRINTPAGE              CODE \n 0009:A126 001F3H     PRINTPRV               CODE \n 0009:A31A 00022H     NWINDOWS               CODE \n 0009:A33C 00021H     GETALLWIN              CODE \n 0009:A35E 028EFH     TWINDOW                CODE \n 0009:CC4E 0015AH     REGISTER               CODE \n 0009:CDA8 00075H     WNDCREATEE             CODE \n 0009:CE1E 0004AH     ASYNCSELEC             CODE \n 0009:CE68 00061H     CIRCLE                 CODE \n 0009:CECA 00078H     COORSUPDAT             CODE \n 0009:CF42 0005BH     CTITLE                 CODE \n 0009:CF9E 0009BH     DDEINITIAT             CODE \n 0009:D03A 0007AH     DROPFILES              CODE \n 0009:D0B4 00201H     GENDBF                 CODE \n 0009:D2B6 0005BH     GETCLIRECT             CODE \n 0009:D312 0005BH     GETRECT                CODE \n 0009:D36E 0014CH     MEASUREITE             CODE \n 0009:D4BA 00122H     MENUCHAR               CODE \n 0009:D5DC 0011FH     MENUSELECT             CODE \n 0009:D6FC 00082H     NHEIGHT                CODE \n 0009:D77E 00082H     NWIDTH                 CODE \n 0009:D800 00084H     OREAD                  CODE \n 0009:D884 0005DH     SAVEFILE               CODE \n 0009:D8E2 00092H     SAYRECT                CODE \n 0009:D974 0004DH     RBUTTONUP              CODE \n 0009:D9C2 0004DH     MBUTTONDOW             CODE \n 0009:DA10 0005CH     MBUTTONDOW             CODE \n 0009:DA6C 0004DH     MBUTTONUP              CODE \n 0009:DABA 00099H     SETMSG                 CODE \n 0009:DB54 00174H     SETMSG                 CODE \n 0009:DCC8 00112H     LINK                   CODE \n 0009:DDDA 000D2H     UNLINK                 CODE \n 0009:DEAC 00053H     HELP95                 CODE \n 0009:DF00 00053H     TOOLWINDOW             CODE \n 0009:DF54 000A1H     HARDCOPY               CODE \n 0009:DFF6 000CAH     INITMENUPO             CODE \n 0009:E0C0 00028H     SETWNDDEFA             CODE \n 0009:E0E8 00028H     _SETWNDDEF             CODE \n 0009:E110 00021H     GETWNDDEFA             CODE \n 0009:E132 00102H     GONEXTCTRL             CODE \n 0009:E234 00199H     GOPREVCTRL             CODE \n 0009:E3CE 001BBH     GETFONT                CODE \n 0009:E58A 000BEH     AEVALWHEN              CODE \n 0009:E648 00041H     __SETFOCUS             CODE \n 0009:E68A 000A5H     LOADFILE               CODE \n 0009:E730 00189H     CHECKTOOLT             CODE \n 0009:E8BA 00044H     DESTROYTOO             CODE \n 0009:E8FE 0005EH     NCMOUSEMOV             CODE \n 0009:E95C 0004DH     COMMNOTIFY             CODE \n 0009:E9AA 00053H     DROPOVER               CODE \n 0009:E9FE 0007FH     _BEGINPAIN             CODE \n 0009:EA7E 00028H     SETDROPINF             CODE \n 0009:EAA6 0002EH     GETDROPINF             CODE \n 0009:EAD4 0005FH     WNDMAIN                CODE \n 0009:EB34 00195H     LASTACTIVE             CODE \n 0009:ECCA 001A5H     FIRSTACTIV             CODE \n 0009:EE70 00650H     TMSGBAR                CODE \n 0009:F4C0 000ABH     CLOCKON                CODE \n 0009:F56C 000ADH     DATEON                 CODE \n 0009:F61A 0007FH     INSITEM                CODE \n 0009:F69A 002BBH     KEYBON                 CODE \n 0009:F956 0006BH     CHECKTIMER             CODE \n 0009:F9C2 0013EH     TIMEREVAL              CODE \n 0009:FB00 0039BH     TMSGITEM               CODE \n 0009:FE9C 000D8H     NLEFT                  CODE \n 000A:0000 00099H     NLEFT                  CODE \n 000A:009A 0004FH     ISOVER                 CODE \n 000A:00EA 00D26H     TCONTROL               CODE \n 000A:0E10 00172H     ADJCLIENT              CODE \n 000A:0F82 00114H     ADJLEFT                CODE \n 000A:1096 00114H     ADJRIGHT               CODE \n 000A:11AA 00099H     _SETFOCUS              CODE \n 000A:1244 000ECH     COLORS                 CODE \n 000A:1330 00099H     NTOP                   CODE \n 000A:13CA 0014EH     FORWHEN                CODE \n 000A:1518 001D1H     KILLFOCUS              CODE \n 000A:16EA 00084H     FWLOSTFOCU             CODE \n 000A:176E 0006AH     DRAGBEGIN              CODE \n 000A:17D8 0058EH     CHECKDOTS              CODE \n 000A:1D66 00398H     SHOWDOTS               CODE \n 000A:20FE 00126H     MRESIZE                CODE \n 000A:2224 00288H     NALIGN                 CODE \n 000A:24AC 0002EH     SETGRIDSIZ             CODE \n 000A:24DA 00027H     GETGRIDSIZ             CODE \n 000A:2502 006C1H     TBTNBMP                CODE \n 000A:2BC4 00374H     NEWBAR                 CODE \n 000A:2F38 0009BH     FREEBITMAP             CODE \n 000A:2FD4 001A1H     LOADBITMAP             CODE \n 000A:3176 00073H     HELPINDEX              CODE \n 000A:31EA 00087H     HELPSEARCH             CODE \n 000A:3272 00075H     HELPPOPUP              CODE \n 000A:32E8 0005AH     WINHELP                CODE \n 000A:3342 00124H     SPWINHELP              CODE \n 000A:3466 00125H     SPWINHELPC             CODE \n 000A:358C 00052H     LARGEFONTS             CODE \n 000A:35DE 00066H     COLORSQTY              CODE \n 000A:3644 001CDH     AASCAN_TEXT            CODE \n 000A:3811 00245H     ACCELERA_TEXT          CODE \n 000A:3A56 00059H     ATOM_TEXT              CODE \n 000A:3AAF 001B6H     BMPREAD_TEXT           CODE \n 000A:3C65 00263H     BRUSHES_TEXT           CODE \n 000A:3EC8 003BDH     CALDLL32_TEXT          CODE \n 000A:4285 000CCH     CARET_TEXT             CODE \n 000A:4351 00074H     CHANGEPR_TEXT          CODE \n 000A:43C5 00132H     CLPBRD_TEXT            CODE \n 000A:44F7 0085FH     COLOR_TEXT             CODE \n 000A:4D56 0003BH     CREATEPA_TEXT          CODE \n 000A:4D91 0003AH     CREATEPE_TEXT          CODE \n 000A:4DCB 0003CH     CREATESO_TEXT          CODE \n 000A:4E07 002E6H     CTL3D_TEXT             CODE \n 000A:50ED 00007H     DBJUNCTX_TEXT          CODE \n 000A:50F4 000B8H     DDEXC_TEXT             CODE \n 000A:51AC 00046H     DELOBJEC_TEXT          CODE \n 000A:51F2 00197H     DEVICE_TEXT            CODE \n 000A:5389 0033BH     DOTS_TEXT              CODE \n 000A:56C4 00151H     DRAWITEM_TEXT          CODE \n 000A:5815 000DFH     DROPFILE_TEXT          CODE \n 000A:58F4 0005AH     EMU_TEXT               CODE \n 000A:594E 000FFH     FINDTEXT_TEXT          CODE \n 000A:5A4D 00085H     GETDLGIT_TEXT          CODE \n 000A:5AD2 00079H     GETSTKOB_TEXT          CODE \n 000A:5B4B 00110H     GETTEXT_TEXT           CODE \n 000A:5C5B 003E2H     GTW_TEXT               CODE \n 000A:603D 000A8H     INOUT_TEXT             CODE \n 000A:60E5 00161H     LBX_TEXT               CODE \n 000A:6246 00067H     LOADBMP_TEXT           CODE \n 000A:62AD 00204H     MDI_TEXT               CODE \n 000A:64B1 000FAH     MEMINFO_TEXT           CODE \n 000A:65AB 00280H     METAFILE_TEXT          CODE \n 000A:682B 00071H     MOVETO_TEXT            CODE \n 000A:689C 00021H     MSGBEEP_TEXT           CODE \n 000A:68BD 0022AH     OEMANSI_TEXT           CODE \n 000A:6AE7 00067H     PAINT_TEXT             CODE \n 000A:6B4E 00212H     PARAMS_TEXT            CODE \n 000A:6D60 000F9H     PROP_TEXT              CODE \n 000A:6E59 00136H     REGCLASS_TEXT          CODE \n 000A:6F8F 0019AH     SCROLL_TEXT            CODE \n 000A:7129 0002EH     SELOBJEC_TEXT          CODE \n 000A:7157 001C4H     SEND_TEXT              CODE \n 000A:731B 0001EH     SETHANDL_TEXT          CODE \n 000A:7339 00065H     SETMAPMO_TEXT          CODE \n 000A:739E 00051H     SETTEXT_TEXT           CODE \n 000A:73EF 00171H     SKIPPER_TEXT           CODE \n 000A:7560 0015DH     SYSREFRE_TEXT          CODE \n 000A:76BD 00486H     TERMW_TEXT             CODE \n 000A:7B43 0014FH     VALTOCHR_TEXT          CODE \n 000A:7C92 0054BH     VMWAPI_TEXT            CODE \n 000A:81DD 00045H     WMOUSE_TEXT            CODE \n 000A:8222 0016AH     WNDCENTE_TEXT          CODE \n 000A:838C 00038H     WNDDESTR_TEXT          CODE \n 000A:83C4 00BD2H     WNDMOVE_TEXT           CODE \n 000A:8F96 00060H     WNDPOS_TEXT            CODE \n 000A:8FF6 0018CH     WNDROWS_TEXT           CODE \n 000A:9182 0038EH     WNDSAY_TEXT            CODE \n 000A:9510 00045H     WNDUPDAT_TEXT          CODE \n 000A:9555 00319H     WNDRUN_TEXT            CODE \n 000A:986E 00078H     LONGNAME_TEXT          CODE \n 000A:98E6 00385H     NTXPOS_TEXT            CODE \n 000A:9C6B 0006BH     DLL_TEXT               CODE \n 000A:9CD6 00443H     DLGBOX_TEXT            CODE \n 000A:A119 0067BH     FWARRAY_TEXT           CODE \n 000A:A794 003D3H     __WNDPRO_TEXT          CODE \n 000A:AB67 001E4H     CTRL2CHR_TEXT          CODE \n 000A:AD4B 00555H     HANDLIST_TEXT          CODE \n 000A:B2A0 000C4H     INSTANCE_TEXT          CODE \n 000A:B364 00043H     STRING_TEXT            CODE \n 000A:B3A7 002FFH     DC_TEXT                CODE \n 000A:B6A6 00076H     HILOWORD_TEXT          CODE \n 000A:B71C 00036H     MAKELONG_TEXT          CODE \n 000A:B752 00092H     WINDOWS_TEXT           CODE \n 000A:B7E4 0012AH     GETPROCA_TEXT          CODE \n 000A:B90E 001BEH     WNDPRINT_TEXT          CODE \n 000A:BACC 002E8H     MSGBOX_TEXT            CODE \n 000A:BDB4 00373H     CURSORS_TEXT           CODE \n 000A:C127 00547H     RECTS_TEXT             CODE \n 000A:C66E 00571H     DRAWING_TEXT           CODE \n 000A:CBDF 006E1H     CTRLDRAW_TEXT          CODE \n 000A:D2C0 005DBH     ICONS_TEXT             CODE \n 000A:D89B 00157H     MKDIR_TEXT             CODE \n 000A:D9F2 0031AH     FTEXT_TEXT             CODE \n 000A:DD0C 0013CH     CLT2SCR_TEXT           CODE \n 000A:DE48 00436H     OUTSTDW_TEXT           CODE \n 000A:E27E 00357H     RESCHECK_TEXT          CODE \n 000A:E5D5 0026AH     ENCRIPT_TEXT           CODE \n 000A:E83F 00182H     CLRCHOOS_TEXT          CODE \n 000A:E9C1 00691H     TCBFUNCS_TEXT          CODE \n 000A:F052 00082H     TIMERS_TEXT            CODE \n 000A:F0D4 000C5H     CREATWND_TEXT          CODE \n 000A:F199 002F9H     COLORTON_TEXT          CODE \n 000A:F492 00112H     MSGS_TEXT              CODE \n 000A:F5A4 00340H     RESOURCE_TEXT          CODE \n 000A:F8E4 000B6H     KEYBRD_TEXT            CODE \n 000A:F99A 0026CH     TEXT_TEXT              CODE \n 000B:0000 00517H     FILES_TEXT             CODE \n 000B:0517 00245H     MEM_TEXT               CODE \n 000B:075C 0016FH     MGETCREA_TEXT          CODE \n 000B:08CB 001ABH     DLG2CHR_TEXT           CODE \n 000B:0A76 001D6H     NET_TEXT               CODE \n 000B:0C4C 00251H     PROFILE_TEXT           CODE \n 000B:0E9D 0025AH     DRIVES_TEXT            CODE \n 000B:10F7 01236H     WBRWLINE_TEXT          CODE \n 000B:232D 00138H     GETTEXTW_TEXT          CODE \n 000B:2465 000CFH     GETWND_TEXT            CODE \n 000B:2534 00445H     WNDIS_TEXT             CODE \n 000B:2979 0055DH     WNDBOXES_TEXT          CODE \n 000B:2ED6 0077AH     FONTS_TEXT             CODE \n 000B:3650 01080H     VMW_TEXT               CODE \n 000B:46D0 03540H     _TEXT                  CODE \n 000B:7C10 026E8H     EMULATOR_TEXT          CODE \n 000B:A2F8 010E2H     FIVEFIX_TEXT           CODE \n 000B:B3DA 002E7H     METPAINT_TEXT          CODE \n 000B:B6C1 0030CH     STRTOKEN_TEXT          CODE \n 000B:B9CD 005C9H     CALLDLL_TEXT           CODE \n 000B:BF96 004BCH     GETFILE_TEXT           CODE \n 000B:C452 0044BH     MSGTOOLS_TEXT          CODE \n 000B:C89D 0009AH     WNDISOVE_TEXT          CODE \n 000B:C937 00352H     DIBBMP_TEXT            CODE \n 000B:CC89 0059EH     DIB_T','',0,'AIA=','l7w5qm6m',1,0,'',248,0,0),(1363,375,4,224,0,'162.83.94.176',1130948212,1,0,1,1,1,1,'','Controlling the SIP (Soft Input Panel)','I am trying to show/hide the SIP (Soft Input Panel) based on which control has focus at any given time. I found the function SIPShowIM referenced here... [url:30l3gaup]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/wceshellui5/html/wce50lrfsipshowim&#46;asp[/url:30l3gaup]\nI am defining the function as a DLL FUNCTION using this line...\n[code:30l3gaup]\n#define SIPF_OFF        0x00000000\n#define SIPF_ON         0x00000001\n\n\nDLL FUNCTION SIPShowIM&#40; nState AS DWORD &#41; AS BOOL LIB &quot;COREDLL&#46;DLL&quot;\n\n[/code:30l3gaup]\nI call the function with this simple line...\n[code:30l3gaup]SIPShowIM&#40; SIPF_ON &#41;[/code:30l3gaup]\nHowever, I only get a NULL value in return and nothing happens to the SIP.  Has anyone successfully found a way to manage the SIP?\n\nAlso, this might be a nice optional METHOD for GETs in FWPPC...','',0,'EIA=','30l3gaup',1,0,'',224,0,0),(1364,375,4,2,0,'80.58.2.107',1130950295,1,0,1,1,1,1,'','','Bill,\n\nThat function is already implemented in FWPPC as these:\n\nSHOWKEYBOARD() and HIDEKEYBOARD()\n\nYour code is ok, but the parameters supply is not available yet (so it arrives as zero and hides it).\n\nPlease try them and let us know your results. Thanks','',0,'EIA=','10zgrh8t',1,0,'',2,0,0),(1365,374,2,2,0,'80.58.2.107',1130950668,1,0,1,1,1,1,'','','Envíame por email el fichero MAP, gracias.','',0,'EIA=','3udoe6f3',1,0,'',2,0,0),(1366,372,2,2,0,'80.58.2.107',1130950771,1,0,1,1,1,1,'','','Luis,\n\nSólo necesitas FWH. Todas las demas herramientas son gratuitas.\n\nRespecto a tu código, no tienes que cambiar nada <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EIA=','4f6iwzls',1,0,'',2,0,0),(1367,346,2,2,0,'80.58.2.107',1130950916,1,0,1,1,1,1,'','','Alejandro,\n\nHabeis comprobado que ese ordenador no tenga ningún virus ? \n\nQue micro y memoria tiene ese ordenador ?','',0,'EIA=','1tnmadai',1,0,'',2,0,0),(1368,376,6,132,0,'83.213.45.32',1130950943,1,0,1,1,1,1,'','Error al cerrar','Cuando cierro la ventana principal de mi aplicacion me aparece el siguiente mensaje:\nhb_xfree(0144BA84) Pointer Overflow \'\'\n\ncuando cierro la ventana ejecuto este codigo\n\nACTIVATE WINDOW oWin MAXIMIZED VALID CierraGes(oWin)\n\nFUNCTION CierraGes(oWin)\n\nSET RESOURCES TO\nDBCLOSEALL()\nResAllfree()\n\nRETURN .t.\n\nNo pierdo datos, ni se queda el ordenador colgado, simplemente aparece el mesaje, ¿alguna idea?\nGracias de antemano por vusetra ayuda.','',0,'EIA=','9hhnme7z',1,0,'',132,0,0),(1369,170,16,246,0,'85.84.207.207',1130951151,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:32e40jwr]Puedes descargarlas usando los datos que te enviamos en el email de compra. Misma dirección y datos de login.\n\nMe alegro de que te guste <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:32e40jwr]\n\nOk Gracias','',0,'gA==','32e40jwr',1,0,'',246,0,0),(1370,373,2,2,0,'80.58.2.107',1130951200,1,0,1,1,1,1,'','','Luis,\n\nCopiado de la documentación de FiveWin:\n\n[quote:2wtimox6]\nProgramación en red\n\nSi nunca ha diseñado una aplicación en red con Clipper, no se preocupe. No es complicado. Sólo tiene que seguir estas reglas:\n\nTodas las bases de datos se abren en modo \'SHARED\' por defecto, excepto si especifica la cláusula \'EXCLUSIVE\', o ha cambiado el estado de SET EXCLUSIVE (consulte los mandatos USE y SET EXCLUSIVE de Clipper).\n\nUna vez abierta en modo compartido, todos los usuarios de la red pueden utilizarla; o bien, varias ventanas MdiChild o cuadros de diálogo no modales pueden acceder a la información de la base de datos al mismo tiempo.\n\n\nNo es posible manipular el contenido de un campo directamente. Antes de cambiar el valor de un campo, debe bloquear el registro mediante una estructura como la siguiente:\n\nif MyAlias-&gt;( RLock() ) // Bloquea el registro\nMyAlias-&gt;Field := &lt;NewValue&gt; // Modifica el contenido\nMyAlias-&gt;( DbUnLock() ) // Desbloquea el registro\nelse\nMsgAlert( \"La base de datos está siendo usada..\")\nEndif\n\n\nAlgunas operaciones de base de datos (como crear un índice completo) precisan que abra la base de datos en modo EXCLUSIVE, o que bloquee toda la base de datos y no sólo un registro.\n\nUtilice USE ... EXCLUSIVE para abrir una base de datos de forma exclusiva, o la función FLock() para bloquear completamente el fichero.\n\n[/quote:2wtimox6]','',0,'gA==','2wtimox6',1,0,'',2,0,0),(1371,355,2,2,0,'80.58.2.107',1130951301,1,0,1,1,1,1,'','','Fernando,\n\nPor etiquetas ¿ te refieres a SAYs ?','',0,'gA==','33udhbki',1,0,'',2,0,0),(1372,19,2,2,0,'80.58.2.107',1130951442,1,0,1,1,1,1,'','','[quote=&quot;javi iglesias&quot;:1ghhwu89]errorsys : simbol defined more than once[/quote:1ghhwu89]\n\nPasa este parámetro al enlazador:\n\n/force:multiple','',0,'gA==','1ghhwu89',1,0,'',2,0,0),(1373,365,3,2,0,'80.58.2.107',1130951589,1,0,1,1,1,1,'','','You must check if hbzip.lib contains any compiled PRG and if so, compile it with Harbour.','',0,'gA==','2glpzax6',1,0,'',2,0,0),(1374,376,6,2,0,'80.58.2.107',1130951682,1,0,1,1,1,1,'','','Alfonso,\n\nEstás usando Harbour ó xharbour ? Que build usas ?','',0,'gA==','3izyrfr0',1,0,'',2,0,0),(1375,377,3,31,0,'84.15.27.93',1130955251,1,0,1,1,1,1,'','Totals on reports','Hello ! \n\n I want to do one modification on reports . It\'s related to reports totals , FWH original report class . At this time , if I let to report to do grouping and totals for needful fields , then all groupings will have totals :\n\n  Price | Bgn.qty |    Inc.qty | Out.qty| End.qty \n...\n   Item ID : FE00040\n  28.90|   100.0  |      50.0   |      0.0 |   150.0\n  28.81|       0.0  |      60.0   |     60.0|       0.0\n  Total :    100.0 |    110.0   |     60.0|   150.0\n..\n   Item ID : FE00060\n  20.10|       0.0  |    100.0   |     50.0|      50.0\n  Total :        0.0 |    100.0   |     50.0|      50.0\n\n  I want to avoid total then only one row is on grouping . In my sample , that will be the second item . At this time I don\'t have ideas how to make that , so will thankfull for any information and help .\n\n   With best regards ! Rimantas .','',0,'gA==','1rizz4h7',1,0,'',31,0,0),(1376,365,3,6,0,'82.53.175.20',1130958570,1,0,1,1,1,1,'','','Why with Harbour? I used xHarbour for my tests.\n\nEMG','',0,'gA==','s08lxuyp',1,0,'',6,0,0),(1377,378,4,13,0,'213.76.252.200',1130958778,1,0,1,1,1,0,'','Tab in window','Antonio,\n\nWhen I create simply window and press Tab key in window FwPpc show error: Class: NIL has no exported method GONEXTCTRL. Error dosn\'t exist when focus is set to control before window activate.\n\n[code:2xq6ecxk]\nFunction TestWndFocus &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local cVar1 &#58;= Space &#40;10&#41;\n   Local cVar2 &#58;= Space &#40;10&#41;\n\n   Define Window oWnd\n   @ 10, 10 Get cVar1 Picture \'@!\' Size 50, 20 Pixel\n   @ 10, 10 Get cVar2 Picture \'@!\' Size 50, 20 Pixel\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n[/code:2xq6ecxk]\n\nPawel','',0,'AIA=','2xq6ecxk',1,0,'',13,0,0),(1378,341,6,228,0,'201.245.216.80',1130959772,1,0,1,1,1,0,'','antonio de adjunto el archivo que me pediste','antonio, te coloque el archivo que me pediste el tu correo electrónico, nuevamente muchas gracias.\n\nLEANDRO ALFONSO\nBogotá (Colombia)','',0,'AIA=','1qv64que',1,0,'',228,0,0),(1379,379,2,129,0,'201.215.15.27',1130962182,1,0,1,1,1,0,'','como cambio este codigo para red o mdi','amigos este es mi codigo, necesito que me orienten, como cambio la linea que dice ventas1, como archivo, como para que sea leido en red, pero del tipo mdi, o sea que esta misma ventana se pueda abrir en el mismo equipo a lavez, cualquier sugerencia es bienvenida.....\n\n\nFUNCTION PRG_2211()\n  Local oDlgEdit1\n  Local oFont1,oFont2,oFont3\n  Local OLbx1, lparametro\n  Local oBotones :=Array(5)\n  Local oCod_pro ,cCod_Pro ,oNom_Pro ,cNom_Pro\n  Local oCod_pago,cCod_Pago,oNom_Pago,cNom_Pago\n  Local oFem_fac , cFem_fac\n  Local oFve_fac , cFve_fac\n  Local oFli_fac , cFli_fac\n  Local oNro_fac , cNro_fac\n  Local oFol_Fac , cFol_Fac\n  Private xIva,xSubtotal,xTotal,xNeto,xDescuento,cCod_Art,cNom_Art,cItem,cPre_Art,xExento\n  Private oIva,oSubtotal,oTotal,oNeto,oDescuento,Ni,Archi,oNom_Art,oCod_Art,oExento\n\n  Select 11\n  Do While .T.\n     If NET_USE(\"M_Pago\",.F.,5)\n        Set Index TO M_Pago1,M_Pago2\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 07\n  Do While .T.\n     If NET_USE(\"M_Prov\",.F.,5)\n        Set Index TO M_Prov1,M_Prov2\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 05\n  Do While .T.\n     If NET_USE(\"M_Art\",.F.,5)\n        Set Index to M_Art1, M_Art2\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 10\n  Do While .T.\n     If NET_USE(\"M_Ciud\",.F.,5)\n        Set Index to M_Ciud1,M_Ciud2\n        Set order to 1\n        exit\n     Else\n    	ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 90\n  Do While .T.\n     If NET_USE(\"Inv_Cfa1\",.F.,5)\n        Set Index to Inv_Cfa1,Cfa_Fec1\n        Set order to 1\n        Exit\n     Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n  Select 91\n  Do While .T.\n     If NET_USE(\"Inv_Cfa2\",.F.,5)\n        Set Index to Inv_Cfa2\n        Exit\n     Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n  Select 50                                      // aqui esta la situacion\n  Do While .T.                                   // necesito que este archivo\n     If NET_USE(\"Venta1\",.T.,5)                  // lo pueda llevar a mdi\n        zap\n        For i=1 to 30\n            Append Blank\n            Replace Venta1-&gt;Cod_Art with \" \"\n        Next i\n        exit\n     Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n  cFol_Fac:=0\n  cFem_Fac:=date()\n  cFve_Fac:=date()\n  cCod_Pro :=\"          \"\n  cCod_Pago:=\"          \"\n  cNro_Fac:=0\n  cFli_Fac:=date()\n  lParametro:= .t.\n\n  cCod_Art   := 0\n  cPre_Art   := 0\n  cItem      := 0\n  xSubTotal  := 0\n  xIva       := 0\n  xNeto      := 0\n  xExento    := 0\n  xDescuento := 0\n  xTotal     := 0\n  cPre_Art   := 0\n  Precio     := 0\n\n  Select 90\n  go Bottom\n  cFol_Fac := Inv_Cfa1-&gt;Fol_Fac + 1\n  go top\n\n  DEFINE Font oFont1  Name \"Arial\" Size 0,-12\n  DEFINE Font oFont2  NAME \"ARIAL\" SIZE 0,50 BOLD\n\n  DEFINE DIALOG oDlgEdit1 ResName \"IngresoCompra\" TITLE OemToAnsi(\"Ingreso Facturas de Compra\")\n\n  Redefine BtnGet oFol_Fac Var cFol_Fac Id 101 Of oDlgEdit1 Picture \"999999\" No Modify\n  REDEFINE BtnGet oFem_Fac Var cFem_Fac Id 102 Of oDlgEdit1 ;\n           RESOURCE \"CALENDARIO\";\n           PICTURE \"99/99/9999\";\n           ACTION LbxDate(oFem_Fac, cFem_Fac)\n\n  REDEFINE BtnGet oFve_Fac Var cFve_Fac Id 103 Of oDlgEdit1 ;\n           RESOURCE \"CALENDARIO\";\n           PICTURE \"99/99/9999\";\n           ACTION LbxDate(oFve_Fac, cFve_Fac)\n\n  REDEFINE BtnGet oCod_Pro Var cCod_Pro Id 104 Of oDlgEdit1 Resource \"BLIBRO\";\n           VALID BuscaProv(cCod_Pro,cNom_Pro,oNom_pro);\n           Action (cCod_Pro:= BuscaProveedor(cCod_Pro) ,oCod_Pro:Refresh(),oNom_Pro :Refresh())\n\n  Redefine Say oNom_Pro Var M_Prov-&gt;Nom_Pro Id 401 Of oDlgEdit1 Picture \"@!\" COLOR RGB(250,5,54)\n\n  REDEFINE BtnGet oCod_Pago Var cCod_Pago Id 105 Of oDlgEdit1 Resource \"BLIBRO\";\n           VALID BuscaPag(cCod_Pago,cNom_Pago,oNom_Pago);\n           Action (cCod_Pago:= BuscaPago(cCod_Pago) ,oCod_Pago:Refresh(),oNom_Pago :Refresh())\n\n  Redefine Say oNom_Pago Var M_Pago-&gt;Nom_Pago Id 402 Of oDlgEdit1 Picture \"@!\" COLOR RGB(250,5,54)\n\n  Redefine BtnGet oNro_Fac Var cNro_Fac Id 106 Of oDlgEdit1\n  REDEFINE BtnGet oFli_Fac Var cFli_Fac Id 107 Of oDlgEdit1 ;\n           RESOURCE \"CALENDARIO\";\n           PICTURE \"99/99/9999\";\n           ACTION LbxDate(oFli_Fac, cFli_Fac)\n\n  Select 50\n  go top\n\n  Redefine Browse oLbx1 Id 1000 Of oDlgEdit1;\n      UPDATE ;\n      ON LEFT DBLCLICK (Arti_Compra(oLbx1), oLbx1:Refresh());\n      FONT oFont1;\n      COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), Rgb(200,255,200);\n      CELLED\n\n  Add Column To Browse oLbx1 Data Venta1-&gt;Cod_Art;\n      Head \"Codigo\" Width 80 Align 2,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1 Data Venta1-&gt;Nom_Art;\n      Head \"Descripción\" Width 400 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Can_Art\",Select(\"Venta1\"));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"9999.99\";\n      Head \"Cantidad\" Width 70 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170);\n      Post Edit(Venta1-&gt;Tot_art:=Venta1-&gt;Can_Art*Venta1-&gt;Pre_Art,;\n               Calcula_Total(),oLbx1:Refresh())\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Pre_Art\",Select(\"Venta1\"));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"99999999\";\n      Head \"Precio\"+ CRLF + \"Unitario\" Width 70 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170);\n      Post Edit( Venta1-&gt;Tot_art:=Venta1-&gt;Can_Art*Venta1-&gt;Pre_Art,Calcula_Total(),oLbx1:Refresh() )\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Des_Art\",Select(\"Venta1\"));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      Post Edit( Precio:=Venta1-&gt;Pre_Art,;\n                 precio:=Precio - Precio *(Venta1-&gt;Des_Art/100),;\n                 Venta1-&gt;Tot_Art:=Venta1-&gt;Can_Art*Precio,;\n                 Calcula_Total(),oLbx1:Refresh());\n      PICTURE \"99999999\";\n      Head \"Desc.\" Width 60 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170)\n\n  Add Column To Browse oLbx1 Data Venta1-&gt;Tot_Art;\n      PICTURE \"@E 99,999,999\";\n      Head \"Total\" Width 100 Align 2,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  REDEFINE Get oSubTotal  Var XSubTotal  Id 201 of oDlgEdit1 picture \"@E 99,999,999\" ;\n           Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));\n           FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)\n\n  REDEFINE Get oDescuento Var xDescuento ID 202 of oDlgEdit1 ;\n           Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));\n           FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)\n\n  REDEFINE Get oNeto      Var xNeto      ID 203 of oDlgEdit1 picture \"@E 99,999,999\" ;\n           Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));\n           FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)\n\n  REDEFINE Get oExento    Var xExento    ID 204 of oDlgEdit1 picture \"@E 99,999,999\" ;\n           Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));\n           FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)\n\n  REDEFINE Get oIva       Var xIva       ID 205 of oDlgEdit1 picture \"@E 99,999,999\" ;\n           Valid(Desc_Total(@xSubtotal,@xDescuento,@xNeto,@xExento,@xIva,@xTotal,oIva,oTotal,oNeto));\n           FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255)\n\n  REDEFINE Get oTotal     Var xTotal     ID 206 of oDlgEdit1 picture \"@E 99,999,999\";\n           FONT oFONT3 COLOR RGB(0,0,0), RGB(215,240,255) NO MODIFY\n\n  Redefine BtnBmp oBot1  Id 1001 Resource \"Editar\" Of oDlgEdit1;\n           Action (Arti_Compra(oLbx1),;\n           oLbx1:GoTop(),oLbx1:Refresh());\n           NoBorder\n\n  Redefine BtnBmp oBot2  Id 1002 Resource \"Borrar\" Of oDlgEdit1;\n           Action (Borra_Item(oLbx1),;\n           oLbx1:UpsTable(),;\n           oLbx1:GoTop(),;\n           oLbx1:Refresh());\n           NoBorder\n\n  Redefine Button oBotones [1]  Id 801 Action;\n           A_Com1(lparametro,;\n                   cFol_Fac  ,;\n                   cFem_Fac  ,;\n                   cFve_Fac  ,;\n                   cCod_Pro  ,;\n                   cCod_Pago ,;\n                   cNro_Fac  ,;\n                   cFli_Fac  ,;\n                   Xsubtotal ,;\n                   XDescuento,;\n                   Xneto,     ;\n                   Xexento,   ;\n                   XIva,      ;\n                   Xtotal),oDlgEdit1:End()\n\n  Redefine Button oBotones [2]  Id 802 Action oDlgEdit1:End()\n\n  Redefine Button oBotones [3]  Id 803 Action oDlgEdit1:End()\n\n  Activate Dialog oDlgEdit1 Centered\n  close database\nRETURN( NIL )','',0,'','1ariwtxr',1,0,'',129,0,0),(1380,110,6,228,0,'201.245.216.80',1130962910,1,0,1,1,1,0,'','ayuda','alquien tiene el archivo WindowsXP.Manifest o me puede indicar en donde encontrarlo.\n\nBogotá Colombia\nLEANDRO ALFONSO','',0,'','2jzkal02',1,0,'',228,0,0),(1381,326,6,53,0,'200.66.175.10',1130962937,1,0,1,1,1,0,'','dtPicker.h','Normalmente los desarrolladores de clases son muy prácticos y para no obligarnos a pensar mucho al archivo .H le ponen el mismo nombre de la clase (salvo excepciones), en este caso es el archivo dtPicker.h  que me faltaba incluir en mi PRG.\n\nSaludos','',0,'','1epg5c2t',1,0,'',53,0,0),(1382,367,6,53,0,'200.66.175.10',1130963233,1,0,1,1,1,0,'','Gracias Master','René:\n\nMuchas gracias, voy a hacer algunas pruebas adelantandome a los acontecimientos \n\nUn abrazo','',0,'','16c5lc7u',1,0,'',53,0,0),(1383,110,6,228,0,'201.245.216.80',1130963380,1,0,1,1,1,0,'','que pena yo lo encontre estaba buscando mal','Gracias compañeros pero ya encontre el arcivo que pena con ustedes\n\nLEANDRO ALFONSO','',0,'','3kbvoow8',1,0,'',228,0,0),(1384,315,6,228,0,'201.245.216.80',1130964341,1,0,1,1,1,0,'','Gracias a los tres por su respùesta','Mario voy a bajar la version y aviso.\n\nYannis dejame pruebo la opcion de Mario y cualquier cosa te aviso.\n\nThe full, lo tendre en cuenta para opciones posteriores\n\nGRACIAS\nLEANDRO ALFONSO\nBogotá (Colombia)','',0,'','2q4zkimo',1,0,'',228,0,0),(1385,355,2,242,0,'80.58.20.174',1130964537,1,0,1,1,1,0,'','','No son los says; son los controles STATIC STYLE, ya sabes las etiquetas que pongo a la izquierda del campo que voy a capturar. En el programa no hago REDEFINE de las etiquetas, de ahí que a todas las ponga como ID -1.','',0,'','loujocky',1,0,'',242,0,0),(1386,365,3,3,0,'82.65.143.174',1130965893,1,0,1,1,1,0,'','Re: zip SPAN','[quote=&quot;Maverich&quot;:3uts7zi0]In preceding posts, Antonio said I should use the hbzip.lib found in xharbour.org to Zip files.\nOk, I\'ve used it, but calling the function\nHB_ZIPFILEBYPKSPAN\ncauses a FiveWin GPF.\nI\'ve tried that function in Xharbour console, it plays well. It seems an incompatibility with FWH.\n\nHere\'s the code:\n[code:3uts7zi0]\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION main&#40;&#41;\n\n  hb_setdiskzip&#40; &#123; | nDisk | Alert&#40; &quot;Please insert disk no &quot; + Str&#40; nDisk, 3 &#41; &#41; &#125; &#41;\n\n  IF HB_ZIPFILEBYPKSPAN&#40; &quot;a&#58;\\TEST&#46;ZIP&quot;, &quot;TEST&#46;PRG&quot; &#41;\n    Alert&#40; &quot;File was successfully created&quot; &#41;\n  ENDIF\n\n  RETURN NIL\n[/code:3uts7zi0]\n\nAny suggestion?\nthanks[/quote:3uts7zi0]\n\nRicardo\n\nCan you try with the complete set of parameters ? Something like the following ?  lzipwithpath := .t.\n\n    lZipDone:= HB_ZIPFILEBYPKSPAN( cZip , aFiles , 9, { |cFile,npos| QOUT( cFile ) }, ;\n                .T.,, lZipWithPath, .F. )\n\n\nCan\'t test it here, i have no floppy drive. as far as i can recall it was working OK\n\nRichard','',0,'gIA=','3uts7zi0',1,0,'',3,0,0),(1387,370,3,3,0,'82.65.143.174',1130966123,1,0,1,1,1,0,'','Re: hb_xFree invalid pointer','[quote=&quot;ask&quot;:jxikcyo2]Hi ,\n\nCan anyone tell me why this error occures ?\n\nhb_xfree() Invalid Pointer 012879FC\n\nI can\'t provide a sample because the program is too big. If anyone has any idea please respond.\n\nThanks\nA.S.K[/quote:jxikcyo2]\n\nThis is a nasty error that can be provided by many reasons. \n\nCan you check that you are not indexing on a very large field ? I have been through something like this in the past .\n\nHth\n\nRichard','',0,'gA==','jxikcyo2',1,0,'',3,0,0),(1388,283,6,103,0,'200.164.92.242',1130967170,1,0,1,1,1,0,'','','Y asi, mi pregunta se queda sin respuesta...  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nKleyber','',0,'gA==','e7r7ul26',1,0,'',103,0,0),(1389,367,6,73,0,'201.138.166.223',1130975087,1,0,1,1,1,0,'','Re: Gracias Master','[quote=&quot;Armando&quot;:109am9zw]René:\n\nMuchas gracias, voy a hacer algunas pruebas adelantandome a los acontecimientos \n\nUn abrazo[/quote:109am9zw]\nArmando,\nEso lo tengo implementado en mi PDV, uso dbf temporal para la cuenta en captura y para poner un standby uso otra dbf temporal, asi si se va la luz no pierdo las cuentas de standby, las puedo recuperar igual la de la captura, y tengo un bitmap indicando en la pantalla de venta si tengo cuentas en standby o no... si gustas te envio las screenshoit para que veas como las tengo, de hecho si tuvieras un problema de mal cierre, como apagado,reseteado,sin luz, al momento de abrir caja de indica cuales ya estan abiertas, cuales opernado y cuales con problemas de mal cierre...\nEspero haber sido claro\nSalu2\nPaco','',0,'gA==','109am9zw',1,0,'',73,0,0),(1390,380,4,150,0,'217.76.148.208',1130976765,1,0,1,1,1,1,'','Bluetooth dot matrix printer (star)','Hello:\n\nI have a converter Bluetooth - Paralel conected to the printer.\n\nI can see the printer in the bluetooth manager, it is asigned to COM7\n\nI have tried:\n\nSET PRINTER TO COM7\nSET PRINT ON\n\n? \"PRUEBAS\"\n?\n\nSET PRINTER TO\nSET PRINT OFF\n\nIt does not work.\n\nYou wrote a mail about that but I cant conect.\n\nThanks for your help.\n\nJose Valle','',0,'gA==','2tl1i5jc',1,0,'',150,0,0),(1391,193,6,61,0,'201.217.144.168',1130979488,1,0,1,1,1,0,'','No uses ES','Amigo:\n\nOlvidate de WS, usa solo PellesC.\nAbre tus recursos .res con PellesC, modifica, cambia, agrega, hace\nlo que quieras pero solo con el mismo editor: PellesC.\nEs posible que tu archivo tenga algo mal y por eso te da problemas.\n\nSaludos.\nRuben Fernandez','',0,'gA==','rwzot8jt',1,0,'',61,0,0),(1392,374,2,2,0,'80.58.2.107',1131004813,1,0,1,1,1,1,'','','Jose Luis,\n\nDe acuerdo al fichero que me has enviado por email:\n\nEn el fichero MAP se busca esa dirección dos veces. La primera es:\n\n 001A:5B0A 00A87H     TINT_TEXT              CODE \n\nDate cuenta que la siguiente línea es 001A:6592, luego 001A:5EDE está entre ambos valores, y por lo tanto es en el módulo TINT.\n\nSeguimos buscando en el MAP, ahora para encontrar el nombre de la función:\n\n 001A:5E0E  Res  CMX074093305\n\nLas funciones que comienzan con CMX son de comix.\n\nEl problema pudise tratarse de un índice corrupto. Has probado a reindexar todas las bases de datos ?','',0,'gA==','21xb3mt0',1,0,'',2,0,0),(1393,374,2,248,0,'212.145.179.68',1131008203,1,0,1,1,1,0,'','','Revisare, la generacion y creacion de indices, ya comentare algo.\n\nGracias por tu ayuda.','',0,'gA==','mcbcbara',1,0,'',248,0,0),(1394,370,3,247,0,'87.202.27.89',1131008461,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1g7oact5]Are you using harbour or xharbour ? what build ?[/quote:1g7oact5]\n\nI\'m using xharbour 0.99.4 and fwh 2.5 october 2004\n\nThis error has something to do with [b:1g7oact5]release function[/b:1g7oact5]','',0,'wA==','1g7oact5',1,0,'',247,0,0),(1395,381,3,250,0,'144.136.126.13',1131009825,1,0,1,1,1,1,'','New FTDN - Oct/Nov','Antonio,\n\nI have set up the latest version of FWH2.6, and attempted to compile a program that has always linked no problem.\n\nWith this version, I get no errors, but when I run the program the cursor goes to \"wait\" then it never loads. The program does not appear in the Task Manager, either. I have installed the \"Fiveh().libs\" from the Zip files, so it should be right up to date.\nThe previous version of FWH2.6 (Sep) had no dramas.\n\nIt does the same with \"tutor01\" as well.\n\nregards,\nRichard.','',0,'wA==','147e0svc',1,0,'',250,0,0),(1396,381,3,2,0,'80.58.2.107',1131012063,1,0,1,1,1,1,'','','Richard,\n\nAre you using Harbour or xharbour ? \n\nAre you using the latest builds we have provided or the one from CVS ?','',0,'wA==','7yceufu7',1,0,'',2,0,0),(1397,370,3,2,0,'80.58.2.107',1131012197,1,0,1,1,1,1,'','','You may download the most recent xharbour build we have published at:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\n\nand try it again.','',0,'wA==','73nqq36t',1,0,'',2,0,0),(1398,381,3,250,0,'144.136.126.13',1131012565,1,0,1,1,1,1,'','','Hi Antonio,\n\nI have always used Harbour, and the libs supplied by you. Have you made any major changes to the calling of functions? I use the ziparchive and zlib libraries which I have simply copied from one version to another. Also I have a library of functions and classes that I do the same with.\n\nI have had problems before where the buildh.bat file has not been up to date with the package, eg. this time it did not have \"hbsix\" or \"dbffpt\".libs in the file.\n\n\"Buildx.bat\" works with tutor01, but though I have tried to port my library to xHarbour, I keep on getting major hassles when trying to create an \"obj\" file in bcc.\n\nRichard.','',0,'wA==','s3yj5kus',1,0,'',250,0,0),(1399,355,2,242,0,'81.45.227.110',1131013015,1,0,1,1,1,0,'','','Solucionado. Le estaba pidiendo peras al olmo. Si tengo una serie de controles en un diálogo los cuales no redefino en el programa pues lógicamente no puedo hacer nada con ellos. Es preciso redefinirlos para poder actuar con/sobre ellos.\n\nUn saludo,\nFernando Morales del Rosario','',0,'wA==','2vjtxzcd',1,0,'',242,0,0),(1400,381,3,250,0,'144.136.126.13',1131013339,1,0,1,1,1,1,'','','Antonio,\n\nJust to add to the confusion, the prg\'s in the harbour tests directory work fine\n\nRichard.','',0,'wA==','3an62fxf',1,0,'',250,0,0),(1401,364,21,223,0,'200.204.170.177',1131013508,1,0,1,1,1,1,'','','Olá Wilson,\nCrie uma var lógica e coloque no when do get, depois com o botão faça ela ficar verdadeira e mande refrescar os gets, vou dar um pequeno exemplo\n\nlVar := .F.\n\n@ 01,01 Get oGet Var cGet When(lVar) ......\n\n@ 02,01 Button oBut Prompt \"Ativa\" ... Action (lVar := .T., oGet:Refresh())','',0,'wA==','1ok57hl8',1,0,'',223,0,0),(1402,356,6,223,0,'200.204.170.177',1131013717,1,0,1,1,1,1,'','','Olá,\nA VFolder, pode ser compilada normalmente para 32, não há alteração  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , mas estou criando a TABS, que fará a função da Folder também <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->.\n\nEspero que compreendas <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'wA==','h4dvdxmp',1,0,'',223,0,0),(1403,371,6,17,0,'81.41.212.223',1131017025,1,0,1,1,1,1,'','No lo incluyes en la última actualización ?','No lo incluyes en la última actualización ? o me vuelvo a compilar la libreria con ese cambio? que aconsejas...','',0,'wA==','2zjc4isf',1,0,'',17,0,0),(1404,380,4,2,0,'80.58.2.107',1131017843,1,0,1,1,1,1,'','','Jose,\n\nWe are working on a sample of using the bluetooth that we are going to publish as soon as possible. \n\nBasically it has to be used as a COM port.','',0,'wA==','323kcpgg',1,0,'',2,0,0),(1405,381,3,250,0,'144.136.126.13',1131019508,1,0,1,1,1,1,'','','Fixed, thanks Antonio.','',0,'wA==','3jt499l3',1,0,'',250,0,0),(1406,347,7,179,0,'200.25.180.199',1131019951,1,0,1,1,1,1,'','','Gracias Antonio, ya funciona\n\nSaludos','',0,'wA==','17evfcme',1,0,'',179,0,0),(1407,380,4,2,0,'80.58.2.107',1131019992,1,0,1,1,1,1,'','','Jose,\n\nWe have already published a new FWPPC build with Bluetooth support.\n\nPlease review samples\\BlueToth.prg\n\nPlease test it and let us know how it works there.','',0,'wA==','vlqi05t8',1,0,'',2,0,0),(1408,382,7,2,0,'80.58.2.107',1131020090,1,0,1,1,1,1,'','Soporte de BlueTooth','Acabamos de publicar un nuevo build de FWPPC con soporte de BlueTooth. \n\nRevisad el ejemplo samples\\BlueToth.prg. Es un ejemplo simple que iremos ampliando.','',0,'wA==','1ru1h4ma',1,0,'',2,0,0),(1409,379,2,2,0,'80.58.2.107',1131020255,1,0,1,1,1,1,'','','Luis,\n\nTienes que proporcionarnos ejemplos pequeños y completos, para que podamos darte soporte técnico.\n\nAl proporcionar mucho código fuente, se necesita mucho tiempo para revisarlo y poder orientarte.','',0,'wA==','8imbkvs6',1,0,'',2,0,0),(1410,371,6,2,0,'80.58.2.107',1131020424,1,0,1,1,1,1,'','','Jesús,\n\nEstá incluido en el build de Septiembre.\n\nSi no está en tu folder.prg, puedes incluirlo, y compilarlo y enlazarlo como si fuese un PRG más de tu aplicación. O reemplazarlo en la librería. Como prefieras.','',0,'wA==','1dl7rkr6',1,0,'',2,0,0),(1411,381,3,2,0,'80.58.2.107',1131020606,1,0,1,1,1,1,'','','Richard,\n\nWhat was the problem ?','',0,'wA==','1f6az1as',1,0,'',2,0,0),(1412,383,16,2,0,'80.58.2.107',1131021023,1,0,1,1,1,1,'','New FWPPC build - BlueTooth','There is already available a new FWPPC build with a sample of BlueTooth support. The sample will be more complete the next days.\n\nYa está disponible un nuevo build de FWPPC con un ejemplo de uso de BlueTooth. En los próximos dias iremos completando el ejemplo.','',0,'wA==','3gscsk8d',1,0,'',2,0,0),(1413,360,6,147,0,'168.96.152.231',1131021027,1,0,1,0,1,1,'','','gracias Antonio, fue la solución\n\nsaludos','',0,'wA==','b3tsk9px',1,0,'',147,0,0),(1414,384,3,67,0,'83.134.57.100',1131021392,1,0,1,1,1,0,'','GPF with msgMeter','Hello,\n\nI made a routine to index or reindex the dbf\'s with msgmeter , which is called for each indextag in a cdx-file\n\nThis works in all cases , except one (with 12 tag\'s , the last one gives a gpf when MsgMeter is called)\n\nMsgMeter( { | oMeter, oText, oDlg, lEnd | ;\n  BCdxIndex( oMeter, oText, oDlg, @lEnd , :cINdExp , :cindTag ,;\n                    hlp , :cIndCond , :lIsUnique,:lIndDesc) })\n\n\nWhen i call Bcdxindex() direct , it works , the 12 tag\'s are build as expected\n\nAlso when only the 12-th tag is build , it gpf\'s\n\nThe last test was : change the indexexpression to one from the previous tag\'s , and indeed it works.\n\nSo i suppose it must be the indexexpression that confuses msgmeter :\n(:cIndExpr)\nRIGHT(STR(YEAR(ADDMONTH(fakdat,114)),4),2)+PADL(ALLTRIM(UPPER(boeknr)),5)\n\nNote the gpf occurs before BcdxIndex is called (at least a msginfo at line one is not executed)\n\nFrank','',0,'wA==','2vnj3vu7',1,0,'',67,0,0),(1415,375,4,224,0,'162.83.94.176',1131025357,1,0,1,1,1,1,'','','Antonio, thanks! I missed the announcement about these functions. Works great!\n\nYou also wrote...\n[quote=&quot;Antonio Linares&quot;:3l6qwmvh]Your code is ok, but the parameters supply is not available yet (so it arrives as zero and hides it).[/quote:3l6qwmvh]\nDoes this mean that dynamic DLL function calls are not fully working? This might explain a different issue I am having.\n\nThanks again,\nBill','',0,'gA==','3l6qwmvh',1,0,'',224,0,0),(1416,375,4,2,0,'80.58.2.107',1131032126,1,0,1,1,1,1,'','','[quote=&quot;Bill Simmeth&quot;:ai1rcn7a]Antonio, thanks! I missed the announcement about these functions. Works great![/quote:ai1rcn7a]\n\nCool <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[quote=&quot;Bill Simmeth&quot;:ai1rcn7a] Does this mean that dynamic DLL function calls are not fully working? This might explain a different issue I am having.\n[/quote:ai1rcn7a]\n\nYes, they are not ready yet. Please use to review whatsnew.txt file included with FWPPC. We will announce it as soon as it is fully available.','',0,'gA==','ai1rcn7a',1,0,'',2,0,0),(1417,384,3,2,0,'80.58.2.107',1131032286,1,0,1,1,1,1,'','','Frank,\n\nDo you index the DBF meanwhile it is visible (shown on a browse, dialog fields, etc.) ?','',0,'gA==','3egxgz5s',1,0,'',2,0,0),(1418,182,3,76,0,'80.17.137.201',1131034043,1,0,1,1,1,1,'','where is 2.6 september version?','How to download it? what\'s the URL?','',0,'gA==','2cokgn1s',1,0,'',76,0,0),(1419,365,3,76,0,'80.17.137.201',1131034508,1,0,1,1,1,1,'','','richard,\n\nI simply used the code that comes with the xharbour documentation. ANY example that uses hb..SPAN causes a GPF.\nIf you consider that a ZIP file is often used for backup on removable drives (ZIP, flash disks, ecc.), it\'s a great problem.\n\nI don\'t understand what Antonio said-look for prg inside the lib-how can i recompile the prgs if I don\'t have any source?\n\nregards','',0,'gA==','3a4mqm7u',1,0,'',76,0,0),(1420,385,20,163,0,'87.0.235.132',1131034743,1,0,1,1,1,0,'','Ciao a tutti','Un grosso saluto a tutti. \nSpero di poter dare anche io il mio contributo a questo furum.\nSpesso le domande che leggo sono distanti anni luce dalle mie\nconoscenze, ma chi lo sa...magari prima o poi potrò essere anche\nio utile in qualche modo.\nP.S. Nella foto, io sono quello in azzurro puffo, l\'altro è il mio cane\nda guardia  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1eh1ogxr',1,0,'',163,0,0),(1421,283,6,28,0,'213.27.201.254',1131036525,1,0,1,1,1,0,'','linea 3d','Eso mas o menos te hace una línea 3d\n\nCONTROL \"\", 4001, \"Static\", WS_GROUP, 24, 64, 120, 2, WS_EX_STATICEDGE\n\nUn saludo\n\nPaco','',0,'gA==','umcqlwrw',1,0,'',28,0,0),(1422,386,6,61,0,'200.40.234.42',1131042202,1,0,1,1,1,0,'','Crystal Repor 8.5','Amigos:\n\nSi uso CR 8.5 Español, y lo voy a instalar en un cliente que\ntiene 9 o 10 u 11 español o Ingles, se supone que al\ninstalador le digo que no sobreescriba los archivos si son\nmas nuevos (Las dlls de CR), mi aplicación funcionará igual?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','38mnybhl',1,0,'',61,0,0),(1423,365,3,2,0,'80.58.2.107',1131050978,1,0,1,1,1,1,'','','Riccardo,\n\nI missunderstood you, I though you were using Harbour, instead of xharbour.\n\nPlease create a MAP file and search for the GPF address into the MAP file.\n\nDon\'t you get a FWH MsgAlert() with the calls stack list ?','',0,'gA==','8skhj28o',1,0,'',2,0,0),(1424,386,6,138,0,'201.154.236.172',1131058486,1,0,1,1,1,1,'','Re: Crystal Repor 8.5','Si el equpo donde vas a instalar YA TIENE CRYSTAL INSTALADO, no hace falta que copies ninguna DLL de la version 8.5, solo copia los RPTs  el programa debe funcionar como estas acostumbrado.','',0,'gA==','bza1m8pt',1,0,'',138,0,0),(1425,380,4,150,0,'217.76.159.216',1131059611,1,0,1,1,1,1,'','','Thanks Antonio.\n\nI will try that tomorrow. With this solved I can finish my aplication only a little bit late!!!\n\nFor testing I have buy a bluetooth to printer conector (60€) and I use a dot matrix paralel printer. When sure I will buy Star in 12 Volts 60 cols 600€.\n\n(this is a littlr off topic but this is the only place I know for speaking about this)\n\n\nJose Valle','',0,'gA==','1jraqdft',1,0,'',150,0,0),(1426,386,6,61,0,'200.40.245.108',1131059841,1,0,1,1,1,0,'','Muchas Gracias Renee','Muchas gracias Renee.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','367skvwv',1,0,'',61,0,0),(1427,365,3,6,0,'87.1.232.196',1131059929,1,0,1,1,1,1,'','','Found! Simply replace Alert() with MsgInfo() and then it will work perfectly!\n\nEMG','',0,'gA==','v3ippsor',1,0,'',6,0,0),(1428,387,6,252,0,'201.140.21.181',1131064954,1,0,1,1,1,0,'','Diseñador de formatos','¿Existira un diseñador de formatos, no necesariamente visual, para fwh?\n\n\n    Hace un par de años vi en alguna pagina de contribuciones para fw el codigo para llenar formatos (tipo facturas, recibos de nominas, etc.), que se podia incluir en el ejecutable . Dicha pagina ya no existe. ¿Alguno de ustedes sabe como conseguirlo?.\n\n\n\n    Un saludo.','',0,'gA==','j9qjrdy0',1,0,'',252,0,0),(1429,278,1,204,0,'87.202.99.115',1131065951,1,0,1,1,1,0,'','','I want to display a login dialog box after the MDI framework loads and before the main app starts. What I have gotten so far is to display that dialog before everything.\n\n[code:2ntc4g9i]\nPROCEDURE MAIN&#40;&#41;\n…\n…\n  DEFINE WINDOW oMainWin MDI TITLE OemToAnsi&#40;“IFT - …”&#41;\n    IF LogInUser&#40;&#41;\n      IF OpenDbfs&#40;&#41;\n         // display the main MDI child browser window and set up the menu system\n      ENDIF\n    ELSE\n       oMainWin&#58;End&#40;&#41;\n    ENDIF\n  ACTIVATE WINDOW oMainWin\nRETURN \n\nSTATIC FUNCTION LogInUser&#40;&#41;\n  LOCAL oLogIn, lGo &#58;= &#46;F&#46;, oGet1, oGet2, oOKBtn, oCancelBtn\n\n  DEFINE DIALOG oLogIn of oMainWin\n  …&#46;\n  …\n  ACTIVATE DIALOG oLogIn CENTER\nRETURN lGo\n[/code:2ntc4g9i]\n\nIf I have to use MDI child windows instead of dialogs how can I make the app stop at them until the user passes or fails the authorization prossess.','',0,'AIA=','2ntc4g9i',1,0,'',204,0,0),(1430,381,3,250,0,'144.136.126.13',1131073355,1,0,1,1,1,1,'','','Hi Antonio,\n\nI am not sure what happened. When I installed the Harbour originally, compilation was coming up with an error in the \"dbfdbt\" lib. I used one from an earlier version, and everything went pear shaped. When I reinstalled everything, it worked fine. One of life\'s mysteries no. 546.\nThere may have been a glitch in expanding that particular file on the original installation.\n\nRichard.','',0,'AIA=','3qaihyb0',1,0,'',250,0,0),(1431,278,1,74,0,'201.255.131.203',1131075341,1,0,1,1,1,1,'','','Kronos:\n\n            IF you call loginuser() BEFORE the activate window, obviously the windows does not appears until you close that dialog. You have to use the ON INIT clause of the ACTIVATE WINDOW, so the windows is activated and the login dialog appears over it, and if the user don\'t pass the login dialog you close the window. Something like this:\n\n  ACTIVATE WINDOW oWnd maximized ON INIT (oSpl:AdjRight(),IF(Login(),(cLogin:=.T.,Start(),MuestraUsuario()), oWnd:End()));\n	valid IF(cLogin.and.vPrevia(cLogin),MsgYesNo( \"Abandona el Sistema ?\",\" Confirme: \"),IF(cLogin,.F.,.T.))\n\n\nIn your case:\n\n  ACTIVATE WINDOW oWnd maximized ON INIT IF(LogInUser(),,oWnd:End())\n\nRegards,','',0,'AIA=','2ircn0cq',1,0,'',74,0,0),(1432,312,2,253,0,'83.231.10.171',1131082529,1,0,1,1,1,0,'','','Hola Gerardo.\nYo uso el tipo CODE128. Al principio me daba problemas, pero poniendole el modo \"B\" va de maravilla.\n\nUn saludo.\nPepe Leyva.','',0,'AIA=','3o02j8px',1,0,'',253,0,0),(1433,384,3,67,0,'83.134.58.253',1131087630,1,0,1,1,1,0,'','Gpf with msgmeter','Antonio\n\n&gt; Do you index the DBF meanwhile it is visible (shown on a browse,    \n&gt; dialog fields, etc.) ?\n\nNo , i do it :\n\n1) The main mdi window , init clausule \n\nOr\n\n2) Menu option , one dbf can be choosen in a list\n\nBoth have the same result\n\nFrank','',0,'AIA=','3v4uz3tj',1,0,'',67,0,0),(1434,380,4,2,0,'80.58.2.107',1131089285,1,0,1,1,1,1,'','','Jose,\n\nThis is the right place to talk about this <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nI wait for your news,','',0,'AIA=','tge6ejdh',1,0,'',2,0,0),(1435,384,3,2,0,'80.58.2.107',1131089933,1,0,1,1,1,1,'','','Frank,\n\nAre you using harbour or xharbour ? What build ?','',0,'AIA=','289i7x4f',1,0,'',2,0,0),(1436,388,6,77,0,'80.58.35.107',1131092299,1,0,1,1,1,0,'','Error DBFCDX/2037  Read error: Read Failed;In Function: GetD','Hola a todos, estoy modificando una función para actualizar los ficheros desde una dbf con los campos definidos, todo funciona perfecto, pero cuando llega a copiar un registro con un campo memo con datos me refleja el error del asunto, abajo dejo el código que refleja el error , gracias por ayudarme.\n\nStatic Function fitraspa(cfichtrab, aFichstru,ccamino )\nlocal nSeletrab, nSeleant, lActual := .f., nCont, nSust, xValor,;\n      aSelect := {\'AUX\'}, CTEMP:=\"\",ASUST:={},cdriver:=DBSetDriver(),oFtrab:=\"TMPTRAB\",NSYS:=0,oftemp:=\"TMPINI\"\n\nIF File(Ccamino+\"temptras.dbf\")\n   FErase(Ccamino+\"temptras.dbf\")\n   FErase(ccamino+\"temptras.fpt\")\nENDIF\n\nDBCreate(cCamino+\"temptras.dbf\",aFichstru)\n\nsysrefresh()\n\nDBUseArea(.T.,,ccamino+\"temptras.dbf\",oftrab,.F.,.f.)\n\nIF Select(oftrab) &lt;&gt; 0\n   nseletrab:=select()\n\n   DBUseArea(.T.,,cCamino+cfichtrab,OFTEMP,.f.,.F.)\n   (OFTEMP)-&gt;(DBGOTOP())\n   nseleant:=select(OFTEMP)\n   While !(NSELEANT)-&gt;(eof())\n      oWnd:oMsgbar:cMsgdef:=\"Fichero \"+cFichtrab+\" Actualizando Registro..\"+Str(RecNo(),9)+\" de \"+Str(LastRec(),9)\n      ownd:oMsgbar:paint()\n      NSYS++\n      IF NSYS = 100\n         Sysrefresh()\n         NSYS = 0\n      ENDIF\n\n      (nSeletrab)-&gt;(dbappend())\n      for nCont := 1 to (OFTEMP)-&gt;(FCount())\n          [color=red:248cfe7a]if (nSeleant)-&gt;(fieldget(fieldpos((nSeletrab)-&gt;(fieldname(nCont)))))=Nil[/color:248cfe7a]             \n nSust := ascan(aSust,{|aVal| AllTrim(aVal[1])==AllTrim((nSeletrab)-&gt;(fieldname(nCont)))})\n              if nSust#0\n                 if valtype(aSust[nSust,2])=\'B\'\n                     xValor := eval(aSust[nSust,2])\n                     (nSeletrab)-&gt;(fieldput(nCont,xValor))\n                 else\n                     (nSeletrab)-&gt;(fieldput(nCont,aSust[nSust,2]))\n                 endif\n              endif\n          else\n             (nSeletrab)-&gt;(fieldput(nCont,;\n             (nSeleant)-&gt;(fieldget(fieldpos((nSeletrab)-&gt;(fieldname(nCont)))))))\n          endif\n       next\n       (NSELEANT)-&gt;(dbskip())\n   enddo\n   lActual := .t.\n\n   (nSeleant)-&gt;(dbclosearea())\n   if file(Ccamino+cFichtrab+\'.ANT\')\n        ferase(Ccamino+cFichtrab+\'.ANT\')\n   endif\n\n   (nSeletrab)-&gt;(dbclosearea())\n\n   IF frename((Ccamino+cFichtrab+\'.DBF\'), (Ccamino+cFichtrab+\'.ANT\')) == -1\n      MSGALERT(\"Imposible renombrar fichero...\"+CcAMINO+CFICHTRAB+\".DBF\")\n      RETURN .F.\n   ENDIF\n\n   IF FRename((Ccamino+\"temptras.dbf\"),(ccamino+cfichtrab+\".dbf\")) == -1\n      Msgalert(\"Imposible renombrar fichero... Temptras.dbf\")\n      RETURN .F.\n   ENDIF\n\nendif\n(nSeletrab)-&gt;(dbclosearea())\n\nReturn lActual\n\n[color=blue:248cfe7a]y el error que me genera es el siguiente:\n\nError DBFCDX/2037  Read error: Read Failed;In Function: GetDataLen;On Line: 581\n\nlo da en la linea que he marcado en rojo[/color:248cfe7a]','',0,'Ag==','248cfe7a',1,0,'',77,0,0),(1437,384,3,67,0,'83.134.58.253',1131092786,1,0,1,1,1,0,'','','Antonio,\n\nI am using xhb , last build , but this error has always be present.\n\nIt is the first time i give it attention . I hope that in the next week(s) i can change a big clipper aplication in a fw aplication , we are in the last stage from testing\n\nNote that without msgmeter it works , so for me it is fw related\n\nFrank','',0,'Ag==','3548yoz0',1,0,'',67,0,0),(1438,384,3,2,0,'80.58.2.107',1131094351,1,0,1,1,1,1,'','','Frank,\n\nYou may create the MAP file of your app and search into it the GPF address, so we may know where it is GPFing.','',0,'Ag==','1x37js38',1,0,'',2,0,0),(1439,388,6,2,0,'80.58.2.107',1131094466,1,0,1,1,1,1,'','','Manolo,\n\nEstás usando harbour ó xharbour ? que build ?','',0,'Ag==','2s7wkq2b',1,0,'',2,0,0),(1440,278,1,204,0,'87.202.119.63',1131102631,1,0,1,1,1,0,'','','Thanks I\'ll give it a try.','',0,'Ag==','3w0qww9a',1,0,'',204,0,0),(1441,370,3,247,0,'87.202.27.89',1131105179,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1gso0pqk]You may download the most recent xharbour build we have published at:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\n\nand try it again.[/quote:1gso0pqk]\n\nI download it but i have this problems:\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFW\nNDRUN\nError: Unresolved external \'_HB_FUN_DBF2TEXT\' referenced from C:\\XHARBOUR\\LIB\\RT\nL.LIB|dbdelim\n\n\nThanks Antonio\nA.S.K','',0,'gA==','1gso0pqk',1,0,'',247,0,0),(1442,389,3,29,0,'212.171.42.58',1131105377,1,0,1,1,1,0,'','Crypt/Decrypt 32bit','Hi,\nI have a text file crypted with the FW16bit function \"Crypt\",\ncan now decrypt it using the FWH 32 bit function Decrypt ?\n\nThanks\n\nMarco','',0,'gA==','3bwibj97',1,0,'',29,0,0),(1443,390,6,17,0,'81.41.214.183',1131105550,1,0,1,1,1,1,'','Error al compilar con FWH2.6 Septiembre','Error al compilar con FWH2.6 Septiembre + xharbour distribuido por Antonio.\n\nHe metido ya la libreria hbsix.lib pero me sigue dando este error...\n\n_hb_stack\n-------------------------------------------\n\nxHarbour Compiler build 0.99.51 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'etibackup.prg\' and generating preprocessed output to \'etibackup.ppo\'.\n..\nLines 2612, Functions/Procedures 50\nGenerating C source output to \'etibackup.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\netibackup.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\FTDN\\FW\\LIB\\FIVEHC.LIB\n|FFWNDRUN\nNo se encuentra d:\\fivewin\\eTi\\Backup\\etibackup.il?','',0,'gA==','3ji95kdy',1,0,'',17,0,0),(1444,388,6,77,0,'80.58.35.107',1131106048,1,0,1,1,1,0,'','','hola antonio, estoy usando Clipper 53 blink 6.0 y fw25.\n\n\nGracias.','',0,'gA==','1bwailzr',1,0,'',77,0,0),(1445,391,2,77,0,'80.58.35.107',1131106137,1,0,1,1,1,0,'','Error DBFCDX/2037 Read error: Read Failed;In Function: GetDa','Hola a todos, estoy modificando una función para actualizar los ficheros desde una dbf con los campos definidos, todo funciona perfecto, pero cuando llega a copiar un registro con un campo memo con datos me refleja el error del asunto, abajo dejo el código que refleja el error , gracias por ayudarme. \n\nuso fw25, clipper53 y blink 6.0\n\nStatic Function fitraspa(cfichtrab, aFichstru,ccamino ) \nlocal nSeletrab, nSeleant, lActual := .f., nCont, nSust, xValor,; \naSelect := {\'AUX\'}, CTEMP:=\"\",ASUST:={},cdriver:=DBSetDriver(),oFtrab:=\"TMPTRAB\",NSYS:=0,oftemp:=\"TMPINI\" \n\nIF File(Ccamino+\"temptras.dbf\") \nFErase(Ccamino+\"temptras.dbf\") \nFErase(ccamino+\"temptras.fpt\") \nENDIF \n\nDBCreate(cCamino+\"temptras.dbf\",aFichstru) \n\nsysrefresh() \n\nDBUseArea(.T.,,ccamino+\"temptras.dbf\",oftrab,.F.,.f.) \n\nIF Select(oftrab) &lt;&gt; 0 \nnseletrab:=select() \n\nDBUseArea(.T.,,cCamino+cfichtrab,OFTEMP,.f.,.F.) \n(OFTEMP)-&gt;(DBGOTOP()) \nnseleant:=select(OFTEMP) \nWhile !(NSELEANT)-&gt;(eof()) \noWnd:oMsgbar:cMsgdef:=\"Fichero \"+cFichtrab+\" Actualizando Registro..\"+Str(RecNo(),9)+\" de \"+Str(LastRec(),9) \nownd:oMsgbar:paint() \nNSYS++ \nIF NSYS = 100 \nSysrefresh() \nNSYS = 0 \nENDIF \n\n(nSeletrab)-&gt;(dbappend()) \nfor nCont := 1 to (OFTEMP)-&gt;(FCount()) \nif (nSeleant)-&gt;(fieldget(fieldpos((nSeletrab)-&gt;(fieldname(nCont)))))=Nil \nnSust := ascan(aSust,{|aVal| AllTrim(aVal[1])==AllTrim((nSeletrab)-&gt;(fieldname(nCont)))}) \nif nSust#0 \nif valtype(aSust[nSust,2])=\'B\' \nxValor := eval(aSust[nSust,2]) \n(nSeletrab)-&gt;(fieldput(nCont,xValor)) \nelse \n(nSeletrab)-&gt;(fieldput(nCont,aSust[nSust,2])) \nendif \nendif \nelse \n(nSeletrab)-&gt;(fieldput(nCont,; \n(nSeleant)-&gt;(fieldget(fieldpos((nSeletrab)-&gt;(fieldname(nCont))))))) \nendif \nnext \n(NSELEANT)-&gt;(dbskip()) \nenddo \nlActual := .t. \n\n(nSeleant)-&gt;(dbclosearea()) \nif file(Ccamino+cFichtrab+\'.ANT\') \nferase(Ccamino+cFichtrab+\'.ANT\') \nendif \n\n(nSeletrab)-&gt;(dbclosearea()) \n\nIF frename((Ccamino+cFichtrab+\'.DBF\'), (Ccamino+cFichtrab+\'.ANT\')) == -1 \nMSGALERT(\"Imposible renombrar fichero...\"+CcAMINO+CFICHTRAB+\".DBF\") \nRETURN .F. \nENDIF \n\nIF FRename((Ccamino+\"temptras.dbf\"),(ccamino+cfichtrab+\".dbf\")) == -1 \nMsgalert(\"Imposible renombrar fichero... Temptras.dbf\") \nRETURN .F. \nENDIF \n\nendif \n(nSeletrab)-&gt;(dbclosearea()) \n\nReturn lActual \n\ny el error que me genera es el siguiente: \n\nError DBFCDX/2037 Read error: Read Failed;In Function: GetDataLen;On Line: 581 \n\nlo da en la linea que he marcado en rojo','',0,'','3gia3u85',1,0,'',77,0,0),(1446,371,6,131,0,'194.179.55.36',1131106940,1,0,1,1,1,0,'','','Perdón por la intromisión, pero yo rediseñaría la interfaz. \nSi las pestañas que no se ven dudo de que nadie llegue hasta ellas.\n\nSaludos,','',0,'','2lcznt87',1,0,'',131,0,0),(1447,387,6,83,0,'80.58.14.107',1131107438,1,0,1,1,1,0,'','','Para mis propias necesidades creé hace algún tiempo un [u:24tansvl]diseñador de plantillas[/u:24tansvl] (casi) visual, pero no para rellenarlas sino para generar el formato del documento, luego el diseño se incluye en el ejecutable y se rellena desde código.\n\nNo importa el tipo de documento por complejo que sea, en pocos minutos está listo.\n\nSi es eso lo que necesitas, puedes bajarlo desde:\n\n[url:24tansvl]http&#58;//personal&#46;telefonica&#46;terra&#46;es/web/jvbp/[/url:24tansvl]\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'EQ==','24tansvl',1,0,'',83,0,0),(1448,392,2,237,0,'200.68.70.89',1131108875,1,0,1,1,1,0,'','Donde conseguir TODAS las news anteriores para consultar','Amigos:\n\nAlguien sabe donde se pueden conseguir todas las news de fw/fwh del viejo sistema? \nParece que esto no funciona, nadie contesta, la cantidad de mensajes es mínima y por lo menos, consultando las news viejas uno puede llegar a encontrar algo que lo ayude.\n\nLes mando muchos salu2,  suerte.\n\nFuera Bush!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\nAlejandro.','',0,'EQ==','zmvlp5n0',1,0,'',237,0,0),(1449,393,6,23,0,'80.58.44.235',1131114143,1,0,1,1,1,1,'','Probando PellesC','Hola gente!!\nEstoy probando pellesc como editor de recursos y me encuentro con una cosa muy curiosa, tengo un dialogo sin barra de título que creado con el workshop se muestra correctamente, pero al crearlo con el pellesC se muestra con la barra de título.\nAquí va ----\n[img:2lvn3e1r]http&#58;//www&#46;sigev&#46;com/entrada1&#46;jpg[/img:2lvn3e1r]\n\nEl tema es que la barra azul no debería aparecer.\nEl mismo diálogo con Workshop, no se ve la barra.\n\nSabeis algo?\nGracias','',0,'CA==','2lvn3e1r',1,0,'',23,0,0),(1450,394,2,129,0,'201.215.15.27',1131114474,1,0,1,1,1,0,'','ok, como uso la clase TDATABASE de fivewin','Amigos tengo dos problemas, ojala me puedan ayudar, me tienen entrampado, ahi van:\n\n1. como cambio esto para que sea igual en la clase TDATABASE\n\n Select 90\n  Do While .T.\n     If NET_USE(\"Inv_Cfa1\",.F.,5)\n        Set Index to Inv_Cfa1,Cfa_Fec1\n        Set order to 1\n        Exit\n     Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n2. Y si uso esto mismo\n   Select 50\n   N := 1\n   Do While .t.\n       ARCHI = \"TEM_FAC\" + StrZero(N,1)\n       If net_use(ARCHI,.T.,5)\n          zap\n          go top\n          exit\n      else\n         N++\n         IF N &gt; 5\n            RETURN\n         ENDIF\n     Endif\n  Enddo\n\nel asunto es que esto con la clase tsbrowse, me funciona bien, pero cuando debo editar el campo de la clase, se cae y no funciona\n\n Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Can_Art\",Select(\"&amp;(archi)\"));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"9999.99\";\n      Head \"Cantidad\" Width 70 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170)','',0,'CA==','2jvqdam8',1,0,'',129,0,0),(1451,393,6,21,0,'83.36.13.253',1131114575,1,0,1,1,1,1,'','Re: Probando PellesC','Hola Angel,\n\nComprueba en las propiedades de la ventana dentro de \"window styles\" que la propiedad \"caption\" este en No.\n\nSi esta en Yes muestra siempre la barra de título, tengas o no tengas algo escrito en la misma','',0,'CA==','177joiox',1,0,'',21,0,0),(1452,393,6,23,0,'80.58.44.235',1131116815,1,0,1,1,1,1,'','','Efectivamente!!\nCon eso quedó perfecto.\nMuchas gracias por la rapidez.','',0,'CA==','3flhw9fc',1,0,'',23,0,0),(1453,387,6,252,0,'201.140.19.116',1131117044,1,0,1,1,1,0,'','Gracias Vicente','Agradezco tu ayuda Vicente.\n    \n\n    Saludos.','',0,'CA==','f5jcitq1',1,0,'',252,0,0),(1454,395,6,256,0,'200.47.50.82',1131119480,1,0,1,1,1,0,'','CHARTFX  - FWH','Quizas alguien pueda orientarme:\nTengo un programa que usa chart2fx.vbx pero en la version de Fivewin para Clipper, el problema es que ahora necesito compilarlo con Harbour y FwH 2.4, el problema es que no puedo, alguien tiene un ejemplo de usar chartfx con harbour ?','',0,'CA==','269xdsb9',1,0,'',256,0,0),(1455,273,6,93,0,'201.152.249.29',1131120390,1,0,1,1,1,0,'','Tienes razón Antonio','[quote=&quot;Antonio Linares&quot;:11d7awvw]Fernando,\n\nActualmente los RDDs de Harbour y xHarbour son exactamente los mismos, luego ambos deben funcionar de igual forma.[/quote:11d7awvw]\n\n\nAlguien me había comentado que no era posible (no se si por ignorancia), pero ya que he tenido tiempo de revisarlo con calma veo que es exactamente igual. Agradezco tu ayuda.\n\nGFCG','',0,'gA==','11d7awvw',1,0,'',93,0,0),(1456,370,3,2,0,'83.39.227.26',1131121058,1,0,1,1,1,1,'','','Please send me a private email to <!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->','',0,'gA==','1nunh9dp',1,0,'',2,0,0),(1457,389,3,2,0,'83.39.227.26',1131121147,1,0,1,1,1,1,'','','Marco,\n\nYes, they should be compatible.','',0,'gA==','1pgslafb',1,0,'',2,0,0),(1458,19,2,42,0,'83.49.240.1',1131121382,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2rrndrfw][quote=&quot;javi iglesias&quot;:2rrndrfw]errorsys : simbol defined more than once[/quote:2rrndrfw]\n\nPasa este parámetro al enlazador:\n\n/force:multiple[/quote:2rrndrfw]\n\nAntonio,\n\nel link no reconoce este parametro','',0,'gA==','2rrndrfw',1,0,'',42,0,0),(1459,395,6,93,0,'201.152.249.29',1131123392,1,0,1,1,1,0,'','Contacta a Vykthor','El tiene una clase muy buena para el acceso a ChartFX en 32 bits.\n\nSaludos!!','',0,'gA==','1t14bnq1',1,0,'',93,0,0),(1460,381,3,205,0,'81.205.236.20',1131126607,1,0,1,1,1,0,'','FTDN ?','Is there a oct/nov FTDN ?\n\nBest regards,\nKlaas den Dekker','',0,'gA==','3fkrlnik',1,0,'',205,0,0),(1461,396,6,255,0,'200.67.134.233',1131127655,1,0,1,1,1,0,'','Novedades !! Verce 4.2 !!','Que tal amigos, tenemos disponible la nueva\nversión de Verce.\nEstas son sus novedades:\n\n*  Adaptado para el nuevo build de fivewin (Sep2005)\n* Ahora con la posibilidad de usar archivos de recursos .RC o .RES, solo selecciona el tipo de archivo que usarás en las propiedades del proyecto y VERCE se encargará en enlazarlo a tu EXE.\n\nDescárgenlo de :\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n\nSaludos','',0,'gA==','31dz7exo',1,0,'',255,0,0),(1462,397,3,255,0,'200.67.134.233',1131127854,1,0,1,1,1,0,'','News !!! Verce 4.2 !!','Hi friends, there is a new Verce version.\n\n* Adapted for the new FiveWin build (Sep2005)\n* Now you can use .RC or .RES file for your resources\n\nDownload from:\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n\nRegards.','',0,'gA==','2u6ty5ug',1,0,'',255,0,0),(1463,311,6,255,0,'200.67.134.233',1131128845,1,0,1,1,1,1,'','','No hay forma de poder usar EVENTOS\nes una limitante.','',0,'gA==','1dlg74ii',1,0,'',255,0,0),(1464,398,6,23,0,'80.58.44.235',1131129021,1,0,1,1,1,1,'','División por cero?','Hola amigos del foro.\nMe encuentro con Harbour que me saca a lo \"macho\" de la aplicación en cuanto se encuentra una división por cero entre variables.\nSe que no es correcto, pero en clipper no petaba\nTengo que revisar mi código o hay algo que pueda hacer??\n\nGracias.','',0,'gA==','2xurqz1j',1,0,'',23,0,0),(1465,381,3,2,0,'80.58.2.107',1131130459,1,0,1,1,1,1,'','','Klaas,\n\nThe current one is September dated. The next one wil be published around mid November.','',0,'gA==','w5pkxj6i',1,0,'',2,0,0),(1466,394,2,2,0,'80.58.2.107',1131130694,1,0,1,1,1,1,'','','Que error te aparece ?','',0,'gA==','27cb30vn',1,0,'',2,0,0),(1467,374,2,221,0,'201.242.42.77',1131130880,1,0,1,1,1,0,'','interesante','antonio casi 20 años programando y hasta hoy me entero para que sirve el archivo MAP, deberias poner esas pequeñas cosas utililes, que todos asumen de que todos las saben y por eso nadie las dice, gracias','',0,'gA==','28vbdqhh',1,0,'',221,0,0),(1468,19,2,2,0,'80.58.2.107',1131131043,1,0,1,1,1,1,'','','Javi, \n\nTienes razón, disculpa, ese parámetro es sólo válido para 32 bits.\n\nTienes definido tu propio ErrSysW.prg y obj ?','',0,'gA==','1cpat2oa',1,0,'',2,0,0),(1469,374,2,2,0,'80.58.2.107',1131131216,1,0,1,1,1,1,'','','Alex,\n\nUn fichero MAP sirve para más cosas. En realidad contiene la información de símbolos y módulos de la aplicación. Normalmente lo usan los debuggers.\n\nY tambien sirve para buscar un GPF <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3shluq9r',1,0,'',2,0,0),(1470,392,2,74,0,'201.255.142.20',1131131246,1,0,1,1,1,1,'','','Alejandro:\n\n                En tu outlook express o cualquier otro cliente de news:\n\nnews.fivetechsoft.com\n\n                 Ahi tenes los mensajes en modo de solo lectura hasta el 6/10/2005. \n\nSaludos,','',0,'gA==','1wvnvlq0',1,0,'',74,0,0),(1471,367,6,221,0,'201.242.42.77',1131131496,1,0,1,1,1,0,'','','francisco tengo años haciendo puntos de ventas y te recomiendo es que tengas un archivo por cada cuenta pendiente o abierta y al cancelarla las pasas a historico, en mi caso nunca tengo una dbf abierta por lo que no tengo problemas con caidas ni nada por el estilo, eso ya depende de tu metodologia personal, me guistaria me mandaras esos screenshot para verlos','',0,'gA==','3jn0ko0t',1,0,'',221,0,0),(1472,399,2,221,0,'201.242.42.77',1131131814,1,0,1,1,1,0,'','punto decimal y punto millar','como se hace en fivewin para que un numero se vea asi 999.999,99\nes decir el decimal con la coma, porque no entiendo como fivewin siendo origina en la madre patria maneje los numeros a la gringa, gracias','',0,'gA==','2ic9vidq',1,0,'',221,0,0),(1473,399,2,74,0,'201.255.142.20',1131133444,1,0,1,1,1,1,'','','QAZWSX2K:\n\n                   Tenes que usar el PICTURE \'@E 999,999.99\'.\n\nSaludos,','',0,'gA==','z9lwr9pj',1,0,'',74,0,0),(1474,389,3,29,0,'212.171.42.58',1131133909,1,0,1,1,1,0,'','','Yes, it is.\n\nThanks \n\nBest Regards.\n\nMarco','',0,'gA==','2qrkosn0',1,0,'',29,0,0),(1475,311,6,138,0,'201.154.236.172',1131135990,1,0,1,1,1,1,'','','La version actual de FWH 26 es un OLE container, pero no puede procesar eventos delos OCX.','',0,'gA==','1ho5rmvf',1,0,'',138,0,0),(1476,395,6,138,0,'201.154.236.172',1131136121,1,0,1,1,1,1,'','','Necesitarias el ChartFX para 32 bits....\n\nVickthor hizo una clase muy buena para utilizarlos peroooooo.....\n\nSucede que solo funciona con la version de demo, con la version comercial falla, y la gente de Software FX dice que no tiene idea de que pasa y te forzan a comprar una cosa llamada ChartFX Server que cuesta un monton de dinero mas.','',0,'gA==','1qej4r75',1,0,'',138,0,0),(1477,390,6,138,0,'201.154.236.172',1131136282,1,0,1,1,1,1,'','','Hola chavalote:\n\nEs un problema de la FIVEHC.LIB, hubo un cambio en la version 99.5.1 de xHB y se cambio el nombre de la variable HB_STACK, lo que afecta el funcionamiento de la lib de FW.\n\nSugerencia..... regresa a la xHB 99.5 y todo funcionara.\n\nCreo que Antonio ya tenia una solucion lista.','',0,'gA==','20wlg5bj',1,0,'',138,0,0),(1478,392,2,10,0,'212.40.255.188',1131136306,1,0,1,1,1,1,'','','Alejandro:\nPuedes tambien conseguirlas en la siguiente dirección de Patrick Mast:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/general_info.php\">http://www.fivewin.info/html/general_info.php</a><!-- m -->\n\nAhí están todas desde la 1.9.2 hasta la 2.4.\n\nEsperemos que Patrick siga manteniendo a disposición de todos nosotros su riquisima página de consulta y de utilidades y no pase como con <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w --> con su PROMETHEUS, que de la noche a la mañana nos quedamos sin su, igualmene, riquisima aportación en el alojo tanto de su foro como de todas las utilidades que nos sirven, por lo menos a mi, a aprender más sobre Fivewin.\n\nYo por mi parte le he enviado dos correos a su propietario, pero lo único que indica es que la página quedó inhabilitada al no renovarse el hosting o algo así.\n\nAntonio Linares dijo que, cuando dispusiera de los datos de la página <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w -->, la replicaría, pero al tiempo que llevamos la espera puede ser larga... y es una pena que se haya perdido toda esa información. \n\nEn fin, pocos sitios van quedando...\n\nUn saludo y espero que en la dirección que te indico encuentres lo que buscas.','',0,'gA==','1zl7h0zh',1,0,'',10,0,0),(1479,392,2,10,0,'212.40.255.188',1131136435,1,0,1,1,1,1,'','','Alejandro, se me quedó en el tintero:\n\nCreo que no debemos mezclar las opiniones políticas de cada uno en una página dedicada FW.\n\nPara ello hay otros Foros.\n\nEs mi opinión.\n\nSaludos','',0,'gA==','183c8e7z',1,0,'',10,0,0),(1480,390,6,2,0,'80.58.2.107',1131136601,1,0,1,1,1,1,'','','Jesús,\n\nEnvíame un email privado y te enviamos la nueva librería.','',0,'gA==','1y0vaqwc',1,0,'',2,0,0),(1481,311,6,2,0,'80.58.2.107',1131136664,1,0,1,1,1,1,'','','Lautaro,\n\nAún no está implementado. Estamos en ello.','',0,'gA==','3bx05kf5',1,0,'',2,0,0),(1482,341,6,228,0,'200.106.208.201',1131136693,1,0,1,1,1,0,'','antonio ya te coloque la imagen en tu correo','antonio ya te coloque la imagen en tu correo, espero me puedas ayudar.\n\nUn abrazo \n\nLEANDRO ALFONSO','',0,'gA==','3nbomfa1',1,0,'',228,0,0),(1483,341,6,2,0,'80.58.2.107',1131137122,1,0,1,1,1,1,'','','Leandro,\n\nEn la línea 361 de dialog.prg hay esta línea:\n\n  If GetFocus() == ::nResult:hWnd\n\ncámbiala por:\n\n  If ValType( ::nResult:hWnd ) == \"N\" .and. GetFocus() == ::nResult:hWnd\n\nrecompila dialog.prg y enlázalo a tu aplicación como un OBJ más.','',0,'gA==','bvm105q3',1,0,'',2,0,0),(1484,398,6,2,0,'80.58.2.107',1131137329,1,0,1,1,1,1,'','','Angel,\n\nQue build de harbour estás usando ? De que fecha ?','',0,'gA==','2bq36a8s',1,0,'',2,0,0),(1485,398,6,2,0,'80.58.2.107',1131138397,1,0,1,1,1,1,'','','Angel,\n\nCon el build actual de Harbour, este código funciona bien:\n\nfunction Main()\n\n   MsgInfo( \"before\" )\n\n   MsgInfo( 2 / 0 )\n\n   MsgInfo( \"after\" )\n\nreturn nil','',0,'gA==','3d5p660d',1,0,'',2,0,0),(1486,400,3,258,0,'81.240.213.230',1131138875,1,0,1,1,1,0,'','richedit','When i try the richedit samples FWH25 and hit a key from the keyboard\nThe letter appears 2 times on the screen .\nWhat is wrong ?','',0,'gA==','p7mjwzv9',1,0,'',258,0,0),(1487,401,2,10,0,'212.40.255.188',1131139044,1,0,1,1,1,1,'','¿Cómo puedo poner ToolTip a cada item de un Combobox?','Hola a todos, pues eso... aunque me explico:\n\nTengo varios Combobox seguidos en una línea de pantalla definida en RWS, pero en ellos sólo sólo hago que se vean sólo los tres dígitos de cada item, aunque si lo alargara más en el RWS se vería tambien lo que contínua, pero entonces no me cabrían todos los Combobox en la misma línea.\n\nPor ejemplo, cada item tiene el siguiente contenido:\n\n123 - VACACIONES PARA SIEMPRE\n321 - QUE ME TOQUE LA LOTERÍA\n000 - FIN\n\nLa anchura del Combobox sólo la he ajustado a que se vean los tres primeros dígitos, y lo que pretendo es que a medida que con las teclas de cursor se vaya uno moviendo arriba o abajo se vaya viendo el resto del literal del código a través de un ToolTip.\n\nHe estado buscando en la Guía de Comandos si COMBOBOX tuviera la posibilidad de poner ToolTip, pero no figura esta posibilidad (yo por lo menos no la veo ni en los DEFINE ni en los REDEFINE.\n\nHe intentado poner en el REDEFINE un:\n...\n                ON CHANGE (oCbx[23]:ToolTip(\"ESTO ES UNA PRUEBA\"));\n...\n\npero me sale el siguiente error:\n\n   Error description: Error Objects/6  No Exp. Method: TCOMBOBOX:TOOLTIP\n\nStack Calls\n===========\n   Called from TCOMBOBOX:TOOLTIP(0)\n   Called from (b)MAINTRA01(198)\n   Called from TCOMBOBOX:CHANGE(0)\n   Called from (b)TCOMBOBOX(0)\n   Called from (b)TCOMBOBOX(0)\n\n¿Sería posible hacerlo? ¿cómo?\n\nFW+Clipper 5.2e+Blinker\n\nUn saludo.','',0,'','2aqpvy6a',1,0,'',10,0,0),(1488,400,3,6,0,'82.61.68.76',1131140366,1,0,1,1,1,1,'','Re: richedit','From an old message of mine:\n\n------------------------------------------\nIt seems that commenting out\n\n// Super:KeyChar( nKey, nFlags )\n\nfrom KeyChar() method solves the double character bug:\n\n[code:16vr0frd]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TRichEdit\n\n//   Super&#58;KeyChar&#40; nKey, nFlags &#41;\n\n   if &#58;&#58;lReadOnly\n      return 0\n   endif\n\n   &#58;&#58;PostMsg&#40; FM_CHANGE &#41;\n\n   if &#58;&#58;lHighlight\n      &#58;&#58;PostMsg&#40; FM_HIGHLIGHT &#41;\n   endif\n\nreturn nil[/code:16vr0frd]\n\nPlease test it with TESTRTF.PRG.\n\n------------------------------------------\n\nEMG','',0,'AIA=','16vr0frd',1,0,'',6,0,0),(1489,401,2,74,0,'201.255.142.20',1131147212,1,0,1,1,1,1,'','','Canarias:\n\n              No podes hacer oCbx[23]:ToolTip(\"ESTO ES UNA PRUEBA\") porque el combobox no tiene metodo ::Tooltip(). Lo que si tiene es variable de instancia ::cTooltip, por lo que perfectamente podes hacer algo como esto:\n\n 	REDEFINE COMBOBOX oTemporada VAR cTemporada ITEMS aTemporada  ID 111 OF oFld:aDialogs[1] ON CHANGE cTemporada:cTooltip:=cTemporada\n\nSaludos,','',0,'','9zwvghf7',1,0,'',74,0,0),(1490,396,6,72,0,'201.129.63.183',1131148456,1,0,1,1,1,0,'','','Gracias tigre!','',0,'','yypym0zu',1,0,'',72,0,0),(1491,402,6,72,0,'201.129.63.183',1131149439,1,0,1,1,1,0,'','Mensaje de advertencia','Subo mi producto para que lo puedan descargar de la web, pero resulta que al instalarlo aparece un mensaje de advertencia sobre la seguridad del fabricante; esto auyenta a mas de un posible cliente.\n\nAlgún colega sabrá como quitar ese mensaje (Antonio!?).\n\nGracias,\n<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->','',0,'','6zeuxdya',1,0,'',72,0,0),(1492,401,2,10,0,'212.40.255.188',1131151140,1,0,1,1,1,0,'','','Daniel:\n\nMuchas gracias por tu rápida respuesta. Estaba algo perdido por lo que ves. \n\nLo estoy probando ahora pero he tenido que realizar, poniendo tu mismo ejemplo, la siguiente modificación\n\nSegun tu ejemplo:\nREDEFINE COMBOBOX oTemporada VAR cTemporada ITEMS aTemporada ID 111 OF oFld:aDialogs[1] ON CHANGE cTemporada:cTooltip:=cTemporada \n\nPero me daba error, así que el ON CHANGE tuve que cargar a oTemporada la VARiable cTemporada, quedando de esta forma:\nON CHANGE oTemporada:cTooltip:=cTemporada, y ya no me da error.\n\nEl problema ahora es que para que se vea el ToolTip, hay que situar el puntero del ratón en la parte principal del combobox, y aunque vayas cambiandote a través de las teclas de cursor item por item, de los distintos items del combobox desplegado, no se actualiza y siempre mantiene el el primer tooltip que tomó cuando se pudo el ratón sobre la parte principal del Combobox (la parte de arriba), salvo que vayas nuevamente con el ratón y lo sitúes en la parte principal del combobox.\n\nLo que yo pretendo es que moviendote con las teclas de cursor a través del combobox desplegado, se pueda ir viendo los tooltip del contenido literal de los distintos códigos a medida que te mueves por los disintos items del combo desplegado.\n\nEs como cuando estás en el Explorador de Windows, que te vas moviendo con las teclas del cursor por cada uno de los ficheros y te va apareciendo el tooltip con una información sobre el fichero.\n\nLo mismo pido mucho, pero me imagino que esto se podrá hacer... \n\nSiento el \'rollo\'.\n\nUn saludo.','',0,'','22p388yl',1,0,'',10,0,0),(1493,402,6,147,0,'200.68.215.7',1131154049,1,0,1,0,1,1,'','','También suele ocurrir con muchos controladores que se bajan de internet.\nEn algunos se pude leer: \"En caso de que en la instalacion apasrezca el mensaje.... pulse en Continuar.\nO sea lo podrías incluir en tu página\n\nsaludos','',0,'','mc4ucy5t',1,0,'',147,0,0),(1494,401,2,74,0,'201.255.142.20',1131154433,1,0,1,1,1,1,'','','Canarias:\n\n               Ahi ya se complica, porque el tooltip esta asociado al movimiento del mouse sobre el control. La unica forma seria si se pudiera forzar el repintado del tooltip y que este permanezca activo aun cuando el mouse no este sobre el combo. Estuve haciendo algunos intentos pero no tuve exito.\n\n               De todas maneras, porque queres usar si o si los combobox achicados en su ancho, porque no usas gets o los combobox con el ancho necesario, cuantos controles tenes en el dialogo ?.\n\nSaludos,','',0,'','14pvy5ci',1,0,'',74,0,0),(1495,395,6,15,0,'203.73.90.90',1131156768,1,0,1,1,1,0,'','Re: CHARTFX  - FWH','[quote=&quot;Miguel_laffont&quot;:3sgcm3tq]Quizas alguien pueda orientarme:\nTengo un programa que usa chart2fx.vbx pero en la version de Fivewin para Clipper, el problema es que ahora necesito compilarlo con Harbour y FwH 2.4, el problema es que no puedo, alguien tiene un ejemplo de usar chartfx con harbour ?[/quote:3sgcm3tq]\n\nHello\n\nI can sale 32bit ChartFx.You want LIB or full source code version?\n\nRegards,\n\nRichard','',0,'gA==','3sgcm3tq',1,0,'',15,0,0),(1496,401,2,10,0,'212.40.255.188',1131160558,1,0,1,1,1,0,'','','Daniel:\n\nAgradecidisimo de nuevo por contestarme.\n\nLa pantalla ya se encuentra diseñada, validada y aprobada, pero tenemos el problema que se tienen que visualizar en el combo aproximadamente unos 30 items en cada combobox (son 10 combos pero hay muchos más datos que se traen de una BD.\n\nPor ahora no tenemos previsto realizar un nuevo cambio del diseño de pantalla, pues requeriría nuevamente reunir a 9 usuarios y se puee eternizar el tema.\n\nSeguiré viendo como díablos puedo obtenerlo, aunque mis conocimientos no son muchos si hay que meterse en POO.\n\nPor otro lado, el tooltip se me queda detrás del Combo abierto y no se alinea con la parte derecha del final del literal del combobox.\n\nMe imagino que \'machacando\' podrá salir, o bien que ya le haya pasado a alguien más y quiera compartir la solución a este tema.\n\nEn fin, paciencia... \n\nUn saludo.','',0,'gA==','34s9ju2t',1,0,'',10,0,0),(1497,402,6,138,0,'201.154.236.172',1131161011,1,0,1,1,1,1,'','','No tiene que ver nada con FWH, es una alerta del sistema operativo Windows','',0,'gA==','2b4h6oc3',1,0,'',138,0,0),(1498,402,6,72,0,'201.154.198.122',1131163700,1,0,1,1,1,0,'','','Si en efecto es una trampa del M$, imagino que algún registro se almacena una propiedad de descarga, toda vez que el tamaño del archivo es el mismo y aunque se copie o remombre la propiedad permanece. \n\nJugando he visto que si se mueve a otro directorio con otro nombre si se pierde esa madre.\n\nEspero y logremos evitar ese ...\n\nSaudos.','',0,'gA==','18ws4ndx',1,0,'',72,0,0),(1499,403,6,52,0,'201.235.155.110',1131166488,1,0,0,0,1,0,'','errsysw','Amigos tube que incluir el archivo errsysw.prg en mis proyectos para que reporte los errores de ejecución, se puede hacer algo para que no tenga que incluirlos en todos mis proyectos? gracias.','',0,'gA==','2ehijcgs',1,0,'',52,0,0),(1500,94,6,72,0,'201.154.198.122',1131169493,1,0,1,1,1,0,'','','Por fin tengo unservicio normal!!!\n\n... y como más de un colega me la solicita les dejo la dirección: <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/tgraph.zip\">http://www.despachoarteaga.com.mx/tgraph.zip</a><!-- m --> (funciona en FW, FWH y FWC3).\n\nAntonio, hay algunos pequeños ajustes adicionales a los que tiene la clase incluida en FiveWin tal vez sea conveniente integrar esta actualización.\n\nSaludos.','',0,'gA==','32l95sce',1,0,'',72,0,0),(1501,402,6,45,0,'200.82.59.202',1131174661,1,0,1,1,1,0,'','','[quote=&quot;Alfredo Arteaga&quot;:1lous7zv]Si en efecto es una trampa del M$, imagino que algún registro se almacena una propiedad de descarga, toda vez que el tamaño del archivo es el mismo y aunque se copie o remombre la propiedad permanece. \n\nJugando he visto que si se mueve a otro directorio con otro nombre si se pierde esa madre.\n\nEspero y logremos evitar ese ...\n\nSaudos.[/quote:1lous7zv]\n\nMmmm me temo que debe haber alguna trampilla, para incorporar en el recurso que haga reconocer como software firmado digitalmente y que no salga ese mensaje. Habra que investigar.','',0,'gA==','1lous7zv',1,0,'',45,0,0),(1502,94,6,2,0,'80.58.2.107',1131175224,1,0,1,1,1,1,'','','Alfredo,\n\nVamos a actualizar tu clase incluida en FWH. Muchas gracias!','',0,'gA==','34pl2215',1,0,'',2,0,0),(1503,398,6,2,0,'80.58.2.107',1131175386,1,0,1,1,1,1,'','','Lo que se está discutiendo ahora en la lista de desarrollo de Harbour es porque 2 / 0 = 0, cuando en realidad debiera ser infinito, y por lo tanto generar un error, ó un aviso.','',0,'gA==','csna0lkw',1,0,'',2,0,0),(1504,403,6,2,0,'80.58.2.107',1131175466,1,0,1,1,1,1,'','','Debería incluirse automaticamente. Prueba el ejemplo samples\\TestErro.prg','',0,'gA==','3tkz2w9b',1,0,'',2,0,0),(1505,391,2,2,0,'80.58.2.107',1131175730,1,0,1,1,1,1,'','','No se ve ninguna línea en rojo...','',0,'gA==','bz2w4y9h',1,0,'',2,0,0),(1506,403,6,52,0,'201.235.155.110',1131176047,1,0,0,0,1,0,'','Hay algo que no entiendo','[quote=&quot;Antonio Linares&quot;]Debería incluirse automaticamente. Prueba el ejemplo samples\\TestErro.prg[/quote]\n\nAntonio, a ver si no entiendo mal este parche o programa como quieramos decirle se debe agregar? si es asi lo estoy haciendo, o sea agrego ese archivo a mis proyectos., mi pregunta iva dirijida y se puede hacer algo para no tener que incluirlo cada vez a mis proyectos.','',0,'gA==','2zekbf8j',1,0,'',52,0,0),(1507,396,6,75,0,'83.43.116.78',1131177727,1,0,1,1,1,0,'','','¿ Es compatible con la versión de xHarbour par fw2.4, o me quedo con el Verce que tengo actualmente ?.','',0,'gA==','2cbp0c63',1,0,'',75,0,0),(1508,403,6,2,0,'80.58.2.107',1131178948,1,0,1,1,1,1,'','','Gustavo,\n\nY si se produce un error y no tienes gestor de errores, que pasaría ?','',0,'gA==','1w9h6l35',1,0,'',2,0,0),(1509,193,6,75,0,'83.43.116.78',1131179287,1,0,1,1,1,0,'','','Pues si esto es lo que quiero, usar solo el Pelles C. Pero no se que es lo que produce el comportamiento anómalo del Pelles C al importar los recursos realizados con el WS que he descrito y por esto tengo que seguir usando el WS.\n\nA ver si a alguien se le ocurre una idea de cual puede ser el error. Porque lo que no me voy a poner a hacer es a volver a repetir cada uno de los recursos desde cero ahora con el Pelles C. Es repetir el trabajo.','',0,'gA==','2ivqrddy',1,0,'',75,0,0),(1510,193,6,21,0,'212.183.207.221',1131181929,1,0,1,1,1,1,'','','Hola:\n\nYo importe todos mis recursos de WS hacia Pelles y No tuve ningún problema (exceptuando cosillas de recursos propios)\n\nLo que si hice fue grabar el recurso en formato RC y eso lo abrí con Pelles.\n\nComprueba en los dialogos que:\n  no tengas ninguna llamada a Borland.\n  si usas btnbmp, como estan definidos los botones. En pelles para usar btnbmp tendrá que estar así (bueno cambiando tamaños)\n[code:dqgoiwji]CONTROL &quot;&quot;, 202, &quot;TBtnBmp&quot;, 0x00000000, 21, 0, 15, 15[/code:dqgoiwji]\n  si usas tsbrowse, controla como esta definido,\n[code:dqgoiwji]CONTROL &quot;&quot;, 162, &quot;TsBrowse&quot;, WS_TABSTOP|0x00800000, 0, 18, 524, 160[/code:dqgoiwji]\n  comprueba las líneas estáticas que usas para separar controles,\n[code:dqgoiwji]CONTROL &quot;&quot;, 801, &quot;Static&quot;, SS_ETCHEDFRAME, 2, 16, 528, 1[/code:dqgoiwji]','',0,'AIA=','dqgoiwji',1,1133219363,'',21,2,0),(1511,404,1,204,0,'87.202.108.130',1131188549,1,0,1,1,1,0,'','Error Objects/6','I’m trying to brows a multidimensional array. I have seen the testarr?.prg files and have implemented the one in testarr5.prg. The problem is I get an error that I can’t find why.\n\nError.log\n[code:2oax7yh3]\nApplication\n===========\n   Path and name&#58; C&#58;\\APP\\WIFT\\WIFT&#46;EXE &#40;16 bits&#41;\n   Size&#58;   367,744 bytes\n   Max files handles permited&#58; &#40; SetHandleCount&#40;&#41; &#41; 255\n   Time from start&#58; 0 hours 0 mins 5 secs \n   Error occurred at&#58; 05/11/2005, 12&#58;41&#58;29\n   Error description&#58; Error Objects/6  No Exp&#46; Method&#58; TWBROWSE&#58;DEFCONTROL\n\nStack Calls\n===========\n   Called from TWBROWSE&#58;DEFCONTROL&#40;0&#41;\n   Called from TBUTTON&#58;NEW&#40;0&#41;\n   Called from IFT_STATS&#40;152&#41;\n   Called from &#40;b&#41;BUILDMENU&#40;27&#41;\n   Called from TMENU&#58;COMMAND&#40;0&#41;\n   Called from TMDIFRAME&#58;COMMAND&#40;0&#41;\n   Called from TMDIFRAME&#58;COMMAND&#40;0&#41;\n   Called from TMDIFRAME&#58;HANDLEEVEN&#40;0&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from MAIN&#40;28&#41;\n\nSystem\n======\n   CPU type&#58; Pentium\n   Hardware memory&#58; 1536 megs\n\n   Free System resources&#58; 90 %\n        GDI    resources&#58; 90 %\n        User   resources&#58; 90 %\n\n   Compiler version&#58; Clipper &#40;R&#41; 5&#46;2e Intl&#46; &#40;x216&#41;  &#40;1995&#46;02&#46;07&#41;\n   Windows and MsDos versions&#58; 3&#46;95, 5&#46;0\n\n   Windows total applications running&#58; 4\n      1 C&#58;\\WINDOWS\\SYSTEM32\\USER&#46;EXE\n      2 C&#58;\\APP\\WIFT\\WIFT&#46;EXE\n      3 C&#58;\\WINDOWS\\SYSTEM32\\MMSYSTEM&#46;DLL\n      4 C&#58;\\WINDOWS\\SYSTEM32\\WOWEXEC&#46;EXE\n\nClasses in use&#58;\n===============\n     1 TFONT\n     2 TWINDOW\n     3 TCONTROL\n     4 TICON\n     5 TBRUSH\n     6 TMDIFRAME\n     7 TMENU\n     8 TMENUITEM\n     9 TMDICLIENT\n    10 TMSGBAR\n    11 TRECT\n    12 TMSGITEM\n    13 TTIMER\n    14 TDIALOG\n    15 TBITMAP\n    16 TSAY\n    17 TGET\n    18 GET\n    19 TBUTTON\n    20 TMDICHILD\n    21 TMETER\n    22 TACCTABLE\n    23 TWBROWSE\n    24 TSCROLLBAR\n    25 ERROR\n    26 TSTRUCT\n\nMemory Analysis\n===============\n   Static memory&#58;\n      data segment&#58; 64k\n      Initial size&#58;       30560 bytes  &#40;SYMP=32, Stack=9504, Heap=2056&#41;\n      PRG Stack&#58;          34303 bytes\n      48 Static variables&#58; 672 bytes\n\n   Dynamic memory consume&#58;\n      Actual  Value&#58;    1273527 bytes\n      Highest Value&#58;    1280695 bytes\n\n[/code:2oax7yh3]\n\nProcedure IFT_Stats()\n[code:2oax7yh3]\nPROCEDURE IFT_Stats&#40;&#41;\n  LOCAL nRecNo &#58;= RECNO&#40;&#41;,;\n        nIndexOrd &#58;= INDEXORD&#40;&#41;,;\n        nEkdo,;\n        nMiEkdo,;\n        nEkP,;\n        nMiKeP\n        \n        \n  PRIVATE nCounter, cMemoTxt, oStats, oStBrw, aTxtLines &#58;= &#123;&#125;\n\n  oBrwsWin&#58;Disable&#40;&#41;\n\n  COUNT TO nEkdo FOR BitOn&#40;ADI_LOG,1&#41;\n  COUNT TO nMiEkdo FOR BitOff&#40;ADI_LOG,1&#41;\n  nEkp &#58;= STR&#40;&#40;&#40;nEkdo/RECNO&#40;&#41;&#41;*100&#41;,5,2&#41;\n  nMiEkp &#58;= STR&#40;&#40;&#40;nMiEkdo/RECNO&#40;&#41;&#41;*100&#41;,5,2&#41;\n\n\n  AADD&#40;aTxtLines, &#123;&quot;Çìåñïìçíßá     &#58; &quot;, DTOC&#40;DATE&#40;&#41;&#41;,&quot;&quot;&#125;&#41;\n  AADD&#40;aTxtLines, &#123;&quot;Óõíïëï ÖáêÝëùí &#58; &quot;, STRZERO&#40;RECNO&#40;&#41;,5,0&#41;,&quot;&quot;&#125;&#41;\n  AADD&#40;aTxtLines, &#123;&quot;Åêäïìåíåò      &#58; &quot;, STRZERO&#40;nEkdo,5,0&#41;, nEkp + &quot;%&quot; + IIF&#40;FOLDER-&gt;&#40;ORDBAGNAME&#40;&#41;&#41; = &quot;IFT_BAG3&#46;CDX&quot;,&quot; Óôï ôñÝ÷ïí öéëôñï&quot;,&quot;&quot;&#41;&#125;&#41;\n  AADD&#40;aTxtLines, &#123;&quot;Ìç Åêäïìåíåò   &#58; &quot;, STRZERO&#40;nMiEkdo,5,0&#41;, nMiEkp + &quot;%&quot; + IIF&#40;FOLDER-&gt;&#40;ORDBAGNAME&#40;&#41;&#41; = &quot;IFT_BAG3&#46;CDX&quot;,&quot; Óôï ôñÝ÷ïí öéëôñï&quot;,&quot;&quot;&#41;&#125;&#41;\n\n  IF FOLDER-&gt;&#40;ORDBAGNAME&#40;&#41;&#41; = &quot;IFT_BAG3&#46;CDX&quot; &#46;AND&#46; !lHreFlt\n    AADD&#40;aTxtLines, &#123;&quot;&quot;,&quot;&quot;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;Åíåñãï Öéëôñï   &quot;,&quot;&quot;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;Ãéá ôï/ôçí     &#58; &quot;, aFltLst1&#91;1,2&#93;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;áðï &#58; &quot;, aFltLst1&#91;1,1&#93;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;åùò &#58; &quot;, aFltLst1&#91;3,1&#93;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;Ãéá ôï åôïò    &#58;&quot;,&quot; áðï &quot;+ aFltLst1&#91;2,1&#93;, &quot;åùò &quot; + aFltLst1&#91;4,1&#93;&#125;&#41;\n  ENDIF\n\n  IF lHreFlt\n    AADD&#40;aTxtLines, &#123;&quot;&quot;,&quot;&quot;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;Åíåñãï Öéëôñï Õðáëëçëïõ  &quot;,&quot;&quot;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;Ïíïìá           &#58; &quot;, aFltLst1&#91;7,2&#93;,&quot;&quot;&#125;&#41;\n    AADD&#40;aTxtLines, &#123;&quot;Ãéá ôï äéÜóôçìá &#58; &quot;, ALLTRIM&#40;aFltLst1&#91;7,4&#93;&#41; + &quot; &quot; + aFltLst1&#91;7,1&#93;,&quot;&quot;&#125;&#41;\n  ENDIF\n\n  nCounter &#58;= 1\n\n  DEFINE DIALOG oStats;\n    FROM 5,5 TO 20,70;\n    TITLE OemToAnsi&#40;&quot;ÁíáöïñÜ óõóôÞìáôïò&quot;&#41;;\n    OF oBrwsWin\n\n  @0&#46;3, 0&#46;3 LISTBOX oStBrw OF oStats;\n    FIELDS aTxtLines&#91;nCounter,1&#93;, aTxtLines&#91;nCounter,2&#93;, aTxtLines&#91;nCounter,3&#93;;\n    SIZE 490,180 COLOR CLR_BLACK,CLR_WHITE\n  \n    oStBrw&#58;bGoTop &#58;= &#123;|| nCounter &#58;= 1&#125;\n    oStBrw&#58;bGoBottom &#58;= &#123;|| nCounter &#58;= EVAL&#40;oStBrw&#58;bLogicLen&#41;&#125;\n    oStBrw&#58;bSkip &#58;= &#123;|nWant, nOld| nOld &#58;= nCounter, nCounter += nWant, nCounter &#58;= MAX&#40;1, MIN&#40; nCounter, EVAL&#40;oStBrw&#58;bLogicLen&#41;&#41;&#41;, nCounter - nOld&#125;\n    oStBrw&#58;bLogicLen &#58;= &#123;|| LEN&#40;aTxtLines&#41;&#125;\n    oStBrw&#58;cAlias &#58;= &quot;Array&quot;\n\n// next line is 152\n    @10,15 BUTTON OemToAnsi&#40;&quot;ÅíôÜîåé&quot;&#41; OF oStats ACTION &#40;oStats&#58;End&#40;&#41;&#41; SIZE 80,30\n    \n    SET FONT OF oStats TO oMainFont\n  ACTIVATE DIALOG oStats ON INIT &#40;oStats&#58;SetColor&#40; CLR_BLACK, CLR_HGRAY&#41;&#41; CENTER\n\n  DBGOTO&#40;nRecNo&#41;\n  oBrwsWin&#58;Enable&#40;&#41;\n  oBrwsWin&#58;aControls&#91;1&#93;&#58;setfocus&#40;&#41;\nRETURN\n[/code:2oax7yh3]\n\nI’ve tried moving the LISTBOX and all the oo calls into a separate procedure and run it with the ON INIT clause. Now one of 2 things happens then.\na) With the button the dialog displays, when you press the button the LISTBOX disappears but the dialog stays. It goes away only with the X box, the button is still there but nothing happens when you press it again.\nb) The dialog box doesn’t show at all.\n\nWhen I quote out the button line I get the dialog box (the LISTBOX is in the DEFINE DIALOG – ACTIVATE DIALOG loop)\nWhat am I doing wrong I followed the coding of the testarr5.prg, which works fine when run. I’ll need to use this technique a couple more times in the app.\nThanks','',0,'AIA=','2oax7yh3',1,0,'',204,0,0),(1512,405,2,254,0,'201.133.187.210',1131191526,1,0,1,1,1,1,'','Impresión en red de tickets con FW en Windows 98 2E.','Hola amigos.\n\nUso una pequeña red de dos PC (a través de un switch) como puntos de venta.  Instalé con el driver correspondiente una impresora Star Micronics DP8340 en la PC que funge como servidor, y posteriormente instalé el driver en la PC que funciona como estación de trabajo, asignando dicha impresora en ambos lugares en LPT1 como predeterminada.  La impresión en el servidor es inmediata, pero en la estación de trabajo demora 60 segundos exactamente en iniciarse.  Cuando trabajaba en MS-DOS y usaba Lantastic 6.0 esto se resolvía a través de \"despooling inmediato\", pero en W98 2E no he encontrado la forma de arreglarlo, ya probé cambiando las opciones de configuración de la cola de impresión en ambos equipos, pero no obtengo resultados.  Por favor alguien que haya resuelto este problema me puede ayudar ?.','',0,'AIA=','v7mjv1nw',1,0,'',254,0,0),(1513,406,2,254,0,'201.133.187.210',1131192214,1,0,1,1,1,1,'','Rene: Como me cambio a (x)Harbour.','Hace algunos años con la asistencia de RF compré en google un paquete de Five Win (2.1). Observo en los comentarios del foro, que todo ha cambiado y que \"las aplicaciones de 16 bits estan muertas\".  Por favor Rene, me puedes ayudar de nuevo a migrar a 32 bits indicandome que necesito comprar y como puedo abordar este cambio?\n\nGracias.','',0,'AIA=','1g3ubv6q',1,0,'',254,0,0),(1514,407,3,160,0,'210.212.142.6',1131195247,1,0,1,1,1,0,'','Sample Multi-Item Selecting ListBox','Hello,\n\nCan anybody supply me multi-item selecting listbox. There was mention about this by James Bott. But private mail to him bounces back. So I am trying in this forum.\n\nAny suggestion for multi-item selection is welcome. I prefer to use standard controls provided by FWH.\n\nThanks,\n\nMilan.','',0,'AIA=','1b4bl9xs',1,0,'',160,0,0),(1515,408,3,160,0,'210.212.142.6',1131195485,1,0,1,1,1,0,'','PDF Creating Open Source Tool : PDFCreator','Hi All,\n\nI saw a previous thread discussing PDF Creating tool working as Printer Driver. Here is one that is open source and free tool. Evan search on google will also lead it there. I am quite happy using it !\n\nYou may visit : <!-- m --><a class=\"postlink\" href=\"http://sector7g.wurzel6.de\">http://sector7g.wurzel6.de</a><!-- m -->\n\nPrivate mail to Reinaldo and James bounced back. So I am putting it here.\n\nThanks,\n\nMilan.','',0,'AIA=','w5jm432a',1,0,'',160,0,0),(1516,406,2,2,0,'80.58.2.107',1131199253,1,0,1,1,1,1,'','','rramonell,\n\nLos usuarios de FW para Clipper han migrado mayoritariamente a nuestro producto FWH (FiveWin para Harbour).\n\nMás información en <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m -->\n\nSólo precisas comprar FWH, ya que tanto Harbour como xHarbour son gratuitos.\n\nTu código es totalmente compatible, por lo que no tienes que volver a programar tu aplicación.','',0,'AIA=','14j5j7ky',1,0,'',2,0,0),(1517,404,1,2,0,'80.58.2.107',1131199750,1,0,1,1,1,1,'','','Kronos,\n\nPlease generate the PPO file and check what you get for:\n\n    @10,15 BUTTON OemToAnsi(\"ÅíôÜîåé\") OF oStats ACTION (oStats:End()) SIZE 80,30','',0,'AIA=','bd22c2gm',1,0,'',2,0,0),(1518,402,6,72,0,'201.154.198.122',1131202194,1,0,1,1,1,0,'','','Ahí en las news.jrsoftware.org, jrsofware.innosetup está el mensaje Digital Signature del 02/11/2005; espero y algún colega me lo traduzca al cristiano.','',0,'AIA=','1871xfp8',1,0,'',72,0,0),(1519,384,3,67,0,'83.134.49.14',1131203339,1,0,1,1,1,0,'','','Antonio\n\nI am using a debugging tool , and got as information : \n\n00690063 605cba00 605cb800 605cb600 605cb400 henfwxcc!ARRNEDMAAND+0xd093\n\nI have no idea how to use it , i know only that ARRNEDMAAND is not a procedure or function , it is a global var , but it has nothing to do with the indexexpression or with the index process.\n\nWhat should i search in the map file ?\n\nFrank','',0,'AIA=','179j250y',1,0,'',67,0,0),(1520,344,18,137,0,'85.20.218.173',1131203924,1,0,1,1,1,0,'','','Thx Antonio,\n\nI tried it by myself with no luck after 4 hours.  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  (I\'m curious how XChangeProc works)\n\nNow I\'m trying with non client area painting. I hope to find a trick for this problem.\n\nRegards,\nRoberto Parisi','',0,'AIA=','hnppm8fe',1,0,'',137,0,0),(1521,193,6,131,0,'81.44.65.116',1131205816,1,0,1,1,1,0,'','','Uno de los problemas de PellesC es que cuando pones un custom control no hay manera de cambiar el nombre de la clase. En estos casos abres el RC a mano con un editor como el MED y buscas el dialogo y le cambias el nombre de la clase. Por cosas como estas merece la pena trabajar con RC y montar el RES cuando vas a compilar el programa.\nLo teneis explicado en mi blog.\nSaludos,','',0,'AIA=','3cpc3mi9',1,0,'',131,0,0),(1522,384,3,2,0,'80.58.2.107',1131205971,1,0,1,1,1,1,'','','Frank,\n\nWrite down the GPF address that Windows provides, then search it into the MAP file.','',0,'AIA=','2bqimpe1',1,0,'',2,0,0),(1523,402,6,2,0,'80.58.2.107',1131206641,1,0,1,1,1,1,'','','Alfredo,\n\nPor lo que acabo de leer en: <!-- m --><a class=\"postlink\" href=\"http://www.kylealons.com/Articles/codesigning.html\">http://www.kylealons.com/Articles/codesigning.html</a><!-- m --> , el proceso es bastante complejo e implica comprar un certificado y todo.\n\nEste problema SOLO aparece si se descarga un EXE desde Internet y se intenta ejecutar. La solución sería que se descargue un fichero ZIP y luego se descomprima y se ejecute. Entonces no se solicitaría el certificado.\n\nPor lo visto este requerimiento del certificado se ha impuesto desde el SP2 de XP.','',0,'AIA=','3l9aq76o',1,0,'',2,0,0),(1524,311,6,39,0,'201.220.111.11',1131206650,1,0,1,1,1,0,'','Gracias por sus respuestas','Gracias a todos por sus respuestas, \n\nSeguire buscando \n\nAtte,\nLautaro','',0,'AIA=','38dt1uiq',1,0,'',39,0,0),(1525,344,18,2,0,'80.58.2.107',1131206837,1,0,1,1,1,1,'','','Roberto,\n\nWe keep trying it here, so hopefully we may find a solution for it.','',0,'AIA=','2gn3ciwk',1,0,'',2,0,0),(1526,403,6,52,0,'201.235.155.110',1131210752,1,0,0,0,1,0,'','','[quote=&quot;Antonio Linares&quot;]Gustavo,\n\nY si se produce un error y no tienes gestor de errores, que pasaría ?[/quote]\nAntonio:\n\nUsando solo el FIvewin cuando se producia un error saltaba en pantalla el error y en que linea se producia.\n\nMi pregunta esta AHORA referida al FWH con el xHarbour, que est error no salta y me dijeron que sumara ese archivo para que realice esta operación, mi pregunta es: hay alguna forma para que no tenga que esta incluyendo este archivo a todas mis aplicaciones?\n\nEspero que me hayas entendido.','',0,'AIA=','3ca5txr0',1,0,'',52,0,0),(1527,402,6,72,0,'201.135.231.144',1131211385,1,0,1,1,1,0,'','','Gracias Antonio. Algo así había entendido, pero pensé que podría existir alguna opción más simple.\n\nSaludos.','',0,'AIA=','pzkzk186',1,0,'',72,0,0),(1528,409,2,78,0,'200.121.194.92',1131211587,1,0,1,1,1,0,'','Lectura de puerto RD232 en WinXP / Win2000','Hola Amigos.\nNo se puede leer los puertos RS232 en Win32, alguno de uds, tiene la lib HBCOMM actualizada ??  o alguna otra que funciones en Win32.\n\nGracias Mil.\n\nSaludos\nWilli','',0,'AIA=','f7zcmo7t',1,0,'',78,0,0),(1529,410,6,78,0,'200.121.194.92',1131211653,1,0,1,1,1,0,'','Lectura del puerto RS232 en WinXP / Win2000','Hola Amigos.\nNo se puede leer los puertos RS232 en Win32, alguno de uds, tiene la lib HBCOMM actualizada ??  o alguna otra que funciones en Win32.\n\nGracias Mil.\n\nSaludos\nWilli','',0,'AIA=','7fu1ohbi',1,0,'',78,0,0),(1530,402,6,138,0,'201.154.236.172',1131222407,1,0,1,1,1,1,'','','[quote=&quot;Alfredo Arteaga&quot;:12drpq1a]Gracias Antonio. Algo así había entendido, pero pensé que podría existir alguna opción más simple.\n\nSaludos.[/quote:12drpq1a]\n\nSi la hay.... cambiate a FireFox y deja el Explorer..... (es una broma).','',0,'gA==','12drpq1a',1,0,'',138,0,0),(1531,411,6,10,0,'212.40.255.188',1131222490,1,0,1,1,1,0,'','Es posile utilizar índices SixDriver 6.2 en FWH+(x)Harbour?','Hola a tod@os.\n\nActualmente utilizo FW+Clipper 5.2e+Blinker 7+SixDriver 6.2 y me estoy pensando pasar a FWH, ya que según A.Linares no hay que hacer ningún cambio en el código de lo desarrollado en FW al pasar a FWH.\n\nPero me surje una duda en cuanto a los índices que utilizo (hasta ahora no he tenido problemas con ellos y \'vuelan\'), pues no sé si son compatibles con (x)Harbour.\n\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> ¿se pueden seguir utilizando los índices SixDriver que actualmente utilizo en mis aplicaciones FW? Si no es así ¿hay posibilidad de actualizarlos para seguir trabajando con ellos?.\n\nSi no fuera así, los índices de (x)Harbour (me imagino CDX) ¿son sólidos y estables?\n\nHe leido que dependiendo la versión de FWH se requiere una determinada versión de (x)Harbour. ¿Quiere esto decir que si se actualiza (x)Harbour hay que actualizar FWH? Pues (x)Harbour es gratuito (por ahora) pero FWH requiere pago para su actualización, con lo cual cualquier progreso en (x)Harbour requiere pago de la actualización de FWH.\n\nEspero me puedan dar un consejo, pues \'me estoy comiendo el coco\' y si bien lo que realizo lo hago por hobby y sin animo de lucro (por eso sigo en la \'prehistoria\' de los 16 bits), quisiera aprovechar la potencia de los 32 bits y evitar las limitaciones que parece ser tiene Clipper con respecto a (x)Harbour.\n\nUn saludo.','',0,'gA==','2a2aexmj',1,0,'',10,0,0),(1532,406,2,138,0,'201.154.236.172',1131222567,1,0,1,1,1,1,'','Re: Rene: Como me cambio a (x)Harbour.','[quote=&quot;rramonell&quot;:2ielqe1r]Hace algunos años con la asistencia de RF compré en google un paquete de Five Win (2.1). Observo en los comentarios del foro, que todo ha cambiado y que \"las aplicaciones de 16 bits estan muertas\".  Por favor Rene, me puedes ayudar de nuevo a migrar a 32 bits indicandome que necesito comprar y como puedo abordar este cambio?\n\nGracias.[/quote:2ielqe1r]\n\nComo dice Antonio el paso es super facil, nosotros hemos desarrollado una documentacion en la que paso a paso te explicamos lo que necesitas, de donde obtenerlo y como configurarlo. Esta documentacion la entregamos sin costo a nuestros clientes cuanod compran su FWH.\n\nContactame y platicamos.','',0,'gA==','2ielqe1r',1,0,'',138,0,0),(1533,412,3,49,0,'82.53.118.226',1131224479,1,0,1,1,1,0,'','MDB files','I use Mdb file using TOdbc()\noDbf := TDbOdbcDirect():new( \"SELECT * FROM prodotti\" , oOdbc)\nI use a listbox to show all the record \nNow I must create  the insert operation or modify or delete \nI know How can I make it with dbf but I Not Know How can I make with Mdb\nHelp Me please\n\nRegards\nsilvio','',0,'gA==','2s4ymj9b',1,0,'',49,0,0),(1534,408,3,49,0,'82.53.118.226',1131224596,1,0,1,1,1,0,'','','there is a Pdf Classs For Xharbour/harbour/clipper/fivewin \nIt run ok','',0,'gA==','2am42j2v',1,0,'',49,0,0),(1535,402,6,72,0,'201.135.231.144',1131225841,1,0,1,1,1,0,'','','... bueno, le pediré a los 1,500 usuarios y a los 20,000 posibles que sigan la sugerencia en tanto descubrimos el secreto.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com\">www.despachoarteaga.com</a><!-- w -->','',0,'gA==','2opu2swt',1,0,'',72,0,0),(1536,404,1,204,0,'83.235.232.222',1131227232,1,0,1,1,1,0,'','','PPO output for that line is\n[code:21lsc8co]\nTButton&#40;&#41;&#58;New&#40; 10, 15, OemToAnsi&#40;&quot;„¤«&#945;¥œ &quot;&#41;, oStats, &#123;|| &#40;oStats&#58;End&#40;&#41;&#41;&#125;, 80, 30,,, &#46;F&#46;, &#46;F&#46;, &#46;F&#46;,, &#46;F&#46;,,, &#46;F&#46; &#41;[/code:21lsc8co]\nSame error even without the () around the oStats:End() command','',0,'AIA=','21lsc8co',1,0,'',204,0,0),(1537,412,3,8,0,'213.45.245.138',1131230654,1,0,1,1,1,0,'','','Hi Silvio, try to take a look at FiveODBC guide and at the sample testsql1.prg in samples \"testsql\" folder. It use the built in browse function to manage the table ! I test it same time ago.\nCiao, Roberto.','',0,'AIA=','332jhmp2',1,0,'',8,0,0),(1538,404,1,204,0,'87.202.94.254',1131239014,1,0,1,1,1,0,'','','Ok I found the error. The pre processor is a picky SOB.\nChanging this\n[code:1690oeaa]\n@0&#46;3, 0&#46;3 LISTBOX oStBrw OF oStats; \n    FIELDS aTxtLines&#91;nCounter,1&#93;, aTxtLines&#91;nCounter,2&#93;, aTxtLines&#91;nCounter,3&#93;; \n    SIZE 490,180 COLOR CLR_BLACK,CLR_WHITE\n[/code:1690oeaa]\nInto this\n[code:1690oeaa]\n@0&#46;3, 0&#46;3 LISTBOX oStBrw; \n    FIELDS aTxtLines&#91;nCounter,1&#93;, aTxtLines&#91;nCounter,2&#93;, aTxtLines&#91;nCounter,3&#93;; \n    SIZE 490,180 COLOR CLR_BLACK,CLR_WHITE OF oStats\n[/code:1690oeaa]\nSolved all the problems. You say what gives hu. Well the PPO output for that line (not the error line as in the log but 5 lines up) was\n[code:1690oeaa]oStBrw &#58;= OF &#58;= oStats &#58;= TWBrowse&#40;&#41;&#58;New&#40;…&#46;&#41;[/code:1690oeaa]\ninstead of \n[code:1690oeaa]oStBrw &#58;= TWBrowse&#40;&#41;&#58;New&#40;…&#46;&#41;[/code:1690oeaa]\nAnd I thought that the pre processor was smarter than that.','',0,'AIA=','1690oeaa',1,0,'',204,0,0),(1539,413,6,52,0,'201.235.155.110',1131241247,1,0,0,0,1,0,'','Rmake y la Tsbrowser','Amigos:\n\nQuise compilar la version 7 de la tsbrowser de mercado y me tira el error 7 del rMake dicho error, dice la ayuda es porque UNA SOLA CADENA DE MAKE SOBREPASA LOS 1024 BYTES.\n\nComo soluciono este problema, alguien tiene el proyecto de xMAte para esta libreria? gracias.','',0,'AIA=','1egju5r5',1,0,'',52,0,0),(1540,411,6,10,0,'212.40.255.188',1131247870,1,0,1,1,1,0,'','','Disculpen, quise decir SixDriver 3.02','',0,'AIA=','2nvwpyrs',1,0,'',10,0,0),(1541,403,6,2,0,'80.58.2.107',1131252521,1,0,1,1,1,1,'','','Prueba el ejemplo samples\\TestErro.prg.\n\nDebería saltar el gestor de errores automaticamente, ó posiblemente estés usando las librerías en un orden equivocado.','',0,'AIA=','1wcsuouk',1,0,'',2,0,0),(1542,411,6,2,0,'80.58.2.107',1131252830,1,0,1,1,1,1,'','','Existe un RDD Six Driver para xharbour pero es de pago (xharbour.com).\n\nLos índices CDXs de Harbour/xharbour son totalmente estables, con lo que podrías usar los que tienen de forma gratuita.\n\nCuando Harbour ó xharbour se actualizan, no es preciso usar una actualización de FWH, salvo que el cambio sea de pcode, ó de algún componente interno que precise de un cambio interno en FWH. En toda la historia de Harbour/xHarbour/FWH, sólo 2 veces esto ha sido preciso.','',0,'AIA=','2gx7wkvg',1,0,'',2,0,0),(1543,408,3,2,0,'80.58.2.107',1131253086,1,0,1,1,1,1,'','','Silvio,\n\nWhere is it ?','',0,'AIA=','l29iwkob',1,0,'',2,0,0),(1544,404,1,2,0,'80.58.2.107',1131253257,1,0,1,1,1,1,'','','It looks as a Clipper preprocessor bug.\n\nAnyhow, good you found it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2zlpexl7',1,0,'',2,0,0),(1545,414,4,13,0,'213.76.252.200',1131262089,1,0,1,1,1,0,'','Empty menu','Hello,\n\nIt is possible create window with empty menu ?\n\nRegards\nPawel','',0,'AIA=','ivkm8o33',1,0,'',13,0,0),(1546,415,4,13,0,'213.76.252.200',1131262445,1,0,1,1,1,0,'','Full screen dialog','Hello,\n\nI create full screen dialog without sysmenu. When this dialog is activated \'X\' button on main window is still visible. Press \'X\' button close app and don\'t close dialog. Is method to hide \'X\' button on \'parent\' window with dialog without sysmenu ?\n\nDialog style: STYLE WS_POPUP|DS_MODALFRAME|WS_VISIBLE\n\nThanks,\nPawel','',0,'AIA=','170pps4b',1,0,'',13,0,0),(1547,414,4,2,0,'80.58.2.107',1131267916,1,0,1,1,1,1,'','','Pawel,\n\nDo you mean a menu with no menuitems ?\n\nIf so, whats its purpouse ?','',0,'AIA=','3psrb1ap',1,0,'',2,0,0),(1548,415,4,2,0,'80.58.2.107',1131268112,1,0,1,1,1,1,'','','Pawel,\n\nCould you please provide a small sample of what you are doing to test it here ? thanks.','',0,'AIA=','1xcr2ees',1,0,'',2,0,0),(1549,414,4,13,0,'213.76.252.200',1131269797,1,0,1,1,1,0,'','','Antonio,\n\nThis window is dialog. I found in eVc BasicDialog sample. Dialog is paint on full screen and have empty menu. This dialog looks very well. Right corner show Ok buttton vs standard X button. \nDialog on init use SHIDIF_DONEBUTTON | SHIDIF_SIZEDLGFULLSCREEN and SHCMBF_HIDESIPBUTTON | SHCMBF_EMPTYBAR define but I don\'t know how send this message to init dialog procedure.\n\nPawel','',0,'AIA=','28nk7g9c',1,0,'',13,0,0),(1550,415,4,13,0,'213.76.252.200',1131270153,1,0,1,1,1,0,'','','Antonio,\n\nthis is sample dialog:\n\n[code:1ilfqa3d]\nKliEdit DIALOG DISCARDABLE 0, 0, 159&#46;5, 165\nSTYLE WS_POPUP|DS_MODALFRAME|WS_VISIBLE\nFONT 8, &quot;MS Shell Dlg&quot;\nBEGIN\n  CONTROL &quot;Kod&#58;&quot;, 2001, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 4, 30, 12\n  CONTROL &quot;Nazwa&#58;&quot;, 2002, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 25, 30, 12\n  CONTROL &quot;Ulica&#58;&quot;, 2003, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 62, 30, 12\n  CONTROL &quot;Pna&#58;&quot;, 2004, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 75, 30, 12\n  CONTROL &quot;Miasto&#58;&quot;, 2005, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 88, 30, 12\n  CONTROL &quot;NIP&#58;&quot;, 2006, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 101, 30, 12\n  CONTROL &quot;&quot;, 2007, &quot;Edit&quot;, ES_MULTILINE|WS_BORDER|WS_TABSTOP, 32, 4, 124, 20 // kod\n  CONTROL &quot;&quot;, 2008, &quot;Edit&quot;, ES_MULTILINE|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 32, 25, 124, 36 // nazwa\n  CONTROL &quot;&quot;, 2009, &quot;Edit&quot;, ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 32, 62, 124, 12 // ulica\n  CONTROL &quot;&quot;, 2010, &quot;Edit&quot;, ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 32, 75, 32, 12 // pna\n  CONTROL &quot;&quot;, 2011, &quot;Edit&quot;, ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 32, 88, 124, 12 // miasto\n  CONTROL &quot;&quot;, 2012, &quot;Edit&quot;, ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 32, 101, 124, 12 // nip\n  CONTROL &quot;Zapisz&quot;, 2013, &quot;Button&quot;, WS_TABSTOP, 32, 148, 40, 12\n  CONTROL &quot;Anuluj&quot;, 2014, &quot;Button&quot;, WS_TABSTOP, 74, 148, 40, 12\n  CONTROL &quot;&gt;&gt;&quot;, 2015, &quot;Button&quot;, WS_TABSTOP, 116, 148, 40, 12\nEND\n[/code:1ilfqa3d]\n\nI create dialog because window in this moment do not support multiline say/get.\n\nPawel','',0,'AIA=','1ilfqa3d',1,0,'',13,0,0),(1551,391,2,77,0,'80.224.255.198',1131272515,1,0,1,1,1,0,'','','me da el error en esta linea:\n\n\n\nif (nSeleant)-&gt;(fieldget(fieldpos((nSeletrab)-&gt;(fieldname(nCont)))))=Nil \n\n\n\nGracias.\nManolo','',0,'AIA=','2f0mkhba',1,0,'',77,0,0),(1552,414,4,2,0,'80.58.2.107',1131273732,1,0,1,1,1,1,'','','Pawel,\n\nTry this:\n\n[code:27wy4dj9]ACTIVATE DIALOG oDlg &#46;&#46;&#46; ON INIT SetWindowLong&#40; oDlg&#58;hWnd, GWL_EXSTYLE, nOr&#40; GetWindowLong&#40; oDlg&#58;hWnd, GWL_EXSTYLE &#41;, SHIDIF_DONEBUTTON,  SHIDIF_SIZEDLGFULLSCREEN, SHCMBF_HIDESIPBUTTON, CMBF_EMPTYBAR &#41; &#41;[/code:27wy4dj9]\n\nPlease let us know if it works ok.','',0,'AIA=','27wy4dj9',1,0,'',2,0,0),(1553,391,2,2,0,'80.58.2.107',1131274184,1,0,1,1,1,1,'','','Manolo,\n\nQue versión de Clipper usas ?','',0,'AIA=','1d9zzwcm',1,0,'',2,0,0),(1554,416,2,176,0,'200.61.143.141',1131274709,1,0,1,1,1,0,'','Color en barra de Título','Como hago para poder al crear otra ventana, cambiar el color de la barra de título.\nTambién se me presenta otro problema, que es al crearla y luego al cerrarla, me cambia la tipografía de la primera ventana, solamente en el lugar en que fue creada la 2da ventana\n\nGracias : <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','38ygc3en',1,0,'',176,0,0),(1555,414,4,13,0,'213.76.252.200',1131277935,1,0,1,1,1,0,'','','Antonio,\n\nI try and try ... and nothing to change dialog. Maybe my code is wrong ?\nWhen I use GWL_EXSTYLE GetWindowLong () return 0, GWL_STYLE return value &lt;&gt; 0 but dialog is still standard.\n\n[code:2fkcfq2a]\n#define GWL_STYLE                   &#40;-16&#41;\n#define GWL_EXSTYLE                 &#40;-20&#41;\n#define SHIDIM_FLAGS                1 // 0x0001\n#define SHIDIF_DONEBUTTON           1 // 0x0001\n#define SHIDIF_SIZEDLG              2 // 0x0002\n#define SHIDIF_SIZEDLGFULLSCREEN    4 // 0x0004\n#define SHIDIF_SIPDOWN              8 // 0x0008\n\nFunction TestDialog &#40;&#41;\n\nLocal cGet &#58;= Space &#40;50&#41;\n\nDefine Dialog oDlg Resource \'BasicDialog\'\nReDefine Get cGet Id 1 Of oDlg\nReDefine Button Id 2 Of oDlg Action oDlg &#58; End &#40;&#41;\nActivate Dialog oDlg On Init ;\nSetWindowLong &#40;oDlg &#58; hWnd, GWL_STYLE, ;\nnOr &#40;GetWindowLong &#40;oDlg &#58; hWnd, GWL_STYLE&#41;, ;\nSHIDIF_DONEBUTTON, SHIDIF_SIZEDLGFULLSCREEN&#41;&#41;\n\nReturn &#46;T&#46;\n\n// rc&#46;file\nBASICDIALOG DIALOG DISCARDABLE 0, 0, 160, 168\nSTYLE WS_POPUP|WS_VISIBLE\nFONT 8, &quot;Tahoma&quot;\nBEGIN\n    CONTROL &quot;&quot;, 1, &quot;Edit&quot;, ES_MULTILINE|WS_BORDER|WS_TABSTOP, 32, 4, 124, 20\n    CONTROL &quot;OK&quot;, 2, &quot;Button&quot;, WS_TABSTOP, 116, 148, 40, 12\nEND\n[/code:2fkcfq2a]\n\nPawel','',0,'AIA=','2fkcfq2a',1,0,'',13,0,0),(1556,414,4,2,0,'80.58.2.107',1131289713,1,0,1,1,1,1,'','','Pawel,\n\nTry to use those defines in the RC file:\n\nSTYLE WS_POPUP | WS_VISIBLE | SHIDIF_DONEBUTTON | SHIDIF_SIZEDLGFULLSCREEN\n\n...\n\nTested it here. It does not work.\n\nWe may search on google for a C sample that uses SHIDIF_DONEBUTTON','',0,'AIA=','208x7ci7',1,0,'',2,0,0),(1557,414,4,2,0,'80.58.2.107',1131290174,1,0,1,1,1,1,'','','Pawel,\n\nThis seems the way to go:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wceshellui5/html/wce50lrfSHInitDialog.asp\">http://msdn.microsoft.com/library/defau ... Dialog.asp</a><!-- m -->','',0,'AIA=','vfhkn8ki',1,0,'',2,0,0),(1558,414,4,2,0,'80.58.2.107',1131290935,1,0,1,1,1,1,'','','Pawel,\n\nIts working <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[code:1h38b44q]\n   ACTIVATE DIALOG oDlg CENTERED ;\n     ON INIT SetOKButton&#40; oDlg&#58;hWnd &#41;\n   \nreturn nil   \n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC&#40; SETOKBUTTON &#41;\n&#123;\n   SHINITDLGINFO shidi;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   shidi&#46;dwFlags = SHIDIF_DONEBUTTON | SHIDIF_SIZEDLGFULLSCREEN;\n\n   SHInitDialog&#40; &amp;shidi &#41;;\n&#125;   \n\n#pragma ENDDUMP\n[/code:1h38b44q]','',0,'AIA=','1h38b44q',1,0,'',2,0,0),(1559,416,2,2,0,'80.58.2.107',1131291298,1,0,1,1,1,1,'','','El color de la barra del título es un valor de la configuración de Windows, y que afecta a todo Windows.\n\nLo que puedes hacer es crear una ventana ó diálogo, sin título, y dibujarlo tu con los colores que precises.\n\nPara evitar ese problema con los fonts haz:\n\n&lt;oWnd&gt;:oFont:nCount++\n\nen donde &lt;oWnd&gt; es el nombre de la variable de tu ventana.','',0,'AIA=','35mdgvgw',1,0,'',2,0,0),(1560,414,4,13,0,'213.76.252.200',1131293480,1,0,1,1,1,0,'','','Antonio,\n\nthanks so much\n\nPawel','',0,'AIA=','1q822f65',1,0,'',13,0,0),(1561,313,3,261,0,'63.197.46.139',1131293701,1,0,1,1,1,1,'','ADO','First of all, you need to make sure MDAC is installed on your workstation.  One way to do this is as follows:\n\nCreate a blank file with the extention .UDL (i.e. test.udl).\nThis file must be blank.\nEither click on the file, or from the command prompt type \nStart Test.udl\nIf a data connection wizard appears, then you have MDAC. \nIf this does not work, then download MDAC from the microsoft website.\nbtw, if you complete the connection wizard, it will place a valid ADO connection string in the (no longer empty) file.  This can be utilized with your code.\n\nNot tested code...\n\noRs := CreateObject(\"ADODB.RecordSet\")\noRs:CursorLocation     := adUseClient\noRs:LockType             := adLockOptimistic\noRs:CursorType          := adOpenDynamic\noRs:ActiveConnection  := \'your connection string copied from the UDL file\'\noRs:Source                 := \'Select * from MyTable\'  // or other valid sql.\n\nOnce you have filled your recordset with data you can utilize the following methods to navigate, (much more information on the Web)  Google search for \'ADO RecordSet\'\n\noRs:MoveFirst() // DbGoTop()\noRs:MoveNext() // DbSkip()\noRs:MoveLast()  // DbGoBottom()\noRs:AddNew()    // DbAppend()\noRs:Update()     //  DbCommit() but is required to complete add.\n\nReplace...\n\noRs:Fields(\"MyCharField\"):Value := \'MyValue\'\n\nI hope this helps get you started\n\nmight come in handy constants...\n\n//---- FileOpenEnum Values ----\n#define adOpenForwardOnly   0\n#define adOpenKeyset   1\n#define adOpenDynamic   2\n#define adOpenStatic   3\n\n\n//---- LockTypeEnum Values ----\n#define adLockReadOnly   1\n#define adLockPessimistic   2\n#define adLockOptimistic   3\n#define adLockBatchOptimistic   4\n\n\n//---- CursorLocationEnum Values ----\n#define adUseServer   2\n#define adUseClient   3\n\n//---- DataTypeEnum Values ----\n#define adEmpty   0\n#define adTinyInt   16\n#define adSmallInt   2\n#define adInteger   3\n#define adBigInt   20\n#define adUnsignedTinyInt   17\n#define adUnsignedSmallInt   18\n#define adUnsignedInt   19\n#define adUnsignedBigInt   21\n#define adSingle   4\n#define adDouble   5\n#define adCurrency   6\n#define adDecimal   14\n#define adNumeric   131\n#define adBoolean   11\n#define adError   10\n#define adUserDefined   132\n#define adVariant   12\n#define adIDispatch   9\n#define adIUnknown   13\n#define adGUID   72\n#define adDate   7\n#define adDBDate   133\n#define adDBTime   134\n#define adDBTimeStamp   135\n#define adBSTR   8\n#define adChar   129\n#define adVarChar   200\n#define adLongVarChar   201\n#define adWChar   130\n#define adVarWChar   202\n#define adLongVarWChar   203\n#define adBinary   128\n#define adVarBinary   204\n#define adLongVarBinary   205\n#define adChapter   136\n#define adFileTime   64\n#define adPropVariant   138\n#define adVarNumeric   139\n#define adArray   &amp;H2000','',0,'AIA=','1epzz5lu',1,0,'',261,0,0),(1562,313,3,49,0,'82.60.39.235',1131296206,1,0,1,1,1,0,'','','I try this \n[code:1jr3x3pb]function Prodotti&#40;&#41;\n    local oBCli , oWChld ,oDlg ,oWnd ,oLbx\n   Local  oDbf\n   local aData &#58;= &#123;&#125;\n   Local nFor, oOdbc\n\n   SET 3D LOOK ON\n\n   oOdbc &#58;= TOdbc&#40;&#41;&#58;New&#40;&quot;Database di Microsoft Access&quot;, &quot;&quot;, &quot;&quot;&#41;\n\n   If !oOdbc&#58;lSuccess\n      oOdbc&#58;ShowErrorList&#40;&quot;Sessione ODBC non inizializzata , Errore&#46;&#46;&#46;&quot;&#41;\n      oOdbc&#58;End&#40;&#41;\n      return nil\n   Endif\n\n   // Apro la tabella direttamente\n\n   oDbf &#58;= TDbOdbcDirect&#40;&#41;&#58;new&#40; &quot;SELECT * FROM prodotti&quot; , oOdbc&#41;\n\n  if oOdbc&#58;IsError&#40;&#41;\n      oOdbc&#58;ShowErrorList&#40;&#41;\n      oOdbc&#58;aErrors &#58;= &#123;&#125;\n      oDbf&#58;End&#40;&#41;\n      return nil\n   endif\n\n   oDbf&#58;Open&#40;&#41;\n   oDbf&#58;Complete&#40;&#41;\n\n  // Creo il list box e i bottoni\n\n\n        DEFINE DIALOG oDlg FROM 3, 3 TO 28, 79 TITLE &quot;Gestione Prodotti&quot;\n         @ 0,  1 SAY &quot; &amp;Demo&quot;  OF oDlg\n         @ 1, 1 LISTBOX oLbx FIELDS  str&#40;oDbf&#58;FieldGet&#40;1&#41;&#41;, oDbf&#58;FieldGet&#40;2&#41;,oDbf&#58;FieldGet&#40;5&#41;  ;\n                             HEADER &quot;ID&quot;, &quot;Codice&quot;, &quot;Prodotto&quot; ;\n                             SIZE 284, 137 OF oDlg\n\n\n   @ 9,  1 BUTTON &quot;&amp;Nuovo&quot;    OF oDlg  SIZE 40, 12 action EditClient&#40; oLbx, &#46;t&#46; &#41;\n   @ 9,  8 BUTTON &quot;&amp;Modifica&quot; OF oDlg  SIZE 40, 12\n   @ 9, 15 BUTTON &quot;&amp;Cancella&quot; OF oDlg  SIZE 40, 12\n   @ 9, 22 BUTTON &quot;&amp;Ricerca&quot; OF oDlg  SIZE 40, 12\n   @ 9, 29 BUTTON &quot;&amp;Stampa&quot;  OF oDlg  SIZE 40, 12\n   @ 9, 40 BUTTON &quot;&amp;Uscita&quot;   OF oDlg ACTION oDlg&#58;End&#40;&#41;         SIZE 40, 12\n\n   ACTIVATE DIALOG oDlg\n      oDbf&#58;End&#40;&#41;\n   oOdbc&#58;End&#40;&#41;\n\nRETURN &#40;NIL&#41;\n[/code:1jr3x3pb]\n\n\n\nNow I must convert  the EditClient( oLbx, .t. ) function but I cannot How I can make it \n\nthis the code\n\n\n[code:1jr3x3pb]static function EditClient&#40; oLbx, lAppend &#41;\n  \n   local cName\n   local cAddress\n   local cPhone\n\n  local nOldRec &#58;= RecNo&#40;&#41;\n\nDEFAULT lAppend &#58;= &#46;f&#46;\n\n   if lAppend\n      GOTO BOTTOM\n      SKIP\n   endif\n\n\n\n\n   cName    = Clientes-&gt;Nombre         &amp;&amp; field0001\n   cAddress = Clientes-&gt;Direccion      &amp;&amp; field0002\n   cPhone   = Clientes-&gt;Telefono       &amp;&amp; field0003\n  \n\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 25, 65 ;\n      TITLE If&#40; lAppend, &quot;New Customer&quot;, &quot;Customer Update&quot; &#41;\n\n @ 1,  1 SAY &quot;&amp;Name&#58;&quot; OF oDlg\n   @ 1,  6 GET cName OF oDlg\n   @ 2,  1 SAY &quot;&amp;Address&#58;&quot; OF oDlg\n   @ 2,  6 GET cAddress OF oDlg\n\n@ 3&#46;5, 23 SAY &quot;&amp;Phone&#58;&quot; OF oDlg\n   @ 4, 21 GET cPhone OF oDlg SIZE 60, 11 PICTURE &quot;@R 99-999-9999999&quot;\n\n\n   @ 6,  9 BUTTON &quot;&amp;Acept&quot;  OF oDlg SIZE 50, 12 ACTION &#40; lSave &#58;= &#46;t&#46; , oDlg&#58;End&#40;&#41; &#41;\n   @ 6, 19 BUTTON &quot;&amp;Cancel&quot; OF oDlg SIZE 50, 12 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   if lSave &#46;and&#46; !empty&#40; cName &#41;\n\n      if lAppend\n         APPEND BLANK\n      endif\n Clientes-&gt;Nombre     &#58;= cName\nClientes-&gt;Direccion  &#58;= cAddress\nClientes-&gt;Telefono   &#58;= cPhone\n\noLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n   else\n\n      if Empty&#40; cName &#41; &#46;and&#46; lSave\n         MsgAlert&#40; &quot;Please write a name&quot; &#41;\n      endif\n\n      GOTO nOldRec\n\n   endif\n\nreturn nil\n[/code:1jr3x3pb]','',0,'AIA=','1jr3x3pb',1,0,'',49,0,0),(1563,314,20,49,0,'82.60.39.235',1131296889,1,0,1,1,1,0,'','','Roberto,\nse ti riferisci  al rad SW funziona correttamente su Amd64bit con XpProfessional server pack 2 per i Pentium Intel non ho provato!!!!!!!!\nok anche per le applicazioni a 16 bit','',0,'AIA=','es7hdahc',1,0,'',49,0,0),(1564,417,6,49,0,'82.60.39.235',1131297363,1,0,1,1,1,0,'','ODBC','I have xharbour and fwh\nI must use a MDB file\nOn this Mdb file there is a Table called Prodotti\nI must open it and modify all\n\n\n\nI try it \n\n[code:bz3wxwvo]\nfunction Prodotti&#40;&#41;\n    local oBCli , oWChld ,oDlg ,oWnd ,oLbx\n   Local  oDbf\n   local aData &#58;= &#123;&#125;\n   Local nFor, oOdbc\n\n   SET 3D LOOK ON\n\n   oOdbc &#58;= TOdbc&#40;&#41;&#58;New&#40;&quot;Database di Microsoft Access&quot;, &quot;&quot;, &quot;&quot;&#41;\n\n   If !oOdbc&#58;lSuccess\n      oOdbc&#58;ShowErrorList&#40;&quot;Sessione ODBC non inizializzata , Errore&#46;&#46;&#46;&quot;&#41;\n      oOdbc&#58;End&#40;&#41;\n      return nil\n   Endif\n\n   // Open the table\n\n   oDbf &#58;= TDbOdbcDirect&#40;&#41;&#58;new&#40; &quot;SELECT * FROM prodotti&quot; , oOdbc&#41;\n\n  if oOdbc&#58;IsError&#40;&#41;\n      oOdbc&#58;ShowErrorList&#40;&#41;\n      oOdbc&#58;aErrors &#58;= &#123;&#125;\n      oDbf&#58;End&#40;&#41;\n      return nil\n   endif\n\n   oDbf&#58;Open&#40;&#41;\n   oDbf&#58;Complete&#40;&#41;\n\n  // Listbox\n\n\n        DEFINE DIALOG oDlg FROM 3, 3 TO 28, 79 TITLE &quot;Gestione Prodotti&quot;\n         @ 0,  1 SAY &quot; &amp;List&quot;  OF oDlg\n         @ 1, 1 LISTBOX oLbx FIELDS  str&#40;oDbf&#58;FieldGet&#40;1&#41;&#41;, oDbf&#58;FieldGet&#40;2&#41;,oDbf&#58;FieldGet&#40;5&#41;  ;\n                             HEADER &quot;ID&quot;, &quot;Codice&quot;, &quot;Prodotto&quot; ;\n                             SIZE 284, 137 OF oDlg\n\n\n   @ 9,  1 BUTTON &quot;&amp;Nuovo&quot;    OF oDlg  SIZE 40, 12 EditClient&#40; oLbx, &#46;t&#46; &#41;\n   @ 9,  8 BUTTON &quot;&amp;Modifica&quot; OF oDlg  SIZE 40, 12 EditClient&#40; oLbx, &#46;f&#46; &#41;\n   @ 9, 15 BUTTON &quot;&amp;Cancella&quot; OF oDlg  SIZE 40, 12\n   @ 9, 22 BUTTON &quot;&amp;Ricerca&quot; OF oDlg  SIZE 40, 12\n   @ 9, 29 BUTTON &quot;&amp;Stampa&quot;  OF oDlg  SIZE 40, 12\n   @ 9, 40 BUTTON &quot;&amp;Uscita&quot;   OF oDlg ACTION oDlg&#58;End&#40;&#41;         SIZE 40, 12\n\n   ACTIVATE DIALOG oDlg\n      oDbf&#58;End&#40;&#41;\n   oOdbc&#58;End&#40;&#41;\n\nRETURN &#40;NIL&#41;\n[/code:bz3wxwvo]\n\n\nNow I must convert this func but I cannot Know How can I make it \n\n\n[code:bz3wxwvo]\nstatic function EditClient&#40; oLbx, lAppend &#41;\n  \n   local cName\n   local cAddress\n   local cPhone\n\n  local nOldRec &#58;= RecNo&#40;&#41;\n\nDEFAULT lAppend &#58;= &#46;f&#46;\n\n   if lAppend\n      GOTO BOTTOM\n      SKIP\n   endif\n\n\n\n\n   cName    = Clientes-&gt;Nombre         &amp;&amp; field0001\n   cAddress = Clientes-&gt;Direccion      &amp;&amp; field0002\n   cPhone   = Clientes-&gt;Telefono       &amp;&amp; field0003\n  \n\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 25, 65 ;\n      TITLE If&#40; lAppend, &quot;New Customer&quot;, &quot;Customer Update&quot; &#41;\n\n @ 1,  1 SAY &quot;&amp;Name&#58;&quot; OF oDlg\n   @ 1,  6 GET cName OF oDlg\n   @ 2,  1 SAY &quot;&amp;Address&#58;&quot; OF oDlg\n   @ 2,  6 GET cAddress OF oDlg\n\n@ 3&#46;5, 23 SAY &quot;&amp;Phone&#58;&quot; OF oDlg\n   @ 4, 21 GET cPhone OF oDlg SIZE 60, 11 PICTURE &quot;@R 99-999-9999999&quot;\n\n\n   @ 6,  9 BUTTON &quot;&amp;Acept&quot;  OF oDlg SIZE 50, 12 ACTION &#40; lSave &#58;= &#46;t&#46; , oDlg&#58;End&#40;&#41; &#41;\n   @ 6, 19 BUTTON &quot;&amp;Cancel&quot; OF oDlg SIZE 50, 12 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   if lSave &#46;and&#46; !empty&#40; cName &#41;\n\n      if lAppend\n         APPEND BLANK\n      endif\n Clientes-&gt;Nombre     &#58;= cName\nClientes-&gt;Direccion  &#58;= cAddress\nClientes-&gt;Telefono   &#58;= cPhone\n\noLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n   else\n\n      if Empty&#40; cName &#41; &#46;and&#46; lSave\n         MsgAlert&#40; &quot;Please write a name&quot; &#41;\n      endif\n\n      GOTO nOldRec\n\n   endif\n\nreturn nil\n[/code:bz3wxwvo]\n\n\nCan You help me pls','',0,'AIA=','bz3wxwvo',1,0,'',49,0,0),(1565,418,7,262,0,'83.97.168.9',1131301005,1,0,1,1,1,0,'','instalar programas en el pocket (crear un acceso directo)','Pues eso como puedo crear un acceso directo a mi programa en el pocket-emulador .\nDe paso se publicaron unas utilerias para pocket en los foros que ya no estan , seria interesante publicarlas aqui (no se lo que tenian)','',0,'AIA=','fs6wvd77',1,0,'',262,0,0),(1566,414,4,2,0,'80.58.2.107',1131301733,1,0,1,1,1,1,'','','Pawel,\n\nStill we need to know what command generates the click of the OK at the right top corner.','',0,'AIA=','3jipvep0',1,0,'',2,0,0),(1567,418,7,2,0,'80.58.2.107',1131302117,1,0,1,1,1,1,'','','Selecciona la opción File-Configure...-Shared Folder desde el menu del emulador, y escoge el directorio que se compartirá entre el PC y el PocketPC.\n\nLuego ve al emulador y selecciona el Storage Card (en el File manager, es el botón del centro abajo), y verás tu programa, y haciendo click en él puedes ejecutarlo.','',0,'AIA=','1nhep2qg',1,0,'',2,0,0),(1568,411,6,10,0,'212.40.255.188',1131302254,1,0,1,1,1,0,'','','Gracias Antonio por tu información. haré balance familiar para ver si rascamos de algún sitio para actualizarme a FWH.\n\nDebido a que no soy empresa sino particular y residir en las Islas Canarias donde a que mi situación no está contemplada en el tema de pedidos (en las Islas Canarias no se aplica el IVA -no existe- sino el IGIC (Impuesto General Indirecto Canario), en el momento en que me decida pasarme a FWH contactaré con tu Empresa para ver cómo lo haríamos.\n\nPor cierto, hasta hace poco creí ver que existía un precio especial de adquisición de FWH desde FW pero ahora no lo veo en lo página de pedidos, se terminó la oferta (si es que lo que vi era cierto)? o tendría que seleccionar el item de \'Actualización a la nueva Versión de FWH\'?\n\nUn saludo','',0,'AIA=','ojxi68xz',1,0,'',10,0,0),(1569,418,7,262,0,'83.97.168.9',1131302862,1,0,1,1,1,0,'','','Si eso ya está , yo me refiero a poner un acceso directo ¿? , como si fuera un programa mas .','',0,'AIA=','2z08ofh7',1,0,'',262,0,0),(1570,418,7,2,0,'80.58.2.107',1131304826,1,0,1,1,1,1,'','','Buena pregunta <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nla verdad es que hasta ahora no lo habíamos intentado...\n\nPor lo visto el menú sólo admite nueve items máximo, y por defecto no viene níngun acceso directo en el desktop.\n\nA ver si otros usuarios han sabido resolverlo.','',0,'AIA=','3ob674es',1,0,'',2,0,0),(1571,411,6,2,0,'80.58.2.107',1131305046,1,0,1,1,1,1,'','','No hay problema, cuando vayas a hacer el pedido nos lo indicas por email y sólo se te aplicará el IVA correspondiente.\n\nEn cuanto a la oferta de actualización a FWH desde FW, ya terminó. Estuvo disponible más de un año.','',0,'AIA=','v07pu8n0',1,0,'',2,0,0),(1572,314,20,8,0,'213.45.245.130',1131305587,1,0,1,1,1,0,'','','Ok, grazie Silvio per il tuo feedback. Per il tuo problema con gli mdb ti ho risposto in privato.','',0,'AIA=','56jkf57w',1,0,'',8,0,0),(1573,418,7,262,0,'83.97.168.9',1131311324,1,0,1,1,1,0,'','','Ya esta resuelto \nExiste un miniprogram¡lla que resuelve el problema,se llama newshortcut.zip es free y lo encontrais en [url:1e2c293i]http&#58;//www&#46;scottandmichelle&#46;net/scott/cestuff&#46;html[/url:1e2c293i]\nseguiz las instrucciones , funciona en el emulador .','',0,'EA==','1e2c293i',1,0,'',262,0,0),(1574,418,7,2,0,'80.58.2.107',1131318537,1,0,1,1,1,1,'','','Estupendo,\n\nMuchas gracias! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','2ke48umt',1,0,'',2,0,0),(1575,419,6,222,0,'200.11.242.33',1131327073,1,0,1,1,1,0,'','TSBrowse y SET FILTER','O yo no entiendo bien,o TSBrowse no está diseñado para funcionar con filtros, aunque sin con scopes sobre indices. Después de trabajar un poco logré que me funcionara bien, haciendo los siguientes cambios:\n\nAgregar \n\nDATA bFilter\nMETHOD SetbFilter(bFilter);\n     INLINE (::cAlias)-&gt;(dbSetFilter(::bFilter:=bFilter)),;\n             if(::lPainted,::ResetBarPos(.T.),nil),;\n             ::Default(),;\n             ::GoTop(),;\n             ::Refresh()\n\nSustituir \nDATA nLen\n\npor\n\nMETHOD nLen\n  Local nLen, nRec\n  IF ::lIsDbf \n    nRec:=(::cAlias)-&gt;(RecNo())\n    IF !Empty(::bFilter)\n      COUNT FOR (::cAlias)-&gt;(Eval(::bFilter)) TO nLen\n    ELSE\n      nLen:=::RecCount()\n    ENDIF\n    (::cAlias)-&gt;(dbGoto(nRec))\n  ELSE\n    nLen:=Len(::aArray)\n  ENDIF\nRETURN nLen\n\nEspero sea útil para alguien y agradeceré las sugerencias\n\nCésar E. Lozada','',0,'EA==','2f88dw6p',1,0,'',222,0,0),(1576,420,6,215,0,'201.138.38.147',1131335194,1,0,1,1,1,0,'','La última impresora activa en windows','Hola gente,\nhe notado que al activar mi programa hecho con fivewin harbour, cuando envio a imprimir se usa la impresora que estaba activa al momento de ejecutar el programa. Si la impresora en windows se cambia a otra durante la ejecución del programa, la impresión que yo realize lo hace a la antigua impresora... ¿Cómo soluciono esto? Yo suponía que el programa tomaría la impresora que estuviera por default en windows.\nPara solucionar esto he notado que puedo hacer lo siguiente:\n\n1) Salir del programa fivewin y volver a ejecutarlo. Tomará la impresora activa que tenga windows por default\n2) En todas las opciones donde envio a imprimir, hacer un llamado a la impresora a la manera de USER FROM... esto requiere modificar todas las llamadas en mi programa \n\n¿Alguna otra opción?\n\nGracias','',0,'EA==','1njrcwrj',1,0,'',215,0,0),(1577,421,6,52,0,'201.235.155.110',1131339356,1,0,0,0,1,0,'','Error en la TSbrowser al compilarla','Estimados:\n\nHe tratado de compilar la Tsbrowser para xHarbour pero resulta que me larga estos errores:\n\nsource\\function\\SCROLL.C(52): warning: Missing type specifier.\nsource\\function\\SCROLL.C(75): warning: Missing return value.\nsource\\function\\SCROLL.C(80): warning: Missing type specifier.\nsource\\function\\SCROLL.C(101): warning: Missing return value.\nsource\\function\\SCROLL.C(106): warning: Missing type specifier.\nsource\\function\\SCROLL.C(128): warning: Missing return value.\nsource\\function\\SCROLL.C(133): warning: Missing type specifier.\nsource\\function\\SCROLL.C(140): warning: Missing return value.\nsource\\function\\SCROLL.C(145): warning: Missing type specifier.\nsource\\function\\SCROLL.C(160): warning: Missing return value.\n\nAndy el creador del xMAte me dice que tengo que hacer que los warnig desaparezcan y coincido con el ya que son errores y programas con errores traen mas errores. \n\nPodrían ayudarme a resolver esto?\n\ndicho sea de paso... Hoy es mi cumpleaños que me regalan\nAcepto donaciones. :) :twisted:','',0,'EA==','35vljs04',1,0,'',52,0,0),(1578,419,6,52,0,'201.235.155.110',1131339559,1,0,1,1,1,0,'','Consulta','Amigo: que version de tsbrowser estas usando, pudiste compilarla sin errores? usas el xharbour? que version?','',0,'EA==','1ut21bb2',1,0,'',52,0,0),(1579,344,18,2,0,'80.58.2.107',1131340846,1,0,1,1,1,1,'','','Roberto,\n\nIts fixed! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Thanks to Master Hernan Diego!\n\nJust changes these lines,\n\nwinapi\\mgetcrea.c:\n\n   #ifndef UNICODE\n   _retnl( ( LONG ) CreateWindowEx( WS_EX_CLIENTEDGE, \n                                                      _parc( 1 ), ...\n\nclasses\\tget.prg:\n\nremove WS_BORDER style.','',0,'EA==','1pqtzlp2',1,0,'',2,0,0),(1580,422,6,52,0,'201.235.155.110',1131345531,1,0,1,1,1,0,'','Encabezados en xHArbour y Harbour...','Estimados:\n\nQuiero que me dejen algo en claro porque tengo una confución:\n\nesta definicion de funcion esta bien para xHarbour y Harbour?\n\nHB_FUN_SETSCROLLINFO( PARAMS ) \n\nComparto con Andy que no, que es asi:\n\nHB_FUNC( SETSCROLLINFO )\n\nPero la mayoria de los que usan la tsbrowser me dicen que compilaron sin errores y a mi si dejo asi:\n\nHB_FUN_SETSCROLLINFO( PARAMS ) \n\nen  xHarbour me da error. \n\nCómo es la cosa?.','',0,'EA==','2l771lx0',1,0,'',52,0,0),(1581,422,6,2,0,'80.58.2.107',1131346294,1,0,1,1,1,1,'','','Gustavo,\n\nLa cláusula PARAMS es propia de FiveWin.','',0,'EA==','8i9nfl20',1,0,'',2,0,0),(1582,422,6,52,0,'201.235.155.110',1131347560,1,0,1,1,1,0,'','','Y los otros Antonio? perdon que te pregunte esto pero estoy estudiando el xharbour y el harbourd, mejor dicho analizando a ver que es mas productivo.\n\ngracias.','',0,'EA==','3j3ixk9w',1,0,'',52,0,0),(1583,422,6,2,0,'80.58.2.107',1131347927,1,0,1,1,1,1,'','','Gustavo,\n\nPARAMS es una claúsula que FiveWin usa para compatibilidad con Xbase++. En FWH PARAMS se traduce a void, que es el valor por defecto al no especificar ningún parámetro, por lo que no tiene ningún efecto.\n\nHB_FUNC( NOMBRE_FUNCION ) es un define de C, que el preprocesador de C traduce a HB_FUN_NOMBRE_FUNCION( void ), por lo que:\n\nHB_FUNC( NOMBRE_FUNCION )\n\ny\n\nHB_FUN_NOMBRE_FUNCION( void ) \n\nson lo mismo.\n\nY puesto que PARAMS es void, estas dos líneas son lo mismo:\n\nHB_FUN_NOMBRE_FUNCION( void ) \n\nHB_FUN_NOMBRE_FUNCION( PARAMS )\n\nTodo esto es aplicable por igual a Harbour y xharbour.','',0,'EA==','5xwz8fje',1,0,'',2,0,0),(1584,422,6,52,0,'201.235.155.110',1131348663,1,0,1,1,1,1,'','','Gracias Antonio:\n\nAhora bien, entonces cuando compilo en xHarbour algo que esta asi:\n HB_FUN_NOMBRE_FUNCION( PARAMS )\n\nMe tira error, en cambio cuando compilo con esta forma:\n\nHB_FUNC( NOMBRE_FUNCION ) \n\nNo me da error?\n\nGracias','',0,'EA==','gnbgl9qp',1,0,'',52,0,0),(1585,414,4,13,0,'213.76.252.200',1131349388,1,0,1,1,1,0,'','','Antonio,\n\nI found this in BasicDialog sample:\n\n[code:1fyuy4q5]\n    case WM_COMMAND&#58;\n        // Dialog manager produces IDOK when the done button is tapped\n        if &#40;&#40;IDOK == LOWORD&#40;wParam&#41;&#41; || &#40;IDCANCEL == LOWORD&#40;wParam&#41;&#41;&#41;\n        &#123;\n            EndDialog&#40;hDlg, LOWORD&#40;wParam&#41;&#41;;\n            return TRUE;\n        &#125;\n        break;\n[/code:1fyuy4q5]\n\nPawel','',0,'AIA=','1fyuy4q5',1,0,'',13,0,0),(1586,391,2,77,0,'80.58.35.107',1131352110,1,0,1,1,1,0,'','','hola antonio el clipper que utilizo es el\n\nClipper 53b rev. 338\n\n\nSaludos','',0,'AIA=','t0ix9umv',1,0,'',77,0,0),(1587,380,4,89,0,'213.21.136.60',1131353639,1,0,1,1,1,0,'','','I try with Zebra QL 320 but it does not work\n\nRegards Maurizio','',0,'AIA=','1ym0aa80',1,0,'',89,0,0),(1588,380,4,2,0,'80.58.2.107',1131357271,1,0,1,1,1,1,'','','Maurizio,\n\nWas the bluetooth connection properly set before testing it ? \n\nYou have to manually do the bluetooth setup.','',0,'AIA=','vz8600fl',1,0,'',2,0,0),(1589,423,3,63,0,'80.58.35.107',1131358125,1,0,1,1,1,0,'','How to handle RClick on TWBrowse','Perhaps this question has already been answered but after much experimentation I could not find the solution:\n\nI am using a TWBrowse and I would like to RClick on any row and inmediatelly open an small window to edit the contens of that register.\n\nOf course, I have tried  oBrw:bRClicked().... The problem is that I am forced first to LClick on the row I want to edit and then, RClick again.  Is there any way to achive the following with just ONE RClick:\n\na) Select the appropiate row\nb) Open the edit window (or a Popup menu or whatever)\n\nThanks,\n\nRafael','',0,'AIA=','cvh29n9b',1,0,'',63,0,0),(1590,424,6,23,0,'80.58.44.235',1131360760,1,0,1,1,1,1,'','Sobre Pintados de says en folders','Hola Foro!\nAdjunto esta imagen a ver si me podeis hechar una mano\n[img:1ghkdg8x]http&#58;//www&#46;sigev&#46;com/articulo&#46;jpg[/img:1ghkdg8x]\nEn ella se puede observar como los says no pintan bien el color de fondo (cogen un color más oscuro que el propio del folder).\nTiene solución?? Está ejecutándose bajo WinXp, bajo Win2000 se ve correctamente.\n\nUn saludo','',0,'CA==','1ghkdg8x',1,0,'',23,0,0),(1591,344,18,137,0,'151.38.8.195',1131363186,1,0,1,1,1,0,'','','Thx Antonio but with your changes the result is an editbox without border!\n\nRegards,\nRoberto Parisi','',0,'CA==','2yjjb2g1',1,0,'',137,0,0),(1592,425,2,88,0,'82.150.2.19',1131364669,1,0,1,1,1,1,'','Libreria &quot;htcsoft.lib&quot; ...','Saludos gente,\n\ndesde hace tiempo he estado buscando esta libreria para acceso de datos ODBC. Me he intentado poner en contacto en repetidas ocasiones con ellos, pero ni su correo ni su enlace de download parecen estar activos.\n\n\nA dia de hoy su pagina web sigue en activo:\n\n[url:26vhkfqy]http&#58;//members&#46;fortunecity&#46;com/htcsoft/htcsoft&#46;htm[/url:26vhkfqy]\n\n\nAlguien sabe algo al respecto?\n\nSe puede conseguir en algun lugar?\n\nGracias de antemano.\n\n\n\nNos leemos!!','',0,'EA==','26vhkfqy',1,0,'',88,0,0),(1593,282,20,263,0,'217.222.223.34',1131365199,1,0,1,1,1,0,'','','Eccomi quà!!!........ Bentrovati a tutti.','',0,'EA==','212ivz5d',1,0,'',263,0,0),(1594,414,4,2,0,'80.58.2.107',1131365977,1,0,1,1,1,1,'','','Pawel,\n\nIts a little more complex than that, but we already got it working <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThere is a new FWPPC build ready to be downloaded. Please review samples\\okbutton.prg working sample to see how to use it.','',0,'EA==','2qn1huft',1,0,'',2,0,0),(1595,344,18,2,0,'80.58.2.107',1131366364,1,0,1,1,1,1,'','','Roberto,\n\nYou may not have properly modified winapi\\mgetcrea.c. Or maybe did not linked in properly or replaced it in the lib.\n\nPlease check it. Its working fine and confirmed by some users.','',0,'EA==','1xyfzunh',1,0,'',2,0,0),(1596,398,6,24,0,'80.58.35.235',1131366603,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2qm2v4bv]Lo que se está discutiendo ahora en la lista de desarrollo de Harbour es porque 2 / 0 = 0, cuando en realidad debiera ser infinito, y por lo tanto generar un error, ó un aviso.[/quote:2qm2v4bv]\n\nEs cero, porque desde el errorsys se le dice que retorne cero.\nEl problema de harbour, y que reporte hace tiempo, cosa que xHarbour tambien petaba pero Walter Negro lo soluciono, era cuando realizas divisiones entre int / double, es decir 1 / 0.0,  1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.\n\nDeje por ahi los test de como en Harbour y xHarbour se rompia, lo que si se\nes que en xHarbour fue corregido.\n\nA mi me tuvo loco un tiempo hasta dar con el error estupido de dividir int / double, con el cero de por medio.','',0,'gA==','2qm2v4bv',1,0,'',24,0,0),(1597,398,6,2,0,'80.58.2.107',1131367104,1,0,1,1,1,1,'','','[quote=&quot;thefull&quot;:r9x7zlu8]Es cero, porque desde el errorsys se le dice que retorne cero.[/quote:r9x7zlu8]\n\nSi, eso se está haciendo. Pero en matemáticas, una cantidad dividida por cero es igual a infinito (tiende a infinito). Posiblemente Clipper salió del paso haciéndolo igual a cero, pero no es correcto.\n\n[quote=&quot;thefull&quot;:r9x7zlu8]\ncuando realizas divisiones entre int / double, es decir 1 / 0.0,  1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.\n[/quote:r9x7zlu8]\n\nAcabo de probar este test con el build más reciente de Harbour, y NO se cae la aplicación. Deben haber arreglado lo que comentas. Lo que si es que el valor que muestra es incorrecto:\n\n[code:r9x7zlu8]\nfunction Main&#40;&#41;\n\n   Alert&#40; &quot;antes&quot; &#41;\n   Alert&#40; 2 / 0&#46;0 &#41;\n   Alert&#40; &quot;despues&quot; &#41;\n\nreturn nil\n[/code:r9x7zlu8]','',0,'gIA=','r9x7zlu8',1,0,'',2,0,0),(1598,426,16,2,0,'80.58.2.107',1131367425,1,0,1,1,1,1,'','DoneButton support on FWPPC','There is a new FWPPC build, ready to be downloaded, with doneButton support. Please review samples\\okbutton.prg.','',0,'gIA=','oeec4kvl',1,0,'',2,0,0),(1599,423,3,106,0,'80.105.201.36',1131368953,1,0,0,1,1,0,'','','Try this:\n\noBrw:bRClicked = { | nRow, nCol | ( oBrw:setFocus(), oBrw:lButt\nonDown(nRow,nCol), YourFunction( nRow, nCol, oBrw ) ) }\n\n\nPedro Gonzalez\nSavona - Italia','',0,'gIA=','1qpb9pj6',1,0,'',106,0,0),(1600,424,6,21,0,'83.36.13.253',1131371756,1,0,1,1,1,1,'','','Hola Angel,\n\nSi el contenido de los say\'s no van a cambiar de como los tienes escritos en el recurso, pon en el identificador  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  -1 (unused).\n\nSino, tienes que definirlos dentro del prg\n[code:ep3thmto]Redefine say oSay Prompt &quot;AREA 1&quot; Id 201 of oDlg[/code:ep3thmto]','',0,'AIA=','ep3thmto',1,1131375558,'',21,2,0),(1601,427,6,88,0,'82.150.2.19',1131372111,1,0,1,1,1,1,'','Libreria &quot;htcsoft.lib&quot; ...','Saludos gente, \n\ndesde hace tiempo he estado buscando esta libreria para acceso de datos ODBC. Me he intentado poner en contacto en repetidas ocasiones con ellos, pero ni su correo ni su enlace de download parecen estar activos. \n\n\nA dia de hoy su pagina web sigue en activo: \n\n<!-- m --><a class=\"postlink\" href=\"http://members.fortunecity.com/htcsoft/htcsoft.htm\">http://members.fortunecity.com/htcsoft/htcsoft.htm</a><!-- m --> \n\n\nAlguien sabe algo al respecto? \n\nSe puede conseguir en algun lugar? \n\nGracias de antemano. \n\n\n\nNos leemos!!','',0,'AIA=','2qnhz5d6',1,0,'',88,0,0),(1602,427,6,105,0,'200.72.140.34',1131373429,1,0,1,1,1,1,'','Re: Libreria &quot;htcsoft.lib&quot; ...','[quote=&quot;Chantiel&quot;:1ce1one2]Saludos gente, \n\ndesde hace tiempo he estado buscando esta libreria para acceso de datos ODBC. Me he intentado poner en contacto en repetidas ocasiones con ellos, pero ni su correo ni su enlace de download parecen estar activos. \n\n\nA dia de hoy su pagina web sigue en activo: \n\n<!-- m --><a class=\"postlink\" href=\"http://members.fortunecity.com/htcsoft/htcsoft.htm\">http://members.fortunecity.com/htcsoft/htcsoft.htm</a><!-- m --> \n\n\nAlguien sabe algo al respecto? \n\nSe puede conseguir en algun lugar? \n\nGracias de antemano. \n\n\n\nNos leemos!![/quote:1ce1one2]\n\n\nRevisa en <!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">http://www.htcsoft.cl</a><!-- m -->  o contactate con Jorge Mason , de seguro te respondera sin problemas.\n\nChau','',0,'gA==','1ce1one2',1,0,'',105,0,0),(1603,396,6,255,0,'200.67.134.233',1131375012,1,0,1,1,1,1,'','','[quote=&quot;Verhoven&quot;:10m3ljxu]¿ Es compatible con la versión de xHarbour par fw2.4, o me quedo con el Verce que tengo actualmente ?.[/quote:10m3ljxu]\n\nEs compatible.\nSin embargo, antes de instalarlo, te recomiendo\nque lo respaldes.\n\nSaludos','',0,'gA==','10m3ljxu',1,0,'',255,0,0),(1604,413,6,255,0,'200.67.134.233',1131375092,1,0,1,1,1,1,'','Re: Rmake y la Tsbrowser','[quote=&quot;goosfancito&quot;:qh0mdgpa]Amigos:\n\nQuise compilar la version 7 de la tsbrowser de mercado y me tira el error 7 del rMake dicho error, dice la ayuda es porque UNA SOLA CADENA DE MAKE SOBREPASA LOS 1024 BYTES.\n\nComo soluciono este problema, alguien tiene el proyecto de xMAte para esta libreria? gracias.[/quote:qh0mdgpa]\n\nNo has intentado con VERCE ??','',0,'gA==','qh0mdgpa',1,0,'',255,0,0),(1605,424,6,2,0,'80.58.2.107',1131375113,1,0,1,1,1,1,'','','Angel,\n\nSi no los tienes redefinidos, prueba a ponerles el identificador -1 en el recurso.','',0,'gA==','2kexow36',1,0,'',2,0,0),(1606,424,6,23,0,'80.58.44.235',1131375709,1,0,1,1,1,1,'','','Estan redefinidos y deben cambiar de valor en función del get que tienen al lado, así que eso no me sirve.','',0,'gA==','2jqs8b4o',1,0,'',23,0,0),(1607,380,4,89,0,'213.21.136.60',1131377162,1,0,1,1,1,0,'','','Yes the bluetooth is properly setup , I use it with another programm \nand print OK \nMaurizio','',0,'gA==','28lhuj27',1,0,'',89,0,0),(1608,413,6,52,0,'201.235.155.110',1131378270,1,0,1,1,1,1,'','','La verdad que no se ni que es.-\n\nPodrias ayudarme? gracias','',0,'gA==','sycc8vyz',1,0,'',52,0,0),(1609,423,3,63,0,'80.58.35.107',1131378495,1,0,1,1,1,0,'','','Pedro:\nJust tested your suggestion and it worked beautifully. Thanks!!!\nRafael','',0,'gA==','si6lfvz9',1,0,'',63,0,0),(1610,398,6,24,0,'80.58.33.109',1131379322,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2197a890][quote=&quot;thefull&quot;:2197a890]Es cero, porque desde el errorsys se le dice que retorne cero.\n\nSi, eso se está haciendo. Pero en matemáticas, una cantidad dividida por cero es igual a infinito (tiende a infinito). Posiblemente Clipper salió del paso haciéndolo igual a cero, pero no es correcto.\n[/quote:2197a890]\n\nBueno, tambien tan( 90 ) tiende a infinito, pero, ¿ como representar ese numero ?, logicamente en una calculadora, te sale ERR.\nPero, por \"compatibilidad\" con clipper DEBE de retornar CERO , o ERROR!\n\nA elegir, me quedo con cero <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nAsi si coges la calculadora de windows, aplica 2 / 0 = Error:division por cero.\nAhora, aplicas tan( 90 ) = Entrada no válida para func.\n\nOH!!!, me quedo con cero , jejejel o al menos, que el errorsys DEVUELVA CERO, mas sencillo imposible...\n    IF ( oError:genCode == EG_ZERODIV )  // by default, division by zero yields zero\n       RETURN 0\n    ENDIF\n\n\n[quote=&quot;thefull&quot;:2197a890]\ncuando realizas divisiones entre int / double, es decir 1 / 0.0,  1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.\n[/quote:2197a890]\n\n[quote=&quot;Antonio Linares&quot;:2197a890]Acabo de probar este test con el build más reciente de Harbour, y NO se cae la aplicación. Deben haber arreglado lo que comentas. Lo que si es que el valor que muestra es incorrecto:\n\n[code:2197a890]\nfunction Main&#40;&#41;\n\n   Alert&#40; &quot;antes&quot; &#41;\n   Alert&#40; 2 / 0&#46;0 &#41;\n   Alert&#40; &quot;despues&quot; &#41;\n\nreturn nil\n[/code:2197a890][/quote:2197a890][/quote:2197a890]\n\nPues si el valor es incorrecto, no esta bien <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->. Por cierto, pregunta tambien por el ValType( 2 / 0.0 ), creo que tambien se iba por los caminos de ubeda <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gIA=','2197a890',1,0,'',24,0,0),(1611,414,4,13,0,'213.76.252.200',1131381575,1,0,1,1,1,0,'','','Antonio,\n\nI modify SetOkButton with this (empty menu bar):\n\n[code:3h9hq86g]\n#pragma BEGINDUMP \n\n#include &lt;hbapi&#46;h&gt; \n#include &lt;windows&#46;h&gt; \n#include &lt;aygshell&#46;h&gt; \n\nHB_FUNC &#40;SETOKBUTTON&#41; \n\n&#123; \n   \n   HWND hDlg = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n\n   SHINITDLGINFO shidi; \n\n   shidi&#46;dwMask  = SHIDIM_FLAGS; \n   shidi&#46;hDlg    = hDlg;\n   shidi&#46;dwFlags = SHIDIF_DONEBUTTON|SHIDIF_SIZEDLGFULLSCREEN; \n\n   SHInitDialog &#40;&amp;shidi&#41;; \n\n   SHMENUBARINFO mbi;\n\n   memset&#40;&amp;mbi, 0, sizeof &#40;SHMENUBARINFO&#41;&#41;;\n   mbi&#46;cbSize = sizeof &#40;SHMENUBARINFO&#41;;\n   mbi&#46;hwndParent = hDlg;\n   // mbi&#46;hInstRes = g_hInst; // ???\n   mbi&#46;dwFlags = SHCMBF_EMPTYBAR; \n   SHCreateMenuBar &#40;&amp;mbi&#41;;\n\n&#125;    \n\n#pragma ENDDUMP\n[/code:3h9hq86g]\n\nDialog is now perfect.\n\nBest regards\nPawel','',0,'AIA=','3h9hq86g',1,0,'',13,0,0),(1612,380,4,150,0,'80.58.33.235',1131381806,1,0,1,1,1,1,'','','Hello:\n\nWhen I use the sample program it does not detect the printer.\n\nUsing the bluetooth program I see the printer.\n\nBut I can´t print in it.\n\nUsing one program form HP I can send a file to the printer and it works\n\nI will test more things but I know almost nothing about bluetooth','',0,'AIA=','3jjarkyb',1,0,'',150,0,0),(1613,428,20,263,0,'87.3.189.50',1131382459,1,0,1,1,1,0,'','creazione file word da fwh','Come vi ricorderete, tempo fa sono stato derubato (haime <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> ) del portatile e dei supporti usb dove custodivo i backup dell\'unica applicazione sviluppata.\nHo trascroso praticamente l\'estate a risriverla (in compenso l\'ho molto migliorata <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ), quello che vorrei modificare è l\'uso della stampa unione di word sostituendola con la creazione direttamente dall\'applicatico del file word da stampare.\nDomande:\n1) occorre sempre hbole.lib (uso fw23c e Harbour)?\n2) qualcuno ha un esempio su come costruire questo file?\n3) devo aggiornare qualcosa?\n\nGrazie\ngiovanni cacciotti','',0,'AIA=','ze287859',1,0,'',263,0,0),(1614,344,18,137,0,'151.38.8.195',1131386391,1,0,1,1,1,0,'','','Ok, it works. CLIPPER declaration in my mgetcreate.c was dropping the underscore, with HB_FUNC it works.\n\nMany thx to you and Herman Diego\n\nRoberto Parisi','',0,'AIA=','kxb4leh7',1,0,'',137,0,0),(1615,396,6,43,0,'201.127.3.83',1131390259,1,0,1,1,1,0,'','','Hola Carlos.\n\n   Recien instale verce 4.2 y me arroja el siguiente error:\n   \n         Unable to execute command: C:\\Satpwin\\Res\\SatpWin.res\n\n   mis recursos estan en .RC y lo estoy señalando, me podrias orientar para ver mi error.\n\nSaludos.\n\n  Marco A. Delgado. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','n87vx9yo',1,0,'',43,0,0),(1616,157,1,264,0,'64.116.212.96',1131392371,1,0,1,1,1,0,'','','Rene:\ntu sabes, o existe algun ejemplo, para rescatar los correos ? los correos que recibo siempre tienen caracteres raros , ej: cambia los \"?\" por \"2Ea=\" o cosas como esas ?\nexiste la lectura a lo menos para archivos de texto. ?\nEstoy usando la TSmtp de LKM pero la TPop3 no tiene ejemplos.\nAgradeceria tu respuesta \nJulio Gonzalez V.\nRANDOM S.A.','',0,'AIA=','11qdxwfc',1,0,'',264,0,0),(1617,29,1,264,0,'64.116.212.96',1131392651,1,0,1,1,1,0,'','','antonio, gracias.\nlogré colorear las letras sin interferir con el fondo, pues cada vez que intentaba usar el fondo ( mi tecnica anterior ) todo se volvio negro.\npero use esas ayudas y logré superarlo.\nSaludos','',0,'AIA=','3on2ntcm',1,0,'',264,0,0),(1618,396,6,255,0,'200.67.134.233',1131392655,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:1m1n94i0]Hola Carlos.\n\n   Recien instale verce 4.2 y me arroja el siguiente error:\n   \n         Unable to execute command: C:\\Satpwin\\Res\\SatpWin.res\n\n   mis recursos estan en .RC y lo estoy señalando, me podrias orientar para ver mi error.\n\nSaludos.\n\n  Marco A. Delgado. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->[/quote:1m1n94i0]\n\nContáctame por correo privado por favor.\nSi alguien mas tiene este error, por favor háganmelo\nsaber por correo privado.\n\nSaludos\n<!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->','',0,'gA==','1m1n94i0',1,0,'',255,0,0),(1619,414,4,2,0,'80.58.2.107',1131393778,1,0,1,1,1,1,'','','Pawel,\n\nVery good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3e8euq69',1,0,'',2,0,0),(1620,406,2,264,0,'64.116.212.96',1131393835,1,0,1,1,1,0,'','Faltan las DLLs','hola.\ntal como indican es facil la migracion, segun yo, faltaria una forma mas natural de migrar DLLs de 16 a 32 Bits.\nLa forma sugerida actual no es muy natural y a veces no da los resultados que uno espera, de echo, yo debe sacar varios BMP para poder re-compilar la dll a 32 bits.\nSaludos','',0,'gA==','6usa5ug3',1,0,'',264,0,0),(1621,413,6,255,0,'200.67.134.233',1131393837,1,0,1,1,1,1,'','','[quote=&quot;goosfancito&quot;:2790edvi]La verdad que no se ni que es.-\n\nPodrias ayudarme? gracias[/quote:2790edvi]\n\nÉchale un vistazo\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->','',0,'gA==','2790edvi',1,0,'',255,0,0),(1622,380,4,2,0,'80.58.2.107',1131393992,1,0,1,1,1,1,'','','Jose,\n\nBlueTooth works as a standard COM port. OutPort is 8 and InPort is 7.\n\nIf you do a: \n\n   local hOut := BlueOut()\n\n   MsgInfo( Str( hOut ) )  \n\n   CloseComm( hOut )\n\nthen you should see the value of the handle of the port. Please try it and let us know what numeric value you get. Thanks.','',0,'gA==','ay4qtg6m',1,0,'',2,0,0),(1623,429,1,148,0,'62.135.38.16',1131394333,1,0,1,1,1,0,'','Combo Box and DBF fields','How can I use Combo Box to enter a value from a dbf field ?','',0,'gA==','jrljjg01',1,0,'',148,0,0),(1624,380,4,150,0,'80.58.33.235',1131394569,1,0,1,1,1,1,'','','Hello\n\nI get -1\n\nThanks Antonio','',0,'gA==','20akvdi9',1,0,'',150,0,0),(1625,428,20,6,0,'82.58.168.87',1131394626,1,0,1,1,1,1,'','Re: creazione file word da fwh','1) Sì.\n\n2) Sì, comincia con questo:\n\n[code:2fo7cpwv]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord, oDoc\n\n    oWord = TOleAuto&#40;&#41;&#58;New&#40; &quot;Word&#46;Application&quot; &#41;\n\n    oDoc = oWord&#58;Documents&#58;Add&#40;&#41;\n\n    oDoc&#58;Range&#58;InsertAfter&#40; &quot;This is a test&quot; &#41;\n\n    oDoc&#58;SaveAs&#40; &quot;c&#58;\\xharbour\\NewDocument&#46;doc&quot; &#41;\n\n    oWord&#58;Quit&#40;&#41;\n\n    oWord&#58;End&#40;&#41;\n\n    RETURN NIL[/code:2fo7cpwv]\n\n3) Non credo.\n\nEMG','',0,'AIA=','2fo7cpwv',1,0,'',6,0,0),(1626,430,2,129,0,'201.239.148.33',1131394727,1,0,1,1,1,0,'','ayuda para saber la tecla','Amigos esta funcion la copie de un demo, me sirve con tsbrowse, para cuando presione enter,me traiga la opcion de editar el producto, pero le quiero agregar la opcion de la tecla delete, y no me reconoce la tecla.\n\n// esto esta ok\nFunction Tecla105(nkey,olbx1)\n   Local nAccion\n   nAccion:=ascan({VK_RETURN},nkey)\n   if nAccion==1\n      EditArticulo(.F.,oLbx1)\n   endif\nReturn nil\n\n// quiuero esto pero no me funciona\n\nFunction Tecla105(nkey,olbx1)\n   do case\n       case nkey==13\n          Editarticulo(.f.,olbx)\n       case nkey==46\n          delarticulo(olbx)\n   endcase\nReturn nil','',0,'AIA=','17a732tf',1,0,'',129,0,0),(1627,431,2,265,0,'80.58.18.235',1131395776,1,0,1,1,1,0,'','Ayuda para correo','Hola amigos:\nA ver si me sacais del apuro; Necesito descargar en fase automática correo electrónico de un proveedor, siempre viene un fichero adjunto, y luego mi aplicación se encarga de tratar esos datos.\nComo no va a haber un operador para decir al Outlook que el fichero adjunto lo guarde en tal dirección, necesito saber cómo descargar el correo y guardar el adjunto.\nLo puede hacer el blat ?\nUtilizo la clase TSmtp ?\nComo ?\n\nDadme alguna idea por favor\n\nUn Saludo\n\nJose Luis','',0,'AIA=','ydbb5bgg',1,0,'',265,0,0),(1628,411,6,10,0,'212.40.255.188',1131398061,1,0,1,1,1,0,'','','Saludos a todos.\n\nAntonio:\nGracias por tu información.\n\nNo me quiero quedar en el tintero que nos podías haber avisado de que la oferta se terminaba (lo mismo lo hicistes y no vi esa información, en ese caso mis disculpas).\n\nEn fin..., \"ajo y agua\".\n\nUn saludo de nuevo.','',0,'AIA=','1fs5629p',1,0,'',10,0,0),(1629,432,3,29,0,'80.181.108.140',1131399889,1,0,1,1,1,0,'','Detecting Windows XP 64bit','Hi,\nis there a way to detect if Windows XP64 is running (working with FWH26 and XHB)?\n\nIs the current FWH version compatible with this new OS ?\n\nThanks in advance\n\nRegards,\n\nMarco','',0,'AIA=','1j9bzvkv',1,0,'',29,0,0),(1630,432,3,6,0,'82.58.168.87',1131400312,1,0,1,1,1,1,'','Re: Detecting Windows XP 64bit','IsWin64()\n\nEMG','',0,'AIA=','1uxfyplk',1,0,'',6,0,0),(1631,408,3,177,0,'62.99.102.81',1131400684,1,0,1,1,1,0,'','','Antonio,\n\ndo you know <!-- m --><a class=\"postlink\" href=\"http://gnuwin32.sourceforge.net/packages/pdflib.htm\">http://gnuwin32.sourceforge.net/packages/pdflib.htm</a><!-- m --> ?\n\nRegards.','',0,'AIA=','17pqqham',1,0,'',177,0,0),(1632,408,3,167,0,'64.91.111.141',1131401559,1,0,1,1,1,1,'','','I\'m looking for a process to create a .pdf file from the Fivewin EMF / WMF formats produced for the Fivewin previewer.  \n\nI have a web application which creates reports using the standard fivewin report objects, but, I need to save the output ( .EMF file ) to a .PDF file and deliver over the web.\n\nWill this tool perform a seamless conversion from the .EMF file to .PDF?','',0,'AIA=','231y8w8g',1,0,'',167,0,0),(1633,433,6,49,0,'87.1.179.41',1131402332,1,0,1,1,1,0,'','Qftp','I not found Qftp for xharbour\ncan you send me at my private email pls\nRegards','',0,'AIA=','38kye20m',1,0,'',49,0,0),(1634,434,6,12,0,'200.88.146.223',1131410599,1,0,1,1,1,1,'','Error al compilar con xharbour 0.99.51 y FWH 2.6 Build Sept','Me da este error al tratar de compilar mi aplicación\nUso FWH 2.6 Septiembre, xHarbour 0.99.51 Version FiveTech. y VERCE 4.1\n\n[img:3lclfbdh]http&#58;//www&#46;lotenet&#46;com/error&#46;jpg[/img:3lclfbdh]','',0,'CA==','3lclfbdh',1,0,'',12,0,0),(1635,429,1,74,0,'201.255.141.68',1131416188,1,0,1,1,1,1,'','','Ehab:\n\n         Up to 256 elements:\n\nLocal aRubro:=CARGACOMBO( .f., \"RUBRO\",2,\"NOMBRE\" )\n\n	REDEFINE COMBOBOX oRubro     VAR cRubro     ITEMS aRubro             ID 111 OF oFld:aDialogs[1]\n\nFunction CARGACOMBO(VACIO,XARCH, XORDEN, XCAMPO)\n\n  Local ORD_ACT, AREA_ACT := SELECT()\n	Local VECTOR:={}\n	DBSELECTAR(XARCH)\n	ORD_ACT = INDEXORD()\n	SET ORDER TO XORDEN\n	DBGOTOP()\n	IF VACIO\n	   AADD(VECTOR,SPACE(LEN(EVAL(FIELDBLOCK(XCAMPO)))))\n	ENDIF\n	DO WHILE !(XARCH)-&gt;(EoF())\n		AADD(VECTOR,EVAL(FIELDBLOCK(XCAMPO)))\n		(XARCH)-&gt;(DbSkip())\n	ENDDO\n	SET ORDER TO ORD_ACT\n	SELECT(AREA_ACT)\n\nRETURN VECTOR\n\nRegards,','',0,'','2f51q4gj',1,0,'',74,0,0),(1636,430,2,74,0,'201.255.141.68',1131416727,1,0,1,1,1,1,'','','Luis:\n\n        El codigo de la tecla DEL es 7, fijate en fwxx\\include\\inkey.ch:\n\n#define K_DEL               7   //   Del, Ctrl-G\n\n        Esto es para wbrowse, pero podrias adaptarlo al equivalente para la tsbrowse:\n\noBrw:bkeydown:={|nk| Teclas(nk,oBrw3,oBrw,walias) }\n\nSTATIC FUNCTION Teclas(nk,oBrw3,oBrw,walias)\n\n	 if nK==VK_INSERT\n			SALIDAS()\n	 elseif nK==VK_F5\noBrw3:Refresh() ; oBrw:Refresh()\n	 elseif nK==VK_F6\n Copia_Presu() ; Refre3() ; oBrw3:Upstable() ; oBrw3:Refresh()\n	 elseif nK==VK_RETURN\n	 	 EditaCelda(oBrw,oBrw:nColAct,LLOFACT-&gt;PENDIENTE,.T.,wAlias )\n	 endif\n\nRETURN NIL\n\n\nSaludos,','',0,'','26fmrpd6',1,0,'',74,0,0),(1637,435,6,52,0,'201.235.155.110',1131418449,1,0,1,1,1,1,'','INTERBASE','Amigos:\n\nFiveWin Harbour soporta INTERBASE? existe algún ejemplo? gracias.','',0,'','3ij37ojx',1,0,'',52,0,0),(1638,434,6,215,0,'201.137.125.166',1131419096,1,0,1,1,1,0,'','Re: Error al compilar con xharbour 0.99.51 y FWH 2.6 Build S','Pablo,\nusa la nueva versión Verce 4.2','',0,'','z1k8eds1',1,0,'',215,0,0),(1639,434,6,2,0,'80.58.2.107',1131425166,1,0,1,1,1,1,'','','Pablo,\n\nAhora hay que enlazar las librerías DBFFPT.lib y HBSIX.lib y quitar la DBFDBT.lib que ya no existe.\n\nEl error _hb_stack es que necesitas una nueva fivehc.lib que tienes que pedirnos por email.','',0,'','24l519ln',1,0,'',2,0,0),(1640,435,6,2,0,'80.58.2.107',1131425325,1,0,1,1,1,1,'','','Gustavo,\n\nDeberías poder usarlo con ODBC.','',0,'','2u8nk4qu',1,0,'',2,0,0),(1641,436,7,179,0,'200.25.180.199',1131426465,1,0,1,1,1,1,'','abrir tablas con driver DbfNtx','Antonio, no hallo la manera de abrir tablas Dbf con driver dbfntx y dbfcdx\n\nUse \'Storage Card\\Producto\' New Alias Producto\n\no \nUse \'Storage Card\\Producto.Dbf\' New Alias Producto\n\no\n\nGlb_Work := Curdir() +\'\\\'\n\nUse (Glb_Work + \"Producto\") New Alias Producto\n\nme da siempre el error\n\nOpen Error \nStack Calls\nDbUseArea(0)\n\nhe probado con los drivers DbfNtx y DbfCdx\nel directorio compartido esta en\n\nc:\\wilson\\jc\\pocket\n\ntiene eso algo que ver\n\nGracias\n\nAtt.','',0,'','45j36vmt',1,0,'',179,0,0),(1642,429,1,9,0,'62.174.202.39',1131428693,1,0,1,1,1,0,'','dbCombo','Ehah\n\nYou can use \\source\\classes\\dbcombo.prg\n\nRegards','',0,'','oif53d1y',1,0,'',9,0,0),(1643,376,6,132,0,'83.213.45.32',1131433842,1,0,1,1,1,1,'','Error al cerrar','Uso, xHarbour 0.92.0 y BCC55','',0,'','1fop1g4u',1,0,'',132,0,0),(1644,366,20,76,0,'80.17.137.201',1131434787,1,0,1,1,1,1,'','ok!','Grazie Enrico!\nIl problema è stato corretto nella maniera da te indicata.\na presto.','',0,'','2ksjbqj7',1,0,'',76,0,0),(1645,365,3,76,0,'80.17.137.201',1131435031,1,0,1,1,1,1,'','ok!','ok, it plays.\nBut if there isn\'t a disk in the floppy, how to exit the function? I haven\'t found a valid solution.\n\nregards','',0,'','z4tqr17k',1,0,'',76,0,0),(1646,408,3,29,0,'80.181.108.140',1131436584,1,0,1,1,1,0,'','','Did you try the <!-- w --><a class=\"postlink\" href=\"http://www.amyuni.com\">www.amyuni.com</a><!-- w --> printer driver ?\n\nThis company has a roy-free printer driver with the pdf creation feature (and many other features like \"save to rtf\", \"gif\",\"jpg\"... )\n\nThe end-user never see the printer driver because it appair only in background when you redirect the print on that print driver.\n\nMarco','',0,'','cxhlapzr',1,0,'',29,0,0),(1647,432,3,2,0,'80.58.2.107',1131440086,1,0,1,1,1,1,'','Re: Detecting Windows XP 64bit','[quote=&quot;Marco Turco&quot;:9v2x5ito]Is the current FWH version compatible with this new OS ?[/quote:9v2x5ito]\nYes. \n\nWe also have a FWH64 in case you want to deliver native 64 bits applications <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','9v2x5ito',1,0,'',2,0,0),(1648,436,7,2,0,'80.58.2.107',1131440403,1,0,1,1,1,1,'','','Wilson,\n\nSi revisas samples\\tutor10.prg verás que hacemos:\n\n   USE \"Storage card\\Customer\" VIA \"DBFCDX\"\n\ny funciona correctamente. Te recomiendo que pruebes este ejemplo primero, que debe funcionarte bien, para asegurarnos de que no se trate de otra cosa.','',0,'gA==','1e6ug876',1,0,'',2,0,0),(1649,376,6,2,0,'80.58.2.107',1131440714,1,0,1,1,1,1,'','','Alfonso,\n\nEsa versión de xharbour es bastante antigua ya (en relación a la versión actual, no al tiempo) <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nte recomiendo que descargues la versión más reciente y vuelvas a probar tu aplicación.','',0,'gA==','m4oqzica',1,0,'',2,0,0),(1650,380,4,2,0,'80.58.2.107',1131441247,1,0,1,1,1,1,'','','Jose,\n\nCould you check if your bluetooth out port is located at COM8: ?','',0,'gA==','1km3lj5k',1,0,'',2,0,0),(1651,437,6,17,0,'81.41.208.48',1131442725,1,0,1,1,1,1,'','hbzip.LIB de xHarbour 0.99.51','Alguien sabe de donde descargar las contribuciones de xHarbour compiladas con la versión 0.99.51, resulta que las que están en <!-- w --><a class=\"postlink\" href=\"http://WWW.XhARBOUR.ORG\">WWW.XhARBOUR.ORG</a><!-- w --> son de la versión 0.99.50 y claro, al compilar todo me da error de hb_stack en la libreria hbzip.lib\n\nQuien me puede enviar hbzip.lib compilada con la versión 0.99.51 o decirme de donde la puedo descargar\n\nMuchas gracias y un saludo','',0,'gA==','32ddwqzp',1,0,'',17,0,0),(1652,414,4,133,0,'80.176.234.174',1131445041,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:offlgo50]Pawel,\n\nIts a little more complex than that, but we already got it working <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThere is a new FWPPC build ready to be downloaded. Please review samples\\okbutton.prg working sample to see how to use it.[/quote:offlgo50]\n\nAntonio,\n\nHow can I get the OK button to close the current WINDOW when using nested windows. \n\nThe code in samples\\okbutton.prg changes the \"X\" to an \"OK\" but nothing happens when I click the \"OK\"\n\nI am using \n[code:offlgo50]\nACTIVATE WINDOW oWnd ON INIT SetOkButton&#40;oWnd&#58;hWnd&#41;\n[/code:offlgo50]','',0,'gIA=','offlgo50',1,0,'',133,0,0),(1653,414,4,2,0,'80.58.2.107',1131446623,1,0,1,1,1,1,'','','GWard,\n\nThe OK button at the top-right corner closes the window. Anyhow we are going to test nested.prg with that code to see how it behaves.','',0,'gIA=','1o7f8l22',1,0,'',2,0,0),(1654,414,4,2,0,'80.58.2.107',1131448318,1,0,1,1,1,1,'','','GWard,\n\nYou may download a new FWPPC build that works ok with \"doneButton\" and windows. Please review samples\\nested.prg sample.','',0,'gIA=','j15mevrb',1,0,'',2,0,0),(1655,380,4,150,0,'80.58.35.235',1131448675,1,0,1,1,1,1,'','','Hello Antonio\n\nI don´t have the pda here, but I thing that the output port was COM5:\n\nI will call my client and confirm you that.\n\nThe pda is Symbol 8800 with codebar scanner and the printer Star with a paralel to bluetooth adaptor.','',0,'gIA=','2cqrwcun',1,0,'',150,0,0),(1656,414,4,133,0,'80.176.234.174',1131450181,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3lj7umqc]GWard,\n\nYou may download a new FWPPC build that works ok with \"doneButton\" and windows. Please review samples\\nested.prg sample.[/quote:3lj7umqc]\n\nAntonio,\n\nExcellent!!!\n\nMany thanks.\n\nYour product is opening up many possibilities for me.','',0,'gA==','3lj7umqc',1,0,'',133,0,0),(1657,414,4,2,0,'80.58.2.107',1131450253,1,0,1,1,1,1,'','','GWard,\n\nWe are glad to know that you are satisfied with FWPPC <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','86ktxr39',1,0,'',2,0,0),(1658,414,4,133,0,'80.176.234.174',1131450444,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:12l6mih8]GWard,\n\nWe are glad to know that you are satisfied with FWPPC <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:12l6mih8]\n\nAntonio,\n\nI will be overjoyed once MULTISEL is implimented <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','12l6mih8',1,0,'',133,0,0),(1659,438,5,26,0,'213.250.59.58',1131451428,1,0,1,1,1,1,'','Wheel button behaviour','Hello!\n\nI\'m testing sample testbrow.prg with wheel mouse.\nScrolling down/up is working ok until I move mouse\nover horizontal scrollbar. After that, when I move \nwheel button, browse is scrolling right/left.\n\nI compared this behaviour with other applications\nand I noticed that for example Opera has the same\nbehaviour but Microsoft apps (IE, Word, Excel, Explorer) \nalways interpret wheel moving as scrolling down/up. \nIs it possible to customize this behaviour (I prefer \nmicrosoft way of scrolling)? Can I do it myself or FW lib\nmust be changed?\n\nBest regards, Roman\n\nPS. I noticed that this sample does not work \nwith 16-bit Clipper FW (when I move wheel\nin whatever direction, browse is always scrolling\ndown). Do you plan to remove this bug?','',0,'gA==','22umwrdp',1,0,'',26,0,0),(1660,431,2,264,0,'64.116.212.96',1131451636,1,0,1,1,1,0,'','','utiliza la clase modificada de Luis Krause M. la encuentras en\n <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/downloads.php?category=FiveWin%20users%20contributions&amp;id=299\">http://www.fivewin.info/html/downloads. ... ons&amp;id=299</a><!-- m -->\n\nyo estoy luchando para realizar descargas con la tpop3, cualquier avance te aviso.\n\nsaludos','',0,'gA==','1f0taqut',1,0,'',264,0,0),(1661,439,3,49,0,'62.13.172.78',1131451872,1,0,1,1,1,0,'','Insert ,Modify or query on Mdb file','I make this test program :\n[code:2ze52cuo] function CategoM&#40;&#41;\n   local oDlg ,oWnd ,oLbx\n   Local  oDbf\n   local aData &#58;= &#123;&#125;\n   Local nFor, oOdbc\n\n   SET 3D LOOK ON\n\n  * oOdbc &#58;= TOdbc&#40;&#41;&#58;New&#40;&quot;Database di Microsoft Access&quot;, &quot;&quot;, &quot;&quot;&#41;\n     oOdbc &#58;= TOdbc&#40;&#41;&#58;New&#40;&quot;Mwwind&quot;, &quot;&quot;, &quot;&quot;&#41;\n   If !oOdbc&#58;lSuccess\n      oOdbc&#58;ShowErrorList&#40;&quot;Sessione ODBC non inizializzata , Errore&#46;&#46;&#46;&quot;&#41;\n      oOdbc&#58;End&#40;&#41;\n      return nil\n   Endif\n\n   // Apro la tabella direttamente\n\n   oDbf &#58;= TDbOdbcDirect&#40;&#41;&#58;new&#40; &quot;SELECT * FROM SCategorie&quot; , oOdbc&#41;\n\n  if oOdbc&#58;IsError&#40;&#41;\n      oOdbc&#58;ShowErrorList&#40;&#41;\n      oOdbc&#58;aErrors &#58;= &#123;&#125;\n      oDbf&#58;End&#40;&#41;\n      return nil\n   endif\n\n   oDbf&#58;Open&#40;&#41;\n   oDbf&#58;Complete&#40;&#41;\n\n  // Creo il list box e i bottoni\n\n\n        DEFINE DIALOG oDlg FROM 3, 3 TO 28, 79 TITLE &quot;Gestione Categorie&quot;\n         @ 0,  1 SAY &quot; &amp;List&quot;  OF oDlg\n         @ 1, 1 LISTBOX oLbx FIELDS  str&#40;oDbf&#58;FieldGet&#40;1&#41;&#41;, oDbf&#58;FieldGet&#40;2&#41;  ;\n                             HEADER &quot;Codice&quot;, &quot;Categoria&quot; ;\n                             SIZE 284, 137 OF oDlg\n\n\n   @ 9,  1 BUTTON &quot;&amp;Nuovo&quot;    OF oDlg  SIZE 40, 12  action insercatm&#40;oDbf&#41;\n   @ 9,  8 BUTTON &quot;&amp;Modifica&quot; OF oDlg  SIZE 40, 12\n   @ 9, 15 BUTTON &quot;&amp;Cancella&quot; OF oDlg  SIZE 40, 12\n   @ 9, 22 BUTTON &quot;&amp;Ricerca&quot; OF oDlg  SIZE 40, 12\n   @ 9, 29 BUTTON &quot;&amp;Stampa&quot;  OF oDlg  SIZE 40, 12\n   @ 9, 40 BUTTON &quot;&amp;Uscita&quot;   OF oDlg ACTION oDlg&#58;End&#40;&#41;         SIZE 40, 12\n\n   ACTIVATE DIALOG oDlg\n      oDbf&#58;End&#40;&#41;\n   oOdbc&#58;End&#40;&#41;\n\nRETURN &#40;NIL&#41;\n\n[/code:2ze52cuo]\n\n\n\nNow I must create the Insert Module ( I read FiveOdbc guide) \n[code:2ze52cuo]\n   Function insercatm&#40;oDbf&#41;\noDbf&#58;AddNew&#40;&#41;\noDbf&#58;Codice &#58;= 1\n\noDbf&#58;Categoria &#58;= &quot;Mysilvio&quot;\noDbf&#58;Update&#40;&#41;\n\n\n      return nil[/code:2ze52cuo]\n\n\n\nit not run ..why ?','',0,'AIA=','2ze52cuo',1,0,'',49,0,0),(1662,440,6,49,0,'62.13.172.78',1131452086,1,0,1,1,1,0,'','FIVEODBC','I make tests but it not run \nI can Sho w a mdb files on listbox but i cannot edit or insert a record \nI read Fiveodbc but there is not a test program \nSome can explain me how can I insert a record into Mdb file  with xharbour and fivewin \nregards','',0,'AIA=','k3ww9ipj',1,0,'',49,0,0),(1663,438,5,2,0,'80.58.2.107',1131452616,1,0,1,1,1,1,'','','Roman,\n\nThe behavior you described has been coded that way. When you are close to the horizontal scrollbar, then we use the wheel to move left and right. The source code is in Class TWBrowse and it can be easily modified.\n\nIn 16 bits there is no support for mouse wheel. It only report movement in one direction. No way to fix it.','',0,'AIA=','3231lp4e',1,0,'',2,0,0),(1664,221,4,68,0,'203.45.174.65',1131454858,1,0,1,1,1,1,'','','Antonio,\nMy user registration scheme is now working using the registry functions.  I simply discard the extra characters that are read, no worries.  I have used hbcrypt to encrypt the values stored in the registry and instead of searching for a real device serial number have used a random generated number instead, written on first startup. Thanks.\nBTW - I hope that DatePick is on your todo list... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nregards','',0,'AIA=','3omlxs60',1,0,'',68,0,0),(1665,427,6,88,0,'82.150.2.18',1131455075,1,0,1,1,1,1,'','','Gracias Adolfo por la informacion. \n\nMuy agradecido.\n\n\n\nNos leemos!!','',0,'AIA=','3vheebgo',1,0,'',88,0,0),(1666,441,1,204,0,'83.235.96.14',1131455957,1,0,1,1,1,0,'','Non showing DIALOG resource','I’m tiring to load a DIALOG from a RC script (inside the EXE) and or a DLL file. The problem is that nothing happens, the DIALOG doesn’t show up at all. It’s like the code is not there.. \nI designed the DIALOG in WorkShop 4.5. I used Microsoft’s RC.EXE v3.1 to link the RC file into the EXE. For the DLL I had to open and save a copy of screens.dll (from FW\\DLL) with Symantec’s Resource Editor (from the FW site) and then work with it in WorkShop (unsupported file format when saving the original DLL). I also added icons and bitmaps which load fine from both files. The only problem is the DIALOG resource. All test PRG from the samples directory that use DLL DIALOGS when I link them work fine event he RC ones.\nHere is what I have\n\nRC Script from DLL\n[code:20t7bk01]\nFORM_2 DIALOG 10, 18, 210, 123\nSTYLE DS_MODALFRAME | WS_CHILD | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Dialog&quot;\nFONT 10, &quot;Arial&quot;\n&#123;\n LTEXT &quot;&#933;&#960;&#940;&#955;&#955;&#951;&#955;&#959;&#962;&quot;, 101, 6, 9, 38, 8, NOT WS_GROUP\n COMBOBOX 201, 50, 7, 83, 40, CBS_DROPDOWNLIST\n EDITTEXT 210, 50, 7, 77, 11, ES_READONLY | WS_DISABLED | WS_BORDER | WS_TABSTOP\n LTEXT &quot;&#919;&#956;&#949;&#961;&#959;&#956;&#951;&#957;&#943;&#945;&quot;, 102, 6, 22, 40, 8, NOT WS_GROUP\n EDITTEXT 202, 50, 21, 45, 10, ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER\n GROUPBOX &quot;&#920;&#941;&#963;&#951; &#934;&#945;&#954;&#941;&#955;&#959;&#965;&quot;, 103, 6, 36, 199, 22, BS_GROUPBOX\n RADIOBUTTON &quot;&#947;&#953;&#945; &#941;&#955;&#949;&#947;&#967;&#959;&quot;, 203, 11, 46, 42, 10, BS_AUTORADIOBUTTON | WS_GROUP\n RADIOBUTTON &quot;&#963;&#964;&#959; &#957;&#964;&#959;&#965;&#955;&#940;&#960;&#953;&quot;, 204, 80, 46, 50, 10, BS_AUTORADIOBUTTON\n RADIOBUTTON &quot;&#940;&#947;&#957;&#969;&#963;&#964;&#951;&quot;, 205, 150, 46, 39, 10, BS_AUTORADIOBUTTON\n LTEXT &quot;&#916;&#949;&#954;&#964;&#972;&quot;, 104, 6, 65, 29, 8, NOT WS_GROUP\n PUSHBUTTON &quot;&#927;&#967;&#953;&quot;, 206, 52, 64, 28, 10, NOT WS_TABSTOP\n LTEXT &quot;&#928;&#945;&#961;&#945;&#964;&#951;&#961;&#942;&#963;&#949;&#953;&#962;&quot;, 105, 6, 77, 49, 11, NOT WS_GROUP\n EDITTEXT 207, 6, 88, 199, 28, ES_MULTILINE | ES_AUTOHSCROLL | NOT WS_TABSTOP | WS_BORDER\n PUSHBUTTON &quot;&#917;&#957;&#964;&#940;&#958;&#949;&#953;&quot;, 208, 153, 7, 50, 11, NOT WS_TABSTOP\n PUSHBUTTON &quot;\\xA2&#954;&#965;&#961;&#959;&quot;, 209, 153, 21, 50, 12, NOT WS_TABSTOP\n&#125;\n[/code:20t7bk01]\n\nPRG file\n[code:20t7bk01]\nSTATIC PROCEDURE UpDateF2&#40;cTitle, nNumber&#41;\n  LOCAL oF2_Dlg, aF2Ctrls &#58;= ARRAY&#40;8&#41;, aHreosiLst, lShow &#58;= &#46;f&#46;, nRDMnu\n\n  SELECT IFTHRE\n  SET ORDER TO nNumber\n  DBGOTOP&#40;&#41;\n  aHreosiLst &#58;= &#123;&#125;\n  DO WHILE !EOF&#40;&#41;\n    AADD&#40;aHreosiLst, OemToAnsi&#40;IFTHRE-&gt;NAME&#41;&#41;\n    DBSKIP&#40;1&#41;\n  ENDDO\n  SELECT FOLDER\n\n  DEFINE DIALOG oF2_Dlg NAME &quot;FORM_2&quot; FONT oMainFont TITLE cTitle\n\n    IF lShow\n      REDEFINE GET aF2Ctrls&#91;2&#93; VAR aForms2&#91;nNumber, IFT_HREOSI&#93; ID 210 OF oF2_Dlg READONLY\n    ELSE\n      REDEFINE COMBOBOX aF2Ctrls&#91;1&#93; VAR aForms2&#91;nNumber, IFT_HREOSI&#93; ITEMS aHreosiLst ID 201 OF oF2_Dlg\n      aF2Ctrls&#91;1&#93;&#58;nAT &#58;= &#40;ASCAN&#40;aHreosiLst, aForms2&#91;nNumber, IFT_HREOSI&#93;&#41;&#41;\n    ENDIF\n    REDEFINE GET aF2Ctrls&#91;3&#93; VAR aForms2&#91;nNumber, IFT_LDATE&#93; ID 202 OF oF2_Dlg\n  \n    nRDMnu &#58;= IIF&#40;aForms2&#91;nNumber, IFT_UNKNOWN&#93;, 1, IIF&#40;aForms2&#91;nNumber, IFT_CLASET&#93;,2,3&#41;&#41;\n    REDEFINE RADIO aF2Ctrls&#91;4&#93; VAR nRDMnu ID 203, 204, 205 OF oF2_Dlg\n  \n    REDEFINE BUTTON aF2Ctrls&#91;5&#93; ID 206 ACTION &#40;aForms2&#91;nNumber, IFT_STATUS&#93; &#58;= !aForms2&#91;nNumber, IFT_STATUS&#93;, aF2Ctrls&#91;7&#93;&#58;SetText&#40;OemToAnsi&#40;IIF&#40;aForms2&#91;nNumber, IFT_STATUS&#93;,&quot;&#140;&#152; &quot;, &quot;&#142;® &quot;&#41;&#41;&#41;&#41; OF oF2_Dlg\n\n//    REDEFINE GET aF2Ctrls&#91;6&#93; VAR aForms2&#91;nNumber, IFT_NOTES&#93; MEMO ID 207 OF oF2_Dlg ON CHANGE MemoLenChk&#40;120, nKey, nFlags, Self&#41;\n\n    REDEFINE BUTTON aF2Ctrls&#91;7&#93; ID 208 ACTION &#40;oF2_Dlg&#58;End&#40;&#41;&#41; OF oF2_Dlg\n    REDEFINE BUTTON aF2Ctrls&#91;8&#93; ID 209 ACTION &#40;oF2_Dlg&#58;End&#40;&#41;&#41; OF oF2_Dlg\n\n  ACTIVATE DIALOG oF2_Dlg CENTER ON INIT &#40;aF2Ctrls&#91;6&#93; &#58;= TMultiGet&#40;&#41;&#58;ReDefine&#40; 207, &#123; | u | If&#40; PCount&#40;&#41;==0, aForms2&#91;nNumber, 8&#93;, aForms2&#91;nNumber, 8&#93;&#58;= u &#41; &#125;, oF2_Dlg,,,,,,, &#46;F&#46;,, &#46;F&#46;,,&#123;|nKey, nFlags, Self| MemoLenChk&#40;80, nKey, nFlags, Self&#41;&#125; &#41;&#41;\n\n  DO CASE\n  CASE nRDMnu = 1\n    aForms2&#91;nNumber, IFT_UNKNOWN&#93; &#58;= &#46;T&#46;\n    aForms2&#91;nNumber, IFT_CLASET&#93;  &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, IFT_CHKING&#93;  &#58;= &#46;F&#46;\n  CASE nRDMnu = 2\n    aForms2&#91;nNumber, IFT_UNKNOWN&#93; &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, IFT_CLASET&#93;  &#58;= &#46;T&#46;\n    aForms2&#91;nNumber, IFT_CHKING&#93;  &#58;= &#46;F&#46;\n  CASE nRDMnu = 3\n    aForms2&#91;nNumber, IFT_UNKNOWN&#93; &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, IFT_CLASET&#93;  &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, IFT_CHKING&#93;  &#58;= &#46;T&#46;\n  ENDCASE\n\nRETURN\n\n[/code:20t7bk01]\n\nPPO\n[code:20t7bk01]\nSTATIC PROCEDURE UpDateF2&#40;cTitle, nNumber&#41;\n  LOCAL oF2_Dlg, aF2Ctrls &#58;= ARRAY&#40;8&#41;, aHreosiLst, lShow &#58;= &#46;F&#46;, nRDMnu\n\n  dbSelectArea&#40; &quot;IFTHRE&quot; &#41;\n  ordSetFocus&#40; nNumber &#41;\n  DBGOTOP&#40;&#41;\n  aHreosiLst &#58;= &#123;&#125;\n  while !EOF&#40;&#41;\n    AADD&#40;aHreosiLst, OemToAnsi&#40;IFTHRE-&gt;NAME&#41;&#41;\n    DBSKIP&#40;1&#41;\n  ENDDO\n  dbSelectArea&#40; &quot;FOLDER&quot; &#41;\n\n  oF2_Dlg = TDialog&#40;&#41;&#58;New&#40;,,,, cTitle, &quot;FORM_2&quot;,, &#46;F&#46;,,,,,, &#46;F&#46;,, oMainFont,,, &#41;\n\n    IF lShow\n      aF2Ctrls&#91;2&#93; &#58;= TGet&#40;&#41;&#58;ReDefine&#40; 210, &#123; | u | If&#40; PCount&#40;&#41;==0, aForms2&#91;nNumber, 2&#93;, aForms2&#91;nNumber, 2&#93;&#58;= u &#41; &#125;, oF2_Dlg,,,,,,,,, &#46;F&#46;,,, &#46;T&#46;, &#46;F&#46;,,,,&#41;\n    ELSE\n      aF2Ctrls&#91;1&#93; &#58;= TComboBox&#40;&#41;&#58;ReDefine&#40; 201, &#123; | u | If&#40; PCount&#40;&#41;==0, aForms2&#91;nNumber, 2&#93;, aForms2&#91;nNumber, 2&#93;&#58;= u &#41; &#125;, aHreosiLst, oF2_Dlg,,,,,,, &#46;F&#46;,,,,,, &#41;\n      aF2Ctrls&#91;1&#93;&#58;nAT &#58;= &#40;ASCAN&#40;aHreosiLst, aForms2&#91;nNumber, 2&#93;&#41;&#41;\n    ENDIF\n    aF2Ctrls&#91;3&#93; &#58;= TGet&#40;&#41;&#58;ReDefine&#40; 202, &#123; | u | If&#40; PCount&#40;&#41;==0, aForms2&#91;nNumber, 3&#93;, aForms2&#91;nNumber, 3&#93;&#58;= u &#41; &#125;, oF2_Dlg,,,,,,,,, &#46;F&#46;,,, &#46;F&#46;, &#46;F&#46;,,,,&#41;\n\n    nRDMnu &#58;= IIF&#40;aForms2&#91;nNumber, 6&#93;, 1, IIF&#40;aForms2&#91;nNumber, 5&#93;,2,3&#41;&#41;\n    aF2Ctrls&#91;4&#93; &#58;= TRadMenu&#40;&#41;&#58;Redefine&#40; &#123; | u | If&#40; PCount&#40;&#41;==0, nRDMnu, nRDMnu&#58;= u &#41; &#125;, oF2_Dlg,, &#123; 203, 204, 205 &#125;,,,,, &#46;F&#46;,, &#41;\n\n    aF2Ctrls&#91;5&#93; &#58;= OF &#58;= oF2_Dlg &#58;= TButton&#40;&#41;&#58;ReDefine&#40; 206,&#123;||&#40;aForms2&#91;nNumber, 7&#93; &#58;= !aForms2&#91;nNumber, 7&#93;, aF2Ctrls&#91;7&#93;&#58;SetText&#40;OemToAnsi&#40;IIF&#40;aForms2&#91;nNumber, 7&#93;,&quot;&#140;&#152; &quot;, &quot;&#142;® &quot;&#41;&#41;&#41;&#41;&#125;,,,, &#46;F&#46;,,,, &#46;F&#46; &#41;\n\n\n\n    aF2Ctrls&#91;7&#93; &#58;= OF &#58;= oF2_Dlg &#58;= TButton&#40;&#41;&#58;ReDefine&#40; 208,&#123;||&#40;oF2_Dlg&#58;End&#40;&#41;&#41;&#125;,,,, &#46;F&#46;,,,, &#46;F&#46; &#41;\n    aF2Ctrls&#91;8&#93; &#58;= OF &#58;= oF2_Dlg &#58;= TButton&#40;&#41;&#58;ReDefine&#40; 209,&#123;||&#40;oF2_Dlg&#58;End&#40;&#41;&#41;&#125;,,,, &#46;F&#46;,,,, &#46;F&#46; &#41;\n\n  oF2_Dlg&#58;Activate&#40; oF2_Dlg&#58;bLClicked, oF2_Dlg&#58;bMoved, oF2_Dlg&#58;bPainted, &#46;T&#46;,,,&#123;|Self|&#40;aF2Ctrls&#91;6&#93; &#58;= TMultiGet&#40;&#41;&#58;ReDefine&#40; 207, &#123; | u | If&#40; PCount&#40;&#41;==0, aForms2&#91;nNumber, 8&#93;, aForms2&#91;nNumber, 8&#93;&#58;= u &#41; &#125;, oF2_Dlg,,,,,,, &#46;F&#46;,, &#46;F&#46;,,&#123;|nKey, nFlags, Self| MemoLenChk&#40;80, nKey, nFlags, Self&#41;&#125; &#41;&#41;&#125;, oF2_Dlg&#58;bRClicked, &#41;\n\n  DO CASE\n  CASE nRDMnu = 1\n    aForms2&#91;nNumber, 6&#93; &#58;= &#46;T&#46;\n    aForms2&#91;nNumber, 5&#93;  &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, 4&#93;  &#58;= &#46;F&#46;\n  CASE nRDMnu = 2\n    aForms2&#91;nNumber, 6&#93; &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, 5&#93;  &#58;= &#46;T&#46;\n    aForms2&#91;nNumber, 4&#93;  &#58;= &#46;F&#46;\n  CASE nRDMnu = 3\n    aForms2&#91;nNumber, 6&#93; &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, 5&#93;  &#58;= &#46;F&#46;\n    aForms2&#91;nNumber, 4&#93;  &#58;= &#46;T&#46;\n  ENDCASE\n\nRETURN\n[/code:20t7bk01]\n\n\nWhen using the DLL I add SET RESOURCES TO “WIFTSRN.DLL” in the main PRG file.\nAny ideas what is going wrong.','',0,'AIA=','20t7bk01',1,0,'',204,0,0),(1667,434,6,15,0,'203.79.155.24',1131456438,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1yzb6fmt]Pablo,\n\nAhora hay que enlazar las librerías DBFFPT.lib y HBSIX.lib y quitar la DBFDBT.lib que ya no existe.\n\nEl error _hb_stack es que necesitas una nueva fivehc.lib que tienes que pedirnos por email.[/quote:1yzb6fmt]\n\nHello Antonio,\n\nMay I get new fivehc.lib patch for solve \"_hb_stack\" problem?\n\nRegards,\n\nRichard','',0,'gA==','1yzb6fmt',1,0,'',15,0,0),(1668,438,5,26,0,'193.95.194.11',1131456768,1,0,1,1,1,1,'','','Hello!\n\nThat was easy (method MouseWheel)\n\n&gt; In 16 bits there is no support for mouse wheel. It only report movement in one direction. No way to fix it.\n\nI expected something like that ...\n\nThanks, Roman','',0,'gA==','12osviys',1,0,'',26,0,0),(1669,442,7,262,0,'83.97.168.9',1131457536,1,0,1,1,1,0,'','preguntas varias .','Existe o esta previsto el soporte de archivos ini ?\n\nlos tabs , se implementaran en breve o sera para más adelante ?,\n\nel uso scroll en dialogos o ventanas está implementado ?\n\nExiste posiblidad de poner ejemplos de uso de cada uno de los temas , si ya estuvieran implementados ?\n\nSaludos y perdón por tanta ignorancia.','',0,'gA==','3qeso2t1',1,0,'',262,0,0);
INSERT INTO `phpbb_posts` VALUES (1670,408,3,167,0,'69.29.69.96',1131460413,1,0,1,1,1,1,'','','My application is a cgi process - \n\nI run an exe using stdin and stdout and http environment variables.  The print process will be invoked from this .exe - do it\'s processing - then pipe html out via stdout.  Works like a charm.\n\nI\'m wondering, can an internet instance of running a program \"see\" printers?  It\'s on a server - not like configuring Printer Setup from a workstation.\n\nDo you think these print drivers can be seen by my Harbour .exe file?','',0,'gA==','2s2rwarg',1,0,'',167,0,0),(1671,408,3,49,0,'62.13.172.78',1131461020,1,0,1,1,1,0,'','To Linares','Antonio,\nI put the class on <!-- w --><a class=\"postlink\" href=\"http://www.harbour.it\">www.harbour.it</a><!-- w -->\nIf you can help for the Mdb file i inserted a message on forum \n\nRegards','',0,'gA==','37we7pac',1,0,'',49,0,0),(1672,392,2,237,0,'200.68.70.89',1131461203,1,0,1,1,1,0,'','No se pueden secargar las news','En la dirección <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/general_info.php\">http://www.fivewin.info/html/general_info.php</a><!-- m --> no están las news, me parece que te has confundido de news.\nCon respecto a el outlook y news.fivetechsoft.com, no te deja descargar mas que los ultimos mil ( creo ) y otro lector de news gratuito no he visto, si alguien conoce alguno, fantástico.\n\nSalu2 para todos.\nAlejandro Cebolido.','',0,'gA==','thhgyfwv',1,0,'',237,0,0),(1673,356,6,53,0,'200.66.175.10',1131462003,1,0,1,1,1,0,'','Comprendido','Vagner:\n\nComprendido, Gracias','',0,'gA==','2u6pzfve',1,0,'',53,0,0),(1674,443,2,129,0,'201.239.148.33',1131463852,1,0,1,1,1,0,'','BLINKER : 1148 : que significa','me aparece este error, el codigo esta ok, pero sigue molestando, sabe alguien que es esto','',0,'gA==','19akjjqr',1,0,'',129,0,0),(1675,428,20,263,0,'87.6.216.22',1131466879,1,0,1,1,1,0,'','','Ciao Enrico, naturalmente l\'esempio è ok <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nPosso inserire immagini? se si posso posizionarle dove voglio?\nSe volessi costruire una tabella (o box) ed inserirvi dentro informazioni, c\'è questa possibilità?\nComunque, e hai letteratura in proposito (senza che ti assillo con le mie domande) puoi passarmela?\nGrazie anticipatamente','',0,'gA==','jyfw5rm4',1,0,'',263,0,0),(1676,428,20,6,0,'82.59.197.35',1131468191,1,0,1,1,1,1,'','','Ho sottomano questo esempio per le tabelle:\n\n[code:3esddwpx]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord, oDoc, oTable\n\n    oWord = CREATEOBJECT&#40; &quot;Word&#46;Application&quot; &#41;\n\n    oDoc = oWord&#58;Documents&#58;Add&#40;&#41;\n\n    oTable = oDoc&#58;Tables&#58;Add&#40; oWord&#58;Selection&#58;Range, 3, 5 &#41;\n\n    oTable&#58;Cell&#40; 1, 1 &#41;&#58;Range&#58;InsertAfter&#40; &quot;Prova&quot; &#41;\n    oTable&#58;Cell&#40; 3, 5 &#41;&#58;Range&#58;InsertAfter&#40; &quot;Ultima&quot; &#41;\n\n    oWord&#58;Visible = &#46;T&#46;\n\n    oWord&#58;WindowState = 1\n\n    RETURN NIL[/code:3esddwpx]\n\nPer il resto, puoi fare quello che vuoi ma dovrai studiarti la documentazione (cerca VBA*.CHM sul tuo disco o sul CD di Office).\n\nEMG','',0,'AIA=','3esddwpx',1,0,'',6,0,0),(1677,392,2,74,0,'201.255.29.33',1131471680,1,0,1,1,1,1,'','','Alejandro:\n\n                Lo que hay en la pagina de Patrick Mast es un link que te crea la cuenta EN EL OUTLOOK EXPRESS, en <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/links.php\">http://www.fivewin.info/html/links.php</a><!-- m -->, y esta mal ese link porque te crea la cuenta con el servidor anterior, news.fivetech.com y el servidor esta ahora en news.fivetechsoft.com.\n\n                 Respecto al outlook express, te lee de a 1000 mensajes POR VEZ, se pueden obtener TODOS los mensajes con el menu herramientas-&gt;obtener los siguientes 1000 encabezados las veces que sea necesario. Tambien podes ir a herramientas-&gt;sincronizar grupo de noticias y poner a bajar todo.\n\nSaludos,','',0,'AIA=','2lhc7uww',1,0,'',74,0,0),(1678,443,2,74,0,'201.255.29.33',1131472481,1,0,1,1,1,1,'','','Luis:\n\n       Agrega BLINKER CLIPPER SYMBOL OFF al archivo de linkeado.\n\n1148: BLINKER CLIPPER SYMBOL OFF required for huge symbol table\n------------------------------------------------------------------------------\n\n This message will only occur with CA-Clipper 5.x Windows programs, and\n indicates that the symbol table is too large to perform symbol table\n compression due to limitations in the CLIPPER.LIB run time.\n\n Simply add the command BLINKER CLIPPER SYMBOL OFF to the end of the link\n script file to remove this error message and create the .EXE.\n\nSaludos,','',0,'AIA=','3db8z4k6',1,0,'',74,0,0),(1679,428,20,263,0,'82.59.175.39',1131473236,1,0,1,1,1,0,'','','Gazie Enrico, provvederò','',0,'AIA=','3p89ykls',1,0,'',263,0,0),(1680,221,4,2,0,'80.58.2.107',1131473699,1,0,1,1,1,1,'','','Jon,\n\nYes, DatePick is on our to-do list.','',0,'AIA=','1cwemtzh',1,0,'',2,0,0),(1681,428,20,263,0,'82.59.175.39',1131474963,1,0,1,1,1,0,'','','compilando l\'esempio ottengo questo errore:\n\nError: Unresolved external \'_HB_FUN_CREATEOBJECT\' referenced from C:\\MED32\\SOURCE\\OBJ\\DIPEND.OBJ\n\nla dimensione di hbole.lib è di 37.376 bytes, purtroppo penso che la data di creazione (04/05/2005) sia quella della copia sul pc <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nC\'è bisogno d\'altro (penso alla ole2.lib) oltre alla hbole?','',0,'AIA=','1snfc85d',1,0,'',263,0,0),(1682,428,20,6,0,'82.61.28.239',1131476370,1,0,1,1,1,1,'','','Sostituisci\n\nCREATEOBJECT( \"Word.Application\" )\n\ncon\n\nTOleAuto():New( \"Word.Application\" )\n\nEMG','',0,'AIA=','epxaqcdh',1,0,'',6,0,0),(1683,444,2,129,0,'201.239.148.33',1131476417,1,0,1,1,1,0,'','error con esta macro, no lo se ??\'','amigos, tengo esto y me sale el sgte error, quien me puede ayudar :\n\n Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Can_Art\",Select(\"&amp;(Archi)\"));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"9999.99\";\n      Head \"Cantidad\" Width 70 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170);\n      Post Edit(Venta1-&gt;Tot_art:=Venta1-&gt;Can_Art*Venta1-&gt;Pre_Art,;\n               Calcula_Total(),oLbx1:Refresh())\n\n\nError\n  Path and name: C:\\SISTEM~2\\GESTION.dwd\n   Size:         0 bytes\n   Max files handles permited: ( SetHandleCount() ) 100\n   Error ocurred at: 08-11-2005, 15:55:01\n   Error description: Error BASE/1122  Argument error: TRANSFORM\n   Args:\n     [   1] = U   \n     [   2] = C   \n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from TSBROWSE:DRAWSELECT(2547)\n   Called from TSBROWSE:PAINT(5535)\n   Called from TSBROWSE:DISPLAY(1793)\n   Called from TSBROWSE:HANDLEEVEN(0)\n   Called from TSBROWSE:HANDLEEVEN(8604)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PRG_2221(327)\n   Called from (b)BUILDMENU(181)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(114)','',0,'','3tcvyhaa',1,0,'',129,0,0),(1684,341,6,228,0,'200.91.253.18',1131481075,1,0,1,1,1,0,'','no me funciono','Antonio buena tarde como estas:\n\n1- Ya cambie la linea del comando tal y como me digiste, la cambie del directorio c:\\fwh\\source\\clases.\n\n2- La coloque como prg y lo compile con el resto de los prg del programa.\n\n3- lo quite de todo lado, pero no me arroja ningun error al momento de generar el ejecutable.\n\nYo compilo y enlazo con verce 4.0. Que pena mi ignorancia y molestar tanto pero me puedes indicar que mas debo hacer. La imagen del error sigue siendo la misma.\n\nLEANDRO ALFONSO\nBogotá (Colombia)','',0,'','2qbe86bt',1,0,'',228,0,0),(1685,445,6,49,0,'82.59.143.190',1131481932,1,0,1,1,1,0,'','Tdsn','I have a class Tdsn \nI saw the esamples but I must create a dsn of USER \nthe class say  if you set  1 the type you can set dsnUser  or 0 if you can set dsnSystem\nI create the string :\n [code:3hhqebi5]FUNCTION Main&#40;&#41;\nLOCAL oDsn\n  LOCAL nTypeDsn\n\n  oDsn &#58;= TDsn&#40;&#41;&#58;New&#40; &quot;MwWind&quot; &#41;\n//--------------------------------------------------------\n  // Si nStatus da error, el DSN no existe\n  //--------------------------------------------------------\n  IF oDsn&#58;nStatus &lt;&gt; TDSN_NO_ERROR\n    IF MsgYesNo&#40; OemToAnsi&#40; &quot;¨ Desideri settare la configuazione per Mwwind ?&quot; &#41; ,;\n          &quot;Mwwind&quot; &#41; == &#46;F&#46;\n      nTypeDsn &#58;= 1\n    ENDIF\noDsn&#58;Create&#40; &quot;MwWind&quot;, ;\n                 &quot;DSN creato per Mwwind&quot;, ;\n                 &quot;Microsoft Access Driver &#40;*&#46;mdb&#41;&quot;, ;\n                 &quot;&quot;, ;\n                 &quot;&quot;, nTypeDsn,, &#41;\n  ENDIF\n\n  MsgInfo&#40; oDsn&#58;cGenPrg&#40;&#41;, &quot;Demo TDSN&quot;&#41;\n  oDsn&#58;Del&#40;&#41;\noDsn&#58;End&#40;&#41;\nRETURN NIL[/code:3hhqebi5]\n\nthe nTypeDsn := 1 it must set the dsnUser  but it set dsnSystem\n\n why it set the dsnSystem ?','',0,'AIA=','3hhqebi5',1,0,'',49,0,0),(1686,446,6,49,0,'82.59.143.190',1131482155,1,0,1,1,1,0,'','FTP class','I have qftp class\nI try to compile the ftptest   \nwhen I try with my domain it cannot download the file  ( xxx.mdb)\nWhy ?\nIs there some have a ftpclass run ok ?\n\nThanks in advance','',0,'AIA=','36e6u2y0',1,0,'',49,0,0),(1687,392,2,10,0,'212.40.255.188',1131484035,1,0,1,1,1,0,'','','Alejandro:\n\nSiento no haber entendido bien lo que pedías pero creí que solicitabas los whatNEWs de cada versión de FW y por ello te remití a la página de Patrick pensando que era eso lo que pedías.\n\nEn algún lugar de un disco que se me averió creo tener una recopilación de los news anteriores al de Fivetech que me baje de la red.\n\nEstoy recuperando poco a poco los datos que tenía en dicho disco. Si logro conseguir esa recopilación me pondré en contacto contigo para enviartela.\n\nUn saludo.','',0,'AIA=','2h5gir9k',1,0,'',10,0,0),(1688,447,3,97,0,'201.151.184.80',1131492867,1,0,1,1,1,1,'','DbCombo fw2.3','DbCOmbo en fw2.3 no funciona, alguien sabe que cambios hay que hacer a la clase para que funcione.\n\n\nsaludos.\nfernando','',0,'AIA=','1vk4fm0a',1,0,'',97,0,0),(1689,427,6,101,0,'200.28.122.59',1131497322,1,0,1,1,1,0,'','Libreria HTCSOFT','Estimado Chantiel,\n\nHace ya bastante tiempo que no comecializaba esa y otras librerías, sin embargo, para comienzo del año 2006 espero aportar con nuevas librerías que serán de gran impacto y utilidad para quienes utilizan Fivewin.\n\nSaludos\nJorge Mason','',0,'AIA=','2yw9bbrh',1,0,'',101,0,0),(1690,435,6,138,0,'201.154.236.172',1131498439,1,0,1,1,1,1,'','','xHarbour soporta la base de datos que le heches.......\n\nTe recomiendo que utilices ADO usando el OLE incluido con xHarbour, te facilita enormemente las cosas.','',0,'AIA=','1gfstqw0',1,0,'',138,0,0),(1691,448,3,267,0,'201.29.102.91',1131502861,1,0,1,1,1,0,'','Problem with xHabour/Dbutton','hi,\n\nWhen use dbuttons with clause WHEN the figure is shown with a deep black color! The problem alone appears in buttons that it has a specified clause WHEN. \n\nSds, \nVilian F. Arraes','',0,'AIA=','2em74fh8',1,0,'',267,0,0),(1692,220,3,190,0,'202.65.134.22',1131505001,1,0,1,1,1,0,'','','Mr.Antonio\nThe following is the url for the example of Disabled menu items in PopUp\nWindows :\n\n<!-- m --><a class=\"postlink\" href=\"http://putfile.com/pic.php?pic=11/31120531074.jpg&amp;s=x11\">http://putfile.com/pic.php?pic=11/31120531074.jpg&amp;s=x11</a><!-- m -->\n\nKindly help me.\n\n- Ramesh Babu P','',0,'AIA=','1sbu7boz',1,0,'',190,0,0),(1693,449,3,190,0,'202.65.134.22',1131505409,1,0,1,1,1,0,'','BARCODING, READING AND PRINTING USING FWH','Hi Friends,\n\nHas anybody implemented Barcoding, reading and Printing using FWH.\n\nKindly give me some examples.\n\n- Ramesh Babu P','',0,'AIA=','1xqbssm2',1,0,'',190,0,0),(1694,444,2,53,0,'200.66.175.73',1131507216,1,0,1,1,1,0,'','Opción','Luis:\n\nMira este ejemplo.\n\nREDEFINE BROWSE oBrw ALIAS (cDePaso) UPDATE GRID ID 200 OF oDlg;\n    WHEN ! EMPTY(oCab:HDR_NOM)\n\nADD COLUMN TO oBrw;\nHEADER \"Producto\";\nSIZE 95 PIXELS ;\nDATA FIELDWBLOCK(\"MOV_PRO\",SELECT(cDePaso));\nALIGN DT_LEFT,DT_LEFT,DT_RIGHT;\nEDITABLE;\nPICTURE \"@!K\";\nFOOTER { || TRANSFORM(nTotItm,\"@Z 9,999\") };\nMOVE DT_MOVE_NEXT\n\nSaludos, Armando','',0,'AIA=','1x4knuk6',1,0,'',53,0,0),(1695,450,1,266,0,'60.50.61.212',1131516725,1,0,1,1,1,1,'','fivewin app not responding in XP','Hi,\n\nMy fivewin app always \'not responding\' in XP when click on it desktop icon.\nBut it does not have problem in Win98. \nApparently 16-bit app not supported well in XP.\nI use dbf/cdx, externall dll, modification in tsbrowse, infoz.dll, etc.\nI need time to change whole app into 32-bit but customer can not wait.\n\nAny quick work around for it ? or tuning setting  in .lnk script ?\n\nRegards\nHoe','',0,'AIA=','2m4oyk8i',1,0,'',266,0,0),(1696,451,19,268,0,'80.58.1.235',1131518114,1,0,1,1,1,0,'','[OT] [REUNINON GO2000] Recordatorio de evento.','El próximo fin de semana del 19 y 20 de noviembre, celebraremos en Torrejón de Ardoz, Madrid, el VII Congreso Anual de desarrolladores xBase con la siguiente agenda de contenidos:\n\n    * Cómo ser un ISV.\n      José Luis Sánchez Navarro\n    * Usando ADO desde [x]Harbour.\n      José Luis Capel Romera\n    * Accediendo al API de clientes de bases de datos usando POO.\n      Manuel Expósito Suárez\n    * Las Extensiones de xHarbour.\n      Walter Negro (desde Argentina, por internet)\n    * T-Gtk, el xBase gráfico multiplataforma.\n      Rafael Carmona Grande\n    * Aspectos legales de las distintas licencias de software.\n      Rafael García Cepas\n\nMás información e inscripciones en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.olivares2000.org/modules.php?name=listacursos\">http://www.olivares2000.org/modules.php ... istacursos</a><!-- m -->\n\nSaludos\n\nJose Alfonso Suarez Moreno','',0,'','1smf5z0e',1,0,'',268,0,0),(1697,435,6,52,0,'201.231.14.50',1131518585,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:39s4ct7s]xHarbour soporta la base de datos que le heches.......\n\nTe recomiendo que utilices ADO usando el OLE incluido con xHarbour, te facilita enormemente las cosas.[/quote:39s4ct7s]\n\nok gracias tenemos que hacer una conexion entre INTERBASE y una de DBF. por eso.\n\nGracias por tu respuesta.','',0,'gA==','39s4ct7s',1,0,'',52,0,0),(1698,341,6,2,0,'80.58.2.107',1131520039,1,0,1,1,1,1,'','','Leandro,\n\nPor favor, construye la aplicación con xharbour e indícame si el error que te aparece es el mismo. Envíame la imagen del error. Gracias.','',0,'gA==','2jbrqup4',1,0,'',2,0,0),(1699,450,1,2,0,'80.58.2.107',1131520164,1,0,1,1,1,1,'','','Do you mean that the application does not start ?','',0,'gA==','4zv395m1',1,0,'',2,0,0),(1700,220,3,2,0,'80.58.2.107',1131522438,1,0,1,1,1,1,'','','Ramesh,\n\nWhat FWH version and date are you using ?\n\nWe have just tested it here, using FWH 2.6 September, and it works ok.','',0,'gA==','3ekeme3o',1,0,'',2,0,0),(1701,449,3,89,0,'213.21.136.60',1131524801,1,0,1,1,1,0,'','','If you need a aprofessional tools looks at <!-- w --><a class=\"postlink\" href=\"http://www.combit.net\">www.combit.net</a><!-- w -->\n\nRegards Maurizio','',0,'gA==','mq0d0bdy',1,0,'',89,0,0),(1702,431,2,265,0,'80.58.18.235',1131524950,1,0,1,1,1,0,'','','Muchas gracias por responder tan rápido.\nMe he puesto a ver si me sirve, y me ha ocurrido algo que me viene sucediendo últimamente, y es que después de compilarlo me aparece ésta pantalla y no puedo ejecutar algunos ejemplos que quiero probar.\nNo se si será de la versión de compilador o qué.\nUtilizo clipper 5.2+five 2.4\n\nSaludos\n\nJose Luis\n[img]c:\\descargas\\five\\five.jpg[img][/img]\n\nBueno, como no se poner la imagen, os la describo el log\n\nApplication\n===========\n   Path and name: C:\\DESCAR~1\\FIVE\\FTPTEST.EXE (16 bits)\n   Size:   824,960 bytes\n   Max files handles permited: ( SetHandleCount() )  91\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 11/09/05, 09:27:56\n   Error description: Error BASE/1001  Funci¢n no definida: GETTEXTHEI\n   Args:\n     [   1] = N   878\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from GETTEXTHEI(0)\n   Called from TMSGBAR:NEW(0)\n   Called from MAIN(58)','',0,'CA==','3augrtq3',1,0,'',265,0,0),(1703,406,2,265,0,'80.58.18.235',1131526117,1,0,1,1,1,0,'','','Yo ya lo he intentado varias veces y he fracasado, y ante el miedo que me da, ya que soy de la opinión de que si algo funciona no lo toques, no he hecho nada.\nAunque reconozco que me estoy quedando atrás y eso me preocupa, y como ya me es muy dificil el aprendizaje de nuevas cosas, me gustaría que alguien me dijera:\nTe mando todo montado de manera que cuando ejecutes el compila.bat, habrás compilado un prg que ponga en la pantalla \"Hola Mundo\", y a partir de ahí, yo ya empezaría a montar mis aplicaciones.\nUn saludo y a ver si alguien se enrrolla.\n\nJose Luis','',0,'CA==','3gcfax9n',1,0,'',265,0,0),(1704,449,3,29,0,'80.181.108.140',1131526359,1,0,1,1,1,0,'','','Hi Maurizio,\nDo you work with combit list and label report in your app ?\nIf affermative could you pls. share with me a sample app to interface FWH to L&amp;L ?\n\nThanks in advance\n\nMarco','',0,'CA==','he2u3wgi',1,0,'',29,0,0),(1705,380,4,89,0,'213.21.136.60',1131526926,1,0,1,1,1,0,'','','Hello Antonio\n\nI get -1891664022 (change every time)\n\nIN   COM  8\nOUT COM 6 \n\nRegards Maurizio','',0,'CA==','2ju8jged',1,0,'',89,0,0),(1706,452,1,269,0,'217.37.54.49',1131529654,1,0,1,1,1,0,'','I really need some help guys!','Hi, im new to this, havent had much experience and have come across a slight problem. im writing a program where i need to pad certain fields with trailing zeros, as the field will have values of varying length, but i have no idea how to do this, so any help would be great!\n\nThanks all. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->\n\n(edit:Problem all sorted now, thanx for the help)','',0,'CA==','3ng5azws',1,1131714137,'',269,1,0),(1707,380,4,2,0,'80.58.2.107',1131531216,1,0,1,1,1,1,'','','We have just published a new FWPPC build. \n\nIn samples\\bluetoth.prg, please change local hOut := BlueOut() into:\n\n#define GENERIC_WRITE                0x40000000 \n#define OPEN_EXISTING                 3\n#define FILE_ATTRIBUTE_NORMAL   0x00000080 \n\n...\n\nlocal hOut := CreateFile( \"COM6:\",; // change the number as needed\n                                    GENERIC_WRITE, 0, 0, OPEN_EXISTING, \n                                    FILE_ATTRIBUTE_NORMAL ) \n                                       \nMsgInfo( Str( hOut ) )  // Lets see if we get a valid handle, not -1\n\n...\n\nand change CloseComm( hOut ) into CloseHandle( hOut ).\n\nThanks for your feedback,','',0,'CA==','29avazrz',1,0,'',2,0,0),(1708,406,2,2,0,'80.58.2.107',1131531417,1,0,1,1,1,1,'','','Jose Luis,\n\nDescarga e instala este fichero: <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\nLuego descarga e instala Borland desde aqui: <!-- m --><a class=\"postlink\" href=\"ftp://ftpd.borland.com/download/bcppbuilder/freecommandLinetools.exe\">ftp://ftpd.borland.com/download/bcppbui ... etools.exe</a><!-- m --> \n\nFinalmente ve al directorio tests de Harbour y ejecuta:\n\nbuild.bat hello','',0,'CA==','ylf9q31e',1,0,'',2,0,0),(1709,313,3,49,0,'62.13.172.78',1131533375,1,0,1,1,1,0,'','TO Byron','I need I  test sample  with addneww func\nPls Help me\nRegards','',0,'CA==','2nncirhu',1,0,'',49,0,0),(1710,435,6,49,0,'62.13.172.78',1131533530,1,0,1,1,1,0,'','For all','can I have a simply test to use with ado  a file ( mdb/sql) and the follow operations:\n\nAddnew\nEdit\nQuery\nPrint\nThank inadvance\nRegards','',0,'CA==','18ql0tt4',1,0,'',49,0,0),(1711,453,3,49,0,'62.13.172.78',1131533702,1,0,1,1,1,0,'','TO Antonio -&gt;   Fiveodbc or Ado','can I have a simply test to use with ado or odbc a file ( mdb/sql) and the follow operations:\n\nAddnew\nEdit\nQuery\nPrint\n\nI saw the samples testsql1and testsql3 but none have the addnew and edit , search , print operations\n\nI can pay for it\n\n\n\n\nThank in advance\nRegards','',0,'CA==','3tafnc10',1,0,'',49,0,0),(1712,406,2,265,0,'80.58.18.235',1131535106,1,0,1,1,1,0,'','','Gracias Antonio.\nPor lo menos veo que comienza a compilar, pero da bastantes errores.\nEl primero error E2209 c:\\harbour\\include\\hbdefs.h 56 unable to open include file \"stdarg.h\"., y 6 ó siete igules con distinto fichero\nSupongo que estos ficheros son los que se encuentran en BCC55\\include, si es así, lo correcto es copiar todos los includes de bcc55\\include y copiarlos en c:\\harbour\\include ?.\nluego unos cuantos errores más.\nE2451 hello.c 16: Undefined Symbol \'NULL\'\nE2141    \"            Declaracion Syntax Error\nE2190    \"            Unexpected }                \nE2040    \"            Declaration terminated incorrectly\nETC....\n2109      \"      18  Not an allowed type in function hb_vm _SimbolInit_HELLO       \n13 Errores in compile\ny así hasta lógicamente el error del linkado al no encontrar el obj\n\nYo creo que ésta vez he avanzado un poquito más.\n\nUn Saludo\n\nJose Luis','',0,'CA==','280fyer4',1,0,'',265,0,0),(1713,288,3,49,0,'62.13.172.78',1131535330,1,0,1,1,1,0,'','','I use it ....no Problem \nI have convert also the banner class and grid class \n\nthe C5.c is here : \n\n\n[code:3e8lmeo2]#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\n\n\nBOOL    WINAPI StretchBlt&#40;HDC, int, int, int, int, HDC, int, int, int, int, DWORD&#41;;\n\nHB_FUNC&#40; COMPATDC &#41; // &#40; hDC &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; CreateCompatibleDC&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n   // hb_retni&#40; CreateCompatibleDC&#40; hb_parnl&#40; 1 &#41; &#41; &#41;;\n\n&#125;\n\n\nHB_FUNC&#40; COMPATBMP &#41; // &#40; hDC, nWidth, nHeight &#41;\n&#123;\n\n    hb_retnl&#40; &#40;LONG&#41; CreateCompatibleBitmap&#40; &#40;HDC&#41; hb_parnl&#40;1&#41;,hb_parni&#40;2&#41;, hb_parni&#40;3&#41; &#41; &#41;;\n\n&#125;\n\n\nHB_FUNC&#40; BITBLT &#41; // &#40; hdcDest, nXDest, nYDest, nWidth, nHeight,hdcSrc,  nXSrc , nYSrc, dwRop &#41;\n&#123;\n     hb_retl&#40; BitBlt&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parni&#40; 3 &#41;,\n                  hb_parni&#40; 4 &#41;, hb_parni&#40; 5 &#41;, &#40; HDC &#41; hb_parnl&#40; 6 &#41;,\n                  hb_parni&#40; 7 &#41;, hb_parni&#40; 8 &#41;, hb_parnl&#40; 9 &#41; &#41; &#41;;\n&#125;\n\n\n\nHB_FUNC&#40; STRETCHBLT &#41;\n&#123;\n   hb_retl&#40;StretchBlt&#40; &#40; HDC &#41; hb_parnl&#40;1&#41;,hb_parni&#40;2&#41;,hb_parni&#40;3&#41;,hb_parni&#40;4&#41;,hb_parni&#40;5&#41;,\n                     &#40; HDC &#41; hb_parnl&#40;6&#41;,hb_parni&#40;7&#41;,hb_parni&#40;8&#41;,hb_parni&#40;9&#41;,hb_parni&#40;10&#41;,\n                     hb_parni&#40;11&#41;&#41;&#41;;\n\n\n&#125;\n\n[/code:3e8lmeo2]','',0,'AIA=','3e8lmeo2',1,0,'',49,0,0),(1714,220,3,190,0,'202.65.134.22',1131535452,1,0,1,1,1,0,'','','Mr.Antonio\n\nI am using FWH 2.5 FEBRUARY 2005 BUILD.\n\nThanks \n\n- Ramesh Babu P','',0,'AIA=','1dbckidm',1,0,'',190,0,0),(1715,454,5,270,0,'65.27.183.36',1131536972,1,0,1,1,1,0,'','testsmtp.prg - Can\'t get it working.','I\'m trying to include the SendMail() routine in the testsmtp.prg test program in my application to send an email.  I\'ve changed it to my SMTP server and my email.  All I get from the GetHostByName() call is an IP address of 0.0.0.0.  It also seems to return very quickly which looks like it is not doing the lookup.\n\nI am using Xbase++ version 1.82 and FW++ 2.6.\n\nAnyone have any ideas?  I suspect that this doesn\'t work in Xbase++.\n\nDan','',0,'AIA=','1oqtphqz',1,0,'',270,0,0),(1716,431,2,264,0,'64.116.212.96',1131537093,1,0,1,1,1,0,'','','saca las cosas bonitas de tu aplicacion y luego las vas insertando de a una, es decir, saca las baras de botones, pon un menu simple y luego le das con el resto de cosas.\nquizas de esa forma determines el real error, pero a mi ver, no es de producto de las clases nuevas.\nsaludos','',0,'AIA=','2x59q002',1,0,'',264,0,0),(1717,406,2,264,0,'64.116.212.96',1131537425,1,0,1,1,1,0,'','','estoy de acuerdo que no es facil aprender tan rapido....pero si no lees ni siquiera los leeme.txt o readme.txt, no avanzaras.\ndebes antes de compilar con el bcc, modificar un par de \".cfg\" de la carpeta de de bin , creo que son el BCC32.CFG y el ILINK32.CFG.\nyo los tengo asi:\n\nbcc32.cfg:\n-I\"c:\\bcc55\\include;c:\\harbour\\include;c:\\clipper.53\\fwh\\include\"\n-L\"c:\\bcc55\\lib\"\n\nilink32.cfg:\n-L\"c:\\bcc55\\lib\"\n\nespero te sirva, cualquier duda, me avisas.\nmi msn esta publicado.\nsaludos','',0,'AIA=','erpbtpby',1,0,'',264,0,0),(1718,455,3,217,0,'200.153.134.215',1131537938,1,0,1,1,1,0,'','Tab, Shift Tab, ESC under a page (in memo)','Antonio,\n\nI use a dialogs with 3 pages (TPages class), in a page I use a memo get, when this memo get focused, the keys Tab, Shift Tab, ESC... don\'t work properly.\nESC = don\'t work\nTab and Shift Tab = include a tab space in the text before skip to next/prior control...\n\nRegards,\nMaurilio','',0,'AIA=','uho0hv59',1,0,'',217,0,0),(1719,452,1,193,0,'195.212.29.179',1131538727,1,0,1,1,1,0,'','','Maybe you should use function PAD[R]?\nFor example \nMyVar := PADR( MyVar, TARGET_LENGTH )   // #DEFINE TARGET_LENGTH\n\nVladimir Grigoriev','',0,'','3tt3mup9',1,0,'',193,0,0),(1720,449,3,41,0,'200.87.67.10',1131541535,1,0,1,1,1,0,'','Re: BARCODING, READING AND PRINTING USING FWH','[quote=&quot;RAMESHBABU&quot;:242dfpx9]Hi Friends,\n\nHas anybody implemented Barcoding, reading and Printing using FWH.\n\nKindly give me some examples.\n\n- Ramesh Babu P[/quote:242dfpx9]\n\nHello,\n\nthere are many possibilities, free and no free. Free you can use True Type Fonts, use google to get some of them, or you can use barlib, I don\'t remember where is it, there is one lib in <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w --> too, this was to print, for read is easer you can buy a bar scanner to connect betwen your keyboard and the cpu and this will put inside the keyboard buffer the read code, you don\'t need nothing to do \n\nsaludos\n\nMarcelo','',0,'gA==','242dfpx9',1,0,'',41,0,0),(1721,406,2,265,0,'80.58.18.235',1131542390,1,0,1,1,1,0,'','','Hola de nuevo\nMuchas gracias por la ayuda, lo que pasaba es que no veia por ningun lado los cfg que había leido, los he creado con las lineas que me has dicho, y efectivamente, ya me ha compilado y linkado, me ha creado un hello.exe, por fin.\n\nAhora viene otra, lo ejecuto y nada, se abre como una ventana de ms-dos y se cierra en un parpadeo.\n\nSi lo ejecuto desde ms-dos, me pone c:\\Hello World!.\n\nSe que estody dando la tabarra, pero ya estoy cerca ?\n\nSaludos\n\nJose Luis','',0,'gA==','1ax81nll',1,0,'',265,0,0),(1723,380,4,89,0,'213.21.136.60',1131544019,1,0,1,1,1,0,'','','Hello Antonio\n\n Thanks to your great help ,now works very well .\n\n It is possible to set  hIn to ? \n\n  Regards MAurizio\n   <!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'gA==','2sgnowmu',1,0,'',89,0,0),(1724,457,6,121,0,'201.128.6.86',1131545052,1,0,1,1,1,1,'','PROBLEMA CON INDICES NTX EN FWH2.6','Saludos\n\nTengo problemas al generar archivos de indices ntx\nme genera un archivo FM.log\n\nMemory Allocation Report\nApplication: C:\\utile05\\sis32\\wnomina\\DATOS\\WNOMINA.exe\nxHarbour Version: xHarbour build 0.99.50 Intl. (SimpLex)\nCompiler: Borland C++ 5.5.1\nPlatform: Windows XP Professional 5.01.2600 Service Pack 2\nTime Occured: 2005.11.09 07:49:36\nTotal 46779 allocations (13579 reallocation), of which 46777 freed.\nHighest total allocated 4075148 bytes in 14524 blocks.\nWARNING! Memory allocated but not released: 48 bytes (2 blocks)\nBlock 1 00CD07C4 (size 24) KEYBON(0), \"008000003F00000080DFCC0010000000000000007871CC00\"\nBlock 2 00F2B640 (size 24) SETFILTER(0), \"008000003F000000F8ED38011900000000000000DC74F200\"\n\nSaludos','',0,'gA==','2q8umm16',1,0,'',121,0,0),(1725,458,6,272,0,'64.116.213.26',1131547946,1,0,1,1,1,0,'','Taller SQL + Fuentes + ADO :P','hola amigos. el fin de semanas de ocioso y viendo la necesidad de algunos amigos. empecé a hacer un pequeño taller para mis compañeros de universidad.. especificamente para la catedra de bases de datos. nos están enseñando modelamiento de datos y SQL. pensé cual sería la mejor herramienta para éste problema y adivinen ?.. xharbour + fivewin + Ado + Access. me puse manos a la obra.. y acá les envio a lo que llegué.. muchos ya lo están usando.. y les a sido de utilidad.. espero que a alguien le sirva... \n\nAcá va el link \n[url:2k8pc974]http&#58;//chileforge&#46;cl/frs/download&#46;php/220/Taller&#46;zip[/url:2k8pc974]\n\nMiguel Angel\n<!-- m --><a class=\"postlink\" href=\"http://misoft.blogspot.com\">http://misoft.blogspot.com</a><!-- m -->\nSantiago - Chile','',0,'EA==','2k8pc974',1,0,'',272,0,0),(1726,449,3,35,0,'167.7.140.254',1131548413,1,0,1,1,1,0,'','','Barlib works great with xHarb and FWH\n\n<!-- m --><a class=\"postlink\" href=\"http://www.arrakis.es/~cayetano/barlib.htm\">http://www.arrakis.es/~cayetano/barlib.htm</a><!-- m -->\n\nRick Lipkin\nSC Dept of Health, USA','',0,'EA==','vzblbese',1,0,'',35,0,0),(1727,380,4,2,0,'80.58.2.107',1131554670,1,0,1,1,1,1,'','','Maurizio,\n\nTry this:\n\n#define GENERIC_READ                0x80000000\n#define OPEN_EXISTING 3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080 \n\n... \n\nlocal hIn := CreateFile( \"COM8:\",; // change the number as needed \nGENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )','',0,'EA==','tjntogar',1,0,'',2,0,0),(1728,452,1,266,0,'60.50.49.215',1131557481,1,0,1,1,1,1,'','','deanomeano,\n\nYour can use padr(), padl().\nPlz provide sample data for others to help.\n\nRegards\nHoe','',0,'EA==','2pu2etdg',1,0,'',266,0,0),(1729,450,1,266,0,'60.50.49.215',1131558040,1,0,1,1,1,1,'','','Yes, sometime it starts, sometime it does\'not start, just stay \'not responding\' fot all pc with XP\n\nI use fw1.95, blinker 7,clipper 5.2\n\nRegards\nHoe','',0,'EA==','2wlz09v6',1,0,'',266,0,0),(1730,315,6,228,0,'201.245.212.11',1131558891,1,0,1,1,1,0,'','YANNIS','Si me puedes enviar las librerias te lo agradeceria, mi correo es\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->\n\nUN ABRAZO','',0,'EA==','2oj8zryo',1,0,'',228,0,0),(1731,428,20,263,0,'82.59.174.28',1131559040,1,0,1,1,1,0,'','','Enrico,\nin esecuzione ottengo:\nOLE ERROR ---------&gt; ADD: Unknow error\n\nconseguentemente:\nApplication\n===========\n   Path and name: C:\\med32\\MED.Exe (32 bits)\n   Size: 1,346,560 bytes\n   Time from start: 0 hours 2 mins 3 secs \n   Error occurred at: 09-11-2005, 18:53:50\n   Error description: Error BASE/1004  Class: NIL has no exported method: CELL\n   Args:\n     [   1] = N   1\n     [   2] = N   1\n\nStack Calls\n===========\n   Called from CELL(0)\n   Called from PROVAWORD(1632)\n .....................................\nMi sa che è proprio la lib che non funge <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->, oppure ho bisogno di INCLUDEre qualcosa?\nCiao','',0,'','1u5v3bwj',1,0,'',263,0,0),(1732,428,20,6,0,'87.1.232.53',1131562164,1,0,1,1,1,1,'','','Confermo che con Harbour non funziona. Ti consiglio vivamente di passare a xHarbour.\n\nEMG','',0,'','10il5bpr',1,0,'',6,0,0),(1733,458,6,49,0,'87.1.182.245',1131562781,1,0,1,1,1,0,'','','thanks\nbut download is too slow can You send me at <!-- e --><a href=\"mailto:silvio_falconi@tin.it\">silvio_falconi@tin.it</a><!-- e -->\n\nRegards\nSilvio','',0,'','1nxet5eq',1,0,'',49,0,0),(1734,459,7,262,0,'83.97.168.9',1131567708,1,0,1,1,1,0,'','problema con la dbf','si pongo la clausula SHARED al abrir una dbf , el emulador se congela , ¿ ocurre lo mismo en un PDA real ?\nNo está soportada esta clausula ?\nSaludos.','',0,'','1qy78ete',1,0,'',262,0,0),(1735,459,7,2,0,'80.58.2.107',1131568417,1,0,1,1,1,1,'','','El Windows Mobile actual de las Pocket PC no soporta la claúsula SHARED. \n\nNos pusimos en contacto con Microsoft y nos confirmaron que para la version Windows Mobile 2005, implementarán soporte de ficheros compartidos (shared).','',0,'','wiqjoaro',1,0,'',2,0,0),(1736,408,3,167,0,'69.179.181.49',1131569009,1,0,1,1,1,1,'','','I reviewed your class that you posted - quite alot of work.\n\nIs there available a process to call which will convert a .EMF / .WMF Windows Metafile to a .pdf?\n\nI have used some print drivers to accomplish this, but I was hoping to find something which can be called directly similar to the class provided here.\n\nAny ideas?','',0,'','3864f38y',1,0,'',167,0,0),(1737,460,7,262,0,'83.97.168.9',1131570033,1,0,1,1,1,0,'','control de cierre de dbf','en una ventana , como controlo que cuando salga se cierre la dbf ?\nen el boton Salir es facil , pero si me cierran la ventana en la X ?\nSeria deseable la clausula VALID de la ventana .\n¿Otra solucion momentanea ?\nSaludso.','',0,'','259bt2ck',1,0,'',262,0,0),(1738,461,3,69,0,'65.92.153.72',1131570285,1,0,1,1,1,0,'','Entering Text in Memo Field','Hi Everybody,\n\nCan someone tell me how to allow a user to use the ENTER key to start a new line in a memo field ... currently my users need to do a CTRL + ENTER to get a new line.\n\n\nThanks,\n\nJeff','',0,'','pyn90v7c',1,0,'',69,0,0),(1739,460,7,262,0,'83.97.168.9',1131570304,1,0,1,1,1,0,'','','me contesto yo mismo , pongo el close despues del activate window ownd\nParece como que las ventanas son modales , es asi ?','',0,'','2vwqob0p',1,0,'',262,0,0),(1740,461,3,213,0,'24.162.36.40',1131573965,1,0,1,1,1,0,'','','Jeff,\n\nI\'ve never had to do that.  Maybe check the Want Return box if using resources?\n\nRegards,\nRandal','',0,'','3a4y6d5j',1,0,'',213,0,0),(1741,458,6,49,0,'82.59.143.46',1131578748,1,0,1,1,1,0,'','','where is HBADO.CH and the res file  ?\n I saw the sqlbrowse\nHow can I insert a record ?\n\nRegards','',0,'','3lp3tinh',1,0,'',49,0,0),(1742,462,6,52,0,'201.231.14.50',1131579820,1,0,1,1,1,1,'','Como crear Librerias','Estimados:\n\nquiero crear una libreria en xHarbour, supongamos para que me devuelva la suma de dos numeros. \n\nComo se hace para crearla?\n\ngracias.','',0,'','3lcq3j1g',1,0,'',52,0,0),(1743,463,2,10,0,'212.40.255.188',1131581583,1,0,1,1,1,0,'','Anular acceso \'Propiedades de Fecha y Hora\' en barra mensaje','Hola a todos:\n\n¿Qué tengo que hacer para que en la barra de mensajes se siga viendo la \nfecha y la hora pero que al pulsar sobre ellas no acceda a \'Propiedad de \nfecha y hora?.\n\nUn saludo.','',0,'','1t7ik7is',1,0,'',10,0,0),(1744,461,3,69,0,'65.92.153.72',1131583849,1,0,1,1,1,0,'','','Thanks Randal ... That solved my problem <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nJeff','',0,'','3l7wbvse',1,0,'',69,0,0),(1745,458,6,66,0,'24.232.135.75',1131585824,1,0,1,0,1,0,'','Me puedes enviar Taller.zip','Estimado Miguel\n\nMe podrias enviar taller.zip a mi privado\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->, necesito algo adicional o \ncon xharbour,fwh  puedo hacer pruebas\n\nGracias\nFabian','',0,'','2922wwxh',1,0,'',66,0,0),(1746,464,2,78,0,'201.230.107.209',1131595032,1,0,1,1,1,0,'','Error al compilar','Hola Amigos,,,\nDebo controlar 60 botones, asi que lo hago de esta manera:\n\nFOR nCont := 1 TO 60\n     REDEFINE BTNBMP oMesa[nCont] ;\n                    RESOURCE \"VACIA\" NOBORDER ;\n                    ID (200 + nCont) OF oFld:aDialogs[1] ;\n                     ACTION ( OpcionMesa(1, ::nId - 200) )\nNEXT nCont\n[b:3afmrm9i]oMesa[color=red:3afmrm9i][::nId]:[/color:3afmrm9i]bRClicked := {|nRow,nCol| OpcionMesa(2, ::nId - 200)}[/b:3afmrm9i]\n\naqui al compilar sale un error, al parecer no acepta ::nId,  ::nId me devuelve el numero del identificador del btnbmp, asi se que btnbmp he presionado...\n\nAlguna solucion??','',0,'Qg==','3afmrm9i',1,0,'',78,0,0),(1747,465,6,73,0,'201.132.228.98',1131598688,1,0,1,1,1,0,'','twcapture y servicio...','Alguien tiene la clase twcapture para 32 bits que me la pudiera facilitar, y sabarn como poner un programa de harbour en modo servicio con win xp? lo que quiero es cargar el programa y cerrar la ventana por ejemplo cuando carguen el ares, el limewire, el messenger,etc etc.. o alguien tendra algun ejemplo lo agradeceria mucho...\nSalu2\nPaco','',0,'Qg==','3uiybbnj',1,0,'',73,0,0),(1748,466,3,160,0,'210.212.142.6',1131599721,1,0,1,1,1,0,'','Entering Text in Memo Field : Format Get','Hi,\n\nI am using Jun-2005 build. When I try to use Format Get on a memo filed with Vertical Scroll bar enabled, when the scroll bar becomes active the cursor appears one line above where it should be. However the typed character appear exactly where it should. But the user get confused when typing.\n\nHas anybody faced this problem ? What is the way out ?\n\nTIA\nMilan.','',0,'Qg==','36vei5rx',1,0,'',160,0,0),(1749,428,20,263,0,'217.222.223.34',1131609022,1,0,1,1,1,0,'','','<!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> non ci voleva proprio!!!\n1) compatibilita H--&gt;xH = 100%?\n2) dove scaricare xH?\n3) hbole è già inclusa con xH vero?\n4) ho bisogno d\'altro?\n\nCiao e ................grazie','',0,'Qg==','26i8a6mz',1,0,'',263,0,0),(1750,428,20,6,0,'87.3.212.207',1131609857,1,0,1,1,1,1,'','','1) Che io sappia, sì. Qui il problema probabilmente non è in Harbour ma nella libreria hbole. Può darsi che quella che sto (stiamo) utilizzando sia vecchia. Bisognerebbe provare a ricompilarla dal CVS ma ora non ne ho il tempo. Magari prova tu e se proprio non ci riesci allora, per favore, scrivimi un messaggio privato per ricordarmi di provare a ricompilarla (qui nel forum non mi sembra sia possibile mettere una sorta di segnalibro ai messaggi per ritrovarli rapidamente in seguito, o sbaglio?).\n\n2) <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->.\n\n3) Sì.\n\n4) No, non mi pare.\n\nEMG','',0,'Qg==','azgvx75n',1,0,'',6,0,0),(1751,466,3,2,0,'80.58.2.107',1131612355,1,0,1,1,1,1,'','','Milan,\n\nWe have just tried samples\\TestMemo.prg and it works ok. Could you please check it there ?\n\nWhat do you mean for \"Format Get\" ?','',0,'Qg==','2o22k82s',1,0,'',2,0,0),(1752,462,6,2,0,'80.58.2.107',1131612534,1,0,1,1,1,1,'','','Gustavo,\n\nCreas la función, construyes el OBJ y luego usas TLib.exe (Borland) ó Lib.exe (Microsoft) para generar el fichero .LIB.\n\nEscribe TLib.exe y verás la descripción de cómo usarlo.','',0,'Qg==','1np7zqrj',1,0,'',2,0,0),(1753,428,20,263,0,'217.222.223.34',1131612644,1,0,1,1,1,0,'','','Ok Enrico, grazie, provo a passere ad xH.\nNel caso avessi problemi con xH ti scrivo, per quanto riguarda la ricompilazione dal CVS, in ufficio non mi è proprio possibile a casa, mia figlia ha il monopolio assoluto del PC e ora che ha scoperto internet ..............è finita <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nHai ragione, anche io non mi ritrovo gran che bene col forum, con le news era tutto più semplice ed immediato.\n\nciao','',0,'Qg==','2dt72mwx',1,0,'',263,0,0),(1754,453,3,2,0,'80.58.2.107',1131612678,1,0,1,1,1,1,'','','Silvio,\n\nEnrico Maria is a master with ADO, he may help you to get it working.','',0,'Qg==','bbvi4hu8',1,0,'',2,0,0),(1755,457,6,2,0,'80.58.2.107',1131612772,1,0,1,1,1,1,'','','Marco Augusto,\n\nLo que describes parece un problema específico de xharbour. Lo idóneo es que plantees la pregunta en <!-- m --><a class=\"postlink\" href=\"news://news.xharbour.org\">news://news.xharbour.org</a><!-- m -->','',0,'Qg==','1gzexdig',1,0,'',2,0,0),(1756,440,6,2,0,'80.58.2.107',1131612854,1,0,1,1,1,1,'','','Silvio,\n\nIf you mean the FiveODBC RDD, then it is just available for 16 bits. For 32 bits you may use ADO.\n\nPlease do a search at <!-- m --><a class=\"postlink\" href=\"news://news.fivetechsoft.com\">news://news.fivetechsoft.com</a><!-- m --> for ADO.','',0,'Qg==','245je68w',1,0,'',2,0,0),(1757,441,1,2,0,'80.58.2.107',1131613136,1,0,1,1,1,1,'','','Please review the DLL with the Resources Workshop to check if the dialogbox is properly placed into it.\n\nAlso, try changing the name of the dialogbox from FORM_2 into test. Some names may get refused by Windows.','',0,'Qg==','321ydflg',1,0,'',2,0,0),(1758,465,6,28,0,'87.223.128.175',1131615498,1,0,1,1,1,0,'','generico','Hola Paco\n\nCapturar una ventana mas o menos es averiguar su hWnd y enviarle mensajes. \n\nUna de las formas de obtener el handle es utilizar FindWindow\n\nPor ejemplo:\n[code:3vnu3zn5]\n\nlocal cText\nlocal hWnd &#58;= FindWindow&#40; 0, &lt;titulo_de_la_ventana_a_capturar&gt;&#41;\nif hWnd == 0\n   MsgInfo&#40; &quot;No encuentro &quot; + &lt;titulo_de_la_ventana_a_capturar&gt; &#41;\n   return 0\nendif\n\nSetWindowText&#40; hWnd, &quot;nuevo titulo&quot; &#41; // cambiamos el titulo de la ventana\nMoveWindow&#40; hWnd, 20, 20, 500,500, &#46;t&#46;&#41; // mueve la ventana\n\nSendMessage&#40; hWnd, WM_CLOSE,0,0&#41;\n\n[/code:3vnu3zn5]\n\nAsi todo lo que quieras hacer que se pueda hacer con funciones del api y que acepten un handle de ventana.\n\nUn saludo','',0,'AIA=','3vnu3zn5',1,0,'',28,0,0),(1759,454,5,2,0,'80.58.2.107',1131615929,1,0,1,1,1,1,'','','Dan,\n\nWe are reviewing it. We will answer you asap.','',0,'AIA=','ngt49eh6',1,0,'',2,0,0),(1760,19,2,42,0,'83.49.234.51',1131616160,1,0,1,1,1,0,'','','Antonio, \n\nNo esto no lo tengo definido, realmente no sé de que se trata \n\nSi me puedes indicar, te lo agradezco','',0,'AIA=','2ylu4dfs',1,0,'',42,0,0),(1761,346,2,246,0,'85.84.203.239',1131616533,1,0,1,1,1,0,'','Activa la opcion ejecutar en espacio de memoria separado','Si usas Xp en el acceso deirecto ,en las propiedades avanzadas ,activa la casilla ejecutar en un espacio de memoria separado .\n\nEsto suele acelerar la ejecución de los exes de 16 bits como el que te genera Fivewin','',0,'AIA=','39xitg30',1,0,'',246,0,0),(1762,454,5,2,0,'80.58.2.107',1131620125,1,0,1,1,1,1,'','','Dan,\n\nOk, its working. There are some little changes to implement:\n\nIn samples\\TestSmtp.prg, change:\n\n   oOutMail = TSmtp():New( cIP := GetHostByName( \"smtp.fivetechsoft.com\" ) )\n\ninto:\n\n   WSAStartup()\n   oOutMail := TSmtp():New( cIP := GetHostByName( \"smtp.fivetechsoft.com\" ) )  // Notice the use of \":=\" at the beginning\n\nThat will provide you a valid cIP.\n\nAlso there is a change needed at Class TSmtp. We may tell you the change, or we may send you a fixed Five32rt.dll. Please let us know.','',0,'AIA=','215rzmsx',1,0,'',2,0,0),(1763,19,2,2,0,'80.58.2.107',1131620299,1,0,1,1,1,1,'','','Me refería a si has modificado el gestor de errores de FiveWin y has implementado uno tuyo.\n\nNo tienes el enlazador Blinker (versión 3.2 ó superior) ?','',0,'AIA=','2kcqoekh',1,0,'',2,0,0),(1764,460,7,2,0,'80.58.2.107',1131620826,1,0,1,1,1,1,'','','Sí, efectivamente, has de ponerlo después del ACTIVATE. Las ventanas son modales en Pocket PC. \n\nLa claúsula VALID de la ventana no hemos conseguido de momento implementarla, pues provoca un error de la aplicación.','',0,'AIA=','39hf86k1',1,0,'',2,0,0),(1765,361,21,217,0,'200.153.134.188',1131620963,1,0,1,1,1,0,'','','[quote=&quot;siscat&quot;:2it7axib]dá uma olhada em <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w -->  .. lá tem uma classe TTree muito boa...[/quote:2it7axib]\n\nO site está fora do ar...  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[ ]\'s\nMaurilio','',0,'gA==','2it7axib',1,0,'',217,0,0),(1766,442,7,2,0,'80.58.2.107',1131621517,1,0,1,1,1,1,'','Re: preguntas varias .','[quote=&quot;astursoft&quot;:ftr62ioj]Existe o esta previsto el soporte de archivos ini ?[/quote:ftr62ioj]\n\nDe momento puedes usar el registro general de Windows, es decir no ficheros INI privados, sino el \"registry\" público de Windows. En FWH tienes un ejemplo en samples\\TestRg32.prg.  \n\n[quote=&quot;astursoft&quot;:ftr62ioj]los tabs , se implementaran en breve o sera para más adelante ?[/quote:ftr62ioj]\n\nQueremos implementarlo cuanto antes.\n\n[quote=&quot;astursoft&quot;:ftr62ioj]el uso scroll en dialogos o ventanas está implementado ?[/quote:ftr62ioj]\n\nEn <!-- m --><a class=\"postlink\" href=\"http://www.devbuzz.com/content/zinc_evb_scrollable_forms_pg1.asp\">http://www.devbuzz.com/content/zinc_evb ... ms_pg1.asp</a><!-- m --> hay un ejemplo de cómo hacerlo en VB. Vamos a implementar un ejemplo en FiveWin lo antes posible.','',0,'gA==','ftr62ioj',1,0,'',2,0,0),(1767,454,5,270,0,'65.27.183.36',1131622904,1,0,1,1,1,0,'','','I\'d prefer the revised fivert32rt.dll.\n\nThanks','',0,'gA==','3jhqbts4',1,0,'',270,0,0),(1768,441,1,139,0,'212.205.251.99',1131624569,1,0,1,1,1,0,'','','&#913;&#966;&#945;&#943;&#961;&#949;&#963;&#949; &#959;&#955;&#945; &#964;&#945; object &#945;&#960; &#964;&#951; &#966;&#959;&#961;&#956;&#945; &#963;&#949; &#949;&#957;&#945; test &#960;&#961;&#959;&#947;&#961;&#945;&#956;&#956;&#945;\n&#954;&#945;&#953; &#945;&#966;&#959;&#965; &#949;&#956;&#966;&#945;&#957;&#953;&#963;&#964;&#949;&#953; &#951; &#954;&#965;&#961;&#953;&#945; &#959;&#952;&#959;&#957;&#951; &#960;&#961;&#972;&#963;&#952;&#949;&#964;&#949; &#949;&#957;&#945;-&#949;&#957;&#945; &#964;&#945; get &#954;&#964;&#955;\n&#947;&#953;&#945; &#957;&#945; &#948;&#949;&#953;&#962; &#960;&#959;&#953;&#959; &#949;&#967;&#949;&#953; &#964;&#959; &#960;&#961;&#972;&#946;&#955;&#951;&#956;&#945;\n\n&#964;&#959; DLL &#956;&#951;&#957; &#964;&#959; &#960;&#951;&#961;&#940;&#958;&#949;&#953;&#962;\n\n&#960;.&#967;.\n \nSET RESOURCES TO “WIFTSRN.DLL”\n\nDEFINE DIALOG oF2_Dlg NAME \"FORM_2\"  \n\n\nACTIVATE DIALOG oF2_Dlg CENTER \n\n&#966;&#953;&#955;&#953;&#954;&#940; \n\n&#915;&#953;&#940;&#957;&#957;&#951;&#962;','',0,'gA==','31eg96rm',1,0,'',139,0,0),(1769,467,2,146,0,'200.117.219.36',1131626149,1,0,1,1,1,0,'','que no se vea el cursor','Hola Amigos: quiero que no se vea el cursor del teclado dentro de un get. Alguien sabe con que instruccion desaparece el cursor del teclado. Gracias. Saludos\nLeonor','',0,'gA==','h2ppi01i',1,0,'',146,0,0),(1770,468,2,271,0,'80.58.53.235',1131628012,1,0,1,1,1,0,'','¿Cómo exportar listados  DBF o Excel?','Hola <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPues nada, que tengo que poder exportar los listados de mi aplicación a Excel o a una DBF (preferiblemente a Excel).\n\n¿Alguna forma o idea?\n\n    Gracias a todos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> y un saludo','',0,'gA==','21rdc6rb',1,0,'',271,0,0),(1771,406,2,264,0,'64.116.212.96',1131628054,1,0,1,1,1,0,'','','por mera curiosidad ...\npodrias indicar cual es el programa ?','',0,'gA==','jfd2oc39',1,0,'',264,0,0),(1772,468,2,264,0,'64.116.212.96',1131628736,1,0,1,1,1,0,'','','esta es mi forma ( al la vieja..... )\n\nFunction Dbf2Excel( oPadre, cFileDbf, lSQL, cOtraTabla, aOtrosCampos )\nLocal hExcel, oDDEs\nLocal Planilla, aNuevo, cCelda, xValor\nLocal cFileXls := Spac(250)\nLocal j, nRegistros, nCampos\nLocal cEjecut := \"C:\\MSOFFICE\\EXCEL\\Excel.Exe\"\nLocal i := 0\nLocal lCerrarExcel := .F.\nLocal aTareas := GetTasks()\nLocal hStmt := 0\nLocal TMaes  := {}\nLocal aResult := {}\nLocal nOpcion := 0\nLocal xCampos\nLocal qq := Chr(34)\nMEMVAR DEFATMP\n\nDEFAULT lSQL := .F.\n\nIf aScan( aTareas, {|x| \"EXCEL.EXE\" $ Upper(x) } ) &gt; 0\n   * excel ya fue cargado en memoria\n   MsgStop(OemToAnsi(\"Debe cerrar Excel para realizar este proceso y luego continuar\"),;\n           \"Error de Operador\")\n   Return NIL\nEndIf\n\nIf !MsgGet( \"Grabar en Archivo Excel...\",;\n            OemToansi(\"Nombre de Salida (sin extension .xls)\"),;\n            @cFileXls )\n   Return NIL\nEndIf\n\ncFileXls := AllTrim( cFileXls )\nIf File( cFileXls )\n   MsgStop(\"Nombre de archivo ya existe...\",\"Error de Operador\")\n   Return NIL\nElseIf Empty( cFileXls )\n   MsgStop(\"Nombre de archivo no corresponde...\",\"Error de Operador\")\n   Return NIL\nEndIf\n\n* parece que esta bueno\ncFileXls := DEFATMP+\"\\\"+cFileXls+\".Xls\"\nSysRefresh()\n\noPadre:bDdeInit    := {|hWndClient, cAppName, cTopicName| MsgBeep() }\noPadre:bDdeExecute := {|hWndClient, cCommand | &amp;(cCommand) }\n\nDEFINE DDE oDDEs ;\n       SERVICE \"Excel\" ;\n       TOPIC  \"System\"\n\nIf aScan( aTareas, {|x| \"EXCEL.EXE\" $ Upper(x) } ) == 0\n   lCerrarExcel := .T.\n   If ( hExcel:= WinExec( cEjecut, <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> ) &lt; 32\n      If hExcel &gt; 0\n         MsgStop( \"Excel no cargado...\" )\n         Return Nil\n      Endif\n   EndIf\nElse\n   lCerrarExcel := .F.\n   * excel ya fue cargado en memoria\nEndIf\n\nhExcel := GetWndTask(1)\nIf hExcel = Nil\n   MsgInfo( \"Programa Excel no encontrado\")\n   Return Nil\nEndif\n\nACTIVATE DDE oDDEs\nCursorWait()\n\nSelect (cFileDbf)\nCOPY TO _Dbf2Xls\n\noDDEs:Execute(\"[Open(\" +qq+ DEFATMP+\"\\_Dbf2Xls.Dbf\" +qq+ \")]\")\noDDEs:Execute( \"[Save.As(\" +qq+ cFileXls +qq+ \",1)]\" )\n\nIf lCerrarExcel\n   SendMessage( hExcel, WM_DESTROY )\nEndIf\noDDEs:End()\noDDEs := Nil\n\nCursorArrow()\n\nBorrar( \"_Dbf2Xls.dbf\" )\n\nReturn NIL\n//-----------------------------------\n\nademas viktor tomas tiene una clase re-buena para hacer conexion con excel, creo que se llama TFILEXLS.\n\nSaludos y espero te sirva.','',0,'','5jenpbls',1,0,'',264,0,0),(1773,468,2,271,0,'80.58.53.235',1131629327,1,0,1,1,1,0,'','OK peroooo ¿DDE?','Hola <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nMuchas muchas gracias por la superrespuesta.\nSolo una cosa ¿Que es DDE?\n\nUn saludo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','39tymoeo',1,0,'',271,0,0),(1774,469,6,121,0,'201.128.6.86',1131632415,1,0,1,1,1,1,'','PARA ANTONIO  FALLAS EN EL PREVIEW DE FWH 2.6','Saludos\nRecientemente adquiri la actualizacion de FWH  y note unos detalles de funcionamiento en el preview.\n\n1. Cuando se cambia el factor de zoom por ejemplo a 3, al dar click sobre la pantala el factor vuelve a 1 y se necesita nuevamente dar 3 para lograr nuevamente el zoom deseado.\nEn la version anterior que utilizaba (FWH 2,4) no sucedia esto\n\n2. Cuando uno va al final del reporte, se muestra el indicador de la pagina, por ejemplo : 5/5  \ny al dar enter en la pantalla , el indicador vuelve a mostrar  1/5 , sin embargo en la pantalla sigue apareciendo la pagina 5\n\nSaludos','',0,'','2re6y2qr',1,0,'',121,0,0),(1775,470,6,66,0,'24.232.135.75',1131639578,1,0,1,0,1,0,'','Tsbrowse y Tsbutton para Xharbour .99','Estimados Colegas\n\nAlguien tiene ya compilada las librerias Tsbrowse, Tsbutton para\nXharbour .99  , me la pueden enviar, o eventualmente decirme\nde donde la puedo descargar\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','ebvczzgb',1,0,'',66,0,0),(1776,19,2,42,0,'83.49.234.51',1131639824,1,0,1,1,1,0,'','','No he modificado nada de esto .\nTengo microsoft link 5.60, y la version de fivewin 1.92 y clipper 5.2a\nAun estoy probando.','',0,'','2yk6z04y',1,0,'',42,0,0),(1777,454,5,2,0,'80.58.2.107',1131642114,1,0,1,1,1,1,'','','Dan,\n\nPlease send us an email requiring it (Five32rt.dll). Thanks.','',0,'','linntb6q',1,0,'',2,0,0),(1778,471,6,21,0,'80.58.41.235',1131644653,1,0,1,1,1,1,'','transacciones con ads','Hola foro,\n\nUso Ads en modo servidor con transacciones, lógicamente. Además no permito, por ejemplo, que se repita el mismo número de albarán a través de un indice unique\n\nEl problema es que a veces se bloquea la aplicación, por problemas ajenos al programa, y hay que cerrar la aplicación a lo bruto (con el administrador de tareas). Esto produce que ads no desconecte directamente el usuario, tarda un tiempo en desconectarlo. \n\nSi cuando se bloqueó estaba realizando una transacción queda esa transación abierta y al seguir trabajando los demás usuarios no localizan el albarán de la transacción, dé como número siguiente el mismo número que el de la transacción abierta y al grabar si me dice que el número esta abierto.','',0,'','3akfuwni',1,0,'',21,0,0),(1779,472,6,107,0,'80.58.24.42',1131645764,1,0,1,1,1,0,'','Borrar ultimo registro en TCBrowse','Hola, seguro que es una tontería pero no consiguo programarlo\n\nLo que me pasa es que al borrar el último registro de un browse, el pintado de los registros que se muestran en la pantalla no lo hace bien, esto solo sucede si el browse no esta completo.\n\nEl codigo que utilizo es este\n[code:1br9j98f]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;TcBrowse&#46;ch&quot;\n\n#define FICHERO    &quot;PRUEBA&#46;DBF&quot;\n#define INDICE     &quot;PRUEBA&#46;CDX&quot;\n\n//-----------------------------------------------------------------------//\nfunction Prueba&#40;&#41;\nFIELD NOMBRE\nLocal oDlg, oBrw, oDbf, oCol\nCrearDbf&#40;&#41;\n\nSELECT PRUEBA\nDATABASE oDbf\n\nDEFINE DIALOG oDlg FROM 0,0 TO 500,400 PIXEL\n@ 10,10  BROWSE oBrw PIXEL SIZE 160,240 OF oDlg ;\n         ON DBLCLICK Borrar&#40;oDbf, oBrw&#41;\n\noDbf&#58;GoTop&#40;&#41;\noBrw&#58;SetoDbf&#40; oDbf &#41;\noBrw&#58;cAlias &#58;= &quot;&quot;		// PARA QUE NO DE ERROR\n\nADD COLUMN TO BROWSE oBrw  DATA oBrw&#58;oDbf&#58;NOMBRE;\n     HEADER &quot;Nombre&quot;\nACTIVATE DIALOG oDlg CENTER\nreturn nil\n\n//-----------------------------------------------------------------------//\nSTATIC FUNCTION CrearDbf&#40;&#41;\nFIELD NOMBRE\nLocal aDbf, i, n\n\naDbf     &#58;= &#123;&#125;\nAADD&#40; aDbf, &#123; &quot;NOMBRE&quot;, &quot;C&quot;, 40, 0 &#125; &#41;\nDBCREATE&#40; FICHERO, aDbf&#41;\ndbcloseall&#40;&#41;\nuse PRUEBA\npack\nINDEX ON NOMBRE TAG &quot;PRUEBAS1&quot; TO &#40;INDICE&#41;\nn &#58;= 20\nMsgGet&#40;&quot;Registros&quot;, &quot;Cuantos agregamos?&quot;, @n&#41;\nfor i = 1 to n\n   APPEND BLANK\n   REPLACE NOMBRE WITH  &quot;ZONA&quot; + ALLTRIM&#40;STR&#40;i&#41;&#41;\nnext i\nRETURN NIL\n\n//-----------------------------------------------------------------------//\nSTATIC FUNCTION Borrar&#40;oDbf, oBrw&#41;\nIf MsgYesNo&#40;&quot;Borrar registro&quot;&#41;\n   oDbf&#58;Delete&#40;&#41;\n   oBrw&#58;Refresh&#40;&#41;\nEndIf\nreturn nil\n[/code:1br9j98f]\n\nPara borrar el registro se usa doble click\n\nGracias','',0,'AIA=','1br9j98f',1,0,'',107,0,0),(1780,468,2,264,0,'64.116.212.96',1131646459,1,0,1,1,1,0,'','','de lo que entiendo es Dinamic Data Exchange, o intercambio dinamico de datos....\nahora saber que es exactamente...mmmm dificil.\n\nse que lo hace y eso me deja tranquilo un rato.\nSaludos','',0,'AIA=','3muchifp',1,0,'',264,0,0),(1781,473,7,262,0,'83.97.168.9',1131650634,1,0,1,1,1,0,'','falta msgnoyes ?','Ante todo dar las gracias a Antonio por la rápida aclaración de mis dudas .\nen el programa que estoy creando , pretendo usar la funcion msgnoyes , y me encuentro que no existe , no así la funcion msgyesno que funciona bien , creo que sería trivial incluirla .\nSaludos.','',0,'AIA=','2exbihcu',1,0,'',262,0,0),(1782,440,6,49,0,'82.59.142.120',1131653563,1,0,1,1,1,0,'','','thanks\n[code:1dthtspj]// prova con ADO\n\n\n#include &quot;Fivewin&#46;ch&quot;\n\n\nFunction Main&#40;&#41;\n\nLocal oRS,oLbx\n\n\n      oRS = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n      oRS&#58;Open&#40; &quot;SELECT * FROM Prodotti ORDER BY Codice&quot;,&quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=ecom&#46;mdb&quot;,0,3 &#41;\n\n\n// Creo il list box e i bottoni\n\n\n        DEFINE DIALOG oDlg FROM 3, 3 TO 28, 79 TITLE &quot;Gestione Prodotti&quot;\n         @ 0,  1 SAY &quot; &amp;Prodotti&quot;  OF oDlg\n\n\n\n\n\n\n         @ 1, 1 LISTBOX oLbx FIELDS  oRS&#58;Fields&#40; &quot;Codice&quot; &#41;&#58;value,;\n                                     oRS&#58;Fields&#40; &quot;Prodotto&quot; &#41;&#58;Value,;\n                                     oRS&#58;Fields&#40; &quot;Categoria&quot; &#41;&#58;Value,;\n                                     oRS&#58;Fields&#40; &quot;Scategoria&quot; &#41;&#58;Value ;\n                             HEADER &quot;Codice&quot;, &quot;Prodotto&quot;,&quot;Categoria&quot;,&quot;Scategoria&quot; ;\n                             SIZE 284, 137 OF oDlg\n\n\n   @ 9,  1 BUTTON &quot;&amp;Nuovo&quot;    OF oDlg  SIZE 40, 12\n   @ 9,  8 BUTTON &quot;&amp;Modifica&quot; OF oDlg  SIZE 40, 12\n   @ 9, 15 BUTTON &quot;&amp;Cancella&quot; OF oDlg  SIZE 40, 12\n   @ 9, 22 BUTTON &quot;&amp;Ricerca&quot; OF oDlg  SIZE 40, 12\n   @ 9, 29 BUTTON &quot;&amp;Stampa&quot;  OF oDlg  SIZE 40, 12\n   @ 9, 40 BUTTON &quot;&amp;Uscita&quot;   OF oDlg ACTION oDlg&#58;End&#40;&#41;         SIZE 40, 12\n\n   ACTIVATE DIALOG oDlg\n\n\n\n    oRS&#58;Close&#40;&#41;\n    RETURN NIL[/code:1dthtspj]\n\nIt not run  why ?','',0,'AIA=','1dthtspj',1,0,'',49,0,0),(1783,468,2,10,0,'212.40.255.188',1131654240,1,0,1,1,1,0,'','','DDE = Dynamic Data Exchange. \nIntercambio Dinámico de Datos. Conjunto de especificaciones de Microsoft para el intercambio de datos y control de flujo entre aplicaciones. \n\nSaludos','',0,'AIA=','18dnf2pz',1,0,'',10,0,0),(1784,453,3,49,0,'82.59.142.120',1131654893,1,0,1,1,1,0,'','','Enrico Maria answers only  to who wants: this is why I, Freni  and many others Fwusers  more have not attended the Italian Ng.\nYou now have made he also moderator of the Italian Forum but You can see with your eyes that not are more all the Italian fwusers who were once.\nPerhaps if you did not make he moderator the forum  was fuller ofItalia  fwusers.\nIf Enrico is a Master of Ado as You say Can hemake he the first step towards of we , You will see that the things in future will change.\n\nFalconi Silvio','',0,'AIA=','1kkivauu',1,0,'',49,0,0),(1785,473,7,2,0,'80.58.2.107',1131655966,1,0,1,1,1,1,'','','Incluida <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nEn el próximo build que publiquemos ya estará disponible.','',0,'AIA=','3c4lmo0m',1,0,'',2,0,0),(1786,469,6,2,0,'80.58.2.107',1131656301,1,0,1,1,1,1,'','Re: PARA ANTONIO  FALLAS EN EL PREVIEW DE FWH 2.6','[quote=&quot;Marco Augusto&quot;:f313e0ii]1. Cuando se cambia el factor de zoom por ejemplo a 3, al dar click sobre la pantala el factor vuelve a 1 y se necesita nuevamente dar 3 para lograr nuevamente el zoom deseado.[/quote:f313e0ii]\n\nTe refieres a dar doble click para pasar a modo normal y luego volver a dar doble click para ampliar ?\n\n[quote=&quot;Marco Augusto&quot;:f313e0ii]2. Cuando uno va al final del reporte, se muestra el indicador de la pagina, por ejemplo : 5/5  \ny al dar enter en la pantalla , el indicador vuelve a mostrar  1/5 , sin embargo en la pantalla sigue apareciendo la pagina 5[/quote:f313e0ii]\n\nHemos probado samples\\TestPrn2.prg pero no conseguimos reproducir lo que comentas. ¿ Puedes probar si se produce el fallo con ese ejemplo también ? Gracias.','',0,'gA==','f313e0ii',1,0,'',2,0,0),(1787,464,2,2,0,'80.58.2.107',1131656466,1,0,1,1,1,1,'','','Willi,\n\nQue error te sale ?','',0,'gA==','1sd2wxk2',1,0,'',2,0,0),(1788,464,2,78,0,'201.240.74.106',1131657325,1,0,1,1,1,0,'','','Ups. Sorry, olvide mencionarlos\n\nEn este codigo. \n\nFOR nCont := 1 TO 60\n  REDEFINE BTNBMP oMesa[nCont] ;\n   RESOURCE \"VACIA\" NOBORDER ;\n    ID (200 + nCont) OF oDls ;\n    ACTION ( OpcionMesa(1, ::nId - 200) )\nNEXT nCont\n[color=red:1jfqg8s0]oMesa[::nId]:bRClicked := {|nRow,nCol| OpcionMesa(2, ::nId - 200)}[/color:1jfqg8s0]\n\n\nEl error sale en la linea roja\n\nWARNING c1003 AMBIGUOS REFERENCE \"SELF\"\n\nSalu2\nWilli','',0,'Ag==','1jfqg8s0',1,0,'',78,0,0),(1789,380,4,150,0,'62.14.48.66',1131659389,1,0,1,1,1,1,'','Now it works','Thanks Antonio, now it works.\n\nWhen I started the aplication I was afraid of using a new product on an aplication with a so sort time limit. But now everything  is ok','',0,'Ag==','3po1oqbl',1,0,'',150,0,0),(1790,474,18,217,0,'200.178.178.150',1131666446,1,0,1,1,1,0,'','ESC, Tab, Sh tab... don´t work under TPage and memos (fixed)','Antonio, \n\nI use a dialogs with 3 pages (TPages class), in a page I use a memo get, when this memo get focused, the keys Tab, Shift Tab, ESC... don\'t work properly. \nESC = don\'t work \nTab and Shift Tab = include a tab space in the text before skip to next/prior control... \n\nRegards, \nMaurilio','',0,'Ag==','1sxj3r7d',1,0,'',217,0,0),(1791,380,4,2,0,'80.58.2.107',1131669504,1,0,1,1,1,1,'','','Jose,\n\nWe are glad to know we are moving forward <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks to all of you for your feedback and support,','',0,'Ag==','3l8m4g9b',1,0,'',2,0,0),(1792,467,2,2,0,'80.58.2.107',1131669699,1,0,1,1,1,1,'','','Leonor,\n\nHideCaret( &lt;oGet&gt;:hWnd )','',0,'Ag==','238wxxk9',1,0,'',2,0,0),(1793,463,2,2,0,'80.58.2.107',1131669886,1,0,1,1,1,1,'','','&lt;oBar&gt;:oClock:bAction = { || nil }\n&lt;oBar&gt;:oDate:bAction = { || nil }','',0,'Ag==','2bobmdpk',1,0,'',2,0,0),(1794,464,2,2,0,'80.58.2.107',1131670307,1,0,1,1,1,1,'','','Willi,\n\nPrueba esto:\n\nSetRClicked( oMesa )\n\noMesa[ oMesa:nId ]:bRClicked = { | nRow, nCol | OpcionMesa( 2, oMesa:nId - 200 ) }\n\nreturn nil\n\ny llama a SetRClicked() antes del NEXT\n\nSi no funcionase así, prueba con:\n\nSetRClicked( oMesa, nCount )\n\noMesa[ nCount ]:bRClicked = { | nRow, nCol | OpcionMesa( 2, nCount - 200 ) }\n\nEsto es a lo que se llama \"detached locals\" (variables locales que quedan \"atrapadas\" dentro de un codeblock <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2t0gzsgd',1,0,'',2,0,0),(1795,469,6,121,0,'201.139.132.107',1131670369,1,0,1,1,1,1,'','PRUEBA CON TESTPRN2','probando con testprn2\n\nsigue el problema de cuando cambias el zoom a 5\ndespues das doble click en la pantalla y te lo vueve a dejar en 1\n\nde tal forma que si vuelves a dar doble click primero debes volver a cambiar el factor del zoom, lo que no pasaba en la version FWH 2.4\n\nlo que no falla es el indicador de pagina, ese si se muestra correcto','',0,'','3lc1bmlh',1,0,'',121,0,0),(1796,475,3,230,0,'205.188.116.68',1131671047,1,0,1,1,1,0,'','ADS Driver','I am trying to access my database With the ADS Driver that I have used\nin the Pass.  My Last version of Fivewin for Harbour was 2.3. Now I have\nupgraded to version 2.6 the September Build.\n\nBut I can\'t find the ACE32.Lib in any of my Dir.\n\nI am trying to use the XHarbour Version of harbour to build my Apps.\n\nI have also looked that the regualer version of Habour to, but the file\nACE32.lib is not included with ether Version.\n\nCan someone E-Mail me a Version of (ACE32.LIB) for Harbour and\nxHarbour Version 2.6.  \n\nMy Harbour Version is  45\nMy XHarbour Version is .99.51\n\nThank you\nJim Bohanan\n\n<!-- e --><a href=\"mailto:jim37920@aol.com\">jim37920@aol.com</a><!-- e -->','',0,'','1blnotz6',1,0,'',230,0,0),(1797,475,3,2,0,'80.58.2.107',1131671332,1,0,1,1,1,1,'','','Jim,\n\nYou may create ace32.lib from your ace32.dll:\n\nimplib.exe ace32.lib ace32.dll','',0,'','3bgyuyt0',1,0,'',2,0,0),(1798,471,6,138,0,'201.128.111.75',1131672940,1,0,1,1,1,1,'','','Efectivamente, cuando manejas transacciones y las terminales pierden la conexion con el server, la transaccion permanece abierta 4 minutos (ese parametro lo configuras en el ADS) pasados los 4 minutos desaparece la transaccion, mientras lo demas usuarios no pueden hacer uso de esa inforamcion, porque el archivo permanece bloqueado, por eso no se recomienda hacer bloqueos dentro de transacciones.\n\nLo que nosotros hicimos para agilizar el proceso y evitar el problema que tu tienes, fue asignar los numeros consecutivos de documento AL FINAL de la operacion, por ejemplo si se esta dando de alta una factura o un albaran, el numero no aparece al principio, es decir, el usuario comienza a capturar el documento, pero no sabe que numero tiene este, hasta que le da la boton de guardar, en ese momento se realiza un bloqueo de archivo al consecutivo de albaranes, se calcula el numero siguiente y luego con ese numero se procede a registrar todo el albaran dentro de una transaccion. Al final al usuairo se le informa... Albaran registrado con el numero: 12354324. De esta forma impides que se queden archivos bloqueados y que tengas que esperar los 4 minutos respectivos para poder continuar operando el aplicativo.','',0,'','a57gqli1',1,0,'',138,0,0),(1799,468,2,138,0,'201.128.111.75',1131673207,1,0,1,1,1,1,'','','Si estas trabajando a 16 bits utiliza la FileXLS de Ramon Avendaño, te genera archivos XLS nativos de Excel sin necesidad de DDE ni de OLE, es mas, no necesitas tener ni siquiera excel instalado.','',0,'','34aimnt1',1,0,'',138,0,0),(1800,431,2,138,0,'201.128.111.75',1131675647,1,0,1,1,1,1,'','Re: Ayuda para correo','[quote=&quot;Jose Luis&quot;:3uhklls6]Hola amigos:\nA ver si me sacais del apuro; Necesito descargar en fase automática correo electrónico de un proveedor, siempre viene un fichero adjunto, y luego mi aplicación se encarga de tratar esos datos.\nComo no va a haber un operador para decir al Outlook que el fichero adjunto lo guarde en tal dirección, necesito saber cómo descargar el correo y guardar el adjunto.[/quote:3uhklls6]\n\nBien, por partes.... \n\nFiveWin tiene una clase TPOP3 que te permite descargar correos electronicos de un servidor POP sin ningun problema, funciona perfectamente, mirate el ejemplo TESTPOP3.PRG \n\nEl problema que presenta esta clase, es que bajo FW de 16 bits esta limitada, con FWH a 32 bits no tiene limitacion alguna y tiene grandes ventajas adicionales.\n\nPara que entiendas esto tengo que explicarte un poco sobre el formato del correo electronico:\n\nBajo internet, TOOOODOO se maneja como cadenas de caracteres, el SMTP, EL FTP, EL WEB, EL POP..... todo. La informacion que se envia por la red, son enormes o pequeñas cadenas de caracteres en codigo ASCII puro y duro. El Correo POP no es la excepcion, cada mensaje de correo electronico esta compuesto de 3 partes principales: la cabecera, que es donde se encuentra informacion sobre el contenido del mensaje de correo y sus anexos, el cuerpo que es el mensaje en si, y los archivos anexos.\n\nCada mensaje de correo es una enorme cadena de caracteres, aun si tiene archivos añadidos, estos archivos estan pegados al mensaje de correo tambien como cadenas de caracteres, pero codificadas en un formato especial llamado MIME.\n\n¿ Como juega FiveWin con esto ?, pues muy facil, como te explique anterioremente, la clase TPOP3 de FW se encarga de conectarse al servidor POP y de descargar los mensajes; la clase TPOP3 tiene una data donde se guardan todos los mensajes llamada ::aMsgs, cuando creas el objeto POP3 este se conecta al servidor, envia los parametros de autenticacion y descarga todos los mensajes (que son cadenas de caracteres, aun los archivos anexos) y los coloca uno a uno dentro de la data ::aMsgs, de tal forma que la longitud de ::aMsgs te indica cuantos mensajes haz leido del servidor POP.\n\nBien, ahora lo interesante, a 16 bits, la clase TPOP3 esta limitada, no puede recibir mensajes de mas de 64 Kbytes, por una simple y sencilla razon..... el tamaño maximo de una cadena de caracteres que Clipper puede manejar es precisamente 64 Kbytes, lo que quiere decir que si el mesaje de correo, archivos anexos incluidos, mide mas de 64K, laaaaaastima, el programa va a fallar, esto no pasa CON EL MISMO CODIGO a 32 bits, porque bajo Harbour, el tamaño maximo de una cadena de caracteres es de 4 Gigabytes.\n\nPor otro lado, recuerda que los arrays de Clipper tambien estan limitados, a un maximo de 4096 elementos, lo que quiere decir que bajo 16 bits, no puedes recibir mas de 4096 mensajes y estos mensajes deben de ser menores de 64 kb de tamaño. A 32 bits, practicamente no tienes limitacion porque los arreglos pueden ser hasta de 4 millones de elementos y cada elemento hasta de 4 GBytes de tamaño.\n\nBien, suponiendo que estamos trabajando a 32 bits, y hemos descargado con exito todos los mensajes y que dichos mensajes estan almacenados en la data ::aMsgs del objeto TPOP3, viene ahora el problema de \"extraer\" los archivos añadidos, que viendolo bien no es un gran problema per se.\n\nDentro del cuerpo del mensaje, se encuentra guardado el nombre el archivo anexo y la longitud de este, lo unico que hay que hacer es hacer un substr() del tamaño del archivo, y guardarlo dentro de otra cadena de caracteres, dicha cadena de caracteres es el archivo añadido, pero no como tal, sino que esta codificado bajo un formato llamado MIME, este formato se utiliza para poder convertir todos los bytes de un EXE, ZIP, TXT u otro, en caracteres imprimibles que pueden ser enviado por internet. FiveWin provee de 2 funciones, MimeEnc() y MimeDec(), la primera es usada por la clase SMTP para codificar los archivos anexos en formato mime y la segunda..... adivinaste...... para decodificar los archivos que vienen en formato mime.\n\nEl resto el facil hace un FCREATE(unidad:\\directorio\\nombrefichero), luego un FWRITE(handler,MimeDec(cadena)) y eso es todo, ya tienes extraido el archivo anexo.\n\nAhora bien, no recuerdo si MimeDec() viene con FW o lo saque de otra lib, pero estoy seguro que (x)Harbour si tiene una funcion para decodificar formato mime.','',0,'gA==','3uhklls6',1,0,'',138,0,0),(1801,475,3,138,0,'201.128.111.75',1131676904,1,0,1,1,1,1,'','Re: ADS Driver','Bohan:\n\nYou have to build your own ACE32.LIB, and is very easy to do:\n\n1) Locate the ACE32.DLL of your current ADS version, you can find a copy of it in the ARC (Advantage Data Architech) directory, if you don`t have the ARC, install it from the ADS CD, because you are going to need two more DLLs from it in order to make your (x)Harbour app to work with ADS.\n\n2) You are going to need: ACE32.DLL, AXWCS32.DLL, and if you are going to work in local mode, the ADSLOC32.DLL, so copy these DLLs into your (x)Harbour application directory.\n\n3) You are going to need a tool called IMPLIB .EXE this tool is included with the Borland C++ and is in the \\BIN directory, this tool converts a DLL into a LIB file that you can link directly into your application.\n\n4) Follow Antonio\'s directions (from the previous message) to create the ACE32.LIB\n\n5) Now you are almost ready to run\n\n6) Download a Copy of RDDADS.LIB, you can find it in the contributions section of the (x)Harbour download page.\n\n7) Link the RDDADS.LIB along with ACE32.LIB into your application and now you are ready (don\'t forget to have the ADS DLLs mentioned before in you app directory).\n\n<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> What are these DLLs for ???? ok here we go:\n\nAXWCS32.DLL is the ADS client for 32 bits applications, this DLL is needed in order to connect to the ADS Server.\n\nACE32.DLL are the ADS Functions, The Advantage Client Engine DLL has all the functions that let you handle the server, why do you need the DLL if you already converted it into a LIB and linked into your app ?, Because not all the functions of the DLL are converted to LIB, and there are some visual components (error messages, for instance) that need the DLL in order to be displayed in the screen.\n\nADSLOC32.DLL this is a \"new\" feature specially if you are comming from the ADS for Clipper, this is a \"small\" ADS Server that can be run in your local machine, this server has all the ADS features except Client/Server technology and transactions, but is fully operative, free, and can handle up to 5 concurrents users. So you don\'t need a remote server any more, with the ADSLOC32.DLL you can take home your personal ADS Server, do your test and then install the software to work on the real remote server.','',0,'gA==','2t0sdesl',1,0,'',138,0,0),(1802,476,6,72,0,'201.135.231.144',1131679233,1,0,1,1,1,0,'','Variables numéricas desde Access','Alguna vez vi este asunto pero no recuerdo la respuesta, resulta que estoy importando datos desde Acces usando TOdbc() requiero traer variables almacenadas con cuatro dígitos decimales y solo me trae dos.\n\nEspero y alguna alma caritativa me de alternativas.\n\nGracias\n\n<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->','',0,'gA==','2fcw226j',1,0,'',72,0,0),(1803,477,1,173,0,'203.151.140.120',1131681565,1,0,1,1,1,0,'','It\'s possible to put Bitmap for background of TWBrowse','Dear all,\n   It\'s possible to put Bitmap for background of TWBrowse. If possible how I do ?\n\nBest Regrad,\n\nPe N Chi  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nPS: I\'m use FiveWin 2.1c, Blinker 7,Comix Database','',0,'gA==','1mmicw87',1,0,'',173,0,0),(1804,466,3,160,0,'210.212.142.6',1131684158,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:28jile17]Milan,\n\nWe have just tried samples\\TestMemo.prg and it works ok. Could you please check it there ?\n\nWhat do you mean for \"Format Get\" ?[/quote:28jile17]\n\nHello Antonio,\n\nPlease try the following example.  Please try to delete character pressing Backspace key after Vertical scroll bar  has beccome active i.e. you have entered characters more than that can fit into that visible space.\n\nI hope I am able to convey my difficulty.\n\nWith best regards,\n\nMilan..\n\n-------------------------Prg-----------------------------\n# include \"fivewin.ch\"\n# include \"fget.ch\"\n\nPROCEDURE Main\n\n    LOCAL oDlg, oMiscInfo, cMiscInfo\n\n    DEFINE DIALOG oDlg RESOURCE \"FGET\"\n\n    REDEFINE FORMAT GET oMiscInfo    VAR cMiscInfo  ID 101    OF oDlg\n    ACTIVATE DIALOG oDlg\n\n    return\n------------------------End Prg--------------------------\n------------------------Rc File---------------------------\n#define IDC_EDIT1   101\n\nFGET DIALOG 6, 15, 161, 127\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION \"FORMAT GET TEST\"\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT IDC_EDIT1, 25, 14, 82, 46, WS_BORDER | WS_VSCROLL | WS_TABSTOP\n}\n------------------------End Rc File-----------------------','',0,'gA==','28jile17',1,0,'',160,0,0),(1805,478,3,230,0,'205.188.116.68',1131686479,1,0,1,1,1,0,'','Question about Index (Tag) Command','I was looking at the New (x)Harbour and Fivewin for Harbour Version\n2.6.  Can you not set a Tag for a CDX index file in your Index Statement.\n\nI was also wanting to use the tDatabase Command and the\nDefine Database Command from the\n\n#Include \"Database.ch\" file.\n\nBut i don\'t see a way to set the Order list from inside the Class\nfor the Index.  I don\'t see a TAG option on the Index Command\nfor the tDatabase Class?  I looked that the tIndex Class and\nwas able to see that one of the Option in the program had the\ntag option added to the Index Command.\n\nBut when I try to use it I get a error Message that it not resagins.','',0,'gA==','3u76j1es',1,0,'',230,0,0),(1806,479,3,160,0,'210.212.142.91',1131690081,1,0,1,1,1,0,'','ListBox problems','Dear All,\n\nHow does Multisel work in ListBox ? I am trying to use Listbox from resource and have checked Multiple Select. But nothing seems to work. How does it work anyway.\n\nHow to enable horizontal scrollbar in ListBox ? Checking Horizontal Scroll bar in resource do not help.\n\nCan anyone guide ?\n\nTIA\nMilan.','',0,'gA==','2r9j3z4u',1,0,'',160,0,0),(1807,450,1,89,0,'213.21.136.60',1131694116,1,0,1,1,1,0,'','','I had the same problem with clipper (only 16 bit) , it was a virus problems .\n\nMaurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'gA==','3hkz2ywm',1,0,'',89,0,0),(1808,468,2,271,0,'80.58.53.235',1131694932,1,0,1,1,1,0,'','OK gracias perooo :-)','OK, ya veo lo de DDE pero supongo que es necesaria una librería al respecto ¿o no?\n\nMuchisimas gracias a todos y un saludo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2pynsdpv',1,0,'',271,0,0),(1809,431,2,265,0,'80.58.18.235',1131696211,1,0,1,1,1,0,'','','Caramba maestro, vaya clase magistral.\nMuchisimas gracias, ahora ya si que no tengo más remedio que migrar a harbour.\nEstoy haciendo pruebas con la ayuda que me ha enviado Antonio y voy avanzando, ahora me he atascado en compilar varios prg\'s, que no me coge el .LNK que tenía creado para ello, pero ya vamos poco a poco.\n\nSaludos\n\nJose Luis','',0,'gA==','2c7j8kxa',1,0,'',265,0,0),(1810,471,6,21,0,'80.58.46.235',1131696704,1,0,1,1,1,1,'','','Hola rene,\n\nMuchas gracias por tu respuesta\n\nTal y como me cuentas que lo haces es como hago yo las transacciones. Sólo al final asigno nuevo número (cuando da al botón guardar), antes ni siquiera esta abierta una transacción.\n\nEl problema es que una vez perdí la conexión del terminal durante la transacción. Ya se sabe, la ley de murphy. \n\nLo que quería saber es si hay alguna posibilidad de detectar a usuarios dentro del diccionario sin estar conectados (colgados) para poder cerrar sus transacciones.','',0,'gA==','v1p53nyj',1,0,'',21,0,0),(1811,479,3,2,0,'80.58.2.107',1131700214,1,0,1,1,1,1,'','Re: ListBox problems','[quote=&quot;Milan Mehta&quot;:vfodxe3x]How does Multisel work in ListBox ? I am trying to use Listbox from resource and have checked Multiple Select. But nothing seems to work. How does it work anyway.[/quote:vfodxe3x]\n\nPlease review samples\\TestLbx4.prg. Just change aSelection into aSelections into such sample.\n\n[quote=&quot;Milan Mehta&quot;:vfodxe3x]How to enable horizontal scrollbar in ListBox ? Checking Horizontal Scroll bar in resource do not help.[/quote:vfodxe3x]\n\nAre the items text length larger than the listbox width ?','',0,'gA==','vfodxe3x',1,0,'',2,0,0),(1812,427,6,88,0,'82.150.2.18',1131700945,1,0,1,1,1,1,'','','Saludos Jorge,\n\nestare a la espectativa  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  de esa libreria   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\n\n\nNos leemos!!','',0,'gA==','16qsy42d',1,0,'',88,0,0),(1813,478,3,2,0,'80.58.2.107',1131701120,1,0,1,1,1,1,'','Re: Question about Index (Tag) Command','[quote=&quot;J-Bohanan&quot;:13t325g5]Can you not set a Tag for a CDX index file in your Index Statement.[/quote:13t325g5]\nThis is a sample:\n   [code:13t325g5]INDEX ON Name + StrZero&#40; Order, 3 &#41; TAG &quot;Name+Ord&quot; ;\n        TO &#40; cPath + &quot;\\DataBase&quot; &#41; FOR ! DataBases-&gt;&#40; Deleted&#40;&#41; &#41;[/code:13t325g5]\n\n[quote=&quot;J-Bohanan&quot;:13t325g5]I was also wanting to use the tDatabase Command...But i don\'t see a way to set the Order list from inside the Class for the Index. I don\'t see a TAG option on the Index Command\nfor the tDatabase Class?[/quote:13t325g5]\n\nAll these methods from Class TDataBase let you manage Tags:\n\n   [code:13t325g5]METHOD CreateIndex&#40; cFile, cTag, cKey, bKey, lUnique&#41; INLINE ;\n          &#40; &#58;&#58;nArea &#41;-&gt;&#40; OrdCreate&#40; cFile, cTag, cKey, bKey, lUnique &#41; &#41;\n\n   METHOD AddIndex&#40; cFile, cTag &#41; INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; OrdListAdd&#40; cFile, cTag &#41; &#41;\n\n   METHOD DeleteIndex&#40; cTag, cFile &#41; INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; OrdDestroy&#40; cTag, cFile &#41; &#41;\n\n   METHOD IndexKey&#40; ncTag, cFile &#41;   INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; OrdKey&#40; ncTag, cFile &#41; &#41;\n   METHOD IndexName&#40; nTag, cFile &#41;   INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; OrdName&#40; nTag, cFile &#41; &#41;\n   METHOD IndexBagName&#40; nInd &#41;       INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; OrdBagName&#40; nInd &#41; &#41;\n   METHOD IndexOrder&#40; cTag, cFile &#41;  INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; OrdNumber&#40; cTag, cFile &#41; &#41;[/code:13t325g5]\n\nDon\'t use Class TIndex. Just use Class TDataBase.','',0,'gIA=','13t325g5',1,0,'',2,0,0),(1814,466,3,2,0,'80.58.2.107',1131702008,1,0,1,1,1,1,'','','Milan, \n\nYour RC is not right, please change it this way:\n\nCONTROL \"\", IDC_EDIT1, \"TFGet\", WS_BORDER | WS_VSCROLL | WS_TABSTOP, 25, 14, 82, 46\n\ninstead of:\n\nEDITTEXT IDC_EDIT1, 25, 14, 82, 46, WS_BORDER | WS_VSCROLL | WS_TABSTOP \n\nNow it works ok.','',0,'gIA=','traahcqd',1,0,'',2,0,0),(1815,455,3,2,0,'80.58.2.107',1131704014,1,0,1,1,1,1,'','','Maurilio,\n\nPlease include these changes in source\\classes\\mget.prg Method KeyChar:\n\n   if nKey == VK_ESCAPE  // Windows API already sends it to dialogs!!!\n      if ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:lModal\n         return nil\n      endif\n      if ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:oWnd != nil .and. ;\n         ::oWnd:oWnd:ChildLevel( TPages() ) != 0\n         ::oWnd:oWnd:oWnd:End()\n      endif   \n   endif\n\n   if nKey == VK_TAB\n      return Super:KeyChar( nKey, nFlags )\n   endif','',0,'gIA=','3d7erh6t',1,0,'',2,0,0),(1816,448,3,2,0,'80.58.2.107',1131704297,1,0,1,1,1,1,'','','Vilian,\n\nIf WHEN returns false, then the control is painted as disabled, that may be the reason why it looks different.\n\nYou may modify class DButton to avoid painting the control in a different way if it is disabled.','',0,'gIA=','12u6scla',1,0,'',2,0,0),(1817,477,1,2,0,'80.58.2.107',1131704454,1,0,1,1,1,1,'','','Peter,\n\nThat would require several changes (painting the bitmap, painting the lines with transparent background).\n\nThose changes are much easier to implement if you use FWH as the painting code is in PRG level.','',0,'gIA=','2mk1lwbk',1,0,'',2,0,0),(1818,469,6,2,0,'80.58.2.107',1131704626,1,0,1,1,1,1,'','','Marco,\n\nLo revisaremos lo antes posible.','',0,'gIA=','1pqq70ak',1,0,'',2,0,0),(1819,455,3,217,0,'200.153.134.120',1131706253,1,0,1,1,1,0,'','','Did and working fine!\n\nThanks a lot, Antonio\n\nRegards,\nMaurilio','',0,'gIA=','2skjizb9',1,0,'',217,0,0),(1820,468,2,2,0,'80.58.2.107',1131707709,1,0,1,1,1,1,'','','Manuel,\n\nEl DDE lo proporciona Windows automaticamente, de todas maneras, como te indica René, lo idóneo es usar la clase de Ramón que te evita tener que usar DDE, tener Excel instalado, etc. Pero ambas soluciones te servirán.','',0,'gIA=','14hid8sc',1,0,'',2,0,0),(1821,431,2,264,0,'64.116.212.96',1131710438,1,0,1,1,1,0,'','','un millon de gracias !!!\n( cuando tenga listo mi correo16 lo publico para todos )','',0,'gIA=','3gry4a2o',1,0,'',264,0,0),(1822,445,6,39,0,'201.220.111.79',1131714013,1,0,1,1,1,0,'','Tdsn','Here the information\n\n#define TDSN_SYSTEM_DSN 0\n#define TDSN_USER_DSN   1\n\nThis define are in the TDSN.CH\n\nAtte,\nLautaro Moreira','',0,'gIA=','3kb0pwcg',1,0,'',39,0,0),(1823,437,6,17,0,'81.41.214.31',1131716503,1,0,1,1,1,1,'','Antonio, no consigo hbzip.lib','Resulta que el xharbour q distribuyes y la libreria hbzip.lib (contribuciones) de xHarbour tienen un error :\nError: Unresolved external \'_hb_stack\' referenced from C:\\FTDN\\XHARBOUR\\LIB\\HBZIP.LIB|zip\nPuedes distribuir en tu xharbour las contribuciones compiladas con la misma versión?\nUn saludo','',0,'gIA=','23tpi9jb',1,0,'',17,0,0),(1824,480,6,41,0,'200.87.67.10',1131716797,1,0,1,1,1,0,'','Salvar preview a grafico','Holas,\n\nno se si alguien tiene por alli un preview que salve los EMF a un formato grafico diferente\ncomo JPG, etc\n\ngracias\n\nMarcelo','',0,'gIA=','1kihxhbm',1,0,'',41,0,0),(1825,428,20,263,0,'82.59.175.223',1131717626,1,0,1,1,1,0,'','','Passato a xHarbour, in compilazione tutto ok, sembra non trovare dbfdbt.lib (presente in c:\\xHardour\\lib\\ ... data creazione:lunedì 6 giugno 2005, 22.22.44), questo il messaggio:\nError: Unresolved external \'_HB_FUN_DBFDBT\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|rddsys\n\ninoltre questa instruzione:\n*   DEFINE BUTTON OF oWnd:oBar NOBORDER RESOURCE \"salva\"   ;\n*          ACTION IIF(MsgAgent(oAge,0,\"Il programma si chiuder… automaticamente per permettere la copia di tutti gli archivi.\"+CRLF+CRLF+;\n*                 \"Se si lavora in RETE Š raccomandata la chiusura del \"+;\n*                 \"programma in tutti i computers!\"+CRLF+CRLF+;\n*                 \"Iniziare la copia?\",\"CE\",3,\"Copia di Sicurezza\",.t.,.t.),(WINEXEC(\".\\FWBACKUP.EXE\") ,;\n*                 oWnd:End(),oAge:Hide()),MsgAgent(oAge,,,\"RB\",,,,.f.));\n*                 MESSAGE \"Programma FWBackup per Salvataggio/Recupero dati\";\n*          TOOLTIP \"Salva/Recupera (Ctrl_Z)\" MESSAGE \"Salvataggio e Ripristino archivi\"\nin compilazione mi da errore:\nC:\\med32\\SOURCE\\med.prg(284) Error E0030  Syntax error: \"syntax error at \'BUTTON\'\"\nmentre compilando con harbour l\'errore non viene generato <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nDov\'è la differenza?','',0,'gIA=','31pka6ne',1,0,'',263,0,0),(1826,84,18,26,0,'193.77.246.223',1131718266,1,0,1,1,1,1,'','','The solution in topic\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=455\">http://fivetechsoft.com/forums/viewtopic.php?t=455</a><!-- m -->\nworks here to!\n\nThx.','',0,'gIA=','bvqijtvx',1,0,'',26,0,0),(1827,346,2,237,0,'200.68.70.89',1131720516,1,0,1,1,1,0,'','Alguna mejora','El procesador de la pc es un pentium iv 2400 mother asus. tiene 512 de ram.\n\nHabia leído algo por ahi, asi que probé de sacar los COMMIT y reemplazarlos por un dbcommitall() solo al final del proceso. No se si es lo mejor pero el rendimiento mejoró un 30%.\n\nCon respecto a lo de modificar los accesos directos, y que se ejecute en un espacio separado de memoria y/o modo compatibilidad para w98, no hicieron  ni la menor modificación en cuanto a velocidad.\n\nRealmente estas cosas me enloquecen por que no tengo la menor idea de como solucionar un problema y mi cliente me hace preguntas y tengo que mentirle y tratar de postergar las cosas para ver que puedo inventar, que le digo ? que se acaba de comprar un pc nuevo con pentium iv 2400 y que mejor le ponga w98 por que mi sistema no funciona bien ahí?\nRealmente es muy frustrante.  Con respecta a harbour, ni hablar, ni yo ni mi cliente tendríamos que invertir un peso solo por un cambio de equipo....\n\nSalu2 a todos.\nAlejandro Cebolido.','',0,'gIA=','1n975mg5',1,0,'',237,0,0),(1828,481,1,204,0,'87.202.97.3',1131727119,1,0,1,1,1,0,'','Greek support in FW','Is it posible to make FW understand Greek for the case changing string functions (e.g. UPPER(), LOWER(), @! and so on)? With DOS apps I just linked in NTXGR437.OBJ and they worked fine. When I link that OBJ or NTXGR851.OBJ well lets say the GETs are not a pritty picture when you type Greek text.\nIs there an equivalent file for FW.\nThanks','',0,'gIA=','37n9jmax',1,0,'',204,0,0),(1829,482,4,89,0,'213.21.136.60',1131727885,1,0,1,1,1,0,'','Level of battery','It is possible to have in the programm the level of battery ,\nthe level of WiFi signal , the amount of memory free ? \n\nRegards Maurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'gIA=','3crxh9jc',1,0,'',89,0,0),(1830,483,6,272,0,'201.222.179.137',1131728397,1,0,1,1,1,0,'','definir funciones que están en DLL','hola amigos.. estoy haciendo una pequeña clase. y en ella me gustaría llamar a unas funciones que están en una DLL escrita en c. \ntengo ésta definicion, pero cuando la ejecuto no hace nada :S si alguien pudiera echarme una manito.. le estaría eternamente agradecido <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->\n\ndll32 function _PDF_stringwidth(p As HDC, text As LPSTR, font As _INT, fontsize As LONG) As LONG  FROM \"_PDF_stringwidth\" LIB cPdfLibDLL\n\nMiguel Angel\nSantiago-Chile','',0,'gIA=','1vkbkdw8',1,0,'',272,0,0),(1831,484,4,277,0,'81.72.105.247',1131728696,1,0,1,1,1,0,'','TBtnBmp problem','There are problems with BtnBmp when i use them in nested forms.\ntry the following program:\n\nin the nested form if i use Tbutton all works fine, but if i use\nBtnBmp the program exits immediatly.\n\nBest regards\nClaudio\n\n8&lt;---------8&lt;---------8&lt;---------8&lt;---------8&lt;---------8&lt;---------8&lt;---------\n\n#include \"Fwce.ch\"\n#include \"common.ch\"\n\nREQUEST DBFCDX\n\nfunction Main()\n   local oWnd, oBrw\n\n   USE \"Storage card\\Customer\" VIA \"DBFCDX\"\n\n   DEFINE WINDOW oWnd TITLE \"test\"\n\n   @ 1, 1 LISTBOX oBrw FIELDS SIZE 220, 167\n\n   a := {}\n   aadd(a,{\"open.bmp\",   {|o|nested()}})\n   aadd(a,{\"print.bmp\",  {|o|oWnd:End()}})\n   aadd(a,{\"search.bmp\", {|o|oWnd:End()}})\n   aadd(a,{\"setup.bmp\",  {|o|oWnd:End()}})\n   aadd(a,{\"star.bmp\",   {|o|oWnd:End()}})\n   aadd(a,{\"test.bmp\",   {|o|oWnd:End()}})\n   aadd(a,{\"users.bmp\",  {|o|oWnd:End()}})\n   a := aHorBtnBmp(a)\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo( \"Click!\" )\n\nreturn nil\n\nfunction nested()\n  local oWnd,oBrw\n  local a,as\n\n  a := {{\"NAME\",   \"C\",10,0},;\n        {\"TYPE\",   \"C\", 1,0} }\n\n  DbCreate( CURDIR()+\"\\STRUCT.DBF\",a)\n\n  select customer\n  a := {}\n  for i := 1 to fCount()\n    aadd(a,{fieldname(i),valtype(fieldget(i))})\n    next i\n\n  use ( CURDIR()+\"\\STRUCT.DBF\") alias STRU new exclusive\n  for i := 1 to len(a)\n    append blank\n    STRU-&gt;NAME  := a[i,1]\n    STRU-&gt;TYPE  := a[i,2]\n    next i\n\n  go top\n\n  DEFINE WINDOW oWnd TITLE \"test\"\n\n  @ 1, 1 LISTBOX oBrw FIELDS SIZE 220, 167\n\n//#define WORKS\n#ifdef WORKS\n   @ 12, 2 BUTTON \"Done\" SIZE 80, 30 ;\n      ACTION oWnd:End()\n#else\n   a := {}\n   aadd(a,{\"open.bmp\",   {|o|oWnd:End()}})\n   aadd(a,{\"print.bmp\",  {|o|oWnd:End()}})\n   aadd(a,{\"search.bmp\", {|o|oWnd:End()}})\n   aadd(a,{\"setup.bmp\",  {|o|oWnd:End()}})\n   aadd(a,{\"star.bmp\",   {|o|oWnd:End()}})\n   aadd(a,{\"test.bmp\",   {|o|oWnd:End()}})\n   aadd(a,{\"users.bmp\",  {|o|oWnd:End()}})\n   a := aHorBtnBmp(a)\n#endif\n\n  ACTIVATE WINDOW oWnd\n\n  close stru\nreturn nil\n\n// -----------------------------   aHorBtnBmp   -------------------------------\n//\n//\nfunction aHorBtnBmp(aBtn,nSkip,nRow,nCol,nSize,nGap,cDir)\n  local aObj := array(len(aBtn))\n  default nSkip to 0\n  default nRow to 234\n  default nCol to 2\n  default nSize to 32\n  default nGap to 2\n  default cDir to curdir()+\"\\\"\n  nCol += nSkip*(nSize+nGap)\n  aeval(aObj,{|x,i|aObj[i] := TBtnBmp():New(nRow,nCol,nSize,nSize,,,cDir+aBtn[i,1],,aBtn[i,2]), nCol += nSize+nGap})\nreturn aObj\n\n8&lt;---------8&lt;---------8&lt;---------8&lt;---------8&lt;---------8&lt;---------8&lt;---------','',0,'','1wge5ub5',1,0,'',277,0,0),(1832,485,4,277,0,'81.72.105.247',1131728847,1,0,1,1,1,0,'','Browsing arrays','Is possible to browse arrays?\n\nBest Regards.\nClaudio','',0,'','3b9e7k5h',1,0,'',277,0,0),(1833,476,6,72,0,'201.135.231.144',1131728931,1,0,1,1,1,0,'','','Resuelto!\n\nDefinitivamente a veces anda uno medio güey o quiere que los demás resuelvan los problemas, fue suficiente con indicar SET DECIMALS TO n.\n\nGracias.','',0,'','3tjafzu6',1,0,'',72,0,0),(1834,476,6,21,0,'80.58.41.235',1131730480,1,0,1,1,1,1,'','','Hola Alfredo,\n\nUn consejo que te doy es que pongas SET DECIMALS TO 15, de esa forma accedas a todos los decimales que hay guardados en la tabla y puedas operar con todos ellos.\n\nYa redondearas a lo que quieras al pintar los datos en pantalla con picture.','',0,'','eejbpiws',1,0,'',21,0,0),(1835,486,4,13,0,'213.76.252.200',1131732407,1,0,1,1,1,0,'','Readonly Combobox and Checkbox','Hello,\n\nIt is possible create a readonly combobox and checkbox ?\n\nRegards\nPawel','',0,'','zlc868se',1,0,'',13,0,0),(1836,458,6,93,0,'201.152.249.29',1131734197,1,0,1,1,1,0,'','Hola Miguel','Excelente trabajo!! \n\nFelicidades','',0,'','t9u2skz2',1,0,'',93,0,0),(1837,476,6,72,0,'201.135.231.144',1131735115,1,0,1,1,1,0,'','','Te agradezco la observación, espero no encontrarme con mas detalles. \n\nSaludos.','',0,'','ffuu9jrj',1,0,'',72,0,0),(1838,458,6,72,0,'201.135.231.144',1131736624,1,0,1,1,1,0,'','','Bastante didáctico, gracias Miguel.','',0,'','9k3yp90e',1,0,'',72,0,0),(1839,480,6,41,0,'200.87.67.10',1131738602,1,0,1,1,1,0,'','Re: Salvar preview a grafico','Por ahora el nconvert esta funcionando en las pruebas, no se so habra otras soluciones mas elegantes.\n\nMarcelo','',0,'','2rg1lguj',1,0,'',41,0,0),(1840,478,3,230,0,'64.12.116.66',1131740457,1,0,1,1,1,0,'','Add Tag Statement to Index','I have tryed to use the Code:\n\nINDEX On Name TAG \"Name+Ord\" To (cPath+\"\\Database\")\n\nBut the TAG will not Work I received a Error Message on\nThe TAG Statement added to the Index Command.','',0,'','ce11aoka',1,0,'',230,0,0),(1841,346,2,75,0,'83.43.117.28',1131741042,1,0,1,1,1,0,'','','Soy tu cliente. \n\nComo me vuelvas a mentir te corto los h....\n\n\n\n\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'','16qge33x',1,0,'',75,0,0),(1842,486,4,2,0,'80.58.2.107',1131741721,1,0,1,1,1,1,'','','Pawel,\n\nYou may disable them:\n\n&lt;oCheckBox&gt;:Disable()\n\nor if used from a dialogbox, then set WHEN to .f.\n\nREDEFINE CHECKBOX ... WHEN .f.','',0,'','10f5g0gy',1,0,'',2,0,0),(1843,474,18,2,0,'80.58.2.107',1131741934,1,0,1,1,1,1,'','','Maurilio, \n\nPlease include these changes in source\\classes\\mget.prg Method KeyChar: \n\nif nKey == VK_ESCAPE // Windows API already sends it to dialogs!!! \nif ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:lModal \nreturn nil \nendif \nif ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:oWnd != nil .and. ; \n::oWnd:oWnd:ChildLevel( TPages() ) != 0 \n::oWnd:oWnd:oWnd:End() \nendif \nendif \n\nif nKey == VK_TAB \nreturn Super:KeyChar( nKey, nFlags ) \nendif','',0,'','2aius0de',1,0,'',2,0,0),(1844,486,4,13,0,'213.76.252.200',1131742090,1,0,1,1,1,0,'','','Antonio,\n\nthanks for reply\n(I must more read source ...)\n\nPawel','',0,'','24v77c9c',1,0,'',13,0,0),(1845,482,4,13,0,'213.76.252.200',1131742253,1,0,1,1,1,0,'','','Maurizio,\n\ntry this:\n[code:1z4qzgg9]\nHB_FUNC &#40;BATTERYINFO&#41;\n&#123;\n   BOOL iRet;\n   SYSTEM_POWER_STATUS_EX status;\n   iRet = GetSystemPowerStatusEx &#40;&amp;status, TRUE&#41;;\n\n   hb_reta &#40;9&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;ACLineStatus, -1, 1&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BatteryFlag, -1, 2&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BatteryLifePercent, -1, 3&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BatteryLifeTime, -1, 4&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BatteryFullLifeTime, -1, 5&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BackupBatteryFlag, -1, 6&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BackupBatteryLifePercent, -1, 7&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BackupBatteryLifeTime, -1, 8&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BackupBatteryFullLifeTime, -1, 9&#41;;\n&#125;\nHB_FUNC &#40;MEMINFO&#41;\n&#123;\n   MEMORYSTATUS st;\n   GlobalMemoryStatus &#40;&amp;st&#41;;\n	\n   hb_reta &#40;4&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; st&#46;dwMemoryLoad, -1, 1&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; st&#46;dwTotalPhys, -1, 2&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; st&#46;dwTotalVirtual, -1, 3&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; st&#46;dwAvailVirtual, -1, 4&#41;;\n&#125;\nHB_FUNC &#40;DISKINFO&#41;\n&#123;\n  BOOL iRet;\n  unsigned __int64 iFreeBytesToCaller, iTotalBytes, iFreeBytes; \n\n  iRet = GetDiskFreeSpaceEx&#40;NULL,\n  &#40;PULARGE_INTEGER&#41; &amp;iFreeBytesToCaller, \n  &#40;PULARGE_INTEGER&#41; &amp;iTotalBytes, \n  &#40;PULARGE_INTEGER&#41; &amp;iFreeBytes&#41;;   \n  hb_reta &#40;2&#41;;\n  hb_stornl &#40;&#40;ULONG&#41; iTotalBytes, -1, 1&#41;;\n  hb_stornl &#40;&#40;ULONG&#41; iFreeBytes, -1, 2&#41;;\n&#125;\n[/code:1z4qzgg9]\n\nRegards\nPawel','',0,'AIA=','1z4qzgg9',1,0,'',13,0,0),(1846,485,4,6,0,'82.57.159.140',1131742964,1,0,1,1,1,1,'','Re: Browsing arrays','Hi Claudio, I\'m happy to see you here! This is a working sample:\n\n[code:1iajjjk5]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBrw\n\n    LOCAL aArray &#58;= &#123; &quot;Test1&quot;, &quot;Test2&quot;, &quot;Test3&quot; &#125;\n\n    LOCAL nCur &#58;= 1\n\n    DEFINE WINDOW oWnd;\n           TITLE &quot;Browsing array&quot;\n\n    @ 0, 0 LISTBOX oBrw FIELDS aArray&#91; nCur &#93;;\n           HEADERS &quot;Test data&quot;\n\n    oBrw&#58;bLogicLen = &#123; || Len&#40; aArray &#41; &#125;\n    oBrw&#58;bGoTop    = &#123; || nCur &#58;= 1 &#125;\n    oBrw&#58;bGoBottom = &#123; || nCur &#58;= Len&#40; aArray &#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; aArray, @nCur, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    oBrw&#58;SetFocus&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SKIPPER&#40; aArray, nCur, nSkip &#41;\n\n    LOCAL nOld &#58;= nCur\n\n    nCur += nSkip\n\n    IF nCur &gt; LEN&#40; aArray &#41;; nCur = LEN&#40; aArray &#41;; ENDIF\n    IF nCur &lt; 1; nCur = 1; ENDIF\n\n    RETURN nCur - nOld[/code:1iajjjk5]\n\nEMG','',0,'AIA=','1iajjjk5',1,0,'',6,0,0),(1847,484,4,6,0,'82.57.159.140',1131743243,1,0,1,1,1,1,'','Re: TBtnBmp problem','This is a known problem. Try to reduce the number of bitmaps. Antonio, did you find the time to look at it?\n\nEMG','',0,'AIA=','2ur9yp8j',1,0,'',6,0,0),(1848,428,20,6,0,'82.57.159.140',1131743658,1,0,1,1,1,1,'','','[quote=&quot;juanito&quot;:huj4zass]Passato a xHarbour, in compilazione tutto ok, sembra non trovare dbfdbt.lib (presente in c:\\xHardour\\lib\\ ... data creazione:lunedì 6 giugno 2005, 22.22.44), questo il messaggio:\nError: Unresolved external \'_HB_FUN_DBFDBT\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|rddsys[/quote:huj4zass]\n\nSe la libreria è presente e non la trova significa probabilmente che la sta cercando da un\'altra parte. Controlla bene i file di compilazione. Magari mandameli che li controllo.\n\n[quote=&quot;juanito&quot;:huj4zass]inoltre questa instruzione:\n*   DEFINE BUTTON OF oWnd:oBar NOBORDER RESOURCE \"salva\"   ;\n*          ACTION IIF(MsgAgent(oAge,0,\"Il programma si chiuder… automaticamente per permettere la copia di tutti gli archivi.\"+CRLF+CRLF+;\n*                 \"Se si lavora in RETE Š raccomandata la chiusura del \"+;\n*                 \"programma in tutti i computers!\"+CRLF+CRLF+;\n*                 \"Iniziare la copia?\",\"CE\",3,\"Copia di Sicurezza\",.t.,.t.),(WINEXEC(\".\\FWBACKUP.EXE\") ,;\n*                 oWnd:End(),oAge:Hide()),MsgAgent(oAge,,,\"RB\",,,,.f.));\n*                 MESSAGE \"Programma FWBackup per Salvataggio/Recupero dati\";\n*          TOOLTIP \"Salva/Recupera (Ctrl_Z)\" MESSAGE \"Salvataggio e Ripristino archivi\"\nin compilazione mi da errore:\nC:\\med32\\SOURCE\\med.prg(284) Error E0030  Syntax error: \"syntax error at \'BUTTON\'\"\nmentre compilando con harbour l\'errore non viene generato <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nDov\'è la differenza?[/quote:huj4zass]\n\nSe mi mandi un microesempio compilabile lo provo. Comunque quello è un comando Fivewin e quindi Harbour o xHarbour non dovrebbe fare alcuna differenza.\n\nEMG','',0,'gA==','huj4zass',1,0,'',6,0,0),(1849,483,6,49,0,'82.59.142.236',1131746576,1,0,1,1,1,0,'','','Miguel,\nif you want a pdf class you can download at my site : <!-- w --><a class=\"postlink\" href=\"http://www.harbour.it\">www.harbour.it</a><!-- w -->\nRegards','',0,'gA==','33ssmcv3',1,0,'',49,0,0),(1850,487,6,52,0,'201.231.14.50',1131746580,1,0,1,1,1,1,'','Pipes','Estimados:\n\nComo hago para saber si una determinada PIPE esta creada o no? \nGracias.','',0,'gA==','2py0rsj7',1,0,'',52,0,0),(1851,445,6,49,0,'82.59.142.236',1131746796,1,0,1,1,1,0,'','','Sorry but I make with nTypeDsn := 1','',0,'gA==','gr0qihym',1,0,'',49,0,0),(1852,488,6,49,0,'82.59.142.236',1131746933,1,0,1,1,1,0,'','help for ftp','I must use ftp class to download a file but I try with ftp by linaresand qftp and qftpfix but  none download a file : all make errors \nHave You a solution ?','',0,'gA==','1zzr69p6',1,0,'',49,0,0),(1853,472,6,107,0,'80.58.24.42',1131750361,1,0,1,1,1,0,'','','¿Es que no tiene solución?','',0,'gA==','2nnk01cu',1,0,'',107,0,0),(1854,463,2,10,0,'212.40.255.188',1131761779,1,0,1,1,1,0,'','','Muchas gracias,Antonio.\n\nFuncionó estupendamente.\n\nUn saludo.','',0,'gA==','25gx8i2y',1,0,'',10,0,0),(1855,449,3,55,0,'59.92.113.176',1131770315,1,0,1,1,1,0,'','','[quote=&quot;Rick Lipkin&quot;:3w213owo]Barlib works great with xHarb and FWH\n[/quote:3w213owo]\n\nIs it free or payable?','',0,'gA==','3w213owo',1,0,'',55,0,0),(1856,466,3,160,0,'210.212.142.91',1131774623,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:381g1vjr]Milan, \n\nYour RC is not right, please change it this way:\n\nCONTROL \"\", IDC_EDIT1, \"TFGet\", WS_BORDER | WS_VSCROLL | WS_TABSTOP, 25, 14, 82, 46\n\ninstead of:\n\nEDITTEXT IDC_EDIT1, 25, 14, 82, 46, WS_BORDER | WS_VSCROLL | WS_TABSTOP \n\nNow it works ok.[/quote:381g1vjr]\n\nDear Antonio,\n\nYes it does. Thanks.\n\nMilan.','',0,'gA==','381g1vjr',1,0,'',160,0,0),(1857,481,1,139,0,'212.205.251.88',1131780674,1,0,1,1,1,0,'','','[code:3j5zzy10]\n-------------------------- \nfont&#46;prg       /////   nCharSet &#58;= 161 greece\n--------------------------\n\nDEFAULT cFaceName &#58;= &quot;SYSTEM_FONT&quot;, nEscapement &#58;= 0, nOrientation &#58;= 0, nWeight &#58;= 0,;\n           nHeight &#58;= 14, lItalic &#58;= &#46;f&#46;, lFromUser &#58;= &#46;f&#46;, lUnderLine &#58;= &#46;f&#46;,;\n           lStrikeOut &#58;= &#46;f&#46;, nCharSet &#58;= 161 , nOutPrecision &#58;= 0,;\n           nClipPrecision &#58;= 0, nQuality &#58;= 0, lBold &#58;= &#46;f&#46;, nWidth &#58;= 0,;\n           nPitchFamily &#58;= 0, &#58;&#58;nCount &#58;= 0, &#58;&#58;lDestroy &#58;= &#46;t&#46;, &#58;&#58;aFonts &#58;= &#123;&#125;\n\n\n\n\n\n\n[/code:3j5zzy10]','',0,'AIA=','3j5zzy10',1,0,'',139,0,0),(1859,484,4,2,0,'80.58.2.107',1131785499,1,0,1,1,1,1,'','','Claudio, Enrico,\n\nAlready fixed. Please download a new FWPPC build.\n\nPlease Claudio, try your code and let me know if it works ok. Thanks,','',0,'AIA=','1nx8kyaz',1,0,'',2,0,0),(1860,482,4,89,0,'213.21.136.60',1131788854,1,0,1,1,1,0,'','','Hello Antonio\n\nwhat include I hav e to link to ?\n\nI try \n#include \"hbapi.h\" \n\nRegards MAurizio \n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'AIA=','2qjld7qi',1,0,'',89,0,0),(1861,482,4,89,0,'213.21.136.60',1131789052,1,0,1,1,1,0,'','','OK I Found \n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\n#include &lt;aygshell.h&gt;\n\nMaurizio','',0,'AIA=','30tlycu9',1,0,'',89,0,0),(1862,484,4,6,0,'87.1.198.175',1131789481,1,0,1,1,1,1,'','','Antonio, you are the man! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','2mbm59id',1,0,'',6,0,0),(1863,449,3,6,0,'87.1.198.175',1131789565,1,0,1,1,1,1,'','','Free.\n\nEMG','',0,'AIA=','2nfdj15b',1,0,'',6,0,0),(1864,482,4,89,0,'213.21.136.60',1131790835,1,0,1,1,1,0,'','','Hello Antonio\ndo not work\n\nRegards Maurizio','',0,'AIA=','r90240hh',1,0,'',89,0,0),(1865,482,4,150,0,'62.14.48.66',1131790948,1,0,1,1,1,1,'','','Hello.\n\nI know nothing about C and I want to use that functions.\n\nWith the code you post I did a File util1.c and put there the function posted by Pawelo and the headers posted by Maurizio. Changed the build.bat for compiling... but How do I use them?\n\nThanks for your help','',0,'AIA=','2zo0wqqv',1,0,'',150,0,0),(1866,482,4,89,0,'213.21.136.60',1131791274,1,0,1,1,1,0,'','','You can put it in a prg  with\n\n#pragma BEGINDUMP \n\n#include &lt;hbapi.h&gt; \n#include &lt;windows.h&gt; \n#include &lt;aygshell.h&gt; \n\nRegards Maurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'AIA=','2ddmbxua',1,0,'',89,0,0),(1867,429,1,148,0,'62.135.38.4',1131793093,1,0,1,1,1,0,'','To the Both two repliers','To the first reply :\n*------------------\nI tried your help about combo Boxes but I got that error message :\nArgument error : ALLTRIM()\nI do not find any alltrim in the whole program .\nTo the second reply :\n*------------------\nI could not find any /source/classes directory in my evaluation version ,So I could not practise any dbcombo programs .\n\n\n#include \"FiveWin.ch\"\n#include \"e:\\programs\\clipper\\fweval\\include\\combos.ch\"\n#include \"dbcombo.ch\" \n//------------------------------------------------------------------------//\nfunction Main()\n   local oDlg\n   local oGet\n   local dDay := Date()\n   local dnum := 0\n   local dnam := space(40)\n   local dpho := space(10)\n   Local oCombo:=CARGACOMBO( .f., \"CUST\",1,\"cu_Name\" ) \n   select 1\n   use cust\n   DEFINE DIALOG oDlg TITLE \"Phone Book\" FROM 0, 0 TO 23, 79\n   @ 1,  2 SAY \"Number:\" OF oDlg\n   @ 1,  6 GET oGet VAR dnum OF oDlg SIZE 20, 12 PICT \"9999\"\n   @ 2,  2 SAY \"Date:\" OF oDlg\n   @ 2,  6 GET oGet VAR dDay OF oDlg SIZE 40, 12 \n   @ 3,  2 SAY \"Name:\" OF oDlg \n   @ 3,  6 GET oGet VAR dNam OF oDlg SIZE 120, 12 pict \"@!\"\n   @ 4,  2 SAY \"Phone #:\" OF oDlg\n   @ 4,  6 GET oGet VAR dpho OF oDlg SIZE 70, 12 \n   @ 7,  6 BUTTON \"&amp;End\" OF oDlg SIZE 30, 12 ACTION oDlg:End()\n   @ 8, 18 COMBOBOX oCombo VAR oCombo ITEMS oCombo OF oDlg\n   ACTIVATE DIALOG oDlg \n      *ON CHANGE MsgInfo( cCombo )\n   *oGet:bGotFocus := { || oGet:SelectAll() }\n\nreturn nil\n//------------------------------------------------------------------------//\n\n\n/*Local aRubro:=CARGACOMBO( .f., \"RUBRO\",2,\"NOMBRE\" ) \nREDEFINE COMBOBOX oRubro VAR cRubro ITEMS aRubro ID 111 OF oFld:aDialogs[1] */\nFunction CARGACOMBO(VACIO,XARCH, XORDEN, XCAMPO) \nLocal ORD_ACT, AREA_ACT := SELECT() \nLocal VECTOR:={}\nselect 1\nuse cust\nDBSELECTAR(XARCH) \nORD_ACT = INDEXORD() \nSET ORDER TO XORDEN \nDBGOTOP() \nIF VACIO \nAADD(VECTOR,SPACE(LEN(EVAL(FIELDBLOCK(XCAMPO))))) \nENDIF \nDO WHILE !(XARCH)-&gt;(EoF()) \nAADD(VECTOR,EVAL(FIELDBLOCK(XCAMPO))) \n(XARCH)-&gt;(DbSkip()) \nENDDO \nSET ORDER TO ORD_ACT \nSELECT(AREA_ACT) \nRETURN VECTOR','',0,'','1sc1my7g',1,0,'',148,0,0),(1868,482,4,13,0,'213.76.252.200',1131796228,1,0,1,1,1,0,'','','to include C source code (Prg file)\n\n[code:12gft3ng]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\n// HB_FUNC &#40;NAME&#41;\n// &#123;\n// &#125;\n\n#pragma ENDDUMP\n\nI have tested info function and return value is Ok&#46; Battery info doesn\'t work on emulator&#46; \n\nPawel[/code:12gft3ng]','',0,'AIA=','12gft3ng',1,0,'',13,0,0),(1869,489,4,150,0,'62.14.48.66',1131799351,1,0,1,1,1,1,'','Activating a Scanner','Hello\n\nFor saving battery I have to activate the scanner when the program is going to use it and desactivate later.\n\nI the Symbol web I hace found some C functions.\n\n1) The Functions are for Microsoft embedded Visual C++ 4.0. Is possible to use that?\n\n2) How do I call a C function\n\nThanks','',0,'AIA=','36iymstg',1,0,'',150,0,0),(1870,482,4,150,0,'62.14.48.66',1131799820,1,0,1,1,1,1,'','','I have done that but I get an Emty .c file.\n\nPlease tell me how do I call that function. I use \n\nBATTERYINFO()\n\nAnd get a linker error\npda.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_BATTERYINFO(void)\" (?HB_FUN_BATTERYINFO@@YAXXZ)\npda.exe : fatal error LNK1120: 1 unresolved externals\n\nThanks for your help','',0,'AIA=','3leovxua',1,0,'',150,0,0),(1871,429,1,9,0,'62.174.202.39',1131800964,1,0,1,1,1,0,'','','An old versión (ten years ago), but try this:\n\n\n. . . . . . \n\n@ nFile, nCol COMBOBOX oCbx VAR cCbx ;\n    ITEMS aBase (\"client.dbf\", 42, \"fieldnom\" )\n\n. . . . . . . .\n\n// -----------------------------------------------------------------------\n// Function ..: aBase\n// Descriptión: Create an array from dbf\n// Parameter .: cFichero (dbf name)\n//              nAncho   (array width)\n//              cCampo   (field name)\n// Return   ..: acDevuelve -&gt; array\n// Manuel Valdenebro ...  MALAGA/SPAIN\n// -----------------------------------------------------------------------\n\nFUNCTION aBase ( cFichero, nAncho, cCampo )\n   LOCAL acDevuelve   := {}, nAreaActiva  := Select()\n  \n   aAdd( acDevuelve, space( nAncho ) )    // Put First element empty\n\n   SELE (cFichero)\n   dbGoTop()\n   \n   WHILE !Eof()\n      aAdd( acDevuelve, (cFichero)-&gt;&amp;cCampo )\n      dbSkip()\n   ENDDO\n\n   SELE ( nAreaActiva )\n\nRETURN( acDevuelve )','',0,'AIA=','3o92ftfh',1,0,'',9,0,0),(1872,481,1,204,0,'83.235.237.178',1131801851,1,0,1,1,1,0,'','','The problem is no showing Greek text but using the PICTURE clauses of a GET, the UPPER() and LOWER() functions. For example try this\n\n[code:1u03tmkn]\nDEFINE oMainFont NAME “Arial Greek” SIZE 0,-12\n\ncText1 &#58;= SPACE&#40;60&#41;\n\nDEFINE DIALOG oFindDlg;\n FROM 4,10 TO 15,65;\n FONT oMainFont;\n TITLE OemToAnsi&#40;&quot;&#933;&#960;&#949;&#961;-&#913;&#957;&#945;&#950;&#951;&#964;&#951;&#963;&#951;&quot;&#41;;\n OF oBrwsWin COLOR CLR_BLACK, CLR_HGRAY\n\n  @ 1&#46;3, 1 GET cText1 PICTURE &quot;@!&quot; OF oFindDlg SIZE 200,10\n\n  @2   , 25 BUTTON OemToAnsi&#40;&quot;&#917;&#957;&#964;&#945;&#958;&#949;&#953;&quot;&#41; SIZE 60,16 OF oFindDlg\n  @3&#46;2, 25 BUTTON OemToAnsi&#40;&quot;A&#954;&#965;&#961;&#959;&quot;&#41;   SIZE 60,16 OF oFindDlg ACTION oFindDlg&#58;End&#40;&#41;\n\nATIVATE DIALOG oFindDlg CENTER\n[/code:1u03tmkn]\n\nLink that with the stanord FW4Clipper libs and run it. Then relink it with stha same libs and NTXGR437.OBJ and see what happens.','',0,'AIA=','1u03tmkn',1,0,'',204,0,0),(1873,428,20,263,0,'87.3.60.83',1131804378,1,0,1,1,1,0,'','','Enrico,\nil problema della dbfdbt.lib l\'ho risolto mettendola come libreria di terze parti, in esecuzione ho questo messaggio di errore:\n\nUnrecoverable error 9000:\n\'ALERT.PRG\' was compiled by older version, PCODE version 5 is no longer supported - Please recompile.\n\nDevo ricompilare tutto fivewin?\nCome fare?','',0,'AIA=','vf86f629',1,0,'',263,0,0),(1874,428,20,263,0,'87.3.60.83',1131804953,1,0,1,1,1,0,'','','L\'istruzione BUTTON presenta due volte il MESSAGE, strano che harbour non ci fa caso <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'AIA=','36trhon1',1,0,'',263,0,0),(1875,490,2,97,0,'200.76.190.184',1131806930,1,0,1,1,1,1,'','DbCombo Fwh no funcina','Una preunta porque el dbcombo en fwh no funciona, el ejemplo de los dbctest con clipper funciona y fwh no corre.\n\ncuales son los cambios que hay que hacer.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'AIA=','229n3h4k',1,0,'',97,0,0),(1876,491,6,97,0,'200.76.190.184',1131807189,1,0,1,1,1,1,'','DbCombo Fwh no funcina','esoy haciendo pruebas y el fwh no funciona dbcombo, hay que hacer algun cambio en el recuros o en la clase.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'AIA=','3k8du5tt',1,0,'',97,0,0),(1877,477,1,173,0,'203.151.140.122',1131807449,1,0,1,1,1,0,'','Thank you for information.','[quote=&quot;Antonio Linares&quot;:3a9snmj5]Peter,\n\nThat would require several changes (painting the bitmap, painting the lines with transparent background).\n\nThose changes are much easier to implement if you use FWH as the painting code is in PRG level.[/quote:3a9snmj5]\n\nDear Antonio\n\nThank you very much for your suggestion.\n\nBest Regrad,\n\nPe N Chi <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','3a9snmj5',1,0,'',173,0,0),(1878,490,2,2,0,'80.58.2.107',1131807628,1,0,1,1,1,1,'','','Fernando,\n\nAcabamos de probar samples\\dbctest.prg con FW y FWH y ambos funcionan igual. El combobox se ve así:\n\n[url=http&#58;//imageshack&#46;us:3s0q16ft][img:3s0q16ft]http&#58;//img207&#46;imageshack&#46;us/img207/2672/dbcombo1zd&#46;jpg[/img:3s0q16ft][/url:3s0q16ft]','',0,'GA==','3s0q16ft',1,0,'',2,0,0),(1879,450,1,173,0,'203.151.140.122',1131808860,1,0,1,1,1,0,'','I\'m ever gotten same promble.','[quote=&quot;Maurizio&quot;:3bdrh72y]I had the same problem with clipper (only 16 bit) , it was a virus problems .\n\nMaurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->[/quote:3bdrh72y]\n\nDear Maurizio\n\nI\'m ever gotten the promble same you. Try to copy command prompt of XP icon and paste somewhere in your desktop. After that write COMMAND in target of properties that icon and then ok. After done, you should to go to properties that icon again for new change Cmd Line and Working in program tab to your app. \n\nBest Regrad,\n\nPe N Chi\n\nPS: For give me if that not work  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','3bdrh72y',1,0,'',173,0,0),(1880,490,2,97,0,'200.76.190.184',1131813048,1,0,1,1,1,1,'','Antonio Gracias pero el fwh4 NO','Aqui esta el codigo que estoy utilizando prove el dbctest fw funciona pero fwh4. NO\n\n //-------------------------------------------------------------------------------\n\nFunction ManArticul( nEvent, oTbM , oDb)\nlocal oDlg\nlocal cTBaja   := \"ESTA DE ALTA\"\nlocal lSave    := .f.\nLocal NumArt :=Space(6)\nLocal NomArt :=Space(40)\nLocal GruArt :=space(45)\nLocal SubgArt:=space(40)\nLocal UniArt :=Space(30)\nLocal Costo  :=0\nLocal PVenta :=0\nLocal Existen:=0\nLocal TIVA   :=0\nLocal TIEPS  :=0\nLocal Exento :=0\nLocal TCero  :=0\nLocal Clase  :=0\nLocal oTbGpos,oTbUni,oTbSGpos,oTbCla\nLocal lExento,LTCero:=.f.\nLocal oDbGrupos\nLocal oGetUni, oGetGrupos, oGetSubG, oGet\n\nlocal nRecNo := oTbM:RecNo()\nif nEvent == ID_AMOD\n   NumArt :=oTbM:xFieldGet(1 )\n   NomArt :=oTbM:xFieldGet( 2 )\n   GruArt :=oTbM:xFieldGet(3)\n   SubGArt:=oTbM:xFieldGet(4)\n   UniArt :=oTbM:xFieldGet(5)\n   Costo  :=oTbM:xFieldGet(6)\n   PVenta :=oTbM:xFieldGet(7)\n   Existen:=oTbM:xFieldGet(8)\n   TIva   :=oTbM:xFieldGet(9)\n   TIEPS  :=oTbM:xFieldGet(10)\n   Exento :=oTbM:xFieldGet(11)\n   TCero  :=oTbM:xFieldGet(12)\n   Clase  :=oTbM:xFieldGet(13)\nendif\n\n\nif oDb:Used()\n\n   DEFINE TABLE oTbGpos NAME \"grupos\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbGpos\n   if oTbGpos:lOpened\n     if oTbGpos:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbGpos:cName, MyDbStruct( oTbGpos:hResult ) )\n        DbUseArea( .t.,\"DBFCDX\", oTbGpos:cName, \"GRUPOS\" )\n        DbCreateIndex(\"grupos\",\"numgpo\")\n        nFldCount := oTbGpos:FieldCount()               \n	oTbGpos:GoTop()\n	ns := Seconds()\n	while oTbGpos:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbGpos:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n        DATABASE oDbGrupos\n     else\n        MsgAlert(\"La Tabla de Grupos esta vacia\")\n        return(.t.)\n     endif\n   else\n     msgAlert(\"La Tabla de grupos no esta abirta\")\n     return(.t.)\n   endif\n\n   DEFINE TABLE oTbSGpos NAME \"subgrupos\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbSGpos\n   if oTbSGpos:lOpened\n     if oTbSGpos:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbSGpos:cName, MyDbStruct( oTbSGpos:hResult ) )\n        DbUseArea( .t.,, oTbSGpos:cName,\"SubGrupos\" )\n        DbCreateIndex(\"subgrupos\",\"numsubgpo\")\n        nFldCount := oTbSGpos:FieldCount()\n	oTbSGpos:GoTop()\n	ns := Seconds()\n	while oTbSGpos:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbSGpos:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n	DATABASE oDbSGrupos\n     else\n        MsgAlert(\"La Tabla de Sub Grupos esta vacia\")\n        return(.t.)\n     endif\n   else\n     msgAlert(\"La Tabla de Sub grupos no esta abirta\")\n     return(.t.)\n   endif\n\n\n\n   DEFINE TABLE oTbUni NAME \"unimedidas\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbUni\n   if oTbUni:lOpened\n     if oTbUni:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbUni:cName, MyDbStruct( oTbUni:hResult ) )\n        DbUseArea( .t.,, oTbUni:cName ,\"unidades\")\n        DbCreateIndex(\"unidades\",\"numuni\")\n        nFldCount := oTbUni:FieldCount()\n	oTbUni:GoTop()\n	ns := Seconds()\n	while oTbUni:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbUni:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n        DATABASE oDbUniMed\n     else\n        MsgAlert(\"La Tabla de Unidades esta vacia\")\n        return(.t.)\n     endif\n   else\n     msgAlert(\"La Tabla de Unidades no esta abirta\")\n     return(.t.)\n   endif\n\n\n   DEFINE TABLE oTbCla NAME \"clases\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbCla\n   if oTbCla:lOpened\n     if oTbCla:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbCla:cName, MyDbStruct( oTbCla:hResult ) )\n        DbUseArea( .t.,, oTbCla:cName, \"clases\" )\n        DbCreateIndex(\"clases\",\"clase\")\n\n        nFldCount := oTbCla:FieldCount()\n	oTbCla:GoTop()\n	ns := Seconds()\n	while oTbCla:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbCla:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n        DATABASE oDbClase\n     else\n        MsgAlert(\"La Tabla de Clasificacion esta vacia\")\n        return(.t.)\n     endif\n\n   else\n     msgAlert(\"La Tabla de Clasificaion no esta abirta\")\n     return(.t.)\n   endif\n\n\n\nelse\n  MsgAlert(\"No esta en uso la base de datos de comandas\")\nendif\n\nMSGINFO( GRUPOS-&gt;NOMGPO)\n\nDEFINE DIALOG oDlg RESOURCE \"DLGART\" TITLE \"Mantenimiento de Articulos / \" + ;\n        if( nEvent == ID_AALT, \"Altas\", \"Modificaciones\" )\n\n\n        REDEFINE GET NumArt       ID 101 PICTURE \"@K!\" WHEN nEvent==ID_AALT ;\n                 OF oDlg\n\n        REDEFINE GET NomArt       ID 102 PICTURE \"@K!\" OF oDlg\n\n/*\n  REDEFINE BTNGET oGet VAR GruArt ID 103  RESOURCE \"combo\" ACTION ( SelGrupo( oGet , 200 , 200 ) ,  oGet:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbGrupos:Seek( GruArt ) .and. !empty( GruArt ) , ( oDbGrupos:Load(), .t.) , ;\n                 ( MsgInfo( \"El Grupo \" + AllTrim( GruArt ) + ;\n                    \" no existe\" ), .f. ))) OF oDlg  UPDATE\n*/\n  REDEFINE BTNGET oGetSubg VAR SubGArt ID 104  RESOURCE \"combo\" ACTION ( SelSubGrupo( oGetSubG , 200 , 200 ) ,  oGetSubG:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbSGrupos:Seek( SubGArt ) .and. !empty( SUbGArt ) , ( oDbSGrupos:Load(), .t.) , ;\n                 ( MsgInfo( \"El Sub Grupo \" + AllTrim( SUbGArt ) + ;\n                    \" no existe\" ), .f. ))) OF oDlg  UPDATE\n\n  REDEFINE BTNGET oGetUni VAR UniArt ID 105  RESOURCE \"combo\" ACTION ( SelUnidad( oGetUni , 200 , 200 ) ,  oGetUni:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbUniMed:Seek( UniArt ) .and. !empty( UniArt ) , ( oDbUniMed:Load(), .t.) , ;\n                 ( MsgInfo( \"La Unidad de Medida\" + AllTrim( UniArt ) + ;\n                  \" no existe\" ), .f. ))) OF oDlg  UPDATE\n\n  REDEFINE BTNGET oGetCla VAR Clase ID 112 RESOURCE \"combo\" ACTION ( SelClase( oGetCla , 200 , 200 ) ,  oGetCla:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbClase:Seek( Clase ) .and. !empty( Clase ) , ( oDbClase:Load(), .t.) , ;\n                 ( MsgInfo( \"La clase \" + AllTrim( Clase ) + ;\n                 \" no existe\" ), .f. ))) OF oDlg  UPDATE\n\n\n        REDEFINE DBCOMBO oGetArt VAR GruArt  ID 103  OF oDLG;\n             ALIAS \"GRUPOS\" ITEMFIELD \"NUMGPO\" LISTFIELD \"NOMGPO\"\n/*\n        REDEFINE DBCOMBO  SubGArt ID 104  OF oDLG;\n             ALIAS \"subgrupos\" ITEMFIELD \"NumSubGpo\" LISTFIELD \"NomSubGpo\"\n\n        REDEFINE DBCOMBO  UniArt  ID 105  OF oDLG;\n             ALIAS \"unidades\" ITEMFIELD \"NumUni\" LISTFIELD \"NomUni\"\n\n        REDEFINE DBCOMBO  Clase   ID 112  OF oDLG;\n             ALIAS \"Clases\" ITEMFIELD \"Clase\" LISTFIELD \"NomCla\"\n*/\n        REDEFINE GET Costo    ID 106 PICTURE \"9,999.99\" OF oDlg\n        REDEFINE GET PVenta   ID 107 PICTURE \"9,999.99\" OF oDlg\n        REDEFINE GET TIva     ID 108 PICTURE \"99.99\" OF oDlg\n        REDEFINE GET TIEPS    ID 110 PICTURE \"99.99\" OF oDlg\n\n        REDEFINE RADIO oExento  VAR Exento ID 109 ,111  OF oDlg WHEN TIva = 0\n\n        REDEFINE BUTTON ID 201 OF oDlg ACTION ( lSave := .t. , DbCloseAll() , oDlg:End())\n        REDEFINE BUTTON ID 299 OF oDlg ACTION ( lSave := .f. , DbCloseAll() , oDlg:End())\n\nACTIVATE DIALOG oDlg CENTER\n\nif lSave\n   if Exento = 2\n      TCero =1\n   else\n      TCero =0\n   endif\n\n   if TIva &gt;0\n      TCero=0\n      Exento=0\n   endif\n\n   if nEvent= ID_AALT\n      SqlStm=\"INSERT INTO articul ( NUMART , NOMBRE , NUMGPO, SUBGPO , NUMUNI , COSTO , PREVTA ,  TASAIVA ,TASAIEPS, EXENTO, TASACERO, CLASE , numcia ) VALUES( \"\n      SqlStm=SqlStm+\"\'\"+alltrim(NumArt)+\"\',\'\"+alltrim(NomArt)+\"\',\'\"+alltrim(GruArt)+\"\',\'\"+alltrim(SubgArt)+\"\',\'\"+alltrim(UniArt)+\"\',\'\"+alltrim(Str(Costo))+\"\',\'\"+alltrim(Str(PVenta))+\"\',\'\"+alltrim(Str(TIva))+\"\',\'\"+alltrim(Str(TIEPS))+\"\',\'\"+alltrim(Str(Exento))+\"\',\'\"+alltrim(Str(TCero))+\"\',\'\"+alltrim(Clase)+\"\',\'\"+  alltrim(Str(LnEmp))+\"\'\"+\")\"\n      oTbM:ExecSql( SqlStm )\n      oTbM:Last():Read()\n   else\n      SqlStm=\"UPDATE articul SET NOMBRE=\"+\"\'\"+alltrim(NomArt)+\"\',NUMGPO=\'\"+alltrim( GruArt )+\"\', SUBGPO=\'\"+alltrim( SubgArt)+\"\',NUMUNI=\'\"+alltrim( UniArt )+\"\',COSTO=\'\"+alltrim( Str(Costo))+\"\',PREVTA=\'\"+alltrim( Str(PVenta))+\"\',TASAIVA=\'\"+alltrim( Str(TIva))+\"\',TASAIEPS=\'\"+alltrim( Str(TIEPS))+\"\',EXENTO=\'\"+alltrim( Str(Exento))+\"\',TASACERO=\'\"+alltrim( Str(TCero))   +\"\',numcia=\'\"+alltrim( str(LnEmp))+\"\'\"+\"  WHERE NUMART=\'\"+alltrim(NumArt)+\"\'\"\n      oTbM:ExecSql( SqlStm )\n      oTbM:Last():Read()\n   endif\nendif\n\n\nreturn( nil )','',0,'gA==','289ywuy1',1,0,'',97,0,0),(1881,428,20,6,0,'87.1.198.175',1131814302,1,0,1,1,1,1,'','','Sì, devi ricompilare Fivewin. Usa questo batch:\n\n@ ECHO OFF\n\nCOPY c:\\fwharbour\\source\\function\\*.prg\nCOPY c:\\fwharbour\\source\\winapi\\*.prg\nCOPY c:\\fwharbour\\source\\classes\\*.prg\n\nDEL expbuild.prg\nDEL db10.prg\nDEL odbc32.prg\nDEL dbm.prg\nDEL vbxctrl.prg\nDEL _index.prg\nDEL dbms.prg\nDEL ddeserv.prg\nDEL field.prg\nDEL tnewsins.prg\nDEL c3.prg\n\nSET HARBOURCMD=/a /es1 /gc0 /l /m /n /q /w\nSET INCLUDE=c:\\fwharbour\\include;c:\\xharbour\\include\nFOR %%i IN (*.prg) DO c:\\xharbour\\harbour %%i\nSET HARBOURCMD=\nSET INCLUDE=\nIF EXIST *.prg DEL *.prg\n\nFOR %%i IN (*.c) DO c:\\bcc55\\bin\\bcc32 +xharbour.cfg -c %%i\nIF EXIST *.c DEL *.c\n\nFOR %%i IN (*.obj) DO c:\\bcc55\\bin\\tlib Fivehx /P32 +%%i\nIF EXIST *.obj DEL *.obj\nIF EXIST *.bak DEL *.bak\n\nIF EXIST fivehx.lib COPY fivehx.lib c:\\fwharbour\\lib\nIF EXIST fivehx.lib DEL fivehx.lib\n\ndove XHARBOUR.CFG è\n\n-5\n-DHB_FM_STATISTICS_OFF\n-DHB_GUI\n-DHB_NO_PROFILER\n-DHB_NO_TRACE\n-DHB_WIN32_IO\n-Ic:\\fwharbour\\include;c:\\xharbour\\include;c:\\bcc55\\include\n-k-\n-O1\n-O2\n-OS\n-Ov\n-v-\n-W\n-w\n-w-inl-\n\nNaturalmente quanto sopra vale solo se utilizzi il Borland. Altrimenti devi chiedere a qualcuno che utilizza il tuo compilatore C.\n\nEMG','',0,'gA==','34f4tx3j',1,0,'',6,0,0),(1882,482,4,13,0,'213.76.252.200',1131814316,1,0,1,1,1,0,'','','Jose,\n\nFunction BATTERYINFO must be declared with #pragma BEGINDUMP and #pragma ENDDUMP section. Return value is 9-elements array. Function should be include in .prg file.\n\n[code:or8ru1c2]\nFunction Test &#40;&#41;\n\n   Local aBatInfo &#58;= BatteryInfo &#40;&#41;\n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n// #include file\n\nHB_FUNC &#40;BATTERYINFO&#41;\n&#123;\n   // function body\n&#125;\n\n#pragma ENDDUMP\n[/code:or8ru1c2]\n\nThis works.\nPawel','',0,'AIA=','or8ru1c2',1,0,'',13,0,0),(1883,428,20,6,0,'87.1.198.175',1131814362,1,0,1,1,1,1,'','','[quote=&quot;juanito&quot;:1mlagtpf]L\'istruzione BUTTON presenta due volte il MESSAGE, strano che harbour non ci fa caso <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:1mlagtpf]\n\nProbabilmente è un bug del preprocessore di Harbour.\n\nEMG','',0,'gA==','1mlagtpf',1,0,'',6,0,0),(1884,489,4,13,0,'213.76.252.200',1131814609,1,0,1,1,1,0,'','','Jose,\n\nProbably, you may use this function similiar to BatteryInfo sample. \n\nPawel','',0,'gA==','1dyoyu82',1,0,'',13,0,0),(1885,481,1,139,0,'212.205.251.51',1131815590,1,0,1,1,1,0,'','','&#932;&#927;  UPPER(), LOWER(), &#932;&#927; &#932;&#931;&#917;&#922;&#913;&#929;&#919;&#931; &#931;&#932;&#921;&#931; &#921;&#916;&#921;&#927;&#932;&#919;&#932;&#917;&#931; \n&#932;&#927;&#933;  &#928;&#917;&#916;&#921;&#927;&#933; &#932;&#919;&#931; &#934;&#927;&#929;&#924;&#913;&#931;  &#913;&#925; &#922;&#913;&#925;&#917;&#921;&#931; &#932;&#927; DLL  ME TO WorkShop \n \n&#916;&#921;&#913;&#934;&#927;&#929;&#917;&#932;&#921;&#922;&#913; &#916;&#921;&#923;&#937;&#925;&#917;&#921;&#931; &#931;&#932;&#927;  RC &#913;&#929;&#935;&#917;&#921;&#927; ES_UPPERCASE\n \nPROMHTH DIALOG LOADONCALL MOVEABLE DISCARDABLE 6, 15, 405, 278\nSTYLE WS_CHILD | WS_VISIBLE | WS_DLGFRAME | WS_THICKFRAME | WS_MINIMIZEBOX\nFONT 8, \"Arial\"\n{\n EDITTEXT 110, 108, 22, 47, 10\n EDITTEXT 111, 108, 43, 139, 10, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 112, 108, 61, 139, 10\n \n&#934;&#921;&#923;&#921;&#922;&#913; &#915;&#921;&#913;&#925;&#925;&#919;&#931;','',0,'gA==','3j8u6704',1,0,'',139,0,0),(1886,429,1,139,0,'212.205.251.51',1131816634,1,0,1,1,1,0,'','','[code:6zca7acz]\n\n#include &quot;dbcombo&#46;ch\nif empty&#40;cSTOR_ID    &#41; ; cSTOR_ID     &#58;= 1  ; endif\n\n DEFINE DIALOG oDlg RESOURCE  \'TTAB\' \n DBSELECTAREA&#40; dbSTORE &#41;\n\n   REDEFINE DBCOMBO oSTOR_ID   VAR cSTOR_ID     ;\n      ID 107    OF oFld&#58;aDialogs&#91;1&#93;             ;\n      ALIAS     &#40;dbSTORE&#41;                          ;\n      ITEMFIELD &quot;STORE_ID&quot;                      ;\n      LISTFIELD &quot;STORE_DESC&quot;\n\n ACTIVATE DIALOG oDlg CENTERED\n\n\n\n[/code:6zca7acz]','',0,'AIA=','6zca7acz',1,0,'',139,0,0),(1887,492,6,251,0,'201.248.64.57',1131817986,1,0,1,1,1,0,'','Saludos, soy nuevo con harbour y quisiera saber...?','Hola saludos a todos, soy un usuario nuevo con harbour, ya he venido usando el fivewin a medias varios años, pero nunca me he dedicado de lleno, pero ahora si estoy pasando todos mi programa administrativo a harbour y tengo una primera interrogante muy importante que es la siguiente:\n  1. mi programa es administrativo, muy completo y con bastante modulos, y eso me lleva a preguntar, que debo usar rc o dll, ya conozco las diferencias, pero me pregunto: cual de las dos es mas efectiva en un programa tan grande.\n  2. puedo tener mas de un rc para cada programa\n  3. puedo unir rc con dll, como veo que casi todos los programas del mercado siempre tienen dll, me pregunto por que?\n  4. y por ultimo, como enlazo dos prg en el mismo buildh?\n\n  De antemano gracias por su precensia y paciencia,\n\nDi Gregorio, Caracas - Venezuela','',0,'AIA=','3dw3rs97',1,0,'',251,0,0),(1888,428,20,263,0,'82.59.174.211',1131818977,1,0,1,1,1,0,'','','Grazie Enrico, \nuso borland anche io, quindi tutto ok.\nSpero vada tutto bene.\n\nCiao','',0,'AIA=','174burql',1,0,'',263,0,0),(1889,492,6,73,0,'201.138.166.223',1131819660,1,0,1,1,1,0,'','Re: Saludos, soy nuevo con harbour y quisiera saber...?','[quote=&quot;DiGregorio&quot;:2ihzg35i]Hola saludos a todos, soy un usuario nuevo con harbour, ya he venido usando el fivewin a medias varios años, pero nunca me he dedicado de lleno, pero ahora si estoy pasando todos mi programa administrativo a harbour y tengo una primera interrogante muy importante que es la siguiente:\n  1. mi programa es administrativo, muy completo y con bastante modulos, y eso me lleva a preguntar, que debo usar rc o dll, ya conozco las diferencias, pero me pregunto: cual de las dos es mas efectiva en un programa tan grande.\n  2. puedo tener mas de un rc para cada programa\n  3. puedo unir rc con dll, como veo que casi todos los programas del mercado siempre tienen dll, me pregunto por que?\n  4. y por ultimo, como enlazo dos prg en el mismo buildh?\n\n  De antemano gracias por su precensia y paciencia,\n\nDi Gregorio, Caracas - Venezuela[/quote:2ihzg35i]\n\nMira con exactitud no te sabria decir que uses si .rc o .dll creo que cada .rc te permite 256 recursos, y que yo sepa no puedes tener mas de .rc para tu programa,(si alguien sabe como que se pase el tip) y en cuanto a enlazar 2 prg te recomiendo que uses VerCe esta muy facil y en español, configuras tu compilador si es harbour ó xharbour, indicas los directorios de tus prg las librerias de terceros y listo...\nque de donde lo descargas? <!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/\">http://www.esm.com.mx/fivewin/</a><!-- m -->\nsalu2\nPaco','',0,'gA==','2ihzg35i',1,0,'',73,0,0),(1890,489,4,2,0,'80.58.2.107',1131820639,1,0,1,1,1,1,'','','Jose,\n\nPlease provide the URL or the C code so we can help.','',0,'gA==','117s5f35',1,0,'',2,0,0),(1891,490,2,2,0,'80.58.2.107',1131820768,1,0,1,1,1,1,'','','Fernando,\n\nQue versión y build de FWH estás usando ?','',0,'gA==','2j3xrfzb',1,0,'',2,0,0),(1892,492,6,251,0,'201.248.64.57',1131821502,1,0,1,1,1,0,'','YA DESCARGUE EL VERCE¡¡¡','Estimado Francisco\n\nGracias por tu ayuda, me parece que esta buenisimo el programa \n\nya lo configure y funciona perfecto es un maravilla\n\nde verdad muchas gracias por tu tiempo...\n\nGracias, Di Gregorio','',0,'gA==','3vi8w3nx',1,0,'',251,0,0),(1893,482,4,150,0,'62.14.48.66',1131823939,1,0,1,1,1,1,'','','Thanks Pawel, now it also works for me.\n\nI did not thing that it was so easy to use C functions.','',0,'gA==','2m07e32q',1,0,'',150,0,0),(1894,489,4,150,0,'62.14.48.66',1131824681,1,0,1,1,1,1,'','','Hello Antonio:\n\nThe developers web for Symbol products is in:\n\n[url:1cboj543]http&#58;//devzone&#46;symbol&#46;com/[/url:1cboj543]\n\nI attach de code but the solution for this is not urgent for me as I can finish my aplication (I will do that first) and after I will try to optimize the battery life. \n\n\n\n[code:1cboj543]\n//--------------------------------------------------------------------\n// FILENAME&#58;		BasicScan&#46;c\n//\n// Copyright&#40;c&#41; 2002 Symbol Technologies Inc&#46; All rights reserved&#46;\n//\n// DESCRIPTION&#58;		This simple scanning application demonstrates\n//					how to use the Symbol Scan Library&#46;\n//					The API\'s used are as follows&#58;\n//\n//					SCAN_Open\n//					SCAN_Enable\n//					SCAN_AllocateBuffer\n//					SCAN_ReadLabelMsg\n//					SCAN_Flush\n//					SCAN_Disable\n//					SCAN_DeallocateBuffer\n//					SCAN_Close\n//					SCAN_SetSoftTrigger\n//\n//\n// \n//\n//--------------------------------------------------------------------\n\n#include &lt;windows&#46;h&gt;\n#include &lt;windowsx&#46;h&gt;\n\n#include &lt;ScanCAPI&#46;h&gt;\n\n#include &quot;resource&#46;h&quot;\n	\n#define		countof&#40;x&#41;		sizeof&#40;x&#41;/sizeof&#40;x&#91;0&#93;&#41;\n\n// Define user messages\nenum tagUSERMSGS\n&#123;\n	UM_SCAN	= WM_USER + 0x200,\n	UM_STARTSCANNING,\n	UM_STOPSCANNING\n&#125;;\n\n// Global variables\nHINSTANCE		hInst					= NULL;\nHANDLE			hScanner				= NULL;\nLPSCAN_BUFFER	lpScanBuffer			= NULL;\nTCHAR			szScannerName&#91;MAX_PATH&#93; = TEXT&#40;&quot;SCN1&#58;&quot;&#41;;	// default scanner name\nDWORD			dwScanSize				= 7095;				// default scan buffer size	\nDWORD			dwScanTimeout			= 0;				// default timeout value &#40;0 means no timeout&#41;	\nBOOL			bUseText				= TRUE;\nBOOL			bTriggerFlag			= FALSE;\nBOOL			bRequestPending			= FALSE;\nBOOL			bStopScanning			= FALSE;\n\n// Forward declarations\nLRESULT CALLBACK BasicScanProc&#40;HWND,UINT,WPARAM,LPARAM&#41;;\nvoid	ErrorExit&#40;HWMD, UINT, LPTSTR&#41;;\nLPTSTR	LoadMsg&#40;UINT, LPTSTR, int&#41;;\n\n//----------------------------------------------------------------------------\n//\n//  FUNCTION&#58;   WinMain&#40;HINSTANCE, HINSTANCE, LPSTR, int&#41;\n//\n//  PURPOSE&#58;    Entry point function, initializes the application, instance,\n//              and then launches the message loop&#46;\n//\n//  PARAMETERS&#58;\n//      hInstance     - handle that uniquely identifies this instance of the\n//                      application\n//      hPrevInstance - always zero in Win32\n//      lpszCmdLine   - any command line arguements pass to the program\n//      nCmdShow      - the state which the application shows itself on\n//                      startup\n//\n//  RETURN VALUE&#58;\n//      &#40;int&#41; Returns the value from PostQuitMessage&#40;&#41;&#46;\n//\n//----------------------------------------------------------------------------\n\nint WINAPI WinMain&#40;HINSTANCE hInstance,\n				   HINSTANCE hPrevInstance,\n				   LPWSTR lpszCmdLine,\n				   int nCmdShow&#41;\n&#123;\n	int nResult;\n\n	hInst = hInstance;		// save the instance handle to a global variable\n	nResult = DialogBox&#40;hInstance, MAKEINTRESOURCE&#40;IDD_DIALOG_SSCAN&#41;, NULL, \n						BasicScanProc&#41;;\n\n	return nResult;\n&#125;\n\n\n//----------------------------------------------------------------------------\n//\n//  FUNCTION&#58;   BasicScanProc&#40;HINSTANCE, HINSTANCE, LPSTR, int&#41;\n//\n//  PURPOSE&#58;    Application-defined callback function that processes messages \n//				sent to BasicScan dialog&#46; \n//\n//  PARAMETERS&#58;\n//      hwnd     - handle to the dialog box&#46; \n//      uMsg	 - specifies the message&#46; \n//      wParam   - specifies additional message-specific information&#46; \n//      lParam   - specifies additional message-specific information&#46; \n//\n//  RETURN VALUE&#58;\n//      &#40;BOOL&#41; return TRUE if it processed the message, and FALSE if it did not&#46; \n//\n//----------------------------------------------------------------------------\n\nLRESULT CALLBACK BasicScanProc&#40;HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam&#41;\n&#123;\n	DWORD			dwResult;\n	TCHAR			szLabelType&#91;10&#93;;\n	TCHAR			szLen&#91;MAX_PATH&#93;;\n	TCHAR			szMsgBuf&#91;256&#93;;\n	LPSCAN_BUFFER	lpScanBuf;\n	HWND			hctl_data, hctl_length, hctl_type;\n\n	switch&#40;uMsg&#41;\n    &#123;\n		case WM_INITDIALOG&#58;\n\n			PostMessage&#40;hwnd,UM_STARTSCANNING,0,0L&#41;;\n			break;\n\n		case UM_STARTSCANNING&#58;\n\n			// Open scanner, prepare for scanning, \n			// and submit the first read request\n			dwResult = SCAN_Open&#40;szScannerName, &amp;hScanner&#41;;\n			if &#40; dwResult != E_SCN_SUCCESS &#41;\n			&#123;	\n				ErrorExit&#40;hwnd, IDS_FAILURE, TEXT&#40;&quot;SCAN_Open&quot;&#41;&#41;;\n				break;\n			&#125;\n\n			dwResult = SCAN_Enable&#40;hScanner&#41;;\n			if &#40; dwResult != E_SCN_SUCCESS &#41;\n			&#123;\n				ErrorExit&#40;hwnd, IDS_FAILURE, TEXT&#40;&quot;SCAN_Enable&quot;&#41;&#41;;\n				break;\n			&#125;\n\n			lpScanBuffer = SCAN_AllocateBuffer&#40;bUseText, dwScanSize&#41;;\n			if &#40;lpScanBuffer == NULL&#41;\n			&#123;\n				ErrorExit&#40;hwnd, IDS_FAILURE, TEXT&#40;&quot;SCAN_AllocateBuffer&quot;&#41;&#41;;\n				return TRUE;\n			&#125;\n\n			dwResult = SCAN_ReadLabelMsg&#40;hScanner,\n										 lpScanBuffer,\n										 hwnd,\n										 UM_SCAN,\n										 dwScanTimeout,\n										 NULL&#41;;\n			if &#40; dwResult != E_SCN_SUCCESS &#41;\n				ErrorExit&#40;hwnd, IDS_FAILURE, TEXT&#40;&quot;SCAN_ReadLabelMsg&quot;&#41;&#41;;\n			else\n				bRequestPending = TRUE;\n\n			break;\n\n			return TRUE;\n\n		case UM_STOPSCANNING&#58;\n\n			// We stop scanning in two steps&#58; first, cancel any pending read \n			// request; second, after there is no more pending request, disable \n			// and close the scanner&#46; We may need to do the second step after \n			// a UM_SCAN message told us that the cancellation was completed&#46;\n			if &#40;!bStopScanning &amp;&amp; bRequestPending&#41;													\n				SCAN_Flush&#40;hScanner&#41;;\n\n			if &#40;!bRequestPending&#41;			\n			&#123;							 \n				SCAN_Disable&#40;hScanner&#41;;\n\n				if &#40;lpScanBuffer&#41;\n					SCAN_DeallocateBuffer&#40;lpScanBuffer&#41;;\n\n				SCAN_Close&#40;hScanner&#41;;\n\n				EndDialog&#40;hwnd, 0&#41;;\n			&#125;\n			bStopScanning = TRUE;\n\n			return TRUE;\n\n		case WM_ACTIVATE&#58;\n\n			// In foreground scanning mode, we need to cancel read requests\n			// when the application is deactivated, and re-submit read request\n			// when the application is activated again&#46;\n			switch&#40;LOWORD&#40;wParam&#41;&#41;\n			&#123;\n				case WA_INACTIVE&#58;\n\n					hctl_data = GetDlgItem&#40;hwnd,IDC_EDIT_DATA&#41;;\n					hctl_length = GetDlgItem&#40;hwnd,IDC_EDIT_LEN&#41;;\n					hctl_type = GetDlgItem&#40;hwnd,IDC_EDIT_TYPE&#41;;\n\n					Edit_SetText&#40;hctl_data, LoadMsg&#40;IDS_INACTIVE, \n													szMsgBuf, countof&#40;szMsgBuf&#41;&#41;&#41;;\n					Edit_SetText&#40;hctl_length, TEXT&#40;&quot;&quot;&#41;&#41;;\n					Edit_SetText&#40;hctl_type, TEXT&#40;&quot;&quot;&#41;&#41;; \n\n					// Cancel any pending request since we are going to lose focus\n					if &#40;bRequestPending&#41;\n						dwResult = SCAN_Flush&#40;hScanner&#41;;\n						// Do not set bRequestPending to FALSE until\n						// we get the UM_SCAN message\n					break;\n				\n				default&#58;	// activating\n\n					hctl_data = GetDlgItem&#40;hwnd,IDC_EDIT_DATA&#41;;\n					Edit_SetText&#40;hctl_data, LoadMsg&#40;IDS_READY, \n													szMsgBuf, countof&#40;szMsgBuf&#41;&#41;&#41;;\n\n					if &#40;!bRequestPending &amp;&amp; lpScanBuffer != NULL &amp;&amp; !bStopScanning&#41;\n					&#123;	\n						// Submit a read request if no request pending\n						dwResult = SCAN_ReadLabelMsg&#40;hScanner,\n													 lpScanBuffer,\n													 hwnd,\n													 UM_SCAN,\n													 dwScanTimeout,\n													 NULL&#41;;\n						\n						if &#40; dwResult != E_SCN_SUCCESS &#41;\n							ErrorExit&#40;hwnd, IDS_FAILURE, TEXT&#40;&quot;SCAN_ReadLabelMsg&quot;&#41;&#41;;\n						else\n							bRequestPending = TRUE;\n					&#125;\n					break;\n			&#125;\n			break;\n\n		case UM_SCAN&#58;\n\n			bRequestPending = FALSE;\n\n			// Clear the soft trigger\n			bTriggerFlag = FALSE;\n			SCAN_SetSoftTrigger&#40;hScanner,&amp;bTriggerFlag&#41;;\n\n			// Get scan result from the scan buffer, and display it\n			lpScanBuf = &#40;LPSCAN_BUFFER&#41;lParam;\n			if &#40; lpScanBuf == NULL &#41;\n				ErrorExit&#40;hwnd, IDS_ERR_BUF, 0&#41;;\n\n			hctl_data = GetDlgItem&#40;hwnd,IDC_EDIT_DATA&#41;;\n			hctl_length = GetDlgItem&#40;hwnd,IDC_EDIT_LEN&#41;;\n			hctl_type = GetDlgItem&#40;hwnd,IDC_EDIT_TYPE&#41;;\n\n			switch &#40;SCNBUF_GETSTAT&#40;lpScanBuf&#41;&#41;\n			&#123; \n				case E_SCN_DEVICEFAILURE&#58;\n\n					Edit_SetText&#40;hctl_data, LoadMsg&#40;IDS_DEVICE_FAILURE, \n													szMsgBuf, countof&#40;szMsgBuf&#41;&#41;&#41;;\n					break;\n\n				case E_SCN_READPENDING&#58;\n\n					Edit_SetText&#40;hctl_data, LoadMsg&#40;IDS_READ_PENDING, \n													szMsgBuf, countof&#40;szMsgBuf&#41;&#41;&#41;;\n					break;\n\n				case E_SCN_READCANCELLED&#58;\n\n					if &#40;bStopScanning&#41;\n					&#123;	// complete the second step of UM_STOPSCANNING\n						SendMessage&#40;hwnd,UM_STOPSCANNING,0,0L&#41;;	\n						return TRUE;\n					&#125;\n					if &#40;!GetFocus&#40;&#41;&#41;	\n						break;	// Do nothing if read was cancelled while deactivation\n\n					Edit_SetText&#40;hctl_data, LoadMsg&#40;IDS_READ_CANCELLED, \n													szMsgBuf, countof&#40;szMsgBuf&#41;&#41;&#41;;\n					break;\n			\n				case E_SCN_SUCCESS&#58;\n				\n					Edit_SetText&#40;hctl_data, &#40;LPTSTR&#41;SCNBUF_GETDATA&#40;lpScanBuffer&#41;&#41;;\n					\n					// Format label type as a hex constant for display\n					wsprintf&#40;szLabelType, TEXT&#40;&quot;0x%&#46;2X&quot;&#41;, SCNBUF_GETLBLTYP&#40;lpScanBuf&#41;&#41;;\n					Edit_SetText&#40;hctl_type, szLabelType&#41;;\n\n					wsprintf&#40;szLen, TEXT&#40;&quot;%d&quot;&#41;, SCNBUF_GETLEN&#40;lpScanBuf&#41;&#41;;\n					Edit_SetText&#40;hctl_length, szLen&#41;;\n\n					break;\n			&#125;\n\n			// Submit next read request if we are foreground\n			if &#40;GetFocus&#40;&#41;&#41;\n			&#123;\n				dwResult = SCAN_ReadLabelMsg&#40;hScanner,\n											 lpScanBuffer,\n											 hwnd,\n											 uMsg,\n											 dwScanTimeout,\n											 NULL&#41;;\n				\n				if &#40; dwResult != E_SCN_SUCCESS &#41;\n					ErrorExit&#40;hwnd, IDS_FAILURE, TEXT&#40;&quot;SCAN_ReadLabelMsg&quot;&#41;&#41;;\n				else\n					bRequestPending = TRUE;\n			&#125;\n\n			return TRUE;\n\n		case WM_COMMAND&#58;\n			\n			switch &#40;LOWORD&#40;wParam&#41;&#41;\n            &#123;\n				case IDC_BUTTON_SOFTTRIGGER&#58;\n					// Clear the state first before we set it to TRUE\n					bTriggerFlag = FALSE;\n					SCAN_SetSoftTrigger&#40;hScanner,&amp;bTriggerFlag&#41;;\n\n					bTriggerFlag = TRUE;\n					SCAN_SetSoftTrigger&#40;hScanner,&amp;bTriggerFlag&#41;;\n\n					break;\n\n				case IDOK&#58;	// fall through\n\n				case IDCANCEL&#58;\n\n					SendMessage&#40;hwnd,UM_STOPSCANNING,0,0L&#41;;\n					break;\n			&#125;\n\n			return TRUE;\n	&#125;\n\n	return FALSE;\n&#125;\n\n//----------------------------------------------------------------------------\n//\n//  FUNCTION&#58;   ErrorExit&#40;HWND, UINT, LPTSTR&#41;\n//\n//  PURPOSE&#58;    Handle critical errors and exit dialog&#46; \n//\n//  PARAMETERS&#58;\n//      hwnd     - handle to the dialog box&#46; \n//      uID		 - ID of the message string to be displayed \n//      szFunc   - function name if it\'s an API function failure \n//\n//  RETURN VALUE&#58;\n//      None&#46;\n//\n//----------------------------------------------------------------------------\n\nvoid ErrorExit&#40;HWND hwnd, UINT uID, LPTSTR szFunc&#41;\n&#123;\n	TCHAR szMsg&#91;256&#93;;\n	TCHAR szBuf&#91;256&#93;;\n\n	if &#40;szFunc == NULL&#41;\n		wcscpy&#40;szMsg, LoadMsg&#40;uID, szBuf, countof&#40;szBuf&#41;&#41;&#41;;\n	else\n		wsprintf&#40;szMsg, TEXT&#40;&quot;%s %s&quot;&#41;, szFunc, \n					LoadMsg&#40;uID, szBuf, countof&#40;szBuf&#41;&#41;&#41;;\n	MessageBox&#40;NULL, szMsg, NULL, MB_OK&#41;;\n	SendMessage&#40;hwnd,UM_STOPSCANNING,0,0L&#41;;\n&#125;\n\n//----------------------------------------------------------------------------\n//\n//  FUNCTION&#58;   LoadMsg&#40;UINT, LPTSTR, int&#41;\n//\n//  PURPOSE&#58;    Load a message string for the string table\n//\n//  PARAMETERS&#58;\n//      uID		 - ID of the message string to be loaded\n//      lpBuffer - buffer to hold the message string\n//		nBufSize - size of lpBuffer\n//\n//  RETURN VALUE&#58;\n//      &#40;LPTSTR&#41; pointer to lpBuffer\n//\n//----------------------------------------------------------------------------\n\nLPTSTR LoadMsg&#40;UINT uID, LPTSTR lpBuffer, int nBufSize&#41;\n&#123;\n	if &#40;!LoadString&#40;hInst, uID, lpBuffer, nBufSize&#41;&#41;\n		wcscpy&#40;lpBuffer, TEXT&#40;&quot;&quot;&#41;&#41;;\n\n	return lpBuffer;\n&#125;[/code:1cboj543]\n\n\n[/quote]','',0,'EIA=','1cboj543',1,0,'',150,0,0),(1895,481,1,204,0,'83.235.237.178',1131825162,1,0,1,1,1,0,'','','Well try this and tell me how to make it work\n[code:14e7ltkl]\ncText1 &#58;= &quot;&#922;&#945;&#964;&#953;&quot; // from a get statement with a &quot;@!&quot; picture clause that doesn\'t work\n\ncSearch &#58;= UPPER&#40;cText&#41;+cYear+cEmploee  // Upper doesn\'t work eather\nSEEK cSearch\nIF FOUND&#40;&#41;\n  // do something\nELSE\n  MSGAlert&#40;&quot;Nothing was found&quot;, &quot;Search&quot;&#41; // In FW4Clipper this comes up all the time unless you type caps&#46;\nENDIF\n[/code:14e7ltkl]\n\nHow can I make FW4Clipper understand greek text. Is there a NTXGR437.OBJ file for FW (national clipper system)','',0,'AIA=','14e7ltkl',1,0,'',204,0,0),(1896,490,2,97,0,'200.76.190.184',1131827899,1,0,1,1,1,1,'','Uso la FWH2.4','Uso la fwh 2.4','',0,'AIA=','17h3o87n',1,0,'',97,0,0),(1897,489,4,2,0,'80.58.2.107',1131829304,1,0,1,1,1,1,'','','Jose,\n\nYou may start using some portions of the code and test them:\n\nFrom your app, just call Scan_Open() and see if you get or not an error message.\n\n[code:j2hanas1]\n#pragma BEGINDUMP \n\n#include &lt;hbapi&#46;h&gt; \n#include &lt;windows&#46;h&gt; \n#include &lt;ScanCAPI&#46;h&gt; \n\nHANDLE hScanner = NULL;\nTCHAR   szScannerName&#91;MAX_PATH&#93; = L&quot;SCN1&#58;&quot;;  \n\nHB_FUNC&#40; SCAN_OPEN &#41;\n&#123;\n    DWORD dwResult = SCAN_Open&#40; szScannerName, &amp;hScanner &#41;;\n \n    if &#40; dwResult != E_SCN_SUCCESS &#41; \n       MessageBox&#40; GetActiveWindow&#40;&#41;, L&quot;Fallo en Scan_Open&quot;, L&quot;Ok&quot;, 0 &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:j2hanas1]','',0,'AIA=','j2hanas1',1,0,'',2,0,0),(1898,437,6,2,0,'80.58.2.107',1131829644,1,0,1,1,1,1,'','','Jesús,\n\nLo idóneo es que solicites en xharbour que te proporcionen la librería compilada con la versión más reciente.','',0,'AIA=','3mrnsebg',1,0,'',2,0,0),(1899,453,3,2,0,'80.58.2.107',1131829740,1,0,1,1,1,1,'','','Silvio,\n\nEnrico is a great FiveWin master, and he provides a lot of help to many people. I am sure that if you kindly ask him, he will help you.','',0,'AIA=','9lc6yv9s',1,0,'',2,0,0),(1900,472,6,138,0,'201.128.111.75',1131830353,1,0,1,1,1,1,'','','No tiene solucion, mas que la chapucera, que consiste en hacer un :\n\noBrw:Gotop()\noBrw:GoBottom()\n\nantes el oBrw:Refresh()\n\npara evitar que se \"descuadre\" el repintado\n\nEse es un bug que tienen TODOS los browses de FW','',0,'AIA=','3geoiyqg',1,0,'',138,0,0),(1901,493,7,262,0,'83.97.168.9',1131834935,1,0,1,1,1,0,'','Intercambio de informacion','Necesitamos poder recibir y enviar archivos dbf , a ser posible por correo electronico , para actualizar las tarifas que tienen los pocket , y enviar los pedidos realizados por los vendedores a la central .\nEstá previsto desarrollar alguna clase que lo haga ?\nCon socket , ¿que tipo de servicio se debe montar en el servidor (el tema de socket estamos muy perdidos ).\nAlgun ejemplo de socket , para envio y recepcion de mails  ?\nSaludso y perdon por tanta ignorancia.','',0,'AIA=','fclf5vlg',1,0,'',262,0,0),(1902,493,7,2,0,'80.58.2.107',1131836029,1,0,1,1,1,1,'','','Tienes que establecer una conexión TCP/IP con la red del servidor, bien sea usando Wifi (en cuyo caso el Pocket PC tiene que tener Wifi), ó usando ActiveSync, situando el Pocket PC en su base. Necesitarás una aplicación en el servidor (escrita en FWH, por ejemplo, revisa samples\\SockServ.prg en FWH), y otra desde el Pocket PC como la que proporcionamos samples\\sockcli.prg en FWPPC.\n\nOtra opción es usar bluetooth desde el Pocket PC (este ha de tener soporte de bluetooth) y un receptor de bluetooth en el ordenador.\n\nOtra opción es usando infrarojos. Esta opción aún no la hemos probado.','',0,'AIA=','1s388m5b',1,0,'',2,0,0),(1903,493,7,262,0,'83.97.168.9',1131837271,1,0,1,1,1,0,'','','las opciones que comentas son pasando por la central  , nosotros estabamos mirando e-mail , para que esto se haga a distancia (por el movil que llevan el pda  ) y no tengan que pasar por la central para nada.\nLa central manda un mail a la cuenta asignada al pda (<!-- e --><a href=\"mailto:pda1@distrib.com\">pda1@distrib.com</a><!-- e -->)  , se manda un SMS  informando que existe una actualizacion , el vendedor descarga (desde programa a ser posible) el mail y un proceso añade-modifica los datos y listo .\nPara mandar pedidos , se crea un dbf con los datos a enviar , se adjunta a un correo (todo esto desde programa ) y se manda a la cuenta de correo de entrada de pedidos en la central , alli se recibe y se trata .\nESta es nuestra idea , el viajante pasa por central a recoger el pda y a cambia versiones del programa .\nLa Clase Tsmtp  y la Tpop3 serían las opciones idoneas (creo yo ).\nSaludso.','',0,'AIA=','3pj097ny',1,0,'',262,0,0),(1904,494,6,66,0,'24.232.135.75',1131844555,1,0,1,0,1,0,'','Ayuda con scopes y Filter $','Estimados Colegas\n\n\nTengo el siguiente problema tengo una dbF scopeada por localidad\n(eso me funciona) un vez scopeada , quiero hacerle un filtro $  por\nel campo nombre ,el problema es que me lo hace en toda la base (500000 registros) y no sobre el scope. alguien me puede decir que estoy haciendo mal. Por que quiero filtra por el scope y no toda la base.\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n#include \"FiveWin.ch\"\n#include \"ord.ch\" // do clipper (CDX)\n\n\n//----------------------------------------------------------------------------//\n\nfunction scO1(xcolor1,OLBX3,osTOCK)\n\n local loca1\n\nrequest dbfcdx  \nrddsetdefault(\"dbfcdx\")\ndbsetdriver(\"dbfcdx\")\n\n\n\n \n   nomb := \"COOP\"\n\n  \n\n    sele 3\n    use MD  index MDL\n    SET INDEX TO  MDL,MDN,MDC\n\n\n\n   loca1=alltrim(xcolor1)\n\n   OrdScope(TOPSCOPE,loca1)\n   OrdScope(BOTTOMSCOPE,loca1)\n\n   Set Filter to nomb $ UPPER(MD-&gt;PER_NOMBRE)\n\n\n\n\n\noStock:update()\noLbx3:refresh()\noLbx3:upstable()\noLbx3:gobottom()\n\n\n\n\n\n\n/----------------------------------------------------------------------------//\n\Z','',0,'AIA=','3p0rn42u',1,0,'',66,0,0),(1905,495,2,66,0,'24.232.135.75',1131844605,1,0,1,0,1,0,'','Ayuda con scopes y Filter $','Tengo el siguiente problema tengo una dbF scopeada por localidad\n(eso me funciona) un vez scopeada , quiero hacerle un filtro $  por\nel campo nombre ,el problema es que me lo hace en toda la base (500000 registros) y no sobre el scope. alguien me puede decir que estoy haciendo mal. Por que quiero filtra por el scope y no toda la base.\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n#include \"FiveWin.ch\"\n#include \"ord.ch\" // do clipper (CDX)\n\n\n//----------------------------------------------------------------------------//\n\nfunction scO1(xcolor1,OLBX3,osTOCK)\n\n local loca1\n\nrequest dbfcdx  \nrddsetdefault(\"dbfcdx\")\ndbsetdriver(\"dbfcdx\")\n\n\n\n \n   nomb := \"COOP\"\n\n  \n\n    sele 3\n    use MD  index MDL\n    SET INDEX TO  MDL,MDN,MDC\n\n\n\n   loca1=alltrim(xcolor1)\n\n   OrdScope(TOPSCOPE,loca1)\n   OrdScope(BOTTOMSCOPE,loca1)\n\n   Set Filter to nomb $ UPPER(MD-&gt;PER_NOMBRE)\n\n\n\n\n\noStock:update()\noLbx3:refresh()\noLbx3:upstable()\noLbx3:gobottom()\n\n\n\n\n\n\n/----------------------------------------------------------------------------/','',0,'AIA=','3koqhuhn',1,0,'',66,0,0),(1906,493,7,2,0,'80.58.2.107',1131847146,1,0,1,1,1,1,'','','¿ te refieres a que el Pocket PC tenga teléfono y enviar/recibir emails por el teléfono ?\n\nSupongo que en ese caso también tiene que tener configurado el TCP/IP de todas formas y sí, podrias usar sockets. Pero sería cuestión de investigar esa Pocket PC específica y hacer algunas pruebas.','',0,'AIA=','2fbp0ggo',1,0,'',2,0,0),(1907,449,3,190,0,'202.65.134.22',1131851799,1,0,1,1,1,0,'','','As stated by Rick :\n\nBarlib really works great with xHarb and FWH.\n\nIs there any class available to read the barcodes into FWH through the \nbarcode reader and which barcode reader is simple, costeffective and good to work with FWH.\n\n- Ramesh Babu P','',0,'AIA=','fm8pt18q',1,0,'',190,0,0),(1908,220,3,190,0,'202.65.134.22',1131851924,1,0,1,1,1,0,'','','Mr.Antonio \n\nCan you please suggest me any way out to solve this problem.\n\n- Ramesh Babu P','',0,'AIA=','23zlxt9r',1,0,'',190,0,0),(1909,449,3,6,0,'87.3.184.210',1131874078,1,0,1,1,1,1,'','','Keyboard-emulation barcode readers are the easiest to use as they don\'t require any special action from the programming side.\n\nEMG','',0,'AIA=','338za9oh',1,0,'',6,0,0),(1910,406,2,265,0,'80.58.18.235',1131884500,1,0,1,1,1,0,'','','Perdona dbzap, eran errores de configuración, lo que pasa es que como quisiera que me compilara y me funcionara todo a la primera, como hago con fivewin, que al tenerlo todo montado, sólo tengo dar al bat, que llama al rmk, y ya está.\nPero bueno, ya voy haciendo algo, por ejemplo no sabía cómo enlazar 20 prg\'s que tiene la aplicación y leyendo el foro estoy probando con verce, luego me daba error en la dll que la he convertido a .rc para que funcione, y ahora al compilar se para y me dice que ha ocurrido un error, y no me dice a que es debido, sólo que me da una serie de warning advirtiéndome ambigua declaración, cosa en fw también me lo dice, pero me compila sin problemas.\nHe compilado los ejemplos, y si me los compila, pero mis aplicaciones en todas me da algun error.\n\nUn saludo\n\nJose Luis','',0,'AIA=','1dujui3r',1,0,'',265,0,0),(1911,431,2,265,0,'80.58.18.235',1131885417,1,0,1,1,1,0,'','','Perdona que te moleste de nuevo René.\nHe compilado el ejemplo testpop3, tanto para fw como fwh, y cuando doy al botón \"Get mail\", no hace nada, es decir no me importa el correo ni me hace nada.\nCreo que me falta documentación o algún ejemplo de funcionamiento, por ejemplo en el prg dice IP, y supongo que ahí habrá que poner la IP pública de mi ADSL, y así con el resto.\ntampoco sé que otros parámetros poner.\nMi intención es poner un timer y que se ejecute el programa cada 5 minutos para:\n1º Ver si hay correo\n2º Si hay, compobar que viene de una dirección determinada.\n3º Caso de ser así, extraer el adjunto en un directorio asignado.\n4º A partir de ahí el resto de mi aplicación se encarga de trabajar con éste fichero.\n\nEsto se puede con tpop3?\n\nUn Saludo\n\nJose Luis','',0,'AIA=','10oxlxjz',1,0,'',265,0,0),(1912,496,6,21,0,'212.183.206.188',1131895947,1,0,1,1,1,1,'','tsbrowse 7.1','Hola foro,\n\nUso la clase tsbrowse 7.1 y creo que todos conocemos sus problemas de refresco.\n\nYo en concreto tenía problemas al pintar una única fila y no tener el foco sobre browse, Pintaba la fila vacia.\n\nHe realizado cambios en el método lostfocus de la clases tsbrowse para corregir ese problema y ya me funciona perfectamente.\n\n[code:a4gyqmxc]METHOD LostFocus&#40; hCtlFocus &#41; CLASS TSBrowse\n\n   Local nRecNo, uTag\n\n   Default &#58;&#58;aControls &#58;= &#123;&#125;\n\n   If &#58;&#58;lEditing &#46;and&#46; Len&#40; &#58;&#58;aControls &#41; &gt; 0 &#46;and&#46; ;\n      hCtlFocus == &#58;&#58;aControls&#91; 1 &#93;&#58;hWnd\n\n      Return 0\n\n   EndIf\n\n   If &#58;&#58;lEditing\n\n      If &#58;&#58;aColumns&#91; &#58;&#58;nCell &#93;&#58;oEdit != Nil\n         &#58;&#58;aColumns&#91; &#58;&#58;nCell &#93;&#58;oEdit&#58;End&#40;&#41;\n      EndIf\n\n      &#58;&#58;lEditing &#58;= &#58;&#58;lPostEdit &#58;= &#46;F&#46;\n\n   EndIf\n\n   &#58;&#58;lNoPaint &#58;= &#46;F&#46;\n\n   If &#58;&#58;lDrag\n      Return Super&#58;LostFocus&#40; hCtlFocus &#41;\n   EndIf\n\n   &#58;&#58;lFocused = &#46;F&#46;\n\n   If ! Empty&#40; &#58;&#58;bLostFocus &#41;\n      Eval&#40; &#58;&#58;bLostFocus, hCtlFocus &#41;\n   EndIf\n\n   If &#58;&#58;nLen &gt; 0 &#46;and&#46; ! EmptyAlias&#40; &#58;&#58;cAlias &#41; &#46;and&#46; ! &#58;&#58;lIconView\n     &#58;&#58;DrawSelect&#40;&#41;\n      If &#58;&#58;lIsDbf &#46;and&#46; &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41; != &#58;&#58;nLastPos\n        &#58;&#58;nLastPos &#58;= &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41;\n        &#58;&#58;nLastnAt &#58;= &#58;&#58;nAt\n        If &#58;&#58;bTagOrder != Nil &#46;and&#46; ! &#58;&#58;lNoResetPos &#46;and&#46; &#58;&#58;bLastTag != Nil\n           &#58;&#58;uLastTag &#58;= Eval&#40; &#58;&#58;bLastTag &#41;\n        EndIf\n      EndIf\n   EndIf\n\n   If &#58;&#58;oCtx != Nil\n      &#58;&#58;oCtx&#58;Save&#40;&#41;\n   EndIf\n   &#58;&#58;lHasFocus &#58;= &#46;F&#46;\nReturn 0[/code:a4gyqmxc]','',0,'AIA=','a4gyqmxc',1,0,'',21,0,0),(1913,495,2,9,0,'62.174.202.39',1131896872,1,0,1,1,1,0,'','','Se me ocurre dos cosas:\n\n1) Utilizar un indice temporal en vez de scope y luego realizar el filtro.\n\n2) Utilizar el scope pero luego en el filtro poner las dos condiciones: la del nombre y la del scope (ciudad).\n\nUn saludo','',0,'AIA=','a4kms16y',1,0,'',9,0,0),(1914,484,4,277,0,'151.25.105.102',1131899312,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:z2mktxle]Claudio, Enrico,\n\nAlready fixed. Please download a new FWPPC build.\n\nPlease Claudio, try your code and let me know if it works ok. Thanks,[/quote:z2mktxle]\n\nExcellent! i try tomorrow morning.\nThanks very much.\nClaudio','',0,'gA==','z2mktxle',1,0,'',277,0,0),(1915,497,4,277,0,'151.25.105.102',1131899799,1,0,1,1,1,0,'','TRadMenu bug with pixel metrix','I found a bug in TRadMenu, the line 112:\n\nAAdd( ::aItems, TRadio():New( nRow + ( n - 1 ) , nCol, acItems[ n ],;\n\nseems to be changed to:\n\nAAdd( ::aItems, TRadio():New( nRow + ( n - 1 )*nStep , nCol, acItems[ n ],;\n\nBest regards.\n\nClaudio','',0,'','13drqrb6',1,0,'',277,0,0),(1916,485,4,277,0,'151.25.105.102',1131900226,1,0,1,1,1,0,'','Re: Browsing arrays','[quote=&quot;EnricoMaria&quot;:1jot5jvb]Hi Claudio, I\'m happy to see you here! This is a working sample:\n\n[snip]\n\nEMG[/quote:1jot5jvb]\n\nThanks, i try immediatly.\nI\'m here because our frend Andrea convinced me <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , i\'m happy too.\n\nClaudio.','',0,'gA==','1jot5jvb',1,0,'',277,0,0),(1917,494,6,138,0,'148.221.195.33',1131900871,1,0,1,1,1,1,'','Re: Ayuda con scopes y Filter $','[quote=&quot;Databaselab2002&quot;:1e4y15ii]\n    sele 3\n    use MD  index MDL\n    SET INDEX TO  MDL,MDN,MDC\n\n   loca1=alltrim(xcolor1)\n\n   OrdScope(TOPSCOPE,loca1)\n   OrdScope(BOTTOMSCOPE,loca1)\n\n   Set Filter to nomb $ UPPER(MD-&gt;PER_NOMBRE)\n[/quote:1e4y15ii]\n\nCreo que estas manejando mal tus CDX.... \n\no estas usando IDX o estas usando varios CDX  ???\n\nel comando SET INDEX no se utiliza con CDX porque los CDX se abren automaticamente cuando se abre la base de datos, a menos que tengas varios CDX en cuyo caso deberas utilizar la funcion OrdListAdd(), no DBSETORDER()\n\nLa seleccion de indice se debe hacer con la funcion ORDSETFOCUS() para CDX no con DBSETINDEX() porque esa es para NTX\n\nLuego... \n\nEl OrdScope() funciona sobre el indice actualmente seleccionado, si no hiciste un ORDSETFOCUS(nombredeltag) antes de hacer el SCOPE no pasa nada, la base de datos se queda sin scopear.\n\naaaahhh y no olvides hacer un DBGOTOP() despues del scope y luego hacer el filtro.','',0,'gA==','1e4y15ii',1,0,'',138,0,0),(1918,498,3,260,0,'82.59.68.152',1131901880,1,0,1,1,1,0,'','Help For Folder change','I have changed for test the sample testfold6.prg\nI add this procedure for change the page of work.\nMy result is to change the page but not the tab.\nHow i can make this?\nThanks\n\nEduardo Alicante\n\nThe procedure\n\nprocedure ctrl(oDlg,oFld)\nlocal ncount:=0\nfor ncount = 1 to 5\n    * how to change the page?\n    * this system display a page but not the tab\n    oFld:aDialogs[ncount]:show()\n    *oFld:aDialogs[ncount]:setfocus()\n    oFld:aDialogs[ncount]:refresh()\n    inkey(2)\nnext\nreturn','',0,'','3roybh91',1,0,'',260,0,0),(1919,431,2,138,0,'148.221.195.33',1131901981,1,0,1,1,1,1,'','','[quote=&quot;Jose Luis&quot;:ujl8v4n8]Creo que me falta documentación o algún ejemplo de funcionamiento, por ejemplo en el prg dice IP, y supongo que ahí habrá que poner la IP pública de mi ADSL[/quote:ujl8v4n8]\n\nPues va a ser que no, la IP que te pide ahi es la IP de tu servidor de correo pop, si no la conoces, puedes utilizar:\n\nciP := GetHostByName(\"mail.google.com\")\n\ndonde \"mail.google.com\" es el nombre del servidor de correo pop.\n\nGetHostByName() te devuelve la IP del servidor y luego con esa direccion IP retornada en cIP, puedes conectarte.','',0,'gA==','ujl8v4n8',1,0,'',138,0,0),(1920,449,3,138,0,'148.221.195.33',1131902236,1,0,1,1,1,1,'','','[quote=&quot;RAMESHBABU&quot;:2z00bqan]Is there any class available to read the barcodes into FWH through the \nbarcode reader and which barcode reader is simple, costeffective and good to work with FWH.\n- Ramesh Babu P[/quote:2z00bqan]\n\nAs stated by Enrico:\n\nThe modern barcode readers go attached to the keyboard plug, so, they work exactly as if you were typing the codes directly with the keyboard, simply scan the code with the ready, and the code will go directly into the current active FIVEWIN GET','',0,'gA==','2z00bqan',1,0,'',138,0,0),(1921,499,3,144,0,'68.7.224.53',1131909029,1,0,1,1,1,1,'','win32 Month Calendar','Has anyone done a wrapper for  \nMONTHCAL_CLASS   aka  \"SysMonthCal32\" ??\n\nNote this is different than the DTPicker.\n\nTIA','',0,'gA==','1snjvde8',1,0,'',144,0,0),(1922,500,6,251,0,'201.248.64.57',1131922572,1,0,1,1,1,0,'','Como trabajo una rc de 32bits en Workshop','Hola ha todos, ya voy avanzando en harbour pero se me presenta la siguiente inquietud, tengo un archivo rc que puedo editar en modo texto, pero cuando trato de abrirlo con workshop me dice que necesito la bcc32 2.0 o superior, alguien tiene idea como abro esta rc para poder ver los botones,\n\n\nGracias, Di Gregorio Caracas - Venezuela','',0,'gA==','2dno4kde',1,0,'',251,0,0),(1923,455,3,52,0,'201.231.14.50',1131947093,1,0,1,1,1,1,'','','Antonio, leyendo este y otros comentarios con respectos a otros prg, como el windows.prg para la parte de tooltips con corners redondos necesito proguntarte esto:\n\nPara no tener que añadir tanto windows.prg y mget.prg en los proyectos, estos pueden re-compilarse asi no tengo que incluirlos?\n\nGracias.\n\n[quote=&quot;Antonio Linares&quot;:1ymfjp6t]Maurilio,\n\nPlease include these changes in source\\classes\\mget.prg Method KeyChar:\n\n   if nKey == VK_ESCAPE  // Windows API already sends it to dialogs!!!\n      if ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:lModal\n         return nil\n      endif\n      if ::oWnd:ChildLevel( TDialog() ) != 0 .and. ::oWnd:oWnd != nil .and. ;\n         ::oWnd:oWnd:ChildLevel( TPages() ) != 0\n         ::oWnd:oWnd:oWnd:End()\n      endif   \n   endif\n\n   if nKey == VK_TAB\n      return Super:KeyChar( nKey, nFlags )\n   endif[/quote:1ymfjp6t]','',0,'gA==','1ymfjp6t',1,0,'',52,0,0),(1924,500,6,138,0,'200.65.139.122',1131949433,1,0,1,1,1,1,'','','hummmm.... estas usando Controles de Borland.....\n\nConsejo.... quita los contorles de Borland, hay una forma de hacerlos funcionar con FWH, pero lo mejor es pasar ya definitivamente de ellos por la falta de compatibilidad que tienen con los controles estandares de windows.','',0,'gA==','1n4g9wxd',1,0,'',138,0,0),(1925,497,4,2,0,'80.58.2.107',1131951726,1,0,1,1,1,1,'','','Claudio,\n\nYes, you are right. nStep was not being used. \n\nhave you tried it ? Does it works ok ?','',0,'gA==','1x32qrce',1,0,'',2,0,0),(1926,497,4,2,0,'80.58.2.107',1131952422,1,0,1,1,1,1,'','','Claudio,\n\nIn our tests it seems that we should better not use it and leave the code as it is right now. It looks better.','',0,'gA==','nd39x3ci',1,0,'',2,0,0),(1927,497,4,277,0,'81.72.105.247',1131953953,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2kop1loj]Claudio,\n\nIn our tests it seems that we should better not use it and leave the code as it is right now. It looks better.[/quote:2kop1loj]\n\nI tried modified code with pixel metrix and it works fine for me, with the original code radio buttons disappare. I did\'nt tried with pixel switch off.\n\nBest regards.\nClaudio','',0,'gA==','2kop1loj',1,0,'',277,0,0),(1928,497,4,2,0,'80.58.2.107',1131957666,1,0,1,1,1,1,'','','Claudio,\n\nYes, the problem is with lPixel as .f.','',0,'gA==','30cveka9',1,0,'',2,0,0),(1929,481,1,2,0,'80.58.2.107',1131957762,1,0,1,1,1,1,'','','Kronos,\n\nI don\'t know if there is greek support for Clipper. I guess yes.\n\nAnyhow, Harbour and FWH do support greek.','',0,'gA==','39gtm5y3',1,0,'',2,0,0),(1930,482,4,89,0,'213.21.136.60',1131960167,1,0,1,1,1,0,'','','Hello Antonio\n\n Thanks it works very well , it is possible check the level of the  wireless  to ? \n\n  Regards Maurizio','',0,'gA==','2wcpbg95',1,0,'',89,0,0),(1931,496,6,177,0,'194.30.62.6',1131962384,1,0,1,1,1,0,'','','Eskerrik asko !! Muchas gracias !!\n\nFélix','',0,'gA==','3neb5chm',1,0,'',177,0,0),(1932,484,4,277,0,'81.72.105.247',1131963131,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2kenhbt3]Claudio, Enrico,\n\nAlready fixed. Please download a new FWPPC build.\n\nPlease Claudio, try your code and let me know if it works ok. Thanks,[/quote:2kenhbt3]\n\nUnfortunatly not, try two or three times the open button and you\nwill be pushed out of program.\n\nClaudio','',0,'gA==','2kenhbt3',1,0,'',277,0,0),(1933,501,20,76,0,'80.17.137.201',1131963487,1,0,1,1,1,1,'','Routine di HELP','C\'è qualcuno che ha a disposizione il classico esempietto sull\'utilizzo delle funzioni di help delle fivewin per xHb?\nInoltre, come fare a costruire un file di help .HLP e accedere direttamente ai sottoargomenti premendo F1 nelle varie parti di un prg?\nHo inoltre l\'esigenza di far apparire una pagina (singola) di help premendo F1 sul preview (da me modificato) delle FWH, che spieghi l\'uso dei tasti.\nGrazie per l\'aiuto','',0,'gA==','1k1ygds1',1,0,'',76,0,0),(1934,496,6,21,0,'80.58.41.235',1131963661,1,0,1,1,1,1,'','','Hola,\n\nSe que hay mas gente que ha variado la clase, si disponemos de esos cambios mejoraremos la clase entre todos.\n\nMas cambios que he realizado (aparecen bajo el comentario fgondi)\n\n[code:1tndmye3]METHOD Edit&#40; uVar, nCell, nKey, nKeyFlags, cPicture, bValid, nClrFore, ;\n             nClrBack &#41; CLASS TSBrowse\n\n   Local nRow, nHeight, oFont, cType, uValue, nI, aGet, oCol, cMsg, aRct, ;\n         cError, bChange, lSpinner, bUp, bDown, bMin, bMax, nStartX, ;\n         nWidth, lCombo, lMulti, nCol, lLogicDrop, nTxtHeight, ;\n         nFireKey &#58;= &#58;&#58;nFireKey\n\n   Default nCell       &#58;= &#58;&#58;nCell, ;\n           &#58;&#58;lPostEdit &#58;= &#46;F&#46;, ;\n           &#58;&#58;lNoPaint  &#58;= &#46;F&#46;\n\n   oCol &#58;= &#58;&#58;aColumns&#91; nCell &#93;\n\n   Default &#58;&#58;nHeightSuper &#58;= 0, ;\n           nKey           &#58;= VK_RETURN, ;\n           nKeyFlags      &#58;= 0, ;\n           nFireKey       &#58;= VK_F2, ;\n           uVar           &#58;= Eval&#40; oCol&#58;bData &#41;, ;\n           cPicture       &#58;= oCol&#58;cPicture, ;\n           bValid         &#58;= oCol&#58;bValid, ;\n           nClrFore       &#58;= oCol&#58;nClrEditFore, ;\n           nClrBack       &#58;= oCol&#58;nClrEditBack\n\n   uValue   &#58;= uVar\n   cType    &#58;= If&#40; Empty&#40; oCol&#58;cDataType &#41;, ValType&#40; uValue &#41;, oCol&#58;cDataType &#41;\n   cMsg     &#58;= oCol&#58;cMsgEdit\n   cError   &#58;= oCol&#58;cError\n   bChange  &#58;= oCol&#58;bChange\n   lSpinner &#58;= oCol&#58;lSpinner\n   bUp      &#58;= oCol&#58;bUp\n   bDown    &#58;= oCol&#58;bDown\n   bMin     &#58;= oCol&#58;bMin\n   bMax     &#58;= oCol&#58;bMax\n   nStartX  &#58;= 0\n   lCombo   &#58;= lMulti &#58;= &#46;F&#46;\n   &#58;&#58;oGet   &#58;= &#58;&#58;oWnd&#58;bValid\n   &#58;&#58;oWnd&#58;bValid &#58;= &#123; || ! &#58;&#58;lEditing &#125;\n\n   If oCol&#58;bPassWord != Nil\n\n      If ! Eval&#40; oCol&#58;bPassWord, uValue, nCell, &#58;&#58;nAt, Self &#41;\n         Return Nil\n      EndIf\n\n   EndIf\n\n   &#58;&#58;lEditing   &#58;= &#46;T&#46;\n   &#58;&#58;lHitBottom &#58;= &#46;F&#46;\n\n   If &#58;&#58;nLen &gt; 0\n      &#58;&#58;lNoPaint &#58;= &#46;T&#46;\n   EndIf\n\n   If oCol&#58;bPrevEdit != Nil\n      Eval&#40; oCol&#58;bPrevEdit, uValue, Self &#41;\n   EndIf\n\n   cMsg &#58;= If&#40; ValType&#40; cMsg &#41; == &quot;B&quot;, Eval&#40; cMsg, Self, nCell &#41;, cMsg &#41;\n\n   If cType == &quot;L&quot; &#46;and&#46; oCol&#58;lCheckBox\n\n      If nKey != VK_RETURN\n\n         If Upper&#40; Chr&#40; nKey &#41; &#41; $ &quot;YCST1&quot;\n            &#58;&#58;lChanged &#58;= uVar == &#46;F&#46;\n            uVar &#58;= &#46;T&#46;\n         ElseIf Upper&#40; Chr&#40; nKey &#41; &#41; $ &quot;FN0&quot;\n            &#58;&#58;lChanged &#58;= uVar == &#46;T&#46;\n            uVar &#58;= &#46;F&#46;\n         ElseIf nKey == VK_SPACE\n            uVar &#58;= ! uVar\n            &#58;&#58;lChanged &#58;= &#46;T&#46;\n         Else\n            Return 0\n         EndIf\n\n         &#58;&#58;lHasChanged &#58;= If&#40; &#58;&#58;lChanged, &#46;T&#46;, &#58;&#58;lHasChanged &#41;\n         &#58;&#58;oWnd&#58;nLastKey &#58;= VK_RETURN\n         &#58;&#58;PostEdit&#40; uVar, nCell, bValid &#41;        //&#46;&#46;&#46; fgondi&#46; Añadido parametro bValid\n         &#58;&#58;lPostEdit &#58;= &#46;F&#46;\n         Return 0\n\n      Else\n\n         &#58;&#58;lPostEdit &#58;= &#46;T&#46;\n         &#58;&#58;lChanged &#58;= &#46;F&#46;\n         &#58;&#58;oWnd&#58;nLastKey &#58;= nKey\n         &#58;&#58;PostEdit&#40; uVar, nCell, bValid &#41;        //&#46;&#46;&#46; fgondi&#46; Añadido parametro bValid\n         &#58;&#58;lPostEdit &#58;= &#46;F&#46;\n         Return 0\n\n      EndIf\n\n   EndIf\n\n   If oCol&#58;bExtEdit != Nil  // external edition\n\n      &#58;&#58;lNoPaint &#58;= &#58;&#58;lEditing &#58;= &#46;F&#46;\n      uVar &#58;= Eval&#40; oCol&#58;bExtEdit, uValue, Self &#41;\n      &#58;&#58;lChanged &#58;= ValType&#40; uVar &#41; != ValType&#40; uValue &#41; &#46;or&#46; uVar != uValue\n      &#58;&#58;lPostEdit &#58;= &#46;T&#46;\n      &#58;&#58;oWnd&#58;nLastKey &#58;= VK_RETURN\n      &#58;&#58;PostEdit&#40; uVar, nCell, bValid &#41;\n      Return Nil\n\n   EndIf\n\n   oFont &#58;= If&#40; oCol&#58;oFontEdit != Nil, oCol&#58;oFontEdit, ;\n                If&#40; oCol&#58;oFont != Nil, oCol&#58;oFont, &#58;&#58;oFont &#41; &#41;\n\n   If oCol&#58;oEdit != Nil\n      oCol&#58;oEdit&#58;End&#40;&#41;\n	Endif\n\n   If &#58;&#58;nFreeze &gt; 0\n      For nI &#58;= 1 To Min&#40; &#58;&#58;nFreeze , nCell - 1 &#41;\n         nStartX += &#58;&#58;GetColSizes&#40;&#41;&#91; nI &#93;\n      Next\n   EndIf\n\n   For nI &#58;= &#58;&#58;nColPos To nCell - 1\n      nStartX += &#58;&#58;GetColSizes&#40;&#41;&#91; nI &#93;\n   Next\n\n   nClrFore &#58;= If&#40; ValType&#40; nClrFore &#41; == &quot;B&quot;, ;\n                   Eval&#40; nClrFore, &#58;&#58;nAt, nCell, Self &#41;, nClrFore &#41;\n\n   nClrBack &#58;= If&#40; ValType&#40; nClrBack &#41; == &quot;B&quot;, ;\n                   Eval&#40; nClrBack, &#58;&#58;nAt, nCell, Self &#41;, nClrBack &#41;\n\n   nRow    &#58;= &#58;&#58;nRowPos - 1\n   nRow    &#58;= &#40; nRow * &#58;&#58;nHeightCell &#41; + &#58;&#58;nHeightHead + ;\n              &#58;&#58;nHeightSuper + If&#40; oCol&#58;l3DLook, 2, 0 &#41;\n   nCol    &#58;= nStartX + If&#40; oCol&#58;l3DLook, 2, 0 &#41;\n   nWidth  &#58;= &#58;&#58;GetColSizes&#40;&#41;&#91; nCell &#93; - If&#40; oCol&#58;l3DLook, 4, 2 &#41;\n   nHeight &#58;= &#58;&#58;nHeightCell - If&#40; oCol&#58;l3DLook, 3, 1 &#41;\n\n\n   If oCol&#58;cResName != Nil\n\n      oCol&#58;oEdit &#58;= TSBtnGet&#40;&#41;&#58;New&#40; 0, 0, bSETGET&#40; uValue &#41;, Self, 0, 0, ;\n                                 cPicture,, nClrFore, nClrBack, oFont,,,, ;\n                                 cMsg,,,,, bChange,,, &#46;T&#46;,, ;\n                                 oCol&#58;cResName, oCol&#58;bAction, ;\n                                 lSpinner &#46;and&#46; cType $ &quot;ND&quot;, bUp, bDown, ;\n                                 bMin, bMax, oCol&#58;nBmpWidth &#41;\n\n      oCol&#58;oEdit&#58;Hide&#40;&#41;\n      oCol&#58;oEdit&#58;nFireKey &#58;= nFireKey\n      oCol&#58;oEdit&#58;aFill &#58;= oCol&#58;aFill\n      oCol&#58;oEdit&#58;lFixCaret &#58;= &#58;&#58;lFixCaret\n\n   ElseIf &#40; cType == &quot;C&quot; &#46;and&#46; Chr&#40; 13 &#41; $ uValue &#41; &#46;or&#46; cType == &quot;M&quot;\n\n      Default uValue &#58;= &quot;&quot;\n\n      If &#58;&#58;nMemoHE == Nil\n\n         If ! Empty&#40; uValue &#41;\n            nHeight &#58;= Max&#40; 4, StrCharCount&#40; uValue, Chr&#40; 10 &#41; &#41; &#41;\n         Else\n            nHeight &#58;= 4\n         EndIf\n\n      Else\n         nHeight &#58;= &#58;&#58;nMemoHE\n      EndIf\n\n      aRct &#58;= GetClientRect&#40; &#58;&#58;hWnd &#41;\n\n      If &#58;&#58;nMemoWE == Nil &#46;or&#46; Empty&#40; &#58;&#58;nMemoWE &#41;\n         nWidth &#58;= Max&#40; nWidth, GetTextWidth&#40; 0, SubStr&#40; uValue, 1, ;\n                                              At&#40; Chr&#40; 13 &#41;, uValue &#41; - 1 &#41;, ;\n                                              If&#40; oFont != Nil, oFont&#58;hFont, 0 &#41; &#41; &#41;\n         nWidth &#58;= Min&#40; nWidth, Int&#40; aRct&#91; 4 &#93; * &#46;8 &#41; &#41;\n      Else\n         nWidth &#58;= &#58;&#58;nMemoWE\n      EndIf\n\n      nTxtHeight &#58;= SBGetHeight&#40; &#58;&#58;hWnd, If&#40; oFont != Nil, oFont&#58;hFont, 0 &#41;, 0 &#41;\n\n      While &#40; nRow + &#40; nTxtHeight * nHeight &#41; &#41; &gt; aRct&#91; 3 &#93;\n         nRow -= nTxtHeight\n      EndDo\n\n      nI &#58;= nCol + nWidth - aRct&#91; 4 &#93;\n      nCol -= If&#40; nI &lt; 0, 0, nI &#41;\n      nCol &#58;= Max&#40; 10, nCol &#41;\n      nHeight *= nTxtHeight\n\n      If SubStr&#40; uValue, 1, 4 &#41; == GTF5\n         oCol&#58;oEdit &#58;= TSFGet&#40;&#41;&#58;New&#40; 0, 0, bSETGET&#40; uValue &#41;, Self, 0, 0, oFont &#41;\n         oCol&#58;oEdit&#58;OnResize &#58;= &#123;||oCol&#58;oEdit&#58;VScrAdjust&#40;&#41;&#125;\n      Else\n         oCol&#58;oEdit &#58;= TSMulti&#40;&#41;&#58;New&#40; 0, 0, bSETGET&#40; uValue &#41;, Self, 0, 0, ;\n                                      oFont,,nClrFore, nClrBack &#41;\n         oCol&#58;oEdit&#58;bGotFocus &#58;= &#123; || oCol&#58;oEdit&#58;HideSel&#40;&#41;, oCol&#58;oEdit&#58;SetPos&#40; 0 &#41; &#125;\n      EndIf\n\n      lMulti &#58;= &#46;T&#46;\n      oCol&#58;oEdit&#58;Hide&#40;&#41;\n      SetWindowLong&#40; oCol&#58;oEdit&#58;hWnd, GWL_STYLE, nOr&#40; oCol&#58;oEdit&#58;nStyle, WS_THICKFRAME &#41; &#41;\n\n   ElseIf &#40; cType == &quot;L&quot; &#46;and&#46; &#58;&#58;lLogicDrop &#41; &#46;or&#46; oCol&#58;lComboBox\n\n      lCombo &#58;= &#46;T&#46;\n\n      If oCol&#58;lComboBox\n\n         aGet &#58;= oCol&#58;aItems\n\n         If Empty&#40; aGet &#41;\n            Return Nil\n         EndIf\n\n         If nKey == VK_RETURN\n            If oCol&#58;cDataType != Nil &#46;and&#46; oCol&#58;cDataType == &quot;N&quot;\n               uValue &#58;= Max&#40; 1, AScan&#40; aGet, AllTrim&#40; uValue &#41; &#41; &#41;\n            Else\n               uValue &#58;= aGet&#91; Max&#40; 1, AScan&#40; aGet, AllTrim&#40; uValue &#41; &#41; &#41; &#93;\n            EndIf\n         Else\n            If oCol&#58;cDataType != Nil &#46;and&#46; oCol&#58;cDataType == &quot;N&quot;\n               uValue &#58;= Max&#40; 1, AScan&#40; aGet, Upper&#40; Chr&#40; nKey &#41; &#41; &#41; &#41;\n            Else\n               uValue &#58;= aGet&#91; Max&#40; 1, AScan&#40; aGet, Upper&#40; Chr&#40; nKey &#41; &#41; &#41; &#41; &#93;\n            EndIf\n         EndIf\n\n         nHeight &#58;= Max&#40; 10, Min&#40; 10, Len&#40; aGet &#41; &#41; &#41; * &#58;&#58;nHeightCell\n\n      Else\n\n         aGet &#58;= &#123; &#58;&#58;aMsg&#91; 1 &#93;, &#58;&#58;aMsg&#91;  2 &#93; &#125;\n\n         If nKey == VK_RETURN\n            uValue &#58;= If&#40; uValue, 1,  2 &#41;\n         EndIf\n\n         nHeight &#58;= &#58;&#58;nHeightCell * 2\n\n      EndIf\n\n      nRow -= 4\n      oCol&#58;oEdit &#58;= TSCombo&#40;&#41;&#58;New&#40; 1000, 0, bSETGET&#40; uValue &#41;, aGet, ;\n                                   0, 0, Self,,bChange,, nClrFore, ;\n                                   nClrBack, &#46;T&#46;, oFont, cMsg &#41;\n\n      oCol&#58;oEdit&#58;bCloseUp &#58;= &#123;|o|o&#58;PostMsg&#40; WM_KEYDOWN, VK_RETURN, 0 &#41;&#125;\n      oCol&#58;oEdit&#58;lAppend &#58;= &#58;&#58;lAppendMode\n      oCol&#58;oEdit&#58;Hide&#40;&#41;\n\n   Else\n\n      oCol&#58;oEdit &#58;= TSGet&#40;&#41;&#58;New&#40; 0, 0, bSETGET&#40; uValue &#41;, Self, 0, 0, ;\n                                 cPicture,, nClrFore, nClrBack, oFont,,,, ;\n                                 cMsg,,,,, bChange,,, &#46;T&#46;,, ;\n                                 lSpinner &#46;and&#46; cType $ &quot;ND&quot;, bUp, bDown, ;\n                                 bMin, bMax &#41;\n\n      oCol&#58;oEdit&#58;Hide&#40;&#41;\n      oCol&#58;oEdit&#58;aFill &#58;= oCol&#58;aFill\n      oCol&#58;oEdit&#58;lFixCaret &#58;= &#58;&#58;lFixCaret\n\n   EndIf\n\n   oCol&#58;oEdit&#58;bLostFocus &#58;= &#123; | nKey | &#58;&#58;EditExit&#40; nCell, nKey, uValue, ;\n                                                  bValid, &#46;T&#46; &#41; &#125;\n   oCol&#58;oEdit&#58;bKeyDown   &#58;= &#123; | nKey, nFlags, lExit | ;\n                              If&#40; lExit != Nil &#46;and&#46; lExit, ;\n                                  &#58;&#58;EditExit&#40; nCell, nKey, uValue, bValid &#41;, ;\n                                  Nil &#41; &#125;\n\n   oCol&#58;oEdit&#58;oJump &#58;= Self\n   oCol&#58;oEdit&#58;Move&#40; nRow, nCol, nWidth, nHeight, ! lCombo &#41;\n\n   If oCol&#58;cResName != Nil\n      oCol&#58;oEdit&#58;Default&#40;&#41;\n   EndIf\n\n   oCol&#58;oEdit&#58;SetFocus&#40;&#41;\n   if oCol&#58;oEdit=NIL\n     return NIL\n   endif\n\n   If nKey != Nil &#46;and&#46; nKey &gt; 31\n\n      If ! lCombo &#46;and&#46; ! lMulti\n         oCol&#58;oEdit&#58;lRightLeftExit &#58;= &#46;T&#46;\n         oCol&#58;oEdit&#58;KeyChar&#40; nKey, nKeyFlags &#41;\n      EndIf\n\n   Endif\n\n   oCol&#58;oEdit&#58;Show&#40;&#41;\n   &#58;&#58;SetMsg&#40; oCol&#58;cMsgEdit &#41;\n\n   If oCol&#58;bEditing != Nil\n      Eval&#40; oCol&#58;bEditing, uVar, Self &#41;\n   EndIf\n\nReturn Nil[/code:1tndmye3]\n\n[code:1tndmye3]#ifdef __OLE__\nMETHOD ExcelOle&#40; cXlsFile, lActivate, oMeter, cTitle, ;\n                 oFont, lSave &#41; CLASS TSBrowse\n\n   Local oExcel, oBook, oSheet, nRow, nCol, uData, nEvery, oRange, cRange, cCell, ;\n         bError, cText, oClip, nStart, ;\n         nLine  &#58;= 1, ;\n         nCount &#58;= 0, ;\n         nRecNo &#58;= &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41;, ;\n         nAt    &#58;= &#58;&#58;nAt\n\n   Default lActivate &#58;= Empty&#40; cXlsFile &#41;, ;\n           cTitle    &#58;= &quot;&quot;, ;\n           lSave     &#58;= &#46;F&#46;\n\n   CursorWait&#40;&#41;\n\n   &#58;&#58;lNoPaint &#58;= &#46;F&#46;\n\n   If oMeter != Nil\n      oMeter&#58;nTotal &#58;= &#40; &#58;&#58;nLen + 1 &#41; * Len&#40; &#58;&#58;aColumns &#41; + 30\n      oMeter&#58;Set&#40; 0 &#41;\n      oMeter&#58;Refresh&#40;&#41;\n      nEvery &#58;= Max&#40; 1, Int&#40; oMeter&#58;nTotal * &#46;02 &#41; &#41; // refresh ometer every 2 %\n   EndIf\n\n   cXlsFile &#58;= AllTrim&#40; StrTran&#40; Upper&#40; cXlsFile &#41;, &quot;&#46;XLS&quot; &#41; &#41;\n   cTitle   &#58;= AllTrim&#40; cTitle &#41;\n   bError   &#58;= ErrorBlock&#40; &#123; | x | Break&#40; x &#41; &#125; &#41;\n\n   Begin Sequence\n      oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Excel&#46;Application&quot;&#41;\n   Recover\n      ErrorBlock&#40; bError &#41;\n      CursorArrow&#40;&#41;\n      MsgStop&#40; &quot;No Ole&#46;lib searched&quot;, &quot;Error&quot; &#41;\n      Return Nil\n   End Sequence\n\n   ErrorBlock&#40; bError &#41;\n\n   If oMeter != Nil\n      nCount -= 15\n      oMeter&#58;Set&#40; nCount &#41;\n   EndIf\n\n   oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oBook  &#58;= oExcel&#58;Get&#40; &quot;ActiveWorkBook&quot;&#41;\n   oSheet &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n\n   If oMeter != Nil\n      nCount -= 15\n      oMeter&#58;Set&#40; nCount &#41;\n   EndIf\n\n   &#40; &#58;&#58;cAlias &#41;-&gt;&#40; Eval&#40; &#58;&#58;bGoTop &#41; &#41;\n\n   cText &#58;= &quot;&quot;\n\n   For nRow &#58;= 1 To &#58;&#58;nLen\n\n      If nRow == 1\n\n         If ! Empty&#40; cTitle &#41;\n            oSheet&#58;Cells&#40; nLine++, 1 &#41;&#58;Value &#58;= AllTrim&#40; cTitle &#41;\n            oSheet&#58;Range&#40; &quot;A1&#58;&quot; + Chr&#40; 64 + Len&#40; &#58;&#58;aColumns &#41; &#41; + ;\n                          &quot;1&quot; &#41;&#58;Set&#40; &quot;HorizontalAlignment&quot;, 7 &#41;\n            ++nLine\n            nStart &#58;= nLine\n         Else\n            nStart &#58;= 1\n         EndIf\n\n         For nCol &#58;= 1 To Len&#40; &#58;&#58;aColumns &#41;\n            If &#58;&#58;aColumns&#91; nCol &#93;&#58;lBitMap &#46;or&#46; &#40;nCol=1 &#46;and&#46; !Empty&#40;&#58;&#58;hBmpCursor&#41;&#41;\n               Loop\n            EndIf\n            uData &#58;= If&#40; ValType&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;cHeading &#41; == &quot;B&quot;, ;\n                         Eval&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;cHeading &#41;, ;\n                         &#58;&#58;aColumns&#91; nCol &#93;&#58;cHeading &#41;\n\n            If ValType&#40; uData &#41; != &quot;C&quot;\n               Loop\n            EndIf\n\n            uData &#58;= StrTran&#40; uData, CRLF, \' \' &#41;             // fgondi&#46; Cambio chr&#40;10&#41; por \' \'\n\n            cText += uData + Chr&#40; 9 &#41;\n\n            If oMeter != Nil\n\n               If nCount % nEvery == 0\n                  oMeter&#58;Set&#40; nCount &#41;\n               EndIf\n\n               nCount ++\n\n            EndIf\n\n         Next\n\n         cText += Chr&#40; 13 &#41;\n\n      EndIf\n\n      For nCol &#58;= 1 To Len&#40; &#58;&#58;aColumns &#41;\n\n         If &#58;&#58;aColumns&#91; nCol &#93;&#58;lBitMap &#46;or&#46; &#40;nCol=1 &#46;and&#46; !Empty&#40;&#58;&#58;hBmpCursor&#41;&#41;\n            Loop\n         EndIf\n\n         uData &#58;= Eval&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;bData &#41;\n\n         If ValType&#40; uData &#41; == &quot;C&quot;\n            uData &#58;= StrTran&#40; uData, CRLF, \' \' &#41;             // fgondi&#46; Cambio chr&#40;10&#41; por \' \'\n         EndIf\n\n         If &#58;&#58;aColumns&#91; nCol &#93;&#58;cPicture != Nil\n            uData &#58;= Transform&#40; uData, &#58;&#58;aColumns&#91; nCol &#93;&#58;cPicture &#41;\n         EndIf\n         if nRow == 1 &#46;and&#46; ValType&#40; uData &#41;==&quot;C&quot;    // fgondi&#46; Formatear las columnas con texto para poder ver textos como \'192492456\'\n           oRange &#58;= cMakeRange&#40; 2, nCol, 65536, nCol &#41;\n           oRange &#58;= oSheet&#58;Range&#40; oRange &#41;\n           oRange&#58;Set&#40;&quot;NumberFormat&quot;, \'@\'  &#41;\n         endif\n\n         uData  &#58;=  IIF&#40; ValType&#40; uData &#41;==&quot;D&quot;, DtoC&#40; uData &#41;, ;\n                    IIF&#40; ValType&#40; uData &#41;==&quot;N&quot;, Str&#40; uData &#41; , ;\n                    IIF&#40; ValType&#40; uData &#41;==&quot;L&quot;, IIF&#40; uData ,&quot;&#46;T&#46;&quot; ,&quot;&#46;F&#46;&quot; &#41;, uData  &#41; &#41; &#41;\n\n         cText+=alltrim&#40; uData &#41; + Chr&#40; 9 &#41;\n\n         If oMeter != Nil\n\n            If nCount % nEvery == 0\n               oMeter&#58;Set&#40; nCount &#41;\n            EndIf\n\n            nCount ++\n\n         EndIf\n\n      Next\n\n      &#58;&#58;Skip&#40; 1 &#41;\n      cText += Chr&#40; 13 &#41;\n\n      ++nLine\n      /*\n         Cada 20k volcamos el texto a la hoja de Excel , usando el portapapeles , algo muy rapido y facil ;-&#41;\n         Every 20k set text into excel sheet , using Clipboard , very easy and faster&#46;\n      */\n\n      IF Len&#40; cText &#41; &gt; 20000\n\n         oClip &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\n         oClip&#58;Clear&#40;&#41;\n         oClip&#58;SetText&#40; cText &#41;\n         cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41;\n         oRange &#58;= oSheet&#58;Range&#40; cCell &#41;\n         oRange&#58;Select&#40;&#41;\n         oSheet&#58;Paste&#40;&#41;\n         oClip&#58;End&#40;&#41;\n         cText &#58;= &quot;&quot;\n         nStart &#58;= nLine + 1\n\n      EndIf\n\n   Next\n\n   If &#58;&#58;lIsDbf\n      &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbGoTo&#40; nRecNo &#41; &#41;\n   EndIf\n\n   &#58;&#58;nAt &#58;= nAt\n\n   If Len&#40; cText &#41; &gt; 0\n      oClip &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\n      oClip&#58;Clear&#40;&#41;\n      oClip&#58;SetText&#40; cText &#41;\n      cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41;\n      oRange &#58;= oSheet&#58;Range&#40; cCell &#41;\n      oRange&#58;Select&#40;&#41;\n      oSheet&#58;Paste&#40;&#41;\n      oClip&#58;End&#40;&#41;\n      cText &#58;= &quot;&quot;\n   EndIf\n\n   cRange &#58;= &quot;A3&#58;&quot; + Chr&#40; 64 + Len&#40; &#58;&#58;aColumns &#41; &#41; + ;\n             Alltrim&#40; Str&#40; oSheet&#58;UsedRange&#58;Rows&#58;Count&#40;&#41; &#41; &#41;\n   oRange &#58;= oSheet&#58;Range&#40; cRange &#41;\n\n   If oFont != Nil // let the programmer to decide the font he wants, otherwise use Excel\'s default\n      oRange&#58;Font&#58;Name &#58;= oFont&#58;cFaceName\n      oRange&#58;Font&#58;Size &#58;= oFont&#58;nSize&#40;&#41;\n      oRange&#58;Font&#58;Bold &#58;= oFont&#58;lBold\n   EndIf\n\n   oRange&#58;Borders&#40;&#41;&#58;LineStyle &#58;= 1\n   oRange&#58;Columns&#58;AutoFit&#40;&#41;\n\n   If oMeter != Nil\n      oMeter&#58;Set&#40; oMeter&#58;nTotal &#41;\n   EndIf\n\n   If cXlsFile != Nil &#46;and&#46; lSave\n      oBook&#58;SaveAs&#40; cXlsFile, -4143 &#41;   // -4143 = Normal\n   EndIf\n\n   oSheet&#58;Range&#40; &quot;A1&quot; &#41;&#58;Select&#40;&#41;\n   CursorArrow&#40;&#41;\n\n   If lActivate\n      oExcel&#58;Visible &#58;= &#46;T&#46;\n   EndIf\n\n   OleUninitialize&#40;&#41;\n\nReturn Nil\n\n#endif // __OLE__[/code:1tndmye3]\n\n[code:1tndmye3]METHOD GoLeft&#40;&#41;  CLASS TSBrowse\n\n   Local nCell, nSkip, ;\n         lLock &#58;= &#58;&#58;nFreeze &gt; 0 &#46;and&#46; &#58;&#58;lLockFreeze, ;\n         lDraw &#58;= &#46;F&#46;\n\n   &#58;&#58;nOldCell &#58;= &#58;&#58;nCell\n\n   If &#58;&#58;lIsTxt\n      If &#58;&#58;nOffset &gt; 5\n         &#58;&#58;nOffset -= 5\n      Else\n         &#58;&#58;nOffset &#58;= 1\n      EndIf\n      &#58;&#58;Refresh&#40; &#46;F&#46; &#41;\n\n      If &#58;&#58;oHScroll != Nil\n         &#58;&#58;oHScroll&#58;SetPos&#40; &#58;&#58;nOffset &#41;\n      EndIf\n      Return Self\n   EndIf\n\n   &#58;&#58;ResetSeek&#40;&#41;\n\n   If &#58;&#58;lCellBrw\n\n      nCell &#58;= &#58;&#58;nCell\n      nSkip &#58;= 0\n\n      While nCell &gt; &#40; If&#40; lLock, &#58;&#58;nFreeze + 1, 1 &#41; &#41;\n\n         nCell --\n         nSkip ++\n\n         If ! &#58;&#58;aColumns&#91; nCell &#93;&#58;lNoHilite\n            Exit\n         EndIf\n\n      EndDo\n\n      If nSkip == 0\n         Return Self\n      EndIf\n\n      While &#58;&#58;nColPos &gt; &#40; &#58;&#58;nFreeze + 1 &#41; &#46;and&#46; ! &#58;&#58;IsColVisible&#40; nCell &#41;\n         lDraw &#58;= &#46;T&#46;\n         &#58;&#58;nColPos --\n      EndDo\n\n      &#58;&#58;nCell &#58;= nCell\n\n      If lDraw\n         &#58;&#58;Refresh&#40; &#46;F&#46; &#41;\n      EndIf\n\n                // fgondi&#46; Añadido comprobación  &#58;&#58;nCell&lt;=len&#40;&#58;&#58;aColumns&#41;\n      If &#58;&#58;nCell&lt;=len&#40;&#58;&#58;aColumns&#41; &#46;and&#46; &#58;&#58;aColumns&#91; &#58;&#58;nCell &#93;&#58;bGotFocus != Nil &#46;and&#46; &#58;&#58;nOldCell != &#58;&#58;nCell\n         Eval&#40; &#58;&#58;aColumns&#91; &#58;&#58;nCell &#93;&#58;bGotFocus, &#58;&#58;nOldCell, &#58;&#58;nCell, Self &#41;\n      EndIf\n                // fgondi&#46; Añadido comprobación  &#58;&#58;nOldCell&lt;=len&#40;&#58;&#58;aColumns&#41;\n      If &#58;&#58;nOldCell&lt;=len&#40;&#58;&#58;aColumns&#41; &#46;and&#46; &#58;&#58;aColumns&#91; &#58;&#58;nOldCell &#93;&#58;bLostFocus != Nil &#46;and&#46;;  \n         &#58;&#58;nOldCell != &#58;&#58;nCell\n        Eval&#40; &#58;&#58;aColumns&#91; &#58;&#58;nOldCell &#93;&#58;bLostFocus, &#58;&#58;nCell, &#58;&#58;nOldCell, Self &#41;\n      EndIf\n\n      If&#40; &#58;&#58;oHScroll != Nil, &#58;&#58;oHScroll&#58;SetPos&#40; &#58;&#58;nCell &#41;, Nil &#41;\n      &#58;&#58;nOldCell &#58;= &#58;&#58;nCell\n      &#58;&#58;HiliteCell&#40; &#58;&#58;nCell &#41;\n      &#58;&#58;DrawSelect&#40;&#41;\n\n	Else\n\n      If &#58;&#58;nCell &gt; &#40; &#58;&#58;nFreeze + 1 &#41;\n\n         &#58;&#58;nColPos &#58;= &#58;&#58;nCell &#58;= &#58;&#58;nFreeze + 1\n         &#58;&#58;Refresh&#40; &#46;F&#46; &#41;\n\n         If &#58;&#58;oHScroll != Nil\n            &#58;&#58;oHScroll&#58;GoTop&#40;&#41;\n         EndIf\n\n      EndIf\n\n   EndIf\nReturn Self[/code:1tndmye3]\n\n[code:1tndmye3]METHOD LDblClick&#40; nRowPix, nColPix, nKeyFlags &#41; CLASS TSBrowse\n\n   Local uTemp, uVal, nBParam, ;\n         nLines    &#58;= &#58;&#58;nRowCount&#40;&#41;, ;\n         nClickRow &#58;= &#58;&#58;GetTxtRow&#40; nRowPix &#41;, ;\n         nCol      &#58;= &#58;&#58;nAtCol&#40; nColPix &#41;, ;\n         uPar1     &#58;= nRowPix, ;\n         uPar2     &#58;= nColPix, ;\n         aMoveCell &#58;= &#123; &#123;|| &#58;&#58;GoRight&#40;&#41; &#125;, &#123;|| &#58;&#58;GoDown&#40;&#41; &#125;, ;\n                        &#123;|| &#58;&#58;goLeft&#40;&#41; &#125;, &#123;|| &#58;&#58;GoUp&#40;&#41; &#125;, ;\n                        &#123;|| &#58;&#58;GoNext&#40;&#41; &#125; &#125;, ;\n         bRecLock  &#58;= If&#40; ! Empty&#40; &#58;&#58;bRecLock &#41;, &#58;&#58;bRecLock, ;\n                         &#123;|| &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RLock&#40;&#41; &#41; &#125; &#41;, ;\n         bAddRec   &#58;= If&#40; ! Empty&#40; &#58;&#58;bAddRec &#41;, &#58;&#58;bAddRec, ;\n                        &#123;|| &#40; &#58;&#58;cAlias &#41;-&gt;&#40; dbAppend&#40;&#41; &#41;, ! NetErr&#40;&#41; &#125; &#41;\n\n   If &#58;&#58;lDrag\n      Return Super&#58;LDblClick&#40; nRowPix, nColPix, nKeyFlags &#41;\n   EndIf\n\n   nBParam &#58;= &#58;&#58;aColumns&#91; nCol &#93;&#58;nBParam\n   &#58;&#58;oWnd&#58;nLastKey &#58;= 0\n   uPar1 &#58;= If&#40; nBParam == 2, TSPoint&#40;&#41;&#58;New&#40; uPar1, uPar2 &#41;, ;\n            If&#40; nBParam == 1, nClickRow, uPar1 &#41; &#41;\n   uPar2 &#58;= If&#40; nBParam == 2, TSPoint&#40;&#41;&#58;New&#40; nClickRow, nCol &#41;, ;\n            If&#40; nBParam == 1, nCol, uPar2 &#41; &#41;\n\n\n   If &#40; nClickRow == &#58;&#58;nRowPos &#46;and&#46; nClickRow &gt; 0 &#41; &#46;or&#46; ;\n      &#40; nClickRow == &#58;&#58;nRowPos &#46;and&#46; ! &#58;&#58;lDrawHeaders &#41;\n\n      If &#58;&#58;lCellBrw &#46;and&#46; &#58;&#58;IsEditable&#40; nCol &#41;\n\n            If ValType&#40; Eval&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;bData &#41; &#41; == &quot;L&quot; &#46;and&#46; ;\n               &#58;&#58;aColumns&#91; nCol &#93;&#58;lCheckBox  // virtual checkbox\n               &#58;&#58;PostMsg&#40; WM_CHAR, VK_SPACE, 0 &#41;\n            Else\n               &#58;&#58;PostMsg&#40; WM_KEYDOWN, VK_RETURN, 0 &#41;\n            EndIf\n\n            Return 0\n\n      ElseIf &#58;&#58;lCanSelect\n\n         uVal &#58;= If&#40; &#58;&#58;lIsDbf, &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41;, &#58;&#58;nAt &#41;\n\n         If &#40; uTemp &#58;= AScan&#40; &#58;&#58;aSelected, uVal &#41; &#41; &gt; 0\n\n            ADel&#40; &#58;&#58;aSelected, uTemp &#41;\n            ASize&#40; &#58;&#58;aSelected, &#40; Len&#40; &#58;&#58;aSelected &#41; - 1 &#41; &#41;\n            &#58;&#58;DrawSelect&#40;&#41;\n\n            If &#58;&#58;bSelected != Nil\n               Eval&#40; &#58;&#58;bSelected, Self, uVal, &#46;F&#46; &#41;\n            EndIf\n\n         Else\n\n            AAdd&#40; &#58;&#58;aSelected, uVal &#41;\n            &#58;&#58;DrawSelect&#40;&#41;\n\n            If &#58;&#58;bSelected != Nil\n               Eval&#40; &#58;&#58;bSelected, Self, uVal, &#46;T&#46; &#41;\n            EndIf\n\n         EndIf\n\n         If &#58;&#58;bLDblClick != Nil\n            Eval&#40; &#58;&#58;bLDblClick, uPar1, uPar2, nKeyFlags &#41;\n         EndIf\n\n      ElseIf &#58;&#58;bLDblClick != nil\n         Eval&#40; &#58;&#58;bLDblClick, uPar1, uPar2, nKeyFlags &#41;\n      EndIf\n\n   ElseIf nClickRow == 0 &#46;and&#46; &#58;&#58;lDrawHeaders\n      &#58;&#58;SetOrder&#40; nCol &#41; // fgondi&#46; &#58;&#58;SetOrder&#40; &#58;&#58;nAtCol&#40; nColPix, &#46;T&#46; &#41; &#41;   \n   EndIf\n\nReturn Self[/code:1tndmye3]','',0,'AIA=','1tndmye3',1,0,'',21,0,0),(1935,501,20,6,0,'82.61.69.224',1131963923,1,0,1,1,1,1,'','Re: Routine di HELP','Temo che il formato HLP sia ormai superato in favore del CHM.\n\nEMG','',0,'AIA=','3kp7n9mm',1,0,'',6,0,0),(1936,502,3,284,0,'201.27.218.128',1131964085,1,0,1,0,1,0,'','Error FiveWin/6  Cannot create window or control','I´m getting the error :\n\"Error FiveWin/6  Cannot create window or control\"\nCould anyone explains why can´t I do this ?\nSample code :\n   \n\n#INCLUDE \"FIVEWIN.CH\"\n\nPROCEDURE MAIN()\n   oDLG_MAIN := TWINDOW():NEW(,,,,\"Test\")\n   ACTIVATE WINDOW oDLG_MAIN ON INIT( TEST2() )\nRETURN NIL\n\nFUNCTION TEST2()\n LOCAL oDialog\n DEFINE DIALOG oDialog  TITLE \"Test2\"\n DEFINE MESSAGE oMessage  OF oDialog  PROMPT \"Test2 Footer\"\n ACTIVATE DIALOG oDialog\nRETURN','',0,'AIA=','2rdlzcia',1,0,'',284,0,0),(1937,502,3,6,0,'82.61.69.224',1131964717,1,0,1,1,1,1,'','Re: Error FiveWin/6  Cannot create window or control','[code:3qr7bnua]#INCLUDE &quot;FIVEWIN&#46;CH&quot; \n\nPROCEDURE MAIN&#40;&#41; \nLOCAL oDLG_MAIN &#58;= TWINDOW&#40;&#41;&#58;NEW&#40;,,,,&quot;Test&quot;&#41;, oMessage\nACTIVATE WINDOW oDLG_MAIN ON INIT&#40; TEST2&#40;&#41; &#41; \nRETURN\n\nFUNCTION TEST2&#40;&#41; \nLOCAL oDialog, oMessage\nDEFINE DIALOG oDialog TITLE &quot;Test2&quot; \n//DEFINE MESSAGE oMessage OF oDialog PROMPT &quot;Test2 Footer&quot; \nACTIVATE DIALOG oDialog ON INIT TEST3&#40; oDialog &#41;\nRETURN NIL\n\nFUNCTION TEST3&#40; oDialog &#41;\n\n    LOCAL oMessage\n\n    DEFINE MESSAGE oMessage OF oDialog PROMPT &quot;Test2 Footer&quot; \n\n    RETURN NIL[/code:3qr7bnua]\n\nEMG','',0,'AIA=','3qr7bnua',1,0,'',6,0,0),(1938,503,3,160,0,'210.212.142.91',1131966803,1,0,1,1,1,0,'','DBCOMBO class problem ?','Hello,\n\nShould the table being used be set to any specific active index \n\ntag ? If yes, to ListField index or ItemField Index ?\n\nI am gettig quite strange result with it.\n\nHere is the small example demonstrating the same.\n\nIn this example, selecting \'ABC\' should return 1 instead it  returns 2,\nselecting \'XYZ\' should return 2 instead it returns 2 ,\nselecting \'DEF\' returns correctly 3.\n\nPlease help\n\nMilan.\n\n----------------Prg------------------------\n# include \"fivewin.ch\"\n# INCLUDE \"dbcombo.ch\"\n\n#define PBSEARCHOK        10121\n#define CBDIARY            10122\n\nPROCEDURE Main\n    LOCAL oDlg, oMiscInfo, cMiscInfo\n    LOCAL oDlgSearch, oVno, nVno, nRecNo\n\n    Cret_Table()\n\n    SELE 0\n    USE Test\n    appe blank\n    REPLACE VNO WITH 1, NAME WITH \'ABC\'\n    appe blank\n    REPLACE VNO WITH 2, NAME WITH \'XYZ\'\n    appe blank\n    REPLACE VNO WITH 3, NAME WITH \'DEF\'\n\n    INDEX ON VNO TAG VNO\n    INDEX ON NAME TAG NAME\n\n    DEFINE DIALOG oDlgSearch RESOURCE \"Search\"\n\n    nVno := Test-&gt;VNO\n\n    Select Test\n    Set ORDER TO TAG name\n\n    REDEFINE DBCOMBO oVno VAR nVno ID CBDIARY OF oDlgSearch ;\n       ALIAS \"Test\" ;\n       ITEMFIELD \"VNO\" ;\n       LISTFIELD \"NAME\"\n\n    REDEFINE BUTTON  ID PBSEARCHOK OF oDlgSearch ACTION \n\noDlgSearch:END()\n\n    ACTIVATE DIALOG oDlgSearch\n\n    msginfo (nvno)\n\n    return\n\nPROCEDURE Cret_Table\n    LOCAL aDbf := {  { \"VNO\"       , \"N\",     5,    0 },;\n                     { \"NAME\"      , \"C\",    40,    0 }}\n    DBCREATE (\'test\', aDbf)\n    RETURN\n----------------End Prg--------------------\n\n------------------Rc-----------------------\n#define PBSEARCHOK	     10121\n#define CBDIARY	         10122\n\nSearch DIALOG 18, 25, 266, 190\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | \n\nWS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION \"Search Name\"\nFONT 8, \"MS Sans Serif\"\n{\n COMBOBOX CBDIARY, 20, 19, 227, 143, CBS_DROPDOWNLIST | \n\nWS_TABSTOP\n PUSHBUTTON \"&amp;Ok\", PBSEARCHOK, 109, 170, 50, 14\n}\n------------------End Rc-------------------','',0,'AIA=','37omxd9y',1,0,'',160,0,0),(1939,504,3,160,0,'210.212.142.91',1131966872,1,0,1,1,1,0,'','TwBrowse Class Problem.','Hi,\n\n\nWhen I change the record position by other than navigation keys and then issue :Refresh(), it changes the display but not the vertical scroll bar.\n\nAm I still missing something ?\n\nTIA\n\nMilan.','',0,'AIA=','30eam6c2',1,0,'',160,0,0),(1940,501,20,76,0,'80.17.137.201',1131968435,1,0,1,1,1,1,'','chm','ok, mi va bene anche il chm, a patto che tu abbia qualcosa che documenti il suo uso. Non capisco comunque perchè passare ad un altro formato quando esistono nelle fwh diverse funzioni che gestiscono il vecchio .HLP. Anche Minigui gestisce il formato .HLP, ed è molto meglio documentato delle fwh, che purtroppo dal punto di vista della documentazione sono veramente carenti. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nciao','',0,'AIA=','1p6z3a9e',1,0,'',76,0,0),(1941,505,3,247,0,'62.103.64.146',1131970658,1,0,1,1,1,0,'','Public var in Get','I have a dialog inside a dialog but the gets have the same name (MUST be public) .How can i restore the one get when i release the variable  from the get with the same name ?\n\nThe bellow sample shows the problem i\'am facing .Can anyone tell me how to do it? \n\n\n[b:3rlgz78d]Sample:[/b:3rlgz78d]\n\n#include \"fivewin.ch\"\n\n\nfunction main()\nlocal oDlg,oget,obtn\npublic nn:=0\n\ndefine dialog odlg ;\nfrom 0,0 to 200,300 pixel\n\n@ 10,10 get oGet var nn of odlg ;\nsize 50,100 pixel\n\n@ 0,0 button obtn action tt() pixel\n\nactivate dialog odlg\n\nreturn \"\"\n\n\n\n\nfunction tt()\nlocal odlg,oget\n\npublic nn:=\"sdfdsf\"\n\ndefine dialog odlg ;\nfrom 10,30 to 200,300 pixel\n\n@ 10,10 get oGet var nn of odlg ;\nsize 50,100 pixel\n\nactivate dialog odlg\nrelease nn\nreturn \"\"\n\n\nfunction tt2(oo,pp)\n\npublic &amp;oo:=pp\nreturn \"\"','',0,'QA==','3rlgz78d',1,0,'',247,0,0),(1942,406,2,264,0,'64.116.212.96',1131971315,1,0,1,1,1,0,'','','cual es el error ?','',0,'QA==','1qzeuqlv',1,0,'',264,0,0),(1943,505,3,6,0,'82.61.69.224',1131971616,1,0,1,1,1,1,'','Re: Public var in Get','Use PRIVATE instead of PUBLIC.\n\nEMG','',0,'QA==','1kxccdnc',1,0,'',6,0,0),(1944,501,20,6,0,'82.61.69.224',1131971890,1,0,1,1,1,1,'','Re: chm','[quote=&quot;Maverich&quot;:25kl4dnu]ok, mi va bene anche il chm, a patto che tu abbia qualcosa che documenti il suo uso.[/quote:25kl4dnu]\n\nNo, non ne so niente, mi dispiace.\n\n[quote=&quot;Maverich&quot;:25kl4dnu]Non capisco comunque perchè passare ad un altro formato quando esistono nelle fwh diverse funzioni che gestiscono il vecchio .HLP.[/quote:25kl4dnu]\n\nSemplicemente perché l\'utente temo ormai si aspetti di poter utilizzare il componente standard Document Explorer per consultare la documentazione elettronica.\n\n[quote=&quot;Maverich&quot;:25kl4dnu]Anche Minigui gestisce il formato .HLP, ed è molto meglio documentato delle fwh, che purtroppo dal punto di vista della documentazione sono veramente carenti.[/quote:25kl4dnu]\n\nHo i miei dubbi che la documentazione delle MiniGUI possa essere migliore di quella delle Fivewin che, anche se tutt\'altro che perfetta, viene continuamente aggiornata da oltre dieci anni.\n\nEMG','',0,'gA==','25kl4dnu',1,0,'',6,0,0),(1945,504,3,6,0,'82.61.69.224',1131972020,1,0,1,1,1,1,'','Re: TwBrowse Class Problem.','Try using something like\n\noBrw:nLen = OrdKeyCount()\noBrw:VSetPos( OrdKeyNo() )\noBrw:Refresh()\n\nEMG','',0,'gA==','1pe7gne4',1,0,'',6,0,0),(1946,505,3,247,0,'62.103.64.146',1131972576,1,0,1,1,1,0,'','Re: Public var in Get','[quote=&quot;EnricoMaria&quot;:2xfhtnxu]Use PRIVATE instead of PUBLIC.\n\nEMG[/quote:2xfhtnxu]\n\nthanks Enrico but i put wrong sample .Consider that i want to initialize the variables within another function and get them from another function .The bellow shows the error:\n\n\n#include \"fivewin.ch\"\n\n\nfunction main()\nlocal oDlg,oget,obtn\n\ninitv1()\n\ndefine dialog odlg ;\nfrom 0,0 to 200,300 pixel\n\n@ 10,10 get oGet var nn of odlg ;\nsize 50,100 pixel\n\n@ 0,0 button obtn action tt() pixel\n@ 0,120 button obtn action tt2(\"nn\",oDlg:acontrols[1]:value()) pixel\n\nactivate dialog odlg\n\nreturn \"\"\n\n\n\nfunction initv1()\npublic nn:=0\nreturn \"\"\n\n\nfunction initv2()\npublic nn:=\"test\"\nreturn \"\"\n\n\n\n\nfunction tt()\nlocal odlg,oget\n\ninitv2()\ndefine dialog odlg ;\nfrom 10,30 to 200,300 pixel\n\n@ 10,10 get oGet var nn of odlg ;\nsize 50,100 pixel\n\nactivate dialog odlg\nrelease nn\nreturn \"\"','',0,'gA==','2xfhtnxu',1,0,'',247,0,0),(1947,505,3,6,0,'82.61.69.224',1131972846,1,0,1,1,1,1,'','Re: Public var in Get','Sorry, I don\'t understand your sample. Try using LOCALs.\n\nEMG','',0,'gA==','3p5gypux',1,0,'',6,0,0),(1948,505,3,247,0,'62.103.64.146',1131973242,1,0,1,1,1,0,'','Re: Public var in Get','[quote=&quot;EnricoMaria&quot;:33xmfirz]Sorry, I don\'t understand your sample. Try using LOCALs.\n\nEMG[/quote:33xmfirz]\n\nImagine that you open a dbf and assign the fields to public variables(fitrst function), then draw the dialog with the gets (second function) and get the values of the variables at the end of dialog (third function). BUT inside the dialog i have a nested dialog with the same structure (function first,second,third).That is why i have to use public variables and that it why i have the problem when i release variables that exists in another dialog.','',0,'gA==','33xmfirz',1,0,'',247,0,0),(1949,506,19,26,0,'195.210.233.228',1131977769,1,0,1,1,1,1,'','Windows 1.0 Programming','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.charlespetzold.com/etc/Windows1/index.html#0511111036\">http://www.charlespetzold.com/etc/Windo ... 0511111036</a><!-- m -->\n\nCheers, Roman','',0,'gA==','23zvz2hg',1,0,'',26,0,0),(1950,507,6,28,0,'87.223.149.216',1131978758,1,0,1,1,1,0,'','OSend','Hola. \n\n¿me sabeis decir porque esto no funciona en FW y xHarbour?\n\nOSend( Self, \"_\" + cData, ARead( cBuffer ) )\n\nARead recupera un array y cData es el nombre de una data de un objeto.\n\nuna vez realizada esta llamada, la variable del objeto esta vacia cuando el array que devuelve ARead contiene datos.\n\nUn saludo','',0,'gA==','2oy3jeup',1,0,'',28,0,0),(1951,489,4,89,0,'213.21.136.60',1131978865,1,0,1,1,1,0,'','','Hello Jose\n\nI suggest you use palm with intergrated scanner. \n(I use <!-- m --><a class=\"postlink\" href=\"http://na.psc.com/html/f4220.htm\">http://na.psc.com/html/f4220.htm</a><!-- m --> )\nThey work very well and you d\'ont need to write any cose, \nas it is automatic.\nIhave had negative experiences with external scanner \n\nRegards Maurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'gA==','2rw6g7og',1,0,'',89,0,0),(1952,406,2,37,0,'200.121.242.136',1131980953,1,0,1,1,1,0,'','','Rramonell\n\nSolo comentarte que nosotros hemos pasado 3 aplicaciones con muy pequeños cambios a FWH con (x)Harbour y funcionan Ok, basta con que veas la lista de FWH Vs la de FW-Clipper y por el movimiento te daras cuenta que hay mucha gente ya trabajando en 32 bits, animate\nY solo como sugerencia, deja tu carpeta actual de Clipper-Fw como esta y trabaja en una nueva.\nExiste un utilitario de compilacion y enlazado en 32 bits que se llama Verce esta en su version 4.2 y es muy bueno este es el Link\n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\nSaludos y suerte !!!\n\nEnrrique Vertiz','',0,'gA==','39l1ah2b',1,0,'',37,0,0),(1953,489,4,150,0,'62.14.48.66',1131982267,1,0,1,1,1,1,'','','Hello Maurizio.\n\nI have a Symbol 8800 pda with integrated scanner. I can configure it to remain active all the time but the seller told me that was better, for saving battery, to activate a de-activate each time we want to scan a codebar. \n\nI will take a look at the web you point because I thing that 1500€ is very expensive.\n\nThanks for your information','',0,'gA==','1xrnlulz',1,0,'',150,0,0),(1954,491,6,36,0,'200.113.56.235',1131982410,1,0,0,0,1,0,'','','Cual el el error que te produce, si colocas un ejemplo a lo mejor te podemos ayudar\n\nSaludos\nPatricio','',0,'gA==','2tgzdxqu',1,0,'',36,0,0),(1955,508,6,23,0,'80.58.44.235',1131983172,1,0,1,1,1,1,'','Genlabel de Bingen','Hola foro!!\nDesde hace mucho tiempo usaba en clipper+fivewin un aporte fabuloso para imprimir etiquetas que realizó el amigo Bingen y ahora al portar mi código a harbour+fwh, el problema que tengo es que las etiquetas se ven \"comprimidas\" o \"machacadas\" no se muy bien como explicarlo, el tema es que no salen ni por asomo parecidas. El mismo código pero en clipper+fw funciona bien.\nPresupongo que será por las EMF de harbour+fwh pero no lo tengo claro.\nAlguien sabe alguna solución que no me suponga cambiar el sistema de etiquetado que vengo usando??\n\nGracias.','',0,'gA==','2dg80dcp',1,0,'',23,0,0),(1956,241,2,92,0,'62.151.116.55',1131983557,1,0,1,1,1,0,'','Re: antonio, creo que fue un error cambiar las new, aqui no.','[quote=&quot;Manuel Valdenebro&quot;:3w0wcugg]\nPor cierto Antonio, ¿de quien es el ojo que aparece arriba en la pantalla?.\n[/quote:3w0wcugg]\n\nSerá de Gran Hermano?  ja, ja, ja, ja\n\nSaludos a todos.','',0,'gA==','3w0wcugg',1,0,'',92,0,0),(1957,507,6,28,0,'87.223.149.216',1131983569,1,0,1,1,1,0,'','OSend','Hola\n\nSi funciona.\n\nGracias de todas formas','',0,'gA==','1oksqdat',1,0,'',28,0,0),(1958,492,6,106,0,'85.34.123.172',1131984384,1,0,1,1,1,0,'','','[quote:1uwvpqjn]Mira con exactitud no te sabria decir que uses si .rc o .dll creo que cada .rc te permite 256 recursos, y que yo sepa no puedes tener mas de .rc para tu programa,(si alguien sabe como que se pase el tip) y en cuanto a enlazar 2 prg te recomiendo que uses VerCe esta muy facil y en español, configuras tu compilador si es harbour ó xharbour, indicas los directorios de tus prg las librerias de terceros y listo... \nque de donde lo descargas? <!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/\">http://www.esm.com.mx/fivewin/</a><!-- m --> \nsalu2 \nPaco[/quote:1uwvpqjn]\n\nMira, yo uso varios .rc en mi programa y funciona, uso xMate y basta agregar todos tus .rc en el mismo lugar donde agregas los .prg y no tienes que hacer mas nada ni llamar cada .rc ni hacer nada en especial, se cargan todos siempre.\n\nPedro Gonzalez\nSavona - Italia','',0,'gA==','1uwvpqjn',1,0,'',106,0,0),(1959,492,6,23,0,'80.58.44.235',1131985943,1,0,1,1,1,1,'','','No conozco límite para la cantidad de ficheros RC que puedes meter en tu programa, claro que yo no uso ningún \"maker\" o programa para compilado. De hecho sigo funcionando con los .BAT de toda la vida.','',0,'gA==','3ssnseak',1,0,'',23,0,0),(1960,500,6,251,0,'200.93.60.125',1131987973,1,0,1,1,1,0,'','Funciono pero...?','[quote=&quot;RF&quot;:21752cwc]hummmm.... estas usando Controles de Borland.....\n\nConsejo.... quita los contorles de Borland, hay una forma de hacerlos funcionar con FWH, pero lo mejor es pasar ya definitivamente de ellos por la falta de compatibilidad que tienen con los controles estandares de windows.[/quote:21752cwc]\n\nlisto, gracias Rene, lo que hize fue buscar en el foro y acomode lo del windowsxp.teh....  que va en el rc, porque workshop no veia nombres largos, y pude abrir el rc, mi duda es:\n\ncuando se que los controles son de borland y cuando no lo son?\n\nDomenico Gracias.','',0,'gA==','21752cwc',1,0,'',251,0,0),(1961,509,6,23,0,'80.58.44.235',1131989372,1,0,1,1,1,1,'','Captura de fecha','Hola foro, de nuevo incordiando.\nVeréis, una cosita que en clipper+fw no me pasaba y que ahora si, es que cuando se introduce una fecha errónea en un get tipo DATE, el sistema, deja la fecha en blanco y salta al siguiente campo.\nEl tema es que debería quedarse el get en el mismo campo y no pasar al siguiente.\nSe puede evitar esto?\nGracias.','',0,'gA==','3bycxkkg',1,0,'',23,0,0),(1962,510,1,285,0,'200.45.71.37',1131989438,1,0,1,1,1,0,'','Ultilprn / Timprime?','Estimados colegas, quien puede enviarme la ultima actualizacion de Utilprn Iimprime.\n\nMuchas Gracias\n\nLeonardo G. Olexyn','',0,'gA==','813d6grv',1,0,'',285,0,0),(1963,511,3,35,0,'167.7.140.254',1131990198,1,0,1,1,1,0,'','Wish List for FW naitive Twbrowse class ( antonio )','Antonio ..... and All\n\nThere are a couple of very useful additions and two new methods I would ( really ) like to see added to the naitive FW source for Twbrowse ( wbrowse.prg )\n\n1) Within the Setfilter() method .. add tuning for RDD\'s like ADS and DBFCDX to use OrdKeyCount() and OrdKeyNo()  instead of RecCount()\n\n2) Add a new method GoToCol( n ) .. \n\n3) nFreeze( n ) .. freeze columns from N\n\nThe reason I am asking is two-fold. YES I know xBrowse has some of the above features ( nFreeze ) and Hernan\'s replacement Twbrowse has all three .. however, none of the above have all three or can be re-compiled to use MSVC as defaults. \n\nAntonio .. I know you are a busy man but I would really appreciate you looking at adding the above naitive method support to your class.  I could probably try to modify your existing class, but that means modifying each new version as you release your FTDN.\n\nI am poised to make the jump to 64 bit and MSVC .. I just can not get there because of the above drawbacks  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','1wl7bvck',1,0,'',35,0,0),(1964,512,2,242,0,'81.45.227.110',1131990943,1,0,1,1,1,0,'','No me funciona un VALID con decimales.','Hola a todos.\n\nEstoy teniendo problemas al validar un get en el cual capturo un valor numerico con decimales (@E 999,999.99). En dicho get, despues de capturar el valor lo comparo con el valor del campo almacenado en la base de datos (que tiene exactamente la misma cantidad de enteros y decimales que el campo que capturo). Por ejemplo, si le doy 48,21 y el campo de la base de datos contiene también 48,21 me da falso. ¿Es que tengo acaso que formatear el dato de alguna manera para poder compararlo? Es de lo más extraño.\n\nGracias por adelantado y un saludo.\nFernando Morales del Rosario','',0,'gA==','2n1g3wwn',1,0,'',242,0,0),(1965,513,19,141,0,'200.88.94.213',1131992492,1,0,1,1,1,1,'','Fax2email','¿Hay alguien que sepa donde se consigue un sistema que permita recibir fax y \n\"transitarlos\" a email?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  Se trataría para manejar muchas cuentas\n\nSe que este servicio existe gratis y en internet, pero mi interes es de \ninstalarlo localmente en mi pais (vivo en República Dominicana).','',0,'gA==','2imddrim',1,0,'',141,0,0),(1966,472,6,107,0,'80.58.24.42',1131995915,1,0,1,1,1,0,'','','Gracias voy a probar\n\nUn saludo','',0,'gA==','q6ky5g00',1,0,'',107,0,0),(1967,513,19,26,0,'86.61.13.178',1131997580,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.flashdlt.com/efaxy/\">http://www.flashdlt.com/efaxy/</a><!-- m -->\n\nHTH, Roman','',0,'gA==','27becind',1,0,'',26,0,0),(1968,481,1,204,0,'87.202.111.109',1131999961,1,0,1,1,1,0,'','','Yes Clipper dose support Greek on a DOS level.\nAs for FWH/xH let me port my app to FW first and then see about them','',0,'gA==','1z41hzaf',1,0,'',204,0,0),(1969,512,2,138,0,'201.128.111.75',1132000860,1,0,1,1,1,1,'','','Nuncamente mi estimado Fer.\n\nAcuerdate que en todos los lenguajes que manejen procesador de punto flotante la comparacion numerica nunca es exacta.\n\nSolucion: convierte a cadenas de caracteres AMBOS valores y luego realiza la comparacion\n\nSTR(valor,2) == STR(campo,2)','',0,'gA==','31llgygu',1,0,'',138,0,0),(1970,514,6,52,0,'201.231.14.50',1132003469,1,0,1,1,1,1,'','funciones en c','estimados: donde estan las listas de las funciones tales como hb_retni() que se utilizan en c? es para verlas\n\notra cosa:\n\n   MessageBox(0, \"Se comienza la ejecución \", \"Atención...\", MB_OK);\n\nsi quiero que donde dice \"se comienza la ejecución\" aparezca la cantidad de parametros pasados a la funcion cómo tengo que hacer?\n\ngracias.','',0,'gA==','8qa09j1b',1,0,'',52,0,0),(1971,514,6,138,0,'201.128.111.75',1132013165,1,0,1,1,1,1,'','Re: funciones en c','[quote=&quot;goosfancito&quot;:3ac0eb0j]estimados: donde estan las listas de las funciones tales como hb_retni() que se utilizan en c? es para verlas ^quote]\n\nEstan documentadas en el manual de Clipper, busca \"Sistema Extendido\", si no tienes los manuales de Clipper puedes utilizar las guias Norton, ahi vienen tambien o en su defecto date una vuelta por <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.info\">www.xharbour.info</a><!-- w -->.\n\n\n[quote=&quot;goosfancito&quot;:3ac0eb0j]\n   MessageBox(0, \"Se comienza la ejecución \", \"Atención...\", MB_OK);\n\nsi quiero que donde dice \"se comienza la ejecución\" aparezca la cantidad de parametros pasados a la funcion cómo tengo que hacer?\n\ngracias.[/quote:3ac0eb0j][/quote:3ac0eb0j]\n\nA que funcion te refieres ? ah MessageBox ???, si es asi, eso no se puede saber hasta que llegas la funcion MssageBox y luego con la funcion PCOUNT()','',0,'gA==','3ac0eb0j',1,0,'',138,0,0),(1972,509,6,72,0,'201.135.231.144',1132014387,1,0,1,1,1,0,'','','Para reforzar este probema, no creo que seamos los únicos o tal vez ya plantearon pregunta y repuesta. \n\nHabrá alguien que nos ilumine?!\n\nGracias.','',0,'gA==','2h96kq3j',1,0,'',72,0,0),(1973,514,6,52,0,'201.231.14.50',1132016180,1,0,1,1,1,1,'','Re: funciones en c','AMigo:\nSupongamos esta función:\n\nHB_FUNC ( REQUERIR ){\n\n   MessageBox(0, XXXX, \"Atención...\", MB_OK);\n\n}\n\n--------------------------\nEntonces: quiero que donde puse XXXX pueda mostrar la cantidad de parámetros se paso a la fucion REQUERIR\nEspero haberme hecho entender.\ngracias\n---------------------\n\n[quote=&quot;RF&quot;:31i5tndy][quote=&quot;goosfancito&quot;:31i5tndy]estimados: donde estan las listas de las funciones tales como hb_retni() que se utilizan en c? es para verlas ^quote]\n\nEstan documentadas en el manual de Clipper, busca \"Sistema Extendido\", si no tienes los manuales de Clipper puedes utilizar las guias Norton, ahi vienen tambien o en su defecto date una vuelta por <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.info\">www.xharbour.info</a><!-- w -->.\n\n\n[quote=&quot;goosfancito&quot;:31i5tndy]\n   MessageBox(0, \"Se comienza la ejecución \", \"Atención...\", MB_OK);\n\nsi quiero que donde dice \"se comienza la ejecución\" aparezca la cantidad de parametros pasados a la funcion cómo tengo que hacer?\n\ngracias.[/quote:31i5tndy]\n\nA que funcion te refieres ? ah MessageBox ???, si es asi, eso no se puede saber hasta que llegas la funcion MssageBox y luego con la funcion PCOUNT()[/quote:31i5tndy][/quote:31i5tndy]','',0,'gA==','31i5tndy',1,0,'',52,0,0),(1974,509,6,72,0,'201.135.231.144',1132023776,1,0,1,1,1,0,'','','Si no es la solución correcta al menos funciona:\n\nMETHOD lValid() CLASS TGet\n\n   local lRet := .t.\n\n   if ::oGet:BadDate\n      ::oGet:Buffer := DtoC(::cOldDate)\n      ::oGet:Assign()\n      ::oGet:KillFocus()\n      ::oGet:SetFocus()\n      MsgBeep()\n      return .f.\n   else\n      if ValType( ::bValid ) == \"B\"\n         lRet := Eval( ::bValid, Self  )\n         if ! lRet\n            ::oWnd:nLastKey = 0\n         endif\n      endif\n   endif\n\nreturn lRet\n\nSaludos.','',0,'gA==','2983t863',1,0,'',72,0,0),(1975,504,3,160,0,'210.212.142.6',1132030712,1,0,1,1,1,0,'','Re: TwBrowse Class Problem.','[quote=&quot;EnricoMaria&quot;:2w6ljhmt]Try using something like\n\noBrw:nLen = OrdKeyCount()\noBrw:VSetPos( OrdKeyNo() )\noBrw:Refresh()\n\nEMG[/quote:2w6ljhmt]\n\nDear Enrico,\n\nYes it did solve the problem.\n\nMilan.','',0,'gA==','2w6ljhmt',1,0,'',160,0,0),(1976,515,3,76,0,'80.17.137.201',1132042229,1,0,1,1,1,1,'','HELP functions','I would like to have some samples on using help functions, like accessing to .HLP subchapters, or searching by hotword.\nHow is it possible to have a context sensitive help (a different help for every get)?\n\nregards','',0,'gA==','3dcipgpp',1,0,'',76,0,0),(1977,498,3,2,0,'80.58.2.107',1132042405,1,0,1,1,1,1,'','','Eduardo,\n\nYou may use &lt;oFolder&gt;:SetOption( &lt;nOption&gt; )','',0,'gA==','2bi1yqao',1,0,'',2,0,0),(1978,512,2,242,0,'81.45.227.110',1132044171,1,0,1,1,1,0,'','Solucionado.','Ha funcionado perfectamente, aunque de la manera str( nValor, 9, 2 ).\n\nGracias y un saludo.\nFernando Morales del Rosario','',0,'gA==','x4ts87ar',1,0,'',242,0,0),(1979,516,3,160,0,'210.212.142.6',1132049459,1,0,1,1,1,0,'','Is it still required to destroy Font object ?','Hi,\n\nIs it still required to destroy Font object to release memory occupied by it ? I am using Jun-2005 build.\n\nTIA\nMilan.','',0,'gA==','27h20nlb',1,0,'',160,0,0),(1980,517,3,160,0,'210.212.142.6',1132049708,1,0,1,1,1,0,'','Incremental Search in TwBrowse (Standard)','Hi,\n\nHow to pvovide incremental search in TwBrowse. Someone must have done it. I tried to achieve same using DBCOMBO box. But it seems to be not working properly.\n\nAny sample / guidance will be highly appreciated.\n\nMilan.','',0,'gA==','3g2zf0p3',1,0,'',160,0,0),(1981,516,3,6,0,'87.6.210.89',1132053076,1,0,1,1,1,1,'','Re: Is it still required to destroy Font object ?','Yes for fonts created by yourself and used \"on the fly\", ie. not assigned to any controls.\n\nEMG','',0,'gA==','2i0yu3xx',1,0,'',6,0,0),(1982,518,4,133,0,'80.176.234.174',1132055594,1,0,1,1,1,0,'','Command Line Activation Of Explorer To &quot;Mobile Device&q','I create data transfer files using FWPPC and then want to transfer a folder from the Pocket PC to my clients network simply using \'Cut/Paste\' or a drag.\n\nTo make it simple I want to open explorer from my application and have the required folder on the PPC already selected ready for a right click and copy.\n\nIf possible could anyone help me with the command line syntax to launch explorer to a folder on the PPC e.g.\n[code:3vtnqh5r]\n &quot;explorer /n, /e, /select, \\Mobile Device\\My Pocket PC\\Program Files\\My Application\\&lt;Data Folder&gt;&quot; [/code:3vtnqh5r]\nGetting to \"My Computer\" and seeing the Mobile Device icon is easy but I want to avoid any possibility of missing the data folder on the PPC.','',0,'AIA=','3vtnqh5r',1,0,'',133,0,0),(1983,203,4,133,0,'80.176.234.174',1132056030,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:38k946cm]GWard,\n\nOur friend Hernan has a browse for FiveWin which has what you need. We may try to port it to FWPPC. We may need several days.[/quote:38k946cm]\n\nAntonio,\n\nSorry to press you on this but any news on MULTISELECT.\n\nThis feature could form an essential part of an application I am developing with FWPPC.','',0,'gA==','38k946cm',1,0,'',133,0,0),(1984,519,3,287,0,'81.41.158.27',1132061279,1,0,1,1,1,0,'','error fwh/3 created dialog error','please necesito ayudita no se por que pero ahora no me carga los recursos de tipo dialog, ya sean en dll32 o en fichero rc compilado con el programa\n\n\nlib fwh2.4 y bcc55, \n\ngracias','',0,'gA==','1a4zt2f5',1,0,'',287,0,0),(1985,203,4,2,0,'80.58.2.107',1132062927,1,0,1,1,1,1,'','','GWard,\n\nWe may provide an answer in a day or two.','',0,'gA==','uigdg8w0',1,0,'',2,0,0),(1986,520,3,288,0,'62.180.26.189',1132063079,1,0,1,1,1,0,'','What was the last new class with fivewin ???','What was the last new class programmed from Fivetech ??','',0,'gA==','u3krexuw',1,0,'',288,0,0),(1987,203,4,133,0,'80.176.234.174',1132064075,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:37ib67o2]GWard,\n\nWe may provide an answer in a day or two.[/quote:37ib67o2]\n\nAntonio,\n\nMany thanks!!\n\nCustomers *very* impressed.','',0,'gA==','37ib67o2',1,0,'',133,0,0),(1988,509,6,23,0,'85.60.12.95',1132064378,1,0,1,1,1,1,'','','¿Qué valor debería tomar ::coldDate?, ya que no existe esa DATA en la clase get que yo tengo.\n\nGracias.','',0,'gA==','2uui9z0a',1,0,'',23,0,0),(1989,509,6,23,0,'85.60.12.95',1132064678,1,0,1,1,1,1,'','','Iniciando ::cOldDate a una fecha válida, sigue saltando el foco del get de la fecha al siguiente.','',0,'gA==','1goxowj2',1,0,'',23,0,0),(1990,449,3,190,0,'202.65.134.22',1132066820,1,0,1,1,1,0,'','','Thanks to Mr.Enrico and RF.  \n\nYou have suggested the right and easiest way to implement barcode reading. \n\nNow I am now comfortable in implementing the barcodes in FWH.\n\n- Ramesh Babu P','',0,'gA==','6y0uh27n',1,0,'',190,0,0),(1991,509,6,53,0,'200.66.175.188',1132067531,1,0,1,1,1,0,'','Sí funciona','Angel yAlfredo:\n\nCon Harbour .44 y FWH 2.5  March 2005, la validación sí se efectua,\nhe tratado de meter 30/02/2005  y no sale del get.\n\nOjo, es con get no con Datepicker.\n\nSaludos, Armando','',0,'gA==','31ekp8q7',1,0,'',53,0,0),(1992,509,6,72,0,'201.135.231.144',1132069122,1,0,1,1,1,0,'','','Lo que hice fue agregar el DATA cOldDate y en el método GotFocus() inicializarla a ::cOldDate := ::oGet:Original de esta forma al detectar una fecha no válida la restablece a su valor original (y no permite el avance).','',0,'gA==','3gm2narl',1,0,'',72,0,0),(1993,346,2,237,0,'200.68.70.89',1132070951,1,0,1,1,1,0,'','Que inteligente...','Que suerte que tengo, no puedo solucionar mis problemas y\nademás tengo que aguantar a un gracioso... \nEste foro tiene mucho futuro...\n\nAlejandro Cebolido','',0,'gA==','mb9ogptk',1,0,'',237,0,0),(1994,521,6,97,0,'200.33.72.30',1132072686,1,0,1,1,1,1,'','porque los checkbox y twbrwose falla en fwh','Porque con los checkbox, twbrwose, dbcombobox  en fwh marca error y no puede crear las cajas de dialogo, que hay que hacer para cambiar a fwh todo los dialogoso que se tienen creados.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'gA==','kx7vq617',1,0,'',97,0,0),(1995,293,1,190,0,'202.65.134.22',1132072762,1,0,1,1,1,0,'','','Hi Masita\n\nI use InCd which comes alongwith Nero burning software to manage \nbackups to CD,  just with copy or delete commands from command prompt or from FWH, simply the way we copy files from one drive to another drive.  But it is possible only on Re-writable  and formated CDs.  You can format a blank Re-writable CD using InCd itself for the first time and next time onwards you can manage your files on to CD using simple\nDOS Commands.\n\n- Ramesh Babu','',0,'gA==','h684jvi8',1,0,'',190,0,0),(1996,491,6,97,0,'200.33.72.30',1132073117,1,0,1,1,1,1,'','Este es ejemplo donde lo uso.','Function ManArticul( nEvent, oTbM , oDb)\nlocal oDlg\nlocal cTBaja   := \"ESTA DE ALTA\"\nlocal lSave    := .f.\nLocal NumArt :=Space(6)\nLocal NomArt :=Space(40)\nLocal GruArt :=space(45)\nLocal SubgArt:=space(40)\nLocal UniArt :=Space(30)\nLocal Costo  :=0\nLocal PVenta :=0\nLocal Existen:=0\nLocal TIVA   :=0\nLocal TIEPS  :=0\nLocal Exento :=0\nLocal TCero  :=0\nLocal Clase  :=0\nLocal oTbGpos,oTbUni,oTbSGpos,oTbCla\nLocal lExento,LTCero:=.f.\nLocal oDbGrupos\nLocal oGetUni, oGetGrupos, oGetSubG, oGet\n\nlocal nRecNo := oTbM:RecNo()\nif nEvent == ID_AMOD\n   NumArt :=oTbM:xFieldGet(1 )\n   NomArt :=oTbM:xFieldGet( 2 )\n   GruArt :=oTbM:xFieldGet(3)\n   SubGArt:=oTbM:xFieldGet(4)\n   UniArt :=oTbM:xFieldGet(5)\n   Costo  :=oTbM:xFieldGet(6)\n   PVenta :=oTbM:xFieldGet(7)\n   Existen:=oTbM:xFieldGet(8)\n   TIva   :=oTbM:xFieldGet(9)\n   TIEPS  :=oTbM:xFieldGet(10)\n   Exento :=oTbM:xFieldGet(11)\n   TCero  :=oTbM:xFieldGet(12)\n   Clase  :=oTbM:xFieldGet(13)\nendif\n\n\nif oDb:Used()\n\n   DEFINE TABLE oTbGpos NAME \"grupos\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbGpos\n   if oTbGpos:lOpened\n     if oTbGpos:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbGpos:cName, MyDbStruct( oTbGpos:hResult ) )\n        DbUseArea( .t.,\"DBFCDX\", oTbGpos:cName, \"GRUPOS\" )\n        DbCreateIndex(\"grupos\",\"numgpo\")\n        nFldCount := oTbGpos:FieldCount()\n	oTbGpos:GoTop()\n	ns := Seconds()\n	while oTbGpos:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbGpos:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n//        DATABASE oDbGrupos\n     else\n        MsgAlert(\"La Tabla de Grupos esta vacia\")\n        return(.t.)\n     endif\n   else\n     msgAlert(\"La Tabla de grupos no esta abirta\")\n     return(.t.)\n   endif\n\n   DEFINE TABLE oTbSGpos NAME \"subgrupos\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbSGpos\n   if oTbSGpos:lOpened\n     if oTbSGpos:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbSGpos:cName, MyDbStruct( oTbSGpos:hResult ) )\n        DbUseArea( .t.,, oTbSGpos:cName,\"SubGrupos\" )\n        DbCreateIndex(\"subgrupos\",\"numsubgpo\")\n        nFldCount := oTbSGpos:FieldCount()\n	oTbSGpos:GoTop()\n	ns := Seconds()\n	while oTbSGpos:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbSGpos:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n	DATABASE oDbSGrupos\n     else\n        MsgAlert(\"La Tabla de Sub Grupos esta vacia\")\n        return(.t.)\n     endif\n   else\n     msgAlert(\"La Tabla de Sub grupos no esta abirta\")\n     return(.t.)\n   endif\n\n\n\n   DEFINE TABLE oTbUni NAME \"unimedidas\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbUni\n   if oTbUni:lOpened\n     if oTbUni:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbUni:cName, MyDbStruct( oTbUni:hResult ) )\n        DbUseArea( .t.,, oTbUni:cName ,\"unidades\")\n        DbCreateIndex(\"unidades\",\"numuni\")\n        nFldCount := oTbUni:FieldCount()\n	oTbUni:GoTop()\n	ns := Seconds()\n	while oTbUni:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbUni:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n        DATABASE oDbUniMed\n     else\n        MsgAlert(\"La Tabla de Unidades esta vacia\")\n        return(.t.)\n     endif\n   else\n     msgAlert(\"La Tabla de Unidades no esta abirta\")\n     return(.t.)\n   endif\n\n\n   DEFINE TABLE oTbCla NAME \"clases\" DATAFIELD ;\n          ORDER BY 1;\n	  OF oDb\n\n   OPEN TABLE oTbCla\n   if oTbCla:lOpened\n     if oTbCla:RecCount() &gt; 0\n//        oTbGpos:Read()\n        DbCreate( oTbCla:cName, MyDbStruct( oTbCla:hResult ) )\n        DbUseArea( .t.,, oTbCla:cName, \"clases\" )\n        DbCreateIndex(\"clases\",\"clase\")\n\n        nFldCount := oTbCla:FieldCount()\n	oTbCla:GoTop()\n	ns := Seconds()\n	while oTbCla:FetchRow() // Salta, hace el read pero no controla registro ni pone el eof\n				// @ 10, 10 SAY \"Tratando registro: \" + AllTrim( str( ++i ) ) // El pintado es una perdida de tiempo pero entretiene <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n		DbAppend()\n		FOR n := 1 TO nFldCount\n   		    FieldPut( n, oTbCla:xFieldGet( n ) )\n		NEXT\n	end\n	DbCommit()\n	DbGoTop()\n        DATABASE oDbClase\n     else\n        MsgAlert(\"La Tabla de Clasificacion esta vacia\")\n        return(.t.)\n     endif\n\n   else\n     msgAlert(\"La Tabla de Clasificaion no esta abirta\")\n     return(.t.)\n   endif\n\n\n\nelse\n  MsgAlert(\"No esta en uso la base de datos de comandas\")\nendif\n\nMSGINFO( GRUPOS-&gt;NOMGPO)\n\nDEFINE DIALOG oDlg RESOURCE \"DLGART\" TITLE \"Mantenimiento de Articulos / \" + ;\n        if( nEvent == ID_AALT, \"Altas\", \"Modificaciones\" )\n\n\n        REDEFINE GET NumArt       ID 101 PICTURE \"@K!\" WHEN nEvent==ID_AALT ;\n                 OF oDlg\n\n        REDEFINE GET NomArt       ID 102 PICTURE \"@K!\" OF oDlg\n\n/*\n  REDEFINE BTNGET oGet VAR GruArt ID 103  RESOURCE \"combo\" ACTION ( SelGrupo( oGet , 200 , 200 ) ,  oGet:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbGrupos:Seek( GruArt ) .and. !empty( GruArt ) , ( oDbGrupos:Load(), .t.) , ;\n                 ( MsgInfo( \"El Grupo \" + AllTrim( GruArt ) + ;\n                    \" no existe\" ), .f. ))) OF oDlg  UPDATE\n*/\n  REDEFINE BTNGET oGetSubg VAR SubGArt ID 104  RESOURCE \"combo\" ACTION ( SelSubGrupo( oGetSubG , 200 , 200 ) ,  oGetSubG:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbSGrupos:Seek( SubGArt ) .and. !empty( SUbGArt ) , ( oDbSGrupos:Load(), .t.) , ;\n                 ( MsgInfo( \"El Sub Grupo \" + AllTrim( SUbGArt ) + ;\n                    \" no existe\" ), .f. ))) OF oDlg  UPDATE\n\n  REDEFINE BTNGET oGetUni VAR UniArt ID 105  RESOURCE \"combo\" ACTION ( SelUnidad( oGetUni , 200 , 200 ) ,  oGetUni:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbUniMed:Seek( UniArt ) .and. !empty( UniArt ) , ( oDbUniMed:Load(), .t.) , ;\n                 ( MsgInfo( \"La Unidad de Medida\" + AllTrim( UniArt ) + ;\n                  \" no existe\" ), .f. ))) OF oDlg  UPDATE\n\n  REDEFINE BTNGET oGetCla VAR Clase ID 112 RESOURCE \"combo\" ACTION ( SelClase( oGetCla , 200 , 200 ) ,  oGetCla:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbClase:Seek( Clase ) .and. !empty( Clase ) , ( oDbClase:Load(), .t.) , ;\n                 ( MsgInfo( \"La clase \" + AllTrim( Clase ) + ;\n                 \" no existe\" ), .f. ))) OF oDlg  UPDATE\n\n\n        REDEFINE DBCOMBO oGetArt VAR GruArt  ID 103  OF oDLG;\n             ALIAS \"GRUPOS\" ITEMFIELD \"NUMGPO\" LISTFIELD \"NOMGPO\"\n/*\n        REDEFINE DBCOMBO  SubGArt ID 104  OF oDLG;\n             ALIAS \"subgrupos\" ITEMFIELD \"NumSubGpo\" LISTFIELD \"NomSubGpo\"\n\n        REDEFINE DBCOMBO  UniArt  ID 105  OF oDLG;\n             ALIAS \"unidades\" ITEMFIELD \"NumUni\" LISTFIELD \"NomUni\"\n\n        REDEFINE DBCOMBO  Clase   ID 112  OF oDLG;\n             ALIAS \"Clases\" ITEMFIELD \"Clase\" LISTFIELD \"NomCla\"\n*/\n        REDEFINE GET Costo    ID 106 PICTURE \"9,999.99\" OF oDlg\n        REDEFINE GET PVenta   ID 107 PICTURE \"9,999.99\" OF oDlg\n        REDEFINE GET TIva     ID 108 PICTURE \"99.99\" OF oDlg\n        REDEFINE GET TIEPS    ID 110 PICTURE \"99.99\" OF oDlg\n\n        REDEFINE RADIO oExento  VAR Exento ID 109 ,111  OF oDlg WHEN TIva = 0\n\n        REDEFINE BUTTON ID 201 OF oDlg ACTION ( lSave := .t. , DbCloseAll() , oDlg:End())\n        REDEFINE BUTTON ID 299 OF oDlg ACTION ( lSave := .f. , DbCloseAll() , oDlg:End())\n\nACTIVATE DIALOG oDlg CENTER\n\nif lSave\n   if Exento = 2\n      TCero =1\n   else\n      TCero =0\n   endif\n\n   if TIva &gt;0\n      TCero=0\n      Exento=0\n   endif\n\n   if nEvent= ID_AALT\n      SqlStm=\"INSERT INTO articul ( NUMART , NOMBRE , NUMGPO, SUBGPO , NUMUNI , COSTO , PREVTA ,  TASAIVA ,TASAIEPS, EXENTO, TASACERO, CLASE , numcia ) VALUES( \"\n      SqlStm=SqlStm+\"\'\"+alltrim(NumArt)+\"\',\'\"+alltrim(NomArt)+\"\',\'\"+alltrim(GruArt)+\"\',\'\"+alltrim(SubgArt)+\"\',\'\"+alltrim(UniArt)+\"\',\'\"+alltrim(Str(Costo))+\"\',\'\"+alltrim(Str(PVenta))+\"\',\'\"+alltrim(Str(TIva))+\"\',\'\"+alltrim(Str(TIEPS))+\"\',\'\"+alltrim(Str(Exento))+\"\',\'\"+alltrim(Str(TCero))+\"\',\'\"+alltrim(Clase)+\"\',\'\"+  alltrim(Str(LnEmp))+\"\'\"+\")\"\n      oTbM:ExecSql( SqlStm )\n      oTbM:Last():Read()\n   else\n      SqlStm=\"UPDATE articul SET NOMBRE=\"+\"\'\"+alltrim(NomArt)+\"\',NUMGPO=\'\"+alltrim( GruArt )+\"\', SUBGPO=\'\"+alltrim( SubgArt)+\"\',NUMUNI=\'\"+alltrim( UniArt )+\"\',COSTO=\'\"+alltrim( Str(Costo))+\"\',PREVTA=\'\"+alltrim( Str(PVenta))+\"\',TASAIVA=\'\"+alltrim( Str(TIva))+\"\',TASAIEPS=\'\"+alltrim( Str(TIEPS))+\"\',EXENTO=\'\"+alltrim( Str(Exento))+\"\',TASACERO=\'\"+alltrim( Str(TCero))   +\"\',numcia=\'\"+alltrim( str(LnEmp))+\"\'\"+\"  WHERE NUMART=\'\"+alltrim(NumArt)+\"\'\"\n      oTbM:ExecSql( SqlStm )\n      oTbM:Last():Read()\n   endif\nendif\n\n\nreturn( nil )','',0,'gA==','unhbs7o4',1,0,'',97,0,0),(1997,522,6,97,0,'200.33.72.30',1132073615,1,0,1,1,1,1,'','ODbc  en listbox no me presenta datos','Hola a todos, estoy haciendo pruebas con odbc en fwh2.4 pero al hacer el lisbox no me presenta ninguna informacion.\n\n*-----------------------------------------------------------------\nFUNCTION BrwEmpresas(oWnd ,oODbc )\nLOCAL oDlg,oDlgCtrlCat,oGRID,oFontBrw,oLBX,oParMulti\nlocal aObj := {}\nLocal oTb\nLocal oBAltas,oBModificar,oBBorrar, oBSeleccion,obSalir\nLocal lNEmp\n\n\noTb := TDbOdbc():New( \"empresas\", oODbc)\n//oTb := TRecordSet():New(oOdbc,,\"Empresas\")\noInspect( oTb)\n\nDEFINE FONT oFontBrw Name \"Ms Sans Serif\" SIZE 0,-11\n\n\nDEFINE DIALOG oDlg RESOURCE \"DLGMANDB\" FONT oFontBrw\n\n\n\n  REDEFINE LISTBOX oLbx ;\n           FIELDS  oTb:FieldGet(1)   ,;// Campos que contendr \n                   oTb:FieldGet( 2 ) ,;     // el TBrowse.\n                   oTb:FieldGet( 3 ) , ;\n                   otb:FieldGet( 8 )   ;\n                   ID 101;\n                   FIELDSIZES 50, 310, 250, 150, 100;     // Dimensiones de c/campo (en pixeles)\n                   HEADERS \"Empresa\", \"Nombre de la Empresas\", \"Direccion de la Empresa\", \"R.F.C.\";\n		   FONT oFontBrw ;\n                   ON LEFT DBLCLICK AltasCias( oLbx, .f., oTb) ;\n                   OF oDlg\n\n              oLbx:bKeyDown := {|nKey| iif(nKey==13 .OR. nKey==32, (SelEmpresa( oWnd, oTb  ),oTb:Destroy() ,oDlg:End()) , ) }\n\n//              oTb:SetBrowse( oLbx , .f.)\n 	      oLbx:Refresh()\n	      oLbx:lCellStyle := .T. // Solo para FW 2.00 ¢ superior\n   	      oLbx:nLineStyle := 3 // Solo para FW 2.00 ¢ superior\n\n\n   REDEFINE BUTTON oBAltas ID 202 OF oDlg ;\n            ACTION (AltasCias( ID_AALT, oTb ) ,SelEmpresa(oWnd, oTb), oLbx:Refresh() , oTb:Close()  ,oDlg:End() , SysRefresh() )\n\n   REDEFINE BUTTON oBModificar ID 203 OF oDlg ;\n            ACTION AltasCias( ID_AMOD, oTb )\n\n   REDEFINE BUTTON oBBorrar ID 204 OF oDlg ;\n            ACTION ( if( MsgYesNo( OemToAnsi( ;\n                    \"¨Seguro que quiere borrar la Empresa \" + oTb:nombre ) ), ;\n                    DelCias(ID_BAJ, oTb , \"empresas\" ,  oTb:nombre ) , oTb:refresh()  ) )\n\n   REDEFINE BUTTON oBSeleccion ID 201 OF oDlg ;\n            ACTION (SelEmpresa(oWnd , oTb ), SysRefresh() ,oDlg:End())\n\n   REDEFINE BUTTON oBSalir ID 206 OF oDlg ;\n            ACTION (  oTb:Close(), oDlg:End())\n\n   ACTIVATE DIALOG oDlg CENTER\n   oFontBrw:End()\n\nRETURN( NIL )\n\nsaludos y gracias.','',0,'gA==','1n0shdml',1,0,'',97,0,0),(1998,523,6,53,0,'200.66.175.250',1132080214,1,0,1,1,1,0,'','Conexión a un AS/400','Amigos el foro:\n\nNecesito conectarme a un AS/400-DB2 para obtener\ninformación y crear un fichero en formato TXT, el\nproblema que tengo es ¿ Cómo hacer la conexión ?\nsupongo que vía ODBC pero no tengo la experiencia\nnecesaria.\n\nAlguien que me tire un hilo para poder continuar ?\n\nSaludos','',0,'gA==','1t7cbykj',1,0,'',53,0,0),(1999,524,4,2,0,'80.58.2.107',1132080704,1,0,1,1,1,1,'','Pocket PC serial number','Our FWPPC user Hathal has found the bottom source code to detect the Pocket PC serial number. We have adapted like this, but gives wrong values (warnign: it does not work on the emulator). We leave it here just in case you want to test it or fix it (?):\n\n[code:2xvsw7jp]\n// Serial number\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Serial Nº&quot;\n\n   @ 2, 2 BUTTON &quot;Serial Nº&quot; SIZE 80, 25 ACTION MsgInfo&#40; SerialNumber&#40;&#41; &#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n#pragma BEGINDUMP \n\n#include &lt;hbapi&#46;h&gt; \n#include &lt;windows&#46;h&gt; \n#include &lt;uniqueid&#46;h&gt; \n\nHB_FUNC&#40; SERIALNUMBER &#41; \n&#123; \n	DWORD dwOutBytes;\n	const int nBuffSize = 4096;\n	byte arrOutBuff&#91; nBuffSize &#93;;\n	BOOL bResult = KernelIoControl&#40; IOCTL_HAL_GET_DEVICEID, 0, 0, \n	                                arrOutBuff, nBuffSize, &amp;dwOutBytes&#41;;\n	char strDeviceId&#91; 18 &#93;;\n	char hex&#91; 17 &#93; = &quot;0123456789ABCDEF&quot;;                              \n	                                \n	if&#40; bResult == FALSE &#41;\n	&#123;\n		 hb_retc&#40; &quot;0&quot; &#41;;\n	&#125;\n	else\n	&#123;\n	   strDeviceId&#91; 0 &#93; = hex&#91; arrOutBuff&#91; 40 &#93; &#93;;	\n	   strDeviceId&#91; 1 &#93; = hex&#91; arrOutBuff&#91; 41 &#93; &#93;;	\n\n	   strDeviceId&#91; 2 &#93; = hex&#91; arrOutBuff&#91; 45 &#93; &#93;;	\n	   strDeviceId&#91; 3 &#93; = hex&#91; arrOutBuff&#91; 46 &#93; &#93;;	\n	   strDeviceId&#91; 4 &#93; = hex&#91; arrOutBuff&#91; 47 &#93; &#93;;	\n	   strDeviceId&#91; 5 &#93; = hex&#91; arrOutBuff&#91; 48 &#93; &#93;;	\n	   strDeviceId&#91; 6 &#93; = hex&#91; arrOutBuff&#91; 49 &#93; &#93;;	\n	   strDeviceId&#91; 7 &#93; = hex&#91; arrOutBuff&#91; 50 &#93; &#93;;	\n	   strDeviceId&#91; 8 &#93; = hex&#91; arrOutBuff&#91; 51 &#93; &#93;;	\n	   strDeviceId&#91; 9 &#93; = hex&#91; arrOutBuff&#91; 52 &#93; &#93;;	\n	   strDeviceId&#91; 10 &#93; = hex&#91; arrOutBuff&#91; 53 &#93; &#93;;	\n\n	   strDeviceId&#91; 11 &#93; = hex&#91; arrOutBuff&#91; 70 &#93; &#93;;	\n	   strDeviceId&#91; 12 &#93; = hex&#91; arrOutBuff&#91; 71 &#93; &#93;;	\n	   strDeviceId&#91; 13 &#93; = hex&#91; arrOutBuff&#91; 72 &#93; &#93;;	\n	   strDeviceId&#91; 14 &#93; = hex&#91; arrOutBuff&#91; 73 &#93; &#93;;	\n	   strDeviceId&#91; 15 &#93; = hex&#91; arrOutBuff&#91; 74 &#93; &#93;;	\n	   strDeviceId&#91; 16 &#93; = hex&#91; arrOutBuff&#91; 75 &#93; &#93;;	\n\n	   strDeviceId&#91; 17 &#93; = 0;	\n	   \n	   hb_retc&#40; strDeviceId &#41;;\n	&#125;   \n&#125; \n\n#pragma ENDDUMP \n[/code:2xvsw7jp]\n\nOriginal source code:[code:2xvsw7jp]\n#include &lt;uniqueid&#46;h&gt;\nCString GetDeviceSerialNumber&#40;&#41;\n&#123;\n	DWORD dwOutBytes;\n	const int nBuffSize = 4096;\n	byte arrOutBuff&#91;nBuffSize&#93;;\n	BOOL bResult = &#58;&#58;KernelIoControl&#40;IOCTL_HAL_GET_DEVICEID,\n		0, 0, arrOutBuff, nBuffSize, &amp;dwOutBytes&#41;;\n	if &#40;bResult == FALSE&#41;\n	&#123;\n		return _T&#40;&quot;&quot;&#41;;\n	&#125;\n	CString strDeviceInfo;\n	for &#40;unsigned int i = 0; i&lt;dwOutBytes; i++&#41; \n	&#123;\n		CString strNextChar;\n		strNextChar&#46;Format&#40;L&quot;%02X&quot;, arrOutBuff&#91;i&#93;&#41;;\n		strDeviceInfo += strNextChar;\n	&#125;\n	CString strDeviceId =\n		strDeviceInfo&#46;Mid&#40;40,2&#41; +\n		strDeviceInfo&#46;Mid&#40;45,9&#41; +\n		strDeviceInfo&#46;Mid&#40;70,6&#41;;\n	return strDeviceId;\n&#125;\n[/code:2xvsw7jp]','',0,'AIA=','2xvsw7jp',1,0,'',2,0,0),(2000,520,3,2,0,'80.58.2.107',1132081349,1,0,1,1,1,1,'','','Dan,\n\nJust reviewing whatsnew.txt:\n\n* Class TActiveX \n* Class TButtonBmp\n* Class THeader\n* Class TEdit (not included in FW yet, just provided on tech support)\n\nBesides those, you may also consider the 64 bits version of all of them for FWH64 bits (developed in May 2005) and the ones adapted (29 classes) to FiveWin for Pocket PC since June 2005, a product that is becoming a great tool for xbase developers.','',0,'AIA=','1pjz92e7',1,0,'',2,0,0),(2001,346,2,2,0,'80.58.2.107',1132085353,1,0,1,1,1,1,'','','Alejandro,\n\nTu programa funciona en red ? Usa bases de datos alojadas en un servidor ?','',0,'AIA=','1x5be8gv',1,0,'',2,0,0),(2002,522,6,138,0,'201.128.111.75',1132085553,1,0,1,1,1,1,'','','No van por ahi los tiros.\n\n1) Necesitas instalar el controlador ODBC para la base de datos a la cual te quieres conectar\n\n2) Necesitas crear un DSN de sistema en el Adminstrador de fuentes de datos ODBC\n\n3) Luego necesitas crear el objecto ODBC y luego un objeto DBODBC.\n\nYo te aconsejo que mejor utilices OLE DB es mucho mas rapido y menos complicado.','',0,'AIA=','gdoqripx',1,0,'',138,0,0),(2003,523,6,138,0,'201.128.111.75',1132085728,1,0,1,1,1,1,'','','Si es a un DB2/400 se puede hacer por ADO siempre y cuando exista el ADO Provider, que creo que si existe, llamame y te digo lo que necesitas.','',0,'AIA=','rdsugm3o',1,0,'',138,0,0),(2004,346,2,78,0,'201.240.30.157',1132086411,1,0,1,1,1,0,'','Lentitud en XP','Hola Alejandro.\nSigo sosteniendo que XP en un SO pesimo (mas malo que mani crudo) y peor aun si lo tiene comos servidor de archivos, mira tuve los mismos problemas que describes, asi que afine lo mas que pude el entorno de la red, mis programas (FW2.0/Blinker) de 16 bits van de regular para arriba, no tengo quejas (por ahora) y el tema del Commit y DbCommit si que es un lio en XP, los saque de los programas y puse al final de cda modulo, claro hay el riesgo de que el equipo se apague y queden datos en el buffer, pero ese en un problema menor comparado con la lentitud, lo que hice con otros clientes, fue cambiar su SO a Windows 2000, me da mejores prestaciones que XP, siempre y cuando este con el el ultimo \"parche\" (4) y actualizado por internet, va muy bien. apunta por ese lado,,,\n\nSalu2\nWilli Quintana','',0,'AIA=','23w1647t',1,0,'',78,0,0),(2005,346,2,43,0,'201.127.44.61',1132088211,1,0,1,1,1,0,'','','Hola\n\n  Tienes algo asi.\n\n      Do While .....\n\n          Field-&gt;(Dbcommit())\n      EndDo\n\n\n   Te dire que es un bug xHarbour, prueba sacando el commit del bucle y veras que mejora....\n\nSaludos\n\n  Marco A. Delgado  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','11wkyryr',1,0,'',43,0,0),(2006,346,2,43,0,'201.127.44.61',1132088430,1,0,1,1,1,0,'','','uupss... \n\n   Perdon un lapsus...\n\n   no es el caso ya que veo que utilizas clipper, mil disculpas..\n\n\nSaludos\n\n  Marco A. Delgado.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','fxssuskt',1,0,'',43,0,0),(2007,491,6,36,0,'200.113.56.235',1132089470,1,0,1,1,1,0,'','','fSandoval\n\nuna de las pregunta que hace la clase es esta\n\n   IF (nItem := FIELDPOS( ::cFldItem )) &gt; 0\n      IF (nList := FIELDPOS( ::cFldList )) &gt; 0\n\n\nprueba antes del dbcombo\n\nalert( str(Grupos-&gt;( fieldpos( \"NUMGPO\" ) ) )\n\nsi te da 0 es por que esta colocando un campo que no existe..\n\nREDEFINE DBCOMBO oGetArt VAR GruArt ID 103 OF oDLG; \nALIAS \"GRUPOS\" ITEMFIELD \"NUMGPO\" LISTFIELD \"NOMGPO\n\n\ny ademas yo lo utilizo igual y me funciona ok\n\n\nespero que te sirva\nSaludos\n\nPatricio','',0,'AIA=','1cv69v9b',1,0,'',36,0,0),(2008,496,6,21,0,'80.58.46.235',1132097691,1,0,1,1,1,1,'','','Hola grupo,\n\nMas cambios en la tsbrowse 7.1\n\nEn mis browse\'s muestro datos mezclados de varias tablas y bChange siempre me ha dado problemas.\n\nHe incluido 2 datas nuevos para ello, bDrawIni y bDrawFin. \n\n[code:2vc6ac00]METHOD DrawLine&#40; xRow &#41; CLASS TSBrowse\nlocal&#46;&#46;&#46; //definición de las variables\nif &#58;&#58;bDrawIni&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawIni, Self &#41;\nendif\n&#46;&#46;&#46;\nif &#58;&#58;bDrawFin&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawFin, Self &#41;\nendif\nreturn self[/code:2vc6ac00]\n\n[code:2vc6ac00]METHOD DrawSelect&#40;&#41; CLASS TSBrowse\nlocal&#46;&#46;&#46; //definición de las variables\nif &#58;&#58;bDrawIni&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawIni, Self &#41;\nendif\n&#46;&#46;&#46;\nif &#58;&#58;bDrawFin&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawFin, Self &#41;\nendif\nreturn Self[/code:2vc6ac00]\n\n[code:2vc6ac00]METHOD Edit&#40; uVar, nCell, nKey, nKeyFlags, cPicture, bValid, nClrFore, nClrBack &#41; CLASS TSBrowse\nlocal&#46;&#46;&#46; //definición de las variables\nif &#58;&#58;bDrawIni&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawIni, Self &#41;\nendif\n&#46;&#46;&#46;\nif &#58;&#58;bDrawFin&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawFin, Self &#41;\nendif\nreturn 0[/code:2vc6ac00]\n\n[code:2vc6ac00]METHOD ExcelOle&#40; cXlsFile, lActivate, oMeter, cTitle, oFont, lSave &#41; CLASS TSBrowse\n&#46;&#46;&#46;\nif &#58;&#58;bDrawIni&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawIni, Self &#41;\nendif\nuData &#58;= Eval&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;bData &#41;\nif &#58;&#58;bDrawFin&lt;&gt;NIL\n  Eval&#40; &#58;&#58;bDrawFin, Self &#41;\nendif\n&#46;&#46;&#46;&#46;\nreturn nil[/code:2vc6ac00]','',0,'AIA=','2vc6ac00',1,0,'',21,0,0),(2009,525,6,255,0,'200.67.134.233',1132100298,1,0,1,1,1,1,'','Novedades Verce 4.3 !!!','Verce 4.3\n\nDrag\'N\'Drop al crear librerias.\nBug corregido al compilar .RC \n\nSaludos\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->','',0,'AIA=','sgfzbw8f',1,0,'',255,0,0),(2010,526,3,255,0,'200.67.134.233',1132100378,1,0,1,1,1,1,'','News Verce 4.3 !!!','Verce 4.3\n\nDrag\'N\'Drop when creating libs.\nBug fixed when .RC files used.\n\nRegards\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->','',0,'AIA=','2x6mjea2',1,0,'',255,0,0),(2011,527,2,290,0,'200.113.99.217',1132101007,1,0,1,1,1,1,'','Gracias por existir ...','Hola amigos, estabamos perdidos, nos quedamos pegados en el antiguo foro, no saben la felicidad que mi corazon siente hoy al saber que no estoy perdido en el abismo  ... casi me cambio de erramineta jajaja. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','21gpm3qk',1,0,'',290,0,0),(2012,527,2,10,0,'212.40.255.188',1132101906,1,0,1,1,1,0,'','','Hola y bienvenido Lafic.\n\nSaludos','',0,'AIA=','2d6xe3eu',1,0,'',10,0,0),(2013,524,4,150,0,'62.14.48.66',1132102310,1,0,1,1,1,1,'','','Hello Antonio\n\nDoes not work on my hp iPAQ\n\nThe first time say 0 the next ÌUUº0...\n\nIf I repeat the test the first time also get 0 and the second time diferent caracters.\n\nJose Valle','',0,'AIA=','14qiefoz',1,0,'',150,0,0),(2014,502,3,284,0,'201.27.219.204',1132102946,1,0,1,0,1,0,'','Re: Error FiveWin/6  Cannot create window or control','[quote=&quot;EnricoMaria&quot;:1rh1yfof][code:1rh1yfof]#INCLUDE &quot;FIVEWIN&#46;CH&quot; \n\nPROCEDURE MAIN&#40;&#41; \nLOCAL oDLG_MAIN &#58;= TWINDOW&#40;&#41;&#58;NEW&#40;,,,,&quot;Test&quot;&#41;, oMessage\nACTIVATE WINDOW oDLG_MAIN ON INIT&#40; TEST2&#40;&#41; &#41; \nRETURN\n\nFUNCTION TEST2&#40;&#41; \nLOCAL oDialog, oMessage\nDEFINE DIALOG oDialog TITLE &quot;Test2&quot; \n//DEFINE MESSAGE oMessage OF oDialog PROMPT &quot;Test2 Footer&quot; \nACTIVATE DIALOG oDialog ON INIT TEST3&#40; oDialog &#41;\nRETURN NIL\n\nFUNCTION TEST3&#40; oDialog &#41;\n\n    LOCAL oMessage\n\n    DEFINE MESSAGE oMessage OF oDialog PROMPT &quot;Test2 Footer&quot; \n\n    RETURN NIL[/code:1rh1yfof]\n\nEMG[/quote:1rh1yfof]\n \nOk, it works.\nBut, why can´t I do the previous code ?\nIf I program a WINDOW other than a DIALOG, the code works OK, like:\n \n[code:1rh1yfof]DEFINE WINDOW oDialog TITLE &quot;Test2&quot;\nDEFINE MESSAGE oMessage OF oDialog PROMPT &quot;Test2 Footer&quot; \nACTIVATE DIALOG oDialog ON INIT TEST3&#40; oDialog &#41;\n[/code:1rh1yfof]\n \nWhy can I do this with a WINDOW and not with a DIALOG ?\nIsn´t a DIALOG a WINDOW sub-class ?\nIt can seems to be a stupid question, but, I am just triing to understand...','',0,'gIA=','1rh1yfof',1,0,'',284,0,0),(2015,528,2,10,0,'212.40.255.188',1132102950,1,0,1,1,1,0,'','Sobre www.dbwide.com (Prometheus)','Antonio, el pasado 28-09-05 nos pusistes un post en las antiguas news para ver si te podían enviar los ficheros para dar solución a su alojamiento.\n\n¿Qué tal va la recopilación? ¿contactó contigo Daniel Andrade?\n\nHernán Diego Ceccarelli &lt;hceccarelli@cesotech.com.ar&gt; parece ser que lo conoce ya que me contestó a un post de las antiguas news, por lo que sería un buen contacto para localizar a Daniel Andrade, ¿no?\n\nBuen, un saludo y dejo tu post por si alguien \'bajó\' en algún momento dicha web completita.\n\nMensaje de Antonio Linares de 28-09-05 a las 09:30\nAsunto: dbwide.com.ar - ficheros\n\nPor favor, quienes tengan archivos descargados de <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w --> que por favor lo comenten aqui, para poder trasladarlos a un nuevo sitio. Se agradece si tambien teneis la descripción del mismo.\n\nUna vez nos coordinemos, para evitar trabajo duplicado, la persona indicada me enviará por email (como zip) el fichero en cuestión y le daremos un alojamiento.\n\nGracias a todos por vuestra colaboración para salvar el trabajo de \ndbwide.com.ar.\n\nsaludos,\n\nAntonio','',0,'gIA=','3mmjx3ao',1,0,'',10,0,0),(2016,529,2,290,0,'200.113.99.217',1132104296,1,0,1,1,1,1,'','error de proteccion general','solo me da cuando abro un archivo con muchos campos, ajuste un archivo de 500 campos a 210 y me lo abrio sin dar este error, me tiene loco por favor algun comentario ... gracias amigos','',0,'gIA=','1yrpb7ku',1,0,'',290,0,0),(2017,496,6,199,0,'168.243.152.157',1132105590,1,0,1,1,1,1,'','','Hola, serias tan amable de poner el archivo fuente,  no pude hacerlo funcionar \nGracias por tu acto de buena fe','',0,'gIA=','2pzj0qse',1,0,'',199,0,0),(2018,530,6,73,0,'201.132.245.185',1132107225,1,0,1,1,1,0,'','redimensionar dialogos...','Hola foro,\nse que en alguna ocasion se toco el temo, pero lo encontre..\nTengo dialogos diseñados para una resolucion de 800x600 pero si mi resolucion es mayo quiero que el dialogo se ajuste al tamaño nuevo de resolucion incluyendo controles, sera posible?\ngracias\nPaco','',0,'gIA=','1avt4xc2',1,0,'',73,0,0),(2019,531,19,233,0,'218.208.249.84',1132111021,1,0,1,1,1,0,'','Where\'s James Bott?','Just wondering. Most of the regulars are already here but so far haven\'t seen any post from James','',0,'gIA=','30r9t7xw',1,0,'',233,0,0),(2020,525,6,72,0,'201.154.196.254',1132117361,1,0,1,1,1,0,'','','Yo necesito capacitación, vas a tener que visitarnme para darme unas clases.','',0,'gIA=','2udsy17s',1,0,'',72,0,0),(2021,524,4,89,0,'213.21.136.60',1132126055,1,0,1,1,1,0,'','','Detect  the Pocket PC serial number is different for every brand , \nI use with VBE this DLL <!-- m --><a class=\"postlink\" href=\"http://www.selectiveminds.com/products/proddetails.asp?prodID=28\">http://www.selectiveminds.com/products/ ... ?prodID=28</a><!-- m -->\n\n\nRegards Maurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'gIA=','hhgpk4d1',1,0,'',89,0,0),(2022,531,19,6,0,'82.59.188.26',1132127481,1,0,1,1,1,1,'','Re: Where\'s James Bott?','I\'ve just sent a message to his private email...\n\nEMG','',0,'gIA=','19u9wsg5',1,0,'',6,0,0),(2023,502,3,6,0,'82.59.188.26',1132127644,1,0,1,1,1,1,'','Re: Error FiveWin/6  Cannot create window or control','A WINDOW and a DIALOG are different things from the API point of view. Therefore you can\'t use a DIALOG exactly as it were a WINDOW.\n\nEMG','',0,'gIA=','2j60b5tb',1,0,'',6,0,0),(2024,515,3,2,0,'80.58.2.107',1132128222,1,0,1,1,1,1,'','','Riccardo,\n\nYou may review samples\\TestHelp.prg, also samples\\NewHelp.prg','',0,'gIA=','1tzz2o9z',1,0,'',2,0,0),(2025,528,2,2,0,'80.58.2.107',1132128444,1,0,1,1,1,1,'','','Antonio,\n\nDe momento no se ha solucionado. Un usuario nos hizo un ofecimiento y nos habilitó un FTP, pero cuando fuimos a usarlo ya estaba deshabilitado, le escribimos de nuevo y nada.\n\nSi alguien tiene todo, por favor que nos envíe un email.','',0,'gIA=','2bjytz2w',1,0,'',2,0,0),(2026,529,2,2,0,'80.58.2.107',1132128511,1,0,1,1,1,1,'','','Qué valores de heapsize y de stacksize usas en el fichero LNK de Blinker ?','',0,'gIA=','6qckzatp',1,0,'',2,0,0),(2027,530,6,2,0,'80.58.2.107',1132128956,1,0,1,1,1,1,'','','Paco,\n\nEn la clase TDialog en el método Initiate tienes este código que sirve para redimensionar un diálogo. Se podría generalizar, para usarlo como método y al tamaño que se desease:\n[code:20j8b3rb]\n      #define SCALE_FACTOR 1&#46;16668\n      if &#58;&#58;lResize16 &#46;and&#46; ! Empty&#40; &#58;&#58;cResName &#41;\n         &#58;&#58;nWidth = &#58;&#58;nWidth * SCALE_FACTOR\n         hCtrl = GetWindow&#40; &#58;&#58;hWnd, GW_CHILD &#41;\n         if hCtrl != 0\n            do while ! lEnd\n               aRect = GetCoors&#40; hCtrl &#41;\n               SetWindowPos&#40; hCtrl, 0, aRect&#91; 1 &#93;, aRect&#91; 2 &#93; * SCALE_FACTOR,;\n                             &#40; aRect&#91; 4 &#93; - aRect&#91; 2 &#93; &#41; * SCALE_FACTOR,;\n                             aRect&#91; 3 &#93; - aRect&#91; 1 &#93;, nOr&#40; SWP_NOZORDER,;\n                             SWP_NOREDRAW, SWP_NOACTIVATE &#41; &#41;\n               hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41;\n               lEnd = ! &#40; &#40; hCtrl != 0 &#41; &#46;and&#46; &#40; GetParent&#40; hCtrl &#41; == &#58;&#58;hWnd &#41; &#41;\n            end\n         endif\n      endif\n[/code:20j8b3rb]','',0,'AIA=','20j8b3rb',1,0,'',2,0,0),(2028,524,4,277,0,'81.72.105.247',1132129928,1,0,1,1,1,0,'','Re: Pocket PC serial number','[quote=&quot;Antonio Linares&quot;:3cbq1my2]Our FWPPC user Hathal has found the bottom source code to detect the Pocket PC serial number. We have adapted like this, but gives wrong values (warnign: it does not work on the emulator). We leave it here just in case you want to test it or fix it (?):\n[/quote:3cbq1my2]\n\nIt does\'nt work also on my Acer N50, but i found in the eVC4 the sample GetDeviceID which use the same api call and work on emulator and on device, maybe it can be a starting point.\n\nMany years ago i used C language, but now i need help, here the relevant code:\n\n[quote:3cbq1my2]\n#include &lt;uniqueid.h&gt;\n\n\n// Global Variables:\nGUID				g_Guid;\n\n\n// Forward declarations of functions included in this code module:\nBOOL GetDeviceID( GUID* pGuid);\n\n... code ...\n\nBOOL InitInstance(HINSTANCE hInstance, int nCmdShow)\n{\n... code ...\n\n	// get the device ID this function in implemented at the end of this file\n	GetDeviceID(&amp;g_Guid);\n\n... code ...\n}\n\n... code ...\n\n\nBOOL GetDeviceID( GUID* pGuid)\n{\n	BOOL fRes;\n    DWORD dwBytesReturned =0;\n	DEVICE_ID* pDevID;\n	int wSize;\n\n	if (NULL == pGuid)\n		return FALSE;\n\n	memset(pGuid, 0, sizeof(GUID));\n\n	pDevID = (DEVICE_ID*)malloc(sizeof(DEVICE_ID));\n	memset(pDevID, 0, sizeof(DEVICE_ID));\n	pDevID-&gt;dwSize = sizeof(DEVICE_ID);\n\n   fRes = KernelIoControl( IOCTL_HAL_GET_DEVICEID, NULL, 0,\n            pDevID, sizeof( DEVICE_ID ), &amp;dwBytesReturned );\n\n	wSize = pDevID-&gt;dwSize;\n	free(pDevID);\n	if( (FALSE != fRes) || (ERROR_INSUFFICIENT_BUFFER != GetLastError()))\n		return FALSE;\n\n	pDevID = (DEVICE_ID*)malloc(wSize);\n	memset(pDevID, 0, sizeof(wSize));\n	pDevID-&gt;dwSize = wSize;\n    fRes = KernelIoControl( IOCTL_HAL_GET_DEVICEID, NULL, 0,\n            pDevID, wSize, &amp;dwBytesReturned );\n\n	if((FALSE == fRes) || (ERROR_INSUFFICIENT_BUFFER == GetLastError()) )\n		return FALSE;\n\n	BYTE* pDat = (BYTE*)&amp;pGuid-&gt;Data1;\n	BYTE* pSrc = (BYTE*)(pDevID) + pDevID-&gt;dwPresetIDOffset;\n	memcpy(pDat, pSrc, pDevID-&gt;dwPresetIDBytes);\n	pDat +=  pDevID-&gt;dwPresetIDBytes;\n	pSrc =  (BYTE*)(pDevID) + pDevID-&gt;dwPlatformIDOffset;\n	memcpy(pDat, pSrc, pDevID-&gt;dwPlatformIDBytes);\n\n	return true;\n}\n[/quote:3cbq1my2]\n\nIt uses memory allocation/manipulation functions, are legal in harbour?\n\nClaudio.','',0,'gA==','3cbq1my2',1,0,'',277,0,0),(2029,532,7,262,0,'212.89.4.34',1132132071,1,0,1,1,1,0,'','preguntas y problemas(bugs) varios - (arreglado)','Primero una pregunta :\ncomo es el rendimiento en velocidad de ejecucion de una aplicacion en el pocket respecto al emulador ( ya se que depende del pc , tengo un AMD atlon64 +1Mg. ) , nada cientifico , sino mas o menos .\nAhora los problemillas ( en la última versión del 14 ) :\nEn este codigo :\n\n#include \"FWCE.ch\"\n\n#xcommand DEFAULT &lt;v1&gt; TO &lt;x1&gt; [, &lt;vn&gt; TO &lt;xn&gt; ] =&gt; ;\n             IF &lt;v1&gt; == NIL ; &lt;v1&gt; := &lt;x1&gt; ; END ;\n             [; IF &lt;vn&gt; == NIL ; &lt;vn&gt; := &lt;xn&gt; ; END ]\n\n\nREQUEST DBFCDX\n//----------------------------------------------------------------------------//\nStatic cPath\nfunction Main()\n   local oWnd\n   \nREQUEST HB_LANG_ES\nSET DELETED ON\nSET EPOCH TO 1990\nSET CENTURY ON\nSET DATE ITALIAN\nHB_LANGSELECT(\"ES\")\n\n\n   cPath := Curdir()+\"\\\"\n     \n   DEFINE WINDOW oWnd TITLE \"Minpda\" \n     \n\n    @ 15, 20 BTNBMP FILE  CPath+ \"bmp\\users.bmp\" ;\n      PROMPT \"Clientes\" TOP ;\n      SIZE 60, 60 ;\n      ACTION Eligefichacli()\n\n   @ 15, 90 BTNBMP FILE  CPath+\"bmp\\search.bmp\" ;\n     PROMPT \"Articulos\" TOP ;\n      SIZE 60, 60 ;\n      ACTION msginfo(\"1\")\n\n   @ 15, 160 BTNBMP FILE  Cpath+\"bmp\\pedidos.bmp\" ;\n      PROMPT \"Pedidos\" TOP ;\n      SIZE 60, 60 ;\n      ACTION msginfo(\"pedidos\")\n\n   @ 80, 20 BTNBMP FILE  CPath+ \"bmp\\recibe.bmp\" ;\n       PROMPT \"Actualizar\" TOP ;\n      SIZE 60, 60 ;\n      ACTION ( msginfo(\"actualizar\"))\n\n   @ 80, 90 BTNBMP FILE  CPath+ \"bmp\\envio.bmp\" ;\n       PROMPT \"Enviar\" TOP ;\n      SIZE 60, 60 ;\n      ACTION  (msginfo(\"Enviar\"))\n\n   @ 80, 160 BTNBMP FILE Cpath + \"bmp\\setup.bmp\" ;\n      PROMPT \"Indices\" TOP ;\n      SIZE 60, 60 ;\n      ACTION msginfo(\"indices\")\n\n   @ 145, 90 BTNBMP FILE Cpath + \"bmp\\Salir.bmp\" ;\n      PROMPT \"Salir\" TOP ;\n      SIZE 60, 60 ;\n      ACTION  oWnd:end()\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK msginfo()\n\n\nmsginfo(\"sale\")  \n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\n\nFunction Eligefichacli()\n\nlocal cPath := Curdir()+\"\\\"\nlocal ownd1, ofont\n     \n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -14  \n     \n   DEFINE WINDOW oWnd1 TITLE \"Tipo ficha cliente\" \n   \n    \n   @ 1, 1 SAY \"    Escoja el Tipo de Ficha a Ver\"  SIZE 290, 20 COLOR \"b+/w\" FONT oFont\n\n   @ 80, 20 BTNBMP FILE  CPath+ \"bmp\\users.bmp\"  ;\n       PROMPT \"General\" TOP ;\n      SIZE 60, 60 ;\n      ACTION  msginfo(\"Fichacli\" )\n\n   @ 80, 90 BTNBMP FILE  CPath+ \"bmp\\banco.bmp\" ;\n       PROMPT \"Bancarios\" TOP ;\n      SIZE 60, 60 ;\n      ACTION   msginfo(\"banco\" )\n\n   @ 80, 160 BTNBMP FILE Cpath + \"bmp\\varios.bmp\" ;\n      PROMPT \"Otros\" TOP ;\n      SIZE 60, 60 ;\n      ACTION (msginfo(\"Otros\"))\n\n\n   @ 145, 90 BTNBMP FILE Cpath + \"bmp\\Salir.bmp\" ;\n      PROMPT \"Salir\" TOP ;\n      SIZE 60, 60 ;\n      ACTION oWnd1:end()\n\n\n   ACTIVATE WINDOW oWnd1 ;\n      ON CLICK msginfo(\"escoja una opcion\")\n   \n   msginfo(\"2222\")\n   \nreturn nil\n\n //----------------------------------------------------------------------------//\n //----------------------------------------------------------------------------//\n\nSigue el problema con los btnbmp .si pulso el boton 1 que accede al menu 2 , al presentarlo falta el boton salir .\n\nPor otro lado si me salgo desde el menu 2 (cerrando wnd2) , tambien se sale del bucle de ventana 1 ( me emite em mensaje cerrar del final ) , lo que me produce problemas  ya que realmente estaria un close de base de datos  ( se resolvería con valid) .\nParece como que la ventana no fuera del todo modal , pero puede que el problema se desencadene por la falta del boton salir .(antes de incluir este menu grafico de botones no me daba ninigun error )\n\nNo se si se me entiende bien .\nSaludso.','',0,'','2tg4xatl',1,0,'',262,0,0),(2030,532,7,2,0,'80.58.2.107',1132137656,1,0,1,1,1,1,'','Re: preguntas y problemas(bugs) varios','[quote=&quot;astursoft&quot;:3ur5dbx8]Primero una pregunta :\ncomo es el rendimiento en velocidad de ejecucion de una aplicacion en el pocket respecto al emulador ( ya se que depende del pc , tengo un AMD atlon64 +1Mg. ) , nada cientifico , sino mas o menos.[/quote:3ur5dbx8]\n\nEn el Pocket PC real funciona bastante más rápido (nosotros tambien usamos un AMD + 1 Mg. para el emulador).\n\n[quote=&quot;astursoft&quot;:3ur5dbx8]Ahora los problemillas ( en la última versión del 14 ):[/quote:3ur5dbx8]\n\nVamos a revisarlo y te contestamos cuanto antes.','',0,'gA==','3ur5dbx8',1,0,'',2,0,0),(2031,533,2,290,0,'200.113.100.131',1132138973,1,0,1,1,1,1,'','error proteccion general (2)','Agradezco Respuesta y contesto su pregrunta:  el stacksize 12000 y en heapsize 2000 ademas al inicio arriba del LNK tengo un stack de 30000','',0,'gA==','391grygj',1,0,'',290,0,0),(2032,496,6,21,0,'80.58.41.235',1132139363,1,0,1,1,1,1,'','','Hola,\n\nAqui tienes toda la tsbrowse 7.1 con los cambios que he realizado.\n\n[url:2cl7ucqu]http&#58;//www&#46;ghe-soft&#46;com/fivewin/tsbrowse&#46;rar[/url:2cl7ucqu]','',0,'EA==','2cl7ucqu',1,0,'',21,0,0),(2034,515,3,217,0,'200.153.134.92',1132140817,1,0,1,1,1,0,'','','Antonio, the \"?\" button in dialog don\'t work if I activate it in \"nomodal mode\"...\n\n&lt;activate dialog oDlg centered NoModal&gt;\n\nRegards,\nMaurilio','',0,'EA==','3mgejl6u',1,0,'',217,0,0),(2035,534,3,217,0,'200.153.134.92',1132141382,1,0,1,1,1,0,'','Exiting when click out of a dialog','When I click in a button I activate a dialog with NoWait clause. Is possible close this dialog if I click out of his area?\nFor example:\n\nDialog1 call Dialog2 (dialog2 is nowait), if I click in Dialog1 ou other screen area I want to close Dialog2.\n\nRegards,\nMaurilio','',0,'EA==','2zjikxzx',1,0,'',217,0,0),(2036,535,3,217,0,'200.153.134.92',1132141504,1,0,1,1,1,0,'','How about Canal 5 Menu','Any news about Canal 5 menu? The last I downloaded was 1.1 version and had any bugs yet...\n\nRegards,\nMaurilio','',0,'EA==','hl211h6b',1,0,'',217,0,0),(2037,491,6,97,0,'200.33.72.30',1132147332,1,0,1,1,1,1,'','Post ni me despliega informacion','Patricio gracias por contestar lo que pasa es que no me presenta la informacion en el dbcombo , ya hice lo que indicaste str(grupos-&gt;(fieldpos(\"NomGpo\")))  y efectivamente me indica que es el campos 2, de la tabla.\n\n\nno se que mas pueda ser.\n\ngracias.\nfernando sandoval ruiz','',0,'EA==','23qn2r40',1,0,'',97,0,0),(2038,532,7,2,0,'80.58.2.107',1132147642,1,0,1,1,1,1,'','','Acabamos de publicar un nuevo build de FWPPC que soluciona el problema que comentas de los botones, también verás que ya no se sale desde una segunda, tercera, etc. ventana.\n\nPor favor pruébalo y nos comentas que tal te funciona. Gracias!','',0,'EA==','1bqxuvv9',1,0,'',2,0,0),(2039,522,6,97,0,'200.33.72.30',1132147777,1,0,1,1,1,1,'','Rene mil gracias por contestar.','Tengo instalado el odbc de mysql, la conexion la hace , si pongo un msginfo( Tb:Fieldget(2)) me despliega el contenido del campo, mi pregunta es porque al hace el listbox no me presenta nada de informacion , habre la caja del listbos pero no presenta informacion.\n\n\nIgualmente con los dialogos he tenido muchos problemas, lso checkbos los cambiado por radiobutton, wbrowse , con algunas pantallas no me funcionan al abrir la venta se cierra el sistema.\n\nen fin que ya estoy echo un camote con esto ya le cambio una cosa avanzo algo y me salta otra libre.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'EA==','195c0aca',1,0,'',97,0,0),(2040,524,4,2,0,'80.58.2.107',1132147820,1,0,1,1,1,1,'','','Claudio,\n\nWe have tested your code but it looks it does not work too. We have found another sample that we are going to try at:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnnetcomp/html/retrievedeviceid.asp\">http://msdn.microsoft.com/library/defau ... viceid.asp</a><!-- m -->\n\nWith Harbour you have to use hb_xgrab() and hb_xfree() instead of malloc() and free().','',0,'EA==','1g9ktm01',1,0,'',2,0,0),(2041,536,4,2,0,'80.58.2.107',1132147899,1,0,1,1,1,1,'','New FWPPC build with TBtnBmp fix','We have just published a new FWPPC build that fixes a problem of using many bitmapped buttons. Now it is ok.','',0,'EA==','31fyqgm9',1,0,'',2,0,0),(2042,533,2,88,0,'82.150.2.18',1132149273,1,0,1,1,1,1,'','','Buenas lafic,\n\ncomo vamos? Te escribo para comentarte que no es necesario que estes abriendo Post tras Post sobre el tema.\n\nTe aconsejo que hagas un \"reply\" o \"quote\" (\"responder\" o \"citar\" si tienes el tema configurado en español) dentro del mensaje que escribiste, para no tener disgregadas las conversaciones y mantener un cierto orden coherente. \n\nAsi posibilita mucho mas las consultas posteriores sobre las dudas y las sugerencias/soluciones que aporte el resto de la comunidad.\n\n\nUn saludo, y bien venido al foro.\n\n\n\nNos leemos!!','',0,'EA==','1lsyrelr',1,0,'',88,0,0),(2043,534,3,6,0,'82.59.188.26',1132149282,1,0,1,1,1,1,'','Re: Exiting when click out of a dialog','This is a working sample:\n\n[code:2hpujwp1]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON &quot;Dialog2&quot; ACTION DIALOG2&#40; oDlg &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DIALOG2&#40; oMainDlg &#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= SPACE&#40; 30 &#41;\n    LOCAL oBut\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;bLostFocus = &#123; || oBut&#58;Click&#40;&#41; &#125;\n\n    @ 1, 1 GET oGet VAR cVar OF oDlg\n\n    @ 3, 1 BUTTON oBut PROMPT &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER NOMODAL\n\n    RETURN NIL[/code:2hpujwp1]\n\nEMG','',0,'AIA=','2hpujwp1',1,0,'',6,0,0),(2044,537,2,88,0,'82.150.2.18',1132149707,1,0,1,1,1,1,'','[Duda] ¿Como se coloca un icono en el titulo de una ventana?','Saludos gente,\n\nlo dicho, ¿ como coloco un icono en la parte superior izquierda de la ventana principal de mi aplicacion?. Es para que aparezca junto al titulo.\n\n¿Dentro del \"define\" de la ventana principal tal vez?\n\n¿Hay alguna medida estandar para el tamaño del icono?\n\nGracias de antemano.\n\n\n\n\nNos leemos!!','',0,'AIA=','3pgsjxgm',1,0,'',88,0,0),(2045,538,6,292,0,'200.84.200.179',1132149711,1,0,1,1,1,1,'','Saludos FTP','Colegas,\n\nPude observar en las new algunos mensajes sobre la funcionalidad de TFTP.\nMi pregunta es ¿Funciona Correctamente?\n\nGracias\nJuan Navas','',0,'AIA=','2m3iosyr',1,0,'',292,0,0),(2046,539,4,289,0,'212.138.64.172',1132150037,1,0,1,1,1,0,'','For Run Sound Wave From Resource And Wave File','My Friend View  This Source\nFor Run Sound Wave From Resource And Wave File\nBat Not Compiler With Function  hb_parc(1)\nThank   For All\n\n\n\n\n\n// Test Sound Source\n  #include \"FWCE.ch\"\n //----------------------------------------------------------------------------//\nfunction Main()\n   local oWnd\n    DEFINE WINDOW oWnd TITLE \"TEST sound \" \n @1,10 button \"Test 1 PLAYWAV()\" size 150, 20 action PLAYWAV()\n @4,10 button \"Test 2 PLAYWAVRES()\" size 150, 20 action PLAYWAVRES()\n    ACTIVATE WINDOW oWnd     \nreturn nil\n********************************************************\n#pragma BEGINDUMP \n#include &lt;hbapi.h&gt; \n#include &lt;Windows.h&gt;\n#include &lt;mmsystem.h&gt;\n HMODULE GetResources( void );\nextern HINSTANCE GetInstance( void );\n   void HB_FUN_PLAYWAV()\n{\n// char cfile * =hb_parc(1);\n         PlaySound(_T(\"\\\\Windows\\\\Default.wav\"), NULL, SND_ASYNC | SND_FILENAME);\n //       PlaySound( cfile, NULL, SND_ASYNC | SND_FILENAME);\n}\n  void HB_FUN_PLAYWAVRES()       \n{\n// char cfile * =hb_parc(1);\n      PlaySound (_T(\"testSound\"), GetResources() ? GetResources(): GetInstance(), SND_RESOURCE | SND_ASYNC);\n///       PlaySound (          cfile, GetResources() ? GetResources(): GetInstance(), SND_RESOURCE | SND_ASYNC);\n //         MessageBox( GetActiveWindow(),cfile  , _T(\"VIEW THIS\"), 0 );\n \n }\n/*\nvoid HB_FUN_PLAYWAVMEM()\n{\n        BYTE buffer[100*1024];\n	CFile file;\n	file.Open(_T(\"\\\\Windows\\\\empty.wav\"), CFile::modeRead);\n	file.Read(buffer, 100*1024);\n	file.Close();\n\n	PlaySound((const unsigned short *)buffer, NULL, SND_MEMORY | SND_ASYNC);\n}\n   */\n#pragma ENDDUMP \n/*\n// FILE TEST_SO.RC //\n// SAVE THIS TEXT FOR FILE ( TEST_SO.RC )\n// BUT ANY FILE SOUND (SMAIL ONLY)  TEST.WAV\n// AND Compiler FILE    TEST_SO.PRG\ntestSound WAVE \"test.wav\"\n*/ <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Ag==','ab7d4l20',1,0,'',289,0,0),(2047,532,7,262,0,'83.97.168.9',1132150197,1,0,1,1,1,0,'','','Perfecto !!! \nAprobecho el post para hacer otra tanda de preguntas  :\n\nSi ejecuto  msginfo(cDow(date())) , de da algo como \" Mi,rcoles\"  , tengo puesto HB_LANGSELECT(\"ES\") .\n\nPara alinear los listbox :  oBrw:aJustify:= { .f., .t. , .t. } , pero para centrar ? (si pongo 2 , me da error )\n\nNecesito poner un texto largo en un get (campo observaciones ) y pensaba en usar un get multilinea (desde codigo)  , ¿ Está implementado ya ? \n\nPor último , para fechas tendre que implementar un msgcalendar de momento o pensais implementar el datepicker en breve ?  \nPerdon por tanta pregunta y Gracias por un soporte tan eficiente .\n\nSaludos.','',0,'Ag==','233rcbae',1,0,'',262,0,0),(2048,533,2,2,0,'80.58.2.107',1132150261,1,0,1,1,1,1,'','','Lafic,\n\nPrueba a dejar el stacksize en 10000 y aumenta el heapsize de 1000 en 1000 para ver si soluciona el problema.','',0,'Ag==','3hpoou37',1,0,'',2,0,0),(2049,540,3,195,0,'62.38.16.74',1132150899,1,0,1,1,1,0,'','About &quot;&amp;&quot; character in Resources Dialogs','The character \"&amp;\" not shown properly in dialogs titles when use them from resources. Any ideas.\nFWH Ver 2.6 September 2005\n\nThanks in advance\nDionisis','',0,'Ag==','rhtl1atu',1,0,'',195,0,0),(2050,541,2,290,0,'200.113.100.131',1132152287,1,0,1,1,1,1,'','compra fivewin','Tengo FIVEWIN versión 2.5 y deseamos actualizarnos a 32 Bits, ¿que nos recomiendan? FW++ o FWH, ¿cual es la diferencia? y\n¿como comprar?  muy agradedido de Ustedes amigos. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'Ag==','n20vwh0x',1,0,'',290,0,0),(2051,542,2,290,0,'200.113.100.131',1132152603,1,0,1,1,1,1,'','error protección general (3)','Estimado antonio, hicimos los cambios y probamos muchas alternativas en el archivo LNK y aún así persiste el error de protección general, deseamos adquirir las versiones de 32 bits que nos recomiendas?, estoy usando Clipper 5.2, Blinker 5.0 y FiveWin 2.5.\n\nPor tu antención y preocupación, muchas gracias !\n\nun abrazo.','',0,'Ag==','1d81xb9y',1,0,'',290,0,0),(2052,543,6,88,0,'82.150.2.18',1132153274,1,0,1,1,1,1,'','[Duda] ¿Como se coloca un icono en el titulo de una ventana?','Saludos gente, \n\nlo dicho, ¿ como coloco un icono en la parte superior izquierda de la ventana principal de mi aplicacion?. Es para que aparezca junto al titulo. \n\n¿Dentro del \"define\" de la ventana principal tal vez? \n\n¿Hay alguna medida estandar para el tamaño del icono? \n\nGracias de antemano. \n\n \n\nNos leemos!!','',0,'Ag==','1k6py0ss',1,0,'',88,0,0),(2053,491,6,36,0,'200.113.56.235',1132153393,1,0,1,1,1,0,'','','Fsandoval\n\nSolo tienes que probar y revisar, a lo mejor el combo del recurso esta muy pequeño, la tabla no tiene registro etc, como anterior dije a mi me funciona bien y exactamente como lo tienes..\n\nespero que te sirva y suerte..\n\nSaludos\nPatricio','',0,'Ag==','2b92occi',1,0,'',36,0,0),(2054,537,2,53,0,'200.66.175.228',1132153638,1,0,1,1,1,0,'','Colocar icono en ventana','Chantiel:\n\nEsto debe funcionarte\n\nDEFINE ICON oIcono RESOURCE \"AppLogo\"\nDEFINE WINDOW oWnd3a MDICHILD OF oWndMain FROM 0,0 TO 30,40;\n	TITLE \"Catálogo de clientes\" ICON oIcono\n\nEl logo que uso es de 32x32\n\nSaludos, Armando','',0,'Ag==','3hd9hox6',1,0,'',53,0,0),(2055,543,6,53,0,'200.66.175.228',1132153985,1,0,1,1,1,0,'','Icono en ventana','Chantiel: \n\nEsto debe funcionarte \n\nDEFINE ICON oIcono RESOURCE \"AppLogo\" \nDEFINE WINDOW oWnd3a MDICHILD OF oWndMain FROM 0,0 TO 30,40; \nTITLE \"Catálogo de clientes\" ICON oIcono \n\nEl logo que uso es de 32x32 \n\nSaludos, Armando','',0,'Ag==','7tygl4p1',1,0,'',53,0,0),(2056,525,6,255,0,'200.67.134.233',1132154104,1,0,1,1,1,1,'','','[quote=&quot;Alfredo Arteaga&quot;:1xcjg929]Yo necesito capacitación, vas a tener que visitarnme para darme unas clases.[/quote:1xcjg929]\n\nJAJA <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nTu dices cuando Alfredo. Pégame un \"fonazo\" y nos\nponemos de acuerdo.\n\nSaludos','',0,'gA==','1xcjg929',1,0,'',255,0,0),(2057,543,6,255,0,'200.67.134.233',1132154289,1,0,1,1,1,1,'','Re: [Duda] ¿Como se coloca un icono en el titulo de una vent','[quote=&quot;Chantiel&quot;:1yyp9of2]Saludos gente, \n\nlo dicho, ¿ como coloco un icono en la parte superior izquierda de la ventana principal de mi aplicacion?. Es para que aparezca junto al titulo. \n\n¿Dentro del \"define\" de la ventana principal tal vez? \n\n¿Hay alguna medida estandar para el tamaño del icono? \n\nGracias de antemano\n\nNos leemos!![/quote:1yyp9of2]\n\nEn algunos casos (No siempre y depende de la version de fivewin)\ndebes usar:\n\nDEFINE ICON oIco RESOURCE \"MIICONO\"\nDEFINE WINDOW oWnd ...............\n\noWnd:SetIcon( oIco )\n\nSaludos','',0,'gA==','1yyp9of2',1,0,'',255,0,0),(2058,543,6,88,0,'82.150.2.18',1132154533,1,0,1,1,1,1,'','','Gracias por la rapida respuesta!\n\n\nVoy a probarlo ...\n\n\n\nNos leemos!!','',0,'gA==','2hf7ssyz',1,0,'',88,0,0),(2059,537,2,88,0,'82.150.2.18',1132154562,1,0,1,1,1,1,'','','Gracias por la rapida respuesta!\n\n\nVoy a probarlo ...\n\n\n\nNos leemos!!','',0,'gA==','29bjsoci',1,0,'',88,0,0),(2060,526,3,35,0,'167.7.140.254',1132155035,1,0,1,1,1,0,'','','Like to try your product .. do you have an English version ??\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','5a8mqq1s',1,0,'',35,0,0),(2061,543,6,88,0,'82.150.2.18',1132155772,1,0,1,1,1,1,'','','Funciona a la perfeccion, ambos ejemplos.\n\nMuchas gracias.\n\n\n\nNos leemos!!','',0,'gA==','2mt5wnmo',1,0,'',88,0,0),(2062,537,2,88,0,'82.150.2.18',1132155821,1,0,1,1,1,1,'','','Funciona perfectamente.\n\nMuchas gracias.\n\n\n\nNos leemos!!','',0,'gA==','ic854qfq',1,0,'',88,0,0),(2063,540,3,6,0,'82.59.188.26',1132156566,1,0,1,1,1,1,'','Re: About &quot;&amp;&quot; character in Resources Dialogs','Works fine for me:\n\n[code:12m6yu1j]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           TITLE &quot;This is a &amp; test&quot;\n\n    @ 1, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:12m6yu1j]\n\nEMG','',0,'AIA=','12m6yu1j',1,0,'',6,0,0),(2064,530,6,92,0,'62.151.120.10',1132156661,1,0,1,1,1,0,'','Re: redimensionar dialogos...','[quote=&quot;Francisco Horta&quot;:3pzkbvqj]Hola foro,\nse que en alguna ocasion se toco el temo, pero lo encontre..\nTengo dialogos diseñados para una resolucion de 800x600 pero si mi resolucion es mayo quiero que el dialogo se ajuste al tamaño nuevo de resolucion incluyendo controles, sera posible?\ngracias\nPaco[/quote:3pzkbvqj]\n\nYo utilizo esta función:\n\n/* ******************** */\n#Include \"FiveWin.ch\"\n\n/*\n   Los parámetros recibidos son:\n     oWnd:          Objeto/ventana/diálogo/control a ser redimensionado.\n     nResolution:   Número que identifica que resolución tenía la pantalla en la cual\n                    se diseñó el objeto.\n     lRepaint:      Indicador de si debe repintarse el objeto una vez redimensionado.\n\n   Esta función permitirá que una aplicación desarrolada en un PC con una resolución\n   de pantalla de por ejemplo 1024 x 768 (nResolution valdría en este caso 3), se vea\n   redimensionada proporcionalmente en un PC con una resolución diferente, ya sea mayor\n   o menor.\n\n   A falta de perfeccionar el código, se comprueba solamente la variación de la anchura\n   de la resolución de la pantalla para aplicar la variación del tamaño, aunque cuando\n   ello se realiza se hace tanto en la anchura como en la altura.\n\n   Esta función está orientada a ser utilizada en el evento ON INIT del ACTIVATE\n   de las WINDOW y DIALOG con un valor fijo de lRepaint a .T. o sin él.\n   Además también puede utilizarse directamente sobre un control definido posteriormente\n   a la ACTIVACIÓN de su contenedor ya sea éste WINDOW o DIALOG, con la salvedad que\n   lRepaint debe valer .T. para forzar su repintado.\n\n   Ejemplos de uso:\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n          ACTIVATE oWnd ON INIT AutoResize( oWnd, 3 )\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n\n          @ 185.50,8.00 TABS oTabs OF oWnd ITEMS \"Tab1\",\"Tab2\",\"Venga a ordenarrrrr!!\" ;\n          PIXEL COLORS CLR_BLUE,CLR_HCYAN SIZE 288.00,9.00 MESSAGE \"Mensaje del Tabs\"\n\n          AutoResize( oTabs, 3, .T. )\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n*/\n\nFUNCTION AutResiz( oWnd, nResolution, lRepaint )\n\n// Resolución de la pantalla en el momento de definir los controles.\nLocal nOriWidth, nOriHeight\n\n// Resolución actual de la pantalla.\nLocal nWidth, nHeight\n\n// Son la relación entre la resolución de pantalla y la resolución de diseño.\nLocal nFactorWitdh, nFactorHeight\n\nLocal nContador\n\nDEFAULT lRepaint := .T.\n\nnOriWidth  := 0\nnOriHeight := 0\nnWidth     := 0\nnHeight    := 0\nnContador  := 0\n\nIf nResolution = 1\n    nOriWidth  := 640\n    nOriHeight := 480\nElseIf nResolution = 2\n    nOriWidth  := 800\n    nOriHeight := 600\nElseIf nResolution = 3\n    nOriWidth  := 1024\n    nOriHeight := 768\nElseIf nResolution = 4\n    nOriWidth  := 1152\n    nOriHeight := 864\nElseIf nResolution = 5\n    nOriWidth  := 1280\n    nOriHeight := 1024\nElseIf nResolution = 6\n    nOriWidth  := 1600\n    nOriHeight := 1200\nElse\n    ScrResolution( @nOriWidth, @nOriHeight )\nEndif\n\nScrResolution( @nWidth, @nHeight )\n\n/*\nTraza( 1, \"nOriWidth=\", nOriWidth )\nTraza( 1, \"nOriHeight=\", nOriHeight )\n\nTraza( 1, \"nWidth=\", nWidth )\nTraza( 1, \"nHeight=\", nHeight )\n*/\n\n//Traza( 1, \"oWnd:ClassName()=\", oWnd:ClassName()  )\n\nIf nOriWidth != nWidth // .or. nOriHeight != nHeight\n\n    nFactorWitdh  := nWidth / nOriWidth\n    nFactorHeight := nHeight / nOriHeight\n\n    //oWnd:CoorsUpdate()\n\n    If lRepaint\n        oWnd:Hide()\n    EndIf\n\n    If nFactorWitdh &gt; 1 // .or. nFactorHeight &gt;= 1\n\n        //Traza( 1, \"Aumentando tamaño.\" )\n\n        If oWnd:ClassName() == \"kalimeroquetequiero\"\n        ElseIf oWnd:ClassName() $ \"/TJ02LISMN/TLISTBOX/\"\n/*            Traza( 1, \"oWnd:nTop=\", oWnd:nTop )\n            Traza( 1, \"oWnd:nLeft=\", oWnd:nLeft )\n            Traza( 1, \"oWnd:nWidth=\", oWnd:nWidth )\n            Traza( 1, \"oWnd:nHeight=\", oWnd:nHeight )\n*/\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight , ;\n                       .F. )\n        Else\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight * nFactorHeight , ;\n                       .F. )\n        EndIf\n    EndIf\n\n    If oWnd:ClassName() == \"TFOLDER\"\n//        Traza( 1, \"ValType(oWnd:aDialogs)=\", ValType(oWnd:aDialogs) )\n        If ValType( oWnd:aDialogs ) = \"A\"\n            For nContador := 1 To Len( oWnd:aDialogs )\n                AutResiz( oWnd:aDialogs[nContador], nResolution, .F. )\n            EndFor\n        EndIf\n      Else\n//        Traza( 1, \"ValType(oWnd:aControls)=\", ValType(oWnd:aControls) )\n        If ValType( oWnd:aControls ) = \"A\"\n            For nContador := 1 To Len( oWnd:aControls )\n                AutResiz( oWnd:aControls[nContador], nResolution, .F. )\n            EndFor\n        EndIf\n    EndIf\n\n    If nFactorWitdh &lt; 1 // .or. nFactorHeight &lt; 1\n\n        //Traza( 1, \"Disminuyendo tamaño.\" )\n\n        If oWnd:ClassName() == \"kalimeroquetequiero\"\n        ElseIf oWnd:ClassName() $ \"/TJ02LISMN/TLISTBOX/\"\n/*            Traza( 1, \"oWnd:nTop=\", oWnd:nTop )\n            Traza( 1, \"oWnd:nLeft=\", oWnd:nLeft )\n            Traza( 1, \"oWnd:nWidth=\", oWnd:nWidth )\n            Traza( 1, \"oWnd:nHeight=\", oWnd:nHeight )\n*/\n\n            //Traza( 1, \"oWnd:nRight=\", oWnd:nRight )\n            //Traza( 1, \"oWnd:nBottom=\", oWnd:nBottom )\n\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight , ;\n                       .F. )\n            //oWnd:SetSize( oWnd:nWidth * nFactorWitdh, oWnd:nHeight * nFactorHeight, .T. )\n/*            Traza( 1, \"oWnd:nTop=\", oWnd:nTop )\n            Traza( 1, \"oWnd:nLeft=\", oWnd:nLeft )\n            Traza( 1, \"oWnd:nWidth=\", oWnd:nWidth )\n            Traza( 1, \"oWnd:nHeight=\", oWnd:nHeight )\n*/\n        Else\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight * nFactorHeight , ;\n                       .F. )\n        EndIf\n    EndIf\n\n    If lRepaint\n        oWnd:Show()\n    EndIf\n\nEndIf\n\n\n/* ******************** */\n\nSaludos\nCarlos G.','',0,'gA==','3pzkbvqj',1,0,'',92,0,0),(2065,540,3,6,0,'82.59.188.26',1132157034,1,0,1,1,1,1,'','Re: About &quot;&amp;&quot; character in Resources Dialogs','Ops. This is from resources (works fine either):\n\n[code:m5lgf9uv]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBut\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;TEST&quot;\n\n    REDEFINE BUTTON oBut PROMPT &quot;&amp;Close&quot;;\n             ID 201 OF oDlg;\n             ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:m5lgf9uv]\n\n[code:m5lgf9uv]TEST DIALOG 40, 27, 194, 119\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;This is a &amp; test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;&amp;Close&quot;, 201, 12, 96, 50, 14\n&#125;[/code:m5lgf9uv]\n\nEMG','',0,'AIA=','m5lgf9uv',1,0,'',6,0,0),(2066,539,4,6,0,'82.59.188.26',1132157208,1,0,1,1,1,1,'','Re: For Run Sound Wave From Resource And Wave File','This is a working sample:\n\n[code:1muzlnfp]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 BUTTON &quot;&amp;Play&quot;;\n           SIZE 60, 30;\n           ACTION SNDPLAYSOUND&#40; CURDIR&#40;&#41; + &quot;\\SOUND&#46;WAV&quot; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;mmsystem&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\n\nHB_FUNC&#40; SNDPLAYSOUND &#41;\n&#123;\n    LPWSTR pW = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;;\n    hb_retnl&#40; sndPlaySound&#40; pW, hb_parni&#40; 2 &#41; &#41; &#41;;\n    hb_xfree&#40; pW &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:1muzlnfp]\n\nEMG','',0,'AIA=','1muzlnfp',1,0,'',6,0,0),(2067,541,2,138,0,'201.128.111.75',1132159303,1,0,1,1,1,1,'','','Depende cuanto quieras gastarte.\n\nSi utilizas FWH, entonces solo tienes que actualizar tu FW a FWH y listo, el resto de las herramientas son gratuitas, Harbour, los compiladores de C, etc, todo se puede adquirir sin costo.\n\nSi utilizas FW++,  ademas de comprar la actualizacion de FWH, tendras que comprar el compilador XBase++ de Alaska Software (599.00 USD), y hacer algunas modificaicones al codigo para utilizar los XBase parts para manejar las bases de datos.','',0,'AIA=','1nvd0aed',1,0,'',138,0,0),(2068,428,20,263,0,'87.6.217.245',1132161111,1,0,1,1,1,0,'','','Installato xH.\nHo ricompilato le fwh, tutto ok.\nHo ricompilato l\'applicativo, nessun errore.\nIn esecuzione l\'applicativo parte ma esce subito senza dare errore <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nDopo tante, tante modifiche e prove ho notato che l\'applicativo esce, senza errore, quando esegue funzioni con un dlg (siano essi da dll che da rc incluso nell\'exe).  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nho provato a compilare esempi con dlg presenti nelle fw e tutto va bene. \nDall\'aprile scorso, è cambiato qualche cosa?','',0,'AIA=','38afee3k',1,0,'',263,0,0),(2069,428,20,6,0,'82.59.188.26',1132161535,1,0,1,1,1,1,'','','Direi di sì, sono passati parecchi mesi da allora! Però non saprei dirti quale cambiamento sta influenzando negativamente la tua applicazione. Ma se gli esempi funzionano allora non ti dovrebbe essere difficile risalire, un passo alla volta, alla causa, no?\n\nEMG','',0,'AIA=','2its9teg',1,0,'',6,0,0),(2070,535,3,61,0,'200.40.245.81',1132161662,1,0,1,1,1,0,'','Nueva version','Maurilio:\n\nEsta la version 1.2 en la página de Juan Carlos\n\nla direccion es \n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','14dopef1',1,0,'',61,0,0),(2071,535,3,217,0,'200.153.134.92',1132163503,1,0,1,1,1,0,'','Re: Nueva version','[quote=&quot;RuFer&quot;:2btay8sz]Maurilio:\n\nEsta la version 1.2 en la página de Juan Carlos\n\nla direccion es \n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\nSaludos\n\nRuben Fernandez[/quote:2btay8sz]\n\nGracias, Ruben!\n\nSaludos de Brasil!\nMaurilio','',0,'gA==','2btay8sz',1,0,'',217,0,0),(2072,428,20,263,0,'87.3.226.51',1132164083,1,0,1,1,1,0,'','','E\' \'na parola!\nVedo che sei sempre vigile <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nPurtroppo l\'applicativo è complicato anche da scomporre <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nUn cambiamento avvenuto e dal quale cominciare?\nComunque la vedo dura e quasi quasi lascio tutto come prima, anche se prima o poi dovrò affrontare il problema.','',0,'gA==','1qodypim',1,0,'',263,0,0),(2073,532,7,2,0,'80.58.2.107',1132164683,1,0,1,1,1,1,'','','[quote=&quot;astursoft&quot;:2flgf9f8]Si ejecuto  msginfo(cDow(date())) , de da algo como \" Mi,rcoles\"  , tengo puesto HB_LANGSELECT(\"ES\").[/quote:2flgf9f8]\n\nTienes que usar \"ESWIN\" en vez de \"ES\":\n\nREQUEST HB_LANG_ESWIN\n\nHB_LANGSELECT( \"ESWIN\" )\n\nVamos a revisar lo demás que nos comentas.','',0,'gA==','2flgf9f8',1,0,'',2,0,0),(2074,541,2,2,0,'80.58.2.107',1132165108,1,0,1,1,1,1,'','','Lafic,\n\nRecomendamos FWH como el producto más popular ampliamente utilizado por nuestros usuarios.\n\nPuedes adquirirlo desde nuestras páginas web en:\n\n<!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m -->','',0,'gA==','2mdgpkd2',1,0,'',2,0,0),(2075,542,2,2,0,'80.58.2.107',1132165167,1,0,1,1,1,1,'','','Lafic,\n\nRecomendamos FWH sin duda alguna. \n\nPodeis adquirirlo desde: <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m -->','',0,'gA==','3ct29d1y',1,0,'',2,0,0),(2076,544,6,8,0,'213.45.250.231',1132169990,1,0,1,1,1,0,'','For Hernan ...','I have tried yours modified twbrowse release 1.5 and I have found much profit to it for me. Where I can find one more recent version ?\nTIA\nRoberto Lotronto.','',0,'gA==','2i7w5t9g',1,0,'',8,0,0),(2077,293,1,293,0,'83.132.103.115',1132170169,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:273oo519]You may review <!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com/\">http://www.viaopen.com/</a><!-- m -->[/quote:273oo519]\n\nCaro amigo Linares\n\nFiz o download do viacdr10a_demo03.zip  e no demo03.prg tem uma instrução oCDR := VIACDR():New() cuja function não se encontra no ficheiro PRG.\n\nSeria possivel ajudar-me neste meu problema??\n\nMuito obrigado\n\nJulio Fernandes','',0,'gA==','273oo519',1,0,'',293,0,0),(2078,376,6,147,0,'200.68.215.7',1132171409,1,0,1,0,1,1,'','','Donde se lee sobre la particularidades desta función?\nNo la encuentro ni en las ayuda de FWH ni en las de xHarbour (los txt que tengo)\n\ngracias','',0,'gA==','3p7elmoc',1,0,'',147,0,0),(2079,500,6,147,0,'200.68.215.7',1132171973,1,0,1,0,1,1,'','','Abrís tu .rc seleccionas un recurso, con boton derecho, y lo editas com \"Edit as Text...\". Los controles Borland se ven así:\n\n[code:2et8dx3d] &#123;\n CONTROL &quot;Check&quot;, IDC_CHECKBOX1, &quot;&#91;color=red&#93;Bor&#91;/color&#93;Check&quot;, BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 22, 19, 34, 10\n CONTROL &quot;Radio&quot;, IDC_RADIOBUTTON1, &quot;&#91;color=red&#93;Bor&#91;/color&#93;Radio&quot;, BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 26, 41, 32, 10\n CONTROL &quot;Text&quot;, -1, &quot;&#91;color=red&#93;Bor&#91;/color&#93;Static&quot;, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 30, 59, 16, 8\n&#125;\n[/code:2et8dx3d]','',0,'AIA=','2et8dx3d',1,0,'',147,0,0),(2080,500,6,147,0,'200.68.215.7',1132172228,1,0,1,0,1,1,'','','Bueno... sorry... quice resaltarlo con color pero parece que no va dentro del codigo :-)\n[color=red:2zvqdl74]Bor[/color:2zvqdl74]Check\n[color=red:2zvqdl74]Bor[/color:2zvqdl74]Radio\n[color=red:2zvqdl74]Bor[/color:2zvqdl74]Static','',0,'Ag==','2zvqdl74',1,0,'',147,0,0),(2081,520,3,238,0,'200.78.127.215',1132172528,1,0,1,1,1,0,'','','Antonio, en que consiste la classe TEdit, disculpa mi ignorancia...\n\n\n[quote=&quot;Antonio Linares&quot;:2j06j8ii]Dan,\n\nJust reviewing whatsnew.txt:\n\n* Class TActiveX \n* Class TButtonBmp\n* Class THeader\n* Class TEdit (not included in FW yet, just provided on tech support)\n\nBesides those, you may also consider the 64 bits version of all of them for FWH64 bits (developed in May 2005) and the ones adapted (29 classes) to FiveWin for Pocket PC since June 2005, a product that is becoming a great tool for xbase developers.[/quote:2j06j8ii]','',0,'gA==','2j06j8ii',1,0,'',238,0,0),(2082,545,3,69,0,'206.210.97.138',1132172679,1,0,1,1,1,0,'','Exporting to HL7','Hi Everybody,\n\nHas anyone ever designed a way to export data to the medical standard\nHL7  (Health Level 7) ??\n\nThanks,\n\nJeff','',0,'gA==','3emfspwx',1,0,'',69,0,0),(2083,546,2,294,0,'201.255.245.202',1132175984,1,0,1,1,1,0,'','Como re-abrir una ventana?','Estoy haciendo una aplicacion con ventanas MDI. Quisiera que cuando clickeo otra vez en el menu para abrir la ventana, si esta ya tiene una instancia abierta, le de el control a esta y la ponga como activa y en tamaño normal (para el caso de que el usuario la haya minimizado). \nComo puedo hacerlo.\nDesde ya muchas gracias','',0,'gA==','1o4rvuhf',1,0,'',294,0,0),(2084,526,3,255,0,'200.67.134.233',1132176632,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:39ykmewz]Like to try your product .. do you have an English version ??\n\nRick Lipkin\nSC Dept of Health, USA[/quote:39ykmewz]\n\ni\'m sorry, but so far, there is no english version <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\ni hope to release it soon.\n\nRegards','',0,'gA==','39ykmewz',1,0,'',255,0,0),(2085,293,1,2,0,'80.58.2.107',1132179356,1,0,1,1,1,1,'','','Julio,\n\nFrom its web site you may contact <!-- e --><a href=\"mailto:support@viaopen.com\">support@viaopen.com</a><!-- e -->','',0,'gA==','21u324sp',1,0,'',2,0,0),(2086,520,3,2,0,'80.58.2.107',1132179431,1,0,1,1,1,1,'','','Tosko,\n\nClass TEdit is a prototype for those countries where characters may use two keystrokes, like China, Japan, etc.','',0,'gA==','byqhjaxf',1,0,'',2,0,0),(2087,546,2,2,0,'80.58.2.107',1132179577,1,0,1,1,1,1,'','','Puedes usar:\n\n&lt;oMdiFrame&gt;:Select( &lt;nWindow&gt; ) en donde &lt;nWindow&gt; es el número de ventana mdichild a activar.','',0,'gA==','1ne8eovw',1,0,'',2,0,0),(2088,376,6,2,0,'80.58.2.107',1132179863,1,0,1,1,1,1,'','','Mario,\n\nhb_xfree( void * ) es una función de Harbour/xharbour para liberar memoria solicitada con hb_xgrab( &lt;nBytes&gt; ) --&gt; void *.\n\nEse error se debe a que se le ha suministrado un puntero a una zona de memoria que está mal (excede el tamaño que alojó).\n\nBusca en la documentación de Clipper por _xfree() en la documentación del sistema extendido.','',0,'gA==','26wb5l9d',1,0,'',2,0,0),(2089,546,2,294,0,'201.255.245.202',1132180962,1,0,1,1,1,0,'','','Gracias Antonio','',0,'gA==','24gg0wrw',1,0,'',294,0,0),(2090,547,6,93,0,'201.138.31.44',1132185515,1,0,1,1,1,0,'','xBrowse y DESCENDING','Alguien sabe por que al usar un indice descendente el xBrowse se vuelve loco? alguien ha corregido esto?\n\nMuchas gracias.\n\nFernando Castro\nMéxico, D.F.','',0,'gA==','2sn0o11y',1,0,'',93,0,0),(2091,548,2,295,0,'201.222.147.194',1132189353,1,0,1,1,1,1,'','FUNCION CGETDIR NO MUESTRA UNIDADES EN XP Y 2000 PORQUE?','por que la funcion cgetdir no muestra las unidades disponibles en Xp o 2000 no asi en W98\nagradeciendo vuestra ayuda les mando un abrazo y saludos <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->\n\nps muy bueno el nuevo foro, es fantástico volver a tener esta valiosa ayuda','',0,'gA==','1we7ihxh',1,0,'',295,0,0),(2092,528,2,10,0,'212.40.255.188',1132194583,1,0,1,1,1,0,'','','Gracias Antonio por tu rápida respuesta.\n\nMira que pensé en un determinado momento, hace tiempo, bajarme casi todo lo que había para evitar estar conectado, pero nunca pensé que la página fuera dada de baja.\n\nA ver si alguien que los tenga colabora y la comunidad de FW puede disponer de tantos ficheros, tips y soluciones que había en dicha página.\n\nUn saludo.\nAntonio Aguilar','',0,'gA==','2622cpsl',1,0,'',10,0,0),(2093,549,6,138,0,'201.128.111.75',1132194985,1,0,1,1,1,1,'','OT: Vickthor Tomas en radio....','Hola a todos:\n\nComo Vickthor es muy timido para invitarlos a todos, pues los invito yo a que escuchen su programa de radio que se llama...........\n\nLISTO EL POLLO !!!!!! (de que otra manera ??)\n\nQue se transmite via internet los Martes / Miercoles y Jueves de 8 a 9:30 de la noche, hora de la ciudad de Mexico (GMT -6)\n\nAdemás estare con el porque me ha invitado a participar en una entrevista el dia de hoy Jueves 17 de Noviembre.\n\nComo sintonizarlo ??? muy facil, entren a esta pagina:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.creswin.com/radio\">http://www.creswin.com/radio</a><!-- m -->\n\ny ahi encontraran las instrucciones para utilizar Windows Media Player, Winamp, Real Player o ITunes.....\n\nEl programa de Vickthor trata sobre programacion en fiveWin Harobur, y ademas puedes opinar en vivo via Messenger.','',0,'gA==','3k9fgecd',1,0,'',138,0,0),(2094,500,6,251,0,'201.248.64.57',1132199017,1,0,1,1,1,0,'','','[quote=&quot;MarioG&quot;:3epc0im9]Bueno... sorry... quice resaltarlo con color pero parece que no va dentro del codigo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[color=red:3epc0im9]Bor[/color:3epc0im9]Check\n[color=red:3epc0im9]Bor[/color:3epc0im9]Radio\n[color=red:3epc0im9]Bor[/color:3epc0im9]Static[/quote:3epc0im9]\n\ngracias por ayudarme, pero aun no me quedo claro cuales son las diferencias, es que no se como diferenciarlos\n\nde antemano gracias\n\nDi Gregorio- Caracas','',0,'gg==','3epc0im9',1,0,'',251,0,0),(2095,550,12,292,0,'200.84.200.179',1132201745,1,0,1,1,1,1,'','Compilar varios PRG','Colegas,\nNecesito compilar varios PRG con FiveLinux al estilo RMK y LNK que usamos tradicionalmente en Guindows.\n\nSaludos\nJuan Navas','',0,'gg==','3g4qqzf9',1,0,'',292,0,0),(2096,549,6,18,0,'201.129.2.108',1132202171,1,0,1,1,1,1,'','','Master , muchas gracias por el anuncio.\n\nLa página que publicaste es la programación que tiene la estación.\n\nLos enlaces los pueden ver en :\n\n<!-- m --><a class=\"postlink\" href=\"http://radio.creswin.com\">http://radio.creswin.com</a><!-- m -->','',0,'gg==','390meg56',1,0,'',18,0,0),(2097,551,12,292,0,'200.84.200.179',1132202920,1,0,1,1,1,1,'','Editor de textos para PRG?','Colegas,\nAlgún buen editor de textos para ficheros PRG?','',0,'gg==','25xib0oe',1,0,'',292,0,0),(2098,315,6,18,0,'201.129.2.108',1132202955,1,0,1,1,1,1,'','Re:','[quote=&quot;thefull&quot;:1lfi5xxk]Seria interesante que aprendieras a bajarte directamente desde el CVS la version o desde una fecha enconcreta, terminaras antes <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSi tienes como cliente el Tortuise , es relavativamente sencillo indicar que\nquieres bajarte , chekcout , de una fecha en concreta, al menos, que te acuerdes que te funcionaba bien.\n\nVete a la pestaña revision.\nMarca Files at certain time y selecciona la fecha que te interesa bajar como estaba en ese momento el compilador.\n\nPara que no entre en conflicto con el directorio que tienes, puedes indicar en la pestaña Options , Selecciona \"Enter your own folder name\", y ponle el nombre que quieres que te deje ahi el harbour que te vas a bajar.\n\nSi aprendes esto, cuando veas que han realiza alguna cosa que no funciona bien, puedes coger la version anterior, y al menos , no perderas tiempo inutilmente <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->[/quote:1lfi5xxk]\n\nRafa :\n\nTengo la versión 1.8.11 de Tortoise CVS  y no veo las opciones que indicas.','',0,'gA==','1lfi5xxk',1,0,'',18,0,0),(2099,552,12,292,0,'200.84.200.179',1132204551,1,0,1,1,1,1,'','Browse VSCROLL','Antonio,\nCompile y corre testbrow.prg y el scroll vertical cuando es movido con el mouse no se mueven los registros, por lo contrario si se mueven los registros el scroll si se refresca.','',0,'gA==','30h2ibti',1,0,'',292,0,0),(2100,553,3,289,0,'212.138.64.176',1132208437,1,0,1,1,1,0,'','Function For Read Avi  File From Resource','Welcome For All\nI Am  Write Function For Read Avi  File  From Resource \nAnd Read Gif File But Size Not Good And Gif Not  Work With Windows 98.\nTo View Full Source File Is In <!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/test_md.zip\">http://www.livesystem.net/test_md.zip</a><!-- m -->\nI Hope Help From All  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/b]','',0,'Bg==','1r4yj7mo',1,0,'',289,0,0),(2101,540,3,195,0,'62.38.25.160',1132210246,1,0,1,1,1,0,'','About &quot;&amp;&quot; character in Resources Dialogs','GoodMorning  Enrico\n\nThe dialogs is contained into a dll it dosen\'t works for me but i  live\nwithout it.  I changed it to onother setence. Many thanks for your code and your valued help to all of us.\n\nGreetings from Greece\n\nDionisis','',0,'Bg==','v24wtesw',1,0,'',195,0,0),(2102,551,12,2,0,'80.58.2.107',1132217634,1,0,1,1,1,1,'','','Juan,\n\nKate es excelente, ademas te mantiene una ventana de comandos abajo, con lo que puedes probar tu aplicación sin salir de Kate.','',0,'Bg==','2h0ddcat',1,0,'',2,0,0),(2103,550,12,2,0,'80.58.2.107',1132217845,1,0,1,1,1,1,'','','Juan,\n\nSi no son muchos los PRGs, puedes usar un fichero .SH que es equivalente a lo que sería un fichero .BAT.\n\nRevisa samples\\build.sh para que veas como se usa.','',0,'Bg==','g7cd2cw5',1,0,'',2,0,0),(2104,552,12,2,0,'80.58.2.107',1132217882,1,0,1,1,1,1,'','','Juan,\n\nVamos a revisarlo. Gracias.','',0,'Bg==','1veionuk',1,0,'',2,0,0),(2105,315,6,2,0,'80.58.2.107',1132218265,1,0,1,1,1,1,'','','El CVS (cvs.exe) es lo más sencillo de usar para disponer de lo más actualizado:\n\ncvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/harbour-project login   (pulsar enter)\n \ncvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/harbour-project co -P harbour\n\n(copiado literalmente desde <!-- w --><a class=\"postlink\" href=\"http://www.sourceforge.net\">www.sourceforge.net</a><!-- w -->, sección cvs del Proyecto Harbour).','',0,'Bg==','iwh8p8km',1,0,'',2,0,0),(2106,536,4,277,0,'81.72.105.247',1132221317,1,0,1,1,1,0,'','Re: New FWPPC build with TBtnBmp fix','[quote=&quot;Antonio Linares&quot;:9j2szjmf]We have just published a new FWPPC build that fixes a problem of using many bitmapped buttons. Now it is ok.[/quote:9j2szjmf]\n\nMany thanks, it works perfectly.\n\nClaudio','',0,'gA==','9j2szjmf',1,0,'',277,0,0),(2107,554,3,47,0,'203.144.143.3',1132221497,1,0,1,1,1,0,'','FW conversion to xHB/FWH question','Dear All,\n\n1. I try to convert FW to xHb/FWH.  The problem is Dialog that was created by Resource Workshop, the size has been changed.  I use RC2DLL32.BAT.\n2. What does the tool I\'m going to use instead of Resource Workshop?\n\nThanks,\nDutch <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','yfijq6xx',1,0,'',47,0,0),(2108,555,4,289,0,'212.138.64.177',1132222125,1,0,1,1,1,0,'','I Am End  Function serial number For Pocket PC','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Hello All\n  I Am End  Function serial number For Pocket PC \n  This Function Now works 100%\n  But Not (Emie)  serial number\n  He is Identical Library Dll (SMSpec.DLL)\n  Thank For each Human He  Aid Me\n  ----------------\n  Regards, Hathal\n  \n\n\n// Serial number\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd\n    DEFINE WINDOW oWnd TITLE \"Serial N?\"\n\n   @ 2, 2 BUTTON \"Serial N?\" SIZE 80, 25 ACTION MsgInfo(SerialNumber(),str(len(SerialNumber()) ))\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n#pragma BEGINDUMP \n\n#include &lt;hbapi.h&gt; \n#include &lt;windows.h&gt; \n#include &lt;uniqueid.h&gt;  \n\n// Function serial number For Pocket PC \n// vce source code\n// by hathal\n HB_FUNC( SERIALNUMBER )\n{\nDWORD dwOutBytes;\nconst int nBuffSize = 4096;;\nchar strDeviceInfo[200]=\"\";\nbyte arrOutBuff[nBuffSize];\nchar strNextChar[20]=\"\";\nchar  SerialNo[18]=\"\";\n BOOL bRes = KernelIoControl(IOCTL_HAL_GET_DEVICEID,\n0, 0, arrOutBuff, nBuffSize,\n&amp;dwOutBytes);\nif (!bRes)\n{\nMessageBox( GetActiveWindow(),_T(\"could not retrieve serial number\"),_T(\"Error\"),0);\nhb_retc(\"0\");\n}\nfor (unsigned int i = 0; i&lt;dwOutBytes; i++)\n{\n sprintf(strNextChar,\"%02X\", arrOutBuff[i]);\n strcat(strDeviceInfo,strNextChar);\n}\nmemcpy(SerialNo, strDeviceInfo+40, 2);\nmemcpy(SerialNo+2, strDeviceInfo+45,9);\nmemcpy(SerialNo+11, strDeviceInfo+70,6);\nmemcpy(SerialNo+17, \"\\0\",1);\nhb_retc(SerialNo);\n} \n#pragma ENDDUMP   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n[b:cw5qa8qh][/b:cw5qa8qh]','',0,'Rg==','cw5qa8qh',1,0,'',289,0,0),(2109,556,3,297,0,'217.57.213.130',1132225942,1,0,1,1,1,0,'','error.log','Stack Calls\n===========\n   Called from REF_VAR(938)\n   Called from EDITSCHE(93)\n   Called from VAL_REL2(380)\n\nis it possibile to add \"in module &lt;nameofprgfile&gt; ? \" information for each row\n?','',0,'Rg==','7bdkorjs',1,0,'',297,0,0),(2110,555,4,150,0,'62.15.121.164',1132228927,1,0,1,1,1,1,'','','Hello\n\nIn my hp ipaq it says:\n\n\"could not retrieve serial number\"\n\nand after a message box with 13 in the heading','',0,'Rg==','2s1ztkg7',1,0,'',150,0,0),(2111,534,3,217,0,'200.153.134.9',1132229767,1,0,1,1,1,0,'','Re: Exiting when click out of a dialog','Thanks a lot, Enrico!\n\nRegards,\nMaurilio','',0,'Rg==','1uuhhr0o',1,0,'',217,0,0),(2112,556,3,6,0,'87.6.213.203',1132230588,1,0,1,1,1,1,'','Re: error.log','I agree. It would be useful.\n\nEMG','',0,'Rg==','ier1ow79',1,0,'',6,0,0),(2113,554,3,6,0,'87.6.213.203',1132230669,1,0,1,1,1,1,'','Re: FW conversion to xHB/FWH question','Try using RESIZE16 clause of ACTIVATE DIALOG command.\n\nEMG','',0,'Rg==','1f1efbhv',1,0,'',6,0,0),(2114,536,4,6,0,'87.6.213.203',1132230712,1,0,1,1,1,1,'','Re: New FWPPC build with TBtnBmp fix','Great! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'Rg==','2ep13tis',1,0,'',6,0,0),(2115,531,19,233,0,'60.48.220.106',1132232936,1,0,1,1,1,0,'','Re: Where\'s James Bott?','[quote=&quot;EnricoMaria&quot;:3hnkfcxs]I\'ve just sent a message to his private email...\n[/quote:3hnkfcxs]\n\nThat\'s quick <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nHope everything\'s fine with him','',0,'gA==','3hnkfcxs',1,0,'',233,0,0),(2116,557,1,204,0,'83.235.229.23',1132233066,1,0,1,1,1,0,'','Two DLLs and one app','How can I use more than one dll in my app.\nIn the main prg file I add this line\n[code:3g4bce66]\nSET RESOURCES TO “A&#46;DLL”, “B&#46;DLL”\n[/code:3g4bce66]\nWhen I call something from A.DLL all is ok. When I call something from B.DLL it doesn’t show. Do I have to use SetResource(cDllName) before and after each call to B.DLL. Is there a way to make my app id both dlls automatically?\nThanks','',0,'AIA=','3g4bce66',1,0,'',204,0,0),(2117,531,19,6,0,'87.6.213.203',1132233752,1,0,1,1,1,1,'','Re: Where\'s James Bott?','No response so far... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','n8ns9rq0',1,0,'',6,0,0),(2118,558,6,53,0,'148.221.81.39',1132236452,1,0,1,1,1,1,'','Tiene alguien HBOle.Lib ?','Amigos:\n\nTiene alguien la lib HBOle de José Gimenez que quiera compartirla ?, o que me ayude a corregir el error que me tira al compilar los fuentes\n\nC:\\HBOle\\Source\\Ole2.c  311:Call to function \'hb_vmMessage\' with no prototype in function GetParams\n\nHarbour 44 y FHW 2.5\n\nSaludos y gracias','',0,'AIA=','34175ahx',1,0,'',53,0,0),(2119,559,7,262,0,'83.97.168.9',1132236715,1,0,1,1,1,0,'','Unas preguntas','Existe ya alguna functión para desplegar el teclado ?( al entrar en un get por ejemplo).\nMe parecío haber leido algo al respecto , pero no lo encuentro en las news , ni en el foro .','',0,'AIA=','2zs3nro6',1,0,'',262,0,0),(2120,496,6,199,0,'168.243.152.157',1132239685,1,0,1,1,1,1,'','','Gracias,  sabes esta EXCELENTE  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->   <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'AIA=','2dy861so',1,0,'',199,0,0),(2121,555,4,277,0,'81.72.105.247',1132240273,1,0,1,1,1,0,'','','[quote=&quot;josevalle&quot;:39j3ye1j]Hello\n\nIn my hp ipaq it says:\n\"could not retrieve serial number\"\nand after a message box with 13 in the heading[/quote:39j3ye1j]\n\nOn my Acer N50 it give me an alphabumeric string \n17 chars lenght.\n\nPerhaps ipaq hardware don\'t implement seral number?\n\nTry eVC4 demo called GetUUID, that do approximately\nthe same thing. If you like i can send it by e-mail.\n\nClaudio.','',0,'gA==','39j3ye1j',1,0,'',277,0,0),(2122,555,4,289,0,'212.138.64.176',1132240914,1,0,1,1,1,0,'','View This Source','Hello \nHp ipaq Not Support This Function\nView This Source\nI Am not testing \nA sample code for iPAQ: \n\nCString GetSerialNumber() \n{\n // Start CreateAssetFile.exe\n PROCESS_INFORMATION pi;\n if (!::CreateProcess(TEXT(\"\\\\windows\\\\CreateAssetFile.exe\"), \n         NULL, NULL, NULL, FALSE, 0, NULL, NULL, NULL, &amp;pi)) \n { \n  m_strCompaqIpaqId = _T(\"\");\n  m_strErrorMessage += _T(\"Cannot run \\\\windows\\\\CreateAssetFile.exe file.\");\n  return TEXT(\"\");\n }\n \n // Wait until CreateAssetFile.exe will be finished\n ::WaitForSingleObject(pi.hProcess, INFINITE);\n \n // Read data from cpqAssetData.dat file\n HANDLE hInFile;\n TCHAR strSN[65]; \n DWORD dwBytesRead;   \n hInFile = CreateFile(TEXT(\"\\\\windows\\\\cpqAssetData.dat\"), GENERIC_READ, \n           FILE_SHARE_READ, NULL, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0); \n \n if (hInFile == INVALID_HANDLE_VALUE) { \n  m_strCompaqIpaqId = _T(\"\");\n  m_strErrorMessage += _T(\"Cannot read \\\\windows\\\\cpqAssetData.dat file.\");\n  return TEXT(\"\"); \n } \n \n SetFilePointer(hInFile, 976, NULL, FILE_BEGIN); \n memset(strSN, 0, 64 * sizeof(TCHAR)); \n ReadFile(hInFile, &amp;strSN, 64, &amp;dwBytesRead, NULL); \n CloseHandle(hInFile);\n \n return CString(strSN);\n}\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> ','',0,'Rg==','cq7dpjhy',1,0,'',289,0,0),(2123,491,6,97,0,'200.33.72.30',1132242338,1,0,1,1,1,1,'','Patricio gracias por contestar, pero no hace el despliegue','En un principio pense que era eso que comentas, pero lo redimencion el dbcombo y el campo lo reduje, pero sigue sin hacer el despliegue de la informacion.','',0,'Rg==','1h7liyel',1,0,'',97,0,0),(2124,530,6,73,0,'200.67.53.35',1132244462,1,0,1,1,1,0,'','Re: redimensionar dialogos...','Hola Carlos,\n\nme tira error ...','',0,'Rg==','t5u76qab',1,0,'',73,0,0),(2125,496,6,21,0,'80.58.46.235',1132246408,1,0,1,1,1,1,'','','Hola Daniel.\n\nde nada y gracias a ti por usarlo.','',0,'Rg==','21nm03cz',1,0,'',21,0,0),(2126,560,1,298,0,'201.249.120.148',1132248516,1,0,1,1,1,0,'','Programa tipo Servicio de Windows','Saludos. \n\nAlguien sabe como hacer para que un prg funcione como un servicio de windows....?','',0,'Rg==','1bhdodb0',1,0,'',298,0,0),(2127,558,6,255,0,'200.67.134.233',1132249838,1,0,1,1,1,1,'','Re: Tiene alguien HBOle.Lib ?','[quote=&quot;Armando&quot;:2a415xcq]Amigos:\n\nTiene alguien la lib HBOle de José Gimenez que quiera compartirla ?, o que me ayude a corregir el error que me tira al compilar los fuentes\n\nC:\\HBOle\\Source\\Ole2.c  311:Call to function \'hb_vmMessage\' with no prototype in function GetParams\n\nHarbour 44 y FHW 2.5\n\nSaludos y gracias[/quote:2a415xcq]\n\nen mi clase TMsAgent incluyo una que funciona bien.\nPuedes descargarla de mi sitio.\nSaludos','',0,'gA==','2a415xcq',1,0,'',255,0,0),(2128,554,3,47,0,'203.144.143.6',1132249859,1,0,1,1,1,0,'','Thanks','Dear EMG,\n\nThanks again.  What will I use to design for 32bit DLL instead of Resource Workshop or I can still use Resource Workshop for 32bit?\n\nRegards,\nDutch','',0,'gA==','3tsunpbr',1,0,'',47,0,0),(2129,554,3,6,0,'82.57.162.122',1132250310,1,0,1,1,1,1,'','Re: Thanks','I\'m still using Resource Workshop for 32bit with no problems at all.\n\nEMG','',0,'gA==','3m5ff1n8',1,0,'',6,0,0),(2130,531,19,6,0,'82.57.162.122',1132250420,1,0,1,1,1,1,'','Re: Where\'s James Bott?','Ok, he\'s alive! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','3u4thhty',1,0,'',6,0,0),(2131,559,7,2,0,'80.58.2.107',1132250717,1,0,1,1,1,1,'','','ShowKeyboard() y HideKeyboard().','',0,'gA==','f5byxsaa',1,0,'',2,0,0),(2132,554,3,47,0,'203.144.143.6',1132251194,1,0,1,1,1,0,'','TSbutton problem?','Dear EMG,\n\nThank you very big again and I\'ve got big problem with TSbutton now.  When I use Alt+s for \"&amp;Save\" the problem is the valid on TGET is skiped.  It means any function on TGET Valid do nothing.  How can I fix it?\n\nSorry to disturb you but It is my big problem because I use a lot TSbutton in my program.\n\n#include \'Fivewin.ch\'\n#include \'Tsbutton.ch\'\n\nStatic oDlg\n\nProcedure Main\nlocal oGet, oBtn, cVar\ncVar := 0\n\nDEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 TITLE \'Test TSbutton\'\n\n   @  1, 1 GET oGet VAR cVar SIZE 30,12 PIXEL Valid (cVar&gt;0)\n\n   @ 40,50 SBUTTON oBtn PROMPT \'&amp;Test\' ;\n           SIZE  30, 20 ;\n           PIXEL ;\n           ACTION MsgInfo(\' Test \')\n\nACTIVATE DIALOG oDlg CENTER\n\nreturn\n\n\nThanks&amp;Regards,\nDutch','',0,'gA==','2xb2s7yv',1,0,'',47,0,0),(2133,561,6,36,0,'200.113.56.235',1132255126,1,0,1,1,1,0,'','TDATABASE','Estimados algo raro pasa con esta instrucción, resulta que a veces me da este error, no entiendo y existe el campo el la base de datos..??\n\n Error BASE/1132  Error de rango: acceso al array\n   Argumentos   :\n     [   1] = A   { ... }\n     [   2] = N   23\n\nLlamadas al Stack\n_____________________________________________________________\n\n   Called from (b)GENDATAFIELD(2349)\n   Called from TARTICU:AR_M_DES(0)\n   Called from OARTICU(652)\n   Called from LISTARTCLI(505)\n   Called from (b)BUILDMENU(158)\n   Called from TMENU:COMMAND(404)\n   Called from TWINDOW:COMMAND(925)\n   Called from TMDIFRAME:COMMAND(224)\n   Called from TMDIFRAME:HANDLEEVENT(0)\n   Called from _FWH(3036)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(874)\n   Called from MAIN(115)\n\n\ny este es la instrucción que tengo, \n\nfunction oArticulo()\nlocal oMa\n\nDEFINE DATABASE oMa FILE (PATHDBF + \"ARTICU.DBF\")\n\n FIELD NAME \"AR_CODIG\"   TYPE \"C\" LEN 015 DEC 00 OF oMa\n FIELD NAME \"AR_DESCR\"   TYPE \"C\" LEN 050 DEC 00 OF oMa\n FIELD NAME \"AR_UNIDA\"   TYPE \"C\" LEN 003 DEC 00 OF oMa\n FIELD NAME \"AR_FAMILIA\" TYPE \"C\" LEN 005 DEC 00 OF oMa\n FIELD NAME \"AR_CLASE\"   TYPE \"C\" LEN 005 DEC 00 OF oMa\n FIELD NAME \"AR_PROVE\"   TYPE \"C\" LEN 010 DEC 00 OF oMa\n FIELD NAME \"AR_UBICA\"   TYPE \"C\" LEN 010 DEC 00 OF oMa\n FIELD NAME \"AR_S_INI\"   TYPE \"N\" LEN 008 DEC 00 OF oMa\n FIELD NAME \"AR_C_INI\"   TYPE \"N\" LEN 013 DEC 02 OF oMa\n FIELD NAME \"AR_F_INI\"   TYPE \"D\" LEN 008 DEC 00 OF oMa\n FIELD NAME \"AR_F_UCO\"   TYPE \"D\" LEN 008 DEC 00 OF oMa\n FIELD NAME \"AR_C_UCO\"   TYPE \"N\" LEN 008 DEC 00 OF oMa\n FIELD NAME \"AR_S_ACT\"   TYPE \"N\" LEN 013 DEC 02 OF oMa\n FIELD NAME \"AR_P_MED\"   TYPE \"N\" LEN 010 DEC 00 OF oMa\n FIELD NAME \"AR_FACTOR\"  TYPE \"N\" LEN 006 DEC 02 OF oMa\n FIELD NAME \"AR_P_NET\"   TYPE \"N\" LEN 010 DEC 00 OF oMa\n FIELD NAME \"AR_S_CRI\"   TYPE \"N\" LEN 008 DEC 00 OF oMa\n FIELD NAME \"AR_VALORIZ\" TYPE \"N\" LEN 010 DEC 00 OF oMa\n FIELD NAME \"AR_PASO\"    TYPE \"L\" LEN 001 DEC 00 OF oMa\n FIELD NAME \"AR_N_INV\"   TYPE \"L\" LEN 001 DEC 00 OF oMa\n FIELD NAME \"USUARIO\"    TYPE \"C\" LEN 013 DEC 00 OF oMa\n FIELD NAME \"AR_M_DES\"   TYPE \"N\" LEN 004 DEC 01 OF oMa\n\n ACTIVATE DATABASE oMa NORECYCLE SHARED\n\n if oMa:nArea &gt; 0\n   [b:2audef4c]if oMa:Ar_M_Des &gt; 0[/b:2audef4c]\n/*\n[b:2audef4c]el error lo da aqui, pero aveces que onda... si alguien le a ocurrido favor echarme una ayudita.. [/b:2audef4c]\n*/\n  endif\nendif\n\nReturn( oMa )\n//----------------------------------------------------------------------\n\n\nSaludos\nPatricio','',0,'QA==','2audef4c',1,0,'',36,0,0),(2134,554,3,6,0,'82.57.162.122',1132255825,1,0,1,1,1,1,'','Re: TSbutton problem?','Sorry, I never used TSButton.\n\nEMG','',0,'QA==','3uhe29zg',1,0,'',6,0,0),(2135,558,6,53,0,'148.221.81.39',1132257380,1,0,1,1,1,1,'','Ya esta','Juan Carlos:\n\nYa fuí por ella, Chas gracias\n\nArmando','',0,'QA==','3ioo1odv',1,0,'',53,0,0),(2136,562,2,9,0,'62.174.202.39',1132258417,1,0,1,1,1,0,'','listbox y campo lógico','1) En un Listbox con varios campos quiero que se vea un campo lógico, pero sale en blanco.- ¿Hay que emplear algun comando de conversión?\n\n2) En el caso de que quisiera sustituir el valor .t. por un bitmap y el .f. por otro, sería posible sin convertirlo en 1/2?\n\nGracias y un saludo para todos\n\nManuel','',0,'QA==','errefhe3',1,0,'',9,0,0),(2137,563,6,300,0,'201.2.77.204',1132262193,1,0,1,1,1,0,'','Ajuda com Get e Ids','Olá estou implementando tecla de função para atalho de botões de consultas. Para não haver problemas de clicar um F2 por exemplo em qualquer get como saber de qual get foi acionado F2? ou o ID do controle?\n\nExemplo:\n\nSet Key VK_F2 Consiste()\n\n...\n\nREDEFINE GET oGet1 VAR CODIGO // F2 não deve executar Consiste()\nREDEFINE GET oGet2 VAR NOME // F2 deve executar Consiste()\n...\n\nStatic Function Consiste()\n\nIf ???? &lt;&gt; ????\n Return .t.\nEndif\n... \n\nReturn .t.\n\n\nObrigado.','',0,'QA==','1yyx82ai',1,0,'',300,0,0),(2138,564,7,262,0,'83.97.168.9',1132262510,1,0,1,1,1,0,'','Una cosa rara en say ?','supongamos dentro de una ventana este codigo   \n\n @ 4,5 SAY  \"hola como estas\" SIZE 234,17 FONT oFont Pixel COLOR 0,GetSysColor( COLOR_BTNFACE )\n\n    @ 0,0 SAY  \" \" SIZE 240,22 BORDER pixel COLOR  0,GetSysColor( COLOR_BTNFACE )\n\nlo normal creo que seria que pintase primero la de arriba y luego la de abajo  (creo yo ) , mi sorpresa fué darme cuenta que lo hacía al revés .\n\nPor otro lado intenté hacer el siguiente cambio :\n\n @ 4,5 SAY osay1 VAR \"hola como estas\" SIZE 234,17 FONT oFont Pixel \n   osay1:setcolor(0,GetSysColor( COLOR_BTNFACE ) )\n\n    @ 0,0 osay2 VAR SAY  \" \" SIZE 240,22 BORDER pixel \n  osay2:setcolor(0,GetSysColor( COLOR_BTNFACE ) )\n\nMi sorpresa fué que el cambio de color actuaba sobre osay2 , pero no sobre osay1 , cosa que si ocurría en el codigo primero .\n\nNo sé si este comportamiento es normal o soy yo quién está cometiendo el error , de todos modos , lo comento por si es una errata .\n\nSaludos.','',0,'QA==','2hgrgbf2',1,0,'',262,0,0),(2139,565,2,301,0,'201.124.176.232',1132264362,1,0,1,1,1,0,'','Preview','Hola,\n\nYo uso el preview original de FW  para los preliminares de impresion. Existe algun otro ( gratis  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ) que tenga algunas mas funciones como enumerar hojas , imprimir a archivo y cosas asi ?\n\nSaludos\nRene','',0,'QA==','28e2ejkc',1,0,'',301,0,0),(2140,566,6,52,0,'201.231.14.50',1132267752,1,0,1,1,1,1,'','tsbrowser y campos MEMO','amigos:\n\n    Tengo una DBF con un campo memo y necesito editarlo con una TSBROWSER \n6.0, se puede hacer esto?\n\nAlgun ejemplo?\n\nGracias','',0,'QA==','1btfpjsi',1,0,'',52,0,0),(2141,567,6,37,0,'200.121.160.194',1132272124,1,0,1,1,1,0,'','FWH, MySQL 5.0.15 y Store Procedre','Amigos, estoy trabajando con MySQL y ahora he instalado la nueva version 5.0.15 que ofrece una seria de novedades.\ndentro de los temas que estoy probando es el llamado a Store Procedure, El Store tiene el siguiente contenido\n\n[b:22ggkqcf]update spp_tab set mov_mayori=\'S\' where mes_movimi=spp_mes[/b:22ggkqcf]\n\nDonde [b:22ggkqcf]spp_tab [/b:22ggkqcf]y [b:22ggkqcf]spp_mes [/b:22ggkqcf]son parametros enviados a la hora de invocarlo, el [b:22ggkqcf]spp_mes [/b:22ggkqcf]toma el valor enviado, sin embargo el [b:22ggkqcf]spp_tab[/b:22ggkqcf], no, se supone que en esa variable mando la tabla que quiero abrir, pero MySQL sigue interpretando como que la tabla se llama [b:22ggkqcf]spp_tab[/b:22ggkqcf]\nAlguien sabe algo de esto ?????\nYo lo llamo desde el programa asi :\n\n[b:22ggkqcf]SQL EXECUTE \"CALL sp_camest(\"+cMes+\",\"+diario+\")\"[/b:22ggkqcf]\n\nUtilizo FW 2.6 , xHb 0.99.5 y SQLLIB para la conexion a MySQL\nGracias por sus comentarios','',0,'QA==','22ggkqcf',1,0,'',37,0,0),(2142,562,2,78,0,'200.121.80.168',1132275236,1,0,1,1,1,0,'','','.......\n.......\nREDEFINE LISTBOX oLbx :\n               FIELDS If(Base-&gt;campo_log, \"1\",\"2\") ;\n               HEADERS \"Estado\" ;\n.......\n.......\n\n\nSalu2\nWilli Quintana','',0,'QA==','83l5qx10',1,0,'',78,0,0),(2143,562,2,78,0,'200.121.80.168',1132275489,1,0,1,1,1,0,'','','UPS,,, aqui va con bmp`s\n\noBmpOn  := LoadBitMap(GetResources(),\"Chk1\")\noBmpOff := LoadBitMap(GetResources(),\"Chk0\")\n...\n...\nREDEFINE LISTBOX oLbx;\n                FIELDS If(Base-&gt;campo_logo, oBmpOn,oBmpOff) ;\n                HEADRES \"Estado\" ;\n...\n...\n\nSalu2\nWilli Quintana','',0,'QA==','2asjz3en',1,0,'',78,0,0),(2144,554,3,47,0,'203.144.143.2',1132278895,1,0,1,1,1,0,'','Anyway, Thank you a lot','Dear EMG,\n\nThank you for your help.\nDutch','',0,'QA==','9t9234iz',1,0,'',47,0,0),(2145,562,2,9,0,'62.174.202.39',1132285102,1,0,1,1,1,0,'','','Gracias Willi por tu respuesta. La primera opción funcionó, pero no la segunda con los bitmaps:\n\nlocal oBmpSi := LOADBitmap( GetResources(), \"\\fw23\\bitmaps\\level1.bmp\" )\n local oBmpNo := LoadBitmap( GetResources(), \"\\fw23\\bitmaps\\level2.bmp\" ) \n\n.....\n\n    @ 1,1 LISTBOX oLbx FIELDS IF (visitas-&gt;PENDIENTE, ;\n                                oBmpSi , oBmpNo ),;\n                    ...\n                    \n\nUn saludo y gracias de nuevo\n\nManuel','',0,'QA==','3phk2ub8',1,0,'',9,0,0),(2146,562,2,78,0,'200.121.80.168',1132289119,1,0,1,1,1,0,'','','Amigo.\nLos BMP`s los debes tener en tu DLL o en tu RC, no en ficheros...\n\nlocal oBmpOff := LoadBitMap(GetResources(),\"Chk0\")\nlocal oBmpOn  := LoadBitMap(GetResources(),\"Chk1\")\n\nChk0 y Chk1   son BMP`s que deben estar dentro del recurso xxxx.rc   o xxxx.dll segun uses..\n\nSalu2\nWilli <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','3bqv2ofn',1,0,'',78,0,0),(2147,562,2,78,0,'200.121.80.168',1132289472,1,0,1,1,1,0,'','','Para cargar BMP`s desde ficheros seria :   (aunque no lo uso)\n\nlocal oBmpSi  := LoadBmp(\"\\fw23\\bitmaps\\level1.bmp\" ) \nlocal oBmpNo := LoadBmp(\"\\fw23\\bitmaps\\level2.bmp\" ) \n\n..... \n\n@ 1,1 LISTBOX oLbx ;\n                      FIELDS IF (visitas-&gt;PENDIENTE, oBmpSi , oBmpNo ),; \n... \n\nSalu2\nWilli <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','zxffu9fq',1,0,'',78,0,0),(2148,568,2,9,0,'62.174.202.39',1132290038,1,0,1,1,1,0,'','COPY TO SDF','Desde hace años, tengo una aplicación de recibos (primero con Clipper y ahora Clipper+FW23, que prepara un fichero txt, según la norma CSB19, para su cobro a través de Bancos. \n\nHasta ahora ningún problema, pero un cliente que lo utiliza, me dice que su banco ha detectado un error, porque en la última línea del fichero, aparece la señal del marcador de fin de fichero (1A hex).\n\nHe observado que con Clipper no pasa, pero si con FW.\n\nEl funcionamiento y el mandato que utilizo es el mismo que en Clipper:\n\nTengo los datos en un fichero dbf y desde el realizo la copia a un fichero txt de la siguiente forma:\n\nCOPY TO (nombre del fichero) SDF\n\n¿Alguno sabe como puedo suprimir este marcador de fin de fichero?\n\nUn saludo\n\nManuel','',0,'QA==','1zn5hw02',1,0,'',9,0,0),(2149,569,3,160,0,'210.212.142.6',1132296690,1,0,1,1,1,0,'','Array Browsing using TwBrowse (Standard)','Hello All,\n\nI am developing a multi selection using two TwBrowse list box with add and remove buttons. One listbox working on table and other working on an array (containing selected items). \n\nThe problem is when user presses Remove button, I delete an element from array using ADEL. As a result the last element of array becomes NIL and TwBrowse gives error.\n\nIs there any workaround ?\n\nTIA\nMilan.','',0,'QA==','30tb46b1',1,0,'',160,0,0),(2150,531,19,233,0,'218.208.249.84',1132297769,1,0,1,1,1,0,'','Re: Where\'s James Bott?','[quote=&quot;EnricoMaria&quot;:25j9yyq9]Ok, he\'s alive! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[/quote:25j9yyq9]\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','25j9yyq9',1,0,'',233,0,0),(2151,517,3,160,0,'210.212.142.6',1132297775,1,0,1,1,1,0,'','','Hello all, \n\nWith kind help of James Bott I could adapt one of his function to achive the same. Here it is if it helps anybody. One will need to change the name of database and actiive tag.\n\nI have one question also. Pressing space bar will clear the search. But I am not able to achieve the same with other key like Del or so. Can anybody shed light on it.\n\nThanks James. My private mail to you bounces back. So I do it here.\n\nWiith best regards,\n\nMilan.\n\n----------------------Cut-------------------------\nFUNCTION SetTwBrowIncr(oBrw)\n    oBrw:bKeyChar   := {|nKey,nFlags| FindTwIncr(oBrw,nKey)}\n    oBrw:bGotFocus  := {|| oBrw:Cargo := \"\",oBrw:SetFocus()}\nRETURN NIL\n\nFUNCTION FindTwIncr(oBrw,nKey)\n   LOCAL nNewEle  := 0\n   LOCAL nOrder := 0\n    IF nKey &lt;&gt; 32\n       oBrw:Cargo += upper( CHR(nKey) )\n       Select Diary\n       nOrder := IndexOrd()\n       Set ORDER TO TAG Name\n       DBSeek (oBrw:Cargo, .T.)\n       Set ORDER TO nOrder\n\n       oBrw:nLen := OrdKeyCount()\n       oBrw:VSetPos( OrdKeyNo() )\n       oBrw:Refresh()\n    ELSE\n        oBrw:Cargo := \"\"\n        oBrw:GoTop()\n    ENDIF\nRETURN oBrw:nAT\n----------------------Paste-----------------------','',0,'gA==','2150r65r',1,0,'',160,0,0),(2152,569,3,6,0,'82.61.69.54',1132300387,1,0,1,1,1,1,'','Re: Array Browsing using TwBrowse (Standard)','Use ASize() after ADel() to truncate the array.\n\nEMG','',0,'gA==','ca28u6a2',1,0,'',6,0,0),(2153,570,7,262,0,'212.89.4.31',1132301463,1,0,1,1,1,1,'','Haciendo justicia','Decir que estoy encantado con este nuevo producto de Antonio que abre nuevas espectativas en algo novedoso a los viejos programadores de clipper (donde queda ya fivepro..   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ).\nEstoy encantado , en una semana tengo montado el esquema de una mini aplicación para vendedores ( a falta de pequeños detalles ) , y para los que no se crean que YA se pueden hacer muchas cosas , pongo una captura del aspecto , eso si ,espero consejos y sugerencias de como colocar los controles , para maximizar la facilidad de uso con el lapiz .\nFelicidades Antonio.\n\n[img:3uh0m3o5]http&#58;//www&#46;pix8&#46;net/pro/pic&#46;php?u=20163MR7k1&amp;i=706882[/img:3uh0m3o5]\n\nEditado. Parece ser que el foro no permite incluir imagenes , pongo el vinculo :\n <!-- m --><a class=\"postlink\" href=\"http://www.pix8.net/pro/pic.php?u=20163MR7k1&amp;i=706882\">http://www.pix8.net/pro/pic.php?u=20163MR7k1&amp;i=706882</a><!-- m -->\n\nSaludos.','',0,'CA==','3uh0m3o5',1,1132318902,'',262,1,0),(2154,571,3,6,0,'82.61.69.54',1132302434,1,0,1,1,1,1,'','BtnBmp: caption position','Dear friends, is it possible to put the BTNBMP caption to the top of the button? It seems that it is only go centered.\n\nEMG','',0,'CA==','2fa63mmt',1,0,'',6,0,0),(2155,571,3,6,0,'82.61.69.54',1132304020,1,0,1,1,1,1,'','Re: BtnBmp: caption position','And what about to choose the color of the caption?\n\nEMG','',0,'CA==','1su9cbk5',1,0,'',6,0,0),(2156,570,7,2,0,'80.58.2.107',1132304957,1,0,1,1,1,1,'','','JL (Juan Luis, Jose Luis ?)\n\nNos alegramos de corazón que las herramientas que desarrollamos os sean útiles. Gracias por tus amables palabras  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nUna curiosidad: ¿ Que control has puesto arriba en la pantalla para que se vea el recuadro en donde tienes puesto los demas controles ?\n\nMe respondo yo mismo: Un SAY con Border <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','1d17kmsv',1,0,'',2,0,0),(2157,564,7,2,0,'80.58.2.107',1132305140,1,0,1,1,1,1,'','','JL,\n\nVamos a probarlo.','',0,'CA==','yg0pkn70',1,0,'',2,0,0),(2158,557,1,88,0,'82.150.2.18',1132305800,1,0,1,1,1,1,'','','Greetins Kronos,\n\ntry this ...\n\nhAdll:= LoadLibrary(\"A.dll\")\n\nhBdll:= LoadLibrary(\"B.dll\")\n\n....\n\n[the body of your aplication]\n\n...\n\n// just before the end of your aplication or when u wish to liberate from \n// memory the loaded libraries write this ...\n\n\nFreeLibrary(oAdll)\nFreeLibrary(oBdll)\n\n\n// Hope it helps.\n\n\n\nNos leemos!!','',0,'','206zsiy9',1,0,'',88,0,0),(2159,569,3,160,0,'210.212.142.6',1132306079,1,0,1,1,1,0,'','Re: Array Browsing using TwBrowse (Standard)','Dear Enrico,\n\nYes it does solve the problem. Thanks.\n\nMilan.\n\n[quote=&quot;EnricoMaria&quot;:1btoab9f]Use ASize() after ADel() to truncate the array.\n\nEMG[/quote:1btoab9f]','',0,'gA==','1btoab9f',1,0,'',160,0,0),(2160,572,3,31,0,'195.182.84.105',1132307074,1,0,1,1,1,1,'','TDbOdbcDirect problem','Hi !\n\n It seems that it\'s a problem with this class . I reviewed and found that in Open method it can\'t open temporary dbf . It seems that this is related to this :\n   DEFAULT ::cFileName := cTempFile(GetEnv(\"TEMP\"),\"DBF\") \n\n   This GetEnv() work OK ?\n\n  With best regards ! Rimantas .','',0,'gA==','2ikb3r6w',1,0,'',31,0,0),(2161,564,7,2,0,'80.58.2.107',1132309009,1,0,1,1,1,1,'','','JL,\n\nEfectivamente ocurre como comentas. Es extraño, pero funciona así.\n\nDe todas formas lo tendremos presente por si pudiese estar relacionado con alguna característica de los controles en el Pocket PC.','',0,'gA==','2c5nwuls',1,0,'',2,0,0),(2162,571,3,89,0,'213.21.136.60',1132310386,1,0,1,1,1,0,'','','@ 1,2 BTNBMP  oBtn ;\n          PROMPT \"Text\"  TOP  ADJUST OF oDlg   ;\n	SIZE 100 , 100 ;\n	FILE \"BTN.BMP\"  NOBORDER ;\n	FONT oFont1 UPDATE\n\n               oBtn:SetColor(  CLR_HBLUE ,CLR_WHITE)\n               oBtn:nClrText(  CLR_HRED )\n               oBtn:nClrText(  CLR_HRED )\n	\nRegards MAurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'gA==','1vf85gys',1,0,'',89,0,0),(2163,571,3,6,0,'82.61.69.54',1132311179,1,0,1,1,1,1,'','','Great! Thank you! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAnd what about the position?\n\nEMG','',0,'gA==','1p0y1ult',1,0,'',6,0,0),(2164,571,3,6,0,'82.61.69.54',1132311805,1,0,1,1,1,1,'','','Ops, I missed the TOP clause. But the result is not so nice. It seems that the bitmap is shifted to the specified direction and the caption is outside the bitmap itself... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','14txd1c1',1,0,'',6,0,0),(2165,570,7,150,0,'62.15.121.164',1132315741,1,0,1,1,1,1,'','','Hola J.L.\n\nYo también estoy encantado con este producto. Lo vi recomendado en el grupo de noticias de xbase++.\n\nNo tenía ni idea de Fivewin. Había trabajado 15 años con Clipper y 4 con xbase++.\n\nMe resultó sencillisimo. (la aplicación era muy simple)\n\n¡Lastima que no haya salido antes porque ya perdí algún trabajo!\n\nUn comentario sobre tu aplicacion. Es mejor que los controles estén arriba (al menos eso he oido decir)\n\n\nJose Manuel','',0,'gA==','zziztfyy',1,0,'',150,0,0),(2166,570,7,262,0,'83.97.168.9',1132319361,1,0,1,1,1,1,'','','Siento lo de la firma , se me había pasado . \nRespecto a lo de colocar los controles arriba tienes  toda la razón , he rediseñado casi todas las pantallas , porque , por ejemplo el get de busqueda , se quedaba tapado al desplegar el teclado , y el usuario no veia lo que llevaba escrito , de ahi que ahora esté arriba .\nEl espacio libre lo pensaba usar para botones secundarios ( de acciones poco usadas ) , pero debo investigar un poquito que es lo estandar .\nHe visto que algunas aplicaciones , contraen la ventana ( y muestran un scroll )cuando el teclado está visible y luego vuelven a su tamaño normal , pero eso no se como se hace ( cuestión de mirar e investigar , pero no tengo mucho tiempo , la 1 version la quieren funcionando para principios de enero ... )\nSaludso.','',0,'gA==','1t3boxiz',1,0,'',262,0,0),(2167,573,2,129,0,'201.215.15.19',1132322246,1,0,1,1,1,0,'','problema al imprimir con windows 2000','amigos, tengo una aplicacion con fw 2.2, blinker 5. clip 5.3, el caso es que cuando presiono el boton imprimir en win xp, me sale el preview y de ahi la impresion, pero en win 2000, pincho el boton, da una pausa, y luego el sistema se sale, sin mensaje de error, nada, solo se sale, ahora si envio el reporte a archivo, lo genera 100%, no entiendo, imprimo con el generador propio de fivewin','',0,'gA==','3e8uvqor',1,0,'',129,0,0),(2168,573,2,129,0,'201.215.15.19',1132328060,1,0,1,1,1,0,'','Re: problema al imprimir con windows 2000','corregido, el error se me presento, al no tener una impresora seleccionada, le coloque el printersetup(), y se acabo al asunto, todo ok','',0,'gA==','9t9jbog7',1,0,'',129,0,0),(2169,496,6,23,0,'80.58.44.235',1132331571,1,0,1,1,1,1,'','','A proposito de tsbrowse.\nHabeis observado que si se muestra un browse que no está lleno de datos (es decir que todos los registros que hay se muestran en pantalla) al hacer Ctrl+AvPag para ir al final del browse, este se vuelve tarumba?\nEn cambio si hay más registros de los que caben en pantalla, realiza el proceso perfectamente?\n\nHabeis encontrado solución para eso?\nYo probe a poner : \n\n      Case GetKeyState( VK_CONTROL )\n\n         If nKey == VK_HOME                      // Ctrl+Home\n            ::GoTop()\n    	    ::PanHome()\n         ElseIf nKey == VK_END                   // Ctrl+End\n            If ::lHitBottom\n               ::PanEnd()\n            Else\n               ::GoBottom()\n               ::Reset()\n            EndIf\n         ElseIf nKey == VK_PRIOR                 // Ctrl+PgUp\n		      ::GoTop()\n         ElseIf nKey == VK_NEXT                  // Ctrl+PgDn\n		      ::GoBottom()\n		      ::Reset()   // Sigev\n		      \n         ElseIf nKey == VK_LEFT                  // Ctrl+Left\n				::PanLeft()\n         ElseIf nKey == VK_RIGHT                 // Ctrl+Right\n				::PanRight()\n			Else\n				Super:KeyDown( nKey, nFlags )\n         EndIf\n\n... un reset() despues del gobottom y entonces si que pinta, pero el efecto pierde mucho ya que solo muestra en pantalla la última línea.\n\nGracias.','',0,'gA==','26ygfj3y',1,0,'',23,0,0),(2170,572,3,303,0,'68.7.28.54',1132332879,1,0,1,1,1,0,'','','Try this to get the temp directory.\n\n[code:2g2xahr5]// Returns path to windows temp directory\nGetTempDir&#40;&#41;\n   local cDir   &#58;= GetEnv&#40;&quot;TEMP&quot;&#41;\n   if empty&#40;cDir&#41;\n      cDir &#58;= GetEnv&#40;&quot;TMP&quot;&#41;\n   endif\n   if Right&#40; cDir, 1 &#41; == &quot;\\&quot;\n      cDir = SubStr&#40; cDir, 1, Len&#40; cDir &#41; - 1 &#41;\n   endif\n   if !empty&#40;cDir&#41;\n      if !lIsDir&#40;cDir&#41;\n         cDir &#58;= GetWinDir&#40;&#41;\n      endif\n   else\n      cDir &#58;= GetWinDir&#40;&#41;\n   endif\nreturn cDir[/code:2g2xahr5]','',0,'AIA=','2g2xahr5',1,0,'',303,0,0),(2171,517,3,303,0,'68.7.28.54',1132333443,1,0,1,1,1,0,'','','[quote:2f1ai8q2]I have one question also. Pressing space bar will clear the search. But I am not able to achieve the same with other key like Del or so. Can anybody shed light on it. [/quote:2f1ai8q2]\n\nJust change this line:\n\nIF nKey &lt;&gt; 32 \n\nTo:\n\nIF nKey != 32 .and. nKey != VK_DELETE\n\nAnd add this include:\n\n#include \"vkey.ch\"\n\nRegards,\nJames','',0,'gA==','2f1ai8q2',1,0,'',303,0,0),(2172,562,2,9,0,'62.174.202.39',1132334198,1,0,1,1,1,0,'','','Willi, ahora, gracias a tí, si funciona, aunque he tenido que sustituir  LoadBmp por ReadBitmap y ha quedado así:\n\nlocal oBmpSi  := ReadBitmap( 0, \"\\fw23\\bitmaps\\level1.bmp\" ) \nlocal oBmpNo := ReadBitmap(0 \"\\fw23\\bitmaps\\level2.bmp\" ) \n\n..... \n\n@ 1,1 LISTBOX oLbx ;\n                      FIELDS IF (visitas-&gt;PENDIENTE, oBmpSi , oBmpNo ),; \n... \n\n\nMuchas gracias por tu tiempo y ayuda.\n\nUn saludo\n\nManuel','',0,'gA==','dscny8qa',1,0,'',9,0,0),(2173,517,3,2,0,'80.58.2.107',1132339577,1,0,1,1,1,1,'','','Hello James,\n\nWelcome aboard <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe do appreciate if you upload a photo to your profile. Thanks!','',0,'gA==','34r6klxf',1,0,'',2,0,0),(2174,574,6,52,0,'201.231.15.163',1132340192,1,0,1,1,1,1,'','ERROR if ( GetLastError( ) == ERROR_BROKEN_PIPE )','Amigos:\n\ncuando enlazo con este programa en c que lo quiero utilizar desde harbour me tira el siguiente error:\n\nWarning W8065 Source\\pipesrv.c 77: Call to function \'getLasterr\' with no prototype in function Conectarse\n\nPorque? varias veces me aparece la leyenda \"prototype in funcion...\"\n\nGracias','',0,'gA==','l6ud85dv',1,0,'',52,0,0),(2175,431,2,265,0,'80.58.18.235',1132342117,1,0,1,1,1,0,'','','Hola Rene\nGracias a tu ayuda, ya he podido hacer lo siguiente:\nCon la clase tpop3 he conseguido guardar en disco un mensaje de correo, pero todo el mensaje.\nDentro del mensaje he localizado donde comienza el adjunto, y como éste adjunto es .txt, (que es el que voy a recibir siempre), pues no viene codificado en mime.\nAhora me falta una cosa, me dijiste que dentro del mensaje, en algún sitio viene la longitud, pero no lo localizo, tan sólo localizo al comienzo del mensaje los bytes que ocupa todo el mensaje, no el adjunto; por lo tanto como no sé la longitud que va a traer el adjunto, no puedo separarlo con un substr().\nA lo mejor es que la longitud del adjunto viene codificada en mime, pero no sé.\n\nGracias por todo\n\nJose Luis','',0,'gA==','1cvhbxca',1,0,'',265,0,0),(2176,575,3,303,0,'68.7.28.54',1132346899,1,0,1,1,1,0,'','How to detect phone ring using TAPI','Does anyone know how to detect a phone ring using TAPI? Or, alternately, any other way?\n\nRegards,\nJames','',0,'gA==','13ijt0jc',1,0,'',303,0,0),(2177,565,2,138,0,'201.128.111.75',1132346969,1,0,1,1,1,1,'','','EasyPreview de Tim Sodthabers (<!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->).\n\nExporta a PDF, envia por mail, es Wysiwyg en la vista previa, perooooo\n\nno es gratuito','',0,'gA==','2y3my5a6',1,0,'',138,0,0),(2178,496,6,21,0,'212.183.206.103',1132347210,1,0,1,1,1,1,'','','Hola Angel,\n\nEl problema viene porque no dectecta correctamente el final de browse si este no cubre toda la presentación.\n\nTambien se soluciona en la definición de los codeblock ::bGoTop y ::bGoBottom. Que si son definidos si usas oDbf, aArray, TxtFile\n\nYo las asigno valor en el método ResetBarPos()\n\n[code:2svk4xtd]&#58;&#58;bGoTop    &#58;= &#123;|| &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbGoTop&#40;&#41; &#41; &#125;\n&#58;&#58;bGoBottom &#58;= &#123;|| &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbGoBottom&#40;&#41; &#41; &#125;\n[/code:2svk4xtd]','',0,'AIA=','2svk4xtd',1,0,'',21,0,0),(2179,576,2,10,0,'212.40.255.188',1132355520,1,0,1,1,1,0,'','Capturar contenido de una ventan externa','Hola a tod@s.\n\nVoy a plantearles un problema que tengo a ver si me pueden echar una mano( ... o dos).\n\nEstoy probando la clase AppBox (*) y encajo (embedd) en el diálogo una  aplicación externa (para hacer telnet a un servidor). Hasta ahí todo bien. \n\nLo que pretendo es capturar el contenido de los datos de dicha ventana \'embebida\' pulsando sólo un botón y utilizando la Clase  TClipBoard (**).  \n\nActualmente lo que hago es seleccionar todo el texto, luego botón derecho-&gt;copiar y pulsar un botón para poder rescatarlo del clipboard utilizando la clase TClipBoard y tratar dentro del programa dichos datos.\n\nHe estado probando la clase TWCapture (***) y he visto que se puede manipular una ventana, pero no veo cómo puedo capturar el contenido de dicha ventana pulsando un botón para llevarlo al clipboard, pues si fuera así, creo que podría resolver mi problema y ahorrarle pasos al usuario.\n\nLas pruebas se pueden hacer también con el notepad como aplicación externa \'embebida\'\n\nNo se si me he explicado, si no es así me lo dicen.\n\nSi me puede decir cómo se lo agradezco.\n\nUn saludo.\nAntonio Aguilar\n\n\n\n(*)\n------------------------------------------------------------------------------\nCLASS tAppbox \nCésar E. Lozada\n<!-- e --><a href=\"mailto:cesarlozada@hotmail.com\">cesarlozada@hotmail.com</a><!-- e -->\nValencia - Venezuela\nMarch 2, 2002\nWith this class you can embedd an external application window\ninto a control of your window or dialog application\n------------------------------------------------------------------------------\n\n(**)\n------------------------------------------------------------------------------\nCLASS TClipBoard \nWindows clipboard as an Object.\nFiveWin\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->\nThe clipboard provides a mechanism that makes it possible for \napplications to pass data handles to other applications. Clipboard \nfunctions carry out data interchange between Windows applications.\n-------------------------------------------------------------------------------\n\n(***)\n------------------------------------------------------------------------------\nAUTOR.....: Manuel Exp¢sito Su rez    Soft 4U \'2001\ne-Mail....: <!-- e --><a href=\"mailto:maex14@dipusevilla.es\">maex14@dipusevilla.es</a><!-- e -->\nCLASE.....: TWCapture\nFECHA MOD.: 18/08/2001\nVERSION...: 1.00\nPROPOSITO.: Captura una ventana abierta por nuestro programa\no por otra aplicacion para poder enviarle mensajes como si fuera \nuna ventana mas de nuestro programa.   \n------------------------------------------------------------------------------','',0,'AIA=','f819g6xw',1,0,'',10,0,0),(2180,571,3,206,0,'61.94.170.198',1132375996,1,0,1,1,1,0,'','','Dear Enrico,\n\nhave you try tbuttonbmp (new class)?\nthis class also support theme on winxp. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\ni\'m using fwh+xharbour.\n\nhiong','',0,'AIA=','3pd1xk01',1,0,'',206,0,0),(2181,577,1,161,0,'81.165.131.68',1132384539,1,0,1,1,1,0,'','HD-serial nr problem with TDiskInfo','Hello,\n\nI\'am using the TDiskInfo Class to check the serialnr of the HardDisk. \nUp till now I did\'t have a problem on networks (only on Windows98 workstations together win XP). The workstation showed the number of the HD of the server.\nNow I have a custom that using Windows2000 &amp; Windows2003 server together with WindowsXP SP1 workstations.\nNow he told me (I could\'t check it because he\'s living in Australia and me in Belgium <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->) that sometimes the program gives an other Serial when lauching the program on a workstation (even on the same workstation), as a result, the programs is locked because it\'s a copy-protection. Did someone have the same problem with this class? Do you have a solution for this?\nI\'m using FW195, clipper52e &amp; blinker 5.1\n\nRegards,\nMarc','',0,'AIA=','1qbrolvl',1,0,'',161,0,0),(2182,578,6,75,0,'83.36.141.51',1132385602,1,0,1,1,1,0,'','Impresora multifunción','Alguien me puede aconsejar algún modelo de prn que vay bien con fw y sea multifunción:\nCaracterísticas básicas:\n  Blanco y negro.\n  Laser\n  Impresora, Fax\n  Fotocopiadora y escaner con alimentador\n  Puerto USB y paralelo\n\n\n  Es para uso de oficina con dos/tres puestos de trabajo. Necesitan escanear documentos en A4 para archivarlos en formato pdf, por esto si es posible que sea de escaner a doble cara o si es a simple cara que sola cree el documento corrctamente.\n\nGracias <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'AIA=','2q1dg0hj',1,0,'',75,0,0),(2183,575,3,2,0,'80.58.2.107',1132387090,1,0,1,1,1,1,'','','James,\n\nYou may check samples\\phone.prg. If I remember it right, it was able to detect the phone rings.','',0,'AIA=','3vndtd2o',1,0,'',2,0,0),(2184,556,3,2,0,'80.58.2.107',1132388085,1,0,1,1,1,1,'','','Marco, Enrico,\n\nPlease modify source\\function\\errsysw.prg with this code:\n\n[code:b8ky316x]\n       if ! Empty&#40;ProcName&#40; n &#41; &#41;\n             AAdd&#40; aStack, &quot;   Called from&#58; &quot; + ProcFile&#40; n &#41; + &quot; =&gt; &quot; + Trim&#40; ProcName&#40; n &#41; &#41; + ;\n                           &quot;&#40;&quot; + NTRIM&#40; ProcLine&#40; n &#41; &#41; + &quot;&#41;&quot; &#41;\n             cErrorLog += ATail&#40; aStack &#41; + CRLF\n          endif[/code:b8ky316x]\n\nNotice the use of ProcFile(). Warning: with Harbour it returns an empty string. With xharbour you get the PRG name.','',0,'AIA=','b8ky316x',1,0,'',2,0,0),(2185,576,2,2,0,'80.58.2.107',1132388430,1,0,1,1,1,1,'','','Antonio,\n\nPuedes enviarme por email la clase TAppBox ? Gracias,','',0,'AIA=','105jnlis',1,0,'',2,0,0),(2186,548,2,2,0,'80.58.2.107',1132388981,1,0,1,1,1,1,'','','Luis,\n\nAcabamos de probar samples\\getdir.prg usando FW 2.6 y funciona correctamente, aqui lo ves:\n\n[url=http&#58;//imageshack&#46;us:3ket4hbi][img:3ket4hbi]http&#58;//img517&#46;imageshack&#46;us/img517/7034/getdir8el&#46;jpg[/img:3ket4hbi][/url:3ket4hbi]','',0,'GA==','3ket4hbi',1,0,'',2,0,0),(2187,568,2,2,0,'80.58.2.107',1132389249,1,0,1,1,1,1,'','','Manuel,\n\nPrueba a quitarle el último byte de esta forma:\n\ncTemp = MemoRead( &lt;nombre_fichero&gt; )\n\nMemoWrit( &lt;nombre_fichero&gt;, SubStr( cTemp, 1, Len( cTemp ) - 1 ) )','',0,'GA==','395ndz3k',1,0,'',2,0,0),(2188,409,2,2,0,'80.58.2.107',1132389390,1,0,1,1,1,1,'','','Willi,\n\nPara FW para Clipper, puedes usar las funciones de uso de puertos COM. Revisa samples\\phone.prg.','',0,'GA==','3mt7y5d3',1,0,'',2,0,0),(2189,574,6,2,0,'80.58.2.107',1132390096,1,0,1,1,1,1,'','','Gustavo,\n\nEse error se debe a que estás usando la función getLasterr() pero no has incluido ningún fichero de cabecera (.H) en donde este su prototipo, ó que la estás escribiendo mal:\n\nWINBASEAPI DWORD WINAPI GetLastError( VOID );\n\nesta se encuentra en winbase.h. Busca en los ficheros .H del compilador C que estés usando.','',0,'GA==','2p4rvbt1',1,0,'',2,0,0),(2190,563,6,2,0,'80.58.2.107',1132390275,1,0,1,1,1,1,'','','Wanderson,\n\nUna solución sería deshabilitar F2 en ese Get al tomar foco y restaurarlo al perderlo:\n\n&lt;oGet1&gt;:bGotFocus = { || SetKey( VK_F2, nil ) }\n&lt;oGet1&gt;:bLostFocus = { || SetKey( VK_F2, { || Consiste() } }','',0,'GA==','3mbnfzi8',1,0,'',2,0,0),(2191,563,6,2,0,'80.58.2.107',1132390348,1,0,1,1,1,1,'','','Otra posible solución es controlar que elemento tiene el foco:\n\nStatic Function Consiste() \n\nIf oDlg:aControls[ 1 ]:lFocused\n   Return .t. \nEndif \n... \n\nReturn .t.','',0,'','2kney1u0',1,0,'',2,0,0),(2192,578,6,2,0,'80.58.2.107',1132390448,1,0,1,1,1,1,'','','Una muy buena, en cuanto a precio y calidad, es la Canon Pixma MP750, aunque es de inyección y no laser, y tampoco tiene fax (creo que hay un modelo superior que si tiene fax). La ventaja es que los cartuchos de tinta pueden recargarse facilmente y se ahorra bastante no teniendo que comprar cartuchos nuevos cada dos por tres <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url:2d510vkl]http&#58;//www&#46;canon-europe&#46;com/For_Home/Product_Finder/Multifunctionals/Multifunctionals/PIXMA_MP750/index&#46;asp?ComponentID=205468&amp;SourcePageID=26562[/url:2d510vkl]\n\nEn cuanto a la recarga de cartuchos, Canon es muy tolerante, no como otras marcas que usan dispositivos de seguridad para evitar que se recarguen.\n\nHace fotocopias en B/N y en color, y es bastante rápida.','',0,'EA==','2d510vkl',1,0,'',2,0,0),(2193,579,3,160,0,'210.212.142.6',1132395938,1,0,1,1,1,0,'','Newspaper style Report','Hello All,\n\nIs there any facility to print report in Newspaper style, i.e. reports having thin columns, when page ends, starts printing on right sides on the same page.\n\nTIA\nMilan.','',0,'EA==','157epsii',1,0,'',160,0,0),(2194,580,3,160,0,'210.212.142.6',1132396900,1,0,1,1,1,0,'','How to provide Exit option in Menu class ?','Hello All,\n\nMy following code results in the error :\n\n DEFINE WINDOW oWnd FROM 4, 4 TO 25, 75 ;\n      TITLE \"xCalib : Calibration Chart Generation Program\" ;\n      MENU BuildMenu(oWnd) ;\n      BRUSH oBrush ;\n      ICON oIcon MDI\n\nin the BuildMenu(oWnd) function\n\n    MENUITEM \"Exit\" ACTION oWnd:End()\n\nWhat am I doing wrong ?\n\nTIA\nMilan.','',0,'EA==','w5badwbs',1,0,'',160,0,0),(2195,580,3,6,0,'87.3.212.185',1132397821,1,0,1,1,1,1,'','Re: How to provide Exit option in Menu class ?','Can I see a reduced complete sample of the problem?\n\nEMG','',0,'EA==','2d5pseke',1,0,'',6,0,0),(2196,556,3,6,0,'87.3.212.185',1132398430,1,0,1,1,1,1,'','','Wonderful! Thank you!\n\nEMG','',0,'EA==','cki1wm98',1,0,'',6,0,0),(2197,568,2,9,0,'62.174.202.39',1132398490,1,0,1,1,1,0,'','','Antonio, eres un monstruo. Ha funcionado perfectamente.\n\n\nUn saludo\n\nManuel','',0,'EA==','1lwllx4u',1,0,'',9,0,0),(2198,571,3,6,0,'87.3.212.185',1132398660,1,0,1,1,1,1,'','','Thank you. I will try.\n\nEMG','',0,'EA==','3vbe3cyi',1,0,'',6,0,0),(2199,530,6,91,0,'62.151.116.102',1132401308,1,0,1,1,1,0,'','Re: redimensionar dialogos...','[quote=&quot;Francisco Horta&quot;:9uv9sism]Hola Carlos,\n\nme tira error ...[/quote:9uv9sism]\n\nSi, pero cual?\n\nSaludos\nCarlos G.','',0,'gA==','9uv9sism',1,0,'',91,0,0),(2200,578,6,75,0,'83.34.193.232',1132401440,1,0,1,1,1,0,'','','Lo que pasa es que tengo entendido que para las de inyección sale más caro el precio medio por página que para las laser.\n\nHay oficinas donde el toner  de la laser lo cambian una o dos veces al año y los cartuchos de tinta es que casi uno al mes.\n\nNo se si en esta impresora el caso es distinto.\n\nY desde luego, Gracias por el consejo.','',0,'gA==','320vjgwt',1,0,'',75,0,0),(2201,530,6,46,0,'217.168.114.73',1132403824,1,0,1,1,1,0,'','','Si te Sirve ahi te envio como lo hago\n\nLlamas al CheckRes() en el on init del dialog, tambien esta para modificar el font del dialogo o controles... se puede tambien modificar el tsbrowse o la barra de  mensages... contactame por el MSN <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->, Ya tenemos avanzado algo el Punto de Venta\n\n[code:283r4q51]Static Function CheckRes&#40; oDlg &#41;\n//---------------------------------------------------------------------------\n   Local hWDsk &#58;= GetDeskTopWindow&#40;&#41;\n   Local ResXY &#58;= GetClientRect&#40; hWDsk &#41;\n   Local aRectD &#58;=  GetClientRect&#40; oDlg&#58;hWnd &#41;\n   Local nFor, oRow\n   Local nFactorX &#58;= ResXY&#91; 3 &#93; / aRectD&#91; 3 &#93;\n   Local nFactorY &#58;= ResXY&#91; 4 &#93; / aRectD&#91; 4 &#93;\n\n   //modificando el dialog\n   //PARA RECURSOS TODOS LOS CONTROLES TIENEN QUE ESTAR REDEFINDOS !! OJO !!\n   oDlg&#58;Move&#40; 0, 0, ResXY&#91; 4 &#93;, ResXY&#91; 3 &#93;, &#46;t&#46; &#41;\n\n   // Redfiniendo Tamaño de Fonts de Controles / Dialogs&#46;&#46;\n   oDlg&#58;MSetFont&#40; nFactorX, nFactorY &#41;\n\n   Return Nil\n[/code:283r4q51]\n\nEn el Move() del Dialog puedes hacer esto... yo en este caso he creado una clase TMDialog que hereda de TDialog. El move de los controles. tiene para mantener fijo la parte superior ( lFixTop ) o la parte izquierda ( lFixLeft )\n\n[code:283r4q51]#Include \'FiveWin&#46;ch\'\n\nCLASS TMDialog From TDialog\n\n   METHOD Move&#40;&#41;\n   METHOD ClassName&#40;&#41;            INLINE \'TDIALOG\'\n   METHOD MSetFont&#40;&#41;\n\nENDCLASS\n\n//-----------------------------------------------------------------------------------------//\nMETHOD Move&#40; nTop, nLeft, nWidth, nHeight, lRepaint &#41; CLASS TMDialog\n   Local nFor\n   Local aRectD &#58;=  GetClientRect&#40; &#58;&#58;hWnd &#41;\n\n   Super&#58;Move&#40; nTop, nLeft, nWidth, nHeight, lRepaint &#41;\n\n   For nFor &#58;= 1 To Len&#40; &#58;&#58;aControls &#41;\n       MoveControl&#40; &#58;&#58;aControls&#91; nFor &#93;, aRectD&#91; 3 &#93;, aRectD&#91; 4 &#93;, nHeight, nWidth, &#46;T&#46; &#41;\n   EndFor\n   Return nil\n\n\nStatic Function MoveControl&#40; oCtrl, nBottomAnt, nRightAnt, nBottomNew, nRightNew, lProportional, lFixTop, lFixLeft &#41;\n   Local nTop   &#58;= oCtrl&#58;nTop +  nBottomNew - nBottomAnt\n   Local nLeft  &#58;= oCtrl&#58;nLeft + nRightNew - nRightAnt\n   Local nHeight&#58;= 0\n   Local nWidth &#58;= 0\n   Local nFactorX &#58;= nBottomNew / nBottomAnt\n   Local nFactorY &#58;= nRightNew / nRightAnt\n\n   DEFAULT lProportional &#58;= &#46;F&#46;, ;\n           lFixTop &#58;= &#46;F&#46;, ;\n           lFixLeft&#58;= &#46;F&#46;\n\n   If lProportional\n      nTop   &#58;= Int&#40; oCtrl&#58;nTop * nFactorX &#41;\n      nLeft  &#58;= Int&#40; oCtrl&#58;nLeft * nFactorY &#41;\n      nHeight&#58;= INT&#40; oCtrl&#58;nHeight * nFactorX &#41;\n      nWidth &#58;= INT&#40; oCtrl&#58;nWidth * nFactorY &#41;\n   EndIf\n\n   If lFixTop\n      If lProportional //tenemos que modificar el Height //para ke seubique en la pos correcta\n         nHeight += nTop - oCtrl&#58;nTop\n      EndIf\n      nTop &#58;= oCtrl&#58;nTop\n   EndIf\n\n   If lFixLeft\n      If lProportional //tenemos que modificar el Width //para ke seubique en la pos correcta\n         nWidth += nLeft - oCtrl&#58;nLeft\n      EndIf\n      nLeft &#58;= oCtrl&#58;nLeft\n   EndIf\n\n   If oCtrl&#58;ClassName&#40;&#41; == \'TBITMAP\' &#46;and&#46; !oCtrl&#58;lStretch\n      nWidth &#58;= 0          // cuando el bitmap y no es ajustado\n      nHeight&#58;= 0          // lo dibujamos con sus mismas extesiones\n   EndIf\n\n   oCtrl&#58;Move&#40; nTop, nLeft, nWidth, nHeight &#41;\n\n   Return Nil\n\n//-----------------------------------------------------------------------------------------//\n\nMETHOD MSetFont&#40; nFactorX, nFactorY &#41; CLASS TMDialog\n   Local nFor, oCtrl\n   Local oFont &#58;= TFont&#40;&#41;&#58;New&#40; &#58;&#58;oFont&#58;cFaceName, ;\n                               Int&#40; If&#40; &#58;&#58;oFont&#58;nWidth == Nil, 0, &#58;&#58;oFont&#58;nWidth &#41; * nFactorY &#41;, ;\n                               Int&#40; &#58;&#58;oFont&#58;nHeight * nFactorX &#41;, , ;\n                               &#58;&#58;oFont&#58;lBold, ;\n                               &#58;&#58;oFont&#58;nEscapement, ;\n                               &#58;&#58;oFont&#58;nOrientation, ;\n                               &#58;&#58;oFont&#58;nWeight, ;\n                               &#58;&#58;oFont&#58;lItalic, ;\n                               &#58;&#58;oFont&#58;lUnderline,;\n                               &#58;&#58;oFont&#58;lStrikeOut, ;\n                               &#58;&#58;oFont&#58;nCharSet, ;\n                               &#58;&#58;oFont&#58;nOutPrecision, ;\n                               &#58;&#58;oFont&#58;nClipPrecision,;\n                               &#58;&#58;oFont&#58;nQuality, , ;\n                               &#58;&#58;oFont&#58;nPitchFamily &#41;\n\n\n   &#58;&#58;SetFont&#40; oFont &#41;\n\n   oFont&#58;End&#40;&#41;\n\n   For nFor &#58;= 1 To Len&#40; &#58;&#58;aControls &#41;\n       oCtrl &#58;= &#58;&#58;aControls&#91; nFor &#93;\n       oFont &#58;= TFont&#40;&#41;&#58;New&#40; oCtrl&#58;oFont&#58;cFaceName, ;\n                               Int&#40; If&#40; oCtrl&#58;oFont&#58;nWidth == Nil, 0, oCtrl&#58;oFont&#58;nWidth &#41; * nFactorY &#41;, ;\n                               Int&#40; oCtrl&#58;oFont&#58;nHeight * nFactorX &#41;, , ;\n                               oCtrl&#58;oFont&#58;lBold, ;\n                               oCtrl&#58;oFont&#58;nEscapement, ;\n                               oCtrl&#58;oFont&#58;nOrientation, ;\n                               oCtrl&#58;oFont&#58;nWeight, ;\n                               oCtrl&#58;oFont&#58;lItalic, ;\n                               oCtrl&#58;oFont&#58;lUnderline,;\n                               oCtrl&#58;oFont&#58;lStrikeOut, ;\n                               oCtrl&#58;oFont&#58;nCharSet, ;\n                               oCtrl&#58;oFont&#58;nOutPrecision, ;\n                               oCtrl&#58;oFont&#58;nClipPrecision,;\n                               oCtrl&#58;oFont&#58;nQuality, , ;\n                               oCtrl&#58;oFont&#58;nPitchFamily &#41;\n\n       oCtrl&#58;SetFont&#40; oFont &#41;\n\n       If oCtrl&#58;ClassName&#40;&#41; == \'TSBROWSE\'\n          oCtrl&#58;ChangeFont&#40; oFont &#41;\n       EndIf\n\n       oFont&#58;End&#40;&#41;\n\n   EndFor\n\n   oFont &#58;= Nil\n\n   Return Nil\n\n[/code:283r4q51]','',0,'AIA=','283r4q51',1,0,'',46,0,0),(2202,571,3,47,0,'203.144.143.3',1132412613,1,0,1,1,1,0,'','BtnBmp from resource','Dear All,\n\nMay I have an example for BtnBmp from resource workshop?   Is TButtonBmp support Clipper/FW?\n\nThanks,\nDutch','',0,'AIA=','u6lmojjf',1,0,'',47,0,0),(2203,581,3,47,0,'203.144.143.3',1132412860,1,0,1,1,1,0,'','TSbutton problem?','Dear All,\n\nHave any one found this TSbutton problem as me? When I use Alt+s for \"&amp;Save\" the problem is the valid on TGET is skiped. It means any function on TGET Valid do nothing.  It is my big problem right now because I use a lot TSbutton in my program. \n\nExample\n======\n#include \'Fivewin.ch\' \n#include \'Tsbutton.ch\' \n\nStatic oDlg \n\nProcedure Main \nlocal oGet, oBtn, cVar \ncVar := 0 \n\nDEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 TITLE \'Test TSbutton\' \n\n@ 1, 1 GET oGet VAR cVar SIZE 30,12 PIXEL Valid (cVar&gt;0) \n\n@ 40,50 SBUTTON oBtn PROMPT \'&amp;Test\' ; \nSIZE 30, 20 ; \nPIXEL ; \nACTION MsgInfo(\' Test \') \n\nACTIVATE DIALOG oDlg CENTER \n\nreturn','',0,'AIA=','1oy34vux',1,0,'',47,0,0),(2204,582,6,292,0,'200.84.200.179',1132416006,1,0,1,1,1,1,'','Scanner','Colegas\nNecesito una clase para scanear documentos y almacenarlos en un BD\nCreo que existe una clase TSCANNER, agradezco si algún colega puede enviarmela a <!-- e --><a href=\"mailto:jnavas@adaptapro.com\">jnavas@adaptapro.com</a><!-- e --> (sólo si es libre de uso)','',0,'AIA=','3ht5a45z',1,0,'',292,0,0),(2205,583,12,292,0,'200.84.200.179',1132416697,1,0,1,1,1,1,'','Errorsys','Antonio\nCuando ocurre un error, se sale sin indicar ningún mensaje, será necesario crear un errorfwl\n\nEs posible crear botones con BMP sin necesidad de usar recursos?','',0,'AIA=','1bj10z0r',1,0,'',292,0,0),(2206,571,3,6,0,'87.3.212.185',1132417672,1,0,1,1,1,1,'','Re: BtnBmp from resource','CONTROL \"\", 301, \"TBtnBmp\", 0 | WS_CHILD | WS_VISIBLE, 5, 5, 97, 43\n\nEMG','',0,'AIA=','1em9hesm',1,0,'',6,0,0),(2207,571,3,206,0,'216.236.118.34',1132419582,1,0,1,1,1,0,'','','AFAIK, ButtonBMP available for 32bits only since its support themes in WinXP.\nCMIIW.\n\nhiong','',0,'AIA=','2q5dolu3',1,0,'',206,0,0),(2208,582,6,171,0,'24.147.25.226',1132421803,1,0,1,1,1,0,'','','Juan existe una clase excelente que uso en uno de mis programas y funciona de maravilla\n\n    ProcName......: Scanner.prg                                       \n    Pourpose......: TWAIN standard device Class interface  \n    Date..........: 05-11-96                                          \n    Author........: (c),L.Gadaleta  \n\nSaludos\n\n\nGeorge','',0,'AIA=','1df3fl62',1,0,'',171,0,0),(2209,576,2,10,0,'212.40.255.188',1132429530,1,0,1,1,1,0,'','','Antonio:\n\nTe he enviado a tu email las dos clases (TWAppbox y TWCapture). La TClipboard es propia del FW.\n\nA ver si hay alguna solución para realizar lo que pretendo: que pulsando un botón se pueda seleccionar el texto de lo hay en la pantalla \'embebida\', llevarmelo al clipboard y a partir de aquí ya puedo cogerlo y tratar dicha información.\n\nLa clase TWCapture \'juega\' con la ventana y hasta hace una raya en ella pero no tengo ni remota idea de como seleccionar el texto y llevarmelo al clipboard.\n\nGracias por anticipado si ven alguna forma de hacerlo.\n\nUn saludo.','',0,'AIA=','3rle82rb',1,0,'',10,0,0),(2210,584,3,258,0,'81.242.72.36',1132432051,1,0,1,1,1,0,'','MAPI ERROR with Outlook','I have an application sending mail with a link with Oulook 2000 and it worked fine .\n\n\nMy custommer install outlook 2003 and i receive a MAPI.dll  error\n\nWhat can i do ??','',0,'AIA=','afk5zj08',1,0,'',258,0,0),(2211,585,6,307,0,'200.38.17.153',1132432800,1,0,1,1,1,0,'','tsbrowse','saludos alguien sabe donde conseguir tsbrowse y tsbutton para fwh\ngracias..\narnulfo','',0,'AIA=','1hcjmf88',1,0,'',307,0,0),(2212,586,2,10,0,'212.40.255.188',1132433525,1,0,1,1,1,0,'','¿Cómo puedo imprimir el total de páginas en cada página?','Saludos a tod@os.\n\n¿Cómo puedo imprimir en cada página no sólo el número de la página en sí, sino además el número total de páginas a imprimir(p.e.: Página 1/xx)?\n\nEn la Clase modificada por Enrico María Giordano y otros(*) observo que en el Preview se indica el número de cada página/y el total de las páginas a imprimir (modificación realizada por Marcelo Via Giglio en el Fichero RPREVIEW.PRG que seguidamente trascribo:\n\n    //Toninho@fwi - Thanks Marcelo Via Giglio\n     @ 7, 570 SAY oPAGE PROMPT TXT_PAGENUM+ltrim(str(nPage,4))+\" / \"+ltrim(str(len(aFiles))) SIZE 180, 15 PIXEL OF oBar FONT oFont\n\nLo he intentado de varias maneras pero siempre me dá error OBJECTS/6\nNo Exp. Method: TPRINTER:TXT_PAGENUM.\n\nSi no fuera posible en esta clase modificada, ¿cómo se podría hacer en la que viene standard de FiveWin para Clipper?\n\nGracias de antemano.\n\n(*)\n++++++++++++++++++++++++++++++++++++++++++++++\nTMetafile class with EMF for fivewin:\n----------------------------------------------------------------------------------\n     by   Enrico Maria Giordano\n          Rome, Italy\n          <!-- e --><a href=\"mailto:e.m.giordano@emagsoftware.it\">e.m.giordano@emagsoftware.it</a><!-- e -->\n          Antonio Carlos Pantaglione\n          Catanduva, SP, Brasil\n          <!-- e --><a href=\"mailto:Toninho@fwi.com.br\">Toninho@fwi.com.br</a><!-- e -->\n----------------------------------------------------------------------------------\n   This is an adaptation of FiveTech TMetaFile to use EMF instead WMF.\n++++++++++++++++++++++++++++++++++++++++++++++','',0,'AIA=','2614kfa8',1,0,'',10,0,0),(2213,587,2,10,0,'212.40.255.188',1132436813,1,0,1,1,1,0,'','Imprimir JPG de fondo de documento','Hola de nuevo amigos:\n\nTomando el ejemplo de SAMPLES\\COREL.PRG (// Using CorelDraw to generate printing templates!!!), actualmente imprimo con oPrn:ImportWMF( \".\\PREIMP\\PR-103-1.Wmf\" ) el fondo del documento y a través de oPrn:CmSay(  7.4,  5,	SUBSTR(oDbf0:CSIPF,2,10),oFont) imprimo el dato que deseo en la posición del documento, y todo va bien y perfecto.\n\nEl problema que se me presenta es que el cada fichero WMF es muy pesado (aproximadamente unos 4100 kb!!) y en cambio si es en JPG el tamaño es de solo unos 300 Kb.\n\nPara un trámite se requiere entre 10 y 16 documentos distintos con lo cual al final la memoria se va agotando y el preview hay veces que el documento no lo carga.\n\nAdemás tengo en el directorio donde tengo los impresos unos 46 documentos lo que al final el directorio de preimpresos en formato WMF ocupa ya la friolera de cerca de 200 MB!!!!.\n\nSi estos preimpresos estuvieran en formato JPG sólo ocuparían unos 2.xMB en dicho directorio.\n\nPasando los documentos a formato JPG y poniendo oPrn:SayImage( \".\\PREIMP\\PR-103-1.jpg\" )me da error al imprimir y si pongo oPrn:SayBmp( \".\\PREIMP\\PR-103-1.jpg\" ) no da error pero tampoco lo carga.\n\n¿Alguien puede orientar y decirme los pasos que debo realizar para poder imprimir los JPG, si es que se puede? \n\nSaludos','',0,'AIA=','1lcftxar',1,0,'',10,0,0),(2214,588,3,195,0,'62.38.31.204',1132443327,1,0,1,1,1,0,'','How to impemented varius pen in a printer object','Hello FiveWiners\nI have the following code :[code:21rgk77o]// Printing in portrait and in landscape\n\n#include &quot;fivewin&#46;ch&quot;\n#INCLUDE &quot;COLORS&#46;CH&quot;\n\n#define PAD_LEFT            0\n#define PAD_RIGHT           1\n#define PAD_CENTER          2\n\n\nfunction Main&#40;&#41;\n  local oPrn, oFont, oPen1 , oPen2\n   Local nLinI, nColI, nLinF, nColF\n \n    \n    \n     PRINT oPrn NAME &quot;&#917;&#954;&#964;&#973;&#960;&#969;&#963;&#951; &#963;&#949; LandScape&#46;&#46;&#46;&quot; PREVIEW\n    DEFINE PEN oPen1 WIDTH  2  OF oPrn\n    DEFINE PEN oPen2 WIDTH  6  OF oPrn \n    oFont&#58;= Tfont&#40;&#41;&#58;New &#40; ,,,&#46;T&#46;,,,,,,,,,,,,oPrn&#41; \n    \n      oPrn&#58;SetPage&#40;9&#41;  //a4\n      oPrn&#58;SetLandscape&#40;&#41; // HORIZONTAL\n      \n      PAGE\n         nLinI &#58;=  2&#46;3\n         nColI &#58;=  1&#46;3\n         nLinF &#58;= 19&#46;5\n         nColF &#58;= 28&#46;5\n         oPrn&#58;Cmtr2Pix&#40;@nLinI, @nColI&#41;\n         oPrn&#58;cmtr2Pix&#40;@nLinF, @nColF&#41;\n         oPrn&#58;Box&#40;nLinI, nColI, nLinF, nColF, oPen2&#41;\n         oPrn&#58;CmSay&#40;1&#46;5,13,&quot;CUSTOMER FILE&quot; , oFont,,CLR_BLACK,,PAD_CENTER&#41;\n         nLinI&#58;=3&#46;3\n         nColI&#58;=9&#46;5\n         nLinF&#58;=10&#46;5\n         nColF&#58;=9&#46;5\n         oPrn&#58;Cmtr2Pix&#40;@nLinI, @nColI&#41;\n         oPrn&#58;cmtr2Pix&#40;@nLinF, @nColF&#41;\n         oPrn&#58;Line&#40;nLinI, nColI, nLinF, nColF,oPen1&#41;\n         nRStart&#58;=0&#46;9\n         nCStart&#58;=1&#46;5\n         oPrn&#58;Cmtr2Pix&#40;@nRstart, @nCstart&#41;\n         oPrn&#58;SayBitMap&#40;nRStart,nCstart,&quot;C&#58;\\TEMP\\1st&#46;bmp&quot;,3&#46;4,0&#46;65&#41;\n         nRStart&#58;=0&#46;9\n         nCStart&#58;=25\n         oPrn&#58;Cmtr2Pix&#40;@nRStart,@nCStart&#41;\n         oPrn&#58;SayBitMap&#40;nRStart,nCStart,&quot;C&#58;\\TEMP\\Container&#46;bmp&quot;,1&#46;2,0&#46;65&#41;\n         \n      ENDPAGE\n \n oPen1&#58;End&#40;&#41;\n oPen2&#58;end&#40;&#41;\n oFont&#58;End&#40;&#41;\n\n   ENDPRINT\n \nreturn nil[/code:21rgk77o]\n\nAnd the two definable pens with different widths not shown correctly on the preview or the final printing . The final print out consist from a thin pen  (oPen1) only.\n\nWhat can i do for this?\n\nAny help would be appreciate..\nThanks in advance\nDionisis','',0,'AIA=','21rgk77o',1,0,'',195,0,0),(2216,571,3,47,0,'203.144.143.6',1132454524,1,0,1,1,1,0,'','Does it support Alt+Key?','Dear EMG,\n\nDoes it support Alt+Key (Alt+S for example)?\n\nKind regards,\nDutch','',0,'AIA=','32mfzkhc',1,0,'',47,0,0),(2217,590,1,47,0,'203.144.143.6',1132454600,1,0,1,1,1,0,'','TSbutton problem?','Dear All, \n\nHave any one found this TSbutton problem as me? When I use Alt+s for \"&amp;Save\" the problem is the valid on TGET is skiped. It means any function on TGET Valid do nothing. It is my big problem right now because I use a lot TSbutton in my program. \n\nExample \n====== \n#include \'Fivewin.ch\' \n#include \'Tsbutton.ch\' \n\nStatic oDlg \n\nProcedure Main \nlocal oGet, oBtn, cVar \ncVar := 0 \n\nDEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 TITLE \'Test TSbutton\' \n\n@ 1, 1 GET oGet VAR cVar SIZE 30,12 PIXEL Valid (cVar&gt;0) \n\n@ 40,50 SBUTTON oBtn PROMPT \'&amp;Test\' ; \nSIZE 30, 20 ; \nPIXEL ; \nACTION MsgInfo(\' Test \') \n\nACTIVATE DIALOG oDlg CENTER \n\nreturn','',0,'AIA=','2kxc8rcu',1,0,'',47,0,0),(2218,591,6,52,0,'201.231.15.176',1132466110,1,0,1,1,1,1,'','recuperar un tipo CHAR desde HB_FUN...?','EStimados:\n\nTengo que recuperar un parametro de tipo CHAR pasado como parámetro a una función del tipo HB_FUNC como se hace para luego mostrarla...\n\n[code:1wq1y4q9]HB_FUNC &#40;PRUEBA&#41;&#123;\n    // Aca tendria que recuperar el parametro\n   // y luego mostrarlo&#46;&#46;&#46;&#46;\n\n   MessageBox&#40;0, PARAMETRO RECUPERADO, &quot;Se envio el dato&#46;&#46;&#46;&quot;, MB_OK&#41;;\n\n   &#46;&#46;&#46;\n\n&#125;[/code:1wq1y4q9]\nGracias.\n[code:1wq1y4q9][/code:1wq1y4q9]','',0,'AIA=','1wq1y4q9',1,0,'',52,0,0),(2219,592,4,281,0,'219.251.175.135',1132474807,1,0,1,1,1,1,'','Running Socket program Down.!!!','Hi Antonio !\n\nMay I ask you a question.\nSample program check over....\n\nSERVER(PC) -&gt; CLIENT(PPC)  [color=red:g14eg75i]OK  ![/color:g14eg75i]\nSERVER(PC) &lt;- CLIENT(PPC)  [color=red:g14eg75i]Not Receive  ![/color:g14eg75i]\n\n\nTest 1############\n\n/*----------------------------------------------------------------------*/\nWSAStartup()\nnSocket := Socket( AF_INET, SOCK_STREAM, IPPROTO_IP )\nBindToPort( nSocket, 2550 )\n\nWSAAsyncSelect( nSocket, oWnd:hWnd, 0, ;//WM_ASYNCSELECT,;\n            nOr( FD_ACCEPT, FD_OOB, FD_READ, FD_CLOSE, FD_CONNECT, FD_WRITE ) )\nConnectTo( nSocket, 2550, \"192.168.10.102\" )\nRETU NIL\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> [color=red:g14eg75i]result -&gt; SocKet Init OK ! &amp; Receive / Send OK ![/color:g14eg75i]\n\n\nTest 2############\n\n/*----------------------------------------------------------------------*/\n   oSocket = TSocket():New( 2000 )\n   oSocket:bRead    = { | oSocket | MsgInfo( oSocket:GetData() ) }\n   // Never use a MsgInfo() here because it hangs Windows!!!\n   oSocket:bConnect = { ||  }\n   oSocket:bClose   = { || MsgInfo( \"Server has closed!\" ) }\n   oSocket:Connect( \"192.168.0.15\" ) // use the server IP address here\n\n/*----------------------------------------------------------------------*/\nthis Source program----&gt; problem   \\source\\tsocket.prg\n\n ::cIPAddr  = GetHostByName( GetHostName() )\n  \n[color=red:g14eg75i]-------------Ploblem!!!!!!!!!!!!!!!!!![/color:g14eg75i]\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> [color=red:g14eg75i]result -&gt;program close  &amp;  down !!![/color:g14eg75i]\n\nTest 3############\n\n/*----------------------------------------------------------------------*/\nWSAStartup()\nnSocket := Socket( AF_INET, SOCK_STREAM, IPPROTO_IP )\nBindToPort( nSocket, 2550 )\n\nWSAAsyncSelect( nSocket, oWnd:hWnd, 0, ;//WM_ASYNCSELECT,;\n            nOr( FD_ACCEPT, FD_OOB, FD_READ, FD_CLOSE, FD_CONNECT, FD_WRITE ) )\nConnectTo( nSocket, 2550, \"192.168.10.102\" )\n\nSocketSend( nSocket, \"A\")\ncData := \'\'\nsu := seconds()\ndo while .t.\n    nRetCode := Recv(nSocket, @cData)\n    if nRetCode == -1\n       exit\n    endi\n    if seconds() - su &gt; 4   //4 sec wait\n       exit\n    endi\nendd\nMsginfo(cData)\n\nseconds() Function use....\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> [color=red:g14eg75i]result -&gt; WindowCE Display Message Window : \n              TITLE : \"not implemented yet\" Message : _ftime()\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> result -&gt; WindowCE Display Message Window : \n              TITLE : \"not implemented yet\"  Message : localtime()[/color:g14eg75i]\n\n\nTest Model !!!\n------------------------------------------------------------------------------\n1. HP-RW6100 Mobile PDA\n2. HHP Dolphin 9550 RF Scanner\n------------------------------------------------------------------------------','',0,'Ag==','g14eg75i',1,1132673933,'',281,2,0),(2220,571,3,6,0,'82.57.162.81',1132481377,1,0,1,1,1,1,'','Re: Does it support Alt+Key?','It seems not, sorry.\n\nEMG','',0,'Ag==','3j2kqrr7',1,0,'',6,0,0),(2221,588,3,6,0,'82.57.162.81',1132481887,1,0,1,1,1,1,'','Re: How to impemented varius pen in a printer object','The preview deals with pixels not with printer points. Try to increase the pen width and you\'ll see the difference.\n\nEMG','',0,'Ag==','3isclim8',1,0,'',6,0,0),(2222,571,3,104,0,'201.19.105.128',1132489038,1,0,1,1,1,0,'','','SET ENGLISH ON\n\n(Using a translating) Hello Personal,\n\nI did some changes in the class buttonbmp for do this and other things more.  If they will want to is alone speak me <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards,\n\nRossine.  \n\nSET PORTUGUESE ON\n\nOlá Pessoal,\n\nFiz algumas mudanças na classe buttonbmp para fazer isto e outras coisas mais. Se quiserem é só me falar <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nAbraços,\n\nRossine.','',0,'Ag==','3ewd2ip0',1,0,'',104,0,0),(2223,588,3,195,0,'62.38.26.228',1132502997,1,0,1,1,1,0,'','How to impemented varius pen in a printer object','Deal Enrico\n\nMany thanks for your answer. As always you have 100% right. You heat into the spot.\n\nMany thanks again.\n\nRegards \nDionisis <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','2i6icnoq',1,0,'',195,0,0),(2224,590,1,47,0,'203.144.143.7',1132503400,1,0,1,1,1,0,'','I can fix it already.','Dear All,\n\nIf who use this classes and have got the same problem with me.  Pls change this line\n\nMETHOD GetDlgCode( nLastKey ) CLASS TSBUTTON\n// Remark this two lines\n* ::SendMsg( FM_CLICK )\n// Add this line instead\n  PostMessage( ::oWnd:oCtlFocus:hWnd, FM_CLICK )\nreturn If( ::lActive, DLGC_WANTALLKEYS, Nil )\n\nBest regards,\nDutch','',0,'Ag==','24yyl033',1,0,'',47,0,0),(2225,581,3,47,0,'203.144.143.7',1132503440,1,0,1,1,1,0,'','I can fix it already.','Dear All,\n\nIf who use this classes and have got the same problem with me.  Pls change this line\n\nMETHOD GetDlgCode( nLastKey ) CLASS TSBUTTON\n// Remark this two lines\n* ::SendMsg( FM_CLICK )\n// Add this line instead\n  PostMessage( ::oWnd:oCtlFocus:hWnd, FM_CLICK )\nreturn If( ::lActive, DLGC_WANTALLKEYS, Nil )\n\nBest regards,\nDutch','',0,'Ag==','2c8hsao3',1,0,'',47,0,0),(2226,593,6,292,0,'200.84.200.179',1132504580,1,0,1,1,1,1,'','FTP Demo (Cannot load wininet.dll!)','Coelgas,\n\nHe compilado varios ejemplos para FTP y todos me indican el mensaje (cannot load wininet.dll) lo probé en otro PC con XP emite el mismo mensaje.\n\nNecesito un ejemplo funcional FTP (Fw24 o FW26)','',0,'Ag==','11ick8v8',1,0,'',292,0,0),(2227,580,3,303,0,'68.7.28.54',1132509067,1,0,1,1,1,0,'','','That should work, the problem must be elsewhere in your code. What was the error message?\n\nUnrelated, but I suggest this:\n\n           MENUITEM \"E&amp;xit	Alt+F4\" ACTION wndMain():End()\n\nWndMain() returns the main window object. If you use this, then you don\'t have to pass around the oWnd object.\n\nThe ampersand allows the user to use the (standard) X hotkey, and Alt-F4 works to exit all Windows applications (no programming required). When you enter the above line, use the Tab key between \"E&amp;xit\" and \"Alt-F4.\"\n\nJames','',0,'Ag==','155b739o',1,0,'',303,0,0),(2228,579,3,303,0,'68.7.28.54',1132509312,1,0,1,1,1,0,'','','I did this once, but it was quite difficult. I pre-processed all the data into a temp file, one field for each column, then did the report on the temp file. The problem is that you have to figure out how to get the right data into the fields, and also how to design the report so the page ends when the data in the field ends. If I remember correctly there were occasional problems when printed on different printers too.\n\nJames','',0,'Ag==','1k4e6cxq',1,0,'',303,0,0),(2229,594,6,287,0,'81.41.156.39',1132510083,1,0,1,1,1,0,'','Error BASE/1110  Argument error: SUBSTR','Em una ventana de al pasar por el get que deberia evaluar un codec block peta, el programa, FWH2.4, harbour 43 flex,  sabe alguien por que\ngracias, estoy muy ignorante ultimamente se aceptan ideas frescas, gracia\n\nCalled from SUBSTR(0)\n   Called from GET:UNTRANSFORM(604)\n   Called from TWINDOW:LOSTFOCUS(785)\n   Called from TWINDOW:KILLFOCUS(767)\n   Called from TWINDOW:HANDLEEVENT(1219)\n   Called from _FWH(2959)\n   Called from SETFOCUS(0)\n   Called from TWINDOW:GONEXTCTRL(2362)\n   Called from TWINDOW:KEYDOWN(2262)\n   Called from TWINDOW:KEYDOWN(732)\n   Called from TWINDOW:KEYDOWN(645)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(1237)\n   Called from _FWH(2959)\n   Called from DIALOGBOX(0)','',0,'Ag==','2dwfjanh',1,0,'',287,0,0),(2230,595,6,287,0,'81.41.155.34',1132518354,1,0,1,1,1,0,'','se pueden editar campos numericos con fwh2.4 y harbour 43','me da error al intentar editar campos numericos en los GETs, aguien sabe que hago mal o si realmente hay que pasar los datos a texto, gracias','',0,'Ag==','1bh9q7i0',1,0,'',287,0,0),(2231,596,2,66,0,'24.232.135.75',1132521375,1,0,1,0,1,0,'','Scope y  Filtros','Estimados Colegas \n\nQuiero hacer un scope y dentro del mismo filtrar hasta ahora\nel scope me funciona perfecto, lo que no me funciona es\nel filter que en vez de hacerlo sobre el scope los hace\nsobre la dbf entera y me tarda un tiempo enorme ya que\nson 500000  registros, si alguien me puede orientar  \nque estoy haciendo mal.\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com\">databaselab2002@yahoo.com</a><!-- e -->\n\n\n#include \"FiveWin.ch\"\n#include \"ord.ch\" // do clipper (CDX)\n\nREQUEST DBFCDX\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   SET _3DLOOK ON\n   rddSetDefault(\"DBFCDX\")\n   USE MD  \n   MD-&gt;(ORDLISTADD(\"MDL\"))\n   \n   MD-&gt;( OrdScope( 0,\"AGRELO\"))\n   MD-&gt;( OrdScope( 1,\"AGRELO\"))\n   MD-&gt;( dbGoTop())\n  * SET FILTER to  upper( MD-&gt;PER_NOMBRE ) $  \"CATAL\"\n   SET FILTER to \"CATAL\" $ upper( MD-&gt;PER_NOMBRE ) \n  // PROBE SET FILTER DE LAS DOS MANERAS\n   *MD-&gt;( dbGotop())\n\n ***********************************************************\n\n   Browse()                \n\n   USE\n\nreturn nil\n\n\Z','',0,'Ag==','swakx73f',1,0,'',66,0,0),(2232,597,6,66,0,'24.232.135.75',1132521423,1,0,1,0,1,0,'','Scope y  Filtros','Estimados Colegas \n\nQuiero hacer un scope y dentro del mismo filtrar hasta ahora\nel scope me funciona perfecto, lo que no me funciona es\nel filter que en vez de hacerlo sobre el scope los hace\nsobre la dbf entera y me tarda un tiempo enorme ya que\nson 500000  registros, si alguien me puede orientar  \nque estoy haciendo mal.\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com\">databaselab2002@yahoo.com</a><!-- e -->\n\n\n#include \"FiveWin.ch\"\n#include \"ord.ch\" // do clipper (CDX)\n\nREQUEST DBFCDX\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   SET _3DLOOK ON\n   rddSetDefault(\"DBFCDX\")\n   USE MD  \n   MD-&gt;(ORDLISTADD(\"MDL\"))\n   \n   MD-&gt;( OrdScope( 0,\"AGRELO\"))\n   MD-&gt;( OrdScope( 1,\"AGRELO\"))\n   MD-&gt;( dbGoTop())\n  * SET FILTER to  upper( MD-&gt;PER_NOMBRE ) $  \"CATAL\"\n   SET FILTER to \"CATAL\" $ upper( MD-&gt;PER_NOMBRE ) \n  // PROBE SET FILTER DE LAS DOS MANERAS\n   *MD-&gt;( dbGotop())\n\n ***********************************************************\n\n   Browse()                \n\n   USE\n\nreturn nil\n\n\Z','',0,'Ag==','3vsk9tey',1,0,'',66,0,0),(2233,275,2,287,0,'81.41.155.34',1132526367,1,0,1,1,1,0,'','error de proteccion general','cierra la base de datos con Dbcloseall()','',0,'Ag==','32lwhrpe',1,0,'',287,0,0),(2234,598,16,2,0,'80.58.2.107',1132527999,1,0,1,1,1,1,'','New FiveWin 2.7 - Nuevo FiveWin 2.7','November 2005: New FiveWin 2.7 version for CA-Clipper, Harbour and xHarbour, C3 and Alaska Xbase++. After seven months of development work, we are pleased to offer you this new version with many news, fixes and fully compatible with the most recent Harbour and xHarbour builds.\n\nNoviembre 2005: Nuevo FiveWin versión 2.7 para CA-Clipper, Harbour y xHarbour, C3 y Alaska Xbase++. Tras siete meses de desarrollo, se presenta esta nueva versión con novedades, arreglos y compatible con las versiones más recientes de Harbour/xHarbour.','',0,'Ag==','1ezklyg4',1,0,'',2,0,0),(2235,599,16,2,0,'80.58.2.107',1132528268,1,0,1,1,1,1,'','Harbour/xHarbour November 2005 builds','You may already download the new Harbour/xHarbour November builds from: \n\nPodeis descargar los nuevos builds de Noviembre de Harbour/xHarbour desde: \n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w --> (Borland version) \n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> (Borland version) \n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbourm.exe\">www.fivetechsoft.com/files/harbourm.exe</a><!-- w --> (Microsoft version) \n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbourm.exe\">www.fivetechsoft.com/files/xharbourm.exe</a><!-- w --> (Microsoft version) \n\nWarning: These builds require the new FWH 2.7 version.\n\nAviso: Estos builds requiren la nueva versión de FWH 2.7.','',0,'Ag==','2a3z3f0n',1,0,'',2,0,0),(2236,600,3,2,0,'80.58.2.107',1132528423,1,0,1,1,1,1,'','New FWH 2.7 - New Harbour/xharbour builds','Please review the \"whatsnew\" section of these forums. Thanks.','',0,'Ag==','kubxmlep',1,0,'',2,0,0),(2237,601,6,2,0,'80.58.2.107',1132528482,1,0,1,1,1,1,'','Nuevo FWH 2.7 - Nuevos builds de Harbour/xHarbour','Por favor revisad la sección \"whatsnew\" de estos foros. Gracias.','',0,'Ag==','3o5zy6go',1,0,'',2,0,0),(2238,596,2,9,0,'62.174.202.39',1132549627,1,0,1,1,1,0,'','','¿Porque no utilizas un índice temporal?\n\nSi quieres un ejemplo dime el nombre del campo por el que está indexado el fichero índice.\n\n\nManuel','',0,'Ag==','2zvvumna',1,0,'',9,0,0),(2239,580,3,160,0,'210.212.142.6',1132551166,1,0,1,1,1,0,'','','Dear James / Enrico,\n\nThe following code did solve my problem.\n        MENUITEM \"E&amp;xit  Alt+F4\" ACTION wndMain():End().\n\nHowever my code that does not work is as follows :\n\nTIA\nMilan.\n\n--------------------------Cut------------------------------\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oWnd, oBrush, oBar, oBmp, oIcon\n\n   DEFINE ICON oIcon RESOURCE \'Task\'\n\n   DEFINE BRUSH oBrush STYLE BORLAND       // FiveWin new predefined Brushes\n\n   DEFINE WINDOW oWnd FROM 4, 4 TO 25, 75 ;\n      TITLE \"Test Menu Program\" ;\n      MENU BuildMenu(oWnd) ;\n      BRUSH oBrush ;\n      ICON oIcon MDI\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\nfunction BuildMenu (oWnd)\n\n   local oMenu\n\n   MENU oMenu\n\n      MENUITEM \"&amp;File\"\n      MENU\n        MENUITEM \"Exit\" ACTION oWnd:End()\n     ENDMENU\n\n   ENDMENU\n\nreturn oMenu\n--------------------------Paste----------------------------','',0,'Ag==','h226e5p4',1,0,'',160,0,0),(2240,602,2,9,0,'62.174.202.39',1132553270,1,0,1,1,1,0,'','COLUMNA CONDICIONAL EN UN REPORT','Tengo un report con varias columnas. Una de ellas (numérica), quiero que el dato no aparezca (quede en blanco) cuando es cero.- ¿Es posible?.\n\n\nUn saludo\n\nManuel','',0,'Ag==','37r02u0r',1,0,'',9,0,0),(2241,580,3,47,0,'203.144.143.2',1132561665,1,0,1,1,1,0,'','','Try to change oWnd be Static instead of local\n\nStatic oWnd\n\nFunction Main()\n\n\nreturn\n\nfunction BuildMenu \n\nlocal oMenu \n\nMENU oMenu \n\nRegards,\nDutch\nMENUITEM \"&amp;File\" \nMENU \nMENUITEM \"Exit\" ACTION oWnd:End() \nENDMENU \n\nENDMENU \n\nreturn oMenu','',0,'Ag==','311kags2',1,0,'',47,0,0),(2242,275,2,88,0,'82.150.2.18',1132562261,1,0,1,1,1,1,'','','Buenas, tambien puedes cerrar todas las bases de datos con:\n\n[code:r5fyg3dv]close databases[/code:r5fyg3dv]\n\n\n\nNos leemos!!','',0,'AIA=','r5fyg3dv',1,0,'',88,0,0),(2243,92,12,271,0,'80.58.53.235',1132564549,1,0,1,1,1,0,'','Para Luis: Un problemilla con HB en Sarge','Hola <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nYo utilizo Sarge y me he instalado HB desde el repositorio. Es muy comodo eso de apt-get install harbour.\n\nTengo un problema que creo que es de Harbour en Linux, porque lo que tengo hecho en Windows no da ese error. Veamos:\n\nHabro una tabla con el RDD CDX y si no hay fichero .CDX de indice,\npues lo creo, este es el código:\n\nSET AUTOSHARE TO 1\nSET AUTOPEN ON // Abre los indices CDX automaticamente.\n\nUSE CLIENTE NEW SHARED //ALIAS \"CLIENTE\"\n\nif !File(\"CLIENTE.cdx\")\nINDEX ON UPPER(FIELD-&gt;CodCli) TAG indcc\nINDEX ON UPPER(FIELD-&gt;Nombre1) TAG indcn\nINDEX ON UPPER((FIELD-&gt;Provincia+;\nFIELD-&gt;Poblacion+FIELD-&gt;Nombre1)) TAG indcnpp\nendif\n\nCLIENTE-&gt;(OrdSetFocus(2))\n\nPerfecto, veo los datos ordenados y bien.\nSalgo de la aplicación y cuando vuelvo a entrar... PUF ... Violacion\nde segmento.\n\nTengo comprobado que es por lo del fichero .CDX pues si elimino el\ncorrespondiente (CLIENTE.cdx, que es como harbour me lo crea), vuelve a abrir la aplicación perfectamente.\n\n¿Alguien ha tenido este problema? ¿Que puede ser?\nSupongo que me podreis decir que esto es mas del foro de Harbour, pero\nel unico que conozco es el de FWH.\n¿Hay algún foro en español de Harbour solo?\n\nUn saludo y gracias por adelentado.','',0,'AIA=','w9cmnijj',1,0,'',271,0,0),(2244,556,3,297,0,'217.57.213.130',1132565750,1,0,1,1,1,0,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> OK ThankYou very much.','',0,'AIA=','1bxyht26',1,0,'',297,0,0),(2245,583,12,2,0,'80.58.2.107',1132567466,1,0,1,1,1,1,'','','Juan,\n\nVamos a revisar el gestor de errores. Posiblemente este usando el por defecto de Harbour/xharbour.\n\nEn cuanto a los botones, siempre usa ficheros externos. En Linux, que sepamos, de momento, no estan implementados los recursos \"incrustados\" en la aplicación.','',0,'AIA=','24ozwnby',1,0,'',2,0,0),(2246,92,12,2,0,'80.58.2.107',1132567583,1,0,1,1,1,1,'','','Manuel,\n\nSeguramente el problema se solucione instalando una versión más reciente de Harbour.\n\nhas probado con la que nosotros proporcionamos, por si hay alguna diferencia con la que se consigue con el apt-get ?','',0,'AIA=','2nky9dhe',1,0,'',2,0,0),(2247,556,3,6,0,'87.3.228.86',1132568713,1,0,1,1,1,1,'','','Unfortunately it seems not working as expected... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','ss4vmn5p',1,0,'',6,0,0),(2248,603,1,309,0,'194.204.28.27',1132569368,1,0,1,1,1,0,'','Is it possible to destroy a class?','Hello,\n    is it possible to remove a class from program memory?\nSeems to me I am looking for a reverse function to _ObjClsIns().....\n\nTaavi.','',0,'AIA=','ljb3zqho',1,0,'',309,0,0),(2249,604,6,310,0,'151.92.176.3',1132570790,1,0,1,1,1,0,'','PREVIEW  de los reports en blanco','Hola a todos.\n\nEstoy intentando usar la versión 2.6 y también la 2.7 de Noviembre de fivewin para harbour, pero si coloco la clausula \"Preview\" en los Report\'s, me sale la ventana del preview en blanco y no se imprime nada.\nLo curioso es que si compilo el ejemplo de \"TESTRPT2.PRG\", si funciona bien el Preview.  \n\nAlguna sujerencia ?\n\nGracias de antemano\nUn saludo a todos.','',0,'AIA=','187xxdm7',1,0,'',310,0,0),(2250,605,6,123,0,'81.39.238.51',1132570916,1,0,1,1,1,0,'','FWH27 y xharbour','Antonio,\n\nAl instalar el xharbour para fwh27 faltan algunas librerías.  Entre ellas:\n\ndbfdbt.lib\nhbzip.lib\n\n¿Donde las puedo conseguir?\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','k2e5l6to',1,0,'',123,0,0),(2251,92,12,271,0,'80.58.53.235',1132570975,1,0,1,1,1,0,'','OK voy a ver','OK\n\nVoy a ver si con la última version esta bien.\nLe he escrito a Luis porque si es él el que mantiene la version de Sarge, tal vez le venga bien para poner la corregida.\n\n Un saludo Antonio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1m06utpx',1,0,'',271,0,0),(2252,606,3,217,0,'200.153.134.141',1132571344,1,0,1,1,1,0,'','TPages from code','Hi!\n\nI need a sample usage of TPages from code. I use it with resources but I couldn\'t define from code like @ line, column...\n\nRegards,\nMaurilio','',0,'AIA=','37nir2du',1,0,'',217,0,0),(2253,557,1,204,0,'83.235.233.167',1132571460,1,0,1,1,1,0,'','','Thanks for the reply. It still isn\'t sorking. I have two choices.\nA)Merge the two dlls into one, or\nB)use Setresource(cDllName) before and after calls to that dll.\nDLL B is a general perpuse one that holds resources for the user login/out and movement tracking system. It\'s small so I guess I\'ll mege it into DLL A which is a program specific one.','',0,'AIA=','2lj1lxbh',1,0,'',204,0,0),(2254,598,16,76,0,'80.17.137.201',1132572006,1,0,1,1,1,1,'','upgrade','is it a free upgrade from 2.6?','',0,'AIA=','38xagtzh',1,0,'',76,0,0),(2255,585,6,23,0,'80.58.44.235',1132572374,1,0,1,1,1,1,'','','ftp.quiquesoft.com','',0,'AIA=','2n9noej4',1,0,'',23,0,0),(2256,598,16,288,0,'84.172.8.49',1132575888,1,0,1,1,1,0,'','Whats new ???','???','',0,'AIA=','13ysn8q8',1,0,'',288,0,0),(2258,598,16,2,0,'80.58.2.107',1132577180,1,0,1,1,1,1,'','','Dan,\n\nSeven months development on a set of different FiveWin versions for different compilers and fully compatibility with the most recent Harbour and xHarbour builds. Please review the whatsnew list from <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/whatsnew.html\">http://www.fivetechsoft.com/english/whatsnew.html</a><!-- m -->\n\nIf you are looking for something brand new then you may use Microsoft new Express products line, including Visual Basic, C#, etc.','',0,'AIA=','18e5x587',1,0,'',2,0,0),(2259,602,2,78,0,'200.121.19.71',1132577259,1,0,1,1,1,0,'','','Hola Manuel....\n...\n...\nREPORT oPrn CAPTION vTitulo PREVIEW;\n        HEADER M-&gt;vNomPro,\"Pagina \"+Str(oPrn:nPage()) RIGHT;\n        TITLE vTitulo CENTER;\n        FOOTER \"Fecha:\" + DtoC(Date())+\" Hora:\"+Time()  FONT vFont\n        oPrn:oDevice:lPrvModal := .T.   // preview modal\n\n        COLUMN TITLE \"Valor\"     DATA [b:1of78ik6]If(Base-&gt;valor = 0,\"\",Base-&gt;valor)[/b:1of78ik6]\n...\n...\n\nSalu2\nWilli','',0,'QA==','1of78ik6',1,0,'',78,0,0),(2260,556,3,2,0,'80.58.2.107',1132577397,1,0,1,1,1,1,'','','Enrico,\n\nBut that may be something specific to Harbour/xHarbour ProcLine() function.','',0,'QA==','134r4pgy',1,0,'',2,0,0),(2261,556,3,6,0,'87.3.228.86',1132577587,1,0,1,1,1,1,'','','Yes, of course.\n\nEMG','',0,'QA==','7414azs8',1,0,'',6,0,0),(2262,563,6,300,0,'200.103.110.165',1132577601,1,0,1,1,1,0,'','','Gracias Antônio, funcionou estupendo.','',0,'QA==','17woquvt',1,0,'',300,0,0),(2263,603,1,2,0,'80.58.2.107',1132577687,1,0,1,1,1,1,'','','Taavi,\n\nNeither Clipper or Harbour/xHarbour provide such interesting feature, sorry.','',0,'QA==','mvl7ed6t',1,0,'',2,0,0),(2264,605,6,2,0,'80.58.2.107',1132578140,1,0,1,1,1,1,'','','Jose Luis,\n\nDBFDBT.lib ya no existe. No se usa. En su lugar se usan DBFFPT.lib y HBSIX.lib.\n\nHBZIP.lib es una contribución propia de xHarbour que tienes que buscar en xharbour.','',0,'QA==','2rvjwxdt',1,0,'',2,0,0),(2265,596,2,66,0,'24.232.135.75',1132579929,1,0,1,0,1,0,'','Scopes y Filtros','Gracias Manuel\n\nSe puede crear un indice temporal con operador $\n\nej  index on clientes-&gt; Nombre  to  Nombre  for/while   Nombre $  \"Catal\"\n\nLa idea es crear un indice temporal con los datos del scope que el\ncampo nombre contenga \"Catal\" en cualquier sector del mismo\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'QA==','2p7cq710',1,0,'',66,0,0),(2266,572,3,31,0,'195.182.84.105',1132580272,1,0,1,1,1,1,'','','Hello James ! Thanks for your reply . But I found that the problem isn\'t here . It\'s cTempFile() function :\n\nfunction cTempFile()        // returns a temporary filename\n   local cFileName\n   static cOldName\n   while File( ( cFileName := StrTran( Time(), \":\", \"\" ) ) ) .or. ;\n         cFileName == cOldName\n   end\n   cOldName = cFileName\nreturn cFileName\n\n   This function is without incoming arguments . \n\n METHOD Open() CLASS TDbOdbcDirect\n   local aFields\n   local nLen, n\n   DEFAULT ::cFileName := cTempFile(GetEnv(\"TEMP\"),\"DBF\") ,;\n           ::cAlias := \"\"\n\n   In TDbOdbcDirect method Open() this function is with arguments . But the arguments isn\'t working and I get an error : \n\n   Error description: Error DBCMD/1010  Illegal characters in alias: ::cAlias\n   Called from DBUSEAREA(0)\n   Called from TDBODBCDIRECT:OPEN(0)\n\n   Antonio , do you have correct version of this function ?\n\n   With best regards ! Rimantas .','',0,'QA==','1cr1uh9i',1,0,'',31,0,0),(2267,608,6,217,0,'200.153.134.141',1132580957,1,0,1,1,1,0,'','TPages desde codigo','Hola! \n\nYo necesito hacer una TPage desde codigo. Yo uso desde resources pero no consigo hacerla desde codigo como @ linea, columna...\nSe puderen me dar una ayudita...\n\nGracias,\nMaurilio','',0,'QA==','1jta1e78',1,0,'',217,0,0),(2268,609,3,35,0,'167.7.140.254',1132581442,1,0,1,1,1,0,'','Missing dbfdbt for both MSVC and Borland FWH27','Antonio\n\nMissing the above two files from xHarbout FTDN Setup  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'QA==','1grgozuq',1,0,'',35,0,0),(2269,610,6,121,0,'201.160.3.33',1132585180,1,0,1,1,1,1,'','Archivos por usuario','Existe alguna forma de saber que archivos tiene abiertos un usuario del sistema, desde un programa de FWH','',0,'QA==','2wbxcbnh',1,0,'',121,0,0),(2270,609,3,2,0,'83.52.211.44',1132586118,1,0,1,1,1,1,'','','Rick,\n\nDBFDBT.lib is not longer used, it does not exists. Now it is replaced by two new libs: DBFFPT.lib and HBSIX.lib.','',0,'QA==','33e99u1c',1,0,'',2,0,0),(2271,605,6,123,0,'81.39.238.51',1132586690,1,0,1,1,1,0,'','','Antonio\n\n[quote:26i581ut]DBFDBT.lib ya no existe. No se usa. En su lugar se usan DBFFPT.lib y HBSIX.lib. [/quote:26i581ut]\n\nAl quitar dbfdbt y dejar unicamente dbfftp.lib me salen estos errores de enlazado:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\TRABAJOS\\UTILS\\XHARBOURBC27\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\TRABAJOS\\UTILS\\XHARBOURBC27\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\TRABAJOS\\UTILS\\XHARBOURBC27\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\TRABAJOS\\UTILS\\XHARBOURBC27\\LIB\\RDD.LIB|dbf1\n\n¿Que me dejo por el camino?\n\n[quote:26i581ut]HBZIP.lib es una contribución propia de xHarbour que tienes que buscar en xharbour.[/quote:26i581ut]\n\nMe he bajado las contribuciones de xharbour y al enlazar la hblzip.lib me da este error de enlazado:\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\TRABAJOS\\UTILS\\XHARBOURBC27\\LIB\\HBZIP.LIB|zip\n\n¿Que hago mal?\n\nSaludos y gracias.\nJosé Luis Capel','',0,'gA==','26i581ut',1,0,'',123,0,0),(2272,611,2,129,0,'201.239.148.44',1132587132,1,0,1,1,1,0,'','ayuda con la clase tcalendar','amigos, tengo problemas con la clase tcal, la coloco en mi dialog, pero cuando la invoco, me sale el mes en ingles, me reenviaron la lib, y el ch, recompilo pero igual ??? alguien sabe porque\n\n\nfw 2.2, blinker 5.0, clipper 53','',0,'gA==','12aa4ip8',1,0,'',129,0,0),(2273,609,3,35,0,'167.7.140.254',1132587312,1,0,1,1,1,0,'','','Antonio\n\nGetting the following link errors .. not worried about the first two ..\n\nC:\\MSVC\\BIN\\link  @makefile.lnk /nologo /SUBSYSTEM:WINDOWS /force:multiple \nfivehmx.lib(GETSYSIN.obj) : warning LNK4006: \"void __cdecl HB_FUN_GETSYSFONT(void)\" (?HB_FUN_GETSYSFONT@@YAXXZ) already defined in FUNC_LIB.obj; second definition ignored\nfivehmx.lib(GETSYSIN.obj) : warning LNK4006: \"void __cdecl HB_FUN_GETSYSFONT(void)\" (?HB_FUN_GETSYSFONT@@YAXXZ) already defined in FUNC_LIB.obj; second definition ignored\n   Creating library pcasw32.lib and object pcasw32.exp\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _regcomp referenced in function _hb_getregex\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _regfree referenced in function _hb_freeregex\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _regexec referenced in function _hb_regexMatch\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _pcre_free referenced in function \"void __cdecl HB_FUN_HB_REGEXCOMP(void)\" (?HB_FUN_HB_REGEXCOMP@@YAXXZ)\nrdd.lib(rddsys.obj) : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_DBFNTX(void)\" (?HB_FUN_DBFNTX@@YAXXZ)\npcasw32.exe : fatal error LNK1120: 5 unresolved externals','',0,'gA==','133psnxb',1,0,'',35,0,0),(2274,605,6,2,0,'83.52.211.44',1132587362,1,0,1,1,1,1,'','','Jose Luis,\n\nRelee mi mensaje  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nNecesitas HBSIX.lib también.\n\nEn cuanto a HBZIP.lib, tienes que recompilarla con los ficheros del CVS más recientes de xHarbour.','',0,'gA==','3ej9tgkq',1,0,'',2,0,0),(2275,610,6,2,0,'83.52.211.44',1132587515,1,0,1,1,1,1,'','','Marco,\n\nSi te refieres a ficheros DBFs e índices, el error system de FWH te los indica en el fichero error.log, si generas un error: como hacer X++.','',0,'gA==','128cwua6',1,0,'',2,0,0),(2276,612,12,271,0,'80.58.53.235',1132587561,1,0,1,1,1,0,'','Errores al compilar con Harbour del CVS','Hola <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPues que he generado Harbour 0.45 del CVS en mi Debian Sarge. Todo se ha creado e instalado perfectamente.\n\nPero a la hora de compilar y enlazar un ejemplo que tengo para ver si no hay problemas, me dice que no encientra la HB_FUNCTION_DBFFPT o algo así (lo digo de cabeza pero esta claro ¿no?).\n\nLe he añadido la clausula -ldbvffpt al enlazador pero ahora me hace llamadas a funciones que no encuentra.\n\n¿Me podría alguien decir cuales son las nuevas opciones de compilado-enlazado de Harbour en Linux?\n\n       Un saludo y gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','7eoxw0pe',1,0,'',271,0,0),(2278,609,3,2,0,'83.52.211.44',1132587914,1,0,1,1,1,1,'','','Rick,\n\nI email you pcrepos.lib from xHarbour.\n\nRegarding the latest error you get, are you doing a REQUEST DBFNTX in your code ? (though it may be not be needed).','',0,'gA==','1g3gqyo6',1,0,'',2,0,0),(2279,605,6,123,0,'81.39.238.51',1132588155,1,0,1,1,1,0,'','','Antonio,\n\n[quote:qnkhjhpu]Relee mi mensaje Smile [/quote:qnkhjhpu]\n\nLas prisas de probar la nueva versión!!!\n\nGracias!!\n\n[quote:qnkhjhpu]En cuanto a HBZIP.lib, tienes que recompilarla con los ficheros del CVS más recientes de xHarbour.[/quote:qnkhjhpu]\n\n¿Serías tan amable de enviarme esa lib? Es que no tengo cvs, ni se como acceder al cvs ni como montar todo el sistema para compilar desde cvs... \n\nSeguro que tu acabas antes que yo <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos y gracias!\nJosé Luis Capel','',0,'gA==','qnkhjhpu',1,0,'',123,0,0),(2280,609,3,35,0,'167.7.140.254',1132588517,1,0,1,1,1,0,'','','Antonio\n\nJust dbfcdx .. not using memo\'s in this app .. by the way this is using MSVC as a C compiler.\n\nSnipit of code :\n\nREQUEST DBFCDX\nrddsetdefault ( \"DBFCDX\" )\n\nAlso .. added dbfntx to the link list .. now only getting these errors :\n\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _regcomp referenced in function _hb_getregex\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _regfree referenced in function _hb_freeregex\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _regexec referenced in function _hb_regexMatch\nrtl.lib(regex.obj) : error LNK2019: unresolved external symbol _pcre_free referenced in function \"void __cdecl HB_FUN_HB_REGEXCOMP(void)\" (?HB_FUN_HB_REGEXCOMP@@YAXXZ)\npcasw32.exe : fatal error LNK1120: 4 unresolved externals','',0,'gA==','39jx9g1p',1,0,'',35,0,0),(2281,605,6,2,0,'80.58.2.107',1132588731,1,0,1,1,1,1,'','','Enviado hbzip.lib por email <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','13f7qb2y',1,0,'',2,0,0),(2282,609,3,2,0,'80.58.2.107',1132588813,1,0,1,1,1,1,'','','Rick,\n\nPlease use the pcrepos.lib I have emailed you to <!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->.','',0,'gA==','cfcurz9o',1,0,'',2,0,0),(2283,609,3,35,0,'167.7.140.254',1132589009,1,0,1,1,1,0,'','','Antonio\n\nYES .. had to add dbfntx, hbsix and pcrepos .. you will prob need to add pcrepos.lib to your distribution FTDN disk.\n\nRick Lipkin','',0,'gA==','25nhbtwt',1,0,'',35,0,0),(2284,605,6,123,0,'81.39.238.51',1132589922,1,0,1,1,1,0,'','','Antonio,\n\nMuuuchas gracias!\n\nAhora va todo fino fino...\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1l0zlku5',1,0,'',123,0,0),(2285,609,3,2,0,'80.58.2.107',1132592827,1,0,1,1,1,1,'','','Rick,\n\nYes, we are going to add it. Thanks for your feedback,','',0,'gA==','352wp2nn',1,0,'',2,0,0),(2286,613,6,23,0,'80.58.44.235',1132594069,1,0,1,1,1,1,'','TPrinter','Hola foro. Me estoy volviendo gilipollas o es que ya no se usar el objeto TPrinter ... me explico\n\nFunction Prueba()\nLocal oPrn, oFont\n \n  PRINT oPrn PREVIEW\n    PAGE\n       DEFINE FONT oFont NAME \"Courier New\" SIZE 0,-12 OF oPrn\n       oPrn:cmSay (1,1,\"HOLA MACARENA\",oFont)\n       oFont:End()\n    ENDPAGE\n  ENDPRINT\nReturn (nil)\n\n... pues esto me imprime el HOLA MACARENA pero super-comprimido y unas letras encima de otras. \nHe probado combinaciones con el SIZE pero nada.\n¿¿¿¿ que ocurre ????\n\nGracias.','',0,'gA==','3jml5wur',1,0,'',23,0,0),(2287,568,2,180,0,'83.54.15.238',1132596368,1,0,1,1,1,0,'','','Hola Manuel,\nprecisamente estoy haciendo una aplicación de recibos y el cliente me ha pedido poder generar un fichero para las domiciliaciones. Creo que se trata de la norma bancaria 19 ¿Podrías orientarme sobre la estructura del fichero o donde encontrar documentación?\nUn saludo,\nManuel Aranda','',0,'gA==','kw8qi8z6',1,0,'',180,0,0),(2288,613,6,23,0,'80.58.44.235',1132596497,1,0,1,1,1,1,'','','No hace falta mirar nada.\nEl problema era del easypreview que por lo visto no se adapta bien al harbour+fwh (supongo que será por las emf).\nEl printer si PREVIEW va perfecto.','',0,'gA==','162jz61v',1,0,'',23,0,0),(2289,613,6,127,0,'83.34.19.80',1132596581,1,0,1,1,1,0,'','','Yo he tenido los mismos problemas con impresoras HP de las nuevas, y además me sacaba varias páginas sin saber por que.\nLa impresora estaba conectada por USB, ( que supongo que no tendrá nada que ver ).\nMe entretuve poco a poco comentando líneas de código y cambiando cosas hasta que lo arreglé como pude.\nUn saludo.','',0,'gA==','1jdd0081',1,0,'',127,0,0),(2290,614,6,127,0,'83.34.19.80',1132597055,1,0,1,1,1,0,'','Copiar ficheros de Theos','Alguien sabría decirme cómo partir ficheros bajo Theos para sacarlos a un disquete de DOS ?\n\nTengo que sacar unos ficheros de Theos de un PC 286 viejísimo y estoy probando con la orden PUTFILE y me funciona pero me dice que disco lleno porque lo estoy intentando copiar a disquetes.\n\nHay alguna manera de partir los ficheros o algo ?\n\nGracias.','',0,'gA==','1ueb4wzt',1,0,'',127,0,0),(2291,600,3,217,0,'200.153.134.141',1132597516,1,0,1,1,1,0,'','Re: New FWH 2.7 - New Harbour/xharbour builds','[quote=&quot;Antonio Linares&quot;:2uz908jp]Please review the \"whatsnew\" section of these forums. Thanks.[/quote:2uz908jp]\n\nGreat news, Antonio.\nReading whatsnew.txt I saw that you did corrections in TxBrowse. I have a lot of problems with this class and it came from FWH 2.4.\nThe main bug for me is when we move over de cells left to right and it isn\'t painted correctely.\nCan you publish the corrections for TxBrowse for those that bought FWH 2.4 to 2.6 and this class never work 100% ?\n\nBest regards,\nMaurilio','',0,'gA==','2uz908jp',1,0,'',217,0,0),(2292,615,3,35,0,'167.7.140.254',1132603847,1,0,1,1,1,0,'','Ads link errors using REQUEST _ADS xHarbour 99.51 FTDN Nov05','To All\n\nFor anyone using the latest xHarbour from the Nov FTDN FWH27 build and linking in ADS .. you will need to change your code to use the ANNOUNCE command on the ADS line and not REQUEST .. if you do not, you will get this error ... Error: Unresolved external \'_HB_FUN__ADS\' \n\nRegards,\nRick Lipkin\nSC Dept of Health, USA\n\nIF xRDD = \"ADS\"\n\n   ANNOUNCE _ADS\n *  REQUEST _ADS            // does not work with latest xharbour cvs\n   rddRegister ( \"ADS\", 1 )\n   rddsetdefault( \"ADS\" )\n   SET SERVER REMOTE\n   SET FILETYPE to CDX\n\n   cADS := \" Remote 32 bit -b\"\n\nELSE\n\n   cADS := \" Local 32 bit -b\"\n\n   REQUEST DBFCDX\n   REQUEST DBFFPT\n   rddsetdefault( \"DBFCDX\" )\n\nENDIF\n\nSET DEFA to ( cDEFA )\ncRDD := dbSETDRIVER()+cADS','',0,'gA==','du7tgeyt',1,0,'',35,0,0),(2293,616,6,287,0,'81.41.156.95',1132604272,1,0,1,1,1,0,'','erro dbfcdx/1020 create database filexxxx','buenas a ver si alguien sabe por que no me crea la base con campos memo','',0,'gA==','1os5rqbn',1,0,'',287,0,0),(2294,615,3,35,0,'167.7.140.254',1132604281,1,0,1,1,1,0,'','','To All\n\nGot this responce from Ron in the xHarbour NG ..\n\nRick,\n\n&gt; I just got the Nov FWH27 FTDN that has the latest CVS version of xHarbour. \n&gt; Somewhere I remember seeing that there was a change to the REQUEST and \n&gt; ANNOUNCE commands.\n&gt;\n&gt; I just went to re-compile one of my ADS applications and I got the \n&gt; following link error :\n&gt;\n&gt; C:\\BORLAND\\BCC55\\BIN\\ilink32  @makefile.lnk\n&gt; Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\n&gt; Error: Unresolved external \'_HB_FUN__ADS\' referenced from \n&gt; C:\\FOX\\VEHFWH\\MAIN.OBJ\n\nNo change to the command, it\'s just that _ADS was renamed ADS, so just \nchange:\n\n   REQUEST _ADS\n\nto:\n\n   REQUEST ADS\n\n&gt; Knowing that I had seen this .. I changed the REQUEST _ADS line to \n&gt; ANNOUNCE _ADS and my app linked properly and runs just fine\n\nPlease restore as per above.\n\n&gt; Just curious .. I have several other apps that just use DBFCDX and they \n&gt; seem to compile properly .. for the sake of sinplicity .. should I change \n&gt; all my REQUEST statements to ANNOUNCE ??\n\nNop.\n\nRon','',0,'gA==','1c3unpx0',1,0,'',35,0,0),(2295,601,6,45,0,'200.117.217.119',1132610069,1,0,1,1,1,0,'','Re: Nuevo FWH 2.7 - Nuevos builds de Harbour/xHarbour','[quote=&quot;Antonio Linares&quot;:3mgb7jhq]Por favor revisad la sección \"whatsnew\" de estos foros. Gracias.[/quote:3mgb7jhq]\n\nQue lindos quedaron los Ballons Tooltip  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nHernan','',0,'gA==','3mgb7jhq',1,0,'',45,0,0),(2296,600,3,2,0,'80.58.2.107',1132610508,1,0,1,1,1,1,'','','Maurilio,\n\nWe may publish several fixes for it, but we need 7 or 10 days to do it.','',0,'gA==','37h213qr',1,0,'',2,0,0),(2297,615,3,2,0,'80.58.2.107',1132610592,1,0,1,1,1,1,'','','Rick,\n\nThanks for your feedback,','',0,'gA==','jqknfvxs',1,0,'',2,0,0),(2298,601,6,2,0,'80.58.2.107',1132610653,1,0,1,1,1,1,'','','Hernán,\n\nGracias a tu maestria  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2n4djid1',1,0,'',2,0,0),(2299,616,6,2,0,'80.58.2.107',1132610766,1,0,1,1,1,1,'','','Que build de Harbour ó xharbour estás usando ?\n\nIntenta usar uno más reciente.','',0,'gA==','rv3x2mop',1,0,'',2,0,0),(2300,568,2,9,0,'62.174.202.39',1132612754,1,0,1,1,1,0,'','','Manuel,\n\nDe esta dirección, puedes bajarte el cuardeno CSB-19\n\n<!-- m --><a class=\"postlink\" href=\"http://comercios.lacaixa.es/Canales/Contenido/0,1059,1-26-486-1,00.html\">http://comercios.lacaixa.es/Canales/Con ... -1,00.html</a><!-- m -->\n\nEn el se detallan como tiene que ir el fichero. Léetelo y si quieres despues hablamos.\n\nLo que necesites, nada mas tienes que pedirmelo.\n\nUn saludo desde Málaga\n\nManuel\n\n\n[quote=&quot;Manuel Aranda&quot;:26zu95zk]Hola Manuel,\nprecisamente estoy haciendo una aplicación de recibos y el cliente me ha pedido poder generar un fichero para las domiciliaciones. Creo que se trata de la norma bancaria 19 ¿Podrías orientarme sobre la estructura del fichero o donde encontrar documentación?\nUn saludo,\nManuel Aranda[/quote:26zu95zk]','',0,'gA==','26zu95zk',1,0,'',9,0,0),(2301,596,2,9,0,'62.174.202.39',1132613717,1,0,1,1,1,0,'','','Supongo que tenemos el fichero clientes.dbf indexado por el campo Nombre. Queremos buscar una palabra que esté en cualquier sitio del registro:\n\nERASE iTem.cdx\nINDEX ON clientes-&gt;NOMBRE TO iTem FOR \"Catal\" $ clientes-&gt;NOMBRE\nSET INDEX TO iTem, clientes\n\nEsto será lento (mucho mas si está en red).\n\nLo que no comprendo es como en tu primer mensaje ponias un Scope en \"Agrelo\".\n\n\nUn saludo','',0,'gA==','2zvpx9qs',1,0,'',9,0,0),(2302,617,6,310,0,'62.15.85.143',1132613796,1,0,1,1,1,0,'','funciona bien el método Preview de la clase report','Hola.\n\n¿¿¿ Sabe alguien si  funciona el método Preview de la clase report, en versiones, 2.6 ó 2.7 de fivewin para harbour ???\n\nGracias.','',0,'gA==','3l0nq1y7',1,0,'',310,0,0),(2303,602,2,9,0,'62.174.202.39',1132613940,1,0,1,1,1,0,'','','Gracias Willi,\n\nFuncionó perfectamente.\n\nUn saludo\n\nManuel','',0,'gA==','12mrrnu1',1,0,'',9,0,0),(2304,618,3,233,0,'218.208.249.84',1132624821,1,0,1,1,1,0,'','Does TSButton support &quot;DESIGN&quot; clause?','Doesn\'t TSButton support the [b:11vbes4m]DESIGN[/b:11vbes4m] clause or is it just me having an outdated tsbutton\'s header file?','',0,'QA==','11vbes4m',1,0,'',233,0,0),(2305,619,3,15,0,'203.73.6.112',1132632661,1,0,1,1,1,0,'','Could Report\'s COLUMN add or show Image from DATA ?','Hello\n\nCould Report\'s COLUMN add or show Image from DATA \"c:\\test.jpg\" ?\nEX:\n\nCOLUMN TITLE \"NO\" DATA (::cDB)-&gt;NO\nCOLUMN TITLE \"\"     DATA (::cDB)-&gt;Image =&gt; \"c:\\test.jpg\"\nCOLUMN TITLE \"Good Name\" DATA (::cDB)-&gt;NAME\n-----  -------- ---------------\nNO               Good Name\n-----  -------- ---------------\n01     Image  Fish\n\nAny suggestion or idea??\nThank you.\n\nRegards,\n\nRichard\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'QA==','1v3ht90s',1,0,'',15,0,0),(2306,617,6,2,0,'80.58.2.107',1132646073,1,0,1,1,1,1,'','','Ricardo,\n\nAcabamos de probar samples\\TestPrn2.prg y el preview funciona bien.\n\nPuedes probar ese ejemplo y ver si te funciona correctamente ? gracias,','',0,'QA==','2gu5mosi',1,0,'',2,0,0),(2307,598,16,76,0,'80.17.137.201',1132646076,1,0,1,1,1,1,'','upgrade','sorry Antonio, be clear: free or not free? How much the upgrade?\nWe don\'t want to underrate your work, we just need correct information.\nregards <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','35gstaem',1,0,'',76,0,0),(2308,598,16,2,0,'80.58.2.107',1132646247,1,0,1,1,1,1,'','','Riccardo,\n\nWe provide free upgrades for two months, once a user buy a new version or an upgrade.\n\nAfter those two months, the upgrades have to be paid.\n\nFTDN users get free upgrades for six months.','',0,'QA==','1o1naknn',1,0,'',2,0,0),(2309,620,1,55,0,'59.92.112.8',1132646539,1,0,1,1,1,0,'','OT : help required','Can somebody mail cmx52.obj please to my mail.\n\nSandeep','',0,'QA==','2ow5ndgy',1,0,'',55,0,0),(2310,617,6,310,0,'151.92.176.3',1132651674,1,0,1,1,1,0,'','','Gracias Antonio por contestarme.\n\nSi, el ejemplo que dices, me funcionó bien es decir se vé el preview perfectamente, pero en el resto de mis programas los cuales  con versiones anteriores a la 2.6  funcionan sin problemas, ahora no me funcionan y me sacan un previsualizado sin datos ( pantalla de la prev32.dll de datos en blanco). Si quito el Preview, entonces si salen bien los datos por la impresora, pero claro, sin visualizarlos previamente.\n\n\nEsperando tu ayuda.\n\nMuchas Gracias.\nRicardo Blanco','',0,'QA==','36psv4ld',1,0,'',310,0,0),(2311,617,6,2,0,'80.58.2.107',1132652330,1,0,1,1,1,1,'','','Ricardo,\n\nPodrias proporcionarnos un pequeño ejemplo, autocontenido, que reproduzca el error ? Gracias,','',0,'QA==','39ey7t2h',1,0,'',2,0,0),(2312,621,16,2,0,'80.58.2.107',1132652469,1,0,1,1,1,1,'','Harbour for FWH 2.7 - Harbour para FWH 2.7','If you use Harbour (not xharbour) and FWH 2.7 already, please download harbour setup again from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\nSi usas Harbour (no xHarbour) y FWH 2.7, por favor descarga la instalación de Harbour de nuevo desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\nThanks, Gracias.','',0,'QA==','bi7x963p',1,0,'',2,0,0),(2313,572,3,2,0,'80.58.2.107',1132652897,1,0,1,1,1,1,'','','Rimantas,\n\nPlease try this cTempFile() source code:\n\n[code:2efwskpb]\nfunction cTempFile&#40; cPath, cExtension &#41;        // returns a temporary filename\n\n   local cFileName\n\n   static cOldName\n\n   DEFAULT cPath &#58;= &quot;&quot;, cExtension &#58;= &quot;&quot;\n   \n   if ! &quot;&#46;&quot; $ cExtension\n      cExtension = &quot;&#46;&quot; + cExtension\n   endif   \n\n   while File&#40; cFileName &#58;= &#40; cPath + StrTran&#40; Time&#40;&#41;, &quot;&#58;&quot;, &quot;&quot; &#41; &#41; + cExtension &#41; &#46;or&#46; ;\n         cFileName == cOldName\n   end\n\n   cOldName = cFileName\n\nreturn cFileName\n[/code:2efwskpb]','',0,'AIA=','2efwskpb',1,0,'',2,0,0),(2314,622,1,258,0,'139.165.96.129',1132654615,1,0,1,1,1,0,'','FiveWin and Outlook 2003','I have an application sending mail with a link with Oulook 2000 and it worked fine . \n\n\nMy custommer install outlook 2003 and i receive a MAPI.dll error \n\nWhat can i do ??\n\nHow to communicate with Outlook 2003','',0,'AIA=','3i5u6fpc',1,0,'',258,0,0),(2315,600,3,217,0,'200.153.134.8',1132656503,1,0,1,1,1,0,'','','Thanks a lot, Antonio!\n\nBest regards,\nMaurilio','',0,'AIA=','2zfhju96',1,0,'',217,0,0),(2316,100,1,217,0,'200.153.134.8',1132656839,1,0,1,1,1,0,'','','Gilbert, I think you must do changes in TComboBox class to let this feature...\n\nRegards,\nMaurilio','',0,'AIA=','34h53pb1',1,0,'',217,0,0),(2317,598,16,26,0,'193.77.229.79',1132657639,1,0,1,1,1,1,'','Re: New FiveWin 2.7 - Nuevo FiveWin 2.7','Hello!\n\n[quote=&quot;Antonio Linares&quot;:3hwyw2c0]November 2005: New FiveWin 2.7 version for CA-Clipper, Harbour and xHarbour, C3 and Alaska Xbase++. After seven [/quote:3hwyw2c0]\n\nDoes FW++ 2.7 work with Alaska Xbase++ 1.9 RC-1?\n\nBest regards, Roman','',0,'gA==','3hwyw2c0',1,0,'',26,0,0),(2318,100,1,15,0,'203.79.155.24',1132659073,1,0,1,1,1,0,'','','Hello\n\nThis function you want?\n\n[img:j0dxil8q]http&#58;//www&#46;fivetech&#46;com&#46;tw/big5/demo_images/DrComBox2&#46;jpg[/img:j0dxil8q]\n[img:j0dxil8q]http&#58;//www&#46;fivetech&#46;com&#46;tw/big5/demo_images/DrComBox&#46;jpg[/img:j0dxil8q]\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'CA==','j0dxil8q',1,0,'',15,0,0),(2319,616,6,287,0,'81.41.154.8',1132662724,1,0,1,1,1,0,'','campos memos en la base de datos','gracias antonio pero he probado con las versiones 40, 43, 45, y la unica que se digna a arracar es la 43 eso si los ficheros ftp del indice ni los crea no se si es por que hago algo mal o por que me tiene mania, si quito los campos memo ningun problema, y si utilizo bases de datos ya creadas al acceder al campo memo peta error dbfcdx/1020,\n\ngracias de todas formas.','',0,'CA==','189gnql2',1,0,'',287,0,0),(2320,616,6,2,0,'80.58.2.107',1132665101,1,0,1,1,1,1,'','','Prueba a descargar Harbour ó xharbour desde aqui:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\n\ny prueba de nuevo.','',0,'CA==','2d9p6ota',1,0,'',2,0,0),(2321,602,2,53,0,'200.66.175.142',1132665444,1,0,1,1,1,1,'','Otra alternativa','Manuel:\n\nAquí te va otra alternativa asumiendo que debes darle formato al valor de la columna\n\nCOLUMN TITLE \"Valor\" DATA Base-&gt;valor PICTURE \"@Z 999.99\"\n\nDesde luego hay que ajustar el PICTURE al formato que necesites pero\nen esencia @Z te deja en blanco la columna cuando el valor es cero.\n\nSaludos, Armando','',0,'CA==','2z0dox50',1,0,'',53,0,0),(2322,616,6,287,0,'81.41.154.8',1132665493,1,0,1,1,1,0,'','Y SE HIZO LA LUZ','gracias antonio, por la gracia de dios di con el error me faltaba poner REQUEST DBFFTP, vaya una totnteria eh!\n\ngracias de todas maneras probare las versiones de [x]harbour a ver si van mejor, GRACIAS','',0,'','35pwuzfy',1,0,'',287,0,0),(2323,598,16,2,0,'80.58.2.107',1132665627,1,0,1,1,1,1,'','','&gt; Does FW++ 2.7 work with Alaska Xbase++ 1.9 RC-1?\n\nWe have not tested Xbase++ 1.9 RC-1 yet, but there should be no problems to build FW++ with it.\n\nIf you are interested, then please confirm it to us, so we may build it.','',0,'','37oqy1bg',1,0,'',2,0,0),(2324,600,3,35,0,'167.7.140.254',1132666902,1,0,1,1,1,0,'','','Antonio\n\nAs you know I am looking for a TwBrowse replacement .. TxBrowse will work if you could tune it for ADS as well as a gotocol(n) method... I think TxBrowse has a freeze column method too.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'','2bshonhg',1,0,'',35,0,0),(2325,623,6,61,0,'201.217.144.175',1132667144,1,0,1,1,1,0,'','Gracias Mestro Antonio.','Antonio:\n\nMuchas gracias, todo esta funcionando bien\n\nSaludos.\nRuben Fernandez','',0,'','c8dltxzu',1,0,'',61,0,0),(2326,572,3,31,0,'195.182.84.105',1132669636,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1emy5xly]Rimantas,\n\nPlease try this cTempFile() source code:\n\n[/code][/quote:1emy5xly]\n\n   Excuse me , Antonio , the function is working OK <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) . I forget to set DBFFPT lib , because some fields in SQL database are as \"MEMO\" and so USE command didn\'t worked . Today I found the reason of that problem and now all is working OK . Your TDBOdbcDirect works fine now .. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)\n\n   With best regards ! Rimantas .','',0,'gA==','1emy5xly',1,0,'',31,0,0),(2328,624,6,23,0,'80.58.44.235',1132673130,1,0,1,1,1,1,'','Report en Apaisado y Preview','Hola, hola, hola.\nSigo con problemillas en la migración.\nVeréis si saco un report por pantalla mediante PREVIEW, se ve perfectamente siempre y cuando antes no lo ponga en apaisado.\nEn caso de ponerlo en apaisado, sale el preview en blanco y, curiosamente si redimensiono la ventana del preview, entonces aparece ... incluso si cambio de la página 1 a la 2 también.\n\nRepito, si no lo pongo en APAISADO va perfecto, pero por desgracia tengo muchos informes que deben aparecer en apaisado.\n\nGracias.','',0,'gA==','3d4883y6',1,0,'',23,0,0),(2329,625,3,217,0,'200.153.134.8',1132673815,1,0,1,1,1,0,'','2 questions: @ x, y bitmap and draw rectangle','1 - When I paint a bitmap in a dialog with @ x, y bitmap command it appears into a rectangle. How can I hide this border were the bitmap is painted?\n\n2 - How can I draw a rectangle in a dialog or window? How can I fill it with a color?\n\nI did this:\ndefine pen oPen width 1.5 color CLR_BLUE\nRectangle(oDlg:hDC, 35, 68, 200, 318, oPen:hPen)\n\nThis way I can change the border color according with color of pen but I couldn\'t fill the rectangle with any color else white.\n\nRegards,\nMaurilio','',0,'gA==','3o0mtnrz',1,0,'',217,0,0),(2330,592,4,281,0,'219.251.175.135',1132674102,1,0,1,1,1,1,'','Re: Running Socket program Down.!!!','Hi All \nHelp me please !!!','',0,'gA==','r87k6d06',1,0,'',281,0,0),(2331,605,6,106,0,'85.34.123.172',1132675625,1,0,1,1,1,0,'','','Antonio: podrias enviarme tambien a mi la hbzip? porque no encuentro el modo de crearla, aunque tengo todos los fuentes.\n\nGracias','',0,'gA==','2g0cg2tg',1,0,'',106,0,0),(2332,626,2,42,0,'83.35.79.75',1132675666,1,0,1,1,1,0,'','error no recuperable 650: fallo de la pila del procesador','Por que razon me sale este error al pinchar en una caja de dialogo\n\nclipper internal error\nmovewindow(0) error no recuperable 650: fallo de la pila del procesador','',0,'gA==','25jiq4jz',1,0,'',42,0,0),(2333,627,6,23,0,'80.58.44.235',1132676000,1,0,1,1,1,1,'','Barlib funciona en harbour?','Hola de nuevo.\nAhora estoy con los códigos de barras. \nHasta la fecha en clipper+fw venía usando la libreria BARLIB para sacar los códigos de barra (concretamente EAN13) y la verdad es que funcionaba muy bien.\nEl tema es que ahora no saca nada.\nNo da error, pero tampoco saca nada. \nEvidentemente he creado la libreria con harbour y bcc55 que es lo que uso ahora.\nAlguna pista?\nGracias.','',0,'gA==','edx81bex',1,0,'',23,0,0),(2334,568,2,180,0,'83.38.241.198',1132680908,1,0,1,1,1,0,'','','Muchas gracias Manuel por tu información y disposición a ayudarme. Me lo bajo y ya hablaremos si es caso.\nUn saludo,\nManuel Aranda','',0,'gA==','1za5u5ci',1,0,'',180,0,0),(2335,628,6,23,0,'80.58.44.235',1132681281,1,0,1,1,1,1,'','Seek con cadenas','Hola foro.\nTengo una DBF con varios campos, uno de ellos se denomina FICHERO y es de tipo Caracter de 12.\nTengo la DBF indexada sobre este campo.\nTengo un registro que contiene el valor EMPRESA.\nPues bien si hago un seek de \"EMP\" o de \"E\" o de \"EMPR\" me encuentra el campo, cuando no deberia?????.\nTengo el softseek OFF y he probado el Dbseek con .T. y con .F. y de ambas formas lo encuentra.\n\nA alguien le ha pasado o estoy alucinando??\nGracias.','',0,'gA==','3mpfcr9u',1,0,'',23,0,0),(2336,629,2,295,0,'201.246.204.21',1132681789,1,0,1,1,1,1,'','como puedo hacer un menú de iconos dentro de una ventana?','Estimados amigos FiveWineros:\n\nNecesito hacer un \"menu\", pero con iconos contenidos dentro de un cuadro de dialogo o ventana, donde cada icono representa una opción.\nsi alguien sabe de alguna clase o herramienta ...muchas gracias \nsaludos[/b]','',0,'','2cthuwvz',1,0,'',295,0,0),(2337,574,6,52,0,'201.231.13.213',1132681911,1,0,1,1,1,1,'','Error de erratas o de bol...','Antonio,\n\nGracias, solo era que meti mal los dedos y puse una letra mas en mayusculas.-','',0,'','9auz3iwu',1,0,'',52,0,0),(2338,630,2,304,0,'200.67.162.185',1132684032,1,0,1,1,1,0,'','PROGRAMAS EN XP SP2','Actualmente uso el blinker 6.0 y fivewin 2.3, el caso es que al correr los programas en XP service PACk2 me sale un error que no puede correr aplicaciones de 16 bits, a que se debe esto ?? , y \nque debo de adquirir o actualizar para programar a 32 bits o 64 bits con apariencia XP, Saludos, gracias <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'','1lel4jrk',1,0,'',304,0,0),(2339,592,4,2,0,'80.58.2.107',1132684612,1,0,1,1,1,1,'','','We are going to check it as soon as possible. We have been busy cause 2.7 version launch.','',0,'','1s2md6hl',1,0,'',2,0,0),(2340,628,6,23,0,'80.58.44.235',1132684646,1,0,1,1,1,1,'','','Si, estaba alucinando.\nNo me hagais caso que a veces ya flipo.','',0,'','z8ndghql',1,0,'',23,0,0),(2341,622,1,2,0,'80.58.2.107',1132684677,1,0,1,1,1,1,'','','What mapi.dll error do you get ?','',0,'','2ew2wbhn',1,0,'',2,0,0),(2342,605,6,2,0,'80.58.2.107',1132684923,1,0,1,1,1,1,'','','Pedro (?)\n\nPuedes descargarla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/hbzip.zip\">www.fivetechsoft.com/files/hbzip.zip</a><!-- w -->','',0,'','22ah9t25',1,0,'',2,0,0),(2343,626,2,2,0,'80.58.2.107',1132685061,1,0,1,1,1,1,'','','Javi,\n\nQue valores de stacksize y heapsize estás usando en el fichero LNK de Blinker ?\n\nTambien puede tratarse de un error recursivo que tengas en la función, y que haga que la aplicación realice un bucle hasta que se queda sin pila (stack).','',0,'','19g6zst9',1,0,'',2,0,0),(2344,630,2,2,0,'80.58.2.107',1132686181,1,0,1,1,1,1,'','','Si no recuerdo mal ese error se puede deber a que el SP2 borra un fichero de la carpeta de Windows. Seguro que algún usuario nos puede ayudar.\n\nLo idóneo es pasar a 32 bits, para que tu aplicación tenga apariencia de XP y una mejor integración con el sistema operativo de 32 bits. Sólo necesitas FWH ( <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m --> ) y en sólo unos dias puedes tener tu aplicación en 32 bits.','',0,'','3ttidxi2',1,0,'',2,0,0),(2345,630,2,304,0,'200.67.162.185',1132687122,1,0,1,1,1,0,'','','Existe algun distribuidor de FWH en Mexico ??, si la respuesta es negativa, la opcion mas rapida de adquirirlo, sera, creo yo x FTP, me puedes decir el costo y la forma de Pago x favor,o si lo deseas al correo:\n<!-- e --><a href=\"mailto:servicomver@hotmail.com\">servicomver@hotmail.com</a><!-- e -->\nSaludos nuevamente y mil gracias por su atencion\nVeracruz, Mexico','',0,'','1yo4czl6',1,0,'',304,0,0),(2346,602,2,9,0,'62.174.202.39',1132693002,1,0,1,1,1,0,'','','Armando, funciona perfectamente.\n\nMuchas gracias\n\nUn saludo\n\nManuel','',0,'','ugdouwb6',1,0,'',9,0,0),(2347,522,6,39,0,'201.220.111.51',1132694107,1,0,1,1,1,0,'','Te faltan algunas cosas','Hola,\n\nPara poder usar el browse te faltan algunas cosas como :\n\nolbx:bgotop:={||.....} // Bloque de codigo para ir al primer registro\nolbx:bgobottom:={||...} // Bloque de codigo para ir al ultimo registro\nolbx:bskip:={|nskip|....} // Bloque de codigo que salta nregistros\nolbx:blogiclen:={||...} // bloque de codigo que devuelve la cantida de \n                                  //registros de la grilla\n\nNo te puedo dar los bloques porque yo uso todbcdirect modificada por mi y no conozco los metodos de tu clase para leer los recordset.\n\nAtte,\nLautaro Moreira','',0,'','20cpaddp',1,0,'',39,0,0),(2348,631,3,69,0,'65.92.153.72',1132696967,1,0,1,1,1,0,'','Syncronizing Data','Hi Everybody,\n\nI have encountered a problem and hope someone here might have an idea to help me.....\n\nI have written a program for my office that handles all of our inventory, clients, service reports etc... that is connected between 2 offices.\n\nI now need to modify (or re-write) the program to add in new offices via our company VPN. \n\nI need to keep the data as close to real time as possible in all the offices.\n\nWhen I originally wrote the program it was a big enough task to keep the 2 offices in sync.  Now I need to be able to add new offices as time goes by.\n\nWe do not use ADS (and there is no plan on using it in the future).\n\nDoes anyone have ideaas as to how I could get this sync thing working?\n\nThanks,\n\nJeff','',0,'','2lguaw2o',1,0,'',69,0,0),(2349,625,3,6,0,'82.55.208.151',1132698225,1,0,1,1,1,1,'','Re: 2 questions: @ x, y bitmap and draw rectangle','1) Use NOBORDER clause.\n\n2) Try FloodFill( nRow, nCol, nRGBColor ) method.\n\nEMG','',0,'','4h67mk6p',1,0,'',6,0,0),(2350,619,3,6,0,'82.55.208.151',1132698638,1,0,1,1,1,1,'','Re: Could Report\'s COLUMN add or show Image from DATA ?','No, as far as I know. But you can use SayBitmap() method and ON CHANGE or similar clause.\n\nEMG','',0,'','20ben6zu',1,0,'',6,0,0),(2351,592,4,68,0,'203.45.174.65',1132699879,1,0,1,1,1,1,'','','Yunbg1,\nYou may use the function time() to give hh:mm:ss then calculate seconds.\nhth','',0,'','1543e6ql',1,0,'',68,0,0),(2352,632,2,295,0,'201.222.149.162',1132700656,1,0,1,1,1,1,'','COMPRA DE FWH ..DUDAS AL COMPRAR POR INTERNET ..','HOLA AMIGOS DE FIVETECHSOFT:\n\nDeseo comprar FWH por internet, pero me preocupa el tamaño de los archivos que Ustedes me enviarían por correo, ¿debo tener un mínimo de capacidad en mi correo? y si es así por favor me informan\n\nun abrazo y gracias','',0,'','1mwtmj6o',1,0,'',295,0,0),(2353,633,3,34,0,'68.4.154.81',1132703718,1,0,1,1,1,1,'','Multi-user data update','I would like to have a Listbox on a workstation automatically update at a certain interval.  Then, when data is added at a different workstation, it will show on all within a period of time.\n\nIs there a way to do this with FWH ?','',0,'','95cwm27z',1,0,'',34,0,0),(2354,633,3,69,0,'65.92.153.72',1132703833,1,0,1,1,1,0,'','','Hi Tim,\n\nTry using a TIMER.\nThen you could issue an Update for that listbox.\n\nJeff','',0,'','3e0q5niz',1,0,'',69,0,0),(2355,619,3,15,0,'203.73.91.49',1132704553,1,0,1,1,1,0,'','','Hello EMG,\n\nThank you.\nI change Report to TPrint make way.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'','2u9rl6pv',1,0,'',15,0,0),(2356,634,6,15,0,'203.73.91.49',1132705550,1,0,1,1,1,0,'','TWBrowse++ v1.8 Finish? For Hernan','Hello Hernan, \n\nCould you Send to me TW++ v18 when Finished? or\npublish it to forums.\n\nRegards,\n\nRichard','',0,'','2c68ub8o',1,0,'',15,0,0),(2357,622,1,312,0,'24.150.179.34',1132705777,1,0,1,1,1,0,'','','I used the following  approach since the Mapi.dll and mapisrvr.exe don\'t get installed with Outlook 2003, it worked for me. I copied the files from a system that had Outlook 2000 installed on it\n\nThe following is a partial quote from a message from the old Newsgroup.\n\n\"But I can tell you that MAPI with 16bit FiveWin just works fine with Windows \n2000 and Windows XP.\n\nThe only thing I did was copying the files \"mapi.dll\" and \"mapisrvr.exe\" \ninto the SYSTEM32 folder in the Windows folder.\n\nIf needed, I can send you the files I use. It just works fine.\"\n\nHope this helps','',0,'','9f1yptfp',1,0,'',312,0,0),(2358,610,6,121,0,'201.144.40.230',1132705914,1,0,1,1,1,1,'','','No, me refiero a que si estoy en una LAN, poder saber que archivos tiene abiertos un usuario de la red, algo asi como lo que muestra Novel desde su consola \npero desde un programa de FWH y en cualquier LAN','',0,'','3ttvmf4m',1,0,'',121,0,0),(2360,635,6,215,0,'201.133.72.159',1132722331,1,0,1,1,1,0,'','BUTTONBMP el bmp sale encima del texto','Hola foro,\ncompile el TextBuBm.prg pero solo viene el bitmap con el botón. Bien,,, pues ya tiene texto.\nHe logrado hacer lo siguiente\n      REDEFINE  BUTTONBMP oBtn ID 702 OF oDlg ;\n                BITMAP \"Acerca.BMP\"  ;\n\nPero el Bitmap aparece encima del texto... ¿Cómo le hago para que el bitmap apareca a la izquierda??\n\nSaludos','',0,'','lgp7d54k',1,0,'',215,0,0),(2361,618,3,233,0,'218.208.249.84',1132725697,1,0,1,1,1,0,'','','It does but the header file (tsbutton.ch) need to be fixed as [b:kqksiafl]DESIGN[/b:kqksiafl] is not corretly pre-processed','',0,'QA==','kqksiafl',1,0,'',233,0,0),(2362,636,6,52,0,'201.231.13.213',1132727325,1,0,1,1,1,1,'','Icono que identifique a la aplicacion','Colegas,\n\n_Tengo una aplicacion creada en xHarbour y un archivo .rc, que lo incluyo en la misma y cuando genero el .exe el primer icono que aparece en el .rc es tomado como ícono de la aplicacion, [i:3ewmyqgd]como puedo hacer para que otro icono de mi rc sea el de la aplicación?[/i:3ewmyqgd]\n\nGracias.','',0,'IA==','3ewmyqgd',1,0,'',52,0,0),(2363,636,6,23,0,'80.58.44.235',1132730781,1,0,1,1,1,1,'','','Puedes definir el icono desde código y asignarlo a la ventana principal\nA saber :\n\nFunction Entrada()\nLocal oIco, oWndMdi\n\n  REDEFINE ICON oIco RESOURCE \"__ lo que quieras __\"\n  DEFINE WINDOW oWndMdi  MDI FROM 0,0 TO 24,79 TITLE \"Aplicación\";\n                         ICON oIconMdi\n  ACTIVATE WINDOW oWndMdi\nReturn (nil)','',0,'IA==','2o04iuvp',1,0,'',23,0,0),(2364,617,6,310,0,'151.92.176.3',1132732690,1,0,1,1,1,0,'','','Antonio, he aislado los report que genero con mi aplicación y al compilarlos con el buildh.bat del direcctorio samples, si  funcionan bien.\n\n Lo que si observo es que cuando los incluyo como módulos de la aplicación para generar el listado, estos si crean bien los  archivos temporales tmp0001.emf,  tmp0002.emf ,etc... ,es decir ,dichos ficheros si contienen los datos y formato del report que deseo imprimir, pero el problema es que esos ficheros no se ven en la ventana del preview , no se si porque no los abre, no los encuentra, etc..., por lo que no se pueden imprimir. \n\nPor cierto trabajo sobre windows 2000, por si sirve de algo para resolver el problema.\n\nGracias.\n\nRicardo Blanco\n<!-- e --><a href=\"mailto:blanco.r@iveco.com\">blanco.r@iveco.com</a><!-- e -->','',0,'IA==','3207eipz',1,0,'',310,0,0),(2365,605,6,106,0,'85.34.123.172',1132735769,1,0,1,1,1,0,'','','Antonio: Muchas gracias. No he logrado actualizar el cvs de xHarbour ayer, y por lo que veo hoy tampoco. (mas de un año que no lo actualizo)\nCon la librería que descargué de tu sitio ahora ya compila.\n\n\nPedro Gonzalez','',0,'IA==','yfmm52kz',1,0,'',106,0,0),(2366,628,6,88,0,'82.150.2.18',1132736767,1,0,1,1,1,1,'','','Es lo que tiene progamar  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\n\nNos leemos!!','',0,'IA==','yt8uwtca',1,0,'',88,0,0),(2367,617,6,310,0,'151.92.176.3',1132738268,1,0,1,1,1,0,'','','Antonio, \n\nestoy haciendo pruebas y siempre el flujo del programa entra por el condicionante  __CLIPPER_ , en la clase printer.   \n\nif ::lMeta\n     #ifndef __CLIPPER__\n        AAdd( ::aMeta, ::cDir + \"\\tmp\" + PadL( ::nPage, 4, \"0\" ) + \".emf\" )\n        ::hDCOut := CreateEnhMetaFile( ::hDc,ATail( ::aMeta ), ::cDocument )  //jlcr \n       \n     #else\n        AAdd( ::aMeta, ::cDir + \"\\tmp\" + PadL( ::nPage, 4, \"0\" ) + \".wmf\" )\n        ::hDCOut := CreateMetaFile( ATail( ::aMeta ) )\n      #endif\n  else\n     StartPage( ::hDC )\n  endif\n\n ¿ Que estoy haciendo mal para que suceda esto ?\n\n\nGracias\nRicardo Blanco','',0,'IA==','39rnkgli',1,0,'',310,0,0),(2368,637,21,1,0,'200.170.133.19',1132742917,1,0,1,1,1,0,'Paiva','Preview  c/ Fontes diferentes !!!','Por favor \n\nUm relatorio com Varias Fontes   TEM jeito de ser EXIBIDO  como sairia na IMPRESSÃO ?\n\na visualização do MEU preview  fica  Ilegível pois o cabeçalho tem  Fontes diferenciadas e as linhas de detalhe TAMBEM.\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nTEM solução ou Não ?\n\ndesde já Obrigado','',0,'IA==','3dnbkyao',1,0,'',1,0,0),(2369,638,20,29,0,'80.181.108.140',1132743298,1,0,1,1,1,0,'','Problemi nella conversione bmp-&gt;jpg utilizzando libgfl','Ciao a tutti,\nho creato una funzione di archiviazione digitale documenti nella mia applicazione utilizzando la classe tscan.\n\nFin qui tutto ok. Il problema inizia quando voglio convertire il file acquisito da scanner da bmp a jpg (molto spesso infatti scanner economici restituiscono un file bmp). \nPer la conversione utilizzo libgfl,\nho riscontrato però un problema:\nse l\'immagine bitmap è a toni di grigio, allora libgfl non riesce a convertirla in jpeg, non da alcun errore e non crea alcun file.\n\nQualche idea ?\nDevo forse intervenire prima della conversione aumentando il numero di colori della bitmap ?\n\nHo anche verificato la specifiche tecniche della libreria e il formato in questione risulta supportato in scrittura.\n\nLa routine di conversione che utilizzo è disponibile su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/wmftojpg.prg\">www.softwarexp.co.uk/beta/wmftojpg.prg</a><!-- w -->\n\nMarco','',0,'IA==','105okzhq',1,0,'',29,0,0),(2370,639,6,292,0,'200.84.200.179',1132744718,1,0,1,1,1,1,'','cannot load wininet.dll','Coelgas, \n\nHe compilado varios ejemplos para FTP y todos me indican el mensaje (cannot load wininet.dll) lo probé en otro PC con XP emite el mismo mensaje. \n\nNecesito un ejemplo funcional FTP (Fw24 o FW26)','',0,'IA==','1ndqccfy',1,0,'',292,0,0),(2371,628,6,23,0,'80.58.44.235',1132745324,1,0,1,1,1,1,'','','Cuanta razón tienes!\nA veces te ofuscas en cosas que después de tomarte un café las ves y dices : Ostias! pero cómo narices no lo he visto???\n\nEn fin.\nUna odisea.','',0,'IA==','1ku87ucj',1,0,'',23,0,0),(2372,625,3,217,0,'200.153.134.18',1132746029,1,0,1,1,1,0,'','Re: 2 questions: @ x, y bitmap and draw rectangle','Thanks a lot, Enrico!\nI\'ll try it!\n\nRegards,\nMaurilio','',0,'IA==','2vxq0kz3',1,0,'',217,0,0),(2373,560,1,217,0,'200.153.134.18',1132748288,1,0,1,1,1,0,'','','Intenta esto:\n\n[code:6zsudc8w]\n#include &quot;FiveWin&#46;ch&quot;\n//-------------------------\nFunction Main&#40;&#41;\n//-------------------------\n\nServiceProcess&#40;1&#41;\n\n---- Tu codigo aqui \n\n\nReturn NIL\n\n\n//------------------------------\nFunction ServiceProcess&#40; mode &#41;\n//------------------------------\nLocal nProcessId &#58;= 0\n\nDefault mode &#58;= 0\n\nnProcessId &#58;= GCP&#40; &#41;\n\nIf Abs&#40; nProcessId &#41; &gt; 0\n    RSProcess&#40; nProcessId, mode &#41;\n\nEndif\n\nRETURN\n\n//----------------------------------------------------\nDLL32 FUNCTION RSProcess&#40;npID  AS LONG ,;\n                         nMode AS LONG &#41; AS LONG ;\n      FROM &quot;RegisterServiceProcess&quot; LIB &quot;kernel32&#46;DLL&quot;\n//----------------------------------------------------\n\n//----------------------------------------------------\nDLL32 FUNCTION GCP&#40;&#41; AS LONG;\n      FROM &quot;GetCurrentProcessId&quot; LIB &quot;kernel32&#46;dll&quot;\n//----------------------------------------------------\n[/code:6zsudc8w]\n\nPienso que tal vez no funcione con FW/Clipper, solamente con FW/[x]Harbour...\n\nSaludos\nMaurilio','',0,'AIA=','6zsudc8w',1,0,'',217,0,0),(2374,638,20,6,0,'82.61.69.35',1132752488,1,0,1,1,1,1,'','Re: Problemi nella conversione bmp-&gt;jpg utilizzando libgf','Convertilo prima in RGB con\n\nGFLCHANGECOLORDEPTH( nGflBitmap, 0, GFL_MODE_TO_RGB, 0 )\n\nEMG','',0,'AIA=','1q4bekrz',1,0,'',6,0,0),(2375,640,6,23,0,'80.58.44.235',1132755999,1,0,1,1,1,1,'','FWH 2.7','Hola, hola.\nAcabo de descargar fivewin harbour 2.7 y la versión de habour del ftp de fivetechsoft y al linkar me arroja lo siguiente :\n\n===============================================================================\n= FiveWin para Harbour 2.6 - Junio 2005             Harbour Alpha Build 45    =\n=                                                                             =\n= Modulo de LINK para : SICLUB                                                =\n= Revision : 02/10/2005 18:15                                                 =\n===============================================================================\n=\n===============================================\n= Compilando los fuentes en .C                =\n===============================================\n===============================================\n= Compilando los recursos .RC                 =\n===============================================\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\n===============================================\n= Montado fichero b32.bc para el linkador     =\n===============================================\n===============================================\n= Linkando los archivos .OBJ                  =\n===============================================\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\SI\\LEN\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\SI\\LEN\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\SI\\LEN\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\SI\\LEN\\HARBOUR\\LIB\\RDD.LIB|dbf1\n===============================================\n= Fin del LINK                                =\n===============================================\n\n\nQue ha cambiado??\nMe falta incluir algo??\nGraciaaasss.','',0,'AIA=','ojs2wium',1,0,'',23,0,0),(2376,640,6,23,0,'80.58.44.235',1132756214,1,0,1,1,1,1,'','','Bueeeno. Ya está solucionado. Ya ví en otro mensaje del foro lo que sigue : \n\n[quote:30k8cnoe]\n\"DBFDBT.lib ya no existe. No se usa. En su lugar se usan DBFFPT.lib y HBSIX.lib. \"[/quote:30k8cnoe]\n\nAla, a seguir.','',0,'gA==','30k8cnoe',1,0,'',23,0,0),(2377,641,4,277,0,'81.72.105.247',1132758219,1,0,1,1,1,0,'','IrDA printing','Antonio, are you planning to add IrDA suppor for FWPPC?\nI have a IrDA to parallel converter connected to a Epson LX300 printer,\nit works fine my application written fon PalmOS and now i would like to port\nit under PPC.\nClaudio','',0,'gA==','2m5wcofr',1,0,'',277,0,0),(2378,626,2,42,0,'83.35.79.75',1132758575,1,0,1,1,1,0,'','','UTILIZO MICROSOFT LINK 5.60\n\nUN SALUDO','',0,'gA==','3v7y640k',1,0,'',42,0,0),(2379,638,20,263,0,'87.6.226.32',1132759926,1,0,1,1,1,0,'','','La classe tscan è inclusa nelle FW?\nDove scaricarla in caso contrario?','',0,'gA==','1shpger6',1,0,'',263,0,0),(2380,638,20,29,0,'80.181.108.140',1132761107,1,0,1,1,1,0,'','','Grazie 1000 EMG, provo subito.\n\nLa classe tscan è non è una classe standard FW,\nla si può scaricare da <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w --> o <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w -->\n\nSaluti\n\nMarco','',0,'gA==','31blkyvh',1,0,'',29,0,0),(2381,638,20,263,0,'87.6.226.32',1132761755,1,0,1,1,1,0,'','','Grazie marco provo su fivewin.info, \navevo già provato su <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w --> ma il sito non funziona <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','17y3rkjq',1,0,'',263,0,0),(2382,617,6,310,0,'62.15.85.143',1132765451,1,0,1,1,1,0,'','','Antonio.\n\nAl compilar y linkar mi aplicación con la clase tprinter de fwh build 2.4 de Julio de 2.003 , el problema se soluciona, al no existir ningún condicionante del tipo __clipper__ en los métodos de dicha clase. El preview se muestra correctamente.\n\nEspero tus sugerencias de la posible causa del porqué el flujo de ejecución de mi aplicación compilada con la versión 2.7 pasa siempre por __Clipper__  lo que provoca el mal funcionamiento del preview, yo no tengo ni idea de por donde pueden ir los tiros.\n\nMuchas gracias por tu paciencia.\n\nRicardo Blanco\n<!-- e --><a href=\"mailto:blanco.r@iveco.com\">blanco.r@iveco.com</a><!-- e -->','',0,'gA==','37bz8l2d',1,0,'',310,0,0),(2383,642,20,313,0,'82.88.53.27',1132766334,1,0,1,1,1,0,'','Crystal Report &amp; FWH','Gentilmente qualcuno mi saprebbe indicare come lanciare un report (.rpt) da un\'applicazione FWH?\nGrazie\nRipa','',0,'gA==','17fkx8i3',1,0,'',313,0,0),(2384,641,4,150,0,'62.15.121.164',1132766691,1,0,1,1,1,1,'','','Hello.\n\nIn the spanish forum Antonio posted this:\n\nI have no used it but it says that \"Just use the comm port\"\n\n\nSi es por irda, utilizamos un puerto COM sin necesidad de configurar nada más en la PDA y si es por bluetooth instalas en la impresora el receptor bluetooth y se sincronizan ambos equipos. Despues se le asigna un puerto desde el propio Administrador bluetooth y a funcionar. \n\nSea la impresora que sea utilizo si es IRDA (puerto RS232) un cable especial que contiene un receptor final IRDA, y si es bluetooth instalamos un receptor bluetoorh con salida a cualquier impresora Paralelo. Ambos dispositivos no requieren configuración adicional se instalan como un cable normal y a funcionar. La única consideración a tener en cuenta es que ambos dispositivos deben ser alimentados de energía. En nuestro caso, ponteamos la placa base de la impresora STAR DP8340 para alimentar a traves de la propia salida de la impresora, el conector utilizado. \n\nLos modelos de impresoras que utilizamos son generalmente de 2 tipos. Una impresora a 12v. Matricial que se instala en un vehículo (directamente a la bateria) y tanto puede ser serie como paralelo (adjunto imagen stardp8340) y una impresora portátil (con pilas) que la lleva el usuario enganchada al cinturon y es siempre con conexión IRDA. (Marca Extech). <!-- m --><a class=\"postlink\" href=\"http://www.extech.com/\">http://www.extech.com/</a><!-- m -->','',0,'gA==','2yilai81',1,0,'',150,0,0),(2385,641,4,2,0,'80.58.2.107',1132770906,1,0,1,1,1,1,'','','Claudio,\n\nYes, we are planning to provide support for it. Based on what we have seen, it may work as a standard comm port as Jose comments you. It may also work as a socket. \n\nProbably we have to call a setup function to select comm or sockets mode.','',0,'gA==','1f833vuu',1,0,'',2,0,0),(2386,632,2,2,0,'80.58.2.107',1132771094,1,0,1,1,1,1,'','','Luis,\n\nNo hay problema en cuanto al tamaño, ya que nosotros te enviamos un email con instrucciones para descargarlo desde un servidor FTP, por lo que no se usa el email en si para la descarga.','',0,'gA==','1bvv0ysh',1,0,'',2,0,0),(2387,626,2,2,0,'80.58.2.107',1132771403,1,0,1,1,1,1,'','','Javi,\n\nPrueba a aumentar de 1000 en 1000 el valor que se le pasa al parámetro /se:2000 (link /se:2000 /NOE ...)\n\n¿ Puedes conseguir Blinker ?','',0,'gA==','1m4kw778',1,0,'',2,0,0),(2388,643,3,167,0,'72.161.227.48',1132771819,1,0,1,1,1,1,'','How to determine date of forum message posting?','How is it possible to tell the date one of these messages was posted?','',0,'gA==','28p0e3ef',1,0,'',167,0,0),(2389,643,3,6,0,'82.61.69.35',1132772438,1,0,1,1,1,1,'','Re: How to determine date of forum message posting?','Look above the message\n\n\"Posted: ...\"\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1uq6urd0',1,0,'',6,0,0),(2390,643,3,167,0,'72.161.227.48',1132772809,1,0,1,1,1,1,'','','The \"posted\" date on my screen says:\n\n\nPosted: 1111-2323-05050505    Post subject: Re: How to determine date of forum message posting?\n\n\nI see - this is translated to November 23, 2005.  It was difficult to decipher at first, given the repeating groups of numbers.\n\nDoes everyone\'s date display like mine, or, perhaps it is a date format option I have choosen?','',0,'gA==','3pzdp6s9',1,0,'',167,0,0),(2391,643,3,6,0,'82.61.69.35',1132773708,1,0,1,1,1,1,'','','What I see is\n\n\"Posted: 23/11/2005\"\n\nEMG','',0,'gA==','2qszhk4b',1,0,'',6,0,0),(2392,643,3,167,0,'72.161.227.48',1132774559,1,0,1,1,1,1,'','','I wonder if the formatting difference is due to a country setting on my computer?\n\nNormally, I view dates as mm-dd-ccyy as shown below.\n\n Directory of C:\\WINDOWS\n\n01/28/2005  10:58 AM    &lt;DIR&gt;          Config\n01/28/2005  10:58 AM    &lt;DIR&gt;          msapps\n01/28/2005  10:58 AM    &lt;DIR&gt;          addins','',0,'gA==','3v7zo4wt',1,0,'',167,0,0),(2393,630,2,180,0,'83.40.37.8',1132775905,1,0,1,1,1,0,'','','Revisa el archivo %systemroot%\\System32\\Autoexec.nt. El error que te muestra \nes debido a que el archivo mencionado esta dañado o simplmente no está, hay \nalgunos virus que causan eso.\n\nPara solucionarlo puedes simplemente reemplazar el archivo con una copia \ncorrecta que puedes tomar de la ruta %Systemroot%\\repair.\n\nPara evitar que te suceda nuevamente, una vez que tengas la versión correcta \ndel archivo, asignale el atributo de sólo lectura y asegúrate de revisar que \nno tengas virus en el equipo.','',0,'gA==','2fex6t21',1,0,'',180,0,0),(2394,627,6,53,0,'148.221.81.70',1132777006,1,0,1,1,1,1,'','Barlib y Harbour','Angel:\n\nBarLib sí funciona con Harbour, yo la tengo con la 44 y funciona perfecto, supongo que tienes mal construida la lib.\n\nSaludos','',0,'gA==','rtdjqunv',1,0,'',53,0,0),(2395,644,6,75,0,'83.61.104.55',1132778586,1,0,1,1,1,0,'','Modo Consola en Win XP','En W98 para pasar de ventana Windows a formato pantalla completa de 80 columnas por 25 líneas basta pulsar las teclas Alt+Intro.\n\nEn W-XP hace lo mismo, pero la panlla ocupa muchas más líneas.\n¿Qué tengo que hacer para que me salga como la ventana típica de MS-DOS?. Por más que pruebo configuraciones no doy con la solución.','',0,'gA==','1no9th8m',1,0,'',75,0,0),(2396,643,3,6,0,'82.61.69.35',1132778611,1,0,1,1,1,1,'','','Maybe a bug in the forum software.\n\nEMG','',0,'gA==','2x3u5vo6',1,0,'',6,0,0),(2397,617,6,2,0,'80.58.2.107',1132778611,1,0,1,1,1,1,'','','Ricardo,\n\nEl condicionante es en caso negativo:\n\n#ifndef __CLIPPER__ \n\nif n def\n\nluego es correcto si pasa por ahí.\n\nPodrias enviarme por email uno de los ficheros EMF que no se visualizan ? gracias.','',0,'gA==','2x3u5vo6',1,0,'',2,0,0),(2398,630,2,2,0,'80.58.2.107',1132778776,1,0,1,1,1,1,'','','Manuel,\n\nGracias por tu ayuda, ese era el fichero al que me quería referir pero no lo recordaba <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3s6ei6xy',1,0,'',2,0,0),(2399,632,2,295,0,'200.112.84.203',1132779107,1,0,1,1,1,1,'','','ok muchas gracias, ME QUEDO CLARISIMO','',0,'gA==','3870j33c',1,0,'',295,0,0),(2400,630,2,2,0,'80.58.2.107',1132779131,1,0,1,1,1,1,'','','ServiComver,\n\nOs enviamos por email la información solicitada.','',0,'gA==','1t4e4b7z',1,0,'',2,0,0),(2401,645,2,52,0,'201.231.13.213',1132779248,1,0,1,1,1,1,'','Acelerar los TOOLTIPS','Amigos:\n\n_Como hago para que el tooltips se muestre mas rapido que lo convencional?\n\nGracias.','',0,'gA==','opf7uim0',1,0,'',52,0,0),(2402,645,2,52,0,'201.231.13.213',1132779682,1,0,1,1,1,1,'','Me respondo a mi mismo.','Gustavito, cambia en window.prg\n\n[code:hgvyvnyp]   CLASSDATA nToolTip AS NUMERIC INIT XXX[/code:hgvyvnyp]\n\nEn XXX va un numero que sera en milesimas de segundos.\n\nSuerte.','',0,'AIA=','hgvyvnyp',1,0,'',52,0,0),(2403,565,2,301,0,'201.124.176.232',1132780165,1,0,1,1,1,0,'','','GRACIAS TOCAYO\n\nRENE <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','13qfgdt2',1,0,'',301,0,0),(2404,646,7,63,0,'80.58.35.107',1132788809,1,0,1,1,1,0,'','Pregunta de novato (1)','Llevo solamente un par de dias jugando con el FWPPC y, efectivamente,  estoy de acuerdo con José Luis Parajón: Me ha sorprendido lo fácil que es de manejar cuando se tiene un poco de práctica en FWH.  Si sólo tuviese unos cuantos ejemplos más...\n\nAhora, mi pregunta de novato (vendrán más).  Me refiero al menú del ejemplo Tutor06.prg.   ¿Es posible que al pulsar una de las opciones -por ejemplo \"First\"- se ejecute ya la acción correspondiente, sin necesidad de desplegar un submenú?  \n\nAclaro que en FWH siempre creo los menus desde código, por lo que con los recursos aún ando algo despistado.  ¿Podriais indicarme cómo quedaría la linea correspondiente en el .RC?  (para ver/editar el RC yo utilizo Pelles C)\n\nGracias,\n\nRafael','',0,'AIA=','aobcl5mr',1,0,'',63,0,0),(2405,647,6,52,0,'201.231.13.213',1132792212,1,0,1,1,1,1,'','Ayuda con EVAL','Amigos,\n\nNEcesito saber porque me esta dando este error:\n\n[code:3myvkto5]   Tiempo desde inicio &#58; 0 hours 0 mins 15 secs \n   El error ocurrio a  &#58; 11/23/05, 21&#58;28&#58;41\n   Descripcion de Error&#58; Error BASE/1004  Class&#58; \'LOGICAL\' has no exported method&#58; EVAL\n   Args&#58;\n\nStack Calls\n===========\n   Llamado desde EVAL&#40;0&#41;\n   Llamado desde &#40;b&#41;TWINDOW&#58;TWINDOW&#40;573&#41;\n   Llamado desde TSBROWSE&#58;LVALID&#40;0&#41;\n   Llamado desde TSBROWSE&#58;FWLOSTFOCUS&#40;0&#41;\n   Llamado desde TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Llamado desde TSBROWSE&#58;HANDLEEVENT&#40;8609&#41;\n   Llamado desde _FWH&#40;3124&#41;\n   Llamado desde DIALOGBOX&#40;0&#41;\n   Llamado desde TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Llamado desde MASCESPECIFICAR&#40;135&#41;\n   Llamado desde &#40;b&#41;MASCDLGRC&#40;45&#41;\n   Llamado desde TBUTTON&#58;CLICK&#40;0&#41;\n   Llamado desde TBUTTON&#58;HANDLEEVENT&#40;0&#41;\n   Llamado desde _FWH&#40;3124&#41;\n   Llamado desde SENDMESSAGE&#40;0&#41;\n   Llamado desde TDIALOG&#58;COMMAND&#40;0&#41;\n   Llamado desde TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Llamado desde TDIALOG&#58;HANDLEEVENT&#40;0&#41;\n   Llamado desde DIALOGBOX&#40;0&#41;\n   Llamado desde TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Llamado desde MASCDLGRC&#40;47&#41;\n   Llamado desde MAIN&#40;27&#41;[/code:3myvkto5]','',0,'AIA=','3myvkto5',1,0,'',52,0,0),(2406,643,3,233,0,'218.208.249.84',1132795495,1,0,1,1,1,0,'','','You can try going to [b:39755c0r]Profile[/b:39755c0r], then under [b:39755c0r]Preferences[/b:39755c0r] check the [b:39755c0r]Date Format[/b:39755c0r] field. Mine has a value of [code:39755c0r]D M d, Y g&#58;i a[/code:39755c0r]','',0,'QIA=','39755c0r',1,0,'',233,0,0),(2407,648,18,314,0,'219.128.34.112',1132805979,1,0,1,1,1,0,'','Preview error (fixed)','The latest preview do not work correctly on some page size. The problem is on startup the page are hidden one have to press the zoom/unzoom button to display it. \n\nI am using 21.15 x 14.00 \n::oPrn:setsize(2150,1400)','',0,'QIA=','34p1mdsg',1,0,'',314,0,0),(2408,627,6,72,0,'201.154.187.249',1132810530,1,0,1,1,1,0,'','','Angel, ponte en contacto via messenger, creo que estás pasando por situaciones que ya he superado (con ayuda de varios colegas).\n\nSaludos.','',0,'QIA=','1htxrtm7',1,0,'',72,0,0),(2409,648,18,6,0,'82.58.168.150',1132817456,1,0,1,1,1,1,'','Re: Preview error','I confirm the problem (but I\'m currently still using FWH 2.6) even with A4 page size. Sample:\n\n[code:3gq0x64t]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Report&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRpt\n\n    USE C&#58;\\XHARBOUR\\TEST\n\n    REPORT oRpt PREVIEW\n\n    COLUMN TITLE &quot;FIRST&quot;;\n           DATA FIELD -&gt; first\n\n    COLUMN TITLE &quot;LAST&quot;;\n           DATA FIELD -&gt; last\n\n    COLUMN TITLE &quot;STREET&quot;;\n           DATA FIELD -&gt; street\n\n    COLUMN TITLE &quot;CITY&quot;;\n           DATA FIELD -&gt; city\n\n    END REPORT\n\n    ACTIVATE REPORT oRpt\n\n    CLOSE\n\n    RETURN NIL[/code:3gq0x64t]\n\nEMG','',0,'AIA=','3gq0x64t',1,0,'',6,0,0),(2410,646,7,2,0,'80.58.2.107',1132817743,1,0,1,1,1,1,'','','Rafael,\n\nLos menús pulldown de Pocket PC son distintos de los que Windows usa en los PCs. Me refiero a como los organiza en los recursos. Además, de momento, no hemos encontrado la forma de crearlos desde código, por lo que hay que usar recursos. Aqui tienes un ejemplo de menus sin popups:\n\nTestMenu.prg\n[code:2jlxchhv]\n// FiveWin for Pocket PC - Testing menus without popups menus\n\n#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;TestMenu&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n      \nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   DEFINE MENU oMenu RESOURCE 102\n   \n   REDEFINE MENUITEM ID 100 OF oMenu ACTION MsgInfo&#40; &quot;First&quot; &#41;\n\n   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo&#40; &quot;Second&quot; &#41;\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n[/code:2jlxchhv]\n\nTestMenu.rc\n[code:2jlxchhv]\n#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\n#define I_IMAGENONE		&#40;-2&#41;\n#define IDS_HELP      104\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n  102, 2,\n  I_IMAGENONE, 100, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 202, 0, 0,  \n  I_IMAGENONE, 110, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 203, 0, 1,  \nEND\n#endif\n\nSTRINGTABLE DISCARDABLE \nBEGIN\n   202 &quot;First&quot;\n   203 &quot;Second&quot;\nEND\n\n102 MENU DISCARDABLE \nBEGIN\n   MENUITEM &quot;&quot;, 100\n   MENUITEM &quot;&quot;, 110\nEND\n[/code:2jlxchhv]','',0,'AIA=','2jlxchhv',1,0,'',2,0,0),(2411,648,18,2,0,'80.58.2.107',1132818003,1,0,1,1,1,1,'','','Enrico,\n\nI just modified USE C:\\XHARBOUR\\TEST into USE customer and executed your sample at FWH\\samples directory and it worked ok.\n\nI am using 800x600. What screen resolution do you use ? thanks,','',0,'AIA=','185q4ycp',1,0,'',2,0,0),(2412,629,2,2,0,'80.58.2.107',1132818208,1,0,1,1,1,1,'','','Luis,\n\nRevisa el ejemplo samples\\TestIcon.prg','',0,'AIA=','3dkapgc9',1,0,'',2,0,0),(2413,611,2,2,0,'80.58.2.107',1132818272,1,0,1,1,1,1,'','','Luis,\n\nMira a ver si dentro de la lib los nombres están en inglés.','',0,'AIA=','1xurey60',1,0,'',2,0,0),(2414,639,6,2,0,'80.58.2.107',1132818555,1,0,1,1,1,1,'','','Juan,\n\nPrueba este ejemplo y dinos que valor te sale en pantalla:\n\n[code:qzaq3a1y]\nfunction Main&#40;&#41;\n\n   local hDLL &#58;= LoadLibrary&#40; &quot;wininet&#46;dll&quot; &#41;\n\n   MsgInfo&#40; hDLL &#41;\n\n   FreeLibrary&#40; hDLL &#41;\n\nreturn nil\n[/code:qzaq3a1y]','',0,'AIA=','qzaq3a1y',1,0,'',2,0,0),(2415,647,6,2,0,'80.58.2.107',1132818676,1,0,1,1,1,1,'','','Por lo que se vé en el error, en la línea 573:\n\nLlamado desde (b)TWINDOW:TWINDOW(573)\n\nse está intentando hacer un Eval() de una variable tipo lógico en vez de codeblock. Mira a ver que valor hay ahí.','',0,'AIA=','1aq02ttx',1,0,'',2,0,0),(2416,617,6,310,0,'151.92.176.3',1132818721,1,0,1,1,1,0,'','','Antonio, ya le he enviado el fichero solicitado para su análisis a su correo privado\n\nMuchas gracias  \n\nUn saludo','',0,'AIA=','3iw01111',1,0,'',310,0,0),(2417,647,6,52,0,'201.231.13.213',1132820515,1,0,1,1,1,1,'','','Antonio,\n\nPero ese error tengo que verlo en mi propio código? o en donde, porque nunca entendi bien el reporte de error.\n\nGracias.','',0,'AIA=','1v6xt1jf',1,0,'',52,0,0),(2418,626,2,88,0,'82.150.2.18',1132821485,1,0,1,1,1,1,'','','Saludos Javi,\n\nayer me paso esto por primera vez, estoy siguiendo el consejo de Antonio, aumentar el stacksize y el heapsize. Ahora estan a 30000 y el heapsize a 2048 ...\n\nya te comentare que tal va ...\n\n\nNos leemos!!','',0,'AIA=','23zmcpzw',1,0,'',88,0,0),(2419,641,4,277,0,'81.72.105.247',1132821978,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:5e68gjls]Claudio,\n\nYes, we are planning to provide support for it. Based on what we have seen, it may work as a standard comm port as Jose comments you. It may also work as a socket. \n\nProbably we have to call a setup function to select comm or sockets mode.[/quote:5e68gjls]\n\nMany thanks, but if is a COM port, how i can identify IrDA and Bluetooth ports, i tried to see Settings, but i don\'t found.\n\nAnd then, when i have the connection, i have to respect some protocols to print, or i have just to send data to the printer?\n\nHowever, i will wait for news.\nClaudio.','',0,'gA==','5e68gjls',1,0,'',277,0,0),(2420,648,18,314,0,'219.128.34.112',1132822791,1,0,1,1,1,0,'','','Antonio,\n\nIf the screen resolution is greater than 1024 x 768 it show the problem.','',0,'gA==','39xlw454',1,0,'',314,0,0),(2421,649,2,294,0,'168.226.2.96',1132829317,1,0,1,1,1,0,'','Error del Preview','Hago una consulta, tal vez sea tonta pero no lo se.\nEl preview que tengo, cuando lo llamo por primera vez, anda con un fondo gris, que cuando quiero hacer un zoom se superponen los textos (el original con el zoom). Despues, la segunda vez que lo llamo anda bien. Alguien me puede decir porque?\nGracias','',0,'gA==','2j43xvwn',1,0,'',294,0,0),(2422,650,1,315,0,'212.127.159.218',1132833433,1,0,1,0,1,0,'','Animation not always working','Dear all,\n\nWhen I use the  oAnimate:CopyFiles() animation as Action in a Dialog, than \nthe animation works fine when I do an Upload to a server.\nWhen I do a Download from that server my animation starts only after the \nDownload is finished.\n\n\n DEFINE DIALOG oDlf RESOURCE \"DataToServer\"\n\n   oAnimate = TAnimate():Redefine( 160, oDlf )\n\n   REDEFINE SBUTTON ID 161 OF oDlf   ;\n       Title \"Starten\";\n       BORDER  ;\n       ACTION  oAnimate:CopyFiles() ,  DoTheUp(Down)load( oDlf, cUrl, cFile, \ncEmaildef, cDomein );\n       COLORS  CLR_WHITE, CLR_RED;\n       TOOLTIP \"Starten\"\n\n  REDEFINE SBUTTON ID 162 OF oDlf   ;\n       Title \"Cancel\";\n       BORDER  ;\n       ACTION  oDlf:End();\n       COLORS  CLR_WHITE, CLR_BLUE;\n       TOOLTIP \"Terug\"\n\n  ACTIVATE DIALOG oDlf\n\nThe Action DoTheUp(Down)load starts the Tiptest.prg from \nxHB\\Samples\\Internet\\\n\nCan anyone give an indication why the animation does not work during a \ndownload?\n\nThanks,\n\n\nJules de Pierre','',0,'gA==','3u8itarn',1,0,'',315,0,0),(2423,651,1,26,0,'193.95.217.122',1132833640,1,0,1,1,1,1,'','Jumping to next control after filling GET field?','Hello!\n\nI would like my application to jump to next control whenever user fills GET control. For example, I have GETs with just one character and now\nuser must press a letter and then TAB to go to the next GET...\n\nThanks, Roman','',0,'gA==','tbb7sehf',1,0,'',26,0,0),(2424,610,6,36,0,'200.113.56.235',1132835490,1,0,1,1,1,0,'','','Marco pudes ver\n\nWin98 con la utilidad monitor de red\nen server2k3 con administre su servidor-administrar este servidor de archivos\nxp, boton derecho del mouse en mi pc y administrar\n\nespero que te sirva\n\nSaludos\nPatricio','',0,'gA==','1r7e3w1w',1,0,'',36,0,0),(2425,651,1,6,0,'82.57.159.236',1132838345,1,0,1,1,1,1,'','Re: Jumping to next control after filling GET field?','SET CONFIRM OFF\n\nEMG','',0,'gA==','rvjr875y',1,0,'',6,0,0),(2426,648,18,6,0,'82.57.159.236',1132838492,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1zd317xb]Enrico,\n\nI just modified USE C:\\XHARBOUR\\TEST into USE customer and executed your sample at FWH\\samples directory and it worked ok.\n\nI am using 800x600. What screen resolution do you use ? thanks,[/quote:1zd317xb]\n\nCan you try using xHarbour\'s TEST.DBF? Anyway, I\'m using 1280 x 1024 as desktop resolution.\n\nEMG','',0,'gA==','1zd317xb',1,0,'',6,0,0),(2427,652,2,242,0,'81.45.227.110',1132838552,1,0,1,1,1,0,'','Cómo escribir en la pantalla principal.','Hola a todos.\n\nPues lo dicho, ¿cómo puedo escribir en la pantalla principal de mi programa? Es una ventana MDI en la que hasta ahora mostraba un bitmap, pero quisiera mostrar los datos de la empresa, los cuales tengo en un archivo. Se que debe haber algún ejemplo en SAMPLES, pero como que no doy con él.\n\nGracias por adelantado y un saludo.\nFernando Morales del Rosario','',0,'gA==','spxvsoe9',1,0,'',242,0,0),(2428,644,6,121,0,'201.128.6.86',1132838921,1,0,1,1,1,1,'','','Ese problema se arregla dando click derecho en el icono de msdos\ny en propiedades se modifica la pestaña de diseño 80 cols 25 rengs\n\nSaludos','',0,'gA==','1nf8dyfm',1,0,'',121,0,0),(2429,626,2,2,0,'80.58.2.107',1132840728,1,0,1,1,1,1,'','','Chantiel,\n\n30000 es un valor muy alto. Intenta bajarlo.','',0,'gA==','1vgz7erm',1,0,'',2,0,0),(2430,638,20,263,0,'217.222.223.34',1132842690,1,0,1,1,1,0,'','','Ho trovato la classe tsca32 di rafa carmona, è quella di cui stiamo parlando o ce n\'è un\'altra?\n\n// Example scanner, Class TSCAN32 and Wrappers for [x]Harbour\n\n//    This program is free software; you can redistribute it and/or modify\n//    it under the terms of the GNU General Public License as published by\n//    the Free Software Foundation; either version 2 of the License, or\n//    (at your option) any later version.\n\n//    This program is distributed in the hope that it will be useful,\n//    but WITHOUT ANY WARRANTY; without even the implied warranty of\n//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n//    GNU General Public License for more details.\n\n//    You should have received a copy of the GNU General Public License\n//    along with this software; see the file COPYING.  If not, write to\n//    the Free Software Foundation, Inc., 59 Temple Place, Suite 330,\n//    Boston, MA 02111-1307 USA (or visit the web site <!-- m --><a class=\"postlink\" href=\"http://www.gnu.org/\">http://www.gnu.org/</a><!-- m -->).\n\n//    The exception is that, if you link the class Tscan32 and Wrappers C with other\n//    files to produce an executable, this does not by itself cause the\n//    resulting executable to be covered by the GNU General Public License.\n//    Your use of that executable is in no way restricted on account of\n//    linking the Tscan32 and Wrappers library code into it.\n\n// 2003(c)- Rafa Carmona( Thefull )\n//\n// interface to Dosadi EZTWAIN library by TheFull\n// Interface para la libreria EZTWAIN de Dosadi por TheFull\n// 32 bits\n\n// ATENTION. THIS LICENSE NOT APLICATTE A EZTWAIN.\n// YOUR VIEW LICENSE EZTW32.DLL IN <!-- w --><a class=\"postlink\" href=\"http://WWW.DOSADI.COM\">WWW.DOSADI.COM</a><!-- w -->\n\n#INCLUDE \"HBCLASS.CH\"\n\n\n// Returns the TWAIN Protocol State per the spec.\n#define TWAIN_PRESESSION		1	// source manager not loaded\n#define TWAIN_SM_LOADED			2	// source manager loaded\n#define TWAIN_SM_OPEN			3	// source manager open\n#define TWAIN_SOURCE_OPEN		4	// source open but not enabled\n#define TWAIN_SOURCE_ENABLED	5	// source enabled to acquire\n#define TWAIN_TRANSFER_READY	6	// image ready to transfer\n#define TWAIN_TRANSFERRING		7	// image in transit\n\n***************************************************************************\n*\n* CLASS TSCAN32\n* 2003(c)- by Rafa Carmona ( TheFull )\n* Beta 1.0\n* Beta 2.0  New. Support Get ClipBoard to hDib.\n*           New. ClipboardToFile( cFile ) -&gt; Save File Jpg into Clipboard.\n*\n* Beta 3.0  New. ReWrite Method End, conflict GPF\'s  <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n*\n*\n****************************************************************************\n\nCLASS TSCAN32\n\n      DATA hWnd\n      DATA cFile\n      DATA hDib\n      DATA lError INIT .F.\n      DATA nState\n\n      METHOD New( cFile, hWnd ) CONSTRUCTOR\n      METHOD End()\n      METHOD Register()\n      MESSAGE FreeNative METHOD End()\n      MESSAGE Close      METHOD End()\n\n      METHOD DigiToFile( cFile )\n      METHOD DibToJpeg( cFile )  INLINE TW_DibWJpg( ::hDib, cFile )\n      METHOD DibToBmp( cFile )   INLINE TW_DibWBmp( ::hDib, cFile )\n      METHOD SetJpegQ( nQuality) INLINE TW_SetJpegQuality( nQuality )// 1..100 Default 75\n\n      METHOD Acquire()           INLINE TW_Acquire( ::hWnd )\n      METHOD AcquireClipBoard()  INLINE TW_AcquireToClipboard( ::hWnd , 0 )\n\n      METHOD OpenDefault()\n      METHOD OpenSource()\n      METHOD EnableSource()     INLINE TW_EnableSource( ::hWnd )\n      METHOD Choose()           INLINE TW_SelectImageSource()\n\n      // **********    Basic TWAIN Inquiries **********************************\n      METHOD IsAvailable()          INLINE IIF( TW_Avail() = 1, .T. , .F. )\n      METHOD Version()              INLINE ( Str( TW_EasyVersion() / 100 ) )\n      METHOD State()                INLINE (::nState := TW_State() )\n      METHOD SourceName()           INLINE TW_SourceName()\n      METHOD GetSourceName( cName ) INLINE TW_GetSourceName( cName )\n\n\n      //************   Global Options *****************************************\n      METHOD SetHide( lHide )     INLINE IIF( lHide , TW_SetHideUI(1), TW_SetHideUI(0) )\n\n\n      //-*********** High-level Capability Negotiation Functions **************\n      // These functions should only be called in State 4 (TWAIN_SOURCE_OPEN)\n      METHOD PixelType( nType ) INLINE ( ::State(),;\n                                if( ::nState &gt;= TWAIN_SOURCE_OPEN,;\n                                                TW_SetCurrentPixelType( nType ),0 ) )\n      METHOD SetRes( dRes )     INLINE ( ::State(),;\n                                if( ::nState &gt;= TWAIN_SOURCE_OPEN,;\n                                                TW_SetCurrentResolution( dRes ),0) )\n      METHOD SetXRes( dRes )            INLINE TW_SetXResolution( dRes )\n      METHOD SetYRes( dRes )            INLINE TW_SetYResolution( dRes )\n      METHOD SetUnits( nUnits )         INLINE TW_SETCURRENTUNITS( nUnits )\n      METHOD SetContrats( dContrats)    INLINE TW_SETCONTRATS( dContrats  )\n      METHOD SetBright( dBright )       INLINE TW_SETBRIGHTNESS( dBright )\n      METHOD SetPaper( nPaper )         INLINE TW_SETPAPERSIZE( nPaper )\n      METHOD GetResolution()            INLINE TW_GETCURRENTRESOLUTION()\n\n\n      //******** Image Layout (Region of Interest) **********************\n      METHOD RegionSet( nLeft,nTop, nRigth, nBottom )  INLINE TW_SetImageLayout( nLeft,nTop, nRigth, nBottom )\n      METHOD RegionReset()                             INLINE TW_ResetImageLayout()\n      METHOD RegionGet( L,T,R,B )                      INLINE TW_GetImageLayout(@L,@T,@R,@B)\n      METHOD RegionGetDefault( L,T,R,B )               INLINE TW_GetDefaultImageLayout(@L,@T,@R,@B)\n\n      METHOD ClipBoardToFile( cFile )\n      METHOD DIB_GetFromClipboard() INLINE TW_DIB_GetFromClipboard()\n\nENDCLASS\n\n***********************************************************\n***********************************************************\nMETHOD New( cFile, hWnd ) CLASS TSCAN32\n\n       IF Empty( hWnd )\n          ::hWnd := GetActiveWindow()\n       ENDIF\n\n       IF Empty( cFile )\n          ::cFile := \"TestTscan32.jpg\"\n       ELSE\n          ::cFile := cFile\n       ENDIF\n\n\n       IF !::IsAvailable()\n          ::lError := .T.\n         // MsgStop( \"TWAIN no found\",\"Attention!\") // Only Fivewin\n       ENDIF\n\n       IF !::lError\n          ::Register( 1,0,0,0,\"1.0 Beta\",\"by Rafa Carmona\",\"Scan by Thefull\",\"Scan For [x]Harbour\" )\n       ENDIF\n       ::OpenSource()\n       ::OpenDefault()\n\nRETURN Self\n\n**********************************************************************\n* Comprueba que esta disponible TWAIN y cargalo\n**********************************************************************\nMETHOD OpenSource() CLASS TSCAN32\n   Local nResult := TW_LoadSourceManager()\n\n   DO CASE\n      CASE nResult = -1\n           ::lError := .T.\n           // MsgStop(\"Error Driver TWAIN\",\" ¿ Insufficient Memory ?\")\n           Return Self\n   ENDCASE\n\nReturn Self\n\n***********************************************************************\n*  Abre TWAIN el ultimo que fue seleccionado desde Select ..Dialog\n* Si no puede cargarlo solicita seleccionar Source.\n***********************************************************************\nMETHOD OpenDefault() CLASS TSCAN32\n       Local nResult := TW_OpenDefaultSource()\n\n       DO CASE\n          CASE nResult = 0\n               ::Choose()\n          CASE nResult = -1\n               ::lError := .T.\n          OTHERWISE\n               ::lError := .F.\n       ENDCASE\n\nReturn Self\n\n**************************************************************************\n* Liberamos hDib y cerramos el dispositivo\n**************************************************************************\nMETHOD End() CLASS TSCAN32\n\n   if !Empty( ::hDib )\n      TW_Free( ::hDib )\n   endif\n\n   TW_CloseSourceManager( ::hWnd ) // Close para evitar GPF\n\nReturn NIL\n\n***************************************************************************\n* Registra la aplicacion\n***************************************************************************\nMETHOD Register( nMajor ,nMinor,nLanguage,nCountry,cVersion,cName,cFamily,cProduct ) CLASS TSCAN32\n\n       TW_REGISTERAPP( nMajor ,nMinor,nLanguage,nCountry,;\n                       cVersion,cName,cFamily,cProduct )\n\nReturn Self\n\n***********************************************************\n* Digitaliza hacia un fichero .jpg\n***********************************************************\nMETHOD DigiToFile( cFile )\n\n       if EMPTY( cFile )\n          cFile := ::cFile\n       endif\n\n       IF !::lError\n          ::hDib := ::Acquire()         // Importar\n       ENDIF\n\n       IF !Empty( ::hDib )\n\n           IF TW_IsJpg() = 1             // Si puede hacer uso del JPG\n              ::DibToJpeg( cFile )\n           ELSE\n              ::DibToBmp( cFile )       // Si no hacemos uso de BMP\n           ENDIF\n\n       ENDIF\n\nReturn Self\n\n\n************************************************************************\n* Save content clipboard into to file.jpg\n************************************************************************\nMETHOD ClipBoardToFile( cFile ) CLASS TSCAN32\n       Local hDib, nError\n\n       IF Empty( cFile )\n          ::cFile := \"TestTscan32.jpg\"\n       ELSE\n          ::cFile := cFile\n       ENDIF\n\n        hDib := ::DIB_GetFromClipboard()\n\n\n       IF !Empty( hDib )\n\n           IF TW_IsJpg() = 1             // Si puede hacer uso del JPG\n              TW_DibWJpg( hDib,  ::cFile )\n           ELSE\n              TW_DibWBmp(  hDib, ::cFile )\n           ENDIF\n\n           TW_Free( hDib )\n\n       ENDIF\n\nRETURN Self\n/* -----------------------------------------------------------------\n  Implementation Language C for [x]Harbour(WIN32)\n  2003(c)- by Rafa Carmona ( TheFull )\n\n  Wrappers for EZTW32.DLL the DosAdi.\n\n-------------------------------------------------------------------- */\n#pragma BEGINDUMP\n\n #include &lt;windows.h&gt;\n #include \"eztwain.h\"\n #include \"hbapi.h\"\n\n\n/*--------- Top-Level Calls -------------------------------------*/\n\n HB_FUNC( TW_ACQUIRE )  // hWnd\n {\n  hb_retnl( ( LONG )TWAIN_Acquire( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_FREE )     // hDib\n {\n  TWAIN_FreeNative( ( HANDLE ) hb_parnl( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_SELECTIMAGESOURCE )  // hWnd\n {\n  hb_retni( TWAIN_SelectImageSource( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_ACQUIRENATIVE )  // hWnd, nPixTypes\n {\n  hb_retnl( ( LONG )TWAIN_AcquireNative( ( HWND ) hb_parnl( 1 ), (unsigned) hb_parni(2) ) );\n }\n\n HB_FUNC( TW_ACQUIRETOCLIPBOARD )  // hWnd, nPixTypes\n {\n  hb_retni( TWAIN_AcquireToClipboard( ( HWND ) hb_parnl( 1 ), (unsigned) hb_parni(2) ) );\n }\n\n HB_FUNC( TW_ACQUIREMEMORY )  // hWnd\n {\n  hb_retnl( ( LONG )TWAIN_AcquireMemory( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_ACQUIRETOFILENAME )  // hWnd, cFileName\n {\n  hb_retni( TWAIN_AcquireToFilename( ( HWND ) hb_parnl( 1 ), hb_parc( 2 ) ) );\n }\n\n HB_FUNC( TW_ACQUIREFILE )  // hWnd, nFF, cFileName\n {\n  hb_retni( TWAIN_AcquireFile( ( HWND ) hb_parnl( 1 ), hb_parni( 2 ) ,hb_parc( 3 ) ) );\n }\n\n\n//--------- Basic TWAIN Inquiries\n\n HB_FUNC( TW_AVAIL )\n {\n  hb_retni( TWAIN_IsAvailable()  );\n }\n\n HB_FUNC( TW_EASYVERSION)\n {\n  hb_retni( TWAIN_EasyVersion()  );\n }\n\n HB_FUNC( TW_STATE )\n {\n  hb_retni( TWAIN_State() );\n }\n\n HB_FUNC( TW_SOURCENAME )\n {\n  hb_retc( TWAIN_SourceName() );\n }\n\n HB_FUNC( TW_GETSOURCENAME )   // pzName\n {\n  TWAIN_GetSourceName( (LPSTR) hb_parc( 1 ) );\n  hb_ret();\n }\n\n\n//--------- DIB handling utilities ---------\n\n HB_FUNC( TW_DIBWJPG ) // hDib, cName\n {\n  hb_parni( DIB_WriteToJpeg( ( HANDLE ) hb_parnl(1), hb_parc( 2 ) ) );\n }\n\n HB_FUNC( TW_DIBWBMP ) // hDib, cName\n {\n  hb_parni( DIB_WriteToBmp( ( HANDLE ) hb_parnl(1), hb_parc( 2 ) ) );\n }\n\n\n//--------- File Read/Write\n\n HB_FUNC( TW_ISJPG )\n {\n  hb_retni( TWAIN_IsJpegAvailable() );\n }\n\n HB_FUNC( TW_SETSAVEFORMAT )\n {\n  hb_retni( TWAIN_SetSaveFormat( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETSAVEFORMAT )\n {\n  hb_retni( TWAIN_GetSaveFormat() );\n }\n\n HB_FUNC( TW_SETJPEGQUALITY ) // nQuality 1...100\n {\n  TWAIN_SetJpegQuality( hb_parni( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETJPEGQUALITY )\n {\n  hb_retni( TWAIN_GetJpegQuality() );\n }\n\n HB_FUNC( TW_WRITENATIVETOFILENAME )\n {\n  hb_retni( TWAIN_WriteNativeToFilename( (HANDLE) hb_parnl(1), hb_parc(2) ));\n }\n\n HB_FUNC( TW_LOADNATIVEFROMFILENAME )\n {\n  hb_retnl( (LONG) TWAIN_LoadNativeFromFilename( hb_parc( 1 ) ) );\n }\n\n\n\n//--------- Global Options ----------------------------------------------\n HB_FUNC( TW_SETMULTITRANSFER )\n {\n  TWAIN_SetMultiTransfer( hb_parni( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETMULTITRANSFER )\n {\n  hb_retni( TWAIN_GetMultiTransfer() );\n }\n\n HB_FUNC( TW_SETHIDEUI  ) // nHide\n {\n  TWAIN_SetHideUI( hb_parni( 1) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETHIDEUI  )\n {\n  hb_retni( TWAIN_GetHideUI() );\n }\n\n\n HB_FUNC( TW_DISABLEPARENT )\n {\n  TWAIN_DisableParent( hb_parni( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETDISABLEPARENT )\n {\n  hb_retni( TWAIN_GetDisableParent() );\n }\n\n HB_FUNC( TW_REGISTERAPP )\n {\n\n TWAIN_RegisterApp( hb_parni(1),hb_parni(2),hb_parni(3),hb_parni(4),\n                    hb_parc(5), hb_parc(6),\n                    hb_parc(7), hb_parc(8) );\n hb_ret();\n }\n\n HB_FUNC( TW_SETAPPTITLE )\n {\n  TWAIN_SetAppTitle( hb_parc( 1 ) );\n  hb_ret();\n }\n\n\n\n\n//--------- TWAIN State Control ---------------------------------------\n\n HB_FUNC( TW_LOADSOURCEMANAGER )\n {\n  hb_retni( TWAIN_LoadSourceManager() );\n }\n\n HB_FUNC( TW_OPENSOURCEMANAGER )  // hWnd\n {\n  hb_retni( TWAIN_OpenSourceManager( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_OPENDEFAULTSOURCE )\n {\n  hb_retni( TWAIN_OpenDefaultSource() );\n }\n\n HB_FUNC( TW_GETSOURCELIST )\n {\n  hb_retni( TWAIN_GetSourceList() );\n }\n\n HB_FUNC( TW_GETNEXTSOURCENAME )\n {\n  hb_retni( TWAIN_GetNextSourceName( hb_parc( 1 ) ) );\n }\n\n HB_FUNC( TW_GETDEFAULTSOURCENAME )\n {\n  hb_retni( TWAIN_GetDefaultSourceName( hb_parc( 1 ) ));\n }\n\n HB_FUNC( TW_OPENSOURCE )\n {\n  hb_retni( TWAIN_OpenSource( hb_parc( 1 ) ) );\n }\n\n HB_FUNC( TW_ENABLESOURCE )       // hWnd\n {\n  hb_retni( TWAIN_EnableSource( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_DISABLESOURCE )\n {\n  hb_retni( TWAIN_DisableSource( ) );\n\n }\n\n HB_FUNC( TW_CLOSESOURCE )\n {\n  hb_retni( TWAIN_CloseSource() );\n }\n\n HB_FUNC( TW_CLOSESOURCEMANAGER )\n {\n  hb_retni( TWAIN_CloseSourceManager( (HWND) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_UNLOADSOURCEMANEGER )\n {\n  hb_retni( TWAIN_UnloadSourceManager() );\n }\n\n\n\n//--------- High-level Capability Negotiation Functions --------------\n// These functions should only be called in State 4 (TWAIN_SOURCE_OPEN)\n\n HB_FUNC( TW_GETCURRENTUNITS )\n {\n  hb_retni( TWAIN_GetCurrentUnits() );\n }\n\n HB_FUNC( TW_SETCURRENTUNITS ) // nUnits\n {\n  hb_retni( TWAIN_SetCurrentUnits( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETBITDEPTH )\n {\n  hb_retni( TWAIN_GetBitDepth() );\n }\n\n HB_FUNC( TW_SETBITDEPTH )\n {\n  hb_retni( TWAIN_SetBitDepth( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETPIXELTYPE )\n {\n  hb_retni( TWAIN_GetPixelType() );\n }\n\n HB_FUNC( TW_SETCURRENTPIXELTYPE )  // nBits\n {\n  hb_retni( TWAIN_SetCurrentPixelType( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETCURRENTRESOLUTION )\n {\n  hb_retnd( TWAIN_GetCurrentResolution());\n }\n\n HB_FUNC( TW_GETYRESOLUTION )\n {\n  hb_retnd( TWAIN_GetYResolution());\n }\n\n HB_FUNC( TW_SETCURRENTRESOLUTION )  // dRes\n {\n  hb_retni( TWAIN_SetCurrentResolution( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETXRESOLUTION )\n {\n  hb_retni( TWAIN_SetXResolution( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETYRESOLUTION )\n {\n  hb_retni( TWAIN_SetYResolution( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETCONTRATS ) //dCon\n {\n  hb_retni( TWAIN_SetContrast( hb_parnd( 1 ) ) ); // -1000....+1000\n }\n\n HB_FUNC( TW_SETBRIGHTNESS ) //dBri\n {\n  hb_retni( TWAIN_SetBrightness( hb_parnd( 1 ) ) ); // -1000....+1000\n  }\n\n HB_FUNC( TW_SETTHRESHOLD )\n {\n  hb_retni( TWAIN_SetThreshold( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_GETCURRENTTHRESHOLD )\n {\n  hb_retnd( TWAIN_GetCurrentThreshold() );\n }\n\n HB_FUNC( TW_SETXFERMECH )\n {\n  hb_retni( TWAIN_SetXferMech( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_XFERMECH )\n {\n  hb_retni( TWAIN_XferMech() );\n }\n\n HB_FUNC( TW_SUPPORTSFILEXFER )\n {\n  hb_retni( TWAIN_SupportsFileXfer() );\n }\n\n HB_FUNC( TW_SETPAPERSIZE ) // nTypePaper\n {\n  hb_retni( TWAIN_SetPaperSize( hb_parni( 1 ) ) );\n }\n\n//-------- Document Feeder ---------------------------------\n\n HB_FUNC( TW_HASFEEDER )\n {\n  hb_retl( TWAIN_HasFeeder() );\n }\n\n HB_FUNC( TW_ISFEEDERSELECTED )\n {\n  hb_retl( TWAIN_IsFeederSelected() );\n }\n\n HB_FUNC( TW_SELECTFEEDER )\n {\n  hb_retni( TWAIN_SelectFeeder( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_ISAUTOFEEDON )\n {\n  hb_retl( TWAIN_IsAutoFeedOn() );\n }\n\n HB_FUNC( TW_SETAUTOFEDD )\n {\n  hb_retni( TWAIN_SetAutoFeed( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_ISFEEDERLOADED )\n {\n  hb_retl( TWAIN_IsFeederLoaded() );\n }\n\n//-------- Duplex Scanning ------------------------------------------\n HB_FUNC( TW_GETDUPLEXSUPPORT )\n {\n  hb_retni( TWAIN_GetDuplexSupport() );\n }\n\n HB_FUNC( TW_ENABLEDUPLEX )\n {\n  hb_retni( TWAIN_EnableDuplex( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_ISDUPLEXENABLED )\n {\n  hb_retl( TWAIN_IsDuplexEnabled() );\n }\n\n//--------- Other \'exotic\' capabilities --------\n\n HB_FUNC( TW_HASCONTROLLABLEUI )\n {\n  hb_retni( TWAIN_HasControllableUI() );\n }\n\n HB_FUNC( TW_SETINDICATORS )\n {\n  hb_retni( TWAIN_SetIndicators( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_COMPRESSION )\n {\n  hb_retni( TWAIN_Compression() );\n }\n\n HB_FUNC( TW_SETCOMPRESSION )\n {\n  hb_retni( TWAIN_SetCompression( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_TILED )\n {\n  hb_retl( TWAIN_Tiled() );\n }\n\n HB_FUNC( TW_SETTILED )\n {\n  hb_retni( TWAIN_SetTiled( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_PLANARCHUNKY )\n {\n  hb_retni( TWAIN_PlanarChunky() );\n }\n\n HB_FUNC( TW_SETPLANARCHUNKY )\n {\n  hb_retni( TWAIN_SetPlanarChunky( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_PIXELFLAVOR )\n {\n  hb_retni( TWAIN_PixelFlavor() );\n }\n\n HB_FUNC( TW_SETPIXELFLAVOR )\n {\n  hb_retni( TWAIN_SetPixelFlavor( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_SETLIGHTPATH )\n {\n  hb_retni( TWAIN_SetLightPath( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_SETAUTOBRIGHT )\n {\n  hb_retni( TWAIN_SetAutoBright( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_SETGAMMA )\n {\n  hb_retni( TWAIN_SetGamma( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETSHADOW )\n {\n  hb_retni( TWAIN_SetShadow( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETHIGHLIGHT )\n {\n  hb_retni( TWAIN_SetHighlight( hb_parnd( 1 ) ) );\n }\n//--------- Image Layout (Region of Interest) --------\n\n\n HB_FUNC( TW_SETIMAGELAYOUT )   // left, top, right, bottom\n {\n  hb_retni( TWAIN_SetImageLayout( hb_parnd( 1 ),hb_parnd( 2 ),hb_parnd( 3 ),hb_parnd( 4 ) ) );\n }\n\n HB_FUNC( TW_RESETIMAGELAYOUT )\n {\n  TWAIN_ResetImageLayout();\n  hb_ret();\n }\n\n HB_FUNC( TW_GETIMAGELAYOUT )\n {\n  double L,T,R,B;\n  int nRet;\n\n  nRet = TWAIN_GetImageLayout( &amp;L,&amp;T,&amp;R,&amp;B );\n\n  hb_stornd( L, 1 );\n  hb_stornd( T, 2 );\n  hb_stornd( R, 3 );\n  hb_stornd( B, 4 );\n  hb_retni( nRet );\n }\n\n HB_FUNC( TW_GETDEFAULTIMAGELAYOUT )\n {\n  double L,T,R,B;\n  int nRet;\n\n  nRet = TWAIN_GetDefaultImageLayout( &amp;L, &amp;T, &amp;R, &amp;B);\n\n  hb_stornd( L, 1 );\n  hb_stornd( T, 2 );\n  hb_stornd( R, 3 );\n  hb_stornd( B, 4 );\n  hb_retni( nRet );\n }\n\n//HANDLE EZTAPI DIB_GetFromClipboard(void);\nHB_FUNC( TW_DIB_GETFROMCLIPBOARD )\n{\n hb_retnl( (LONG) DIB_GetFromClipboard() );\n}\n\n// para no depender de Five, y harbour poder el solito trabajar <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n HB_FUNC ( GETACTIVEWINDOW )\n {\n  hb_retnl( ( LONG ) GetActiveWindow() );\n }\n\n#pragma ENDDUMP\n\nCiao','',0,'','1e3ukyf0',1,0,'',263,0,0),(2431,634,6,45,0,'200.82.62.118',1132843398,1,0,1,1,1,0,'','Re: TWBrowse++ v1.8 Finish? For Hernan','[quote=&quot;Taiwan&quot;:1etaqp93]Hello Hernan, \n\nCould you Send to me TW++ v18 when Finished? or\npublish it to forums.\n\nRegards,\n\nRichard[/quote:1etaqp93]\n\nFew Days  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'gA==','1etaqp93',1,0,'',45,0,0),(2432,601,6,316,0,'80.58.10.235',1132844645,1,0,0,1,1,0,'','Novedades en 2.7','Se pueden hacer checkboxes transparentes con FW 2.7? Es aplicable el estilo transparente a los controles en general?','',0,'gA==','v6j371it',1,0,'',316,0,0),(2433,634,6,15,0,'203.73.91.18',1132848059,1,0,1,1,1,0,'','','Hello\n\nI wait you. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\n\nRichard','',0,'gA==','2txtfnii',1,0,'',15,0,0),(2434,653,1,204,0,'83.235.235.202',1132849184,1,0,1,1,1,0,'','Icon not showing up','I\'m haveing a problem with the icon in the title bar of my MDI window.\nI\'m using DLL resources and buring a RC file inthe the exe with one icon (so windows shows the exe with that icon). The icon that I\'m calling is in the DLL, resname WIFTLOGO1, and in the RC file, resname 1.\nIn the main app I have this code\n[code:23cb179l]\nSET RESOURCES TO &quot;WIFTSRN&#46;DLL&quot;\n\n// Do some checking for error files &#40;????&#46;ERR&#41; If any are found round\n// them up and send them by email using blat&#46;exe to programer\n// It there are err files then delete all CDX files and logout any users\n// Check EXE rights to run on this system &#40;burnt HD serial and vol id to \n// the end of the exe after the rc script has added the icon&#41;\n\n  DEFINE ICON oFolderICO NAME &quot;WIFTLOGO1\n  DEFINE WINDOW oMainWin;\n   TITLE &quot;IFT for Windows&quot;;\n   MDI MENU BuildMNU1&#40;&#41;;\n   ICON oFolderICO\n  ACTIVATE WINDOW oMainWin MAXIMIZED ON INIT &#40;Main2&#40;cLineCmd&#41;&#41;\n  lError &#58;= &#46;F&#46;\nRETURN\n[/code:23cb179l]\n\nThe rc files has one line that reads\n[code:23cb179l]1 ICON &#46;\\RCS\\FOLDER02&#46;ICO[/code:23cb179l]\n\nMy rmk script at the end has the following\n[code:23cb179l]\nBLINKER @$&#40;LnkFile&#41;\nRC -k WIFT&#46;RC WIFT&#46;EXE\nBURN WIFT&#46;EXE NOVERBOSE\n[/code:23cb179l]\n\nAm I doing something wrong? The only icon that is displayed is that window box with the blue line on top insted of my icon. When I look at the exe through windows explorer I see the RC icon fine but when I run the app I don\'t.','',0,'AIA=','23cb179l',1,0,'',204,0,0),(2435,610,6,138,0,'201.135.28.190',1132850279,1,0,1,1,1,1,'','','ADS tiene una funcion que te regresa todas las tablas que tenga abiertas el servidor.','',0,'AIA=','21ryz8gi',1,0,'',138,0,0),(2436,646,7,63,0,'80.58.35.107',1132850824,1,0,1,1,1,0,'','','Antonio:  Tu ejemplo funciona perfectamente.\n\nAhora, por rizar el rizo: ¿Es posible que coexistan en el mismo menú PopUps y accesos directos?  He probado mil formas pero ninguna me ha funcionado.\n\nRafael','',0,'AIA=','lho2u5kd',1,0,'',63,0,0),(2437,654,7,95,0,'201.135.64.39',1132851134,1,0,1,1,1,0,'','Symbol MC3000','Buenos Dias ...\n\nUn cliente acaba por fin de comprar un Symbol MC3000 ( Intel PXA270 Intel(r) Bulverde )\nBaje unos zips esta pagina, pero desgraciadamente no corren.\nBajo el Emulador si corren los ejemplos.\n\n\nMe dice : FWCE5\n\nCannot Find \'fwce5\' ( or one of its components). Make sure the path and filename are correct and that all  the required libraries are available.\n\nEl sistema operativo es Windows CE 4.2 NET\n\nAlguien podra darme algun concejo o de plano, nos vamos al vacio del \'C\'\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','vuppybcf',1,0,'',95,0,0),(2438,629,2,295,0,'201.246.207.40',1132851514,1,0,1,1,1,1,'','','gracias amigo, asi lo haré y gracias <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','2w0t9y2w',1,0,'',295,0,0),(2439,653,1,6,0,'82.57.159.236',1132852040,1,0,1,1,1,1,'','Re: Icon not showing up','Try\n\n[code:2lo7qo4g]\n//  DEFINE ICON oFolderICO NAME &quot;WIFTLOGO1\n  DEFINE WINDOW oMainWin;\n   TITLE &quot;IFT for Windows&quot;;\n   MDI MENU BuildMNU1&#40;&#41;;\n   ICON &quot;WIFTLOGO1&quot;\n[/code:2lo7qo4g]\n\nEMG','',0,'AIA=','2lo7qo4g',1,0,'',6,0,0),(2440,638,20,6,0,'82.57.159.236',1132852163,1,0,1,1,1,1,'','','Vi prego di limitare il quoting ed in particolare di evitare assolutamente di incollare codice così lungo.\n\nGrazie della collaborazione.\n\nEMG','',0,'AIA=','2lt1ct4z',1,0,'',6,0,0),(2441,655,6,40,0,'200.92.242.8',1132853548,1,0,1,1,1,0,'','ADO + MS-SQL','Foro buenos días, estoy probando ADO + MS-SQL y va muy bien, pero me he topado con un problema.\n\nEstoy haciento una consulta la cual me regresa un oRS con tres campos\nuno de tipo TinyInt y dos de tipo nVarChar pero recorrer el oRs para meter los datos en un Array este me marca este error \n\n\"OLE Error  Value : Unknown error\", esto cuando intento tomar el valor con :   nEmpresa:=oRs:Fields(\'InEmpNum\'):Value\nInEmpNum es del tipo TinyInt, pero si cambio este campo a tipo Int\nel error ya no se presenta\n\nTengo que definir algo ?\n\nDe antemano mil gracias \nJoel Andujo','',0,'AIA=','1g9zyrdm',1,0,'',40,0,0),(2442,648,18,2,0,'80.58.2.107',1132853971,1,0,1,1,1,1,'','','Enrico,\n\nOk, using  1280 x 1024 I get the error. We are going to review it asap.','',0,'AIA=','2melcth9',1,0,'',2,0,0),(2443,648,18,6,0,'82.57.159.236',1132854585,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','3lwtq7p8',1,0,'',6,0,0),(2444,656,3,217,0,'200.153.134.231',1132854868,1,0,1,1,1,0,'','TTreeView (bitmap, colors and font)','I\'m testing TTreeView class and I have pending any questions:\n(I tested testtrer.prg)\n\n1) Is possible change the font of group name to bold?\n2) Is possible change the bitmap when the tree is open/closed? (I couldn\'t do it in testtrer.prg) \n3) Is possible change the bitmap size to 32x32, 48x48, etc? I only could use 16x16 bitmaps...\n4) I change the background color with oTree:Setcolor(...) but the background of characters and bitmaps color don\'t change. How can I change it?\n\nRegards,\nMaurilio','',0,'AIA=','1h7iloai',1,0,'',217,0,0),(2445,653,1,204,0,'83.235.235.202',1132856014,1,0,1,1,1,0,'','','No still no show','',0,'AIA=','1bu44k8t',1,0,'',204,0,0),(2446,657,6,75,0,'81.39.172.246',1132856816,1,0,1,1,1,0,'','No basta con esto','Pues va aser que no.\nAhora aparecen las barras de scroll.\nYo lo que necesito es que la panlla sea completa con el formato clásico del MS-DOS.','',0,'AIA=','3c3dfzjk',1,0,'',75,0,0),(2447,643,3,167,0,'72.161.227.48',1132856832,1,0,1,1,1,1,'','','Mine is mm-dd-yyyy\n\nI will experiment - thanks.','',0,'AIA=','26vdxl06',1,0,'',167,0,0),(2448,643,3,167,0,'72.161.227.48',1132856922,1,0,1,1,1,1,'','','I changed to D M d, Y g:i a as suggested and now it works fine.  My display now is:\n\nPosted: Wed Nov 23, 2005 11:00 am    Post subject: Re: How to determine date of forum message posting\n\n\nThank you.','',0,'AIA=','3mkzr058',1,0,'',167,0,0),(2449,627,6,23,0,'80.58.44.235',1132857792,1,0,1,1,1,1,'','','Gracias, te he agregado a mis contactos e intentaré comunicar contigo.','',0,'AIA=','ixjrk8tg',1,0,'',23,0,0),(2450,655,6,317,0,'80.58.12.107',1132859267,1,0,1,1,1,0,'','','Los campos TinyInt se utilizan para los campos lógicos ( .T. o .F. )','',0,'AIA=','3t8znpks',1,0,'',317,0,0),(2451,658,3,69,0,'206.210.97.138',1132861982,1,0,1,1,1,0,'','Comm port problem','I have a strange problem when reading from a comm port.\n\nIf I am starting with a fresh boo of the computer I can not read data from the comm port unless I first go into Windows HyperTerminal to read from the comm port.  Then my program works just fine (until you reboot).\n\nBelow is a sample of the code I am using, can someone tell me what I am missing.\n\nThanks,\nJeff\n\n\n***Open Comm Port\n   local cDcb, nBytes\n   local nComm := OpenComm( \"Com\"+alltrim(str(Config-&gt;Comm)), 1024, 128 )\n\n   if ! BuildCommDcb( \"COM\"+alltrim(str(Config-&gt;Comm))+\":9600,n,8,1\", @cDcb )\n      nError = GetCommError( nComm )\n      MsgInfo( \"BuildCommDcb Error: \" + Str( nError ) )\n   endif\n\n   if ! SetCommState( cDcb )\n      nError = GetCommError( nComm )\n      MsgInfo( \"SetCommState Error: \" + Str( nError ) )\n   endif\n\n***Read Comm Port here\n    if ReadComm( nComm , @cDataRead) &lt;&gt; 0\n        **do my data storage here\n    endif\n\n***Close Comm Port\n   if FlushComm( nComm, 0 ) != 0\n      nError = GetCommError( nComm )\n      MsgInfo( \"FlushComm Error: \" + Str( nError ) )\n   endif\n\n   if ! CloseComm( nComm )\n      nError = GetCommError( nComm )\n      MsgInfo( \"CloseComm Error: \" + Str( nError ) )\n   endif','',0,'AIA=','62uu802v',1,0,'',69,0,0),(2452,659,6,36,0,'200.113.56.235',1132862867,1,0,1,1,1,0,'','PRINTER','Estimado\n\n        me pueden ayudar con PRINTER\n\n    Estoy ajustando un tipo de papel con\n\nPRINT oPrn PREVIEW MODAL\n  xTmp := oPrn:Cmtr2Pix(25,18)\n oPrn:SetSize(xTmp[1],xTmp[2])\n oPrn:StartPage()\n  bla..bla..\n oPrn:EndPage()\n\nENDPRINT\n\n    pero el problema que todos los reportes quedan con ese tamaño\n\nahora como puedo volver al tamaño carta\n\n    lo he echo con oPrn:Setpage(1), pero no funciona\nPrnSetPage( 1 ) y tampoco\n\nalguien sabe como dejar en tamaño carta nuevamente\n\ndesde ya gracias\n\nSaludos\nPatricio','',0,'','1ueygn78',1,0,'',36,0,0),(2453,652,2,78,0,'200.121.80.155',1132862938,1,0,1,1,1,0,'','','Hola Fernando,,,\nYo hago asi:\nDEFINE WINDOW oWPpal MDI ........\n...\n...\nACTIVATE WINDOW oWPpal MAXIMIZED ;\n     ON INIT ResumCtas(oWPpal).....\n...\n..\n\nFunction ResumCtas(oWPpal)\nlocal oSay, vSay \nvSay := \"\"\n\nIf ChequePendiente()\n vSay := vSay + \"Existen Cheques Girados a Pagar Hoy Día\" + CRLF   EndIf\n\nIf CtasPorCobrar()\n vSay := vSay + \"Existen Créditos por Cobrar Hoy Día\" + CRLF   \nEndIf   \n\nIf CtasPorPagar()\n vSay := vSay + \"Existen Cuentas por Cobrar Hoy Día\" + CRLF   \nEndIf   \n\nIf !Empty(vSay)\n   @ 90, 30 SENSITIVE SAY vSay SIZE 375,28 PIXEL OF oWPPal;\n            COLOR CLR_BLUE COLOROVER CLR_HBLUE;\n            TRANSPARENT\nEndIf\n\nReturn(Nil)\n....\n...\n\n\nEspero te sirva el ejemplito..\n\nSalu2\nWilli Quintana','',0,'','1k3c8nwd',1,0,'',78,0,0),(2454,660,2,304,0,'200.67.162.185',1132863628,1,0,1,1,1,0,'','RadioButton Horizontal','Hola, tengo una duda respecto asi se puede, por comando, hacer radio botton pero \"Horizontales\", ya que por default siempre son Verticales\nmas o menos asi \" Local (*)   Foraneo ( )   garantia ( )\", espero me haya explicado correctamente.\n\nLa otra es que al mandar un preview de la clase PRINT oPrn sale todo \"amontonado\" tengo que cambiar de FACTOR a 1 o 2 y luego regresarlo a 1 para que se vea detalladamente la informacion, hay alguna forma de evitar esta desagradable presentacion. ??\n\nGracias por el tiempo y apoyo, Saludos','',0,'','32kmd4ay',1,0,'',304,0,0),(2455,419,6,199,0,'168.243.134.9',1132864177,1,0,1,1,1,1,'','Re: TSBrowse y SET FILTER','Lo modifique y lo compile y no me funiono\ndeberias de poner el fuente pa descagarlo, nos ayudaria mucho\ngracias\n\n\n[quote=&quot;César E. Lozada&quot;:s31rnwj8]O yo no entiendo bien,o TSBrowse no está diseñado para funcionar con filtros, aunque sin con scopes sobre indices. Después de trabajar un poco logré que me funcionara bien, haciendo los siguientes cambios:\n\nAgregar \n\nDATA bFilter\nMETHOD SetbFilter(bFilter);\n     INLINE (::cAlias)-&gt;(dbSetFilter(::bFilter:=bFilter)),;\n             if(::lPainted,::ResetBarPos(.T.),nil),;\n             ::Default(),;\n             ::GoTop(),;\n             ::Refresh()\n\nSustituir \nDATA nLen\n\npor\n\nMETHOD nLen\n  Local nLen, nRec\n  IF ::lIsDbf \n    nRec:=(::cAlias)-&gt;(RecNo())\n    IF !Empty(::bFilter)\n      COUNT FOR (::cAlias)-&gt;(Eval(::bFilter)) TO nLen\n    ELSE\n      nLen:=::RecCount()\n    ENDIF\n    (::cAlias)-&gt;(dbGoto(nRec))\n  ELSE\n    nLen:=Len(::aArray)\n  ENDIF\nRETURN nLen\n\nEspero sea útil para alguien y agradeceré las sugerencias\n\nCésar E. Lozada[/quote:s31rnwj8]','',0,'gA==','s31rnwj8',1,0,'',199,0,0),(2456,587,2,10,0,'212.40.255.188',1132866791,1,0,1,1,1,0,'','','Saludos a todos.\n\nAlguna ayuda, por favor!!! o diganme si no es posible, a ver que puedo hacer entonces.\n\nGracias.','',0,'gA==','hvtoc7ta',1,0,'',10,0,0),(2457,661,2,78,0,'200.121.80.155',1132867862,1,0,1,1,1,0,'','No consigo un &quot;atached&quot;','Hola Antonio.,..\ntengo este lio...\n...\n...\nAaDd(aCabe,\"Codigo\")\nAaDd(aCabe,\"Producto\")\nAaDd(aCabe,\"Unidad\")\n\nFOR nCont := 1 to 3\n  COLUMN TITLE aCabe[nCont] DATA SubStr(Almmas-&gt;codcta,1,15)         NEXT\n...\n..\n En el reporte, la cabecera de las columnas siempre es \"Unidad\"·,,,, \n\nun hilo  please....\n\nSalu2\nWilli','',0,'','2ge62w5s',1,0,'',78,0,0),(2458,654,7,2,0,'80.58.2.107',1132869418,1,0,1,1,1,1,'','','Osvaldo,\n\nDa la sensación que la incompatibilidad viene por el sistema operativo que usa, en vez de por el micro.\n\nPor favor descarga <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/tutor01.zip\">www.fivetechsoft.com/files/tutor01.zip</a><!-- w --> y pruébalo en el Pocket PC.','',0,'','1eciimw5',1,0,'',2,0,0),(2459,654,7,95,0,'201.129.179.116',1132870264,1,0,1,1,1,0,'','','Voy a descarlo y probarlo, te comento mas tarde.\n\nGracias de Antemano','',0,'','2mbdgint',1,0,'',95,0,0),(2460,658,3,2,0,'80.58.2.107',1132870576,1,0,1,1,1,1,'','','Jeff,\n\nI guess you are using FWH built in comm support functions.\n\nYou may try free hbcomm.lib for Harbour/xharbour to see if that makes a difference.\n\nIn the meantime, lets see if we can find whats going on.','',0,'','2l6aot33',1,0,'',2,0,0),(2461,662,6,147,0,'200.68.215.7',1132871609,1,0,1,0,1,1,'','Icono que no se ve con WinXP','Hola a todos\ncreo que la pregunta ya fue hecha pero no encuentro el post\nTengo un dialog, en una app 16bits, que en Win98  muestra el icono, no así \nen winXP; tiene solución? (aparte de pasar la app a [x]harbour :-)\nProbé con oDlg:SetIcon( oIco )...  pero nada\n\ngracias','',0,'','3p5mq3su',1,0,'',147,0,0),(2462,662,6,147,0,'200.68.215.7',1132873371,1,0,1,0,1,1,'','','disculpen... ya lo escribí en foro que corresponde','',0,'','ud1p37sm',1,0,'',147,0,0),(2463,663,2,147,0,'200.68.215.7',1132873433,1,0,1,0,1,1,'','Icono que no se ve en Dialog','Hola a todos\ncreo que la pregunta ya fue hecha pero no encuentro el post\nTengo un dialog que en Win98 muestra el icono, no así\nen winXP; tiene solución? (aparte de pasar la app a [x]harbour :-)\nProbé con oDlg:SetIcon( oIco )... pero nada\n\ngracias','',0,'','2w8v1xas',1,0,'',147,0,0),(2464,663,2,222,0,'200.11.242.33',1132874422,1,0,1,1,1,0,'','','SendMessage(oWnd:hWnd,128,1,oIco:hIcon)','',0,'','3s9wt9bu',1,0,'',222,0,0),(2465,662,6,45,0,'200.117.34.167',1132876474,1,0,1,1,1,0,'','','Mario en el ON INIT probate esto .\n\n#define WM_SETICON        128  // 0x80\n\nSendMessage( oDlg:hWnd, WM_SETICON, 0, oIcon:hIcon )\n\nY contame si te funca ?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','kywtlmgn',1,0,'',45,0,0),(2466,663,2,45,0,'200.117.34.167',1132876560,1,0,1,1,1,0,'','Re: Icono que no se ve en Dialog','Mario en el ON INIT probate esto .\n\n#define WM_SETICON        128  // 0x80\n\nSendMessage( oDlg:hWnd, WM_SETICON, 0, oIcon:hIcon )\n\nY contame si te funca ?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1n71zhfl',1,0,'',45,0,0),(2467,659,6,53,0,'200.66.175.160',1132882420,1,0,1,1,1,1,'','Otra opción','Patricio:\n\nIntenta con\n\noPrn:oDevice:SetPage(1)\n\nSaludos, Armando','',0,'','w1wy77an',1,0,'',53,0,0),(2468,662,6,147,0,'200.68.215.7',1132882770,1,0,1,0,1,1,'','','En principio no anda, asi es que vamos por partes dijo Jack :-)\n\nNo va a andar por la sencilla razon de que oIcon:hIcon devuelve un valor distinto de cero cuando se ejecuta desde  W98 y cero cuando se ejecuta desde XP\nSe lo dejo en manos, de uds., los gurus :-)\n\nno obstante gracias','',0,'','29x9anae',1,0,'',147,0,0),(2469,663,2,147,0,'200.68.215.7',1132882878,1,0,1,0,1,1,'','','En principio no anda, asi es que vamos por partes dijo Jack :-)\n\nNo va a andar por la sencilla razon de que oIcon:hIcon devuelve un valor distinto de cero cuando se ejecuta desde W98, como corresponde, y cero cuando se ejecuta desde XP\nSe lo dejo en manos, de uds., los gurus :-)\n\nno obstante gracias a ambos','',0,'','yy9r6jtb',1,0,'',147,0,0),(2470,592,4,281,0,'219.251.175.135',1132883276,1,0,1,1,1,1,'','','Hi Antonio.\n\nWhen can i get the program which you are checking now.\n\nBest Regards.','',0,'','292ar2nm',1,0,'',281,0,0),(2471,660,2,147,0,'200.68.215.7',1132884081,1,0,1,0,1,1,'','','Te envio una contribución sobre radios horizontales, que ya no recuerdo el autor para mencionarlo, a tu privado.\n\nSaludos','',0,'','1lwzhsof',1,0,'',147,0,0),(2472,654,7,95,0,'201.135.64.39',1132884244,1,0,1,1,1,0,'','','Estimado Antonio\n\nBaje el archivo, y al correrlo me presenta el mismo error:\n\nDime, sera necesario recompilar el fuente de harbour para este lenguage ?\nSi, es asi, cuales son las herramientas que necesito.\n\nDe antemano muchas gracias por la ayuda.\n\nSaludos\nOsvaldo Ramirez','',0,'','9jqkra9k',1,0,'',95,0,0),(2473,664,3,315,0,'212.127.159.218',1132890645,1,0,1,0,1,0,'','Animation not always working','Dear all,\n\nWhen I use the  oAnimate:CopyFiles() animation as Action in a Dialog, than \nthe animation works fine when I do an Upload to a server.\nWhen I do a Download from that server my animation starts only after the \nDownload is finished.\n\n\n DEFINE DIALOG oDlf RESOURCE \"DataToServer\"\n\n   oAnimate = TAnimate():Redefine( 160, oDlf )\n\n   REDEFINE SBUTTON ID 161 OF oDlf   ;\n       Title \"Starten\";\n       BORDER  ;\n       ACTION  [b:3v68ckoo]oAnimate:CopyFiles() [/b:3v68ckoo],  DoTheUp(Down)load( oDlf, cUrl, cFile, \ncEmaildef, cDomein );\n       COLORS  CLR_WHITE, CLR_RED;\n       TOOLTIP \"Starten\"\n\n  REDEFINE SBUTTON ID 162 OF oDlf   ;\n       Title \"Cancel\";\n       BORDER  ;\n       ACTION  oDlf:End();\n       COLORS  CLR_WHITE, CLR_BLUE;\n       TOOLTIP \"Terug\"\n\n  ACTIVATE DIALOG oDlf\n\nThe Action DoTheUp(Down)load starts the Tiptest.prg from \nxHB\\Samples\\Internet\\\n\nCan anyone give an indication why the animation does not work during a \ndownload?\n\nThanks,\n\n\nJules de Pierre','',0,'QA==','3v68ckoo',1,0,'',315,0,0),(2474,193,6,52,0,'201.231.13.213',1132897916,1,0,1,1,1,1,'','','Hola gente,\n\nEstoy navegando este foro y me presento una duda con respecto al tema de pellesc Vs Workshop- y me estoy haciendo estas preguntas:\n\na) porque debería de pasarme a PellesC? \nb) es solo por \"ver mejor\" cuando estoy creando mid RES?\nc) pueden instalarse TSbrowser y otras herramientas como el Workshop?\n\nAlguien, el que quiera contestarme. \n\nHe leido los tres link que dan mas arriba.','',0,'QA==','25qwyx9t',1,0,'',52,0,0),(2475,584,3,31,0,'195.182.84.105',1132905345,1,0,1,1,1,1,'','Re: MAPI ERROR with Outlook','[quote=&quot;jacquet philippe&quot;:3ud30ofz]I have an application sending mail with a link with Oulook 2000 and it worked fine .\n\n\nMy custommer install outlook 2003 and i receive a MAPI.dll  error\n\nWhat can i do ??[/quote:3ud30ofz]\n\n   Try something similar to MSMAPI . Maybe it helps ?\n\nPROCEDURE Mail()\n\n   LOCAL oSession, oMessage\n\n   TRY\n     oSession := CreateObject( \"MSMAPI.MAPISession\" )\n     oSession:SignOn()\n   CATCH\n     Alert( \"SimpleMapi not avilable.\" )\n     BREAK\n   END\n\n   TRY\n     oMessage := CreateObject( \"MSMAPI.MAPIMessages\" )\n   CATCH\n     Alert( \"MSMAPI.Messages faild!\" )\n     BREAK\n   END\n\n   WITH OBJECT oMessage\n        :SessionID := oSession:SessionID\n        :Compose()\n\n        :RecipAddress := \"tests@xharbour.org\"\n        :AddressResolveUI := .T.\n        :ResolveName()\n\n        :MsgSubject := \"email from xHarbour\"\n        :MsgNoteText := \"Hi Brian, here it is...\"\n\n        :AttachmentIndex := 0\n        :AttachmentPosition := 0\n        :AttachmentPathName := \"c:\\xharbour\\tests\\test.prg\"\n\n        :Send( .F. ) // .T. Interactive or .F. for automated.\n   END\n\n   oSession:SignOff()\n\nRETURN\n\n   With best regards ! Rimantas','',0,'gA==','3ud30ofz',1,0,'',31,0,0),(2476,653,1,130,0,'141.51.32.24',1132906511,1,0,1,1,1,0,'','Re: Icon not showing up','Dont´t use the ICON-clause, you can directliy call the method. \n\n[code:2mr2x15q]\nSET RESOURCES TO &quot;WIFTSRN&#46;DLL&quot;\n\n  DEFINE ICON oFolderICO NAME &quot;WIFTLOGO1\n  DEFINE WINDOW oMainWin;\n   TITLE &quot;IFT for Windows&quot;;\n   MDI MENU BuildMNU1&#40;&#41;;\n//   ICON oFolderICO\n  oMainWin&#58;SetIcon &#40;oFolderICO&#41;  // &lt;----\n  ACTIVATE WINDOW oMainWin MAXIMIZED ON INIT &#40;Main2&#40;cLineCmd&#41;&#41;\n  lError &#58;= &#46;F&#46;\nRETURN\n[/code:2mr2x15q]\n\nStefan','',0,'AIA=','2mr2x15q',1,0,'',130,0,0),(2477,638,20,263,0,'217.222.223.34',1132909626,1,0,1,1,1,0,'','','Enrico,\ntu hai ragione, ma c\'è un modo per allegare files ad un post come nelle news?\nIn ogni caso, la classe TScan di cui parla Marco, è quella che o trovato o ne esiste un\'altra?\nCiao\nGiovanni','',0,'AIA=','8kuy151q',1,0,'',263,0,0),(2478,646,7,2,0,'80.58.2.107',1132910558,1,0,1,1,1,1,'','','Rafael,\n\nComo comentas, parece que no se pueden poner juntos. \n\nSin embargo, he visto que Excel y Word lo hacen. A ver si localizamos algún ejemplo que podamos inspeccionar con el resources workshop y vemos como lo hacen.','',0,'AIA=','3dljb6cs',1,0,'',2,0,0),(2479,654,7,2,0,'80.58.2.107',1132911923,1,0,1,1,1,1,'','','Osvaldo,\n\nEn base a la prueba de tutor01.exe, tal vez se trate de que el micro no es compatible con micros ARM, lo cual seria un gran problema porque piensa que ni siquiera hay emulador para ese tipo de micros.\n\nPara estar seguros, por favor visita esta página <!-- m --><a class=\"postlink\" href=\"http://www.ghisler.com/ce.htm\">http://www.ghisler.com/ce.htm</a><!-- m --> y descarga una versión que funcione en ese Pocket PC y nos comentas cual es. Gracias.','',0,'AIA=','3h26on7y',1,0,'',2,0,0),(2480,661,2,2,0,'80.58.2.107',1132912395,1,0,1,1,1,1,'','','Willi,\n\nPrueba así:\n\ncTitle = aCabe[nCont]\nCOLUMN TITLE cTitle DATA SubStr(Almmas-&gt;codcta,1,15)','',0,'','4ni58fuf',1,0,'',2,0,0),(2481,638,20,6,0,'82.54.221.122',1132912480,1,0,1,1,1,1,'','','Potevi semplicemente mandarla direttamente a Marco oppure fornire un link da cui scaricarla. Non era necessario inviarla tutta qui.\n\nEMG','',0,'','a35ae4p7',1,0,'',6,0,0),(2482,663,2,2,0,'80.58.2.107',1132912546,1,0,1,1,1,1,'','','Mario,\n\nEl icono está en un fichero en disco ó en recursos ? Si es en recursos, en el EXE ó en una DLL ?','',0,'','bbfyzgq8',1,0,'',2,0,0),(2483,587,2,88,0,'82.150.2.18',1132914622,1,0,1,1,1,1,'','','Bueno, como te veo un poco desesperado te comentare que voy a solidarizarme contigo.\n\nYo tampoco se como hacerlo, por eso no he posteado.\n\nTe aconsejo, que este tipo de dudas las pongas tambien en el subforo de Harbour, la gente esta mas activa alli y al fin y al cabo, es una consulta general.\n\n\nNos leemos!!','',0,'','3688zi4h',1,0,'',88,0,0),(2484,664,3,2,0,'80.58.2.107',1132915024,1,0,1,1,1,1,'','','Jules,\n\nTry this: \n\noAnimate:CopyFiles() , SysRefresh(), ...','',0,'','1f3cbe2c',1,0,'',2,0,0),(2485,665,7,262,0,'212.89.4.48',1132916540,1,0,1,1,1,1,'','pequeño detalle en browse','En el browse si tenemos solo un registro ( por un scope ) , y arrastramos el boton de la barra de scroll vertical hacia abajo hace un pintado estraño ( queda en blanco el area de arriba y coloca el registro , abajo o en medio , dependiendo de la cantidad de espacio que movamos ).\nPor otro lado hecho en falta el contro tab ( lo utilizan practicamente todos los programas que veo de pocket ).\n\nComentario a parte :\nYa he conprado un pocket pc con samsum 256 y 64mg  y me tiene maravillado la velocidad de ejecucion de los programas ( como ya me adelantaste mucho mejor que el simulador ) en concreto la gestion de registros , Felicidades .','',0,'','3niyrzv8',1,0,'',262,0,0),(2486,638,20,263,0,'217.222.223.34',1132917226,1,0,1,1,1,0,'','','Ok, la prossima volta farò cosi.\nComunque, è quella o no?\nGiovanni','',0,'','1e9kme0i',1,0,'',263,0,0),(2487,666,3,160,0,'210.212.142.6',1132917786,1,0,1,1,1,0,'','Anyway to Send CC and BCC in TMail Class ?','Hello All,\n\nIs there any way to include CC and BCC in TMail Class ?\n\nWhat is the alterrnative to achieve the same thing ?\n\nTIA\n\nMilan.','',0,'','trwcma1e',1,0,'',160,0,0),(2488,638,20,6,0,'82.54.221.122',1132918190,1,0,1,1,1,1,'','','Non lo so. Ti deve rispondere Marco.\n\nEMG','',0,'','1u1lq7s3',1,0,'',6,0,0),(2489,626,2,88,0,'82.150.2.18',1132922483,1,0,1,1,1,1,'','','Hecho, ahora parece que la cosa mejora.\n\nVoy a revisar si hay alguna funcion que este funcionando de forma recursiva.\n\n\n\nNos leemos!!','',0,'','unut9pxc',1,0,'',88,0,0),(2490,646,7,63,0,'80.58.35.107',1132922737,1,0,1,1,1,0,'','','Vale. Gracias, Antonio\nRafael','',0,'','kb2sc656',1,0,'',63,0,0),(2491,587,2,106,0,'85.34.123.172',1132923781,1,0,1,1,1,1,'','','Yo se como hacerlo, pero no tengo el codigo aqui, apenas este en mi casa te contesto.\n\nCreo que era con oPrn:SayImage(), o algo asi...\n\nSaludos','',0,'','t1ybtt87',1,0,'',106,0,0),(2492,653,1,204,0,'87.202.97.232',1132924962,1,0,1,1,1,0,'','','No dice the @@@ thing is still a no show.\nI can see it fine in workshop. I renamed it, I deleted and reinserted it from the same ICO file that the RC script uses.\nI\'m now only using one DLL (merged them together) there are no double names or odd things in there. Can FW handle the VERSION tag that is in the DLL?\n\n[EDIT]\nHere is the ppo file if it helps. I don\'t see any thing wrong\n[code:2n0ey9py]\nPROCEDURE Main&#40;cLineCmd&#41;\n\n  LOCAL oFolderICO, oBrush, hFile1, cLgTxt, cLgFl, aFiles, nCounter1\n\n  cLineCmd &#58;= If&#40; cLineCmd == nil, &quot;NORMAL&quot;, cLineCmd &#41; ;\n  SetVarsUp&#40;&#41;\n  Settings&#40;&#41;\n  Set3DLook&#40; Upper&#40;&quot;ON&quot;&#41; == &quot;ON&quot; &#41;\n  SetMultiple&#40; Upper&#40;&quot;OFF&quot;&#41; == &quot;ON&quot; &#41;\n\n  SetWin95Look&#40;&#46;T&#46;&#41;\n  RDDSETDEFAULT&#40;&quot;SIXCDX&quot;&#41;\n  Sx_SetMemoBlock&#40;16&#41;\n\n  IF !FILE&#40;&quot;&#46;\\WIFTSRN&#46;DLL&quot;&#41;\n    MSGStop&#40;OemToAnsi&#40;&quot;Ç âéâëéïèÞêç WIFTSRN&#46;DLL äåí âñÝèéêå&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; + &quot;Eîïäïò áðï ôï ðñüãñáììá&#46;&quot;&#41;, OemToAnsi&#40;&quot;Ðáñáêïëïõèçóç Åéóåñ÷ïìåíùí Öáêåëùí&quot;&#41;&#41;\n    __Quit&#40;&#41;\n  ENDIF\n\n  SetResources&#40; &quot;WIFTSRN&#46;DLL&quot; &#41;\n\n  IF !FILE&#40;&quot;C&#58;\\IFT&#46;LGT&quot;&#41;\n    hFile1&#58;=FCREATE&#40;&quot;C&#58;\\IFT&#46;LGT&quot;&#41;\n    FWRITE&#40;hFile1,&quot;IFT ON LINE&quot;&#41;\n    FCLOSE&#40;hFile1&#41;\n  ELSE\n    cLgTxt &#58;= MEMOREAD&#40;&quot;C&#58;\\IFT&#46;LGT&quot;&#41;\n    cLgFl &#58;= SUBSTR&#40;cLgtxt, AT&#40;&quot;|&quot;, cLgTxt&#41; + 1&#41;\n    cLgFl &#58;= SUBSTR&#40;cLgFl, 1, AT&#40;&quot;|&quot;, cLgFl&#41; -1&#41;\n  ENDIF\n\n  IF lIsDir&#40;&quot;&#46;\\LOGS&quot;&#41;\n    lMkDir&#40;&quot;&#46;\\LOGS&quot;&#41;\n  ENDIF\n\n  IF LEN&#40;DIRECTORY&#40;&quot;&#46;\\*&#46;ERR&quot;&#41;&#41; &lt;&gt; 0\n    IF FILE&#40;&quot;&#46;\\BLAT&#46;EXE&quot;&#41;\n      IF !FILE&#40;&quot;&#46;\\ERRSNT&#46;TXT&quot;&#41;\n\n      ENDIF\n    ENDIF\n  ENDIF  \n\n  IF FILE&#40;&quot;&#46;\\ERRSNT&#46;TXT&quot;&#41;\n    FERASE&#40;&quot;&#46;\\ERRSNT&#46;TXT&quot;&#41;\n    aFiles&#58;=DIRECTORY&#40;&quot;&#46;\\*&#46;ERR&quot;&#41;\n    FOR nCounter1&#58;=1 TO LEN&#40;aFiles&#41; STEP 1\n      FERASE&#40;&quot;&#46;\\&quot;+aFiles&#91;nCounter1,1&#93;&#41;\n    next\n  ENDIF\n\n  IF &#46;F&#46; // EXE security check here&#46; Until final relese it is off\n    MSGStop&#40;OemToAnsi&#40;&quot;Ï õðïëïãéóôÞò äåí åßíáé åîïõóéïäïôçìÝíïò ãéá íá åêôåëåß ôï wIFT&#46;&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; + &quot;Ðáñáêáëþ åðéêïéíùíÞóôå ìå ôïí Ðïëõ÷ñüíç Ðïñöýñç&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; + &quot;¸îïäïò áðü ôï ðñüãñáììá!&quot;&#41;, OemToAnsi&#40;&quot;Ðáñáêïëïýèçóç Åéóåñ÷üìåíùí ÖáêÝëùí Ðñïóâáóéìüôçôá&quot;&#41;&#41;\n    __Quit&#40;&#41;\n  ELSE\n    oFolderICO &#58;= TIcon&#40;&#41;&#58;New&#40; ,, &quot;WIFTLOGO&quot;,, &#41;\n    oBrush &#58;= TBrush&#40;&#41;&#58;New&#40;, nRGB&#40;   0,   79, 149 &#41;,, &#41;\n\n    oMainWin &#58;= TMdiFrame&#40;&#41;&#58;New&#40;,,,, OemToAnsi&#40;&quot;Ðáñáêïëïõèçóç Åéóåñ÷ïìåíùí Öáêåëùí&quot;&#41;,, BuildMnu&#40;&#41;, oBrush,,,,,,,,, &#41;\n\n      oMainWin&#58;oMsgBar &#58;= TMsgBar&#40;&#41;&#58;New&#40; oMainWin, OemToAnsi&#40;&quot;ÁñéèìçôéêÞ ðñïâïëÞ ìå âÜóç ôï ðëáúíü áñéèìü ôïõ öáêÝëïõ&quot;&#41;, &#46;F&#46;, &#46;F&#46;, &#46;F&#46;, &#46;T&#46;,,,,!&#46;T&#46; &#41;\n\n      oMainWin&#58;SetFont&#40;oMainFont&#41;\n      oMainWin&#58;SetIcon&#40;oFolderICO&#41;\n    oMainWin&#58;Activate&#40; Upper&#40;&quot;MAXIMIZED&quot;&#41;, oMainWin&#58;bLClicked, oMainWin&#58;bRClicked, oMainWin&#58;bMoved, oMainWin&#58;bResized, oMainWin&#58;bPainted, oMainWin&#58;bKeyDown, oMainWin&#58;bInit &#58;= &#123; | Self | &#40;Main2&#40;cLineCmd&#41;&#41; &#125;,,,,,,,,,,, oMainWin&#58;bLButtonUp &#41;\n    lError&#58;=&#46;F&#46;\n  ENDIF\nRETURN NIL\n\nSTATIC PROCEDURE Main2&#40;cLineCmd&#41;\n\n  IF Int_logs&#40;&quot;IFT&quot;,IIF&#40;UPPER&#40;cLineCmd&#41;=&quot;LOG_MAKE&quot;,&#46;T&#46;,&#46;F&#46;&#41;,IIF&#40;UPPER&#40;cLineCmd&#41;=&quot;LOG_RESET&quot;,&#46;T&#46;,&#46;F&#46;&#41;, cIFTPwd&#41;\n    aUsrData &#58;= LogIn&#40;oMainWin&#41;\n    IF aUsrData&#91;1&#93; &lt;&gt; NIL\n      hFile1&#58;=FOPEN&#40;&quot;C&#58;\\wIFT&#46;LGT&quot;, 1&#41;\n      FSEEK&#40;hFile1, 0, 2&#41;\n      FWRITE&#40;hFile1,&quot;|&quot;+aUsrData&#91;4,5&#93;+&quot;|&quot;&#41;\n      FCLOSE&#40;hFile1&#41;\n      HLogMove&#40;aUsrData, &quot;Åéóïäïò óôï ðñïãñáììá&quot;&#41;\n      IF OpenDbfs&#40;&#41;\n        oMainWin&#58;oMenu&#40;&#41;&#58;aItems&#91;1&#93;&#58;Enable&#40;&#41;\n        oMainWin&#58;bValid &#58;= &#123;|| &#40;IIF&#40;MsgYesNo&#40;OemToAnsi&#40;&quot;Åîïäïò áðï ôï ðñïãñáììá;&quot;&#41;,OemToAnsi&#40;&quot;Ðáñáêïëïõèçóç Åéóåñ÷ïìåíùí Öáêåëùí&quot;&#41;&#41;, &#40; lMDIClose &#58;= &#46;T&#46;,&#46;T&#46;&#41;,&#46;F&#46;&#41;&#41; &#125;\n        IFTBrws&#40;&#41;\n      ELSE\n        oMainWin&#58;bValid &#58;= &#123;||&#46;T&#46;&#125;\n        oMainWin&#58;End&#40;&#41;\n      ENDIF\n    ELSE \n      MSGStop&#40;OemToAnsi&#40;&quot;Ç ðñüóâáóç óôï ðñüãñáììá áðÝôõ÷å!&quot;&#41;, OemToAnsi&#40;&quot;Ðñïóâáóéìüôçôá&quot;&#41;&#41;\n      oMainWin&#58;bValid &#58;= &#123;||&#46;T&#46;&#125;\n      oMainWin&#58;End&#40;&#41;\n    ENDIF\n  ELSE\n    oMainWin&#58;bValid &#58;= &#123;||&#46;T&#46;&#125;\n    oMainWin&#58;End&#40;&#41;\n  ENDIF\nRETURN\n\nSTATIC PROCEDURE SetVarsUp&#40;&#41;\n\n  PUBLIC oMainWin, oBrwsWin, oMainFont, oLstBx1, lMDIClose, aUsrData, aFltLst1, lHreFlt&#58;=&#46;F&#46;, cIFTPwd, cVersion, oBrwsBar, oMsg1 &#58;= NIL, oMsg2 &#58;= NIL, oMsg3 &#58;= NIL, lError &#58;= &#46;T&#46;, lPrgExit &#58;= &#46;F&#46;\n\n  cVersion &#58;= &quot;2,00,000&quot;\n\n  aFltLst1&#58;=ARRAY&#40;7,4&#41;\n  aUsrData&#58;=ARRAY&#40;1&#41;\n  aUsrData&#91;1&#93; &#58;= NIL\n\n  oMainFont &#58;= TFont&#40;&#41;&#58;New&#40; &quot;Arial Greek&quot;, 0, -12,,,,,,,,,,,,,, &#41;\n\n  lMDIClose &#58;= &#46;F&#46;\nRETURN\n\nEXIT PROCEDURE Exit_IFT&#40;&#41;\n  LOCAL hFile\n\n  IF !lError\n    FERASE&#40;&quot;C&#58;\\wIFT&#46;LGT&quot;&#41;\n  ENDIF\n  IF aUsrData&#91;1&#93;&lt;&gt;NIL\n    LogOut&#40;aUsrData&#41;\n    MSGBeep&#40;&#41;\n  ENDIF\n  IF lPrgExit\n    MSGWait&#40;OemToAnsi&#40;&quot;Ôï ðñïããñáìå äéåêïøå ôçí ëåéôïõñãéá ôïõ&#46;&quot;&#41;,OemToAnsi&#40;&quot;Ðáñáêïëïýèçóç Åéóåñ÷üìåíùí ÖáêÝëùí Time lockdown system&quot;&#41;,5&#41;\n  ENDIF\n\nRETURN\n\nPROCEDURE TimeChk&#40;&#41;\n  IF !&#40;&#40;TIME&#40;&#41; &gt;= &quot;06&#58;59&#58;59&quot;&#41; &#46;AND&#46; &#40;TIME&#40;&#41; &lt;= &quot;14&#58;00&#58;00&quot;&#41;&#41;\n    lPrgExit &#58;= &#46;T&#46;\n    lError &#58;= &#46;F&#46;\n    IF LEN&#40;aUsrData&#41; &lt;&gt; 1\n      HLogMove&#40;aUsrData, &quot;Ôï ðñïããñáìå äéåêïøå ôçí ëåéôïõñãéá ôïõ&#46; Time lockdown system&quot;&#41;\n    ENDIF\n    __Quit&#40;&#41;\n  ENDIF\n\nRETURN\n\n[/code:2n0ey9py]','',0,'AIA=','2n0ey9py',1,0,'',204,0,0),(2493,666,3,53,0,'148.221.81.89',1132925135,1,0,1,1,1,1,'','AnyWay','TIA\n\nIn the x:\\FWH\\Samples folder you will find an example (TestMail.Prg) using MAPI, it works fine. Perhaps that is what you need.\n\nRegards, Armando','',0,'AIA=','2imhrrrk',1,0,'',53,0,0),(2494,605,6,106,0,'85.34.123.172',1132926386,1,0,0,1,1,1,'','','Luego de compilar y comenzar con las pruebas, veo que no me descomprime los archivos, se ve que algo no va bien, capaz que cambiaron los parametros, alguien tiene idea?','',0,'AIA=','2gxgybk1',1,0,'',106,0,0),(2495,193,6,255,0,'200.67.134.233',1132929307,1,0,1,1,1,1,'','','[quote=&quot;José Luis Sánchez&quot;:1a7jumxu]Uno de los problemas de PellesC es que cuando pones un custom control no hay manera de cambiar el nombre de la clase. En estos casos abres el RC a mano con un editor como el MED y buscas el dialogo y le cambias el nombre de la clase. Por cosas como estas merece la pena trabajar con RC y montar el RES cuando vas a compilar el programa.\nLo teneis explicado en mi blog.\nSaludos,[/quote:1a7jumxu]\n\nJosé Luis perdona que te contradiga, pero si es\nposible agregar cualquier clase de control personalizado\n(custom control) con el editor de  pellesC.\n\nPara ello, debes ir a:\nDIALOG - NEW CUSTOM CONTROL\nAhi se especifica que control deseas agregar\nya sea TSBrowse, TXBrowse, TSButton, etc etc.\n\nEspero sea de utilidad','',0,'gA==','1a7jumxu',1,0,'',255,0,0),(2496,667,6,121,0,'201.139.145.197',1132930056,1,0,1,1,1,1,'','INICION EN MYSQL','Quiero iniciarme en el uso de mysql via ODBC\n\nAlguien me podria informar cuales archivos debo bajar de mysql.com\n\nGracias','',0,'gA==','279uuj0z',1,0,'',121,0,0),(2497,567,6,168,0,'200.44.50.43',1132930175,1,0,1,1,1,0,'','','Creo que tienes una confusion.  spp_tab  DEBE ser el nombre de la tabla qe vas a actualizar y despues del SET colocas campo = valor tantas veces como campos vayas a actualizar','',0,'gA==','3j31q4bo',1,0,'',168,0,0),(2498,667,6,168,0,'200.44.50.43',1132930616,1,0,1,1,1,0,'','','Debes descargar MySQL, la base de datos y un cliente grafico para administracion','',0,'gA==','2hz0ik6y',1,0,'',168,0,0),(2499,667,6,168,0,'200.44.50.43',1132930660,1,0,1,1,1,0,'','','Discupa tambien necesitas el MyODBC','',0,'gA==','1f2209v1',1,0,'',168,0,0),(2500,523,6,168,0,'200.44.50.43',1132931397,1,0,1,1,1,0,'','','Necesitas instalar en tu PC un software de IBM llamado ClientAccess','',0,'gA==','1x2i8yea',1,0,'',168,0,0),(2501,661,2,78,0,'200.121.80.155',1132932455,1,0,1,1,1,0,'','','Hola Antonio,,, gracias por responder.... pero es igual,,, siempre se queda con el ultimo elemento.....\n\nSalu2\nWilli','',0,'gA==','3kv2wpnj',1,0,'',78,0,0),(2502,620,1,55,0,'59.92.112.129',1132933494,1,0,1,1,1,0,'','Re: OT : help required','[quote=&quot;srrao&quot;:2hx9viex]Can somebody mail cmx52.obj please to my mail.\n\nSandeep[/quote:2hx9viex]\n\nIgnore request.  Got It.  Should have dug my old hard disk first <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2hx9viex',1,0,'',55,0,0),(2503,668,20,29,0,'80.181.108.140',1132936951,1,0,1,1,1,0,'','Problemi con il metodo oBrw:bKeychar','Ciao a tutti, \nsiete in sciopero ; ) ? \n\nSpero di no perché ho un problema abbastanza strano che vorrei sottoporre alla vostra attenzione.\n\nNel software gestionale che produco utilizzo molto la classe tcbrowse (standard di fivewin) per mostrare il contenuto di array multidimensionali.\nFacendo poi doppio click sul record fornisco all\'utente la possibilità di modificare i dati contenuti nel record aprendo una dialog.\nFin qui niente di strano.\n\nIl fatto è che trattandosi di un software di contabilità che richiede molto inserimento dati ho previsto praticamente ovunque la possibilità di operare anche solo con la tastiera.\n\nNel caso di un browse aggiungo quindi un codeblock che mi rilevi la pressione del tasto invio mentre il browse ha il focus:\n\noBrw:bKeyChar={|nKey|if(nKey=13(&lt;entro nella fase di inserimento dati&gt;,))}\n\nla fase di inserimento dati consiste nell\'aprire una dialog e richiedere un paio di informazioni in una get\n\nIl problema è che se tengo premuto all\'infinito il tasto invio alla fine il programma mi va in errore. Dal tipo di errore credo il problema sia dovuto al fatto che il codeblock mi rileva un secondo invio prima di terminare l\'esecuzione del codice contenuto nel codeblock accavallando così le operazioni (e rilasciando in modo incorretto la dialog di inserimento dati).\n\nQui la domanda:\nesiste un sistema per bloccare la rilevazione dei tasti premuti finché il codice contenuto nel codeblock richiamato dal tasto \"invio\" precedente non è completamente eseguito ?\n\nSpero di essere stato chiaro.\n\nGrazie in anticipo. \n\nMarco Turco','',0,'gA==','117i8bh2',1,0,'',29,0,0),(2504,605,6,106,0,'85.34.123.172',1132937238,1,0,0,1,1,1,'','','luego de agregar la librería pcrepos.lib de xharbour se resuelve el problema. (gracias a TheFull)','',0,'gA==','31ss4skm',1,0,'',106,0,0),(2505,345,6,319,0,'201.1.172.125',1132937373,1,0,1,1,1,0,'','tente use o activex.prg','consegui trabalhar com dbf e access 2000 ao mesmo tempo usando o acitex.prg','',0,'gA==','16341wvd',1,0,'',319,0,0),(2506,638,20,29,0,'80.181.108.140',1132937427,1,0,1,1,1,0,'','','Juanito,\nla classe è quella che hai scaricato.\n\nInsieme alla classe dovrebbe esserci anche un prg di esempio che ne mostra il funzionamento, se non ci dovesse essere richiedimelo e te lo invio per email.\n\nSe devi fare un uso commerciale della classe ricorda che solo il wrapper scritto da Rafa Carmona è freeware mentre la libreria Eztwain la devi acquistare (il costo è comunque contenuto).\n\nCiao\n\nMarco','',0,'gA==','3b8ovhwx',1,0,'',29,0,0),(2507,668,20,106,0,'85.34.123.172',1132937761,1,0,1,1,1,0,'','','Marco, io lo faccio cosi:\n\n....\n\n        oWinArt:bKeyDown := { | nKey, nFlags | Tasti( nKey, !(oLbxArt:nLen == 0) ) }\n....\n\n\n***************\nSTATIC FUNCTION Tasti(nKey, lAtti )\n***************\n\n[color=red:23qxdc9i]oWinArt:bKeyDown := { | nKey, nFlags | NIL }[/color:23qxdc9i]\n\nIF nKey == VK_INSERT .AND. lAnd( 4, oV:aDirittiUtente[2] )   // Tasto Insert: Aggiunge\n    AnagraArt(.T., nil )\nENDIF\n\nIF( nKey == VK_F12, oWinArt:End(),)  // F12: chiude\n\nIF lAtti\n\n  IF nKey == VK_RETURN .AND. lAnd( 8, oV:aDirittiUtente[2] )\n    AnagraArt(.F., nil)\n  ENDIF\n\n...\n...\n...\n\n[color=red:23qxdc9i]  oWinArt:bKeyDown := { | nKey, nFlags | Tasti(nKey, IF(oLbxArt:nLen == 0, .F., .T.) ) }[/color:23qxdc9i]\nRETURN NIL','',0,'Ag==','23qxdc9i',1,0,'',106,0,0),(2508,668,20,29,0,'80.181.108.140',1132939071,1,0,1,1,1,0,'','','In effetti non sempre bisogna cercare soluzioni complicate.\n\nGrazie 1000.\n\nMarco','',0,'Ag==','25c9au1v',1,0,'',29,0,0),(2509,567,6,37,0,'200.121.160.194',1132941173,1,0,1,1,1,0,'','','Yamil, gracias por contestar, pero creo que no nos entendimos, ese UPDATE debe servir para varias tablas, entonces, yo al llamar al Store Procedure mando una variable que es el nombre de la tabla y que quisiera que el UPDATE use.\nEspero haber sido mas claro, saludos','',0,'Ag==','3ioh9uq2',1,0,'',37,0,0),(2510,654,7,95,0,'201.129.179.116',1132941237,1,0,1,1,1,0,'','','Estimado Antonio\n\nHe bajado SDK y eVC + Microsfot Pocket PC 2003, de la pagina de Symbol, pero bajara lo que tu me comentas y de digo las pruebas.\n\nSaludos\nOsvaldo Ramriez','',0,'Ag==','1a21f1nb',1,0,'',95,0,0),(2511,667,6,37,0,'200.121.160.194',1132941360,1,0,1,1,1,0,'','','Si puedes descarga la version 5.0.16 desde <!-- w --><a class=\"postlink\" href=\"http://www.mysql.com\">www.mysql.com</a><!-- w -->, la estoy usando y esta Ok, ademas hay varias cosas nuevas por investigar.\nComo dice Yamil, necesitas un cliente grafico, una buena opcion que tiene una version Free-Lite es el EMS MySQL Manager : <!-- w --><a class=\"postlink\" href=\"http://www.mysqlmanager.com\">www.mysqlmanager.com</a><!-- w -->\nSaludos','',0,'Ag==','29h6jyhx',1,0,'',37,0,0),(2512,659,6,36,0,'200.113.56.235',1132944808,1,0,1,1,1,0,'','','Armando Gracias por responder\n\npero no existe oPrn:oDevice, ya que estoy usando \n\nPRINT oPrn PREVIEW MODAL\n\ny viendo la clase Report tiene oDevice que es la clase print\n\nsaludos\nPatricio','',0,'Ag==','3100fz7g',1,0,'',36,0,0),(2513,663,2,147,0,'200.68.215.7',1132945349,1,0,1,0,1,1,'','','Antonio:\nEn  realidad en sendos Dialogos tengo de los dos casos.\nEn uno llamo de un fichero de disco y en otro de un recurso; en este último caso el recurso esta en un .dll','',0,'Ag==','8vt2nejc',1,0,'',147,0,0),(2514,669,3,195,0,'62.38.19.71',1132952607,1,0,1,1,1,0,'','Strange behavior of TlinkList Class','Hi All\n\nI have the following situation. When i want to display a tree inside a browser (using the TlinkList Class) i faced two different appearences.\nWhen i display the tree structure for the first time display\'s correctly. When i use the :end() method to release the associated object and after recalling the browser to re-display it, the nodes buttons (+) (-) and the nodes lines straingly dissapears -Or- displayed double when i make a call to another browser to dislpay another tree structure. Trees and BROWSER  declared as STATICS.\n\nHere is the code for Browser Redefination (the other browser uses the same characteristics execpt for the different name)\n\n   [code:13l4e139]\n        \nREDEFINE  LISTBOX  JobTree ;\nFIELDS SIZES,91,200;\nID 4017;\nOF RootDlg                  \n\nJobTree&#58;nLineStyle = 0 // no lines\nJobTree&#58;SetTree&#40; MakeTree&#40;&#41; &#41;\n[/code:13l4e139]\n\nAnd here is the 1st Tree Structure ( also the other Tree Structure is similar)\n\n[code:13l4e139]\nFUNCTION MakeTree&#40;&#41;//\n*********************\nLOCAL nCounter\nLOCAL Containers&#58;=0\n\nIF  ManagmentReq \n     TREE RootTree\n           TREEITEM &quot;&#928;&#955;&#951;&#961;&#959;&#966;&#959;&#961;&#943;&#949;&#962; &#904;&#961;&#947;&#959;&#965;&quot; RESOURCE &quot;FOLDER_CLOSE&quot;, &quot;FOLDER_OPEN&quot;\n            TREE\n              TREEITEM &quot;&#916;&#949;&#957; &#949;&#943;&#957;&#945;&#953; &#948;&#953;&#945;&#952;&#941;&#963;&#951;&#956;&#949;&#962; &#959;&#953; &#928;&#955;&#951;&#961;&#959;&#966;&#959;&#961;&#943;&#949;&#962; &#904;&#961;&#947;&#959;&#965;&quot; RESOURCE &quot;NODATA&quot;\n              TREEITEM &quot;&#954;&#945;&#964;&#942; &#964;&#951;&#957; &#955;&#949;&#953;&#964;&#959;&#965;&#961;&#947;&#943;&#945; &#964;&#951;&#962; &#916;&#953;&#945;&#967;&#949;&#943;&#961;i&#963;&#951;&#962; &#964;&#969;&#957;&quot;\n              TREEITEM &quot;&#922;&#953;&#957;&#942;&#963;&#949;&#969;&#957; &#964;&#959;&#965; &#904;&#961;&#947;&#959;&#965;&#46;&quot; \n              TREEITEM &quot;&#915;&#953;&#945; &#957;&#945; &#948;&#949;&#943;&#964;&#949; &#964;&#945; &#963;&#964;&#959;&#953;&#967;&#949;&#943;&#945; &#964;&#951;&#962; &#954;&#943;&#957;&#951;&#963;&#951;&#962;&quot;\n              TREEITEM &quot;&#949;&#960;&#953;&#955;&#941;&#958;&#964;&#949; &#964;&#951;&#957; &#954;&#945;&#953; &#956;&#949;&#964;&#940; &#945;&#961;&#953;&#963;&#964;&#949;&#961;&#972; &#954;&#955;&#953;&#954;&quot;\n              TREEITEM &quot;&#963;&#964;&#951;&#957; &#955;&#941;&#958;&#951; \'&#927;&#916;&#919;&#915;&#927;&#931;\'&quot;\n            ENDTREE    \n     ENDTREE\n     RootTree&#58;Draw&#40;&#41;\n     RootTree&#58;OpenAll&#40;&#41;\n     JobTree&#58;GoTop&#40;&#41;\n     JobTree&#58;Disable&#40;&#41;\n     RETURN&#40;RootTree&#41;\nENDIF     \n\nTREE RootTree   // &#922;&#933;&#929;&#921;&#927; &#916;&#917;&#925;&#916;&#929;&#927; &lt;&#945;&#961;&#967;&#942;&gt;\n\n     TREEITEM &quot;&#928;&#955;&#951;&#961;&#959;&#966;&#959;&#961;&#943;&#949;&#962; &#904;&#961;&#947;&#959;&#965;&quot; RESOURCE &quot;FOLDER_CLOSE&quot;, &quot;FOLDER_OPEN&quot; \n            TREE // &#915;&#917;&#925;&#921;&#922;&#917;&#931; &#928;&#923;&#919;&#929;&#927;&#934;&#927;&#929;&#921;&#917;&#931; &#917;&#929;&#915;&#927;&#933;__ &lt;&#945;&#961;&#967;&#942;&gt;\n                TREEITEM  &quot;&#915;&#949;&#957;&#953;&#954;&#941;&#962; &#928;&#955;&#951;&#961;&#959;&#966;&#959;&#961;&#943;&#949;&#962; &#904;&#961;&#947;&#959;&#965;&quot; RESOURCE &quot;INFO&quot;\n                   TREE  //1&#959; &#948;&#941;&#957;&#948;&#961;&#959; &#915;&#917;&#925;&#921;&#922;&#917;&#931; &#928;&#923;&#919;&#929;&#927;&#934;&#927;&#929;&#921;&#917;&#931; &#917;&#929;&#915;&#927;&#933; &lt;&#945;&#961;&#967;&#942;&gt;\n                   WITH OBJECT odbJOBS \n                   TREEITEM &quot;&#916;&#953;&#949;&#973;&#952;&#965;&#957;&#963;&#951; &#904;&#961;&#947;&#959;&#965; &#58; &quot;+&#58;aBuffer&#91;06&#93; RESOURCE &quot;INFO&quot;\n                   TREEITEM &quot;K&#969;&#948;&#953;&#954;&#972;&#962; &#935;&#940;&#961;&#964;&#951;   &#58; &quot;+&#58;aBuffer&#91;07&#93; RESOURCE &quot;INFO&quot;\n                   TREEITEM &quot;Y&#960;&#949;&#973;&#952;&#965;&#957;&#959;&#962; &#904;&#961;&#947;&#959;&#965; &#58; &quot;+&#58;aBuffer&#91;08&#93; RESOURCE &quot;INFO&quot;\n                   TREEITEM &quot;T&#951;&#955;&#46; &#933;&#960;&#949;&#965;&#952;&#973;&#957;&#959;&#965;  &#58; &quot;+&#58;aBuffer&#91;09&#93; RESOURCE ;\n                            iif &#40;LEFT&#40;&#58;aBuffer&#91;09&#93;,2&#41;=&quot;69&quot;,&quot;CELL&quot;,&quot;PHONE&quot;&#41;\n                   TREEITEM &quot;1o T&#951;&#955;&#941;&#966;&#46; &#904;&#961;&#947;&#959;&#965; &#58; &quot;+&#58;aBuffer&#91;10&#93; RESOURCE &quot;PHONE&quot;\n                   TREEITEM &quot;2o T&#951;&#955;&#949;&#966;&#46; &#904;&#961;&#947;&#959;&#965; &#58; &quot;+&#58;aBuffer&#91;11&#93; RESOURCE &quot;PHONE&quot;\n                   TREEITEM &quot;3o T&#951;&#955;&#949;&#966;&#46; &#904;&#961;&#947;&#959;&#965; &#58; &quot;+&#58;aBuffer&#91;12&#93; RESOURCE &quot;PHONE&quot;\n                   TREEITEM &quot;&#913;&#961;&#953;&#952;&#956; FAX &#904;&#961;&#947;&#959;&#965; &#58; &quot;+&#58;aBuffer&#91;13&#93; RESOURCE &quot;FAX&quot;   \n                      END // WITH OBJECT odbJOBS\n                    ENDTREE   // 1&#959; &#948;&#941;&#957;&#948;&#961;&#959; &#915;&#917;&#925;&#921;&#922;&#917;&#931; &#928;&#923;&#919;&#929;&#927;&#934;&#927;&#929;&#921;&#917;&#931; &#917;&#929;&#915;&#927;&#933; &lt;&#964;&#941;&#955;&#959;&#962;&gt; \n                TREEITEM  &quot;&#928;&#959;&#965; &#932;&#953;&#956;&#959;&#955;&#959;&#947;&#959;&#973;&#956;&#949; ;&quot; RESOURCE &quot;OPTION&quot;\n                   TREE   // 2&#959; &#948;&#941;&#957;&#948;&#961;&#959; &#928;&#927;&#933; &#932;&#921;&#924;&#927;&#923;&#927;&#915;&#927;&#933;&#924;&#917; &lt;&#945;&#961;&#967;&#942;&gt; ;\n                    WITH OBJECT odbCUSTOMERS\n                         //odbCUSTOMERS&#58;Goto&#40;nCustPosition&#41;\n                   TREEITEM &quot;E&#960;&#969;&#957;&#965;&#956;&#943;&#945; &#58; &quot;+&#58;aBuffer&#91;02&#93; RESOURCE &quot;OPTION&quot;\n                   TREEITEM &quot;E&#960;&#940;&#947;&#947;&#949;&#955;&#956;&#945;&#58; &quot;+&#58;aBuffer&#91;03&#93; RESOURCE &quot;OPTION&quot;\n                   TREEITEM &quot;&#916;&#953;&#949;&#973;&#952;&#965;&#957;&#963;&#951;&#58; &quot;+&#58;aBuffer&#91;05&#93; RESOURCE &quot;OPTION&quot;\n                   TREEITEM &quot;&#913;&#46;&#934;&#46;&#924;    &#58; &quot;+&#58;aBuffer&#91;08&#93; RESOURCE &quot;OPTION&quot;\n                   TREEITEM &quot;&#916;&#46;&#927;&#46;&#933;    &#58; &quot;+&#58;aBuffer&#91;09&#93; RESOURCE &quot;OPTION&quot;\n                    END // WITH OBJECT odbCUSTOMERS\n                   ENDTREE    //2&#959; &#948;&#941;&#957;&#948;&#961;&#959;  &#928;&#927;&#933; &#932;&#921;&#924;&#927;&#923;&#927;&#915;&#927;&#933;&#924;&#917;; &lt;&#964;&#941;&#955;&#959;&#962;&gt;  \n              ENDTREE  // &#915;&#917;&#925;&#921;&#922;&#917;&#931; &#928;&#923;&#919;&#929;&#927;&#934;&#927;&#929;&#921;&#917;&#931; &#917;&#929;&#915;&#927;&#933;__ &lt;&#964;&#941;&#955;&#959;&#962;&gt;    \n       TREEITEM  &quot;K&#953;&#957;&#942;&#963;&#949;&#953;&#962; &#964;&#959;&#965; &#904;&#961;&#947;&#959;&#965;&quot; RESOURCE &quot;FOLDER_CLOSE&quot;,&quot;FOLDER_OPEN&quot;\n       TREEITEM  &quot;E&#954;&#954;&#961;&#949;&#956;&#972;&#964;&#951;&#964;&#949;&#962; &#904;&#961;&#947;&#959;&#965;&quot; RESOURCE &quot;FOLDER_CLOSE&quot;,&quot;FOLDER_OPEN&quot;\n       TREEITEM  &quot;&#917;&#947;&#954;&#945;&#964;&#945;&#963;&#964;&#940;&#963;&#949;&#953;&#962; &#904;&#961;&#947;&#959;&#965;&quot; RESOURCE &quot;FOLDER_CLOSE&quot;,&quot;FOLDER_OPEN&quot;\n           TREE    //5o &#916;&#941;&#957;&#948;&#961;&#959;\n                IF ! odbLOGISTICS = NIL  \n                     odbLOGISTICS&#58;Activate&#40;&#41; \n                ELSE \n                     OpenLOGISTICS&#40;&#41; \n                ENDIF\n                WITH OBJECT odbLOGISTICS\n                      If Empty &#40;odbLOGISTICS&#58;IndexName&#40;&#41;&#41;\n                                odbLOGISTICS&#58;AddIndex&#40;&quot;LOGISTICS&quot;&#41;\n                      endif          \n               \n                      &#58;Seek&#40;cJobCode&#41;\n                           IF &#58;Found&#40;&#41; \n                 FOR nCounter&#58;= 2 TO 5 ; Containers&#58;=Containers + &#58;aBuffer&#91;nCounter&#93;; NEXT\n                 \n                       IF Containers &lt;&gt; 0                  \n                              TREEITEM &quot;&#917;&#947;&#954;&#945;&#964;&#949;&#963;&#964;&#951;&#956;&#941;&#957;&#945; 10&#940;&#961;&#953;&#945;________&quot;+ALLTRIM&#40;STR&#40;&#58;aBuffer&#91;02&#93;,3,0&#41;&#41;;\n                              RESOURCE &quot;TRUCK&quot;\n                              TREEITEM &quot;E&#947;&#954;&#945;&#964;&#949;&#963;&#964;&#951;&#956;&#941;&#957;&#945; 30&#940;&#961;&#953;&#945;________&quot;+ALLTRIM&#40;STR&#40;&#58;aBuffer&#91;03&#93;,3,0&#41;&#41;;\n                              RESOURCE &quot;TRUCK&quot;\n                              TREEITEM &quot;&#917;&#947;&#954;&#945;&#964;&#949;&#963;&#951;&#956;&#941;&#957;&#945;  PC12&#940;&#961;&#953;&#945;______&quot;+ALLTRIM&#40;STR&#40;&#58;aBuffer&#91;04&#93;,3,0&#41;&#41;;\n                              RESOURCE &quot;TRUCK&quot;\n                              TREEITEM &quot;&#917;&#947;&#954;&#945;&#964;&#949;&#963;&#964;&#951;&#956;&#941;&#957;&#945; PC20&#940;&#961;&#953;&#945;______&quot;+ALLTRIM&#40;STR&#40;&#58;aBuffer&#91;05&#93;,3,0&#41;&#41;;\n                              RESOURCE &quot;TRUCK&quot;\n                              TREEITEM &quot;&#919;&#956;&#949;&#961;&#959;&#956;&#951;&#957;&#943;&#945; 1&#951;&#962; E&#947;&#954;&#945;&#964;&#940;&#963;&#964;&#945;&#963;&#951;&#962;__&quot;+DTOC&#40;&#58;aBuffer&#91;06&#93;&#41;;\n                              RESOURCE &quot;TRUCK&quot;\n                        ELSE\n                              TREEITEM&#58;Delete&#40;&#41;\n                        ENDIF      \n                           ELSE\n                              TREEITEM&#58;DELETE&#40;&#41;\n                           ENDIF  // IF FOUND\n               END // WITH OBJECT odbLOGISTICS\n           ENDTREE // 5o &#916;&#941;&#957;&#948;&#961;&#959; \n  ENDTREE  //&#922;&#933;&#929;&#921;&#927; &#916;&#917;&#925;&#916;&#929;&#927; &lt;&#964;&#941;&#955;&#959;&#962;&gt;\nRootTree&#58;Draw&#40;&#41;\nJobTree&#58;BugUp&#40;&#41;\nJobTree&#58;Refresh&#40;&#41;\nExitReq&#58;=&#46;T&#46;\nRETURN&#40;RootTree&#41;\n[/code:13l4e139]\n\nAny help would be apreciate\n\nThanks in advance\nDionisis\n\nP.S  I can provide a photo with the problem but i don\'t have any URL available to upload it as these forums dont accept  attachments yet. I hope in the future Antonio make the attachements availables.','',0,'AIA=','13l4e139',1,0,'',195,0,0),(2515,670,1,320,0,'201.151.75.180',1132953204,1,0,1,1,1,0,'','número de gets limitado','Hola,\n\nTengo FW 1.9 y en algunas pantallas de captura (dialog) cuando paso de cierto número de gets (17 de 50 caracteres por ejemplo o 20 de 40, etc.) me manda un error de que no puede crear el diálogo.  ¿Alguien sabe como superar esta limitación?\n\nGracias de antemano\n\nAdjunto el mensaje de error\n\nApplication\n===========\n   Path and name: C:\\SIAEM\\ADMON.EXE (16 bits)\n   Size:   757,376 bytes\n   Max files handles permited: ( SetHandleCount() )  60\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 25-11-2005, 13:38:10\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nTitle: Datos de la partida, O.C.: \n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from CREATEDLGE(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PRUVAR(299)\n   Called from (b)BUILDMENU(66)\n   Called from TMENU:COMMAND(0)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(54)\n\nSystem\n======\n   CPU type: Pentium\n   Hardware memory: 495 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Clipper (R) 5.2\n   Windows and MsDos versions: 3.95, 5.0\n\n   Windows total applications running: 6\n      1 explorer.exe\n      2 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      3 C:\\SIAEM\\ADMON.EXE\n      4 scan32.exe\n      5 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      6 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   CREATEDLGE\n     Param   1:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    1236\n     Local   3:    U    \n     Local   4:    U    \n   PRUVAR\n   (b)BUILDMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20003\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20003\n     Param   2:    N    0\n     Local   1:    O    Class: TWINDOW\n     Local   2:    N    0\n     Local   3:    N    20003\n     Local   4:    N    0\n   TWINDOW:HANDLEEVEN\n     Param   1:    N    273\n     Param   2:    N    20003\n     Param   3:    N    0\n   WINRUN\n     Param   1:    N    1236\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    C    \"C:\\WINDOWS\\FiveWin.ini\"\n     Local   2:    U    \n     Local   3:    O    Class: TBITMAP\n\nLinked RDDs\n===========\n   DBF\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 TBRUSH\n     2 TWINDOW\n     3 TCONTROL\n     4 TICON\n     5 TMENU\n     6 TMENUITEM\n     7 TFONT\n     8 TMSGBAR\n     9 TRECT\n    10 TMSGITEM\n    11 TTIMER\n    12 TBITMAP\n    13 TDIALOG\n    14 TGET\n    15 GET\n    16 ERROR\n    17 TSTRUCT\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       29408 bytes  (SYMP=32, Stack=9500, Heap=2060)\n      PRG Stack:          35959 bytes\n      12 Static variables: 168 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     476841 bytes\n      Highest Value:     583337 bytes\n\Z','',0,'AIA=','2sgw1gtx',1,0,'',320,0,0),(2516,581,3,49,0,'87.7.178.240',1132954296,1,0,1,1,1,0,'','','Dear Dutch,\nI am also another problem to Xp( fwh) 32 bit with this class \nIF you recompiled all the samples of sbutton You can see my error \nYou must see  the Function Child3() of Testbtn.prg\nthis is a mini reservation bus \nthe button make error on 32 bit  but on 16 bit run ok \nCan you help me ?','',0,'AIA=','ws00uoao',1,0,'',49,0,0),(2517,671,3,49,0,'87.7.178.240',1132954799,1,0,1,1,1,0,'','TO ANTONIO testprn2 not run ok','Fwh 2.5\nHarbour 0.99.5x\nOn a program run ok on 16 bit the preview not run on 32 bit ( white paper) \n\nI recompiled testprn2 to test the print preview \nthe testprn2 make the same  : White paper\n\nHow can I correct this error','',0,'AIA=','291ictou',1,0,'',49,0,0),(2518,523,6,53,0,'200.66.175.207',1132956126,1,0,1,1,1,1,'','Tienes razón','Yamil:\n\nEfectivamente existe ese software aúnque el cliente no lo esta usando, utiliza otro que se llama Bossanova.\n\nSaludos, Armando','',0,'AIA=','1g5u56qy',1,0,'',53,0,0),(2519,655,6,40,0,'200.77.123.207',1132959161,1,0,1,1,1,0,'','','Gracias Zamoras, lo curioso es es que pruebo con un campo tipo SmallInt\ny sucede lo mismo, no reconoce el tipo de dato. al leerlo con \nnEmpresa:=oRs:Fields(\'InEmpNum\'):Value \nme marca \"OLE Error Value : Unknown error\"\n\nAl pareder la clase no reconoce los campos tipo Tinyint e SmallInt y ale busque y la verdad no se por donde van los tiros, alguien que ya este trabajando con OleDB, hechem un cable por favor.\n\nHay una versión mas actualizada de la clase Ole del Maestro Jóse Gimenez ?\n\nSaludo\nJoel Andujo','',0,'AIA=','2fnj6f38',1,0,'',40,0,0),(2520,528,2,322,0,'201.134.185.82',1132967658,1,0,1,1,1,0,'','sobre www.dbwide.com.ar','Antonio.\n\nAlguna vez antes de que dejara de funcionar la página baje los programas, si bien no existe problema por parte de Daniel Andrade, puedes indicarme en donde deposito los archivos.\n\nSaludos desde la Ciudad de México\nNazario Salazar Nájera','',0,'AIA=','2mpb59fq',1,0,'',322,0,0),(2521,670,1,2,0,'80.58.2.107',1132981660,1,0,1,1,1,1,'','','Aumenta de 1000 en 1000 el valor del heapsize en el fichero LNK de Blinker.','',0,'AIA=','14okg826',1,0,'',2,0,0),(2522,671,3,2,0,'80.58.2.107',1132981754,1,0,1,1,1,1,'','','Silvio,\n\nThat is fixed on FWH 2.6. Its not a simple fix to implement as there are many changes.\n\nWhat screen resolution are you using ?','',0,'AIA=','2mbbptt8',1,0,'',2,0,0),(2523,528,2,2,0,'80.58.2.107',1132981847,1,0,1,1,1,1,'','','Nazario,\n\nme los puedes enviar como zip, uno a uno, por email ? gracias.','',0,'AIA=','1arz566y',1,0,'',2,0,0),(2524,612,12,2,0,'80.58.2.107',1132981997,1,0,1,1,1,1,'','','Manuel,\n\nEn las versiones recientes de Harbour y xHarbour, ya no existe DBFDBT.lib y en su lugar se usa DBFFPT.lib y HBSIX.lib.','',0,'AIA=','gncjidwa',1,0,'',2,0,0),(2525,648,18,2,0,'80.58.2.107',1132985563,1,0,1,1,1,1,'','','Fixed. This change in needed in source\\classes\\rpreview.prg line 530:\n\n          oCoors1 := TRect():New( 40,;\n                                  Max( ( nWidth / 2 ) - nMetaWidth, 10 ),;\n                                  nHeight,;\n                                  Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )','',0,'AIA=','fdoj8x1j',1,0,'',2,0,0),(2527,340,18,2,0,'80.58.2.107',1132985900,1,0,1,1,1,1,'','','Warning: This fix is just for FWH 2.6 and 2.7.\n\nFixed. This change in needed in source\\classes\\rpreview.prg line 530: \n\noCoors1 := TRect():New( 40,; \nMax( ( nWidth / 2 ) - nMetaWidth, 10 ),; \nnHeight,; \nMin( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )','',0,'AIA=','b8ld2iaz',1,0,'',2,0,0),(2528,340,18,6,0,'87.6.210.33',1132999299,1,0,1,1,1,1,'','','Thank you, Antonio!\n\nEMG','',0,'AIA=','33op5tsr',1,0,'',6,0,0),(2529,350,18,2,0,'80.58.2.107',1133004735,1,0,1,1,1,1,'','','Fixed. Please change this in source\\classes\\tcbrowse.prg line 863:\n\n   @ 10, 0 BUTTON oBtn PROMPT \"\" ACTION ( oBtn:SetFocus(), oDlg:End(), lOk := .t. ) OF oDlg\n\nAlso, to get a better screen position change this in line 868:\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT ( oDlg:Move( aDim[ 1 ] + 1, aDim[ 2 ] + 1,;','',0,'','mo945j2n',1,0,'',2,0,0),(2530,528,2,147,0,'200.68.215.7',1133006632,1,0,1,0,1,1,'','','Antonio:\nEn el 2002 en la primer reunión de PuertoSur se distridbuyó un CD con todo el contenido de dbwide, que lo tengo; seguramente posteriormente se agregaron aportes. Quizás sería mas sencillo, si Daniel tiene la posibilidad, el enviarte una copia en CD.  Lo podés contactar través de <!-- e --><a href=\"mailto:puertosur@yahoogroups.com\">puertosur@yahoogroups.com</a><!-- e -->. Caso contrario me das una dirección y te envio el que tengo.\n\nsaludos','',0,'','2rqjhz50',1,0,'',147,0,0),(2531,653,1,204,0,'83.235.98.252',1133009776,1,0,1,1,1,0,'','','Ok now this is great. I moved all the IF checks that are between SetResource() and the IF statement for the security chexk into Main2 and now I get the icon back. What gives?','',0,'','30bi0mvm',1,0,'',204,0,0),(2532,673,3,195,0,'62.38.18.180',1133013935,1,0,1,1,1,0,'','To ANTONIO :Help on TtreeView Class PLEASE URGENT !!!!','Hello\n\nI try to include a TreeView inside a dialog that included in a 32bits Dll. The problem i faced is when ctivate the dialog i get an empty TreeView window. The treeview declared as \"SysTreeView32\" in the dialog as the manual says.\n\n[code:2pxy9l2i]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nSTATIC TEstDlg,Tree\n\nPROCEDURE MAIN&#40;&#41;\n\nLOCAL ImageList\nLOCAL Brance1,Brance2,Brance3\n\n\nSET RESOURCES TO &quot;TEST32&#46;DLL&quot; // Here is the TreeView Dialog\n\n\n \nDEFINE DIALOG TestDlg RESOURCE &quot;TEST&quot; \n\n   \n  \n   ImageList &#58;= TImageList&#40;&#41;&#58;New&#40;&#41;\n      ImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;DISCOUNT&quot;,,TestDlg&#41;&#41;\n      ImageList&#58;Add&#40; TBitMap&#40;&#41;&#58;Define&#40; &quot;MONEY&quot;,,TestDlg&#41;&#41;\n      ImageList&#58;Add&#40; TBitMap&#40;&#41;&#58;Define&#40; &quot;TACK&quot;,,TestDlg&#41;&#41;\n      ImageList&#58;Add&#40; TBitMap&#40;&#41;&#58;Define&#40; &quot;TACKED&quot;,,TestDlg&#41;&#41;\n      \n      Tree = TTreeView&#40;&#41;&#58;Redefine &#40;4001,TestDlg&#41;\n     \n     WITH OBJECT Tree\n      &#58;SetImageList&#40; ImageList&#41;\n       Brance1&#58;= &#58;Add&#40; &quot;THIS IS THE FIRST&quot;,0&#41;\n         Brance1&#58;Add&#40;&quot;This is an Item inside the 1st Brance&quot;,0&#41;\n       Brance2&#58;= &#58;Add&#40; &quot;THIS IS THE SECOND&quot;,1&#41;\n       Branc3&#58;=  &#58;Add&#40; &quot;This is the THIRD&quot;,2&#41;\n     END WITH \n   \n   ACTIVATE DIALOG TestDlg CENTERED\n\n[/code:2pxy9l2i]\n\nThis code as a result gives the dialog with 2 buttons and an empty TreeView window.\n\nAny help would be appreciate.\n\nThanks In Advance\nDionisis','',0,'AIA=','2pxy9l2i',1,0,'',195,0,0),(2533,655,6,317,0,'80.58.12.107',1133016909,1,0,1,1,1,0,'','','Yo lo hago de la siguiente forma:\n\n[code:sb3re2eh]\n\n&#58;&#58;TipoCampo&#40; oQuery&#58;Get&#40; &quot;Type&quot; &#41; &#41;\n\n\n//////\n//------------------------------------------------------------------------------------// METHOD TipoCampo&#40; &#41; retorna el tipo de campo&#46;\n//------------------------------------------------------------------------------------\nMETHOD TipoCampo&#40; nTipo &#41; CLASS TConexion\n   SWITCH nTipo  //DO CASE\n      CASE 202; CASE 130; CASE 200; CASE 129   // Carácter&#46;\n          RETURN &quot;C&quot;\n      CASE  14; CASE   5; CASE   3; CASE 131; CASE   2; CASE   4 // Numérico&#46;\n          RETURN &quot;N&quot;\n      CASE   7; CASE 133; CASE 135   // Fecha\n          RETURN &quot;D&quot;\n      CASE  11; CASE  16             // Lógico\n          RETURN &quot;L&quot;\n      CASE 203; CASE  11; CASE 128   // Campo memo\n          RETURN &quot;M&quot;\n      DEFAULT\n          MsgInfo&#40; &quot;Tipo de dato no válido&#58; &quot; + STR&#40; nTipo &#41; &#41;\n   END // SWITCH CASE\nRETURN NIL\n[/code:sb3re2eh]\n\nEspero que esto te ayude.Saludos.','',0,'AIA=','sb3re2eh',1,0,'',317,0,0),(2534,654,7,95,0,'201.135.64.39',1133020840,1,0,1,1,1,0,'','','Estimado Antonio\n\nBaje TotalCommander, y corre excelente, No se si te sirva el dato.\n\nLo que no vi o no trae y me gustaria poner es un navegador de internet. Sabes de alguno. ?\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','3fdi980f',1,0,'',95,0,0),(2535,671,3,49,0,'87.7.177.116',1133021515,1,0,1,1,1,0,'','','I tryed now with 1400x1050\nbut I tryed also with 1280x768\nwhy this error ?','',0,'AIA=','k8pbyezj',1,0,'',49,0,0),(2536,350,18,6,0,'87.6.210.33',1133023225,1,0,1,1,1,1,'','','Great, thank you!\n\nEMG','',0,'AIA=','ct42d5am',1,0,'',6,0,0),(2537,654,7,2,0,'80.58.2.107',1133023847,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; Baje TotalCommander, y corre excelente, No se si te sirva el dato. \n\nPor favor, localiza en el Pocket PC el EXE que te ha instalado el Total Commander e intenta ejecutarlo en el emulador. Con esa prueba saldremos de dudas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n&gt; Lo que no vi o no trae y me gustaria poner es un navegador de internet. Sabes de alguno. ?\n\nNo conozco ninguno. Has buscado en google ?','',0,'AIA=','2war5ldg',1,0,'',2,0,0),(2538,671,3,2,0,'80.58.2.107',1133024196,1,0,1,1,1,1,'','','Silvio,\n\nFWH 2.6 uses 32 bits Windows metafiles for the preview and has been greatly modified to properly support them. So there is no an easy fix.\n\nI can\'t tell you for sure why you get that error, as 16 bits metafiles are no longer used.','',0,'AIA=','2z7cdmsa',1,0,'',2,0,0),(2539,673,3,2,0,'80.58.2.107',1133024406,1,0,1,1,1,1,'','','Dionisis,\n\nOn a dialog, a control does not really exists until the dialog is activated, so please modify the code this way:\n\nACTIVATE DIALOG TestDlg CENTERED ;\n   ON INIT FillTree( oTree, ImageList )\n\nfunction FillTree( Tree, ImageList )\n\n    local Brance...\n\n     WITH OBJECT Tree \n      :SetImageList( ImageList) \n       Brance1:= :Add( \"THIS IS THE FIRST\",0) \n         Brance1:Add(\"This is an Item inside the 1st Brance\",0) \n       Brance2:= :Add( \"THIS IS THE SECOND\",1) \n       Branc3:=  :Add( \"This is the THIRD\",2) \n     END WITH \n\nreturn nil','',0,'AIA=','awp25jz5',1,0,'',2,0,0),(2540,528,2,2,0,'80.58.2.107',1133024513,1,0,1,1,1,1,'','','Mario,\n\nPuedes enviarlo a la dirección de FiveTech que se indica en <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/about.html\">http://www.fivetechsoft.com/spanish/about.html</a><!-- m -->\n\nmuchas gracias!','',0,'AIA=','2r2psy3e',1,0,'',2,0,0),(2541,669,3,2,0,'80.58.2.107',1133024666,1,0,1,1,1,1,'','','Demetrios,\n\nAs you have found yourself, better use a TreeView 32 bits.','',0,'AIA=','2b3cc5mx',1,0,'',2,0,0),(2542,656,3,2,0,'80.58.2.107',1133024851,1,0,1,1,1,1,'','','Maurilio,\n\n&gt; 1) Is possible change the font of group name to bold? \n\nI don\'t think so. That may required to implement ownerdraw support.\n\n&gt;\n2) Is possible change the bitmap when the tree is open/closed? (I couldn\'t do it in testtrer.prg) \n&gt;\n\nYes, it is, but it is not implemented yet.\n\n&gt;\n3) Is possible change the bitmap size to 32x32, 48x48, etc? I only could use 16x16 bitmaps... \n&gt;\n\nTry to change the size of the bitmaps when you create the imagelist.\n\n&gt;\n4) I change the background color with oTree:Setcolor(...) but the background of characters and bitmaps color don\'t change. How can I change it?\n&gt;\n\nWe are going to review it.','',0,'AIA=','1iyhay8p',1,0,'',2,0,0),(2543,674,6,279,0,'200.65.9.63',1133027152,1,0,1,1,1,0,'','BUTTONBMP Porque ya no aparecen los BITMAP','Antes del cambio a la nueva versión de FWH si me estaba apareciendo las BITMAP ahora yo no aparecen no sabes a que ser deba este problema.\n\nREDEFINE BUTTONBMP oBtn1 ID 20 OF oDlg TEXTRIGHT ;                BITMAP \".\\BMPS\\ACEPTAR16.BMP\" ;\n               ACTION oDlg:End()\n\n\nSaludos, \n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> Mario Espinosa','',0,'AIA=','vlne9x9s',1,0,'',279,0,0),(2544,528,2,10,0,'212.40.255.188',1133029403,1,0,1,1,1,0,'','','Saludos.\n\nA ver si pronto lo podemos ver publicado.\n\nGracias.','',0,'AIA=','26vh9sk8',1,0,'',10,0,0),(2545,606,3,2,0,'80.58.2.107',1133030544,1,0,1,1,1,1,'','','Maurilio,\n\nYou may review samples\\TestPag2.prg','',0,'AIA=','efk698kb',1,0,'',2,0,0),(2546,674,6,2,0,'80.58.2.107',1133030731,1,0,1,1,1,1,'','','Mario,\n\nAcabamos de probar samples\\TestBuBm.prg y funciona bien. Puedes por favor probarlo ahí y confirmarnos si te funciona ? Gracias.','',0,'AIA=','52hq5c90',1,0,'',2,0,0),(2547,643,3,233,0,'60.48.220.106',1133031068,1,0,1,1,1,0,'','','Glad to have help  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','290l2707',1,0,'',233,0,0),(2548,675,22,2,0,'80.58.2.107',1133068523,1,0,1,1,1,1,'','Welcome to the ToDo List - WishList - Por hacer - Peticiones','On this section you may say what you would like to be implemented on FiveTech products, and also what is pending to be done. Thanks.\n\nEn esta sección podeis indicar que os gustaría que se implemente en los productos de FiveTech, y también que está pendiente de implementar. Gracias.','',0,'AIA=','12djerr4',1,0,'',2,0,0),(2549,676,16,2,0,'80.58.2.107',1133068985,1,0,1,1,1,1,'','New section on these forums','A ToDo list and WishList section on these forums has been created, where you may say what would you like to get implemented, and we may assign it a priority.\n\nSe ha creado una sección en estos foros para que expreseis que os gustaría que se implementase, y que le asignemos una prioridad.','',0,'AIA=','q52jy92z',1,0,'',2,0,0),(2550,654,7,95,0,'201.135.64.39',1133072788,1,0,1,1,1,0,'','','Estimado Antonio\n\nEl archivo se llama \"cecmd\"y efectivamente si corre en el emulador.\nLo que hize fue copiarlo de la terminala hacia windows 2000 y lo corri en el emulador.\n\nSaludos y gracias de antemano.\nOsvaldo Ramirez','',0,'AIA=','3iy9v0x1',1,0,'',95,0,0),(2551,673,3,195,0,'62.38.29.183',1133073141,1,0,1,1,1,0,'','To ANTONIO :Help on TtreeView Class PLEASE URGENT !!!!','Antonio \n\nMany many thanks this change make the code to work. For once again you gave me a valued help.\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nGreetings from Greece\n\nDionisis','',0,'AIA=','2abv3dgd',1,0,'',195,0,0),(2552,654,7,2,0,'80.58.2.107',1133076269,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; El archivo se llama \"cecmd\"y efectivamente si corre en el emulador. \n\nPor favor, envíamelo por email en un ZIP. gracias.','',0,'AIA=','2a54kt1c',1,0,'',2,0,0),(2553,654,7,2,0,'80.58.2.107',1133077469,1,0,1,1,1,1,'','','Osvaldo,\n\nPor favor vuelve a descargar <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/tutor01.zip\">www.fivetechsoft.com/files/tutor01.zip</a><!-- w --> y pruébalo de nuevo en tu Pocket PC. Gracias.','',0,'AIA=','3at3sw1n',1,0,'',2,0,0),(2554,664,3,315,0,'212.127.159.218',1133082464,1,0,1,0,1,0,'','Animationnot always working','Antonio,\n\nI have tried to implement Sysrefres() on several places.\nThat helped in other instances, but not here.\n\nDo we have different animations?\n\nThanks,\n\nJules de Pierre','',0,'AIA=','1eqv282f',1,0,'',315,0,0),(2555,664,3,2,0,'80.58.2.107',1133084850,1,0,1,1,1,1,'','','Jules,\n\nMay we see the source code for Tiptest.prg ?','',0,'AIA=','128xt69w',1,0,'',2,0,0),(2556,677,18,195,0,'62.38.22.222',1133090398,1,0,1,1,1,0,'','Preview ToolBar  Error (no bug)','Hi Antonio /All\n\nWhen by accident press the button LastPage on the Reprot Preview toolbal an error occurs and the program quits. The same happens and with the NextPage Button. This happens if we have only one page to preview / print.\n\nError Log for the Last Page Error occurance folows:\n[list:3otucsrj]\nApplication\n===========\n   Path and name: C:\\Easy Container\\easyc.exe (32 bits)\n   Size: 1,823,744 bytes\n   Time from start: 0 hours 0 mins 16 secs \n   Error occurred at: 27/11/2005, 13:06:29\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   0\n\nStack Calls\n===========\n   Called from:  =&gt; BOTTOMPAGE(698)\n   Called from: rpreview.prg =&gt; (b)RPREVIEW(178)\n   Called from: toolbar.prg =&gt; TTOOLBAR:COMMAND(162)\n   Called from: window.prg =&gt; TWINDOW:COMMAND(935)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3128)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: dialog.prg =&gt; TDIALOG:ACTIVATE(264)\n   Called from: JOBS.PRG =&gt; POLICY(2847)\n   Called from: JOBS.PRG =&gt; (b)JOBS(1073)\n   Called from: btnbmp.prg =&gt; TBTNBMP:CLICK(319)\n   Called from: btnbmp.prg =&gt; TBTNBMP:LBUTTONUP(487)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: control.prg =&gt; TBTNBMP:HANDLEEVENT(1322)\n   Called from: window.prg =&gt; _FWH(3128)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: dialog.prg =&gt; TDIALOG:ACTIVATE(264)\n   Called from: JOBS.PRG =&gt; JOBS(1116)\n   Called from: EasyC.prg =&gt; (b)BUILDMENU(266)\n   Called from: menu.prg =&gt; TMENU:COMMAND(407)\n   Called from: window.prg =&gt; TWINDOW:COMMAND(932)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3128)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TWINDOW:ACTIVATE(881)\n   Called from: EasyC.prg =&gt; MAIN(151)\n[/list:u:3otucsrj]\n\nError Log for the Next Page Error occurance folows:\n[list:3otucsrj]\nApplication\n===========\n   Path and name: C:\\Easy Container\\easyc.exe (32 bits)\n   Size: 1,823,744 bytes\n   Time from start: 0 hours 0 mins 15 secs \n   Error occurred at: 27/11/2005, 13:04:52\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   2\n\nStack Calls\n===========\n   Called from:  =&gt; NEXTPAGE(591)\n   Called from: rpreview.prg =&gt; (b)RPREVIEW(173)\n   Called from: toolbar.prg =&gt; TTOOLBAR:COMMAND(162)\n   Called from: window.prg =&gt; TWINDOW:COMMAND(935)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3128)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: dialog.prg =&gt; TDIALOG:ACTIVATE(264)\n   Called from: JOBS.PRG =&gt; POLICY(2847)\n   Called from: JOBS.PRG =&gt; (b)JOBS(1073)\n   Called from: btnbmp.prg =&gt; TBTNBMP:CLICK(319)\n   Called from: btnbmp.prg =&gt; TBTNBMP:LBUTTONUP(487)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: control.prg =&gt; TBTNBMP:HANDLEEVENT(1322)\n   Called from: window.prg =&gt; _FWH(3128)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: dialog.prg =&gt; TDIALOG:ACTIVATE(264)\n   Called from: JOBS.PRG =&gt; JOBS(1116)\n   Called from: EasyC.prg =&gt; (b)BUILDMENU(266)\n   Called from: menu.prg =&gt; TMENU:COMMAND(407)\n   Called from: window.prg =&gt; TWINDOW:COMMAND(932)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3128)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TWINDOW:ACTIVATE(881)\n   Called from: EasyC.prg =&gt; MAIN(151)\n[/list:u:3otucsrj]\n\n\nThanks in Advance \nDionisis','',0,'AEA=','3otucsrj',1,0,'',195,0,0),(2557,677,18,2,0,'80.58.2.107',1133092715,1,0,1,1,1,1,'','','Dionisis,\n\nCould you provide a small and self contained sample to reproduce it ?\n\nWe have modified samples\\TestPrn2.prg to just generate one page and it works ok.','',0,'AEA=','r642rs0c',1,1133102374,'',2,1,0),(2558,678,3,6,0,'82.61.69.88',1133094595,1,0,1,1,1,1,'','CGI','Dear friends, I have a problem to get CGI to work (any language, I tried \nxHarbour and C, it used to work the last time I tried it...). I can write the \nresults to the browser (stdout) but I cannot receive anything from stdin:\n\nlocalhost/mysite/test.htm\n\n[code:2ntd9vm2]&lt;HTML&gt;\n  &lt;BODY&gt;\n    &lt;FORM METHOD = &quot;post&quot; ACTION = &quot;test&#46;exe?Param=Test&quot;&gt;\n      &lt;INPUT TYPE = &quot;submit&quot; VALUE = &quot;Send&quot;&gt;\n    &lt;/FORM&gt;\n  &lt;/BODY&gt;\n&lt;/HTML&gt;[/code:2ntd9vm2]\n\nTEST.EXE is:\n\n[code:2ntd9vm2]#include &quot;Simpleio&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    ?? &quot;Content-type&#58; text/html&quot;\n    ?\n    ? &quot;&lt;HTML&gt;&quot;\n    ? &quot;&lt;BODY&gt;&quot;\n    ? &quot;Received&#58; &quot; + FREADSTR&#40; 0, 256 &#41; + &quot;&lt;BR&gt;&quot;\n    ? &quot;&lt;/BODY&gt;&quot;\n    ? &quot;&lt;/HTML&gt;&quot;\n\n    RETURN NIL[/code:2ntd9vm2]\n\nThe result is an empty string.\n\n\"Received:\"\n\nWhat am I missing?\n\nThank you in advance for any help.\n\nEMG','',0,'AIA=','2ntd9vm2',1,0,'',6,0,0),(2559,678,3,2,0,'80.58.2.107',1133095243,1,0,1,1,1,1,'','','Enrico,\n\nI have moved it to this section, as I understand it is important for more users <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','h1rhpws7',1,0,'',2,0,0),(2560,678,3,6,0,'82.61.69.88',1133095356,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'AIA=','p5gjk0xc',1,0,'',6,0,0),(2561,679,22,15,0,'210.64.246.8',1133101689,1,0,1,1,1,0,'','FWH product support more full 32bit component','Hello Antonio,\n\nFirst:\nI wish FWH support more full 32bit components(Activex...)\n\nSecond:(important)\nTGet and MGet support two bytes Character(Chinese or ASIA local..) within WinXP themes.\n\nThat\'s all.\n\nRegards,\n\nRichard','',0,'AIA=','24j41lsa',1,0,'',15,0,0),(2562,677,18,195,0,'62.38.18.160',1133102315,1,0,1,1,1,0,'','Preview ToolBar Error','Antonio\n\nIam very sorry . It is my mistake just release the printer object before finish the page.\nEnerything is ok now.\n\nSorry for the trouble.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  \n\nTrully Your\'s\nDionisis','',0,'AIA=','2gn1vk9m',1,0,'',195,0,0),(2563,677,18,2,0,'80.58.2.107',1133102408,1,0,1,1,1,1,'','','Dionisis,\n\nNo problem <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nYou are welcome,','',0,'AIA=','14juy8hc',1,0,'',2,0,0),(2564,680,3,327,0,'151.29.21.65',1133104179,1,0,1,1,1,0,'','fwh 2.4 NETERR()','Hy everybody.\nFunction NETERR() doesn\'t work. Has anybody got any solution?\nThanks a lot\nEugenio','',0,'AIA=','33gp1owk',1,0,'',327,0,0),(2565,681,6,53,0,'200.66.175.237',1133111398,1,0,1,1,1,1,'','Super Headers en TReport','Amigos:\n\nEn 16 bits, al definir los HEADERS de una COLUMN si el texto era más largo que el ancho de la columna el texto encimaba parte de la columna anterior o posterior dedepndiendo si la columna tenia alineación RIGHT o LEFT respectivamente. Esto me permitia poner una especie de SUPER HEADER es decir un HEADER que abarcaba dos o mas columnas.\n\nAhora en 32bits eso ya no sucede, simplemente el ancho del texto HEADER se trunca al ancho de la columna.\n\nPregunta !, Es posible poner un titulo que abarque dos o mas\ncolumnas ? un SUPER HEADER\n\nUn hilo por favor.\n\nUso Harbour 44 y FWH 2.5\n\nSaludos','',0,'AIA=','3frr944p',1,0,'',53,0,0),(2566,664,3,53,0,'200.66.175.237',1133116156,1,0,1,1,1,1,'','An example','Antonio:\n\nWhere can I found an example of TAnimate class ?\n\nRegards, Armando','',0,'AIA=','1pxg1oix',1,0,'',53,0,0),(2567,682,3,53,0,'200.66.175.237',1133117188,1,0,1,1,1,1,'','An example of TAnimate Class','Dear friends:\n\nWhere can I found an example of TAnimate class ?.\n\nThanks a lot, Armando','',0,'AIA=','2sorxmmx',1,0,'',53,0,0),(2568,587,2,180,0,'83.54.12.160',1133118707,1,0,1,1,1,0,'','','El mismo problema tuve hace tiempo con este asunto y alguien del foro me ayudó. No puedo aclararte mucho sobre el asunto pues hace más de un año que lo implementé, pero lo más importante es que funciona. Abajo te pego unos trozos de código.\nTienes que tener freeimagen.dll en la carpeta del ejecutable. Después debes tener en el prg:\n\n#xcommand REDEFINE Image [ &lt;oBmp&gt; ] ;\n             [ ID &lt;nId&gt; ] ;\n             [ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n             [ &lt;resource: NAME, RESNAME, RESOURCE&gt; &lt;cResName&gt; ] ;\n             [ &lt;file: FILE, FILENAME, DISK&gt; &lt;cBmpFile&gt; ] ;\n             [ &lt;lClick: ON ClICK, ON LEFT CLICK&gt; &lt;uLClick&gt; ] ;\n             [ &lt;rClick: ON RIGHT CLICK&gt; &lt;uRClick&gt; ] ;\n             [ &lt;scroll: SCROLL&gt; ] ;\n             [ &lt;adjust: ADJUST&gt; ] ;\n             [ CURSOR &lt;oCursor&gt; ] ;\n             [ MESSAGE &lt;cMsg&gt;   ] ;\n             [ &lt;update: UPDATE&gt; ] ;\n             [ WHEN &lt;uWhen&gt; ] ;\n             [ VALID &lt;uValid&gt; ] ;\n       =&gt; ;\n          [ &lt;oBmp&gt; := ] TImage():ReDefine( &lt;nId&gt;, &lt;cResName&gt;, &lt;cBmpFile&gt;,;\n             &lt;oWnd&gt;, [\\{ |nRow,nCol,nKeyFlags| &lt;uLClick&gt; \\}],;\n                     [\\{ |nRow,nCol,nKeyFlags| &lt;uRClick&gt; \\}],;\n             &lt;.scroll.&gt;, &lt;.adjust.&gt;, &lt;oCursor&gt;, &lt;cMsg&gt;, &lt;.update.&gt;,;\n             &lt;{uWhen}&gt;, &lt;{uValid}&gt; )\n\n\n\n\n[color=blue:1zfp0jra]Para visualizar la imagen:[/color:1zfp0jra]\n///////////////////////////////////////////////////////////////////////////\nDEFINE DIALOG oDlg RESOURCE \"IMAGEN2\" \noDlg:lHelpIcon:=.F.\n\n\n  REDEFINE IMAGE oImagen FILENAME (cFImagen) ID 800;            \n           OF oDlg ADJUST UPDATE //SCROLL                           \n    \n    //\n  ACTIVATE DIALOG oDlg CENTER ON INIT oDlg:End()\n  \n//\n[color=blue:1zfp0jra]Para imprimir la imagen e imprimir texto encima:[/color:1zfp0jra]\n            oPrn:StartPage()\n            //PAGE\n               //\n               IF lLImagen\n                  oImagen:LoadImage(,cFImagen)                  \n                  oPrn:SayImage( 0, 0, oImagen,4800,6800 )\n               ENDIF\n               //\n               IF lLTexto\n                  cTexto:=Memoread(cFTexto)\n                  nLineasTexto:=MlCount(cTexto,75)\n                  //\n                  FOR i := 1 TO nLineasTexto\n                      cLineaActual:=MemoLine(cTexto,75,i,,.F.)\n                      oPrn:CmSay(nLin+0.5,1,  cLineaActual, oFont1)\n                      nLin=nLin+0.5\n                  NEXT\n                  //\n               ENDIF\n               //\n               oPrn:CmSay((aF[1,1]+nDV)/10,  (aF[1,2]+nDH)/10,  D1, oFont1)\n               oPrn:CmSay((aF[2,1]+nDV)/10,  (aF[2,2]+nDH)/10,  D2, oFont1)\n               oPrn:CmSay((aF[3,1]+nDV)/10,  (aF[3,2]+nDH)/10,  D3, oFont1)                  \n               oPrn:CmSay((aF[4,1]+nDV)/10,  (aF[4,2]+nDH)/10,  D4, oFont1)\n               oPrn:CmSay((aF[5,1]+nDV)/10,  (aF[5,2]+nDH)/10,  D5, oFont1)\n               oPrn:CmSay((aF[6,1]+nDV)/10,  (aF[6,2]+nDH)/10,  D6, oFont1)\n               //\n            \n            //ENDPAGE\n            oPrn:EndPage()            \n            //','',0,'Ag==','1zfp0jra',1,0,'',180,0,0),(2569,654,7,95,0,'200.78.103.194',1133119078,1,0,1,1,1,0,'','','Estimado Antonio\n\nMuchas gracias... y si, si funciono. \n\nCuentame cual fue el problema ?\n\nDime : \n\n1.- Puedo usar la instruccion use de esta manera ?\nuse ( \"\\\\home\\shared\\develop\\test.dbf\" ) index ;(\"\\\\home\\shared\\develop\\test1.ntx\" )\n\n\nSaludos y en ahorabuena.\nOsvaldo Ramirez\n\nP.S. Lo unico que me queda para poder comprar FWPPC, es la activacion del scaner, voy a mirar el SDK, del MC3000 para ver como se activa.\n\n\n\n\nOsvaldo Ramirez','',0,'Ag==','39ofpdfq',1,0,'',95,0,0),(2570,682,3,15,0,'210.64.246.8',1133123943,1,0,1,1,1,0,'','','Hello, Armando\n\nYou can find it Samples\\Win32.prg or Samples\\Win32_.prg\nVery easy. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\n\nRichard\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw/\">http://www.fivetech.com.tw/</a><!-- m -->','',0,'Ag==','125oq1bp',1,0,'',15,0,0),(2572,682,3,53,0,'200.66.175.237',1133125111,1,0,1,1,1,1,'','','Richard:\n\nThank you very much, I was looking for as TAnimate.Prg \n\nBest Regards, Armando','',0,'Ag==','gs0p2qkf',1,0,'',53,0,0),(2573,678,3,6,0,'87.6.210.49',1133125934,1,0,1,1,1,1,'','Re: CGI','Solved:\n\n[code:3cv65q1e]&lt;HTML&gt;\n  &lt;BODY&gt;\n    &lt;FORM METHOD = &quot;post&quot; ACTION = &quot;test&#46;exe&quot;&gt;\n      &lt;INPUT TYPE = &quot;text&quot; NAME = &quot;Param&quot;&gt;\n      &lt;INPUT TYPE = &quot;submit&quot; VALUE = &quot;Send&quot;&gt;\n    &lt;/FORM&gt;\n  &lt;/BODY&gt;\n&lt;/HTML&gt;[/code:3cv65q1e]\n\nEMG','',0,'AIA=','3cv65q1e',1,0,'',6,0,0),(2574,655,6,138,0,'148.221.195.188',1133130130,1,0,1,1,1,1,'','','Acabo de revisar un ejemplo con SQL Server y con ADO y me esta regresando bien los valores.\n\n(x)Harbour 99.5 y FW 2.6','',0,'AIA=','2nvsm8rc',1,0,'',138,0,0),(2575,667,6,138,0,'148.221.195.188',1133130530,1,0,1,1,1,1,'','','No te recomiendo usar ODBC, utiliza mejor ADO, funciona perfecto con MySQL, solo necesitas descargar el servidor, y el MyODBC que es el driver que te va a servir para conectarte tanto por ODBC como por ADO.\n\nLa cadena de conexion con MySQL es esta:\n\noAdo := TOleAuto():New(\"adodb.connection\")\noAdo:Open (\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=garis;UID=root;PWD=18167231\")\n\ny listo, es todo lo que necesitas, con recordset puedes solucionar todos tus probelmas de acceso a datos.','',0,'AIA=','22vpauuo',1,0,'',138,0,0),(2576,587,2,10,0,'212.40.255.188',1133131515,1,0,1,1,1,0,'','','Gracias Chantiel, Pymsoft y Manuel Aranda.\n\nMañana lo probaré a ver si me sale y ya les comento.\n\nUn saludo','',0,'AIA=','19jhjo13',1,0,'',10,0,0),(2577,654,7,2,0,'80.58.2.107',1133132836,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; Muchas gracias... y si, si funciono. \n&gt; Cuentame cual fue el problema ? \n\nEstábamos usando una DLL del propio sistema operativo que no está en WinCE.\n\n&gt; \n1.- Puedo usar la instruccion use de esta manera ? \nuse ( \"\\\\home\\shared\\develop\\test.dbf\" ) index ;(\"\\\\home\\shared\\develop\\test1.ntx\" )\n&gt;\n\nTe refieres a Harbour tal cual ó a FiveWin para Pocket PC ? En ambos casos, debe funcionar sin problemas.','',0,'AIA=','3at7tzf6',1,0,'',2,0,0),(2578,591,6,28,0,'62.15.40.165',1133136111,1,0,1,1,1,0,'','','Hola\n\nTe refieres a esto?\n\n[code:2eeaaxb0]HB_FUNC &#40;PRUEBA&#41;&#123; \n    // Aca tendria que recuperar el parametro \n   // y luego mostrarlo&#46;&#46;&#46;&#46; \n   char * micadena = hb_parc&#40; 1 &#41;;\n   MessageBox&#40;0, PARAMETRO RECUPERADO, &quot;Se envio el dato&#46;&#46;&#46;&quot;, micadena, MB_OK&#41;; \n   &#46;&#46;&#46; \n\n&#125;[/code:2eeaaxb0]\n\nUn saludo\n\nPaco','',0,'AIA=','2eeaaxb0',1,0,'',28,0,0),(2579,591,6,52,0,'201.231.15.29',1133138336,1,0,1,1,1,1,'','','Si paco, gracias.','',0,'AIA=','24rnm4qp',1,0,'',52,0,0),(2580,658,3,69,0,'65.92.153.72',1133138612,1,0,1,1,1,0,'','','Where can I get hbcomm.lib ???\n\nThanks','',0,'AIA=','1w4a53z9',1,0,'',69,0,0),(2581,658,3,2,0,'80.58.2.107',1133159168,1,0,1,1,1,1,'','','Jeff,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/hbcomm.zip\">www.fivetechsoft.com/files/hbcomm.zip</a><!-- w -->','',0,'AIA=','px1ebgcb',1,0,'',2,0,0),(2582,650,1,2,0,'80.58.2.107',1133159283,1,0,1,1,1,1,'','','Jules,\n\nTry this in your code:\n\nPROCEDURE ShowGauge( nSent, nSize )\n   SysRefresh()\nEndif','',0,'AIA=','1eupuy89',1,0,'',2,0,0),(2583,649,2,2,0,'80.58.2.107',1133159370,1,0,1,1,1,1,'','','Puedes probar samples\\TestPrn2.prg y decirnos si te funciona bien ? gracias.','',0,'AIA=','2viz2vzc',1,0,'',2,0,0),(2584,657,6,2,0,'80.58.2.107',1133159484,1,0,1,1,1,1,'','','???','',0,'AIA=','2my3o15h',1,0,'',2,0,0),(2585,624,6,2,0,'80.58.2.107',1133159658,1,0,1,1,1,1,'','','Angel,\n\nPrueba a implementar este fix para el rpreview.prg línea 530:\n\n(Atención, este fix es sólo para FWH 2.6 and 2.7) \n\noCoors1 := TRect():New( 40,; \nMax( ( nWidth / 2 ) - nMetaWidth, 10 ),; \nnHeight,; \nMin( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )','',0,'AIA=','3hlx0fz7',1,0,'',2,0,0),(2586,635,6,2,0,'80.58.2.107',1133159858,1,0,1,1,1,1,'','','En el método Paint() de la Clase TButtonBmp hay este código:\n\n   if ! Empty( ::hBitmap )\n      nTop = ( ::nHeight() / 2 ) - ( nBmpHeight( ::hBitmap ) / 2 )\n      nLeft = ( ::nWidth() / 2 ) - ( nBmpWidth( ::hBitmap ) / 2 )\n      if ::lActive\n         DrawMasked( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;\n                     nLeft + If( lPressed, 1, 0 ) )\n      else\n         DrawGray( ::hDC, ::hBitmap, nTop + If( lPressed, 1, 0 ),;\n                     nLeft + If( lPressed, 1, 0 ) )\n      endif                     \n   endif   \n\nSólo tienes que modificar nLeft para que se situe más a la izquierda.','',0,'AIA=','3emhvzx4',1,0,'',2,0,0),(2587,608,6,2,0,'80.58.2.107',1133159935,1,0,1,1,1,1,'','','Maurilio,\n\nRevisa el ejemplo samples\\TestPag2.prg.','',0,'AIA=','3civ2ocg',1,0,'',2,0,0),(2588,594,6,2,0,'80.58.2.107',1133160076,1,0,1,1,1,1,'','','Actualízate a una versión más reciente de Harbour, ya que se realizaron cambios en la Clase Get.','',0,'AIA=','171ahze4',1,0,'',2,0,0),(2589,604,6,2,0,'80.58.2.107',1133160132,1,0,1,1,1,1,'','','Ricardo,\n\nPuedes proporcionarnos un ejemplo pequeño y autocontenido que reproduzca el error ? gracias.','',0,'AIA=','3gh7wloh',1,0,'',2,0,0),(2590,595,6,2,0,'80.58.2.107',1133160189,1,0,1,1,1,1,'','','Tienes que actualizarte a una versión más reciente de Harbour. \n\nPuedes descargarla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'AIA=','2immr08g',1,0,'',2,0,0),(2591,561,6,2,0,'80.58.2.107',1133160396,1,0,1,1,1,1,'','','Patricio,\n\nUtiliza el commando DATABASE &lt;oDbf&gt; como puedes ver en los ejemplos samples\\Dbf01.prg y Dbf03.prg\n\nNo uses el commando DEFINE DATABASE ... ni el FIELD ...\n\nEsas clases se quedaron desfasadas, aunque aún no se han eliminado de FWH.','',0,'AIA=','x3rvzz5y',1,0,'',2,0,0),(2592,593,6,2,0,'80.58.2.107',1133160556,1,0,1,1,1,1,'','','Juan,\n\nPrueba este código y dinos que valor te muestra:\n\nfunction Main()\n\n   local hDLL := LoadLibrary( \"wininet.dll\" )\n\n   MsgInfo( hDLL )\n\n   FreeLibrary( hDLL )\n\nreturn nil','',0,'AIA=','2a5en5fm',1,0,'',2,0,0),(2593,684,4,13,0,'213.76.252.200',1133164204,1,0,1,1,1,0,'','WaitRun function','Hello,\n\nhow to use WaitRun or other function on PocketPc running external program with switch eg. program.exe /p1 /p2 /p3 ?\n\nThanks,\nPawel','',0,'AIA=','g2agjfrm',1,0,'',13,0,0),(2594,604,6,23,0,'80.58.44.235',1133164762,1,0,1,1,1,1,'','','A mi me pasa esto cuando los reportes están en apaisado.','',0,'AIA=','1dq4bcg4',1,0,'',23,0,0),(2595,624,6,23,0,'80.58.44.235',1133165084,1,0,1,1,1,1,'','','Perfecto!\nGracias Antonio, así funciona sin problemas.','',0,'AIA=','terjynz7',1,0,'',23,0,0),(2596,685,3,80,0,'202.72.148.102',1133167020,1,0,1,0,1,0,'','Multiple Screens','Antonio\n\nMost software packages allow you to drag them across to another\nscreen in a dual monitor setup but with Fivewin I cant - is there a\nsolution/fix for this.\n\nRegards\n\nColin','',0,'AIA=','2ws58ip8',1,0,'',80,0,0),(2597,684,4,2,0,'80.58.2.107',1133168791,1,0,1,1,1,1,'','','Pawel,\n\nYou may directly use ShellExecute:\n\nShellExecute( oWnd:hWnd, \"open\", CurDir() + \"\\tutor02\", \"/p1 /p2 /p3\" )','',0,'AIA=','2vzhqc3u',1,0,'',2,0,0),(2598,682,3,15,0,'203.79.155.24',1133171396,1,0,1,1,1,0,'','','Hello, Armando \n\nYou\'re Welcome!! <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nRegards,\n\nRichard','',0,'AIA=','i0c1xqxe',1,0,'',15,0,0),(2599,685,3,2,0,'80.58.2.107',1133171510,1,0,1,1,1,1,'','','Colin,\n\nWe have just tested it on a ATI Radeon 9550 video card, and it worked ok:\n\n[url=http&#58;//imageshack&#46;us:3lirlo0a][img:3lirlo0a]http&#58;//img517&#46;imageshack&#46;us/img517/6521/desktop4be&#46;jpg[/img:3lirlo0a][/url:3lirlo0a]\n\nWhat is your hardware config ?','',0,'GA==','3lirlo0a',1,0,'',2,0,0),(2600,637,21,1,0,'200.170.133.19',1133173456,1,0,1,1,1,0,'paiva','resovido','troquei a Letra e mudei para cmsay     ta dando trablha + resolveu\n\nPaiva','',0,'GA==','14nqp2ku',1,0,'',1,0,0),(2601,606,3,217,0,'200.153.134.233',1133174718,1,0,1,1,1,0,'','','Thanks, Antonio!\n\nRegards,\nMaurilio','',0,'GA==','nyuf3hgz',1,0,'',217,0,0),(2602,608,6,217,0,'200.153.134.233',1133174762,1,0,1,1,1,0,'','','Gracias, Antonio!\n\nSaludos!\nMaurilio','',0,'GA==','adkjax61',1,0,'',217,0,0),(2603,686,3,47,0,'58.8.184.27',1133176370,1,0,1,1,1,0,'','How to use 1 RC and 1 DLL file?','Dear All,\n\nI\'ve use 1 RC (Fix screen) and  DLL (custom screen ) file as following in fw 16bit.  How can I do in FWH/xHb?\n\n************\nStatic hResc\n\nFunction main()\nhResc := GetResources()\nSET RESOURCES TO (\"SECOND.DLL\")\nSET RESOURCES TO (\"BWCC.DLL\")\nSetResource( hResc )\n..\n\nFunction Scr\nSet Resource To \"SECOND.DLL\"\nDEFINE DIALOG ...\nACTIVATE DIALOG ...  ;\n   ON PAINT SetResources( hResc )\nreturn\n\nRegards,\nDutch','',0,'GA==','o76h4wen',1,0,'',47,0,0),(2604,687,3,47,0,'58.8.184.27',1133176638,1,0,1,1,1,0,'','Can I use FW\'s Zip file function with xHarbour?','Dear Friends,\n\nI use FW\'s Zip file functions in FW 16bits but It cannot compile with xHB?  Have I still used FW\'s Zip file function or I must change to use xHB\'s Zip file function instead of FW?\n\nRegards,\nDutch','',0,'GA==','ij6qxrwn',1,0,'',47,0,0),(2605,687,3,2,0,'80.58.2.107',1133177528,1,0,1,1,1,1,'','','Dutch,\n\nYou have to use the free hbzip.lib library as FW 16 ZIP functions are not available for 32 bits (cause we used a external DLL that was not available in 32 bits).','',0,'GA==','23mmid0d',1,0,'',2,0,0),(2606,685,3,80,0,'202.72.148.102',1133177579,1,0,1,1,1,0,'','Multiple Monitors','Antonio\n\nI have a ATI Radeon Duel Video Card - you can move the\nmain window over to the second monitor but try to open MDi\nwindow - it disappears.  A dialog works okay.\n\nRegards\n\nColin','',0,'GA==','3fldxlmh',1,0,'',80,0,0),(2607,649,2,294,0,'190.48.2.160',1133177831,1,0,1,1,1,0,'','','Me da un error FUNCTION SET no definida en la linea donde hace PAGE.','',0,'GA==','1an9k85k',1,0,'',294,0,0),(2608,686,3,2,0,'80.58.2.107',1133177928,1,0,1,1,1,1,'','','Dutch,\n\nAre you using Borland controls in your resources ?\n\nIf yes then please read \"Using Borland Custom Controls (Bwcc32.dll)\" at <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwh.html\">http://www.fivetechsoft.com/english/fwh.html</a><!-- m -->','',0,'GA==','rsrq3sls',1,0,'',2,0,0),(2609,688,5,270,0,'65.27.183.36',1133178039,1,0,1,1,1,0,'','FW++ and xBase++ 1.90','Does the current version of FW++ work with the new xBase++ version 1.90?  I have downloaded RC-1 of version 1.90 but thought it best to check before installing it and trying it out.\n\nDan','',0,'GA==','wuwcol31',1,0,'',270,0,0),(2610,660,2,147,0,'201.252.216.68',1133178168,1,0,1,0,1,1,'','','Necesito una dirección de correo  a donde enviartelo\n\nsaludos','',0,'GA==','2nyrqf1i',1,0,'',147,0,0),(2611,688,5,2,0,'80.58.2.107',1133178475,1,0,1,1,1,1,'','','Dan,\n\nWe have not tested yet the Xbase++ 1.9 (release candidate RC1?) version. \n\nAlaska uses not to be backwards compatible with its previous versions, so I don\'t think current FW++ will work with it.\n\nAnyhow we just need to recompile FW++ using it, to make it compatible, assuming there are no changes on the extend system (C level).\n\nIn case you need it, please send us an email requiring it. Thanks.','',0,'GA==','tvw78sij',1,0,'',2,0,0),(2612,689,20,29,0,'80.181.108.140',1133178605,1,0,1,1,1,0,'','Richiamare un file di help .chm via F1','Salve,\nho - faticosamente - riscritto le guide in linea dei miei applicativi utilizzando il formato chm.\n\nL\'utente può richiamare la guida in linea da un\'icona che esegue (con shellexecute) il file chm.\n\nVorrei però dare all\'utente la possibilità di aprire la guida anche con il canonico \"F1\".\n\nPer la guida in formato .hlp utilizzavo la funzione SetHelpFile(&lt;nome del file .hlp&gt;); non mi sembra sia però previsto una funzione corrispondente per il formato .chm o sbaglio ?\n\nMarco','',0,'GA==','2s75n7cw',1,0,'',29,0,0),(2613,649,2,2,0,'80.58.2.107',1133178625,1,0,1,1,1,1,'','','Prueba a poner un extern Set en el PRG. \n\nEs algo que ocurre a veces con Blinker.','',0,'GA==','1cd45fzn',1,0,'',2,0,0),(2614,688,5,270,0,'65.27.183.36',1133180158,1,0,1,1,1,0,'','','It appears that Alaska is saying that all previous xBase++ modules must be recompiled.\n\nI\'ll email you for a rcompiled version of FW++ and I\'ll give it a try.\n\nThanks\nDan','',0,'GA==','26cb98du',1,0,'',270,0,0),(2615,689,20,29,0,'80.181.108.140',1133180186,1,0,1,1,1,0,'','','Come non detto. Risolto inserendo in testa alla mia applicazione:\n\nSETKEY( VK_F1, {|| &lt;apre il file .chm&gt; } )\n\nSaluti\n\nMarco','',0,'GA==','381jqwkt',1,0,'',29,0,0),(2616,689,20,29,0,'80.181.108.140',1133180838,1,0,1,1,1,0,'','','Mi rimane però un problema:\nfinché mi trovo nel menu principale dell\'applicazione, tutto funziona bene;\nse premo invece F1 da una DIALOG allora mi appare l\'errore \"No Help Available\" e subito dopo il messaggio di errore mi appare la guida .chm.\n\nSicuramente quando viene attivata la dialog viene intercettato il tasto F1,\nvi viene in mente qualche idea per risolvere il problema ?\n\nGrazie in anticipo\n\nMarco','',0,'GA==','350uchvi',1,0,'',29,0,0),(2617,649,2,294,0,'190.48.2.160',1133181006,1,0,1,1,1,0,'','','Antonio:\nAhora funciona el programa pero me pasa lo mismo que en mis programas, el preview me superpone los caracteres cuando hago el zoom. La particularidad que tiene es que el fondo de pagina, en lugar de ser blanco es gris.','',0,'GA==','14dolg7t',1,0,'',294,0,0),(2618,690,2,147,0,'200.117.219.153',1133181524,1,0,1,0,1,1,'','Ancho en Pixel','Se puede obtener el ancho, en pixels, de una cadean de texto?; como?\n\ngracias','',0,'GA==','2fpvuxwt',1,0,'',147,0,0),(2619,690,2,147,0,'200.117.219.153',1133181959,1,0,1,0,1,1,'','','gracias, ya lo encontré\n\nGetTextWidth( &lt;hDC&gt;, &lt;cString&gt;, [&lt;hFont&gt;] )  --&gt; &lt;nPixelWidth&gt;','',0,'','1avtcwvr',1,0,'',147,0,0),(2620,528,2,253,0,'83.231.9.156',1133182328,1,0,1,1,1,0,'','','En formato de CD yo tengo el del 2003. No sé si el contenido es el mismo del 2002 actualizado o ya es otro, pero si sirve lo puedo mandar.\nUn saludo.\nPepe Leyva.','',0,'','2se3855k',1,0,'',253,0,0),(2621,528,2,147,0,'200.117.219.153',1133183407,1,0,1,0,1,1,'','','Lo dejo en tus manos entonces','',0,'','2mrjfrqd',1,0,'',147,0,0),(2622,691,6,36,0,'200.113.56.235',1133184431,1,0,1,1,1,0,'','tDosPrn','Estimados\n\nExiste la posibilidad que en la clase tdosprn pueda imprimir en una impresora carro ancho, o cual sería el oprn:Command( ??? )\n\ndesde ya gracias\n\n\nSaludos \nPatricio','',0,'','3vzbu7mw',1,0,'',36,0,0),(2623,692,2,88,0,'82.150.2.18',1133190075,1,0,1,1,1,1,'','Error al pasar Variable ...','Saludos gente,\n\nllevo varias horas trabado con un error que no he podido solucionar. El caso es el siguiente.\n\nEn el cuerpo principal del programa declaro una variable y la inicializo:\n\nlocal [b:35x1m6n2]cCambiar[/b:35x1m6n2]:= space(9)\n\n\nLuego la paso como parametro de una funcion:\n\npBuscarPeticionario(mnif_cif, @mpriorita, @mfechanace, [b:35x1m6n2]@cCambiar[/b:35x1m6n2], oGrabarExpediente)\n\nDentro de esa funcion utilizo esa variable para hacer una comparacion, pero me daba un error.\n\nPara averiguar que valor estaba tomando use un MsgAlert:\n\nMsgAlert(\"Contenido de [b:35x1m6n2]cCambiar[/b:35x1m6n2]: \"+cCambiar,\"PACORR!!!\")\n\nY este fue el Error.log que me genero:\n\nTime from start: 0 hours 0 mins 18 secs \nError occurred at: 28/11/05, 13:08:37\nError description: Error BASE/1081  Error de argumento: +\nArgs:\n[   1] = U\n\n.\n.\n.\n\nParam   1:    C    \"42170002P\"\nParam   2:    C    \" \"\nParam   3:    D      /  /  \n[b:35x1m6n2]Param   4:    U [/b:35x1m6n2]\nParam   5:    O    Class: TMDICHILD\n\n\nHe intentado ponerle un valor:\n\nlocal cCambiar\n\ncCambiar:= \"algo\"\n\npBuscarPeticionario(mnif_cif, @mpriorita, @mfechanace, [b:35x1m6n2]@cCambiar[/b:35x1m6n2], oGrabarExpediente)\n...\n\nY sigue dandome el mismo error. Esto a que se puede deber? \n\n\nGracias de antemano!\n\n\n\nNos leemos!!','',0,'QA==','35x1m6n2',1,0,'',88,0,0),(2624,693,6,328,0,'200.12.61.91',1133190221,1,0,1,1,1,0,'','Duda sobre Herencia de Classes, no hereda valores en DATA','Estoy trabajando una clase que contiene DATAS y METHODS principales para una aplicación, pero al generar la siguiente clase que hereda de esta, solo hereda los METHODS pero no los datos asignados a las DATAS ? \nA continuación les pongo un ejemplo, para que me puedan decir que estoy haciendo mal. Gracias.\n\nCarlos Sincuir\n\n\n****PROGRAMA 1\n#Include \"FiveWin.ch\"\n\n//--------------------------------\nFUNCTION Main()\nLocal oApp, oSeg\n  oApp := TPrincipal():New()\n  ? oApp:cVersion  //Despliega \"Versión 1.0.1\" &lt;--todo bien\n\n  oSeg := TSegunda():New()\n\n  oSeg:Hola()   //Despliega el mesaje \"Hola...\" &lt;--todo bien\n\n  ? oSeg:cVersion //No despliega nada en el diálogo\n  ? ValType( oSeg:cVersion ) // Despliega \"U\" o variable no definida\n\nRETURN NIL\n\n//--------------------------------\nCLASS TPrincipal\n\n   DATA lIngreso         \n   DATA cVersion\n\n   METHOD New CONSTRUCTOR\n   METHOD Hola \n\nENDCLASS\n\n//--------------------------------\nMETHOD New() CLASS TPrincipal\n\n   ::lIngreso := .f.\n   ::cVersion := \"Versión 1.0.1\"\n\nRETURN Self\n\n//--------------------------------\nMETHOD Hola() CLASS TPrincipal\n\n   MsgAlert( \"Hola...\" )\n\nRETURN NIL\n\n\n****PROGRAMA 2\n#Include \"FiveWin.ch\"\n//--------------------------------\nCLASS TSegunda FROM TPrincipal \n\n   METHOD New() CONSTRUCTOR\n\nENDCLASS\n\n//--------------------------------\nMETHOD New() CLASS TSegunda\n\nRETURN Self','',0,'QA==','vnc935ko',1,0,'',328,0,0),(2625,693,6,21,0,'80.58.49.235',1133191160,1,0,1,1,1,1,'','','Hola carlos,\n\nLa llamada al método New() de la clase TSegunda no provoca la llamada al mismo método de la clase padre. Tienes que hacer tu que se llamara:\n[code:11fmwcfb]METHOD New&#40;&#41; CLASS TSegunda \nSuper&#58;New&#40;&#41;\nRETURN Self[/code:11fmwcfb]\n\no bien no definas el método New() dentro de la clase TSegunda. De esa forma la llamada a oSeg:New() lo realizará al new de TPrimera.','',0,'AIA=','11fmwcfb',1,0,'',21,0,0),(2626,694,6,329,0,'190.48.106.254',1133191207,1,0,1,1,1,0,'','compilar prg con harbour y xharbour','Amigos del foro, soy nuevito en esto y tengo una consulta que resulta de suma importancia.\nTengo una aplicacion armada en clipper, la cual tengo que migrar a harbour/xharbour. Esta aplicacion esta armada con varios prg, de la siguiente manera:\nun prg funciona como menu (un main principal), el resto de los prg dependen de este menu, que indica cual de las subaplicaciones se ejecutara.\nAhora, cuando yo tenga que migrar esta aplicacion, como deberia de hacerlo?, compilar todos los prg, que se armen los obj y luego linkear para que se arme un solo exe, o tengo que obligaroriamente generar un exe por cada prg?. Por favor el que pueda ayudarme sera eternamente agradecido, es de suma urgencia.\nMuchas Gracias... \n\nPD: se pueden comunicar conmigo por mail, o por msn, si no me equivoco estan todas las opciones puestas.','',0,'AIA=','rodny4fw',1,0,'',329,0,0),(2627,693,6,328,0,'200.12.61.91',1133193715,1,0,1,1,1,0,'','','[quote:2i1hsf1j]Gracias fgondi,\nAl agregar Super:New() en el Method New() de la segunda clase ya funciono, pero ahora tengo este otro problema, si te fijas yo coloque otra varible como DATA en TPrincipal esa es lIngreso, que al inicio tiene un valor .f., pero como en la clase principal hago el proceso de ingreso al sistema, esta variable puede cambia de valor, si todo esta bien a .t., pero en la segunda siempre tendrá el valor .f.\nComo se podrá arreglar esto.\n\nSaludos,\n\nCarlos Sincuir\n\n\nEj.: \n[code:2i1hsf1j]#Include &quot;FiveWin&#46;ch&quot;\n\n//--------------------------------\nFUNCTION Main&#40;&#41;\nLocal oApp, oSeg\n  oApp &#58;= TPrincipal&#40;&#41;&#58;New&#40;&#41;\n  oApp&#58;Ingreso&#40;&#41;\n  ? oApp&#58;lIngreso  // Obtego &#46;t&#46;\n\n  oSeg &#58;= TSegunda&#40;&#41;&#58;New&#40;&#41;\n  ? oSeg&#58;lIngreso  //Obtengo &#46;f&#46;\n\nRETURN NIL\n\n\n//--------------------------------\nCLASS TPrincipal\n\n   DATA lIngreso         \n   DATA cVersion\n\n   METHOD New CONSTRUCTOR\n   METHOD Hola \n   METHOD Ingreso\n\nENDCLASS\n\n//--------------------------------\nMETHOD New&#40;&#41; CLASS TPrincipal\n\n   &#58;&#58;lIngreso &#58;= &#46;f&#46;\n   &#58;&#58;cVersion &#58;= &quot;Versión 1&#46;0&#46;1&quot;\n\nRETURN Self\n\n//--------------------------------\nMETHOD Hola&#40;&#41; CLASS TPrincipal\n\n   MsgAlert&#40; &quot;Hola&#46;&#46;&#46;&quot; &#41;\n\nRETURN NIL\n\n//--------------------------------\nMETHOD Ingreso&#40;&#41; CLASS TPrincipal\n\n   &#58;&#58;lIngreso &#58;= &#46;t&#46;\n\nRETURN NIL[/code:2i1hsf1j]\n\n\n[code:2i1hsf1j]#Include &quot;FiveWin&#46;ch&quot;\n//--------------------------------\nCLASS TSegunda FROM TPrincipal \n\n   METHOD New&#40;&#41; CONSTRUCTOR\n\nENDCLASS\n\n//--------------------------------\nMETHOD New&#40;&#41; CLASS TSegunda\n\n   Super&#58;New&#40;&#41;\n\nRETURN Self[/code:2i1hsf1j][/quote:2i1hsf1j]\n\n\n[quote=&quot;fgondi&quot;:2i1hsf1j]Hola carlos,\n\nLa llamada al método New() de la clase TSegunda no provoca la llamada al mismo método de la clase padre. Tienes que hacer tu que se llamara:\n[code:2i1hsf1j]METHOD New&#40;&#41; CLASS TSegunda \nSuper&#58;New&#40;&#41;\nRETURN Self[/code:2i1hsf1j]\n\no bien no definas el método New() dentro de la clase TSegunda. De esa forma la llamada a oSeg:New() lo realizará al new de TPrimera.[/quote:2i1hsf1j]','',0,'gIA=','2i1hsf1j',1,0,'',328,0,0),(2628,695,6,88,0,'82.150.2.18',1133194102,1,0,1,1,1,1,'','Error al pasar Variable ...','Saludos gente,\n\nllevo varias horas trabado con un error que no he podido solucionar. El caso es el siguiente.\n\nEn el cuerpo principal del programa declaro una variable y la inicializo:\n\nlocal [b:2jrw9tm0]cCambiar[/b:2jrw9tm0]:= space(9)\n\n\nLuego la paso como parametro de una funcion:\n\npBuscarPeticionario(mnif_cif, @mpriorita, @mfechanace, [b:2jrw9tm0]@cCambiar[/b:2jrw9tm0], oGrabarExpediente)\n\nDentro de esa funcion utilizo esa variable para hacer una comparacion, pero me daba un error.\n\nPara averiguar que valor estaba tomando use un MsgAlert:\n\nMsgAlert(\"Contenido de [b:2jrw9tm0]cCambiar[/b:2jrw9tm0]: \"+cCambiar,\"PACORR!!!\")\n\nY este fue el Error.log que me genero:\n\nTime from start: 0 hours 0 mins 18 secs \nError occurred at: 28/11/05, 13:08:37\nError description: Error BASE/1081  Error de argumento: +\nArgs:\n[   1] = U\n\n.\n.\n.\n\nParam   1:    C    \"42170002P\"\nParam   2:    C    \" \"\nParam   3:    D      /  /  \n[b:2jrw9tm0]Param   4:    U [/b:2jrw9tm0]\nParam   5:    O    Class: TMDICHILD\n\n\nHe intentado ponerle un valor:\n\nlocal cCambiar\n\ncCambiar:= \"algo\"\n\npBuscarPeticionario(mnif_cif, @mpriorita, @mfechanace, [b:2jrw9tm0]@cCambiar[/b:2jrw9tm0], oGrabarExpediente)\n...\n\nY sigue dandome el mismo error. Esto a que se puede deber? \n\n\nGracias de antemano!\n\n\n\nNos leemos!!','',0,'QA==','2jrw9tm0',1,0,'',88,0,0),(2629,694,6,88,0,'82.150.2.18',1133195983,1,0,1,1,1,1,'','','Buenas, \n\nlo logico es que generases los objetos de todos los .prg y luego con un linkador lo unas en un unico ejecutable.\n\n\nDe todas formas, una vez adquieras el Harbour/xHarbour, supongo, que te vendra un manual de consulta basico en el que te expliquen ese tipo de cosas.\n\n\n\nNos leemos!!','',0,'QA==','3ghaxi3v',1,0,'',88,0,0),(2630,693,6,21,0,'80.58.49.235',1133197419,1,0,1,1,1,1,'','','Hola Carlos,\n\nSon objetos distintos y por tanto no pueden traspasarse valores.\n\nCada vez que creas un objeto este es totalmente indipendiente del resto que hayas creado, es como si crearas lo siguiente:\n\n[code:13xko2zm]aArray   &#58;= &#123;\'Pepe\', \'Pedro\', \'Carlos\'&#125;\naArray1 &#58;= aClone&#40;aArray&#41;\naArray&#91;1&#93; &#58;= \'Luis\'\naArray2 &#58;= aClone&#40;aArray&#41;\n? aArray&#91;1&#93;  // Luis\n? aArray&#91;2&#93; // Pepe[/code:13xko2zm]\n\nLo que haces es crear un nuevo objeto con los datos iniciales.\n\nRevisa que es lo que te interesa hacer, una solución, chapucera, es meter un objeto dentro del otro, por ejemplo:\n[code:13xko2zm]\n//-------------------------------- \nFUNCTION Main&#40;&#41; \nLocal oApp, oSeg \n  oApp &#58;= TPrincipal&#40;&#41;&#58;New&#40;&#41; \n  oApp&#58;Ingreso&#40;&#41; \n  ? oApp&#58;lIngreso  // Obtego &#46;t&#46; \n\n  oSeg &#58;= TSegunda&#40;&#41;&#58;New&#40;&#41; \n  oSeg&#58;oApp &#58;= oApp\n  ? oSeg&#58;oApp&#58;lIngreso  //Obtengo &#46;t&#46; \n\nRETURN NIL\n\n\n#Include &quot;FiveWin&#46;ch&quot; \n//-------------------------------- \nCLASS TSegunda\n\n   DATA oApp\n   METHOD New&#40;&#41; CONSTRUCTOR \n\nENDCLASS \n\n//-------------------------------- \nMETHOD New&#40;&#41; CLASS TSegunda \n\nRETURN Self[/code:13xko2zm]\n\nYa no te haría falta declarar la clase TSegunda como hija de TPrimera.','',0,'AIA=','13xko2zm',1,0,'',21,0,0),(2631,693,6,328,0,'200.12.61.91',1133197726,1,0,1,1,1,0,'','','Gracias Fernando, eso es lo que creo que voy a tener que hacer, muchas gracias por tomarte el tiempo en contestarme.\n\nSaludos,\n\nCarlos Sincuir\n\n[quote=&quot;fgondi&quot;:gpigkqjt]Hola Carlos,\n\nSon objetos distintos y por tanto no pueden traspasarse valores.\n\nCada vez que creas un objeto este es totalmente indipendiente del resto que hayas creado, es como si crearas lo siguiente:\n\n[code:gpigkqjt]aArray   &#58;= &#123;\'Pepe\', \'Pedro\', \'Carlos\'&#125;\naArray1 &#58;= aClone&#40;aArray&#41;\naArray&#91;1&#93; &#58;= \'Luis\'\naArray2 &#58;= aClone&#40;aArray&#41;\n? aArray&#91;1&#93;  // Luis\n? aArray&#91;2&#93; // Pepe[/code:gpigkqjt]\n\nLo que haces es crear un nuevo objeto con los datos iniciales.\n\nRevisa que es lo que te interesa hacer, una solución, chapucera, es meter un objeto dentro del otro, por ejemplo:\n[code:gpigkqjt]\n//-------------------------------- \nFUNCTION Main&#40;&#41; \nLocal oApp, oSeg \n  oApp &#58;= TPrincipal&#40;&#41;&#58;New&#40;&#41; \n  oApp&#58;Ingreso&#40;&#41; \n  ? oApp&#58;lIngreso  // Obtego &#46;t&#46; \n\n  oSeg &#58;= TSegunda&#40;&#41;&#58;New&#40;&#41; \n  oSeg&#58;oApp &#58;= oApp\n  ? oSeg&#58;oApp&#58;lIngreso  //Obtengo &#46;t&#46; \n\nRETURN NIL\n\n\n#Include &quot;FiveWin&#46;ch&quot; \n//-------------------------------- \nCLASS TSegunda\n\n   DATA oApp\n   METHOD New&#40;&#41; CONSTRUCTOR \n\nENDCLASS \n\n//-------------------------------- \nMETHOD New&#40;&#41; CLASS TSegunda \n\nRETURN Self[/code:gpigkqjt]\n\nYa no te haría falta declarar la clase TSegunda como hija de TPrimera.[/quote:gpigkqjt]','',0,'gIA=','gpigkqjt',1,0,'',328,0,0),(2632,674,6,279,0,'201.133.101.234',1133197891,1,0,1,1,1,0,'','Funciona bien el BUTTONBMP','Antonio si esta funcionando bien era un problema con la dirección de las imágenes. Solo falta que los acomode a la izquierda.\n\nMuchas Gracias.','',0,'gIA=','6ih8k4ve',1,0,'',279,0,0),(2633,696,6,279,0,'201.133.101.234',1133198287,1,0,1,1,1,0,'','Problemas con IMAGE','Antonio con el ejemplo que tienes de IMAGE  funciona bien.\n\n #include \"FiveWin.ch\"\n#include \"Image.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   LOCAL oDlg, oImage\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 20, 60 ;\n      TITLE FWDESCRIPTION + \" JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!\"\n\n   @ 0, 0 IMAGE oImage SIZE 150, 150 OF oDlg SCROLL // ADJUST\n\n   oImage:Progress( .f. )\n\n   @ 1, 30 BUTTON \"Select Image\" SIZE 50,10 OF oDlg ACTION GetImage( oImage )\n\n   @ 2, 30 BUTTON \"Print\" SIZE 50,10 OF oDlg ACTION PrintImage( oImage )\n\n   @ 3, 30 BUTTON \"Copy\" SIZE 50, 10 OF oDlg ;\n      ACTION oImage:CopyToClipboard()\n\n   @ 4, 30 BUTTON \"Paste\" SIZE 50, 10 OF oDlg ;\n      ACTION ( oImage:LoadFromClipboard(), oImage:Refresh() )\n\n   @ 5, 30 BUTTON \"Exit\" SIZE 50, 10 OF oDlg ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTER\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction GetImage( oImage )\n\n   local gcFile := cGetFile( \"Bitmap (*.bmp)| *.bmp|\" +         ;\n                             \"DIB   (*.dib)| *.dib|\" +          ;\n                             \"PCX   (*.pcx)| *.pcx|\"  +         ;\n                             \"JPEG  (*.jpg)| *.jpg|\" +          ;\n                             \"GIF   (*.gif)| *.gif|\"  +         ;\n                             \"TARGA (*.tga)| *.tga|\" +          ;\n                             \"RLE   (*.rle)| *.rle|\" +          ;\n                             \"All Files (*.*)| *.*\"             ;\n                            ,\"Please select a image file\", 4 )\n\n   if ! Empty( gcFile ) .and. File( gcFile )\n      oImage:LoadBmp( gcFile )\n   endif\n\nreturn nil\nno funciona.\n\nPero haciendo estos cambios ya no funciona no aparece la imagen solo con la clase FreeImage.\n\n#include \"FiveWin.ch\"\n#include \"Image.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   LOCAL oDlg, oImage, oBtn1, oBtn2,oBtn3,oBtn4,oBtn5\n\n   DEFINE DIALOG oDlg RESOURCE \"DLG_WEBCAM_FOTO\"\n\n   REDEFINE IMAGE oImage ID 108 OF oDlg SCROLL // ADJUST\n   oImage:Progress( .f. )\n   \n   REDEFINE BUTTONBMP oBtn1 ID 100 OF oDlg BITMAP \".\\BMPS\\ACEPTAR16.BMP\" ;\n                  ACTION GetImage( oImage )\n   REDEFINE BUTTONBMP oBtn2 ID 101 OF oDlg BITMAP \".\\BMPS\\ACEPTAR16.BMP\" ;\n                  ACTION PrintImage( oImage )\n   REDEFINE BUTTONBMP oBtn3 ID 102 OF oDlg BITMAP \".\\BMPS\\ACEPTAR16.BMP\" ;\n                  ACTION oImage:CopyToClipboard()\n   REDEFINE BUTTONBMP oBtn4 ID 103 OF oDlg BITMAP \".\\BMPS\\ACEPTAR16.BMP\" ;\n                  ACTION ( oImage:LoadFromClipboard(), oImage:Refresh() )\n   REDEFINE BUTTONBMP oBtn5 ID 104 OF oDlg BITMAP \".\\BMPS\\ACEPTAR16.BMP\" ;\n                  ACTION oDlg:End()\n\n\n   ACTIVATE DIALOG oDlg CENTER\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction GetImage( oImage )\n\n   local gcFile := cGetFile( \"Bitmap (*.bmp)| *.bmp|\" +         ;\n                             \"DIB   (*.dib)| *.dib|\" +          ;\n                             \"PCX   (*.pcx)| *.pcx|\"  +         ;\n                             \"JPEG  (*.jpg)| *.jpg|\" +          ;\n                             \"GIF   (*.gif)| *.gif|\"  +         ;\n                             \"TARGA (*.tga)| *.tga|\" +          ;\n                             \"RLE   (*.rle)| *.rle|\" +          ;\n                             \"All Files (*.*)| *.*\"             ;\n                            ,\"Please select a image file\", 4 )\n\n   if ! Empty( gcFile ) .and. File( gcFile )\n      oImage:LoadBmp( gcFile )\n   endif\n\nreturn nil\n\nMuchas Gracias\nMario Espinosa','',0,'gIA=','24z1sgrw',1,0,'',279,0,0),(2634,689,20,6,0,'87.6.210.253',1133200771,1,0,1,1,1,1,'','','Nessuna idea che non richieda la modifica della classe TDialog...\n\nEMG','',0,'gIA=','1cu5x3z5',1,0,'',6,0,0),(2635,696,6,2,0,'80.58.2.107',1133201841,1,0,1,1,1,1,'','','Mario,\n\nEnvíame por email el RC de tu ejemplo y el PRG (ya de paso). Gracias.','',0,'gIA=','1zglot05',1,0,'',2,0,0),(2636,528,2,253,0,'80.58.13.43',1133202535,1,0,1,1,1,0,'','','Antonio, como te lo mando?. Comprimido ocupa 465 MB.\nPepe Leyva.','',0,'gIA=','l25ibfj4',1,0,'',253,0,0),(2637,655,6,123,0,'81.39.238.51',1133202925,1,0,1,1,1,0,'','','Joel,\n\n[quote:3e98qt9c]\"OLE Error Value : Unknown error\", esto cuando intento tomar el valor con : nEmpresa:=oRs:Fields(\'InEmpNum\'):Value\n[/quote:3e98qt9c]\n\nUsas ADO contra MySql... ¿Como? ¿ODBC? Si es Odbc, cual versión de MyOdbc usas?? ¿Cual versión de MySql? ¿y de ADO?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','3e98qt9c',1,0,'',123,0,0),(2638,686,3,47,0,'58.8.243.122',1133203978,1,0,1,1,1,0,'','I\'ve 2 DLL files in my app.?','Dear Antonio,\n\nI\'ve 2 DLL files.  The 1st DLL used for fixed screen such as setup screen and another one is entry screen (able to modify for each customer site).  \n\nI used 1st DLL as RC file in my FW16bit and 2nd as DLL file.  I can set resource from default RC file to external DLL but It doesn\'t work with xHB/FWH.  How can I fix it?\n\nRegards,\nDutch','',0,'gA==','2uczdlkb',1,0,'',47,0,0),(2639,687,3,47,0,'58.8.243.122',1133204061,1,0,1,1,1,0,'','I got it.','Thanks&amp;Regards,\nDutch','',0,'gA==','mm56314n',1,0,'',47,0,0),(2640,638,20,263,0,'87.6.229.212',1133204616,1,0,1,1,1,0,'','','Grazie Marco, ho scaricato tutto.\nVoglio solo fare delle prove, nel caso in cui dovesse servirmi.\n\nCiao\nGiovanni','',0,'gA==','39ez55t9',1,0,'',263,0,0),(2641,670,1,320,0,'201.151.75.180',1133207133,1,0,1,1,1,0,'','','Muchas gracias Antonio.   Funcionó a la perfección.\n\nSaludos\nAndrés','',0,'gA==','k2c79xcz',1,0,'',320,0,0),(2642,697,7,63,0,'80.58.35.107',1133207481,1,0,1,1,1,0,'','¿Se puede predeterminar el Shared folder en el emulador?','Pues eso: ¿Se puede predeterminar un directorio como Shared folder de forma que cuando se arranque elemulador lo tome directamente por defecto? ¿Cómo?\nGracias\nRafael','',0,'gA==','3ued9utf',1,0,'',63,0,0),(2643,698,3,51,0,'80.122.88.242',1133208902,1,0,1,1,1,0,'','browser different row high','Is it possible to have a browser with different row high, I mean some rows with 3 lines some with 1 or 2.\nThanks in advance\nOtto','',0,'gA==','3kgneu8z',1,0,'',51,0,0),(2644,697,7,262,0,'83.97.168.15',1133210052,1,0,1,1,1,1,'','','la primera vez que arrancas el emulador , cuando lo cierras (con la x , por ejemplo ) te pregunta si guardas el estado del emulador , le dices que si .La siguiente vez para arrancarlo usas el enlace que pone Emulate Pocket PC-WM 2003 SE(Restore) OJO RESTORE , y ese te arranca con la configuración que guardaste antes .\nSaludos.','',0,'gA==','hwsq2gll',1,0,'',262,0,0),(2645,699,7,262,0,'83.97.168.15',1133210529,1,0,1,1,1,1,'','una cosa rara','En mi programa , si lo lanzo desde el explorador ,  el programa me saca el icono de teclado ( si el de la esquina derecha-abajo) , pero si lo lanzo desde un acceso directo del menu inicio , este icono no aparece , con el consiguiente trastorno .\n¿ Existe alguna funcion para forzar al programa a que lo ponga ? .\nOjo , no me refiero a que saque el teclado , sino a que ponga el icono .\n\nPor otro lado , para quien lo pueda necesitar , mientras Antonio nos pone un meter , estos se pueden imitar con dos say superpuestos ,uno blanco y otro de fondo azul , este se le cambia de largo y se le refresca ,  yo he puesto uno en el programa y da el pego ( salvo el contador de porcentaje ) \nSaludso.','',0,'gA==','35lahwsu',1,0,'',262,0,0),(2646,700,3,51,0,'80.122.88.242',1133214944,1,0,1,1,1,0,'','drag and drop from Outlook','I need to be able to drag and drop an email from Outlook not Outlook express and save it as a file (msg) somewhere. \n\nHas anyone seen a solution for this? It must be possible since you can\ndrag an email out of outlook to explorer and it saves as a .msg file. I want\nbasically the same result, but through my application. Any ideas would be\ngreatly appreciated!','',0,'gA==','3ojgzw2a',1,0,'',51,0,0),(2647,698,3,6,0,'87.6.210.253',1133221198,1,0,1,1,1,1,'','Re: browser different row high','I think not. At least not using the standard FWH browsers.\n\nEMG','',0,'gA==','u0sjnutg',1,0,'',6,0,0),(2648,701,2,228,0,'200.119.51.53',1133222929,1,0,1,1,1,0,'','bases de datos en servidor linux','Hola a todos los compañeros del foro, el problema es el siguiente:\n\nTengo un servidor linux, 14 terminales LINUX, en este momento estoy leyendo los archivos en una de las terminales, pero quiero pasar mis bases de datos al servidor de linux (para solo lectura), ¿lo puedo hacer.? \n\nUN ABRAZO\nLEANDRO ALFONSO\nBogotá (Colombia)','',0,'gA==','184k9mlp',1,0,'',228,0,0),(2649,702,2,228,0,'200.119.51.53',1133223423,1,0,1,1,1,0,'','clase tdosprn con previsual','Hola otra vez yo.\n\nNecesito imprimir en matriz de punto, pero con la opcion de previsualizacion; alguna vez estuvo en mis manos esta clase pero no la encuentro.\n\nAlguien me la puede enviar.\n\nDESDE COLOMBIA\nLEANDRO ALFONSO','',0,'gA==','1nlkldjk',1,0,'',228,0,0),(2650,703,6,328,0,'200.12.61.91',1133226450,1,0,1,1,1,0,'','Solucionado problema con herencia en clases...','Hola a todos, gracias a la ayuda de Oskar y Fernando \"Fgondi\", logre solucionar mi problema al querer heredar DATAS en las clases que estoy construyendo, era solo de declara \"CLASSDATA\" las variables que quieron sean heredades con sus valores alterados en la clase principal.\nEste es un ejemplo.\n\n[code:1z4qgb0p]#Include &quot;FiveWin&#46;ch&quot;\n\n//--------------------------------\nFUNCTION Main&#40;&#41;\nLocal oApp, oSeg\n  oApp &#58;= TPrincipal&#40;&#41;&#58;New&#40;&#41;\n\n  oApp&#58;Ingreso&#40;&#41;\n  ? oApp&#58;lIngreso     //--------&gt; el resultado es &#46;T&#46;\n\n  oSeg &#58;= TSegunda&#40;&#41;&#58;New&#40;&#41;\n  ? oSeg&#58;lIngreso //--------&gt; el resultado es &#46;T&#46;  &quot;como quería&quot;\n\n\nRETURN NIL\n\n\n//--------------------------------\nCLASS TPrincipal\n\n   DATA cVersion\n   CLASSDATA lIngreso\n \n   METHOD New CONSTRUCTOR   \n   METHOD Ingreso\n\nENDCLASS\n\n//--------------------------------\nMETHOD New&#40;&#41; CLASS TPrincipal\n\n   &#58;&#58;lIngreso &#58;= &#46;F&#46;\n   &#58;&#58;cVersion &#58;= &quot;Versión 1&#46;0&#46;1&quot;\n\nRETURN Self\n\n//--------------------------------\nMETHOD Ingreso&#40;&#41; CLASS TPrincipal\n\n   &#58;&#58;lIngreso &#58;= &#46;T&#46;\n\nRETURN NIL[/code:1z4qgb0p]\n\n[code:1z4qgb0p]#Include &quot;FiveWin&#46;ch&quot;\n//--------------------------------\nCLASS TSegunda FROM TPrincipal \n\n   METHOD New&#40;&#41; CONSTRUCTOR\n\nENDCLASS\n\n//--------------------------------\nMETHOD New&#40;&#41; CLASS TSegunda\n\nRETURN Self[/code:1z4qgb0p]\n\nSaludos,\n\nCarlos Sincuir','',0,'AIA=','1z4qgb0p',1,0,'',328,0,0),(2651,661,2,78,0,'201.240.204.105',1133226587,1,0,1,1,1,0,'','','No hay solucion para mi lio??\n\nSalu2\nWilli','',0,'AIA=','1poo8esd',1,0,'',78,0,0),(2652,661,2,138,0,'201.128.111.75',1133232105,1,0,1,1,1,1,'','','Tienes un problema de \"late Bindery\" o interpretacion tardia, eso pasa muy a menudo con los comando cuando pretendes hacerlos trabajar dentro de ciclos y cosas asi.\n\nLo que tienes que hacer es trabajar directamente con el metodo constructor de la clase, este metodo constructor recibe como parametro un bloque de codigo que es el que se encarga de pintar la cabecera, el problema es que estas pasando un valor dinamico...  imaginate esto:\n\nFor nCont := 1 TO 3\n   COLUMN TITLE aCabe[nCont] DATA .....\nNext\n\nla pregunta.... cuanto vale nCont despues de ejecutar el ciclo..... 3....\ny tu pusiste que el titulo de la columna es aCabe[ncont], no aCabe[1], no aCabe[2] , si no nCont, y claro ese valor varia.\n\nCual es la solucion ?, crear una CADENA DE CARACTERES con los valores textuales y luego convertirla en bloque de codigo para pasarla directamente al metodo constructor de la clase, en este caso a la funcion que crea la columna del reporte.','',0,'','1t3klyuh',1,0,'',138,0,0),(2653,698,3,138,0,'201.128.111.75',1133232211,1,0,1,1,1,1,'','','Standar FWH Browse not, give a try to Hernan\'s TWBrowse (comming soon ver 1.8 with nice enhacements and features) or TSBrowse','',0,'','3ovpdrat',1,0,'',138,0,0),(2654,666,3,160,0,'210.212.142.6',1133241076,1,0,1,1,1,0,'','Re: AnyWay','Dear Armando,\n\nI am working on that only but there I did not see any CC and BCC option. Can u guide further.\n\nTIA\nMilan.\n\n\n[quote=&quot;Armando&quot;:ecvruwp7]TIA\n\nIn the x:\\FWH\\Samples folder you will find an example (TestMail.Prg) using MAPI, it works fine. Perhaps that is what you need.\n\nRegards, Armando[/quote:ecvruwp7]','',0,'gA==','ecvruwp7',1,0,'',160,0,0),(2655,704,3,333,0,'80.237.46.134',1133242673,1,0,1,1,1,0,'','IDE','Begin programme m FiveWin.Prompt, where take the idle time, suitable designer of the forms?','',0,'gA==','50og4joe',1,0,'',333,0,0),(2656,705,3,47,0,'58.8.184.34',1133247117,1,0,1,1,1,0,'','How can I call external 2 DLL files in my prog?*Successful*','Dear All,\n\nI\'ve used our 2 DLL files.  How can I register or load in program and switch to use Dialog in 2nd Resource file (DLL)?  I\'ve used in FW16bits but I don\'t know how to use with xHB/FWH 2.5.\n\nThanks in advance,\nDutch','',0,'gA==','4e3cq6mi',1,1133430803,'',47,2,0),(2657,661,2,2,0,'80.58.2.107',1133251061,1,0,1,1,1,1,'','','Willi,\n\nPrueba así, usando \"detached locals\":\n\nCOLUMN oCol TITLE \"\" DATA SubStr(Almmas-&gt;codcta,1,15)\n\noCol:aTitle = GetTitle( aCabe, nCont )\n\n...\n\nfunction GetTitle( aCabe, nCont )\n\nreturn { || aCabe[ nCont ] }\n\nó prueba a devolver esto:\n\nreturn { { || aCabe[ nCont ] } }','',0,'','38gqelvz',1,0,'',2,0,0),(2658,695,6,2,0,'80.58.2.107',1133251893,1,0,1,1,1,1,'','','No debería ocurrir lo que comentas, pero prueba a hacer la asignación de nuevo dentro de la función a la que llamas:\n\nlocal cCambiar:= space(9) \n\npBuscarPeticionario(mnif_cif, @mpriorita, @mfechanace, @cCambiar, oGrabarExpediente)\n\n...\n\nfunction pBuscarPeticionario( ... )\n\n   cCambiar := Space( 9 ) \n   ...','',0,'','17dqhvti',1,0,'',2,0,0),(2659,704,3,2,0,'80.58.2.107',1133252234,1,0,1,1,1,1,'','','Vladimir,\n\nTo design the forms, you have to use a resources editor, like the Borland Resources Workshop, or Microsoft Visual Studio Resources Editor.\n\nWe recommend the free PellesC resources editor (built inside the IDE) <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m -->','',0,'','21n4zsaf',1,0,'',2,0,0),(2660,706,3,29,0,'80.181.108.140',1133255977,1,0,1,1,1,0,'','Packing xHB+FWH executable with PEcompact','Hello,\nI\'m trying PEcompact (<!-- w --><a class=\"postlink\" href=\"http://www.bitsum.com\">www.bitsum.com</a><!-- w -->) to reduce my app size \nand crypt it.\n\nAll seem to runs fine and my app size is now 1.5 MB from the original 6.5MB uncompressed.\n\nHowever I would like to know if anyone already used  PEcompact and if any problem occurred.\n\nThanks in advance.\n\nBest Regards,\n\n-- \nMarco Turco\nSOFTWARE XP LLP, London\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk\">www.softwarexp.co.uk</a><!-- w -->','',0,'','2c5859h5',1,0,'',29,0,0),(2661,707,7,262,0,'212.89.4.36',1133257419,1,0,1,1,1,1,'','Problema en get numericos','al intentar entrar datos en get con picture \"9999,99\" tiene un comportamiento estraño , incluse con el picture \"9999\" , tambien le pasa ,\npara verlo cambiando los pictures del tutor05 , vale .','',0,'','2buy19ya',1,0,'',262,0,0),(2662,697,7,63,0,'80.58.35.107',1133258006,1,0,1,1,1,0,'','','José Luis:\nMuchas gracias. Funciona perfecto.\nY una cosa más:  ¿Has conseguido que tampoco aparezca la pregunta que hace al restaurar \"Do you want to allow folder sharing...\"?\n\nRafael','',0,'','3jdiwme8',1,0,'',63,0,0),(2663,692,2,294,0,'190.48.1.167',1133262203,1,0,1,1,1,0,'','','Chantiel:\nSi no le haces ninguna asignacion antes de la llamada a la funcion, proba inicializando dentro de la funcion pBuscarPeticionario() a ver si te tira el mismo error.\nSi haces una asignacion antes fijate que valor le estas asignando porque seguro que el error esta ahí.\nSuerte...','',0,'','i1vjapia',1,0,'',294,0,0),(2664,708,3,26,0,'193.95.231.166',1133269290,1,0,1,1,1,1,'','Fwh 2.7 - dbfdbt.lib','Hello!\n\nI installed latest FWH with harbour for MSVC and when I try to build sample TESTSAY, it reports that it cannot open \"dbfdbt.lib\" ...\n\nRoman','',0,'','3gxw1bif',1,0,'',26,0,0),(2665,709,6,329,0,'190.48.106.254',1133269863,1,0,1,1,1,0,'','Error: Unresolved External \'HB_FUN_XXXX\' (desesperado)','Amigos del foro... estoy utilizando el makefile brmake, los prg ya los modifique poniendo al comienzo el Func MyPrg(), los compila correctamente, pero cuando tiene que linkear los obj me tira el error que les puse en el subject.\nLo voy a ampliar:\n\n*** Error: Unresolved External \'HB_FUN_GUINIOON\' referenced from f:\\clipper5\\obj\\PRNFUNC.OBJ ***\n\nComo esta tengo varias donde lo que cambia es el nombre de la funcion de harbour \'HB_FUN_XXXXXXX\'.\n\nAlguien me puede dar una mano... estoy desesperado.\n\nDesde ya muchas gracias...','',0,'','2xzo05ox',1,0,'',329,0,0),(2666,697,7,262,0,'83.97.168.15',1133271883,1,0,1,1,1,1,'','','Pues la verdad ni me lo he planteado , pero bueno le digo que si y listo','',0,'','1m85g3nt',1,0,'',262,0,0),(2667,710,6,61,0,'201.217.144.235',1133274668,1,0,1,1,1,0,'','ADS 8 Por las dudas.','Amigos:\nrecién bajé la version 8 Ads (Arc32) , utilidad para\nmanejas archivos DBF,ADT etc.\n\nEn el programa con Harbour hay que sacarle el guión\nal REQUEST_ADS, AHORA VA -&gt; REQUEST ADS\n\nYa lo dijo Rene antes pero como pase un rato con esto...\n\nSaludos\n\nRuben Fernandez','',0,'','1qj3celo',1,0,'',61,0,0),(2668,698,3,51,0,'80.122.88.242',1133275350,1,0,1,1,1,0,'','','Thank you for your answer.\nDo you really think you can have different row-highs in one and the same browser.\nCould I download somewhere a demo?\n\nRegards\nOtto','',0,'','33754sdh',1,0,'',51,0,0),(2669,708,3,6,0,'87.1.225.138',1133275868,1,0,1,1,1,1,'','Re: Fwh 2.7 - dbfdbt.lib','dbfdbt.lib is no more needed. Please have a look at the standard FWH building batch.\n\nEMG','',0,'','3qsayj4q',1,0,'',6,0,0),(2670,708,3,26,0,'195.210.234.44',1133276684,1,0,1,1,1,1,'','','Thanks.\n\nI replaced dbfdbt with dbffpt &amp; hbsix and now it is OK.\n\nRegards, Roman','',0,'','2wrt5uup',1,0,'',26,0,0),(2671,655,6,40,0,'200.56.162.170',1133277018,1,0,1,1,1,0,'','','José Luis, estoy usando FWH 2.4 + Microsoft-SQL + ADO (TOleAuto del master José Gimenez)\n\nYa he trabajado con Odbc utilizando TOdbc() y va muy bien, pero ahora busco mejorar los tiempos usando ADO y me he topado con el problema que les comento.\n\nGracias a todos saludos \nJoel Andujo','',0,'','2nit9nsg',1,0,'',40,0,0),(2672,567,6,168,0,'200.93.53.18',1133278327,1,0,1,1,1,0,'','','Si pero no le estas pasando el nombre de la tabla en el stored proc...','',0,'','1hk0bugi',1,0,'',168,0,0),(2673,707,7,2,0,'80.58.2.107',1133288842,1,0,1,1,1,1,'','','Jose Luis,\n\nvamos a probarlo y te comentamos cuanto antes.','',0,'','3l426tu7',1,0,'',2,0,0),(2674,705,3,2,0,'80.58.2.107',1133289551,1,0,1,1,1,1,'','','Dutch,\n\nYou may select one of the DLLs doing a:\n\nSET RESOURCES TO \"name_dll\"\n\nbefore using resources from it.','',0,'','2skl7l0e',1,0,'',2,0,0),(2675,711,20,125,0,'213.140.6.105',1133290196,1,0,1,1,1,0,'','info su:   oget:ldrag:=.t.','Salve, mi viene male chiedere in questo nuovo  forum .... magari poi mi abituo.\nDati del mio (ennesimo) problema:\n\n\n\n... get oget1 var pippo1\n... get oget2 var pippo2\n\noget1:ldrag:=.t.\noget2:ldrag:=.t.\n\nactivate ....\n\n\nVolevo che al muovere di pippo1 si muovesse anche pippo2\nho provato con:\noget1:bMoved:={ || miafunzione() }\n\nma ho visto che tale funzione viene chiamata solo al rilascio di pippo1 io volevo invece qualcosa che venisse richiamato ad ogni spostamento di pippo1\n\nChiedo troppo?\nHelp (alle solite anime gentili)\nPiscicelli/Zingoni','',0,'','1q7ccjkj',1,0,'',125,0,0),(2676,705,3,47,0,'203.144.143.6',1133291144,1,0,1,1,1,0,'','It doesn\'t work with the same code FW and FWH','Dear Antonio,\n\nThis is my code is following and it\'ve shown below message on EntryScr procedure.\n\n** Fivewin Error/3 Cannot Create Dialog **\n\n//---------------//\nFunction Main\nPublic hResc\n\nhResc := LoadLibrary( \"BWCC32.dll\" )  // new fwh\n \nSET RESOURCES TO \"EZ4SCR.DLL\"   // new fwh\nSET RESOURCES TO \"EZ4.DLL\"   // new fwh\n\nBWCCRegister( GetResources() )   // new fwh\n...\n...\nreturn\n//----------------//\nFunction EntryScr\n   SET RESOURCES TO \"EZ4SCR.DLL\"\n\n   DEFINE DIALOG oDlg RESOURCE \'RSFIELDS\' TITLE \'In House List\'          \n   ..\n   ..\n   \n   ACTIVATE DIALOG oDlg ON PAINT (SetResources( MEMVAR-&gt;hResc ))\nreturn\n\nRegards,\nDutch','',0,'','pkuetvpy',1,0,'',47,0,0),(2677,709,6,36,0,'200.113.56.235',1133293579,1,0,1,1,1,0,'','','chuhuaca\n\nLo que te muestra el error es que no encuentra la funcion GINIOON, al parecer esta funcion esta en clipper, no debes mezclar, debes recompilar todos los prg con harbour, \n\nPrueba creando la funcion\n\nFUNCTION GINIOON()\n// aqui lo que hace esta funcion\nRETURN( .t. )\n\nespero que te sirva\n\nSaludos\nPatricio','',0,'','2iy1rrzc',1,0,'',36,0,0),(2678,695,6,36,0,'200.113.56.235',1133294865,1,0,1,1,1,0,'','','Chantiel !!Que raro!!\n\nprueba este ejemplo, por lo menos a mi me funciona bien..\n\nprocedure prueba()\n\nlocal cCambiar1:= \"prueba1\", cCambiar2:= \"prueba2\", cCambiar3:= \"prueba3\", cCambiar4:= \"prueba4\", cCambiar5:= \"prueba5\"\n\nprueba2( @cCambiar1,@cCambiar2,@cCambiar3,@cCambiar4,@cCambiar5 )\n\nalert( cValtochar( cCambiar1 ) + CRLF + ;\n		 cValtochar( cCambiar2 ) + CRLF + ;\n		 cValtochar( cCambiar3 ) + CRLF + ;\n		 cValtochar( cCambiar4 ) + CRLF + ;\n		 cValtochar( cCambiar5 ) )\n\n\nreturn\n\nfunction prueba2( cCambiar1,cCambiar2,cCambiar3,cCambiar4,cCambiar5 )\n\nalert( cValtochar( cCambiar1 ) + CRLF + ;\n		 cValtochar( cCambiar2 ) + CRLF + ;\n		 cValtochar( cCambiar3 ) + CRLF + ;\n		 cValtochar( cCambiar4 ) + CRLF + ;\n		 cValtochar( cCambiar5 ) )\n\n\ncCambiar1:= \"return prueba1\"\ncCambiar2:= \"return prueba2\"\ncCambiar3:= \"return prueba3\"\ncCambiar4:= \"return prueba4\"\ncCambiar5:= \"return prueba5\"\n\nreturn nil\n\n\nEspero que te sirva!!\n\nSaludos\nPatricio','',0,'','38sz4kcl',1,0,'',36,0,0),(2679,705,3,2,0,'80.58.2.107',1133301334,1,0,1,1,1,1,'','','Dutch,\n\nTry this:\n\nFunction EntryScr \n\nSET RESOURCES TO \"EZ4SCR.DLL\" \nBWCCRegister( GetResources() ) // again','',0,'','3leujez3',1,0,'',2,0,0),(2680,688,5,2,0,'80.58.2.107',1133302416,1,0,1,1,1,1,'','','Dan,\n\nOk, FW++ for Xbase++ 1.9 is ready <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','cots59k9',1,0,'',2,0,0),(2681,712,16,2,0,'80.58.2.107',1133302567,1,0,1,1,1,1,'','FW++ for Xbase++ 1.9 is ready!','FW++ is already available for Xbase++ 1.9. Please email us if you need to upgrade it.\n\nFW++ ya está disponible para Xbase++ 1.9. Por favor envianos un email si necesitas la actualización.','',0,'','3vw890f8',1,0,'',2,0,0),(2682,713,8,2,0,'80.58.2.107',1133302672,1,0,1,1,1,1,'','FW++ para Xbase++ 1.9','Ya está disponible la versión de FW++ compatible con Xbase++ 1.9. Por favor envíanos un email si necesitas la actualización. Gracias.','',0,'','18mazo6i',1,0,'',2,0,0),(2683,714,19,18,0,'200.67.188.236',1133304214,1,0,1,1,1,1,'','José Alfonso Suarez en Radio Creswin','Un saludo a todos:\n\nEs un placer informarles que José Alfonso Suares acepto mi invitación para tener una intervención en Radio Creswin [url:2elvb0az]http&#58;//radio&#46;creswin&#46;com&#58;8000[/url:2elvb0az] y hablarnos de MYSql.\n\nLa charla será el día Jueves a las 6:30pm Hora de México ( Viernes 01:30 España )\n\nSi desean enviar sus preguntas sobre el tema, lo pueden hacer a mi e-mail personal  vikthor ( at ) creswin ( dot ) com ( dot ) mx o si desean hacer preguntas en tiempo real , lo pueden hacer usando el messenger de hotmail y agregando el usuario radiocreswin ( at ) hotmail ( dot ) com','',0,'EA==','2elvb0az',1,0,'',18,0,0),(2684,715,2,78,0,'201.230.39.39',1133304564,1,0,1,1,1,0,'','_OBJCLSINS(0) ERROR','Cuando invoco a una funcion sale este error:\n\n_OBJCLSINS(0) Error 5333\n\n\nSalu2\nWilli','',0,'EA==','1osl1oya',1,0,'',78,0,0),(2685,655,6,123,0,'83.53.64.48',1133305344,1,0,1,1,1,0,'','','Joel,\n\nSi es la versión original de tOleAuto (y no la que viene actualmente con xharbour) es probable (y repito probable) que ahí radique el problema.\n\nIntenta bajarte los ultimos binarios de xhabour.  Y, desde xharbour (son FWH) intenta hacer las mismas operaciones.  Casi te puedo asegurar que no vas a tener ningún problema.\n\nYa me contarás como te fue.\n\nSaludos,\nJosé Luis Capel','',0,'EA==','18ns532s',1,0,'',123,0,0),(2686,664,3,315,0,'212.127.159.218',1133305832,1,0,1,0,1,0,'','Animation not always working','I studied the subject and found that uploading goes in intervals and downloading is continous until the end.\nSo there is no timeslot for an animation.','',0,'EA==','3e21mqyp',1,0,'',315,0,0),(2687,716,2,78,0,'201.230.39.39',1133306610,1,0,1,1,1,0,'','TimerClock','Hola Amigos....\nMe dicen ( no estaba enterado) de que las PCs, tienen un reloj interno el cual no se puede alterar pero si se puede leer, no es el que esta en el BIOS, es otro reloj, en caso de ser cierto,,, alguna funcion para leer ese dato?\n\nSalu2\nWilli','',0,'EA==','3d5wcydc',1,0,'',78,0,0),(2688,715,2,78,0,'201.230.39.39',1133306670,1,0,1,1,1,0,'','','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> Sorry,,,, olvide saludalos <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nHola Amigos.........\n\n(no volvera a ocurrir) <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSalu2\nWilli','',0,'EA==','2bb30m0u',1,0,'',78,0,0),(2689,711,20,6,0,'82.59.188.109',1133307993,1,0,1,1,1,1,'','Re: info su:   oget:ldrag:=.t.','Prova con\n\noget1:bMMoved:={ || miafunzione() }\n\n(nota le due M)\n\nEMG','',0,'EA==','1o9alq4p',1,0,'',6,0,0),(2690,708,3,35,0,'65.188.6.143',1133310055,1,0,1,1,1,0,'','','You are also going to need \\xharbour\\lib\\pcrepos.lib .. was not included in the origional FTDN FWH27 distribution. \n\nIf you do not have the above file .. contact Antonio.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'EA==','wrlloy43',1,0,'',35,0,0),(2691,705,3,35,0,'65.188.6.143',1133310510,1,0,1,1,1,0,'','','Dutch\n\nJust curious why you have two .dll\'s ... If you are creating your .dll\'s from .rc you can combine all your .rc\'s into one single .rc and then import them into a single .dll\n\nI have modified rc2dll32.bat file as follows:\n\nrem RC file to 32 bits resources DLL\nrem syntax: rc2dll32.bat Your_rc_file  !!! without the .RC extension\n\nDEL VEH32.DLL\nDEL VEH32.RC\n\n: combine all .rc into a single .rc\nCOPY *.RC VEH32.RC\n\nbcc32 -c c:\\fwh26\\dll\\screen32.c\nbrc32 -r %1.rc\nilink32 /Tpd c:\\borland\\lib\\c0d32.obj screen32.obj, %1.dll,,c:\\borland\\lib\\cw32.lib c:\\borland\\lib\\import32.lib,, %1.res\necho done!\n\nRick Lipkin\nSC Dept of Health, USA','',0,'EA==','20qy4pkm',1,0,'',35,0,0),(2692,593,6,292,0,'200.84.200.179',1133310542,1,0,1,1,1,1,'','Gracias','Antonio, Emite  1998061568','',0,'EA==','1iopntui',1,0,'',292,0,0),(2693,698,3,35,0,'65.188.6.143',1133310927,1,0,1,1,1,0,'','','Rene\n\nCan\'t wait for Hernan\'s 1.8 ... please ask him ( if you would please ) to include ( both ) a Borland and Msvc compilable versions.\n\nI am trying to move to 64 bits .. but can not convert wbrwline.c code to compile with Msvc 2003 toolkit  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n\nThanks\nRick Lipkin\nSC Dept of Health, USA\n\n--------------------------------------------------------------------------------\n \nStandar FWH Browse not, give a try to Hernan\'s TWBrowse (comming [b:18u5koyt]soon ver 1.8[/b:18u5koyt] with nice enhacements and features) or TSBrowse\n_________________\nSaludos / Regards \n\nRF \n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'QA==','18u5koyt',1,0,'',35,0,0),(2694,702,2,295,0,'201.222.145.109',1133313854,1,0,1,1,1,1,'','','leandro, dame tu correo electronico y te mando la clase con un ejemplo, a no ser de que sea posible através de este foro, si sabes me indicas como hacerlo\n\nsaludos','',0,'QA==','18gxgbof',1,0,'',295,0,0),(2695,717,6,66,0,'24.232.135.75',1133320110,1,0,1,0,1,0,'','AYUDA FILTROS,SCOPES ME ESTAN VOLVIENDO LOCO','Quiero hacer un scope y dentro del mismo filtrar hasta ahora\nel scope me funciona perfecto, lo que no me funciona es\nel filter que en vez de hacerlo sobre el scope los hace\nsobre la dbf entera y me tarda un tiempo enorme ya que\nson 500000 registros, si alguien me puede orientar\nque estoy haciendo mal. o tiene algun ejemplo sencillo\nUtilizo indices cdx simples sin tags\n\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com\">databaselab2002@yahoo.com</a><!-- e -->\n\n\n#include \"FiveWin.ch\"\n#include \"ord.ch\"\n\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n\n   request dbfcdx                       // requerimento dos indices CDX\n   rddsetdefault(\"dbfcdx\")\n   dbsetdriver(\"dbfcdx\")\n\n   USE MD\n   set index to MDL \n   Set scope TO \"ALICIA\",\"ALICIA\"\n   SET FILTER to \"ZUC\"$MD-&gt;PER_NOMBRE\n   DBGOTOP()\n\n\n\n\n\n\n***********************************************************\n\n   LIST PER_NOMBRE,LOC_DESCRI   en clipper me funciona\n   Browse()   Fivewin no me funciona me filtra la base total\n*   USE\n\nreturn nil','',0,'QA==','88imxd93',1,0,'',66,0,0),(2696,635,6,215,0,'201.129.18.106',1133320539,1,0,1,1,1,0,'','','Gracias Antonio','',0,'QA==','16d84mm5',1,0,'',215,0,0),(2697,718,6,215,0,'201.129.18.106',1133320768,1,0,1,1,1,0,'','No puedo imprimir un bitmap con printer','Buenas las tengas...\n\nTengo el siguiente código\n\nlocal  cLogo := \"c:\\Docs\\FORMATO.bmp\"\n\n    PRINTER oPrn   PREVIEW\n\n            PAGE\n\n\n               oPrn:SayBitmap(0,0,cLogo) --&gt; El preview me muestra un bitmap muuuuy pequeño.\n\nHe intentado usar esto, donde 486x630 son las dimensiones en pixeles del bitmap.. pero sale igual.\n\n               oPrn:SayBitmap(0,0,cLogo,486,630)\n\nEn ambos casos ninguno me muestra el bitmap del tramaño real... ¿Qué estoy haciendo mal?\n\n\nGracias\nFernando','',0,'QA==','2h8fw1t6',1,0,'',215,0,0),(2698,705,3,47,0,'203.144.143.2',1133321505,1,0,1,1,1,0,'','Thanks','Dear Rick,\n\nThe 1st DLL (Convert to RC) file is our fixed entry screen (unmodification for user) and 2nd DLL is user modification entry screen (Booking screen) for each customer site.  I compile my first DLL (RC) file to EXE file and 2nd will be able to modify (custom screen without changing source code) for customer need.  Why has it 2 DLL files.\n\n****************\n\nDear Antonio,\n\nIt has another problem is the program does not focus to the main resource (1st RC file) when exit from 2nd DLL.  I try to do exit EZ4SCR.DLL and focus to EZ4.RC as following but it didn\'t work.\n\n//--------------------//\nFunction EntryScr\n\nlocal hDLL := SETRESOURCES(\"EZ4SCR.DLL\")\n\nBWCCRegister( GetResources() )\n\nDEFINE DIALOG oDlg RESOURCE \"RSFIELDS\" \n\nACTIVATE DIALOG oDlg ON PAINT (FreeLibrary( hDLL), SetResource( MEMVAR-&gt;hResc ))\nreturn\n\nHow can I tell the program to focus at 1 RC file? \n\nThanks&amp;Regards,\nDutch','',0,'QA==','198q5rrd',1,0,'',47,0,0),(2699,567,6,37,0,'200.121.159.156',1133323490,1,0,1,1,1,0,'','','Ok, Yamil, puede que sea eso, Yo llamo al Store de esta forma :\n\nSQL EXECUTE \"CALL sp_camest(\"+cMes+\",\"+diario+\")\" \n\nEn mi programa FWH, &lt;cMes&gt; envia el mes en curso y &lt;diario&gt; es la que almacena el nombre de la tabla.\nEn la definicion del Dtore creo 2 parametros &lt;spp_mes&gt; y &lt;spp_tab&gt; que se supone deben recibir los valores de &lt;cMes&gt; y &lt;diario&gt;, &lt;spp_mes&gt; si recibe el valor de &lt;cMes&gt;, pero &lt;spp_tab&gt; no.\nPuede que aca este haciendo Yo algo mal, en el foro de ingles mencionan algo de \"Prepared Stament\" pero ni idea de que significa.\nSaludos','',0,'QA==','3ipu6sr6',1,0,'',37,0,0),(2700,702,2,235,0,'200.56.66.86',1133325204,1,0,1,1,1,0,'','','no se si es mucha molestia, pero me la podrias mandar tambien???\nmi correo es <!-- e --><a href=\"mailto:gerardofarfan@yahoo.com\">gerardofarfan@yahoo.com</a><!-- e -->\n\nde antemano gracias','',0,'QA==','3sq7os5z',1,0,'',235,0,0),(2701,719,2,235,0,'200.56.66.86',1133326485,1,0,1,1,1,0,'','como muestro un archivo jpg','mi problema es que necesito mostrar en un folder la fotografia de articulos, este es parte de mi codigo:\n\n*** aqui tengo el nombre del archivo junto con su extension \"JPG\"\nRedefine GET aVars[15,1] VAR aVars[15,2] ID 102 OF aVars[1,1]:aDialogs[3] ON CHANGE(oBoton:Enable(),.T.) UPDATE\n\n*** este boton lo puse para checar que este tomando el nombre del archivo y pasarlo a la funcion\nReDefine Button ID 809 OF aVars[1,1]:aDialogs[3] Action(VerFoto(aVars[15,2])) UPDATE\n\n*** en este control deberia de aparecer sin la necesidad de presionar el boton pero no lo hace\nREDEFINE BITMAP oImg ID 103 FILE \".\\Fotos\\\"+aVars[15,2] OF aVars[1,1]:aDialogs[3] update\n\n*** con esta funcion aparece la fotografia\nFunction VerFoto(cImageName)\nLOCAL oWindow,oImg\nCursorWait() ; SysRefresh()\ncImageName2:=\".\\Fotos\\\"+cImageName\nDEFINE WINDOW oWindow MDICHILD OF oWndMain TITLE cFileName(cImageName2)\n@ 0,0 IMAGE oImg FILE cImageName2 OF oWindow UPDATE PIXEL\noWindow:SetControl(oImg)\nACTIVATE WINDOW oWindow ON INIT(oWindow:nWidth:=(oImg:nWidth+10),oWindow:nHeight:=(oImg:nHeight+28),oWindow:Refresh(),;\n  CursorArrow(),SYSREFRESH())\nReturn(.T.)\n\ncomo puedo lograr este efecto???, que estoy haciendo mal o que mas necesito????\n\nde antemano muchas gracias.','',0,'','1oqci402',1,0,'',235,0,0),(2702,720,3,261,0,'63.197.46.139',1133330554,1,0,1,1,1,1,'','Web Services','Has anybody managed to utilize Web Services native in FiveWin without utilizing the MS Web Services Tools?  I feel certain it is possible but I don\'t know where to start.\n\nByron...','',0,'','309sztkn',1,0,'',261,0,0),(2703,711,20,1,0,'194.243.7.239',1133338598,1,0,1,1,1,0,'','','ho provato ma non succede niente con:\n\noget1:bMMoved:={ || miafunzione() }\n\nsembra che miafunzione() non venga richiamata mentre trascino l\'oggettoooooo !!\n\nAny idea?\nPiscicelli/Zingoni','',0,'','31p70x8c',1,0,'',1,0,0),(2704,711,20,6,0,'82.54.221.136',1133341489,1,0,1,1,1,1,'','','Sì, hai ragione. Quello serve quando muovi il mouse sull\'oggetto non quando muovi l\'oggetto stesso. Forse\n\noDlg:bMMove\n\nma se non va non ho altre idee.\n\nEMG','',0,'','2rd6iupx',1,0,'',6,0,0),(2705,705,3,2,0,'80.58.2.107',1133341819,1,0,1,1,1,1,'','','Dutch,\n\nAre you using Borland controls in both DLLs ?\n\nWas it working on 16 bits ?','',0,'','3nl80dzh',1,0,'',2,0,0),(2706,720,3,2,0,'80.58.2.107',1133341978,1,0,1,1,1,1,'','','Byron,\n\nWhat web services do you mean ? A web server ? A web client ?','',0,'','2j0i5r99',1,0,'',2,0,0),(2707,719,2,2,0,'80.58.2.107',1133342273,1,0,1,1,1,1,'','','Gerardo,\n\n&gt;\nREDEFINE BITMAP oImg ID 103 FILE \".\\Fotos\\\"+aVars[15,2] OF aVars[1,1]:aDialogs[3] \n&gt;\n\nOjo, tiene que ser REDEFINE IMAGE ...','',0,'','27v7a7vj',1,0,'',2,0,0),(2708,715,2,2,0,'80.58.2.107',1133342458,1,0,1,1,1,1,'','','Willi,\n\nEse es el famoso y temido error 5333 de Clipper. Prueba a reducir los valores de heapsize y stacksize que estés usando, para darle un poco más de memoria, y tambien prueba a hacer un memory( -1 ) antes de llamar a esa función.\n\nEse error ha traido de cabeza a mucha gente. Afortunadamente con FWH y los 32 bits, se acabó <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3pu0dnu9',1,0,'',2,0,0),(2709,716,2,2,0,'80.58.2.107',1133343517,1,0,1,1,1,1,'','','Willi,\n\nExiste la función GetTickCount() que devuelve el número de milisegundos desde que se inició Windows.','',0,'','2euxyjo0',1,0,'',2,0,0),(2710,721,6,23,0,'80.58.44.235',1133345324,1,0,1,1,1,1,'','Sobre procesos prolongados','Hola, hola.\nQuería saber si existe alguna forma de que, cuando realizo un proceso laaargo en mi aplicación (reindexación, listado de muchos registros, etc...) que no se colapse todo el sistema.\nHe probado con un SysRefresh() dentro del bucle, pero parece que no tiene efecto.\n\n\nGraciasssss.','',0,'','2pfdm7as',1,0,'',23,0,0),(2711,722,1,125,0,'194.243.7.199',1133346521,1,0,1,1,1,0,'','help about oget1:ldrag:=.t.','I have this little example:\n\n\n\n... get oget1 var pippo1 \n... get oget2 var pippo2 \n\noget1:ldrag:=.t. \noget2:ldrag:=.t. \noget1:bMoved:={ || myfunction() } \n\n\nactivate .... \n\nNow i want to move pippo1 and while i move it i want call a myfunction().\n \nThe above example only call the myfunction() after i release the button mouse.\n\nI also tried with oget1:bMMoved:={ || myfunction() }  (tks to EMG) but nothing happens.\nAny Help ?\nTks\nPiscicelli/Zingoni','',0,'','1odeug9p',1,0,'',125,0,0),(2712,718,6,2,0,'80.58.2.107',1133348574,1,0,1,1,1,1,'','','Fernando,\n\nSi revisas el ejemplo samples\\TestPrn2.prg y cambias esta línea:\n\n   oPrn:SayBitmap( 1, 1, \"..\\bitmaps\\fivewin.bmp\", 600, 800 )\n\nponiendo 600 y 800, verás como cambia de tamaño en el preview.','',0,'','e0edqphz',1,0,'',2,0,0),(2713,721,6,2,0,'80.58.2.107',1133348661,1,0,1,1,1,1,'','','Angel,\n\nLa solución es llamar a SysRefresh() pero dentro del bucle en donde realices esos procesos. Es decir no una única llamada, sino x llamadas mientras haces el proceso.','',0,'','3v5jh7y8',1,0,'',2,0,0),(2714,720,3,334,0,'80.58.38.107',1133350914,1,0,1,1,1,0,'','','Byron, \n\nI belive that the easiest way to consume webservices under [x]Harbour is installing the ms soap toolkit that permits inkove it like com objects. Basically creates a com object envolture of a webservice object that permits use it to any language capable to use then com technology. An example of the source code:\n\nlo_serv=Createobject(\"mssoap.soapclient30\") // Soap object creation\nlo_serv.mssoapinit(\"http://www.universalthread.com/WebService/universalthread.asmx?wsdl\") // webservice uri \n// invoking web service methods.\nlo_serv.someMethod( param1, param2, ... )\nlo_serv.Dispose()\nlo_serv := nil \n\nTo invoke ws without ms soaptoolkit under [x]Harbour is not easy work, you must to \'talk\' with webservice with soap directly\n\nIf you need some advice i can help you.\n\nregards.','',0,'','2qokjgbr',1,0,'',334,0,0),(2715,705,3,47,0,'203.144.143.3',1133351820,1,0,1,1,1,0,'','It works on FW16bits','Dear Antonio,\n\nYes, I\'ve used Borland Control and it works in FW16bit.  The 1st RC file is the same name of EXE file and the 2nd DLL is custom entry screen.  This is my FW16 bits code \nExample\n=======\n\nStatic hResc \n\n****************\nFunction main() \nhResc := GetResources() \nSET RESOURCES TO (\"SECOND.DLL\") \nSET RESOURCES TO (\"BWCC.DLL\") \nSetResource( hResc ) \n.. \n\n*************\nFunction Scr \nSet Resource To \"SECOND.DLL\" \nDEFINE DIALOG ... \nACTIVATE DIALOG ... ON PAINT SetResources( hResc ) \nreturn \n\nRegards,\nDutch','',0,'','3pss1rfg',1,0,'',47,0,0),(2716,203,4,133,0,'80.176.234.174',1133352451,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:31drfr7t]GWard,\n\nWe may provide an answer in a day or two.[/quote:31drfr7t]\n\nAntonio,\n\nSorry to keep on at this but my customer is pressing me for some idea of time scales.\n\nI need the ability to multi-select in browses as soon as is possible as I am racing to complete development as the factory extension in which the software will be used is being built.\n\nI realise we are not yet at official release but the \'pre-release\' versions have opened up so many possibilities my customers wish to take advantage of.\n\nMany thanks','',0,'gA==','31drfr7t',1,0,'',133,0,0),(2717,723,6,21,0,'80.58.49.235',1133352968,1,0,1,1,1,1,'','aoData no devuelve todos los datas','Hola foro,\n\naodata no devuelve los datas cuya longitud sea mayor o igual a 10 caracteres.\n[code:35xhnv3h]aDatas = aOData&#40; oObject &#41;[/code:35xhnv3h]\n\nHe comprobado al ejecutar __ClassSel que a estos datas se anteponen el guión bajo (_Incidencia) cuando no lo tiene en la definición del data.\n[code:35xhnv3h]aDatas &#58;= __ClassSel&#40; oObject &#41;[/code:35xhnv3h]\nEsto hace que la función aoData lo eliminie del array a devolver.\n[code:35xhnv3h] function aOData&#40; oObject &#41;\n\n   local aInfo  &#58;= ASort&#40; __ClassSel&#40; oObject&#58;ClassH &#41; &#41;\n   local aData  &#58;= &#123;&#125;\n   local n      &#58;= 1\n   local lExact &#58;= Set&#40; _SET_EXACT, &#46;t&#46; &#41;\n\n   while SubStr&#40; aInfo&#91; n &#93;, 1, 1 &#41; != &quot;_&quot;\n      if AScan&#40; aInfo, &quot;_&quot; + SubStr&#40; aInfo&#91; n &#93;, 1, 9 &#41;, n + 1 &#41; != 0\n         AAdd&#40; aData, aInfo&#91; n &#93; &#41;\n      endif\n      n++\n   end\n\n   Set&#40; _SET_EXACT, lExact &#41;\n\nreturn aData\n[/code:35xhnv3h]\n\nEs un bug de fivewin o debe hacerlo? no devería ser la comprobación SubStr( aInfo[ n ], 1, 2 ) != \"__\"?','',0,'AIA=','35xhnv3h',1,0,'',21,0,0),(2718,724,3,217,0,'200.153.134.138',1133354038,1,0,1,1,1,0,'','How to block size of window/dialog','Hello!\n\nI have a nonmodal dialog and I let the use redimension it.\nBut I want define the min and max size to redimension the dialog.\nHow can I do it?\n\nRegards,\nMaurilio','',0,'AIA=','27nyeufe',1,0,'',217,0,0),(2719,688,5,270,0,'65.27.183.36',1133354781,1,0,1,1,1,0,'','','Thanks Antonio for the re-compiled FW++ five32rt.dll.\n\nI installed xBase++ 1.9 and initially had a few compile problems.  Turns out that the xBase++ installation put the xBase++ include directory ahead of the FW++ include directory in the INCLUDE environment  and some commonly named include files (e.g. FONT.CH) were incorrectly included from the xBase++ include directory, not the FW++ include directory.\n\nI rearranged the INCLUDE environment so that FW++ was ahead of the xBase++ include and re-compiled.  All compile errors were cleared up.\n\nInitial testing of my application shows no problems from the xBase++ 1.9.\n\nDan','',0,'AIA=','ozqtihcb',1,0,'',270,0,0),(2720,709,6,329,0,'190.48.116.177',1133354932,1,0,1,1,1,0,'','','Patricio, si mal no entendi lo que deberia hacer es buscar donde esta esa funcion, o las funciones en mi caso, me refiero a ubicar el prg donde estan hechas las funciones, las nativas, compilar ese prg con harbour, y luego recompilar todo mi proyecto con ese nuevo obj generado.\nPuede ser eso?\nPorque ponerme a armar las funciones es medio complicado.\n\nMuchas gracias\n\nMatias','',0,'AIA=','3fzsaywb',1,0,'',329,0,0),(2721,702,2,228,0,'201.245.236.233',1133358141,1,0,1,1,1,0,'','micorreo es:','Hola mi correo es \n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->\n\nMUCHAS GRACIAS\nLEANDRO ALFONSO','',0,'AIA=','2fmhmmb8',1,0,'',228,0,0),(2722,701,2,228,0,'201.245.236.233',1133358339,1,0,1,1,1,0,'','leer bases en servidor lunix','Que pena a todos los compañeros del foro me equivoque al momento de digitar no se si por esta razon no han contestado a mi pregunta.\n\nQuier montar las bases de datos en un servidor que tiene linux, y leerlas en las terminales que tienen WINDOWS. \n\nSi se puede?\n\nmuchas gracias','',0,'AIA=','7ktitkpx',1,0,'',228,0,0),(2723,725,2,228,0,'201.245.236.233',1133358983,1,0,1,1,1,0,'','colocar datos en barra de mensajes (asi como la fecha,hora)','Como dice el asunto, necesito colocar comentarios en la barra de mensajes, asi como la fecha y la hora, pero alineados a la derecha y con cambios de colores.\n\nAlguien me puede indicar como hacer esto?\n\nMUCHAS GRACIAS \nLEANDRO ALFONSO','',0,'AIA=','3tmkpv5y',1,0,'',228,0,0),(2724,726,20,29,0,'80.181.108.140',1133359605,1,0,1,1,1,0,'','Criptazione dati e salvataggio su disco','Salve,\ndevo cripatare dei dati contenuti in un file di basso livello (creato con fcreate).\n\nIl dubbio che mi viene è che l\'ultima volta che ho utilizzato le funzioni di cripatazione dati (lavoravo allora con clipper+fw ed utilizzavo crypt() di FW) mi sono accorto che nel caso in cui la stringa cripatata conteneva il codice ascii 0 - chr(0),\nil file veniva troncato in fase di scrittura (con fwrite) in quel punto. \n\nQualcuno sa dirmi se esiste questo problema anche con harbour o se c\'è qualche altra funzione di registrazione da utilizzare al posto di fwrite e se ritenete migliori le funzioni di criptazione di FW o quelle in xHarbour ?\n\nGrazie\n\nMarco','',0,'AIA=','22iy5sdj',1,0,'',29,0,0),(2725,701,2,78,0,'201.240.30.50',1133360290,1,0,1,1,1,0,'','','Hola Leandro,,,\nSi se puede, de hecho hay varias aplicaciones que trabajan con datos instalados en Linux, de hecho hice una pruebas con Visual C y MySQL, ahora, existe EAGLE1 libreria para (x)harbour que va 100% con MySQL\n\nSalu2\nWilli','',0,'AIA=','2226yyso',1,0,'',78,0,0),(2726,726,20,6,0,'87.3.184.99',1133360891,1,0,1,1,1,1,'','Re: Criptazione dati e salvataggio su disco','Non mi risulta che FWrite() tronchi alcunché. Probabilmente il troncamento avveniva in qualche punto precedente alla scrittura. In effetti le stringhe xBase non sono fatte per contenere caratteri nulli.\n\nRiguardo le funzioni di crittaggio, penso siano equivalenti.\n\nEMG','',0,'AIA=','ryh00re1',1,0,'',6,0,0),(2727,724,3,6,0,'87.3.184.99',1133361350,1,0,1,1,1,1,'','Re: How to block size of window/dialog','This is a working sample:\n\n[code:29u1bwki]// How to control authorized position, size and tracking dimensions\n// Try to resize or maximize this window and see what happens!\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd FROM 3, 6 TO 100, 100 PIXEL ;\n      TITLE &quot;Welcome to FiveWin&quot; ;\n      COLOR &quot;W+/B&quot;\n\n   @ 2, 2 SAY &quot;Resize me&quot; OF oWnd SIZE 100, 20\n\n   oWnd&#58;aMinMaxInfo = &#123; 200, 200,;  // xMaxSize,      yMaxSize\n                         50,  50,;  // xMaxPosition,  yMaxPosition\n                         80,  80,;  // xMinTrackSize, yMinTrackSize\n                        150, 150 &#125;  // xMaxTrackSize, yMaxTrackSize\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//[/code:29u1bwki]','',0,'AIA=','29u1bwki',1,0,'',6,0,0),(2728,726,20,1,0,'80.181.108.140',1133363184,1,0,1,1,1,0,'','','&gt;In effetti le stringhe xBase non sono fatte per contenere caratteri nulli. \n\nVuoi dire che contenere in una variabile una stringa contenente chr(0) mi può creare problemi ?','',0,'AIA=','bkv6f239',1,0,'',1,0,0),(2729,715,2,78,0,'201.240.30.50',1133363565,1,0,1,1,1,0,'','','Hola Antonio,,,\nGracias por contestar,,, el problema persiste,,, es misterioso... pero lo solucione de la siguiente forma...\nCopie la dbf que uso para generar un report,, lo pase a una dbf temporal, use esta ultima y listo,,, no mas error.....\n\nSalu2\nWilli','',0,'AIA=','2rhcvojj',1,0,'',78,0,0),(2730,726,20,6,0,'87.3.184.99',1133364151,1,0,1,1,1,1,'','','Mah, forse mi sbaglio. Magari era qualche funzione che avevi utilizzato ad avere problemi con i CHR( 0 ).\n\nEMG','',0,'AIA=','tzsc93e6',1,0,'',6,0,0),(2731,724,3,217,0,'200.153.134.138',1133366424,1,0,1,1,1,0,'','Re: How to block size of window/dialog','Thanks a lot, Enrico!!!!\n\nBest regards,\nMaurilio','',0,'AIA=','2h2dffy9',1,0,'',217,0,0),(2732,719,2,235,0,'201.154.143.232',1133370710,1,0,1,1,1,0,'','','Gracias Antonio.\n\nahora me dice que no reconoce la variable oImg, la cual tengo definida como LOCAL.','',0,'AIA=','c79jkxu3',1,0,'',235,0,0),(2733,688,5,2,0,'80.58.2.107',1133373491,1,0,1,1,1,1,'','','Dan,\n\nThanks for your feedback,','',0,'AIA=','870p973h',1,0,'',2,0,0),(2734,266,19,2,0,'80.58.2.107',1133373593,1,0,1,1,1,1,'','','Another excellent one: <!-- w --><a class=\"postlink\" href=\"http://www.mailinator.com\">www.mailinator.com</a><!-- w --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','ie9tw86y',1,0,'',2,0,0),(2735,701,2,228,0,'200.119.61.93',1133373701,1,0,1,1,1,1,'','pero se puede con DBF','Puedo hacer con bases de datos *.DBF, o necesariamente se tiene que hacern con mysql.\n\nGRACIAS','',0,'AIA=','26ecpx84',1,0,'',228,0,0),(2736,203,4,2,0,'80.58.2.107',1133373942,1,0,1,1,1,1,'','','GWard,\n\nWe are delayed porting Hernan\'s browse to FWPPC.\n\nAnyhow, you can simulate multiselection with the actual browse. Simply add a logical field to your DBF, i.e. \"select\". In the browse list of fields you show a \"*\" if select is true: If( select, \"*\", \" \" ). \n\nWhen the user doble click on the browse row, then you change \"select\" field status and repaint the browse row.\n\nPlease try it. Let us know if you need help to get it working.','',0,'AIA=','2xwrjj7a',1,0,'',2,0,0),(2737,705,3,2,0,'80.58.2.107',1133375246,1,0,1,1,1,1,'','','Dutch,\n\nMaybe un 32 bits you have to FreeLibrary() the BWCC32.dll before registering it again. Please try it, thanks.','',0,'AIA=','20d4ivvd',1,0,'',2,0,0),(2738,722,1,2,0,'80.58.2.107',1133376976,1,0,1,1,1,1,'','','Piscicelli,\n\nA little fix is required for Class TGet, please modify source\\classes\\tget.prg method MouseMove like this:\n[code:w7fo5lv0]\nMETHOD MouseMove&#40; nRow, nCol, nKeyFlags &#41; CLASS TGet\n\n   if &#58;&#58;lDrag\n      return Super&#58;MouseMove&#40; nRow, nCol, nKeyFlags &#41;\n   else\n      &#58;&#58;oWnd&#58;SetMsg&#40; &#58;&#58;cMsg &#41;        // Many thanks to HMP\n      if &#58;&#58;oCursor != nil\n         SetCursor&#40; &#58;&#58;oCursor&#58;hCursor &#41;\n      else\n         CursorIBeam&#40;&#41;\n      endif\n      &#58;&#58;CheckToolTip&#40;&#41;\n\n      // New !!!\n      if &#58;&#58;bMMoved != nil\n         return Eval&#40; &#58;&#58;bMMoved, nRow, nCol, nKeyFlags &#41;\n      endif\n\n   endif\n\nreturn nil\n[/code:w7fo5lv0]','',0,'AIA=','w7fo5lv0',1,0,'',2,0,0),(2739,705,3,47,0,'203.144.143.3',1133377464,1,0,1,1,1,0,'','2 DLL files load is working','Dear Antonio,\n\nIt works if I use all in DLL files as below.  But it didn\'t work if I use main resource as RC file.  How can I load default (main) RC file as this cause. \nACTIVATE DIALOG oDlg ;\nON PAINT (SetResources(\"EZ4.DLL\"), BWCCRegister( GetResources() )) \n\nThis code is working but can I do my case?\n//---------------// \nFunction Main \nPublic hResc \n\nhResc := LoadLibrary( \"BWCC32.dll\" ) // new fwh \n\nSET RESOURCES TO \"EZ4SCR.DLL\" // new fwh \nSET RESOURCES TO \"EZ4.DLL\" // new fwh \n\nBWCCRegister( GetResources() ) // new fwh \n... \n... \nreturn \n\n//----------------// \nFunction EntryScr \nSET RESOURCES TO \"EZ4SCR.DLL\" \n\nDEFINE DIALOG oDlg RESOURCE \'RSFIELDS\' TITLE \'In House List\' \n.. \n.. \n\nACTIVATE DIALOG oDlg ;\nON PAINT (SetResources(\"EZ4.DLL\"), BWCCRegister( GetResources() )) \nreturn \n\nBest regards,\nDutch','',0,'AIA=','26kcv902',1,0,'',47,0,0),(2740,715,2,2,0,'80.58.2.107',1133378196,1,0,1,1,1,1,'','','Willi,\n\nEse error aparece cuando hay un objeto de memoria en mal estado. Lo más probable es que se haya arreglado al reorganizar un poco la aplicación.\n\nComo anecdota comentarte que se decía que ese error lo dejó a propósito Rick McConell (desarrollador principal de Clipper) por un dinero que le debía Nantucket y lo generaba aleatoriamente. Quien sabe <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAfortunadamente no tenemos ese tipo de errores con [x]Harbour y FWH <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','38gam3n4',1,0,'',2,0,0),(2741,705,3,2,0,'80.58.2.107',1133378351,1,0,1,1,1,1,'','','Dutch,\n\nThis code is dangerous:\n\nON PAINT (SetResources(\"EZ4.DLL\"), BWCCRegister( GetResources() )) \n\nas ON PAINT gets called many times. You should better do it from the ON INIT clause or use the &lt;oDlg&gt;:bStart codeblock, that it is evaluated just once.','',0,'','3dpxgler',1,0,'',2,0,0),(2742,727,7,63,0,'80.58.35.107',1133378354,1,0,1,1,1,0,'','Puede implementarse un VALID en una ventana?','Pues eso.   Se trata de que al pulsar el botón \"x\" de la ventana, ésta no sólo se cierre sino que también se ejecuten ciertas tareas (cerrar tabla, etc).  \n\nY en Diálogos (definidos en recursos), se puede?\n\nGracias\n\nRafael','',0,'','e3hoe8ys',1,0,'',63,0,0),(2743,727,7,2,0,'80.58.2.107',1133378632,1,0,1,1,1,1,'','','Rafael,\n\nEn las ventanas lo hemos intentado y de momento no se puede.\n\nEn los diálogos aún no lo hemos probado. Lo vamos a hacer cuanto antes.','',0,'','136qto26',1,0,'',2,0,0),(2744,728,6,97,0,'200.23.84.231',1133380425,1,0,1,1,1,1,'','Cual es la diferencia tdbodbc y todbodbcd','Me estoy haciendo bolas cual debo usar o cuando usar uno y cuando el otro?','',0,'','3c4mawwn',1,0,'',97,0,0),(2745,729,7,63,0,'80.58.35.107',1133381159,1,0,1,1,1,0,'','Scroll vertical en diálogo','Tengo que implementar un diálogo (con recursos) que tiene demasiados campos para caber en la pantalla de un Pocket PC.  QUizás la solución sería una barra de scroll vertical, pero no consigo que al moverla me desplace el contenido del diálogo arriba y abajo.\n\n¿Puede hacerse? ¿Un ejemplo de código, por favor?\nGracias\nRafael','',0,'','3cyccmwo',1,0,'',63,0,0),(2746,730,3,286,0,'200.109.148.28',1133383645,1,0,1,1,1,0,'','Treeview question','Hi guys\n\nI\'m working in a Treeview control and don\'t find the way to show the dots lines and (+) (-) sign. There is no problem with the items brance neither bitmaps only the dots. \n\nAny suggest?\n\nThanks\n\nWilliams','',0,'','2ffe7m58',1,0,'',286,0,0),(2747,727,7,63,0,'80.58.35.107',1133384348,1,0,1,1,1,0,'','','Gracias, Antonio.  Lo del VALID es algo que me resulta muy necesario (¿cómo cierro, si no, las tablas de datos al salir de una pantalla de edición?...) y supongo que a otros también les pasa lo mismo.  Te agradeceré si lo podeis activar lo antes posible...\n\nRafael','',0,'','2dkp4dw6',1,0,'',63,0,0),(2748,718,6,215,0,'201.137.125.19',1133384884,1,0,1,1,1,0,'','','Ahhh, ya veo. El bitmap se va ajustando a la anchura y altura. \nAl final lo he dejado así.\n\noPrn:SayBitmap( 1, 1, \"..\\bitmaps\\Formato.bmp\", 486*6, 630*6 )\n\nPero el bitmap se deforma por que es más pequeño. Necesito que sea más grande para llenar el fondo. \n\n¿Hay alguna forma de imprimir un BMP directo sin tener que adivinar la anchura y la altura?, lo que pasa es que no estoy seguro a que se refieren esos dos parámetros. Por que veo que no son la medida en pixeles de un BMP.  \n\nA mí me dieron un BMP que contiene un formato para ser llenado con los datos de una base... asi que meto el BMP como fondo y por medio de cmsay( ) imprimo los datos y listo... sale el formato impreso con los datos.\n\n¿Alguna otra idea?\n\nGracias','',0,'','1lbzhbqt',1,0,'',215,0,0),(2749,674,6,215,0,'201.137.125.19',1133385185,1,0,1,1,1,0,'','','Esa cláusula TEXTRIGHT  no está soportada for la clase original... asi que supongo has implementado los cambios hechos por Rosine. Yo he visto esos cambios y tambien hay una TEXTLEFT para poner el bmp a la izquierda del PROMPT (Texto ).','',0,'','mi9w8kk7',1,0,'',215,0,0),(2750,587,2,106,0,'82.56.130.248',1133385405,1,0,0,1,1,1,'','','Bueno, tarde pero llegué:\n\nEn el lugar de la impresion donde desees imprimir tu imagen, luego de crear el objeto oPrn, etc.\n\ncImmage := \"TUIMAGEN.JPG\"\nnImgWidth := 540\nnImgHeight := 360\nnImgRaster := 8913094  // SRCAND\n\n              oImage := TImage():New( , , , , , cImmage , , oWnd )\n              oPrn:SayImage( 0, 0, oImage, nImgWidth, nImgHeight, nImgRaster )\n              oImage:end()\n\n\n// DE TODO LO QUE PROBE, LO MEJOR EN nImgRaster (para lo que yo necesitaba) es hacer un SRCAND, disculpa la info en italiano, pero la busqué en esta lengua en su epoca  <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n\nRASTER  --&gt;\n\nSRCCOPY = &amp;HCC0020     32  permette di copiare pari-pari l\'intera immagine oppure una selezione della stessa\nSRCAND = &amp;H8800C6      8913094 combina i pixel dell\'immagine di destinazione con quelli dell\'immagine di partenza usando l\'operatore Booleano AND\nSRCINVERT = &amp;H660046   6684742  combina i pixel dell\'immagine di destinazione con quelli dell\'immagine di partenza usando l\'operatore Booleano XOR\nSRCPAINT = &amp;HEE0086    15597702  combina i pixel dell\'immagine di destinazione con quelli dell\'immagine di partenza usando l\'operatore Booleano OR\nSRCERASE = &amp;H4400328   71303976  inverte l\'immagine di destinazione e la combina con l\'immagine di partenza usando l\'operatore Booleano AND\nWHITENESS = &amp;HFF0062   16711778  colora di bianco l\'immagine di destinazione\nBLACKNESS = &amp;H42       66 colora di nero l\'immagine di destinazione\n\n\nEspero que te sirva.','',0,'','1olp2dx2',1,0,'',106,0,0),(2751,731,6,215,0,'201.137.125.19',1133385611,1,0,1,1,1,0,'','Un usuario a la vez... no más.','Pues mira que nunca me había preocupado el hecho de un usuario le preste su su clave de acceso a otro y tenga dos o mas activos en el sistema. Ahora resulta que con un usuario y una clave todos pueden entrar en diferentes PCs conectadas a la red en los programas que he realizado.\n\nPregunta\n¿Cómo controlan esto?\n\n\nSaludos\nFer','',0,'','2atr3q0o',1,0,'',215,0,0),(2752,732,6,147,0,'200.68.215.7',1133386736,1,0,1,0,1,1,'','Problema con Radios','Tengo definido lo siguiente:\n\n[code:7b75gfvx]   REDEFINE RADIO aO&#91;_RadCT2&#93; VAR nOrden ID RAD_ORDEN1, RAD_ORDEN2, RAD_ORDEN3 OF oDlg\n   REDEFINE RADIO aO&#91;_RadCT1&#93; VAR nTipo  ID RAD_FILTR1, RAD_FILTR2 OF oDlg\n[/code:7b75gfvx]\n\nCuando quiero utilizar las teclas de flechas para desplazarme entre ellos, por ej. entre los tres primeros o, entre los dos segundos (previo paso con Tab).; no responde a la puslación. Por ahora no me queda otra que señalar y clickear con el mouse cuando pretendo que sea distinto del por defecto.\nMe falta algo?\n\ngracias','',0,'AIA=','7b75gfvx',1,0,'',147,0,0),(2753,203,4,133,0,'80.176.234.174',1133387896,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:53m30qxg]GWard,\n\nWe are delayed porting Hernan\'s browse to FWPPC.\n\nAnyhow, you can simulate multiselection with the actual browse. Simply add a logical field to your DBF, i.e. \"select\". In the browse list of fields you show a \"*\" if select is true: If( select, \"*\", \" \" ). \n\nWhen the user doble click on the browse row, then you change \"select\" field status and repaint the browse row.\n\nPlease try it. Let us know if you need help to get it working.[/quote:53m30qxg]\n\nAntonio,\n\nThis may be bad news for me!!\n\nI already implement a \'select\' field within the database for marking single rows. What I require is for the user t be able to drag the stylus down a sequence of rows and have them all selected.\n\nThe development is built around stock areas that contain rolls of fabric. Each individual roll is allocated a location so there is a ROLL - LOCATION relationship.\n\nThe user selects customer orders to process and I upload the relevant data to the hand held. With the hand held in front of them the user selects an order to process say ORDER 1 - PRODUCT 1. My software then displays a browse that displays all stock location in which PRODUCT 1 is stored.\n\nPRODUCT 1\n--------------\n\nLOC_____ROLL NO__VOLUME__\n&lt;A01      &gt;&lt; 06 Rolls&gt;&lt;300mtrs&gt;\n&lt;B02      &gt;&lt; 25 Rolls&gt;&lt;2500mts&gt;\n&lt;C05      &gt;&lt; 10 Rolls&gt;&lt;500mts&gt;\n\nIf The user taps on the \'Rolls\' column another browse displays the individual rolls contained within that location e.g. User Taps \'25\' at LOCATION \'B02\' he then sees\n\n(PRODUCT 1 STOCK HELD IN LOCATION B02..........)\n\nROLL NO_____LENGTH___USE ROLL____\n&lt;Roll No 01&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 02&gt; &lt;45.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 03&gt; &lt;60.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 04&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 05&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 06&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 07&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 08&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 09&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 10&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt; \n&lt;Roll No 11&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt;\n.......\n&lt;Roll No 25&gt; &lt;50.00&gt; &lt;Selected (*/\' \')&gt;\n\n\nIf the user taps individually on column 3 the roll is marked with an \'*\' however if the user wants to include rolls 04 - 11 I want them to select these rolls by dragging the stylus down these rows then tapping a \"Use Selected\" button. \n\nThere may be 15-20 rolls in a location that the user wishes to extract out of maybe 40. I want to avoid the need to tap 15-20 individual rows.\n\nHope this explains my requirements.','',0,'gA==','53m30qxg',1,0,'',133,0,0),(2754,671,3,49,0,'87.7.182.129',1133389619,1,0,1,1,1,0,'','','ok\nMust I have fw2.7 ?\nOn this release run all ok ?','',0,'gA==','g861e4nw',1,0,'',49,0,0),(2755,203,4,6,0,'82.59.188.54',1133391001,1,0,1,1,1,1,'','','Maybe you can give your user the chance to select a range of record with just two clicks, one on the first record and one on the last.\n\nEMG','',0,'gA==','23sf6eko',1,0,'',6,0,0),(2756,733,6,138,0,'201.154.52.191',1133403205,1,0,1,1,1,1,'','DBWide esta de regreso !!!!!!!','Gran noticia....\n\nEl sitio de Daniel Andrade esta de regreso en :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/\">http://www.vikthor.com.mx/fivewin/</a><!-- m -->\n\nGracias a Vikthor Tomas por hospedar tan importante sitio','',0,'gA==','189oftmf',1,0,'',138,0,0),(2757,728,6,138,0,'201.154.52.191',1133403322,1,0,1,1,1,1,'','','En ningun caso, olvidate de ODBC que es tecnologia vieja, y vete mejor por ADO, via OLE con xHarbour','',0,'gA==','5fm3xz9l',1,0,'',138,0,0),(2758,718,6,138,0,'201.154.52.191',1133404019,1,0,1,1,1,1,'','','[quote=&quot;fleal&quot;:2ebgvk93]Ahhh, ya veo. El bitmap se va ajustando a la anchura y altura. \nAl final lo he dejado así.\n\noPrn:SayBitmap( 1, 1, \"..\\bitmaps\\Formato.bmp\", 486*6, 630*6 )\n\n[/quote:2ebgvk93]\n\nNo lo puedes dejar asi, porque el 3er y 4to parametro te indican el ancho y el alto del bitmap EN PUNTOS DE IMPRESORA.... pero ojo, si cambias de impresora se fastidia el invento porque las distintas impresoras tienen distintas resoluciones asi que en cada impresora se vera de distinto tamaño el bitmap.\n\nLa solucion es pasar las coordenadas a una unidad estandar, por ejemplo centimetros, para esto puedes hacer usando el metodo Cmtr2Pix() de la clase printer. por ejemplo si quieres que el logo mida 5 cm X 5 cm tendras que hacer esto:\n\naCoords := oPrn:Cmtr2Pix(5,5)\n\nEsto te devuelve un array de 2 posiciones con el equivalente en puntos DE LA IMPRESORA QUE ESTAS USANDO en los pixeles correspondientes y ahora si, ya puedes pasar las coordenadas correctas:\n\naCoords := oPrn:Cmtr2Pix(5,5)\noPrn:SayBitmap( 1, 1, \"..\\bitmaps\\Formato.bmp\", aCoords[1],aCoords[2])','',0,'gA==','2ebgvk93',1,0,'',138,0,0),(2759,731,6,138,0,'201.154.52.191',1133405275,1,0,1,1,1,1,'','','Agrega un campo en tu base de datos de usuarios, y ponlo en .T. cuando el usuario se \"firme\" en el sistema. y cuando salga del sistema pones el campo en .F.','',0,'gA==','3rjrygzi',1,0,'',138,0,0),(2760,732,6,138,0,'201.154.52.191',1133405347,1,0,1,1,1,1,'','','Pregunta.... Definiste cual es el GROUP HEADER de cada radio boton ??? esto se hace con la tecla G del Workshop','',0,'gA==','th0vozqi',1,0,'',138,0,0),(2761,705,3,47,0,'203.144.143.7',1133407512,1,0,1,1,1,0,'','Can I use EZ4.RC file instead of EZ4.DLL?','Dear Antonio,\n\nCan I load from default RC (same name with EXE file) instead of DLL?  Because I want to include RC in EXE and distribute one DLL only but I don\'t know how to recall default RC file.\n\nBest regards,\nDutch','',0,'gA==','wls76uwc',1,0,'',47,0,0),(2762,734,3,333,0,'80.237.46.134',1133409487,1,0,1,1,1,0,'','Examples for xHARBOUR','I Study the examples for xHARBOUR. The Problems with assembly greater project. Is absent the examples buildx.bat for project , where several files.','',0,'gA==','31ux7hsq',1,0,'',333,0,0),(2763,735,4,13,0,'213.76.252.200',1133426376,1,0,1,1,1,0,'','FindWindow','Hello,\n\nI insert to startup program procedure this function:\n\n[code:3rtzgzpt]\nHB_FUNC &#40;STILLRUN&#41;\n&#123;\n   HWND hWnd;\n   BOOL lRet = FALSE;\n\n   hWnd = FindWindow &#40;TEXT &#40;&quot;App Title&quot;&#41;, NULL&#41;;\n   if &#40;hWnd&#41; \n   &#123;\n   SetForegroundWindow &#40;&#40;HWND&#41; &#40;&#40;ULONG&#41; hWnd |0x01&#41;&#41;;\n   lRet = TRUE;\n   &#125;  \n   hb_retl &#40;lRet&#41;;\n&#125;\n[/code:3rtzgzpt]\n\nbut this dosn\'t work. User can run apps several times. This same routine in pure C++ works fine (app is show in foreground). \n\nRegards\nPawel','',0,'AIA=','3rtzgzpt',1,0,'',13,0,0),(2764,736,3,47,0,'203.144.143.6',1133426486,1,0,1,1,1,0,'','example for compile and link many PRG files with HB/FWH','Dear All,\n\nCan I get an example to compile and link many PRG file for Harbour&amp;FWH?  This question may ask many time but I cannot find it.\n\nThanks&amp;Regards,\nDutch','',0,'AIA=','d1e5b88r',1,0,'',47,0,0),(2765,203,4,2,0,'80.58.2.107',1133427493,1,0,1,1,1,1,'','','&gt;\nMaybe you can give your user the chance to select a range\nof record with just two clicks, one on the first record and one on the last. \n&gt;\n\nYes, or use two comboboxes, one for \"start\" and the other for \"end\", so the user just have to do two selections and use the browse just for review items, not for select them (respecting the browse standard mouse behavior).','',0,'AIA=','2f4biuhg',1,0,'',2,0,0),(2766,735,4,2,0,'80.58.2.107',1133427661,1,0,1,1,1,1,'','','Pawel,\n\nHave you tried this?\n \n[code:2tuxhniu]\n   if StillRun&#40;&#41;\n      Quit\n   endif\n[/code:2tuxhniu]','',0,'AIA=','2tuxhniu',1,0,'',2,0,0),(2767,734,3,2,0,'80.58.2.107',1133428316,1,0,1,1,1,1,'','','Vladimir,\n\nYou may easily modify samples\\buildx.bat to use more than one PRG:\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE\n\n%hdir%\\bin\\harbour another /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -eanother.exe -I%hdir%\\include another.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE\n\n...\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj another.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\n...','',0,'AIA=','1pdulvaf',1,0,'',2,0,0),(2768,736,3,2,0,'80.58.2.107',1133428517,1,0,1,1,1,1,'','','Dutch,\n\nYou may easily modify samples\\buildx.bat to use more than one PRG: \n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log \n@type clip.log \nIF ERRORLEVEL 1 PAUSE \nIF ERRORLEVEL 1 GOTO EXIT \n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc \n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc \n:ENDCOMPILE \n\n%hdir%\\bin\\harbour another /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log \n@type clip.log \nIF ERRORLEVEL 1 PAUSE \nIF ERRORLEVEL 1 GOTO EXIT \n\necho -O2 -eanother.exe -I%hdir%\\include another.c &gt; b32.bc \n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc \n:ENDCOMPILE \n\n... \n\necho c0w32.obj + &gt; b32.bc \necho %1.obj another.obj, + &gt;&gt; b32.bc \necho %1.exe, + &gt;&gt; b32.bc \n...','',0,'AIA=','vhaqf2hz',1,0,'',2,0,0),(2769,736,3,2,0,'80.58.2.107',1133428596,1,0,1,1,1,1,'','','You may also review fwh\\makes directory working samples to use a Borland make or a Microsoft make instead of a batch file.','',0,'AIA=','1ptai6i5',1,0,'',2,0,0),(2770,734,3,2,0,'80.58.2.107',1133428652,1,0,1,1,1,1,'','','You may also review fwh\\makes directory working samples to use a Borland make or a Microsoft make instead of a batch file.','',0,'AIA=','3s513x8i',1,0,'',2,0,0),(2771,735,4,13,0,'213.76.252.200',1133428795,1,0,1,1,1,0,'','','Antonio,\n\nYes I try use it in start program like your sample, function always return False. I try change parameters (first is the name of class, second is the name of window) but no success.\n\nPawel','',0,'AIA=','34hhysn3',1,0,'',13,0,0),(2772,705,3,2,0,'80.58.2.107',1133428890,1,0,1,1,1,1,'','','Dutch,\n\nYes. FWH will look in the EXE by default. In order to use a DLL you do a SET RESOURCES TO \"name.dll\" and when you are ready with it, then you do SET RESOURCES TO, so FWH will search again in the EXE.\n\nPlease try it this way.','',0,'AIA=','tiosc47h',1,0,'',2,0,0),(2773,671,3,2,0,'80.58.2.107',1133430253,1,0,1,1,1,1,'','','Silvio,\n\nYes, FWH 2.7 properly manages reports previews using 32 bits EMF files, without showing empty pages.','',0,'AIA=','daq71dl9',1,0,'',2,0,0),(2774,730,3,2,0,'80.58.2.107',1133430754,1,0,1,1,1,1,'','','Williams,\n\nYou may review samples\\TreeView.prg and samples\\TestTree.prg. In both samples a treeview is used and the [+], [-] and dotted lines are shown.','',0,'','34tx0c22',1,0,'',2,0,0),(2775,705,3,47,0,'203.144.143.7',1133430770,1,0,1,1,1,0,'','Thanks a lot','Dear Antonio,\n\nIt works now.  \n\nThanks for big help,\nDutch','',0,'','s1c18jgp',1,0,'',47,0,0),(2776,736,3,47,0,'203.144.143.7',1133431021,1,0,1,1,1,0,'','I have no fwh\\makes directory','Dear Antonio,\n\nI have no FWH\\MAKES directory.  Have you got an examples?\n\nRegards,\nDutch','',0,'','3a941hda',1,0,'',47,0,0),(2777,734,3,3,0,'82.120.16.114',1133433814,1,0,1,1,1,0,'','Re: Examples for xHARBOUR','[quote=&quot;Vladimir Rudomanov&quot;:22k823bt]I Study the examples for xHARBOUR. The Problems with assembly greater project. Is absent the examples buildx.bat for project , where several files.[/quote:22k823bt]\n\nVladimir\n\nThis is a working sample\n\n# Paths for dependent files ##################################################\n\n.path.prg = $(APP_PRG_DIR)\n.path.c = $(APP_OBJ_DIR)        # add reference to C intermediate code\n.path.obj = $(APP_OBJ_DIR)\n\n# Application PRG files (your PRG files go here) #############################\n\nAPP_RC_LIST =   \\\n    CBATIMAN.rc \\\n    CBATI.rc    \\\n    CBATICOM.rc \\\n    CBATISAV.rc \\\n    CBATIVEH.rc \n\nAPP_PRG_LIST =  \\\n   CBATIWIN.prg \\\n   CBATITEC.prg \\\n   CBATIRTE.prg \\\n   COMPTOIR.prg \n\n\n\n# Contruction of the rest dependency lists ###################################\n\nAPP_PRGS = $(APP_PRG_LIST)\nAPP_OBJS = $(APP_PRG_LIST:.prg=.obj)\nAPP_RC   = $(APP_RC_LIST)\nAPP_RES  = $(APP_RC_LIST:.rc=.res)\n\n......','',0,'gA==','22k823bt',1,0,'',3,0,0),(2778,736,3,3,0,'82.120.16.114',1133433924,1,0,1,1,1,0,'','Re: I have no fwh\\makes directory','[quote=&quot;dutch&quot;:326it4t7]Dear Antonio,\n\nI have no FWH\\MAKES directory.  Have you got an examples?\n\nRegards,\nDutch[/quote:326it4t7]\n\nDutch\n\nCheck my reply to Vladimir in this forum, i have joined a working sample\n\nRichard','',0,'gA==','326it4t7',1,0,'',3,0,0),(2779,737,1,139,0,'212.205.251.95',1133435103,1,0,1,1,1,0,'','shift + F5','THAT I CAN CALL A  FUNCTION\n WITH COMBINATION OF KEYS ( shift + F5  )\n\n\nJOHN','',0,'gA==','2hso9tnq',1,0,'',139,0,0),(2780,735,4,6,0,'82.61.69.142',1133435216,1,0,1,1,1,1,'','Re: FindWindow','The syntax is the other way around:\n\nhWnd = FindWindow (NULL, TEXT (\"App Title\"));\n\nEMG','',0,'gA==','1n6nwokp',1,0,'',6,0,0),(2781,737,1,6,0,'82.61.69.142',1133435317,1,0,1,1,1,1,'','Re: shift + F5','This is a working sample:\n\n[code:2elba4da]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    SETKEY&#40; VK_F2, &#123; || If&#40; GetKeyState&#40; VK_CONTROL &#41;, MsgInfo&#40; &quot;Hello!&quot; &#41;, &#41; &#125; &#41;\n    SETKEY&#40; VK_F3, &#123; || If&#40; GetKeyState&#40; VK_SHIFT &#41;, MsgInfo&#40; &quot;Hello!&quot; &#41;, &#41; &#125; &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET cVar OF oDlg\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2elba4da]\n\nEMG','',0,'AIA=','2elba4da',1,0,'',6,0,0),(2782,738,1,26,0,'193.77.140.27',1133435860,1,0,1,1,1,1,'','FW 2.7 &amp; commctrl.dll','Hello!\n\nI linked my app with new FW 2.7 and now it requires commctrl.dll! Why?\n\nRegards, Roman','',0,'AIA=','g05yjfgl',1,0,'',26,0,0),(2783,737,1,139,0,'212.205.251.9',1133436275,1,0,1,1,1,0,'','','Enrico\nI A LOT THANK','',0,'AIA=','2sgv6v2d',1,0,'',139,0,0),(2784,732,6,147,0,'201.252.200.57',1133436451,1,0,1,0,1,1,'','','Excelente maestro!, nunca supe para que era el incono \"G\"... hasta hoy.\nMuchas gracias!','',0,'AIA=','2qqqvk1b',1,0,'',147,0,0),(2785,733,6,147,0,'201.252.200.57',1133436848,1,0,1,0,1,1,'','','Muchas gracias VIKTHOR!. Invalorable gesto el tuyo\nSeguramente la comunidad y nuevos programadores te estarán eternamente agradecidos\n\nsaludos','',0,'AIA=','2g0vpky3',1,0,'',147,0,0),(2786,736,3,47,0,'203.144.143.7',1133436937,1,0,1,1,1,0,'','Thanks','Dear Antonio&amp;Richard,\n\nThanks a lot, I got it.\n\nRegards,\nDutch','',0,'AIA=','p9fnue3t',1,0,'',47,0,0),(2787,692,2,147,0,'201.252.200.57',1133438388,1,0,1,0,1,1,'','','Chantiel\nquizás no entienda bien tu problema, pero hice este simple ejemplo y funciona sin problemas\n[code:1fih5oji]#include &quot;fivewin&#46;ch&quot;\n\n\nprocedure main&#40;&#41;\nlocal cCambiar&#58;= Space&#40; 9 &#41;\n\n	fPasarxRef&#40; @cCambiar &#41;\n\n	MsgAlert&#40;&quot;Contenido de cCambiar devuelto&#58; &quot;+cCambiar,&quot;PACORR!!!&quot;&#41; \n\n// Fin\n\nprocedure fPasarxRef&#40; cCambiar &#41;\n\n	? &quot;valor de entrada &quot; +cCambiar, &quot;espacios&quot;, Len&#40; cCambiar&#41;\n \n	cCambiar&#58;= &quot;0123456789&quot;\n\n// Fin[/code:1fih5oji]\n\nMe parece que deberías hacer un seguimiento  de cCambiar  para ver si en algún lugar, antes de pasarlo a pBuscarPeticionario(...), no se le está asignando un valor nil\n\nespero \"alumbre\" algo :-)','',0,'AIA=','1fih5oji',1,0,'',147,0,0),(2788,725,2,147,0,'201.252.200.57',1133439684,1,0,1,0,1,1,'','','Vagner Wirts dejó alguna vez una contribución, VBar, que, creo, hace lo que necesitás.\nTendrias que buscarlo en el foro anterior; el que quedo de solo lectura\n\nSaludos','',0,'AIA=','1hi4awuz',1,0,'',147,0,0),(2789,739,3,47,0,'203.144.143.6',1133440726,1,0,1,1,1,0,'','link error while compile testscan.prg and tscan.prg','Dear All,\n\nI try to recompile Testscan.pr tscan.prg.  It\'s shown the error message as following either harbour and xharbour.  \n\nThis is sample error message\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'TWAIN_Acquire\' referenced from D:\\FWH\\TSCAN32\\TSCAN.OBJ\nError: Unresolved external \'TWAIN_FreeNative\' referenced from D:\\FWH\\TSCAN32\\TSCAN.OBJ\nError: Unresolved external \'TWAIN_SelectImageSource\' referenced from D:\\FWH\\TSCAN32\\TSCAN.OBJ\n.....\n\nWhat does it mean?\n\nRegards,\nDutch','',0,'AIA=','k83fe4k9',1,0,'',47,0,0),(2790,733,6,228,0,'201.245.237.205',1133444702,1,0,1,1,1,1,'','que bien','Muchas gracias, nos hacia mucha falta ese sitio.\n\nLEANDRO ALFONSO\nBogotá (Colombia)','',0,'AIA=','21ze0ka0',1,0,'',228,0,0),(2791,740,3,31,0,'195.182.84.105',1133447296,1,0,1,1,1,1,'','AMD Athlon 64 &amp; WinXP','Hi ! One customer bought a new PC with AMD Athlon 64 &amp; XP . He said that my application hangs up at worktime . Most bad situations - closing mdichild window . And if close with mouse cursor on window \"close\" at right top of window . Pressing Esc - sometime works fine , sometimes hangs up . With others PCs application is working fine . Application is running on Win2000 server shared directory , RDD - CDX .\n\n   What you can say about that ? \n\n   BCC 5.5 , xHarbour from CVS , FiveWin 2.5 of 2004 year .\n\n   With best regards ! Rimantas .','',0,'AIA=','djegeesi',1,0,'',31,0,0),(2792,741,6,40,0,'200.92.22.136',1133450740,1,0,1,1,1,0,'','Recompilar FWH 2.4 con xHarbour','Buenos días foro, solicitando de su ayuda quisiera saber\nsi alguno de ustedes tiene un .Bat, .Rmk para recompilar FWH2.4 con xHarbour o que tengo que hacer ?\n\nsaludos y gracias de antemano\nJoel Andujo','',0,'AIA=','eu3rdbq5',1,0,'',40,0,0),(2793,655,6,40,0,'200.92.22.136',1133451228,1,0,1,1,1,0,'','','Gracias José Luis por ahi me voy a ir, de hecho tengo la inquietud desde hace algun tiempo de cambiarme a xHarbour y ahora con mas razón.\n\nYa te contaré como me fue\n\nSaludos\nJoel Andujo','',0,'AIA=','24fm0jke',1,0,'',40,0,0),(2794,742,6,41,0,'200.87.67.10',1133451773,1,0,1,1,1,0,'','Una de ADS LOCAL - error 5175 AE_INDEX_COLLATION_MISMATCH','Holas,\n\nme sorprendio este error al probar una aplicacion en una maquina con un idiona diferente a la maquina donde fue elaborada la aplicacion, creo que solucion va por la reindexacion en la maquina de instalacion. Si es asi como puede reindexar todas las ADT si estoy utilizando un diccionario de datos, o si hay otra solucion, alguien la puede compartir conmigo.\n\nun saludos y gracias\n\nMarcelo','',0,'AIA=','3pbr6aid',1,0,'',41,0,0),(2795,450,1,335,0,'68.193.88.53',1133451833,1,0,1,1,1,0,'','','In XP desktop shortcut properties, on Shortcut tab, click on Advanced button and then select \"run in separate memory area.\"','',0,'AIA=','14kkhd0b',1,0,'',335,0,0),(2796,203,4,133,0,'80.176.234.174',1133452635,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1qrbvqlr]&gt;\nMaybe you can give your user the chance to select a range\nof record with just two clicks, one on the first record and one on the last. \n&gt;\n\nYes, or use two comboboxes, one for \"start\" and the other for \"end\", so the user just have to do two selections and use the browse just for review items, not for select them (respecting the browse standard mouse behavior).[/quote:1qrbvqlr]\n\nAntonio/Enrico\n\nThanks for the suggestions.\n\nI was thinking similarly \n\nFor the interim I will have to utilise a start/end selection probably via combobox.\n\nHowever with user sophistication being what it is the ability to select via dragging would be a definite bonus. How long do you believe the delay before implimentation will actually be.\n\nMany thanks.','',0,'gA==','1qrbvqlr',1,0,'',133,0,0),(2797,727,7,262,0,'212.89.4.54',1133452933,1,0,1,1,1,1,'','','Rafael la pregunta que planteas , la hice yo unos mensajes atras , y la soluccion es mas que simple , por lo visto en pocket las ventanas son modales osea que :\n\n   ACTIVATE DIALOG oDlg CENTERED\n   close ( mialias) \n\ny listo .\nsaludso.','',0,'gA==','3e95dq5y',1,0,'',262,0,0),(2798,727,7,63,0,'80.58.35.107',1133458368,1,0,1,1,1,0,'','','José Luis:\n¡Qué fácil!  Muchísimas gracias!\nRafael','',0,'gA==','1yl7m34o',1,0,'',63,0,0),(2799,741,6,53,0,'148.221.81.1',1133458983,1,0,1,1,1,1,'','','Joel:\n\nHaz probado VERCE ?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\nSaludos, Armando','',0,'gA==','1m4g3j31',1,0,'',53,0,0),(2800,743,6,53,0,'148.221.81.1',1133459234,1,0,1,1,1,1,'','D. Antonio Script.Lib ?','Don Antonio:\n\nLa LIB Script esta(rá) disponible para FWH ?\n\nSaludos, Armando','',0,'gA==','3ulvnia0',1,0,'',53,0,0),(2801,736,3,53,0,'148.221.81.1',1133459945,1,0,1,1,1,1,'','','Dutch:\n\nPls test VERCE an excellent GUI to compile all your project and to create Libs.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n\nRegards, Armando','',0,'gA==','3vv4g5nq',1,0,'',53,0,0),(2802,735,4,13,0,'213.76.252.200',1133461657,1,0,1,1,1,0,'','','Enrico,\n\nI try this, but function still desn\'t work.\n\nPawel','',0,'gA==','1f4s3kx3',1,0,'',13,0,0),(2803,734,3,276,0,'217.77.208.135',1133462533,1,0,1,1,1,0,'','Re: Examples for xHARBOUR','&#1046;&#1072;&#1083;&#1100; &#1085;&#1077;&#1090; &#1074;&#1077;&#1090;&#1082;&#1080; &#1085;&#1072; &#1088;&#1091;&#1089;&#1089;&#1082;&#1086;&#1084; &#1103;&#1079;&#1099;&#1082;&#1077; &#1087;&#1086; FWH.\nSorry &#1079;&#1072; Offtop.','',0,'gA==','16l4z8hl',1,0,'',276,0,0),(2804,735,4,6,0,'82.61.69.142',1133463539,1,0,1,1,1,1,'','','What is TEXT()?\n\nEMG','',0,'gA==','3cmid3u7',1,0,'',6,0,0),(2805,719,2,180,0,'83.37.1.2',1133463669,1,0,1,1,1,0,'','','Hola Gerardo:\n\nHas incluido\n #include image.ch\n\n Puede ser ese el problema.\n\nUn saludo,\nManuel','',0,'gA==','2kltk6n0',1,0,'',180,0,0),(2806,730,3,286,0,'200.109.148.28',1133468470,1,0,1,1,1,0,'','','Thanks Antonio\n\nYou\'re right but the samples show a control from code not from resource. I don\'t know if this could be the problem. I\'ve set up a SysTreeView32 control on this way from RWS\n\nCONTROL \"\", 1007, \"SysTreeView32\", WS_CHILD | WS_VISIBLE | WS_BORDER, 12, 72, 206, 100\n\nand my code is\n\n[code:2wj697pn]\ndefine dialog oDlg of oWChild resource &quot;nomdepto&quot; font oCfg&#58;aFonts&#91;1&#93;\n\noImageList &#58;= TImageList&#40;&#41;&#58;New&#40; 0, 0 &#41;\noTree &#58;= TTreeView&#40;&#41;&#58;Redefine&#40; 1007, oDlg &#41;\noTree&#58;bChanged = &#123; || ChkTreeItem&#40; oTree&#58;GetSelected&#40;&#41;, oNomDep &#41;, ;\n		                      ChgCtrlMode&#40; oGet, &quot;REFRESH&quot; &#41; &#125;\n\nactivate window oWChild valid on init FillTree&#40; oTree, oImageList, oNomDep &#41;\n// --------------------------------------------------------\nfunction FillTree&#40; oTree, oImageList, oNomDep &#41;\n	local cCodigo, lFirst &#58;= &#46;t&#46;\n	local cOrder &#58;= oNomDep&#58;SetOrder&#40; &quot;codigo&quot; &#41;\n\n	oTree&#58;SetImageList&#40; oImageList &#41;\n	do while !oNomDep&#58;Eof&#40;&#41;\n		if lFirst\n			cCodigo &#58;= AllTrim&#40; oNomDep&#58;nomdepcod &#41;\n			lFirst &#58;= &#46;f&#46;\n		endif\n\n		if Len&#40; AllTrim&#40; oNomDep&#58;nomdepcod &#41;&#41; == Len&#40; cCodigo &#41;\n			oTree&#58;Add&#40; AllTrim&#40; oNomDep&#58;nomdepcod &#41; + &quot; - &quot; + AllTrim&#40; oNomDep&#58;nomdepnom &#41;, 0 &#41;\n		endif\n		oNomDep&#58;Skip&#40;&#41;\n	enddo\n	oNomDep&#58;SetOrder&#40; cOrder &#41;\n	\nreturn nil\n// --------------------------------------------------------\nfunction ChkTreeItem&#40; oItem, oNomDep, oGet &#41;\n	local cCodigo &#58;= AllTrim&#40; StrToken&#40; oItem&#58;cPrompt, 1, &quot;-&quot; &#41;&#41;\n	local cOrder &#58;= oNomDep&#58;SetOrder&#40; &quot;codigo&quot; &#41;\n	local nPos\n\n	oNomDep&#58;Seek&#40; cCodigo &#41;\n	nPos &#58;= oNomDep&#58;RecNo&#40;&#41;\n	if Len&#40; oItem&#58;aItems &#41; = 0\n		oNomDep&#58;Skip&#40;&#41;\n		cRoot &#58;= AllTrim&#40; oNomDep&#58;nomdepcod &#41;\n		if !oNomDep&#58;Eof&#40;&#41;\n			do while !oNomDep&#58;Eof&#40;&#41;\n				if Left&#40; oNomDep&#58;nomdepcod, Len&#40; cCodigo &#41;&#41; == cCodigo &#46;and&#46; ;\n				   Len&#40; AllTrim&#40; oNomDep&#58;nomdepcod &#41;&#41; = Len&#40; cRoot &#41;\n					oItem&#58;Add&#40; AllTrim&#40; oNomDep&#58;nomdepcod &#41; + &quot; - &quot; + AllTrim&#40; oNomDep&#58;nomdepnom &#41;&#41;\n				endif\n				oNomDep&#58;Skip&#40;&#41;\n			enddo\n		endif\n	endif\n	oNomDep&#58;GoTo&#40; nPos &#41;\n	oNomDep&#58;Load&#40;&#41;\n	oItem&#58;Expand&#40;&#41;\nreturn nil\n[/code:2wj697pn]\n\n\nso  as I say before, the grid work ok, every brance works fine. If I define bitmaps on the oImageList object this shows ok... the only thing is the lines dots. Take in mind that the database object was defined ok and working... just I don\'t put code about it for compact the sample\n\nThanks','',0,'AIA=','2wj697pn',1,0,'',286,0,0),(2807,742,6,138,0,'201.128.111.75',1133470816,1,0,1,1,1,1,'','','Simplemente asegurate que ambas maquinas tengan el mismo Collation sequence y Ansi translation.\n\nEso lo miras en el archivo de configuracion del servidor local ADSLOCAL.CFG.\n\nTe he respondido con mayor detalle en el foro de xHB.','',0,'AIA=','3ogc6t1w',1,0,'',138,0,0),(2808,741,6,40,0,'200.92.22.136',1133470945,1,0,1,1,1,0,'','','Armando, la pregunta mas bien era que archivos va a contener FiveWinH.Lib y FiveWinHC ? o si va a ser una sola libreria la que se va a generar ?\n\nGracias\nJoel','',0,'AIA=','1ch98ugo',1,0,'',40,0,0),(2809,742,6,41,0,'200.87.67.10',1133471410,1,0,1,1,1,0,'','','Gracias Rene como siempre, vere como resulta esto\n\nsaludos\n\nMarcelo\n\n[quote=&quot;RF&quot;:13b58c99]Simplemente asegurate que ambas maquinas tengan el mismo Collation sequence y Ansi translation.\n\nEso lo miras en el archivo de configuracion del servidor local ADSLOCAL.CFG.\n\nTe he respondido con mayor detalle en el foro de xHB.[/quote:13b58c99]','',0,'gA==','13b58c99',1,0,'',41,0,0),(2810,744,3,49,0,'87.7.176.195',1133471973,1,0,1,1,1,0,'','combox control  convert to tab control','on a dialog I have a combobox\n\n\n[code:24szdr5w] REDEFINE COMBOBOX oCbx VAR cVar ITEMS aIdx ID 210 OF oDlg;\n      ON CHANGE Sel_Index&#40;oCbx&#41;\n\n\n&#46;&#46;&#46;\nSTAT FUNC Sel_Index&#40;oCbx&#41;\n   &#40;oDCli&#41;-&gt;&#40;OrdSetFocus&#40;oCbx&#58;nAt&#41;&#41;\n   oBCli&#58;Refresh&#40;&#41;\n   oBCli&#58;SetFocus&#40;&#41;\n   oBCli&#58;aHeaders&#91;5&#93;&#58;=IF&#40;oCbx&#58;nAt=5,&quot;Vendita Netta&quot;,&quot;Saldo Attuale&quot;&#41;\nRETURN &#40;NIL&#41;\n[/code:24szdr5w]\n\n\n\n\nI want insert on the botton of dialog a Tab with the same operation  but when i try it make error \ni try with \n\n[code:24szdr5w]@ &#40; oDlg&#58;nHeight / 2 &#41; - 11, nBrwSplit+2 TABS oCbx  ;\n    SIZE oWnd&#58;nWidth&#40;&#41; - 80, 12 ;\n    PIXEL ;\n    OF oDlg ;\n    ITEMS aIdx ;\n    COLOR CLR_BLACK, GetSysColor&#40;15&#41; - rgb&#40; 30, 30, 30 &#41;; // 13362404  ;\n  action  Sel_Index&#40;oCbx[/code:24szdr5w]\n\n\nHow can I make it to click on each tabs and index the listbox  and focus on the order i selected ?\n\nThanks in advance','',0,'AIA=','24szdr5w',1,0,'',49,0,0),(2811,745,2,228,0,'200.119.62.162',1133474746,1,0,1,1,1,1,'','que es un archivo xml','Compañeros de foro como estan. \n\nTengo el siguiente problema, en Colombia la Direccion Nacional de Impuestos y Aduanas Nacionales, no hace entregar unos archivos en donde se reporta el movimiento del año. Hasta el año 2004 lo teniamos que reportar en archivo plano o en archivo excel. Pero este año se les ocurrio que debiamos entregarlo en formato XML. \n\nLas preguntas son las siguientes y perdon por mi ignoracia y no se si eso ya es viejo o lo puedo hacer con fw o con excel.\n\n1-&gt; Que es un archivo XML?\n2-&gt; Existe aluna rutina para generar estos archivos en FW.\n3-&gt; Si no se pueden hacer con FW alguien me puede dar una idea de    \n      como hacerlo.\n\nNuevamente Gracias\nLEANDRO ALFONSO','',0,'AIA=','3466jvx7',1,0,'',228,0,0),(2812,746,3,49,0,'87.7.176.195',1133479007,1,0,1,1,1,0,'','Twbrowse new','where I can found twbrowse 1.8 new release for xharbour ?\n\nRegards','',0,'AIA=','65vmz77m',1,0,'',49,0,0),(2813,702,2,66,0,'24.232.135.75',1133485221,1,0,1,0,1,0,'','','Me podrias enviar un ejemplo a mi tabien\n\nGracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','19ztyx9y',1,0,'',66,0,0),(2814,747,4,68,0,'203.13.90.2',1133487072,1,0,1,1,1,1,'','Bluetooth serial port','I need 2-way comms to a Bluetooth \'Flic\' scanner (to handle the out of range protocol), but always get a port handle of -1 and no response.  For testing I have added a \'read\' section to sample program \'bluetoth\' using code as earlier posts and am attempting to retrieve each character via Chr(bin2l( ReadByte( hIn ) ) )\nThe scanner works OK to other programs and also via keyboard wedge s/w.\nAntonio, friends, can anyone offer any clues?\nthanks','',0,'AIA=','3kmazxal',1,0,'',68,0,0),(2815,748,6,292,0,'200.84.200.179',1133490100,1,0,1,1,1,1,'','Instalando FW27 con xharbour Error E2293','Colegas,\nInstale en un PC nuevo: xharbour, FW27 y bcc55 \nme aparece este mensaje, en mi anterior PC con FW24 funciona OK,\ncopie los c:\\BCC55\\BIN\\*.CFG y persiste.\n\nError E2293 C:\\BCC55\\INCLUDE\\windef.h 145: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\windef.h 154: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\windef.h 155: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 296: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 355: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 1656: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 1657: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 3532: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 3533: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 3534: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 3561: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 3789: ) expected\nError E2139 C:\\BCC55\\INCLUDE\\winnt.h 3882: Declaration missing ;\nError E2139 C:\\BCC55\\INCLUDE\\winnt.h 3892: Declaration missing ;\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 3949: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 3950: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4796: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4797: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4932: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4933: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4934: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4935: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4936: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4937: ) expected\nError E2293 C:\\BCC55\\INCLUDE\\winnt.h 4938: ) expected\nError E2228 C:\\BCC55\\INCLUDE\\winnt.h 4938: Too many error or warning messa','',0,'AIA=','1nv3td7v',1,0,'',292,0,0),(2816,719,2,235,0,'200.56.67.6',1133492559,1,0,1,1,1,0,'','','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nMuchas Gracias, me faltaba incluir el Image.ch.','',0,'AIA=','2091w5zf',1,0,'',235,0,0),(2817,725,2,235,0,'200.56.66.202',1133492854,1,0,1,1,1,0,'','','yo lo hago de esta forma:\n\nDEFINE MSGITEM oMiCasilla1 OF oWndMain:oMsgBar PROMPT \"Mi Mensaje\" SIZE 120 COLOR CLR_BLUE\n\nespero te sirva.\n\nsalu2','',0,'AIA=','2eg71apl',1,0,'',235,0,0),(2818,749,1,47,0,'203.144.143.7',1133498405,1,0,1,1,1,0,'','Have any one use EZTWAIN.DLL from DOSADI?','Dear All,\n\nHave any one use EZTWAIN from <!-- w --><a class=\"postlink\" href=\"http://www.dosadi.com\">www.dosadi.com</a><!-- w -->?  I would like to have an example for CL52e/FW 2.5.  \n\nThanks in advance,\nDutch','',0,'AIA=','h7flp07g',1,0,'',47,0,0),(2819,733,6,18,0,'201.129.2.108',1133504160,1,0,1,1,1,1,'','','Los invito a todos a seguir contribuyendo con sus aportaciones para continuar con el mantenimiento del sitio que tan gentilmente Daniel Andrade hospedo en mi sitio.','',0,'AIA=','1wnemlxr',1,0,'',18,0,0),(2820,735,4,13,0,'213.76.252.200',1133508527,1,0,1,1,1,0,'','','Enrico,\n\nTEXT () is window title.\n\nPawe&#322;','',0,'AIA=','34g9s0ut',1,0,'',13,0,0),(2821,734,3,333,0,'80.237.46.134',1133510219,1,0,1,1,1,0,'','Re: Examples for xHARBOUR','[quote=&quot;Dima&quot;:2hnx63ph]&#1046;&#1072;&#1083;&#1100; &#1085;&#1077;&#1090; &#1074;&#1077;&#1090;&#1082;&#1080; &#1085;&#1072; &#1088;&#1091;&#1089;&#1089;&#1082;&#1086;&#1084; &#1103;&#1079;&#1099;&#1082;&#1077; &#1087;&#1086; FWH.\nSorry &#1079;&#1072; Offtop.[/quote:2hnx63ph]\n&#1055;&#1080;&#1096;&#1080; &#1087;&#1086;-&#1088;&#1091;&#1089;&#1089;&#1082;&#1080;  <!-- e --><a href=\"mailto:orsv04@mail.ru\">orsv04@mail.ru</a><!-- e -->','',0,'gA==','2hnx63ph',1,0,'',333,0,0),(2822,736,3,333,0,'80.237.46.134',1133510718,1,0,1,1,1,0,'','','[quote=&quot;Armando&quot;:vi2hu7nx]Dutch:\n\nPls test VERCE an excellent GUI to compile all your project and to create Libs.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n\nRegards, Armando[/quote:vi2hu7nx]\n\nRegrettably no interface on english','',0,'gA==','vi2hu7nx',1,0,'',333,0,0),(2823,736,3,49,0,'213.82.134.66',1133512979,1,0,1,1,1,0,'','','Use XMate!!!!\nWith this program You Can create LIB, DLL, and EXE program in five minutes !!!!!\nit run with clipper,fw,c3,xharbour,harbour.....\n\nRegards','',0,'gA==','3cjbxgsj',1,0,'',49,0,0),(2824,750,6,21,0,'80.58.49.235',1133513120,1,0,1,1,1,1,'','Error en dialog','Hola foro,\n\nHay momentos en la actividad del programa en los que ejecuta el siguiente error.\n[code:2dmvtz0q]________________________________________________________________________________\n\n   Error BASE/1&#46;077  Error de argumento&#58; &#46;NOT&#46;\n\n   Argumentos   &#58;\n     &#91;   1&#93; = U   \nLlamadas al Stack\n________________________________________________________________________________\n\n   Called from TDIALOG&#58;END&#40;0&#41;\n   Called from &#40;b&#41;ENABLE&#40;550&#41;\n   Called from TCONTROL&#58;CLICK&#40;0&#41;\n   Called from TWINDOW&#58;KEYCHAR&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;3126&#41;\n   Called from DIALOGBOXINDIRECT&#40;0&#41;\n   Called from TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Called from MSGRUN&#40;0&#41;\n   Called from PS_GETPRECIOSQL&#40;346&#41;\n   Called from GETPRECIOS&#40;87&#41;\n   Called from PS_SHOW&#40;270&#41;\n   Called from &#40;b&#41;ALBCOMPLIN&#40;82&#41;\n   Called from TLINDAT&#58;EDIT&#40;511&#41;\n   Called from TLINDAT&#58;EJECUTAR&#40;601&#41;\n   Called from &#40;b&#41;BUILDCONTROLS&#40;301&#41;\n   Called from TLINDAT&#58;KEYDOWN&#40;702&#41;\n   Called from &#40;b&#41;NEW&#40;181&#41;\n   Called from &#40;b&#41;ACTIVATE&#40;186&#41;\n   Called from TWINDOW&#58;KEYDOWN&#40;2392&#41;\n   Called from TWINDOW&#58;KEYDOWN&#40;0&#41;\n   Called from TWINDOW&#58;KEYDOWN&#40;2400&#41;\n   Called from TWINDOW&#58;KEYDOWN&#40;2400&#41;\n   Called from TWINDOW&#58;KEYDOWN&#40;0&#41;\n   Called from TWINDOW&#58;KEYDOWN&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;3126&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TWINDOW&#58;ACTIVATE&#40;880&#41;\n   Called from MAIN&#40;58&#41;[/code:2dmvtz0q]\n\nHaber si me pudierais explicar porque que se produce.\n\nMuchas gracias de antemano por vuestro tiempo','',0,'AIA=','2dmvtz0q',1,0,'',21,0,0),(2825,735,4,6,0,'82.59.51.158',1133516556,1,0,1,1,1,1,'','','No, I did mean, what is function TEXT()?\n\nEMG','',0,'AIA=','318jbyb7',1,0,'',6,0,0),(2826,751,22,195,0,'62.38.106.71',1133522759,1,0,1,1,1,0,'','What happens with the upcoming  Vista Windows','As a  very close subject <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nRegards\n\nDionisis','',0,'AIA=','30mvdo6b',1,0,'',195,0,0),(2827,752,6,329,0,'190.48.116.177',1133526113,1,0,1,1,1,0,'','Error CLSNEW, CLSADDDATA, etc','Amigos foreros, tengo el siguiente error que voy a redactar lo mas claro posible.\nTengo una aplicacion de varios .prg que estoy compilando con el brmake (que genera un exe a partir de varios prg\'s). Para poder compilarlo me tube que armar una libreria a partir de unos prg que tenia algunas funciones nativas, esto lo hice de la misma manera con el brmake.\nCuando voy a compilar nuevamente los prg con el brmake para armar el exe me dice Unresolved External \'aca me pone el nombre de la funcion\' y me hace referencia a la lib que yo genere.\nAlguno tubo un problema con las mismas funciones?, alguno sabe donde puedo conseguir los prg que tengan estas funciones?\nCLSNEW, CLSADDDATA, CLSADDMETHOD, NEW, RECUPERAR, RECALL, NCLSMAKE, __CLASSINS, ASTR2ARRAY, ISNUM, ISCHAR.\nAca hay algunas que estan hechas por mi, pero mi inquietud es por las mas genericas. Saber donde puedo conseguir los prg que las contengan, o si las tengo que me digan cuales son, porque yo no las encontre.\nDesde ya muchas gracias\n\nMatias','',0,'AIA=','hzzrie4x',1,0,'',329,0,0),(2828,722,1,125,0,'213.140.6.105',1133526519,1,0,1,1,1,0,'','','I fix my tget (fwh24) and i include it in my link but if i use:\n\noget1:bMoved:={ || myfunction() }\n\nmyfunction() is called only when i relase the left mouse button\n\nwhile if i use \n\noget1:bMMoved:={ || myfunction() }\n\nnothing happens\n\nany help\nPiscicelli/Zingoni','',0,'AIA=','34mgx0zc',1,0,'',125,0,0),(2829,203,4,2,0,'80.58.2.107',1133526524,1,0,1,1,1,1,'','','GWard,\n\nWe can\'t say a date for sure. There has been a missunderstading on our side as we thought you needed a different feature, not the ability to behave like excel dragging with the pen. \n\nThats a behavior that we don\'t even have for our FiveWin for PC yet.','',0,'AIA=','303ujnp2',1,0,'',2,0,0),(2830,747,4,2,0,'80.58.2.107',1133526660,1,0,1,1,1,1,'','','Jon,\n\nWe discussed the bluetooth issue here, and finally got it working using CreateFile() function call. Is that the one you are using too ?','',0,'AIA=','3gwfp8qr',1,0,'',2,0,0),(2831,735,4,13,0,'213.76.252.200',1133527628,1,0,1,1,1,0,'','','Enrico,\n\nTEXT is macro declared as:\n\n\"#define TEXT(quote) L##quote\"\n\nPawel','',0,'AIA=','3ebpujv8',1,0,'',13,0,0),(2832,735,4,2,0,'80.58.2.107',1133528095,1,0,1,1,1,1,'','','Yes, it is the equivalent to write L\"hello\". The C compiler generates a hello in unicode.','',0,'AIA=','3dye91vi',1,0,'',2,0,0),(2833,750,6,123,0,'81.39.238.51',1133528132,1,0,1,1,1,0,'','','fgondi,\n\n[quote:1br0y5gi] Called from TDIALOG:END(0)\n   Called from (b)ENABLE(550)\n   Called from TCONTROL:CLICK(0) [/quote:1br0y5gi]\n\nRevisa el bloque de código que debe haber dentro del ACTION de algún botón del diálogo (el que se haya pulsado).\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1br0y5gi',1,0,'',123,0,0),(2834,736,3,35,0,'167.7.140.254',1133529874,1,0,1,1,1,0,'','','YES .. xMate is a great make and project manager .. jI recently uploaded new xMate environments for Borland and MSVC to their website..\n\n<!-- m --><a class=\"postlink\" href=\"http://www.geocities.com/wowbase/xMate.html\">http://www.geocities.com/wowbase/xMate.html</a><!-- m -->\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','23p9dbe9',1,0,'',35,0,0),(2835,747,4,68,0,'203.45.174.65',1133532130,1,0,1,1,1,1,'','','Antonio,\nYes, I\'m using the same method as used by Jose with the printer and in your \'bluetoth\' sample.  I have a variant \'blueread\' :\n\n// BlueRead \n#include \"FWCE.ch\"\n#define GENERIC_READ    0x80000000\n#define GENERIC_WRITE   0x40000000 \n#define OPEN_EXISTING   3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n\nfunction Main()\n\n   local oWnd\n   local hOut := CreateFile( \"COM2:\",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n   \n   DEFINE WINDOW oWnd TITLE \"BlueRead\"\n   \n   @ 2, 2 BUTTON \"Read\" ;\n      ACTION ReadText( hOut ) SIZE 80, 20\n   \n   ACTIVATE WINDOW oWnd\n   \n   CloseHandle( hOut )\n   \nreturn nil   \n\nfunction ReadText( hOut )\n\n   local nChr  := 1\n   local cText := \"\"\n   local nLen  := 0\n   \n   msginfo(str(hOut))\n   \n   do while nChr &lt;&gt; 0\n      nChr  := bin2l( ReadByte( hOut ) )\n      cText := cText + Chr( nChr )\n   end do\n\n   msginfo( cText )\n   \nreturn nil\n\nThe port handle is displayed as -1 and then just blanks.  I wondered if anyone has got this running in this mode.  I will also need to write a response to the scanner, hence am using \'write\' mode.  Any help is gratefully received, thanks.','',0,'gA==','19usjmp9',1,0,'',68,0,0),(2836,448,3,267,0,'200.208.238.2',1133533821,1,0,1,1,1,0,'','','Antonio, \n\nAlready I obtained to identify that the problem is in the function hPalBitmapDraw() that in Windows XP is painting missed the figure of the button, but does not know where to find this function! You can help me? \n\nthanks,\nVilian F. Arraes \n<!-- e --><a href=\"mailto:vilian@vfatec.com.br\">vilian@vfatec.com.br</a><!-- e -->','',0,'gA==','349vup9k',1,0,'',267,0,0),(2837,733,6,2,0,'80.58.2.107',1133533881,1,0,1,1,1,1,'','','Vikthor,\n\nEstupendo! Muchas gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2uq0tyzi',1,0,'',2,0,0),(2838,747,4,2,0,'80.58.2.107',1133534020,1,0,1,1,1,1,'','','Jon,\n\nPlease notice that you should use GENERIC_READ instead of GENERIC_WRITE.','',0,'gA==','1yarkaeh',1,0,'',2,0,0),(2839,673,3,286,0,'200.109.148.28',1133534930,1,0,1,1,1,1,'','','Hi Sakis\n\nThis code seems to be works for you. I understand you have the SysTreeView32 control defined in a DLL. Could you tell me in the DLL how the control was defined?\n\nI\'ve defined in this way \n\nCONTROL \"\", 1007, \"SysTreeView32\", WS_CHILD | WS_VISIBLE | WS_BORDER, 12, 72, 206, 100\n\nBut I can\'t see the lines neither the (+)(-) signs even the rest works fine\n\nThanks','',0,'gA==','2yoqnacf',1,0,'',286,0,0),(2840,673,3,195,0,'62.38.106.71',1133535740,1,0,1,1,1,0,'','','Hi wpacheco\n\nSorry but i use the pellesc IDE and i get the resources directly into the DLL. So i can\'t answer to your question because I dont use any RC file . Others  advantages to use this IDE is to let you  assign other control characteristics like HasButtons HasLines etc.etc.\n\nThis is very  easy and quick way to make your 32  resources DLL\'s.\n\nHere is a link to see more \n\n\n[url:us39u2sq]http&#58;//www&#46;smorgasbordet&#46;com/pellesc/[/url:us39u2sq]\n\nGreetings \nDionisis','',0,'EA==','us39u2sq',1,0,'',195,0,0),(2841,750,6,21,0,'80.58.49.235',1133538476,1,0,1,1,1,1,'','','Jose Luis,\n\nAnte todo gracias por tu respuesta.\n\nfijate que el error se produce al cerrar la ventana que genera msgrun(), eso es lo que no entiendo.\n[code:20m885z7] Called from TDIALOG&#58;END&#40;0&#41; \n   Called from &#40;b&#41;ENABLE&#40;550&#41; \n   Called from TCONTROL&#58;CLICK&#40;0&#41; \n   Called from TWINDOW&#58;KEYCHAR&#40;0&#41; \n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41; \n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41; \n   Called from _FWH&#40;3126&#41; \n   Called from DIALOGBOXINDIRECT&#40;0&#41; \n   Called from TDIALOG&#58;ACTIVATE&#40;0&#41; \n   Called from MSGRUN&#40;0&#41; [/code:20m885z7]\nLo que no sé es si el click() pertenece a algún botón de la ventana que hay por detras del mensaje msgrun() y como evitarlo, ya que no debería permitir la pulsación de dichos botones, aunque sea a traves de pulsación rapida (KeyDown, KeyChar, etc.)','',0,'AIA=','20m885z7',1,0,'',21,0,0),(2842,745,2,180,0,'83.41.211.23',1133538691,1,0,1,1,1,0,'','','Hola Leandro:\nHacer un archivo xml es tan fácil como generar un archivo plano y puedes hacerlo perfectamente con clipper/fivewin; eso sí, siguiendo un esquema determinado que han de proporcionarte previamente para poder generarlo. Otra historia es programar en xml, pero creo que eso se sale completamente de tus pretensiones.\n\nEsto de más abajo es un ejemplo archivo xml generado como un archivo plano. Copialo en un archivo plano pero con la extensión xml y verás como lo ejecuta el iexplorer.\nUn saludo,\nManuel \n\n&lt;?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?&gt; \n &lt;LLAMAMIENTOS&gt;\n &lt;LLAMAMIENTO_TIPO&gt;\n &lt;DATOS_EMPRESA&gt;\n &lt;CIF_NIF_EMPRESA&gt;\n  &lt;CIF_NIF&gt;P0101001F&lt;/CIF_NIF&gt; \n  &lt;/CIF_NIF_EMPRESA&gt;\n  &lt;CCC&gt;011101000010030&lt;/CCC&gt; \n  &lt;/DATOS_EMPRESA&gt;\n &lt;DATOS_TRABAJADOR&gt;\n  &lt;IDENTIFICADORPFISICA&gt;D00000022E&lt;/IDENTIFICADORPFISICA&gt; \n &lt;NOMBRE_APELLIDOS&gt;\n  &lt;NOMBRE&gt;LUISA&lt;/NOMBRE&gt; \n  &lt;PRIMER_APELLIDO&gt;REYES&lt;/PRIMER_APELLIDO&gt; \n  &lt;SEGUNDO_APELLIDO&gt;GALLEGO&lt;/SEGUNDO_APELLIDO&gt; \n  &lt;/NOMBRE_APELLIDOS&gt;\n  &lt;SEXO&gt;2&lt;/SEXO&gt; \n  &lt;FECHA_NACIMIENTO&gt;19750518&lt;/FECHA_NACIMIENTO&gt; \n  &lt;NACIONALIDAD&gt;724&lt;/NACIONALIDAD&gt; \n  &lt;MUNICIPIO_RESIDENCIA&gt;46022&lt;/MUNICIPIO_RESIDENCIA&gt; \n  &lt;PAIS_RESIDENCIA&gt;724&lt;/PAIS_RESIDENCIA&gt; \n  &lt;/DATOS_TRABAJADOR&gt;\n &lt;DATOS_LLAMAMIENTO&gt;\n  &lt;FECHA_INICIO&gt;20040501&lt;/FECHA_INICIO&gt; \n  &lt;FECHA_FIN&gt;20040930&lt;/FECHA_FIN&gt; \n  &lt;CLAVE_CONTRATO_TRANS&gt;E122004999999900&lt;/CLAVE_CONTRATO_TRANS&gt; \n  &lt;NIVEL_FORMATIVO&gt;23&lt;/NIVEL_FORMATIVO&gt; \n  &lt;/DATOS_LLAMAMIENTO&gt;\n &lt;DATOS_USOLIBRE_EMPRESA&gt;\n  &lt;USOLIBRE_EMPRESA&gt;1111 2222 aaaaaa DDDDD&lt;/USOLIBRE_EMPRESA&gt; \n  &lt;/DATOS_USOLIBRE_EMPRESA&gt;\n  &lt;/LLAMAMIENTO_TIPO&gt;\n &lt;LLAMAMIENTO_TIPO&gt;\n &lt;DATOS_EMPRESA&gt;\n &lt;CIF_NIF_EMPRESA&gt;\n  &lt;CIF_NIF&gt;P0101001F&lt;/CIF_NIF&gt; \n  &lt;/CIF_NIF_EMPRESA&gt;\n  &lt;CCC&gt;011101000010030&lt;/CCC&gt; \n  &lt;/DATOS_EMPRESA&gt;\n &lt;DATOS_TRABAJADOR&gt;\n  &lt;IDENTIFICADORPFISICA&gt;D00000022E&lt;/IDENTIFICADORPFISICA&gt; \n &lt;NOMBRE_APELLIDOS&gt;\n  &lt;NOMBRE&gt;LUISA&lt;/NOMBRE&gt; \n  &lt;PRIMER_APELLIDO&gt;REYES&lt;/PRIMER_APELLIDO&gt; \n  &lt;SEGUNDO_APELLIDO&gt;GALLEGO&lt;/SEGUNDO_APELLIDO&gt; \n  &lt;/NOMBRE_APELLIDOS&gt;\n  &lt;SEXO&gt;2&lt;/SEXO&gt; \n  &lt;FECHA_NACIMIENTO&gt;19750518&lt;/FECHA_NACIMIENTO&gt; \n  &lt;NACIONALIDAD&gt;724&lt;/NACIONALIDAD&gt; \n  &lt;MUNICIPIO_RESIDENCIA&gt;46022&lt;/MUNICIPIO_RESIDENCIA&gt; \n  &lt;PAIS_RESIDENCIA&gt;724&lt;/PAIS_RESIDENCIA&gt; \n  &lt;/DATOS_TRABAJADOR&gt;\n &lt;DATOS_LLAMAMIENTO&gt;\n  &lt;FECHA_INICIO&gt;20040401&lt;/FECHA_INICIO&gt; \n  &lt;CLAVE_CONTRATO_TRANS&gt;E122004999999955&lt;/CLAVE_CONTRATO_TRANS&gt; \n  &lt;NIVEL_FORMATIVO&gt;23&lt;/NIVEL_FORMATIVO&gt; \n  &lt;/DATOS_LLAMAMIENTO&gt;\n  &lt;/LLAMAMIENTO_TIPO&gt;\n  &lt;/LLAMAMIENTOS&gt;','',0,'AIA=','3hw4wq06',1,0,'',180,0,0),(2843,730,3,286,0,'200.109.148.28',1133539653,1,0,1,1,1,1,'','','Dear friends:\n\nAfter look several samples, finally I found the solution to the (+)/(-) bitmaps and dotlines. When you defined an SysTreeView32 control on a DLL or .RC file, you should set the constant number 135 or 7 in the control style box\n[code:3cxcxi2x]CONTROL &quot;&quot;, 1007, &quot;SysTreeView32&quot;, WS_CHILD | WS_VISIBLE | 135 | WS_BORDER, 12, 72, 206, 100[/code:3cxcxi2x]\nThe another tip is fill the tree in the ON INIT event of your dialog activation. After that you Tree control should look fine   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','3cxcxi2x',1,0,'',286,0,0),(2844,753,1,51,0,'80.122.88.242',1133541796,1,0,1,1,1,0,'','Preview Easyreport','Is it possible to select an other temp folder for the meta-file.\n\nSome of the admins do not like that you have access to windows/temp.\n\nThanks in advance\nOtto\n\nThere are some things in vrd.exe which should be cleaned up.\nIs Timm still working on Easyreport?','',0,'AIA=','34fz3qys',1,0,'',51,0,0),(2845,754,6,255,0,'201.144.2.80',1133543477,1,0,1,1,1,1,'','URGENTE!! MAKE de borland y WinME','Que tal Amigos, espero me puedan ayudar.\nResulto que al intentar generar una aplicacion \nel MAKE de borland me produce el siguiente\nerror:\n\nEste programa ha efectuado una operación no\npermitida y será interrumpido. Cierre todas las\naplicaciones y reinicie el sistema.\nEl programa intentó ejecutar una instrucción no\nvalida. Ubicacion de errores 626F:3105\n\nQue es eso? a que se debe? como puedo solucionarlo?\nPor favor, si alguien me puede echar una manita\nse lo agradeceré mucho.\n\nEl comando que uso es el siguiente:\nMAKE -fPROY.MAK\n\nSaludos','',0,'AIA=','17tbw2ue',1,0,'',255,0,0),(2846,745,2,228,0,'201.245.238.246',1133546049,1,0,1,1,1,1,'','gracias','la verdad si me dieron el formato que debo usar pero no entiendo mucho com generar el contenido. Te adjunto el archivo que me dice como debo generarlo.\n \nAhi se habla de un encabezado pero no se como gerarlo. o no entiendo el orden del archivo. si me pudieras indicar el ornde del archivo te lo agradeceria o si sabes de algun ejemplo.\n\nSi me puedes enviar un correo en donde enviarte el archivo. o si quieres esta es la direccion en donde me indica como debo entregar el archivo.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.dian.gov.co/content/norma/medmagneticos/EspecificacionTecnica1010.pdf\">http://www.dian.gov.co/content/norma/me ... ca1010.pdf</a><!-- m -->\n\nDe antemano gracias\n\nLEANDRO ALFONSO\nBOGOTA COLOMBIA','',0,'AIA=','1dskpbjw',1,0,'',228,0,0),(2847,754,6,73,0,'201.138.166.223',1133546965,1,0,1,1,1,0,'','Re: URGENTE!! MAKE de borland y WinME','[quote=&quot;VeRCE&quot;:2rfy9dxl]Que tal Amigos, espero me puedan ayudar.\nResulto que al intentar generar una aplicacion \nel MAKE de borland me produce el siguiente\nerror:\n\nEste programa ha efectuado una operación no\npermitida y será interrumpido. Cierre todas las\naplicaciones y reinicie el sistema.\nEl programa intentó ejecutar una instrucción no\nvalida. Ubicacion de errores 626F:3105\n\nQue es eso? a que se debe? como puedo solucionarlo?\nPor favor, si alguien me puede echar una manita\nse lo agradeceré mucho.\n\nEl comando que uso es el siguiente:\nMAKE -fPROY.MAK\n\nSaludos[/quote:2rfy9dxl]\n\nmira no soy experto en esto, pero parece un Kernel panic, has intentado probar con pentium menor a 3 y con menos de 128mb de ram?','',0,'gA==','2rfy9dxl',1,0,'',73,0,0),(2848,754,6,255,0,'201.144.2.80',1133548707,1,0,1,1,1,1,'','Re: URGENTE!! MAKE de borland y WinME','no lo he intentado..........\nEso quiere decir que no podré compilar\nen esta PC donde me está dando el\nerror ?','',0,'gA==','6n1e4qy8',1,0,'',255,0,0),(2849,755,3,339,0,'200.216.155.7',1133550102,1,0,1,1,1,0,'','Error F0017  Too many nested #includes, can\'t open: \'hbclass','Hi , friends\n\nI´m new user for \"xHarbour Compiler build 0.99.50\" \n\nhow can Solutions this my problem.\n\nplease , some people help me.\n\nMauricio (rio de janeiro - BRAZIL)','',0,'gA==','3k7w26lz',1,0,'',339,0,0),(2850,739,3,339,0,'200.216.155.7',1133550803,1,0,1,1,1,0,'','','Sawasdee , dutch.\n\n   i think your problem are BAT Compiler and linker or Files *.cfg are wrong..\n\n  Show mw BAT compiler file  to help you ok\n\n Mauricio (BRAZIL)','',0,'gA==','2uq1uc3v',1,0,'',339,0,0),(2851,738,1,2,0,'80.58.2.107',1133553558,1,0,1,1,1,1,'','','Roman,\n\nWe have to fix it.  Thanks for your feedback.','',0,'gA==','2ubvnpgf',1,0,'',2,0,0),(2852,753,1,2,0,'80.58.2.107',1133553738,1,0,1,1,1,1,'','','Otto,\n\nTimm recently contacted us and he said he was going to publish a new version.\n\nThe fix you mention for the windows\\temp is it for FiveWin preview or for EasyReport ?','',0,'gA==','fk115ziq',1,0,'',2,0,0),(2853,730,3,2,0,'80.58.2.107',1133554038,1,0,1,1,1,1,'','','Williams,\n\nMany thanks for your feedback,','',0,'gA==','1m173q5g',1,0,'',2,0,0),(2854,755,3,2,0,'80.58.2.107',1133554199,1,0,1,1,1,1,'','','Mauricio,\n\nWhat #includes are you using ? What PRG are you compiling ? Could you please post a sample to reproduce the error ? Thanks.','',0,'gA==','3g45k44n',1,0,'',2,0,0),(2855,730,3,195,0,'62.38.16.194',1133554209,1,0,1,1,1,0,'','','Hi Again Williams\n\nSince now  accomplished to decomapile the dll. I post here the results for you or enyone who want this info.\n\nTry the following:\n[code:1f5v4por]\nCONTROL &quot;&quot;, 4008, &quot;SysTreeView32&quot;, TVS_HASBUTTONS | TVS_HASLINES | TVS_LINESATROOT | TVS_DISABLEDRAGDROP | TVS_SHOWSELALWAYS | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 402, 195, 225, 150 , 0x00020200\n[/code:1f5v4por]\n\nRegards from Greece  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n  Dionisis','',0,'AIA=','1f5v4por',1,0,'',195,0,0),(2856,740,3,2,0,'80.58.2.107',1133554451,1,0,1,1,1,1,'','','Rimantas,\n\nWe use AMD 64 bits (3400+) and it works excellent with FWH, etc. \n\nDo you have a demo of your app we may download to test it ?','',0,'AIA=','3h51qpzz',1,0,'',2,0,0),(2857,748,6,2,0,'80.58.2.107',1133554897,1,0,1,1,1,1,'','','Juan,\n\nhas creado estos ficheros ? (explicado en <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m --> )\n\n... una vez completado, deberá crear los siguientes archivos ascii: bcc32.cfg y ilink32.cfg e instalarlos en c:\\Su_Borland_path\\bin con el siguiente contenido:\n\nbcc32.cfg:\n\n-I\"c:\\Su_Borland_path\\include\"\n-L\"c:\\Su_Borland_path\\lib\" \n\nilink32.cfg:\n\n-L\"c:\\ Su_Borland_path \\lib\"','',0,'AIA=','2vrvm1qz',1,0,'',2,0,0),(2860,752,6,2,0,'80.58.2.107',1133555110,1,0,1,1,1,1,'','','Matias,\n\nHabias compilado anteriormente esos PRGs con FWH sin problemas ?','',0,'AIA=','29ktt5br',1,0,'',2,0,0),(2861,754,6,2,0,'80.58.2.107',1133555279,1,0,1,1,1,1,'','','Juan Carlos,\n\nEs el make.exe del Borland C 5.5 ?\n\nQue versión de Windows es ?','',0,'AIA=','p7qlf6l3',1,0,'',2,0,0),(2862,750,6,2,0,'80.58.2.107',1133555622,1,0,1,1,1,1,'','','Fernando,\n\nPrueba a deshabilitar la ventana principal, antes de llamar a MsgRun():\n\n[code:21vn28fm]\n   oWnd&#58;Disable&#40;&#41;\n   MsgRun&#40; &#46;&#46;&#46; &#41;\n   oWnd&#58;Enable&#40;&#41;\n[/code:21vn28fm]','',0,'AIA=','21vn28fm',1,0,'',2,0,0),(2863,755,3,339,0,'200.217.87.28',1133556054,1,0,1,1,1,0,'','','hi antonio\n\n    i´m using \"fivewin.ch\" version FHW 2.4\n\n i´m test only ..\n\n#include \"fivewin.ch\"\n\nfunction main()\n\n mauricio = \"TESTE NA TELA\"\n\n MSGINFO(MAURICIO)\n\nreturn(nil)','',0,'AIA=','35ut2tu5',1,0,'',339,0,0),(2864,756,1,266,0,'60.50.50.4',1133557543,1,0,1,1,1,1,'','send sms via modem (with phone sim card)','Hi,\n\nDoes anyone has fivewin sample to send sms via gsm modem in notebook/pc(connected with phone sim card) ?\n\nRegards\nHoe','',0,'AIA=','2h4j4ipg',1,0,'',266,0,0),(2865,757,2,147,0,'200.68.215.7',1133557717,1,0,1,0,1,1,'','Aplicacion en XP con NTFS','HORROR!!!; grande fue mi sorpresa al instalar una aplicación, FW+Clipper y, que luego de aplicar todas las recomendaciones en las Propiedades siga sin ejecutarse ...hasta que me percato que el disco tiene formato NTFS.\nPreguntonta: No existe solución para esto, no? (ya se que pasarlo a 32bits es una solución :-), ... otra plis!\n\ngracias','',0,'AIA=','2nlrf8u7',1,0,'',147,0,0),(2866,752,6,329,0,'190.48.110.190',1133557743,1,0,1,1,1,0,'','','Antonio... te cuento que los prg los estoy compilando a todos de una para armar el exe. Los prg que no logro conseguir son los que traen las funciones que hago referencia CLSNEW y otras. Esos prg son los que no encuentro.\nPor eso sospecho que el error que me esta dando es justamente por no estar compiladas y metidas en una lib.\nSi me puedes dar algun pista te agradeceria.\nSaludos\n\nMatias Camelli','',0,'AIA=','1lquetq1',1,0,'',329,0,0),(2867,754,6,255,0,'201.144.2.80',1133561217,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:10y96r4i]Juan Carlos,\nEs el make.exe del Borland C 5.5 ?\nQue versión de Windows es ?[/quote:10y96r4i]\n\nAsi es Antonio\ny es Windows Mellenium Edition.\n\nSaludos','',0,'gA==','10y96r4i',1,0,'',255,0,0),(2868,754,6,255,0,'201.144.2.80',1133564094,1,0,1,1,1,1,'','','Solucionado.\n\nFORMATEAMOS EL EQUIPO Y SE\nLE REINSTALÓ EL SISTEMA OPERATIVO.\n\nPerdimos un par de horas pero\nal menos ya compila bien.\n\nSi alguien sabe que pudo pasar, \nagradeceria la nota, aunque sea \nsolo para saber que pudo ser.\n\nGracias.','',0,'gA==','3jr9ug17',1,0,'',255,0,0),(2869,673,3,286,0,'200.109.148.28',1133567190,1,0,1,1,1,1,'','','Thanks Sakis. I will try  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2au8zxk6',1,0,'',286,0,0),(2870,281,21,323,0,'200.150.134.82',1133569516,1,0,1,1,1,0,'','ola grupo','teste  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1aj1jtvb',1,0,'',323,0,0),(2871,758,6,66,0,'24.232.135.75',1133570901,1,0,1,0,1,0,'','Error base /1004 Scope violation','Estimados Colegas\n\nAl compilar y enlazar una aplicacion me sale este error quisisera\nsaber que significa este error\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','2qxrb0cr',1,0,'',66,0,0),(2872,759,6,66,0,'24.232.135.75',1133571058,1,0,1,0,1,0,'','Compilar y enlazar  multiples prg con xharbour','Estimados Colegas\n\nAlguien tiene algun ejemplo de como compilar y enlazar multiples\nprgs con xharbour\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','1roe38fj',1,0,'',66,0,0),(2873,702,2,54,0,'201.155.95.194',1133584438,1,0,1,1,1,1,'','','[quote=&quot;lafug&quot;:3fve9t7d]leandro, dame tu correo electronico y te mando la clase con un ejemplo, a no ser de que sea posible através de este foro, si sabes me indicas como hacerlo\n\nsaludos[/quote:3fve9t7d]\n\nPodrias compartirla?\n\n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->\n\nGracias de antemano\n\nWilliam Morales','',0,'gA==','3fve9t7d',1,0,'',54,0,0),(2874,753,1,56,0,'217.251.228.109',1133597372,1,0,1,1,1,0,'','','Hi Otto,\n\nif EasyPreview does not have the right to create files in the windows \ndirectory use this to work around restricted access: \n\n// redirects the temporary preview files to an existing folder. \noPrn:cDir := \"c:\\test\\\" \n\n// Sets the name of the temporary file EasyPreview generates. \nEP_SetTempFile( \"c:\\test\\epreview.tmp\" )\n\nBest regards, Timm.\n\n   Timm Sodtalbers\n   Sodtalbers IT\n   <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->','',0,'gA==','2vstiqb9',1,0,'',56,0,0),(2875,725,2,2,0,'80.58.2.107',1133600202,1,0,1,1,1,1,'','','Leandro,\n\nRevisa el ejemplo samples\\TestMsg3.prg','',0,'gA==','1gs215zn',1,0,'',2,0,0),(2876,757,2,2,0,'80.58.2.107',1133600426,1,0,1,1,1,1,'','','Mario,\n\nEl NTFS no es problema, FiveWin 16 bits funciona perfectamente en NTFS.\n\nTe aparece algún mensaje de error de Windows ?','',0,'gA==','bfzraxb8',1,0,'',2,0,0),(2877,759,6,2,0,'80.58.2.107',1133600521,1,0,1,1,1,1,'','','Tienes ejemplos de makes, con varios ficheros, para Borland y Microsoft en el directorio FWH\\makes','',0,'gA==','3fylv10q',1,0,'',2,0,0),(2878,754,6,2,0,'80.58.2.107',1133600564,1,0,1,1,1,1,'','','un virus ?','',0,'gA==','18zinnww',1,0,'',2,0,0),(2879,752,6,2,0,'80.58.2.107',1133600676,1,0,1,1,1,1,'','','Matias,\n\nTu llamas al CLSNEW() directamente ? Sí es así, puedes poner un ejemplo de cómo lo haces ?','',0,'gA==','3saug34i',1,0,'',2,0,0),(2880,743,6,2,0,'80.58.2.107',1133600758,1,0,1,1,1,1,'','','Armando,\n\nEsa librería no es de FiveWin. Te refieres a FiveScript ?','',0,'gA==','230hnz7m',1,0,'',2,0,0),(2881,758,6,2,0,'80.58.2.107',1133600935,1,0,1,1,1,1,'','','En que código y en que línea de código ?','',0,'gA==','1gadisk8',1,0,'',2,0,0),(2882,723,6,2,0,'80.58.2.107',1133601230,1,0,1,1,1,1,'','','Fernando,\n\nEl problema es que esa función está diseñada para Clipper en donde 9 caracteres es el máximo tamaño para reconocer una data, puesto que para asignar un valor a una data, Clipper (y [x]Harbour) anteponen un subrayado al nombre de la data.\n\nHabría que modificar esa función para que trabaje con cualquier longitud de nombres de datas, para que funcione con [x]Harbour. Es un cambio fácil, se trata de comprobar que empiece por \"_\".','',0,'','fjvl2kkp',1,0,'',2,0,0),(2883,751,22,2,0,'80.58.2.107',1133601489,1,0,1,1,1,1,'','','Dionisis,\n\nFW (32 bits) applications should work with no problems on Windows Vista, anyhow we are waiting for a stable Windows Vista beta to start doing more tests. We have tested several betas but they were quite unstable.','',0,'','296zni2d',1,0,'',2,0,0),(2884,755,3,2,0,'80.58.2.107',1133601637,1,0,1,1,1,1,'','','Mauricio,\n\nPlease double check that you are using the right FWH fivewin.ch. It should work with no problems at all.','',0,'','uqmzf827',1,0,'',2,0,0),(2885,760,20,89,0,'213.21.136.60',1133604391,1,0,1,1,1,0,'','Uso di  Smartkey','Qualcuno do voi ha gia usato la chiave Smasrkey della eutron ?\n\nsaluti Maurizio','',0,'','r1lkkqet',1,0,'',89,0,0),(2886,755,3,339,0,'200.217.87.28',1133604869,1,0,1,1,1,0,'','','Dear Antonio ,\n\n After Double Check , i´m Using Fivewin for Harbour 2.6 and \"xHarbour Compiler build 0.99.50\" .\n\n  This Erros Occurs , because Many Files *.ch includes , this harbour accept only 16 Files ..\n\n  where may I Checkup if My files *.Ch are Correct?\n\nThanks Antonio.\n\nmauricio','',0,'','180pl5fw',1,0,'',339,0,0),(2887,745,2,180,0,'80.58.13.43',1133612532,1,0,1,1,1,0,'','','Hola de nuevo Leandro. Mira yo no tengo ni la más remota idea de XML y de momento, ningún interés ni tiempo para aprenderlo, pero un dia me encontré con el mismo problema que tú y encontré una solución, creo que poco ortodoxa pero que funciona perfectamente y como suelo seguir la máxima de que \"si algo funciona bien  no lo toques\" pues eso, así me estoy arreglando.\nSi miras en la página 5 de las especificaciones técnicas tienes un ejemplo. \n\nLo que yo hago es crearme una dbf temporal con un solo campo alfanumérico de gran longitud. Siguiendo el ejemplo anteriormente citado, cada una de las lineas las meto como un nuevo registro, así:\n&lt;? xml version=\"1.0\" encoding........ seria el primer registro\n&lt;mas xml........................seria el segundo registro\n................................................. y así sucesivamente. al llegar a las lineas de datos solo tienes que fusionar los literales de esas lineas con tus datos (eso sí tienes que tener en cuenta las especificaciones de los campos por si tienes que recortar o añadir algunos espacios, etc)\nUna vez finalizado el proceso haces un COPY FIELDS DATOS-&gt;Dato TO &amp;cNombreFi DELIMITED WITH BLANK y ya tienes el fichero creado. No olvides ponerle la extensión XML.\nProblemas que pueden presentarse:\n1º que el fichero no cumpla con las especificaciones XML y tenga un error en la estructura. Para detectarlo solo tienes que ejecutarlo con el IEXPLORER y si existe un problema de este tipo te lo detectará.\n2º que algún campo no cumpla con las especificaciones técnicas del esquema XSD. Detectar este segundo problema ya no es tan fácil (sin tener mucha idea de XML, claro) a menos que tengas un programa de validación del fichero o esperar a que el receptor te lo devuelva con los errores detectados.\nVenga ánimo, seguro que puedes con ello.\nUn saludo,\nManuel Aranda','',0,'','9fks28qb',1,0,'',180,0,0),(2888,723,6,21,0,'81.172.122.58',1133613158,1,0,1,1,1,1,'','','Antonio,\n\nGracias por tu respuesta.\n\nYo ya lo tengo corregido, pero no sabía que eso provocaría error si internamente fwh llama a esa función.','',0,'','frpld5at',1,0,'',21,0,0),(2889,750,6,21,0,'81.172.122.58',1133613264,1,0,1,1,1,1,'','','Antonio.\n\nGracias. En eso no había caido, seguramente se solucione. Lo probaré','',0,'','2sy7f6l6',1,0,'',21,0,0),(2891,762,6,340,0,'200.96.234.3',1133613463,1,0,1,1,1,1,'','Como saber la resolucion q la Pantalha esta configurada?','Como saber la resolucion q la Pantalha esta configurada?\n\nGracias','',0,'','347fliam',1,0,'',340,0,0),(2892,757,2,147,0,'200.68.215.7',1133616071,1,0,1,0,1,1,'','','Ya es buena noticia.\nAl arrrancar el equipo y ejecutarlo, por primera vez, aparece un mensaje que dice: \"Windows no tiene acceso al dispositivo ruta de acceso o archivo especificado. Puede que no tenga los permisos apropiados para tener acceso al elemento\".. En proximas ejecuciones el mensaje ya no aparece solo el cursor del mouse cambia su estado a wait, para luego volver a arrow.','',0,'','1e69f035',1,0,'',147,0,0),(2893,743,6,53,0,'200.66.175.243',1133619055,1,0,1,1,1,1,'','','Antonio:\n\nEfectivamente me referia a la FiveScript.\n\nSaludos, Armando','',0,'','jf57srh4',1,0,'',53,0,0),(2894,762,6,292,0,'200.84.200.179',1133619975,1,0,1,1,1,1,'','Respuesta','aCoor:=GetCoors( GetDesktopWindow() )\n\n  ? aCoor[3],aCoor[4]','',0,'','28ilhfgi',1,0,'',292,0,0),(2895,754,6,255,0,'201.144.1.198',1133624353,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:37yia1in]un virus ?[/quote:37yia1in]\n\nProbablemente Antonio, a ciencia cierta no podria\nasegurarlo, el hecho es que una vez formateado\nel equipo ya compila perfectamente.\n\nGracias igual por la atención.','',0,'gA==','37yia1in',1,0,'',255,0,0),(2896,759,6,255,0,'201.144.1.198',1133624482,1,0,1,1,1,1,'','Re: Compilar y enlazar  multiples prg con xharbour','[quote=&quot;Databaselab2002&quot;:20vk5j7y]Estimados Colegas\n\nAlguien tiene algun ejemplo de como compilar y enlazar multiples\nprgs con xharbour\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->[/quote:20vk5j7y]\n\nTal vez te interese probar Verce.\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n\nExisten otros gestores de proyectos como:\nAJmake, xMate, FrontEND pero desconozco\nde donde puedas descargarlos. En fin,\nlas posibilidades son muchas, tu decidirás\nlo que se te haga mas fácil.\n\nSaludos','',0,'gA==','20vk5j7y',1,0,'',255,0,0),(2897,758,6,66,0,'24.232.135.75',1133626942,1,0,1,0,1,0,'','','Estimado Antonio\n \nEl error que me sale es \nERROR/BASE 1004 SCOPE VIOLATION &lt;HIDDEN&gt;:NEW FROM ERRORSYS,LINE:0\n\ngracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','35gcb8bs',1,0,'',66,0,0),(2898,702,2,78,0,'200.106.97.131',1133628072,1,0,1,1,1,0,'','','Porfa, comparte si??\n\nGracias\n<!-- e --><a href=\"mailto:ekasoftware@infonegocio.net.pe\">ekasoftware@infonegocio.net.pe</a><!-- e -->','',0,'gA==','1ks9xydr',1,0,'',78,0,0),(2899,763,2,124,0,'200.82.105.181',1133628491,1,0,1,1,1,0,'','XP da el error &quot;win 16 subsystem has insufficent resou.','Amigos:\n\nEstoy terminando la migracion del nuestro software de gestion-contable de clipper a fivewin. Mientras en otros operativos anda bien, en windows XP genera el error \"win 16 subsystem has insufficent resources to continue running\", alguien tiene idea de por qué se produce y cómo se soluciona?\n\nUn gran saludo.\nRicardo Bécares.\nRosario - Argentina.','',0,'gA==','39hxjfjq',1,0,'',124,0,0),(2900,754,6,78,0,'200.106.97.131',1133628662,1,0,1,1,1,0,'','','El virus se llama WINDOWS,,, tiene variantes denominadas Windows 3.x, Windows 95, Windows 98, Windows ME (el mas dañino), Windows XP (convierte un PIV en una PI), los hay mas sofisticados, como Windows 2000, del tipo Profesional, tipo Server etc... se cree que su autor se llama Vill Puertas,  y es un virus con que estamos condenados a convivir,,, salvo que utilizamos el antivirus mas efectivo que se llama Linux,,,\n\nSalu2\nWilli','',0,'gA==','3bzqqpdb',1,0,'',78,0,0),(2901,763,2,78,0,'200.106.97.131',1133628959,1,0,1,1,1,0,'','','Hola,,,\nCreale un acceso directo. y alli en propiedaes le das un check e, \"Ejecutar\nen espacio de memoria separado\"\n\nSalu2\nWilli\n\n(Mejor cambiate a W2000, es menos problematico que el XP)','',0,'gA==','2tm70fo8',1,0,'',78,0,0),(2902,754,6,255,0,'201.144.1.198',1133629523,1,0,1,1,1,1,'','','[quote=&quot;Willi Quintana&quot;:2jslf2dj]El virus se llama WINDOWS,,, tiene variantes denominadas Windows 3.x, Windows 95, Windows 98, Windows ME (el mas dañino), Windows XP (convierte un PIV en una PI), los hay mas sofisticados, como Windows 2000, del tipo Profesional, tipo Server etc... se cree que su autor se llama Vill Puertas,  y es un virus con que estamos condenados a convivir,,, salvo que utilizamos el antivirus mas efectivo que se llama Linux,,,\nSalu2\nWilli[/quote:2jslf2dj]\n\nJAJA <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nMuy bueno <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'gA==','2jslf2dj',1,0,'',255,0,0),(2903,655,6,40,0,'200.92.242.58',1133629823,1,0,1,1,1,0,'','','José Luis, exacto era eso!!!, despues de pegarme un tiro(buscarle, buscarle y volver a buscrale) recompilando FW24 y mis librerias de terceros con xHarbour 0.99.50 (SimPlex) de xHarbour.org ya el ejemplo de ADO me regresa los valores correctos. \n\nSaludos\nJoel Andujo','',0,'gA==','risbh0qq',1,0,'',40,0,0),(2904,763,2,124,0,'200.82.105.181',1133634901,1,0,1,1,1,0,'','','Willy amigo:\n\nGracias por tu pronta respuesta. Probé recién con tu consejo y no funciona, sigue igual, probé combinaciones con modo de compatibilidad también desde el acceso directo o el programa ejecutable. El tema es que los clientes tienen XP y nadie quiere bajarse a algo anterior. Otra idea?\n\nUn abrazo\nRicardo.-','',0,'gA==','3muasjvh',1,0,'',124,0,0),(2905,763,2,180,0,'80.58.13.43',1133641612,1,0,1,1,1,0,'','','Hola rbecares:\n\nPudiera ser que el  archivo %systemroot%\\System32\\Autoexec.nt esté dañado o no está.\nPara solucionarlo puedes simplemente reemplazar el archivo con una copia correcta que puedes tomar de la ruta %Systemroot%\\repair.\n\nUn saludo,\nManuel','',0,'gA==','2oq2tjf4',1,0,'',180,0,0),(2906,763,2,124,0,'200.82.105.181',1133643989,1,0,1,1,1,0,'','','Gracias Manuel amigo, pero NO, sigue sin funcionar. ¿Otra idea?\n\nUn abrazo.\nRicardo.-','',0,'gA==','3c9lfss3',1,0,'',124,0,0),(2907,764,3,234,0,'24.94.84.83',1133648484,1,0,1,1,1,0,'','Screen coordinates','Hello,\nI need help determining the screen coordinates to determine the width and height of a listbox with the outlook interface. I have clients with multiple resolutions so I need to code the application to handle the height minus the height of the taskbar and width minus outlook splitter on left. Here is my code for your reference. Thank You.\n\n#include \"fivewin.ch\"\n#include \"outlook.ch\"\n#include \"splitter.Ch\"\n\nstatic lBar := .t.\n\nFUNCTION Main()\n\n   local oWnd, oOut, oSpl, oFont, oFont2, oBar, oBtn, oMenu     , ;\n         oIcon                                                  , ;\n         oLbx                                                   , ;\n[b:3n74seez]         nScrnW         := GetSysMetrics(0)                     , ;\n         nScrnH         := GetSysMetrics(1)                     , ;[/b:3n74seez]         cSearch    := \"\"                                       , ;\n         cSearchK   := SPACE(40)                                , ;\n         aSearch    := {}                                       , ;\n         aGet[02]\n\n   PUBLIC Ptitle        := \"CDM WinFrt Air Module\"\n\n   // Init...\n   AADD( aSearch, \"A. File Number\"      )\n\n   // Init...\n   cSearch := aSearch[01]\n\n   // Init...\n   DEFINE ICON oIcon RESOURCE \"AIR\"\n\n   DEFINE FONT oFont  NAME GetSysFont() SIZE 0,-12 BOLD\n   DEFINE FONT oFont2 NAME GetSysFont() SIZE 0,-14 BOLD\n\n   MENU oMenu\n      MENUITEM \"&amp;Close\"\n   ENDMENU\n\n   DEFINE WINDOW oWnd FROM 0, 0 TO [b:3n74seez]nScrnH, nScrnW[/b:3n74seez]  ;\n      MENU oMenu TITLE Ptitle ICON oIcon\n\n\n  @  0,  0 OUTLOOK oOut ;\n    SIZE 200, oWnd:nHeight() ;\n    PIXEL               ;\n    FONT oFont          ;\n    COLOR \"W+/R\"        ;\n    OF oWnd\n\n  SET MESSAGE OF oWnd TO Ptitle DATE TIME KEYBOARD\n\n  DEFINE GROUP OF OUTLOOK oOut PROMPT \"&amp;OPS\"\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"AIR\" ;\n      PROMPT \"New Shipment\" ;\n      ACTION Msginfo( \"New Shipment\", oSay:cCaption )\n\n   @ 0, 200 SPLITTER oSpl ;\n              VERTICAL ;\n              PREVIOUS CONTROLS oOut ;\n              LEFT MARGIN 70 ;\n              RIGHT MARGIN 200 ;\n              SIZE 4, nil  PIXEL ;\n              OF oWnd ;\n              _3DLOOK ;\n              UPDATE\n\n   // Combo Box...\n   @ 1, 205 COMBOBOX aGet[01] VAR cSearch ITEMS aSearch SIZE 200,150 OF oWnd FONT oFont2 PIXEL\n   @ 1, 405 GET      aGet[02] VAR cSearchK              SIZE 200,20  OF oWnd FONT oFont2 PIXEL PICTURE \"@!\" ON CHANGE MsgInfo( @cSearchK, cSearch )\n\n   // Open...\n   USE air NEW SHARED\n\n   // Listbox...\n   @45, 205 LISTBOX oLbx FIELDS air-&gt;file                   , ;\n                                TRIM(air-&gt;hbill)            ;\n          HEADERS    \"File No.\", \"HAWB\" ;\n          FIELDSIZES    200    ,  100   ;\n          FONT oFont2                                           ;\n          OF oWnd SIZE [b:3n74seez]oWnd:nWidth()-45, oWnd:nHeight()-50 PIXEL[/b:3n74seez] ;\n          COLOR \"R/W\"         ;\n\n   ACTIVATE WINDOW oWnd ;\n    ON RESIZE oSpl:AdjRight() MAXIMIZED\n\n   // Close...\n   DbCloseAll()\n\n   RETURN NIL','',0,'QA==','3n74seez',1,0,'',234,0,0),(2908,765,6,43,0,'201.127.45.26',1133650496,1,0,1,1,1,0,'','Clase webCam para 32 bits','Hola\n\n   Alguien me podria decir donde encontrarla, de antemano muchas gracias..\n\n   Saludos\n         Marco A. Delgado. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QA==','2wws12nq',1,0,'',43,0,0),(2909,763,2,78,0,'200.106.97.131',1133659404,1,0,1,1,1,0,'','','Hola \nEstas utilizando carpertas compartidas?? si es asi, debe estar conectado la tarjeta de red,,,,, o tener los permisos para actualizar datos en las carpetas\n\nSalu2\nWilli','',0,'QA==','3116nwv7',1,0,'',78,0,0),(2910,766,3,339,0,'201.8.164.111',1133661534,1,0,1,1,1,0,'','ERROR FROM VERSION FUNCTIONS','Hi friend .\n\n   some people knows about this error.\n\n\n[b:d6h0y4s7] program with 1st fun:uvalblank was compiled by older version , pcode 0 ....[/b:d6h0y4s7]\n  \nplease , help me \n\nmauricio','',0,'QA==','d6h0y4s7',1,0,'',339,0,0),(2911,765,6,138,0,'148.233.159.24',1133679085,1,0,1,1,1,1,'','','Si tienes los fuentes, que creo que la clase los incluye, simplemente recompila y listo, a seguir funcionando.','',0,'QA==','220w1stz',1,0,'',138,0,0),(2912,759,6,138,0,'148.233.159.24',1133679513,1,0,1,1,1,1,'','Re: Compilar y enlazar  multiples prg con xharbour','[quote=&quot;Databaselab2002&quot;:34o82pz4]Estimados Colegas\n\nAlguien tiene algun ejemplo de como compilar y enlazar multiples\nprgs con xharbour\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->[/quote:34o82pz4]\n\nTe recomiendo utilizar un gestor de compilacion, es mucho mas rapido para hacer proyectos que estar haciendo archivos .BAT para compilar.\n\nHechale una vistazo a VerCE, es muy facil de utilizar y funciona muy bien.','',0,'gA==','34o82pz4',1,0,'',138,0,0),(2913,743,6,138,0,'148.233.159.24',1133679783,1,0,1,1,1,1,'','','Armando:\n\nxHarbour incluye su propio script y esta incluido en la version Open Source.','',0,'gA==','bvfulcpv',1,0,'',138,0,0),(2914,763,2,138,0,'148.233.159.24',1133680247,1,0,1,1,1,1,'','','Primero que todo.... que versión de FW estas usando ????\n\nEsos errores parecen de una version FW anterior a la 2.0 .','',0,'gA==','3jyztde1',1,0,'',138,0,0),(2915,766,3,138,0,'148.233.159.24',1133681328,1,0,1,1,1,1,'','','This message means that you are using a new version of xHarbour with an old version of Fivewin.\n\nYou have to recompile all the PRG programs in the FiveWin\'s \\source and \\function directories with your current version of xHarbour in order to create a new FiveHx.lib','',0,'gA==','1u3p65bo',1,0,'',138,0,0),(2916,740,3,31,0,'84.15.27.93',1133684460,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ij40l2ji]\nWe use AMD 64 bits (3400+) and it works excellent with FWH, etc. \n\nDo you have a demo of your app we may download to test it ?[/quote:ij40l2ji]\n\n   Hello Antonio ! Sorry , but I can\'t to do demo . Of course , my mdichilds are related to my others functions . At first , in most of them I use browse ( Hernan\'s ) and then user close window , application is saving columns sizes and places of this browse for this user and windows coords . I have one a big class for my needs , where I\'m openning mdichilds and browses , folders and browses in folders . My source of standard windows bValid looks that:\n\n[code:ij40l2ji]\n\n&#58;&#58;oWnd&#58;bValid     &#58;= &#123; || &#40; &#58;&#58;End&#40;&#41;, &#46;t&#46; &#41; &#125;\n\nMETHOD End&#40;&#41; CLASS TMyBasic\n\n   local cCrg &#58;= &#58;&#58;cCargo\n   local n &#58;= m &#58;= z &#58;= 0\n   local oWnd\n   local lRest &#58;= &#46;f&#46;\n   local aCols &#58;= &#123;&#125;\n\n   if &#58;&#58;bEnd !=NIL // own bEnd codeblock if it\'s needful to do something before\n      eval&#40; &#58;&#58;bEnd &#41;\n   endif\n\n   if &#58;&#58;oWnd != NIL\n      if &#58;&#58;lEnv\n         if wind_save&#40; &#58;&#58;cCargo, &#58;&#58;oWnd &#41; // saving windows coords\n            for n &#58;= 1 to len&#40; &#58;&#58;aBrwID &#41; // array of browse objects\n               aCols &#58;= &#123;&#125;\n               for m &#58;= 1 to len&#40; &#58;&#58;aHdrs&#91; n &#93; &#41;\n                  z &#58;= ascan&#40; &#58;&#58;aHdrs&#91; n &#93;, &#58;&#58;aColHdr&#91; n &#93;&#91; m &#93; &#41;\n                  aadd&#40; aCols, &#123; m, z &#125; &#41;\n               next\n\n               wbrw_save&#40; &#58;&#58;cCargo, &#58;&#58;aBrwID&#91; n &#93;, &#58;&#58;oBrw&#91; n &#93;, aCols &#41; // saving columns places and sizes for browse and user\n\n               if &#58;&#58;aOrdCnd&#91; n &#93; # NIL &#46;and&#46; &#58;&#58;aOrdCnd&#91; n, 1 &#93;\n                  &#58;&#58;BrwOrdRem&#40; n &#41; // removing temporary index filess\n               endif\n            next\n         endif\n      endif\n      if IsZoomed&#40; &#58;&#58;oWnd&#58;hWnd &#41; == &#46;t&#46; &#46;and&#46; &#58;&#58;lFld\n         lRest &#58;= &#46;t&#46;\n         &#58;&#58;oWnd&#58;Hide&#40;&#41;\n         &#58;&#58;oWnd&#58;Restore&#40;&#41;\n      endif\n      &#58;&#58;LstFcs&#40;&#41;\n     else\n      MsgInf&#40; &quot;Can\'t detec window !&quot;, 2 &#41;\n   endif\n   if &#58;&#58;bEndPst !=NIL\n      eval&#40; &#58;&#58;bEndPst &#41;\n   endif\n   &#58;&#58;lEnd &#58;= &#46;t&#46;\n   oApp&#58;OpWd&#40; cCrg,, 2 &#41; // removing mdi child object from object repository &#46; \n   if &#58;&#58;nWd == 1 // if i\'s mdichild &#40; it can be also dialog &#41;\n      do while PostMessage&#40; &#58;&#58;oWnd&#58;hWnd, WM_CLOSE &#41; # 1\n      enddo\n   endif\n   Self &#58;= NIL\n   if lRest &#46;and&#46; len&#40; wndMain&#40;&#41;&#58;oWndClient&#58;aWnd &#41; &gt; 0\n      wndMain&#40;&#41;&#58;oWndClient&#58;PrevWindow&#40;&#41;\n      wndMain&#40;&#41;&#58;oWndClient&#58;GetActive&#40;&#41;&#58;Maximize&#40;&#41;\n   endif\nreturn&#40; NIL &#41;\n\n[/code:ij40l2ji]\n\n  I can send to you the full source of and some data . So you can build appl. in your PC . Is that way fit to you ? It take about 1.5 Mb of zip .\n\n  With best regards ! Rimantas .','',0,'gIA=','ij40l2ji',1,0,'',31,0,0),(2917,734,3,31,0,'84.15.27.93',1133684775,1,0,1,1,1,1,'','Re: Examples for xHARBOUR','[quote=&quot;Vladimir Rudomanov&quot;:i2ay286h][quote=&quot;Dima&quot;:i2ay286h]&#1046;&#1072;&#1083;&#1100; &#1085;&#1077;&#1090; &#1074;&#1077;&#1090;&#1082;&#1080; &#1085;&#1072; &#1088;&#1091;&#1089;&#1089;&#1082;&#1086;&#1084; &#1103;&#1079;&#1099;&#1082;&#1077; &#1087;&#1086; FWH.\nSorry &#1079;&#1072; Offtop.[/quote:i2ay286h]\n&#1055;&#1080;&#1096;&#1080; &#1087;&#1086;-&#1088;&#1091;&#1089;&#1089;&#1082;&#1080;  <!-- e --><a href=\"mailto:orsv04@mail.ru\">orsv04@mail.ru</a><!-- e -->[/quote:i2ay286h]\n\n   &#1053;&#1091; &#1084;&#1086;&#1078;&#1077;&#1090;&#1100; &#1073;&#1099;&#1090;&#1100; &#1080; &#1103; &#1087;&#1086;&#1084;&#1086;&#1075;&#1091; .. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . &#1061;&#1086;&#1090;&#1100; &#1084;&#1086;&#1081; &#1088;&#1086;&#1076;&#1085;&#1086;&#1081; &#1103;&#1079;&#1099;&#1082; &#1083;&#1080;&#1090;&#1086;&#1074;&#1089;&#1082;&#1080;&#1081; , &#1103; &#1077;&#1097;&#1105; &#1091;&#1089;&#1087;&#1077;&#1083; &#1087;&#1088;&#1086;&#1078;&#1080;&#1090;&#1100; 24 &#1083;&#1077;&#1090; &#1087;&#1088;&#1080; &#1089;&#1086;&#1102;&#1079;&#1077; , &#1090;&#1072;&#1082; &#1095;&#1090;&#1086; &#1085;&#1077; &#1090;&#1077;&#1089;&#1085;&#1072;&#1103;&#1081;&#1090;&#1077;&#1089;&#1100; , &#1087;&#1080;&#1096;&#1080;&#1090;&#1077; , &#1073;&#1091;&#1076;&#1077;&#1090; &#1088;&#1072;&#1076;&#1086;&#1089;&#1090;&#1100; &#1095;&#1077;&#1084; &#1085;&#1080;&#1073;&#1091;&#1076;&#1100; &#1087;&#1086;&#1084;&#1086;&#1095;&#1100; . \n\n   &#1057; &#1091;&#1074;&#1072;&#1078;&#1077;&#1085;&#1080;&#1077;&#1084; , &#1056;&#1080;&#1084;&#1072;&#1085;&#1090;&#1072;&#1089; .','',0,'gA==','i2ay286h',1,0,'',31,0,0),(2918,767,4,13,0,'213.76.252.200',1133688485,1,0,1,1,1,0,'','Browse','Antonio,\n\nWhen I browse empty database browse has no vertical scroll bar. When record is added often vertical scroll bar is still hide (database is browse with ordfocus function master-details view). Is there a method to force vertical scroll bar always show (refresh, browse etc.). Scroll bar often hide with return to window with listbox from long runtime function.\n\nRegards\nPawel','',0,'gA==','11o5qi64',1,0,'',13,0,0),(2919,723,6,2,0,'80.58.2.107',1133694268,1,0,1,1,1,1,'','','Fernando,\n\nFWH no la llama, por lo que no hay problema en modificarla.','',0,'gA==','1pepqc8g',1,0,'',2,0,0),(2920,768,3,339,0,'201.8.164.111',1133696681,1,0,1,1,1,0,'','migrations fivewin 2.6 for xharbour 0.99...','Hi friends.\n\n    What lib´s , i need recompiler to using fivewin 2.6 to xharbour...\n\n \n please help me..','',0,'gA==','3gnxosvm',1,0,'',339,0,0),(2921,769,2,265,0,'80.58.18.235',1133699970,1,0,1,1,1,0,'','Vuelvo a preguntar sobre correo','Buenas a todos\nPerdonad que vuelva a preguntar sobre éste tema, pero es que el tiempo me apremia ya, me es muy urgente.\n\nLa cuestión es automatizar la descarga de un fichero adjunto que viene en un e-mail.\n\nAmablemente me contestó rené y dbzap, lo que me ha ayudado mucho a comenzar sobre el tema y a comprender el sistema.\n\nMe dijo René \"Dentro del cuerpo del mensaje, se encuentra guardado el nombre el archivo anexo y la longitud de este, lo unico que hay que hacer es hacer un substr() del tamaño del archivo, y guardarlo dentro de otra cadena de caracteres\".\n\nConsigo ver donde comienza el cueerpo del adjunto, pero no consigo saber cual es la longitud del mismo para hacer un mimedec() de la parte del mensaje que corresponde al adjunto.\n\nOs agradecería si alguien sabe algo sobre el tema me dijera algo, ya que como he dicho, me urge muchisimo.\n\nUn Saludo a todos','',0,'gA==','12yy0jtk',1,0,'',265,0,0),(2922,770,3,56,0,'217.251.231.157',1133700958,1,0,1,1,1,1,'','Hernans TWBrowse library for FWH 2.7','Hi,\n\ndoes someone have a version of Hernans TWBrowse library (version 15)\nthat can be linked with FWH 2.7 and xHarbour 0.99.5?','',0,'gA==','2cvohoqn',1,0,'',56,0,0),(2923,770,3,35,0,'65.188.6.143',1133704209,1,0,1,1,1,0,'','','Tim\n\nAdd #include &lt;hbapiitm.h&gt; to the wbrline.c code. Antonio helped me with this one because of the recent changes in xHarbour.\n\nRick Lipkin\nSC Dept of Health, USA\n\n\n\n#ifdef __HARBOUR__\n   #include &lt;hbVm.h&gt;\n   // #include &lt;hbfast.h&gt;\n   [b:a11qpi2y]#include &lt;hbapiitm.h&gt; [/b:a11qpi2y]   #define MoveTo( hDC, x, y ) MoveToEx( hDC, x, y, NULL )\n   #define _PutSym( _SymEval ) hb_vmPushSymbol( &amp;hb_symEval )\n   #define _xPushM  hb_vmPush\n   #define _PutLN   hb_vmPushLong\n   #define _xEval   hb_vmDo\n   #define _cEval0  hb_vmEvalBlock\n   #define _Get_Sym hb_dynsymFindName\n#endif','',0,'QA==','a11qpi2y',1,0,'',35,0,0),(2924,743,6,53,0,'148.221.81.59',1133707132,1,0,1,1,1,1,'','','René:\n\nMuchas gracias.\n\nUn abrazo, Armando','',0,'QA==','1h5wwdwp',1,0,'',53,0,0),(2925,770,3,56,0,'217.251.231.226',1133707663,1,0,1,1,1,1,'','','Rick,\n\nmany thanks for your fast reply.\nI just tested it but I still get many errors compiling wbrwline.c.\nCould you please send me your wbrwline.obj via email?','',0,'QA==','tv2ikmhd',1,0,'',56,0,0),(2926,770,3,3,0,'82.64.198.228',1133709741,1,0,1,1,1,0,'','','[quote=&quot;Timm Sodtalbers&quot;:122de02o]Rick,\n\nmany thanks for your fast reply.\nI just tested it but I still get many errors compiling wbrwline.c.\nCould you please send me your wbrwline.obj via email?[/quote:122de02o]\n\nHello Timm,\n\nI know this is off topic, but can you please provide an easy way to use Easyreport with fwh over 2.4 ? The problem is with fwh 2.6 and fwh 2.7\nThe only way to get a report working correct is to link an old printer.prg and tmetafil.prg. \nIf you need a sample, please let me know,\n\nThanks for your help\n\nRichard','',0,'gA==','122de02o',1,0,'',3,0,0),(2927,729,7,28,0,'212.106.218.64',1133709852,1,0,1,1,1,0,'','scroll','hola\n\nSe me ocurre que hagas de la misma forma que se hace en los folders: meter una dialog \'child\' \n\nesa dialogchild sera hija de tu dialog con scroll \n\nactua como si dieras valores a una vscroll de una ventana y luego... mueve tu dialog child con el up y down de la dialog:oVscroll\n¿ok?\n\nsalu2','',0,'gA==','u8217f5j',1,0,'',28,0,0),(2928,739,3,47,0,'203.144.143.3',1133714756,1,0,1,1,1,0,'','','Dear mauricio,\n\nThis is my batch fil.\n\nThanks in advance,\nDutch\n\n@ECHO OFF\nCLS\nECHO &#3642;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3615;\nECHO &#3603; FiveWin for Harbour 2.5 - October 2004          Harbour development power  &#3603;&#63682;\nECHO &#3603; (c) FiveTech, 1993-2004      for Microsoft Windows 95/98/NT/2000/ME and XP &#3603;&#63681;\nECHO &#3616;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3641;&#63681;\nECHO &#63688; &#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=d:\\harbour\nset bcdir=d:\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\n%hdir%\\bin\\harbour tscan /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -etscan.exe -I%hdir%\\include tscan.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj tscan.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho ..\\lib\\FiveH.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\nrem echo %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\nrem uncomment this line to use the debugger and comment the next one\nrem %bcdir%\\bin\\ilink32 -Tpe -s @b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n\nrem delete temporary files\n@del %1.c\n@del %1.il?\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\n:LINKERROR\nrem if exist meminfo.txt notepad meminfo.txt\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi&#3586;n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT','',0,'','3o7cval9',1,0,'',47,0,0),(2929,770,3,35,0,'65.188.6.143',1133717947,1,0,1,1,1,0,'','','Timm\n\nI just sent the .c and .obj compiled with Borland and the batch script to re-compile the lib\n\nRick','',0,'','20kafexe',1,0,'',35,0,0),(2930,522,6,97,0,'200.95.75.49',1133724084,1,0,1,1,1,1,'','Uso los  ODBC nativos de FW','Gracias lautaro, por contestar uso la clases de fw ,normales con cambios minimos echos por mi.\n\nte agadesco mucho si puedes enviarme de los recordset , o las odbc como tu las tienes y yo integrare los cambios que echo.\n\nsaludos\nfernando sandoval ruiz','',0,'','2fazl0ty',1,0,'',97,0,0),(2931,763,2,124,0,'200.117.28.124',1133726980,1,0,1,1,1,0,'','','Amigos:\n\nEstoy utilizando una versión de fivewin &gt; 2 en este momento no estoy en la oficina para decirles exactamente cual pero me suena 2.25, la compramos durante este año 2005.\n\nNo estamos usando carpetas compartidas para responder al post anterior.\n\nEstoy pensando que dentro de nuestro soft esta compilado FLEXFILE II de ganahl, software que hemos usado sin problema durante mas de 10 años, y anda ok como les dije en W2000 server, será que este soft no anda en XP?\n\nEspero noticias, gracias por contestar.\n\nSaludos.\nRicardo.-','',0,'','3ijb8t4n',1,0,'',124,0,0),(2932,528,2,10,0,'212.40.255.188',1133732304,1,0,1,1,1,0,'','','Saludos a todos.\n\nEn el grupo de noticias news.fivewin.com.mx,  Vikthor, (<!-- m --><a class=\"postlink\" href=\"http://listoelpollo.blogspot.com\">http://listoelpollo.blogspot.com</a><!-- m -->)\nha puesto a disposicición de la comunidad FiveWin el PROMETHEUS, sitio de Daniel Andrade (<!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w -->), en <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->\n\nUna buena noticias para l@s FiveWin(er@s) ver que alguien lo ha podido rescatar, aunque no está activo el foro que tenía.\n\nSaludos','',0,'','281ozxll',1,0,'',10,0,0),(2933,702,2,10,0,'212.40.255.188',1133732907,1,0,1,1,1,0,'','','Saludos a tod@s.\n\nLo ideal sería que en este foro hubiera algún lugar donde ir dejando lo que cada usuario ha desarrollado y funciona para actuales/futuros fivener@os que pudieran precisarla.\n\nAsí, si algún día te pudiera hacer falta, podríamos bajarla. De la forma actual que se envía a correo personal de cada uno, habría que recorrerse todo el foro de noticias y luego perdirsela a quién la tuviera, lo cual perdería funcionalidad.\n\nEs mi opinión personal.\n\nSaludos de nuevo','',0,'','24jvlw6n',1,0,'',10,0,0),(2934,361,21,10,0,'212.40.255.188',1133733476,1,0,1,1,1,0,'','','Se encuentra ubicado ahora en:\n\n <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->\n\nSaludos.','',0,'','3d8ilju8',1,0,'',10,0,0),(2935,771,6,341,0,'24.232.135.75',1133746660,1,0,1,1,1,0,'','Como puedo construir lib para Xharbour con FWH VER OCT 2002','Estimado Colegas\n\nComo puedo Construir la lib para xharbour con la version FWH\nVer OCT 2002 y xharbour .99. 3 simplex, las librerias fivehc,fiveh\nque diferencia tienen con fivehcm,fivehm\n\n\ndesde ya muchisimas gracias\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'','ntyrhnak',1,0,'',341,0,0),(2936,772,6,341,0,'24.232.135.75',1133747644,1,0,1,1,1,0,'','Existe en harbour una funx Similar a ordwildseek de xharbour','Estimados Colegas\n\nExiste una funcion en harbour  un funcion similiar a ordwildseek\nde xharbour que para busqueda con comodines eJ:ordwildseek(*dan*)\n\ndesde ya muchisimas gracias\ndante \n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'','3m7cnxi1',1,0,'',341,0,0),(2937,773,4,289,0,'212.138.64.178',1133756379,1,0,1,1,1,0,'','Settextalign() and GetTextAlign()','Antonio, \nI want use  Windows CE 3\nBut the Functions is \"Settextalign() And GetTextAlign()\" that does not Run. \nThis Functions  is For   Windows Ce . the Net of 4 0 And Later.\nThere is he the function of its many is unemployed in Fwppc\nWith Windows CE 3\nRegards \nHathal\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2wm1nfuc',1,0,'',289,0,0),(2938,760,20,29,0,'80.181.108.140',1133769108,1,0,1,1,1,0,'','','Io ne ho utilizzato la versione USB per un applicativo personalizzato,\ne non ho riscontrato problemi nel funzionamento.\n\nSmartkey viene fornita sia con un crypter automatico che agisce direttamente sull\'eseguibile sia con le librerie che ti permettono un controllo diretto dei dati contenuti nella chiave.\n\nPer le esigenze che avevo ho semplicemente utilizzato il crypter automatico, non so darti quindi informazioni tecniche sulle librerie di Smartkey e sulla possibilità di interfacciarle al codice di harbour.\n\nSaluti\n\nMarco','',0,'','2hftnxgj',1,0,'',29,0,0),(2939,770,3,56,0,'217.251.231.131',1133772679,1,0,1,1,1,1,'','','Hi Richard,\n\nEasyReport works with all FWH versions. \nIf you use EasyPreview you need to compile/link tmetafil.prg \nand printer.prg of FWH 2005 March or lower. This is because \nthe format of the temporary preview files changes from WMF to \nEMF in the next releases.\nI will try to solve this problem.','',0,'','1x34oefe',1,0,'',56,0,0),(2940,773,4,2,0,'80.58.2.107',1133773381,1,0,1,1,1,1,'','','Hathal,\n\nToday we have published a new FWPPC build that already include those functions. Please download it and try it again.','',0,'','1gqul2f8',1,0,'',2,0,0),(2941,774,16,2,0,'80.58.2.107',1133773436,1,0,1,1,1,1,'','FWPPC new build / nuevo build','It is ready for download.\n\nYa se puede descargar.','',0,'','1nhuvi9r',1,0,'',2,0,0),(2942,775,6,102,0,'80.224.235.17',1133773451,1,0,1,1,1,1,'','Ayuda','Alguien puede pasarme un ejemplo de mantenimiento de una tabla de Access con TOdbc y TDbOdbc, que contenga un UPDATE, INSERT Etc.\n\nGracias de antemano\n\nJosé Martin Uriarte\n<!-- e --><a href=\"mailto:jmuarg@yahoo.es\">jmuarg@yahoo.es</a><!-- e -->','',0,'','3risuckw',1,0,'',102,0,0),(2943,776,3,6,0,'82.61.144.141',1133774099,1,0,1,1,1,1,'','-DHB_INCLUDE_WINEXCHANDLER','From whatsnew.txt:\n\n[quote:19jmxka8]FWH users: We are building Harbour and xHarbour using the -DHB_INCLUDE_WINEXCHANDLER flag.\nIf you build Harbour or xHarbour yourself, please use such flag too.[/quote:19jmxka8]\n\nCan you explain better what is that flag and what could happen without it?\n\nThank you.\n\nEMG','',0,'gA==','19jmxka8',1,0,'',6,0,0),(2944,776,3,2,0,'80.58.2.107',1133775444,1,0,1,1,1,1,'','','Enrico,\n\nThat flag makes Harbour and xharbour to provide its own GPFs handler.\n\nUp to now, FWH provided its own, but with the recent hb_stack changes, we can\'t any longer manage hb_stack from outside [x]Harbour.\n\nIf you use a Harbour or xHarbour build, built without such flag, if a GPF happens, then you will not get any information (calls stack) for it.','',0,'','v0focwmo',1,0,'',2,0,0),(2945,776,3,6,0,'82.61.144.141',1133776618,1,0,1,1,1,1,'','','Perfectly clear.\n\nThank you.\n\nEMG','',0,'','2yji34tm',1,0,'',6,0,0),(2946,776,3,6,0,'82.61.144.141',1133776773,1,0,1,1,1,1,'','','Other than building [x]Harbour using that flag, do we need to add it in the link script of our applications too?\n\nEMG','',0,'','11fwb70x',1,0,'',6,0,0),(2947,762,6,340,0,'200.96.235.158',1133777387,1,0,1,1,1,1,'','','[b:3gfeh5zj]Gracias amigo.[/b:3gfeh5zj]','',0,'QA==','3gfeh5zj',1,0,'',340,0,0),(2948,344,18,76,0,'80.17.137.201',1133779310,1,0,1,1,1,1,'','changes','Antonio,\n I don\'t understand what are the fixes I need in classes/tget.prg.\nWS_Border appears in the lines:\n[code:fhor1qq0]\nWS_Border appears in the lines&#58;\n\n   &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE,;\n                      ES_AUTOHSCROLL, WS_BORDER,;\n                      If&#40; ! lReadOnly, WS_TABSTOP, 0 &#41;,;\n                      If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41;,;\n                      If&#40; lSpinner, WS_VSCROLL, 0 &#41;,;\n                      If&#40; lReadOnly, ES_READONLY, 0 &#41;,;\n                      If&#40; lCenter, ES_CENTER, If&#40; lRight, ES_RIGHT, ES_LEFT &#41; &#41; &#41;\n//                      If&#40; lCenter &#46;OR&#46; lRight, ES_MULTILINE, 0 &#41;,; Only needed for Win31\n\n   &#58;&#58;nStyle    = If&#40; lNoBorder, nAnd&#40; &#58;&#58;nStyle, nNot&#40; WS_BORDER &#41; &#41;, &#58;&#58;nStyle &#41;\n[/code:fhor1qq0]\n\nthanks','',0,'AIA=','fhor1qq0',1,0,'',76,0,0),(2949,776,3,2,0,'80.58.2.107',1133779717,1,0,1,1,1,1,'','','Enrico,\n\n&gt;\nOther than building [x]Harbour using that flag, do we need to add it in the link script of our applications too? \n&gt;\n\nNo. Just when building Harbour/xHarbour.','',0,'','2d2plrzc',1,0,'',2,0,0),(2950,739,3,339,0,'200.216.28.78',1133779916,1,0,1,1,1,0,'','','SAWASDEE , DUTCH\n\n   I think this , your Bat Compile haven´t  External reference for Functions.\n\n   post your code, Because TWAIN_... Functions are DLL external.\n\n   If you need SCANNER FUNCTION Check TWAIN class.\n\nmauricio..','',0,'','3bvcmkgs',1,0,'',339,0,0),(2951,771,6,2,0,'80.58.2.107',1133779926,1,0,1,1,1,1,'','','Lo idóneo es que uses la versión más reciente de xHarbour (ya que corrige muchos fallos relacionados con el uso de bases de datos e índices) pero en tal caso las librerías de FWH que usas no sirven, ya que no son compatibles.\n\nLa solución es actualizarse a la versión más reciente de FWH desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos.','',0,'','eyzs1y2e',1,0,'',2,0,0),(2952,776,3,6,0,'82.61.144.141',1133780242,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'','3k3diyrt',1,0,'',6,0,0),(2953,777,6,23,0,'80.58.44.235',1133782246,1,0,1,1,1,1,'','Sobre iconos','Hola gente!\nTengo un fichero miicono.ico que contiene el mismo icono en diferentes resoluciones, a saber (16x16,24x24,32x32,64x64,128x,128).\nYo quiero saber si al definir el icono mediante :\n   oIcon:=TIcon():New(,,,\"miicono.ico\")\nhay forma de escoger el tamaño del icono. Porque ahora siempre me coge el de 16x16 y lo amplia al tamaño que yo uso.\n\nGraciass.','',0,'','12of0kqo',1,0,'',23,0,0),(2954,344,18,2,0,'80.58.2.107',1133784399,1,0,1,1,1,1,'','','Riccardo,\n\nWS_BORDER has to be removed and in source\\winapi\\mgetcrea.c:\n\n   BOOL lIsAppThemed = FALSE;\n\n   ...\n\n   BOOL _IsAppThemed( void );\n         \n   lIsAppThemed = _IsAppThemed();\n   \n   _retnl( ( LONG ) CreateWindowEx( lIsAppThemed ? WS_EX_CLIENTEDGE: 0, \n...','',0,'','2qds7k41',1,0,'',2,0,0),(2955,752,6,329,0,'190.48.101.25',1133784900,1,0,1,1,1,0,'','','Antonio, la funcion CLSNEW() no esa llamada en ninguno de los prg, es lo que estoy viendo en este momento, esa funcion esta alojada dentro de una libreria que arme yo con un conjunto de prg\'s. Pero cuando voy a ver esos prg\'s no tienen esa funcion definida, y tampoco la usan.\nAhora... no entiendo porque entonces esa funcion aparece en mi lib, sera una funcion nativa de harbour?.','',0,'','1c1ogflw',1,0,'',329,0,0),(2956,747,4,68,0,'203.45.174.65',1133785969,1,0,1,1,1,1,'','','Antonio,\nSome progress - after re-booting the emulator and using only COM1 I can get a port handle number like 230603634, which I assume is OK and similar to running on an Intermec 700C. I\'m not able to retrieve characters from the buffer though and repeatedly only get asc(156). How should I read from the communication buffer and is it possible to clear it (like Telpathy tp_clearin())?\nThanks for any clues <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nregards, saludos','',0,'','2x95igwa',1,0,'',68,0,0),(2957,738,1,26,0,'193.77.9.242',1133786847,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:13lf1fem]Roman,\n\nWe have to fix it.  Thanks for your feedback.[/quote:13lf1fem]\n\nOk, thanks. This is not urgent. I found commctrl.dll in your\nsamples folder, but it is Swedish, so I replaced it with Slovenian\none from my Win98SE installation.\n\nRegards, Roman','',0,'gA==','13lf1fem',1,0,'',26,0,0),(2958,778,3,297,0,'217.57.213.130',1133792778,1,0,1,1,1,0,'','Folder','In this little sample is impossible to navigate in all objects of dialog using keyboard. Only with mouse is possible to change folder.\n\n#include \"fivewin.ch\"\n\nfunction Main()\n\n   LOCAL oDlg, oFld\n   LOCAL aTit := {\"Anagrafica\" , \"Laboratorio\", \"Fatture\" }\n   LOCAL aDlg := { NIL , NIL , NIL }\n   LOCAL aEna := { .T. , .T. , .T. }\n   LOCAL rb :=  252\n   LOCAL cb :=  2\n   LOCAL lb := 60\n   LOCAL ib := 1\n   LOCAL oBut\n   LOCAL oGroup\n   LOCAL nOption\n\n\n   DEFINE DIALOG oDlg TITLE \"Fogli di lavoro\"  FROM 1, 1 TO 300, 400 PIXEL\n\n   @ 120 , 0 GROUP oGroup TO 140 , 199 of Odlg PIXEL\n//   oFld := tFolder():New(20,1, aTit, aDlg , oDlg , 1, , , .T., .F., 199, 100, \"Folder\", .F.)\n   @ 20 , 1 FOLDER ofld OF oDlg PROMPTS aTit[1], aTit[2], aTit[3] DIALOGS aDlg[1], aDlg[2], aDlg[3] SIZE 199, 100 PIXEL MESSAGE \"CIAO\"\n   oFld:aEnable := aEna\n   oFld:nOption := 1\n\n   @ 1, 1 BUTTON \"Anagrafica\"   OF oFld:aDialogs[ 1 ] ACTION MsgInfo( oFld:nOption )\n   @ 2, 1 BUTTON \"Laboratorio\"  OF oFld:aDialogs[ 2 ] ACTION MsgInfo( oFld:nOption )\n   @ 3, 1 BUTTON \"Fatturazione\" OF oFld:aDialogs[ 3 ] ACTION ( MsgInfo( oFld:nOption ), aEna := { .T. , .F. , .T. }, oFld:aEnable := aEna )\n   ACTIVATE DIALOG oDlg CENTERED ON INIT CreaBut(rb, cb, ib, lb, obut, odlg)\n\nreturn nil\n\nFUNCTION creabut(rb, cb, ib, lb, obut, odlg)\n@ rb , cb + 1*(lb+2) - lb BUTTON oBut PROMPT \"Prova1\" OF oDlg SIZE lb , 24 PIXEL\n@ rb , cb + 2*(lb+2) - lb BUTTON oBut PROMPT \"Prova2\" OF oDlg SIZE lb , 24 PIXEL\n@ rb , cb + 3*(lb+2) - lb BUTTON oBut PROMPT \"Prova3\" OF oDlg SIZE lb , 24 PIXEL\n@ rb , cb + 4*(lb+2) - lb BUTTON oBut PROMPT \"Prova4\" OF oDlg SIZE lb , 24 PIXEL\nRETURN NIL','',0,'','3owofj12',1,0,'',297,0,0),(2959,733,6,336,0,'80.58.10.235',1133792990,1,0,0,1,1,0,'','','Hola a todos\n\nNo tengo acceso a \n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/\">http://www.vikthor.com.mx/fivewin/</a><!-- m -->\ndesde el viernes que estoy intentando.\n\nSolo me sucede a mí?\n\nSaludos y felicitaciones x la iniciativa','',0,'','2gu5gsij',1,0,'',336,0,0),(2960,779,6,73,0,'201.138.166.223',1133793960,1,0,1,1,1,0,'','nombres en pellesc','hola foro,\nestoy empezando a usar pellesc y pues ya no se por donde buscarle, tengo mi archivo .res importo un bitmap y me le pone de nombre #8001, ahi le doy click derecho y en propiedades cambio el nombre por \"Almacen\" lo grabo y cierro mi archivo, pero cuando lo vuelvo a abrir el nombre del bitmap me lo deja nuevamente en #8801, que pedo? como les puedo cambiar los nombre a los recursos, ya sea bitmaps, dialogos, etc...\nGracias\nSalu2\nPaco','',0,'','ecy277vr',1,0,'',73,0,0),(2961,765,6,43,0,'201.127.45.26',1133794237,1,0,1,1,1,0,'','','Hola Ing. Rene\n\n   Desgraciadamente no los tengo, los he tratado de bajar de la nueva pagina de Dbwide, pero dice que el archivo no se encuentra.\n\n   Saludos \n\n   Marco A. Delgado.','',0,'','2jitoxpt',1,0,'',43,0,0),(2962,779,6,23,0,'80.58.44.235',1133794891,1,0,1,1,1,1,'','','A ver si no estás grabando el fichero.\nPara grabar todo el .rc o el .res tienes que estar en la pestaña del fichero, porque si estas en la pestaña de algún diálogo o recurso, no se graba (el iconito de grabar de los tres discos, nanai, no lo uses), usa el de la izquierda.\n\nno se si me explico...\n\nYo uso el pellesc desde que migré a harbour y te aseguro que funciona a las mil maravillas.\n\nCualquier problema, no dudes en comentarmelo','',0,'','1cwdontg',1,0,'',23,0,0),(2963,779,6,255,0,'200.67.134.233',1133795472,1,0,1,1,1,1,'','Re: nombres en pellesc','[quote=&quot;Francisco Horta&quot;:175rqoh3]hola foro,\nestoy empezando a usar pellesc y pues ya no se por donde buscarle, tengo mi archivo .res importo un bitmap y me le pone de nombre #8001, ahi le doy click derecho y en propiedades cambio el nombre por \"Almacen\" lo grabo y cierro mi archivo, pero cuando lo vuelvo a abrir el nombre del bitmap me lo deja nuevamente en #8801, que pedo? como les puedo cambiar los nombre a los recursos, ya sea bitmaps, dialogos, etc...\nGracias\nSalu2\nPaco[/quote:175rqoh3]\n\nLo q angel quiere decir es que para guardar, debes posicionarte en\nla pestaña donde están todos tus recursos para que puedas grabar.\nVaya, en donde dice el nombre del archivo de tus recursos.\nahi presionas el botón salvar.\n\nSaludos','',0,'gA==','175rqoh3',1,0,'',255,0,0),(2964,780,7,63,0,'80.58.35.107',1133797448,1,0,1,1,1,0,'','Mi primer programa en Pocket PC ¿cómo lo arranco?','Acabo de terminar mi primer programa en FWPPC. En el emulador funciona perfectamente.  \n\nLo copio a una tarjeta SD y la pongo en mi Pocket. Veo el programa en el Explorador de Archvos .  Punteo sobre él y me da el mensaje \"No se puede encontrar el programa o suno de sus componentes.  Compruebe ruta de acceso y que todas las bibliotecas necesarias están dispnibles\"\n\nRepito la prueba con Tutor01.exe y me da el mismo mensaje.\n¿Qué estoy haciendo mal o qué estoy olvidando?  ¿Alguien con experiencia me puede dar una idea?  Gracias\n\nRafael\n\nMi Pocket es un Compaq iPaq 3850 con procesador ARM SA 1110 y 63 Mb RAM.   el S.O. es Windows CE 3.0, todo ello del año 2002.','',0,'gA==','ys7xefrc',1,0,'',63,0,0),(2965,779,6,61,0,'201.217.147.18',1133799098,1,0,1,1,1,0,'','','Francisco:\n\nPara cambiarle el nombre yo lo coloco entre comillas.\n\nAsi: \"Almacen\", lo guardas y ya esta, si no lo guardas\nel programa te dice si deseas guardar los cambios\nal salir  y ahi le dices que si y asunto arreglado.\n\nSaludos.\n\nRuben Fernandez','',0,'gA==','3c3q19xs',1,0,'',61,0,0),(2966,741,6,40,0,'200.92.20.209',1133799683,1,0,1,1,1,0,'','','Les comento, ya que estuve batallando con esto, los que quieran recompilar su FW con una versión mas actual de [x]Harbour Jorge Mazon hizó una estupenda utileria \"Harb2Lib\" que hace esto precisamente.\nLa puden encontrar en su página.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl/download.htm\">http://www.htcsoft.cl/download.htm</a><!-- m -->\n\nSaludos\nJoel Andujo','',0,'','iyinzblu',1,0,'',40,0,0),(2967,779,6,73,0,'201.138.166.223',1133801291,1,0,1,1,1,0,'','Re: nombres en pellesc','Gracias a todos, funciono, algo he de haber estado haciendo mal,\nSalu2\nPaco','',0,'','tu0prxvt',1,0,'',73,0,0),(2968,781,2,242,0,'81.45.227.110',1133801866,1,0,1,1,1,0,'','Solicitud: TWord, TOle y ejemplo.','Buenas tardes.\n\nNecesito pasar el contenido de un archivo de texto a Word, así que si alguien me indica donde puedo descargar la clase TWord, TOle (creo que necesaria para que funcione la anterior) y un ejemplo simple de como abrir un archivo Word existente y pasarle el contenido del archivo de texto, pues me hace un favor increible.\n\nGracias por adelantado y un saludo.\nFernando Morales del Rosario','',0,'','1ozndwhq',1,0,'',242,0,0),(2969,780,7,2,0,'80.58.2.107',1133803948,1,0,1,1,1,1,'','','Rafael,\n\nPor favor descarga tutor01 desde aquí: <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/tutor01.zip\">www.fivetechsoft.com/files/tutor01.zip</a><!-- w --> y pruébalo en el Pocket PC.','',0,'','ni5nca1k',1,0,'',2,0,0),(2970,778,3,2,0,'80.58.2.107',1133804304,1,0,1,1,1,1,'','','Marco,\n\nFWH does not gives the focus to the folder itself, thus you can not change to a next folder page using the keyboard. Is that what you mean ?','',0,'','wbqvwprq',1,0,'',2,0,0),(2971,739,3,47,0,'203.144.143.6',1133804810,1,0,1,1,1,0,'','Tscan class','Dear Mauricio\n\nThis is TSCAN.PRG code.\n\nThanks in advance,\nDutch\n\n// Example scanner, Class TSCAN32 and Wrappers for [x]Harbour\n//    This program is free software; you can redistribute it and/or modify\n//    it under the terms of the GNU General Public License as published by\n//    the Free Software Foundation; either version 2 of the License, or\n//    (at your option) any later version.\n//    This program is distributed in the hope that it will be useful,\n//    but WITHOUT ANY WARRANTY; without even the implied warranty of\n//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See \n//    the GNU General Public License for more details.\n//    You should have received a copy of the GNU General Public License\n//    along with this software; see the file COPYING.  If not, write to\n//    the Free Software Foundation, Inc., 59 Temple Place, Suite 330,\n//    Boston, MA 02111-1307 USA (or visit the web site \n//    <!-- m --><a class=\"postlink\" href=\"http://www.gnu.org/\">http://www.gnu.org/</a><!-- m -->).\n\n//    The exception is that, if you link the class Tscan32 and Wrappers C \n//    with other files to produce an executable, this does not by itself cause the\n//    resulting executable to be covered by the GNU General Public License.\n//    Your use of that executable is in no way restricted on account of\n//    linking the Tscan32 and Wrappers library code into it.\n\n// 2003(c)- Rafa Carmona( Thefull )\n//\n// interface to Dosadi EZTWAIN library by TheFull\n// Interface para la libreria EZTWAIN de Dosadi por TheFull\n// 32 bits\n\n// ATENTION. THIS LICENSE NOT APLICATTE A EZTWAIN.\n// YOUR VIEW LICENSE EZTW32.DLL IN <!-- w --><a class=\"postlink\" href=\"http://WWW.DOSADI.COM\">WWW.DOSADI.COM</a><!-- w -->\n\n#INCLUDE \"HBCLASS.CH\"\n\n\n// Returns the TWAIN Protocol State per the spec.\n#define TWAIN_PRESESSION		1	// source manager not loaded\n#define TWAIN_SM_LOADED			2	// source manager loaded\n#define TWAIN_SM_OPEN			3	// source manager open\n#define TWAIN_SOURCE_OPEN		4	// source open but not enabled\n#define TWAIN_SOURCE_ENABLED	5	// source enabled to acquire\n#define TWAIN_TRANSFER_READY	6	// image ready to transfer\n#define TWAIN_TRANSFERRING		7	// image in transit\n\n***************************************************************************\n*\n* CLASS TSCAN32\n* 2003(c)- by Rafa Carmona ( TheFull )\n* Beta 1.0\n* Beta 2.0  New. Support Get ClipBoard to hDib.\n*           New. ClipboardToFile( cFile ) -&gt; Save File Jpg into Clipboard.\n*\n* Beta 3.0  New. ReWrite Method End, conflict GPF\'s  <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n*\n*\n****************************************************************************\n\nCLASS TSCAN32\n\n      DATA hWnd\n      DATA cFile\n      DATA hDib\n      DATA lError INIT .F.\n      DATA nState\n\n      METHOD New( cFile, hWnd ) CONSTRUCTOR\n      METHOD End()\n      METHOD Register()\n      MESSAGE FreeNative METHOD End()\n      MESSAGE Close      METHOD End()\n\n      METHOD DigiToFile( cFile )\n      METHOD DibToJpeg( cFile )  INLINE TW_DibWJpg( ::hDib, cFile )\n      METHOD DibToBmp( cFile )   INLINE TW_DibWBmp( ::hDib, cFile )\n      METHOD SetJpegQ( nQuality) INLINE TW_SetJpegQuality( nQuality )// 1..100 Default 75\n\n      METHOD Acquire()           INLINE TW_Acquire( ::hWnd )\n      METHOD AcquireClipBoard()  INLINE TW_AcquireToClipboard( ::hWnd , 0 )\n\n      METHOD OpenDefault()\n      METHOD OpenSource()\n      METHOD EnableSource()     INLINE TW_EnableSource( ::hWnd )\n      METHOD Choose()           INLINE TW_SelectImageSource()\n\n      // **********    Basic TWAIN Inquiries **********************************\n      METHOD IsAvailable()          INLINE IIF( TW_Avail() = 1, .T. , .F. )\n      METHOD Version()              INLINE ( Str( TW_EasyVersion() / 100 ) )\n      METHOD State()                INLINE (::nState := TW_State() )\n      METHOD SourceName()           INLINE TW_SourceName()\n      METHOD GetSourceName( cName ) INLINE TW_GetSourceName( cName )\n\n\n      //************   Global Options *****************************************\n      METHOD SetHide( lHide )     INLINE IIF( lHide , TW_SetHideUI(1), TW_SetHideUI(0) )\n\n\n      //-*********** High-level Capability Negotiation Functions **************\n      // These functions should only be called in State 4 (TWAIN_SOURCE_OPEN)\n      METHOD PixelType( nType ) INLINE ( ::State(),;\n                                if( ::nState &gt;= TWAIN_SOURCE_OPEN,;\n                                                TW_SetCurrentPixelType( nType ),0 ) )\n      METHOD SetRes( dRes )     INLINE ( ::State(),;\n                                if( ::nState &gt;= TWAIN_SOURCE_OPEN,;\n                                                TW_SetCurrentResolution( dRes ),0) )\n      METHOD SetXRes( dRes )            INLINE TW_SetXResolution( dRes )\n      METHOD SetYRes( dRes )            INLINE TW_SetYResolution( dRes )\n      METHOD SetUnits( nUnits )         INLINE TW_SETCURRENTUNITS( nUnits )\n      METHOD SetContrats( dContrats)    INLINE TW_SETCONTRATS( dContrats  )\n      METHOD SetBright( dBright )       INLINE TW_SETBRIGHTNESS( dBright )\n      METHOD SetPaper( nPaper )         INLINE TW_SETPAPERSIZE( nPaper )\n      METHOD GetResolution()            INLINE TW_GETCURRENTRESOLUTION()\n\n\n      //******** Image Layout (Region of Interest) **********************\n      METHOD RegionSet( nLeft,nTop, nRigth, nBottom )  INLINE TW_SetImageLayout( nLeft,nTop, nRigth, nBottom )\n      METHOD RegionReset()                             INLINE TW_ResetImageLayout()\n      METHOD RegionGet( L,T,R,B )                      INLINE TW_GetImageLayout(@L,@T,@R,@B)\n      METHOD RegionGetDefault( L,T,R,B )               INLINE TW_GetDefaultImageLayout(@L,@T,@R,@B)\n\n      METHOD ClipBoardToFile( cFile )\n      METHOD DIB_GetFromClipboard() INLINE TW_DIB_GetFromClipboard()\n\nENDCLASS\n\n***********************************************************\n***********************************************************\nMETHOD New( cFile, hWnd ) CLASS TSCAN32\n\n       IF Empty( hWnd )\n          ::hWnd := GetActiveWindow()\n       ENDIF\n\n       IF Empty( cFile )\n          ::cFile := \"TestTscan32.jpg\"\n       ELSE\n          ::cFile := cFile\n       ENDIF\n\n\n       IF !::IsAvailable()\n          ::lError := .T.\n         // MsgStop( \"TWAIN no found\",\"Attention!\") // Only Fivewin\n       ENDIF\n\n       IF !::lError\n          ::Register( 1,0,0,0,\"1.0 Beta\",\"by Rafa Carmona\",\"Scan by Thefull\",\"Scan For [x]Harbour\" )\n       ENDIF\n       ::OpenSource()\n       ::OpenDefault()\n\nRETURN Self\n\n**********************************************************************\n* Comprueba que esta disponible TWAIN y cargalo\n**********************************************************************\nMETHOD OpenSource() CLASS TSCAN32\n   Local nResult := TW_LoadSourceManager()\n\n   DO CASE\n      CASE nResult = -1\n           ::lError := .T.\n           // MsgStop(\"Error Driver TWAIN\",\" &#3615; Insufficient Memory ?\")\n           Return Self\n   ENDCASE\n\nReturn Self\n\n***********************************************************************\n*  Abre TWAIN el ultimo que fue seleccionado desde Select ..Dialog\n* Si no puede cargarlo solicita seleccionar Source.\n***********************************************************************\nMETHOD OpenDefault() CLASS TSCAN32\n       Local nResult := TW_OpenDefaultSource()\n\n       DO CASE\n          CASE nResult = 0\n               ::Choose()\n          CASE nResult = -1\n               ::lError := .T.\n          OTHERWISE\n               ::lError := .F.\n       ENDCASE\n\nReturn Self\n\n**************************************************************************\n* Liberamos hDib y cerramos el dispositivo\n**************************************************************************\nMETHOD End() CLASS TSCAN32\n\n   if !Empty( ::hDib )\n      TW_Free( ::hDib )\n   endif\n\n   TW_CloseSourceManager( ::hWnd ) // Close para evitar GPF\n\nReturn NIL\n\n***************************************************************************\n* Registra la aplicacion\n***************************************************************************\nMETHOD Register( nMajor ,nMinor,nLanguage,nCountry,cVersion,cName,cFamily,cProduct ) CLASS TSCAN32\n\n       TW_REGISTERAPP( nMajor ,nMinor,nLanguage,nCountry,;\n                       cVersion,cName,cFamily,cProduct )\n\nReturn Self\n\n***********************************************************\n* Digitaliza hacia un fichero .jpg\n***********************************************************\nMETHOD DigiToFile( cFile )\n\n       if EMPTY( cFile )\n          cFile := ::cFile\n       endif\n\n       IF !::lError\n          ::hDib := ::Acquire()         // Importar\n       ENDIF\n\n       IF !Empty( ::hDib )\n\n           IF TW_IsJpg() = 1             // Si puede hacer uso del JPG\n              ::DibToJpeg( cFile )\n           ELSE\n              ::DibToBmp( cFile )       // Si no hacemos uso de BMP\n           ENDIF\n\n       ENDIF\n\nReturn Self\n\n\n************************************************************************\n* Save content clipboard into to file.jpg\n************************************************************************\nMETHOD ClipBoardToFile( cFile ) CLASS TSCAN32\n       Local hDib, nError\n\n       IF Empty( cFile )\n          ::cFile := \"TestTscan32.jpg\"\n       ELSE\n          ::cFile := cFile\n       ENDIF\n\n        hDib := ::DIB_GetFromClipboard()\n\n\n       IF !Empty( hDib )\n\n           IF TW_IsJpg() = 1             // Si puede hacer uso del JPG\n              TW_DibWJpg( hDib,  ::cFile )\n           ELSE\n              TW_DibWBmp(  hDib, ::cFile )\n           ENDIF\n\n           TW_Free( hDib )\n\n       ENDIF\n\nRETURN Self\n/* -----------------------------------------------------------------\n  Implementation Language C for [x]Harbour(WIN32)\n  2003(c)- by Rafa Carmona ( TheFull )\n\n  Wrappers for EZTW32.DLL the DosAdi.\n\n-------------------------------------------------------------------- */\n#pragma BEGINDUMP\n\n #include &lt;windows.h&gt;\n #include \"eztwain.h\"\n #include \"hbapi.h\"\n\n\n/*--------- Top-Level Calls -------------------------------------*/\n\n HB_FUNC( TW_ACQUIRE )  // hWnd\n {\n  hb_retnl( ( LONG )TWAIN_Acquire( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_FREE )     // hDib\n {\n  TWAIN_FreeNative( ( HANDLE ) hb_parnl( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_SELECTIMAGESOURCE )  // hWnd\n {  ;\n  hb_retni( TWAIN_SelectImageSource( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_ACQUIRENATIVE )  // hWnd, nPixTypes\n {\n  hb_retnl( ( LONG )TWAIN_AcquireNative( ( HWND ) hb_parnl( 1 ), (unsigned) hb_parni(2) ) );\n }\n\n HB_FUNC( TW_ACQUIRETOCLIPBOARD )  // hWnd, nPixTypes\n {\n  hb_retni( TWAIN_AcquireToClipboard( ( HWND ) hb_parnl( 1 ), (unsigned) hb_parni(2) ) );\n }\n\n HB_FUNC( TW_ACQUIREMEMORY )  // hWnd\n {\n  hb_retnl( ( LONG )TWAIN_AcquireMemory( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_ACQUIRETOFILENAME )  // hWnd, cFileName\n {\n  hb_retni( TWAIN_AcquireToFilename( ( HWND ) hb_parnl( 1 ), hb_parc( 2 ) ) );\n }\n\n HB_FUNC( TW_ACQUIREFILE )  // hWnd, nFF, cFileName\n {\n  hb_retni( TWAIN_AcquireFile( ( HWND ) hb_parnl( 1 ), hb_parni( 2 ) ,hb_parc( 3 ) ) );\n }\n\n\n//--------- Basic TWAIN Inquiries\n\n HB_FUNC( TW_AVAIL )\n {\n  hb_retni( TWAIN_IsAvailable()  );\n }\n\n HB_FUNC( TW_EASYVERSION)\n {\n  hb_retni( TWAIN_EasyVersion()  );\n }\n\n HB_FUNC( TW_STATE )\n {\n  hb_retni( TWAIN_State() );\n }\n\n HB_FUNC( TW_SOURCENAME )\n {\n  hb_retc( TWAIN_SourceName() );\n }\n\n HB_FUNC( TW_GETSOURCENAME )   // pzName\n {\n  TWAIN_GetSourceName( (LPSTR) hb_parc( 1 ) );\n  hb_ret();\n }\n\n\n//--------- DIB handling utilities ---------\n\n HB_FUNC( TW_DIBWJPG ) // hDib, cName\n {\n  hb_parni( DIB_WriteToJpeg( ( HANDLE ) hb_parnl(1), hb_parc( 2 ) ) );\n }\n\n HB_FUNC( TW_DIBWBMP ) // hDib, cName\n {\n  hb_parni( DIB_WriteToBmp( ( HANDLE ) hb_parnl(1), hb_parc( 2 ) ) );\n }\n\n\n//--------- File Read/Write\n\n HB_FUNC( TW_ISJPG )\n {\n  hb_retni( TWAIN_IsJpegAvailable() );\n }\n\n HB_FUNC( TW_SETSAVEFORMAT )\n {\n  hb_retni( TWAIN_SetSaveFormat( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETSAVEFORMAT )\n {\n  hb_retni( TWAIN_GetSaveFormat() );\n }\n\n HB_FUNC( TW_SETJPEGQUALITY ) // nQuality 1...100\n {\n  TWAIN_SetJpegQuality( hb_parni( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETJPEGQUALITY )\n {\n  hb_retni( TWAIN_GetJpegQuality() );\n }\n\n HB_FUNC( TW_WRITENATIVETOFILENAME )\n {\n  hb_retni( TWAIN_WriteNativeToFilename( (HANDLE) hb_parnl(1), hb_parc(2) ));\n }\n\n HB_FUNC( TW_LOADNATIVEFROMFILENAME )\n {\n  hb_retnl( (LONG) TWAIN_LoadNativeFromFilename( hb_parc( 1 ) ) );\n }\n\n\n\n//--------- Global Options ----------------------------------------------\n HB_FUNC( TW_SETMULTITRANSFER )\n {\n  TWAIN_SetMultiTransfer( hb_parni( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETMULTITRANSFER )\n {\n  hb_retni( TWAIN_GetMultiTransfer() );\n }\n\n HB_FUNC( TW_SETHIDEUI  ) // nHide\n {\n  TWAIN_SetHideUI( hb_parni( 1) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETHIDEUI  )\n {\n  hb_retni( TWAIN_GetHideUI() );\n }\n\n\n HB_FUNC( TW_DISABLEPARENT )\n {\n  TWAIN_DisableParent( hb_parni( 1 ) );\n  hb_ret();\n }\n\n HB_FUNC( TW_GETDISABLEPARENT )\n {\n  hb_retni( TWAIN_GetDisableParent() );\n }\n\n HB_FUNC( TW_REGISTERAPP )\n {\n\n TWAIN_RegisterApp( hb_parni(1),hb_parni(2),hb_parni(3),hb_parni(4),\n                    hb_parc(5), hb_parc(6),\n                    hb_parc(7), hb_parc(8) );\n hb_ret();\n }\n\n HB_FUNC( TW_SETAPPTITLE )\n {\n  TWAIN_SetAppTitle( hb_parc( 1 ) );\n  hb_ret();\n }\n\n\n\n\n//--------- TWAIN State Control ---------------------------------------\n\n HB_FUNC( TW_LOADSOURCEMANAGER )\n {\n  hb_retni( TWAIN_LoadSourceManager() );\n }\n\n HB_FUNC( TW_OPENSOURCEMANAGER )  // hWnd\n {\n  hb_retni( TWAIN_OpenSourceManager( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_OPENDEFAULTSOURCE )\n {\n  hb_retni( TWAIN_OpenDefaultSource() );\n }\n\n HB_FUNC( TW_GETSOURCELIST )\n {\n  hb_retni( TWAIN_GetSourceList() );\n }\n\n HB_FUNC( TW_GETNEXTSOURCENAME )\n {\n  hb_retni( TWAIN_GetNextSourceName( hb_parc( 1 ) ) );\n }\n\n HB_FUNC( TW_GETDEFAULTSOURCENAME )\n {\n  hb_retni( TWAIN_GetDefaultSourceName( hb_parc( 1 ) ));\n }\n\n HB_FUNC( TW_OPENSOURCE )\n {\n  hb_retni( TWAIN_OpenSource( hb_parc( 1 ) ) );\n }\n\n HB_FUNC( TW_ENABLESOURCE )       // hWnd\n {\n  hb_retni( TWAIN_EnableSource( ( HWND ) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_DISABLESOURCE )\n {\n  hb_retni( TWAIN_DisableSource( ) );\n\n }\n\n HB_FUNC( TW_CLOSESOURCE )\n {\n  hb_retni( TWAIN_CloseSource() );\n }\n\n HB_FUNC( TW_CLOSESOURCEMANAGER )\n {\n  hb_retni( TWAIN_CloseSourceManager( (HWND) hb_parnl( 1 ) ) );\n }\n\n HB_FUNC( TW_UNLOADSOURCEMANEGER )\n {\n  hb_retni( TWAIN_UnloadSourceManager() );\n }\n\n\n\n//--------- High-level Capability Negotiation Functions --------------\n// These functions should only be called in State 4 (TWAIN_SOURCE_OPEN)\n\n HB_FUNC( TW_GETCURRENTUNITS )\n {\n  hb_retni( TWAIN_GetCurrentUnits() );\n }\n\n HB_FUNC( TW_SETCURRENTUNITS ) // nUnits\n {\n  hb_retni( TWAIN_SetCurrentUnits( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETBITDEPTH )\n {\n  hb_retni( TWAIN_GetBitDepth() );\n }\n\n HB_FUNC( TW_SETBITDEPTH )\n {\n  hb_retni( TWAIN_SetBitDepth( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETPIXELTYPE )\n {\n  hb_retni( TWAIN_GetPixelType() );\n }\n\n HB_FUNC( TW_SETCURRENTPIXELTYPE )  // nBits\n {\n  hb_retni( TWAIN_SetCurrentPixelType( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_GETCURRENTRESOLUTION )\n {\n  hb_retnd( TWAIN_GetCurrentResolution());\n }\n\n HB_FUNC( TW_GETYRESOLUTION )\n {\n  hb_retnd( TWAIN_GetYResolution());\n }\n\n HB_FUNC( TW_SETCURRENTRESOLUTION )  // dRes\n {\n  hb_retni( TWAIN_SetCurrentResolution( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETXRESOLUTION )\n {\n  hb_retni( TWAIN_SetXResolution( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETYRESOLUTION )\n {\n  hb_retni( TWAIN_SetYResolution( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETCONTRATS ) //dCon\n {\n  hb_retni( TWAIN_SetContrast( hb_parnd( 1 ) ) ); // -1000....+1000\n }\n\n HB_FUNC( TW_SETBRIGHTNESS ) //dBri\n {\n  hb_retni( TWAIN_SetBrightness( hb_parnd( 1 ) ) ); // -1000....+1000\n  }\n\n HB_FUNC( TW_SETTHRESHOLD )\n {\n  hb_retni( TWAIN_SetThreshold( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_GETCURRENTTHRESHOLD )\n {\n  hb_retnd( TWAIN_GetCurrentThreshold() );\n }\n\n HB_FUNC( TW_SETXFERMECH )\n {\n  hb_retni( TWAIN_SetXferMech( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_XFERMECH )\n {\n  hb_retni( TWAIN_XferMech() );\n }\n\n HB_FUNC( TW_SUPPORTSFILEXFER )\n {\n  hb_retni( TWAIN_SupportsFileXfer() );\n }\n\n HB_FUNC( TW_SETPAPERSIZE ) // nTypePaper\n {\n  hb_retni( TWAIN_SetPaperSize( hb_parni( 1 ) ) );\n }\n\n//-------- Document Feeder ---------------------------------\n\n HB_FUNC( TW_HASFEEDER )\n {\n  hb_retl( TWAIN_HasFeeder() );\n }\n\n HB_FUNC( TW_ISFEEDERSELECTED )\n {\n  hb_retl( TWAIN_IsFeederSelected() );\n }\n\n HB_FUNC( TW_SELECTFEEDER )\n {\n  hb_retni( TWAIN_SelectFeeder( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_ISAUTOFEEDON )\n {\n  hb_retl( TWAIN_IsAutoFeedOn() );\n }\n\n HB_FUNC( TW_SETAUTOFEDD )\n {\n  hb_retni( TWAIN_SetAutoFeed( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_ISFEEDERLOADED )\n {\n  hb_retl( TWAIN_IsFeederLoaded() );\n }\n\n//-------- Duplex Scanning ------------------------------------------\n HB_FUNC( TW_GETDUPLEXSUPPORT )\n {\n  hb_retni( TWAIN_GetDuplexSupport() );\n }\n\n HB_FUNC( TW_ENABLEDUPLEX )\n {\n  hb_retni( TWAIN_EnableDuplex( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_ISDUPLEXENABLED )\n {\n  hb_retl( TWAIN_IsDuplexEnabled() );\n }\n\n//--------- Other \'exotic\' capabilities --------\n\n HB_FUNC( TW_HASCONTROLLABLEUI )\n {\n  hb_retni( TWAIN_HasControllableUI() );\n }\n\n HB_FUNC( TW_SETINDICATORS )\n {\n  hb_retni( TWAIN_SetIndicators( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_COMPRESSION )\n {\n  hb_retni( TWAIN_Compression() );\n }\n\n HB_FUNC( TW_SETCOMPRESSION )\n {\n  hb_retni( TWAIN_SetCompression( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_TILED )\n {\n  hb_retl( TWAIN_Tiled() );\n }\n\n HB_FUNC( TW_SETTILED )\n {\n  hb_retni( TWAIN_SetTiled( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_PLANARCHUNKY )\n {\n  hb_retni( TWAIN_PlanarChunky() );\n }\n\n HB_FUNC( TW_SETPLANARCHUNKY )\n {\n  hb_retni( TWAIN_SetPlanarChunky( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_PIXELFLAVOR )\n {\n  hb_retni( TWAIN_PixelFlavor() );\n }\n\n HB_FUNC( TW_SETPIXELFLAVOR )\n {\n  hb_retni( TWAIN_SetPixelFlavor( hb_parni( 1 ) ) );\n }\n\n HB_FUNC( TW_SETLIGHTPATH )\n {\n  hb_retni( TWAIN_SetLightPath( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_SETAUTOBRIGHT )\n {\n  hb_retni( TWAIN_SetAutoBright( hb_parl( 1 ) ) );\n }\n\n HB_FUNC( TW_SETGAMMA )\n {\n  hb_retni( TWAIN_SetGamma( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETSHADOW )\n {\n  hb_retni( TWAIN_SetShadow( hb_parnd( 1 ) ) );\n }\n\n HB_FUNC( TW_SETHIGHLIGHT )\n {\n  hb_retni( TWAIN_SetHighlight( hb_parnd( 1 ) ) );\n }\n//--------- Image Layout (Region of Interest) --------\n\n\n HB_FUNC( TW_SETIMAGELAYOUT )   // left, top, right, bottom\n {\n  hb_retni( TWAIN_SetImageLayout( hb_parnd( 1 ),hb_parnd( 2 ),hb_parnd( 3 ),hb_parnd( 4 ) ) );\n }\n\n HB_FUNC( TW_RESETIMAGELAYOUT )\n {\n  TWAIN_ResetImageLayout();\n  hb_ret();\n }\n\n HB_FUNC( TW_GETIMAGELAYOUT )\n {\n  double L,T,R,B;\n  int nRet;\n\n  nRet = TWAIN_GetImageLayout( &amp;L,&amp;T,&amp;R,&amp;B );\n\n  hb_stornd( L, 1 );\n  hb_stornd( T, 2 );\n  hb_stornd( R, 3 );\n  hb_stornd( B, 4 );\n  hb_retni( nRet );\n }\n\n HB_FUNC( TW_GETDEFAULTIMAGELAYOUT )\n {\n  double L,T,R,B;\n  int nRet;\n\n  nRet = TWAIN_GetDefaultImageLayout( &amp;L, &amp;T, &amp;R, &amp;B);\n\n  hb_stornd( L, 1 );\n  hb_stornd( T, 2 );\n  hb_stornd( R, 3 );\n  hb_stornd( B, 4 );\n  hb_retni( nRet );\n }\n\n//HANDLE EZTAPI DIB_GetFromClipboard(void);\nHB_FUNC( TW_DIB_GETFROMCLIPBOARD )\n{\n hb_retnl( (LONG) DIB_GetFromClipboard() );\n}\n\n// para no depender de Five, y harbour poder el solito trabajar <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n HB_FUNC ( GETACTIVEWINDOW )\n {\n  hb_retnl( ( LONG ) GetActiveWindow() );\n }\n\n#pragma ENDDUMP','',0,'','3k8o8t11',1,0,'',47,0,0),(2972,739,3,47,0,'203.144.143.6',1133804904,1,0,1,1,1,0,'','testscan.prg','Dear Mauricio,\n\nThis is testscan.prg\n\n#INCLUDE \"Fivewin.ch\"\n\n// BitDeph\n#define TWPT_BW          0 /* Black and White */\n#define TWPT_GRAY        1\n#define TWPT_RGB         2\n#define TWPT_PALETTE     3\n\n//----- Unit of Measure\n#define TWUN_INCHES      0\n#define TWUN_CENTIMETERS 1\n#define TWUN_PICAS       2\n#define TWUN_POINTS      3\n#define TWUN_TWIPS       4\n#define TWUN_PIXELS      5\n\n\n/* ----------------------------------------------------------------\n  Control de Pruebas de la Clase TSCAN32, Wrappers\n              para Scanners y WebCams.\n\n   - Soporta scanners Paralelo, USB y SCSI.\n   - WebCams\n\n  (c)2003.- by Rafa Carmona( TheFull )\n  Compiler &amp; Libraries\n  - Harbour and Fivewin For Harbour v2.3\n\n---------------------------------------------------------------  */\n\nStatic oScan, oWnd\nStatic  X := 0\nStatic  Y := 0\nStatic lChangeUnit := .F.\n\nFunction Main( cFile, nType, nRes, lHide, nPaper )\n\n   Local hDib := 0\n   Local oImage, oBar, oBtn, oFont, oCbx, oCbxU, oCbxR, oGet, oCheck\n   Local lSave := .F.\n   Local cType\n   Local aTypes       := { \"1-Scale Gray\",\"2-Real Color\",\"3-Palette Color\" }\n   Local aResolutions := { \"75\",\"100\",\"150\",\"200\",\"300\" }\n   Local aUnits       := { \"0-Dpi\",\"1-Cms\",\"2-Picas\",\"3-Points\",\"4-Twips\",\"6-Pixels\"}\n   Local cUnit := aUnits[1]\n   Local nUnit := 0\n\n   // Default RGB\n   IF nType == NIL\n      nType :=  TWPT_GRAY\n   ELSEIF Val( nType ) &lt;= 3\n      nType := Val( nType )\n   ELSEIF Val( nType ) &gt; 3\n      MsgStop( \"Not exist type.\" + CRLF+;\n               \"Real Color by Default\", \"Atention\" )\n      nType := TWPT_RGB\n   ENDIF\n\n   cType := aTypes[ nType  ]\n\n   IF cFile = NIL\n      cFile := \"\"\n   ENDIF\n\n   //Default 150dpi\n   IF nRes = NIL\n      nRes := \"150\"\n   ENDIF\n\n   oScan := TScan32():New( cFile )\n\n   DEFINE FONT oFont NAME\"Tahoma\" SIZE 0,-10\n\n\n   DEFINE WINDOW oWnd TITLE \"Fichero: \"+ oScan:cFile FROM 1,1 TO 500,650 PIXEL\n\n\n   DEFINE BUTTONBAR oBar SIZE 50,32 3D OF oWnd\n\n   DEFINE BUTTON oBtn PROMPT \"Exit\"  FONT oFont ;\n          ACTION oWnd:End() OF oBar\n\n   DEFINE BUTTON oBtn PROMPT \"Grabar\"  FONT oFont ;\n          ACTION ( oScan:ClipBoardToFile( cFile ),;\n                   SysRefresh() ) OF oBar\n\n   DEFINE BUTTON oBtn PROMPT \"Scan\"  FONT oFont ;\n          ACTION IF( ScanFive(  nType , nRes, nUnit ),;\n                             ( oImage:LoadFromClipboard(), oImage:Refresh()) ,) OF oBar\n\n   @5,175 CHECKBOX oCheck VAR lChangeUnit PROMPT \"SetUnit\" SIZE 70,20 OF oBar PIXEL\n\n   @3,250 COMBOBOX oCbxR VAR nRes  SIZE 100,130 ;\n           ITEMS aResolutions OF oBar PIXEL ;\n           WHEN   nUnit = 0  UPDATE\n\n   @3,350 COMBOBOX oCbx VAR cType  SIZE 120,130 ;\n           ITEMS  aTypes OF oBar PIXEL ;\n           ON CHANGE nType := Val( SubStr( cType,1,1 ) )\n\n   @3,470 COMBOBOX oCbxU VAR cUnit  SIZE 100,130 ;\n           ITEMS  aUnits OF oBar PIXEL ;\n           ON CHANGE nUnit := Val( SubStr( cUnit,1,1 ) ) ;\n           UPDATE\n\n   @7,570  GET oGet VAR X PICTURE \"9999.99\" SIZE 60,20 OF oBar ;\n           UPDATE PIXEL\n\n   @7,630  GET oGet VAR Y PICTURE \"9999.99\" SIZE 60,20 OF oBar ;\n           UPDATE PIXEL\n\n\n   @0,0 BITMAP oImage SCROLL OF oWnd\n   oWnd:oClient := oImage\n\n   oWnd:Center()\n\n   SET MESSAGE TO \"(c)2003-Scan ClipBoard Beta 2 by Rafa Carmona\" OF oWnd CENTER\n\n   // Vaciamos el Clipboard a la salida de la Aplicacion.\n   // Empty Clipboard to Exit aplicattion.\n   ACTIVATE WINDOW oWnd VALID( oFont:End(), oScan:End(),;\n                               OpenClipBoard( oWnd:hWnd ),;\n                               EmptyClipboard(),;\n                               CloseClipBoard(),.T. )\n\n\nReturn NIL\n\n\n// Scanner al Clipboard\n// nType -&gt; Tipo de Salida\n// nRes  -&gt; Resolucion de salida\n// nUnit -&gt; Sistema de Medida\n\nStatic Func ScanFive( nType, nRes , nUnit )\n\n      if oScan:State() &lt; 4\n         oScan:OpenDefault()\n      endif\n\n      if nUnit = 0\n         oScan:SetRes( Val( nRes ) )\n      endif\n\n      IF nUnit &gt; 0\n         if lChangeUnit\n            oScan:SetUnits( nUnit )   // Sistema de Medida .Esto puede causar problema\n         endif\n         // Expresado en Dpi. Habria que convertir pero no tengo ni idea de como.\n         oScan:SetXRes( X )\n         oScan:SetYRes( Y )\n      ENDIF\n\n      oScan:SetHide( .T. )              // Oculto DS\n      oScan:PixelType( nType )\n\nReturn IF( oScan:AcquireClipBoard() = 1,.T.,.F.)','',0,'','ln6p4sce',1,0,'',47,0,0),(2973,778,3,297,0,'217.57.213.130',1133804983,1,0,1,1,1,0,'','','Yes \nthis is my problem\nThanks','',0,'','rjr767yq',1,0,'',297,0,0),(2974,764,3,303,0,'68.7.28.54',1133806282,1,0,1,1,1,0,'','','Take a look at the splitter examples in \\samples (testspl1-testspl6).','',0,'','zyvgozqa',1,0,'',303,0,0),(2975,782,7,28,0,'62.14.206.107',1133806733,1,0,1,1,1,0,'','Que controles estan operativos en fwppc','Hola a todos.\n\nMe gustaria saber que controles estan utilizables en la actual version de fwppc y si hay ya una version 1.0 \n\nGracias','',0,'','3u7j0dgo',1,0,'',28,0,0),(2976,783,6,342,0,'201.154.51.242',1133806830,1,0,1,1,1,0,'','Almacenar JPG, BMP, AVI, etc etc en archivos .DBF','Estimados Amigos, necesito saber si se puede tener en los regisros de una DBF datos de tipo GIF, BMP o AVI\n\nSi no es en DBF, en que tipo de seria ?\n\ngracias\nsaludos cordiales','',0,'','1pxvk6o9',1,0,'',342,0,0),(2977,739,3,339,0,'200.216.28.78',1133807361,1,0,1,1,1,0,'','dutch','I think This , How Many Files have this Class , your bat files don´t have library to undefined Functions if external .. declare..\n\n  Extern ...\n \n  What Files have this class?\n\nMauricio (BRAZIL)','',0,'','gg7jj6ye',1,0,'',339,0,0),(2978,739,3,47,0,'203.144.143.7',1133810265,1,0,1,1,1,0,'','EZTW32.LIB','Dear Mauricio,\n\nThis classes come from <!-- w --><a class=\"postlink\" href=\"http://www.dosadi.com\">www.dosadi.com</a><!-- w --> EZTWAIN\n\nRegards,\nDutch','',0,'','2q2wwhi1',1,0,'',47,0,0),(2979,784,3,47,0,'203.144.143.6',1133810530,1,0,1,1,1,0,'','How can I compile EZTWAIN classic EZTW1.ZIP ?','Dear all,\n\nI would like to test EZTWAIN.DLL classic at <!-- w --><a class=\"postlink\" href=\"http://www.dosadi.com/eztwain1.htm\">www.dosadi.com/eztwain1.htm</a><!-- w --> but it is in C++ file format.  How can I compile it?\n\nBest regards,\nDutch','',0,'','120p2ovw',1,0,'',47,0,0),(2980,739,3,339,0,'200.216.28.78',1133812346,1,0,1,1,1,0,'','','DEAR DUTCH,\n\n    I THINK THIS , do you have Using Dll Via DLL32 \n\n    i don´t get this classe , send me ..ok\n\n   <!-- e --><a href=\"mailto:mauricioajordao@msn.com\">mauricioajordao@msn.com</a><!-- e -->\n\n    Together found Solutions OK\n\nmauricio (BRAZIL)','',0,'','3kpaye0c',1,0,'',339,0,0),(2981,784,3,339,0,'200.216.28.78',1133812563,1,0,1,1,1,0,'','','dear , dutch\n\n   do you have Compiler *.c and ADD OBJ in BAT compiler for harbour..\n\n   OK\n\nmauricio','',0,'','2bfc0f0d',1,0,'',339,0,0),(2982,784,3,47,0,'203.144.143.6',1133813188,1,0,1,1,1,0,'','Dosadi said this code is used with VC 1.5','Dear Mauricio,\n\nI\'ve read doc. in EZTW1.ZIP.  It said the source is used with VC 1.5 but I don\'t know how to compile it to be lib and dll?\n\nRegards,\nDutch','',0,'','17jj1tlg',1,0,'',47,0,0),(2983,785,7,28,0,'62.14.206.107',1133814692,1,0,1,1,1,0,'','¿Imagenes?','¿Se puede incluir imágenes a parte de bmps ?\n\njpg,gif, tiff, etc...?\n\nUn saludo','',0,'','3eyvddvl',1,0,'',28,0,0),(2984,785,7,2,0,'80.58.2.107',1133815199,1,0,1,1,1,1,'','','Paco,\n\nCreo que Windows Mobile no da soporte nativo para esos formatos. Habrá que localizar alguna DLL que ofrezca esa funcionalidad.','',0,'','23wbkbjw',1,0,'',2,0,0),(2985,770,3,3,0,'82.64.211.151',1133815255,1,0,1,1,1,0,'','','[quote=&quot;Timm Sodtalbers&quot;:1aiu732s]Hi Richard,\n\nEasyReport works with all FWH versions. \nIf you use EasyPreview you need to compile/link tmetafil.prg \nand printer.prg of FWH 2005 March or lower. This is because \nthe format of the temporary preview files changes from WMF to \nEMF in the next releases.\nI will try to solve this problem.[/quote:1aiu732s]\n\nTimm\n\nThanks for considering the problem. The \"old printer.prg\" has a serious bug with printer name (office printer with fax for example) . Antonio has already fixed this bug in recent fwh releases and i seriously would like to use this fix.\n\nPlease note (and this is very strange) that the easyreport preview problem occurs only for treport class not for print class ! \n\nWill be looking forward to hear from you,\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nBest regards\n\nRichard','',0,'gA==','1aiu732s',1,0,'',3,0,0),(2986,782,7,2,0,'80.58.2.107',1133815421,1,0,1,1,1,1,'','','Paco,\n\nControles disponibles: SAYs, GETs, Buttons, Radios, CheckBoxes, ComboBoxes, ListBoxes, TWBrowse, TBtnBmp, TBitmap, Groups, ScrollBars, TIcons.\n\nDe momento estamos en fase beta. La versión 1.0 aún no se ha publicado oficialmente, aunque las aplicaciones realizadas son totalmente estables.','',0,'gA==','ua7gvm6u',1,0,'',2,0,0),(2987,778,3,2,0,'80.58.2.107',1133815550,1,0,1,1,1,1,'','','Marco,\n\nYou may modify Class TFolder, so when it gets focus, it is not given to a contained control. We have not tested it ourselves, but it may work.','',0,'gA==','ts0r3xus',1,0,'',2,0,0),(2988,744,3,2,0,'80.58.2.107',1133815739,1,0,1,1,1,1,'','','Silvio,\n\nWhat error do you get ?','',0,'gA==','u2ahyq9h',1,0,'',2,0,0),(2989,785,7,28,0,'62.14.206.107',1133815966,1,0,1,1,1,0,'','imagenes','Creo haber leido en el foro que las dlls no se llevan bien con Fwppc ¿no? osea que freeimage o nview...\nahora que caigo\nGdiplus++ tiene soporte para todo ello\n\nMira a ver\n\nSaludos','',0,'gA==','ke7t5b4g',1,0,'',28,0,0),(2990,782,7,28,0,'62.14.206.107',1133816069,1,0,1,1,1,0,'','controles','Los folders no?\nCreo que no seria muy complicado adaptar los antiguos aunque fuera \nno?','',0,'gA==','2gkh37jv',1,0,'',28,0,0),(2991,522,6,39,0,'216.155.88.46',1133816105,1,0,1,1,1,0,'','Usar browse con odbc','Hola, \n\nAqui estan los codigos para usar segun la sintaxis de tdbodbc\n\nolbx:bgotop:={||otb:gotop()} // Bloque de codigo para ir al primer \n                                            //registro \nolbx:bgobottom:={||otb:gobottom()} // Bloque de codigo para ir al \n                                                      //ultimo registro \nolbx:bskip:={|nskip,nold,nsaltos|nold:=otb:recno(),otb:skip(nskip),nsaltos:=nold-otb:recno(),if(nsaltos+nold &lt; 0,nsaltos:=1,nil),if(nsaltos+nold &gt; otb:reccount(),nsaltos:=otb:reccount(),nil),nsaltos}\n                          // Bloque de codigo que salta nregistros \nolbx:blogiclen:={||otb:reccount()} // bloque de codigo que devuelve la cantida de \n//registros de la grilla \n\n\nAtte, \nLautaro Moreira','',0,'gA==','24g5flw9',1,0,'',39,0,0),(2992,786,7,28,0,'62.14.206.107',1133816336,1,0,1,1,1,0,'','menus','Los menus en FWPPC o en PPC siempre ban abajo?','',0,'gA==','3p9d4gfm',1,0,'',28,0,0),(2993,787,6,295,0,'201.246.206.56',1133819241,1,0,1,1,1,1,'','Compré FWH por internet, ¿cuanto tiempo toma el envío? salu2','Estimados amigos de FiveTechsoft\n\nYa completé el formulario de pedido del FWH con los datos y demases Nº de tarjeta de crédito, etc., ¿cuando podré realizar la descarga del producto?\n\nsaludos','',0,'gA==','zo7n7jav',1,0,'',295,0,0),(2994,784,3,339,0,'200.216.28.78',1133820143,1,0,1,1,1,0,'','','Sawasdee , dutch\n\n   Dutch try this.\n\n     Copy file in \\eztwain1\\vc\\debug\\eztw32.lib  to folder your habour LIB\n\n     Change Line in BAT compiler :\n\n     echo %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc \n     echo %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc \nADD here -&gt;  echo %hdir%\\lib\\eztw32.lib + &gt;&gt; b32.bc \n\n     copy File \"eztw32.DLL\"   to folder your EXECUTABLE \n  \n   TRY THIS OK\n\n  One ASK , Do you know PHUKET?\n\n  MAuricio (BRAZIL)','',0,'gA==','2zgatjux',1,0,'',339,0,0),(2995,785,7,2,0,'80.58.2.107',1133823783,1,0,1,1,1,1,'','','Paco,\n\nLas DLLs funcionan perfectamente, lo único es que tienen que estar compiladas para micros compatible ARM. Es decir, que las de un PC (intel) no funcionan en un Pocket PC (ARM).','',0,'gA==','101qc0dz',1,0,'',2,0,0),(2996,782,7,2,0,'80.58.2.107',1133824037,1,0,1,1,1,1,'','','Paco,\n\nLos folders aun no. Posiblemente implementemos primero los tabs.\n\nWindows Mobile y Windows (PC) no son iguales, y hay que ir poco a poco adaptando código y probando.','',0,'gA==','1bjo8hht',1,0,'',2,0,0),(2997,786,7,2,0,'80.58.2.107',1133824227,1,0,1,1,1,1,'','','Paco, \n\nSi, van abajo. \n\nWindows CE (que no es igual que el Windows Mobile de Pocket PC) permite ponerlos arriba.','',0,'gA==','1pi1inmg',1,0,'',2,0,0),(2998,768,3,2,0,'80.58.2.107',1133824358,1,0,1,1,1,1,'','','Mauricio,\n\nFiveTech provides the libraries ready for Harbour (FiveH.lib) and xHarbour (FiveHX.lib).\n\nFiveHC.lib is the same for both Harbour and xharbour.','',0,'gA==','14ze92k0',1,0,'',2,0,0),(2999,787,6,2,0,'80.58.2.107',1133824565,1,0,1,1,1,1,'','','Luis,\n\nTe hemos enviado un email indicándote que los datos de la tarjeta eran incorrectos. Por favor comprueba tu email y confírmanos si lo has recibido. Gracias.','',0,'gA==','iw3c89yv',1,0,'',2,0,0),(3000,786,7,255,0,'200.67.134.233',1133827336,1,0,1,1,1,1,'','Re: menus','[quote=&quot;Paco Garcia&quot;:2v4067wp]Los menus en FWPPC o en PPC siempre ban abajo?[/quote:2v4067wp]\n\nTe he enviado un email el jueves de la semana pasada\npor favor si no te llegó, pegame un toque a\n<!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e --> y dame una direccion donde\nme pueda poner en contacto.\n\nSaludos','',0,'gA==','2v4067wp',1,0,'',255,0,0),(3001,788,6,295,0,'201.222.159.110',1133827556,1,0,1,1,1,1,'','Reenvié el Pedido, favor revisen el Nº de Tarjeta saludos','Antonio, esta vez revisé bien el Nº de T/C están los cuatro grupos de cuatro Numeros.\nSaludos y Gracias... espero vuestra pronta respuesta','',0,'gA==','27xm4cso',1,0,'',295,0,0),(3002,744,3,49,0,'87.7.179.178',1133827675,1,0,1,1,1,0,'','','when I insert this code \n\n\n[code:1lq2nh6t] @ &#40; oDlg&#58;nHeight / 2 &#41; - 11, nBrwSplit+2 TABS oCbx  ;\n    SIZE oWnd&#58;nWidth&#40;&#41; - 80, 12 ;\n    PIXEL ;\n    OF oDlg ;\n    ITEMS aIdx ;\n    COLOR CLR_BLACK, GetSysColor&#40;15&#41; - rgb&#40; 30, 30, 30 &#41;; // 13362404  ;\n  action  Sel_Index&#40;oCbx&#41;[/code:1lq2nh6t]\n\n\n\nmake this error \n\n\n\nApplication\n===========\n   Path and name: C:\\Work\\prg\\maga32\\maga32.Exe (32 bits)\n   Size:   797,696 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 06/12/2005, 01:05:31\n   Error description: Error BASE/1126  Argument error: STRTRAN\n   Args:\n     [   1] = A   { ... }\n     [   2] = C   &amp;\n     [   3] = C   \n\nStack Calls\n===========\n   Called from STRTRAN(0)\n   Called from TTABS:DEFAULT(305)\n   Called from TTABS:NEW(122)\n   Called from MAW110(191)\n   Called from (b)PERFORM(237)\n   Called from PERFORM(238)\n   Called from (b)MAWIND(159)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TBTNBMP:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAWIND(25)','',0,'AIA=','1lq2nh6t',1,0,'',49,0,0),(3003,768,3,339,0,'201.8.41.116',1133828525,1,0,1,1,1,0,'','','GRACIAS ANTONIO..\n\n    \n\nEU ESPERO PARTICIPARE MAIS DELE ....\n\n\n  MAURICIO (BRAZIL)','',0,'AIA=','317922p5',1,0,'',339,0,0),(3004,788,6,2,0,'80.58.2.107',1133828720,1,0,1,1,1,1,'','','Luis,\n\nTodo ok. En unos minutos recibes un email nuestro con las instrucciones de descarga, la factura y la tarjeta de registro. Gracias.','',0,'AIA=','2jzi2lps',1,0,'',2,0,0),(3005,789,3,339,0,'201.8.41.116',1133829467,1,0,1,1,1,0,'','TOO MANY EXE file name','hi , friends\n\n some people knows because this erro.\n\nmauricio (brazil)','',0,'AIA=','2vtoi7pw',1,0,'',339,0,0),(3006,783,6,43,0,'201.127.45.26',1133832716,1,0,1,1,1,0,'','','Hola Tom\n\n  Hace poco cuando buscaba algo asi, me encontre con un mensaje en al antiguo news de FWH, que hacia exactamente lo que pides, te lo paso al costo, solo es funcional con xHarbour y se almacena en un campo memo de una .dbf\n\n//////////////////////////////////////////////////////////////////////////////\nAsunto: Re: Images in memo fields / Imagenes en campos memo\nFecha: Lunes, 05 de Septiembre de 2005 06:31 p.m.\n\nEstos son ejemplos de xHarbour usando DBFCDX:\n\nCon esta llenarias el archivo con las imagenes...\n\n       FUNCTION Populate()\n          USE customer NEW VIA \"DBFCDX\"\n          DO WHILE .NOT. EOF()\n             GetPix( \"Pix\", Substr(LastName, 1, 4) + CustID)\n             Customer-&gt;DBSkip()\n          ENDDO\n\n       FUNCTION GetPix(cPixField, cPixFile)\n          LOCAL nPos\n          nPos := FieldPos(cPixField)\n\n          // Import the picture field into the indicated field\n          IF ! DBFILEPUT(nPos, cPixFile)\n             Alert(\"Import of picture \" + cPixFile + \" failed!\")\n          ENDIF\n\nCon este mostrarias lo que guardaste en el archivo:\n\n      FUNCTION ShowPix()\n          LOCAL cPixFile := \"picture.gif\"\n          LOCAL nPos\n\n          // Customer database with a picture of each\n          // customer stored in a field called \"Pix\"\n          USE customer NEW VIA \"DBFCDX\"\n          nPos := FieldPos(\"Pix\")\n\n          // Export the file\'s data for the current Pix field\n          IF ! DBFILEGET(nPos, cPixFile, FILEGET_OVERWRITE )\n             Alert(\"Export of picture \" + cPixFile + \" failed!\")\n          ELSE\n             // Code for displaying picture would go here\n          ENDIF\n\nSaludos desde Colombia,\n\nJulio Cesar Cantillo Molina\n////////////////////////////////////////////////////////////////////////////\n\n    ahi te lo dejo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos.\n\n   Marco A. Delgado','',0,'AIA=','d7fpjogb',1,0,'',43,0,0),(3007,790,3,171,0,'24.147.25.226',1133833052,1,0,1,1,1,0,'','FingerPrint Reader','Hi\nDoes anybody experienced with Fingerprint reader from microsotf.\nAny Class or software to help to integrate this hardware into xHarbour/Fivewin programs?\n\nGeorge','',0,'AIA=','nu9ip9qs',1,0,'',171,0,0),(3008,791,6,171,0,'24.147.25.226',1133833269,1,0,1,1,1,0,'','FingerPrint Reader','Algun compañero del foro ha tenido experiencia con \"fingerprint reader\" de microsoft. Existe alguna clase o software que se pueda utilizar con xHarbour/fivewin para integrar este dispositivo y controlarlo desde uno de nuestros programas xHarbour/Fivewin?\n\nGeorge','',0,'AIA=','1oq0wjgm',1,0,'',171,0,0),(3009,792,3,219,0,'201.154.214.171',1133833387,1,0,1,1,1,0,'','Como leer un numero decimal en un archivo Ini?','compañeros;\ncomo puedo leer un número decimal desde un archivo INI.\n\n\n[PARAMETROS]\nFactorFeling=5.000\nFactorCorr=0.675\n\nEn mi programa:\n\n GET nFactorFeling SECTION \"PARAMETROS\" ENTRY \"FactorFeling\" OF oIni\n GET nFactorCorr   SECTION \"PARAMETROS\" ENTRY \"FactorCorreccion\"  OF oIni\n\nLo que me lee es la parte entera pero requiero con decimales.\n\nque me falta o que estoy haciendo mal.\n\nSaludos\n\nJosé Luis Aguilar\nMéxico.','',0,'','mnbxgqhi',1,0,'',219,0,0),(3010,793,6,219,0,'201.154.214.171',1133834053,1,0,1,1,1,0,'','Como leer un numero decimal en un archivo Ini?','compañeros; \ncomo puedo leer un número decimal desde un archivo INI. \n\n\n[PARAMETROS] \nFactorFeling=5.000 \nFactorCorr=0.675 \n\nEn mi programa: \n\nGET nFactorFeling SECTION \"PARAMETROS\" ENTRY \"FactorFeling\" OF oIni \nGET nFactorCorr SECTION \"PARAMETROS\" ENTRY \"FactorCorreccion\" OF oIni \n\nLo que me lee es la parte entera pero requiero con decimales. \n\nque me falta o que estoy haciendo mal. \n\nSaludos \n\nJosé Luis Aguilar \nMéxico.','',0,'','ak0g12ct',1,0,'',219,0,0),(3011,794,6,73,0,'200.95.72.112',1133835605,1,0,1,1,1,0,'','wbrowse en pellesc','hola foro,\nnuevamente con el pellesc, tengo el custom control twbrowse, pero no me aparecen las barras de scroll, ya las active desde codigo y nada, oBrw:lHScroll:=.T., alguna sugerencia de como hacer que se muestren? o como usar twbrowse en el pellesc?\ngracias\nPaco','',0,'','65exo94x',1,0,'',73,0,0),(3012,784,3,47,0,'203.144.143.6',1133838160,1,0,1,1,1,0,'','Yes, of course','Dear Mauricio,\n\nYes, I do.  It\'s very nice place and the most beautiful sunset in Thailand.  Why do you know a lot about Thailand?  How surpise!  Have you ever been in Thailand?\n\nRegards,\nDutch','',0,'','20i14sjt',1,0,'',47,0,0),(3013,654,7,95,0,'201.145.134.21',1133838394,1,0,1,1,1,0,'','Re: Symbol MC3000','Estimado  \n\nAlguien ha tenido exito activando el lector de codigos de barras, asi mismo la lectura del mismo, usando harbour ?\n\n\nSaludos\nOsvaldo Ramirez\n\nP.D. El aparato es un Symbol MC3000','',0,'','15afhnar',1,0,'',95,0,0),(3014,795,3,195,0,'62.38.26.133',1133852531,1,0,1,1,1,0,'','How we can relate two or more databases via the TdataBase ?','Hello All.\n\nIs there any sample to show how we can relate two or more databses using the TdataBase Class.\n\nThanks in Advance\nDionisis','',0,'','1308t4aa',1,0,'',195,0,0),(3015,784,3,339,0,'201.8.41.116',1133857240,1,0,1,1,1,0,'','','Sawasdee , dutch\n\n    Phuket is wonderful place , i will be in FEB / 2006 (2 time)... \n\n    Do you teste as My Explanation ?\n\n\nmauricio (BRAZIL)','',0,'','28jed90x',1,0,'',339,0,0),(3016,654,7,2,0,'80.58.2.107',1133859118,1,0,1,1,1,1,'','','Osvaldo,\n\nEl lector de barras está instalado como un dispositivo COM ? Hay lectores de barras que directamente traducen lo leido a texto que se escribe normalmente en un GET.\n\nSi funciona por puerto serie (COM), no hay problema, pues FWPPC proporciona funciones para el uso de puertos serie.','',0,'','1r9d7ffy',1,0,'',2,0,0),(3017,780,7,63,0,'80.58.35.107',1133859442,1,0,1,1,1,0,'','','Antonio:\nPues no.  He descargado tutor01.zip y lo he probado en dos IPAQ idénticos, sólo para asegurarme de que el primero no tuviese algo dañado. Da el mismo mensaje de error en ambos.\n\nTambién, para asegurarme, he puesto el programa y DBFs asociadas en una carpeta aparte de mi PC. Lo he probado con el emulador y va bien. He copiado todo el contrido de la carpeta al IPAQ y nada.  ¿Puede ser que necesite alguna DLL adicional?  ¿Hay que instalar el programa siguiente algún protocolo especial, aparte de copiarlo en la SD card?\n\nRafael','',0,'','31f29fxp',1,0,'',63,0,0),(3018,780,7,63,0,'80.58.35.107',1133861101,1,0,1,1,1,0,'','','Antonio:\nPor si sirve de ayuda, el sistema operativo es un Windows MOBILE, Pocket PC versión 3.0.11171 de 20001.  El procesador, confirmo que es un ARM SA1110.  Rodos estos datos, leídos en \"Acerca de\"\nSaludos,\nRafael','',0,'','n58u75cl',1,0,'',63,0,0),(3019,344,18,2,0,'80.58.2.107',1133861382,1,0,1,1,1,1,'','','This fix for Class TGet Method New(...) seems to be a better one:\n\n[code:1qsx01i5]\n   &#46;&#46;&#46;\n\n   &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE,;\n                      ES_AUTOHSCROLL,;\n                      If&#40; ! lReadOnly, WS_TABSTOP, 0 &#41;,;\n                      If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41;,;\n                      If&#40; lSpinner, WS_VSCROLL, 0 &#41;,;\n                      If&#40; lReadOnly, ES_READONLY, 0 &#41;,;\n                      If&#40; lCenter, ES_CENTER, If&#40; lRight, ES_RIGHT, ES_LEFT &#41; &#41; &#41;\n\n   #ifdef __CLIPPER__\n      if ! lNoBorder\n         &#58;&#58;nStyle = nOr&#40; &#58;&#58;nStyle, WS_BORDER &#41;\n      endif   \n   #else\n      if ! IsAppThemed&#40;&#41;\n         &#58;&#58;nStyle = nOr&#40; &#58;&#58;nStyle, WS_BORDER &#41;\n      else\n         &#58;&#58;nStyle = nOr&#40; &#58;&#58;nStyle, If&#40; oWnd&#58;ChildLevel&#40; TDialog&#40;&#41; &#41; != 0, WS_BORDER, 0 &#41; &#41;\n      endif      \n   #endif   \n\n[/code:1qsx01i5]','',0,'AIA=','1qsx01i5',1,0,'',2,0,0),(3020,796,3,2,0,'80.58.2.107',1133861507,1,0,1,1,1,1,'','FWH 2.7 and themed GETs','For FWH 2.7 users only: \n\nWe have published a fix for GETs at the bug reports and fixes section on these forums. Please review it. Thanks.','',0,'AIA=','zxk8bcyy',1,0,'',2,0,0),(3021,797,6,2,0,'80.58.2.107',1133861611,1,0,1,1,1,1,'','FWH 2.7 y GETs con temas','Para usuarios de FWH 2.7 solamente:\n\nHemos publicado una modificación en la sección de bugs y arreglos de estos foros. Por favor leedlo. Gracias.','',0,'AIA=','2u4ioq1c',1,0,'',2,0,0),(3022,780,7,2,0,'80.58.2.107',1133862127,1,0,1,1,1,1,'','','Rafael,\n\nTe agradezco si hacemos algunas comprobaciones. Tutor01.exe descargado de nuestras páginas, debería de haberte funcionado. De todas formas hagamos lo siguiente:\n\n1. Te envio un EXE por email con el que debes inspeccionar tu aplicación y ver la sección \"imports\" y decirme que módulos carga. Si lo prefieres me envias tu EXE en un ZIP y nosotros lo revisamos aqui.\n\n2. Por favor descarga desde <!-- m --><a class=\"postlink\" href=\"http://www.ghisler.com/ce.htm\">http://www.ghisler.com/ce.htm</a><!-- m --> la versión que funcione en tu Pocket PC. Una vez te funcione, copia el EXE (total commander) al emulador e intenta ejecutarlo. Asi nos aseguramos de la compatibilidad del Pocket PC.\n\nPara probar los EXEs en el Pocket PC no hay que hacer ninguna instalación en especial, ni usar el ActiveSync, etc. Es suficiente con copiar la aplicación en una tarjeta de memoria (SD normalmente), insertarla en el Pocket PC y darle doble click.','',0,'AIA=','3jyawt9y',1,0,'',2,0,0),(3023,794,6,21,0,'81.172.122.58',1133865007,1,0,1,1,1,1,'','','Hola Francisco,\n\nEn la definición del custom indica lo siguiente en \"Style\" 0x50810000, en lugar de tener 0x50000000 que es lo que da por defecto.','',0,'AIA=','3s75wpkf',1,0,'',21,0,0),(3024,778,3,297,0,'217.57.213.130',1133867886,1,0,1,1,1,0,'','','Is your intention to sort out this class?','',0,'AIA=','wb48q50c',1,0,'',297,0,0),(3025,798,3,284,0,'201.13.79.104',1133872671,1,0,1,0,1,0,'','RC dialogs and bitmaps disapearing','I have a problem with a RC file linked with xHarbour.\nThe problem only occurs in xHarbour, in Clipper it´s OK.\nIt works fine for sometime and, suddenly, when something is changed in the RC, I tget the error:\n \n\"Error FiveWin/3  Cannot create Dialog Box\"\n \nI am sure the dialog exists in the RC.\nThe RC has many dialogs and if I remove one, any one, the app runs fine \nagain.\nSometimes, if I change the dialog name it runs OK, sometimes not.\nAnd also some bitmaps disapear and if I change the bitmap name, sometimes it returns.\nI am using FW May 2005 build.\nI put here a very small program that has the problem.\nCan anyone confirm ( or not ) the problem ?\n\nMauricio Faria\nConcentra Informatica\n-------------------------------------\n\n// The PRG\n \n#INCLUDE \"FIVEWIN.CH\"\nFUNCTION MAIN()\n   DEFINE DIALOG oDLG RESOURCE \"PRE_IMP\"\n   ACTIVATE DIALOG oDLG\nRETURN NIL\n\n--------------------------------------\n\n// The RC\n\nPRE_IMP DIALOG 80, 38, 360, 286\nBEGIN\nEND\n\nCAD_CONFIG DIALOG 6, 15, 286, 219\nBEGIN\nEND\nCAD_CONTATOS DIALOG 6, 15, 203, 69\nBEGIN\nEND\nCAD_EXTRA DIALOG 119, 91, 293, 191\nBEGIN\nEND\nCAD_FONES DIALOG 82, 58, 242, 58\nBEGIN\nEND\nCAD_FONESVAL DIALOG 87, 46, 317, 106\nBEGIN\nEND\nCAD_MENSALIDADE DIALOG 90, 35, 312, 234\nBEGIN\nEND\nCAD_MODI DIALOG 6, 15, 410, 278\nBEGIN\nEND\nCAD_OBSERVACAO DIALOG 6, 15, 390, 203\nBEGIN\nEND\nCAD_ORCAMENTOS DIALOG 54, 40, 325, 227\nBEGIN\nEND\nCAD_OUTRO_FONE DIALOG 7, 18, 353, 134\nBEGIN\nEND\nCAD_SENHA DIALOG 41, 107, 350, 118\nBEGIN\nEND\nCAD_SOLICIT DIALOG 6, 15, 498, 366\nBEGIN\nEND\nCAD_TREINA DIALOG 6, 15, 334, 87\nBEGIN\nEND\nCAD_VERSOES DIALOG 6, 15, 336, 96\nBEGIN\nEND\nDLG_ENVELOPE DIALOG 104, 43, 334, 104\nBEGIN\nEND\nDLG_FILTRO DIALOG 156, 46, 161, 142\nBEGIN\nEND\nDLG_INDEX DIALOG 6, 15, 329, 120\nBEGIN\nEND\nDLGAGUARDE DIALOG 77, 45, 105, 30\nBEGIN\nEND\nDLGDATAEST DIALOG 27, 29, 269, 86\nBEGIN\nEND\nDLGDATACLIEST DIALOG 27, 29, 269, 152\nBEGIN\nEND\nDLGFILREC DIALOG 119, 211, 170, 100\nBEGIN\nEND\nDLGINDEXAULTATEND DIALOG 77, 54, 207, 66\nBEGIN\nEND\nDLGPENDENC DIALOG 119, 91, 248, 173\nBEGIN\nEND\nIMP_NOTA DIALOG 27, 29, 259, 117\nBEGIN\nEND\nIMP_SOLICIT DIALOG 27, 29, 289, 73\nBEGIN\nEND\nPRINT DIALOG 76, 39, 215, 81\nBEGIN\nEND\nPRINT_PROC DIALOG 7, 21, 194, 82\nBEGIN\nEND\nPREVIEW_PROC DIALOG 6, 17, 194, 82\nBEGIN\nEND\nCAD_ATEDESCR DIALOG 6, 15, 203, 69\nBEGIN\nEND\nCAD_ATENDIMENTOS DIALOG 21, 25, 534, 391\nBEGIN\nEND\nCAD_CLIENTES DIALOG 62, 23, 437, 299\nBEGIN\nEND\n\n------------------------------------------------\n\n// The xBp\n\nCINI = \nC_OUTPUTFOLDER = \nDEFFILE = \nINCLUDEFOLDERS = \nLAUTORUN = .T.\nLDEBUG = .F.\nLGUI = .T.\nLIBFOLDERS = \nLMT = .F.\nLPRG_CLASSICDEBUG = .F.\nLPRG_DEBUG = .F.\nLUSEDLL = .F.\nMAPFILE = \nMYC_FLAGS =  \nMYDEFINES = \nMYLINK_FLAGS = \nMYPRG_FLAGS = \nMYRC_FLAGS = \nMYSLY_FLAGS = \nOUTPUTFOLDER = \nPRG_OUTPUTFOLDER = \nRC_OUTPUTFOLDER = \nRUNARGUMENTS = \nSLY_OUTPUTFOLDER = \nTARGETFOLDER = \n\n[C:\\LIXO\\test.prg]\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n[C:\\LIXO\\test.rc]\nMYDEFINES = \nMYRC_FLAGS =','',0,'','371awko2',1,0,'',284,0,0),(3026,798,3,339,0,'201.8.41.116',1133874036,1,0,1,1,1,0,'','','fala xará\n\n    como esta o arquivo de compilaçao o BAT\n\n\nmauricio (RJ)','',0,'','imp749z2',1,0,'',339,0,0),(3027,793,6,147,0,'201.252.200.57',1133874072,1,0,1,0,1,1,'','','estimado:\nHe probado Testini, de \\samples y ni siquiera guarda los valores numéricos! De cualquier manera, yo lo uso así, sin problemas:\n\n[code:qqu2ulwv]if !File&#40; &quot;&#46;\\myini&#46;ini&quot; &#41;\n   WritePProString&#40; &quot;PARAMETROS&quot;, &quot;FactorFeling&quot;, nFactorCorr, &quot;&#46;\\myini&#46;ini&quot; &#41;\nelse\n   nFactorCorr&#58;= GetPvProfInt&#40; &quot;PARAMETROS&quot;, &quot;FactorFeling&quot;, /* default*/, &quot;&#46;\\myini&#46;ini&quot; &#41;\n   // o\n   nFactorCorr&#58;= Val&#40; GetPvProfString&#40; &quot;PARAMETROS&quot;, &quot;FactorFeling&quot;, /* default*/, &quot;&#46;\\myini&#46;ini&quot; &#41;\nend[/code:qqu2ulwv]\n\nsaludos','',0,'AIA=','qqu2ulwv',1,0,'',147,0,0),(3028,778,3,2,0,'80.58.2.107',1133874094,1,0,1,1,1,1,'','','Marco,\n\nThe problem is that if we modify this class then it may affect many users applications because if we give the focus to the folder, then the VALID of a control may be executed. Thats why it seems a better way if you modify it on your local copy.\n\nAnyhow we may do some tests and see what we get. Its source code is available at source\\classes\\folder.prg \n\nWe appreciate your feedback.','',0,'AIA=','zxgx49v4',1,0,'',2,0,0),(3029,793,6,2,0,'80.58.2.107',1133874355,1,0,1,1,1,1,'','','Los numéros, decimales incluidos, hay que pasarlos a cadenas y recuperarlos como cadenas y volver a convertirlos a números.','',0,'AIA=','25l8mti8',1,0,'',2,0,0),(3030,798,3,2,0,'80.58.2.107',1133874557,1,0,1,1,1,1,'','','Mauricio,\n\nAre you using Borland controls ?\n\nCould you provide a url to download your PRG and RC as a ZIP file ? Thanks.','',0,'AIA=','3kmekmve',1,0,'',2,0,0),(3031,790,3,15,0,'203.73.182.211',1133878300,1,0,1,1,1,0,'','','Hello George,\n\nI have a solution for it and not use Miscrosoft\'s product.\nI use some Fingerprint and make LIB myself.\nIf you have any question for it,please let me know you want.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'AIA=','fwlk9fcm',1,0,'',15,0,0),(3032,791,6,15,0,'203.73.182.211',1133878408,1,0,1,1,1,0,'','','Hello George,\n\nI have a solution for it and not use Miscrosoft\'s product.\nI use some Fingerprint and make LIB myself.\nIf you have any question for it,please let me know you want.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'AIA=','3qm6hixz',1,0,'',15,0,0),(3033,790,3,171,0,'24.147.25.226',1133878775,1,0,1,1,1,0,'','','Hi Richard\n\nI would like to integrate Fingerprint recognition in a software that I am \ndeveloping.\nIf possible, please send me any information about your experience, your \nlibrary, and the hardware that are you using to integrate this device in a xHarbour/Fivewin language. Basically I need to read the fingerprint and use this info like unique key to access a database to bring the customer information. If you like to send a me a private message my email is \n<!-- e --><a href=\"mailto:georgeabinader@msn.com\">georgeabinader@msn.com</a><!-- e -->\n\nRegards\n\n\nGeorgor','',0,'AIA=','23ys4p0m',1,0,'',171,0,0),(3034,654,7,95,0,'201.145.134.21',1133881461,1,0,1,1,1,0,'','','Estimado Antonio\n\nNo, no esta como puerto serie, el nombre del dispositivo e SCN1\n\nVi, en este foro,  un codigo de Jose Valle, es igual o similar a los que segun he investigado se tienen que ser llamadas a un dll llamado SCNAPI32.DLL\n\nSaludos.\nOsvaldo Ramirez','',0,'AIA=','vvhvt4rb',1,0,'',95,0,0),(3035,654,7,2,0,'80.58.2.107',1133881789,1,0,1,1,1,1,'','','Osvaldo,\n\nEn tal caso lo que hace falta es disponer de la documentación de SCNAPI32.DLL ó de algún ejemplo de su uso para adaptarlo a Harbour.','',0,'AIA=','2ij349zv',1,0,'',2,0,0),(3036,799,3,69,0,'206.210.97.138',1133884517,1,0,1,1,1,0,'','Please Help:  Open file from within FiveWin','Hi Everybody,\n\nI have a problem opening a file from within my program.\nThe file name is a bit unusual and is causing problems.\n\nFrom Windows I can click on the file and it launches its program without any problems but it will not work from within FineWin.\n\nAn example of the filename is: \"ABR, Demo 03-14-2005 16-30-48.sd\"\n\nI have tried:\nWaitRun(\"\\mypath\\ABR, Demo 03-14-2005 16-30-48.sd\")\nWinExec(\"\\mypath\\ABR, Demo 03-14-2005 16-30-48.sd\")\nShellExecute(\"\\mypath\\ABR, Demo 03-14-2005 16-30-48.sd\")\n\nand none are able to open the file.\n\nI can not modify the filename to change its structure.\n\nCan anyone suggust a way to do it?\n\nThanks,\nJeff','',0,'AIA=','2e2e1t9l',1,0,'',69,0,0),(3037,782,7,28,0,'62.14.206.107',1133884644,1,0,1,1,1,0,'','Windows Mobile','¿Que es Windows Mobile? para los telefonos moviles?\n\nacabo de abrir el emulador..., va a ser que si \n\nQue barbaridad\n\nla cantidad de cosas que se me ocurren \n\nBueno, bueno,','',0,'AIA=','1b93p70e',1,0,'',28,0,0),(3038,799,3,6,0,'82.61.28.192',1133884761,1,0,1,1,1,1,'','Re: Please Help:  Open file from within FiveWin','SHELLEXECUTE( 0, 0, \"\\mypath\\ABR, Demo 03-14-2005 16-30-48.sd\", 0, 0, 1 )\n\nEMG','',0,'AIA=','2ebrw3g6',1,0,'',6,0,0),(3039,800,6,329,0,'190.48.101.25',1133885260,1,0,1,1,1,0,'','Error CLSNEW, CLSADDDATA, etc','Amigos, ya postie esto enteriormente, pero nunca con este detalle.\nCompilando unos prg con el brmake, em estaba tirando error con algunas funciones, buscando dentro de mis prg, descubro que estas funciones tan definidas entre otras tantas, en esta porcion de codigo.\nLo que no logro interpretar es porque no reconoce los metodos o las clases.\nHe intentando meter esto en una lib y no andubo, he intentado compilar directamente mis prg sin lib y sigue largando los mismos errores.\nAgradeceria ayuda.\n\n#include \"Objects.ch\"\n#include \"Colores.ch\"\n\n#define  SetDft(x,y) (x:=if(x==NIL,y,x))\n\nCLASS DbSavSelect\n\n    DATA nSavArea\n    DATA nIndexOrd\n    DATA nRecno\n\n    METHOD New(cAlias, nOrderIndex)\n    METHOD Recuperar()\n    METHOD RecAll()\n\nENDCLASS\n\n\n\nMETHOD DbSavSelect::New(cAlias, nOrderIndex)\n\n    ::nSavArea     := Select()\n    ::nIndexOrd    := IndexOrd()\n    ::nRecno       := Recno()\n\n    Select( SetDft( cAlias, Alias() ) )\n    DbSetOrder( SetDft( nOrderIndex, IndexOrd() ) )\n\n    RETURN Self\n\n\nMETHOD DbSavSelect::Recuperar()\n\n    Select(::nSavArea)\n    DbSetOrder(::nIndexOrd)\n//  DbGoto(::nRecno)\n\n    RETURN nil\n\n\nMETHOD DbSavSelect::RecAll()\n\n    Select(::nSavArea)\n    DbSetOrder(::nIndexOrd)\n    DbGoto(::nRecno)\n\n    RETURN nil','',0,'AIA=','38nperyw',1,0,'',329,0,0),(3040,798,3,284,0,'201.13.79.65',1133885310,1,0,1,0,1,0,'','','[quote=&quot;Antonio Linares&quot;:uliar3bk]Mauricio,\nAre you using Borland controls ?\n[/quote:uliar3bk]No[quote=&quot;Antonio Linares&quot;:uliar3bk]Could you provide a url to download your PRG and RC as a ZIP file ? Thanks.[/quote:uliar3bk]http://www.farmacia.com.br/test.zip\nI forgot to say I am using xHarbour Builder from xHarbour.com.\nI put in the zip the .log .map .ppo and .res generated files.\n  \n[[]] Mauricio','',0,'gA==','uliar3bk',1,1133885856,'',284,1,0),(3041,752,6,329,0,'190.48.101.25',1133885384,1,0,1,1,1,0,'','','Antonio, aca te pongo donde estan declaradas las funciones, esto es un prg con el cual arme una lib, pero que tampoco me lo toma.\nSera problema de que son metodos y no reconoce los metodos?.\n\n#include \"Objects.ch\"\n#include \"Colores.ch\"\n\n#define  SetDft(x,y) (x:=if(x==NIL,y,x))\n\nCLASS DbSavSelect\n\n    DATA nSavArea\n    DATA nIndexOrd\n    DATA nRecno\n\n    METHOD New(cAlias, nOrderIndex)\n    METHOD Recuperar()\n    METHOD RecAll()\n\nENDCLASS\n\n\n\nMETHOD DbSavSelect::New(cAlias, nOrderIndex)\n\n    ::nSavArea     := Select()\n    ::nIndexOrd    := IndexOrd()\n    ::nRecno       := Recno()\n\n    Select( SetDft( cAlias, Alias() ) )\n    DbSetOrder( SetDft( nOrderIndex, IndexOrd() ) )\n\n    RETURN Self\n\n\nMETHOD DbSavSelect::Recuperar()\n\n    Select(::nSavArea)\n    DbSetOrder(::nIndexOrd)\n//  DbGoto(::nRecno)\n\n    RETURN nil\n\n\nMETHOD DbSavSelect::RecAll()\n\n    Select(::nSavArea)\n    DbSetOrder(::nIndexOrd)\n    DbGoto(::nRecno)\n\n    RETURN nil','',0,'gA==','36m7bzg6',1,0,'',329,0,0),(3042,798,3,284,0,'201.13.79.65',1133885425,1,0,1,0,1,0,'','','[quote=&quot;mauricioajordao&quot;:3pwo3gxn]fala xará\n    como esta o arquivo de compilaçao o BAT\nmauricio (RJ)[/quote:3pwo3gxn]\nDiga lá!\nEsqueci de dizer que estou usando xHarbour Builder da xHarbour.com.\nO xBp está no corpo da mensagem.\nNo zip que eu citei acima tem um .log que são os comandos executados.\n\n[[]] Mauricio','',0,'gA==','3pwo3gxn',1,0,'',284,0,0),(3043,799,3,69,0,'206.210.97.138',1133886100,1,0,1,1,1,0,'','','Enrico,\n\nOnce again you have saved the day <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)\n\nThanks for the fast reply.\n\nJeff','',0,'gA==','3gcpyaz1',1,0,'',69,0,0),(3044,782,7,2,0,'80.58.2.107',1133886395,1,0,1,1,1,1,'','','Paco,\n\nWindows Mobile es como Microsoft llama a la versión de Windows para los Pocket PCs y SmartPhones (teléfonos):\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/windowsmobile/default.mspx\">http://www.microsoft.com/windowsmobile/default.mspx</a><!-- m -->','',0,'gA==','1hy7momj',1,0,'',2,0,0),(3045,798,3,3,0,'81.249.62.58',1133886823,1,0,1,1,1,0,'','','[quote=&quot;concentra&quot;:25r9ud1g][quote=&quot;Antonio Linares&quot;:25r9ud1g]Mauricio,\nAre you using Borland controls ?\n[/quote:25r9ud1g]No[quote=&quot;Antonio Linares&quot;:25r9ud1g]Could you provide a url to download your PRG and RC as a ZIP file ? Thanks.[/quote:25r9ud1g]http://www.farmacia.com.br/test.zip\nI forgot to say I am using xHarbour Builder from xHarbour.com.\nI put in the zip the .log .map .ppo and .res generated files.\n  \n[[]] Mauricio[/quote:25r9ud1g]\n\nMauricio,\n\nDo you have 1 rc file  or more ?\n\nXharbour builder does not handle properly several rc files. I have been through this one before.\n\nYou have to specify only one rc file \n\nThis is a working sample\n\nCreate a rc file named  xxx.rc\n\nInside add all the other rc files like this\n\n\n#include \"CBATIMAN.rc\"\n#include \"CBATIMA.rc\"\n#include \"CBATIDEV.rc\"\n#include \"CBATI.rc\"\n#include \"CBATICOM.rc\"\n#include \"CBATISAV.rc\"\n#include \"CBATIVEH.rc\"\n#include \"CBATIPAY.rc\"\n\n\nRichard','',0,'gA==','25r9ud1g',1,0,'',3,0,0),(3046,801,1,58,0,'84.149.232.231',1133887503,1,0,1,1,1,0,'','Dialog Loosing Focus','Hi all, \n\n\ni can not catch the moment when a dialog looses focus.\nI tried oDlg:bLostFocus := { || MsgBeep() } \nBut i never heard the beep.\n\nIs there a known issue in FW2.4 that a bLostFocus block of a dialog will not be executed?\nMaybe it\'s not executed because the dialog lost his Focus   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  ?\n\nThanks for each reply.\nDetlef','',0,'gA==','111f8sow',1,1133891021,'',58,1,0),(3047,801,1,6,0,'82.61.28.192',1133888000,1,0,1,1,1,1,'','Re: Dialog Loosing Focus','This sample works fine in FWH 2.7:\n\n[code:2kdyan90]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;bLostFocus = &#123; || MsgBeep&#40;&#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2kdyan90]\n\nEMG','',0,'AIA=','2kdyan90',1,0,'',6,0,0),(3048,789,3,6,0,'82.61.28.192',1133888251,1,0,1,1,1,1,'','Re: TOO MANY EXE file name','A syntax error in the linker script.\n\nEMG','',0,'AIA=','27326ark',1,0,'',6,0,0),(3049,801,1,58,0,'84.149.244.229',1133890973,1,0,1,1,1,0,'','','Hi Enrico,\n\nYes, your sample works even fine for me with FW 2.4.\n\nBut from the moment i build the dialog from resource your sample doesn\'t work.\n\nCould you confirm this, please?\n\nThanks,\nDetlef','',0,'AIA=','18yexfnd',1,0,'',58,0,0),(3050,801,1,6,0,'82.61.28.192',1133891922,1,0,1,1,1,1,'','','No. This works fine either:\n\n[code:f9t54jul]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;TEST&quot;\n\n    oDlg&#58;bLostFocus = &#123; || MsgBeep&#40;&#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:f9t54jul]\n\n[code:f9t54jul]TEST DIALOG 40, 27, 194, 119\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;This is a &amp; test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;&amp;Close&quot;, 201, 12, 96, 50, 14\n&#125;[/code:f9t54jul]\n\nEMG','',0,'AIA=','f9t54jul',1,0,'',6,0,0),(3051,801,1,58,0,'84.149.244.229',1133893893,1,0,1,1,1,0,'','','Hi Enrico,\n\nthis is probably one difference from FW 2.4 to 2.7.\nYour sample doesn\'t work for my version.\n\nAnyhow, thanks Enrico.\n\nRegards\nDetlef','',0,'AIA=','1tzv7akd',1,0,'',58,0,0),(3052,789,3,339,0,'201.8.41.116',1133894647,1,0,1,1,1,0,'','','THANKS ENRICO\n\nMAURICIO','',0,'AIA=','31z6bvwp',1,0,'',339,0,0),(3053,794,6,36,0,'200.113.56.235',1133895315,1,0,1,1,1,0,'','','FRANCISCO\n\n       STYLE 0x50B10000\n\nSaludos\nPatricio','',0,'AIA=','3h1f5zn3',1,0,'',36,0,0),(3054,725,2,228,0,'200.119.54.205',1133895821,1,0,1,1,1,1,'','Gracias','Mario Muchas Gracias por tu ayuda, me funciono perfectamente.','',0,'AIA=','3unl4fgj',1,0,'',228,0,0),(3055,802,6,23,0,'85.60.0.204',1133898718,1,0,1,1,1,1,'','Desesperado con TsBrowse','Alguien tiene una versión de tsbrowse que funcione bien?\nAndo con la 7.1 con las colaboraciones de FGondi pero no acaba de ir bien, hace cosas raras, como por ejemplo si borras el último registro de un browse te bloquea las teclas arriba y abajo y solo puedes desplazarte por el browse con el ratón.\nSi añades un registro a un browse vacío, no muestra nada, en cambio si sales y vuelves a entrar lo pinta, etc,etc,etc...\n\nAndo desesperadoooooo.\nLeí en el blog de rené que tienen una versión más antigua que parece ser que es operativaaaaaa.\n\nEsto es más un ruego que otra cosa\nGracias.','',0,'AIA=','3hef005w',1,0,'',23,0,0),(3056,803,6,36,0,'200.113.56.235',1133902511,1,0,1,1,1,0,'','bcc640.lib','Estimados\n\n  Mi Proyecto ya alcanzo los 40 prg, y compila bien pero la clase tdbf me arroja error, pero si le saco el ultimo prg funciona bien ???, entonces preguntando por ahi en los foro me dijeron que habia que enlazar la libreria bcc640.lib mi pregunta es la ubicacion de la librería, la he puesto en primer lugar de las lib y me esta funcionando bien, la pregunta va por si no voy a tener problemas posteriores por la ubicacion\n\nc:\\borland\\bcc55\\lib\\c0w32.obj +\n... mas de 40 obj\ntDbfSave.obj Fpagocli.Obj SaldoCli.obj, +\nwcta.exe, +\nwcta.map, +\n[b:1u4lidwk]C:\\Harbour\\lib\\bcc640.lib + [/b:1u4lidwk]\nxHBole +\nc:\\Fwh\\lib\\FiveHc +\nHbTDbf +\nvBarH +\nvBoxH +\nTWBRW32 +\nSBrowseH  +\nTBtnGet32 +\nSButtonH.LIB +\nc:\\Fwh\\lib\\FiveH +\nC:\\harbour\\lib\\hbCT.lib +\nc:\\harbour\\lib\\rtl.lib +\nc:\\harbour\\lib\\vm.lib +\nc:\\harbour\\lib\\gtwin.lib +\nc:\\harbour\\lib\\lang.lib +\nc:\\harbour\\lib\\macro.lib +\nc:\\harbour\\lib\\dbfcdx.lib +\nc:\\harbour\\lib\\dbffpt.lib +\nc:\\harbour\\lib\\rdd.lib +\nc:\\harbour\\lib\\rddads +\nc:\\harbour\\lib\\ace32 +\nc:\\harbour\\lib\\common.lib +\nc:\\harbour\\lib\\pp.lib +\nc:\\borland\\bcc55\\lib\\cw32.lib +\nc:\\borland\\bcc55\\lib\\import32.lib,, +\ndbf\\system\\wcta.res\n\n   desde ya gracias\n\n\nSaludos\nPatricio','',0,'QA==','1u4lidwk',1,0,'',36,0,0),(3057,784,3,47,0,'203.144.143.2',1133904011,1,0,1,1,1,0,'','What does you mean &quot;Do you teste my explanation:?','Dear Mauricio,\n\nThe Phuket is a biggest island in Thailand.  There are a lot of small island nearby and very nice.  You can have many activities such as snorkling, scuba,  sunbathe and night live at Patong beach.  If you need more information pls let me know.\n\nRegards,\nDutch','',0,'QA==','1cnw6ju2',1,0,'',47,0,0),(3058,798,3,2,0,'80.58.2.107',1133904965,1,0,1,1,1,1,'','','Mauricio,\n\nThe dialogs are empty ? No controls on them ?','',0,'QA==','4koro3g3',1,0,'',2,0,0),(3059,792,3,41,0,'166.114.252.26',1133905591,1,0,1,1,1,0,'','','Hola,\n\nintenta recobrar los valores como string, supongo que funcionaria\n\nsaludos\nMarcelo','',0,'QA==','251wpbdu',1,0,'',41,0,0),(3060,804,6,147,0,'200.68.215.7',1133906417,1,0,1,0,1,1,'','Uso de funciones ...Comm','Estoy pasando una aplicación FW16 en la que uso funciones Comm. Lo que nunca pude implementar fue procesar el tono de ocupado o, cuando cuando el receptor contesta la llamada; en este caso  cerraba el envio boton mediante.\nAlguien me puede ayudar con esto?\n\nmuchas gracias','',0,'QA==','379tkl9s',1,0,'',147,0,0),(3061,805,6,41,0,'166.114.252.26',1133906475,1,0,1,1,1,0,'','bitmap con tprinter','Hola,\n\nhay alguna manera de poner un grafico (bitmap) con Tprinter que salga proporcionalmente igual en cuaquier impresora, ni mas grande ni mas chico segun los DPI de la impresora.\n\nsaludos\n\nMarcelo','',0,'QA==','3w002ats',1,0,'',41,0,0),(3062,784,3,339,0,'201.8.41.116',1133908903,1,0,1,1,1,0,'','','Thanks Dutch ..\n\nper informations about phuket ...\n\n      do you test SCAN lib with new informations ?\n \n\n My contact via msn <!-- e --><a href=\"mailto:mauricioajordao@msn.com.br\">mauricioajordao@msn.com.br</a><!-- e -->\n\n\nmauricio (BRAZIL)','',0,'QA==','2g49xt3e',1,0,'',339,0,0),(3063,806,1,204,0,'83.235.97.13',1133910368,1,0,1,1,1,0,'','Error message in ? lang','While testing (playing around) with FW I got [url=http&#58;//users&#46;hol&#46;gr/~kronos91/fw/error1&#46;jpg:14t1tgh7]this[/url:14t1tgh7] and [url=http&#58;//users&#46;hol&#46;gr/~kronos91/fw/error2&#46;jpg:14t1tgh7]this[/url:14t1tgh7] error dialogs. My question is what can I change to make the text be readable to my users (and me). I can understand the buttons they\'re in greek but the text, my guess, might be greek in a diffrent code page.\nI have made my owe error handeler to show a friendlier message and log the technical stuff to a file. But these dialogs well <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> [/img]','',0,'EA==','14t1tgh7',1,0,'',204,0,0),(3064,807,2,78,0,'201.240.74.28',1133915664,1,0,1,1,1,0,'','busqueda incremental en una arreglo bidiomensional','Hola Amigos...\nPreciso hacer una busqueda incremental en un arreglo bidimensional, utilizo la clase twbrowse.. un hilo please..\n\nSalu2\nWilli','',0,'EA==','z76f1347',1,0,'',78,0,0),(3065,801,1,303,0,'68.7.28.54',1133919467,1,0,1,1,1,0,'','','Detlef,\n\nAs long as the dialog is modal, you can just do whatever after the dialog is closed.\n\n[code:2q7p7vwh]  ACTIVATE DIALOG oDlg\n\n  msgBeep&#40;&#41;[/code:2q7p7vwh]\nThis would be called just a split second after oDlg:bLostFocus.\n\nOr use the dialog\'s VALID clause\n\n [code:2q7p7vwh]  ACTIVATE DIALOG oDlg VALID msgBeep&#40;&#41;[/code:2q7p7vwh]\n\nRegards,\nJamess','',0,'AIA=','2q7p7vwh',1,0,'',303,0,0),(3066,784,3,47,0,'203.144.143.7',1133932835,1,0,1,1,1,0,'','Cannot get EZTWAIN.DLL (Classic)','Dear Mauricio,\n\nExactly is I would like to have EZTWAIN.DLL (classic) to use with CL5.2e/FW2.5 but I can not get it because DOSADI do not provide EZTWAIN.DLL / EZTWAIN.LIB anymore but they provide file for re-build with MS VC.  I don\'t know how to do it.  \n\nI try DMTWAIN.DLL and it work ok for BMP only but the scanning time is very slow and it do not crop image area as HP utility done.  It made 3Mb for 1 picture but HP Utility does only 250kb (JPEG format) and very fast.  \n\nI am stuck now.  I try to ask in Clipper/FW forum for who ever use EZTWAIN.DLL (classic) but no one answer me.  I don\'t know how to fix this solution\n\nRegards,\nDutch','',0,'AIA=','1agpf9hi',1,0,'',47,0,0),(3067,790,3,15,0,'203.73.49.110',1133935107,1,0,1,1,1,0,'','','Hello George\n\nYes, I have sample(MySQL) to check database from Fingerprint.\nI use xHarbour 0.99.4+FWH26+BCC55\nI can\'t send sample file to you,because it need Fingerprint device.\nMaybe I can show some screen shot to you.\n\nRegards,\n\nRichard','',0,'AIA=','2fj1c363',1,0,'',15,0,0),(3068,808,1,47,0,'203.144.143.6',1133937112,1,0,1,1,1,0,'','How can I load image from scanner with JPEG format?','Dear Friend,\n\nI would like to load picture from scanner and I try DMTWAIN.DLL is work ok but file format is BMP (very big and slow while loading).  Which any 3rd party library for load from scanner or webcam for FW16bit.  I found EZTWAIN.DLL (Classic) from <!-- w --><a class=\"postlink\" href=\"http://www.dosadi.com\">www.dosadi.com</a><!-- w --> but it doesn\'t provide DLL and LIB.  They provide source for MS VC and I cannot make it.  \n\n- Where can I find EZTWAIN.DLL (Freeware)?\n- Have any 3rd party Library for scanner and webcam?\n\nThanks in advance,\nDutch','',0,'AIA=','2djmm9p7',1,0,'',47,0,0),(3069,801,1,58,0,'84.149.201.224',1133941211,1,0,1,1,1,0,'','','James,\n\nmy problem is not to do something after a dialog is closed but when it\'s loosing focus.\nI can not catch the moment when a user clicks outside the dialog.\n\nBut thanks for jumping in, James.\nRegards,\nDetlef','',0,'AIA=','dqw7cuqi',1,0,'',58,0,0),(3070,784,3,6,0,'87.6.213.23',1133941585,1,0,1,1,1,1,'','Re: Cannot get EZTWAIN.DLL (Classic)','Can\'t you just convert the BMP to a JPG using FreeImage.lib?\n\nEMG','',0,'AIA=','24xmn547',1,0,'',6,0,0),(3071,769,2,265,0,'80.58.18.235',1133942174,1,0,1,1,1,0,'','','Hola de nuevo compañeros\nEn vista de que debe ser dificil el tema que os he propuesto, vamos a intentarlo de otro modo.\nConoceis algun programa comercial com el que pueda hacer lo anteriormente expuesto ?, es decir, algún programa que automatice la tarea de descargar y guardar en una carpeta los adjuntos de correo sin la intervención del operador; que al arrancar el día, el operador lo ponga en marcha, y el programa vaya en segundo plano descargando éstos ficheros en una carpeta.\n\nYo creia que ésto lo hacía el outlook attachmen sniffer, pero lo he probado y salvo que no lo haya configurado bien, requiere la intervención del operador para descargar.\n\nTambién había pensado en algun tipo de script, o regla de mensajes para outlook o algun otro gestor de correo, y no sé si hay algo sobre éste tema.\n\nOs agradecería algún tipo de sugerencias.\n\nGracias','',0,'AIA=','2ixzfghs',1,0,'',265,0,0),(3072,784,3,47,0,'203.144.143.6',1133944110,1,0,1,1,1,0,'','It works now','Dear EMG,\n\nThanks a again, I try DMTWAIN.DLL and got successful now.  First I do not on the user interface screen and it save full page even small ID card but it save with smaller file when I set on user interface screen. \n\nThanks for your kindness help,\nDutch','',0,'AIA=','1g7d85qs',1,0,'',47,0,0),(3073,809,11,297,0,'217.57.213.130',1133947087,1,0,1,1,1,0,'','Mac /OS 10.4 Tiger','Is there a version of Fivewin libraries for Mac?','',0,'AIA=','8hvnz276',1,0,'',297,0,0),(3074,810,6,102,0,'80.224.235.17',1133947441,1,0,1,1,1,1,'','TOdbc-TDbOdbc','Hola Foro.\nEstoy tratando de trabajar ACCESS con ODBC y los ejemplos que hay en SAMPLES no me son suficientes.\nConsigo conectar con la base de datos, abro las tablas y las visualizo con TwBrowse, pero cuando quiero\nmodificar o añadir un registro me sale un error que envio a ver si alguien me dice que puede pasar\nEste es el codigo que utilizo:\n \n[b:mm59jr09]   CfgTdbodbc := TDbOdbc():new(\"CONFIGUR\",oOdbc)\n   //Asignamos el alias de la tabla\n   cAliasCfg := CfgTdbodbc:cFileName\n   //Creamos el query de la tabla\n   oDbConfig := oOdbc:Query( \"SELECT * FROM \" + cAliasCfg )\n   oDbConfig:Open()\n   oDbConfig:Complete()\n   oDbConfig:Gotop()\n   nCodigoCliente := oDbConfig:FieldGet( 13 ) + 1\n   nOldCliente := oDbConfig:FieldGet( 13 )\n      //Modificamos en la tabla ce configuracion el campo de codigo cliente con el nuevo valor\n   ModifyField := \"UPDATE CONFIGUR SET CODCLIENTE=nCodigoCliente WHERE CODCLIENTE=nOldCliente\"\n   oDbConfig:Execute(ModifyField,\"Ejecutando modificacion\",,@nRet)\n [/b:mm59jr09]\n \n \n Este es el error:\n FiveODBC Error Message:\n Ejecutando modificacion\n [# -3010] Clas: 07001\n [Microsoft][Controlador ODBC Microsoft Access] Pocos parametros. Se esperaba 2.\n \n On Procedure: _EVAL Line: 0\n \n \nSi alguien tutuviera algun ejemplo de un mantenimiento de una tabla con Altas, bajas modificaciones etc.  lo agradeceria mucho.\n \nMuchas gracias\nSaludos','',0,'QA==','mm59jr09',1,0,'',102,0,0),(3075,811,6,23,0,'80.58.44.235',1133949494,1,0,1,1,1,1,'','Iconos de más de 256 colores','Es capaz fwh de presentar iconos de más de 256 colores?\nLo digo porque tengo iconos con transparencia y no me los pinta correctamente. Los convierte a 256 colores.\n\nGracias.','',0,'QA==','1vuyg92p',1,0,'',23,0,0),(3076,812,11,239,0,'219.137.195.49',1133950839,1,0,1,1,1,0,'','Fivelinux support Tsbutton, vrd, xbrowse,btnget ?','Hi,\n  A big new factory may use Linux  Xwindows instead of MS windows, they  will have 300-400 pc stations to run ERP  and firefox, openoffice,  inbstead of  ms windows,msoffice,IE,outlook express, only windows and msffice will save 2600 RMB(330 USD) cost per pc  !\n  Before we suggest they to use our ERP on Linux, we\'d know if Fivelinux support Tsbutton, vrd, xbrowse,btnget ?\n  btnget : getbtn.c , fwbmp.c\n  tsbutton : bpaint.c \n  xbrowse: xbrowsec.obj   from ozs.com , no source c.\n  vrd:    cfunc.c , vrd.exe \n\n   and .rc , libmysql.dll  I know , this could  convert .\n   Now we use [x]harbour +fwh2.5+xbrowse+tmysql via  mysql4.1-5.0 \n     \n   Best regard!\nShuming Wang','',0,'','3256yzet',1,0,'',239,0,0),(3077,813,3,160,0,'210.212.142.6',1133952306,1,0,1,1,1,0,'','Color Scheme Development Utility','Hello All, \n\nSometime back one gentleman had kind donated a utility to this NG forum, in which various combinations of color can be viewed and stored in a dbf file at the same time. This small utility had wonderful application in experimenting with color combinations for foreground and background.\n\nI use this utilit along with color cop to select color of my application.\n\nUnfortunately I have lost it, can somebody guide me about the author ?\n\nTIA\nMilan.','',0,'','2k38578x',1,0,'',160,0,0),(3078,769,2,106,0,'85.34.123.172',1133953160,1,0,0,1,1,1,'','','Tengo en mente que Incredimail guardaba los adjuntos como archivos en una carpeta, hay una version free (o habia)','',0,'','3miybflk',1,0,'',106,0,0),(3079,780,7,63,0,'80.58.35.107',1133953570,1,0,1,1,1,0,'','','Antonio:\nResultado de las pruebas realizadas hasta ahora:\n\n1.- Descargo nuevamente tutor01.exe.  Sigue sin funcionar. Mismo error\n\n2.- Descargo Total Commander desde <!-- m --><a class=\"postlink\" href=\"http://www.ghisler.com/ce.htm\">http://www.ghisler.com/ce.htm</a><!-- m -->.  Carga y ejetuta perfectamente tanto en el Pocket como en el emulador\n\n3.- Pruebo WinDump, según tus instruciones.  En mi programa, \"Imports\" carga dos módulos: COREDLL.DLL y AYGSHELL.DLL    Por si te sirve de algo, Tutor01.exe carga sólo COREDLL.DLL pero, como te he dicho, tampoco funciona en mi Pocket (en el emulador, sí)\n\nPor correo aparte te envío más info.\nGracias y saludos,\nRafael','',0,'','1btcdb07',1,0,'',63,0,0),(3080,798,3,284,0,'201.26.162.70',1133955019,1,0,1,0,1,0,'','','[quote=&quot;Antonio Linares&quot;:e126y9xp]Mauricio,\n\nThe dialogs are empty ? No controls on them ?[/quote:e126y9xp]\nYes.\nI tried to reproduce the problem with the simplest example I could build, and that was with empty dialogs.   If I fill the dialogs with controls the result is the same.\n  \n[[]] Maurício Faria','',0,'gA==','e126y9xp',1,0,'',284,0,0),(3081,807,2,147,0,'201.252.200.57',1133957622,1,0,1,0,1,1,'','','Willi; con TArray lo podés hacer, o ver como lo hace. Te la envio?','',0,'gA==','3khmdxjs',1,0,'',147,0,0),(3082,780,7,2,0,'80.58.2.107',1133957863,1,0,1,1,1,1,'','','Rafael,\n\nPuedes por favor enviarme por email el total commander (solo el EXE) que te funciona en tu Pocket PC como ZIP, para revisarlo ? gracias.','',0,'gA==','2tzypx35',1,0,'',2,0,0),(3083,809,11,2,0,'80.58.2.107',1133958292,1,0,1,1,1,1,'','','Marco,\n\nNo, not yet. Our plan was to port FiveLinux to Mac, as FiveLinux uses GTK+ as the GUI and there is a GTK+ version for Mac OSX Tiger.\n\nThe problem is that the GTK+ does not look as the native Mac OSX \"Aqua\" applications, so it is not what users may expect.\n\nAnother problem related to Mac OSX is that it uses Objective C as the native development language. Objective C is C with objects, but it is not C++. I guess no one else use Objective C.\n\nOnce the new Mac Intel based machines are available (probably next January) lets see if the Mac market share grows so it becomes as an interesting choice.','',0,'gA==','1md18u8l',1,0,'',2,0,0),(3084,811,6,23,0,'80.58.44.235',1133958334,1,0,1,1,1,1,'','','Tras hablar con el maestro fgondi he llegado a la conclusión de dejar de lado los iconos y convertir a bmp y listo.','',0,'gA==','tovnno9t',1,0,'',23,0,0),(3085,496,6,336,0,'80.58.10.235',1133958995,1,0,0,1,1,0,'','','Me he bajado la version que tan amablemente posteaste, pero continúa el problema de refresco cuando no hay suficientes registros.\nAlguien ha resuleto el problema?\nSaludos.','',0,'gA==','2lnkbigc',1,0,'',336,0,0),(3086,802,6,336,0,'80.58.10.235',1133959078,1,0,0,1,1,0,'','','Pfff, estamos en la misma <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nSaludos','',0,'gA==','2anw2udx',1,0,'',336,0,0),(3087,812,11,2,0,'80.58.2.107',1133959143,1,0,1,1,1,1,'','','Shuming,\n\nFiveLinux does not support those controls yet, sorry. Just the standard ones plus the TWBrowse from FiveWin.','',0,'gA==','roi9m25i',1,0,'',2,0,0),(3088,798,3,2,0,'80.58.2.107',1133959236,1,0,1,1,1,1,'','','Mauricio,\n\nThe sample you have provided works ok with FWH and Borland.','',0,'gA==','2e5s1evg',1,0,'',2,0,0),(3089,805,6,2,0,'80.58.2.107',1133959428,1,0,1,1,1,1,'','','Marcelo,\n\nSupongo que al llamar a &lt;oPrn&gt;:SayBitmap() habrá que proporcionarle las dimensiones en base a la resolución de la impresora, para que siempre se vea proporcional.','',0,'gA==','2xyv06cu',1,0,'',2,0,0),(3091,801,1,2,0,'80.58.2.107',1133959567,1,0,1,1,1,1,'','','Detlef,\n\nIs it a non modal dialog ?','',0,'gA==','33sbcihw',1,0,'',2,0,0),(3092,798,3,284,0,'201.26.162.70',1133959589,1,0,1,0,1,0,'','','[quote=&quot;Antonio Linares&quot;:2bf51s9m]Mauricio,\n\nThe sample you have provided works ok with FWH and Borland.[/quote:2bf51s9m]\nOk, thanks for your attention.\nWith Clipper it works Ok also.\nSeems to be a xHarbour.com Builder problem.   Will post another message in the xHarbour.com news.\n  \n[[]] Maurício Faria','',0,'gA==','2bf51s9m',1,0,'',284,0,0),(3093,806,1,2,0,'80.58.2.107',1133959729,1,0,1,1,1,1,'','','Could you provide a small and self contained sample to reproduce the errors so we can tell you what they say and where they come from ? Thanks.','',0,'gA==','qop0gggs',1,0,'',2,0,0),(3094,810,6,308,0,'84.148.36.204',1133959884,1,0,1,1,1,0,'','Re: TOdbc-TDbOdbc','You must change your Update-String:\n\n   ModifyField := \"UPDATE CONFIGUR SET CODCLIENTE=\"+Alltrim(Str(nCodigoCliente))+\" WHERE CODCLIENTE=\"+Alltrim(Str(nOldCliente))\n\nBest Regards, Norbert','',0,'gA==','j3nbfas7',1,0,'',308,0,0),(3095,496,6,21,0,'80.58.49.235',1133960063,1,0,1,1,1,1,'','','Hola,\n\nEl refresco en la versión 7.1 cambia a las versiones anteriores\nAhora hay que realizar lo siguiente:\n[code:1aiau5si]\noBrw&#58;ResetBarPos&#40;&#41; \n  // Actualiza cuantos registros tienen que mostrar para scroll, ctrl-Inicio, etc\noBrw&#58;UpStable&#40;&#41;    \n  // Posiciona el puntero al principio y estabiliza el browse con los nuevos datos\noBrw&#58;Reset&#40;&#41;          \n  // Quita los posibles filtros aplicados y si no tienes inicializa los valores con los nuevos datos\noBrw&#58;Refresh&#40;&#41;       \n  // Repinta los datos correctamente, porque conoce ya los límites que tienen que alcanzar[/code:1aiau5si]','',0,'AIA=','1aiau5si',1,0,'',21,0,0),(3096,802,6,21,0,'80.58.49.235',1133960193,1,0,1,1,1,1,'','','Hola,\n\nEspero que os sirva lo que he posteado nuevo con el asunto \"tsbrowse 7.1\"','',0,'AIA=','2ggd64xx',1,0,'',21,0,0),(3097,801,1,58,0,'84.149.250.226',1133960632,1,0,1,1,1,0,'','','Antonio,\n\nno it\'s a modal dialog.\n\nJust like the 2nd example Enrico posted.\nIt doesn\'t work for me.\nbGotFocus is executed but bLostFocus not.\n\nThanks for jumping in Antonio.\n\nRegards,\nDetlef','',0,'AIA=','2dxdtgwr',1,0,'',58,0,0),(3099,803,6,147,0,'201.252.200.57',1133962731,1,0,1,0,1,1,'','','Esto es lo que me respondio Walter Negro:\n\nDependiendo de la versión de xHarbour que uses, ya no hace falta agregar\nesa librería.\n\nEsta librería sirve para evitar un límite que tiene la librería estandar de\nC de Borland al abrir archivos, el cual impone un límite de alrededor de 20\narchivos abiertos, con la librería el límite se lleva hasta 640 archivos.\n\nEsta limitación y su solución estan relacionados con las funciones\nestandares de apertura de archivos, funciones que existen en todos los\ncompiladores de C para cumplir con el estandar.\n\nYa hace tiempo que cuando se compila bajo Windows con Borland o Visual C, no se usan las funciones estandares, sino que se usan las funciones del API de Windows.\n\nAsi que en versiones recientes de xHarbour esta librería ya no es\nnecesaria, creo que en xHarbour 99.3 ya no es necesaria, pero no estoy muy seguro.\nDe todas formas, no agrega no quita nada tener esta librería en la\ncompilación si no se está seguro o si se tienen problemas al abrir una\ncierta cantidad de archivos.\n\nSaludos','',0,'AIA=','3keul568',1,0,'',147,0,0),(3100,780,7,63,0,'80.58.35.107',1133962784,1,0,1,1,1,0,'','','Antonio:\nYa lo tienes en el correo\nRafael','',0,'AIA=','fy58v02d',1,0,'',63,0,0),(3101,649,2,294,0,'190.48.13.173',1133963386,1,0,1,1,1,0,'','','Antonio, pudiste ver algo de esto???','',0,'AIA=','3lqmji2n',1,0,'',294,0,0),(3102,807,2,147,0,'201.252.200.57',1133963794,1,0,1,0,1,1,'','','sorry; no es en TArray donde lo vas a encontrar. wBrowse de Checcarelli tiene búsqueda incremental aunque no estoy seguro si está implementado también para arrays','',0,'AIA=','gc4dap0i',1,0,'',147,0,0),(3103,816,3,31,0,'195.182.84.105',1133965480,1,0,1,1,1,1,'','Rebuild of Fivehmx','Hello ! How I can rebuild Fivehmx library . Sorry , but I don\'t know about settings fro MS VC ++ ver.6 compiler . Here it is a good .bat of building fivehx.lib with Borlans from Enrico . Maybe you know , how to make something similar to MS VC ?\n   [code:22cod9my]\n@ ECHO OFF\n\nCOPY c&#58;\\fwh\\source\\function\\*&#46;prg\nCOPY c&#58;\\fwh\\source\\winapi\\*&#46;prg\nCOPY c&#58;\\fwh\\source\\classes\\*&#46;prg\n\nDEL expbuild&#46;prg\nDEL db10&#46;prg\nDEL odbc32&#46;prg\nDEL dbm&#46;prg\nDEL vbxctrl&#46;prg\nDEL _index&#46;prg\nDEL dbms&#46;prg\nDEL ddeserv&#46;prg\nDEL field&#46;prg\nDEL tnewsins&#46;prg\nDEL c3&#46;prg\n\nSET HARBOURCMD=/a /es1 /gc0 /l /m /n /q /w\nSET INCLUDE=c&#58;\\fwh\\include;c&#58;\\xhrb\\include\nFOR %%i IN &#40;*&#46;prg&#41; DO c&#58;\\xhrb\\bin\\harbour %%i\nSET HARBOURCMD=\nSET INCLUDE=\nIF EXIST *&#46;prg DEL *&#46;prg\n\nFOR %%i IN &#40;*&#46;c&#41; DO c&#58;\\bcc55\\bin\\bcc32 +xhrb&#46;cfg -c %%i\nIF EXIST *&#46;c DEL *&#46;c\n\nFOR %%i IN &#40;*&#46;obj&#41; DO c&#58;\\bcc55\\bin\\tlib Fivehx /P32 +%%i\nc&#58;\\bcc55\\bin\\tlib Fivehx /P32 +c&#58;\\fwh\\lib\\activex&#46;obj\nIF EXIST *&#46;obj DEL *&#46;obj\nIF EXIST *&#46;bak DEL *&#46;bak\n\nrem IF EXIST fivehx&#46;lib COPY fivehx&#46;lib c&#58;\\fwh\\lib\nrem IF EXIST fivehx&#46;lib DEL fivehx&#46;lib\n\n   [/code:22cod9my]\n\n   With best regards ! Rimantas .','',0,'AIA=','22cod9my',1,0,'',31,0,0),(3104,817,6,53,0,'148.221.81.3',1133967112,1,0,1,1,1,1,'','Una sobre REPORT','Saludos amigos:\n\nEn 16bits cuando el título de una columna era demsiado estenso el texto invadia la o las columnas anteriores o posteriores dependiendo si le daba alineamiento LEFT o RIGHT respectivamente, eso me permitia tener títulos multicolumnas o super headers, por ejemplo:\n\n------ E  N    E  S  T  E   M  E  S ------\nPrespuesto       Gasto        Diferencia\n\nPero ahora en 32bits el super header se trunca al tamaño de la columna donde lo ponga, vean la diferencia:\n\n                                       E  S ------\nPrespuesto       Gasto        Diferencia\n\nAlguien conoce una forma de poner un super header ?\n\nUn abrazo, Armando','',0,'AIA=','3ul0n5gz',1,0,'',53,0,0),(3105,805,6,41,0,'166.114.252.26',1133967230,1,0,1,1,1,0,'','','Gracias Antonio,\n\npor alli esta la cosa, lo que pasaba era que estuve probando con vallores peque~nos para nWidth y nHeith, y la imagen no se transformaba o por ultimo desaparecia, pero haciendo uso de oPrn:nVertRes() oPrnHorzRes() y valores proporcionales a ellos todo esta ok\n\nGracias\n\nMarcelo','',0,'AIA=','22trj77q',1,0,'',41,0,0),(3106,790,3,171,0,'24.147.25.226',1133968399,1,0,1,1,1,0,'','','Hi Richard\n\nI am using xHarbour Builder Feb 05 + FWH2.5 with DBF database, but  will be interesting to move into MySQL.\nI just bought Microsoft Fingerprint reader, it is a inexpensive (US$50.00) device. Maybe your MySQL sample and your screenshot can help me to integrate this device into my application. Do you have (or know) any LIB or DLL that can be used with xHarbour + FWH to support your Fingerprint Reader?\nWhat Fingerprint Reader brand and model are you using?\nHow many records access your application?\nArea you sastified with the access time to your database?\nDo you think that this device can be used in peer to peer network accesing 20,000 records?\n\nRichard thanks for your feedback \n\nRegards\n\n\nGeorge','',0,'AIA=','2ejjxqy0',1,0,'',171,0,0),(3107,807,2,78,0,'201.230.173.19',1133970349,1,0,1,1,1,0,'','','Hola Mario.\nEl TWBrowse tiene solo la busqueda incremental, para dbfs,, no para arrays, al menos lo busque y no encontre el tema...\n\nSalu2.\nWIlli','',0,'AIA=','xvfn29d6',1,0,'',78,0,0),(3108,806,1,204,0,'87.202.95.44',1133971084,1,0,1,1,1,0,'','','The sample that I was playing with is the fivegen program from /samples/fivegen dir. I only replased the dbfcdx driver with the six3 driver that I have. You can find the exe [url=http&#58;//users&#46;hol&#46;gr/~kronos91/fw/fivegen&#46;zip:1m4y9dn5]hete[/url:1m4y9dn5]. So far in my other apps the only strange looking error dialogs where when a dll was missing or when tha system is haveing a bad day. Can these kind of errors be translated into a readible state?\nThanks','',0,'EA==','1m4y9dn5',1,0,'',204,0,0),(3109,818,2,228,0,'201.245.211.147',1133972683,1,0,1,1,1,1,'','buscar equipos en la red.','Compañeros del foro necesito un favorcito, lo que pasa es que requiero saber el nombre de la red. y el nombre de cada uno de los equipos del grupo de trabajo.\n\nComo puedo hacer esto?','',0,'EA==','2s1gow76',1,0,'',228,0,0),(3110,810,6,102,0,'80.224.235.17',1133973305,1,0,1,1,1,1,'','Re: TOdbc-TDbOdbc','Gracias Nornbert probare a ver que pasa\n\nThank you','',0,'EA==','l86710n0',1,0,'',102,0,0),(3111,805,6,215,0,'201.154.100.224',1133974994,1,0,1,1,1,0,'','','Marcelo,\nAlgún pequeño ejemplo de como lo estas usando por favor.\n\nGracias\nFernando','',0,'EA==','2vfdpngg',1,0,'',215,0,0),(3112,805,6,138,0,'201.128.111.75',1133975986,1,0,1,1,1,1,'','','[quote=&quot;Marcelo Via Giglio&quot;:2ftc6f59]por alli esta la cosa, lo que pasaba era que estuve probando con vallores peque~nos para nWidth y nHeith, y la imagen no se transformaba o por ultimo desaparecia, pero haciendo uso de oPrn:nVertRes() oPrnHorzRes() y valores proporcionales a ellos todo esta ok[/quote:2ftc6f59]\n\nEstas matando pulgas a cañonazos.... el objeto printer trae un metodo que coniverte Centimetros a puntros de la impresora con la que estes imprimiendo, asi que vamos a suponer que quieres un bitmap de 5x5 cms colocado a los 10 cm, 10 cm del borde superior izqauierdo:\n\nHacemos esto:\n\n[code:2ftc6f59]aPos &#58;= oPrinter&#58;Cmtr2Pix&#40;10,10&#41;\naTam &#58;= oPrinter&#58;Cmtr2Pix&#40;5,5&#41;\n\noPrinter&#58;SayBitmap&#40;aPos&#91;1&#93;,aPos&#91;2&#93;,nombrebitmap, aTam&#91;1&#93;,aTam&#91;2&#93;&#41;[/code:2ftc6f59]\ny listo, de esta forma siempre tendras el bitmap en la misma posicon.','',0,'gIA=','2ftc6f59',1,0,'',138,0,0),(3113,344,18,76,0,'212.216.131.60',1133976388,1,0,1,1,1,1,'','a clear patch!','Sorry Antonio, I continue not to understand.\nIn your Nov,7 message you said to update winapi\\mgetcrea.c and classes\\tget.prg.\nNow you add another correction to mgetcrea.c and another to tget.prg.\nHow is the definitive patch?\ncould you please send me the 2 files by email?\n\nregards','',0,'gIA=','2s12wag5',1,0,'',76,0,0),(3114,92,12,62,0,'80.58.22.107',1133977691,1,0,1,1,1,0,'','','Tengo que resolver algunas cosillas antes de subir la última versión a sid, pero vamos, lo que te quería comentar... la versión que hay en sarge en principio ya no se modifica, y menos teniendo en cuenta que harbour está dentro de los paquetes optional.\n\nLo que podría hacer es un backport de la versión de sid a sarge. También existe la posibilidad de instalar paquetes de sid bajo demanda en sarge, aunque yo soy más partidario de los backports.\n\nHablaré con los de backports.org para añadir ahí el nuevo paquete de sarge. En caso de que no se pudiese, Antonio, se podría alojar un minirepositorio en los servidores de Fivetech?','',0,'gIA=','2j0r64hh',1,0,'',62,0,0),(3115,819,3,344,0,'80.18.221.53',1133978208,1,0,1,1,1,0,'','Compile Fivehcm.lib','How is possible to compile the FiveHcm.lib?\n\nThank you\nRiccardo','',0,'gIA=','1tqbum8z',1,0,'',344,0,0),(3116,805,6,41,0,'166.114.252.26',1133978696,1,0,1,1,1,0,'','','[quote=&quot;fleal&quot;:6tts3bnq]Marcelo,\nAlgún pequeño ejemplo de como lo estas usando por favor.\n\nGracias\nFernando[/quote:6tts3bnq]\n\nLo hago exactamente como lo dice RF, tomandos las medidas en centimetros','',0,'gA==','6tts3bnq',1,0,'',41,0,0),(3117,780,7,2,0,'80.58.2.107',1133980938,1,0,1,1,1,1,'','','Rafael,\n\nComo te he comentado por email, prueba a hacer el siguiente cambio en samples\\buildce.bat:\n\n%vcdir%\\bin\\link @msvc.tmp /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM\n\npor:\n\n%vcdir%\\bin\\link @msvc.tmp /nologo /SUBSYSTEM:WINDOWSCE,3.0 /MACHINE:ARM \n\nEspero tus noticias, gracias.','',0,'gA==','kqrclq06',1,0,'',2,0,0),(3118,92,12,2,0,'80.58.2.107',1133981178,1,0,1,1,1,1,'','','Luis,\n\n&gt;\nHablaré con los de backports.org para añadir ahí el nuevo paquete de sarge. En caso de que no se pudiese, Antonio, se podría alojar un minirepositorio en los servidores de Fivetech?\n&gt;\n\nNuestro servidor está alojado en una empresa dedicada de hosting. Podríamos alojar un fichero/s que se pudiesen descargar via nuestras páginas: <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/..\">www.fivetechsoft.com/files/..</a><!-- w -->.','',0,'gA==','3fpotrf9',1,0,'',2,0,0),(3119,344,18,2,0,'80.58.2.107',1133981295,1,0,1,1,1,1,'','','Riccardo,\n\nI email you the files.','',0,'gA==','2pgsyywn',1,0,'',2,0,0),(3120,816,3,2,0,'80.58.2.107',1133981651,1,0,1,1,1,1,'','','Rimantas,\n\nYou may use MSVC this way:\n\n  c:\\vc\\bin\\cl -c -TP -Ic:\\harbour\\include -Ic:\\vc\\include %%i\n  ...\n  c:\\vc\\bin\\Lib Fivehmx.lib /OUT:lib\\Fivehmx.lib %%i','',0,'gA==','2xdf5lit',1,0,'',2,0,0),(3121,819,3,2,0,'80.58.2.107',1133981823,1,0,1,1,1,1,'','','Riccardo,\n\nYou may add or replace modules in FiveHcm.lib this way:\n\nc:\\vc\\bin\\Lib Fivehcm.lib /OUT:lib\\Fivehcm.lib &lt;module.obj&gt;\n\nAnyhow, you can not entirely rebuild it as we don\'t provide the source code for all its modules.','',0,'gA==','3ooc1i0z',1,0,'',2,0,0),(3122,803,6,36,0,'200.113.56.235',1133981949,1,0,1,1,1,0,'','','Gracias mario por responder\n\nLa version de xharbour que utilizo es \n\nxHarbour Compiler build 0.99.3 (SimpLex) (PuertoSUR)\n\ny si le saco la libreria me da este error..\n\nDatos del error causado por la Aplicación\n\nSistema \"WIN-FACTURACION\"\n________________________________________________________________________________\n\n   Ruta y nombre          : D:\\Apl\\PRGS\\Agrotec\\dbf\\wcta.exe\n   Path de datos          : \n   Tipo de aplicación     : 32 bits\n   Versión del Compilador : xHarbour build 0.99.3 Intl. (SimpLex)\n   FWHX October 2003 (c) FiveTech, 1993-2003\n\n   Tamaño del ejecutable  : 3,496,960 bytes\n   Fecha y Hora del error : 07/12/2005,  13:06:16\n\nDescripción del error producido\n________________________________________________________________________________\n\n   Error BASE/1005  Message not found: TINDEX:_ODBF\n   Argumentos   :\n\nLlamadas al Stack\n________________________________________________________________________________\n\n   Called from __ERRRT_SBASE(0)\n   Called from TINDEX:ERROR(176)\n   Called from (b)HBOBJECT(105)\n   Called from TINDEX:MSGNOTFOUND(0)\n   Called from TINDEX:_ODBF(169)\n   Called from GETIDXNONE(84)\n   Called from TPARAME:NEW(341)\n   Called from OPARAME(793)\n   Called from PARAMETROS(337)\n   Called from (b)BUILDMENU(297)\n   Called from TMENU:COMMAND(404)\n   Called from TWINDOW:COMMAND(925)\n   Called from TMDIFRAME:COMMAND(224)\n   Called from TMDIFRAME:HANDLEEVENT(0)\n   Called from _FWH(3036)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(874)\n   Called from MAIN(116)\n\nSaludos \nPatricio','',0,'gA==','1x14e54g',1,0,'',36,0,0),(3123,806,1,2,0,'80.58.2.107',1133982272,1,0,1,1,1,1,'','','Ok, we have tested it here and they are GPFs msgs from Windows. Here they are shown in spanish:\n\n[url=http&#58;//imageshack&#46;us:2zt88v8n][img:2zt88v8n]http&#58;//img178&#46;imageshack&#46;us/img178/3321/gpf12dg&#46;jpg[/img:2zt88v8n][/url:2zt88v8n]\n\n[url=http&#58;//imageshack&#46;us:2zt88v8n][img:2zt88v8n]http&#58;//img178&#46;imageshack&#46;us/img178/4420/gpf22rb&#46;jpg[/img:2zt88v8n][/url:2zt88v8n]\n\nIf you build the MAP file of the EXE (using MAP A,S at the Blinker LNK file), then you may search such address into it to know where the app is GPFing.','',0,'GA==','2zt88v8n',1,0,'',2,0,0),(3124,803,6,2,0,'80.58.2.107',1133982539,1,0,1,1,1,1,'','','Patricio,\n\nDeberías usar una versión más reciente de xharbour. Puedes descargarla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\n\nMantén por seguridad una copia de tu versión actual.','',0,'GA==','292u3z2s',1,0,'',2,0,0),(3125,816,3,31,0,'84.15.27.93',1133985151,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:26u3zyqd]Rimantas,\n\nYou may use MSVC this way:\n\n  c:\\vc\\bin\\cl -c -TP -Ic:\\harbour\\include -Ic:\\vc\\include %%i\n  ...\n  c:\\vc\\bin\\Lib Fivehmx.lib /OUT:lib\\Fivehmx.lib %%i[/quote:26u3zyqd]\n\n   Thank you , Antonio ! I\'ll try it tomorow . \n\n   With best regards ! Rimantas .','',0,'gA==','26u3zyqd',1,0,'',31,0,0),(3126,769,2,9,0,'85.59.173.252',1133985410,1,0,1,1,1,0,'','','JBmail (gratuito) funciona perfectamente. LO he utilizado muchos años con Clipper.\n\nUn saludo','',0,'gA==','2su9euor',1,0,'',9,0,0),(3127,813,3,69,0,'65.92.79.84',1133985529,1,0,1,1,1,0,'','','Milan,\n\nCheck your e-mail ... I have sent you the program.\n\nJeff','',0,'gA==','2sxuh0sg',1,0,'',69,0,0),(3128,820,6,295,0,'201.222.154.24',1133987435,1,0,1,1,1,1,'','problemas por primera vez usando FWH una manito por favor','Estimados amigos de FiveTechSoft:\nRecien adquirí FWH, he seguido paso a paso los procedimientos especificados en el manual, ya instale Harbour y BCC55, coloque los correspondientes paths de las carpetas \"harbour\" y \"borland\"\nen el fichero \"buildh.bat\", pero al ejecutar \"buildh.bat tutor01\" aparece lo siguiente:\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Harbour 2.7 - November 2005         Harbour development power  ³Ü\n³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\' and generating preprocessed output to \'tutor01.ppo\'...\n\nLines 25, Functions/Procedures 2\nGenerating C source output to \'tutor01.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntutor01.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'C0W32.OBJ\'\n* Application successfully built\n\nQUE DEBO CAMBIAR EN MIS FICHEROS RMK Y LNK ANTIGUOS PARA TRABAJAR CON HARBOUR?\nDE ANTEMANO MUCHAS GRACIAS Y SALUDOS','',0,'gA==','13e3vr47',1,0,'',295,0,0),(3129,821,4,224,0,'162.83.94.176',1133989952,1,0,1,1,1,1,'','Tab Pages','Is it possible with FWPPC to create tabbed pages such as those in the system settings dialog?\n\nTIA,','',0,'gA==','3exxkv6q',1,0,'',224,0,0),(3130,821,4,2,0,'80.58.2.107',1133993088,1,0,1,1,1,1,'','','Bill,\n\nNot yet. Though we plan to implement them as soon as possible.\n\nIn the meantime you can simulate them using some pushbuttons at the bottom of the screen and opening different dialogboxes or windows for each clicked button.','',0,'gA==','1dh8ilva',1,0,'',2,0,0),(3131,821,4,224,0,'162.83.94.176',1133993980,1,0,1,1,1,1,'','','Antonio, thanks for the fast reply and info!','',0,'gA==','11oswrn1',1,0,'',224,0,0),(3132,822,7,95,0,'201.145.134.21',1133998042,1,0,1,1,1,0,'','Mensajes','Estimados :\n\nIniciando de llenos con Windows CE 4.2 NET\n\nUna de las primeras preguntas ...\n\nEs normal al momento de compilar este mensaje :\n\ntutor01.c\n   Creating library tutor01.lib and object tutor01.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=\n0x00003ADC\nrdd.lib(dbcmd.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, r\nva=0x00043B4C\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rv\na=0x00051D14\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x000010\n00, rva=0x0005BE6C\n* Application successfully built\n\nLa aplicacion si se genera o se construye. \nTodavia no he podido ejecutarla en la Symbol MC3000\n\nEs normal ?\n\nSaludos\nOsvaldo Ramirez\n\nDatos adiconales\n\nWindows XP SP1, fresquesito, nada de nada, solo FWPCC,VCE y Harbour.\nhaha y el emulador.','',0,'gA==','3f9cbtgi',1,0,'',95,0,0),(3133,823,6,138,0,'201.128.111.75',1133998937,1,0,1,1,1,1,'','ADS y FWPPC en Radio Creswin','Hola a todos:\n\nVikthor se encuentra de vacaciones y Nacho Vizcaino me ha pedido hacerme cargo del programa de radio de Vik hoy  Miercoles 7 de Diciembre y mañana Jueves 8.\n\nHoy hablaremos de ADS y el dia de mañana de FiveWin Pocket PC, y estaré abierto para recibir sus dudas e inquietudes via messenger en :\n\n<!-- e --><a href=\"mailto:RadioCreswin@hotmail.com\">RadioCreswin@hotmail.com</a><!-- e -->\n\n\nAsi que \"Listo el Pollo\" tendra una \"doble dosis\" de RF hoy y mañana de 8:00 pm a 9:30 HOra de la Ciudad de Mexico (GMT -6).\n\nRadio CresWin se transmite por internet y pueden conectarse con WinAmp, iTunes, Windows Media en :\n\n<!-- m --><a class=\"postlink\" href=\"http://radio.creswin.com:8000/listen.pls\">http://radio.creswin.com:8000/listen.pls</a><!-- m -->','',0,'gA==','2zvrd4ta',1,0,'',138,0,0),(3134,824,2,138,0,'201.128.111.75',1133999271,1,0,1,1,1,1,'','ADS y FWPPC en radio Creswin hoy y mañana','Hola a todos: \n\nVikthor se encuentra de vacaciones y Nacho Vizcaino me ha pedido hacerme cargo del programa de radio de Vik hoy Miercoles 7 de Diciembre y mañana Jueves 8. \n\nHoy hablaremos de ADS y el dia de mañana de FiveWin Pocket PC, y estaré abierto para recibir sus dudas e inquietudes via messenger en :\n\n<!-- e --><a href=\"mailto:RadioCreswin@hotmail.com\">RadioCreswin@hotmail.com</a><!-- e -->\n\nAsi que \"Listo el Pollo\" tendra una \"doble dosis\" de RF hoy y mañana de 8:00 pm a 9:30 HOra de la Ciudad de Mexico (GMT -6). \n\nRadio CresWin se transmite por internet y pueden conectarse con WinAmp, iTunes, Windows Media en : \n\n<!-- m --><a class=\"postlink\" href=\"http://radio.creswin.com:8000/listen.pls\">http://radio.creswin.com:8000/listen.pls</a><!-- m -->','',0,'gA==','2vadd3st',1,0,'',138,0,0),(3135,822,7,2,0,'80.58.2.107',1133999566,1,0,1,1,1,1,'','','Osvaldo,\n\nEsos warnings son normales y no hay problema con ellos.\n\nEn cuanto a que no se inicie la aplicación, te he enviado un email con una serie de pruebas a realizar. Vamos a averiguar cual es la causa.','',0,'gA==','3pochu7i',1,0,'',2,0,0),(3136,822,7,2,0,'80.58.2.107',1134002759,1,0,1,1,1,1,'','','Osvaldo,\n\nComo te he comentado por email, tu versión de Windows CE no tiene ni usa la DLL: AygShell.dll. \n\nLa solución temporal es definir estas cuatro funciones en tu PRG para que no se enlace esa DLL:\n\nfunction CeSetmenu() ; return nil\nfunction GetMenu() ; return nil\nfunction ReadBitmap() ; return nil\nfunction PalBmpRead() ; return nil\n\nVamos a modificar FWPPC para implementar esas funciones en Windows CE de otra forma.\n\nTambien vamos a pasar esta conversación a la sección en español <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3k6zaomf',1,0,'',2,0,0),(3137,790,3,15,0,'211.74.15.7',1134008871,1,0,1,1,1,0,'','','Hello George,\n\n[quote:2isymsm0]Do you have (or know) any LIB or DLL that can be used with xHarbour + FWH to support your Fingerprint Reader? [/quote:2isymsm0]\n\nYes, I make LIB to support my Fingerprint Reader.\n\n[quote:2isymsm0]What Fingerprint Reader brand and model are you using?[/quote:2isymsm0]\n\nI use it from Korea product.\n\n[quote:2isymsm0]How many records access your application? [/quote:2isymsm0]\n\nYou know use Fingerprint Reader for Security or other program, so I have 50 records to used.\n\n\n[quote:2isymsm0]Area you sastified with the access time to your database? [/quote:2isymsm0]\n\nYes,very nice.\n\n[quote:2isymsm0]Do you think that this device can be used in peer to peer network accesing 20,000 records? [/quote:2isymsm0]\n\nNo problem.\n\nRegards,\n\nRichard','',0,'gA==','2isymsm0',1,0,'',15,0,0),(3138,793,6,219,0,'201.154.214.171',1134009095,1,0,1,1,1,0,'','archivos ini','Saludos y muchas gracias por sus atenciones.\n\nJosé Luis','',0,'gA==','2ibo8ybt',1,0,'',219,0,0),(3139,825,3,80,0,'202.72.146.11',1134011370,1,0,1,1,1,0,'','Multiple Screens','Hi Antonio\n\nDid you check the problem with dual screens - when you \nopen your application and drag to other screen and then open\na MDI window - the window does not show and you have to shut \ndown the application.\n\nRegards\n\nColin','',0,'gA==','272omm9o',1,0,'',80,0,0),(3140,820,6,295,0,'201.222.154.24',1134013916,1,0,1,1,1,1,'','','ya lo solucioné .. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \ncopié:\n \"c0w32.obj\" y \"uuid.lib\" desde la cerpeta bcc55\\lib\nAhora voy con mis aplicaciones  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nsaludos','',0,'gA==','2wy3xp3n',1,0,'',295,0,0),(3141,822,7,95,0,'201.145.134.21',1134016554,1,0,1,1,1,0,'','','Estimados  colegas\n\nEste codigo funciona :\n\n   USE (\"\\\\home\\c\\ventas\\test.dbf\" )\n\nPero este no\n\n  USE ( \"\\\\home\\c\\ventas\\05051207.dbf\" )\n\nEste archivo es creado desde Xbase++ usando DBFNTX.\n\nAlguien ha visto algo similar. ?\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','1pt5wggz',1,0,'',95,0,0),(3142,822,7,95,0,'201.145.134.21',1134018594,1,0,1,1,1,0,'','','Estimados colegas\n\nListo ...\n\nMe faltaba el \"ALIAS\"\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','2tolnbyy',1,0,'',95,0,0),(3143,780,7,63,0,'80.58.35.107',1134034044,1,0,1,1,1,0,'','','Antonio:\n\nSí!  Este cambio ha conseguiro que el programa arranque.  Tengo otro problema que te detallo por correo aparte, pero por lo menos, el programa ya funciona!.  Muchísimas gracias\n\nRafael','',0,'gA==','g6mbxpv5',1,0,'',63,0,0),(3144,780,7,2,0,'80.58.2.107',1134034298,1,0,1,1,1,1,'','','Rafael,\n\nBueno, vamos avanzando <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPor favor prueba tutor02.prg y dime si arranca la aplicación y si al hacer click sobre ella muestra un MsgInfo().\n\n¿ En tu pocket PC, el botón del menú de inicio de Windows, está abajo a la izquierda ó arriba a la izquierda ? \n\nEn caso de estar abajo a la izquierda, por favor descarga este emulador e instálalo: <!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=a120e012-ca31-4be9-a3bf-b9bf4f64ce72&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m --> \n\nNecesita XP Pro ó Windows 2000 service pack 4.','',0,'gA==','79vs9xmz',1,0,'',2,0,0),(3145,769,2,9,0,'85.59.173.252',1134041332,1,0,1,1,1,0,'','','Jose Luis, en mi experiencia personal, para intercambiar ficheros (enviar y recibir información) automaticamente por internet, prefiero el sistema ftp que el email+adjunto. De todas formas si quieres realizarlo por email, puedes utilizar:\n\n- Getmail (totalmente automatico)\n- JBmail.- El usuario tiene que elegir manualmente bajar el fichero. Yo lo utilizo, como complemento del primero, para comprobar desde un programa en Clipper, si las tiendas ya han bajado los ficheros que les he enviado.\n\nPero te insisto, que lo mejor y mas seguro es que utilices FTP.\n\nUn saludo.','',0,'gA==','15yehy09',1,0,'',9,0,0),(3146,826,3,346,0,'83.135.98.180',1134053955,1,0,1,1,1,0,'','DLL-Calls','Hi friends,\n\ncan anybody help me to translate this into a xHarbour or FiveWin-Code:\n\nDeclaration\n\n\n\nDelphi:\n\nfunction CheckAccountNumber(const AAccountNumber: WideString; const \nABankCode: WideString; out ABankName: WideString; out AResultString: \nWideString): ReturnCodes;\n\n\n\nIDL:\n\n[id(0x00000003), helpstring(\"Funktion zum Testen der Kontonummer\")]\n\nHRESULT _stdcall CheckAccountNumber([in] BSTR AAccountNumber, [in] BSTR \nABankCode, [out] BSTR * ABankName, [out] BSTR * AResultString, [out, retval] \nReturnCodes * Res );\n\n\n\nDescription\n\nDie Methode CheckAccountNumber ist die \'Hauptmethode\' der Bibliothek. Mit \nihr kann man prüfen, ob eine Kombination aus Kontonummer und Bankleitzahl \neine mögliche Kontonummer beschreibt.\n\nIm Parameter AAccountNumber übergibt man die zu prüfende Kontonummer und im \nParameter ABankCode die dazugehörende Bankleitzahl. Zuerst prüft die \nMethode, ob die Bankleitzahl gültig ist und ermittelt die zur Bankleitzahl \ngehörende Prüfmethode. Mit dieser Prüfmethode wird anschließend die \nübergebene Kontonummer geprüft.\n\nÜber den ReturnCode kann man auswerten, ob die Prüfung erfolgreich war bzw. \nwelcher Fehler aufgetreten ist. Zusätzlich erhält man im Parameter ABankName \nden Namen der ermittelten Bank zurück sowie im Parameter AResultString das \nErgebnis der Prüfung im Klartext.\n\n\n\nEs werden folgende Properties überschrieben:\n\nAccountNumber mit dem Wert von AAccountNumber\n\nBankCode mit dem Wert von ABankCode\n\nBankName mit dem ermittelten Banknamen\n\nCheckMethod mit der ermittelten Prüfmethode\n\nResultString mit dem Ergebnisstring\n\n\n\nBest regards\n\n\nBodo','',0,'','in67a9q8',1,0,'',346,0,0),(3147,806,1,204,0,'83.235.97.117',1134054724,1,0,1,1,1,0,'','','Thanks for the repley. I\'ll look into that address to see what is going on ther. Can these GPF messages be made readable. For example putting an OemToAnsi cal around the message text so that it will be displayed correctly. \nThanks again','',0,'','1g3ppu7p',1,0,'',204,0,0),(3148,826,3,6,0,'87.1.225.153',1134055183,1,0,1,1,1,1,'','Re: DLL-Calls','Is this a function from a DLL? If yes, what is the DLL name?\n\nEMG','',0,'','17fb4wsm',1,0,'',6,0,0),(3149,808,1,15,0,'203.73.90.45',1134057282,1,0,1,1,1,0,'','','Hello Dutch,\n\nI have DrWebcam LIB to call Webcam and catch image to JPG file.\n\nRegards,\n\nRichard','',0,'','3ovc7t1t',1,0,'',15,0,0),(3150,826,3,346,0,'83.135.90.142',1134057482,1,0,1,1,1,0,'','','The name of the DLL is: LKontoLb.dll. I send it to you by E-Mail.\n\nBodo','',0,'','19942lqb',1,0,'',346,0,0),(3151,826,3,6,0,'87.1.225.153',1134058407,1,0,1,1,1,1,'','','Try (not tested):\n\n[code:2cxlb4f0]DLL32 FUNCTION CHECKACCOUNTNUMBER&#40; cAccountNumber AS LPSTR, cBankCode AS LPSTR, cBankName AS LPSTR, cResultString AS LPSTR &#41; AS LONG;\n      PASCAL FROM &quot;CheckAccountNumber&quot; LIB &quot;LKontoLb&#46;dll&quot;[/code:2cxlb4f0]\n\nEMG','',0,'AIA=','2cxlb4f0',1,0,'',6,0,0),(3152,816,3,31,0,'84.15.27.93',1134066336,1,0,1,1,1,1,'','','[quote=&quot;Rimantas&quot;:1l7y4qmf]\n   Thank you , Antonio ! I\'ll try it tomorow . \n\n   With best regards ! Rimantas .[/quote:1l7y4qmf]\n\n   Antonio , thanks again to you . Your advice works fine , I succesfully recreated fivehmx.lib . <!-- s:-D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":-D\" title=\"Very Happy\" /><!-- s:-D -->\n\n   With best regards ! Rimantas','',0,'gA==','1l7y4qmf',1,0,'',31,0,0),(3153,769,2,265,0,'80.58.18.235',1134068933,1,0,1,1,1,0,'','','Hola Manuel\nEl tema es que el cliente tiene una red de proveedores que le envian por correo electrónico un fichero via correo electrónico, y ya tengo hecha la aplicación que integra éstos datos que le mandan en el fichero en su gestión comercial.\nNunca he hecho nada via ftp y no se como va este tema.\nDe todas las maneras, probando he conseguido lo que quería a través del outlook instalando el outlook attachament sniffer, y configurandolo de manera que cada 5 minutos comprueba si hay correo, y si lo hay, comprueba que viene de la dirección indicada y si es así, graba el adjunto en un directorio al efecto.\n\nUn Saludo y gracias\n\nJose Luis','',0,'gA==','3us1horz',1,0,'',265,0,0),(3154,827,2,124,0,'200.117.32.75',1134070897,1,0,1,1,1,0,'','COMO REEMPLAZO LASTKEY() DE CLIPPER EN FW?','Amigos:\n\nProbé el getasynckey() pero el funcionamiento es parecido pero no igual, ya que segun probé el getasynckey() \"pierde\" el valor ultimo oprimido en algunas situaciones como despues de unas líneas de fuentes, o un tiempo determinado, el lastkey() nos dice exactamente eso \"la ultima tecla oprimida\" sin importar el tiempo transcurrido o lineas de fuentes ejecutadas. \n\n¿Que se les ocurre?\n\nGracias desde ya!\n\nRicardo Bécares.','',0,'gA==','33x27lpe',1,0,'',124,0,0),(3155,794,6,73,0,'200.95.72.112',1134071279,1,0,1,1,1,0,'','Re: wbrowse en pellesc','Gracias a ambos, funciono...','',0,'gA==','2un4odoh',1,0,'',73,0,0),(3156,828,2,347,0,'201.246.121.78',1134072107,1,0,1,1,1,0,'','un Campo en un Listbox pero FIELDS','Hola amigos del foro quiero poder poner en FIELD un campo q\' cambie por ejemplo:\n\nen una bodega si tengo el FIELD q\' detecte o si hay 2 o 3 o nn bodegas\n desde ya gracias','',0,'gA==','11eusbav',1,0,'',347,0,0),(3157,829,6,73,0,'200.95.72.112',1134072268,1,0,1,1,1,0,'','base de datos de access','Hola foro, tengo un gran dilema pues es mi primer vez... que me recomiendan asi de rapido odbc,ado,, el problema es el siguiente:\ntengo una .mdb de access 97 con contraseña (esta si me la se), pero esa .mdb tiene un registro de mis llamadas telefonicas, actualmente tiene 300,000 registros y aumenta en 600 aprox. por dia,\nentonces quiero hacer un browse con esa .mdb usando la twbrowse, y quiero poder filtrar o scopear esa .mdb por extension y fecha, para sacar un reporte diario, se que es facil, pero por donde comienzo? algun ejemplo?\nMil Gracias\nSalu2\nPaco','',0,'gA==','2atmcmi3',1,0,'',73,0,0),(3158,830,1,139,0,'212.205.251.45',1134078023,1,0,1,1,1,0,'','LISTBOX  and SELECT ... FOR  not Refresh()','for All \nGIVING HIM CODE IN THE  cTMP_PEL   AND THE  LISTBOX \nIT DOES NOT PRESENT THE REGISTRATIONS \nIF I GIVE A PRICE IN THE  cTMP_PEL   FROM THE BEGINNING OF CODE \nARE PRESENTED THE REGISTRATIONS   \nIF GIVING HIM the OTHER CODE  LISTBOX   DOES NOT MAKE   Update \n\n[code:l8c7zlt2]\nlocal cTMP_PEL &#58;= cTOT &#58;= 0 \n\n   arr &#58;= &#123;&#125;\n   AADD&#40;arr,&quot;PARG_PEL&quot;&#41;\n   AADD&#40;arr,&quot;PARG_EID&quot;&#41;\n\n\n    IF UseFile&#40;&quot;PARAG&quot; , &#46;T&#46; ,&quot;DBFNTX&quot; , arr  &#41;\n      dbPARAG &#58;= ALIAS&#40;&#41;\n      DBSELECTAREA&#40; dbPARAG  &#41;\n    ELSE\n      RETURN\n    ENDIF\n\n    DBSELECTAREA&#40; dbPARAG  &#41;\n    DBSETORDER&#40;1&#41;\n\n\n   bColor &#58;=  nRGB&#40; 204, 226, 204 &#41;\n\n   SET RESOURCES TO  &#40; lDLL + &quot;PHASTORE&#46;DLL&quot;   &#41;\n\n   nAcolor &#58;= RGB&#40;205, 205, 193&#41;\n   nBcolor &#58;= RGB&#40;193, 205, 193&#41;\n\n \n DEFINE DIALOG prgDLG  RESOURCE \'PARAGTRN\'   FONT oFnt12 ;\n   TITLE &quot; &quot;\n\n    REDEFINE TBTNGET oTMP_PEL VAR cTMP_PEL ;\n      ID 103   OF    prgDLG   ;\n      PICTURE &quot;99999&quot; ;\n      RESOURCE &quot;SEARCHE&quot;                   ;\n      ACTION  &#40; cTMP_PEL &#58;=  I_LIST&#40; &quot;PELATES&quot;, &quot;PELATES&quot; , &quot;PEL_TIT&quot; , &quot;TITLE1&quot; , 1 &#41; ,;\n      oTMP_PEL&#58;Refresh&#40;&#41;  &#41; ;\n      VALID  &#40;  oLbx&#58;Refresh&#40;&#41;  , &#46;T&#46; &#41;\n\n\n\n    REDEFINE LISTBOX oLbx                  ;\n            FIELDS DTOC&#40;&#40;dbPARAG&#41;-&gt;DLT_DATE&#41;  ,;\n                   &#40;dbPARAG&#41;-&gt;DLT_PARX  ,;\n                   STR&#40;&#40;&#40;dbPARAG&#41;-&gt;DLT_PARN &#41;&#41; ,;\n                   STR&#40;&#40;dbPARAG&#41;-&gt;DLT_TIMHX,10,4&#41; ,;\n                   STR&#40;&#40;dbPARAG&#41;-&gt;DLT_POSO,10,1&#41;  ,;\n                   STR&#40;&#40;dbPARAG&#41;-&gt;DLT_TOT ,10,2&#41;  ,;\n                   &#40;dbPARAG&#41;-&gt;DLT_PERIG  ;\n            ALIAS  &#40;dbPARAG&#41;          ;\n            ID 101                    ;\n            OF    prgDLG              ;\n            FIELDSIZES 80, 50, 80 ,100 ,100 ,100 ,300 ;\n            COLORS CLR_BLACK, bColor   ;\n            SELECT STR&#40;DLT_PEL,5&#41; FOR STR&#40;cTMP_PEL,5&#41;   ;\n            HEADERS   &quot;Date&quot;, &quot;parx &quot;, &quot;parn &quot; , &quot;timh &quot; , &quot;poso&quot; , &quot; tot &quot; ,&quot; perig &quot;\n\n            REDEFINE  GET oTOT  VAR cTOT   ID 102  OF prgDLG    FONT oFnt1 READONLY\n            oLbx&#58;aJustify = &#123; &#46;F&#46;, &#46;F&#46;, &#46;T&#46;, &#46;T&#46;, &#46;T&#46; , &#46;T&#46;, &#46;F&#46;&#125;\n            oLbx&#58;lUpdate &#58;= &#46;t&#46;\n   ACTIVATE DIALOG prgDLG\n\n    &#40;dbPARAG&#41;-&gt;&#40;dbCloseArea&#40;&#41;  &#41;\n    prgDLG&#58;End&#40;&#41;\n[/code:l8c7zlt2][/quote][/code]','',0,'AIA=','l8c7zlt2',1,0,'',139,0,0),(3159,827,2,147,0,'200.68.215.1',1134078479,1,0,1,0,1,1,'','','Ricardo; probá así:\n\n[code:92jlpido]   if GetKeyStat&#40; VK_RETURN &#41;\n      ? &quot;Pulsaste Intro&quot;\n   end[/code:92jlpido]','',0,'AIA=','92jlpido',1,0,'',147,0,0),(3160,831,6,43,0,'201.127.45.26',1134082213,1,0,1,1,1,0,'','Error (6) deleting enhaced Metafile - Error Description','Hola:\n\n   Mando a Generar un Reporte con REPORT, y me manda ese mensaje.\n\n   Lo raro es que solo es en un dia especifico, porque en los demas dias que selecciono para ese reporte, sale todo normal.\n\n\nSaludos\n\n  Marco A. Delgado','',0,'AIA=','3v43nqmq',1,0,'',43,0,0),(3161,832,1,148,0,'62.135.38.173',1134082539,1,0,1,1,1,0,'','Maximize Data as Dialog Maximized','I need to expand the data fields when I Maximized the data in that routine :\n\nfunction ClientsBrowse()\n\n   local oDlg, oDbf, oBrw\n\n   USE CUST\n   DATABASE oDbf\n\n   DEFINE DIALOG oDlg RESOURCE \"Browse\"\n\n   REDEFINE LISTBOX oBrw ;\n      FIELDS oDbf:cu_acct,oDbf:cu_Name,oDbf:cu_Addr,oDbf:cu_PHON , oDbf:cu_FAX , oDbf:cu_MAN , oDbf:cu_MOBI , oDbf:cu_APPR;\n      HEADERS \"Account_no\",\"Name\",\"Address\",\"Phone\",\"Fax\",\"Man\",\"Mobile\",\"Appreviation\" ;\n      SIZES   250, 300, 300, 300, 300, 300, 300 ;\n      ID 110 OF oDlg\n\n\n   oBrw:bSkip = { | nRecs | oDbf:Skipper( nRecs ) }\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n\nreturn nil','',0,'AIA=','3en5qyjr',1,0,'',148,0,0),(3162,832,1,2,0,'80.58.2.107',1134087011,1,0,1,1,1,1,'','','Ehab,\n\nDo you mean that you maximize the dialogbox and you want the browse to resize also ?','',0,'AIA=','2ftwafla',1,0,'',2,0,0),(3163,825,3,2,0,'80.58.2.107',1134088086,1,0,1,1,1,1,'','','Colin,\n\nWe have tested samples\\TestMdi2.prg, started the EXE, moved the main window to the second monitor and then open the mdichild. It worked ok:\n\n[url=http&#58;//imageshack&#46;us:3jmudv9d][img:3jmudv9d]http&#58;//img451&#46;imageshack&#46;us/img451/9810/mdi26rk&#46;jpg[/img:3jmudv9d][/url:3jmudv9d]\n\nTested with FWH 2.7.','',0,'GA==','3jmudv9d',1,0,'',2,0,0),(3164,833,7,95,0,'201.145.134.21',1134088107,1,0,1,1,1,0,'','Problems con una funcion en C','Hola Colegas\n\nEste es el codigo :\n\n#include \"FWCE.ch\" \n\nfunction Main() \n* begin\n  local oWnd \n\n  DEFINE WINDOW oWnd TITLE \"Active Scan\"\n\n  @ 2, 2 BUTTON \"Scan_Open\" ACTION SCAN_OPEN() SIZE 80, 20 \n  ACTIVATE WINDOW oWnd \n\nreturn nil \n\n\n* Funciones que no corren en Symbol MC3000\nfunction cesetmenu() ; return nil\nfunction getmenu() ; return nil\nfunction readbitmap() ; return nil\nfunction palbmpread() ; return nil\n\n#pragma BEGINDUMP \n\n#include &lt;hbapi.h&gt; \n#include &lt;windows.h&gt; \n#include &lt;ScanCAPI.h&gt; \n\nHANDLE hScanner = NULL; \nTCHAR   szScannerName[MAX_PATH] = L\"SCN1:\";  \n\nHB_FUNC( SCAN_OPEN ) \n{ \n    DWORD dwResult = SCAN_Open( szScannerName, &amp;hScanner ); \n  \n    if ( dwResult != E_SCN_SUCCESS ) \n       MessageBox( GetActiveWindow(), L\"Fallo en Scan_Open\", L\"Ok\", 0 ); \n} \n\n#pragma ENDDUMP \n\n\nY este es el mensaje :\n\n\nbitest1.c\n Creating library jobitest1.lib and object jobitest1.exp\nbitest1.obj : error LNK2019: unresolved external symbol SCAN_Open referenced i\nfunction \"void __cdecl HB_FUN_SCAN_OPEN(void)\" (?HB_FUN_SCAN_OPEN@@YAXXZ)\nbitest1.exe : fatal error LNK1120: 1 unresolved externals\n\n\nEspero no importunar mucho.\n\nSaludos\nOsvaldo Ramirez','',0,'','326g44w1',1,0,'',95,0,0),(3165,834,2,295,0,'201.222.150.178',1134088240,1,0,1,1,1,1,'','AL GENERAR UN ARCHIVO DE TEXTO LAS &quot;N&quot; APARECEN CO','ALGUIEN SABE PORQUÉ AL GENERAR UN ARCHIVO DE TEXTO DESDE LA APLICACION EN FIVEWIN, LAS \"Ñ\" APARECEN COMO \"&#65425;\" AL VER EL ARCHIVO POR EXCEL O POR UN EDITOR EN DOS?\n\nDEBO GENERAR UN ARCHIVO DE UNA NOMINA DE 500 TRABAJADORES DE LOS CUALES UNOS 120 TIENE LA \"Ñ\" EN SUS NOMBRE\n\nDE ANTEMANO MUCHAS GRACIAS POR SU AYUDA','',0,'','wtf8ekzd',1,0,'',295,0,0),(3166,833,7,2,0,'80.58.2.107',1134088768,1,0,1,1,1,1,'','','Osvaldo,\n\nTienes que enlazar un fichero LIB para las funciones de la DLL.\n\nLa forma de construir ese fichero LIB es:\n\nimplib.exe nombre_dll.lib nombre_dll.dll\n\nY enlazar el fichero LIB resultante como una lib más en buildce.bat.','',0,'','34dam55w',1,0,'',2,0,0),(3167,834,2,2,0,'80.58.2.107',1134088964,1,0,1,1,1,1,'','','Luis,\n\nAl pasar de Windows a ansi ó viceversa, tienes que usar las funciones OemToAnsi() y AnsiToOem()\n\ncTextoAnsi = OemToAnsi( cTextoOem )\n\ncTextoOem = AnsiToOem( cTextoAnsi )','',0,'','lx8i895i',1,0,'',2,0,0),(3168,828,2,2,0,'80.58.2.107',1134089111,1,0,1,1,1,1,'','','Felipe,\n\nUsa FIELD-&gt;bodegas\n\nte refieres a eso ?','',0,'','81jgb43o',1,0,'',2,0,0),(3169,717,6,5,0,'80.58.41.235',1134089578,1,0,1,1,1,1,'','','Hola,\n\nAparentemente creo que debería funcionar, pero por si acaso prueba a meter un dbGoTop() después del Scope y antes del filtro.','',0,'','1ci1ibu7',1,0,'',5,0,0),(3170,835,2,348,0,'201.240.154.171',1134090385,1,0,1,1,1,0,'','Pueden Exes de Clipper puro  y Fivew  trabajar Juntos','Buen dia al Foro.\nCon un cliente tengo varios modulos enlazados (contabilidad, facturacion, produccion,planillas, etc)  en Clipper Puro Ver. 5.2, usando DBF  y indices NTX,,  y la idea es ir implementando cada uno de los modulos  y pasarlos a FiveWin  usando las mismas bases de datos e indices....\n\nLa pregunta concreta:  habra algun  problema con el manejo de las bases de datos o indices NTX si ambos programas (CLIPPER Y FIVEWIN)  van trabajando  juntos (en ambos podran crear, o modificar registros usando las mismas bases de datos)  o necesariamente  solo podre poner en marcha todos los modulos  cuando todos sean solo de FIVEWIN....\n\nGracias por adelantado por las respuestas\nLubin','',0,'','2rj74kdd',1,0,'',348,0,0),(3171,833,7,95,0,'201.145.134.21',1134092176,1,0,1,1,1,0,'','','Estimado antonio, voy a intentarlo ....\n\nEstoy haciendo esto, pero se tarda mucho y no se si estoy bien.\nSi no habro el indice es rapido, pero si lo abro el indice, se tarda siglos\n\n  USE (ventas_dir+\"05051207.DBF\") ALIAS DIARIO NEW\n  if ! NETERR()\n    GO TOP\n    USE ( files_dir+\"ARTICUL.DBF\") ALIAS ARTICUL NEW\n    if ! neterr()\n      SET INDEX TO ( files_dir+\"ARTICUL3.NTX\" )\n\n      GO TOP\n\n      DEFINE WINDOW oWnd TITLE \"TomaInv\"\n\n      @ 1, 2 SAY \"Cantidad:\" SIZE 70, 20\n      @ 1,11 GET nCant picture \"9999\" SIZE 35, 20\n      @ 3.0, 2 SAY \"Bar-Code:\" SIZE 70, 20\n      @ 3.0,11 GET cBarCode picture \"@!\" SIZE 110, 20\n\n   \n      @ 12, 2 BUTTON \"Revisar\" SIZE 80, 30 ACTION revisar(cBarCode,nCant)\n      @ 12,15 BUTTON \"Terminar\" SIZE 80, 30 ACTION oWnd:End()\n\n      ACTIVATE WINDOW oWnd \n    else\n       msginfo(\"Error en apertura de articulos\")\n    endif\n  ELSE \n     msginfo(\"Error en apertura del diario\")\n  ENDIF\n   \nreturn nil\n\nSaludos\nOsvaldo Ramirez','',0,'','10ryni2i',1,0,'',95,0,0),(3172,833,7,95,0,'201.145.134.21',1134092725,1,0,1,1,1,0,'','','Estimados Colegas ...\n\nya encontre un implib.exe dentro de un directorio de borland, e hice lo un scnapi32.lib\n\nA este lo puse q lo agregara en buildce.bat\ny listo : Pero creo que no se creo bien el scnapi32.lib , pues dice que esta corrupto.\n\nalguien tiene por ahi un implib.exe para Pockemones ...\n\nSaludos\nOsvaldo Ramirez','',0,'','1l2n87pp',1,0,'',95,0,0),(3173,828,2,347,0,'201.246.121.145',1134094051,1,0,1,1,1,0,'','La Idea del Listbox es esta','Bueno la idea que quiero es la siguiente:\n\nTengo una Tabla : Bodegas (3Bodegas)\n                Tabla : Stock\n                Tabla : Articulos\n\n en el Listbox deberia quedar asi\n\nREDEFINE LISTBOX oLbx FELDS;\n          (cArticulos)-&gt;Detalle,CargaStock((cArticulo)-&gt;Codigo,Bodega1),;\n          CargaStock((cArticulo)-&gt;Codigo,Bodega2),;\n          CargaStock((cArticulo)-&gt;Codigo,Bodega3);\n\nEsto si hay 3 no Hay problema pero si hay 20 tendria que poner 20 veces pero la idea no esa, la idea es carga todo en uana variable y que pueda servir para una como para n bodegas\n\ndbGoTop()\nDO WHILE !Eof()\n     //Los N ombres de Bodega\n        cTitulo :=cTitulo  + \'\"\'+Alltrim((cBodega)-&gt;Ma_Corta)+\'\",\' \n        \n         bodega  :=(cBodega)-&gt;Ma_Codi    //capturo el codigo\n        \n         cCampo  :=cCampo   +  \"CargaStock((cArticulo)-&gt;Codigo,bodega,\"\n          bodega),\" // La Funcion\n\n        cSize   :=cSize    + \"50,\"      //aqui le asigno el Size\n       DBSKIP()\nEndDo\n\n oLbx:aheaders   := &amp;cTitulo \n oLbx:acolsizes  := &amp;cSize  \n   Los aheaders y acolsizes funcionan bien pero Field no\n\nREDEFINE LISTBOX oLbx fIELDS cCampo\n\nPERO DE ESTA FORMA me funciona Bien:\n  cCampo :={ || { (cArticulo)-&gt;Detalle,CargaStock((cArticulo)-&gt;Codigo,\"1 \") } }\n\nREDEFINE LISTBOX oLbx fIELDS \"\"\noLbx:bLine      := (cCampo) \nPERO SI TENGO 2 0 3  O NNN BODEGAS \nbueno espero que entienda\nSaludos','',0,'','wdq1f0a2',1,0,'',347,0,0),(3174,834,2,295,0,'201.222.150.178',1134100117,1,0,1,1,1,1,'','','ESTIMADO ANTONIO:\n\nLAS \"Ñ\" APARECEN COMO \"&#65425;\"  USANDO LA FUNCION:\n\nOemToAnsi(cNombre)\n\nSI Aplico AnsiToOem(cNombre) la \"Ñ\" aparece como \"¥\"\n\nESTOY TRABAJANDO EN WIN XP Y FW 2.7 /CLIPPER 5.2 BLINKER 5.1\n\nDE ANTEMANO MUCHAS GRACIAS\nSALUDOS','',0,'','17eyd99k',1,0,'',295,0,0),(3175,808,1,47,0,'203.144.143.6',1134100310,1,0,1,1,1,0,'','Thanks Richards','Dear Richard,\n\nThank you very much for your kindness.   I try to show the userinterface screen and convert from BMP to JPEG by FreeImage.dll.  It\'s ok now\n\nThanks&amp;Regards,\nDutch','',0,'','1f1p3lnv',1,0,'',47,0,0),(3176,740,3,31,0,'195.182.84.105',1134107563,1,0,1,1,1,1,'','','Hello again ! I did here some changes and that worked . I don\'t know why . \n\n[code:1htwxxeh]\n\n&#58;&#58;oWnd&#58;bValid     &#58;= &#123; || &#40; &#58;&#58;End&#40;&#41;, &#46;t&#46; &#41; &#125;\n\nMETHOD End&#40;&#41; CLASS TMyBasic\n\n   local cCrg &#58;= &#58;&#58;cCargo\n   local n &#58;= m &#58;= z &#58;= 0\n   local oWnd\n   local aCols &#58;= &#123;&#125;\n\n   if &#58;&#58;bEnd !=NIL\n      eval&#40; &#58;&#58;bEnd &#41;\n   endif\n\n   if &#58;&#58;oWnd != NIL\n      if &#58;&#58;lEnv\n         MsgWait&#40; &quot;Please , one moment &#46;&#46;&#46; &quot;,, &#46;01 &#41;\n         if wind_save&#40; &#58;&#58;cCargo, &#58;&#58;oWnd &#41; // saving windows coords\n            for n &#58;= 1 to len&#40; &#58;&#58;aBrwID &#41; // array of browse objects\n               aCols &#58;= &#123;&#125;\n               for m &#58;= 1 to len&#40; &#58;&#58;aHdrs&#91; n &#93; &#41;\n                  z &#58;= ascan&#40; &#58;&#58;aHdrs&#91; n &#93;, &#58;&#58;aColHdr&#91; n &#93;&#91; m &#93; &#41;\n                  aadd&#40; aCols, &#123; m, z &#125; &#41;\n               next\n\n               wbrw_save&#40; &#58;&#58;cCargo, &#58;&#58;aBrwID&#91; n &#93;, &#58;&#58;oBrw&#91; n &#93;, aCols &#41;\n\n               if &#58;&#58;aOrdCnd&#91; n &#93; # NIL &#46;and&#46; &#58;&#58;aOrdCnd&#91; n, 1 &#93;\n                  &#58;&#58;BrwOrdRem&#40; n &#41; // removing temporary index filess\n               endif\n            next\n         endif\n      endif\n      &#58;&#58;LstFcs&#40;&#41;\n     else\n      MsgInf&#40; &quot;Can\'t detec window !&quot;, 2 &#41;\n   endif\n   if &#58;&#58;bEndPst !=NIL\n      eval&#40; &#58;&#58;bEndPst &#41;\n   endif\n   &#58;&#58;lEnd &#58;= &#46;t&#46;\n   if &#58;&#58;nWd == 1\n      do while PostMessage&#40; &#58;&#58;oWnd&#58;hWnd, WM_CLOSE &#41; # 1\n      enddo\n   endif\n   MsgWait&#40; &quot;Please , one moment &#46;&#46;&#46; &quot;,, &#46;01 &#41;\n   oApp&#58;OpWd&#40; cCrg,, 2 &#41;\n   Self &#58;= NIL\nreturn&#40; NIL &#41;\n\n[/code:1htwxxeh]\n\n   Simply I added MsgWait( ) function . Now it works OK . The interval of MsgWait() is very shortly - .01 of second . I decided to add this function , because if I check sources ( that ussually I\'m doing with MsgInfo() ) , then all is working OK . So it comes an idea to the mind , that here it\'s needful something similar to time delay . Maybe you have some ideas , why this delay helped to me ?\n\n    With best regards ! Rimantas','',0,'AIA=','1htwxxeh',1,0,'',31,0,0),(3177,829,6,123,0,'83.50.56.75',1134113806,1,0,1,1,1,0,'','','Francisco,\n\nNi te lo pienses.  Si usas (x)harbour con FW tienes tOleAuto a tu disposición para utilizar ADO.  \n\nEn <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=58\">http://www.capelblog.com/?p=58</a><!-- m --> tienes unos ejemplos de como utilizar ADO (son básicos, pero ahí están) y dos clases.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','yvet4q21',1,0,'',123,0,0),(3178,831,6,123,0,'83.50.56.75',1134113944,1,0,1,1,1,0,'','','Marco,\n\nEse error ocurre cuando se intenta borrar el metafile y éste no existe.  Los motivos por los cuales no existe pueden ser varios, pero yo me centraría en buscar un ENDPAGE sin su correspondiente STARTPAGE.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','1ac9t4wk',1,0,'',123,0,0),(3179,835,2,294,0,'190.48.0.247',1134126975,1,0,1,1,1,0,'','','No creo que tengas problemas, lo unico que tenes que tener en cuenta es  el manejo de los Lockeos de registros (puesto que las dos aplicaciones pueden estar accediendo a los mismos registros a la vez), pero es nada mas ni nada menos que los controles estandar para trabajar en red.\nEspero te sirva','',0,'AIA=','3s569wu4',1,0,'',294,0,0),(3180,836,6,81,0,'80.28.244.140',1134128430,1,0,1,1,1,0,'','xbrowse y flacha abajo','Alguien le ocurre que con xbrowse al pulsar flecha abajo el browse deja pintado el registro sin refrescarlo? Os adjunto imagen\nEl browse es sobre un array.\n\n[img:3i9pxd11]http&#58;//congresos&#46;gesintur&#46;com/democongresos/capture&#46;jpg[/img:3i9pxd11]\n\nSaludos','',0,'CA==','3i9pxd11',1,0,'',81,0,0),(3181,828,2,294,0,'190.48.0.247',1134128542,1,0,1,1,1,0,'','','Y si cambias esta funcion\n[color=red:4lihqgbn]cCampo :={ || { (cArticulo)-&gt;Detalle,CargaStock((cArticulo)-&gt;Codigo) } } \n\nREDEFINE LISTBOX oLbx fIELDS \"\" \noLbx:bLine := (cCampo) [/color:4lihqgbn]\ny en la funcion CargaStock(nCodArt) le haces que recorra toda la base en busca de las N bodegas y te devuelva una cadena con el texto de todas las existencias en la bodegas??\nEspero te sirva...','',0,'Ag==','4lihqgbn',1,0,'',294,0,0),(3182,836,6,81,0,'80.28.244.140',1134129184,1,0,1,1,1,0,'','','El :goup pinta perfectamente. El problema esta en el godown.','',0,'Ag==','28gpgjdi',1,0,'',81,0,0),(3183,835,2,228,0,'200.119.44.117',1134129305,1,0,1,1,1,1,'','','Claro que lo puedes hacer compañero, yo hago lo mismo trabajo una base de datos de clientes, en clipper y en fw sin ningun problema. Lo unico como dice nuestro compañero son los controles normales de la red.','',0,'Ag==','2p6ncjea',1,0,'',228,0,0),(3184,836,6,81,0,'80.28.244.140',1134129684,1,0,1,1,1,0,'','','Me contesto:\nLo he arreglado poniendo al final del metodo godown\n ::Super:Refresh( .f. )\nNo penaliza el rendimiento. Y no lo veo muy claro que se tenga que refrescar cada vez que pulsas flecha abajo, pero funciona que es de lo que se trata.\nNo lo he probado con dbf por que solo utilizo arrays.\nSaludos y gracias.','',0,'Ag==','1ta06flq',1,0,'',81,0,0),(3185,837,3,247,0,'193.92.131.194',1134129962,1,0,1,1,1,0,'','Report Margins','How can i program to print (with TPRINTER) something centered .I want this because i have reports that start from column 0 and the output depends by the printer (if have left margin&gt;0 or not).Is there a way to print the metafile centered ?\n\nThanks','',0,'Ag==','p4zmua3f',1,0,'',247,0,0),(3186,808,1,15,0,'203.73.90.40',1134141972,1,0,1,1,1,0,'','','Hello dutch,\n\nNice news.\n\nRichard','',0,'Ag==','3mjxlbnj',1,0,'',15,0,0),(3187,838,3,266,0,'202.188.182.6',1134143315,1,0,1,1,1,0,'','tsbrowse &amp; twbrowse','Hi,\n\nWhat is the replacement for tsbrowse in FWH ?\n\nI can\'t find any topic of it and the download from Patrick site does not include complete lib files eg: sbrowse.lib,etc.\n\nAlso where can I find Hernan\'s Twbrowse ?\n\nwhat is the sample prg in FWH with cell edit style ? \n\nRegards\nHoe','',0,'Ag==','2jnbgn9u',1,0,'',266,0,0),(3188,831,6,43,0,'201.127.45.26',1134144543,1,0,1,1,1,0,'','','Gracias Jose Luis\n\n  Ya encontre el error, lo que pasa es que pongo algo asi\n\n           ACTIVATE REPORT oRepIngDet WHILE !oTable3:Eof() ;\n                          ON PostEnd( TotalRec(oRepIngDet) )\n\n   Entonces se generan 2 paginas la cual la ultima llega asu fin y al momento de poner los ultimos totales me causa ese error, quito el PostEnd y sale perfectamente el reporte, claro sin imprimir los totales estoy buscando la menera de solucionarlo.\n\nSaludos\n    Marco A. Delgado','',0,'Ag==','2drfc7zu',1,0,'',43,0,0),(3189,839,3,69,0,'206.210.97.138',1134144739,1,0,1,1,1,0,'','Copy files with wild card','Hi,\n\nI there a way to copy files from within FWH allowing wild cards.\n\nI am tring to do something like:\n\ncFileSource := \"F:\\Myfile*.*\"\ncFileDest     := \"C:\\MyFolder\\\"\n\nCopy File &amp;cFileSource  to &amp;cFileDest\n\nbut I get a Open error for cFileSource\n\nThanks,\nJeff','',0,'Ag==','3pn8nkka',1,0,'',69,0,0),(3190,831,6,123,0,'81.34.172.223',1134145151,1,0,1,1,1,0,'','','Marco,\n\n[quote:3pafahmt] Ya encontre el error, lo que pasa es que pongo algo asi\n\nACTIVATE REPORT oRepIngDet WHILE !oTable3:Eof() ;\nON PostEnd( TotalRec(oRepIngDet) ) [/quote:3pafahmt]\n\nEs extraño... el PostEnd se lanza [b:3pafahmt]justo[/b:3pafahmt] antes del endpage.  ¿Que haces en TotalRec? ¿Lanzas un startpage/endpage? \n\nSaludos,\nJosé Luis Capel','',0,'wA==','3pafahmt',1,0,'',123,0,0),(3191,840,2,228,0,'200.119.44.117',1134145653,1,0,1,1,1,1,'','No se si no se entendio mi pregunta (equipos de la red)','Alguien sabe como Saber los nombre de los equipos del grupo de trabajo que esten conectados al momento de hacer la solicitud?\n\nAlgo asi como cuando uno hace clic en la opcion ver equipos del grupos de trabajo en windows.','',0,'wA==','r7c6waf8',1,0,'',228,0,0),(3192,839,3,168,0,'200.44.50.43',1134146768,1,0,1,1,1,0,'','','Get the files in the source path using Directory, then use an loop or aeval and do the copy, one file at once','',0,'wA==','nlbe3t0t',1,0,'',168,0,0),(3193,840,2,138,0,'201.128.111.75',1134147101,1,0,1,1,1,1,'','','A 16 bits no se puede y con FW puro tampoco.\n\nYo utilizo Funcky a 32 bits, con una llamada los metodos oFuncky:FindFirtDomain() y oFuncky:FindFirstServer()','',0,'wA==','222kc5l9',1,0,'',138,0,0),(3194,717,6,73,0,'200.95.72.112',1134148067,1,0,1,1,1,0,'','Re: AYUDA FILTROS,SCOPES ME ESTAN VOLVIENDO LOCO','databaselab2002,\n\nyo quiero hacer lo mismo, tengo una dbf con cdx indexado por fecha, hago un scope por rango de fechas y todo ok, pero si uso un filtro para dentro de ses rango mostrar ciertos registros, NO ME FUNCIONA, me lee toda la dbf, ya puse gotop antes y despues y naaa\ncreo que no hay solucion, estoy pensadno barrer la dbf con los scope y meter en un array los de la 2da condicion y ponerlo en otro browse..\nSalu2\nPaco','',0,'wA==','3ubis668',1,0,'',73,0,0),(3195,841,3,91,0,'62.151.116.78',1134148250,1,0,1,1,1,0,'','Usuarios de TDBF y clase TIndex, problema con FWH 2.6','Alguien se ha encontrado con el problema de que al usar TDBF de Manuel Expósito y FWH 2.6, existe una \'colisión\' con la clase TIndex?\n\nMe explico, en FWH exite nativamente la clase TIndex, que desconozco su su uso, y en TDBF también existe, con lo cual (y aún no se porque) si linco en mi aplicación TDBF INDEPENDIENTEMENTE del orden en que la especifique en el fichero .rmk, desde hace unas semanas cuando la aplicación precisa del uso de TIndex la que se lanza siempre es la nativa de FiveWin, con lo que he tenido que sacarla de FiveH.lib para que funcione mi aplicación.\n\nMe explico?\n\nSaludos\nCarlos G.','',0,'wA==','1wpzufjb',1,0,'',91,0,0),(3196,717,6,123,0,'81.34.172.223',1134149177,1,0,1,1,1,0,'','','Francisco,\n\n¿Y por que no te creas una función que genere el filtro a pelo sobre un índice CUSTOM?\n\nEs prácticamente igual de rápido que un SetFilter y tienes la [i:3sxs2833]eficacia[/i:3sxs2833] de un tag más en tu índice (o lo haces aparte, en un IDX por ejemplo).\n\nSaludos,\nJosé Luis Capel','',0,'IA==','3sxs2833',1,0,'',123,0,0),(3197,834,2,138,0,'201.128.111.75',1134149447,1,0,1,1,1,1,'','','A ver si nos aclaramos:\n\nCuando tu grabas un caracter ASCII extendido como ñÑáéíóú bajo Windows, los registros se guardan con un formato llamado ANSI.\n\nSi tu quieres visualizarlos correctamente bajo DOS, DOS no utiliza el formato ANSI, sino que tuiliza formato OEM.... por eso tienes que transformar usando la funcion ANSITOOEM()\n\nAhora bien, si tu abres el archivo de texto con los  datos exportados con un programa DOS veras correctamente los caracteres, sin embargo, si abres ESE MISMO archivo con un editor de Windows veras los caracteres raros,proqeu claro, ya no esta en formato ANSI, sino en OEM','',0,'IA==','mxvh5xss',1,0,'',138,0,0),(3198,839,3,303,0,'68.7.28.54',1134149593,1,0,1,1,1,0,'','','I haven\'t tried it, but this might work.\n\ncopyFile(cSource,cTarget,nFailIfExists)\n\nWhere nFailIfExists = 0 overwrite if cTarget exists\n                      1 fail if cTarget exists\n\nDLL32 FUNCTION CopyFile( Source_file AS LPSTR, Target_file AS\nLPSTR,;      Ret_err AS LONG ) AS BOOL FROM \"CopyFileA\" LIB\n\"Kernel32.dll\"','',0,'IA==','371qm7xi',1,0,'',303,0,0),(3199,838,3,303,0,'68.7.28.54',1134149950,1,0,1,1,1,0,'','','Hoe,\n\nThe lib files probably won\'t be the right ones anyhow. You need to build your own library compiling with your version of FWH and C. You can use TLib.exe that comes with Borland C if you have it. Or, lib.exe that comes with a lot of Microsoft products.\n\nJames','',0,'IA==','ftthblja',1,0,'',303,0,0),(3200,832,1,303,0,'68.7.28.54',1134150443,1,0,1,1,1,0,'','','I don\'t know if this will work but try:\n\noDlg:oClient := oBrw\n\nThis is how you do it with a window.\n\nRegards,\nJames','',0,'IA==','2gzabrl1',1,0,'',303,0,0),(3201,828,2,347,0,'201.246.121.77',1134151346,1,0,1,1,1,0,'','PERO QUE MUESTRE EL STOCK POR BODEGA','Bueno lo quero es que me muestre el Stock por bodega como este ejemplo:\n\n\nDetalle    Bodega 1  Bodega 2  Bodega 3  Bodega 4  nnnnnn Bodegas','',0,'IA==','n5f23c1z',1,0,'',347,0,0),(3202,835,2,348,0,'201.230.65.83',1134151860,1,0,1,1,1,0,'','Okk','Gracias por las respuestas,\n\nRealmente respecto al manejo de archivos en la red (operaciones de bloqueos)  no hay problema pues en la actualidad asi funciona todo en clipper puro, lo que me preocupaba en todo caso era si es que el Fivewin  y el clipper manejaban los mismos controladores de bases de Datos e Indices  (RDD)  de tal manera que no me vayan a crear indices o dbf corruptas...\n\naclarado el tema...  reitero las gracias...\nLubin','',0,'IA==','2wjffnzu',1,0,'',348,0,0),(3203,831,6,43,0,'201.127.45.26',1134155013,1,0,1,1,1,0,'','','Jose Luis\n\n   Lo que hago es esto:\n\n******************************\nStatic Function TotalRec(oRep)\n\n    oRep:StartLine()\n    oRep:Say(oRep:aCols[1], \"No. Total de Recaudaciones: \" + Transform(oRep:nCounter, \"999\"),3,, )\n    oRep:EndLine()\n\nReturn(Nil)\n\n    a Veces me saca dos veces la linea de los totales.\n\n\nSaludos\n    Marco A. Delgado','',0,'','1re4o4m1',1,0,'',43,0,0),(3204,842,6,53,0,'200.66.175.69',1134157761,1,0,1,1,1,1,'','Consulta sobre Index','Amigos del foro:\n\nNuevamente acudo a ustedes pues no encuentro la respuesta.\n\nEn los MainFrame como AS/400 al ordenar por un campo\nalfanumerico quedan de la siguiente forma:\n\n2A261\n2F5010\n244910\n246110\n\nPeroooooo  en FW los mismos artículos al crear un índice quedan así\n\n244910\n246110\n2A261\n2F5010\n\nEn el primer caso las letras de la segunda columna van antes\nque los dígitos pero en FW el caso es al reves, los dígitos van antes que las letras.\n\nExiste alguna función para que el índice me quede exactamente\nigual que el MainFrame ??\n\nSaludos','',0,'','dgq8c3ns',1,0,'',53,0,0),(3205,840,2,228,0,'201.245.233.118',1134158892,1,0,1,1,1,1,'','GRACIAS','Listo Rene como siempre muchas gracias por contestar mi pregunta.','',0,'','1qa7ug9t',1,0,'',228,0,0),(3206,843,2,228,0,'201.245.233.118',1134159072,1,0,1,1,1,1,'','Contectar base datos mysql en servidor web','Colegas, nuevamente yo, estoy incursionado en el mundo de las bases de datos mysql. he realizado varios ejemplos con bases de datos locales (En mi PC), pero necesito en este momento leer una base de datos que esta en un hosting. ¿Alguien me puede indicar como lo puedo hacer?, tengo las claves pero no se como acceder. Alguien me puede dar una luz. O si sabe de algun manual donde me indique esto?\n\nDe antemano Gracias','',0,'','1jgprvf9',1,0,'',228,0,0),(3207,842,6,123,0,'83.50.56.75',1134159972,1,0,1,1,1,0,'','','Armando,\n\nPor lo que veo, están en orden descendiente.  Añade DESCEND( clave ) en tu índice.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'','1kaon20o',1,0,'',123,0,0),(3208,844,1,86,0,'213.119.103.68',1134165960,1,0,1,1,1,1,'','Problem with mouse scrolling since FW 2.5','First of all, I use Clipper 5.3b, Blinker 7.0 and FW 2.7\n\nSince I use FW 2.5, 2.6 or 2.7, there is a problem with mouse scrolling in a listbox.\n\nIf I set the focus to one of the four or five last lines of a listbox and I use the mouse scroll to scroll down, the listbox scrolls to the left but not down.\n\nI know there is a problem with the mouse scrolling in FW 16-bits (one can only scroll down, not scroll up), but until FW 2.4, mouse scrolling just worked fine for scrolling down in a listbox, even with the focus on the last line.\n\nWhat is the problem ? How can it be solved ?\n\n(I hope that everyone can understand what I mean).\n\nThank you.','',0,'','11oa8lf9',1,0,'',86,0,0),(3209,833,7,2,0,'80.58.2.107',1134166944,1,0,1,1,1,1,'','','Osvaldo,\n\nPrueba a NO llamar a NetErr(). No te hace falta, ya que si no se abriese la base de datos, Harbour generaría un error. Y tal vez ahí esté la pérdida de tiempo.\n\nMe equivoqué al indicarte implib.exe, ya que se generaría una LIB en formato OMF y Microsoft usa formato COFF.\n\nEnvíame la DLL como ZIP y te generamos la LIB aquí.','',0,'','yrbq6x5r',1,0,'',2,0,0),(3210,717,6,41,0,'166.114.252.26',1134167127,1,0,1,1,1,0,'','','Holas,\n\nyo tengo eso funcionando con tablas ADT no he probado con DBFCDX, ademas utilizando los filtos de ADS\n\nSolo comentario\n\nMarcelo','',0,'','2d0ej5ii',1,0,'',41,0,0),(3211,833,7,2,0,'80.58.2.107',1134168180,1,0,1,1,1,1,'','','Osvaldo,\n\nLa forma correcta de generar el fichero LIB es:\n\n1. Crear el fichero DEF a partir desde la DLL:\n\nimpdef.exe scnapi32.def scnapi32.dll\n\n2. Crear la LIB a partir del fichero DEF:\n\nlib.exe /def:scnapi32.def /machine:arm /out:scnapi32.lib','',0,'','3og3i2no',1,0,'',2,0,0),(3212,844,1,2,0,'80.58.2.107',1134168505,1,0,1,1,1,1,'','','Michel,\n\nIt is not a bug, it is a behavior that has been coded that way.\n\n[code:k1x6nhpz]\nYou may modify it in METHOD MouseWheel&#40; &#46;&#46;&#46; &#41; CLASS TWBrowse&#58;\n\n&#46;&#46;&#46;\n\n   if aPos&#91; 1 &#93; &gt; &#58;&#58;nHeight * 0&#46;80   // Close to the bottom\n      if nDelta &gt; 0\n         &#58;&#58;GoLeft&#40;&#41;\n      else\n         &#58;&#58;GoRight&#40;&#41;\n      endif\n   else\n      &#46;&#46;&#46;\n[/code:k1x6nhpz]\n\n\nSimply remove that part of the if.','',0,'AIA=','k1x6nhpz',1,0,'',2,0,0),(3213,839,3,69,0,'65.92.79.84',1134169290,1,0,1,1,1,0,'','','Thanks Yamil and James,\n\nJames, I tried your soultion but it forced my app to quit (without any error being generated)','',0,'AIA=','21jtryl0',1,0,'',69,0,0),(3214,841,3,2,0,'80.58.2.107',1134169480,1,0,1,1,1,1,'','','Carlos,\n\nTIndex de FWH no es necesaria. Puedes quitarla de la librería.','',0,'AIA=','m72am6ds',1,0,'',2,0,0),(3215,717,6,73,0,'200.95.72.112',1134169746,1,0,1,1,1,0,'','','jose luis,\nya me quedo, use 2 tags diferentes, en el primero hago el filtro principal y en el segundo tag hago el filtro secundario, la llave del primero es: FECHA+EXTENSION y la del segundo es: EXTENSION+FECHA en el primero filtro el rango de fecha  con todas las extension, y si me seleccionan alguna extension dentro de ese rango, cambio al segundo tag con las fecha seleccionadas, hago el scope nuevamente y listo !!\ngracias a todos los que respondieron\nSalu2','',0,'AIA=','3a8bkzcv',1,0,'',73,0,0),(3216,836,6,2,0,'80.58.2.107',1134169860,1,0,1,1,1,1,'','','Rafael,\n\nGracias a ti por comentarnos la solución <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1nyqwrqt',1,0,'',2,0,0),(3217,845,6,73,0,'200.95.72.112',1134170121,1,0,1,1,1,0,'','probando testodbc','estoy probando testodbc para acceder a una base de datos de access 97 y me sale este error\nTdbOdbcdirect:New()\nClass:37000\n[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis en la clausula FROM.\nOn Procedure:_EVAL:Line 0\n el dsn, la seleccion de la mdb todo ok, y luego cuando selecciono la tabla sale el error, alguna idea? soy nuevoen esto\nsalu2\nPAco[/img]','',0,'','1ljbzngn',1,0,'',73,0,0),(3218,740,3,2,0,'80.58.2.107',1134170530,1,0,1,1,1,1,'','','Rimantas,\n\nThe AMD 64 is a very fast machine. Maybe it needs some time to peform some operations and the function call helped there.\n\nGlad to know you solved it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3gw8dv5e',1,0,'',2,0,0),(3219,846,6,5,0,'80.58.41.235',1134170857,1,0,1,1,1,1,'','Pegar portapapeles sobre un TGet','Hola,\n\nParece que algo no funciona bien al pegar el contenido del portapapeles (previamente copiado desde la barra de direcciones del navegador de internet) sobre un TGet. Resulta que únicamente copia un trozo y no todo el contenido del string. Este es el TGet:\n\n   REDEFINE GET aGet[03] ;\n      VAR cInDirecc ;\n      ID 102 ;\n      OF oDlg\n\nEl problema no puede estar en la longitud de cInDirecc, porque mide 60 y el texto que el pegado del TGet realiza medirá unos 30 (el texto que realmente debería pegar es mayor que 30, ese es el problema, que no lo pega entero).\n\nEl problema viene reportado de un usuario que en anteriores versiones (compiladas con FWH anteriores) le funcionaba bien. ¿Ha habido algún cambio en TGet? ¿A qué se puede deber? ¿Puedo solucionarlo temporalmente de alguna forma? Muchas gracias.','',0,'','3fpyc1tp',1,0,'',5,0,0),(3220,717,6,219,0,'201.154.214.171',1134172639,1,0,1,1,1,0,'','','Perdon; es posible usar los indice tipo IDX en xHarbour?\n\nSí es afirmativo, me ahorrare mucho trabajo \n\nSaludos\n\nJosé Luis\n\n\n[quote=&quot;jlcapel&quot;:6xcqhqy1]Francisco,\n\n¿Y por que no te creas una función que genere el filtro a pelo sobre un índice CUSTOM?\n\nEs prácticamente igual de rápido que un SetFilter y tienes la [i:6xcqhqy1]eficacia[/i:6xcqhqy1] de un tag más en tu índice (o lo haces aparte, en un IDX por ejemplo).\n\nSaludos,\nJosé Luis Capel[/quote:6xcqhqy1]','',0,'oA==','6xcqhqy1',1,0,'',219,0,0),(3221,844,1,86,0,'213.119.103.68',1134173316,1,0,1,1,1,1,'','','Antonio,\n\nThanks a lot for your answer. I know what you mean.\n\nSo I took a copy of wbrowse.prg from the FW-files and changed it like you told me to do.\n\nThen I wanted to add my wbrowse.prg to my library. But while compiling, I got a preprocessor table overflow.\n\nHow do I have to solve that problem ?\nOr can you send me a obj-file of the changed wbrowse.prg ?\n\nThanks a lot.\n\nMichel','',0,'oA==','29sxzx52',1,0,'',86,0,0),(3222,847,3,69,0,'65.92.79.84',1134173614,1,0,1,1,1,0,'','Tdatabase Question','HI,\n\nI have tried for the first time tDatabase ... wow have I been doing a lot mode code then I had to <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nAnyway...\n\nI open my database like this:\n\nUse myfile.dbf shared new\nDATABASE oMyfile\n\nAs a test I open a dialog with some gets and test SAVE and CANCEL.\noMyFile:Load()\nRedefine Get.... oMyfile:Field1   etc....\n\nIf the user selects SAVE I issue a oMyfile:Save()\n\nSo far it works they way I expect.\n\n\nNow I ran my program twice (2 copies at the same time) and something strange happens.\n\n\nIf I make different changes in the 2 separate programs:\nexample in App1 I change field1 and in App2 I change field2.\n\nNow I issue a SAVE() and reload the dbf data oMyfile:Load()\n\nApp1 shows the changes I made in App1 and App2 shows the changes I made in App2.\n\nI would think that one of the Apps would give a lock error and after the LOAD() command both Apps would be the same.\n\nAny idea why this would happen?\n\nThanks,\nJeff','',0,'oA==','9ck6dpeh',1,0,'',69,0,0),(3223,848,19,52,0,'201.231.13.37',1134178227,1,0,1,1,1,1,'','Quiero contactarme con PROGRAMADORES de ALEMANIA','Amigos,\n\nQuisiera contactarme con programadores que esten en Alemania, no es por tema del Mundial. \n\nQuiero intercambiar ideas y me interesaria conocerlos.\n\nMis datos son:\nmsn: <!-- e --><a href=\"mailto:gustavo@coepa.com.ar\">gustavo@coepa.com.ar</a><!-- e -->\nSkyper: goosfancito\n\nMuchas gracias\nY disculpen haber puesto este anuncio.','',0,'oA==','3b99rr0d',1,0,'',52,0,0),(3224,843,2,43,0,'201.127.45.26',1134181329,1,0,1,1,1,0,'','','Hola Leandro\n\n   De la manera como lo hago yo es:\n\n       1.- saber la direccion IP del servidor\n       2.- tener el nombre del usuario y su contraseña\n       3.- saber el nombre de la base de datos a la cual quieres acceder\n       4.- decidir que clase usar Eagle1, tmysql (ya no me acuerdo cuales mas hay, mil disculpas)\n\n   Espero haberte ayudado, siquieres ejemplos por ahi hay unos mensajes que hacen referencia a lo que buscas, si no lo encuentras dimelo y te los mando.\n\nSaludos\n    Marco A. Delgado.','',0,'oA==','38z9ss68',1,0,'',43,0,0),(3225,843,2,43,0,'201.127.45.26',1134181551,1,0,1,1,1,0,'','','haaa....\n\n    Se olvidaba estos ejemplos los uso con xHarbour y FWH\n\n    nunca los he utilizado con Clipper.\n\n\nSaludos\n   Marco A. Delgado.','',0,'oA==','2amffskk',1,0,'',43,0,0),(3226,845,6,123,0,'83.50.56.75',1134200849,1,0,1,1,1,0,'','','Francisco,\n\nMuestra el SELECT que has hecho.  Pero me da la sensación que el nombre de la tabla la debes de poner entre comillas simples invertidas.  Algo así como:\n\nSELECT * FROM `Nombre de Tabla Access` WHERE...\n\nEn cualquier caso te aconsejo que vayas directamente a ADO.  Está mejor integrado con Access y, ¿por que no? es más fácil de usar.\n\nTienes dos clases básicas y algunos ejemplos en <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=58\">http://www.capelblog.com/?p=58</a><!-- m -->\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'oA==','gnk7k0n8',1,0,'',123,0,0),(3227,849,6,123,0,'83.50.56.75',1134200975,1,0,1,1,1,0,'','OT: ourXdbu el sustituto de prometeus a 32 bits ?','Hola,\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> os presento ourXdbu, una herramienta hecha en FWH.\n\nSaludos,\nJosé Luis Capel','',0,'oA==','3ffy075d',1,0,'',123,0,0),(3228,717,6,123,0,'83.50.56.75',1134201168,1,0,1,1,1,0,'','','José Luis,\n\nClaro que se pueden usar índices IDX en (x)harbour!!\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'oA==','33acsste',1,0,'',123,0,0),(3229,844,1,2,0,'80.58.2.107',1134201727,1,0,1,1,1,1,'','','Michel,\n\nYou may use Clipper 5.2 E to compile the PRG as it has more preprocessor capability that 5.3. \n\nKeep using 5.3 libraries, there is no problem with it.','',0,'oA==','1hag91wt',1,0,'',2,0,0),(3230,830,1,2,0,'80.58.2.107',1134202015,1,0,1,1,1,1,'','','To use the SELECT clause, you must use the index key and the top limit and the bottom one, like this sample:\n\n       ... SELECT Name FOR \"Jan\" TO \"John\"','',0,'oA==','3lcdi95p',1,0,'',2,0,0),(3231,847,3,2,0,'80.58.2.107',1134202623,1,0,1,1,1,1,'','','Jeff,\n\nClass TDataBase properly manages locks, but just when saving the data. \n\nThe problem is that it uses a buffer (an array), so when you are going to save it to the real DBF file, the values may have changed in the DBF file, and the buffer may have old ones.\n\nYou may check the buffer values against the DBF file data before saving to see if some values have changed, ot change the lock style in Class TDataBase, to lock the DBF record meanwhile you are editing, not only meanwhile you are saving.','',0,'oA==','3ku8g58n',1,0,'',2,0,0),(3233,849,6,2,0,'80.58.2.107',1134203310,1,0,1,1,1,1,'','','Jose Luis,\n\nEstupendo, y excelente trabajo de Miguel Angel. Gracias!','',0,'oA==','ndi3v0t6',1,0,'',2,0,0),(3234,848,19,2,0,'80.58.2.107',1134203538,1,0,1,1,1,1,'','','Gustavo, \n\nMejor haz el anuncio en las news de Xbase++ ya que la mayoría de sus usuarios son Alemanes.','',0,'oA==','3aj3gj80',1,0,'',2,0,0),(3235,846,6,2,0,'80.58.2.107',1134203860,1,0,1,1,1,1,'','','Jaime,\n\nAcabo de probar samples\\TestGet2.prg y he pegado en el primer GET la dirección que muestra el navegador al leer este post, y lo ha pegado bien.\n\n¿ Que versión de Harbour/xHarbour usas ?','',0,'oA==','2m3tz9gr',1,0,'',2,0,0),(3236,804,6,2,0,'80.58.2.107',1134204132,1,0,1,1,1,1,'','','Mario,\n\nEn 32 bits es preferible que de momento uses la librería gratuita hbcomm.lib en vez de las funciones comm de FWH, que aún no estan funcionando correctamente.','',0,'oA==','31zscr5l',1,0,'',2,0,0),(3237,844,1,86,0,'213.119.103.68',1134204431,1,0,1,1,1,1,'','','Antonio,\n\nI wish I had Clipper 5.2e now. Unfortunately, I don\'t.\n\nMichel','',0,'oA==','3mu3afiz',1,0,'',86,0,0),(3238,830,1,139,0,'212.205.251.78',1134206469,1,0,1,1,1,0,'','','Antonio\n\n THE INDEX IS [b:2a277f7m]STR(DLT_PEL,5)+DTOC(cDLT_DATE)[/b:2a277f7m]\n\nTHE PROBLEM THEY IS   IN THE BRIEFING OF   LISTBOX \n\nWHAT IT SHOULD I PUT IN THE   VALID OF    TMP_PEL \n\nIF DEFAUL cTMP_PEL := 30156 ALL OK\n\n\n[code:2a277f7m]\n&#91;b&#93;cTMP_PEL &#58;= 30156  &#91;/b&#93;\n\n   DEFINE DIALOG prgDLG  RESOURCE \'PARAGTRN\'   FONT oFnt12 ;\n   TITLE &quot; &quot;\n\n    REDEFINE GET oTMP_PEL VAR cTMP_PEL ;\n      ID 103   OF    prgDLG   ;\n      PICTURE &quot;99999&quot; ;\n      VALID&#40; oLbx&#58;UpStable&#40;&#41;  , oLbx&#58;Refresh&#40;&#41; , oLbx&#58;GOTOP &#40;&#41;  , &#46;T&#46; &#41;\n\n      REDEFINE LISTBOX oLbx                  ;\n            FIELDS DTOC&#40;&#40;dbPARAG&#41;-&gt;DLT_DATE&#41;  ,;\n                   &#40;dbPARAG&#41;-&gt;DLT_PARX  ,;\n                   STR&#40;&#40;&#40;dbPARAG&#41;-&gt;DLT_PARN &#41;&#41; ,;\n                   STR&#40;&#40;dbPARAG&#41;-&gt;DLT_TIMHX,10,4&#41; ,;\n                   STR&#40;&#40;dbPARAG&#41;-&gt;DLT_POSO,10,1&#41;  ,;\n                   STR&#40;&#40;dbPARAG&#41;-&gt;DLT_TOT ,10,2&#41;  ,;\n                   &#40;dbPARAG&#41;-&gt;DLT_PERIG  ;\n             ALIAS  &#40;dbPARAG&#41;          ;\n             SELECT STR&#40;DLT_PEL,5&#41; FOR STR&#40;cTMP_PEL,5&#41; TO STR&#40;cTMP_PEL,5&#41; ;\n            ID 101                    ;\n            OF    prgDLG              ;\n            FIELDSIZES 80, 50, 80 ,100 ,100 ,100 ,300 ;\n           &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n[/code:2a277f7m]','',0,'QIA=','2a277f7m',1,0,'',139,0,0),(3239,740,3,31,0,'84.15.27.93',1134206481,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ecmz54ww]\n\nThe AMD 64 is a very fast machine. Maybe it needs some time to peform some operations and the function call helped there.\n\nGlad to know you solved it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:ecmz54ww]\n\n   Hello Antonio ! Can you advice , what function I can use instead MsgWait . I don\'t want to see that short \"blink\" of dissapering MsgWait() function .\n\n   With best regards !','',0,'gA==','ecmz54ww',1,0,'',31,0,0),(3240,846,6,21,0,'80.58.49.235',1134206656,1,0,1,1,1,1,'','','Hola,\n\nA mi se me producia ese problema cuando el get contenia espacios. \nPor ejemplo, lo tengo inicializado a 60 espacios e intento pegar cualquier cosa en él. \nPara probar si es eso, selecciona todo el contenido del get (los espacios) antes de pegar, de esa forma se pegará el contenido sin tener en cuenta los espacios.\n\nPara evitar tener que seleccionar el campo antes de pegar he realizado los siguientes cambios en la clase tget:\n\nHe redefinido la clase RButtonDown para que no llame a las opciones por defecto (mis clientes usan botón derecho para copiar/pegar):\n[code:3185bmx9]METHOD RButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TGGet\n   local oMenu, oClp, cText\n   if GetFocus&#40;&#41; != &#58;&#58;hWnd\n      &#58;&#58;SetFocus&#40;&#41;\n      SysRefresh&#40;&#41;              // In case there is a VALID somewhere\n      if GetFocus&#40;&#41; != &#58;&#58;hWnd\n         return nil\n      endif\n   endif\n\n   if &#58;&#58;bRClicked != nil\n      return Eval&#40; &#58;&#58;bRClicked, nRow, nCol, nFlags &#41;\n   endif\n\n   DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n   MENU oMenu POPUP\n      if &#58;&#58;SendMsg&#40; EM_UNDO &#41; != 0\n         #ifndef __XPP__\n            MENUITEM &quot;Deshacer&quot; ACTION &#58;&#58;UnDo&#40;&#41;\n         #else\n            MENUITEM &quot;Deshacer&quot; ACTION &#58;&#58;TGet&#58;UnDo&#40;&#41;\n         #endif\n      else\n         #ifndef __XPP__\n            MENUITEM &quot;Deshacer&quot; ACTION &#58;&#58;UnDo&#40;&#41; DISABLED\n         #else\n            MENUITEM &quot;Deshacer&quot; ACTION &#58;&#58;TGet&#58;UnDo&#40;&#41; DISABLED\n         #endif\n      endif\n\n      SEPARATOR\n\n      if ! Empty&#40; &#58;&#58;GetSel&#40;&#41; &#41; &#46;and&#46; !&#58;&#58;lReadOnly\n         #ifndef __XPP__\n            MENUITEM &quot;Cortar&quot;  ACTION &#58;&#58;Cut&#40;&#41;\n         #else\n            MENUITEM &quot;Cortar&quot;  ACTION &#58;&#58;TGet&#58;Cut&#40;&#41;\n         #endif\n      else\n         #ifndef __XPP__\n            MENUITEM &quot;Cortar&quot;  ACTION &#58;&#58;Cut&#40;&#41; DISABLED\n         #else\n            MENUITEM &quot;Cortar&quot;  ACTION &#58;&#58;TGet&#58;Cut&#40;&#41; DISABLED\n         #endif\n      endif\n\n      if ! Empty&#40; &#58;&#58;GetSel&#40;&#41; &#41;\n         #ifndef __XPP__\n            MENUITEM &quot;Copiar&quot; ACTION &#58;&#58;Copy&#40;&#41;\n         #else\n            MENUITEM &quot;Copiar&quot; ACTION &#58;&#58;TGet&#58;Copy&#40;&#41;\n         #endif\n      else\n         #ifndef __XPP__\n            MENUITEM &quot;Copiar&quot; ACTION &#58;&#58;Copy&#40;&#41; DISABLED\n         #else\n            MENUITEM &quot;Copiar&quot; ACTION &#58;&#58;TGet&#58;Copy&#40;&#41; DISABLED\n         #endif\n      endif\n\n      if ! Empty&#40; oClp&#58;GetText&#40;&#41; &#41; &#46;and&#46; !&#58;&#58;lReadOnly\n         #ifndef __XPP__\n            MENUITEM &quot;Pegar&quot; ACTION &#58;&#58;Paste&#40;&#41;\n         #else\n            MENUITEM &quot;Pegar&quot; ACTION &#58;&#58;TGet&#58;Paste&#40;&#41;\n         #endif\n      else\n         #ifndef __XPP__\n            MENUITEM &quot;Pegar&quot; ACTION &#58;&#58;Paste&#40;&#41; DISABLED\n         #else\n            MENUITEM &quot;Pegar&quot; ACTION &#58;&#58;TGet&#58;Paste&#40;&#41; DISABLED\n         #endif\n      endif\n\n      if ! Empty&#40; &#58;&#58;GetSel&#40;&#41; &#41; &#46;and&#46; !&#58;&#58;lReadOnly\n         #ifndef __XPP__\n            MENUITEM &quot;Borrar&quot; ACTION &#58;&#58;Del&#40;&#41;\n         #else\n            MENUITEM &quot;Borrar&quot; ACTION &#58;&#58;TGet&#58;Del&#40;&#41;\n         #endif\n      else\n         #ifndef __XPP__\n            MENUITEM &quot;Borrar&quot; ACTION &#58;&#58;Del&#40;&#41; DISABLED\n         #else\n            MENUITEM &quot;Borrar&quot; ACTION &#58;&#58;TGet&#58;Del&#40;&#41; DISABLED\n         #endif\n      endif\n\n      SEPARATOR\n      #ifndef __XPP__\n         MENUITEM &quot;Imprimir&quot; ACTION &#58;&#58;Print&#40;&#41;\n      #else\n         MENUITEM &quot;Imprimir&quot; ACTION &#58;&#58;TGet&#58;Print&#40;&#41;\n      #endif\n      SEPARATOR\n\n      #ifndef __XPP__\n         MENUITEM &quot;Seleccionar todo&quot; ACTION &#58;&#58;SelectAll&#40;&#41;\n      #else\n         MENUITEM &quot;Seleccionar todo&quot; ACTION &#58;&#58;TGet&#58;SelectAll&#40;&#41;\n      #endif\n   ENDMENU\n   ACTIVATE POPUP oMenu AT nRow, nCol OF Self\nreturn 0[/code:3185bmx9]\n\nY lo mas importante he cambiado en el método Paste la siguiente instrucción \ncTemp = ::GetText()\npor\ncTemp = Alltrim(::GetText())\n\n[code:3185bmx9]METHOD Paste&#40; cText &#41; CLASS TGet\n\n   local oClp\n   local cTemp\n\n   DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n\n   if cText == nil\n      if oClp&#58;Open&#40;&#41;\n         cText = oClp&#58;GetText&#40;&#41;\n         oClp&#58;Close&#40;&#41;\n      else\n         MsgAlert&#40; &quot;The clipboard is not available!&quot; &#41;\n      endif\n   endif\n\n   if ! Empty&#40; cText &#41;\n      cTemp = Alltrim&#40;&#58;&#58;GetText&#40;&#41;&#41;    //&#46;&#46;&#46; fgondi\n      do case\n         case ValType&#40; cTemp &#41; == &quot;C&quot;\n              &#58;&#58;oGet&#58;Buffer = SubStr&#40; cTemp, 1, &#58;&#58;nPos - 1 &#41; + Trim&#40; cText &#41; + ;\n                        SubStr&#40; cTemp, &#58;&#58;nPos &#41;\n\n         case ValType&#40; cTemp &#41; == &quot;N&quot;\n              cTemp = cValToChar&#40; cTemp &#41;\n              &#58;&#58;oGet&#58;Buffer = Val&#40; SubStr&#40; cTemp, 1, &#58;&#58;nPos - 1 &#41; + Trim&#40; cText &#41; + ;\n                             SubStr&#40; cTemp, &#58;&#58;nPos &#41; &#41;\n\n         case ValType&#40; cTemp &#41; == &quot;D&quot;\n              cTemp = cValToChar&#40; cTemp &#41;\n              &#58;&#58;oGet&#58;Buffer = CToD&#40; SubStr&#40; cTemp, 1, &#58;&#58;nPos - 1 &#41; + Trim&#40; cText &#41; + ;\n                              SubStr&#40; cTemp, &#58;&#58;nPos &#41; &#41;\n      endcase\n\n      &#58;&#58;DispText&#40;&#41; // from buffer to screen\n\n      // EMW - the text has been changed!\n      if &#58;&#58;bChange != nil\n         Eval&#40; &#58;&#58;bChange,,, Self &#41;\n      endif\n\n   endif\n\nreturn nil[/code:3185bmx9]','',0,'AIA=','3185bmx9',1,0,'',21,0,0),(3241,848,19,52,0,'201.231.13.37',1134207971,1,0,1,1,1,1,'','','Gracias-','',0,'AIA=','2kxb43zi',1,0,'',52,0,0),(3243,707,7,262,0,'83.97.169.215',1134213071,1,0,1,1,1,1,'','','Algún avance en el tema ? ( me es importante , pues la buena apariencia de un programa de gestión depende en gran medida de la entrada de números correcta )','',0,'AIA=','303e63l7',1,0,'',262,0,0),(3244,740,3,6,0,'87.3.228.196',1134218383,1,0,1,1,1,1,'','','SysWait()\n\nEMG','',0,'AIA=','3gc7yaxy',1,0,'',6,0,0),(3245,852,6,57,0,'81.34.172.223',1134220227,1,0,1,1,1,0,'','Comportamiento extraño con tSmtp.','Antonio \nUtilizando el ejemplo testsmtp, FWH27 y la configuración de mi servidor de correo, ciertas direcciones de correo no reciben los mensajes que envio, por ejemplo una cuenta en gmail. Lo curioso es que el envio se realiza, o por lo menos ::bDone así lo recibe.\n\n¿Alguna idea?\n\nSaludos \nToni Sales','',0,'AIA=','2m61soms',1,0,'',57,0,0),(3246,740,3,2,0,'80.58.2.107',1134220810,1,0,1,1,1,1,'','','You may try with SysRefresh() also.','',0,'AIA=','10e1oxqr',1,0,'',2,0,0),(3247,853,6,36,0,'200.113.56.235',1134224098,1,0,1,1,1,0,'','xharbour 0.99.51','Estimados\n\n  Estoy tratando de pasarme a xharbour 0.99.51\npero me esta arrojando este error?\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\nTengo FWH2.4, borland 5.5, xharbour 0.99.51\n\nSerá que la version 0.99.51 no es para fwh2.4?\n\n\nSaludos\nPatricio','',0,'AIA=','29fgz65r',1,0,'',36,0,0),(3248,842,6,53,0,'200.66.175.150',1134230816,1,0,1,1,1,1,'','','José Luis:\n\nTe agrdezco infinitamente el consejo pero, si miras nuevamente\nveras que no, no estan en orden decreciente.\n\n244910 \n246110 \n2A261 \n2F5010 \n\nSin embargo he probado según tu consejo y tampoco funciona.\n\nUn abrazo, Armando','',0,'AIA=','4r83zpkv',1,0,'',53,0,0),(3249,842,6,123,0,'83.50.56.75',1134233487,1,0,1,1,1,0,'','','Armando,\n\n\nUps... cierto.. me fijé en la columna de abajo en vez de la de arriba. \n\n \n\nSaludos,\nJosé Luis Capel','',0,'AIA=','afren9ll',1,0,'',123,0,0),(3250,842,6,21,0,'81.172.124.139',1134235705,1,0,1,1,1,1,'','','Hola,\n\nQue yo sepa no existe ninguna forma, pero por una razón lógica, FW lo esta acciendo correctamente. Es en los Mainframe donde el orden es incorrecto.\n\nAl ordenar un campo alfanumérico el orden tiene que ir de izquierda a derecha según su código ascii, por eso lo ordena de esa forma:\n24...\n24...\n2A..\n2F...\n\nLo considero que no debe hacer es o bien tener en cuenta las longitudes de las cadenas, o bien ordenar antes letras que números\n\nPuedes grabarlos justificandolos a la derecha, pero quedara:\n[code:cb789w5k]\n 2A261 \n244910 \n246110 \n2F5010[/code:cb789w5k]','',0,'AIA=','cb789w5k',1,0,'',21,0,0),(3251,740,3,31,0,'84.15.27.93',1134237151,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3ptm6ina]You may try with SysRefresh() also.[/quote:3ptm6ina]\n\n  Thank you , Antonio and Enrico ! I choosed SysWait() . It seems that this is working fine . \n\n   With best regards !','',0,'gA==','3ptm6ina',1,0,'',31,0,0),(3252,707,7,2,0,'80.58.2.107',1134238347,1,0,1,1,1,1,'','','Jose Luis,\n\nDisculpanos el retraso en responder. Se nos había pasado.\n\nEn tutor05.prg ya se usa el picture \"999\" y el comportamiento es correcto. ¿ Puedes indicarnos como reproducir el error ó qué hacer ? gracias.','',0,'gA==','3jah9d8f',1,0,'',2,0,0),(3253,853,6,2,0,'80.58.2.107',1134238430,1,0,1,1,1,1,'','','Patricio,\n\nSi, no es compatible con esa versión de FWH. Para usar la versión más reciente de xHarbour precisas la version 2.7 de FWH.','',0,'gA==','3qmwtsbg',1,0,'',2,0,0),(3254,849,6,75,0,'83.36.127.94',1134245276,1,0,1,1,1,0,'','','<!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nPues me da error al abrir el zip. Dice \"archivo multipartes o dañado\"\nSaludos.','',0,'gA==','2nw8q8oh',1,0,'',75,0,0),(3255,847,3,303,0,'68.7.28.54',1134254303,1,0,1,1,1,0,'','','Jeff,\n\nAs Antonio mentioned, TDatabase uses opitmistic locking. If you want to change this to pessimistic locking, you can modify the load() method to lock the record and the save method to unlock. You will also have to remember to unlock on cancel and you need to keep in mind that if the user just wants to look at the data, the record is going to get locked.\n\nI [b:2xw7ekoo]highly[/b:2xw7ekoo] recommend that you subclass the database class and use it in your program rather than calling TDatabase directly. This way if you decide to change the behavior of the database class you can do it in the subclass and it will be used throughout your application. Just start with this:\n\n[code:2xw7ekoo]class TXData from TDatabase\nendclass[/code:2xw7ekoo]\n\nThat is all you need. Then use the TXData class instead of TDatabase. Should you decide to change the load method you can just add it to TXData.\n\n[code:2xw7ekoo]class TXData from TDatabase\n   method load\nendclass\n\nmethod load&#40;&#41;\n   &#58;&#58;reclock&#40;&#41;\nreturn super&#58;load&#40;&#41;[/code:2xw7ekoo]\n\nI have oversimplifed this a little--you will have to handle a lock failure if it is already locked.\n\nI have been using optimistic locking for many years without any problems.\n\nYou may also want to read the articles I wrote on using database classes. They are available here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\n\nJames','',0,'QIA=','2xw7ekoo',1,0,'',303,0,0),(3256,839,3,303,0,'68.7.28.54',1134254463,1,0,1,1,1,0,'','','Jeff,\n\nBefore I gave up I would check to see if it works without a wildcard. It worked for me, but I can\'t remember, perhaps I only used it in 16bit apps.\n\nJames','',0,'QIA=','1kpd1xmr',1,0,'',303,0,0),(3257,852,6,2,0,'80.58.2.107',1134259193,1,0,1,1,1,1,'','','Toni,\n\nEnvias algún documento adjunto ?','',0,'QIA=','2f6su5qu',1,0,'',2,0,0),(3258,854,3,69,0,'65.92.79.84',1134263737,1,0,1,1,1,0,'','Please Explain why this won\'t work','Hi,\n\nIn my app I have a dialog that has 10 \"parts\" listed on the screen.\nPart1, Part2 .... Part10\n\nI have a function that will work with these PART fields (using Tdatabase)\n\nFunction MyFunction( cNumber )     //cNumber can be from \"1\" to \"10\"\n   Local cTempPart\n   cTempPart :=  oPartsDBF:Part&amp;cNumber  //This works\n\n   oPartsDBF:Part&amp;cNumber   := cSomeText   //This does not error but will return an empty string.\n\nReturn .t.\n\nIf I use an actual number  ( oPartsDBF:Part1   := cSomeText ) it works.\n\nWhy can I use  the  &amp;cNumber  to store a value to cTempPart but can\'t do it the other way.\n\n\n\nThanks in advance,\nJeff','',0,'QIA=','29al9vub',1,0,'',69,0,0),(3259,855,3,69,0,'65.92.79.84',1134267652,1,0,1,1,1,0,'','Function Similar to MsgRun()','Hi,\n\nIs there a function similar to MsgRun() that will display a message WHILE a user function is being run and keep the message there until the user function is completed.\n\nI\'ve tried MsgRun() but it seems to display the message AFTER the user function has been completed.\n\nThanks,\nJeff','',0,'QIA=','1n3p3vhu',1,0,'',69,0,0),(3260,181,6,70,0,'201.135.174.27',1134270618,1,0,1,1,1,1,'','Me la puedes enviar a admsoporte@prodigy.net.mx','[quote=&quot;George&quot;:2ffmjsvp]Yannis,\n\nSi quieres te la puedo enviar a tu email, enviame un email y te hago un reply con el attachment.\n\nA proposito, la clase trabaja PERFECTA! con Harbour y xHarbour de libre uso (Mas FWH) . El problema solo se presenta cuando uso el xBuilder con la version comercial de xHarbour. \n\nEsta clase es un excelente aporte a la comunidad Fivewin de parte de Cesar Lozada\n\n\nSaludos, \n\n\nGeorge[/quote:2ffmjsvp]','',0,'gA==','2ffmjsvp',1,0,'',70,0,0),(3261,855,3,74,0,'190.48.233.38',1134276145,1,0,1,1,1,1,'','','Jeff:\n\n       I user msgrun() this way and I don\'t have that problem, the message is correctly displayed:\n\nMSGRUN(\"Esperando respuesta fiscal...\",\"Conectando con IFiscal\",{|| ejecuta(cticket,cDir,wLfact)})\n\n       Maybe a sysrefresh() after the msgrun() will help.\n\nRegards,','',0,'gA==','2c8wxts6',1,0,'',74,0,0),(3262,843,2,74,0,'190.48.233.38',1134276706,1,0,1,1,1,1,'','','Leandro:\n\n             Si ya tenes usuario y clave solo te falta el host, que puede ser la ip del servidor, tipo 200.58.112.91 o el dominio, tipo sol1.telpin.com.ar. De la misma manera que te conectas al servidor local con localhost, 127.0.0.1 o una ip local tipo 192.168.0.1 te conectas al remoto especificando el host.\n\n              Un ejemplo con eagle1 y xharbour:\n\nFUNCTION CONECTA(cEstado,oEstado,oTimer,oIco)\n\nLocal cHost:=\'sol1.telpin.com.ar,cUser:=\'daniel\',cPassword:=\"xxx\"\n\noMySql := TMSConnect():New()\n\noMySql:Connect( cHost, cUser, cPassword )\n\n\nSaludos,','',0,'gA==','5iwvnuep',1,0,'',74,0,0),(3263,828,2,74,0,'190.48.233.38',1134277333,1,0,1,1,1,1,'','','Felipe:\n\n          Usa vectores para la definicion del browse:\n\n   Local VEC_FIELD1 :=  {  {|| ART-&gt;COD}   ,;\n	                {  || ART-&gt;CLAVE }     ,;\n         VEC_ENC1   := { OEMTOANSI(\"C¢d.\"),;\n				 								 \" Clave\",;\n         VEC_SIZE1   := {70,109,226,77,77,64,109,73,40,110,52,52,52,90,90},;\n				 VEC_JUSTIF  := {2,2,0,2,2,2,0,0,0,0,0,2,2,0,0},;\n\n           Solo que en tu caso haces las evaluaciones necesarias y vas añadiendo posiciones a los vectores segun las bodegas que necesites, y despues en la definicion del browse usas esos vectores:\n\nREDEFINE LISTBOX oBrw fields  ID 999  OF oDlg ;\n\noBrw:SetCols( vec_field1, vec_enc1, vec_size1 )\noBrw:aJustify    :=vec_justif\n\nSaludos,','',0,'gA==','2eccnrhi',1,0,'',74,0,0),(3264,805,6,75,0,'80.39.182.69',1134294980,1,0,1,1,1,0,'','','¿Tiene que tener alguna característica especial el archivo bmp? Porque no me sale ni en el preview ni en la impresora.\n\nSaludos.','',0,'gA==','2e5pcwdx',1,0,'',75,0,0),(3265,856,3,195,0,'62.38.24.159',1134296653,1,0,1,1,1,0,'','How can make a Filter condition on TDatabase Class?','Hello to EveryOne\n\nHow can make a filter condition on TDatabase Class?\n\nAny help would be apreciate.\n\nMany Thanks\nRegards\nDionisis','',0,'gA==','563cytpy',1,0,'',195,0,0),(3266,707,7,262,0,'83.97.169.215',1134299668,1,0,1,1,1,1,'','','cambiemos el picture del 2 get numerico por \"999.99\" (decimales),\nlanzamos el tutor05 pasamos los campos con enter y llegams al 2 get numerico introducionas 7.3 (por ejemplo) y damos enter en el get queda 710.30.\nsin decimales ocurre algo parecido un picture \"9999999\" , con variable asignada de 10 , si introduzco un 5 me queda 510 \n¿? \nSaludos.','',0,'gA==','xk6gv3zm',1,0,'',262,0,0),(3267,857,16,2,0,'80.58.2.107',1134300861,1,0,1,1,1,1,'','New Harbour for Pocket PC build and new FWPPC','FWPPC has been built using the current Harbour CVS. \n\n[b:1d6nl1ys]IMPORTANT:[/b:1d6nl1ys] Please recompile all your PRGs, and also modify your batch or make files to use DBFFPT.lib and HBSIX.LIB instead of DBFDBT.lib. \n\nPlease download and reinstall Harbour for Pocket PC and FWPPC too. It is also highly recommended to rebuild your indexes. \n\n***\n\nFWPPC ha sido construido con el CVS más actual de Harbour.\n\n[b:1d6nl1ys]IMPORTANTE:[/b:1d6nl1ys] Por favor recompilad todos vuestros PRGs, y también modificad vuestros ficheros batch ó make para usar DBFFPT.lib y HBSIX.LIB en vez de DBFDBT.lib. \n\nPor favor, descargad y reinstalar Harbour para Pocket PC y FWPPC también. Tambien es recomendable reconstruir vuestros índices.','',0,'QA==','1d6nl1ys',1,0,'',2,0,0),(3268,858,4,2,0,'80.58.2.107',1134300960,1,0,1,1,1,1,'','New Harbour for Pocket PC build and new FWPPC build too','Please review \"whatsnew\" section on these forums for more details:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=857\">http://fivetechsoft.com/forums/viewtopic.php?t=857</a><!-- m -->','',0,'QA==','28j9tp8y',1,0,'',2,0,0),(3269,859,7,2,0,'80.58.2.107',1134301131,1,0,1,1,1,1,'','Nuevo Harbour para Pocket PC y nuevo FWPPC también','Por favor revisad la sección \"whatsnew\" en estos foros para más detalles: \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=857\">http://fivetechsoft.com/forums/viewtopic.php?t=857</a><!-- m -->','',0,'QA==','25qif220',1,0,'',2,0,0),(3270,707,7,2,0,'80.58.2.107',1134301510,1,0,1,1,1,1,'','','Jose Luis,\n\nAcabamos de publicar un nuevo Harbour para Pocket PC y un nuevo FWPPC. Ojo que hay que reinstalar Harbour!\n\nHemos hecho lo que comentas y parece funcionar bien. Eso si, lo que ocurre, es que hay que borrar los números que hay en el GET.\n\nPor favor, pruébalo de nuevo con la nueva versión y me comentas. Gracias.','',0,'QA==','3hckh2ic',1,0,'',2,0,0),(3271,854,3,2,0,'80.58.2.107',1134301902,1,0,1,1,1,1,'','','Jeff,\n\nBetter use the __ObjSendMsg() function:\n\nInstead of cTempPart := oPartsDBF:Part&amp;cNumber:\n\ncTempPart := __ObjSendMsg( oPartsDBF, \"Part\" + cNumber )\n\nand instead of oPartsDBF:Part&amp;cNumber := cSomeText:\n\n   __ObjSendMsg( oPartsDBF, \"_Part\" + cNumber, cSomeText )\n\nNotice the use of \"_\" before \"Part\" when assigning.','',0,'QA==','nwex5k2n',1,0,'',2,0,0),(3272,856,3,2,0,'80.58.2.107',1134303175,1,0,1,1,1,1,'','','Dionisis,\n\nYou may implement and try this new Class TDataBase Method SetFilter():\n\nMETHOD SetFilter( bCondition, cCondition ) INLINE If( bCondition != nil, ( ::nArea )-&gt;dbSetFilter( bCondition, cCondition ), ( ::nArea )-&gt;dbClearFilter() )\n\nExample:\n\noDbf:SetFilter( { || oDbf:Load(), oDbf:Age &gt; 20 }, \"Age &gt; 20\" )','',0,'QA==','t9s45osm',1,0,'',2,0,0),(3273,830,1,2,0,'80.58.2.107',1134303715,1,0,1,1,1,1,'','','You may review samples\\gallery\\onemany.prg for a working sample.\n\nPlease notice the use of oBrw:SetFilter( ... ) in the sample.','',0,'QA==','z7bso8or',1,0,'',2,0,0),(3274,849,6,5,0,'80.58.41.235',1134304842,1,0,1,1,1,1,'','','Vuelve a bajarte el ZIP, tiene pinta de ser ese el problema. A mí me va perfecto...','',0,'QA==','2ucx07ui',1,0,'',5,0,0),(3275,856,3,195,0,'62.38.18.19',1134306903,1,0,1,1,1,0,'','','Hello Antonio\n\nUnfortunately this new method dosen\'t Works. I get a compiler error\n Parse Error At (  (shownig  the (::nArea)-&gt;) \n\nAny Suggestion to overcome this ?\nCompiler xHarbour Commercial October 2005 release\nFWH 2.7 \n\nMany Thanks\nDionisis','',0,'QA==','34f0zrfs',1,0,'',195,0,0),(3276,707,7,262,0,'83.97.169.215',1134308499,1,0,1,1,1,1,'','','Ahora funciona perfectamente . Era un error mio o se ha coregido algo ?.\nSaludos y felicidades por el soporte.','',0,'QA==','15kleflt',1,0,'',262,0,0),(3277,860,6,124,0,'201.252.202.215',1134310007,1,0,1,1,1,0,'','SOLO PARA ARGENTINOS ( CONTROLADOR FISCAL )','Amigos:\n\nTengo el software ERP de la empresa funcionando bajo fivewin para clipper, debido a que no puedo correrlo bajo XP por un error de compatibilidad insalvable hasta ahora, me veo obligado a pasarlo a [x]Harbour.\n\nCómo han manejado el tedioso tema de los controladores fiscales?, qué biliotecas han usado?\n\nOtra pregunta relacionada: ¿Harbour o xHarbour? ¿qué compiladores C andan bien con estos?\n\nMuchas gracias!\nQuedo a la espera.\nSaludos.\nRicardo Bécares.\nRosario.','',0,'','3j8h9nno',1,0,'',124,0,0),(3278,861,7,262,0,'83.97.169.215',1134313037,1,0,1,1,1,1,'','Problemas en el nuevo build','Antonio al escribir en los gets en el emulador lanza un mensaje de error :\nVentana de Error :\n    Titulo : Device emulator\n    Texto:  Error The emulation layer does not support the functionality  that is being accessed    \nAceptar y se cierra el emulador , en el pocket va perfectamente .\nSaludso.','',0,'','kbii5qxw',1,0,'',262,0,0),(3279,856,3,2,0,'80.58.2.107',1134313365,1,0,1,1,1,1,'','','Dionisis,\n\nOps, my mistake, sorry <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  This should be the right code:\n\nMETHOD SetFilter( bCondition, cCondition ) INLINE If( bCondition != nil, ( ::nArea )-&gt;( dbSetFilter( bCondition, cCondition ) ), ( ::nArea )-&gt;( dbClearFilter() ) )','',0,'','3ar9svyq',1,0,'',2,0,0),(3280,861,7,2,0,'80.58.2.107',1134313463,1,0,1,1,1,1,'','','Jose Luis,\n\nAlgún ejemplo en concreto de los que están en samples te dá ese error ? Gracias.','',0,'','2g98a3p3',1,0,'',2,0,0),(3281,707,7,2,0,'80.58.2.107',1134313600,1,0,1,1,1,1,'','','Jose Luis,\n\nComo nos hemos actualizado a la versión más reciente de Harbour, se han corregido errores que había en los GETs <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','r5mh88jl',1,0,'',2,0,0),(3282,860,6,2,0,'80.58.2.107',1134313800,1,0,1,1,1,1,'','','Ricardo,\n\nxHarbour es más popular, pero tanto Harbour como xHarbour funcionan correctamente. \n\nEn cuanto a los compiladores C, Borland es el más usado al ser gratuito, pero puedes usar el Microsoft C/C++ también y funciona muy bien.','',0,'','2yre52gn',1,0,'',2,0,0),(3283,839,3,47,0,'203.144.143.2',1134315085,1,0,1,1,1,0,'','It works for me','Dear Jeff,\n\nThis is an example that work for me.\n\nRegards,\nDutch\n\n**********************\naFiles1 = directory(\"*.db?\")\naFiles2 = directory(\"*.fpt\")\n\nif !empty(aFiles1)\n\n   aTarget:= {}\n   aSource:= {}\n\n   for n := 1 to len(aFiles1)\n       aadd(aTarget,DayOfWeek+\'\\\'+aFiles1[n][1])\n       aadd(aSource,aFiles1[n][1])\n   next\n   for n := 1 to len(aFiles2)\n       aadd(aTarget,DayOfWeek+\'\\\'+aFiles2[n][1])\n       aadd(aSource,aFiles2[n][1])\n   next\n\n   copyfiles( aSource, aTarget )\n\nendif','',0,'','7m5ittiq',1,0,'',47,0,0),(3284,855,3,47,0,'203.144.143.3',1134315628,1,0,1,1,1,0,'','','Dear Jeff,\n\nTry this example will popup window for complete function before close MsgRun().\n\nRegards,\nDutch\n\nMsgRun(\'Please Wait, Report is processing.\',,{|oDlg| ;\n        WaitRun(\'RRWRUN.EXE RREPORT \'+str(RPT_NR,3)+\' /H /B /WY /R\'+cLibrary+\' /ORROUT\'+Strim(RPT_NR,3)) } )','',0,'','1uoqnrmy',1,0,'',47,0,0),(3285,854,3,69,0,'65.92.79.84',1134315671,1,0,1,1,1,0,'','','Thanks Antonio.\n\nWorks perfectly.','',0,'','3o8egn9m',1,0,'',69,0,0),(3286,855,3,69,0,'65.92.79.84',1134315918,1,0,1,1,1,0,'','','Thanks Daniel / Dutch,\n\nI have it working ... my mistake ... I was doing it this way:\n\nMsgRun(\"Please Wait ... Generating Report\",,MyFunction()  )\n\nI left out the  {||    } \n\nThanks again.\n\nJeff','',0,'','3dmoqtur',1,0,'',69,0,0),(3287,861,7,262,0,'83.97.169.215',1134316561,1,0,1,1,1,1,'','','Antonio , parece ser problema de mi emulador , el mismo codigo aislado no daba problemas , en el programa completo si . Cerré el emulador y abri uno nuevo ( en cold boot  no en emulador restore  ) el problema parece que ya no se produce ( probablemente algo grabado en la configuración).\nSiento haber reportado un bug falso , pero si a alguien le ocurre lo mismo , ya sabe como remediarlo .\nSaludso.','',0,'','3vll0386',1,0,'',262,0,0),(3288,856,3,195,0,'62.38.29.161',1134319516,1,0,1,1,1,0,'','','Hi again Antonio.\n\nThe code pass from the compiler but when implemented on a real database i get a mass.\nAs an example i have one database named Transacs.dbf  that contain a field named MDAY and is of type date . When assigning a filter like\n [code:m7zzavs2]\n odbINSTALL&#58;SetFilter&#40;&#123;||Month&#40;odbInstall&#58;MDAY&#41;=Month&#40;Date&#40;&#41;&#41;&#125;,;\n                   &quot;Month&#40;odbInstall&#58;Mday&#41;=Month&#40;Date&#40;&#41;&#41;&quot;&#41;  \n\n MsgInfo &#40;STR&#40;odbInstall&#58;Reccount&#40;&#41;&#41;+&quot; Records Fouds&quot;&#41;\n[/code:m7zzavs2]\n\nI get  the number of 10 records. The record number of the whole database, without filtering.\nWhat i make wrong!!!\n\nMany thanks for your patience.\nRegards\nDionisis','',0,'AIA=','m7zzavs2',1,0,'',195,0,0),(3289,856,3,2,0,'80.58.2.107',1134325663,1,0,1,1,1,1,'','','Dionisis,\n\nYou have to reload the database object from the codeblock:\n\n[code:32mcdfup]\nodbINSTALL&#58;SetFilter&#40;&#123;||odbINSTALL&#58;Load&#40;&#41;, Month&#40;odbInstall&#58;MDAY&#41;=Month&#40;Date&#40;&#41;&#41;&#125;,; \n                   &quot;Month&#40;odbInstall&#58;Mday&#41;=Month&#40;Date&#40;&#41;&#41;&quot;&#41;  \n\n MsgInfo &#40;STR&#40;odbInstall&#58;Reccount&#40;&#41;&#41;+&quot; Records Fouds&quot;&#41;[/code:32mcdfup]','',0,'AIA=','32mcdfup',1,0,'',2,0,0),(3290,862,3,266,0,'210.186.95.130',1134325945,1,0,1,1,1,1,'','folder not painted','Hi,\n\nI compile/link sample testfld.prg, testfld2.prg,etc., and generate its exe.\n\nBut all folder control not painted, other controls ok, for all either @nR,nC FOLDER or REDEFINE FOLDER.\n\nI use Harbour/bcc55 and the buildh.bat to compile single prg only.\n\nRegards\nHoe','',0,'AIA=','qihmznjw',1,0,'',266,0,0),(3291,861,7,2,0,'80.58.2.107',1134326237,1,0,1,1,1,1,'','','Jose Luis,\n\nMe alegro de que ya esté bien. Si, a veces hay que reiniciar el emulador.','',0,'AIA=','3dsb412q',1,0,'',2,0,0),(3292,862,3,2,0,'80.58.2.107',1134326486,1,0,1,1,1,1,'','','Tnhoe,\n\nPlease check that you use \"SysTabControl32\" instead of \"TFolder\" in your resources.\n\nIt looks as the RC files are not sync with the Class TFolder version.','',0,'AIA=','rk0cuom6',1,0,'',2,0,0),(3293,849,6,75,0,'80.39.182.69',1134329446,1,0,1,1,1,0,'','','Pues me sigue dando el mismo error por muchas veces que lo descargue. <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->','',0,'AIA=','3g6xuk4z',1,0,'',75,0,0),(3294,856,3,195,0,'62.38.27.68',1134333252,1,0,1,1,1,0,'','','Antonio\n\nThis method works but it is usefull with Browsers and not to namipulate directly the aBuffer or to count the length of a filetered database.\nWhat i mean is that after applying the  method SetFilter(). The lenght of database not varies. I get the same Reccout() with or without the SetFilter() method. Nothing happens the only defference i noticed is  when i call the Browse() function  it displays the correct portion of filtered database.\n\n\nThose are my observations for the SetFilter() method. I giveup and look for another approach.I know that is difficult but i hope to deal with this difficult situation. \n\nRegards and goodnight\nDionisis','',0,'AIA=','bhdpvd9u',1,0,'',195,0,0),(3295,829,6,73,0,'201.132.240.77',1134335773,1,0,1,1,1,0,'','','Gracias jose luis, le echare el vistazo','',0,'AIA=','11q8zwyp',1,0,'',73,0,0),(3296,863,3,339,0,'200.216.146.221',1134338804,1,0,1,1,1,0,'','How create DLL With XHARBOUR','HI Friend´s \n\n    How create Dll WITH xharbour..\n\nthe ILINK32 display error non public Function','',0,'AIA=','3l01ihvg',1,0,'',339,0,0),(3297,856,3,2,0,'80.58.2.107',1134340037,1,0,1,1,1,1,'','','Dionisis,\n\nYou should use a temporary index created with a FOR clause. Its the best way.','',0,'AIA=','273z0kux',1,0,'',2,0,0),(3298,863,3,2,0,'80.58.2.107',1134340200,1,0,1,1,1,1,'','','Mauricio,\n\nWhat kind of DLL do you want to create ? There are three types:\n\n1. Self contained DLLs: Its an entire EXE built as a DLL.\n\n2. pcode DLLs: Small pcode DLLs accessible from an EXE.\n\n3. Virtual machine DLLs: The entire virtual machine is inside the DLL and the EXE is small and contains just the pcode.','',0,'AIA=','390ptv6q',1,1134372589,'',2,1,0),(3299,863,3,339,0,'200.216.146.221',1134340560,1,0,1,1,1,0,'','','THANKS ANTONIO..\n\n  i need create one DLL to USING FIVEWIN FUNCTIONS VIA COBOL..','',0,'AIA=','hi44wui0',1,0,'',339,0,0),(3300,864,2,347,0,'201.246.121.177',1134342687,1,0,1,1,1,0,'','L I S T B O X      (Espero que me Entiendan Ahora)','Bueno amigos a lo mejor no me explique bien, resulta que tengo 2 base de datos una con bodegas otra con articulos, la base articulos la tengo definida asi con sus campos\ncod_Art,Det_Art,Pre_Art,Bod_001,Bod_002,Bod_003, hasta la Bod_010 y la base bodega\nCod_Bod,Det_Bod \nen el programa lo tengo definido hasta 10 bodegas,\nBueno si existe una bodega tiene que ser asi:\n\nBase ARTICULO\nREDEFINE LISTBOX oLbx FIELDS Cod_Art,Det_Art,Bod_001;\nsi tengo dos\nREDEFINE LISTBOX oLbx FIELDS Cod_Art,Det_Art,Bod_001,Bod_002;\nsi tengo tres\nREDEFINE LISTBOX oLbx FIELDS Cod_Art,Det_Art,Bod_001,Bod_002,Bod_003;\ny asi si existiera hasta 10\nPero esto quiero que el sistema detecte las bodegas y ponga las segun existan\n\nEspero que me Entiendan\nSaludos','',0,'AIA=','ooqkyqje',1,0,'',347,0,0),(3301,865,6,52,0,'201.231.13.37',1134346889,1,0,1,1,1,1,'','Dialogos no tan cuadrados....','Amigos,\n\nQuiero comenzar a darle a mis aplicaciones una nueva cara, y queria saber como tengo que encarar el tema para poder hacer que los dialogos sean mostrados mas redondo en sus corner.\n\nComo encaro este planteo?\n\nGracias.','',0,'AIA=','37vrdfpa',1,0,'',52,0,0),(3302,866,6,295,0,'201.222.157.171',1134349091,1,0,1,1,1,1,'','de FW CLIPPER A FWH ..TENGO ALGUNAS DIFICULTADES FAVOR AYU..','Estimados Amigos: estoy migrando una aplicación de FW CLIPPER A FWH\nejecuté los ejemplos que vienen sin problemas pero tengo las siguientes dudas:\ndebo colocar en la cabecera del menu principal de la aplicación alguna clausula?\ncomo enlazo los prgs sin usar verce? (antes con el lnk y el rmk)\n\nal ejecutar el buildh.bat al prg principal aparece el error \"ambiguos reference\" haciendo alusion a nombres de recursos y prg\'s.\n\nDE ANTEMANO GRACIAS POR SUS COMENTARIOS\nSALUDOS','',0,'AIA=','2ikpqb6q',1,0,'',295,0,0),(3303,867,3,15,0,'203.73.98.17',1134357310,1,0,1,1,1,0,'','TO: Antonio, TGet problem with WinXP Themes for 2 bytes?','Hello Antonio,\n\nI sent to you TGet samples and any solution way?\n\nRichard','',0,'AIA=','3ft83ibb',1,0,'',15,0,0),(3304,849,6,123,0,'83.50.56.75',1134371323,1,0,1,1,1,0,'','','Hola,\n\nSi os persisten esos problemas (a mi no me ocurren <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ) mandadme un correo y os lo remitiré (jose.luis ARROBA capelsoft.com).\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','37t4r9p9',1,0,'',123,0,0),(3305,829,6,123,0,'83.50.56.75',1134371453,1,0,1,1,1,0,'','','Francisco,\n\nEstoy preparando ejemplos para FWH [i:31yj3r5k]navegando[/i:31yj3r5k] con twbrowse/tcbrowse.  Espero tenerlos listos antes de que acabe el año <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos,\nJosé Luis Capel','',0,'IA==','31yj3r5k',1,0,'',123,0,0),(3306,866,6,2,0,'80.58.2.107',1134371807,1,0,1,1,1,1,'','','Luis,\n\n&gt; debo colocar en la cabecera del menu principal de la aplicación alguna clausula? \n\nPuedes explicar esta pregunta ? No se ve el menú ? A que cláusula te refieres ?\n\n&gt; como enlazo los prgs sin usar verce? (antes con el lnk y el rmk) \n\nSi usas makes, tienes ejemplos de makes para FWH en el directorio fwh\\makes para Borland ó Microsoft, según prefieras. \n\nSi lo que usas son ficheros BATch, entonces puedes modificar samples\\buildh.bat para usar más de un PRG facilmente:\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc\n\n%hdir%\\bin\\harbour otro.prg /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n\necho -O2 -e%1.exe -I%hdir%\\include otro.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj otro.prg, + &gt;&gt; b32.bc\n\n&gt;\nal ejecutar el buildh.bat al prg principal aparece el error \"ambiguos reference\" haciendo alusion a nombres de recursos y prg\'s.\n&gt;\n\nPor favor muéstranos aqui el mensaje completo que te aparece. Gracias.','',0,'IA==','3ekn9ehk',1,0,'',2,0,0),(3307,865,6,2,0,'80.58.2.107',1134372031,1,0,1,1,1,1,'','','Gustavo,\n\nEs algo que no te aconsejaría hacer, pero se puede hacer:\n\nEl pintado de las zonas \"no-cliente\" de la ventana se realizaría en respuesta al mensaje de Windows WM_NCPAINT. En FWH se invoca al método NcPaint() que se declara como virtual, por lo que finalmente se llama al código por defecto de Windows.\n\nTendrías que implementar el Método NcPaint( ... ) para que dibuje TODO lo que no es zona de cliente, incluyendo botones de cierre, maximizar, minimizar, etc. bordes, etc. Lo que como intuirás es una labor titánica <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'IA==','3odqhtlk',1,0,'',2,0,0),(3308,864,2,2,0,'80.58.2.107',1134372415,1,0,1,1,1,1,'','','Felipe,\n\nLa solución es llamar a una función que construya el codeblock con el contenido a mostrar:\n\n[code:3bjzfn02]\nREDEFINE LISTBOX oLbx FIELDS &quot;&quot;\n\noLbx&#58;bLine = GenColumns&#40;&#41;\n\n&#46;&#46;&#46;\n\nfunction GenColumns&#40;&#41;\n\n   local bLine\n\n   do case\n       case &#46;&#46;&#46;\n               bLine = &#123; || &#123; Cod_Art,Det_Art,Bod_001 &#125; &#125;\n\n       case &#46;&#46;&#46;\n               bLine = &#123; || &#123; Cod_Art,Det_Art,Bod_001,Bod_002 &#125; &#125;\n\n       case &#46;&#46;&#46;\n               bLine = &#123; || &#123; Cod_Art,Det_Art,Bod_001,Bod_002,Bod_003 &#125; &#125;\n       &#46;&#46;&#46;\n   endcase\n\nreturn bLine\n[/code:3bjzfn02]\n\nObserva que bLine es un codeblock que devuelve un array.','',0,'AIA=','3bjzfn02',1,0,'',2,0,0),(3310,865,6,52,0,'201.231.13.37',1134372695,1,0,1,1,1,1,'','','Pucha.\n\nPense´que seria mas facilito','',0,'AIA=','279ovbkw',1,0,'',52,0,0),(3311,863,3,2,0,'80.58.2.107',1134372711,1,0,1,1,1,1,'','','Mauricio,\n\nPlease read this Harbour\'s doc:\n\n[code:22vkzrst]\n/*\n * $Id&#58; windll&#46;txt,v 1&#46;1 2002/12/28 00&#58;32&#58;44 brianhays Exp $\n */\n\nWindows 32-bit DLLs with Harbour code\n=====================================\n\nPrograms created with Clipper or Harbour are traditionally a\nmonolithic EXE containing all executable code&#46;  This includes\nthe Virtual Machine &#40;VM&#41; and the RunTime Library &#40;RTL&#41; as well as\nyour own code&#46;  Running under Windows &#40;Win32&#41; with Harbour, you\ncan now also create and use Windows DLLs that contain PRG code&#46;\n\nHarbour supports Win32 DLLs in 3 ways&#46;\n\n  1&#41; Self-contained DLLs containing functions from any platform&#46;\n     &#40;These are not what we call a &quot;Harbour&#46;dll&quot;, although they may\n     be named that&#46; The DLL entry points are different&#46;&#41;\n     These have the VM/RTL inside them and can be used by any other\n     Windows program&#46; You can create a &#46;lib for static linking,\n     or use GetProcAddress as in any standard Win32 DLL&#46;\n     Calling Harbour/Prg functions directly is limited to\n     those that take no parameters unless you include C functions\n     in the DLL that take parameters and then call the PRG-level\n     code&#46;\n\n     To do static linking, do this to create the &#46;lib&#58;\n        implib harbour&#46;lib harbour&#46;dll\n     For the Borland C platform, use that library and import32&#46;lib\n     and cw32&#46;lib from Borland, and you are ready to go&#46;\n\n     See contrib\\delphi\\hbdll for an example of a Delphi program that can\n     use all of Harbour\'s functionality by accessing a self-contained DLL&#46;\n     BLD_SDLL&#46;BAT is used there to create the DLL&#46;\n\n\n  2&#41; PCode EXEs using a Harbour&#46;dll\n\n     A Harbour&#46;dll is designed to be called from a Harbour app&#46;\n     A pcode EXE is a small Harbour executable that does not contain the\n     VM/RTL&#46; To execute its functions, it must load and access a\n     Harbour&#46;dll&#46;\n     If you want dynamic linking, then use this to execute a Harbour\n     dynamically loaded pcode DLL function or procedure&#58;\n        HB_DllDo&#40; &lt;cFuncName&gt; &#91;,&lt;params&#46;&#46;&#46;&gt;&#93; &#41; --&gt; &#91;&lt;uResult&gt;&#93;\n\n     This lets you have all your common code in a DLL, and have lots\n     of small EXEs that use it&#46;  Realize however that, even though this\n     may be a nice way to manage your code, each EXE may\n     load its own image of the Harbour&#46;dll into memory at runtime&#46;\n     In terms of Windows memory, there may not be a benefit to using pcode\n     EXEs over monolithic EXEs&#46; But it may be a worthwhile maintenance\n     benefit to have lots of replaceable small exes&#46;\n\n  3&#41; PCode DLLs used from traditional EXEs\n     A pcode DLL does not contain the VM/RTL&#46;\n     It is a library of Harbour-compiled PRG code that uses the VM/RTL\n     of the EXE that calls it&#46;  This has the benefit of having\n     replaceable modules in DLLs that don\'t necessarily require updating\n     your EXE&#46;\n\n\nThe following is clipped from a msg by Antonio Linares to the Harbour\ndeveloper list explaining some of the details&#58;\n\nPlease notice that there are three different Windows DLL entry points&#58;\n   + source/vm/\n   * maindll&#46;c     Windows self-contained DLL entry point\n   * maindllh&#46;c    Windows Harbour DLL entry point  &#40;harbour&#46;dll&#41;\n   * maindllp&#46;c    Windows pcode DLL entry point and VM/RTL routing functions\n\n   &gt;    * maindll&#46;c     Windows self-contained DLL entry point\n   To produce Harbour code, as DLLs, that may be used\n   from other programming languages applications &#40;as VB,\n   Delphi, C++, etc&#46;&#46;&#46;&#41;\n\n   &gt;    * maindllh&#46;c    Windows Harbour DLL entry point  &#40;harbour&#46;dll&#41;\n   To produce Harbour&#46;dll, to be just used from small pcode Harbour EXEs\n\n   &gt;    * maindllp&#46;c    Windows pcode DLL entry point and VM/RTL routing\n   To produce small pcode DLLs, to be used just from Harbour EXE apps&#46;\n   maindllp&#46;c is the entry point for the Harbour pcode DLLs&#46; pcode DLLs\n   are quite small DLLs, that just contain pcode and/or C &#40;using extend\n   api&#41; functions&#46;\n\n   mainwin&#46;c is the entry point for Windows EXEs, not for DLLs&#46;\n\n   You may use maindll&#46;c, maindllh&#46;c or maindllp&#46;c based on\n   your needs&#46;\n\n   If you are looking to build a Harbour&#46;dll, then you must use\n   maindllh&#46;c\n[/code:22vkzrst]','',0,'AIA=','22vkzrst',1,0,'',2,0,0),(3312,867,3,2,0,'80.58.2.107',1134372941,1,0,1,1,1,1,'','','Richard,\n\nThe solution is to use the Class TEdit that we provided you and then start adding it method by method from Class TGet to locate where TEdit looses the two chars functionality.\n\nThe problem is that we can\'t test it here, so you have to do it there yourself.','',0,'AIA=','3kd0w3z9',1,0,'',2,0,0),(3313,852,6,57,0,'81.34.172.223',1134374429,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3kauy25z]Toni,\n\nEnvias algún documento adjunto ?[/quote:3kauy25z]\n\nHe probado de las dos formas. Te adjunto el código:\n\nfunction SendMail()\n\n   local oOutMail, cIP\n\n   oWnd:SetMsg( \"Sending Internet email...\" )\n   WSAStartup()\n   oOutMail := TSmtp():New( \"smtp.midominio.com\" ) \n   \n\n   oOutMail:bConnecting = {||oWnd:SetMsg( \"Connecting ...\" ) }\n   oOutMail:bConnected  = {||oWnd:SetMsg( \"Connected\" ) }\n   oOutMail:bDone       = { || msginfo(\"Mensaje enviado correctamente\") }\n   oOutMail:SendMail( \"a.sales@iaicom.com\",;     // From\n                      { \"toni.sales@gmail.com\" },; // To\n                      \"Dime si recibes este correo\",;    // Msg Text\n                      \"Prueba de envio correo Smtp\" ) // Subject\nreturn nil\n\n\nSaludos\nToni SAles','',0,'gA==','3kauy25z',1,0,'',57,0,0),(3314,868,2,350,0,'80.58.9.107',1134381844,1,0,1,1,1,0,'','Autocad','Hola a todos.\n\nCreo recordar algo sobre una clase para manejar archivos de Autocad. ¿Alguien sabe algo de esto?\n\nEn concreto necesito imprimir desde mi aplicación archivos DWG. Creo que con Autocad se puede hacer una conexión OLE, pero no todos los puestos desde donde se van a imprimir los planos tienen el Autocad. Estoy mirando VoloView y otras utilidades parecidas, pero de momento ando un poco perdido.\n\nSaludos','',0,'gA==','63eczps4',1,0,'',350,0,0),(3315,863,3,339,0,'200.216.146.221',1134382197,1,0,1,1,1,0,'','','THANKS ANTONIO.\n\n   I need self-contained DLL´s ..\n\n\nThanks Again \n\nmauricio','',0,'gA==','1f5x0ny8',1,0,'',339,0,0),(3316,863,3,339,0,'200.216.146.221',1134383475,1,0,1,1,1,0,'','','Where Search the Delphi Samples ?','',0,'gA==','38oyb8ai',1,0,'',339,0,0),(3317,866,6,295,0,'200.112.84.24',1134386491,1,0,1,1,1,1,'','','Antonio:\nCon relación a mi pregunta si hay algo que se deba colocar al inicio del programa principal de la aplicación, es porque hasta donde entiendo al generar la aplicación con fwh no hay que realizar ningun cambio, cierto?\n\ncon relación a los errores, esto es lo que aparece al compilar el programa principal\"Wsofnut.prg\"(con buidh.bat o con verce)\nMUCHAS GRACIAS POR TU ATENCION\nY SALUDOS\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Harbour 2.7 - November 2005         Harbour development power  ³Ü\n³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'wsofnut.prg\' and generating preprocessed output to \'wsofnut.ppo\'...\n\nw\nwsofnut.prg(521) Warning W0001  Ambiguous reference: \'ODLGA\'\n\nwsofnut.prg(524) Warning W0001  Ambiguous reference: \'DIREMP\'\n\nwsofnut.prg(529) Warning W0001  Ambiguous reference: \'ARCHI\'\n\nwsofnut.prg(530) Warning W0001  Ambiguous reference: \'DIREMP\'\n\nwsofnut.prg(535) Warning W0005  RETURN statement with no return value in function\n\nLines 537, Functions/Procedures 14\nGenerating C source output to \'wsofnut.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nwsofnut.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'UUID.LIB\'\n* Application successfully built','',0,'gA==','2jn7e5ra',1,1134430057,'',295,1,0),(3318,835,2,294,0,'190.48.3.204',1134386858,1,0,1,1,1,0,'','','Para nada, te va a funcionar todo Ok.','',0,'gA==','zmatwmc1',1,0,'',294,0,0),(3319,863,3,2,0,'80.58.2.107',1134387049,1,0,1,1,1,1,'','','Mauricio,\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b713e947/hbdll.zip.html\">http://hyperupload.com/download/b713e947/hbdll.zip.html</a><!-- m -->','',0,'gA==','1y5584et',1,0,'',2,0,0),(3320,866,6,2,0,'80.58.2.107',1134387356,1,0,1,1,1,1,'','','Luis,\n\nEsos warnings parecen ser nombres de campos a los que debieras ponerle FIELD-&gt; delante ó nombres de variables que no has declarado previamente con local ... ¿ Puedes comprobarlo ?\n\nEn cuanto a uuid.lib, parece que no tienes esa librería de Borland. Puedes descargarla desde aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/7db97434/uuid.zip.html\">http://hyperupload.com/download/7db97434/uuid.zip.html</a><!-- m -->','',0,'gA==','23ov18g7',1,0,'',2,0,0),(3321,863,3,339,0,'200.216.146.221',1134387427,1,0,1,1,1,0,'','','thanks again , antonio...\n\n\n\nmauricio','',0,'gA==','27339e85',1,0,'',339,0,0),(3322,866,6,295,0,'200.112.84.24',1134387613,1,0,1,1,1,1,'','','OK, ANTONIO LOS REVISARE Y TE CUENTO \n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nSALUDOS','',0,'gA==','2i6gehhl',1,0,'',295,0,0),(3323,860,6,147,0,'168.96.152.231',1134388253,1,0,1,0,1,1,'','','rbecares\npasame tu correo privado, gracias','',0,'gA==','1da37i2w',1,0,'',147,0,0),(3324,863,3,339,0,'200.216.146.221',1134391103,1,0,1,1,1,0,'','','dear antonio,\n\n    Bld_sdll.bat using errorsys.c  , may I using generate C VIA xharbour  With errorsys.prg ...\n\n    That´s Right ?\n\nmauricio','',0,'gA==','31xhoemv',1,0,'',339,0,0),(3325,805,6,41,0,'166.114.252.26',1134391282,1,0,1,1,1,0,'','','Hola,\n\nno, tan solo debe estar en tu archivo de recurso o si lo deseas lo puedes tener como un archivo externo \"file.bmp\" en ambos casos el codigo no varia o lo llamas con el nombre de recurso o con el nombre de archivo desde el metodo :saybitmap de la clase printer.\n\nAhora si utilizas report no he conseguido que se imprima desde recurso tan solo desde archivo, y eso no lo entiendo siendo que la clase report utiliza la clase printer.\n\nsaludos\n\nMarcelo\n\n[quote=&quot;Verhoven&quot;:23k5i8ju]¿Tiene que tener alguna característica especial el archivo bmp? Porque no me sale ni en el preview ni en la impresora.\n\nSaludos.[/quote:23k5i8ju]','',0,'gA==','23k5i8ju',1,0,'',41,0,0),(3326,868,2,78,0,'201.240.3.218',1134396465,1,0,1,1,1,0,'','','Hola Sebastian:\nTomado del foro anterior:\n\nSalu2Willi\n\n\n\nHola Foro\n\nAqui les tengo un cad completo hecjo con FWH\n\npueden bajarlo de\n<!-- m --><a class=\"postlink\" href=\"http://www.hechoenbolivia.com/quark\">http://www.hechoenbolivia.com/quark</a><!-- m -->\n\nsaludos\nArturo Tamayo Daza','',0,'gA==','933ok41g',1,0,'',78,0,0),(3327,860,6,124,0,'200.117.48.189',1134397442,1,0,1,1,1,0,'','','Mario:\n\nMi correo privado es <!-- e --><a href=\"mailto:rbecares@yahoo.com.ar\">rbecares@yahoo.com.ar</a><!-- e -->\nGracias.','',0,'gA==','3laqxa5h',1,0,'',124,0,0),(3328,805,6,168,0,'200.44.50.43',1134397823,1,0,1,1,1,0,'','','Gracias por reactivar el sitio pero algunos link no funcionan...','',0,'gA==','2d8vboew',1,0,'',168,0,0),(3329,863,3,339,0,'200.216.146.221',1134397963,1,0,1,1,1,0,'','','DEAR antonio..\n\n  How call the function MakeIndex() VIA DLL32 Command \"fivewin\".\n\nMauricio','',0,'gA==','2ro68495',1,0,'',339,0,0),(3330,860,6,124,0,'200.117.48.189',1134398107,1,0,1,1,1,0,'','','Gracias Antonio.\n\nRicardo.-','',0,'gA==','12jsanqn',1,0,'',124,0,0),(3331,181,6,43,0,'201.127.45.26',1134398237,1,0,1,1,1,0,'','','Efectivamente George.\n\n   Hay una version de webcam32 que genera un GPF, acabo de bajar una de la pagina de fivewin brasil, la cual no genera ese GPF la pagina es: <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/\">http://www.fivewin.com.br/</a><!-- m -->\n\n   Si no la encuentras mandame un mail a delgadoma70arrobayahoo.com.mx y con gusto te la envio.\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','3fk4cxbq',1,0,'',43,0,0),(3332,842,6,106,0,'85.34.123.172',1134399039,1,0,0,1,1,1,'','','Armando: prueba a hacer el indice en este modo:\nINDEX ON PADL( ALLTRIM( tucampo ), 6) TO tu_indice......\n\nSeguramente lo ordena en el modo que quieres.\n\n2A261 \n2F5010 \n244910 \n246110','',0,'gA==','25t1f1f5',1,0,'',106,0,0),(3333,868,2,350,0,'80.58.9.107',1134400820,1,0,1,1,1,0,'','','Gracias Willi, le hecharé un vistazo. \n\nSaludos','',0,'','3iwfmecf',1,0,'',350,0,0),(3334,869,4,13,0,'213.76.252.200',1134402229,1,0,1,1,1,0,'','GPF GetDeviceId','Antonio,\n\nI reinstall FwPPc. In previous version function GetDeviceId works fine. In this moment this function produce GPF error. Maybe my code is wrong ? \n\nRegards\nPawel\n\n[code:2pv2hsmm]\n#Include \'FwCe&#46;Ch\'\n\nFunction Serial &#40;&#41;\n\n   MsgInfo &#40;DeviceId &#40;&#41;&#41;   \n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n#include &lt;uniqueid&#46;h&gt;\n#include &lt;objbase&#46;h&gt;\n\n#define MAXSTR 100\n\nBOOL GetDeviceID &#40;GUID* pGuid&#41;;\n\nHB_FUNC &#40;DEVICEID&#41;\n&#123;\n   GUID Guid;\n   WCHAR szData&#91;MAXSTR&#93;;\n   char * szId = &quot;&quot;;\n\n   GetDeviceID &#40;&amp;Guid&#41;;\n   StringFromGUID2 &#40;Guid, szData, MAXSTR&#41;;\n   wcstombs &#40;szId, &#40;WCHAR *&#41; szData, MAXSTR&#41;;\n   hb_retc &#40;szId&#41;;\n   hb_xfree &#40;szId&#41;;\n&#125;\n\nBOOL GetDeviceID &#40;GUID* pGuid&#41;\n&#123;\n   BOOL fRes;\n   DWORD dwBytesReturned = 0;\n   DEVICE_ID* pDevID;\n   int wSize;\n\n   if &#40;NULL == pGuid&#41; return FALSE;\n\n   memset &#40;pGuid, 0, sizeof &#40;GUID&#41;&#41;;\n\n   pDevID = &#40;DEVICE_ID*&#41; malloc &#40;sizeof &#40;DEVICE_ID&#41;&#41;;\n   memset &#40;pDevID, 0, sizeof &#40;DEVICE_ID&#41;&#41;;\n   pDevID-&gt;dwSize = sizeof &#40;DEVICE_ID&#41;;\n\n   fRes = KernelIoControl &#40;IOCTL_HAL_GET_DEVICEID, NULL, 0, pDevID, sizeof &#40;DEVICE_ID&#41;, &amp;dwBytesReturned&#41;;\n\n   wSize = pDevID-&gt;dwSize;\n   free &#40;pDevID&#41;;\n   if &#40;&#40;FALSE != fRes&#41; || &#40;ERROR_INSUFFICIENT_BUFFER != GetLastError &#40;&#41;&#41;&#41; return FALSE;\n\n   pDevID = &#40;DEVICE_ID*&#41; malloc &#40;wSize&#41;;\n   memset &#40;pDevID, 0, sizeof &#40;wSize&#41;&#41;;\n   pDevID-&gt;dwSize = wSize;\n   fRes = KernelIoControl &#40;IOCTL_HAL_GET_DEVICEID, NULL, 0, pDevID, wSize, &amp;dwBytesReturned&#41;;\n\n   if &#40;&#40;FALSE == fRes&#41; || &#40;ERROR_INSUFFICIENT_BUFFER == GetLastError &#40;&#41;&#41;&#41; return FALSE;\n\n   BYTE* pDat = &#40;BYTE*&#41; &amp;pGuid-&gt;Data1;\n   BYTE* pSrc = &#40;BYTE*&#41; &#40;pDevID&#41; + pDevID-&gt;dwPresetIDOffset;\n   memcpy &#40;pDat, pSrc, pDevID-&gt;dwPresetIDBytes&#41;;\n   pDat +=  pDevID-&gt;dwPresetIDBytes;\n   pSrc = &#40;BYTE*&#41; &#40;pDevID&#41; + pDevID-&gt;dwPlatformIDOffset;\n   memcpy &#40;pDat, pSrc, pDevID-&gt;dwPlatformIDBytes&#41;;\n\n   return TRUE;\n&#125;\n\n#pragma ENDDUMP\n[/code:2pv2hsmm]','',0,'AIA=','2pv2hsmm',1,0,'',13,0,0),(3335,870,3,51,0,'80.122.88.242',1134402260,1,0,1,1,1,0,'','webbrowser control','As the FW-browser is limited in design I thought of using a web browser control for showing data.\nIs this posible?\n\nThis is what I want to do:\n\n[url]www.atzwanger.com/rechnung.jpg\n[/url]\n\nI think with html you could have a better design.\nThanks in advance Otto','',0,'','1mp8v8as',1,0,'',51,0,0),(3336,491,6,203,0,'200.107.17.238',1134403024,1,0,1,1,1,0,'','Problemas DBCOMBO','Hola Fernando mi nombres es Oscar Maldonado no se si resolviste tu porblema por que yo tengo el mismo y me gustaria saber si alguien me puede ayudar','',0,'','16n1e7pj',1,0,'',203,0,0),(3337,181,6,171,0,'24.147.25.226',1134403129,1,0,1,1,1,0,'','','Marcos\n\nGracias por la informacion, pero no encontre la Clase webcam. A proposito se ve muy bien, y con mucha informacion el website, si pudieran ponerlos tambien en español o ingles seria interesante.\n\nSaludos\n\n\nGeorge','',0,'','27ln5vdu',1,0,'',171,0,0),(3338,866,6,295,0,'201.246.201.220',1134407912,1,0,1,1,1,1,'','','antonio:\n\nEste es el codigo mas simplificado, porqué me sigue apareciendo el \"warning ambiguous\" que te muestro a continuación del código\n\nsaludos y gracias \n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\nfunction Main()\n\n	Request DBFNTX\n  RDDSetDefault(\"DBFNTX\")\n\n\n	SET _3DLOOK OFF\n\n  DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;\n      TITLE \"Sofnut Analisis Encuestas Alimentarias\" ;\n      MENU  BuildMenu()\n   SET MESSAGE OF oWnd  TO \"FiveWin - The xBase revolution\" CENTERED ;\n      CLOCK DATE KEYBOARD\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n  LOCAL oMenu\n	LOCAL lSalida\n	Public ALFA :=\"ABCDEFGHIJKLMNOPQRSTUVWXYZ\"\n	Public LLAVE:=.F.\n\n	MENU oMenu\n      MENUITEM \"&amp;Tablas\"\n      MENU\n\n		MENUITEM \"&amp;Mantención Alimentos\" ACTION MSGINFO(\"ALIMENTOS\",\" \");\n               RESOURCE \"MANZANA\" ;\n               MESSAGE \"Agrega, Modifica y/o Elimina Alimentos\"\n   	SEPARATOR\n\n		MENUITEM \"&amp;Salir\" ACTION oWnd:End() ;\n					RESOURCE \"SALIR_16_16\" ;\n				  	MESSAGE oemtoansi(\"Abandonar el sistema \")\n	  	ENDMENU\n\n		MENUITEM \"&amp;Encuesta\"\n      MENU\n			 MENUITEM \"&amp;Encuesta Recordatorio 24 Hrs.\" ACTION (.t.) ;\n						RESOURCE \"Reloj\";\n						MESSAGE OemToAnsi(\"Encuesta Recordatorio 24 Horas\")\n			 SEPARATOR\n\n          MENUITEM \"&amp;Encuesta Frecuencia Consumo\" ACTION(.t.);\n                RESOURCE \"DOFI\" ;\n                  MESSAGE oemtoansi(\"Encuesta Frecuencia Consumo\")\n		ENDMENU\n\n\n		MENUITEM oemtoansi(\"&amp;Informes\")\n      MENU\n			MENUITEM oemtoansi(\"&amp;Informe Resumen encuesta 24 horas\") ACTION (.t.);\n            RESOURCE \"informe_hoja\" ;\n                  MESSAGE \"Informe Resumen encuesta recordatorio 24 horas\"\n		ENDMENU\n		MENUITEM oemtoansi(\"&amp;Utiles\")\n      MENU\n\n			MENUITEM oemtoansi(\"&amp;Impresora\") ACTION PrinterSetup() ;\n                  RESOURCE \"Impresora_16_16\" ;\n              MESSAGE \"Selecciona impresora ...\"\n			SEPARATOR\n\n			MENUITEM \"Calculadora ...\"  ACTION WinExec( \"Calc\") ;\n                  RESOURCE \"Calculadora_16x16\" ;\n                MESSAGE \"Llamar a la calculadora.\"\n			SEPARATOR\n\n			MENUITEM oemtoansi(\"Reindexa\") ;\n                  RESOURCE \"INDICE\" ;\n					   MESSAGE \"Regenera indices\"\n			MENUITEM oemtoansi(\"Acerca de Sofnut\") ;\n                  ACTION MsgAbout( \"FiveWin Tutorial\", FWCOPYRIGHT ) ;\n					   MESSAGE \"Regenera indices\"\n		ENDMENU\n\n	ENDMENU\n\nreturn oMenu\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Harbour 2.7 - November 2005         Harbour development power  ³Ü\n³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sofnutr.prg\' and generating preprocessed output to \'sofnutr.ppo\'...\n\nsofnutr.prg(28) Warning W0001  Ambiguous reference: \'ALFA\'\n\nsofnutr.prg(29) Warning W0001  Ambiguous reference: \'LLAVE\'\n\nLines 92, Functions/Procedures 2\nGenerating C source output to \'sofnutr.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nsofnutr.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\n* Application successfully built','',0,'','35exve3g',1,0,'',295,0,0),(3339,871,2,124,0,'200.117.48.189',1134408530,1,0,1,1,1,0,'','CAMIBIO DE DIALOG DE NOMODAL A MODAL????','Amigos:\n\nDada un DIALOG que ha sido activado en formato NOMODAL, necesito pasarlo a MODAL sin cerrarla y volverla a activar. ¿Se puede? ¿Cómo?\n\nYa probé cambiando la propiedad lmodal y ejecutando refresh, setfocus, display..... varias..... sin conseguir el cometido.\n\nEspero sus ideas.\nMuchas Gracias.\nRicardo.-','',0,'','mdquz64z',1,0,'',124,0,0),(3340,869,4,2,0,'80.58.2.107',1134410846,1,0,1,1,1,1,'','','Pawel,\n\nHave you reinstalled Harbour too ? It must be reinstalled!\n\nDo you link ole32.lib to build that PRG ?','',0,'','3bzcyhdj',1,0,'',2,0,0),(3341,871,2,2,0,'80.58.2.107',1134411141,1,0,1,1,1,1,'','','Ricardo,\n\nSi deshabilitas todas las demas ventanas ó diálogos, haciendo: &lt;oWnd&gt;:Disable(), entonces se comportará como modal. Cuando la cierres, vuelves a habilitar las demás con &lt;oWnd&gt;:Enable().\n\nRicardo, nuestro dpto. de ventas te envió un email este pasado fín de semana, lo recibistes ? Contéstame, si prefieres, por email privado. gracias.','',0,'','h0btpovg',1,0,'',2,0,0),(3342,866,6,2,0,'80.58.2.107',1134411486,1,0,1,1,1,1,'','','Luis,\n\nAl comienzo de tu PRG, después del include, escribe: \n\nmemvar Alfa, Llave','',0,'','2kzctm2k',1,0,'',2,0,0),(3343,870,3,2,0,'80.58.2.107',1134412029,1,0,1,1,1,1,'','','Otto,\n\nAs far as I know, the new browse from Hernan supports multiple lines per row. You may ask him at <!-- e --><a href=\"mailto:hceccarelli@cesotech.com.ar\">hceccarelli@cesotech.com.ar</a><!-- e -->','',0,'','21h7kubf',1,0,'',2,0,0),(3344,866,6,295,0,'201.246.201.220',1134412431,1,0,1,1,1,1,'','','gracias Antonio !, funcionó ahora voy a continuar con el resto de los programas\n\nGRACIAS!\nSALUDOS','',0,'','3sjlw09p',1,0,'',295,0,0),(3345,872,6,39,0,'216.155.88.12',1134413258,1,0,1,1,1,0,'','Para que Sirven ????','Hola,\n\nUna Consulta, para que sirven las Classdata :\n\naProperties y a Events.\n\n\nAtte,\nLautaro Moreira','',0,'','3773k9nf',1,0,'',39,0,0),(3346,870,3,74,0,'190.48.235.247',1134415040,1,0,1,1,1,1,'','','Antonio:\n\n             The old ones version (version 15 for example) has multiline too, you only have to use a line height big enough and use +CRLF+ in the field specification.\n\n aBrw:nLineHeight:= 29\n\nFrom wbrowse.prg:\n\n//38) Las Lineas, Footers y Headers, soportan MULTILINE, que esta dado por\n//    la separacion CRLF de la cadena respectiva. Se ajusta a centrado vertical,\n//    salvo que su alto supere el alto de celda, entoces, se ajustar  al borde\n//    superior de celda.\n\n\n// The lines, footers and headers supports multiline, using the CRLF separator with the character line. It adjusts centered vertically. If the height of the line is bigger than the cell height then it is adjusted to the top border of the cell.\n\nRegards','',0,'','son9iy3a',1,0,'',74,0,0),(3347,873,21,1,0,'200.170.133.19',1134415448,1,0,1,1,1,0,'PAIVA','XP + FWH + XH + Emulador Bematech','Por favor a + de 1 ano eu testei com um w98   agora estou precisando acabar ost teste + estou com o XP Prof  e nao estou conseguindo testar com o Emulador  Nem para saber se a IF esta ATIVA (que seria o 1º passo (rs))\n\nbaixei um exe teste deles  em DELPHI e funciona OK com o EMULADOR\n\nHELP   o que estou fazendo de errado ? alguem reria um exe ou um pedaço de prg so para ver se funciona Aqui com o Emulador ?\n\npode ser o comando de leitura X  ou se a impressora esta ativa ou qq coisa   HELP  (SOCORRO)\n\nE_mail: <!-- e --><a href=\"mailto:paiva@triang.com.br\">paiva@triang.com.br</a><!-- e -->\n\nMSN: <!-- e --><a href=\"mailto:paiva@triang.com.br\">paiva@triang.com.br</a><!-- e -->\n\nSKYPE: paiva_sistemas\n\n\nPaiva\nob desde já. s\nqq coisa','',0,'','2as9xv9d',1,0,'',1,0,0),(3348,869,4,13,0,'213.76.252.200',1134416740,1,0,1,1,1,0,'','','yes, I reinstall harbour too, in link script I\'m always use Ole32.Lib. (After reinstall harbour exe size is larger ca 100kB from old lib)\n\nPawel','',0,'','36buz3b2',1,0,'',13,0,0),(3349,869,4,13,0,'213.76.252.200',1134417520,1,0,1,1,1,0,'','','Antonio,\n\nI found, problem solved. I remove line:\nhb_xfree (szId)\nnow this function works fine again in iPaq hx2410 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThanks,\nPawel','',0,'','2ittukwr',1,0,'',13,0,0),(3350,869,4,2,0,'80.58.2.107',1134422707,1,0,1,1,1,1,'','','Pawel,\n\nyes, your fix is ok.\n\nDoes your code work on the emulator ?','',0,'','23upfqd7',1,0,'',2,0,0),(3351,870,3,2,0,'80.58.2.107',1134422781,1,0,1,1,1,1,'','','Daniel,\n\nThanks for the info.','',0,'','3ovc3cch',1,0,'',2,0,0),(3352,872,6,2,0,'80.58.2.107',1134422923,1,0,1,1,1,1,'','','Lautauro,\n\nA efectos de programación, para nada. Están ahí para ser usadas desde el IDE visual que existe en desarrollo.','',0,'','3auy6ptv',1,0,'',2,0,0),(3353,869,4,13,0,'213.76.252.200',1134425254,1,0,1,1,1,0,'','','Antonio,\n\nCode works perfect standalone. When I try use it in main program (with several function) this produce indefinitive situation eg. startup dialog is show without use fullscrdlg function etc. Generally, when I use this function it\'s crash program. In this moment I don\'t know completly what this happen.\nPrevious version FwPpc and Harbour works great wih DeviceId function and hb_xfree clause.\n\nDeviceId works fine on emulator.\n\nPawel','',0,'','3of1hp8h',1,0,'',13,0,0),(3354,874,6,52,0,'201.231.13.37',1134429017,1,0,1,1,1,1,'','DBF desde codigo C','Estimados,\n\ntengo que acceder desde codigo C a una DBF, alguna ayuda?\n\ngracias.','',0,'','1qnmmr3u',1,0,'',52,0,0),(3355,874,6,2,0,'80.58.2.107',1134429592,1,0,1,1,1,1,'','','Gustavo,\n\n¿ Que necesitas hacer con la DBF ?','',0,'','ymrkjl69',1,0,'',2,0,0),(3356,874,6,52,0,'201.231.13.37',1134429831,1,0,1,1,1,1,'','','Antonio,\n\nEstoy programando un modulo CEM este módulo está creado en C++ y necesito desde c++ tomar datos de una DBF para luego realizar unos calculos. y crear un hermoso string de 255 caracteres.\n\nPor eso necesito desde C++ ya que sino tendría que ir desde fw a c y visebersa (o como se escriba).\n\ngracias.','',0,'','1780i570',1,0,'',52,0,0),(3357,864,2,347,0,'201.246.121.81',1134431298,1,0,1,1,1,0,'','LISTBOX EN BLANCO','Antonio gracias por responder pero el Listbox ahora me lo muestra en blanco pero igual me puedo mover en el Listbox si estubieran ahi los articulos incluso hago click y al salir me mustra el Detalle del producto\nSaludos','',0,'','1y86d782',1,0,'',347,0,0),(3358,875,6,295,0,'201.222.157.171',1134433172,1,0,1,1,1,1,'','problemas al crear los dialog desde  recursos &quot;rc&quot;','Antonio,\n\nYo otra vez <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nestuve mirando el tutorial de fwh pero no me quedo claro la creación de los dialogos de mi aplicación... ejecute un prg donde tengo la expresión \ntipica de fw clipper \"define dialog |midialogo| resource |mirecurso| title..\npero al momento de invocarlo se cae y aparece el error:\n\nerror description:Error FiveWin/3 Cannot create Dialog Box\nResource midialogo\n\nSALUDOS Y GRACIAS','',0,'','36khj8x2',1,0,'',295,0,0),(3359,875,6,52,0,'201.231.13.37',1134445299,1,0,1,1,1,1,'','','A mi me sucedia eso cuando usaba controles BORLAND, elimine esos controles y no tube mas problemas, cualquier cosa envia un mail a mi cuenta con tu prg y rc asi te doy una mano.','',0,'','34mv2el2',1,0,'',52,0,0),(3360,876,6,52,0,'201.231.13.37',1134445450,1,0,1,1,1,1,'','funciones en xharbour llamadas desde C','Amigos,\n\n    Se puede hacer que una funcion creada en xHarbour pueda ser llamada desde un programa creado en C?\n\n[code:17qn0ryq]HB_FUNC&#40; MIFUNCION &#41;&#123;\n\n    // llamada a funcion que está en xHarbour\n\n&#125;[/code:17qn0ryq]','',0,'AIA=','17qn0ryq',1,0,'',52,0,0),(3361,877,3,351,0,'202.171.71.250',1134455671,1,0,1,1,1,0,'','problem with printing','when I preview the printing I receive this error message\n\nError (6) deleting enhanced metafile\nError description\n\nFIVEWIN version 2.7\nxHarbour Compiler build 0.99.51 (SimpLex)\nbcc\n\nNo problem with fivewin 2.5','',0,'AIA=','2lahi2mn',1,0,'',351,0,0),(3362,849,6,123,0,'88.0.86.122',1134460159,1,0,1,1,1,0,'','','Hola,\n\nHay una nueva versión con mejoras y arreglos de errores.\n\nPodeis descargarla desde <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=59\">http://www.capelblog.com/?p=59</a><!-- m -->\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','178yc2gw',1,0,'',123,0,0),(3363,877,3,2,0,'80.58.2.107',1134462513,1,0,1,1,1,1,'','','Patrick,\n\nPlease check that you are doing a oReport:End() just once. That error usually appears when more than once the report is End()ed.','',0,'AIA=','jv3whs9a',1,0,'',2,0,0),(3364,864,2,2,0,'80.58.2.107',1134463452,1,0,1,1,1,1,'','','Felipe,\n\nTambién tienes que asignar aColSizes y aHeaders. Estos son arrays con el ancho de cada columna en pixeles y aHeaders con el texto de encabezado de cada columna.','',0,'AIA=','1i527ys9',1,0,'',2,0,0),(3365,876,6,2,0,'80.58.2.107',1134464032,1,0,1,1,1,1,'','','Gustavo,\n\nSi, se puede perfectamente llamar a funciones en PRG desde C, pero siguiendo una serie de reglas, ya que el stack de la máquina virtual no es el stack de C. \n\nEste es un ejemplo de como llamar a PRG desde C:\n[code:73sx90hb]\n   #include &lt;hbvm&#46;h&gt;\n\n   hb_vmPushSymbol&#40; hb_dynsymGet&#40; &quot;MIFUNCION&quot; &#41;-&gt;pSymbol &#41;;\n   hb_vmPushNil&#40;&#41;;\n   hb_vmPushString&#40; &quot;hola&quot;, strlen&#40; &quot;hola&quot; &#41; &#41;;  // pasamos un parámetro\n   hb_vmFunction&#40; 1 &#41;; // 1 parámetro pasado\n[/code:73sx90hb]','',0,'AIA=','73sx90hb',1,0,'',2,0,0),(3366,874,6,2,0,'80.58.2.107',1134464409,1,0,1,1,1,1,'','','Gustavo,\n\nPero la aplicación está desarrollada en C++ ó con harbour/xharbour ?','',0,'AIA=','20sj01ec',1,0,'',2,0,0),(3367,875,6,2,0,'80.58.2.107',1134464884,1,0,1,1,1,1,'','','Luis,\n\nComo te comenta Gustavo, revisa tu RC y busca \"bor...\". Si tienes alguno es que has usado un control Borland y entonces has de usar la DLL de Borland para que funcionen correctamente.\n\nLas instrucciones de como usar la DLL de Borland están en: <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m -->','',0,'AIA=','3eqowwdo',1,0,'',2,0,0),(3368,869,4,2,0,'80.58.2.107',1134465006,1,0,1,1,1,1,'','','Pawel,\n\nMy guess is that KernelIoControl (IOCTL_HAL_GET_DEVICEID, ... corrupts the application memory.\n\nAnyhow, could you please send me by email the EXE (as a ZIP) that works ok on the emulator ? Thanks.','',0,'AIA=','q3tddzu2',1,0,'',2,0,0),(3369,878,20,29,0,'80.181.108.140',1134465998,1,0,1,1,1,0,'','Prompt di una toolbar su 2 righe','Salve,\nvorrei implementare una toolbar in una mia applicazione.\n\nHo la necessità però di inserire il testo della prompt (è la scritta che appare sotto la bitmap) su 2 righe per evitare che il bottone si allarghi troppo.\n\nIn pratica vorrei mettere su 2 righe la scritta \"Bilancio preventivo\",\nfare qualcosa del tipo \"Bilancio\"+chr(13)+chr(10)+\"preventivo\" (che però in questo caso non funziona).\n\nQualche idea ?\n\nGrazie in anticipo.\n\nMarco','',0,'AIA=','27c2srzt',1,0,'',29,0,0),(3370,870,3,51,0,'80.122.88.242',1134466324,1,0,1,1,1,0,'','','Thank you for your answer. As you can see on the jpg I did a multiline with FW. But the problem is:\nIn multiline all the rows do have the same high if you have a row with only 1 textrow the high is the same as a row has with8 textrows.\nYou can not have an other font for the different text lines with in a row.\n\n\n\nRegards \nOtto\n\nPS:\nIf I remember well you could do all that with #5 grid - but I can\'t use a component which is not longer supported. Are there plans somewhere to update and remarket #C. \nI have had a look into the old examples from 1999 !!!!!! and we had   much more possibilities than with the actual browse.','',0,'AIA=','298xibcs',1,0,'',51,0,0),(3371,875,6,295,0,'201.222.145.175',1134470506,1,0,1,1,1,1,'','','gracias amigos revisaré y les cuento <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nsaludos','',0,'AIA=','nk0vt0ej',1,0,'',295,0,0),(3372,863,3,2,0,'80.58.2.107',1134474006,1,0,1,1,1,1,'','','Mauricio,\n\nYou should do some little tests and read the docs I provided you, before going for this. It is not very easy and it requires to know well several concepts before implementing it.\n\nThe DLL has to be built with a special entry point, not the standard one provided by Harbour. Then the function has to be declared as exported. Finally you need to load the DLL and check if it loads properly. Then you may try to use the function.','',0,'AIA=','2k55ddb3',1,0,'',2,0,0),(3373,879,3,29,0,'80.181.108.140',1134474664,1,0,1,1,1,0,'','Toolbar prompts on two rows','Hello,\nis there a way to make the toolbar prompts on two rows ?\n\nDue to the lenght of my prompt text I can only display a small number of buttons.\n\nThanks in advance\n\nBest Regards,\nMarco','',0,'AIA=','2aq955c9',1,0,'',29,0,0),(3374,879,3,2,0,'80.58.2.107',1134475184,1,0,1,1,1,1,'','','Marco,\n\nAre you using Win32 toolbars ? If so, have you tried to use CRLF to break the prompt into multiple lines ?','',0,'AIA=','37htotwp',1,0,'',2,0,0),(3375,880,3,160,0,'210.212.142.6',1134475271,1,0,1,1,1,0,'','Save and Restore Font Parameters.','Hello All,\n\nDoes anybody have code to Save info returned by Choosefont() function into an Ini file or Variable and then Read from that file or Var and form a Define Font statement from it.\n\nTIA\nMilan.','',0,'AIA=','23wd96bl',1,0,'',160,0,0),(3376,881,3,190,0,'202.65.134.22',1134476709,1,0,1,1,1,0,'','How to surpass a get under validation &amp; pass control to','I have some gets on a Dialog.  The first Get is under validatation.\nIf my user does not want to enter any thing and want to quit the\ndialog, instead of pressing X button,  they press a Pushbutton \"Quit\" \nprovided on the dialog. \n\nUnless the get is validated the control can\'t be passed to other control.\nThis is in normal situation.  \n\nBut I want to pass the control to an item on which I click invalidating a particular or all get(s) under validatation.\n\nWhat should I do to invalidate a Get and pass control to the pushbutton\n\"Quit\" when it is clicked ?\n\n- Ramesh Babu','',0,'AIA=','2st80hvs',1,0,'',190,0,0),(3377,828,2,147,0,'201.252.195.35',1134476781,1,0,1,0,1,1,'','','Me uno al hilo para exponer mi caso. El que Daniel hace un tiempo me orientó y, en su propuesta me sugería la siguiente alternativa (tambien intento generar un browse de campos dinámicos):\n\n[code:v8p15hv2]   DO CASE\n   CASE oPJA&#58;nLenAlter == 2\n      aO&#91;_LstAlt&#93;&#58;bLine&#58;= &#123;|nAt| nAt&#58;= aO&#91;_LstAlt&#93;&#58;nAt, ;\n                                 &#123; oPJA&#58;aAlternativas&#91;nAt,1&#93;, ;\n                                   Trans&#40; oPJA&#58;aAlternativas&#91;nAt,2&#93;, PIC_SEIS &#41;, ;\n                                   Trans&#40; oPJA&#58;aAlternativas&#91;nAt,3&#93;, PIC_SEIS &#41;  ;\n                                   &#125; &#125;\n\n   CASE oPJA&#58;nLenAlter == 3\n      aO&#91;_LstAlt&#93;&#58;bLine&#58;= &#123;|nAt| nAt&#58;= aO&#91;_LstAlt&#93;&#58;nAt, ;\n                                 &#123; oPJA&#58;aAlternativas&#91;nAt,1&#93;, ;\n                                   Trans&#40; oPJA&#58;aAlternativas&#91;nAt,2&#93;, PIC_SEIS &#41;, ;\n                                   Trans&#40; oPJA&#58;aAlternativas&#91;nAt,3&#93;, PIC_SEIS &#41;, ;\n                                   Trans&#40; oPJA&#58;aAlternativas&#91;nAt,2&#93;, PIC_SEIS &#41;  ;\n                                   &#125; &#125;[/code:v8p15hv2]\n\nEsto funciona correctamente, aunque, leyendo la propuesa  de cmsfot, me percato que me ahorraría mucho código a la par de que puedo elever el límite superior de campos. Por lo que lo implementé así:\n\n[code:v8p15hv2]   for each arr in oPJA&#58;aAlternativas\n       if HB_EnumIndex&#40;&#41;==1\n          cBLine&#58;= &quot;&#123;|nAt| nAt&#58;= aO&#91;_LstAlt&#93;&#58;nAt, &#123; oPJA&#58;aAlternativas&#91;nAt,1&#93;, &quot;\n       else\n          cBLine+= &quot;Trans&#40; oPJA&#58;aAlternativas&#91;nAt,2&#93;, PIC_SEIS &#41;, &quot;\n       end\n   next\n?   cBLine&#58;= Left&#40; cBLine, Len&#40; cBLine &#41; -2&#41; +&quot; &#125; &#125;&quot;\n\n   aO&#91;_LstAlt&#93;&#58;bLine&#58;= &#40; cBLine &#41;\n   aO&#91;_LstAlt&#93;&#58;SetArray&#40; oPJA&#58;aAlternativas &#41;[/code:v8p15hv2]\n\nAhora bien, al ejecutar la app me arroja el siguiente error:\n\nApplication\n===========\n   Path and name: D:\\FUEN32\\PRU32\\MGPJA.EXE (32 bits)\n   Size: 1,362,944 bytes\n   Time from start: 0 hours 2 mins 37 secs \n   Error occurred at: 13/12/2005, 09:05:40\n   Error description: Error BASE/1005  Class: \'CHARACTER\' has no property: _EVAL\n   Args:\n\nStack Calls\n===========\n   Called from __EVAL(0)\n   Called from WBRWPANE(0)\n   Called from TWBROWSE:PAINT(1103)\n   Called from TWBROWSE:DISPLAY(2892)\n   Called from TWBROWSE:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(46)\n\nQue es lo que no puede resolver?, cual es el problema?','',0,'AIA=','v8p15hv2',1,0,'',147,0,0),(3378,882,3,160,0,'210.212.142.6',1134479711,1,0,1,1,1,0,'','How to make column Editable in TCBrowse ?','Hello All,\n\nHow can I make a column editable in TcBrowse ? I did use EDITABLE clause in ADD COLUMN TO. It does does accept the new value when double clicked, but on pressing Enter original value appears back. What am I doing wrong ?\n\nTIA\nMilan','',0,'AIA=','9atyn05s',1,0,'',160,0,0),(3379,881,3,6,0,'87.1.198.43',1134481032,1,0,1,1,1,1,'','Re: How to surpass a get under validation &amp; pass control','Add CANCEL clause to your button.\n\nEMG','',0,'AIA=','3njup2hq',1,0,'',6,0,0),(3380,881,3,190,0,'202.65.134.22',1134482159,1,0,1,1,1,0,'','','Mr.Enrico\n\nYour answer is simply superb.\n\nYes it worked.\n\nThank you very much\n\n- Ramesh Babu','',0,'AIA=','8sr2sc9y',1,0,'',190,0,0),(3381,879,3,29,0,'80.181.108.140',1134482626,1,0,1,1,1,0,'','','Yes I Did but it doesn\'t run.\nThe prompt appairs always on a single row and the CRLF appair as a not recognized chars (two small box)\n\nMarco','',0,'AIA=','1fkj41hw',1,0,'',29,0,0),(3382,862,3,266,0,'60.50.50.208',1134484316,1,0,1,1,1,1,'','','Antanio,\n\nThanks for reply. I reinstall the samples folder and recompile then it shows again.\n\nWhen I delete all *.rc then it disappear again.\n\nLook like there is certain *.rc in use (borl32.rc ???)\n\nAnyway, i got it now.\n\nRegards\nHoe','',0,'AIA=','1ppme4ap',1,0,'',266,0,0),(3383,344,18,344,0,'83.225.47.42',1134485210,1,0,1,1,1,0,'','','Antonio,\nplease could you also send them to me?\nOr, how is possible to have the patch of the FWH 2.7?\n\nThank you\nRiccardo','',0,'AIA=','36vu9o1r',1,0,'',344,0,0),(3384,838,3,266,0,'60.50.50.208',1134485580,1,0,1,1,1,1,'','','James,\n\nThanks. will do it.\n\nRegards\nHoe','',0,'AIA=','1ql2uuy8',1,0,'',266,0,0),(3385,496,6,23,0,'85.54.249.145',1134490426,1,0,1,1,1,1,'','','Después de mucho probar y rodar al final he descubierto que cuando el tsbrowse trabaja mal en los repintados es cuando de pocos registros es cuando la base de datos tiene registros borrados (no físicamente, sino marcados). Por lo visto tiene en cuenta estos registros para el cálculo de la posición seleccionada y es cuando se vuelve tarumba.\nHe probado con una base de datos recíén compactada y va perfecto.\n\nAlguien sabe como se puede arreglar esto?\ngraciasss','',0,'AIA=','2eszk2k2',1,0,'',23,0,0),(3386,760,20,154,0,'151.81.5.47',1134491883,1,0,1,1,1,1,'','','Maurizio,\nuso le chiavi Eutron SmartKey da qualche anno con una classe che mi sono scritto.\n\nPer qualsiasi informazione scrivimi in privato.','',0,'AIA=','2qmkgfm9',1,0,'',154,0,0),(3387,760,20,89,0,'213.21.136.60',1134492446,1,0,1,1,1,0,'','','Ciao Ugo\n\nnon so come raggiungerti \n\nMaurizio\n <!-- e --><a href=\"mailto:maurizio@nipeservice.com\">maurizio@nipeservice.com</a><!-- e -->','',0,'AIA=','2ffosh2h',1,0,'',89,0,0),(3388,883,20,154,0,'151.81.5.47',1134492486,1,0,1,1,1,1,'','ChooseFont','Ciao FW\'s\ndevo rendere interattiva a scelta di font per la stampa, non riesco a verificare le fasi di annullamento da parte dell\'utente, infatti se seleziona un qualsiasi font e poi annulla nell\'array ritorna l\'impostazione effettuata. \nInoltre non mi sembra funzionare bene l\'impostazione della dimensione, imposto 12 e visualizza 9, poi seleziono 12 e ritorna 16 ????\n\nUso ancora la versione 2.5 forse ci sono stati degi aggiornamenti...\n\nMi confermate?\n\nGrazie per le risposte.\n\n\nEsempietto:\n\n\n#define LF_HEIGHT          1\n#define LF_WIDTH           2\n#define LF_ESCAPEMENT      3\n#define LF_ORIENTATION     4\n#define LF_WEIGHT          5\n#define LF_ITALIC          6\n#define LF_UNDERLINE       7\n#define LF_STRIKEOUT       8\n#define LF_CHARSET         9\n#define LF_OUTPRECISION   10\n#define LF_CLIPPRECISION  11\n#define LF_QUALITY        12\n#define LF_PITCHANDFAMILY 13\n#define LF_FACENAME       14\n\n#define FW_NORMAL          400\n#define FW_BOLD            700\n\n//------------------------------------------------------------------------------\n\nFUNCTION SelectFont( )\n\n   LOCAL aFont[14], oIni, aOldFont, cFont\n\n   INI oIni FILE DirPrg() + \"\\\" + ExeName() + \".INI\"\n   GET cFont    SECTION \"Stampanti\" ENTRY \"FontInStampa\"  OF oIni DEFAULT \"Arial| 0| -12| 0| 0| 0| 0| 0\"\n   ENDINI\n\n   MsgInfo( cFont )\n\n   aFont[LF_FACENAME]   := ALLTRIM(StrToken(cFont,1,\"|\" ))\n   aFont[LF_WIDTH]      := VAL( StrToken( cFont, 2, \"|\" ))\n   aFont[LF_HEIGHT]     := VAL( StrToken( cFont, 3, \"|\" ))\n   aFont[LF_WEIGHT]     := IF( VAL( StrToken( cFont, 4, \"|\" )) &gt; 0, FW_BOLD, FW_NORMAL )\n   aFont[LF_ESCAPEMENT] := VAL( StrToken( cFont, 5, \"|\" ))\n   aFont[LF_ITALIC]     := VAL( StrToken( cFont, 6, \"|\" )) &gt; 1\n   aFont[LF_UNDERLINE]  := VAL( StrToken( cFont, 7, \"|\" )) &gt; 1\n\n   aOldFont := AClone( aFont )\n\n   aFont := ChooseFont( aFont )\n\n   cFont := aFont[LF_FACENAME]    + \"|\" +;\n            cValToChar( aFont[LF_WIDTH] )      + \"|\" +;\n            cValToChar( aFont[LF_HEIGHT] )     + \"|\" +;\n            cValToChar( aFont[LF_WEIGHT] )     + \"|\" +;\n            cValToChar( aFont[LF_ESCAPEMENT] )  + \"|\" +;\n            cValToChar( aFont[LF_ITALIC] )     + \"|\" +;\n            cValToChar( aFont[LF_UNDERLINE] )\n\n   // Test in uscita\n   MsgInfo( cFont )\n\nreturn If( ! Empty( aFont[ LF_FACENAME ] ), aFont, aOldFont )\n\n//------------------------------------------------------------------------------','',0,'','2zltbd49',1,0,'',154,0,0),(3389,760,20,154,0,'151.81.5.47',1134492786,1,0,1,1,1,1,'','','Pensavo si vedesse la mia mail dal profilo...\n\n<!-- e --><a href=\"mailto:garombo@tiscali.it\">garombo@tiscali.it</a><!-- e -->\n\nScusa,\nUgo','',0,'','1hcagf8t',1,0,'',154,0,0),(3390,884,4,95,0,'201.124.231.113',1134493167,1,0,1,1,1,0,'','MC3000','Estimados Colegas \n\nPor fin hemos podido activar el escaner de la MC3000 usando codigo \"C\" dentro de harbour para Windows CE.\n\nBueno pues hay una funcion a la cual le indico la ventana donde se va a ir dicho valores scaneados..\n\nMis preguntas son ...\n\nComo atrapar los eventos dentro de la instruccion \"Activate\" ?\nComo atrapar ese evento y el valor que viene con el ?\nComo tener siempre un Get con el focus, apesar de que se valide y debera regresar a ese focus ?\n\nSaludos\nOsvaldo Ramirez','',0,'','c4j99ecd',1,0,'',95,0,0),(3391,885,21,1,0,'200.170.133.19',1134494769,1,0,1,1,1,0,'paiva','Emulador bematech + xp PACK2  NAO FUNCIONA! como corrigir ?','Por favor o \n\nEmulador Bematech  + XP PACK2  NAo funciona\n\nNao da carga nem da bemafi32.dlll da retorno ZERO\n\nde quem e´o problema ? XH Fwh XP ou Bematech\n\nhelp','',0,'','3cyfaxi2',1,0,'',1,0,0),(3392,884,4,2,0,'80.58.2.107',1134496167,1,0,1,1,1,1,'','','Osvaldo,\n\nEl handle de la ventana está en el dato hWnd:\n\n[code:34wijhjk]   oWnd&#58;hWnd[/code:34wijhjk]\n\nPara acceder a un determinado mensaje que no sea de los estandards de Windows, tienes que crear una nueva clase a partir de TWindow:\n\n[code:34wijhjk]\nCLASS TMyWindow FROM TWindow\n   METHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41;\nENDCLASS\n\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\n   do case\n        case nMsg == &#46;&#46;&#46;\n               &#46;&#46;&#46; código &#46;&#46;&#46;\n               return &#46;&#46;&#46;\n   endcase\n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n[/code:34wijhjk]\n\nDe todas formas por correo privado te ayudamos para que te funcione correctamente.\n\nSi quieres que un GET no pierda el foco, simplemente haz que su VALID devuelva falso:\n\n[code:34wijhjk]  VALID &#40; &#46;&#46;&#46; código &#46;&#46;&#46;, &#46;F&#46; &#41;[/code:34wijhjk]','',0,'AIA=','34wijhjk',1,0,'',2,0,0),(3393,879,3,2,0,'80.58.2.107',1134498452,1,0,1,1,1,1,'','','Marco,\n\nIt looks as it is not supported. We are going to search for more info.','',0,'AIA=','11lgy8pt',1,0,'',2,0,0),(3394,886,6,319,0,'201.1.175.146',1134500007,1,0,1,1,1,0,'','Como usar CompacDataBase no ADO?','Preciso utilizar a opção de compactar base de dados do access...','',0,'AIA=','1onwi0f8',1,0,'',319,0,0),(3395,883,20,6,0,'87.1.198.43',1134500996,1,0,1,1,1,1,'','Re: ChooseFont','Mi dispiace ma il tuo esempietto non è compilabile.\n\nEMG','',0,'AIA=','1nrjx1k4',1,0,'',6,0,0),(3396,887,7,63,0,'80.58.35.107',1134501590,1,0,1,1,1,0,'','Cómo definir un Browse desde recursos','Estoy intentando abrir un diálogo con sólo un browse de una columna.\n\nEn mi RC:  \n\nLOOKUP1 DIALOG DISCARDABLE 43, 27, 91, 76 STYLE WS_POPUP|DS_MODALFRAME|WS_SYSMENU|WS_VISIBLE\nFONT 8, \"System\"\nBEGIN\n  CONTROL \"Cancel\", IDCANCEL, \"Button\", WS_TABSTOP, 44, 0, 45, 15\n  CONTROL \"\", 4001, \"ListBox\", WS_VSCROLL | WS_BORDER | WS_TABSTOP, 0, 16, 88, 52\nEND\n\n\nMi Programa:\n//&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;\nSTATIC FUNCTION LookUp()\nLOCAL oDlg, oLbx\n\nDEFINE DIALOG oDlg RESOURCE \"LOOKUP1\"\nREDEFINE LISTBOX oLbx ID 4001;\n         ALIAS AFAB          ;\n         FIELDS AFAB-&gt;NOMBRE ;\n         HEADERS \"Nombre\"    ;\n         SIZES 100\nACTIVATE DIALOG oDlg\nRETURN NIL\n\n\nLo he probado de mil maneras y siempre me da error al compilar:\na1.prg(222) Error E0022  Invalid lvalue: \'Numeric\'   - La linea 222 es el REDEFINE\n\nPor favor, alguien me puede decir qué estoy haciendo mal?  Mejor con un ejemplo.  Gracias\n\nRafael\n[/url]','',0,'','12m25bkt',1,0,'',63,0,0),(3397,852,6,147,0,'208.51.141.113',1134502237,1,0,1,0,1,1,'','','en mi prueba, de testsmtp.prg,  enviando a mi propia cuenta, lo hace pero, de los adjuntos solo llega basura\n\nIt is working!!!\n\napplication/x-zip-compressed;\n	name=\"testsmtp.prg\"\nContent-Transfer-Encoding: base64\nContent-Disposition: inline;\n	filename=\"TESTSMTP.PRG\"\n\nLy8gVGVzdGluZyBGaXZlV2luIG5ldyBJbnRlcm5ldCBPdXRnb2luZyBtYWlsIChTTVRQIHByb3Rv\nY29sKSBDbGFzcw0KDQojaW5jbHVkZSAiRml2ZVdpbi5jaCINCg0Kc3RhdGljIG9XbmQNCg0KLy8t\n...\n\napplication/x-zip-compressed;\n	name=\"testsmtp.zip\"\nContent-Transfer-Encoding: base64\nContent-Disposition: inline;\n	filename=\"TESTSMTP.ZIP\"\n\nUEsDBBQAAgAIAOKT0i53UfJ1LwIAAMIFAAAMAAAAdGVzdHNtdHAucHJnvZRNj9owEIbvK+1/GNIL\nSJQceqNCKh9hG3WTIOIW9VR5zQTcBhvFTind3f/ecQIUKMuprW/2zDzvfNj2fWBorFQLGMvvOJMK\n...\n\nEnviando a otras cuentas gmail y yahoo, por ej., no llegan\n\nAlguna solución?\ngracias','',0,'','33gdn0i0',1,0,'',147,0,0),(3398,875,6,295,0,'200.112.81.118',1134502604,1,0,1,1,1,1,'','','Amigos:\nCopie la screen32.dll que viene vacía en FWH y creé un diálogo en ella, y un campo de ingreso en el dialogo y al ejecutar el programa \nnuevamente se repite el error \"cannot\" create dialog ...\n\nlo que veo distinto a la dll de 16 bits es que en el Control ID aparece \"IDC_EDIT1\" seguido del Nº, que en este caso es 106\n\n¿Debo cambiar la sintaxis en la definición del recurso en el PRG ?\n....\n¿Como relaciono el control_id con la variable del PRG?\n\nGracias por su ayuda\nSaludos','',0,'','an26p9qy',1,0,'',295,0,0),(3399,887,7,2,0,'80.58.2.107',1134503742,1,0,1,1,1,1,'','','Rafael,\n\nCambia \"ListBox\" por \"TWBrowse\" en el RC.\n\nEn el código prueba esto:\n\nREDEFINE LISTBOX oLbx ID 4001 OF oDlg; \nALIAS AFAB ; \nFIELDS AFAB-&gt;NOMBRE ; \nHEADERS \"Nombre\" ; \nSIZES 100','',0,'','31jx1fyv',1,0,'',2,0,0),(3400,875,6,2,0,'80.58.2.107',1134503938,1,0,1,1,1,1,'','','Luis,\n\nEs preferible que almacenes tus recursos en un fichero RC y que luego generes la DLL de 32 bits a partir de ella, usando el fichero dll\\rc2dll32.bat &lt;nombre_rc_sin_extension&gt;  \n\nrc2dll32.bat te generará la DLL correctamente.','',0,'','vsodqwp3',1,0,'',2,0,0),(3401,887,7,63,0,'80.58.35.107',1134505185,1,0,1,1,1,0,'','','No:  Al compilar sigue dando este error:\n\na1.prg(222) Error E0022  Invalid lvalue: \'Numeric\'\n\n222 es la línea del REDEFINE.  Esroy utilizando la última versión de FWPPC, recién descargada anteayer.\n\nDe la única manera que consigo compilar es :\nREDEFINE LISTBOX oLbx ID 4001 OF oDlg  y nada más.\n\nPero esto, claro, me da error al ejecutar (oLbx es NIL)\n\nRafael\n\nAntonio: Yo utilizo Pelles C para crear mis .RC  ¿Hay algún otro programa que permita generar archivos más compatibles con FWPPC, sin tener que retocar tanto a mano el RC?','',0,'','6l577bxh',1,0,'',63,0,0),(3402,874,6,52,0,'201.231.14.35',1134507527,1,0,1,1,1,1,'','','Antonio,\n\n_La funcion está creada en C porque en harbour no logre hacerla, uso CALLNAMEDPIPE.\n\nEl sistema es asi: desde una aplicación harbour llamo a una función creada en C, pero ahora necesito que desde esa funcion en C se pueda consultar una DBF.','',0,'','2jcy1l7p',1,0,'',52,0,0),(3403,875,6,52,0,'201.231.14.35',1134507820,1,0,1,1,1,1,'','','Siguiendo las reglas del Manualcito FIveWIn... para dll 32 bits\n\n_Create una RES y exportala como RC, usa ese RC en tus aplicaciones JAMAS ABRAS DLL CON WORKSHOP \"lo rompe\"....\n\nA mi me funcionó, y eso vino del guru Antonio asi que palabra santa.\n\nComo te decia, enviame lo que estas haciendo y trato de explicarte. que usas pelles o WOrkshop para generar tus recursos?\n\nNos vemos.','',0,'','3ti79uni',1,0,'',52,0,0),(3404,888,3,230,0,'152.163.100.66',1134508117,1,0,1,1,1,0,'','DLL Access of the Mircosoft Common Dialog Screens','Has anybody been use DLL calls to the Common Dialog Screens from\nMircosoft?  I am looking of the setup to use the DLL Command to call\nthe GetOpenfile Dialog Screen and the Printdlg Dialog Screen.  But\nI am not sure of the Init. Part of the Call to access this screens.\n\nAre they any Information on the DLL Functions from the Windows\nSystem?  And how to Call Them.\n\nI am useing xHarbour and Fivewin for Harbour Version 2.7\n\nThank You\nJim Bohanan\n<!-- e --><a href=\"mailto:jim37920@aol.com\">jim37920@aol.com</a><!-- e -->','',0,'','3vi2rx9t',1,0,'',230,0,0),(3405,888,3,6,0,'82.55.208.252',1134509402,1,0,1,1,1,1,'','Re: DLL Access of the Mircosoft Common Dialog Screens','Why not use the already existing FWH wrapper functions (ie. cGetFile() and PrinterSetup())?\n\nEMG','',0,'','fmzh4gti',1,0,'',6,0,0),(3406,876,6,52,0,'201.231.14.35',1134511268,1,0,1,1,1,1,'','','Antonio,\n\nGracias, voy a probarlo ahora, porque esto va acarriado a otra pregunta que puse en foro sobre CEM, digamos que la aplicacion en harbour llama a una de C, y esa funcion C tiene que leer una DBF, tonces, haria una funcion en harbour para leer esa DBF y simplemente desde el codigo C llamo a esta.\n\nMe explique?','',0,'','2b8vwh87',1,0,'',52,0,0),(3407,496,6,97,0,'201.151.186.77',1134511854,1,0,1,1,1,1,'','al ligar  la aplicacion marca este error _HB_FUN_CMAKERANGE','Hola FGONDI , he generado el tsbrowse un excelenete trabajo apliado por ti pero al ligar mi aplicacion me marca este error y no le entrado la funcion por ningun rango.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'','1v8vz2hn',1,0,'',97,0,0),(3408,879,3,144,0,'68.7.224.53',1134512003,1,0,1,1,1,1,'','','You need to send a msg to the toolbar hwnd. For 2 rows of text:\n\nnRows := 2\nSendMessage( oTBar:hWnd, TB_SETMAXTEXTROWS, nRows, 0 )','',0,'','29lblqu2',1,0,'',144,0,0),(3409,496,6,21,0,'83.41.232.64',1134512563,1,0,1,1,1,1,'','','Hola tocayo,\n\nEsa función aparace en la clase TExcelScript del maestro Vikthor\n\n[code:20cebw6v]FUNCTION cMakeRange&#40; nRowIni, nColIni, nRowFin, nColFin &#41;\nlocal cRange &#58;= cColumn2Letter&#40;nColIni&#41; + AllTrim&#40;Str&#40;Int&#40;nRowIni&#41;&#41;&#41;\n\nif nRowFin != NIL &#46;and&#46; nColFin != NIL\n  cRange  += &quot;&#58;&quot; + cColumn2Letter&#40;nColFin&#41; + AllTrim&#40;Str&#40;Int&#40;nRowFin&#41;&#41;&#41;\nendif\nRETURN cRange\n\n\nFUNCTION cColumn2Letter&#40; n &#41;\nlocal r &#58;= &quot;&quot;\n\nif n &gt; 26\n  r &#58;= Chr&#40; 64 + Int&#40; n / 26 &#41; &#41;\n  n &#58;= n % 26\nendif\nr += Chr&#40; 64 + n &#41;\nRETURN r[/code:20cebw6v]','',0,'AIA=','20cebw6v',1,0,'',21,0,0),(3410,876,6,52,0,'201.231.14.35',1134513321,1,0,1,1,1,1,'','','Antonio,\n\nEsa parte de codigo, va en mi PRG?\n\n[code:3v92kdig] #include &lt;hbvm&#46;h&gt; \n\n   hb_vmPushSymbol&#40; hb_dynsymGet&#40; &quot;MIFUNCION&quot; &#41;-&gt;pSymbol &#41;; \n   hb_vmPushNil&#40;&#41;; \n   hb_vmPushString&#40; &quot;hola&quot;, strlen&#40; &quot;hola&quot; &#41; &#41;;  // pasamos un parámetro \n   hb_vmFunction&#40; 1 &#41;; // 1 parámetro pasado [/code:3v92kdig]\n\ndonde puedo buscar mas info sobre estos comandos?','',0,'AIA=','3v92kdig',1,0,'',52,0,0),(3411,889,3,144,0,'68.7.224.53',1134513394,1,0,1,1,1,1,'','Date GETs with century','Has anyone worked it out to have a 4-digit year on a specific date GET independent of SET CENTURY ?\n\nI have particular fields (Birthdays) that should always display full year, but other fields should just be 2-digit years.  Using FWH.','',0,'AIA=','3licmvia',1,0,'',144,0,0),(3412,496,6,97,0,'201.151.186.77',1134513438,1,0,1,1,1,1,'','La agrego al TSBrw o Ligo TXLS','Gracias, Tocayo, la verdad nunca pense que estubieras en linea, puedo agregar esta funcion al tsbrowse o bien , ligo la aplicacion con TSXLS de victor.\n\n\ngracias.','',0,'AIA=','3i8cez80',1,0,'',97,0,0),(3413,496,6,97,0,'201.151.186.77',1134514342,1,0,1,1,1,1,'','Problemas con el foco','Tengo el siguenete problema en la captura de un renglon de un documento factura, remision, valido si existe el articulo pero el foco no me regresa al tsbrw sino a los controles del dialogo.\n\n   ADD COLUMN TO BROWSE oHojeador DATA oDbDetCom:NumArt                               ;\n       HEADER \"Artículo\"                                                              ;\n       PICTURE \"@K!\"                                                                  ;\n       WIDTH   100                                                                    ;\n       3DLOOK  TRUE                                                                   ;\n       EDITABLE                                                                       ;\n       ALIGN   DT_LEFT                                                                ;\n       MOVE DT_MOVE_NEXT                                                              ;\n       VALID   { | NumArt |  ValArtCap( NumArt , oDbArti , oDbDetCom ) }               ;\n       COLORS  CLR_HBLUE,CLR_HGRAY\n\n\ny esta es la funcion donde valido el arituculo.\n\n\n*---------------------------------\nStatic Function ValArtCap(cNumArt  ,  oDbArti , oDbDetCom )\n\nIF ! oDbArti:Seek( cNumArt , .t.)\n   MsgBeep()\n   MsgAlert(\"El Articulo no Existe \"+ cNumArt +\" No Exiete en el Catalogo de Articulo\")\n//   oHojeador:HiliteCell(1)\n   oHojeador:SetFocus()\n   oHojeador:Refresh()\n   Return(.t.)\nENDIF\n\noDbArti:Load()\noDbDetCom:NumArt   := oDbArti:NumArt\noDbDetCom:Nombre   := oDbArti:Nombre\noDbDetCom:Precio   := oDbArti:PreVta\noDbDetCom:TASAIVA  := oDbArti:TASAIVA\noDbDetCom:TASAIEPS := oDbArti:TASAIEPS\noDbDetCom:TASACERO := oDbArti:TASACERO\noDbDetCom:EXENTO   := oDbArti:EXENTO\noDbDetCom:Clase    := oDbArti:Clase\n\nif oDbDetCom:TASAIVA &gt; 0\n   oDbDetCom:PreBruto   :=  oDbArti:PreVta\n   oDBDetCom:PreBruto   := ( oDbArti:PreVta /  ( 1 +(  oDbDetCom:TasaIva / 100)) )\nendif\noDbDetCom:Importe  := (oDbDetCom:Cantidad * oDbDetCom:Precio)\nif oDbDetCom:TasaIva &gt; 0\n  oDbDetCom:ImpIva     := ( ( oDbDetCom:PreBruto * oDbDetCom:Cantidad)  *  (  oDbDetCom:TasaIva / 100))\nendif\noDbDetCom:Save()\nRecalComa( oDbDetCom)\n/*if nPartida &gt; 9\n   oDbDetCom:gobottom()\nendif\n*/\noHojeador:SetFocus()\noHojeador:Refresh()\nreturn(.T.)\n\npero como comento no me regresa el foco al browse sino a los controles del dialogo.\n\ngracias y un saludo a todos.\nfernando sandoval ruiz','',0,'AIA=','2b882kre',1,0,'',97,0,0),(3414,491,6,97,0,'201.151.186.77',1134514814,1,0,1,1,1,1,'','No en ves de usar dbcombo uso tbtnget','Osacr por desgracia no logre solucionar el problema, me presenta el dialogo, pero en el dbcombobox no  me presenta nada de informacion, y como el tiempo los tenia encima, mejor utilice el btnget con listbox nadamas le cambie le bitmap.\n\n \naprovecho tambien no si ati te marque en el dbctest que \"la aplicacion o DLL customer.dll no es una imagen valida de windows\"\n\nsaludos\nfernando sandoval ruiz','',0,'AIA=','1z6h8kzb',1,0,'',97,0,0),(3415,845,6,97,0,'201.151.186.77',1134515183,1,0,1,1,1,1,'','Yo lo uso asi','Paco yo los defino de estas dos maneras puedes optar por cualquiera.\n \noTbCom  := TdbOdbcDirect():New(\"SELECT * FROM comanda\" , oOdbc)\n oTbCom:Open()\n\n oTbArt:=TDbOdbc():New( \"articul\", oDb,, \"articulos\", .t., .f. )\n\no tambien  la uso cuando boy poner un listbox\n\n oSql:=oOdbc:query(\" select * from empresas\")\n oSql:open()\n oSql:complete()\n oSql:gotop()\n\n\nespero te sirva de lago.\nsaludos\nfernando sandoval ruiz','',0,'AIA=','1wpkc0ov',1,0,'',97,0,0),(3416,890,6,97,0,'201.151.186.77',1134515894,1,0,1,1,1,1,'','En Build ligar RES a la aplicacion','Como puedo ligar .res en buildh.bat para mi aplicacion.\n\n\nsaludos.','',0,'AIA=','38kr3ar1',1,0,'',97,0,0),(3417,496,6,21,0,'83.41.232.64',1134516297,1,0,1,1,1,1,'','','Hola,\n\nEn cuanto a agregar la función o toda la clase. Yo tengo toda la clase pero porque uso la clase tExcelScript que es muy buena, pero como mas te guste.\n\nEn cuanto al posicionameto tras la edición varias preguntas:\n 1.- Lo has provado sin el valid. No se si el problema de cambio de foco esta en el valid?\n 2.- Usas Auto-edición?\n 3.- Has provado con otro  \"DT_MOVE_\" por ejemplo DT_MOVE_RIGHT?\n 4.- Puedes poner algo de la deficinición del browse y los demas objetos de la ventana?. Enviamelo si quieres por correo o por msn','',0,'AIA=','3a0ljbtj',1,0,'',21,0,0),(3418,701,2,97,0,'201.151.186.77',1134516442,1,0,1,1,1,1,'','Solamenete que Instales ADS para linux','No creo que se pueda , abria alguna forma con el samba para que compartas informacion entre linux y windows, pero creo que lo mas correcto seria instalar ads para linux.\n\nsaludos.','',0,'AIA=','2to504at',1,0,'',97,0,0),(3419,890,6,255,0,'200.67.134.233',1134516912,1,0,1,1,1,1,'','Re: En Build ligar RES a la aplicacion','[quote=&quot;fsandoval&quot;:pvvhg8yt]Como puedo ligar .res en buildh.bat para mi aplicacion.\nsaludos.[/quote:pvvhg8yt]\n\nRevisa el Buildh.bat que está en el directorio\nsamples. Quita la parte donde se manda\na llamar al compilador de recursos .RC\ny solo deja donde se agrega el .RES casi al\nfinal del BAT.\n\nSaludos','',0,'gA==','pvvhg8yt',1,0,'',255,0,0),(3420,891,6,147,0,'208.51.141.113',1134521002,1,0,1,0,1,1,'','Ventana minimizada','Se puede \"preguntar\", desde código quiero decir :-), si una ventana está minimizada?; como?\n\ngracias','',0,'gA==','172l6cpv',1,0,'',147,0,0),(3421,872,6,39,0,'200.126.105.228',1134521539,1,0,1,1,1,0,'','Gracias','Gracias por la informacion.\n\n\nAtte,\nLautaro','',0,'gA==','22qraje0',1,0,'',39,0,0),(3422,828,2,347,0,'201.246.121.30',1134522492,1,0,1,1,1,0,'','','Antonio gracias por ayudarme, mira el LIstbox lo tengo asi:\n\nREDEFINE LISTBOX oLbx fIELDS GenColumns();		    	ID 102 OF oDlg;\n\n           oLbx:aheaders   := {\"Descripcion\",\"Stock\"} \n           oLbx:acolsizes    := {400,100}\n\nSTATIC function GenColumns()\n\n   local bLine:=\"\"\n\n\n     bLine:={ || { (cExi_Suc)-&gt;Ma_Des1,cExi_Suc)-&gt;Bod_001i } }\n\nreturn(bLine)\n\nLo tengo asi y igual no me muestra nada pero igual como te desia me puedo mover para arriba y abajo\n\n\ndesde ya gracias','',0,'gA==','1q4ckuxr',1,0,'',347,0,0),(3423,892,5,353,0,'216.31.188.214',1134522836,1,0,1,1,1,0,'','fw192 to 2.7','I have a program that is in FW192 and has been working for a long time in xp.  Very stable and no problems.  Still improving and works great. I need to convert to 32bit and I\'m lost.  Is there anyone in the LOs Angeles area that mey be of help as to the best way to go and available for some consulting?\n\nHarvey','',0,'gA==','1h276rlz',1,0,'',353,0,0),(3424,828,2,74,0,'190.48.233.154',1134523805,1,0,1,1,1,1,'','','Felipe:\n\n           Enviame el pedazo de codigo en un prg que yo pueda compilar y probar aca con las dbf involucradas a <!-- e --><a href=\"mailto:danielpuente@speedy.com.ar\">danielpuente@speedy.com.ar</a><!-- e --> y te lo miro. Despues publicamos aca la solucion definitiva si queres.\n\nSaludos,','',0,'gA==','3vmpyc4o',1,0,'',74,0,0),(3425,863,3,339,0,'200.217.87.83',1134525005,1,0,1,1,1,0,'','','THANKS ANTONIO.\n\n   I´M DOING YET , OK \n\n\nthanks again ,\nmauricio','',0,'gA==','7r92eeeu',1,0,'',339,0,0),(3426,889,3,74,0,'190.48.233.154',1134525699,1,0,1,1,1,1,'','','Brian:\n\n          You can manage the date as a character variable por the specific get, or you can:\n\nSET CENTURY OFF\n\nREDEFINE GET oFecha      VAR vFecha                    ID 102 FONT oFont2 of oDlg COLOR CLR_BLACK,RGB(255,255,168)\nREDEFINE GET oFecha2      VAR vFecha2                    ID 34 FONT oFont2 of oDlg COLOR CLR_BLACK,RGB(255,255,168)\noFecha2:bGotFocus:={|| centuryon(oFecha2) }\noFecha2:bLostFocus:={|| centuryoff() }\n\nACTIVATE DIALOG oDlg CENTERED ON INIT FECHASINIT(oFecha2)\n\nSTATIC FUNCTION FECHASINIT(oFecha2)\n\nSET CENTURY ON\noFecha2:Refresh()\nSET CENTURY OFF\n\nRETURN NIL\n\nSTATIC FUNCTION CENTURYON(oFecha2)\n\n SET CENTURY ON\n oFecha2:Refresh()\n\nRETURN NIL\n\nSTATIC FUNCTION CENTURYOFF()\n\n SET CENTURY OFF\n\nRETURN NIL\n\n\nRegards,','',0,'gA==','eddwr7fq',1,0,'',74,0,0),(3427,893,3,339,0,'200.217.87.83',1134526237,1,0,1,1,1,0,'','HOW CALL INTERNAL HARBOUR FUNCTIONS','Hi Friend´s\n\nSame People know \"How Call HB_PARNI ( 1 )...\n\n   Because Harbour.exe Change to HB_FUN_HB_PARNI, but o Don´t Want..\n\n\nMauricio','',0,'gA==','2wshkcph',1,0,'',339,0,0),(3428,493,7,95,0,'201.124.231.113',1134526471,1,0,1,1,1,0,'','','Hola ...\n\nEn mi caso, tengo un punto de venta que manda pedidos o solictud de ordenes de medicamentos a proveedores. Yo utilizo mejor ftp, creo que si te vas a meter con socket haciendo correos, a lo mejor da igual con ftp.\n\nLos requerimientos por parte de la central serian solamente montar un ftp server o contratar un ftp server, donde se suba la informacion.\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','3454azpd',1,0,'',95,0,0),(3429,894,6,325,0,'201.136.238.225',1134526741,1,0,1,1,1,0,'','Centrar texto en la clase TPrinter','Hola a todos.\n\nAlguien que me pueda ayudar necesito centrar un texto en la hoja, pero este texto es variable.\n\n         oPrn:CmSay( x,y,\"Algo\", ::oFont7 ,,,,1)\n\ndesde ya muchas gracias...','',0,'gA==','1uzky8xv',1,0,'',325,0,0),(3430,877,3,351,0,'202.171.71.249',1134529328,1,0,1,1,1,0,'','','Antonio,\nThank you\nfix now with your suggestion.\nI use to finish report with\nENDPAGE\nENDPRINT\n\nIF I comment out ENDPAGE, no error.\nI confirm that this does not occur since FWH 2.1','',0,'gA==','2cn0uif2',1,0,'',351,0,0),(3431,889,3,144,0,'68.7.224.53',1134536619,1,0,1,1,1,1,'','','Daniel:\nThanks!  Are you using this code for real?  It would appear to work for an SDI app, but with lots of modeless windows it might have problems. Even though one GET has focus and SET CENTURY is true, other windows can paint in the background, and would be affected, yes?','',0,'gA==','3kb82dcl',1,0,'',144,0,0),(3432,344,18,2,0,'80.58.2.107',1134547008,1,0,1,1,1,1,'','','Riccardo,\n\nAlready sent.','',0,'gA==','355n8kw2',1,0,'',2,0,0),(3433,892,5,2,0,'80.58.2.107',1134547260,1,0,1,1,1,1,'','','Harvey,\n\nYou may contact Brian Hays at <!-- e --><a href=\"mailto:bhays@abacuslaw.com\">bhays@abacuslaw.com</a><!-- e --> He is at Los Angeles.\n\nAnyhow if you use these forums, we will help you for a smooth transition to 32 bits.','',0,'gA==','24a1ub1y',1,0,'',2,0,0),(3434,879,3,2,0,'80.58.2.107',1134547343,1,0,1,1,1,1,'','','Brian,\n\nThanks a lot for your help,','',0,'gA==','3nqy51et',1,0,'',2,0,0),(3435,882,3,2,0,'80.58.2.107',1134547886,1,0,1,1,1,1,'','','Milan,\n\nWhat FWH version are you using ? This was recently fixed in 2.7 version.','',0,'gA==','1n84y5gs',1,0,'',2,0,0),(3436,893,3,2,0,'80.58.2.107',1134548031,1,0,1,1,1,1,'','','Mauricio,\n\nAll Harbour functions use the HB_FUN_... prefix.','',0,'gA==','3fn94xn1',1,0,'',2,0,0),(3437,891,6,2,0,'80.58.2.107',1134548305,1,0,1,1,1,1,'','','Mario,\n\nIsIconic( oWnd:hWnd )','',0,'gA==','3pp53c1x',1,0,'',2,0,0),(3438,895,3,29,0,'80.181.108.140',1134548355,1,0,1,1,1,0,'','Transparent bitmap on folder','Hello,\nI still have problem to display a transparent bitmap on folder with xp theme. See <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/bitmap_on_folder.gif\">www.softwarexp.co.uk/beta/bitmap_on_folder.gif</a><!-- w -->\n\nI\'m working with xHarbor 0.99.5+FWH26\n\nIs there a solution available ?\n\nThanks in advance\n\nMarco Turco','',0,'gA==','1pdq90ow',1,0,'',29,0,0),(3439,895,3,2,0,'80.58.2.107',1134548595,1,0,1,1,1,1,'','','Marco,\n\nHave you tried oBmp:lTransparent := .t. after creating it ?','',0,'gA==','38ukvjhx',1,0,'',2,0,0),(3440,896,3,31,0,'195.182.84.105',1134550208,1,0,1,1,1,1,'','LoadBitmap() &amp; xBuilder','Hello !\n\n I\'m trying xBuilder and found one problem . I\'m using Hernan\'s browse and in some browses I\'m using bitmaps from resources . This function allways return 0 and I can\'t to see bitmaps in columns . Also I tried with bitmaps from disk and ReadBitmap() function - this works OK . Maybe you know where can be problem of LoadBitmap() function ? Can this be problem of xBuilder resource compiler ?\n\n   With best regards ! Rimantas .','',0,'gA==','17krxxz5',1,0,'',31,0,0),(3441,893,3,6,0,'87.3.232.170',1134550763,1,0,1,1,1,1,'','Re: HOW CALL INTERNAL HARBOUR FUNCTIONS','Try\n\nhb_parni()\n\nin lowercase characters.\n\nEMG','',0,'gA==','3drlk6vl',1,0,'',6,0,0),(3442,867,3,314,0,'219.130.28.223',1134551175,1,0,1,1,1,0,'','','Antonio,\n\nI am sure you have an extra computer laying around that you can use to test it. To setup the computer to display Chinese and input Chinese all you have to do is set the computer\'s default language to Traditional Chinese or Simplified Chinese in Control Panel\'s Regional Options.','',0,'gA==','6a21961z',1,0,'',314,0,0),(3443,895,3,29,0,'80.181.108.140',1134552097,1,0,1,1,1,0,'','','Yes I used the transparent clause in the sample you saw.\n\nThis problem appairs only on folder with xp theme,\nwithout xp theme the transparent clause runs fine.\n\nWe had a similar problem with the say on folder \nbut you alredy solved this some time ago.\n\nMarco','',0,'gA==','28t71jgq',1,0,'',29,0,0),(3444,883,20,1,0,'151.81.7.13',1134553082,1,0,1,1,1,0,'','','Prova ora:\n\n\n#define LF_HEIGHT 1\n#define LF_WIDTH 2\n#define LF_ESCAPEMENT 3\n#define LF_ORIENTATION 4\n#define LF_WEIGHT 5\n#define LF_ITALIC 6\n#define LF_UNDERLINE 7\n#define LF_STRIKEOUT 8\n#define LF_CHARSET 9\n#define LF_OUTPRECISION 10\n#define LF_CLIPPRECISION 11\n#define LF_QUALITY 12\n#define LF_PITCHANDFAMILY 13\n#define LF_FACENAME 14\n\n#define FW_NORMAL 400\n#define FW_BOLD 700\n\n//------------------------------------------------------------------------------\n\nFUNCTION Main( )\n\nLOCAL aFont[14], oIni, aOldFont, cFont\n\nINI oIni FILE \"prova.ini\"\nGET cFont SECTION \"Stampanti\" ENTRY \"FontInStampa\" OF oIni DEFAULT \"Arial| 0| -12| 0| 0| 0| 0| 0\"\nENDINI\n\nMsgInfo( cFont )\n\naFont[LF_FACENAME] := ALLTRIM(StrToken(cFont,1,\"|\" ))\naFont[LF_WIDTH] := VAL( StrToken( cFont, 2, \"|\" ))\naFont[LF_HEIGHT] := VAL( StrToken( cFont, 3, \"|\" ))\naFont[LF_WEIGHT] := IF( VAL( StrToken( cFont, 4, \"|\" )) &gt; 0, FW_BOLD, FW_NORMAL )\naFont[LF_ESCAPEMENT] := VAL( StrToken( cFont, 5, \"|\" ))\naFont[LF_ITALIC] := VAL( StrToken( cFont, 6, \"|\" )) &gt; 1\naFont[LF_UNDERLINE] := VAL( StrToken( cFont, 7, \"|\" )) &gt; 1\n\naOldFont := AClone( aFont )\n\naFont := ChooseFont( aFont )\n\ncFont := aFont[LF_FACENAME] + \"|\" +;\ncValToChar( aFont[LF_WIDTH] ) + \"|\" +;\ncValToChar( aFont[LF_HEIGHT] ) + \"|\" +;\ncValToChar( aFont[LF_WEIGHT] ) + \"|\" +;\ncValToChar( aFont[LF_ESCAPEMENT] ) + \"|\" +;\ncValToChar( aFont[LF_ITALIC] ) + \"|\" +;\ncValToChar( aFont[LF_UNDERLINE] )\n\n// Test in uscita\nMsgInfo( cFont )\n\nreturn If( ! Empty( aFont[ LF_FACENAME ] ), aFont, aOldFont )\n\n//------------------------------------------------------------------------------','',0,'','1gqzxk8i',1,0,'',1,0,0),(3445,882,3,160,0,'210.212.142.6',1134553258,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3tb6k2nb]Milan,\n\nWhat FWH version are you using ? This was recently fixed in 2.7 version.[/quote:3tb6k2nb]\n\nHello Antonio,\n\nThe latest 2.7 only.  Still it does not work.\n\nTIA\nMilan.','',0,'gA==','3tb6k2nb',1,0,'',160,0,0),(3446,897,6,57,0,'81.34.172.223',1134555420,1,0,1,1,1,0,'','Antonio sobre el comportamiento de tsmtp ¿Alguna Solucion?','Antonio\nTe agradecería me indicaras alguna solución con relación al problema expuesto en un post anterior.\n\nSaludos\nToni Sales','',0,'gA==','vzsneh1w',1,0,'',57,0,0),(3447,898,4,354,0,'193.77.126.60',1134555426,1,0,1,1,1,0,'','show BITMAP','When I run this program the error message shown:\n\nMessage not found\nTBITMAP:DISPBEGIN\nstack calls:\n__ERRRT_SBASE(0)\n......\n\n\n#include \"FWCE.ch\"\nfunction Main()\n   local oWnd\n   DEFINE WINDOW oWnd TITLE \"Bmp-Res\"\n*   @ 10, 20 BITMAP RESOURCE \"users\" SIZE 60, 60      &amp;&amp; working\n   @ 10, 20 BITMAP filename CURDIR()+\"\\users.bmp\" SIZE 60, 60      &amp;&amp; does\'t working\n   ACTIVATE WINDOW oWnd\nreturn nil\n\ntnx for help, Darjo','',0,'gA==','3j3f6uwn',1,0,'',354,0,0),(3448,898,4,2,0,'80.58.2.107',1134557297,1,0,1,1,1,1,'','','Darjo,\n\nPlease download a new FWPPC we have just published that should fix that problem. Thanks.','',0,'gA==','1n3cjepi',1,0,'',2,0,0),(3449,882,3,2,0,'80.58.2.107',1134557701,1,0,1,1,1,1,'','','Milan,\n\nOur mistake, sorry. Its going to be published in a few days.\n\nWe email you the Class TCBrowse so you can test it. Thanks.','',0,'gA==','3atzn3ud',1,0,'',2,0,0),(3450,887,7,63,0,'80.58.35.107',1134557875,1,0,1,1,1,0,'','','Antonio:\nEMpiezo a creen que el REDEFINE LISTBOX en diálogos no funciona.  Sencillamente, da error y ni siquiera compila.  Lo mejor que he conseguido es esto:\n\noLbx := TWBrowse():Redefine(4001,{|| {customer-&gt;first} }, oDlg,;\n                            {\"Nombre\"},;\n                            {200}, , , , , {|nRow,nCol,nFlags|MiFuncion()},;\n                            , oFont , , , , , , \"Customer\", ,  , , )\n\nque por lo menos se ve en su diálogo pero da error \"ARGUMENT ERROR .TOT.\" en cuanto haces click en cualquier registro.  Adjunto código completo de la prueba, a ver si puedes darme alguna idea de como solucionarlo:\n\n\n[code:1qk7hye3]\n#include &quot;FWCE&#46;ch&quot;\n#include &quot;WinApi&#46;ch&quot;\n//----------------------------------------------------------------------------/\nFUNCTION Main&#40;&#41;\nLOCAL oWnd, oDlg, oLbx\n\nUSE &#40;CurDir&#40;&#41;+&quot;\\Customer&quot;&#41; NEW             // La DBF de \\SAMPLES\nDEFINE WINDOW oWnd TITLE &quot;Test&quot;\nACTIVATE WINDOW oWnd ON INIT AbrirDlg&#40;&#41;\nRETURN NIL\n\nSTATIC FUNCTION AbrirDlg&#40;&#41;\n\nDEFINE DIALOG oDlg RESOURCE &quot;LOOKUP1&quot;\nDEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -12\n\noLbx &#58;= TWBrowse&#40;&#41;&#58;Redefine&#40;4001,&#123;|| &#123;customer-&gt;first&#125; &#125;, oDlg,;\n                            &#123;&quot;Nombre&quot;&#125;,;\n                            &#123;200&#125;, , , , , &#123;|nRow,nCol,nFlags|MiFuncion&#40;&#41;&#125;,;\n                            , oFont , , , , , , &quot;Customer&quot;, ,  , , &#41;\n\nACTIVATE DIALOG oDlg\nRETURN NIL\n\nFUNCTION MiFuncion&#40;&#41;\nMsgInfo&#40;&quot;Hola&quot;&#41;\nRETURN NIL\n\n// -----------------------------------------------------------------------\nEl fichero &#46;RC&#58;\n\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n#include &lt;richedit&#46;h&gt;\n\nLANGUAGE LANG_SPANISH,SUBLANG_SPANISH_MODERN\n\nLOOKUP1 DIALOG DISCARDABLE 43, 27, 91, 76\nSTYLE WS_POPUP|DS_MODALFRAME|WS_SYSMENU|WS_VISIBLE\nFONT 8, &quot;System&quot;\nBEGIN\n  CONTROL &quot;Cancel&quot;, IDCANCEL, &quot;Button&quot;, WS_TABSTOP, 0, 0, 45, 15\n  CONTROL &quot;&quot;, 4001, &quot;TWBrowse&quot;, WS_VSCROLL|WS_BORDER|WS_TABSTOP, 0, 16, 88, 52\nEND\n\n\n\n\n[/code:1qk7hye3]','',0,'AIA=','1qk7hye3',1,0,'',63,0,0),(3451,897,6,2,0,'80.58.2.107',1134558017,1,0,1,1,1,1,'','','Toni,\n\nAcabamos de probar el ejemplo samples\\TestSmtp.prg tal como viene en FWH y ha funcionado bien al primer intento.\n\nNo será algún problema específico con gmail ? Ellos por ejemplo no admiten algunas extensiones de ficheros, como los ZIP.','',0,'AIA=','2qw9ri93',1,0,'',2,0,0),(3452,887,7,2,0,'80.58.2.107',1134558322,1,0,1,1,1,1,'','','Rafael,\n\nTu ejemplo ha funcionado a la primera. Lo único que tienes que quitar es esta línea del RC:\n\n#include &lt;richedit.h&gt; \n\nya que no existe, y entonces el RC no se compila.\n\nDe todas formas, una vez se visualiza, al hacer click en una línea del browse da un error. Vamos a ver de que se trata.','',0,'AIA=','3g2qv5co',1,1134558569,'',2,1,0),(3453,883,20,6,0,'87.3.232.170',1134558417,1,0,1,1,1,1,'','','Sì, ora va. Confermo i problemi che hai riscontrato. Sembra che non ci sia modo di capire se l\'utente ha premuto Annulla. Al più potresti capire se ha annullato o confermato lo stesso font. Inoltre la dimensione restituita effettivamente non corrisponde (ma potresti anche ignorare la cosa dato che quello che serve a te è solo il font restituito).\n\nEMG','',0,'AIA=','jsiy8os6',1,0,'',6,0,0),(3454,887,7,63,0,'80.58.35.107',1134558503,1,0,1,1,1,0,'','','Sí, Antonio.  Justo ése es el problema\nRafael','',0,'AIA=','3n5zbplu',1,0,'',63,0,0),(3455,889,3,130,0,'141.51.32.24',1134558615,1,0,1,1,1,0,'','Re: Date GETs with century','Brian,\n\nI think the simpliest way is to convert the date into a character, put it in the get-field and convert it back later. So you can use any format you want in the get.\n\nStefan','',0,'AIA=','3gd93y4b',1,0,'',130,0,0),(3456,887,7,2,0,'80.58.2.107',1134558933,1,0,1,1,1,1,'','','Rafael,\n\nAcabamos de publicar un nuevo build de FWPPC que soluciona el problema. Por favor descárgalo y prueba tu ejemplo de nuevo. Gracias.','',0,'AIA=','94f77gje',1,0,'',2,0,0),(3457,897,6,147,0,'208.51.141.113',1134559195,1,0,1,0,1,1,'','','Vuelvo a participar del hilo. En mi experiencia de envio a mi propia cuenta, otra yahoo y, otra gmail, en todos los casos, el adjunto se recibe como basura.\nA que se pude deber?','',0,'AIA=','3bv7i1cp',1,0,'',147,0,0),(3458,895,3,2,0,'80.58.2.107',1134559755,1,0,1,1,1,1,'','','Marco,\n\nThe problems comes from the gradient background where the bitmap is painted on.\n\nFWH already provides a special function to paint transparent on gradient background: \n\n[code:awpom4so]\nvoid TransBmp&#40; HBITMAP hBitmap, int iXsize, int iYsize,\n               COLORREF rgbTransparent, HDC hDC,\n               int iXOffset, int iYOffset, int iWidth, int iHeight &#41;[/code:awpom4so]\n\nsource is located at source\\function\\fwbmp.c. The problem is that we don\'t know why yet, this function looses GDI resources. We have been trying several times to find whats going wrong with it, but with no luck up to now.\n\nIf we could fix it, then we could easily paint transparent over a gradient background.','',0,'AIA=','awpom4so',1,0,'',2,0,0),(3459,867,3,2,0,'80.58.2.107',1134560051,1,0,1,1,1,1,'','','Johnny,\n\nWe already tried to use XP with chinese language and it was real difficult. \n\nYou may easily modify Class TEdit, add methods to it, test it and locate where the problem comes from.\n\nAnyhow, we may try it again,','',0,'AIA=','13g6pgj8',1,0,'',2,0,0),(3460,896,3,2,0,'80.58.2.107',1134560147,1,0,1,1,1,1,'','','Rimantas,\n\nHave you tried the same code with Borland ?\n\nAlso, once the EXE is built, open it with the resources workshop and check that the bitmaps are there.','',0,'AIA=','40wuq16n',1,0,'',2,0,0),(3461,897,6,2,0,'80.58.2.107',1134560249,1,0,1,1,1,1,'','','Mario,\n\nEstás probando el fichero adjunto del ejemplo samples\\TestSmtp.prg u otro fichero adjunto ? Quizá el problema sea el envio del fichero adjunto que no se hace correctamente. ¿ Que tamaño tiene ?','',0,'AIA=','2cc82yb5',1,0,'',2,0,0),(3462,887,7,63,0,'80.58.35.107',1134560436,1,0,1,1,1,0,'','Funciona!','Antonio:  La nueva versión de FWPPC funciona perfectamente!\n\nRespecto a lo del REDEFINE LISTBOX, acabo de descubrir que es dependiente del orden de los parámetros:\n\nEste funciona bien:\nREDEFINE LISTBOX oLbx FIELDS AFAB-&gt;NOMBRE ALIAS \"AFAB\" ID 4001 OF oDlg ON DBLCLICK MiFuncion()\n\nPero este da Error E0022  Invalid lvalue: \'String\' al compilar:\nREDEFINE LISTBOX oLbx ID 4001 OF oDlg ALIAS \"AFAB\" FIELDS AFAB-&gt;NOMBRE\n\nGracias!\nRafael','',0,'AIA=','2sct27uu',1,0,'',63,0,0),(3463,899,6,23,0,'80.58.44.235',1134561533,1,0,1,1,1,1,'','Satisfecho con el resultado','Hace un par de meses, cuando empecé a migrar mis aplicaciones a harbour+fwh me veía una montaña inalcanzable.\nTras mucho leer, mirar, buscar, preguntar e incordiar a todos vosotros, creo que al final ha merecido la pena y he conseguido crear un producto del cual me siento muy satisfecho.\n\nLa idea principal del diseño la saque del blog de René <!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com\">http://google.blogspot.com</a><!-- m --> (blog, que recomiendo encarecidamente que sigais los adeptos a este lenguaje), concretamente de la \"Crónica de una migración existosa\".\nAsí, me decidi a usar tsbrowse, las vtaskbar que adquirí a Paco y unas cuantas cosillas más, como el C5Menu que tan bien adaptó Juan Carlos Salinas Ojeda a FWH.\n\nBueno aquí os dejo una pantalla para que le hecheis un vistazo y me digais si os gusta.\n\n[url:2miw7azs]http&#58;//www&#46;sigev&#46;com/SIFACWIN&#46;jpg[/url:2miw7azs]\n \n\nPD. Agradecer enormemente a FGondi y su gran sabiduría en el manejo del tsbrowse','',0,'EA==','2miw7azs',1,0,'',23,0,0),(3464,900,6,131,0,'194.179.55.36',1134563018,1,0,1,1,1,0,'','browse sobre array','Hola:\nQuiero hacer un mantenimiento de una tabla que tiene una relación a muchos sobre otra en un entorno multiusuario. Cuando edito un registro de la tabla principal quiero mostrar en un browse los registros relacionados. Como la edición se puede abandonar cancelando, no puedo mostrar directamente los registros de la tabla dependiente y estoy intentando montar un array con los registros dependientes para mostrarlos ahi y dar altas y bajas y luego refrescar la tabla real en caso de aceptar los cambios.\n\nEstoy intentando hacer un browse sobre este array que en algunos momentos puede estar vacio y me estoy encontrando que ni con twbrowse ni con xbrowse puedo hacerlo y que en cuanto el array está vacio me truena irremediablemente. ¿ Alguna idea de como atacar esto ? ¿ Con alguna clase de rdd sobre arrays ? ¿ Cual ?\n\nSaludos,\nJosé Luis','',0,'EA==','htiduknh',1,0,'',131,0,0),(3465,896,3,31,0,'195.182.84.105',1134563074,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1novgjcs]Rimantas,\n\nHave you tried the same code with Borland ?\n\nAlso, once the EXE is built, open it with the resources workshop and check that the bitmaps are there.[/quote:1novgjcs]\n\n   I alreday wrote that with Borland that works fine , so I can\'t understand this \"check with RW that the bitmaps are there\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) . It works fine with Borland , and bitmaps exist in my recourse file . I also reviewed that and with PellesC recourse manager . It has only one difference from Borlands - can\'t understand the main icon with zero in the front : 0MyMainIcon . I did the changes , delete zero from the main icon ( then disseapers icons from mdichilds , but that isn\'t important )  , it can be viewed in Borlands, PellesC recourses managers . \n\n   Regards ! Rimantas .','',0,'gA==','1novgjcs',1,0,'',31,0,0),(3466,896,3,31,0,'195.182.84.105',1134563273,1,0,1,1,1,1,'','','[quote=&quot;Rimantas&quot;:3q6k5imu][quote=&quot;Antonio Linares&quot;:3q6k5imu]Rimantas,\n\nHave you tried the same code with Borland ?\n\nAlso, once the EXE is built, open it with the resources workshop and check that the bitmaps are there.[/quote:3q6k5imu]\n\n   I alreday wrote that with Borland that works fine , so I can\'t understand this \"check with RW that the bitmaps are there\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) [/quote:3q6k5imu]\n\n   Excuse , I didn\'t wrote that in earlier , that with Borlands works fine . I want to correct this <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> .\n   \n   Regards ! Rimantas .','',0,'gA==','3q6k5imu',1,0,'',31,0,0),(3467,896,3,2,0,'80.58.2.107',1134563587,1,0,1,1,1,1,'','','Rimantas,\n\nYou may use FindResource() function to check that the resource is available and accesible at runtime.','',0,'gA==','34sefva1',1,0,'',2,0,0),(3468,899,6,2,0,'80.58.2.107',1134563721,1,0,1,1,1,1,'','','Angel,\n\nTiene una apariencia impecable. Enhorabuena <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3w1e1x2r',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (3469,900,6,23,0,'80.58.44.235',1134564115,1,0,1,1,1,1,'','','No quiero decir que los arrays sea una mala idea pero yo en estos casos desde siempre creo un fichero temporal con la estructura de la tabla relacionada y la lleno con los registros que cumplen los requisitos.\nUna vez acabado el proceso, decides si actualizar o no la tabla.\nLuego, se borra el fichero y, funciona perfecto.\n\nUn saludo.','',0,'gA==','1owgithz',1,0,'',23,0,0),(3470,875,6,295,0,'200.112.81.36',1134564551,1,0,1,1,1,1,'','','Amigos:\n ya pude compilar la RC A 32 BITS , pero EL PROGRMA ABRE EL DIALOGO SOLO con CIERTOS CONTROLES TALES COMO:\nEL Edit Text, AutoCheckBox y varios otros , pero al momento de crear una grilla o botones BtnBmp hasta ahi no mas llega y al momento de ejecutar se cae y vuelve a dar el error\"cannot create dialog..\"\npregunta:\nya no debo usar mas workshop? (tengo la ver 4.5), que me recomiendan?\n\nSALUDOS Y GRACIAS','',0,'gA==','x59sa5gl',1,0,'',295,0,0),(3471,875,6,2,0,'80.58.2.107',1134565389,1,0,1,1,1,1,'','','Luis,\n\nCuando añadas un browse ó botones TBtnBmp, el diálogo no podrá activarse sino has redefinido esos controles en tu PRG.\n\nPuedes usar PellesC como editor de recursos, es gratuito y más moderno <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> aunque el Resources Workshop de Borland sigue funcionando perfectamente.','',0,'gA==','39u4nnuh',1,0,'',2,0,0),(3472,895,3,6,0,'87.3.232.170',1134565449,1,0,1,1,1,1,'','','I can\'t see anything wrong in the TransBmp() source code...\n\nEMG','',0,'gA==','1ak27s3k',1,0,'',6,0,0),(3473,895,3,2,0,'80.58.2.107',1134565624,1,0,1,1,1,1,'','','Enrico,\n\nYes, I think the same but the fact is that if we use it, and you start resizing the main window, then you can see how it gets slower, as it were consuming more and more resources.\n\nThe code is there, so it may be used, but with caution until we know for sure if it is working ok.','',0,'gA==','1yoneh5n',1,0,'',2,0,0),(3474,883,20,154,0,'151.81.5.140',1134565897,1,0,1,1,1,1,'','','&gt; Confermo i problemi che hai riscontrato. \n&gt; Sembra che non ci sia modo di capire se l\'utente ha premuto Annulla. \n&gt; Al più potresti capire se ha annullato o confermato lo stesso font. \n&gt; Inoltre la dimensione restituita effettivamente non corrisponde\n\n&gt; (ma potresti anche ignorare la cosa dato che quello che serve a te è\n     solo il    font restituito)\n\nPurtroppo invece mi serve il nome del font, la dimensione e se è bold, italico e quanto ho definito nella variabile aFont, con la quale costruisco il font sulla stampante...\n\nGrazie, cmq.\nPosto sull\'internazionale!\n\nCiao,\nUgo','',0,'gA==','1dd2qk5h',1,0,'',154,0,0),(3475,895,3,6,0,'87.3.232.170',1134565987,1,0,1,1,1,1,'','','Might it be that it keeps called by the paint event when it haven\'t already terminated the previous execution?\n\nOnly a stub in the dark.\n\nEMG','',0,'gA==','7p3bxnlb',1,0,'',6,0,0),(3476,901,3,154,0,'151.81.5.140',1134566283,1,0,1,1,1,1,'','ChooseFont','Hi Fw\'s.\n\nChooseFont function can not set correctly the dimension of character passed in Array parameter and if I change the dimension is not the set value correctly.\n\nFor Ex. I set in the array -12, ChooseFont 9, select 12 and return -16!!!\n\nAnother problem is if I press \"Cancel\" button after any setting, the function return the data setting and not the previous value.\n\nMany thanks for the help\n\nFor more info test this:\n\n#define LF_HEIGHT 1\n#define LF_WIDTH 2\n#define LF_ESCAPEMENT 3\n#define LF_ORIENTATION 4\n#define LF_WEIGHT 5\n#define LF_ITALIC 6\n#define LF_UNDERLINE 7\n#define LF_STRIKEOUT 8\n#define LF_CHARSET 9\n#define LF_OUTPRECISION 10\n#define LF_CLIPPRECISION 11\n#define LF_QUALITY 12\n#define LF_PITCHANDFAMILY 13\n#define LF_FACENAME 14\n\n#define FW_NORMAL 400\n#define FW_BOLD 700\n\n//------------------------------------------------------------------------------\n\nFUNCTION Main( )\n\nLOCAL aFont[14], oIni, aOldFont, cFont\n\nINI oIni FILE \"prova.ini\"\nGET cFont SECTION \"Stampanti\" ENTRY \"FontInStampa\" OF oIni DEFAULT \"Arial| 0| -12| 0| 0| 0| 0| 0\"\nENDINI\n\nMsgInfo( cFont )\n\naFont[LF_FACENAME] := ALLTRIM(StrToken(cFont,1,\"|\" ))\naFont[LF_WIDTH] := VAL( StrToken( cFont, 2, \"|\" ))\naFont[LF_HEIGHT] := VAL( StrToken( cFont, 3, \"|\" ))\naFont[LF_WEIGHT] := IF( VAL( StrToken( cFont, 4, \"|\" )) &gt; 0, FW_BOLD, FW_NORMAL )\naFont[LF_ESCAPEMENT] := VAL( StrToken( cFont, 5, \"|\" ))\naFont[LF_ITALIC] := VAL( StrToken( cFont, 6, \"|\" )) &gt; 1\naFont[LF_UNDERLINE] := VAL( StrToken( cFont, 7, \"|\" )) &gt; 1\n\naOldFont := AClone( aFont )\n\naFont := ChooseFont( aFont )\n\ncFont := aFont[LF_FACENAME] + \"|\" +;\ncValToChar( aFont[LF_WIDTH] ) + \"|\" +;\ncValToChar( aFont[LF_HEIGHT] ) + \"|\" +;\ncValToChar( aFont[LF_WEIGHT] ) + \"|\" +;\ncValToChar( aFont[LF_ESCAPEMENT] ) + \"|\" +;\ncValToChar( aFont[LF_ITALIC] ) + \"|\" +;\ncValToChar( aFont[LF_UNDERLINE] )\n\n// Test in uscita\nMsgInfo( cFont )\n\nreturn If( ! Empty( aFont[ LF_FACENAME ] ), aFont, aOldFont )\n\n//------------------------------------------------------------------------------','',0,'','1lika1tn',1,0,'',154,0,0),(3477,890,6,97,0,'200.23.84.231',1134566651,1,0,1,1,1,1,'','Gracias','Gracias juan carlos, no me habia fijado donde hacia el link .res y valla que habia revisado el builh.\n\nahora si trabajar con el pellesc','',0,'','2ziiaakh',1,0,'',97,0,0),(3478,875,6,295,0,'200.112.81.36',1134567420,1,0,1,1,1,1,'','','Antonio, te refieres a :\n\n 	redefine listbox olbx fields nutrien-&gt;alimento,;\n 										  nutrien-&gt;codigo,;\n 										  nutrien-&gt;codalt;\n 							headers \"Descripción\",;\n 						  \"código\",;\n 						  \"Código Alternativo\";\n 				id 100 OF oDlg\n 	 		 oLbx:aJustify := {.F.,.F.,.F.}\n\no..\n	 REDEFINE BUTTON oB400 ID 400 OF oDlg ACTION (oDlg:end())\nasi los tengo redefinidos\n\neL PROBLEMA SE SUCITA CUANDO EN WORKSHOP ADICIONO EL BROWSER Y TENIENDOLO REDEFINIDO EN EL PRG SE CAE.. \nSI SE LO QUITO EL DIALOGO APARECE EN PANTALLA ..PERO SIN EL BROWSER..\n\nSALUDOS','',0,'','19zelclr',1,0,'',295,0,0),(3479,895,3,2,0,'80.58.2.107',1134568231,1,0,1,1,1,1,'','','Enrico,\n\nIts a good idea, thank you <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nLets check it...','',0,'','36uc5dp6',1,0,'',2,0,0),(3480,868,2,15,0,'203.73.91.249',1134568367,1,0,1,1,1,0,'','','Hello\n\nCould you tell me how to display AutoCAD file type .DWG?\nI want to display .DWG into my Resource Dialog or windows?\n\nThank you.\n\nRichard','',0,'','7h3gh0ii',1,0,'',15,0,0),(3481,896,3,31,0,'195.182.84.105',1134568447,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:39udpfs9]Rimantas,\n\nYou may use FindResource() function to check that the resource is available and accesible at runtime.[/quote:39udpfs9]\n\n\n   Thank Antonio , for advice ! I reviewed this function and have one question :  FindResource( hResources, cResName, nResType ) . What to include into hResources ? 0 ?\n\n   Regards ! Rimantas .','',0,'gA==','39udpfs9',1,0,'',31,0,0),(3482,896,3,6,0,'87.3.232.170',1134568509,1,0,1,1,1,1,'','','GetResources()\n\nEMG','',0,'gA==','2qpd7hs9',1,0,'',6,0,0),(3483,879,3,29,0,'80.181.108.140',1134569107,1,0,1,1,1,0,'','','Hi Brian,\nthanks you for your email.\n\nI tried with the toolbar1.prg FW\'s sample but it doesn\'t runs.\nCould you pls.send me a working sample ?\n\nThanks in advance.\n\nMarco','',0,'gA==','1y6uzftg',1,0,'',29,0,0),(3484,900,6,74,0,'190.48.238.93',1134570849,1,0,1,1,1,1,'','','Jose Luis:  \n\n               Yo uso esto con twbrowse, basta con pasarle cualquier vector:\n\nFUNCTION MCHOICE(aNcampos,X,Y,ANCHO,ALTO,cTitulo)\n\nLocal oDlg, aBrw, RET:=0, nItem:=1,largo:=len(aNcampos)\nDEFAULT 	cTitulo:=\"Seleccione...\"\n\n	 DEFINE DIALOG oDlg RESOURCE \"MCHOICE\" TITLE cTitulo\n   oDlg:lHelpIcon:=.f.\n\n   REDEFINE LISTBOX aBrw FIELDS ANCAMPOS[NITEM] id 999 of odlg;\n   FIELDSIZES 281 ON DBLCLICK (Ret:=nItem,oDlg:End()) //COLORS CLR_BLUE\n\n	 aBrw:cAlias    = \"Array\"                // Just put something\n	 aBrw:bLogicLen = { || Len( aNcampos ) }\n	 aBrw:SetArray(aNCampos)\n   aBrw:bGoTop    = { || nItem := 1 }\n   aBrw:bGoBottom = { || nItem := Eval( aBrw:bLogicLen ) }\n	 aBrw:bGoBottom = { || nItem := Eval( aBrw:bLogicLen ) }\n   aBrw:bSkip     = { | nWant, nOld | nOld := nItem, nItem += nWant,;\n                        nItem := Max( 1, Min( nItem, Eval( aBrw:bLogicLen ) ) ),;\n                        nItem - nOld }\n   aBrw:bKeyChar  = { | nK | if( nK==VK_RETURN,(Ret:=nItem,oDlg:End()),) } // Controlling keystrokes\n	 aBrw:lDrawHeader := .f.\n	 aBrw:lcellstyle := .t.\n	 aBrw:nlinestyle := 2\n	 aBrw:nclrpane:= {|| iif( (nItem/2)-INT(nItem/2) &gt; 0, CLR_LBLUE, CLR_LGRAY) }\n*  oBrw:nClrPane:={|| IIF((wAlias)-&gt;(OrdKeyNo())%2==0,CLR_LBLUE,CLR_LGRAY)}\n	 aBrw:GoTop()\n   oDlg:SetControl(aBrw)\n\n   //ACTIVATE DIALOG oDlg ON INIT (aBrw:GoTop(),aBrw:Refresh(),oDlg:setsize(ANCHO,ALTO),oDlg:Move(X,Y))\n   ACTIVATE DIALOG oDlg ON INIT (oDlg:Move(X,Y),oDlg:setsize(ANCHO,ALTO))\n\nRETURN Ret\n\n               Tambien podes browsear matrices:\n\nStatic Function TotPractica(cAlias,oBrw)\n\nLocal oDlg, aBrw, RET:=0, nItem:=1\nLocal X:=390,Y:=200,ANCHO:=454,ALTO:=140,cTitulo:=oemtoansi(\"Totales por Pr ctica\")\nLocal nReg\nLocal aPractica:={},cCodPra:=(cAlias)-&gt;PRACTICA,largo:=0,I:=1,cTipo,cRecno:=(cAlias)-&gt;(RECNO())\nLocal aOrdenado:={},aPrueba:={}\n\nDEFAULT 	cTitulo:=\"Seleccione...\"\n\n	(cAlias)-&gt;(DBGOTOP())\n\n	DO WHILE ! (cAlias)-&gt;(EOF())\n\n		 		IF LEN(aPractica)==0\n						aadd(aPractica,{BUS_DES(\"PRACTICA\",1,(cAlias)-&gt;PRACTICA,\"NOMBRE\"),1,(cAlias)-&gt;APAGAR})\n		 		ELSE\n					  cTipo:=BUS_DES(\"PRACTICA\",1,(cAlias)-&gt;PRACTICA,\"NOMBRE\")\n		 				nReg:=ASCAN( aPractica, { |aField| aField[1]==cTipo } )\n		 				IF nReg == 0\n							 aadd(aPractica,{BUS_DES(\"PRACTICA\",1,(cAlias)-&gt;PRACTICA,\"NOMBRE\"),1,(cAlias)-&gt;APAGAR})\n		 				ELSE\n 							 aPractica[nReg,2]+=1\n							 aPractica[nReg,3]+=(cAlias)-&gt;APAGAR\n		 				ENDIF\n		 		ENDIF\n		 (cAlias)-&gt;(DBSKIP())\n	ENDDO\n\n	(cAlias)-&gt;(DBGOTO(cRecno))\n	oBrw:Refresh()\n\n	 FOR I:=1 TO LEN(aPractica)\n		 aPractica[i,2]:=TRANS(aPractica[i,2],\"@E 9,999\")\n		 aPractica[i,3]:=TRANS(aPractica[i,3],\"@E 999,999.99\")+\"  \"\n	 NEXT\n\n	 IF LEN(aPractica)==0\n			Aadd(aPractica,{SPAC(30),SPAC(9),SPAC(10)})\n	 ENDIF\n\n	 DEFINE DIALOG oDlg RESOURCE \"MCHOICE\" TITLE cTitulo\n   oDlg:lHelpIcon:=.f.\n\n	 aOrdenado:=ASORT(aPractica,,,{|x,y| x[1] &lt; y[1]})\n\n   REDEFINE LISTBOX aBrw FIELDS aOrdenado[NITEM,1],aOrdenado[NITEM,2],aOrdenado[NITEM,3] ;\n	 HEADER oemtoansi(\"Descripci¢n\"),\" Cant.\",\" Importe \";\n	 id 999 of odlg;\n   FIELDSIZES 269,59,96 ON DBLCLICK (Ret:=nItem,oDlg:End()) //COLORS CLR_BLUE\n\n	 aBrw:cAlias    = \"Array\"                // Just put something\n	 aBrw:bLogicLen = { || Len( aOrdenado ) }\n	 aBrw:SetArray(aOrdenado)\n   aBrw:bGoTop    = { || nItem := 1 }\n   aBrw:bGoBottom = { || nItem := Eval( aBrw:bLogicLen ) }\n	 aBrw:bGoBottom = { || nItem := Eval( aBrw:bLogicLen ) }\n   aBrw:bSkip     = { | nWant, nOld | nOld := nItem, nItem += nWant,;\n                        nItem := Max( 1, Min( nItem, Eval( aBrw:bLogicLen ) ) ),;\n                        nItem - nOld }\n   aBrw:bKeyChar  = { | nK | if( nK==VK_RETURN,(Ret:=nItem,oDlg:End()),) } // Controlling keystrokes\n	 aBrw:lcellstyle := .t.\n	 aBrw:nlinestyle := 2\n	 aBrw:aJustify:={0,2,1}\n	 aBrw:nclrpane:= {|| iif( (nItem/2)-INT(nItem/2) &gt; 0, CLR_LBLUE, CLR_LGRAY) }\n	 aBrw:lAdjLastcol:=.F.\n	 aBrw:GoTop()\n   oDlg:SetControl(aBrw)\n	 ALTO:=50+16.0*LEN(aOrdenado)\n	 IF(ALTO &gt; 550,ALTO:=550,)\n\n	 IF LEN(aOrdenado) &lt; 15\n   		ACTIVATE DIALOG oDlg ON INIT (oDlg:Move(X,Y),oDlg:setsize(ANCHO,ALTO))\n	 ELSE\n			ACTIVATE DIALOG oDlg ON INIT (oDlg:Move(X,Y),oDlg:setsize(ANCHO,ALTO),oDlg:Center())\n	 ENDIF\n\nReturn nil\n\nSaludos,','',0,'','3c2oe0gy',1,0,'',74,0,0),(3485,902,6,104,0,'201.19.83.143',1134571117,1,0,1,1,1,0,'','Gettasks não funciona com fwh 2.7 november','Olá Antonio,\n\nA função gettaks() não está retornando mais os processos que estão em andamento no momento. \n\n   aTasks    := GetTasks()\n   cErrorLog += \"   Total de Aplicações rodando até o momento: \" + ;\n                AllTrim( Str( Len( aTasks ) ) ) + CRLF\n   for n = 1 to Len( aTasks )\n      cErrorLog += \"    \" + Str( n, 3 ) + \" \" + aTasks[ n ] + CRLF\n   next\n\nLen( aTasks ) sempre retorna = 0\n\nPorque ?\n\nAbraços,\n\nRossine.','',0,'','3nw4d61k',1,0,'',104,0,0),(3486,903,5,355,0,'145.253.191.71',1134571150,1,0,1,1,1,0,'','Programmer search','We search a programmer in Berlin. \nWartung und weiterbearbeitung eines bestehenden Programmes. Der Job kann immer wieder einige Stunden in der Woche bringen.  Mail an: <!-- e --><a href=\"mailto:cgraeber@girone.de\">cgraeber@girone.de</a><!-- e -->','',0,'','21jkfozx',1,0,'',355,0,0),(3487,897,6,106,0,'85.34.123.172',1134572223,1,0,0,1,1,1,'','','Acabo de probar el testsmtp que viene con FWH27 y no me funciona. aunque dice que el mail lo envio correctamente.\n\n enviado a adinet.com.uy, yahoo.es, yahoo.it, gmail.com, y otras direcciones, pero no funciona el envio a ninguna, directamente no me envia el e-mail.','',0,'','3usoocwa',1,0,'',106,0,0),(3488,885,21,223,0,'200.204.170.177',1134572599,1,0,1,1,1,1,'','','Paiva,\nPoste no fórum do <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.com.br\">www.fivewin.com.br</a><!-- w -->, lá têm gente q usa a bematech  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','wwd2cect',1,0,'',223,0,0),(3489,883,20,20,0,'195.110.155.219',1134572793,1,0,1,1,1,0,'','','Per intercettare il tasto Annulla è necessario modificare la funzione ChooseFont contenuta nel modulo font.c\n\n...\n\nif ( !bOk )\n      _reta(0);\n   else {\n      _reta( 14 );\n      _storni( ( bOk || bInitLF ) ? lf.lfHeight:         0, -1, LF_HEIGHT );\n      _storni( ( bOk || bInitLF ) ? lf.lfWidth:          0, -1, LF_WIDTH );\n      _storni( ( bOk || bInitLF ) ? lf.lfEscapement:     0, -1, LF_ESCAPEMENT );\n      _storni( ( bOk || bInitLF ) ? lf.lfOrientation:    0, -1, LF_ORIENTATION );\n      _storni( ( bOk || bInitLF ) ? lf.lfWeight:         0, -1, LF_WEIGHT );\n      _storl(  ( bOk || bInitLF ) ? lf.lfItalic:         0, -1, LF_ITALIC );\n      _storl(  ( bOk || bInitLF ) ? lf.lfUnderline:      0, -1, LF_UNDERLINE );\n      _storl(  ( bOk || bInitLF ) ? lf.lfStrikeOut:      0, -1, LF_STRIKEOUT );\n      _storni( ( bOk || bInitLF ) ? lf.lfCharSet:        0, -1, LF_CHARSET );\n      _storni( ( bOk || bInitLF ) ? lf.lfOutPrecision:   0, -1, LF_OUTPRECISION );\n      _storni( ( bOk || bInitLF ) ? lf.lfClipPrecision:  0, -1, LF_CLIPPRECISION );\n      _storni( ( bOk || bInitLF ) ? lf.lfQuality:        0, -1, LF_QUALITY );\n      _storni( ( bOk || bInitLF ) ? lf.lfPitchAndFamily: 0, -1, LF_PITCHANDFAMILY );\n      _storc(  ( bOk || bInitLF ) ? lf.lfFaceName:      \"\", -1, LF_FACENAME );\n\n...\n\nCiao a tutti.\n\nPier Luigi','',0,'','2836x5bk',1,0,'',20,0,0),(3490,701,2,223,0,'200.204.170.177',1134572900,1,0,1,1,1,1,'','','Hola,\nPode perfeitamente usar Dbf, com Linux, através de Samba  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1wpn6508',1,0,'',223,0,0),(3491,890,6,255,0,'200.67.134.233',1134572908,1,0,1,1,1,1,'','Re: Gracias','[quote=&quot;fsandoval&quot;:2mgqx43i]Gracias juan carlos, no me habia fijado donde hacia el link .res y valla que habia revisado el builh.\nahora si trabajar con el pellesc[/quote:2mgqx43i]\n\nPor cierto, tambien puedes usar Verce 4.3\nSolo es sugerencia.','',0,'gA==','2mgqx43i',1,0,'',255,0,0),(3492,883,20,6,0,'87.3.232.170',1134573012,1,0,1,1,1,1,'','','Perché non lo segnali ad Antonio così la corregge?\n\nEMG','',0,'gA==','3u686wum',1,0,'',6,0,0),(3493,717,6,223,0,'200.204.170.177',1134573577,1,0,1,1,1,1,'','','Hola,\nSe usa o xHarbour\n\nUSE MD \nset index to MDL \nSet scope TO \"ALICIA\",\"ALICIA\" \n\nDBGOTOP() \n\nOrdWildSeek(\"*ZUC*\")\nDo Whil !Eof() .and. OrdWildSeek(\"*ZUC*\",.T.)\nLogFile(\"Teste.Log\",{PER_NOMBRE })\nEnddo','',0,'gA==','2o2fnrzw',1,0,'',223,0,0),(3494,899,6,255,0,'200.67.134.233',1134573697,1,0,1,1,1,1,'','Re: Satisfecho con el resultado','[quote=&quot;AngelSalom&quot;:3b97xfjy]Hace un par de meses, cuando empecé a migrar mis aplicaciones a harbour+fwh me veía una montaña inalcanzable.\nTras mucho leer, mirar, buscar, preguntar e incordiar a todos vosotros, creo que al final ha merecido la pena y he conseguido crear un producto del cual me siento muy satisfecho.\nLa idea principal del diseño la saque del blog de René <!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com\">http://google.blogspot.com</a><!-- m --> (blog, que recomiendo encarecidamente que sigais los adeptos a este lenguaje), concretamente de la \"Crónica de una migración existosa\".\nAsí, me decidi a usar tsbrowse, las vtaskbar que adquirí a Paco y unas cuantas cosillas más, como el C5Menu que tan bien adaptó Juan Carlos Salinas Ojeda a FWH.Bueno aquí os dejo una pantalla para que le hecheis un vistazo y me digais si os gusta.\n[url:3b97xfjy]http&#58;//www&#46;sigev&#46;com/SIFACWIN&#46;jpg[/url:3b97xfjy]\nPD. Agradecer enormemente a FGondi y su gran sabiduría en el manejo del tsbrowse[/quote:3b97xfjy]\n\n\nEs bueno saber que fué productivo el C5menu <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nEn hora buena, tu app luce bastante bien.\n\nSaludos','',0,'kA==','3b97xfjy',1,0,'',255,0,0),(3495,904,18,20,0,'195.110.155.219',1134573721,1,0,1,1,1,0,'','ChooseFont function (fixed)','In order to intercept the \"Cancel\" key is necessary to modify the ChooseFont function in the module font.c\n\n...\n\n   if ( !bOk )         \n        _reta(0);\n   else {\n        _reta( 14 );\n        _storni( ( bOk || bInitLF ) ? lf.lfHeight:         0, -1, LF_HEIGHT );\n        _storni( ( bOk || bInitLF ) ? lf.lfWidth:          0, -1, LF_WIDTH );\n        _storni( ( bOk || bInitLF ) ? lf.lfEscapement:     0, -1, LF_ESCAPEMENT );\n        _storni( ( bOk || bInitLF ) ? lf.lfOrientation:    0, -1, LF_ORIENTATION );\n        _storni( ( bOk || bInitLF ) ? lf.lfWeight:         0, -1, LF_WEIGHT );\n        _storl(  ( bOk || bInitLF ) ? lf.lfItalic:         0, -1, LF_ITALIC );\n        _storl(  ( bOk || bInitLF ) ? lf.lfUnderline:      0, -1, LF_UNDERLINE );\n        _storl(  ( bOk || bInitLF ) ? lf.lfStrikeOut:      0, -1, LF_STRIKEOUT );\n        _storni( ( bOk || bInitLF ) ? lf.lfCharSet:        0, -1, LF_CHARSET );\n        _storni( ( bOk || bInitLF ) ? lf.lfOutPrecision:   0, -1, LF_OUTPRECISION );\n        _storni( ( bOk || bInitLF ) ? lf.lfClipPrecision:  0, -1, LF_CLIPPRECISION );\n        _storni( ( bOk || bInitLF ) ? lf.lfQuality:        0, -1, LF_QUALITY );\n        _storni( ( bOk || bInitLF ) ? lf.lfPitchAndFamily: 0, -1, LF_PITCHANDFAMILY );\n        _storc(  ( bOk || bInitLF ) ? lf.lfFaceName:      \"\", -1, LF_FACENAME );\n\n      }\n\n...\n\nRegards\nPier Luigi','',0,'kA==','1zirdasf',1,0,'',20,0,0),(3496,883,20,20,0,'195.110.155.219',1134573875,1,0,1,1,1,0,'','','Ok. Fatto.\n\nCiao\nPier Luigi','',0,'kA==','3bpx8b2l',1,0,'',20,0,0),(3497,897,6,57,0,'81.34.172.223',1134574773,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1p37kjoq]Toni,\n\nAcabamos de probar el ejemplo samples\\TestSmtp.prg tal como viene en FWH y ha funcionado bien al primer intento.\n\nNo será algún problema específico con gmail ? Ellos por ejemplo no admiten algunas extensiones de ficheros, como los ZIP.[/quote:1p37kjoq]\n\nAntonio\nNo creo yá que pasa lo mismo con otras cuentas. Si te fijas en el ejemplo que indiqué en el post anterior, no enviaba ningun adjunto. \n\nLo curioso es que siempre indica que el correo ha sido enviado con éxito. Yo por ejemplo me envio un correo a mí mismo y lo recibo sin problemas, de ahí el comportamiento extraño. Inicialmente creí que sería problema de haber indicado la dirección de forma incorrecta, pero son varios los clientes que se han quejado. De ahí que intenté hacer mas pruebas. Envié el mismo ejemplo a varios clientes y dirigidos a varias direcciones diferentes y en todos los casos el correo se envia correctamente pero no se recibe.\n\nSaludos','',0,'gA==','1p37kjoq',1,0,'',57,0,0),(3498,883,20,6,0,'87.3.232.170',1134575295,1,0,1,1,1,1,'','','Grazie!\n\nEMG','',0,'gA==','1rw2ujl1',1,0,'',6,0,0),(3499,905,6,23,0,'80.58.44.235',1134575512,1,0,1,1,1,1,'','Preview y los informes en apaisado','Buenasss.\nVeréis lanzo un informe en apaisado por la impresora y va muy bien, pero si lo envio a previsualizar y lo mando desde ahí, se olvida del ::SetLandScape() y me sale en vertical (o portrait <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> )\n\nAlgún bug? o yo hago algo mal...\ngracias.','',0,'gA==','1llpf2uz',1,0,'',23,0,0),(3500,875,6,2,0,'80.58.2.107',1134575726,1,0,1,1,1,1,'','','Luis,\n\nSi es un botón con bitmap, entonces en vez de:\n\nREDEFINE BUTTON oB400 ID 400 OF oDlg ACTION (oDlg:end()) \n\ndeberías usar:\n\nREDEFINE BTNBMP oB400 ID 400 OF oDlg ACTION (oDlg:end())','',0,'gA==','18njokht',1,0,'',2,0,0),(3501,897,6,138,0,'201.128.111.75',1134578183,1,0,1,1,1,1,'','','Jejejeje....\n\nLa clase TSMTP de FiveWin COMO ESTA en el producto original NO ENVIA ARCHIVOS ANEXOS CORRECTAMENTE, mas claro ni el agua, los anexos los maneja como si fuesen cadenas de caracteres codificadas MIME.\n\nSi quieren enviar archivos anexos que no sean textos correctamente pueden utilizar la clase TSMTP modificada por Luis Krause o en su defecto, el componente SMTP que viene incluido en Funcky 6.0, aunque, hay algunas cuentas de correo, especialmente las web mail que no manipulan correctamente los archivos adjuntos.','',0,'gA==','3ksmlpr4',1,0,'',138,0,0),(3502,899,6,138,0,'201.128.111.75',1134578383,1,0,1,1,1,1,'','','joer que bonitoooooooo.... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3cogzejw',1,0,'',138,0,0),(3503,892,5,353,0,'216.31.188.214',1134578860,1,0,1,1,1,0,'','','Thanks for the info. I\'ll keep in touch.  BTW is 2.7 a 32bit program or do I go fron 1.92 to 2.7 to harbour?','',0,'gA==','7mc07yhm',1,0,'',353,0,0),(3504,898,4,354,0,'193.77.126.60',1134579184,1,0,1,1,1,0,'','show BITMAP','Antonio, thank you for quick answer. I installed new version. Now is better. But now is black border around picture - the shown picture is greater then original ???\n\nregards, Darjo','',0,'gA==','3da8nc1o',1,0,'',354,0,0),(3505,896,3,31,0,'84.15.27.93',1134579797,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:103of9e3]GetResources()\n\nEMG[/quote:103of9e3]\n\n   Thanks , Enrico ! I tried the advice of Antonio , sorry , the results are bads - FindResource() return 0 .. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->( . But ... PROBLEM SOLVED !!! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) Advice : DO NOT USE in resources files names with BEGINNING \"R_\" - R_MyBitmap1 . It come to my brains this idea , that it can be problem of names . I used 5 so named bitmaps and only they wasn\'t not visibles . So after renaming it all is working OK ! \n\n   Anyway , thanks for help ! With best regards ! Rimantas .','',0,'gA==','103of9e3',1,0,'',31,0,0),(3506,896,3,6,0,'87.3.232.170',1134580328,1,0,1,1,1,1,'','','Good to know.\n\nEMG','',0,'gA==','28mku4ja',1,0,'',6,0,0),(3507,844,1,86,0,'213.119.103.68',1134584323,1,0,1,1,1,1,'','','Antonio,\n\nI was able to get Clipper 5.2e from a friend.\n\nProblem is solved now.\n\nThanks.\n\nMichel','',0,'gA==','rtie4vfp',1,0,'',86,0,0),(3508,701,2,319,0,'201.1.174.21',1134584812,1,0,1,1,1,0,'','','você podera trabalhar normal com o servidor linux e as estações Windows, pois tenho alguns clientes que já trabalhamd dessa forma','',0,'gA==','1dyzudsa',1,0,'',319,0,0),(3509,886,6,168,0,'200.44.50.43',1134588273,1,0,1,1,1,0,'','','Usa JRO (Jet and Replication Objects): The Vb code follows :\n\nDim oJro As JRO.JetEngine\nDim cnn1 As String, cnn2 As String\n\n\' Creamos un nuevo objeto JetEngine\nSet oJro = New JRO.JetEngine\n\n\' Cadena de conexión de origen\ncnn1 = \"Provider=Microsoft.Jet.OLEDB.4.0;\" &amp; _\n           \"Data source=c:\\Mis documentos\\base97.mdb;\" &amp; _\n           \"Jet OLEDB:Engine Type = 4;\" &amp; _\n           \"Jet OLEDB:Database Password = Contraseña\"\n\n\' Cadena de conexión de destino\ncnn2 = \"Provider=Microsoft.Jet.OLEDB.4.0;\" &amp; _\n           \"Data source=c:\\Mis documentos\\base2000.mdb;\" &amp; _\n           \"Jet OLEDB:Engine Type = 5;\" &amp; _\n           \"Jet OLEDB:Database Password = Contraseña\"\n\n\' Compactamos la base de datos\noJro.CompactDatabase cnn1, cnn2','',0,'gA==','1q61bx91',1,0,'',168,0,0),(3510,874,6,168,0,'200.44.50.43',1134588394,1,0,1,1,1,0,'','','Hace algunos años use un producto llamdado CodeBase y funciono perfecto. La direccion es <!-- w --><a class=\"postlink\" href=\"http://www.sequiter.com\">www.sequiter.com</a><!-- w -->','',0,'gA==','1so2kls2',1,0,'',168,0,0),(3511,897,6,147,0,'208.51.141.113',1134593612,1,0,1,0,1,1,'','','Como se puede conseguir la clase de Krause?\ngracias','',0,'gA==','vnd88esk',1,0,'',147,0,0),(3512,889,3,144,0,'66.27.53.172',1134595040,1,0,1,1,1,1,'','','Stefan:\n\nThanks.  Actually I talked this thru with Luis Krause Mantilla and we hacked TClipGet to give us a new feature.  I\'ll be proposing an xHarbour extension to the PICTUREs supported by transform() and GETs to allow @2 to force 2-digit years and @4 to force four digit years at a low level.\n\nBut for now our changes to TClipGet work great! All I have to do is give a date GET a picture of \"@4\" and it always shows the century independently of the global setting <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','7gzu2wgv',1,0,'',144,0,0),(3513,879,3,144,0,'69.236.252.190',1134595428,1,0,1,1,1,1,'','','well unfortunately I have an extremely hacked toolbar class that isn\'t safe for public consumption. There were too many glitches getting it to work generically for Antonio, and I had a deadline I had to make so it\'s currently specific to our usage.\nYou can test the return value from that call to see if it succeeded. It may not show changes until you follow it with:\n   SendMessage( ::hWnd, TB_AUTOSIZE, 0, 0 )\nIf it\'s an MDI app, there was also a problem with the oWndClient needing to be resized to allow the TBar and Rebar to expand.','',0,'gA==','zqq7rwgq',1,0,'',144,0,0),(3514,496,6,21,0,'83.41.232.64',1134595970,1,0,1,1,1,1,'','','Hola Fernando,\n\nYa he estado echando un vistazo a lo que me mandaste por el msn. El problema es que no tengo mysql.\n\nDe todas formas prueba lo siguiente:\nEn el recurso define tsbrowse como el primer objeto del tabindex.\nEjemplo:\nsi tienes varios get\'s y el browse. El Browse que tenga el tabindex 1 y los get\'s a partir del 2\nSi tienes varios get\'s, el browse y botones. El browse que tenga el tabindex 1, los botones a partir del 2 y los get\'s despues de los botones (así se sigue manteniendo el orden del tabulador \"get, get, get, browse, boton)\n\nPara que al entrar en al ventana se posicione en el primer get, definelo en el ON INIT del dialgo ( ON INIT oGet:SetFocus() )\n\nYa hablaremos por el msn','',0,'gA==','8b9dk2pu',1,0,'',21,0,0),(3515,892,5,2,0,'80.58.2.107',1134597784,1,0,1,1,1,1,'','','You have to use Harbour and FWH (FiveWin for Harbour) to get 32 bits applications. That the most popular choice.','',0,'gA==','3j0w21i6',1,0,'',2,0,0),(3516,898,4,2,0,'80.58.2.107',1134598405,1,0,1,1,1,1,'','','Darjo,\n\nFixed. Please download and install FWPPC again <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks for your feedback,','',0,'gA==','1pqp51yh',1,0,'',2,0,0),(3517,886,6,319,0,'200.168.81.43',1134602172,1,0,1,1,1,0,'','','em visual basic em consegui. não consigo fazer no xharbour','',0,'gA==','1d6bx2xq',1,0,'',319,0,0),(3518,893,3,339,0,'201.8.163.88',1134602606,1,0,1,1,1,0,'','','THANKS antonio &amp; Enrico\n\ni will try ,','',0,'gA==','39rdtgot',1,0,'',339,0,0),(3519,867,3,241,0,'202.155.52.210',1134605412,1,0,1,1,1,1,'','','i have modified xFWH\\..\\TGet.prg and xHBR\\..\\strcase.c for supporting Big5 long time and seems OK, extracted code as following:\n\nJohn M. S. Chiang\n\n\n// ----- xFWH\\..\\TGet.prg\n\n   ::lBig5     = If( !Empty(::oWnd), ::oWnd:lBig5, GetOEMCP()==950 )  // JMS\n\n........................\n\nMETHOD KeyDown( nKey, nFlags ) CLASS TGet\n......\n      case nKey == VK_RIGHT\n           nPos = ::oGet:Pos\n           if nPos &gt;= Len(::oGet:Buffer) .or. ; // JMS\n              (  ::lBig5 .and. nPos == Len(::oGet:Buffer)-1 .and. lBig5_1st( ::oGet:Buffer, nPos ) )\n               ::GoNextGet() // JMS // ::oWnd:GoNextCtrl( ::hWnd, .t. ) // JMS\n               return 1\n           endif\n           if GetKeyState( VK_CONTROL )\n              ::oGet:wordRight()\n           else\n              ::oGet:right()\n           endif\n           if nPos &lt;&gt; ::oGet:Pos\n              while .t.\n                 CallWindowProc( ::nOldProc, ::hWnd, WM_KEYDOWN, nKey, nFlags )\n                 ::GetSelPos( @nLo, @nHi )\n                 if nHi + 1 &gt;= ::oGet:Pos .or. ::lPassword .or. ;\n                    nHi == nLastHi\n                    EXIT\n                 endif\n                 nLastHi = nHi\n              end\n              ::oGet:Pos = nHi + 1\n              ::nPos     = nHi + 1\n           endif\n           return 0\n                                          // Many thanks to HMP\n...........\n\n      case nKey == VK_DELETE .or. nKey == VK_BACK\n\n           if nKey == VK_BACK .and. ::nPos == 0\n              ::nPos := 1   // JMS necessary\n              ::SetPos( ::nPos )\n              retu 0\n           endif\n           if ::lReadOnly\n              return 0\n           endif\n\n           if ::lDrag\n              return Super:KeyDown( nKey, nFlags )\n           endif\n\n           ::GetSelPos( @nLo, @nHi )\n\n             // Deletes selection\n           if nHi != nLo\n              ::GetDelSel( nLo, nHi )\n              if GetKeyState( VK_SHIFT )\n                 CallWindowProc( ::nOldProc, ::hWnd, WM_KEYDOWN, nKey, nFlags )\n              endif\n           else\n              if !::lBig5           // JMS\n                 if nKey == VK_DELETE\n                    ::oGet:Delete()\n                 else\n                    ::oGet:BackSpace()\n                 endif\n              else\n                 if nKey == VK_DELETE // .and. !Empty(::oGet:Buffer) // revised from above 00-03-28 JMS\n                    if lBig5_1st( ::oGet:Buffer,::nPos   )\n                       ::oGet:Buffer := SubStr( ::oGet:Buffer, 1, ::nPos - 1 ) + ;\n                                        \'  \' + SubStr( ::oGet:Buffer, ::nPos + 2 )\n                       ::oGet:Delete()\n                    endif\n                    ::oGet:Delete()\n                 else\n                    if ::nPos &gt; 2 .and. lBig5_2nd( ::oGet:Buffer,::nPos-1   )\n                       ::oGet:Buffer := SubStr( ::oGet:Buffer, 1, ::nPos - 3 ) + ;\n                                        \'  \' + SubStr( ::oGet:Buffer, ::nPos     )\n                       ::oGet:BackSpace()\n                    endif\n                    ::oGet:BackSpace()\n                 endif\n              endif\n           endif\n           ::EditUpdate()\n           if ::bChange != nil\n              Eval( ::bChange, nKey, nFlags, Self )\n           endif\n           return 0\n\n..............\n\n//---------------------------------\n\nMETHOD KeyChar( nKey, nFlags ) CLASS TGet  // KeyChar() runs before KeyDown()\n   // for ChineseBig5   1st(high_order) Chr( 161 - 254 ), 2nd(Low_order) Chr( 64 - 126, 161 - 254 )\n\n   local nHi, nLo, cStrike, lIns, nInsPos // JMS\n   local lAccept\n   local bKeyAction := SetKey( nKey )\n   local nDefButton, lChar := .t. // JMS\n\n   if ! Empty( ::cPicture ) .and. \'@!\' $ ::cPicture\n        nKey = Asc( Upper( Chr( nKey ) ) )\n   endif\n\n   if bKeyAction != nil .and. lAnd( nFlags, 16777216 ) // function Key\n      Eval( bKeyAction, ProcName( 4 ), ProcLine( 4 ), Self )\n      return 0         // Already processed, API do nothing\n   endif\n\n   if ::lReadOnly\n      if nKey == VK_ESCAPE\n         ::oWnd:End()\n      endif\n      return 0\n   endif\n\n   do case\n      case nKey == VK_BACK       // Already processed at KeyDown\n           If( ::nPos==0, ::SetPos( ::nPos := 1 ), )  // JMS necessary\n           return 0\n\n      case nKey == VK_ESCAPE  // JMS to set VK_ESCAPE no Action\n           return 0           // but Escaped if not oGet lFocused\n\n      case nKey == VK_TAB .and. GetKeyState( VK_SHIFT )\n           ::cStrIn := \'\'  // JMS\n           ::lChrHL := .f. // JMS\n           if ::bChange != nil\n              lAccept = Eval( ::bChange, nKey, nFlags, Self )\n              if ValType( lAccept ) == \"L\" .and. lAccept\n                 if Upper( ::oWnd:ClassName() ) == \"TCOMBOBOX\"\n                    ::oWnd:oWnd:GoPrevCtrl( ::hWnd )\n                 else\n                    ::GoPrevGet() // JMS // ::oWnd:GoPrevCtrl( ::hWnd, .t. ) // JMS\n                 endif\n              endif\n           else\n              if Upper( ::oWnd:ClassName() ) == \"TCOMBOBOX\"\n                 ::oWnd:oWnd:GoPrevCtrl( ::hWnd )\n              else\n                 ::GoPrevGet() // JMS // ::oWnd:GoPrevCtrl( ::hWnd, .t. ) // JMS\n              endif\n           endif\n           return 0\n\n      case nKey == VK_TAB .or. nKey == VK_RETURN\n           ::cStrIn := \'\'  // JMS\n           ::lChrHL := .f. // JMS\n           if ::bChange != nil\n              lAccept = Eval( ::bChange, nKey, nFlags, Self )\n              if ValType( lAccept ) == \"L\" .and. lAccept\n                 ::GoNextGet() // JMS // ::oWnd:GoNextCtrl( ::hWnd, .t. ) // JMS\n              endif\n           else\n              ::GoNextGet() // JMS // ::oWnd:GoNextCtrl( ::hWnd, .t. ) // JMS\n           endif\n\n           #ifdef __HARBOUR__\n           //  if nKey == VK_RETURN  // Execute DEFPUSHBUTTON Action\n           //     Super:KeyChar( nKey, nFlags ) // JMS deleted on 031020 to avoid reach PUSHBUTTON directly\n           //  endif\n           #endif\n\n           return 0\n\n      case nKey &gt;= 32 .and. nKey &lt; 256\n\n           #ifdef __HARBOUR__\n           // &lt;lk&gt; deadkey+tab [or enter] previously pressed will cause a r/t error\n              if ::oGet:buffer == nil\n                 return 0\n              endif\n           #endif\n\n           If ::oGet:Pos == nil // JMS\n              retu 0\n           endif\n           ::cStrIn += ::oGet:Input(Chr(nKey)) // JMS :cStrIn was cut to end at same end postion of :buffer originally while input Big5 ...\n           ::GetSelPos( @nLo, @nHi )\n           // Delete selection\n           if nHi != nLo\n              ::lChrHL := .t. // JMS\n              if !( lIns := Set( _SET_INSERT ) )\n                 Set( _SET_INSERT, .t. )\n              endif\n              *-----\n              ::GetDelSel( nLo, nHi, @lChar ) // JMS\n              if !lChar\n                 return 0\n              endif\n              ::EditUpdate()\n           endif\n           if ::oGet:Type == \"N\" .and. Chr( nKey ) $ \".,\" // JMS\n              ::oGet:ToDecPos()\n           elseif ::oGet:Type == \"N\" .and. !( Chr( nKey ) $ \" -0123456789\" )\n              return 0\n           else\n           // if ::bChange != nil // JMS, move behind for real action\n           //    lAccept = Eval( ::bChange, nKey, nFlags, Self )\n           //    if ValType( lAccept ) == \"L\" .and. ! lAccept\n           //       return 0\n           //    endif\n           // endif\n              if ::lBig5 .and. ::nPos == Len( ::oGet:Buffer ) .and. ( nKey &gt;= 161 .and. nKey &lt;= 254 ) // JMS  possible Big5 1st(high_order) Chr( 161 - 254 ), but at End\n                 if Len( ::cStrIn ) == 1 .or. ; // Big5_1st at end of effective ::cStrIn\n                    ( Len( ::cStrIn ) &gt;= 3 .and. lBig5_2nd( ::cStrIn, Len(::cStrIn)-1 ) )\n                    nKey := 32 // Space\n                 endif\n              endif\n              if Set( _SET_INSERT ) .or. ::lChrHL // many thanks to HMP\n                 if ::lBig5 .and. ::nPos &lt; Len( ::oGet:Buffer )\n                    if lBig5_2nd( ::oGet:Buffer,Len(::oGet:Buffer) )\n                       ::oGet:Buffer := Left( ::oGet:Buffer,Len(::oGet:Buffer)-2 ) + Space( 2 )\n                    endif\n                 endif\n                 nInsPos := ::oGet:pos                // JMS\n                 ::oGet:Insert( Chr( nKey ) )\n                 if ::lChrHL .and. Len(::cStrIn) &gt; 1\n                    ::oGet:pos := nInsPos             // JMS for Selected condition, Big5 filled up in FistIn LastWrite\n                 endif\n              else\n                 cStrike := nil\n                 if ::lBig5 .and. ::nPos &lt; Len( ::oGet:Buffer )\n                    if nKey &gt;= 161 .and. nKey &lt;= 254  // Could be 1st_Big5\n                       if lBig5_1st( ::oGet:Buffer,::nPos+1 )\n                          ::oGet:Buffer := SubStr( ::oGet:Buffer, 1, ::nPos     ) + ;\n                                           \'  \' + SubStr( ::oGet:Buffer, ::nPos + 3 )\n                       endif\n                    else\n                       if lBig5_1st( ::oGet:Buffer,::nPos   )\n                          ::oGet:Buffer := SubStr( ::oGet:Buffer, 1, ::nPos - 1 ) + ;\n                                           \'  \' + SubStr( ::oGet:Buffer, ::nPos + 2 )\n                          cStrike := \' \'\n                       endif\n                    endif\n                 endif\n                 ::oGet:Overstrike( Chr(nKey) )\n                 if cStrike != nil\n                    ::oGet:Overstrike( cStrike )  // JMS\n                    ::oGet:Pos --   // JMS\n                    ::nPos --\n                 endif\n              endif\n              if ::lBig5 .and. ::nPos == Len( ::oGet:Buffer ) .and. lBig5_2nd( ::oGet:Buffer,::nPos )\n                 ::oGet:Pos --   // JMS\n                 ::nPos --\n              endif\n              if Len( ::cStrIn ) &gt; 1  // to keep Caret width after Big5 Input\n                 DestroyCaret()\n                 If( Set( _SET_INSERT ), CreateCaret( ::hWnd, 0, 5, ::nGetChrHeight()-1 ),;\n                                         CreateCaret( ::hWnd, 0, 2, ::nGetChrHeight()-1 ) )\n                 ShowCaret( ::hWnd )\n              endif\n              if ::bChange != nil\n                 lAccept = Eval( ::bChange, nKey, nFlags, Self )\n                 if ValType( lAccept ) == \"L\" .and. ! lAccept\n                    return 0\n                 endif\n              endif\n           endif\n           if ::oGet:Rejected\n              MsgBeep()\n           endif\n           ::EditUpdate()\n           if ::oGet:TypeOut\n              if ! Set( _SET_CONFIRM )\n                 ::oWnd:nLastKey = VK_RETURN  // VK_DOWN 17/10/95\n                 ::GoNextGet() // JMS // ::oWnd:GoNextCtrl( ::hWnd, .t. ) // JMS\n                 ::cStrIn := \'\'  // JMS\n                 ::lChrHL := .f. // JMS\n              else\n                 MsgBeep()\n              endif\n           endif\n           *-------\n           if nHi != nLo .and. !lIns  // JMS\n              Set( _SET_INSERT, .f. )\n              if ::oGet:TypeOut\n                 DestroyCaret()\n                 CreateCaret( ::hWnd, 0, 2, ::nGetChrHeight()-1 ) // JMS\n                 ShowCaret( ::hWnd )\n              endif\n           endif\n\n      otherwise\n           ::cStrIn := \'\'  // JMS\n           ::lChrHL := .f. // JMS\n           return Super:KeyChar( nKey, nFlags )\n\n   endcase\n\n\nreturn 0\n\n//-------------------------------------------------------\n\n// for ChineseBig5   1st(high_order) Chr( 161 - 254 ), 2nd(Low_order) Chr( 64 - 126, 161 - 254 )\nBOOL ulBig5_2nd( unsigned char * aStr,  int nPos,  int nLen )\n{\n            int  nn    ;\n   unsigned int  nAsc1 ;\n   unsigned int  nAsc2 ;\n\n   if( nLen &lt; nPos )\n      return FALSE ;\n   else if( nPos == 1 )\n      return FALSE ;\n   else if( nPos == 2 )\n   {\n      nAsc1 = aStr[0] ;\n      nAsc2 = aStr[1] ;\n\n      if( ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp;\n          ( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 ) ) )\n         return TRUE ;\n      else\n         return FALSE ;\n   }\n   else\n   {\n      nAsc1 = aStr[nPos-2] ;\n      nAsc2 = aStr[nPos-1] ;\n\n      if( ( nAsc2 &lt; 64 || ( nAsc2 &gt; 126 &amp;&amp; nAsc2 &lt; 161 ) || nAsc2 &gt; 254 ) )\n         return FALSE ;\n      else if ( nAsc1 &lt; 161 || nAsc1 &gt; 254 )\n         return FALSE ;\n      else\n      {\n         for( nn = 1 ; nn &lt; nPos; nn++ )\n         {\n            nAsc1 = aStr[nn-1] ;\n            nAsc2 = aStr[nn] ;\n\n            if( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 )\n            {\n               if( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 ) )\n               {\n                  if( nn+1 == nPos )\n                     return TRUE ;\n                  else if( nn &lt; nPos-1 )\n                     nn ++  ;\n               }\n            }\n         };\n         if( nn &gt;= nPos )\n            return FALSE ;\n      }\n   }\n   return FALSE ;\n}\n\n//-----------------------------------------------\n\nHB_FUNC( LBIG5_1ST ) // lBig5_1st( cString, nPos )\n{\n   unsigned char * aStr = (unsigned char * ) hb_parc( 1 ) ;\n            int  nPos   = hb_parni( 2 ) ;\n            int  nLen   = hb_parclen( 1 ) ;\n   unsigned int  nAsc1           ;\n   if( nPos &lt; nLen )\n   {\n      nAsc1 = aStr[nPos-1] ;\n      if( ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; ulBig5_2nd( aStr, nPos+1, nLen ) )\n           hb_retl(TRUE);\n      else\n         hb_retl(FALSE);\n   }\n   else\n      hb_retl(FALSE);\n}\n\n//-----------------------------------------------\n\nHB_FUNC( LBIG5_2ND ) // lBig5_2nd( cString, nPos )\n{\n   hb_retl( ulBig5_2nd( (unsigned char * ) hb_parc( 1 ), hb_parni( 2 ), hb_parclen( 1 ) ) ) ;\n}\n\n\n\n//-----------------------------------------------\n\nxHBR\\..\\rtl\\strcase.c  modified for Big5\n\n// Big5   1st(high_order) Chr( 161 - 254 ), 2nd(Low_order) Chr( 64 - 126, 161 - 254 )\n// JMS modified for trailer byte of lBig5 not influenced by Upper/Lower\n\n/* converts szText to lower case. Does not create a new string! */\nHB_EXPORT char * hb_strLower( char * szText, ULONG ulLen ) // JMS\n{\n   ULONG i;\n   int  nAsc1 ;\n   int  nAsc2 ;\n   BOOL lBig5_1st = FALSE ;\n   BOOL lBig5_2nd = FALSE ;\n\n   HB_TRACE(HB_TR_DEBUG, (\"hb_strLower(%s, %lu)\", szText, ulLen));\n\n   if( GetOEMCP()==950 ) // lBig5\n   {  for( i = 0; i &lt; ulLen; i++ )\n      {  if( szText[i] &lt; 0 )\n            nAsc1 = 256+szText[i] ;\n         else\n            nAsc1 =     szText[i] ;\n         if( i+1 &lt; ulLen )\n         {  if( szText[i+1] &lt; 0 )\n               nAsc2 = 256+szText[i+1] ;\n            else\n               nAsc2 =     szText[i+1] ;\n         };\n         if( i == 0 )\n         {  if( i+1 &lt; ulLen &amp;&amp; ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; ( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 )  ) )\n            {  lBig5_1st = TRUE  ; // Self\n               lBig5_2nd = FALSE ; // Self\n            };\n         }\n         else\n         {  if( lBig5_1st )        // former chr\n            {  lBig5_1st = FALSE ; // Self\n               lBig5_2nd = TRUE  ; // Self\n            }\n            else\n            {  if( i+1 &lt; ulLen &amp;&amp; ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; ( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 )  ) )\n               {  lBig5_1st = TRUE  ; // Self\n                  lBig5_2nd = FALSE ; // Self\n               };\n            };\n         };\n         if( lBig5_2nd == FALSE )\n            szText[ i ] = tolower( szText[ i ] );\n      };\n   }\n   else\n   {\n#ifndef HB_CDP_SUPPORT_OFF\n   if( hb_cdp_page-&gt;nChars )\n      for( i = 0; i &lt; ulLen; i++ )\n         szText[ i ] = (char) hb_cdp_page-&gt;s_lower[szText[i]&amp;255];\n   else\n#endif\n      for( i = 0; i &lt; ulLen; i++ )\n         szText[ i ] = tolower( (BYTE) szText[ i ] );\n   } // JMS\n   return szText;\n}\n\nHB_EXPORT char * hb_strLowerCopy( char * szText, ULONG ulLen )\n{\n   char *szCopy = (char*) hb_xgrab( ulLen + 1 );\n   ULONG i;\n\n   HB_TRACE(HB_TR_DEBUG, (\"hb_strLowerCopy(%s, %lu)\", szText, ulLen));\n\n#ifndef HB_CDP_SUPPORT_OFF\n   if( hb_cdp_page-&gt;nChars )\n      for( i = 0; i &lt; ulLen; i++ )\n         szCopy[ i ] = (char) hb_cdp_page-&gt;s_lower[szText[i]&amp;255];\n   else\n#endif\n      for( i = 0; i &lt; ulLen; i++ )\n         szCopy[ i ] = tolower( (BYTE) szText[ i ] );\n   szCopy[ i ] = \'\\0\';\n\n   return szCopy;\n}\n\nHB_EXPORT char * hb_strUpperCopy( char * szText, ULONG ulLen )\n{\n   char *szCopy = (char*) hb_xgrab( ulLen + 1 );\n   ULONG i;\n\n   HB_TRACE(HB_TR_DEBUG, (\"hb_strUpperCopy(%s, %lu)\", szText, ulLen));\n\n#ifndef HB_CDP_SUPPORT_OFF\n   if( hb_cdp_page-&gt;nChars )\n      for( i = 0; i &lt; ulLen; i++ )\n         szCopy[ i ] = (char) hb_cdp_page-&gt;s_upper[szText[i]&amp;255];\n   else\n#endif\n      for( i = 0; i &lt; ulLen; i++ )\n         szCopy[ i ] = toupper( (BYTE) szText[ i ] );\n   szCopy[ i ] = \'\\0\';\n\n   return szCopy;\n}\n\n/* converts szText to upper case. Does not create a new string! */\nHB_EXPORT char * hb_strUpper( char * szText, ULONG ulLen ) // JMS\n{\n   ULONG i;\n   int  nAsc1 ;\n   int  nAsc2 ;\n   BOOL lBig5_1st = FALSE ;\n   BOOL lBig5_2nd = FALSE ;\n\n   HB_TRACE(HB_TR_DEBUG, (\"hb_strUpper(%s, %lu)\", szText, ulLen));\n\n   if( GetOEMCP()==950 ) // lBig5\n   {  for( i = 0; i &lt; ulLen; i++ )\n      {  if( szText[i] &lt; 0 )\n            nAsc1 = 256+szText[i] ;\n         else\n            nAsc1 =     szText[i] ;\n         if( i+1 &lt; ulLen )\n         {  if( szText[i+1] &lt; 0 )\n               nAsc2 = 256+szText[i+1] ;\n            else\n               nAsc2 =     szText[i+1] ;\n         };\n         if( i == 0 )\n         {  if( i+1 &lt; ulLen &amp;&amp; ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; ( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 )  ) )\n            {  lBig5_1st = TRUE  ; // Self\n               lBig5_2nd = FALSE ; // Self\n            };\n         }\n         else\n         {  if( lBig5_1st )        // former chr\n            {  lBig5_1st = FALSE ; // Self\n               lBig5_2nd = TRUE  ; // Self\n            }\n            else\n            {  if( i+1 &lt; ulLen &amp;&amp; ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; ( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 )  ) )\n               {  lBig5_1st = TRUE  ; // Self\n                  lBig5_2nd = FALSE ; // Self\n               };\n            };\n         };\n         if( lBig5_2nd == FALSE )\n            szText[ i ] = toupper( szText[ i ] );\n      };\n   }\n   else\n   {\n#ifndef HB_CDP_SUPPORT_OFF\n   if( hb_cdp_page-&gt;nChars )\n      for( i = 0; i &lt; ulLen; i++ )\n         szText[ i ] = (char) hb_cdp_page-&gt;s_upper[szText[i]&amp;255];\n   else\n#endif\n      for( i = 0; i &lt; ulLen; i++ )\n         szText[ i ] = toupper( (BYTE) szText[ i ] );\n   } // JMS\n   return szText;\n}\n\n//------------------------------','',0,'','2r7ghwub',1,0,'',241,0,0),(3520,886,6,168,0,'201.249.151.172',1134609105,1,0,1,1,1,0,'','','JRO stands for Microsoft Jet and Replication Objects 2.6 Library \nAny error messages you want to share with us ?','',0,'','qb2rqs0i',1,0,'',168,0,0),(3521,897,6,138,0,'201.128.111.75',1134614159,1,0,1,1,1,1,'','','[quote=&quot;MarioG&quot;:5v4cv775]Como se puede conseguir la clase de Krause?\ngracias[/quote:5v4cv775]\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w --> la encuentras.','',0,'gA==','5v4cv775',1,0,'',138,0,0),(3522,867,3,314,0,'218.16.112.29',1134621495,1,0,1,1,1,0,'','','[quote=&quot;jhncon&quot;:1m2blvie]i have modified xFWH\\..\\TGet.prg and xHBR\\..\\strcase.c for supporting Big5 long time and seems OK, extracted code as following:\n\nJohn M. S. Chiang\n[/quote:1m2blvie]\n\nJohn,\n\nThanks, I will try it. The only change to your code is to test for GB2313 as well.\n\nJohnny Yiu','',0,'gA==','1m2blvie',1,0,'',314,0,0),(3523,906,5,270,0,'65.27.183.36',1134622870,1,0,1,1,1,0,'','Cannot turn off Bell at end of buffer entry in gets.','The command:\n\nSET BELL OFF\n\nis supposed to turn off the bell (sound in Windows) when at the end of entry in a get buffer.  Whether SET BELL is OFF or ON I get the same result.  Is this controlled in FW++ by the SET BELL command or is there another way to turn off the bell on beffer end?  I want to turn off the bell at buffer end, but I can\'t.\n\nThe command:\n\nSET CONFIRM ON works correctly in stopping at the end of buffer entry and not going to the next get.  This is as expected.\n\nDan','',0,'gA==','13b6p4kz',1,0,'',270,0,0),(3524,882,3,160,0,'210.212.142.6',1134628968,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3np50dut]Milan,\n\nOur mistake, sorry. Its going to be published in a few days.\n\nWe email you the Class TCBrowse so you can test it. Thanks.[/quote:3np50dut]\n\nHello Antonio,\n\nStill it did not help. Following is my code snippet. Am I doing anything wrong ? Testtcb2.Prg in Samples works fine but in that example too changes are not saved to underlying dbf file.\n\n   REDEFINE BROWSE oBrw  ;\n            ALIAS \"Order\"      ;\n            ID LBORDER OF oDlg ;\n            ON LEFT DBLCLICK EditCell( oBrw, nRow, nCol );\n            COLOR CLR_BLUE, RGB( 255, 255, 235 ) ;\n            FONT oFont ;\n            UPDATE\n\n   ADD COLUMN TO BROWSE oBrw ;\n                        DATA Order-&gt;AgentCode;\n                        HEAD \"ftuz\" ;\n                        WIDTH 50 ;\n			EDITABLE\n\nTIA\n\nMilan.','',0,'gA==','3np50dut',1,0,'',160,0,0),(3525,907,3,239,0,'219.137.199.249',1134632151,1,0,1,1,1,0,'','about DTpicker','Hi,\n  Dtpicker, not dispaly date format as setting ,for example  set date format \'yyyy.mm.dd\' , display always switch  from  \'05-12-12\' to \'2005-12-12\' , input also not as normal date get .\n\nBest regard!\n\nShuming Wang','',0,'gA==','111wwrxa',1,0,'',239,0,0),(3526,908,20,29,0,'80.181.108.140',1134633969,1,0,1,1,1,0,'','Impostare il focus su un oggetto di un folder','Salve,\nho un problema nell\'utilizzo dei folder.\n\nVedi <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/focus_on_folder.gif\">www.softwarexp.co.uk/beta/focus_on_folder.gif</a><!-- w -->\n\nIn pratica quando creo un folder che si attiva ovviamente sulla prima dialog del folder, il focus viene posizionato sul primo oggetto del folder (nell\'immagine di esempio su \"OK\"). \n\nVorrei invece che il focus vada su un oggetto della prima dialog del folder, in questo caso sulla combobox \"tipo di inserimento\" che ho definito come oStartObject.\n\nHo provato con oStartObject:Setfocus() all\'inizializzazione del folder ma senza successo.\n\nQualche idea ?\n\nGrazie in anticipo \n\nMarco Turco','',0,'gA==','3jff79r0',1,0,'',29,0,0),(3527,900,6,131,0,'194.179.55.36',1134634173,1,0,1,1,1,0,'','','Angel: así es como lo hago normalmente, pero pensé que en red no es muy buena solución por el tema de crear temporales y borrarlos.\n\nDaniel: gracias por la contestación. Voy a mirar el código detenidamente.\n\nSaludos,','',0,'gA==','ahlequ18',1,0,'',131,0,0),(3528,909,1,258,0,'139.165.96.129',1134635130,1,0,1,1,1,0,'','Fivewin and smtp','I try to send a mail with smtp and it works good only when a attach a file .\nIn place of receiving the file , the user receive this :\n\n	name=\"c:\\dmedi\\test.doc\"\nContent-Transfer-Encoding: base64\nContent-Disposition: inline;\n	filename=\"TEST.DOC\"\n\nhere is the code FW25 Clipper 5.3 \n* ===\nprocedure VAMAIL()\nlocal oOutM,oOutMail, cIP ,leficj\n\n   oOutM := TSmtp():New( cIP := GetHostByName( \"smtp.ulg.ac.be\" ) )\n   sysrefresh()\n   oOutMail := TSmtp():New( cIP := GetHostByName( \"smtp.ulg.ac.be\" ) )\n   MsgWait(\"Mailing \", cIP,1 )\n   oOutMail:bDone       = { || MsgWait(\"Done\",\"Mailing \",1 ) }\n\n   oOutMail:SendMail( \"jacquet@tiscali.be\",;     // From\n                      { \"jacquetlg@tiscali.be\" },; // To\n                      \"Test mail \" ,;  // Msg Text\n                      \"Essai Mail depuis BMT \" , ; // Subject\n                      {\"c:\\dmedi\\test.doc\"} )  // attached files\n   sysrefresh()\nRETURN\n\nThanks for any help .\nPhilippe Jacquet .','',0,'gA==','2btgryom',1,0,'',258,0,0),(3529,908,20,6,0,'87.6.213.55',1134635650,1,0,1,1,1,1,'','Re: Impostare il focus su un oggetto di un folder','Se prepari un esempio del problema ridotto ai minimi termini faccio qualche esperimento.\n\nEMG','',0,'gA==','2itfbj5y',1,0,'',6,0,0),(3530,906,5,2,0,'80.58.2.107',1134638195,1,0,1,1,1,1,'','','Dan,\n\nFixed. These lines were missing from Class TGet:\n[code:1dlz0n46]\n           if &#58;&#58;oGet&#58;TypeOut\n              if ! Set&#40; _SET_CONFIRM &#41;\n                 &#58;&#58;oWnd&#58;nLastKey = VK_RETURN\n                 &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n              else\n                 if Set&#40; _SET_BELL &#41;    &lt;&lt;&lt; New!\n                    MsgBeep&#40;&#41;\n                 endif                  &lt;&lt;&lt; New!\n              endif\n           endif\n[/code:1dlz0n46]\n\nPlease email us privately to get an updated FW++ DLL and lib.','',0,'AIA=','1dlz0n46',1,0,'',2,0,0),(3531,909,1,2,0,'80.58.2.107',1134638701,1,0,1,1,1,1,'','','Philippe,\n\nWe have just tested samples\\TestSmtp.prg modified like this:\n\n[code:2ig4q80h]\noOutMail&#58;SendMail&#40; &quot;alinares@fivetechsoft&#46;com&quot;,;     // From\n                 &#123; &quot;alinares@fivetechsoft&#46;com&quot; &#125;,; // To\n                 &quot;It is working!!!&quot;,;              // Msg Text\n              &quot;Testing FiveWin Class TSmtp enhancements&quot; &#41; // Subject\n[/code:2ig4q80h]\n\nand worked fine.','',0,'AIA=','2ig4q80h',1,0,'',2,0,0),(3532,882,3,2,0,'80.58.2.107',1134639401,1,0,1,1,1,1,'','','Milan,\n\nPlease try this code:\n[code:37ajpgbu]\nADD COLUMN TO BROWSE oBrw ; \nDATA &#123; | u | If&#40; PCount&#40;&#41; &gt; 0, Order-&gt;AgentCode &#58;= u, Order-&gt;AgentCode &#41; &#125;; \nHEAD &quot;ftuz&quot; ; \nWIDTH 50 ; \nEDITABLE\n[/code:37ajpgbu]','',0,'AIA=','37ajpgbu',1,0,'',2,0,0),(3533,909,1,258,0,'139.165.96.129',1134640747,1,0,1,1,1,0,'','fivewin and smtp','Antonio,\ndoes it mean that it is not possible to attach a file ?\n\nThanks \n\nPhilippe Jacquet','',0,'AIA=','2agw6ewn',1,0,'',258,0,0),(3534,908,20,29,0,'80.181.108.140',1134641128,1,0,1,1,1,0,'','','Eccolo su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->\n\nIn pratica vorrei che il folder partisse con il focus sul primo campo della prima dialog (in questo caso la get \"Nombre de Cliente\").\n\nHo inserito un setfocus all\'init della dialog ma senza esito.\n\nMarco','',0,'AIA=','zhl9b5y0',1,0,'',29,0,0),(3535,908,20,6,0,'87.6.213.55',1134641511,1,0,1,1,1,1,'','','Metti questo subito prima della ACTIVATE DIALOG e togli la ON INIT:\n\noDlg:bStart = { || oGet1:SetFocus() }\n\nEMG','',0,'AIA=','2ihx4szk',1,0,'',6,0,0),(3536,867,3,15,0,'203.79.155.24',1134642321,1,0,1,1,1,0,'','','Hello John,\n\nSounds good News.\nI will try it again.\n\nRegards,\n\nRichard','',0,'AIA=','2v3vrcrk',1,0,'',15,0,0),(3537,908,20,263,0,'217.222.223.34',1134642949,1,0,1,1,1,0,'','','Buongiorno a tutti.\nA proposito di folder, è possibile visualizzare o nascondere una pagina al verificarsi di una condizione (che non sia oFld:aEnable[n]:=.t./.f.)?','',0,'','2727m7mo',1,0,'',263,0,0),(3538,908,20,6,0,'87.6.213.55',1134643348,1,0,1,1,1,1,'','','Prova con\n\noFld:aDialogs[ n ]:Hide()\n\ne\n\noFld:aDialogs[ n ]:Show()\n\nEMG','',0,'','4jaqsk69',1,0,'',6,0,0),(3539,908,20,263,0,'217.222.223.34',1134643840,1,0,1,1,1,0,'','','Ciao Enrico,\nnon avevo trovato nulla sull\'help di fwh e credevo non fosse possibile.\nGrazie','',0,'','8m471ibs',1,0,'',263,0,0),(3540,882,3,160,0,'210.212.142.6',1134645178,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1g6hwle2]Milan,\n\nPlease try this code:\n[code:1g6hwle2]\nADD COLUMN TO BROWSE oBrw ; \nDATA &#123; | u | If&#40; PCount&#40;&#41; &gt; 0, Order-&gt;AgentCode &#58;= u, Order-&gt;AgentCode &#41; &#125;; \nHEAD &quot;ftuz&quot; ; \nWIDTH 50 ; \nEDITABLE\n[/code:1g6hwle2][/quote:1g6hwle2]\n\nHello Antonio,\n\nI am getting following error while trying to edit the cell :\n     Unrecoverable Error 9000\n      Couldn\'t create error object  in hb_errNew()\n\nThanks,\n\nMilan.','',0,'gIA=','1g6hwle2',1,0,'',160,0,0),(3541,908,20,6,0,'87.6.213.55',1134645428,1,0,1,1,1,1,'','','Be\', l\'help non può riportare tutte le combinazioni possibili. Se una DIALOG ha il metodo Hide() è ovvio che si possa utilizzare anche se questa DIALOG è contenuta in un array. Tieni presente però che non è detto che la cosa funzioni ma per altri motivi.\n\nEMG','',0,'gIA=','2y2tahhn',1,0,'',6,0,0),(3542,900,6,147,0,'201.252.195.35',1134647217,1,0,1,0,1,1,'','','José:\nCon wBrwosede Checcarelli, y obviamente con el nativo, se pueden crear browse de array vacios sin problemas.\nUn array del tipo aXX:= {{\"i\", \"a\"}, {\"ii\",\"b\"}, {\"iii\",\"c\" }}, podría adoptar la forma, o hacerlo desde el principio, como aXX:= {{\"\", \"\"}, {\"\",\"\"}, {\"\",\"\" }} y ser browseado sin problemas.\nPara usar array, yo prefiero usar TArray, que crea un objeto array con metodos del tipo :GoTo(), :LastRec(); :Seek(), y otros.\n\nsaludos','',0,'gIA=','24kbbgpp',1,0,'',147,0,0),(3543,895,3,2,0,'80.58.2.107',1134647747,1,0,1,1,1,1,'','','We already have transparent bitmaps on folders with XP look <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[url=http&#58;//imageshack&#46;us:e0285e98][img:e0285e98]http&#58;//img226&#46;imageshack&#46;us/img226/3295/bitmap6or&#46;png[/img:e0285e98][/url:e0285e98]','',0,'GA==','e0285e98',1,0,'',2,0,0),(3544,910,1,284,0,'200.161.78.172',1134647984,1,0,1,0,1,0,'','Can´t find error meanning.  &quot;Error BASE/1009 : &lt;&quo','I am getting an error \"Error BASE/1009 : &lt;\" and can´t find what is it.\nThis error is not in Clipper docs.\nThe prg line is \"RETURN Inkey()\"...\nIt s an FiveWin + Clipper program.\nDoes anyone know what is it ?','',0,'GA==','1ok6bh6a',1,0,'',284,0,0),(3545,897,6,147,0,'201.252.195.35',1134648319,1,0,1,0,1,1,'','','gracias','',0,'GA==','25m44f9r',1,0,'',147,0,0),(3546,908,20,1,0,'217.222.223.34',1134648878,1,0,1,1,1,0,'','','Enrico,\nnon mi sono spiegato bene.\nIo voglio che una cartella (l\'ultima) venga ADD/DEL al variare della condizione, nel caso che mi hai suggerito, i controls delle due cartelle si sovrappongono.\nEcco l\'esempio:\n******************************************************************************\nFUNCTION Giudizi() // Gestione Gudizi\n******************************************************************************\n.........\n.........\nlDef := .f.\n.........\n.........\n\nDEFINE DIALOG oDlg RESOURCE \"giudizio\" TITLE cTit FONT oFont1 ICON oIco\n   REDEFINE FOLDER oFld ID 105 OF oDlg ;\n            PROMPT  \"&amp;Giudizi\",\"Giudi&amp;zio\",\"Co&amp;mune\",\"&amp;Contro\"          ,;\n                    \"&amp;Rinvii\",\"&amp;Uffici\",\"&amp;Annotazioni\",\"&amp;Definizione\"    ;\n            DIALOGS \"boxdati\",\"Giudizi\",\"Convenuti\",\"Attori\"            ,;\n                    \"boxdati\",\"boxdati\",\"note\",\"sentenza\"\n   /* Giudizi - Elenco Giudizi    */\n   /* Giudizi - Dettagio Giudizio */\n........\n........\n   REDEFINE CHECKBOX oDef VAR lDef ID 118      OF oFld:aDialogs[2];\n            ON CHANGE (IIF(lDef,oFld:AddItem(\"&amp;Definizione\",8),;\n                                oFld:DelItem(\"&amp;Definizione\",8)),oFld:Refresh())\n........\n........\nACTIVATE DIALOG oDlg CENTERED ON INIT IIF(!lDef,oFld:DelItem(\"&amp;Definizione\"),)\nRETURN( nil )\n\nin questo modo invece le cartelle vengono shiftate \nDov\'è lerrore?','',0,'','20tjo509',1,0,'',1,0,0),(3547,908,20,1,0,'217.222.223.34',1134649120,1,0,1,1,1,0,'','','l\'omino con gli occhiali rappresenta un otto  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'','393ndtl3',1,0,'',1,0,0),(3548,910,1,139,0,'212.205.251.32',1134649776,1,0,1,1,1,0,'','','DBCMD/1009   Argument error\n\n     Explanation:  The argument FIELDNAME() was non-numeric.\n\n     Action:  Correct the program.\n\n     See Also:  FIELDNAME() function','',0,'','282u22hi',1,0,'',139,0,0),(3549,908,20,6,0,'87.6.213.55',1134649994,1,0,1,1,1,1,'','','Allora prova con i metodi AddItem() e DelItem(). Se il tuo esempio fosse stato ridotto ai minimi termini e compilabile avrei potuto fare qualche esperimento ma purtroppo non lo è... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'','1229nhqq',1,0,'',6,0,0),(3550,908,20,6,0,'87.6.213.55',1134650052,1,0,1,1,1,1,'','','[quote=&quot;Anonymous&quot;:ls65el7g]l\'omino con gli occhiali rappresenta un otto  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->[/quote:ls65el7g]\n\nPerché non hai utilizzato il tag code.\n\nEMG','',0,'gA==','ls65el7g',1,0,'',6,0,0),(3552,911,7,63,0,'80.58.35.107',1134652442,1,0,1,1,1,0,'','Radio buttons en pixels','Antonio:\nMe parece que los Radio buttons en pixels no funcionan; en unidades de Row/Col, sí.   Saludos\nRafael\n\nEjemplo:\n[code:4u1rhngt]\n// FiveWin for Pocket PC - Testing radio buttons\n\n#include &quot;FWCE&#46;ch&quot;\n#include &quot;WinApi&#46;ch&quot;\n\n//-------------------------------------------------------------------\nFUNCTION Main&#40;&#41;\nLOCAL oWnd, nValue\n\nDEFINE WINDOW oWnd TITLE &quot;Test&quot;\nnValue &#58;= 1\n@ 0,0 RADIO nValue  ;\n      ITEMS &quot;Uno&quot;, &quot;Dos&quot;, &quot;Tres&quot; SIZE 80, 20 PIXEL COLOR &quot;W+/B&quot;;\n      ON CHANGE MsgBeep&#40;&#41;\n\nACTIVATE WINDOW oWnd\nRETURN NIL[/code:4u1rhngt]','',0,'AIA=','4u1rhngt',1,0,'',63,0,0),(3553,912,4,19,0,'217.153.83.2',1134654694,1,0,1,1,1,0,'','exe size','How can I reduce exe size (now 988kB).\nIn my application I will never use any rdd but simple menu and dialogs.\n\nregards Eugeniusz','',0,'AIA=','3hlg2gac',1,0,'',19,0,0),(3554,908,20,263,0,'217.222.223.34',1134655811,1,0,1,1,1,0,'','','I parametri che utilizzo dei metodi Additem() e Delitem() nell\'esempio è almeno corretto?','',0,'AIA=','aod6gaxa',1,0,'',263,0,0),(3555,701,2,228,0,'200.118.77.86',1134655967,1,0,1,1,1,1,'','Donde consigo samba?','Compañeros del foro alguno de ustedes me puede indicar donde consigo samba y algun manual. o información sobre este?','',0,'AIA=','36hf20af',1,0,'',228,0,0),(3556,882,3,2,0,'80.58.2.107',1134656023,1,0,1,1,1,1,'','','Milan,\n\nPlease generate the PPO file and post here the result for that line. Thanks.\n\nYou may also try this:\n[code:tajlymeo]\nADD COLUMN TO BROWSE oBrw ; \nDATA bSETGET&#40; Order-&gt;AgentCode &#41; ; \nHEAD &quot;ftuz&quot; ; \nWIDTH 50 ; \nEDITABLE\n[/code:tajlymeo]','',0,'AIA=','tajlymeo',1,0,'',2,0,0),(3557,912,4,2,0,'80.58.2.107',1134656855,1,0,1,1,1,1,'','','Eugeniusz,\n\nYou may add this function to your main PRG:\n\nfunction RddSys() ; return nil','',0,'AIA=','2eynz0f9',1,0,'',2,0,0),(3558,909,1,2,0,'80.58.2.107',1134657154,1,0,1,1,1,1,'','','Philippe,\n\nYes, you may attach a file. In fact samples\\testsmtp.prg sends an attached file.\n\nI may have missunderstood you, do you want to send an attached file ? If so, how big is the file ?','',0,'AIA=','ehc9412i',1,0,'',2,0,0),(3559,910,1,2,0,'80.58.2.107',1134657795,1,0,1,1,1,1,'','','You should not use Inkey() on a FW application.','',0,'AIA=','1r008vdz',1,0,'',2,0,0),(3560,908,20,6,0,'82.61.144.97',1134658996,1,0,1,1,1,1,'','','Non si legge molto bene ma sembra di no. AddItem() richiede solo una stringa mentre DelItem() non richiede parametri (cancella l\'elemento attivo).\n\nEMG','',0,'AIA=','1selvuff',1,0,'',6,0,0),(3561,908,20,263,0,'217.222.223.34',1134660822,1,0,1,1,1,0,'','','Purtroppo non riesco a farlo girare <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \ndove posso reperire un esempio funzionante?','',0,'AIA=','1d2luf40',1,0,'',263,0,0),(3562,913,6,329,0,'190.48.114.206',1134661483,1,0,1,1,1,0,'','funcion __CLASSINS (??????)','Amigos del foro, estoy haciendo unas compilaciones con harbour, de unos prg para armar un exe. El tema es que en uno de mis prg tengo llamada una funcion que se llama __CLASSINS que me dice que no la encuentra, y la realidad es que no la encuentra porque no la tengo definida en ningun lado, ni lib, ni ch, ni nada.\nLo que quiero es saber si alguien tiene la definicion de esta funcion les pidi por favor que me la envien, porque en esa funcion reside que mi exe funcione correctamente.\nMuchas gracias\n\nMatias Camelli','',0,'AIA=','347611qy',1,0,'',329,0,0),(3563,913,6,2,0,'80.58.2.107',1134663969,1,0,1,1,1,1,'','','Matias,\n\nEs una función interna de Clipper. \n\nEn Harbour/xharbour puedes reemplazarla por __CLSINST()','',0,'AIA=','3kndpwb9',1,0,'',2,0,0),(3564,914,7,63,0,'80.58.35.107',1134664724,1,0,1,1,1,0,'','Get multilínea?','Cómo puedo poner un get multilínea?  Si no está soportado, hay planes para ello?\nGracias,\n\nRafael','',0,'AIA=','a8kb2o06',1,0,'',63,0,0),(3565,915,21,319,0,'201.1.174.69',1134666527,1,0,1,1,1,0,'','fwh e hp officejet 55','estou com o problema que é o seguinte:\nusando a impressora hp officejet 55 mando imprimir pelo sistema quando abro a tela novamente demonstra um erro estranho, pois a impressora mudou o caminho do sistema como resolver isso','',0,'AIA=','2zbk5vjc',1,0,'',319,0,0),(3566,916,6,319,0,'201.1.174.69',1134666596,1,0,1,1,1,0,'','fwh + hp officejet 55','estou com o problema que é o seguinte:\nusando a impressora hp officejet 55 mando imprimir pelo sistema quando abro a tela novamente demonstra um erro estranho, pois a impressora mudou o caminho do sistema como resolver isso','',0,'AIA=','28yv9zkl',1,0,'',319,0,0),(3567,917,2,242,0,'81.45.227.110',1134667813,1,0,1,1,1,0,'','Cómo saber el directorio en el que me encuentro.','Hola.\n\n¿Qué función de Fivewin me devuelve el PATH completo en el que me encuentro?\n¿Por qué en la clase TWord debo especificar el PATH completo para poder abrir un archivo? No me funciona si le digo:\noWord:Documents:Open(\".\\DATOS\\ARCHIVO.DOC\").\n\nGracias y un saludo.','',0,'AIA=','1vt7nvhx',1,0,'',242,0,0),(3568,909,1,138,0,'201.128.111.75',1134667826,1,0,1,1,1,1,'','','Phillipe:\n\nFivewins\'s TSMTP doesn\'t support different file formats for attached files, all of them are handled like text.\n\nYou will need Luis Krause\'s modified TSMTP class that you can download from: \n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w -->.','',0,'AIA=','29zf201p',1,0,'',138,0,0),(3569,917,2,242,0,'81.45.227.110',1134668442,1,0,1,1,1,0,'','Ya está solucionado.','Lo dicho.','',0,'AIA=','2wy94fud',1,0,'',242,0,0),(3570,908,20,6,0,'82.61.28.83',1134668611,1,0,1,1,1,1,'','','Preparalo tu, ai minimi termini ma compilabile anche se non funzionante, e io ci farò qualche esperimento.\n\nEMG','',0,'AIA=','36yaleyz',1,0,'',6,0,0),(3571,918,20,29,0,'80.181.108.140',1134668644,1,0,1,1,1,0,'','Sempre a proposito di folder','Grazie anzitutto ad EMG per la dritta precedente.\n\nDopo arduo lavoro con i folder mi sono accorto - arghhh - che utilizzando il tasto Enter all\'interno del folder il focus non viene passato al campo successivo.\n\nPer esempio se ho il focus su una combobox e premo Enter, il focus non  si muove sul campo successivo ma rimane sulla combobox.\nIl problema non si verifica invece se i campi sono in una dialog anziché in un folder.\n\nEcco un self-contained che mostra il problema\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->\n\nIn pratica nell\'esempio se premo invio il focus non si sposta.\n\nQualche idea ?\nSono abbastanza disperato in quanto trattandosi di un programma di contabilità è essenziale poter utilizzare la tastiera per tutta la sequenza di inserimento.\n\nMarco','',0,'AIA=','15hplunh',1,0,'',29,0,0),(3572,919,3,152,0,'200.113.119.76',1134669848,1,0,1,1,1,0,'','No me funciona Drag&amp;Drop en Browse con XP','Estoy migrando mis aplicaciones de Win98 a XP y me encontrado con este problema.','',0,'AIA=','bepuxcwc',1,0,'',152,0,0),(3573,920,6,152,0,'200.113.119.76',1134670671,1,0,1,1,1,0,'','No me funciona Drag&amp;Drop en Browse con XP','Estoy migrando mis aplicaciones de Win98 a XP y me encontrado con este problema. \nUso FWH 2.4','',0,'AIA=','116jc0j6',1,0,'',152,0,0),(3574,918,20,6,0,'87.6.213.236',1134674658,1,0,1,1,1,1,'','Re: Sempre a proposito di folder','Basta premere TAB, che è il tasto standard di Windows per muoversi tra un controllo e l\'altro e l\'unico che funziona sempre (mentre l\'Invio [b:5mg3q4zu]non può[/b:5mg3q4zu] funzionare in vari casi come GET multiline, presenza di pulsante di default, etc.).\n\nComunque è inutile che io provi l\'esempio in quanto se non funziona c\'è poco da fare: o si modifica in qualche modo la classe TGet o TFolder (non saprei quale delle due) oppure si agisce a forza di SetFocus(), soluzioni entrambi inaccettabili.\n\nEMG','',0,'QA==','5mg3q4zu',1,0,'',6,0,0),(3575,921,6,52,0,'201.231.14.35',1134678365,1,0,1,1,1,1,'','Ts y la ultima columna...','Amigos,\n\nPensé que nAdjColumn:= 3 haria que la tercera columna de mi ts tome el resto del tamaño que queda. pero no, me tira error.\n\ncomo se hace?\n[code:2fjkbyp1]        // Cliente 8\n         add column to oBrw&#91; 1 &#93; header &quot;Cliente&quot; size 65 data INTEBASE-&gt;CLIENTE;\n            align DT_CENTER, DT_CENTER, DT_CENTER;\n            colors CLR_3, CLR_2\n\n      oBrw&#91; 1 &#93;&#58; lNoVScroll&#58;=&#46;f&#46;\n      oBrw&#91; 1 &#93;&#58; lNoHScroll&#58;=&#46;t&#46;\n      oBrw&#91; 1 &#93;&#58; nHeightHead += 8\n      oBrw&#91; 1 &#93;&#58; nHeightCell += 9\n      oBrw&#91; 1 &#93;&#58; nAdjColumn&#58;=[/code:2fjkbyp1]\n\nEste es parte del codigo, para que vean que son 8 columnas.','',0,'AIA=','2fjkbyp1',1,0,'',52,0,0),(3576,918,20,29,0,'80.181.108.140',1134678731,1,0,1,1,1,0,'','','Il mio problema riguarda solo i combobox,\nla cosa strana è che un combobox in una dialog passa al campo successivo premendo invio mentre in un folder non si muove.\n\nPutroppo la maggior parte dei clienti è ormai abituata ad utilizzare il tasto invio dato che la schermata di inserimento era precedentemente in una dialog e questo era consentito.\n\nProvo a sentire se Antonio ha qualche idea.\n\nGrazie in ogni caso.\n\nSaluti\n\nMarco','',0,'AIA=','3uwvly2d',1,0,'',29,0,0),(3577,922,3,29,0,'80.181.108.140',1134679269,1,0,1,1,1,0,'','Combobox in Folder','It\'s the Folder time today ;- )\n\nWell, another problem - simple, I hope.\n\nWhen I have the focus on a combobox in a dialog \nand I press the Enter key then the focus go to the next control (a get for example)\n\nThe problem is that it doesn\'t runs on a folder.\nIf I have the focus on a combobox in a folder \nand I press the Enter key then the focus REMAINS ON THE COMBOBOX instead to go to the next control.\n\nThe self-contained at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w --> \nshow this problem.\n\nI checked the folder,tcontrol and combobox class looking for a solution but unsuccesfully.\n\nAny solution availables ?  \n\nThanks in advance\n\nBest Regards,\n\nMarco','',0,'AIA=','399qdjmz',1,0,'',29,0,0),(3578,913,6,329,0,'190.48.97.221',1134682411,1,0,1,1,1,0,'','','Antonio, hice lo que me sugeriste, y cambio el error en la siguiente linea con la siguiente pinta:\n\n... en la linea donde reemplazo __CLASSINS() por la que me pasaste __CLSINST()\n\n\nERROR:\nObjects.ch(34) E0001 Statement not allowed outside of procedureor function\n\nAca esta el codigo que tiene el Objects.ch de clipper que modifique con la sentencia que vos me pasaste.\n\n#xcommand DEFAULT &lt;uVar1&gt; = &lt;uDefaultValue1&gt;                                   ;\n               [, &lt;uVarN&gt; = &lt;uDefaultValueN&gt; ] =&gt;                              ;\n                  &lt;uVar1&gt; = If( &lt;uVar1&gt; == nil, &lt;uDefaultValue1&gt;, &lt;uVar1&gt; )   ;;\n                [ &lt;uVarN&gt; = If( &lt;uVarN&gt; == nil, &lt;uDefaultValueN&gt;, &lt;uVarN&gt; );]\n\n#xcommand CLASS &lt;cClassName&gt; [ FROM &lt;cSuperNam1&gt;] [ ,&lt;cSuperNamN&gt; ] =&gt;         ;\n          function &lt;cClassName&gt;()                                             ;;\n             static nClassHandle, abParents                                   ;;\n                if nClassHandle == nil                                        ;;\n                   ClsNew( &lt;\"cClassName\"&gt; ,                                    ;\n                   abParents := { [ { || &lt;cSuperNam1&gt;() } ]                    ;\n                                  [,{ || &lt;cSuperNamN&gt;() } ] } )               ;;\n                   [#define PARENT &lt;\"cSuperNam1\"&gt;]\n\n#xcommand DATA &lt;cVar&gt; READONLY =&gt; ClsAddData( Upper( &lt;\"cVar\"&gt; ), 1 )\n\n#xcommand DATA &lt;cVar1&gt; [,&lt;cVarN&gt;] =&gt;                                           ;\n            ClsAddData( &lt;\"cVar1\"&gt;, 0 )                                         ;\n         [; ClsAddData( &lt;\"cVarN\"&gt;, 0 ) ]\n\n#xcommand METHOD &lt;cMethodName&gt;( [&lt;uParms,...&gt;] ) =&gt;                            ;\n            ClsAddMethod( Upper( &lt;\"cMethodName\"&gt; ),                            ;\n            { | Self [, &lt;uParms&gt; ] | &lt;cMethodName&gt;( Self [, &lt;uParms&gt; ] ) } )\n\n#xcommand METHOD &lt;cMethodName&gt;( [&lt;parms,...&gt;] ) VIRTUAL =&gt; ;\n            ClsAddMethod( Upper( &lt;\"cMethodName\"&gt; ), { || nil } )\n\n#xcommand ENDCLASS =&gt;                                                          ;\n                nClassHandle = nClsMake()                                     ;;\n             end                                                              ;;\n  //      return __ClassIns( nClassHandle )\n          return __ClsInst( nClassHandle )\n\n#xtranslate :: =&gt; Self:\n\n#xtranslate METHOD &lt;cClassName&gt;::&lt;cMethodName&gt;( [&lt;uParms,...&gt;] ) =&gt;            ;\n            static function &lt;cMethodName&gt;( Self[, &lt;uParms&gt;] )\n\n#xtranslate ::Parent:&lt;method&gt;([&lt;uParms,...&gt;])  =&gt;                              ;\n            Eval( bClsMethod( Upper( PARENT ), Upper( &lt;\"method\"&gt; ) ),          ;\n            Self [,&lt;uParms&gt;] )','',0,'','1rz7phmy',1,0,'',329,0,0),(3579,913,6,2,0,'80.58.2.107',1134683636,1,0,1,1,1,1,'','','Matias,\n\nNo tienes que modificar ningún fichero CH. Simplemente usa los que proporciona FWH y funcionará correctamente.','',0,'','25kaydej',1,0,'',2,0,0),(3580,923,3,299,0,'69.65.88.121',1134685332,1,0,1,0,1,0,'','xharb 0.99 to 0.99.51','Hi.\n\nMy app compiles fine with xharbour 0.99.  I\'m now trying to compile it with xharbour 0.99.51.\n\nGetting the following errors:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from F:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from F:\\XHARBOUR_0.99.51\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from F:\\XHARBOUR_0.99.51\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from F:\\XHARBOUR_0.99.51\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from F:\\XHARBOUR_0.99.51\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from F:\\XHARBOUR_0.99.51\\LIB\\RDD.LIB|rddsys\n\n\nCan someone help?\n\nThanks,','',0,'','3kpgcq8s',1,0,'',299,0,0),(3581,913,6,329,0,'190.48.97.221',1134686333,1,0,1,1,1,0,'','','Antonio, te cuento que yo estoy usando Clipper 5.2, no tengo ninguna funcion de fwh (entiendo que es fivewin), por lo tanto te pido porfis, si las tienes a mano me las puedes mandar a mi correo o simplemente postearlas por aca que yo las copio.','',0,'','2wvkr99z',1,0,'',329,0,0),(3582,900,6,78,0,'201.230.59.225',1134686543,1,0,1,1,1,0,'','','Hola,,\nCon la TWBROWSE sale asi:\nAADD(aProducto, {\"Procesador\",\"Pza\",\"   45.00\"} \n...\n                REDEFINE LISTBOX oLbx ;\n                         FIELDS  aProducto[oLbx:nAt, 1], ;\n                                     aProducto[oLbx:nAt, 2], ;\n                                     aProducto[oLbx:nAt, 3]  ;\n                         HEADERS \"Producto\", ;\n                                        \"Unidad\",   ;\n                                        \"Stock\"     ;\n                         FONT oFont1 ;                   \n                         SIZES 400,50,65 ;\n                         COLOR CLR_BLACK, cColor1;\n                         ID 220 OF oFld:aDialogs[1]\n\n                         oLbx:SetArray( aProducto )\n\nLa ultima linea es muy importante,,,,\n\nSalu2','',0,'','1e9ty1oe',1,0,'',78,0,0),(3583,924,6,109,0,'200.52.198.84',1134687937,1,0,1,1,1,0,'','Tdbodbcdirect:handleevent','Contamos con FWH Ver. 2.3a, y hasta la fecha no tenia problemas con los oOdbc:Query(\"select * from ......), pero a partir de una recompilacion del sistema me aparece el mensaje \"Tdbodbcdirect:handleevent\".\n\n   Lei en un mensjae del Sr. Antonio Linares (contestacion al Jo’o Cezar el dia 31/MAYO/2003 ) que se trataba de un bug y que ya habia sido corregido.\n\n    Por lo tanto quisiera me orientaran que debo hacer, para conseguir ese \"PARCHE\".\n\n\nSin mas por el momento, agradesco su atencion.\n\nRicardo E. Guardado Flores','',0,'','1mgj3eyl',1,0,'',109,0,0),(3584,844,1,2,0,'80.58.2.107',1134691838,1,0,1,1,1,1,'','','Michel,\n\nGlad to know you solved it.','',0,'','4tvcam3s',1,0,'',2,0,0),(3585,923,3,2,0,'80.58.2.107',1134691958,1,0,1,1,1,1,'','','Reinaldo,\n\nYou need to link DBFFPT.lib and HBSIX.lib instead of DBFDBT.lib.\n\nRegarding the _hb_stack problem, you need a new FiveHC.lib from us. Please email us privately to request it. Thanks.','',0,'','279j0n51',1,0,'',2,0,0),(3586,917,2,74,0,'190.48.224.77',1134692163,1,0,1,1,1,1,'','','Fernando:\n\ncurdrive()+\':\\\'+curdir()\n\nSaludos,','',0,'','1e7mrvjd',1,0,'',74,0,0),(3587,922,3,2,0,'80.58.2.107',1134692702,1,0,1,1,1,1,'','','Marco,\n\nJust add this method to Class TComboBox:\n\n[code:2nzjsjig]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TComboBox\n\n   if nKey == VK_RETURN\n      &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endif\n   \nreturn nil      \n[/code:2nzjsjig]','',0,'AIA=','2nzjsjig',1,0,'',2,0,0),(3588,496,6,97,0,'200.76.32.3',1134693961,1,0,1,1,1,1,'','Lo checo y te comento','Gracias Fer. lo checo y te comento.','',0,'AIA=','3nx3cni4',1,0,'',97,0,0),(3589,890,6,97,0,'201.151.187.16',1134694478,1,0,1,1,1,1,'','Claro uso verse','Claro que usoe verce juan, pero por x motivo la aplicacion la ligue con con el bat dato que no son muchos archivo.','',0,'AIA=','e3xs31p8',1,0,'',97,0,0),(3590,925,3,159,0,'210.243.203.20',1134697997,1,0,1,1,1,0,'','somebody have solution of EMF 1.0 for fwh26?','as Title, I\' use EMF 1.0f, but, can\'t compatible fwh 2.6.\nHave solution for it?','',0,'AIA=','3ognda8f',1,0,'',159,0,0),(3591,926,2,341,0,'24.232.135.75',1134699212,1,0,1,1,1,0,'','Problema con filexls en mas 2000 registros','Estimados Colegas\n\nTengo un problema al generar con filexls  un archivo excel de mas de 2000\nregistros se genera el archivo pero no lo puedo abrir,me sale un mensaje\nque no se puede leer, si alguien me puede orientar.\n\nGracias\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','88h4w3gn',1,0,'',341,0,0),(3592,897,6,72,0,'201.154.196.88',1134699466,1,0,1,1,1,0,'','','Una mas a favor de Luis, tengo una lista con unas 2000 direcciones y hago envío sin mayores problemas.','',0,'AIA=','3mp1hcyn',1,0,'',72,0,0),(3593,867,3,314,0,'218.16.50.58',1134705819,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:9cwmwvzs]Johnny,\n\nYou may easily modify Class TEdit, add methods to it[/quote:9cwmwvzs]\n\nAntonio,\n\nWhen you say add methods to TEdit from TGet do you mean just cut and paste the code from tget to tedit? If that is the case it mean most of the code from tget need to be apply to tedit, am I right?\n\nJohnny','',0,'gA==','9cwmwvzs',1,0,'',314,0,0),(3594,912,4,19,0,'217.153.83.2',1134714063,1,0,1,1,1,0,'','','Antonio,\n\nNow my exe is 786kB\n\nregards Eugeniusz','',0,'gA==','2kx7qzrw',1,0,'',19,0,0),(3595,925,3,6,0,'82.54.221.80',1134719179,1,0,1,1,1,1,'','Re: somebody have solution of EMF 1.0 for fwh26?','You don\'t need of EMF.LIB anymore as FWH now use enhanced metafiles for print preview.\n\nEMG','',0,'gA==','2evchb1t',1,0,'',6,0,0),(3596,922,3,29,0,'80.181.108.140',1134721486,1,0,1,1,1,0,'','','Yes, runs fine.\nThanks for your quick reply.\n\nBest Regards,\n\nMarco','',0,'gA==','1052v517',1,0,'',29,0,0),(3597,923,3,15,0,'203.73.90.9',1134722273,1,0,1,1,1,0,'','','Hello Antonio,\n\nI have same problem \'_hb_stack\' .\nCould you send to me new Fivehc.lib?\n\nThank you.\n\nRegards,\n\nRichard\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'gA==','3f3j1ob7',1,0,'',15,0,0),(3598,922,3,6,0,'82.54.221.80',1134723305,1,0,1,1,1,1,'','','Great!\n\nEMG','',0,'gA==','1m9hbx91',1,0,'',6,0,0),(3599,927,16,2,0,'80.58.2.107',1134724813,1,0,1,1,1,1,'','New December 2.7 build','The new December 2.7 build is ready for FTDN, FWH, etc. You may already download it. WhatsNew list:\n\nEl nuevo build 2.7 de Diciembre ya está listo para FTDN, FWH, etc. Ya puede descargarse. Lista de novedades:\n\n December 2005 build\n ===============\n\n FWH users: We are building Harbour and xHarbour using the -DHB_INCLUDE_WINEXCHANDLER flag.\n            If you build Harbour or xHarbour yourself, please use such flag too.\n \n * Fix: Printer Preview was failing to show the pages on high screen resolutions. Now it is\n   ok.\n \n * Enhancement: function cTempFile() now supports two optional parameters:\n                function cTempFile( [cPath], [cExtension] ) --&gt; cFileName\n                \n * fix: Class TCBrowse Method lEditCol, VALID is now properly evaluated.               \n     \n * Enhancement: Class TSplitter has been modified to properly work with Win32 StatusBars too.\n             \n * Enhancement: Minor fix on Class TPanel, to improve painting.             \n                 \n * Enhancement: Class TIcon support for transparent background implemented.\n \n * Fix: Class TGet (32 bits) painted with no border when no XP themes are used.\n                \n * Fix: function Alert() was not properly working due to recent changes. Now it is ok.\n \n * Fix: Minor fix on objects.ch for FW++ compatibility with new Xbase++ 1.9 version.\n\n * New: FW++ is already compatible with the new Xbase++ 1.9 version.\n \n * Enhancement: Class TGet Method MouseMove() now evaluates bMMoved if defined.\n \n * Enhancement: Alert() function does not allows focus on the text.\n \n * Enhancement: FWPPC, winapi\\text.c module has been added.\n \n * Enhancement: FWPPC, Class TBtnBmp works ok with bitmaps from resources.\n \n * GETs with XP themes are properly displayed on dialogs and on windows. This was partially\n   fixed on previous build but it was not complete.\n  \n * Fix: Minor fix on source\\classes\\rpreview.prg for a bug that generated random errors.\n  \n * New: FWPPC, new GetPlatform() function. It returns the platform name for the\n   PocketPC or PDA.\n   \n * New: FWPPC, new GetVersion() function, it returns an array with 5 elements: \n   MajorVersion, MinorVersion, BuildNumber, PlatformID, and CSDVersion.\n\n * New: FWPPC has been built using the current CVS Harbour. IMPORTANT: Please recompile\n   all your PRGs, and also modify your batch or make files to use DBFFPT.lib and HBSIX.LIB\n   instead of DBFDBT.lib. Please download and reinstall Harbour for Pocket PC and FWPPC too.\n   It is also highly recommended to rebuild your indexes.\n      \n * Enhancement: FWPPC, VCE\\lib\\ole32.lib is also linked in buildce.bat.\n \n * Important: FWPPC: Please remember that Windows Mobile does not support SHARED mode for \n   DBFs management. Microsoft says it may be available from Windows Mobile 2005 on.\n   \n * Enhancement: Class TPrinter Method Cmtr2Pix(), minor fix.\n \n * New: Class TToolBar Methd SetTextRows( nRows ), to set more than one line of text for each\n   toolbar button.\n    \n * Fix: FWPPC several fixes on Class TBitmap.\n     \n * Enhancement: FWPPC browse is working on Windows Mobile 3.0 too. A new function MoveToLineTo()\n   has been implemented to avoid the Windows Mobile bugs on MoveTo() and LineTo() use.\n   \n * Enhancement: Class TGet properly checks SET BELL [ ON | OFF ] status.\n \n * Enhancement: Class TBitmap now properly paints transparent on XP themed folders.\n   Please review samples\\TestFold.prg for a working sample.\n   \n * Enhancement: Class TComboBox, comboboxes go to next control when return is pressed on them.','',0,'','wmr1z7qw',1,0,'',2,0,0),(3600,928,3,2,0,'80.58.2.107',1134725106,1,0,1,1,1,1,'','New December 2.7 build ready','Please review whatsnew section on these forums for more info.','',0,'','3k6m5sqa',1,0,'',2,0,0),(3601,929,6,2,0,'80.58.2.107',1134725334,1,0,1,1,1,1,'','Nuevo build de 2.7 Diciembre','Ya está disponible el build de Diciembre de la versión 2.7. Por favor revisad la sección \"whatsnew\" de estos foros para más información.','',0,'','33dygbf8',1,0,'',2,0,0),(3602,923,3,2,0,'80.58.2.107',1134725550,1,0,1,1,1,1,'','','Richard,\n\nPlease email us privately to request it. Thanks.','',0,'','2i9brjuq',1,0,'',2,0,0),(3603,867,3,2,0,'80.58.2.107',1134725772,1,0,1,1,1,1,'','','Johnny,\n\nYes.\n\nWe appreciate if yall of ou can test John M. S. Chiang changes and provide feedback about its usability. Thanks.','',0,'','2c2l5ywq',1,0,'',2,0,0),(3604,879,3,2,0,'80.58.2.107',1134726184,1,0,1,1,1,1,'','','Brian,\n\nDo you use Chr( 13 ) + Chr( 10 ) (CRLF) to break the text line ?','',0,'','1izxfh8z',1,0,'',2,0,0),(3605,919,3,2,0,'80.58.2.107',1134728903,1,0,1,1,1,1,'','','Gonzalo,\n\nEn samples\\dbf02.prg tienes un ejemplo que funciona correctamente con FWH, aunque necesita la versión en 32 bits de dbf02.dll. \n\nPuedes descargarla desde aqui, incluyendo el ejemplo modificado:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/58fbe346/dbf02_32.zip.html\">http://hyperupload.com/download/58fbe34 ... 2.zip.html</a><!-- m -->','',0,'','31kszq37',1,0,'',2,0,0),(3606,914,7,2,0,'80.58.2.107',1134729109,1,0,1,1,1,1,'','','Rafael,\n\nVamos a implementarlos lo antes posible.','',0,'','gee5pibb',1,0,'',2,0,0),(3607,879,3,144,0,'68.7.224.53',1134729625,1,0,1,1,1,1,'','','No. I\'ll have to go back and review to find out the trick. We opted NOT to do 2 rows. Part of the problem is the standard style expands the buttons to the width of the widest string.  You have to tell it to stop doing that, but I don\'t remember exactly how. It\'s not as easy as just adding the CCS_NORESIZE style.\nTB_SETMAXTEXTROWS just tells it to ALLOW more than one row.....\n[/quote]','',0,'','2gcn4b7l',1,0,'',144,0,0),(3608,918,20,29,0,'80.181.108.140',1134732112,1,0,1,1,1,0,'','','Antonio ha risolto il problema.\n\nApprofitto per un piccolo quesito:\n\nse ho il focus su una get e voglio che premendo invio (quindi il dato inserito viene accettato e si perde il focus) come faccio a trasferire il focus su un altro oggetto ?\n\nHo provato inserendo dopo l\'oggetto GET oGet1 \n\noGet1:bLostFocus={||oBtn:SetFocus()}\n\nin modo da trasferire il focus al BUTTON oBtn\n\nPerò non funziona, ossia, l\'operazion oBtn:SetFocus() viene eseguita ma il focus non viene trasferito.\n\nHo provato anche con oGet1:oJump=oBtn ma senza successo\n\nQualche suggerimento ?\n\nMarco','',0,'','3o1g5mm6',1,0,'',29,0,0),(3609,918,20,6,0,'82.54.221.80',1134732752,1,0,1,1,1,1,'','','[quote:1eqtrpsn]Ho provato anche con oGet1:oJump=oBtn ma senza successo[/quote:1eqtrpsn]\n\nEppure così dovrebbe funzionare. Al solito, un esempietto può far capire se e dove sbagli.\n\nEMG','',0,'gA==','1eqtrpsn',1,0,'',6,0,0),(3610,918,20,29,0,'80.181.108.140',1134734990,1,0,1,1,1,0,'','','Eccolo su\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/testget.zip\">www.softwarexp.co.uk/beta/testget.zip</a><!-- w -->\n\nIn pratica quando parte il programma il focus è sulla prima Get (oGet1),\nvorrei che premendo invio vada poi sul pulsante oBtnEnd.\n\nMarco','',0,'gA==','7py3e8x2',1,0,'',29,0,0),(3611,910,1,284,0,'201.1.138.198',1134735513,1,0,1,0,1,0,'','','[quote=&quot;Antonio Linares&quot;:3j9mozoi]You should not use Inkey() on a FW application.[/quote:3j9mozoi]\nOk, thanks.\nWhat should I use to wait a key in FiveWin ?','',0,'gA==','3j9mozoi',1,0,'',284,0,0),(3612,918,20,6,0,'82.54.221.80',1134736162,1,0,1,1,1,1,'','','Aggiungi la clausola ON INIT al comando ACTIVATE DIALOG:\n\nON INIT oGet1:oJump := oBtnEnd\n\nPerò non capisco a cosa ti serva mettere il focus sul pulsante. Rendilo di default oppure metti una clausola WHEN ai (o disattiva i) controlli da saltare.\n\nEMG','',0,'gA==','39yfolyi',1,0,'',6,0,0),(3613,908,20,1,0,'217.222.223.34',1134736467,1,0,1,1,1,0,'','','Enrico, snellisco il prg, l\'rc e lo spedisco in privato se per te va bene.\nCiao','',0,'gA==','32dsojbo',1,0,'',1,0,0),(3614,908,20,6,0,'82.54.221.80',1134736827,1,0,1,1,1,1,'','','Ok.\n\nEMG','',0,'gA==','32yycsc7',1,0,'',6,0,0),(3615,908,20,263,0,'217.222.223.34',1134736910,1,0,1,1,1,0,'','','Ok, a risentirci pomeriggio.\n\nVado a casa.\n\nciao','',0,'gA==','30k1zcsz',1,0,'',263,0,0),(3616,910,1,2,0,'80.58.2.44',1134740680,1,0,1,1,1,1,'','','Please explain what you need to do. What do you need that keystroke for ?','',0,'gA==','1uuhhhvo',1,0,'',2,0,0),(3617,925,3,159,0,'210.243.203.20',1134741395,1,0,1,1,1,0,'','Re: somebody have solution of EMF 1.0 for fwh26?','[quote=&quot;EnricoMaria&quot;:2zivzgbz]You don\'t need of EMF.LIB anymore as FWH now use enhanced metafiles for print preview.\n\nEMG[/quote:2zivzgbz]\n\nBut, I use rereivew of fwh26, first screen have not to show any data!!','',0,'gA==','2zivzgbz',1,0,'',159,0,0),(3618,925,3,2,0,'80.58.2.44',1134743147,1,0,1,1,1,1,'','','Please email us privately to check for an upgrade.','',0,'gA==','38flo2ly',1,0,'',2,0,0),(3619,930,5,195,0,'62.38.104.248',1134745855,1,0,1,1,1,0,'','The link for FWH++ December2005 ON FTDN not working','Hello Antonio\n\nAs a subject\n\nGreetings \nDionisis','',0,'gA==','3oxeix2t',1,0,'',195,0,0),(3620,923,3,299,0,'69.65.88.121',1134746330,1,0,1,0,1,0,'','','Antonio;\n\nThanks for your quick answer.  It turned out just as you explained.  \n\nPlease do send fivehc.lib to work with xharbour_0.99.51 to:\n\nreinaldocrespoatstructuredsystems.com\n\nSaludos cordiales;\n\n\nReinaldo Crespo-Bazán','',0,'gA==','2nnyjp3w',1,0,'',299,0,0),(3621,894,6,41,0,'166.114.252.26',1134746827,1,0,1,1,1,0,'','Re: Centrar texto en la clase TPrinter','Hola,\n\ntienes que aumentar el parametro de ancho withd para que se pueda calcular en que area quieres centrar el texto\n\nMarcelo\n\n[quote=&quot;Fco_Ozuna&quot;:wejkvvjj]Hola a todos.\n\nAlguien que me pueda ayudar necesito centrar un texto en la hoja, pero este texto es variable.\n\n         oPrn:CmSay( x,y,\"Algo\", ::oFont7 ,,,,1)\n\ndesde ya muchas gracias...[/quote:wejkvvjj]','',0,'gA==','wejkvvjj',1,0,'',41,0,0),(3622,910,1,284,0,'201.1.138.198',1134747833,1,0,1,0,1,0,'','','[quote=&quot;Antonio Linares&quot;:cb6uamoe]Please explain what you need to do. What do you need that keystroke for ?[/quote:cb6uamoe]\nIn this case I need to wait sometime to repeat a procedure.','',0,'gA==','cb6uamoe',1,0,'',284,0,0),(3623,931,3,299,0,'69.65.88.121',1134748453,1,0,1,0,1,0,'','ADS','I recently downloaded a sample app from René\'s web site.  When executed it connects to remote dbfs and allows add/edit/view/browse of tables (DBFs).  It is a very convinient solution to provide clients access to one common database from many remote work stations via a fast web connection, and still use the same xbase we know.  It uses the ADS client-server add-on which is not exactly inexpensive, but seems to works great nevertheless.\n\nI thought it would make great sense to gear my apps towards using the ADS drivers so that whenever remote access is needed, it will only be a matter of purchasing and installing the ADS server at the customer\'s server where the dbfs are stored.  We must admit that it is becomming increasingly more crucial to have web/enabled or remotely/web accessed apps now days.\n\nIn order to have one and only one set of source code to work with the local server as well as with the commercial n users server stuff, I thought of placing a flag on a .ini file that will decide wheather the app is to work with a local or remote server.  Something sort of like this:\n\n\nINI oIni FILE \".\\MyApp.ini\"\nGet xRDD SECTION \"RDD\" ENTRY \"RDD-VERSION\" OF oIni DEFAULT \"LOCAL\"\nENDINI\n\n\nrddsetdefault( \"ADS\" )\nrddRegister ( \"ADS\", 1 )\nSET FILETYPE to NTX\n\nIF upper( xRDD ) &lt;&gt; \"LOCAL\"\n	SET SERVER REMOTE\n	cADS := \" Remote 32 bit -b\"\nELSE\n	cADS := \" Local 32 bit -b\"\n	SET SERVER LOCAL\nENDIF\n\n\nand always link the ads RDDs.\n\nQuestions:\n\n1. Will this work?  \n2. Is there a better way?  \n3. Exactly what files must be linked?\n4. I once read that there is a free ADS 2 user full version available.  How can it be obtained?\n\n\nBTW;  Last night I accidentally also came across a web-radio transmission via a posting about radio creswin from Méjico.  René was on the air speaking about ADS.  It was a very pleasant converstion.  Congratulations on the radio program.  I\'m only sory I was late on it and did not get to listen to the whole transmission.  Does any body know the scheduling of this program on the air?  I\'m looking forward to listening anytime I\'m able to.\n\nBest,\n\n\nReinaldo Crespo-Bazán','',0,'gA==','tv7phf8k',1,0,'',299,0,0),(3624,910,1,6,0,'82.54.221.80',1134748763,1,0,1,1,1,1,'','','Then use something like SysWait( nSec ).\n\nEMG','',0,'gA==','3drx1e8d',1,0,'',6,0,0),(3625,932,18,6,0,'82.54.221.80',1134748919,1,0,1,1,1,1,'','Bug in print preview (fixed)','Running the following sample I can see no bitmaps on the toolbar, only empty buttons:\n\n[code:2zficzhu]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Report&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRpt\n\n    USE C&#58;\\XHARBOUR\\TEST\n\n    REPORT oRpt PREVIEW\n\n    COLUMN TITLE &quot;FIRST&quot;;\n           DATA FIELD -&gt; first\n\n    COLUMN TITLE &quot;LAST&quot;;\n           DATA FIELD -&gt; last\n\n    COLUMN TITLE &quot;STREET&quot;;\n           DATA FIELD -&gt; street\n\n    COLUMN TITLE &quot;CITY&quot;;\n           DATA FIELD -&gt; city\n\n    END REPORT\n\n    ACTIVATE REPORT oRpt\n\n    CLOSE\n\n    RETURN NIL[/code:2zficzhu]\n\nEMG','',0,'AIA=','2zficzhu',1,0,'',6,0,0),(3626,933,6,23,0,'80.58.44.235',1134749745,1,0,1,1,1,1,'','Variables Static','Que parámetro le paso al compilador de harbour para que me coja las variables static??\nMe explico, recompilo el rpreview y las variables static que tiene al principio me dice que nanai, las tengo que poner como Public.\n\nGraciasss.','',0,'AIA=','12yjvd2b',1,0,'',23,0,0),(3627,920,6,255,0,'200.67.134.233',1134749943,1,0,1,1,1,1,'','Re: No me funciona Drag&amp;Drop en Browse con XP','[quote=&quot;gdeteran&quot;:281mhknz]Estoy migrando mis aplicaciones de Win98 a XP y me encontrado con este problema. \nUso FWH 2.4[/quote:281mhknz]\n\nLa siguiente forma la uso y jala bien en todos\nlos sistemas operativos:\n\n\noLst = Control q debe aceptar Drag&amp;Drop\n\nON INIT ( DragAcceptFiles( oLst:hWnd, TRUE ), ;\n              oLst:bDropFiles := {|nRow,nCol,aFiles| valida(oLst) }  )\n\nSaludos','',0,'gA==','281mhknz',1,0,'',255,0,0),(3628,919,3,255,0,'200.67.134.233',1134750383,1,0,1,1,1,1,'','Re: No me funciona Drag&amp;Drop en Browse con XP','[quote=&quot;gdeteran&quot;:1936cyuy]Estoy migrando mis aplicaciones de Win98 a XP y me encontrado con este problema.[/quote:1936cyuy]\n\nTe contesté en el foro de español\nSaludos','',0,'gA==','1936cyuy',1,0,'',255,0,0),(3629,918,20,29,0,'80.181.108.140',1134751519,1,0,1,1,1,0,'','','Ok. Funziona, grazie 1000.\n\nL\'esempio che ti inviato era una semplificazione del problema in realtà la mia schermata di inserimento è costituita in sequenza da:\n\n&lt;oggetti nella dialog1 del folder&gt;\ncombobox\nget\nget \ncombobox\nget\nbrowse\n\n&lt;oggetti nel folder ma fuori della dialog&gt;\n\nbutton\nbutton\n\nIl problema era che dall\'ultima get il focus mi andava sul browse anziché sul button questo perché il browse è incluso nella dialog1 ed ha quindi una \"priorità\" rispetto al primo button esterno alla dialog.\n\nMi era rimasto solo questo problema per poter gestire l\'inserimento dei dati anche senza dover necessariamente utilizzare il mouse, semplicemente premento invio.\n\nGuardando la cosa da un punto di vista da programmatore il fatto di passare da un campo all\'altro con invio è in effetti poco ortodossa ma dal punto di vista commerciale è veramente importante per un programma di contabilità che prevede un inserimento ripetuto di dati.\n\nCiao  e grazie.\n\nMarco','',0,'gA==','l1t15485',1,0,'',29,0,0),(3630,918,20,6,0,'82.54.221.80',1134751655,1,0,1,1,1,1,'','','Continuo a non essere d\'accordo. Che differenza c\'è tra premere Invio o Tab? Io credo che la maggior parte degli utenti di Windows siano abituati ad utilizzare Tab.\n\nEMG','',0,'gA==','pbddtasy',1,0,'',6,0,0),(3631,934,6,255,0,'200.67.134.233',1134752111,1,0,1,1,1,1,'','Poner texto sobre Bitmaps','Tengo la siguiente Ventana:\n\nDEFINE WINDOW oWnd FROM 0,0 TO 45,90 TITLE NAMEPROGRAM ICON oIcon COLOR CLR_BLACK,RGB(172,194,139)\n\nDEFINE BITMAP oBitmap FILE \".\\BMPS\\FONDO.BMP\"\n\n\n ACTIVATE WINDOW oWnd MAXIMIZED ;\n           ON PAINT ColocaBitmaps( oWnd, hDC, oBitmap:hBitmap, oBitmap )\n\nSTAT FUNC ColocaBitmaps( oWnd, hDC, hBmp, oBitmap )\n    LOCAL nTop    := 0\n    LOCAL nLeft   := 235\n    LOCAL nWidth  := oWnd:nWidth() - 235\n    LOCAL nHeight := oWnd:nHeight()\n    IF hBmp = 0\n       RETURN NIL\n    ENDIF\n    PALBMPDRAW( hDC, nTop, nLeft, hBmp , , nWidth, nHeight )\nReturn NIL\n\nAhora bien, NECESITO escribir encima del bitmap\nvarios textos y en varios tipos de letras y colores.\nEs posible ?\nComo se hace ?\n\nGracias de antemano.','',0,'gA==','33uxirsd',1,0,'',255,0,0),(3632,935,2,78,0,'200.106.100.224',1134752968,1,0,1,1,1,0,'','Cordenadas de un dialogo','Holas Amigos...\nOtra vez dando la lata... como podria obtener las coordenadas de un dialogo ? la idea es que haciendo un click en cualquier area de dialogo o en un boton, se llamara  a  otro dialogo en la posision en la que de hizo click....\n\nSalu2\nWilli','',0,'gA==','3sru3mlx',1,0,'',78,0,0),(3633,936,6,106,0,'85.34.123.172',1134753631,1,0,0,1,1,1,'','Alert no muestra el texto...','Al alert no muestra el texto (cMsg), y por lo que veo no es un problema en alert.prg, porque es casi igual a la version 2.3\nHablo de la version 2.7 de Octubre o noviembre/2005.\n\n\nGracias.','',0,'gA==','ugc3e9yk',1,0,'',106,0,0),(3634,918,20,29,0,'80.181.108.140',1134753954,1,0,1,1,1,0,'','','Il supporto del tasto di invio è stata nel mio caso una scelta originariamente dettata dalla necessità di mantenere le medesime operazioni che l\'utente faceva con la versione DOS del mio applicativo per effettuare così una immediata migrazione al sistema Windows e non dover mantenere 2 piattaforme per un periodo transitorio.\n\nDiverse società concorrenti hanno inoltre ancora pacchetti in DOS o (più frequente) DOS in finestra Windows (tipo quella modalità di migrazione ibrida presente nella prima versione di VO) ed ancora, ci sono software che operano in modalità terminale in remoto.\n\nVero che utilizzando il TAB si potrebbe passare da un campo al successivo mantenendo lo \"standard\" Windows, tuttavia il mio cliente tipico (o meglio il personale del mio cliente) inserisce centinaia di documenti al giorno e un conto è poterli inserire semplimente premendo invio, un altro è dover premere alla fine OK con il mouse o dover comunque utilizzare l\'invio per confermare la registrazione dei dati.\n\nMarco','',0,'gA==','3atomnca',1,0,'',29,0,0),(3635,937,18,6,0,'82.54.221.80',1134754173,1,0,1,1,1,1,'','Bug in oDlg:bGotFocus','Running the following sample you can hear a beep only when the dialog is closed but not when it gets the focus:\n\n[code:1yh8ig11]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;bGotFocus = &#123; || Tone&#40; 440, 1 &#41; &#125;\n\n    @ 1, 1 GET cVar\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1yh8ig11]\n\nEMG','',0,'AIA=','1yh8ig11',1,0,'',6,0,0),(3636,932,18,2,0,'80.58.2.107',1134754495,1,0,1,1,1,1,'','','Enrico,\n\nPlease download FWH again and test it again. It was a last minute bug that got on the build but has been already fixed.','',0,'AIA=','1yai7lfj',1,0,'',2,0,0),(3637,934,6,41,0,'166.114.252.26',1134754654,1,0,1,1,1,0,'','','Hola,\n\npues ahora tu contenerdor seria el BITMAP, @ 10,10 SAY \"hhhh\" OF oBmp\ndeberia funcionar\n\nsaludos\n\nMarcelo','',0,'AIA=','26xsdnke',1,0,'',41,0,0),(3639,930,5,2,0,'80.58.2.107',1134755068,1,0,1,1,1,1,'','','Dionisis,\n\nIt was temporarly disabled this morning. Please try it again.','',0,'AIA=','3jrvzsqj',1,0,'',2,0,0),(3640,939,19,123,0,'88.0.86.122',1134755277,1,0,1,1,1,0,'','OT: Aprender a sumar','Hola...\n\nAprender a sumar en C y (x)Harbour: <!-- w --><a class=\"postlink\" href=\"http://www.capeblog.com\">www.capeblog.com</a><!-- w -->\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2ruev2qd',1,0,'',123,0,0),(3641,932,18,6,0,'82.54.221.80',1134755398,1,0,1,1,1,1,'','','All ok, bug solved, thank you!\n\nEMG','',0,'AIA=','ykthiz5o',1,0,'',6,0,0),(3642,934,6,72,0,'201.154.192.248',1134755403,1,0,1,1,1,0,'','','Se me ocurre usar:\n\nDrawText( &lt;hDC&gt;, &lt;cText&gt;, &lt;aRect&gt;, &lt;nStyle&gt; )\n\nSaludos.','',0,'AIA=','ay1l169s',1,0,'',72,0,0),(3643,930,5,195,0,'62.38.104.248',1134755787,1,0,1,1,1,0,'','','Antonio\n\nIt is still unavailable i check it since two minutes ago !!\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGreetings \nDionisis','',0,'AIA=','33bbtcme',1,0,'',195,0,0),(3644,937,18,2,0,'80.58.2.107',1134755808,1,0,1,1,1,1,'','','Enrico,\n\nIt does not look as a bug, as the dialog never gets the focus, just momentary when it is going to be closed. All the time a control has the focus.','',0,'AIA=','1g47ffwc',1,0,'',2,0,0),(3645,930,5,2,0,'80.58.2.107',1134755960,1,0,1,1,1,1,'','','Dionisis,\n\nMy mistake, sorry. It should be ok now <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3sv1421d',1,0,'',2,0,0),(3646,930,5,195,0,'62.38.104.248',1134756275,1,0,1,1,1,0,'','','OK ANTONIO\n\nWorks perfect now\nMany Thanks\n\nDionisis','',0,'AIA=','21fsw7zf',1,0,'',195,0,0),(3647,940,2,157,0,'62.15.112.170',1134758684,1,0,1,1,1,0,'','Librerias CT y cambio de unidad','Buenas a todos:\nAlguien me puede decit si las librerias cT-tools son compatibles con FW y FWH. Tambien me gustaria saber como puede cambiar de una unidad de disco a otra.\n\nGracias y saludos','',0,'AIA=','3gzxq0f8',1,0,'',157,0,0),(3648,941,3,261,0,'63.197.46.139',1134759277,1,0,1,1,1,1,'','Ping several items in xHarbour','Is it possible to ping one to many items directly from xHarbour.  I am working with a warehouse which has 10 access points for 802-11B communications.  I was hoping to be able to ping all of these units from a procedure in my program so we know they are up and responding.  Is this possible. \n\nThanks,','',0,'AIA=','2tin3562',1,0,'',261,0,0),(3649,942,3,261,0,'63.197.46.139',1134759316,1,0,1,1,1,1,'','SNMP in xHarbour','Anybody have any experience with SMNP via xHarbour. \n\nThanks,','',0,'AIA=','16y9ttte',1,0,'',261,0,0),(3650,934,6,78,0,'200.106.100.224',1134759710,1,0,1,1,1,0,'','','Yo le hago asi:\n\nDEFINE WINDOW oWnd...\n\n\nACTIVATE WINDOW oWnd ON INT (ResumCtas(oWndl) )\n..\n..\nFunction ResumCtas(oWndl)\n..\n..\n@90, SAY cDatos OF oWnd\n..\nReturn(Nil)\n\nSalu2','',0,'AIA=','1ijyyv9c',1,0,'',78,0,0),(3651,937,18,6,0,'87.3.184.191',1134759834,1,0,1,1,1,1,'','','Ok, but this is not consistent with the behavior of bLostFocus. Why?\n\nEMG','',0,'AIA=','14n1h1dh',1,0,'',6,0,0),(3653,939,19,123,0,'88.0.86.122',1134764191,1,0,1,1,1,0,'','','Ups...\n\nEl enlace correcto es  <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->\n\nDisculpas mil!!!','',0,'AIA=','2flf859z',1,0,'',123,0,0),(3654,934,6,123,0,'88.0.86.122',1134766074,1,0,1,1,1,0,'','','Juan Carlos,\n\nTal como dicen Alfredo y Willi debería funcionar.  Sin embargo... si esos SAYS los escribes encima de los bitmaps deberás preocuparte que en cada repintado del bitmap vuelvas a escribir el say encima del bitmap.  Una posible solución podría ser añadir el código para escribir esos SAYS en la función que utilizas para pintar los bitmaps.\n\nEspero que te sea de ayuda.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','qk71ctkm',1,0,'',123,0,0),(3655,942,3,41,0,'166.114.252.26',1134766621,1,0,1,1,1,0,'','','Hola,\n\nI don\'t have experiencie with SNMP with xHarbour, but you ca see MRTG utility, and implement a xHarbour monitor \n\nregards\n\nMarcelo','',0,'AIA=','1k4lvata',1,0,'',41,0,0),(3656,934,6,255,0,'200.67.134.233',1134770731,1,0,1,1,1,1,'','','Amigos, ninguna forma fucionó!\n\nSetBkMode( oBitmap:hDC, 1 )\nTextOut( oBitmap:hDC, 1, 1, \"PROBANDO EL TEXTO\" )\nDrawText( oBitmap:hDC, \"OTRA PRUEBA DEL TEXTO\", { 1,1,500,500 } )\n\n\nAlguna otra alternativa ???','',0,'AIA=','xbp94grp',1,0,'',255,0,0),(3657,934,6,255,0,'200.67.134.233',1134770829,1,0,1,1,1,1,'','','Tampoco esta:\n\n@ 1,1 SAY oSay PROMPT \"PROBANDO\" OF oBitmap\n\n<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nHelp please !!!','',0,'AIA=','2gduhk6z',1,0,'',255,0,0),(3658,943,7,262,0,'83.97.169.215',1134772400,1,0,1,1,1,1,'','Problemas en get con clausula when','si cogemos el codigo de test05 y le hacemos unos cambios \n[code:exywnzmw]\nfunction Main&#40;&#41;\n\n   local oWnd, oFont\n   local cName1 &#58;= &quot;first     &quot;, nLen1  &#58;= 10, cType1 &#58;= &quot;C&quot;\n   local cName2 &#58;= &quot;last      &quot;, nLen2  &#58;= 10, cType2 &#58;= &quot;C&quot;\n   local cName3 &#58;= &quot;address   &quot;, nLen3  &#58;= 10, cType3 &#58;= &quot;C&quot;\n\n   local lvale&#58;= &#46;t&#46;\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -10\n\n   DEFINE WINDOW oWnd TITLE &quot;Tutor05&quot;\n\n   @ 1, 2 SAY &quot;Create DBF Test&quot; SIZE 100, 20 COLOR &quot;R+/B&quot; FONT oFont\n\n   @ 3, 2 SAY &quot; FieldName   Type   Len&quot; SIZE 150, 20 COLOR &quot;GR+/G&quot;\n\n   @ 6,  2 GET cName1 SIZE 60, 20 when &#46;f&#46;\n   @ 6, 11 GET cType1 SIZE 20, 20\n   @ 6, 15 GET nLen1  SIZE 30, 20 PICTURE &quot;999&quot;\n\n   @ 8,  2 GET cName2 SIZE 60, 20 when lvale\n   @ 8, 11 GET cType2 SIZE 20, 20\n   @ 8, 15 GET nLen2  SIZE 30, 20 PICTURE &quot;999&quot;\n\n   @ 10,  2 GET cName3 SIZE 60, 20 when !lvale\n   @ 10, 11 GET cType3 SIZE 20, 20\n   @ 10, 15 GET nLen3  SIZE 30, 20 PICTURE &quot;999&quot;\n   \n   @ 10, 2 BUTTON &quot;&amp;Create&quot; SIZE 60, 30 ACTION &#40; DbCreate&#40; &quot;test&#46;dbf&quot;,;\n                                                         &#123; &#123; cName1, cType1, nLen1, 0 &#125;,;\n                                                           &#123; cName2, cType2, nLen2, 0 &#125;,;\n                                                           &#123; cName3, cType3, nLen3, 0 &#125; &#125; \n\n&#41;,;\n                                                 MsgInfo&#40; &quot;test&#46;dbf created!&quot; &#41; &#41;\n                                                           \n   @ 12, 2 BUTTON &quot;&amp;End&quot;    SIZE 60, 30 ACTION oWnd&#58;End&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n   \nreturn nil\n[/code:exywnzmw]\nponemos los when :\n1.-si vamos al primer get que esta when .f. , nos deja escribir (no debería)\n2.- Si vamos directamente al 4 get que tiene when lvale que es verdadero y escribimos y luego intentamos pasar al 8 get ( que no debe dejar entrar ) , entonces nos devuelve el foco al 4 get ( correcto) , pero no deja cambiar de foco a otros gets o a los botones ( que si deberian ser accesibles)\nNo sé si se entiende .','',0,'AIA=','exywnzmw',1,0,'',262,0,0),(3659,934,6,123,0,'88.0.86.122',1134774338,1,0,1,1,1,0,'','','Juan Carlos,\n\nEste trozo de código es la función DRAW del ejemplo testbrus.prg que hay en la carpeta SAMPLES.\n\n[code:3dzlp4hl]\nfunction Draw&#40; oWndC, cBitmap &#41;\n\n   local hBitmap\n\n   oWndC&#58;GetDC&#40;&#41;\n\n   hBitmap = ReadBitmap&#40; oWndC&#58;hDC, cBitmap &#41;\n   DrawBitmap&#40; oWndC&#58;hDC, hBitmap, 0, 0 &#41;\n\n   // jlcr\n   DrawText&#40; oWndC&#58;hDC,&quot;www&#46;capelblog&#46;com&quot;, &#123;100,0,100,100&#125;&#41;\n   // jlcr \n\n\n   oWndC&#58;ReleaseDC&#40;&#41;\n\n   DeleteObject&#40; hBitmap &#41;\n\n\nreturn nil\n[/code:3dzlp4hl]\n\nSustituye este código por el que hay en testbrus.prg \n\nEspero que sea de ayuda.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','3dzlp4hl',1,0,'',123,0,0),(3660,934,6,138,0,'201.128.111.75',1134776959,1,0,1,1,1,1,'','','Jose Luis:\n\nSe te olvido:\n\n SetBkMode(oWndc:dc,0) para hacer el texto transparente\n\no \n\nSetBkMode(oWndc:dc,1) para hacerlo con opaco','',0,'AIA=','amdps0oc',1,0,'',138,0,0),(3661,926,2,138,0,'201.128.111.75',1134777102,1,0,1,1,1,1,'','','El problema es que el archivo XLS no se ha cerrado correctamente, si no especificaste que se tiene que cerrar el archivo XLS este no se crea correctamente.\n\nPor otro lado recuerda que las celdas de excel estan limitadas, entre mas datos pongas, menos celdas tienes disponibles','',0,'AIA=','21pk1hco',1,0,'',138,0,0),(3662,940,2,138,0,'201.128.111.75',1134777376,1,0,1,1,1,1,'','','No todas las version de CT son compatibles con FW, teines que asegurarte que la version de CT que tienes sea compatible con MODO DE MEMORIA PROTEGIDO, sin es compatible, necestiaras un parche que anda rodando por ahi.l\n\nCT solo se puede utilizar con FW de 16 bits.\n\nA 32 bits hay un clon llamad hbtools que trae bastantes fucniones compatibles.','',0,'AIA=','205j2pul',1,0,'',138,0,0),(3663,922,3,303,0,'68.7.28.54',1134777578,1,0,1,1,1,0,'','','Marco,\n\nKeep in mind that using the Enter key to move from field to field is DOS program behavior NOT Windows program behavior. Users expect the Enter key to trigger the default pushbutton (ususally OK). They will surprised and disappointed when it doesn\'t.\n\nThere is good reason to have it trigger the default pushbutton. This makes it easy to edit and save without having to use the mouse. If Enter moves to the next control then they have to go through all the controls to get to the button or use the mouse.\n\nJames','',0,'AIA=','2bqpsw5p',1,0,'',303,0,0),(3664,931,3,138,0,'201.128.111.75',1134779868,1,0,1,1,1,1,'','','Good to know you have tested our programs.\n\nAnd since you liked the talk about ADS, you can download some other interviews regarding MySQL, xHarbour.com, 32 bits migration, from here:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.listoelpollo.blogspot.com\">www.listoelpollo.blogspot.com</a><!-- w -->\n\nAll the interviews are recorded in MP3 format so you can download them and listen anytime you want.\n\nNow let\'s go to ADS:\n\nyou will need the following DLLs <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAXWCS32.DLL : ADS client\nACE32.DLL : DLL with all the ADS functions.\n\nOptional:\n\nADSLOC32.DLL for you to use the \"local Server\".\n\nThese DLLs are provided by Advantage in its programa Advantage Data Architech, you can download the  ARC from our website:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/arc32.exe\">www.google.d2g.com/ads/arc32.exe</a><!-- w -->\n\n\nIf using a remote server or the internet server you will need:\n\nADS.INI\n\nIf using local server you will also need :\n\nADSLOC.CFG\n\nFor the source code you will need:\n\nRDDADS.LIB\nACE32.LIB.\n\nNow, let\'s go piece by piece.\n\n(x)Harbour provides you with the RDDADS.LIB (it\'s in the contributions section), this file contains wrappers to the most common used ADS functions. These functions are stored in a DLL called ACE32.DLL (Advantage Client Engine), the fastest way to use the ACE32 is to \"export\" all the functions into a LIB file, this can be done using a program included in the Borland C++ compiler called IMPLIB.EXE, you simply do:\n\nIMPLIB ACE32.LIB ACE32.DLL\n\nthis will convert the DLL into a harbour linkable LIB. however there are certain resources in the DLL that cannot be exported into a lib, so you will need to distribute the ACE32.DLL no matter that you have converted it into a lib.\n\nYou must link these both files in your (x)harbour program.\n\nAlong with this, you should include the ADS client itself, which is: AXWCS32.DLL this client  is used to log into the 3 servers, Remote, local and internet. This file requieres the ADS.INI file to define the LAN IP for the remote server and the WAN IP for the internet conection.\n\nIn your code, there\'s no need to do much things, instead choosing the server by hand, simply:\n\nAdsSetServerType(7)\n\nThis will \"activate\" the \"smart server searching\", this means that you programa automatically detect what kind of server you are using, and will connect to it with no intervention at all. However, the parameter in the AdsSetServerType() defines what kind of server you will use\n\n1 - Local Server\n2 - Remote Server\n4 - Internet Server\n\nYou can add the values to make different server combinations, for example:\n\n3 - Local and Remote Server\n5 - Local and Internet Server\n6 - Remote and Internet Server\n7 - Local, Remote and Internet Server\n\nso, theres no need to have anything extra.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','312yvsp7',1,0,'',138,0,0),(3665,944,2,78,0,'200.106.100.224',1134793740,1,0,1,1,1,0,'','Manejo Optimo de Array','Hola Amigos....\nCyual de estos dos procesos es el mas optimo:\n1ro\n aDeta := {}\n...\naDeta := CambiaValores(aDeta)\n\n2do\n aDeta := {}\n...\nCambiaValores(@aDeta)\n\nComo veran son dos maneras de modificar un array... pero cual es mas optimo y ocupa menos memoria?\n\nSalu2\nWilli','',0,'AIA=','7n9whwcf',1,0,'',78,0,0),(3666,936,6,2,0,'80.58.2.107',1134798207,1,0,1,1,1,1,'','','Pedro,\n\nEl problema viene del uso de un GET en Alert() para mostrar el texto. Esto se ha corregido en parte en el build de Diciembre (con los cambios hechos en la clase TGet) pero aún hay que hacer más modificaciones porque el GET era editable y hemos optado por deshabilitarlo, y en 32 bits se ve gris... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3f8lvlo6',1,0,'',2,0,0),(3667,943,7,2,0,'80.58.2.107',1134798340,1,0,1,1,1,1,'','','Jose Luis,\n\nArreglado. Hay un nuevo build FWPPC que ya se puede descargar.\n\nGracias,','',0,'AIA=','3gt0c7t8',1,0,'',2,0,0),(3668,923,3,2,0,'80.58.2.107',1134798874,1,0,1,1,1,1,'','','Richard, Reinaldo,\n\nWe need you to provide us by private email your FWH user licence code. Thanks.','',0,'AIA=','pkkv84qf',1,0,'',2,0,0),(3669,933,6,2,0,'80.58.2.107',1134798978,1,0,1,1,1,1,'','','Angel,\n\nEstás compilando con /n ?','',0,'AIA=','38hvlid1',1,0,'',2,0,0),(3670,924,6,2,0,'80.58.2.107',1134799116,1,0,1,1,1,1,'','','Ricardo,\n\nPara nostros es imposible proporcionar un parche para una versión del año 2003. Al año publicamos muchos builds nuevos, y han pasado más de dos años ya.\n\nLo idóneo es que se actualizase a la versión más reciente de FWH 2.7 y así utilice el código más moderno y usado por otros usuarios, con lo que puede recibir ayuda de nosotros, de otros usuarios, mejoras, cambios, etc.\n\nLa actualización a la versión más reciente de FWH puede solicitarla desde <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m -->','',0,'AIA=','12iwg11z',1,0,'',2,0,0),(3671,913,6,2,0,'80.58.2.107',1134799203,1,0,1,1,1,1,'','','Matias,\n\nClipper es un compilador de 16 bits y FiveWin para Harbour es un producto de 32 bits. No puedes usar Clipper para construir una aplicación para Harbour.\n\nAsi mismo, no puedes usar Harbour (32 bits) con las librerías de FiveWin para Clipper (que son de 16 bits).\n\nNecesitas usar Harbour y FWH (FiveWin para Harbour). FWH es un producto comercial que puedes comprar en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'AIA=','27i8nwv3',1,0,'',2,0,0),(3672,916,6,2,0,'80.58.2.107',1134799374,1,0,1,1,1,1,'','','Ronaldo,\n\nHas probado la misma aplicación con otra impresora ?','',0,'AIA=','2fnmyeck',1,0,'',2,0,0),(3673,937,18,2,0,'80.58.2.107',1134799460,1,0,1,1,1,1,'','','Enrico,\n\nDo you mean with oDlg:bLostFocus ?','',0,'AIA=','3pk6z8rd',1,0,'',2,0,0),(3674,935,2,2,0,'80.58.2.107',1134800330,1,0,1,1,1,1,'','','Willi,\n\nPuedes usar GetCoors( oDlg:hWnd ) que te devuelve un array con nTop, nLeft, nBottom y nRight.','',0,'AIA=','1tk9yuup',1,0,'',2,0,0),(3675,944,2,2,0,'80.58.2.107',1134800497,1,0,1,1,1,1,'','','Willi,\n\nLos arrays siempre se pasan por referencia, por lo que no es preciso usar @. Por eso esta forma es más simple:\n\naDeta := CambiaValores(aDeta) \n\nEn realidad no es que se pasen por referencia, sino que la variable que los contiene, en realidad \"apunta\" a ellos en memoria, que es lo equivalente a una variable por referencia.','',0,'AIA=','1hkzukip',1,0,'',2,0,0),(3676,934,6,123,0,'88.0.86.122',1134806350,1,0,1,1,1,0,'','','René,\n\n[code:29vtlijq]Se te olvido&#58;\n\nSetBkMode&#40;oWndc&#58;dc,0&#41; para hacer el texto transparente\n\no\n\nSetBkMode&#40;oWndc&#58;dc,1&#41; para hacerlo con opaco[/code:29vtlijq]\n\nSolo me centré en la impresión del texto.  Pero es cierto que le falta añadir la transparencia.\n\nGracias por la aclaración.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','29vtlijq',1,0,'',123,0,0),(3677,927,16,2,0,'80.58.2.107',1134807157,1,0,1,1,1,1,'','','Construcción de Diciembre de 2005 \n================================= \n \nUsuarios de FWH: Estamos construyendo Harbour y xHarbour usando el flag -DHB_INCLUDE_WINEXCHANDLER.\nSi los construyes tu mismo, por favor usa ese flag también.\n\n* Corrección: La previsualización de la impresión estaba fallando al mostrar las páginas en \npantallas de alta resolución. Ahora está correcta.  \n\n* Mejora: La función cTempFile() ahora soporta dos parámetros opcionales:\nfunction cTempFile( [cPath], [cExtension] ) --&gt; cFileName\n\n* Corrección: En el método lEditCol de la clase TCBrowse, VALID ahora se evalua correctamente.\n\n* Mejora: La clase TSplitter ha sido modificada para que funcione correctamente con el control\nStatusBars en Win32.\n\n* Mejora: Pequeñas correcciones en la clase TPanel, para mejorar el pintado. \n\n* Mejora: Implementado el soporte para fondos transparentes en la clase TIcon.\n\n* Corrección: La clase TGet (en 32 bits) es pintada sin bordes cuando no se usan temas XP.  \n\n* Corrección: La función Alert() no funcionaba correctamente debido a cambios recientes. Ahora sí.\n\n* Corrección: Pequeñas correcciones en \"objects.ch\" para compatibilizar FW++ con la nueva versión \n1.9 de Xbase++. \n\n* Nueva: FW++ es ya compatible con la nueva versión 1.9 de Xbase++.\n\n* Mejora: El método MouseMove() de la clase TGet ahora evalua bMMoved si es definido. \n\n* Mejora: La función Alert() no permite el \"foco\" en el texto.\n\n* Mejora: FWPPC - Ha sido añadido el módulo winapi\\text.c. \n\n* Mejora: FWPPC - La clase TBtnBmp funciona perfectamente con bitmaps desde recursos.\n\n* Los GETs con temas XP son correctamente mostrados en \"diálogos\" y en \"ventanas\". Fue parcialmente\ncorregido en la construcción anterior pero no fue completado.\n\n* Corrección: Pequeña corrección en source\\classes\\rpreview.prg por un \"bug\" que generaba errores\naleatorios.\n\n* Nueva: FWPPC - Nueva función GetPlatform(). Devuelve el nombre de la plataforma del PocketPC o PDA. \n\n* Nueva: FWPPC - Nueva función GetVersion(), devuelve un \"array\" con 5 elementos:\nMajorVersion, MinorVersion, BuildNumber, PlatformID, y CSDVersion.\n\n* Nueva: FWPPC - Ha sido construido usando el actual CVS de Harbour. IMPORTANTE: Por favor, recompila\ntodos tus PRGs, y también modifique sus ficheros batch o ficheros make para usar DBFFTP.LIB y\nHBSIX.LIB en lugar de DBFDBT.LIB. Por favor, descargue y reinstale Harbour para PocketPC y FWPPC también.\nSe recomienda encarecidamente \"reconstruir los índices\".\n\n* Mejora: FWPPC - La libreria VCE\\lib\\ole32.lib es enlazada también en buildce.bat.\n\n* Importante: FWPPC: Por favor, recuerde que Windows Mobile no soporta el modo \"SHARED\" para el manejo de \nlos ficheros DBFs. Según Microsoft estará disponible a partir de Windows Mobile 2005.\n\n* Mejora: Pequeñas correcciones en el método Cmtr2Pix() en la clase TPrinter.\n\n* Nueva: Método SetTextRows( nRows ) en la clase TToolBar, para poner más de una línea de texto por cada \nbotón del toolbar. \n\n* Corrección: FWPPC - Varias correcciones en la clase TBitmap.\n\n* Mejora: FWPPC - Los Browses están funcionando en Windows Mobile 3.0 también. Una nueva función\nMoveToLineTo() ha sido implementada para evitar bugs en Windows Mobile en el uso de MoveTo() y LineTo().\n\n* Mejora: La clase TGet chequea correctamente el estado de SET BELL [ ON | OFF ].\n\n* Mejora: La clase TBitmap ahora pinta correctamente transparencias en las carpetas con temas XP.\nPor favor, revise samples\\TestFold.prg para un ejemplo funcionando.\n\n* Mejora: En la clase TComboBox, Los comboboxes saltan al siguiente control cuando la tecla \"return\" \nes presionada sobre ellos.','',0,'','j695fpmt',1,0,'',2,0,0),(3678,929,6,2,0,'80.58.2.107',1134807203,1,0,1,1,1,1,'','','Ya teneis en esa sección el \"whatsnew\" en Español también.','',0,'','2kqkh08m',1,0,'',2,0,0),(3679,937,18,6,0,'82.57.162.93',1134810020,1,0,1,1,1,1,'','','Yes. oDlg:bLostFocus is evaluated when a dialog losts the focus even if there are controls on it while oDlg:bGotFocus isn\'t.\n\nEMG','',0,'','17aui1yi',1,0,'',6,0,0),(3680,922,3,6,0,'82.57.162.93',1134810224,1,0,1,1,1,1,'','','I already tried to convice him but there is no hope. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'','3k3ggcgr',1,0,'',6,0,0),(3681,922,3,29,0,'80.181.108.140',1134810341,1,0,1,1,1,0,'','','James,\nyou are right.\n\nHowever about my specific situation my target was a quick migration to my customers from my old Clipper app to the new FWH app to avoid the costs of two platforms updates and I could make it immediatly leaving the same input process in the new Windows app. \n\nFurthermore there still are a lot of customers coming from DOS , Windows \"hibrid\" and terminal mode apps so provide this input process still have a commercial advantages.\n\nIn a data insert dialog like:\n\n&gt;combobox\n&gt;combobox\n&gt;get\n&gt;get\n\n&gt;button (to write data)\n\nthe end user only need to press the same Enter key to complete the input sequence and write data on disk - like a DOS app - but can also work with mouse if it prefer.\n\nBest Regards,\n\nMarco','',0,'','2z41kc0n',1,0,'',29,0,0),(3682,937,18,2,0,'80.58.2.107',1134810423,1,0,1,1,1,1,'','','Enrico,\n\nI have been reviewing the way the Windows msgs are routed by FWH internals, and we don\'t make any distinction from GotFocus and LostFocus(), so it seems its a Windows behavior for dialogboxes, as Class TDialog code just does this:\n\n[code:3i3fvwkx]\n   METHOD GotFocus&#40;&#41; INLINE &#58;&#58;lFocused &#58;= &#46;t&#46;,;\n                            If&#40; &#58;&#58;bGotFocus != nil, Eval&#40; &#58;&#58;bGotFocus &#41;, nil &#41;\n&#46;&#46;&#46;\n   METHOD LostFocus&#40;&#41; INLINE &#58;&#58;lFocused &#58;= &#46;f&#46;,;\n                             If&#40; &#58;&#58;bLostFocus != nil, Eval&#40; &#58;&#58;bLostFocus &#41;, nil &#41;\n[/code:3i3fvwkx]','',0,'AIA=','3i3fvwkx',1,0,'',2,0,0),(3683,937,18,6,0,'82.57.162.93',1134810645,1,0,1,1,1,1,'','','Ok, no problems. Thank you.\n\nEMG','',0,'AIA=','3ry3t253',1,0,'',6,0,0),(3684,945,19,2,0,'80.58.2.107',1134810730,1,0,1,1,1,1,'','Season\'s Greetings - Felices Fiestas','[url=http&#58;//imageshack&#46;us:mnfogwr7][img:mnfogwr7]http&#58;//img471&#46;imageshack&#46;us/img471/3879/taarjetanavi32lk&#46;jpg[/img:mnfogwr7][/url:mnfogwr7]','',0,'GA==','mnfogwr7',1,0,'',2,0,0),(3685,920,6,152,0,'200.113.118.180',1134837938,1,0,1,1,1,0,'','','La aplicacion siempre me ha funcionado perfectamente bajo win98, sin embargo al ejecutarla bajo XP, el drag&amp;drop deja de funcionar.\n\nLa instruccion que uso, es esta:\noLbxDocto:bDropOver := { || AgregaFac( aVars ), oLbxDocto:Refresh() }\n\nSera que en 32 bits hay que agregar alguna lib o algo parecido?','',0,'GA==','3gvcr2ip',1,0,'',152,0,0),(3686,946,6,152,0,'200.113.118.180',1134839963,1,0,1,1,1,0,'','Por que en WinXP me imprime corrido respecto de Win98','Imprimo habitualmente un formulario preimpreso bajo win98 al hacerlo con XP me cambia la fila de impresion. \n\nen 32 bits hay que cambiar algo ?','',0,'GA==','zccvj7o6',1,0,'',152,0,0),(3687,920,6,2,0,'80.58.2.107',1134849949,1,0,1,1,1,1,'','','Gonzalo,\n\nNo hay que añadir ninguna lib. Puedes por favor probar el ejemplo samples\\TestDrp3.prg y comprobar si te funciona correctamente ? gracias.','',0,'GA==','qa2l8hve',1,0,'',2,0,0),(3688,942,3,261,0,'63.197.46.139',1134867680,1,0,1,1,1,1,'','','Thank you, what is the MRTG utility and where do I find it.','',0,'GA==','18l7xhcf',1,0,'',261,0,0),(3689,867,3,15,0,'203.73.90.9',1134877145,1,0,1,1,1,0,'','','Hello John M. S.\n\nI test your suggestion code.Same problem.\n\nI don\'t know,but MiniGUI work fine of TEdit component.\n\nRegards,\n\nRichard','',0,'GA==','70v0d29x',1,0,'',15,0,0),(3690,922,3,190,0,'202.65.134.22',1134895518,1,0,1,1,1,0,'','','If the application is a orginally developed for the 1st time in Windows\n( not migrated from any DOS based application ), Mr.James statement  is\ncorrect.  But in other case I  agree with Mr.Marco.\n\n- Ramesh Babu','',0,'GA==','2hynls1y',1,0,'',190,0,0),(3691,867,3,2,0,'80.58.2.107',1134895928,1,0,1,1,1,1,'','','Richard,\n\nAs I have explained preivously, it may be needed to add methods from Class TGet to Class TEdit until we locate where the problem comes from.\n\nWe are going to try to install here a Chinese Windows, but we even don\'t know how to type a two keystrokes character. Could you explain it ? thanks.','',0,'GA==','dwtlwaqu',1,0,'',2,0,0),(3692,947,4,13,0,'213.76.252.200',1134899655,1,0,1,1,1,0,'','Append From','Antonio,\n\nI use in my program Append From commands (17.12.2005 version). When it function is invoked with cdx driver FwPpc show error:\nLockFile() not supported in PocketPc.\nAppend with ntx driver work ok.\n\nSample:\n[code:lp34f7ec]\n   Request DbfCdx\n   Request DbfFpt\n   RddSetDefault &#40;\'DbfCdx\'&#41;\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PLWIN\n\n   Set Century On\n   Set Epoch To 1995\n   Set Date German\n   Set Deleted On\n   Hb_LangSelect &#40;\'PL\'&#41;\n   Hb_SetCodePage &#40;\'PLWIN\'&#41;\n\n   Use T1 New\n   Copy Structure To T2\n   T1-&gt;&#40;DbCloseArea &#40;&#41;&#41;\n   Use T2 New\n   Append From &#40;\'T1\'&#41; All\n   T2-&gt;&#40;DbCloseArea &#40;&#41;&#41;\n[/code:lp34f7ec]\n\nRegards\nPawel','',0,'AIA=','lp34f7ec',1,0,'',13,0,0),(3693,948,2,265,0,'80.58.18.235',1134901761,1,0,1,1,1,0,'','Problema con Ttray','Hola amigos:\nQuiero que un programa se inicie en 2º plano al arrancar windows, y que permanezca en la barra de tareas con un icono; para ello estoy utilizando la clase Ttray, el problema es que no consigo que se arranque ya como icono, porque las pruebas que hago poniendo en el ON INIT oWnd:Hide(), no me responde.\nDespués si me lo hace, cuando pulso minimizar, pero yo quiero que no me aparezca ventana ninguna, sino que arranque ya iconizada.\nAlguna ayuda?\n\nUn Saludo\n\nJose Luis','',0,'AIA=','1dsshhzu',1,0,'',265,0,0),(3694,947,4,2,0,'80.58.2.107',1134908813,1,0,1,1,1,1,'','','Pawel,\n\nBut is the APPEND ... properly performed ? Does the DBF change ? Thanks.','',0,'AIA=','bd19zvyd',1,0,'',2,0,0),(3695,948,2,2,0,'80.58.2.107',1134909049,1,0,1,1,1,1,'','','Jose Luis,\n\nPuedes probar con:\n\n[code:3k8l9r07]ACTIVATE WINDOW oWnd ICONIZED[/code:3k8l9r07]\n\nOtra solución sería ponerle coordenadas negativas a la ventana para que se situe en una zona no visible, y más tarde cambiarle las coordenadas.','',0,'AIA=','3k8l9r07',1,0,'',2,0,0),(3696,948,2,265,0,'80.58.18.235',1134910596,1,0,1,1,1,0,'','','Gracias Antonio Voy a probar a ver\n\nSaludos\n\nJose Luis','',0,'AIA=','27iabpld',1,0,'',265,0,0),(3697,949,7,262,0,'83.97.169.215',1134915084,1,0,1,1,1,1,'','Peticion de funcion','Sería posible disponer de la funcion SHFullScreen para poder poner o quitar el botondel teclado ?\nGracias .','',0,'AIA=','waou9vpa',1,0,'',262,0,0),(3698,947,4,13,0,'213.76.252.200',1134916017,1,0,1,1,1,0,'','','Antonio,\n\nYes, this method was previous properly. In this way I recreate table after change structure. First I create new table and append records from original table (with set deleted off statements). This method was very fast.\nIn this moment I change append from to dbappend() function.\n\nPawel','',0,'AIA=','3aihhyh5',1,0,'',13,0,0),(3699,947,4,13,0,'213.76.252.200',1134918540,1,0,1,1,1,0,'','','Antonio,\n\nprobably I find, error LockFile is show in this situation:\n- dbf is open eg. use table new without index file\n- index file exists when table is open\n- when append from invoked, fw show error\nwhen index dosn\'t exists append from work ok\n\n[code:1mjs98mq]\nuse test1 new // without index file, index test1&#46;cdx exists\ncopy structure to test2\ntest1-&gt;&#40;dbclosearea &#40;&#41;&#41;\nuse test2 new\nappend from &#40;\'test1\'&#41; all\ntest2-&gt;&#40;dbclosearea &#40;&#41;&#41;\n[/code:1mjs98mq]\n\nPawel','',0,'AIA=','1mjs98mq',1,0,'',13,0,0),(3700,950,7,358,0,'87.223.149.220',1134919647,1,0,1,1,1,0,'','Soporte para comunicacion puertos seriales.','Hola.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nMe gustaría seber si FWPPC tiene soporte para las comunicaciones por el puerto serie, sugún parece con FWH hay problemas.\nTengo intención de montar una aplicación que pueda leer desde un PPC una serie de dispositivos electronicos mediante el puerto RS232.\n\nGracias de antemano.\n\nSalvador Gallardo.','',0,'AIA=','1u8u6gd2',1,0,'',358,0,0),(3701,931,3,299,0,'69.65.88.121',1134920295,1,0,1,0,1,0,'','','Rene;\n\nThank you very much for your answer and quick guide.  I think that you and \"listoelpollo\" with the radio program do a great service.   I continue to write English for the benefit of the rest of the ng.\n\nI did as you said.  It all went well.  I got one of my apps to work with the ADS RDDs LOCAL server and still use the same sets of DBF-NTX files.  Up to this point I encountered no problems and the app works as expected.  I\'m wound up about it.\n\nSo I decided to download the free trial ADS version for Linux.  I\'m using SAMBA services to access the data from windows XP workstations.  I installed it and changed the directory where the data is stored ownership as performed by the installation routine.   But now my app does not have access to the data.  It stoped working.  I know I could chmod and chown back to what it was and my app will again have access to the files, but I\'m afraid it would not be working with the REMOTE server.  AMOF, by leaving the permissions as set to \"advantage.users\" rwxr--r--, is the only way I know for sure that the application is working with the remote server.  --Right?\n\nBelow is the piece of code where the SET SERVER happens:\n\nINI oIni FILE \".\\MyApp.ini\"\nGet xRDD SECTION \"RDD\" ENTRY \"RDD-VERSION\" OF oIni DEFAULT \"LOCAL\"\n...\n	rddsetdefault( \"ADS\" )\n	SET FILETYPE to NTX\n	rddRegister ( \"ADS\", 1 )\n	AdsSetServerType( 7 ) //iif( xRDD == \"REMOTE\", 2, 1 ) )\n\nI thought with AdsSetServerType( 7 ) it would automatically connect to the REMOTE server if found.  Well..., it did not.\n\nThe ADS deamon is up and running.  I confirmed this with ps -aux.  It has a ps ID of 556.\n\nI\'m stuck at this point.  Please help!\n\nAgain, thank you very much.\n\nReinaldo.','',0,'AIA=','1e7mkrjq',1,0,'',299,0,0),(3702,942,3,299,0,'69.65.88.121',1134921643,1,0,1,0,1,0,'','','I think you mean SMTP.\n\nI\'m currently using it with success with xharbour 0.99.\n\nI\'m able to email emf reports right out of the preview window.  So far so good.  I\'d upload the code here but, don\'t know how to attach a file with this new ng.  So if you want the code, I\'ll email it to you.\n\nReinaldo.','',0,'AIA=','2j3ybr33',1,0,'',299,0,0),(3703,867,3,15,0,'203.73.90.9',1134923049,1,0,1,1,1,0,'','','Hello Antonio,\n\nI will send screen shots to you about how to input Chinese and start IMME.\n\nRegards,\n\nRichard','',0,'AIA=','3cmvipmh',1,0,'',15,0,0),(3704,934,6,28,0,'62.14.200.123',1134924046,1,0,1,1,1,0,'','pintar encima del bitmap','Creo que deberias implementar tus funciones de pintado en el bPainted del bitmap\n\noBmp:bPainted := {|hDC| MiFuncion( hDC ) }\n\nfunction Mifuncion( hDC )\n\ndrawtext( hdc, \"hola\", rc, 0 )\n\npor ejemplo. Las coordenadas de rc son relativas al bitmap\n\nUn saludo','',0,'AIA=','gx0goj1r',1,0,'',28,0,0),(3705,950,7,2,0,'80.58.2.107',1134924066,1,0,1,1,1,1,'','','Salvador,\n\nSi las tiene, aunque a un nivel básico, pero funcionan:\n\nCreateFile() --&gt; abre un puerto COM\nCloseHandle() --&gt; cierra un puerto COM\nReadByte() --&gt; lee un byte desde un determinado puerto\nWriteByte() --&gt; escribe un byte a un determinado puerto\n\nPara escribir un grupo de bytes, hay que ir escribiendo uno a uno.','',0,'AIA=','hltt1gb5',1,0,'',2,0,0),(3706,941,3,69,0,'65.92.79.84',1134926234,1,0,1,1,1,0,'','','Byron,\n\nCheck your e-mail.\n\n\nJeff','',0,'AIA=','19282ybw',1,0,'',69,0,0),(3707,951,6,157,0,'62.14.153.162',1134928350,1,0,1,1,1,0,'','mi primera compilacion en Harbour','Hola a todos:\n\nEstoy intentado compilar un pequeño programa que ya tengo funcionando en FW y pasarlo a FWH. Despues de instalar los compiladores, el BCC5,5 y modificar los paths de builh.bat, al compilar cualquier programa incluidos los samples de FWH me da el siguiente error:\n\nError F0034 Bad command line option: \'N/W\'\n\nSea cual sea el .prg que quiero compilar siempre da este error.\n\nAlguien me puede ayudar ??\n\nSaludos Paco Carrasco','',0,'AIA=','ctzwtdia',1,0,'',157,0,0),(3708,942,3,261,0,'63.197.46.139',1134928961,1,0,1,1,1,1,'','Hardware management','I don\'t think I mean SMTP but you are probably right in me having the wrong abbrevation.  The protocol I am looking for has noting to do with mail, it is intended to query hardware devices on a lan and get information about their status. \n\nThanks, \n\nByron...','',0,'AIA=','3mbwzxh8',1,0,'',261,0,0),(3709,942,3,299,0,'69.65.88.121',1134929509,1,0,1,0,1,0,'','','Byron;\n\nI stand corrected.\n\nBest,\n\n\nReinaldo.','',0,'AIA=','o7426qay',1,0,'',299,0,0),(3710,931,3,138,0,'201.128.111.75',1134937632,1,0,1,1,1,1,'','','Reinaldo:\n\nADS daemon for Linux has a great misadvantage.... is  a real PITA (pain in the....ss) to get it configured correctly.\n\nThe last ADS for linux I installed took me over 3 days making tests until I dunno what I did that it started working under samba.\n\nYou may check if you have a successful installation if you install the ARC and using the tools included in the main menu you can check that you have a response of the Linux server.\n\nIf so... let us know what you did to install the server  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','12rdh09t',1,0,'',138,0,0),(3711,946,6,252,0,'201.140.19.92',1134938726,1,0,1,1,1,0,'','Puede ser que sea por los margenes.','Me ha tocado ver que algunas veces los margenes cambian de win 98 a win xp, usando una misma impresora.','',0,'AIA=','3cj96jb2',1,0,'',252,0,0),(3712,949,7,262,0,'83.97.169.215',1134939256,1,0,1,1,1,1,'','','Ya está .\ncon estas funciones escondemos o sacamos el boton del teclado.\n\n[code:1v5xdn02]\n\nHB_FUNC&#40;SHOWSIP&#41;\n  &#123;\nSHFullScreen&#40;GetActiveWindow&#40;&#41;, SHFS_SHOWSIPBUTTON&#41;;\n&#125;\n\nHB_FUNC&#40;HIDESIP&#41;\n  &#123;\nSHFullScreen&#40;GetActiveWindow&#40;&#41;, SHFS_HIDESIPBUTTON&#41;;\n&#125;\n[/code:1v5xdn02]\n\n\nSaludso.','',0,'AIA=','1v5xdn02',1,0,'',262,0,0),(3713,952,4,6,0,'82.57.159.109',1134941010,1,0,1,1,1,1,'','Bug in TWindow','Try to run the following sample:\n\n[code:2mdywgh1]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL oGet, cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 GET oGet VAR cVar OF oWnd;\n           SIZE 100, 20\n\n//    oGet&#58;SetFocus&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2mdywgh1]\n\nIf you press Tab you will get the following error:\n\nClass: NIL has no exported method GONEXTCTRL\n\nUncommenting oGet:SetFocus() the error goes away.\n\nEMG','',0,'AIA=','2mdywgh1',1,0,'',6,0,0),(3714,950,7,358,0,'87.223.149.220',1134942116,1,0,1,1,1,0,'','','Antonio,\n\n¿ Como se gestiona la velocidad, paridad, databytes DTR, CTS, RTS, DCD etc..?.\nEs importante para mí. Necesito tener el control total de las señales presentes en el puerto RS232. De esto dependerá que me incline ha utilizar FWPPC en mi proyecto.\n\nSaludos.\n\nSalvador Gallardo','',0,'AIA=','2kqkz4eu',1,0,'',358,0,0),(3715,953,4,6,0,'82.57.159.109',1134942314,1,0,1,1,1,1,'','Bug in Combobox','In the following sample:\n\n[code:63y81519]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oCbx\n\n    LOCAL aVar &#58;= &#123; &quot;A&quot;, &quot;B&quot;, &quot;C&quot; &#125;\n\n    LOCAL cVar &#58;= &quot;&quot;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 COMBOBOX oCbx VAR cVar;\n           ITEMS aVar\n\n    oCbx&#58;SetFocus&#40;&#41;\n\n    @ 3, 1 BUTTON &quot;Change&quot;;\n           ACTION &#40; oCbx&#58;VarPut&#40; &quot;B&quot; &#41;, oCbx&#58;Refresh&#40;&#41; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:63y81519]\n\nif you click on the button you get the following error:\n\nMessage not found TCOMBOBOX:VARPUT\n\nEMG','',0,'AIA=','63y81519',1,0,'',6,0,0),(3716,949,7,2,0,'80.58.2.107',1134942678,1,0,1,1,1,1,'','','Jose Luis,\n\nLa implementamos para el próximo build, mientras tanto aqui tienes un ejemplo de como implementarla ya en un PRG tuyo:\n\n[code:388t885y]\n&#46;&#46;&#46;\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt; \n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt; \n\nHB_FUNC&#40; SHFULLSCREEN &#41;\n&#123;\n   hb_retl&#40; SHFullScreen&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41; &#41; &#41;;\n&#125;   	\n\n#pragma ENDDUMP\n[/code:388t885y]\n\nLos valores a pasarle estan explicados aqui:\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/apippc/html/ppc_aygshell_fsiq.asp\">http://msdn.microsoft.com/library/defau ... l_fsiq.asp</a><!-- m -->\n\ny un ejemplo sería:\n\nSHFullScreen( oWnd:hWnd, ... )','',0,'AIA=','388t885y',1,0,'',2,0,0),(3717,954,4,6,0,'82.57.159.109',1134942991,1,0,1,1,1,1,'','Bug in TSay','Clicking on the button of this sample:\n\n[code:3fikxy9h]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oSay\n\n    LOCAL cVar &#58;= &quot;Test&quot;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 SAY oSay VAR cVar\n\n    @ 3, 1 BUTTON &quot;Change&quot;;\n           ACTION MSGINFO&#40; oSay&#58;VarGet&#40;&#41; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:3fikxy9h]\n\nyou will get\n\nMessage not found TSAY:VARGET\n\nEMG','',0,'AIA=','3fikxy9h',1,0,'',6,0,0),(3718,952,4,2,0,'80.58.2.107',1134944345,1,0,1,1,1,1,'','','Enrico,\n\nWith the latest FWPPC build published yesterday (yesterday two new builds were published) there is no error.','',0,'AIA=','2q8886k6',1,0,'',2,0,0),(3719,953,4,2,0,'80.58.2.107',1134944565,1,0,1,1,1,1,'','','Enrico,\n\nThis method was missing from Class TControl:\n\n[code:180pgbuw]\n   METHOD VarPut&#40; uVal &#41; INLINE  If&#40; ValType&#40; &#58;&#58;bSetGet &#41; == &quot;B&quot;,;\n                                 Eval&#40; &#58;&#58;bSetGet, uVal &#41;,&#41;\n[/code:180pgbuw]\n\nAlready implemented for the next build.','',0,'AIA=','180pgbuw',1,0,'',2,0,0),(3720,954,4,2,0,'80.58.2.107',1134944918,1,0,1,1,1,1,'','','Enrico,\n\nSame as Class TControl Method VarPut(). It was not implemented yet. Its already included for next build:\n\n[code:kf0gco1a]\n   METHOD VarGet&#40;&#41; INLINE If&#40; ValType&#40; &#58;&#58;bSetGet &#41; == &quot;B&quot;, Eval&#40; &#58;&#58;bSetGet &#41;,&#41;\n[/code:kf0gco1a]\n\nThanks for the feedback <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','kf0gco1a',1,0,'',2,0,0),(3721,942,3,2,0,'80.58.2.107',1134945385,1,0,1,1,1,1,'','','Reinaldo,\n\n&gt; I\'d upload the code here but, don\'t know how to attach a file with this \n&gt; new ng.\n\nFiles may be uploaded here: <!-- m --><a class=\"postlink\" href=\"http://www.hyperupload.com/\">http://www.hyperupload.com/</a><!-- m -->\n\nAnd later copy here the URL for download they provide.','',0,'AIA=','302d4rwn',1,0,'',2,0,0),(3722,955,6,341,0,'24.232.135.75',1134953872,1,0,1,1,1,0,'','Ayuda CdX en Xharbour','Estimados Colegas:\n\nPara usar indices cdx y memos fpt en xharbour no se si estoy haciendo\nbien, adjunto rutina clipper que compile en xharbour .99.2 y me tira\nun error que no tengo coop.dbt  , alguien me puede orientar\n\nGracias\nDante\n<!-- e --><a href=\"mailto:Devwin2004@yahoo.com.ar\">Devwin2004@yahoo.com.ar</a><!-- e -->\n \n\nrequest dbfcdx           \nrddsetdefault(\"dbfcdx\")\ndbsetdriver(\"dbfcdx\")\n\n\n\n   \n  SELE 1\n  USE COOPS\n**********\nINDEX ON COOPS-&gt;MATRICULA TO MATRICUL\nINDEX ON UPPER(COOPS-&gt;RAZON_SOC) TO COOPSRS\nINDEX ON UPPER(COOPS-&gt;CAL_DESCRI) TO COOCAL\nINDEX ON UPPER(COOPS-&gt;LOCALIDAD) TO LOCALIDA\n*********\n\n SET INDEX TO  MATRICUL, COOPSRS,COOCAL','',0,'AIA=','26o0odq1',1,0,'',341,0,0),(3723,956,6,341,0,'24.232.135.75',1134954055,1,0,1,1,1,0,'','Ordkeyno Error base/1001 Funcion No definida','Estimados Colegas\n\nEstoy probando compilar con xharbour .99.2 un prg donde tengo\nun tsbrowse me tira este error alguien me puede orientar\n\nGracias\nDante \n<!-- e --><a href=\"mailto:DEvwin2004@yahoo.com.ar\">DEvwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','2boa370q',1,0,'',341,0,0),(3724,951,6,2,0,'80.58.2.107',1134970074,1,0,1,1,1,1,'','','Paco,\n\nPrueba a separar las opciones que le pasas al compilador:\n\nEn vez de \'N/W\' usa /n /w','',0,'AIA=','27jscjkf',1,0,'',2,0,0),(3725,957,6,52,0,'201.231.12.29',1134974854,1,0,1,1,1,1,'','¿Cómo insetar especificaciones en LIB´s?','Amigos,\n\nEstoy creando una lib, y quiero que esa libreria posea el numero de version como ser 0.1, quien la realizó, etc. \n\nComo se hace esto? en pocas palabras necesito hacer que aparezca lo que aparece en cualquier libreria cuando se selecciona \"boton derecho del mouse sobre la lib o dll y se selecciona VERSION\".\n\nCha Gracias.','',0,'AIA=','3l26ggd5',1,0,'',52,0,0),(3726,958,3,80,0,'202.72.164.124',1134975476,1,0,1,1,1,0,'','Tree Question','To All\n\nUsing a Tree/Imagelist  how can I change the folder bmp\nto the open bmp when an item is selected - the same as \nexplorer.\n\nRegards\n\nColin','',0,'AIA=','1h4vf0vi',1,0,'',80,0,0),(3727,954,4,6,0,'82.59.197.232',1134978091,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','1xu2skws',1,0,'',6,0,0),(3728,953,4,6,0,'82.59.197.232',1134978118,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','390vp989',1,0,'',6,0,0),(3729,952,4,6,0,'82.59.197.232',1134978358,1,0,1,1,1,1,'','','Confirmed! Thank you!\n\nEMG','',0,'AIA=','2l9ixujr',1,0,'',6,0,0),(3730,867,3,314,0,'218.16.240.22',1134979781,1,0,1,1,1,0,'','','[quote:25xflcam]\n// for ChineseBig5 1st(high_order) Chr( 161 - 254 ), 2nd(Low_order) Chr( 64 - 126, 161 - 254 ) \nBOOL ulBig5_2nd( unsigned char * aStr, int nPos, int nLen ) \n{ \nint nn ; \nunsigned int nAsc1 ; \nunsigned int nAsc2 ; \n\nif( nLen &lt; nPos ) \nreturn FALSE ; \nelse if( nPos == 1 ) \nreturn FALSE ; \nelse if( nPos == 2 ) \n{ \nnAsc1 = aStr[0] ; \nnAsc2 = aStr[1] ; \n\nif( ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; \n( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 ) ) ) \nreturn TRUE ; \nelse \nreturn FALSE ; \n} \nelse \n{ \nnAsc1 = aStr[nPos-2] ; \nnAsc2 = aStr[nPos-1] ; \n\nif( ( nAsc2 &lt; 64 || ( nAsc2 &gt; 126 &amp;&amp; nAsc2 &lt; 161 ) || nAsc2 &gt; 254 ) ) \nreturn FALSE ; \nelse if ( nAsc1 &lt; 161 || nAsc1 &gt; 254 ) \nreturn FALSE ; \nelse \n{ \nfor( nn = 1 ; nn &lt; nPos; nn++ ) \n{ \nnAsc1 = aStr[nn-1] ; \nnAsc2 = aStr[nn] ; \n\nif( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) \n{ \nif( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 ) ) \n{ \nif( nn+1 == nPos ) \nreturn TRUE ; \nelse if( nn &lt; nPos-1 ) \nnn ++ ; \n} \n} \n}; \nif( nn &gt;= nPos ) \nreturn FALSE ; \n} \n} \nreturn FALSE ; \n} \n\n//----------------------------------------------- \n\nHB_FUNC( LBIG5_1ST ) // lBig5_1st( cString, nPos ) \n{ \nunsigned char * aStr = (unsigned char * ) hb_parc( 1 ) ; \nint nPos = hb_parni( 2 ) ; \nint nLen = hb_parclen( 1 ) ; \nunsigned int nAsc1 ; \nif( nPos &lt; nLen ) \n{ \nnAsc1 = aStr[nPos-1] ; \nif( ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; ulBig5_2nd( aStr, nPos+1, nLen ) ) \nhb_retl(TRUE); \nelse \nhb_retl(FALSE); \n} \nelse \nhb_retl(FALSE); \n} \n\n//----------------------------------------------- \n\nHB_FUNC( LBIG5_2ND ) // lBig5_2nd( cString, nPos ) \n{ \nhb_retl( ulBig5_2nd( (unsigned char * ) hb_parc( 1 ), hb_parni( 2 ), hb_parclen( 1 ) ) ) ; \n} \n[/quote:25xflcam]\n\nJohn,\n\nI have problem compiling the above code does it go into tget.prg?\n\nOne of the error is:\ntget.prg(1623) Error E0030  Syntax error: \"parse error at \'ULBIG5_2ND\'\"\n\nAm I missing include file?','',0,'gA==','25xflcam',1,0,'',314,0,0),(3731,867,3,314,0,'218.16.240.22',1134980461,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:mgpnvdhb]Richard,\n\nWe are going to try to install here a Chinese Windows, but we even don\'t know how to type a two keystrokes character. Could you explain it ? thanks.[/quote:mgpnvdhb]\n\nMay be it would be easier just to cut and paste the Chinese words from a text file.\n\nI don\'t think you want to install Chinese Windows because everything would be in Chinese. You will have a hard time setting it up and running it. The best way is to install an English or Spanish Windows and set its default and system locale to Chinese. That is how I setup my Windows. Yes I can read and write Chinese but I can not understand those Chinese translated technical terms!','',0,'gA==','mgpnvdhb',1,0,'',314,0,0),(3732,959,3,80,0,'202.72.164.124',1134981569,1,0,1,1,1,0,'','Trees and Splitters','To All\n\nDoes anyone have a sample of using trees and splitters \nfrom resources.\n\nRegards\n\nColin','',0,'gA==','1vzz5ls0',1,0,'',80,0,0),(3733,960,19,52,0,'201.231.12.29',1134982285,1,0,1,1,1,0,'','Buscando trabajo','Estimados:\n\nQuisiera postularme para los paises limítrofes o no de Argentina como programador en FiveWin y xHarbour, quien tenga esta posibilidad agradecería que se contactaran conmigo.\n\nMuchas Gracias\nVelazquez, Gustavo\nArgentina.','',0,'gA==','rhx7qvt2',1,0,'',52,0,0),(3734,951,6,157,0,'62.15.238.83',1134985668,1,0,1,1,1,0,'','','Antonio gracias por tu respuesta pero creo que el problema era que tenia puestos los SET para Clipper y de alguna manera interfieren ya que quite el SET CLIPPERCMD=/N/W /RTERMINAL /RDBFNTX ..... y se resolvio el problema. \nPuede compilar varios programas aunque he tenido que copiar todos los includes de BCC55 en Include de Harbour y aun asi hay una LIB UUID.LIB que si no está en la carpeta del .prg no la localiza. Me imagino que a base de pruebas acabaré encontrado la solucion. \nEcho mucho de menos una documentacion de los errores de Harbour asi como normas y parametros para la compilacion.\n\nSaludos','',0,'gA==','7pkpdwzk',1,0,'',157,0,0),(3735,936,6,106,0,'85.34.123.172',1134988084,1,0,0,1,1,1,'','','ok. Gracias Antonio, resuelto entonces con un say en vez de un get, hasta que aquí decidan hacer el update de FWH.','',0,'gA==','13ds7v5f',1,0,'',106,0,0),(3736,961,4,354,0,'193.77.126.60',1134991030,1,0,1,1,1,0,'','DIALOG','I have this function:\n\n\n#include \"FWCE.ch\"\n\n************************************\nFUNCTION m_DaNe(cMsg,aBtn,cTitle)\n************************************\nLOCAL oDlg\n\nDEFINE DIALOG oDlg RESOURCE \"msgDaNe\"\nREDEFINE SAY ID 3 OF oDlg PROMPT cMsg\nREDEFINE BUTTON ID 1 OF oDlg PROMPT aBtn[1] ACTION oDlg:End(1)\nREDEFINE BUTTON ID 2 OF oDlg PROMPT aBtn[2] ACTION oDlg:End(2)\nACTIVATE DIALOG oDlg\nRETURN (oDlg:nResult)\n\n\n\n1. how can I use (start) debuger ?\n2. how can I change the caption (title) and background color of DIALOG ?\n3. how can I change the background color of REDEFINE SAY\n4. it is posible to redefine the size (width,height) of DIALOG after (before) it\'s activated ?\n\n\nThank you!','',0,'','2cs41v75',1,0,'',354,0,0),(3737,961,4,3,0,'82.124.116.181',1134995746,1,0,1,1,1,0,'','Re: DIALOG','[quote=&quot;remecd&quot;:1aggmdaf]I have this function:\n\n\n#include \"FWCE.ch\"\n\n************************************\nFUNCTION m_DaNe(cMsg,aBtn,cTitle)\n************************************\nLOCAL oDlg\n\nDEFINE DIALOG oDlg RESOURCE \"msgDaNe\"\nREDEFINE SAY ID 3 OF oDlg PROMPT cMsg\nREDEFINE BUTTON ID 1 OF oDlg PROMPT aBtn[1] ACTION oDlg:End(1)\nREDEFINE BUTTON ID 2 OF oDlg PROMPT aBtn[2] ACTION oDlg:End(2)\nACTIVATE DIALOG oDlg\nRETURN (oDlg:nResult)\n\n\n\n1. how can I use (start) debuger ?\n2. how can I change the caption (title) and background color of DIALOG ?\n3. how can I change the background color of REDEFINE SAY\n4. it is posible to redefine the size (width,height) of DIALOG after (before) it\'s activated ?\n\n\nThank you![/quote:1aggmdaf]\n\n1. Debugger : i don\'t know maybe Antonio can answer this one.\n\n2 . Caption and color \n\nDEFINE DIALOG oDlg RESOURCE \"msgDaNe\" title \"xxxxx\" color clr1,clr2 \n\nClr1 and clr2 can be nrgb(.....) or CLR_WHITE, CLR_BLUE etc... \n\n3. Same for Redefine say  just add color xx,xx at the end \n\n4. You can always change dialog size at activation time. Use the on init clause for this\n\nACTIVATE DIALOG ODLG ON INIT odlg:move(xx,xx) or anyother function\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRichard','',0,'gA==','1aggmdaf',1,0,'',3,0,0),(3738,961,4,2,0,'80.58.2.107',1134996300,1,0,1,1,1,1,'','','&gt; 1. Debugger : i don\'t know maybe Antonio can answer this one.\n\nWindows for Pocket PC doesn\'t have a console window (text mode), so we can\'t use Harbour\'s own debugger.\n\nWe do recommend to use MsgInfo() calls to trace certain values, set breakpoints, etc.','',0,'gA==','17074fy2',1,0,'',2,0,0),(3739,959,3,80,0,'202.72.164.124',1134996852,1,0,1,1,1,0,'','Next Problem','To All\n\nI have got Treeview working from resources - but if I expand out\nthe trees when the vertical scrollbar comes on the folder bitmaps\ndisappear.\n\nAny ideas ??\n\n\nRegards \n\nColin','',0,'gA==','3a56w4mo',1,0,'',80,0,0),(3740,931,3,41,0,'166.114.252.26',1134997018,1,0,1,1,1,0,'','','Reinaldo,\n\nI am working with ADS over LInux, and I don\'t have any problem, you don\'t need samba, only if you want to work with ARC remotly. you can work with ARC for Linux and get access from Remote Xterminal or Local Xterminal Console.\n\nRegards\n\nMarcelo','',0,'gA==','3rqhkkxj',1,0,'',41,0,0),(3741,956,6,147,0,'168.96.152.231',1134998831,1,0,1,0,1,1,'','','deberías transcribir tu error para que se te pueda ayudar.','',0,'gA==','20t1mw7y',1,0,'',147,0,0),(3742,948,2,147,0,'168.96.152.231',1134999905,1,0,1,0,1,1,'','','Mirá el sample testtray. Allí declara oTray en el ON INIT y, de esa manera arranca iconizado\n\n[code:2nmta6ra]  ACTIVATE WINDOW oApp ;\n           ON INIT oTray &#58;= TTrayIcon&#40;&#41;&#58;New&#40;oApp,oIcon,&quot;Testing tray &#46;&#46;&#46;&quot;,&#123;||MsgInfo&#40;&quot;Left CLick&quot;&#41;&#125;,&#123;|nRow,nCol|MenuTray&#40;nRow,nCol,oTray&#41;&#125;&#41; ;\n           VALID oTray&#58;End&#40;&#41; ;\n[/code:2nmta6ra]','',0,'AIA=','2nmta6ra',1,0,'',147,0,0),(3743,962,2,348,0,'201.240.76.131',1135009554,1,0,1,1,1,0,'','Cambiar color al Get Deshabilitado','Buenos dias:\nUna consulta rapida, como sabemos,  cuando un get esta deshabilitado por ejemplo con la clausula WHEN...  se muestra de color plomo,  hay forma de cambiar el color  por ejemplo a marron..   pero en todo en forma global ?? quizas sera cambiando la clase Gets,,??  lo estuve buscando  pero no lo ubique...\n\nGracias por sus respuestas.\n\nLubin\n\nPdta..   aprovechando el momento para desear a todos una feliz navidad y un venturoso año 2006  en union de todos sus seres queridos...  desde aqui  Lima Peru ...  a todo el Planeta ...','',0,'AIA=','132hynz3',1,0,'',348,0,0),(3744,863,3,339,0,'200.216.28.52',1135009684,1,0,1,1,1,0,'','','Where have Samples More About DLL Xharbour ?\n\nmauricio','',0,'AIA=','2n0xi4y9',1,0,'',339,0,0),(3745,936,6,2,0,'80.58.2.107',1135009988,1,0,1,1,1,1,'','','Pedro,\n\n¿ Te importa mostrarnos como lo has modificado ? Gracias.','',0,'AIA=','1r0zayxj',1,0,'',2,0,0),(3746,951,6,2,0,'80.58.2.107',1135010107,1,0,1,1,1,1,'','','Francisco,\n\nPuedes descargar uuid.lib desde aqui: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/7db97492/uuid.zip.html\">http://hyperupload.com/download/7db97492/uuid.zip.html</a><!-- m -->','',0,'AIA=','yui1291z',1,0,'',2,0,0),(3747,863,3,2,0,'80.58.2.107',1135010453,1,0,1,1,1,1,'','','Mauricio,\n\nYou may ask at <!-- m --><a class=\"postlink\" href=\"news://news.xharbour.org\">news://news.xharbour.org</a><!-- m --> also.\n\nFWH provides some samples, but mostly for pcode DLLs in samples\\TestDllp.prg','',0,'AIA=','1od9l41t',1,0,'',2,0,0),(3748,959,3,2,0,'80.58.2.107',1135010517,1,0,1,1,1,1,'','','Colin,\n\nCould you please post or email me your working sample ? thanks.','',0,'AIA=','3ipi9sit',1,0,'',2,0,0),(3749,955,6,138,0,'201.128.111.75',1135010606,1,0,1,1,1,1,'','','Prueba esto:\n\nREQUEST DBFCDX, DBFFPT\n\nY no olvides linkear la lib DBFFPT cuando compiles el programa','',0,'AIA=','3kmrqea2',1,0,'',138,0,0),(3750,956,6,138,0,'201.128.111.75',1135010676,1,0,1,1,1,1,'','','REQUEST OrdKeyNo\n\nAl principio del programa','',0,'AIA=','25oc3klv',1,0,'',138,0,0),(3751,963,6,28,0,'62.14.200.123',1135010761,1,0,1,1,1,0,'','Ocultar una ventana de la barra de tareas','Hola.\n\n¿Alguien sabe como ocultar una ventana de la barra de tareas?\n\nUn saludo\n\nPaco','',0,'AIA=','2f924d7s',1,0,'',28,0,0),(3752,951,6,138,0,'201.128.111.75',1135011005,1,0,1,1,1,1,'','','El problema con la UUID.LIB es que tienes mal configurado el compilador de Borland.\n\nNecesitas crear 2 archivos de configuracion llamados:\n\nBCC32.CFG e ILINK32.CFG\n\nEn la misma carpeta donde esta el BCC32.EXE y el ILINK32.EXE, usualmente la carpeta \\borland\\bcc55\\bin.\n\ndentro de estos archivos deberas indicar las rutas donde se tienen que buscar los arhivos INCLUDE y LIB\n\nPor ejemplo, mi BCC32.CFG tiene estas lineas.\n\n-Ic:\\borland\\bcc55\\include;c:\\xHarbour\\include;c:\\fw25\\include\n-Lc:\\borland\\bcc55\\lib;c:\\xharbour\\lib;c:\\fw25\\include\n\nY mi ILINK32.CFG tiene esta:\n\n/Lc:\\borland\\bcc55\\lib;c:\\xHarbour\\lib;c:\\fw25\\lib','',0,'AIA=','2e6dnp5r',1,0,'',138,0,0),(3753,959,3,138,0,'201.128.111.75',1135011397,1,0,1,1,1,1,'','','I use the Treeview class modified by Goran Savkcik and Hernan Diego Cecarelli and works superb.\n\nDownload it from here, source and samples for 16 and 32 bits included, so you may recompile it for (x)Harbour with no problem at all pretty fast:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/classroom/fivewin/tree_r5.zip\">www.google.d2g.com/classroom/fivewin/tree_r5.zip</a><!-- w -->','',0,'AIA=','2bnk3i3o',1,0,'',138,0,0),(3754,961,4,354,0,'193.77.148.243',1135012846,1,0,1,1,1,0,'','DIALOG','Sorry, it doesn\'t work yet.\nI have exactly this program:\n\n\n#include \"FWCE.ch\"\n#include \"FiveWin.ch\"\n\n********************\nFUNCTION Main()\n********************\nDEFINE WINDOW owMain TITLE \'sdsdsd\'\nACTIVATE WINDOW owMain ON CLICK m_DaNe(\'Something...\',{\'Yes\',\'No\'},\'Atention !!!\') \nreturn nil\n\n\n************************************ \nFUNCTION m_DaNe(cMsg,aBtn,cTitle) \n************************************ \nLOCAL oDlg \n\nDEFINE DIALOG oDlg RESOURCE \"msgDaNe\" TITLE \'BlaBla\'\nREDEFINE SAY ID 3 OF oDlg PROMPT cMsg \nREDEFINE BUTTON ID 1 OF oDlg PROMPT aBtn[1] ACTION oDlg:End(1) \nREDEFINE BUTTON ID 2 OF oDlg PROMPT aBtn[2] ACTION oDlg:End(2) \nACTIVATE DIALOG oDlg \nRETURN (oDlg:nResult) \n\n\nIf I don\'t INCLUDE \"FiveWin.ch\", compiler shown error in \"DEFINE DIALOG\" row.\nIf I INCLUDE \"FiveWin.ch\", then when I start exe, error shows: \n\nMessage not found.\nTWINDOW:BMOVED\n\nOne stupid question: which INCLUDE file is for programing in PPC - I\'m beginner in PPC <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThank you, Richard &amp; Antonio','',0,'','13waeqpf',1,0,'',354,0,0),(3755,961,4,6,0,'82.55.208.4',1135019393,1,0,1,1,1,1,'','Re: DIALOG','#include \"Fwce.ch\"\n\nof course. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'','31u7s9z4',1,0,'',6,0,0),(3756,964,2,129,0,'201.239.148.78',1135022037,1,0,1,1,1,0,'','problemas con mdi','Amigos, tengo el siguiente problema, tengo una ventana mdi, que cuando se abre lo hace bien, pero cuando pincho el boton de minimizar, baja ok, pero cuando lo recupero, me regresa en una posicion que se pierde la linea azul del dialogo y se monta sobre la barra de botones,','',0,'','34anv20b',1,0,'',129,0,0),(3757,965,2,129,0,'201.239.148.78',1135026230,1,0,1,1,1,0,'','como lograr que una ventana hija quede bien ubicada con mdi','amigos mi consulta es la siguiente, como logro que una ventana hija, quede bien posicionada sobre su ventana principal, es decir que quede bien montada, a mi actualmente me sale la principal en un lado y la hija por otro, se ve muy feo','',0,'','1c2rcrji',1,0,'',129,0,0),(3758,961,4,2,0,'80.58.2.107',1135027444,1,0,1,1,1,1,'','','#include \"Fwce.ch\"  should be enough to compile your PRG without errors.\n\nPlease try it and it you still get an error please tell us on what line you get the error.','',0,'','1hhkn7c1',1,0,'',2,0,0),(3759,964,2,2,0,'80.58.2.107',1135027552,1,0,1,1,1,1,'','','Puedes proporcionarnos un pequeño ejemplo en PRG que reproduzca el error ? gracias.','',0,'','2oa2ytes',1,0,'',2,0,0),(3760,965,2,2,0,'80.58.2.107',1135027617,1,0,1,1,1,1,'','','Estás definiendo la ventana principal como MDI y la hija como MDICHILD ? Revisa los ejemplos samples\\TestMdi...prg','',0,'','2yi69jot',1,0,'',2,0,0),(3761,963,6,2,0,'80.58.2.107',1135027695,1,0,1,1,1,1,'','','Paco,\n\noWnd:Hide() ?','',0,'','12rzy1d1',1,0,'',2,0,0),(3762,958,3,2,0,'80.58.2.107',1135027786,1,0,1,1,1,1,'','','Colin,\n\nIt is a feature not implemented yet that we are going to implement asap.','',0,'','2ockioqa',1,0,'',2,0,0),(3763,963,6,28,0,'62.14.200.123',1135028377,1,0,1,1,1,0,'','ocultar ventana','no, hombre¡¡\neso ya lo se. Lo que digo es tener una ventana pero que no aparezca separada de la aplicación que estas ejecutando:\n\nDEFINE WINDOW oWnd MDI ....\n\n   DEFINE WINDOW oWnd2 [color=red:3ftfkkzn] //(NOMDICHILD)[/color:3ftfkkzn]\n\n   oWnd2:Show()\n\nACTIVATE WINDOW oWnd\n\nme aparecen dos iconos en la barra de tareas. Se que algunas veces se crea una ventana pero no aparece en la barra de tareas. No recuerdo como lo he hecho \n\nUn saludo','',0,'Ag==','3ftfkkzn',1,0,'',28,0,0),(3764,963,6,21,0,'81.172.126.213',1135030976,1,0,1,1,1,1,'','','Hola Paco,\n\nPerdón por la intromisión en la conversación\n\nLo que tienes que hacer es\n\nDEFINE WINDOW oWnd2 MDI ... of oWnd','',0,'Ag==','2ctiew0u',1,1135066037,'',21,1,0),(3765,958,3,138,0,'201.128.111.75',1135033874,1,0,1,1,1,1,'','Re: Tree Question','[quote=&quot;Colin Haig&quot;:2yqpiqx2]To All\n\nUsing a Tree/Imagelist  how can I change the folder bmp\nto the open bmp when an item is selected - the same as \nexplorer.\n\nRegards\n\nColin[/quote:2yqpiqx2]\n\nUse Goran/Hernan Treeview, you can assign the bitmaps you want when the branch is opened or closed.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/classroom/fivewin/tree_r5.zip\">www.google.d2g.com/classroom/fivewin/tree_r5.zip</a><!-- w -->','',0,'gA==','2yqpiqx2',1,0,'',138,0,0),(3766,867,3,15,0,'203.73.91.78',1135034635,1,0,1,1,1,0,'','','Hello Johnny,\n\nMy friend test John solution not work.\n\nChinese and Korea or any ASIA have 2 bytes character.\nSo we need to change TGet and MGet code.\nSupport 2 bytes for control of key( Left/del/right/backspace.. )\nBecause default work 1 byte.\n\nNow, We fix TGet/MGet work fine for any Windows OS.\nIn WinXP, If we have not add Themes style and work fine.\nI test MiniGUI and What32 for xHarbour work fine.\nJust guess why FWH not work with WinXP themes.\nDifferent MiniGUI/What32 have Standar TEdit/TMaskEdit component\nI have easy think them can and FWH should be can.\n\nJust Talk.\n\nRegards,\n\nRichard','',0,'gA==','2l8recjp',1,0,'',15,0,0),(3767,966,6,40,0,'201.132.138.211',1135034732,1,0,1,1,1,0,'','FW .Net','Buenas Tardes Foro\n\nMaster Antonio Linares, hace algún tiempo habia empezado este proyecto\nde FW .Net \n¿ En que quedo ?\nSería muy, muy interesante poder llevar nuestras aplicaciones xBase \na .Net\n\nun saludo y espero sus comentarios\nJoel Andujo','',0,'gA==','2a7f9565',1,0,'',40,0,0),(3768,863,3,339,0,'200.217.82.63',1135035186,1,0,1,1,1,0,'','','Thanks Antonio ..\n\n   only ASK , remember PEEK and POKE Basic Comands ..\n\n   What command this Xharbour ?\n\n\n   My DLL are Nice..\n\n\nthanks again','',0,'gA==','wozw34e2',1,0,'',339,0,0),(3769,967,22,103,0,'200.164.92.242',1135035933,1,0,1,1,1,0,'','Change the &quot;90% of resources&quot; for a REAL percentua','Antonio,\n\n    I think it would be great if you can do this for FW/FWH, because When I have problems with decreasing resources, I have no idea where to see in which percentual it is, and on Win XP the FWH always returns 90%.\n\nThanks,\n\nKleyber Derick','',0,'gA==','29bd9hff',1,0,'',103,0,0),(3770,968,3,69,0,'65.92.79.84',1135037573,1,0,1,1,1,0,'','Database Search','Hi,\n\nIs there a fast way to search all fields in a database for some text.\n\nThanks,\n\nJeff','',0,'gA==','xwb657w3',1,0,'',69,0,0),(3771,931,3,299,0,'69.65.88.121',1135039591,1,0,1,0,1,0,'','','I got it to work!  Yea!\n\nDon\'t ask me how.  I\'m too new at the ADS matter to know exactly what did the trick.  Perhaps it is too simple to even discuss it here.  But the important thing is that I got it work.  Now I move into more and more tests...\n\nMarcelo;\n\nYou make quite an interesting point.   As I think about it; hum..., I realize that indeed we should not really need SAMBA after all.  I\'ll be testing this also.  But first, there are too many other things to do.  To start with, I\'m going to have to change all my file names (hundreds) to lowercase (will probably write a script to do so).  After this I\'ll be testing with AIS connection and speed of transactions.  Allowing access to the dbfs from anywhere via a web connection is very important to me.\n\nI\'ll keep you all informed.  Thank you for all your comments and help.','',0,'gA==','2awt7mhe',1,0,'',299,0,0),(3772,969,3,69,0,'65.92.79.84',1135039890,1,0,1,1,1,0,'','Sort on column header click','Hi,\n\nI have a listbox with 8 columns ... I would like to allow the user to sort the data by clicking on a column header, how can I do this?\n\nThanks,\nJeff','',0,'gA==','3jl0j3zv',1,0,'',69,0,0),(3773,951,6,157,0,'62.15.119.94',1135040517,1,0,1,1,1,0,'','','Muchas gracias por vuestra ayuda Antonio y RF. Ya estoy empezando a tener buenos resultados.\n\nAdios.','',0,'gA==','kvc7hihi',1,0,'',157,0,0),(3774,970,3,339,0,'200.217.82.63',1135048907,1,0,1,1,1,0,'','ERROR CLASS','ERROR CLASS TPRINTER XHARBOUR\n\nERROR BASE/1004 CLASS \"NIL\" HAS NO EXPORT METHOD CMTR2PIX.\n\n\nSOME PEOPLE KNOW ...\n\n\nTHANKS...','',0,'gA==','3czcmur7',1,0,'',339,0,0),(3775,969,3,80,0,'202.72.164.124',1135050060,1,0,1,1,1,0,'','Sort on ListBox','Jeff \n\nUse aTags \n\naTags   := { {|| nTag := 1,HeadSort(oQuote,oLbx,nTag)},;\n                {|| nTag := 2,HeadSort(oQuote,oLbx,nTag)},;\n                {|| nTag := 3,HeadSort(oQuote,oLbx,nTag)},;\n                {|| nTag := 4,HeadSort(oQuote,oLbx,nTag)},;\n                {|| nTag := 5,\'\'                        },;\n                {|| nTag := 6,HeadSort(oQuote,oLbx,nTag)}}\n\nstatic function HeadSort(oQuote,oLbx,nTag)\ndo case\n   case nTag == 1\n      oQuote:SetOrder(\'QUOTENO\')\n      oQuote:Bottom()\n      oLbx:GoBottom()\n   case nTag == 2\n      oQuote:SetOrder(\'CLIENT\')\n      oQuote:Top()\n      oLbx:GoTop()\n   case nTag == 3\n      oQuote:SetOrder(\'QDATE\')\n      oQuote:Top()\n   case nTag == 4\n      oQuote:SetOrder(\'CONTACT\')\n      oQuote:Top()\n   case nTag == 6\n      oQuote:SetOrder(\'PROJECT\')\n      oQuote:Top()\nendcase\noLbx:Refresh()\noLbx:SetFocus()\nreturn(nil)\n//------------------------------------------------------------------------------//\n\nHope this helps\n\nCheers\n\nColin','',0,'gA==','xnzjxesp',1,0,'',80,0,0),(3776,971,2,359,0,'201.209.179.100',1135050914,1,0,1,1,1,0,'','Falla en XP aplicacion de sockets','Tengo una aplicacion desarrollada con socket la cual ha funcionado bien hasta ahora en que me he encontrado que en un maquina con XP-SP2 y otra con W2K-SP4 al correr la aplicacion arranca, pero al intentar conectarse un cliente da un error ...\n\nGeneral protection fault at 000F:4683\n\nSe que el error lo esta dando en esas maquinas especificamente y es en la linea del codigo del objeto recv( que dice\n\n::nRetCode := Recv( ::nSocket, @cData )\n\nLa plicacion corre fino en cualquier otro Win, incluso en XP sin el SP2.\nUtilizo 2 BD sin indices de menos de 50 registros los cuales se cargan a memoria para su manejo eficiente.\n\nAlguna idea de que esta pasando\nGracias\nRenan\n\nPd: Estoy usando FW 2.2  Clipper 5.2e y blinker 5.1','',0,'gA==','3plh608j',1,0,'',359,0,0),(3777,968,3,80,0,'202.72.164.124',1135052629,1,0,1,1,1,0,'','Search','Jeff\n\nThere is a third party function called wildseek - never\nused it though - I have used the rat() and at() functions to find part \nof names in a cash record database, but this checks every record ,\nunless you can set a scope on a subset of records.\n\n\nCheers\n\nColin','',0,'gA==','1rw6s0qz',1,0,'',80,0,0),(3778,971,2,2,0,'80.58.2.107',1135053198,1,0,1,1,1,1,'','','Renan,\n\n¿ Que valores de stacksize y heapsize estás usando en el fichero LNK de Blinker ?\n\nPor favor genera el fichero MAP (con MAP A,S en el fichero LNK de Blinker) y publícalo aqui (usa <!-- m --><a class=\"postlink\" href=\"http://www.hyperupload.com\">http://www.hyperupload.com</a><!-- m --> para ponerlo en internet y aqui la dirección que ellos te facilitan) así como la dirección en donde se produce el GPF (es siempre la que has indicado?)','',0,'gA==','3m65gx5z',1,0,'',2,0,0),(3779,963,6,2,0,'80.58.2.107',1135053331,1,0,1,1,1,1,'','','Es como dice Fernando, hacerla hija de la principal.','',0,'gA==','1qqpefqh',1,0,'',2,0,0),(3780,972,2,235,0,'200.56.66.99',1135053524,1,0,1,1,1,0,'','Consulta sobre menues','Alguien sabe como activar y desactivar opciones de un menu.\n\nLo que deseo hacer es que segun el nivel del usuario se activen o desactiven opciones del menu.\n\nDe antemano muchas gracias y feliz navidad.','',0,'gA==','2o9acenf',1,0,'',235,0,0),(3781,966,6,2,0,'80.58.2.107',1135053543,1,0,1,1,1,1,'','','Joel,\n\nPues que muy poca gente se animó a seguir portando Harbour a .NET.\n\nPor otra parte yo tuve una reunión con uno de los desarrolladores del proyecto Mono (.NET en Linux) quien me aseguró que una aplicación .NET corre unas cinco veces más lenta que si está desarrollada en C (como es el caso de Harbour) lo que me hizo pensar que quizá habría que esperar un tiempo hasta que los ordenadores sean más potentes y esa diferencia de velocidad no sea apreciable.\n\nDe todas formas confio en que continuaremos con la portabilidad de Harbour a .NET y que enconces podremos desarrollar un FiveNet <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3hs5ucjz',1,0,'',2,0,0),(3782,972,2,2,0,'80.58.2.107',1135053792,1,0,1,1,1,1,'','','Gerardo,\n\nPor una parte puedes usar la claúsula WHEN con un MENUITEM:\n\nMENUITEM ... WHEN &lt;condición lógica&gt;\n\nY de otra, puedes deshabilitarlo/habilitarlo tú directamente:\n\nMENUITEM oItem PROMPT ... ACTION ...\n\noItem:Disable()\n...\noItem:Enable()','',0,'gA==','2n2899q9',1,0,'',2,0,0),(3783,967,22,2,0,'80.58.2.107',1135054352,1,0,1,1,1,1,'','','Kleyber,\n\nGoogling it, we have found this interesting page:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/msdnmag/issues/03/01/GDILeaks/default.aspx\">http://msdn.microsoft.com/msdnmag/issue ... fault.aspx</a><!-- m -->\n\nLets see if it may help.','',0,'gA==','281l6a8a',1,0,'',2,0,0),(3784,968,3,2,0,'80.58.2.107',1135054799,1,0,1,1,1,1,'','','Jeff,\n\nSome years ago we helped a company to test several third party tools for such purpouse and finally implemented our own solution to make the fastest search on all fields of a DBF.\n\nWe found with great surprise that the solution was to open the DBF as a standard file with FOpen(), read a bunch of bytes in memory and perform a simple At() to locate a string. Once found, you substract the DBF header length, then divide the offset by the record size and you get the record number. At() is an extremelly fast function as it is directly performed by the processor.\n\nThese days that we use 32 bits flat memory, I guess there is no need to use a bunch of bytes, so the entire DBF may be loaded in memory doing a MemoRead() of the DBF file, or several bunchs if it is too large, so the code may get simpler.\n\nWe compared this way with other available third party tools, and we found that ours was the fastest one <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nIts worth to try it.','',0,'gA==','3f720x9l',1,0,'',2,0,0),(3785,863,3,2,0,'80.58.2.107',1135055443,1,0,1,1,1,1,'','','Mauricio,\n\nAs far as we know there is no way to perform a Peek() or Poke() on 32 bits mode (unless you develop a low level driver).','',0,'gA==','1hmrk8jz',1,0,'',2,0,0),(3786,970,3,2,0,'80.58.2.107',1135055646,1,0,1,1,1,1,'','','Mauricio,\n\nCould you please provide a sample to reproduce the error ? Thanks.','',0,'gA==','2dhhlfsi',1,0,'',2,0,0),(3787,967,22,2,0,'80.58.2.107',1135057053,1,0,1,1,1,1,'','','Here we can get a free GDI inspector:\n\n<!-- m --><a class=\"postlink\" href=\"http://ltearno.free.fr/dpus/\">http://ltearno.free.fr/dpus/</a><!-- m -->','',0,'gA==','12hs8dg9',1,0,'',2,0,0),(3788,968,3,19,0,'217.153.83.2',1135061842,1,0,1,1,1,0,'','','Antonio,\n\nThis is very interesting solution.\n\nthx Eugeniusz','',0,'gA==','2eb00os7',1,0,'',19,0,0),(3789,973,3,360,0,'213.184.106.34',1135066751,1,0,1,1,1,0,'','Character display problem','Hi,\n\nMy application reads dialog controls from resource file (dll) and cannot display characters from Latin Extended A Block (c acute, c caron and z caron) under Windows 98. Only s caron is displayed fine. Application is built under Windows XP. Under Windows XP works fine with all characters. When I make application under Windows 98, all characters are fine except z caron (substituted with _ ). But, that application doesn\'t work fine under Windows XP - characters c caron and c acute are substituted with | (because in resource file in this case c acute is represented with only one byte, not two, and XP cannot read it).\nI can use two dll\'s, one for Windows 98 and the other for XP, but still I have a problem with z caron under Windows 98. And, this is a problem ONLY when application reads text from dialog resources. When application sets text to dialog controls ( SetText() --&gt; SetWindowText() ), or to any dc, it works fine!\nIs there any solution to this?!\nI tried with Regional settings etc., but it didn\'t help.\n\nRegards\nAleksandar','',0,'gA==','2mpe8mst',1,0,'',360,0,0),(3790,936,6,106,0,'85.34.123.172',1135069584,1,0,0,1,1,1,'','','Se que no es la mejor solución, pero para textos no tan largos, va bien. (que al fin y al cabo era lo que yo necesitaba.)\nMuestro donde comenté tu codigo y el pequeño cambio que hice. (un GET por un SAY)\n\n/*\n   DO CASE\n   CASE lHScroll .and. lVScroll\n      @ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO;\n         SIZE nWidth, nHeight PIXEL FONT oFont ;\n         COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;\n         NOBORDER HSCROLL\n   CASE lHScroll .and. !lVScroll\n      @ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO;\n         SIZE nWidth, nHeight PIXEL FONT oFont ;\n         COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;\n         NOBORDER HSCROLL NO VSCROLL\n   CASE !lHScroll .and. lVScroll\n      @ 25, 70 GET oGet VAR cSay OF oDlg READONLY MEMO;\n         SIZE nWidth, nHeight PIXEL FONT oFont ;\n         COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;\n         NOBORDER\n   OTHERWISE\n\n      @ 25, 70 SAY oGet VAR cSay OF oDlg READONLY MEMO;\n         SIZE nWidth, nHeight PIXEL FONT oFont ;\n         COLOR NIL, GetSysColor( COLOR_BTNFACE ) ;\n         NOBORDER NO VSCROLL\n      */\n      @ 25, 70 SAY oGet VAR cSay OF oDlg;\n         SIZE nWidth, nHeight PIXEL FONT oFont ;\n         COLOR NIL, GetSysColor( COLOR_BTNFACE ) // hecho a la carrera porque con GET no se veía. (está solucionado en el build de DIC/2005)\n\n//   END CASE[size=9][/size][size=7][/size]\n\n\nSaludos.','',0,'gA==','18wqbbtc',1,0,'',106,0,0),(3791,973,3,2,0,'80.58.2.107',1135074109,1,0,1,1,1,1,'','','Aleksandar,\n\nOn those labels where the text is not properly shown, you may define them as \"aaaa\", \"bbbb\", etc. in the resource and then REDEFINE SAY ... PROMPT ... ID ... them to the right text.','',0,'gA==','36p5fn9i',1,0,'',2,0,0),(3792,936,6,2,0,'80.58.2.107',1135074307,1,0,1,1,1,1,'','','Pedro,\n\ngracias.','',0,'gA==','1czw6mvo',1,0,'',2,0,0),(3793,974,6,102,0,'80.224.235.17',1135078658,1,0,1,1,1,1,'','Problemas con fichero recursos RES','Hola foro.\na ver si alguien me dice que puede pasar.\nTengo una un dialogo en el que hay 40 Gets, un Twbrowse y unos cuantos BtnBmp. Si utilizo recursos desde un RES. me da un error.\nPero si utilizo recursos desde RC no tengo ningun problema.\nalguien puede decirme por que pasa esto\nUso FWh26-Borland Bcc55-Harbour 45 y Verce 4.3\nEl error que me da es el siguiente:\nApplication\n===========\n   Path and name: E:\\TransUrigui\\Turigui.Exe (32 bits)\n   Size: 2,120,192 bytes\n   Time from start: 0 hours 0 mins 3 secs\n   Error occurred at: 20/12/2005, 11:59:56\n   Error description: Error FiveWin/3  Cannot create Dialog Box:\n                      Resource: DLG_ALBA\n\nStack Calls\n===========\n   Called from CREATEDLGERROR(553)\n   Called from TDIALOG:ACTIVATE(281)\n   Called from MANTEALBARANS(405)\n   Called from (b)SHOWMENUPAL(128)\n   Called from TBTNBMP:CLICK(322)\n   Called from TWINDOW:LBUTTONUP(494)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(264)\n   Called from SHOWMENUPAL(252)\n   Called from MAIN(50)\n\nGracias de antemano','',0,'gA==','u090s4gs',1,0,'',102,0,0),(3794,975,3,247,0,'87.202.20.182',1135084680,1,0,1,1,1,0,'','Spell','Bellow is a working sample in VB. Can anyone tell me what iam doing wrong with fivewin?\nThe program crasses at runtime with the error:\n[b:1s1ppksv]\"Error description: Error Word.Basic/3  DISP_E_MEMBERNOTFOUND: INSERT\"[/b:1s1ppksv]\n\n\n[b:1s1ppksv]VB:[/b:1s1ppksv]\n\nDim oWDBasic As Object\n\nSet oWDBasic = CreateObject(\"Word.Basic\")\n\n\noWDBasic.filenew\n\noWDBasic.Insert \"testdsf\"\noWDBasic.ToolsSpelling\noWDBasic.EditSelectAll\n\n\nMsgBox oWDBasic.Selection()\noWDBasic.FileCloseAll 2\noWDBasic.AppClose\n\n\n\n[b:1s1ppksv]FIVEWIN[/b:1s1ppksv]\n\n#include \"fivewin.ch\"\n\n#DEFINE TRUE  .T.\n#DEFINE FALSE .F.\n\n\nfunction main(strText)\nlocal oWDBasic\n\ndefault strText:=\"test ing re\"\n\noWDBasic:=createobject(\"Word.Basic\")\noWDBasic:filenew()\n\noWDBasic:Insert(strText)\noWDBasic:ToolsSpelling()\noWDBasic:EditSelectAll()\n\n\nmsginfo(oWDBasic:Selection())\noWDBasic:FileCloseAll(2)\noWDBasic:AppClose()\noWDBasic:=nil\nreturn \"\"','',0,'QA==','1s1ppksv',1,0,'',247,0,0),(3795,931,3,41,0,'166.114.252.26',1135084939,1,0,1,1,1,0,'','','Reinaldo,\n\nI am happy that is working for you, I recomend to you to port your DBF file to ADT, with ADS ADT is more stable. Another good think, is that you can mix SQL with traditional dbf table navegation, yes this is possible with DBF too <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.\n\nYou don\'t have problems to work with AIS from ADS/Linux, I made some test to connect to my Linux server from Mexico (Mauricio Bernal) and this work, I have a PHP interface too, but configure and compile the PHP was hard, I hope Extend System change this in the new version (8.0)\n\nRegards\n\nMarcelo\n\nP.D. a stupid script to change files in the current directory lo lowercase\n\n#!/bin/sh\n\nfor i in `ls`\ndo\n        lc=`echo $i | tr A-Z a-z`\n        mv $i $lc\ndone','',0,'QA==','tc7pfaet',1,0,'',41,0,0),(3796,975,3,6,0,'87.3.232.58',1135086587,1,0,1,1,1,1,'','Re: Spell','That error commonly means that the method does not exist or that you haven\'t provide all the required parameters.\n\nEMG','',0,'QA==','3d3t7abg',1,0,'',6,0,0),(3797,975,3,247,0,'87.202.20.182',1135088016,1,0,1,1,1,0,'','Re: Spell','[quote=&quot;EnricoMaria&quot;:72wuw9h9]That error commonly means that the method does not exist or that you haven\'t provide all the required parameters.\n\nEMG[/quote:72wuw9h9]\n\n\nBut do you see any difference from the working vb sample?','',0,'gA==','72wuw9h9',1,0,'',247,0,0),(3798,975,3,6,0,'87.3.232.58',1135088309,1,0,1,1,1,1,'','Re: Spell','I found that parameters passing is somewhat different between xHarbour and VB.\n\nEMG','',0,'gA==','3v086c65',1,0,'',6,0,0),(3799,942,3,41,0,'166.114.252.26',1135088574,1,0,1,1,1,0,'','','Hello,\n\nyou can start at <!-- w --><a class=\"postlink\" href=\"http://www.mrtg.org\">www.mrtg.org</a><!-- w -->\n\nregards\n\nMarcelo\n\n[quote=&quot;byron.hopp&quot;:24s2rm7f]Thank you, what is the MRTG utility and where do I find it.[/quote:24s2rm7f]','',0,'gA==','24s2rm7f',1,0,'',41,0,0),(3800,975,3,247,0,'87.202.20.182',1135088837,1,0,1,1,1,0,'','Re: Spell','[quote=&quot;EnricoMaria&quot;:1xdybm5q]I found that parameters passing is somewhat different between xHarbour and VB.\n\nEMG[/quote:1xdybm5q]\n\nCan you please explain the differences ?\n\nThanks you \nA.S.K','',0,'gA==','1xdybm5q',1,0,'',247,0,0),(3801,974,6,255,0,'200.67.134.233',1135091085,1,0,1,1,1,1,'','Re: Problemas con fichero recursos RES','[quote=&quot;jmua&quot;:2huzv1f7]Hola foro.\na ver si alguien me dice que puede pasar.\nTengo una un dialogo en el que hay 40 Gets, un Twbrowse y unos cuantos BtnBmp. Si utilizo recursos desde un RES. me da un error.\nPero si utilizo recursos desde RC no tengo ningun problema.\nalguien puede decirme por que pasa esto\nUso FWh26-Borland Bcc55-Harbour 45 y Verce 4.3\nEl error que me da es el siguiente:\nApplication\n===========\n   Path and name: E:\\TransUrigui\\Turigui.Exe (32 bits)\n   Size: 2,120,192 bytes\n   Time from start: 0 hours 0 mins 3 secs\n   Error occurred at: 20/12/2005, 11:59:56\n   Error description: Error FiveWin/3  Cannot create Dialog Box:\n                      Resource: DLG_ALBA\n\nStack Calls\n===========\n   Called from CREATEDLGERROR(553)\n   Called from TDIALOG:ACTIVATE(281)\n   Called from MANTEALBARANS(405)\n   Called from (b)SHOWMENUPAL(128)\n   Called from TBTNBMP:CLICK(322)\n   Called from TWINDOW:LBUTTONUP(494)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(264)\n   Called from SHOWMENUPAL(252)\n   Called from MAIN(50)\n\nGracias de antemano[/quote:2huzv1f7]\n\n\n\nSeré curioso...¿Qué usas para editar tus .RES?\nEs probable q ahi esté el problema.\nSi usas PellesC, asegúrate de guardar con la\nopción File - Save\nOJO no lo guardes con Save All porque no lo\nva a hacer.\n\nSaludos','',0,'gA==','2huzv1f7',1,0,'',255,0,0),(3802,966,6,40,0,'200.92.18.112',1135094032,1,0,1,1,1,0,'','','Estaremos al pendiente entonces y ojala pronto podamos contar con esa nueva herramienta, por que .net nos ofrece grandes ventajas.\n\nSaludos\nJoel Andujo','',0,'gA==','3njx2ug6',1,0,'',40,0,0),(3803,976,3,35,0,'167.7.140.254',1135094773,1,0,1,1,1,0,'','Icon on MDI and MDI Child','To All\n\nI am sure there is a simple solution .. I am not seeing the \'default\' icon that is \'burnt\' into my executable on the MDI and MDI child windows. All I see is a \'blank\' icon in the upper left corner of my application.\n\nIn the old 16 bit days .. the icon always appeared on my MDI and MDI childs .. This has not really bothered me until now  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nJust curious what I need to do to to either \'define\' or \'redefine\' my icon from the resource.\n\nThanks\nRick Lipkin\nSC Dept of Health','',0,'gA==','14mqanhc',1,0,'',35,0,0),(3804,976,3,2,0,'80.58.2.107',1135095082,1,0,1,1,1,1,'','','Rick,\n\nFor the main window you may do:\n\n[code:29j9k00a]\n   DEFINE ICON oIcon RESOURCE &quot;test&quot; \n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE &quot;I am the MDI Frame&quot; ;\n      MDI ;\n      MENU BuildMenu&#40;&#41; ;\n      ICON oIcon\n[/code:29j9k00a]\n\nand add this to your RC:\n\ntest ICON \"..\\icons\\fivewin.ico\"\n\nand the same for the mdichilds:\n\n[code:29j9k00a]\n   DEFINE ICON oIcon RESOURCE &quot;test&quot;\n\n   DEFINE WINDOW oWndChild MDICHILD OF oWnd ICON oIcon\n[/code:29j9k00a]','',0,'AIA=','29j9k00a',1,0,'',2,0,0),(3805,976,3,35,0,'167.7.140.254',1135095825,1,0,1,1,1,0,'','','Antonio\n\nAll my icons are in a file called icons.rc which gets compiled to icons.res. I chose Icons.res to link into my executable.\n\nI was hoping to use the icon resource from the executable ( since it is already burnt in ) ant not add it ( as well ) to my external .dll.\n\nIs it possible to \"grab\" the icon from the executable ??  or would it be best to also import it into my external .dll and redefine it from there ??\n\nThanks\nRick Lipkin','',0,'AIA=','l7z2t84a',1,0,'',35,0,0),(3806,977,7,95,0,'201.135.64.245',1135095835,1,0,1,1,1,0,'','MC3000 - Casi terminada','Estimados ...\n\nGracias a todos los que fueron de ayuda.\nAntonio muchas gracias\nHector, mil gracias por el empuje ( Todo un guru en \"C\" y sus derivados )\nY a los los demas ... ( Ya parece carta ...)\n\n\nYa entregre mi primera parte de mi programa a mi cliente ( es sencillo )\nPero me gustaria que lo vieran. Este programa es tambien el que activa el lector de un Symbol MC3000 OS Core.\n\nEspero que les ayude en algo\n\n/*\n  Program : Inventory.prg\n  Author  : Osvaldo Ramirez , Hector Pezoa\n  Date    : 01 Dic, 2005\n  update  : 15 Dic, 2005\n\n  Revision ...\n\n  1.- Agregar el codigo de barras para cuando el lector no pueda leer\n  2.- Agregar el encargado, cuando se le avise que una cantidad de existencia no coincida\n\n*/\n\n#include \"FWCE.ch\"\n#include \"hbclass.ch\"\n#include \"Directry.ch\"\n#pragma comment (lib,\"scnapi32\")\n\n#define crlf chr(13)+chr(10)\n#define CRLF chr(13)+chr(10)\n#define CR chr(13)\n\nFUNCTION Main()\n* begin\n\n  PRIVATE oWnd\n  PRIVATE cLog := \"\"\n  PRIVATE nCant := 1 , oCant\n  PRIVATE nExist := 0\n  private oInvPC , oMsg\n  PRIVATE cBarCode := space(15) , oBarCode\n  PRIVATE files_dir := \"\\\\caja1\\c\\\"\n  PRIVATE cEncargado := space(15) , oEncargado\n  PRIVATE cCurDir := curdir()\n  PRIVATE lUsers := .f.\n\n  PRIVATE dFecha := date() , oFecha\n  PRIVATE cHora := time() , oHora\n  PRIVATE nNumInventario := 0 , oNumInventario // El no. de inventario es una varible o archivo en el sistema\n\n\n /* Primero Pedimos la fecha y hora del sistema.\n\n  DEFINE WINDOW oWnd TITLE \"Sistema de Toma de Inventario v12.15\"\n\n  @ 1.0,02 SAY \"Fecha :\" SIZE 60, 18\n  @ 1.0,09 GET oFecha  VAR dFecha picture \"@D\" SIZE 70, 20\n  @ 2.5,02 SAY \"Hora  :\" SIZE 60, 18\n  @ 2.5,10 GET oHora    VAR cHora picture \"99:99:99\" SIZE 70 , 20\n  @ 3.8,02 SAY \"#-Inventario:\" SIZE 75, 18\n  @ 3.98,11 GET oNumInventario VAR nNumInventario picture \"999999\" SIZE 70, 20\n\n  @ 12, 2 BUTTON \"Aceptar\" SIZE 80, 30 ACTION oWnd:END()\n  @ 12,35 BUTTON \"Cerrar App\" SIZE 80, 30 ACTION oWnd:END()\n\n  oWnd:Activate()\n */\n\n if file( files_dir+\"pos\\datafile\\users.dbf\")\n   copy file (files_dir+\"pos\\datafile\\users.dbf\") to ( \"users.dbf\" )\n endif\n\n  if file( \"users.dbf\" )\n    lUsers := .T.\n    use ( \"users.dbf\" ) alias USERS NEW\n    index on upper( user_id ) to ( \"users1.ntx\" )\n    go top\n  endif\n\n* ShowKeyboard()\n\n  DEFINE WINDOW oWnd TITLE \"Sistema de Toma de Inventario v12.15\"\n\n  @ 1.0,02 SAY \"Cantidad :\" SIZE 70, 20\n  @ 1.0,12 GET oCant VAR nCant picture \"99999\" VALID CheckCant() SIZE 40, 20\n  @ 2.3,02 SAY \"Codigo   :\" SIZE 70, 20\n  @ 2.5,12 GET oBarCode VAR cBarcode picture \"@!\" VALID CheckBarCode() SIZE 120, 20\n  @ 3.5,02 SAY \"Encargado:\" SIZE 70, 20\n  @ 3.9,12 GET oEncargado VAR cEncargado picture \"@!\" VALID GrabaEncargado() SIZE 120, 20\n\n  @ 6.0,02 SAY oInvPC var \"Inventario PC: :\" SIZE 150, 20\n  @ 8.0,02 SAY oMsg   var \"Ultimo Mensaje ...............\" SIZE 400, 20\n\n\n  @ 12, 2 BUTTON \"Terminar\" SIZE 80, 30 ACTION oWnd:END()\n\n  oWnd:Activate()\n\n\n  if ! empty( cLog ) // Significa que hubo activad\n    if file( files_dir+\"download\\inventa.log\" )\n      cLog := memoread( files_dir+\"download\\inventa.log\" ) + cLog\n    endif\n    memowrit( files_dir+\"download\\inventa.log\" , cLog )\n  endif\n\n*  HideKeyboard()\n\nRETURN NIL\n\nFUNCTION CheckCant()\n* begin\n  LOCAL cFile , cRet , nActual := 0 , lReturn := .f.\n\n  IF  oCant:nLastKey = 13\n\n    cBarCode := \"\"\n    cRet := SCAN_OPEN()\n    IF valtype( cRet ) = \"C\"\n      FOR i := 1 TO len( cRet )\n        IF substr(cRet,i,1) $\"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890+-/\"\n          cBarCode += substr(cRet,i,1)\n        ENDIF\n      NEXT\n    ENDIF\n    cBarCode := alltrim(cBarcode)+space(15-len(alltrim(cBarcode)))\n\n    if ! empty( cBarCode )\n\n      cFile := files_dir+\"download\\\"+alltrim(cBarcode)+strzero(nCant,4,0)+\".exi\"\n      IF ! file( cfile )\n        * Si no existe, vera si hay un articulo y traerse las existencias actuales\n        nActual := Existencias( cBarCode )\n      else\n        nActual := nCant\n      ENDIF\n\n      if nActual &lt;&gt; -777\n        oInvPC:VarPut( \"Inventario PC:\"+transform( nActual ,\"99999\" ))\n        oInvPc:refresh()\n        if nActual = nCant\n          oMsg:VarPut( \"!! INVENTARIO CORRECTO, CONTINUE !!\")\n        elseif nCant &gt; nActual // Sobrantes\n          oMsg:VarPut( \"!! SOBRANTES, CUENTE DE NUEVO !!\" )\n        elseif nCant &lt; nActual // Faltantes\n          oMsg:VarPut( \"!! FALTANTES, CUENTE DE NUEVO !!\" )\n        endif\n      else\n        oMsg:VarPut( \"!! ARTICULO NO EXISTE, INTENTE DE NUEVO !!\" )\n      ENDIF\n      oMsg:refresh()\n      * Grabar Log\n      cLog += cBarcode+strzero(nCant,4,0)+strzero(nActual,4,0)+dtos(date())+time()+cEncargado + CR\n      oCant:VarPut(1)\n      oCant:refresh()\n\n      oBarCode:VarPut(space(15))\n      oBarCode:refresh()\n    endif\n  else\n    lReturn  := .T.\n  endif\nreturn lReturn\n\nfunction CheckBarCode()\n* begin\n  local cFile , cRet , nActual := 0 , lReturn := .f.\n\n  if oBarCode:nLastKey = 38\n    return .t.\n  endif\n\n  if oBarCode:nLastKey = 13\n    cBarCode := alltrim(cBarcode)+space(15-len(alltrim(cBarcode)))\n    cFile := files_dir+\"download\\\"+alltrim(cBarcode)+strzero(nCant,4,0)+\".exi\"\n    if ! empty( cBarCode )\n      if ! file( cFile )\n         nActual := Existencias( cBarCode )\n         lReturn := .T. // Pasa al campo de encargado\n      else\n         nActual := nCant  // Debera devolverse al campo de nCantidad\n      endif\n      if nActual &lt;&gt; -777\n        oInvPC:VarPut( \"Inventario PC:\"+transform( nActual ,\"99999\" ))\n        oInvPc:refresh()\n        if nActual = nCant\n          oMsg:VarPut( \"!! INVENTARIO CORRECTO, CONTINUE !!\")\n        elseif nCant &gt; nActual // Sobrantes\n          oMsg:VarPut( \"SOBRANTES, RETENGA MCIA Y QUE FIRME ENCARGADO\" )\n        elseif nCant &lt; nActual // Faltantes\n          oMsg:VarPut( \"FALTANTES, AVISE Y TECLE GAFETE EL ENCARGADO\" )\n        endif\n      else\n        oMsg:VarPut( \"!! ARTICULO NO EXISTE, INTENTE DE NUEVO !!\" )\n        oMsg:refresh()\n        lReturn := .f.\n      ENDIF\n      oMsg:refresh()\n\n      nExist := nActual\n\n      * Grabar Log\n      cLog += cBarcode+strzero(nCant,4,0)+strzero(nActual,4,0)+dtos(date())+time()+cEncargado + CR\n      if ! lReturn\n        oBarCode:oJump := oCant\n      endif\n    else\n      oMsg:VarPut( \"!! TECLE SU CODIGO DE BARRAS!!\" )\n      oMsg:refresh()\n    ENDIF\n  ELSE\n    if empty( cBarcode )\n      oMsg:VarPut( \"!! TECLE SU CODIGO DE BARRAS!!\" )\n      oMsg:refresh()\n    endif\n  ENDIF\nRETURN lReturn\n\nFUNCTION GrabaEncargado()\n* begin\n  LOCAL cFile , cRet , cVar\n\n  IF oEncargado:nLastKey = 13\n   if lUsers\n     if USERS-&gt;(DbSeek(cEncargado))\n       cVar := cBarcode+strzero(nCant,4,0)+strzero(nExist,4,0)+dtos(date())+time()+cEncargado + CR\n\n       cLog += cVAr\n       oCant:VarPut(1)\n       oCant:refresh()\n       oBarCode:VarPut(space(15))\n       oBarCode:refresh()\n       oMsg:VarPut( \"SE GRABO DIFERENCIAS :\"+alltrim(USERS-&gt;user_name))\n       oMsg:refresh()\n       oInvPC:VarPut( \"Inventario PC:\"+transform( 0 ,\"99999\" ))\n       oInvPc:refresh()\n       oEncargado:VarPut(space(15))\n       oEncargado:refresh()\n       oEncargado:oJump := oCant\n\n\n     else\n       msginfo( \"Empleado no exite\" )\n       return .f.\n     endif\n   endif\n  ENDIF\nRETURN .T.\n\n\nFUNCTION Existencias( cBarCode )\n* Begin\n  LOCAL cFile :=  files_dir+\"download\\\"+alltrim(cBarcode)+\"*.exi\"\n  LOCAL aFiles := Directory( cFile )\n  LOCAL nCount := Len(aFiles)\n  LOCAL nExist := NIL\n  LOCAL i\n  asort( aFiles ,,, {|aX,aY|dtos(aX[F_DATE ])+aX[F_TIME] &lt; dtos(aY[F_DATE ])+aY[F_TIME]})\n  FOR i := 1 TO nCount\n     nExist := val( substr( aFiles[i][1] , len( aFiles[i][1])-7 ) )\n  NEXT\n  if nExist = NIL\n    nExist := -777\n  endif\nRETURN nExist\n\n* Funciones que no corren en Symbol MC3000\nFUNCTION cesetmenu() ; RETURN NIL\nFUNCTION getmenu() ; RETURN NIL\nFUNCTION readbitmap() ; RETURN NIL\nFUNCTION palbmpread() ; RETURN NIL\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\n#include \"Scancapi.h\"\n\nLPSCAN_BUFFER        lpScanBuffer                        = NULL;\nBOOL                 bUseText                                = TRUE;\nDWORD                dwScanSize                                = 7095;\nDWORD                dwScanTimeout                        = 0;\n\n#define BUFFER_SIZE       7095\n#define DEFAULT_TIMEOUT   10000\n\nHANDLE hScanner = NULL;\nTCHAR         szScannerName[MAX_PATH] = TEXT(\"SCN1:\");\nDWORD  dwResult ;\nCHAR   Buffer ;\nUINT   uMsg ;\nDWORD  dwTimeout ;\n\nHB_FUNC( SCAN_OPEN )\n{\n    dwResult = SCAN_Open( szScannerName, &amp;hScanner );\n    if ( dwResult == E_SCN_SUCCESS )\n       {\n        dwResult = SCAN_Enable( hScanner );\n        if ( dwResult == E_SCN_SUCCESS )\n          {\n\n                BOOL state = TRUE;\n                dwResult = SCAN_SetSoftTrigger(hScanner, &amp;state);\n                if (dwResult == E_SCN_SUCCESS) {\n                        // allocate a new scan buffer\n                        lpScanBuffer = SCAN_AllocateBuffer(TRUE /* data as chars */, BUFFER_SIZE);\n                        if (lpScanBuffer) {\n                                dwResult = SCAN_ReadLabelWait(hScanner, lpScanBuffer, DEFAULT_TIMEOUT);\n                                if (dwResult == E_SCN_SUCCESS)\n                         {\n                          hb_retclen( (char *)SCNBUF_GETDATA(lpScanBuffer),25);\n                                 }\n                        }\n                        SCAN_DeallocateBuffer(lpScanBuffer);\n                }\n                state = FALSE;\n                SCAN_SetSoftTrigger(hScanner, &amp;state);\n\n          }\n        else\n          {\n           MessageBox( GetActiveWindow(), L\"Error en SCAN_Enable\", L\"Ok\", 0 );\n\n          }\n       }\n    else\n     {\n      MessageBox( GetActiveWindow(), L\"Error en SCAN_Open\", L\"Ok\", 0 );\n      }\n}\n\n#pragma ENDDUMP','',0,'','305xqa2b',1,0,'',95,0,0),(3807,976,3,2,0,'80.58.2.107',1135099485,1,0,1,1,1,1,'','','Rick,\n\nYou may use them from the EXE, but first you must do a SET RESOURCES TO. So the EXE becomes the place to look for resources.\n\nSET RESOURCES TO\nDEFINE ICON ...\nSET RESOURCES TO &lt;yourdll.dll&gt;\n\nAfter defining them, then do a SET RESOURCES TO &lt;yourdll.dll&gt; to set your resources to the DLL.','',0,'','2xtasu8b',1,0,'',2,0,0),(3808,977,7,2,0,'80.58.2.107',1135099796,1,0,1,1,1,1,'','','Osvaldo,\n\nEnhorabuena <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPor que no pones algunas imágenes de la aplicación funcionando en el emulador para que veamos que tal se ve ? \n\nLas imagenes las puedes situar en <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us\">http://www.imageshack.us</a><!-- m --> y aquí copiar el enlace para que las veamos. Gracias.','',0,'','9o0bblv4',1,0,'',2,0,0),(3809,931,3,299,0,'69.65.88.121',1135100950,1,0,1,0,1,0,'','','Marcelo;\n\nI call that a very smart script.  :-)\n\nThank you.','',0,'','3pqp4dki',1,0,'',299,0,0),(3810,976,3,35,0,'167.7.140.254',1135101188,1,0,1,1,1,0,'','','Antonio\n\nI like the other idea better ... I will import the icons into my external .dll and burn them into the Executable as well because i am already setting the resources to that file anyway ..\n\nI have been playing with the mdi childs and surprisingly some of the mdichilds seem to inherit the icon from the parent without defining the icon in the child .. wierd. It does not happen all the time and where I define the icon .. I use a Local variable object so it should not filter down to the other modules .. not a big deal .. just curious.\n\nThanks for your quick responce.\n\nRick Lipkin','',0,'','1td6ckwu',1,0,'',35,0,0),(3811,977,7,150,0,'87.223.255.173',1135101638,1,0,1,1,1,1,'','','Enhorabuena Osvaldo ( y Antonio claro):\n\nCon esto subis un poco la capacidad de todos nosotros.\n\nUnas preguntas y sugerencias Osvaldo:\n\n¿La funcion c SCAN_OPEN no sería mejor ponerle otro nombre?. Por Ejemplo LEE_SCANER\n\nMe parece que a) Abre el scanner, b) Activa el scanner, c) Lee el codigo, etc\n\nLos de Symbol me dijeron que después de la lectura convenía desactivar el scaner para ahorrar bateria.\n\nEspero que nos sigas contando tus progresos.','',0,'','1pom9bhx',1,0,'',150,0,0),(3812,974,6,102,0,'80.224.235.17',1135102146,1,0,1,1,1,1,'','Re: Problemas con fichero recursos RES','Juan Carlos\nUtilizo el Resource Workshop\n\nSaludos\n\n\nSeré curioso...¿Qué usas para editar tus .RES?\nEs probable q ahi esté el problema.\nSi usas PellesC, asegúrate de guardar con la\nopción File - Save\nOJO no lo guardes con Save All porque no lo\nva a hacer.\n\nSaludos[/quote]','',0,'','7plh8y1f',1,0,'',102,0,0),(3813,897,6,81,0,'80.28.244.140',1135102711,1,0,1,1,1,0,'','','[quote=&quot;Alfredo Arteaga&quot;:1hai09ql]Una mas a favor de Luis, tengo una lista con unas 2000 direcciones y hago envío sin mayores problemas.[/quote:1hai09ql]\n\nYa somos dos <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> \nUso la de Krause y not problem.','',0,'gA==','1hai09ql',1,0,'',81,0,0),(3814,978,6,295,0,'200.112.82.94',1135103229,1,0,1,1,1,1,'','FWCTRLS.DLL en workshop, si uso sus recursos se cae..','HOLA  Amigos :\nEstoy hace un par de semanas con FWH, pase la rc a 32 bits.. estoy usando workshop para los recursos, todos los recursos que bienen con workshop funcionan bien, es decir el programa no se cae y aparecen normalmente en los dialogos, pero despues de instalar la \"FWCTRLS.DLL\" y usar un recurso de ella como por ejemplo un TbitMap o cualquiera que provenga de ella el programa se cae no pudiendo generar el dialogo en pantalla, me imagino que esto es por que la \"FWCTRLS.DLL\" es de 16 Bits, si es asi que me recomiendan?, en todas las dll de FW Clipper uso estos recursos y quiero migrarlos a FWH.\n\nDe antemano GRACIAS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \nSaludos','',0,'gA==','qs6owj1y',1,0,'',295,0,0),(3815,979,4,63,0,'80.58.35.107',1135103716,1,0,1,1,1,0,'','How to implement MkDir in FWPPC','Hi!\nIs there any way of implementing MkDir and RmDir en FWPPC?\nThanks\nRafael','',0,'gA==','1853bksb',1,0,'',63,0,0),(3816,979,4,63,0,'80.58.35.107',1135104460,1,0,1,1,1,0,'','Answer to myself: lMkDir','Sorry for the silly question\nRegards,\nRafael','',0,'gA==','3rbo87mq',1,0,'',63,0,0),(3817,978,6,2,0,'80.58.2.107',1135105258,1,0,1,1,1,1,'','','Luis,\n\nPuede tratarse por los folders que hay que definirlos como SysTabControl32 en vez de TFolder.','',0,'gA==','2wktxrig',1,0,'',2,0,0),(3818,980,6,362,0,'200.168.52.156',1135107547,1,0,1,1,1,1,'','WHEN( .F. ) EN GET USANDO FIVEWIN FOR XHARBOUR','WHEN( .F. ) EN FIVEWIN FOR XHARBOUR VERSION 2.7\n\nPERSONAS, NECESITO HELP, COMO HACER PARA KE EL FOCO DEL GET EN UN WHEN( .F. ) FIKE CON COLOR COMO EN EL FIVEWIN 16 BITS??\n\nREDEFINE GET aGet[1] VAR XCGC     PICTURE \"@K 999.999.999-99\"       ;\n                     WHEN( .F. )                                    ;\n                     ID 20 OF oFld:aDialogs[ 1 ]                    ;\n                     FONT oFont UPDATE                              ;\n                     COLOR CLR_HRED, CLR_HCYAN                      ;\n                     CURSOR  oHand                                           \n\n\nASI, FICA CON ASPECTO(APARIENCIA) DI \'MUERTO/DESHABILITADO\', SIN COLOR. \n\nGRACIAS A TODOS. SALUDOS.','',0,'','390dsu05',1,0,'',362,0,0),(3819,978,6,295,0,'200.112.82.94',1135108290,1,0,1,1,1,1,'','','Disculpa Antonio, Donde debo definir esto?\n\nGracias\nSaludos','',0,'','2phrfp34',1,0,'',295,0,0),(3820,981,1,51,0,'80.122.88.242',1135109615,1,0,1,1,1,0,'','scrolling','I would like to write many lines of text into a window and then to scroll.\nIs scrolling automatically or do I have to programm?\nThanks in advance\nOtto\n\n\nstatic oWnd\n\nfunction Main()\n\n    DEFINE WINDOW oWnd from 1,1 TO 30,60 TITLE \"Kontoauszug\";\n        VSCROLL;\n        MENU bldMenu()\n\n    ACTIVATE WINDOW oWnd    \n\n        return nil\n\n    function bldMenu()\n        LOCAL oMenu\n        set exclusive off\n        MENU oMenu\n        MENUITEM \"Start\" ;\n            ACTION  f_code()\n        ENDMENU\n\n        return oMenu\n\n        func f_code\n            LOCAL nRow1       := 0\n            local hVert       :=  25\n            local planfont\n            Local I:=0\n            local oSay\n\n\n            DEFINE FONT planFont NAME \"Arial\" SIZE  6,22\n\n            FOR I := 1 TO  100\n                nRow1 := nRow1 + hVert\n                * Line(  nTop nLeft  nBottom  nRight\n                oWnd:say( nRow1+2, 1, \"TEST\",255,16777215,planFont,.T.)\n            NEXT\n\n            RETURN NIL','',0,'','lvk5l7q7',1,0,'',51,0,0),(3821,980,6,2,0,'80.58.2.107',1135109677,1,0,1,1,1,1,'','','João,\n\nPrueba este cambio en la clase TGet:\n\n[code:3r75cfok]\nMETHOD Paint&#40;&#41; CLASS TGet\n   &#46;&#46;&#46;\n   local hOldFont\n\n   &#46;&#46;&#46;\n   \n   if IsWindowEnabled&#40; &#58;&#58;hWnd &#41;\n      CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   else\n      SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41;\n      hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oFont&#58;hFont &#41;\n      ExtTextOut&#40; &#58;&#58;hDC, 0, 0,;\n                  &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;            \n   endif                \n   &#46;&#46;&#46;\n[/code:3r75cfok]','',0,'AIA=','3r75cfok',1,0,'',2,0,0),(3823,978,6,2,0,'80.58.2.107',1135109833,1,0,1,1,1,1,'','','Luis,\n\nCuando hayas definido la caja de diálogo, hay una opción arriba en el menú que es verlo como texto. Si usas un folder, mira en el texto si está como \"TFolder\" y en tal caso cámbialo a \"SysTabControl32\".','',0,'AIA=','2f9vkl13',1,0,'',2,0,0),(3824,968,3,69,0,'65.92.79.84',1135109878,1,0,1,1,1,0,'','','Antonio,\n\nI tried your idea but I have 2 problems...\n\n1. It returns the record number -1\n    example:  I know the record is #5 but it return #4\n\n2. I need to search for ALL occurences of \"sometext\".  At() will only find the first (and RAt() the last)\n\nCan you think of any other way of doing it?\n\nThanks,\nJeff\n\n\nP.S.  This is the Code I tried:\n\nFunction SearchFile( cDBF, cAlias )\n   Local cSearch := Space(20), nLocation, cData\n\n   if ! MsgGet(\"Search...\",\"Enter Search String \",@cSearch)\n      Return nil\n   endif\n\n   SELECT &amp;cAlias\n   cData     := MemoRead( cDBF )\n\n   if Len(cData ) &lt; 1\n      MsgInfo(\"Not Data to Search\",\"File Error\")\n      Return Nil\n   endif\n\n   nLocation := (AT( cSearch, cData ) - Header() ) / RecSize()\n   if nLocation &lt; 1\n      Exit\n   else\n      MsgInfo(\"Record: \"+str(nLocation ))\n   endif\nReturn Nil','',0,'AIA=','1s13v1j4',1,0,'',69,0,0),(3825,969,3,69,0,'65.92.79.84',1135109985,1,0,1,1,1,0,'','','Thanks Colin,\n\nThat pointed me in the right direction <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\nJeff','',0,'AIA=','26w2da59',1,0,'',69,0,0),(3826,968,3,2,0,'80.58.2.107',1135110342,1,0,1,1,1,1,'','','Jeff,\n\n&gt; 1. It returns the record number -1 \n\nAdd 1 to it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n&gt; 2. I need to search for ALL occurences of \"sometext\". At() will only find  the first (and RAt() the last) \n\nModify your function, so when you find the text, then you modify the cData: \n\ncData = SubStr( cData, nLocation + Len( cSearch ) )\n\nand then perform At() again until there are no more occurrences. Store the previous nLocation on a variable to properly calculate the offset.','',0,'AIA=','1t95psvp',1,0,'',2,0,0),(3827,968,3,2,0,'80.58.2.107',1135110998,1,0,1,1,1,1,'','','Jeff,\n\nBoth Harbour/xHarbour lets you specify a third parameter when calling At() to select the starting offset into the text. \n\nThis is a better way so you don\'t have to call SubStr() which manages a lot of memory for copying the previous string into the new one, so it will result into an even faster function <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAt( cSearch, cData, nOffset )','',0,'AIA=','8r1tsr4s',1,0,'',2,0,0),(3828,981,1,2,0,'80.58.2.107',1135111279,1,0,1,1,1,1,'','','Otto,\n\nYes, you have yo perform the scrolling yourself. You may review wbrowse.prg source code as it also scrolls.\n\nAnother way is to use a GET multiline that will scroll automatically though it may be limited into the amount of text to contain.\n\nAnother possibility is to show a browse and then use a DBF where each record is a text line, so to add a text line, you add a record, fill the field, and refresh the browse.','',0,'AIA=','1mx5ufx8',1,0,'',2,0,0),(3829,978,6,138,0,'201.128.111.75',1135111623,1,0,1,1,1,1,'','','No utilices el FWCTRLS.DLL, la definicion de los controles no es correcta para los componentes de 32 bits, y si haces el RC con el workshop con esa DLL instalada, entonces vas a tener graves problemas con tus recursos graficos.\n\nSolucion, desinstala la DLL y trabaja con \"custom controls\" estandar (los de la llavecita)','',0,'AIA=','1zrgmtlv',1,0,'',138,0,0),(3830,978,6,295,0,'200.112.82.94',1135111726,1,0,1,1,1,1,'','','Ahora el programa no se cae , apliqué lo que tu me comentaste a un Tbitmap, pero quedó como inactivo aparece y muestra el bitmap pero al \"presionarlo \" no hay ningún efecto.','',0,'AIA=','309rpx1d',1,0,'',295,0,0),(3831,978,6,2,0,'80.58.2.107',1135111944,1,0,1,1,1,1,'','','Luis,\n\nSi quieres un bitmap que tenga una acción al presionarlo, usa en su lugar un botón TBtnBmp (button bitmap).','',0,'AIA=','11qs1dwo',1,0,'',2,0,0),(3832,974,6,138,0,'201.128.111.75',1135112259,1,0,1,1,1,1,'','','Acuerdate que el Workshop DAÑA algunos archivos cuando los editas, esto incluye DLLs y RES.\n\nDe todas formas es totalmente inutil trabajar con el RES, el RC se tiene que compilar al momento de generar el EXE, asi que mejor deja que el compilador se encargue del trabajo, utiliza siempre archivos .RC, no ganas nada en cuestion de desempeño del programa.','',0,'AIA=','2zsy7hu3',1,0,'',138,0,0),(3833,981,1,51,0,'80.122.88.242',1135112743,1,0,1,1,1,0,'','','Thank you for your answer. As I want to use different fonts I think that multiget and wbrowse are not a solution.\n\nDon\'t you have a working example?\n\nThanks again\nOtto','',0,'AIA=','37zvewtr',1,0,'',51,0,0),(3834,971,2,138,0,'201.128.111.75',1135113525,1,0,1,1,1,1,'','','Es problema de los 16 bits, nosotros teniamos que montar los servidores en maquinas con Win98 porque no iban ni de chiste.\n\nA los 32 bits el problema se soluciona con los Windows \"TRUE 32\" (NT, 2000, XP, 2003)','',0,'AIA=','2tbwwo07',1,0,'',138,0,0),(3835,980,6,362,0,'200.168.52.156',1135114297,1,0,1,1,1,1,'','','Gracias Antonio por tu ayuda. \n\nCuasi perfecto, solamente um problema, no esta respectando o comando: CENTER, RIGHT O LEFT del WorkSop.exe  ke hacer?? \n\nTodo o contenido del GET, fica a la Iskierda de GET.\n\nhice asi, esta correcto?\n\n//----------------------------------------------------------------------------//\n\nMETHOD Paint() CLASS TGet\n\n   local aInfo := ::DispBegin()\n\n   // Mudanca(Cambio) enviada(o) por Antonio Linares en 20/12/2005\n   local hOldFont \n  \n   if ::oBrush != nil\n      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )\n   else\n      CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )\n   endif\n\n   CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )\n\n   if ValType( ::bPainted ) == \"B\"\n      Eval( ::bPainted, ::hDC, ::cPS, Self )\n   endif\n\n   ::DispEnd( aInfo )\n\n   //-&gt; Antonio Linares en 20/12/2005\n   if IsWindowEnabled( ::hWnd ) \n      CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 ) \n   else \n      SetTextColor( ::hDC, ::nClrText ) \n      SetBkColor( ::hDC, ::nClrPane ) \n      hOldFont = SelectObject( ::hDC, ::oFont:hFont ) \n      ExtTextOut( ::hDC, 0, 0,; \n                  { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) \n      SelectObject( ::hDC, hOldFont )            \n   endif\n\n   // Fim da Mudanca - Fin del Cambio\n\nreturn 1\n\n\nMuchas Gracias, e Saludos desde São Paulo - Brasil.','',0,'AIA=','2ssffdx6',1,0,'',362,0,0),(3836,981,1,6,0,'87.1.232.170',1135115812,1,0,1,1,1,1,'','','Try the RichEdit control.\n\nEMG','',0,'AIA=','3ici0qzp',1,0,'',6,0,0),(3837,981,1,51,0,'80.122.88.242',1135116673,1,0,1,1,1,0,'','','That’s what I thought first. But how can you prevent that someone chances the text and I need the position of the mouse.','',0,'AIA=','j5dudi4i',1,0,'',51,0,0),(3838,982,6,28,0,'87.223.138.226',1135116785,1,0,1,1,1,0,'','Crear bitmap con datas','Hola a todos. \n\nAlguien recuerda una función para crear bitmaps a partir de una cadena de texto. \n\nAlguna vez recuerdo algo asi:\n\n[code:157ccf13]\'42 4D 96 0D 00 00 00 00 00 00 36 04 00 00 28 00\'\n \'00 00 28 00 00 00 3C 00 00 00 01 00 08 00 00 00\'\n \'00 00 60 09 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 BF 00 00 BF\'\n \'00 00 00 BF BF 00 BF 00 00 00 BF 00 BF 00 BF BF\'\n \'00 00 C0 C0 C0 00 C0 DC C0 00 F0 CA A6 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n \'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n[/code:157ccf13]\n\nluego se leian estos datos con una función y se convertian a bitmap.\n\nEl caso es que no me acuerdo donde estaba esa función\n\nUn saludo','',0,'AIA=','157ccf13',1,0,'',28,0,0),(3839,981,1,2,0,'80.58.2.107',1135117919,1,0,1,1,1,1,'','','Otto,\n\nYou may disable the richedit control, so it does not accept any input.','',0,'AIA=','nupbbi1g',1,0,'',2,0,0),(3840,980,6,2,0,'80.58.2.107',1135118455,1,0,1,1,1,1,'','','João,\n\nCambia el orden del código:\n\n...\n\nif IsWindowEnabled( ::hWnd ) \nCallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 ) \nelse \nSetTextColor( ::hDC, ::nClrText ) \nSetBkColor( ::hDC, ::nClrPane ) \nhOldFont = SelectObject( ::hDC, ::oFont:hFont ) \nExtTextOut( ::hDC, 0, 0,; \n{ 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) \nSelectObject( ::hDC, hOldFont ) \nendif \n\nif ValType( ::bPainted ) == \"B\" \nEval( ::bPainted, ::hDC, ::cPS, Self ) \nendif \n\n::DispEnd( aInfo )\n\nPara respetar el CENTER, RIGHT O LEFT, tienes que llamar a SetTextAlign() antes de llamar a ExtTextOut():\n\n[code:29lr17rp]\ndo case\n     case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_CENTER &#41;\n          SetTextAlign&#40; &#58;&#58;hDC, TA_CENTER &#41;\n\n     case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_RIGHT &#41;\n          SetTextAlign&#40; &#58;&#58;hDC, TA_RIGHT &#41;\n\n     otherwise\n          SetTextAlign&#40; &#58;&#58;hDC, TA_LEFT &#41;\nendcase\nExtTextOut&#40; &#46;&#46;&#46; &#41;\n[/code:29lr17rp]','',0,'AIA=','29lr17rp',1,0,'',2,0,0),(3841,982,6,2,0,'80.58.2.107',1135118654,1,0,1,1,1,1,'','','Paco,\n\nEs una función propia de FiveWin:\n\nHBITMAP CreateMemBitmap( HDC hDC, BYTE far * cBitmap )','',0,'AIA=','3visdylz',1,0,'',2,0,0),(3842,977,7,95,0,'201.135.75.20',1135119570,1,0,1,1,1,0,'','','Estimado Jose\n\nGracias por los tip.\n\nPor lo pronto, esta es la primera app, espero poder hacer mas para otros clientes. \nDe todos modos hay una funcion que nos gustaria probar: SCAN_ReadLabelMsg -- Esta funcion, manda un evento con la lectura a un hwnd de una ventana, aun no hemos podido activarla y ver como seria el flujo de programa. Ahora aunado con el aprendizaje de las clases de FiveWin, tambien, hay que probrar y probrar.\n\nDe todos modos cualquier cosa nueva q implementemos, con gusto las pondre para ayuda de nososotros.\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','x339go7g',1,0,'',95,0,0),(3843,968,3,69,0,'65.92.79.84',1135121537,1,0,1,1,1,0,'','','Thanks Antonio ... I now have a good start ...  one more question:\n\nIn the new Search function I store the record number into an array (aRecords).\n\nHow can I display a listbox with only those record numbers that are in the array?\n\nThanks\nJeff','',0,'AIA=','kpflrcgi',1,0,'',69,0,0),(3844,983,6,168,0,'201.249.151.198',1135122852,1,0,1,1,1,0,'','Captura de errores con Harbour','Saludos. \nEstoy usando la clase TOle con Harbour y necesito capturar uan excepcion cuando estoy abriendo una conexio ADO a una BD de datos SQL Server. Trate de BEGIN SEQUENCE y nada. Me muestra el error y se sale del programa\nHay alguna construccion que me permita capturar errores desde mi aplicacion ?','',0,'AIA=','18nukr2m',1,0,'',168,0,0),(3845,984,3,69,0,'65.92.79.84',1135124267,1,0,1,1,1,0,'','Generate Listbox from Array','Hi,\n\nI need to generate a listbox from an array.\nThe array contains \"record numbers\" from a database, so I need to somehow display only those records.\n\nAny Ideas?\n\nThanks,\nJeff','',0,'AIA=','1zm85htz',1,0,'',69,0,0),(3846,980,6,362,0,'200.168.52.156',1135125833,1,0,1,1,1,1,'','','Antonio... Por Favor, Donde esta Errado??\n\nNo Fica Perfecto...\n\n#define ES_CENTER            1\n#define ES_RIGHT             2\n#define ES_LEFT              0\n#Define TA_LEFT              0\n#Define TA_RIGHT             2\n#Define TA_CENTER            6\n\nMETHOD Paint() CLASS TGet\n\n   local aInfo := ::DispBegin()\n\n   local hOldFont\n\n   if ::oBrush != nil\n      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )\n   else\n      CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )\n   endif\n\n   if IsWindowEnabled( ::hWnd )\n\n      CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )\n\n   else\n\n      SetTextColor( ::hDC, ::nClrText )\n      SetBkColor( ::hDC, ::nClrPane )\n      hOldFont = SelectObject( ::hDC, ::oFont:hFont )\n\n      do case\n         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) // 1\n              SetTextAlign( ::hDC, TA_CENTER )                      // 6\n\n         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) // 2\n              SetTextAlign( ::hDC, TA_RIGHT )                      // 2\n\n         otherwise\n              SetTextAlign( ::hDC, TA_LEFT ) // 0\n      endcase\n\n      ExtTextOut( ::hDC, 0, 0,;\n                  { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )\n      SelectObject( ::hDC, hOldFont )\n\n   endif\n\n   if ValType( ::bPainted ) == \"B\"\n      Eval( ::bPainted, ::hDC, ::cPS, Self )\n   endif\n\n   ::DispEnd( aInfo )\n\nreturn 1\n\nGracias...','',0,'AIA=','1otzw3op',1,0,'',362,0,0),(3847,978,6,295,0,'201.222.146.228',1135127659,1,0,1,1,1,1,'','','Solucionado ! muy simple, no usé la \"FWCRTLS.dll\" y el programa funciona bien con los recursos\n\nGRACIAS AMIGOS\nSaludos','',0,'AIA=','3sue74gq',1,0,'',295,0,0),(3848,867,3,241,0,'211.22.33.19',1135131623,1,0,1,1,1,1,'','Compile trouble','Johnny:\n\nThe code i summited was just a direct extract, you need to modify it for your own usage.\n\nAppend following C code to your xFWH\\..\\Tget.prg, for calling lBig5_1st( cString, nPos ) and lBig5_2nd( cString, nPos ) from PRG.  \n\np.s. GB2312-1980 with simpler range : 1st byte range: A1-F7, 2nd byte range: A1-FE\n\n\nRegards.\n\nJMS\n\n\n//===========================================================\n#pragma BEGINDUMP\n//---------------\n#include \"hbapi.h\"\n//-----------------------------\n\n// for ChineseBig5   1st(high_order) Chr( 161 - 254 ), 2nd(Low_order) Chr( 64 - 126, 161 - 254 )\nBOOL ulBig5_2nd( unsigned char * aStr,  int nPos,  int nLen )\n{\n            int  nn    ;\n   unsigned int  nAsc1 ;\n   unsigned int  nAsc2 ;\n\n   if( nLen &lt; nPos )\n      return FALSE ;\n   else if( nPos == 1 )\n      return FALSE ;\n   else if( nPos == 2 )\n   {\n      nAsc1 = aStr[0] ;\n      nAsc2 = aStr[1] ;\n\n      if( ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp;\n          ( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 ) ) )\n         return TRUE ;\n      else\n         return FALSE ;\n   }\n   else\n   {\n      nAsc1 = aStr[nPos-2] ;\n      nAsc2 = aStr[nPos-1] ;\n\n      if( ( nAsc2 &lt; 64 || ( nAsc2 &gt; 126 &amp;&amp; nAsc2 &lt; 161 ) || nAsc2 &gt; 254 ) )\n         return FALSE ;\n      else if ( nAsc1 &lt; 161 || nAsc1 &gt; 254 )\n         return FALSE ;\n      else\n      {\n         for( nn = 1 ; nn &lt; nPos; nn++ )\n         {\n            nAsc1 = aStr[nn-1] ;\n            nAsc2 = aStr[nn] ;\n\n            if( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 )\n            {\n               if( ( nAsc2 &gt;= 64 &amp;&amp; nAsc2 &lt;= 126 ) || ( nAsc2 &gt;= 161 &amp;&amp; nAsc2 &lt;= 254 ) )\n               {\n                  if( nn+1 == nPos )\n                     return TRUE ;\n                  else if( nn &lt; nPos-1 )\n                     nn ++  ;\n               }\n            }\n         };\n         if( nn &gt;= nPos )\n            return FALSE ;\n      }\n   }\n   return FALSE ;\n}\n\n//-----------------------------------------------\n\nHB_FUNC( LBIG5_1ST ) // lBig5_1st( cString, nPos )\n{\n   unsigned char * aStr = (unsigned char * ) hb_parc( 1 ) ;\n            int  nPos   = hb_parni( 2 ) ;\n            int  nLen   = hb_parclen( 1 ) ;\n   unsigned int  nAsc1           ;\n   if( nPos &lt; nLen )\n   {\n      nAsc1 = aStr[nPos-1] ;\n      if( ( nAsc1 &gt;= 161 &amp;&amp; nAsc1 &lt;= 254 ) &amp;&amp; ulBig5_2nd( aStr, nPos+1, nLen ) )\n           hb_retl(TRUE);\n      else\n         hb_retl(FALSE);\n   }\n   else\n      hb_retl(FALSE);\n}\n\n//-----------------------------------------------\n\nHB_FUNC( LBIG5_2ND ) // lBig5_2nd( cString, nPos )\n{\n   hb_retl( ulBig5_2nd( (unsigned char * ) hb_parc( 1 ), hb_parni( 2 ), hb_parclen( 1 ) ) ) ;\n}\n\n//----------------------------------------------------------------------------//\n\n//-----------------------------\n#pragma ENDDUMP\n//===========================================================','',0,'','2uqy3k9o',1,0,'',241,0,0),(3849,985,6,53,0,'200.66.175.30',1135135854,1,0,1,1,1,1,'','Preview y la rueda del ratón','Amigos, nuevamente por aquí consultandoles:\n\nUna vez que tengo la vista previa de un reporte al utilizar la rueda del ratón para hacer un scroll, el programa se cae sin mandar error alguno simplemente se sale a windows.\n\nPero si estoy en la vista ampliada, la rueda funciona bien y no se cae el programa.\n\nAlguna idea ?\n\nHarbour 45 y FWH 2.5 March 2005\n\nSaludos','',0,'','3atl1og1',1,0,'',53,0,0),(3850,867,3,314,0,'218.16.240.128',1135137877,1,0,1,1,1,0,'','Re: Compile trouble','[quote=&quot;jhncon&quot;:3k3vcw0i]Johnny:\n\nThe code i summited was just a direct extract, you need to modify it for your own usage.\n\nAppend following C code to your xFWH\\..\\Tget.prg, for calling lBig5_1st( cString, nPos ) and lBig5_2nd( cString, nPos ) from PRG.  \n\np.s. GB2312-1980 with simpler range : 1st byte range: A1-F7, 2nd byte range: A1-FE\n\n\nRegards.\n\nJMS[/quote:3k3vcw0i]\n\nJohn,\n\nI did modify tget.prg using your code the problems was the missing #pragma and #include. I will try again, thanks.\n\nJohnny','',0,'gA==','3k3vcw0i',1,0,'',314,0,0),(3851,931,3,363,0,'200.38.22.244',1135139984,1,0,1,1,1,0,'','','saludos , tengo el ADS instalado en mi Servidor Linux y todos las pruebas de conexion funcionan perfecto pero..\ncuando intento conectarme desde mi programa me marca error que no encuentra la dbf...\nalguna sugerencia.\n\nsaludos\nMaximus','',0,'gA==','58n8qedt',1,0,'',363,0,0),(3852,984,3,6,0,'87.6.210.155',1135151661,1,0,1,1,1,1,'','Re: Generate Listbox from Array','Just build an array with the field value from the records you want to show.\n\nEMG','',0,'gA==','3ecxumv8',1,0,'',6,0,0),(3853,981,1,6,0,'87.6.210.155',1135151842,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:1nxgd0n5]That’s what I thought first. But how can you prevent that someone chances the text and I need the position of the mouse.[/quote:1nxgd0n5]\n\nTry READONLY clause. For mouse position try GetCol() and GetRow() methods.\n\nEMG','',0,'gA==','1nxgd0n5',1,0,'',6,0,0),(3854,961,4,354,0,'193.77.126.60',1135152626,1,0,1,1,1,0,'','','I INCLUDE only FWCE.ch now\n\nWhen compile I get error:\ntmp.prg(16) Error E0030 Syntax error: \"parse error at \'DIALOG\'\"','',0,'gA==','3cbekrgc',1,0,'',354,0,0),(3855,961,4,6,0,'87.6.210.155',1135153103,1,0,1,1,1,1,'','','The following sample compiles fine for me:\n\n[code:3re0cnlh]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;TEST&quot;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:3re0cnlh]\n\nEMG','',0,'AIA=','3re0cnlh',1,0,'',6,0,0),(3856,968,3,2,0,'80.58.2.107',1135156014,1,0,1,1,1,1,'','','Jeff,\n\nIf the amount of found records is not too big then you could use a standard listbox (not a browse). If the amount is big then you could create a temporary DBF, copy the selected records and show them in a browse.','',0,'AIA=','5zoixrdk',1,0,'',2,0,0),(3857,961,4,354,0,'193.77.126.60',1135156167,1,0,1,1,1,0,'','','I added title to dialog... \n\nDEFINE DIALOG oDlg RESOURCE \"msgDaNe\" [b:1zul3lqn]TITLE \'BlaBla\' [/b:1zul3lqn]\n\nWithout TITLE working OK','',0,'QA==','1zul3lqn',1,0,'',354,0,0),(3858,985,6,2,0,'80.58.2.107',1135156291,1,0,1,1,1,1,'','','Armando,\n\nEl preview de FWH se ha modificado completamente, usándose ahora ficheros EMF de 32 bits, y se ha rediseñado toda la lógica de scroll de las páginas.\n\nLo idóneo es que te actualizases a la versión más reciente de FWH.','',0,'QA==','1n5d8dau',1,0,'',2,0,0),(3859,980,6,2,0,'80.58.2.107',1135156384,1,0,1,1,1,1,'','','João,\n\nCual falla ? El ES_RIGHT y ES_CENTER ?','',0,'QA==','d4z5ye35',1,0,'',2,0,0),(3860,961,4,6,0,'87.6.210.155',1135156824,1,0,1,1,1,1,'','','Ok, I confirm the problem.\n\nEMG','',0,'QA==','2drmlc2m',1,0,'',6,0,0),(3861,981,1,51,0,'80.122.88.242',1135159256,1,0,1,1,1,0,'','','Thanks Antonio, thanks Enrico,\n\nAs I need better display possibilities for my billing-software I tried several options.\n\nNow I think I found a good solution.\n\nThis is only a test if it could work but you see how I would like to do it.\nMaybe someone does like it and joins development for this “invoice-browser”\n\nRegards\nOtto\n\n\nHere is a link for a demo:  <!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice\">www.atzwanger.com/invoice</a><!-- w -->','',0,'QA==','612rzhgt',1,0,'',51,0,0),(3862,980,6,362,0,'200.168.52.156',1135160192,1,0,1,1,1,1,'','','Kreo ke si, Antonio.\n\nEjemplo:\n\nTengo um  GET, con 13 digitos: \n\nCorrecto, seria esto: 7891101901001\n\nEn lo GET:  7891... El resto... no esta visible.\n\nSaludos.','',0,'QA==','35gow05h',1,0,'',362,0,0),(3863,980,6,362,0,'200.168.52.156',1135161522,1,0,1,1,1,1,'','','Perdón.\n\nCorrecto seria esto:\n\n67.834.510/0001-65\n\nMostra / Exhibi:\n\n0/0001-65','',0,'QA==','3nl8td8w',1,0,'',362,0,0),(3864,986,6,102,0,'80.224.235.17',1135164743,1,0,1,1,1,1,'','Color en los Get\'s','Hola foro.\nTengo un dialogo con unos cuantos Gets y unos botones para activar o desactivar la edicion de los gets.\nCuando estan inactivos el color de estos tiene muy poco brillo.\nComo puedo hacer para cambiarlos el color.\nGracias','',0,'QA==','1jz75x83',1,0,'',102,0,0),(3865,64,22,52,0,'201.231.12.29',1135169292,1,0,1,1,1,1,'','','roman\nlei sobre lo que expones y parece interesante. ahora bien Antonio, no podrías ponerlo en práctica?\n\ngracias.','',0,'QA==','3cc3kbg2',1,0,'',52,0,0),(3866,987,4,364,0,'217.21.248.243',1135171680,1,0,1,1,1,0,'','msgdate()','I\'m a newbie to FWPPC so, this might sound a bit stupid.\n\nHow can i call the msgdate() function in my application?','',0,'QA==','dgs448pl',1,0,'',364,0,0),(3867,931,3,41,0,'166.114.252.26',1135171954,1,0,1,1,1,0,'','','Maximus,\n\ntienes tomar en cuenta que para conectarte a una tabla que esta en linux, debes de colocar todo el path, es decir si tienes corriendo ADS en una maquina con IP 192.168.1.10 en el puerto 3000 y tus archivos estas en /var/ads/data, entonces podrias poner\n\nSET DEFAULT TO \\\\192.168.1.10:3000\\var/ads/data\n\nEspero te sirva.\n\nsaludos\n\nMarcelo\n\n[quote=&quot;Maximus&quot;:jwqzwupd]saludos , tengo el ADS instalado en mi Servidor Linux y todos las pruebas de conexion funcionan perfecto pero..\ncuando intento conectarme desde mi programa me marca error que no encuentra la dbf...\nalguna sugerencia.\n\nsaludos\nMaximus[/quote:jwqzwupd]','',0,'gA==','jwqzwupd',1,0,'',41,0,0),(3868,961,4,13,0,'80.55.162.10',1135172080,1,0,1,1,1,0,'','','Hello,\n\ntitle clause should be declared in resource file, then works ok\neg:\n\n[code:2zn6bwkw]\nDialogId DIALOG DISCARDABLE 0, 0, 118, 50\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE \nCAPTION &quot;Dialog Title&quot;\nBEGIN\n// dialog control\nEND\n[/code:2zn6bwkw]\n\nRegards\nPawel','',0,'AIA=','2zn6bwkw',1,0,'',13,0,0),(3869,961,4,6,0,'87.6.210.155',1135172844,1,0,1,1,1,1,'','','It should work from code only.\n\nEMG','',0,'AIA=','3vxbpexk',1,0,'',6,0,0),(3870,988,4,63,0,'80.58.35.107',1135174968,1,0,1,1,1,0,'','Chage Date/Time in a File','Is there a function which permits to retrieve/exchange Date and Time of last modif. in any file.  Somethig similar to the FWH SetFDate()/GetFTime() functions?\nThanks\nRafael','',0,'AIA=','1zgblda3',1,0,'',63,0,0),(3871,989,1,258,0,'139.165.96.129',1135177018,1,0,1,1,1,0,'','Ole and Outlook','I try to use outlook with Ole and receive error message at runtime\nUNDEFINED CREATE ITEM\n\nHere is the code\n* ===\nprocedure mole()\nlocal ol,om,oatt\nol:=createoleobject(\"Outlook.Application\")\n\nom:=ol:CreateItem(0)   THE ERROR IS HERE !!!!\nom:Recipients:Add(\"jacquet@tiscali.be\")\nom:Subject:=\"Le sujet du test OLE\"\nom:Body:=\"Le message test OLE\"\noatt:=om:attachments\noatt:add(\"c:\\dmedi\\test.doc\")\nom:send()\n\nRETURN\n\n\n\nThanks for any help .\nPhilippe','',0,'AIA=','ziu1lz42',1,0,'',258,0,0),(3872,974,6,255,0,'200.67.134.233',1135177109,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2a6u2646]Acuerdate que el Workshop DAÑA algunos archivos cuando los editas, esto incluye DLLs y RES.\n\nDe todas formas es totalmente inutil trabajar con el RES, el RC se tiene que compilar al momento de generar el EXE, asi que mejor deja que el compilador se encargue del trabajo, utiliza siempre archivos .RC, no ganas nada en cuestion de desempeño del programa.[/quote:2a6u2646]\n\nYo en lo personal uso archivos .RES y me dan menos problemas\nque los .RC\nclaro, uso PELLESC.\n\nSaludos','',0,'gA==','2a6u2646',1,0,'',255,0,0),(3873,990,2,124,0,'200.82.63.146',1135177167,1,0,1,1,1,0,'','COMO EJECUTAR UN COMANDO DEL OPERATIVO COMO LO HACE DOS','Amigos del foro:\n\nNecesito ejecutar un comando del sistema operativo como lo hace DOS, es decir que ejecute el comando y luego espere a que este devuelva el resultado antes de seguir con la siguiente linea de programa.\n\nActualmente probé WinExec pero comienza la ejecucion de lo que mande en el winexec pero a la vez continúa con la ejecucion del programa desde donde se llama al winexec.\n\n¿Hay algún parámetro al winexec que modifique esto?\n¿Otro comando en reemplazo del winexec?\n\nGracias desde ya.\nRicardo.-','',0,'gA==','2x4i55lf',1,0,'',124,0,0),(3874,967,22,103,0,'200.164.92.242',1135177207,1,0,1,1,1,0,'','','Antonio,\n\n Very interesting... is there a chance to put this in a simpler way inside FWH?\n\nRegards,\n\nKleyber Derick','',0,'gA==','28g6e0vw',1,0,'',103,0,0),(3875,843,2,124,0,'200.82.63.146',1135177619,1,0,1,1,1,0,'','','Leandro:\n\nNo se si te sirva pero la empresa polaca OCT ( <!-- w --><a class=\"postlink\" href=\"http://www.otc.pl\">www.otc.pl</a><!-- w --> ) tiene un driver RDD que se llama MEDIATOR donde podes enlazar con distintas bases de datos ( mysql, sqlserver, postgresql, oracle y otras ) tus fuentes XBASE directos.\n\nYo la probé desde clipper con sqlserver y en 2 horas tenía el sistema XBASE funcionando perfectamente sobre SQLSERVER.\n\nEn este caso, en la conexion ODBC tenés que poner el IP remoto del servidor tal como te explicaron en las otras respuestas.\n\nEste gente de otc tiene tambien el RDD para xHarbour desde windows o linux.\n\nNo se si te sirva pero si tenes un soft bajo xbase esta solucion anda hasta donde probé, no necesitas programar nuevamente todo tu soft bajo SQL.\n\nSaludos.\nRicardo.-','',0,'gA==','221aw10i',1,0,'',124,0,0),(3876,757,2,124,0,'200.82.63.146',1135178260,1,0,1,1,1,0,'','','Mario:\n\nYo estoy teniendo problemas con clipper+fivewin en XP pero no es el tuyo, tengo un error WIN16 subsystem y algo que sigue que se queda sin recursos, esto solo ocurre con XP en 2000, 2003 ntfs anda ok.\n\nPasame por favor las recomendaciones de propiedades que nombrás, tal vez alguna solucione mi problema ( que te repito es otro )\n\nGracias, Mario.','',0,'gA==','3ncli92j',1,0,'',124,0,0),(3877,968,3,258,0,'139.165.96.129',1135178371,1,0,1,1,1,0,'','searching records','In other to show only the records you have found,\nplace the record number in a data base (in place of an array) and after that use the instruction SET RELATION TO','',0,'gA==','1xw9o0gr',1,0,'',258,0,0),(3878,931,3,41,0,'166.114.252.26',1135181508,1,0,1,1,1,0,'','','Maximus,\n\npero lo mejor que puedes hacer para evitarte problemas es definir un Diccionario, Advantage Data Dictionary, lo puedes hacer localmente, y luego lo copias al servifdor con Linux con todas las tablas e indices\n\nsaludos\n\nMarcelo','',0,'gA==','255chg0c',1,0,'',41,0,0),(3879,974,6,138,0,'201.128.111.75',1135184492,1,0,1,1,1,1,'','','[quote=&quot;VeRCE&quot;:k57odvry]\nYo en lo personal uso archivos .RES y me dan menos problemas\nque los .RC\nclaro, uso PELLESC.\n\nSaludos[/quote:k57odvry]\n\nAcuerdate que el compilador de recursos del Workshop es de 16 bits.... jejee por eso daña los RES y lo DLLs, con el Pelles no tienes ningun problema porque el compilador genera los RES de 32 bits.','',0,'gA==','k57odvry',1,0,'',138,0,0),(3880,983,6,138,0,'201.128.111.75',1135184856,1,0,1,1,1,1,'','','Yamil, los errores que comentas que se producen no se pueden interceptar desde programa porque son generados por ADO (programa externo), supongo que ADO tendra algun metodo que te permita interceptar el error desde programa para luego hacer lo que tu quieras','',0,'gA==','3oheoky3',1,0,'',138,0,0),(3881,990,2,138,0,'201.128.111.75',1135185217,1,0,1,1,1,1,'','','Prueba con WAITRUN(\"prog.exe\")','',0,'gA==','3fe9nxrv',1,0,'',138,0,0),(3882,991,3,365,0,'207.188.218.42',1135185696,1,0,1,1,1,0,'','TListView problem','I have tried the following:\n\n[code:3p7dzoj5]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n	oWnd &#58;= TWindow&#40;&#41;&#58;New&#40;&#41;\n	oView &#58;= TListView&#40;&#41;&#58;New&#40; 10, 10, &#123;&quot;abc&quot;,&quot;def&quot;&#125;,, oWnd,,,, &#46;t&#46;,, 30, 40, &quot;cMsg&quot; &#41;\n	oWnd&#58;Activate&#40;&#41;\nreturn &#40; nil &#41;\n[/code:3p7dzoj5]\n\nBut somehow, can not see anything for the list view.  Can anybody point out to me what I am doing wrong here.\n\n\nTIA\n\nDionie','',0,'AIA=','3p7dzoj5',1,0,'',365,0,0),(3883,992,3,51,0,'80.122.88.242',1135188189,1,0,1,1,1,0,'','Lightweight browser for invoices, bills,...','As I need better display possibilities for my software I tried several options. \nNow I think I found a good solution. \n\nThis is only a test if it could work but you see how I would like to do it. \n\nMaybe someone joins development for this “bill-browser” \n\nRegards \nOtto \n\n\nHere is a link for a demo: <!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice\">www.atzwanger.com/invoice</a><!-- w -->','',0,'AIA=','1y0brkjf',1,0,'',51,0,0),(3884,993,3,344,0,'80.18.221.53',1135188460,1,0,1,1,1,0,'','Report from Browse','In the FiveWin Programming Guide section Quick Printing techniques, there is write that is possible generating an automatic report from any Browse only with the method &lt;oBrw&gt;Report().\nI\'ve try with the TxBrowse but the method not exist!\n\nHow is possible generate a report in automatic from a TxBrowse?\n\nThank you','',0,'AIA=','1d95uqia',1,0,'',344,0,0),(3885,980,6,72,0,'201.154.189.248',1135191757,1,0,1,1,1,0,'','','Me pregunto si se logró, no respeta la alineación.\n---\n\n   if IsWindowEnabled( ::hWnd )\n      CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )\n   else\n      SetTextColor( ::hDC, ::nClrText )\n      SetBkColor( ::hDC, ::nClrPane )\n      hOldFont = SelectObject( ::hDC, ::oFont:hFont )\n      do case\n         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER )\n              SetTextAlign( ::hDC, TA_CENTER )\n         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT )\n              SetTextAlign( ::hDC, TA_RIGHT )\n         otherwise\n              SetTextAlign( ::hDC, TA_LEFT )\n      endcase\n      ExtTextOut( ::hDC, 0, 0,;\n                  { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )\n      SelectObject( ::hDC, hOldFont )\n   endif[/code]','',0,'','34192oxp',1,0,'',72,0,0),(3886,994,6,23,0,'80.58.44.235',1135191994,1,0,1,1,1,1,'','Append From','Sabeis si está funcionando 100% en harbour, o da problemas??\nGracias.\n\nEl tema es que el mismo proceso en Clipper me va bien pero en Harbour me lanza un GPF y por ahí anda un Append From.\n\nGracias.','',0,'','10ktye9o',1,0,'',23,0,0),(3887,983,6,168,0,'200.44.50.43',1135192571,1,0,1,1,1,0,'','','Gracias Rene por tu respuesta pero el caso es que xHarbour usas Try.. Catch y lo puedes capturar pero en Harbour no he conseguido la manera.\nEn otros lenguajes donde puedes usar ADO usas el correspodiente manejo de errores que te proporciona el lenguaje con On Error (guacala..!), el Try.. Catch de .NET, etc','',0,'','1p0d0aqb',1,0,'',168,0,0),(3888,989,1,6,0,'87.6.210.155',1135193055,1,0,1,1,1,1,'','Re: Ole and Outlook','I just tried to compile and run the following sample using pure xHarbour and got no error message:\n\n[code:1cpkgud6]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n\n    oItem = oOutlook&#58;CreateItem&#40; 0 &#41;\n\n    RETURN NIL[/code:1cpkgud6]\n\nEMG','',0,'AIA=','1cpkgud6',1,0,'',6,0,0),(3889,64,22,2,0,'80.58.2.107',1135194131,1,0,1,1,1,1,'','','Gustavo,\n\nEl problema es que nosotros usamos una empresa externa de hosting y no proporcionan servicio de NNTP.','',0,'AIA=','2dwvwwnk',1,0,'',2,0,0),(3890,983,6,123,0,'88.0.86.122',1135194483,1,0,1,1,1,0,'','','Yamil,\n\nUsando esto:\n\n[code:3qun5obd]       BEGIN SEQUENCE\n         &#58;&#58;oConnection&#58;Open&#40; cConnString, cUserId, cPassword, nOptions&#41;\n       RECOVER USING oError\n          lResult &#58;= &#46;F&#46;\n          MsgStop&#40;oError&#58;Operation+CRLF+oError&#58;Description,&quot;Ado Connection&quot;&#41;\n          MsgInfo&#40;&quot;Yeahhh&quot;&#41;\n       END SEQUENCE\n[/code:3qun5obd]\nDonde ::oConnection es un objeto Connection de ADO debería de capturar el error y seguir en RECOVER USING.  No obstante, esto no evita que salga el mensaje de error de ADO y los que añadas.\n\nNo obstante, si no te es mucho inconveniente, podrías usar xHarbour y dejar el código de la siguiente manera:\n\n[code:3qun5obd]       TRY\n         &#58;&#58;oConnection&#58;Open&#40; cConnString, cUserId, cPassword, nOptions&#41;\n       CATCH oError\n          lResult &#58;= &#46;F&#46;\n          MsgStop&#40;oError&#58;Operation+CRLF+oError&#58;Description,&quot;Ado Connection&quot;&#41;\n       END\n[/code:3qun5obd]\nEn este caso, el único mensaje que aparecerá es el que tu muestras con el MsgStop.   Si quieres ver algunos ejemplos y dos clases básicas para utilizar ADO con xharbour, están en <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->\n\nEspero haberte sido de ayuda.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','3qun5obd',1,0,'',123,0,0),(3891,980,6,362,0,'200.168.52.156',1135194544,1,0,1,1,1,1,'','','SI. ÉS ESTO.\n\nMIRA ESTE EJEMPLO POSTADO EN <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br\">http://www.fivewin.com.br</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=588\">http://www.fivewin.com.br/exibedicas.asp?id=588</a><!-- m -->','',0,'AIA=','3vbgmbtv',1,0,'',362,0,0),(3892,995,3,266,0,'60.50.54.12',1135209397,1,0,1,1,1,0,'','TDD class','Hi,\n\nDid anyone use TDD class (from Sandeep) ?\nOr anyone has similar solution ?\n\nThere is one found in <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w --> but when compiled showing error.\n\nRegards\nHoe','',0,'AIA=','9y0gprye',1,0,'',266,0,0),(3893,863,3,339,0,'200.217.88.217',1135211405,1,0,1,1,1,0,'','','Dear Antonio..\n\n Thanks per Help me OK.\n\n  My Dll create With XHARBOUR are End Now...\n\n\nThanks Again , i hope help Some Peoples this FORUM also...\n\nMauricio','',0,'AIA=','2pl36yeo',1,0,'',339,0,0),(3894,988,4,2,0,'80.58.2.107',1135233405,1,0,1,1,1,1,'','','Rafael,\n\nYou can use Directory() to retrieve the date and time. Here you have a working sample:\n\n[code:mwjp5yps]#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n   \n   DEFINE WINDOW oWnd TITLE &quot;DateTime&quot;\n   \n   @ 9, 2 BUTTON &quot;Date-Time&quot; ;\n      SIZE 210, 30 ACTION ShowDateTime&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n   \nreturn nil   \n\nfunction ShowDateTime&#40;&#41;\n\n   local aInfo &#58;= Directory&#40; CurDir&#40;&#41; + &quot;\\datetime&#46;exe&quot; &#41;\n\n   if Len&#40; aInfo &#41; &gt; 0\n      MsgInfo&#40; DToC&#40; aInfo&#91; 1 &#93;&#91; 3 &#93; &#41; &#41;\n      MsgInfo&#40; aInfo&#91; 1 &#93;&#91; 4 &#93; &#41;\n   endif      \n   \nreturn nil\n[/code:mwjp5yps]','',0,'AIA=','mwjp5yps',1,1135235515,'',2,1,0),(3895,961,4,354,0,'193.77.126.60',1135234636,1,0,1,1,1,0,'','','[quote=&quot;pawelu&quot;:ayidfsln]Hello,\n\ntitle clause should be declared in resource file, then works ok\neg:\n\n[code:ayidfsln]\nDialogId DIALOG DISCARDABLE 0, 0, 118, 50\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE \nCAPTION &quot;Dialog Title&quot;\nBEGIN\n// dialog control\nEND\n[/code:ayidfsln]\n\nRegards\nPawel[/quote:ayidfsln]\n\nThank you, PawelU. I know that.\nBut I need to change caption, backcolor and size of dialog later in my code, not in .RC file.\n\n\nI need a modal window with caption, backcolor and size(width,height). All this parameters are declared and known before I build the window. Is this possible in PPC?\n\nRegards, Darjo','',0,'gIA=','ayidfsln',1,0,'',354,0,0),(3896,988,4,2,0,'80.58.2.107',1135235468,1,0,1,1,1,1,'','','To change the date and time we need to use Windows API SetFileTime(). \n\nWe are going to build a sample of its use.','',0,'gIA=','1qcn418d',1,0,'',2,0,0),(3897,961,4,2,0,'80.58.2.107',1135235684,1,0,1,1,1,1,'','','Darjo,\n\nYou may do it this way:\n\n[code:s1kvkyv9]ACTIVATE DIALOG oDlg;\n   ON INIT &#40; oDlg&#58;SeText&#40; &quot;newTitle&quot; &#41;,;\n             oDlg&#58;nWidth&#40; 100 &#41;,;\n             oDlg&#58;nHeight&#40; 100 &#41;,;\n             WndCenter&#40; oDlg&#58;hWnd &#41; &#41;\n[/code:s1kvkyv9]','',0,'AIA=','s1kvkyv9',1,0,'',2,0,0),(3898,962,2,2,0,'80.58.2.107',1135236570,1,0,1,1,1,1,'','','Lubin,\n\nHay que modificar la clase TGet así:\n\n[code:3iof13yf]METHOD Paint&#40;&#41; CLASS TGet\n\n   &#46;&#46;&#46;\n\n   if IsWindowEnabled&#40; &#58;&#58;hWnd &#41;\n      CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   else\n      SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41;\n      hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oFont&#58;hFont &#41;\n      ExtTextOut&#40; &#58;&#58;hDC, 0, 0,;\n                  &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;            \n   endif                \n\n   &#46;&#46;&#46;\n[/code:3iof13yf]\n\nDe todas formas estamos mejorando ese código para que respecte la alineación es delos estilos ES_CENTER y ES_RIGHT.','',0,'AIA=','3iof13yf',1,0,'',2,0,0),(3899,980,6,2,0,'80.58.2.107',1135237531,1,0,1,1,1,1,'','','Arreglado:\n[size=75:f14nxsnx]\n[code:f14nxsnx]   if IsWindowEnabled&#40; &#58;&#58;hWnd &#41;\n      CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   else\n      SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41;\n      hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oFont&#58;hFont &#41;\n      \n      do case \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_CENTER &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_CENTER &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; / 2,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n              \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_RIGHT &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_RIGHT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; - 4,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n             \n         otherwise \n              SetTextAlign&#40; &#58;&#58;hDC, TA_LEFT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, 0,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      endcase \n\n      SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;            \n   endif                \n[/code:f14nxsnx][/size:f14nxsnx]\n\n[url=http&#58;//imageshack&#46;us:f14nxsnx][img:f14nxsnx]http&#58;//img394&#46;imageshack&#46;us/img394/6616/image10cs&#46;jpg[/img:f14nxsnx][/url:f14nxsnx]','',0,'HIA=','f14nxsnx',1,0,'',2,0,0),(3900,911,7,2,0,'80.58.2.107',1135238786,1,0,1,1,1,1,'','','Rafael,\n\nAl usar la claúsula PIXEL en los radiobuttons, determinamos el espaciado entre un radio y el siguiente. Además hemos tenido que ajustarlos para que se viesen bien, sin PIXEL, en el Pocket PC.\n\nO te refieres a otra cosa ?','',0,'HIA=','3d97wnvb',1,0,'',2,0,0),(3901,903,5,2,0,'80.58.2.107',1135238863,1,0,1,1,1,1,'','','You may also announce it at news.alaska-software.com','',0,'HIA=','p9lyjwac',1,0,'',2,0,0),(3902,989,1,258,0,'139.165.96.129',1135238928,1,0,1,1,1,0,'','fivewin ole outlook','Thanks for this answer but i wanted to do it with FW 2.3 or 2.5\nand i receive an compile error with the CREATEOBJECT instruction .\n\nThanks .\n\nPhilippe','',0,'HIA=','21397677',1,0,'',258,0,0),(3903,995,3,2,0,'80.58.2.107',1135238935,1,0,1,1,1,1,'','','Hoe, \n\nWhat is it for ?','',0,'HIA=','1rt55nh1',1,0,'',2,0,0),(3904,989,1,2,0,'80.58.2.107',1135239112,1,0,1,1,1,1,'','','Philippe,\n\nOCXs are 32 bits components. \n\nWe do recommend you to port your application to 32 bits using FiveWin for Harbour/xharbour. The 32 bits full integration will solve the problems you may find.','',0,'HIA=','2dbpq1qm',1,0,'',2,0,0),(3906,911,7,63,0,'80.58.35.107',1135240665,1,0,1,1,1,0,'','','Antonio:\nSimplemente me extrañaba que en los Radio buttons de FWPPC, la cláusula PIXEL no funciona.  En el ejemplo que incluyo, sólo se ve el primer botón \"Uno\".  Cambiando SIZE 200, 20 por SIZE 200, 80, el tamaño vertical de \"Uno\" aumenta pero siguen sin verse las demás opciones.\n\nSin la cláusula PIXEL funciona bien pero lo que yo intentaba era poder controlar el espaciado vertical entre botones.\n\nSaludos,\nRafael','',0,'HIA=','3t1evrj1',1,0,'',63,0,0),(3907,988,4,63,0,'80.58.35.107',1135240797,1,0,1,1,1,0,'','','Antonio.\nThanks. I\'ll apreciate that.  I need a certain control over the dates and times of the DBFs so that I can control their syncronization through ActiveSync\nRegards\nRafael','',0,'HIA=','3rkzdkpa',1,0,'',63,0,0),(3908,911,7,2,0,'80.58.2.107',1135240904,1,0,1,1,1,1,'','','Rafael,\n\nEntiendo. Vamos a revisarlo.','',0,'HIA=','2warppby',1,0,'',2,0,0),(3909,997,3,247,0,'87.202.28.71',1135241517,1,0,1,1,1,0,'','Word attachment','Is there a way to insert a word document into the body of the email and not as an attachement  like the microsoft outlook can?\n\nThe only thing that i see at the vb code is to insert html code ,but what happens with the images. Microsoft outlook can do this but i don\'t understand how you can do it with code.\n\nThanks\nA.S.K.','',0,'HIA=','14tr93a5',1,0,'',247,0,0),(3910,989,1,6,0,'82.61.28.173',1135246293,1,0,1,1,1,1,'','Re: fivewin ole outlook','Try replacing CREATEOBJECT() with TOleAuto():New(). But you will need of OLE2.LIB. And, as Antonio stated, I\'m not sure it will work in 16 bit.\n\nEMG','',0,'HIA=','2404e5ie',1,0,'',6,0,0),(3911,992,3,51,0,'80.122.88.242',1135248409,1,0,1,1,1,0,'','','[img:ykpfmumx]http&#58;//www&#46;atzwanger&#46;com/invoice/Clip3&#46;jpg[/img:ykpfmumx]','',0,'CA==','ykpfmumx',1,0,'',51,0,0),(3912,980,6,362,0,'200.168.52.156',1135251203,1,0,1,1,1,1,'','','Perfecto, Impecable, Antonio... Muchas Gracias... Usted és Fantástico, Increíble.\nMui Bueno.  Excelente, Noble.\n\nSolución Final:\n\n#define ES_CENTER            1\n#define ES_RIGHT             2\n#define ES_LEFT              0\n#Define TA_LEFT              0\n#Define TA_RIGHT             2\n#Define TA_CENTER            6\n\nMETHOD Paint() CLASS TGet\n\n   local aInfo := ::DispBegin()\n   Local hOldFont\n\n   if ::oBrush != nil\n      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )\n   else\n      CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )\n   endif\n\n   if IsWindowEnabled( ::hWnd )\n\n      CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )\n\n   else\n\n      SetTextColor( ::hDC, ::nClrText ) \n      SetBkColor( ::hDC, ::nClrPane ) \n      hOldFont = SelectObject( ::hDC, ::oFont:hFont ) \n      \n      do case \n         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) \n              SetTextAlign( ::hDC, TA_CENTER ) \n              ExtTextOut( ::hDC, 0, ::nWidth() / 2,                           ;\n              { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )\n              \n         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) \n              SetTextAlign( ::hDC, TA_RIGHT ) \n              ExtTextOut( ::hDC, 0, ::nWidth() - 4,                           ;\n              { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )\n              \n         otherwise \n              SetTextAlign( ::hDC, TA_LEFT ) \n              ExtTextOut( ::hDC, 0, 0,                                        ;\n              { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )\n      endcase \n\n      SelectObject( ::hDC, hOldFont )\n\n   endif\n\n   if ValType( ::bPainted ) == \"B\"\n      Eval( ::bPainted, ::hDC, ::cPS, Self )\n   endif\n\n   ::DispEnd( aInfo )\n\nreturn 1\n\nGracias También a Vagner Wirts. <!-- e --><a href=\"mailto:vwirts@ig.com.br\">vwirts@ig.com.br</a><!-- e -->\n\nSaludos, Desde São Paulo - Brazil.','',0,'CA==','1hc75nt6',1,0,'',362,0,0),(3913,998,3,125,0,'213.140.6.105',1135253764,1,0,1,1,1,0,'','More than 128 object on a dialog','Hi,\nI need to create a single dialog with more than 128 object, i CANNOT use folders.\n\nIs it a limit of  FWH ?\n\nTks','',0,'CA==','37tvk66m',1,0,'',125,0,0),(3914,961,4,354,0,'193.77.126.60',1135254533,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:29sfuyhr]Darjo,\n\nYou may do it this way:\n\n[code:29sfuyhr]ACTIVATE DIALOG oDlg;\n   ON INIT &#40; oDlg&#58;SeText&#40; &quot;newTitle&quot; &#41;,;\n             oDlg&#58;nWidth&#40; 100 &#41;,;\n             oDlg&#58;nHeight&#40; 100 &#41;,;\n             WndCenter&#40; oDlg&#58;hWnd &#41; &#41;\n[/code:29sfuyhr][/quote:29sfuyhr]\n\nA little mistake:    SeText(   -&gt;   [b:29sfuyhr]SetText([/b:29sfuyhr]\nThis working now.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nBut what about BACKGROUND color of DIALOG ?\n\nIn which help file can i find all propertis and method for classes?\nI look in FiveWinClass but the most number does\'t work (or i don\'t know how to use them ???).\n\nDarjo','',0,'wIA=','29sfuyhr',1,0,'',354,0,0),(3915,998,3,2,0,'80.58.2.107',1135254561,1,0,1,1,1,1,'','','Piscicelli,\n\nDo you create it from source code or from resources ?','',0,'wIA=','1xqhjbh3',1,0,'',2,0,0),(3916,998,3,125,0,'213.140.6.105',1135254658,1,0,1,1,1,0,'','','From source','',0,'wIA=','1h8s9c7i',1,0,'',125,0,0),(3917,999,1,367,0,'200.101.45.192',1135256072,1,0,1,1,1,1,'','Connection Remote','Y need to utilize my DBF from internet, what to build ???','',0,'wIA=','27gvd1wg',1,0,'',367,0,0),(3918,1000,3,367,0,'200.101.45.192',1135256139,1,0,1,1,1,1,'','Connection Remote','Y need to utilize my DBF from internet, what to build ???','',0,'wIA=','1fif79ok',1,0,'',367,0,0),(3919,992,3,288,0,'84.172.41.118',1135256309,1,0,1,1,1,0,'','zu teuer','99.99  für ein cola','',0,'wIA=','1j6odfkv',1,0,'',288,0,0),(3920,998,3,2,0,'80.58.2.107',1135256785,1,0,1,1,1,1,'','','Piscicelli,\n\nHere you have a working sample using 150 controls:\n\n[code:1zo298st]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, n, aValues &#58;= Array&#40; 150 &#41;\n   local nRow, nCol\n   \n   for n = 1 to Len&#40; aValues &#41;\n      aValues&#91; n &#93; = Str&#40; n, 3 &#41;\n   next    \n\n   DEFINE DIALOG oDlg TITLE &quot;More than 128 controls&quot; FROM 2, 2 TO 30, 48\n\n   n = 1\n   for nRow = 1 to 15\n      for nCol = 1 to 10\n          TGet&#40;&#41;&#58;New&#40; nRow - 0&#46;5, nCol * 2 - 0&#46;7, GenBlock&#40; aValues, n++ &#41; &#41;\n      next\n   next   \n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nfunction GenBlock&#40; aValues, n &#41;\n \nreturn bSETGET&#40; aValues&#91; n &#93; &#41;\n[/code:1zo298st]\n\nThis is how it looks:\n\n[url=http&#58;//imageshack&#46;us:1zo298st][img:1zo298st]http&#58;//img456&#46;imageshack&#46;us/img456/8015/image18pn&#46;jpg[/img:1zo298st][/url:1zo298st]','',0,'GIA=','1zo298st',1,0,'',2,0,0),(3921,1000,3,6,0,'82.61.28.173',1135256805,1,0,1,1,1,1,'','Re: Connection Remote','Have a look at the following technologies:\n\n- [x]Harbour CGI\n- ASP/xbScript\n- ASP/VBScript and VFP driver\n- ADS and remote server\n\nEMG','',0,'','2dfxxivt',1,0,'',6,0,0),(3922,962,2,348,0,'200.121.153.70',1135260681,1,0,1,1,1,0,'','Consulta adicional del color del Get Inhabilitado','Gracias por tu respuesta Antonio,  solo para aclarar, el concepto\n\nEste metodo que me envias lo debo de agregar a la clase get ??,  y de esta manera podre cambiar el Color cuando el GET esta deshabilitado?? cual seria la manera de hacerlo para cambiarlo para un color determinado???\n\n\nGracias por tu atencion a mi consulta\nLubin\n\n\n\n\n[quote=&quot;Antonio Linares&quot;:360prgm7]Lubin,\n\nHay que modificar la clase TGet así:\n\n[code:360prgm7]METHOD Paint&#40;&#41; CLASS TGet\n\n   &#46;&#46;&#46;\n\n   if IsWindowEnabled&#40; &#58;&#58;hWnd &#41;\n      CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   else\n      SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41;\n      hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oFont&#58;hFont &#41;\n      ExtTextOut&#40; &#58;&#58;hDC, 0, 0,;\n                  &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;            \n   endif                \n\n   &#46;&#46;&#46;\n[/code:360prgm7]\n\nDe todas formas estamos mejorando ese código para que respecte la alineación es delos estilos ES_CENTER y ES_RIGHT.[/quote:360prgm7]','',0,'gIA=','360prgm7',1,0,'',348,0,0),(3923,990,2,74,0,'190.48.227.114',1135262984,1,0,1,1,1,1,'','','Ricardo:\n\n             Si el sistema operativo es de la linea nt proba con shellexecute():\n\n	 If IsWinNT()\n      ShellExecute( oWnd:hWnd, \"open\" , \"Prueba.Xls\", , , )\n   Else\n      WaitRun( \'Start \' + \"excel Prueba.Xls\", 0 )\n   EndIf\n\nSaludos,','',0,'gIA=','hdp3ioh2',1,0,'',74,0,0),(3924,994,6,23,0,'80.58.44.235',1135264390,1,0,1,1,1,1,'','','Dejarlo estar, ya está solucionado.\nTenía una dbf con un nombre de campo duplicado y cascaba.','',0,'gIA=','18rsfioz',1,0,'',23,0,0),(3925,961,4,2,0,'80.58.2.107',1135266015,1,0,1,1,1,1,'','','Darjo,\n\nyes, SetText(), my mistake. \n\nUntil FWPPC gets as complete as FWH, the best way to see what is actually available is reviewing the classes source code at source\\classes.','',0,'gIA=','239tcqrs',1,0,'',2,0,0),(3926,883,20,154,0,'151.81.4.58',1135267541,1,0,1,1,1,1,'','','Grazie Pier Luigi e Enrico,\n\nma la condizione non dovrebbe essere già gestita?\n\nif ( !bOk )\n_reta(0);\nelse {\n_reta( 14 );\n_storni( ([b:3oy7buim] bOk || bInitLF [/b:3oy7buim]) ? lf.lfHeight: 0, -1, LF_HEIGHT );\n_storni( ([b:3oy7buim] bOk || bInitLF [/b:3oy7buim]) ? lf.lfWidth: 0, -1, LF_WIDTH );\n\nMi sembra che || siano OR forse in questo caso ci va un\'AND?\n... e la dimensione?','',0,'QA==','3oy7buim',1,0,'',154,0,0),(3927,1001,6,106,0,'85.34.123.172',1135267692,1,0,0,1,1,1,'','ACTIVEX','Como hago para poner la toolbar del explorer con activex?\n\nEsto no funciona:   oActiveX&#058;SetProp( \"ToolBar\",.T. )\n\n\n\nFWH27/XHB','',0,'QA==','s9gki7nl',1,0,'',106,0,0),(3928,980,6,72,0,'201.154.189.248',1135267817,1,0,1,1,1,0,'','','Bien Antonio!. Todo parece tan simple cuando ya esta hecho...\n\nNuevamente, gracias.','',0,'QA==','2awn9p40',1,0,'',72,0,0),(3929,1002,2,124,0,'200.45.180.224',1135267824,1,0,1,1,1,0,'','PROBLEMA CON BMP EN WIN2000,XP,2003 NO EN WIN9x','Amigos:\n\nEn el inicio de un programa ponemos un form con un bmp del mismo tamaño para que arranque como por ej. word, donde inicia con este form mientras carga el resto.\n\nEn Win98, 95, etc anda Ok.\n\nEn win 2000 server, 2003 server, xp lo muestra del tamaño correcto del formulario pero tiene tomado solamente 8x8 pixeles del .BMP y lo reproduce en TILE ( o sea repetido n veces en el ancho y n veces en el alto ). \n\nEl mismo exe y bmp copiados en un operativo y otro andan distintos.\n\nYa probamos con los estilos, diferentes definiciones del .bmp, etc.\n\nEs decir por lo que pruebo: solamente me toma los primeros 8x8 pixeles del bmp que le paso como parametro en XP, 2000 y 2003\n\nel fuente es:\n    PRIVATE oWndIni, oBrushIni\n    DEFINE BRUSH oBrushIni FILENAME \"EvoForm.Bmp\"\n    DEFINE DIALOG oWndIni FROM 10,10 TO 24.115, 74.4 BRUSH oBrushIni STYLE WS_POPUP\n    ACTIVATE DIALOG oWndIni CENTER NOMODAL\n\n¿Alguna idea?\n\nSaludos.\nRicardo.','',0,'QA==','3nqxran5',1,0,'',124,0,0),(3930,1000,3,367,0,'201.3.23.81',1135270848,1,0,1,1,1,1,'','','ADS and remote server, where have examples ???','',0,'QA==','11mkuzrl',1,0,'',367,0,0),(3931,1001,6,255,0,'200.67.134.233',1135272003,1,0,1,1,1,1,'','Re: ACTIVEX','[quote=&quot;pymsoft&quot;:3suriq1v]Como hago para poner la toolbar del explorer con activex?\n\nEsto no funciona:   oActiveX&#058;SetProp( \"ToolBar\",.T. )\nFWH27/XHB[/quote:3suriq1v]\n\nHola\nTe recomiendo que te bajes ActiveXXX\nEs una utileria que te permite ver todos los componentes\nactiveX que tienes instalados, ademas de que puedes\nver todos sus metodos, propiedades y eventos (aunque\nno los podamos usar con fivewin <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  )\n\n<!-- m --><a class=\"postlink\" href=\"http://activex.moonvalley.com/activexxx.htm\">http://activex.moonvalley.com/activexxx.htm</a><!-- m -->\n\nSaludos y espero te sirva','',0,'gA==','3suriq1v',1,0,'',255,0,0),(3932,995,3,266,0,'60.50.59.59',1135272342,1,0,1,1,1,1,'','','Antanio,\n\nIt is an \'incremental search\' built from Tget class.\n\neg: auto-complete when typing a string \n\nRegards\nHoe','',0,'gA==','lx5jqimr',1,0,'',266,0,0),(3933,1003,22,63,0,'80.58.35.107',1135272609,1,0,1,1,1,0,'','FWPPC: MsgYesNo() en español','Podrían incluirse en FWPPC las funciones MsgSiNo() y MsgNoSi(), por favor?\nGracias\nRafael','',0,'gA==','2qyg17j3',1,0,'',63,0,0),(3934,1000,3,266,0,'60.50.59.59',1135272689,1,0,1,1,1,1,'','','Alternate solution I use to build web application sharing data with Fivewin app :-\n\n- Apache as web server\n- ActiveFoxproPage at <!-- w --><a class=\"postlink\" href=\"http://www.afpages.com\">www.afpages.com</a><!-- w --> as dll plugin, \n  syntax similar to Clipper (instead of using asp/php)\n- html+javascript+foxpro codes to build web input form\n\nRegards\nHoe','',0,'gA==','1dbdg7bt',1,0,'',266,0,0),(3935,1002,2,2,0,'80.58.2.107',1135276900,1,0,1,1,1,1,'','','Ricardo,\n\nPrueba a usar la función MsgLogo() de FiveWin, ejemplo:\n\n[code:2oe1tbtp]   MsgLogo&#40; &quot;bitmaps\\FW&#46;bmp&quot;, 6 &#41;   // Shows a splash logo for 6 secs\n[/code:2oe1tbtp]\n\nEs no modal.','',0,'AIA=','2oe1tbtp',1,0,'',2,0,0),(3936,911,7,28,0,'62.14.200.30',1135276925,1,0,1,1,1,0,'','Radiobuttons en pixels','Antonio, seria de mucha utilidad el poder hacer algo asi:\n\nRADMENU oRadMenu\n\n@ 10, 10 RADIO OF oRadMenu ...\n@ 18, 10 RADIO OF oRadMenu ...\n\ny según veo no sería muy difícil de codificar.\n\nUn saludo\n\nPaco','',0,'AIA=','1o6cf1ji',1,0,'',28,0,0),(3937,911,7,2,0,'80.58.2.107',1135277019,1,0,1,1,1,1,'','','Paco,\n\nNo es mala idea, pero ante todo es preferible mantener compatibilidad con código anterior ó se rompen montones de aplicaciones.','',0,'AIA=','1yuj3usy',1,0,'',2,0,0),(3938,1003,22,2,0,'80.58.2.107',1135278703,1,0,1,1,1,1,'','','Rafael,\n\nPrueba a usarlas, están ya definidas como MsgYesNo() y MsgNoYes().','',0,'AIA=','17d3plxu',1,0,'',2,0,0),(3939,1003,22,63,0,'80.58.35.107',1135279998,1,0,1,1,1,0,'','','Antonio:\nSorry. Me he expresado mal.  Me refería a MsgSINO() en CASTELLANO.  Hasta ahor aparecía \"YES\" en el diálogo. En aplicaciones destinadas a usuarios españoles queda chocante.\nRafael','',0,'AIA=','2aglnhmu',1,0,'',63,0,0),(3940,1004,21,223,0,'200.204.170.177',1135281367,1,0,1,1,1,1,'','Feliz Natal para todos','Feliz Natal, e um próspero 2006, que tenhamos cada dia mais trabalho (hehehehehehe)','',0,'AIA=','nxu7ngcq',1,0,'',223,0,0),(3941,1005,4,63,0,'80.58.35.107',1135281674,1,0,1,1,1,0,'','How to create a directa access in a Pocket PC','Anybody can give a clue about how to include a direct access to a FWPPC program that is residing in the Storage Card.  I hace tried several solutions but none seems to work, at least in my PocketPC (Compaq IPAQ 3870, with Windows Mobile 2002)\nThanks\nRafael','',0,'AIA=','24r9el91',1,0,'',63,0,0),(3942,1006,2,129,0,'201.239.148.78',1135282271,1,0,1,1,1,0,'','algun ejemplo de tsbrowse con array','amigos estoy definiendo la posibilidad de hacer un pto de venta con tsbrowse, si uso dbf con alias, me sale que no reconoce y nn problemas, asi que quiero usar arreglos, alguien tiene alguna idea de como...','',0,'AIA=','1zzesllq',1,0,'',129,0,0),(3943,1005,4,63,0,'80.58.35.107',1135283229,1,0,1,1,1,0,'','','Solved:\n\nFor those wondering, like me, it is a very simple matter using ActiveSync - Explore.  Just create a direct access to your app and copy it to your Pocket\\Windows\\Start menu folder\n\nAt least, it has worked for me...\n\nRafael','',0,'AIA=','3ms3n15i',1,0,'',63,0,0),(3944,867,3,15,0,'203.73.90.202',1135286207,1,0,1,1,1,0,'','','Hello John,\n\nCould you send to me sample file and let me run it?\nBecause My friend test your code same problem with WinXP themes.\n\nRegards,\n\nRichard\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'AIA=','3sjk3yxy',1,0,'',15,0,0),(3945,1007,4,13,0,'213.76.252.200',1135287249,1,0,1,1,1,0,'','Cab install files for Pocket Pc','Hello,\n\nThis is simply (?) install procedure for exe files for Pocket Pc.\n\n1.\ninstall pocket pc 2003 sdk (it\'s include CabWiz.Exe which produce cab files for Pocket Pc)\n\n2.\ndownload EzSetup.Exe from <!-- m --><a class=\"postlink\" href=\"http://www.spbsoftwarehouse.com/products/ezsetup/download.html?en\">http://www.spbsoftwarehouse.com/product ... ad.html?en</a><!-- m -->\n(this is free software)\n\n3. Create Inf file for Pocket installation for Yoyr app eg:\n[Version]\nSignature   = \"$Windows NT$\"\nProvider    = \"YourName\"\nCESignature = \"$Windows CE$\"\n \n[CEStrings]\nAppName     = \"YourAppName\"\nInstallDir  = \"\\YourInstallDir\"\n \n[SourceDisksNames]\n1 = , \"Common Files\",,FullPathForPcExeFile\n \n[SourceDisksFiles]\nYourExeFile.Exe = 1\n \n[DefaultInstall]\nCopyFiles   = CopyToYourProg\nAddReg      = RegData\nCEShortcuts = Shortcuts   \n \n[DestinationDirs]\nCopyToYourProg  = 0, %InstallDir%\nShortcuts   = 0, %CE11%\n \n[CopyToYourProg]\n\"YourProg.Exe\", YourProg.Exe\n \n[RegData]\nHKCU,Software\\%AppName%,MajorVersion,0x00010001,1\nHKCU,Software\\%AppName%,MinorVersion,0x00010001,0\n \n[Shortcuts]\n%AppName%,0,YourProg.Exe\n\n4. Create bat file (CAB.BAT) eg:\n\"C:\\Program Files\\Windows Ce Tools\\WCe420\\Pocket PC 2003\\Tools\\CabWiz.Exe\" YourInf.Inf /err YourProg.Err /cpu PPC2003_ARM\n\n5. Create Ini file for Your app\n[CEAppManager]\nVersion = 1.0\nComponent = YourAppName\n\n[YourAppName]\nDescription = YourAppDescritpion\nIconFile = YourAppIcon.Ico\nIconIndex = 0\nDeviceFile = YourAppExe.Exe\nCabFiles = YourAppCab.CAB\n\n6. Create bat (EXE.BAT) file eg:\nEzSetup.Exe -l english -i YourApp.Ini -r Readme.Txt -e Eula.txt -o YourApp.Exe\n\n7. Create readme .txt file whiere You include inf for user\n\n8. Create eulat.txt file where You include software licence\n\nFor create installation files for Pocket Pc You will run:\n- CAB.BAt file for create cab file\n- EXE/BAt file for create install exe file for Pocket Pc\n\nRegards\nPawel','',0,'','q3sv4x46',1,0,'',13,0,0),(3946,1005,4,2,0,'80.58.2.107',1135288228,1,0,1,1,1,1,'','','Rafael,\n\nThanks for sharing the info,','',0,'','2sc2sss1',1,0,'',2,0,0),(3947,1007,4,2,0,'80.58.2.107',1135288274,1,0,1,1,1,1,'','','Pawel,\n\nThanks!','',0,'','zd6yk2tm',1,0,'',2,0,0),(3948,1003,22,2,0,'80.58.2.107',1135288378,1,0,1,1,1,1,'','','Rafael,\n\nLo más sencillo es crearlas como cajas de diálogo en recursos, ya que es dificil poder modificar la estandard que proporciona el Pocket PC.\n\nEs simple, una caja de diálogo con un SAY y dos BUTTONs.','',0,'','25bfnfsx',1,0,'',2,0,0),(3949,985,6,53,0,'148.221.252.222',1135289000,1,0,1,1,1,1,'','','Antonio:\n\nGracias por la respuesta, me he portado bien todo el año espero que Santa cumpla mi deseo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos, Armando','',0,'','2fg9h6zf',1,0,'',53,0,0),(3950,757,2,147,0,'208.51.141.113',1135289966,1,0,1,0,1,1,'','','Entras en las Propiedades del acceso directo, luego pulsas sobre el botón Propiedades Avanzadas y activás \"Ejecutar en otro espacio de memoria\".  Luego, seleccionas la pestaña \"Compatibilidad\" y le activas la compatibilidad según el sistema operativo en el que se ejecuta bien (por ej. Windows 98)\n\nespero solucione tu problema\nSaludos','',0,'','3bdsdgyq',1,0,'',147,0,0),(3951,1008,3,69,0,'65.92.79.84',1135299446,1,0,1,1,1,0,'','Merry Christmas','Hi Everybody,\n\nI just wanted to wish you all a Very Merry Christmas and a Happy New Year.\n\nI also want to thank you all for the help over the past year.  \nYou are the best. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nJeff Barnes','',0,'','hub9krji',1,0,'',69,0,0),(3952,983,6,168,0,'200.109.112.66',1135299773,1,0,1,1,1,0,'','','Gracias Jose Luis por la confirmacion de mis sospechas.\nEs una lastima que Harbour no ofrezca esta facilidad, quizas por ahora asi que voy a usar xHarbour\n\nSaludos y gracias','',0,'','20j48yi1',1,0,'',168,0,0),(3953,1000,3,138,0,'201.128.111.75',1135301539,1,0,1,1,1,1,'','','[quote=&quot;Kleyton&quot;:3fn9t82d]ADS and remote server, where have examples ???[/quote:3fn9t82d]\n\nCheck these samples:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">http://www.google.d2g.com/ads/demos/</a><!-- m -->\n\nThere are several samples, written in different GUIs,  they all connect to our DBFs in mexico via internet using the RDD ADS and Advantage Internet Server.\n\nSource code included.\n\nForgot to mention.... open ports 2000 and 2001 if you are working behind a firewall.','',0,'gA==','3fn9t82d',1,0,'',138,0,0),(3954,998,3,125,0,'81.208.36.80',1135304478,1,0,1,1,1,0,'','','Great !\nSo there is no limit ?\nI can put on a single dialog 500 BUTTON to indicate the rooms of an hotel ?\n\nI will try.\n\nMany tks\nHi','',0,'gA==','4y1x726a',1,0,'',125,0,0),(3955,3,3,125,0,'81.208.36.80',1135304609,1,0,1,1,1,0,'','','It will be bery nice to download all this news and then use them on notebook during week-end (with no internet connection)','',0,'gA==','1hcn3y9v',1,0,'',125,0,0),(3956,1008,3,55,0,'59.92.114.230',1135308257,1,0,1,1,1,0,'','Re: Merry Christmas','Merry Christmas to all members of Wonderful Fivewin Community.\n\nLet us all enjoy this wonderful week with full of joy and peace.\n\nSandeep','',0,'gA==','1u5nqbdz',1,0,'',55,0,0),(3957,995,3,55,0,'59.92.114.230',1135308349,1,0,1,1,1,0,'','','I can send the updated version if you want.\n\nGive me your mail ID\n\nSandeep','',0,'gA==','k4pus2um',1,0,'',55,0,0),(3958,1000,3,55,0,'59.92.114.230',1135308733,1,0,1,1,1,0,'','','-xBScript + ASP\n\nAlmost 100% compatible to xHarbour code\n\nSandeep','',0,'gA==','3trznz4u',1,0,'',55,0,0),(3959,1008,3,2,0,'80.58.2.107',1135316729,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=945\">http://fivetechsoft.com/forums/viewtopic.php?t=945</a><!-- m -->','',0,'gA==','20rvy04u',1,0,'',2,0,0),(3960,995,3,2,0,'80.58.2.107',1135316823,1,0,1,1,1,1,'','','Sandep,\n\nPlease upload it to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and provide here the download link. Thanks.','',0,'gA==','2ob6qm2j',1,0,'',2,0,0),(3961,998,3,2,0,'80.58.2.107',1135316921,1,0,1,1,1,1,'','','Pisicelli,\n\nYes, no limit. You can put 500 controls or more. As much as you need <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','14vlhcos',1,0,'',2,0,0),(3962,1009,3,160,0,'210.212.142.6',1135317417,1,0,1,1,1,0,'','Unit of measurement of Dialog box From Clause','Hello All,\n\nMerry Christmas to everybody !!!\n\nI will like to know :\nWhat is the Unit of measurement used in Dialog Box From ---- To------- clause while building from source code (when PIXEL clause is not used).\n\nI will also like to know from experienced programmars :\nWhat is better practice : to make dialog box from resources or source code ?\n\nTIA\nMilan.','',0,'gA==','g242jivm',1,0,'',160,0,0),(3963,1010,16,2,0,'80.58.2.107',1135323902,1,0,1,1,1,1,'','FWPPC new build - GET multilines','There is a new FWPPC build already available. It supports multiline GETs controls. Please review provided samples\\TestMemo.prg:\n\n[url=http&#58;//imageshack&#46;us:1d0zjvg1][img:1d0zjvg1]http&#58;//img392&#46;imageshack&#46;us/img392/4021/image29ih&#46;jpg[/img:1d0zjvg1][/url:1d0zjvg1]','',0,'GA==','1d0zjvg1',1,1135620730,'',2,1,0),(3964,1011,4,2,0,'80.58.2.107',1135323971,1,0,1,1,1,1,'','New FWPPC build','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1010\">http://fivetechsoft.com/forums/viewtopic.php?t=1010</a><!-- m -->','',0,'GA==','nxfi71ic',1,0,'',2,0,0),(3965,1012,7,2,0,'80.58.2.107',1135323998,1,0,1,1,1,1,'','Nuevo build FWPPC','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1010\">http://fivetechsoft.com/forums/viewtopic.php?t=1010</a><!-- m -->','',0,'GA==','13p2x7pe',1,0,'',2,0,0),(3966,1007,4,13,0,'213.76.252.200',1135324348,1,0,1,1,1,0,'','','Sample:\n\nWe have program Test.Exe located in C:\\Projects\\Test dir.\nPocket Pc install dir is \\Test.\n\nTest.Inf file source\n\n[Version]\nSignature   = \"$Windows NT$\"\nProvider    = \"Test Inc.\"\nCESignature = \"$Windows CE$\"\n \n[CEStrings]\nAppName     = \"Test\"\nInstallDir  = \"\\Test\"\n \n[SourceDisksNames]\n1 = , \"Common Files\",,C:\\Projects\\Test\n \n[SourceDisksFiles]\nTest.Exe = 1\n \n[DefaultInstall]\nCopyFiles   = CopyToTest\nAddReg      = RegData\nCEShortcuts = Shortcuts   \n \n[DestinationDirs]\nCopyToTest  = 0, %InstallDir%\nShortcuts   = 0, %CE11%\n \n[CopyToTest]\n\"Test.Exe\", Test.Exe\n \n[RegData]\nHKCU,Software\\%AppName%,MajorVersion,0x00010001,1\nHKCU,Software\\%AppName%,MinorVersion,0x00010001,0\n \n[Shortcuts]\n%AppName%,0,Test.Exe\n\nCab.Bat file source\n\n@Echo Off\n\"C:\\Program Files\\Windows Ce Tools\\WCe420\\Pocket PC 2003\\Tools\\CabWiz.Exe\" Test.Inf /err Test.Err /cpu PPC2003_ARM\n\nTest.Ini file source\n\n[CEAppManager]\nVersion = 1.0\nComponent = Test\n\n[MoBi]\nDescription = Test, the best program in the world \nIconFile = Test.Ico\nIconIndex = 0\nDeviceFile = Test.Exe\nCabFiles = Test.PPC2003_ARM.CAB\n\nExe.Bat file source\n\n@Echo Off\nEzSetup.Exe -l english -i Test.Ini -r Readme.Txt -e Eula.txt -o TestSetup.Exe\n\n1. Run Cab.Bat\n2. Run Exe.Bat\n3. Install software using TestSetup.Exe (Active Sync must be installed)\n\nPawel','',0,'','2om4v63b',1,0,'',13,0,0),(3967,1008,3,130,0,'141.51.32.24',1135326263,1,0,1,1,1,0,'','Re: Merry Christmas','Merry Christmas and a Happy New Year','',0,'','a0id8euk',1,0,'',130,0,0),(3968,1001,6,106,0,'85.34.123.172',1135328429,1,0,0,1,1,1,'','','Juan Carlos: gracias por la info. Ya lo bajé, veo todas las propiedades, metodos, etc., lo que quiero hacer es ponerle la ToolBar a la ventana de Explorer.\n\nPregunta, por cual motivo no se puede acceder a las propiedades del activex?\nEntonces si es así, es justo que no me funcione? o sea, no puedo poner la toolbar.','',0,'','1n4ixsmb',1,0,'',106,0,0),(3969,1008,3,154,0,'151.81.4.103',1135332313,1,0,1,1,1,1,'','','Merry Christmas and Happy New Year to all FW\'s\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2ha3ngpx',1,0,'',154,0,0),(3970,1008,3,6,0,'82.59.188.235',1135332748,1,0,1,1,1,1,'','','Merry Christmas!!!\n\nEMG','',0,'','3220q47u',1,0,'',6,0,0),(3971,1009,3,6,0,'82.59.188.235',1135333379,1,0,1,1,1,1,'','Re: Unit of measurement of Dialog box From Clause','The unit simulates the text mode character size.\n\nUsing resources or not is a matter of your personal preference. Personally I prefer resources because it is easier to design the dialogs.\n\nEMG','',0,'','103mnnbl',1,0,'',6,0,0),(3972,1008,3,339,0,'201.8.40.235',1135334214,1,0,1,1,1,0,'','','Merry Christmas!!!','',0,'','1dk12rpw',1,0,'',339,0,0),(3973,901,3,2,0,'80.58.2.107',1135335961,1,0,1,1,1,1,'','','Ugo,\n\nPlease read this important information:\n\n&gt;&gt;\nThe one bit of trickery in this code is the value used for the size of the font, the lfHeight parameter to CreateFont(). Usually people are used to working with Point sizes, Size 10, Size 12, etc... when dealing with fonts. CreateFont() however doesn\'t accept point sizes, it wants Logical Units which are different on your screen than they are on your Printer, and even between Printers and screens. \n\nThe reason this situation exists is because the resolution of different devices is so vastly different... Printers can easily display 600 to 1200 pixels per inch, while a screen is lucky to get 200... if you used the same sized font on a printer as on a screen, you likely wouldn\'t even be able to see individual letters. \n\nAll we have to do is convert from the point size we want, into the appropriate logical size for the device. In this case the device is the screen, so we get the HDC to the screen, and get the number of logical pixels per inch using GetDeviceCaps() and slap this into the formula so generously provided in MSDN which uses MulDiv() to convert from our pointsize of 12 to the correct logical size that CreateFont() expects. We store this in lfHeight and pass it as the first parameter to CreateFont(). \n&gt;&gt;','',0,'','1sp9o30e',1,0,'',2,0,0),(3974,901,3,2,0,'80.58.2.107',1135336051,1,0,1,1,1,1,'','','Ugo,\n\nThis is the right code for your sample:\n\n[code:p0zdt1l4]\n   aFont &#58;= Array&#40; 14 &#41;\n   aFont&#91;LF_FACENAME&#93;   &#58;= ALLTRIM&#40;StrToken&#40;cFont,1,&quot;|&quot; &#41;&#41;\n   aFont&#91;LF_WIDTH&#93;      &#58;= VAL&#40; StrToken&#40; cFont, 2, &quot;|&quot; &#41;&#41;\n   aFont&#91;LF_HEIGHT&#93;     &#58;= Int&#40; -VAL&#40; StrToken&#40; cFont, 3, &quot;|&quot; &#41; &#41; * GetDeviceCaps&#40; hDC &#58;= GetDC&#40; GetDesktopWindow&#40;&#41; &#41;, LOGPIXELSY &#41; / 72 &#41;\n   ReleaseDC&#40; GetDesktopWindow&#40;&#41;, hDC &#41;\n[/code:p0zdt1l4]\n\nYou may use the hDC of the printer, if it is a font for to be printed.','',0,'AIA=','p0zdt1l4',1,0,'',2,0,0),(3975,1001,6,2,0,'80.58.2.107',1135336704,1,0,1,1,1,1,'','','Pedro,\n\nMe puedes enviar esa utilidad por email ? gracias.','',0,'AIA=','6ncjxxj3',1,0,'',2,0,0),(3976,1013,6,336,0,'80.58.10.235',1135338084,1,0,0,1,1,0,'','Como saber que IDs estan definidos en un recurso','Hola,\nbueno, pues lo dicho, quisiera saber si hay modo de conocer los IDs definidos en un Diálogo conociendo el nombre del diálogo, sin tener que definirlo y eso. En realidad me valdría aunque los tuviera que definir, pero antes del activate dialog.\nEs para no tener que declarar a mano los say transparentes. Si les asigno un rango de IDs predefinido, recorro los id del diálogo y si esta en el rango le hago el redefine correspondiente.\n\nSaludos','',0,'AIA=','17lh9psg',1,0,'',336,0,0),(3977,998,3,125,0,'213.140.6.105',1135338465,1,0,1,1,1,0,'','','Try this:\nCode: \n#include \"FiveWin.ch\" \n\nfunction Main() \n\n   local oDlg, n, aValues := Array( 150 ) \n   local nRow, nCol \n    \n   for n = 1 to Len( aValues ) \n      aValues[ n ] = Str( n, 3 ) \n   next    \n\n   DEFINE DIALOG oDlg TITLE \"More than 128 controls\" FROM 0, 2 TO 35, 90\n\n   n = 1 \n   for nRow = 1 to 20\n      for nCol = 1 to 15 \n       bsave := ERRORBLOCK( { |x| BREAK(x)} )\n       BEGIN SEQUENCE\n        TGet():New( nRow - 0.5, nCol * 2 - 0.7, GenBlock( aValues, n++ ) )\n        RECOVER USING objError\n        msginfo(\"This is my Limit: \"+str(n))\n        quit\n      END\n      ERRORBLOCK(bsave)  // Restore handler    \n      next \n   next    \n\n   ACTIVATE DIALOG oDlg CENTERED \n\nreturn nil \n\nfunction GenBlock( aValues, n ) \n  \nreturn bSETGET( aValues[ n ] ) \n \n\nI Got a messare of 152 max limit (under W98se /XP)\n\nHi','',0,'','2xov0fvp',1,0,'',125,0,0),(3978,1014,6,336,0,'80.58.10.235',1135338520,1,0,0,1,1,0,'','Inconvenientes con MAPI y Outlook','Hola de nuevo,\n\nEn una aplicación envío mails con TMail() y funciona muy bien. El único inconveniente es que aparce el aviso de \"Un programa está intentando enviar correo en su nombre... etc\" y el usuario tiene que darle aceptar.\nCon Outlook Express no hay problemas: En las opciones de seguridad hay una opción para desactivar el aviso, pero no le he encontrado en Outlook standar. Me resulta imprescindible que no aparezca el aviso porque se realiza un envío masivo, y el aviso, además, hace una espera de 5 segundos con un progressbar por cada correo, lo que lo hace inusable.\nY por cuestiones de exigencia del cliente, tengo que usar si o si este método, no me vale tsmtp\n\nSaludos','',0,'','fu6bk1ac',1,0,'',336,0,0),(3979,1015,20,125,0,'213.140.6.105',1135338802,1,0,1,1,1,0,'','dove reperire Sample batch x Xharbour','Ciao a tutti,\nHo tirato giu\' da xharbour.org xharbour x bcc ma non ci ono ne sample .prg ne .bat di compilazione.\nHo provato a chiederli alle news di xharbour e mi hanno detto che devo comprarmi xharbour.......\nMa non era possibile usarlo gratis?\nDove trovo un po di sample e bacth di compilazione?\nMa Xharbour free ha anche le GUI o e\' solo carattere ?\nIo comunque ho le fwh 24\n\nCiao  tutti Bon Natale e Felice 2006\n\nPiscicelli/Zingoni','',0,'','n6va5iqb',1,0,'',125,0,0),(3980,998,3,2,0,'80.58.2.107',1135341454,1,0,1,1,1,1,'','','Piscicelli,\n\nYou have to increase the aValues size, thats all:\n\nlocal oDlg, n, aValues := Array( 300 ) \n\nIt works ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2fju9dc8',1,0,'',2,0,0),(3981,1015,20,6,0,'82.59.188.235',1135341721,1,0,1,1,1,1,'','Re: dove reperire Sample batch x Xharbour','[quote=&quot;Piscicelli Zingoni&quot;:2f924002]Ciao a tutti,\nHo tirato giu\' da xharbour.org xharbour x bcc ma non ci ono ne sample .prg ne .bat di compilazione.\nHo provato a chiederli alle news di xharbour e mi hanno detto che devo comprarmi xharbour.......\nMa non era possibile usarlo gratis?[/quote:2f924002]\n\nForse non hai capito bene la risposta. Quello era solo un consiglio non un obbligo. Se si trova difficoltà ad organizzarsi lo strumento da soli allora c\'è la possibilità di avere tutto già pronto per l\'uso.\n\nAd ogni modo, eccoti un batch di compilazione per un singolo PRG (controlla i percorsi):\n\n[code:2f924002]@ ECHO OFF\nSET HARBOURCMD=/a /es2 /gc0 /m /n /q /w2\nSET INCLUDE=c&#58;\\xharbour\\include;c&#58;\\bcc55\\include\nIF EXIST %1&#46;prg c&#58;\\xharbour\\harbour %1\nSET HARBOURCMD=\nSET INCLUDE=\nIF EXIST %1&#46;c c&#58;\\bcc55\\bin\\bcc32 +c&#58;\\xharbour\\xharbour&#46;cfg -c %1&#46;c\nIF EXIST %1&#46;obj c&#58;\\bcc55\\bin\\ilink32 c0x32 %1&#46;obj, %1&#46;EXE @c&#58;\\xharbour\\xharbour&#46;rsp\nIF ERRORLEVEL 1 PAUSE\nIF NOT ERRORLEVEL 1 IF EXIST %1&#46;exe %1\nIF EXIST %1&#46;c DEL %1&#46;c\nIF EXIST %1&#46;obj DEL %1&#46;obj\nIF EXIST %1&#46;tds DEL %1&#46;tds[/code:2f924002]\n\ndove XHARBOUR.CFG è\n\n-5\n-DHB_FM_STATISTICS_OFF\n-DHB_GUI\n-DHB_NO_PROFILER\n-DHB_NO_TRACE\n-DHB_WIN32_IO\n-g50\n-Ic:\\xharbour\\include;c:\\bcc55\\include\n-j5\n-k-\n-O1\n-O2\n-OS\n-Ov\n-v-\n-WC\n-w\n-w-inl-\n\ne XHARBOUR.RSP è\n\n/ap +\n/Gn +\n/Lc:\\xharbour\\lib;c:\\bcc55\\lib;c:\\bcc55\\lib\\psdk +\n/x\n\nrtl.lib +\nvm.lib +\ncommon.lib +\nlang.lib +\ngtwin.lib +\nrdd.lib +\ndbffpt.lib +\ndbfntx.lib +\ndbfcdx.lib +\nhbsix.lib +\nmacro.lib +\npcrepos.lib +\nhbodbc.lib +\nhbzip.lib +\nct.lib +\nimport32.lib +\ncw32.lib +\nodbc32.lib +\ndebug.lib\n\n[quote:2f924002]Ma Xharbour free ha anche le GUI o e\' solo carattere ?[/quote:2f924002]\n\nSolo console. Ma ci sono delle librerie GUI gratuite tipo la MiniGUI.\n\n[quote:2f924002]Io comunque ho le fwh 24[/quote:2f924002]\n\nNon credo tu la potrai utilizzare con l\'ultima release ufficiale di xHarbour a causa di variazioni interne di quest\'ultimo.\n\nEMG','',0,'gIA=','2f924002',1,0,'',6,0,0),(3982,901,3,154,0,'151.81.4.103',1135343396,1,0,1,1,1,1,'','','Great Antonio,\nNow I set -12 in my array after apply your conversion and the Value is 16\nThis value is passed to Choose font and correctly I see preset 12 !!!\n\nGOOD !! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAfter choosefont the dimension is 16!!! <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nIs necessary reconvert the value for obtain -12.\n\nIs possible to insert this features directly in Choosefont?\nWith 2 parameter ChooseFont( aFont, hDC ) ?  <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nHave You found also the Solution for Cancel and X Button?\n\nPier Luigi write this solution:\nif ( !bOk )\n_reta(0);\nelse {\n_reta( 14 );\n_storni( ( bOk || bInitLF ) ? lf.lfHeight: 0, -1, LF_HEIGHT );\n_storni( ( bOk || bInitLF ) ? lf.lfWidth: 0, -1, LF_WIDTH ); \n\nI think that the problem is in bOk [b:3bn0i8nu]||[/b:3bn0i8nu] bInitLF!\n\nGood work.','',0,'QA==','3bn0i8nu',1,0,'',154,0,0),(3983,1001,6,106,0,'85.34.123.172',1135343701,1,0,0,1,1,1,'','','Antonio, ya enviado por email.','',0,'QA==','3c22sgd6',1,0,'',106,0,0),(3984,901,3,2,0,'80.58.2.107',1135344149,1,0,1,1,1,1,'','','Ugo,\n\n&gt; Is necessary reconvert the value for obtain -12.\n\nYou may do the same calculations again.\n\n&gt; Is possible to insert this features directly in Choosefont? \n\nI have thought about it, but I am afraid we may break existing code.\n\n&gt; Have You found also the Solution for Cancel and X Button?\n\nYes, already fixed, though we return an array of 14 elements, all nil.','',0,'QA==','2owsgr2b',1,0,'',2,0,0),(3985,1015,20,154,0,'151.81.4.103',1135344537,1,0,1,1,1,1,'','','Ciao,\nalla risposta di Enrico potrei aggiungerti che se hai scaricato dal cvs l\'ultima versione devi anche compilare xHarbour e, nella cartella xHarbour, oltre tutti i sorgenti trovi anche la cartella tests con i vari esempi tipo samples di FWH!\n\nper compilare xHarbour potresti usare:\n[code:1p7tpyq8]@ ECHO OFF\nSET PATH=C&#58;\\Borland\\BCC55\\bin;c&#58;\\WORK\\djgpp\\bin;%PATH%\nSET DJGPP=c&#58;\\DJGPP\\DJGPP&#46;ENV\nSET HB_LEX=SIMPLEX\nCALL C&#58;\\BCC55\\Bin\\setb55\nCALL make_b32 clean\nCALL make_b32\n\nRem COMPILA HELP\ncd \\WORK\\xharbour\\doc\n&#46;&#46;\\bin\\hbdoc /chm xharbour&#46;lnk xharbour&#46;rsp\n[/code:1p7tpyq8]\n\nDevi però aver installato DJGPP e Borland.\n\nLa seconda parte prevede anche la compilazione della documentazione.\n\nCiao, \nUgo','',0,'AIA=','1p7tpyq8',1,0,'',154,0,0),(3986,1015,20,6,0,'82.59.188.235',1135344790,1,0,1,1,1,1,'','','[quote:8dj9tfyg]CALL C:\\BCC55\\Bin\\setb55[/quote:8dj9tfyg]\n\nQuesto setb55 non fa parte del Borland.\n\nEMG','',0,'gA==','8dj9tfyg',1,0,'',6,0,0),(3987,1016,20,154,0,'151.81.4.103',1135345105,1,0,1,1,1,1,'','Finestre [dialog/window] senza bordo!','Ho provato a compilare con FWH2.7 e xHarbour 0.99.51 il testprn2 ma esce senza la finestra quella del titolo e dei 3 bottoni in alto a destra, vedi da allegato <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nQualche suggerimento?\n\nP.S. come si allega un file?[/img]','',0,'','315lbsoh',1,0,'',154,0,0),(3988,901,3,154,0,'151.81.4.103',1135345276,1,0,1,1,1,1,'','','Antonio,\n&gt; You may do the same calculations again.\nYes.\n\n&gt; &gt; Have You found also the Solution for Cancel and X Button?\n&gt; Yes, already fixed, though we return an array of 14 elements, all nil.\n\nCan you send to me?\nThanks.','',0,'','1pj7fozp',1,0,'',154,0,0),(3989,1001,6,2,0,'80.58.2.107',1135348014,1,0,1,1,1,1,'','','Gracias, Pedro.\n\nLas propiedades se cambian correctamente, como se puede comprobar así:\n\n[code:3ezjvw4l]\n   oActiveX&#58;SetProp&#40; &quot;StatusBar&quot;, &#46;t&#46; &#41;\n   MsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;StatusBar&quot; &#41; &#41;\n[/code:3ezjvw4l]\n\nPero no se ve en pantalla.','',0,'AIA=','3ezjvw4l',1,0,'',2,0,0),(3990,1017,3,205,0,'81.205.236.20',1135348075,1,0,1,1,1,0,'','ZipArchive','I\'ve dowloaded the latest FTDN xHarbour + FiveWin and recompiled all files.\nNew .EXE are created without errors and work fine.\nExcept for one; if I link in ZIPARCHIVE.LIB I get the error:\nUnresolved external _hb_stack referenced from ZIPARCHIVE.LIB|zip\nI\'m sure I use the latest fiveHC.lib and fiveHX.lib\nIf I download HBzip.LIB from the contrib page of xHarbour.org I get the same error...\nWhat should I do ?\n\nBest regards,\nKlaas den Dekker','',0,'AIA=','tuge2vcx',1,0,'',205,0,0),(3991,901,3,2,0,'80.58.2.107',1135348111,1,0,1,1,1,1,'','','Ugo,\n\nJust change this:\n\n[code:1spesl0i]\nif &#40; !bOk &#41; \n   _reta&#40; 14 &#41;; \n&#46;&#46;&#46;\n[/code:1spesl0i]','',0,'AIA=','1spesl0i',1,0,'',2,0,0),(3992,1016,20,2,0,'80.58.2.107',1135348376,1,0,1,1,1,1,'','','Ugo,\n\nUpload the image here: <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us\">http://www.imageshack.us</a><!-- m --> and later post the url they provide, here.','',0,'AIA=','8wjybnot',1,0,'',2,0,0),(3993,1010,16,224,0,'162.83.94.176',1135349213,1,0,1,1,1,1,'','','Antonio, thanks for this Christmas present! Just added the get to my project. Nice.\n\nMerry Christmas to all,','',0,'AIA=','yo3gzops',1,0,'',224,0,0),(3994,1010,16,63,0,'80.58.35.107',1135350354,1,0,1,1,1,0,'','','Has hecho la modificación muy rápidamente.  Muchas gracias, Antonio. Y Felices Fiestas!\nRafael','',0,'AIA=','4yqp9mbr',1,0,'',63,0,0),(3995,1018,1,51,0,'80.122.88.242',1135351651,1,0,1,1,1,0,'','Focus  oWnd','I have a window with oGets, oSays and other controls.\n\nI would like to control the input with: \n\n    oWnd:bkeyChar :={|nKey|iif( nKey == K_LEFT,  msginfo(\"TASTE\") )}\n\nBut after the first keystroke or if I insert some text in a get-field\nI am not able to bring back  focus to oWnd.\n\nI tried oWnd:SetFocus() but with no success. \n\nAlso up-, down-, right-, left-key does not give back a value.\n\nThanks in advance\nOtto','',0,'AIA=','c6tltrf8',1,0,'',51,0,0),(3996,1018,1,6,0,'82.59.188.235',1135352843,1,0,1,1,1,1,'','Re: Focus  oWnd','Try oGet:SetFocus() instead.\n\nEMG','',0,'AIA=','1zir5psz',1,0,'',6,0,0),(3997,1001,6,106,0,'85.34.123.172',1135353221,1,0,0,1,1,1,'','','Habrá que hacer un refresh o algo, pero ya probé tambien eso y no me funciona.','',0,'AIA=','28uennla',1,0,'',106,0,0),(3998,1001,6,106,0,'85.34.123.172',1135355273,1,0,0,1,1,1,'','','Parecería ser que la barra se la hace uno como quiere  <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nhay que poner una barra de botones, y en ellos llamar a la cada uno de los metodos... goHome, goBack, etc...\n\nBueno, luego que regrese de las navidades, lo haré con calma.\n\nFelicidades a todos.','',0,'AIA=','381ptxv8',1,0,'',106,0,0),(3999,1018,1,51,0,'80.122.88.242',1135356481,1,0,1,1,1,0,'','','Enrico, thank you for your help. But I don’t need focus on the get-field.\nWhat I would like is to navigate the browser with the keys.\nAt the moment I only can use the mouse.\nIf you have time please see the screen capture.\n\nIf I enter something into the address I can’t pass focus back to the window itself.\n\nAlso cursor-key do not work.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/for_emg.jpg\">www.atzwanger.com/invoice/for_emg.jpg</a><!-- w -->\n\nThanks in advance\nOtto','',0,'AIA=','2q0j1zh1',1,0,'',51,0,0),(4000,1008,3,78,0,'200.121.39.26',1135356820,1,0,1,1,1,0,'','','Merry Christmas!!!\n\nRegards\nWilli','',0,'AIA=','ije2hm5j',1,0,'',78,0,0),(4001,1019,6,219,0,'201.138.86.44',1135356921,1,0,1,1,1,0,'','Reporte de Asignamiento de Memoria','Hola compañeros:\n\nTengo una aplicación, pero al salir simpre me genera un log :\n\nMemory Allocation Report\nApplication: F:\\Precos\\Precos.Exe\nxHarbour Version: xHarbour build 0.99.50 Intl. (SimpLex)\nCompiler: Borland C++ 5.5.1\nPlatform: Windows XP Professional 5.01.2600 Service Pack 2\nTime Occured: 2005.12.23 10:16:23\nTotal 14171 allocations (5043 reallocation), of which 14170 freed.\nHighest total allocated 2430816 bytes in 9500 blocks.\nWARNING! Memory allocated but not released: 24 bytes (1 blocks)\nBlock 1 00D2B8C4 (size 24) KEYBON(0), \"0080000000000000FC9EE40011000000000000008C66E800\"\n--------------------------------------------------------------------------------\n\n¿Cual es el motivo o que me estará faltando?\n\nSaludos y MUY FELIZ NAVIDAD A TODOS.\n\nLES DESEA SU AMIGO jOSÉ LUIS AGUILAR SANCHEZ\nMEXICO','',0,'AIA=','3shk1pmb',1,0,'',219,0,0),(4002,1018,1,67,0,'83.134.58.137',1135357494,1,0,1,1,1,0,'','','Try with 	SetActiveWindow(oWnd:hWnd)\n\n\nFrank','',0,'AIA=','1948kvc7',1,0,'',67,0,0),(4003,1020,4,13,0,'213.76.252.200',1135358068,1,0,1,1,1,0,'','Readonly multiline','Antonio,\n\nIs there a method to make readonly multiline like a readonly get (with gray look) ? In this moment readonly multiline still locked but looks like standard multiline.\n\nRegards\nPawel','',0,'AIA=','134gz0vm',1,0,'',13,0,0),(4004,1018,1,51,0,'80.122.88.242',1135358721,1,0,1,1,1,0,'','','Thanks Frank,\nI tried but with no success. Cursor remains in the get-field.\nOtto','',0,'AIA=','3nzefpek',1,0,'',51,0,0),(4005,1020,4,2,0,'80.58.2.107',1135359405,1,0,1,1,1,1,'','','Pawel,\n\nPlease try to change its color, using the clause ... COLOR ..., ...','',0,'AIA=','3t7isddp',1,0,'',2,0,0),(4006,1018,1,2,0,'80.58.2.107',1135359601,1,0,1,1,1,1,'','','Otto,\n\nTry oGet:oJump := oWnd','',0,'AIA=','g2zb14i7',1,0,'',2,0,0),(4007,1008,3,195,0,'62.38.108.13',1135359627,1,0,1,1,1,0,'','','[b:3pnhyz28]Merry Christmas  and a happy new and prosperity 2006 !![/b:3pnhyz28]\n\nTo all FiveWiners of this wonderful  NG\n\nAnd especially to Antonio for his continious valued help !!!\n\nGreetings  from Greece\n\nDionisis','',0,'QA==','3pnhyz28',1,0,'',195,0,0),(4008,1019,6,2,0,'80.58.2.107',1135359746,1,0,1,1,1,1,'','','Jose Luis,\n\nEstás construyendo tú xHarbour ? O de donde lo descargas ?\n\nPrueba con este: <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'QA==','18d7whco',1,0,'',2,0,0),(4009,1018,1,51,0,'80.122.88.242',1135360684,1,0,1,1,1,0,'','','Antonio,\n\nI put a small example on:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoiceWithGet.zip\">www.atzwanger.com/invoice/invoiceWithGet.zip</a><!-- w -->\n\nIf you comment \n//    @ 1 , 1 GET oGet     VAR   cTest      OF oWnd        SIZE 75,17\n\nkeys work - up/down/left/right do not work.\n\nWith the getfield I only can use the mouse to navigate.\nRegards\nOtto','',0,'QA==','8jgy550a',1,0,'',51,0,0),(4010,920,6,152,0,'200.113.118.53',1135361384,1,0,1,1,1,0,'','','Antonio : \nEl ejemplo que mencionas funciona perfecto. Sin embargo mi programa sigue sin funcionar. Lo que estoy haciendo es mover registros desde un browse a otro browse. Uso el wBrowse de Hernan y lo defino en un archivo RC. \n\nEstoy simplemente mostrando un mensaje al hacer el drop pero, aun asi no funciona :\n\n oLbxDocto:bDropOver := { || MsgAlert(\"Drop\") }\n\nGracias','',0,'QA==','1ktypcue',1,0,'',152,0,0),(4011,1019,6,219,0,'201.138.86.44',1135363380,1,0,1,1,1,0,'','','Antonio;\n\nBajé el binario desde xHarbour de <!-- w --><a class=\"postlink\" href=\"http://www.xrabour.org\">www.xrabour.org</a><!-- w -->.\n\nGracias, lo probaré.\n\nSaludos\n\nJosé Luis','',0,'QA==','2m0ado1k',1,0,'',219,0,0),(4012,1019,6,219,0,'201.138.86.44',1135363662,1,0,1,1,1,0,'','','perdon escribí mal.\n\nBajé el binario desde xHarbour de <!-- w --><a class=\"postlink\" href=\"http://www.XHARBOUR.org\">www.XHARBOUR.org</a><!-- w -->.\n\nGracias, lo probaré.\n\nSaludos\n\nJosé Luis[/quote]','',0,'','bchvoiw4',1,0,'',219,0,0),(4013,1018,1,6,0,'82.59.188.235',1135364692,1,0,1,1,1,1,'','','Sorry but with your sample I can\'t use the arrow keys to navigate the browser at all. I can\'t even keep the focus off the get.\n\nEMG','',0,'','12iha81u',1,0,'',6,0,0),(4014,1021,6,61,0,'201.217.145.241',1135365862,1,0,1,1,1,0,'','FELIZ NAVIDAD!!!!!','Amigos:\n\nMuy FELIZ NAVIDAD para todos. \nGracias por estar siempre.\n\nReciban Uds. y familia un fuerte abrazo \n\nde: Jorge (la razón de seguir, mi hijo). Estela (mi señora, \nincomparable compañera de todos los tiempos) y mios\nRuben Fernandez.','',0,'','g7fpihn7',1,0,'',61,0,0),(4015,920,6,2,0,'80.58.2.107',1135365924,1,0,1,1,1,1,'','','Gonzalo,\n\nTe ha funcionado anteriormente el drag&amp;drop con el browse de Hernán ?','',0,'','1ayqz7cf',1,0,'',2,0,0),(4016,1021,6,2,0,'80.58.2.107',1135365972,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=945\">http://fivetechsoft.com/forums/viewtopic.php?t=945</a><!-- m -->','',0,'','25mjl2hk',1,0,'',2,0,0),(4017,1018,1,51,0,'80.122.88.242',1135366282,1,0,1,1,1,0,'','','Sorry Erico, \n\noWnd:bkeyChar :={|nKey|iif( nKey == K_ENTER , msginfo(\"ENTER\"), msginfo(str(nKey)) )}\n\nwas only to show, that up/down/left/right don\'t return a value.\n\nChange to:\n\n   oWnd:bkeyChar :={|nKey|iif( nKey == K_ENTER ,(  oWnd:oVScroll():SetPos(  nPos:=nPos+1),f_code()) ,)}\n\nComment the oGetLine and delete  oGet:oJump := oWnd\n\nthan you can navigate down with the Enter-key.\n\nOn click shows the record .\n\nSaluti\nOtto','',0,'','2ifhqbt3',1,0,'',51,0,0),(4018,1022,19,69,0,'65.92.148.108',1135366315,1,0,1,1,1,0,'','OT: On-Screen Ruler','Hi,\n\nI came accross this useful little tool.  It puts a ruler on the screen (I found it useful when designing screens) and tells you the \"pixel\" number etc...\n\nIt is FREE and can be downloaded here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.spadixbd.com/freetools/?referrer=JRulerUser\">http://www.spadixbd.com/freetools/?referrer=JRulerUser</a><!-- m -->\n\nJeff','',0,'','2juaeaks',1,0,'',69,0,0),(4019,1021,6,43,0,'201.127.43.111',1135367350,1,0,1,1,1,0,'','','Feliz Navidad y Prospero Año Nuevo.\n\n   Que este año que viene, sea de bienestar para cada uno de Uds. y su familia.\n\n\nSaludos\n\n  Marco A. Delgado.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','8pepwwm4',1,0,'',43,0,0),(4020,1021,6,228,0,'200.106.209.78',1135368318,1,0,1,1,1,1,'','De verdad que se lo merecen','De verdad que se lo merecen, FELIZ NAVIDAD, colegas esperando que el señor los llene de benciones. Un fuerte abrazo. Y gracias por toda la ayuda que me han podido brindar este año.','',0,'','16wf0y9u',1,0,'',228,0,0),(4021,1021,6,103,0,'201.9.241.46',1135368982,1,0,1,1,1,0,'','','Feliz Navidad a todos ustedes y que en el año que viene se pueda hacer mucho más con Fivewin  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos,\n\nKleyber Derick','',0,'','c334rrha',1,0,'',103,0,0),(4022,1023,6,228,0,'200.106.209.78',1135369008,1,0,1,1,1,1,'','Libreria ctl3d.dll','Compañeros del foro, estoy aqui contento pasando prg a 32 bits, pero me surge una duda.\n\nEn 16 bits yo usaba la libreria ctl3d.dll, para tener efecto de 3d en mis aplicaciones.\n\nCual debo usar en 32 bits.\n\nUn abrazo\nLEANDRO ALFONSO','',0,'','2gyz8kqo',1,0,'',228,0,0),(4023,1008,3,103,0,'201.9.241.46',1135369066,1,0,1,1,1,0,'','','Merry Christimas to all of you  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nBest Regards,\n\nKleyber Derick','',0,'','2chnkk0o',1,0,'',103,0,0),(4024,998,3,125,0,'194.243.7.199',1135369306,1,0,1,1,1,0,'','','Ops!\nIt is time i go on holiday.\nSorry\nTks','',0,'','2i17mrhk',1,0,'',125,0,0),(4025,998,3,2,0,'80.58.2.107',1135370562,1,0,1,1,1,1,'','','You are welcome, no problem <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','37p4rwo7',1,0,'',2,0,0),(4026,1023,6,2,0,'80.58.2.107',1135370662,1,0,1,1,1,1,'','','Leandro,\n\nNinguna, no hace falta en 32 bits <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2x2kg09v',1,0,'',2,0,0),(4027,920,6,152,0,'200.113.118.53',1135373124,1,0,1,1,1,0,'','','Antonio:\n\nHasta ahora funciona perfecto pero, bajo Win98.','',0,'','16u6da66',1,0,'',152,0,0),(4028,1016,20,1,0,'151.81.1.185',1135373161,1,0,1,1,1,0,'','','Le immagini sui bottoni e sul brush non le ho messe volutamente,\ne la prova in questo caso è del test fwbrow.prg come nel precedente non si vede la finestra esterna... vedi allegato:\n\n[url=http&#58;//imageshack&#46;us:3o0c45l4][img:3o0c45l4]http&#58;//img418&#46;imageshack&#46;us/img418/3041/fwbrow4al&#46;jpg[/img:3o0c45l4][/url:3o0c45l4]','',0,'GA==','3o0c45l4',1,0,'',1,0,0),(4029,1008,3,15,0,'203.73.90.202',1135374101,1,0,1,1,1,0,'','','Hello FWHs, \n\n[b:1sm62oa0]Merry Christimas [/b:1sm62oa0] <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nI wish your have wonderful everything for 2006.\n\n[b:1sm62oa0]Happy New Year[/b:1sm62oa0]\n\nRegards,\n\nRichard','',0,'QA==','1sm62oa0',1,0,'',15,0,0),(4030,1018,1,6,0,'82.59.188.38',1135375904,1,0,1,1,1,1,'','','Can you send me the fixed sample? I can\'t get it to work.\n\nEMG','',0,'QA==','3h7a7auk',1,0,'',6,0,0),(4031,1018,1,51,0,'80.122.88.242',1135377842,1,0,1,1,1,0,'','','<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoiceforemg.zip\">www.atzwanger.com/invoice/invoiceforemg.zip</a><!-- w -->\n\nHallo Enrico,\nI uploaded the file.\nRegards \nOtto','',0,'QA==','18ljjxz4',1,0,'',51,0,0),(4032,901,3,154,0,'151.81.1.185',1135380109,1,0,1,1,1,1,'','','Antonio,\ni modified the fonts.c and i added to my project but I receive this message:\n\n[code:2t14q8li]Bcc32&#46;Exe -M -c -O2  -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -Ic&#58;\\work\\fwh\\include -Ic&#58;\\work\\BCC55\\Include;c&#58;\\work\\xHarbour\\Include  -nObj Source\\fonts&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nSource\\fonts&#46;c&#58;\nWarning W8017 Source\\fonts&#46;c 28&#58; Redefinition of \'CHOOSEFONT\' is not identical\nWarning W8019 Source\\fonts&#46;c 371&#58; Code has no effect in function GETFONTNAM\niLink32&#46;Exe -Gn -aa -Tpe -s @InfoFiat&#46;bcl\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\n[/code:2t14q8li]\n\nand not run correctly!\n\nThanks for suggestion.','',0,'AIA=','2t14q8li',1,0,'',154,0,0),(4033,1024,6,215,0,'201.144.62.197',1135381118,1,0,1,1,1,0,'','¿Cómo imprimo dos copias con TOle ?','Saludos Gente\nBueno, si puedo imprimir pero solo una copia. ¿Cómo envio dos copias?\nSolo he podido enviar una asi\n\noExcel:ActiveWorkbook:PrintOut()\n\nSaludos\nFernando','',0,'AIA=','g1dkfwyi',1,0,'',215,0,0),(4034,1021,6,215,0,'201.144.62.197',1135381326,1,0,1,1,1,0,'','Eso mero !!!!','No le pido nada a los Santos Reyes ni al Panza Clos... solo a Don Antonio Linares... más funcionalidad pa fivewin.\n\nMuchoooo\n\nHip, jeliz año tambien.','',0,'AIA=','jtd1sgix',1,0,'',215,0,0),(4035,901,3,2,0,'80.58.2.107',1135416277,1,0,1,1,1,1,'','','Whats your code at line 371 ?','',0,'AIA=','2pozsr5z',1,0,'',2,0,0),(4036,1008,3,51,0,'80.122.88.242',1135417647,1,0,1,1,1,0,'','','Merry Christmas from Tyrol/Austria   Otto','',0,'AIA=','39e2btn6',1,0,'',51,0,0),(4037,1018,1,6,0,'82.61.69.127',1135421247,1,0,1,1,1,1,'','','Do I have to uncomment the GET? Can you explain what is exactly the problem?\n\nEMG','',0,'AIA=','1fwp8d1y',1,0,'',6,0,0),(4038,1008,3,163,0,'82.56.161.97',1135421813,1,0,1,1,1,0,'','Merry Christmas','Merry Christmas to all.','',0,'AIA=','3shtjs8k',1,0,'',163,0,0),(4039,1017,3,2,0,'80.58.2.107',1135432383,1,0,1,1,1,1,'','','Klaas,\n\nThose LIBs (ZIPARCHIVE.LIB, HBzip.LIB) need to be recompiled again. \n\nIts not a FWH issue, its a harbour/xharbour recent modification.','',0,'AIA=','39frm5oi',1,0,'',2,0,0),(4040,1018,1,51,0,'80.122.88.242',1135432810,1,0,1,1,1,0,'','','Enrico,\ndoes the exe work on your side.\nIf yes you can scroll down with the enter-key or with a mouse-click on the scrollbar.\nbut if you have a getfield -for example to get the address - on the window too, focus is on the getfield and you can\'t navigate anymore with the keys.\n\nI had a look at the wbrowse class maybe I have to make a control out of this source. But I never worked with classes.\nI changed the wbrowse-class like this:\nInserted the method: ShowSomething\nBut there is no text on the screen. \n\nI wish you a Merry Christmas.\n\nOtto\n\nMETHOD ShowSomething() CLASS TWBrowse\n    local oWnd:= ::oWnd\n @ 5,5 Say \"TEST NEU\"              of oWnd\n\n @ 15,15 Say \"TEST NEU\"   of ::oWnd\n @ 25,25 Say \"TEST NEU\"            of oWnd\n\n\n @ 35,35 Say \"TEST NEU\"            of oWnd\n\n @ 55,55 Say \"TEST NEU\"            of oWnd\n\n ::oWnd:say( 0, 0, \"TESTTSTSTSTSS\" ,255,16777215,::oFont,.T.)\n ::oWnd:say( 50, 50, \"TESTTSTSTSTSS\",255,16777215,::oFont,.T.)\n\n ::oWnd:say( 5, 5, \"TESTTSTSTSTSS\" ,255,16777215,::oFont,.T.)\nreturn nil','',0,'AIA=','2d0q3vzo',1,0,'',51,0,0),(4041,1018,1,6,0,'82.61.69.127',1135433167,1,0,1,1,1,1,'','','Now I understood. No, you can\'t trap the arrow keys when the focus in on a GET, as far as I know.\n\nEMG','',0,'AIA=','1u6sxrdm',1,0,'',6,0,0),(4042,1025,3,6,0,'82.61.69.127',1135433721,1,0,1,1,1,1,'','Bug in comm.c','The following sample freezes with the latest FWH (it worked ok with a previous FWH release):\n\n[code:nsmajxg0]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cTxt &#58;= &quot;&quot;\n\n    LOCAL nCom\n\n    DEFINE DIALOG oDlg;\n           SIZE 500, 500;\n           TITLE &quot;Terminal&quot;\n\n    @ 0, 0 GET oGet VAR cTxt MEMO\n\n    oGet&#58;bKeyDown = &#123; | nKey | Tasti&#40; nCom, nKey &#41; &#125;\n    oGet&#58;bKeyChar = &#123; | nKey | 0 &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oGet&#58;Move&#40; 0, 0, 500, 500 &#41;,;\n                       nCom &#58;= APRICOM&#40; oDlg, oGet &#41;,;\n                       IF&#40; nCom &lt; 0, oDlg&#58;End&#40;&#41;, &#41; &#41;;\n             CENTER\n\n    IF nCom &gt;= 0; CLOSECOMM&#40; nCom &#41;; ENDIF\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TASTI&#40; nCom, nKey &#41;\n\n    SENDSTR&#40; nCom, CHR&#40; nKey &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION APRICOM&#40; oDlg, oGet &#41;\n\n    LOCAL nCom, cDcb\n\n    BEGIN SEQUENCE\n        nCom = OPENCOMM&#40; &quot;COM1&quot;, 16384, 16384 &#41;\n\n        IF nCom &lt; 0\n            ? &quot;Errore di apertura della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        BUILDCOMMDCB&#40; &quot;COM1&#58;115200,N,8,1&quot;, @cDcb &#41;\n\n        IF !SETCOMMSTATE&#40; cDcb &#41;\n            ? &quot;Errore di impostazione della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        oDlg&#58;bCommNotify = &#123; | nCom | Connect&#40; nCom, oGet &#41;,;\n                                      EnableCommNotification&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41; &#125;\n\n        IF !ENABLECOMMNOTIFICATION&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41;\n            ? &quot;Errore di abilitazione della notifica&#46;&quot;\n            BREAK\n        ENDIF\n    RECOVER\n        nCom = -1\n    END SEQUENCE\n\n    RETURN nCom\n\n\nSTATIC FUNCTION CONNECT&#40; nCom, oGet &#41;\n\n    ENABLECOMMNOTIFICATION&#40; nCom, 0, 1, -1 &#41;\n\n    oGet&#58;Append&#40; RECEIVESTR&#40; nCom &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDSTR&#40; nCom, cString &#41;\n\n    LOCAL nBytes &#58;= WRITECOMM&#40; nCom, cString &#41;\n\n    RETURN nBytes = 0 &#46;OR&#46; nBytes = LEN&#40; cString &#41;\n\n\nSTATIC FUNCTION RECEIVESTR&#40; nCom &#41;\n\n    LOCAL cBuf &#58;= SPACE&#40; 1000 &#41;\n\n    RETURN LEFT&#40; cBuf, READCOMM&#40; nCom, @cBuf &#41; &#41;[/code:nsmajxg0]\n\nEMG','',0,'AIA=','nsmajxg0',1,0,'',6,0,0),(4043,901,3,154,0,'151.81.6.206',1135434206,1,0,1,1,1,1,'','','line 371:\n\n[code:2gsl8bk7]     FreeProcInstance&#40; &#40; FARPROC &#41; EnumFontsCallBack &#41;;\n[/code:2gsl8bk7]','',0,'AIA=','2gsl8bk7',1,0,'',154,0,0),(4044,901,3,2,0,'80.58.2.107',1135444536,1,0,1,1,1,1,'','','Ugo,\n\nFom Win32 docs:\n\n&gt;&gt;\nThe FreeProcInstance function is obsolete. \n\nThis function is provided only for compatibility with 16-bit versions of Windows. Win32-based applications should not use this function; it has no meaning in the 32-bit environment. \n&gt;&gt;\n\nThose both are just warnings, that you can safely ignore.','',0,'AIA=','1lav40m1',1,0,'',2,0,0),(4045,1026,6,371,0,'87.218.146.203',1135444612,1,0,1,1,1,0,'','Necesito 2 programas','Hola a todos:\n\nNecesito a ver si me podeis echar una mano a buscar 2 programas:\n\n1er programa:\nMirar acabo de montar un TPV (Terminal Punto de Venta), es un parque infantil (una ludoteca) y estoy como loco buscando algun programa que me sirva para cobrar con la pantalla tactil he probado muchos pero ninguno merece la pena y queria saber si sabeis de alguno que sea bueno y que no este enfocado solamente a restaurantes y que se le pueda poner algún tipo de restricción a los empleados.\n\n2º Programa:\nBusco algún programa para bloquear programas o funciones en una cuenta limitada. Para que no se pueda usar el explorer ni instalar programas.\n\nUn saludo','',0,'AIA=','3tipjs1h',1,0,'',371,0,0),(4046,1025,3,2,0,'80.58.2.107',1135444626,1,0,1,1,1,1,'','','Enrico,\n\nFWH COMM functions are still buggy. They should not be used <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','lhcdlo83',1,0,'',2,0,0),(4047,1025,3,6,0,'82.61.69.127',1135444952,1,0,1,1,1,1,'','','It maybe but it seems to be worst in the latest release. I can send you the latest working comm.c if you want.\n\nEMG','',0,'AIA=','2w6mbdab',1,0,'',6,0,0),(4048,1018,1,2,0,'80.58.2.107',1135445845,1,0,1,1,1,1,'','','Otto,\n\nIf there is a control on the window, then it will have the focus, and the input events (keystrokes, mouse) will get routed to it. \n\nIf you need to edit on the screen, you may use a GET, but you need to destroy it, or to hide it, once you are finish with it, so the input events will not go through it.\n\nYour code is ok. I guess you are close to get what you want.','',0,'AIA=','3mcqm1uf',1,0,'',2,0,0),(4049,1025,3,2,0,'80.58.2.107',1135445936,1,0,1,1,1,1,'','','Enrico,\n\nYes, please email me the comm.c that was working for you. Thanks.','',0,'AIA=','2ww0yk4z',1,0,'',2,0,0),(4050,1021,6,73,0,'200.95.72.112',1135446181,1,0,1,1,1,0,'','Re: Eso mero !!!!','Pues como siempre, bendito foro, y que la paz, la armonia, el amor, la salud, el trabajo, fruto de todos nosotros, alcancen llenos de sabiduria los objetivos y retos de sus vidas...\nsinceramente...\nUn programador muy muy muy agradecido...\nSu Amigo\nFrancisco Horta','',0,'AIA=','2rlvggq8',1,0,'',73,0,0),(4051,1025,3,2,0,'80.58.2.107',1135446667,1,0,1,1,1,1,'','','Enrico,\n\nYes, please replace the actual comm.c with the previous one. We thought it was going to provide a better functionality, but no, things get worse.\n\nI don\'t want to blame MS but I can\'t understand how they don\'t provide this functionality built-in as it was on 16 bits, same as there is no a DrawBitmap() for a GUI since the early days of Windows...\n\nThats why we were doing some research on mscomm32.ocx','',0,'AIA=','31aav6z6',1,0,'',2,0,0),(4052,1025,3,6,0,'82.61.69.127',1135448005,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:10dgvm95]Enrico,\n\nYes, please replace the actual comm.c with the previous one. We thought it was going to provide a better functionality, but no, things get worse.[/quote:10dgvm95]\n\nI already done so. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote:10dgvm95]I don\'t want to blame MS but I can\'t understand how they don\'t provide this functionality built-in as it was on 16 bits, same as there is no a DrawBitmap() for a GUI since the early days of Windows...[/quote:10dgvm95]\n\nI agree. The MS guy who designed the API layer did not make a good work for me.\n\n[quote:10dgvm95]Thats why we were doing some research on mscomm32.ocx[/quote:10dgvm95]\n\nI would prefer the current APIs that don\'t need any additional component.\n\nEMG','',0,'gA==','10dgvm95',1,0,'',6,0,0),(4053,1025,3,2,0,'80.58.2.107',1135451900,1,0,1,1,1,1,'','','Enrico,\n\n&gt; I would prefer the current APIs that don\'t need any additional component. \n\nMe too. \n\nAnyhow, lets work to properly implement COMM support for 32 bits.','',0,'gA==','3qvk7mxx',1,0,'',2,0,0),(4054,1021,6,45,0,'201.252.196.200',1135454228,1,0,1,1,1,0,'','Re: Eso mero !!!!','Bueno aqui estoy, estuve ausente unas semanitas, pero he vuelto  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nLes mando un saludo a todos los compañeros del foro, y que la pasen lindo y terminen bien el año y comiencen un 2006 mucho mejor.\n\nHernan  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2bakag3y',1,0,'',45,0,0),(4055,1008,3,190,0,'202.65.134.46',1135471307,1,0,1,1,1,0,'','','Merry Christmas to all FW community members and their families.\n\n- Ramesh Babu P','',0,'gA==','3szilgpa',1,0,'',190,0,0),(4056,1021,6,78,0,'201.240.227.235',1135474903,1,0,1,1,1,0,'','','FELIZ NAVIDAD PARA TODOS.....\n\nSalu2\nWilli <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'gA==','3jtq6kgv',1,0,'',78,0,0),(4057,1026,6,252,0,'201.140.20.11',1135479326,1,0,1,1,1,0,'','PV para restaurantes','Fui a un demostracion de un programa PV que lo puedes parametrizar para manejo de restuarantes, los menus estan enfocados al uso de pantallas tactiles. Se llama Ventpaq, puedes bajar un demo de <!-- w --><a class=\"postlink\" href=\"http://www.compac.com.mx\">www.compac.com.mx</a><!-- w -->.\n\n\n    Espero te sirva esta informacion.\n\n    Saludos.\n\n    Jose Rios','',0,'gA==','19ctqe6j',1,0,'',252,0,0),(4058,1027,6,295,0,'201.222.152.149',1135484749,1,0,1,1,1,1,'','Feliz navidad Foro, Antonio, rene y todos fivewineros!!','Que esta navidad y el año que viene traiga fortaleza a todos nosotros y los gurues antonio y rene y fivewineros que nunca muera fivewin !! felicidades  y bendiciones para todos.. hermanos!! \n\nsaludos!! y abrazos!!','',0,'gA==','52ltzyfk',1,0,'',295,0,0),(4059,1021,6,295,0,'201.222.152.149',1135485057,1,0,1,1,1,1,'','','que dios este con todos Ustedes y que abra vuestras mentes y alimente vuestra inquietud por lo que mas nos gusta .. programar nuestras aplicaciones en five win .. muchas felicidades para todos, sus familias y amigos..\n abrazos y saludos amigos!!','',0,'gA==','5zvrpvx3',1,0,'',295,0,0),(4060,1018,1,51,0,'80.122.88.242',1135494334,1,0,1,1,1,0,'','','Thanks Antonio,\nis it possible to group all the code for browsing in a own control, so that I have on one hand the get-fields and on the other the browse.\nRegards \nOtto','',0,'gA==','2utti10w',1,0,'',51,0,0),(4061,1028,3,2,0,'80.58.2.107',1135500483,1,0,1,1,1,1,'','FWH on Vista Beta 2','[url=http&#58;//imageshack&#46;us:21beggqi][img:21beggqi]http&#58;//img476&#46;imageshack&#46;us/img476/1051/fwhvista12if&#46;jpg[/img:21beggqi][/url:21beggqi]\n\n[url=http&#58;//imageshack&#46;us:21beggqi][img:21beggqi]http&#58;//img476&#46;imageshack&#46;us/img476/2379/fwhvista21dh&#46;jpg[/img:21beggqi][/url:21beggqi]\n\n[url=http&#58;//imageshack&#46;us:21beggqi][img:21beggqi]http&#58;//img454&#46;imageshack&#46;us/img454/9697/fwhvista32eo&#46;jpg[/img:21beggqi][/url:21beggqi]','',0,'GA==','21beggqi',1,0,'',2,0,0),(4062,1029,6,2,0,'80.58.2.107',1135500612,1,0,1,1,1,1,'','FWH en Vista Beta 2','[url=http&#58;//imageshack&#46;us:3bzmskuc][img:3bzmskuc]http&#58;//img476&#46;imageshack&#46;us/img476/1051/fwhvista12if&#46;jpg[/img:3bzmskuc][/url:3bzmskuc]\n\n[url=http&#58;//imageshack&#46;us:3bzmskuc][img:3bzmskuc]http&#58;//img476&#46;imageshack&#46;us/img476/2379/fwhvista21dh&#46;jpg[/img:3bzmskuc][/url:3bzmskuc]\n\n[url=http&#58;//imageshack&#46;us:3bzmskuc][img:3bzmskuc]http&#58;//img454&#46;imageshack&#46;us/img454/9697/fwhvista32eo&#46;jpg[/img:3bzmskuc][/url:3bzmskuc]','',0,'GA==','3bzmskuc',1,0,'',2,0,0),(4063,1018,1,2,0,'80.58.2.107',1135500985,1,0,1,1,1,1,'','','Otto,\n\nYes, of course. You may use source\\classes\\TPanel.prg as a skeleton to build your own browse control, so your browse will just respond to input events when it has the focus.\n\nYou may need to add it the WS_TABSTOP style.','',0,'GA==','el3g5srr',1,0,'',2,0,0),(4064,1030,6,157,0,'62.15.236.73',1135512743,1,0,1,1,1,0,'','Problemas con variables PUBLIC','Hola a todos y FELICES FIESTAS\n\nHasta ahora autilizaba la declaracion de PUBLIC para aquellos parametros que eran comunes a toda la aplicacion, las declaraba en el fichero de inicio, normalmente el que contiene el menu general, y luego las utilizo en todos los demas PRG declarandolas en cada funcion sin ningun problema. Pero en la ultima compilacion que he hecho, recibo el mensaje siguiente:\n\nWARNING W0001 Ambiguous reference; \'cPath\'  (cPtah es la variable)\n y asi con todas la variables PUBLIC que uso en cada .PRG. El programa funciona pero me temo que algo no va bien.\n\nAlguna idea ??\n\nGracias y saludos','',0,'GA==','3gcng0yg',1,0,'',157,0,0),(4065,1028,3,15,0,'203.73.90.16',1135515196,1,0,1,1,1,0,'','','Hello Antonio,\n\nLooks great!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSame as my test.\n\nRegards,\n\nRichard','',0,'GA==','38mmt3yv',1,0,'',15,0,0),(4066,1031,4,289,0,'212.138.64.177',1135519792,1,0,1,1,1,0,'','the short message Sms','Antonio  I wait for the program of the short message Sms\nregards, hathal \n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','wrtsf2ru',1,1136229910,'',289,1,0),(4067,1030,6,2,0,'87.218.146.203',1135524724,1,0,1,1,1,1,'','','Tienes que declarar las variables en los PRGs en los que uses las variables como MEMVAR cPath, ... al comienzo del PRG.','',0,'GA==','ecegj7xi',1,0,'',2,0,0),(4068,1030,6,157,0,'62.15.82.181',1135529488,1,0,1,1,1,0,'','','Gracia Antonio ya funciona bien. \nAntes declaraba las PUBLIC en el modulo que las creaba y las redeficnia y utilizaba en las funciones que lo precisaban sin mas. Otra cosa aprendida.\nPor cierto que es FWH en Vista Beta 2 ??\n\nSaludos de Paco Carrasco','',0,'GA==','1xl771ra',1,0,'',157,0,0),(4069,1030,6,2,0,'80.58.2.107',1135530076,1,0,1,1,1,1,'','','Paco,\n\nSon imágenes de unos ejemplos de FWH funcionando en una versión beta de lo que será la nueva versión de Windows llamada Vista, en el 2006.','',0,'GA==','26uc530m',1,1135538942,'',2,1,0),(4070,1030,6,157,0,'62.15.82.181',1135531932,1,0,1,1,1,0,'','','graciasssss','',0,'GA==','1ytbmhrp',1,0,'',157,0,0),(4071,1018,1,51,0,'80.122.88.242',1135539135,1,0,1,1,1,0,'','','Hello Antonio,\n\nTPanel works.\n\nWhere I have problems is with the up,down,left,right-keys.\nDo I have to change twindow?\n\nI don\'t know how to use: WS_TABSTOP style\nso I tried to do it with the VALID case.\nIs this a bad solution?\n\nYou find my code on <!-- m --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoiceFor\">http://www.atzwanger.com/invoice/invoiceFor</a><!-- m --> Antonio.zip \n\n  @ 1 , 1 GET oGet   VAR   cTest   OF oPanelAddress    SIZE 100,17 VALID (oPanelBody:SetFocus(),.t.)\n\n\nThanks in advance\nOtto\n\n\n\nMETHOD KeyDown( nKey, nFlags ) CLASS TWBrowse\n\n   do case\n      case nKey == VK_UP\n           ::GoUp()\n\n      case nKey == VK_DOWN\n           ::GoDown()\n\n      case nKey == VK_LEFT\n           ::GoLeft()\n\n      case nKey == VK_RIGHT\n           ::GoRight()\n\n      case nKey == VK_HOME\n           ::GoTop()\n\n      case nKey == VK_END\n           ::GoBottom()\n\n      case nKey == VK_PRIOR\n           if GetKeyState( VK_CONTROL )\n              ::GoTop()\n           else\n              ::PageUp()\n           endif\n\n      case nKey == VK_NEXT\n           if GetKeyState( VK_CONTROL )\n              ::GoBottom()\n           else\n              ::PageDown()\n           endif\n\n      otherwise\n           return Super:KeyDown( nKey, nFlags )\n   endcase\n\nreturn 0','',0,'GA==','1gjhzlm2',1,0,'',51,0,0),(4072,1015,20,125,0,'81.208.36.80',1135540755,1,0,1,1,1,0,'','','Io attualmente uso Harbour con FWH24\nMi apre di capire che XHARBOUR e\' meglio o comunque piu\' aperto.\nDomando a chi lo usa gia\':\nE\' anche piu stabile?\nHa anche un suo IDE o e\' solo interfaccia carattere?\nPosso contiunuare ad usarlo con le FWH24o posso anche farne a meno (!?)\n\nDove posso reperire Xharbour  (free) completo con i test/batch o e\' meglio prelevarlo dal CVS ? (non so niente del CSV!!)\n\nBuon Natale e grazie\n\nPiscicelli/Zingoni','',0,'GA==','3dcwhrfk',1,0,'',125,0,0),(4073,1015,20,6,0,'82.61.68.4',1135541299,1,0,1,1,1,1,'','','[quote=&quot;Piscicelli Zingoni&quot;:17ww0ds1]Io attualmente uso Harbour con FWH24\nMi apre di capire che XHARBOUR e\' meglio o comunque piu\' aperto.[/quote:17ww0ds1]\n\nMeglio forse, nel senso che è più seguito e più esteso. Poi non ho capito cosa intendi esattamente con \"aperto\". La licenza credo sia la stessa.\n\n[quote:17ww0ds1]Domando a chi lo usa gia\':\nE\' anche piu stabile?[/quote:17ww0ds1]\n\nSicuramente è più testato.\n\n[quote:17ww0ds1]Ha anche un suo IDE o e\' solo interfaccia carattere?[/quote:17ww0ds1]\n\nEsattamente come Harbour.\n\n[quote:17ww0ds1]Posso contiunuare ad usarlo con le FWH24o posso anche farne a meno (!?)[/quote:17ww0ds1]\n\nAmmesso che la versione di FWH in tuo possesso sia compatibile con la versione di xHarbour che ti procurerai, sì, puoi continuare ad usare le FWH. Per farne a meno devi orientarti verso un\'altra libreria GUI come la MiniGUI.\n\n[quote:17ww0ds1]Dove posso reperire Xharbour  (free) completo con i test/batch o e\' meglio prelevarlo dal CVS ? (non so niente del CSV!!)[/quote:17ww0ds1]\n\nConviene che usi quella fornita con le FWH in tuo possesso oppure l\'ultima release ufficiale che trovi su <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->. I batch di compilazione dovresti trovarli nella directory di installazione delle FWH. Oppure usi quelli che ho riportato io.\n\nEMG','',0,'gA==','17ww0ds1',1,0,'',6,0,0),(4074,1028,3,51,0,'80.122.88.242',1135542163,1,0,1,1,1,0,'','','What\'s about FW on Vista?\nRegards\nOtto','',0,'gA==','21614k16',1,0,'',51,0,0),(4075,1032,3,230,0,'205.188.116.68',1135551248,1,0,1,1,1,0,'','Checking to see if Order Name Exist or Not on a CDX Index','I am Looking for a way to load the Order bag Names and the key, and\nthe for from a CDX Index into a Arrary for Checking.  I wish to see if\nthe Order bag Name is in the Index or not.  I know how to create a new\nOrder bag Name, and Delete the Name.  But can you load the Information\nfrom the CDX Index for checking, and displaying.\n\nThank you\nJim\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','1ipuqsax',1,0,'',230,0,0),(4076,760,20,49,0,'87.1.179.211',1135552295,1,0,1,1,1,0,'','','VivamenteUgo ti consiglio di non consegnare tale classe dato che il *soggetto* ha precedenti un po\' scomodi...','',0,'gA==','5ioo231w',1,0,'',49,0,0),(4077,1028,3,2,0,'80.58.2.107',1135553648,1,0,1,1,1,1,'','','Otto,\n\nFirst tests show, with great surprise, that 16 bits applications don\'t run on Windows Vista Beta 2.\n\nEven clipper.exe does not work. The system error is: \"NTVDM has stopped working\".\n\nIt may be related with the fact that Vista uses PAE (Physical Address Extension): <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/en-us/memory/base/physical_address_extension.asp\">http://msdn.microsoft.com/library/en-us ... ension.asp</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://en.wikipedia.org/wiki/PAE\">http://en.wikipedia.org/wiki/PAE</a><!-- m -->\n\nWith XP you can enable and disable PAE. I wonder if Vista will allow it too.','',0,'gA==','mwjlrebq',1,0,'',2,0,0),(4078,1029,6,2,0,'80.58.2.107',1135553754,1,0,1,1,1,1,'','','Importante: Las primeras pruebas muestran que las aplicaciones en 16 bits NO funcionan en Windows Vista Beta 2. Ni tan siquiera clipper.exe funciona.\n\nGeneran un error del sistema: \"NTVDM has stopped working\".\n\nPuede estar relacionado con el hecho de que Vista usa PAE (Physical Address Extension): <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/en-us/memory/base/physical_address_extension.asp\">http://msdn.microsoft.com/library/en-us ... ension.asp</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://en.wikipedia.org/wiki/PAE\">http://en.wikipedia.org/wiki/PAE</a><!-- m -->\n\nCon XP se puede activar y desactivar el PAE. No sabemos si Vista lo permitirá también.','',0,'gA==','230u4fhl',1,0,'',2,0,0),(4079,1032,3,2,0,'80.58.2.107',1135554753,1,0,1,1,1,1,'','','Jim,\n\nThis code from FWH/ErrSysW.prg may help you:\n\n[code:2d8z484b]\nfor j = 1 to 15\n   if ! Empty&#40; &#40; Alias&#40; n &#41; &#41;-&gt;&#40; IndexKey&#40; j &#41; &#41; &#41;\n      cErrorLog += Space&#40; 8 &#41; + ;\n            If&#40; &#40; Alias&#40; n &#41; &#41;-&gt;&#40; IndexOrd&#40;&#41; &#41; == j, &quot;=&gt; &quot;, &quot;   &quot; &#41; + ;\n            PadR&#40; &#40; Alias&#40; n &#41; &#41;-&gt;&#40; IndexKey&#40; j &#41; &#41;, 35 &#41; + ;\n            &#40; Alias&#40; n &#41; &#41;-&gt;&#40; OrdName&#40; j &#41; &#41; + ;\n            CRLF\n  endif\nnext\n[/code:2d8z484b]','',0,'AIA=','2d8z484b',1,0,'',2,0,0),(4080,1018,1,2,0,'80.58.2.107',1135555239,1,0,1,1,1,1,'','','Otto,\n\n&gt; Where I have problems is with the up,down,left,right-keys. \n&gt; Do I have to change twindow?\n\nYou have to define Method KeyDown() for your news class. There is no need to modify TWindow.\n\nI can\'t download: You find my code on <!-- m --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoiceFor\">http://www.atzwanger.com/invoice/invoiceFor</a><!-- m --> Antonio.zip \n\nPlease provide a valid link. Thanks.','',0,'AIA=','13fag5iw',1,0,'',2,0,0),(4081,773,4,2,0,'80.58.2.107',1135555462,1,0,1,1,1,1,'','','Hathal,\n\nSetTextAlign() and GetTextAlign() don\'t work on Windows Mobile 3.0. You must use DrawText() with the proper DT_LEFT, DT_CENTER or DT_RIGHT flag.\n\nIt is a Windows Mobile 3.0 bug that was fixed on Windows Mobile 4.0.','',0,'AIA=','tbkff3s9',1,0,'',2,0,0),(4082,1031,4,2,0,'80.58.2.107',1135555563,1,0,1,1,1,1,'','','Hathal,\n\nWhat SMS program do you refeer to ? \n\nI have reviewed your previous posts but I don\'t find any references.','',0,'AIA=','362tlquq',1,0,'',2,0,0),(4083,995,3,266,0,'60.50.50.118',1135567650,1,0,1,1,1,1,'','','my Email: <!-- e --><a href=\"mailto:easywin3@yahoo.com\">easywin3@yahoo.com</a><!-- e -->','',0,'AIA=','1hgl5x89',1,0,'',266,0,0),(4084,1024,6,168,0,'200.109.112.90',1135569015,1,0,1,1,1,0,'','','Prueba con Wbk.PrintOut(,,2)','',0,'AIA=','33zbxp0b',1,0,'',168,0,0),(4085,1026,6,138,0,'148.233.159.24',1135572804,1,0,1,1,1,1,'','Re: Necesito 2 programas','El mejor TPV que existe, 100% configurable para LO QUE QUIERAS, hecho en FW por cierto es CRESWIN POS (<!-- w --><a class=\"postlink\" href=\"http://www.creswin.com\">www.creswin.com</a><!-- w -->).\n\nEs super configurable, trabaja con cualquier pantalla tactil, lector de codigo de barras, impresora de tickets y cajon de dinero.','',0,'AIA=','37o0ktiw',1,0,'',138,0,0),(4086,1033,3,372,0,'83.118.100.14',1135583166,1,0,1,1,1,0,'','How to send email from within FWH25?','Hi to all,\n\nany thoughts about how to send an email from within FWH25?\n\nI found some old samples:\n\n  This one starts the outlook dialog (and that\'s what i don\'t want, because \ni want to send it invisible to the user)\n        cString:=alltrim(customer-&gt;email)+\"?subject=\"+cSubject+\"&amp;body=\"+cMessage\n        winexec(\"rundll32.exe url.dll,FileProtocolHandler mailto:\"+cString)\n\n  This one doesn\'t work\n    winexec(\"Sendmail INVISIBLE SILENT SEND_TO \"+;\n             alltrim(customer-&gt;email)+\" MESSAGE_FILE cMessage.txt \"+;\n             \"SUBJECT \"+cSubject)\n\nAny help would be appreciated!\n\nTIA,\n\nJohn.','',0,'AIA=','2bk4plun',1,0,'',372,0,0),(4087,1018,1,51,0,'80.122.88.242',1135583219,1,0,1,1,1,0,'','','Hello Antonio,\nsorry for the wrong link.\nI hope thisone works:\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoiceForAntonio.zip\">http://www.atzwanger.com/invoice/invoiceForAntonio.zip</a><!-- m --> \n\nAt the moment it is only a programm not a class - I don\'t know how to make one - and I tried with:\noPanelBody:bkeyChar   := {|nKey|Msginfo(str(nKey))}\nBut I get no value for the arrowkeys.\nregards \nOtto','',0,'AIA=','37rn1nd5',1,0,'',51,0,0),(4088,1033,3,3,0,'82.124.250.196',1135584446,1,0,1,1,1,0,'','Re: How to send email from within FWH25?','[quote=&quot;John&quot;:52ywnswu]Hi to all,\n\nany thoughts about how to send an email from within FWH25?\n\nI found some old samples:\n\n  This one starts the outlook dialog (and that\'s what i don\'t want, because \ni want to send it invisible to the user)\n        cString:=alltrim(customer-&gt;email)+\"?subject=\"+cSubject+\"&amp;body=\"+cMessage\n        winexec(\"rundll32.exe url.dll,FileProtocolHandler mailto:\"+cString)\n\n  This one doesn\'t work\n    winexec(\"Sendmail INVISIBLE SILENT SEND_TO \"+;\n             alltrim(customer-&gt;email)+\" MESSAGE_FILE cMessage.txt \"+;\n             \"SUBJECT \"+cSubject)\n\nAny help would be appreciated!\n\nTIA,\n\nJohn.[/quote:52ywnswu]\n\nJohn,\n\nTry something like this\n\nlocal oMail\n\ndefault cSubject:=\"\"\n\nDEFINE MAIL oMail ;\n        SUBJECT cSubject ;\n        TEXT    cmsg\n\n//         FROM USER\n\n   oMail:aRecipients :=  aTo\n\n   if aFiles!=nil\n      oMail:aFiles := ACLONE(aFiles)\n   endif\n\n   ACTIVATE MAIL oMail\n\n\nRichard','',0,'gA==','52ywnswu',1,0,'',3,0,0),(4089,1028,3,51,0,'80.122.88.242',1135586653,1,0,1,1,1,0,'','','Hello Antonio,\n\nReading this I realize what you did for the Clipper community with the source-compatible Harbour.\nOtherwise I would have been out of business.\n\nThanks again\nOtto','',0,'gA==','25ods9lr',1,0,'',51,0,0),(4090,1033,3,372,0,'83.118.100.14',1135591089,1,0,1,1,1,0,'','Some more info','Hi Richard,\n\nthanks for your reply, it works!\n\n2 remaining questions:\n\n- How can i address multiple targets in one go?\n  placing them in an array ( aadd(aCustomer,customer-&gt;email) ) doesn\'t work and also placing them in a text string doesn\'t seem to work...\n- How i can switch off the warning that \'someone is trying to send an email\' from outlook express?\n\nThanks in advance,\n\nJohn.','',0,'gA==','1tuovbf3',1,0,'',372,0,0),(4091,1034,19,195,0,'62.38.30.46',1135591645,1,0,1,1,1,0,'','To Antonio : PLS Send me the path of FTDN','Hi Antonio \n\nMerry Christams and a happy  2006 . I make a format on my HDD today and i lost the path of FTDN not the UserName and Password . Please send me the path to connect to download again the December release.\n\nMany Thanks  \n\nFeliz Navidad\n\nGreetings \nDionisis <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3nnfs7rs',1,0,'',195,0,0),(4092,1028,3,26,0,'193.95.217.45',1135592172,1,0,1,1,1,1,'','','Hello!\n\nVista\'s new boot loader \"bootmgr\" can be configured via \"bcdedit.exe\":\n[url=http&#58;//www&#46;microsoft&#46;com/technet/windowsvista/library/85cd5efe-c349-427c-b035-c2719d4af778&#46;mspx:38wj2u9n]Boot Configuration Data Editor FAQ[/url:38wj2u9n]\n\nCheers, Roman\n\nP.S. Another three useful links:\n<!-- m --><a class=\"postlink\" href=\"http://www.neowin.net/forum/lofiversion/index.php/t381536.html\">http://www.neowin.net/forum/lofiversion ... 81536.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.flexbeta.net/forums/lofiversion/index.php/t8373.html\">http://www.flexbeta.net/forums/lofivers ... t8373.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.multingles.net/docs/jmt/bootwv.htm\">http://www.multingles.net/docs/jmt/bootwv.htm</a><!-- m -->','',0,'EA==','38wj2u9n',1,0,'',26,0,0),(4093,1033,3,3,0,'82.124.250.196',1135593152,1,0,1,1,1,0,'','Re: Some more info','[quote=&quot;John&quot;:3t3hbwsg]Hi Richard,\n\nthanks for your reply, it works!\n\n2 remaining questions:\n\n- How can i address multiple targets in one go?\n  placing them in an array ( aadd(aCustomer,customer-&gt;email) ) doesn\'t work and also placing them in a text string doesn\'t seem to work...\n- How i can switch off the warning that \'someone is trying to send an email\' from outlook express?\n\nThanks in advance,\n\nJohn.[/quote:3t3hbwsg]\n\nJohn\n\nthis is a sample\n\nDDEST  := \"firstmailadress\" + \";\" + \"secondmailadress\" +....etc\n\nENVMAIL({DDEST},\"Title \",\"msg\",{CNOMDIR() + \"\\EXPcod.dbf\" ,CNOMDIR() + \"\\EXPcom.dbf\" })\n\nFUNCTION ENVMAIL(aTo,cSubject,cMsg,aFiles)\n\nPS : You have to reset the working directory after sending the mail, otherwise you will get surprise !\n\n   lChDir( cFilePath( GetModuleFileName( GetInstance() ) ) ) \n\nFor second question Go to outlook express, Tools, Options,security on YOUR pc\n\nHTH\n\nRichard','',0,'gA==','3t3hbwsg',1,0,'',3,0,0),(4094,1035,6,87,0,'83.40.41.196',1135602035,1,0,1,1,1,0,'','Database Fwh','Hola Grupo\n\n  Estoy haciendo pruebas con la clase database de fwh y tengo  una duda para crear un nuevo registro hago lo siguiente:\n\n  oDb:Blank()\n   Redefine Get ...\n\n  oDb:append()\n  oDb:Save()\n\n\n  Pero algo pasa que los get no me los muestra en blanco, me muestra los datos del registro donde apunta el puntero en el browse, que estoy haciendo mal  ? \n\n\nUn saludo y feliz navidad','',0,'gA==','2aeru5l7',1,0,'',87,0,0),(4095,1036,2,129,0,'201.215.44.29',1135606211,1,0,1,1,1,0,'','Ventana MDI, con detalle','Amigos, ya tengo algo armado con mdi, pero, tengo un grave problema\ncuando se abre la ventana ok, la minimizo, para dejarla abajo mientras abro otra ventana y asi sucesivamente, pero, cuando voy a la ventana 1 a maximizarla para volver a trabajar con ella, la abro y se va a montar debajo de la barra de botones del menu y desaparecen los bordes, y asi una tras otra\ncomo lograr que cuando vuelve, retorne a la posicion original desde donde salio o  a lo menos en algun lugar que no se vea tan mal','',0,'gA==','2pgwgyz4',1,0,'',129,0,0),(4096,990,2,124,0,'200.82.59.42',1135608202,1,0,1,1,1,0,'','','Gracias amigos, quedó resuelto.\n\nQue importante es este sistema de cooperación, van varias que me salvan!.\n\nSaludos.\nRicardo.-','',0,'gA==','13r4zf6u',1,0,'',124,0,0),(4097,1028,3,51,0,'80.122.88.242',1135609317,1,0,1,1,1,0,'','','Which PC hardware are you using for VISTA?\nRegards \nOtto','',0,'gA==','sx66ue4f',1,0,'',51,0,0),(4098,1037,19,255,0,'200.67.134.233',1135612102,1,0,1,1,1,1,'','Nueva integrante!!! ya nació mi VERCECITA !!!','Hola amigos, con mucho gusto, emoción\ny alegría, les hago saber que ya soy PAPA!!\n\nEl jueves 22 de diciembre del presente a las\n8.42pm nacio mi nena!!!\n\nEstoy super mega ultra requete contento !!!\ny por supuesto esta inmensa felicidad\nla quiero compartir con todos ustedes.\n\nEspero pronto compartir las primeras fotos\nde mi nena. \n\nPor cierto, llevará por nombre: Bárbara Celeste\n\nSaludos amigos.','',0,'gA==','22ffn2b8',1,0,'',255,0,0),(4099,1038,6,21,0,'80.58.49.235',1135612778,1,0,1,1,1,1,'','Explorador en fivewin','Hola foro,\n\nNecesito poder crear un pequeño explorador de windows dentro de mi programa o llamar al explorador de windows para que se muestre como una ventana de mi aplicación.\n\nTeneis alguna idea de como poder hacerlo.\n\nGracias por tiempo que tan desinteresadamente dedicais.','',0,'gA==','1f1x5xbr',1,0,'',21,0,0),(4100,1039,3,6,0,'82.59.188.201',1135612962,1,0,1,1,1,1,'','TWBrowse vertical scrollbar always','Is there an easy way to set the TWBrowse vertical scrollbar always showing even if there are no rows or one row only?\n\nEMG','',0,'gA==','1f1clu1p',1,0,'',6,0,0),(4101,1037,19,61,0,'201.217.149.209',1135613514,1,0,1,1,1,0,'','Felicidades','Felicidades amigo:\n\nAhora comienza una nueva vida.\nEs aqui cuando algunas cosas cambian\nsu significado.\n\nMuchas felicidades desde Uruguay.\n\nRuben Fernandez.','',0,'gA==','2y09q4j0',1,0,'',61,0,0),(4102,1037,19,43,0,'201.127.43.111',1135614569,1,0,1,1,1,0,'','','Felicidades....\n\n   Los hijos son la alegria de la vida....  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos\n     \n   Marco A. Delgado.','',0,'gA==','3g50cuho',1,0,'',43,0,0),(4103,1037,19,21,0,'80.58.49.235',1135614598,1,0,1,1,1,1,'','','Hola Juan Carlos,\n\nMi mas sincera enhorabuena por el nacimiento de tu hija.','',0,'gA==','2hfh2aab',1,0,'',21,0,0),(4104,1037,19,14,0,'201.144.78.175',1135615415,1,0,1,1,1,0,'','Felicidades !!!','Juan Carlos...\n\nQue gusto que Santa te haya traido el mejor regalo de todos !!!...\n\nDe verdad te felicito a ti y  a tu esposa y que tu familia siga creciendo...\n\nFeliz Navidad a todos....\n\n\nsaluds...','',0,'gA==','25d5tzlm',1,0,'',14,0,0),(4105,1015,20,125,0,'151.81.2.159',1135615859,1,0,1,1,1,0,'','','Grazie Mille','',0,'gA==','ev2zhd24',1,0,'',125,0,0),(4106,1040,2,373,0,'200.81.192.102',1135617777,1,0,1,1,1,0,'','nuevo con fivewin','Hola, trabajo con clipper 5.2 y quisiera saber como hago para que mis programas puedan funcionar con fivewin, que deria instalarme.\ndesde ya muchas Gracias\nGabriel','',0,'gA==','3cwgayl0',1,0,'',373,0,0),(4107,1028,3,2,0,'80.58.2.107',1135618736,1,0,1,1,1,1,'','','Its been tested on a AMD 3400+ 64 bits.','',0,'gA==','24lfpp2f',1,0,'',2,0,0),(4108,1037,19,78,0,'200.121.120.25',1135618955,1,0,1,1,1,0,'','','Felicidades,,,, y ponte un babero,.,.,,,\n\nLos hijos son una bendicion,,,,,\n\nSalu2\nWilli','',0,'gA==','1pc3vapb',1,0,'',78,0,0),(4109,1036,2,2,0,'80.58.2.107',1135619037,1,0,1,1,1,1,'','','Luis,\n\nHas revisado los ejempos samples\\TestMdi...prg ?\n\nPuedes mostrarnos el código que estás usando ? Puedes proporcionar un ejemplo que reproduzca el error ? gracias.','',0,'gA==','3ouhvlw9',1,0,'',2,0,0),(4110,1040,2,2,0,'80.58.2.107',1135619206,1,0,1,1,1,1,'','','La librería FiveWin que es un producto comercial que debes adquirir en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> , un editor de recursos tipo Borland Resources Workshop, ó el gratuito y muy bueno de PellesC: <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m --> y además un enlazador que sirva para Windows como Blinker 3.2 ó versiones superiores.','',0,'gA==','1bbsk5do',1,0,'',2,0,0),(4111,1035,6,2,0,'80.58.2.107',1135619548,1,0,1,1,1,1,'','','Estás usando el objeto database también en el browse ? En tal caso, el browse al dibujarse, esta modificando el buffer de la clase TDatabase.\n\nSi el browse va a estar visible mientras editas, la solución es hacer igual a \"\" la DATA cAlias del browse: &lt;oBrw&gt;:cAlias := \"\"\n\nY luego restaurarla una vez que termines de editar un registro.','',0,'gA==','6ujy3p1x',1,0,'',2,0,0),(4112,1037,19,2,0,'80.58.2.107',1135619605,1,0,1,1,1,1,'','','Enhorabuena! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1va7vqo4',1,0,'',2,0,0),(4113,1038,6,255,0,'200.67.134.233',1135620498,1,0,1,1,1,1,'','Re: Explorador en fivewin','[quote=&quot;fgondi&quot;:3i9ou78o]Hola foro,\nNecesito poder crear un pequeño explorador de windows dentro de mi programa o llamar al explorador de windows para que se muestre como una ventana de mi aplicación.\nTeneis alguna idea de como poder hacerlo.\nGracias por tiempo que tan desinteresadamente dedicais.[/quote:3i9ou78o]\n\nLlamarlo es sencillo, simplemente haz:\nShellExecute( , \"Open\", \"C:\\windows\\explorer.exe\",0,0,1 )\n\nQue mas pretendes hacer con el explorador ???\nalgun drag\'ndrop ??? o algo similar ??','',0,'gA==','3i9ou78o',1,0,'',255,0,0),(4114,1038,6,2,0,'80.58.2.107',1135620554,1,0,1,1,1,1,'','','Fernando,\n\nShellExecute( oWnd:hWnd, \"open\", \"explorer.exe\", \"C:\\\", \"\", 1 )','',0,'gA==','owyukjrj',1,0,'',2,0,0),(4115,1034,19,2,0,'80.58.2.107',1135620669,1,0,1,1,1,1,'','','Dionisis,\n\nAlready sent.\n\nFelices fiestas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3rnwp67g',1,0,'',2,0,0),(4116,1038,6,21,0,'80.58.49.235',1135621061,1,0,1,1,1,1,'','','Hola, \n\nMuchas gracias por vuestras respuestas y perdonar por no haberme explicado correctamente.\n\nLo que necesito es administrar una carpeta y sus subcarpetas. Dando la posibilidad de crear/borrar/renombrar carpetas y drag\'ndrop de documentos.\nPero no puede acceder a un nivel superior a esa carpeta inicial, o sea, partir la raiz del arbol desde esa carpeta.\n\nY por supuesto siendo esta ventana de administración parte de mi aplicación, no una ventana independiente a la misma.','',0,'gA==','10tw78lx',1,0,'',21,0,0),(4117,1039,3,303,0,'68.7.28.54',1135622712,1,0,1,1,1,0,'','','Enrico,\n\nThis is from an old message. I don\'t know if it works.\n\n[quote:300zkuih]When a zero value range is set on a scrollbar, it becomes invisible,\nso you may modify your bLogicLen codeblock to return one, when\nit is zero:\n\n[code:300zkuih]   &lt;oBrw&gt;&#58;bLogicLen = &#123; || If&#40; NumberOfRecords == 0, 1, &#46;&#46;&#46; &#41; &#125;[/code:300zkuih][/quote:300zkuih]\n\nRegards,\nJames','',0,'gIA=','300zkuih',1,0,'',303,0,0),(4118,1041,3,374,0,'83.131.107.183',1135624654,1,0,1,1,1,0,'','From DBF database Report in XML document , Unicode: UTF 8','Anybody could give an example to solve the following problem:\n\nFrom DBF database Report in [color=blue:2wgvds83]XML document , Unicode:UTF 8[/color:2wgvds83].\nData in DBF are in ANSI and OEM.\n\nThanks \n\nVlado','',0,'Ag==','2wgvds83',1,0,'',374,0,0),(4121,1037,19,73,0,'201.138.166.223',1135625451,1,0,1,1,1,0,'','Re: Nueva integrante!!! ya nació mi VERCECITA !!!','Que te puedo decir,\nFELICIDADES !!! has recibio la mejor bendición...\nun abrazo grande para ti y toda tu familia de un compañero que te aprecia...\nPaco Horta','',0,'Ag==','2yggj8ng',1,0,'',73,0,0),(4122,801,1,375,0,'84.122.101.58',1135626191,1,0,1,1,1,1,'','You can\'t control dialog\'s focus','I Think you can\'t completly control dialog\'s focus. You only can fully control CONTROLS FOCUSES. for example oListBox:bLostFocus := .....\n\nFor knowing mouses outclicks you must build NO MODALs dialogs and test any Control:bLostFocus and the IsOverWnd command. I THINK...','',0,'Ag==','a3jdowag',1,0,'',375,0,0),(4123,1029,6,73,0,'201.138.166.223',1135626193,1,0,1,1,1,0,'','windows vista','Antonio, tendras la dirección de donde se puede descargar la version beta de vista?\npara esta version funciona fwh 32 bits?\nsaludos\nPaco','',0,'Ag==','25macak5',1,0,'',73,0,0),(4124,557,1,375,0,'84.122.101.58',1135626649,1,0,1,1,1,1,'','','try this:LOCAL hRes1,hRes2\n\nSET RESOURCE TO A.DLL\nhRes1 := GetResources()\n\n....\n...  USING A.DLL RESOURCES\n...\n\nSET RESOURCES TO B.DLL\nhRes2 := GetResources()\n\n...\n... USING B.DLL RESOURCES\n...\n\nSetResouces(hRes1)\n...\n... USING A.DLL\n...\n\nSetResouces(hRes2)\n...\n... USING B.DLL\n...\nETC...','',0,'Ag==','71ejmjl8',1,0,'',375,0,0),(4125,450,1,375,0,'84.122.101.58',1135627356,1,0,1,1,1,1,'','NOT A PROBLEM','I had the the same problem and i resolved it using a 1995 BWCC.DLL file, 164.928 bits long','',0,'Ag==','wt63jypy',1,0,'',375,0,0),(4126,1037,19,72,0,'201.154.240.187',1135628218,1,0,1,1,1,0,'','','Felicidades!, ya puedes agregar a la programación: Pañales, biberones, baberos (y desveladas).\n\nUn abrazo a toda la familia.','',0,'Ag==','1canj33w',1,0,'',72,0,0),(4127,1038,6,177,0,'62.99.100.142',1135629120,1,0,1,1,1,0,'','','Hola Fernando,\n\nquizás lo puedas hacer utilizando ActiveX,  en <!-- m --><a class=\"postlink\" href=\"http://www.vision-factory.com/activex.htm\">http://www.vision-factory.com/activex.htm</a><!-- m --> hay un ActiveX que se llama EX Tree. Del uso de un ActiveX en FWH puede iluninarnos Antonio  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos,\n\nFélix','',0,'Ag==','ael96kbo',1,0,'',177,0,0),(4128,1038,6,2,0,'80.58.2.107',1135629724,1,0,1,1,1,1,'','','Fernando,\n\nOtra posibilidad es crear una ventana con un treeview (samples\\TestTree.prg), un splitter (samples\\re.prg) y un listview (samples\\TestLvw.prg) y asi tener el control total.','',0,'Ag==','38d2re9d',1,0,'',2,0,0),(4129,1041,3,2,0,'80.58.2.107',1135629891,1,0,1,1,1,1,'','','Vlado,\n\nJuest a guess: you may need to convert all your fields values to Oem using AnsiToOem() or to Ansi using OemToAnsi().','',0,'Ag==','1vuxadkp',1,0,'',2,0,0),(4130,1037,19,215,0,'201.144.205.206',1135629964,1,0,1,1,1,0,'','Felicidades JC y Brenda','Muchos abrazos a la pequeña que está haciendo mucho frio en estos dias... felicidades a los dos.\n\nFer','',0,'Ag==','dsvh2mui',1,0,'',215,0,0),(4131,1015,20,154,0,'151.81.3.47',1135630092,1,0,1,1,1,1,'','','Scusate mancava la risposta al setb55!  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nQuesto è il batch:\n\n[code:3latczcr]\nIF EXIST \\DJGPP\\DJGPP&#46;ENV     \nSET DJGPP=\\DJGPP\\DJGPP&#46;ENV\nIF NOT EXIST \\DJGPP\\DJGPP&#46;ENV SET Bison_Simple=\\DJGPP\\share\\bison\\bison&#46;simple\n\nSET HB_ARCHITECTURE=w32\nSET HB_COMPILER=bcc32\n\nSET C_USR=\nSET L_USR=\n\nREM SET ECHO=cmd /c echo\nREM SET DEL=cmd /c del\n\nSET PATH=\\BCC55\\BIN;\\DJGPP\\BIN;%PATH%\n[/code:3latczcr]','',0,'AIA=','3latczcr',1,0,'',154,0,0),(4132,1024,6,215,0,'201.144.205.206',1135630103,1,0,1,1,1,0,'','Gracias','Funcionó correctamente así\n\noExcel:ActiveWorkbook:PrintOut(1,1,2)\n\nDonde el primer 1 es a partir del número de hoja.\nEl segundo 1 es hasta que hoja se va a imprimir\nY... 2 el número de copias que se enviarán a la impresora.\n\nGracias.','',0,'AIA=','22miebeb',1,0,'',215,0,0),(4133,1029,6,2,0,'80.58.2.107',1135630229,1,0,1,1,1,1,'','','Paco,\n\nSolo los beta testers oficiales tienen acceso, ó los que le preguntan a la mula lo que hay que darle a la rana <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  \n\nSi, FWH funciona correctamente en Vista.','',0,'AIA=','2p52xc3l',1,0,'',2,0,0),(4134,1044,3,154,0,'151.81.3.47',1135630974,1,0,1,1,1,1,'','Window/Dialog without border','In fwh27 I found samples programs without window/dialog standard border\nWhere is my error?\n\nsee the image for fwbrow sample:\n\n[img:3ghnonrh]http&#58;//img418&#46;imageshack&#46;us/img418/3041/fwbrow4al&#46;jpg[/img:3ghnonrh]\n\nmany thanks for the help.','',0,'CA==','3ghnonrh',1,0,'',154,0,0),(4135,1039,3,6,0,'82.59.188.201',1135631209,1,0,1,1,1,1,'','','Unfortunately not. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> I\'m afraid that it is harder than this.\n\nEMG','',0,'CA==','2s4ei0lj',1,0,'',6,0,0),(4136,1044,3,2,0,'80.58.2.107',1135631252,1,0,1,1,1,1,'','','Ugo,\n\nPlease download FWH again and reinstall it just to be sure you have the most recent build and build the samples again. They are working ok here.\n\nHave you redefined Method NcPaint() ?','',0,'CA==','qu12g90e',1,0,'',2,0,0),(4137,1045,3,376,0,'201.240.52.205',1135631698,1,0,1,0,1,0,'','Un poco de ayuda','Estimados amigos.\n\nDesde que adquirimos el FWH24 en el año 2003, no llegamos a utilizarlo porque nos fue más rapido el desarrollo de un proyecto con FW20d. \n\nAhora queremos pasar nuestras aplicaciones a FWH24 y generamos el ejecutable con HBmake. Hasta aqui todo bien...\n\nSin embargo al ejecutarlo nos da el siguiente mensaje:\n\n\'./source/function/ALERT.PRG\' was compiled by older version, PCODE version 5 is no longer supported - Please recompile.\n\nY casca el programa...\n\nPuede alguien decirme como superar este problema sin tener que volver a adquirir una nueva version de FWH?.\n\nGracias por adelantado...\n\nArmando','',0,'CA==','1ad32bh0',1,0,'',376,0,0),(4138,1037,19,376,0,'201.240.52.205',1135632101,1,0,1,1,1,0,'','Felicitaciones !!!','Bueno...\n\nUna hija siempre será algo nuevo para los papás.\n\nUn abrazo desde Perú\n\nArmando <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','35tarlov',1,0,'',376,0,0),(4139,1045,3,2,0,'80.58.2.107',1135632179,1,0,1,1,1,1,'','','Armando,\n\nTienes que recompilar todos los PRGs de FWH con la version de xharbour que estes usando. De todas formas si la version de xharbour que usas es muy reciente, no te servira ya que precisa de una nueva version de FWH.','',0,'CA==','12d0jjj7',1,0,'',2,0,0),(4140,1018,1,51,0,'80.122.88.242',1135632898,1,0,1,1,1,0,'','','Hello Antonio, \nthank you for your help. \nNow I can do what I want.\nOnly a little problem still exists:\n\nI don\'t know how to use: WS_TABSTOP style \nso I tried to do it with the VALID case. \nThis way I can\'t return from what I call panelBody to the panelHeader with the keyboard.\nRegards,\nOtto\n\n<!-- m --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoiceForAntonio20051226.zip\">http://www.atzwanger.com/invoice/invoic ... 051226.zip</a><!-- m -->','',0,'CA==','3sf2hin9',1,0,'',51,0,0),(4141,1044,3,154,0,'151.81.3.47',1135632912,1,0,1,1,1,1,'','','Antonio,\n\n&gt; Have you redefined Method NcPaint() ?\n\nNo! I do not redefined it.\nI download FWH and reinstall it, and recompile the sample.\n\nThank You.','',0,'CA==','ec8q9zpp',1,0,'',154,0,0),(4142,1037,19,36,0,'200.113.56.235',1135634177,1,0,1,1,1,0,'','','Verce!!\n\n  !!Felicidades!!\n\n\nun abrazo desde Chile\nPatricio','',0,'CA==','3a631i86',1,0,'',36,0,0),(4143,1046,6,36,0,'200.113.56.235',1135634614,1,0,1,1,1,0,'','Excel','Estimados\n\nQuisiera saber porque en win98 se queda el excel en memoria, pero en winXP noooo\n\nestoy haciendo este en mi codigo\n\noExcel := TOleAuto():New( \"Excel.Application\" )\nIf Ole2TxtError() != \"S_OK\"\n		CursorArrow()\n   	MsgStop( \"Error al intentar acceder a Excel\",\"Error\")\n   	oExcel:End()\n   	Return\nEndif\n\noExcel:WorkBooks:Add()\noHoja := oExcel:Get( \"ActiveSheet\" )\n\nBLA..\nBLA..\n\noExcel:Visible := .T.\noHoja:End()\noExcel:End()\n\n\ndesde ya gracias\n\nSaludos\nPatricio','',0,'CA==','32rzwj9e',1,0,'',36,0,0),(4144,1044,3,2,0,'80.58.2.107',1135636908,1,0,1,1,1,1,'','','Ugo,\n\nAre you using sample\\buildh.bat or buildx.bat to build the samples ?\n\nAre you linking any LIBs or OBJs of your own ?','',0,'CA==','3ge3vbue',1,0,'',2,0,0),(4145,1044,3,154,0,'151.81.3.47',1135637876,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:11x09tgd]Ugo,\n\nAre you using sample\\buildh.bat or buildx.bat to build the samples ?[/quote:11x09tgd]\n\nNormally I use xMate but in this case I used Buildx.bat\n\n[quote=&quot;Antonio Linares&quot;:11x09tgd]\nAre you linking any LIBs or OBJs of your own ?[/quote:11x09tgd]\n\nFor the test, no! I do not link nothing.\nI just write in a prompt:\n\"buildx fwbrow\" \nin samples directory.','',0,'gA==','11x09tgd',1,0,'',154,0,0),(4146,1044,3,2,0,'80.58.2.107',1135638572,1,0,1,1,1,1,'','','Ugo,\n\nPlease search your computer for Five*.lib','',0,'gA==','e3ifgbb2',1,0,'',2,0,0),(4147,660,2,304,0,'200.67.162.185',1135649230,1,0,1,1,1,0,'','','disculpa el tiempo que tarde en darte mi correo, lo puedes mandar a:\n<!-- e --><a href=\"mailto:servicomver@hotmail.com\">servicomver@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:servicomver@yahoo.com.mx\">servicomver@yahoo.com.mx</a><!-- e -->\ngracias por tu atencion\nsalu2','',0,'gA==','1dncdlvk',1,0,'',304,0,0),(4148,1047,2,304,0,'200.67.162.185',1135650179,1,0,1,1,1,0,'','Base de datos en COMBOBOX','Hola, necesito hacer que los datos contenidos en una base de datos, en el campo FALLAS se pase al COMBOBOX esto es por que en otra parte del programa se actualizan las FALLAS, y si aumentan o disminuyen que las refleje el COMBOBOX, ademas de ponerlas indexadas y \"evitar\" que el usuario escriba o cambie alguna opcion del COMBOBOX, no se si me explique bien, de antemano gracias por su tiempo y su dedicacion al foro.\nSaludos\nVeracruz, Mexico','',0,'gA==','leesr0ku',1,0,'',304,0,0),(4149,1048,6,18,0,'201.138.70.122',1135652820,1,0,1,1,1,1,'','mostrar un control activex dentro de una ventana','Estoy usando la función CreateObject( \"OWC11.SpreadSheet.11\" ) para tener acceso a Excel.\n\nEsa parte no tiene problemas, lo que me tiene atorado en la forma en que debo mostrar la ventana de Excel dentro de una de FiveWin.\n\n   DEFINE WINDOW oWnd TITLE \"Excel ActiveX \"\n\n   oExcel := CreateObject( \"OWC11.SpreadSheet.11\" )\n	oExcel:Set(\"ViewOnlyMode\", .T. )\n   hWnd := oExcel:Get(\"InstanceId\")\n\nhWnd tiene el handle de la ventana , ¿cómo lo integro a dentro de una de FiveWin?\n\nSaludos y feliz fin de año','',0,'gA==','1fhyx4k7',1,0,'',18,0,0),(4150,1049,6,295,0,'201.246.171.250',1135655466,1,0,1,1,1,1,'','problemas con la clase Texcels errores al compilar el prg','Estimados Amigos:\nEn Fw Clipper usaba la clase Texcels para generar planillas Excel desde mi programa, pero ahora al incorporar el Texcels.prg Y al compilar con FWH me da los siguientes errores:\n\nTexcels.prg(40) Error E0030 syntax error: \"parse error at HIDDEN\"\nTexcels.prg(131) Error E0030 syntax error: \"parse error at Endif\"\n(la linea 131 es un \"EndClass\"\n\nPor vuestra ayuda muchas gracias\nSALUDOS','',0,'gA==','3lrwn94o',1,0,'',295,0,0),(4151,1049,6,18,0,'201.138.70.122',1135656868,1,0,1,1,1,1,'','Re: problemas con la clase Texcels errores al compilar el pr','¿A qué cuenta de correo te envío una versión más actualizada de TExcel?','',0,'gA==','ag5acujc',1,0,'',18,0,0),(4152,962,2,348,0,'201.240.81.199',1135659216,1,0,1,1,1,0,'','Re: Consulta adicional del color del Get Inhabilitado','Mi estimado Antonio, \nte agradeceria aclarar esta ultima consulta si no es molestia ,  respecto al color de Get Deshabilitado,  desearia que tengas en cuenta que el cambio de color desearia hacerlo con un solo ajuste de parametros para todo el sistema.\n  \nMil Gracias\n\nLubin\n\n\n[quote=&quot;lubin&quot;:35xlewfg]Gracias por tu respuesta Antonio,  solo para aclarar, el concepto\n\nEste metodo que me envias lo debo de agregar a la clase get ??,  y de esta manera podre cambiar el Color cuando el GET esta deshabilitado?? cual seria la manera de hacerlo para cambiarlo para un color determinado???\n\n\nGracias por tu atencion a mi consulta\nLubin\n\n\n\n\n[quote=&quot;Antonio Linares&quot;:35xlewfg]Lubin,\n\nHay que modificar la clase TGet así:\n\n[code:35xlewfg]METHOD Paint&#40;&#41; CLASS TGet\n\n   &#46;&#46;&#46;\n\n   if IsWindowEnabled&#40; &#58;&#58;hWnd &#41;\n      CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   else\n      SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41;\n      hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oFont&#58;hFont &#41;\n      ExtTextOut&#40; &#58;&#58;hDC, 0, 0,;\n                  &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;            \n   endif                \n\n   &#46;&#46;&#46;\n[/code:35xlewfg]\n\nDe todas formas estamos mejorando ese código para que respecte la alineación es delos estilos ES_CENTER y ES_RIGHT.[/quote:35xlewfg][/quote:35xlewfg]','',0,'gIA=','35xlewfg',1,0,'',348,0,0),(4153,1033,3,372,0,'83.118.100.14',1135662469,1,0,1,1,1,0,'','','Hi Richard,\n\nI\'m starting to get some progress here, still some remaining issues left, your help would be greatly appreciated again:\n\nthis is the code i use:\n\n  aadd(aCustomer,\"test@test.nl;test1@test.nl\")\n\n  DEFINE MAIL oMail;\n    SUBJECT cSubject;\n    TEXT    cMessage\n    oMail:aRecipients:=aCustomer\n  ACTIVATE MAIL oMail\n\nwhen sending with the option \'From User\' the correct message and recipients show up in the dialog, but when sending without it (and that\'s what i want), the error \"501 Bad Address Syntax\" occurs. Any ideas?\n\nAlso, how can i use only the BCC field here?\n\nThanks in advance,\n\nJohn.','',0,'gIA=','2lzo6llh',1,0,'',372,0,0),(4154,1041,3,374,0,'83.131.4.189',1135668915,1,0,1,1,1,0,'','','Antonio,\n\nJes, I same think about that.\n\n1. Transform to ANSI.\n   \n2. From ANSI to Unicode UTF-8\n    Functions: ANSItoUnicode(\'UTF-8\')\n    There are Functions AnsiToWide(cAnsi) -&gt; cUnicode\n                                     WideToAnsi(cUnicode) -&gt; cAnsi\n    I have UnicodeCharacterDatabase from <!-- w --><a class=\"postlink\" href=\"http://www.unicode.org\">www.unicode.org</a><!-- w -->.\n\n3. Generating XML document.\n    ASCI file with XML tags with xsd:schema.','',0,'gIA=','w9afew8p',1,0,'',374,0,0),(4155,1033,3,247,0,'87.202.28.179',1135671748,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:wpdc6ty2]Hi Richard,\n\nI\'m starting to get some progress here, still some remaining issues left, your help would be greatly appreciated again:\n\nthis is the code i use:\n\n  aadd(aCustomer,\"test@test.nl;test1@test.nl\")\n\n  DEFINE MAIL oMail;\n    SUBJECT cSubject;\n    TEXT    cMessage\n    oMail:aRecipients:=aCustomer\n  ACTIVATE MAIL oMail\n\nwhen sending with the option \'From User\' the correct message and recipients show up in the dialog, but when sending without it (and that\'s what i want), the error \"501 Bad Address Syntax\" occurs. Any ideas?\n\nAlso, how can i use only the BCC field here?\n\nThanks in advance,\n\nJohn.[/quote:wpdc6ty2]\n\n\nI use ole (with microsoft outlook ) and works great .Use [b:wpdc6ty2]Clickyes[/b:wpdc6ty2] (Read this article <!-- m --><a class=\"postlink\" href=\"http://www.contextmagic.com/express-clickyes/\">http://www.contextmagic.com/express-clickyes/</a><!-- m -->) software too if you like the below code\n\nfunction SendMail(cText,ato,cSubject,afiles,bodyformat,mailfrom)\nlocal oMail,i:=0,oItem\ndefault bodyformat:=1\n\n\noMail:= CREATEOBJECT( \"outlook.application\" )\noItem:=oMail:createitem(0)\n\nif !empty(mailfrom)\n oItem:SentOnBehalfOfName:=mailfrom\nendif\n\noItem:Subject:=cSubject\n\ncTo:=\"\"\n\nfor i:=1 to len(ato)\n	cTo:=cto+ato[i]+\";\"\nnext\n\noItem:To:=substr(cTo,1,len(cTo)-1)\n\n\nfor i:=1 to len(afiles)\n	oItem:Attachments:add(afiles[i][1],1,1,afiles[i][2])\nnext\n\n\noItem:bodyformat:=bodyformat\nif bodyformat==1\n  oItem:body:=ctext\nelse\n  oItem:htmlbody:=ctext\nendif\n\noItem:send()  \n\nreturn \"\"','',0,'wA==','wpdc6ty2',1,0,'',247,0,0),(4156,1033,3,3,0,'82.120.24.244',1135672140,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:135k3uio]Hi Richard,\n\nI\'m starting to get some progress here, still some remaining issues left, your help would be greatly appreciated again:\n\nthis is the code i use:\n\n  aadd(aCustomer,\"test@test.nl;test1@test.nl\")\n\n  DEFINE MAIL oMail;\n    SUBJECT cSubject;\n    TEXT    cMessage\n    oMail:aRecipients:=aCustomer\n  ACTIVATE MAIL oMail\n\nwhen sending with the option \'From User\' the correct message and recipients show up in the dialog, but when sending without it (and that\'s what i want), the error \"501 Bad Address Syntax\" occurs. Any ideas?\n\nAlso, how can i use only the BCC field here?\n\nThanks in advance,\n\nJohn.[/quote:135k3uio]\n\nJohn,\n\nThere should be no difference while using the \"from user\" . I never use the \"from user\". \n\nWhat are you using harbour ? Xharbour ? which version ? If you are using Harbour are you linking the correct Ole lib ?\n\nThe fwh mail function does not allow BCC (as far as i know).\n\nThere is a xharbour mail function that allows all this \n\nRichard','',0,'gA==','135k3uio',1,0,'',3,0,0),(4157,1048,6,2,0,'80.58.2.107',1135672227,1,0,1,1,1,1,'','','Vikthor,\n\nTienes que usar la Clase TActiveX de FWH.\n\nRevisa los ejemplos samples\\webexp.prg, samples\\excel.prg, samples\\flash.prg, samples\\pdf.prg y samples\\media.prg.','',0,'gA==','2p7j59ld',1,0,'',2,0,0),(4158,1049,6,2,0,'80.58.2.107',1135672365,1,0,1,1,1,1,'','','Vikthor,\n\nPuedes ponerla en <!-- m --><a class=\"postlink\" href=\"http://www.hyperupload.com\">http://www.hyperupload.com</a><!-- m --> y poner el enlace aqui para que la descargue quien la necesite ? gracias.','',0,'gA==','1qaf90wh',1,0,'',2,0,0),(4159,1037,19,106,0,'85.34.123.172',1135672476,1,0,0,1,1,1,'','','Muchas felicidades!!!','',0,'gA==','xgqyojty',1,0,'',106,0,0),(4160,660,2,2,0,'80.58.2.107',1135672478,1,0,1,1,1,1,'','','Mario,\n\nPuedes subirlo a <!-- m --><a class=\"postlink\" href=\"http://www.hyperupload.com\">http://www.hyperupload.com</a><!-- m --> y poner aqui el enlace para descargarlo ? gracias.','',0,'gA==','1bqldscc',1,0,'',2,0,0),(4161,1047,2,2,0,'80.58.2.107',1135672615,1,0,1,1,1,1,'','','Revisa el ejemplo samples\\dbctest.prg para ver como se usa un DBCOMBO.','',0,'gA==','3b7s2cq8',1,0,'',2,0,0),(4162,962,2,2,0,'80.58.2.107',1135672773,1,0,1,1,1,1,'','','El código final ha quedado así:\n\n[code:2xmf8ibo]\n   if IsWindowEnabled&#40; &#58;&#58;hWnd &#41;\n      CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   else\n      SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41;\n      hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oFont&#58;hFont &#41;\n      \n      do case \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_CENTER &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_CENTER &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; / 2,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n              \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_RIGHT &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_RIGHT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; - 4,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n             \n         otherwise \n              SetTextAlign&#40; &#58;&#58;hDC, TA_LEFT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, 0,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      endcase \n\n      SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;            \n   endif                \n[/code:2xmf8ibo]\n\nEl color lo estableces con la cláusula COLOR ..., ... para cada GET, ó en ese código cambias ::nClrText y ::nClrPane por los colores que quieras y todos los GETs deshabilitados se verán del mismo color.','',0,'AIA=','2xmf8ibo',1,0,'',2,0,0),(4163,1037,19,177,0,'62.99.99.153',1135673071,1,0,1,1,1,0,'','','Enhorabuena, felicidades.\n\nPreparate para los pañales, biberones, noches sin dormir (que puedes aprovechar para programar), etc ...\n\nDisfruta todo lo que puedas de tu niña, al final es lo único que vale y por lo que nos movemos.\n\nFelicidades.\n\nUn abrazo,\n\nFélix','',0,'AIA=','20g1z8v8',1,0,'',177,0,0),(4164,1013,6,2,0,'80.58.2.107',1135673280,1,0,1,1,1,1,'','','Carlos,\n\nTendrías que hacerlo desde la claúsula ON INIT en el ACTIVATE:\n\n[code:37mbtjpd]\n   ACTIVATE DIALOG oDlg ;\n      ON INIT RedefineSays&#40; oDlg &#41; \n[/code:37mbtjpd]\n\nEn la función RedefineSays() a la que llamas, ya tienes el handle de ventana del diálogo, oDlg:hWnd. Y con ese handle puedes recorrer todos sus controles hijos:\n\n[code:37mbtjpd]\nfunction RedefineSays&#40; oDlg &#41;\n\n   local hCtrl &#58;= GetWindow&#40; oDlg&#58;hWnd, GW_CHILD &#41;\n\n   while hCtrl != 0\n      if GetClassName&#40; hCtrl &#41; == &quot;Static&quot;  // SAY\n         &#46;&#46;&#46;\n      endif\n      hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41;\n   end\n\nreturn nil\n[/code:37mbtjpd]','',0,'AIA=','37mbtjpd',1,0,'',2,0,0),(4165,1041,3,2,0,'80.58.2.107',1135673624,1,0,1,1,1,1,'','','FWH provides AnsiToWide( cAnsi ) --&gt; cWide and WideToAnsi( cWide ) --&gt; cAnsi functions.','',0,'AIA=','3uooeuew',1,0,'',2,0,0),(4166,1018,1,2,0,'80.58.2.107',1135675725,1,0,1,1,1,1,'','','Otto,\n\nWhat I was meaning is to create a new class, using TPanel as a sample, for a user defined control, where you paint, process input (keyboard, mouse), etc.\n\nThat class should have the style WS_TABSTOP so you can use the tab to set the focus to it and to go to other controls.','',0,'AIA=','3g4c5rlk',1,0,'',2,0,0),(4167,1038,6,21,0,'80.58.49.235',1135676328,1,0,1,1,1,1,'','','Hola,\n\nMuchas gracias por vuestra ayuda.\n\nFelix, El control ActiveX \"Ex Tree\" es muy completito, pero creo que va a ser demasiado complicado para mis clientes.\n\nAntonio, no me daba cuenta de la clase listview. La implementación me parece bastante sencilla y como dices, tengo control total.\n\nCuanto lo tenga diseñado os muestro que hago, por si sirve a alguien mas o por si veis errores, que seguro que los habrá.  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nPor cierto hay alguna forma de optener de cada archivo cual es el icono con el que se visualiza en windows?. Para no tener que preocuparme si las aplicaciones cambian los iconos, por ejemplo de word 97 a word 2000, cambia la forma del icono que da a los documentos hechos en word.','',0,'AIA=','i1871yxl',1,0,'',21,0,0),(4168,1033,3,372,0,'83.118.100.14',1135678808,1,0,1,1,1,0,'','','Hi Ask,\n\ni can\'t get your sample to work, when compiling it gives an error: \"Unresolved external \'_HB_FUN_CREATEOBJECT\'. Do i need to activate a DLL for this?\n\nThanks,\n\nJohn.','',0,'AIA=','2h90ejgj',1,0,'',372,0,0),(4169,557,1,86,0,'213.119.103.68',1135678918,1,0,1,1,1,1,'','','I use FW 2.4, Clipper 5.3e and Blinker 7.0.\n\nI needed 6 DLL\'s files to store all my screens. And that was to much to handle properly.\n\nSo what did I do ?\n\nIn Workshop 4.5, I saved all my DLL-files as RES-files.\n\nI implimented my RES-files into my LNK-script like this :\n\n---------------------------\n\nOUTPUT APLLIC.EXE\n\nBLINKER INCREMENTAL OFF\nBLINKER CLIPPER SYMBOL OFF\nBLINKER EXECUTABLE ALIGNMENT 128\n\nPACKCODE\nPACKDATA\n\nFI obj1\nFI obj2\n....\nFI objZ\n\nDEFBEGIN\n     name         APPLIC\n     description \'APPLICATION\'\n     exetype     Windows 3.1\n     code          moveable discardable preload\n     data           preload movable\n-&gt;  rc              DLL1.RES\n-&gt;  rc              DLL2.RES\n-&gt;  rc              DLL3.RES\n-&gt;  rc              DLL4.RES\n-&gt;  rc              DLL5.RES\n-&gt;  rc              DLL6.RES\n      stacksize   10500\n      heapsize    1024\n      segment    \'PLANTON_TEXT\'   nondiscardable\n      segment    \'EXTEND_TEXT\'     nondiscardable\n      segment    \'OM_TEXT\'            nondiscardable\n      segment    \'OSMEM_TEXT\'      nondiscardable\n      segment    \'SORTOF_TEXT\'     nondiscardable\n      segment    \'STACK_TEXT\'       nondiscardable\nDEFEND\n\nLIB yourlibs\nLIB oFive16,oFive16C\nLIB WINAPI\n\nNO BELL\n\n---------------------------\n\nThat is how my LNK-script looks like.\n\nAnd it just works fine.\n\nAlso, you need to delete all your \"SET RESOURCE TO\" in your PRG-files.\n\nthe \'-&gt;\' in the LNK-script are just signs to put the attention on, of course.\n\nGood luck.','',0,'AIA=','261w2z0z',1,0,'',86,0,0),(4170,1033,3,372,0,'83.118.100.14',1135678961,1,0,1,1,1,0,'','','Hi Richard,\n\ni\'m using Harbour version 44.0 flex. I\'m not linking any ole.lib at this time, which one should i link? The only one i can find is HBOLE.LIB, from a sample i downloaded...\n\nBest regards,\n\nJohn.','',0,'AIA=','140qtk2g',1,0,'',372,0,0),(4171,1033,3,247,0,'87.202.28.179',1135679143,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:fnrepe41]Hi Ask,\n\ni can\'t get your sample to work, when compiling it gives an error: \"Unresolved external \'_HB_FUN_CREATEOBJECT\'. Do i need to activate a DLL for this?\n\nThanks,\n\nJohn.[/quote:fnrepe41]\n\nI think that you have to include rtl.lib .Try it and tell me\n\nA.S.K','',0,'gA==','fnrepe41',1,0,'',247,0,0),(4172,1050,6,378,0,'80.58.54.235',1135679489,1,0,1,1,1,0,'','generador interactivo de listados','Hola a todos:\n\nEn primer lugar, feliz navidad!!!. Creo que tenemos que estar muy contentos con la marcha de fivewin y los esfuerzos de Antonio.\n\nMe gustaría saber si existe algún generador de listados interactivo, en el que tu puedas seleccionar los campos de la base de datos, filtros, etc, que funcione bajo Harbour. \n\nMil gracias.','',0,'gA==','1slafgr5',1,0,'',378,0,0),(4173,1033,3,3,0,'82.120.24.244',1135679953,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:2f71xy0i]Hi Richard,\n\ni\'m using Harbour version 44.0 flex. I\'m not linking any ole.lib at this time, which one should i link? The only one i can find is HBOLE.LIB, from a sample i downloaded...\n\nBest regards,\n\nJohn.[/quote:2f71xy0i]\n\nYes link HBOLE.LIB  this one is needed','',0,'gA==','2f71xy0i',1,0,'',3,0,0),(4174,1018,1,51,0,'80.122.88.242',1135680113,1,0,1,1,1,0,'','','Now I have a nice homework,\n\nThanks \nOtto','',0,'gA==','392cyv5d',1,0,'',51,0,0),(4175,1033,3,372,0,'83.118.100.14',1135680398,1,0,1,1,1,0,'','','Hi Ask,\n\nIt seems i already included RTL.LIB, any other suggestions?\n\nThanks,\n\nJohn.','',0,'gA==','1rc20pp9',1,0,'',372,0,0),(4176,1033,3,372,0,'83.118.100.14',1135680775,1,0,1,1,1,0,'','','Hi Richard,\n\nunfortunately linking hbole.lib still gives the same results (Bad address syntax)... I\'m using Borland C++ 5.5.1, i guess that couldn\'t be the problem?\n\nThanks,\n\nJohn.','',0,'gA==','24v224op',1,0,'',372,0,0),(4177,1033,3,247,0,'87.202.28.179',1135681148,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:26go4ce2]Hi Ask,\n\nIt seems i already included RTL.LIB, any other suggestions?\n\nThanks,\n\nJohn.[/quote:26go4ce2]\n\nAs i can see createobject function is inside win32ole.prg that is in rtl.lib .I work with xharbour and all is fine (if you use harbour try to change it to xharbour) . I use sendmail a long time now and works perfectly.\n\nBellow is win32ole.prg that can be found at <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w --> :\n\n/*\n * $Id: win32ole.prg,v 1.84 2005/06/01 17:01:09 ronpinkas Exp $\n */\n\n/*\n * Copyright 2002  Jos&#953; F. Gim&#953;nez (JFG) - &lt;jfgimenez@wanadoo.es&gt;\n *                 Ron Pinkas            - &lt;ron@ronpinkas.com&gt;\n *\n * www - <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m -->\n *\n * This program is free software; you can redistribute it and/or modify\n * it under the terms of the GNU General Public License as published by\n * the Free Software Foundation; either version 2, or (at your option)\n * any later version.\n *\n * This program is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\n * GNU General Public License for more details.\n *\n * You should have received a copy of the GNU General Public License\n * along with this software; see the file COPYING.  If not, write to\n * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,\n * Boston, MA 02111-1307 USA (or visit the web site <!-- m --><a class=\"postlink\" href=\"http://www.gnu.org/\">http://www.gnu.org/</a><!-- m -->).\n *\n * As a special exception, the xHarbour Project gives permission for\n * additional uses of the text contained in its release of xHarbour.\n *\n * The exception is that, if you link the xHarbour libraries with other\n * files to produce an executable, this does not by itself cause the\n * resulting executable to be covered by the GNU General Public License.\n * Your use of that executable is in no way restricted on account of\n * linking the xHarbour library code into it.\n *\n * This exception does not however invalidate any other reasons why\n * the executable file might be covered by the GNU General Public License.\n *\n * This exception applies only to the code released by the xHarbour\n * Project under the name xHarbour.  If you copy code from other\n * xHarbour Project or Free Software Foundation releases into a copy of\n * xHarbour, as the General Public License permits, the exception does\n * not apply to the code that you add in this way.  To avoid misleading\n * anyone as to the status of such modified files, you must delete\n * this exception notice from them.\n *\n * If you write modifications of your own for xHarbour, it is your choice\n * whether to permit this exception to apply to your modifications.\n * If you do not wish that, delete this exception notice.\n *\n */\n\n#ifndef __PLATFORM__Windows\n  Function CreateObject()\n  Return NIL\n\n  FUNCTION GetActiveObject( cString )\n  Return NIL\n#else\n\n#include \"hbclass.ch\"\n#include \"error.ch\"\n\n//----------------------------------------------------------------------------//\n\nFUNCTION CreateObject( cString )\n\nRETURN TOleAuto():New( cString )\n\n//----------------------------------------------------------------------------//\n\nFUNCTION GetActiveObject( cString )\n\nRETURN TOleAuto():GetActiveObject( cString )\n\n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n\n   #ifndef CINTERFACE\n      #define CINTERFACE 1\n   #endif\n\n   #define NONAMELESSUNION\n\n   #include &lt;string.h&gt;\n\n   #include \"hbapi.h\"\n   #include \"hbstack.h\"\n   #include \"hbapierr.h\"\n   #include \"hbapiitm.h\"\n   #include \"hbvm.h\"\n   #include \"hbdate.h\"\n   #include \"hboo.ch\"\n   #include \"hbfast.h\"\n\n   #include &lt;ctype.h&gt;\n\n   #include &lt;windows.h&gt;\n   #include &lt;ole2.h&gt;\n   #include &lt;oleauto.h&gt;\n\n   #ifndef __MINGW32__\n      // Missing in Mingw V 2.\n      //#include &lt;OleDB.h&gt;\n   #endif\n\n   #include &lt;shlobj.h&gt;\n\n   #ifdef __MINGW32__\n      // Missing in oleauto.h\n      WINOLEAUTAPI VarR8FromDec(DECIMAL *pdecIn, DOUBLE *pdblOut);\n   #endif\n\n   #if ( defined(__DMC__) || defined(__MINGW32__) || ( defined(__WATCOMC__) &amp;&amp; !defined(__FORCE_LONG_LONG__) ) )\n      #define HB_LONG_LONG_OFF\n   #endif\n\n   static HRESULT  s_nOleError;\n   static HB_ITEM  OleAuto;\n\n   static PHB_DYNS s_pSym_OleAuto;\n   static PHB_DYNS s_pSym_hObj;\n   static PHB_DYNS s_pSym_New;\n   static PHB_DYNS s_pSym_cClassName;\n\n   static BOOL *s_OleRefFlags = NULL;\n\n#pragma ENDDUMP\n\n//----------------------------------------------------------------------------//\n\nINIT PROC HB_OLEINIT\n\n   HB_INLINE()\n   {\n      s_nOleError = OleInitialize( NULL );\n\n      s_pSym_OleAuto     = hb_dynsymFindName( \"TOLEAUTO\" );\n      s_pSym_New         = hb_dynsymFindName( \"NEW\" );\n      s_pSym_hObj        = hb_dynsymFindName( \"HOBJ\" );\n      s_pSym_cClassName  = hb_dynsymFindName( \"CCLASSNAME\" );\n   }\nreturn\n\nEXIT PROC HB_OLEEXIT\n   HB_INLINE()\n   {\n      OleUninitialize();\n   }\nreturn\n\n//----------------------------------------------------------------------------//\n\nCLASS TOleAuto\n\n   DATA hObj\n   DATA cClassName\n\n   METHOD New( uObj, cClass ) CONSTRUCTOR\n   METHOD GetActiveObject( cClass ) CONSTRUCTOR\n\n   METHOD Invoke()\n   MESSAGE Set METHOD Invoke()\n   MESSAGE Get METHOD Invoke()\n\n   METHOD Collection( xIndex, xValue ) OPERATOR \"[]\"\n\n   // Needed to refernce, or hb_dynsymFindName() will fail\n   METHOD ForceSymbols() INLINE ::cClassName()\n\n   ERROR HANDLER OnError()\n\n   DESTRUCTOR Release()\n\nENDCLASS\n\n//--------------------------------------------------------------------\n\nMETHOD New( uObj, cClass ) CLASS TOleAuto\n\n   LOCAL oErr\n\n   // Hack incase OLE Server already created and New() is attempted as an OLE Method.\n   IF ::hObj != NIL\n      RETURN HB_ExecFromArray( Self, \"_New\", HB_aParams() )\n   ENDIF\n\n   IF ValType( uObj ) = \'C\'\n      ::hObj := CreateOleObject( uObj )\n\n      IF OleError() != 0\n         IF Ole2TxtError() == \"DISP_E_EXCEPTION\"\n            oErr := ErrorNew()\n            oErr:Args          := HB_aParams()\n            oErr:CanDefault    := .F.\n            oErr:CanRetry      := .F.\n            oErr:CanSubstitute := .T.\n            oErr:Description   := OLEExceptionDescription()\n            oErr:GenCode       := EG_OLEEXECPTION\n            oErr:Operation     := ProcName()\n            oErr:Severity      := ES_ERROR\n            oErr:SubCode       := -1\n            oErr:SubSystem     := OLEExceptionSource()\n\n            RETURN Eval( ErrorBlock(), oErr )\n         ELSE\n            oErr := ErrorNew()\n            oErr:Args          := HB_aParams()\n            oErr:CanDefault    := .F.\n            oErr:CanRetry      := .F.\n            oErr:CanSubstitute := .T.\n            oErr:Description   := Ole2TxtError()\n            oErr:GenCode       := EG_OLEEXECPTION\n            oErr:Operation     := ProcName()\n            oErr:Severity      := ES_ERROR\n            oErr:SubCode       := -1\n            oErr:SubSystem     := \"TOleAuto\"\n\n            RETURN Eval( ErrorBlock(), oErr )\n         ENDIF\n      ENDIF\n\n      ::cClassName := uObj\n   ELSEIF ValType( uObj ) = \'N\'\n      ::hObj := uObj\n\n      IF ValType( cClass ) == \'C\'\n         ::cClassName := cClass\n      ELSE\n         ::cClassName := LTrim( Str( uObj ) )\n      ENDIF\n   ELSE\n      MessageBox( 0, \"Invalid parameter type to constructor TOleAuto():New()!\", \"OLE Interface\", 0 )\n      ::hObj := 0\n   ENDIF\n\nRETURN Self\n\n//--------------------------------------------------------------------\n\n// Destructor!\nPROCEDURE Release() CLASS TOleAuto\n\n   IF ! Empty( ::hObj )\n      OleReleaseObject( ::hObj )\n   ENDIF\n\nRETURN\n\n//--------------------------------------------------------------------\n\nMETHOD GetActiveObject( cClass ) CLASS TOleAuto\n\n   LOCAL oErr\n\n   IF ValType( cClass ) = \'C\'\n      ::hObj := GetOleObject( cClass )\n\n      IF OleError() != 0\n         IF Ole2TxtError() == \"DISP_E_EXCEPTION\"\n            oErr := ErrorNew()\n            oErr:Args          := { cClass }\n            oErr:CanDefault    := .F.\n            oErr:CanRetry      := .F.\n            oErr:CanSubstitute := .T.\n            oErr:Description   := OLEExceptionDescription()\n            oErr:GenCode       := EG_OLEEXECPTION\n            oErr:Operation     := ProcName()\n            oErr:Severity      := ES_ERROR\n            oErr:SubCode       := -1\n            oErr:SubSystem     := OLEExceptionSource()\n\n            RETURN Eval( ErrorBlock(), oErr )\n         ELSE\n            oErr := ErrorNew()\n            oErr:Args          := { cClass }\n            oErr:CanDefault    := .F.\n            oErr:CanRetry      := .F.\n            oErr:CanSubstitute := .T.\n            oErr:Description   := Ole2TxtError()\n            oErr:GenCode       := EG_OLEEXECPTION\n            oErr:Operation     := ProcName()\n            oErr:Severity      := ES_ERROR\n            oErr:SubCode       := -1\n            oErr:SubSystem     := \"TOleAuto\"\n\n            RETURN Eval( ErrorBlock(), oErr )\n         ENDIF\n      ENDIF\n\n      ::cClassName := cClass\n   ELSE\n      MessageBox( 0, \"Invalid parameter type to constructor TOleAuto():GetActiveObject()!\", \"OLE Interface\", 0 )\n      ::hObj := 0\n   ENDIF\n\nRETURN Self\n\n//--------------------------------------------------------------------\n\nMETHOD Invoke( ... ) CLASS TOleAuto\n\n   LOCAL cMethod := HB_aParams()[1]\n\nRETURN HB_ExecFromArray( Self, cMethod, aDel( HB_aParams(), 1, .T. ) )\n\n//--------------------------------------------------------------------\n\nMETHOD Collection( xIndex, xValue ) CLASS TOleAuto\n\n   LOCAL xRet\n\n   //TraceLog( PCount(), xIndex, xValue )\n\n   IF PCount() == 1\n      RETURN ::Item( xIndex )\n   ENDIF\n\n   TRY\n      // ASP Collection syntax.\n      xRet := ::_Item( xIndex, xValue )\n   CATCH\n      xRet := ::SetItem( xIndex, xValue )\n   END\n\nRETURN xRet\n\n//--------------------------------------------------------------------\n\n#pragma BEGINDUMP\n\n  // -----------------------------------------------------------------------\n\n  static VARIANTARG RetVal;\n\n  static EXCEPINFO excep;\n\n  static PHB_ITEM *aPrgParams = NULL;\n\n  static BSTR bstrMessage;\n  static DISPID lPropPut = DISPID_PROPERTYPUT;\n  static UINT uArgErr;\n\n  //---------------------------------------------------------------------------//\n\n  static double DateToDbl( LPSTR cDate )\n  {\n     double nDate;\n\n     nDate = hb_dateEncStr( cDate ) - 0x0024d9abL;\n\n     return ( nDate );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static LPSTR DblToDate( double nDate )\n  {\n     static char cDate[9] = \"00000000\";\n\n     hb_dateDecStr( cDate, (LONG) nDate + 0x0024d9abL );\n\n     return ( cDate );\n  }\n\n  //---------------------------------------------------------------------------//\n  #if 0\n  static LPWSTR AnsiToWide( LPSTR cString )\n  {\n     UINT uLen;\n     LPWSTR wString;\n\n     uLen  = strlen( cString ) + 1;\n\n     if( uLen &gt; 1 )\n     {\n        wString = ( BSTR ) hb_xgrab( uLen * 2 );\n        MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED, cString, -1, wString, uLen );\n     }\n     else\n     {\n        // *** This is a speculation about L\"\" - need to be verified.\n        wString = (BSTR) hb_xgrab( 2 );\n        wString[0] = L\'\\0\';\n     }\n\n     //printf( \"\\nAnsi: \'%s\'\\n\", cString );\n     //wprintf( L\"\\nWide: \'%s\'\\n\", wString );\n\n     return wString;\n  }\n  #endif\n\n  static BSTR AnsiToSysString( LPSTR cString )\n  {\n     BSTR bstrString;\n     int nConvertedLen = MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED, cString, -1, NULL, 0 ) -1;\n\n     bstrString = SysAllocStringLen( NULL, nConvertedLen );\n\n     if( bstrString )\n     {\n        bstrString[0] = \'\\0\';\n        MultiByteToWideChar( CP_ACP, 0, cString, -1,  bstrString, nConvertedLen );\n     }\n\n     return bstrString;\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static LPSTR WideToAnsi( BSTR wString )\n  {\n     char *cString;\n     int nConvertedLen = WideCharToMultiByte( CP_ACP, 0, wString, -1, NULL, 0, NULL, NULL );\n\n     if( nConvertedLen )\n     {\n        cString = (char *) hb_xgrab( nConvertedLen );\n        WideCharToMultiByte( CP_ACP, 0, wString, -1, cString, nConvertedLen, NULL, NULL );\n     }\n     else\n     {\n        cString = (char *) hb_xgrab( 1 );\n        cString[0] = \'\\0\';\n     }\n\n     //wprintf( L\"\\nWide: \'%s\'\\n\", wString );\n     //printf( \"\\nAnsi: \'%s\'\\n\", cString );\n\n     return cString;\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static void GetParams( DISPPARAMS *pDispParams )\n  {\n     VARIANTARG * pArgs = NULL;\n     PHB_ITEM uParam;\n     int n, nArgs, nArg;\n     BOOL bByRef;\n\n     nArgs = hb_pcount();\n\n     if( nArgs &gt; 0 )\n     {\n        pArgs = ( VARIANTARG * ) hb_xgrab( sizeof( VARIANTARG ) * nArgs );\n        aPrgParams = ( PHB_ITEM * ) hb_xgrab( sizeof( PHB_ITEM ) * nArgs );\n\n        // 1 Based!!!\n        s_OleRefFlags = (BOOL *) hb_xgrab( ( nArgs + 1 ) * sizeof( BOOL ) );\n\n        //printf( \"Args: %i\\n\", nArgs );\n\n        for( n = 0; n &lt; nArgs; n++ )\n        {\n           // Parameters are processed in reversed order.\n           nArg = nArgs - n;\n\n           VariantInit( &amp;( pArgs[ n ] ) );\n\n           uParam = hb_param( nArg, HB_IT_ANY );\n\n           bByRef = HB_IS_BYREF( hb_stackItemFromBase( nArg ) );\n\n           // 1 Based!!!\n           s_OleRefFlags[ nArg ] = bByRef;\n\n           //TraceLog( NULL, \"N: %i Arg: %i Type: %i %i ByRef: %i\\n\", n, nArg, hb_stackItemFromBase( nArg  )-&gt;type, uParam-&gt;type, bByRef );\n\n           aPrgParams[ n ] = uParam;\n\n           switch( uParam-&gt;type )\n           {\n              case HB_IT_NIL:\n                pArgs[ n ].n1.n2.vt   = VT_EMPTY;\n                break;\n\n              case HB_IT_STRING:\n              case HB_IT_MEMO:\n                if( bByRef )\n                {\n                   hb_itemPutCRawStatic( uParam, (char *) AnsiToSysString( hb_parcx( nArg ) ), uParam-&gt;item.asString.length * 2 + 1 );\n\n                   pArgs[ n ].n1.n2.vt   = VT_BYREF | VT_BSTR;\n                   pArgs[ n ].n1.n2.n3.pbstrVal = (BSTR *) &amp;( uParam-&gt;item.asString.value );\n                   //wprintf( L\"*** BYREF &gt;%s&lt;\\n\", *pArgs[ n ].n1.n2.n3.bstrVal );\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt   = VT_BSTR;\n                   pArgs[ n ].n1.n2.n3.bstrVal = AnsiToSysString( hb_parcx( nArg ) );\n                   //wprintf( L\"*** &gt;%s&lt;\\n\", pArgs[ n ].n1.n2.n3.bstrVal );\n                }\n                break;\n\n              case HB_IT_LOGICAL:\n                if( bByRef )\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BYREF | VT_BOOL;\n                   pArgs[ n ].n1.n2.n3.pboolVal = (short *) &amp;( uParam-&gt;item.asLogical.value ) ;\n                   uParam-&gt;type = HB_IT_LONG;\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BOOL;\n                   pArgs[ n ].n1.n2.n3.boolVal = hb_parl( nArg ) ? VARIANT_TRUE : VARIANT_FALSE;\n                }\n                break;\n\n              case HB_IT_INTEGER:\n#if HB_INT_MAX == INT16_MAX\n                if( bByRef )\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BYREF | VT_I2;\n                   pArgs[ n ].n1.n2.n3.piVal = &amp;( uParam-&gt;item.asInteger.value ) ;\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt = VT_I2;\n                   pArgs[ n ].n1.n2.n3.iVal = hb_parni( nArg );\n                }\n                break;\n#else\n                if( bByRef )\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BYREF | VT_I4;\n                   pArgs[ n ].n1.n2.n3.plVal = (long *) &amp;( uParam-&gt;item.asInteger.value ) ;\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt = VT_I4;\n                   pArgs[ n ].n1.n2.n3.lVal = hb_parnl( nArg );\n                }\n                break;\n#endif\n              case HB_IT_LONG:\n#if HB_LONG_MAX == INT32_MAX || defined( HB_LONG_LONG_OFF )\n                if( bByRef )\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BYREF | VT_I4;\n                   pArgs[ n ].n1.n2.n3.plVal = (long *) &amp;( uParam-&gt;item.asLong.value ) ;\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt = VT_I4;\n                   pArgs[ n ].n1.n2.n3.lVal = hb_parnl( nArg );\n                }\n#else\n                if( bByRef )\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BYREF | VT_I8;\n                   pArgs[ n ].n1.n2.n3.pllVal = &amp;( uParam-&gt;item.asLong.value ) ;\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt = VT_I8;\n                   pArgs[ n ].n1.n2.n3.llVal = hb_parnll( nArg );\n                }\n#endif\n                break;\n\n              case HB_IT_DOUBLE:\n                if( bByRef )\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BYREF | VT_R8;\n                   pArgs[ n ].n1.n2.n3.pdblVal = &amp;( uParam-&gt;item.asDouble.value ) ;\n                   uParam-&gt;type = HB_IT_DOUBLE;\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt   = VT_R8;\n                   pArgs[ n ].n1.n2.n3.dblVal = hb_parnd( nArg );\n                }\n                break;\n\n              case HB_IT_DATE:\n                if( bByRef )\n                {\n                   pArgs[ n ].n1.n2.vt = VT_BYREF | VT_DATE;\n                   uParam-&gt;item.asDouble.value = DateToDbl( hb_pards( nArg ) );\n                   pArgs[ n ].n1.n2.n3.pdblVal = &amp;( uParam-&gt;item.asDouble.value ) ;\n                   uParam-&gt;type = HB_IT_DOUBLE;\n                }\n                else\n                {\n                   pArgs[ n ].n1.n2.vt   = VT_DATE;\n                   pArgs[ n ].n1.n2.n3.dblVal = DateToDbl( hb_pards( nArg ) );\n                }\n                break;\n\n              case HB_IT_ARRAY:\n              {\n                 pArgs[ n ].n1.n2.vt = VT_EMPTY;\n\n                 if( ! HB_IS_OBJECT( uParam ) )\n                 {\n                    SAFEARRAYBOUND rgsabound;\n                    PHB_ITEM       elem;\n                    long           count;\n                    long           i;\n\n                    count = hb_arrayLen( uParam );\n\n                    rgsabound.cElements = count;\n                    rgsabound.lLbound = 0;\n                    pArgs[ n ].n1.n2.vt        = VT_ARRAY | VT_VARIANT;\n                    pArgs[ n ].n1.n2.n3.parray = SafeArrayCreate( VT_VARIANT, 1, &amp;rgsabound );\n\n                    for( i = 0; i &lt; count; i++ )\n                    {\n                       elem = hb_arrayGetItemPtr( uParam, i+1 );\n\n                       if( strcmp( hb_objGetClsName( elem ), \"TOLEAUTO\" ) == 0 )\n                       {\n                          VARIANT mVariant;\n\n                          VariantInit( &amp;mVariant );\n\n                          hb_vmPushSymbol( s_pSym_hObj-&gt;pSymbol );\n                          hb_vmPush( elem );\n                          hb_vmSend( 0 );\n\n                          mVariant.n1.n2.vt = VT_DISPATCH;\n                          mVariant.n1.n2.n3.pdispVal = ( IDispatch * ) hb_parnl( -1 );\n                          SafeArrayPutElement( pArgs[ n ].n1.n2.n3.parray, &amp;i, &amp;mVariant );\n                       }\n                    }\n                 }\n                 else\n                 {\n                    if( hb_clsIsParent( uParam-&gt;item.asArray.value-&gt;uiClass , \"TOLEAUTO\" ) )\n                    {\n                       hb_vmPushSymbol( s_pSym_hObj-&gt;pSymbol );\n                       hb_vmPush( uParam );\n                       hb_vmSend( 0 );\n                       //TraceLog( NULL, \"\\n#%i Dispatch: %ld\\n\", n, hb_parnl( -1 ) );\n                       pArgs[ n ].n1.n2.vt = VT_DISPATCH;\n                       pArgs[ n ].n1.n2.n3.pdispVal = ( IDispatch * ) hb_parnl( -1 );\n                       //printf( \"\\nDispatch: %p\\n\", pArgs[ n ].n1.n2.n3.pdispVal );\n\n                    }\n                    else\n                    {\n                       TraceLog( NULL, \"Class: \'%s\' not suported!\\n\", hb_objGetClsName( uParam ) );\n                    }\n                 }\n              }\n              break;\n           }\n        }\n     }\n\n     pDispParams-&gt;rgvarg            = pArgs;\n     pDispParams-&gt;cArgs             = nArgs;\n     pDispParams-&gt;rgdispidNamedArgs = 0;\n     pDispParams-&gt;cNamedArgs        = 0;\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static void FreeParams( DISPPARAMS *pDispParams )\n  {\n     int n, nParam;\n     char *sString;\n\n     if( pDispParams-&gt;cArgs &gt; 0 )\n     {\n        for( n = 0; n &lt; ( int ) pDispParams-&gt;cArgs; n++ )\n        {\n           nParam = pDispParams-&gt;cArgs - n;\n\n           //TraceLog( NULL, \"*** N: %i, Param: %i Type: %i\\n\", n, nParam, pDispParams-&gt;rgvarg[ n ].n1.n2.vt );\n\n           // 1 Based!!!\n           if( s_OleRefFlags[ nParam ]  )\n           {\n              switch( pDispParams-&gt;rgvarg[ n ].n1.n2.vt )\n              {\n                 case VT_BYREF | VT_BSTR:\n                   //printf( \"String\\n\" );\n                   sString = WideToAnsi( *( pDispParams-&gt;rgvarg[ n ].n1.n2.n3.pbstrVal ) );\n\n                   SysFreeString( *( pDispParams-&gt;rgvarg[ n ].n1.n2.n3.pbstrVal ) );\n\n                   hb_itemPutCPtr( aPrgParams[ n ], sString, strlen( sString ) );\n                   break;\n\n                 // Already using the PHB_ITEM allocated value\n                 /*\n                 case VT_BYREF | VT_BOOL:\n                   //printf( \"Logical\\n\" );\n                   ( aPrgParams[ n ] )-&gt;type = HB_IT_LOGICAL;\n                   ( aPrgParams[ n ] )-&gt;item.asLogical.value = pDispParams-&gt;rgvarg[ n ].n1.n2.n3.boolVal ;\n                   break;\n                 */\n\n                 case VT_DISPATCH:\n                 case VT_BYREF | VT_DISPATCH:\n                   //TraceLog( NULL, \"Dispatch %p\\n\", pDispParams-&gt;rgvarg[ n ].n1.n2.n3.pdispVal );\n                   if( pDispParams-&gt;rgvarg[ n ].n1.n2.n3.pdispVal == NULL )\n                   {\n                      hb_itemClear( aPrgParams[ n ] );\n                      break;\n                   }\n\n                   OleAuto.type = HB_IT_NIL;\n\n                   if( s_pSym_OleAuto )\n                   {\n                      hb_vmPushSymbol( s_pSym_OleAuto-&gt;pSymbol );\n                      hb_vmPushNil();\n                      hb_vmDo( 0 );\n\n                      hb_itemForwardValue( &amp;OleAuto, &amp;(HB_VM_STACK.Return) );\n                   }\n\n                   if( s_pSym_New &amp;&amp; OleAuto.type )\n                   {\n                      //TOleAuto():New( nDispatch )\n                      hb_vmPushSymbol( s_pSym_New-&gt;pSymbol );\n                      hb_itemPushForward( &amp;OleAuto );\n                      hb_vmPushLong( ( LONG ) pDispParams-&gt;rgvarg[ n ].n1.n2.n3.pdispVal );\n                      hb_vmSend( 1 );\n\n                      hb_itemForwardValue( aPrgParams[ n ], &amp;(HB_VM_STACK.Return) );\n                   }\n                   // Can\'t CLEAR this Variant\n                   continue;\n\n                 /*\n                 case VT_BYREF | VT_I2:\n                   //printf( \"Int %i\\n\", pDispParams-&gt;rgvarg[ n ].n1.n2.n3.iVal );\n                   hb_itemPutNI( aPrgParams[ n ], ( int ) pDispParams-&gt;rgvarg[ n ].n1.n2.n3.iVal );\n                   break;\n\n                 case VT_BYREF | VT_I4:\n                   //printf( \"Long %ld\\n\", pDispParams-&gt;rgvarg[ n ].n1.n2.n3.lVal );\n                   hb_itemPutNL( aPrgParams[ n ], ( LONG ) pDispParams-&gt;rgvarg[ n ].n1.n2.n3.lVal );\n                   break;\n\n#ifndef HB_LONG_LONG_OFF\n                 case VT_BYREF | VT_I8:\n                   //printf( \"Long %Ld\\n\", pDispParams-&gt;rgvarg[ n ].n1.n2.n3.llVal );\n                   hb_itemPutNLL( aPrgParams[ n ], ( LONGLONG ) pDispParams-&gt;rgvarg[ n ].n1.n2.n3.llVal );\n                   break;\n#endif\n\n                 case VT_BYREF | VT_R8:\n                   //printf( \"Double\\n\" );\n                   hb_itemPutND( aPrgParams[ n ],  pDispParams-&gt;rgvarg[ n ].n1.n2.n3.dblVal );\n                   break;\n                 */\n\n                 case VT_BYREF | VT_DATE:\n                   //printf( \"Date\\n\" );\n                   hb_itemPutDS( aPrgParams[ n ], DblToDate( *( pDispParams-&gt;rgvarg[ n ].n1.n2.n3.pdblVal ) ) );\n                   break;\n\n                 /*\n                 case VT_BYREF | VT_EMPTY:\n                   //printf( \"Nil\\n\" );\n                   hb_itemClear( aPrgParams[ n ] );\n                   break;\n                 */\n\n                 default:\n                   TraceLog( NULL, \"*** Unexpected Type: %i***\\n\", pDispParams-&gt;rgvarg[ n ].n1.n2.vt );\n              }\n           }\n           else\n           {\n              switch( pDispParams-&gt;rgvarg[ n ].n1.n2.vt )\n              {\n                 case VT_BSTR:\n                   break;\n\n                 case VT_DISPATCH:\n                   //TraceLog( NULL, \"***NOT REF*** Dispatch %p\\n\", pDispParams-&gt;rgvarg[ n ].n1.n2.n3.pdispVal );\n                   // Can\'r CLEAR this Variant.\n                   continue;\n\n                 //case VT_ARRAY | VT_VARIANT:\n                 //  SafeArrayDestroy( pDispParams-&gt;rgvarg[ n ].n1.n2.n3.parray );\n              }\n           }\n\n           VariantClear( &amp;(pDispParams-&gt;rgvarg[ n ] ) );\n        }\n\n        hb_xfree( ( LPVOID ) pDispParams-&gt;rgvarg );\n\n        hb_xfree( (void *) s_OleRefFlags );\n        s_OleRefFlags = NULL;\n\n        hb_xfree( ( LPVOID ) aPrgParams );\n        aPrgParams = NULL;\n     }\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static void RetValue( void )\n  {\n     LPSTR cString;\n\n     /*\n     printf( \"Type: %i\\n\", RetVal.n1.n2.vt );\n     fflush( stdout );\n     getchar();\n     */\n\n     switch( RetVal.n1.n2.vt )\n     {\n        case VT_BSTR:\n          //printf( \"String\\n\" );\n          cString = WideToAnsi( RetVal.n1.n2.n3.bstrVal );\n          //printf( \"cString %s\\n\", cString );\n          hb_retcAdopt( cString );\n          //printf( \"Adopted\\n\" );\n          break;\n\n        case VT_BOOL:\n          hb_retl( RetVal.n1.n2.n3.boolVal == VARIANT_TRUE ? 1 :0 );\n          break;\n\n        case VT_DISPATCH:\n          if( RetVal.n1.n2.n3.pdispVal == NULL )\n          {\n             hb_ret();\n             break;\n          }\n\n          OleAuto.type = HB_IT_NIL;\n\n          if( s_pSym_OleAuto )\n          {\n             hb_vmPushSymbol( s_pSym_OleAuto-&gt;pSymbol );\n             hb_vmPushNil();\n             hb_vmDo( 0 );\n\n             hb_itemForwardValue( &amp;OleAuto, &amp;(HB_VM_STACK.Return) );\n          }\n\n          if( s_pSym_New &amp;&amp; OleAuto.type )\n          {\n             //TOleAuto():New( nDispatch )\n             hb_vmPushSymbol( s_pSym_New-&gt;pSymbol );\n             hb_itemPushForward( &amp;OleAuto );\n             hb_vmPushLong( ( LONG ) RetVal.n1.n2.n3.pdispVal );\n             hb_vmSend( 1 );\n             //printf( \"Dispatch: %ld %ld\\n\", ( LONG ) RetVal.n1.n2.n3.pdispVal, (LONG) hb_stack.Return.item.asArray.value );\n          }\n          break;\n\n        case VT_I1:     // Byte\n        case VT_UI1:\n          hb_retni( ( short ) RetVal.n1.n2.n3.bVal );\n          break;\n\n        case VT_I2:     // Short (2 bytes)\n        case VT_UI2:\n          hb_retni( ( short ) RetVal.n1.n2.n3.iVal );\n          break;\n\n        case VT_I4:     // Long (4 bytes)\n        case VT_UI4:\n        case VT_INT:\n        case VT_UINT:\n          hb_retnl( ( LONG ) RetVal.n1.n2.n3.lVal );\n          break;\n\n#ifndef HB_LONG_LONG_OFF\n        case VT_I8:     // LongLong (8 bytes)\n        case VT_UI8:\n          hb_retnll( ( LONGLONG ) RetVal.n1.n2.n3.llVal );\n          break;\n#endif\n\n        case VT_R4:     // Single\n          hb_retnd( RetVal.n1.n2.n3.fltVal );\n          break;\n\n        case VT_R8:     // Double\n          hb_retnd( RetVal.n1.n2.n3.dblVal );\n          break;\n\n        case VT_CY:     // Currency\n        {\n          double tmp = 0;\n          VarR8FromCy( RetVal.n1.n2.n3.cyVal, &amp;tmp );\n          hb_retnd( tmp );\n        }\n          break;\n\n        case VT_DECIMAL: // Decimal\n          {\n          double tmp = 0;\n          VarR8FromDec( &amp;RetVal.n1.decVal, &amp;tmp );\n          hb_retnd( tmp );\n          }\n          break;\n\n        case VT_DATE:\n          hb_retds( DblToDate( RetVal.n1.n2.n3.dblVal ) );\n          break;\n\n        case VT_EMPTY:\n        case VT_NULL:\n          hb_ret();\n          break;\n\n        case VT_ARRAY | VT_VARIANT:\n        {\n           long     i, nFrom, nTo;\n           VARIANT  mElem;\n           HB_ITEM Result, Add;\n\n           SafeArrayGetLBound( RetVal.n1.n2.n3.parray, 1, &amp;nFrom );\n           SafeArrayGetUBound( RetVal.n1.n2.n3.parray, 1, &amp;nTo );\n\n           Result.type = HB_IT_NIL;\n           hb_arrayNew( &amp;Result, 0 );\n\n           Add.type = HB_IT_NIL;\n\n           for ( i = nFrom; i &lt;= nTo; i++ )\n           {\n              VariantInit( &amp;mElem );\n              SafeArrayGetElement( RetVal.n1.n2.n3.parray, &amp;i, &amp;mElem );\n\n              if( mElem.n1.n2.vt == VT_DISPATCH &amp;&amp; mElem.n1.n2.n3.pdispVal )\n              {\n                 if( s_pSym_OleAuto )\n                 {\n                    hb_vmPushSymbol( s_pSym_OleAuto-&gt;pSymbol );\n                    hb_vmPushNil();\n                    hb_vmDo( 0 );\n\n                    hb_itemForwardValue( &amp;Add, &amp;hb_stack.Return );\n                 }\n\n                 if( s_pSym_New &amp;&amp; Add.type )\n                 {\n                    hb_vmPushSymbol( s_pSym_New-&gt;pSymbol );\n                    hb_vmPush( &amp;Add );\n                    hb_vmPushLong( ( LONG ) mElem.n1.n2.n3.pdispVal );\n                    hb_vmSend( 1 );\n\n                    mElem.n1.n2.n3.pdispVal-&gt;lpVtbl-&gt;AddRef( mElem.n1.n2.n3.pdispVal );\n                 }\n\n                 hb_arrayAddForward( &amp;Result, &amp;Add );\n              }\n\n              VariantClear( &amp;mElem );\n           }\n\n           hb_itemReturn( &amp;Result );\n        }\n        break;\n/*- end -----------------------------&gt;8-------------------------------------*/\n\n        default:\n          //printf( \"Default %i!\\n\", RetVal.n1.n2.vt );\n          if( s_nOleError == S_OK )\n          {\n             s_nOleError = E_UNEXPECTED;\n          }\n\n          hb_ret();\n          break;\n     }\n\n     if( RetVal.n1.n2.vt == VT_DISPATCH &amp;&amp; RetVal.n1.n2.n3.pdispVal )\n     {\n        //printf( \"Dispatch: %ld\\n\", ( LONG ) RetVal.n1.n2.n3.pdispVal );\n     }\n     else\n     {\n        VariantClear( &amp;RetVal );\n     }\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC( OLESHOWEXCEPTION )\n  {\n     if( (LONG) s_nOleError == DISP_E_EXCEPTION )\n     {\n        LPSTR source, description;\n\n        source = WideToAnsi( excep.bstrSource );\n        description = WideToAnsi( excep.bstrDescription );\n\n        MessageBox( NULL, description, source, MB_ICONHAND );\n\n        hb_xfree( source );\n        hb_xfree( description );\n     }\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC_STATIC( OLEEXCEPTIONSOURCE )\n  {\n     if( (LONG) s_nOleError == DISP_E_EXCEPTION )\n     {\n        LPSTR source;\n\n        source = WideToAnsi( excep.bstrSource );\n        hb_retcAdopt( source );\n     }\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC_STATIC( OLEEXCEPTIONDESCRIPTION )\n  {\n     if( (LONG) s_nOleError == DISP_E_EXCEPTION )\n     {\n        LPSTR description;\n\n        description = WideToAnsi( excep.bstrDescription );\n        hb_retcAdopt( description );\n     }\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC_STATIC( OLEERROR )\n  {\n     hb_retnl( (LONG) s_nOleError );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static char * Ole2TxtError( void )\n  {\n     switch( (LONG) s_nOleError )\n     {\n        case S_OK:\n           return \"S_OK\";\n\n        case CO_E_CLASSSTRING:\n           return \"CO_E_CLASSSTRING\";\n\n        case OLE_E_WRONGCOMPOBJ:\n           return \"OLE_E_WRONGCOMPOBJ\";\n\n        case REGDB_E_CLASSNOTREG:\n           return \"REGDB_E_CLASSNOTREG\";\n\n        case REGDB_E_WRITEREGDB:\n           return \"REGDB_E_WRITEREGDB\";\n\n        case E_OUTOFMEMORY:\n           return \"E_OUTOFMEMORY\";\n\n        case E_NOTIMPL:\n           return \"E_NOTIMPL\";\n\n        case E_INVALIDARG:\n           return \"E_INVALIDARG\";\n\n        case E_UNEXPECTED:\n           return \"E_UNEXPECTED\";\n\n        case DISP_E_UNKNOWNNAME:\n           return \"DISP_E_UNKNOWNNAME\";\n\n        case DISP_E_UNKNOWNLCID:\n           return \"DISP_E_UNKNOWNLCID\";\n\n        case DISP_E_BADPARAMCOUNT:\n           return \"DISP_E_BADPARAMCOUNT\";\n\n        case DISP_E_BADVARTYPE:\n           return \"DISP_E_BADVARTYPE\";\n\n        case DISP_E_EXCEPTION:\n           return \"DISP_E_EXCEPTION\";\n\n        case DISP_E_MEMBERNOTFOUND:\n           return \"DISP_E_MEMBERNOTFOUND\";\n\n        case DISP_E_NONAMEDARGS:\n           return \"DISP_E_NONAMEDARGS\";\n\n        case DISP_E_OVERFLOW:\n           return \"DISP_E_OVERFLOW\";\n\n        case DISP_E_PARAMNOTFOUND:\n           return \"DISP_E_PARAMNOTFOUND\";\n\n        case DISP_E_TYPEMISMATCH:\n           return \"DISP_E_TYPEMISMATCH\";\n\n        case DISP_E_UNKNOWNINTERFACE:\n           return \"DISP_E_UNKNOWNINTERFACE\";\n\n        case DISP_E_PARAMNOTOPTIONAL:\n           return \"DISP_E_PARAMNOTOPTIONAL\";\n\n        case CO_E_SERVER_EXEC_FAILURE:\n           return \"CO_E_SERVER_EXEC_FAILURE\";\n\n        case MK_E_UNAVAILABLE:\n           return \"MK_E_UNAVAILABLE\";\n\n        default:\n           TraceLog( NULL, \"TOleAuto Error %p\\n\", s_nOleError );\n           return \"Unknown error\";\n     };\n  }\n\n  //---------------------------------------------------------------------------//\n  HB_FUNC( OLE2TXTERROR )\n  {\n     hb_retc( Ole2TxtError() );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC( ANSITOWIDE )  // ( cAnsiStr ) -&gt; cWideStr\n  {\n     UINT uLen;\n     BSTR wString;\n     char *cString = hb_parcx( 1 );\n\n     if( cString == NULL )\n     {\n        hb_ret();\n        return;\n     }\n\n     uLen = strlen( cString ) + 1;\n\n     wString = ( BSTR ) hb_xgrab( uLen * 2 );\n     MultiByteToWideChar( CP_ACP, MB_PRECOMPOSED, cString, uLen, wString, uLen );\n\n     hb_retclenAdopt( (char *) wString, uLen * 2 - 1 );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC( WIDETOANSI )  // ( cWideStr, nLen ) -&gt; cAnsiStr\n  {\n     UINT uLen;\n     BSTR wString = ( BSTR ) hb_parcx( 1 );\n     char *cString;\n\n     uLen = SysStringLen( wString ) + 1;\n\n     cString = ( char * ) hb_xgrab( uLen );\n\n     WideCharToMultiByte( CP_ACP, WC_COMPOSITECHECK, wString, uLen, cString, uLen, NULL, NULL );\n\n     hb_retclenAdopt( cString, uLen - 1 );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC( MESSAGEBOX )\n  {\n     hb_retni( MessageBox( ( HWND ) hb_parnl( 1 ), hb_parcx( 2 ), hb_parcx( 3 ), hb_parni( 4 ) ) );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC_STATIC( CREATEOLEOBJECT ) // ( cOleName | cCLSID  [, cIID ] )\n  {\n     BSTR bstrClassID;\n     IID ClassID, iid;\n     LPIID riid = (LPIID) &amp;IID_IDispatch;\n     IDispatch *pDisp;\n\n     bstrClassID = AnsiToSysString( hb_parcx( 1 ) );\n\n     if( hb_parcx( 1 )[ 0 ] == \'{\' )\n     {\n        s_nOleError = CLSIDFromString( bstrClassID, (LPCLSID) &amp;ClassID );\n     }\n     else\n     {\n        s_nOleError = CLSIDFromProgID( bstrClassID, (LPCLSID) &amp;ClassID );\n     }\n\n     SysFreeString( bstrClassID );\n\n     //TraceLog( NULL, \"Result: %i\\n\", s_nOleError );\n\n     if( hb_pcount() == 2 )\n     {\n        if( hb_parcx( 2 )[ 0 ] == \'{\' )\n        {\n           bstrClassID = AnsiToSysString( hb_parcx( 2 ) );\n           s_nOleError = CLSIDFromString( bstrClassID, &amp;iid );\n           SysFreeString( bstrClassID );\n        }\n        else\n        {\n           memcpy( ( LPVOID ) &amp;iid, hb_parcx( 2 ), sizeof( iid ) );\n        }\n\n        riid = &amp;iid;\n     }\n\n     if( s_nOleError == S_OK )\n     {\n        //TraceLog( NULL, \"Class: %i\\n\", ClassID );\n        pDisp = NULL;\n        s_nOleError = CoCreateInstance( (REFCLSID) &amp;ClassID, NULL, CLSCTX_SERVER, (REFIID) riid, (void **) &amp;pDisp );\n        //TraceLog( NULL, \"Result: %i\\n\", s_nOleError );\n     }\n\n     hb_retnl( ( LONG ) pDisp );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC_STATIC( GETOLEOBJECT ) // ( cOleName | cCLSID  [, cIID ] )\n  {\n     BSTR bstrClassID;\n     IID ClassID, iid;\n     LPIID riid = (LPIID) &amp;IID_IDispatch;\n     IUnknown *pUnk = NULL;\n     IDispatch *pDisp;\n     //LPOLESTR pOleStr = NULL;\n\n     s_nOleError = S_OK;\n\n     if( ( s_nOleError == S_OK ) || ( s_nOleError == (HRESULT) S_FALSE) )\n     {\n        bstrClassID = AnsiToSysString( hb_parcx( 1 ) );\n\n        if( hb_parcx( 1 )[ 0 ] == \'{\' )\n        {\n           s_nOleError = CLSIDFromString( bstrClassID, (LPCLSID) &amp;ClassID );\n        }\n        else\n        {\n           s_nOleError = CLSIDFromProgID( bstrClassID, (LPCLSID) &amp;ClassID );\n        }\n\n        //s_nOleError = ProgIDFromCLSID( &amp;ClassID, &amp;pOleStr );\n        //wprintf( L\"Result %i ProgID: \'%s\'\\n\", s_nOleError, pOleStr );\n\n        SysFreeString( bstrClassID );\n\n        if( hb_pcount() == 2 )\n        {\n           if( hb_parcx( 2 )[ 0 ] == \'{\' )\n           {\n              bstrClassID = AnsiToSysString( hb_parcx( 2 ) );\n              s_nOleError = CLSIDFromString( bstrClassID, &amp;iid );\n              SysFreeString( bstrClassID );\n           }\n           else\n           {\n              memcpy( ( LPVOID ) &amp;iid, hb_parcx( 2 ), sizeof( iid ) );\n           }\n\n           riid = &amp;iid;\n        }\n\n        if( s_nOleError == S_OK )\n        {\n           s_nOleError = GetActiveObject( (REFCLSID) &amp;ClassID, NULL, &amp;pUnk );\n\n           if( s_nOleError == S_OK )\n           {\n              pDisp = NULL;\n              s_nOleError = pUnk-&gt;lpVtbl-&gt;QueryInterface( pUnk, (REFIID) riid, (void **) &amp;pDisp );\n           }\n        }\n     }\n\n     hb_retnl( ( LONG ) pDisp );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  HB_FUNC_STATIC( OLERELEASEOBJECT ) // (hOleObject, szMethodName, uParams...)\n  {\n     IDispatch *pDisp = ( IDispatch * ) hb_parnl( 1 );\n\n     s_nOleError = pDisp-&gt;lpVtbl-&gt;Release( pDisp );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static void OleSetProperty( IDispatch *pDisp, DISPID DispID, DISPPARAMS *pDispParams )\n  {\n     // 1 Based!!!\n     if( ( s_OleRefFlags &amp;&amp; s_OleRefFlags[ 1 ] ) || hb_param( 1, HB_IT_ARRAY ) )\n     {\n        memset( (LPBYTE) &amp;excep, 0, sizeof( excep ) );\n\n        s_nOleError = pDisp-&gt;lpVtbl-&gt;Invoke( pDisp,\n                                             DispID,\n                                             (REFIID) &amp;IID_NULL,\n                                             LOCALE_USER_DEFAULT,\n                                             DISPATCH_PROPERTYPUTREF,\n                                             pDispParams,\n                                             NULL,    // No return value\n                                             &amp;excep,\n                                             &amp;uArgErr );\n\n       if( s_nOleError == S_OK )\n       {\n          return;\n       }\n     }\n\n     memset( (LPBYTE) &amp;excep, 0, sizeof( excep ) );\n\n     s_nOleError = pDisp-&gt;lpVtbl-&gt;Invoke( pDisp,\n                                          DispID,\n                                          (REFIID) &amp;IID_NULL,\n                                          LOCALE_USER_DEFAULT,\n                                          DISPATCH_PROPERTYPUT,\n                                          pDispParams,\n                                          NULL,    // No return value\n                                          &amp;excep,\n                                          &amp;uArgErr );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static void OleInvoke( IDispatch *pDisp, DISPID DispID, DISPPARAMS *pDispParams )\n  {\n     memset( (LPBYTE) &amp;excep, 0, sizeof( excep ) );\n\n     s_nOleError = pDisp-&gt;lpVtbl-&gt;Invoke( pDisp,\n                                          DispID,\n                                          (REFIID) &amp;IID_NULL,\n                                          LOCALE_USER_DEFAULT,\n                                          DISPATCH_METHOD,\n                                          pDispParams,\n                                          &amp;RetVal,\n                                          &amp;excep,\n                                          &amp;uArgErr );\n  }\n\n  //---------------------------------------------------------------------------//\n\n  static void OleGetProperty( IDispatch *pDisp, DISPID DispID, DISPPARAMS *pDispParams )\n  {\n     memset( (LPBYTE) &amp;excep, 0, sizeof( excep ) );\n\n     s_nOleError = pDisp-&gt;lpVtbl-&gt;Invoke( pDisp,\n                                          DispID,\n                                          (REFIID) &amp;IID_NULL,\n                                          LOCALE_USER_DEFAULT,\n                                          DISPATCH_PROPERTYGET,\n                                          pDispParams,\n                                          &amp;RetVal,\n                                          &amp;excep,\n                                          &amp;uArgErr );\n\n  }\n\n  //---------------------------------------------------------------------------//\n  HB_FUNC_STATIC( TOLEAUTO_ONERROR )\n  {\n     IDispatch *pDisp;\n     DISPID DispID;\n     DISPPARAMS DispParams;\n     BOOL bSetFirst = FALSE;\n\n     //TraceLog( NULL, \"Class: \'%s\' Message: \'%s\', Params: %i Arg1: %i\\n\", hb_objGetClsName( hb_stackSelfItem() ), ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName, hb_pcount(), hb_parinfo(1) );\n\n     hb_vmPushSymbol( s_pSym_hObj-&gt;pSymbol );\n     hb_vmPush( hb_stackSelfItem() );\n     hb_vmSend( 0 );\n\n     pDisp = ( IDispatch * ) hb_parnl( -1 );\n\n     if( ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName[0] == \'_\' &amp;&amp; ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName[1] &amp;&amp; hb_pcount() &gt;= 1 )\n     {\n        bstrMessage = AnsiToSysString( ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName + 1 );\n        s_nOleError = pDisp-&gt;lpVtbl-&gt;GetIDsOfNames( pDisp, (REFIID) &amp;IID_NULL, (wchar_t **) &amp;bstrMessage, 1, LOCALE_USER_DEFAULT, &amp;DispID );\n        SysFreeString( bstrMessage );\n        //TraceLog( NULL, \"1. ID of: \'%s\' -&gt; %i Result: %i\\n\", ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName + 1, DispID, s_nOleError );\n\n        if( s_nOleError == S_OK )\n        {\n           bSetFirst = TRUE;\n        }\n     }\n     else\n     {\n        s_nOleError = E_PENDING;\n     }\n\n     if( s_nOleError != S_OK )\n     {\n        // Try again without removing the assign prefix (_).\n        bstrMessage = AnsiToSysString( ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName );\n        s_nOleError = pDisp-&gt;lpVtbl-&gt;GetIDsOfNames( pDisp, (REFIID) &amp;IID_NULL, (wchar_t **) &amp;bstrMessage, 1, 0, &amp;DispID );\n        SysFreeString( bstrMessage );\n        //TraceLog( NULL, \"2. ID of: \'%s\' -&gt; %i Result: %i\\n\", ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName, DispID, s_nOleError );\n     }\n\n     if( s_nOleError == S_OK )\n     {\n        GetParams( &amp;DispParams );\n\n        VariantInit( &amp;RetVal );\n\n        if( bSetFirst )\n        {\n           DispParams.rgdispidNamedArgs = &amp;lPropPut;\n           DispParams.cNamedArgs = 1;\n\n           OleSetProperty( pDisp, DispID, &amp;DispParams );\n           //TraceLog( NULL, \"OleSetProperty %i\\n\", s_nOleError );\n\n           if( s_nOleError == S_OK )\n           {\n              hb_itemReturn( hb_stackItemFromBase( 1 ) );\n           }\n           else\n           {\n              DispParams.rgdispidNamedArgs = NULL;\n              DispParams.cNamedArgs = 0;\n           }\n        }\n\n        if( bSetFirst == FALSE || s_nOleError != S_OK )\n        {\n           OleInvoke( pDisp, DispID, &amp;DispParams );\n           //TraceLog( NULL, \"OleInvoke %i\\n\", s_nOleError );\n\n           if( s_nOleError == S_OK )\n           {\n              RetValue();\n           }\n        }\n\n        // Collections are properties that do require arguments!\n        if( s_nOleError != S_OK /* &amp;&amp; hb_pcount() == 0 */ )\n        {\n           OleGetProperty( pDisp, DispID, &amp;DispParams );\n           //TraceLog( NULL, \"OleGetProperty %i\\n\", s_nOleError );\n\n           if( s_nOleError == S_OK )\n           {\n              RetValue();\n           }\n        }\n\n        if( s_nOleError != S_OK &amp;&amp; hb_pcount() &gt;= 1 )\n        {\n           DispParams.rgdispidNamedArgs = &amp;lPropPut;\n           DispParams.cNamedArgs = 1;\n\n           OleSetProperty( pDisp, DispID, &amp;DispParams );\n           //TraceLog( NULL, \"OleSetProperty %i\\n\", s_nOleError );\n\n           if( s_nOleError == S_OK )\n           {\n              hb_itemReturn( hb_stackItemFromBase( 1 ) );\n           }\n        }\n\n        FreeParams( &amp;DispParams );\n     }\n\n     if( s_nOleError == S_OK )\n     {\n        //TraceLog( NULL, \"Invoke Succeeded!\\n\" );\n\n        if( HB_IS_OBJECT( &amp;HB_VM_STACK.Return ) )\n        {\n           HB_ITEM Return;\n           HB_ITEM OleClassName;\n           char sOleClassName[ 256 ];\n\n           Return.type = HB_IT_NIL;\n           hb_itemForwardValue( &amp;Return, &amp;HB_VM_STACK.Return );\n\n           hb_vmPushSymbol( s_pSym_cClassName-&gt;pSymbol );\n           hb_vmPush( hb_stackSelfItem() );\n           hb_vmSend( 0 );\n\n           strncpy( sOleClassName, hb_parc( - 1 ), hb_parclen( -1 ) );\n           sOleClassName[ hb_parclen( -1 ) ] = \':\';\n           strcpy( sOleClassName + hb_parclen( -1 ) + 1, ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName );\n\n           //TraceLog( NULL, \"Class: \'%s\'\\n\", sOleClassName );\n\n           OleClassName.type = HB_IT_NIL;\n           hb_itemPutC( &amp;OleClassName, sOleClassName );\n\n           hb_vmPushSymbol( s_pSym_cClassName-&gt;pSymbol );\n           hb_vmPush( &amp;Return );\n           hb_itemPushForward( &amp;OleClassName );\n           hb_vmSend( 1 );\n\n           hb_itemReturn( &amp;Return );\n        }\n     }\n     else\n     {\n        PHB_ITEM pReturn;\n        char *sDescription;\n\n        //TraceLog( NULL, \"Invoke Failed!\\n\" );\n\n        hb_vmPushSymbol( s_pSym_cClassName-&gt;pSymbol );\n        hb_vmPush( hb_stackSelfItem() );\n        hb_vmSend( 0 );\n\n        if( s_nOleError == DISP_E_EXCEPTION )\n        {\n           // Intentional to avoid report of memory leak if fatal error.\n           char *sTemp = WideToAnsi( excep.bstrDescription );\n           sDescription = (char *) malloc( strlen( sTemp ) + 1 );\n           strcpy( sDescription, sTemp );\n           hb_xfree( sTemp );\n        }\n        else\n        {\n           sDescription = Ole2TxtError();\n        }\n\n        //TraceLog( NULL, \"Desc: \'%s\'\\n\", sDescription );\n\n        pReturn = hb_errRT_SubstParams( hb_parcx( -1 ), EG_OLEEXECPTION, (ULONG) s_nOleError, sDescription, ( *HB_VM_STACK.pBase )-&gt;item.asSymbol.value-&gt;szName );\n\n        if( s_nOleError == DISP_E_EXCEPTION )\n        {\n           free( (void *) sDescription );\n        }\n\n        if( pReturn )\n        {\n           hb_itemReturn( pReturn );\n        }\n     }\n  }\n\n#pragma ENDDUMP\n\n#endif','',0,'gA==','26go4ce2',1,0,'',247,0,0),(4178,1033,3,372,0,'83.118.100.14',1135681603,1,0,1,1,1,0,'','','Hi Ask,\n\nthanks for the info, but i have to stick with Harbour, because i can\'t affort to buy xHarbour.\n\nBest regards,\n\nJohn.','',0,'gA==','6eqs16c1',1,0,'',372,0,0),(4179,1033,3,247,0,'87.202.28.179',1135681853,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:3vhunqmr]Hi Ask,\n\nthanks for the info, but i have to stick with Harbour, because i can\'t affort to buy xHarbour.\n\nBest regards,\n\nJohn.[/quote:3vhunqmr]\n\nXharbour is free .Just download it from <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org.Switch\">www.xharbour.org.Switch</a><!-- w --> to xharbour  because harbour has alot of problems.\n\nregards,\nA.S.K','',0,'gA==','3vhunqmr',1,0,'',247,0,0),(4180,1051,19,51,0,'80.122.88.242',1135683116,1,0,1,1,1,0,'','OT: tool for personal use','Off Topic\nBut maybe someone of you is interested, too.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.it-diaet.com\">www.it-diaet.com</a><!-- w -->\n\n\nI developed last year a tool for my personal use.\nI am still searching betatesters. Write me an email the service is free for FW.\n\nIf diet is a topic for you follow the link\nThe Hacker\'s Diet    \n\non my page.\nThis site is developed and maintained by John Walker, founder of Autodesk, Inc. and co-author of AutoCAD. \n\nRegards\nOtto\n\n\n\n\nSome text I translated to English if someone is interested I could translate the rest.\n\n\nWelcome at IT-Diet!\nLosing weight should make easier your life…\nThat’s why we have developed an optimal support. SMS-Diet-Control is not complicated and easy to handle, all you need is a computer and a cell-phone.\n\nMotivation-SMS\nOur special “Motivation-SMS”-Feature helps you to resist in critical situations.\n\nWe  give you the opportunity – seize it!\n\nWe can’t give you a guarantee for losing weight. IT-diet helps and supports you in the difficult fight against your pounds!\n\n\n\n\nThe idea – the system – the draft\n\nThe idea\nThe idea of the sms-method is to rate your habit of eating with school rates.\n\nRegistration of the data\nYou rate yourself directly on the spot – after eating you send a sms to it-diet.\n\nThe system is persistent\nEveryday at the same time the system reminds you to send your assessment of your eating habits.\n\nStatistics\nOn the internet you can have a look at your automatically drawn up statistics.\n\nCondition\nAfter some time follows a condition of cell phone or email with it-diet\n\nUnerring\nThe system is unerring. Once you have given your data you can’t change them anymore.\n\n\nHow to create a sms\nAfter every meal send a sms with your mark (1-5) to it-diet.\n\n1.	password spacing\n2.	sign \nG	Weight\nF	Breakfast\nM	Lunch\nA 	Meal\nJ	Snack\nB	Sports\n?	Question\n\n3.	after the sign without a space your rating (1-5)/your weight.\nPassword m2\nf.e.: for lunch you rate yourself with a 2','',0,'gA==','2j4ou9jn',1,0,'',51,0,0),(4181,1052,3,190,0,'202.65.134.46',1135683789,1,0,1,1,1,0,'','WINDOW TO DIALOG SCREEN CO-ORDINATES CONVERSION','Can anybody advise me how to calculate the Dialog co-ordinates from a\nwindow.\n\nOriginally I had a Child window painted in the client area of the MDI Window, with some controls on it.  When ever the user changes the screen resolution, the child windoow is being adjusted automatically.\n\nAs per my new requirement I have decided to change  child window to a\nmodal dialog.  When I continue to use the child window coordinates for the dialog, the position and the size of the dialog is going beyond the client area of the MDI Window.\n\nCan someone guide me how to convert the window coordinates to \ndialog which should adjust automatically based on the resolution of the\nwindows.\n\n- Ramesh Babu P','',0,'gA==','15w2n3es',1,0,'',190,0,0),(4182,1052,3,247,0,'87.202.28.179',1135684457,1,0,1,1,1,0,'','Re: WINDOW TO DIALOG SCREEN CO-ORDINATES CONVERSION','[quote=&quot;RAMESHBABU&quot;:1shs5cct]Can anybody advise me how to calculate the Dialog co-ordinates from a\nwindow.\n\nOriginally I had a Child window painted in the client area of the MDI Window, with some controls on it.  When ever the user changes the screen resolution, the child windoow is being adjusted automatically.\n\nAs per my new requirement I have decided to change  child window to a\nmodal dialog.  When I continue to use the child window coordinates for the dialog, the position and the size of the dialog is going beyond the client area of the MDI Window.\n\nCan someone guide me how to convert the window coordinates to \ndialog which should adjust automatically based on the resolution of the\nwindows.\n\n- Ramesh Babu P[/quote:1shs5cct]\n\nTo have the same output with dialog as you have with window devide window width,height ,ntop,nleft by 2 (and all the objects inside it).\n\n\nregands\nA.S.K','',0,'gA==','1shs5cct',1,0,'',247,0,0),(4183,1033,3,6,0,'82.55.208.129',1135684820,1,0,1,1,1,1,'','','xHarbour is free just like Harbour (<!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->).\n\nEMG','',0,'gA==','1wz73b8k',1,0,'',6,0,0),(4184,1033,3,6,0,'82.55.208.129',1135685104,1,0,1,1,1,1,'','','Replace CREATEOBJECT() with TOleAuto():New().\n\nEMG','',0,'gA==','1ond3326',1,0,'',6,0,0),(4185,1039,3,335,0,'68.193.88.53',1135686744,1,0,1,1,1,0,'','','Enrico,\n\nI don\'t know if this will help, because it has to do with listbox instead of Wbrowse. \n\nWhen designing a listbox in Borland Resource Workshop, in the properties dialog if you specify \"scroll bar always\" and then look at the code that RW generates, it inserts LBS_DISABLENOSCROLL in the code for the listbox. Maybe if you can discover how this works you may be able to apply the same concept to Wbrowse.\n\nGood luck!\n\n- Roger','',0,'gA==','3biy8ogp',1,0,'',335,0,0),(4186,1049,6,295,0,'201.222.151.182',1135686892,1,0,1,1,1,1,'','','Muchas Gracias Vikthor, mi correo es <!-- e --><a href=\"mailto:luisfuentesg@123mail.cl\">luisfuentesg@123mail.cl</a><!-- e -->\n\nSaludos','',0,'gA==','1rk1rpqt',1,0,'',295,0,0),(4187,1039,3,335,0,'68.193.88.53',1135687771,1,0,1,1,1,0,'','','Enrico,\n\nHere is another clue...\n\nIn scroll.c of fwh\\source\\winapi there is SIF_DISABLENOSCROLL\n\nMaybe you can figure out how to use that.\n\n- Roger','',0,'gA==','1d8op93c',1,0,'',335,0,0),(4188,1053,1,379,0,'59.167.109.216',1135688146,1,0,1,1,1,0,'','Task priority','Is there a way of setting a tasks priority.  I have a program that processes a lot of data from text files created by another device.  The user now wishes some stats from this program, I wish to create them on the fly.  The problem is each text file takes approx 30 - 40 minutes to process and creates thousands of records in my databases.  When I put in the stats accumulation I slowed the program by 50%, so I thought I will just write the stats to a single dbf file containing stat type, equip id, date, value and in the program that processes the data I would start (WINEXEC) another program to actually process the stats into the Weekly, Monthly and Yearly stats dbfs which have approx 22 different stat fields.\n\nThe problem is there is little difference in processing time by the main program as the program I started from it hogs the CPU each time it checks the DBF for new records, I have a timer set at 10000 to do the check DBF written by the main program and append any data if necessary and delete each record created by the main program to avoid processing the record more than once, I also do a sysrefresh every 10 records to try and share the CPU.\n\nIf I could winexec the stats program and have it perform at a lower priority then maybe the main program will function better.  Or do I need something to run each in their own memory space (XP) which may also overcome the problem.\n\nAny assistance would be appreciated.\n\nGerry','',0,'gA==','vfkkl967',1,0,'',379,0,0),(4189,1054,6,362,0,'200.168.52.156',1135689293,1,0,1,1,1,1,'','FWBACKUP.PRG FOR XHARBOUR Y FIVE 2.7','Buenas amigos, \n\nAlguién puede dejar por aquí FWBackup.Prg de Bingen pasado a 32 bits ? \n\nO un mejor? \n\nDonde encuentro?\n\nNo mi funciona el di 16 bits.\n\nGracias, Saludos desde São Paulo - Brazil.','',0,'gA==','3g1xmir6',1,0,'',362,0,0),(4190,1037,19,39,0,'216.155.88.117',1135689514,1,0,1,1,1,0,'','','Muchas Felicidades !!!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','226mqw2n',1,0,'',39,0,0),(4191,1039,3,247,0,'87.202.28.179',1135689862,1,0,1,1,1,0,'','Re: TWBrowse vertical scrollbar always','[quote=&quot;EnricoMaria&quot;:9nmpft96]Is there an easy way to set the TWBrowse vertical scrollbar always showing even if there are no rows or one row only?\n\nEMG[/quote:9nmpft96]\n\nI would use &lt;BrowseObject&gt;:nstyle:=nOr( WS_CHILD, WS_HSCROLL,;\n                       WS_BORDER, WS_VISIBLE, WS_TABSTOP)\n\nregards\nA.S.K','',0,'gA==','9nmpft96',1,0,'',247,0,0),(4192,1039,3,6,0,'82.55.208.129',1135690076,1,0,1,1,1,1,'','','Thank you. I made some experiment without luck... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','2deuy2wq',1,0,'',6,0,0),(4193,1053,1,2,0,'80.58.2.107',1135693360,1,0,1,1,1,1,'','','Gerry,\n\nHave you tried to increase the 10000 value of the timer ?','',0,'gA==','gegc1z9x',1,0,'',2,0,0),(4194,1048,6,18,0,'200.67.188.236',1135693717,1,0,1,1,1,1,'','','Antonio, gracias por la respuesta, pero no uso la clase TActivex.\n\nVí los ejemplos que publicaste en el foro anterior y mi necesidad es hacer uso del control sin la clase TActiveX\n\nPodrías indicarme la forma que lo haces con TActivex o un link de donde pueda buscar información.','',0,'gA==','2oekfhij',1,0,'',18,0,0),(4195,1050,6,2,0,'80.58.2.107',1135693743,1,0,1,1,1,1,'','','Has probado EasyReport ? \n\nNosotros regalamos una versión personal de EasyReport con la compra de FWH.','',0,'gA==','14stdtpa',1,0,'',2,0,0),(4196,1048,6,2,0,'80.58.2.107',1135693859,1,0,1,1,1,1,'','','Vikthor,\n\nY por qué razón no quieres usar la clase TActiveX ?','',0,'gA==','q7selqp5',1,0,'',2,0,0),(4197,1049,6,18,0,'200.67.188.236',1135695478,1,0,1,1,1,1,'','','La clase ya está disponible en <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->','',0,'gA==','21m7txhh',1,0,'',18,0,0),(4198,1050,6,378,0,'80.58.54.235',1135695719,1,0,1,1,1,0,'','re:','si, muchas gracias, ya lo he probado\n\nquiero usar la clase report y poner y quitar campos solo. Creo que había un ejemplo que lo hacía. Gracias.','',0,'gA==','1gc0jbjp',1,0,'',378,0,0),(4199,1048,6,18,0,'200.67.188.236',1135696222,1,0,1,1,1,1,'','','Cuando hice la clase TChartFx para 32 bits, haciendo uso de Ole la razón era la misma que ahora, mi versión de FiveWin no contiene esa clase.','',0,'gA==','326whkeu',1,0,'',18,0,0),(4200,1046,6,18,0,'200.67.188.236',1135696360,1,0,1,1,1,1,'','Re: Excel','Patricio , puedes usar la clase TExcel y la puedes descargar de <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->','',0,'gA==','3gcusj60',1,0,'',18,0,0),(4201,1037,19,97,0,'200.23.84.227',1135696631,1,0,1,1,1,1,'','Muchas Felicidades','Juan muchas felicidades y que bien te fue con santaclauss, señal que te portaste bien todo el año.\n\n\nsaludos y feliz navidad. y prospero 2006.','',0,'gA==','21rbxwdd',1,0,'',97,0,0),(4202,1055,6,97,0,'200.23.84.227',1135696778,1,0,1,1,1,1,'','TOLE quien la tiene','Quien tiene la TOLe de Jose Gimenez , estoy haciendo pruebas pero la que tengo me manda hb_vMessage como no definido.\n\n\nles deseo a todos un prospero 2006.\nsaludos y Gracias.\nfernando sandoval ruiz','',0,'gA==','1x3um1n3',1,0,'',97,0,0),(4203,1013,6,336,0,'80.58.10.235',1135696886,1,0,0,1,1,0,'','','Gracias Antonio,\nNecesitaría conocer el ID porque según el mismo es la definicion que tengo del Say, por decirte algo, los ID 100 al 199 están con una fuente y un color, los 200 a 299 con otro, etc. Como obtengo el ID?\n\nGracias','',0,'gA==','2jf6xupq',1,0,'',336,0,0),(4204,1055,6,255,0,'200.67.134.233',1135696968,1,0,1,1,1,1,'','Re: TOLE quien la tiene','[quote=&quot;fsandoval&quot;:2yd6lm4f]Quien tiene la TOLe de Jose Gimenez , estoy haciendo pruebas pero la que tengo me manda hb_vMessage como no definido.\nles deseo a todos un prospero 2006.\nsaludos y Gracias.\nfernando sandoval ruiz[/quote:2yd6lm4f]\n\nEnviada a tu correo de hotmail.\nSaludos','',0,'gA==','2yd6lm4f',1,0,'',255,0,0),(4205,1050,6,255,0,'200.67.134.233',1135697372,1,0,1,1,1,1,'','Re: re:','[quote=&quot;sgisoft&quot;:3bq09wvp]si, muchas gracias, ya lo he probado\nquiero usar la clase report y poner y quitar campos solo. Creo que había un ejemplo que lo hacía. Gracias.[/quote:3bq09wvp]\n\nPor algún lugar debe estar el CAW-Form de Alfredo Arteaga\nes muy bueno. Es mas, no dudo en que el lo vuelva a publicar\nsi no se encuentra.\n\nSaludos\n\nPD\nAlfredito, no recuerdo si así se llamaba CAW-Form o algo\nasi.','',0,'gA==','3bq09wvp',1,0,'',255,0,0),(4206,1013,6,2,0,'80.58.2.107',1135698314,1,0,1,1,1,1,'','','Carlos,\n\nGetDlgCtrlID( hCtrl ) --&gt; nId','',0,'gA==','2dggb26l',1,0,'',2,0,0),(4207,1048,6,2,0,'80.58.2.107',1135698449,1,0,1,1,1,1,'','','Vikthor,\n\nEntiendo. El código de la clase ActiveX está desarrollado en C++ y es bastante complejo.','',0,'gA==','1gobw25w',1,0,'',2,0,0),(4208,1048,6,18,0,'200.67.188.236',1135699394,1,0,1,1,1,1,'','','Antonio :\n\n ¿alguna referencia para poder orientarme sobre el tema?','',0,'gA==','3uyw3taf',1,0,'',18,0,0),(4209,1049,6,295,0,'200.112.87.141',1135699551,1,0,1,1,1,1,'','','gracias vikthor por tu deferencia , ya la bajé','',0,'gA==','sbjvf30p',1,0,'',295,0,0),(4210,1033,3,303,0,'68.7.28.54',1135700415,1,0,1,1,1,0,'','','John,\n\nThis code works for me; using FW 2.6 May 2005, Harbour 44, and Outlook Express 6.\n\nJames\n\n[code:jwaik1m9]#include &quot;fivewin&#46;ch&quot;\n#include &quot;mail&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd\n   define window oWnd\n   activate window oWnd on init doit&#40;&#41;\nreturn nil\n\nfunction doit&#40;&#41;\n   local oMail,aCustomer&#58;=&#123;&#125;\n   local cSubject&#58;=&quot;Test mail&quot;\n   local cMessage&#58;=&quot;This is a test message&#46;&quot;\n   aadd&#40;aCustomer,&quot;test@test&#46;nl;test1@test&#46;nl&quot;&#41;\n\n   DEFINE MAIL oMail;\n   SUBJECT cSubject;\n   TEXT cMessage\n   oMail&#58;aRecipients&#58;=aCustomer\n   ACTIVATE MAIL oMail\n\n   msgInfo&#40;&quot;mail sent&quot;&#41;\n\nreturn nil[/code:jwaik1m9]','',0,'AIA=','jwaik1m9',1,0,'',303,0,0),(4211,1047,2,304,0,'200.67.162.185',1135701254,1,0,1,1,1,0,'','','Gracias, revisare el ejemplo','',0,'AIA=','2m63o7qi',1,0,'',304,0,0),(4212,1047,2,304,0,'200.67.162.185',1135707091,1,0,1,1,1,0,'','','nuevamente molestandolos, como puedo hacer para que a un combobox o dbcombo no lo puedan modificar los usuarios ??, es decir en el \"Get\" aprezca por ejemplo \"Seleccione Opcion\", y el usuario no pueda escribir algo ahi o borrar, solo pueda seleccionar, gracias','',0,'AIA=','1mpu3xlo',1,0,'',304,0,0),(4213,1047,2,2,0,'80.58.2.107',1135712253,1,0,1,1,1,1,'','','Si el combobox lo creas desde recursos, usa el estilo CBS_DROPDOWNLIST','',0,'AIA=','2igpkpmy',1,0,'',2,0,0),(4214,1048,6,2,0,'80.58.2.107',1135712497,1,0,1,1,1,1,'','','Vikthor,\n\nMuchas búsquedas y lecturas en Google y muchas pruebas de código para conseguir llegar a un modelo operativo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAdemás, lo desarrollé conjuntamente con Bruno Cantero. Gracias al trabajo de ambos conseguimos tenerlo funcionando en FWH y él en C3.','',0,'AIA=','1aq1okz6',1,0,'',2,0,0),(4215,1056,2,375,0,'84.122.101.58',1135712560,1,0,1,1,1,1,'','uLoadObject y Blinker 6.0','Tengo un problema con Blinker 6.0 que no tenía con el 4.0 \nNormalmente guardo diversos arreglos con lSaveObject, pero cuando intento recuperarlos con uLoadObject, con Blinker 6.0, no dá error, pero no recupera los datos guardados. \n\n¿Como puede ser, si con Blinker 4.0 sí los lee? \n\nAlgún parámetro de Blinker 6.0 debe de ser el culpable, pero ¿Cúal?','',0,'AIA=','1bdui1lx',1,0,'',375,0,0),(4216,1057,2,375,0,'84.122.101.58',1135712642,1,0,1,1,1,1,'','TPrinter vs TReport con USB','Hace algunos años que programo en FiveWin. Nunca he tenido problemas con la impresión. No obstante desde que me he comprado una impresora nueva USB me ha surgido un problema singular. \n\nLo que mando al USB vía TPRINTER se previsualiza y se se imprime, pero lo que envío con TREPORT ni se previsualiza ni se imprime. Sin embargo, según el código fuente, TREPORT llama a TPRINTER para trabajar. \n\n¿Dónde está la pega?','',0,'AIA=','16gl6b5z',1,0,'',375,0,0),(4217,1056,2,2,0,'80.58.2.107',1135712655,1,0,1,1,1,1,'','','Manuel,\n\nhas probado a comparar los ficheros salvados en disco para ver si son iguales ó existe alguna diferencia ?','',0,'AIA=','2b144dn5',1,0,'',2,0,0),(4218,1049,6,295,0,'200.112.87.141',1135712942,1,0,1,1,1,1,'','','Vikthor, incluí el \"texcels.prg\" en mi aplicación pero aún asi me da errores al compilar , que me falta?\n\nde antemano GRACIAS\nSALUDOS','',0,'AIA=','37bz3u3e',1,0,'',295,0,0),(4219,1057,2,2,0,'80.58.2.107',1135713687,1,0,1,1,1,1,'','','Manuel,\n\nAcabamos de probar samples\\TestPrn2.prg (usa TPrinter) y samples\\TestRep1.prg (TReport) y ambos han funcionado bien en una impresora Canon S200x USB.\n\nPuedes probar esos ejemplos ? Gracias.','',0,'AIA=','e3n8w5gk',1,0,'',2,0,0),(4220,1049,6,2,0,'80.58.2.107',1135713729,1,0,1,1,1,1,'','','Luis,\n\nQue errores son ?','',0,'AIA=','cezl3pqk',1,0,'',2,0,0),(4221,1044,3,154,0,'151.81.1.29',1135715717,1,0,1,1,1,1,'','','Antonio,\nnow work all!  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[b:x7mchiv6]thank you for the help[/b:x7mchiv6].','',0,'QA==','x7mchiv6',1,0,'',154,0,0),(4222,1037,19,53,0,'200.66.175.82',1135716912,1,0,1,1,1,1,'','','Juan Carlos:\n\nAunque un poco tarde por culpa de las inafalibles vacaciones, me uno a la felicidad que te embarga.\n\nTriple razón para celebrar este mes, el nacimiento de tu nena, el nacimiento de Jesús y el nacimiento de un nuevo año.\n\nMuchas feliciades a la cheff, <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nUn abrazo para ti y para tu esposa, un beso para la nena.\n\nArmando','',0,'QA==','134yp4c8',1,0,'',53,0,0),(4223,1054,6,53,0,'200.66.175.82',1135717273,1,0,1,1,1,1,'','','Karinha:\n\nEn la zona de descargas de <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info/spanish/\">www.reportdesigner.info/spanish/</a><!-- w --> encontrarás EasyBackup que amablemente Timm pone a nuestra disposición de forma gratuita y ademas es multi lenguaje.\n\nEs muy sencillo de hacerlo funcionar pero si requieres ayuda solo pregunta.\n\nSaludos, Armando','',0,'QA==','1rrhne5f',1,0,'',53,0,0),(4224,1054,6,362,0,'200.168.52.156',1135717436,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:32sbk3xx]Karinha:\n\nEn la zona de descargas de <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info/spanish/\">www.reportdesigner.info/spanish/</a><!-- w --> encontrarás EasyBackup que amablemente Timm pone a nuestra disposición de forma gratuita y ademas es multi lenguaje.\n\nEs muy sencillo de hacerlo funcionar pero si requieres ayuda solo pregunta.\n\nSaludos, Armando[/quote:32sbk3xx]\n\n\nGRACIAS A USTED, ARMANDO, VOY VEER.','',0,'gA==','32sbk3xx',1,0,'',362,0,0),(4225,1049,6,295,0,'200.112.87.141',1135717532,1,0,1,1,1,1,'','','Antonio:\nEstos son los errores que me da al incorporar el programa:\n\n\n\nTEXCELS.prg(258) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nTEXCELS.prg(259) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nTEXCELS.prg(263) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nTEXCELS.prg(266) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nTEXCELS.prg(267) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\n300\nTEXCELS.prg(305) Warning W0001  Ambiguous reference: \'LVRET\'\n\nTEXCELS.prg(307) Warning W0001  Ambiguous reference: \'LVRET\'\n\nTEXCELS.prg(312) Warning W0001  Ambiguous reference: \'LVRET\'\n\n500\n600\n700\n800\n900\nTEXCELS.prg(912) Warning W0001  Ambiguous reference: \'NVRET\'\n\nTEXCELS.prg(923) Warning W0001  Ambiguous reference: \'NVRET\'\n\n1000\n1100\nTEXCELS.prg(1103) Warning W0005  RETURN statement with no return value in function\n\nTEXCELS.prg(1106) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nTEXCELS.prg(1109) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nTEXCELS.prg(1111) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nTEXCELS.prg(1133) Warning W0001  Ambiguous reference: \'NBOOK\'\n\n9 errors','',0,'gA==','t5wt1awa',1,0,'',295,0,0),(4226,1054,6,362,0,'200.168.52.156',1135717762,1,0,1,1,1,1,'','','Armando...\n\nen este sitio, no estaba.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.reportdesigner.info/spanish/\">http://www.reportdesigner.info/spanish/</a><!-- m -->','',0,'gA==','38gscrlq',1,0,'',362,0,0),(4227,1049,6,295,0,'200.112.87.141',1135718111,1,0,1,1,1,1,'','','alguna respuestita?','',0,'gA==','bs17mo1a',1,0,'',295,0,0),(4228,1049,6,2,0,'80.58.2.107',1135722653,1,0,1,1,1,1,'','','Luis,\n\nTienes que usar xharbour con esa clase ya que tiene extensiones propias de xharbour.','',0,'gA==','6tz8xtuk',1,0,'',2,0,0),(4229,1049,6,2,0,'80.58.2.107',1135723060,1,0,1,1,1,1,'','','Luis,\n\nAdemás hay que corregir unos detalles:\n\nlínea 305: local lVret := .F.\nlínea 912: local nVret := ::oExcel:MailSystem()\nlínea 1103: return nil\nlínea 1133: FOR i := 1 TO nBooks','',0,'gA==','302x2ddx',1,0,'',2,0,0),(4230,1054,6,53,0,'200.66.175.82',1135724989,1,0,1,1,1,1,'','','Karinha:\n\nDisculpa, tienes razón esta en la página en inglés\n\n<!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info/index.html\">www.reportdesigner.info/index.html</a><!-- w -->\n\nSaludos, Armando','',0,'gA==','5yq0j7g5',1,0,'',53,0,0),(4231,1037,19,255,0,'200.67.134.233',1135725617,1,0,1,1,1,1,'','','Gracias a todos por sus felicitaciones!!\nMIL PERO MIL GRACIAS !!!\n\nSaludos','',0,'gA==','1lb0zb1x',1,0,'',255,0,0),(4232,1049,6,18,0,'201.138.70.122',1135729240,1,0,1,1,1,1,'','','Luis :\n\nLe hice unos pequeños cambios a la clase para que la puedas compilar usando Harbour.\n\nLa clase la puedes bajar de <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/download/test\">http://vikthor.com.mx/download/test</a><!-- m -->\n\nAvisamé sí funciona correctamente, para incluirla en el zip de descarga de DbWide.','',0,'gA==','19zw6rwl',1,0,'',18,0,0),(4233,1047,2,304,0,'200.67.162.185',1135734205,1,0,1,1,1,0,'','','Antonio, lo necesito hacer por comando no por recursos, es posible ???\ngracias  por tu tiempo, saludos','',0,'gA==','2ipzrkpl',1,0,'',304,0,0),(4234,1053,1,379,0,'59.167.120.161',1135745387,1,0,1,1,1,0,'','Task priority','Increaing the timer only delayed when the program hogged the system.  I have now set a flag whilst processing incoming text files and do not update the stats until this flag is no longer set.\n\nAnother problem Winexec(\"program\",9) states it will start a program or use the one currently running.  When I use this it always starts a new version?\n\nCheers\nHappy New Year\nGerry','',0,'gA==','1a238340',1,0,'',379,0,0),(4235,1033,3,372,0,'83.118.100.14',1135751587,1,0,1,1,1,0,'','','Ok, i\'ve downloaded xHarbour and changed the directories in my scriptfiles from Harbour to xHarbour (is that all, or do i have to do more?)\n\nafter completely compiling this error pops up:\nProgram with 1st fun: Alert was compiled by older version, PCODE version 0 is no longer supported - Please recompile.\n\nHow do i do this and can i expect more of these warnings?\n\nBest regards,\n\nJohn.','',0,'gA==','hvjsssfh',1,0,'',372,0,0),(4236,863,3,190,0,'202.65.134.22',1135752993,1,0,1,1,1,0,'','some more help required to create FWH + XHARBOUR DLLs','Mr.Antonio\n\nI tried to create a DLL and test it using FWH 2.5 Feb-2005 + XHARBOUR 0.99.3 (Simplex) with the following code.\n\nThe Dll could be created and I believe it is loaded.\nBut the function in side the DLL is not working.\n\nPlease guide me where I went wrong.\n\nRegards\n\n- Ramesh Babu P\n\n\n****************************  TestDll.prg Source  *****************************\n\n#include \"FiveWin.ch\"\n\nSTATIC hLib\n\nFUNCTION Main()\n\nhLib := LoadLib32(\"MiscFunc.dll\")\n\nMake_Index(\"customer\",\"zip\")\n\nFreeLib32(hLib)\n\nRETURN nil\n\n**********\n\nDLL32 FUNCTION Make_Index( cFilec AS LPSTR, cField AS LPSTR )           AS LONG PASCAL FROM \"MakeIndex\" LIB hLib\n\n****************************  MiscFunc.dll Source  ****************************\n\n#include \"fivewin.ch\"\n\nFUNCTION MakeIndex( cFileName, cField )\n\nLOCAL oDlg, nPercent := 0, oMeter, cTitle := LTRIM(STR(nPercent))+\"% is Indexed\"\nLOCAL oSay\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 7, 44 ;\n      TITLE \"Indexing is in progress...\"\n\n@ 1, 2 METER oMeter VAR nPercent TOTAL 100 OF oDlg SIZE 135, 12\n\nACTIVATE DIALOG oDlg CENTERED ON PAINT IndexFile(cFileName, cField, nPercent, oMeter, oDlg)\n\nRETURN \'The file \'+cFileName+\' has been indexed\'\n\n**********\n\nFUNCTION IndexFile(cFileName, cField, nPercent, oMeter, oDlg)\n\nUSE (cFileName) ALIAS cAlias\nINDEX ON &amp;(cField) TO (cFileName) EVAL IndexStatus(nPercent, oMeter, oDlg) EVERY LastRec()/10\n\nCLOSE cAlias\n\nRETURN nil\n\n**********\n\nFUNCTION IndexStatus(nPercent, oMeter, oDlg)\n\nLOCAL nSeconds\n\nnPercent := Int((RecNo()/LastRec()) * 100) \n\noMeter:Set(nPercent)\noMeter:Refresh()\n\nIF nPercent = 100\n   oDlg:End()\nENDIF\n\nSysWait(.35)\n\nRETURN .T.\n\n***************************  MAKESDLL.BAT Source  *****************************\n\nREM Self contained Harbour DLL, original idea and research Antonio Linares\n\n@ECHO OFF\nCLS\n\nIF A%1 == A GOTO :SINTAX\nIF NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nSET hdir=c:\\xharbour\nSET bcdir=c:\\borland\\bcc55\\bin\n\n%bcdir%\\bcc32 -c -D__EXPORT__ -I%hdir%\\include -L%bcdir%\\..\\lib %hdir%\\source\\vm\\maindll.c\n%hdir%\\bin\\harbour %1 /n /i%hdir%\\include /w /p %2 %3 &gt; clip.log\n\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\nECHO -O2 -I%hdir%\\include %1.c &gt; b32.bc\n\n%bcdir%\\bcc32 -M -c @b32.bc\n\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\brc32 -r %1\n\nECHO c0w32.obj               +  &gt; b32.bc\nECHO %1.obj,                 + &gt;&gt; b32.bc\nECHO %1.exe,                 + &gt;&gt; b32.bc\nECHO %1.map,                 + &gt;&gt; b32.bc\nECHO c:\\fwh\\lib\\Fivehx.lib   + &gt;&gt; b32.bc\nECHO c:\\fwh\\lib\\FiveHc.lib   + &gt;&gt; b32.bc\nECHO c:\\fwh\\lib\\Tdbf.lib     + &gt;&gt; b32.bc\nECHO c:\\fwh\\lib\\btnget.lib   + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\hbole.lib    + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\ole2.lib     + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\rtl.lib      + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\ct.lib       + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\vm.lib       + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\gtwin.lib    + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\lang.lib     + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\macro.lib    + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\rdd.lib      + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\dbfntx.lib   + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\dbfcdx.lib   + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\dbfdbt.lib   + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\debug.lib    + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\common.lib   + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\pp.lib       + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\hbzip.lib    + &gt;&gt; b32.bc\n\nREM Uncomment these two lines to use Advantage RDD\nECHO %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\nECHO %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\nECHO %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\nECHO %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\nECHO %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\nECHO %bcdir%\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\nIF EXIST %1.res ECHO %1.res &gt;&gt; b32.bc\n\nREM Uncomment this line and comment the next to review the unreleased memory blocks\nREM %bcdir%\\bin\\ilink32 -Gn -Tpe -s -v @b32.bc\n\nIF EXIST %1.res ECHO %1.res &gt;&gt; b32.bc\n%bcdir%\\ilink32 -Tpd -aa -L%bcdir%\\..\\lib -L%bcdir%\\..\\lib\\PSDK @b32.bc\n\nREM delete temporary files\n@del %1.c\n@del %1.il?\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Self contained DLL successfully built\nGOTO EXIT\nECHO\n\n:LINKERROR\nREM if exist meminfo.txt notepad meminfo.txt\nREM PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi½n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n\n**********','',0,'','2mjbl03m',1,0,'',190,0,0),(4237,1053,1,2,0,'80.58.2.107',1135756804,1,0,1,1,1,1,'','','Gerry,\n\nIMO the way to solve your problem is to post messages to yourself, and perform just a small work when you receive the message. This is quite different from using a timer.\n\n... do a little work\n... PostMessage( oWnd:hWnd, WM_USER_DEFINED )\n\nthen you subclass TWindow and define Method HandleEvent(), that will check for WM_USER_DEFINED (see include\\fwmsgs.h) and will perform again a little work and then, again, will post a msg to itself.\n\nThis way you don\'t overload the system.\n\nRegarding WinExec( ..., 9 ) you may press ctrl+alt+del to check in the task manager if the called app is running only once. It should be just there once.','',0,'','1ozas0zg',1,0,'',2,0,0),(4238,1054,6,362,0,'200.168.52.156',1135765119,1,0,1,1,1,1,'','','OK! OK... Armando. Gracias.\n\nUsted no terias por ai, el sitio di  Bingen o su Correo Postal?\n\nKreo ke Daniel Andrade lo Tenga, mas el sitio: <!-- m --><a class=\"postlink\" href=\"http://www.puertosur.org\">http://www.puertosur.org</a><!-- m -->  está con problemas. Fue Hackeado. Y no tengo como hablar com el.\n\nSaludos Armando y Muchas Gracias.','',0,'','6juus3ml',1,0,'',362,0,0),(4239,1029,6,81,0,'80.28.244.140',1135767191,1,0,1,1,1,0,'','','En los torrentes de sabiduria tambien se encuentra','',0,'','jti2yii0',1,0,'',81,0,0),(4240,1058,6,362,0,'200.168.52.156',1135767369,1,0,1,1,1,1,'','ERRO AL COMPILAR TESTDLLP.PRG EN XHARBOUR','Hola Personas.  ke pasa?\n\nApplication\n===========\n   Path and name: C:\\FWH27\\SAMPLES\\TESTDLLP.EXE (32 bits)\n   Size: 1,209,344 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 12/28/05, 08:52:02\n   Error description: Error BASE/1004  Scope Violation &lt;HIDDEN&gt;: NEW\n\nStack Calls\n===========\n   Called from:  =&gt; FUNC1(7)\n   Called from:  =&gt; HB_LIBDO(0)\n   Called from: testdllp.prg =&gt; MAIN(11)\n\n\nKe hacer?\n\nSaludos.','',0,'','e7swqdjv',1,0,'',362,0,0),(4241,1033,3,247,0,'87.202.28.179',1135767629,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:22ecqvz0]Ok, i\'ve downloaded xHarbour and changed the directories in my scriptfiles from Harbour to xHarbour (is that all, or do i have to do more?)\n\n\nafter completely compiling this error pops up:\nProgram with 1st fun: Alert was compiled by older version, PCODE version 0 is no longer supported - Please recompile.\n\nHow do i do this and can i expect more of these warnings?\n\nBest regards,\n\nJohn.[/quote:22ecqvz0]\n\nIn your link script replace\necho   ..\\lib\\Fiveh.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\nwith\necho   ..\\lib\\Fivehx.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n\nregards\nA.S.K','',0,'gA==','22ecqvz0',1,0,'',247,0,0),(4242,1035,6,87,0,'83.40.38.48',1135770873,1,0,1,1,1,0,'','','Gracias Antonio ya me funciona perfectamente, aunque no acabo de entender muy bien lo que hace el metodo Blank() , no se por que tiene que ir al último registro, despues mover un registro ...\n\n\n\n  METHOD Blank( nRecNo )     INLINE ( ::nArea )-&gt;( nRecNo := RecNo(),;\n                                                    DBGoBottom(), ;\n                                                    DBSkip( 1 ), ;\n                                                    ::Load(),;\n                                                    DBGoTo( nRecNo ) )\n\n\n un saludo','',0,'gA==','2aj4593v',1,0,'',87,0,0),(4244,1033,3,372,0,'83.118.100.14',1135772506,1,0,1,1,1,0,'','','thanks!\n\nbut now it says that PCODE version 5 is not supported from ALERT.PRG...','',0,'gA==','2t5hboyu',1,0,'',372,0,0),(4245,863,3,2,0,'80.58.2.107',1135773536,1,0,1,1,1,1,'','','Ramesh,\n\nHere you have a working sample:\n\nBabu.prg - build it using buildh.bat Babu\n[code:2fq3nr8p]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local hItem1 &#58;= ItemNew&#40; &quot;Hello world!&quot; &#41;\n   local hItem2 &#58;= ItemNew&#40; &quot;From a Harbour DLL&quot; &#41;\n\n   HbDLLEntry2&#40; &quot;TEST&quot;, hItem1, hItem2 &#41;\n   \n   ItemRelease&#40; hItem1 &#41;\n   ItemRelease&#40; hItem2 &#41;\n   \n   MsgInfo&#40; &quot;ok from EXE&quot; &#41;\n\nreturn nil\n\nDLL FUNCTION HBDLLENTRY2&#40; cProc AS LPSTR, pItem1 AS LONG, pItem2 AS LONG &#41; AS LONG PASCAL LIB &quot;BabuDLL&#46;dll&quot;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapiitm&#46;h&gt;\n\nHB_FUNC&#40; ITEMNEW &#41;\n&#123;\n   hb_retnl&#40; &#40; ULONG &#41; hb_itemNew&#40; hb_param&#40; 1, HB_IT_ANY &#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; ITEMRELEASE &#41;\n&#123;\n   hb_retl&#40; hb_itemRelease&#40; &#40; PHB_ITEM &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:2fq3nr8p]\n\nBabuDLL.prg - build it using buildhd.bat BabuDLL\n[code:2fq3nr8p]\nfunction Test&#40; cMsg1, cMsg2 &#41;\n\n   MsgInfo&#40; cMsg1, cMsg2 &#41;\n\nreturn nil\n[/code:2fq3nr8p]\n\nWe have uploaded a modified maindll.c to Harbour CVS, that contains this:\n[code:2fq3nr8p]\nLONG HB_EXPORT PASCAL HBDLLENTRY1&#40; char * cProcName, LONG pItem &#41;\n&#123;\n   hb_itemDoC&#40; cProcName, 1, &#40; PHB_ITEM &#41; pItem, 0 &#41;;\n\n   return 0;\n&#125;\n\nLONG HB_EXPORT PASCAL HBDLLENTRY2&#40; char * cProcName, LONG pItem1, LONG pItem2 &#41;\n&#123;\n   hb_itemDoC&#40; cProcName, 2, &#40; PHB_ITEM &#41; pItem1, &#40; PHB_ITEM &#41; pItem2, 0 &#41;;\n\n   return 0;\n&#125;\n[/code:2fq3nr8p]\n\nYou have to download Harbour CVS files and build it, or add such code to source\\vm\\maindll.c and build it. \n\nIn case you don\'t know how to build Harbour, please tell us and we will publish a new Harbour build with these changes.\n\nYou may download the working EXE and DLL from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/2a67bb32/sample.zip.html\">http://hyperupload.com/download/2a67bb3 ... e.zip.html</a><!-- m -->','',0,'AIA=','2fq3nr8p',1,0,'',2,0,0),(4246,1033,3,2,0,'80.58.2.107',1135773961,1,0,1,1,1,1,'','','John,\n\nAll the PRGs, including FWH ones, have to be recompiled using the xHarbour build that you are using. \n\nAlso, as xHarbour has internally changed recently, your FiveHC.lib will no longer be valid.\n\nThe easiest way to solve this is to upgrade your FWH to the current one from <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/english/purchase.html\">https://secure.fivetechsoft.com/english/purchase.html</a><!-- m -->','',0,'AIA=','2laj4jx7',1,0,'',2,0,0),(4247,1047,2,2,0,'80.58.2.107',1135774495,1,0,1,1,1,1,'','','En la clase source\\classes\\dbcombo.prg haz este cambio:\n\n[code:2eg9fi8x]\n   Super&#58;New&#40; nRow, nCol, bSetGet, &#58;&#58;aItems, nWidth, nHeight, oWnd, nHelpId, ;\n      bChange, bValid, nClrFore, nClrBack, lPixel, oFont, ;\n      cMsg, lUpdate, bWhen, lDesign, acBitmaps, bDrawItem, CBS_DROPDOWNLIST &#41;\n[/code:2eg9fi8x]','',0,'AIA=','2eg9fi8x',1,0,'',2,0,0),(4248,1049,6,295,0,'200.112.80.2',1135774728,1,0,1,1,1,1,'','','vikthor , baje la útlima como me indicaste, pero ahora da los siguientes errores:\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'texcels.prg\' and generating preprocessed output to \'texcels.ppo\'...\n\n100\n200\ntexcels.prg(254) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\ntexcels.prg(258) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\ntexcels.prg(259) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\ntexcels.prg(263) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\ntexcels.prg(266) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\ntexcels.prg(267) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\n300\ntexcels.prg(305) Warning W0001  Ambiguous reference: \'LVRET\'\n\ntexcels.prg(307) Warning W0001  Ambiguous reference: \'LVRET\'\n\ntexcels.prg(312) Warning W0001  Ambiguous reference: \'LVRET\'\n\n500\n600\n700\n800\n900\ntexcels.prg(912) Warning W0001  Ambiguous reference: \'NVRET\'\n\ntexcels.prg(923) Warning W0001  Ambiguous reference: \'NVRET\'\n\n1000\n1100\ntexcels.prg(1103) Warning W0005  RETURN statement with no return value in function\n\ntexcels.prg(1137) Warning W0001  Ambiguous reference: \'NBOOK\'\n\n6 errors\n\nNo code generated\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nError E2194: Could not find file \'texcels.c\'\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'C0W32.OBJ\'\n* Application successfully built\n\nSAludos','',0,'AIA=','oslu08l7',1,0,'',295,0,0),(4249,1058,6,2,0,'80.58.2.107',1135775031,1,0,1,1,1,1,'','','João,\n\nEl error está en la DLL llamada. ¿ Que código tiene ? ¿ El mismo del ejemplo que hay en \\samples ó lo has modificado ?','',0,'AIA=','2j9g2hod',1,0,'',2,0,0),(4250,1035,6,2,0,'80.58.2.107',1135775215,1,0,1,1,1,1,'','','Gabri,\n\nAl mover un registro, pasado el último, se genera un registro vacio y se cargan sus valores en el buffer.\n\nSe podría hacer lo mismo rellenando el buffer con valores vacios de los campos.','',0,'AIA=','2eku0xob',1,0,'',2,0,0),(4251,1033,3,247,0,'87.202.28.179',1135775756,1,0,1,1,1,0,'','','[quote=&quot;John&quot;:bdmpn9qx]thanks!\n\nbut now it says that PCODE version 5 is not supported from ALERT.PRG...[/quote:bdmpn9qx]\n\nMaybe an older version of xharbour works.Send me a private mail to send you 0.99.4\n\nregards\nA.S.K','',0,'gA==','bdmpn9qx',1,0,'',247,0,0),(4252,1058,6,362,0,'200.168.52.156',1135776509,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3jeq9g2k]João,\n\nEl error está en la DLL llamada. ¿ Que código tiene ? ¿ El mismo del ejemplo que hay en \\samples ó lo has modificado ?[/quote:3jeq9g2k]\n\n\nSI ANTONIO,  ÉS EL MISMO DEL SAMPLES... SOLAMENTE COMPILEI.\n\nGracias.','',0,'gA==','3jeq9g2k',1,0,'',362,0,0),(4253,1049,6,295,0,'200.112.84.24',1135777475,1,0,1,1,1,1,'','','alguna novedad?','',0,'gA==','3vok02c4',1,0,'',295,0,0),(4254,1049,6,2,0,'80.58.2.107',1135778477,1,0,1,1,1,1,'','','Luis,\n\nPosiblemente Vikthor se haya equivocado de fichero, porque el que ha publicado sigue usando instrucciones específicas de xHarbour.','',0,'gA==','1pj3xqj6',1,0,'',2,0,0),(4255,1058,6,2,0,'80.58.2.107',1135778920,1,0,1,1,1,1,'','','João,\n\nParece que no estás constuyendo la DLL bien. Por favor descargala desde aquí y prueba el ejemplo de nuevo:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/fde5cd14/pcodedll.zip.html\">http://hyperupload.com/download/fde5cd1 ... l.zip.html</a><!-- m -->','',0,'gA==','3v8xvff9',1,0,'',2,0,0),(4256,1033,3,372,0,'83.118.100.14',1135778927,1,0,1,1,1,0,'','','Antonio,\n\ni just sumitted the orderform for the upgrade.\n\nBest regards,\n\nJohn.','',0,'gA==','2n5txrdj',1,0,'',372,0,0),(4257,1059,2,124,0,'201.252.222.140',1135779742,1,0,1,1,1,0,'','Edición-copiar, Edición pegar de windows.','Amigos:\n\nNo pude hacer funcionar el ctrl-c ctrl-v nativo de windows dentro de fivewin, hay algo especial que hacer? está programado fivewin para funcionar nativamente así o hay que tocar las clases?\n\nGracias, desde ya.\nRicardo.-','',0,'gA==','3bxvdcio',1,0,'',124,0,0),(4258,1058,6,362,0,'200.168.52.156',1135780233,1,0,1,1,1,1,'','','Gracias Antonio. Ahora Perfecto.  Saludos.','',0,'gA==','15ha62fg',1,0,'',362,0,0),(4259,1033,3,2,0,'80.58.2.107',1135780350,1,0,1,1,1,1,'','','John,\n\nYour order has just been processed. Thanks.','',0,'gA==','34aft1ic',1,0,'',2,0,0),(4260,1059,2,2,0,'80.58.2.107',1135780565,1,0,1,1,1,1,'','','Ricardo,\n\nAcabamos de probar el ejemplo samples\\TestGet2.prg y copiando y pegando en el primer GET funciona correctamente.\n\nPuedes probar ese ejemplo y confirmarnos si te funciona bien ? Gracias.','',0,'gA==','3m6as9sb',1,0,'',2,0,0),(4261,863,3,190,0,'202.65.134.22',1135782997,1,0,1,1,1,0,'','','Mr. Antonio\n\nThank you very much for sparing your time on my subject.\n\nI have built babu.exe using buildh.bat.  But I could not locate \"buildhd.bat\" in either FWH or XHARBOUR directories to build Babudll.prg.   Where should I get it from ?\n\n&gt;You have to download Harbour CVS files and build it, or add such code to source\\vm\\maindll.c and build it. \n\n\"harbour CVS files\" means Xharbour or just Harbour ?\n\n\n&gt;In case you don\'t know how to build Harbour, please tell us and we will publish a new Harbour build with these changes\n\nI did not build Harbour so far and I am using the same build which I \ngot from FIVEWIN.  So kindly build it and publish it for all of our members.\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','1kkc35tj',1,0,'',190,0,0),(4262,688,5,270,0,'65.27.183.36',1135784953,1,0,1,1,1,0,'','xBase++ Ver 1.9 RC2','Hello Antonio,\n\nI downloaded Ver 1.9 RC2 and there seem to be changes that require a re-compile of FW++.\n\nCan you recomplie FW++ with RC2 for me and let me have the updated Five32rt.dll?\n\nBTW, RC1 expires on February 28th of 2006.  RC2 expires in July of 2006.  Anyone using RC1 or RC2 will have to move to the full release version.  RC1 and RC2 are both considered Beta versions.\n\nDan','',0,'gA==','8edrnpwa',1,0,'',270,0,0),(4263,1060,2,350,0,'81.33.97.77',1135787524,1,0,1,1,1,0,'','Crear ficheros con nombre largo','Hola a todos:\n\n¿Existe alguna función para reemplazar FCreate() y que permita crear ficheros con nombre largo?.\n\nEn FW16 claro.\n\nEn el Kernel32.dll está CreateFileA(), que supongo se podrá utilizar, pero es por si alguien ya lo tiene hecho, que estas cosas se me dan muy mal.\n\nSaludos','',0,'gA==','595pwwlt',1,0,'',350,0,0),(4264,863,3,2,0,'80.58.2.107',1135789748,1,0,1,1,1,1,'','','Ramesh,\n\nYou may download buildhd.bat from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/311c2e97/buildhd.zip.html\">http://hyperupload.com/download/311c2e9 ... d.zip.html</a><!-- m -->\n\nPlease notice it uses harbour to build the DLL, so you need to modify it to use xharbour. Its easy.\n\nThe changes we have implemented are in Harbour, not xHarbour. So we are going to implement them in xharbour, here locally, and publish a new build. In a few minutes we will let you know when it is ready to be downloaded.','',0,'gA==','1t0t79fw',1,0,'',2,0,0),(4265,1055,6,97,0,'200.23.84.230',1135789862,1,0,1,1,1,1,'','Gracias Juan.','No ma ha llegado el correo con el Tole , juan podrias enviarmelo de nuevo por favor.\n\n\nsaludos\nfernando sandoval ruiz','',0,'gA==','lkv16nya',1,0,'',97,0,0),(4266,863,3,2,0,'80.58.2.107',1135791132,1,0,1,1,1,1,'','','Ramesh,\n\nYou may already download a new build with those required functions:\n\nharbour: <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\nxharbour: <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'gA==','2ed32rx4',1,0,'',2,0,0),(4267,688,5,2,0,'80.58.2.107',1135791294,1,0,1,1,1,1,'','','Dan,\n\nFW++ is already compatible with Xbase++ 1.9 RC 2.\n\nWe have just emailed it to you.','',0,'gA==','1zkts3jv',1,0,'',2,0,0),(4268,1060,2,2,0,'80.58.2.107',1135791902,1,0,1,1,1,1,'','','Sebastián,\n\nPuedes usar LFN2SFN( cNombreLargo ) --&gt; cNombreCorto\n\nAsí puedes trabajar con el cNombreCorto que te proporciona, pero en realidad estás accediendo al cNombreLargo.','',0,'gA==','1bql79n6',1,0,'',2,0,0),(4269,1061,6,378,0,'80.58.54.235',1135792479,1,0,1,1,1,0,'','teclado tactil','Hola a todos:\n\nNecesito implementar un teclado tactil. ¿Existe alguna clase o algo?. El ejemplo keysbin.prg no funciona correctamente. Mil gracias.\n\nSalu2,\n\nPablo','',0,'gA==','33kicfh2',1,0,'',378,0,0),(4270,1060,2,350,0,'81.33.97.77',1135793930,1,0,1,1,1,0,'','','Gracias Antonio, pero el caso es que lo necesito es poder crear un fichero con el nombre largo( es un fichero de texto plano .RML para poder imprimir ficheros DWG con VoloView desde FW ) . Aunque luego trabaje con el nombre corto pero crearlo con FCreate() no hay manera, lo acorta a 10 caracteres de longitud. \n\nEl caso es que de momento lo he solucionado creando un fichero provisional (con nombre corto) y una vez grabados en el los datos necesarios, lo copio con la función CopyFile(), que si admite un nombre largo para el fichero de destino. En fin, el resultado es el mismo, pero lo ideal sería poder crearlo directamente. Tendré que dejarlo para cuando pase la aplicación a 32 Bits.\n\nGracias y Felices Fiestas','',0,'gA==','2s06xtue',1,0,'',350,0,0),(4271,1054,6,177,0,'62.99.101.28',1135794189,1,0,1,1,1,0,'','','Karinha,\n\nBingen no lo ha portado a 32 bits.\n\nSaludos.','',0,'gA==','22fcwmi5',1,0,'',177,0,0),(4272,1061,6,2,0,'80.58.2.107',1135796395,1,0,1,1,1,1,'','','Pablo,\n\nEl ejemplo samples\\keybsim.prg funciona correctamente con esta pequeña modificación:\n\n[code:3u3fpl78]\n    local hDLL &#58;= LoadLibrary&#40; &quot;bwcc32&#46;dll&quot; &#41;   // NUEVO!\n    SET RESOURCES TO &quot;KBSIM_32&#46;DLL&quot;\n    BWCCRegister&#40; GetResources&#40;&#41; &#41;\n[/code:3u3fpl78]','',0,'AIA=','3u3fpl78',1,0,'',2,0,0),(4273,1054,6,362,0,'200.168.52.156',1135797261,1,0,1,1,1,1,'','','[quote=&quot;Baxajaun&quot;:26rqh6sk]Karinha,\n\nBingen no lo ha portado a 32 bits.\n\nSaludos.[/quote:26rqh6sk]\n\nHola Baxajaun... Tudo Bién con Usted??\n\nUsted no conseguiria modificarlo?? Jo puedo enviarte. ke achas??','',0,'gA==','26rqh6sk',1,0,'',362,0,0),(4274,1060,2,2,0,'80.58.2.107',1135798120,1,0,1,1,1,1,'','','Sebastián,\n\nMe alegro de que tengas una solución provisional, de todas formas como bien dices, lo idóneo es pasar a 32 bits la aplicación y olvidarte de esos quebraderos de cabeza <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nfelices fiestas,','',0,'gA==','dw4y8qca',1,0,'',2,0,0),(4275,688,5,270,0,'65.27.183.36',1135801894,1,0,1,1,1,0,'','','Hello Antonio,\n\nSeems that Alaska has renamed some functions that FW++ is using and the application fails with a dll error.  I\'ve emailed you the details.\n\nDan','',0,'gA==','1yd1hobc',1,0,'',270,0,0),(4278,1063,6,97,0,'200.76.32.3',1135813037,1,0,1,1,1,1,'','Probando con ADO','He leido los mensajes puestos hacerca de este tema el proble es que lo defino y me marca error, que ch devo incluir y que libreria debo adicionar al ligado de la aplicacion, con harbour o xhabour.\n\nsaludos.\nfernando sandoval ruiz','',0,'gA==','36va0lxf',1,0,'',97,0,0),(4279,1064,6,341,0,'24.232.135.75',1135813057,1,0,1,1,1,0,'','Ayuda con Arrays TestData[nI,4] = desig-&gt;nmes','Estimado Colegas\n\nNecesito extraer un dato de array = a un campo de una dbf y pasarselo a \nun action de un boton si alguien me puede echar una mano\n\ndesde ya muchisimas gracias\nDante \n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->\n\n\nEJ \nTestData[nI,4] = desig-&gt;nmes \n\nadjunto codigo fuente\n\n\n\n  use desig\n  TestData := Array( lastrec(), 4 )\n\n\n    FOR nI := 1 TO Len(TestData)\n     TestData[nI,1] = val(desig-&gt;dntop)\n     TestData[nI,2] = val(desig-&gt;dnleft)               //CANT\n     TestData[nI,3] = desig-&gt;dbmp\n     TestData[nI,4] = desig-&gt;nmes\n\n\n\n@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME \n\n\"MESA8C.bmp\"  PROMPT  TestData[nI,3]  size 64,64 OF oDlg pixel TEXT \n\nON_BOTTOM NO BOX Action  (TestData[nI,3])\n\n\n    IF .NOT.EOF()\n       SKIP\n     ENDIF\n   NEXT\n\n\n return nil','',0,'','36pl7o5w',1,0,'',341,0,0),(4281,1065,2,341,0,'24.232.135.75',1135813227,1,0,1,1,1,0,'','Ayuda con Arrays TestData[nI,4] = desig-&gt;nmes','Estimado Colegas\n\n\nNecesito extraer un dato de array = a un campo de una dbf y pasarselo a\nun action de un boton si alguien me puede echar una mano\n\ndesde ya muchisimas gracias\nDante \n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->\n\n\nEJ \nTestData[nI,4] = desig-&gt;nmes \n\nadjunto codigo fuente\n\n\n\n\n\n  use desig\n  TestData := Array( lastrec(), 4 )\n\n\n    FOR nI := 1 TO Len(TestData)\n     TestData[nI,1] = val(desig-&gt;dntop)\n     TestData[nI,2] = val(desig-&gt;dnleft)               //CANT\n     TestData[nI,3] = desig-&gt;dbmp\n     TestData[nI,4] = desig-&gt;nmes\n\n\n\n@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME \n\n\"MESA8C.bmp\"  PROMPT  TestData[nI,3]  size 64,64 OF oDlg pixel TEXT \n\nON_BOTTOM NO BOX Action  (TestData[nI,3])\n\n\n    IF .NOT.EOF()\n       SKIP\n     ENDIF\n   NEXT\n\n\n return nil','',0,'','3s17sb0b',1,0,'',341,0,0),(4282,688,5,2,0,'80.58.2.107',1135815962,1,0,1,1,1,1,'','','Dan,\n\nWht DLL error do you get ? Here it is working ok.\n\nPlease search for Five32*.dll in your computer and replace it with the new one.','',0,'','3070hu6l',1,0,'',2,0,0),(4283,1049,6,295,0,'201.222.154.88',1135823285,1,0,1,1,1,1,'','','Por Favor amigos <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  la texcels que usaba con fw clipper funcioanaba!! pero ahora que me pasé a harbour estoy sin rumbo con esta clase, por favor una ayudita!!\n\nGracias!!','',0,'','2ggpqrkg',1,0,'',295,0,0),(4284,863,3,190,0,'202.65.134.22',1135835165,1,0,1,1,1,0,'','','Mr. Antonio\n\nThank you very much for the \"BuildHd.bat\" and the new xHarbour build. \n\nWhen I try to build any application with the new xHarbour version, I am gettng the following errors!.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\n\nAm I missing any thing in the \"BuildHd.bat\"\n\nI give below the copy of \"BuildHd.bat\" for your reference.\n\n\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for Harbour 2.7 - January 2006           Harbour development power ³Ü\nECHO ³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\xharbour\nset bcdir=c:\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0d32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.dll, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho c:\\fwh\\lib\\FiveH.lib c:\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib, &gt;&gt; b32.bc\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n%bcdir%\\bin\\ilink32 -Tpd -aa @b32.bc\n\nrem delete temporary files\n@del %1.c\n@del %1.il?\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * self contained DLL successfully built\nGOTO EXIT\nECHO\n\n:LINKERROR\nrem if exist meminfo.txt notepad meminfo.txt\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n\n\nPlease correct me where I am going wrong.\n\nPlease also note that \"maindll.obj\" is not included in the above file.\nIs it still required to be included in the above \"BuildHd.bat\" file, to build the DLL ?\n\n\nRegards,\n\n- Ramesh Babu P','',0,'','1656ixc4',1,0,'',190,0,0),(4285,1066,3,51,0,'80.122.88.242',1135840954,1,0,1,1,1,0,'','transaction security','Does someone know a link about transaction security?\n\nThanks in advance\nOtto','',0,'','2uh1tvvb',1,0,'',51,0,0),(4286,863,3,2,0,'80.58.2.107',1135845250,1,0,1,1,1,1,'','','Ramesh,\n\nPlease add these two lines to buildhd.bat:\n\n...\necho %hdir%\\lib\\b32\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\b32\\dbffpt.lib + &gt;&gt; b32.bc     NEW !!!\necho %hdir%\\lib\\b32\\hbsix.lib + &gt;&gt; b32.bc      NEW !!!\necho %hdir%\\lib\\b32\\debug.lib + &gt;&gt; b32.bc\n...\n\nregarding _hb_stack you need an upgraded FWH version. You may order it from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','1ehlau9u',1,0,'',2,0,0),(4287,1066,3,2,0,'80.58.2.107',1135845442,1,0,1,1,1,1,'','','Otto,\n\nHave you googled for it ? There are many references about it.','',0,'','1ygmi7dt',1,0,'',2,0,0),(4288,1049,6,2,0,'80.58.2.107',1135846018,1,0,1,1,1,1,'','','Luis,\n\nDescarga y prueba esta versión corregida:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/2e31ee37/Texcels.prg.html\">http://hyperupload.com/download/2e31ee3 ... s.prg.html</a><!-- m -->','',0,'','3o0mtnki',1,0,'',2,0,0),(4289,1065,2,2,0,'80.58.2.107',1135846155,1,0,1,1,1,1,'','','Por favor, genera el PPO resultante y copia aquí el resultado de:\n\n@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME \n\n\"MESA8C.bmp\" PROMPT TestData[nI,3] size 64,64 OF oDlg pixel TEXT \n\nON_BOTTOM NO BOX Action (TestData[nI,3])','',0,'','25ymkrwx',1,0,'',2,0,0),(4290,1066,3,51,0,'80.122.88.242',1135850206,1,0,1,1,1,0,'','','Hello Antonio,\n\nThere are many but too much to start.\nIf someone could refer one Iwould be glad.\n\nThanks in advance\nOtto','',0,'','55i3em6n',1,0,'',51,0,0),(4291,1067,16,2,0,'80.58.2.107',1135852042,1,0,1,1,1,1,'','FWPPC new build - VALID on DIALOGs','There is a new FWPPC build already available that supports VALID clause on dialogboxes. Please review samples\\Tutor04.prg\n\nYa hay disponible un nuevo build de FWPPC con soporte de VALID en los diálogos. Por favor revisad el ejemplo samples\\Tutor04.prg','',0,'','1lu7fqcu',1,0,'',2,0,0),(4292,1068,4,2,0,'80.58.2.107',1135852143,1,0,1,1,1,1,'','VALID for DialogBoxes, already available','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1067\">http://fivetechsoft.com/forums/viewtopic.php?t=1067</a><!-- m -->','',0,'','e3ccuzpd',1,0,'',2,0,0),(4293,1069,7,2,0,'80.58.2.107',1135852185,1,0,1,1,1,1,'','VALID para DIALOGs, ya disponible','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1067\">http://fivetechsoft.com/forums/viewtopic.php?t=1067</a><!-- m -->','',0,'','2fzxvc16',1,0,'',2,0,0),(4294,1070,20,29,0,'80.181.108.140',1135852384,1,0,1,1,1,0,'','Auguri di Buon Anno a tutti !!','Con l\'occasione approfitto per ringraziare anche tutti i programmatori che hanno partecipato attivamente al forum condividendo le loro esperienze ed un ringraziamento in particolare ad EMG sempre molto disponibile ed utile nei suoi interventi.\n\nAncora Auguri a tutti...\n\nMarco Turco','',0,'','q26tnevh',1,0,'',29,0,0),(4295,993,3,2,0,'80.58.2.107',1135852401,1,0,1,1,1,1,'','','Riccardo,\n\nYes, Class TXBrowse does not has such method, but it may be easy to implement it using Class TWBrowse Method Report() as a skeleton for it.','',0,'','zud9rj4b',1,0,'',2,0,0),(4296,688,5,270,0,'65.27.183.36',1135853831,1,0,1,1,1,0,'','','I was getting an error that ResolveShellLink() could not be found in the xpprt1.dll.\n\nI was using a previous version of the five32rt.dll.  Once I replaced it with the new one, everything is working now.\n\nDan','',0,'','2t3bzayk',1,0,'',270,0,0),(4297,1056,2,375,0,'84.122.112.129',1135854117,1,0,1,1,1,1,'','uLoadObject','Tengo varios programas corriendo. Todos utilizan ficheros salvados con lSaveObject y todos funcionan con Blinker 4.0, y todos fallan con Blinker 6.0 o Blinker 7.0. El caso es que no dan error de lectura, simplemente no cargan los datos.\nY lo unico que falla es uLoadObject, porque los crea bien con lSaveObject, pero esos mismo ficheros, después no lo lee.\nYo creo que pueda ser alguna variable de entorno del Blinker, pero no se cúal. Con Blinker 4.0 va bien, pero me gustaría linklar con alguna version más moderna porque supongo que gestionará mejor los recursos de memoria del ordenador. Y sino pués nada.','',0,'','39y4ejsn',1,0,'',375,0,0),(4298,1063,6,123,0,'81.32.175.43',1135854583,1,0,1,1,1,0,'','','Fernando,\n\n¿Cual mensaje de error te aparece?\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> hay varios artículos que trata sobre Ado y xharbour.  Además espero tener terminados unos ejemplos (un ABM completo navegando por el tcBrowse con ADO) en breves días.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'','qw0gank0',1,0,'',123,0,0),(4299,1071,6,87,0,'83.33.11.119',1135858286,1,0,1,1,1,0,'','Comprimir Imagenes   ?','Hola \n\n\n  Existe alguna utilidad que nos permita lanzar desde nuestro programa,   para poder comprimir una imagen jpg  ?\n\n\nUn saludo y gracias \n\nGabriel','',0,'','24y8bl60',1,0,'',87,0,0),(4300,688,5,2,0,'83.39.33.183',1135858660,1,0,1,1,1,1,'','','Dan,\n\nGlad to know it is working ok for you.','',0,'','rn6ul87g',1,0,'',2,0,0),(4301,1071,6,2,0,'83.39.33.183',1135858781,1,0,1,1,1,1,'','','Gabriel,\n\nSi es solo para almacenamiento, podrias comprimirla como un fichero zip usando hbzip.lib','',0,'','2c2f7lhr',1,0,'',2,0,0),(4302,1056,2,2,0,'83.39.33.183',1135858963,1,0,1,1,1,1,'','','Manuel,\n\n¿ Que tamaño tienen los ficheros salvados en disco ?\n\nTambien podrias poner algunas trazas en el código fuente de uLoadObject() y ver en donde exactamente está la diferencia.\n\n¿ Puedes proporcionarnos un ejemplo para probarlo aqui ? gracias.','',0,'','n343n8qf',1,0,'',2,0,0),(4303,1071,6,87,0,'83.33.11.119',1135859213,1,0,1,1,1,0,'','','Lo  quiero es comprimir ese misma imagen en formato jpg y despues lanzarla desde el programa.\n\n\n  Un saludo y gracias \n\n  Gabriel','',0,'','1qtgtp5b',1,0,'',87,0,0),(4304,1070,20,263,0,'217.222.223.34',1135859367,1,0,1,1,1,0,'','','L\'anno nuovo è come un libro con 365 pagine vuote.\nFacciamo di ogni giorno un capolavoro usando tutti i colori della vita e mentre scriaviamo ............. sorridiamo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nBuon Anno a tutti\n\nGiovanni Cacciotti','',0,'','uhee68y2',1,0,'',263,0,0),(4305,1071,6,2,0,'83.39.33.183',1135859537,1,0,1,1,1,1,'','','Gabriel,\n\nActualmente estás usando las imágenes en formato BMP ?','',0,'','1w6dky6y',1,0,'',2,0,0),(4306,1072,6,228,0,'201.245.222.85',1135859606,1,0,1,1,1,1,'','Abrir archivo plano arrojado por mysql','1;1002;SENSITIVE;12300.00;0001;01;1;16.00\n2;1017;SHAMPOO ALOE VERA (01);10750.00;0001;01;1;16.00\n3;1018;ACONDICIONADOR ALOE VERA;10750.00;0001;01;1;16.00\n4;102;DANGERUS (12);13999.00;0003;12;1;16.00\n5;1031;MARIANELLA (XL);17850.00;0003;XL;1;16.00\n6;1033;CUELLO OMOPLATO ANTIESTRES;29999.00;0001;01;2;0.00\n\nAlguien me puede indicar como pasarlo a bases de datos RDD, en otros archivos el comando es APPEND FROM miarchivo SDF\n\nComo lo puedo hacer \nFHW27 + BCC55','',0,'','3a2jqoba',1,0,'',228,0,0),(4307,1071,6,87,0,'83.33.11.119',1135860409,1,0,1,1,1,0,'','','Estoy utilizando imagenes jpg, pero  quiero ponerle una opción al programa que me permita reducir en kb  la misma imagen \n\n\nun saludo y gracias \n\n Gabriel','',0,'','3rdq1lvq',1,0,'',87,0,0),(4308,1056,2,375,0,'84.122.112.129',1135861193,1,0,1,1,1,1,'','','ES MUY EXTRTAÑO. PARA PROBAR, HE ESCRITO AL PRINCIPIO DEL PROGRAMA LO SIGUIENTE:\n\nLOCAL aDat := { \"Banco1\",\"Banco2\",\"Banco3\" }\nLOCAL aBanc := {}\n\nMsgAlert(LEN(aDat)) \n\nMsgAlert(LEN(aBanc)) \n\nlSaveObject(aDat,\".\\Datos\\Prueba.Dat\")\n\nSysRefresh()\n\naBanc := uLoadObject(\".\\Datos\\Prueba.Dat\")\n\nMsgAlert(LEN(aBanc)) \n\nME DEVUELVE EL SIGUIENTE RESULTADO:\n\n3\n0\n3\n\nO SEA TODO BIEN, ME LO HA ABIERTO. SIN EMBARGO EN OTRO PUNTO DEL PROGRAMA, DENTRO DE UNA FUNCION, HE HECHO:\n\nLOCAL aBanc := {}\n\naBanc := uLoadObject(\".\\Datos\\Prueba.Dat\")\nSysRefresh()\nMsgAlert(LEN(aBanc)) \n\nY ME HA DADO ERROR DEL \"LEN\" AL EJECUTAR EL MsgAlert. COMO SI aBanc FUERA NIL.\n\nCON \"LOCAL abanc\" A SECAS O CON\nLOCAL aBanc := uLoadObject(\".\\Datos\\Prueba.Dat\")\nTAMPOCO VA.\n\nPERO SOLO SI LO ENLAZO CON BLINKER 6.0 O BLINKER 7.0\nCON BLINKER 4.0 VA BIEN\nPUEDE SER ALGUN TIPO DE PROBLEMA DE ALOCACION DE LA MEMORIA','',0,'','1jlay2mh',1,0,'',375,0,0),(4309,1065,2,341,0,'24.232.135.75',1135861434,1,0,1,1,1,0,'','','Antonio te envio el PPO\n\n\nGracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->\n\n\n#include \"FiveWin.ch\"\n#include \"Tsbutton.ch\"\n\n\n//----------------------------------------------------------------------------//\n\n\n\n\n\nfunction Main()\n\n    local  obmp,testdata,nI,cget,mg2,b,nkey,aFont,oFont,Afont1,xbmp[14],xnmesa[14],ntop,nleft\n    locaL XX1\n    local xmesa:= 0\n    local nStyle := nOr( WS_POPUP,    ; // System menu de  oDlg\n			 WS_MAXIMIZE ) // botón maximize habilitado y botón minimize deshabilitado\n\n\n\n\n\n\n\n   DEFINE FONT aFont NAME \"Arial\" SIZE 0, -14 BOLD ITALIC\n   DEFINE FONT oFont NAME \"Arial Black\" SIZE 0,-18\n   DEFINE FONT aFont1 NAME \"Arial\" SIZE 0, -12 BOLD ITALIC\n\n\n   DEFINE WINDOW oDlg TITLE \"Database LAB\"  COLOR \"N/G\"   &amp;&amp;   OF oWnd MDICHILD  &amp;&amp; NOSYSMENU TION NOMAXIMIZE NOICONIZE\n\n\n\n    sele 8\n    use desig\n    TestData := Array( lastrec(), 4 )\n\n\n    FOR nI := 1 TO Len(TestData)\n     TestData[nI,1] = val(desig-&gt;dntop)\n     TestData[nI,2] = val(desig-&gt;dnleft)               //CANT\n     TestData[nI,3] = desig-&gt;dbmp\n     TestData[nI,4] = desig-&gt;nmesa\n\n\n\n@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME \"MESA8C.bmp\"  PROMPT  TestData[nI,3]  size 64,64 OF oDlg pixel TEXT ON_BOTTOM NO BOX\n\n    IF .NOT.EOF()\n       SKIP\n     ENDIF\n   NEXT\n\n\n\n  ACTIVATE WINDOW oDlg maximized\n\n return nil\n\n\n\n\n\n\n\Z','',0,'','ron0qtyy',1,0,'',341,0,0),(4310,1057,2,375,0,'84.122.112.129',1135861459,1,0,1,1,1,1,'','','Efectivamente, ambos programas corren en mi ordenar. Sin embargo todos los report´s de mis programas fallan con el siguiente error:\n\nError del Programa\nStack overflow\n\ny se queda Preview.dll en memoria\n\nSin embargo con una impresora normal funciona perfectamente. Me queda probar en casa de alguien con impresora USB y te lo comento.\n\nPD: tengo una EPSON COLOR 685 (no es muy buena).\ny 256 Mbts de RAM','',0,'','2sfxphcc',1,0,'',375,0,0),(4311,1065,2,341,0,'24.232.135.75',1135861598,1,0,1,1,1,0,'','','Antonio \n\nTe lo envio perdon por el error\n\n\ngracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->\n\n\nfunction Main()\n\n    local  obmp,testdata,nI,cget,mg2,b,nkey,aFont,oFont,Afont1,xbmp[14],xnmesa[14],ntop,nleft\n    locaL XX1\n    local nStyle := nOr( 2147483648,     16777216 ) \n\n   aFont := TFont():New( \"Arial\", 0, -14,,.T.,,,,.T.,,,,,,,, )\n   oFont := TFont():New( \"Arial Black\", 0, -18,,,,,,,,,,,,,, )\n   aFont1 := TFont():New( \"Arial\", 0, -12,,.T.,,,,.T.,,,,,,,, )\n\n\n   oDlg := TWindow():New(,,,, \"Database LAB\",,,,,,,, \"N/G\",,,, !.F., !.F., !.F., !.F., .F. )   \n\n\n    dbSelectArea( \"8\" )\n    dbUseArea( .F.,, \"desig\",, if(.F. .OR. .F., !.F., NIL), .F. )\n    TestData := Array( lastrec(), 4 )\n\n\n    FOR nI := 1 TO Len(TestData)\n     TestData[nI,1] = val(desig-&gt;dntop)\n     TestData[nI,2] = val(desig-&gt;dnleft)               \n     TestData[nI,3] = desig-&gt;dbmp\n     TestData[nI,4] = desig-&gt;nmesa\n\n\nTestData[nI,3] := NO := BOX := TSButton():New( TestData[nI,1], TestData[nI,2],TestData[nI,3],oDlg,,{\"MESA8C.bmp\"},{64,64},.T.,,,,,,,,,,,,,3,,,, )\n\n    IF !EOF()\n       dbSkip(1)\n     ENDIF\n   NEXT\n\n\n\n  oDlg:Activate( Upper(\"maximized\"), oDlg:bLClicked, oDlg:bRClicked, oDlg:bMoved, oDlg:bResized, oDlg:bPainted, oDlg:bKeyDown, oDlg:bInit,,,,,,,,,,, oDlg:bLButtonUp )\n\n return nil\n\Z','',0,'','2ouqrzv7',1,0,'',341,0,0),(4312,1073,18,154,0,'151.81.2.81',1135862974,1,0,1,1,1,1,'','Landscape print is not correct','Hi fw\'s\nwith the fwh 2.7 version I have a problem in landscape print.\n\nThis problem is not present in previous version FWH2.5\n\nTest this sample:\n[code:2w68piqx]#include &quot;Fivewin&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n\n   Stampa&#40; 0, &quot;Prova Verticale&quot; &#41;\n   Stampa&#40; 1, &quot;Prova Orizzontale&quot; &#41;\n\n   RETURN Nil\n\nFUNCTION Stampa&#40; nOriente, cTitolo &#41;\n\n   LOCAL oFont\n   LOCAL oPrinter\n\n   DEFAULT cTitolo &#58;= &quot;Prova Orizzontale&quot;, nOriente &#58;= 1\n\n   // Qui imposto la stampa da fivewin\n   PRINT oPrinter PREVIEW // NAME cTxt MODAL // TO cPrinter\n\n   IF oPrinter&#58;hDC != 0\n\n      DEFINE Font oFont NAME &quot;Arial&quot; SIZE 0, - 20 BOLD OF oPrinter\n\n      PAGE\n\n      IF nOriente &gt; 0\n         oPrinter&#58;SetLandscape&#40;&#41;\n      ELSE\n         oPrinter&#58;SetPortrait&#40;&#41;\n      ENDIF\n\n      oPrinter&#58;CmSay&#40; 1, 1, cTitolo, oFont &#41;\n\n      ENDPAGE\n      ENDPRINT\n\n      oFont&#58;END&#40;&#41;\n\n   ENDIF\n   RETURN &#46;t&#46;[/code:2w68piqx]','',0,'AIA=','2w68piqx',1,0,'',154,0,0),(4313,1070,20,6,0,'82.53.175.8',1135863381,1,0,1,1,1,1,'','','[quote=&quot;juanito&quot;:ak3gdslg]L\'anno nuovo è come un libro con 365 pagine vuote.[/quote:ak3gdslg]\n\nVeramente per te è così? Scusa, ma spero vivamente che per la maggior parte della gente molte delle pagine del nuovo anno siano già riempite con una accorta pianificazione delle future attività. Sarebbe un guaio se si vivesse tutti alla giornata, non ti pare?\n\nComunque buon anno a tutti anche da parte mia!\n\nEMG','',0,'gA==','ak3gdslg',1,0,'',6,0,0),(4314,1073,18,6,0,'82.53.175.8',1135863583,1,0,1,1,1,1,'','Re: Landscape print is not correct','What is exactly the problem? I can\'t see it.\n\nEMG','',0,'gA==','2ps1p7zh',1,0,'',6,0,0),(4315,1071,6,362,0,'200.168.52.156',1135864440,1,0,1,1,1,1,'','','USE EL IRFANVIEW.EXE.','',0,'gA==','2s93nkif',1,0,'',362,0,0),(4316,1073,18,154,0,'151.81.2.81',1135864581,1,0,1,1,1,1,'','Re: Landscape print is not correct','[quote=&quot;EnricoMaria&quot;:1pwnh4xo]What is exactly the problem? I can\'t see it[/quote:1pwnh4xo]\n\nEnrico,\nthe font and any object is not the same in landscape; \nplease test this:\n[code:1pwnh4xo]#include &quot;Fivewin&#46;ch&quot;\n\n#xtranslate  NTRIM&#40; &lt; n &gt; &#41; = &gt; &#40; LTrim&#40; Str&#40; &lt; n &gt; &#41; &#41; &#41;\n\n#xtranslate  MM2PxHor&#40; &lt; nMM &gt;, &lt; oPrn &gt; &#41; = &gt; &lt; nMM &gt; / 25&#46;4 * &lt; oPrn &gt; &#58;nLogPixelX&#40;&#41;\n#xtranslate  MM2PxVer&#40; &lt; nMM &gt;, &lt; oPrn &gt; &#41; = &gt; &lt; nMM &gt; / 25&#46;4 * &lt; oPrn &gt; &#58;nLogPixelY&#40;&#41;\n#xtranslate  Px2MMVer&#40; &lt; nPx &gt;, &lt; oPrn &gt; &#41; = &gt; &lt; nPx &gt; * 25&#46;4 / &lt; oPrn &gt; &#58;nLogPixelY&#40;&#41;\n\nFUNCTION Main&#40;&#41;\n\n   Stampa&#40; 0, &quot;Prova Verticale&quot; &#41;\n   Stampa&#40; 1, &quot;Prova Orizzontale&quot; &#41;\n\n   RETURN Nil\n\nFUNCTION Stampa&#40; nOriente, cTitolo &#41;\n\n   LOCAL nZ, aTabul\n   LOCAL oFont, Font, nTmp, cTxt\n   LOCAL oPen, oPen1, oPen2, nPag, aParam &#58;= &#123; &#125;, aCorpo\n   LOCAL oPrinter, nPosRow, nPosCol, nMax, nCol\n\n   DEFAULT cTitolo &#58;= &quot;Prova Orizzontale&quot;, nOriente &#58;= 1\n\n   nPag &#58;= 0\n\n   aTabul &#58;= &#123; &#123; &quot;Colonna 1&quot;, 0,   8, 53, 1 &#125;, ;\n               &#123; &quot;Colonna 2&quot;, 0,  63, 60, 3 &#125;, ;\n               &#123; &quot;Colonna 3&quot;, 0, 125, 65, 5 &#125; &#125;\n\n   // Qui imposto la stampa da fivewin\n   PRINT oPrinter PREVIEW // NAME cTxt MODAL // TO cPrinter\n\n   IF oPrinter&#58;hDC != 0\n\n      oFont &#58;= &#123; &#125;\n      DEFINE Font Font NAME &quot;Arial&quot; SIZE 0, - 20 BOLD OF oPrinter\n      AAdd&#40; oFont, Font &#41;\n\n      DEFINE Font Font NAME &quot;Arial&quot; SIZE 0, - 9 BOLD OF oPrinter\n      AAdd&#40; oFont, Font &#41;\n\n      DEFINE Font Font NAME &quot;Arial&quot; SIZE 0, - 9 OF oPrinter\n      AAdd&#40; oFont, Font &#41;\n\n      SysRefresh&#40;&#41;\n\n      PAGE\n\n      IF nOriente &gt; 0\n         oPrinter&#58;SetLandscape&#40;&#41;\n      ELSE\n         oPrinter&#58;SetPortrait&#40;&#41;\n      ENDIF\n\n      SysRefresh&#40;&#41;\n\n      aParam &#58;= oPrinter&#58;GetPhySize&#40;&#41;\n      AAdd&#40; aParam, 15 &#41; \n      AAdd&#40; aParam, 10 &#41; \n      AAdd&#40; aParam, 25 &#41; \n      AAdd&#40; aParam,  5 &#41; \n\n      DEFINE PEN  oPen  WIDTH   1    OF oPrinter\n      DEFINE PEN  oPen1 WIDTH  10    OF oPrinter\n      DEFINE PEN  oPen2 WIDTH  15    OF oPrinter\n\n      aCorpo   &#58;= Array&#40; 2 &#41;\n      nCol     &#58;= Len&#40; aTabul &#41;\n      nMax     &#58;= 0\n      nTmp     &#58;= 0\n      nPosRow  &#58;= 15\n      nPosCol  &#58;= 10\n\n      oPrinter&#58;Say&#40; MM2PxVer&#40; nPosRow, oPrinter &#41;, ;\n                    MM2PxHor&#40; nPosCol, oPrinter &#41;, ;\n                    cTitolo, oFont&#91; 1 &#93; &#41;\n\n      nPosRow += Px2MMVer&#40; oFont&#91; 1 &#93;&#58;nHeight, oPrinter &#41; + aParam&#91; 6 &#93;\n      nMax    &#58;= 0\n      FOR nZ &#58;= 1 TO nCol\n         nTmp &#58;= MM2PxVer&#40; nPosRow, oPrinter &#41; + aTabul&#91; nZ, 2 &#93; * oFont&#91; 2 &#93;&#58;nHeight * 1&#46;2\n         IF nMax &lt; nTmp\n            nMax &#58;= nTmp\n         ENDIF\n         oPrinter&#58;Say&#40; nTmp, ;\n                       MM2PxHor&#40; &#40; nPosCol + aTabul&#91; nZ, 3 &#93; &#41;, oPrinter &#41;, ;\n                       aTabul&#91; nZ, 1 &#93;, oFont&#91; 2 &#93; &#41;\n      NEXT\n      aCorpo&#91; 1 &#93; &#58;= nMax + oFont&#91; 2 &#93;&#58;nHeight * 1&#46;2\n      oPrinter&#58;Line&#40; aCorpo&#91; 1 &#93;, ;\n                     MM2PxHor&#40; &#40; aParam&#91; 4 &#93; &#41;, oPrinter &#41;, ;\n                     aCorpo&#91; 1 &#93;, ;\n                     MM2PxHor&#40; &#40; aParam&#91; 1 &#93; - aParam&#91; 4 &#93; &#41;, oPrinter &#41;, ;   \n                     oPen1 &#41;\n      aCorpo&#91; 1 &#93; += oFont&#91; 2 &#93;&#58;nHeight * 0&#46;2\n\n      aCorpo&#91; 2 &#93; &#58;= MM2PxVer&#40; &#40; aParam&#91; 2 &#93; - aParam&#91; 5 &#93; &#41;, oPrinter &#41;\n      oPrinter&#58;Line&#40; aCorpo&#91; 2 &#93;, ;\n                     MM2PxHor&#40; &#40; aParam&#91; 4 &#93; &#41;, oPrinter &#41;, ;\n                     aCorpo&#91; 2 &#93;, ;\n                     MM2PxHor&#40; &#40; aParam&#91; 1 &#93; - aParam&#91; 4 &#93; &#41;, oPrinter &#41;, ;   \n                     oPen2 &#41;\n      aCorpo&#91; 2 &#93; -= oFont&#91; 2 &#93;&#58;nHeight * 1&#46;2\n      cTxt &#58;= &quot;Pagina &quot; + NTrim&#40; nPag &#41;\n      oPrinter&#58;Say&#40; aCorpo&#91; 2 &#93; + oFont&#91; 3 &#93;&#58;nHeight * 1&#46;5, ;\n                    MM2PxHor&#40; &#40; aParam&#91; 1 &#93; - aParam&#91; 4 &#93; &#41;, oPrinter &#41; - oPrinter&#58;GetTextWidth&#40; cTxt, oFont&#91; 3 &#93; &#41;, ;\n                    cTxt, oFont&#91; 3 &#93; &#41;\n      cTxt &#58;= &quot;Torino, &quot; + &quot; &quot; + DToC&#40; Date&#40;&#41; &#41;\n      oPrinter&#58;Say&#40; aCorpo&#91; 2 &#93; + oFont&#91; 3 &#93;&#58;nHeight * 1&#46;5, ;\n                    MM2PxHor&#40; nPosCol, oPrinter &#41;, ;\n                    cTxt, oFont&#91; 3 &#93; &#41;\n\n      EndPage\n      ENDPRINT\n      oPen&#58;END&#40;&#41;\n      oPen1&#58;END&#40;&#41;\n      oPen2&#58;END&#40;&#41;\n\n      oFont&#91; 1 &#93;&#58;END&#40;&#41;\n      oFont&#91; 2 &#93;&#58;END&#40;&#41;\n      oFont&#91; 3 &#93;&#58;END&#40;&#41;\n   ENDIF\n   RETURN &#46;t&#46;&#91;\\code&#93;[/code:1pwnh4xo]','',0,'gIA=','1pwnh4xo',1,0,'',154,0,0),(4317,1057,2,375,0,'84.122.112.129',1135864962,1,0,1,1,1,1,'','','Definitivamente, creo que es problema de memoria. Tras varios errores. Con la memoria sucia, he puesto varios MSGALERT(\"OK\") entre las lineas de programacion del report, y ha funcionado. Tras apagar y encender el ordenador. Sin tocar nada, me ha vuelto a fallar con MSGALERT y todo.\nO es la memoria, o es el linkado. Te pongo mi link:\n\nBLINKER INCREMENTAL OFF\nBLINKER CLIPPER SYMBOL OFF\nBATCH\n\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\SOCIOS.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\PROCEDAT.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\MODDAT.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\SODEFUNC.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\LISSOCS.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\GUARDAT.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\RECIBOS.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CUOTAS.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\DLGCUOTA.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CARATUL.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\UTILES.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\RESUMEN.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\FORMREC.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPFICH.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPLIST.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPRESOS.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPEFUNC.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-METER.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-GET.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-BROW.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-BOX.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-ARRAY.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-MIBIT.OBJ\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-MGET.OBJ\n\nFI C:\\CLIPPER5\\BLINKER4\\OBJ\\MPAR.OBJ\n\nOU C:\\CLIPPER5\\SODECAP\\SOCIOS\n\nPACKCODE\nPACKDATA\nDEFBEGIN\n   name        SODECAP\n   description \'GESTION DE SOCIOS\'\n   exetype     Windows 3.1\n   code        moveable discardable preload\n   data        preload moveable\n   stacksize   8192\n   heapsize    2048\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nNOBELL\n\nSEARCH Five, FiveC, Objects\nLIB WinApi, Clipper, Extend, DbfNtx, Terminal, Fivestub\n\nRC -m SODECAP\n\nFunciona igual Blinker 4.0, 6.0 y 7.0 Las ultimas pruebas (la que funcionó) estaba linkada con el Blinker 6.0','',0,'gIA=','24j233gm',1,0,'',375,0,0),(4318,1073,18,6,0,'82.53.175.8',1135865402,1,0,1,1,1,1,'','Re: Landscape print is not correct','Move\n\n[code:1ernmb1c]IF nOriente &gt; 0 \n   oPrinter&#58;SetLandscape&#40;&#41; \nELSE \n   oPrinter&#58;SetPortrait&#40;&#41; \nENDIF [/code:1ernmb1c]\n\njust before the font definition.\n\nEMG','',0,'AIA=','1ernmb1c',1,0,'',6,0,0),(4319,1074,2,375,0,'84.122.112.129',1135865500,1,0,1,1,1,1,'','Problemas de ordenacion','Tengo una última duda:\n\n¿Como consigo indexar mis ficheros para que las vocales acentuadas se coloquen en su sitio?\n\nPor ejemplo: Perales, Pérez, Porras\ny no: Perales,Porras, Pérez\n\nMe falla tanto con DBF/NTX como con DBF/CDX','',0,'AIA=','10sjmxk0',1,0,'',375,0,0),(4320,1073,18,154,0,'151.81.2.81',1135865667,1,0,1,1,1,1,'','Re: Landscape print is not correct','[quote=&quot;EnricoMaria&quot;:3uxzqkft]Move\n\n[code:3uxzqkft]IF nOriente &gt; 0 \n   oPrinter&#58;SetLandscape&#40;&#41; \nELSE \n   oPrinter&#58;SetPortrait&#40;&#41; \nENDIF [/code:3uxzqkft]\n\njust before the font definition.\n\nEMG[/quote:3uxzqkft]\n\nNow work,\nthank you.','',0,'gIA=','3uxzqkft',1,0,'',154,0,0),(4321,1070,20,263,0,'217.222.223.34',1135866223,1,0,1,1,1,0,'','','Enrico, è vero io vivo alla giornata e in tutti i giorni che il Buon Dio mi regala cerco di fare di ognuno di essi un capolavoro e mentre riempio le pagine di questo libro, sorrido..... alla vita, alla gente, al mondo e poi:\n\n[quote:1i71136e]Scusa, ma spero vivamente che per la maggior parte della gente molte delle pagine del nuovo anno siano già riempite con una accorta pianificazione delle future attività[/quote:1i71136e]\n\nnon pensi sia monotono? E se qualche volta (e sono molte queste volte) i piani falliscono? Allora vorresti strappparle le pagine del tuo libro, ma non puoi farlo, quindi ricominci a scrivere e questo rende tutto più difficile (a volte doloroso) e faticoso.\n\nAuguri di vero cuore a tutti.\n\nCiao\nGiovanni','',0,'gA==','1i71136e',1,0,'',263,0,0),(4322,1075,6,362,0,'200.168.52.156',1135866456,1,0,1,1,1,1,'','LECTURA EM PUERTO SERIAL EN FIVE 2.7 FOR XHARBOUR','AMIGOS, COMO HACER PARA LECTURAS EN PUERTO SERIAL?\n\nCOM1, COM2, ETC.\n\nEJEMPLO: TESTEI PHONE.PRG, PERO NO FUNCIONA.\n\nERRO: CANNOT CREATE DIALOG BOX Y EN 16 BITS MI FUNCIONA PERFECTO.','',0,'gA==','13sb6y78',1,0,'',362,0,0),(4323,1070,20,6,0,'82.53.175.8',1135867081,1,0,1,1,1,1,'','','[quote=&quot;juanito&quot;:3qtb1u7z]Enrico, è vero io vivo alla giornata e in tutti i giorni che il Buon Dio mi regala cerco di fare di ognuno di essi un capolavoro e mentre riempio le pagine di questo libro, sorrido..... alla vita, alla gente, al mondo e poi:[/quote:3qtb1u7z]\n\nPensi che se non ci fossi qui io e altri come me ad aiutarti nella programmazione lo farebbe il \"Buon Dio\"? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote:3qtb1u7z]non pensi sia monotono?[/quote:3qtb1u7z]\n\nCosa c\'è di monotono nel cercare di avere degli obiettivi? Al contrario, credo che vivere alla giornata, senza alcuna meta da raggiungere, sia noioso ed improduttivo. Io non credo che tu viva alla giornata. Nessun essere umano lo fa più da quando ha preso coscienza di sé.\n\n[quote:3qtb1u7z]E se qualche volta (e sono molte queste volte) i piani falliscono?[/quote:3qtb1u7z]\n\nE dov\'è il problema? Vuoi forse dire che la soluzione è il non avere per niente piani?\n\n[quote:3qtb1u7z]Allora vorresti strappparle le pagine del tuo libro, ma non puoi farlo, quindi ricominci a scrivere e questo rende tutto più difficile (a volte doloroso) e faticoso.[/quote:3qtb1u7z]\n\nNiente affatto. Il libro si perfeziona, non si strappa. Ogni traguardo raggiunto lo arricchisce. Ogni sconfitta è lo sprone a riprovare. L\'uomo è fatto così.\n\nEMG','',0,'gA==','3qtb1u7z',1,0,'',6,0,0),(4324,1076,3,49,0,'87.7.182.118',1135867292,1,0,1,1,1,0,'','Browse Header like Win XP','Is it possibile on Xharbour and Fw ?','',0,'gA==','2s4oqyen',1,0,'',49,0,0),(4325,901,3,154,0,'151.81.2.81',1135868122,1,0,1,1,1,1,'','','Antonio,\nthank you for the info, I rem this line, \nbut for this warning:\n[code:xp1gi4hr]Warning W8017 Source\\fonts&#46;c 28&#58; Redefinition of \'CHOOSEFONT\' is not identical[/code:xp1gi4hr]\nthe line 28 is:\n[code:xp1gi4hr]#define CHOOSEFONT CHOOSEFONT[/code:xp1gi4hr]','',0,'AIA=','xp1gi4hr',1,0,'',154,0,0),(4326,1070,20,263,0,'217.222.223.34',1135868165,1,0,1,1,1,0,'','','Enrico, non hai capito il senso del mio messaggio.\nCome tutti, ho i miei obiettivi e le mie aspirazioni (non per niente sono un dirigente della pubblica amministrazione), ma a volte le vita riserva brutte sorprese ed è soprattutto in quei momenti che si vede la forza e perchè no, le capacità dell\'uomo.\n\nCiao','',0,'AIA=','23hprgsr',1,0,'',263,0,0),(4327,1075,6,362,0,'200.168.52.156',1135868487,1,0,1,1,1,1,'','','TESTCOM3.PRG, TAMBIÉN, NO MI RETORNA NADA.','',0,'AIA=','2z6vcswv',1,0,'',362,0,0),(4328,1070,20,6,0,'82.53.175.8',1135868539,1,0,1,1,1,1,'','','[quote=&quot;juanito&quot;:i7w12j9b]Enrico, non hai capito il senso del mio messaggio.\nCome tutti, ho i miei obiettivi e le mie aspirazioni (non per niente sono un dirigente della pubblica amministrazione), ma a volte le vita riserva brutte sorprese ed è soprattutto in quei momenti che si vede la forza e perchè no, le capacità dell\'uomo.[/quote:i7w12j9b]\n\nOk, ma non vedo cosa c\'entri questo con il fatto di vivere alla giornata, senza pianificazione (tue parole).\n\nEMG','',0,'gA==','i7w12j9b',1,0,'',6,0,0),(4329,1055,6,255,0,'200.67.134.233',1135869785,1,0,1,1,1,1,'','Re: Gracias Juan.','[quote=&quot;fsandoval&quot;:32yvqqsc]No ma ha llegado el correo con el Tole , juan podrias enviarmelo de nuevo por favor.\nsaludos\nfernando sandoval ruiz[/quote:32yvqqsc]\n\nLo envie a tu cuenta de hotmail, por favor revisa\nen correos no deseados.','',0,'gA==','32yvqqsc',1,0,'',255,0,0),(4330,1070,20,263,0,'217.222.223.34',1135870882,1,0,1,1,1,0,'','','Non ricordi? Mi sembrava di averti detto che sono portatore di trapianto di organo e questo, credimi, non ti cambia la vita...... te la stravolge.\nDopo cambiano tutti i valori e le priorità.\n\nGiovanni','',0,'gA==','3nootnth',1,0,'',263,0,0),(4331,1070,20,6,0,'82.53.175.8',1135871198,1,0,1,1,1,1,'','','Posso immaginarlo. Ma non credo che sia giusto aspettarsi che tutti si comportino come trapiantati o destinati tali. Sarebbe un fatalismo sterile. E penso che anche tu, dopo il primo impatto, abbia ricominciato a pianificare il futuro. Fa parte della natura umana.\n\nEMG','',0,'gA==','1uf24e5z',1,0,'',6,0,0),(4332,1070,20,263,0,'217.222.223.34',1135871594,1,0,1,1,1,0,'','','Non mi aspetto né pretendo che tutti si comportino come me, mi sembrava carino augurare a tutti di poter vivere un anno (e la vita) da protagonisti.\n\nGiovanni','',0,'gA==','1x4d6din',1,0,'',263,0,0),(4333,1054,6,110,0,'165.98.151.243',1135872371,1,0,1,1,1,1,'','prueba xbackupLite :-)','Puedes probar esta herramienta que desarrolle hace mas de un año para el concurso de XAAC \n\ndame una dir de email para enviarlo pesa mas de un mega.\n\nva con fuentes incluido\n\n\nsalu2\ncarlos vargas\n\ncualquier cosa me contactas a\n<!-- e --><a href=\"mailto:conboscocorp2@hotmail.com\">conboscocorp2@hotmail.com</a><!-- e -->','',0,'gA==','3k4794h8',1,0,'',110,0,0),(4334,1054,6,362,0,'200.168.52.156',1135873052,1,0,1,1,1,1,'','Re: prueba xbackupLite :-)','[quote=&quot;carlos vargas&quot;:10868azc]Puedes probar esta herramienta que desarrolle hace mas de un año para el concurso de XAAC \n\ndame una dir de email para enviarlo pesa mas de un mega.\n\nva con fuentes incluido\n\n\nsalu2\ncarlos vargas\n\ncualquier cosa me contactas a\n<!-- e --><a href=\"mailto:conboscocorp2@hotmail.com\">conboscocorp2@hotmail.com</a><!-- e -->[/quote:10868azc]\n\nHola Carlos Vargas... Como estás?\n\nSin problemas, soy mui grato a ti po la atención.\n\nmis correo:\n\n<!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->\n\no\n\n<!-- e --><a href=\"mailto:kapiaba@brfree.com.br\">kapiaba@brfree.com.br</a><!-- e -->\n\nGracias, y saludos','',0,'gA==','10868azc',1,0,'',362,0,0),(4335,1070,20,6,0,'82.53.175.8',1135874164,1,0,1,1,1,1,'','','Certo, e il maggior protagonista è quello che pianifica la propria vita, no? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','4dgro3p6',1,0,'',6,0,0),(4336,1059,2,124,0,'200.117.35.242',1135876239,1,0,1,1,1,0,'','','Gracias Antonio, seguramente estamos tocando algo en las clases, ya que el ctrl-v está ahora andando y ctrl-c no, lo revisamos en el programa.\n\nSaludos.\nRicardo.-','',0,'gA==','3hvv4mug',1,0,'',124,0,0),(4337,1075,6,362,0,'200.168.52.156',1135876353,1,0,1,1,1,1,'','','Antonio, Podrias ayudarme  con el uso de HBCOMM.LIB, no compreendi nada.\n\nKe devo hacer para compilar e llamar el puerto u sus datos?\n\nTienes ejemplo funcionando, o donde encuentro?','',0,'gA==','1gs3tl1c',1,0,'',362,0,0),(4338,1077,3,51,0,'80.122.88.242',1135877863,1,0,1,1,1,0,'','Google search &quot;fivewin&quot;','My tracking software reports a change in ranking:\n\nFor the first time \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechSoft.com\">www.fivetechSoft.com</a><!-- w -->  2. and 3. place\nRegards,\nOtto','',0,'gA==','a6mfd27w',1,0,'',51,0,0),(4339,1054,6,362,0,'200.168.52.156',1135877935,1,0,1,1,1,1,'','','FANTASTICO CARLOS. MUI BUENO.  UNA OBRA PRIMA! FELICITACIONES. CONGRATULATIONS. PARABIENS! \n\nMUCHAS GRACIAS, POR LA ATENCIÓN! MUI BUENO MISMO! VERY THANKS!','',0,'gA==','932u52md',1,0,'',362,0,0),(4340,1078,2,341,0,'24.232.35.79',1135878822,1,0,1,1,1,0,'','Para Antonio Consulta Arrays (PPO)','Antonio \n\nTe lo envio perdon por el error \n\n\ngracias \nDante \n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e --> \n\n\nfunction Main() \n\nlocal obmp,testdata,nI,cget,mg2,b,nkey,aFont,oFont,Afont1,xbmp[14],xnmesa[14],ntop,nleft \nlocaL XX1 \nlocal nStyle := nOr( 2147483648, 16777216 ) \n\naFont := TFont():New( \"Arial\", 0, -14,,.T.,,,,.T.,,,,,,,, ) \noFont := TFont():New( \"Arial Black\", 0, -18,,,,,,,,,,,,,, ) \naFont1 := TFont():New( \"Arial\", 0, -12,,.T.,,,,.T.,,,,,,,, ) \n\n\noDlg := TWindow():New(,,,, \"Database LAB\",,,,,,,, \"N/G\",,,, !.F., !.F., !.F., !.F., .F. ) \n\n\ndbSelectArea( \"8\" ) \ndbUseArea( .F.,, \"desig\",, if(.F. .OR. .F., !.F., NIL), .F. ) \nTestData := Array( lastrec(), 4 ) \n\n\nFOR nI := 1 TO Len(TestData) \nTestData[nI,1] = val(desig-&gt;dntop) \nTestData[nI,2] = val(desig-&gt;dnleft) \nTestData[nI,3] = desig-&gt;dbmp \nTestData[nI,4] = desig-&gt;nmesa \n\n\nTestData[nI,3] := NO := BOX := TSButton():New( TestData[nI,1], TestData[nI,2],TestData[nI,3],oDlg,,{\"MESA8C.bmp\"},{64,64},.T.,,,,,,,,,,,,,3,,,, ) \n\nIF !EOF() \ndbSkip(1) \nENDIF \nNEXT \n\n\n\noDlg:Activate( Upper(\"maximized\"), oDlg:bLClicked, oDlg:bRClicked, oDlg:bMoved, oDlg:bResized, oDlg:bPainted, oDlg:bKeyDown, oDlg:bInit,,,,,,,,,,, oDlg:bLButtonUp ) \n\nreturn nil \n\Z','',0,'','v0jppxvf',1,0,'',341,0,0),(4341,1054,6,362,0,'200.168.52.156',1135879049,1,0,1,1,1,1,'','','CARLOS... \n\nUSTED HACES REFERENCIA A UNA LIB LLAMADA ZLIB PROJECT, QUE ÉS ESTO?\n\nPUEDO COMPILAR SIN LA MISMA?\n\nPUEDES ENVIARME POR FAVOR?\n\nDISCULPA INCOMODO.\n\nMAS ÉS KE FIKE MARABILLADO CON SU PROYECTO. MUI LINDO!\n\nGRACIAS. João.','',0,'','12ou1ykr',1,0,'',362,0,0),(4342,1075,6,23,0,'80.58.44.235',1135879305,1,0,1,1,1,1,'','','Ahi va una lista de las funciones (no es de mi cosecha) pero a mi me funciona perfectamente : \n\n/*\n\nThe Harbour interface routines for the HBCOMM library.  It is not clear who\nproduced the harbour routines to interface with Harold Howe\'s TCommPort\nencapsulation.  Regardless, the Harbour interface has been modified to\nallow for more than one port to be open (MAXOPENPORTS) compiled at 20 and\nto allow for the sending and receiving of data containing NULL characters\n(Chr(0)).\n\nAs a C/C++ coder, I make a fair plumber.  Anyone who wishes to clean-up my\ncode is welcome to do so.\n\n    Ned Robertson\n    XpertCTI, LLC\n    Richmond, VA  USA\n    July, 2003\n\n*/\n\n#include \"hbapi.h\"\n#include \"hbcomm.h\"\n\nstatic int aHandles[ MAXOPENPORTS ] ;   // assumes initialized to zeros\nstatic int nHBase = 256 ;\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC(INIT_PORT) /* Nx_port(string),Nbaud(numerico),Ndata(numerico),Nparity(numerico),Nstop(numerico),nBufferSize(numerico)\n                   retorna .t. se abriu a porta */\n\n/*  cPort, nBaudrate, nDatabits, nParity, nStopbits, nBuffersize\n\nMain initiator/port opener.\n\n   cPort may take either the form \'COMn\' or the more general \'\\\\.\\COMn\'\n         The more general form is required for port numbers &gt; 9.\n\n   nParity codes: 0,1,2,3 -&gt; none, odd, mark, even\n\n   nStopBits codes: 0,1,2 -&gt; 1, 1.5, 2\n\n   Returns a \"handle\" &gt;= 256.  A return of -1 means open failed.\n\n   The handle must be used on all references to the port and is equivalent to\n   nComm used in 16 bit Clipper/Fivewin routines.  All routines take the\n   handle reference as their first argument.\n\n*/\n\n{\n\n    int i = 0, n = -1, nHandle ;\n\n    while ( n &lt; 0 &amp;&amp; i &lt; MAXOPENPORTS ) {\n\n       if ( aHandles[ i++ ] == 0 )\n\n          n = i - 1 ;\n\n    }\n\n    if ( n != -1 ) {\n\n       nHandle = nHBase++ ;\n\n       aHandles[ n ] = nHandle ;\n\n        if ( hb_init_port( n, hb_parc( 1 ) , hb_parnl( 2 ) ,\n              hb_parnl( 3 ) , hb_parnl( 4 ) , hb_parnl( 5 ) ,\n              hb_parnl( 6 ) ) )\n\n           hb_retnl( nHandle ) ;\n\n        else\n\n           hb_retnl( 0 ) ;\n\n    }\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( OUTBUFCLR )  // purge output buffer\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 ) {\n\n       hb_outbufclr( nIdx )        ;\n\n       hb_retl( TRUE ) ;\n\n       }\n\n    else\n\n       hb_retl( FALSE ) ;\n\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( ISWORKING )  // See if port is opened correctly\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n        hb_retl( hb_isworking( nIdx ) );\n\n    else\n\n       hb_retl( FALSE ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( INCHR )  // fetch hb_parnl( 2 ) chars into hb_parc( 3 )\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n//        hb_retc( hb_inchr( nIdx, hb_parnl( 1 ) ) );\n        hb_retnl( hb_inchr( nIdx, hb_parnl( 2 ), hb_parc( 3 ) ) );  // EDR*7/03\n\n    else\n\n       hb_retnl( 0 ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( OUTCHR )   // Send out characters.  Returns .t. if successful.\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n//        hb_retl( hb_outchr( hb_parc( 1 ) ) );\n        hb_retl( hb_outchr( nIdx, hb_parc( 2 ), hb_parclen( 2 ) ) );  // EDR*7/03\n\n    else\n\n       hb_retl( FALSE ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( INBUFSIZE )      // Find out how many chars are in input buffer\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n        hb_retnl( hb_inbufsize( nIdx ) );\n\n    else\n\n       hb_retnl( 0 ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( OUTBUFSIZE )     // Find out how many characters are in out buf ?\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n        hb_retnl( hb_outbufsize( nIdx ) );\n\n    else\n\n       hb_retnl( 0 ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( UNINT_PORT )     // Close port and clear handle\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 ) {\n\n       hb_unint_port( nIdx );\n\n       aHandles[ nIdx ] = 0 ;\n\n       hb_retl( TRUE ) ;\n\n       }\n\n    else\n\n       hb_retl( FALSE ) ;\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nint FindIndex ( int nH )  // Convert \"handle\" to tcomm array index\n{\n    int i = 0, n = -1 ;\n\n    while ( n &lt; 0 &amp;&amp; i &lt; MAXOPENPORTS ) {\n\n       if ( aHandles[ i++ ] == nH )\n\n          n = i - 1 ;\n\n    }\n\n//  printf( \"index= %8d\\n\", n );\n\n   return n ;\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( CHKIDX )         // For debugging - not normally used\n\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    hb_retnl( nIdx );\n\n}\n\n#pragma ENDDUMP','',0,'','2e9de2lp',1,0,'',23,0,0),(4343,1075,6,23,0,'80.58.44.235',1135879469,1,0,1,1,1,1,'','','Aqui va un ejemplo :\n\nnIdCom:=IniciarComm (\"COM1\",9600,\"n\",8,1,1024)\n// Esto escribe en el puerto (por ejemplo en un visor)\nnBytes:=OutChr(nIdCom,\"Hola mariola!\")\nTerminarComm (nIdCom)\n\n\nFunction IniciarComm(cPuerto,nVelocidad,cParidad,nDatos,nParada,nBuffer)\nLocal nComm\n\n   IF ( nComm := Init_Port( cPuerto, nVelocidad, nDatos, cParidad ,nParada, nBuffer) ) == -1\n      Msginfo (\"Error al abrir el puerto\")\n    Else\n      OutBufClr(nComm)\n   ENDIF\n\nRETURN nComm\n\nFUNCTION TerminarComm(nComm)\nRETURN UNINT_PORT(nComm)','',0,'','n2bbwrh5',1,0,'',23,0,0),(4344,1075,6,362,0,'200.168.52.156',1135881577,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:diw476so]Aqui va un ejemplo :\n\nnIdCom:=IniciarComm (\"COM1\",9600,\"n\",8,1,1024)\n// Esto escribe en el puerto (por ejemplo en un visor)\nnBytes:=OutChr(nIdCom,\"Hola mariola!\")\nTerminarComm (nIdCom)\n\n\nFunction IniciarComm(cPuerto,nVelocidad,cParidad,nDatos,nParada,nBuffer)\nLocal nComm\n\n   IF ( nComm := Init_Port( cPuerto, nVelocidad, nDatos, cParidad ,nParada, nBuffer) ) == -1\n      Msginfo (\"Error al abrir el puerto\")\n    Else\n      OutBufClr(nComm)\n   ENDIF\n\nRETURN nComm\n\nFUNCTION TerminarComm(nComm)\nRETURN UNINT_PORT(nComm)[/quote:diw476so]\n\nBuenas Angel... Gracias.\n\nDudas:\n\nMi basta incorporar la HBCOMM.LIB,  y hacer estas llamadas, ke mi funcionara perfecto??\n\nSi tienes algo ke puedas enviarme, por favor mi correo és este:\n\n<!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->\n\ndesde ya muchas gracias, y disculpe el incomodo, és ke estoy iniciando.\n\nDisculpe mi portunhol.','',0,'gA==','diw476so',1,0,'',362,0,0),(4345,1079,1,161,0,'81.165.130.236',1135884557,1,0,1,1,1,0,'','Launching program from excel with parameters','Hello,\n\nIt\'s not really a FiveWin problem, but I want to call my program from within excel with parameters. If I use HYPERLINK() in excel I can call my program. The only problem is then I can\'t add some parameters.\nThe function [b:3535xi6v]=HYPERLINK(\"c:\\tpsdoc\\tpsdoc.exe\";\"LS1921\") [/b:3535xi6v]in excel launch my program but when I try with [b:3535xi6v]=HYPERLINK(\"c:\\tpsdoc\\tpsdoc.exe /project:BASF-F550\";\"LS1921\") [/b:3535xi6v]I get an error in excel \'Internet server of proxy not found.\n\nDoes anyone have some experience with this?\n\nRegards,\nMarc','',0,'QA==','3535xi6v',1,0,'',161,0,0),(4346,1080,6,228,0,'201.245.222.85',1135886638,1,0,1,1,1,1,'','Creo que hice mal la pregunta','Como hago para levantar un archivo plano separado por comas ó por punto y coma.\n\nEjemplo:\n\n012005;CAMPAÑA-012005\n022005;CAMPAÑA-022005\n032005;CAMPAÑA-032005\n042005;CAMPAÑA-042005\n\nlos campos son codigo campaña y nombre campaña y para este caso estan separados por punto y coma.\n\nAlguien sabe como puedo hacer esto? ó Existe alguna funcion que lo haga.\n\nEstos archivos plano me los arroja mysql\n\nDe antemano gracias\nFWH27','',0,'QA==','v9d6se98',1,0,'',228,0,0),(4347,1037,19,228,0,'201.245.222.85',1135886719,1,0,1,1,1,1,'','Felicidades','No te podemos decir nada mas si no FELICIDADES  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','nhnp5ag6',1,0,'',228,0,0),(4348,1063,6,97,0,'200.76.32.121',1135890833,1,0,1,1,1,1,'','XUNTRANSLATE','Gracias Jose luis, estoy compilando la clase tole de jose g. y al comiplarla con xharbour me manda este : Invalida name follows #XUNTRANSLATE\n\ny si genero la aplicacion y Hbole, HB_Tole reference , que indica que se esta llamando a la funcion y no la encuentra.\n\nya baje el xharbour.\n\nsaludos y gracias.\nfernando sandoval ruiz','',0,'QA==','mafxyatn',1,0,'',97,0,0),(4349,1054,6,110,0,'165.98.151.243',1135891386,1,0,1,1,1,1,'','','es la hbzip, y esta incluida en xharbour.\nen cuanto al programa espero que te sirva <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'QA==','1u8lb14m',1,0,'',110,0,0),(4350,1080,6,138,0,'201.128.111.75',1135891431,1,0,1,1,1,1,'','','USE dbf\nAPPEND FROM Arch.txt DELIMITED WITH ;','',0,'QA==','1z30h3eq',1,0,'',138,0,0),(4351,1054,6,110,0,'165.98.151.243',1135891491,1,0,1,1,1,1,'','','...ups...\n\nvale aclarar que xbackuplite es una obra de dos programadores, de kleyber y su servidor <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> credito a ambos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'QA==','10z7anie',1,0,'',110,0,0),(4352,1037,19,110,0,'165.98.151.243',1135891897,1,0,1,1,1,1,'','','Juan carlos, \nFelicitaciones.\n\n\nexcelente regalo navideño. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','3knsaes5',1,0,'',110,0,0),(4353,1081,3,69,0,'65.92.146.148',1135892738,1,0,1,1,1,0,'','To James Bott - Re: UltraEdit','Hi James,\n\nI hope you are the right person for this.....\n\nI am setting up my new computer  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  and am reinstalling UltraEdit.\n\nIf I remember correctly, you had something that was added to allow UltraEdit to list the FiveWin functions.\n\nCould you please send me this information.\n\nIf you were not the one who had this then please ignore this post.\n\nThanks,\nJeff','',0,'QA==','g832jqzs',1,0,'',69,0,0),(4354,1072,6,97,0,'200.76.32.121',1135897180,1,0,1,1,1,1,'','A que base de datos deseas pasarlo','A que tipo de BD quieres subirlo, por lo que veo no es dbf.','',0,'QA==','158zc6ar',1,0,'',97,0,0),(4355,999,1,138,0,'201.128.111.75',1135905625,1,0,1,1,1,1,'','','You need Advantage Database Server along with Adavantage Internet server, try these:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">www.google.d2g.com/ads/demos/</a><!-- w -->','',0,'QA==','z7qpzsr5',1,0,'',138,0,0),(4356,1082,6,131,0,'194.179.55.36',1135926345,1,0,1,1,1,0,'','ancho de columnas de xbrowse a la excel','Hola:\nEn excel cuando haces doble click en la separación entre dos columnas en la parte de la cabecera,  el ancho de la columna de la izquierda se ajusta automáticamente al valor más ancho que hay en dicha columna. \n\n¿ Alguien sabe como hacer esto con xbrowse ?\n\nSaludos,\nJosé Luis','',0,'QA==','1e1bmx6c',1,0,'',131,0,0),(4357,1033,3,372,0,'83.118.100.14',1135926930,1,0,1,1,1,0,'','','Hi!\n\ni\'ve just upgraded to FWH27 and xHarbour, but still i\'m getting the \'501 bad address syntax\' error.\n\nIt seems i\'m not using the correct string for multiple recipients correctly, because for only one recipient it works.\n\nso what\'s wrong with the code below?\n\ncCustomer:=\"test@test.nl;test1@test.nl\"\naadd(aCustomer,cCustomer)\n\n  DEFINE MAIL oMail ;\n    SUBJECT cSubject ;\n    TEXT    cMessage\n    oMail:aRecipients:=aCustomer\n  ACTIVATE MAIL oMail\n\nBest regards,\n\nJohn.','',0,'QA==','2p1m7xy7',1,0,'',372,0,0),(4358,1081,3,2,0,'80.58.2.107',1135927877,1,0,1,1,1,1,'','','Jeff,\n\nYou may download wordfile.txt from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b2c35955/wordfile.zip.html\">http://hyperupload.com/download/b2c3595 ... e.zip.html</a><!-- m -->\nand replace the one that comes with UltraEdit.\n\nTalking about UE, some days ago I discovered UEStudio, also from UE developers, which it is much more powerfull than UE, as it is a fully configurable IDE, with project manager, source code editor and resources editor too! I have already implemented the right settings to build FWH projects from it. It works really fine.\n\nWe plan to upload some videos explaining how to use UEStudio with Harbour and FWH. It is superb! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','15tsy8le',1,1135932859,'',2,1,0),(4359,1081,3,2,0,'80.58.2.107',1135928289,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1wjssqgx][img:1wjssqgx]http&#58;//img513&#46;imageshack&#46;us/img513/2425/uestudio10kh&#46;jpg[/img:1wjssqgx][/url:1wjssqgx]\n[url=http&#58;//imageshack&#46;us:1wjssqgx][img:1wjssqgx]http&#58;//img513&#46;imageshack&#46;us/img513/6752/uestudio24sg&#46;jpg[/img:1wjssqgx][/url:1wjssqgx]','',0,'GA==','1wjssqgx',1,0,'',2,0,0),(4360,1081,3,2,0,'80.58.2.107',1135928837,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3pl1a81o][img:3pl1a81o]http&#58;//img516&#46;imageshack&#46;us/img516/4903/uestudio35zc&#46;jpg[/img:3pl1a81o][/url:3pl1a81o]\n[url=http&#58;//imageshack&#46;us:3pl1a81o][img:3pl1a81o]http&#58;//img516&#46;imageshack&#46;us/img516/5165/uestudio40qm&#46;jpg[/img:3pl1a81o][/url:3pl1a81o]','',0,'GA==','3pl1a81o',1,0,'',2,0,0),(4361,1083,6,2,0,'80.58.2.107',1135929157,1,0,1,1,1,1,'','Presentando UEStudio','Hace unos dias descubrí un nuevo producto extraordinario llamado UEStudio, desarrollado por el mismo equipo del UltraEdit. Aquí teneis la información:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ultraedit.com/index.php?name=Content&amp;pa=showpage&amp;pid=115\">http://www.ultraedit.com/index.php?name ... ge&amp;pid=115</a><!-- m -->\n\nEs un IDE totalmente configurable, muy sencillo de usar, que incluye manejador de proyectos, editor de código fuente y editor de recursos incluido! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nYa lo he configurado para construir aplicaciones con FWH y es realmente cómodo y muy productivo. En unos dias tenemos previsto publicar unos videos para que veais como se usa este IDE con [x]Harbour y FWH.','',0,'','8hxr9w8d',1,1135930398,'',2,1,0),(4362,1083,6,2,0,'80.58.2.107',1135929271,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2uc2rnj2][img:2uc2rnj2]http&#58;//img513&#46;imageshack&#46;us/img513/2425/uestudio10kh&#46;jpg[/img:2uc2rnj2][/url:2uc2rnj2]\n[url=http&#58;//imageshack&#46;us:2uc2rnj2][img:2uc2rnj2]http&#58;//img513&#46;imageshack&#46;us/img513/6752/uestudio24sg&#46;jpg[/img:2uc2rnj2][/url:2uc2rnj2]','',0,'GA==','2uc2rnj2',1,0,'',2,0,0),(4363,1083,6,2,0,'80.58.2.107',1135929524,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2krael0w][img:2krael0w]http&#58;//img516&#46;imageshack&#46;us/img516/4903/uestudio35zc&#46;jpg[/img:2krael0w][/url:2krael0w]\n[url=http&#58;//imageshack&#46;us:2krael0w][img:2krael0w]http&#58;//img516&#46;imageshack&#46;us/img516/5165/uestudio40qm&#46;jpg[/img:2krael0w][/url:2krael0w]','',0,'GA==','2krael0w',1,0,'',2,0,0),(4364,1083,6,2,0,'80.58.2.107',1135929929,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3aglds69][img:3aglds69]http&#58;//img517&#46;imageshack&#46;us/img517/7545/uestudio53sk&#46;jpg[/img:3aglds69][/url:3aglds69]','',0,'GA==','3aglds69',1,0,'',2,0,0),(4365,1081,3,2,0,'80.58.2.107',1135929982,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1wpdqbkw][img:1wpdqbkw]http&#58;//img517&#46;imageshack&#46;us/img517/7545/uestudio53sk&#46;jpg[/img:1wpdqbkw][/url:1wpdqbkw]','',0,'GA==','1wpdqbkw',1,0,'',2,0,0),(4366,1081,3,2,0,'80.58.2.107',1135930172,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3ah7k648][img:3ah7k648]http&#58;//img516&#46;imageshack&#46;us/img516/4413/uestudio65jp&#46;jpg[/img:3ah7k648][/url:3ah7k648]','',0,'GA==','3ah7k648',1,0,'',2,0,0),(4367,1083,6,2,0,'80.58.2.107',1135930248,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:r7yga1xo][img:r7yga1xo]http&#58;//img516&#46;imageshack&#46;us/img516/4413/uestudio65jp&#46;jpg[/img:r7yga1xo][/url:r7yga1xo]','',0,'GA==','r7yga1xo',1,0,'',2,0,0),(4368,1077,3,2,0,'80.58.2.107',1135931519,1,0,1,1,1,1,'','','Otto,\n\nThanks for the info <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','s33vn6tp',1,0,'',2,0,0),(4369,901,3,2,0,'80.58.2.107',1135931591,1,0,1,1,1,1,'','','Ugo,\n\nIt is a warning you can safely ignore.','',0,'GA==','1z2729m8',1,0,'',2,0,0),(4370,1063,6,123,0,'81.32.175.43',1135931678,1,0,1,1,1,0,'','','Fernando,\n\nSi usas (x)Harbour no necesitas nada más.  Ya trae la clase tOleAuto (la original de JFG + Ron Pinkas).\n\nSaludos,\nJosé Luis Capel','',0,'GA==','mhyd100f',1,0,'',123,0,0),(4371,1076,3,2,0,'80.58.2.107',1135932173,1,0,1,1,1,1,'','','Silvio,\n\nIf you use XP themes then you see the header painted, but still it is not fully implemented as a true header control.','',0,'GA==','1ewtscbg',1,0,'',2,0,0),(4372,1078,2,2,0,'80.58.2.107',1135932410,1,0,1,1,1,1,'','','Dante,\n\nPor lo que se ve, esta línea preprocesada está mal:\n\nTestData[nI,3] := NO := BOX := TSButton():New( TestData[nI,1], TestData[nI,2],TestData[nI,3],oDlg,,{\"MESA8C.bmp\"},{64,64},.T.,,,,,,,,,,,,,3,,,, ) \n\nFíjate en NO y en BOX.','',0,'','2w8qjwzs',1,0,'',2,0,0),(4373,1084,3,2,0,'80.58.2.107',1135937537,1,0,1,1,1,1,'','FiveTech Software company 2005 bussiness report','Dear xbase language friends,\n\nWe are proud to inform that FiveTech Software company has performed a total growth of 24,3% on the total annual sales on 2005, compared with previous year 2004 results.\n\nFWH has becomed the most widely used GUI for Harbour and xHarbour, to deliver 32 bits Windows professional applications, with the easy of use of FiveWin, its open architecture and its outstanding flexibility. Harbour and xHarbour are already the most popular xbase compilers. FWH has been, one more year, our best sold product.\n\nOn 2005, FiveTech Software has released the new FiveWin for Pocket PC product which has result in a sales record, as there is no other similar tool available to deliver xbase applications for the Windows Mobile operating system. New customers from Microsoft FoxPro have arrived to Harbour thanks to FiveWin for Pocket PC.\n\nAlong this year we have kept the same prices as 2004 year, as FiveTech Software is focused on getting the widest users base. Our customers are fully satisfied with the results, and this fact is bringing us more new customers. We literally have customers from all over the world.\n\nOur new tech support forums have proved to be an excellent way to provide high qualified and fast tech support. More than 4000 post messages in around 3 months, and close to 400 registered users and growing.\n\nWe want to thank all FiveTech Software products users for helping us to\nimprove our quality with a highly valuable feedback and support. Happy new year 2006 to all FiveWinners and xbase language users!\n\nFiveTech Software\nAntonio Linares - CEO\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','2b4qstfw',1,0,'',2,0,0),(4374,1085,6,2,0,'80.58.2.107',1135938723,1,0,1,1,1,1,'','FiveTech Software resultados financieros del año 2005','Estimados amigos del lenguaje xbase,\n\nEstamos orgullosos de informaros que la empresa FiveTech Software ha realizado un crecimiento total del 24,3 % en las ventas anuales, comparado con los resultados del año 2004.\n\nFWH se ha consolidado como el GUI más ampliamente utilizado por los usarios de Harbour y xHarbour, para desarrollar aplicaciones profesionales de 32 bits para Windows, gracias a la facilidad de uso de FiveWin, a su arquitectura abierta y a su gran flexibilidad. Harbour y xHarbour son ya los compiladores xbase más populares. FWH ha sido, un año más, nuestro producto más vendido.\n\nEn el año 2005, FiveTech Software ha lanzado el nuevo producto FiveWin para Pocket PC que ha resultado en un record de ventas, puesto que no hay otra herramienta similar para desarrollar aplicaciones xbase para el sistema operativo Windows Mobile. Clientes nuevos provinientes de Microsoft FoxPro han llegado a Harbour gracias a FiveWin para Pocket PC.\n\nA lo largo de este año hemos mantenido los mismos precios que en el año 2004, puesto que el objetivo de FiveTech Software es conseguir la más amplia base de usuarios. Nuestros usuarios están plenamente satisfechos y esto hace que nos lleguen nuevos clientes. Literalmente tenemos clientes en todo el mundo.\n\nNuestro nuevo foro de soporte técnico ha demostrado ser una excelente forma de proporcionar soporte técnico de alta calidad y rápido. Más de 4000 mensajes publicados en apenas 3 meses, y cerca de 400 usuarios registrados en él y creciendo.\n\nQueremos agradecer a todos los usuarios de los productos de FiveTech Software su ayuda para mejorar nuestra calidad y su inestimable información y soporte. Feliz año 2006 a todos los FiveWinners y usuarios de lenguajes xbase!\n\nFiveTech Software\nAntonio Linares - CEO\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','3hhbkmec',1,0,'',2,0,0),(4375,1086,3,382,0,'194.77.253.245',1135938848,1,0,1,1,1,0,'','missing PcRepos.Lib','I have installed FwH 2.7 and I get linking errors _RegComp, _RegFree,  _RegExec, _Pcre_Free with MSVC / xHarbour. \n\nThere must be a lib PcRepos.Lib, but I cannot find this file.','',0,'','17uz8l2p',1,0,'',382,0,0),(4376,1086,3,2,0,'80.58.2.107',1135939429,1,0,1,1,1,1,'','','Here you have it:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/651d8141/pcrepos.zip.html\">http://hyperupload.com/download/651d814 ... s.zip.html</a><!-- m -->','',0,'','2xoysssf',1,0,'',2,0,0),(4377,1085,6,362,0,'200.168.52.156',1135940261,1,0,1,1,1,1,'','','Congratulations Antonio.\n\nUsted és Increible.  Parabiéns. Saludos.','',0,'','1dqfq7j5',1,0,'',362,0,0),(4378,1054,6,362,0,'200.168.52.156',1135940395,1,0,1,1,1,1,'','','[quote=&quot;carlos vargas&quot;:1sy5huf5]...ups...\n\nvale aclarar que xbackuplite es una obra de dos programadores, de kleyber y su servidor <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> credito a ambos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas[/quote:1sy5huf5]\n\nCarlos, cual Kleyber?? Kleyber Derick del Brasil?\n\nRealmente, mui bueno XBACKUPLITE.  Muchas gracias a ti.','',0,'gA==','1sy5huf5',1,0,'',362,0,0),(4379,1087,1,161,0,'81.165.130.236',1135942278,1,0,1,1,1,0,'','ole connection to FW program','Hello,\n\nIs there a way that an other program can connect to a FW-program (like OLE).\nI want an other program call a function in my FW program.\n\nRegards,\nMarc','',0,'gA==','37r166dv',1,0,'',161,0,0),(4380,1086,3,382,0,'80.140.205.246',1135942948,1,0,1,1,1,0,'','','Hello Antonio,\nthank you very much an a happy new year\nfp','',0,'gA==','33peoo7d',1,0,'',382,0,0),(4381,1085,6,168,0,'201.248.22.29',1135948934,1,0,1,1,1,0,'','','Antonio, mis mas sinceras felicitaciones por estos resultados y que sigan los exitos basados en el trabajo constante..!','',0,'gA==','6z93ywpw',1,0,'',168,0,0),(4382,1085,6,39,0,'216.155.88.117',1135951421,1,0,1,1,1,0,'','','Felicitaciones y el deseo de que el 2006 sea aun mejor.\n\n\nAtte,\nLautaro Moreira <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','23e4rmab',1,0,'',39,0,0),(4383,1087,1,2,0,'80.58.2.107',1135951855,1,0,1,1,1,1,'','','Marc,\n\nYes, you can do it. Though it is much easier if you do it with a Harbour and FWH application. I recommend you to upgrade to 32 bits to implement it.','',0,'gA==','1nd7vhsm',1,0,'',2,0,0),(4384,1075,6,362,0,'200.168.52.156',1135952575,1,0,1,1,1,1,'','','//-&gt; Amigos FiveWinners, Necesito Ayuda/Help:\n\n#Include \"Fivewin.ch\"\n\nSTATIC NIDCOM, NBYTES, NBUFFER\n\nFunction Main()\n\n    Local oDlg\n    Local oGet\n    Local cCodigo\n\n    nIdCom:=IniciarComm (\"COM1\",9600,\"n\",8,1,1024)\n \n    // nBytes:=OutChr(nIdCom,\"Hola mariola!\")\n\n    DEFINE DIALOG oDlg TITLE \"Usando a Porta Serial no xHarbour\"\n \n    @ 2,  6 GET oGet VAR cCodigo OF oDlg ;\n            SIZE 40, 12                  ;\n            VALID !Empty( cCodigo )\n\n    @ 3,  7 BUTTON \"&amp;Buscar\"   OF oDlg  ;\n            SIZE 30, 12                 ;\n            ACTION( Pega_Codigo( cCodigo ) )\n\n    @ 3, 16 BUTTON \"&amp;Saida\"  OF oDlg ;\n            SIZE 30, 12              ;\n            ACTION oDlg:End() CANCEL\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    TerminarComm (nIdCom)\n\nReturn Nil\n\n//-&gt; Pegar el Codigo del Producto Para Grabar en el Banco de las Ventas\nFunction Pega_Codigo( cCodigo )\n\n    USE ESTOQUE INDEX ESTOQUE ALIAS ESTOQUE\n\n    SEEK( AllTrim( nBuffer ) )  //-&gt; Kero Pegar o contenido del Buffer.\n\n    ? cCodigo\n    ? nBuffer\n\n    //-&gt; Grabar el Resultado.\n\nReturn Nil\n\nFunction IniciarComm(cPuerto,nVelocidad,cParidad,nDatos,nParada,nBuffer)\n \n    Local nComm\n\n    IF ( nComm := Init_Port( cPuerto, nVelocidad, nDatos, cParidad ,nParada, nBuffer) ) == -1\n        Msginfo (\"Erro ao abrir a porta serial\")\n     Else\n        OutBufClr(nComm)\n    ENDIF\n\nRETURN nComm \n\nFUNCTION TerminarComm(nComm) \nRETURN UNINT_PORT(nComm)\n\n/*\nMi configuracion:\n\nFIVEWIN 2.7 November 2005\nXHABROUR 0.99.50\nBORLAND BCC++ 5.5.1\n*/\n\n//-&gt; Al Compilar, mi retorna:\n\n//-&gt; UNRESOLVED EXTERNAL \'_HB_STACK_\' REFERENCED FROM C:\\XHARBOUR\\LIB\\HBCOMM.LIB\n\nKE HACER??','',0,'gA==','c07jvhz4',1,0,'',362,0,0),(4385,1075,6,23,0,'80.58.44.235',1135953421,1,0,1,1,1,1,'','','Bufff. No se si habrá alguna diferencia con xharbour.\nYo uso harbour y la libreria me va perfecta.\nIntenta conseguir el hbcomm adecuado.','',0,'gA==','eyg7ajue',1,0,'',23,0,0),(4386,1075,6,362,0,'200.168.52.156',1135954901,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:3k8ev6t8]Bufff. No se si habrá alguna diferencia con xharbour.\nYo uso harbour y la libreria me va perfecta.\nIntenta conseguir el hbcomm adecuado.[/quote:3k8ev6t8]\n\n\nDONDE ANGEL?\n\nMi version és de: 27/05/2002\n\nEl código está correcto Angel?\n\nUsted podrias enviarme a HBCOMM.LIB mas actual??\n\nComo dar lectura na porta? pegar los datos? o contenido en el Buffer.','',0,'gA==','3k8ev6t8',1,0,'',362,0,0),(4387,1088,3,2,0,'83.37.60.250',1135957580,1,0,1,1,1,1,'','Introducing UEStudio: a professional IDE for Harbour and FWH','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=4358&amp;highlight=#4358\">http://fivetechsoft.com/forums/viewtopi ... ight=#4358</a><!-- m -->','',0,'gA==','15zenjyy',1,0,'',2,0,0),(4388,1089,4,3,0,'82.65.134.68',1135960442,1,0,1,1,1,0,'','Dialogs and return Key','Antonio,\n\nFWPPC behaves differently than fwh with dialogs and return key. \n\nHitting return key in a dialog will go to next control and not execute the default pushbutton (ie ok button). Is this normal fwppc behaviour ?\n\nThanks\n\nRichard','',0,'gA==','3rpiolh9',1,0,'',3,0,0),(4389,1090,4,3,0,'82.65.134.68',1135960900,1,0,1,1,1,0,'','richedit.h and pelles c resource editor','Antonio\n\nWhen you have a dialog set with Pelles c it generates \n#include &lt;richedit.h&gt;\n\nThis line prevents a dialog of showing.\n\nRemoving the line will allow a dialog to show normally. \n\nRichard','',0,'gA==','17ho3czu',1,0,'',3,0,0),(4390,1083,6,61,0,'200.40.238.138',1135962088,1,0,1,1,1,0,'','ESPECTACULAR Antonio....','Maestro:\n\nYo trabajo con UEstudio.\nY no he logrado configurarlo correctamente, agradecería\nme ayudes a hacerlo.\n\nSeria posible ver tus archivops de configuración?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','ie6via9v',1,0,'',61,0,0),(4391,1089,4,3,0,'82.65.134.68',1135962499,1,0,1,1,1,0,'','Re: Dialogs and return Key','[quote=&quot;Richard Chidiak&quot;:2gv8bvox]Antonio,\n\nFWPPC behaves differently than fwh with dialogs and return key. \n\nHitting return key in a dialog will go to next control and not execute the default pushbutton (ie ok button). Is this normal fwppc behaviour ?\n\nThanks\n\nRichard[/quote:2gv8bvox]\n\nOops Sorry this is just on Emulator ! \n\nI have to get used to test more on pocket than on emulator ! \n\nSorry for the message','',0,'gA==','2gv8bvox',1,0,'',3,0,0),(4392,1091,6,378,0,'80.58.54.235',1135962946,1,0,1,1,1,0,'','duda de get: ¿Cómo puedo saber el get que se está editando?','Hola a todos:\n\nNecesito saber lo siguiente:\n\n¿Cómo puedo saber el get que se está editando?.\n\n¿Cómo le puedo enviar una cadena de caracteres?.\n\nMuchas gracias. Un saludom\n\nPablo','',0,'gA==','2we6t9om',1,0,'',378,0,0),(4393,1092,4,3,0,'82.65.134.68',1135964448,1,0,1,1,1,0,'','COLORS.CH','Antonio,\n\nCan you please add # include \"colors.ch\" in fwce.ch file , this way we do not have to add colors.ch to all programs (just like in fivewin.ch)\n\nThanks\n\nRichard','',0,'gA==','fgllnvw1',1,0,'',3,0,0),(4394,1088,3,35,0,'167.7.140.254',1135964511,1,0,1,1,1,0,'','','Antonio\n\nVery kewl IDE .. been looking for a good resource editor to replace Borland\'s 16 bit Workshop. Nice to see it integrated into a package also with a project builder ... \n\nI did not see a link to the creator of the software .. is this a commercial IDE for re-sale ??  \n\nThanks\nRick Lipkin\nSC Dept of HEalth, USA','',0,'gA==','25ufszzl',1,0,'',35,0,0),(4395,1093,22,261,0,'63.197.46.139',1135965127,1,0,1,1,1,1,'','Web Services','A new web service class which will not require the need of utilizing MS Web Service Tools 3.x.  Pocket PC, and Fivewin for Harbour.\n\nThanks,','',0,'gA==','y231nj9o',1,0,'',261,0,0),(4396,1086,3,382,0,'80.140.213.9',1135968098,1,0,1,1,1,0,'','','Hello Antonio,\n\nI get an error \"Fatal Error LNK 1136, ungültige oder beschädigte Datei\" , when linking the Pcrepos.Lib, you have send to me. I think, that means \"File invalid oder demaged\".\n\nI use xHarbour and MSVC98.\n\nRegards\nFrank','',0,'gA==','1cfjt3lr',1,0,'',382,0,0),(4397,1083,6,2,0,'80.58.2.107',1135968845,1,0,1,1,1,1,'','','Ruben,\n\nAquí explico los pasos a seguir así como los ficheros de configuración a usar:\n\n1. Cambia el fichero wordfile.txt que te instala el UEStudio por este (descomprime el ZIP!): <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b2c35945/wordfile.zip.html\">http://hyperupload.com/download/b2c3594 ... e.zip.html</a><!-- m -->\n\n2. En el directorio configs del UEStudio, crea el directorio Harbour y dentro copia este fichero \"FWH window\" (descomprime el ZIP!). Edita ese fichero y cambia el valor de FWH y de CPATH por tus valores:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/5026c236/FWH_window.zip.html\">http://hyperupload.com/download/5026c23 ... w.zip.html</a><!-- m -->\n\n3. En el directorio projects del UEStudio, crea el directorio Harbour y dentro copia este fichero \"FWH window wiz\" (descomprime el ZIP!):\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/4d5f3588/FWH_window_wiz.zip.html\">http://hyperupload.com/download/4d5f358 ... z.zip.html</a><!-- m -->\n\nCon eso ya podrías ir a la opción Project-NewProject/Workspace-Creating projects using templates, seleccionar Harbour y FWH window como tipo de proyecto y te debe crear todo automaticamente. Si luego le das al botón build all y luego al run app, todo debería funcionar <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nDime si lo consigues! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1bn2tapy',1,0,'',2,0,0),(4398,1092,4,2,0,'80.58.2.107',1135968944,1,0,1,1,1,1,'','','Richard,\n\nOk, added. Thanks.','',0,'gA==','2rxfby8k',1,0,'',2,0,0),(4399,1089,4,2,0,'80.58.2.107',1135969018,1,0,1,1,1,1,'','','Richard,\n\nSo is it working ok on the real Pocket PC ? Thanks.','',0,'gA==','jyfse17z',1,0,'',2,0,0),(4400,1091,6,2,0,'80.58.2.107',1135969771,1,0,1,1,1,1,'','','Pablo,\n\nAScan( oDlg:aControls, { | o | o:lActive } )\n\noGet:VarPut( &lt;uNewValue&gt; )\noGet:Refresh()','',0,'gA==','5u8lhpau',1,0,'',2,0,0),(4401,1081,3,303,0,'68.7.28.54',1135969873,1,0,1,1,1,0,'','','The file you need is available on my website here:\n\n[url:vwqsfh5u]http&#58;//ourworld&#46;compuserve&#46;com/homepages/jbott/program&#46;htm[/url:vwqsfh5u]\n\nJames','',0,'EA==','vwqsfh5u',1,0,'',303,0,0),(4402,1054,6,110,0,'165.98.151.243',1135969909,1,0,1,1,1,1,'','','el mismo, desde aca un saludo a mi amigo kleyber <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','17giu8c4',1,0,'',110,0,0),(4403,1081,3,2,0,'80.58.2.107',1135970289,1,0,1,1,1,1,'','','UEStudio settings:\n\nhere we explain the steps to do and the required files to properly set UEStudio:\n\n1. Change UEStudio wordfile.txt installed by UEStudio with this one: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b2c35945/wordfile.zip.html\">http://hyperupload.com/download/b2c3594 ... e.zip.html</a><!-- m -->\n\n2. At UEStudio configs directory, build the Harbour directory and copy this file there. Edit this file and change FWH and CPATH with your own paths values: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/5026c236/FWH_window.zip.html\">http://hyperupload.com/download/5026c23 ... w.zip.html</a><!-- m -->\n\n3. At UEStudio projects directory, build a Harbour directory and copy this file into it:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/4d5f3588/FWH_window_wiz.zip.html\">http://hyperupload.com/download/4d5f358 ... z.zip.html</a><!-- m -->\n\nNow you may be able to select \"Project-NewProject/Workspace-Creating projects using templates\", select Harbour and FWH window as the kind of application and everything will be created abutomatically. The click on build app and run app, it should work <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPlease let us know if you get it working! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','3md49nkc',1,0,'',2,0,0),(4404,1033,3,303,0,'68.7.28.54',1135970300,1,0,1,1,1,0,'','','[quote:2arlyc37]It seems i\'m not using the correct string for multiple recipients correctly, because for only one recipient it works. [/quote:2arlyc37]\n\nAs I mentioned in a previous message, that syntax works for me. You could also try a comma or space delimiter instead. Also, try surrounding the address with &lt;&gt;.\n\nJames','',0,'gA==','2arlyc37',1,0,'',303,0,0),(4405,1086,3,2,0,'80.58.2.107',1135970419,1,0,1,1,1,1,'','','Frank,\n\nOps, we provided you the Borland one.\n\nHere you have the Microsoft one:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/651d8152/pcrepos.zip.html\">http://hyperupload.com/download/651d815 ... s.zip.html</a><!-- m -->','',0,'gA==','1pu5xgdm',1,0,'',2,0,0),(4406,1082,6,2,0,'80.58.2.107',1135970523,1,0,1,1,1,1,'','','Jose Luis,\n\nNo parece un cambio muy complicado a implementar en xbrowse.','',0,'gA==','12a8gnsf',1,0,'',2,0,0),(4407,1054,6,362,0,'200.168.52.156',1135971002,1,0,1,1,1,1,'','','KLEYBER DERICK, EXCELENTE PERSONA. MI AMIGO.','',0,'gA==','679frgkd',1,0,'',362,0,0),(4408,1091,6,123,0,'80.58.37.235',1135971920,1,0,1,1,1,0,'','','Antonio,\n\nSi me lo permites...\n\n[code:1urbqtez]AScan&#40; oDlg&#58;aControls, &#123; | o | o&#58;lActive &#125; &#41; [/code:1urbqtez]\n\nYo haría...\n\n[code:1urbqtez]AScan&#40; oDlg&#58;aControls, &#123; | o | o&#58;lActive &#46;AND&#46; o&#58;Classname&#40;&#41;$&quot;TGET&quot;&#125; &#41; [/code:1urbqtez]\n\nDado que aControls puede ser cualquier control del diálogo (no solo GETS).\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','1urbqtez',1,0,'',123,0,0),(4409,1091,6,2,0,'80.58.2.107',1135973366,1,0,1,1,1,1,'','','Cierto <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2pc8iwu3',1,0,'',2,0,0),(4410,1070,20,1,0,'151.81.1.62',1135974200,1,0,1,1,1,0,'','Re: Auguri di Buon Anno a tutti !!','[quote=&quot;Marco Turco&quot;:1ynsxx6h]Con l\'occasione approfitto per ringraziare anche tutti i programmatori che hanno partecipato attivamente al forum condividendo le loro esperienze ed un ringraziamento in particolare ad EMG sempre molto disponibile ed utile nei suoi interventi.[/quote:1ynsxx6h]\n\nCondivido e sottoscrivo...\nTanti auguri a tutti.\nUgo','',0,'gA==','1ynsxx6h',1,0,'',1,0,0),(4411,1094,20,154,0,'151.81.1.62',1135974507,1,0,1,1,1,1,'','COMBOBOX','Ho dei combobox con degli elenchi abbastanza lunghi, vorrei sapere se esiste qualche modifica per cercare l\'item digitando più caratteri. \nIl combo std al carattere successivo digitato sposta l\'indice sul primo che soddisfa il secondo carattere.\n\nGrazie per le risposte.','',0,'gA==','2aibjllf',1,0,'',154,0,0),(4412,1083,6,75,0,'83.52.14.235',1135975577,1,0,1,1,1,0,'','Uestudio','Cuando edito los recursos del RC generado con el WorkShop me sucede que las ñ las cámbia por un código númerico larguísimo, las vocales con acento también y los controles para los browse no se pintan y además al guardar cualquier modificación del dialogo sea del control que sea elimina los del Browse.\n\n¿Hay alguna solución?\n <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nFeliz Año','',0,'gA==','g96avked',1,0,'',75,0,0),(4413,1033,3,110,0,'165.98.151.243',1135976388,1,0,1,1,1,1,'','','this is a alternative, using a Dll RkMail.dll for send email\n\n[url:336bvp6m]http&#58;//202&#46;102&#46;233&#46;250/b2000/ASP/component/email/rkMail&#46;zip[/url:336bvp6m]\n\n\n(register the dll using -&gt; c:\\&gt;regsvr32 rkmail.dll)\n\n[code:336bvp6m]\n/*creacion de variables locales*/\nLOCAL oSMTP\nLOCAL cTexto\nLOCAL nRecord\n\n/*creacion de objeto*/\noSMTP = CREATEOBJECT&#40;\'rkMail&#46;SMTP\'&#41;\n\n/*servidor SMTP de corporacion don bosco*/\noSMTP&#46;AddSMTPHost&#40;&quot;mail&#46;cablenet&#46;com&#46;ni&quot;&#41;\n\n/*datos del remitente*/\noSMTP&#46;FromAddress = &quot;recepcion@donboscocorp&#46;com&quot;\noSMTP&#46;FromName 	  = &quot;Recepcion de Corporacion Don Bosco&quot;\n\n/*asunto del correo*/\noSMTP&#46;Subject 	  = &quot;Registro de llamadas del &quot; + dtoc&#40;thisform&#46;fecha&#46;Value&#41;\n\n/*datos del receptor principal*/\noSMTP&#46;AddRecipient &#40;&quot;Guillermo Castillo - Gerencia&quot;, &quot;gcm@donboscocorp&#46;com&quot;&#41;\n\n/*datos de receptores secundarios del correo*/\noSMTP&#46;AddBCC &#40;&quot;Margarita Rodriguez&quot;, &quot;atencion-a-cliente@donboscocorp&#46;com&quot;&#41;\noSMTP&#46;AddBCC &#40;&quot;Carlos Vargas&quot;, &quot;cvargaz@donboscocorp&#46;com&quot;&#41;\n\n*acumulacion de registro de llamdas\ncTexto = &quot;&quot;\n\ncTexto = cTexto + 	&quot;Hora&#46;&#46;&#46;&#58;&quot; + time&#40;&#41; + CHR&#40;13&#41;+;\n         			&quot;De&#46;&#46;&#46;&#46;&#46;&#58;&quot; + &quot;Carlos Vargas&quot; + CHR&#40;13&#41;+;\n         			&quot;Para&#46;&#46;&#46;&#58;&quot; + &quot;Guillermo Castillo&quot; + CHR&#40;13&#41;+;\n         			&quot;Mensaje&#58;&quot; + &quot;Hola Mundo&quot; + CHR&#40;13&#41;+;\n         			&quot;Atendio&#58;&quot; + &quot;Si&quot; + CHR&#40;13&#41; + CHR&#40;13&#41;\n\n\n/*asignacion del cuerpo del correo*/\noSMTP&#46;TextBody = cTexto			\n\n/*adjunto atachment*/		\n*oSMTP&#46;AddAttachment&#40;&quot;fondo&#46;bmp&quot;&#41;\n\n/*verificacion de envio de correo*/\nIF !oSMTP&#46;SendMail\n	/*error en envio*/\n	MsgAlert&#40;oSMTP&#46;Response,&quot;Error en envio de correo!&quot;&#41;\nELSE\n	*envio exitoso\n	MsgInfo&#40;&quot;Envio de llamadas por correo exitoso!&quot;,&quot;Informacion&quot;&#41;\nENDIF \n\n/*elimina objeto */\noSMTP &#58;= NIL\n[/code:336bvp6m]\n\nsalu2\ncarlos vargas','',0,'EIA=','336bvp6m',1,0,'',110,0,0),(4414,1094,20,6,0,'82.57.159.154',1135978116,1,0,1,1,1,1,'','Re: COMBOBOX','Io per questo motivo e soprattutto per il fatto che i normali combo diventano presto inusabili a causa della lentezza del caricamento quando i records sono tanti, mi sono fatto un simil combo realizzato con una GET più una TWBrowse.\n\nEMG','',0,'EIA=','1fu7khq0',1,0,'',6,0,0),(4415,1076,3,49,0,'87.7.178.204',1135981183,1,0,1,1,1,0,'','','antonio,\nI insert the xp theme but I not see the orange line','',0,'EIA=','sfmx9df9',1,0,'',49,0,0),(4416,1083,6,2,0,'80.58.2.107',1135981201,1,0,1,1,1,1,'','','Verhoven,\n\nEstamos en contacto con los desarrolladores de UEStudio y vamos a reportarles todas estas incidencias. De momento estan respondiendo muy rápido y con mucho interés por solucionar cualquier problema asi que confiemos que van a solucionar los bugs que encontremos rapidamente.\n\nEn nuestra opición UEStudio es un gran producto y juntos tenemos que conseguir que funcione correctamente <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EIA=','1f7rwsae',1,0,'',2,0,0),(4417,1076,3,2,0,'80.58.2.107',1135981272,1,0,1,1,1,1,'','','Yes, it is not visible as we are not using a true header control there yet.','',0,'EIA=','3gd0jd3d',1,0,'',2,0,0),(4418,1094,20,154,0,'151.81.2.60',1135981317,1,0,1,1,1,1,'','Re: COMBOBOX','[quote=&quot;EnricoMaria&quot;:3707j1g1]Io per questo motivo e soprattutto per il fatto che i normali combo diventano presto inusabili a causa della lentezza del caricamento quando i records sono tanti, mi sono fatto un simil combo realizzato con una GET più una TWBrowse[/quote:3707j1g1]\n\nEnrico,\nci avevo pensato ma fai apparire il TWBrowse o dedichi  uno spazio apposta nella dialog?\ne, se lo fai apparire come fai a farlo stare sopra il resto?\n\nCiao e Grazie.','',0,'gA==','3707j1g1',1,0,'',154,0,0),(4419,1094,20,6,0,'82.57.159.154',1135981480,1,0,1,1,1,1,'','Re: COMBOBOX','Uso una dialog senza il bordo. Praticamente come fa il metodo TWBrowse:lEditCol() che fa apparire una GET sulla cella di una TWBrowse.\n\nEMG','',0,'gA==','7mhfe7b8',1,0,'',6,0,0),(4420,1094,20,154,0,'151.81.2.60',1135982360,1,0,1,1,1,1,'','','Sai se ci sono degli esempi già fatti?\nAlmeno per fare qualche prova?','',0,'gA==','qtm70rw5',1,0,'',154,0,0),(4421,1088,3,35,0,'65.188.6.143',1135982685,1,0,1,1,1,0,'','','To All\n\nHow DUMB of me .. found everything about this on the UE site ..\n\nRick','',0,'gA==','1b456me9',1,0,'',35,0,0),(4422,1088,3,2,0,'80.58.2.107',1135983301,1,0,1,1,1,1,'','','Rick,\n\nUEStudio is a commercial product from <!-- m --><a class=\"postlink\" href=\"http://www.ultraedit.com/\">http://www.ultraedit.com/</a><!-- m -->','',0,'gA==','zuk9jgcp',1,0,'',2,0,0),(4423,1094,20,6,0,'82.57.159.154',1135985659,1,0,1,1,1,1,'','','Non che io sappia.\n\nEMG','',0,'gA==','2huakmk2',1,0,'',6,0,0),(4424,1083,6,61,0,'200.40.235.33',1135987257,1,0,1,1,1,0,'','ESPECTACULAR','Amigos:\n\nHace un rato luego de que Antonio puso el mensaje aquí\ncomence a intentar y salio todo de maravilla.\n\nCon UEStudio y las indicaciones de Antonio se puede tener\nlos prg, los rc todo en un proyecto.\nCompile y ejecute el ejemplo sin problemas.\n\nHay que tener cuidado con los Paths, cualquier\nconsulta estoy a las órdenes.\n\nLo probe con FWH 2.7 y Harbour (el que viene con FWH)\n\nSaludos desde Uruguay.\n\nFeliz 2006 para todos.\n\nRuben Fernandez.','',0,'gA==','2mearbp8',1,0,'',61,0,0),(4425,1076,3,49,0,'87.7.177.239',1135992407,1,0,1,1,1,0,'','','I saw the xbrowse not make it but the xbrowse use the header class ( I have a version with header class .. it give me from ozs','',0,'gA==','13f72sib',1,0,'',49,0,0),(4426,1084,3,98,0,'70.71.111.92',1135994900,1,0,1,1,1,1,'','','Antonio:\n\nCongratulations on the great work you have been doing and an even bigger thank you for breathing a new life to our beloved Clipper in the form of [x]Harbour and of course FWH.\n\nMay 2006 be even better for all of us!\n\nRegards,\n\nLuis Krause','',0,'','ooi7pgbx',1,0,'',98,0,0),(4427,1095,3,55,0,'59.92.114.166',1135994929,1,0,1,1,1,0,'','New year!','Dear friends,\n\nHappy to see fivetech posting good results.  If FT does well we can be assured of lots of non-stop enhancements and we benefit out of it.\n\nHearty wish to the whole FW community for a year full of happiness and good health.\n\nAL, I pray god that he bless with more and more good health, 36 hours a day and good business.\n\nWarm Greetings\nSandeep','',0,'','3pj5gmo0',1,0,'',55,0,0),(4428,1088,3,160,0,'210.212.142.6',1136005784,1,0,1,1,1,0,'','xMate : a sound IDE.','Hello All,\n\nI take this opportunity to tell you all that, I have been using xMate now since last 2 years and extremely happy with it. It has all the features you discussed here (except Resource Editor). and it is Free too. It has full predefined configurations for Harbour, xHarbour and FWH.\n\nAndy Woo has been continuously upgrading the product and giving the support too whenever asked.\n\nI suggest all interested ones to try that product.\n\nMilan.','',0,'','1iubsosn',1,0,'',160,0,0),(4429,1096,1,109,0,'200.56.191.126',1136010892,1,0,1,1,1,0,'','Relacionar 2 tablas','Buenas noches.\n\n   Alguien que me oriente en lo siguiente\n\n   Tengo 2 Tablas \n   (oD03)    //Clientes (Indices CDX)\n   (oD02)   // Domicilio (Indices CDX)\n\n   la tabla (oD03) esta indexada por el campo \"gClientes\"  //Numericos\n   la tabla (oD03) esta indexada por los campos (gClientes y    TipoDom)  //Numericos.\n\n   Trato de relacionarlas de la siguiente forma y me trae resultados en blanco.\n\n   dbSetRelation(Select(oD02),{|| (oD03)-&gt;gClientes},\"(oD03)-&gt;gClientes\" )\n\n   En la tabla oD02 estan los registros de domicilios de clientes\n  Si \"Tipodom\"  = 1 entonces es domicilio Fiscal\n  Si \"Tipodom\" = 2 entonces es domicilio de Entrega\n\n  Y Necesito presentar el domicilio FISCAL\n\nGracias por su ayuda.','',0,'','y754g1ox',1,0,'',109,0,0),(4430,1033,3,372,0,'83.118.100.14',1136014061,1,0,1,1,1,0,'','','Thanks Carlos, but i must specify a host for sending, and i want to use the standard configuration from Outlook Express....','',0,'','18sv2nmx',1,0,'',372,0,0),(4431,1097,3,372,0,'83.118.100.14',1136019029,1,0,1,1,1,0,'','How to get \'normal\' color in Folder?','Hi,\n\nwhen using folders and the Windows XP Manifest, the color of the background is different than without using folders, it\'s more lighter.\n\nCan i change this back with the COLOR parameter and if so, what color should i use?\n\nThanks,\n\nJohn.','',0,'','8fvcqzaj',1,0,'',372,0,0),(4432,1097,3,2,0,'80.58.2.107',1136023810,1,0,1,1,1,1,'','','John,\n\nCould you please post some pictures of what you mean ?\n\nPlease use <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us\">http://www.imageshack.us</a><!-- m --> to upload the images and post here the URLs to display them. Thanks.','',0,'','3lyhw853',1,0,'',2,0,0),(4433,1096,1,2,0,'80.58.2.107',1136023898,1,0,1,1,1,1,'','','Ricardo,\n\nEn samples\\gallery\\onemany tienes un ejemplo de un sistema relacional de bases de datos.','',0,'','fadz8v4h',1,0,'',2,0,0),(4434,1091,6,378,0,'80.58.54.235',1136028671,1,0,1,1,1,0,'','muchas gracias  los dos','muchas gracias a ambos!!!.','',0,'','1dysnhy4',1,0,'',378,0,0),(4435,1098,6,378,0,'80.58.54.235',1136032805,1,0,1,1,1,0,'','desplazamiento por gets del dialogo:Up() y :Down() o por TAB','Hola:\n\nMe gustaria asignar dos botones, Up y Down, para que al pulsar sobre ellos se desplacen por los gets del dialogo, del mismo modo que oListbox:GoUp() y oListBox:GoDown(), pero estos metodos no estan definidos. También me valdía que surtiera el mismo efecto que pulsar la tecla TAB. Muchas gracias.\n\nUn saludo,\n\nPablo','',0,'','2mwgzmfr',1,0,'',378,0,0),(4436,1098,6,2,0,'80.58.2.107',1136034813,1,0,1,1,1,1,'','','Pablo,\n\nPuesto que esos botones al pulsarlos tomarían el foco, entonces hay que usar el dato oJump:\n\n[code:qsortdxn]\n   n = 1 // nº de orden del primer GET\n\n   &#46;&#46;&#46; BUTTON oBtn1 &#46;&#46;&#46; ACTION If&#40; n &gt; 1, oBtn1&#58;oJump &#58;= oDlg&#58;aControls&#91; n-- &#93;, &#41; VALID &#46;t&#46;\n\n   &#46;&#46;&#46; BUTTON oBtn2 &#46;&#46;&#46; ACTION If&#40; n &lt; Len&#40; oDlg&#58;aControls &#41;, oBtn2&#58;oJump &#58;= oDlg&#58;aControls&#91; n++ &#93;,&#41; VALID &#46;t&#46;\n[/code:qsortdxn]','',0,'AIA=','qsortdxn',1,0,'',2,0,0),(4437,1074,2,124,0,'200.117.221.27',1136035379,1,0,1,1,1,0,'','','Una idea que se me ocurre viendo tu pregunta ( yo no lo haría pero tal vez te sirve como punta para llegar a lo que necesitas ) sería hacer una clave de indice que suponiendo que el campo \"nombre\" es el queres indexar:\n\nTRADUCE(NOMBRE)\n\ndonde la funcion TRADUCE es algo así:\n\nFUNCTION TRADUCE( cString )\nLOCAL cRetorno\n\ncRetorno := cString\ncRetorno := STRTRAN( cRetorno, \"á\", \"a\" )\ncRetorno := STRTRAN( cRetorno, \"é\", \"e\" )\ncRetorno := STRTRAN( cRetorno, \"í\", \"i\" )\ncRetorno := STRTRAN( cRetorno, \"ó\", \"o\" )\ncRetorno := STRTRAN( cRetorno, \"ú\", \"u\" )\n\nRETURN( cRetorno )\n\nClaro que esto no es ni optimo ni mucho menos para poner como clave de indice por el tiempo de proceso permanente ni es muy practico para todos tus indices.\n\nSaludos.\nRicardo.-','',0,'AIA=','546iy79p',1,0,'',124,0,0),(4438,1088,3,49,0,'87.7.181.199',1136038222,1,0,1,1,1,0,'','','Also I use Xmate\n\nXmate to create program is ok\nXmake TO create LIB is Ok\n\nI think Andy must create a mini Workshop into Xmate to create RC,REs, or DLL FILES because we must use another program as Workshop borland or another ( Pelles C)\n\nRegards','',0,'AIA=','cuohde54',1,0,'',49,0,0),(4439,1070,20,49,0,'87.7.181.199',1136038990,1,0,1,1,1,0,'','','Anch\'io auguro un buon Anno 2006 pieno di soddifazioni e successi !!!!!!!!!!\n\n\n[b:2qd36img]Per Juanito o Giovanni[/b:2qd36img]\nNon voglio fare polemiche ma ti dico che è inutile che cerchi di instaurare un rapporto con il moderatore \" monotono ?\"  lui è sempre così non ci fa , ci è, ormai noi lo conosciamo bene, come si dice il lupo perde il pelo e non il vizio!!!!\n\n[b:2qd36img]Per Tutti gli altri [/b:2qd36img]\n\n[u:2qd36img]in particolare ad EMG sempre molto disponibile ed utile nei suoi interventi[/u:2qd36img]\n\nAnche in questo frangente devo dire che non condivido, il moderatore è disponibile e utile nei suoi interventi  non per tutti indistintamente ma solo a chi conviene a lui.[/u]','',0,'QQ==','2qd36img',1,0,'',49,0,0),(4440,1081,3,179,0,'200.63.250.126',1136039909,1,0,1,1,1,1,'','UEStudio settings:','Antonio\nThanks for the tip\nI try and have this error\n--------------------Configuración: Prueba - Debug--------------------\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'UUID.LIB\'\nPrueba.EXE - 0 error(es), 0 advertencia(s)\n\nHow can I incluthe this lib because I try on config file \"FWH window\"\n, on project directory and same error\n\nThanks for all','',0,'QQ==','3708kcyx',1,0,'',179,0,0),(4441,1099,6,75,0,'83.35.26.183',1136043140,1,0,1,1,1,0,'','Editor de Recursos a 32 bits','Alguien me puede recomendar algún editor de recursos a 32 bits.\nCondición indispensable es que importe los rc o res del WorkShop 4.5 sin dar problemas.\n\nSaludos a todos y Feliz 2006. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QQ==','1tx620e1',1,0,'',75,0,0),(4442,1100,6,378,0,'80.58.54.235',1136047235,1,0,1,1,1,0,'','date picker como MSGDATE()','Hola:\n\nHe visto como funciona el control date picker, que saca un calendario en 32 bits y requiere usar un campo ad hoc. ¿Hay algún arreglo que permita usar dicho calendario como en la función msgdate()?.\n\nEl ejemplo fwh\\samples\\msgdate.prg no funciona correctamente cuando se pulsa varias veces el +, se cambia de mes y volvemos a cambiar de año.\n\n\nGracias y feliz 2006!!!.\n\nSalu2','',0,'QQ==','c86e5pfy',1,0,'',378,0,0),(4443,1099,6,378,0,'80.58.54.235',1136047269,1,0,1,1,1,0,'','','Antonio ha señalado untraedit, que tae también un editor de recursos:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ultraedit.com/index.php?name=Content&amp;pa=showpage&amp;pid=115\">http://www.ultraedit.com/index.php?name ... ge&amp;pid=115</a><!-- m --> \n\nSalu2,','',0,'QQ==','1o8indrw',1,0,'',378,0,0),(4444,1099,6,75,0,'83.35.26.183',1136049554,1,0,1,1,1,0,'','Editor de recursos a 32 bits','Sí, ya he leido el mensaje al respecto. He probado el programa y me parece muy bueno aunque creo que no importa correctamente los rc del WorkShop y tiene algunos problemas con las ñ y las vocales acentuadas.\nPor eso, mientras estos aspectos se solucionan, busco otro editor de recursos alternativo.\n\nSaludos y gracias.','',0,'QQ==','2z139l5g',1,0,'',75,0,0),(4445,1081,3,2,0,'80.58.2.107',1136052046,1,0,1,1,1,1,'','','Wilson,\n\nYou may download uuid.lib from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/7db97476/uuid.zip.html\">http://hyperupload.com/download/7db97476/uuid.zip.html</a><!-- m -->\n\nand copy it to your bcc55\\lib directory.','',0,'QQ==','3s7n71m8',1,0,'',2,0,0),(4446,1099,6,2,0,'80.58.2.107',1136052174,1,0,1,1,1,1,'','','Verhoven,\n\nMientras el equipo de UEStudio soluciona esos problemas (estamos en contacto con ellos), mi consejo es el editor de recursos de PellesC <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m -->','',0,'QQ==','2c1jp1vp',1,0,'',2,0,0),(4447,1088,3,2,0,'80.58.2.107',1136052251,1,0,1,1,1,1,'','','In my opinion, xMate should integrate the project manager into the same window where the source code editor is. As UEStudio does it.','',0,'QQ==','hepps7ev',1,0,'',2,0,0),(4448,1088,3,35,0,'65.188.6.143',1136060734,1,0,1,1,1,0,'','','I use xMate as well .. a very nice product !! .. Would like to ( also ) see Andy integrate a full featured resource editor.. You can build and re-build projects from the editor .. but I think Antonio has a good idea in that the Editor should be the \'source\' platform that launches the project mgmt.\n\nI know xMate is \'free\' .. perhaps Andy could keep xMate as it is and commercially sell an integrated resource editor module as a \'full featured\' ( for profit ) package... I would buy it  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nKeep it Simple Andy .. hate the Visual Studio \'look\' .. too clumsy !!\n\nRick Lipkin\nSC Dept of Health, USA','',0,'QQ==','2jlmynh0',1,0,'',35,0,0),(4449,1097,3,372,0,'83.118.100.14',1136097381,1,0,1,1,1,0,'','','Hi Antonio,\n\nhere\'s the printscreen, i\'ve pasted both dialogs on top of each other to see the difference.\n\n[url=http&#58;//img510&#46;imageshack&#46;us/my&#46;php?image=image19ua&#46;jpg:j3mqllnp][img:j3mqllnp]http&#58;//img510&#46;imageshack&#46;us/img510/4973/image19ua&#46;th&#46;jpg[/img:j3mqllnp][/url:j3mqllnp]\n\nIf I\'m not using the manifest everything looks ok, FWH25/Harbour also looks ok.\n\nRegards,\n\nJohn.','',0,'GA==','j3mqllnp',1,0,'',372,0,0),(4450,1097,3,2,0,'80.58.2.107',1136100452,1,0,1,1,1,1,'','','John,\n\nThats the normal and \"desired\" look. Folders look with gradient, meanwhile dialogboxes no.\n\nAnyhow if you want to remove the folders color, simply change this line from Class TFolder:\n\n[code:10bds1vs]\nMethod Default&#40;&#41; CLASS TFolder\n      &#46;&#46;&#46;\n      #ifndef __CLIPPER__\n         if IsAppThemed&#40;&#41;\n            // oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n         endif\n      #endif\n      &#46;&#46;&#46;\n[/code:10bds1vs]','',0,'AIA=','10bds1vs',1,0,'',2,0,0),(4451,1099,6,75,0,'83.39.112.250',1136110452,1,0,1,1,1,0,'','','Gracias Antonio, \n    pero tampoco he conseguido acertar a importar correctamente los recursos del WS con el PellesC y ya desesperado dejé de utilizarlo. Si tienes el método para importar los ficheros correctamente te ruego me lo hagas saber.\n\n    En cualquier caso aprovecho para desearte un Feliz y Próspero Año Nuevo. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','17k6t03g',1,0,'',75,0,0),(4452,1097,3,372,0,'83.118.100.14',1136111359,1,0,1,1,1,0,'','','thanks Antonio,\n\nonly changing this in source\\classes\\folder.prg and recompiling my program won\'t do the trick, so i guess i have to do a little bit more?\n\nRegards,\n\nJohn.','',0,'AIA=','10surdtv',1,0,'',372,0,0),(4453,1097,3,6,0,'82.58.168.151',1136111899,1,0,1,1,1,1,'','','Try adding folder.prg to your compile and link script.\n\nEMG','',0,'AIA=','3rcnd39h',1,0,'',6,0,0),(4454,1099,6,2,0,'80.58.2.107',1136115159,1,0,1,1,1,1,'','','Gracias Verhoven,\n\nNosotros de momento seguimos usando el Borland Resources Workshop. Seguro que algún usuario de PellesC podrá ayudarnos aquí.','',0,'AIA=','c6s6ai5p',1,0,'',2,0,0),(4455,1101,1,125,0,'151.81.4.127',1136121410,1,0,1,1,1,0,'','How avoid temp file','Hi, happy 2006 to all !!\n\nI have old clipper s/w  running undx XP and i found sometimes temp file in dir where is placed the program. The tem file are like: ABBB,AABAA, ecc.,ecc.\nIs the a way to avoid this problem ?\n\nI us clipper 5.2e and blinker 3.3\n\nTks\nPiscicelli/Zingoni','',0,'AIA=','tk0340tm',1,0,'',125,0,0),(4456,1101,1,6,0,'82.57.160.227',1136123663,1,0,1,1,1,1,'','Re: How avoid temp file','Those files should be automatically deleted when the program exits. Try to not exit with QUIT command.\n\nEMG','',0,'AIA=','2nakf5sd',1,0,'',6,0,0),(4457,1101,1,125,0,'151.81.2.9',1136126242,1,0,1,1,1,0,'','','tks, i will try','',0,'AIA=','h7d0jxtn',1,0,'',125,0,0),(4458,1097,3,372,0,'83.118.100.14',1136129936,1,0,1,1,1,0,'','','Hi Enrico,\n\nisn\'t there a way to do this in my code?\n\nlike changing one of the parameters?\noDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }','',0,'AIA=','1ks2d5b8',1,0,'',372,0,0),(4459,1097,3,6,0,'82.57.160.227',1136132170,1,0,1,1,1,1,'','','Try this:\n\n[code:15zh35y3]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oFld\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;FOLDERTEST&quot;\n\n    REDEFINE FOLDER oFld;\n             ID 101 OF oDlg;\n             PROMPTS &quot;Test1&quot;, &quot;Test2&quot;;\n             DIALOGS &quot;TEST1&quot;, &quot;TEST2&quot;\n\n    oDlg&#58;bStart = &#123; || MySet&#40; oFld &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MYSET&#40; oFld &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO LEN&#40; oFld&#58;aDialogs &#41;\n        oFld&#58;aDialogs&#91; i &#93;&#58;bEraseBkGnd = NIL\n    NEXT\n\n    RETURN NIL[/code:15zh35y3]\n\n[code:15zh35y3]/****************************************************************************\n\n\ntest&#46;rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n\n\nFOLDERTEST DIALOG 49, 52, 365, 295\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Folder test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n&#123;\n CONTROL &quot;&quot;, 101, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE, 5, 5, 355, 285\n&#125;\n\n\nTEST1 DIALOG 49, 52, 365, 295\nSTYLE WS_CHILD\nFONT 8, &quot;MS Sans Serif&quot;\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n&#123;\n CONTROL &quot;Test1&quot;, -1, &quot;STATIC&quot;, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 15, 20, 10\n&#125;\n\n\nTEST2 DIALOG 49, 52, 365, 295\nSTYLE WS_CHILD\nFONT 8, &quot;MS Sans Serif&quot;\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n&#123;\n CONTROL &quot;Test2&quot;, -1, &quot;STATIC&quot;, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 15, 20, 10\n&#125;\n\n\n1 24 LOADONCALL MOVEABLE \n&#123;\n \'3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31\'\n \'2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54\'\n \'46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D\'\n \'22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62\'\n \'6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63\'\n \'68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D\'\n \'63 6F 6D 3A 61 73 6D 2E 76 31 22 0D 0A 6D 61 6E\'\n \'69 66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E\'\n \'30 22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64\'\n \'65 6E 74 69 74 79 0D 0A 20 20 20 20 6E 61 6D 65\'\n \'3D 22 59 6F 75 72 2E 41 70 70 6C 69 63 61 74 69\'\n \'6F 6E 2E 4E 61 6D 65 2E 48 65 72 65 22 0D 0A 20\'\n \'20 20 20 70 72 6F 63 65 73 73 6F 72 41 72 63 68\'\n \'69 74 65 63 74 75 72 65 3D 22 78 38 36 22 0D 0A\'\n \'20 20 20 20 76 65 72 73 69 6F 6E 3D 22 31 2E 30\'\n \'2E 30 2E 30 22 0D 0A 20 20 20 20 74 79 70 65 3D\'\n \'22 77 69 6E 33 32 22 2F 3E 0D 0A 3C 64 65 73 63\'\n \'72 69 70 74 69 6F 6E 3E 57 69 6E 64 6F 77 73 20\'\n \'53 68 65 6C 6C 3C 2F 64 65 73 63 72 69 70 74 69\'\n \'6F 6E 3E 0D 0A 3C 64 65 70 65 6E 64 65 6E 63 79\'\n \'3E 0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65 6E\'\n \'74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20 20 20 20\'\n \'20 20 20 20 3C 61 73 73 65 6D 62 6C 79 49 64 65\'\n \'6E 74 69 74 79 0D 0A 20 20 20 20 20 20 20 20 20\'\n \'20 20 20 74 79 70 65 3D 22 77 69 6E 33 32 22 0D\'\n \'0A 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 6D\'\n \'65 3D 22 4D 69 63 72 6F 73 6F 66 74 2E 57 69 6E\'\n \'64 6F 77 73 2E 43 6F 6D 6D 6F 6E 2D 43 6F 6E 74\'\n \'72 6F 6C 73 22 0D 0A 20 20 20 20 20 20 20 20 20\'\n \'20 20 20 76 65 72 73 69 6F 6E 3D 22 36 2E 30 2E\'\n \'30 2E 30 22 0D 0A 20 20 20 20 20 20 20 20 20 20\'\n \'20 20 70 72 6F 63 65 73 73 6F 72 41 72 63 68 69\'\n \'74 65 63 74 75 72 65 3D 22 78 38 36 22 0D 0A 20\'\n \'20 20 20 20 20 20 20 20 20 20 20 70 75 62 6C 69\'\n \'63 4B 65 79 54 6F 6B 65 6E 3D 22 36 35 39 35 62\'\n \'36 34 31 34 34 63 63 66 31 64 66 22 0D 0A 20 20\'\n \'20 20 20 20 20 20 20 20 20 20 6C 61 6E 67 75 61\'\n \'67 65 3D 22 2A 22 0D 0A 20 20 20 20 20 20 20 20\'\n \'2F 3E 0D 0A 20 20 20 20 3C 2F 64 65 70 65 6E 64\'\n \'65 6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 3C 2F\'\n \'64 65 70 65 6E 64 65 6E 63 79 3E 0D 0A 3C 2F 61\'\n \'73 73 65 6D 62 6C 79 3E\'\n&#125;[/code:15zh35y3]\n\nEMG','',0,'AIA=','15zh35y3',1,0,'',6,0,0),(4460,1102,6,385,0,'85.155.44.185',1136132915,1,0,1,1,1,0,'','Clase TActivex','Hola\n\nEstoy intentando utilizar la clase TActivex y bueno los ejemplos salen y funcionan...pero...\n\n¿ como se accede a las propiedades?...¿ como se cambian valores de las propiedades?\n\nEjemplo: El explorer tiene una propiedad que permite saber la localizacion (URL) de la pagina...y quiero acceder a ella para ponerla en la barra de titulos...etc...\n\nHe buscado la clase en el directorio classes pero no esta...asi que bueno, ¿existe algun manual?\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'AIA=','1kpd1msj',1,0,'',385,0,0),(4461,1097,3,372,0,'83.118.100.14',1136133536,1,0,1,1,1,0,'','','works perfect Enrico, thanks!','',0,'AIA=','1ld989co',1,0,'',372,0,0),(4462,1037,19,384,0,'201.19.39.92',1136138103,1,0,1,1,1,1,'','','Não poderia deixar de lhe felicitar pela filha.\nQue Deus vos abencoe...\nQue belo presente de Natal ganhastes!!!\nParabens e Feliz 2K6.....','',0,'AIA=','2v9xlmz4',1,0,'',384,0,0),(4463,1081,3,179,0,'200.63.250.126',1136139780,1,0,1,1,1,1,'','uuid lib','Antonio, Thanks but I Have the lib\nthis problem I have when try to compile some Fwh programas\nwith an .bat file , not have this problem whe I Use\nVerce or xMate, when I have this problem I solved copying this lib file\nto the directory of aplication resides on\n\nNow I can\'t resolve this with this ultraedit\n ide \nExcuseme my Bad english\n\nHappy new year to you and your family\n\nBest regards','',0,'AIA=','2x0lwwnk',1,0,'',179,0,0),(4464,1081,3,2,0,'80.58.2.107',1136142623,1,0,1,1,1,1,'','','Wilson,\n\nhave you properly created bcc55\\bin\\bcc32.cfg and bcc55\\bin\\ilink32.cfg as explained at <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwh.html\">http://www.fivetechsoft.com/english/fwh.html</a><!-- m --> ?','',0,'AIA=','2rg7zbx6',1,0,'',2,0,0),(4465,1102,6,2,0,'80.58.2.107',1136142961,1,0,1,1,1,1,'','','Jose Ignacio,\n\nEl fichero source\\classes\\activex.prg se proporcionó en el build de Junio 2005.\n\nEstos métodos te permiten acceder a las propiedades:\n\noActiveX&#058;GetProp( cPropName ) --&gt; uValue\noActiveX&#058;SetProp( cPropName, uParam1 )\n\ny este te permite llamar a un método:\n\noActiveX&#058;Do( cMethodName, uParam1, uParam2, uParam3 )','',0,'AIA=','1zemm8ra',1,0,'',2,0,0),(4466,1099,6,384,0,'201.19.39.92',1136152331,1,0,1,1,1,1,'','','Anteriormente eu utilizava o WorkShop 4.5.\nAtualmente utilizo o PellesC 4.00.50 que se mostra estavel.\nPara a conversão do Workshop para o PellesC basta salvar os resources como .RES e abri-los normalmente no PellesC','',0,'AIA=','1iiube2n',1,0,'',384,0,0),(4467,1103,1,125,0,'151.81.1.139',1136157379,1,0,1,1,1,0,'','clipper exe and time cpu','Hi,\nIn my old clipper application on XP when running an exe program  i see the pc works very slow in special when run a second application.\nIs there some prg/obj to use to minimize the running of the exe clipper application while it is in backgrownd  (with no focus) ?\n\nTks\nP/Z','',0,'AIA=','3f0b54sk',1,0,'',125,0,0),(4468,1085,6,45,0,'200.82.106.43',1136159683,1,0,1,1,1,0,'','','Excelente felicitaciones <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1vyam982',1,0,'',45,0,0),(4469,1081,3,179,0,'200.63.250.126',1136165140,1,0,1,1,1,1,'','thanks Antonio','thanks Antonio\nnow are Ok\nI have new problems but are another history\nThanks For all\nBest regards','',0,'AIA=','3jofvywj',1,0,'',179,0,0),(4470,1104,2,265,0,'80.58.18.235',1136190532,1,0,1,1,1,0,'','PDF y e-mail','Hola amigos:\nQuisiera hacer lo siguiente:\n\nMandar a algunos clientes su factura por e-mail en pdf, y me gustaria que me dijerais como lo haceis vosotros.\nHe pensado en un bucle que haga lo siguiente: 1º Detecte si ese cliente tiene la marca de enviar por e-mail -2º Si es asi, que genere el fichero pdf mediante una impresora pdf - 3º que mande éste fichero mediante blat.\nTambién he pensado generar todos los ficheros seguidos, cada uno con un nombre, y luego mandarlos.\nSabeis si esto se puede automatizar de una manera mas rápida y menos engorrosa ? o mediante alguna clase, libreria, programa externo, etc.\n\nUn Saludo\n\nJose Luis','',0,'AIA=','1vamtr8q',1,0,'',265,0,0),(4471,1085,6,295,0,'201.222.155.8',1136200593,1,0,1,1,1,1,'','','felicitaciones !!. y que el 2006 sea mejor aun!\n\nSALUDOS Y ABRAZOS','',0,'AIA=','3jnvpvcc',1,0,'',295,0,0),(4472,1105,6,378,0,'80.58.54.235',1136204685,1,0,1,1,1,0,'','problema con calendario','Hola:\n\nFeliz 2006!!!.\n\nTengo un problema. El ejemplo fwh\\samples\\msgdate.prg no funciona correctamente cuando se pulsa varias veces el +, se cambia de mes y volvemos a cambiar de año. Muchas gracias.\n\nSalu2,\n\nPablo','',0,'AIA=','23to1cti',1,0,'',378,0,0),(4473,1105,6,362,0,'200.168.52.156',1136205036,1,0,1,1,1,1,'','Re: problema con calendario','[quote=&quot;sgisoft&quot;:1gjt60sm]Hola:\n\nFeliz 2006!!!.\n\nTengo un problema. El ejemplo fwh\\samples\\msgdate.prg no funciona correctamente cuando se pulsa varias veces el +, se cambia de mes y volvemos a cambiar de año. Muchas gracias.\n\nSalu2,\n\nPablo[/quote:1gjt60sm]\n\nHola... Mira este ejemplo Para [x]Harbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/594CALEND.ZIP\">http://www.fivewin.com.br/Dicas/594CALEND.ZIP</a><!-- m -->','',0,'gA==','1gjt60sm',1,0,'',362,0,0),(4474,1105,6,362,0,'200.168.52.156',1136205625,1,0,1,1,1,1,'','','Pablo... Compilei con FiveWin 2.7 for [x]Harbour, y esta Perfecto! Actualize tu Versión.  Saludos.','',0,'','cqdeus3f',1,0,'',362,0,0),(4475,1105,6,378,0,'80.58.54.235',1136205827,1,0,1,1,1,0,'','','Muchas gracias, pero uso harbour, y no me lo compila.','',0,'','2dsm9474',1,0,'',378,0,0),(4477,1105,6,362,0,'200.168.52.156',1136209883,1,0,1,1,1,1,'','','[quote=&quot;sgisoft&quot;:3txalja3]Muchas gracias, pero uso harbour, y no me lo compila.[/quote:3txalja3]\n\n\nCual no Compila?? Mi ejemplo o el MsgDate()??\n\nSi for mi ejemplo, basta cambiar los patchs.  Saludos.','',0,'gA==','3txalja3',1,0,'',362,0,0),(4478,1099,6,255,0,'200.67.134.233',1136214468,1,0,1,1,1,1,'','','[quote=&quot;Verhoven&quot;:3vc2y6yk]Gracias Antonio, \n    pero tampoco he conseguido acertar a importar correctamente los recursos del WS con el PellesC y ya desesperado dejé de utilizarlo. Si tienes el método para importar los ficheros correctamente te ruego me lo hagas saber.\n    En cualquier caso aprovecho para desearte un Feliz y Próspero Año Nuevo. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:3vc2y6yk]\n\nPara usar PellesC, primero necesitas\nabrir workshop y guardar tu .RC como .RES\nluego con el pellesC deberás abrir el .RES\ny usar ese para editar tus dialogos y demás.\nTe olvidarás de los .RC (asi lo hago yo, trabajo\nsiempre con el .RES)\n\nNo dudo que alguien mas pueda darte otro\nconsejo.\n\nSaludos','',0,'gA==','3vc2y6yk',1,0,'',255,0,0),(4479,1099,6,83,0,'80.58.14.107',1136215317,1,0,1,1,1,0,'','Re: Editor de Recursos a 32 bits','[quote=&quot;Verhoven&quot;:1ynxvqnw]Alguien me puede recomendar algún editor de recursos a 32 bits.\nCondición indispensable es que importe los rc o res del WorkShop 4.5 sin dar problemas.\n\nSaludos a todos y Feliz 2006. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->[/quote:1ynxvqnw]\n\nYo he utilizado durante años (bastantantes) workshop 4, pero por diversas razones tuve que cambiar. Ahora utilizo Pelles C. No tengo absolutamente ningún problema al importar los RC, claro que no utilizo controles Borland. Solo cargo en Pelles C el RC que en su dia fué generado con Workshop, y SIN TOCAR NADA vuelvo a grabarlo lo que hace que Pelles lo guarde con su formato, a partir de ahí todo como la seda. Eso si, el compilador a utilizar a partir de ese momento para generar el RES que se incorpora al EXE tiene que ser OBLIGATORIAMENTE el propio de Pelles C.\n\nPara cualquier consulta estoy a tu disposición\nSaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','1ynxvqnw',1,0,'',83,0,0),(4480,1105,6,378,0,'80.58.54.235',1136216732,1,0,1,1,1,0,'','','arreglado. Funciona perfectamente. Gracias y feliz 2006!!!','',0,'gA==','13udtaib',1,0,'',378,0,0),(4481,1107,19,73,0,'201.138.166.223',1136219251,1,0,1,1,1,0,'','Vulnerabilidad WMF','hola foro, pues por aqui leyedo una informacion, no se que tan veridica sea pero ahi se las dejo por si alguien sabe algo..\nhay un parche publicado por Ilfak Guilfanov\n\n<!-- w --><a class=\"postlink\" href=\"http://www.hexblog.com\">www.hexblog.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.hispasec.com\">www.hispasec.com</a><!-- w -->\n\nsaludos','',0,'gA==','37i72zn7',1,0,'',73,0,0),(4482,1103,1,266,0,'60.50.49.202',1136220529,1,0,1,1,1,1,'','','- recompile it with Harbour/xHarbour\n- set the exe desktop icon properties to \'minimize\'\n- if u call it from Fivewin =&gt; winexec(\'clip.exe\', 6)','',0,'gA==','365jr998',1,0,'',266,0,0),(4483,1108,6,295,0,'200.112.80.165',1136220743,1,0,1,1,1,1,'','pequeño avance con texcels pero aun con problemas','Antes que nada Feliz 2006 para todos!!!\nAntonio: \n\nBaje la clase texcel corregida, ahora se compila sin problemas junto al resto de los programas, entonces estoy compilando los ejemplos que venían en el paquete enviado por vikthor, pero al ejecutar cualquiera de los ejemplos el sistema da errores, como el siguiente al ejecutar el TEST3.PRG:\n\n   Path and name: C:\\sofnuth\\SOFNUTR.Exe (32 bits)\n   Size: 1,357,824 bytes\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 02/01/2006, 13:42:15\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: WORKBOOKS\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; WORKBOOKS(0)\n   Called from:  =&gt; TEXCELSCRIPT&#058;OPEN(288)\n   Called from:  =&gt; TEST(17)\n   Called from:  =&gt; (b)BUILDMENU(104)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(55)\nFWH 2.7 / BCC55\nSALUDOS Y GRACIAS','',0,'gA==','lsrs3ijb',1,0,'',295,0,0),(4484,1103,1,2,0,'80.58.2.107',1136222840,1,0,1,1,1,1,'','','Piscicelli,\n\nPlease review this:\n<!-- m --><a class=\"postlink\" href=\"http://www.ghservices.com/gregh/clipper/trix0014.htm\">http://www.ghservices.com/gregh/clipper/trix0014.htm</a><!-- m -->','',0,'gA==','r5h6gn7s',1,0,'',2,0,0),(4485,1108,6,2,0,'80.58.2.107',1136223284,1,0,1,1,1,1,'','','Luis,\n\nEn el método New() prueba este cambio. En donde pone:\n\n    ::oExcel := CreateOleObject( \"Excel.Application\" )\n\ncámbialo a:\n\n    ::oExcel := TOleAuto():New( \"Excel.Application\" )','',0,'gA==','3mio3oz1',1,0,'',2,0,0),(4486,1108,6,18,0,'200.67.188.236',1136223752,1,0,1,1,1,1,'','','METHOD NEW()  CLASS TExcelScript\n     #IFDEF __XHARBOUR__\n        ::lExcel  := .T.\n        TRY\n          ::oExcel := GetActiveObject( \"Excel.Application\" )\n          ::oClip:=TClipBoard():New()\n          ::oClip:Clear()\n          CATCH\n             TRY\n              ::oExcel := CreateObject( \"Excel.Application\" )\n              ::oClip:=TClipBoard():New()\n               ::oClip:Clear()\n            CATCH\n               Alert( \"No está Excel Instalado en está Pc.\" )\n               ::lExcel  := .F.\n            END\n         END\n      #ELSE\n        ::oExcel := TOleAuto( \"Excel.Application\" )\n      #ENDIF\n      ::aExcelCols := {}\nRETURN( Self )','',0,'gA==','3k071v5w',1,0,'',18,0,0),(4487,1064,6,54,0,'201.138.54.232',1136224582,1,0,1,1,1,1,'','Re: Ayuda con Arrays TestData[nI,4] = desig-&gt;nmes','[quote=&quot;devwin2004&quot;:23x7njsj]\n\n    FOR nI := 1 TO Len(TestData)\n     TestData[nI,1] = val(desig-&gt;dntop)\n     TestData[nI,2] = val(desig-&gt;dnleft)               //CANT\n     TestData[nI,3] = desig-&gt;dbmp\n     TestData[nI,4] = desig-&gt;nmes\n\n\n\n@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME \n\n\"MESA8C.bmp\"  PROMPT  TestData[nI,3]  size 64,64 OF oDlg pixel TEXT \n\nON_BOTTOM NO BOX Action  (TestData[nI,3])\n\n\n    IF .NOT.EOF()\n       SKIP\n     ENDIF\n   NEXT\n\n\n return nil[/quote:23x7njsj]\n\nLo haría de la siguiente manera.\n\nbValor := { || (TestData[nI,3]) }\n\n@ TestData[nI,1],TestData[nI,2] sbutton TestData[nI,3] FILENAME \n\n\"MESA8C.bmp\"  PROMPT  TestData[nI,3]  size 64,64 OF oDlg pixel TEXT \n\nON_BOTTOM NO BOX Action  EVAL(bValor)\n\n\nEspero funcione','',0,'gA==','23x7njsj',1,0,'',54,0,0),(4488,1108,6,295,0,'200.112.80.165',1136225147,1,0,1,1,1,1,'','','Antonio al hacer el cambio me da el siguiente error\n\nError: Unresolved external \'_HB_FUN_TOLEAUTO\' referenced from C:\\SOFNUTH\\TEXCELS.OBJ\n\nAl reemplazar el method new por el que que vikthor me envió da el mismo error\n\nQue hay con el \"#include \"fileXLS.ch\" que había que colocar al inicio del prg en Fw Clipper?','',0,'gA==','3jyq7b7e',1,0,'',295,0,0),(4489,1108,6,2,0,'80.58.2.107',1136225702,1,0,1,1,1,1,'','','Luis,\n\nEstás construyendo tu aplicación con Harbour. Prueba a construirla con xHarbour. Sólo tienes que cambiar el compilador y las librerías.','',0,'gA==','2d3ncv0b',1,0,'',2,0,0),(4490,1108,6,295,0,'200.112.80.165',1136226371,1,0,1,1,1,1,'','','Antonio:\n\ncual es la diferencia entre harbour y xharbour?\nno me afecta la rc de recursos?\nlos cambios que efectuado en los prg para harbour, xharbour los reconoce de igual manera?\n\n\n\nla clase de vikthor según recuerdo tu comentaste que era para xHarbour\nsaludos','',0,'gA==','19cu39gq',1,0,'',295,0,0),(4491,1108,6,2,0,'80.58.2.107',1136228342,1,0,1,1,1,1,'','','Luis,\n\nNo hay ninguna diferencia que afecte a tu aplicación. La clase TOleAuto está implementada en xharbour y no en Harbour, por lo que si la necesitas entonces tienes que usar xharbour.\n\nLos recursos son los mismos, los ficheros make, todo igual.','',0,'gA==','3i8yo1mf',1,0,'',2,0,0),(4492,1108,6,295,0,'200.112.80.165',1136228402,1,0,1,1,1,1,'','','antonio:\ncompilé con xHarbour sin problemas, pero tengo mis dudas con el fichero \"fileXLS.ch\", ya que estoy ocupando el mismo que usaba con FWClipper debido a que el zip de la texcels que vikthor mando no esta este fichero.\n\nal compilar la aplicación, esta se genera, pero aparece el mensaje:\nfileXLS.ch(1) Warning P0001  Suspicious unclosed #if* directive.','',0,'gA==','3ktstkm8',1,0,'',295,0,0),(4493,1109,4,289,0,'212.138.64.173',1136229010,1,0,1,1,1,0,'','Now  sent short message Sms from your pocket pc','WELCOME ALL FWPPC USERS\nFirst  sorry  For all my English not good\nA Second THIS IS 4 SOURCE FOR FWPPC AND WITH 1 LIB FUNC_X.LIB\nTESTING UP\n1 - EMULATOR 2003\nPOCKET PC\n2- QTEK 1010\n3- I-MATE PDA2K\n4- Ipag Hp 6515\nTHIS FUNCTIONS  ON  WINDOWS CE 3.0 AND 4.0 %100\nREM FUNCTION SEND SMS NOT RUN WITH EMULATOR\nFILES :-\n1- TEST_SMS.PRG\n2- SERIAL.PRG\n3- SOUND.PRG\n4- WIN_VER.PRG\nDOWNLOAD FROM <!-- w --><a class=\"postlink\" href=\"http://WWW.LIVESYSTEM.NET/FUNC_X.ZIP\">WWW.LIVESYSTEM.NET/FUNC_X.ZIP</a><!-- w -->\nFinally :-\nhappy feast to all of the Christians\nThe sources will be available after the feast\nif Antonio was agreeing on their spreading within Fwppc\nThe Islamic feast is in 10-1 - 2005 and for 4 days and I mean it\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','6u34d4qt',1,0,'',289,0,0),(4494,1108,6,2,0,'80.58.2.107',1136229186,1,0,1,1,1,1,'','','Luis,\n\n&gt; fileXLS.ch(1) Warning P0001 Suspicious unclosed #if* directive.\n\nSupongo que falta un #endif al final de ese fichero. Pero eso no es ningún problema.','',0,'gA==','3pw3ijuu',1,0,'',2,0,0),(4495,1109,4,2,0,'80.58.2.107',1136229286,1,0,1,1,1,1,'','','Hathal,\n\nthanks, but you have not provided the source code for it. Could you please include it in your ZIP file ?','',0,'gA==','3kvmz2au',1,0,'',2,0,0),(4496,1108,6,18,0,'200.67.188.236',1136229483,1,0,1,1,1,1,'','','El archivo filexls.ch no es necesario para utilizar la clase TExcelS.','',0,'gA==','25yay08s',1,0,'',18,0,0),(4497,1099,6,75,0,'83.61.106.155',1136230669,1,0,1,1,1,0,'','','1.-Siguiendo el consejo de importar el rc diréctamente el error que me da al volver a abrir un dialogo después de haberlo modificado (ya con el PellesC) es el siguiente:\n\n                  \" Unable to create window with class name \'Serif\'. \"\n\nNo entiendo a que se debe.\n\n2.-Si lo que hago es grabar con el WS en formato RES y después intentar abrirlo con el PellesC es el siguiente:\n     \"No new line at end of file\"\n     \"Filename archivo.res, line 1.\"\n\n    Ni idea de que puede pasar.\n\nGracias.','',0,'gA==','2qvybtzl',1,0,'',75,0,0),(4499,1085,6,72,0,'201.154.240.187',1136233110,1,0,1,1,1,0,'','','Seguramente 2006 superará a los años anteriores. Felicidades!\n(prometo una compra más para fin de mes).','',0,'gA==','zr88rud0',1,0,'',72,0,0),(4500,1110,6,325,0,'201.124.131.93',1136233763,1,0,1,1,1,0,'','classe TWord','Feliz Año Nuevo a Todos!!\n\nPorque no me funciona, necesito abrir un archivo de Word existente, hago lo siguiente y me arroja el siguiente error:\n\noWord = TOleAuto():New( \"Word.Application\" )\noWord:OpenDoc(\"Prueba.Doc\")\n\nOPENDOC: DISP_E_UNKNOWNNAME\n\ny con:\n\noWord := TWord():New()\noWord:OpenDoc(\"Prueba.Doc\")\n\noWord:Preview()\n\nocurre un GPF\ncalled from OLEINVOKE(0)\ncalled from TWORD:PREVIEW(392)\n\nFW23, HARBOUR, BCC55\n\nGracias por su atencion..','',0,'gA==','15q2213w',1,0,'',325,0,0),(4501,1111,19,72,0,'201.154.240.187',1136233864,1,0,1,1,1,0,'','No solo hay que poner el huevo...','Bueno, finalmente y para iniciar con el año doy por liberada la versión a 32 bits del sistema de Registro Contable (RC).\n\nDescargas: <!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->\n\nComo no se vende lo estoy dejando Libre de Cargos!, si a alguien le interesa solo tendrá que solicitar la activación, y si les interesa alguna rutina pueden solicitarla.\n\nSaludos.','',0,'gA==','3aw504m4',1,0,'',72,0,0),(4502,1085,6,61,0,'200.40.235.218',1136242055,1,0,1,1,1,0,'','Felicitaciones...','Muy buenas noticias Antonio!!!\n\nEso quiere decir que Fivewin seguira por mucho tiempo.\n\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','3qcqlius',1,0,'',61,0,0),(4503,1099,6,255,0,'200.67.134.233',1136243474,1,0,1,1,1,1,'','','[quote=&quot;Verhoven&quot;:3ra22p35]1.-Siguiendo el consejo de importar el rc diréctamente el error que me da al volver a abrir un dialogo después de haberlo modificado (ya con el PellesC) es el siguiente:\n                  \" Unable to create window with class name \'Serif\'. \"\nNo entiendo a que se debe.\n2.-Si lo que hago es grabar con el WS en formato RES y después intentar abrirlo con el PellesC es el siguiente:\n     \"No new line at end of file\"\n     \"Filename archivo.res, line 1.\"\n    Ni idea de que puede pasar.\nGracias.[/quote:3ra22p35]\n\nQue tal si abres directamente tu EXE con el PellesC y\nlo guardas como .RES ????','',0,'gA==','3ra22p35',1,0,'',255,0,0),(4504,1083,6,45,0,'200.82.106.43',1136244976,1,0,1,1,1,0,'','Re: ESPECTACULAR','IM IM IM presionante   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','2ydnhzru',1,0,'',45,0,0),(4505,1108,6,295,0,'201.222.156.224',1136246317,1,0,1,1,1,1,'','','alguien tendrá por ahi algun ejemplo práctico?\nnecesito generar una planilla excel con los titulos:\n\n\"codigo\" \"producto\" \"cantidad\" \"valor\"\n\nla sintaxis de la texcels para fwclipper no es la misma en esta para FWH\n\nGRACIAS DE ANTEMANO\nSALUDOS','',0,'gA==','393cx5te',1,0,'',295,0,0),(4506,1103,1,125,0,'151.81.1.1',1136250016,1,0,1,1,1,0,'','','Thanks to all','',0,'gA==','2vfxbtrj',1,0,'',125,0,0),(4507,1112,18,300,0,'201.2.50.210',1136250453,1,0,1,1,1,0,'','Bug in SetDate()','Hi Antônio,\n\nSetDate(02,01,2006) returns 01/01/2006 why?\n\nFwh 2.7\n\nThanks.','',0,'gA==','6aj8acc3',1,0,'',300,0,0),(4508,1104,2,74,0,'190.48.211.228',1136252945,1,0,1,1,1,1,'','','Jose Luis:\n\n               Pegale una miradita a paperless printer, <!-- m --><a class=\"postlink\" href=\"http://www.rarefind.com/paperlessprinter/\">http://www.rarefind.com/paperlessprinter/</a><!-- m -->.\n\nSaludos,','',0,'gA==','25ohbez3',1,0,'',74,0,0),(4509,991,3,2,0,'80.32.22.38',1136272721,1,0,1,1,1,1,'','','Dionie,\n\nWe have improved Class TListView, so this code is properly working now:\n\n[code:d3njusqe]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n \n   local oWnd, oLvw, nOption &#58;= 1, oImageList\n\n   DEFINE WINDOW oWnd TITLE &quot;ListView Test&quot;\n\n   DEFINE IMAGELIST oImageList SIZE 32, 32\n\n   oImageList&#58;AddIcon&#40; &quot;console&quot; &#41;\n   oImageList&#58;AddIcon&#40; &quot;form&quot; &#41;\n   oImageList&#58;AddIcon&#40; &quot;library&quot; &#41;\n\n   @ 1, 1 LISTVIEW oLvw SIZE 300, 300 PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      ACTION MsgInfo&#40; nOption &#41;\n\n   oLvw&#58;SetImageList&#40; oImageList &#41;\n\n   ACTIVATE WINDOW oWnd\n   \n   oImageList&#58;End&#40;&#41;\n\nreturn nil\n[/code:d3njusqe]\n\nWe will publish these new changes in January 2006 FWH build.','',0,'AIA=','d3njusqe',1,0,'',2,0,0),(4510,986,6,2,0,'80.32.22.38',1136273450,1,0,1,1,1,1,'','','Jose Martín,\n\nYa hemos implementado esa mejora y se publicará en unos dias en el build de Enero 2006 de FWH.','',0,'AIA=','21bwc0r8',1,0,'',2,0,0),(4511,1104,2,265,0,'80.58.18.235',1136274409,1,0,1,1,1,0,'','','Hola Daniel:\n\nEl programa que me recomiendas ya lo adquirí hace tiempo, y también tengo otras impresoras y convertidores pdf, lo que necesito es como os he explicado es que me digais si hay otra forma de como os dije.\nHe visto en algunas aplicaciones que generan el pdf y lo envian via e-mail en segundo plano sin la intervención de operador.\nDe la manera que yo lo tengo planteado, cada vez que me recorre el bucle, y finaliza una factura, para grabarla en pdf me sale la ventanita de la impresora que me pide que le confirme la carpeta donde grabar el fichero que ha convertido a pdf, y quisiera que todo ésto lo hicera sin intervención del operador, es decir desde que le pulse el boton para imprimir facturas en pdf no aparezca más información que \"ya hemos terminado\", y si todo ha ido correcto, haya realizado dichas facturas en éste formato, y las ha enviado por e-mail cada una a su destinatario, teniendo en cuenta que en la base de datos de los clientes, haya un campo que contenga su dirección de correo electrónico.\n\nAlguna ayudita.\n\nUn Saludo a todos\n\nJose Luis','',0,'AIA=','ps5bpjve',1,0,'',265,0,0),(4512,1094,20,263,0,'217.222.223.34',1136275698,1,0,1,1,1,0,'','','Ciao Ugo,\nio faccio così:\n****************\nFUNCTION Main() \n****************\n.....................................\n....................................\n   REDEFINE GET oLDL VAR cLDL ID 109 OF oFld:aDialogs[6] READONLY FONT oFont2\n   REDEFINE BTNBMP oBtnLDL    ID 110 OF oFld:aDialogs[6] RESOURCE \"search\"          ;\n          ACTION  IIF(TabeSea(\"Legali\",\"Ricerca Legali\",2),(cLDLCod:=Legali-&gt;CodLeg,;\n          cLDL:=Legali-&gt;NomLeg,oLDL:Refresh()),)\n          oBtnLDL:cTOOLTIP:=\"Apre finestra Legali\"\n..............................\n...........................\nRETURN( nil )\n*************************************************\nFUNCTION TabeSea( cFile,cTit,nTab ) // RICERCA TABELLE\n*************************************************\nLOCAL oDlg, oBtnExt, oBtnNew, oBtnAll, oBtnPrn, oBtnHlp, oLbx, oBmp, oIco\nLOCAL cCerca:= \"\"\nLOCAL lSave := .f.\n\n(cFile)-&gt;(DBSETORDER(2))\nSELECT (cFile)\n(cFile)-&gt;(DBGOTOP())\nDEFINE FONT oFont1 NAME \"MS SANS SERIF\" SIZE 0, -8 BOLD\nDEFINE ICON oIco RESOURCE \"ricerca\"\nDEFINE DIALOG oDlg RESOURCE \"win\" TITLE cTit FONT oFont1 ICON oIco\n   REDEFINE BITMAP  oBmp    ID 101 OF oDlg RESOURCE \"scritta\"\n   REDEFINE LISTBOX oLbx FIELDS (cFile)-&gt;TabCod,(cFile)-&gt;TabDes;\n            ID 102 OF oDlg HEADERS \"Codice\", \"Descrizione\"     ;\n            FIELDSIZES 80,200 COLOR \"B*/W+\" FONT oFont2\n   oLbx:aJustify    := {.F.,.F.}\n   oLbx:nClrForeHead:= CLR_HRED\n   oLbx:bKeyDown    := {|nKey|IIF(nKey == VK_RETURN,(lSave := .t.,oDlg:End() )  ,;\n                        (cCerca+=UPPER(CHR(nKey)),IIF(!(cFile)-&gt;(DBSEEK(cCerca)),;\n                        (cCerca:=\"\",oLbx:GoTop()),))),oLbx:Refresh()}\n   oLbx:bLDblClick  := {||cCerca:=\"\",lSave:=.t.,oDlg:End()}\n   REDEFINE BUTTON oBtnExt ID 580 OF oDlg ACTION (oDlg:End())\n            oBtnExt:cTOOLTIP:=\"Esce senza selezione\"\n   REDEFINE BUTTON oBtnNew ID 510 OF oDlg ACTION (Tabelle(nTab),;\n            oLbx:GoTop(),oLbx:Refresh())\n            oBtnNew:cTOOLTIP:=\"Nuovo Record\"\n   REDEFINE BUTTON oBtnAll ID 670 OF oDlg\n   REDEFINE BUTTON oBtnPrn ID 590 OF oDlg\n   REDEFINE BUTTON oBtnHlp ID 730 OF oDlg\n   oBmp:lTransparent:=.t.\nACTIVATE DIALOG oDlg CENTERED ON INIT oLbx:GoTop()\n(cFile)-&gt;(DBSETORDER(1))\nRETURN( lSave )\n\nSpero possa esserti di aiuto.\nGiovanni Cacciotti','',0,'','2lxoflui',1,0,'',263,0,0),(4513,1113,2,387,0,'193.146.189.100',1136293094,1,0,1,1,1,0,'','Tget Error objects/14 Bad Operator Tget:Dec','Hola a todos, \n\n\n   Necesito ayuda para solucionar el error [i:2cdgc7qp][b:2cdgc7qp]\"Error Description: Error Objects/14 Bad Operator: TGET:DEC\"[/b:2cdgc7qp][/i:2cdgc7qp]\n  Tengo un aplicación con varias ventanas y el citado error sólo ocurre cuando intento abrir una ventana que contienga algún get. Sin embargo, puedo abrir perfectmente otras ventanas de la misma aplicación que no contienen ningún control del tipo get.\n   El error aparece antes de mostrar ningún elemento del diálogo.\n\n¿   Alguien me podría echar una mano para solucionarlo ?\n\nMuchas gracias!','',0,'YA==','2cdgc7qp',1,0,'',387,0,0),(4514,1099,6,75,0,'83.52.15.43',1136297172,1,0,1,1,1,0,'','','Es peor todavía, al modificar un control en cualquier diálogo (simplemente cambiándolo de posición ligeramente) y salir de la edición y volver a entrar, resulta que han desaparecido todos los controles.','',0,'YA==','1u6iamz6',1,0,'',75,0,0),(4515,1114,4,213,0,'68.203.142.6',1136299110,1,0,1,1,1,0,'','Signatures','All,\n\nHas anyone devised a way to capture a signature and save it as a graphic image?\n\nThanks,\nRandal Ferguson','',0,'YA==','1exrpr0x',1,0,'',213,0,0),(4516,1115,4,213,0,'68.203.142.6',1136299186,1,0,1,1,1,0,'','Syncronization','All,\n\nI\'d like to know how some of you are handling moving data back &amp; forth between the desktop and the pocketpc.  How are you syncronizing the data on the pocketpc with the data on the desktop?\n\nThanks,\nRandal Ferguson','',0,'YA==','3ed9wekv',1,0,'',213,0,0),(4517,1114,4,2,0,'80.32.22.38',1136299504,1,0,1,1,1,1,'','','Randal,\n\nWe have not build a sample yet, but you can use MouseMove events to SetPixel( nRow, nCol ) the touched pixels and finally create a bitmap to save from the hDC.','',0,'YA==','3h2bv6mj',1,0,'',2,0,0),(4518,1085,6,228,0,'201.245.222.85',1136299968,1,0,1,1,1,1,'','Felicitaciones:','Antonio, de verdad que muchas felicitaciones para ti y todas las personas que aportan al proyecto. \n\nY lo  mejor de todo es que tenemos fw, para rato.\n\nUn abrazo <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'YA==','3d6uniug',1,0,'',228,0,0),(4519,1115,4,63,0,'80.58.35.107',1136300009,1,0,1,1,1,0,'','','Randall:\n\nI use MigthySync.  You can download it here: \n[url:oiz949ii]http&#58;//www&#46;mydocsunlimited&#46;com/html/mightysync&#46;html[/url:oiz949ii]\nIt is not free, but at US$ 5.95 it is a real bargain.\n\nAmong other things, this utility can sync both data in user RAM and in Removable storage.\n\nRegarding the method of syncronizing, I guess it depends much on the nature of your application.  In my case, my first adventure with FWPPC has been a very specialized CRM.  I do not sync directly with the PC, but download some files from the PC to the Pocket (and viceversa). The storage card provides ample space for that.  Then, I perform the sync off-line, record by record.  It is a rather crude system, but it works fine and has proved to be quite inmune to user errors.\n\nHope this helps.  Best regards,\n\nRafael','',0,'EA==','oiz949ii',1,0,'',63,0,0),(4520,1080,6,228,0,'201.245.222.85',1136300159,1,0,1,1,1,1,'','Gracias','Rene muchas gracias por tu ayuda me funciono muy bien. \n\nPero como siempre se sale de una y se ingresa a otra, como hago para hacerlo al reves, osea generar un archivo plano desde una dbf separada por Comas o punto y comas.','',0,'EA==','13t5iujy',1,0,'',228,0,0),(4522,1099,6,255,0,'200.67.134.233',1136300659,1,0,1,1,1,1,'','','[quote=&quot;Verhoven&quot;:2iimgwp9]Es peor todavía, al modificar un control en cualquier diálogo (simplemente cambiándolo de posición ligeramente) y salir de la edición y volver a entrar, resulta que han desaparecido todos los controles.[/quote:2iimgwp9]\n\nmmmmmmmm, es raro, las dos cosas que te mencioné\ncon anterioridad, yo mismo las apliqué en mis programas\ny me funcionaron.\n\nPodrias enviarme tu .RES con tu .RC  ??? \na jcso \"arroba\" esm.com.mx\n\nveremos que pasa.','',0,'gA==','2iimgwp9',1,0,'',255,0,0),(4523,1116,3,230,0,'152.163.100.66',1136302875,1,0,1,1,1,0,'','Hyperupload File will not Open','I Have tryed to Download and upzip files from hyperupload but\nI have not been able to unzip the files to read they.  All I get\nwhen I try to access the files I downloaded is the front end logo\nscreen from hyperupload.  How do I access the Zip files from\nhyperupload?  Below is the link to one of the files that I am\ntrying to download.  \n\nI just get UEStudio and I am trying to config it to work with\nxHarbour.\n\n\nThank you\nJim Bohanan Jr.\n\n\nYou may download wordfile.txt from here: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b2c35955/wordfile.zip.html\">http://hyperupload.com/download/b2c3595 ... e.zip.html</a><!-- m --> \nand replace the one that comes with UltraEdit.','',0,'gA==','39443rxy',1,0,'',230,0,0),(4524,1117,6,295,0,'201.246.205.7',1136303675,1,0,1,1,1,1,'','algún ejemplo practico con la texcels?','alguien tendrá por ahi algun ejemplo práctico? \nnecesito generar una planilla excel con los titulos: \n\n\"codigo\" \"producto\" \"cantidad\" \"valor\" \n\nla sintaxis de la texcels para fwclipper no es la misma en esta para FWH \n\nGRACIAS DE ANTEMANO \nSALUDOS','',0,'gA==','2mq7qanp',1,0,'',295,0,0),(4525,1117,6,18,0,'200.67.188.236',1136305983,1,0,1,1,1,1,'','Re: algún ejemplo practico con la texcels?','En <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/download/excel/\">http://vikthor.com.mx/download/excel/</a><!-- m --> encontraras muchos ejemplos.','',0,'gA==','2dqz6yft',1,0,'',18,0,0),(4526,1118,6,386,0,'80.58.50.109',1136307916,1,0,1,1,1,0,'','Compilar varios PRG','Estoy realizando un programa con fivewin, lo compilo con C3 y el ejecutable lo realizo con tlink32. Mientras utilizo un sólo .prg no hay problema, pero cuando desde el archivo principal llamo a otro archivo (p.e. ACTION Clientes()) para llamar al archivo clientes.prg me da un error \"Unresolved external\". Tengo un archivo .bat (buildc3.bat) que ejecuta las instrucciones de compilar y linkar. Quisiera saber qué hago mal.','',0,'gA==','1qaufbuc',1,0,'',386,0,0),(4527,1080,6,138,0,'201.128.111.75',1136308412,1,0,1,1,1,1,'','','pues al reves....\n\nUSE Archivo.dbf\nCOPY TO archivo.txt SDF DELIMITED WITH \";\"','',0,'gA==','2iimrkbb',1,0,'',138,0,0),(4528,1119,3,382,0,'80.140.207.251',1136308504,1,0,1,1,1,0,'','unresolved symbol _hb_stack','If I link in Ct3.Lib with FWH 2.7 (MSVC / xHarbour), I get unresolved symbols in _hb_stack (e.g. CharOne).','',0,'gA==','3rsvt9q7',1,0,'',382,0,0),(4529,1120,6,110,0,'165.98.151.243',1136308614,1,0,1,1,1,1,'','Antonio se pude utilizar el ocx mscomm','Antonio una preguntonta\n\nse puede utilizar el control ocx mscomm para lectura y escritura de puertos\ncon tactivex?, es posible utilizar sus eventos?\n\n\nsalu2\ncarlols vargas','',0,'gA==','2dgfi4ma',1,0,'',110,0,0),(4530,1121,20,125,0,'151.81.1.219',1136311493,1,0,1,1,1,0,'','Menu popup per cella di twbrowse ?','Salve, come al silito quando serve non me la trovo. \n-Mi riferiscio alla possibilità di fare un menu\' poput per una singola cella del  twbrowse (non della colonna, quella riesco)\n\nGrazie\nP/Z','',0,'gA==','2l4mwonf',1,0,'',125,0,0),(4531,1122,18,110,0,'165.98.151.243',1136311520,1,0,1,1,1,1,'','Bug in checkbox in folder (dot border) with themes (fixed)','Hola Antonio, \n\neste codigo muestra un error que tiene hace tiempo fwh con los checkbox \ncuando estan contenidos en folder, si empiezas a presionar la tecla tab para moverte entre los controls del dialogo miraras que la primera vez quel el chekbox obtenga foco no mostrara el tipico borde punteado, la siguiente ves lo tomara pero al perder el foco mantiene el borde.\n\nesto no ocurre cuando no aplicas el tema de winxp.\n\n[code:158exehw]\n//win32&#46;prg\n#include &quot;fivewin&#46;ch&quot;\n\nPROCEDURE Main&#40;&#41;\n\n	LOCAL oDlg, oFolder\n	LOCAL cVar0, cVar1, cVar2, lVar1, lVar2\n\n	cVar0 &#58;= space&#40;10&#41;\n	cVar1 &#58;= space&#40;20&#41;\n	cVar2 &#58;= space&#40;20&#41;\n	lVar1 &#58;= &#46;t&#46;\n	lVar2 &#58;= &#46;t&#46;\n\n	DEFINE DIALOG oDlg NAME &quot;Main&quot;\n\n	REDEFINE GET cVar0 ID 101 OF oDlg\n\n	REDEFINE FOLDER oFolder ID 102 OF oDlg ;\n		PROMPT &quot;&amp;Uno&quot;, &quot;&amp;Dos&quot; ;\n		DIALOGS &quot;Page1&quot;, &quot;Page2&quot;\n\n		REDEFINE GET cVar1 ID 101 OF oFolder&#58;aDialogs&#91;1&#93;\n		REDEFINE CHECKBOX lVar1 ID 102 OF oFolder&#58;aDialogs&#91;1&#93;\n\n		REDEFINE GET cVar2 ID 101 OF oFolder&#58;aDialogs&#91;2&#93;\n		REDEFINE CHECKBOX lVar2 ID 102 OF oFolder&#58;aDialogs&#91;2&#93;\n\n	REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg&#58;end&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nRETURN NIL\n\n[/code:158exehw]\n\n[code:158exehw]\n//win32&#46;rc\n1 24 &quot;winxp&#46;man&quot;\n\nmain DIALOG 8, 53, 262, 200\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Error de Checkbox en folder&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Codigo&quot;, -1, 9, 8, 32, 8\n EDITTEXT 101, 43, 8, 53, 12\n CONTROL &quot;&quot;, 102, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 27, 256, 151\n PUSHBUTTON &quot;Cerrar&quot;, 103, 210, 182, 50, 14\n&#125;\n\n\nPage1 DIALOG 6, 15, 161, 114\nSTYLE 0x4L | WS_CHILD | WS_VISIBLE\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Codigo&quot;, -1, 9, 9, 30, 8\n EDITTEXT 101, 36, 9, 51, 12\n CHECKBOX &quot;Casado&quot;, 102, 37, 24, 49, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;\n\n\nPage2 DIALOG 6, 15, 161, 114\nSTYLE 0x4L | WS_CHILD | WS_VISIBLE\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Codigo&quot;, -1, 9, 9, 30, 8\n EDITTEXT 101, 36, 9, 51, 12\n CHECKBOX &quot;Casado&quot;, 102, 37, 24, 49, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;\n\n[/code:158exehw]','',0,'AIA=','158exehw',1,0,'',110,0,0),(4532,1123,3,388,0,'61.5.0.212',1136312621,1,0,1,1,1,0,'','need sbrowseh.lib version 6.0','hi all,\n\ndoes any one have sbrowseh.lib version 6.0 ?\n\nThanks,\n\nKok','',0,'AIA=','3hnemcwg',1,0,'',388,0,0),(4533,1116,3,2,0,'80.32.22.38',1136312780,1,0,1,1,1,1,'','','Jim,\n\nPlease notice in this picture where you have to click to download the file:\n\n[url=http&#58;//imageshack&#46;us:1x4ckxei][img:1x4ckxei]http&#58;//img447&#46;imageshack&#46;us/img447/6924/hyper6hk&#46;jpg[/img:1x4ckxei][/url:1x4ckxei]','',0,'GA==','1x4ckxei',1,0,'',2,0,0),(4534,1122,18,110,0,'165.98.151.243',1136312904,1,0,1,1,1,1,'','','caba aclarar con fwh 2.6, xharbour y harbour, bcc55.\n\nuna imagen del problema\n\n[url=http&#58;//img274&#46;imageshack&#46;us/my&#46;php?image=bug5ur&#46;jpg:3kkvow0i][img:3kkvow0i]http&#58;//img274&#46;imageshack&#46;us/img274/4716/bug5ur&#46;th&#46;jpg[/img:3kkvow0i][/url:3kkvow0i]\n\nsalu2\ncarlos vargas[/url]','',0,'GA==','3kkvow0i',1,0,'',110,0,0),(4535,1119,3,2,0,'80.32.22.38',1136313027,1,0,1,1,1,1,'','','Frank Peter,\n\nYou need an upgraded Ct3.Lib that has been built with a recent xharbour build.','',0,'GA==','2aikyke0',1,0,'',2,0,0),(4536,1118,6,2,0,'80.32.22.38',1136313675,1,0,1,1,1,1,'','','Ventura,\n\nTienes que modificar el fichero buildc3.bat para que admita más de un fichero PRG:\n\n%C3DIR%\\bin\\c3 %1 -D__C3__ /n/a/v/w/i..\\include;c:\\c3\\include &gt; comp.log\n\n%C3DIR%\\bin\\c3 otro -D__C3__ /n/a/v/w/i..\\include;c:\\c3\\include &gt; comp.log\n\n...\n\nECHO Linking...\necho %C3DIR%\\lib32\\startup.obj + &gt; b32.bc\necho %1.obj otro.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\n\nEn este caso hemos añadido otro.prg, asi puedes hacer con tantos PRGs como necesites.','',0,'GA==','1treewht',1,0,'',2,0,0),(4537,1110,6,215,0,'201.154.100.193',1136313725,1,0,1,1,1,0,'','Re: classe TWord','Prueba esto\n\noWord:OpenDoc( DirDondeEstaElDocumento+\"Prueba.Doc\")\n\nó lo que sería lo mismo\n\noWord:OpenDoc( \"C:\\Docs\\Prueba.Doc\")\n\no como se quiera que se llame tu directorio donde está el archivo que quieres abrir.','',0,'GA==','393if8kw',1,0,'',215,0,0),(4538,1120,6,2,0,'80.32.22.38',1136313785,1,0,1,1,1,1,'','','Carlos,\n\nSí, se puede usar, aunque hace falta tener instalado Visual Basic (ó alguno de sus ficheros).\n\nEl problema es que aún no tenemos implementado el soporte de eventos <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'GA==','1bbre408',1,0,'',2,0,0),(4539,1110,6,325,0,'201.124.132.49',1136319179,1,0,1,1,1,0,'','Re: classe TWord','Gracias por tu respuesta fleal, pero no me funciono!!!, y por lo que estuve leyendo, la clase: oWord=TOleAuto():New( \"Word.Application\" ), es de xHarbour, y yo utilizo Harbour, y no doy con bola, si se trata de crear un nuevo documento, modificarlo, previzualizarlo e imprimirlo, no hay problema, el problema lo tengo cuando el documento ya esta creado y lo quiero modificar desde la clase TWord, cualquier comentario será agradecido.\n\nGracias.','',0,'GA==','vf7tojht',1,0,'',325,0,0),(4540,1119,3,382,0,'80.140.237.156',1136322397,1,0,1,1,1,0,'','','Is there a new version of ct3.lib fully compatible with current xharbour \n? If yes, where to download it ?\n\nthanks,\n\nFrank Peter','',0,'GA==','gj3s5v00',1,0,'',382,0,0),(4541,1094,20,154,0,'151.81.0.64',1136322677,1,0,1,1,1,1,'','','Ciao Giovanni,\niniziato bene l\'anno?\nspero di si!\n\nLo provo e ti dico...\n...sicuramente è meglio di niente. <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nCiao e grazie,\nUgo','',0,'GA==','1ngidwmk',1,0,'',154,0,0),(4542,1124,6,262,0,'83.97.168.83',1136323480,1,0,1,1,1,1,'','off topic : filtro aof() sobre fecha','como se hace un filtro aof sobre fecha ?\nsupongamos :\n[code:da91llun]\ndfecha&#58;=date&#40;&#41;-90\ncfiltro&#58;=&quot;facturas-&gt;fecha &gt;=&quot;+dtoc&#40;dfecha&#41;\nbfiltro&#58;=&amp;&#40;&quot;&#123;||&quot;+cfiltro+&quot;&#125;&quot; &#41;\nfacturas-&gt;&#40;dbsetfilter&#40;bfiltro,cfiltro&#41;&#41;\n[/code:da91llun]\n\nno me funciona en xharbour y ads , ¿donde está el fallo ?','',0,'AIA=','da91llun',1,0,'',262,0,0),(4543,1116,3,230,0,'64.12.116.66',1136328572,1,0,1,1,1,0,'','','Yes I click on the Download Link and the File download\'s.  But after\nit finishes downloading I have a File on my Computer named\n\n(wordfile.zip.html) and when I click on that file All I get is the\nHyperupload Logo as display in your Message.\n\nThank you\nJim Bohanan','',0,'AIA=','fykn47bi',1,0,'',230,0,0),(4544,1080,6,228,0,'201.245.222.85',1136329999,1,0,1,1,1,1,'','gracias Rene','De nuevo gracias master.','',0,'AIA=','3cysfx5u',1,0,'',228,0,0),(4545,1125,6,228,0,'201.245.222.85',1136330748,1,0,1,1,1,1,'','Meter Estilo windows XP','Colegas del foro como estan. Como dice el encabezado quiero que el meter sea del mismo estilo de windows xp. Ya introduje en el .rc la siguiente clausula.\n\n#ifdef __FLAT__\n1 24 \"temasXP.man\"\n\nMe funcionan todos los demas objetos con exepcion de los meter y los botones BTNBMP, falta algo o simplemente no funciona para estos objetos.','',0,'AIA=','urqzzxea',1,0,'',228,0,0),(4546,1126,6,228,0,'201.245.222.85',1136331322,1,0,1,1,1,1,'','Dos preguntontas mas?','1- Donde puedo conseguir el txbrowse.\n\n2- Un buen ejemplo para el manejo de ventanas MDI, desde recursos. Ya he leido todos lo que vienen en fwh y sigo sin entender. O me serviria un manual.\n\nNos leemos','',0,'AIA=','sp04m7zx',1,0,'',228,0,0),(4547,1116,3,2,0,'80.32.22.38',1136333962,1,0,1,1,1,1,'','','Jim,\n\nYou have to left click on it, not right click.','',0,'AIA=','39mxy1eb',1,0,'',2,0,0),(4548,1125,6,18,0,'201.129.2.108',1136334652,1,0,1,1,1,1,'','Re: Meter Estilo windows XP','La clase TMeter y TBtnBmp no soportar temas XP, en su lugar debes de usar la Clase TProgress y una clase TButtonm que modifico Rossine.','',0,'AIA=','2iuua6om',1,0,'',18,0,0),(4549,1126,6,18,0,'201.129.2.108',1136335089,1,0,1,1,1,1,'','Re: Dos preguntontas mas?','1- Donde puedo conseguir el txbrowse.\n\n[i:3t8gl6e1]Esa clase viene incluida en las versiones más recientes de FiveWin.[/i:3t8gl6e1]\n\n2- Un buen ejemplo para el manejo de ventanas MDI, desde recursos. Ya he leido todos lo que vienen en fwh y sigo sin entender. O me serviria un manual.\n\n[i:3t8gl6e1]Puedes encontrar un buen manual en <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin\">http://vikthor.com.mx/fivewin</a><!-- m -->[/i:3t8gl6e1]','',0,'IA==','3t8gl6e1',1,0,'',18,0,0),(4550,1108,6,18,0,'201.129.2.108',1136335266,1,0,1,1,1,1,'','','[i:3hswg63p][b:3hswg63p]Puedes encontrar varios ejemplos en <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/download/excel\">http://vikthor.com.mx/download/excel</a><!-- m -->[/b:3hswg63p][/i:3hswg63p]','',0,'YA==','3hswg63p',1,0,'',18,0,0),(4551,1110,6,18,0,'201.129.2.108',1136335532,1,0,1,1,1,1,'','Re: classe TWord','Revisa si el método New de tu clase es similar a este :\n\n[code:1mcb5s09]METHOD OpenDoc&#40; cNombreDoc &#41;  CLASS TWord\n       local sal &#58;= &#46;t&#46;\n       &#58;&#58;oDocs &#58;= &#58;&#58;oWord&#58;Get&#40; &quot;Documents&quot; &#41;\n       if file&#40; cNombreDoc &#41;\n          &#58;&#58;oActiveDoc  &#58;= &#58;&#58;oDocs&#58;Invoke&#40; &quot;Open&quot;,cNombreDoc &#41;\n          if valtype&#40;&#58;&#58;oActiveDoc&#41; &lt;&gt; \'O\'\n             sal &#58;= &#46;f&#46;\n          endif\n       else\n          sal &#58;= &#46;f&#46;\n       endif\n       &#58;&#58;oTexto        &#58;= &#58;&#58;oWord&#58;Get&#40; &quot;Selection&quot; &#41;\n       &#58;&#58;oOptions      &#58;= &#58;&#58;oWord&#58;Get&#40;&quot;Options&quot;&#41;              // Vikthor\n       &#58;&#58;oMailMerge    &#58;= &#58;&#58;oActiveDoc&#58;Get&#40; &quot;MailMerge&quot;&#41;    // Vikthor\n       &#58;&#58;oTables       &#58;= &#58;&#58;oActiveDoc&#58;Get&#40; &quot;Tables&quot;&#41;              // Vikthor\n       &#58;&#58;cNombreDoc    &#58;= cNombreDoc\n       &#58;&#58;nLinea        &#58;= 0\n       &#58;&#58;nCol          &#58;= 0\n       &#58;&#58;nPage         &#58;= 0\n       &#58;&#58;nYoffset      &#58;= 0\n       &#58;&#58;nXoffset      &#58;= 0\n       &#58;&#58;oSelection    &#58;= &#58;&#58;oActiveDoc\n       &#58;&#58;lstartpag     &#58;= &#46;t&#46;\n       &#58;&#58;lsetcm        &#58;= &#46;f&#46;\n       &#58;&#58;lOverflowing  &#58;= &#46;f&#46;\n       &#58;&#58;nlastrow      &#58;= 0\n       &#58;&#58;ctextoverflow &#58;= \'\'\n\n       return sal\n[/code:1mcb5s09]','',0,'AIA=','1mcb5s09',1,0,'',18,0,0),(4552,801,1,303,0,'68.7.28.54',1136335813,1,0,1,1,1,0,'','','[quote=&quot;Detlef Hoefner&quot;:faxnzhx8]\nmy problem is not to do something after a dialog is closed but when it\'s loosing focus.\nI can not catch the moment when a user clicks outside the dialog.\n[/quote:faxnzhx8]\n\nHmm. Since the dialog is modal, the only way it can loose focus is if you click outside the application. Is that what you mean? \n\nJames','',0,'gA==','faxnzhx8',1,0,'',303,0,0),(4553,1127,6,73,0,'201.138.166.223',1136336308,1,0,1,1,1,0,'','vulnerabilidad WMF','disculpen el poner el OT aqui,\nhola foro, pues por aqui leyedo una informacion, no se que tan veridica sea pero ahi se las dejo por si alguien sabe algo.. \nhay un parche publicado por Ilfak Guilfanov \n\n<!-- w --><a class=\"postlink\" href=\"http://www.hexblog.com\">www.hexblog.com</a><!-- w --> \n<!-- w --><a class=\"postlink\" href=\"http://www.hispasec.com\">www.hispasec.com</a><!-- w --> \n<!-- m --><a class=\"postlink\" href=\"http://www.hispasec.com/unaaldia/2626\">http://www.hispasec.com/unaaldia/2626</a><!-- m -->\n\nsaludos','',0,'gA==','srlcwvdz',1,0,'',73,0,0),(4554,1128,6,219,0,'201.137.19.207',1136336324,1,0,1,1,1,0,'','Mensajes de error al compilar con xHarbour de Fivetechsof','Que tal amigos, \"FELIZ AÑO NUEVO\"  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAguién me puede orientar para solucionar los mensajes de error que me sales cuando trato de contruir un exe en modo consola, con la version de xHarbour bajada desde Fivechtsoft.\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntestado2.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\n\nUso el bldtest.bat que a su vez llama bld.bat\n\nSaludos\n\nJosé Luis\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','21q2wy68',1,0,'',219,0,0),(4555,1110,6,325,0,'201.124.132.49',1136337197,1,0,1,1,1,0,'','Re: classe TWord','Gracias Vickthor por contestar.\n\nPues no, es diferente en las Datas y los Methodos que llama la clase, que veo es modificada por Ti, serias tan amable de decirme si la puedo descargar de alguna parte o pasarmela a mi correo <!-- e --><a href=\"mailto:fco_ozuna@prodigy.net.mx\">fco_ozuna@prodigy.net.mx</a><!-- e -->, te lo agradeceria mucho.\n\nGracias....','',0,'gA==','24sdlz8e',1,0,'',325,0,0),(4556,1128,6,325,0,'201.124.132.49',1136337483,1,0,1,1,1,0,'','Re: Mensajes de error al compilar con xHarbour de Fivetechso','Igualmente  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nHay que enlazar la librería dbffpt.lib y hbsix.lib\n\n<!-- e --><a href=\"mailto:fco_ozuna@prodigy.net.mx\">fco_ozuna@prodigy.net.mx</a><!-- e -->','',0,'gA==','1mngz2g7',1,0,'',325,0,0),(4557,1110,6,18,0,'201.129.2.108',1136339229,1,0,1,1,1,1,'','Re: classe TWord','¡listo el pollo!... Enviada a tu cuenta de correo.','',0,'gA==','iupk0673',1,0,'',18,0,0),(4558,1128,6,219,0,'201.137.19.207',1136345215,1,0,1,1,1,0,'','Re: Mensajes de error al compilar con xHarbour de Fivetechso','[quote=&quot;Fco_Ozuna&quot;:lsiz81gw]Igualmente  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nHay que enlazar la librería dbffpt.lib y hbsix.lib\n\n<!-- e --><a href=\"mailto:fco_ozuna@prodigy.net.mx\">fco_ozuna@prodigy.net.mx</a><!-- e -->[/quote:lsiz81gw]\n\n\nHombre, muchas gracias, \n\nes verdad, me faltaba la hbsix.lib\n\nSaludos\n\nJosé Luis  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gA==','lsiz81gw',1,0,'',219,0,0),(4559,1129,6,252,0,'201.140.21.217',1136348580,1,0,1,1,1,0,'','Pregunta sobre manejo de word con hbole','Feliz año amigos del foro.\n\n       Estoy usando la clase ole para exportar un archivo de texto a word. Hasta ahora todo iba bien, pero me atore porque no se como seleccionar la orientacion orizontal del documento.\n\n\n      ¿alguien sabe como hacerlo?.\n\n       De antemano Muchas Gracias.\n  \n      Jose Rios.','',0,'gA==','fz76xf0j',1,0,'',252,0,0),(4560,1119,3,2,0,'80.32.22.38',1136360179,1,0,1,1,1,1,'','','Frank Peter,\n\nPlease download this one and try it. Notice it is named ct.lib and not ct3.lib:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b847c870/ct.zip.html\">http://hyperupload.com/download/b847c870/ct.zip.html</a><!-- m -->','',0,'gA==','30sfefu7',1,0,'',2,0,0),(4561,1125,6,2,0,'80.32.22.38',1136360415,1,0,1,1,1,1,'','','Leandro,\n\nFWH proporciona la clase TButtonBmp con soporte de imágenes y temas. Revisa el ejemplo samples\\TestBuBm.prg','',0,'gA==','2sl98nrw',1,0,'',2,0,0),(4562,1110,6,2,0,'80.32.22.38',1136360556,1,0,1,1,1,1,'','','Vikthor,\n\nPuedes publicarla en algún sitio, como <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> para que la descargue quien la necesite ? gracias.','',0,'gA==','1yn7u752',1,0,'',2,0,0),(4563,967,22,2,0,'80.32.22.38',1136365734,1,0,1,1,1,1,'','','Kleyber,\n\nAs easy as run your application, then run dpus.exe and make click on your application window:\n\n[url=http&#58;//imageshack&#46;us:15czxepk][img:15czxepk]http&#58;//img479&#46;imageshack&#46;us/img479/255/gdi5oo&#46;jpg[/img:15czxepk][/url:15czxepk]\n\nthough it seems that the reported information is not very reliable.','',0,'GA==','15czxepk',1,0,'',2,0,0),(4564,1130,5,270,0,'65.27.183.36',1136375937,1,0,1,1,1,0,'','Gets not Greyed when WHEN is false','I just noticed that GET clauses do not grey out when the WHEN clause is false.  COMBOBOXes are greyed as expected.  I\'m pretty sure that this did work this way at one time.\n\nFor example:\n\n@ 1, 1 GET oCalldate VAR cCallDate WHEN ( .F. ) OF oDlg\n\ndoes not show the field greyed out.\n\nDoes anyone else see this issue?\n\nI am using xBase ver 1.9 RC2.\n\nDan','',0,'GA==','7uhps5z9',1,0,'',270,0,0),(4565,1130,5,2,0,'80.32.22.38',1136379977,1,0,1,1,1,1,'','','Dan,\n\nWe have modified it intentionatelly. Now you can set any color you want for disabled GETs. Simply do oGet:SetColor( ..., ... ).','',0,'GA==','uq7uepub',1,0,'',2,0,0),(4566,1131,6,251,0,'200.84.23.34',1136381593,1,0,1,1,1,0,'','problema con nombre de usuario publico en cualquier parte','saludos, feliz año,\n\ncomo saben soy nuevo en harbour, y estoy migrando toda mi aplicacion de clipper, y bueno........¡\n\n\nTengo el siguiente problema: mi programa tiene varios prg, y cuando ingreso al mismo, le solicito una solo la clave al usuario y la valido contra un archivo dbf, en el cual esta la clave y el nombre del usuario, ahora bien quiero guardar ese nombre en una variable publica para usarla en cualquier parte del programa, para saber en todo momento como se llama el usuario. trate de hacerlo con una funcion que pasa el nombre de aqui para alla, pero necesito una manera mas sencilla\n\nclaveusu(cpass)   donde cpass es la clave que introdujo el cliente\n\n\nFUNCTION CLAVEUSU(cPass,prueb1)\n \nIF NUSE(\'.\\DATA\\DB010\',.T.,5,\'\',\'CLAVES\')  //ABRO EN MODO SHARE LA TABLA CLAVES\nELSE\n   CLOSE DATA\n   RETURN NIL\nENDIF\n\nSelect claves\nDBGOTOP()\nDO WHILE .NOT. EOF()\n    IF claves-&gt;clave=cpass\n	usuario:=claves-&gt;nombre    ------&gt;esta es la que quiero ver  \n          CLOSE claves                                      desde cualquier parte, \n         RETURN .T.                                           como la defino y manejo\n    ENDIF                                                        para tenerla siempre\n    SKIP                                                          activa\nENDDO\n  close claves\nRETURN .F.\n\nyo en clipper la coloca publica y listo pero aqui no tengo ni idea, y la manera que he conseguido es super complicada y engorrosa. y este metodo debo usarlo en gran parte de todo mi programa.\n\nde antemano gracias.','',0,'GA==','2i0ff0nh',1,0,'',251,0,0),(4567,1132,6,87,0,'83.41.209.59',1136382473,1,0,1,1,1,0,'','Clase Report   ?','Hola \n\n  Como puedo saber el número de filas que puedo imprimir en una página ?\n\n\n Un saludo y gracias','',0,'GA==','2zh1t1xj',1,0,'',87,0,0),(4568,1133,1,204,0,'87.203.233.27',1136383263,1,0,1,1,1,0,'','GPF in ALLOC_TEXT','Hello to all. I’m getting a GPF from one of my apps. The GPF accurse while indexing the main DBF for the first time. When I delete the CDX file and restart the app there is no GPF. From the MAP file the GPF address is somewhere in ALLOC_TEXT (0010:412F)\n[code:xyafdtza]\n0010&#58;3E04 00692H     ALLOC_TEXT             CODE\n[/code:xyafdtza]\nThis is strange because I use the same technique in all my apps when indexing. The code I use if as follows\n[code]\nSTATIC cId1&#58;=&quot;$Id&#58; ADI_OPEN.PRG,v 1.1 2006/01/03 22&#58;07&#58;16 &#935;&#929;&#927;&#925;&#919;&#931; Exp $&quot;\n\n#include &quot;SIXCDX2.CH&quot;\n#include &quot;FiveWin.ch&quot;\n\n#command INDEX ON &lt;key&gt; TAG &lt;&#40;tag&#41;&gt; &#91;OF &lt;&#40;cdx&#41;&gt;&#93;                        ;\n         &#91;FOR &lt;for&gt;&#93;                                                    ;\n         &#91;ALL&#93;                                                          ;\n         &#91;ASCENDING&#93;                                                    ;\n         &#91;&lt;dec&#58;  DESCENDING&gt;&#93;                                           ;\n         &#91;&lt;u&#58;    UNIQUE&gt;&#93;                                               ;\n         &#91;&lt;cur&#58;   USECURRENT&gt;&#93;                                          ;\n         &#91;&lt;cur&#58;   SUBINDEX&gt;&#93;                                            ;\n         &#91;EVAL    &lt;opt&gt; &#91;EVERY &lt;step&gt;&#93;&#93;                                 ;\n         &#91;OPTION &lt;opt&gt; &#91;STEP &lt;step&gt;&#93;&#93;                                   ;\n         &#91;&lt;add&#58;   ADDITIVE&gt;&#93;                                            ;\n         &#91;&lt;filt&#58;  FILTERON&gt;&#93;                                            ;\n =&gt;                                                                     ;\n         m6_ordCondSet&#40;&lt;&quot;for&quot;&gt;, &lt;&#123;for&#125;&gt;, NIL, NIL, &lt;&#123;opt&#125;&gt;,             ;\n                       &lt;step&gt;, RECNO&#40;&#41;, NIL, NIL, NIL, &#91;&lt;.dec.&gt;&#93;,       ;\n                       .T., &lt;&#40;cdx&#41;&gt;, &lt;.cur.&gt;, .F., NIL, &lt;.add.&gt;, NIL,   ;\n                       &lt;.filt.&gt; &#41;                                       ;\n       ; m6_ordCreate&#40; &lt;&#40;cdx&#41;&gt;, &lt;&#40;tag&#41;&gt;, &lt;&quot;key&quot;&gt;, &lt;&#123;key&#125;&gt;, &#91;&lt;.u.&gt;&#93; &#41;\n\nFUNCTION OpenDbfs&#40;&#41;\n  PRIVATE oDlg1,;\n        oMeter1,;\n        nMeter1 &#58;= 0,;\n        oMeter2,;\n        nMeter2 &#58;= 0,;\n        lRetVal &#58;= .F.,;\n        oOpenIco,;\n        lDlgKill\n\n  lDlgKill &#58;= .F.\n\n  DEFINE DIALOG oDlg1 NAME &quot;FLS_OPEN&quot;;\n    FONT oMainFont OF oMainWin;\n    COLOR CLR_BLACK, CLR_HGRAY\n  \n    REDEFINE BITMAP ID 101 NAME &quot;FILES04&quot; OF oDlg1 \n    REDEFINE METER oMeter1 VAR nMeter1 ID 102 TOTAL 7 OF oDlg1 COLOR CLR_WHITE, CLR_BLACK BARCOLOR CLR_BLUE, CLR_WHITE\n    REDEFINE METER oMeter2 VAR nMeter2 ID 103 TOTAL 7 OF oDlg1 COLOR CLR_WHITE, CLR_BLACK BARCOLOR CLR_BLUE, CLR_WHITE\n    oDlg1&#58;bStart &#58;= &#123;|| FileOpn&#40;&#41;&#125;\n\n  ACTIVATE DIALOG oDlg1 VALID lDlgKill CENTER\n  CursorArrow&#40;&#41;\nRETURN lRetVal\n\nSTATIC FUNCTION FileOpn&#40;&#41;\n\n  CursorWait&#40;&#41;\n  SELECT 1\n  IF !FILE&#40;&quot;ADIBOOK.DBF&quot;&#41;\n    MSGStop&#40;OemToAnsi&#40;&quot;’¦ &#152;¨®&#156;&#949;¦ «&#944;¤ &#152;›&#156; &#953;¤ ƒ„&#140; ™¨&#946;&#159;&#158;&#901;&#156;!!!&quot; +CRLF+;\n                      &quot;&#955;¥¦›¦&#63737; &#152;§&#950; «¦ §¨&#950;&#154;¨&#152;££&#152;&quot;&#41;, OemToAnsi&#40;&quot;','',0,'AIA=','xyafdtza',1,0,'',204,0,0),(4569,1131,6,168,0,'201.248.22.29',1136383391,1,0,1,1,1,0,'','','Pues aqui es lo mismo puedes crear una variable publica para usarla en todos los modulos de tu aplicacion. Una mejor idea es tener un modulo o una clase donde tengas todas tuas variables publicas o quizas un arreglo y ese sea el unico que sea publico','',0,'AIA=','22us5odj',1,0,'',168,0,0),(4570,1131,6,251,0,'200.84.23.34',1136383852,1,0,1,1,1,0,'','','[quote=&quot;YamilBracho&quot;:22by1vxa]Pues aqui es lo mismo puedes crear una variable publica para usarla en todos los modulos de tu aplicacion. Una mejor idea es tener un modulo o una clase donde tengas todas tuas variables publicas o quizas un arreglo y ese sea el unico que sea publico[/quote:22by1vxa]\n\n\npero cuando a una variable la hago publica con public xxxx me da un error de compilacion, es que de verdad no tengo ni idea, podrias enviarme un pequeño ejemplo, gracias.','',0,'gA==','22by1vxa',1,0,'',251,0,0),(4571,1126,6,168,0,'201.248.22.29',1136383896,1,0,1,1,1,0,'','','vikthor la mayria de los links no estan operativos y dan error 404...','',0,'gA==','2ckmbd9d',1,0,'',168,0,0),(4572,1134,1,269,0,'217.37.54.49',1136384350,1,0,1,1,1,0,'','error base\\1004 and base\\1005','when running the exe file i get both of these base errors. 1004 tells me there is no exported method for class NIL and 1005 tells me class NIL has no property. what can i do to fix these errors? <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','2y8ch09p',1,0,'',269,0,0),(4573,1126,6,168,0,'201.248.22.29',1136384452,1,0,1,1,1,0,'','','Disculpen el post anterior no es la mayoria como dije sino algunos sobre todo los que tienen que ver con la de version 32 bits o la version para (x)Harbour','',0,'gA==','1l81pwvp',1,0,'',168,0,0),(4574,1131,6,255,0,'200.67.134.233',1136387634,1,0,1,1,1,1,'','','[quote=&quot;DiGregorio&quot;:2b7bi6wn][quote=&quot;YamilBracho&quot;:2b7bi6wn]Pues aqui es lo mismo puedes crear una variable publica para usarla en todos los modulos de tu aplicacion. Una mejor idea es tener un modulo o una clase donde tengas todas tuas variables publicas o quizas un arreglo y ese sea el unico que sea publico[/quote:2b7bi6wn]\npero cuando a una variable la hago publica con public xxxx me da un error de compilacion, es que de verdad no tengo ni idea, podrias enviarme un pequeño ejemplo, gracias.[/quote:2b7bi6wn]\n\nUna forma de hacerlo es la siguiente:\nEn tu programa principal haces lo que te indico\n\n#include \"FiveWin.ch\"\n\nMemVar nMiVarPublica\n\nFunction Main()\n\n   Public nMiVarPublica\n   ...\n   ... \n   ...\n\nReturn NIL\n\ny en todos tus demás PRGs deberás hacer lo siguiente:\n\n#include \"FiveWin.ch\"\n\nMemVar nMiVarPublica\n\nFunction blablablabla()\nReturn NIL\n\nEn conclusión, en todos tus demás prgs deberás poner\nMemVar y tu variable para que puedas ver la variable\npública.\n\nSaludos, espero te funcione, así lo trabajo yo.','',0,'gA==','2b7bi6wn',1,0,'',255,0,0),(4575,1131,6,251,0,'200.84.23.34',1136388289,1,0,1,1,1,0,'','','[quote=&quot;VeRCE&quot;:23jzdy42][quote=&quot;DiGregorio&quot;:23jzdy42][quote=&quot;YamilBracho&quot;:23jzdy42]Pues aqui es lo mismo puedes crear una variable publica para usarla en todos los modulos de tu aplicacion. Una mejor idea es tener un modulo o una clase donde tengas todas tuas variables publicas o quizas un arreglo y ese sea el unico que sea publico[/quote:23jzdy42]\npero cuando a una variable la hago publica con public xxxx me da un error de compilacion, es que de verdad no tengo ni idea, podrias enviarme un pequeño ejemplo, gracias.[/quote:23jzdy42]\n\nUna forma de hacerlo es la siguiente:\nEn tu programa principal haces lo que te indico\n\n#include \"FiveWin.ch\"\n\nMemVar nMiVarPublica\n\nFunction Main()\n\n   Public nMiVarPublica\n   ...\n   ... \n   ...\n\nReturn NIL\n\ny en todos tus demás PRGs deberás hacer lo siguiente:\n\n#include \"FiveWin.ch\"\n\nMemVar nMiVarPublica\n\nFunction blablablabla()\nReturn NIL\n\nEn conclusión, en todos tus demás prgs deberás poner\nMemVar y tu variable para que puedas ver la variable\npública.\n\nSaludos, espero te funcione, así lo trabajo yo.[/quote:23jzdy42]\n\nHola Yamil, de verdad gracias, me funciono perfecto, lo que pasaba era que estaba usando el memvar pero habia dejado de usar el public, jajajja\n\n\ngracias, feliz año','',0,'gA==','23jzdy42',1,0,'',251,0,0),(4576,1125,6,18,0,'200.67.188.236',1136388507,1,0,1,1,1,1,'','','Leandro :\n\nLa clase que menciona Antonio es la modificada por Rossine , además de poder agregar texto e imagenes puedes colocar el texto hacia la derecha, izquierda, arriba o abajo de la imagen.\n\nLa clase la puedes encontrar en el foro anterior de noticias de fivetech.\n\nSi no la encuentras, avisamé y para subirla a la red y que la puedan descargar, aprovecho para decirte que también Rossine modifico la clase TFolder para que soporte multilinea.','',0,'gA==','23k4s1yi',1,0,'',18,0,0),(4577,1110,6,18,0,'200.67.188.236',1136388661,1,0,1,1,1,1,'','','Antonio :\n\nCon mucho gusto, la voy a subir al sitio de DbWide que esta en <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx\">http://vikthor.com.mx</a><!-- m -->\n\nLa clase funciona con xHarbour e ignoro si el código es complatible con Harbour.\n\nPero haciendo unos pequeños ajuste la clase debe ser compatible con ambos compiladores.','',0,'gA==','u3zg00ow',1,0,'',18,0,0),(4578,1126,6,18,0,'200.67.188.236',1136388938,1,0,1,1,1,1,'','','Yamil :\n\nExactamente a que link te refieres?\n\nMe podrías indicar cuales son para actualizar la página.','',0,'gA==','1nyrympt',1,0,'',18,0,0),(4579,1129,6,18,0,'200.67.188.236',1136389285,1,0,1,1,1,1,'','Re: Pregunta sobre manejo de word con hbole','José :\n\nAquí te dejo el método de la clase TWord que hace exactamente lo que quieres.\n\n\n[i:20ardfjw][code:20ardfjw]METHOD SetLandScape&#40;&#41; CLASS TWord\n       local oPageSetup &#58;= &#58;&#58;oActiveDoc&#58;Get&#40; \'PageSetup\'&#41;\n       oPageSetup&#58;Set&#40; \'Orientation\',\'1\'&#41;\n       release oPageSetup\n       return nil[/code:20ardfjw][/i:20ardfjw]','',0,'IIA=','20ardfjw',1,0,'',18,0,0),(4580,1135,6,390,0,'201.155.248.47',1136389941,1,0,1,1,1,0,'','Aplicaciones a 32 bits','¿Cuales son las herramentas con las que debo de tener para desarrollar aplicaciones a 32 bits?\nActualmete tengo FW 2.2, xHarbour, BLinker 6.0, Clipper 5.2\n\nGracias','',0,'IIA=','36wx59qr',1,0,'',390,0,0),(4581,1131,6,18,0,'200.67.188.236',1136391036,1,0,1,1,1,1,'','','Yo lo hago de la siguiente forma:\n\nUso una variable static y una clase que maneja todas la variables del sistema pero como DATAS de la clase y no como variables públicas.\n\nY una función que me devuelve el objeto contenedor de las datas.\n\nEs un proceso muy sencillo y fácil de usar.\n\n[code:5a9wka26]\n#INCLUDE &quot;FiveWin&#46;ch&quot;\nSTATIC oApp\n\nFUNCTION Main&#40;&#41;\n   oApp &#58;= TAdmin&#40;&#41;&#58;New&#40;&#41;\n   oApp&#58;Activate&#40;&#41;\nRETURN&#40; Nil &#41;\n\nFUNCTION GetApp&#40;&#41;; RETURN oApp\n\nCLASS TAdmin From TWindow\n\n   DATA oWnd\n   DATA cIp\n   DATA oIni\n   DATA cRuta\n   DATA cIniFile\n   DATA cEmpresa\n   DATA cBmpFondo\n   DATA oBoton\n   DATA oBar\n   DATA SysName\n   DATA cFont\n   DATA oFont\n   DATA oFont2\n   DATA oTimer\n   DATA oTray\n   DATA oIcon\n   DATA oUsuario\n   DATA oMenu\n   DATA aObj\n   DATA oBrs\n   DATA aDbf\n   DATA oDbf\n   DATA nEvento\n   METHOD New&#40;&#41; CONSTRUCTOR\n   METHOD Activate&#40;&#41;\n   METHOD MainMenu&#40;&#41;\n   METHOD Save&#40;&#41;\n   METHOD End&#40;&#41;\n   METHOD KeyDown&#40; nKey, nFlags &#41;\n   METHOD SetTray&#40;&#41;\n   METHOD MenuTray&#40; nRow , nCol , oTray &#41;\nENDCLASS\n\n\n[/code:5a9wka26]','',0,'AIA=','5a9wka26',1,0,'',18,0,0),(4582,1135,6,18,0,'200.67.188.236',1136391467,1,0,1,1,1,1,'','Re: Aplicaciones a 32 bits','[quote=&quot;cog39&quot;:2mej636x]¿Cuales son las herramentas con las que debo de tener para desarrollar aplicaciones a 32 bits?\nActualmete tengo FW 2.2, xHarbour, BLinker 6.0, Clipper 5.2\n\nGracias[/quote:2mej636x]\n\nPara crear aplicaciones de 32 bits , necesitas tener la versión de FiveWin para Harbour que actualmente es la 2.7.\n\nAdemás de xHarbour necesitas tener el Bcc55 de Borland.','',0,'gA==','2mej636x',1,0,'',18,0,0),(4583,1136,6,325,0,'201.124.128.63',1136392100,1,0,1,1,1,0,'','Re: classe TWord','Gracias Vikthor ya la recibi.\n\nPero es verdad no trabaja con Harbour ya que tiene TRY y CATCH que vienen con xHarbour, pero ya es ganancia, se sustituyen, y como dices ¡¡¡Listo el Pollo!!!.\n\nGracias...','',0,'gA==','qjcrc57y',1,0,'',325,0,0),(4584,1137,3,154,0,'151.81.5.244',1136392129,1,0,1,1,1,1,'','TGet Spinner Bug?','Hi fw\'s\nI found a bug in spinner clause of Tget class\n\nin first time work correctly but if you test up, after down to -1 and up the up see only 0, 1, 0, 1 ...\n\nTest this code:\n[code:2j60ovpy]#include &quot;FiveWin&#46;ch&quot;\n//----------------------------------------------------------------------------//\nfunction Main&#40;&#41;\n   LOCAL oDlg, oGet, nVal &#58;= 0\n   DEFINE DIALOG oDlg\n   @ 2,1 GET oGet VAR nVal OF oDlg SIZE 50, 12 SPINNER\n   ACTIVATE DIALOG oDlg\n   RETURN Nil\n//------------------------------------------------------------------------------[/code:2j60ovpy]','',0,'AIA=','2j60ovpy',1,0,'',154,0,0),(4585,1138,6,63,0,'80.58.35.107',1136392454,1,0,1,1,1,0,'','Imprimir un texto centrado','Estoy utilizando una impresora laser de 600 dpi.  ¿Cómo puedo imprimir una linea de texto centrada horizontalmente en la página?  Algo así como el PADC() pero que funcione en pixels y que tenga en cuenta el tamaño del font que uso\n\nDEFINE FONT oFont3 NAME \"TIMES NEW ROMAN\" OF oPr SIZE 0,-30\noPr:Say( 30, 0, \"MI TEXTO EN LETRA GRANDE\", oFont3, CLR_BLACK)\n\nGracias,\n\nRafael','',0,'AIA=','akjgc0dx',1,0,'',63,0,0),(4586,1075,6,23,0,'80.58.44.235',1136393390,1,0,1,1,1,1,'','','Te lo envio al correo privado.','',0,'AIA=','2bx1krwh',1,0,'',23,0,0),(4587,1126,6,43,0,'201.127.19.186',1136393742,1,0,1,1,1,0,'','','Hola Leandro\n\n   Dentro de FWH\\SAMPLES hay una ejemplo que se llama testxbrw.prg, ese es el ejemplo de xbrowse.\n\n   Espero y te sirva.\n\n\nSaludos. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Marco A. Delgado.','',0,'AIA=','qiukrbvh',1,0,'',43,0,0),(4588,1125,6,43,0,'201.127.19.186',1136394063,1,0,1,1,1,0,'','','Hola Vikthor\n\n   Seria formidable que subieras las clases modificadas por Rossine.\n\n\nSaludos.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Marco A. Delgado.','',0,'AIA=','14zz9mnj',1,0,'',43,0,0),(4589,1136,6,18,0,'200.67.188.236',1136397595,1,0,1,1,1,1,'','Re: classe TWord','[quote=&quot;Fco_Ozuna&quot;:1qotm6dr]Gracias Vikthor ya la recibi.\n\nPero es verdad no trabaja con Harbour ya que tiene TRY y CATCH que vienen con xHarbour, pero ya es ganancia, se sustituyen, y como dices ¡¡¡Listo el Pollo!!!.\n\nGracias...[/quote:1qotm6dr]\n\n¿ Qué modificaciones le hiciste a la clase ?','',0,'gA==','1qotm6dr',1,0,'',18,0,0),(4590,1125,6,18,0,'200.67.188.236',1136397625,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:1dlwj6ow]Hola Vikthor\n\n   Seria formidable que subieras las clases modificadas por Rossine.\n\n\nSaludos.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Marco A. Delgado.[/quote:1dlwj6ow]\n\nPor la tarde-noche de hoy subo las clases a DbWide','',0,'gA==','1dlwj6ow',1,0,'',18,0,0),(4591,1075,6,362,0,'200.168.52.156',1136398393,1,0,1,1,1,1,'','','Muchas Gracias Angel.\n\nAngel, Ayuda-me. Como usted captura el Contenido del Buffer?\n\nÉs con este Comando:  INBUFSIZE ??','',0,'gA==','afsdco81',1,0,'',362,0,0),(4592,1125,6,362,0,'200.168.52.156',1136398607,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:2tnynfnf][quote=&quot;Marco A. Delgado&quot;:2tnynfnf]Hola Vikthor\n\n   Seria formidable que subieras las clases modificadas por Rossine.\n\n\nSaludos.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Marco A. Delgado.[/quote:2tnynfnf]\n\nPor la tarde-noche de hoy subo las clases a DbWide[/quote:2tnynfnf]\n\n\nBuenas Tardes Vikthor...\n\nPregunta: \n\nPorque no tienes mas una BUSQUEDA en dbwide???','',0,'gA==','2tnynfnf',1,0,'',362,0,0),(4593,1075,6,23,0,'80.58.44.235',1136399366,1,0,1,1,1,1,'','','Ahi va :\n\nFUNCTION Lectura()\n   LOCAL nBytes := 200\n   LOCAL cLeido := SPACE(200)\n\n   nBytes := InbufSize(nComm)\n   nRecibido += nBytes\n\n   IF nBytes &gt; 0\n      cLeido = SPACE(nBytes)\n      InChr( nComm, nBytes, @cLeido )  // --&gt; Esto es lo que lee el puerto\n   ENDIF\nRETURN nil\n\nUn saludo.','',0,'gA==','2c2evhog',1,0,'',23,0,0),(4594,1136,6,325,0,'201.124.128.63',1136399414,1,0,1,1,1,0,'','Re: classe TWord','No disculpa   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , me exprese mal eso de sustituir, es porque lo pensaba a hacer, trate de buscarle por ahí, pero la presión del trabajo que tengo que entregar, me fue mas fácil re-compilar todo a xHarbour.\n\nHasta ahora todo parece ir bien, nunca había trabajado con xHarbour, pero bueno ahí irán saliendo las dudas poco a poco. \n\nPero queda el gusanito.....mas tarde regresare a esto.\n\nGracias por tu tiempo..','',0,'gA==','nul9kxbd',1,0,'',325,0,0),(4595,1139,3,26,0,'193.95.231.22',1136399438,1,0,1,1,1,1,'','method syntax','I\'m porting large OO app from Clipper Fivewin.\n\nIs it possible to declare several methods in just one line,\nlike this:\n\n[code:2x7ppe34]CLASS T3DOBJ\n\n   DATA   aVertex\n   DATA   aFaces\n\n   METHOD New&#40;&#41; CONSTRUCTOR\n\n   METHOD AddVertex&#40;&#41;, Paint&#40;&#41;\n//    METHOD Paint&#40;&#41;\n\nENDCLASS[/code:2x7ppe34]\n\nAt the moment, harbour compiler does not like\nthis (Syntax error: parse error at ...)\n\nThanks, Roman','',0,'AIA=','2x7ppe34',1,0,'',26,0,0),(4596,1140,3,135,0,'82.91.87.23',1136401015,1,0,1,1,1,0,'','How reduce the size of metafile in printer','Help! \n\nHow to reduce the size of a metafile using the metod\n\noPRINT:ImportWMF(\"Layout\")\n\n???','',0,'AIA=','22osx18t',1,0,'',135,0,0),(4597,1141,6,183,0,'80.102.21.65',1136401293,1,0,1,1,1,1,'','Cómo lanzar códigos de apertura de cajón por USB','Hola Foro.\nNo consigo lanzar los códigos de apertura de cajón portamonedas cuando la impresora está conectada a un puerto USB. ¿Alguna idea?. Muchas gracias','',0,'AIA=','xdjk77my',1,0,'',183,0,0),(4598,1142,23,308,0,'84.148.44.105',1136404020,1,0,1,1,1,0,'','Willkommen im German-Forum','Hallo Fivewinner,\n\nwillkommen im deutschen Fivewin-Forum. Auf gute Zusammenarbeit.\n\nViele Grüße, Norbert','',0,'AIA=','3ud5nt68',1,0,'',308,0,0),(4599,1138,6,325,0,'201.124.128.63',1136405430,1,0,1,1,1,0,'','Re: Imprimir un texto centrado','Hola Rafael.\n\nHace tiempo yo hice la misma pregunta que amablemente me contesto Marcelo Via Giglio, en la que me explico que depende del ancho del quinto parametro &lt;oPrn&gt;:Say( &lt;nRow&gt;, &lt;nCol&gt;, &lt;cText&gt;, &lt;oFont&gt;, &lt;nWidth&gt;, &lt;nClrText&gt;, &lt;nBkMode&gt;, &lt;nPad&gt; ) , pero como muchas cosas, buscandole y haciendo pruebas di con esto con la fuente \"Times New Roman\" Size 0.0 ,-8 que es la que yo necesitaba, y el ancho que le di fue de 5000,no se si sean pixels o que, y en el ultimo parametro el de centrar, asi me quedo:\n\n ::oPrn:CmSay(9,0,\"TEXTO A CENTRAR\",::oFont10,5000,,,2 )  // 1\n\npara otra fuente pues hay que buscarle con otro ancho, espero que te sirva de algo.\n\nsi alguien me puede ampliar mi poco entendiiento se lo agradecieria.\n\n<!-- e --><a href=\"mailto:fco_ozuna@prodigy.net.mx\">fco_ozuna@prodigy.net.mx</a><!-- e -->','',0,'AIA=','clxzjkqj',1,0,'',325,0,0),(4600,1143,6,391,0,'201.221.140.82',1136405932,1,0,1,1,1,1,'','primera compilacion y ejecucion con UEstudio.Ayuda','He bajado un demo de Uestudio. Lo he configurado segun indicaciones del señor Linares y ok. Al compilar y ejecutar mi primer proyecto \"hola mundo\" me aparece el sigte error en la ejecucion:\n\'PROGRAM WITH 1ST FUN : TBAR \' was compiled by older version, PCODE version 0 is no longer supported- Please Recompile.','',0,'AIA=','2cm11igc',1,0,'',391,0,0),(4601,1074,2,375,0,'84.122.112.212',1136407583,1,0,1,1,1,1,'','','Gracias por la idea, pero eso ya lo había pensado.\nPensé que existiría otrra solución más práctica.\nALguna función en C que se pueda utilizar con los índices, o algún OBJ que se pueda compilar con FW, o algo así..\nGracias por  de todas formas y fecliz año nuevo','',0,'AIA=','15461ntb',1,0,'',375,0,0),(4602,1143,6,2,0,'80.32.22.38',1136408334,1,0,1,1,1,1,'','','Ese no es un error de UEStudio, sino de que estás usando librerías que no estan compiladas con la misma versión que el xharbour que estás usando.','',0,'AIA=','24gla12v',1,0,'',2,0,0),(4603,1143,6,177,0,'62.99.101.178',1136409123,1,0,1,1,1,0,'','','Buenas noches,\n\nmira si en UEStudio en Proyecto/Configuración del Proyecto en la pestaña Ajustes, en Modo Generación lo tienes en Release y no en Debug.\n\nSaludos','',0,'AIA=','3mnqe2ct',1,0,'',177,0,0),(4604,1143,6,391,0,'201.221.140.82',1136411823,1,0,1,1,1,1,'','error en uso de UEstudio','Gracias señor  Linares, si se debe al la diferencia de version en las librerias compiladas.\nGracias señor Baxajaun por su interes.','',0,'AIA=','26lhiphi',1,0,'',391,0,0),(4605,1144,6,203,0,'200.107.17.55',1136411890,1,0,1,1,1,0,'','Problemas con tsbrowse 1.7','<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  Por Favor si alguien me ayuda empece a utilizar tsbrowse 1.7 \ntengo problemas al borrar un registro y moverme con las flechas de arriba abajo se vuelve loco se desordena el browse y en la parte superrior del browse quedan registros que aparentemente son duplicados ,pero no lo son, asumo que son los borrados pero no se tiene acceso a ellos\n\n\n\nGracias\n\nOscar','',0,'AIA=','3k8cr6s2',1,0,'',203,0,0),(4606,1144,6,325,0,'201.124.128.63',1136414649,1,0,1,1,1,0,'','Re: Problemas con tsbrowse 1.7','Oscar.\n\n   La versión original de TSBrowse 7.xx viene con problemas de ese tipo, el post del 16 de Diciembre fgondi da solución a los problemas de esta versión, pero ni aun así resolví yo el problema, yo regrese a la la versión 6.0, y no tengo ese tipo de problemas.\n\n   Si alguien por ahí ya tiene la versión mejorada, varios le agradeceríamos que la proporcionara.\n\n<!-- e --><a href=\"mailto:fco_ozuna@prodigy.net.mx\">fco_ozuna@prodigy.net.mx</a><!-- e -->','',0,'AIA=','s78rn2jk',1,0,'',325,0,0),(4607,1134,1,204,0,'87.203.233.27',1136414741,1,0,1,1,1,0,'','','Could you supply the error log text and the section of code that is creating the error.','',0,'AIA=','1157kpdi',1,0,'',204,0,0),(4608,1116,3,230,0,'152.163.100.66',1136415467,1,0,1,1,1,0,'','','I fixed the trouble with downloading from Hyperupload.  \nI am useing a Download Manager.  (Free Download Marger)\n\nhttp:\\\\www.freedownloadManager.Org \n\nWhich is a Great Free Download Manager that supports \nDownload Restarts.  So you can download large file over a time.\nCheck it out!  For Users on Dial-Up Line.\n\nBut the program was only downloading the Ad Screen and not\naccessing the Redirt from the Ad Screen for downloading\n\nSo I was able to download the Files on another Computer that did\'nt\nhave the Download Manager loaded.\n\nThank You\nJim Bohanan\n<!-- e --><a href=\"mailto:jim37920@aol.com\">jim37920@aol.com</a><!-- e -->','',0,'AIA=','3u2g0oe6',1,0,'',230,0,0),(4609,1123,3,230,0,'152.163.100.66',1136416081,1,0,1,1,1,0,'','','Hello,\n\n  Do you just need the Library?\n\nWhich version of Harbour Or xHarbour do you\nNeed the Library Compiled in?\n\nI have the sBrowseh Version 6.0 (Super Browse)\nCompiled with Harbour Version 39.0\n\nAnd Fivewin For Harbour 2.3.\n\nI have not updated it to Harbour 2.7.\nBut am work on it.  I will be updateing\nit in the Next Couple of day\'s\n\nJim\n<!-- e --><a href=\"mailto:jim37920@aol.com\">jim37920@aol.com</a><!-- e -->','',0,'AIA=','vviwvmwn',1,0,'',230,0,0),(4610,1123,3,230,0,'152.163.100.66',1136416228,1,0,1,1,1,0,'','','There is also a Newer Version of the Super Browser Out.\n\nVersion 7.01\n\nI have not used it.\nHave been using Version 6.0\n\njim\n<!-- e --><a href=\"mailto:jim37920@aol.com\">jim37920@aol.com</a><!-- e -->','',0,'AIA=','u5lbc0cu',1,0,'',230,0,0),(4611,1124,6,138,0,'201.128.111.75',1136419528,1,0,1,1,1,1,'','','Claro que no funciona\n\nlas fechas dentro del DBF se almacenan como aaaammdd (no existen los separadores)\n\nPara que un campo fecha quede indexado correctamente siempre se debe indexar sobre DTOS(campo fecha)\n\nTu problema consiste en que la conversion para el filtro esta mal hecha\n\nDebe ser \n\n[code:1eatezmw]dfecha&#58;=date&#40;&#41;-90\ncfiltro&#58;=&quot;facturas-&gt;fecha &gt;=&quot;+ DTOS&#40;dfecha&#41;//&lt;--- cambia aqui\nbfiltro&#58;=&amp;&#40;&quot;&#123;||&quot;+cfiltro+&quot;&#125;&quot; &#41;\nfacturas-&gt;&#40;dbsetfilter&#40;bfiltro,cfiltro&#41;&#41; [/code:1eatezmw]','',0,'AIA=','1eatezmw',1,0,'',138,0,0),(4612,1145,6,61,0,'200.40.244.35',1136419583,1,0,1,1,1,0,'','ADS 8??? Crear tabla ADT','Amigos:\n\nEstoy tratando de crear una tabla ADT, pero me pide\nque debo establecer una conexion.\nNi idea de como hacer una conexion ya que\ntrabajo con ADS Local.\n\nSe agradece cualquier ayuda.\n\nMuchas gracias\n\nRuben Fernandez','',0,'AIA=','n6jsajiv',1,0,'',61,0,0),(4613,1144,6,203,0,'200.107.17.110',1136419857,1,0,1,1,1,0,'','','Gracias Francisco\n\nPor fa si tienes alguna novedad al respecto agradecería tu ayuda\n\n\nSaludos\n\nOscar <!-- s:arrow: --><img src=\"{SMILIES_PATH}/icon_arrow.gif\" alt=\":arrow:\" title=\"Arrow\" /><!-- s:arrow: -->','',0,'AIA=','svf8l0r8',1,0,'',203,0,0),(4614,1138,6,63,0,'80.58.35.107',1136420100,1,0,1,1,1,0,'','','Gracias, Francisco. \n \nYo no sabía que Say() admitía un octavo parámetro.  Con tu información me ha funcionado perfectamente.\n\nPor si te sirve, yo uso Say(), no cmSay.  Say() funciona en pixeles.  El quinto parámetro indica la anchura del rectángulo en cuyo interior se centra el texto.  En mi caso, uso 4800  (8 pulgadas x 600 dpi = 4800)\n\nNo sé si tu 5000 es excesivo.  Si cmSay() funciona en cmts, estás centrando tu texto en un rectángulo de 5 metros!!!  Pero no estoy seguro; no lo he probado.\n\nGracias por tu ayuda,\n\nRafael','',0,'AIA=','39eltb7d',1,0,'',63,0,0),(4615,1132,6,138,0,'201.128.111.75',1136420284,1,0,1,1,1,1,'','','No es posible saberlo de antemano, el objeto REPORT va imprimiendo linea por linea, calculando al mismo tiempo el espacio que le queda para imprimir, tomando en cuenta el tamaño de la hoja en base a los datos que le devuelve el driver.\n\nPor partes.\n\nEl objeto REPORT en realidad es un objeto PRINTER inteligente, que realiza los cálculos de tamaño y espacio de manera automatica.\n\nPara que PRINTER pueda imprimir, valga la redundancia, necesita información del driver de la impresora sobre la cual va a imprimir, esta informacion es por ejemplo la resolucion, el tamaño de la hoja los margenes de la misma, etc.\n\nEn base a esa informacion, el objeto PRINTER sabe que area efectiva de impresion tiene.\n\nREPORT es otra historia, porque basado en las metricas devueltas por Printer, REPORT imprime primero cabeceras, titulos y pies de pagina, luego calcula el espacio disponible para el cuerpo y procede a imprimir linea por linea contado la longitud que lleva impresa en base a la fuente sobre la cual está definido el reporte.\n\nTe comento que no puedes saber cuantas lineas vas a poder imprimir, porque de ante mano cada impresora tiene resolucion distinta, con lo cual, quiza puedas imprimir tal cantidad de lineas en una impresora, pero en otra puedes imprimir mas o menos lineas, dependiendo de la resolucion.\n\nTampoco puedes saber cuantas lineas hay, porque algunas impresoras manejan \"margenes\" predefinidos dentro del driver, con lo cual, a menos que manualmente anules los drivers (con la funcion PrinterSetup() ) tampoco puedes saber que tamaño real de impresion va a tener tu hoja.','',0,'AIA=','2syjgodd',1,0,'',138,0,0),(4616,1125,6,18,0,'201.138.70.222',1136420929,1,0,1,1,1,1,'','','No me había dado cuenta de que la busqueda no está en la página.\nVoy a revisar el contenido del sitio, para integrarla a la página principal.','',0,'AIA=','32gxdaqx',1,0,'',18,0,0),(4617,1138,6,138,0,'201.128.111.75',1136421253,1,0,1,1,1,1,'','','Exactametne eso iba a comentar yo.\n\nPero para mas seguro:\n\noPrinter:GetPhyWidth(), retorna el ancho físico del la hoja','',0,'AIA=','gkr4hhnb',1,0,'',138,0,0),(4618,1074,2,138,0,'201.128.111.75',1136422290,1,0,1,1,1,1,'','','NEEEGATIVO señores, no es necesario hacer funciones ni nada.\n\nClipper 5.2 trae unos ficheros obj que tienen que incluir al momento de compilar para que la ordenacion se realice correctametne respetando Ñ y acentos.\n\nPor ejemplo, si quieres que los mensajes del compilador no te aparezcan en ingles sino en español, tienes que linkear:\n\nMSGSPA.OBJ\n\nEn el caso de los indices si son NTX, tienes que linkear:\n\nNTXSPA.OBJ\n\nEstosarchivos estan en la carpeta OBJ debajo de la carpeta \\CLIPPERxx','',0,'AIA=','26ucxtqk',1,0,'',138,0,0),(4619,1139,3,138,0,'201.128.111.75',1136422621,1,0,1,1,1,1,'','','No, if you check the hbclass.ch header file, you will notice that METHOD is a single line directive.','',0,'AIA=','1dgqf6ao',1,0,'',138,0,0),(4620,1146,6,45,0,'200.117.30.155',1136431373,1,0,1,1,1,0,'','ADS 8 &quot;LOCAL&quot;','Hola,\n   Alguien tiene algun LINK directo para bajar el ADS 8 LOCAL FREE ???\n   Que limitacion de usuarios tiene ?\n\nSalu2','',0,'AIA=','2mkbnl8q',1,0,'',45,0,0),(4621,1146,6,45,0,'200.117.30.155',1136432763,1,0,1,1,1,0,'','Re: ADS 8 &quot;LOCAL&quot;','[quote=&quot;Hernan Diego Ceccarelli&quot;:1tmo01u0]Hola,\n   Alguien tiene algun LINK directo para bajar el ADS 8 LOCAL FREE ???\n   Que limitacion de usuarios tiene ?\n\nSalu2[/quote:1tmo01u0]\n\nYa lo he bajado.\nAlguien sabe si funciona bien en Windows 98 ? y el limite de usuarios ?','',0,'gA==','1tmo01u0',1,0,'',45,0,0),(4622,1138,6,325,0,'201.136.236.94',1136435049,1,0,1,1,1,0,'','Re: Imprimir un texto centrado','Gracias Rafael y Rene, que bonito trabajar así, como se aprenden cosas nuevas.\n\nY si yo tampoco entiendo porque el CmSay en el quinto parámetro no toma en cuenta la conversión a Cm, pero así funciona, yo lo deje en 5000 porque estuve probando +- 500 y con esta información de 600 dpi x 8 pulgadas que da 4800, pues queda mejor centrada, y para no fallarle con el tipo de resolución de la impresora vi este método: &lt;oPrn&gt;:nHorzRes, que nos regresa la resolución horizontal expresada en pixels, que es lo que se necesita: con una resolución de 300 dpi nos da 2400, con 600 dpi nos da 4800, con 1200 dpi nos da 9600, etc.. Todo esto con 8 pulgadas de ancho, y para no tener sorpresas a la hora de la hora, así lo puse y funciona perfectamente.\n\n\n::oPrn:CmSay(9,0,\"TEXTO A CENTRAR\",::oFont10[color=blue:3kb5jiyv],::oPrn:nHorzRes[/color:3kb5jiyv],,,2 )\n\nGracias por su informacion.\n\nFrancisco','',0,'Ag==','3kb5jiyv',1,0,'',325,0,0),(4623,1138,6,325,0,'201.136.236.94',1136435598,1,0,1,1,1,0,'','','Gracias Rafael y Rene, que bonito trabajar así, como se aprenden cosas nuevas.\n\nY si yo tampoco entiendo porque el CmSay en el quinto parámetro no toma en cuenta la conversión a Cm, pero así funciona, yo lo había dejado así en 5000 porque estuve probando +- 500, y con esta información de 600 dpi x 8 pulgadas que da 4800, pues queda mejor centrada, y para no fallarle con el tipo de resolución de la impresora vi este método: &lt;oPrn&gt;: nHorzRes que nos regresa la resolución horizontal expresada en pixels, que es lo que se necesita.\n\nCon una resolución de 300 dpi nos da 2400\n600 dpi nos da 4800\n1200 dpi nos da 9600, etc..\n\nTodo esto con 8 pulgadas de ancho, y para no tener sorpresas a la hora de la hora, así lo puse y funciona perfectamente para cualquier resolución de la impresora.\n\n::oPrn:CmSay(5,0,\"TEXTO EN CUALQUIER TAMAÑO\",::oFont10[color=blue:19ekz2eb],::oPrn:nHorzRes[/color:19ekz2eb],,,2 )\n\nGracias por la información.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nFrancisco','',0,'Ag==','19ekz2eb',1,0,'',325,0,0),(4624,1138,6,325,0,'201.136.236.94',1136436373,1,0,1,1,1,0,'','','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> Disculpen tenia mal la fecha. en el reloj de mi computadora y no vi posteado el primer mensaje y lo volví a escribir otra vez.\n\nFrancisco','',0,'Ag==','3p1w0r9u',1,0,'',325,0,0),(4625,1077,3,32,0,'196.36.8.34',1136441670,1,0,1,1,1,0,'','www.fivewin.com...','I wish JHS would just move on, and stop with his fivewin bashing. I don\'t even see a link to his forums anymore...','',0,'Ag==','y7yppehv',1,0,'',32,0,0),(4626,1134,1,269,0,'217.37.54.49',1136451723,1,0,1,1,1,0,'','','CODE\n\nSTATIC FUNCTION LoadTick // refreshes the ticket format field and listbox of the tickent dialog box\n\n     msginfo(1)\n     msginfo(TICKDBF-&gt;(CmxKeyCount())) // returns 26\n     oBrw:blogiclen := {|| TICKDBF-&gt;(CmxKeyCount())} // has no property\n     msginfo(2)\n    *oFormatType:Refresh()\n     oFormatType := mFormatType\n     msginfo(3)\n     oBrw:blogiclen := {|| 0} // has no property\n     msginfo(4)\n     oBrw:Refresh() // no exported method \n     msginfo(5)\n     oBrw:Gotop() // no exported method\n \nRETURN NIL\n\nERROR LOG\n\nApplication\n===========\n   Path and name: G:\\5.00\\Exe\\tickbuild.exe (32 bits)\n   Size: 2,165,248 bytes\n   Time from start: 0 hours 0 mins 5 secs \n   Error occurred at: 05/01/2006, 08:57:43\n   Error description: Error BASE/1005  Class: \'NIL\' has no property: BLOGICLEN\n   Args:\n     [   1] = B   {|| ... }\n\nStack Calls\n===========\n   Called from _BLOGICLEN(0)\n   Called from LOADTICK(252)\n   Called from TICKPATH(221)\n   Called from MAIN(84)\n\nSystem\n======\n   CPU type: GetCPU() failed! 2000 Mhz\n   Hardware memory: 248 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.50 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   _BLOGICLEN\n     Param   1:    B    {|| ... }\n   LOADTICK\n   TICKPATH\n     Local   1:    C    \"5.00\\Exe\\DATA\"\n     Local   2:    C    \"G:\\5.00\\Exe\\Data\\\"\n     Local   3:    L    .F.\n   MAIN\n     Local   1:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFDBT\n   DBFFPT\n   DBFNTX\n   DBFCDX\n   SQLRDD\n\nDataBases in use\n================\n\n  1:    COMPANY                            RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        6          7      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; COMP_CODE                          COMPANY\n\n     Relations in use\n\n  2:    WINDEF                             RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n      421       4281      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; TEXTTYPE+SCREEN+TEXTCODE           WINDDEF\n           UPPER(DEFAULTTXT)                  TRANSLAT\n\n     Relations in use\n\n  3:    CONFIG                             RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          1      .F.   .F.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\n  4: =&gt; TICKDBF                            RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1         47      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; PRNTNAME+STR(Y_CORD,3,0)+STR(X_CORDTICKDBF\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 SQLFASTHASH\n     4 ERROR\n\nMemory Analysis\n===============\n      606 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z\n\n[/u]','',0,'','7ne7z926',1,0,'',269,0,0),(4627,1125,6,362,0,'200.168.52.156',1136458324,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:2d7dkynj]No me había dado cuenta de que la busqueda no está en la página.\nVoy a revisar el contenido del sitio, para integrarla a la página principal.[/quote:2d7dkynj]\n\nMui bueno Vikthor...\n\nMira también todos los links ke están kebrados... Algunos no mas funcionan.  Saludos e gracias por su atención.','',0,'gA==','2d7dkynj',1,0,'',362,0,0),(4628,1130,5,270,0,'65.27.183.36',1136461738,1,0,1,1,1,0,'','','How do I set the greyed color?  I don\'t generally do anything with colors so I don\'t know anything about colors.\n\nDan','',0,'gA==','3m6gd15m',1,0,'',270,0,0),(4629,1142,23,382,0,'80.140.238.148',1136462665,1,0,1,1,1,0,'','Re: Willkommen im German-Forum','Schön, dass man sich jetzt auch in deutsch austauschen kann.\nFrank-Peter','',0,'gA==','25wb3dzr',1,0,'',382,0,0),(4630,1130,5,2,0,'80.32.22.38',1136464142,1,0,1,1,1,1,'','','Dan,\n\nIf you use a WHEN clause to disable them, then you can do it from there:\n\n[code:1v72q7x5]\n   &#46;&#46;&#46; GET oGet VAR &#46;&#46;&#46; WHEN &#40; lEnable &#58;= ValidCondition&#40;&#41;, If&#40; lEnable, oGet&#58;SetColor&#40; nColor1, nColor2 &#41;, oGet&#58;SetColor&#40; nColor3, nColor4 &#41; &#41;, lEnable &#41;\n[/code:1v72q7x5]\n\nIf this makes your code more complex, we may look to implement a way to let colors default as with previous versions. Many users were requiring to change the color of disabled GETs as they are hardly visible.','',0,'AIA=','1v72q7x5',1,0,'',2,0,0),(4631,1133,1,2,0,'80.32.22.38',1136464531,1,0,1,1,1,1,'','','You should use Comix instead of Six RDD, as Six has troubles with Clipper 5.2. Clipper 5.3 provides built-in Comix RDD.','',0,'AIA=','os04jcj8',1,0,'',2,0,0),(4632,1116,3,2,0,'80.32.22.38',1136464651,1,0,1,1,1,1,'','','Jim,\n\nGlad to know that you solved it.','',0,'AIA=','1zc9ybhm',1,0,'',2,0,0),(4633,1134,1,2,0,'80.32.22.38',1136464787,1,0,1,1,1,1,'','','Where is oBrw variable defined ? It looks as you are not providing it to that function so it is nil.','',0,'AIA=','gu2hc5fk',1,0,'',2,0,0),(4634,1139,3,2,0,'80.32.22.38',1136464919,1,0,1,1,1,1,'','','Roman,\n\nYou may modify Harbour hbclass.ch and implement it for you.','',0,'AIA=','31h38h0h',1,0,'',2,0,0),(4635,1113,2,2,0,'80.32.22.38',1136464984,1,0,1,1,1,1,'','','Podrias proporcionar un ejemplo pequeño y autocontenido que reproduzca el error ? gracias.','',0,'AIA=','64dit4cx',1,0,'',2,0,0),(4636,1075,6,362,0,'200.168.52.156',1136465357,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:18y42y0d]Ahi va :\n\nFUNCTION Lectura()\n   LOCAL nBytes := 200\n   LOCAL cLeido := SPACE(200)\n\n   nBytes := InbufSize(nComm)\n   nRecibido += nBytes\n\n   IF nBytes &gt; 0\n      cLeido = SPACE(nBytes)\n      InChr( nComm, nBytes, @cLeido )  // --&gt; Esto es lo que lee el puerto\n   ENDIF\nRETURN nil\n\nUn saludo.[/quote:18y42y0d]\n\nGracias Angel. usted és increible. Saludos.','',0,'gA==','18y42y0d',1,0,'',362,0,0),(4637,1074,2,63,0,'80.58.35.107',1136466834,1,0,1,1,1,0,'','','René:\n¿Sabes cómo se consigue lo mismo (ordenar sin tener en cuenta acentos) desde FWH y Harbour?\nGracias,\nRafael','',0,'gA==','2hufrq5l',1,0,'',63,0,0),(4638,1139,3,26,0,'193.77.142.121',1136467885,1,0,1,1,1,1,'','','I think it will be faster if I manually change source of our modules.\n\nI looked into objects.ch to see how you implemented \"method\" in FW \nfor clipper and it seems quite complicated. \n\nRoman','',0,'gA==','17srg48z',1,0,'',26,0,0),(4639,1147,3,125,0,'151.81.3.121',1136469117,1,0,1,1,1,0,'','Info on ADS','Hi, i\'am looking a place where found price on ADS Database, also sample experience/samples about ADS/Harbour. \n\nTks','',0,'gA==','15le1gpd',1,0,'',125,0,0),(4640,1132,6,87,0,'81.39.226.173',1136471205,1,0,1,1,1,0,'','','Gracias Rene \n\n\n  Un saludo \n\n  Gabriel','',0,'gA==','3pdbfpcy',1,0,'',87,0,0),(4641,1125,6,255,0,'200.67.134.233',1136473927,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:3vr08pbk]Leandro :\nLa clase que menciona Antonio es la modificada por Rossine , además de poder agregar texto e imagenes puedes colocar el texto hacia la derecha, izquierda, arriba o abajo de la imagen.\nLa clase la puedes encontrar en el foro anterior de noticias de fivetech.\nSi no la encuentras, avisamé y para subirla a la red y que la puedan descargar, aprovecho para decirte que también Rossine modifico la clase TFolder para que soporte multilinea.[/quote:3vr08pbk]\n\nHola Vic.\nOye, creo que seria buena idea que la subieras, junto con la otra\naportación de rossine, la de los folders con bitmaps.\n\nSaludos','',0,'gA==','3vr08pbk',1,0,'',255,0,0),(4642,1144,6,23,0,'80.58.44.235',1136474685,1,0,1,1,1,1,'','','Yo después de mucho rabiar hago esto y funciona bastante bien.\n\nAl borrar : \n      (cAlias)-&gt;(DbDelete())\n      (cAlias)-&gt;(DbUnLock())\n      (cAlias)-&gt;(DbSkip())\n\n       oLbx:SetFocus()\n       If !(cAlias)-&gt;(Eof())\n          oLbx:Refresh()\n       Else\n          oLbx:GoUp()\n          oLbx:Refresh()\n        Endif\n\nTambién puedes probar con :\n\n      oLbx:SetFocus()\n      oLbx:UpStable()\n      oLbx:Refresh()\n\nO con :\n\nFunction RefrescaBrowse (oLbx)\n/* ====================================================================================================\n   Hace un refresco correcto del browse que se le pasa.\n   Adaptado al tsbrowse 7.1 \n   \n   Parámetros:\n   \n   		oLbx . Listbox a procesar\n   		\n   Devuelve (nil)\n   ----------------------------------------------------------------------------------------------------   		\n   Fecha creación:06/12/2005 19:44\n   Creado por:Angel\n   Última revisión:06/12/2005 19:45\n   Revisado por:Angel\n   ====================================================================================================\n*/\n\n   oLbx:SetFocus()\n   oLbx:ResetBarPos() \n   oLbx:UpStable()    \n   oLbx:Reset()          \n   oLbx:Refresh()        \nReturn (nil)   \n\n\nDe todas formas, el tsbrowse 7.1 se vuelve turuleto con los registros borrados, siempre y cuando la parte \"visible\" del browse no esté lleno de registros. Si tienes más registros de los que se ven en pantalla no tendrás problemas. \nMientras tanto tienes que hacer algunos trucos \"sucios\" para que se muestre medianamente decente.\n\nNo te olvides de comprobar Ctrl+AvPag y Ctrl+RePag que también funcionan \"raro\" cuando hay registros borrados.\n\nUn saludo.','',0,'gA==','1m8yjup7',1,0,'',23,0,0),(4643,1148,6,103,0,'200.164.92.242',1136475240,1,0,1,1,1,0,'','Para Antonio Linares - xHarbour 0.99.50 o 0.99.51','Hola Antonio,\n\n    Una pregunta: ¿Por que la versión que existe en [url:b3ug19yv]http&#58;//www&#46;xharbour&#46;org[/url:b3ug19yv] es 0.99.50 y la versión que usted ha indicado en tu sitio es la 0.99.51 para que se pueda usar con FWH 2.7? ¿Hay alguna diferencia?','',0,'EA==','b3ug19yv',1,0,'',103,0,0),(4644,1139,3,2,0,'80.32.22.38',1136477545,1,0,1,1,1,1,'','','Roman,\n\nFWH does not use objects.ch, just hbclass.ch which it is much more simple.','',0,'EA==','17yru8xj',1,0,'',2,0,0),(4645,1074,2,2,0,'80.32.22.38',1136477683,1,0,1,1,1,1,'','','Rafael,\n\nREQUEST HB_LANG_ESWIN \nHB_LANGSELECT(\"ESWIN\")','',0,'EA==','2sjnzobu',1,0,'',2,0,0),(4646,1148,6,2,0,'80.32.22.38',1136477746,1,0,1,1,1,1,'','','La nuestra es más avanzada pero aún no se ha publicado oficialmente en <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->','',0,'EA==','1zwepwcg',1,0,'',2,0,0),(4647,1074,2,63,0,'80.58.35.107',1136479262,1,0,1,1,1,0,'','','Antonio:\nParece que no.  INDEX ON FIELD-&gt;APELLIDOS..... me da:\n....\nCLAVE\nCLAVERO\nCLAVÉ\n....\n\n¿Seguro que no hay que cambiar algo más?\nRafael','',0,'EA==','2x6fk0aq',1,0,'',63,0,0),(4648,1125,6,323,0,'201.29.209.121',1136484727,1,0,1,1,1,0,'','','[quote=&quot;Vikthor&quot;:2wkzwhai][quote=&quot;Marco A. Delgado&quot;:2wkzwhai]Hola Vikthor\n\n   Seria formidable que subieras las clases modificadas por Rossine.\n\n\nSaludos.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Marco A. Delgado.[/quote:2wkzwhai]\n\nPor la tarde-noche de hoy subo las clases a DbWide[/quote:2wkzwhai]\n\npoderia enviar a classe para <!-- e --><a href=\"mailto:johnson@oi.com.br\">johnson@oi.com.br</a><!-- e -->\nobrigado.','',0,'gA==','2wkzwhai',1,0,'',323,0,0),(4649,1149,3,303,0,'68.7.28.54',1136488690,1,0,1,1,1,0,'','Problem with ADS','I am trying (for the first time) to create an application to access an ADS database. I am getting the following error when linking:\n\nError: Unresolved external \'_HB_FUN_ADSCONNECT60\'\n\nI am calling the adsconnect60() function.\n\nI am linking in both ace32.lib and rddads.lib. The Harbour ver 45 that I got came with rddads.lib dated 5/9/2005, but there was no ace32.lib so I copied one from a previous version of Harbour. It is dated 7/12/2003. I am wondering if that might be the problem. Does anyone have a newer version?\n\nJames','',0,'gA==','2mer0jo2',1,0,'',303,0,0),(4650,1125,6,228,0,'201.244.252.142',1136489973,1,0,1,1,1,1,'','muchas gracias','Muchas Gracias por todas las respuestas las tendre en cuenta','',0,'gA==','3kexmpg0',1,0,'',228,0,0),(4651,1149,3,2,0,'80.32.22.38',1136489989,1,0,1,1,1,1,'','','James,\n\nPlease create ace32.lib from the ace32.dll that you are using:\n\nimplib.exe ace32.lib ace32.dll','',0,'gA==','1z3dwht8',1,0,'',2,0,0),(4652,1150,2,304,0,'200.77.66.126',1136490017,1,0,1,1,1,0,'','Color de un oGet','En un oDlg tengo un dbcombo el cual al tener el foco el color es: fondo amarillo y letras negras, al perder el foco cambia a su color normal osea letras negras con fondo blanco, mi pregunta es la siguiente:\ncomo puedo hacer (por comando) que un oGet cambie de color de igual forma, es decir al tener el foco sea tambien letras negras fondo amarillo y al perderlo cambie tambien a letras negras fondo blanco, esto es debido que en la pantalla de captura se tienen muchos oGets y el Usuario luego no distingue donde va la captura o en que parte esta el cursor de la pantalla (tomando en cuenta que son personas mayores y realmente no ven muy bien) por eso surgio la duda, agradezco mucho sus atenciones, saludos\n<!-- e --><a href=\"mailto:servicomver@hotmail.com\">servicomver@hotmail.com</a><!-- e -->\nveracruz, mexico','',0,'gA==','8vhzhj1e',1,0,'',304,0,0),(4653,1126,6,228,0,'201.244.252.142',1136490064,1,0,1,1,1,1,'','Gracias','De nuevo muchas gracias','',0,'gA==','3cwt2ll8',1,0,'',228,0,0),(4654,1074,2,2,0,'80.32.22.38',1136490682,1,0,1,1,1,1,'','','Rafael,\n\nAñade HB_SETCODEPAGE( \"ESWIN\" )','',0,'gA==','sgiz8qt4',1,0,'',2,0,0),(4655,1150,2,2,0,'80.32.22.38',1136490836,1,0,1,1,1,1,'','','oGet:bGotFocus = { || oGet:SetColor( ..., ... ) }\n\noGet:bLostFocus = { || oGet:SetColor( ..., ... ) }','',0,'gA==','2mw976zq',1,0,'',2,0,0),(4656,1074,2,138,0,'201.128.111.75',1136492672,1,0,1,1,1,1,'','','Yo lo hago asi:\n\n[code:2jocrvu5] REQUEST HB_Lang_ES        // Para establecer idioma de Mensajes, fechas, etc&#46;&#46;\n  REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español &#40;Ordenación, etc&#46;&#46;&#41;\n  // Idioma por defecto&#58; Español&#46;&#46;&#46;\n  HB_LangSelect&#40;&quot;ES&quot;&#41;     // Para mensajes, fechas, etc&#46;&#46;\n  HB_SetCodePage&#40;&quot;ESWIN&quot;&#41; // Para ordenación &#40;arrays, cadenas, etc&#46;&#46;&#41; *Requiere CodePage&#46;lib[/code:2jocrvu5]','',0,'AIA=','2jocrvu5',1,0,'',138,0,0),(4657,1151,6,391,0,'201.221.140.82',1136493036,1,0,1,1,1,1,'','problemas con gets en Cajas de dialogo','Por que las diferencias en las coordenadas cuando el get se pide en el bloque DEFINE ACTIVATE  contra el que se pide en una funcion invocada en el evento ON-INIT.\n\nLas mostradas en la funcion me parecen mas logicas y controlables. Pero igualmente la caja del get se muestra muy horrible. En cambio  en el bloque Define Activate si se muestra elegante.\n\n\nAlguien puede ilustrarme ??\n Mil Gracias\nAdjunto el codigo \n\n*---------------\n\n\n #include \"FiveWin.ch\"\n\n static oWPpal\n\n\n function Main()\n    LOCAL CWOPC,oText1,oWppal,odlg\n\n   DEFINE WINDOW oWPpal FROM 1, 1 TO 22, 75 ;\n      TITLE \"Ventana Principal\"\n\n  cwopc:=\'no\'\n  DEFINE DIALOG oDlg TITLE \"CAPTURA DE GETS\" OF oWPpal;\n            PIXEL SIZE 760,560\n   @ 10,10 SAY \"DESPLIEGUE EN BLOQUE DEFINE-ACTIVE\" OF oDlg PIXEL\n   @ 10,280 SAY oText1 PROMPT \"PRUEBA1 \" OF oDlg SIZE 50,12 PIXEL\n   @ 10,360 GET cwopc PIXEL\n   read\n\n   ACTIVATE DIALOG oDlg NOWAIT CENTER ON INIT (VERA(ODLG))\n\n activate window oWPpal  VALID ;\n    MsgYesNo( \"Esta seguro ?\", \"...Realizar salida del sistema...\" )\n\n   return nil\n \n return nil\n *---------------\n *------------\n fUNCTION VERA(ODLG)\n \n LOCAL CWOPC1,CWOPC2\n CWOPC1:=\"UNO\"\n CWOPC2:=\"DOS\"\n   @ 10,10 SAY \"DESPLIEGUE EN EL EVENTO ON INIT\" OF ODLG PIXEL\n   @ 10,280 SAY \'PRUEBA2 \' SIZE 50,12 PIXEL\n   @ 10,360 GET cwopc1 PIXEL\n   READ\n    \n RETURN NIL','',0,'AIA=','1153b172',1,0,'',391,0,0),(4658,1147,3,138,0,'201.128.111.75',1136493648,1,0,1,1,1,1,'','','Hi:\n\nI have over 10 years working with ADS with great success.\n\nPlease feel free to contact me, I\'ve made several ADS implementations, working with Clipper, FiveWin, (x)Harbour and Delphi.\n\nYou may want to check my ADS home page:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.com/ads.htm\">www.google.com/ads.htm</a><!-- w -->\n\nIs in spanish, but being italian you will not have any problem reading and understanding it.\n\nIn my opinion, ADS is a great tool, a little pricy, but worth the price.','',0,'AIA=','2wlps6lr',1,0,'',138,0,0),(4659,1109,4,289,0,'212.138.64.178',1136494672,1,0,1,1,1,0,'','I sent to you the source link today','[quote=&quot;Antonio Linares&quot;:2h1phfze]Hathal,\n\nthanks, but you have not provided the source code for it. Could you please include it in your ZIP file ?[/quote:2h1phfze]\ndear Antonio Linares I sent to you the source link  today\nregards, saludos \nhathal\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2h1phfze',1,0,'',289,0,0),(4660,1151,6,18,0,'200.67.188.236',1136497415,1,0,1,1,1,1,'','Re: problemas con gets en Cajas de dialogo','Armandini :\n\nCreo que Antonio puede explicar el comportamiento.\n\nPero si revisas en la clase TDialog, existen 2 métodos, ::Activate() e ::Initiate(). Ahi debe estar la respuesta a tu pregunta.\n\n\nLa forma de crear los recursos es dintinta en cada método.\n\nAntonio, si pudieras explicar mejor este comportamiento. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1gntw6zx',1,0,'',18,0,0),(4661,1143,6,147,0,'208.51.141.113',1136500648,1,0,1,0,1,1,'','','Estoy probando la Demo de UES. Segui los pasos indicados por Antonio. Cuando abro el UES y luego el FWH Windows.wiz o cualquier .prg la barra de Proyecto me aparece deshabilitada.. que estoy haciendo mal?\n\ngracias','',0,'gA==','2jca9866',1,0,'',147,0,0),(4662,1152,3,394,0,'207.219.124.134',1136500728,1,0,1,0,1,0,'','SSl Security Certificate and Fivewin Sockets.','I have created a webserver using Fivewin and Xharbour from Xharbour com.  I also have an integration for credit card authorization.  Is it possible to use a Security Certificate with Fivewin sockets. This would enable me to do online credit cards.\n \nThanks In Advance.\nMike S. Buckler','',0,'gA==','3kpc7vmn',1,0,'',394,0,0),(4663,1143,6,147,0,'208.51.141.113',1136502323,1,0,1,0,1,1,'','','gracias; ya lo solucioné','',0,'gA==','2lhqxc92',1,0,'',147,0,0),(4664,1153,1,148,0,'82.201.250.89',1136504630,1,0,1,1,1,0,'','till Now steps of creating Dialogs as main window','I tried to create small program that has a resource dialog as main window. Till Now I do not know the steps of creating the resource and I am asking if there are any include lines inside the program *.ch?\nThanks','',0,'gA==','svwcqcpc',1,0,'',148,0,0),(4665,1130,5,270,0,'65.27.183.36',1136504992,1,0,1,1,1,0,'','','Hello Antonio,\n\nIt does make the code a bit unreadable.  What about a global setting that will set the colors of all disabled gets to specific colors?  The user could override any get then for a unique purpose or even change the global setting for disabled gets to other colors.  The gets could inherit the default setting when a dialog is activated and be changed when necessary for specific purposes for each get while the dialog is activated.\n\nI really prefer the greyed out gets the way they were, but I do understand that some users would find them hard to read.\n\nDan','',0,'gA==','2s9wrzwi',1,0,'',270,0,0),(4666,1154,6,40,0,'200.92.19.81',1136506352,1,0,1,1,1,0,'','TbuttonB de Rossine','Foro buenas tardes a todos y un Feliz Año a cada uno, espero que logren todo lo que se proponen y lo que no también jejeje <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nBueno al grano, la TButtonb de Rossine trabaja con FWH24 y XHarbour ?\nlo que pasa es que estoy intentando incorporarla a mis sistemas pero no \nse deja por eso mi pregunta\n\nSaludos y gracias\nJoel Andujo','',0,'gA==','1scymve5',1,0,'',40,0,0),(4667,1154,6,18,0,'201.129.2.108',1136508413,1,0,1,1,1,1,'','Re: TbuttonB de Rossine','Joel :\n\nMira este link :\n\n<!-- m --><a class=\"postlink\" href=\"http://listoelpollo.blogspot.com/2005/10/tfolder-tbutton-y-tbuttonbmp.html\">http://listoelpollo.blogspot.com/2005/1 ... onbmp.html</a><!-- m -->','',0,'gA==','15vclmeu',1,0,'',18,0,0),(4668,1149,3,303,0,'68.7.28.54',1136509616,1,0,1,1,1,0,'','','Thanks, Antonio, that worked, however I still have the problem.\n \nI obtained a copy of the source for rddads.lib and the three files (ads1.c, adsfunc.c, and adsmgmnt.c) are all dated last month. The adsconnect60() function is in the source, so I assume the function is NOT in the source of the version of rddads.lib that came with Harbour 45. When I try to compile the new source I get lots of errors (see below). I don\'t know C++, so I don\'t know what to look for. I expect I am not compiling properly, but I am using the makefile.bc that came with the source (also below).\n\nAny ideas?\n\nJames\n\n-----------------------\nmakefile.bc (slightly modifed with my paths):\n\n#\n# $Id: makefile.bc,v 1.5 2005/10/04 15:52:39 kaddath Exp $\n#\n\n# makefile for Borland C/C++ 32 bits\n# Building of rddads.lib - RDD for Advantage Database Server\n\nINCLUDE_DIR = ..\\include;c:\\bc55\\include\n\nBIN_DIR = ..\\..\\..\\bcc55\\bin\nOBJ_DIR = ..\\obj\\b32\nLIB_DIR = ..\\lib\\b32\n\n$(LIB_DIR)\\rddads.lib :   \\\n   $(OBJ_DIR)\\ads1.obj    \\\n   $(OBJ_DIR)\\adsfunc.obj \\\n   $(OBJ_DIR)\\adsmgmnt.obj\n\n$(OBJ_DIR)\\ads1.obj     : ads1.c\n$(OBJ_DIR)\\adsfunc.obj  : adsfunc.c\n$(OBJ_DIR)\\adsmgmnt.obj : adsmgmnt.c\n\n.c.obj:\n  $(BIN_DIR)\\bcc32 $(CLIBFLAGS) $(C_USR) -c -O2 -DWIN32 -I$(INCLUDE_DIR) -o$@ $&lt;\n  tlib $(LIB_DIR)\\rddads.lib -+$@,,\n\n.prg.c:\n  $(BIN_DIR)\\harbour.exe $&lt; -q0 -w -es2 -gc0 -n -i$(INCLUDE_DIR) -o$@\n\n\n---------------------------------\nCompile errors:\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	..\\..\\..\\bcc55\\bin\\bcc32   -c -O2 -DWIN32 -I..\\include;c:\\bc55\\include -o..\\obj\\b32\\ads1.obj ads1.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nADS1.C:\nError E2139 ..\\include\\rddads.h 96: Declaration missing ;\nWarning W8075 ADS1.C 539: Suspicious pointer conversion in function adsGetRelPos\nWarning W8075 ADS1.C 550: Suspicious pointer conversion in function adsGetRelPos\nError E2451 ADS1.C 580: Undefined symbol \'isOptimized\' in function adsSetRelPos\nError E2451 ADS1.C 701: Undefined symbol \'isOptimized\' in function adsGoBottom\nError E2451 ADS1.C 750: Undefined symbol \'isOptimized\' in function adsGoTo\nError E2451 ADS1.C 821: Undefined symbol \'isOptimized\' in function adsGoTop\nError E2451 ADS1.C 891: Undefined symbol \'isOptimized\' in function adsSeek\nError E2451 ADS1.C 950: Undefined symbol \'fOptimized\' in function adsSeek\nWarning W8004 ADS1.C 995: \'u32Result\' is assigned a value that is never used in function adsSeek\nError E2451 ADS1.C 1068: Undefined symbol \'fOptimized\' in function adsSkip\nError E2451 ADS1.C 1108: Undefined symbol \'fOptimized\' in function adsSkip\nError E2451 ADS1.C 1156: Undefined symbol \'fOptimized\' in function adsSkipFilter\nError E2451 ADS1.C 1218: Undefined symbol \'isOptimized\' in function adsAppend\nWarning W8075 ADS1.C 1246: Suspicious pointer conversion in function adsAppend\nWarning W8075 ADS1.C 2139: Suspicious pointer conversion in function adsRecInfo\nWarning W8075 ADS1.C 2156: Suspicious pointer conversion in function adsRecInfo\nWarning W8075 ADS1.C 2171: Suspicious pointer conversion in function adsRecInfo\nWarning W8075 ADS1.C 2214: Suspicious pointer conversion in function adsRecId\nError E2451 ADS1.C 2245: Undefined symbol \'ulConnection\' in function adsCreate\nError E2451 ADS1.C 2245: Undefined symbol \'ulConnection\' in function adsCreate\nWarning W8075 ADS1.C 2492: Suspicious pointer conversion in function adsInfo\nWarning W8075 ADS1.C 2530: Suspicious pointer conversion in function adsInfo\nError E2451 ADS1.C 2619: Undefined symbol \'ulConnection\' in function adsOpen\nError E2451 ADS1.C 2619: Undefined symbol \'ulConnection\' in function adsOpen\nError E2451 ADS1.C 2986: Undefined symbol \'isOptimized\' in function adsForceRel\nError E2451 ADS1.C 3024: Undefined symbol \'isOptimized\' in function adsSetRel\nWarning W8004 ADS1.C 3027: \'ulRetVal\' is assigned a value that is never used in function adsSetRel\nWarning W8075 ADS1.C 3568: Suspicious pointer conversion in function adsOrderInfo\nError E2451 ADS1.C 3573: Undefined symbol \'DBOI_RELKEYPOS\' in function adsOrderInfo\nError E2172 ADS1.C 3573: Duplicate case in function adsOrderInfo\nError E2379 ADS1.C 3575: Statement missing ; in function adsOrderInfo\nWarning W8075 ADS1.C 3637: Suspicious pointer conversion in function adsOrderInfo\nWarning W8075 ADS1.C 3698: Suspicious pointer conversion in function adsOrderInfo\nError E2451 ADS1.C 3771: Undefined symbol \'DBOI_SCOPESET\' in function adsOrderInfo\nError E2172 ADS1.C 3771: Duplicate case in function adsOrderInfo\nWarning W8019 ADS1.C 3773: Code has no effect in function adsOrderInfo\nError E2379 ADS1.C 3773: Statement missing ; in function adsOrderInfo\nError E2451 ADS1.C 3816: Undefined symbol \'DBOI_SCOPECLEAR\' in function adsOrderInfo\nError E2172 ADS1.C 3816: Duplicate case in function adsOrderInfo\nError E2228 ADS1.C 3816: Too many error or warning messages in function adsOrderInfo\n*** 26 errors in Compile ***\n\n** error 1 ** deleting ..\\obj\\b32\\ads1.obj','',0,'gA==','11swbfin',1,0,'',303,0,0),(4669,1149,3,303,0,'68.7.28.54',1136511286,1,0,1,1,1,0,'','','More info. I found a much older version of adsfunc.c and it does contain the adsconnect60() function. So, I am confused as to why I am getting the link errror:\n\nError: Unresolved external \'_HB_FUN_ADSCONNECT60\'\n\nWhen the function is in the lib and the lib is being linked. I have confirmed that the lib is being linked because if I leave it out of the link script then I get a lot more errors.\n\nI guess logic would say that it may be in the adsfunc.c program, but it is not in the rddads.lib. Is there a way to view the functions in a lib?\n\nJames','',0,'gA==','1b01s5ux',1,0,'',303,0,0),(4670,1133,1,2,0,'80.32.22.38',1136532548,1,0,1,1,1,1,'','','Besides that, what stacksize and heapsize are you using in your LNK file ?','',0,'gA==','32q4loug',1,0,'',2,0,0),(4671,1149,3,2,0,'80.32.22.38',1136532729,1,0,1,1,1,1,'','','James,\n\nWhy don\'t you use the rddads.lib file that comes into <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w --> ?','',0,'gA==','chrlg97a',1,0,'',2,0,0),(4672,1109,4,2,0,'80.32.22.38',1136532800,1,0,1,1,1,1,'','','Hathal,\n\nThank you. We are going to review it as soon as possible.','',0,'gA==','2h1rc846',1,0,'',2,0,0),(4673,1149,3,303,0,'68.7.28.54',1136533625,1,0,1,1,1,0,'','','[quote:2s53qezm]Why don\'t you use the rddads.lib file that comes into <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w --> ?[/quote:2s53qezm]\n\nI was using the one that came with FWH 2.6. I listed the functions using \"tlib rddads.lib, rddads.txt\" and there is no function adsconnection60() in it.\n\nI find this curious since the source for adsfunc.c that is older than the lib contains that function, and the source that I have dated last month also has it. But the lib doesn\'t.\n\nI downloaded the new one and the function is not in it either. I must be misunderstanding something. The source has this in it:\n\nHB_FUNC( ADSCONNECT60 )\n\nIs that not the adsconnect60() function? If so, then the lib must have been created using a different source.\n\nJames','',0,'gA==','2s53qezm',1,0,'',303,0,0),(4674,1018,1,51,0,'80.122.88.242',1136536712,1,0,1,1,1,0,'','','Hello Antonio,\n\nI tried your suggestion and so fare it is working.\nThe only problem is how to switch between the address-panel and the  browser-panel.\n\nCould you please help me on that again.\n\nLINK:  <!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoiceForAntonio_2.zip\">www.atzwanger.com/invoice/invoiceForAntonio_2.zip</a><!-- w -->\n\nThanks in advance\n\nOtto','',0,'gA==','hqr8s4rz',1,0,'',51,0,0),(4675,986,6,102,0,'80.224.235.17',1136537156,1,0,1,1,1,1,'','','Gracias Antonio,\nHe estado siguiendo un mensaje sobre el When en los get\'s (El cual habeis borrado del foro,no se porque) y he solucionado el problema.\nSaludos y feliz Año nuevo a tod el mundo','',0,'gA==','1fooreab',1,0,'',102,0,0),(4676,986,6,102,0,'80.224.235.17',1136537624,1,0,1,1,1,1,'','','Rectifico Antonio. Pasa que no se porque no lo encontraba.\n\nSaludos','',0,'gA==','1w3zqq2i',1,0,'',102,0,0),(4677,1155,3,330,0,'217.37.54.49',1136539545,1,0,1,1,1,0,'','DLL Function','Hi all\nI am trying to use an external dll which gives an example in vb as \nDeclare Function ZcSearchString(ByVal conn As Long, _\n                                ByVal SrchType As Integer, _\n                                ByVal Columns As String, _\n                                ByVal ColDelim As String, _\n                                ByVal Query As String, _\n                                ByVal Timeout As Integer, _\n                                ByVal ShowList As Integer) _\n                                As String\n\n\nI have tried to change this to \nDLL32 Function ZcSearchString (Mconn As LONG, SrchType As BYTE, Columns As LPSTR, ColDelim As LPSTR, Query As LPSTR, Timeout As BYTE, ShowList As BYTE) As STRING PASCAL LIB \"ZCVBCLNT.DLL\"\n\nbut it does not work. Can anyone help\n\nPeter','',0,'gA==','o1pk6698',1,0,'',330,0,0),(4678,1155,3,6,0,'82.57.162.180',1136540430,1,0,1,1,1,1,'','Re: DLL Function','Try\n\nDLL32 Function ZcSearchString (Mconn As LONG, SrchType As LONG, Columns As LPSTR, ColDelim As LPSTR, Query As LPSTR, Timeout As LONG, ShowList As LONG) As LPSTR PASCAL LIB \"ZCVBCLNT.DLL\"\n\nEMG','',0,'gA==','2t4zn3j0',1,0,'',6,0,0),(4679,1155,3,330,0,'217.37.54.49',1136541420,1,0,1,1,1,0,'','','Thanks got it working by playing with String and LTSTR. Thanks\n\nBTW DLL Function works but DLL32 does not\n\nPeter','',0,'gA==','2bmofyrj',1,0,'',330,0,0),(4680,1140,3,135,0,'82.91.87.23',1136547474,1,0,1,1,1,0,'','I have solved the problem','I have created the method EMF( cfile, right, left, top, bottom )\n\nMETHOD EMF( cFile, left, right, top, bottom ) CLASS TPrinter\n\n     Local hMeta,oRect\n     Local aData:=PrnGetSize( ::hDC )\n\n     IF ! FILE( cFile )\n        Return nil\n     Endif\n\n     SaveDC( ::hDCOut )\n\n     hMeta:=GetEnhMetaFile( cFile )\n\n     ::SetIsoTropicMode()\n     ::SetWindowExt( aData[1], aData[2] )\n     ::SetViewPortExt( aData[1], aData[2] )\n     SetViewOrg( ::hDCOut, -1, -1 )\n\n     STRUCT oRect\n        MEMBER nLeft   AS LONG\n        MEMBER nTop    AS LONG\n        MEMBER nRight  AS LONG\n        MEMBER nBottom AS LONG\n     ENDSTRUCT\n\n     oRect:nLeft   := left\n     oRect:nTop    := top\n     oRect:nRight  := aData[1] - right  - ::nXoffset - ::nXoffset\n     oRect:nBottom := aData[2] - bottom - ::nYoffset - ::nYoffset\n\n     SetBkMode( ::hDCOut, 1 )\n\n     PlayEMF( ::hDCOut, hMeta, oRect:cBuffer , .T. )\n\n     DeleteEnhMetafile( hMeta )\n\n     RestoreDC( ::hDCOut )\n\nReturn nil\n\n\n\nDLL32 FUNCTION PLAYEMF( hDC AS LONG, hEMF AS LONG, cRect AS LPSTR ) AS BOOL;\n      PASCAL FROM \"PlayEnhMetaFile\" LIB \"gdi32.dll\"','',0,'','3h7qbrqw',1,0,'',135,0,0),(4681,1143,6,147,0,'208.51.141.113',1136548375,1,0,1,0,1,1,'','','Parece que no estoy dando con las variables; esta es mi configuración\n\n[Variables]\nBPATH = D:\\BCC55\nCPATH = D:\\xHARBOUR\nCOPT = /m /n /o$In $(Warnings) $(Compiler Options)\nLOPT = $(Linker Options)\nFWH = D:\\xHARBOUR\\FWH\nLINKER = $(BPATH)\\BIN\\ILINK32\n\n[Environment]\nPATH = $(CPATH)\\BIN;%PATH%;$(BPATH)\\BIN\nINCLUDE = $(CPATH)\\INCLUDE;$(FWH)\\INCLUDE\nLIB = $(CPATH)\\LIB\nOBJ = $(CPATH)\\OBJ\n\nNo obstante al pulsar sobre el botón Generar me aroja el siguiente error\n\n--------------------Configuración: Prueba - Debug--------------------\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nPrueba.c:\nError E2209 Prueba.c 8: Unable to open include file \'hbvmpub.h\'\nError E2209 Prueba.c 9: Unable to open include file \'hbpcode.h\'\nError E2209 Prueba.c 10: Unable to open include file \'hbinit.h\'\nError E2258 Prueba.c 14: Declaration was expected in function HB_FUNC\nError E2258 Prueba.c 15: Declaration was expected in function HB_FUNC\nError E2258 Prueba.c 16: Declaration was expected in function HB_FUNC\nError E2258 Prueba.c 17: Declaration was expected in function HB_FUNC\nError E2258 Prueba.c 22: Declaration was expected in function HB_FUNC\nError E2451 Prueba.c 23: Undefined symbol \'HB_FS_PUBLIC\' in function \n....','',0,'','393f8qws',1,0,'',147,0,0),(4682,1156,3,330,0,'217.37.54.49',1136548748,1,0,1,1,1,0,'','Calling a sub','Hi all\nI am using an external dll which contains a SUB that i need to call\nCan this be called using DLL Function or is there another way. BTW the SUB does not return anything\nThanks\nPeter','',0,'','og8e5fak',1,0,'',330,0,0),(4683,1125,6,147,0,'208.51.141.113',1136551348,1,0,1,0,1,1,'','Nueva dirección de dbWide','cual es?\n\nComento que esta mañana quise entrar al <!-- w --><a class=\"postlink\" href=\"http://www.creswin.com\">www.creswin.com</a><!-- w --> y me dio error de dirección no encontrada\n\nsaludos','',0,'','1awzahil',1,0,'',147,0,0),(4684,1157,3,26,0,'193.77.242.6',1136551992,1,0,1,1,1,1,'','_xvalloc _xvfree _xvlock _xvunlock','Hello!\n\nWhich functions should I use instead of\n_xvalloc, _xvfree, _xvlock and _xvunlock?\n<!-- m --><a class=\"postlink\" href=\"http://clipper.ecofor.cl/C52G03B/ng1763f.html\">http://clipper.ecofor.cl/C52G03B/ng1763f.html</a><!-- m -->\n\nLooking at hbapi.ch, I see that there exist\nhb_xalloc and hb_xfree. Is it safe to use\nthem without locking?\n\nIs there any difference between fixed\nand virtual memory in Harbour:\n<!-- m --><a class=\"postlink\" href=\"http://clipper.ecofor.cl/C52G03B/ng16770.html\">http://clipper.ecofor.cl/C52G03B/ng16770.html</a><!-- m -->\n\n\nThanks, Roman','',0,'','2dlm4h47',1,0,'',26,0,0),(4685,1154,6,41,0,'166.114.252.26',1136552566,1,0,1,1,1,0,'','','Una Consulta,\n\nestos controles modificados se pueden utilizar desde recursos?, creo que solo eran para ser usados desde codigo fuente?\n\nY por ultimo de donde los puedo bajar\n\nGracias\n\nMarcelo','',0,'','2q8lv5bi',1,0,'',41,0,0),(4686,1074,2,63,0,'80.58.35.107',1136554470,1,0,1,1,1,0,'','','Antonio, René:  Gracias!\n\nYo tenía un error de concepto: Creí que las vocales acentuadas se trataban como idénticas a las no acentuadas y ahora veo que no es así: El \"orden\" -por si a alguien le interesa- es: a,á,e,é,i,í,o,ó,u,ú,à,è,ì,ò,ù\n\nCuriosamente, la ñ va en su posición \"normal\", entre la n y la o; en cambio, la ç (cedilla) cae detrás de la z\n\nSiempre se aprende algo...  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nRafael','',0,'','2vjmj8jg',1,0,'',63,0,0),(4687,1158,2,124,0,'201.252.220.1',1136557230,1,0,1,1,1,0,'','GRABAR ARCHIVOS EXCEL CON CAMPOS NUMERICOS','Amigos:\n\nEstamos trabajando con la clase txls grabando archivos excel. \n\nMe encuentro con el problema que los campos numericos son grabados como campos caracter, teniendo luego que modificarse el formato de cada columna numerica antes de poder operarla como numero cuando se abre la planilla desde excel.\n\n¿Hay algun parametro o forma de uso que indique que columnas deben grabarse como numericas o me estoy equivoncando en algo?\n\nGracias.\nSaludos.\nRicardo','',0,'','2irtwuv6',1,0,'',124,0,0),(4688,1133,1,204,0,'83.235.227.115',1136558184,1,0,1,1,1,0,'','','My stack size is 9500 and heap is 2048. My lnk file is\n[code:wtaxeyc5]\nBLINKER INCREMENTAL OFF \nBLINKER EXECUTABLE CLIPPER E&#58;4096;F&#58;255;SWAPPATH&#58;\'c&#58;\\windows\\temp\\\';TEMPPATH&#58;\'c&#58;\\windows\\temp\\\' \nBLINKER EXECUTABLE COMPRESS 1 \n//BLINKER EXECUTABLE EXTENDED \nVERBOSE 2 \nOUTPUT &#46;\\wADI&#46;EXE\nMAP= &#46;\\WADI1&#46;MAP S,A\nPACKCODE\nPACKDATA\n\nDEFBEGIN\n   name        WADI\n   description \'ADI for Windows\'\n   exetype     Windows 3&#46;1\n   code        moveable discardable\n   data        preload moveable\n   stacksize   9500\n   heapsize    2048\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nNOBELL\n \nFILE ADI_MAIN\nFILE ADI_OPEN\nFILE ADI_MENU\nFILE ADI_FRMS\nFILE ADI_BRWS\nFILE ADI_VIEW\n//FILE ADI_FIND\n//FILE ADI_FILT\nFILE ADI_RL\nFILE ADI_MISC\nFILE ADI_BACK\nFILE SIXCDX\nFILE MSGGR437\nLIB HLIBW\nSEARCH  Five, FiveC, Objects\nLIB WinApi, Clipper, Extend, six3, Terminal\n\n[/code:wtaxeyc5]','',0,'AIA=','wtaxeyc5',1,0,'',204,0,0),(4689,1153,1,255,0,'200.67.134.233',1136558671,1,0,1,1,1,1,'','Re: till Now steps of creating Dialogs as main window','[quote=&quot;Ehab Samir Aziz&quot;:3391ad02]I tried to create small program that has a resource dialog as main window. Till Now I do not know the steps of creating the resource and I am asking if there are any include lines inside the program *.ch?\nThanks[/quote:3391ad02]\n\nMaybe i didnt understand exactly what you wanna do, because \nits very simple to create an app with a main dialog from resource.\n\n#Include \"FiveWin.ch\"\n\nFunction Main()\n\n   Local oDlg\n   DEFINE DIALOG oDlg RESOURCE \"MAIN\"\n   .... \n   ....\n   ....\n   ACTIVATE DIALOG oDlg CENTERED\n\nReturn NIL\n\n\nRegards','',0,'gA==','3391ad02',1,0,'',255,0,0),(4690,1125,6,228,0,'201.245.222.85',1136559122,1,0,1,1,1,1,'','No encontre las clases','Amigo como estas, estuve buscando en las news la clase pero sin exito alguno, sera que me las puedes enviar?. \n\nLa clase de botones de fwh me ha funcionado bien, sera que me indicas como hago para poner el texto en otro angulo?\n\nY si depronto se te enrreda por ahi un ejemplo de como usar la clase tprogress tambien seria excelente.','',0,'gA==','2j4bhpta',1,0,'',228,0,0),(4691,747,4,68,0,'203.45.174.65',1136559518,1,0,1,1,1,1,'','','Notes for newbies on Emulator Serial Ports (MSDN Forums - Device Emulator General 29 Nov 2005)\nSerial Port 0: appears inside the emulator as COM1: that apps can use.\nSerial Port 1: reserved for WinCE kernel, doesn\'t have a driver, do not use it. ie \'com2:\' is not available.\nSerial Port 2: the IRDA port and assigned the name COM3:\n\nI\'ve grafted fragments of FWPPC \'comm.c\' into parts of Harbour Telepathy (port by Luiz Rafael Culik Guimaraes) and have a working FWPPC test program that reads from a barcode scanner and can send acks, etc. Nearly there...\nRegards and happy and successful 2006 to all <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','56cp4oxo',1,0,'',68,0,0),(4692,1159,6,228,0,'201.245.222.85',1136559728,1,0,1,1,1,1,'','Otra Preguntonta xbrowse','Como estan amigos del foro otra vez yo.\n\nMiren la pregunta es la siguiente. En mi codigo anterior cuando queria mostrar una bases de datos en el tbrowse, lo hacia de la siguiente manera:\n\nSELE tMovi\nREDEFINE LISTBOX oT1oli VAR oT1vli;\n               FIELDS tMovi-&gt;Articu,tMovi-&gt;Cedula,tMovi&gt;Pedido;\n               FIELDSIZES 78,150,150 ID 110 OF oDem11;\n               HEADERS \"Artículo\",\"Cédula\",\"Pedido\"\n\n[color=red:coge945y]Como debo hacerlo con xbrowse?[/color:coge945y]  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'Ag==','coge945y',1,0,'',228,0,0),(4693,1160,4,95,0,'201.137.208.219',1136561663,1,0,1,1,1,0,'','New Palm','Hi ...\n\nI would like to buy this product\n\n<!-- m --><a class=\"postlink\" href=\"http://www.palm.com/us/products/smartphones/treo700w/specs.epl\">http://www.palm.com/us/products/smartph ... /specs.epl</a><!-- m -->\n\nSome one has one ?\n\nBest Regards\nOsvaldo Ramirez','',0,'Ag==','2onmcq2e',1,0,'',95,0,0),(4694,1149,3,299,0,'69.65.88.121',1136562683,1,0,1,0,1,0,'','','James;\n\nadsconnect60 is in adsfunc.c.  Do notice the order of parameters, and it returns true or false and not a connection handle anywhere.  The connection handle is stored on a static variable available internally to any future ads function call that needs it.\n\nI found advantage database documentation to be helpful.  You must, however, always check the .c source for the order of parameters.  \n\nIf you can\'t find your way around teh adsconnect60 problem, try using adsconnect(...).\n\nHB_FUNC( ADSCONNECT60 )\n{\n\n   UNSIGNED32 ulRetVal ;\n   UNSIGNED8  *pucServerPath = (UNSIGNED8  *) hb_parcx( 1 );\n   UNSIGNED16 usServerTypes  = ( UNSIGNED16 ) hb_parni( 2 );\n   UNSIGNED8  *pucUserName   = ISCHAR( 3 ) ? (UNSIGNED8  *) hb_parcx( 3 ) : NULL ;\n   UNSIGNED8  *pucPassword   = ISCHAR( 4 ) ? (UNSIGNED8  *) hb_parcx( 4 ) : NULL ;\n   UNSIGNED32 ulOptions      = ISNUM( 5 ) ? hb_parnl( 5 ) : ADS_DEFAULT ;\n\n   ulRetVal = AdsConnect60( pucServerPath,\n                            usServerTypes,\n                            pucUserName,\n                            pucPassword,\n                            ulOptions,\n                            &amp;adsConnectHandle );\n\n   if(ulRetVal == AE_SUCCESS )\n   {\n      hb_retl( 1 ) ;\n   }\n   else\n   {\n      hb_retl( 0 ) ;\n   }\n\n}','',0,'Ag==','u5mj7sfz',1,0,'',299,0,0),(4695,1161,6,255,0,'200.67.134.233',1136562937,1,0,1,1,1,1,'','FiveWin caused a general protection.....','amigos, tengo este error:\n\nFiveWin caused a general protection  fault in\nmodeule TMK.EXE  at ................\n\nChoose close...FIVEWIN will be close.\n\n\nA que se debe este error?\nHay forma de solucionarlo sin compilar???\n(la persona que hizo el programa se fué y\n  no dejo fuentes)\n\nGracias\n\nPD\nel programa está corriendo sobre Windows XP\ny windows 2000.\nEspecificamente en los de XP es donde ocurre.','',0,'Ag==','2ld2bdar',1,0,'',255,0,0),(4696,1160,4,289,0,'212.138.64.171',1136563414,1,0,1,1,1,0,'','Re: New Palm','[quote=&quot;ramirezosvaldo&quot;:3xs9j3i6]Hi ...\n\nI would like to buy this product\n\n<!-- m --><a class=\"postlink\" href=\"http://www.palm.com/us/products/smartphones/treo700w/specs.epl\">http://www.palm.com/us/products/smartph ... /specs.epl</a><!-- m -->\n\nSome one has one ?\n\nBest Regards\nOsvaldo Ramirez[/quote:3xs9j3i6]\nI thank you on the news\nI She watched the product but the system is with required folding the speed of more than 500  but it is expected that the coming technology is approved on\nThe windows Ce 5 Where there are in it the advantages of its many\nLike a possibility for the programming camera is with Api \nThe windows are 4 that does not support Api For Camera\nAnd many of the problems\nBest Regards \nHATHAL','',0,'gA==','3xs9j3i6',1,0,'',289,0,0),(4697,1154,6,43,0,'201.127.19.186',1136563432,1,0,1,1,1,0,'','','Hola Joel.\n\n    Anteriomente tambien tenia fwh 2.4 y trate de trabajar la clase que mecionas, pero sopresa no se podia trabajar con ella a lo cual Rossine me explico que era debido a que la habia hecho para fwh 2.6, la cual incorpora el doble buffer, pero Rossine me dijo que podia hacer dos cosas:\n\n    1.- Actualizar mi fwh (lo cual no lo podia hacer en ese momento) ó\n\n    2.- Suprimir el doble buffer en la clase la cual puedes identificar facilmente por que hay una variable definida asi:\n              \n              aInfo := ::DispBegin()    &lt;-- esto lo tienes que poner como comentario\n         \n               ::DispEnd( aInfo )   &lt;-- y esto tambien.\n\n     Y me funciono de perlas,claro ya actualize mi fwh, espero y te sirva\n\n\nSaludos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n   Marco A. Delgado.','',0,'gA==','37bwtwoy',1,0,'',43,0,0),(4698,1153,1,148,0,'196.205.176.31',1136563446,1,0,1,1,1,0,'','','The idea I got the error message that main resource is not found. What my program should be edited by to make the resource visible to it ?','',0,'gA==','jomaox3k',1,0,'',148,0,0),(4699,1160,4,255,0,'200.67.134.233',1136563511,1,0,1,1,1,1,'','Re: New Palm','[quote=&quot;ramirezosvaldo&quot;:mm7007bt]Hi ...\nI would like to buy this product\n<!-- m --><a class=\"postlink\" href=\"http://www.palm.com/us/products/smartphones/treo700w/specs.epl\">http://www.palm.com/us/products/smartph ... /specs.epl</a><!-- m -->\nSome one has one ?\nBest Regards\nOsvaldo Ramirez[/quote:mm7007bt]\n\nYo no lo tengo pero se me hace curioso\nque una PALM use windows mobile JAJA\n\n---------------------------------------------\n\ni dont have it, but is real funny...\na PALM device using windows mobile JAJA','',0,'gA==','mm7007bt',1,0,'',255,0,0),(4700,1154,6,43,0,'201.127.19.186',1136563605,1,0,1,1,1,0,'','','Por supuesto que se pueden usar con recursos y ya viene incorporados en en la nueva version FWH \n\n\nSaludos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n   Marco A. Delgado','',0,'gA==','2t6x8vxq',1,0,'',43,0,0),(4701,1156,3,6,0,'82.61.28.43',1136564629,1,0,1,1,1,1,'','Re: Calling a sub','Yes, the DLL command or a C wrapper.\n\nEMG','',0,'gA==','1uu6l0dw',1,0,'',6,0,0),(4702,1162,3,286,0,'200.109.148.28',1136564891,1,0,1,1,1,1,'','Get validation using database object','I\'m working with a database object and need to validate a get assigned to one field of the database object. Example:\n[code:19iez0z3]redefine get oGet&#91; 1&#93; var oNomTra&#58;nomtracod id 1001 of oFld&#58;aDialogs&#91;1&#93; picture \'@!\' update\n&#46;&#46;&#46;\n&#46;&#46;&#46;\noNomTra&#58;Blank&#40;&#41;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nnReg &#58;= oNomTra&#58;RecNo&#40;&#41;\noNomTra&#58;Seek&#40; oNomTra&#58;nomtracod &#41;\noNomTra&#58;GoTo&#40;nReg&#41;[/code:19iez0z3]\nThe question is I\'ve noticed that if I make the search for validation propossal with this code I lost the initial value of the gets it takes the database record value. I try to assign the get\'s initial value to a var in order to perform the validation like this\n[code:19iez0z3]cCode &#58;= oNomTra&#58;nomtracod\noNomTra&#58;lBuffer &#58;= &#46;f&#46;\noNomTra&#58;Seek&#40; cCode &#41;\noNomTra&#58;GoTo&#40;nReg&#41;\noNomTra&#58;lBuffer &#58;= &#46;t&#46;[/code:19iez0z3]\nbut after set the buffer of the database object to false the var value is lost. \nSo, I need to make a validation keeping the original values of the gets\n\nThanks for your comments','',0,'AIA=','19iez0z3',1,0,'',286,0,0),(4703,1156,3,330,0,'217.37.54.49',1136565159,1,0,1,1,1,0,'','','Is this called in the same way and what should i use as the AS option if there is nothing returned\ne.g.\nDLL Function mydllsub() AS ???? PACSAL LIB \"mylib.dll\"\n\nThanks\nPeter','',0,'AIA=','1y3qj5pi',1,0,'',330,0,0),(4704,1149,3,303,0,'68.7.28.54',1136565680,1,0,1,1,1,0,'','','Reinaldo,\n\nI just copied the line from Rene\'s demo;\n\n   IF AdsConnect60( \"\\\\googleserver\\cursos\\adsdemo\\cibconwn\\stc\\internet server.add\", 4,\"demo\",\"demo\")\n\nSo the problem has nothing to do with parameter passing.\n\nThe proplem is that the rddads.lib doesn\'t not contain the adsconnect60() function, in spite of the fact that I cannot find any copy of adsfunc.c that doesn\'t have the function in it. Even the newest Harbour\'s rddads.lib doesn\'t contain the function.\n\nSince I am unable to compile the source without error, I cannot fix the library. I have emailed Rene directly to see if he can resolve the problem for me.\n\nJames','',0,'AIA=','twf12ieu',1,0,'',303,0,0),(4705,1163,3,49,0,'62.13.172.78',1136565835,1,0,1,1,1,0,'','dialog style ws_child','I have this source :\n\n\n\n\n\n[code:215vtf7u]oBrush &#58;= TBrush&#40;&#41;&#58;New&#40;&quot;NULL&quot;,,,&#41;\n\n   oDlg &#58;= TDialog&#40;&#41;&#58;New&#40;&#41;\n   oWnd&#58;CoorsUpdate&#40;&#41;\n   aDlgCoor &#58;= DlgCoors&#40;oWnd&#41;\n   oDlg&#58;nTop     &#58;= aDlgCoor&#91;4&#93;\n   oDlg&#58;nLeft    &#58;= aDlgCoor&#91;5&#93;\n   oDlg&#58;nBottom  &#58;= aDlgCoor&#91;6&#93;\n   oDlg&#58;nRight   &#58;= aDlgCoor&#91;7&#93;\n   oDlg&#58;cCaption &#58;= &quot;Anagrafica Reparti&quot;\n   oDlg&#58;SetColor&#40; GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41;&#41; [/code:215vtf7u]\n\nHow I can set the dialog WS_child ?\nRegards','',0,'AIA=','215vtf7u',1,0,'',49,0,0),(4706,1156,3,6,0,'82.61.28.43',1136565945,1,0,1,1,1,1,'','','AS VOID\n\nEMG','',0,'AIA=','3lqgncwx',1,0,'',6,0,0),(4707,1162,3,303,0,'68.7.28.54',1136566189,1,0,1,1,1,0,'','','It looks like you are calling the blank() method before the seek. This will refill the buffer with blank data--all the fields will be blank. I am not clear why you are calling blank()?\n\nIf you don\'t call blank(), turning lBuffer off, then on, should work. If it still doesn\'t then we need to see more of your code.\n\nJames','',0,'AIA=','28q4qcbs',1,0,'',303,0,0),(4708,1150,2,348,0,'201.230.65.83',1136566236,1,0,1,1,1,0,'','Re: Color de un oGet','Buen dia.\n\nCon el permiso de Antonio, Me gustaria comentarte, que tuve la misma necesidad el año pasado y en la anterior NEWs  me pasaron este dato: \n\nmodificar la clase Tget :  en el Metodo  GotFocus() cambiar  al final del metodo en setcolor()\n\nesto me ha funcionado muy bien y la ventaja que este efecto se aplica a todo tu programa,  y no es necesario hacerlo para cada get\n\nme gustariia que el estimado Antonio nos pueda convalidar este procedimiento ....  \n\naqui te mando una copia de ese metodo del  tGet modificado, la linea de rojo es lo que se ha modificado.... esta al final... \n\nMETHOD GotFocus() CLASS TGet\n\n   if ! Empty( ::cPicture ) .and. ::oGet:type == \"N\"\n      ::oGet:Picture := StrTran( ::cPicture, \",\", \"\" )\n   endif\n\n   if ! ::lDrag\n      ::oGet:KillFocus()   // to properly initialize internal status\n      ::oGet:SetFocus()\n      ::DispText()\n      if ::oGet:type$\"DN\"\n         ::nPos :=  1\n      endif\n      ::oGet:Pos = ::nPos\n      ::SetPos( ::nPos )\n      CallWindowProc( ::nOldProc, ::hWnd, WM_SETFOCUS )\n      if Set( _SET_INSERT )\n         DestroyCaret()\n         CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() )\n         ShowCaret( ::hWnd )\n      endif\n   else\n      HideCaret( ::hWnd )\n   endif\n\n   Super:GotFocus()\n  [color=red:33zquv9z]::setcolor(nRGB(0,0,0),nRGB( 231,226,141))  // cuando toma el foco pone el fondo amarillo[/color:33zquv9z]\nreturn 0','',0,'Ag==','33zquv9z',1,0,'',348,0,0),(4709,1163,3,303,0,'68.7.28.54',1136566396,1,0,1,1,1,0,'','','Try:\n\n  oDlg:nStyle:= nor( WS_CHILD )\n\nJames','',0,'Ag==','3ghw08ze',1,0,'',303,0,0),(4710,1162,3,299,0,'69.65.88.121',1136566825,1,0,1,0,1,0,'','','William;\n\nredefine get oget[ 1 ] var oNomTra:VarNomTracod id ... ;\nValid (is_valid( onomTra:VarNomTraCod .... ) )\n\nWhere oNomTra:VarNomTraCod is the buffer where data is being input, Is_valid(...) is a function that recieves the inputed value and returns .t. if acceptable and .f. if not which you may later .or./.and. with a MsgYesNo stating the fact.\n\nIf clicking on Save button, then oNomTra:Save() is called which will actually lock the record and save the buffer data to the database.\n\nHope this helps.\n\nIf you want a generic is_valid fuction that validates info against a db, I\'ll post it.\n\nReinaldo Crespo.','',0,'','qxyv3zl7',1,0,'',299,0,0),(4711,747,4,289,0,'212.138.64.173',1136566834,1,0,1,1,1,0,'','I testing all  fwppc sources the available and did not run','jon\nI in need for the contact between the pocket pc from Bluetooth  to computer \nSending a file represented or received a file\nI testing all  fwppc sources the available and did not run\nDo there is solution\nBest Regards \nHATHAL','',0,'','1npz0vn3',1,0,'',289,0,0),(4712,962,2,348,0,'201.230.65.83',1136566988,1,0,1,1,1,0,'','','Buenos Dias Antonio,  antes que nada un feliz Año 2006,  que todos los planes se cumplan \n\nDesearia retomar el tema, pues te comentare que intenten cambiar o agregar esto en mi  clase tget  y  resulta que no tengo ningun metodo  Paint()  en mi version.  \n\nMis consultas :  \n1. Que debo hacer ?? (intente agregarla y me salio error al compilarla\n2. Como debo agregarla y en que -Prg ??\nl3. uego ,,,  como cambiaria el color de  ::nClrText y ::nClrPane para que los gets deshabilitados queden con  letras rojas y fondo blanco, me muestras un ejemplo por favor ??  \n\nuso : Clipper 5.2\n        Fivewin 2.3\n        blinker 4.0\n\n\nMuchas gracias  \n\nlubin\n\n\n\n[quote=&quot;Antonio Linares&quot;:8p8xzzhs]El código final ha quedado así:\n\n[code:8p8xzzhs]\n   if IsWindowEnabled&#40; &#58;&#58;hWnd &#41;\n      CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   else\n      SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41;\n      hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oFont&#58;hFont &#41;\n      \n      do case \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_CENTER &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_CENTER &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; / 2,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n              \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_RIGHT &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_RIGHT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; - 4,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n             \n         otherwise \n              SetTextAlign&#40; &#58;&#58;hDC, TA_LEFT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 0, 0,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      endcase \n\n      SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;            \n   endif                \n[/code:8p8xzzhs]\n\nEl color lo estableces con la cláusula COLOR ..., ... para cada GET, ó en ese código cambias ::nClrText y ::nClrPane por los colores que quieras y todos los GETs deshabilitados se verán del mismo color.[/quote:8p8xzzhs]','',0,'gIA=','8p8xzzhs',1,0,'',348,0,0),(4713,1164,6,61,0,'201.217.174.13',1136567253,1,0,1,1,1,0,'','buttonbmp de Rossine - compilar prgs','Amigos no he podido compilar estas líneas \ncon Harbour 45 y FWH 2.7 del archivo de Rossine Button.Prg\n\nlínea 104\n  \n   ::nStyle    = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP,;\n                     If( lDefault, BS_DEFPUSHBUTTON, 0 ),;\n                     If( cPosText == \"TEXTTOP\", BS_TOP, 0 ),;\n                     If( cPosText == \"TEXTBOTTOM\", BS_BOTTOM, 0 ),;\n                     If( cPosText == \"TEXTLEFT\", BS_LEFT, 0 ),;\n                     If( cPosText == \"TEXTRIGHT\", BS_RIGHT, 0 ),;\n                     if( at( CRLF, ::cCaption ) &gt; 0, BS_MULTILINE, 0 ) , ;\n                     If( lDesign, WS_CLIPSIBLINGS, 0 ) )\n                     \n                     \n                     \nlínea 161\n\n::nStyle    = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, BS_MULTILINE,;\n                     If( cPosText == \"TEXTTOP\", BS_TOP, 0 ),;\n                     If( cPosText == \"TEXTBOTTOM\", BS_BOTTOM, 0 ),;\n                     If( cPosText == \"TEXTLEFT\", BS_LEFT, 0 ),;\n                     If( cPosText == \"TEXTRIGHT\", BS_RIGHT, 0 ) )\n\n\n\n\nAlguien me puede enviar los objs para Harbour 45 y\nFWH 2.7. ?\n\n\nMuchas gracias.','',0,'gIA=','fo4xvyp6',1,0,'',61,0,0),(4714,1165,6,228,0,'201.245.222.85',1136568792,1,0,1,1,1,1,'','Problema con archivo plano','Amigos del foro, el problema es que al importar un archivo el ultimo registro me sale en blanco. \n\nExiste una forma de quitar ese espacio en blanco.\n\nla instruccion la ejecuto de la siguiente manera:\n\nUSE \\DATOS\\CLIENTES.DBF ALIAS tClie NEW EXCLUSIVE\nZAP\ndbgotop()\nAPPEND FROM \\DATOS\\CLIENTES.TXT DELIMITED WITH ,\ndbgotop()\n\nMuchas Gracias de Antemano','',0,'gIA=','15b5jr4b',1,0,'',228,0,0),(4715,1074,2,375,0,'84.122.112.212',1136571729,1,0,1,1,1,1,'','','Todo eso está muy bien, y agradezco mucho la preocupaciónb por el tema. Pero hay otra pega... Yo tengo fw 2.3 con clipper 5.3 y utilizo dbf/cdx. Por lo tanto, ni tengo el NTXSPA.OBJ del amigo René, ni por supuesto algún posible CDXSPA.OBJ. Ni puedo emplear los seteos HB_... de Harbour.\n\nMuchas gracias de todas maneras','',0,'gIA=','vg231xns',1,0,'',375,0,0),(4716,1166,2,375,0,'84.122.112.212',1136572473,1,0,1,1,1,1,'','Para ANTONIO. uLoadObject Y TPrinters','No sé si te acordaras de estos dos temas que te planteé hace algunos días. Falla uLoadObject CON blinker 6.0 Y TPrinter vs TReport.\n\nCreo que es un problema de algun seteo, del clipper 5.3 (con FW2.3) o del Blinker 6.0 pues, por ejemplo, respecto al primer problema, si creo un pequeño arreglo de tres o cuatro elementos (STRINGS) y lo guardo con lSaveObject() ,al principo de un programa cualquiera, e inmediatamente lo habro con uLoadObject, no falla. Sin embargo si intento habrirlo más adelante del programa, ya no vá. O si una vez creado borro la línea del lSaveObject.  También se corta. \n\nEn cuanto al tema TReport. Puse una serie MSGALERT´s entre todas las líneas de código para ver por donde iba. Me imprimió el reporte. Quitados los Mensajes ya no imprimió. Pero tampoco al reponer los MSGALERT\'s. Curioso ¿Verdad?\n\nGracias por adelantado','',0,'gIA=','3p1gde0h',1,0,'',375,0,0),(4717,1166,2,375,0,'84.122.112.212',1136572616,1,0,1,1,1,1,'','','Se me olvidaba, estos son los parámetros que utilizo con Blinker:\n\nDefinitivamente, creo que es problema de memoria. Tras varios errores. Con la memoria sucia, he puesto varios MSGALERT(\"OK\") entre las lineas de programacion del report, y ha funcionado. Tras apagar y encender el ordenador. Sin tocar nada, me ha vuelto a fallar con MSGALERT y todo. \nO es la memoria, o es el linkado. Te pongo mi link: \n\nBLINKER INCREMENTAL OFF \nBLINKER CLIPPER SYMBOL OFF \nBATCH \n\nFI C:\\CLIPPER5\\OBJ\\SODECAP\\SOCIOS.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\PROCEDAT.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\MODDAT.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\SODEFUNC.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\LISSOCS.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\GUARDAT.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\RECIBOS.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CUOTAS.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\DLGCUOTA.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CARATUL.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\UTILES.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\RESUMEN.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\FORMREC.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPFICH.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPLIST.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPRESOS.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\IMPEFUNC.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-METER.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-GET.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-BROW.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-BOX.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-ARRAY.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-MIBIT.OBJ \nFI C:\\CLIPPER5\\OBJ\\SODECAP\\CL-MGET.OBJ \n\nFI C:\\CLIPPER5\\BLINKER4\\OBJ\\MPAR.OBJ \n\nOU C:\\CLIPPER5\\SODECAP\\SOCIOS \n\nPACKCODE \nPACKDATA \nDEFBEGIN \nname SODECAP \ndescription \'GESTION DE SOCIOS\' \nexetype Windows 3.1 \ncode moveable discardable preload \ndata preload moveable \nstacksize 8192 \nheapsize 2048 \nsegment \'PLANKTON_TEXT\' nondiscardable \nsegment \'EXTEND_TEXT\' nondiscardable \nsegment \'OM_TEXT\' nondiscardable \nsegment \'OSMEM_TEXT\' nondiscardable \nsegment \'SORTOF_TEXT\' nondiscardable \nsegment \'STACK_TEXT\' nondiscardable \nDEFEND \n\nNOBELL \n\nSEARCH Five, FiveC, Objects \nLIB WinApi, Clipper, Extend, DbfNtx, Terminal, Fivestub \n\nRC -m SODECAP \n\n_________________\nNos Gusta Programar','',0,'gIA=','1dyed2cn',1,0,'',375,0,0),(4718,1113,2,375,0,'84.122.112.212',1136573633,1,0,1,1,1,1,'','','Según el error que te dá, parece como si utilizaras un tipo erroneo de valor en el MIN o el MAX del SPINNER. Esos valores/variables han de ser del mismo tipo que la variable del GET. Revisa tu código.\n\nFeliza año...','',0,'gIA=','1xcsgxre',1,0,'',375,0,0),(4719,962,2,375,0,'84.122.112.212',1136574653,1,0,1,1,1,1,'','','Por si te sirve de algo, yo he empleado otra solución. (con fw2.3)\n\nLo que hago es que no utilizo :Enable() ó <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable(), tan sólo el :lReadOnly. Es decir, la condición de validación no la pongo en el WHEN directamente. UN EJEMPLO\n\nREDEFINE GET oGet VAR oSay ...... WHEN MiFuncVal(oGet,...)\n\nFUNCTION  MiFuncVal(oGet,...)\n  ...\n   IF &lt;CondicionValidez&gt;\n       oGet[1]:SetColor(ColorTxt_Valido,ColorBack_Valido)\n       oGet[1]:lReadOnly := .T.  &lt;---- Similar a Enable()\n       oGet[1]:DispText()\n   ELSE\n       oGet[1]:SetColor(ColorTxt_NOValido,ColorBack_NOValido)\n       oGet[1]:lReadOnly := .F.  &lt;----- Similar a Disable()\n       oGet[1]:DispText()\n   ENDIF\n   ...\n   IF ...\n     ...\n   ENDIF\n   ...\nRETURN .T.  &lt;--- Si debes evaluar condiciones adicionales devuelve .T. o .F. según te convenga\n\nA mi me ha ido muy bien','',0,'','161ybkms',1,0,'',375,0,0),(4720,1167,6,251,0,'200.84.23.34',1136575001,1,0,1,1,1,0,'','problemas con el refresh del menu','hola colegas, ya voy un poco mas avanzado pero esta vez tengo el detalle que debo modificar el menu durante la ejecucion, pero al refrescar el menu, no lo hace sera que estoy haciendo algo mal..?\n\noWnd:oMenu:refresh()\n\nmientras que la opcion de disable si funciona\n\noWnd:oMenu:disable()\n\nSaludos a todos.','',0,'','2qhk1kcx',1,0,'',251,0,0),(4721,1143,6,50,0,'84.121.113.133',1136578527,1,0,1,1,1,0,'','Configuracion','Mario fijate si es por aqui:\n[.C]\nOut = $In.obj\nCmd0 = bcc32 -c -ID:\\XHARBOUR\\INCLUDE $In.c\n\nSaludos.\n\nAntonio F. Ortega','',0,'','2n5h2o4n',1,0,'',50,0,0),(4722,1149,3,138,0,'201.128.111.75',1136578660,1,0,1,1,1,1,'','','James:\n\nI got it, I got it, I got it !!!!!!!!\n\nThe RDDADS.LIB as it comes built in the contrib directory when you download the binary version (not the source), is designed to work with ADS version 5.x and lower, not for ADS ver 6.x and upper. AdsConnect60 and other functions are not taken in when you compile the source code of the RDDADS AS IS.\n\nYou have to recompile the RDDADS.LIB from the source code defining  the flag ADS_REQUIRE_VERSION to a value equal or greater than 6.\n\nYou can do it using de -d flag of the C compiler or, go straight into the source code of the ADSFUNC.C and remove manually the \n\n#if ADS_REQUIRE_VERSION &gt;=.....\n\nAnd recompile the library again.','',0,'','334dgzi1',1,0,'',138,0,0),(4723,1168,3,217,0,'201.42.90.115',1136580574,1,0,1,1,1,0,'','Goodbye for while, friends','Hello!\n\nReturning after vacations I was fired on Jan/02.\nThe company were I worked for 10 years are reorganizing and \"I´m not part of this plans\".\nThey are trading FW to Delphi...\nA great 2006 to all friends that help me for all period of my professional life with FW.\nA special thanks to Mr. Linares:\nAntonio, thanks to help me in various moments of my professional life and bugs problems <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\nNow I´ll think if I´ll search for a new job or create my own company...\n\nThanks to all\nMaurilio','',0,'','11438zvt',1,0,'',217,0,0),(4724,1149,3,303,0,'68.7.28.54',1136580722,1,0,1,1,1,0,'','','Rene,\n\nI would have never figured that out!\n\nI couldn\'t figure out how to use the -d parameter, so I modifed the source (adsfunc.c) as you suggested. However, I am still getting this compile error:\n\nError E2139 rddads.h 96: Declaration missing ;\n\nHere is how I am calling the compiler:\n\nc:\\bcc55\\bin\\bcc32  -c -O2 -DWIN32 -Ic:\\harbour\\include adsfunc.c \n\nAny ideas?\n\nJames','',0,'','518hup6w',1,0,'',303,0,0),(4725,1161,6,2,0,'80.32.22.38',1136580824,1,0,1,1,1,1,'','','Juan Carlos,\n\nNo hay fichero MAP ? No aparece la pila de llamadas desde donde se produce el GPF ?','',0,'','3k8scfox',1,0,'',2,0,0),(4726,1125,6,2,0,'80.32.22.38',1136580913,1,0,1,1,1,1,'','','Leandro,\n\nTienes un ejemplo de uso de TProgress() en samples\\win32.prg','',0,'','dqn5k210',1,0,'',2,0,0),(4727,1168,3,2,0,'80.32.22.38',1136581044,1,0,1,1,1,1,'','','Maurilio,\n\nWe wish you all the luck. Many times companies want to move to different languages and finally they can\'t. Time to time...\n\nIn the meantime, you may contact Gilmer, I am sure he knows many companies using FiveWin in Brazil and may help you.','',0,'','2b08xl7r',1,0,'',2,0,0),(4728,1157,3,2,0,'80.32.22.38',1136581588,1,0,1,1,1,1,'','','Roman,\n\nYou just need to use:\n\nhb_xgrab( ULONG ulSize ) --&gt; void * pMem \n\nand \n\nhb_xfree( void * pMem ) --&gt; void \n\nIn 32 bits there is no need to lock the memory at all. \n\nIf you are going to store a Harbour item into it, then you should call hb_gcGripGet( PHB_ITEM ) and hb_gcGripDrop( PHB_ITEM ) to avoid the garbage collector to destroy that item.','',0,'','22s3dil0',1,0,'',2,0,0),(4729,1133,1,2,0,'80.32.22.38',1136581801,1,0,1,1,1,1,'','','I suggest you to use Comix instead of Six. 5.2 and Six had many memory troubles.\n\nAlso, you may seriously consider to move to 32 bits using harbour/xharbour and FWH.','',0,'','2iaa8ncq',1,0,'',2,0,0),(4730,1153,1,2,0,'80.32.22.38',1136582012,1,0,1,1,1,1,'','','Ehab,\n\nAre you storing your resources into the EXE or into an external DLL ?\n\nIf they are inside the EXE, open the EXE with the resources workshop and double check that the resources are there.','',0,'','2zzz7c01',1,0,'',2,0,0),(4731,1167,6,2,0,'80.32.22.38',1136582189,1,0,1,1,1,1,'','','Si quieres cambiar el texto de un menuitem haz:\n\noItem:SetPrompt( cNewText )','',0,'','xjjp5t3n',1,0,'',2,0,0),(4732,1159,6,2,0,'80.32.22.38',1136582232,1,0,1,1,1,1,'','','Leandro,\n\nRevisa el ejemplo samples\\Testxbrw.prg','',0,'','1vhbj3l4',1,0,'',2,0,0),(4733,1166,2,2,0,'80.32.22.38',1136582461,1,0,1,1,1,1,'','','Manu,\n\nDeberias plantearte pasarte a 32 bits con Harbour/xharbour y FWH.','',0,'','39x1kseu',1,0,'',2,0,0),(4734,1162,3,286,0,'200.109.148.28',1136584076,1,0,1,1,1,1,'','','Ok. thanks guys... Let me explain better\n\nMy prog in first instance define some gets linked to a database object. \n[code:31nyy35f]redefine get oGet&#91; 1&#93; var oNomTra&#58;nomtracod id 1001 of oDlg picture \'@!\' update[/code:31nyy35f]\nAfter that, there is a button I use to edit the get\'s trought a function. \n[code:31nyy35f]redefine sbutton oBtn&#91;1&#93; id 1111 of oDlg name &quot;New&quot; nobox update ;\n         caption &quot;New&quot; text 3 tooltip &quot;New record&quot; ;\n         action &#40; NonTraEdit&#40; &quot;NEW&quot;, oNomTra, oBtn, oGet, oRadio, oLbx&#91;1&#93;, oImg, oWChild&#41; &#41;[/code:31nyy35f]\nIn the function there exist the Blank() method to allow the get edition and one routine to validate the user input\n[code:31nyy35f]function NonTraEdit&#40; cModo, oNomTra, oBtn, oGet, oRadio, oLbx, oImg, oWChild &#41;\n	do case\n	case cModo $ &quot;NEW,EDIT&quot;\n		lNew &#58;= &#40; cModo = &quot;NEW&quot; &#41;\n		if lNew\n			oNomTra&#58;Blank&#40;&#41;\n		else\n			if ! oNomTra&#58;RecLock&#40;&#41;\n				lGo &#58;= &#46;f&#46;\n			endif\n		endif\n\n		if lGo\n		&#46;&#46;&#46;[/code:31nyy35f]\nThe same function is called by another button to validate the gets\n[code:31nyy35f]	case cModo = &quot;CHECK&quot;\n		do case\n		case Empty&#40; oNomTra&#58;nomtracod &#41;\n			MsgStop&#40; &quot;The code can\'t be empty&quot;, &quot;Error&quot; &#41;\n			oGet&#91;1&#93;&#58;SetFocus&#40;&#41;\n			lGo &#58;= &#46;f&#46;\n		case &#46;&#46;&#46;\n		case &#46;&#46;&#46;\n		endcase\n		&#46;&#46;&#46;\n		&#46;&#46;&#46;\n		nReg &#58;= oNomTra&#58;RecNo&#40;&#41;\n		oNomTra&#58;lBuffer &#58;= &#46;f&#46; \n		oNomTra&#58;Seek&#40; oNomTra&#58;nomtracod &#41;\n		if oNomTra&#58;Found&#40;&#41;\n		    &#46;&#46;&#46;\n		    lGo &#58;= &#46;f&#46;\n		endif\n		oNomTra&#58;GoTo&#40;nReg&#41; \n		oNomTra&#58;lBuffer &#58;= &#46;t&#46;\n[/code:31nyy35f]\nThere is where the problem exist. The get initially has the user input value. I want to check if the code there exist in the database file. So, I do a search with the get value, but because the TDatabase Seek() method has a load() method inside makes the original get\'s value change.\nIf I try to set to false the object database buffer, this causes that the values are lost.\nIf I do the search without set the database buffer to false then all get takes the value of the database record. So of any way always I lose the original values','',0,'AIA=','31nyy35f',1,0,'',286,0,0),(4735,1169,1,154,0,'151.81.3.152',1136586999,1,0,1,1,1,1,'','FW27 TREE PROBLEM','Hi fw\'s\nin a my program I use a Tree with resource and with last FW27 do not work!\nThat you see in the testtrer.prg samples\n\nCan you help me?','',0,'AIA=','1lp2mcan',1,0,'',154,0,0),(4736,1170,2,396,0,'201.242.79.165',1136587952,1,0,1,1,1,0,'','darle el focus en otra pestaña','Srs. aqui les dejo a ver en que me ayudan, tengo 1 folder donde esta 1 browse, 1 bnt para pasar a una 2da. pestaña y le doy el focus a 1 get de la 2da pestaña, pero cuando le doy ENTER no me pasa al siguiente GET, pero usando el tabulador si, los 3 primeros GET tienen valid y when, de ahi en adelante si se pasa de GET en GET usando el ENTER, si alguno tiene idea de que debo revisar. FW 2.5 CLIP53 BLINKER 6.0, estoy en Venezuela como puedo adquirir una verion de FWH y demas componentes ara pasar a 32 bits? desde ya muchas gracias. mi correo personal es <!-- e --><a href=\"mailto:joseluisysturiz@yahoo.com\">joseluisysturiz@yahoo.com</a><!-- e -->','',0,'AIA=','xilhsggl',1,0,'',396,0,0),(4737,1161,6,255,0,'200.67.134.233',1136587978,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3v6itpok]Juan Carlos,\n\nNo hay fichero MAP ? No aparece la pila de llamadas desde donde se produce el GPF ?[/quote:3v6itpok]\n\nAntonio:\n\nNop, lamentablemente no hay nada de eso <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nno hay forma de poder hacer algo verdad?','',0,'gA==','3v6itpok',1,0,'',255,0,0),(4739,1157,3,26,0,'193.95.231.145',1136599215,1,0,1,1,1,1,'','','Thanks!\n\nBTW, where can I download Harbour source?\nLink to <!-- m --><a class=\"postlink\" href=\"ftp://ftp.harbour-project.org/source/harbour-0.45.src.zip\">ftp://ftp.harbour-project.org/source/ha ... 45.src.zip</a><!-- m -->\ndoes not work...\n\nRoman','',0,'gA==','2arltaeb',1,0,'',26,0,0),(4740,1162,3,303,0,'68.7.28.54',1136600476,1,0,1,1,1,0,'','','Well, I still think it should work. I don\'t see a problem in your code so the problem must be in code we haven\'t seen yet.\n\nHowever, I do think you are making your life more difficult that it need be. First, I suggest going to my website and reading the artciles about building database objects. \n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nI will try to summarize them here.\n\nMake a subclass of TDatabase that contains methods add() and edit(). This makes your code much easier and also allows you to use polymorphism later. In this case you are also going to need an isUnique() method (although I wonder why you don\'t just generate a unique ID automatically).\n\n[code:2ikz7bdv]class TCustomer from TDatabase\n   data lAdd hidden\n   method add\n   method edit\n   method isUnique\nend \n\nmethod add&#40;&#41;\n   lAdd&#58;=&#46;t&#46;\n   &#58;&#58;edit&#40;&#41;\n   lAdd&#58;=&#46;f&#46;\n   &#58;&#58;load&#40;&#41;\nreturn self\n\nmethod edit&#40;&#41;\n   local oDlg\n   if &#58;&#58;lAdd\n      &#58;&#58;blank&#40;&#41;\n   endif\n   define dialog oDlg\n   &#46;&#46;&#46;\n   redefine get oGet &#58;&#58;nomtracod valid isUnique&#40; oGet&#58;varGet&#40;&#41; &#41;\n   redefine button ID_OK action &#58;&#58;save&#40;&#41;\n   activate dialog oDlg\nreturn self\n\nmethod isUnique&#40;cNomtracod&#41;\n   local nRecno&#58;=&#58;&#58;recno&#40;&#41;\n   local lSuccess&#58;=&#46;f&#46;\n   &#58;&#58;lBuffer&#58;=&#46;f&#46;\n   &#58;&#58;seek&#40;cNomtracod&#41;\n   if &#58;&#58;found&#40;&#41;\n      msgInfo&#40;&#46;&#46;&#46;&#41;\n   else\n      &#58;&#58;lSuccess&#58;=&#46;t&#46;\n   endif\n   &#58;&#58;goto&#40;&#58;&#58;nRecno&#41;\n   &#58;&#58;lBuffer&#58;=&#46;t&#46;\nreturn lSuccess[/code:2ikz7bdv]\n\nThat is the basics of it. Now you can do:\n\n   oCustomer:edit()\n\nor,\n  \n   oCustomer:add()\n  \nIf you are trying to get the user to input a unique primary-key value, then I would not. For the user this is a real pain--it\'s like typing into a black hole. They don\'t know what to type and there is nothing to help them but a rude error message. I would generate sequential keys automatically.\n\nIf you are trying to get the user to type in a valid pre-existing code, then I would use a combobox instead. Better, with DBCombo, you can provide a list of descriptions and automatically get the corresponding code. This way the user doesn\'t even have to know the codes. The lastest version of DBCombo also has a dynamic search so the user can type in a few keystrokes to get the first match.\n\nPerhaps something in here helps...\n\nRegards,\nJames','',0,'AIA=','2ikz7bdv',1,0,'',303,0,0),(4741,1170,2,74,0,'190.48.237.61',1136604782,1,0,1,1,1,1,'','','Jose Luis:\n\n               Mostranos el codigo que usas para cambiar de folder y darle foco al primer get y el de la definicion y valid de ese get.\n\n               Yo usando algo como esto nunca he tenido ese problema:\n\n	REDEFINE GET oPrograma   VAR cPrograma      ID 162  FONT oFont3 OF oFld:aDialogs[1] PICTURE \"@x\" ;\n		             VALID (ValProgra(lNew,@cPrograma,cXoc) .and. cambiafld(oFld)) UPDATE\n\n\n Static Function CambiaFld(oFld)\n oFld:Setoption(2)\n oFld:nOption:=2\n oFld:Refresh()\n\n return .t.\n\n   El primer get del folder 2 toma el foco sin hacerle :setfocus() ni nada por el estilo porque es el primer control en el orden establecido para el dialogo de esa pestaña en el workshop. Y puedo pasar a los siguientes gets con enter sin problemas.\n\n\nSaludos,','',0,'','2rzoius6',1,0,'',74,0,0),(4742,1158,2,74,0,'190.48.237.61',1136605348,1,0,1,1,1,1,'','','Ricardo:\n\n             No utilizo txls, uso filexls, pero deberias revisar en la documentacion o los fuentes como darle formato a las celdas. Con la filexls podes hacer esto:\n\n    DEFINE XLS FORMAT nFormat1 PICTURE \'#,##0\'      \n    DEFINE XLS FORMAT nFormat2 PICTURE \'#,##0.00\'   \n\n           @ nRow,5 XLS SAY IF(MOVART-&gt;MPENDI # \'X\',MOVART-&gt;MCAN,0) FONT nFont3 OF oFileXLS ;\n                    FORMAT nFormat2\n\n     Y la suma la podes enviar a excel incluso con la funcion suma() de excel:\n\n              @ nRow,6 XLS FORMULA _SUM( nRowActividad, 6, nRow-1, 6 ) FONT nFont3 OF oFileXLS ;\n                       BORDER BORDER_TOP ;\n                       FORMAT nFormat2\n\n      Seguramente tenes la forma de hacer lo mismo con la txls.\n\nSaludos,','',0,'','2kbm41ef',1,0,'',74,0,0),(4743,1161,6,74,0,'190.48.237.61',1136606092,1,0,1,1,1,1,'','','Juan Carlos:\n\n                   A veces las gpfs se producen por el acceso a alguna dbf, cdx o sobre todo campo memo fpt dañado. Proba copiar el sistema a otra carpeta y borrar, packear o pasarle el filefix al campo memo de las dbf que los tengan, reindexa o incluso packea o zapea las dbf por afuera del programa. Si la gpf se produce al entrar a una determinada opcion de menu eso puede ser indicio de que la gpf se produce al abrir alguna de las dbf. Tambien podes ir borrando las dbf de a una para ver si la gpf se produce antes del error que se generara seguramente al querer abrir la dbf borrada o no.\n\n                    El error se produce siempre en el mismo lugar del programa o aleatoriamente en cualquier lugar ?. Tmk.exe es el nombre del exe fivewin ?.','',0,'','3g8r7px4',1,0,'',74,0,0),(4744,1165,6,74,0,'190.48.237.61',1136606618,1,0,1,1,1,1,'','','Leandro:\n\n              Seguramente el txt debe tener un enter al final del archivo por eso te importa esa ultima linea de mas, pero bastaria con que despues de la importacion hagas:\n\nclientes-&gt;(dbgobottom())\nif empty(clientes-&gt;nombre)\n    clientes-&gt;(dbdelete())\nendif\n\n                          \nSaludos,','',0,'','3nnjdlf2',1,0,'',74,0,0),(4745,1168,3,190,0,'202.65.134.28',1136607606,1,0,1,1,1,0,'','','Dear Maurilio,\n\nBe bold and courageous.  Take your company\'s decision in a positive way.\nIt may be a beginning for your better future.  May be you are out of the job for a while but not for ever.  \n\nEven I encountered this problem earlier.  And I started my own company\nseven years back. To day I have my products working with almost 500 clients in a our province itself.\n\nCosult your welwishers and try to work for yourself.\n\nI wish you all the best in your future endeavors.   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n- Ramesh Babu','',0,'','34l2kl1g',1,0,'',190,0,0),(4746,1157,3,2,0,'80.32.22.38',1136618255,1,0,1,1,1,1,'','','Roman,\n\n<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/harbour-project\">http://sourceforge.net/projects/harbour-project</a><!-- m -->','',0,'','3bhx73ne',1,0,'',2,0,0),(4747,1169,1,2,0,'80.32.22.38',1136618555,1,0,1,1,1,1,'','','Ugo,\n\nWe have just tested samples\\TestTreeR.prg and worked ok on first try.','',0,'','2c00uuao',1,0,'',2,0,0),(4748,1170,2,2,0,'80.32.22.38',1136618810,1,0,1,1,1,1,'','','Jose Luis,\n\n&gt;\nestoy en Venezuela como puedo adquirir una version de FWH y demas componentes para pasar a 32 bits?\n&gt;\n\nToda la distribución de nuestros productos se hace desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'','3sd55iur',1,0,'',2,0,0),(4749,1157,3,26,0,'193.95.231.145',1136628043,1,0,1,1,1,1,'','','Thanks!\n\nFYI, I was trying to download file\n<!-- m --><a class=\"postlink\" href=\"ftp://ftp.harbour-project.org/source/harbour-0.45.src.zip\">ftp://ftp.harbour-project.org/source/ha ... 45.src.zip</a><!-- m --> \nwith Opera and Internet Explorer 6, but no success (timeout)\n\nEventually, I downloaded it with \"FAR Manager\":\n<!-- m --><a class=\"postlink\" href=\"http://farmanager.com/download.php?l=en\">http://farmanager.com/download.php?l=en</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://farmanager.com/updates.php?l=en\">http://farmanager.com/updates.php?l=en</a><!-- m -->\n\nBTW, there are no file packages on\n<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/harbour-project\">http://sourceforge.net/projects/harbour-project</a><!-- m -->\n\nRegards, Roman','',0,'','3nlm5yoi',1,0,'',26,0,0),(4750,1153,1,148,0,'82.201.238.64',1136630431,1,0,1,1,1,0,'','','That is my code below : I created a resource called 1_2_02 that contained 1 Dialog also called 1_2_02 and my program also called 1_2_02.prg\n\n#Include \"FiveWin.ch\" \n\nFunction Main() \n\nLocal oDlg \nDEFINE DIALOG oDlg RESOURCE \"1_2_02\" \nACTIVATE DIALOG oDlg CENTERED \n\nReturn NIL \n\nApplication\n===========\n   Path and name: E:\\PROGRAMS\\CLIPPER\\FWEVAL\\SITEX\\1_2_02.EXE\n   Size:   632,000 bytes\n   Max files handles permited: ( SetHandleCount() )  69\n   Error ocurred at: 01/01/05, 12:40:41\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nResource: 1_2_02','',0,'','3tppu241',1,0,'',148,0,0),(4751,1171,4,13,0,'213.76.252.200',1136633599,1,0,1,1,1,0,'','RSync form PocketPc','Hello,\n\nI finished work to use rsync with PocketPc platform. This works ! \nI think, that would be interesting synchronize mechanism for dBase files.\nThis based on RSyncWin32 and Celib project.\n\nRegards\nPawel','',0,'','28osxrcp',1,0,'',13,0,0),(4752,1143,6,147,0,'208.51.141.113',1136635359,1,0,1,0,1,1,'','','Efectivamente; ahí había quedado apuntando al path opriginal\n\nmuchas gracias','',0,'','39ldcxuc',1,0,'',147,0,0),(4753,1125,6,147,0,'208.51.141.113',1136635615,1,0,1,0,1,1,'','','rectifico: cual es la nueva direccion de dbWide?\n\ngracias','',0,'','3i2kzzfw',1,0,'',147,0,0),(4754,1124,6,262,0,'83.97.168.83',1136639880,1,0,1,1,1,1,'','','Siempre se aprende algo nuevo  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nDe momento  la solución de cambiar los indices a dtos(dFecha) , no es viable , por compatibilidad ( programas clipper de años atras ) , pero lo he resuelto\nasi \n[code:3t3k7od4]\n\ndfecha&#58;=date&#40;&#41;-90\ncfiltro&#58;=&quot;facturas-&gt;fecha &gt;=ctod&#40;\'&quot;+dtoc&#40;dfecha&#41;+&quot;\'&#41;&quot;\nbfiltro&#58;=&amp;&#40;&quot;&#123;||&quot;+cfiltro+&quot;&#125;&quot; &#41;\nfacturas-&gt;&#40;dbsetfilter&#40;bfiltro,cfiltro&#41;&#41; \n[/code:3t3k7od4]\nfuncionar funciona,  pero no se si con filtro aof optimizado .\nGracias por el tip anterior pues lo tendre en cuenta de ahora en adelante .\nSaludos','',0,'AIA=','3t3k7od4',1,0,'',262,0,0),(4755,1147,3,125,0,'151.81.5.164',1136640712,1,0,1,1,1,0,'','','thank you, i will check','',0,'AIA=','2tq4y13r',1,0,'',125,0,0),(4756,747,4,68,0,'203.45.174.65',1136641279,1,0,1,1,1,1,'','','Hathal,\nHave you considered ActiveSync or other serial comms program with Bluetooth? Possibly less painful. I only need a few basic functions.\nregards, saludos','',0,'AIA=','wd29guce',1,0,'',68,0,0),(4757,1153,1,2,0,'80.32.22.38',1136642215,1,0,1,1,1,1,'','','Try to use another name different from \"1_2_02\"','',0,'AIA=','22j9l3lp',1,0,'',2,0,0),(4758,1157,3,2,0,'80.32.22.38',1136642290,1,0,1,1,1,1,'','','Roman,\n\n&gt; BTW, there are no file packages on \n&gt; <!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/harbour-project\">http://sourceforge.net/projects/harbour-project</a><!-- m --> \n\nGo to the CVS source repository.','',0,'AIA=','1p80embp',1,0,'',2,0,0),(4759,1172,7,260,0,'87.3.123.57',1136646724,1,0,1,1,1,0,'','Scan Registry es muy doloroso! Linares Help US','For solve some problem with hardware configuration, i go to study fivewin and it\'s registry istruction.\nFivewin haven\'t istruction for solve this problem.\nHarbour idem\nxHarbour idem.\nOnly for a sample of the problem:\nI get a list of installed printer:\nI go to HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Print\\Printers\ni get the subkey present on this item.\nfor every subkey i get some value for obtain a list of printer installed.\nThis is only a sample, there are many case for to get registry key and subkey.\n\nLike a scan a DBF invoice file, i searc a key of file head, in file rows, i read all item with key of invoice, for calculate the total for samples.\n\nI see how to in visual basic this is possible. And i have a program of scan a registry. But i work with Fivewin, and do no love make a program in too language for to work.\n\nFivewin + xharbour is very good, but some part are not complete.\nHow to?\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nEduardo Alicante','',0,'AIA=','2uz8dk1r',1,0,'',260,0,0),(4760,1173,3,260,0,'87.3.123.57',1136647027,1,0,1,1,1,0,'','Scan Registry es muy doloroso! Linares Help US','For solve some problem with hardware configuration, i go to study fivewin and it\'s registry istruction.\nFivewin haven\'t istruction for solve this problem.\nHarbour idem\nxHarbour idem.\nOnly for a sample of the problem:\nI get a list of installed printer:\nI go to HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Print\\Printers\ni get the subkey present on this item.\nfor every subkey i get some value for obtain a list of printer installed.\nThis is only a sample, there are many case for to get registry key and subkey.\n\nLike a scan a DBF invoice file, i searc a key of file head, in file rows, i read all item with key of invoice, for calculate the total for samples.\n\nI see how to in visual basic this is possible. And i have a program of scan a registry. But i work with Fivewin, and do no love make a program in too language for to work.\n\nFivewin + xharbour is very good, but some part are not complete.\nHow to?\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nEduardo Alicante','',0,'AIA=','22385aqz',1,0,'',260,0,0),(4761,1125,6,177,0,'62.99.98.234',1136647269,1,0,1,1,1,0,'','','Mario,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/\">http://www.vikthor.com.mx/fivewin/</a><!-- m -->\n\nSaludos,\n\nFelix','',0,'AIA=','3j4xclem',1,0,'',177,0,0),(4762,1162,3,286,0,'200.109.148.28',1136649249,1,0,1,1,1,1,'','','Thanks James\n\nI think you\'re right but there are some events I\'m considering for a technique of effective validation like pre and post validation necessary in a real multiuser environment.\n\nTDatabase class at the moment does not offers methods to implement it. This is the reason for which I chose to post validate just at the saving time. I thought to use an inherited method of TDatabase class that does not make use of Load() when it makes the search, this way I can maintain the original values of get with no need to change the buffer data.\n\nOf all ways thank you very much by your collaboration and time','',0,'AIA=','dvj1acoj',1,0,'',286,0,0),(4763,1173,3,299,0,'69.65.88.121',1136650114,1,0,1,0,1,0,'','','Eduardo;\n\nI\'m not totally sure what you are looking for.  For the list of installed printers problem, try this function.  Do notice that the function returns an array:\n\nFunction GetPrinters()\nLocal aPrinters := {}, cText, cToken := Chr(15)\n\n// Passing no second param or passing ZERO to GetProfString()\n// grabs entire section in .ini file.  Each printer is separated by a\n// null char (Chr(0)) and a CRLF.  We just strip them out\n\n	cText := StrTran( StrTran( StrTran( ;\n				GetProfString( \"Devices\", 0 ), Chr(0), cToken ), Chr(13) ), Chr(10) )\n\n	aPrinters := Array( Len( cText ) - Len( StrTran( cText, cToken ) ) )\n\n	AEval( aPrinters, {| cPrn, nEle | aPrinters[ nEle ] := StrToken( cText, nEle, cToken ) } )\n\nReturn aPrinters\n\n*-------------------------------------------------------------------------------------------------------------------------\n\n\n\nReinaldo Crespo','',0,'','2c54lttd',1,0,'',299,0,0),(4764,1146,6,36,0,'200.113.56.235',1136650582,1,0,1,1,1,0,'','Hernan','Hernan    Una consulta\n\nQue mejoras tiene la version 8 con respecto a la version 7.1\nen cuantos aplicaciones xharbour\n\ndesde ya gracias\n\nSaludos\nPatricio','',0,'','wjwsy1vx',1,0,'',36,0,0),(4765,1154,6,40,0,'200.92.17.159',1136651001,1,0,1,1,1,0,'','','Gracias Vicktor y Marco, el detalle era el doble buffer como bien\nlo explica Marco, ya funciona de perlas\n\nSaludos\nJoel Andujo','',0,'','2h8j0ack',1,0,'',40,0,0),(4766,660,2,9,0,'85.59.37.39',1136653598,1,0,1,1,1,0,'','','[quote=&quot;MarioG&quot;:2cl8ok5l]Necesito una dirección de correo  a donde enviartelo\n\nsaludos[/quote:2cl8ok5l]\n\nMario, \nTe agradecería me enviaras a mi email  <!-- e --><a href=\"mailto:lebsoft@mixmail.com\">lebsoft@mixmail.com</a><!-- e -->  el fichero.\n\nMuchas gracias y feliz año.\n\nManuel','',0,'gA==','2cl8ok5l',1,0,'',9,0,0),(4767,1166,2,375,0,'84.122.112.212',1136654654,1,0,1,1,1,1,'','','Estoy de acuaerdo, pero ahora no puedo. Ni tiempo ni economía','',0,'gA==','3htwzezh',1,0,'',375,0,0),(4768,1154,6,40,0,'200.92.17.159',1136657714,1,0,1,1,1,0,'','','Estoy agarrado con esto de los botones de Rossine, por cierto estupendo trabajo de su parte y felicitaciones.\n\nTengo una duda intento cambiar el bmp del botón en tiempo de ejecución\nlo estoy haciendo de esta forma  :\n\n oBtn:cBitMap:=\'..\\BMP\\Cancelar.BMP \'\n oBtn:refresh()\n \n incluso a si también :\n\n oBtn:cBitMap:=\'..\\BMP\\Cancelar.BMP \'\n oBtn:Paint()\n oBtn:refresh()\n\npero no logro que la imagen se cambie, ¿ alguna idea ?\n\nSaludos \nJoel Andujo','',0,'gA==','67jstqvr',1,0,'',40,0,0),(4769,1165,6,228,0,'201.245.222.85',1136659518,1,0,1,1,1,1,'','si solucionado','Daniel lo solucione de esa manera, pero pense que habia alguna otra forma de hacerlo.\n\nCambiando de tema, tu me puedes indicar como hago para quitar el espacio en blanco que genera un archivo plano al final. ¿Cuando yo lo genero?.','',0,'gA==','2ggedkye',1,0,'',228,0,0),(4770,1154,6,262,0,'83.97.168.83',1136660757,1,0,1,1,1,1,'','','segun el codigo de buttonb en new\n\n[code:1nnnhq09]\n if valtype&#40; cBitmap &#41; == &quot;C&quot;\n      cBitmap &#58;= &#123; cBitmap, cBitmap, cBitmap, cBitmap &#125;\n   endif\n[/code:1nnnhq09]\nobtn:cBitmap es un array de 4 posiciones y creo que debes cambiarlo asi:\n[code:1nnnhq09]\ncBitmap&#58;= \'&#46;&#46;\\BMP\\Cancelar&#46;BMP \' \n oBtn&#58;cBitMap&#58;=&#123; cBitmap, cBitmap, cBitmap, cBitmap &#125;\n[/code:1nnnhq09]\nSaudos','',0,'AIA=','1nnnhq09',1,0,'',262,0,0),(4771,747,4,289,0,'212.138.64.173',1136664875,1,0,1,1,1,0,'','','[quote=&quot;Jon Munro&quot;:2in9qy2f]Hathal,\nHave you considered ActiveSync or other serial comms program with Bluetooth? Possibly less painful. I only need a few basic functions.\nregards, saludos[/quote:2in9qy2f]\njon \nI want  function with Fwppc source\nBest Regards \nHATHAL','',0,'gA==','2in9qy2f',1,0,'',289,0,0),(4772,1154,6,40,0,'200.92.17.159',1136665040,1,0,1,1,1,0,'','','Amigo Astursoft, tienes razón es un array, pero para evitar problemas me he permitido crear un nuevo methodo para cambiar la imagen\nel botton en tiempo de ejecución, ahi se la dejo.\n\nSaludos\nJoel Andujo\n\n*----------------------------*\nMETHOD SetBMP( cBitMap )  CLASS TButtonBmp\n local hBitMap\n if valtype( cBitMap )== \'C\'\n    hBitMap:=if( file(cBitMap),ReadBitmap( 0, cBitMap), LoadBitmap( GetResources(), cBitmap))\n\n    ::hBitmap:={hBitmap, hBitmap, hBitmap, hBitmap}\n else\n    for i=1 to 4\n       if valtype(cBitMap[i])=\'U\'; cBitMap[i]:=cBitMap[1] ; endif\n       ::cBitmap[i]:=cBitMap[i]\n       ::hBitmap[i]:=if( file(cBitMap[i]), ReadBitmap(0, cBitmap[i]), LoadBitmap( GetResources(), cBitmap[i] ) )\n    next\n endi\n\n ::Refresh()\nreturn Nil','',0,'','37isfni0',1,0,'',40,0,0),(4773,1146,6,138,0,'201.128.111.75',1136671867,1,0,1,1,1,1,'','','Por partes:\n\nPara bajar ADS 8: <!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/ver8/\">www.google.d2g.com/ads/ver8/</a><!-- w -->\n\nServer local si funciona en Win98\n\nLimite de usuarios: 5\n\nEn cuanto al RDD para xHarbour, Bryan Hays ha escrito varias cosas nuevas para el RDDADS, como por ejemplo que puedas tener conviviendo los 3 tipos distintos de formatos de datos (DBF/CDX, DBF/NTX y ADT/ADI), se han implmentado nuevas funciones sobre todo para monitorear el servidor y otras cosillas, solo esta disponbile con (x)Harbour 99.5.1.\n\nDel lado del servidor remoto los cambios son IMPRESIONANTES, ahora tienes replicación de tus datos DBF  a otro servidor, la velocidad se ha aumentado de manera considerable, si antes era rapido, ahora siento que va como un 20% o 30% mas rapido, el acceso via internet a los datos se ha mejorado mucho en cuanto a velocidad tambien, y se ha incorporado al servidor remoto el servicio de respaldo de informacion automatico.','',0,'','bt9br66n',1,0,'',138,0,0),(4774,1159,6,228,0,'201.245.222.85',1136672067,1,0,1,1,1,1,'','voy a probar','Gracias Oscar voy a probar y te aviso','',0,'','14qtlaya',1,0,'',228,0,0),(4775,1124,6,138,0,'201.128.111.75',1136672213,1,0,1,1,1,1,'','','Jejeje, pues va a ser que no es un AOF.\n\nRecuerda: lo que estás haciendo es un FILTRO, no un SCOPE, por lo tanto puedes utilizar el DTOS() tranquilamente en vez del DTOC(), ten en cuenta que el FILTRO no requiere del INDICE para nada.\n\nSi estuvieras haciendo SCOPE, entonces si tendrias que tener indexado sobre DTOS, pero como no lo es, el truco del DTOS() en la expresion te vale para filtrar correctamente.','',0,'','1b1y6gmx',1,0,'',138,0,0),(4776,1172,7,2,0,'80.32.22.38',1136672226,1,0,1,1,1,1,'','','Eduardo,\n\nEstas en un foro en español, te importa traducir tu mensaje ? gracias.','',0,'','3mpdh5ky',1,0,'',2,0,0),(4777,1146,6,45,0,'200.82.60.189',1136672900,1,0,1,1,1,0,'','','Rene,\n   Cual es la version de LOCAL SERVER, que NO tiene limites de usuarios ??? (hablamos de una aplicacion NO C/S)\n\nSalu2','',0,'','17f9v71x',1,0,'',45,0,0),(4778,911,7,28,0,'87.218.47.245',1136673400,1,0,1,1,1,0,'','radmenu','No estoy hablando de modificar nada sino de un nuevo preprocesado igual que hay @ BITMAP, REDEFINE BITMAP y DEFINE BITMAP cada uno que elija lo que necesite. \nNo se si has caido en la cuenta de que @ RADIO no hay manera de utilizarlo de buena manera.','',0,'','l9pdac2n',1,0,'',28,0,0),(4779,1153,1,148,0,'82.201.238.64',1136674555,1,0,1,1,1,0,'','','Ok I renamed the dialog from 1_2_02 to main inside the resource 1_2_02.rc .Also I got an Error :\n\n1_2_02.rc(13) error RW2001 : undefined keyword or key name :\nWS_POPUP\n\nApplication\n===========\n   Path and name: E:\\PROGRAMS\\CLIPPER\\FWEVAL\\SITEX\\1_2_02.EXE\n   Size:   632,000 bytes\n   Max files handles permited: ( SetHandleCount() )  69\n   Error ocurred at: 01/07/06, 00:52:57\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nResource: main','',0,'','2n6lil7m',1,0,'',148,0,0),(4780,1174,3,234,0,'72.130.245.241',1136689902,1,0,1,1,1,0,'','GPF Error with MEMOLINE and DBFCDX','Hello,\n\nI am getting a GPF (Harbour Exception) with MEMOLINE and DBFCDX. Can anyone help?\n\nThank You,','',0,'','1y6vdhy0',1,0,'',234,0,0),(4781,1175,6,222,0,'200.11.242.33',1136692596,1,0,1,1,1,0,'','Text-To-Speech para FWH','Hola, amigos:\n\nLes dejo aquí el enlace para descargar una clase que permite TTS (Text-to-speech) con FWH.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.megaupload.com/?d=UU6QSR7A\">http://www.megaupload.com/?d=UU6QSR7A</a><!-- m -->\n\nAgradezco me informen de cualquier mejora.\n\nAfectuosos saludos\nCésar E. Lozada','',0,'','2rjgujaw',1,0,'',222,0,0),(4782,1176,3,222,0,'200.11.242.33',1136692918,1,0,1,1,1,0,'','Text-To-Speech class for FWH','Hi, Friends:\n\nHere\'s a link for downloading a FWH class for Text-To-Speech.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.megaupload.com/?d=UU6QSR7A\">http://www.megaupload.com/?d=UU6QSR7A</a><!-- m -->\n\nPlease, let me know any improvement you do on it. \n\nRegards\nCésar E. Lozada','',0,'','pejks1et',1,0,'',222,0,0),(4783,1174,3,138,0,'200.66.154.91',1136696717,1,0,1,1,1,1,'','','If you are working with DBF/CDX/FPT files created with Clipper, Comix or Six Driver, let me tell you that those FPT files are not compatible with xHarbour FPT structure, this is due because Clipper and friends create FPT files with a \"memblock\" size of 16 bytes which is not compatible with (x)Harbour FPT memoblock, which is 64 bytes long, so any operation performed over the memofile will fail.\n\nSince (x)Harbour uses a real FoxPro file format, you will need to make your dbf files compatible with (x)Harbour, this is an easy job, do the following:\n\nUsing  (x)Harbour, create a new empty structure similar to the ones created with Clipper, this will create a new empty DBF and FPT, but the FTP will be fully compatible with (x)harbour.\n\nThen using Clipper, open the empty structure created with (x)Harbour, Clipper will not have any problem opening the new structure:\n\nUSE xHarbourCreatedFile.dbf\nAPPEND FROM ClipperCreatedFile.dbf\n\nAnd you are done, you will have a fully (x)Harbour compatible DBF/CDX/FTP file.','',0,'','1txcore2',1,0,'',138,0,0),(4784,1146,6,138,0,'200.66.154.91',1136699743,1,0,1,1,1,1,'','','Jejeje, eso no existe mi estimado Hernán. si existiera, ¿ de que viviria la gente de Extended Systems ?, ADS no es solo la tecnolgia cliente servidor, es mucho, muchisimo mas, como los diccionarios de datos, los triggers, la integridad referencial, los procesos almacenados, la seguridad de los datos, cosas que los programadores de (x)harbour apenas hemos comenzado a explotar.\n\nHay un truco para intentar aumentar el numero de usuarios del servidor local, modificando el archivo de configuracion  ADSLOC32.CFG, sin embargo este truco es totalmente inutil, el servidor local se ralentiza conforme entran mas usuarios y a partir del sexto, el sistema se vuelve mas y mas lento y no llegas alcanzas a llegar ni a 10 usuarios simultaneos cuando el sistema se vuelve totalmente inoperante por la lentitud de respuesta del server local.\n\nSe supone que el server local no es para hacer aplicaciones que luego puedas poner en produccion, es para que tu puedas desarrollar una aplicacion y hacer pruebas sin necesidad de tener un servidor remoto instalado, por ejemplo en tu pc de casa o en tu laptop, sin embargo la facilida de tener 5 usuarios simultaneos te sirve para pequeñas aplicacoines porque funciona muy bien.\n\nMicrosoft tiene una cosa similar llamada MS2000 o SQL Lite, que segun esto es un SQL Server recortado que es gratis y puedes instalar en cualquier equipo, pero en realidad de un ACCESS con esteroides, con algunas caracteristicas del SQL server, pero no todas.\n\nSe supone que el MS2000 es para pocos usuarios  y que para mayores volumenes de datos o de usuarios se da por entendido que usaras la verson comercial de SQL Server.','',0,'','2tovkw9g',1,0,'',138,0,0),(4785,1074,2,138,0,'200.66.154.91',1136700468,1,0,1,1,1,1,'','','Se tuiliza el NTXSPA.OBJ, este fichero tiene el \"collation sequence\" para todos los RDDS, en realidad las rutinas afectan las funciones que generan los indices antes de que estos se escriban con el RDD correspondiente, asi que este fichero funciona con todos los RDDs','',0,'','2doj6utv',1,0,'',138,0,0),(4786,1174,3,234,0,'72.130.245.241',1136700590,1,0,1,1,1,0,'','Thank You','Thank you for your help!','',0,'','2bphznmm',1,0,'',234,0,0),(4787,1124,6,262,0,'83.97.168.83',1136710523,1,0,1,1,1,1,'','','Rene , pues con dtos(dfecha) no me funciona el filtro ¿?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> , me sale que no existen resultados para la expresion (hago un dbgotop() , y el registro es el eof() ) .\nPor otra parte revisando la ayuda de advantage  en la seccion aof encontre esto :\n\nFor example, consider the filter expression:\n\nhiredate &gt; CTOD(‘1/19/90’) .OR. ( hiredate &gt; CTOD(‘1/18/85’) .AND. deptnum = 15)\n\nIf field \"hiredate\" is indexed and field \"deptnum\" is not, the expression will be partially optimized. Each simple expression involving field \"hiredate\" will be fully optimized but the simple expression involving field \"deptnum\" will not be optimized. The expression can be viewed as:\n\nFull .OR. (Full .AND. Not Optimized)  \n\nsegún lo que pone parece como que en este caso los indices no fueran dtos(dfecha)  , y pone que está optimizado ¿? .\n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nSigo sin aclararme demasiado .\nsaludso y gracias por perder el tiempo conmigo.','',0,'','phn9b822',1,0,'',262,0,0),(4788,911,7,2,0,'80.32.22.38',1136718364,1,0,1,1,1,1,'','','Paco, Rafael,\n\nEsta es la sintaxis que hemos implementado para crear radios individuales, pertenecientes a un radmenu:\n\n[code:1axayewu]\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; RADIOITEM &#91; &lt;oRadItem&gt; PROMPT &#93; &lt;cCaption&gt; ;\n             &#91; &lt;of&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; RADIOMENU &lt;oRadMenu&gt; &#93; ;\n             &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n             &#91; &lt;change&#58; ON CLICK, ON CHANGE&gt; &lt;uChange&gt; &#93; ;\n             &#91; COLOR &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ;\n             &#91; VALID &lt;uValid&gt; &#93; ;\n             &#91; &lt;lDesign&#58; DESIGN&gt; &#93; ;\n             &#91; &lt;lLook3d&#58; 3D, _3D&gt; &#93; ;\n             &#91; &lt;lPixel&#58; PIXEL&gt; &#93; ;\n       =&gt; ;\n          &#91;&lt;oRadItem&gt; &#58;= &#93; TRadio&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, &lt;cCaption&gt;, &#46;f&#46;, &#46;f&#46;,;\n            Len&#40; &lt;oRadMenu&gt;&#58;aItems &#41; + 1, &lt;oWnd&gt;, &lt;oRadMenu&gt;,;\n            &#91;&lt;nHelpId&gt;&#93;, &#91;&lt;nClrFore&gt;&#93;, &#91;&lt;nClrBack&gt;&#93;, &#91;&lt;cMsg&gt;&#93;, &#91;&lt;&#46;update&#46;&gt;&#93;, &#91;&lt;&#123;uWhen&#125;&gt;&#93;,;\n            &#91;&lt;nWidth&gt;&#93;, &#91;&lt;nHeight&gt;&#93;, &#91;&lt;&#123;uValid&#125;&gt;&#93;, &#91;&lt;&#46;lDesign&#46;&gt;&#93;, &#91;&lt;&#46;lPixel&#46;&gt;&#93; &#41;;;\n            AAdd&#40; &lt;oRadMenu&gt;&#58;aItems, ATail&#40; &lt;oWnd&gt;&#58;aControls &#41; &#41;\n[/code:1axayewu]\n\nCualquier comentario es apreciado.','',0,'AIA=','1axayewu',1,1136761277,'',2,2,0),(4789,911,7,2,0,'80.32.22.38',1136718496,1,0,1,1,1,1,'','','Este es un ejemplo de uso en samples\\tutor09.prg:\n\n[code:29czkzhy]\n   @ 8, 2 RADIOITEM &quot;F&amp;our&quot; RADIOMENU oRadMenu SIZE 80, 15 OF oWnd   \n[/code:29czkzhy]\n\n[url=http&#58;//imageshack&#46;us:29czkzhy][img:29czkzhy]http&#58;//img361&#46;imageshack&#46;us/img361/1825/image21ol&#46;jpg[/img:29czkzhy][/url:29czkzhy]','',0,'GIA=','29czkzhy',1,0,'',2,0,0),(4790,1153,1,2,0,'80.32.22.38',1136719224,1,0,1,1,1,1,'','','Ehab,\n\nYou have to #include \"WinApi.ch\" into your RC file.','',0,'GIA=','1y55nfpu',1,0,'',2,0,0),(4791,660,2,2,0,'80.32.22.38',1136724226,1,0,1,1,1,1,'','','Esta es la sintaxis que hemos implementado para crear radios individuales, pertenecientes a un radmenu: \n\n[code:3q9oxcms] \n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; RADIOITEM &#91; &lt;oRadItem&gt; PROMPT &#93; &lt;cCaption&gt; ; \n             &#91; &lt;of&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ; \n             &#91; RADIOMENU &lt;oRadMenu&gt; &#93; ; \n             &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ; \n             &#91; &lt;change&#58; ON CLICK, ON CHANGE&gt; &lt;uChange&gt; &#93; ; \n             &#91; COLOR &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ; \n             &#91; MESSAGE &lt;cMsg&gt; &#93; ; \n             &#91; &lt;update&#58; UPDATE&gt; &#93; ; \n             &#91; WHEN &lt;uWhen&gt; &#93; ; \n             &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ; \n             &#91; VALID &lt;uValid&gt; &#93; ; \n             &#91; &lt;lDesign&#58; DESIGN&gt; &#93; ; \n             &#91; &lt;lLook3d&#58; 3D, _3D&gt; &#93; ; \n             &#91; &lt;lPixel&#58; PIXEL&gt; &#93; ; \n       =&gt; ; \n          &#91;&lt;oRadItem&gt; &#58;= &#93; TRadio&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, &lt;cCaption&gt;, &#46;f&#46;, &#46;f&#46;,; \n            Len&#40; &lt;oRadMenu&gt;&#58;aItems &#41; + 1, &lt;oWnd&gt;, &lt;oRadMenu&gt;,; \n            &#91;&lt;nHelpId&gt;&#93;, &#91;&lt;nClrFore&gt;&#93;, &#91;&lt;nClrBack&gt;&#93;, &#91;&lt;cMsg&gt;&#93;, &#91;&lt;&#46;update&#46;&gt;&#93;, &#91;&lt;&#123;uWhen&#125;&gt;&#93;,; \n            &#91;&lt;nWidth&gt;&#93;, &#91;&lt;nHeight&gt;&#93;, &#91;&lt;&#123;uValid&#125;&gt;&#93;, &#91;&lt;&#46;lDesign&#46;&gt;&#93;, &#91;&lt;&#46;lPixel&#46;&gt;&#93; &#41;;; \n            AAdd&#40; &lt;oRadMenu&gt;&#58;aItems, ATail&#40; &lt;oWnd&gt;&#58;aControls &#41; &#41; \n[/code:3q9oxcms]\n\neste es un ejemplo de uso:\n\n[code:3q9oxcms]@ 8, 2 RADIOITEM &quot;F&amp;our&quot; RADIOMENU oRadMenu SIZE 80, 15 OF oWnd [/code:3q9oxcms]','',0,'AIA=','3q9oxcms',1,1136761239,'',2,1,0),(4792,1177,3,372,0,'83.118.100.14',1136728551,1,0,1,1,1,0,'','Print preview: No images on the buttons','Hi,\n\nin my app, the images for the buttons are not shown in the print preview. Do i have to link something extra to make them appear?\n\nThanks,\n\nJohn.','',0,'AIA=','2xw2i2rp',1,0,'',372,0,0),(4793,1177,3,6,0,'87.3.184.65',1136731318,1,0,1,1,1,1,'','Re: Print preview: No images on the buttons','This bug was present in a previous FWH release. Try upgrading to the latest one.\n\nEMG','',0,'AIA=','3fk9h9x5',1,0,'',6,0,0),(4794,1177,3,372,0,'83.118.100.14',1136732366,1,0,1,1,1,0,'','','Strange, i have FWH27, this is the latest one, right?\n\nI did some testing and without including the manifest, the images are being showed:\n\n1 24 \"..\\samples\\winxp\\WindowsXP.Manifest\"','',0,'AIA=','hfn8y6ld',1,0,'',372,0,0),(4795,1177,3,6,0,'87.3.184.65',1136733614,1,0,1,1,1,1,'','','Check your whatsnew.txt. My FWH is December 2005 build.\n\nEMG','',0,'AIA=','34qds1cs',1,0,'',6,0,0),(4796,747,4,68,0,'203.45.174.65',1136733727,1,0,1,1,1,1,'','','Hathal,\nDefine a single port with mode 0xC0000000 to get \'read-write\'. You may find that \'nChr := bin2l( ReadByte( hIn ) )\' will return single characters (as asc value) from data received.  \'BillSerialMonitor\' (freeware) from <!-- w --><a class=\"postlink\" href=\"http://www.symcod.com\">www.symcod.com</a><!-- w --> is very useful for testing.  Still testing comms functions...\nregards','',0,'AIA=','10ttv42r',1,0,'',68,0,0),(4797,1178,6,75,0,'83.44.97.59',1136738260,1,0,1,1,1,0,'','xHarbour Error irrecuperable 9024','el mensaje de error todo o que dice es:\n\n   hb_xrealloc requested to resize to zero bytes\n\ny se sale del programa.\n\nSe produce dentro de un bucle for-next cuando la variable local i que hace de contador llega exactamente a 42824.\n\nNo se a que se debe el error.','',0,'AIA=','36w2ggmu',1,0,'',75,0,0),(4798,660,2,9,0,'85.59.37.39',1136739438,1,0,1,1,1,0,'','Radio horizontal','Antonio, gracias por tu respuesta. Pero nada mas incluir en el fichero include el #xcommand (cortar y pegar) al compilar, me da el error \"unknown result marker in #command.\n\nPor otra parte, en el codigo actual, tengo una variable, ¿como podria acoplarla al ejemplo?\n\n@ 9, 30 RADIO oRbx VAR oDbf:FORMA PROMPT \"Caja\", \"Banco ;\n    OF oFol:aDialogs[2] ;\n    SIZE  30,12 PIXEL\n\nGracias y un saludo desde Málaga\n\nManuel','',0,'','3tbr2e5h',1,0,'',9,0,0),(4799,1080,6,228,0,'201.245.222.85',1136740856,1,0,1,1,1,1,'','Problemas al exportar','Rene utilice el comando que me dijeste de la siguiente manera\n\nSELE Archivo \nCOPY TO c:\\archivo.txt DELIMITED WITH \",\" SDF\n\npero me lo exporta de la siguiente manera:\n\n\"\Z\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"\n\"26156465\",\"OSCAR\",\"ANDREI\",\"AREVALO\",\"SUAREZ\"\n\"333333333\",\"Laura\",\"Mariana\",\"Arevalo\",\"Suarez\"\n\Z\n\nMe coloca antes y despúes del archivo esos cuadritos, el primer registro me lo genera en blanco y tambien le coloca esas comillas al inicio de cada registro, como le puedo quitar todas esas cosas. para que quede de la siguiente manera:\n\n26156465,OSCAR,ANDREI,AREVALO,SUAREZ\n333333333,Laura,Mariana,Arevalo,Suarez','',0,'','2czheycb',1,0,'',228,0,0),(4800,1179,6,295,0,'201.222.152.177',1136752893,1,0,1,1,1,1,'','Por que es tan lenta la emisión a Excel con la Texcel nueva?','Estimados Amigos :\nYa logré exportar datos a Excel con la clase tecxels de Vikthor, pero me llama la atención el tiempo que demora en generarse la  planilla,\nlo hago de la siguiente manera:\n\noExcel := TExcelScript():New()\n\noExcel:Create( \"nutrien.xls\" )\noExcel:Visualizar(.t.)\n\nFil:=2\noExcel:Say( 1,2, \"CODIGO\" )\noExcel:Say( 1,3, \"NOMBRE\" )\nuse NUTRIEN\nwhile NUTRIEN-&gt;(!eof())\n   oExcel:Say( Fil, 2, NUTRIEN-&gt;ALIMENTO )\n   oExcel:Say( Fil, 3, NUTRIEN-&gt;CALORIAS)\n   Fil++\n   NUTRIEN-&gt;(DBSKIP())\nenddo\n\nEsto hace que aparezca excel y se va generando uno a uno los registros.\nEn la Texcels para FW Clipper esto era rapidisimo.\n\nGRACIAS DE ANTEMANO\nSALUDOS','',0,'','1qawc1n9',1,0,'',295,0,0),(4801,1180,19,26,0,'195.210.233.36',1136753403,1,0,1,1,1,1,'','COBOL humour','<!-- m --><a class=\"postlink\" href=\"http://archive.midrange.com/midrange-l/199705/msg00513.html\">http://archive.midrange.com/midrange-l/ ... 00513.html</a><!-- m -->\n---\nThere was once a COBOL programmer in the mid to  late  1990s.  For the\n sake of this story, we\'ll call  him  Jack.  After years of being taken\n for granted and treated  as a  technological dinosaur  by all the UNIX\n programmers and Client/Server programmers and website developers, Jack\n was  finally  getting some respect.  He\'d become a  private consultant\n specializing in  Year  2000 conversions.  He  was  working  short-term\n assignments for prestige companies, traveling  all over  the  world on\n different assignments.  He was working  70  and  80  and  even 90 hour\n weeks, but it was worth it.\n\n Several years of this relentless, mind-numbing work had taken its toll\n on  Jack.  He  had  problems sleeping and began  having anxiety dreams\n about the Year 2000. It had reached a point where  even the thought of\n the year 2000 made him nearly violent. He must have suffered some sort\n of breakdown, because all he could think about was how  he could avoid\n the year 2000 and all that came with it.\n\n Jack decided to contact a company that specialized in cryogenics.   He\n made a deal to have himself  frozen until March 15th, 2000. This was a\n very expensive process and  totally automated.  He  was  thrilled. The\n next thing he would know  is  he\'d wake up in the year 2000; after the\n New  Year celebrations and  computer  debacles;  after the  leap  day.\n Nothing else to worry about except getting on with his life.\n\n He  was  put into his cryogenic  receptacle, the technicians  set  the\n revive date, he was given  injections to slow his  heartbeat to a bare\n minimum, and that was that.\n\n The  next thing that Jack saw was  an enormous and  very  modern  room\n filled with excited people.  They  were all shouting \"I can\'t  believe\n it!\"   and \"It\'s a miracle\"  and  \"He\'s alive!\".   There were  cameras\n (unlike any he\'d ever seen) and equipment that looked like it came out\n of a science fiction movie.\n\n Someone  who  was  obviously  a  spokesperson for  the  group  stepped\n forward. Jack couldn\'t contain his enthusiasm. \"It is over?\" he asked.\n \"Is  2000 already here?  Are all the millennial parties and promotions\n and crises all over and done with?\"\n\n The  spokesman explained  that  there had  been  a  problem  with  the\n programming of the timer  on Jack\'s cryogenic  receptacle,  it  hadn\'t\n been year 2000  compliant. It was actually eight thousand years later,\n not the year 2000.  But the spokesman told  Jack that he shouldn\'t get\n excited; someone important wanted to speak to him.\n\n Suddenly  a wall-sized projection screen displayed  the image of a man\n that looked very much like Bill Gates. This man was Prime Minister  of\n Earth. He told Jack not to be upset. That this was a wonderful time to\n be alive. That there was world peace and no more  starvation. That the\n space program had been reinstated and there were colonies on  the moon\n and  on  Mars. That technology  had  advanced  to  such  a degree that\n everyone had virtual reality interfaces which allowed them  to contact\n anyone  else on the  planet, or to watch any entertainment, or to hear\n any music recorded anywhere.\n\n \"That sounds terrific,\" said Jack.  \"But I\'m curious. Why is everybody\n so interested in me?\"\n\n \"Well,\" said  the Prime Minister.  \"The year  10000 is just around the\n corner, and it says in your files that you know COBOL.\"\n---\nCheers, ROman','',0,'','ylhyuvvd',1,0,'',26,0,0),(4802,1107,19,26,0,'195.210.233.36',1136754791,1,0,1,1,1,1,'','','Para Windows 9x/ME (WMF Patch by Paolo Monti)\n<!-- m --><a class=\"postlink\" href=\"http://www.nod32.ch/en/download/tools.php\">http://www.nod32.ch/en/download/tools.php</a><!-- m -->\n\nRoman','',0,'','1cd0gr1l',1,0,'',26,0,0),(4803,1181,3,397,0,'201.42.53.163',1136758705,1,0,1,0,1,1,'','Hello! I need some help for activex examples.','Little friends\n\nI trying to download examples with url\'s <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/activex.zip\">http://www.fivetechsoft.com/files/activex.zip</a><!-- m --> and blablabla but i receive a message [b:1fi4fflj]page not found[/b:1fi4fflj].\n\nI need all examples for this and, please, TActivex class.\n\nVery thanks','',0,'QA==','1fi4fflj',1,0,'',397,0,0),(4804,1181,3,2,0,'80.32.22.38',1136760302,1,0,1,1,1,1,'','','Rochinha,\n\nWhat FWH version and build are you using ?','',0,'QA==','3vdmk0to',1,0,'',2,0,0),(4805,660,2,2,0,'80.32.22.38',1136760656,1,0,1,1,1,1,'','','Manuel,\n\n&gt; \"unknown result marker in #command. \n\nHay un fallo en el comando que hemos publicado, en el resultado hay que escribir [&lt;.update.&gt;] en vez de .lUpdate.\n\n&gt;\n@ 9, 30 RADIO oRbx VAR oDbf:FORMA PROMPT \"Caja\" ; \nOF oFol:aDialogs[2] ; \nSIZE 30,12 PIXEL\n&gt;\n\n@ ..., ... RADIOITEM \"Banco\" RADIOMENU oRbx SIZE 30, 12 OF oFol:aDialogs[2] PIXEL','',0,'','25yxe0a3',1,0,'',2,0,0),(4806,1178,6,2,0,'80.32.22.38',1136760769,1,0,1,1,1,1,'','','Verhoven,\n\nEstás usando una versión reciente de xharbour ? \n\nHas probado con la que proporcionamos desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> ?','',0,'','118vpuc5',1,0,'',2,0,0),(4807,1175,6,2,0,'80.32.22.38',1136760909,1,0,1,1,1,1,'','','César,\n\nMuchas gracias por tu aportación,','',0,'','icbtm463',1,0,'',2,0,0),(4808,1182,6,28,0,'87.218.47.49',1136762598,1,0,1,1,1,0,'','ftp con fivewin','Hola.\n¿Como se puede manejar FTP desde FiveWin?\nGracias','',0,'','1onigxip',1,0,'',28,0,0),(4809,1022,19,233,0,'60.48.195.11',1136769748,1,0,1,1,1,0,'','','thanks for the tip Jeff. It\'s convenient and useful','',0,'','lyzoa2re',1,0,'',233,0,0),(4810,1179,6,295,0,'201.222.156.14',1136770499,1,0,1,1,1,1,'','','..Y de donde puedo bajar la clase TFolder, TButton y TButtonBmp de rossine?\n\nGRACIAS AMIGOS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','2q4en02z',1,0,'',295,0,0),(4811,1183,1,379,0,'59.167.127.31',1136771341,1,0,1,1,1,0,'','Copy to DVD','I have a system that has users place a writable CD in the drive and then I perform a backup of the data files to the CD I have been using the following method to do the copy, [b:20lr2ryg]DLL32 FUNCTION CopyFile( cExFile AS LPSTR, cNewFile AS LPSTR, lFailIfEx AS LONG ); AS BOOL FROM \"CopyFileA\" LIB \"Kernel32.dll\"[/b:20lr2ryg]  my question is is there anything I should be aware of if I go to DVDs to perform the backup -  I need to do this both for space (as I can then allow the users to accumulate more data before each backup) and new equipment reasons.  This is a very data intensive system.  It seems that DVD writers are now becoming the standard in PCs.\n\nCheers\nGerry','',0,'QA==','20lr2ryg',1,0,'',379,0,0),(4812,1176,3,49,0,'87.3.179.62',1136772286,1,0,1,1,1,0,'','','thanks I tryed it and it run ok \n\nI want ask YOU \nI have a boy at school ( he not seeing) and I think he\'ll use this application :\nHow I make to talk this program when I open win xp and click on desktop of windows \nstart \nprograms\nMs word\n\necc\n\nI want to speeck it when I click on each menu of windows applications\nIt is possible it ?\nregards','',0,'QA==','d58ufbi2',1,0,'',49,0,0),(4813,1176,3,49,0,'87.3.179.62',1136773928,1,0,1,1,1,0,'','','I try ot and I saw that volume, picth and speed not run ok !!!!!!!!','',0,'QA==','qh5yorej',1,0,'',49,0,0),(4814,962,2,348,0,'201.240.78.118',1136775141,1,0,1,1,1,0,'','','Gracias por el Comentario, \n\nEs otro metodo efectivamente e interesante por cierto,  Pero mi objetivo es cambiar de color a todos los Gets DESHABILITADOS de mi Sistema en forma Global, sin tener que hacerlo por cada Get , espero entiendan mi  consulta.\n\n\nLubin \n\n\n[quote=&quot;manuramos&quot;:3f1fexuh]Por si te sirve de algo, yo he empleado otra solución. (con fw2.3)\n\nLo que hago es que no utilizo :Enable() ó <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable(), tan sólo el :lReadOnly. Es decir, la condición de validación no la pongo en el WHEN directamente. UN EJEMPLO\n\nREDEFINE GET oGet VAR oSay ...... WHEN MiFuncVal(oGet,...)\n\nFUNCTION  MiFuncVal(oGet,...)\n  ...\n   IF &lt;CondicionValidez&gt;\n       oGet[1]:SetColor(ColorTxt_Valido,ColorBack_Valido)\n       oGet[1]:lReadOnly := .T.  &lt;---- Similar a Enable()\n       oGet[1]:DispText()\n   ELSE\n       oGet[1]:SetColor(ColorTxt_NOValido,ColorBack_NOValido)\n       oGet[1]:lReadOnly := .F.  &lt;----- Similar a Disable()\n       oGet[1]:DispText()\n   ENDIF\n   ...\n   IF ...\n     ...\n   ENDIF\n   ...\nRETURN .T.  &lt;--- Si debes evaluar condiciones adicionales devuelve .T. o .F. según te convenga\n\nA mi me ha ido muy bien[/quote:3f1fexuh]','',0,'gA==','3f1fexuh',1,0,'',348,0,0),(4815,1146,6,45,0,'201.252.195.121',1136776879,1,0,1,1,1,0,'','','Gracias por las aclaraciones <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3bpcxlfi',1,0,'',45,0,0),(4816,1184,3,55,0,'59.92.112.130',1136777489,1,0,1,1,1,0,'','TDD class','The source of TDD and the CH file along with OBJ file compiled with xHarbour is in the ZIP file.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/e163d417/TDD.ZIP.html\">http://hyperupload.com/download/e163d417/TDD.ZIP.html</a><!-- m -->','',0,'gA==','3vo7rg3j',1,0,'',55,0,0),(4817,660,2,9,0,'85.59.37.39',1136777775,1,0,1,1,1,0,'','Radio Horizontal','Antonio, \n\nAhora compila bien, pero al ejecutar da el error aItem(0).\n\nUn saludo\n\nManuel','',0,'gA==','3bxg1rec',1,0,'',9,0,0),(4818,1179,6,138,0,'148.233.159.24',1136783444,1,0,1,1,1,1,'','','Esa es precisamente la forma en la que no se debe de hacer la carga a la hoja de Excel.\n\nTienes de entrada 2 problemas:\n\n1) La visualizaicon de la hoja alenta la comunicacion OLE, sugerencia, no visualices hasta que termines de cargar.\n\n2) Nunca, nunca nunca, escribas directemente la celda, eso es tremendamente lento.\n\nLo que tienes que hacer es cargar los datos primero al portapapeles de Windows y luego mediatne OLE hacer el \"paste\" sobre Excel, y con eso puedes trabajar muchisimo mas rapido que escribiendo celda por celda.\n\nMira los ejemplos de ExcelScript y seguro encontraras el ejemplo que te menciono.','',0,'gA==','k4foqq7y',1,0,'',138,0,0),(4819,1182,6,138,0,'148.233.159.24',1136783795,1,0,1,1,1,1,'','','Si, FiveWin tiene una clase llamada QFTP, que te permite hacer FTP con FW, sin embargo no se que pasa con los sockets de FW que cuando utilizas esta clase con ficheros grandes no los copia completos.\n\n(x)Harbour tiene la TIP.LIB que funciona mejor que los sockets de FW para transferencia de archvios, o bueno, por lo menos si copia ficheros grandes sin problemas. \n\npersonlamente yo utilizo el componente FTP de Funcky 6.0 funciona como un sueño.','',0,'gA==','1qjzqg4y',1,0,'',138,0,0),(4820,1177,3,372,0,'83.118.100.14',1136788614,1,0,1,1,1,0,'','','hmmm, the same here... what was the solution for the problem in the earlier versions?','',0,'gA==','2nxdj2io',1,0,'',372,0,0),(4821,1185,18,230,0,'64.12.116.66',1136789818,1,0,1,1,1,0,'','Bug in cGetFile32() (no bug)','I have try to use the cGetfile32() Function and it will not work.  The\nFunction cGetfile() Works but not the 32 bit Version.\n\nWhen I call the cGetfile32() Function it will display the Dialog Screen\nand the Screen works and Displays, but when you try to pick a file\nit will not return to the calling program leaveing the function running\nalong with the calling program.\n\nNow the cGetFile() file work\'s.\n\nI am using Fivewin 2.7 the November Build\nxHarbour Builder from xHarbour.com the October Build.\nHave try the xHarbour version that came with Fivewin.\n\nThank you\nJim Bohanan\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2hvfr3bj',1,0,'',230,0,0),(4822,1130,5,2,0,'80.32.22.38',1136792424,1,0,1,1,1,1,'','','Dan,\n\nWe have implemented a new DATA in class TGet, named lDisColors, that it is .t. by default.\n\nIf lDisColors is .t. then the painting is standard as usual. If .f., then the GET colors are used.\n\nYou may review samples\\TestGet2.prg to see how to use this new DATA. We email you the new libs and appreciate your feedback.','',0,'gA==','358hi0yx',1,0,'',2,0,0),(4823,1185,18,2,0,'80.32.22.38',1136792754,1,0,1,1,1,1,'','','Jim,\n\ncGetfile32() is just for FiveWin 16 bits. For FWH 32 bits you have to use cGetFile().','',0,'gA==','bcpcut9q',1,0,'',2,0,0),(4824,1177,3,2,0,'80.32.22.38',1136795074,1,0,1,1,1,1,'','','John,\n\nPlease search your computer for Five*.lib and remove or rename those that are not the december current ones.','',0,'gA==','icc0xtq4',1,0,'',2,0,0),(4825,1183,1,2,0,'80.32.22.38',1136795239,1,0,1,1,1,1,'','','Gerry,\n\nWere you able to directly copy files to the CD using CopyFile() ?','',0,'gA==','2aue5dk5',1,0,'',2,0,0),(4826,660,2,2,0,'80.32.22.38',1136796937,1,0,1,1,1,1,'','','Manuel,\n\nEste ejemplo compila y funciona bien. Puedes probarlo ?\n\n[code:33okglia]\n// Testing some radio buttons\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local nValue &#58;= 3, oRad\n\n   SET _3DLOOK ON\n   SET HELPFILE TO &quot;Test&#46;hlp&quot;\n\n   DEFINE WINDOW oWnd ;\n      TITLE &quot;Testing a Radio Buttons Menu&quot; COLOR &quot;N/W&quot;\n\n   @ 1, 1 BUTTON &quot;&amp;Test&quot; SIZE 70, 20 ;\n      ACTION &#40; MsgInfo&#40; nValue &#41;, oRad&#58;aItems&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Changed!&quot; &#41; &#41;\n\n   @ 3, 2 RADIO oRad VAR nValue ;\n      ITEMS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot; _3D SIZE 150, 25 ;\n      HELPID 100, 101, 102 ;\n      ON CHANGE MsgBeep&#40;&#41;\n\n   @ 5, 25 RADIOITEM &quot;Fo&amp;ur&quot; RADIOMENU oRad OF oWnd SIZE 150, 25\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:33okglia]','',0,'AIA=','33okglia',1,0,'',2,0,0),(4827,962,2,2,0,'80.32.22.38',1136798136,1,0,1,1,1,1,'','','Lubin,\n\nFinalmente hemos implementado una nueva DATA lDisColors que por defecto es .t. para que se vea estandard por defecto. \n\nCambiando esa DATA a .f. entonces se usa el color que le hayas dado al GET con la claúsula COLOR.\n\nDe todas formas, puedes modificar la clase TGet para que use de forma automática el color que quieras, sin tener que programar nada.','',0,'AIA=','2b2bja1p',1,0,'',2,0,0),(4828,1177,3,372,0,'83.118.100.14',1136799951,1,0,1,1,1,0,'','','Hi Antonio,\n\ni\'ve renamed all my old FWH directories, but still no improvement. Shouldn\'t i place a specific DLL file in the app dir?\n\nRegards,\n\nJohn.','',0,'AIA=','lj86izop',1,0,'',372,0,0),(4829,1183,1,379,0,'59.167.127.31',1136800047,1,0,1,1,1,0,'','Copyfile()','Yes, as long as Roxio Directcd was installed.','',0,'AIA=','3ooopsnl',1,0,'',379,0,0),(4830,1177,3,2,0,'80.32.22.38',1136800052,1,0,1,1,1,1,'','','John,\n\nYes, you must have prev32.dll in the same place where the app is.','',0,'AIA=','17dpd4zh',1,0,'',2,0,0),(4831,1183,1,2,0,'80.32.22.38',1136800142,1,0,1,1,1,1,'','','Gerry,\n\nok, I see.\n\nYou may review this software: <!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com\">http://www.viaopen.com</a><!-- m -->','',0,'AIA=','2silwn38',1,0,'',2,0,0),(4832,1177,3,372,0,'83.118.100.14',1136800791,1,0,1,1,1,0,'','','ok, that solved the problem! I had an old version still in that directory, replacing it with the latest one was the solution, thanks!','',0,'AIA=','1cba3dq7',1,0,'',372,0,0),(4833,1186,5,270,0,'65.27.183.36',1136808032,1,0,1,1,1,0,'','Colors on Multiple Page Printing Dialog','When I preview a multiple page report and then print it, the Dialog box that prompts for printing pages range has a white background color instead of the Dialog box color behind all the text.  Can this be fixed?  It looks a bit strange.\n\nDan','',0,'AIA=','qm5kintz',1,0,'',270,0,0),(4834,1169,1,154,0,'151.81.4.203',1136810753,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3ljx4p8j]Ugo,\n\nWe have just tested samples\\[b:3ljx4p8j]TestTreeR[/b:3ljx4p8j].prg and worked ok on first try.[/quote:3ljx4p8j]\n\nDear Antonio,\nin my fw/samples directory I have not found [b:3ljx4p8j]TestTreeR.prg[/b:3ljx4p8j] program but only [b:3ljx4p8j]testtree.prg[/b:3ljx4p8j] anr [b:3ljx4p8j]testtrer.prg[/b:3ljx4p8j] the first is not an redefine tree test and work but the second, in my computer do not work.\nI think that the problem is in .RC file line:\n[code:3ljx4p8j]CONTROL &quot;&quot;, 100, &quot;SysTreeView32&quot;, 0 | WS_CHILD | WS_VISIBLE, 6, 8, 282, 230[/code:3ljx4p8j]\nthe SysTreeView32, for me is not correct, but do not work also with SysTreeView.','',0,'wIA=','3ljx4p8j',1,0,'',154,0,0),(4835,1186,5,2,0,'80.32.22.38',1136811951,1,0,1,1,1,1,'','','Dan,\n\nCould you please post a screenshot of it ? \n\nPlease use <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us\">http://www.imageshack.us</a><!-- m --> to host the image and place here the provided url.','',0,'wIA=','1zit7k90',1,0,'',2,0,0),(4836,1177,3,2,0,'80.32.22.38',1136812008,1,0,1,1,1,1,'','','John,\n\nglad to know that it is solved <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'wIA=','157ggo72',1,0,'',2,0,0),(4837,1169,1,2,0,'80.32.22.38',1136812284,1,0,1,1,1,1,'','','Ugo,\n\nMy mistake, the sample name is TestTreR.prg and it only works with Harbour/xharbour and FWH, as it is a Windows 32 bits control.\n\n(Even if you remove the \"32\" from the control name, the app shows but hangs when tried to be used).','',0,'wIA=','2gqw1i1n',1,0,'',2,0,0),(4838,1169,1,154,0,'151.81.4.203',1136813243,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3dmli3dj]Ugo,\n\nMy mistake, the sample name is TestTreR.prg and it only works with Harbour/xharbour and FWH, as it is a Windows 32 bits control.\n\n(Even if you remove the \"32\" from the control name, the app shows but hangs when tried to be used).[/quote:3dmli3dj]\n\nAntonio,\nI Know that in 32 bits work, I tested it!\nBut I [b:3dmli3dj]WANT[/b:3dmli3dj] to use a redefine Tree in a 16Bit program.\nIt is possible?\nIf it is possible can you send a little sample?\n\nThank you.','',0,'wA==','3dmli3dj',1,0,'',154,0,0),(4839,1176,3,190,0,'202.65.134.28',1136813439,1,0,1,1,1,0,'','','Dear Mr.César E. Lozada\n\nWhen I tried to download the \"tTextToSpeech.zip\" from the link you have\nprovided, It is leaving a message that \"Download Limit Exceeded.\"\n\nI think the service provider has a maximum limit of downloads.\n\nCan you please send it to me to my personal e-mail as an attachment.\nMy e-mail : <!-- e --><a href=\"mailto:aksharasoft@hotmail.com\">aksharasoft@hotmail.com</a><!-- e --> or <!-- e --><a href=\"mailto:aksharasoft@yahoo.com\">aksharasoft@yahoo.com</a><!-- e -->.\n\nRegards,\n\n- Ramesh Babu P','',0,'wA==','2v1pb4py',1,0,'',190,0,0),(4840,1187,20,29,0,'80.181.108.140',1136815944,1,0,1,1,1,0,'','Inserire una immagine wmf in un documento word via ole','Salve,\nsapete se esiste un sistema per inserire un file wmf \nin un nuovo documento Word utilizzando i comandi ole ?\n\nGrazie.\n\nMarco Turco','',0,'wA==','152jnvcy',1,0,'',29,0,0),(4841,1179,6,295,0,'200.112.87.228',1136816889,1,0,1,1,1,1,'','','Perdon René .. \nno se como hacer esto ,donde encuentro estos ejemplos?\n\nDE ANTEMANO GRACIAS','',0,'wA==','3aqibpzs',1,0,'',295,0,0),(4842,1179,6,18,0,'200.67.188.236',1136817659,1,0,1,1,1,1,'','','Te anexo un pequeño ejemplo:\n[code:3dozb6ec]#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n  DEFINE WINDOW oWnd\n  ACTIVATE WINDOW oWnd ON INIT Test&#40;&#41;\nRETURN\n\n\nFUNCTION Test&#40;&#41;\n  LOCAL oExcel, oFile\n  LOCAL cOrigen &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41;&#41; + &quot;browse2&#46;xls&quot;\n  LOCAL i\n  cCadena&#58;=&quot;Vikthor&quot;+chr&#40;9&#41;+&quot;Vikthor@creswin&#46;com&quot;+chr&#40;13&#41;\n  cText&#58;= cCadena+cCadena+cCadena+cCadena+cCadena+cCadena+cCadena+cCadena+cCadena+cCadena\n*    cText&#58;=&quot;&quot;\n  aCajas&#58;=&#123; 10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 ,;\n            10 , 20 , 30 , 40 , 50 ,60, 70 , 80 , 90 ,100 , 110 ,120 , 130 &#125;\n  aContenedor&#58;=&#123; 570 , 210 , 140 &#125;\n  aMatriz&#58;=&#123;&#125;\n  nPos&#58;=1\n  nCajas&#58;=Len&#40;aCajas&#41;\n  DO WHILE nPos &lt;= nCajas\n     aDatos&#58;=array&#40;6&#41;\n     nCaja&#58;=aCajas&#91;nPos&#93;\n     aDatos&#91;1&#93;&#58;=Int&#40; aContenedor&#91;1&#93; / nCaja&#41;\n     aDatos&#91;2&#93;&#58;=Int&#40; aContenedor&#91;2&#93; / nCaja&#41;\n     aDatos&#91;3&#93;&#58;=Int&#40; aContenedor&#91;3&#93; / nCaja&#41;\n     aDatos&#91;4&#93;&#58;=aDatos&#91;1&#93;*aDatos&#91;2&#93;*aDatos&#91;3&#93;\n     aDatos&#91;5&#93;&#58;=nCaja^3\n     aDatos&#91;6&#93;&#58;=aDatos&#91;4&#93;*aDatos&#91;5&#93;\n     nPos&#58;=nPos+1\n     aadd&#40; aMatriz , aDatos &#41;\n  ENDDO\n  FOR i &#58;= 1 TO Len&#40; aMatriz &#41;\n      FOR j &#58;= 1 TO Len&#40; aMatriz&#91;i&#93; &#41;\n          xVret&#58;=aMatriz&#91; i,j &#93;\n          xVret &#58;= IIF&#40; ValType&#40;xVret&#41;==&quot;D&quot;, DtoC&#40;xVret&#41;,;\n                   IIF&#40; ValType&#40;xVret&#41;==&quot;N&quot;, Str&#40;xVret&#41;,xVret &#41; &#41;\n          cText+=xVret+chr&#40;9&#41;\n      NEXT\n      cText+=Chr&#40;13&#41;\n  NEXT\n  oExcel &#58;= TExcelScript&#40;&#41;&#58;New&#40;&#41;\n  oExcel&#58;Create&#40; \'Temp&#46;xls\' &#41;\n  oExcel&#58;visualizar&#40;&#46;T&#46;&#41;\n  oClip&#58;=TClipBoard&#40;&#41;&#58;New&#40;&#41;\n  oClip&#58;Clear&#40;&#41;\n  oClip&#58;SetText&#40; cText &#41;\n  oExcel&#58;SetPos&#40;\'B5\'&#41;\n  nCol&#58;=cLetter2Column&#40; \'B\' &#41;\n  oExcel&#58;Paste&#40;&#41;\n  oClip&#58;End&#40;&#41;\n  cRange&#58;=cMakeRange&#40; 5 , nCol, &#40; 5+oExcel&#58;nRowsCount&#40;&#41; &#41; - 1 , &#40; nCol+oExcel&#58;nColsCount&#40;&#41;&#41;-1 &#41;\n  oRange &#58;= oExcel&#58;oSheet&#58;Range&#40;cRange&#41;\n  oRange&#58;Font&#58;Name &#58;= \'Tahoma\'\n  oRange&#58;Font&#58;Size &#58;= 10\n  oRange&#58;Font&#58;Bold &#58;= &#46;T&#46;\n  oRange&#58;Font&#58;Color &#58;= rgb&#40;0,0,150&#41;\n  oRange&#58;Interior&#58;Color &#58;= rgb&#40;192,192,192&#41;\n  oRange&#58;Borders&#40;&#41;&#58;LineStyle  &#58;= 1\n  oRange&#58;Columns&#58;AutoFit&#40;&#41;\n\nRETURN &#40; &#46;T&#46; &#41;\n[/code:3dozb6ec]','',0,'AIA=','3dozb6ec',1,0,'',18,0,0),(4844,1189,6,228,0,'201.245.222.85',1136818572,1,0,1,1,1,1,'','Preuntas xbrowse','Amigos del foro dos pregunticas con respecto al xbrowse. \n\nCon el browse original de fwh lo hacia de la siguiente manera \n\nREDEFINE LISTBOX oT1oli FIELDS tMovi-&gt;Articu \nFIELDSIZES 78 \nID 12 OF oDlg; \nHEADERS \"Artículo\"; \n[color=red:r81enghk]ON CHAGE funactu() [/color:r81enghk]\n\n[color=red:r81enghk]oT1oli:nclrpane:={||IIF((ORDKEYNO())%2==0,cClr1,cClr2)} [/color:r81enghk]\n\nLa pregunta es ¿cuales clausulas me permiten ejecutar las funciones que estan resaltadas en rojo, cuando utilizo la clase xbrowse?','',0,'Ag==','r81enghk',1,0,'',228,0,0),(4845,1190,1,269,0,'217.37.54.49',1136818799,1,0,1,1,1,0,'','passing a function several times?','I am using a function in my program to pass a filename variable to a field, but i need to pass it to several fields. I know I could repeat the function for each variable but I also know  that I can change where the variable is placed.\n\nHere is the code ;\n\nSTATIC FUNCTION FileName\n   LOCAL cDir := ALLTRIM(CURDIR())\n   LOCAL cApp := \"\"\n\n   cApp := cGetFile( \"*.rpt\",\"Report Files\",1,cDir)\n\n   IF cApp == \"*.rpt\"\n      cApp := \"default\"\n   ELSE\n      IF \"\\\"$cApp\n         cApp := ALLTRIM(subst(cApp , rat(\"\\\",cApp)+1,12))\n         cApp := LEFT(cApp, LEN(cApp) - 4)\n      ENDIF\n   ENDIF                       \n\n   IF !Empty(cApp)\n      mReportID := Alltrim(cApp)+\".rpt\"\n      oReportID:Refresh()\n   ENDIF\nRETURN NIL\n\nWhat I need to know is, how can I tell my program to change where the outcome is stored without rewriting it for each variable?','',0,'Ag==','xva92uaz',1,0,'',269,0,0),(4847,1169,1,2,0,'80.32.22.38',1136819750,1,0,1,1,1,1,'','','Ugo,\n\n&gt;\nBut I WANT to use a redefine Tree in a 16Bit program. \nIt is possible? \n&gt;\n\nActually it is NOT possible. The treeview shows but it hangs when it is clicked. We don\'t know yet how to fix it or if it is fixeable.','',0,'Ag==','9va3dwag',1,0,'',2,0,0),(4848,1174,3,213,0,'68.203.142.6',1136820232,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;]If you are working with DBF/CDX/FPT files created with Clipper, Comix or Six Driver, let me tell you that those FPT files are not compatible with xHarbour FPT structure, this is due because Clipper and friends create FPT files with a \"memblock\" size of 16 bytes which is not compatible with (x)Harbour FPT memoblock, which is 64 bytes long, so any operation performed over the memofile will fail.\n\nAccording to the docs the default memoblock size for Comix is 64 bytes.\n\nRegards,\nRandal Ferguson','',0,'','pinn05hc',1,0,'',213,0,0),(4849,1191,3,49,0,'82.53.119.108',1136820330,1,0,1,1,1,0,'','Return value from function','If I open windows and click on \"start\"  and the n on \"programs\" ....\nthere is a function in windows(xharbour &amp;fw) give me the words of the menu or the prompt ?\n\nRegards','',0,'','2a1p6jv3',1,0,'',49,0,0),(4850,1161,6,255,0,'200.67.134.233',1136820432,1,0,1,1,1,1,'','','[quote=&quot;DanielPuente&quot;:z7ykcimk]Juan Carlos:\n                   A veces las gpfs se producen por el acceso a alguna dbf, cdx o sobre todo campo memo fpt dañado. Proba copiar el sistema a otra carpeta y borrar, packear o pasarle el filefix al campo memo de las dbf que los tengan, reindexa o incluso packea o zapea las dbf por afuera del programa. Si la gpf se produce al entrar a una determinada opcion de menu eso puede ser indicio de que la gpf se produce al abrir alguna de las dbf. Tambien podes ir borrando las dbf de a una para ver si la gpf se produce antes del error que se generara seguramente al querer abrir la dbf borrada o no.\n                    El error se produce siempre en el mismo lugar del programa o aleatoriamente en cualquier lugar ?. Tmk.exe es el nombre del exe fivewin ?.[/quote:z7ykcimk]\n\nGracias Daniel\nProbaremos cada uno de los pasos sugeridos.','',0,'gA==','z7ykcimk',1,0,'',255,0,0),(4851,1179,6,295,0,'200.112.87.65',1136820466,1,0,1,1,1,1,'','','Estimado Vikthor:\n\nAl compilar el prg da los siguientes errores:\n\nError E2451 exel.c 97: Undefined symbol \'__PRG_SOURCE__\' in function hb_vm_SymbolInit_EXEL\nError E2193 exel.c 196: Too few parameters in call to \'hb_vmExecute\' in function HB_FUN_MAIN\nError E2193 exel.c 751: Too few parameters in call to \'hb_vmExecute\' in function HB_FUN_TEST\n\nPodrias mandarme un ejemplo mas sencillo porfis?\n\nGRACIAS DE ANTEMANO','',0,'gA==','2s2oce2i',1,0,'',295,0,0),(4852,1189,6,255,0,'200.67.134.233',1136820614,1,0,1,1,1,1,'','Re: Preuntas xbrowse','[quote=&quot;leandro&quot;:irox8lfo]Amigos del foro dos pregunticas con respecto al xbrowse. \n\nCon el browse original de fwh lo hacia de la siguiente manera \n\nREDEFINE LISTBOX oT1oli FIELDS tMovi-&gt;Articu \nFIELDSIZES 78 \nID 12 OF oDlg; \nHEADERS \"Artículo\"; \n[color=red:irox8lfo]ON CHAGE funactu() [/color:irox8lfo]\n\n[color=red:irox8lfo]oT1oli:nclrpane:={||IIF((ORDKEYNO())%2==0,cClr1,cClr2)} [/color:irox8lfo]\n\nLa pregunta es ¿cuales clausulas me permiten ejecutar las funciones que estan resaltadas en rojo, cuando utilizo la clase xbrowse?[/quote:irox8lfo]\n\n\nEl ON CHANGE lo usas asi:\n\noXBrw:bChange := {|| MiFuncion() }\n\ny los colores de la siguiente manera:\n\n  oXBrw:bClrStd          := { || ColoreaSTDRenglon() }\n  oXBrw:bClrSel          := { || ColoreaSELrenglon() }\n  oXBrw:bClrSelFocus  := { || ColoreaSELrenglon() }\n\n// +---------------------------------------------------------------------------------+\n// | Funciones para el pintado de los renglones del browse                           |\n// +---------------------------------------------------------------------------------+\n\n// Colores Standar del Browse\nSTAT FUNC ColoreaSTDRenglon()\n  Local aColores := {}\n  IF Inv-&gt;EDOFIS == \"B\"\n     aColores := { CLR_BLACK, CLR_WHITE }\n  EndIF\n  IF Inv-&gt;EDOFIS == \"R\"\n     aColores := { CLR_BLUE, CLR_WHITE }\n  EndIF\n  IF Inv-&gt;EDOFIS == \"M\"\n     aColores := { CLR_RED, CLR_WHITE }\n  ENDIF\nReturn aColores\n\n// Colores de seleccion\nSTAT FUNC ColoreaSELrenglon()\n  Local aColores := {}\n  IF Inv-&gt;EDOFIS == \"B\"\n     aColores := { CLR_WHITE, CLR_BLUE }\n  EndIF\n  IF Inv-&gt;EDOFIS == \"R\"\n     aColores := { CLR_WHITE, CLR_GREEN }\n  EndIF\n  IF Inv-&gt;EDOFIS == \"M\"\n     aColores := { CLR_WHITE, CLR_RED }\n  ENDIF\nReturn aColores\n\nEspero te sirva\nSaludos','',0,'gg==','irox8lfo',1,0,'',255,0,0),(4853,1179,6,295,0,'200.112.87.65',1136821167,1,0,1,1,1,1,'','','Error mio! la estaba compilando con harbour\nla compile xon xharbour y funciona\n\nGRACIAS VIKTHOR!','',0,'gg==','1w9x5m5s',1,0,'',295,0,0),(4854,1181,3,397,0,'201.42.53.167',1136821585,1,0,1,0,1,1,'','','Little friend,\n\nI\'m using 2.4 for Harbour.','',0,'gg==','2l8z4wb7',1,0,'',397,0,0),(4855,1169,1,154,0,'151.81.4.106',1136822050,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1o2lk93b]Actually it is NOT possible.\nThe treeview shows but it hangs when it is clicked. [/quote:1o2lk93b]\nYes, in the task manager my application run on 99% of CPU time.\n[quote:1o2lk93b]We don\'t know yet how to fix it or if it is fixeable.[/quote:1o2lk93b]\nThere are any other tools or methods?','',0,'gA==','1o2lk93b',1,0,'',154,0,0),(4856,1176,3,49,0,'82.53.119.108',1136822453,1,0,1,1,1,0,'','','Dear Ramesh Babu P,\nI sent U the file but YOU have problem at Your email !!!!\n\nRegards\nSilvio','',0,'gA==','3ek1rzyt',1,0,'',49,0,0),(4857,1176,3,49,0,'82.53.119.108',1136822536,1,0,1,1,1,0,'','','U cantry here[url:3sk9htcg]http&#58;//www39&#46;megaupload&#46;com/files/086ae4962e467905fdcc09631a11a1ed/tTextToSpeech&#46;zip[/url:3sk9htcg]','',0,'EA==','3sk9htcg',1,0,'',49,0,0),(4858,1115,4,213,0,'68.203.142.6',1136823237,1,0,1,1,1,0,'','','Rafael,\n\nThanks for the info.  I\'d prefer something that is royalty free if possible.  Also, I was looking for something to sync individual records, not just whole files.\n\nThanks,\nRandal Ferguson\n\n\n[quote=&quot;Rafael Clemente&quot;:3sq9gxjn]Randall:\n\nI use MigthySync.  You can download it here: \n[url:3sq9gxjn]http&#58;//www&#46;mydocsunlimited&#46;com/html/mightysync&#46;html[/url:3sq9gxjn]\nIt is not free, but at US$ 5.95 it is a real bargain.\n\nAmong other things, this utility can sync both data in user RAM and in Removable storage.\n\nRegarding the method of syncronizing, I guess it depends much on the nature of your application.  In my case, my first adventure with FWPPC has been a very specialized CRM.  I do not sync directly with the PC, but download some files from the PC to the Pocket (and viceversa). The storage card provides ample space for that.  Then, I perform the sync off-line, record by record.  It is a rather crude system, but it works fine and has proved to be quite inmune to user errors.\n\nHope this helps.  Best regards,\n\nRafael[/quote:3sq9gxjn]','',0,'kA==','3sq9gxjn',1,0,'',213,0,0),(4859,1192,6,185,0,'200.87.81.52',1136824023,1,0,1,1,1,0,'','LinearGardientBrush','Hola Foro\n\nEstoy buscanco algo como la función en .net LinearGradienteBrush para fwh.\n\nLo que quiero es crear un brush similar al solidbrush, que permita hacer una gradiente de colores\n\nAlguien tiene alnuna idea?\n\nGracias\n\nArturo Tamayo Daza\n<!-- e --><a href=\"mailto:thee2d2@entelnet.bo\">thee2d2@entelnet.bo</a><!-- e -->\narturotamayo.hotmail.com','',0,'kA==','1hhjg7jl',1,0,'',185,0,0),(4860,1158,2,146,0,'200.82.58.77',1136825148,1,0,1,1,1,0,'','repuesta','Gracias Daniel, como siempre sos un genio. La clase FileXls tenia todo lo que nos pedia el cliente. Desde ya mil gracias por tu ayuda. Leonor','',0,'kA==','2njr9kpz',1,0,'',146,0,0),(4861,1193,2,146,0,'200.82.58.77',1136825395,1,0,1,1,1,0,'','msglogo deja archivo abierto','Hola Amigos:\n\nTengo definido un msglogo en el inicio del sistema con parametro de 2 segundos. Funciona todo ok excepto que cuando cierro el sistema en windows 98 si miro con ctrl alt supr los programas abiertos en una línea dice fivewin y hasta que no finalizo la tarea no puedo volver a abrir el sistema. Debido a que es? Alguien tiene idea. Si yo saco ese renglon en el sistema no queda nada abierto. Mil Gracias.','',0,'kA==','2fmchuxs',1,0,'',146,0,0),(4862,1194,23,308,0,'84.148.5.121',1136826342,1,0,1,1,1,0,'','tsbrowse','Hallo,\nbenutzt jemand von euch tsbrowse ?\n\nich müsste da in einer zelle ein jpg-file anzeigen, bmp´s gehen, jpg´s krieg ich nicht gebacken.\n\nhat jemand einen tipp für mich ?\n\ngruss, norbert','',0,'kA==','hp7gwh8n',1,1139938049,'',308,1,0),(4863,1195,6,141,0,'200.88.94.1',1136827079,1,0,1,1,1,1,'','Cambio de Themes.obj en Fivehc.lib','Casi que este mensjae es para Antonio:\n\nUtilizo FW2.4 + BCC32 + xHarbour 0.99.3 (PuertoSur)\n\nEl 29 de Junio de 2005 publicaste una respuesta a un mensaje que decia en el asunto \"Sobre SAY\", la solución haciendo un cambio en la clase TSay, MAS una sustitucion de Themes.obj en Fivehc.lb.\n\nLa pregunta es:\n\nSe cambia con LIB, o con TLIB ?  Cual seria la instruccion correcta?\n\nGracias anticipadas,\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'kA==','16hce1ty',1,0,'',141,0,0),(4864,1191,3,2,0,'80.32.22.38',1136829504,1,0,1,1,1,1,'','','Silvio,\n\nGetModuleFileName( GetModuleHandle() ) will return you the name of the executed EXE.','',0,'kA==','3m05gie5',1,0,'',2,0,0),(4865,1193,2,2,0,'80.32.22.38',1136829784,1,0,1,1,1,1,'','','Leonor,\n\nAcabamos de probar samples\\TestMsgL.prg que usa MsgLogo() y funciona correctamente y no deja ninguna tarea pendiente.\n\n¿ Que versión de FiveWin usas ?','',0,'kA==','2ndjveaw',1,0,'',2,0,0),(4866,1195,6,2,0,'80.32.22.38',1136829962,1,0,1,1,1,1,'','','Julio,\n\nPuesto que usas BCC32, has de usar TLib.exe para reemplazar el OBJ en FiveHC.lib','',0,'kA==','e2wiq56y',1,0,'',2,0,0),(4867,1195,6,141,0,'200.88.94.1',1136830221,1,0,1,1,1,1,'','','Gracias Antonio,','',0,'kA==','ycgkp9sa',1,0,'',141,0,0),(4868,1192,6,2,0,'80.32.22.38',1136830251,1,0,1,1,1,1,'','','Arturo,\n\nUna solución fácil es similar a la que se usa en las páginas web. Crea un pequeño bitmap que contenga el gradiente, algo asi como una línea vertical y delgada.\n\nCrea un brush con ese bitmap y dáselo a la ventana ó diálogo, y ellos te crearán el gradiente de forma automatica.\n\nOtra posible implementación la tienes en el ejemplo samples\\install.prg. El modo en que se dibuja el color del fondo, es una forma de hacer un gradiente mediante programación.','',0,'kA==','1vv5rs4m',1,0,'',2,0,0),(4869,1160,4,95,0,'201.137.208.219',1136830925,1,0,1,1,1,0,'','','Hi Guys\n\nI like it, because it is a Celuar Phone and Palm, and I would like to get it, but only if some one has made test with FWPPC and of course with succesfully.\n\nThe idea behind is showing app to the customers ...\nAnyway it is to expensive \n\n__________________\n\nMe gusta porque tiene o es Celular y Palm, aun asi es muy cara.\nLa idea es poder mostrar applicaciones a los posibles clientes...\n\nDe todos modos, Saludos a todos\nOsvaldo Ramirez','',0,'kA==','2uxmio4h',1,0,'',95,0,0),(4870,916,6,319,0,'201.1.173.160',1136832754,1,0,1,1,1,0,'','','com outra impressora funciona normal.','',0,'kA==','1gvfhwek',1,0,'',319,0,0),(4871,1187,20,6,0,'87.3.232.56',1136833045,1,0,1,1,1,1,'','Re: Inserire una immagine wmf in un documento word via ole','Stranamente questo funziona\n\n[code:1c8wh2u8]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel\n\n    oExcel = CreateObject&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    oExcel&#58;ActiveSheet&#58;Shapes&#58;AddPicture&#40; &quot;C&#58;\\XHARBOUR\\INVOICE&#46;WMF&quot;, &#46;F&#46;, &#46;T&#46;, 0, 0, 500, 1000 &#41;\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:1c8wh2u8]\n\nma questo no\n\n[code:1c8wh2u8]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord\n\n    oWord = CreateObject&#40; &quot;Word&#46;Application&quot; &#41;\n\n    oWord&#58;Documents&#58;Add&#40;&#41;\n\n    oWord&#58;ActiveDocument&#58;Shapes&#58;AddPicture&#40; &quot;C&#58;\\XHARBOUR\\INVOICE&#46;WMF&quot;, &#46;F&#46;, &#46;T&#46;, 0, 0, 500, 1000 &#41;\n\n    oWord&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:1c8wh2u8]\n\ne non capisco perché. Magari a te viene in mente qualcosa.\n\nEMG','',0,'AIA=','1c8wh2u8',1,0,'',6,0,0),(4872,1160,4,2,0,'80.32.22.38',1136834186,1,0,1,1,1,1,'','','Osvaldo,\n\nYes, it looks very sharp.\n\nAnyhow, have you searched at ebay ? There use to be interesting offers.','',0,'AIA=','33okud5s',1,0,'',2,0,0),(4873,1196,6,299,0,'69.65.88.121',1136834433,1,0,1,0,1,0,'','Listo el pollo','Intento escribir a Vikthor pero ninguno de los correos electronicos de su pagina creswin me funcionan.\n\nVikthor -- me envias tu correo electronico?\n\nGraicas.\n\nReinaldo Crespo\n<!-- e --><a href=\"mailto:reinaldocrespo@structuredsystems.com\">reinaldocrespo@structuredsystems.com</a><!-- e -->','',0,'AIA=','f0vefgxx',1,0,'',299,0,0),(4874,1197,16,2,0,'80.32.22.38',1136835150,1,0,1,1,1,1,'','FTDN new January 2006 build / nuevo build de Enero 2006','January 2006 build\n=============\n \n * Fix: FWC3, dialogboxes with GETs and a pulldown menu, were not properly processing Enter key. Now it is ok. \n   \n * Enhancement: FWPPC, Method AEvalWhen() is called from Class TWindow Method Activate() and focus is given to the first resulting active control.\n     \n * Fix: FW++, Class TDialog Method Initiate() was not getting called for non modal dialogs created from source code. Now it is ok.\n       \n * New: FWPPC, new implemented function SHFullScreen().\n\n * New: FWPPC, added missing Class TControl Method VarPut( &lt;uVal&gt; ) and Method VarGet().\n    \n * Enhancement: Class TPrinter Method New() uses a new parameter lSelection. Method End() calls PrinterEnd() to free the used printer memory. PrinterBegin() uses the new parameter lSelection. Print.ch uses the new clause SELECTION.\n\n * Enhancement: PrintDC.c, PRINTDLG pd structure has been modified the way its get initialized. New static structure used to store the printing margins of the application. GetPrintDC() has been modified to be used by Class TRichEdit. New functions: PageSetup(), PageGetMargins(), \n   PrnGetPagNums(), PrnGetSelection() and PrnGetCollate(). New function PrinterEnd() to free the printer used memory (warning, if this function is called then you have to set your printing values again next time you are going to print).\n\n * Enhancement: Class TRichEdit new Method PageSetup(). Method Print() has been modified. New parameters for the low level function REPrint(). Now more features are managed: pages selection, print selection, insert pages, pages to print, number of copies and printing margins. You may review samples\\TestRtf.prg for a working sample.\n \n * Fix: FW++ Class TGet minor fix on VK_RETURN and default pushbuttons behavior.\n   \n * New: Class TVItem (TreeViewItem) Method GetParent(), returns the parent of a given treeview item if it exists or nil. Please review samples\\TreeView.prg working sample.\n     \n * Fix: Class TFolder Method GotFocus(), minor fix.\n     \n * Enhancement: Disabled GETs in 32 bits now can show whatever color you may want, not the Windows imposed lightgray color. Simply set the color to the GET using COLOR ...,... clause or use oGet:SetColor( ...,... ) method call and set the DATA lDisColor to .f..\n     \n * New: FWPPC, Class TMultiGet is already available. Please review samples\\TestMemo.prg\n   \n * Enhancement: ChooseFont() has been modified so if cancel is pressed, then it returns a 14 items array but all are them are nil.\n     \n * Enhancement: FW++ is already compatible with Xbase++ 1.9 RC-2.\n   \n * Fix: Some recent changes in winapi\\comm.c get reverted.\n   \n * New: samples\\buildhd.bat and samples\\buildhdp.bat have been included in the FWH setup, to build Harbour self contained DLLs and Harbour pcode DLLs. Please review samples\\babu.prg and samples\\BabuDll.prg, and samples\\TestDllP.prg\n    \n * Enhancement: FWPPC, VALID clause is already available for DIALOGs. Please review samples\\tutor04.prg\n   \n * Enhancement: Class TListView has been enhanced to properly work using @ ..., ... LISTVIEW command. Please review samples\\ListVie1.prg. Please notice that FiveWin.ch has changed.\n       \n * New: Class TTreeView, new method SetText( cText ) for items (Class TTvItem). Please review samples\\TestTree.prg for a working sample.\n     \n * New: FWPPC, WndTop( hWnd, [nNewTop] ) --&gt; nTop support.\n    \n * New: FiveWin.ch and FWCE.ch (for Pocket PC), new command to create individual radioitems at a certain location, and belonging to a radiomenu:\n   \n   #xcommand @ &lt;nRow&gt;, &lt;nCol&gt; RADIOITEM [ &lt;oRadItem&gt; PROMPT ] &lt;cCaption&gt; ;\n             [ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n             [ RADIOMENU &lt;oRadMenu&gt; ] ;\n             [ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ;\n             [ &lt;change: ON CLICK, ON CHANGE&gt; &lt;uChange&gt; ] ;\n             [ COLOR &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ;\n             [ MESSAGE &lt;cMsg&gt; ] ;\n             [ &lt;update: UPDATE&gt; ] ;\n             [ WHEN &lt;uWhen&gt; ] ;\n             [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n             [ VALID &lt;uValid&gt; ] ;\n             [ &lt;lDesign: DESIGN&gt; ] ;\n             [ &lt;lLook3d: 3D, _3D&gt; ] ;\n             [ &lt;lPixel: PIXEL&gt; ] ;\n  \n * New: Function ShFile() to use the Windows system dialogs to manage files. Please review samples\\DlgFile() for a working sample.','',0,'','23vg1zoq',1,0,'',2,0,0),(4875,1198,3,2,0,'80.32.22.38',1136835232,1,0,1,1,1,1,'','FTDN January 2006 build','FTDN new January 2006 build, ready:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1197\">http://fivetechsoft.com/forums/viewtopic.php?t=1197</a><!-- m -->','',0,'','15002cjh',1,0,'',2,0,0),(4876,1199,6,2,0,'80.32.22.38',1136835333,1,0,1,1,1,1,'','FTDN nuevo build Enero 2006','Ya está disponible el nuevo build del FTDN correspondiente a Enero 2006:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1197\">http://fivetechsoft.com/forums/viewtopic.php?t=1197</a><!-- m -->\n\nla traducción al español lo antes posible.','',0,'','2edejddu',1,0,'',2,0,0),(4877,1192,6,185,0,'200.87.81.36',1136835418,1,0,1,1,1,0,'','','Gracias Antonio\n\nEsa solución ya la he visto pero no me sirve ya que los colores serían fijos de acuerdo al bmp.\n\nlo que yo estoy buscando es una función similar a lineragradientbrush, que permita definir los colores, mas o menos asi\n\nObrush := (ntop,nleft,nbotton,nrght,Color1, Color2, posicion )\n\nsi fuera posible dar este entonces los colores variarian de acuerdo con lo difinido en el windows\n\nSaludos\n\nArturo','',0,'','12f0el4v',1,0,'',185,0,0),(4878,1192,6,2,0,'80.32.22.38',1136836505,1,0,1,1,1,1,'','','Arturo,\n\nEntonces revisa el código fuente de samples\\install.prg','',0,'','326rqaow',1,0,'',2,0,0),(4879,1192,6,110,0,'165.98.151.243',1136838389,1,0,1,1,1,1,'','','si no recuerdo mal, la clase tsbutton de manuel mercado implementa una funcion que realiza un  degradado con dos colores, similar a lo que busca.\n\n\nsalu2\ncarlos vargas','',0,'','1xo67s05',1,0,'',110,0,0),(4880,1195,6,110,0,'165.98.151.243',1136838481,1,0,1,1,1,1,'','','la instruccion por si no la tienes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> (lo dudo)\n\ntlib fivehc.lib -+themes.obj\n\nsalu2\ncarlos vargas','',0,'','2o5fh65f',1,0,'',110,0,0),(4881,1192,6,28,0,'87.218.46.51',1136840611,1,0,1,1,1,0,'','Gradient','Hola a todos:\n\nSi le parece bien a Antonio podemos incluir la función [b:2je3qghp]Degrada[/b:2je3qghp] en fivewin.\n\nExiste una función GradientFill en una dll del sistema pero no siempre esta disponible en todos los Windows asi que creo que es mejor utilizar esta forma \n\n[code:2je3qghp]\n\nvoid GradientFill&#40; HDC hDC, RECT* rct, COLORREF crStart, COLORREF crEnd, int bVertical &#41;\n    &#123;\n       int nSegments = 100;\n       COLORREF cr;\n\n       int nR      = GetRValue&#40;crStart&#41;;\n       int nG      = GetGValue&#40;crStart&#41;;\n       int nB      = GetBValue&#40;crStart&#41;;\n       int neB     = GetBValue&#40;crEnd&#41;;\n       int neG     = GetGValue&#40;crEnd&#41;;\n       int neR     = GetRValue&#40;crEnd&#41;;\n       int nDiffR  = &#40;neR - nR&#41;;\n       int nDiffG  = &#40;neG - nG&#41;;\n       int nDiffB  = &#40;neB - nB&#41;;\n       int ndR ;\n       int ndG ;\n       int ndB ;\n       int nCX ;\n       int nCY ;\n       int nTop    = rct-&gt;top;\n       int nBottom = rct-&gt;bottom;\n       int nLeft   = rct-&gt;left;\n       int nRight  = rct-&gt;right;\n       HBRUSH hBrush;\n       RECT rc;\n\n       int i;\n\n       if&#40; !bVertical &#41;\n       &#123;\n          if&#40; nSegments &gt; &#40; rct-&gt;right - rct-&gt;left &#41; &#41;\n          &#123;\n            nSegments = &#40; rct-&gt;right - rct-&gt;left &#41;;\n          &#125;\n       &#125;\n       else\n       &#123;\n          if&#40; nSegments &gt; &#40; rct-&gt;bottom - rct-&gt;top &#41; &#41;\n          &#123;\n            nSegments = &#40; rct-&gt;bottom - rct-&gt;top &#41;;\n          &#125;\n       &#125;\n\n       ndR = 256 * &#40;nDiffR&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       ndG = 256 * &#40;nDiffG&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       ndB = 256 * &#40;nDiffB&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       nCX = &#40;rct-&gt;right-rct-&gt;left&#41; / max&#40;nSegments,1&#41;;\n       nCY = &#40;rct-&gt;bottom-rct-&gt;top&#41; / max&#40;nSegments,1&#41;;\n\n\n\n       nR *= 256;\n       nG *= 256;\n       nB *= 256;\n\n       for &#40;i = 0; i &lt; nSegments; i++, nR += ndR, nG += ndG, nB += ndB&#41;\n       &#123;\n\n               if&#40;i == &#40;nSegments - 1&#41;&#41;\n               &#123;\n                  nRight  = rct-&gt;right;\n                  nBottom = rct-&gt;bottom;\n               &#125;\n               else\n               &#123;\n                  nBottom = nTop + nCY;\n                  nRight = nLeft + nCX;\n               &#125;\n\n               cr = RGB&#40;nR / 256, nG / 256, nB / 256&#41;;\n\n               &#123;\n                  hBrush = CreateSolidBrush&#40; cr &#41;;\n                  if&#40; bVertical &#41;\n                  &#123;\n                     rc&#46;top    = nTop;\n                     rc&#46;left   = rct-&gt;left;\n                     rc&#46;bottom = nBottom + 1;\n                     rc&#46;right  = rct-&gt;right;\n                  &#125;\n                  else\n                  &#123;\n                     rc&#46;top    = rct-&gt;top;\n                     rc&#46;left   = nLeft;\n                     rc&#46;bottom = rct-&gt;bottom;\n                     rc&#46;right  = nRight+1;\n                  &#125;\n                  FillRect&#40;hDC, &amp;rc, hBrush &#41;;\n                  DeleteObject&#40; hBrush &#41;;\n               &#125;\n\n               nLeft = nRight;\n               nTop = nBottom;\n       &#125;\n    &#125;\n\n\n   HB_FUNC&#40; DEGRADA &#41;\n   &#123;\n           RECT rct;\n\n           rct&#46;top      = hb_parni&#40; 2, 1 &#41;;\n           rct&#46;left      = hb_parni&#40; 2, 2 &#41;;\n           rct&#46;bottom = hb_parni&#40; 2, 3 &#41;;\n           rct&#46;right    = hb_parni&#40; 2, 4 &#41;;\n\n           GradientFill&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; , &amp;rct, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parl&#40;5&#41; &#41;;\n   &#125;\n\n\nlocal lVertical &#58;= &#46;t&#46;\nDegrada&#40; hDC, &#123; 10, 10, 200, 200&#125;,  CLR_WHITE, CLR_BLUE, lVertical &#41;\n\n[/code:2je3qghp]\n\nEste código está inspirado en alguno que he visto por internet, no lo he imaginado yo solo.\n\nUn saludo\n\nPaco','',0,'QIA=','2je3qghp',1,0,'',28,0,0),(4882,1175,6,28,0,'87.218.46.51',1136840950,1,0,1,1,1,0,'','TextToSpeech','Gracias por el trabajo, Cesar','',0,'QIA=','qnibv00n',1,0,'',28,0,0),(4883,1115,4,63,0,'80.58.35.107',1136841280,1,0,1,1,1,0,'','','Randall:\nMSync is as close to royalty free as I can imagine, unless you want to distribute a large number of programs.  \n\nAs for syncronizing individual records that is exactly what I am doing.  The trick is to include two extra fields in each record: LastDatef and LastTime.  Your app should keep these fields updated everytime you modify them.  Once you have accomplished that, comparing records and updating when needed is quite straightforward.  \n\nRegards,\n\nRafael','',0,'QIA=','9r0bnd8v',1,0,'',63,0,0),(4884,1196,6,18,0,'200.67.188.236',1136841938,1,0,1,1,1,1,'','','mi cuenta de correo es vikthor at creswin dot com dot mx','',0,'QIA=','21amw5sh',1,0,'',18,0,0),(4885,1196,6,299,0,'69.65.88.121',1136842858,1,0,1,0,1,0,'','','Vikthor,\n\nGracias por responder.  \n\nPues esa misma direccion de correo es la que estoy usando.  Abajo lo que recibo de vuelta:\n\nThis message was created automatically by mail delivery software.\n\nA message that you sent could not be delivered to one or more of its recipients. This is a permanent error. The following address(es) failed:\n\n  <!-- e --><a href=\"mailto:vikthor@creswin.com.mx\">vikthor@creswin.com.mx</a><!-- e -->\n    unrouteable mail domain \"creswin.com.mx\"\n\n...\n\nTe ruego que me envies una nota y asi te hago reply.\n\nSaludos,\n\n<!-- e --><a href=\"mailto:reinaldocrespo@structuredsystems.com\">reinaldocrespo@structuredsystems.com</a><!-- e -->','',0,'QIA=','8vytqot2',1,0,'',299,0,0),(4886,1197,16,2,0,'80.32.22.38',1136843306,1,0,1,1,1,1,'','','Construcción Enero 2006\n==================\n\n* Corrección: En FWC3, las cajas de diálogos con GETs y menús desplegables, no estaban procesando la tecla Enter\ncorrectamente. Ahora está OK.\n\n* Mejora: En FWPPC, el método AEvalWhen() es llamado desde el método Activate() de la clase TWindow y el foco es\ndado al primer control activo resultante.\n\n* Corrección: En FW++, el método de la clase Initiate() no era llamado en diálogos nomodales creados desde código\nfuente. Ahora está OK.\n\n* Nuevo: En FWPPC, implementación nueva de la función SHFullScreen().\n\n* Nuevo: En FWPPC, añadidos los métodos VarPut( &lt;uVal&gt; ) y Varget() de la clase TControl que faltaban.\n\n* Mejora: El método New() de la clase TPrinter usa un nuevo parámetro, \"lSelection\". El método End() a la función\nPrinterEnd() para liberar la memoria usada por la impresora. La función PrinterBegin() usa el nuevo parámetro\n\"lSelection\". El fichero de cabecera Print.ch usa la nueva clausula SELECTION.\n\n* Mejora: En el fichero PrintDC.c, la estructura PRINTDLG pd se ha modificado la manera en que es inicializada. Nueva\nestructura estática, usada para almacenar los márgenes de impresión de la aplicación. La función GetPrintDc ha sido\nmodificada para usarse con la clase TRichEdit. Nuevas funciones: PageSetup(), PageGetMargins(), PrnGetPagNums(), \nPrnGetSelection() y PrnGetCollate(). Nueva función PrinterEnd() para liberar la memoria usada por la impresora (\ncuidado, si llama a esta función, tendrá que volver a poner los valores de impresión la próxima vez que vaya a\nimprimir).\n\n* Mejora: Nuevo método PageSetup() en la clase TRichEdit. El método Print() ha sido modificado. Nuevos parámetros\npara la función de bajo nivel REPrint(). Ahora se manejan nuevas características: selección de páginas, selección\nde la impresión, insertar páginas, páginas a imprimir, número de copias y márgenes de impresión. Revise\nsamples\\TestRtf.prg para un ejemplo funcional.\n\n* Correción: En FW++, en la clase TGet, pequeña correción en VK_RETURN y en el comportamiento de los \"PushButtons\"\npor defecto.\n\n* Nuevo: El método GetParent() de la clase TVItem (TreeViewItem), devuelve el padre de un elemento si este existe o nó.\nRevise samples\\TreeView.prg para un ejemplo funcional.\n\n* Corrección: Pequeña corrección en el método GotFocus() de la clase TFolder.\n\n* Mejora: Los GETs deshabilitados en 32 bits ahora pueden mostrar cualquier color que tu quieras, no el \"gris luminoso\" impuesto por Windows. Simplemente pon el color al GET usando la clausula COLOR ...,.. . o usa el método oGet:SetColor( ...,... ) y pon la DATA lDisColor a .F..\n\n* Nuevo: Está disponible la clase TMultiGet en FWPPC. Revise samples\\TestMemo.prg.\n\n* Mejora: La función ChooseFont() se ha modificado, si se cancela, devuelve un array de 14 elementos vacios.\n\n* Mejora: FW++ es compatible co Xbase++ 1.9 RC-2.\n\n* Corrección: Se han modificado en winapi\\comm.c algunos cambios recientes.\n\n* Nuevo: Se han incluidos en el \"setup\" de FWH samples\\buildhd.bat y samples\\buildhdp.bat, para construir DLLs propias\nde Harbour y DLLs de pcode Harbour. Revise samples\\babu.prg y samples\\BabuDll.prg, y samples\\TestDllP.prg.\n\n* Mejora: En FWPPC, la clausula VALID está disponible para DIALOGos. Revise samples\\tutor04.prg.\n\n* Mejora: La clase TListView ha sido mejorada para que funcione correctamente usando el comando @ ..., ... LISTVIEW.\nRevise samples\\ListVie1.prg. Note que Fivewin.ch ha cambiado.\n\n* Nuevo: En la clase TTreeView, nuevo método SetText( cText ) para elementos (Clase TTvItem). Revise samples\\TestTree.prg\npara un ejemplo funcional.\n\n* Nuevo: En FWPPC, soporte para WndTop( hWnd, [nNewTop] ) --&gt; nTop.\n\n* Nuevo: En FiveWin.ch y FWCE.ch (para Pocket PC), nuevo comando para crear \"radioitems\" individuales en ciertas\nposiciones y perteneciendo a un radiomenu:\n\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; RADIOITEM [ &lt;oRadItem&gt; PROMPT ] &lt;cCaption&gt; ;\n[ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n[ RADIOMENU &lt;oRadMenu&gt; ] ;\n[ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ;\n[ &lt;change: ON CLICK, ON CHANGE&gt; &lt;uChange&gt; ] ;\n[ COLOR &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ;\n[ MESSAGE &lt;cMsg&gt; ] ;\n[ &lt;update: UPDATE&gt; ] ;\n[ WHEN &lt;uWhen&gt; ] ;\n[ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n[ VALID &lt;uValid&gt; ] ;\n[ &lt;lDesign: DESIGN&gt; ] ;\n[ &lt;lLook3d: 3D, _3D&gt; ] ;\n[ &lt;lPixel: PIXEL&gt; ] ;\n\n* Nuevo: Función ShFile() para usar los diálogos de Windows para manejar ficheros. Revise samples\\DlgFile() para un\nejemplo funcional.','',0,'','2jybhaiy',1,0,'',2,0,0),(4887,1198,3,2,0,'80.32.22.38',1136843389,1,0,1,1,1,1,'','','The new Harbour and xHarbour January 2006 builds are already available from:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'','15xztjdd',1,0,'',2,0,0),(4888,1199,6,2,0,'80.32.22.38',1136843470,1,0,1,1,1,1,'','','Los nuevos builds de Harbour y xHarbour de Enero 2006 están ya disponibles desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'','1aw6qovz',1,0,'',2,0,0),(4889,1175,6,255,0,'200.67.134.233',1136844630,1,0,1,1,1,1,'','','A manera de comentario:\n\nMi clase TMSAgent, puede ser usada con cualquier motor\nde TextToSpeech y es realmente muy \"cómico\" ver al\nagente de microsoft darle instrucciones al usuario sobre\ncomo debe usar el sistema. \n\nSaludos\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin\">www.esm.com.mx/fivewin</a><!-- w -->','',0,'','ikkenq2o',1,0,'',255,0,0),(4890,1196,6,18,0,'200.67.188.236',1136844852,1,0,1,1,1,1,'','','Unknown user: <!-- e --><a href=\"mailto:reinaldocrespo@structuredsystems.com\">reinaldocrespo@structuredsystems.com</a><!-- e -->\n\n\nOriginal message follows.\n\nReceived: from VIKTHORBWI  by creswin.com\n  (SMTPD32-8.00) id A99317B90124; Mon, 09 Jan 2006 13:29:23 -0600\nMessage-ID: &lt;000601c6155b$a1fdf460$1100a8c0@VIKTHORBWI&gt;\nFrom: \"Vikthor\" &lt;vikthor@creswin.com.mx&gt;\nTo: &lt;reinaldocrespo@structuredsystems.com&gt;','',0,'','24o7m78w',1,0,'',18,0,0),(4891,1196,6,18,0,'200.67.188.236',1136844917,1,0,1,1,1,1,'','','Intenta con vykhor at hotmail dot com \n\nSeguro que esa cuenta no falla.','',0,'','2w7aplhs',1,0,'',18,0,0),(4892,1196,6,18,0,'200.67.188.236',1136844964,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:21xqmwla]Intenta con vykhor at hotmail dot com \n\nSeguro que esa cuenta no falla.[/quote:21xqmwla]\n\nPerdón , el nick correcto es [b:21xqmwla]vykthor at hotmail dot com[/b:21xqmwla]','',0,'wA==','21xqmwla',1,0,'',18,0,0),(4893,1175,6,18,0,'200.67.188.236',1136845086,1,0,1,1,1,1,'','','César :\n\n¿Tienes el código fuente de la clase TGif98 disponible para usarlo con xHarbour.?','',0,'wA==','1w3s53es',1,0,'',18,0,0),(4894,1182,6,18,0,'200.67.188.236',1136845191,1,0,1,1,1,1,'','','Mi estimado Paco :\n\nPuede usar la clase QFtp con las modificaciones que le hizo Luis Krause, la clase funciona muy bien, tanto para subir, como para bajar archivos.','',0,'wA==','2mint6ia',1,0,'',18,0,0),(4895,1176,3,222,0,'200.11.242.33',1136846331,1,0,1,1,1,0,'','Text-To-Speech class for FWH','[quote=&quot;Silvio&quot;:2yj6g4v8]I try ot and I saw that volume, picth and speed not run ok !!!!!!!![/quote:2yj6g4v8]\n\nSliders work [u:2yj6g4v8][b:2yj6g4v8]only before[/b:2yj6g4v8][/u:2yj6g4v8] speech begins.\n\nIf you want to change volume and pause while speaking, you must use ::TagSpeech(nVolume,nmsecsPause) method. \n\nAccordingly to documentation not all computers support ::TagSpeech.\n\nNote that volume, speed and pitch ranges are 0..100\n\nRegards','',0,'wQ==','2yj6g4v8',1,0,'',222,0,0),(4896,1191,3,49,0,'87.6.179.96',1136847123,1,0,1,1,1,0,'','','No antonio yo u don\'t understand me \nwhen i put  the mouseover on \"start\" the procedure let me say = \"start\"\nWhen I put  the mouse over the menu the procedure let me say  the name or the propt of the menu \nDo you understand me now ?\nregards','',0,'wQ==','34jl8r4i',1,0,'',49,0,0),(4897,1176,3,49,0,'87.6.179.96',1136847199,1,0,1,1,1,0,'','','Cesar it run ok','',0,'wQ==','3fwwu8k6',1,0,'',49,0,0),(4898,1200,6,295,0,'201.222.156.14',1136861182,1,0,1,1,1,1,'','Vikthor: El ejemplo funcionó bien (TEXCELS) ..pero','Estimado Vikthor \nel ejemplo funciona , pero me imagino que la variable cText no da la capacidad suficiente para mas de 600 registros\n\nel ejemplo lo apliqué así:\n\ncText:=\"\"\ncText:=\"LISTADO DE ALIMENTOS\"+CHR(13)\ncText+=Chr(13)\nMSGWAIT(\"GENERANDO\")\nDO WHILE NUTRIEN-&gt;(!EOF())\n      cText:=cText+NUTRIEN-&gt;Alimento+CHR(9)+;\n      STR(NUTRIEN-&gt;Calorias)+CHR(13)\n      NUTRIEN-&gt;(DBSKIP())\nENDDO\n  oExcel := TExcelScript():New()\n  oExcel:Create( \'Temp.xls\' )\n  oExcel:visualizar(.T.)\n  oClip :=TClipBoard():New()\n  oClip:Clear()\n  oClip:SetText( cText )\n  oExcel:SetPos(\'B5\')\n  nCol:=cLetter2Column( \'B\' )\n  oExcel:Paste()\n  oClip:End()\n  cRange:=cMakeRange( 5 , nCol, ( 5+oExcel:nRowsCount() ) - 1 , (nCol+oExcel:nColsCount())-1 )\n  oRange := oExcel:oSheet:Range(cRange)\n  oRange:Font:Name := \'Tahoma\'\n  oRange:Font:Size := 10\n  oRange:Font:Bold := .T.\n  oRange:Font:Color := rgb(0,0,150)\n  oRange:Interior:Color := rgb(192,192,192)\n  oRange:Borders():LineStyle  := 1\n  oRange:Columns:AutoFit()\nDe que manera puedo mostrar todos los registros en el Exce?\nLA  TABLA NUTRIEN.DBF TIENE 1600 REGISTROS\n\nDE ANTEMANO MUCHAS GRACIAS POR TU VALIOSA AYUDA\nSALUDOS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'wQ==','227xca8k',1,0,'',295,0,0),(4899,660,2,9,0,'85.59.37.39',1136872073,1,0,1,1,1,0,'','','Antonio, ahora si funciona. He utilizado el siguiente código:\n\n// Testing some radio buttons \n\n#include \"FiveWin.ch\" \n\nstatic oWnd \n\n//----------------------------------------------------------------------------// \n\nfunction Main() \n\n   local nValue := 1, oRad \n\n   SET _3DLOOK ON \n\n   DEFINE WINDOW oWnd ; \n      TITLE \"Testing a Radio Buttons Menu\" COLOR \"N/W\" \n\n   @ 1, 1 BUTTON \"&amp;Test\" SIZE 70, 20 ; \n      ACTION  MsgInfo( nValue ) \n\n   @ 3, 2 RADIO oRad VAR nValue ; \n      ITEMS \"&amp;Uno\" _3D SIZE 150, 25 ; \n \n   @ 3, 20 RADIOITEM \"&amp;Dos\" RADIOMENU oRad OF oWnd SIZE 150, 25 \n\n   @ 3, 40 RADIOITEM \"&amp;Tres\" RADIOMENU oRad OF oWnd SIZE 150, 25 \n\n   ACTIVATE WINDOW oWnd \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nUn saludo y muchas gracias','',0,'wQ==','3a81at4e',1,0,'',9,0,0),(4900,1198,3,205,0,'81.205.236.20',1136872471,1,0,1,1,1,0,'','','Good morning Antonio,\n\nI see you\'re improving the tRichEdit class.  Great !\nI hope that (eventually) we will get a ruler too...\n\nBest regards,\nKlaas den Dekker','',0,'wQ==','3j6j4b4b',1,0,'',205,0,0),(4901,1201,22,382,0,'194.77.253.245',1136880086,1,0,1,1,1,0,'','TIcon','Please add a \"hResources\"-Parameter to the TIcon-Class (like in TDialog)','',0,'wQ==','1czbn25k',1,0,'',382,0,0),(4902,1191,3,2,0,'80.32.22.38',1136880269,1,0,1,1,1,1,'','','Silvio,\n\nDo you mean that if you do a:\n\nMENUITEM oItem PROMPT \"&amp;One\" ACTION ...\n\nthen you want to retrieve \"&amp;One\" ?','',0,'wQ==','1gtdba1b',1,0,'',2,0,0),(4903,1192,6,2,0,'80.32.22.38',1136880405,1,0,1,1,1,1,'','','Gracias!','',0,'wQ==','34beqqz5',1,0,'',2,0,0),(4904,1201,22,2,0,'80.32.22.38',1136881785,1,0,1,1,1,1,'','','Frank,\n\nCould you please elaborate more your request ? Class TIcon already has a DATA hIcon to keep its handle. \n\nTo access the resources you may call GetResources() --&gt; hResources\n\nWhat would that DATA be for ?','',0,'wQ==','22jq1630',1,0,'',2,0,0),(4905,1200,6,2,0,'80.32.22.38',1136881936,1,0,1,1,1,1,'','','Luis,\n\nSalvo que haya alguna limitación específica en Excel, en 32 bits no tienes limitación para el tamaño de las cadenas. En principio podria llegar a medir hasta 4 gigas.','',0,'wQ==','kawes3t2',1,0,'',2,0,0),(4906,1153,1,148,0,'82.201.235.42',1136883233,1,0,1,1,1,0,'','','Not all Tools works well in workshop , eg . the BorlandRadioButton doesn\'t work and the program gave me : \nCan not find main resource.','',0,'wQ==','3je0mqjp',1,0,'',148,0,0),(4907,1190,1,193,0,'195.212.29.171',1136885380,1,0,1,1,1,0,'','','[quote:10jggoxt]What I need to know is, how can I tell my program to change where the outcome is stored without rewriting it for each variable?[/quote:10jggoxt]\nSorry I have not understood exactly what do you want.\nMaybe the code below can give you some ideas?\n\nSTATIC cApp := \"\"\n\nSTATIC FUNCTION SetRptName()\n/* \nthe body of the function almost the same as the body of your function FileName()\n*/\n...\nRETURN ( NIL )\n\nSTATIC FUNCTION GetRptName()\nRETURN ( cApp )','',0,'gA==','10jggoxt',1,0,'',193,0,0),(4908,1190,1,269,0,'217.37.54.49',1136888859,1,0,1,1,1,0,'','','maybe this will explain my question better?\n\nCODE ;\n\nSTATIC FUNCTION FileName\n   LOCAL cDir := ALLTRIM(CURDIR())\n   LOCAL cApp := \"\"\n\n   cApp := cGetFile( \"*.rpt\",\"Report Files\",1,cDir)\n\n   IF cApp == \"*.rpt\"\n      cApp := \"default\"\n   ELSE\n      IF \"\\\"$cApp\n         cApp := ALLTRIM(subst(cApp , rat(\"\\\",cApp)+1,12))\n         cApp := LEFT(cApp, LEN(cApp) - 4)\n      ENDIF\n   ENDIF                       \n\n   IF !Empty(cApp)\n      mReportID := Alltrim(cApp)+\".rpt\"\n      oReportID:Refresh()\n   ENDIF\n   \n   IF !Empty(cApp)\n      mFileProof := Alltrim(cApp)+\".rpt\"\n      oFileProof:Refresh()\n   ENDIF\n   \n   IF !Empty(cApp)\n      mFinalFile := Alltrim(cApp)+\".rpt\"\n      oFinalFile:Refresh()\n   ENDIF\n\n   IF !Empty(cApp)\n      mReprint := Alltrim(cApp)+\".rpt\"\n      oReprint:Refresh()\n   ENDIF\n   \nRETURN NIL\n\nthe problem is, they all refresh with the same value, and I want each o:refresh to be able to hold a seperate value?\n\nthanks for any help!','',0,'gA==','3k6srlpm',1,0,'',269,0,0),(4909,1169,1,130,0,'141.51.32.24',1136889749,1,0,1,1,1,0,'','','Ugo,\n\nyou may test ninety5 from Tom Groeger, if I remember, it contains a tree control.\n\nYou can download it at [url:2snedsj7]http&#58;//www&#46;tomsoft&#46;de/content/fivewin&#46;aspx[/url:2snedsj7]\nAnd its free now.\n\nStefan','',0,'EA==','2snedsj7',1,0,'',130,0,0),(4910,1190,1,6,0,'87.6.210.232',1136890235,1,0,1,1,1,1,'','','They refresh with the same value because you are assigning to all of them the same value. Try assigning different values and you will get different values.\n\nEMG','',0,'EA==','3gc8z875',1,0,'',6,0,0),(4911,1190,1,269,0,'217.37.54.49',1136890591,1,0,1,1,1,0,'','','So, should I have a different LOCAL cApp for each refresh?','',0,'EA==','2jfkhk3y',1,0,'',269,0,0),(4912,1202,6,362,0,'200.168.52.156',1136891104,1,0,1,1,1,1,'','PARA VIKTHOR - links dbwide ke no funciona.','Buenas Vikthor, necesito del BTNGET32, y Este LINK, no funciona... Puedes Ayudarme??\n\n\nFW) CLASS TBtnGet() - VER 1.4.6 Ricardo Ramirez\n \nEsta excelente Clase de Buttons es sin dudas una de las librerías de terceros más utilizadas por los desarrolladores. \n \n  \nbtnget32.zip 47.3 KB \n\n-&gt;  <!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/local-cgi/counter/filecount2.cgi?sources/btnget32.zip\">http://www.vikthor.com.mx/fivewin/local ... nget32.zip</a><!-- m -->\n\n[Alternativo] \n\n-&gt; <!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/local-cgi/counter/filecount.cgi?sources/btnget32.zip\">http://www.vikthor.com.mx/fivewin/local ... nget32.zip</a><!-- m -->','',0,'','3nmp62bn',1,0,'',362,0,0),(4913,1190,1,6,0,'87.6.210.232',1136891131,1,0,1,1,1,1,'','','Yes. Or anyelse assign different values to the different objects.\n\nEMG','',0,'','2xgq2tcb',1,0,'',6,0,0),(4914,1190,1,269,0,'217.37.54.49',1136891241,1,0,1,1,1,0,'','','Many Thanks Enrico.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','31unmgqp',1,0,'',269,0,0),(4915,1190,1,193,0,'195.212.29.179',1136893747,1,0,1,1,1,0,'','','I think you should rewrite your function such a way that it returns not NIL but cApp. In your main code you will have the following\n\nLOCAL cApp\n.....\n\nIF ( !EMPTY( cApp := FileName() ) )\n    mReportID := Alltrim(cApp)+\".rpt\" \n    oReportID:Refresh()\nENDIF     \n.....\n\nOr you can write general function as for example AssignVal()\n\nFUNCTION AssignVal( &amp;cVarName, oObject )\n\nand call it for various arguments as below\n\nAssignVal( &amp;mReportID, oReportID )\nAssignVal( &amp;mFileProof, oFileProof )\n\nand so on.','',0,'','1ww52jsi',1,0,'',193,0,0),(4916,1203,7,262,0,'83.97.168.83',1136900482,1,0,1,1,1,1,'','peticion de funcion : nRandom()','Esta funcion aparece en el codigo , pero no funciona al no tener implementada totalmente seconds() .\nExiste algun codigo alternativo de momento ?\nGracias','',0,'','2luo9bms',1,0,'',262,0,0),(4917,1203,7,262,0,'83.97.168.83',1136901202,1,0,1,1,1,1,'','','Me respondo yo mismo , de momento hice esto :\n[code:fv6d0mqt]\n\nFunction segundos&#40;&#41;\nlocal ctime&#58;= Time&#40;&#41;\nReturn &#40; &#40;3600* val&#40; SUBSTR&#40;cTIME, 1, 2&#41; &#41; &#41;+ &#40;60* val&#40; SUBSTR&#40;cTIME, 4, 2&#41;&#41;    &#41;  +   val&#40;SUBSTR&#40;cTIME, 7, 2&#41;&#41; &#41;\n\n[/code:fv6d0mqt]\n\nparece que puede servir mientras disponemos de seconds().','',0,'AIA=','fv6d0mqt',1,0,'',262,0,0),(4918,1187,20,1,0,'80.181.108.140',1136902850,1,0,1,1,1,0,'','','Grazie.\nMi sono scaricato l\'help VBA e sto facendo delle prove.\n\nA proposito, tu utilizzi InnoSetup per le tue installazioni ?\nHo un problema relativo al richiamo di una funzione di una DLL durante il setup di installazione di una mia applicazione.\n\n\nIn pratica devo convertire la chiamata:\n\nDLL32 FUNCTION RTFDRIVERINIT(cPrinterName as LPSTR) AS LONG;\nPASCAL FROM \"RtfDriverInit\"  LIB cdfintflib\n\nin codice compatibile InnoSetup che dovrebbe essere:\n\nprocedure MyDllFunc(cPrnName: String);\nexternal <!-- e --><a href=\"mailto:\'rtfdriverinit@cdintf.dll\">\'rtfdriverinit@cdintf.dll</a><!-- e --> stdcall\';\n\ntuttavia mi appare l\'errore \"Cannot Import DLL\" durante il setup.\n\nQualche idea ? Ho anche richiesto lumi nel newsgroup di innosetup.code ma senza avere avuto ancora risposta.\n\n\nMarco','',0,'AIA=','zefhrx95',1,0,'',1,0,0),(4919,1193,2,146,0,'200.82.53.99',1136903786,1,0,1,1,1,0,'','','Fivewin 2.5 es la version con la que estoy compilando, Ricardo ya tiene fivewin 2.7 pero todavia no la he usado.  Ayer probando note que me lo hace a veces, no siempre, pero si yo comento ese renglon no lo hace nunca. Debe ser la combinación de alguna otra instruccion. Voy a seguir probando hasta encontrarlo. Muchas gracias. Leonor','',0,'AIA=','j9bk6c3y',1,0,'',146,0,0),(4920,1204,7,262,0,'83.97.168.83',1136904040,1,0,1,1,1,1,'','sepueden poner bmp en un browse ?','un codigo similar a este se podria poner  ?:\n\n[code:75fttj7g]\n\nlocal ahBmp&#58;=&#123;ReadBitmap&#40; &quot;bmp\\si16&#46;bmp&quot; &#41;, ReadBitmap&#40; &quot;bmp\\no16&#46;bmp&quot; &#41; &#125;\n\n    @ 2,0 LISTBOX oBrw FIELDS Iif&#40;&#40;Alicli&#41;-&gt;vis_cli == &#46;t&#46; ,ahBmp&#91;1&#93;,ahBmp&#91;2&#93; &#41; , str&#40;&#40;alicli&#41;-&gt;cod_cli,5&#41; ,&#40;alicli&#41;-&gt;No2_cli ;\n   COLSIZES 20,180,50 ;\n   HEADERS &quot;vis&quot;,&quot;Código&quot;,&quot;Nombre&quot; ;\n   SIZE 240,175  ;\n   ON DBLCLICK Eligefichacli&#40;&#41;;\n   FONT ofont\n\n\n[/code:75fttj7g]\nSaludso.','',0,'AIA=','75fttj7g',1,0,'',262,0,0),(4921,1200,6,18,0,'200.67.188.236',1136904074,1,0,1,1,1,1,'','Re: Vikthor: El ejemplo funcionó bien (TEXCELS) ..pero','Manejando el portapapeles y Excel he trabajado más de 10mil registros en unos cuantos segundos usando la clase TExcel.\n\nLa solución a tu problema es muy sencillo, te anexo el método que modifique  a la clase TSbrowse en su versión 7 donde puedes hacer la migración de una tabla completa a Excel sin importar el número de registro que tenga.\n[code:1gv5d14v]\n* ============================================================================\n* METHOD TSBrowse&#58;ExcelOle&#40;&#41; Version 7&#46;0 Jul/15/2004\n* Requires TOleAuto class\n* Many thanks to Victor Manuel Tomás &#40; Vikthor &#41; for the core of this method\n* ============================================================================\n\nMETHOD ExcelOle&#40; cXlsFile, lActivate, oMeter, cTitle, ;\n                 oFont, lSave &#41; CLASS TSBrowse\n\n   Local oExcel, oBook, oSheet, nRow, nCol, uData, nEvery, oRange, cRange, cCell, ;\n         bError, cText, oClip, nStart, ;\n         nLine  &#58;= 1, ;\n         nCount &#58;= 0, ;\n         nRecNo &#58;= &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41;, ;\n         nAt    &#58;= &#58;&#58;nAt\n\n   Default lActivate &#58;= Empty&#40; cXlsFile &#41;, ;\n           cTitle    &#58;= &quot;&quot;, ;\n           lSave     &#58;= &#46;F&#46;\n\n   CursorWait&#40;&#41;\n\n   &#58;&#58;lNoPaint &#58;= &#46;F&#46;\n\n   If oMeter != Nil\n      oMeter&#58;nTotal &#58;= &#40; &#58;&#58;nLen + 1 &#41; * Len&#40; &#58;&#58;aColumns &#41; + 30\n      oMeter&#58;Set&#40; 0 &#41;\n      oMeter&#58;Refresh&#40;&#41;\n      nEvery &#58;= Max&#40; 1, Int&#40; oMeter&#58;nTotal * &#46;02 &#41; &#41; // refresh ometer every 2 %\n   EndIf\n\n   cXlsFile &#58;= AllTrim&#40; StrTran&#40; Upper&#40; cXlsFile &#41;, &quot;&#46;XLS&quot; &#41; &#41;\n   cTitle   &#58;= AllTrim&#40; cTitle &#41;\n*   bError   &#58;= ErrorBlock&#40; &#123; | x | Break&#40; x &#41; &#125; &#41;\n\n   TRY\n     oExcel &#58;= GetActiveObject&#40; &quot;Excel&#46;Application&quot; &#41;\n     oWord &#58;= GetActiveObject&#40; &quot;Word&#46;Application&quot; &#41;\n   CATCH\n      TRY\n         oExcel &#58;= CreateObject&#40; &quot;Excel&#46;Application&quot; &#41;\n         oWord &#58;= CreateObject&#40; &quot;Word&#46;Application&quot; &#41;\n      CATCH\n         Alert&#40; &quot;ERROR! Excel no está instaldo en esta PC&#46; &quot; &#41;\n      END\n   END\n\n/*\n   Begin Sequence\n      oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Excel&#46;Application&quot;&#41;\n   Recover\n      ErrorBlock&#40; bError &#41;\n      CursorArrow&#40;&#41;\n      MsgStop&#40; &quot;No Ole&#46;lib searched&quot;, &quot;Error&quot; &#41;\n      Return Nil\n   End Sequence\n   ErrorBlock&#40; bError &#41;\n*/\n\n   If oMeter != Nil\n      nCount -= 15\n      oMeter&#58;Set&#40; nCount &#41;\n   EndIf\n\n   oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oBook  &#58;= oExcel&#58;Get&#40; &quot;ActiveWorkBook&quot;&#41;\n   oSheet &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n\n\n   oDocs       &#58;= oWord&#58;Get&#40; &quot;Documents&quot;&#41;\n   oDocs&#58;Invoke&#40; &quot;Add&quot; &#41;\n   oActiveDoc    &#58;= oWord&#58;Get&#40;&quot;ActiveDocument&quot;&#41;\n\n\n   If oMeter != Nil\n      nCount -= 15\n      oMeter&#58;Set&#40; nCount &#41;\n   EndIf\n\n   &#40; &#58;&#58;cAlias &#41;-&gt;&#40; Eval&#40; &#58;&#58;bGoTop &#41; &#41;\n\n   cText &#58;= &quot;&quot;\n\n   For nRow &#58;= 1 To &#58;&#58;nLen\n\n      If nRow == 1\n         If ! Empty&#40; cTitle &#41;\n            oSheet&#58;Cells&#40; nLine++, 1 &#41;&#58;Value &#58;= AllTrim&#40; cTitle &#41;\n            oSheet&#58;Range&#40; &quot;A1&#58;&quot; + Chr&#40; 64 + Len&#40; &#58;&#58;aColumns &#41; &#41; + ;\n                          &quot;1&quot; &#41;&#58;Set&#40; &quot;HorizontalAlignment&quot;, 7 &#41;\n            ++nLine\n            nStart &#58;= nLine\n         Else\n            nStart &#58;= 1\n         EndIf\n\n         For nCol &#58;= 1 To Len&#40; &#58;&#58;aColumns &#41;\n            uData &#58;= If&#40; ValType&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;cHeading &#41; == &quot;B&quot;, ;\n                         Eval&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;cHeading &#41;, ;\n                         &#58;&#58;aColumns&#91; nCol &#93;&#58;cHeading &#41;\n\n            If ValType&#40; uData &#41; != &quot;C&quot;\n               Loop\n            EndIf\n\n            uData &#58;= StrTran&#40; uData, CRLF, Chr&#40; 10 &#41; &#41;\n\n            cText += uData + Chr&#40; 9 &#41;\n\n            If oMeter != Nil\n\n               If nCount % nEvery == 0\n                  oMeter&#58;Set&#40; nCount &#41;\n               EndIf\n\n               nCount ++\n\n            EndIf\n\n         Next\n\n         cText += Chr&#40; 13 &#41;\n\n      EndIf\n\n      For nCol &#58;= 1 To Len&#40; &#58;&#58;aColumns &#41;\n\n         If &#58;&#58;aColumns&#91; nCol &#93;&#58;lBitMap\n            Loop\n         EndIf\n\n         uData &#58;= Eval&#40; &#58;&#58;aColumns&#91; nCol &#93;&#58;bData &#41;\n\n         If ValType&#40; uData &#41; == &quot;C&quot;\n            uData &#58;= StrTran&#40; uData, CRLF, Chr&#40; 10 &#41; &#41;\n         EndIf\n\n         If &#58;&#58;aColumns&#91; nCol &#93;&#58;cPicture != Nil\n            uData &#58;= Transform&#40; uData, &#58;&#58;aColumns&#91; nCol &#93;&#58;cPicture &#41;\n         EndIf\n\n         uData  &#58;=  IIF&#40; ValType&#40; uData &#41;==&quot;D&quot;, DtoC&#40; uData &#41;, ;\n                    IIF&#40; ValType&#40; uData &#41;==&quot;N&quot;, Str&#40; uData &#41; , ;\n                    IIF&#40; ValType&#40; uData &#41;==&quot;L&quot;, IIF&#40; uData ,&quot;&#46;T&#46;&quot; ,&quot;&#46;F&#46;&quot; &#41;, uData  &#41; &#41; &#41;\n\n         cText+=alltrim&#40; uData &#41; + Chr&#40; 9 &#41;\n\n         If oMeter != Nil\n\n            If nCount % nEvery == 0\n               oMeter&#58;Set&#40; nCount &#41;\n            EndIf\n\n            nCount ++\n\n         EndIf\n\n      Next\n\n      &#58;&#58;Skip&#40; 1 &#41;\n      cText += Chr&#40; 13 &#41;\n\n      ++nLine\n      /*\n         Cada 20k volcamos el texto a la hoja de Excel , usando el portapapeles , algo muy rapido y facil ;-&#41;\n         Every 20k set text into excel sheet , using Clipboard , very easy and faster&#46;\n      */\n\n      IF Len&#40; cText &#41; &gt; 20000\n\n         oClip &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\n         oClip&#58;Clear&#40;&#41;\n         oClip&#58;SetText&#40; cText &#41;\n         cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41;\n         oRange &#58;= oSheet&#58;Range&#40; cCell &#41;\n         oRange&#58;Select&#40;&#41;\n         oSheet&#58;Paste&#40;&#41;\n				 oTexto &#58;= oActiveDoc&#58;Range&#40;&#41;\n         oTables &#58;= oActiveDoc&#58;Get&#40; &quot;Tables&quot;&#41;\n         nRows&#58;=250\n         nCols&#58;=40\n         oTexto&#58;SetRange&#40; 1 , 1 &#41;\n         oTable&#58;= oTables&#58;Invoke&#40;&quot;Add&quot;, oTexto ,  nRows , nCols &#41;\n*				 oTable&#58;Paste&#40;&#41;\n         oClip&#58;End&#40;&#41;\n         cText &#58;= &quot;&quot;\n         nStart &#58;= nLine + 1\n\n      EndIf\n\n   Next\n\n   If &#58;&#58;lIsDbf\n      &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbGoTo&#40; nRecNo &#41; &#41;\n   EndIf\n\n   &#58;&#58;nAt &#58;= nAt\n\n   If Len&#40; cText &#41; &gt; 0\n      oClip &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\n      oClip&#58;Clear&#40;&#41;\n      oClip&#58;SetText&#40; cText &#41;\n      cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41;\n      oRange &#58;= oSheet&#58;Range&#40; cCell &#41;\n      oRange&#58;Select&#40;&#41;\n      oSheet&#58;Paste&#40;&#41;\n      oClip&#58;End&#40;&#41;\n      cText &#58;= &quot;&quot;\n   EndIf\n\n   cRange &#58;= &quot;A3&#58;&quot; + Chr&#40; 64 + Len&#40; &#58;&#58;aColumns &#41; &#41; + ;\n             Alltrim&#40; Str&#40; oSheet&#58;UsedRange&#58;Rows&#58;Count&#40;&#41; &#41; &#41;\n   oRange &#58;= oSheet&#58;Range&#40; cRange &#41;\n\n   If oFont != Nil // let the programmer to decide the font he wants, otherwise use Excel\'s default\n      oRange&#58;Font&#58;Name &#58;= oFont&#58;cFaceName\n      oRange&#58;Font&#58;Size &#58;= oFont&#58;nSize&#40;&#41;\n      oRange&#58;Font&#58;Bold &#58;= oFont&#58;lBold\n   EndIf\n\n   oRange&#58;Borders&#40;&#41;&#58;LineStyle &#58;= 1\n   oRange&#58;Columns&#58;AutoFit&#40;&#41;\n\n   If oMeter != Nil\n      oMeter&#58;Set&#40; oMeter&#58;nTotal &#41;\n   EndIf\n\n   If cXlsFile != Nil &#46;and&#46; lSave\n      oBook&#58;SaveAs&#40; cXlsFile, -4143 &#41;   // -4143 = Normal\n   EndIf\n\n   oSheet&#58;Range&#40; &quot;A1&quot; &#41;&#58;Select&#40;&#41;\n   CursorArrow&#40;&#41;\n\n   If lActivate\n      oExcel&#58;Visible &#58;= &#46;T&#46;\n      oWord&#58;Visible &#58;= &#46;T&#46;\n   EndIf\n\n   OleUninitialize&#40;&#41;\n\nReturn Nil\n[/code:1gv5d14v]','',0,'AIA=','1gv5d14v',1,0,'',18,0,0),(4922,1205,6,12,0,'200.88.146.1',1136904197,1,0,1,1,1,1,'','Off Topic: Lib CT3 de xharbour','Necesito la libreria CT3 para xHarbour Compiler build 0.99.51 (SimpLex)\n\nGracias de Antemano','',0,'AIA=','2oueefpg',1,0,'',12,0,0),(4923,1202,6,18,0,'200.67.188.236',1136904242,1,0,1,1,1,1,'','Re: PARA VIKTHOR - links dbwide ke no funciona.','Karinha :\n\nEl link correcto es :\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/files/sources/btnget32.zip\">http://www.vikthor.com.mx/fivewin/files ... nget32.zip</a><!-- m -->\n\nGracias por el aviso.','',0,'AIA=','2sqcjhjt',1,0,'',18,0,0),(4924,1205,6,18,0,'200.67.188.236',1136904495,1,0,1,1,1,1,'','Re: Off Topic: Lib CT3 de xharbour','Mi estimado Pablo :\n\nLa puedes bajar desde :\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/xHarbour.0.99.51/\">http://vikthor.com.mx/xHarbour.0.99.51/</a><!-- m -->','',0,'AIA=','28g0spun',1,0,'',18,0,0),(4925,1153,1,2,0,'80.32.22.38',1136904497,1,0,1,1,1,1,'','','Ehab,\n\nIf you use Borland own controls, then you have to load the Borland DLL from your application before using the resources:\n\nlocal hDLL := LoadLibrary( \"bwcc.dll\" )\n\n... your code...\n\nFreeLibrary( hDLL )','',0,'AIA=','1wh3ia53',1,0,'',2,0,0),(4926,1205,6,12,0,'200.88.146.1',1136904931,1,0,1,1,1,1,'','','Mil Gracias Victor,','',0,'AIA=','3jyrn97b',1,0,'',12,0,0),(4927,1202,6,362,0,'200.168.52.156',1136905290,1,0,1,1,1,1,'','Re: PARA VIKTHOR - links dbwide ke no funciona.','[quote=&quot;Vikthor&quot;:9ekg2sqb]Karinha :\n\nEl link correcto es :\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/files/sources/btnget32.zip\">http://www.vikthor.com.mx/fivewin/files ... nget32.zip</a><!-- m -->\n\nGracias por el aviso.[/quote:9ekg2sqb]\n\n\nFANTASTICO VIKTHOR. Muchas gracias.\n\nPor favor altere el link en la pagina. \n\nSaludos. usted és Show().  Abraços.','',0,'gA==','9ekg2sqb',1,0,'',362,0,0),(4928,1160,4,3,0,'81.249.40.95',1136907266,1,0,1,1,1,0,'','','[quote=&quot;ramirezosvaldo&quot;:3lighhu2]Hi Guys\n\nI like it, because it is a Celuar Phone and Palm, and I would like to get it, but only if some one has made test with FWPPC and of course with succesfully.\n\nThe idea behind is showing app to the customers ...\nAnyway it is to expensive \n\nOswaldo\n\nI use a hp ipaq 6515  smartphone with camera, gps...etc\n\nIt works OK with fwppc\n\nRichard\n\n__________________\n\nMe gusta porque tiene o es Celular y Palm, aun asi es muy cara.\nLa idea es poder mostrar applicaciones a los posibles clientes...\n\nDe todos modos, Saludos a todos\nOsvaldo Ramirez[/quote:3lighhu2]','',0,'gA==','3lighhu2',1,0,'',3,0,0),(4929,1178,6,75,0,'83.52.14.255',1136908173,1,0,1,1,1,0,'','','La versión para w2.4 de Puerto Sur.\n\nSaludos.','',0,'gA==','2xfx88tk',1,0,'',75,0,0),(4930,1206,6,255,0,'200.67.134.233',1136909109,1,0,1,1,1,1,'','Novedades 10 Enero 2006 !!','TMSAgent v2.2 ya está disponible !!!\n\n Mas información en:  <!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin\">www.esm.com.mx/fivewin</a><!-- w -->','',0,'gA==','1b9sowgq',1,0,'',255,0,0),(4931,1207,3,255,0,'200.67.134.233',1136909173,1,0,1,1,1,1,'','News !!! January 10, 2006','TMSAgent v2.2  is now available  !!!\n\n For more information :  <!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin\">www.esm.com.mx/fivewin</a><!-- w -->','',0,'gA==','3gnyjc7w',1,0,'',255,0,0),(4932,1206,6,362,0,'200.168.52.156',1136910091,1,0,1,1,1,1,'','Re: Novedades 10 Enero 2006 !!','[quote=&quot;VeRCE&quot;:3gmezvwe]TMSAgent v2.2 ya está disponible !!!\n\n Mas información en:  <!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin\">www.esm.com.mx/fivewin</a><!-- w -->[/quote:3gmezvwe]\n\nHola, Juan Carlos Salinas Ojeda\n\nExplica-me, ke haces esto? Para ke servi??\n\nDesde ya, gracias.','',0,'gA==','3gmezvwe',1,0,'',362,0,0),(4933,1200,6,295,0,'200.112.83.60',1136910104,1,0,1,1,1,1,'','','ESTIMADO VIKTHOR :\n\nCreo que tal como tu dices el portapapeles con excel debería funcionar con muchos registros, yo tengo Windows XP y Office 2003 y este es el programa donde tengo el problema:\n\nDO WHILE NUTRIEN-&gt;(!EOF())\n		 cText:=cText+NUTRIEN-&gt;Alimento+CHR(9)+CHR(13)  // +STR(NUTRIEN-&gt;Calorias)+CHR(13)\n		 NUTRIEN-&gt;(DBSKIP())\n	ENDDO\n  oExcel := TExcelScript():New()\n  oExcel:Create( \'Temp.xls\' )\n  oExcel:visualizar(.T.)\n  oClip :=TClipBoard():New()\n  oClip:Clear()\n  oClip:SetText( cText )\n  oExcel:SetPos(\'B5\')\n  nCol:=cLetter2Column( \'B\' )\n  oExcel:Paste()\n//  oClip:End()\n  cRange:=cMakeRange( 5 , nCol, ( 5+oExcel:nRowsCount() ) - 1 , ( nCol+oExcel:nColsCount())-1 )\n  oRange := oExcel:oSheet:Range(cRange)\n  oRange:Font:Name := \'Tahoma\'\n  oRange:Font:Size := 10\n  oRange:Font:Bold := .T.\n  oRange:Font:Color := rgb(0,0,150)\n  oRange:Interior:Color := rgb(192,192,192)\n  oRange:Borders():LineStyle  := 1\n  oRange:Columns:AutoFit()\n\nQuizás me falta algo ?...\nDE ANTEMANO, GRACIAS POR TU AYUDA','',0,'gA==','25zue9c4',1,0,'',295,0,0),(4934,1175,6,75,0,'83.52.14.255',1136910755,1,0,1,1,1,0,'','','Sigo sus instrucciones pero después de compilar correctamente y nada más arrancar el programa antes de que aparezca el diálogo me da el siguiente error:\n\nxHarbour GPF\nCalled from CALLDLL(0)\nBEGIN_SPEECH(0)\nTTEXTTOSPEECH:NEW(188)\nMAIN(32)\n\n¿Me puede decir a que se puede deber?.\n\nGracias.','',0,'gA==','1aigrrmb',1,0,'',75,0,0),(4935,1200,6,18,0,'200.67.188.236',1136911312,1,0,1,1,1,1,'','','Esta pequeña modificación te debe de funcionar.\n\n\n[code:3e0ccqha]\n\noExcel &#58;= TExcelScript&#40;&#41;&#58;New&#40;&#41; \noExcel&#58;Create&#40; \'Temp&#46;xls\' &#41; \noExcel&#58;visualizar&#40;&#46;T&#46;&#41; \n\nnLine &#58;= 0\nDO WHILE NUTRIEN-&gt;&#40;!EOF&#40;&#41;&#41; \ncText&#58;=cText+NUTRIEN-&gt;Alimento+CHR&#40;9&#41;+CHR&#40;13&#41; // +STR&#40;NUTRIEN-&gt;Calorias&#41;+CHR&#40;13&#41; \n/* \n         Cada 20k volcamos el texto a la hoja de Excel , usando el portapapeles , algo muy rapido y facil ;-&#41; \n      */ \n\n      IF Len&#40; cText &#41; &gt; 20000 \n\n          oClip &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41; \n          oClip&#58;Clear&#40;&#41; \n          oClip&#58;SetText&#40; cText &#41; \n          cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41; \n          oRange &#58;= oSheet&#58;Range&#40; cCell &#41; \n          oRange&#58;Select&#40;&#41; \n          oSheet&#58;Paste&#40;&#41; \n          oClip&#58;End&#40;&#41; \n          cText &#58;= &quot;&quot;\n          nStart &#58;= nLine + 1 \n\n      EndIf \n      nLine++\n      nStart&#58;=nLine      \n      NUTRIEN-&gt;&#40;DBSKIP&#40;&#41;&#41; \nENDDO \nIf Len&#40; cText &#41; &gt; 0 \n   oClip &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41; \n   oClip&#58;Clear&#40;&#41; \n   oClip&#58;SetText&#40; cText &#41; \n   cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41; \n   oRange &#58;= oSheet&#58;Range&#40; cCell &#41; \n   oRange&#58;Select&#40;&#41; \n   oSheet&#58;Paste&#40;&#41; \n   oClip&#58;End&#40;&#41; \nENDIF\noExcel&#58;SetPos&#40;\'B5\'&#41; \nnCol&#58;=cLetter2Column&#40; \'B\' &#41; \noExcel&#58;Paste&#40;&#41; \ncRange&#58;=cMakeRange&#40; 5 , nCol, &#40; 5+oExcel&#58;nRowsCount&#40;&#41; &#41; - 1 , &#40; nCol+oExcel&#58;nColsCount&#40;&#41;&#41;-1 &#41; \noRange &#58;= oExcel&#58;oSheet&#58;Range&#40;cRange&#41; \noRange&#58;Font&#58;Name &#58;= \'Tahoma\' \noRange&#58;Font&#58;Size &#58;= 10 \noRange&#58;Font&#58;Bold &#58;= &#46;T&#46; \noRange&#58;Font&#58;Color &#58;= rgb&#40;0,0,150&#41; \noRange&#58;Interior&#58;Color &#58;= rgb&#40;192,192,192&#41; \noRange&#58;Borders&#40;&#41;&#58;LineStyle &#58;= 1 \noRange&#58;Columns&#58;AutoFit&#40;&#41; \n \n[/code:3e0ccqha]','',0,'AIA=','3e0ccqha',1,0,'',18,0,0),(4936,1208,6,290,0,'200.112.85.194',1136913423,1,0,1,1,1,1,'','Vikthor Sobre la Texcel DUDAS ???','Vikthor, Soy usuario de five win clipper y aún no me paso a harbour, he estado atento a las preguntas sobre exportar a excel con la nueva clase.\nmi pregunta es: existe en harbour una forma de manejar la exportacion a excel con la misma  sintaxis (clarisima y practica) de la Texcel de FW Clipper. ???\n\nSaludos y Gracias\n[/list]','',0,'','2x9tumrx',1,0,'',290,0,0),(4937,1208,6,18,0,'200.67.188.236',1136913836,1,0,1,1,1,1,'','Re: Vikthor Sobre la Texcel DUDAS ???','Puedes usar la misma clase TExcel que he mencionado aquí en el foro, yo uso xHarbour y por eso hago uso de algunas extensiones en la clase.\n\nSin embargo eso lo puedes solucionar muy sencillamente al momento de compilar tus fuentes, definiendo __HARBOUR__ y eso hará que las modificaciones propias para xHarbour no se tomen en cuenta y sí compile el programa para usarlo con Harbour.\n\nAntonio, comento que Harbour, no cuenta con la clase TOle, sin embargo los fuentes de esa clase los puedes encontrar en <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin\">http://vikthor.com.mx/fivewin</a><!-- m -->','',0,'','kc2t5x72',1,0,'',18,0,0),(4938,1209,6,12,0,'200.88.146.1',1136914219,1,0,1,1,1,1,'','Para Antonio Linares... _hb_stack','Estoy tratando de Compilar una clase tdosprn modificada por Giancarlo J. Sabattino,  la cual tiene una llamada a las funciones [b:20e8hyjb][color=darkred:20e8hyjb]OutPortByte[/color:20e8hyjb][/b:20e8hyjb] y [b:20e8hyjb][color=darkred:20e8hyjb]InPortByte[/color:20e8hyjb][/b:20e8hyjb] y me da este error\n\n[color=red:20e8hyjb][b:20e8hyjb]Error: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|INOUT[/b:20e8hyjb][/color:20e8hyjb]\n\n[url:20e8hyjb]http&#58;//www&#46;lotenet&#46;com/tdosprint&#46;prg[/url:20e8hyjb]\n\nEspero su ayuda de antemano.\n\nUso \nFWH2.6 \nHarbour Compiler build 0.99.51 (SimpLex)\nBorland C++ 5.5.1[/b][url][/url]','',0,'Ug==','20e8hyjb',1,0,'',12,0,0),(4939,1187,20,6,0,'87.6.210.232',1136915569,1,0,1,1,1,1,'','','Non uso InnoSetup ma noto nel tuo codice che non hai rispettato le maiuscole/minuscole del nome della funzione. Può essere quello? So che Win32 è case sensitive per quanto riguarda i nomi di funzioni nelle DLL.\n\nEMG','',0,'Ug==','1n0bjbvx',1,0,'',6,0,0),(4940,1210,6,376,0,'200.121.7.111',1136915882,1,0,1,1,1,0,'','xharbour compatibe con FWH24','Hola a todos.\n\nDesde que compramos el FWH24 nunca lo utilizamos. Ahora estoy empezando las pruebas para migrar de FW20d. \n\nAl utilizar Harbour no tengo mayores problemas pero al querer utilizar xHarbour se compila bien pero no corre. Pareciera que hay incompatibilidad entre FWH24 y xHarbour.\n\nLa pregunta de rigor ¿alguien tendrá en el \"cajón de recuerdos\" una version de xharbour que sea compatible con FWH24?\n\nGracias previas al que me apoye.\n\nArmando <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Ug==','1ok8iqmu',1,0,'',376,0,0),(4941,1210,6,18,0,'200.67.188.236',1136916300,1,0,1,1,1,1,'','Re: xharbour compatibe con FWH24','Entra a <!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/download/\">http://www.vikthor.com.mx/download/</a><!-- m --> y ahi puedes bajar desde la versión 0.99.2 a 0.99.5 de xHarbour','',0,'Ug==','nywtj11y',1,0,'',18,0,0),(4942,1210,6,376,0,'200.121.7.111',1136917489,1,0,1,1,1,0,'','Re: xharbour compatibe con FWH24','Ok...\nAcabo de bajar el 0.99.2 para probar si corre... si no lo hace probare los siguientes.\n\nMuy agradecido\n\nArmando\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'Ug==','nk4kpsxw',1,0,'',376,0,0),(4943,1209,6,2,0,'80.32.22.38',1136917997,1,0,1,1,1,1,'','','Pablo,\n\nEsa versión de Harbour necesita la versión 2.7 de FWH.','',0,'Ug==','3mad53gz',1,0,'',2,0,0),(4944,1178,6,2,0,'80.32.22.38',1136918110,1,0,1,1,1,1,'','','Verhoven,\n\nPrueba con la versión <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> que es la más reciente.','',0,'Ug==','2a2cxolh',1,0,'',2,0,0),(4945,1200,6,295,0,'200.50.127.186',1136921051,1,0,1,1,1,1,'','','ESTIMADO VIKTHOR : \n\nAL EJECUTAR EL PROGRAMA, ESTE SE ME CAE, NO ME RECONOCE LAS SIGUIENTES OPCIONES\n\noRange := oSheet:Range( cCell )\noRange:Select()\noSheet:Paste()\n\nESTAS SON LAS PRIMERAS DE ERROR DEL ARCHIVO LOG\nApplication\n===========\n   Path and name: C:\\sofnut\\SOFNUTR.Exe (32 bits)\n   Size: 1,474,560 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 10/01/2006, 16:20:00\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: RANGE\n   Args:\n     [   1] = C   A323\n\nStack Calls\n===========\n   Called from:  =&gt; RANGE(0)\n   Called from: exel.prg =&gt; TEST(149)\n\n\nAL PARECER, FALTA ALGO','',0,'','1ny1dl5d',1,0,'',295,0,0),(4946,1200,6,295,0,'200.50.127.186',1136921152,1,0,1,1,1,1,'','','la clase TSbrowse, que me envias, que debo hacer y donde','',0,'','u7kmd1c6',1,0,'',295,0,0),(4947,1191,3,49,0,'87.7.181.52',1136921209,1,0,1,1,1,0,'','','ok I explain You... and I hope You help me\nI have at school a boy..\nHe is blind !!!!!\nI think to use the class of Cesar to talk the pc.\nWhen he open the pc move the mouse on start and select a program\nMy application must speack (txttospeeck)  the word of the menu \nexample : i move the mouse on start and the program must say \"start\" then I move the mouse on the another menu of window and the program must say all the word when the mouse move on \nIt is possible this ?\n\nRegards','',0,'','2kn1ltmd',1,0,'',49,0,0),(4948,1200,6,18,0,'200.67.188.236',1136921381,1,0,1,1,1,1,'','','Sustituye oSheet:Range( cCell )\n\nPor oExcel:oSheet:Range( cCell )\n\ny revisa que lo demás objetos que se crean tengan referencia.','',0,'','3dbxro6f',1,0,'',18,0,0),(4949,1206,6,255,0,'200.67.134.233',1136927902,1,0,1,1,1,1,'','Re: Novedades 10 Enero 2006 !!','[quote=&quot;karinha&quot;:1jtre3z6][quote=&quot;VeRCE&quot;:1jtre3z6]TMSAgent v2.2 ya está disponible !!!\n Mas información en:  <!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin\">www.esm.com.mx/fivewin</a><!-- w -->[/quote:1jtre3z6]\nHola, Juan Carlos Salinas Ojeda\nExplica-me, ke haces esto? Para ke servi??\nDesde ya, gracias.[/quote:1jtre3z6]\n\nTMSAGent es una clase que te permite usar el agente de\nmicrosoft de una manera muy sencilla. Tambien, combinado\ncon un control OCX llamado BalloonDialog, te permite \naceptar respuestas del usuario tal como lo hacen los ayudantes\ndel office (el CLIP por ejemplo)\n\nPuedes descargarlo y probar el TEST.EXE siguiendo las\ninstrucciones.\n\nSaludos','',0,'gA==','1jtre3z6',1,0,'',255,0,0),(4950,1211,3,167,0,'72.161.230.159',1136929208,1,0,1,1,1,1,'','GPF with curdir()','Has anyone else experienced a \"random\" GPF when calling curdir() ?  If yes, is there a workaround for curdir()\n\nxharbor .99.51\nfwh 2.6\nbcc 5.5\nwindows xp\nwindows xp64','',0,'gA==','13s02uvc',1,0,'',167,0,0),(4951,1206,6,362,0,'200.168.52.156',1136929445,1,0,1,1,1,1,'','Re: Novedades 10 Enero 2006 !!','[quote=&quot;VeRCE&quot;:2rjfif2v][quote=&quot;karinha&quot;:2rjfif2v][quote=&quot;VeRCE&quot;:2rjfif2v]TMSAgent v2.2 ya está disponible !!!\n Mas información en:  <!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin\">www.esm.com.mx/fivewin</a><!-- w -->[/quote:2rjfif2v]\nHola, Juan Carlos Salinas Ojeda\nExplica-me, ke haces esto? Para ke servi??\nDesde ya, gracias.[/quote:2rjfif2v]\n\nTMSAGent es una clase que te permite usar el agente de\nmicrosoft de una manera muy sencilla. Tambien, combinado\ncon un control OCX llamado BalloonDialog, te permite \naceptar respuestas del usuario tal como lo hacen los ayudantes\ndel office (el CLIP por ejemplo)\n\nPuedes descargarlo y probar el TEST.EXE siguiendo las\ninstrucciones.\n\nSaludos[/quote:2rjfif2v]\n\nMuchas Gracias,  Juan Carlos.\n\nVoy intentar!\n\nSaludos.','',0,'gA==','2rjfif2v',1,0,'',362,0,0),(4952,1153,1,148,0,'82.201.238.140',1136931309,1,0,1,1,1,0,'','','Is there a special library for every resource editor ?','',0,'gA==','1qa8cpui',1,0,'',148,0,0),(4953,1202,6,147,0,'208.51.141.113',1136931979,1,0,1,0,1,1,'','Link a DbWide','Caul es ahora el link?\ngracias','',0,'gA==','2v38qvua',1,0,'',147,0,0),(4954,1212,1,148,0,'82.201.238.140',1136932193,1,0,1,1,1,0,'','Tbrowse Class','I can not find the footer Data in the TcBrowse class as in clipper 5!!','',0,'gA==','1o3pwvr2',1,0,'',148,0,0),(4955,1202,6,18,0,'200.67.188.236',1136932333,1,0,1,1,1,1,'','Re: Link a DbWide','[quote=&quot;MarioG&quot;:3t134l46]Caul es ahora el link?\ngracias[/quote:3t134l46]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/files/sources/btnget32.zip\">http://www.vikthor.com.mx/fivewin/files ... nget32.zip</a><!-- m -->','',0,'gA==','3t134l46',1,0,'',18,0,0),(4956,1213,2,396,0,'201.248.201.232',1136933330,1,0,1,1,1,0,'','ERROR CON WS  Y USO DE PCLLES','Tengo error con el WS, realice fino mi .dll, pero cuando ejecuto el .exe tengo que tener abierto el WS, sino dice que no encuentra los dialogos echos en la DLL, he probado con algunas sugerencias pero ninguna me ha servido, nose si es que hice algun cambio de configuracion en el WS, agradesco sugerencias o algun archivo de ejemplo, ak envio como lo tengo, gracias de nuevo. disculpen, cree una dll con un nombre de PRUEBA y asi lo llamo en mi sistema, ahora lo renombre por FARMACIA y lo llame asi en mi sistema y dice no existe DLL, pero si vuelvo a ponerlo igual en ambas partes si lo lee, porque sera ? please, help me, gracias por sus aportes e ideas.Dios bendiga al mundo.\n\nque otro programa puedo usar como WS, y como lo llamo bajo FW 2.5, baje el PClles o algo parecido pero nose como llamar las .dll o .rc desde FW.algun manual en español de este editor? GRACIAS..','',0,'gA==','3dfads3b',1,0,'',396,0,0),(4957,1214,2,396,0,'201.248.201.232',1136933849,1,0,1,1,1,0,'','Error blinker','Trabajaba con WIN98 y de pronto me dio este error:\n \nBLINKER:101:ignoring invalid link scrip file command parameter in BLINKER EXECUTABLE COMPRESS\n:1017:Blinker for ca-cliper 5.3 does not support the command DEF BEGIN\n:1103:\'NAME\' is not avalid lin scri command\nError RMAKE/R2001 EXIT 1: \'BLINKER @\\SISINGE\\FARMACIA\\FARMACIA.LNK','',0,'gA==','3o3bp1ff',1,0,'',396,0,0),(4958,1186,5,270,0,'65.27.183.36',1136933897,1,0,1,1,1,0,'','','Hello Antonio,\n\nThe newer prev32.dll fixed the problem.  I was using an older version of the prev32.dll.\n\nThanks\nDan','',0,'gA==','2tg1n6mp',1,0,'',270,0,0),(4959,1130,5,270,0,'65.27.183.36',1136933948,1,0,1,1,1,0,'','','Hello Antonio,\n\nThis implementation was a good idea.  Works just fine.\n\nThanks\nDan','',0,'gA==','1l8f2lod',1,0,'',270,0,0),(4960,906,5,270,0,'65.27.183.36',1136934002,1,0,1,1,1,0,'','','Hello Antonio,\n\nWorks just fine.\n\nThanks\nDan','',0,'gA==','1jwhfz8s',1,0,'',270,0,0),(4961,1215,3,49,0,'82.59.141.43',1136935841,1,0,1,1,1,0,'','Help for harbour compile','when I compiled with xharbour there is not errors  but I compile with harbour  the ilink not founf toleauto\n\niLink32.Exe -Gn -aa -Tpe -s @maga32.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_TOLEAUTO\' referenced from C:\\WORK\\PRG\\MAGA32\\OBJ\\MAW130.OBJ\n\nHow can I correct it ?\n\nsilvio','',0,'gA==','swib5z80',1,0,'',49,0,0),(4962,1216,1,148,0,'82.201.238.140',1136936859,1,0,1,1,1,0,'','Learning Resources Tools Usage','I need good resources of How I use the resources Tools for anu application ? For Example what kinds and usages of Buttons?','',0,'gA==','3p49a8pn',1,0,'',148,0,0),(4963,1217,6,323,0,'201.8.192.253',1136937501,1,0,1,1,1,1,'','fwh\\samples\\toolbar1.prg  imagem escuro','ola\n\nusado o exemplo fwh\\samples\\toolbar1.prg com [b:adcbo7qb]MDI[/b:adcbo7qb] obtenho o seguinte resultado, ver link imagem em:\n<!-- m --><a class=\"postlink\" href=\"http://www.johnsonlobo.150m.com/\">http://www.johnsonlobo.150m.com/</a><!-- m -->\ncomo solucionar?\n\nobrigado.\n\nfwh25 \nxharbour 0.99,3','',0,'QA==','adcbo7qb',1,0,'',323,0,0),(4964,1218,1,379,0,'59.167.112.223',1136946014,1,0,1,1,1,0,'','Change title of another window created with Run','Is it possible to change the title of a window to an application initiated with the run command?\n\nCheers\nGerry','',0,'QA==','1azxtojx',1,0,'',379,0,0),(4965,1218,1,74,0,'190.48.236.110',1136950083,1,0,1,1,1,1,'','','Grumpy:\n\n              Yes, with Manu Exposito\'s twcapture class:\n\noWnd := TWCapture():New( AllTrim( cTitle ) )\noWnd:SetText( \"TWCapture captura ventanas - by Manu Exposito 2001\" )\n\nRegards,','',0,'QA==','32pzz2m8',1,0,'',74,0,0),(4966,1214,2,74,0,'190.48.236.110',1136950411,1,0,1,1,1,1,'','','Jose Luis:\n\n              Suena a que estas usando comandos de una version de blinker (por ejemplo 5.1 o 6.0) y estas usando un blinker.exe mas viejo para linkear, por ejemplo el de la version que viene con clipper 5.3 que es mas limitado, estate atento a la version de blinker que dice en pantalla cuando se ejecuta blinker.exe.\n\nSaludos,','',0,'QA==','1k3olp1t',1,0,'',74,0,0),(4967,1218,1,379,0,'59.167.112.223',1136959507,1,0,1,1,1,0,'','TWCapture','Where can one find this class?\n\nCheers','',0,'QA==','3pc1pu82',1,0,'',379,0,0),(4968,1207,3,288,0,'84.171.174.16',1136965006,1,0,1,1,1,0,'','C5 Menu','u work on it or is it dead ?\n\n\ntx','',0,'QA==','ijrxm0z9',1,0,'',288,0,0),(4969,1201,22,382,0,'194.77.253.245',1136965231,1,0,1,1,1,0,'','','Hello Antonio,\n\nthat\'s what I mean (but it is [u:26oxx3zx]not[/u:26oxx3zx] a problem, because I can use  GetResources() of cource):\n\nmy code:\n\n::hDll1 := LoadDll(\"MainApp.DLL\")\n::hDll2 := LoadDll(\"User1.Dll\")\n::hDll3 := LoadDll(\"ABC\".Dll\")\n\n....\n\nSET RESOURCES TO ::hDll1\nDEFINE ICON ::oIcon1 RESOURCE \"ICON_1\"\nSET RESOURCES TO ::hDll2\nDEFINE ICON ::oIcon2 RESOURCE \"ICON_USER_1\"\nSET RESOURCES TO ::hDll3\nDEFINE ICON ::oIcon3 RESOURCE \"ICON_WAIT\"\n\nThis is oky. It would be easier:\n\nDEFINE ICON ::oIcon1 RESOURCE \"ICON_1\" DLL ::hDLL1\nDEFINE ICON ::oIcon2 RESOURCE \"ICON_USER_1\" DLL ::hDLL2\nDEFINE ICON ::oIcon3 RESOURCE \"ICON_WAIT\" DLL ::hDLL3\n\nBut there is no DLL-command like in\n\nDEFINE DIALOG ... RESOURCE .... DLL ...\n\nregards,\nFrank-Peter','',0,'AQ==','26oxx3zx',1,0,'',382,0,0),(4970,1210,6,262,0,'212.89.4.56',1136966551,1,0,1,1,1,1,'','','En la pagina de patrick fan ([url:ryecos5i]http&#58;//www&#46;geocities&#46;com/ksfanhk/freeware&#46;htm[/url:ryecos5i]) , tienes una compilacion  del ultimo xharbour especialmente hecha para fwh24 .\nSaludos.','',0,'EA==','ryecos5i',1,1136983900,'',262,1,0),(4971,1201,22,2,0,'80.32.22.38',1136966805,1,0,1,1,1,1,'','','Frank,\n\nOk, I see what you mean: To relate a specific resource object with a storadge resources handle. \n\nWe are going to analize it, to check how many changes in all FW code may require.','',0,'EA==','2iwwkmso',1,0,'',2,0,0),(4972,1217,6,2,0,'80.32.22.38',1136967169,1,0,1,1,1,1,'','','Johnson,\n\nThose MDI and toolbar issues were fixed on more recent FWH builds. Here you have how samples\\ToolBar3.prg looks (please notice we are not using the standard XP theme here). You may consider to upgrade your FWH to the current one, as many issues regarding themes were enhanced.\n\n[url=http&#58;//imageshack&#46;us:bwpu7cwb][img:bwpu7cwb]http&#58;//img381&#46;imageshack&#46;us/img381/7453/image27qq&#46;jpg[/img:bwpu7cwb][/url:bwpu7cwb]','',0,'GA==','bwpu7cwb',1,0,'',2,0,0),(4973,1212,1,2,0,'80.32.22.38',1136967520,1,0,1,1,1,1,'','','Ehab,\n\nYou have to use Class TXBrowse to get footers. Please review samples\\Testxbrw.prg. Here you see how it looks:\n\n[url=http&#58;//imageshack&#46;us:3fqxkgrv][img:3fqxkgrv]http&#58;//img217&#46;imageshack&#46;us/img217/8315/image13oc&#46;jpg[/img:3fqxkgrv][/url:3fqxkgrv]','',0,'GA==','3fqxkgrv',1,0,'',2,0,0),(4974,1213,2,2,0,'80.32.22.38',1136967743,1,0,1,1,1,1,'','','Ese error se debe a que has usado controles propios de Borland en tus recursos. O los localizas y los cambias por estandards de Windows, ó cargas la DLL de Borland al principio de tu aplicación:\n\nlocal hDLL := LoadLibrary( \"bwcc.dll\" )\n\n... tú código...\n\nFreeLibrary( hDLL )','',0,'GA==','2g2b7ijc',1,0,'',2,0,0),(4975,1210,6,400,0,'200.205.49.13',1136979430,1,0,1,1,1,1,'','','Bom Dia Amigo, eu uso a versao 80.0 (Simplex), eu acho ela mais estavel para o FWh 24, eu tentei usar o xH 99.3, mas, deu muitos problemas.\n\nSe vc nao encontrar o xh 80.0, me passe seu email q eu envio p/voce.\n\n@braços Ale','',0,'GA==','225ph4me',1,0,'',400,0,0),(4976,1219,4,364,0,'217.21.248.243',1136987027,1,0,1,1,1,0,'','TSocket class','I want to use the TSocket class to synchronize my files between my ppc and my computer.\n\nbut when i call the TSocket:new() method i get the error: variable does not exist..\n\nis this a compiling/linking problem? If so, how can I link the tSocket class to my sample file? which dll/lib do i need?\n\nthanx,\nSjors','',0,'GA==','1ncfw3un',1,0,'',364,0,0),(4977,1220,3,247,0,'87.202.16.199',1136987419,1,0,1,1,1,0,'','bKeydown Dialog','See the bellow example.\nType a number inside the textbox and press f2.The odlg:bkeydown is fired by I don\'t get the value of nFld item.I have to press f2 twice to see the value .Is there a solution for that?\n\n\n\n[b:du35nr75]Example:[/b:du35nr75]\n\n#include \"fivewin.ch\"\n\n\nfunction main()\nlocal oDlg,nFld:=0\n\ndefine dialog oDlg ;\nfrom 10,10 to 100,200 pixel\n\n@ 0,0 get nFld size 50,14 pixel of oDlg\n\noDlg:bkeydown:={|nKey,nFlag|if (nKey==113,msginfo(nFld),nil)}\n\nactivate dialog oDlg\n\nreturn \"\"','',0,'QA==','du35nr75',1,0,'',247,0,0),(4978,1220,3,247,0,'87.202.16.199',1136987985,1,0,1,1,1,0,'','Re: bKeydown Dialog','[quote=&quot;ask&quot;:2j1d059u]See the bellow example.\nType a number inside the textbox and press f2.The odlg:bkeydown is fired by I don\'t get the value of nFld item.I have to press f2 twice to see the value .Is there a solution for that?\n\n\n\n[b:2j1d059u]Example:[/b:2j1d059u]\n\n#include \"fivewin.ch\"\n\n\nfunction main()\nlocal oDlg,nFld:=0\n\ndefine dialog oDlg ;\nfrom 10,10 to 100,200 pixel\n\n@ 0,0 get nFld size 50,14 pixel of oDlg\n\noDlg:bkeydown:={|nKey,nFlag|if (nKey==113,msginfo(nFld),nil)}\n\nactivate dialog oDlg\n\nreturn \"\"[/quote:2j1d059u]\n\n\nAs i can see you can change the above to:\n\n#include \"fivewin.ch\"\n\n\nfunction main()\nlocal oDlg,nFld:=0,oFld\n\ndefine dialog oDlg ;\nfrom 10,10 to 100,200 pixel\n\n@ 0,0 get oFld var nFld size 50,14 pixel of oDlg\n\noDlg:bkeydown:={|nKey,nFlag|if (nKey==113,(oFld:oGet:Assign(),msginfo(nFld)),nil)}\n\nactivate dialog oDlg\n\nreturn \"\"\n\n\nBut i don\'t thing that it\'s the best solution','',0,'wA==','2j1d059u',1,0,'',247,0,0),(4979,1218,1,74,0,'190.48.236.110',1136988865,1,0,1,1,1,1,'','','Grumpy:\n\n              In the new location of prometheus website (ex dbwide.com.ar), in vikthor domain:\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->\n\n              In the section EXTRAS, FUENTES.\n\nRegards,','',0,'wA==','6jrf9id8',1,0,'',74,0,0),(4980,1192,6,336,0,'80.58.10.235',1136990440,1,0,0,1,1,0,'','','Tambien ando en busca de una solución, pero en lugar de la funcion quisiera definir un brush, para independizarme del pintado.\nCom se puede generar un bitmap en memoria, por ejemplo con el rectangulo generado por la funcion anterior?\nCon ese bitmap seria posible definir el brush\nActualmenet tengo definido bitmaps de 1 pixel de ancho en los recursos y los uso com brushes, pero creo que el bitmap deberia ser hecho a mano, a la medida del diálogo al que se le aplique.\nSaludos','',0,'wA==','1uf7ogma',1,0,'',336,0,0),(4981,1219,4,364,0,'217.21.248.243',1136990738,1,0,1,1,1,0,'','TSocket class','This should be; TSocket():new(). but then I get the following error when linking: unresolved external symbol WSAstartup(). \n\nI use the buildce.bat from the sample dir to compile my little test application.\n\nthanx','',0,'wA==','17oxywos',1,0,'',364,0,0),(4982,1207,3,255,0,'200.67.134.233',1136992304,1,0,1,1,1,1,'','','What do you mean ??\n\nis the link broken ???\n\nThe class is already available.','',0,'wA==','1xik98z3',1,0,'',255,0,0),(4983,1219,4,2,0,'80.32.22.38',1136992317,1,0,1,1,1,1,'','','Sjors,\n\nPlease check that you have these libs in your buildce.bat:\n\necho %vcdir%\\lib\\arm\\coredll.lib   &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\corelibc.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\aygshell.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\commctrl.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\ws2.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\mfcce400.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\ole32.lib  &gt;&gt; msvc.tmp','',0,'wA==','2c71eoow',1,0,'',2,0,0),(4984,1215,3,2,0,'80.32.22.38',1136992492,1,0,1,1,1,1,'','','Silvio,\n\nYou have to link this library that it is not official part of Harbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/28805056/hbole.zip.html\">http://hyperupload.com/download/28805056/hbole.zip.html</a><!-- m -->','',0,'wA==','1oronl3l',1,0,'',2,0,0),(4985,1211,3,2,0,'80.32.22.38',1136992621,1,0,1,1,1,1,'','','Don,\n\nYou may use FWH GetCurDir() instead of CurDir().','',0,'wA==','p9ww9shu',1,0,'',2,0,0),(4986,1220,3,2,0,'80.32.22.38',1136992761,1,0,1,1,1,1,'','','Ask,\n\nThe GET does not update its value until it looses focus or you assign it, as you are doing in your code.','',0,'wA==','3mmc3kxb',1,0,'',2,0,0),(4987,1220,3,247,0,'87.202.16.199',1136992896,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1i17fahv]Ask,\n\nThe GET does not update its value until it looses focus or you assign it, as you are doing in your code.[/quote:1i17fahv]\n\nOK. Thanks Antonio','',0,'gA==','1i17fahv',1,0,'',247,0,0),(4988,1207,3,247,0,'87.202.16.199',1136993106,1,0,1,1,1,0,'','','[quote=&quot;VeRCE&quot;:1i4d6ima]What do you mean ??\n\nis the link broken ???\n\nThe class is already available.[/quote:1i4d6ima]\n\nThe link is wrong .I replaced tmsagent21.zip with tmsagent22.zip  and worked.Try to download it and you get tmsagent21.zip instead of tmsagent22.zip','',0,'gA==','1i4d6ima',1,0,'',247,0,0),(4989,1211,3,167,0,'72.161.230.159',1136993553,1,0,1,1,1,1,'','','Thank you.  I will try.\n\nFYI - the offending line of code that brought this to my attention was a call to FWH function lIsDir( pathspec )\n\nhere is your code from filename.prg\n\nfunction lIsDir( cNewDir )   // Checks an existing directory\n\n   local cDir   := CurDrive() + \":\\\" + CurDir()\n\nI linked in my own lIsDir() function changing CurDir() to GetCurDir()\n\nI will keep you posted regarding the GPF.','',0,'gA==','1al96wwp',1,0,'',167,0,0),(4990,1211,3,205,0,'81.205.236.20',1136994079,1,0,1,1,1,0,'','','I had this error for a long time using FW 2.6 + xHarbour 0.99.51 june.\nNow I\'m using FW 2.7 + latest xHarbour (also 0.99.51) and never had the error again.\n\nBest regards,\nKlaas den Dekker','',0,'gA==','5mgsj143',1,0,'',205,0,0),(4991,1221,3,269,0,'217.37.54.49',1136994611,1,0,1,1,1,0,'','ERROR BASE\\1003?','I have written a save command in my program which will write variable values to a database. i get a base\\1003 error variable not found REP_PROOF when i run the function, although the REP_PROOF is a database field. here is where the error occurs in the code\n\n       REPLACE REPDETS-&gt;REP_PROOF  WITH mFileProof &lt;-- error on this line\n       REPLACE REPDETS-&gt;REP_FINAL  WITH mFinalFile\n       REPLACE REPDETS-&gt;REP_REPRIN WITH mReprint\n       REPLACE REPDETS-&gt;REP_FOR    WITH mInvCon\n       REPLACE REPDETS-&gt;REP_GROUP  WITH mInvGroup\n\nthe varible mFileProof is not declared in the function this code is contained in, but is declared in main(). all other replaces above this work fine, what could i be doing wrong? \n\nThanks for any help!','',0,'gA==','1q9fxbwp',1,0,'',269,0,0),(4992,1222,4,6,0,'82.61.68.18',1136994783,1,0,1,1,1,1,'','Controls alignment bug','The following sample shows that SAYs and GETs don\'t get aligned throughout the display:\n\n[code:it70dauw]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cVar1 &#58;= SPACE&#40; 20 &#41;\n    LOCAL cVar2 &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 SAY &quot;Name 1&#58;&quot;;\n           SIZE 70, 20\n\n    @ 1, 10 GET cVar1;\n            SIZE 70, 20\n\n    @ 5, 1 SAY &quot;Name 2&#58;&quot;;\n           SIZE 70, 20\n\n    @ 5, 10 GET cVar2;\n            SIZE 70, 20\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:it70dauw]\n\nEMG','',0,'AIA=','it70dauw',1,0,'',6,0,0),(4993,1219,4,364,0,'217.21.248.243',1136994848,1,0,1,1,1,0,'','TSocket class','Thanx antonio,\n\nNow i get these 2 errors..\n\n   Creating library vp.lib and object vp.exp FiveCEC.lib(WINSOCK.obj) : error LNK2019: unresolved external symbol \"int __cdecl WSAAsyncSelect(unsigned int,struct HWND__ *,unsigned int,long)\" (?WSAAsyncSelect@@YAHIPAUHWND__@@IJ@Z) referenced in function \"void __cdecl HB_FUN_WSAASYNCSELECT(void)\" (?HB_FUN_WSAASYNCSELECT@@YAXXZ)\n\nFiveCEC.lib(WINSOCK.obj) : error LNK2019: unresolved external symbol \"struct servent * __cdecl getservbyname(char const *,char const *)\" (?getservbyname@@YAPAUservent@@PBD0@Z) referenced in function \"void __cdecl HB_FUN_GETSERVBYNAME(void)\" (?HB_FUN_GETSERVBYNAME@@YAXXZ)','',0,'AIA=','2hx7muj2',1,0,'',364,0,0),(4994,1223,4,6,0,'82.61.68.18',1136995055,1,0,1,1,1,1,'','Menu from code','Is it implemented? The following sample doesn\'t compile:\n\n[code:2cv5gwit]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oMen\n\n    MENU oMen\n        MENUITEM &quot;Test&quot; ACTION MSGINFO&#40; &quot;Test&quot; &#41;\n    ENDMENU\n\n    DEFINE WINDOW oWnd;\n           MENU oMen\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2cv5gwit]\n\nEMG','',0,'AIA=','2cv5gwit',1,0,'',6,0,0),(4995,1210,6,376,0,'201.240.102.98',1136997939,1,0,1,1,1,0,'','','Ok...\n\nEntre a la pagina de Patrick Fan... apenas pude bajarme el xHarbour pero parece que el Web site a superado el margen de transferencias y me ha rechazado inmediatamente.\n\nAlcance a leer tambien que debo reconstruir las librerias de FWH24 y no se como hacerlo..\n\nGracias por el dato\n\nSaludos\n\nArmando','',0,'AIA=','1zbkcdhx',1,0,'',376,0,0),(4996,1210,6,376,0,'201.240.102.98',1136998167,1,0,1,1,1,0,'','','Buen dia amigo Ale\n\nMi correo es <!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e --> si tiene a bien enviarme una copia de tu version de xHarbour compatible con FWH24.\n\nAdelanto las gracias por tu apoyo.\n\nArmando','',0,'AIA=','18dji38u',1,0,'',376,0,0),(4997,1200,6,295,0,'200.112.81.174',1136998810,1,0,1,1,1,1,'','','Vikthor, por las dudas, es posible usar la sintaxis de la texcels que uso con FW Clipper en FW xHarbour y si es asi la clase necesita ser modificada? ya que esta sintaxis es muy práctica y clara para emitir informes en excel desde el prg.\n\nDEFINE XLS FONT   nFonTot  NAME \"Arial\" HEIGHT 10 BOLD //letras detalle\nDEFINE XLS FORMAT nFormat PICTURE \"#,##0\"\n..ETC\nXLS oFileXLS FILE \"VENTAS.XLS\" AUTOEXEC\n\nXLS COL 2  WIDTH 30 OF oFileXLS\n@1,1  XLS SAY \"VENTAS ENERO 2006\" FONT nFonTot OF oFileXLS\nDO WHILE ARCHIVO-&gt;(!EOF())\n     @FILA,1 XLS SAY ARCHIVO-&gt;FACTURA FONT nFonDet OF oFileXLS\n     @ ......ETC\n     ARCHIVO-&gt;(DBSKIP())\nENDDO\nXLS PAGE BREAK AT 39 OF oFileXLS\nENDXLS oFileXLS\nSHELLEXECUTE(,\"OPEN\",\"LISPER.XLS\",,,)\n\nGRAcias y saludos','',0,'AIA=','160nxg8h',1,0,'',295,0,0),(4998,1200,6,18,0,'200.67.188.236',1136999632,1,0,1,1,1,1,'','','Creo que estas un poco confundido, el código que muestras en tu post corresponde a la clase [b:2r6oavqg]TFileXls de Ramón Avendaño[/b:2r6oavqg]\n\nY el código que te mostré yo corresponde a la clase TExcelScript.\n\nEl código de TFileXls es totalmente compatible con xHarbour.','',0,'QA==','2r6oavqg',1,0,'',18,0,0),(4999,1200,6,295,0,'200.112.81.174',1137001047,1,0,1,1,1,1,'','','GRACIAS VIKTHOR!! por tu aclaración y de donde puedo bajar la clase de Ramon Avendaño?\ny también la classe tfolder y los botones con bitmaps de rossine?\n\nSALUDOS Y GRACIAS','',0,'QA==','2lqogagf',1,0,'',295,0,0),(5000,1215,3,49,0,'82.57.119.43',1137003520,1,0,1,1,1,0,'','','thanks antonio, I have also the ozlib 3.0 but the ole source give me error','',0,'QA==','gw89yudc',1,0,'',49,0,0),(5001,1215,3,49,0,'82.57.119.43',1137003550,1,0,1,1,1,0,'','','antonio, \nFile: hbole.zip\nFile size: 13.98Kb\nDescription: not available \n\nwhy ?','',0,'QA==','24dfai9j',1,0,'',49,0,0),(5002,1215,3,49,0,'82.57.119.43',1137004480,1,0,1,1,1,0,'','','ok i download the file ...\nthanks antonio','',0,'QA==','2mn8xbv4',1,0,'',49,0,0),(5003,1224,6,28,0,'87.218.47.85',1137004548,1,0,1,1,1,0,'','QFTP','Hola, \n\n¿Alguien ha manejado la clase TQFtp?\n\nIntento hacer un PWD y me da mucha información. Quisiera obtener solo la información de los ficheros o directorios que contiene y no tener que paserarlo.\n\nGracias','',0,'QA==','1mussgnx',1,0,'',28,0,0),(5004,1224,6,18,0,'200.67.188.236',1137005339,1,0,1,1,1,1,'','Re: QFTP','Paco :\n\nEsto te debe de ayudar.\n\n\n[quote:2m6kn473]COMMANDS YOU WILL NEED\nlcd dname = local directory change (changes directory at the local site\n		to dname)\n\nlcd .. = change to the previous local site directory\n\ncd .. = change to the previous foreign sire directory (ie go back one directory)\n\nlcd = takes you to the home directory at the local site \n\nlcd dname = local directory change (changes directories at the\n		foreign site to dname) \n\ncd dname = foreign directory change (changes directories at the foreign\n		site to dname) \n\nThe following 3 commands: ls, ls -F, and dir have the following\nproperties:\nIf your prompt is \'ftp&gt;\' then you get the list of files at the\nforeign site\'. If your prompt is \'LOCAL&gt;\' then you get the list of\nfiles at the local site.\n\nls = listing of contents in the current directory \n\nls -F = listing of contents in the current directory indicating which\n		are directories with a /\n\ndir = a listing of contents that also SHOWS THE SIZE of each entry.\n		Directories are denoted by a d on the far left.\n		Useful command if your local site has limited space.\n\nget = command used to transfer files from the foreign site to the\n		local site\n\nmget *  = command used to transfer multiple files of the form \"fname\"\n		from the current foreign directory to the current local directory\n\nmget *.* = command used to transfer multiple files of the form\n		\"fname.something\" from the current foreign directory to\n		the current local directory. This will NOT copy\n		directory structures, ONLY THE FILES. You must first\n		create the directories in your account (the local\n		site) BEFORE you ftp.\n\nprompt = during mget commands your machine may or may not ask you\n		whether you want each file. This command toggles this\n		feature on and off for your convenience. I\'ll explain\n		more when we get to mget in our example. \n\nget fname |more = allows you to read the file before deciding to get\n		it. You can page down by hitting the space bar. You\n		cannot page up! \n\nmkdir dname = make a directory at the local site called dname. You\n		must use this command only at a LOCAL&gt; prompt since you are not \n		authorized to alter the archive site.\n\npwd = ask the computer to tell you what directory you are in at the\n		foreign site when prompt is \"ftp&gt;\" and at the local site when the\n		prompt is \"LOCAL&gt;\"\n\nquit = used at the ftp&gt; prompt to end the session and return you to\n		your local site\n\n[ctrl] xc = allows you to stop the reading process of a \"get fname\n		|more\" or to stop a \"mget *\" or \"mget *.*\" command. The\n		[ctrl] key must be held down while x and c are\n		typed!!! You do NOT need a prompt to use this command!![/quote:2m6kn473]','',0,'gA==','2m6kn473',1,0,'',18,0,0),(5005,1210,6,362,0,'200.168.52.156',1137005544,1,0,1,1,1,1,'','','[quote=&quot;Armando Picon&quot;:rhg4ayzj]Ok...\n\nEntre a la pagina de Patrick Fan... apenas pude bajarme el xHarbour pero parece que el Web site a superado el margen de transferencias y me ha rechazado inmediatamente.\n\nAlcance a leer tambien que debo reconstruir las librerias de FWH24 y no se como hacerlo..\n\nGracias por el dato\n\nSaludos\n\nArmando[/quote:rhg4ayzj]\n\nPARA RECONSTRUIR TUS LIBS, USE ESTE PROGRAMA:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=582\">http://www.fivewin.com.br/exibedicas.asp?id=582</a><!-- m -->','',0,'gA==','rhg4ayzj',1,0,'',362,0,0),(5007,1223,4,2,0,'80.32.22.38',1137006831,1,0,1,1,1,1,'','','Enrico,\n\nNo, it is not implemented yet as we have not found yet the needed API functions. More over, they may not exist.','',0,'gA==','12xjgm1g',1,1137007465,'',2,1,0),(5008,1223,4,6,0,'82.61.68.18',1137006894,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'gA==','by9oytf6',1,0,'',6,0,0),(5009,1219,4,2,0,'80.32.22.38',1137007564,1,0,1,1,1,1,'','','Sjors,\n\nAre you using the most recent FWPPC (FiveWin for Pocket PC) build ?\n\nPlease download it again using your login and password, and do a buildce.bat sockcli\n\nIt should build ok without any errors. Please try it and let us know your results.','',0,'gA==','12xazdqt',1,0,'',2,0,0),(5010,1222,4,2,0,'80.32.22.38',1137008032,1,0,1,1,1,1,'','','Enrico,\n\nYes, thats normal in FW, as we calculate each row based on the control height. With this little modification it shows ok:\n\n[code:29r08s22]    @ 5&#46;7, 10 GET cVar2; \n            SIZE 70, 20 \n[/code:29r08s22]','',0,'AIA=','29r08s22',1,0,'',2,0,0),(5011,1225,2,401,0,'201.215.15.4',1137010169,1,0,1,1,1,0,'','Quien tiene un ejemplo de Helpid','amigos, me encontre esta opcion de el Dialog de windows, alguien tiene un ejemplo de como usuarlo,\n &lt;nHeipld&gt; Identificador del Tópico de Ayuda del DialogBox,','',0,'AIA=','2cklh0n5',1,0,'',401,0,0),(5012,1212,1,148,0,'82.201.238.232',1137011728,1,0,1,1,1,0,'','','I can not find TXbrowse Example of even the class it seld not found in  NG !! I am using fivewin ver1.9 for clipper !','',0,'AIA=','3u53vad8',1,0,'',148,0,0),(5013,1222,4,6,0,'82.61.68.18',1137011755,1,0,1,1,1,1,'','','Unfortunately it is not linear:\n\n[code:1jdme3ny]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cVar1 &#58;= SPACE&#40; 20 &#41;\n    LOCAL cVar2 &#58;= SPACE&#40; 20 &#41;\n    LOCAL cVar3 &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 SAY &quot;Name 1&#58;&quot;;\n           SIZE 70, 20\n\n    @ 1, 10 GET cVar1;\n            SIZE 70, 20\n\n    @ 5, 1 SAY &quot;Name 2&#58;&quot;;\n           SIZE 70, 20\n\n    @ 5&#46;7, 10 GET cVar2;\n              SIZE 70, 20\n\n    @ 10, 1 SAY &quot;Name 3&#58;&quot;;\n            SIZE 70, 20\n\n    @ 10&#46;7, 10 GET cVar3;\n               SIZE 70, 20\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1jdme3ny]\n\nAny workaround other than using a calculation?\n\nEMG','',0,'AIA=','1jdme3ny',1,0,'',6,0,0),(5014,1074,2,9,0,'85.59.98.10',1137012102,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:3sdeikhy]NTXSPA.OBJ, funciona con todos los RDDs[/quote:3sdeikhy]\n\nPerdona René, pero yo lo he enlazado en mi programa (cdx) y no me funciona. Clipper 5.3b\n\nUn saludo','',0,'gA==','3sdeikhy',1,0,'',9,0,0),(5015,1222,4,2,0,'80.32.22.38',1137013240,1,0,1,1,1,1,'','','Enrico,\n\nThe only solution is to modify include\\constant.ch and recompile all PRG classes.','',0,'gA==','me25zz3m',1,0,'',2,0,0),(5016,1212,1,2,0,'80.32.22.38',1137013374,1,0,1,1,1,1,'','','Ehab,\n\nMy apologizes, Class TXBrowse is just for Harbour/xHarbour and FWH 32 bits.\n\nYou may use Hernan\'s or Manuel Mercado\'s browses, that as far as I know, they provide support for footers.','',0,'gA==','3l2ga6mi',1,0,'',2,0,0),(5017,1210,6,40,0,'200.77.122.165',1137015474,1,0,1,1,1,0,'','','Armando,  Yo que estuve batallando con esto, los que quieran recompilar su FW con una versión mas actual de [x]Harbour Jorge Mazon hizó una estupenda utileria \"Harb2Lib\" que hace esto precisamente. \nLa pueden encontrar en su página. \n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl/download.htm\">http://www.htcsoft.cl/download.htm</a><!-- m --> \n\nSaludos \nJoel Andujo','',0,'','277tj3m1',1,0,'',40,0,0),(5018,1222,4,6,0,'82.61.68.18',1137020136,1,0,1,1,1,1,'','','Is it something that you can change in the standard FWPPC build?\n\nEMG','',0,'','3jws8kjx',1,0,'',6,0,0),(5019,1222,4,2,0,'80.32.22.38',1137022910,1,0,1,1,1,1,'','','Enrico,\n\nWe may modify it here, but we have to decide, all together, what values to use. Should the SAYs be the reference ? the GETs ?','',0,'','10a9lymk',1,0,'',2,0,0),(5020,1226,3,49,0,'87.3.181.101',1137026247,1,0,1,1,1,0,'','wbrowse ----&gt; xbrowse','With Wbrowse( ceccarelli)  I used a function to use user functions\n\n [code:t3uhqcbu]\n\n   oBlistbox&#58;bKeyDown&#58;=&#123;|nKey| Val_nKey&#40;nKey&#41;&#125;\n\n \n[/code:t3uhqcbu]\n \nand then this function\n…. [code:t3uhqcbu]\n\nSTAT FUNC Val_nKey&#40;nKey&#41;\n\n   DO CASE\n\n      CASE nKey==VK_INSERT &#46;AND&#46; lABC\n\n         KeyToggle&#40;VK_INSERT&#41;\n\n         Captura&#40;&#46;T&#46;&#41;\n\n      CASE nKey==VK_DELETE &#46;AND&#46; lABC\n\n         Sup_Movs&#40;&#41;\n\n      CASE nKey==VK_RETURN &#46;AND&#46; lABC\n\n         Captura&#40;&#46;F&#46;&#41;\n\n      CASE nKey==VK_F9\n\n         Sel_Pict&#40;&#41;\n\n      CASE nKey==Asc&#40;\'I\'&#41; &#46;AND&#46; GetKeyState&#40;VK_CONTROL&#41;\n\n         Imprimir&#40;&#46;F&#46;&#41;\n\n      CASE nKey==Asc&#40;\'P\'&#41; &#46;AND&#46; GetKeyState&#40;VK_CONTROL&#41;\n\n         Imprimir&#40;&#46;T&#46;&#41;\n\n   ENDCASE\n\nRETURN &#40;NIL&#41;\n\n [/code:t3uhqcbu]\n\n \n \n\non Xbrowse  How I can make it ?\n\n \n\nregards','',0,'AIA=','t3uhqcbu',1,0,'',49,0,0),(5021,1227,6,295,0,'201.222.154.78',1137027474,1,0,1,1,1,1,'','DONDE ENCUENTRO LA TFileXls de Ramón Avendaño?','Saludos a todos \nAlguien me puede indicar de donde descargar la clase TFileXls de Ramón Avendaño? para usarla con xHarbour\n\nDE ANTEMANO GRACIAS\nSALUDOS','',0,'AIA=','2zd8sd9e',1,0,'',295,0,0),(5022,1160,4,298,0,'201.249.127.109',1137029309,1,0,1,1,1,0,'','','hI, I know the TREO 650 that is very powerfull, but is PALM OS. Some one told me that Windows ME is good but a little slow, Any way if want to try, I sugest: first go amazon.com or similar web pages to read some customer reviews.','',0,'AIA=','1mur7x8r',1,0,'',298,0,0),(5023,1228,3,402,0,'211.47.212.225',1137038554,1,0,1,1,1,0,'','OLE DLL','OLE LINK EXE (ok)\nOLE LINK DLL (stop, pause)\n\n//-----------------------------------------------------------------------\nFUNCTION test()\nLOCAL oIE\noIE:=TOleAuto():NEW( \"InternetExplorer.Application\" )\noIE:Visible := .T.\n\noIE:Navigate( \"http://www.yahoo.com\" )\n   \nRETURN\n//-----------------------------------------------------------------------\ntest.dll\n&#8595;\nset hdir=c:\\xharbour\nset bcdir=c:\\bc55\\bin\n\n%bcdir%\\bcc32 -c -D__EXPORT__ -I%hdir%\\include -L%bcdir%\\..\\lib maindll.c\n\n%bcdir%\\bcc32 -c -D__EXPORT__ -I%hdir%\\include -L%bcdir%\\..\\lib macrcall.c\n%hdir%\\bin\\harbour -n -w /i%hdir%\\include errorsys\n%bcdir%\\bcc32 -c -D__EXPORT__ -I%hdir%\\include errorsys.c\n\n%hdir%\\bin\\harbour %1 /n /i%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\brc32 -r %1\n\necho c0d32.obj + &gt; b32.bc\necho %1.obj+errorsys.obj+maindll.obj+macrcall.obj, + &gt;&gt; b32.bc\necho %1.dll, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\nrem echo ..\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib, &gt;&gt; b32.bc\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n%bcdir%\\ilink32 -Tpd -aa -L%bcdir%\\..\\lib -L%bcdir%\\..\\lib\\PSDK @b32.bc','',0,'AIA=','14wfnkup',1,0,'',402,0,0),(5024,1228,3,2,0,'80.32.22.38',1137049817,1,0,1,1,1,1,'','','Asimireu,\n\nHow are you running the DLL ? How do you test it ?','',0,'AIA=','2528duxc',1,0,'',2,0,0),(5025,1207,3,288,0,'84.172.68.68',1137053233,1,0,1,1,1,0,'','','I mean Class C 5 Menu !!!!\n\nTx','',0,'AIA=','3qcm102u',1,0,'',288,0,0),(5026,1229,3,372,0,'83.118.100.14',1137054144,1,0,1,1,1,0,'','Faxing from within FWH, is this possible?','Hi,\n\nIs it possible to Fax directly from within FWH, using an oldfashioned faxmodem? (Like with the old Faxual II lib for Clipper) I don\'t want to use an external driver because i want to be in full control..\n\nThanks in advance,\n\nJohn.','',0,'AIA=','wwk4a74z',1,0,'',372,0,0),(5027,1222,4,6,0,'82.53.175.20',1137054547,1,0,1,1,1,1,'','','Ok, let me do some experiment...\n\nEMG','',0,'AIA=','36n2klfy',1,0,'',6,0,0),(5028,982,6,336,0,'80.58.10.235',1137055540,1,0,0,1,1,0,'','','Antonio,\n\nDonde puedo leer algo respecto de como se manejan esas datas?\nSigo con la idea de generar un bitmap en memoria donde los colores son calculados, con ellos crear un brush para asiganrlo como fondo de los dialogos.\nPor donde me recomiendas empezar? Que manera sugieres para hacer eso?\n\nSaludos','',0,'AIA=','rg1cw2d4',1,0,'',336,0,0),(5029,1230,3,247,0,'87.202.16.199',1137057867,1,0,1,1,1,0,'','Run an Application as a service','Does anyone knows how to run the exe as a service ?','',0,'AIA=','rtikl3f9',1,0,'',247,0,0),(5030,1228,3,402,0,'211.47.212.225',1137059758,1,0,1,1,1,0,'','OLE TEST','#include &lt;Windows.h&gt;\nHINSTANCE hCurInstance;\nFARPROC lpfnPopup;\n\nint APIENTRY WinMain()\n            {\n	        HANDLE hDLL;\n          	hDLL = LoadLibrary(\"test.dll\");\n           if (hDLL)\n	{\n  	 lpfnPopup=GetProcAddress(hDLL,\"Main\");\n	  FreeLibrary(hDLL);\n	}\n           }\n//----------------------------------------------------------------\nOLE LINK DLL (stop, pause) \nOLE LINK EXE (ok) \n\nI don\'t know English that much ^^;;\n//--------------------------------------------------------------','',0,'AIA=','1g1oc8oz',1,0,'',402,0,0),(5031,1219,4,364,0,'217.21.248.243',1137061995,1,0,1,1,1,0,'','TSocket class','Thanks antonio, after re-installing I don\'t get tSocket errors any more.\n\nBut here\'s my next question: \nHow can I read/create a simple text file with the lOpen() and cFReadLine() functions i get the same errors like before..\n\nor can i send an array through.. ( maybe binairy or something? )\n\nregards\nSjors','',0,'AIA=','qfl3t1qn',1,0,'',364,0,0),(5032,1231,7,262,0,'212.89.4.38',1137064232,1,0,1,1,1,1,'','comportamiento get en recursos','Los get desde recursos con clausula readonly no colorean completamente el cuadro de edición y ademas , el color de los datos queda como si estuviera desactivado , esto mismo funciona perfectamente desde codigo .\nSaludso.','',0,'AIA=','apmcdtgm',1,0,'',262,0,0),(5033,1219,4,2,0,'80.32.22.38',1137064897,1,0,1,1,1,1,'','','Sjors,\n\nTo create a text file simply do: MemoWrit( cFileName, cText )\n\nIs that what you mean ?','',0,'AIA=','ddsf7rb8',1,0,'',2,0,0),(5034,1204,7,2,0,'80.32.22.38',1137066791,1,0,1,1,1,1,'','','Jose Luis,\n\nSí funciona bien, lo que ocurre es que tienes que usar CurDir() antes del nombre del fichero:\n\nlocal ahBmp:={ReadBitmap( CurDir() + \"\\bmp\\si16.bmp\" ), ReadBitmap( CurDir() + \"\\bmp\\no16.bmp\" ) }\n\nAqui puedes ver un ejemplo (aunque he usado un bitmap algo grande):\n\n[url=http&#58;//imageshack&#46;us:3uksxb60][img:3uksxb60]http&#58;//img78&#46;imageshack&#46;us/img78/4993/image21ib&#46;jpg[/img:3uksxb60][/url:3uksxb60]','',0,'GA==','3uksxb60',1,0,'',2,0,0),(5035,1228,3,2,0,'80.32.22.38',1137067419,1,0,1,1,1,1,'','','Please try this:\n\n[code:obk3z7jt]\n#include &lt;Windows&#46;h&gt; \n\nint APIENTRY WinMain&#40;&#41; \n&#123; \n   HANDLE hDLL = LoadLibrary&#40;&quot;test&#46;dll&quot;&#41;; \n\n   if&#40; hDLL &#41; \n   &#123;\n      MessageBox&#40; 0, &quot;DLL loaded&quot;, &quot;ok&quot;, 0 &#41;;\n      FreeLibrary&#40; hDLL &#41;;\n   &#125;\n   else\n      MessageBox&#40; 0, &quot;can\'t load it&quot;, &quot;No&quot;, 0 &#41;;\n&#125;\n[/code:obk3z7jt]\n\nLet me know what you get on screen.','',0,'AIA=','obk3z7jt',1,0,'',2,0,0),(5036,1230,3,2,0,'80.32.22.38',1137067853,1,0,1,1,1,1,'','','Please review this:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=2373&amp;highlight=#2373\">http://fivetechsoft.com/forums/viewtopi ... ight=#2373</a><!-- m -->','',0,'AIA=','wyet5we7',1,0,'',2,0,0),(5037,1221,3,2,0,'80.32.22.38',1137067996,1,0,1,1,1,1,'','','Deano,\n\nHave you double checked that REP_PROOF is a field name in your DBF ?','',0,'AIA=','xc6t0gy3',1,0,'',2,0,0),(5038,982,6,2,0,'80.32.22.38',1137068101,1,0,1,1,1,1,'','','Carlos,\n\nLa manera más simple es cargar el bitmap en el Borland Resources Workshop y ver el bitmap en modo binario.\n\nEn cuanto a la descripción del formato binario del bitmap, lo recomendable es buscar en google.','',0,'AIA=','1a6vc88s',1,0,'',2,0,0),(5039,1227,6,53,0,'200.66.175.46',1137069596,1,0,1,1,1,1,'','','Lafug:\n\nSeguramente en su página personal\n\n<!-- w --><a class=\"postlink\" href=\"http://www.personales.mundivia.es/rar/fivewin.htm\">www.personales.mundivia.es/rar/fivewin.htm</a><!-- w -->\n\nUn abrazo, Armando','',0,'AIA=','1fokr505',1,0,'',53,0,0),(5040,1230,3,247,0,'62.103.65.83',1137071129,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:fqknlhph]Please review this:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=2373&amp;highlight=#2373\">http://fivetechsoft.com/forums/viewtopi ... ight=#2373</a><!-- m -->[/quote:fqknlhph]\n\nBut i can\'t see it as a service inside the service manager.What is the name of the service?','',0,'gA==','fqknlhph',1,0,'',247,0,0),(5041,1232,3,339,0,'201.8.163.18',1137072364,1,0,1,1,1,0,'','GET CLASSS WITH TOOLTIP to DIALOG BOX','HI,\n\n Some People Knows CLASS \n\nGET CLASSS WITH TOOLTIP to HELP GET\n\n\nMauricio','',0,'gA==','3lui7miq',1,0,'',339,0,0),(5042,1232,3,6,0,'82.53.175.20',1137072514,1,0,1,1,1,1,'','Re: GET CLASSS WITH TOOLTIP to DIALOG BOX','oGet:cTooltip = \"Your tooltip\"\n\nEMG','',0,'gA==','3etrkrs8',1,0,'',6,0,0),(5043,1233,4,6,0,'82.53.175.20',1137073442,1,0,1,1,1,1,'','Bug in TMultiGet:Append() method','The following sample shows that TMultiGet:Append() method doesn\'t seem to work:\n\n[code:1cyibnpi]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL oGet, cVar &#58;= &quot;&quot;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 GET oGet VAR cVar MEMO;\n           SIZE 200, 100\n\n    @ 10, 1 BUTTON &quot;Append&quot;;\n            SIZE 100, 20;\n            ACTION oGet&#58;Append&#40; &quot;This is a test&quot; + CRLF &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1cyibnpi]\n\nEMG','',0,'AIA=','1cyibnpi',1,0,'',6,0,0),(5044,1222,4,6,0,'82.53.175.20',1137073780,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:s1nftlyd]Enrico,\n\nWe may modify it here, but we have to decide, all together, what values to use. Should the SAYs be the reference ? the GETs ?[/quote:s1nftlyd]\n\nI think that we don\'t have to care what controls should be the reference. We just need that row \"n\" is the same for all the controls. Don\'t you agree?\n\nEMG','',0,'gA==','s1nftlyd',1,0,'',6,0,0),(5045,1219,4,364,0,'217.21.248.243',1137075354,1,0,1,1,1,0,'','','I want is this:\n- I want to send an array/file to my pocket pc.\n- show as an the array in a listbox\n- fill in the array ( by the user)\n- save the array to a file.\n- send the file/array to my pc when it connects to the docking station.\n\nwhat is the best way to do this? i don\'t want to work with dbf-files.\n\nregards,\nSjors','',0,'gA==','33lg38to',1,0,'',364,0,0),(5046,1232,3,339,0,'201.8.163.18',1137076177,1,0,1,1,1,0,'','','Thanks Enrico , But Here don´w Show ....\n\n\n   i Think maybe , I using Dialog Only , don´t OPEN WINDOW ok\n\n\nMauricio...','',0,'gA==','3te6t6wq',1,0,'',339,0,0),(5047,1232,3,6,0,'82.53.175.20',1137076633,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:2guygt9y]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar\n\n    oGet&#58;cTooltip = &quot;This is my tooltip&quot;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2guygt9y]\n\nEMG','',0,'AIA=','2guygt9y',1,0,'',6,0,0),(5048,1234,2,401,0,'201.215.15.4',1137078766,1,0,1,1,1,0,'','problemas com cmsay','amigos tengo una impresion con tprinter, y funciona bien, pero........ cuando imprimo columnas con valores numericos, estos se centran en la columan y se ven descuadrados.\n\noPrn:Cmsay(fila, 12.4, TRANSFORM(Net_Fac,\"99,999,999\"), oFntPeque)\n            oPrn:Cmsay(fila, 14.4, TRANSFORM(Exe_Fac,\"99,999,999\"), oFntPeque)\n            oPrn:Cmsay(fila, 16.4, TRANSFORM(Iva_Fac,\"99,999,999\"), oFntPeque)\n            oPrn:Cmsay(fila, 18.4, TRANSFORM(Tot_Fac,\"99,999,999\"), oFntPeque)\n\ncomo alineo los numeros a la derecha ???','',0,'AIA=','ei4fbnk7',1,0,'',401,0,0),(5049,1146,6,36,0,'200.113.56.235',1137079094,1,0,1,1,1,0,'','','Para los que quieran ver mas información\n\n[url:2khnma8a]http&#58;//www&#46;advantage&#46;com&#46;uy/demo_ver8&#46;html[/url:2khnma8a]\n\nSaludos\nPatricio','',0,'EA==','2khnma8a',1,0,'',36,0,0),(5050,1146,6,171,0,'24.147.25.226',1137079852,1,0,1,1,1,0,'','ADS Database','Seria posible, usando solo ADS Remote,  tener una Base de datos que contenga archivos (tablas, ficheros) en el servidor local y a la misma vez archivos en un servidor en el Internet?\n\nMe explico: Necesito tener unos archivos en un servidor en una red local, pero tambien necesito que mi programa cuando accese esos archivos, tambien pueda acessar otros que esten en un servidor en el internet\n\nGeorge','',0,'EA==','wy6lrvdf',1,0,'',171,0,0),(5051,1229,3,49,0,'213.82.134.66',1137080647,1,0,1,1,1,0,'','','yes it is possible : go to fivewin.info there ina utility to send fax on fw/clipper , I think it run on harbour\n\nRegards\nsilvio','',0,'EA==','b4uc5jvq',1,0,'',49,0,0),(5052,1235,6,255,0,'200.67.134.233',1137080967,1,0,1,1,1,1,'','Destruir un proceso del Administrador de Tareas','Amigos, como puedo obtener todos los\nprocesos que están en el administrador\nde tareas (OJO procesos NO aplicaciones)\ny en caso de que se puedan obtener, como\nle hago para MATAR a uno de ellos ?\n\nGracias de antemano.','',0,'EA==','2z3yuxxb',1,0,'',255,0,0),(5053,1074,2,375,0,'84.122.117.102',1137081160,1,0,1,1,1,1,'','','a MI TAMPOCO ME FUNCIONA...','',0,'EA==','3d9k0ubz',1,0,'',375,0,0),(5054,1207,3,255,0,'200.67.134.233',1137081184,1,0,1,1,1,1,'','','[quote=&quot;Dan Reed&quot;:3q53bmbt]I mean Class C 5 Menu !!!!\n\nTx[/quote:3q53bmbt]\n\nNo, actually i\'m working on the same class (C5menu)\nbut with an XP look, i call it XPmenu.\n\nThe time is my enemy, so i hope to finish it\nas soon as posible.\n\nRegards','',0,'gA==','3q53bmbt',1,0,'',255,0,0),(5055,1226,3,255,0,'200.67.134.233',1137081249,1,0,1,1,1,1,'','','The same way silvio.\n\nRegards','',0,'gA==','c2zdsas0',1,0,'',255,0,0),(5056,1234,2,375,0,'84.122.117.102',1137081875,1,0,1,1,1,1,'','','Intenta esto:\n\noPrn:Cmsay(fila, 12.4, TRANSFORM(Net_Fac[b:w02mfeft],\"@B 99,999,999\"), [/b:w02mfeft]oFntPeque) \n\nSi no te funciona, tendras que utilizar algo asÍ:\n\ncDato := TRIM(TRANSFORM(Net_Fac,\"99,999,999\"))\nnVar  := oPrn:GetTextWidth(cDat,oFntPeque)\noPrn:Cmsay(fila, 12.4+ancho columna-nVar, cDato,oFntPeque)\n\nUn saludo.','',0,'QA==','w02mfeft',1,0,'',375,0,0),(5057,1229,3,372,0,'83.118.100.14',1137082242,1,0,1,1,1,0,'','','Hi Silvio,\n\nthanks for your reply. I only found \'FiveWin connection to GFI FAXmaker\' on that site, is that what you mean?\n\nBest regards,\n\nJohn.','',0,'QA==','dmo4utb5',1,0,'',372,0,0),(5058,1226,3,49,0,'213.82.134.66',1137082684,1,0,1,1,1,0,'','','Dear Jcso ,\nthe same not run ok ...','',0,'QA==','1c66d8a9',1,0,'',49,0,0),(5059,1212,1,148,0,'82.201.236.121',1137082891,1,0,1,1,1,0,'','','Can you send me those samples that I do not have . Just Zip them to mail : <!-- e --><a href=\"mailto:ehabaziz2001@gmail.com\">ehabaziz2001@gmail.com</a><!-- e -->\nThanks in Advance','',0,'QA==','10m7uts6',1,0,'',148,0,0),(5060,1236,4,213,0,'68.203.142.6',1137086877,1,0,1,1,1,0,'','Pocket PC Install','All,\n\nIs there anyway to execute a program on the Pocket PC during installation?  I\'m using cab files and inno setup to install the necessary files on the desktop and then launching ceappmgr to install on the pocket pc.  I need a way to run an executable on the pocket pc during or after the installation process.\n\nThanks,\nRandal Ferguson','',0,'QA==','1vrzrg1i',1,0,'',213,0,0),(5062,1237,7,123,0,'81.34.176.143',1137087390,1,0,1,1,1,0,'','Como se llama la función RAPI que da carpeta \'Storage-Card\'?','Hola a todos,\n\nDesde PC, con RAPI, sabeis como puedo averiguar el nombre de la carpeta de la tarjeta SD o MC de la PDA ??\n\nHe buscado por todo el API Rapi y no he sabido ver...\n\nSaludos y gracias por la ayuda,\nJosé Luis Capel','',0,'QA==','2ztz2ifn',1,0,'',123,0,0),(5063,1146,6,138,0,'201.128.111.75',1137087933,1,0,1,1,1,1,'','','Claro que se puede....\n\nSin ningun problema, simplmente haces un SetServerType(7) y puedes manejar archivos via internet y servidor local sin ningun problema','',0,'QA==','201vulwe',1,0,'',138,0,0),(5064,1210,6,376,0,'201.240.102.98',1137088246,1,0,1,1,1,0,'','','Gracias Karinha..\n\nVoy a visitar la direccion y bajarme el programa ... espero que ya pueda superar el problema...\n\nUn beso\n\nArmando','',0,'QA==','33ti88iu',1,0,'',376,0,0),(5065,1210,6,376,0,'201.240.102.98',1137088594,1,0,1,1,1,0,'','Re: xharbour compatibe con FWH24','Vikthor...\n\nLa versión 0.99.2 no soluciona el problema.\n\nEstoy intentando con otras opciones que me están indicando en el foro... espero que algunas de ellas puedan resolverlo. \n\nAcabo de probar con la opcion del jkide de Patrick Fan, si bien es cierto corrige la libreria Fivehx pero no corrige la libreria Fivehc que también se utiliza en el ejecutable (me aparece un mensaje .../function alert was compiled with PCODE 5...)\n\nSaludos\n\nArmando','',0,'QA==','3jwnuyfw',1,0,'',376,0,0),(5066,1210,6,376,0,'201.240.102.98',1137089667,1,0,1,1,1,0,'','','Jose Luis\n\nUtilice el JKide de Patric Fan y me ha corregido la libreriía Fivehx pero no el fivehc que también se utiliza para generar el ejecutable (me aparece .../funcion ALERT was compiled with PCODE 5... y no se ejecuta)\n\nEs necesario también actualizar Fivehc.lib ...\n\nSaludos\n\nArmando','',0,'QA==','3hvixwxw',1,0,'',376,0,0),(5067,1210,6,400,0,'200.205.49.13',1137091359,1,0,1,1,1,1,'','','[quote=&quot;Armando Picon&quot;:1fbzln4x]Buen dia amigo Ale\n\nMi correo es <!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e --> si tiene a bien enviarme una copia de tu version de xHarbour compatible con FWH24.\n\nAdelanto las gracias por tu apoyo.\n\nArmando[/quote:1fbzln4x]\n\nFoi pra conta amigo <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> .\n\n\n@braços Ale','',0,'gA==','1fbzln4x',1,0,'',400,0,0),(5068,1226,3,255,0,'200.67.134.233',1137092059,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1ma8wy9z]Dear Jcso ,\nthe same not run ok ...[/quote:1ma8wy9z]\n\nCheck your code, it must run ok.','',0,'gA==','1ma8wy9z',1,0,'',255,0,0),(5069,1227,6,295,0,'200.50.127.186',1137093242,1,0,1,1,1,1,'','','Trate con la direccion que me indica Armando, y otras en la web y no hay caso, Solicito amablemnte si algunos de ustedes la posee, por favor si me la puede enviar, de antemano se agradece','',0,'gA==','34cusgko',1,0,'',295,0,0),(5070,1222,4,2,0,'80.32.22.38',1137096620,1,0,1,1,1,1,'','','Enrico,\n\nYes, thats a solution, but still we have to decide the value for each row and column.','',0,'gA==','bun468dk',1,0,'',2,0,0),(5071,1210,6,376,0,'201.240.120.94',1137097295,1,0,1,1,1,0,'','','Joel\n\nYa utilice el \"Harb2Lib\", es estupenda... pero solo para fiveh.lib.\n\nMe parece que el error que me aparece es porque en xHarbour tambien se utiliza el fivehc.lib que tambien debe recompilarce.\n\nDe alguna manera debo poder utilizar el FWH24 que adquirimos... aunque todavia no veo cómo (ojalá que Antonio haga un parche para actualizar su libreria para xharbour de acuerdo con la version que una haya adquirido ... no te parece???)\n\nSaludos','',0,'gA==','1z1ww49q',1,0,'',376,0,0),(5072,1227,6,53,0,'148.221.81.25',1137097924,1,0,1,1,1,1,'','','Lafug:\n\nLamento mucho el error, esta es la dirección correcta\n\n<!-- m --><a class=\"postlink\" href=\"http://personales.mundivia.es/rar/fivewin.htm\">http://personales.mundivia.es/rar/fivewin.htm</a><!-- m -->\n\n\nSaludos, Armando','',0,'gA==','1bx4801h',1,0,'',53,0,0),(5073,1238,6,36,0,'200.113.56.235',1137098055,1,0,1,1,1,0,'','AdsGetServerTime','Estimados\n\nAlguien sabe como funciona esta función de ADS [b:36h3wo6a]AdsGetServerTime[/b:36h3wo6a]\nLo que necesito es como puedo compatibilizar hora con time\nme explico\n\ntime me devuelve la hora en formato 24hrs\n\nAdsGetServerTime()[2] me devuelve en formato 12pm\n y estaba viendo ayuda pero no logro resolverlo..\n\ndesde ya gracias..\n\n[code:36h3wo6a]ejemplo\ntime&#40;&#41;=17&#58;32&#58;52\nAdsGetServerTime&#91;2&#93;=05&#58;32&#58;52 PM[/code:36h3wo6a]\n\n[u:36h3wo6a]si no voy a tener que hacer un funcion para convertir a 24 <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->[/u:36h3wo6a]\n\nSaludos\nPatricio','',0,'QYA=','36h3wo6a',1,0,'',36,0,0),(5074,1222,4,6,0,'87.3.212.154',1137098451,1,0,1,1,1,1,'','','GETs could be a good reference as they are the most used controls.\n\nI think that now is the right time for this fix due to the little backward compatibility problems. After it would be late exactly like for Fivewin.\n\nEMG','',0,'QYA=','pk4dcni9',1,0,'',6,0,0),(5075,1218,1,379,0,'59.167.112.223',1137101155,1,0,1,1,1,0,'','Class','I could not find it there?\n\nCheers','',0,'QYA=','2oiqsz5a',1,0,'',379,0,0),(5076,1239,6,103,0,'200.164.92.242',1137101459,1,0,1,1,1,0,'','Ejemplo completo de xBrowse','Hola foro,\n\n    Alguno de ustedes tiene un ejemplo completo de uso de xBrowse con edición de celdas y con bitmaps de busqueda en la celda, pues en el testxbrw no tiene todos los recursos del browse. En el README.TXT de la carpeta SAMPLES tiene esto:\n\n- Automatic row edition with the following modes:\n   - No edition\n   - Edition with Get\n   - Edition with list box\n   - Edition with button \"...\"\n   - Edition with Get &amp; list box\n   - Edition with Get + button \"...\"\n\n   Yo estoy interesado exactamente en la ultima opción: Edition with Get + button \"...\". \n\nGracias de antemano,\n\nKleyber','',0,'QYA=','2oodpqma',1,0,'',103,0,0),(5077,1238,6,21,0,'81.172.126.213',1137105151,1,0,1,1,1,1,'','','Hola Patricio.\n\nYo uso la siguiente función:\n[code:gs5qz1b9]FUNCTION Hora&#40;&#41;\n  local cHor, cMin, cSec, cMer, cMin, cSec, cAds\n  cAds &#58;= AdsGetServerTime&#40;&#41;&#91;2&#93;\n  cHor &#58;= left&#40; cAds, 2&#41;\n  cMer &#58;= Upper&#40; Right&#40;cAds, 2&#41; &#41;\n  do case\n  case cMer=\'PM\' &#46;and&#46; !cHor==\'12\'\n    cHor &#58;= padl&#40; Val&#40;cHor&#41;+12, 2, \'0\' &#41;\n  case cMer=\'AM\' &#46;and&#46; cHor==\'12\'\n    cHor &#58;= \'00\'\n  endcase\n  cMin &#58;= SubStr&#40;cAds, 4, 2&#41;\n  cSec &#58;= SubStr&#40;cAds, 7, 2&#41;\nreturn cHor + cMin + cSec[/code:gs5qz1b9]','',0,'AIA=','gs5qz1b9',1,0,'',21,0,0),(5078,1240,19,2,0,'80.32.22.38',1137106438,1,0,1,1,1,1,'','Bill Gates keynote at the 2006 International CES','Don\'t miss Bill Gates keynote at the 2006 International Consumer Electronics Show, with a Windows Vista preview too:\n\n<!-- m --><a class=\"postlink\" href=\"http://metahost.savvislive.com/microsoft/20060104/ces_billgates_keynote_20060104_300.asx\">http://metahost.savvislive.com/microsof ... 04_300.asx</a><!-- m -->\n\nAlso, you may find quite interesting Steve Job\'s MacWord keynote from <!-- m --><a class=\"postlink\" href=\"http://www.apple.com/quicktime/qtv/mwsf06\">http://www.apple.com/quicktime/qtv/mwsf06</a><!-- m -->','',0,'AIA=','2mn1dpxg',1,0,'',2,0,0),(5079,1229,3,397,0,'201.42.184.143',1137107325,1,0,1,0,1,1,'','','Friend,\n\nYou can try use the API interface in 32BitFAX. Is a text file based API and easy to use.\n\nYou create a DELIMITED text file and save in 32BitFAX directory:\n\nFormat:\n\n\"Y\",\"Name\",\"Phone\",\"date to delivery\",\"time to delivery\",\"subject\"\n\nExample:\n\n\"Y\",\"Rochinha\",\"55-11-3903-4461\",\"03-15-2006\",\"10:30:00am\",\"Rochinha is a nice guy\"\n\nThe 4 e 5 parameters is not necessary.\n\nGenerate the file named Send2Fax.del with all recs number you decide and save in a ?:\\32BitFax directory.\n\nCode Example:\n\nset printer to Send2Fax.prn\n...\nyour code here\n....\nset printer to\n__CopyFile( \"Send2Fax.prn\", \"C:\\32BitFax\\Send2Fax.prn\" )\n__RenameFile( \"Send2Fax.prn\", \"C:\\32BitFax\\Send2Fax.del\" )','',0,'AIA=','3apuwvp7',1,0,'',397,0,0),(5080,1146,6,171,0,'24.147.25.226',1137108976,1,0,1,1,1,0,'','','Rene gracias por tu aclaracion.\n\nComo se de tu experiencia y siempre tu buena disposicion de ayudarnos en el este y otros  foros, me gustaria que me diera tu opinion acerca de las ventajas y desventaja de usar MySql o ADS advantage en una nueva aplicacion que pienso desarrollar. Esta aplicacion tendra que usar archivos (tablas) simultanemame en el servidor local y en un server en el internet. Nunca he usado SQL y quiero saber si ADS Advantage tiene la misma seguridad de datos que tanto se habla tiene SQL. y si la rapidez seria tambien mas o menos igual, pues pienso desplegar, desde el servidor en Internet, dos archivos graficos.\n\nMi primera opcion es irme con ADS, pues es el motor de base de datos compatible con los DBF que conozco desde hace casi 20 años (wao como pasa el tiempo), De todos modo Rene cualquier sugerencia tuya la tendre muy en cuenta\n\n\nSaludos\n\n\nGeorge','',0,'AIA=','3cahbzz8',1,0,'',171,0,0),(5081,982,6,28,0,'87.218.47.64',1137109527,1,0,1,1,1,0,'','Crear Brush','Hola\n\nCreo que esto es una solución aunque no se si será la mas \"académica\" pero creo que te funcionará.\n\nUn saludo\n\n\n[code:1iysoito]\nFunction CreaBrushDegradada&#40;&#41;\nlocal hDC, hDCMem, hOldBmp   \nlocal hBmpBrush\nlocal oBrush\nlocal nWidth &#58;= 100\nlocal nHeight &#58;= 4\n\nhDC          &#58;= oWnd&#58;GetDC&#40;&#41;\nhDCMem       &#58;= CreateCompatibleDC&#40; hDC &#41;\nhBmpBrush    &#58;= CreateCompatibleBitmap&#40; hDC, nWidth, nHeight &#41;\nhOldBmp      &#58;= SelectObject&#40; hDCMem, hBmpBrush &#41;\n\nDegrada&#40; hDCMem, &#123;0, 0, nHeight, nWidth &#125;, CLR_WHITE, CLR_BLUE &#41;\n\nSelectObject&#40; hDCMem, hOldBmp &#41;\n\nDeleteDC&#40; hDCMem &#41;\noWnd&#58;ReleaseDC&#40;&#41;\n\nDEFINE BRUSH oBrush COLOR CLR_HRED\noBrush&#58;hBrush &#58;= CreatePatternBrush&#40; hBmpBrush &#41;\n\nreturn oBrush\n[/code:1iysoito]','',0,'AIA=','1iysoito',1,0,'',28,0,0),(5082,1241,2,275,0,'200.68.226.169',1137118580,1,0,1,1,1,0,'','stacksize y heapsize','Hola, como se calcula el stacksize y heapsize para un sistema ?','',0,'AIA=','2kf90w6m',1,0,'',275,0,0),(5084,1123,3,388,0,'202.152.170.97',1137129680,1,0,1,1,1,0,'','sbrowseh.lib version 6.0','Dear J-Bohanan,\n\nThank you for your answer.\n\nI use harbour version 45.0 and fivewin 27.\n\nRegards,\n\n\nKok Joek hoa','',0,'AIA=','zfxneyty',1,0,'',388,0,0),(5085,1229,3,372,0,'83.118.100.14',1137131193,1,0,1,1,1,0,'','','Hi Rochinha,\n\ncan you tell me where to find this app? Still i don\'t think i will have full control over the sending process, because you have to hand over the control to the app, after writing the Send2Fax.del file, right?\n\nThanks,\n\nJohn.','',0,'AIA=','1rmi0kp1',1,0,'',372,0,0),(5086,1241,2,2,0,'80.32.22.38',1137139509,1,0,1,1,1,1,'','','Los valores iniciales aconsejables son:    \nstacksize   9500\nheapsize   2048\n\nSí se usan muchos GETs en una caja de diálogo, entonces puede ser necesario subir un poco el valor del heapsize. Lo normal es subirlo en incrementos de 1000 ó menos, hasta que la caja de diálogo aparezca sin problemas.\n\nSi se usan muchas cajas de diálogo, una sobre otra, entonces puede ser necesario subir un poco el stacksize, de la misma manera. \n\nCuanto menos stacksize y heapsize usemos, más memoria libre tendrá Clipper disponible para la aplicación. Por eso hay que intentar usar esos valores iniciales indicados.','',0,'AIA=','35oymqd1',1,0,'',2,0,0),(5087,1242,4,123,0,'81.34.176.143',1137143022,1,0,1,1,1,0,'','Rapi function that returns Storage Card name','Hi to all,\n\nIs there any function (on CE Rapi)that return the storage card name ??\n\nOr, in other words, How can I obtain the name (path) of a storage card of a PDA from PC?\n\nMany thanks for your help, \nJosé Luis Capel','',0,'AIA=','wb0xj1cj',1,0,'',123,0,0),(5088,982,6,336,0,'80.58.10.235',1137154981,1,0,0,1,1,0,'','','Ahora mismo la pruebo, pero si me funiona es EXACTAMENTE lo que busco\n\nMuchas gracias','',0,'AIA=','u3j89tmz',1,0,'',336,0,0),(5089,1243,3,26,0,'193.77.141.121',1137155118,1,0,1,1,1,1,'','Get without border','Hello!\n\nI want to display GETs without borders.\nI use NOBORDER, but border is still displayed (like 3D).\nIs there any other setting to disable 3D behaviour???\n\nP.S. I use Harbour (Microsoft) + FWH (November 2005)\n\n*** EDIT ***\nI noticed that this bug occurs when \nI use \"DEFINE WINDOW\". On dialogs created\nwith \"DEFINE DIALOG\" it is OK.\n\nHTH, Roman','',0,'AIA=','1fvr8qjt',1,0,'',26,0,0),(5090,1244,4,6,0,'82.53.175.201',1137157982,1,0,1,1,1,1,'','Serial port','I\'m trying to use the serial port through the emulator using the following test sample:\n\n[code:1nf4uotu]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cCom &#58;= &quot; &quot;\n\n    LOCAL cCod &#58;= &quot;&quot;\n\n    LOCAL oTmr, hSer, oGet\n\n    DEFINE WINDOW oWnd;\n           TITLE &quot;Test seriale&quot;\n\n    @ 1, 1 SAY &quot;Numero porta&#58;&quot;\n\n    @ 1, 10 GET cCom;\n            SIZE 30, 20;\n            PICTURE &quot;9&quot;;\n            VALID !EMPTY&#40; cCom &#41;\n\n    @ 3, 1 GET oGet VAR cCod MEMO;\n           SIZE 200, 100\n\n    @ 10, 1 BUTTON &quot;Apri porta&quot;;\n            SIZE 100, 20;\n            ACTION hSer &#58;= APRI&#40; cCom &#41;\n\n    @ 10, 20 BUTTON &quot;Esci&quot;;\n             SIZE 70, 20;\n             ACTION oWnd&#58;End&#40;&#41;;\n             CANCEL\n\n    DEFINE TIMER oTmr OF oWnd;\n           INTERVAL 1000;\n           ACTION LEGGI&#40; oTmr, hSer, oGet &#41;\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT oTmr&#58;Activate&#40;&#41;\n\n    IF hSer != -1; CLOSEHANDLE&#40; hSer &#41;; ENDIF\n\n    oTmr&#58;End&#40;&#41;\n\n    RETURN NIL\n\n\n#define GENERIC_READ 0x80000000 \n#define GENERIC_WRITE 0x40000000\n#define OPEN_EXISTING 3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080 \n\n\nSTATIC FUNCTION APRI&#40; cCom &#41;\n\n    LOCAL hSer &#58;= CREATEFILE&#40; &quot;COM&quot; + cCom + &quot;&#58;&quot;, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL &#41;\n\n    IF hSer != -1\n        MSGINFO&#40; &quot;Porta COM&quot; + cCom + &quot; aperta correttamente&quot; &#41;\n    ELSE\n        MSGINFO&#40; &quot;Impossibile aprire la porta COM&quot; + cCom &#41;\n    ENDIF\n\n    RETURN hSer\n\n\nSTATIC FUNCTION LEGGI&#40; oTmr, hSer, oGet &#41;\n\n    LOCAL cTxt &#58;= &quot;&quot;\n\n    LOCAL nChr &#58;= 0\n\n    IF hSer = NIL &#46;OR&#46; hSer = -1; RETURN NIL; ENDIF\n\n    oTmr&#58;DeActivate&#40;&#41;\n\n    WHILE nChr != 0\n        nChr = BIN2L&#40; READBYTE&#40; hSer &#41; &#41;\n        cTxt += CHR&#40; nChr &#41;\n    ENDDO\n\n    IF !EMPTY&#40; cTxt &#41;\n        oGet&#58;VarPut&#40; cTxt &#41;\n        oGet&#58;Refresh&#40;&#41;\n    ENDIF\n\n    oTmr&#58;Activate&#40;&#41;\n\n    RETURN NIL[/code:1nf4uotu]\n\nSomeone could test it on a real pocket PC?\n\nA question: is it possible (and needed) to set the port parameters (ie. baud rate, stop bits) and how?\n\nEMG','',0,'AIA=','1nf4uotu',1,0,'',6,0,0),(5092,1246,7,28,0,'87.218.47.141',1137162709,1,0,1,1,1,0,'','Version news PDA','Hola \n\n¿Sería posible tener una version de news visible desde PDA? \n\nPor cierto, no se si será una cosa difícil, fácil o difacil pero si estais interesados en navegar desde la pda conectando por bluetooth al ordenador, pues comentarlo y os cuento mis logros al efecto \n\nUn saludo \n\nPaco','',0,'AIA=','2aegxnbe',1,0,'',28,0,0),(5093,1247,6,255,0,'200.67.134.233',1137164361,1,0,1,1,1,1,'','DTPICKER con hora !','Existe alguna forma de poder usar\nel DTPICKER con una hora especificada\ny que devuelva la hora ???','',0,'AIA=','112mnft3',1,0,'',255,0,0),(5094,1248,3,63,0,'80.58.35.107',1137164819,1,0,1,1,1,0,'','Question about CaptureWindow()','Let\'s asume I have an application than can be written -or not- with FWH. I know that with TWCapture() I can take some control of it (hiding, maximizing, even changing dimensions of the app. window...)\n\nHowever: Is there any way than allows me to get a list of all the objets (controls) present in the window.  Specifically, I would like to be able to retrieve a list such as {oBtn1, oBtn2, oGet1, oListBox1, oGet2...}?\n\nThe idea is to be able to read the coordinates of each control and, eventually, the contens of the Gets:  oGet1:VarGet(), oGet1:nTop etc...\n\nAnybody could provide a simple example of how to do it? \n\nThanks a lot in advance\n\nRafael','',0,'AIA=','2ck0iy07',1,0,'',63,0,0),(5095,1249,6,63,0,'80.58.35.107',1137165443,1,0,1,1,1,0,'','Un problema con TWCapture()','Tengo el siguiente problema que no sé por dónde atacar:\n\nSupongamos que tenemos una ventana abierta correspondiente a una aplicación que puede o no estar escrita con FWH.  Por ejemplo, un Word, o un programa comercial de Contabilidad...\n\nLa clase TWCapture() me permite tomar cierto control sobre esa ventana: Redimensionarla, ocultarla, moverla...\n\nAhora bien, lo que me gustaría saber es cómo podría recoger una lista de todos los controles (objetos) que presenta esa ventana.  Por ejemplo: {oBtn1, oBtn2, oGet1, oGet2, oGet3, oLbx1....}\n\nLa idea es que a partir de esa lista debiera ser posible leer, entre ortras cosas, las coordenadas y contenido de Botones o campos Get.  Más o menos, así:  ? oBtn2:nTop, oBtn2:nLeftd, oGet1:VarGet()...\n\nHe hecho algunas pruebas con GetData() pero sin éxito.  Quizá GetObject() sirviera, pero en mi manual no vienen referencias sobre cómo utilizarlo.\n\n¿Alguien podría echarme una mano con un ejemplo sencillo de cómo hacerlo?\n\nGracias\n\nRafael','',0,'AIA=','2yu5n8mk',1,0,'',63,0,0),(5096,1250,4,289,0,'212.138.64.177',1137165906,1,0,1,1,1,0,'','I want the use wave  files','To all \nI want the use wave  files\nFrom ( evc &amp; borland c ) language \nFor  work\nText-To-Speech for arabic  language\ni testing with funtion  \" playsound() \"\nShe has tried with sources, but I did not succeed\nAnd he happens  dedication to the sound with the succession of the words\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nregards\nhathal','',0,'AIA=','1g9cw8il',1,0,'',289,0,0),(5097,1250,4,6,0,'82.53.175.201',1137166428,1,0,1,1,1,1,'','Re: I want the use wave  files','This is a sample of SndPlaySound() usage:\n\n[code:1fzilnsg]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 BUTTON &quot;Play&quot;;\n           SIZE 60, 30;\n           ACTION SNDPLAYSOUND&#40; CURDIR&#40;&#41; + &quot;\\TEST&#46;WAV&quot; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;mmsystem&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\n\nHB_FUNC&#40; SNDPLAYSOUND &#41;\n&#123;\n    LPWSTR pW = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;;\n    hb_retnl&#40; sndPlaySound&#40; pW, hb_parni&#40; 2 &#41; &#41; &#41;;\n    hb_xfree&#40; pW &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:1fzilnsg]\n\nEMG','',0,'AIA=','1fzilnsg',1,0,'',6,0,0),(5098,1248,3,67,0,'83.134.58.232',1137166619,1,0,1,1,1,0,'','','oDlg:aControls is a array with all the controls\n\nFrank','',0,'AIA=','316zv4i4',1,0,'',67,0,0),(5099,1238,6,36,0,'200.113.56.235',1137166961,1,0,1,1,1,0,'','','Gracias fGondi\n\n[i:1ekufsp4]ahhh otra cosa, sabemos que [/i:1ekufsp4]\n\n[code:1ekufsp4]AdsGetServerTime&#40;&#41;&#91;1&#93; devuelve la fecha\nAdsGetServerTime&#40;&#41;&#91;2&#93; devuelve la hora\nAdsGetServerTime&#40;&#41;&#91;3&#93; que cosa es???[/code:1ekufsp4]\n\nSaludos\nPatricio','',0,'IIA=','1ekufsp4',1,0,'',36,0,0),(5100,1251,6,152,0,'200.113.117.242',1137167093,1,0,1,1,1,0,'','twBrowse v18 ?','Hernan :\n\nEn otro foro te preguntan cunado sale la version 18 de tu clase. \nEn tu sitio ( <!-- m --><a class=\"postlink\" href=\"http://www.cesotech.com.ar/\">http://www.cesotech.com.ar/</a><!-- m --> ) se puede bajar hasta la version 15. \nLa pregunta es ¿ donde consigo la version 16 o 17 ? o en otras palabras, \n¿ Cual es la ultima version liberada de WBrowse ?\n\nSaludos\n\nGonzalo','',0,'IIA=','3hgcurx5',1,0,'',152,0,0),(5101,1252,3,372,0,'83.118.100.14',1137167218,1,0,1,1,1,0,'','Any change in ALT-Z with FWH27?','Hi,\n\nin FWH25, a button like &amp;Zoek (Search) worked when using the ALT key in combination with the Z, and standing in a GET. Since i\'ve upgraded (FWH27/xHarbour 0.99.51), using the ALT-Z combination clears the GET, and that\'s it.\n\nAny ideas how to get my original functionality back?\n\nThanks in advance!\n\nJohn.','',0,'IIA=','zhlv5c8y',1,0,'',372,0,0),(5102,1248,3,63,0,'80.58.35.107',1137167904,1,0,1,1,1,0,'','','Frank:\n\nThanks for your answer but I must be doing something wrong.  Part of my code:\n\noWnd := TWCapture():New(\"MyMainWnd\")    // \"MyMainWindow\" is a FWH application whose App class is a TWindow()\n\noWnd:Say(20, 20, \"Hello\", CLR_YELLOW, CLR_RED, oFont, .T., .F.)  // It paints \"Hello\", therefore, oWnd is properly captured\n\n? LEN(oWnd:aControls)  ---&gt;&gt; Error BASE/1111  Argument error: LEN\n   Args:\n     [   1] = U   \n\nCan you suggest something?\nThks\nRafael','',0,'','1za4ueao',1,0,'',63,0,0),(5103,1227,6,295,0,'200.50.127.186',1137168178,1,0,1,1,1,1,'','Clase Ramon Aendaño','Armando, baje la clase desde la pagina de Ramon Avendaño, y me presenta los siguientes errores:\n\nFileXLS.ch(1) Warning P0001  Suspicious unclosed #if* directive.\n\nError: Unresolved external \'_HB_FUN_TESTXLS1\' referenced from C:\\SOFNUT\\ALIMEN.OBJ\n\nError: Unresolved external \'_HB_FUN_XLSFORMAT\' referenced from C:\\SOFNUT\\TESTXLS1.OBJ\n\nError: Unresolved external \'_HB_FUN_TFILEXLS\' referenced from C:\\SOFNUT\\TESTXLS1.OBJ\n\nComo corrigo estos Errores   ???????','',0,'','1kju5zkv',1,0,'',295,0,0),(5104,1248,3,255,0,'200.67.134.233',1137168875,1,0,1,1,1,1,'','','[quote=&quot;Rafael Clemente&quot;:2walxzen]Frank:\n\nThanks for your answer but I must be doing something wrong.  Part of my code:\n\noWnd := TWCapture():New(\"MyMainWnd\")    // \"MyMainWindow\" is a FWH application whose App class is a TWindow()\n\noWnd:Say(20, 20, \"Hello\", CLR_YELLOW, CLR_RED, oFont, .T., .F.)  // It paints \"Hello\", therefore, oWnd is properly captured\n\n? LEN(oWnd:aControls)  ---&gt;&gt; Error BASE/1111  Argument error: LEN\n   Args:\n     [   1] = U   \n\nCan you suggest something?\nThks\nRafael[/quote:2walxzen]\n\n\n\nThen you need the function\n\noWndFromhWnd( hWnd )\n\nWith the handle you can get the object of the window.\nRegards','',0,'gA==','2walxzen',1,0,'',255,0,0),(5105,1227,6,362,0,'200.168.52.156',1137169497,1,0,1,1,1,1,'','','FileXLS.ch(1) Warning P0001 Suspicious unclosed #if* directive. \n\n\nEn el final del Archivo.Ch Ponga:\n\n#Endif','',0,'gA==','gt2cg75w',1,0,'',362,0,0),(5106,1248,3,63,0,'80.58.35.107',1137170303,1,0,1,1,1,0,'','','Juan Carlos:\n\nI\'am affraid I do not fully understand four suggestion.  In me example, oWnd is the objeto to the captured window and I have enough control over it as to be able to write something with the Say(\"Hello\") instruction.\n\nAnyhow, I tried your suggestion:\n[code:2uh3mi47]\n        oWnd &#58;= TWCapture&#40;&#41;&#58;New&#40; cTitle &#41;\n        hWnd &#58;= oWnd&#58;hWnd\n        ? oWnd, hWnd                   // &quot;Object&quot; and a lon number&#46; Seems Ok\n        oW &#58;= oWndFromhWnd&#40;hWnd&#41;\n        ? oW                   // Nil\n        ? LEN&#40;oW&#58;aControls&#40;&#41;&#41;       // Error, of course\n[/code:2uh3mi47]\n\nObviously, there is something wrong.  Can you tell me how to do it?\nThanks\nRafael','',0,'AIA=','2uh3mi47',1,0,'',63,0,0),(5107,1249,6,28,0,'87.218.46.25',1137170988,1,0,1,1,1,0,'','inspeccionar','hola\ntienes que utilizar funciones del API.\nUna vez obtenido el hwnd existen funciones para:\nobtener el texto GetWindowText\ncoordenadas Getcoors\nclase Getclassname\nPiensa que si la aplicacion no es la que estas ejecutando nopuedes  llamar a las funciones que decias\n\nPara sacar los controles tienes que utilizar GetWindow con el hwnd de la ventana en primer lugar  y GW_CHILD \nLueqo con el hwnd del control que obtengas se lo pasas a GetWindow pero ahora con GW_NEXT o algo asi mira los parametros de GetWindow. \n\nUn saludo\nPaco','',0,'AIA=','trux3vsu',1,0,'',28,0,0),(5108,1253,2,375,0,'84.122.117.102',1137171136,1,0,1,1,1,1,'','FGet y Office','Una pregunta tonta, ¿se puede pasar el contenido de u GET a OFFICE de Microsoft? ¿Y el de un MultiGet Normal?','',0,'AIA=','13tckobw',1,0,'',375,0,0),(5109,1249,6,63,0,'80.58.35.107',1137171594,1,0,1,1,1,0,'','','Paco:\nSí; todo lo que dices es cierto y ya me funciona bien.  Parte de mi código:\n[code:3sfudtrf]\n     oWnd &#58;= TWCapture&#40;&#41;&#58;New&#40; &quot;OtraApp&quot; &#41; \n     hWnd &#58;= oWnd&#58;hWnd\n     oWnd&#58;Say&#40;40, 20, &quot;Hola que tal???&quot;, CLR_YELLOW, CLR_RED,, &#46;T&#46;, &#46;F&#46;&#41;\n     ? getClassName&#40;oWnd&#58;hWnd&#41;\n[/code:3sfudtrf]\n\nEl problema es que una vez tengo oWnd, debería poder pedir sus controles:\n\n? LEN(oWnd:aControls)\n\ny eso me da un error.  En otras palabras: ¿Cómo puedo leer el array aControls?  Una vez lo tenga, supongo que a partir de ahí podré leer las coordenadas, tipo, etc de cada uno ¿no?\n\nGracias y saludos,\n\nRafael','',0,'AIA=','3sfudtrf',1,0,'',63,0,0),(5110,1254,2,375,0,'84.122.117.102',1137171630,1,0,1,1,1,1,'','clip\'s','Llevo algunos años con FW. Siempre creo mis Dialogos con resources Workshop de Borlan y áhi dos estilos de dialog que nunca he tulizado porque no se para que sirven\nCLIP CHILDREN y\nCLIP SIBILINGS\n¿Cuándo se utilizan?\n\nSi alguien se molesta en aclarme esos conceptos, gracias de antemano.','',0,'AIA=','2uddlyb9',1,0,'',375,0,0),(5111,1255,20,1,0,'80.181.108.140',1137171736,1,0,1,1,1,0,'','Stampare una bitmap &quot;trasparente&quot;','Esiste un modo per stampare una bitmap in modo \"trasparente\" ?\nCredo si debba specificare un valore nraster quando si esegue il metodo oPrn:SayBitmap ma non conosco il valore.\n\nQualche idea ?\n\nGrazie in anticipo\n\nMarco','',0,'AIA=','uabfxclm',1,0,'',1,0,0),(5112,1249,6,28,0,'87.218.46.25',1137171922,1,0,1,1,1,0,'','inspect','no puedes\nlos programas que tu dices no tienen  esas propiedades tienes que hacerlo conel api\nSi fueran programas tuyos podrias hacer que se comunicaran por ejemplo con  SendMesage y HandleEvent\nTambién  puedes con WM_COPYDATA\n\ndime por donde quieres ir\npaco','',0,'AIA=','1yv1h8pd',1,0,'',28,0,0),(5113,1249,6,63,0,'80.58.35.107',1137172408,1,0,1,1,1,0,'','','Paco:\nEn resumen: Desde mi aplicación quiero leer el contenido de un Get en la ventana de otra aplicación.\n\nPara ello, pretendo definir el Get que me interesa según sus coordenadas en la ventana de la otra aplicación.  Si tengo todos los controles en oWnd:aControls...  bastaría hacer un bucle así (código inventado, por supuesto):\n\nFor i := 1 TO LEN(aControles)\n     IF Coords(aControles[i] == MisCoords de Referencia()\n         oGet := aControles[i]\n         cMiValor := oGet:VarGet()\n         Exit\n     ENDIF\nNext\nReturn cMiValor\n\nHasta ahora, con TWCapture() puedo contolar dimensiones, esconder la ventana, cambiar su título e incluso conocer las coordenadas del cursor dentro de esa ventana.  Pero me falta poder leer sus controles.  Alguna idea?\n\nRafael','',0,'','1i61x2ub',1,0,'',63,0,0),(5114,1249,6,28,0,'87.218.46.25',1137174299,1,0,1,1,1,0,'','Inspect','Hola\n\nMira, tu puedes hacer lo que hace TWCapture\n\nDEFINE WINDOW oWnd\n\nluego con un hWnd que hayas obtenido con FindWindow haces:\n\noWnd:hWnd := hWnd\n\nEsto no quiere decir que aControls de oWnd se rellene automáticamente con los controles que sean hijos de hWnd.\n\nSi quieres obtener el contenido de un Get tienes que utilizar:\n\nGetWindowText( hWnd )\n\nComo te devuelve una cadena de texto luego lo conviertes al tipo que tu sepas que tiene que contener.\n\nPara obtener todos los controles de una ventana tienes que hacer esto:\n\n\n[code:1nn5gtoo]\n\n       local aControls &#58;= &#123;&#125;\n       hCtrl &#58;= GetWindow&#40; hWnd, GW_CHILD &#41;\n       do while hCtrl != 0\n           hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41;\n           if hCtrl != 0\n              aadd&#40; aControls, hCtrl &#41;\n           endif\n        enddo\n[/code:1nn5gtoo]\n\n¿Capichi? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nUna vez que tienes los controles en un array puedes preguntar por su classname y si sabes que siempre va a estar el Get en el mismo orden pues lo tienes fácil. Solo tienes que pillar su GetWindowText\n\nDime si necesitas mas cosas.\n\nPaco','',0,'AIA=','1nn5gtoo',1,0,'',28,0,0),(5115,1256,6,295,0,'200.50.127.186',1137174505,1,0,1,1,1,1,'','Errores al cargar la clase filexls de Ramon Avendaño','Hola a todos, estoy tratando de avanzar en mi proyecto, pero es muy poco lo que logro ya que aun no puedo terminar de hacer funcionar la clase FileXls. A continuacion se me presentan los siguientes errores al compilar, y que para mi son totalmente desconocido esos errores. Es por eso que les solicito su ayuda para lograrlo.\n\nEstos son los errores:\n\nError: Unresolved external \'_HB_FUN_TESTXLS1\' referenced from C:\\SOFNUT\\ALIMEN.OBJ\nError: Unresolved external \'_HB_FUN_XLSFORMAT\' referenced from C:\\SOFNUT\\TESTXLS1.OBJ\nError: Unresolved external \'_HB_FUN_TFILEXLS\' referenced from C:\\SOFNUT\\TESTXLS1.OBJ','',0,'AIA=','192dazhg',1,0,'',295,0,0),(5116,1246,7,2,0,'80.32.22.38',1137175161,1,0,1,1,1,1,'','','Paco,\n\n&gt; ¿Sería posible tener una version de news visible desde PDA?\n\nTe refieres a los nuevos mensajes publicados aqui ?\n\nEn caso afirmativo, hay un PHP instalado para dar la informacion en formato RSS:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=302&amp;highlight=rss\">http://fivetechsoft.com/forums/viewtopi ... hlight=rss</a><!-- m -->\n\nquizá podria modificarse para generar una salida acorde a la PDA.','',0,'AIA=','2nvvvshm',1,0,'',2,0,0),(5117,1256,6,362,0,'200.168.52.156',1137175277,1,0,1,1,1,1,'','','ALIMEN.PRG -&gt; Mira el erro.log esta faltando declarar alguna variable LOCAL, PUBLIC, MEMVAR O FIELD.','',0,'AIA=','3jy19bje',1,0,'',362,0,0),(5118,1248,3,2,0,'80.32.22.38',1137175872,1,0,1,1,1,1,'','','Rafael,\n\noWndFromhWnd(hWnd) will just work for created windows in FWH.\n\nIf the window is from another application, not created with FWH, once you have its hWnd you may get each control doing: \n\n[code:nat51mpa]\n   local hCtrl &#58;= GetWindow&#40; hWnd, GW_CHILD &#41; \n\n   while hCtrl != 0 \n      hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41; \n      &#46;&#46;&#46;\n   end \n[/code:nat51mpa]','',0,'AIA=','nat51mpa',1,0,'',2,0,0),(5119,1247,6,138,0,'201.128.111.75',1137176002,1,0,1,1,1,1,'','','No estaria mal la idea, FW no tiene un Timepicker.... \n\nHay otros GUIS que si lo tienen.','',0,'AIA=','12y6jz9r',1,0,'',138,0,0),(5120,1256,6,138,0,'201.128.111.75',1137176917,1,0,1,1,1,1,'','','La fileXLS require de 3 archivos que conforman la libreria:\n\nTfileXls.prg\nXLSerror.prg\nxlsFunc.prg\n\nTienes que compilar los 3 y crear la libreria con los 3 objs correspodientes, si no, la lib no funciona.','',0,'AIA=','wb8um2co',1,0,'',138,0,0),(5121,1252,3,2,0,'80.32.22.38',1137177512,1,0,1,1,1,1,'','','John,\n\nDo you see the underscore \"_\" under the \"Z\" ? Could you please post a screenshot here ? (use imageshack.com to host the image)','',0,'AIA=','3bj47rsw',1,0,'',2,0,0),(5123,1146,6,138,0,'201.128.111.75',1137178315,1,0,1,1,1,1,'','','ADS es una herramienta que proporciona a los archivos DBFs la misma tecnologia de acceso a los datos sobre la cual trabajan productos como SQL Server, Oracle, Informix,  es decir, tecnologia Cliente/Servidor, lo cual garantiza un acceso optimizado a la base de datos, mayor velocidad en las operacion de los sistemas, estabilidad de los datos, cero corrupcion  de indices, seguridad de la información  y  muchas mas ventajas adicionales:\n\n1) ADS corre sobre cualquier servidor de red, sin importar si es Novell, Linux o Windows NT/2000/2003, porque tiene servidores de base de datos para cualquiera de estos sistemas operativos.\n\n   Si tu quisieras implementar alguna otra solucion,  por ejemplo MySQL, tendrias que montar y configurar un servidor Linux, a pesar de que el costo de Linux por si mismo es casi nulo, el costo de la consultoria si es superior y casi igual al de cualquier otro servidor comercial.\n\n   Si quisieras montar SQL Server, tendrias que montar un servidor Windows NT/2000/2003, obtener licenciamiento para tus usuarios para el servidor, y ademas instalar el servidor de base de datos SQL Server,  adquirir su respectivo licenciamiento, el cual es POR APLICACION que accese el servidor, no por estacion de trabajo, esto quiere decir, que si tienes en promedio 2 programas que accesan a los datos de tu servidor SQL por estacion de trabajo, y si multiplicamos esas 2 aplicaciones por 10 usuarios, esto significa que tendrias que adquirir 20 licencias de SQL Server para poder trabajar,  falta agregar el costo de comprar el hardware y el software nuevo. Si te quieres dar una idea mas clara de cuanto te costaria instalar un SQL Server, mira esta pagina: <!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/sql/howtobuy/default.asp\">http://www.microsoft.com/sql/howtobuy/default.asp</a><!-- m -->.\n\n   Para Novell no existe ninguna base de datos, solo Oracle, pero licenciar Oracle para cualquier cantidad de usuarios sobre Novell no es una solucion viable primero porque cada licencia de Oracle es costosisima, y 2do porque  para mas de 25 usuarios, Oracle sugiere que el servidor de datos se monte sobre un sistema operativo Unix, agregale entonces al costo del Oracle el costo del servidor UNIX (Sun Microsystems) y el licenciamiento respectivo. Para que te des una idea de lo que cuesta un Oracle, solo el servidor de datos varia en  15,000 y 40 mil dolares, mas aparte el costo del licenciamiento por estacion de trabajo y el hardware, puedes revisarlo aqui: <!-- m --><a class=\"postlink\" href=\"http://www.awaretechnologies.com/awareWWW/oracleProducts/priceList.html\">http://www.awaretechnologies.com/awareW ... eList.html</a><!-- m -->\n\n2) Cada servidor de base de datos utiliza su propio formato nativo de archivo de datos, ADS trabaja sobre tablas DBF estandar y sobre indices NTX y CDX, tambien ofrece la posibilidad de trabajar con su propio formato nativo, tablas ADT con indices ADI, pero esto no es necesario, si no deseas hacerlo, aunque es muy recomendable Advantage trabajara con tus indices actuales y tus tablas dbf sin cambio alguno. Si quisieras implementar una solucion basada en SQL, como las mencionadas anteriormente, tendrias que migrar todos los datos que tienes en este momento al formato de archivo que maneje tu base de datos  (MySQL, SQL Server, Oracle, etc), con la consabida inversion de tiempo en el proceso de migracion, y ademas tomar en cuenta que los tipos de campos no son iguales a los DBFs lo que require de analisis adicional para realizar la migracion. De manera general y eso te lo pude decir cualquiera de los colegas que ha migrado a SQL, las estructuras DBFs tienen que tirarse a la basura y se tienen que rediseñar tablas nuevas.\n\n3) Todas las herramientas Cliente / Servidor que existen en el mercado utilizan como lenguaje para accesar a los datos SQL, Advantage Database Server no, ADS provee de capas de comunicacion que te permiten utilizar cualquier lenguaje de programacion que ya conozcas, Clipper / FiveWin, Harbour / FWH / MiniGui, Delphi, Visual Basic, ASP, PHP etc. utilizando un API de comunicacion estandar llamado ACE (Advantage Client Engine),  si estas usando el cliente local de ADS en tus aplicaciones de 32 bits, entonces ya estas usando Advantage, (ACE32.LIB) para migrar tus aplicaciones a tecnolgia Cliente / Servidor ADS, solo tienes que cambiar una linea de codigo en tus programas y ¡ listo !,  puedes tener tu aplicacion migrada a cliente / servidor en unas horas porque no se requieren instrucciones especiales para accesar a los datos, ADS soporta los comandos y funciones de manejo de archivos DBF e indices estandar del lenguaje de programacion que estés utilizando. Para utilizar cualquier otra base de datos SQL, tendrias que volver a escribir el acceso a los datos .... TODO, es decir, aparte de migrar de formato de base de datos, tendrias que volver a escribir los programas para que soportaran sentencias SQL.\n\n4) ADS es una base de datos libre de mantenmiento, es decir, se instala una sola vez, se configura y listo.... no requiere de tener un administrador de bases de datos, el proceso tipico de montaje, instalacion y migracion de una aplicacion a Cliente / Servidor con ADS es de solo 2 dias, sin importar el lenguaje de programacion que estes utilizando.  Los cursos y certificaciones, asi como los servicios de montaje e instalacion no estan incluidos en las otras herramientas y usalmente los costos de capacitacion e implmentacion varian entre el 30% y el 50% del precio del producto.\n\n5) ADS reduce el trafico en la red, bajo tu esquema actual, cada archivo DBF es copiado a cada estacion de trabajo, cada operacion de COMMIT regresa el archivo al servidor, lo que ocasiona colisiones y alto volumen de trafico en la red, con la respectiva lentitud en acceso a los datos, obviamente entre mas grandes los archivos y mas usuarios accesando a ellos, mas lento se hace el programa. ADS elimina el trafico de la red hasta en un 50%, lo que hace que las aplicaciones funcionen mas rapido.\n\n6) ADS anula los errores de corrupcion de indices. ADS centraliza toda la informacion en el servidor y es ADS quien se encarga de controlar el acceso a la misma, al no estar viajando por la red los datos, se anula totalmente el riesgo de corrupcion de indices.\n\n7) ADS ofrece seguridad a la informacion, ofreciendo 3 esquemas de proteccion de los datos: A nivel servidor, restringiendo el acceso de los usuarios de las terminales a los archivos .DBF por medio del ocultamiento de los directorios, por medio de diccionarios de datos con niveles de seguirdad individuales para cada usuario o bien encriptando el contenido de las tablas DBF con un algoritmo de 128 bits, tambien es posible implementar  ambos, requiriendo para esto agregar solo una linea de codigo en los programas. Adicionalmente ADS ofrece un sistema de transacciones para garantizar la integridad relacional de los archvios DBFs, este sistema garantiza que se realicen completas todas las operaciones de la base de datos, lo que evita que los archivos se queden \"cortados\", cuando el programa falla en una operacion que afecta a mas de una base de datos. ADS cuenta tambien con un esquema de recuperacion de datos perdidos en caso de caida del servidor.\n\n<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> ADS es rapido, cuenta con la tecnologia AOF (Advantage Optimized Filters) que permite la realizacion de filtros a travez del comado SET FILER entre 1200 y 1500 veces mas rapido que con Clipper o  Harbour convencionales,  adicionalmente ADS cuenta con algorimos de  almacenamiento temporal que  guardan  todas las busquedas realizadas por todos los usuairos y proveen de una respuesta mas rapida y eficiente cuando otro usuairo pide los mismos datos, lo que quiere decir que entre mas usuarios esten utilizando el sistema, ADS ira cada vez mas rapido.\n\n9)  ADS soporta protocolo IPX y TCP/IP indistintamente y simultaneamente, puediendo tener aplicaciones dentro de una red de area local con protocolo IPX y ejecutando aplicaciones via Internet con TCP/IP utilizando el Advantage Internet Server, que se incluye sin costo en el precio de servidor ADS.\n\n10) ADS soporta hasta 1000 usuarios simultaneos de la base de datos, y tablas DBF de hasta  4 Gigabytes  de tamaño, nuestros usuarios mas grandes tienen en promedio entre 50 y 75 millones de registros por archivo DBF individual.\n\n11) ADS reduce costos... ¿ cuanto tiempo deja de funcionar tu sistema por tener que reindexar la base de datos cuando se corrompe un indice ?... ¿ cuanto tiempo inviertes al dia en arreglas las incosistencias de la base de datos ?... ¿ cuanto dinero pierdes por no poder emitir una factura o no poder revisar una cuenta por cobrar cuando el sistema \"esta caido\" ?. ADS garantiza el retonro de inversion en un maximo de 6 meses.','',0,'AIA=','15wpm1ki',1,0,'',138,0,0),(5124,1249,6,63,0,'80.58.35.107',1137178821,1,0,1,1,1,0,'','','Paco:\nHo capito <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .  Gracias.  Funciona casi perfecto.  Solamente me falta un detalle que quizás me puedas solucionar:\n\nHe hecho un bucle:\n[code:3iihg15p]\nwhile hCtrl != 0\n       hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41;\n       cClassName &#58;= Upper&#40;GetClassName&#40;hCtrl&#41;&#41;\n       ? cClassName, GetWindowText&#40;hCtrl&#41;\nend\n[/code:3iihg15p]\n\nCon los botones funciona perfecto, o sea, me da el prompt del botón.\n\nSi precargo un Get con un texto: VAR cGet := \"Hola\"...., también lo detecta bien.\n\nPero si precargo un Get con cGet := SPACE(20), aunque escriba algo en él me devuelve blanco. Como si faltase un Refresh() o algo así.  Hay alguna forma de hacer que lea el texto que he escrito en el Get?\n\nMuchísimas gracias\n\nRafael','',0,'AIA=','3iihg15p',1,0,'',63,0,0),(5125,1248,3,63,0,'80.58.35.107',1137179056,1,0,1,1,1,0,'','','Antonio:\n\nThanks a lot for your help.  On the Spanish FWH forum, Paco Garcia has suggested the same approach.  I\'ve tried it and I have it almost working now. Just a small detail is missing.  Please, refer to the thread in that forum.\n\nThanks\n\nRafael','',0,'AIA=','zedx2r7m',1,0,'',63,0,0),(5126,1257,3,148,0,'82.201.235.33',1137180042,1,0,1,1,1,0,'','TXBrowse examples','Can Any body send me the samples directory zipped espcially for  TXBrowse examples ?\n\nEven There is no version for fivewin for Harbour Why I can not find this Class in NG ?\n\nmail : <!-- e --><a href=\"mailto:ehabaziz2001@gmail.com\">ehabaziz2001@gmail.com</a><!-- e --> \nThanks in Advance','',0,'AIA=','3tfaudv3',1,0,'',148,0,0),(5127,1247,6,255,0,'200.67.134.233',1137180313,1,0,1,1,1,1,'','','Recibidas!!!\n\nFrancisco me ha autorizado publicarla en\nmi sitio para que esté disponible para todos.\n\nEn breve la subiré.\nSaludos','',0,'AIA=','3lbxk1mm',1,0,'',255,0,0),(5129,1258,2,404,0,'85.155.215.105',1137183260,1,0,1,1,1,0,'','Estimados colegas, programadores','Estoy intentando, justificar la descripción de un producto. \n\nUna vez justificada a 30 caracteres. A veces la parte derecha no queda pareja.\n\nSaludos','',0,'AIA=','1gzit3jt',1,0,'',404,0,0),(5130,1256,6,295,0,'200.50.127.186',1137183379,1,0,1,1,1,1,'','','Rene podrias indicarme desde donde obtengo esos programas.\n\nSe agradece','',0,'AIA=','bup4l0sp',1,0,'',295,0,0),(5131,1249,6,28,0,'87.218.46.25',1137187127,1,0,1,1,1,0,'','','La verdad es que no se por que puede ser. \n\n<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','3nuwkqyl',1,0,'',28,0,0),(5132,1244,4,3,0,'82.255.85.101',1137187221,1,0,1,1,1,0,'','Re: Serial port','[quote=&quot;EnricoMaria&quot;:2gmi2k36]I\'m trying to use the serial port through the emulator using the following test sample:\n\n[code:2gmi2k36]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cCom &#58;= &quot; &quot;\n\n    LOCAL cCod &#58;= &quot;&quot;\n\n    LOCAL oTmr, hSer, oGet\n\n    DEFINE WINDOW oWnd;\n           TITLE &quot;Test seriale&quot;\n\n    @ 1, 1 SAY &quot;Numero porta&#58;&quot;\n\n    @ 1, 10 GET cCom;\n            SIZE 30, 20;\n            PICTURE &quot;9&quot;;\n            VALID !EMPTY&#40; cCom &#41;\n\n    @ 3, 1 GET oGet VAR cCod MEMO;\n           SIZE 200, 100\n\n    @ 10, 1 BUTTON &quot;Apri porta&quot;;\n            SIZE 100, 20;\n            ACTION hSer &#58;= APRI&#40; cCom &#41;\n\n    @ 10, 20 BUTTON &quot;Esci&quot;;\n             SIZE 70, 20;\n             ACTION oWnd&#58;End&#40;&#41;;\n             CANCEL\n\n    DEFINE TIMER oTmr OF oWnd;\n           INTERVAL 1000;\n           ACTION LEGGI&#40; oTmr, hSer, oGet &#41;\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT oTmr&#58;Activate&#40;&#41;\n\n    IF hSer != -1; CLOSEHANDLE&#40; hSer &#41;; ENDIF\n\n    oTmr&#58;End&#40;&#41;\n\n    RETURN NIL\n\n\n#define GENERIC_READ 0x80000000 \n#define GENERIC_WRITE 0x40000000\n#define OPEN_EXISTING 3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080 \n\n\nSTATIC FUNCTION APRI&#40; cCom &#41;\n\n    LOCAL hSer &#58;= CREATEFILE&#40; &quot;COM&quot; + cCom + &quot;&#58;&quot;, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL &#41;\n\n    IF hSer != -1\n        MSGINFO&#40; &quot;Porta COM&quot; + cCom + &quot; aperta correttamente&quot; &#41;\n    ELSE\n        MSGINFO&#40; &quot;Impossibile aprire la porta COM&quot; + cCom &#41;\n    ENDIF\n\n    RETURN hSer\n\n\nSTATIC FUNCTION LEGGI&#40; oTmr, hSer, oGet &#41;\n\n    LOCAL cTxt &#58;= &quot;&quot;\n\n    LOCAL nChr &#58;= 0\n\n    IF hSer = NIL &#46;OR&#46; hSer = -1; RETURN NIL; ENDIF\n\n    oTmr&#58;DeActivate&#40;&#41;\n\n    WHILE nChr != 0\n        nChr = BIN2L&#40; READBYTE&#40; hSer &#41; &#41;\n        cTxt += CHR&#40; nChr &#41;\n    ENDDO\n\n    IF !EMPTY&#40; cTxt &#41;\n        oGet&#58;VarPut&#40; cTxt &#41;\n        oGet&#58;Refresh&#40;&#41;\n    ENDIF\n\n    oTmr&#58;Activate&#40;&#41;\n\n    RETURN NIL[/code:2gmi2k36]\n\nSomeone could test it on a real pocket PC?\n\nA question: is it possible (and needed) to set the port parameters (ie. baud rate, stop bits) and how?\n\nEMG[/quote:2gmi2k36]\n\nEnrico\n\nTested on HP IPAQ 6515\n\nI tested port 1 opened OK without any change. No need to set baud, parity...etc \nIf i set 2 or any other value, it will not open correct.\n\nIf you need any further test, let me know\n\nRichard','',0,'gIA=','2gmi2k36',1,0,'',3,0,0),(5133,1246,7,28,0,'87.218.46.25',1137187282,1,0,1,1,1,0,'','','si, me refiero a modificar la salida para que se pueda ver bien en la pda.\n\nSaludos','',0,'gIA=','11n96e5j',1,0,'',28,0,0),(5134,1256,6,138,0,'201.128.111.75',1137187293,1,0,1,1,1,1,'','','Se supone que deben estar con el codigo fuente de la file XLS','',0,'gIA=','reg44q60',1,0,'',138,0,0),(5135,1244,4,6,0,'82.61.69.74',1137188753,1,0,1,1,1,1,'','Re: Serial port','Thank you! But I need to know if the characters received from the serial port are displayed on the multiget. Can you test it?\n\nEMG','',0,'gIA=','2zdth80y',1,0,'',6,0,0),(5136,1257,3,2,0,'80.32.22.38',1137190115,1,0,1,1,1,1,'','','Ehab,\n\nActually Class TXBrowse only works on FWH. It could be adapted to work on FW 16 bits, but it is not ported yet. The docs are provided with FWH.','',0,'gIA=','2utazezt',1,0,'',2,0,0),(5137,1123,3,230,0,'64.12.116.137',1137190158,1,0,1,1,1,0,'','','kok joek hoa\n\nI will recompile the Library Over the Weekend for you and then send\nit to you.  Can you send me a E-Mail address to send it to.\n\nThank You \nJim Bohanan\n\n<!-- e --><a href=\"mailto:jim37920@aol.com\">jim37920@aol.com</a><!-- e -->','',0,'gIA=','3pdh7n2s',1,0,'',230,0,0),(5138,1259,6,391,0,'201.221.140.82',1137190327,1,0,1,1,1,1,'','QUIERO INICIAR CON &quot;ADS&quot;','Mi intencion es iniciar un desarrollo que accese una base de datos via internet con Advantage Database Server.\n\nAlguien podría indicarme los primeros pasos ??\n\nQue software debo instalar (ADS), de que direccion puedo bajarlo (si es gratis) o a donde dirigirme para averiguar sus costos.\n\nEs claro que el mas indicado por su conocimiento es el Sr Rene Florez.\n\nMil gracias','',0,'gIA=','1m8vhrbp',1,0,'',391,0,0),(5139,1249,6,2,0,'80.32.22.38',1137190418,1,0,1,1,1,1,'','','Rafael,\n\nUsas un timer desde la otra aplicación en donde compruebas los valores de los controles ?','',0,'gIA=','2r73yku9',1,0,'',2,0,0),(5140,1257,3,148,0,'82.201.235.33',1137191229,1,0,1,1,1,0,'','','How Can I download FWH 2.7 or the documents for it ?','',0,'gIA=','2phez1ts',1,0,'',148,0,0),(5141,1218,1,74,0,'190.48.214.6',1137194668,1,0,1,1,1,1,'','','Grumpy:\n\n             But there is it. The exact link is:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/files/sources/wcapture.zip\">http://www.vikthor.com.mx/fivewin/files ... apture.zip</a><!-- m -->\n\nRegards,','',0,'gIA=','1s6h8710',1,0,'',74,0,0),(5142,1259,6,138,0,'201.128.111.75',1137194935,1,0,1,1,1,1,'','','Todo aqui:\n\n[url:3dieam9w]http&#58;//www&#46;google&#46;com/ads&#46;htm[/url:3dieam9w]','',0,'EA==','3dieam9w',1,0,'',138,0,0),(5143,1260,1,148,0,'82.201.235.33',1137195002,1,0,1,1,1,0,'','ButtonBars for Dialog','I can not find BottonBar functions well with Dialogs Only with Windows . Is this Right ? if So, It is written in NG :\n Bar Commands\n                             [ OF | WINDOW | DIALOG &lt;oWnd&gt; ] ;\n\n\nfunction main()\nlocal oBar\nDEFINE DIALOG oDlg From 1,5 to 20,65 TITLE \"FiveWin TWBrowse Power!!!\"\nDEFINE BUTTONBAR oBar size 20,20 of DIALOG oDlg\nACTIVATE DIALOG oDlg CENTERED\nreturn nil','',0,'','3hj88hq1',1,0,'',148,0,0),(5144,1261,3,148,0,'82.201.235.33',1137195130,1,0,1,1,1,0,'','How Can I download FWH 2.7 ?','How Can I download FWH 2.7 ?','',0,'','2216y4t8',1,0,'',148,0,0),(5145,1249,6,63,0,'80.58.35.107',1137197257,1,0,1,1,1,0,'','','Antonio:\nNo; no uso ningún timer.  Para las pruebas estoy usando una simple ventana (creada con FWH) con tres botones y dos gets.  Un get lo inicializo por programa a \"Hola\" y el otro, a blancos.\n\nLa aplicación que trata de leer esos gets captura perfectamente el \"Hola\" pero aunque escriba algo en el otro get, lo ignora y siempre devuelve blanco.\n\nEste es el trozo de código que uso:\n[code:1iofp48y]\n        hCtrl &#58;= GetWindow&#40; hWnd, GW_CHILD &#41;\n        WHILE hCtrl != 0\n              cClassName &#58;= Upper&#40;GetClassName&#40;hCtrl&#41;&#41;\n              IF cClassName = &quot;EDIT&quot;\n                   ? GetWindowText&#40;hCtrl&#41;\n              ENDIF\n              hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41;\n        END\n[/code:1iofp48y]\n\nAlguna idea?\n\nRafael','',0,'AIA=','1iofp48y',1,0,'',63,0,0),(5146,1229,3,397,0,'201.42.183.150',1137197401,1,0,1,0,1,1,'','','Friend,\n\nThe 32bit Fax return a file .LOG to your control in the same directory.\n\nTry download in:\n\n<!-- m --><a class=\"postlink\" href=\"http://files.supereva.com/cgi-bin/down5.chm?cod=32bitfax&amp;lan=en\">http://files.supereva.com/cgi-bin/down5 ... fax&amp;lan=en</a><!-- m -->\n\nor\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pcwelt.de/downloads/tools_utilities/aktuelle_software/102853/\">http://www.pcwelt.de/downloads/tools_ut ... re/102853/</a><!-- m -->\n\nThis app contains a good help file about this feature.\n\nIf you use activex in your aplications, try FACSys.OCX, easely found on <!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w -->','',0,'AIA=','2vokq4ci',1,0,'',397,0,0),(5147,1261,3,2,0,'80.32.22.38',1137199812,1,0,1,1,1,1,'','','Ehab,\n\nFWH 2.7 is a commercial product from FiveTech Software that you may purchase from here: <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/english/purchase.html\">https://secure.fivetechsoft.com/english/purchase.html</a><!-- m -->\n\nOnce you order it, you will receive an email with the download instructions.','',0,'AIA=','227c159x',1,0,'',2,0,0),(5148,1257,3,2,0,'80.32.22.38',1137199923,1,0,1,1,1,1,'','','Ehab, \n\nFWH 2.7 is a commercial product from FiveTech Software that you may purchase from here: <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/english/purchase.html\">https://secure.fivetechsoft.com/english/purchase.html</a><!-- m --> \n\nOnce you order it, you will receive an email with the download instructions.','',0,'AIA=','3lr12s3y',1,0,'',2,0,0),(5149,1260,1,2,0,'80.32.22.38',1137200058,1,0,1,1,1,1,'','','You can place a buttonbar at a dialog from the ON INIT clause of the dialog:\n\n[code:17qobupe]\n   ACTIVATE DIALOG oDlg ;\n      ON INIT PlaceButtonBar&#40; oDlg &#41;\n\n&#46;&#46;&#46;\n\nfunction PlaceButtonBar&#40; oDlg &#41;\n\n   local oBar\n\n   DEFINE BUTTONBAR oBar size 20,20 of DIALOG oDlg \n\nreturn nil\n[/code:17qobupe]','',0,'AIA=','17qobupe',1,0,'',2,0,0),(5150,1249,6,2,0,'80.32.22.38',1137200260,1,0,1,1,1,1,'','','Rafael,\n\nPrueba a inicializar un GET con \"hola\" y el otro con \"adios\" y comprueba que obtengas los dos valores correctamente.','',0,'AIA=','13ed7z02',1,0,'',2,0,0),(5151,1218,1,379,0,'59.167.126.127',1137206932,1,0,1,1,1,0,'','','I thank you for that - must have my glasses checked wen through the lists twice.  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'AIA=','381v8uqm',1,0,'',379,0,0),(5152,784,3,397,0,'201.42.53.102',1137215435,1,0,1,0,1,1,'','','Friend Dutch\n\nYou can compact your .BMP images using nconvert.exe, easely found on google search.\n\nnconvert.exe is a small .EXE called from command line or ShellExecute/WinExec fivewin functions.\n\nok?','',0,'AIA=','news96h1',1,0,'',397,0,0),(5153,1252,3,372,0,'83.118.100.14',1137223445,1,0,1,1,1,0,'','','Hi Antonio,\n\nWhen pressing the ALT key, the underscores appear. \n\nThis is what\'s in my RC file:\nPUSHBUTTON \"&amp;Zoek\", 303, 126, 224, 50, 14\n...\nEDITTEXT 305, 14, 224, 110, 13\n\n\nAnd in my app:\nREDEFINE BUTTON oZoek ID 303 OF oDlg\n....\nREDEFINE GET oZoekString VAR cZoekString ID 305 of oDlg  valid if(GETKEYSTATE(VK_RETURN),(ZoekString(cBestand, cZoekString,oBrw),oZoekString:oJump:=oZoekString,.T.),.T.)\n\nThe function ZoekString does the actual searching in the DBF.\n\nThanks in advance,\n\nJohn.','',0,'AIA=','3ip181tn',1,0,'',372,0,0),(5154,1249,6,63,0,'80.58.35.107',1137228637,1,0,1,1,1,0,'','','Sí. Inicializando los dos gets, capturo correctamente sus valores pero sus valores INICIALES.  Quiero decir: Si antes de capturar cambio algún get (por ejemplo, pongo \"Buenos dias\" en lugar de \"Hola\"), sigo capturando el valor original de \"Hola\".\nRafael','',0,'AIA=','1tk36i4y',1,0,'',63,0,0),(5155,1252,3,2,0,'80.32.22.38',1137228679,1,0,1,1,1,1,'','','John,\n\nThis sample works ok:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/d385d963/john.zip.html\">http://hyperupload.com/download/d385d963/john.zip.html</a><!-- m -->\n\nCould you please test it there and let us know if it works ok for you ? Thanks.','',0,'AIA=','l3nf7jos',1,0,'',2,0,0),(5156,1249,6,2,0,'80.32.22.38',1137228803,1,0,1,1,1,1,'','','Es realmente extraño, porque GetWindowText( hWnd ) es una función del API de Windows que debe devolver el texto que muestra el control.','',0,'AIA=','wcztaduk',1,0,'',2,0,0),(5157,1243,3,2,0,'80.32.22.38',1137229041,1,0,1,1,1,1,'','','Modicr,\n\nYou are using themes, right ?','',0,'AIA=','3vot43qz',1,0,'',2,0,0),(5158,1252,3,372,0,'83.118.100.14',1137229423,1,0,1,1,1,0,'','','Antonio,\n\nyour example works fine. So it seems the extra code i use, makes the contents of the GET dissapear. Strangely enough, this worked in the previous version...\n\nThanks,\n\nJohn.','',0,'AIA=','u0133olp',1,0,'',372,0,0),(5159,1243,3,2,0,'80.32.22.38',1137231244,1,0,1,1,1,1,'','','Modicr,\n\nWe have modified Class TWindow to include a new DATA nExStyle. And Class TGet and Class TMultiGet now looks like this:\n\n[code:22ymyx2l]\n   #ifdef __CLIPPER__\n      if ! lNoBorder\n         &#58;&#58;nStyle = nOr&#40; &#58;&#58;nStyle, WS_BORDER &#41;\n      endif   \n   #else\n      if ! IsAppThemed&#40;&#41;\n         if ! lNoBorder         \n            &#58;&#58;nStyle = nOr&#40; &#58;&#58;nStyle, WS_BORDER &#41;\n         endif\n      else\n         if ! lNoBorder\n            &#58;&#58;nStyle = nOr&#40; &#58;&#58;nStyle, If&#40; oWnd&#58;ChildLevel&#40; TDialog&#40;&#41; &#41; != 0, WS_BORDER, 0 &#41; &#41;\n            &#58;&#58;nExStyle = WS_EX_CLIENTEDGE\n         endif      \n      endif      \n   #endif   \n[/code:22ymyx2l]\n\nand in Method Create():\n\n[code:22ymyx2l]\n   if &#58;&#58;nBottom != CW_USEDEFAULT\n      &#58;&#58;hWnd = MGetCreate&#40; cClsName, &#58;&#58;cCaption, &#58;&#58;nStyle, ;\n                           &#58;&#58;nLeft, &#58;&#58;nTop, &#58;&#58;nRight - &#58;&#58;nLeft + 1, ;\n                           &#58;&#58;nBottom - &#58;&#58;nTop + 1, ;\n                           If&#40; &#58;&#58;oWnd != nil, &#58;&#58;oWnd&#58;hWnd, 0 &#41;, ;\n                           &#58;&#58;nId, @hHeap, &#58;&#58;nExStyle &#41;\n    else\n      &#58;&#58;hWnd = MGetCreate&#40; cClsName, &#58;&#58;cCaption, &#58;&#58;nStyle, ;\n                           &#58;&#58;nLeft, &#58;&#58;nTop, &#58;&#58;nRight, &#58;&#58;nBottom, ;\n                           If&#40; &#58;&#58;oWnd != nil, &#58;&#58;oWnd&#58;hWnd, 0 &#41;, ;\n                           &#58;&#58;nId, @hHeap, &#58;&#58;nExStyle &#41;\n    endif\n[/code:22ymyx2l]\n\nand finally in MGetCreate():\n\n[code:22ymyx2l]\n   #ifndef UNICODE\n   _retnl&#40; &#40; LONG &#41; CreateWindowEx&#40; _parnl&#40; 11 &#41;,\n                         _parc&#40; 1 &#41;,      // Class\n                         _parc&#40; 2 &#41;,      // Title\n                         _parnl&#40; 3 &#41;,     // Style\n                         _parni&#40; 4 &#41;,     // Left\n                         _parni&#40; 5 &#41;,     // Top\n                         _parni&#40; 6 &#41;,     // Width\n                         _parni&#40; 7 &#41;,     // Height\n                         &#40; HWND &#41; _parnl&#40; 8 &#41;,     // Parent\n                         &#40; HMENU &#41; _parnl&#40; 9 &#41;,     // Menu\n                         &#40; HINSTANCE &#41; IF&#40; ghEditDS,\n                         &#40; HINSTANCE &#41; HIWORD&#40; &#40; LONG &#41; lpPtr &#41;, GetInstance&#40;&#41; &#41;,\n         &#40; &#40; PCOUNT&#40;&#41; &gt; 9 &#41; ? _parc&#40; 10 &#41;&#58; 0 &#41; &#41; &#41;; // Address Window-Creation-Data\n   #else \n[/code:22ymyx2l]','',0,'AIA=','22ymyx2l',1,0,'',2,0,0),(5160,1252,3,2,0,'80.32.22.38',1137231893,1,0,1,1,1,1,'','','John,\n\nIf you could provide us a sample to reproduce the problem, that would help very much. Thanks.','',0,'AIA=','3pnh46gf',1,0,'',2,0,0),(5161,1249,6,63,0,'80.58.35.107',1137234682,1,0,1,1,1,0,'','','Antonio:\nLo he probado varias veces y, efectivamente, no los lee.  Te envío por privado una muestra\nRafael','',0,'AIA=','40un8mid',1,0,'',63,0,0),(5162,1244,4,3,0,'82.255.85.101',1137235880,1,0,1,1,1,0,'','Re: Serial port','[quote=&quot;EnricoMaria&quot;:1d3r086p]Thank you! But I need to know if the characters received from the serial port are displayed on the multiget. Can you test it?\n\nEMG[/quote:1d3r086p]\n\nSorry Enrico, I don\'t get exactly what you\'re looking after\n\nOnce the port opened correct (nothing is displayed in the multiget)\n\nIf you enter data in the multiget the data is kept after opening the com port\n\nRichard','',0,'gA==','1d3r086p',1,0,'',3,0,0),(5163,1244,4,6,0,'87.6.210.49',1137239976,1,0,1,1,1,1,'','Re: Serial port','I need to display in the multiget the data received from a reader device connected to the serial port.\n\nEMG','',0,'gA==','23vxq351',1,0,'',6,0,0),(5164,1262,3,154,0,'151.81.4.63',1137241002,1,0,1,1,1,1,'','Error: Unresolved external \'_HB_FUN_PRNGETPAGNUMS\' reference','This error with the last FWh Jan build and xhb last cvs.\n\nWhy?','',0,'gA==','1xju8bgb',1,0,'',154,0,0),(5165,1258,2,404,0,'85.155.215.105',1137243274,1,0,1,1,1,0,'','Estimados colegas, programadores','El problema, esta en que, sea la fuente que sea, por ejemplo: ARIAL 10.\n\nUna: [u:3hizjgqe]I[/u:3hizjgqe] no ocupa lo mismo que una [u:3hizjgqe]M[/u:3hizjgqe]. Y aunque se introducen los blancos necesarios para la justificación.\n\nLas líneas probadas, en una impresión fuera de Windows, es correcta. Pero en Windows al ser grafico. Nada de nada.\n\nOs agradecería cualquier ayuda, por pequeña que sea.\n\nSaludos.','',0,'AQ==','3hizjgqe',1,0,'',404,0,0),(5166,1254,2,404,0,'85.155.215.105',1137245010,1,0,1,1,1,0,'','No los conocía','Así que busque por Internet. Y según parece. \n\nClip Siblings: Solamente se usa para Ventanas Hijas.\n\nClip Children: Se usa para Ventanas Madre o Principal. \n\nSaludos','',0,'AQ==','1b3bfsee',1,0,'',404,0,0),(5167,1263,3,190,0,'202.65.134.46',1137246973,1,0,1,1,1,0,'','How to stop Dialog moving out of client area of a Window','Hi all\n\n1)  Is there any way to disable the \"Move\" from the System Menu of a   \n     Dialog box ?\n\n2)  Can we ristrict a dialog movement beyond the Client area of a Window.\n\n     I tried in this way:\n\n     oDlg:bMoved := {|| oDlg:Move(72,4),  SysRefresh() }\n\n     The Dialog box became movable beyond the client area, even though\n     the \"DEFINE DIALOG oDlg OF oMainWindow:oClient\" clause is used.\n\n     When the dialog is moved beyond the client area, the screen  \n     underneath the dialog is getting erased and could not be restored.  \n\nCan anybody guide me to solve the above problem(s).\n\n- Ramesh Babu P','',0,'AQ==','1oj0x1lo',1,0,'',190,0,0),(5168,1259,6,391,0,'201.221.140.82',1137248766,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:1kfjatyi]Todo aqui:\n\n[url:1kfjatyi]http&#58;//www&#46;google&#46;com/ads&#46;htm[/url:1kfjatyi][/quote:1kfjatyi]\n\nMuchas gracias rene:\n \nSi ya estoy ilustrado y tengo instalado el cliente y el servidor versión 8.0 TRIAL..\n\nAhora requiero un ejemplo en codigo para establecer la conexion con el servidor (uso xhb + fw 2.7)\n\n\nMuchas Gracias','',0,'kA==','1kfjatyi',1,0,'',391,0,0),(5169,1262,3,154,0,'151.81.4.63',1137250670,1,0,1,1,1,1,'','','Solved!','',0,'kA==','37o6irix',1,0,'',154,0,0),(5170,560,1,154,0,'151.81.4.63',1137251800,1,0,1,1,1,1,'','','[quote=&quot;Maurilio Viana&quot;:crnjhowo]Intenta esto:\n\nPienso que tal vez no funcione con FW/Clipper, solamente con FW/[x]Harbour...[/quote:crnjhowo]\n\nHi Maurilio,\nI have 2 question:\n\n1) is possible to run and stop the service with the normal windows interface?\n\n2) also an MT program (only console) is possible transform into a service?\n\nThank you,','',0,'gA==','crnjhowo',1,0,'',154,0,0),(5171,1259,6,36,0,'200.113.56.235',1137252405,1,0,1,1,1,0,'','','Armandini\n\n       Yo lo utilizo asi...\n\n[code:2f0e7hfu]#include &quot;Ads&#46;ch&quot;\n#include &quot;FiveWin&#46;ch&quot;\n\nREQUEST DBFCDX\nREQUEST OrdKeyCount, OrdKeyNo, OrdKeyGoto\nREQUEST ADSKeyNo, ADSKeyCount\nANNOUNCE RDDSYS\n\n\nprocedure main&#40;&#41;\n__rddSetDefault&#40; &quot;ADS&quot; &#41;\nrddRegister&#40; &quot;ADS&quot;, 1 &#41;\nAdsSetFileType&#40;ADS_CDX&#41;\nAdsLocking&#40; &#46;t&#46; &#41;\nAdsRightsCheck&#40;&#46;F&#46;&#41;\n\n//claro que tienes que hacer un diccionario de datos\n//con el arc, no es dificil, prueba&#46;add=diccionario de datos\n\nif !AdsConnect60&#40; \\\\servidor\\prueba&#46;add&quot;, 2, &quot;Usuario&quot;, &quot;password&quot;&#41;\n   MsgInfo&#40; &quot;Hay problemas en el servidor&quot; + CRLF+;\n                &quot;Error&#58;&quot;+cValtochar&#40; AdsGetLastError&#40;&#41; &#41;, &quot;usuario&quot; &#41;\n   PostQuitMessage&#40;0&#41;\n   QUIT\nendif\n\n//el segundo parametro es = 1 local, 2 remoto, 4 internet\n//luego que conectas te vas al  programa data architec \n// y vas a ver los pc que estan conectados, usuario y su ip\n\n//aqui tu codigo&#46;&#46;&#46;\n//bla&#46;&#46;&#46;bla&#46;&#46;\n\nreturn\n\nprocedure RddInit&#40;&#41;\nREQUEST HB_LANG_ES\nREQUEST DBFCDX, DBFFPT\nREQUEST _ADS //creo para la version 8 va sin _\nreturn[/code:2f0e7hfu]\n\nEspero que te sea de utilidad\n\nSaludos\nPatricio','',0,'AIA=','2f0e7hfu',1,0,'',36,0,0),(5172,1264,20,154,0,'151.81.4.63',1137255564,1,0,1,1,1,1,'','Dimensioni immagini','Vorrei sapere se è possibile con FWH avere le dimensioni (larghezza  e altezza) di file immagini (jpg principalmente).\n\nGrazie,','',0,'AIA=','2gan6n9i',1,0,'',154,0,0),(5173,1265,6,73,0,'201.138.166.223',1137256007,1,0,1,1,1,0,'','Foro SQL','Existe algun foro en español para SQL,MySQL,ODBC, etc...?\nsino, consideran que serian bueno que Antonio Linares creara un foro de estos para los que lo usan con fwh+Harbour/xHarbour?\nUn comentario\nSaludos\nPaco','',0,'AIA=','yv4n5agv',1,0,'',73,0,0),(5174,1146,6,171,0,'24.147.25.226',1137257153,1,0,1,1,1,0,'','','Rene\n\nMas que una respuesta en un EXCELENTE ENSAYO actualizado,  sobre motor de base de datos, lo que tu acabas de escribir. Esto es de gran importancia para cualquier programador.\n\nGracias por todos tus aporte.\n\n\nSaludos\n\n\nGeorge','',0,'AIA=','ypgjj0br',1,0,'',171,0,0),(5175,1263,3,190,0,'202.65.134.46',1137257414,1,0,1,1,1,0,'','','Hi all\n\nForget about my 2nd point in the posting.  I resolved it.\n\nStill for my academic interest, I keep my first point alive to be advised.\n\nThanks\n\n- Ramesh Babu P','',0,'AIA=','fe58aygr',1,0,'',190,0,0),(5176,1259,6,391,0,'201.221.140.82',1137258366,1,0,1,1,1,1,'','segun paso en ads','Gracias Patricio.\nTe consulto\nNo se como crear el diccionario de datos. Es este un archivo que guarda referencias a las tablas que voy a trabajar ??\n\nSi quiero que mi conexion se dirija por internet como le doy la direccion ??\n Regaleme un ejemplo de como construir el diccionario de datos y la conexion por medio de internet.\n Y si mis datos no estan en una sola carpeta que cambios debo tener en cuenta ?\n\nGracias','',0,'AIA=','1xqo1f0b',1,0,'',391,0,0),(5177,1266,6,53,0,'200.66.175.192',1137259544,1,0,1,1,1,1,'','Problemas con xHarbour','Estimados amigos:\n\nHasta la fecha he migrado mis aplicaciones de 16 a 32 bits utilizando FWH 2.5 March 2005  y HARBOUR, ahora tengo el interés de pasar a xHARBOUR perooooo, un sencillo PRG que solo crea un menu me tira el siguiente error de compilación <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FiveC.Lib|FFWndrun\n\nUtilizo VERCE 4.3 para compilar (Gracias JCSO).\n\nEn donde esta el problema ?\n\nSaludos, Armando','',0,'AIA=','1b1o53m3',1,0,'',53,0,0),(5178,1227,6,53,0,'200.66.175.192',1137259764,1,0,1,1,1,1,'','','Lafug:\n\nLamento no poder ayudarte con el problema, no uso la clase <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nSaludos, Armando','',0,'AIA=','2htr17fe',1,0,'',53,0,0),(5179,1243,3,26,0,'193.95.194.25',1137260027,1,0,1,1,1,1,'','','Hello!\n\n[quote:1l1x52bl]You are using themes, right ?[/quote:1l1x52bl]\n\nNever! All my windows xp machines look like Windows 2000/98SE...\n(I even replace boot screens and login bitmaps <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> )\n\n[quote:1l1x52bl]\nWe have modified Class TWindow to include a new DATA nExStyle. And Class TGet and Class TMultiGet now looks like this  [code:1l1x52bl]&#46;&#46;&#46;[/code:1l1x52bl]\n[/quote:1l1x52bl]\n\nSo I can integrate these changes into my sources, right?\n\nBest regards, Roman','',0,'gIA=','1l1x52bl',1,0,'',26,0,0),(5180,1267,3,154,0,'151.81.4.63',1137260618,1,0,1,1,1,1,'','Jpg Height and Width?','Hi fw\'s,\nis possible to know the dimensions (Height and Width) of an Jpg with Fwh?','',0,'gIA=','3t9p2su7',1,0,'',154,0,0),(5181,1268,3,382,0,'80.140.217.233',1137264010,1,0,1,1,1,0,'','Placing cursor in a get','I\'m using\n\n[color=red:3n9c3uyw]cVar := \"Hello\" + SPACE(15)\nREDEFINE GET oGet VAR cVar OF oDlg \noGet:bGotFocus := {||oGet:SetSel(0,0),__keyboard(CHR(VK_END))}[/color:3n9c3uyw]\n\nIf I klick in this field with the mouse, the cursor is set on the end of the edit field. But I want the cursor to be directly behind the \"o\" of \"Hello\".','',0,'Ag==','3n9c3uyw',1,0,'',382,0,0),(5182,1267,3,6,0,'87.6.210.49',1137265185,1,0,1,1,1,1,'','Re: Jpg Height and Width?','Load it in a TImage control and then use nHeight() and nWidth() methods.\n\nEMG','',0,'Ag==','dl8z6wv3',1,0,'',6,0,0),(5184,1269,3,397,0,'201.42.54.192',1137281396,1,0,1,0,1,1,'','I need examples using GetPixel and Fill Area...','Friend\n\nI\'m develop a small aplication for a t-shirt vendor and he will design and paint a model.\n\nBut i don\'t know begining.\n\nI need some examples usaing this tecniques in Fivewin.\n\nTank\'s','',0,'Ag==','pblarvru',1,0,'',397,0,0),(5185,1259,6,138,0,'201.128.111.75',1137283552,1,0,1,1,1,1,'','','El diccionario de datos se crea con la opcion DATABASE del Advantage Data Architech.\n\nLuego tienes que configurar el servidor para que la conexion por internet se realice utilizando el puerto 2001, esto se hace en el Advantage Configuration Utility que se instala al momenot de instalar el server remoto.\n\nTambien tienes abrir el puerto 2001 de tu ruteador y mediante NAT o la opcion de VIRTUAL SERVER, dirigir la entrada del puerto al equipo que tiene instalado el ADS dentro de tu red de area local.\n\nLa direccion IP del servidor se resuelve por medio del archivo ADS.INI que teine que estar en la misma carpeta donde esta el programa ejecutable. La ip remota se puede dar por medio de un nombre de dominio (google.com) o por el numero de ip (200.67.137.11)\n\nMirate estos ejemplos:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">www.google.d2g.com/ads/demos/</a><!-- w -->\n\nVienen con codigo fuente, son para varios lenguajes y tambien traen los archivos INI necesarios.','',0,'Ag==','38dre0tx',1,0,'',138,0,0),(5187,1270,6,141,0,'200.88.94.93',1137293080,1,0,1,1,1,1,'','richedit en dialogos','Hola a todos,\n\n¿ Es cierto que el control richedit no se puede insertar en dialogos?  ¿Alguien a hecho algo con esto?\n\nGracias,','',0,'Ag==','riise44s',1,0,'',141,0,0),(5188,1243,3,341,0,'200.127.71.162',1137294579,1,0,1,1,1,0,'','Floor Plan restaurant images','Dear Coleagues\n\nI need images of tables,chair,dishes,man sitting, woman sitting\nfor a restaurant aplication,where can I find  ?\n\nThanks\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'Ag==','a0xvrvla',1,0,'',341,0,0),(5189,1243,3,397,0,'201.42.52.249',1137300631,1,0,1,0,1,1,'','','Friend [b:2r220eo2]devwin2004[/b:2r220eo2]:\n\nSearch on Google first, have a lot\'s of this images:\n\n<!-- m --><a class=\"postlink\" href=\"http://images.google.com.br/imghp\">http://images.google.com.br/imghp</a><!-- m -->\n\nFriend [b:2r220eo2]modicr[/b:2r220eo2]:\n\nIf you develop in FWH, your aplications assume natural look in WinXP.\n\nI use a file .MANifest with same name of my aplication, example:\n\nSISTEMA.EXE\nSISTEMA.EXE.MANifest\n\n.MANifest Exemple:\n\n[code:2r220eo2]\n&lt;?xml version=&quot;1&#46;0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;yes&quot;?&gt;\n&lt;assembly xmlns=&quot;urn&#58;schemas-microsoft-com&#58;asm&#46;v1&quot; manifestVersion=&quot;1&#46;0&quot;&gt;\n	&lt;assemblyIdentity\n		version=&quot;1&#46;0&#46;0&#46;0&quot;\n		processorArchitecture=&quot;X86&quot;\n		name=&quot;SISTEMA&#46;EXE&quot;\n		type=&quot;win32&quot;\n	/&gt;\n	&lt;description&gt;see http&#58;//geocities&#46;yahoo&#46;com&#46;br/fivolution/\n                &lt;/description&gt;\n	&lt;dependency&gt;\n		&lt;dependentAssembly&gt;\n			&lt;assemblyIdentity\n				type=&quot;win32&quot;\n				name=&quot;Microsoft&#46;Windows&#46;Common-Controls&quot;\n				version=&quot;6&#46;0&#46;0&#46;0&quot;\n				processorArchitecture=&quot;X86&quot;\n				publicKeyToken=&quot;6595b64144ccf1df&quot;\n				language=&quot;*&quot;\n			/&gt;\n		&lt;/dependentAssembly&gt;\n	&lt;/dependency&gt;\n&lt;/assembly&gt;\n[/code:2r220eo2]','',0,'QIA=','2r220eo2',1,0,'',397,0,0),(5190,1271,1,379,0,'59.167.104.142',1137301309,1,0,1,1,1,0,'','Heirarchical Chart','Hi,\n\nI wish to display a Heirarchy Chart extending to the right and growing is \nthere something out there that can achieve this simply for me?\n\nCheers\nGerry','',0,'QIA=','16a8vl9m',1,0,'',379,0,0),(5191,756,1,397,0,'201.42.52.249',1137307202,1,0,1,0,1,1,'','','Hi [b:3bup71fk]tnhoe[/b:3bup71fk]\n\nYou have two ways\n\n1-Develop a small aplication/service in Microsoft SMS SDK to use in your aplication.\n\n2-Using Microsoft SMS Sender 1.0 tool. Is a [b:3bup71fk]free[/b:3bup71fk] small aplication for send SMS. You can download at [url=http&#58;//www&#46;soft32&#46;com/download-Microsoft_SMS_Sender-9694-5&#46;html:3bup71fk]SOFT32.com[/url:3bup71fk]\n\nOr search on Google with [b:3bup71fk]sms api[/b:3bup71fk] for more.','',0,'UA==','3bup71fk',1,0,'',397,0,0),(5192,1243,3,2,0,'80.32.22.38',1137312265,1,0,1,1,1,1,'','','Modicr,\n\n&gt; So I can integrate these changes into my sources, right?\n\nyes','',0,'UA==','1rix02mh',1,0,'',2,0,0),(5193,1252,3,2,0,'80.32.22.38',1137312319,1,0,1,1,1,1,'','','John,\n\nThanks for your emailed sample. Already fixed in your code and sent back to you.','',0,'UA==','w0emdl2u',1,0,'',2,0,0),(5194,1270,6,2,0,'80.32.22.38',1137312561,1,0,1,1,1,1,'','','Julio,\n\nEl ejemplo samples\\TestRich.prg usa un control RichEdit en una caja de diálogo.','',0,'UA==','1gti4hr8',1,0,'',2,0,0),(5195,1272,6,87,0,'83.35.215.205',1137315579,1,0,1,1,1,0,'','Exportar a Pdf','Hola amigos\n  \n    Existe alguna clase que nos permita crear archivos PDF ?\n\n  \n    Un saludo \n\n\n    Gabri','',0,'UA==','1j2c3dia',1,0,'',87,0,0),(5196,1267,3,154,0,'151.81.0.28',1137319770,1,0,1,1,1,1,'','Re: Jpg Height and Width?','[quote=&quot;EnricoMaria&quot;:1zle4n4z]Load it in a TImage control and then use nHeight() and nWidth() methods.[/quote:1zle4n4z]\n\nEnrico,\nis possible to load only in memory? \n(not in an object/resource?)\nI want use this info only for know if the image is horizontal or vertical.\n\nthank you.','',0,'gA==','1zle4n4z',1,0,'',154,0,0),(5197,1267,3,154,0,'151.81.0.28',1137322826,1,0,1,1,1,1,'','Re: Jpg Height and Width?','[quote=&quot;EnricoMaria&quot;:3jszk741]Load it in a TImage control and then use nHeight() and nWidth() methods.[/quote:3jszk741]\nEnrico,\nI test this code:\n[code:3jszk741]oImg     &#58;= TImage&#40;&#41;&#58;Define&#40; , cImage, oDlg &#41;\nnHorDim  &#58;= oImg&#58;nWidth&#40;&#41; \nnVerDim  &#58;= oImg&#58;nHeight&#40;&#41;\noImg     &#58;= Nil     // is correct for release the lib?\nMsgInfo&#40; &quot;Altezza &quot; + cValToChar&#40; nVerDim &#41; + CRLF +;\n              &quot;Larghezza &quot; + cValToChar&#40; nHorDim &#41;, &quot;&quot; &#41;[/code:3jszk741]\nbut the return is height 0 and width 0\nin cImage there is a correct path and jpg file name,\nuse the standard nviewlib;\nwhere is my error?\n\nand \n[code:3jszk741]oImg &#58;= Nil[/code:3jszk741] \nis correct to release the lib?\n\nThank you.','',0,'gIA=','3jszk741',1,0,'',154,0,0),(5198,1273,3,372,0,'83.118.100.14',1137326770,1,0,1,1,1,0,'','App \'hangs\' when using FTP','Hi,\n\nwhen using the FTP class, my app stays active as a process. I\'m not able to close it down in a proper way, like with oFTP:end() or oInternet:End().\n\nAm i missing something?\n\nThis is the example i used (please rename jpg to zip).\n<!-- m --><a class=\"postlink\" href=\"http://img462.imageshack.us/img462/244/ftp9wx.jpg\">http://img462.imageshack.us/img462/244/ftp9wx.jpg</a><!-- m -->\n\nThanks,\n\nJohn.','',0,'gIA=','2b74u9g0',1,0,'',372,0,0),(5199,1267,3,6,0,'87.1.232.50',1137328827,1,0,1,1,1,1,'','Re: Jpg Height and Width?','This is a working sample:\n\n[code:35og504s]#include &quot;Fivewin&#46;ch&quot;\n\n\nSTATIC hLib\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oImg\n\n    DEFINE DIALOG oDlg\n\n    @ 0,  1 BUTTON &quot;Sizes&quot; ACTION SHOWSIZES&#40; oDlg &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SHOWSIZES&#40; oDlg &#41;\n\n    LOCAL oImg &#58;= TImage&#40;&#41;&#58;Define&#40; , &quot;SFONDO&#46;JPG&quot;, oDlg &#41;\n\n    ? oImg&#58;nWidth&#40;&#41;, oImg&#58;nHeight&#40;&#41;\n\n    oImg&#58;End&#40;&#41;\n\n    RETURN NIL[/code:35og504s]\n\nEMG','',0,'AIA=','35og504s',1,0,'',6,0,0),(5200,1267,3,6,0,'87.1.232.50',1137328913,1,0,1,1,1,1,'','Re: Jpg Height and Width?','[quote=&quot;Ugo&quot;:2nkehx0i][code:2nkehx0i]oImg &#58;= Nil[/code:2nkehx0i] \nis correct to release the lib?[/quote:2nkehx0i]\n\nNo, you need oImg:End() or RELEASE IMAGE oImg.\n\nEMG','',0,'gIA=','2nkehx0i',1,0,'',6,0,0),(5201,1267,3,154,0,'151.81.6.71',1137332483,1,0,1,1,1,1,'','Re: Jpg Height and Width?','[quote=&quot;EnricoMaria&quot;:tsm6hh03]This is a working sample:\n...[/quote:tsm6hh03]\n\nEnrico,\nwork but in any case return 0 and 0\nit is correct?','',0,'gA==','tsm6hh03',1,0,'',154,0,0),(5202,1267,3,154,0,'151.81.6.71',1137332605,1,0,1,1,1,1,'','Re: Jpg Height and Width?','[quote=&quot;EnricoMaria&quot;:34isobwo]No, you need oImg:End() or RELEASE IMAGE oImg.[/quote:34isobwo]\n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nThank you.','',0,'gA==','34isobwo',1,0,'',154,0,0),(5203,1267,3,6,0,'87.1.232.50',1137334237,1,0,1,1,1,1,'','Re: Jpg Height and Width?','[quote=&quot;Ugo&quot;:1j5co75o][quote=&quot;EnricoMaria&quot;:1j5co75o]This is a working sample:\n...[/quote:1j5co75o]\n\nEnrico,\nwork but in any case return 0 and 0\nit is correct?[/quote:1j5co75o]\n\nWhich cases? Can I reproduce the problem? How?\n\nEMG','',0,'gA==','1j5co75o',1,0,'',6,0,0),(5204,1274,3,341,0,'200.127.71.162',1137335566,1,0,1,1,1,0,'','Floor Plan restaurant images','Dear Coleagues\n\nI need images of tables,chair,dishes,man sitting, woman sitting\nfor a restaurant aplication,where can I find ?\n\nThanks\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gA==','1ms69i6p',1,0,'',341,0,0),(5205,1266,6,53,0,'200.66.175.58',1137336920,1,0,1,1,1,1,'','','Oskar:\n\nGracias por la respuesta voy a intentarlo.\n\n\nSaludos, Armando','',0,'gA==','20gzdhik',1,0,'',53,0,0),(5206,1275,6,228,0,'201.245.222.85',1137337558,1,0,1,1,1,1,'','Campos Mysql a Dbf','Compañeros del foro como estan.\n\nLa question es la siguiente:\n\nEstoy tratando de bajar informacion de una tabla en mysql a una DBF, los campos caracter y de fecha no tienen problemas pero los campos definidos en mysql como decimal(10,0) ó Int(10), no me los deja descargar, como puedo hacer para bajar es datos?\n\nEn la DBF defini los campos como N, 14,2 pero no logro que me los reconozca alguien me puede indicar como solucionar este problema?\n\nDe antemano gracias, si saben de algun ejemplo se los agradeceria.\n\nHa trabajo con la clase nativa de mysql y fwh27','',0,'gA==','dniq7voq',1,0,'',228,0,0),(5207,1276,6,341,0,'200.127.71.162',1137339444,1,0,1,1,1,0,'','Como Puedo sumar 20 minutos a time()  eJ:time()+20','Estimados Colegas\n\nComo puedo sumar 20 minutos a time(), si alguien me puede orientar\n\ndesde ya muchisimas gracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gA==','3gjhbaho',1,0,'',341,0,0),(5208,1267,3,154,0,'151.81.6.242',1137340066,1,0,1,1,1,1,'','Re: Jpg Height and Width?','[quote=&quot;EnricoMaria&quot;:3eu3bytn]Which cases? Can I reproduce the problem? How?[/quote:3eu3bytn]\n\nYes, the case is the jpg create from my camera!   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nCan I send to your mail?','',0,'gA==','3eu3bytn',1,0,'',154,0,0),(5209,1267,3,6,0,'87.1.232.50',1137340376,1,0,1,1,1,1,'','Re: Jpg Height and Width?','Yes.\n\nEMG','',0,'gA==','i1tvg9fu',1,0,'',6,0,0),(5210,1277,6,385,0,'85.155.39.107',1137342790,1,0,1,1,1,0,'','clase texcels','Hola\n\nLa clase TExcels se puede usar con harbour, al compilarla me salen bastantes errores de compilacion\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'gA==','2hx37wji',1,0,'',385,0,0),(5211,1278,6,385,0,'85.155.39.107',1137343174,1,0,1,1,1,0,'','clase texcels','Hola\n\nLa clase TExcels se puede usar con harbour, al compilarla me salen bastantes errores de compilacion\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'gA==','1env6r5z',1,0,'',385,0,0),(5212,1272,6,138,0,'148.221.197.121',1137344634,1,0,1,1,1,1,'','','Si, la TPDF, de Luiz Rafael Culik, viene incluida en las contribuciones de (x)Harbour.','',0,'gA==','27awfd76',1,0,'',138,0,0),(5213,1276,6,53,0,'200.66.175.236',1137344936,1,0,1,1,1,1,'','','DevWin2004: (Que nombre tan raro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> )\n\nCon la función Tine() no es posible hacer operaciones pues te devuelve una cadena, te sugiero uses la función SECONDS() que te devuelve el número de segundos que han transcurrido desde la media noche, ejemplo:\n\n? TIME()         // 10:00:00\n? SECONDS() //  36000.00  (10horas * 60 Mins cada Hora * 60 segundos) \n\nEntonces;\n\nnSegundos := SECONDS() + 1200 (20mins * 60 segs cada minuto)\n\nSolo te faltará convertir nSegundos en Horas, Minutos y segundos que no debe presentarte mayor problema.\n\nSaludos, Armando','',0,'gA==','2l5gagfc',1,0,'',53,0,0),(5214,1266,6,53,0,'200.66.175.236',1137345286,1,0,1,1,1,1,'','','Oskar:\n\nTe cuento, descargue la versión 99.3 desde PuertoSur compatible con FWH 2.5 y el programa ha sido compilado con éxito, pero ahora al pasar el puntero del ratón sobre cualquier botón de la barra de botones me tira el siguiente error:\n\n\nError irrecuperable: 9014\n\nOpcode no soportado pr la VM\n\nGracias por el apoyo, Armando','',0,'gA==','1c4pg141',1,0,'',53,0,0),(5215,1231,7,262,0,'83.97.168.83',1137346468,1,0,1,1,1,1,'','','Mas con readonly , el get multilinea desde codigo no colorea como los gets normales con readonly ( con recursos no lo miré , pues los recursos los tengo parados por el fallo que pongo en el mensaje anterior )\n\n[img:3ma8onsm]http&#58;//img385&#46;imageshack&#46;us/img385/8320/captura7li&#46;jpg[/img:3ma8onsm]\n\nSaludso.','',0,'CA==','3ma8onsm',1,0,'',262,0,0),(5216,1274,3,74,0,'190.48.212.175',1137346857,1,0,1,1,1,1,'','','Dante:\n\n          I\'m just working on a restaurant and hotel software at this moment. The best you can do is to search in the internet the words \"restaurante\" or \"restaurante software\" or something similar. There you will find restaurante\'s web pages, software publicity with images it\'s images, demos you can download and you will have a lot of material.\n\n          Here you have some links:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.abcdatos.com/programas/gestion/comercios/hosteleria.html\">http://www.abcdatos.com/programas/gesti ... leria.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.acuariocomputacion.com.ar/producto.htm\">http://www.acuariocomputacion.com.ar/producto.htm</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://es.dir.yahoo.com/Economia_y_negocios/Productos_y_servicios_para_empresas__B2B_/Hosteleria/Software/\">http://es.dir.yahoo.com/Economia_y_nego ... /Software/</a><!-- m -->\n\n           Otherwise, i\'m sending to your email some images that i\'m using in my program in dll format.\n\nRegards,','',0,'CA==','1zneuq87',1,0,'',74,0,0),(5217,1279,6,203,0,'200.107.17.250',1137346999,1,0,1,1,1,0,'','error al ejecutar testxbrw','Por favor si alguien del foro me ayuda, al ejecutar testxbrw \nme ocurre el siguiente error \nNO EXPORTED METOD : OFONT\n\n\nGracias\n\nOscar','',0,'CA==','23skk5vv',1,0,'',203,0,0),(5218,1280,20,29,0,'80.181.108.140',1137355784,1,0,1,1,1,0,'','Word e il &quot;layout di stampa&quot;','Salve,\nsto cercando di aprire un file rtf da Word via ole,\nper questo nessun problema.\nVorrei però che il documento appaia visualizzato come \"Layout di stampa\" (vedi Visualizza/Layout di stampa) in microsoft word.\n\nQualcuno conosce il comando Ole per attivare la visualizzazione come \"Layout di stampa\" per il documento corrente ?\n\nGrazie in anticipo\n\nMarco Turco','',0,'CA==','2nz0w2wf',1,0,'',29,0,0),(5221,1280,20,6,0,'82.61.69.51',1137363439,1,0,1,1,1,1,'','Re: Word e il &quot;layout di stampa&quot;','Eccoti un esempio funzionante:\n\n[code:4xhdfif7]#define wdPrintView  3\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord\n\n    oWord = CreateObject&#40; &quot;Word&#46;Application&quot; &#41;\n\n    oWord&#58;Documents&#58;Add&#40;&#41;\n\n    oWord&#58;ActiveDocument&#58;ActiveWindow&#58;View&#58;Type = wdPrintView\n\n    oWord&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:4xhdfif7]\n\nEMG','',0,'AIA=','4xhdfif7',1,0,'',6,0,0),(5222,1281,6,295,0,'201.222.152.59',1137364203,1,0,1,1,1,1,'','HARBOUR EXCEPTION ...','Estimado Foro:\n\nEncontre la tFileXLS compilada para harbour en este sitio <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/\">http://www.fivewin.info/</a><!-- m -->\npero al ejecutar el programa APARECE UN DIALOGO CON LOS SIGUIENTES MENSAJES\n\nCALLED FROM HBCLASS:NEW()\nTFILEXLS(0)\nTEST2(99) \nLA LINEA 99 DICE:\nXLS oFileXLS FILE \"LISPER.XLS\" AUTOEXEC\n\nAGRADECIDO POR CUALQUIER AYUDA\n\n\n\n\n\n\n\n\n[/img]','',0,'','2wayrcm4',1,1137366505,'',295,3,0),(5223,1281,6,2,0,'80.32.22.38',1137365923,1,0,1,1,1,1,'','','Luis,\n\nNo se ve la imagen. Puedes volver a ponerla ? gracias','',0,'','3piqusf5',1,0,'',2,0,0),(5224,1281,6,295,0,'201.222.152.59',1137366566,1,0,1,1,1,1,'','','Antonio como inserto la imagen? la tengo en el portapapeles','',0,'','k1gu0mp3',1,0,'',295,0,0),(5225,1282,6,66,0,'200.127.71.162',1137371077,1,0,1,0,1,0,'','Valid , sbutton Cancel no me funciona','Estimado Colegas\n\nComo puedo hacer que me funcione cancel de sbutton y no que me\nejecute la funcion del valid,\n\nMuchas Gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n\n@ 0.8,09 Get mg2 var xmesa Of oDlg size 40,30 font oFont Picture \"999\" Valid busmes((xmesa,Odlg,mg2,nkey,xturno,xadicion),.t.) &amp;&amp; update\n\n\n@ 0.8 , 16+20 sbutton  b2 FILENAME \"ok1.bmp\"  size 24,24 OF oDlgd cancel  TEXT ON_BOTTOM NO BOX  action local(xtelefo,Odlgd,otelefo,olbx1)','',0,'','3mu5l87v',1,0,'',66,0,0),(5226,1283,2,66,0,'200.127.71.162',1137371227,1,0,1,0,1,0,'','valid, sbutton cancel no funcion','Estimado Colegas\n\nComo puedo hacer que me funcione cancel de sbutton y no que me\nejecute la funcion del valid,\n\nMuchas Gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n\n@ 0.8,09 Get mg2 var xmesa Of oDlg size 40,30 font oFont Picture \"999\" Valid busmes(xmesa,Odlg,mg2,nkey,xturno,xadicion)  \n\n\n@ 0.8 , 16+20 sbutton b2 FILENAME \"ok1.bmp\" size 24,24 OF oDlgd cancel TEXT ON_BOTTOM NO BOX action local(xtelefo,Odlgd,otelefo,olbx1)','',0,'','3dioyb0f',1,0,'',66,0,0),(5227,1244,4,68,0,'203.13.90.2',1137379777,1,0,1,1,1,1,'','','Enrico\nI\'ve compiled your program and run it with the emulator. It displays characters received OK with a few changes:\n\nTry:\n\n    WHILE nChr != 236 .OR. nChr != 10\n        nChr = ( READBYTE( hSer ) ) \n        cTxt += CHR( nChr ) \n    ENDDO \n\nPreviously this was looping so never had a chance to display.  Is it possible to transmit a \'prefix\' character before your data and a suffix character (eg Chr(10) as above) afterwards so valid data is detected more easily?  Notice that \'bin2l\' is not required.\nI use freeware \'BillSerialMonitor\' from <!-- w --><a class=\"postlink\" href=\"http://www.symcod.com\">www.symcod.com</a><!-- w --> to send test data.\nI tried using a port of Telepathy with some success but have now decided to use Antonio\'s solution as the best (as usual!).\n\nhth','',0,'','2m6279au',1,0,'',68,0,0),(5228,1244,4,68,0,'203.13.90.2',1137380346,1,0,1,1,1,1,'','','Enrico\nSorry I meant .AND.  !!\n\nWHILE nChr != 236 .AND. nChr != 10 \nnChr = ( READBYTE( hSer ) ) \ncTxt += CHR( nChr ) \nENDDO \n\nhth','',0,'','i4vtzsxk',1,0,'',68,0,0),(5229,1250,4,289,0,'212.138.64.177',1137382131,1,0,1,1,1,0,'','','thank you EMG\nShe has pulled that but  cutting off of the sound happens\nI want  function  that reads the file from  specific place and it ends in  specific place\nregards \nhathal','',0,'','2nuef4an',1,0,'',289,0,0),(5230,1230,3,160,0,'210.212.142.91',1137388720,1,0,1,1,1,0,'','','[quote=&quot;ask&quot;:137zgr2z][quote=&quot;Antonio Linares&quot;:137zgr2z]Please review this:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=2373&amp;highlight=#2373\">http://fivetechsoft.com/forums/viewtopi ... ight=#2373</a><!-- m -->[/quote:137zgr2z]\n\nBut i can\'t see it as a service inside the service manager.What is the name of the service?[/quote:137zgr2z]\n\nYou may also contact srrao in this NG as he has done it in past.\n\nHTH\n\nMilan.','',0,'gA==','137zgr2z',1,0,'',160,0,0),(5231,1250,4,6,0,'87.1.225.203',1137397274,1,0,1,1,1,1,'','','You may try using MCI but I don\'t know if it is implemented in WinCE and how.\n\nEMG','',0,'gA==','2fjdurbf',1,0,'',6,0,0),(5232,1244,4,6,0,'87.1.225.203',1137397488,1,0,1,1,1,1,'','','Thank you Jon! I will try...\n\nEMG','',0,'gA==','3j4rt03t',1,0,'',6,0,0),(5233,1281,6,2,0,'80.32.22.38',1137401775,1,0,1,1,1,1,'','','Luis,\n\nSálvala a disco como fichero JPG (usa un programa de edición de imágenes como el PSP). Una vez la tengas en disco, accede a <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y desde ahí selecciona la imagen y pulsa \"host it\".\n\nTardará un poco y te proporcionará una dirección de acceso a la imagen. Esa dirección la pones aquí. Gracias.','',0,'gA==','36owms59',1,0,'',2,0,0),(5234,1221,3,269,0,'217.37.54.49',1137402572,1,0,1,1,1,0,'','','Antonio, \n\nI have checked the DBF for the field and it does exist, I have also checked that the DBF has been placed in the correct file. Everything seems to be fine, could I have coded something incorrectly?\n\nMany Thanks','',0,'gA==','a1ohl8rs',1,0,'',269,0,0),(5235,1255,20,106,0,'85.34.123.169',1137403744,1,0,0,1,1,1,'','','Ciao Marco: guarda questo link.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=587&amp;highlight=raster\">http://fivetechsoft.com/forums/viewtopi ... ght=raster</a><!-- m -->\n\n\n\nComunque, quello trasparente e questo:\n\nSRCAND = &amp;H8800C6 8913094 combina i pixel dell\'immagine di destinazione con quelli dell\'immagine di partenza usando l\'operatore Booleano AND','',0,'gA==','1dujgtbs',1,0,'',106,0,0),(5236,1282,6,362,0,'200.168.52.156',1137409549,1,0,1,1,1,1,'','','@ 0.8 , 16+20 sbutton b2 FILENAME \"ok1.bmp\" size 24,24 OF oDlgd ;\n TEXT ON_BOTTOM NO BOX action local( (xtelefo,Odlgd,otelefo,olbx1), oDlgD:End() ) CANCEL','',0,'gA==','1izeahmn',1,0,'',362,0,0),(5237,1221,3,2,0,'80.32.22.38',1137411483,1,0,1,1,1,1,'','','Deano,\n\nYou may try to change this:\n\nREPLACE REPDETS-&gt;REP_PROOF WITH mFileProof\n\ninto this:\n\nREPDETS-&gt;REP_PROOF := mFileProof','',0,'gA==','3en32cdq',1,0,'',2,0,0),(5238,1281,6,295,0,'200.112.85.52',1137415630,1,0,1,1,1,1,'','','Aqui esta!\n\n[img][url=http&#58;//imageshack&#46;us:2dq8nqup][img]http://img32.imageshack.us/img32/849/error4ug.jpg[/img][/url:2dq8nqup][/img]','',0,'GA==','2dq8nqup',1,0,'',295,0,0),(5239,1283,2,362,0,'200.168.52.156',1137418010,1,0,1,1,1,1,'','','@ 0.8 , 16+20 sbutton b2 FILENAME \"ok1.bmp\" size 24,24 OF oDlgd ; \nTEXT ON_BOTTOM NO BOX action local( (xtelefo,Odlgd,otelefo,olbx1), oDlgD:End() ) CANCEL','',0,'GA==','1zsvak8k',1,0,'',362,0,0),(5240,1280,20,29,0,'80.181.108.140',1137421586,1,0,1,1,1,0,'','','Funziona, tuttavia mi appare in modo random il messaggio di errore\n\n***\nApplication\n===========\n   Path and name: K:\\pigc\\PIGC.Exe (32 bits)\n   Size: 6,569,472 bytes\n   Time from start: 0 hours 0 mins 37 secs \n   Error occurred at: 16/01/06, 12:54:13\n   Error description: Error Word.Application:ACTIVEDOCUMENT/1  Unknown error: ACTIVEWINDOW\n   Args:\n\nStack Calls\n===========\n   Called from TOLEAUTO:ACTIVEWINDOW(0)\n\n***\n\ned inoltre, dovendo richiamare la funzione più volte con difersi file rtf da aprire, non dovrei chiudere l\'oggetto per non saturare la memoria ?\nVedi funzione  Displayrtf in basso.\n\nMarco\n\n\n\n\nfunction DisplayRtf(cRtfFileName)\n\nlocal oWord\nlocal wsPrintView:=3\n\n    oWord := CreateObject(\"Word.Application\")\n    oWord:Documents:Open(cRtfFileName)\n    oWord:ActiveDocument:ActiveWindow:View:Type = wsPrintView\n    oWord:Visible:=.t.\nreturn nil','',0,'GA==','39mvw0vf',1,0,'',29,0,0),(5241,1284,6,228,0,'201.245.222.85',1137422005,1,0,1,1,1,1,'','Antonio.. tienes un ejemplo completo de mysql y xharbour','Antonio como vas, espero que bien.\n\nNecesito un favor, lo que pasa es que por ahi buscando encontre un manual para mysql y habour. De causalidad no tienes uno para xhabour o me sirve el mismo?\n\nDe antemano gracias','',0,'GA==','3p7i7ze8',1,0,'',228,0,0),(5242,1285,6,295,0,'200.50.127.186',1137422208,1,0,1,1,1,1,'','Clase Excel para xHarbour','Hola a todos, mi inquietud hoy en dia pasa por lo siguiente:\n   LLevo aproximadamente una semana tratando de que me funcione un programa con alguna clase de Excel, y el avance es muy lento debido a que no encuentro todos los elementos.\n\n   Ya que a estas alturas he recibido informacion de la clase Excel Script proporcionada por Victor, que me funciono bien, pero no se si funcionan los bordes, tamaños, fuentes, etc\n\n   Me han indicado que la clase de Ramon Avendaño me serviria, pero no logro hacer que funcione, porque me faltan los programas para generar los elementos basicos para hacerlo funcionar segun RF.\n\n   Y tambien otra clase que funciona con TOle y en harcbur.\n\n   Es por eso que me atrevo a plantear lo siguiente, cual es la mejor clase de Excel que me puede servir y saber donde obtengo la documentacion y programas para que esto funcione correctamente. Lamentablemente no poseo todo el tiempo del mundo para estar investigando.\n\n   A lo mejor falta un muy buen manual de uso y trucos para hacer compatibles los programas de fiveWin con xHarbour.','',0,'GA==','186oae9j',1,0,'',295,0,0),(5243,1280,20,6,0,'87.1.225.203',1137423238,1,0,1,1,1,1,'','','Prova così:\n\n[code:1iudu57a]#define wdPrintView  3\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord\n\n    TRY\n        oWord = GETACTIVEOBJECT&#40; &quot;Word&#46;Application&quot; &#41;\n    CATCH\n        oWord = CREATEOBJECT&#40; &quot;Word&#46;Application&quot; &#41;\n    END\n\n    oWord&#58;Documents&#58;Add&#40;&#41;\n\n    oWord&#58;ActiveDocument&#58;ActiveWindow&#58;View&#58;Type = wdPrintView\n\n    oWord&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:1iudu57a]\n\nEMG','',0,'AIA=','1iudu57a',1,0,'',6,0,0),(5244,1275,6,43,0,'201.127.19.186',1137424054,1,0,1,1,1,0,'','','Hola Leandro:\n\n    Como fue que creaste tus tablas en MySQL, yo utilizo tmysql y todo va bien, incluso con campos numericos sin decimales.\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'AIA=','1i29qg3b',1,0,'',43,0,0),(5245,1285,6,18,0,'200.67.188.236',1137425052,1,0,1,1,1,1,'','Re: Clase Excel para xHarbour','Lafug :\n\nLa clase TExcelS que te envíe, contiene más de 15 ejemplos entre los que se incluyen las propiedades que necesitas.\n\nNo es mi intención ser grosero, pero si te tomas un poco de tiempo en probar los ejemplos y revisar los métodos te darás cuenta de que puedes hacer lo que necesitas.\n\nCon calmita y salivita todo funciona en tiempo y forma.','',0,'AIA=','3a99b5d7',1,0,'',18,0,0),(5246,1277,6,255,0,'200.67.134.233',1137425357,1,0,1,1,1,1,'','Re: clase texcels','[quote=&quot;josei&quot;:2ekqfnut]Hola\nLa clase TExcels se puede usar con harbour, al compilarla me salen bastantes errores de compilacion\nAtentamente\nJose Ignacio Jimenez Alarcon[/quote:2ekqfnut]\n\nQue clase de errores?\nComo la estás compilando?','',0,'gA==','2ekqfnut',1,0,'',255,0,0),(5247,1273,3,110,0,'165.98.151.243',1137426378,1,0,1,1,1,1,'','','John\n\ninclude this line in you app\n\nexternal dbfcdx, dbffpt\n\ni you not include the dbffpt tha app crash at try open a dbf with memo field.\n\nsorry for my bad english\n\nsalu2\ncarlos vargas','',0,'gA==','831bwet4',1,0,'',110,0,0),(5248,1286,2,409,0,'201.246.67.45',1137426383,1,0,1,1,1,0,'','CONTROL DE FOLDER','Hola amigo bueno mi consulta es la siguiente:\ntengo una base BASE.DBF con dos campos\n\nCODIGO DETALLE \nT-01 ... \nT-02 .... \n\nT-11 ... \nT-12 ... \n\nD-01 \nD-02 \n\nD-21 \nD-22 \nBueno la idea es que tengo dos pestañas en el folder ejemplo \nUNO Y DOS \nquiero q en la primera pestaña me aparezca en dos browse distinto : \nbrowse 1 T-01 T-02 son 2 Listbox \nbrowse 2 T-11 T-12 \n\nen la segunda pestaña lo mismo \nbrowse 1 D-01 D-02 \nbrowse 2 D-21 D-22 son 2 listbox \n\nespero que me entiendan la ayuda desde ya gracias \nSaludos','',0,'gA==','1lmd5osv',1,0,'',409,0,0),(5249,1243,3,26,0,'193.77.229.30',1137426951,1,0,1,1,1,1,'','','Hello!\n\nWhen I want to compile new mgetcrea.c, \n\n[quote:x33skhvk]cl.exe -TP -W3 -c /GA mgetcrea.c[/quote:x33skhvk]\n\nI receive following error:\n\n[quote:x33skhvk]mgetcrea.c(23) : error C3861: \'LocalInit\': identifier not found, even with argument-dependent lookup[/quote:x33skhvk]\n\nRoman','',0,'gA==','x33skhvk',1,0,'',26,0,0),(5250,1275,6,228,0,'201.245.222.85',1137427151,1,0,1,1,1,1,'','Marco, lo que necesito es lo siquiente','Mira marco lo que necesito es descargar la informacion que tengo una base de datos de mysql.\n\ny lo que me sucede es lo siguiente: \n\nCuando intento crear la DBF de la siguiente manera me arroja un error de argumento.\n\nDBCreate(\"c:\\tmpmysql.dbf\",aStruc)\n\nDonde aStruc es un array que capturo de la siguiente manera:\n\naStruc := oServer:TableStruct( cTBName )\n\nPara resolver el problema me toco hacerlo de la siguiente manera:\n\n  DbCreate( \"c:\\tmpmysql.dbf\", { { \"cedula\",\"C\", 15,0},;\n		                 { \"nombre\",\"C\", 40,0},;\n			 { \"direcc\",\"C\",150,0},;\n			 { \"tele1\" ,\"C\", 50,0} } )\n\n   DBCloseAll()\n   USE c:\\tmpmysql.dbf ALIAS \"tmp\" NEW SHARED\n   oQuery := oServer:Query( \"SELECT * from \" + cTBName )\n\nAsi me crea la base de datos y me baja la información. Pero cuando me encuentro con algun campo numerico, sale error. y no me llena la base de datos. ¿Como puedo resolver este problema?','',0,'gA==','3kebtfai',1,0,'',228,0,0),(5251,1277,6,385,0,'85.155.37.58',1137427303,1,0,1,1,1,0,'','','Hola\n\nPues la orden de compilacion es\n\n\nharbour %1 /n /i..\\include;c:\\harbour25\\include /p %2 %3 &gt; clip.log\n\ny los errores son de sintaxis...exactamente el TRY...CATH\n\ntexcels.prg(254) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(258) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(259) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(263) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(266) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(267) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(1106) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(1109) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\ntexcels.prg(1111) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n\nAtentamente\n\nJose Ignacio Jimenez Alarcon','',0,'gA==','3o0qukwe',1,0,'',385,0,0),(5252,1281,6,2,0,'80.32.22.38',1137428164,1,0,1,1,1,1,'','','Luis,\n\nLa clase TFileXls está compilada con la misma versión de Harbour que estás usando ?','',0,'gA==','1quzsayd',1,0,'',2,0,0),(5253,1277,6,18,0,'200.67.188.236',1137428255,1,0,1,1,1,1,'','','José :\n\nEsas son extenciones de xHarbour, para que no tengas problema agrega __HARBOUR__ en la compilación de la clase, de esa forma el compilador ignorara esos procesos y tomará las instrucciones para usar la clase Ole de Harbour.','',0,'gA==','8czkjx1l',1,0,'',18,0,0),(5254,1282,6,40,0,'201.132.142.147',1137428468,1,0,1,1,1,0,'','','Fabian vas a tener que modificar la clase Control el método KillFocus agrega TSButton como en este ejemplo :\n\nMETHOD KillFocus( hCtlFocus ) CLASS TControl\n\n   local oWnd\n\n   if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ;\n      ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ;\n      Upper( oWnd:Classname() ) $ \"TBUTTON;TBTNBMP;TSBUTTON\" .and. ;\n      ( oWnd:lCancel != nil .and. oWnd:lCancel .and. ;\n        ( ::oWnd:nLastKey != VK_TAB .and. ::oWnd:nLastKey != VK_RETURN .and. ;\n          ::oWnd:nLastKey != VK_DOWN .and. ::oWnd:nLastKey != VK_UP ) )            // JAAM Agregue \";TSBUTTON\" para que le haga caso a\n      ::oWnd:lValidating = .t.                                                     // la clusula CANCEL en los botones\n      ::oWnd:nLastKey := 0\n      ::ForWhen()\n      ::oWnd:lValidating = .f.\n      ::LostFocus()\n      return nil\n   else\n      if Upper( GetClassName( hCtlFocus ) ) == \"TBTNBMP\"\n         ::oWnd:nLastKey := 0  // it fixes TBtnBmp CANCEL clause\n      endif\n   endif\n\n                                 // in FiveWin++ lValidating comes as nil sometimes\n   if ! Empty( hCtlFocus ) .and. ( ::oWnd:lValidating == nil .or. ! ::oWnd:lValidating ) ;\n      .and. IsWindowVisible( ::oWnd:hWnd ) .and. WndParents( hCtlFocus, ::hWnd )\n      PostMessage( ::hWnd, FM_LOSTFOCUS, hCtlFocus )\n   endif\n\nreturn ::LostFocus( hCtlFocus )\n\nSaludos\nJoel Andujo','',0,'gA==','p8z2tb4h',1,0,'',40,0,0),(5255,1287,6,40,0,'201.132.142.147',1137428812,1,0,1,1,1,0,'','Cambiar color en Buttonbmp de Rossine o en Button de FWH ?','Buenos días foro, saben se se puede cambiar el color de un botón\nEn ButtonBMP de Rossine o Button de FWH\n\nSaludos y gracias de antemano\nJoel Andujo','',0,'gA==','2og3ojxa',1,0,'',40,0,0),(5256,1288,3,303,0,'68.7.28.54',1137430126,1,0,1,1,1,0,'','xHarbour project link errors','I have been using Harbour and now I am trying to get started with xHarbour. I am getting the following errors:\n\nProject: TTest, Environment: FWxH:\niLink32.Exe -Gn -aa -Tpe -s @TTest.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_DBG_VMSTKLCOUNT\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMPARLLIST\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMVARLGET\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMVARSLEN\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR \n\nI am using FWH 2.6, May 2005 build. The xHarbour ver is 0.92.0 which has a file date of 1/5/2004. Also Borland C. I am wondering if I need a newer version of the xHarbour compiler? Does anyone have a version that they know is compatible with FWH 2.6? If so, could you mail me a copy? I can\'t find one on the net anywhere. Or can I use the latest version of xHarbour?\n\nI am also using xMate which is new to me. Perhaps I have it configured wrong. I found it strange that xMate came pre-configured for about 20 environments but none of them were for FW, FWH, or FWxH. I am linking in the VM.LIB which looks like the one that is the problem.\n\nAny other ideas?\n\nJames','',0,'gA==','luqo9lgc',1,0,'',303,0,0),(5257,1289,6,328,0,'200.12.61.91',1137430458,1,0,1,1,1,0,'','SET MULTIPLE OFF','Hola,\ncreo que esta pregunta ya la hicieron anteriormente pero no encuento el mensaje, pero necesito que mi aplicación hecha con FWH+xHarbour no se ejecute dos veces en la misma computadora, y SET MULTIPLE OFF no funciona con xharbour.\nAlguien me puede dar de nuevo la solución, Gracias.\n\nCarlos Sincuir','',0,'gA==','204ii2jj',1,0,'',328,0,0),(5258,1288,3,6,0,'87.1.225.185',1137430801,1,0,1,1,1,1,'','Re: xHarbour project link errors','If I remember correctly, you can define those functions as empty functions.\n\nEMG','',0,'gA==','21qxnur6',1,0,'',6,0,0),(5259,1281,6,295,0,'200.112.85.52',1137432249,1,0,1,1,1,1,'','','Antonio, \nEsta la bajé de <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info\">http://www.fivewin.info</a><!-- m --> y no especifica en que versión de harbour está compilada, solo especifica que es para harbour <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','1xlyz17b',1,0,'',295,0,0),(5260,1273,3,372,0,'83.118.100.14',1137432610,1,0,1,1,1,0,'','','Hi Carlos,\n\ni\'m not using cdx, but ntx in my own app... Any other suggestions?\n\nThanks,\n\nJohn.','',0,'gA==','344cagov',1,0,'',372,0,0),(5261,1281,6,2,0,'80.32.22.38',1137433315,1,0,1,1,1,1,'','','Supongo que estarán incluidos todos los fuentes por lo que podrias compilarlos con la versión de Harbour que estás usando.','',0,'gA==','3s6rain0',1,0,'',2,0,0),(5262,1289,6,2,0,'80.32.22.38',1137433436,1,0,1,1,1,1,'','','Carlos,\n\nIF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )\n   RETURN NIL\nENDIF','',0,'gA==','1d7lfkms',1,0,'',2,0,0),(5263,1287,6,2,0,'80.32.22.38',1137433612,1,0,1,1,1,1,'','','Joel,\n\nQue color del botón ? El color del texto ?','',0,'gA==','r0m2jd3r',1,0,'',2,0,0),(5264,1281,6,295,0,'200.112.85.52',1137433998,1,0,1,1,1,1,'','','Lamentablemente no, sólo :\nFileXls.Lib\nFileXls.ch\nXlsForm.ch\nXlsError.ch','',0,'gA==','o0nwk813',1,0,'',295,0,0),(5265,1290,6,57,0,'81.34.176.143',1137434418,1,0,1,1,1,0,'','Statusbar no muestra la segunda parte','Antonio\nEs estraño, pero si ejecuto el codigo adjutno la Statusbar que deberia mostrar 2 particiones con 2 textos diferentes, solamente muestra la primera.\n\nSaludos\n\n// Testing GETs\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n   LOCAL oDlg, oGet\n   LOCAL cCad := \"Testing    \" // pad(\"Testing Gets\",40)\n   LOCAL nNum := 0\n   LOCAL dDat := Date()\n\n   Set century On\n   Set Date Ansi\n   Set Date format \"mm/dd/yyyy\"\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg TITLE \"TGet from \" + FWDESCRIPTION\n   @ 1,    2 SAY \"Text..:\" OF oDlg\n   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR \"W/G\" PICTURE \"@K\"\n   @ 1.8,  2 SAY \"Number:\" OF oDlg\n   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE \"9999999.99\"\n   @ 2.6,  2 SAY \"Date:\" OF oDlg\n   @ 3,    6 GET oGet VAR dDat PICTURE \"@E\" OF oDlg SIZE 60, 10 WHEN .f. // \"@D\"\n   oGet:lDisColors = .f. // don\'t use standard disabled colors\n   @ 3,    7 BUTTON \"&amp;Ok\" OF oDlg SIZE 30, 12 ACTION oDlg:End()\n   @ 3,   16 BUTTON \"&amp;Cancel\" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT TStatusBar():New(oDlg,\"  Win32 StatusBar\",{200,150},{\"  Win32 StatusBar\",\"Two\"},)\n\nreturn nil','',0,'gA==','2d7nob99',1,0,'',57,0,0),(5266,1287,6,40,0,'201.132.142.147',1137434857,1,0,1,1,1,0,'','','Al Texto, si te puede al boton tambíen. gracias\n\nJoel','',0,'gA==','15zhgud0',1,0,'',40,0,0),(5267,1291,6,40,0,'201.132.142.147',1137435262,1,0,1,1,1,0,'','Creando botones desde la Aplicación...','Foro buenos dias de nuevo, tengo un detalle\nEstoy creado unos botones desde la aplicación, pero no logro definir \nel ACTION, es decir no se ejecuta la que le defino\neste es mi código :\n\n*---// recorro los botones del dialogo y les asigno su Action\nfor i:=1 to len(oDlg:aControls[i])\n    oDlg:aControls[i]:bAction:={|nId| ::PutVal(oDlg:aControls[i]:cTitle) }\nnext\n\n*----------------------------*\nMETHOD PutVal(cTitle) CLASS TBmpGet\n ? cTitle\nretu Nil\n\ncuendo clikeo sobre los botones siempre me muestra el últimi\ncTitle y no el de cada uno de ellos alguna sugerencia\n\nSaludos \nJoel Andujo','',0,'','1ikaqqjf',1,0,'',40,0,0),(5268,1288,3,303,0,'68.7.28.54',1137435265,1,0,1,1,1,0,'','','Enrico,\n\nOK, here is my entire program:\n\n[code:2k9xr43j]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   msgInfo&#40;&quot;Hello World&quot;&#41;\nreturn nil\n\nfunction hb_dbg_vmstklcount&#40;&#41;\nreturn nil\nfunction hb_dbg_vmparllist&#40;&#41;\nreturn nil\nfunction hb_dbg_vmvarlget&#40;&#41;\nreturn nil\nfunction hb_dbg_vmvarslen&#40;&#41;\nreturn nil[/code:2k9xr43j]\nI also eliminated xMate and I am just using buildx.bat. The program compiles without error, but when I run it, nothing happens (I don\'t get the \"Hello World\" message).\n\nAny more ideas?\n\nJames','',0,'AIA=','2k9xr43j',1,0,'',303,0,0),(5269,1288,3,2,0,'80.32.22.38',1137436384,1,0,1,1,1,1,'','','James,\n\nI assume you are using /n at buildx.bat when compiling, right ?','',0,'AIA=','3mdh0wy1',1,0,'',2,0,0),(5270,1287,6,2,0,'80.32.22.38',1137436589,1,0,1,1,1,1,'','','Joel,\n\nEn los cambios de Rossine prueba esto:\n\n[code:1q8o36nu]\nMETHOD Paint&#40;&#41; CLASS TButtonBmp\n\n   local aInfo &#58;= &#58;&#58;DispBegin&#40;&#41;\n   local nTop, nLeft, lPressed\n\n   SetTextColor&#40; &#58;&#58;hDC, nColorQueQuieres &#41;  // NUEVO!!!\n   CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   &#46;&#46;&#46;\n[/code:1q8o36nu]','',0,'AIA=','1q8o36nu',1,0,'',2,0,0),(5271,1273,3,2,0,'80.32.22.38',1137436805,1,0,1,1,1,1,'','','John,\n\nWe are going to review it as soon as possible.','',0,'AIA=','3ev96wya',1,0,'',2,0,0),(5272,1288,3,303,0,'68.7.28.54',1137437020,1,0,1,1,1,0,'','','Antonio,\n\nYes, I am using the /n in the standard buildx.bat with only slight modifications for paths. Here is the line from the file:\n\n%hdir%\\bin\\harbour %1 /n /i%hdir%\\include;%fwdir%\\include /w /p %2 %3 &gt; clip.log\n\nJames','',0,'AIA=','ayf1bccb',1,0,'',303,0,0),(5273,1271,1,2,0,'80.32.22.38',1137437092,1,0,1,1,1,1,'','','Gerry,\n\nYou may review samples\\chart2fx samples. Here you have a sample of what you can get:\n\n[url=http&#58;//imageshack&#46;us:2bxkuhyz][img:2bxkuhyz]http&#58;//img13&#46;imageshack&#46;us/img13/285/image19rb&#46;jpg[/img:2bxkuhyz][/url:2bxkuhyz]','',0,'GA==','2bxkuhyz',1,0,'',2,0,0),(5274,1288,3,2,0,'80.32.22.38',1137437289,1,0,1,1,1,1,'','','James,\n\nI would suggest you to use the most recent xHarbour version, tested by FiveTech, that can be downloaded from:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\n\nand FWH 2.7 january 2006.','',0,'GA==','300ct5bk',1,0,'',2,0,0),(5275,1292,6,43,0,'201.127.19.186',1137437340,1,0,1,1,1,0,'','Menu.... ha habilitado....','Hola...\n\n    tengo un menu.... que hago en una barra de tsbutton...pero en un submenu no lo pinta como desabilitado (obviamente no ejecuta la accion) pero se ve algo....raro....\n\n   alguien...sabe..porke...\n\nSaludos\n\n Marco A. Delgado.\n\n[img][url=http&#58;//imageshack&#46;us:391h7uhe][img]http://img17.imageshack.us/img17/8913/menus7ob.jpg[/img][/url:391h7uhe][/img]','',0,'GA==','391h7uhe',1,0,'',43,0,0),(5276,1281,6,2,0,'80.32.22.38',1137437525,1,0,1,1,1,1,'','','Luis,\n\nTendrás que contactar con su autor y pedirle que te proporcione los fuentes ó una versión actualizada con el nuevo build de Harbour que puedes descargar desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'GA==','2pup3uus',1,0,'',2,0,0),(5277,1290,6,2,0,'80.32.22.38',1137437632,1,0,1,1,1,1,'','','Toni,\n\nlas distancias de los items no son acumulativas, por lo que prueba a usar:\n\n{200,350} en vez de {200,150}\n\nó la segunda parte se situará \"debajo\" de la primera.','',0,'GA==','b5dkmkpw',1,0,'',2,0,0),(5278,1292,6,2,0,'80.32.22.38',1137437817,1,0,1,1,1,1,'','','Marco,\n\nNo es el menu estandard de FWH, si ?','',0,'GA==','27r7wjz2',1,0,'',2,0,0),(5279,1291,6,2,0,'80.32.22.38',1137438084,1,0,1,1,1,1,'','','Joel,\n\nEl codeblock te está manteniendo el último valor de i. Tienes que usar lo que se denomina \"detached locals\":\n\noDlg:aControls[i]:bAction:= GenBlock( oDlg, i, Self )\n\n...\n\nfunction GenBlock( oDlg, i, Self )\n\nreturn {|nId| ::PutVal(oDlg:aControls[i]:cTitle) }','',0,'','2w4kft9s',1,0,'',2,0,0),(5280,1284,6,2,0,'80.32.22.38',1137438182,1,0,1,1,1,1,'','','Leandro,\n\nDebería servirte el mismo. De todas formas el \"gurú\" del MySQL es Manú Expósito.','',0,'','2ilm35re',1,0,'',2,0,0),(5281,1279,6,2,0,'80.32.22.38',1137438274,1,0,1,1,1,1,'','','Oscar,\n\nPuedes mostrar aqui la lista completa de llamadas que se muestran al generarse el error (lo que se llama el \"calls stack\") ? gracias','',0,'','38dz4v32',1,0,'',2,0,0),(5282,1265,6,2,0,'80.32.22.38',1137438350,1,0,1,1,1,1,'','','Paco,\n\nLa idea es buena aunque podríamos esperar a que hubiese más actividad en ese tema para crear el foro.','',0,'','3lm51hmb',1,0,'',2,0,0),(5283,1293,2,348,0,'201.230.65.83',1137438911,1,0,1,1,1,0,'','Me quede sin memoria para correr mi prg ???','Buenos Dias,\n\nEstoy creando un sistema y todo fue bien hasta que al agregar un nuevo modulo de mantenimiento de una base de datos, y al compilarlo y linkerarlo no me sale ningun error ni en la compilacion ni likeo,  pero cuando lo ejecuto  sale el Mensaje  \n\n    No se puede ejecutar un programa de Windows 16\n\n        Memoria insuficiente para ejecutar esta aplicacion, cierre una o mas aplicaciones y vuelva a intentar la operacion.\n\n\nDatos adicionales del problema: \nEl programma Exe tiene un tamaño de 1,043,800 bytes \nuso Clipper 5.2  y FiveWin 2.3  con BLinker 4.0 \nen Windows XP\n\n\nLa pregunta obvia,  debere de partir mi ejecutable en otros exes??? \no existira algun parametro que me permita saltar esta restriccion de memoria.\n\nAgradecere una luz en  el camino..\n\nMuchas gracias por adelantado\n\nLubin','',0,'','1i6thqqz',1,0,'',348,0,0),(5284,1291,6,40,0,'201.132.142.147',1137439212,1,0,1,1,1,0,'','','Gracias Maestro, eso era \n\nSaludos\nJoel Andujo','',0,'','287osyi5',1,0,'',40,0,0),(5285,1284,6,404,0,'213.231.101.107',1137441571,1,0,1,1,1,0,'','Muy cierto.','Puedes utilizar Eagle1 y Condor1 de Manuel Expoxito. \n\nLo puedes encontar en: \n\n<!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/eagle1/\">http://es.groups.yahoo.com/group/eagle1/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/condor1/\">http://es.groups.yahoo.com/group/condor1/</a><!-- m -->\n\nSaludos, José Mª','',0,'','3eg8ocmz',1,0,'',404,0,0),(5286,1279,6,203,0,'200.107.17.217',1137443173,1,0,1,1,1,0,'','','Gracias es este\n\nStack Calls\n===========\n   Called from OFONT(0)\n   Called from MENUMEASUREITEM(2081)\n   Called from TWINDOW:MEASUREITEM(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(60)\n\n\nSaludos \n\nOscar','',0,'','2mu3x6fk',1,0,'',203,0,0),(5287,1294,19,123,0,'83.45.100.209',1137443837,1,0,1,1,1,0,'','Reunión Levante 3000 el 28 de Enero','Hola a todos,\n\nEl grupo LT3000 se reune el 28 de Enero en Murcia.  Será una reunión\n(como las anteriores) de carácter informal.  No hay un temario definido.\nPero haremos algo que nos gusta: hablar de xbase.\n\nOs animo a que vengais a esta reunión.  Hablaremos de (x)harbour,\nFWH, y otros GUIS (T-Gtk, C3, VHX).  Además, en esta reunión, comenzaremos a hablar de Pocket PC y las gui\'s para PPC.\n\nTenemos confirmadas la presencia de programadores tales como Walter Negro (mediante video-conferencia), René M. Flores (también por video conferencia), y otros que quedan por confirmar.\n\nEl evento comenzará aproximadamente sobre las 10 de la mañana hasta las 18-19 horas de la tarde.  Habrá una pausa para la comida de dos horas.\n\nNo hay conste de inscripción.  Lo único que se ha de pagar es el\nrestaurante (precio por determinar).\n\nSi estais interesados, poneros en contacto conmigo a: capelsoft ARROBA\nterra.es.\n\nOs espero!!\n\nSaludos,\nJosé Luis Capel','',0,'','32oivlx3',1,0,'',123,0,0),(5288,1265,6,123,0,'83.45.100.209',1137443931,1,0,1,1,1,0,'','','Antonio,\n\nYo me uno a la petición... Con ADO el tema de Sql es fundamental.\n\nSaludos,\nJosé Luis Capel\nPD: ver <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=5287#5287\">http://fivetechsoft.com/forums/viewtopi ... =5287#5287</a><!-- m -->','',0,'','2f9yoqe5',1,0,'',123,0,0),(5289,1284,6,123,0,'83.45.100.209',1137444032,1,0,1,1,1,0,'','','Leandro,\n\nOtra opción que puedes valorar es usar ADO para acceder a MySql.  \n\nSaludos,\nJosé Luis Capel\nPD: Ver <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=5287#5287\">http://fivetechsoft.com/forums/viewtopi ... =5287#5287</a><!-- m -->','',0,'','n4k9wory',1,0,'',123,0,0),(5290,1292,6,43,0,'201.127.19.186',1137447022,1,0,1,1,1,0,'','','no entiendo tu respuesta Antonio.\n\n   me dices que el menu que utilizo pertenece a la clase tsbutton\n\nSaludos\n\n  Marco A. Delgado.','',0,'','1tslk8nf',1,0,'',43,0,0),(5291,1265,6,255,0,'200.67.134.233',1137448199,1,0,1,1,1,1,'','','[quote=&quot;jlcapel&quot;:1qvfi0xx]Antonio,\nYo me uno a la petición... Con ADO el tema de Sql es fundamental.\nSaludos,\nJosé Luis Capel\nPD: ver <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=5287#5287\">http://fivetechsoft.com/forums/viewtopi ... =5287#5287</a><!-- m -->[/quote:1qvfi0xx]\n\nAprovecho la ocasion...\nJose Luis, tendrás un ejemplo de Ado con MySQL\nyo actualmente trabajo con ODBC pero por los\ncomentarios que he visto es mas rápido a través\nde ADO, es esto correcto? de ser asi, podrias enviarme\nun pequeño ejemplo de como hacerlo?\n\nGracias\njcso @ esm.com.mx','',0,'gA==','1qvfi0xx',1,0,'',255,0,0),(5292,1288,3,35,0,'65.188.6.143',1137450482,1,0,1,1,1,0,'','','James\n\nI just sent you by private e-mail the FWH27, xHarbour 99.51 ( borland and msvc ) xMate environments.\n\nFWH27 and the latest cvs 99.51 have to be used together .. lots of changes made to xHarbour and FWH... ( ie .. dbfdbt is no longer needed .. pcrepos and hbsix supersceed )\n\nIf you are using FWH26 .. delete the hbsix and pcrepos libs from the environments and replace with dbfdbt.\n\nHope this helps.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','oaes87ir',1,0,'',35,0,0),(5293,1271,1,379,0,'59.167.116.116',1137451531,1,0,1,1,1,0,'','','Hi Antinio,\n\nNo I do not need graphs I am after a structure chart, like what is used for an organisation. \n\nCheers\nGerry[/img]','',0,'','30akpbqu',1,0,'',379,0,0),(5294,1295,6,156,0,'201.245.226.134',1137452164,1,0,1,1,1,0,'','Problema con Scroll en TImage','Hola amigos:\n\nEn un Dlg tengo un objeto TImage cuyas dimensiones son menores que la imagen que carga. El usuario debe moverse por la imagen con el Scroll Vertical, pero éste no responde ni con el MouseWheel ni con el boton móvil del scroll. Regresa como resorte. Sólo responde si se pulsa en en el botón superior o en el botón inferior del Scroll, lo cual es muy tedioso. Lo mismo pasa con TBitmap. \n\nHay alguna manera de solucionarlos ?\n\nGracias por su ayuda.\n\nFWH 2.6, xHarbour 99.51 y Borland C++ 5.5.1\n\nSaludos,\n\nCarlos Gallego','',0,'','c7s2ncox',1,0,'',156,0,0),(5295,1277,6,385,0,'85.155.37.58',1137452190,1,0,1,1,1,0,'','','Hola\n\nGracias por las respuestas...pero...donde y como se pone _HARBOUR_ en la linea de compilacion?\n\nAtentamente\nJose ignacio Jimenez Alarcon','',0,'','1hqgm5i9',1,0,'',385,0,0),(5296,1292,6,43,0,'201.127.19.186',1137453265,1,0,1,1,1,0,'','','gracias.....por tu respuesta Antonio\n\n\n   cheque los ejemplos de fwh y todos funcionan correctamente, seguire probando...\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'','237nuc37',1,0,'',43,0,0);
INSERT INTO `phpbb_posts` VALUES (5297,1296,6,40,0,'201.132.142.147',1137454846,1,0,1,1,1,0,'','TBmpGet con DatePick','Foro buenas tardes después de lo mucho que me han ayudado, es hora de aportar algo pequeño pero de gran utilidad, al menos para Mi.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEs la la famosa clase de Juan Galvez TBmpGet, con algunas mejoras entre ellas :\n\nAhora con un click Derecho nos muestra un Calendario del cual podemos seleccionar una fecha,  con la opción de ir recorriendo los meses del año \npor medio de un boton.\n\nTambien estoy por incluir la calculadora con un funcionamiento similar al del calendario.\n\nSaludos y espero le sirva\nJoel Andujo\n\nPD Uso FWh24, xHarbour Build 0.99.50 (SimpLex)\n\n[code:7138kyyx]\n************************************************************************\n*                                                                       *\n*  Clase &#58; TBmpGet                                                      *\n*  Autor &#58; Juan Gálvez - soporte@dsgsoftware&#46;com                        *\n*  Fecha &#58; 10-09-2001                                                   *\n*                                                                       *\n*  Agiliza la implementación de la original idea de Jorge Mason Salinas *\n*  de insertar un bitmap en el interior de un get con el fin de evaluar *\n*  un bloque de código que nos permita seleccionar su valor&#46;            *\n*                                                                       *\n*  ----------- 31/10/2001 ----------                                    *\n*  -&gt; Compatibilidad con uso de Spinner                                 *\n*  -&gt; Nueva variable de instancia &#58;&#58;oBmpCursor con el cursor del bitmap *\n*                                                                       *\n*  ----------- 20/01/2003 ----------                                    *\n*  -&gt; Repintado del bitmap gris si el get está deshabilitado            *\n*  -&gt; Cursor HAND defecto en bitmap                                     *\n*                                                                       *\n*  ----------- 16-Ene/2006                                              *\n*  -&gt; Se Agrego un Método DatePick al pulsar el Botón Der&#46; del Mouse    *\n*  -&gt; Joel Armando Andujo Medina &#40;JAAM&#41;                                 *\n*************************************************************************\n#include \'FiveWin&#46;ch\'\n#include \'BmpGet&#46;ch\'\n\n#define GWL_STYLE         -16\n\nCLASS TBmpGet FROM TGet\n\n      CLASSDATA lFocusClr AS LOGICAL INIT &#46;t&#46;\n\n   DATA cResName, cBmpFile, bAction, bBmpAction, oBmp, oBmpCursor\n   DATA nClrPFoText  , nClrPFoPane, nClrDef\n   DATA nClrFocusText, nClrFocusPane // added&#46; There were erased from FW 2&#46;2c     JAAM\n   DATA nFireKey                     // key to start edition, defaults to VK_F11  JAAM\n   DATA dFecha                       // Fecha inicial del Calendario              JAAM\n   DATA cTipoVar                     // Tipo de la Variable que estamos Leyendo   JAAM\n\n   METHOD New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,;\n               nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,;\n               cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,;\n               lReadOnly, lPassword, lNoBorder, nHelpId,;\n               lSpinner, bUp, bDown, bMin, bMax,;\n               cResName, cBmpFile, bAction, oBmpCursor &#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nId, bSetGet, oWnd, nHelpId, cPict, bValid,;\n                    nClrFore, nClrBack, oFont, oCursor, cMsg,;\n                    lUpdate, bWhen, bChanged, lReadOnly,;\n                    lSpinner, bUp, bDown, bMin, bMax,;\n                    cResName, cBmpFile, bAction, oBmpCursor &#41; CONSTRUCTOR\n\n   METHOD ClassName&#40;&#41; INLINE Super&#58;ClassName&#40;&#41;\n\n   METHOD Default&#40;&#41;\n\n   METHOD Initiate&#40; hDlg &#41; INLINE Super&#58;Initiate&#40; hDlg &#41;, &#58;&#58;Default&#40;&#41;\n   METHOD SetIniClr&#40;&#41;\n\n   METHOD KeyDown&#40; nKey, nFlags &#41;\n\n   METHOD SetBitmap&#40; cResName, cBmpFile, bAction, oBmpCursor &#41;\n\n   METHOD DelBitmap&#40;&#41;\n   METHOD RemoveClr&#40;&#41;\n\n   METHOD RButtonDown&#40; nRow, nCol, nFlags &#41;    // Jaam\n   METHOD Calendario&#40;&#41;                         // Jaam\n   METHOD ShowMes&#40;oDlgCald&#41;                    // Jaam\n   METHOD SetVal&#40;&#41;                             // Jaam\nEND CLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,;\n            nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,;\n            cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,;\n            lReadOnly, lPassword, lNoBorder, nHelpId,;\n            lSpinner, bUp, bDown, bMin, bMax,;\n            cResName, cBmpFile, bAction, oBmpCursor &#41; CLASS TBmpGet\n\n   Super&#58;New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,;\n              nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,;\n              cMsg, lUpdate, bWhen, lCenter, lRight, bChanged, ;\n              lReadOnly, lPassword, lNoBorder, nHelpId,;\n              lSpinner, bUp, bDown, bMin, bMax &#41;\n\n   &#58;&#58;cResName   &#58;= cResName\n   &#58;&#58;cBmpFile   &#58;= cBmpFile\n   &#58;&#58;bAction    &#58;= bAction\n   &#58;&#58;oBmpCursor &#58;= oBmpCursor\n\n      if &#58;&#58;lFocusClr\n         &#58;&#58;SetIniClr&#40;&#41;\n      endif\n\nRETURN Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine&#40; nId, bSetGet, oWnd, nHelpId, cPict, bValid,;\n                 nClrFore, nClrBack, oFont, oCursor, cMsg,;\n                 lUpdate, bWhen, bChanged, lReadOnly,;\n                 lSpinner, bUp, bDown, bMin, bMax,;\n                 cResName, cBmpFile, bAction, oBmpCursor &#41; CLASS TBmpGet\n\n   Super&#58;ReDefine&#40; nId, bSetGet, oWnd, nHelpId, cPict, bValid,;\n                   nClrFore, nClrBack, oFont, oCursor, cMsg,;\n                   lUpdate, bWhen, bChanged, lReadOnly,;\n                   lSpinner, bUp, bDown, bMin, bMax &#41;\n\n   &#58;&#58;cResName   &#58;= cResName\n   &#58;&#58;cBmpFile   &#58;= cBmpFile\n   &#58;&#58;bAction    &#58;= bAction\n   &#58;&#58;oBmpCursor &#58;= oBmpCursor\n\n      if &#58;&#58;lFocusClr\n         &#58;&#58;SetIniClr&#40;&#41;\n      endif\n\n\nRETURN Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD Default&#40;&#41; CLASS TBmpGet\n\n   LOCAL nStyle, nTop, nLeft\n\n   IF ! Empty&#40; &#58;&#58;bAction &#41; &#46;AND&#46; &#40;! Empty&#40; &#58;&#58;cResName &#41; &#46;OR&#46; ! Empty&#40; &#58;&#58;cBmpFile &#41;&#41;\n      // Leemos bitmap para fijar posición en función del tamaño y alineación\n      &#58;&#58;oBmp &#58;= TBitmap&#40;&#41;&#58;Define&#40; &#58;&#58;cResName, &#58;&#58;cBmpFile, Self &#41;\n      // Obtenemos estilo del get\n      nStyle &#58;= GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;\n      // Determinamos Top del bitmap sobre el get\n      nTop   &#58;= Min&#40; 2, Int&#40; &#40;&#58;&#58;nHeight - &#58;&#58;oBmp&#58;nHeight&#41; / 2 &#41; &#41;\n      // Determinamos Left del bitmap sobre el get\n      IF lAnd&#40; nStyle, ES_RIGHT &#41;\n         nLeft      &#58;= 2\n      ELSEIF &#58;&#58;nHeight &gt; &#58;&#58;oWnd&#58;nHeight - 5     // Edicion por linea de browse\n         nLeft      &#58;= &#58;&#58;nWidth - &#58;&#58;oBmp&#58;nWidth - 1\n      ELSEIF lAnd&#40; nStyle, WS_VSCROLL &#41;\n         nLeft      &#58;= &#58;&#58;nWidth - &#58;&#58;oBmp&#58;nWidth - 22\n         &#58;&#58;bResized &#58;= &#123;|| &#58;&#58;oBmp&#58;nLeft &#58;= &#58;&#58;nWidth - &#58;&#58;oBmp&#58;nWidth - 22 &#125;\n      ELSE\n         nLeft      &#58;= &#58;&#58;nWidth - &#58;&#58;oBmp&#58;nWidth - 5\n         &#58;&#58;bResized &#58;= &#123;|| &#58;&#58;oBmp&#58;nLeft &#58;= &#58;&#58;nWidth - &#58;&#58;oBmp&#58;nWidth - 5 &#125;\n      ENDIF\n      &#58;&#58;oBmp&#58;End&#40;&#41;\n\n      // Si el VALID del objeto al que le quitamos el foco da &#46;F&#46;, se lanza un nuevo\n      //    SetFocus&#40;&#41; sobre el que hay que procesar con SysRefresh para que las\n      //    &#58;&#58;lFocused de los controles esten actualizadas\n      &#58;&#58;bBmpAction &#58;= &#123;|| &#58;&#58;SetFocus&#40;&#41;, SysRefresh&#40;&#41;, If&#40; &#58;&#58;lFocused, Eval&#40; &#58;&#58;bAction, Self &#41;, &#41; &#125;\n\n      DEFAULT &#58;&#58;oBmpCursor &#58;= TCursor&#40;&#41;&#58;New&#40; , \'HAND\' &#41;\n\n      &#58;&#58;oBmp &#58;= TBitmap&#40;&#41;&#58;New&#40; nTop, nLeft,,, &#58;&#58;cResName, &#58;&#58;cBmpFile, &#46;T&#46;, Self,;\n                               &#58;&#58;bBmpAction,,,, &#58;&#58;oBmpCursor,,,, &#46;T&#46; &#41;\n\n      &#58;&#58;oBmp&#58;bPainted &#58;= &#123;|| If&#40; &#58;&#58;lActive, ,;\n                                 &#40;DrawGray&#40; &#58;&#58;GetDC&#40;&#41;, &#58;&#58;oBmp&#58;hBitmap, &#58;&#58;oBmp&#58;nTop, &#58;&#58;oBmp&#58;nLeft &#41;,;\n                                  &#58;&#58;ReleaseDC&#40;&#41;&#41; &#41; &#125;\n   ENDIF\n\nRETURN NIL\n\nMETHOD SetIniClr&#40;&#41; CLASS TBmpGet\n\n   &#58;&#58;nClrFocusText &#58;= nRGB&#40;0,0,0&#41;\n   &#58;&#58;nClrFocusPane &#58;= nRGB&#40;243,250,200&#41; // Amarillito // nRGB&#40;255,255,255&#41;= Sin Color\n   &#58;&#58;nClrPFoText   &#58;= &#58;&#58;nClrText\n   &#58;&#58;nClrPFoPane   &#58;= &#58;&#58;nClrPane\n   //\n   &#58;&#58;bGotFocus  &#58;= &#123;|| &#58;&#58;SetColor&#40; &#58;&#58;nClrFocusText, &#58;&#58;nClrFocusPane&#41; &#125;\n   &#58;&#58;bLostFocus &#58;= &#123;|| &#58;&#58;SetColor&#40; &#58;&#58;nClrPFoText  , &#58;&#58;nClrPFoPane  &#41; &#125;\n\nReturn Self\n\nMETHOD RemoveClr&#40;&#41; CLASS TBmpGet\n   &#58;&#58;SetColor&#40; &#58;&#58;nClrText, &#58;&#58;nClrPane &#41;\n\n   &#58;&#58;bGotFocus  &#58;= nil\n   &#58;&#58;bLostFocus &#58;= nil\n\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TBmpGet\n   local nFireKey  &#58;= &#58;&#58;nFireKey     // JAAM\n   Default nFireKey &#58;= VK_F11        // JAAM\n\n   IF nKey == nFireKey &#46;AND&#46; ! Empty&#40; &#58;&#58;bAction &#41;\n      RETURN Eval&#40; &#58;&#58;bAction, Self &#41;\n   ENDIF\n\nRETURN Super&#58;KeyDown&#40; nKey, nFlags &#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetBitmap&#40; cResName, cBmpFile, bAction, oBmpCursor &#41; CLASS TBmpGet\n\n   IF ! Empty&#40; &#58;&#58;oBmp &#41;\n      &#58;&#58;oBmp&#58;End&#40;&#41;\n   ENDIF\n\n   &#58;&#58;cResName   &#58;= cResName\n   &#58;&#58;cBmpFile   &#58;= cBmpFile\n   &#58;&#58;bAction    &#58;= bAction\n   &#58;&#58;oBmpCursor &#58;= oBmpCursor\n\n   &#58;&#58;Default&#40;&#41;\n   &#58;&#58;Refresh&#40;&#41;\n\nRETURN NIL\n\n//----------------------------------------------------------------------------//\n\nMETHOD DelBitmap&#40;&#41; CLASS TBmpGet\n\n   IF ! Empty&#40; &#58;&#58;oBmp &#41;\n      &#58;&#58;oBmp&#58;End&#40;&#41;\n   ENDIF\n\n   &#58;&#58;cResName   &#58;= \'\'\n   &#58;&#58;cBmpFile   &#58;= \'\'\n   &#58;&#58;bAction    &#58;= NIL\n   &#58;&#58;oBmpCursor &#58;= NIL\n\nRETURN NIL\n\n//----------------------------------------------------------------------------//\n\nMETHOD RButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TBmpGet\n\n   local oMenu, oClp\n   local nLo, nHi\n   local oThis &#58;= Self\n\n   &#58;&#58;GetSelPos&#40; @nLo, @nHi &#41;\n\n   if GetFocus&#40;&#41; != &#58;&#58;hWnd\n      &#58;&#58;SetFocus&#40;&#41;\n      SysRefresh&#40;&#41;                       // In case there is a VALID somewhere\n      if GetFocus&#40;&#41; != &#58;&#58;hWnd\n         return nil\n      endif\n   endif\n\n   &#58;&#58;dFecha  &#58;=Date&#40;&#41;                    // Fecha inicial del Calendario             JAAM\n   &#58;&#58;cTipoVar&#58;=valtype&#40;&#58;&#58;oGet&#58;Original&#41;  // Tipo de la Varialble que estamos Leyendo JAAM\n   if &#58;&#58;cTipoVar=\'D\'\n      &#58;&#58;Calendario&#40;&#41;\n      retu nil\n   endi\n\n   DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n\n   MENU oMenu POPUP\n        MENUITEM \'Ca&amp;lendario\'  ACTION &#58;&#58;Calendario&#40;&#41;\n        MENUITEM \'Calc&amp;uladora\' ACTION &#58;&#58;UnDo&#40;&#41;\n\n      if &#58;&#58;lReadOnly &#46;or&#46; &#58;&#58;GetText&#40;&#41; == cValToChar&#40; &#58;&#58;oGet&#58;Original &#41;\n         MENUITEM \'&amp;Deshacer\' ACTION &#58;&#58;UnDo&#40;&#41; disabled\n      else\n         MENUITEM \'&amp;Deshacer\' ACTION &#58;&#58;UnDo&#40;&#41;\n      endif\n\n      SEPARATOR\n\n      if &#58;&#58;lReadOnly &#46;or&#46; nLo == nHi\n         MENUITEM \'Cor&amp;tar\'  ACTION &#58;&#58;Cut&#40;&#41; disabled\n      else\n         MENUITEM \'Cor&amp;tar\'  ACTION &#58;&#58;Cut&#40;&#41;\n      endif\n\n      if nLo != nHi\n         MENUITEM \'&amp;Copiar\' ACTION &#58;&#58;Copy&#40;&#41;\n      else\n         MENUITEM \'&amp;Copiar\' ACTION &#58;&#58;Copy&#40;&#41; disabled\n      endif\n\n      if ! Empty&#40; oClp&#58;GetText&#40;&#41; &#41; &#46;and&#46; !&#58;&#58;lReadOnly\n         MENUITEM \'&amp;Pegar\' ACTION &#58;&#58;Paste&#40;&#41;\n      else\n         MENUITEM \'&amp;Pegar\' ACTION &#58;&#58;Paste&#40;&#41; DISABLED\n      endif\n\n      if &#58;&#58;lReadOnly &#46;or&#46; nLo == nHi\n         MENUITEM \'&amp;Borrar\' action nil disabled\n      else\n         MENUITEM \'&amp;Borrar\' ACTION If&#40; nHi != nLo,;\n                &#40; &#58;&#58;GetDelSel&#40; nLo, nHi &#41;, &#58;&#58;EditUpdate&#40;&#41; &#41;,&#41;\n      endif\n\n      SEPARATOR\n      MENUITEM \'Selecionar &amp;Todo\' ACTION &#58;&#58;SelectAll&#40;&#41;\n   ENDMENU\n\n   ACTIVATE POPUP oMenu AT nRow - 60, nCol OF Self\n\nreturn 0             // Message already processed\n\n*----------------------------*\nMETHOD Calendario&#40;&#41; CLASS TBmpGet\n local nRen, aCol, nNumDia&#58;=0, lPVez&#58;=&#46;t&#46;\n\n DEFINE DIALOG oDlgCald FROM  &#58;&#58;nTop+198,&#58;&#58;nLeft+228 to &#58;&#58;nTop+373,&#58;&#58;nLeft+413 TITLE Mes&#40;&#58;&#58;dFecha&#41;+\' DE \'+str&#40;year&#40;&#58;&#58;dFecha&#41;,4&#41; PIXEL\n\n *--// Dibujo los botones &#40;Días del Mes&#41;\n nRen&#58;=25\n aCol&#58;=&#123;05,17,29,41,53,65,77&#125;\n for i&#58;=1 to 42\n     nNumDia++\n     @nRen,aCol&#91;nNumDia&#93; BUTTON strzero&#40;i,2&#41; SIZE 10,08 of oDlgCald ACTION msginfo&#40;&#41; pixel update\n     if nNumDia=7\n        nRen+=10\n        nNumDia&#58;=0\n     endi\n next\n\n @10,003 GROUP oGpo TO 021,90                      of oDlgCald            PIXEL\n @15,004 SAY \'Dom  Lun  Mar  Mie  Jue   Vie   Sab\' of oDlgCald SIZE 86,06 PIXEL\n\n @01,005 BUTTONBMP PROMPT \'Mes &amp;Anterior\'  SIZE 36,09 of oDlgCald ACTION &#58;&#58;ShowMes&#40;-1, oDlgCald&#41; PIXEL update\n @01,052 BUTTONBMP PROMPT \'Mes &amp;Siguiente\' SIZE 36,09 of oDlgCald ACTION &#58;&#58;ShowMes&#40;+1, oDlgCald&#41; PIXEL update\n\n ACTIVATE DIALOG oDlgCald ON PAINT if&#40;lPVez,&#40;&#58;&#58;ShowMes&#40;0, oDlgCald&#41;,lPVez&#58;=&#46;f&#46;&#41;, &#41;\n\nretu nil\n\n*----------------------------*\nMETHOD ShowMes&#40;nAvance, oDlg&#41; CLASS TBmpGet\n local nMesAnt&#58;=0              , nAnoAnt&#58;=0             , nUltAnt&#58;=0            , nDiaSem   , nNumDia&#58;=1, nDiaSigMes&#58;=1,;\n       nMesAct&#58;=month&#40;&#58;&#58;dFecha&#41;, nAnoAct&#58;=year&#40;&#58;&#58;dFecha&#41;, nDiaAct&#58;=day&#40;&#58;&#58;dFecha&#41;, nUltAct&#58;=0, oFont2    ,;\n       oFont1&#58;=oDlg&#58;oFont\n\n *--// Incremento o Disminuyo el Mes a Mostrar\n nMesAct&#58;=nMesAct+nAvance\n if nMesAct&lt;1\n    nMesAct&#58;=12\n    nAnoAct--\n endi\n if nMesAct&gt;12\n    nMesAct&#58;=1\n    nAnoAct++\n endi\n\n oDlg&#58;cTitle&#58;=Mes&#40;nMesAct&#41;+\' DE \'+str&#40;nAnoAct,4&#41;\n nUltAct&#58;=UltDia&#40;ctod&#40;\'01/\'+str&#40;nMesAct&#41;+\'/\'+str&#40;nAnoAct&#41;&#41;&#41;\n if &#40;nDiaAct&gt;nUltAct&#41;\n     nDiaAct&#58;=nUltAct\n endi\n &#58;&#58;dFecha&#58;=ctod&#40;\'01/\'+str&#40;nMesAct&#41;+\'/\'+str&#40;nAnoAct&#41;&#41;\n *--// Día de la Semana del 1ro del Mes &#40;Domingo=1, Lunes=2, Martes=3,&#46;&#46;&#46;&#41;\n nDiaSem &#58;=dow&#40;&#58;&#58;dFecha&#41;\n &#58;&#58;dFecha&#58;=ctod&#40;str&#40;nDiaAct&#41;+\'/\'+str&#40;nMesAct&#41;+\'/\'+str&#40;nAnoAct&#41;&#41;\n\n *--// Tomo el Último día del mes Aterior\n nMesAnt&#58;=nMesAct-1\n nAnoAnt&#58;=nAnoAct\n if nMesAnt&lt;1\n    nMesAnt&#58;=12\n    nAnoAnt--\n endi\n if nMesAnt&gt;12\n    nMesAnt&#58;=1\n    nAnoAnt++\n endi\n nUltAnt&#58;=UltDia&#40;ctod&#40;\'01/\'+str&#40;nMesAnt&#41;+\'/\'+str&#40;nAnoAnt&#41;&#41;&#41;\n\n *--// Muestro los Botones &#40;Días del Mes anterior, en proceso y Siguiente&#41;\n DEFINE Font oFont2 NAME \'COURIER NEW\' SIZE 10, 14 BOLD\n for i&#58;=1 to 42\n     *--// Días en Proceso\n     if i&gt;=nDiaSem &#46;and&#46; i&lt;=&#40;nUltAct+nDiaSem&#41;-1\n        oDlg&#58;aControls&#91;i&#93;&#58;Enable&#40;&#41;\n        *--// Día Actual o Domingos\n        if &#40;nNumDia=nDiaAct&#41;&#46;or&#46;&#40;i=1&#41;&#46;or&#46;&#40;i=8&#41;&#46;or&#46;&#40;i=15&#41;&#46;or&#46;&#40;i=22&#41;&#46;or&#46;&#40;i=29&#41;&#46;or&#46;&#40;i=36&#41;\n           oDlg&#58;aControls&#91;i&#93;&#58;SetFont&#40;oFont2&#41;\n           if &#40;nNumDia=nDiaAct&#41;\n              oDlg&#58;aControls&#91;i&#93;&#58;Setfocus&#40;&#41;\n           endi\n        else\n           oDlg&#58;aControls&#91;i&#93;&#58;SetFont&#40;oFont1&#41;\n        endi\n        oDlg&#58;aControls&#91;i&#93;&#58;cTitle&#58;=strzero&#40;nNumDia++,2&#41;\n        oDlg&#58;aControls&#91;i&#93;&#58;bAction&#58;=GenBlock&#40; oDlg, i, Self &#41;\n     else\n        *--// Días del Siguiente Mes\n        if i&gt;=&#40;nUltAct+nDiaSem&#41;\n           oDlg&#58;aControls&#91;i&#93;&#58;cTitle&#58;=strzero&#40;nDiaSigMes++,2&#41;\n        else\n           *--// Días del Mes Anterior\n           oDlg&#58;aControls&#91;i&#93;&#58;cTitle&#58;=str&#40;&#40;nUltAnt-nDiaSem+1&#41;+i,2&#41;\n        endi\n        oDlg&#58;aControls&#91;i&#93;&#58;Disable&#40;&#41;\n     endi\n next\n oDlg&#58;refresh&#40;&#41;\n oFont1&#58;end&#40;&#41;\n oFont2&#58;end&#40;&#41;\nretu nil\n\n*----------------------------*\nMETHOD SetVal&#40;cDay&#41; CLASS TBmpGet\n local nMesAct&#58;=month&#40;&#58;&#58;dFecha&#41;, nAnoAct&#58;=year&#40;&#58;&#58;dFecha&#41;\n do case\n    case &#58;&#58;cTipoVar=\'D\' ; &#58;&#58;cText&#58;=ctod&#40;cDay+\'/\'+strzero&#40;nMesAct,2&#41;+\'/\'+str&#40;nAnoAct,4&#41;&#41;\n    case &#58;&#58;cTipoVar$\'CM\'; &#58;&#58;cText&#58;=left&#40;cDay+\'/\'+strzero&#40;nMesAct,2&#41;+\'/\'+str&#40;nAnoAct,4&#41;,len&#40;&#58;&#58;cText&#41;&#41;\n endc\n &#58;&#58;Refresh&#40;&#41;\nretu Nil\n\n*----------------------------*\nstat function GenBlock&#40; oDlg, i, Self &#41;\nreturn &#123;|nId| &#40;&#58;&#58;SetVal&#40;oDlg&#58;aControls&#91;i&#93;&#58;cTitle&#41;, oDlg&#58;end&#40;&#41;&#41; &#125;\n\n*----------------------------*\nstat function Mes&#40;uFecha&#41;\n local cMeses &#58;=\'Enero     Febrero   Marzo     Abril     Mayo      Junio     \'+;\n                \'Julio     Agosto    SeptiembreOctubre   Noviembre Diciembre \'\n if valtype&#40;uFecha&#41;=\'D\'; retu&#40;alltrim&#40;subs&#40;cMeses,month&#40;uFecha&#41;*10-9,10&#41;&#41;&#41;\n else                  ; retu&#40;alltrim&#40;subs&#40;cMeses,uFecha       *10-9,10&#41;&#41;&#41;\n endi\nretu \'\'\n\n*----------------------------*\nstat function UltDia&#40;dFec&#41;\n local nUltDia&#58;=0, nAno&#58;=year&#40;dFec&#41;, nMes&#58;=month&#40;dFec&#41;, nDia&#58;=0, dFecha&#58;=\'\'\n Default dFec&#58;=ctod&#40;\'\'&#41;\n\n for nDia&#58;=28 to 31\n     dFecha&#58;=ctod&#40;strzero&#40;nDia,2&#41;+\'/\'+strzero&#40;nMes,2&#41;+\'/\'+str&#40;nAno,4&#41;&#41;\n\n     if empty&#40;dtos&#40;dFecha&#41;&#41;\n        exit\n     endi\n     nUltDia&#58;=nDia\n next\nretu nUltDia[/code:7138kyyx][/url]','',0,'AIA=','7138kyyx',1,0,'',40,0,0),(5298,1275,6,103,0,'200.164.92.242',1137460474,1,0,1,1,1,0,'','','Leandro,\n\n    Puedes subir los datos de tus tablas dbf a mysql usando el DBF2MySQL que existe para descarga en <!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->. El reconoce todos los campos y campos memo, dependiendo del RDD (NTX o CDX). \n\nSaludos,\n\nKleyber','',0,'AIA=','1xj2vjcs',1,0,'',103,0,0),(5299,1271,1,2,0,'80.32.22.38',1137471095,1,0,1,1,1,1,'','','Gerry,\n\nI see. I haven\'t seen a user defined control for that, but it may not be difficult to create one.','',0,'AIA=','c1ji1x6v',1,0,'',2,0,0),(5300,1251,6,45,0,'200.45.178.250',1137471136,1,0,1,1,1,0,'','Re: twBrowse v18 ?','[quote=&quot;gdeteran&quot;:e6uqhfno]Hernan :\n\nEn otro foro te preguntan cunado sale la version 18 de tu clase. \nEn tu sitio ( <!-- m --><a class=\"postlink\" href=\"http://www.cesotech.com.ar/\">http://www.cesotech.com.ar/</a><!-- m --> ) se puede bajar hasta la version 15. \nLa pregunta es ¿ donde consigo la version 16 o 17 ? o en otras palabras, \n¿ Cual es la ultima version liberada de WBrowse ?\n\nSaludos\n\nGonzalo[/quote:e6uqhfno]\n\nEn estos dias tratare de publicar una version estable \n\nHernan','',0,'gA==','e6uqhfno',1,0,'',45,0,0),(5301,1279,6,2,0,'80.32.22.38',1137471297,1,0,1,1,1,1,'','','Oscar,\n\nEstás usando las clases y los menús estandard de FWH, ó estás usando versiones modificadas ?','',0,'gA==','2kgxvyva',1,0,'',2,0,0),(5302,1292,6,2,0,'80.32.22.38',1137471409,1,0,1,1,1,1,'','','Marco,\n\nMe refiero a si estás usando los menús de FWH ó estás usando otros de terceros.','',0,'gA==','2688vpm6',1,0,'',2,0,0),(5303,1293,2,2,0,'80.32.22.38',1137471780,1,0,1,1,1,1,'','','Lubin,\n\nQue valores de heapsize y de stacksize estás usando en tu fichero LNK de Blinker ?','',0,'gA==','31pyvpk4',1,0,'',2,0,0),(5304,1290,6,57,0,'81.34.176.143',1137484298,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3qfwis8g]Toni,\n\nlas distancias de los items no son acumulativas, por lo que prueba a usar:\n\n{200,350} en vez de {200,150}\n\nó la segunda parte se situará \"debajo\" de la primera.[/quote:3qfwis8g]\n\nAntonio\nEra ese el problema.\nGracias','',0,'gA==','3qfwis8g',1,0,'',57,0,0),(5305,1297,1,379,0,'59.167.116.116',1137485733,1,0,1,1,1,0,'','tgantt class','Does anyone have a copy or the .PRG plus some examples (hopefully in English) of the [color=blue:1f2feg5p][b:1f2feg5p]tgantt [/b:1f2feg5p][/color:1f2feg5p]class.\n\nCheers\nGerry','',0,'Qg==','1f2feg5p',1,0,'',379,0,0),(5306,1298,4,297,0,'217.57.213.130',1137487619,1,0,1,1,1,0,'','Info about hardware','Hi, \n is it possible to run fivewin applications in these two palm or pocket pc?\n\n[size=150:q0fp0qbf][color=red:q0fp0qbf]Casio Cassiopea e-2001 with windows mobile 2005\nDell 51V con intel Xscale with windows mobile 2005[/color:q0fp0qbf][/size:q0fp0qbf]\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Bg==','q0fp0qbf',1,0,'',297,0,0),(5307,1221,3,269,0,'217.37.54.49',1137492412,1,0,1,1,1,0,'','','Antonio,\n\nI have solved the problem, thanks for the help','',0,'Bg==','2s38pvdz',1,0,'',269,0,0),(5308,1299,3,269,0,'217.37.54.49',1137493899,1,0,1,1,1,0,'','Error Base\\1002','In my program, before the main dialog window runs, I run a windows explorer window so that the user can select a folder which contains the DBF needed to run the main dialog. If the program finds the DBF then the main dialog will run, however, if it is not found, the program shows a message to tell the user that the DBF does not exist in the folder they have chosen and then ends the program. However, although the message displays correctly, if the user clicks the ok button to remove the message from the screen i get a base error 1002 (Alias Does Not Exist) displayed. I know I could solve this by placing the DBF into every folder, but i was wondering if there was another way to end the program without doing that?\n\nCODE;\n\nSTATIC FUNCTION OpenRepDets()\n   LOCAL RetVal    := .F.\n   LOCAL mFileName := ALLTRIM(mDataSet)+\"\\REPDETS.DBF\"\n   \n   IF FILE(mFileName)\n      IF SELECT(\"REPDETS\") &lt;&gt; 0 \n         REPDETS-&gt;(DBCLOSEAREA())\n      ENDIF\n      IF SELECT(\"REPDETS\") == 0\n         mFileName := ALLTRIM(mDataSet)+\"\\REPDETS\"\n         IF NET_USE(mFileName,.F.,5)\n            RetVal := .T.\n            SET INDEX TO &amp;mFileName.\n\n            PRIVATE RangeFields[FCOUNT()]\n            AFIELDS (RangeFields)\n            mRdName  := ASCAN(RangeFields,\"REP_DESCR\") &gt; 0\n            mRdParam := ASCAN(RangeFields,\"REP_PARAM\") &gt; 0\n            mRdComm  := ASCAN(RangeFields,\"REP_COMM\") &gt; 0\n         ENDIF\n      ENDIF\n   ELSE\n      msginfo(mdataset)\n      MsgInfo(\"Report Ranges File Not Found\")\n   ENDIF\n   \nRETURN RetVal\n\nThanks in advance for any help!','',0,'','21hbzsbx',1,0,'',269,0,0),(5309,1243,3,26,0,'193.77.229.30',1137495631,1,0,1,1,1,1,'','','Hello!\n\nI replaced \n\n[code:epg1drbk]CLIPPER MGETCREATE&#40; PARAMS &#41; //   &#40; cClassName, cTitle, nStyle, nLeft, nTop, nWidth,[/code:epg1drbk]\n\nwith \n\n[code:epg1drbk]HB_FUNC&#40;MGETCREATE&#41; //   &#40; cClassName, cTitle, nStyle, nLeft, nTop, nWidth,[/code:epg1drbk]\n\nand compiled with\n\n[code:epg1drbk]cl&#46;exe /TP /c /W3 /D__FLAT__ /D__HARBOUR__ %1[/code:epg1drbk]\n\nand now it seems ok ...\n\nMany thanks, Roman\n\nP.S. Alert() is working better now, too! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','epg1drbk',1,0,'',26,0,0),(5310,1300,3,26,0,'193.77.229.30',1137496438,1,0,1,1,1,1,'','Icon in Alert function','Hello!\n\nIcon in Alert() (FWH November 2005) has white background:\n\n[img:zi4y5rt3]http&#58;//www&#46;astral-it&#46;com/img/alertw&#46;gif[/img:zi4y5rt3]\n\nRegards, Roman','',0,'CA==','zi4y5rt3',1,0,'',26,0,0),(5311,1298,4,2,0,'80.32.22.38',1137499400,1,0,1,1,1,1,'','','Marco,\n\nI would say yes on the intel xscale processor one. But if you have the chance to test an application on them (just inserting a SD memory card) then go to <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwppc.html\">http://www.fivetechsoft.com/english/fwppc.html</a><!-- m --> and download one of the availables demos from there and copy it to a SD card, insert it into the Pocket PC and try it.','',0,'CA==','1gw8lejm',1,0,'',2,0,0),(5312,1243,3,2,0,'80.32.22.38',1137499552,1,0,1,1,1,1,'','','Roman,\n\nYes, FWH translates CLIPPER into HB_FUNC( ... ) so your code is ok.','',0,'CA==','2wjvrn52',1,0,'',2,0,0),(5313,1300,3,2,0,'80.32.22.38',1137500137,1,0,1,1,1,1,'','','Roman,\n\nPlease comment this line at Class TIcon:\n\n   // METHOD EraseBkGnd() VIRTUAL  // for transparency on dialogs\n\nand try it again','',0,'CA==','2jxft5a6',1,0,'',2,0,0),(5314,1299,3,2,0,'80.32.22.38',1137500318,1,0,1,1,1,1,'','','Deano,\n\nAfter the locals place this code:\n\nIF ! FILE(mFileName)\n   return .f.\nendif','',0,'CA==','eiottovr',1,0,'',2,0,0),(5315,1299,3,269,0,'217.37.54.49',1137500960,1,0,1,1,1,0,'','','Antonio,\n\nI have placed those lines into the code now, but am still getting the 1002 error, here is the code after the lines have been added, have I missed something??\n\nCODE;\n\nSTATIC FUNCTION OpenRepDets()\n   LOCAL RetVal    := .F.\n   LOCAL mFileName := ALLTRIM(mDataSet)+\"\\REPDETS.DBF\"\n   IF ! FILE(mFileName)\n      return .f.\n   endif\n\n   IF FILE(mFileName)\n      IF SELECT(\"REPDETS\") &lt;&gt; 0 \n         REPDETS-&gt;(DBCLOSEAREA())\n      ENDIF\n      IF SELECT(\"REPDETS\") == 0\n         mFileName := ALLTRIM(mDataSet)+\"\\REPDETS\"\n         IF NET_USE(mFileName,.F.,5)\n            RetVal := .T.\n            SET INDEX TO &amp;mFileName.\n\n            PRIVATE RangeFields[FCOUNT()]\n            AFIELDS (RangeFields)\n            mRdName  := ASCAN(RangeFields,\"REP_DESCR\") &gt; 0\n            mRdParam := ASCAN(RangeFields,\"REP_PARAM\") &gt; 0\n            mRdComm  := ASCAN(RangeFields,\"REP_COMM\") &gt; 0\n         ENDIF\n      ENDIF\n   ELSE\n      MsgInfo(mdataset)\n      MsgInfo(\"Report Ranges File Not Found\")\n   ENDIF\n   msginfo(1)\nRETURN RetVal      \n\nMany Thanks','',0,'','2z2xv9gj',1,0,'',269,0,0),(5316,1279,6,203,0,'200.107.2.50',1137501221,1,0,1,1,1,1,'','','Antonio\n\nEstoy usando para los menus C5\nque aproposito al compilar me dice que tengo duplicada\n\n#DEFINE DT_LEFT\n\n\n\nSaludos \nOscar','',0,'','1455pn2j',1,0,'',203,0,0),(5317,1301,3,63,0,'80.58.35.107',1137501352,1,0,1,1,1,0,'','Problema con Captura de ventana','Estoy intentando leer el contenido de un Get de una ventana desde otra ventana independiente.  Efectivamente, leo el valor inicial del Get pero aunque escriba en él algo diferente, siempre leo el valor inicial.\n\nAlguien podría mirarse estos dos prgs y decirme qué estoy haciendo mal? (ambos se compilan con Buildh.bat)\n\nEl programa que captura:\n [code:1tl78zrn]\n//----------------------------------------------------------------------------//\n// Capt&#46;prg - Prueba de captura de otra ventana\n//----------------------------------------------------------------------------//\n#include &quot;FiveWin&#46;ch&quot;\n#define GW_CHILD      5\n#define GW_HWNDNEXT   2\n\nFUNCTION Main&#40;&#41;\nLOCAL oWnd, hWnd, hCtrl, cClassName, cTitle\ncTitle &#58;= PADR&#40;&quot;TEST&quot;, 200&#41;\nIF MsgGet&#40; &quot;Entre titulo de una ventana abierta&quot;, &quot;Titulo&#58;&quot;, @cTitle&#41; \n   hWnd &#58;= FindWindow&#40; 0, ALLTRIM&#40;cTitle&#41;&#41;\n   IF hWnd &lt;= 0\n      MsgInfo&#40;&quot;No puedo capturar esa ventana&quot;&#41;\n   ELSE\n      hCtrl &#58;= GetWindow&#40; hWnd, GW_CHILD &#41;\n      WHILE hCtrl != 0\n         cClassName &#58;= Upper&#40;GetClassName&#40;hCtrl&#41;&#41;\n         IF cClassName = &quot;EDIT&quot;\n            ? cClassName+&quot;  &quot;+GetWindowText&#40;hCtrl&#41;\n         ENDIF\n         hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41;\n      END\n   ENDIF\nENDIF\nRETURN NIL\n[/code:1tl78zrn]\n\ny el programa cuyos gets quiero capturar:\n\n [code:1tl78zrn]\n//  Test&#46;prg\n#include \'FIVEWIN&#46;CH\'\nFUNCTION Main&#40;&#41;\n   LOCAL  oWnd, oGet1, oGet2, cGet1, cGet2\n   DEFINE WINDOW oWnd FROM 0,0 TO 12,35 TITLE \'Test\'\n   cGet1 &#58;= &quot;Hola        &quot;\n   cGet2 &#58;= &quot;Bye         &quot;\n   @ 10,10  BUTTON &quot;Button 01&quot;  SIZE 100,20 PIXEL OF oWnd ACTION MsgInfo&#40;&quot;Button 01&quot;&#41;\n   @ 40,10  GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd\n   @ 70,10  GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd\n   ACTIVATE WINDOW oWnd\nRETURN NIL\n[/code:1tl78zrn]\n\nGracias,\n\nRafael','',0,'AIA=','1tl78zrn',1,0,'',63,0,0),(5318,1258,2,221,0,'201.242.42.77',1137501583,1,0,1,1,1,0,'','fuentes','utiliza fuentes tipo typewrite, osea letras tipo maquina de escribir, entonces la I ocupa la misma distancia que la W, por lo menos yo lo solucione asi, en internet consigues bastantes fuentes de ese tipo','',0,'AIA=','1nbuu8dl',1,0,'',221,0,0),(5319,1302,2,347,0,'201.246.66.181',1137501621,1,0,1,1,1,0,'','PROBLEMAS CON FOLDER','Hola amigo tengo una dudas:\ncon los folder, resulta que tengo una base\nde datos con los siguientes campos y datos\n\n  Codigo Detalle\n  ------ -------\n  X-1    XXXXXXXXXXX\n  X-1    WWWWWWWW\n  X-2    AAAAAAAAAAA\n  X-2    CCCCCCCCCC\n  B-1    UUUUUUUUUUU\n  B-1    PPPPPPPPPPP\n  B-2    VVVVVVVVVVV\n  B-2    SSSSSSSSSSS\n\nEstos Datos los quiero en un Folder con dos pestana\nuna llamada Pestana-1 y la otra Pestana-2 pero el problema\nque tengo es que en cada pestana tienen que ir 2 Lisbox como\nen este ejemplo.\n\nPestana-1                       Pestana-2\nListBox 1                        ListBox 1\n  Codigo Detalle              Codigo Detalle\n  X-1    XXXXXXXXXXX    B-1    UUUUUUUU\n  X-1    WWWWWWWW    B-1    PPPPPPPPP\n\nListBox 2                        LISTBOX\n  Codigo Detalle              Codigo Detalle\n  X-2    AAAAAAAAAAA     B-2    VVVVVVVVV\n  X-2    CCCCCCCCCC     B-2    SSSSSSSSS\n\nTodos los Datos estan es una sola base de Datos desde\nya gracias\nSaludos','',0,'AIA=','ba7kw2ly',1,0,'',347,0,0),(5320,1301,3,63,0,'80.58.35.107',1137501880,1,0,1,1,1,0,'','Problem with Capture()','Ooops; I just posted my message in Spanish. Sorry. Here is the translation:\n\nI am trying to read the contens of a Get in a Window from another, independent window.  I can capture and read the INITAL value of the get, but when I overwrite it with a different text, I keek reading the original value.\n\nCould anybody take a look at these two prgs and tell me what am I doing wrong?  (Both can be compiled with buildh.bat) \n\nThe capture program:\n \n[code:1duhz5kd]\n//----------------------------------------------------------------------------// \n// Capt&#46;prg - Capture test \n//----------------------------------------------------------------------------// \n#include &quot;FiveWin&#46;ch&quot; \n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2 \n\nFUNCTION Main&#40;&#41; \nLOCAL oWnd, hWnd, hCtrl, cClassName, cTitle \ncTitle &#58;= PADR&#40;&quot;TEST&quot;, 200&#41; \nIF MsgGet&#40; &quot;Input the title of an open window&quot;, &quot;Title&#58;&quot;, @cTitle&#41; \n   hWnd &#58;= FindWindow&#40; 0, ALLTRIM&#40;cTitle&#41;&#41; \n   IF hWnd &lt;= 0 \n      MsgInfo&#40;&quot;Can not capture this window&quot;&#41; \n   ELSE \n      hCtrl &#58;= GetWindow&#40; hWnd, GW_CHILD &#41; \n      WHILE hCtrl != 0 \n         cClassName &#58;= Upper&#40;GetClassName&#40;hCtrl&#41;&#41; \n         IF cClassName = &quot;EDIT&quot; \n            ? cClassName+&quot;  &quot;+GetWindowText&#40;hCtrl&#41; \n         ENDIF \n         hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41; \n      END \n   ENDIF \nENDIF \nRETURN NIL \n\n[/code:1duhz5kd]\n\nAnd the window to be captured:\n\n[code:1duhz5kd]\n//  Test&#46;prg \n#include \'FIVEWIN&#46;CH\' \nFUNCTION Main&#40;&#41; \n   LOCAL  oWnd, oGet1, oGet2, cGet1, cGet2 \n   DEFINE WINDOW oWnd FROM 0,0 TO 12,35 TITLE \'Test\' \n   cGet1 &#58;= &quot;Hello        &quot; \n   cGet2 &#58;= &quot;Bye         &quot; \n   @ 10,10  BUTTON &quot;Button 01&quot;  SIZE 100,20 PIXEL OF oWnd ACTION MsgInfo&#40;&quot;Button 01&quot;&#41; \n   @ 40,10  GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd \n   @ 70,10  GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd \n   ACTIVATE WINDOW oWnd \nRETURN NIL \n\n[/code:1duhz5kd]\n\nThanks, \nRafael','',0,'AIA=','1duhz5kd',1,0,'',63,0,0),(5321,1303,6,63,0,'80.58.35.107',1137501978,1,0,1,1,1,0,'','Tratando de leer un get de una ventana desde otra ventana...','Estoy intentando leer el contenido de un Get de una ventana desde otra ventana independiente. Efectivamente, leo el valor inicial del Get pero aunque escriba en él algo diferente, siempre leo el valor inicial. \n\nAlguien podría mirarse estos dos prgs y decirme qué estoy haciendo mal? (ambos se compilan con Buildh.bat) \n\nEl programa que captura: \nCode: \n\n//----------------------------------------------------------------------------// \n// Capt.prg - Prueba de captura de otra ventana \n//----------------------------------------------------------------------------// \n#include \"FiveWin.ch\" \n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2 \n\nFUNCTION Main() \nLOCAL oWnd, hWnd, hCtrl, cClassName, cTitle \ncTitle := PADR(\"TEST\", 200) \nIF MsgGet( \"Entre titulo de una ventana abierta\", \"Titulo:\", @cTitle) \n   hWnd := FindWindow( 0, ALLTRIM(cTitle)) \n   IF hWnd &lt;= 0 \n      MsgInfo(\"No puedo capturar esa ventana\") \n   ELSE \n      hCtrl := GetWindow( hWnd, GW_CHILD ) \n      WHILE hCtrl != 0 \n         cClassName := Upper(GetClassName(hCtrl)) \n         IF cClassName = \"EDIT\" \n            ? cClassName+\"  \"+GetWindowText(hCtrl) \n         ENDIF \n         hCtrl = GetWindow( hCtrl, GW_HWNDNEXT ) \n      END \n   ENDIF \nENDIF \nRETURN NIL \n \n\n\ny el programa cuyos gets quiero capturar: \n\nCode: \n\n//  Test.prg \n#include \'FIVEWIN.CH\' \nFUNCTION Main() \n   LOCAL  oWnd, oGet1, oGet2, cGet1, cGet2 \n   DEFINE WINDOW oWnd FROM 0,0 TO 12,35 TITLE \'Test\' \n   cGet1 := \"Hola        \" \n   cGet2 := \"Bye         \" \n   @ 10,10  BUTTON \"Button 01\"  SIZE 100,20 PIXEL OF oWnd ACTION MsgInfo(\"Button 01\") \n   @ 40,10  GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd \n   @ 70,10  GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd \n   ACTIVATE WINDOW oWnd \nRETURN NIL \n\nGracias, \n\nRafael','',0,'AIA=','1bfnte50',1,0,'',63,0,0),(5322,1304,2,347,0,'201.246.66.181',1137502067,1,0,1,1,1,0,'','X','X-1    WWWWWWWWWWW     B-1    PPPPPPPPP\n\nListBox 2                LISTBOX\n  Codigo Detalle         Codigo Detalle\n  X-2    AAAAAAAAAAA     B-2    VVVVVVVVV\n  X-2    CCCCCCCCCCC     B-2    SSSSSSSSS\n\nTodos los Datos estan es una sola base de Datos desde\nya gracias\nSaludos','',0,'AIA=','3ky2k51g',1,0,'',347,0,0),(5323,1300,3,26,0,'193.77.229.30',1137502152,1,0,1,1,1,1,'','','Hello!\n\nNow it is perfect.\n\nThanks, Roman','',0,'AIA=','o8tpwge2',1,0,'',26,0,0),(5324,1303,6,63,0,'80.58.35.107',1137502486,1,0,1,1,1,0,'','','Lo siento: Aquí está el fuente de los dos programas anteriores, formateado como código:\n[code:2y8j1ry1]\n//----------------------------------------------------------------------------/\n// Capt&#46;prg - Prueba de captura de otra ventana\n//----------------------------------------------------------------------------/\n#include &quot;FiveWin&#46;ch&quot;\n#define GW_CHILD      5\n#define GW_HWNDNEXT   2\n\nFUNCTION Main&#40;&#41;\nLOCAL oWnd, hWnd, hCtrl, cClassName, cTitle\ncTitle &#58;= PADR&#40;&quot;TEST&quot;, 200&#41;\nIF MsgGet&#40; &quot;Entre titulo de una ventana abierta&quot;, &quot;Titulo&#58;&quot;, @cTitle&#41;\n   hWnd &#58;= FindWindow&#40; 0, ALLTRIM&#40;cTitle&#41;&#41;\n   IF hWnd &lt;= 0\n      MsgInfo&#40;&quot;No puedo capturar esa ventana&quot;&#41;\n   ELSE\n      hCtrl &#58;= GetWindow&#40; hWnd, GW_CHILD &#41;\n      WHILE hCtrl != 0\n            cClassName &#58;= Upper&#40;GetClassName&#40;hCtrl&#41;&#41;\n            IF cClassName = &quot;EDIT&quot;\n               ? cClassName+&quot;  &quot;+GetWindowText&#40;hCtrl&#41;\n            ENDIF\n            hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41;\n      END\n   ENDIF\nENDIF\nRETURN NIL\n[/code:2y8j1ry1]\n\n[code:2y8j1ry1]\n//  Test&#46;prg\n#include \'FIVEWIN&#46;CH\'\nFUNCTION Main&#40;&#41;\nLOCAL  oWnd, oGet1, oGet2, cGet1, cGet2\nDEFINE WINDOW oWnd FROM 0,0 TO 12,35 TITLE \'Test\'\ncGet1 &#58;= &quot;Hola        &quot;\ncGet2 &#58;= &quot;Bye         &quot;\n@ 10,10  BUTTON &quot;Button 01&quot;  SIZE 100,20 PIXEL OF oWnd ACTION MsgInfo&#40;&quot;Button 01&quot;&#41;\n@ 40,10  GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd\n@ 70,10  GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd\nACTIVATE WINDOW oWnd\nRETURN NIL\n[/code:2y8j1ry1]','',0,'AIA=','2y8j1ry1',1,0,'',63,0,0),(5325,1170,2,347,0,'201.246.66.181',1137502524,1,0,1,1,1,0,'','Igual Problemas con Folder','Hola amigo tengo una dudas:\ncon los folder, resulta que tengo una base\nde datos con los siguientes campos y datos\n\n  Codigo Detalle\n  ------ -------\n  X-1    XXXXXXXXXXX\n  X-1    WWWWWWWWWWW\n  X-2    AAAAAAAAAAA\n  X-2    CCCCCCCCCCC\n  B-1    UUUUUUUUUUU\n  B-1    PPPPPPPPPPP\n  B-2    VVVVVVVVVVV\n  B-2    SSSSSSSSSSS\n\nEstos Datos los quiero en un Folder con dos pestañas\nuna llamada Pestaña-1 y la otra Pestaña-2 pero el problema\nque tengo es que en cada pestaña tienen que ir 2 Lisbox como\nen este ejemplo.\n\nPestaña-1                     Pestaña-2\nListBox 1                        ListBox 1\n  Codigo Detalle              Codigo Detalle\n  X-1    XXXXXXXXXXX     B-1    UUUUUUUUU\n  X-1    WWWWWWWW     B-1    PPPPPPPPP\n\nListBox 2                         LISTBOX\n  Codigo Detalle               Codigo Detalle\n  X-2    AAAAAAAAAAA     B-2    VVVVVVVVV\n  X-2    CCCCCCCCCC     B-2    SSSSSSSSS\n\nTodos los Datos estan es una sola base de Datos desde\nya gracias\nSaludos','',0,'AIA=','165teiwj',1,0,'',347,0,0),(5326,1305,6,132,0,'83.213.45.32',1137503918,1,0,1,1,1,1,'','TFolder y FWH27','Amigos:\n\nEstoy pasando mis programas de FWH24 a FW27+xHarbour, me funciona casi todo, pero por ejemplo no me aparecen los folders, ni siquieran se ven las pestañas.\n\n  REDEFINE FOLDER oFol ID 100 OF oDlg;\n    ITEMS \"General\",\"Comercial\",\"Consultas\" ;\n    DIALOGS \"ArtGeneral\",\"ArtComercial\",\"ArtConsulta\"\n\n¿Ya no se pueden usar en esta version?\n\nUso FWH27 + xHarbour 0.99.51 + BCC55\n\nGracias de antemano por vuestra ayuda.','',0,'AIA=','52cgu65a',1,0,'',132,0,0),(5327,1306,6,132,0,'83.213.45.32',1137504763,1,0,1,1,1,1,'','SayBitMap con Tprinter','Amigos:\n\nCon fw24+xharbour 0.92, me imprime bien los bitmap al hacer un formulario con tprinter, pero con fw27+xharbour 0.99.51, al previsualizar, me aparece un cuadro negro en su lugar.\n\nPRINTER oPrn NAME \"Pruebas con logo\" PREVIEW MODAL\n  DEFINE FONT oFn[1] NAME \"Arial\" SIZE 0, -8 OF oPrn   	  \n  oPrn:StartPage()\n  nDesde:=oPrn:Cmtr2Pix(1.0,1.0); nHasta:=oPrn:Cmtr2Pix(5.0,5.0)     \n  oPrn:SayBitmap(nDesde[1],nDesde[2],\"Logo.bmp\",nHasta[1],nHasta[2],2)\n   oPrn:Cmsay(2.0,7.0,\"PRUEBA DE TEXTO CON LOGO\",oFn[1])\n   oPrn:EndPage()\nENDPRINT\n\nGracias de antemano por vuestra ayuda','',0,'','sw3t2sxt',1,0,'',132,0,0),(5328,1305,6,278,0,'200.72.147.10',1137504950,1,0,1,1,1,1,'','Como usar Tfolder en FWH','Alfonso debes cambiar en el RC por ejemplo :\n\n\n CONTROL \"TFolder\", 500, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 17, 364, 246\n\n\nAhora se usa   \"SysTabControl32\" \n\nSaludos\n\nJCaro','',0,'','3dn8qznr',1,0,'',278,0,0),(5329,1275,6,228,0,'201.245.222.85',1137507454,1,0,1,1,1,1,'','GRACIAS','Gracias amigo lo probare y te aviso ...','',0,'','2wujl8hv',1,0,'',228,0,0),(5330,1284,6,228,0,'201.245.222.85',1137507806,1,0,1,1,1,1,'','Perdon la ignoracia.','jlcapel, como vas?\n\nPerdon la ignorancia, pero me puedes explicar un poco mas que es ADO y cuales son sus ventajas?','',0,'','2q9mpreu',1,0,'',228,0,0),(5331,1292,6,43,0,'201.127.19.186',1137508178,1,0,1,1,1,0,'','','Antonio,\n\n   Estoy utilizando los de FWH\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'','1h8nd2rb',1,0,'',43,0,0),(5332,1170,2,228,0,'201.245.222.85',1137508503,1,0,1,1,1,1,'','','Dame tu correo y te mando un ejemplo para ver si es lo que necesitas.','',0,'','393bwwvy',1,0,'',228,0,0),(5333,1304,2,228,0,'201.245.222.85',1137508540,1,0,1,1,1,1,'','','Dame tu correo y te mando un ejemplo para ver si es lo que necesitas\n\nSaludos','',0,'','1xe9tmxl',1,0,'',228,0,0),(5334,1292,6,228,0,'201.245.222.85',1137508848,1,0,1,1,1,1,'','','Perdon la intromicion, pero sera que me pueden indicar cual es el nombre del ejemplo para revisarlo.','',0,'','3c62p843',1,0,'',228,0,0),(5335,1277,6,18,0,'200.67.188.236',1137509446,1,0,1,1,1,1,'','','Si estas usando xMate\n\n%C_BIN_INSTALL%\\Bcc32.Exe -DHB_API_MACROS -M -c  -[b:3b4ynoxm]D__HARBOUR__[/b:3b4ynoxm] -O2 -e  -tWM -DHB_COMPAT_C53 \n -I%HB_INC_INSTALL%;%C_INC_INSTALL%  -n%HOME%\\Obj %C%[/b]\n\nSi usas un .mak busca la declaración de flag para Bcc32, si usas xHarbour.com lo agregas en el apartado para flag de la segunda opción.','',0,'QA==','3b4ynoxm',1,0,'',18,0,0),(5336,1305,6,362,0,'200.168.52.156',1137509494,1,0,1,1,1,1,'','','SysTabControl32 -&gt; En la version del FIVEWIN 2.7 FOR [x]HARBOUR, no si usa mas. És TFOLDER normal.','',0,'','1cxp2f21',1,0,'',362,0,0),(5337,1305,6,362,0,'200.168.52.156',1137509619,1,0,1,1,1,1,'','','REDEFINE FOLDER oFld ID 101 OF oDlg                                       ;\n             PROMPT \"Dados Co&amp;merciais \", \"Com&amp;plemento \"                     ;\n             DIALOGS \"FLD_CLIENTES\", \"FLD_CLIENTES_2\"                         ;\n             COLORS nRGB( 127, 127, 127 ), nRGB( 143, 188, 143 )              ;\n             ADJUST','',0,'','fdnk1voc',1,0,'',362,0,0),(5338,1293,2,348,0,'201.230.65.83',1137510230,1,0,1,1,1,0,'','','Buen  dia Antonio\n\nEstos valores que me mencionas nunca los he variado y  son  :   heapsize=1024   y stacksize=9500\n\nSi fueran estos parametros el inconveniente, quizas me mencionaras su ampliacion o disminucion,   podrias adicionalmente a esto darnos una vision bajo que criterio utilizarlos y/o ampliar dichos parametros\n\nmuchas gracias \nLubin\n\n\n \n\n[quote=&quot;Antonio Linares&quot;:18jiylgn]Lubin,\n\nQue valores de heapsize y de stacksize estás usando en tu fichero LNK de Blinker ?[/quote:18jiylgn]','',0,'gA==','18jiylgn',1,0,'',348,0,0),(5340,1307,3,69,0,'206.210.97.138',1137511015,1,0,1,1,1,0,'','Copy window to bmp file','Hi,\n\nIs there any way to copy a window (or part of a window) to a bmp file?\n\n\nThanks,\n\nJeff','',0,'gA==','2wa0xzw4',1,0,'',69,0,0),(5341,1307,3,6,0,'82.59.51.229',1137511794,1,0,1,1,1,1,'','Re: Copy window to bmp file','For the entire window you can use TWindow:SaveToBmp() method.\n\nEMG','',0,'gA==','337nnks3',1,0,'',6,0,0),(5342,1232,3,339,0,'200.217.85.254',1137513034,1,0,1,1,1,0,'','','thanks enrico','',0,'gA==','1ux7l819',1,0,'',339,0,0),(5343,1259,6,391,0,'200.21.237.14',1137516958,1,0,1,1,1,1,'','LISTO RENE !!','Rene:\nMil gracias por tu orientacion. Ya creamos el diccionario de datos, creamos tablas y las accesamos remotamente y todo funciono bien.\nPero los tiempos registrados para creacion de registros y otros no fueron los mejores.  En cambio si se comporta muy bien en la intranet. Por ahora lo dejaré asi. Esto lo hicimos para ir mirando una opcion al .NET\n\nLe reitero mis agradecimientos y seguiremos adelante.','',0,'gA==','15jz37kc',1,0,'',391,0,0),(5344,1307,3,69,0,'206.210.97.138',1137517588,1,0,1,1,1,0,'','','Thanks for the fast reply Enrico but it does not seem to work.\n\nI get a run time error:  Message not found: TWINDOW:SAVETOBMP\n\n\n\nJeff','',0,'gA==','tdlzyhqm',1,0,'',69,0,0),(5345,1284,6,138,0,'201.128.111.75',1137517627,1,0,1,1,1,1,'','','No soy JL Capel, pero \"algo\" se de esto:\n\n1) ADO = Activex Data Objects, un estandar de windows que te permite accesar a datos SQL utilizando componentes OLE\n\n2) La ventaja, no necesitas configurar nada excepto el \"ADO Provider\", que en realidad es un componente ODBC muy simple de instalar.\n\n3) ADO te provee de una forma estandar de acceder a los datos, sin importar que base de datos utilices, MySQL, SQL Server, Oracle, Informix, ADS etc. El mismo juego de metodos ADO funciona para cualquier base de datos.\n\n4) ADO trabaja con 3 objetos basicos: Conexion, Comando y RecordSet, todos accesibles desde OLE con (x)Harbour.\n\n5) Un objeto RecordSet es muy similar a un objeto TDBF de FW, asi todas las operaciones sobre un grupo de datos son realizadas de manera rapida sin necesidad de ejecutar comandos SQL sobre una tabla.\n\nEste es un ejemplo basico de conexion ADO con MySQL:\n\n\n[code:1warwku8]   \n\n/* creamos el objeto conexion */\noCon&#58;=toleauto&#40;&#41;&#58;new&#40;&quot;adodb&#46;connection&quot;&#41;\n\n/* conectamos con el servidor de base de datos de MySQL */\n oCon&#58;OPEN&#40;&quot;DRIVER=&#123;MySQL ODBC 3&#46;51 DRIVER&#125;;SERVER=192&#46;168&#46;2&#46;101;DATABASE=garis;UID=root;PWD=18167231&quot;&#41;\n\n\n/* creamos un objeto comando para ejecutar los queries */\n oSql&#58;=toleauto&#40;&#41;&#58;new&#40;&quot;adodb&#46;command&quot;&#41;\n\n/* &quot;conectamos&quot; el objeto comando con la conexion previamente creada*/\noSql&#58;ActiveConnection&#40;oCon&#41;\n\n/* Creamos el Query SQL en la DATA CommandText*/\n oSql&#58;CommandText&#58;=&quot;Select * from B3000 where nomar like \'%CHICO%\'&quot;\n\n/* Ejecutamos el Query, el resultado del query queda guardado en otro objeto tipo &quot;recordset&quot; */\noDatos&#58;=oSql&#58;Execute&#40;&#41;\n\n/* ¿ cuantos renglones trajo de regreso el query ?*/\n? STR&#40;oDatos&#58;RecordCount&#40;&#41;&#41;\n\n/* ¿ cuantas Columnas trajo de regreso el query ? */\n? STR&#40;oDatos&#58;Fields&#58;Count&#40;&#41;&#41;\n\n/* Vamos a volcar todos los datos retornados por el query en un array de &#40;x&#41; Harbour*/\n\naDatos &#58;= &#123;&#125;\n\noDatos&#58;MoveFirst&#40;&#41; // equivale a GO TOP en un DBF\n\ndo while &#46;not&#46; oDatos&#58;EOF&#40;&#41;\n   AADD&#40;aDatos, &#123;oDatos&#58;Fields&#40;0&#41;&#58;value,;\n                          oDatos&#58;Fields&#40;1&#41;&#58;value,;\n                          oDatos&#58;Fields&#40;2&#41;&#58;value,;\n                          oDatos&#58;Fields&#40;3&#41;&#58;value&#125;&#41;\n     oDatos&#58;MoveNext&#40;&#41; // equivale un SKIP en un DBF\nenddo\n[/code:1warwku8]','',0,'AIA=','1warwku8',1,0,'',138,0,0),(5346,1289,6,328,0,'200.12.61.91',1137517666,1,0,1,1,1,0,'','','Antonio, \nobtengo el Error: Unresolved external _HB_FUN_ISEXERUNNING ...\nEstoy utilizando FWH2.5 + xHarbour\n\nSaludos, \nCarlos Sincuir\n\n\n[quote=&quot;Antonio Linares&quot;:13q7pwu9]Carlos,\n\nIF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )\n   RETURN NIL\nENDIF[/quote:13q7pwu9]','',0,'gA==','13q7pwu9',1,0,'',328,0,0),(5347,1297,1,303,0,'68.7.28.54',1137517707,1,0,1,1,1,0,'','','I have a copy of the Gantt chart software. I need your email address to send it.\n\nRegards,\nJames','',0,'gA==','20w85jtr',1,0,'',303,0,0),(5348,1307,3,6,0,'87.1.198.124',1137517840,1,0,1,1,1,1,'','','This is the method:\n\n[code:3qnr9tox]SaveToBmp&#40; cBmpFile &#41; CLASS TWindow\n\n   local hBmp &#58;= WndBitmap&#40; &#58;&#58;hWnd &#41;\n   local hDib &#58;= DibFromBitmap&#40; hBmp &#41;\n\n   DibWrite&#40; cBmpFile, hDib &#41;\n   GloBalFree&#40; hDib &#41;\n   DeleteObject&#40; hBmp &#41;\n\nreturn &#40; File&#40; cBmpFile &#41; &#41;[/code:3qnr9tox]\n\nEMG','',0,'AIA=','3qnr9tox',1,0,'',6,0,0),(5349,1259,6,138,0,'201.128.111.75',1137518206,1,0,1,1,1,1,'','','El tiempo de acceso a los datos depende mucho de varios factores:\n\n1) Tipo de compresion para envio de datos configurada en el Advantage Configuration Utility. Si vas a utlizar el Internet Server, deberas establecer una compresion tipo \"internet\" en la herramienta de configuracion.\n\n2) Ancho de banda: Para utilizar el AIS correctamente nosotros recomendamos un ADSL minimo de 256 kbps tanto en el cliente como en el servidor.\n\n3) Mecanismo de apertura y cerrado de los DBFs, debes evitar a toda costa abrir y cerrar archivos DBF durante la ejecucion del programa, debes abrir TODOS los archivos al comenzar el programa mantenerlos abiertos y cerrarlos hasta que termine la ejecucion.\n\nCon estos 3 puntos seguro la velocidad de aplicacion aumentara de manera considerable.','',0,'AIA=','1a1m29od',1,0,'',138,0,0),(5350,1284,6,328,0,'200.12.61.91',1137518320,1,0,1,1,1,0,'','','Rene,\nDonde puedo encontrar mas información de los comandos, varaibles,etc.,  de ADO, ej:\n[code:1aoi2kwb]\noSql&#58;CommandText&#58;=&#46;&#46;&#46;\noDatos&#58;=oSql&#58;Execute&#40;&#41; \noDatos&#58;RecordCount&#40;&#41;\noDatos&#58;Fields&#58;Count&#40;&#41;\noDatos&#58;MoveFirst&#40;&#41;\noDatos&#58;Fields&#40;0&#41;&#58;value&#46;&#46;&#46;\n[/code:1aoi2kwb]\netc.\n\nSaludos,\n\nCarlos Sincuir','',0,'AIA=','1aoi2kwb',1,0,'',328,0,0),(5351,1307,3,69,0,'206.210.97.138',1137518686,1,0,1,1,1,0,'','','Thanks,  I\'ve got it working now <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)\n\nJeff','',0,'AIA=','2ma2wo2l',1,0,'',69,0,0),(5352,1280,20,29,0,'80.181.108.140',1137520143,1,0,1,1,1,0,'','','Grazie. E\' tutto Ok adesso.\n\nSaluti\n\nMarco','',0,'AIA=','t8zb21y8',1,0,'',29,0,0),(5353,1240,19,2,0,'80.32.22.38',1137523228,1,0,1,1,1,1,'','','It is expected a much more advanced January Vista beta. Actual build is 5270.','',0,'AIA=','vdrmfvce',1,0,'',2,0,0),(5354,1258,2,404,0,'213.231.101.107',1137524553,1,0,1,1,1,0,'','','Lo probaré. Si, tuviera algún problema te lo comunicaré. \n\nDe todas formas, si algun colega más, me puede dar alguna orientación. Lo agradecería.\n\nSaludos, José Mª','',0,'AIA=','3g3bww9k',1,0,'',404,0,0),(5355,1289,6,2,0,'80.32.22.38',1137524623,1,0,1,1,1,1,'','','Carlos,\n\nLa función IsExeRunning() se implementó en el build del mes de Febrero del 2005.','',0,'AIA=','1fk4s4qk',1,0,'',2,0,0),(5356,1303,6,2,0,'80.32.22.38',1137524985,1,0,1,1,1,1,'','','Rafael,\n\nAcabamos de probarlo, usando Harbour, y funciona correctamente:\n\n[url=http&#58;//imageshack&#46;us:hnxksj6o][img:hnxksj6o]http&#58;//img59&#46;imageshack&#46;us/img59/8706/image24mr&#46;jpg[/img:hnxksj6o][/url:hnxksj6o]','',0,'GA==','hnxksj6o',1,0,'',2,0,0),(5357,1305,6,2,0,'80.32.22.38',1137525143,1,0,1,1,1,1,'','','Txon,\n\nComo te han indicado, cambia \"TFolder\" por \"SysTabControl32\" en tus recursos. Eso es todo.','',0,'GA==','7lxgl4k2',1,0,'',2,0,0),(5358,1279,6,2,0,'80.32.22.38',1137525236,1,0,1,1,1,1,'','','Oscar,\n\nEl error que te aparece es debido a los menus que estás usando. Por favor, prueba con los menus estandard de FWH y verás como funciona bien.','',0,'GA==','1nn4h92b',1,0,'',2,0,0),(5359,1292,6,2,0,'80.32.22.38',1137525334,1,0,1,1,1,1,'','','Marco,\n\nPodrias por favor proporcionar un ejemplo pequeño y autocontenido, que use clases estandard de FWH y que reproduzca el problema ? gracias.','',0,'GA==','225sddsb',1,0,'',2,0,0),(5360,1306,6,2,0,'80.32.22.38',1137525529,1,0,1,1,1,1,'','','Alfonso,\n\nEl ejemplo samples\\TestPrn2.prg muestra correctamente un bitmap en un preview. Puedes por favor probarlo y comprobar si te funciona bien ese ejemplo ? gracias.','',0,'GA==','30buafd8',1,0,'',2,0,0),(5361,1303,6,63,0,'80.58.35.107',1137525610,1,0,1,1,1,0,'','','Antonio:\nSí, con el Bye de inicialización funciona.  Pero intenta cambiar el Bye por cualquier otra cosa y captura. A mí me sigue dando \"Bye\"\nRafael','',0,'GA==','1cg9xc4t',1,0,'',63,0,0),(5362,1303,6,2,0,'80.32.22.38',1137526146,1,0,1,1,1,1,'','','Rafael,\n\nEs bastante extraño, es como si Windows guardase esa información en un buffer interno, porque si cambias esta línea en test.prg:\n\n@ 10,10  BUTTON \"Button 01\"  SIZE 100,20 PIXEL OF oWnd ACTION MsgInfo(GetWindowText( oGet2:hWnd )) \n\nverás que muestra el texto del GET correctamente. \n\nVas a tener que intentar capturar los datos usando otro sistema: el mensaje WM_COPYDATA. Tienes un ejemplo en samples\\copy_16_32\\fwcopy16.prg. El ejemplo es para 16 bits y habría que adaptarlo un poco para 32 bits.','',0,'GA==','338mw5et',1,0,'',2,0,0),(5363,1293,2,2,0,'80.32.22.38',1137526328,1,0,1,1,1,1,'','','Lubin,\n\nEsos valores están bien. No hay que modificarlos.\n\nNosotros hemos visto aplicaciones en FW Clipper de hasta 4.000.000 bytes funcionando sin problemas.\n\nEse nuevo módulo que añades y que genera el problema, ¿ qué es lo que hace ?','',0,'GA==','379y14om',1,0,'',2,0,0),(5364,1299,3,2,0,'80.32.22.38',1137526575,1,0,1,1,1,1,'','','Deano,\n\nPlease try this:\n\nIF ! FILE(mFileName) \nreturn .f. \nendif \nMsgInfo( \"The file exists!\" )\n\nand let us know if you get that message. Also, what RDD are you using ?','',0,'GA==','2kzh0k70',1,0,'',2,0,0),(5365,1302,2,2,0,'80.32.22.38',1137526795,1,0,1,1,1,1,'','','Felipe,\n\nSi vas a usar la misma base de datos en dos páginas distintas del folder, tendrás que abrir dos veces la misma base de datos (la segunda vez con un alias distinto) para que puedan situarse en distintos registros.','',0,'GA==','39vmlx8u',1,0,'',2,0,0),(5366,1308,3,300,0,'201.14.120.231',1137530225,1,0,1,1,1,0,'','SetDate() function','Hi \n\nSetDate() function don\'t work correct, i try:\n\nSetDate(02,01,2006) and returns 01/01/2006\n\nWhy? \n\nThanks.\nFwh2.6','',0,'GA==','38y3l0hv',1,0,'',300,0,0),(5367,1303,6,28,0,'87.218.46.111',1137530531,1,0,1,1,1,0,'','','No será que no has pasado de Get, osea que has escrito pero el Get no ha perdido el foco y no ha hecho el SetWindowText interno que hace y lo único que tiene es el texto en pantalla.\n\nIntenta dar el foco a otro control, osea que el cursor no esté en el Get sino en otro control.','',0,'GA==','1levy6zw',1,0,'',28,0,0),(5368,1303,6,63,0,'80.58.35.107',1137530828,1,0,1,1,1,0,'','','Paco:\nNo.  He hecho pruebas pulsando Return y Tab después de entrar el dato, y el problema persiste.\n\nSi quieres probarlo tú mismo, el código que he puesto más arriba te permitirá ver el problema.\nSaludos\nRafael','',0,'GA==','1vp8r2w9',1,0,'',63,0,0),(5369,1303,6,63,0,'80.58.35.107',1137530975,1,0,1,1,1,0,'','','Antonio:\nMe he mirado fwcopy16 pero me temo que ese nivel de C supera lo que yo me atrevo a hacer.  Además, ese ejemplo parece que es para copiar datos de mi aplicación a otra ventana y yo necesito justo lo contrario: \"Leer\" de la otra ventana\n\nSeguiremos dándole vueltas, porque tengo un cliente esperando que le diga algo... Saludos,\nRafael','',0,'GA==','9zs735u8',1,0,'',63,0,0),(5370,1297,1,379,0,'59.167.114.92',1137537565,1,0,1,1,1,0,'','','Thanks James see your private email.\n\nMuch appreciated.\n\nGerry','',0,'GA==','3tzcwp1c',1,0,'',379,0,0),(5371,1279,6,203,0,'200.107.17.43',1137539895,1,0,1,1,1,1,'','','Si listo funciona, una cosa más entre usar tsbrowse y xbrowse cual me aconseja\n\n\nGracias por su prontas respuestas\n\n\nSaludos\nOscar','',0,'GA==','dcpxylgm',1,0,'',203,0,0),(5373,1297,1,397,0,'201.43.8.118',1137542465,1,0,1,0,1,1,'','','Hi, James\n\nYou can send thies software for me, too?\n\nMy congratulations.','',0,'GA==','1kxc1xfu',1,0,'',397,0,0),(5374,1309,6,40,0,'201.132.139.207',1137547046,1,0,1,1,1,0,'','TWord Modificada por Vikthor','Buenas tardes foro, en un mensaje anterior Vikthor comenta de la TWord para xHarbour, la he buscato en DBWide, pero la que encuentro no es la modificada por Vik.\n\nVikthor no se si puedas mandarmela a  apoyo Arroba sadmin.com.mx o bien indicarme donde la subiste.\n\nMil gracias de antemano\nSaludos\n\nJoel Andujo','',0,'GA==','1uvvrr60',1,0,'',40,0,0),(5375,1310,3,303,0,'68.7.28.54',1137547161,1,0,1,1,1,0,'','Looking for xHarbour ver 0.99.1 and/or 0.99.2','I am using FWH 2.6, May 2005 build, with Borland C and trying to compile with xHarbour. I have tried ver 0.99.0 and 0.99.3--0.99.0 runs but nothing shows up. 0.99.3 says PCODE 7 no longer supported. So I guess I need either ver 0.99.1 or 0.99.2.\n\nDoes anyone have a copy of either that they could mail to me?\n\nThanks,\nJames','',0,'GA==','25ay2zl8',1,0,'',303,0,0),(5376,1289,6,328,0,'200.12.61.91',1137551851,1,0,1,1,1,0,'','','Gracias Antonio, ya me funciono, estaba enlazanado las libs de FW24\n\nSaludos.\n\nCarlos Sincuir','',0,'GA==','289xifu5',1,0,'',328,0,0),(5377,1292,6,43,0,'201.127.19.186',1137556037,1,0,1,1,1,0,'','','este es lo que he probado..\n[code:24a2hobv]#Define COLOR_BTNFACE 15\n#Define CLR_NBLUE  nRGB&#40; 128, 128, 192&#41;\n\n#Include &quot;FiveWin&#46;ch&quot;\n\nStatic oWndPrinc, oOut, oBtn&#91;2&#93;\nStatic cEmpresa, oFont\n***************************\nFunction Main&#40;&#41;\n  Local oIcon, oCur, oBar, cUsuario\n  Local oSpl, oUsuario, oBrush, oSay, oEmpresa\n  DEFAULT cEmpresa &#58;= &quot;Transporte Urbano de Poza Rica, S&#46;A&#46; de C&#46;V&#46;&quot;\n  DEFAULT cUsuario &#58;= &quot;&quot;\n\n  REQUEST DBFCDX\n  RDDSETDEFAULT&#40;&quot;DBFCDX&quot;&#41;\n  SET CENTURY ON\n  SET DATE BRITISH\n  SET DELETE ON\n  SET EPOCH TO 1989\n  SetHandleCount&#40; 80 &#41;\n  Set3dLook&#40;&#46;T&#46;&#41;\n\n  DEFINE ICON oIcon RESOURCE &quot;A&quot;\n  DEFINE CURSOR oCur RESOURCE &quot;Hand&quot;\n  DEFINE BRUSH oBrush RESOURCE &quot;Brush2&quot;\n  DEFINE FONT oFont  NAME &quot;Arial&quot; SIZE 0, -11\n\n  DEFINE WINDOW oWndPrinc ;\n         TITLE &quot;Sistema Administrativo para Transporte de Pasajeros para Windows&quot; ;\n         COLOR CLR_BLACK, GetSysColor&#40;15&#41;-RGB&#40;30,30,30&#41; ;\n         MENU CreaMenu&#40;&#41; ;\n         ICON oIcon\n\n         oWndPrinc&#58;SetFont&#40; oFont &#41;\n\n         DEFINE BUTTONBAR oBar 3DLOOK OF oWndPrinc SIZE 35, 35\n                oBar&#58;bLClicked &#58;= &#123;|| 0 &#125;\n                oBar&#58;bRClicked &#58;= &#123;|| 0 &#125;\n\n                DEFINE BUTTON oBtn&#91;1&#93; OF oBar    ;\n                       RESOURCE &quot;EXIT&quot;,&quot;EXIT&quot;   ;\n                       ACTION oWndPrinc&#58;End&#40;&#41;       ;\n                       MESSAGE &quot; Salir del Sistema&quot; ;\n                       TOOLTIP &quot;Salir del Sistema&quot;  ;\n							  NOBORDER\n\n                DEFINE BUTTON oBtn&#91;2&#93; OF oBar ;\n							  RESOURCE &quot;PRINTER&quot;     ;\n                       ACTION MenuPop&#40; oBtn&#91;2&#93; &#41;  ;\n                       FONT oWndPrinc&#58;oFont          ;\n                       MESSAGE &quot; Reportes del Sistema&quot; ;\n                       NOBORDER            ;\n                       GROUP\n\n         SET MESSAGE OF oWndPrinc TO &quot; Prueba &quot; CENTER NOINSET\n\n                    oWndPrinc&#58;oMsgBar&#58;DateOn&#40;&#41;\n\n  ACTIVATE WINDOW oWndPrinc          ;\n           VALID &#40;oFont&#58;End&#40;&#41;, &#46;T&#46; &#41; ;\n           MAXIMIZED\n\n\nReturn Nil\n*******************\nFunction CreaMenu&#40;&#41;\n  Local oMenu\n  Local lEnable &#58;= &#46;F&#46;\n\n        MENU oMenu\n				MenuItem &quot;Primero&quot;\n				  Menu\n					 MenuItem &quot;Acerca1&quot;\n				      Menu\n					     MenuItem &quot;Punto1&quot;\n					     MenuItem &quot;Punto2&quot;\n				          Menu\n					         MenuItem &quot;Parte1&quot;\n					         MenuItem &quot;Parte2&quot;\n					         MenuItem &quot;Parte3&quot; When lEnable\n				          EndMenu\n					     MenuItem &quot;Punto3&quot; When lEnable\n				      EndMenu\n					 MenuItem &quot;Acerca2&quot;\n					 MenuItem &quot;Acerca3&quot; When lEnable\n				  EndMenu\n				MenuItem &quot;Segundo&quot;\n        EndMenu\n\nReturn&#40;oMenu&#41;\n*******************************************\nStatic Function MenuPop&#40; oBtn &#41;\n  Local oMenu, aRect\n  Local tUsuario\n  Local lEnable &#58;= &#46;F&#46;\n\n    MENU oMenu POPUP\n       MenuItem &quot;Informe de &amp;Recaudaciones Diarias&quot;\n       SEPARATOR\n       MenuItem &quot;Deducciones a &amp;Operadores&quot; ;\n              RESOURCE &quot;Oper16&quot;\n              Menu\n                 MenuItem &quot;&amp;Detallado &#40;Ordenado por Operador&#41;&quot; When lEnable\n					  MenuItem &quot;&amp;Acumulado &#40;Ordenado por Operador&#41;&quot; When lEnable\n                 MenuItem &quot;&amp;Individual&quot;\n              EndMenu\n       MenuItem &quot;Informe de &amp;Pensiones a Operadores&quot;\n\n       SEPARATOR\n       MenuItem &quot;&amp;Ingresos&quot;\n           Menu\n              MenuItem &quot;Mensual por &amp;Unidad&quot; When lEnable\n                  Menu\n                     MenuItem &quot;&amp;Detallado &#40;Ordenado por Unidad&#41;&quot;\n                     MenuItem &quot;&amp;Acumulado &#40;Ordenado por Ingresos&#41;&quot;\n							MenuItem &quot;por &amp;Unidad &#40;en Detalle&#41;&quot;\n                  EndMenu\n				  MenuItem &quot;Mensual por &amp;Operador&quot;  ;\n						     RESOURCE &quot;Oper16&quot; When lEnable\n                  Menu\n                     MenuItem &quot;&amp;Detallado &#40;Ordenado por Operador&#41;&quot;\n							MenuItem &quot;&amp;Acumulado &#40;Ordenado por Ingresos&#41;&quot;\n                     MenuItem &quot;&amp;Individual &#40;en Detalle&#41;&quot;\n                  EndMenu\n              MenuItem &quot;Mensual Por &amp;Empresas&quot; When lEnable\n				  MenuItem &quot;Mensual Por &amp;Bases&quot;\n				  SEPARATOR\n				  MenuItem &quot;Anual por &amp;Unidad&quot;\n				  MenuItem &quot;Anual por &amp;Operador&quot; ;\n						     RESOURCE &quot;Oper16&quot;\n                  Menu\n                     MenuItem &quot;&amp;Global&quot;\n                     MenuItem &quot;&amp;Individual&quot;\n                  EndMenu\n				  MenuItem &quot;Anual por &amp;Empresas&quot; When lEnable\n				  MenuItem &quot;Anual por &amp;Bases&quot;\n           EndMenu\n       SEPARATOR\n       MenuItem &quot;&amp;Generacion de Disco de Entregas&quot; When lEnable\n    ENDMENU\n\n	 ACTIVATE POPUP oMenu AT 10 , 0 OF oBtn\n\nReturn&#40;Nil&#41;\n[/code:24a2hobv]\n\ny sigo con el mismo problema, en los menus normales de una ventana no hay problema, pero dependiendo de una barra de herramientas el resultado es esto.\n\nPrueba en ventana principal:\n[img][url=http&#58;//imageshack&#46;us:24a2hobv][img]http://img371.imageshack.us/img371/2724/menua7mb.jpg[/img][/url:24a2hobv][/img]\n\nPrueba en una barra de la ventana principal\n\n[img][url=http&#58;//imageshack&#46;us:24a2hobv][img]http://img371.imageshack.us/img371/7351/menub4ab.jpg[/img][/url:24a2hobv][/img]\n\n[img][url=http&#58;//imageshack&#46;us:24a2hobv][img]http://img371.imageshack.us/img371/1791/menuc9nu.jpg[/img][/url:24a2hobv][/img]\n\nAntonio espero y esto te guie, gracias...\n\nSaludos\n\n  Marco A. Delgado.','',0,'GIA=','24a2hobv',1,0,'',43,0,0),(5378,1311,6,251,0,'201.248.67.227',1137558973,1,0,1,1,1,1,'','una pregunta causiosa sobre todos los enlaces','Hola a todos colegas, como sabran no tengo mucho tiempo en esto, pero cuando comenze existia una pagina (dBwide) que recopilaba todas las chucherias de FiveWin hechas por todas las colaboraciones de la comunidad (me refiero a programas demo, clases y programas fuentes), ahora estan regadas, me pregunto, hay alguna página que actualmente las recoge a todas nuevamente...?\n\nSabrian cual es? sera que necesitamos una otra vez?\n\nSaludos a todos y Harlud\n\nDi Gregorio\nCCS','',0,'GIA=','2q7senuy',1,0,'',251,0,0),(5379,1274,3,51,0,'80.122.88.242',1137561796,1,0,1,1,1,0,'','','Hello Daniel, hello Dante,\nwhat is the status of your program, do you think we can exchange some\nideas.\nRegards\nOtto\n<!-- w --><a class=\"postlink\" href=\"http://www.winhotel.at\">www.winhotel.at</a><!-- w -->','',0,'GIA=','190o3oe0',1,0,'',51,0,0),(5380,1310,3,31,0,'195.182.84.105',1137563398,1,0,1,1,1,1,'','Re: Looking for xHarbour ver 0.99.1 and/or 0.99.2','[quote=&quot;James Bott&quot;:3hg35e8c]I am using FWH 2.6, May 2005 build, with Borland C and trying to compile with xHarbour. I have tried ver 0.99.0 and 0.99.3--0.99.0 runs but nothing shows up. 0.99.3 says PCODE 7 no longer supported. So I guess I need either ver 0.99.1 or 0.99.2.\n\nDoes anyone have a copy of either that they could mail to me? [/quote:3hg35e8c]\n\n   James , why not rebuild FWH lib instead that ? I can send to you bat file for that and then you can work with the latest xHarbour ( without bugs also ) . Also , I think ,  Antonio can help in this situation - to get bat for rebuilding lib too , if my bat will not help to you . I\'m sendinh to you rebuildings bats ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n   With best regards ! Rimantas .','',0,'gA==','3hg35e8c',1,0,'',31,0,0),(5381,1310,3,2,0,'80.32.22.38',1137572231,1,0,1,1,1,1,'','','Rimantas,\n\nWe use a complex make file, not a bat, to create five different types of libraries for CA-Clipper, Harbour, xHarbour, C3, Xbase++, besides FWH 64 bits, FiveWin for Pocket PC and FiveLinux.','',0,'gA==','zam1dtqf',1,0,'',2,0,0),(5382,1274,3,3,0,'81.249.106.158',1137572534,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:ai90q3l9]Hello Daniel, hello Dante,\nwhat is the status of your program, do you think we can exchange some\nideas.\nRegards\nOtto\n<!-- w --><a class=\"postlink\" href=\"http://www.winhotel.at\">www.winhotel.at</a><!-- w -->[/quote:ai90q3l9]\n\nOtto\n\nCan you write to my private mail , i need some information (maybe partnership) about Hotel software.\n\nMy email is richardatcbati.com   replace the at with @ \n\nRichard','',0,'gA==','ai90q3l9',1,0,'',3,0,0),(5383,1308,3,2,0,'80.32.22.38',1137572687,1,0,1,1,1,1,'','','Wanderson,\n\nThis sample works ok. Could you please try it ? Thanks.\n\n[code:68b2i6ce]\nfunction Main&#40;&#41;\n\n  local dToday &#58;= Date&#40;&#41; \n\n  SET DATE FRENCH \n\n  SetDate&#40; 02, 01, 2006 &#41;\n\n  MsgInfo&#40; Date&#40;&#41; &#41;\n\n  SetDate&#40; Day&#40; dToday &#41;, Month&#40; dToday &#41;, Year&#40; dToday &#41; &#41;\n\n  MsgInfo&#40; Date&#40;&#41; &#41;  \n\nreturn nil\n[/code:68b2i6ce]','',0,'AIA=','68b2i6ce',1,0,'',2,0,0),(5384,1292,6,2,0,'80.32.22.38',1137573162,1,0,1,1,1,1,'','','Marco,\n\nPor favor prueba este cambio y dime si ya se ve bien (aunque estará en una posición distinta en la pantalla):\n\nACTIVATE POPUP oMenu AT 10 , 0 OF oBtn:oWnd:oWnd','',0,'AIA=','333cl1vr',1,0,'',2,0,0),(5385,1311,6,2,0,'80.32.22.38',1137573235,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/\">http://www.vikthor.com.mx/fivewin/</a><!-- m -->','',0,'AIA=','166wtkdo',1,0,'',2,0,0),(5386,1299,3,269,0,'217.37.54.49',1137575010,1,0,1,1,1,0,'','','Antonio,\n\nI am using SQL, and program now works, many thanks!\n\nOne final question, is how can i code the size of a listbox column?','',0,'AIA=','3g3c2mel',1,0,'',269,0,0),(5387,1297,1,130,0,'141.51.32.24',1137575364,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:14h63rq9]I have a copy of the Gantt chart software. I need your email address to send it.\n[/quote:14h63rq9]\n\nJames,\n\ncan you please send me a copy, too ?\n\nMy Email is <!-- e --><a href=\"mailto:sthaupt@uni-kassel.de\">sthaupt@uni-kassel.de</a><!-- e --> or <!-- e --><a href=\"mailto:sthaupt@gmx.net\">sthaupt@gmx.net</a><!-- e -->\n\nThanks\nStefan','',0,'gA==','14h63rq9',1,0,'',130,0,0),(5388,1307,3,190,0,'202.65.134.28',1137578856,1,0,1,1,1,0,'','','Mr.EMG\n\nSimilar to the above, is there any method to save a dialog to BMP ?\n\nNote : Tried to save a dialog using your above solution.  But could not save it.\n\n- Ramesh Babu P','',0,'gA==','1zak0y3c',1,0,'',190,0,0),(5389,1307,3,6,0,'82.57.162.196',1137580380,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:37e8aek4]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 0,  1 BUTTON &quot;Save BMP&quot; ACTION oDlg&#58;SaveToBmp&#40; &quot;SAVED&#46;BMP&quot; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:37e8aek4]\n\nEMG','',0,'AIA=','37e8aek4',1,0,'',6,0,0),(5390,1305,6,362,0,'200.168.52.156',1137581878,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1f6iq5ig]Txon,\n\nComo te han indicado, cambia \"TFolder\" por \"SysTabControl32\" en tus recursos. Eso es todo.[/quote:1f6iq5ig]\n\n\nANTONIO, PERDÓN. MAS SI JO CAMBIO EN MIS FOLDERS DI \"TFOLDER\" PARA \"SYSTABCONTROL32\", MI TRAVA LA ABA DEL FOLDER, CUANDO CLICKO EN EL BOTTON DEL RATÓN.\n\nESTO EN FIVEWIN 2.7 FOR XHARBOUR.  PORQUE??\n\nPERO SI USO \"TFOLDER\" NORMAL, MI FUNCIONA PERFECTO.','',0,'gA==','1f6iq5ig',1,0,'',362,0,0),(5391,1312,3,26,0,'193.77.141.234',1137584256,1,0,1,1,1,1,'','ADS (Advantage Database Server) 8 and FWH (Microsoft)','Hello!\n\nI want to use ADS 8 with my FWH application. According to\nthe documentation at <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwh.html\">http://www.fivetechsoft.com/english/fwh.html</a><!-- m -->\n\n[quote:2cw3bp4y]The link where you can find all the needed DLLs is on Advantage web site , developers resources section. Once there, you will need to register yourself, then you will have access to the Advantage Solutions web site. Then go the download area and select the 5.7/2.7 release section and click to download the file arc.exe. This software includes all the needed libraries which are:\n\nACE23.DLL: The 32-bit Advantage Client Engine. \nAXCWS32.DLL: The Advantage 32-bit communication layer for client/server access. \nADSLOC32.DLL: The 32-bit Advantage Local Server. \nEXTEND.CHR: OEM collation sequences. This file is needed if OEM character sets are to be used with Advantage Local Server. \nANSI.CHR: ANSI collation sequences. This file may be needed if ANSI character sets are to be used with Advantage Local Server. \nADSLOCAL.CFG: The configuration file for Local Server. \nAll these files should be placed on the \\WINDOWS\\SYSTEM directory. In case you have a Advantage Database server then you will only need ACE32.DLL and AXCWS32.DLL\n\nTo use the Advantage RDD from your Harbour applications you just need to do the following:\n\nMake a reference to file \'ADS.CH\' on your PRG files when needed \nInclude in the link file the libraries [b:2cw3bp4y]rddads.lib and ace32.lib[/b:2cw3bp4y] that came with fw for Harbour package \nRequest the Advantage RDD at the beginning of your application[/quote:2cw3bp4y]\n\nI need rddads.lib &amp; ace32.lib, but there is only rddads.lib in my Harbour(MS) folder.\nI found ace32.lib in aceapi.exe at <!-- m --><a class=\"postlink\" href=\"http://devzone.advantagedatabase.com/\">http://devzone.advantagedatabase.com/</a><!-- m -->\nIs it ok to use that file?\n\nRegards, Roman','',0,'wA==','2cw3bp4y',1,0,'',26,0,0),(5392,1313,6,157,0,'62.14.188.191',1137587290,1,0,1,1,1,0,'','Fecha y hora de archivos .dbf','Hola a todos:\nTengo un problema para controlar la fecha y hora de archivos .dbf.\n\nDespues de probar getftime() que segun la documentacion devuelve fecha y hora, no me funciona. Devuelve la hora pero no la fecha. Compile el ejemplo testfdate.prg y veo un mensaje que dice que Setftime() no esta soportado por fwh 32 bits. No pasara lo mismo que etftime() ??. Cual podria ser la alternativa a estas funciones.\n\nGracias a todos','',0,'wA==','1cid333k',1,0,'',157,0,0),(5393,1314,6,28,0,'213.27.201.254',1137590384,1,0,1,1,1,0,'','GDIPLUS','Hola a todos. \n\n¿Alguien ha trabajado en FiveWin con Gdi Plus?\n\nUn saludo','',0,'wA==','xtk21hfy',1,0,'',28,0,0),(5394,1315,3,28,0,'213.27.201.254',1137590451,1,0,1,1,1,0,'','GDI+','Helo\n\nHas somebody worked with GDIPLUS in FiveWin?\n\nPaco','',0,'wA==','3tfukxoq',1,0,'',28,0,0),(5395,1255,20,29,0,'80.181.108.140',1137592454,1,0,1,1,1,0,'','','Risolto, grazie.\n\nSaluti\n\nMarco','',0,'wA==','lu9g8z1x',1,0,'',29,0,0),(5396,1302,2,347,0,'201.246.67.103',1137594925,1,0,1,1,1,0,'','Antonio:','Como lo hago para Filtrar en los Folder','',0,'wA==','2jhsrkkp',1,0,'',347,0,0),(5397,1315,3,2,0,'80.32.22.38',1137594981,1,0,1,1,1,1,'','','Paco,\n\nIf I properly remember it, you published some tests with GDI+. \n\nWe still have them here.','',0,'wA==','ryswcus2',1,0,'',2,0,0),(5398,1312,3,2,0,'80.32.22.38',1137595267,1,0,1,1,1,1,'','','Roman,\n\nace32.lib is just an import library (it has no code) and should be created from the ace32.dll version that you are using.\n\nTo generate such ace32.lib file you may do:\n\nimpdef.exe ace32.def ace32.dll \n\nlib.exe /def:ace32.def /out:ace32.lib','',0,'wA==','19wz6zil',1,0,'',2,0,0),(5399,1314,6,2,0,'80.32.22.38',1137595357,1,0,1,1,1,1,'','','Paco,\n\nSi no recuerdo mal, tu publicastes unos primeros prototipos de uso de GDI+ con FW. Yo los tengo aqui.','',0,'wA==','65ot1nho',1,0,'',2,0,0),(5400,1305,6,2,0,'80.32.22.38',1137595424,1,0,1,1,1,1,'','','João,\n\nEstás usando la clase TFolder estandard de FWH ó usas una modificada ?','',0,'wA==','3t2zaejx',1,0,'',2,0,0),(5401,1305,6,362,0,'200.168.52.156',1137595618,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3h788405]João,\n\nEstás usando la clase TFolder estandard de FWH ó usas una modificada ?[/quote:3h788405]\n\n\nUSO ESTA ANTONIO, FANTASTICA. MUI BUENA! EXCELENTE!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=473\">http://www.fivewin.com.br/exibedicas.asp?id=473</a><!-- m -->','',0,'gA==','3h788405',1,0,'',362,0,0),(5402,1292,6,43,0,'201.127.19.186',1137595640,1,0,1,1,1,0,'','','Funciono..\n\n   Muchas Gracias.... pero a que se debe (claro si se puede saber)\n\n[img][url=http&#58;//imageshack&#46;us:3jm3gt6c][img]http://img371.imageshack.us/img371/4941/menud6yv.jpg[/img][/url:3jm3gt6c][/img]\n\n[img][url=http&#58;//imageshack&#46;us:3jm3gt6c][img]http://img371.imageshack.us/img371/3176/menue7kz.jpg[/img][/url:3jm3gt6c][/img]\n\n Pero sigue sin funcionar con tsbutton   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nSaludos\n   Marco A. Delgado.','',0,'GA==','3jm3gt6c',1,0,'',43,0,0),(5403,1297,1,15,0,'203.73.91.108',1137599139,1,0,1,1,1,0,'','','Hi, James \n\nPlease copy to me again.Thank you.\nYour file support 32bit FWH?\n\nRegards,\n\nRichard\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'GA==','1mgs7cgh',1,0,'',15,0,0),(5404,1306,6,132,0,'83.213.45.32',1137599661,1,0,1,1,1,1,'','SayBitMap con Tprinter','Antonio:\n  Gracias por tu respuesta, efectivamente el ejemplo TESTPRN2, funciona correctamente, compare la instruccion que viene en el ejemplo con la mia y me di cuenta de que hay un parametro de mas en mi ejemplo, me explico.\n\n oPrn:SayBitmap(nDesde[1],nDesde[2],\"Logo.bmp\",nHasta[1],nHasta[2],2)\n\nSobra el \"2\" final,  según tenia entendido deberia indicar que las dimensiones del bitmap van en centimetros pero no debe ser cierto. Elimine este parametro y me funciono.\n\nNo obstante, en la version FW24 si no lo usaba las dimensiones del bitmap me daban en pixeles.','',0,'','3rvs3zal',1,0,'',132,0,0),(5405,1247,6,21,0,'80.58.49.235',1137599724,1,0,1,1,1,1,'','','Hola Silvio,\n\nEn el archivo rc\n[code:2zavyqej]CONTROL &quot;&quot;, 105, &quot;SysDateTimePick32&quot;, DTS_TIMEFORMAT|WS_TABSTOP, 210, 18, 44, 12[/code:2zavyqej]\n\nEn el programa:\n[code:2zavyqej]cTime &#58;= \'153045\' // las 13h 30m 45s\nRedefine TMPicker oGet Var cTime Id 105 Update of oDlg[/code:2zavyqej]\n\nEn cuanto al fuente, Ya lo pondrá disponible Juan Carlos Salinas Ojeda','',0,'AIA=','2zavyqej',1,0,'',21,0,0),(5406,1292,6,43,0,'201.127.19.186',1137601521,1,0,1,1,1,0,'','','ok....funciono Antonio pero....\n\n   el menu se mueve demasiado, no queda debajo del botton que es donde lo requiero, tambien hice pruebas con tsbutton y el resultado es el mismo se mueve incluso si pongo otro <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->Wnd se pasa hasta la ventana principal.\n\nAlguna sugerencia\n\nSaludos\n\n  Marco A. Delgado.','',0,'AIA=','2qj2dcke',1,0,'',43,0,0),(5407,1293,2,348,0,'201.230.65.83',1137601858,1,0,1,1,1,0,'','','Buen dia Antonio\nGracias por la respuesta,  te comentare que es un simple mantenimiento de archivos, el cual tambien incluye una serie de funciones creadas por mi persona,  pero en terminos generales nada espectacular, pero al ejecutarlo me sale ese error que te comente inicialemente: MEMORIA INSUFICIENTE PARA EJECUTAR ESTA APLICACION, CIERRE UNA O MAS APLICACIONES Y VUELVA A INTENTAR LA OPERACION \n\nEl Titulo de la ventana de dicho mensaje es : No se puede ejecutar un programa de Windows de 16 \n\n\nPara que tengas una idea de los tamaños de los obj aqui va la lista de ellos , quizas deba separar mas los modulos como se hacia en clipper puro??\n\n18/01/2006  08:31 a.m.             1,101 JW-DBF0.OBJ\n11/05/2005  06:16 p.m.             1,556 WAJUCOD.OBJ\n17/01/2006  01:09 p.m.             2,072 JW-PERIO.OBJ\n17/01/2006  12:29 p.m.             2,243 WGES-DB1.OBJ\n10/01/2006  10:35 p.m.             2,315 JWPER10.OBJ\n17/01/2006  12:29 p.m.             2,494 WDBF-STD.OBJ\n24/03/2005  03:26 a.m.             2,918 WDCTO.OBJ\n10/01/2006  02:54 a.m.             3,660 JWFUN.OBJ\n26/12/2005  04:13 a.m.             3,667 STKSK.OBJ\n28/11/2004  11:11 p.m.             4,630 WMASPER.OBJ\n31/10/2004  06:09 a.m.             5,402 WTCB10.OBJ\n09/12/2005  04:23 a.m.             5,572 PVTSKPEN.OBJ\n31/12/2004  11:24 p.m.             5,839 WALM12.OBJ\n26/12/2005  11:28 p.m.             7,325 STAJUSTE.OBJ\n18/01/2006  10:55 a.m.            11,571 JWLA10.OBJ\n04/06/2005  09:53 p.m.            12,235 NCOR10.OBJ\n18/01/2006  08:35 a.m.            12,425 wjet.OBJ\n26/12/2005  04:08 a.m.            13,090 WSTK10.OBJ\n18/01/2006  08:15 a.m.            13,177 WGES.OBJ\n30/12/2005  12:53 p.m.            13,885 FBMAQ10.OBJ\n26/11/2004  03:41 a.m.            15,343 WSTK11.OBJ\n08/01/2006  05:44 p.m.            15,708 WALM11.OBJ\n09/01/2006  10:16 p.m.            17,670 FBDVM10.OBJ\n02/01/2006  10:54 p.m.            17,689 FBMOL10.OBJ\n08/01/2006  08:11 p.m.            18,000 FBREQ10.OBJ\n11/01/2005  04:27 p.m.            18,111 FBMFA10.OBJ\n05/08/2005  09:31 a.m.            18,803 FOF10.OBJ\n18/01/2006  10:57 a.m.            19,114 JWPC10.OBJ\n08/01/2006  06:50 p.m.            19,238 WALM10.OBJ\n24/03/2005  01:30 a.m.            20,193 WSTK12.OBJ\n08/01/2006  06:51 p.m.            22,303 WDIR10.OBJ\n09/01/2006  02:29 a.m.            23,545 FBPAR10.OBJ\n18/01/2006  08:41 a.m.            24,093 JW-DBF1.OBJ\n27/12/2005  08:47 p.m.            24,458 TGET.OBJ\n08/01/2006  06:49 p.m.            26,382 WPRD10.OBJ\n10/01/2006  10:48 p.m.            26,745 WPER10.OBJ\n15/01/2006  11:55 p.m.            27,898 FBFOF10.OBJ\n19/04/2005  04:05 p.m.            28,256 WPVT10.OBJ\n07/06/2005  04:47 p.m.            30,364 WGRE10.OBJ\n              39 archivos        541,090 bytes\n\n\nGracias por tu respuesta\nLubin\n\n\n\n[quote=&quot;Antonio Linares&quot;:1x53j2s1]Lubin,\n\nEsos valores están bien. No hay que modificarlos.\n\nNosotros hemos visto aplicaciones en FW Clipper de hasta 4.000.000 bytes funcionando sin problemas.\n\nEse nuevo módulo que añades y que genera el problema, ¿ qué es lo que hace ?[/quote:1x53j2s1]','',0,'gA==','1x53j2s1',1,0,'',348,0,0),(5409,1314,6,28,0,'213.27.201.254',1137602553,1,0,1,1,1,0,'','gdi+','Ya, lo hacia con una dll intermedia para acceder a las clases de GDIPLUS.dll\n\nResulta que he descubierto que la dll GDIPLUS.dll tiene simplemente funciones que se pueden utilizar sin mas para cargar imagenes, hacer efectos sobre ellas, enfin un monton de cosas. \n\nEl problema que tengo es que tengo los .h de visual C pero no los correspondientes para Borland y mis conocimientos no llegan a tanto como para convertirlos. \n\nSi alguien encuentra los .h de GdiPlus de Borland creo que podría hacer el wraper a esas funciones pero sino... \n\nSegún he leido GDI+ es de libre distribución por lo que dariamos un paso bastante grande con Five.\n\nUn saludo \n\nPaco','',0,'gA==','320pjxom',1,0,'',28,0,0),(5410,1312,3,35,0,'167.7.140.254',1137603153,1,0,1,1,1,0,'','','Antonio\n\nI think Roman is looking for the Microsoft MSVC lib to dll conversion .. and I don\'t think there is one.. your solution is from the Borland compiler and will not work if Roman is compiling with MSVC ????\n\nRick Lipkin','',0,'gA==','9o8v10nd',1,0,'',35,0,0),(5411,1312,3,26,0,'193.77.141.234',1137603242,1,0,1,1,1,1,'','','Hello!\n\nI generated ace32.lib according to your instructions,\nbut it does not work. When I link resulting library\nwith my app, I receive more than 100 unresolved externals\nlike:\n[quote:38onc72g]rddads.lib(adsfunc.obj) : error LNK2019: unresolved external symbol _AdsRollbackTransaction@4 referenced in function \"void __cdecl HB_FUN_ADSROLLBACK(void)\" (?HB_FUN_ADSROLLBACK@@YAXXZ)[/quote:38onc72g]\n\nLibrary ace32.lib, which I found in aceapi.exe, works OK.\n\nRegards, ROman','',0,'gA==','38onc72g',1,0,'',26,0,0),(5412,1316,6,28,0,'213.27.201.254',1137604278,1,0,1,1,1,0,'','ScrollBar','Hola\n\n¿Alguien sabe como cambiar el tamaño del botón deslizante del scrollBar?\n\nUn saludo','',0,'gA==','fgz82yek',1,0,'',28,0,0),(5415,1307,3,190,0,'202.65.134.46',1137610215,1,0,1,1,1,0,'','','Mr.Enrico\n\nThank you very much for your quick answer.\n\nI tried the funciton SaveToBmp(\"SavedBmp\") in association with INIT clause. It did not work. But it is working coolly with ON PAINT clause to save a Dialog to BMP.\n\nThank you very much for your attendtion.\n\n- Ramesh Babu P','',0,'gA==','11hrarok',1,0,'',190,0,0),(5416,1307,3,6,0,'82.57.162.196',1137610816,1,0,1,1,1,1,'','','Try with oDlg:bStart codeblock instead of ON INIT clause. During ON INIT (initialization) the dialog is not painted yet.\n\nEMG','',0,'gA==','24oupg1o',1,0,'',6,0,0),(5417,1254,2,375,0,'84.122.113.240',1137611272,1,0,1,1,1,1,'','','Eso está muy bien, pero que efecto teinen sobre los dialogos.\nGracias','',0,'gA==','3no4zwke',1,0,'',375,0,0),(5418,1237,7,28,0,'87.218.46.31',1137613841,1,0,1,1,1,0,'','','Mira lo que he encontrado no se si te servirá\n\n[code:3ioof8f3]Find the storage card name&#46; Since storage card names can differ on localized devices &#40;it won\'t always be called &quot;Storage Card&quot;&#41; and because devices can support more than one storage card, techniques such as using the Windows CE FindFirstFile API function can be used as documented in the article Pocket PC Programming Tips&#46; [/code:3ioof8f3]\n\n[url:3ioof8f3]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/dnnetcomp/html/DeploymentPatterns&#46;asp[/url:3ioof8f3]','',0,'EIA=','3ioof8f3',1,0,'',28,0,0),(5419,1312,3,2,0,'80.32.22.38',1137614092,1,0,1,1,1,1,'','','Roman,\n\nhave you used Microsoft LIB.exe or Borland TLib.exe ?\n\n&gt; Library ace32.lib, which I found in aceapi.exe, works OK\n\ngood! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EIA=','1uuoi7lr',1,0,'',2,0,0),(5420,1293,2,2,0,'80.32.22.38',1137614237,1,0,1,1,1,1,'','','Lubin,\n\n&gt; te comentare que es un simple mantenimiento de archivos\n\nQue funciones externas usa ese módulo ?\n\nPuedes probar a enlazar con una versión superior de Blinker ?','',0,'EIA=','3k3z7lzk',1,0,'',2,0,0),(5421,1254,2,2,0,'80.32.22.38',1137614710,1,0,1,1,1,1,'','','Manu,\n\nWS_CLIPCHILDREN excluye el área ocupada por controles hijos al pintarse.\n\nWS_CLIPSIBLINGS es igual pero respecto a ventanas hijas, no a controles.','',0,'EIA=','1odfmtxk',1,0,'',2,0,0),(5422,1319,1,412,0,'201.221.252.142',1137614743,1,0,1,1,1,0,'','migracion de ca clipper a fivewin','estoy haciendo una prueba para ver como funciona el fivewin con la programacion que ya tengo de varios programas en ca clipper, tengo blinker demo y fivewin demo y quiero pasar un programa a fivewin pero me da un mensaje de error, compila bien con el clipper  (nombre del programa) /n/w y tambien con el blinker fi nombre del programa @Fivewin.lnk pero, cuando lo ejecuto me da un mensaje de error de UNCLTEXT, pordrian decirme si puede probar si fivewin convierte mis programas en ca clipper 5.2 a Fivewin con ventanas con solo compilarlo y linkearlo o tengo que hacer programaci{on a dicional.\nDesde ya gracias por su ayuda, anabel\nGracias','',0,'EIA=','2rsmwi4p',1,0,'',412,0,0),(5423,1292,6,2,0,'80.32.22.38',1137615057,1,0,1,1,1,1,'','','Marco,\n\nEl problema se debe a que ese control no está procesando correctamente el mensaje WM_INITMENUPOPUP.\n\nPuedes solucionarlo añadiendo estas líneas al Método HandleEvent() de ese control:\n\n[code:3rodcaij]\n      case nMsg == WM_INITMENUPOPUP\n           return &#58;&#58;InitMenuPopup&#40; nWParam, nLoWord&#40; nLParam &#41;, nHiWord&#40; nLParam &#41; != 0 &#41;\n[/code:3rodcaij]','',0,'AIA=','3rodcaij',1,0,'',2,0,0),(5424,1314,6,2,0,'80.32.22.38',1137615184,1,0,1,1,1,1,'','','Paco,\n\n&gt;\nSegún he leido GDI+ es de libre distribución por lo que dariamos un paso bastante grande con Five. \n&gt;\n\nSegún tengo entendido GDI+ ocupa bastante tamaño y no está instalado por defecto en Windows, con lo que nuestras aplicaciones no funcionarían sin él. Algo similar a como ocurre con .NET','',0,'AIA=','29yg0k3j',1,0,'',2,0,0),(5425,1306,6,2,0,'80.32.22.38',1137615269,1,0,1,1,1,1,'','','Alfonso,\n\nme alegro de que esté funcionando.','',0,'AIA=','w3glosvv',1,0,'',2,0,0),(5426,1305,6,2,0,'80.32.22.38',1137615333,1,0,1,1,1,1,'','','João,\n\nPues posiblemente esa clase NO está usando \"SysTabControl32\".','',0,'AIA=','28v62h07',1,0,'',2,0,0),(5427,1237,7,28,0,'87.218.46.31',1137615372,1,0,1,1,1,0,'','','Parece que en esta dirección hay mas información:\n\n[url:1zg0c08j]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/dnroad/html/road03132002&#46;asp[/url:1zg0c08j]','',0,'EA==','1zg0c08j',1,0,'',28,0,0),(5428,1316,6,2,0,'80.32.22.38',1137615463,1,0,1,1,1,1,'','','Paco,\n\nDescomenta estas líneas en la clase TScrollBar:\n\n[code:gevcwj1n]\nMETHOD SetPage&#40; nSize, lReDraw &#41; CLASS TScrollBar\n\n/*\n   local nFlags\n\n   DEFAULT lRedraw &#58;= &#46;f&#46;\n\n   if ! Empty&#40; &#58;&#58;hWnd &#41;\n      nFlags = SB_CTL\n   else\n      if &#58;&#58;lVertical\n         nFlags = SB_VERT\n      else\n         nFlags = SB_HORZ\n      endif\n   endif\n   SetScrollInfo&#40; If&#40; ! Empty&#40; &#58;&#58;hWnd &#41;, &#58;&#58;hWnd, &#58;&#58;oWnd&#58;hWnd &#41;,;\n                  nFlags, nSize, lReDraw &#41;\n*/\n\nreturn nil\n[/code:gevcwj1n]','',0,'AIA=','gevcwj1n',1,0,'',2,0,0),(5429,1242,4,28,0,'87.218.46.31',1137615471,1,0,1,1,1,0,'','','Find the storage card name. Since storage card names can differ on localized devices (it won\'t always be called \"Storage Card\") and because devices can support more than one storage card, techniques such as using the Windows CE FindFirstFile API function can be used as documented in the article Pocket PC Programming Tips.  \n\n\n[url:3n4bszex]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/dnnetcomp/html/DeploymentPatterns&#46;asp[/url:3n4bszex]\n\n[url:3n4bszex]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/dnroad/html/road03132002&#46;asp[/url:3n4bszex]','',0,'EA==','3n4bszex',1,0,'',28,0,0),(5430,1210,6,262,0,'83.97.168.83',1137615491,1,0,1,1,1,1,'','','la function alert , tiene que encontrarse en fiveh no en fivehc , fivehc no necesita cambiarse para nada,pues es codigo escrito en c puro con lo que no le afectan los distintos pcodes de harbour .\nAlgo estas haciendo mal al recompilar fiveh.lib . \nMira que los path de harbour apunten al directorio donde descomprimiste el harbour de patrick y no otro distinto ( seguro que ese es el problema)\nTe recomiendo descomprimas el harbour de patrick en un directorio nuevo y no machacando el harbour que ya tenias , y cambies los path \nSaludso y suerte .','',0,'EA==','1ndu8479',1,0,'',262,0,0),(5431,1319,1,2,0,'80.32.22.38',1137615769,1,0,1,1,1,1,'','','Que versión de Blinker estás usando ?','',0,'EA==','8o5k8j46',1,0,'',2,0,0),(5432,1314,6,28,0,'87.218.46.31',1137615956,1,0,1,1,1,0,'','','¡¡Hombre!! Una sola dll 1.7M no veo yo que sea mucho peso para todo lo que ofrece.\n\nEn todo caso no creo que se obligue a nadie a utilizarla pero las ventajas que ofrece son bastante sustanciales:\n\nCargar y salvar casi cualquier tipo de imágen. Poder aplicar efectos tales como Blur, Sharpen, etc.  Brochas con gradientes, Alphablending...\n\nBueno, no soy un experto pero si puedo echarlo a andar aunque sea simplemente por poder manejar muchos tipos de imágenes y salvarlas en formatos diferentes, creo que vale la pena.\n\nUn saludo','',0,'EA==','gaevcrfv',1,0,'',28,0,0),(5433,1254,2,375,0,'84.122.113.240',1137616071,1,0,1,1,1,1,'','','OK. AL FIN ME HE ENTERADO\n\nMUCHISIMAS GRACIAS','',0,'EA==','166e2g9s',1,0,'',375,0,0),(5434,1320,3,394,0,'207.219.124.134',1137618676,1,0,1,1,1,0,'','Sockets','Can a socket server send back files to mutiple clients at the same time?[/quote]','',0,'','j554xfuw',1,0,'',394,0,0),(5435,1312,3,26,0,'193.95.194.136',1137618922,1,0,1,1,1,1,'','','Hello!\n\nI used MS LIB - how can I use Borland TLIB?\n\nRoman','',0,'','1zqhv9bo',1,0,'',26,0,0),(5436,1292,6,43,0,'201.127.19.186',1137620580,1,0,1,1,1,0,'','','ok...gracias...lo checo\n\n    solo una pregunta Antonio, como le hago para que el menu (en el ejemplo expuesto) me aparezca debajo del botton (como debe de ser).\n\nSaludos\n\n   Marco A. Delgado.','',0,'','2727tc3j',1,0,'',43,0,0),(5437,1321,6,179,0,'200.125.135.241',1137620990,1,0,1,1,1,1,'','ayuda con Printer','compañeros, buenas tardes\n\ntengo un report que intento escribir al finalizar el listado una texto \ndonde se indique\nel resposable para que firme\n\nlo tengo asi\n\n    REPORT oReport ;\n         TITLE  cTit1 ......\n               ..........\n\n         GROUP ON Te_Acti-&gt;Num_recibo ;\n         FOOTER Alltrim(str(oReport:aGroups[1]:nCounter))+\" \nItem\"+If(oReport:aGroups[1]:nCounter&gt;1,\'s\',\'\') ;\n         FONT 2 //EJECT  ojo esto para que salte en cada grupo de hoja\n    END REPORT\n\n    ACTIVATE REPORT oReport WHILE Te_Acti-&gt;Num_Recibo == Num  ;\n        ON ENDPAGE( FinPagina_Recibo( oReport ) )\n\n\nSTATIC FUNCTION FinPagina_Recibo( oReport )\n\n  oReport:oDevice:cmSay(17.8 ,05,\"----------------\",oReport:aFont[01],,)\n  oReport:oDevice:cmSay(18.0 ,05,\"RECIBIDO\"        ,oReport:aFont[01],,)\n\n  oReport:oDevice:cmSay(17.8 ,10,\"----------------\",oReport:aFont[01],,)\n  oReport:oDevice:cmSay(18.0 ,10,\"AUTORIZADO\"      ,oReport:aFont[01],,)\n\nRETURN NIL\n\nLa pregunta es como imprimo al final del listado como se en que posicion \nqueda la impresora, ya que a veces cuando es mas grande el listados que los 17.8 cmst me queda mal esta impresion\n\nGracias x Todo\nAtt\n\nWilson \'W\' Gamboa A\nSoftWare Writer\n<!-- e --><a href=\"mailto:swrite@uio.satnet.net\">swrite@uio.satnet.net</a><!-- e -->','',0,'','3ipf2cox',1,0,'',179,0,0),(5438,1322,6,179,0,'200.125.135.241',1137621008,1,0,1,1,1,1,'','ayuda con Report','compañeros, buenas tardes\n\ntengo un report que intento escribir al finalizar el listado una texto \ndonde se indique\nel resposable para que firme\n\nlo tengo asi\n\n    REPORT oReport ;\n         TITLE  cTit1 ......\n               ..........\n\n         GROUP ON Te_Acti-&gt;Num_recibo ;\n         FOOTER Alltrim(str(oReport:aGroups[1]:nCounter))+\" \nItem\"+If(oReport:aGroups[1]:nCounter&gt;1,\'s\',\'\') ;\n         FONT 2 //EJECT  ojo esto para que salte en cada grupo de hoja\n    END REPORT\n\n    ACTIVATE REPORT oReport WHILE Te_Acti-&gt;Num_Recibo == Num  ;\n        ON ENDPAGE( FinPagina_Recibo( oReport ) )\n\n\nSTATIC FUNCTION FinPagina_Recibo( oReport )\n\n  oReport:oDevice:cmSay(17.8 ,05,\"----------------\",oReport:aFont[01],,)\n  oReport:oDevice:cmSay(18.0 ,05,\"RECIBIDO\"        ,oReport:aFont[01],,)\n\n  oReport:oDevice:cmSay(17.8 ,10,\"----------------\",oReport:aFont[01],,)\n  oReport:oDevice:cmSay(18.0 ,10,\"AUTORIZADO\"      ,oReport:aFont[01],,)\n\nRETURN NIL\n\nLa pregunta es como imprimo al final del listado como se en que posicion \nqueda la impresora, ya que a veces cuando es mas grande el listados que los 17.8 cmst me queda mal esta impresion\n\nGracias x Todo\nAtt\n\nWilson \'W\' Gamboa A\nSoftWare Writer\n<!-- e --><a href=\"mailto:swrite@uio.satnet.net\">swrite@uio.satnet.net</a><!-- e -->','',0,'','1z52rruq',1,0,'',179,0,0),(5439,1323,3,339,0,'200.217.85.254',1137624884,1,0,1,1,1,0,'','EXAMPLES WITH RDD CLASS','Hi , Some People Know Where Examples Usind RDD Class\n\nWith Methods \n\n     Rdd:seek','',0,'','rvh63wb8',1,0,'',339,0,0),(5440,1319,1,138,0,'201.128.111.75',1137627889,1,0,1,1,1,1,'','','Anabel:\n\nPues va a ser que no.\n\nFW no pasa \"magicamente\" a Windows tus programas con solo compilar.\n\nLa migracion a Windows nostoros la hemos dividido en 3 etapas.:\n\n1) Reconstruccion de la interfaz con el usuario. Nada de lo que tienes diseñado actualmente para Clipper con respecto a pantallas te funciona bajo Windows con FiveWin., debes crear todas pantallas nuevas, ya se por medio de codigo fuente o bien con un editor de recursos.\n\n2) Reglas de negocio: Entendemos por reglas de negocio todas las operaciones \"internas\" que hace tu programa, como manejo de bases de datos, calculos matematicos, acceso a archivos, en general, todas esas cosas que tu programa hace, pero que tu no ves ni en pantalla ni en impresora, esta parte permanece sin cambio y ocupa mas o menos el 60% de todo el sistema.\n\n3) Reporteria e informes, Esta es otra parte que tambien cambia, a pesar de que FiveWin provee de una clase para imprimr como lo haces actualmetne con Clipper, lo mejor es volver a diseñar todos los informes de tal manera que sean 100% Windows Compatibles, asi que toda la reporteria tiene que volver a ser diseñada tambien.\n\nCuando nosotros atacamos un proyecto de migracion DOS Windows, lo primero que hacermos es hacer un \"prototipo\" que es muy facil de realizar, porque unicamente diseñamos pantallas en recursos y un programa que hace aparecer dichas pantallas, que no son operativas, es decir, no capturan ningun dato, pero nos dan una idea de como va a quedar el programa\n\nLuego, \"limpiamos\" las reglas de negocio, es decir, les quitamos a las operacion internas todo el tema de uso de datos provenientes de las capturas y nos quedamos unicamente con las operaciones y los accesos a las bases de datos.\n\nUna vez que ya aislamos las reglas de negocio entonces si procedemos a vincular las pantallas con los datos que tienen que mostrar y/o capturar, este suele ser el proceso mas pesado de la migracion\n\nY finalmente, hacemos la reporteria, gracias al motor de informes de Fivewin todo el tema de reportes columnares se resuelve muy rapido, los reportes mas complejos como formatos pre-impresos y reportes especiales lleva un poco mas de tiempo pero se puede hacer sin problemas.','',0,'','15iourbb',1,0,'',138,0,0),(5441,1308,3,300,0,'201.3.16.78',1137631855,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:e7rjive0]Wanderson,\n\nThis sample works ok. Could you please try it ? Thanks.\n\n[code:e7rjive0]\nfunction Main&#40;&#41;\n\n  local dToday &#58;= Date&#40;&#41; \n\n  SET DATE FRENCH \n\n  SetDate&#40; 02, 01, 2006 &#41;\n\n  MsgInfo&#40; Date&#40;&#41; &#41;\n\n  SetDate&#40; Day&#40; dToday &#41;, Month&#40; dToday &#41;, Year&#40; dToday &#41; &#41;\n\n  MsgInfo&#40; Date&#40;&#41; &#41;  \n\nreturn nil\n[/code:e7rjive0][/quote:e7rjive0]\n\nAntonio don\'t work for me. This code returns 01/01/2006 and after command SetDate( Day( dToday ), Month( dToday ), Year( dToday ) ) returns 17/01/2006, correct is 18/01/2006. Whats i do rong?','',0,'gIA=','e7rjive0',1,0,'',300,0,0),(5442,1210,6,40,0,'200.92.242.119',1137632211,1,0,1,1,1,0,'','','Armando, es correcto lo que te comenta Jose Luís, Y tengo FW24 y no tube que recompilar fivehc unicamente FiveH.\n\nSaludos\nJoel Andujo','',0,'gIA=','psxr02d3',1,0,'',40,0,0),(5443,1324,6,61,0,'201.217.174.242',1137633930,1,0,1,1,1,0,'','Saber posicion del mouse en una imagen','Amigos:\nTengo una imagen de fondo en un dialogo (.jpg)\nA esa imagen le coloqué unos numeros marcando\nalgunos lugares.(Es un chasis de un auto, 1 Frenos, 2 suspension, 3  dirección.)\n\nNecesito que cuando el usuario de click en esos numeros\nejecute una acción Ej.: otro dialogo.\n\nAlguna sugerencia?\n\nMuchas gracias.\nSaludos\nRuben Fernandez.\n(FWH 2.7, Harbour, Borland.)','',0,'gIA=','1lsbavki',1,0,'',61,0,0),(5444,1308,3,2,0,'80.32.22.38',1137637557,1,0,1,1,1,1,'','','Wanderson,\n\nYou should have this code in source\\function\\datetime.c:\n\n[code:xtktvhsj]\nCLIPPER SETDATE&#40; PARAMS &#41;                  // nDay, nMonth, nYear\n&#123;\n   WORD wYear  = _parni&#40; 3 &#41;;\n   WORD wMonth = _parni&#40; 2 &#41;;\n   WORD wDay   = _parni&#40; 1 &#41;;\n\n   #ifndef __FLAT__\n      _CX = wYear;\n      _DH = wMonth;\n      _DL = wDay;\n      _AH = 0x2B;\n      _AL = 0;\n\n      Dos3Call&#40;&#41;;                     // asm int 0x21;\n\n      _retl&#40; _AL == 0 &#41;;\n   #else\n      SYSTEMTIME st;\n\n      GetSystemTime&#40; &amp;st &#41;;\n      st&#46;wYear  = wYear;\n      st&#46;wMonth = wMonth;\n      st&#46;wDay   = wDay;\n      _retl&#40; SetSystemTime&#40; &amp;st &#41; &#41;;\n   #endif\n&#125;\n[/code:xtktvhsj]','',0,'AIA=','xtktvhsj',1,0,'',2,0,0),(5445,1325,6,45,0,'200.45.178.250',1137637614,1,0,1,1,1,0,'','OffTopic - Mi ABM es el mejor (Tema de Moda)','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Si si tema en mp3 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  Letra y muisca aca \n<!-- m --><a class=\"postlink\" href=\"http://www.comandoabm.com.ar/temas/lyr_1.htm\">http://www.comandoabm.com.ar/temas/lyr_1.htm</a><!-- m -->\n\nAahaaaahaaha aun me rio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSalu2\nHernan','',0,'AIA=','6kgeb6ap',1,0,'',45,0,0),(5446,1292,6,2,0,'80.32.22.38',1137637888,1,0,1,1,1,1,'','','Marco,\n\nLas coordenadas que tú usabas son relativas al botón. Ahora habría que convertirlas en relativas a la ventana. Se haría así:\n\nlocal aPos := { 0, 10 }\n\naPos = ClientToScreen( oBtn:hWnd, aPos )\naPos = ScreenToClient( oWnd:hWnd, aPos )\n\ny los valores que ahora tiene aPos deberían ser los correctos, y relativos a la ventana principal.','',0,'AIA=','14cvphsv',1,0,'',2,0,0),(5447,1325,6,18,0,'201.102.71.23',1137639864,1,0,1,1,1,1,'','Re: OffTopic - Mi ABM es el mejor (Tema de Moda)','buenísimo, ya lo programé al aire en Radio Creswin, gracias Hernán.','',0,'AIA=','4y6zqi03',1,0,'',18,0,0),(5448,1307,3,190,0,'202.65.134.28',1137640860,1,0,1,1,1,0,'','','Mr.Enrico,\n\nGood alternative suggestion.\n\nRegards,\n\n- Ramesh Babu P','',0,'AIA=','rvls29f2',1,0,'',190,0,0),(5449,1258,2,74,0,'190.48.211.123',1137646235,1,0,1,1,1,1,'','','Jose:\n\n        Bastara con que uses la fuente courier new, que es de ancho fijo y viene en todos los windows.\n\nSaludos,','',0,'AIA=','4zf45b97',1,0,'',74,0,0),(5450,1302,2,74,0,'190.48.211.123',1137646887,1,0,1,1,1,1,'','','Felipe:\n\n          Para usar varios browses sobre la misma dbf, esten o no en un folder tenes que abrir la base tantas veces como lo necesites con un alias distinta, como te dijo antonio. Por ejemplo este boton lanza un browse con los movimientos de stock de un articulo estando en el browse del abm de articulos:\n\n  REDEFINE SBUTTON oAg3 ID 107 FONT oFont3;\n  		         RESOURCE \"B_ART1\";//, \"B_REG2\",\"B_REG2\",\"B_REG2\" ;\n  		         OF oDlg ;\n  		  	   	 NOBORDER  ;\n							 LOOK W97 ;\n 			 				 PROMPT \"Movim.\" ;\n							 TEXT POSITION ON_BOTTOM ;\n   		         TOOLTIP OEMTOANSI(\"Movimiento de Entrada/Salida\");\n  		         MESSAGE OEMTOANSI(\"Movimiento de Entrada/Salida\");\n							 ACTION (MoviArt((WALIAS)-&gt;COD),cSaldo:=ART-&gt;SALDO,oSaldo:Refresh())\n\n\nFUNCTION MoviArt(cCod)\n\nLOCAL cAlias:=GETNEWALIAS(\"MOVART\")\n\n	 LOCAL  VEC_FIELD:={{ || DTOC((cAlias)-&gt;MFMV)} ,;\n											{ || (cAlias)-&gt;DES } ,;\n\n			 USE (wpath+\"\\MOVART\") ALIAS (cAlias) SHARED NEW\n\n\nFUNCTION GetNewAlias( cDbfName )\n   STATIC n := 0\n\nRETURN( cDbfName + StrZero( ++n, 2 ) )\n\n\nPara filtrar los movimientos a mostrar en cualquiera de los browses y si usas indices cdx podes usar la funcion ordscope():\n\n			 (cAlias)-&gt;(Dbsetorder(11))\n			 (cAlias)-&gt;(ORDSCOPE(0,cCod+SPAC(5)+SPAC(5)+\'19990101\'))\n			 (cAlias)-&gt;(ORDSCOPE(1,cCod+REPL(\'Z\',5)+REPL(\'Z\',5)+DTOS(DATE()+60)))\n			 (cAlias)-&gt;(DbGotop())\n\nSaludos,','',0,'AIA=','l29z9amp',1,0,'',74,0,0),(5451,1324,6,45,0,'200.45.178.250',1137646894,1,0,1,1,1,0,'','Re: Saber posicion del mouse en una imagen','[quote=&quot;RuFer&quot;:2w7rjhdp]Amigos:\nTengo una imagen de fondo en un dialogo (.jpg)\nA esa imagen le coloqué unos numeros marcando\nalgunos lugares.(Es un chasis de un auto, 1 Frenos, 2 suspension, 3  dirección.)\n\nNecesito que cuando el usuario de click en esos numeros\nejecute una acción Ej.: otro dialogo.\n\nAlguna sugerencia?\n\nMuchas gracias.\nSaludos\nRuben Fernandez.\n(FWH 2.7, Harbour, Borland.)[/quote:2w7rjhdp]\n\n\nYO le veria esta solucion a eso. Te creas una clase que defina un control cuya propiedad sea TRANSPARENTE, es decir con un brush transparente y deben ser controles de tipo child. Luego los insertas en tiempo de ejecucion sobre el objeto imagen de ahi en mas deberias poder capturar el evento, eso si es complejo apuntar a la parte donde deben colocarse los objetos, aunque probando se podria lograr <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nSalu2','',0,'gA==','2w7rjhdp',1,0,'',45,0,0),(5452,1322,6,74,0,'190.48.211.123',1137648216,1,0,1,1,1,1,'','','Wilson:\n\n            Con la clase treport podes hacer cosas como esta:\n\n     ACTIVATE REPORT oReport  ON CHANGE (SayMemoMIO(), oReport:NewLine()) ;\n		 													ON STARTPAGE StartRep() ;\n															ON INIT oReport:nStdLineHeight:=6.98 ;\n															ON POSTEND TotLst1Movi(tAceite,tOtro,tPrepuesto,tDrepuesto);\n															FOR !ANULADOMIO(@tAceite,@tOtro,@tPrepuesto,@tDrepuesto)\n\n\nStatic Funct TotLst1Movi(tAceite,tOtro,tPrepuesto,tDrepuesto)\n\nLocal cfila\nLocal wComiPesos:=0\nLocal wComiDolares:=0\n\ncfila:=oReport:nRow*1.12\nnuevalinea(oReport,4)\nnuevalinea(oReport,4)\noReport:Say(1,\" Aceites $ \"+TRANS(tAceite,\"@ez 99,999.99\")+;\n                        \" Otros $ \"+TRANS(tOtro,\"@ez 99,999.99\")+;\n												\" Repuestos $ \"+TRANS(tPrepuesto,\"@ez 99,999.99\")+;\n												\" U$S \"+TRANS(tDRepuesto,\"@ez 99,999.99\"),4,,oReport:nRow)\n\nReturn nil\n\nFunction nuevalinea(oReport,n)\n\n		local i\n		for i:= 1 to n\n				oReport:NewLine()\n		next\n\nReturn nil\n\nSaludos,','',0,'gA==','a5wv3nqs',1,0,'',74,0,0),(5453,1201,22,382,0,'80.140.222.150',1137655003,1,0,1,1,1,0,'','','Hello Antonio,\n\ncould you add a PIXEL clause to Ticon too?\n\nthanks and regards\nFrank','',0,'gA==','3t21p7ga',1,0,'',382,0,0),(5454,1230,3,250,0,'144.136.123.198',1137658280,1,0,1,1,1,1,'','Re &quot;Run as Service&quot;','You might get some joy from this link\n\n<!-- m --><a class=\"postlink\" href=\"http://www.iopus.com/guides/srvany.htm\">http://www.iopus.com/guides/srvany.htm</a><!-- m -->\n\nRichard.','',0,'gA==','yw4myxno',1,0,'',250,0,0),(5455,1113,2,387,0,'193.146.189.100',1137658766,1,0,1,1,1,0,'','','Hola a todos,\n\nFinalmente se ha solucionado el error que expuse sobre el get. \nEstoy trabajando con archivos lnk y rmk. Lo que hice fue comentar todos los archivos del lnk y sus respectivas opciones de menú y fui compilando la aplicación añadiendo los obj de uno en uno. Los archivos del lnk quedaron reordenados y la aplicación ahora funciona correctamente. \n\n\nMuchas gracias Antonio y Manu por vuestra ayuda. (Manu, no utilizo el spinner).\n\n\nMuchas gracias','',0,'gA==','106ruaf8',1,0,'',387,0,0),(5456,1303,6,28,0,'213.27.201.254',1137658928,1,0,1,1,1,0,'','WM_COPYDATA','Hola Rafael\n\nExisten varias formas de comuncar dos aplicaciones. Una de ellas es utilizando la capacidad de las ventanas de recibir mensajes. Ya sabes que nuestros prorgramas a bajo nivel estan sembrados de SendMessage( hWnd,.... ) que son descifrados en el bucle de mensajes de Windows y mas concretamente en nuestras aplicaciones en el método HandleEvent.\n\nCuando tu inspeccionas el get estas utilizando en hWnd de un control obtenido de alguna forma. Ahora lo haremos mas o menos igual. \nPaso a exponer el código y luego explico\n\n1ª parte\n[code:9yf1s86n]\n#include &quot;FIVEWIN&#46;CH&quot;\n\n\nstatic oWnd\n#define WM_COPYDATA                74\n\n\n\nfunction MAIN&#40;&#41;\n\n\n   LOCAL oBtn, oBtn2, oGet, nVar1 &#58;= 1\n   LOCAL oGet2, nVar2 &#58;= 1\n   LOCAL oGet3, cVar &#58;= &quot;Pulsa el boton Send y busca un alert&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;Prueba WM_COPYDATA&quot;\n\n         @  10, 10 GET    oGet  VAR nVar1 SIZE 50, 18 PIXEL OF oWnd\n         @  30, 10 GET    oGet2 VAR nVar2 SIZE 50, 18 PIXEL OF oWnd\n         @  50, 10 GET    oGet3 VAR cVar SIZE 250, 18 PIXEL OF oWnd\n         @  80, 10 BUTTON oBtn  PROMPT &quot;Send&quot; SIZE 50, 24 PIXEL OF oWnd ACTION SendInfo&#40; nVar1, nVar2, cVar &#41;\n         @ 110, 10 BUTTON oBtn2 PROMPT &quot;Fin&quot; SIZE 50, 24 PIXEL OF oWnd ACTION oWnd&#58;End&#40;&#41;\n\n\n   ACTIVATE WINDOW oWnd\n\nRETURN nil\n\nfunction SendInfo&#40; nVar, nVar2, cVar &#41;\nlocal hWnd &#58;= FindWindow&#40;0,&quot;Escuchando&quot; &#41;\n// BUSCAS EL HANDLE DE LA VENTANA CON EL NOMBRE\n\nDEFAULT nVar  &#58;= 1\nDEFAULT nVar2 &#58;= 1\nDEFAULT cVar  &#58;= &quot;&quot;\n\n\nif hWnd != 0\n   if cVar == &quot;&quot;\n      Enviar&#40; oWnd&#58;hWnd, hWnd, 101, nVar, nVar2, cVar &#41;\n   else\n      Enviar&#40; oWnd&#58;hWnd, hWnd, 100, nVar, nVar2, cVar &#41;\n   endif\nelse\n   MsgInfo&#40; &quot;No encontre la ventana&quot; &#41;\nendif\n\nreturn nil\n\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n// AQUI TE CREAS LA ESTRUCTURA QUE QUIERAS CON LOS DATOS QUE QUIERAS PASAR\ntypedef struct tagMYREC\n&#123;\n   HWND hWndOrigen;\n   char  s1&#91;250&#93;;\n   int   nFila;\n   int   nColumna;\n&#125; MYREC;\n\n\n\n\nHB_FUNC&#40; ENVIAR &#41;\n&#123;\n   HWND hWndOrigen = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   HWND hWndDestino = &#40; HWND &#41; hb_parnl&#40; 2 &#41;;\n   int nMsg = hb_parni&#40; 3 &#41;; // &lt;&lt;&lt; IDENTIFICADOR DEL MENSAJE PARA QUE DESDE\n                             // LA VENTANA DESTINO DECIDAS LO QUE HACER EN ESTE CASO\n   COPYDATASTRUCT MyCDS;\n   MYREC MyRec;\n\n   // AQUI LE DAS VALOR A LOS DATOS DE LA ESTRUCTURA\n   MyRec&#46;hWndOrigen = hWndOrigen;\n   MyRec&#46;nFila = hb_parni&#40; 4 &#41;;\n   MyRec&#46;nColumna = hb_parni&#40; 5 &#41;;\n   strcpy&#40; MyRec&#46;s1, hb_parc&#40; 6 &#41; &#41;;\n\n//\n// Fill the COPYDATA structure\n//\n   MyCDS&#46;dwData = nMsg;\n   MyCDS&#46;cbData = sizeof&#40; MyRec &#41;;  // size of data\n   MyCDS&#46;lpData = &amp;MyRec;\n\n   // SE LO ENVIAS A LA VENTANA DESTINO SIEMPRE DE ESTA FORMA\n   SendMessage&#40; hWndDestino, WM_COPYDATA,&#40;WPARAM&#41;&#40;HWND&#41; hWndOrigen,&#40;LPARAM&#41; &#40;LPVOID&#41; &amp;MyCDS &#41;;\n   hb_ret&#40;&#41;;\n&#125;\n\nHB_FUNC&#40; RECIBIR &#41;\n&#123;\n   PCOPYDATASTRUCT pMyCDS;\n   pMyCDS = &#40;PCOPYDATASTRUCT&#41; hb_parnl&#40; 1 &#41;;\n\n   // RECIBES LOS DATOS Y LOS DEVUELVES AL HANDLEEVENT DE LA VENTANA\n   // SI QUIERES QUE LA COMUNICACIÓN SEA EN LOS DOS SENTIDOS\n   // TENDRIAS QUE TENER AQUI TAMBIEN EL HANDLEEVENT REDEFINIDO\n\n   hb_reta&#40; 5 &#41;;\n   hb_stornl&#40; &#40;long&#41;&#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;hWndOrigen, -1, 1 &#41;;\n   hb_storni&#40; pMyCDS-&gt;dwData, -1, 2 &#41;;\n   hb_storni&#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;nFila, -1, 3 &#41;;\n   hb_storni&#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;nColumna, -1, 4 &#41;;\n   hb_storc &#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;s1, -1, 5 &#41;;\n\n&#125;\n\n\n\n\n\n#pragma ENDDUMP\n\n[/code:9yf1s86n]\n\nEsta sería la aplicación que solicita datos a otra aplicación (ventana)\n\n2ª Parte\nLa aplicación que recibe el mensaje y que lo procesa\n\n[code:9yf1s86n]\n#include &quot;FIVEWIN&#46;CH&quot;\n#define WM_COPYDATA                74\n\nstatic aDatos &#58;= &#123;&#125;\n\n\nPROCEDURE MAIN&#40;&#41;\n\n   LOCAL oWnd, oMenu\n\n   oWnd &#58;= TWindow2&#40;&#41;&#58;New&#40;0,0,20,20,&quot;Escuchando&quot;,,oMenu,,,,,,,,,,!&#46;F&#46;,!&#46;F&#46;,!&#46;F&#46;,!&#46;F&#46;,&#46;F&#46; &#41;\n   ACTIVATE WINDOW oWnd ON INIT WndCenter&#40; oWnd&#58;hWnd &#41;\n\nRETURN\n\n//--------------------------------------------------------------------\n\n\nCLASS TWindow2 FROM TWindow\n\n      CLASSDATA lRegistered AS LOGICAL\n\n      METHOD New&#40; nTop, nLeft, nBottom, nRight, cTitle, nStyle, oMenu,;\n                  oBrush, oIcon, oParent, lVScroll, lHScroll,;\n                  nClrFore, nClrBack, oCursor, cBorder, lSysMenu, lCaption,;\n                  lMin, lMax, lPixel &#41; CONSTRUCTOR\n\n      METHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\nENDCLASS\n\nMETHOD New&#40; nTop, nLeft, nBottom, nRight, cTitle, nStyle, oMenu,;\n                  oBrush, oIcon, oParent, lVScroll, lHScroll,;\n                  nClrFore, nClrBack, oCursor, cBorder, lSysMenu, lCaption,;\n                  lMin, lMax, lPixel &#41; CLASS TWindow2\n\n\n\n\nreturn super&#58;New&#40; nTop, nLeft, nBottom, nRight, cTitle, nStyle, oMenu,;\n                  oBrush, oIcon, oParent, lVScroll, lHScroll,;\n                  nClrFore, nClrBack, oCursor, cBorder, lSysMenu, lCaption,;\n                  lMin, lMax, lPixel &#41;\n\n\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TWindow2\n\nlocal aReturn\nlocal hWndOrigen\nlocal nCDMsg\nlocal nFila, nColumna, cText\n\n\nif nMsg == WM_COPYDATA\n\n   aReturn    &#58;= Recibir&#40; nLParam &#41;\n   hWndOrigen &#58;= aReturn&#91;1&#93;\n   nCDMsg     &#58;= aReturn&#91;2&#93;\n   nFila      &#58;= aReturn&#91;3&#93;\n   nColumna   &#58;= aReturn&#91;4&#93;\n   cText      &#58;= aReturn&#91;5&#93;\n\n   do case\n      case nCDMsg == 100\n\n           ? &quot;Mensaje &quot; + str&#40; nCDMsg &#41;, nFila, nColumna, cText,&quot;El titulo de la ventana que ha pintado esto es&quot;,&#58;&#58;cTitle\n           return 0\n\n      case nCDMsg == 101\n           ? &quot;Mensaje &quot; + str&#40; nCDMsg &#41;, nFila, nColumna, cText,&quot;El titulo de la ventana que ha pintado esto es&quot;,&#58;&#58;cTitle\n\n           return 0\n      // case nCDMsg == &#46;&#46;&#46; lo que se quiera y cuantos se quieran\n\n   endcase\n\n\nendif\n\nreturn super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\n\n\n*****************************************************************************\n******************************************************************************\n******************************************************************************\n******************************************************************************\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n// AQUI TE CREAS LA ESTRUCTURA QUE QUIERAS CON LOS DATOS QUE QUIERAS PASAR\ntypedef struct tagMYREC\n&#123;\n   HWND hWndOrigen;\n   char  s1&#91;250&#93;;\n   int   nFila;\n   int   nColumna;\n&#125; MYREC;\n\n\n\n\nHB_FUNC&#40; ENVIAR &#41;\n&#123;\n   HWND hWndOrigen = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   HWND hWndDestino = &#40; HWND &#41; hb_parnl&#40; 2 &#41;;\n   int nMsg = hb_parni&#40; 3 &#41;; // &lt;&lt;&lt; IDENTIFICADOR DEL MENSAJE PARA QUE DESDE\n                             // LA VENTANA DESTINO DECIDAS LO QUE HACER EN ESTE CASO\n   COPYDATASTRUCT MyCDS;\n   MYREC MyRec;\n\n   // AQUI LE DAS VALOR A LOS DATOS DE LA ESTRUCTURA\n   MyRec&#46;hWndOrigen = hWndOrigen;\n   MyRec&#46;nFila = hb_parni&#40; 4 &#41;;\n   MyRec&#46;nColumna = hb_parni&#40; 5 &#41;;\n   strcpy&#40; MyRec&#46;s1, hb_parc&#40; 6 &#41; &#41;;\n\n//\n// Fill the COPYDATA structure\n//\n   MyCDS&#46;dwData = nMsg;\n   MyCDS&#46;cbData = sizeof&#40; MyRec &#41;;  // size of data\n   MyCDS&#46;lpData = &amp;MyRec;\n\n   // SE LO ENVIAS A LA VENTANA DESTINO SIEMPRE DE ESTA FORMA\n   SendMessage&#40; hWndDestino, WM_COPYDATA,&#40;WPARAM&#41;&#40;HWND&#41; hWndOrigen,&#40;LPARAM&#41; &#40;LPVOID&#41; &amp;MyCDS &#41;;\n   hb_ret&#40;&#41;;\n&#125;\n\nHB_FUNC&#40; RECIBIR &#41;\n&#123;\n   PCOPYDATASTRUCT pMyCDS;\n   pMyCDS = &#40;PCOPYDATASTRUCT&#41; hb_parnl&#40; 1 &#41;;\n\n   // RECIBES LOS DATOS Y LOS DEVUELVES AL HANDLEEVENT DE LA VENTANA\n   // SI QUIERES QUE LA COMUNICACIÓN SEA EN LOS DOS SENTIDOS\n   // TENDRIAS QUE TENER AQUI TAMBIEN EL HANDLEEVENT REDEFINIDO\n\n   hb_reta&#40; 5 &#41;;\n   hb_stornl&#40; &#40;long&#41;&#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;hWndOrigen, -1, 1 &#41;;\n   hb_storni&#40; pMyCDS-&gt;dwData, -1, 2 &#41;;\n   hb_storni&#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;nFila, -1, 3 &#41;;\n   hb_storni&#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;nColumna, -1, 4 &#41;;\n   hb_storc &#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;s1, -1, 5 &#41;;\n\n&#125;\n\n#pragma ENDDUMP\n\n[/code:9yf1s86n]\n\nCon un poco de ingenio puedes hacer que las dos aplicaciones sean capaces de \"hablarse\" y contarse las cosas que necesites.\n\nObserva que en la segunda aplicación he redefinido el Método HandleEvent de la nueva clase ventana para poder evaluar el mensaje WM_COPYDATA.\n\n[url:9yf1s86n]http&#58;//www&#46;google&#46;es/search?hl=es&amp;q=wm_copydata&amp;btnG=B%C3%BAsqueda+en+Google&amp;meta=[/url:9yf1s86n]\n\nUn saludo\n\n[/code]','',0,'EIA=','9yf1s86n',1,0,'',28,0,0),(5457,1324,6,28,0,'213.27.201.254',1137659160,1,0,1,1,1,0,'','','Hola Rufer\n\nDepende de como estas dibujando la imágen. Si estas poniendo un @ fila, columna BITMAP y lo que sea o si estas haciendo un DrawBitmap en el bPaint del dialogo.\n\nDime como estas haciendo y te cuento\n\nUn saludo','',0,'EIA=','zstglhj8',1,0,'',28,0,0),(5458,1237,7,123,0,'81.39.239.66',1137662423,1,0,1,1,1,0,'','','Paco,\n\n\nMuchísimas gracias!! El segundo enlace es el que indica como hacerlo.\n\nEl caso es que centré el problema de otra forma... Me centré en la función \n\n[code:1beez6f5]BOOL CeFindAllFiles&#40;\nLPCWSTR szPath, \nDWORD dwFlags, \nLPDWORD lpdwFoundCount, \nLPLPCE_FIND_DATA ppFindDataArray&#41;; [/code:1beez6f5]\n\nDonde szPath podría ser algo así \"\\*.*\" y en dwFlags poner FAF_FOLDERS_ONLY | FAF_ATTRIBUTES\n\nEl resultado es una matriz con todas las carpetas del raiz de la pda.  Sin embargo, y ahí fue mi muro insalvable, ppFindDataArray[ n ]-&gt;dwFileAttributes no me indicaba si la carpeta era del tipo \'Storage - Card\' o similar.\n\nMuchas gracias por la info, \nJosé Luis Capel','',0,'AIA=','1beez6f5',1,0,'',123,0,0),(5459,1247,6,21,0,'80.58.49.235',1137663327,1,0,1,1,1,1,'','','Hola Oskar:\n\nYa le he pasado a JCSO el archivo ch. No os preocupeis que ya lo publicará todo junto.\n\nDe todas formas te lo envio por correo.','',0,'AIA=','3k54hd68',1,0,'',21,0,0),(5460,1216,1,2,0,'80.32.22.38',1137663470,1,0,1,1,1,1,'','','Ehab,\n\nYou may read the Borland Resources Workshop docs.','',0,'AIA=','80ko1o17',1,0,'',2,0,0),(5461,906,5,2,0,'80.32.22.38',1137663506,1,0,1,1,1,1,'','','gald to know it is ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1j32aw26',1,0,'',2,0,0),(5462,1326,7,123,0,'81.39.239.66',1137663637,1,0,1,1,1,0,'','Warnings al compilar/enlazar un test','Hola,\n\nAl compilar/enlazar un prg (con buildce.bat) me aparecen los siguientes \'warnings\' y errores.\n[quote:2r1xkfea]\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'globalpda.prg\' and generating preprocessed output to \'globalpda.ppo\'...\n\nLines 57, Functions/Procedures 3\nGenerating C source output to \'globalpda.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nglobalpda.c\nc:\\trabajos\\utils\\vce\\include\\arm\\stdlib.h(138) : error C2146: syntax error : missing \';\' before identifier \'size_t\'\nc:\\trabajos\\utils\\vce\\include\\arm\\stdlib.h(138) : error C2501: \'_INTRIMP\' : missing storage-class or type specifiers\nc:\\trabajos\\utils\\vce\\include\\arm\\stdlib.h(138) : fatal error C1004: unexpected end of file found\n   Creating library globalpda.lib and object globalpda.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0002B260\nrdd.lib(dbcmd.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00070B4C\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0007ED14\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00088E6C\n        1 archivos copiados.\n* Application successfully built\nConnecting to Windows CE\n\nFailed connecting to Windows CE!\n\nPresione una tecla para continuar . . . \n*** Process \"C:\\TRABAJOS\\TRAB\\GlobalPda\\prg\\COMPILAR.bat\" terminated. Return code=0\nmed&gt;[/quote:2r1xkfea]\n\n¿Por que aparecen estos \'warnings\' y errores?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2r1xkfea',1,0,'',123,0,0),(5463,1326,7,2,0,'80.32.22.38',1137663823,1,0,1,1,1,1,'','','Esos warnings son conocidos y pueden ignorarse sin problemas.\n\nEn cuanto a esos errores, ¿ Puedes mostrar el código que estás intentando compilar, ó un ejemplo pequeño que lo reproduzca ? gracias','',0,'gA==','3710rfy6',1,0,'',2,0,0),(5464,1326,7,123,0,'81.39.239.66',1137665993,1,0,1,1,1,0,'','','Antonio,\n\nGracias por tu respuesta.  Este el el código donde aparecen esos errores.\n\n[code:3kx08hr3]// FiveWin for Pocket PC - Using DialogBoxes\n\n#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   local oBtn1, oBtn2, oBtn3\n\n\n   DEFINE WINDOW oWnd TITLE &quot;GlobalPda&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n\n   @ 10, 10 BUTTON oBtn1 PROMPT &quot;Botón1&quot; OF oWnd ;\n            ACTION MsgInfo&#40;&quot;Hola&quot;&#41; ;\n            PIXEL\n\n\n\n   ACTIVATE WINDOW oWnd\n\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   DEFINE MENU oMenu RESOURCE 102\n\n   REDEFINE MENUITEM ID 100 OF oMenu ACTION ShowDialog&#40;&#41;\n\n   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgAlert&#40; &quot;FWCE power!&quot; &#41;\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction ShowDialog&#40;&#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg RESOURCE &quot;test&quot;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n[/code:3kx08hr3]Saludos y gracias,\nJosé Luis Capel','',0,'AIA=','3kx08hr3',1,0,'',123,0,0),(5465,1231,7,2,0,'80.32.22.38',1137666043,1,0,1,1,1,1,'','','Jose Luis,\n\nTema recursos y READONLY: Usamos color gris para el texto. El fondo ya lo hemos cambiado al color blanco (de la ventana).\n\nEl color gris del texto es correcto ó lo dejamos en negro ? Es la forma de que el usuario sepa que ahí no puede escribir.','',0,'AIA=','105d5e8m',1,1137666901,'',2,1,0),(5466,1327,3,250,0,'144.136.123.198',1137666278,1,0,1,0,1,1,'','Font error in Dialog box','Antonio,\nThe code below is the second dialog box in a multi dialog wizard. It activates the dialog box and immediately comes up with\n\"Error BASE/1004 Class: NIL has no exported method:hFONT from errorsys, line: 0\"\nThis has appeared with FWH27 Jan using harbour.\n\nSTATIC FUNCTION DoMatMed2()\n\n   LOCAL lChoice := .F.,nSelect:=1,nLength\n   LOCAL oMM2Dlg,oBack,oNext\n   LOCAL oRadio,oCancel,lGoOn:=.F.\n   LOCAL oChkStart,oChkFinish,oCBXStart,oCBXFinish\n   LOCAL aItem1:={},aItem2\n   LOCAL cStart,cFinish,nStart,nFinish\n\n         nLength := Len(aMatMed[HEADING])\n         FOR i := 1 TO nLength\n            AAdd(aItem1,aMatMed[HEADING,i,1])\n         NEXT\n         aItem2 := aItem1\n         aMatMed[START] := .F.\n         aMatMed[FINISH] := .F.\n         aMatMed[BEGINNING] := 1\n         aMatMed[ENDPOINT] := Len(aMatMed[HEADING])\n         DEFINE DIALOG oMM2Dlg RESOURCE \"MM2\"\n            REDEFINE RADIO oRadio VAR aMatMed[CHOICE] ID 10,20 OF oMM2Dlg\n            REDEFINE CHECKBOX oChkBox VAR aMatMed[CURRENT] ID 30 OF oMM2Dlg\n            REDEFINE CHECKBOX oChkStart VAR aMatMed[START] ID 40 OF oMM2Dlg ;\n               ON CHANGE (IIF(aMatMed[START],.F.,.T.),IIF(!aMatMed[START],DoRestrict(oCBXStart),DoRelease(oCBXStart)))\n            REDEFINE COMBOBOX oCBXStart VAR cStart ID 60 ITEMS aItem1 OF oMM2Dlg ;\n               ON CHANGE (aMatMed[BEGINNING]:=oCBXStart:nAt,IIF(aMatMed[START],oCBXFinish:nAt:=aMatMed[BEGINNING]+1,),oCBXFinish:Select(oCBXFinish:nAt))\n            REDEFINE CHECKBOX oChkFinish VAR aMatMed[FINISH] ID 50 OF oMM2Dlg ;\n               ON CHANGE (IIF(aMatMed[FINISH],.F.,.T.),IIF(!aMatMed[FINISH],DoRestrict(oCBXFinish),DoRelease(oCBXFinish)),;\n                          IIF(!aMatMed[FINISH],aMatMed[ENDPOINT]:=Len(aMatMed[HEADING]),))\n            REDEFINE COMBOBOX oCBXFinish VAR cFinish ID 70 ITEMS aItem2 OF oMM2Dlg ;\n               ON CHANGE (aMatMed[ENDPOINT]:=oCBXFinish:nAt)\n            REDEFINE BUTTON oBack ID 100 OF oMM2Dlg ;\n               ACTION DoMatMed(oMM2Dlg)\n            REDEFINE BUTTON oNext ID 200 OF oMM2Dlg ACTION (aMatMed[CONTINUE]:=.T.,oMM2Dlg:End())\n            REDEFINE BUTTON oCnclBtn ID 300 OF oMM2Dlg ACTION (MatMedArray(),oMM2Dlg:End())\n         ACTIVATE DIALOG oMM2Dlg CENTERED ON INIT (IIF(!lRepertorise,oChkBox:Disable(),oChkBox:Enable()),;\n                                                       oCBXStart:Select(1),oCBXFinish:Select(1),;\n                                                       oCBXStart:DisAble(),oCBXFinish:Disable())                   \n         IF (aMatMed[CONTINUE])\n            DoMatMed3()\n         ENDIF\n\nRETURN NIL\n\nThis is the RC code\n\nMM2 DIALOG DISCARDABLE  0, 0, 273, 167\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION \nCAPTION \"Rubrica Medicæ Wizard \"\nFONT 8, \"MS Sans Serif\"\nBEGIN\n    DEFPUSHBUTTON   \"&amp;Next &gt;&gt;\",200,111,146,50,14\n    PUSHBUTTON      \"&amp;Cancel\",300,195,146,50,14\n    GROUPBOX        \"\",5,7,7,259,123\n    PUSHBUTTON      \"&lt;&lt; &amp;Back\",100,25,146,50,14\n    CONTROL         \"Use Remedies from current Case\",30,\"Button\",\n                    BS_AUTOCHECKBOX | WS_TABSTOP,137,21,118,10\n    CONTROL         \"Single Remedy\",10,\"Button\",BS_AUTORADIOBUTTON,13,20,66,\n                    10\n    CONTROL         \"Compare Remedies\",20,\"Button\",BS_AUTORADIOBUTTON,13,34,\n                    78,10\n    CONTROL         \"Limit Start\",40,\"Button\",BS_AUTOCHECKBOX | WS_TABSTOP,\n                    13,69,53,10\n    CONTROL         \"Limit Finish\",50,\"Button\",BS_AUTOCHECKBOX | WS_TABSTOP,\n                    137,69,52,10\n    COMBOBOX        60,13,87,105,30,CBS_DROPDOWN | WS_VSCROLL | \n                    WS_TABSTOP\n    COMBOBOX        70,135,86,108,30,CBS_DROPDOWN |  WS_VSCROLL | \n                    WS_TABSTOP\nEND\nIt is built from resources, no problems before this version.\nregards,\n\nThere is no line number given.','',0,'','3hd8di41',1,0,'',250,0,0),(5467,1328,7,28,0,'213.27.201.254',1137666298,1,0,1,1,1,0,'','Makefile para VC','Hola\n\nMe podrías pasar un makefile para VC que me sirva como ejemplo.\n\nUn saludo y gracias','',0,'','c5s9n2ot',1,0,'',28,0,0),(5468,1231,7,2,0,'80.32.22.38',1137666359,1,0,1,1,1,1,'','','Jose Luis,\n\nSi acordamos que se use el color blanco (de la ventana) para el fondo de los GETs READONLY, entonces usamos ese mismo color para los Multilínea, si ?','',0,'','203v1f3b',1,0,'',2,0,0),(5469,1231,7,262,0,'212.89.4.54',1137667507,1,0,1,1,1,1,'','','Bajo mi punto de vista debemos distinguir entre habilitado , bloqueado y solo lectura.\nEl solo lectura creo que debería de ser un color que permitiera ver perfectamente los datos ( la solucion  que existe ahoramismo en codigo , para mi es perfecta , pero puede haber otras ) , el problema existe en que no es la misma para codigo y recursos , ni tampoco para get normal que para multilinea .\nSiendo la solucion consistente para todos los controles y tanto desde codigo como desde recursos , cualquier combinación es valida.\nSaludos y gracias por la asistencia.','',0,'','2vsv7nxp',1,0,'',262,0,0),(5470,1329,3,269,0,'217.37.54.49',1137667537,1,0,1,1,1,0,'','Arguement Error Conditional','In my program, there is a listbox. when information in this list is doubleclicked the fields in the dialog box are updated. this works fine for all of them, exept for two places where a dbf field is shared between the two. I have used a PADL function, so that if the information in the field ends with .EXE then it will go to a preprocessor field, otherwise it will go to an invoice condition field. however, when i doubleclick the listbox i get an \"arguement error conditional\" message. Here is the code i use\n\nCODE;\n\nIF PADL(REPDETS-&gt;REP_FOR,3,\"exe\")\n      mPreProcessor := REPDETS-&gt;REP_FOR\n   ELSE\n      mInvCon := REPDETS-&gt;REP_FOR\nENDIF\n\nAny ideas? \n\nThanks in advance','',0,'','3a20nfqj',1,0,'',269,0,0),(5471,1231,7,2,0,'80.32.22.38',1137667696,1,0,1,1,1,1,'','','Jose Luis,\n\nAcabamos de publicar un nuevo build de FWPPC que debe funcionar correctamente. Te agradecemos si lo pruebas y nos comentas. Gracias','',0,'','dhgjiugq',1,0,'',2,0,0),(5472,1326,7,2,0,'80.32.22.38',1137667913,1,0,1,1,1,1,'','','Jose Luis,\n\nNo tendría que darte ninguno de esos errores. Por favor asegúrate de que no tengas un path a un directorio equivocado y no estés usando los ficheros de cabecera correctos.\n\nTambién es recomendable que reinstales vce.zip','',0,'','3661t0ds',1,0,'',2,0,0),(5473,1328,7,2,0,'80.32.22.38',1137668061,1,0,1,1,1,1,'','','Paco,\n\nEste es para FWH y Microsoft, y facilmente puede adaptarse a FWPPC:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/ea09dd38/msmake.zip.html\">http://hyperupload.com/download/ea09dd3 ... e.zip.html</a><!-- m -->','',0,'','wsrf09bx',1,0,'',2,0,0),(5474,1247,6,2,0,'80.32.22.38',1137668130,1,0,1,1,1,1,'','','Fernando,\n\nTe agradezco que me envies una copia por email.','',0,'','p2jlxo5u',1,0,'',2,0,0),(5475,1330,7,413,0,'194.106.16.43',1137668146,1,0,1,1,1,0,'','HP iPAQ hw6515 + Tom Tom Bluetooth (Es valido para FWPPC)','Lo dicho alguien ha provado esta PDA,  es compatible con FWPPC. Sobre todo si alguien ha probado hacer algo con el GPS y la camara, pues mi idea es ver que posibilidades tengo para integrar ambos en la programación de FWPPC. \nAlgun equipo parecido que tenga estas tres cosas WIFI (esta solo el GSM, GPRS), GPS y camara que sea compotible con FWPPC. Creo que es pedir mucho dado lo joven que es el producto FWPPC pero seguro que a mas de uno se le ha planteado este dilema. \n\nSaludos','',0,'','2jtmz0fb',1,0,'',413,0,0),(5476,1329,3,2,0,'80.32.22.38',1137668277,1,0,1,1,1,1,'','','Deano,\n\nTry this:\n\nIF Right(REPDETS-&gt;REP_FOR,3 ) == \"exe\"\n...','',0,'','o0t0ms7l',1,0,'',2,0,0),(5477,1327,3,2,0,'80.32.22.38',1137668421,1,0,1,1,1,1,'','','Richard,\n\nPlease post the entire calls stack list that you get. Thanks','',0,'','36y20bk2',1,0,'',2,0,0),(5478,1330,7,2,0,'80.32.22.38',1137668524,1,0,1,1,1,1,'','','Andrés,\n\nNosotros usamos una HP iPAQ y funciona correctamente. En cuanto a los demás periféricos que comentas, con el WIFI no hay problemas ya que es algo transparente (tienes una IP y funcionas como un ordenador más conectado a una red), respecto a los otros habrá que investigar <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','1tc7vnt6',1,0,'',2,0,0),(5479,1329,3,269,0,'217.37.54.49',1137668626,1,0,1,1,1,0,'','','Thanks Antonio, all seems ok now <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1wutha5f',1,0,'',269,0,0),(5480,1331,6,413,0,'194.106.16.43',1137668627,1,0,1,1,1,0,'','FIVEWIN + tWord (redireccionado)','Alguien me puede dar una pista de cual puede ser el error que se  roduce al ejecutar una aplicacion que carga el word mediante tWord. Si la aplicacion la ejecuto con un doble clic sobre si misma el word me abre el escrito perfectamente pero si esa misma aplicacion la arranco desde otro programa con (Winexec() o ShellExecute() ) abre el word con una página en blanco. No produce ningun error de windows solo un mal funcionamiento cuando se ejecuta desde otro programa.\nA modo de ejemplo tengo un programa que es un menu de usuario donde accede a los distintos programas que tiene disponibles, si arranca la aplicacion y carga un escrito para trabajar sobre el la pagina le sale en blanco, si eso mimo lo hago cargando con doble clic la apliacacion me lo ejecuta perfectamente. Puede ser algo del entorno, algo sobre el numero de ficheros abierto, algo sobre... ni idea.\n\nSaludos\nAndrés González','',0,'','2v1716mw',1,0,'',413,0,0),(5481,1331,6,2,0,'80.32.22.38',1137668757,1,0,1,1,1,1,'','','Andrés,\n\nMuéstranos el código de como llamas a WinExec() ó a ShellExecute(). Gracias','',0,'','iohqxm9j',1,0,'',2,0,0),(5482,1247,6,21,0,'80.58.49.235',1137668973,1,0,1,1,1,1,'','','Hola Antonio,\n\nTe lo acabo de enviar por correo.','',0,'','1w8jujm1',1,0,'',21,0,0),(5483,1247,6,400,0,'200.205.49.13',1137669177,1,0,1,1,1,1,'','','[quote=&quot;fgondi&quot;:2nja2bks]Hola Oskar:\n\nYa le he pasado a JCSO el archivo ch. No os preocupeis que ya lo publicará todo junto.\n\nDe todas formas te lo envio por correo.[/quote:2nja2bks]\n\nBom Dia Fernando, vc poderia enviar pra mim tambem uma copia DO ARQUIVO .CH, no email:\n\n<!-- e --><a href=\"mailto:ale.seribeli@uol.com.br\">ale.seribeli@uol.com.br</a><!-- e -->\n\n\nFico agradecido.\n\n@braços Ale','',0,'gA==','2nja2bks',1,0,'',400,0,0),(5484,1332,3,339,0,'200.217.85.254',1137672238,1,0,1,1,1,0,'','How Search firebir Database Using TDBOBDC','Some People Knows The SQL COMMAND to seach some REC\n\n\nthanks..','',0,'gA==','3r0nlcfo',1,0,'',339,0,0),(5485,1333,6,383,0,'200.121.213.139',1137672596,1,0,1,1,1,0,'','TsBrowse para xHarbour y Fivewin 2.5','Gracias por sus respuestas ante todo. \nMi problema, es que necesito una versión estable de Tsbrowse para fivewin 2.5 con xharbour, ya que tengo problemas con los alias cuando se cierran varias ventanas tipo mdi, por favor.','',0,'gA==','3pwrfbfp',1,0,'',383,0,0),(5486,1332,3,31,0,'195.182.84.105',1137676796,1,0,1,1,1,1,'','Re: How Search firebir Database Using TDBOBDC','[quote=&quot;mauricioajordao&quot;:cpbkfsya]Some People Knows The SQL COMMAND to seach some REC\n[/quote:cpbkfsya]\n\n   Hi !\n\n  For search and get recordset use \"select \" statement . You can find many descriptions , also in you native language , how to manipulate with \"select ... from ... where ... \" . As we are saying \"Google , my friend ...\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->))\n\n   With best regards ! Rimantas .','',0,'gA==','cpbkfsya',1,0,'',31,0,0),(5487,1274,3,335,0,'68.193.88.53',1137676840,1,0,1,1,1,0,'','','Richard, Daniel, Dante &amp; Otto -\n\nThe kind of collaboration you fellows are hinting at reminds me of a terrific book I just read by Tom Friedman of the New York Times entitled \"The World Is Flat.\"  Especially relevant are his chapters on open source software development, out-sourcing and in-sourcing. I highly recommend this book, as it offers important insights into the future directions for programming communities like the FiveWin and xHarbour communities. \n\nThis book is a mind-blower!\n\n- Roger','',0,'gA==','2l0tgyy6',1,0,'',335,0,0),(5488,1334,3,190,0,'202.65.134.46',1137677232,1,0,1,1,1,0,'','TsBrowse 6.00 - Incorrect column sizes with oBrw:LoadFields','Hi all\n\nI am using TsBrowse 6.00 build.  The Column sizes are automatically not shown properly.  I have to adjust them manually using \"oBrw:aColumns[nColumn]:nWidth := oBrw:aColumns[nColumn]:nWidth + nIncrease_Decrease\" clauses.\n\nIs anybody having a solution or a fix for this.\n\nReagards\n\n- Ramesh Babu P','',0,'','s3pbznwy',1,0,'',190,0,0),(5489,1231,7,262,0,'83.97.168.83',1137677328,1,0,1,1,1,1,'','','Creo que no me esplique bien al comentar la correcion por lo que te adjunto dos capturas \n[img:23s4r40y]http&#58;//img14&#46;imageshack&#46;us/img14/3617/cap13rl&#46;jpg[/img:23s4r40y]\nesta es con codigo en ventana \n\n[img:23s4r40y]http&#58;//img44&#46;imageshack&#46;us/img44/3935/cap29ud&#46;jpg[/img:23s4r40y]\nesta es con recursos en dialogo\n\nen los dos casos los get estan puestos a readonly (salvo dos en recursos para ver como funcionaba)\n\nSon lo mismo pero como puedes ver por codigo el fondo queda en color y en dialogo queda en blanco , personalmente opino que el color en el fondo para saber que son readonly es un acierto ( el caso de la primera captura ), pero si estimas que es mejor el blanco pues me parece correcto ( siempre que sea en ambos casos )\n\nPor otro lado esto desde codigo ( no lo he probado en dialogo)  , \n\n[img:23s4r40y]http&#58;//img385&#46;imageshack&#46;us/img385/8320/captura7li&#46;jpg[/img:23s4r40y]\n\nSon todos readonly , hasta el multilinea , como ves este no se colorea , aqui o quitamos color a todos , o lo ponemos a todos , pero guardemos un criterio para que el usuario no se lie .\n\nY ya puestos , otro tema :\nIntento poner un bmp en la pantalla , este tiene el color tipico verde oliva para la trasparencia , pero esta trasparencia no se produce ¿ Existe la clausula transparent , o que comando se usa ?  \n\nSaludos y Gracias','',0,'CA==','23s4r40y',1,0,'',262,0,0),(5490,1335,3,339,0,'200.217.85.254',1137678077,1,0,1,1,1,0,'','SQL COMMANDS','Some People know where make Download...\n\nSQL COMMANDS GUIDE\n\n\n\nMAURICIO','',0,'CA==','1uwkgtxp',1,0,'',339,0,0),(5491,1332,3,339,0,'200.217.85.254',1137678264,1,0,1,1,1,0,'','','THANKS RIMANTAS','',0,'CA==','3ah304ac',1,0,'',339,0,0),(5492,1263,3,190,0,'202.65.134.46',1137678882,1,0,1,1,1,0,'','','Hi friends\n\nIn response to the 1st point of my own question, I came out with a solution as under.\n\nThe following function is very useful when you want to Disable the \'X\' \nbutton or \'Move\' from system menu of a Dialog or a Window.\n\nA small compilation of FWH functions together for a most needed purpose.\n\nRegards, \n\n- Ramesh Babu P\n\n\nFUNCTION Diable_X_Move(oWinDlg, lDisableX, lDisable_Move)\n\nLOCAL nCount := 0\nLOCAL hMenu  := 0\nLOCAL cClass := oWinDlg:ClassName()\n\nhMenu  := GetSystemMenu(oWinDlg:hWnd, .F.)\nnCount := GetMItemCount(hMenu)\n\nIF lDisableX\n   // To Diable `X\' Button of a Window or a Dialog\n   RemoveMenu( hMenu, nCount-1, nOR( MF_BYPOSITION) )\nENDIF\n\nIF lDisable_Move\n   IF cClass != \"TDIALOG\"\n      // To Disable `Move\' Menu Item in Dialog\n      RemoveMenu( hMenu, 1, nOR( MF_BYPOSITION) )\n   ELSE\n      // To Disable `Move\' Menu Item in a Window\n      RemoveMenu( hMenu, nCount-2, nOR( MF_BYPOSITION) )\n   ENDIF\nENDIF\n\nDrawMenuBar( oWinDlg:hWnd )\n\nRETURN nil','',0,'CA==','olpss22d',1,0,'',190,0,0),(5493,1231,7,2,0,'80.32.22.38',1137680196,1,0,1,1,1,1,'','','Jose Luis,\n\nEstas capturas las has hecho con el build que hemos publicado hoy ?\n\nRespecto al bitmap, con que código lo estás mostrando ?','',0,'CA==','2jm1lf0d',1,0,'',2,0,0),(5494,1303,6,63,0,'80.58.35.107',1137681091,1,0,1,1,1,0,'','','Paco:\nMuchísimas gracias por tu respuesta, que más bien es todo un manual de cómo conseguir conexión entre dos aplicaciones.  Me lo estudio y te digo los resultados.\nRepito, muchas gracias por todo el trabajo que te has tomado.  Un saludo,\nRafael','',0,'CA==','18x5h2f0',1,0,'',63,0,0),(5495,1231,7,262,0,'83.97.168.83',1137681215,1,0,1,1,1,1,'','','Si son con el nuevo build , el antiguo mostraba los get con recursos con texto en color gris  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nrespecto a bitmap uso esto :\n\n   @ 4,218 BITMAP oBmp1 FILE curdir()+\"bmp\\si16.bmp\" SIZE 14,14 pixel  NO BORDER ON CLICK ownd:end()','',0,'CA==','m90nfy20',1,0,'',262,0,0),(5496,1324,6,18,0,'200.67.188.236',1137681948,1,0,1,1,1,1,'','','Rufer :\n\nPuedes tratar de hacerlo con la idea de Hernán, y no debe de resultar muy complicado hacerlo.\n\nTe anexo la imagen de ejemplo que muestra un Bitmap y texto dentro de un dialogo, si miras la imagen con cuidado te darás cuenta que todo el dialogo es transparente, y en el status bar de la ventana padre se pueden ver las coordenadas del mouse sobre el dialogo.\n[img:346sxujz]http&#58;//vikthor&#46;com&#46;mx/images/screen&#46;jpg[/img:346sxujz]','',0,'CA==','346sxujz',1,0,'',18,0,0),(5497,1336,6,152,0,'200.113.118.131',1137682191,1,0,1,1,1,0,'','Caracteres tipo password en WinXP','[img:23zt92u5]http&#58;//gdeteran&#46;150m&#46;com/Passwd&#46;jpg[/img:23zt92u5]\n\nComo puedo cambiar estos caracteres al tipico de WinXP o, por ultimo el antiguo asterisco\n\n\nDe antemanos gracias\n\nGonzalo','',0,'CA==','23zt92u5',1,0,'',152,0,0),(5498,1333,6,18,0,'200.67.188.236',1137682414,1,0,1,1,1,1,'','Re: TsBrowse para xHarbour y Fivewin 2.5','[quote=&quot;AntonioCrisostomo&quot;:15skx3my]Gracias por sus respuestas ante todo. \nMi problema, es que necesito una versión estable de Tsbrowse para fivewin 2.5 con xharbour, ya que tengo problemas con los alias cuando se cierran varias ventanas tipo mdi, por favor.[/quote:15skx3my]\n\nAntonio :\n\nLa clase TsBrowse ha sufrido muchisimas modifiaciones a su código original por parte de muchos programadores que la han ajustado a sus ncesidades, por lo tanto una versión estable no creo que la encuentres.\n\nAsí que yo te muestro el código del método LostFocus() que modifique para solucionar el problema que comentas.\n[code:15skx3my]\n* ============================================================================\n* METHOD TSBrowse&#58;LostFocus&#40;&#41; Version 6&#46;0 Apr/5/2002\n* ============================================================================\n\nMETHOD LostFocus&#40; hCtlFocus &#41; CLASS TSBrowse\n\n   If &#58;&#58;lEditing\n      Return 0\n   EndIf\n\n   Super&#58;LostFocus&#40; hCtlFocus &#41;\n\n   If &#58;&#58;nLen &gt; 0 &#46;and&#46; ! EmptyAlias&#40; &#58;&#58;cAlias &#41; &#46;and&#46; ! &#58;&#58;lIconView\n      &#58;&#58;DrawSelect&#40;&#41;\n   EndIf\n\n   If &#58;&#58;oCtx != Nil\n      &#58;&#58;oCtx&#58;Save&#40;&#41;\n   EndIf\n\n   If &#58;&#58;cAlias != &quot;ARRAY&quot; &#46;and&#46; &#58;&#58;cAlias != &quot;TEXT_&quot;\n\n*      &#58;&#58;nLastPos &#58;= &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41;\n*      &#58;&#58;nLastnAt &#58;= &#58;&#58;nAt\n			// Fixed bug Alias Vikthor\n			IF !EmptyAlias&#40; &#58;&#58;cAlias &#41;\n				 IF Select&#40; &#58;&#58;cAlias &#41; &gt; 0\n            &#58;&#58;nLastPos &#58;= &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41;\n				 ELSE\n						&#58;&#58;nLastPos &#58;= 0\n				 ENDIF\n				 &#58;&#58;nLastnAt &#58;= 0\n			ENDIF\n      If &#58;&#58;bTagOrder != Nil &#46;and&#46; ! &#58;&#58;lNoResetPos &#46;and&#46; &#58;&#58;bLastTag != Nil\n         &#58;&#58;uLastTag &#58;= Eval&#40; &#58;&#58;bLastTag &#41;\n      EndIf\n\n   EndIf\n\n   &#58;&#58;lHasFocus &#58;= &#46;F&#46;\n\nReturn 0\n[/code:15skx3my]','',0,'gIA=','15skx3my',1,0,'',18,0,0),(5499,1337,6,255,0,'200.67.134.233',1137684729,1,0,1,1,1,1,'','News! 19/ene/2006 DTPICKER y TMPICKER !!','Nuestro amigo Fernando Gonzales (fgondi)\nme ha enviado una nueva clase para la\ncreacion de DTPICKER (selector de fechas)\ny TMPICKER (selector de hora)\n\nPueden descargarla de mi sitio Web.\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n\nSaludos y gracias Fernando','',0,'gIA=','ciporyoq',1,0,'',255,0,0),(5500,1338,3,255,0,'200.67.134.233',1137684855,1,0,1,1,1,1,'','News! 19/JAN/2006 New DTPICKER and TMPICKER','Our friend Fernando Gonzalez (fgondi)\nhas send to me a new class to create\nDTPICKER (date selector)  and\nTMPICKER (time selector).\n\nYou can download from my website.\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n\nThanks Fernando !!\n\nRegards','',0,'gIA=','7oym2og6',1,0,'',255,0,0),(5501,1247,6,21,0,'80.58.49.235',1137684952,1,0,1,1,1,1,'','','Hola Ale,\n\nMira el mensaje de JCSO del día 19/01/06 con el asunto:\n\"News! 19/ene/2006 DTPICKER y TMPICKER !!\"','',0,'gIA=','5zpwhhu6',1,0,'',21,0,0),(5502,1336,6,278,0,'200.72.147.10',1137685331,1,0,1,1,1,1,'','Como poner pasword','Gonzalo:\n\nNo se si es esto, pero basta con el editor de recursos que uses, ejemplo el workshop y le asignes a ese campo de edición el tipo password y listo.\nEsto se ve en las propiedades.\n\nAl hacer esto en Xp lo reconoce automaticamente .\n\nClaro hay que usar FWH y un compilador 32 bits.\n\nSaludos\n\nJC','',0,'gIA=','3io9wm8v',1,0,'',278,0,0),(5503,1338,3,190,0,'202.65.134.46',1137686121,1,0,1,1,1,0,'','','Hi \n\nWill DTPICKER class respect SET DATE BRITISH format  (DD/MM/YYYY) ?\n\nRegards,\n\n- Ramesh Babu P','',0,'gIA=','g8xzpcel',1,0,'',190,0,0),(5504,1324,6,138,0,'201.128.111.75',1137688629,1,0,1,1,1,1,'','','Creo que estamos matando pulgas a cañonazos otra vez.\n\nSeria mas facil hacer un pequeño \"rompecabezas\" de la imagen y meter esas imagenes en un BTNBMP, o en u bitmap directamente y simplemente detectar el click del mouse','',0,'gIA=','2x5w8914',1,0,'',138,0,0),(5505,1339,3,339,0,'200.217.85.254',1137688677,1,0,1,1,1,0,'','unresolved External _hb_fun_iniodbc32 and _hb_fun_tdd','some people Knows Solution for THIS....\n\n\n\n\nmauricio','',0,'gIA=','1juos0is',1,0,'',339,0,0),(5506,1325,6,138,0,'201.128.111.75',1137688809,1,0,1,1,1,1,'','','No tiene desperdicio.....\n\nEsto merece un post en el blog......','',0,'gIA=','1q8acnzf',1,0,'',138,0,0),(5507,1324,6,61,0,'201.217.173.231',1137689047,1,0,1,1,1,0,'','Gracias a todos...','Gracias a todos.\n\nSaludos\n\nRuben Fernandez.\nDespues les cuento...','',0,'gIA=','2ndli0m5',1,0,'',61,0,0),(5508,1292,6,43,0,'201.127.19.186',1137689117,1,0,1,1,1,0,'','','Gracias Antonio\n\n  lo implemente y funciona con unos arreglos:\n\n[code:1mknembm]	 ACTIVATE POPUP oMenu AT aPos&#91;1&#93; + 30 , aPos&#91;2&#93; -10 OF oBtn&#58;oWnd&#58;oWnd\n[/code:1mknembm]\n\npero aun tengo mis dudas ya que si ves esta imagenes veras las diferencias.\n\n[/img][url=http&#58;//imageshack&#46;us:1mknembm][img:1mknembm]http&#58;//img371&#46;imageshack&#46;us/img371/3285/menua9pp&#46;png[/img:1mknembm][/url:1mknembm][img]\n\n[/img][url=http&#58;//imageshack&#46;us:1mknembm][img:1mknembm]http&#58;//img371&#46;imageshack&#46;us/img371/2851/menuc2ys&#46;jpg[/img:1mknembm][/url:1mknembm][/img]\n\nahorita tengo esto en el codigo:\n\n[code:1mknembm]            DEFINE BUTTON oBtn&#91;2&#93; OF oBar ;\n							  RESOURCE &quot;PRINTER&quot;     ;\n                       ACTION MenuPop&#40;oBtn&#91;2&#93;&#41;;\n                       FONT oWndPrinc&#58;oFont   ;\n                       MESSAGE &quot; Reportes del Sistema&quot; ;\n                       NOBORDER            ;\n                       GROUP\n[/code:1mknembm]\n\nque corresponde a la primera figura, pero lo pongo asi.\n\n[code:1mknembm]                DEFINE BUTTON oBtn&#91;2&#93; OF oBar ;\n							  RESOURCE &quot;PRINTER&quot;     ;\n							  MENU MenuPop&#40;oBtn&#91;2&#93;&#41;  ;\n                       ACTION MenuPop&#40;oBtn&#91;2&#93;&#41;;\n                       FONT oWndPrinc&#58;oFont   ;\n                       MESSAGE &quot; Reportes del Sistema&quot; ;\n                       NOBORDER            ;\n                       GROUP\n[/code:1mknembm]\n\n\nque deberia de ser asi, para que quede como la 2a. figura, me sale este error.\n\n[code:1mknembm]Application\n===========\n   Path and name&#58; C&#58;\\PruebaMenus\\Menus&#46;Exe &#40;32 bits&#41;\n   Size&#58;   786,944 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 19/01/2006, 10&#58;24&#58;12\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; HWND\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58;  =&gt; HWND&#40;0&#41;\n   Called from&#58;  =&gt; MENUPOP&#40;102&#41;\n   Called from&#58; menus&#46;prg =&gt; MAIN&#40;57&#41;\n[/code:1mknembm]\n\nHaciendo lo que me mencionaste en el post anterior, porque sera Antonio.\n\nSaludos\n\n   Marco A. Delgado.','',0,'GIA=','1mknembm',1,0,'',43,0,0),(5509,1324,6,61,0,'201.217.173.231',1137689204,1,0,1,1,1,0,'','Paco...','Amigo:\n\naun no he hecho nada solo estoy preguntando para hacerlo\nde la mejor manera la primera vez.\n\n\nSaludos y gracias.\n\nRuben Fernandez...','',0,'GIA=','1foz4s3w',1,0,'',61,0,0),(5510,1324,6,61,0,'201.217.173.231',1137689312,1,0,1,1,1,0,'','','Amigos...\n\nComo soy nalgo burro (disculpando a los burros )\nme gustra la forma de RF.\n\nGracias nuevamente y Saludos\n\nRuben Fernandez','',0,'GIA=','2vl6dgr0',1,0,'',61,0,0),(5511,1231,7,2,0,'80.32.22.38',1137690945,1,0,1,1,1,1,'','','Jose Luis,\n\nPueba a añadirle la claúsula TRANSPARENT:\n\n@ 4,218 BITMAP oBmp1 FILE curdir()+\"bmp\\si16.bmp\" SIZE 14,14 pixel NO BORDER TRANSPARENT ON CLICK ownd:end()','',0,'GIA=','2k1byr2f',1,0,'',2,0,0),(5512,1231,7,2,0,'80.32.22.38',1137691139,1,0,1,1,1,1,'','','Jose Luis,\n\n&gt;\nSi son con el nuevo build , el antiguo mostraba los get con recursos con texto en color gris \n&gt;\n\nEstás seguro ? La clase TGet ya no usa el color_BTNFACE para nada. \n\nPor favor comprueba que estés usando las librerías nuevas.','',0,'GIA=','4sradxed',1,0,'',2,0,0),(5513,1322,6,179,0,'64.46.80.210',1137692016,1,0,1,1,1,1,'','','Daniel gracias x responder\n\nPrecisamente necesito saber cual es la variable (Data) del report\ndonde esta en ultimo numero de fila donde termino el reporte y poder escribir debajo de el\n\nY claro si existe una funcion para poder expresarle en centimetros ese valor\n\nPerdon por la ignorancia, no me llevo bien ni con la clase report ni con la printer\n\nSaludos','',0,'GIA=','2khodo6o',1,0,'',179,0,0),(5514,1277,6,385,0,'85.155.35.22',1137693557,1,0,1,1,1,0,'','','Hola\n\nLamento el tiempo que ha pasado,pero el trabajo es asi... gracias por las respuestas, pero el problema es que el error de sintaxis lo da en la compilacion de prg a obj que no se utliza Bcc32 sino harbour...hay alguna forma de sustituir esas expresiones por otras que hagan lo mismo en harbour...\n\n\nAtentamente\n\nJose Ignacio Jimenez Alarcon','',0,'GIA=','163m5e9h',1,0,'',385,0,0),(5516,1247,6,400,0,'200.205.49.13',1137696165,1,0,1,1,1,1,'','','Gracias Fernando, \n\nVou testar ela agora.\n\n@braços Ale','',0,'GIA=','mzaosj5c',1,0,'',400,0,0),(5517,1231,7,262,0,'83.97.168.83',1137698443,1,0,1,1,1,1,'','','He reinstalado el fwpcc , he comprobado que son lib nuevas , he ido a samples y he modificado tutor05 poniendo un par de gets a READONLY , lo he probado en el emulador y sigue con color BTN_FACE .\nLo he probado en el pocket ( por si acaso fuera cosa de cache ) y lo mismo .\nMira a ver tu , puede que no cambiaras el archivo al hacer el nuevo build \n\nRespecto al bitmap la clausula TRANSPARENT no existe en el preprocesado para el codigo ( si para recursos)\ny si pongo el codigo \n\n  obmp1:lTransparent := .t.\n\nSe pinta el bmp pero con el fondo en negro .\nEsto mismo ocurre sin la clausula transparent ,si ponemos una medida por ejemplo SIZE 20,20 y el bmp es de 16*16  se ajusta arriba a izquierda y el resto se pinta de negro .\n\nSaludos.','',0,'GIA=','28q329h3',1,0,'',262,0,0),(5518,1231,7,2,0,'80.32.22.38',1137699093,1,0,1,1,1,1,'','','Jose Luis,\n\nSolucionado! Mis disculpas. Era el estilo ES_READONLY que automaticamente ponía ese color.\n\nPor favor descarga un nuevo build de FWPPC y pruébalo de nuevo. Gracias!','',0,'GIA=','3in603qf',1,0,'',2,0,0),(5519,1338,3,335,0,'68.193.88.53',1137700139,1,0,1,1,1,0,'','','Can you make available for download a small sample that shows a demo of these classes in operation?','',0,'GIA=','150k1f2w',1,0,'',335,0,0),(5520,1231,7,2,0,'80.32.22.38',1137700492,1,0,1,1,1,1,'','','Jose Luis,\n\nEn cuanto a los bitmaps, tienes toda la razón, la claúsula TRANSPARENT no esta incluida en el comando y hay que usarla como indicas. Lo que ocurre es que DrawMasked() que es la función encargada de dibujar transparente no funciona correctamente en el Pocket PC.\n\nVamos a investigarlo. Mientras tanto puedes usar un color de fondo como el de la ventana ó diálogo en donde situes el bitmap.','',0,'GIA=','2m6ojnt7',1,0,'',2,0,0),(5521,1231,7,2,0,'80.32.22.38',1137701516,1,0,1,1,1,1,'','','Jose Luis,\n\nSolucionado el tema de los bitmaps transparentes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPor favor descarga de nuevo FWPPC y prueba el ejemplo samples\\TestBmp.prg. Gracias','',0,'GIA=','1mibxkxz',1,0,'',2,0,0),(5522,1292,6,2,0,'80.32.22.38',1137702131,1,0,1,1,1,1,'','','Marco,\n\nSi usas la claúsula ... MENU ... en la definición del botón, entonces tu no tienes que activar el POPUP ya que FWH lo hace automaticamente.\n\nRevisa el ejemplo samples\\TestBtn.prg y observa como se crea el menú y se le dá al botón.','',0,'GIA=','317rvzy1',1,0,'',2,0,0),(5523,1113,2,2,0,'80.32.22.38',1137702210,1,0,1,1,1,1,'','','me alegro de que esté solucionado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GIA=','lvewhcm1',1,0,'',2,0,0),(5524,1231,7,262,0,'83.97.168.83',1137703307,1,0,1,1,1,1,'','','Solucionado , funciona todo perfecto .<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nSolo un pequeño  detalle/ pregunta  que ya es para nota  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \nSi pongo color a los gets funciona perfectamente , pero existe una diferencia entre los gets de codigo y los de recursos   .\nEn los de código es el recuadro el que se pinta ( quedando muy elegante ) , pero en los de recursos lo que se pinta no es el rectangulo contenedor , sino la parte posterior de la letra escrita  y esto ya no queda tan bien si por ejemplo ponemos un get de tamaño de media pantalla y dentro solo tenemos un \"Hola\" ( queda el fondo de las letras en amarillo por ejemplo y la mitad en blanco , pues no tiene caracteres ).\n\nRespecto al BMP ahora ya no se redimensiona en negro , pero ¿ Realmente se hace trasparente ? .\nHe probado a hacer esto :\ndespues de la linea @4,4 BITMAP ...\n\nhe puesto la linea\n\n @ 4,5 SAY  \"     \" SIZE 240,40 BORDER COLOR  0,GetSysColor( COLOR_BTNFACE )\n\nbueno y las cabeceras\n #define SYS_COLOR_INDEX_FLAG  0x40000000\n#define COLOR_BTNFACE      nOr( 15, SYS_COLOR_INDEX_FLAG )\n\nY  lo que se ve es que coge el color de la ventana , pero no que se haga transparente  ¿ Eso es correcto ? , si es asi ¿ se podria decir que en vez el color de la ventana coja otro cualquiera ?\n\nBueno esto ya es un poco rizar el rizo , lo importante ya está conseguido \nGracias y Saludos.','',0,'GIA=','3j5qc42f',1,0,'',262,0,0),(5525,1231,7,2,0,'80.32.22.38',1137704074,1,0,1,1,1,1,'','','Jose Luis,\n\nvamos a revisar lo que comentas de los GETs.\n\nEn cuanto a la transparencia, prueba a cambiar el orden de creación:\n\nprimero el say y luego el bitmap.','',0,'GIA=','23ku49fy',1,0,'',2,0,0),(5526,1231,7,262,0,'83.97.168.83',1137704714,1,0,1,1,1,1,'','','Si cambio el orden y pongo primero el say y luego el bmp , el bmp se queda totalmente tapado por el say , cambiando el say a @5,5 say ...  se ve un poco de bmp que asoma ...','',0,'GIA=','gmib0u36',1,0,'',262,0,0),(5527,1322,6,74,0,'190.48.230.40',1137706309,1,0,1,1,1,1,'','Re: ayuda con Report','[quote=&quot;wilsongamboa&quot;:3so9renm]Precisamente necesito saber cual es la variable (Data) del report\ndonde esta en ultimo numero de fila donde termino el reporte y poder escribir debajo de el \n[/quote:3so9renm]\n\nEsa variable de instancia seria oReport:nRow, pone un ? oReport:nRow en el codigo del reporte para ver que contiene, no recuerdo si eso tiene la cantidad de filas del reporte hasta ese momento o si es en pixeles. En cualquiera de los dos casos vos podes saber si corresponde o no hacer corte de hoja haciendo los calculos pertinentes (segun la cantidad de filas que entran en la hoja que usas o en pixeles)\n\nSaludos,','',0,'gA==','3so9renm',1,0,'',74,0,0),(5528,1335,3,177,0,'62.99.96.146',1137706408,1,0,1,1,1,0,'','','Hi Mauricio,\n\nhere you are :\n\n<!-- m --><a class=\"postlink\" href=\"http://web-bureau.com/modules/sql.php\">http://web-bureau.com/modules/sql.php</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.programmingtutorials.com/sql.aspx\">http://www.programmingtutorials.com/sql.aspx</a><!-- m -->\n\nBest regards,\n\nFelix','',0,'gA==','3cj1qhcu',1,0,'',177,0,0),(5529,1340,6,203,0,'200.107.2.137',1137706888,1,0,1,1,1,1,'','lock()  en txbrowse','Por favor amigos del foro\nsi me pueden ayudar con algun ejemplo\npara bloquear un registro usando txbrowse \n\nGracias por su tiempo\n\n\nSaludos\nOscar','',0,'gA==','35svifbn',1,0,'',203,0,0),(5530,1335,3,177,0,'62.99.96.146',1137707316,1,0,1,1,1,0,'','','Hi Mauricio,\n\nhere in your language:\n\n<!-- m --><a class=\"postlink\" href=\"http://projectos.ccems.pt/resourcesgrid.asp?ID=122&amp;\">http://projectos.ccems.pt/resourcesgrid.asp?ID=122&amp;</a><!-- m -->\n\nBest regards,\n\nFelix','',0,'gA==','nt8iyvya',1,0,'',177,0,0),(5531,1339,3,2,0,'80.32.22.38',1137709621,1,0,1,1,1,1,'','','Mauricio,\n\nAre you using an ODBC library ?','',0,'gA==','3lobb8kf',1,0,'',2,0,0),(5532,1340,6,2,0,'80.32.22.38',1137709896,1,0,1,1,1,1,'','','Oscar,\n\nEn el ejemplo samples\\TestXBrw.prg prueba lo siguiente:\n\noCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, If( RLock(), ( FieldPut( o:nCreationOrder, v ), DbUnLock() ), MsgStop( \"locked record!\" ) ), ) }','',0,'gA==','3oiqay3i',1,0,'',2,0,0),(5533,1335,3,2,0,'80.32.22.38',1137710054,1,0,1,1,1,1,'','','Felix,\n\nThanks!','',0,'gA==','i7a79cjv',1,0,'',2,0,0),(5534,1292,6,43,0,'201.127.19.186',1137710455,1,0,1,1,1,0,'','','nuevamente.......gracias...... Antonio\n\n  Pero seguimos con el mismo problema, no desabilita los submenus.\n\n[img][url=http&#58;//imageshack&#46;us:3q41aw1q][img]http://img371.imageshack.us/img371/3600/menua6lb.jpg[/img][/url:3q41aw1q][/img]\n\ny el Codigo es este (de acuerdo al ejemplo testbtn)\n\n[code:3q41aw1q]#Define COLOR_BTNFACE 15\n#Define CLR_NBLUE  nRGB&#40; 128, 128, 192&#41;\n\n#Include &quot;FiveWin&#46;ch&quot;\n\nStatic oWndPrinc, oOut\nStatic cEmpresa, oFont\n***************************\nFunction Main&#40;&#41;\n  Local oIcon, oCur, oBar, cUsuario\n  Local oSpl, oUsuario, oBrush, oSay, oEmpresa\n  Local oBtn&#91;2&#93;, oMenu, lEnable &#58;= &#46;F&#46;\n  DEFAULT cEmpresa &#58;= &quot;Transporte Urbano de Poza Rica, S&#46;A&#46; de C&#46;V&#46;&quot;\n  DEFAULT cUsuario &#58;= &quot;&quot;\n\n  REQUEST DBFCDX\n  RDDSETDEFAULT&#40;&quot;DBFCDX&quot;&#41;\n  SET CENTURY ON\n  SET DATE BRITISH\n  SET DELETE ON\n  SET EPOCH TO 1989\n  SetHandleCount&#40; 80 &#41;\n  Set3dLook&#40;&#46;T&#46;&#41;\n\n  DEFINE ICON oIcon RESOURCE &quot;A&quot;\n  DEFINE CURSOR oCur RESOURCE &quot;Hand&quot;\n  DEFINE BRUSH oBrush RESOURCE &quot;Brush2&quot;\n  DEFINE FONT oFont  NAME &quot;Arial&quot; SIZE 0, -11\n\n  DEFINE WINDOW oWndPrinc ;\n         TITLE &quot;Sistema Administrativo para Transporte de Pasajeros para Windows&quot; ;\n         COLOR CLR_BLACK, GetSysColor&#40;15&#41;-RGB&#40;30,30,30&#41; ;\n         MENU CreaMenu&#40;&#41; ;\n         ICON oIcon\n\n         oWndPrinc&#58;SetFont&#40; oFont &#41;\n\n         DEFINE BUTTONBAR oBar 3DLOOK OF oWndPrinc SIZE 35, 35\n                oBar&#58;bLClicked &#58;= &#123;|| 0 &#125;\n                oBar&#58;bRClicked &#58;= &#123;|| 0 &#125;\n\n                MENU oMenu POPUP\n                     MenuItem &quot;Informe de &amp;Recaudaciones Diarias&quot;\n                     SEPARATOR\n                     MenuItem &quot;Deducciones a &amp;Operadores&quot; ;\n                              RESOURCE &quot;Oper16&quot;\n                         Menu\n                            MenuItem &quot;&amp;Detallado &#40;Ordenado por Operador&#41;&quot; When lEnable\n					             MenuItem &quot;&amp;Acumulado &#40;Ordenado por Operador&#41;&quot; When lEnable\n                            MenuItem &quot;&amp;Individual&quot;\n                         EndMenu\n                     MenuItem &quot;Informe de &amp;Pensiones a Operadores&quot;\n                     SEPARATOR\n                     MenuItem &quot;&amp;Ingresos&quot;\n                         Menu\n                           MenuItem &quot;Mensual por &amp;Unidad&quot; When lEnable\n                               Menu\n                                  MenuItem &quot;&amp;Detallado &#40;Ordenado por Unidad&#41;&quot;\n                                  MenuItem &quot;&amp;Acumulado &#40;Ordenado por Ingresos&#41;&quot;\n							             MenuItem &quot;por &amp;Unidad &#40;en Detalle&#41;&quot;\n                               EndMenu\n				               MenuItem &quot;Mensual por &amp;Operador&quot;  ;\n						                  RESOURCE &quot;Oper16&quot; When lEnable\n                               Menu\n                                  MenuItem &quot;&amp;Detallado &#40;Ordenado por Operador&#41;&quot;\n							             MenuItem &quot;&amp;Acumulado &#40;Ordenado por Ingresos&#41;&quot;\n                                  MenuItem &quot;&amp;Individual &#40;en Detalle&#41;&quot;\n                               EndMenu\n                           MenuItem &quot;Mensual Por &amp;Empresas&quot; When lEnable\n				               MenuItem &quot;Mensual Por &amp;Bases&quot;\n				               SEPARATOR\n				               MenuItem &quot;Anual por &amp;Unidad&quot;\n				               MenuItem &quot;Anual por &amp;Operador&quot; ;\n						                  RESOURCE &quot;Oper16&quot;\n                                Menu\n                                  MenuItem &quot;&amp;Global&quot;\n                                  MenuItem &quot;&amp;Individual&quot;\n                                EndMenu\n				               MenuItem &quot;Anual por &amp;Empresas&quot; When lEnable\n				               MenuItem &quot;Anual por &amp;Bases&quot;\n                     EndMenu\n                     SEPARATOR\n                     MenuItem &quot;&amp;Generacion de Disco de Entregas&quot; When lEnable\n                ENDMENU\n\n                DEFINE BUTTON oBtn&#91;1&#93; OF oBar    ;\n                       RESOURCE &quot;EXIT&quot;,&quot;EXIT&quot;   ;\n                       ACTION oWndPrinc&#58;End&#40;&#41;       ;\n                       MESSAGE &quot; Salir del Sistema&quot; ;\n                       TOOLTIP &quot;Salir del Sistema&quot;  ;\n							  NOBORDER\n\n                DEFINE BUTTON oBtn&#91;2&#93; OF oBar ;\n							  RESOURCE &quot;PRINTER&quot;     ;\n							  MENU oMenu  ;\n                       FONT oWndPrinc&#58;oFont   ;\n                       MESSAGE &quot; Reportes del Sistema&quot; ;\n                       NOBORDER            ;\n                       GROUP\n\n         SET MESSAGE OF oWndPrinc TO &quot; Prueba &quot; CENTER NOINSET\n\n                    oWndPrinc&#58;oMsgBar&#58;DateOn&#40;&#41;\n\n  ACTIVATE WINDOW oWndPrinc          ;\n           VALID &#40;oFont&#58;End&#40;&#41;, &#46;T&#46; &#41; ;\n           MAXIMIZED\n\n\nReturn Nil\n*******************\nFunction CreaMenu&#40;&#41;\n  Local oMenu\n  Local lEnable &#58;= &#46;F&#46;\n\n        MENU oMenu\n				MenuItem &quot;Primero&quot;\n				  Menu\n					 MenuItem &quot;Acerca1&quot;\n				      Menu\n					     MenuItem &quot;Punto1&quot;\n					     MenuItem &quot;Punto2&quot;\n				          Menu\n					         MenuItem &quot;Parte1&quot;\n					         MenuItem &quot;Parte2&quot;\n					         MenuItem &quot;Parte3&quot; When lEnable\n				          EndMenu\n					     MenuItem &quot;Punto3&quot; When lEnable\n				      EndMenu\n					 MenuItem &quot;Acerca2&quot;\n					 MenuItem &quot;Acerca3&quot; When lEnable\n				  EndMenu\n				MenuItem &quot;Segundo&quot;\n        EndMenu\n\nReturn&#40;oMenu&#41;\n*******************************************\n[/code:3q41aw1q]\n\nSaludos\n\n  Marco A. Delgado.','',0,'GIA=','3q41aw1q',1,0,'',43,0,0),(5535,1340,6,203,0,'200.107.3.103',1137711582,1,0,1,1,1,1,'','','Funciono perfecto \nlisto, gracias Antonio\n\n\nSaludos\nOscar','',0,'GIA=','n10b56pm',1,0,'',203,0,0),(5536,1339,3,339,0,'200.217.85.254',1137711646,1,0,1,1,1,0,'','','No Antonio,,\n\n Only Harbour and Fivewin Libraries\n\n\n  Why i need Other LIB for Using  TRDDODBC  Class... , Because I doing TEST With TODBC and TODBCDIRECT  , This Error Dont´m Show..\n\n  What is Better Class ?\n\nthanks Antonio,','',0,'GIA=','ynzrhxy7',1,0,'',339,0,0),(5537,1335,3,339,0,'200.217.85.254',1137711867,1,0,1,1,1,0,'','','Thanks Felix...\n\n  Do you Knows Where Samples With Harbour , Fivewin + Sql commands\n\n  Search table \n  Index Database ...\n\n\n\nthanks Again','',0,'GIA=','2lmdgolf',1,0,'',339,0,0),(5538,1341,3,49,0,'82.57.115.239',1137712118,1,0,1,1,1,0,'','Error with Wbrowse\' hernan class','the same code on 16 bit run ok\non 32 bit when I use Pag up or pag down or key cursor the program sho the records well into listbox\nwhen I use the mouse and click on scroolbar it make an strange error :\nUndefined function: ORDKEYGOTO\n\nHow I can resolve it ?\n\nRegards','',0,'GIA=','1vgngwil',1,0,'',49,0,0),(5539,1231,7,2,0,'80.32.22.38',1137712141,1,0,1,1,1,1,'','','Jose Luis,\n\nHemos hecho un montón de pruebas con el tema de los GETs coloreados desde recursos y parece que de momento no encontramos solución.','',0,'GIA=','1morry6u',1,0,'',2,0,0),(5540,1292,6,2,0,'80.32.22.38',1137712337,1,0,1,1,1,1,'','','Marco,\n\nLo curioso es que en el ejemplo samples\\TestBtn.prg si haces WHEN .f. de un menuitem, se ve deshabilitado...\n\nCorrijo lo anteriormente dicho: Es un bug. Al crear un submenu, falla. Vamos a revisarlo.','',0,'GIA=','2puzj2ew',1,0,'',2,0,0),(5541,1336,6,255,0,'200.67.134.233',1137712457,1,0,1,1,1,1,'','','Gonzalo, necesitas\nusar en tu diálogo la letra TAHOMA tamaño 8\n\nAsígnasela desde tu editor de recursos.\n\nSaludos','',0,'GIA=','3nqliljq',1,0,'',255,0,0),(5542,1342,19,255,0,'200.67.134.233',1137712649,1,0,1,1,1,1,'','Free WAV to Mp3 compresor','i need a WAV to Mp3 compresor to work\nwith command line.\n\nNecesito un convertidor de Wav a Mp3 \nque trabaje bajo linea de comandos.\n\n\nAlguna sugerencia ?\n\nGracias','',0,'GIA=','1ipb0c5l',1,0,'',255,0,0),(5543,1338,3,255,0,'200.67.134.233',1137712904,1,0,1,1,1,1,'','','I am not the Author of the class.   \n\n But is not hard to understand, just\n take a look to the source code.     \n\n i think this class allows the british \n\n Regards','',0,'GIA=','1hmpn4gh',1,0,'',255,0,0),(5544,1292,6,2,0,'80.32.22.38',1137713107,1,0,1,1,1,1,'','','Marco,\n\nEste cambio en la clase TWindow lo soluciona:\n\n[code:rsnajbmu]\nMETHOD InitMenuPopup&#40; hPopup, nIndex, lSystem &#41; CLASS TWindow\n\n   local oPopup\n\n   if ! lSystem\n      if ! Empty&#40; &#58;&#58;oPopup &#41; // &#46;and&#46; &#58;&#58;oPopup&#58;hMenu == hPopup\n         &#58;&#58;oPopup&#58;Initiate&#40;&#41;\n         if &#40; oPopup &#58;= &#58;&#58;oPopup&#58;GetPopup&#40; hPopup &#41; &#41; != nil\n            oPopup&#58;Initiate&#40;&#41;\n         endif\n         return nil\n      endif\n      if ! Empty&#40; &#58;&#58;oMenu &#41;\n         &#46;&#46;&#46;\n[/code:rsnajbmu]','',0,'AIA=','rsnajbmu',1,0,'',2,0,0),(5545,1343,6,49,0,'82.57.115.239',1137713304,1,0,1,1,1,0,'','Hernan ceccarelli','Where ARE YOU ?\n\nRegards','',0,'AIA=','rlgextyq',1,0,'',49,0,0),(5546,1339,3,2,0,'80.32.22.38',1137713334,1,0,1,1,1,1,'','','Mauricio,\n\nClass TRDDODBC only works with FiveWin for CA-Clipper. Sorry.','',0,'AIA=','kvfvbv1h',1,0,'',2,0,0),(5547,1339,3,339,0,'200.217.85.254',1137715225,1,0,1,1,1,0,'','','THANKS ANTONIO,,,\n\n\n    Antonio , you have Some PRG Using Class as TODBC and TODBCDIRECT  with search RECS\n\n\nthanks Again','',0,'AIA=','2s4z8jvy',1,0,'',339,0,0),(5548,1340,6,203,0,'200.107.3.134',1137716220,1,0,1,1,1,1,'','prevedit en txbrowse ?','Existe algo parecido a prevedit en txbrowse\n\n\nSaludos\nOscar','',0,'AIA=','3bpuaiyu',1,0,'',203,0,0),(5549,1341,3,49,0,'82.57.115.239',1137720505,1,0,1,1,1,0,'','','I resolve it \n\nI put on top of program main \n\nEXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo, Ordcreate\n\nnow run ok','',0,'AIA=','3g3xaf6x',1,0,'',49,0,0),(5550,1292,6,43,0,'201.127.19.186',1137724377,1,0,1,1,1,0,'','','solucionado... nuevamente gracias Antonio\n\nsolo una cosa, como hago para que pulsando el boton (no en triangulito que se forma del menu), sobresalga el mismo menu\n\nantes con clipper y fw si se podia haciendo esto.\n\n[code:26q000ju]   DEFINE BUTTON RESOURCE &quot;Concauto&quot; OF oBar ;\n          PROMPT &quot;Reportes&quot; MENU MenuReport&#40;This&#41; ;\n          ACTION MenuReport&#40;This&#41; ;\n          MESSAGE &quot;Genera Diversos Reportes del Sistema &#46;&#46;&#46;&quot; ;\n          NOBORDER GROUP TOOLTIP &quot;Reportes &#46;&#46;&#46;&quot;\n[/code:26q000ju]\n\npero ahora se hace de menera diferente, me podrias orientar como hacerlo Gracias.\n\nSaludos\n\n   Marco A. Delgado','',0,'AIA=','26q000ju',1,0,'',43,0,0),(5551,1343,6,45,0,'200.45.178.250',1137725621,1,0,1,1,1,0,'','Re: Hernan ceccarelli','[quote=&quot;Silvio&quot;:hy3u49xd]Where ARE YOU ?\n\nRegards[/quote:hy3u49xd]\n\nHello Man  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Im Here  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','hy3u49xd',1,0,'',45,0,0),(5552,1284,6,45,0,'200.45.178.250',1137730622,1,0,1,1,1,0,'','','Hola \n   Me interesaria ver un lindo ejemplo de un ABM con ADO, eso, basicamente una tabla inicial de presentacion, modificaciones alta y bajas, como ir refrescando el recordset o existe necesidad de crear otro ?\nY creo que se podria browsear DIRECTAMENTE el recordset de ADO sin necesidad de incorporar un array de por medio, mas aun si quiero browsear una base de datos de millones de registros, me quedaria sin memoria <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSalu2','',0,'gA==','1w8zqdb7',1,0,'',45,0,0),(5553,1335,3,177,0,'194.30.62.6',1137737225,1,0,1,1,1,0,'','','Mauricio, Antonio,\n\nIMHO, the best way to use ODBC with Fivewin is Condor1 by Manu Exposito.\n\nYou can write to Manu to next address  <!-- e --><a href=\"mailto:manuexposito@gmail.com\">manuexposito@gmail.com</a><!-- e -->\n\nBest regards,\n\nFelix','',0,'gA==','nl7tp1kc',1,0,'',177,0,0),(5554,1344,3,148,0,'82.201.234.251',1137740981,1,0,1,1,1,0,'','What version that has all the Best classes','I am asking about What version should I buy that has all the Best classes and whole features that I may need in programming for network application .\nAlso I need to know What network operating system that fivewin compatible with .\nPlease specify version that may appear in price list ?\nThanks','',0,'gA==','28uv2rza',1,0,'',148,0,0),(5555,1345,3,148,0,'82.201.234.251',1137742240,1,0,1,1,1,0,'','How can I build Combobox with 2 dimesnions?','How can I build Combobox with 2 dimesnions?\nI will use it as help screen but with more than 1 field and accept one field in the end of the choice :\n\neg. \nName     address\nS            X\nS2          X2\n\n\nin the end of the chosing I will accept one value to filter my DB\neg. Name field .\nThanks','',0,'gA==','1i5o5pl5',1,0,'',148,0,0),(5556,1335,3,177,0,'194.30.62.6',1137743557,1,0,1,1,1,0,'','','Mauricio,\n\nyou can see some samples in :\n\nMySQL:\n\n<!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/eagle1/\">http://es.groups.yahoo.com/group/eagle1/</a><!-- m -->\n\nODBC:\n\n<!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/condor1/\">http://es.groups.yahoo.com/group/condor1/</a><!-- m -->\n\n\nBest regards,\n\nFelix','',0,'gA==','2hujiq99',1,0,'',177,0,0),(5557,1346,3,31,0,'195.182.84.105',1137744483,1,0,1,1,1,1,'','FindWindow() function','Hi ! Can be done , that FindWindow will find window with a part of title ? I\'m using in titles users names :\n\n[code:27dz3s21]\n   cMainTitle &#58;= &quot;MyApp &#46;&quot; \n   &#46;&#46;&#46;\n    DEFINE WINDOW oWnd_pagr MDI FROM 10, 10 TO nVerRes / 3&#46;5, ;\n    nHorRes / 1&#46;5 TITLE cMainTitle + alltrim&#40; cUserName &#41; + &quot; &#46; &quot; ;\n    MENU BuildMenu&#40;&#41; PIXEL\n[/code:27dz3s21]\n\n   I tried and without users name findwindow( 0, cMainTitle ) works fine . But adding user\'s name in caption the function can\'t detect . I think , that Window caption in searchs can be compare with the lenght of search string , something left( cWindCaption, len( alltrim( cSearch ) ) ) == alltrim( cSearch ) . How to do that ?\n\n   With best regards ! Rimantas .','',0,'AIA=','27dz3s21',1,0,'',31,0,0),(5558,1346,3,6,0,'82.61.144.235',1137745731,1,0,1,1,1,1,'','Re: FindWindow() function','This is a working sample:\n\n[code:3gdi2h1o]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define GW_HWNDFIRST 0\n#define GW_HWNDLAST  1\n#define GW_HWNDNEXT  2\n#define GW_HWNDPREV  3\n#define GW_OWNER     4\n#define GW_CHILD     5\n\n\n#define SW_NORMAL 1\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hWnd &#58;= FINDWND&#40; &quot;Excel&quot; &#41;\n\n    IF !EMPTY&#40; hWnd &#41;\n        ? GETWINDOWTEXT&#40; hWnd &#41;\n        SHOWWINDOW&#40; hWnd, SW_NORMAL &#41;\n    ELSE\n        ? &quot;Window not found&quot;\n    ENDIF\n\n    RETURN NIL\n\n\nFUNCTION FINDWND&#40; cTitle &#41;\n\n    LOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41;\n\n    WHILE hWnd != 0\n        IF UPPER&#40; cTitle &#41; $ UPPER&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41;\n            RETURN hWnd\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    RETURN NIL[/code:3gdi2h1o]\n\nEMG','',0,'AIA=','3gdi2h1o',1,0,'',6,0,0),(5559,1344,3,2,0,'80.32.22.38',1137745973,1,0,1,1,1,1,'','','Ehab,\n\nThe current FWH version is 2.7 January 2006 build.\n\nThe network capabilities are implemented in both Harbour and xHarbour and are compatible with Windows 98 and above.\n\nLocate FWH in price list at <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/english/purchase.html\">https://secure.fivetechsoft.com/english/purchase.html</a><!-- m --> Its price is 290 euros, delivered by email (Internet).','',0,'AIA=','2e7olof1',1,0,'',2,0,0),(5560,1345,3,6,0,'82.61.144.235',1137746004,1,0,1,1,1,1,'','Re: How can I build Combobox with 2 dimesnions?','You can compose the combobox items using two or more fields and then get the position of the choosen item using oCbx:nAt.\n\nEMG','',0,'AIA=','2dij3hpn',1,0,'',6,0,0),(5561,1342,19,130,0,'141.51.32.24',1137746239,1,0,1,1,1,0,'','Re: Free WAV to Mp3 compresor','[quote=&quot;VeRCE&quot;:1qoehfrv]i need a WAV to Mp3 compresor to work\nwith command line.[/quote:1qoehfrv]\n\nVeRCE,\n\nLook at the Wav2Mp3 project at Sourceforge. You can download it here:\n<!-- m --><a class=\"postlink\" href=\"http://wav2mp3lame.sourceforge.net/download.html\">http://wav2mp3lame.sourceforge.net/download.html</a><!-- m -->\n\nStefan','',0,'gA==','1qoehfrv',1,0,'',130,0,0),(5562,1292,6,2,0,'80.32.22.38',1137746319,1,0,1,1,1,1,'','','Marco,\n\nLo que has de hacer es usar la opción ... MENU ... como la estás usando, y en la cláusula ACTION llamar a tu función que crea y muestra el popup.','',0,'gA==','3p36aw2k',1,0,'',2,0,0),(5563,1231,7,262,0,'212.89.4.49',1137747223,1,0,1,1,1,1,'','','Gracias de todas maneras por el esfuerzo .\nNo es una cosa importante es pura estetica y la verdad es que lo importante es que funcione .\nComentar que si pongo en el get de recursos el readonly en los recursos , el color de fondo es el color_btnFAce  , por lo que parece debe ser el estandar que usan los pocket  .\nSaludos .','',0,'gA==','afxzzjas',1,0,'',262,0,0),(5564,1347,6,28,0,'213.27.201.254',1137747528,1,0,1,1,1,0,'','Wiki','Hola\n\nNo se si habeis oido hablar de la Wikipedia. Es una enciclopedia libre que se rellena por la gente que buenamente quiere escribir sus artículos. \n\nSe esta promoviendo una Wiki para xHarbour y he pensado que sería muy interesante hacer lo mismo para FiveWin. Yo no tengo mucha idea de como se organiza eso pero seguro que alguno de vosotros o Antonio mismamente sería capaz de iniciarla y entre todos rellenala. ¿qué os parece? \n\nUn saludo\n\nPaco García\n\n[url:3gxilq7s]http&#58;//es&#46;wikipedia&#46;org/wiki/Wiki[/url:3gxilq7s]','',0,'EA==','3gxilq7s',1,0,'',28,0,0),(5565,1347,6,2,0,'80.32.22.38',1137749723,1,0,1,1,1,1,'','','Paco,\n\nUn usuario de FW ya comenzó hace tiempo una wikipedia para FW, y ha tenido muy poca respuesta.\n\nNosotros lo que vamos a hacer es traernos todos los mensajes de las news anteriores a este foro, y con la opción de búsqueda tan buena de estos foros se podrá conseguir mucha información de forma instantánea.\n\nNo es lo mismo que una wikipedia, lo sé, pero será muy práctico.','',0,'EA==','276p8cre',1,0,'',2,0,0),(5566,1346,3,31,0,'195.182.84.105',1137751175,1,0,1,1,1,1,'','Re: FindWindow() function','[quote=&quot;EnricoMaria&quot;:13el5mzf]\n\nFUNCTION FINDWND( cTitle )\n    LOCAL hWnd := GETWINDOW( GETDESKTOPWINDOW(), GW_CHILD )\n    WHILE hWnd != 0\n        IF UPPER( cTitle ) $ UPPER( GETWINDOWTEXT( hWnd ) )\n            RETURN hWnd\n        ENDIF\n        hWnd = GETWINDOW( hWnd, GW_HWNDNEXT )\n    ENDDO\n    RETURN NIL[/quote:13el5mzf]\n\n   Thanks ! Works fine !  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n   With best regards !','',0,'gA==','13el5mzf',1,0,'',31,0,0),(5567,1258,2,404,0,'213.231.101.107',1137752241,1,0,1,1,1,0,'','Mirando en Internet','Leí un articulo, en el que dice: \"la justificación de texto impreso con API es bastante complicado, con llamadas a funciones de la DLL GDI32\".\n\nLa dirección es: <!-- m --><a class=\"postlink\" href=\"http://www.mvps.org/vexpert/articles/genPrinter.htm\">http://www.mvps.org/vexpert/articles/genPrinter.htm</a><!-- m -->\n\n¿Alguíen a usado, llamadas a dicha DLL, y me puede ayudar?\n\nLa COURIER NEW, no la he probado todavía. Haré pruebas para ver como quedan las justificaciones, con ella.\n\nSaludos, José Mª','',0,'gA==','1e3tkagf',1,0,'',404,0,0),(5568,1347,6,28,0,'213.27.201.254',1137752804,1,0,1,1,1,0,'','','Enfin, yo tenía intención de volcar en el toda la literatura que tenía escrita pero bueno, otra vez sera.','',0,'gA==','29rkst01',1,0,'',28,0,0),(5569,1348,3,170,0,'83.177.193.74',1137753320,1,0,1,1,1,1,'','Blinker and [x]Harbour compatibility','Hello,\n\nHappy new year to alls <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nIs someone using Blinker 7.0 with [x]Harbour  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \nIt is possible and if not, why  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'','a91hl36j',1,0,'',170,0,0),(5570,1349,3,130,0,'141.51.32.24',1137756423,1,0,1,1,1,0,'','Update all controls of a dialog','Hi,\n\nhow can update all controls of a dialog ? oDlg:Refresh() does not work.\n\nStefan','',0,'','f2cq66c7',1,0,'',130,0,0),(5571,1349,3,31,0,'195.182.84.105',1137756774,1,0,1,1,1,1,'','Re: Update all controls of a dialog','[quote=&quot;StefanHaupt&quot;:2v6mcbva]Hi,\n\nhow can update all controls of a dialog ? oDlg:Refresh() does not work.\n\nStefan[/quote:2v6mcbva]\n\n   Try oDlg:Update()\n\n   Regards !','',0,'gA==','2v6mcbva',1,0,'',31,0,0),(5572,1349,3,6,0,'82.61.144.235',1137757984,1,0,1,1,1,1,'','Re: Update all controls of a dialog','[quote=&quot;StefanHaupt&quot;:u5d00bel]Hi,\n\nhow can update all controls of a dialog ? oDlg:Refresh() does not work.\n\nStefan[/quote:u5d00bel]\n\nTry adding UPDATE clause to the controls you want to refresh. Or use a loop through oDlg:aControls to refresh any single control.\n\nEMG','',0,'gA==','u5d00bel',1,0,'',6,0,0),(5573,1348,3,6,0,'82.61.144.235',1137758074,1,0,1,1,1,1,'','Re: Blinker and [x]Harbour compatibility','[quote=&quot;Badara Thiam&quot;:1ec6hz46]Hello,\n\nHappy new year to alls <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nIs someone using Blinker 7.0 with [x]Harbour  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \nIt is possible and if not, why  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->[/quote:1ec6hz46]\n\nNo, you have to use the linker of the C compiler you are using.\n\nEMG','',0,'gA==','1ec6hz46',1,0,'',6,0,0),(5574,1334,3,266,0,'60.50.63.53',1137758595,1,0,1,1,1,1,'','','You can do this :\n\nnPixel=6\nselect(yourDbf)\nfor i=1 to fCount()\n  oBrw:aColumns[i]:nWidth=len(transform(fieldname(i),\'@!\'))*nPixel\nnext','',0,'','1zd7cj91',1,0,'',266,0,0),(5575,1343,6,49,0,'62.13.172.78',1137759316,1,0,1,1,1,0,'','','Well,\nWhen the new version of Wbrowse (  you sad on xmas that the new version is the 1.8 release) for Xharbour ?\nI use from many application this  your class\nCan you insert also thepossiblity to show coloured headers as Win xP theme ?\nTell me if you are ready with this version ...\nWe wait ....You\n\nBest, Best Regard \nFalconi Silvio','',0,'','2xs3z657',1,0,'',49,0,0),(5576,1347,6,106,0,'85.34.123.169',1137761836,1,0,0,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://xharbour.wiki.mailxmail.com/PaginaInicial\">http://xharbour.wiki.mailxmail.com/PaginaInicial</a><!-- m -->\n\n\nEmpezó hace unos dias.\n\nSaludos','',0,'','3bk7auul',1,0,'',106,0,0),(5577,1348,3,2,0,'80.32.22.38',1137762980,1,0,1,1,1,1,'','','Badara,\n\nEnrico\'s advise is the best choice, anyhow Blinker 7 lets you create 32 bits Windows EXE so theoretically it would be possible to use it to build Harbour/xHarbour applications.','',0,'','u7pg0gwj',1,0,'',2,0,0),(5578,1340,6,2,0,'80.32.22.38',1137763351,1,0,1,1,1,1,'','','Oscar,\n\nQue es lo que necesitas hacer en ese bPrevEdit ?','',0,'','2p4yvcud',1,0,'',2,0,0),(5579,1347,6,2,0,'80.32.22.38',1137763542,1,0,1,1,1,1,'','','Paco,\n\n&gt;\nEn fin, yo tenía intención de volcar en el toda la literatura que tenía escrita pero bueno, otra vez sera.\n&gt;\n\nPorque no comienzas tú una en español con tu material escrito y a ver si se motivan más usuarios de habla hispana a ayudar ? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','9swfg83k',1,0,'',2,0,0),(5580,1350,3,209,0,'209.217.64.30',1137767587,1,0,1,1,1,0,'','Append SDF fails','I am using FWH 2.5 when I have an append line as follows the program crashes.\n\n...\nUSE Tmp\nappend from (FileName) SDF\n...\n\nThe error I get is DBFNTX/1021 Data Width Error\nCalled from Fieldput(0)\nCalled from __DBSDF(196)\n...\n\nHowever if I use the same code in Clipper\nthe append works correctly.\n\nIs there an issue with the append command in FWH 2.5?\n\nThanks,\n\nVytas','',0,'','d9qpajfr',1,0,'',209,0,0),(5581,1342,19,255,0,'200.67.134.233',1137768003,1,0,1,1,1,1,'','Re: Free WAV to Mp3 compresor','[quote=&quot;StefanHaupt&quot;:2v6wzn0r][quote=&quot;VeRCE&quot;:2v6wzn0r]i need a WAV to Mp3 compresor to work\nwith command line.[/quote:2v6wzn0r]\n\nVeRCE,\n\nLook at the Wav2Mp3 project at Sourceforge. You can download it here:\n<!-- m --><a class=\"postlink\" href=\"http://wav2mp3lame.sourceforge.net/download.html\">http://wav2mp3lame.sourceforge.net/download.html</a><!-- m -->\n\nStefan[/quote:2v6wzn0r]\n\n\nThanks !!!!','',0,'gA==','2v6wzn0r',1,0,'',255,0,0),(5582,1292,6,43,0,'201.127.19.186',1137768113,1,0,1,1,1,0,'','','<!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nDisculpa....me podrias dar un ejemplo mas claro.\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','2urak0ql',1,0,'',43,0,0),(5583,1350,3,2,0,'80.32.22.38',1137769166,1,0,1,1,1,1,'','','Vytas,\n\nAPPEND command is a Harbour/xHarbour feature, not a FWH capability.\n\nPlease try again with this current builds:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w --> \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\n\nYou will need an upgraded FWH 2.7 version for them, but you may build a console mode (MsDos alike) test to check APPEND behavior.','',0,'gA==','1ex5zlcb',1,0,'',2,0,0),(5584,1292,6,2,0,'80.32.22.38',1137770532,1,0,1,1,1,1,'','','Marco,\n\nMás fácil, prueba así:\n\n[code:1fzt8pp6]\n   DEFINE BUTTON oBtn RESOURCE &quot;Concauto&quot; OF oBar ; \n          PROMPT &quot;Reportes&quot; ;\n          MENU oPopup ; \n          ACTION &#40; oBtn&#58;lCaptured &#58;= &#46;t&#46;, oBtn&#58;LButtonUp&#40; 8, 35 &#41; &#41; ;\n          MESSAGE &quot;Genera Diversos Reportes del Sistema &#46;&#46;&#46;&quot; ; \n          NOBORDER GROUP TOOLTIP &quot;Reportes &#46;&#46;&#46;&quot;\n[/code:1fzt8pp6]\n\nPrueba con valores mayores a 35, si no te funcionase.','',0,'AIA=','1fzt8pp6',1,0,'',2,0,0),(5585,1284,6,168,0,'201.248.22.29',1137770546,1,0,1,1,1,0,'','','Algo que hay que agregar es que necesitas instalar el MyODBC que lo descargas gratis del website de MySQL','',0,'AIA=','7z7oxi6g',1,0,'',168,0,0),(5586,1351,3,6,0,'82.61.144.235',1137773500,1,0,1,1,1,1,'','Two bugs on TCBrowse','The following sample shows two little bugs:\n\n1. How to get rid of the ugly black background on the not focused cells?\n\n2. Why the dialog can\'t be closed using ESC?\n\n[code:2s1fz044]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, oCol\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 BROWSE oBrw\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; last;\n               HEADER &quot;LAST&quot;;\n               COLOR CLR_RED, CLR_GREEN\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;;\n               COLOR CLR_RED, CLR_GREEN\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:2s1fz044]\n\nEMG','',0,'AIA=','2s1fz044',1,0,'',6,0,0),(5587,1292,6,43,0,'201.127.19.186',1137774693,1,0,1,1,1,0,'','','ok funciono... muchas gracias por tus respuestas.\n\n\nSaludos\n\n  Marco A. Delgado','',0,'AIA=','11oyv6fw',1,0,'',43,0,0),(5588,1347,6,28,0,'87.218.46.164',1137775774,1,0,1,1,1,0,'','Wiki','Va a tener razón el que decia que la mejor forma de demostrar el movimiento es andando <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[url:etctosdq]http&#58;//fivewin&#46;wiki&#46;mailxmail&#46;com/PaginaInicial[/url:etctosdq]\n\nPA (progresando adecuadamente)','',0,'EA==','etctosdq',1,0,'',28,0,0),(5589,1350,3,303,0,'68.7.28.54',1137777023,1,0,1,1,1,0,'','','Usually this is caused by a number being to large for the field. Perhaps Clipper just truncated it without giving an error.\n\nJames','',0,'EA==','2yotbs7s',1,0,'',303,0,0),(5590,1284,6,138,0,'201.128.111.75',1137777759,1,0,1,1,1,1,'','','[quote=&quot;Hernan Diego Ceccarelli&quot;:csi51d8i]Hola \n   Me interesaria ver un lindo ejemplo de un ABM con ADO, eso, basicamente una tabla inicial de presentacion, modificaciones alta y bajas, como ir refrescando el recordset o existe necesidad de crear otro ?\nY creo que se podria browsear DIRECTAMENTE el recordset de ADO sin necesidad de incorporar un array de por medio, mas aun si quiero browsear una base de datos de millones de registros, me quedaria sin memoria <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSalu2[/quote:csi51d8i]\n\nHernan:\n\nUna de las cosas que hay que quitarnos de la cabeza cuando trabajamos con SQL, es ell modelo de BROWSES de los lenguajes xBase, aqui no se trata de poner una tabla en un browse y darle doble click a un registro para luego traerte la informacion de dicho registro.\n\nTen en cuenta que el modelo SQL es un modelo que se invento a finales de los 60\'s y no ha cambiado mucho desde entonces.\n\nLa idea principal del SQL es realizar busquedas que reporten LA MENOR CANTIDAD DE DATOS POSIBLES, es decir, en un sistema por ejemplo de personal, no pones un browse con TODOS los nombres y claves de los trabajadores, le das doble click a un registro y te traes sus datos, mas bien, tienes un GET, le das la clave del trabajador o algun dato que te permita recuperar la informacion, y el programa te devolvera un grupo reducido de datos basados en tu criterio de busqueda, por eso se llama SQL = Structured Query Language o Lenguaje Estructurado de BUSQUEDAS.\n\nEste modelo fue diseñado asi desde un princpio, y aunque es perfectamente posible traerte una base de datos de hasta 4 millones de registros (con (x)Harbour) y meterla en un array, pues en realidad es una tonteria hacerlo siendo que bajo el modelo SQL se busca tener la menor cantidad de datos posible.\n\nAhora bien, el volcado de datos a un array lo hice por una deformacion profesional de hace muuucho tiempo, te explico:\n\nAntes de trabajar con ADO, era necesario el uso de ODBC, (ahora también pero ADO simplifica el modelo), cuando trabajas con ODBC, todos tus Queries quedan atrapados en un \"CURSOR\", este cursor es un area de memoria donde reside el resultado del query ejecutado, la unica forma de compatibilizar eso con FiveWin, era descargar el resultado de dicho Query a un DBF temporal o a un Array para poder visualizar los datos.\n\nActualmente, gracias al modelo ADO, tu puedes browsear directamente sobre el RecordSet, simplemente define las columnas de tu browse como datas oRecordSet:Fields(x):value, define un bloque de código :Bskip para moverte sobre los registros del RecordSet, y asigna la data :bLogicLen a RecordSee:RecordCount() y te ahorras la molestia de pasar por el array.\n\nPara la actualizacion de datos tiene distintos metodos del record set que se encargan de ellos, eso si, dependen del tipo de cursor que estes utilizando, tambien es importante recordar que para este inviento de la actualizacion directa del RecordSet funcione, es necesario haber hecho un buen diseño de la base de datos, que incorpore el uso de llaves primarias, relaciones e integridad referencial.','',0,'gA==','csi51d8i',1,0,'',138,0,0),(5591,1349,3,138,0,'201.128.111.75',1137778342,1,0,1,1,1,1,'','','Resuming:\n\n1) Add the UPDATE clause to all your controls in your dialog:\n\nREDEFINE GET oGet VAr xVar blah blah blah [b:16p1y4yq]UPDATE[/b:16p1y4yq]\nREDEFINE CHECKBOX oChk blah blah blah[b:16p1y4yq] UPDATE[/b:16p1y4yq]\n\n2) Whenever you want perfrom an update of all the controls inside a dialog, simply do a oDlg:Update(), and you are done.\n\n3) Rember: the oDlg:Update() only works over the controls which have the UPDATE clause included.','',0,'QA==','16p1y4yq',1,0,'',138,0,0),(5592,1247,6,18,0,'200.67.188.236',1137782030,1,0,1,1,1,1,'','','Alguien me puede mostrar un pequeño ejemplo de cómo usar la clase TMPicker.','',0,'QA==','3vccstju',1,0,'',18,0,0),(5593,1277,6,18,0,'200.67.188.236',1137782131,1,0,1,1,1,1,'','','Entonces quita del método new las llamadas TRY, CATCH y solo deja la función TOLeAuto()','',0,'QA==','2ax89v14',1,0,'',18,0,0),(5594,1352,3,6,0,'82.61.144.235',1137783377,1,0,1,1,1,1,'','TCBrowse: clicking on headers','In the following sample nothing happens when the headers are clicked. Why? How can I trap this event?\n\n[code:1y2s4n4h]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, oCol\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 BROWSE oBrw\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; last;\n               HEADER &quot;LAST&quot;;\n               COLOR CLR_RED, CLR_GREEN\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;;\n               COLOR CLR_RED, CLR_GREEN\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;aActions = &#123; &#123; || MsgInfo&#40; &quot;Hello!&quot; &#41; &#125;, &#123; || MsgInfo&#40; &quot;Hello!&quot; &#41; &#125; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:1y2s4n4h]\n\nEMG','',0,'AIA=','1y2s4n4h',1,0,'',6,0,0),(5595,1353,6,40,0,'200.52.186.62',1137783817,1,0,1,1,1,0,'','Manejo de Fechas con ADO + SQL + XHarbour + FW','Foro buenos dias, solicitando de su ayuda, se trata de esto\n\nEsto y utilizando SQL via ADO de xHarbour, pero tengo un detalle\ncon el manejo de fechas, al momento de remplazar una fecha vacia :\n\ndFecha:=ctod(\'\')\n::oRs:Fields(\'Fecha\'):Value:=dFecha\n\nesto me produce el siguiente error :\n\nADODB.Recordset:Fields/9 la operación en varios pasos genera errores.\nCompruebe los valores....\n\nTOleAuto:_Value(0)\n\n¿ Como se reemplaza un valor vacio en un campo Fecha ?\n\nSaludos y gracias de nuevo\nJoel Andujo','',0,'AIA=','bqf7bgnq',1,0,'',40,0,0),(5597,1354,3,303,0,'68.7.28.54',1137787569,1,0,1,1,1,0,'','RDDADS.LIB for xHarbour','Recently I got the RDDADS.LIB for Harbour running by recompiling it after making a slight change to make it compatible with ADS ver 6 and greater. Now I am trying to use it with xHarbour, but it is erroring out when the app is run with \"\'Program with 1st fun: _ADS\' was compiled with older version, PCODE version 0 is no longer supported - Please recompile.\"\n\nThe RDDADS.LIB only contains 3 C programs. They were compiled with Borland C. I have had a similar error message before, but it was due to compiling with an older version of Harbour, not Borland C.\n\nHere are the lines from my make file:\n\n[code:2o5hnuso]&#46;c&#46;obj&#58;\n  $&#40;BIN_DIR&#41;\\bcc32 $&#40;CLIBFLAGS&#41; $&#40;C_USR&#41; -c -O2 -DWIN32 -DADS_REQUIRE_VERSION6 -I$&#40;INCLUDE_DIR&#41; -o$@ $&lt;\n  tlib $&#40;LIB_DIR&#41;\\rddads&#46;lib -+$@,,[/code:2o5hnuso]\n\nAm I using the wrong parameters for Borland C perhaps? Do I need different versions of RDDADS.LIB for Harbour and xHarbour?\n\nRegards,\nJames','',0,'AIA=','2o5hnuso',1,0,'',303,0,0),(5598,1355,3,148,0,'82.201.250.146',1137788298,1,0,1,1,1,0,'','in need to rmake utility batching','I can not find rmake.exe file with FW but any how I am trying to upgrade my programs as below :\nmy batch file :\n\na1.bat\n*------\nSET INCLUDE=c:\\compiler\\clipper\\fweval\\INCLUDE;c:\\compiler\\clipper\\clp53\\INCLUDE\nSET LIB=c:\\compiler\\clipper\\fweval\\LIB;C:\\compiler\\clipper\\clp53\\LIB\nSET PLL=c:\\compiler\\clipper\\fweval\\PLL\nSET clipper=F69 //E0 //SWAPPATH:c:\\ //TEMPPATH:c:\\\nSET DLL=c:\\compiler\\clipper\\fweval\\DLL\nSET resources=c:\\compiler\\clipper\\fweval\\Dll\nrmake a1\nIF EXIST sitex1.rc RC -K sitex1\nIF EXIST sitex1.MAP TdMap.exe -W sitex1.MAP\nSITEX1\n\n\na1.rmk\n*------\n\nobj =  sitex1.obj cont.obj\n\n\n.prg.obj:\n     clipper $* /B/a\nsitex1.obj    : sitex1.prg\nCont.obj     : Cont.prg\n\nsitex1.exe: $(obj)\n        c:\\compiler\\clipper\\clp53\\blinker\\bin\\blinker fi SITEX1, CONT @c:\\compiler\\clipper\\fweval\\include\\fivewin.lnk','',0,'AIA=','2mwlh40j',1,0,'',148,0,0),(5599,1352,3,303,0,'68.7.28.54',1137789252,1,0,1,1,1,0,'','','As I expect you know, TCBrowse is a subclass of TWBrowse. aAction is eval\'d in method lButtonDown in TWBrowse. In TCBrowse, the method has been completely rewritten and aAction is not used anywhere in the method. So, it looks like it will require a significant rewrite of this method to get actions working.\n\nYou might consider using TSBrowse instead. I does everything TCBrowse does and a lot more including header actions. You can get a copy at my website.\n\nJames','',0,'AIA=','35hg2sbf',1,0,'',303,0,0),(5600,1354,3,2,0,'80.32.22.38',1137789854,1,0,1,1,1,1,'','','James,\n\nIt is not a Borland issue, it is a xharbour error msg as you have PRGs compiled with different xharbour versions.','',0,'AIA=','1htktqx4',1,0,'',2,0,0),(5601,1352,3,6,0,'82.61.144.235',1137789994,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:lsecey10]As I expect you know, TCBrowse is a subclass of TWBrowse. aAction is eval\'d in method lButtonDown in TWBrowse. In TCBrowse, the method has been completely rewritten and aAction is not used anywhere in the method. So, it looks like it will require a significant rewrite of this method to get actions working.\n\nYou might consider using TSBrowse instead. I does everything TCBrowse does and a lot more including header actions. You can get a copy at my website.\n\nJames[/quote:lsecey10]\n\nThank you but I would prefer to not use TSBrowse. Anyway, are you saying that TCBrowse doesn\'t offer header clicking actions? It would be weird as when the pointer moves over headers it becomes the hand icon and there would be no reason for this.\n\nEMG','',0,'gA==','lsecey10',1,0,'',6,0,0),(5602,1354,3,303,0,'68.7.28.54',1137790405,1,0,1,1,1,0,'','','Antonio,\n\nWell, that is what I would have guessed, but, I am only compiling one PRG using buildx.bat and the error message refers to the _ADS function which is not in my PRG so I assume it is in one of the three C modules in RDDADS.LIB.\n\nJames','',0,'gA==','etp9rk90',1,0,'',303,0,0),(5603,1349,3,110,0,'165.98.151.243',1137790873,1,0,1,1,1,1,'','','I Use this modification to class in fivewin, only work with xharbour\n\nat begin of the application\ncall the procedure OverrideAndExtend()\n\nexample\n[code:190zcb9j]\n     function main&#40;&#41;\n         &#46;&#46;&#46;\n         OverrideAndExtend&#40;&#41;\n         &#46;&#46;&#46;\n     return\n[/code:190zcb9j]\n\n[code:190zcb9j]\nPROCEDURE OverrideAndExtend&#40;&#41;\n	OVERRIDE METHOD DispBegin IN CLASS TWindow WITH KDispBegin\n	OVERRIDE METHOD DispEnd   IN CLASS TWindow WITH KDispEnd\n\n	EXTEND CLASS TFOLDER  WITH METHOD RefreshPages\n	EXTEND CLASS TFOLDER  WITH METHOD GoFirstControl\n	EXTEND CLASS TDIALOG  WITH METHOD RefreshDialog	\nRETURN\n\nSTATIC FUNCTION KDispBegin&#40;&#41;\n	LOCAL SELF &#58;= HB_QSelf&#40;&#41;\nRETURN SELF\n\nSTATIC FUNCTION KDispEnd&#40;&#41;\n	LOCAL SELF &#58;= HB_QSelf&#40;&#41;\nRETURN NIL\n\n\nSTATIC FUNCTION RefreshDialog&#40; nPos &#41;\n	LOCAl Self &#58;= HB_QSelf&#40;&#41;\n\n	aeval&#40; &#58;&#58;aControls, &#123; |oCtrl| oCtrl&#58;Refresh&#40;&#41; &#125; &#41;\n        if nPos &lt;&gt; NIL &#46;and&#46; valtype&#40; nPos &#41; = &quot;N&quot;\n  	     &#58;&#58;aControls&#91; nPos &#93;&#58;SetFocus&#40;&#41;\n        endif\n\nRETURN NIL\n\nSTATIC FUNCTION RefreshPages&#40;&#41;\n	LOCAl Self &#58;= HB_QSelf&#40;&#41;\n	LOCAL oPage\n\n	FOR EACH oPage IN &#58;&#58;aDialogs\n		aeval&#40; oPage&#58;aControls, &#123; |oCtrl| oCtrl&#58;Refresh&#40;&#41; &#125; &#41;\n	NEXT\n\nRETURN NIL\n\nSTATIC FUNCTION GoFirstControl&#40;&#41;\n	LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n	\n	&#58;&#58;aDialogs&#91;1&#93;&#58;aControls&#91;1&#93;&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n\n[/code:190zcb9j]\n\nexample of use\n[code:190zcb9j]\n   &#46;&#46;&#46;\n   /*refresh control in a dialog*/\n   oDlg&#58;RefreshDialog&#40;&#41;\n   /*refresh a page dialog*/\n   oFolder&#58;RefreshPages&#40;&#41;\n   &#46;&#46;&#46;\n[/code:190zcb9j]\n\nsalu2\ncarlos vargas[code:190zcb9j][/code:190zcb9j]','',0,'AIA=','190zcb9j',1,0,'',110,0,0),(5604,1277,6,18,0,'200.67.188.236',1137792423,1,0,1,1,1,1,'','','El método debe estar de esta forma\n\n[code:2ufnyw0n]\nMETHOD NEW&#40;&#41;  CLASS TExcelScript\n   &#58;&#58;lExcel  &#58;= &#46;T&#46;\n   #IFDEF __XHARBOUR__\n      TRY\n        &#58;&#58;oExcel &#58;= GetActiveObject&#40; &quot;Excel&#46;Application&quot; &#41;\n      CATCH\n         TRY\n            &#58;&#58;oExcel &#58;= CreateObject&#40; &quot;Excel&#46;Application&quot; &#41;\n         CATCH\n            Alert&#40; &quot;No está Excel Instalado en está Pc&#46;&quot; &#41;\n            &#58;&#58;lExcel  &#58;= &#46;F&#46;\n         END\n      END\n	#ELSE\n     &#58;&#58;oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; Excel&#46;Application &#41; \n     IF &#58;&#58;oExcel&#58;hObj == 0 \n         Alert&#40; &quot;No está Excel Instalado en está Pc&#46;&quot; &#41;\n        &#58;&#58;lExcel &#58;= &#46;F&#46; \n      ENDIF \n\n	#ENDIF\n   &#58;&#58;oClip&#58;=TClipBoard&#40;&#41;&#58;New&#40;&#41;\n   &#58;&#58;oClip&#58;Clear&#40;&#41;\n   &#58;&#58;aExcelCols &#58;= &#123;&#125;\nRETURN&#40; Self &#41;\n\n[/code:2ufnyw0n]','',0,'AIA=','2ufnyw0n',1,0,'',18,0,0),(5605,1247,6,255,0,'200.67.134.233',1137794228,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:1jqwop6z]Alguien me puede mostrar un pequeño ejemplo de cómo usar la clase TMPicker.[/quote:1jqwop6z]\n\n\ncTime := \"103000\" // 10:30: con 00segs\nREDEFINE TMPICKER oTime VAR cTime ID 102 OF oDlg\n\nSaludos','',0,'gA==','1jqwop6z',1,0,'',255,0,0),(5606,1356,6,255,0,'200.67.134.233',1137794391,1,0,1,1,1,1,'','ERROR:  Harbour Exception','Amigos, de manera aleatoria estoy\nrecibiendo este mensaje de error\nal salir de mi aplicación.\n\nHarbour Exception\n   Called from _FWH(3123)\n(Aceptar)\n\nAlguna idea de donde puede estar \nla cosa?\n\nGracias','',0,'gA==','35fnasq8',1,0,'',255,0,0),(5607,1357,3,255,0,'200.67.134.233',1137794474,1,0,1,1,1,1,'','ERROR:  Harbour Exception','Friends, randomly i\'m gettin this error\nwhen my app is closed.\n\nHarbour Exception\nCalled from _FWH(3123)\n(Aceptar)\n\nany idea.\n\nTks.','',0,'gA==','3fdsmx02',1,0,'',255,0,0),(5608,1351,3,6,0,'82.61.144.235',1137794579,1,0,1,1,1,1,'','Re: Two bugs on TCBrowse','This is the fix for point 1 (part of TCBrowse:DrawSelect() method):\n\n[code:104ygjmq]        else\n          if ! &#58;&#58;lCellStyle &#46;or&#46; &#58;&#58;nColAct == nJ\n             nClrFore &#58;= nClrForeFocus\n          else\n             if &#40;bClrFore &#58;= oColumn&#58;bClrFore&#41; == nil // backgnd nClrBackFocus\n                nClrFore = &#58;&#58;nClrText\n             else\n                nClrFore = bClrFore\n             endif\n\n             if ValType&#40; nClrFore &#41; == &quot;B&quot; //EMG\n                nClrFore = Eval&#40; nClrFore, nRowPos, nJ &#41; //EMG\n             endif //EMG\n          endif\n          if ! &#58;&#58;lCellStyle &#46;or&#46; &#58;&#58;nColAct == nJ\n             nClrBack &#58;= nClrBackFocus\n          else\n             if &#40;bClrBack &#58;= oColumn&#58;bClrBack&#41; == nil // backgnd nClrBackFocus\n                nClrBack = &#58;&#58;nClrPane\n             else\n                nClrBack = bClrBack\n             endif\n\n             if ValType&#40; nClrBack &#41; == &quot;B&quot; //EMG\n                nClrBack = Eval&#40; nClrBack, nRowPos, nJ &#41; //EMG\n             endif //EMG\n          endif\n        endif[/code:104ygjmq]\n\nEMG','',0,'AIA=','104ygjmq',1,0,'',6,0,0),(5610,1351,3,2,0,'80.32.22.38',1137796083,1,0,1,1,1,1,'','','Enrico,\n\nThanks for the fix! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','l8hp8on2',1,0,'',2,0,0),(5611,1351,3,2,0,'80.32.22.38',1137796923,1,0,1,1,1,1,'','','Enrico,\n\nFor the ESC bug, make these changes in source\\classes\\control:\n\nMETHOD KeyDown( nKey, nFlags ) CLASS TControl\n\n   if nKey == VK_ESCAPE      \n      ::oWnd:KeyChar( nKey, nFlags )\n      return 0\n   endif   \n\n   ...\n\nand remove that portion of code from KeyChar(...) CLASS TControl.','',0,'AIA=','g1rl1be2',1,0,'',2,0,0),(5612,1352,3,6,0,'82.61.144.235',1137797007,1,0,1,1,1,1,'','Re: TCBrowse: clicking on headers','A partial fix could be (TCBrowse:LButtonDown() method):\n\n[code:14ds52r9]   if &#58;&#58;nLen &lt; 1\n      return nil\n   endif\n//EMG\n   if nClickRow == 0 &#46;and&#46; Valtype&#40;nKeyFlags&#41; == &quot;N&quot;\n      if &#58;&#58;aActions != nil &#46;and&#46; ;\n         &#40; nAtCol &#58;= &#58;&#58;nAtCol&#40; nColPix &#41; &#41; &lt;= Len&#40; &#58;&#58;aActions &#41;\n            if &#58;&#58;aActions&#91; nAtCol &#93; != nil\n               Eval&#40; &#58;&#58;aActions&#91; nAtCol &#93;, Self, nRowPix, nColPix &#41;\n            else\n               MsgBeep&#40;&#41;\n            endif\n      else\n         MsgBeep&#40;&#41;\n      endif\n   endif\n//EMG\n   if nClickRow &gt; 0 &#46;and&#46; nClickRow != &#58;&#58;nRowPos &#46;and&#46; ;[/code:14ds52r9]\n\nand comment out\n\n[code:14ds52r9]//   Super&#58;LButtonDown&#40; nRowPix, nColPix, nKeyFlags &#41;\n\nreturn 0[/code:14ds52r9]\n\nEMG','',0,'AIA=','14ds52r9',1,0,'',6,0,0),(5613,1351,3,6,0,'82.61.144.235',1137797093,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','1ysuqzbe',1,0,'',6,0,0),(5614,1357,3,2,0,'80.32.22.38',1137797538,1,0,1,1,1,1,'','','Juan Carlos,\n\nDon\'t you get more calls stack listed besides _FWH ?','',0,'AIA=','370e6rn8',1,0,'',2,0,0),(5615,1356,6,2,0,'80.32.22.38',1137797643,1,0,1,1,1,1,'','','Juan Carlos,\n\nNo hay más funciones/procedimientos listados además de _FWH ?','',0,'AIA=','30ucl1sy',1,0,'',2,0,0),(5616,1352,3,2,0,'80.32.22.38',1137799092,1,0,1,1,1,1,'','','Enrico,\n\nI have implemented a quick fix this way:\n\n[code:2a8uqssn]\nMETHOD LButtonUp&#40; nRowPix, nColPix, nFlags &#41; CLASS TCBrowse\n\n   local nClickRow, nDestCol, nAtCol\n\n   if &#58;&#58;lDrag\n     if &#58;&#58;lColDrag\n        &#58;&#58;lDrag &#58;= &#46;f&#46;\n     else\n        return Super&#58;LButtonUp&#40; nRowPix, nColPix, nFlags &#41;\n     endif\n   endif\n\n   if &#58;&#58;lCaptured\n      &#58;&#58;lCaptured = &#46;f&#46;\n      ReleaseCapture&#40;&#41;\n      if &#58;&#58;lLineDrag\n        &#58;&#58;lLineDrag &#58;= &#46;f&#46;\n        &#58;&#58;VertLine&#40;&#41;\n      else\n        &#58;&#58;lColDrag &#58;= &#46;f&#46;\n        nClickRow = nTCWRow&#40; &#58;&#58;hWnd, &#58;&#58;hDC, nRowPix,;\n                      If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41; &#41;\n\n        nDestCol &#58;= &#58;&#58;nAtCol&#40;nColPix&#41;\n        // we gotta be on header row within listbox and not same colm\n        if nClickRow == 0 &#46;and&#46; nColPix &gt; &#58;&#58;nLeft &#46;and&#46; ;\n           nColPix &lt; &#58;&#58;nRight - 16 &#46;and&#46; &#58;&#58;nDragCol != nDestCol\n             &#58;&#58;Exchange&#40; &#58;&#58;nDragCol, nDestCol&#41;\n        else \n          if &#58;&#58;aActions != nil &#46;and&#46; ;\n             &#40; nAtCol &#58;= &#58;&#58;nAtCol&#40; nColPix &#41; &#41; &lt;= Len&#40; &#58;&#58;aActions &#41;\n             if &#58;&#58;aActions&#91; nAtCol &#93; != nil\n                Eval&#40; &#58;&#58;aActions&#91; nAtCol &#93;, Self, nRowPix, nColPix &#41;\n             endif\n          endif\n        endif\n      endif\n   endif\n\n   Super&#58;LButtonUp&#40; nRowPix, nColPix, nFlags &#41;\n\nreturn nil\n[/code:2a8uqssn]','',0,'AIA=','2a8uqssn',1,0,'',2,0,0),(5617,1354,3,2,0,'80.32.22.38',1137799404,1,0,1,1,1,1,'','','James,\n\nRDDADS.lib requires (link) some PRGs from the RDD system that may be compiled with a different xharbour version.','',0,'AIA=','24wcnqht',1,0,'',2,0,0),(5618,1352,3,6,0,'82.61.144.235',1137799497,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','2h4d1w50',1,0,'',6,0,0),(5619,1271,1,397,0,'201.43.9.182',1137799807,1,0,1,0,1,1,'','','Friend\n\nI have an aplication write in Fivewin. part of DBWide/Fivewin CD 2003.\n\nYou can put circles, elipses, lines and boxes in a bitmap style file.\n\nMaybe, serve to you.\n\nEmail-me and reply with files.','',0,'AIA=','eagvuszx',1,0,'',397,0,0),(5620,1297,1,397,0,'201.43.9.182',1137800121,1,0,1,0,1,1,'','','Friends\n\nThis aplication is 16bits compatible.\n\nBut, Super Browse, have examples to simulate this feature.\n\nSBTEST.PRG contains a example.\n\nCompatible in 16 and 32bits.\n\nYou can download Super Browse( TSBROWSE ) in Patrick Mast Site, in <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/downloads.php?category=FiveWin%20users%20contributions\">http://www.fivewin.info/html/downloads. ... tributions</a><!-- m -->','',0,'AIA=','299i3uvo',1,0,'',397,0,0),(5621,1354,3,303,0,'68.7.28.54',1137801685,1,0,1,1,1,0,'','','Antonio,\n\nIf I use Tlib to list the modules in RDDADS.LIB there are only three, ADS1, ADSFUNC, and ADSMGMNT. The function specified in the error _ADS is in ADS1:\n\n[code:1bhh067c]ADS1    	size = 18866\n	_FoxToDbl                         _HB_FUN_ADSCUSTOMIZEAOF\n	_HB_FUN_ADSGETRELKEYPOS           _HB_FUN_ADSSETRELKEYPOS\n	_HB_FUN_ADS_GETFUNCTABLE          _HB_FUN__ADS\n	_adsCloseCursor                   _adsEof\n	_adsExists                        _adsFieldInfo\n	_adsSetListener_callback[/code:1bhh067c]\nI have listed the modules in several copies of RDDADS.LIB and they are all the same.\n\nReinaldo tells me there is an ADS0.PRG, but I cannot find it anywhere. Does anyone know about this prg?\n\nJames','',0,'AIA=','1bhh067c',1,0,'',303,0,0),(5622,1354,3,303,0,'68.7.28.54',1137803469,1,0,1,1,1,0,'','','OK, I found the ADS0.PRG in a new download of xHarbour. All it contains is this:\n\n[code:29l5cei7]#include &quot;error&#46;ch&quot;\n#include &quot;rddsys&#46;ch&quot;\n\nANNOUNCE ADS\n\nprocedure ADSInit\n\n   REQUEST _ADS\n\n   rddRegister&#40; &quot;ADS&quot;, RDT_FULL &#41;\n\nreturn[/code:29l5cei7]\n\nI just copied the code and pasted it into my PRG and I still get the same PCODE error.\n\nAny other ideas, anyone?\n\nJames','',0,'AIA=','29l5cei7',1,0,'',303,0,0),(5623,1284,6,40,0,'200.52.186.62',1137803574,1,0,1,1,1,0,'','','[quote:338yz79r]\nActualmente, gracias al modelo ADO, tu puedes browsear directamente sobre el RecordSet, simplemente define las columnas de tu browse como datas oRecordSet:Fields(x):value, define un bloque de código :Bskip para moverte sobre los registros del RecordSet, y asigna la data :bLogicLen a RecordSee:RecordCount() y te ahorras la molestia de pasar por el array. \n[/quote:338yz79r]\n\nUn pequeño ejemplo de esto seria maravilloso master\n\nSaludos \nJoel Andujo','',0,'gA==','338yz79r',1,0,'',40,0,0),(5624,1284,6,138,0,'201.128.111.75',1137809022,1,0,1,1,1,1,'','','Jose Luis Capel hizo unos ejemplos muy interesantes, visita su blog:\n\n[url:3qu72qmi]http&#58;//www&#46;capelblog&#46;com/?p=58[/url:3qu72qmi]','',0,'EA==','3qu72qmi',1,0,'',138,0,0),(5625,1297,1,15,0,'203.73.90.254',1137809274,1,0,1,1,1,0,'','','Hello Rochinha\n\nThank you.I will try it later.\n\nRegards,\n\nRichard','',0,'EA==','1pb870b8',1,0,'',15,0,0),(5626,1353,6,54,0,'201.127.100.111',1137815361,1,0,1,1,1,1,'','Re: Manejo de Fechas con ADO + SQL + XHarbour + FW','Lo haria de la siguiente manera.\n\ncFecha := DTOC(date())\n::oRs:Fields(\'Fecha\'):Value := cFecha\n\nAsí me funciona.\n\nSaludos\n\n\n[quote=&quot;Joel Andujo&quot;:3gwwm88w]Foro buenos dias, solicitando de su ayuda, se trata de esto\n\nEsto y utilizando SQL via ADO de xHarbour, pero tengo un detalle\ncon el manejo de fechas, al momento de remplazar una fecha vacia :\n\ndFecha:=ctod(\'\')\n::oRs:Fields(\'Fecha\'):Value:=dFecha\n\nesto me produce el siguiente error :\n\nADODB.Recordset:Fields/9 la operación en varios pasos genera errores.\nCompruebe los valores....\n\nTOleAuto:_Value(0)\n\n¿ Como se reemplaza un valor vacio en un campo Fecha ?\n\nSaludos y gracias de nuevo\nJoel Andujo[/quote:3gwwm88w]','',0,'gA==','3gwwm88w',1,0,'',54,0,0),(5627,1354,3,35,0,'65.188.6.143',1137817961,1,0,1,1,1,0,'','','James\n\nThe latest xHarbour has changed the way you set up ADS .. \n\nREQUEST ADS\n\n   rddRegister ( \"ADS\", 1 )  // no underscore _ infront of ADS\n   rddsetdefault( \"ADS\" )\n   SET SERVER REMOTE\n   SET FILETYPE to CDX\n\n\nNotice the underscore is gone .. just use as above.\n\nRick Lipkin','',0,'gA==','2c4flgew',1,0,'',35,0,0),(5628,1284,6,45,0,'201.252.210.84',1137821075,1,0,1,1,1,0,'','','Rene, \n   Muchas gracias, has sido muy explicativo. Los modelos SQL nos dan rapidez de consulta, seguridad y C/S, pero nos limitan la \"intuitividad\" de la aplicacion, es decir, no se concibe un abm intuitivo de algo sin un browse, en ese sentido vamos para atras. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nSalu2','',0,'gA==','2ok67ere',1,0,'',45,0,0),(5629,1343,6,45,0,'201.252.210.84',1137821216,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:2t7nvy16]Well,\nCan you insert also thepossiblity to show coloured headers as Win xP theme ?\n[/quote:2t7nvy16]\nOhh yes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> wait few days i need ajust many things.','',0,'gA==','2t7nvy16',1,0,'',45,0,0),(5631,1359,20,29,0,'80.181.108.140',1137840401,1,0,1,1,1,0,'','Problema con MAPI e Outlook 2003','Salve a tutti,\nho la necessità di inviare tramite una mia applicazione una mail tramite MAPI in modo che venga inserita nella casella posta in uscita di Outlook.\n\nNessun problema con Outlook 2000 ma da quando ho inserito Outlook 2003 la posta inviata in questo modo mi torna indietro con il messaggio di errore \"Impossibile inviare messaggi al destinatario con alcun account di posta elettronica disponibile\".\n\nI pratica è come se non utilizzasse l\'account di default di Outlook.\nSegue la routine che utilizzo. \nPenso che non ci siano problemi utilizzando le funzioni OLE tuttavia queste mi precludono l\'utilizzo di altri client di posta tipo Outlook Express o Eudora.\n\nQualche idea ?\n\nGrazie in anticipo\n\nMarco Turco\n\n************************\n#include \"FiveWin.ch\"\n#include \"Mail.ch\"\n\nfunction InteractiveMessage()\nparamet cSubject,cBody,aFrom,aFiles\n\n    local oMail\n\n    for i:=1 to len(aFrom)\n        aFrom[i,1]:=alltrim(aFrom[i,2])\n        aFrom[i,2]:=alltrim(aFrom[i,2])\n    next\n\n\n\n    oMail:=tMail():New( cSubject,cBody,,,,, .f., .t.,,afrom,aFiles)\n\n    ACTIVATE MAIL oMail\n\n    retcode:=oMail:nRetCode\n\n    do case\n    case retcode=1\n        MsgStop(\"Invio interrotto dall\'utente\",\"Errore\")\n    case retcode=9\n        MsgStop(\"Troppi files da inviare\",\"Errore\")\n    case retcode&gt;0\n        MsgStop(\"Errore nell\'invio della mail (\"+alltrim(str(retcode,3))+\")\",\"Errore\")\n    endcase\n\nreturn','',0,'','ov3gyq39',1,0,'',29,0,0),(5632,1360,1,161,0,'81.165.130.236',1137843295,1,0,1,1,1,0,'','Timezone','I was wondering if I can check the timezone with FW?\nI am looking for u function that is returning something like [b:37jbyvzh]GMT +01:00[/b:37jbyvzh]\n\nThanks,\nMarc','',0,'QA==','37jbyvzh',1,0,'',161,0,0),(5633,1347,6,28,0,'87.218.46.164',1137847298,1,0,1,1,1,0,'','fivewin.wiki','Hola, \n\nSi alguien se anima a seguit tecleando conmigo, por favor, seguir el formato para que se pueda leer bien desde la pda.\n\nDentro de muy poco vamos a poder leer con la pda desde cualquier lado y os puedo asegurar que es una chulada ir leyendo en la pda tranquilamente.\n\nUn abrazo','',0,'QA==','1lqy7963',1,0,'',28,0,0),(5634,1253,2,375,0,'84.122.98.112',1137850287,1,0,1,1,1,1,'','','Me refiero a alguna forma directa, sin crear un TXT intermedio. Via DDE o así\n\nGracias...','',0,'QA==','uiic1mri',1,0,'',375,0,0),(5635,1340,6,203,0,'200.107.2.181',1137850991,1,0,1,1,1,1,'','','No permitir la edicion del campo cuando este este lleno, es un campo clave, o que me permitar editarlo cuado es un registro nuevo\n\n\nGracias\n\n\nSaludos \n\nOscar','',0,'QA==','28xooysq',1,0,'',203,0,0),(5637,1361,2,147,0,'200.110.141.23',1137857621,1,0,1,0,1,1,'','O.T.: Problema con app 16bits en XP','Tengo instalado en mi PC XP con actualizaciones automáticas, la unica que no intalo es la SPK2.\nDe una, ahora, cuando ejecuto una app 16bits me aparece el siguiente mensaje, que no permite correr la app: \"El Subsistema Win16 no ha podido entrar en modo Protegido. DOSX.EXE debe esta en autoexec.bat y presente en la ruta (PATH)\"\nAl chequear el autoexec.nt observo:\nREM Instalar la compatibilidad con DPMI\nlh %SystemRoot%\\system32\\dosx (el archivo existe en la ruta)\nveifico mi path:\nPATH=D:\\WINDOWS\\system32;D:\\WINDOWS;D:\\WINDOWS\\System32\\Wbem;C:\\WINDOWS;C:\\WINDO\nWS\\COMMAND;c:\\windows\\system\n\nalguna idea de que está pasando?\nmuchas gracias\n\nSaludos','',0,'QA==','2imddppi',1,0,'',147,0,0),(5638,1293,2,147,0,'200.110.141.23',1137858133,1,0,1,0,1,1,'','','Lubin; probá lo siguiente:\nCrea un aceso directo en el escritorio. Entra en la Propiedades, luego en Propiedades Avanzadas, allí tildá \"Ejecutar en otro espacio de memoria\". Tambien podés entrar en la pestaña \"Compatibilidad\" y activar el checkbosx \"Ejecutar este programa ebn el modo de compatibilidad para\" (yo marco siempre Windows98/ME)\n\nSaludos','',0,'QA==','83z3fomb',1,0,'',147,0,0),(5639,1353,6,40,0,'200.56.163.197',1137859794,1,0,1,1,1,0,'','','Willian gracias por contestar, asi si funciona pero la idea es \nguardar una fecha vacia.  Por Ejemplo :\n\ncFecha := \'  /  /    \'\n::oRs:Fields(\'Fecha\'):Value := cFecha \n\ncomo guardo una fecha vacia ?\nahi es cuando se genera el error\n\nSaludos \nJoel Andujo\n[/url]','',0,'','arg6iim7',1,0,'',40,0,0),(5640,1210,6,147,0,'200.110.141.23',1137860504,1,0,1,0,1,1,'','','En el sitio PuertoSur, ventana Top 10 Descargas\" encontrarán enlaces para descargar xHarbour 0.99.3, para FWH24; y otro para FWH25. Ambos compilados por Walter Negro\n\nSaludos','',0,'','2wv95p8c',1,0,'',147,0,0),(5642,1284,6,138,0,'201.128.111.75',1137868226,1,0,1,1,1,1,'','','[quote=&quot;Hernan Diego Ceccarelli&quot;:1u8985y9]Rene, \n   Muchas gracias, has sido muy explicativo. Los modelos SQL nos dan rapidez de consulta, seguridad y C/S, pero nos limitan la \"intuitividad\" de la aplicacion, es decir, no se concibe un abm intuitivo de algo sin un browse, en ese sentido vamos para atras. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nSalu2[/quote:1u8985y9]\n\nAsi es, ademas de que el concepto de \"bloqueo\" de registros no existe, un SQL plantea bloqueos \"optimistas\", es decir, si dos personas estan visualizando la misma informacion, y los dos deciden modificarla, prevaleceran los cambios que haga LA ULTIMA persona.\n\nTampoco existe la actualización de las vistas en linea, es decir, si dos personas estan visualizando la misma informacion, y un tercero altera alguno de los datos visualizados por los otros dos, ambos deberan de \"refrescar\" la vista de datos para tener acceso a las ultimas modificaciones.\n\nEl modelo XBase de finales de los 70 prometia superar algunas de las espectatvias de lo que eran los modelos SQL de los 60\'s, ahora, el modelo ADO pretende copiar lo mismo que hizo el Xbase en su momento, creando objetos RecordSet (que se pudieran comparara con DBFs), y trabajando sobre esos objetos (como si fuesen campos de una DBF), con instrucciones muy similares a las que en su momento tuvo dBase.\n\nEl modelo ADO pretende darte en \"background\" un modelo de bloqueo y actualizacion en linea, como lo daba en su momento el modelo Xbase, el gran problema con el que se en encuentra ADO es que la arquitectura sQL no esta pensada como si fuera XBase.\n\nPor otro lado, solo los gestores de bases de datos \"potentes\" como Oracle, SQL Server, Sybase y otros, te dan los componentes necesarios para lo que ADO pretende hacer, si bien MySQL, Postgre, o FireBird te presentan la funcionalidad de un SQL, nunca tendran las prestaciones de un SQL de paga, por algo cuestan lo que cuestan.\n\nSi yo siempre he dicho, que lo unico que le hace falta al Xbase para ser perfecto era una herramienta que lo manejara como Gestor de Base de Datos Relacional, y ADS lo hace, con lo cual.....','',0,'gA==','1u8985y9',1,0,'',138,0,0),(5643,1353,6,138,0,'201.128.111.75',1137868408,1,0,1,1,1,1,'','','[quote=&quot;Joel Andujo&quot;:1smeh92t]\n\ncomo guardo una fecha vacia ?\n[/quote:1smeh92t]\n\nAlgo que me viene a la cabeza en este momento:\n\ndFecha := CTOD(\"  /  /  \")\ncFecha := DTOC(dFecha)\n\n¿ Sera que es sabado que pretendo matar pulgas a cañonazos ?','',0,'gA==','1smeh92t',1,0,'',138,0,0),(5644,1361,2,404,0,'213.231.101.107',1137868734,1,0,1,1,1,0,'','No se si te ayudara.','El tener, o no instalado el Service Pack 2. No creo que influya. \n\nYo lo tengo, y además todas las actualizaciones disponibles hasta el momento.\n\nEspero que por mucho tiempo, no tener problemas, lo más que he tenido que hacer, es cambiar el STACKSIZE y el HEAPSIZE. Tengo:\n\n1. CLIPPER 5.2e, BLINKER 3.30, y FiveWin 2.3c\n\n2. STACKSIZE 10100\n    HEAPSIZE    1024\n\nTe reproduzco, el AUTOEXEC.NET y el CONFIG.NET, tal como están en este momento, creo que lo unico que añadí, para poder trabajar, fue el SET CLIPPER=F30:\n\n[u:4nz4ujs9]AUTOEXEC.NET[/u:4nz4ujs9]\n\n@echo off\n\nREM AUTOEXEC.BAT no se utiliza para inicializar el entorno de MS-DOS.\nREM AUTOEXEC.NT se usa para inicializar el entorno de MS-DOS a no ser\nREM que se especifique un archivo de inicio diferente en el archivo de\nREM informaci¢n de programa (PIF) de la aplicaci¢n.\n\nREM Instalar las extensiones de CD-ROM\nlh %SystemRoot%\\system32\\mscdexnt.exe\n\nREM Instalar el redirector de red (cargar antes que dosx.exe)\nlh %SystemRoot%\\system32\\redir\n\nREM Instalar la compatibilidad con DPMI\nlh %SystemRoot%\\system32\\dosx\n\nREM La siguiente l¡nea habilita Sound Blaster 2.0 para su compatibilidad en NTVDM.\nREM El comando para configurar el entorno BLASTER es como sigue a continuaci¢n:\nREM    SET BLASTER=A220 I5 D1 P330\nREM    donde:\nREM        A    especifica el puerto de E/S de la base de sound blaster\nREM        I    especifica la l¡nea de petici¢n de interrupciones\nREM        D    especifica el canal DMA de 8-bits\nREM        P    especifica el puerto de E/S de la base MPU-401\nREM        T    especifica el tipo de tarjeta Sound Blaster\nREM                 1 - Sound Blaster 1.5\nREM                 2 - Sound Blaster Pro I\nREM                 3 - Sound Blaster 2.0\nREM                 4 - Sound Blaster Pro II\nREM                 6 - SOund Blaster 16/AWE 32/32/64\nREM\nREM    El valor predeterminado es A220 I5 D1 T3 y P330. Si no se especifica algunos \nREM    de los modificadores, se usar  el valor predeterminado. (NOTA: puesto que todos\nREM    puertos est n virtualizados, la informaci¢n proporcionada aqu¡ no tiene que\nREM    coincidir con la configuraci¢n de hardware real.)  NTVDM es compatible s¢lo con Sound Blaster 2.0.\nREM    El modificador T se debe establecer a 3, si se especifica.\nSET BLASTER=A220 I5 D1 P330 T3\n\nREM Para deshabilitar la compatibilidad de sound blaster 2.0 en NTVDM, especifique una direcci¢n de\nREM puerto E/S de base SB. Por ejemplo:\nREM    SET BLASTER=A0\n\nSET CLIPPER=F30\n\n[u:4nz4ujs9]CONFIG.NET[/u:4nz4ujs9]\n\nREM Archivo de inicio de MS-DOS de Windows\nREM\nREM CONFIG.SYS contra CONFIG.NT\nREM CONFIG.SYS no se usa para inicializar el entorno de MS-DOS.\nREM CONFIG.NT se usa para inicializar el entorno de MS-DOS a menos\nREM que se especifique un archivo de inicio diferente en el PIF de\nREM una aplicaci¢n.\nREM\nREM ECHOCONFIG\nREM De forma predeterminada, no se muestra informaci¢n cuando se\nREM inicializa el entorno de MS-DOS. Para mostrar informaci¢n de\nREM CONFIG.NT/AUTOEXEC.NT, agregue el comando echoconfig a\nREM CONFIG.NT u otro archivo de inicio.\nREM\nREM NTCMDPROMPT\nREM Cuando regrese a la l¡nea de comandos de un TSR o mientras se\nREM ejecuta una aplicaci¢n basada en MS-DOS, Windows ejecuta\nREM COMMAND.COM. Esto permite al TSR permanecer activo. Para\nREM ejecutar CMD.EXE, la l¡nea de comandos de Windows, en vez de\nREM COMMAND.COM, agrefue el comando ntcmdprompt a CONFIG.NT u\nREM otro archivo de inicio.\nREM\nREM DOSONLY\nREM De forma predeterminada, puede iniciar cualquier aplicaci¢n\nREM al ejecutar COMMAND.COM. Si inicia una aplicaci¢n no basada\nREM en MS-DOS, se puede interrumpir cualquier TSR en ejecuci¢n.\nREM Para garantizar que s¢lo se puedan iniciar aplicaciones\nREM basadas en MS-DOS, agregue el comando dosonly a CONFIG.NT u\nREM otro archivo de inicio.\nREM\nREM EMM\nREM Puede usar la l¡nea de comando EMM para configurar EMM\nREM (Expanded Memory Manager, Administrador de memoria expandida).\nREM La sintaxis es:\nREM\nREM EMM = [A=AltRegSets] [B=BaseSegment] [RAM]\nREM\nREM     AltRegSets\nREM         especifica el total de conjuntos de registro de\nREM         asignaci¢n alternativos que desee que el sistema admita.\nREM         1 &lt;= AltRegSets &lt;= 255. El valor predeterminado es 8.\nREM     BaseSegment\nREM         especifica la direcci¢n de segmento inicial en la\nREM         memoria convencional de DOS que desee que el sistema\nREM         asigne para las tramas de p ginas de EMM.\nREM         El valor se debe dar en Hexdecimal.\nREM         0x1000 &lt;= BaseSegment &lt;= 0x4000. El valor se redondea\nREAM        al l¡mite de 16 KB. El valor predeterminado es 0x4000.\nREM     RAM\nREM         especifica que el sistema s¢lo debe asignar 64 KB de\nREM         espacio de direcciones del  rea del bloque de memoria\nREM         superior (UMB) para las tramas de p ginas de EMM y\nREM         dejar el resto (si lo hay) para ser usado por DOS\nREM         para compatibilidad con los comandos loadhigh y\nREM         devicehigh. De forma predeterminada, el sistema\nREM         asignar¡a todo el UMB posible y disponible para\nREM         tramas de p ginas.\nREM\nREM     El tama¤o de la EMM lo determina el archivo PIF (aquel\nREM     asociado con su aplicaci¢n o _default.pif). Si el tama¤o\nREM     del archivo PIF es cero, EMM se deshabilitar  y se\nREM     omitir  la l¡nea EMM.\nREM\ndos=high, umb\ndevice=%SystemRoot%\\system32\\himem.sys\n\nFILES=30\n\nAdemás para que me sea más comodo. Me creo en el directorio raiz, un fichero.BAT (primera letra del nombre, del directorio de la aplicación.BAT), por cada aplicación, con la siguientes lineas:\n\n[u:4nz4ujs9]A.BAT[/u:4nz4ujs9]\n\n@ECHO OFF\n\nPath=C:\\;C:\\WINDOWS;C:\\WINDOWS\\system32;C:\\WINDOWS\\System32\\Wbem\nPATH=%PATH%;C:\\ARCHIV~1\\BLINKER3;C:\\ARCHIV~1\\BORLANDC\\BIN;C:\\ARCHIV~1\\QED\nPATH=%PATH%;C:\\ARCHIV~1\\CLIPPER5\\5.2e\\BIN;C:\\ARCHIV~1\\UtilProg\n\nSET INCLUDE=C:\\ARCHIV~1\\CLIPPER5\\5.2e\\INCLUDE;C:\\ARCHIV~1\\FIVELIB\\FW23\\INCLUDE\nSET INCLUDE=%INCLUDE%;C:\\ARCHIV~1\\TDBF12\\INCLUDE\nSET LIB=C:\\ARCHIV~1\\CLIPPER5\\5.2e\\LIB;C:\\ARCHIV~1\\FIVELIB\\FW23\\LIB\nSET LIB=%LIB%;C:\\ARCHIV~1\\TDBF12\\LIB\n\nSET CLIPPER=F30\n\nCD Aplicacion\n\nDentro del directorio, suelo poner un [u:4nz4ujs9]S.BAT[/u:4nz4ujs9], que lo utilizo para dejar el entorno, en las condiciones, en que estaba antes de entrar:\n\n@ECHO OFF\n\nCD \\\n\nSET INCLUDE=\nSET LIB=\n\nPATH=C:\\;C:\\WINDOWS;C:\\WINDOWS\\system32;C:\\WINDOWS\\System32\\Wbem\n\nEspero que te sirva de orientación. Estaré pendiente de lo que indique.\n\nSaludos, José Mª','',0,'AQ==','4nz4ujs9',1,0,'',404,0,0),(5645,1353,6,54,0,'201.127.100.111',1137874947,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:3l67xl1s][quote=&quot;Joel Andujo&quot;:3l67xl1s]\n\nAlgo que me viene a la cabeza en este momento:\n\ndFecha := CTOD(\"  /  /  \")\ncFecha := DTOC(dFecha)\n\n¿ Sera que es sabado que pretendo matar pulgas a cañonazos ?[/quote:3l67xl1s][/quote:3l67xl1s]\n\ncFecha := \"    /  /  \"','',0,'gA==','3l67xl1s',1,0,'',54,0,0),(5646,1194,23,52,0,'200.82.56.244',1137904337,1,0,1,1,1,1,'','Nobert','hallo, \n\nMein name ist Gutavo, auf Argentinien\n\nWhat version of Ts (ts = TsBrowser) user you?','',0,'gA==','3l0tafqn',1,0,'',52,0,0),(5647,1297,1,47,0,'203.144.143.7',1137909777,1,0,1,1,1,0,'','May I have it too?','Dear James,\n\nMay I have Tgantt chart code too?\n\nThanks,\nDutch\n<!-- e --><a href=\"mailto:dutch@easyfo.com\">dutch@easyfo.com</a><!-- e -->','',0,'gA==','6blml2ni',1,0,'',47,0,0),(5648,1360,1,2,0,'80.32.22.38',1137919460,1,0,1,1,1,1,'','','Marc,\n\nThe Win32 API function to use is GetTimeZoneInformation().','',0,'gA==','3qu1e6ev',1,0,'',2,0,0),(5649,1360,1,161,0,'81.165.130.236',1137928457,1,0,1,1,1,0,'','','Antonio,\n\nThanks, I have use Treg32 to read the info from the registry.\n\nMarc','',0,'gA==','2zwbiyxu',1,0,'',161,0,0),(5650,1362,1,258,0,'81.241.124.125',1137928584,1,0,1,1,1,0,'','Sending Mail with Word or xls file attached','Hello,\nI try to send a mail (fw25 clipper) with a word doccument attached .\nI receive the mail but i am not able to open the document,\nit seems it is corrupted .\n\nAny idea &gt;?\n\nThanks\n\nPhilippe Jacquet','',0,'gA==','wa5k6hlg',1,0,'',258,0,0),(5651,756,1,266,0,'60.50.57.103',1137936202,1,0,1,1,1,1,'','','==&gt; 1-Develop a small aplication/service in Microsoft SMS SDK \n\nWill try it.\n\n==&gt; 2-Using Microsoft SMS Sender 1.0 tool\n\nAlready tried. I call it from Fivewin nCode=Winexec() and a few problems found :-\n- it always return same nCode value whether success or fail \n- it hangs when sending more than 5 SMSs from app','',0,'gA==','1bqkuqdo',1,0,'',266,0,0),(5652,1194,23,308,0,'84.148.42.103',1137941507,1,0,1,1,1,0,'','Re: Nobert','[quote=&quot;goosfancito&quot;:l1rg8d27]hallo, \n\nMein name ist Gutavo, auf Argentinien\n\nWhat version of Ts (ts = TsBrowser) user you?[/quote:l1rg8d27]\n\nts 7.01','',0,'gA==','l1rg8d27',1,0,'',308,0,0),(5653,1340,6,203,0,'200.107.2.135',1137943906,1,0,1,1,1,1,'','','Gracias oSkar voy a probar\n\n\n\nSaludos\nOscar','',0,'gA==','1t4dr1rq',1,0,'',203,0,0),(5654,1362,1,138,0,'200.65.139.156',1137949370,1,0,1,1,1,1,'','Re: Sending Mail with Word or xls file attached','[quote=&quot;jacquet philippe&quot;:2bkm4hmd]Hello,\nI try to send a mail (fw25 clipper) with a word doccument attached .\nI receive the mail but i am not able to open the document,\nit seems it is corrupted .\n[/quote:2bkm4hmd]\n\nIs not corrupeted, what\'s happening is that the FW\'s SMTP class handles all the attached files as they were text, which is not correct.\n\nAny way, you will need a new modified class to handle correctly the attached files. You may go to <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w -->, and look for Luis Krause\'s TSMTP class, this modified set of classes fix the problem.','',0,'gA==','2bkm4hmd',1,0,'',138,0,0),(5655,1363,6,53,0,'200.66.175.253',1137953393,1,0,1,1,1,1,'','Manual de FW+MySql','Amigos del foro:\n\nNecesito iniciarme con MySql, alguien tiene algun manual para principiantes ?\n\nMis armas: FWH 2.5 y Harbour\n\nSaludos, Armando','',0,'gA==','51ri0br7',1,0,'',53,0,0),(5656,1364,3,307,0,'201.130.187.33',1137956188,1,0,1,1,1,0,'','MD5','saludos como puedo generar claves MD5 para regresarle al cliente un numero de serie y pueda proteger mi sistema. tipo licencia.?\n\nsaludos\n\navs','',0,'gA==','dhm0rn9v',1,0,'',307,0,0),(5657,1354,3,303,0,'68.7.28.54',1137960137,1,0,1,1,1,0,'','','Rick,\n\nI forgot to mention the versions I am using; FWH2.6, May 2005 build, xHarbour 0.99.3 (not the latest version). So, I presume you suggestion doesn\'t apply.\n\nI may have also resolved the ADS0.PRG issue. It appears that this was only used in older versions of xHarbour. That is why I couldn\'t find it in my versions.\n\nJames','',0,'gA==','1dwckp4k',1,0,'',303,0,0),(5658,1360,1,303,0,'68.7.28.54',1137960218,1,0,1,1,1,0,'','','Can we see your code for this?','',0,'gA==','290zky83',1,0,'',303,0,0),(5659,1360,1,161,0,'81.165.130.236',1137968641,1,0,1,1,1,0,'','','It was posted on the old FW NG:\nHere it is:\n\n[code:1bhc4qk7]function timezone&#40;&#41;\n   Local oReg, ret_val\n   oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, &quot;SYSTEM\\CurrentControlSet\\Control\\TimeZoneInformation&quot;, &#46;f&#46; &#41;\n   ret_val &#58;= oReg&#58;Get&#40; &quot;Bias&quot;, 0 &#41;\n   oReg&#58;Close&#40;&#41;\n   ret_val &#58;= Round&#40; ret_val / 60, 0 &#41; * -1\nReturn ret_val[/code:1bhc4qk7]\n\nMarc','',0,'AIA=','1bhc4qk7',1,0,'',161,0,0),(5660,1308,3,300,0,'201.2.51.208',1137979712,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:393mw31c]Wanderson,\n\nYou should have this code in source\\function\\datetime.c:\n\n[code:393mw31c]\nCLIPPER SETDATE&#40; PARAMS &#41;                  // nDay, nMonth, nYear\n&#123;\n   WORD wYear  = _parni&#40; 3 &#41;;\n   WORD wMonth = _parni&#40; 2 &#41;;\n   WORD wDay   = _parni&#40; 1 &#41;;\n\n   #ifndef __FLAT__\n      _CX = wYear;\n      _DH = wMonth;\n      _DL = wDay;\n      _AH = 0x2B;\n      _AL = 0;\n\n      Dos3Call&#40;&#41;;                     // asm int 0x21;\n\n      _retl&#40; _AL == 0 &#41;;\n   #else\n      SYSTEMTIME st;\n\n      GetSystemTime&#40; &amp;st &#41;;\n      st&#46;wYear  = wYear;\n      st&#46;wMonth = wMonth;\n      st&#46;wDay   = wDay;\n      _retl&#40; SetSystemTime&#40; &amp;st &#41; &#41;;\n   #endif\n&#125;\n[/code:393mw31c][/quote:393mw31c]\n\nHi Antonio, \n\nI found the problem. \n\nIf i try your example before 11:00 pm runs ok\nIf i try your example after 11:00 pm returns wrong date.\n\nThanks.','',0,'gIA=','393mw31c',1,0,'',300,0,0),(5661,1363,6,54,0,'201.127.100.111',1137981836,1,0,1,1,1,1,'','Re: Manual de FW+MySql','[quote=&quot;Armando&quot;:19pmruws]Amigos del foro:\n\nNecesito iniciarme con MySql, alguien tiene algun manual para principiantes ?\n\nMis armas: FWH 2.5 y Harbour\n\nSaludos, Armando[/quote:19pmruws]\n\nAmigo,\n\nUna buena página es:\n\n<!-- m --><a class=\"postlink\" href=\"http://mysql.conclase.net\">http://mysql.conclase.net</a><!-- m -->\n\nDespues de eso, hay que definir con que herramienta iniciarás.\n\nEagle1 de Manú Exposito\nCondor1 de Manú Exposito\nFCSODBC de Freddy Franjul','',0,'gA==','19pmruws',1,0,'',54,0,0),(5662,1363,6,138,0,'200.65.139.244',1137987495,1,0,1,1,1,1,'','','Yo empezaria primero por aprender el manejo de la base de datos, el mismo MySQL trae un buen manual, aunque tambien por la red se pueden encontrar buenos manuales en Español.\n\nTambien vería cuales de todas las características de MySQL vas a necesitar, porque MySQL es mucho mas que lo que te bajas de internet sin costo, hay otros componentes muy interesantes de instalar y que proporcionan funcionalidad adicional como InnoDB sin el cual no puedes tener procesos almacenados que te reducen enormente muchas labores de programación\n\nLuego, antes de pensar en programar, vas a necesitar una buena herramienta para manipular los datos, crear y revisar tus queries y procesos almacenados, manipular remotamente tus bases de datos, migrar datos entre distantas bases. El Control Center de MySQL esta bueno, pero para cosas mas profesionales vas a necesitar algo mas potente, yo utilizo NaviCat (<!-- w --><a class=\"postlink\" href=\"http://www.navicat.com\">www.navicat.com</a><!-- w -->) es, desde mi punto de vista, el mejor administrador de bases de datos par MySQL que existe.\n\nTambien, y yo creo que lo mas importante que vas a necesitar, es una buena herramienta para el diseño de bases de datos, recuerda que el exito de un proyecto en SQL esta basado en un 90% en el diseño de las tablas, relaciones, triggers, procesos almacenados, esquemas de seguridad, para todo eso, yo utilizo DBDesigner de FabForce (<!-- w --><a class=\"postlink\" href=\"http://www.fabforce.net\">www.fabforce.net</a><!-- w -->), es un producto gratuito que te permite de manera visual hacer el diseño de tus tablas, establecer tus llaves primarias, restricciones, relaciones, seguridad etc etc todo de una manera visual, y una vez que tengas bien diseñada tu base de datos, DBDesginer la creará por ti, incluso creará un script para que cuando instales tu aplicación en algun otro equipo, puedas crear las tablas de la base de datos de manera automatica, esto te evita estar modificando estructuras manualmente, tambien tiene una herramienta que te permite abrir bases de datos que ya hayas creado y anailizarlas desde un punto de vista visual. Lo mejor de todo, es que es gratis.\n\nFinalmente, pero no por eso menos importante, tienes que ver que metodo vas a utilizar para accesar a tus datos desde tu programa FiveWin, FW te provee de 3 clases para hacerlo, TODBC, TDBODBC, TRDDODBC, pero, desde mi punto de vista, la mejor de forma de acceder a los datos SQL es via ADO, por 3 razones: 1ra. Es un componente OLE facilmente accesible desde (x)Harbour, incluso desde modo de terminal, sin necesidad de una interfaz gráfica, 2do. Esta incluido en todas las versiones de  Windows, 3ra. El modelo ADO te permite moverte sin muchos problemas entre distantas bases de datos, digamos que si mañana te quieres mover de MySQL a Oracle, tu codigo no tendria porque sufrir cambios, o bien los cambios serían minimos.','',0,'gA==','27fk0yu6',1,0,'',138,0,0),(5663,1365,6,179,0,'200.69.181.39',1137991513,1,0,1,1,1,1,'','Problemas con Menu en tiempo de ejecucion','buenas noches compañeros\n\nDefino la ventana principal y un menu donde las opciones estan desabilitadas en base a un array \n\nDentro de la ventana tengo un Tree donde al escoger uno, se debe de habilitar las opciones del menu, he probado esto sin resultado alguno\n\noWnd:SetMenU ( HagaMenuHabilitado() )\n\nHaga menuhabilitado devuelve un objeto menu habilitando todas las opiones\n\noWnd:oMenu:DelItems()\noWnd:oMenu:Reset()\noWnd:SetMenu ( HagaMenuHabilitado() )\noWnd:Refresh()\n\nY nada , el menu sigue desabilitado\n\nNota la ventana no es MDI ya que en MDI no me funciona el Tree en la ventana\n\nAlguna idea???\ngracias x todo y espero haberme explicado\n\nSaludos','',0,'gA==','1ubfqgcr',1,0,'',179,0,0),(5664,1366,2,73,0,'201.132.227.86',1137991590,1,0,1,1,1,0,'','apertura cajon de dinero','pues eso, tengo las secuencias de escape para abrir un cajon de dinero y me va bien con tdosprn, pero con tprinter como lo abro?\nGracias','',0,'gA==','1mr2usmh',1,0,'',73,0,0),(5665,1363,6,54,0,'201.127.100.111',1137992638,1,0,1,1,1,1,'','','Muy buena explicación (mejor dicha excelente), mejor no podria ser.\n\nSaludos\n\n[quote=&quot;RF&quot;:1us0jskp]Yo empezaria primero por aprender el manejo de la base de datos, el mismo MySQL trae un buen manual, aunque tambien por la red se pueden encontrar buenos manuales en Español.\n\nTambien vería cuales de todas las características de MySQL vas a necesitar, porque MySQL es mucho mas que lo que te bajas de internet sin costo, hay otros componentes muy interesantes de instalar y que proporcionan funcionalidad adicional como InnoDB sin el cual no puedes tener procesos almacenados que te reducen enormente muchas labores de programación\n\nLuego, antes de pensar en programar, vas a necesitar una buena herramienta para manipular los datos, crear y revisar tus queries y procesos almacenados, manipular remotamente tus bases de datos, migrar datos entre distantas bases. El Control Center de MySQL esta bueno, pero para cosas mas profesionales vas a necesitar algo mas potente, yo utilizo NaviCat (<!-- w --><a class=\"postlink\" href=\"http://www.navicat.com\">www.navicat.com</a><!-- w -->) es, desde mi punto de vista, el mejor administrador de bases de datos par MySQL que existe.\n\nTambien, y yo creo que lo mas importante que vas a necesitar, es una buena herramienta para el diseño de bases de datos, recuerda que el exito de un proyecto en SQL esta basado en un 90% en el diseño de las tablas, relaciones, triggers, procesos almacenados, esquemas de seguridad, para todo eso, yo utilizo DBDesigner de FabForce (<!-- w --><a class=\"postlink\" href=\"http://www.fabforce.net\">www.fabforce.net</a><!-- w -->), es un producto gratuito que te permite de manera visual hacer el diseño de tus tablas, establecer tus llaves primarias, restricciones, relaciones, seguridad etc etc todo de una manera visual, y una vez que tengas bien diseñada tu base de datos, DBDesginer la creará por ti, incluso creará un script para que cuando instales tu aplicación en algun otro equipo, puedas crear las tablas de la base de datos de manera automatica, esto te evita estar modificando estructuras manualmente, tambien tiene una herramienta que te permite abrir bases de datos que ya hayas creado y anailizarlas desde un punto de vista visual. Lo mejor de todo, es que es gratis.\n\nFinalmente, pero no por eso menos importante, tienes que ver que metodo vas a utilizar para accesar a tus datos desde tu programa FiveWin, FW te provee de 3 clases para hacerlo, TODBC, TDBODBC, TRDDODBC, pero, desde mi punto de vista, la mejor de forma de acceder a los datos SQL es via ADO, por 3 razones: 1ra. Es un componente OLE facilmente accesible desde (x)Harbour, incluso desde modo de terminal, sin necesidad de una interfaz gráfica, 2do. Esta incluido en todas las versiones de  Windows, 3ra. El modelo ADO te permite moverte sin muchos problemas entre distantas bases de datos, digamos que si mañana te quieres mover de MySQL a Oracle, tu codigo no tendria porque sufrir cambios, o bien los cambios serían minimos.[/quote:1us0jskp]','',0,'gA==','1us0jskp',1,0,'',54,0,0),(5666,1366,2,54,0,'201.127.100.111',1137993209,1,0,1,1,1,1,'','Re: apertura cajon de dinero','[quote=&quot;Francisco Horta&quot;:til7m4gf]pues eso, tengo las secuencias de escape para abrir un cajon de dinero y me va bien con tdosprn, pero con tprinter como lo abro?\nGracias[/quote:til7m4gf]\n\nPaco,\n\nPorque no mandas las secuencuas via tdosprn y despues aplicas la tprinter?\n\nNo creo alucinar, pero puede ser una opción','',0,'gA==','til7m4gf',1,0,'',54,0,0),(5667,1367,1,417,0,'83.77.195.107',1137993565,1,0,1,1,1,0,'','FW-Applik. running under wine-emulator in Linux','I run my applikations under wine-emulator in linux very fine. But when i make a PrinterESC( oVRD:oPrn:hDCOut, &amp;cSchacht1 )-function-call, i became a error-msg in linux-console : fixme:psdrv:PSDRV_EndDoc hJob==0, Now What?\nUnder windows all work without any problems.\nHave anybody see this message and have an idee, how i can fix this?\n\nWith best regards\nWalter','',0,'gA==','2j7vpayx',1,0,'',417,0,0),(5668,1363,6,54,0,'201.127.100.111',1138001133,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:3lr242hj]Yo empezaria primero por aprender el manejo de la base de datos, el mismo MySQL trae un buen manual, aunque tambien por la red se pueden encontrar buenos manuales en Español.\n\n... DBDesigner de FabForce (<!-- w --><a class=\"postlink\" href=\"http://www.fabforce.net\">www.fabforce.net</a><!-- w -->)...[/quote:3lr242hj]\n\nRene,\n\nPodrías auxiliarme para la configuración, pues lo descargué, pero, me dice que no puede conectarse a mi server, te comento que es local, acceso sin problemas con mi usuario y contraseña, pero con el DBDesigner nada.\n\nuso mysql 5.0.11\n\nGracias de antemano y espero comentarios','',0,'gA==','3lr242hj',1,0,'',54,0,0),(5669,1368,3,32,0,'196.36.8.34',1138002431,1,0,1,1,1,0,'','Catching GPF\'s','Hi.\n\nI\'m looking at catching GPF\'s in xHarbour using SetUnhandledExceptionfilter. Has anybody done this already that can provide me with a sample?\n\nThanks,\nAlex','',0,'gA==','1swb8fqi',1,0,'',32,0,0),(5670,1369,3,32,0,'196.36.8.34',1138003580,1,0,1,1,1,0,'','Transparent images using image class','Hi,\n\nI\'m placing a logo on the mdi client space using the following code:\n\n    @ 5, 5 BITMAP oImage NAME \"Bmp_Quick\" PIXEL OF ::oWnd:oWndClient NOBORDER\n\n    oImage:lTransparent        := .t.\n\n\nThis worked fine under FWH 2.6 June 2005. I\'ve now loaded Jan 2006, and my logo has a black background. What should I do to fix it?\n\nAlex','',0,'gA==','2urncjwo',1,0,'',32,0,0),(5671,1363,6,87,0,'83.35.19.60',1138003948,1,0,1,1,1,0,'','','Hola Rene\n\n  Desde un  script  como  se crean la base de datos y las tablas desde nuestro programa, como lo haces tu ?','',0,'gA==','j57pihl7',1,0,'',87,0,0),(5672,1360,1,2,0,'80.32.22.38',1138004763,1,0,1,1,1,1,'','','Marc,\n\nOk, we have added it to the FW library. Thanks.','',0,'gA==','2kf6zp19',1,0,'',2,0,0),(5673,1367,1,2,0,'80.32.22.38',1138004883,1,0,1,1,1,1,'','','Walter,\n\nNo idea about what may be happening in Wine. I suggest you to report it to the Wine development team (not the FW code, but the Win32 API used calls).\n\nThe Win32 API used function is Escape():\n\nThe Escape function allows applications to access capabilities of a particular device not directly available through GDI. Escape calls made by an application are translated and sent to the driver. \n\nint Escape(\n\n    HDC hdc,	// handle to device context \n    int nEscape,	// escape function \n    int cbInput,	// number of bytes in input structure \n    LPCSTR lpvInData,	// pointer to input structure \n    LPVOID lpvOutData 	// pointer to output structure \n   );','',0,'gA==','3qfwd4rf',1,0,'',2,0,0),(5674,1368,3,2,0,'80.32.22.38',1138005457,1,0,1,1,1,1,'','','Alex,\n\nIf you use the xHarbour build we provide from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> it already include GPFs catching using SetUnhandledExceptionfilter().\n\nBoth Harbour and xHarbour already include support for SetUnhandledExceptionfilter() but you have to build them using this flag: -DHB_INCLUDE_WINEXCHANDLER\n\nAlso in xharbour this fix is needed in source\\vm\\mainwin.c:\n\n[code:606zwdul]\nint WINAPI WinMain&#40; HINSTANCE hInstance,      /* handle to current instance */\n                    HINSTANCE hPrevInstance,  /* handle to previous instance */\n                    LPSTR lpCmdLine,          /* pointer to command line */\n                    int iCmdShow &#41;            /* show state of window */\n&#123;\n   #ifdef HB_INCLUDE_WINEXCHANDLER\n      LONG WINAPI hb_UnhandledExceptionFilter&#40; struct _EXCEPTION_POINTERS * ExceptionInfo &#41;;\n      \n      LPTOP_LEVEL_EXCEPTION_FILTER ef = SetUnhandledExceptionFilter&#40; hb_UnhandledExceptionFilter &#41;;\n   #endif\n[/code:606zwdul]\n\nAnd rename UnhandledExceptionFilter() as hb_UnhandledExceptionFilter() in source\\vm\\estack.c.\n\nThis code is already included in Harbour CVS files, but it is not in xharbour CVS.','',0,'AIA=','606zwdul',1,0,'',2,0,0),(5675,1368,3,32,0,'196.36.8.34',1138005630,1,0,1,1,1,0,'','xHarbour gpf\'s','We\'re currently using the commercial version of xHarbour. I\'ll see what I can find out from their newsgroup.\n\nAlex','',0,'AIA=','pxshz7u8',1,0,'',32,0,0),(5676,1349,3,130,0,'141.51.32.24',1138006965,1,0,1,1,1,0,'','','Many thanks for all tips, it´s working now javascript&#058;emoticon(\':D\')\nVery Happy','',0,'AIA=','26xr2hnd',1,0,'',130,0,0),(5677,1369,3,2,0,'80.32.22.38',1138007174,1,0,1,1,1,1,'','','Alex,\n\nFixed. This minor fix is required on Class TBitmap:\n\n[code:1bduyuuj]\nMETHOD Paint&#40;&#41; CLASS TBitmap\n\n   local aInfo &#58;= &#58;&#58;DispBegin&#40;&#41;, hBmpOld, nZeroZeroClr, nOldClr\n\n   if ! &#58;&#58;lTransparent\n      FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41;\n   else   \n      if ! IsAppThemed&#40;&#41; &#46;or&#46; Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; $ &quot;TWINDOW;TMDICLIENT&quot;\n         SetBrushOrgEx&#40; &#58;&#58;hDC, 8 - &#58;&#58;nLeft&#40;&#41; % 8, 8 - &#58;&#58;nTop&#40;&#41; % 8 &#41;\n         FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oWnd&#58;oBrush&#58;hBrush &#41;\n      else\n         DrawPBack&#40; &#58;&#58;hWnd, &#58;&#58;hDC &#41;\n      endif   \n   endif \n   &#46;&#46;&#46;  \n[/code:1bduyuuj]\n\nThis is just the change:\n\n... .or. Upper( ::oWnd:ClassName() ) $ \"TWINDOW;TMDICLIENT\"','',0,'AIA=','1bduyuuj',1,0,'',2,0,0),(5678,1364,3,2,0,'80.32.22.38',1138007648,1,0,1,1,1,1,'','','avs,\n\nPuedes usar la función de FWH nFileCrc( &lt;cNombreFichero&gt; ) --&gt; nCRC\n\nNo se si el valor retornado es exactamente el mismo que el MD5, pero es un CRC con lo que te sirve perfectamente.','',0,'AIA=','1f67a6g9',1,0,'',2,0,0),(5679,1286,2,2,0,'80.32.22.38',1138007799,1,0,1,1,1,1,'','','Si vas a mostrar la misma DBF en dos páginas distintas de un folder, es preciso que abras dos veces la misma DBF, la segunda con una ALIAS distinto, para que así el pintado de una no interfiera con el pintado de la otra, ya que al pintarse se mueve el recno().','',0,'AIA=','f6xxsehn',1,0,'',2,0,0),(5680,1365,6,2,0,'80.32.22.38',1138007928,1,0,1,1,1,1,'','','Wilson,\n\nPuedes por favor proporcionar un ejemplo pequeño y completo que podamos construir aqui para probarlo ? gracias.','',0,'AIA=','1by0dold',1,0,'',2,0,0),(5681,1370,3,29,0,'87.7.175.91',1138011277,1,0,1,1,1,0,'','MAPI and Outlook 2003','Hi,\nI need to send an email using MAPI but there is a problem if the email client is Outlook 2003.\n\nAn error like \"Unable to send message with any account available\". There isn\'t any problem using Outlook 2000 or other mail client.\n\nI read various thread about this problem (MAPI and Outlook) on the FW newsgroup but without a solution.\n\nIs there anyone that know a solution at this moment ?\n\nI attached after the send routine that show the problem.\n\nThanks in advance.\n\nBest Regards\n\nMarco Turco\n\n\n************************ \n#include \"FiveWin.ch\" \n#include \"Mail.ch\" \n\nfunction InteractiveMessage() \nparamet cSubject,cBody,aFrom,aFiles \n\nlocal oMail \n\nfor i:=1 to len(aFrom) \naFrom[i,1]:=alltrim(aFrom[i,2]) \naFrom[i,2]:=alltrim(aFrom[i,2]) \nnext \n\noMail:=tMail():New( cSubject,cBody,,,,, .f., .t.,,afrom,aFiles) \n\nACTIVATE MAIL oMail \n\n\nreturn','',0,'','1u8lh9me',1,0,'',29,0,0),(5682,1371,4,133,0,'80.176.234.174',1138011776,1,0,1,1,1,0,'','Vertical Scrollbar Operation Not Working','I have various browses with vertical scrollbars operating correctly. I have added an additional LISTBOX as below \n[code:1o3fnmxv]\n   @ 0,0 LISTBOX oLbx FIELDS FSTOCK-&gt;ROLL_NO,FSTOCK-&gt;QCODE,FSTOCK-&gt;LOCATION, ;\n          str&#40;FSTOCK-&gt;QUANTITY,7,2&#41;,FSTOCK-&gt;TEMP ;\n        HEADERS &quot;Roll No&quot;,&quot;Product&quot;,&quot;Loc&quot;,&quot;Vol&quot;,&quot;Tag&quot; SIZE 240,200 OF oWnd ;\n          FIELDSIZES 65,80,25,40,20 UPDATE\n\n   oLbx&#58;SetFont&#40;oFont2&#41;\n   oLbx&#58;blClicked &#58;= &#123;|nRow,nCol,nKeyFlags|  if&#40;oLbx&#58;nAtCol&#40;nCol&#41;=5,ProcessTap&#40;oLbx,oSay6,oGet1,oGet2&#41;,nil&#41;&#125;\n   oLbx&#58;lCellStyle    &#58;= &#46;T&#46;\n   oLbx&#58;bGoTop    &#58;= &#123;|| FSTOCK-&gt;&#40;DbGoTop&#40;&#41;&#41;&#125;\n   oLbx&#58;bGoBottom &#58;=  &#123;|| FSTOCK-&gt;&#40;DbGoBottom&#40;&#41;&#41;&#125;\n   oLBx&#58;bSkip        &#58;= &#123;|nRecs| FSTOCK-&gt;&#40;DbSkipper&#40;nRecs&#41;&#41;&#125;\n   oLbx&#58;bLine        &#58;= &#123;|| &#123;FSTOCK-&gt;Roll_No,;\n                       FSTOCK-&gt;Qcode,;\n                       FSTOCK-&gt;Location,;\n                      str&#40;FSTOCK-&gt;Quantity,7,2&#41;,;\n                      FSTOCK-&gt;Temp&#125;&#125;\n[/code:1o3fnmxv]\n\nWhen the browse is displayed the Roll No of the first record is highlighted.\n\nIf I tap on the down button of the vertical scroll button nothing happens. If I tap on the second record\'s Roll No the scroll bar becomes active however if I pull the slider to the bottom the browse does not go to the last record.\n\nThis is the only browse behaving in this way.\n\nIs there specific code I can use to force correct behaviour on this scrollbar?','',0,'AIA=','1o3fnmxv',1,0,'',133,0,0),(5683,1371,4,2,0,'80.32.22.38',1138012075,1,0,1,1,1,1,'','','GWard,\n\nJust a quick test. Please comment out this entire section and try it again:\n\n[code:15eipt8p]\n/*\n   oLbx&#58;blClicked &#58;= &#123;|nRow,nCol,nKeyFlags|  if&#40;oLbx&#58;nAtCol&#40;nCol&#41;=5,ProcessTap&#40;oLbx,oSay6,oGet1,oGet2&#41;,nil&#41;&#125; \n   oLbx&#58;lCellStyle    &#58;= &#46;T&#46; \n   oLbx&#58;bGoTop    &#58;= &#123;|| FSTOCK-&gt;&#40;DbGoTop&#40;&#41;&#41;&#125; \n   oLbx&#58;bGoBottom &#58;=  &#123;|| FSTOCK-&gt;&#40;DbGoBottom&#40;&#41;&#41;&#125; \n   oLBx&#58;bSkip        &#58;= &#123;|nRecs| FSTOCK-&gt;&#40;DbSkipper&#40;nRecs&#41;&#41;&#125; \n   oLbx&#58;bLine        &#58;= &#123;|| &#123;FSTOCK-&gt;Roll_No,; \n                       FSTOCK-&gt;Qcode,; \n                       FSTOCK-&gt;Location,; \n                      str&#40;FSTOCK-&gt;Quantity,7,2&#41;,; \n                      FSTOCK-&gt;Temp&#125;&#125; \n*/\n[/code:15eipt8p]','',0,'AIA=','15eipt8p',1,0,'',2,0,0),(5684,1371,4,133,0,'80.176.234.174',1138015393,1,0,1,1,1,0,'','','Antonio,\n\nIf I remove that section the LISTBOX only displays the first record.\n\nIf I leave in only the oLbx:bSkip codeblock the entire file is displayed but the scrollbar still does not work until I tap on a different record.\n\nEven once the scroll down button activates the slider hits bottom many records before the eof is reached.\n\nIf it any help I open/close  all required files in the MAIN window at start and end of program use. As stated other browses work as expected.','',0,'AIA=','2xpv81d1',1,0,'',133,0,0),(5685,1364,3,362,0,'200.168.52.156',1138015445,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:vayz8s3o]avs,\n\nPuedes usar la función de FWH nFileCrc( &lt;cNombreFichero&gt; ) --&gt; nCRC\n\nNo se si el valor retornado es exactamente el mismo que el MD5, pero es un CRC con lo que te sirve perfectamente.[/quote:vayz8s3o]\n\n\nBuenos dias Antonio.\n\nEl ejemplo ke tu ti referis, és TESTCRC.PRG???','',0,'gA==','vayz8s3o',1,0,'',362,0,0),(5686,1371,4,133,0,'80.176.234.174',1138017310,1,0,1,1,1,0,'','','Antonio,\n\nLooks as if I have solved it by placing a DbSelectArea(\"FSTOCK\") immediately before the @ 0,0 LISTBOX line.\n\nIt also works perfectly with file filters.\n\nOne to remember!\n\nCheers.','',0,'gA==','2dq82z6b',1,0,'',133,0,0),(5687,1372,7,123,0,'81.39.239.66',1138019154,1,0,1,1,1,0,'','La ventana queda \'atrás\'','Antonio,\n\nEn este código (ejemplo autocontenido)\n\n[code:5kg7zc5s]// FiveWin for Pocket PC - Using DialogBoxes\n\n#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBrush\n\n   local oBtn1\n\n   // -------------&gt; Preguntamos número de vendedor y password\n   IF !Entrada&#40;&#41;\n      MSgInfo&#40;&quot;Dentro del IF&quot;&#41;\n      RETURN &#46;F&#46;\n   ENDIF\n\n   MSgInfo&#40;&quot;Después del if&quot;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;GlobalPda&quot;\n\n   //oBrush &#58;= tBrush&#40;&#41;&#58;New&#40; NIL,, cBmpFile, cBmpRes &#41;\n\n\n\n\n   @ 001, 001 BUTTON oBtn1 PROMPT &quot;Rutas&quot; OF oWnd ;\n              ACTION MsgInfo&#40;&quot;Hola&quot;&#41;  ;\n              SIZE 100, 20 ;\n              PIXEL\n\n\n   @ 120, 001 BUTTON oBtn1 PROMPT &quot;Rutas&quot; OF oWnd ;\n              ACTION MsgInfo&#40;&quot;Hola&quot;&#41;  ;\n              SIZE 100, 20 ;\n              PIXEL\n\n\n   ACTIVATE WINDOW oWnd\n\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\n\n\nFUNCTION Entrada&#40;&#41;\n\n         LOCAL oWnd\n         LOCAL aVendedores &#58;= &#123;&quot;001 - Vendedor 1&quot;,&quot;002 - Vendedor 2&quot; &#125;\n         LOCAL oVendedores\n         LOCAL cVendedor &#58;= aVendedores&#91;1&#93;\n         LOCAL oBtn1\n\n\n         DEFINE WINDOW oWnd TITLE &quot;Entrada&quot;\n\n\n         @ 20, 20 SAY &quot;Vendedor&quot; PIXEL\n         @ 60, 60 COMBOBOX cVendedor ITEMS aVendedores OF oWnd ;\n                  SIZE 20,250 PIXEL\n\n\n   @ 120, 001 BUTTON oBtn1 PROMPT &quot;Salir&quot; OF oWnd ;\n              ACTION oWnd&#58;End&#40;&#41;  ;\n              SIZE 100, 20 ;\n              PIXEL\n\n\n         ACTIVATE WINDOW oWnd\n\nRETURN &#46;T&#46;\n\n[/code:5kg7zc5s]\n\nAl volver de la llamada a la función Entrada, la aplicación se queda \'atrás\' y me aparece la ventana que había antes de llamar a la aplicación.  \n\n¿Como puedo forzar a mostrar la ventana con título \"GlobalPda\" ???\n\nSaludos y gracias,\nJose Luis Capel','',0,'AIA=','5kg7zc5s',1,0,'',123,0,0),(5688,1194,23,52,0,'200.117.39.147',1138020746,1,0,1,1,1,1,'','Das ist eine Idee: Danke Sie zu &quot;FGONDI&quot;','[code:1kyrtk7m]local oBmp\nlocal Gcolumn\n\n\n   oBmp &#58;= LoadBitmap&#40; GetResources&#40;&#41;, &quot;CheckGrant&quot; &#41;\n   Define GColumn oColumns Data \'\' Head \'Texto\' Size 45 PIXELS 3DLOOK TRUE\n\n   oColumns&#58;uBmpCell  &#58;= &#123;|| oBmp&#125;\n   oColumns&#58;nAlign    &#58;= nMakeLong&#40; DT_RIGHT, DT_CENTER &#41;[/code:1kyrtk7m]\n\n\"FGONDI\" - Gracias. por la idea.','',0,'AIA=','1kyrtk7m',1,0,'',52,0,0),(5689,1372,7,2,0,'80.32.22.38',1138021435,1,0,1,1,1,1,'','','Jose Luis,\n\nla primera ventana que se crea ha de ser la ventana principal. Cambia así tu código:\n\n[code:jzecvydq]\n   DEFINE WINDOW oWnd TITLE &quot;GlobalPda&quot; \n\n   IF ! Entrada&#40;&#41; \n      RETURN &#46;F&#46; \n   ENDIF \n\n   &#46;&#46;&#46;\n[/code:jzecvydq]','',0,'AIA=','jzecvydq',1,0,'',2,0,0),(5690,1365,6,179,0,'200.69.181.39',1138021759,1,0,1,1,1,1,'','','Antonio este es lo mas reducido, al final te listo el contenido del archivo Bugmenu.rc que solo tiene dos bitmaps de los samples de Fh\nel prg se llama Bugmenu.prg\n\nUso Fwh 2.7 + xHarbour (Ultima version)\n\n#include \'fivewin.ch\'\n#include \'hbclass.ch\'\n#define SISTEMA  \'José - Rol For Windows Versión 1.0 - Multiuser\'\n\n#define MNU_RL_11     1\n#define MNU_RL_12     2\n#define MNU_RL_13     3\n#define MNU_RL_14     4\n#define MNU_RL_15     5\n#define MNU_RL_16     6\n#define MNU_RL_17     7\n#define MNU_RL_18     8\n#define MNU_RL_19     9\n#define MNU_RL_1A    10\n#define MNU_RL_1B    11\n#define MNU_RL_1C    12\n#define MNU_RL_1D    13\n#define MNU_RL_1E    14\n#define MNU_RL_1F    15\n#define MNU_RL_1G    16\n#define MNU_RL_1H    17\n#define MNU_RL_1I    18\n#define MNU_RL_1J    19\n#define MNU_RL_21    20\n#define MNU_RL_22    21\n#define MNU_RL_23    22\n#define MNU_RL_24    23\n#define MNU_RL_25    24\n#define MNU_RL_26    25\n#define MNU_RL_27    26\n#define MNU_RL_28    27\n#define MNU_RL_29    28\n#define MNU_RL_2A    29\n#define MNU_RL_2B    30\n#define MNU_RL_2C    31\n#define MNU_RL_31    32\n#define MNU_RL_32    33\n#define MNU_RL_33    34\n#define MNU_RL_34    35\n#define MNU_RL_35    36\n#define MNU_RL_36    37\n#define MNU_RL_37    38\n#define MNU_RL_38    39\n\nMemvar oNewRol\n\nFunction Main( NumEmpre )\n\n    Local oAmbiente\n\n    IF Empty( NumEmpre )\n        NumEmpre := \'1\'\n    End\n\n    NumEmpre := Val( NumEmpre )\n\n    IF Empty( NumEmpre )\n        MsgInfo(\'No indico correctamente el número de empresa de trabajo\', SISTEMA)\n        RETURN Nil\n    End\n\n    oAmbiente:= tWg_Ambiente_Rol():New(NumEmpre)\n\n    If oAmbiente:lQuit\n        MsgInfo(\'ha habido un error y no se ejecutara la aplicación\'+CRLF+;\n                \'Consulte al administrador del sistema o llame al\'  +CRLF+;\n                \'099550421-023443605 o email <!-- e --><a href=\"mailto:swrite@uio.satnet.net\">swrite@uio.satnet.net</a><!-- e -->\', SISTEMA)\n        Return Nil\n    End\n\n    Public oNewRol    := tNewRol():New()\n    //rescato lo generado en ambiente\n    oNewrol:aEmpresas := aClone( oAmbiente:aEmpresas )\n\n    oNewrol:Activate() //genero el la ventana el menu y el timer\n\n\n\nReturn Nil\n\n\n*********************************************************\n*  Clase para gestionar el rol de pagos\n*********************************************************\nClass tNewrol\n\n    Data oWnd\n    Data oBrw\n    Data oFont\n    Data oProgress\n    Data cTitle      Init SISTEMA\n    Data lYaEmpre    Init .F.\n    Data oMenu\n    Data aEmpresas\n    Data aDir\n    Data aCaminos\n    Data aPerms      Init Array(100)\n    Data oFont\n\n    Method New()  Constructor\n    Method MakeMenu()\n    Method Activate()\n    Method Timer ( oWnd )\n    Method Timer1( oWnd )\n    Method PongaElTree(oSay)\n    METHOD MyClick(nRow, nCol, oTree)\n    Method Close()\n\nEndClass\n\n\n\n*********************************************************\n*\n*********************************************************\nMETHOD New( ) CLASS tNewRol\n\n    ::aPerms := Afill( ::aPerms , .F. )\n\nReturn Self\n\n*********************************************************\n*\n*********************************************************\nMETHOD Activate( ) CLASS tNewRol\n    Local oSelf := Self\n    LOCAL oFont\n    LOCAL oIcon\n    Local oBmp\n\n\nDEFINE Font ::oFont Name \'Arial\' Bold SIZE 0,-11\n\nDefine Window oSelf:oWnd Title oSelf:cTitle Menu oSelf:MakeMenu() COLOR CLR_BLACK, nrgb(128,200,240)\n\n::PongaElTree( )\n\nActivate Window oSelf:oWnd Maximized On Init oSelf:Timer( oSelf:oWnd )\n\n\nReturn Self\n\n*********************************************************\n*\n*********************************************************\nMethod PongaElTree() Class tNewRol\n\n    Local oSelf      := Self\n    Local oImageList := TImageList():New()\n    Local oBmp1      := TBitmap():Define( \"folder\"  ,, oSelf:oWnd )\n    Local oBmp2      := TBitmap():Define( \"fldMask\" ,, oSelf:oWnd )\n    Local i          := 0\n    LOCAL oTree\n    Local oMsgEmp\n\n   oImageList:Add( oBmp1, oBmp2 )\n\n   oTree = TTreeView():New( 2, 0, oSelf:oWnd, CLR_BLACK ,nrgb(128,200,240), .T., .F., 300, 350, \'Proyectos\' )\n\n   oTree:bLDblClick := { | nRow, nCol, nKeyFlags | oSelf:MyClick( nRow, nCol, oTree ) }\n\n   oTree:SetImageList( oImageList )\n\n   While ++i &lt;= Len( oSelf:aEmpresas )\n       oTree:Add( oSelf:aEmpresas[i] )   ///\n   END\n\n   SET MESSAGE OF oSelf:oWnd TO \'\' NOINSET CLOCK DATE KEYBOARD\n\n   DEFINE MSGITEM oMsgEmp OF oSelf:oWnd:oMsgBar  ;\n         SIZE 310                                ;\n         COLOR CLR_HBLUE                         ;\n         PROMPT \"\"\n\n\n   ::oProgress := TProgress():New(4, 5, oSelf:oWnd:oMsgBar,0,,,.t.,.f.,180,14.7)\n\n\n   Return Self\n\nMETHOD MyClick(nRow, nCol, oTree) CLASS tNewrol\n\n\n   local oItem\n   Local nAt\n   Local oUser\n   local n, lWhen\n   local oItem1\n\n   oItem := oTree:HitTest( nRow, nCol )\n\n   if oItem != NIL\n       nAt := Ascan( ::aEmpresas, oItem:cPrompt )\n\n       aFill( ::aPerms, .T. )\n       ::oWnd:SetMenu( ::MakeMenu() )\n       ::oWnd:Refresh()\n       ::oWnd:Settext( SISTEMA + \'Proy \' + oItem:cPrompt + \' Estación \' + NetName() )\n\n   else\n       MsgInfo( \"No Hallado!\", SISTEMA )\n   endif\n\nRETURN Self\n\n\n*********************************************************\n*\n*********************************************************\nMETHOD Timer( oWnd ) CLASS tNewRol\n\n    local oIco, oTimer, oSelf := Self\n\n    /*\n    static nFrame := 1\n    @ 0.3, 60 ICON oIco RESOURCE \"ICON1\" OF oWnd BORDER\n    DEFINE TIMER oTimer OF oWnd ;\n    INTERVAL 400 ;\n    ACTION ( nFrame := If( ++nFrame &gt; 20, 1, nFrame ) , ;\n             oIco:SetName( \"ICON\" + AllTrim( Str( int(nFrame) ) ) ),;\n             oSelf:Timer1( oSelf:oWnd )   )\n    */\n    DEFINE TIMER oTimer OF oWnd ;\n    INTERVAL 400 ;\n    ACTION ( oSelf:Timer1( oSelf:oWnd )   )\n\n    ACTIVATE TIMER oTimer\n\nReturn Self\n\n\n*********************************************************\n*\n*********************************************************\nMETHOD Timer1( oWnd ) CLASS tNewRol\n\nReturn Self\n\n\n*********************************************************\n*\n*********************************************************\nMETHOD MakeMenu( ) CLASS tNewRol\n\n   Local ctext    := \'\'\n   Local nCount\n   Local oSelf    := Self\n\n   MENU oSelf:oMenu\n      MENUITEM \"&amp;Ingresos a Tablas\"\n      MENU\n         MENUITEM \'&amp;1.- Archivo de Empleados\'                  ACTION  MsgInfo(\'hola\') WHEN oSelf:aPerms[MNU_RL_11] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;2.- Archivo de Rubros\'                     ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_12] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;3.- Archivo de tablas del Iess\'            ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_13] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;4.- Tablas del Impuesto a la Renta\'        ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_14] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;5.- Información del Proyecto\'              ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_15] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;6.- Tabla de Bancos\'                       ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_16] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;7.- Tabla de Departamentos\'                ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_17] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;8.- Tabla de Horas extras\'                 ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_18] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;9.- Procesar el Pre-Rol\'                   ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_19] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;A.- Ingreso de Movimientos Manuales a Rol\' ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1A] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;B.- Borrado de rubros del Pre-Rol\'         ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1B] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;C.- Cierre de Un Período en Pre-Rol\'       ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1C] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;D.- Cierre de Período en Rol Definitivo\'   ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1D] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;E.- Abrir Periodo de pre-rol ya cerrado\'   ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1E] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;F.- Contabilización de un período de rol\'  ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1F] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;G.- Reliquidar un Rubro en roles cerrados\' ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1G] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;H.- Tabla de Números Patronales\'           ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1H] .And. oSelf:lYaEmpre\n         MENUITEM \"&amp;I.- Tabla de Varios Números\"               ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1I] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;J.- Reporte Ajuste Impuesto a la Renta\'    ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_1J] .And. oSelf:lYaEmpre\n         SEPARATOR\n         MENUITEM \"&amp;Salir\"       ACTION oSelf:Close()\n      ENDMENU\n      MENUITEM \"&amp;Listados y Reportes\"\n      MENU\n         MENUITEM \'&amp;1.- Archivo de Empleados\'                  ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_21] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;2.- Imprimir Recibos de Roles\'             ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_22] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;3.- Impresión de Planillas del Iess\'       ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_23] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;4.- Rol Condensado\'                        ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_24] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;5.- DisKette al Banco\'                     ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_25] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;6.- Reporte al Banco\'                      ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_26] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;7.- Decimo Tercero, Cuarto, Quinto Sueldo\' ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_27] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;8.- Reporte de Historico\'                  ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_28] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;9.- Utilidades\'                            ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_29] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;A.- Reporte de Liquidaciones a Personal\'   ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_2A] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;B.- Fondos de reserva\'                     ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_2B] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;C.- Reporte de Roles formulables\'          ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_2C] .And. oSelf:lYaEmpre\n      ENDMENU\n      MENUITEM \"&amp;Mantenimiento\"\n      MENU\n         MENUITEM \'&amp;1.- Sacar Respaldos de Datos\'               ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_31] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;2.- Manejo de Usuarios\'                     ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_32] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;3.- Reindexación de Archivos\'               ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_33] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;4.- Auditoría Informática\'                  ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_34] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;5.- Generador de Reportes de Archivo único\' ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_35] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;6.- Borrado de un período\'                  ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_36] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;7.- Cargar Horas extras y dias tr. de disk\' ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_37] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;8.- Cheques desde Roles\'                    ACTION  MsgInfo(\'Hola\') WHEN oSelf:aPerms[MNU_RL_38] .And. oSelf:lYaEmpre\n         MENUITEM \'&amp;9.- Configurar Impresora\'                   ACTION  PrinterSetUp() //WHEN lYaEmpre\n      ENDMENU\n   ENDMENU\n\n\nRETURN oSelf:oMenu\n\n\nMethod Close() Class tNewrol\n\n    ::oWnd():End()\n    ::oFont := Nil\n    DbCloseAll()\n    Quit\n\nReturn Nil\n\n\n********************************************************************\n* Clase Para Inicializar ambiente de trabajajo\n********************************************************************\n\nClass tWg_Ambiente_Rol\n\n    Data GLB_Work  Init \'\'\n    Data lQuit     Init .F.\n    Data aEmpresas Init {}\n    Data aDir      Init {}\n    Data aCaminos  Init {}\n    Method New()   Constructor\n\nEndClass\n\n\n/*********************************************\n\n\n**********************************************/\nMethod New( nNumEmpresa) Class tWg_Ambiente_Rol\n\nLocal Cnt             := 0\nLocal aTmp\nLocal aTmp1\nLOCAL i\n\nFor i:= 1 To 100\n\n    AADD( ::aEmpresas, \'Empresa \' +  StrZero(i,3) )\n\nNext\n\nReturn Self\n\n\n\n///////////////////// Inicio Archivo BugMenu.Rc ///////////////\n\n/*\nfolder  BITMAP \"c:\\fwh27\\bitmaps\\16x16\\folder.bmp\"\nfldMask BITMAP \"c:\\fwh27\\bitmaps\\16x16\\fldmask.bmp\"\n\n*/\n////////////////////Final /////////////////////////\n\n\nGracias x Tu Ayuda\n\nSaludos','',0,'','2bcrrza6',1,0,'',179,0,0),(5691,1371,4,2,0,'80.32.22.38',1138021759,1,0,1,1,1,1,'','','GWard,\n\nYes, it looks as it was using a wrong workarea. You may use the clause ALIAS when creating the browse, so you may do:\n\n@ ..., ... LISTBOX ... FIELDS .... ALIAS \"FSTOCK\" ...\n\nJust in case you are not selected in the same workarea to use in the browse. This way you don\'t need the DbSelectArea() call.\n \nGlad to know its solved <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2bcrrza6',1,0,'',2,0,0),(5692,1365,6,2,0,'80.32.22.38',1138022240,1,0,1,1,1,1,'','','Wilson,\n\nEsto es lo más reducido posible ? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','32rhzm7b',1,0,'',2,0,0),(5693,1365,6,2,0,'80.32.22.38',1138022955,1,0,1,1,1,1,'','','Wilson,\n\nNo hace falta que crees el menú de nuevo (solo he echado un vistazo al código), para eso está la claúsula WHEN de los menuitems. Cambiando una determinada condición, algunos items estarán activos y otros no. \n\nEso es lo que necesitas ?','',0,'','jpd3etbm',1,0,'',2,0,0),(5694,1364,3,2,0,'80.32.22.38',1138023053,1,0,1,1,1,1,'','','João,\n\nSí, es un ejemplo de uso de nFileCRC()','',0,'','cfcwhfl4',1,0,'',2,0,0),(5695,1365,6,179,0,'200.69.181.39',1138023552,1,0,1,1,1,1,'','','Antonio, el ejemplo que te envie compila sin errores\n\nAhora como lo que cambio es ::aPerms\n\nHe probado de todo\n\n::oWnd:Omenu:Refresh()\nPero nada\n\nSi compilas el ejemplo vas a mirar lo que te indico','',0,'','9g33lcvm',1,0,'',179,0,0),(5696,1365,6,179,0,'200.69.181.39',1138024719,1,0,1,1,1,1,'','','Antonio\npor si acaso ::lYaEmpre := .T.\n\nTampoco hace que se active el menu\n\nSaludos','',0,'','17xw7f4z',1,0,'',179,0,0),(5697,1373,1,299,0,'69.65.88.121',1138025315,1,0,1,0,1,0,'','ADS Local server for Clipper apps?','Hi.\n\nDoes anybody know if the ADS local server is also available to fw+clipper 5.3 apps?\n\nThank you,\n\nReinaldo Crespo-Bazán','',0,'','14oca597',1,0,'',299,0,0),(5698,1230,3,247,0,'213.5.217.89',1138028991,1,0,1,1,1,0,'','Re: Re &quot;Run as Service&quot;','[quote=&quot;richard&quot;:2sigswv5]You might get some joy from this link\n\n<!-- m --><a class=\"postlink\" href=\"http://www.iopus.com/guides/srvany.htm\">http://www.iopus.com/guides/srvany.htm</a><!-- m -->\n\nRichard.[/quote:2sigswv5]\n\nThank you richard .This is great','',0,'gA==','2sigswv5',1,0,'',247,0,0),(5699,1372,7,123,0,'81.39.239.66',1138030574,1,0,1,1,1,0,'','','Antonio,\n\nHe probado tu sugerencia y no he conseguido el resultado esperado.  ¿Tienes algún ejemplo donde pueda probar lo que me indicas?\n\n¿Vas a implementar los diálogos por software?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1kxdpxjj',1,0,'',123,0,0),(5701,1373,1,138,0,'201.128.111.75',1138031530,1,0,1,1,1,1,'','','Reinaldo:\n\nNop, Local server along with ADT table formats, and all the ADS SQL stuff are only available for 32 bits applications.','',0,'gA==','sxm0o69f',1,0,'',138,0,0),(5702,1372,7,123,0,'81.39.239.66',1138032013,1,0,1,1,1,0,'','','Antonio,\n\nFunciona!!  \n\nParece ser que había un problema en la generación del ejecutable buildce informa de que se ha generado el exe correctamente, cuando no ha sido así.','',0,'gA==','3kjc9fsc',1,0,'',123,0,0),(5703,1374,7,123,0,'81.39.239.66',1138032646,1,0,1,1,1,0,'','Bitmaps en una Window','Antonio,\n\nEste código:\n\n[code:2t9rv20o]@ 000, 000 IMAGE oBmp NAME &quot;LOGO&quot; OF oWnd[/code:2t9rv20o]\n\nMe da este error de compilación:\n\n[quote:2t9rv20o]   Creating library globalpda.lib and object globalpda.exp\nglobalpda.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_T\nIMAGE(void)\" (?HB_FUN_TIMAGE@@YAXXZ)\nglobalpda.exe : fatal error LNK1120: 1 unresolved externals\nEl sistema no puede hallar el archivo especificado.\n* Application successfully built[/quote:2t9rv20o]\n\nY este código:\n\n[code:2t9rv20o] @ 000, 000 BITMAP oBmp NAME &quot;LOGO&quot; OF oWnd[/code:2t9rv20o]\n\nMe da el mensaje en ejecución \"Not implemented yet: CreateDIBitmap\"\n\n¿Como puedo colocar un Bitmap (que está en recursos) a una Window?\n\nSaludos,\nJosé Luis Capel','',0,'gIA=','2t9rv20o',1,0,'',123,0,0),(5704,1356,6,255,0,'200.67.134.233',1138033049,1,0,1,1,1,1,'','','No antonio, es todo lo que aparece.\nAlguna idea ???','',0,'gIA=','1bkp53t8',1,0,'',255,0,0),(5705,1373,1,299,0,'69.65.88.121',1138034437,1,0,1,0,1,0,'','','Rene;\n\nThanks for your reply.\n\nBTW -- I\'ve been using the local server for testing of my xharbour apps.  I plan to place an order for the 50 user lic for one of my customers today.  \n\nI have a couple of other questions related to AIS:\n\n1. I like to use a lot of browses, I suppose that browsing of very large dbfs, would be very slow.  \n\n2. I like to use incremental searches on browses.  How would that affect the speed when connected via the AIS?  \n\nWhat alternatives do you suggest to these two problems?\n\nBest,\n\nReinaldo','',0,'gIA=','2raw9qmz',1,0,'',299,0,0),(5706,977,7,95,0,'201.153.135.64',1138034937,1,0,1,1,1,0,'','','Hola Antonio....\n\nEs posible, bajo el emulador echar a andar el Scaner ?\nLa libreria que uso es scnapi32.lib ...\n\nSaludos\nOsvaldo Ramirez','',0,'gIA=','eszi5yx9',1,0,'',95,0,0),(5707,1366,2,404,0,'213.231.101.107',1138035607,1,0,1,1,1,0,'','No alucinas','Puede ser una solución. \n\nPero utilizar TDosPrn, solo para abrir el cajón, no se si lo querrá Francisco.\n\n¿Que opiná Antonio?\n\nSaludos, José Mª','',0,'gIA=','2u1gkh4r',1,1149095627,'',404,1,0),(5708,1370,3,303,0,'68.7.28.54',1138035767,1,0,1,1,1,0,'','','Marco,\n\nYou didn\'t mention if the problem is only with one Outlook 2003 machine or all Outlook 2003 machines.\n\nThe error message makes me think that perhaps that Outlook is not setup as the default MAPI program on that machine. I not exactly sure how to do it with Outlook, but with OE it is under Tools-Options, General Tab, \"Default Message Program\" section.\n\nJames','',0,'gIA=','1v6r4gk3',1,0,'',303,0,0),(5709,1375,6,295,0,'200.112.87.26',1138035772,1,0,1,1,1,1,'','como borrar un archivo en disco?','Amigos :\n\nque comando me permite borrar un archivo en disco??\n\nDe antemano \nGRACIAS\n\nFW27 xHarbour BCC55','',0,'gIA=','1f85sf0c',1,0,'',295,0,0),(5710,1375,6,228,0,'201.245.222.85',1138036121,1,0,1,1,1,1,'','leandro','lafug.\n\nNo se si sea lo que necesitas\n\nFERASE(c:\\mydirectorio\\myarchivo.dbf)','',0,'gIA=','11elnw8o',1,0,'',228,0,0),(5711,1363,6,43,0,'201.127.19.186',1138036302,1,0,1,1,1,0,'','','Hola....dejenme...que tambien...meta...mi..cuchara.....\n\nTambien se puede...acceder a MySQL con la contribucion que viene con xHarbour, puedes...hacer...un ABM (Altas, Bajas y Modificaciones) sin ningun problema, crear bases de datos con sus respectivas tablas, indices, Consultas, etc.\n\nYo la utilizo y me conecto sin ningun problema.\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gIA=','3kttu5kc',1,0,'',43,0,0),(5712,1263,3,303,0,'68.7.28.54',1138036373,1,0,1,1,1,0,'','','Ramesh,\n\n[quote:23cm7eyu]When the dialog is moved beyond the client area, the screen \nunderneath the dialog is getting erased and could not be restored. [/quote:23cm7eyu]\n\nIt sounds like you are diabling the move capability to cover up a programming problem rather to enhance the user\'s experience. This doesn\'t seem like a good solution.\n\nI have never experienced a redraw problem when moving a dialog. This is usually handled automatically by Windows. Are you doing something unsual with the background that isn\'t redrawn?\n\nJames','',0,'gA==','23cm7eyu',1,0,'',303,0,0),(5713,1363,6,228,0,'201.245.222.85',1138036409,1,0,1,1,1,1,'','Descargar ADO','de donde puede descargar un manual o algun ejemplo para el manejo de ADO.','',0,'gA==','1df54uk9',1,0,'',228,0,0),(5714,1353,6,40,0,'200.92.22.46',1138037089,1,0,1,1,1,0,'','','Sr. gracias por sus cañonazos, pero no me funciona, esta muy curiosa la cosa, no puedo almacenar una fecha vacia via ADO. \n\nHe probado :\n\na) ::oRs:Fields(uNameField):Value:=\'  /  /    \'\n\nb) ::oRs:Fields(uNameField):Value:=ctod(\'  /  /    \')\n    ::oRs:Fields(uNameField):Value:=ctod(\' \')\n\nc) ::oRs:Fields(uNameField):Value:=\'NULL\'\n\nd) ::oRs:Fields(uNameField):Value:=NIL\n\ne) dFec:=ctod(\'  /  /    \')\n    ::oRs:Fields(uNameField):Value:=dFec\n\ny no se deja me marca el error : ADODB.RecordSet:Fields/9. LaOperación\nen varios parsos generá errores. Compruebe los valores.... TOLEAUTO:_Value(0)\n\nUn cable por favor\nSauldos \nJoel Andujo','',0,'gA==','wbge2e2q',1,0,'',40,0,0),(5715,1363,6,228,0,'201.245.222.85',1138037106,1,0,1,1,1,1,'','ya los encontre','amigos que pena me acelere...\n\nya los encontre en el mesaje anterior. Rene muchas gracias.','',0,'gA==','13imm87e',1,0,'',228,0,0),(5716,1366,2,228,0,'201.245.222.85',1138037355,1,0,1,1,1,1,'','Lo hago de la siguiente manera','Yo lo hago de la siguiente manera.\n\n   local cDcb, nBytes\n   local nComm := OpenComm( \"COM1\", 1024, 128 )\n   local nError\n\n   if ! BuildCommDcb( \"COM1:3000,n,8,1\", @cDcb )\n      nError = GetCommError( nComm )\n   endif\n\n   if ! SetCommState( cDcb )\n      nError = GetCommError( nComm )\n   endif\n\n   if ( nBytes := WriteComm( nComm, \"ATZ0\" + Chr( 13 ) ) ) &lt; 0\n      nError = GetCommError( nComm )\n   else\n   endif\n\n   if FlushComm( nComm, 0 ) != 0\n      nError = GetCommError( nComm )\n   endif\n\n   if ! CloseComm( nComm )\n      nError = GetCommError( nComm )\n   endif\n\n\nEspero te sirva','',0,'gA==','3femtqj7',1,0,'',228,0,0),(5718,1372,7,2,0,'80.32.22.38',1138039445,1,0,1,1,1,1,'','','Jose Luis,\n\nMe alegro de que esté solucionado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3sjuznvy',1,0,'',2,0,0),(5719,1374,7,2,0,'80.32.22.38',1138039607,1,0,1,1,1,1,'','','Jose Luis,\n\nDe momento hazlo como en el tutor11.prg. gracias.','',0,'gA==','3sszgepc',1,0,'',2,0,0),(5720,1370,3,29,0,'87.7.175.91',1138040194,1,0,1,1,1,0,'','','James,\nthanks you for your suggestion,\nhowever Outlook 2003 is the default MAPI program and\nthis problem appair on ALL computers with Outlook 2003. \n\nAll runs fine with Outlook 2000 instead.\n\nMarco','',0,'gA==','2eg5w4ki',1,0,'',29,0,0),(5721,1374,7,123,0,'81.39.239.66',1138040329,1,0,1,1,1,0,'','','Antonio,\n\nGracias!!  \n\nQuedo a la espera de la implementación de bitmaps por recursos.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','3a0uxt92',1,0,'',123,0,0),(5722,1354,3,303,0,'68.7.28.54',1138040479,1,0,1,1,1,0,'','','Antonio,\n\nI found the problem, but I still don\'t know the solution. I had created the ACE32.LIB as you showed me, but the ACE32.DLL was still in the same directory as my test code. When I compiled the test code under Harbour it ran OK. But when I compiled under xHarbour I got the PCODE error.\n\nI copied the test code to a new test directory and compiled and linked the test again and I got an ACE32.DLL not found error (even though I am linking in the ACE32.LIB). I put a copy of ACE32.DLL in the same directory and that error went away and I got the PCODE error. So, it seems that it still wants the ACE32.DLL even though I am linking in the ACE32.LIB. And the ACE32.DLL is causing the PCODE error.\n\nAny ideas how to fix this?\n\nJames','',0,'gA==','f8dqk797',1,0,'',303,0,0),(5723,1376,20,125,0,'213.140.6.105',1138040705,1,0,1,1,1,0,'','Attivazione stili XP','Salve,\npiu\' di qualche cliente mi dice \' ma il tuo software ha una vecchia interfaccia Win95\'.....\n\nVi chiedo: e\' possibile attivare gli stili XP per i Button,Menu,Window ecc... senza grossisime modifiche ?\n\nGrazie','',0,'gA==','3c5qdkcy',1,0,'',125,0,0),(5724,977,7,2,0,'80.32.22.38',1138040868,1,0,1,1,1,1,'','','Osvaldo,\n\nSupongo que el escaner tienes que conectarlo fisicamente, no ? Donde lo conectas en el Pocket PC ?\n\nLa aplicación si te funcionará en el emulador, pero no creo que encuentre el escaner.','',0,'gA==','3ne4ab0q',1,0,'',2,0,0),(5725,1374,7,2,0,'80.32.22.38',1138041059,1,0,1,1,1,1,'','','Jose Luis,\n\nDe momento, desde recursos puedes usar botones TBtnBmp con imágenes desde recursos. Revisa el ejemplo samples\\TestBmp.prg.','',0,'gA==','17zwb3s6',1,0,'',2,0,0),(5726,1373,1,138,0,'201.128.111.75',1138041338,1,0,1,1,1,1,'','','[quote=&quot;reinaldocrespo&quot;:2y5pgm9r]\n\n1. I like to use a lot of browses, I suppose that browsing of very large dbfs, would be very slow.  \n\n[/quote:2y5pgm9r]\n\nNo Way !!!!, I have a program that actually browses 24 databases AT THE SAME TIME, database size are abot 200,000 records and they are pretty damn fast.\n\nThe secret is to open ALL THE FILES you are going to need at the begining of the application, and let all the files opened until you close the app.\n\nADS only deploys the exactly amount of record images you need. For example if your browse only shows 20 lines, ADS wil provide you 20 lines of data, no matter that you dbf has millions of records and you will recieve the data needed as you move over the file. If you wish to \"read ahead\" data, in order to have it ready when you perform a page-up/page-down action, you can use ADSCacheRecords() function to indicate how many records does ADS have to read in advance.\n\n[quote=&quot;reinaldocrespo&quot;:2y5pgm9r]\n2. I like to use incremental searches on browses.  How would that affect the speed when connected via the AIS?  \n[/quote:2y5pgm9r]\n\nHe he he, Incremental searches are solved by the server itself, so you don\'t have to worry about speed, all the searches no matter if the server is local, remote or internet are solved at leats ten times faster than the way (x)Harbour does with the RDD, you may experiment some delay specially in the Internet server if you have to do too many jumps to reach the server you want, my best advice in these cases is to use a VPN, having a VPN you will have a speed similar to you LAN.','',0,'gA==','2y5pgm9r',1,0,'',138,0,0),(5727,1354,3,2,0,'80.32.22.38',1138041890,1,0,1,1,1,1,'','','James,\n\nace32.lib does not contains code. It is an \"import library\" to access ace32.dll\n\nThe pcode error does not comes from ace32.dll. It comes from one of your compiled PRGs or one of the xharbour used PRGs.','',0,'gA==','3hnfjwy7',1,0,'',2,0,0),(5728,1366,2,2,0,'80.32.22.38',1138041986,1,0,1,1,1,1,'','','La forma en que lo hace Leandro está muy bien.','',0,'gA==','16zaxblo',1,0,'',2,0,0),(5729,1373,1,299,0,'69.65.88.121',1138042165,1,0,1,0,1,0,'','','Pues bien!\n\nTodo resuelto ( o listo el pollo como diría Vikthor).\n\nTe daré noticias cuando tenga todo listo.\n\nRecibe un saludo,\n\n\nReinaldo.','',0,'gA==','ajanfjof',1,0,'',299,0,0),(5730,1356,6,2,0,'80.32.22.38',1138043676,1,0,1,1,1,1,'','','Juan Carlos,\n\nUsas Harbour ó xHarbour ? Desde cuando han empezado esos GPFs ? Tienes forma de reproducirlos ?','',0,'gA==','3fo7myp6',1,0,'',2,0,0),(5731,1376,20,6,0,'87.6.213.214',1138043699,1,0,1,1,1,1,'','Re: Attivazione stili XP','Il modo più semplice è quello di prendere il manifest file, rinominarlo come il tuo EXE + .manifest e copiarlo nella stessa cartella del tuo EXE.\n\nEMG','',0,'gA==','3gsv4s9i',1,0,'',6,0,0),(5732,1377,6,138,0,'201.128.111.75',1138044007,1,0,1,1,1,1,'','CASE Studio 2, para diseño y modelado de base de datos','Hola a todos:\n\nHace un rato estaba navegando en la pagina de ADS, y me encontre con esta excelente herramienta para diseño de bases de datos SQL:\n\n[url:2erdk7lq]http&#58;//www&#46;casestudio&#46;com[/url:2erdk7lq]\n\nPara los que no sepan que es CASE, son las iniciales de Computer Aided Software Engineering, o Ingenieria de Software Auxiliada por Computadora.\n\nLo que me gusto muchísimo es que soporta diseño de practicametne cualquier producto SQL, y no SQL, porque soporta diseño para Clipper 5.x, Advantage Database Server y los favoritos SQL de los programadores (x)Harbour: MySQL, Access, FireBird y SQL Server.\n\nGenera diagramas entidad relacion, relaciones multiples, integridad referencial, crea las tablas y todo lo necesario para un buen diseño de bases de datos.','',0,'EA==','2erdk7lq',1,0,'',138,0,0),(5733,1354,3,303,0,'68.7.28.54',1138044051,1,0,1,1,1,0,'','','Antonio,\n\nOK, so if I understand it correctly I need both the ASC32.DLL and the ACE32.LIB?\n\nMy entire test program has been narrowed down to this?\n\n[code:2veasyel]function main&#40;&#41;\n   msgInfo&#40;&quot;start&quot;&#41;\n   request _ads\nreturn nil[/code:2veasyel]\n\nWhen the program is run it errors out with the PCODE error before it even gets to the msgInfo(). I am compiling this with xHarbour 0.99.3 (using the original binaries). I am not compiling any other PRGs. I am using the buildx.bat file.\n\nThere are three C modules in the RDDADS.LIB, ads1.c, adsfunc.c, and adsmgmnt.c. These C modules are those that came with the xHarbour contrib source. There were no PRGs. I compiled the C modules into OBJ\'s using Borland C and then put them all into the RDDADS.LIB.\n\nI don\'t know C. When I look in ADS1.C it looks like hand coded C to me. When I look in both ADSFUNC.C and ADSMGMNT.C they look like they may have been compiled into C using Harbour or xHarbour since they contain a lot of \"HB_FUNC\" code. Is this maybe the problem, they were compiled into the C modules that I have, but the PRG\'s were not included? If so, does anyone know who wrote that code and/or where I could get the PRGs?\n\nJames','',0,'AIA=','2veasyel',1,0,'',303,0,0),(5734,1370,3,303,0,'68.7.28.54',1138044357,1,0,1,1,1,0,'','','Marco,\n\nOK.\n\nI have found MAPI to be very picky about the format of the data. So, you might try creating the very simplest message you can (using no arrays) and see if you can get that to work with Outlook 2003. If so, then you can add back more parameters until you find the one creating the error.\n\nJames','',0,'AIA=','pp4xkb0v',1,0,'',303,0,0),(5735,1378,3,63,0,'80.58.35.107',1138044707,1,0,1,1,1,0,'','Detecting mouse click out of a window','Is there any function to detect LClick of RClick on any place of the screen?.  What I am trying to do is to find a function that returns the cursor absolute coordinates  (with GetCursorPos()) when I press LClick(), irrespective of any window.\n\nThanks\nRafael','',0,'AIA=','3lv7k5nj',1,0,'',63,0,0),(5736,1376,20,125,0,'213.140.6.105',1138046342,1,0,1,1,1,0,'','','Grande!!\n\nMa quale file prendere estattamente, poiche\' nel mio pc ce ne sono tantissimi  (.manifest) io ho preso un \'XPTheme.manifest\' andra\' bene questo o c\'e\' ne e\' uno in particolare ?\n\nPiscicelli/Zingoni','',0,'AIA=','yvg5nbnl',1,0,'',125,0,0),(5737,1370,3,343,0,'204.57.111.194',1138047376,1,0,1,1,1,0,'','','I use Outlook 2003 and FWH Mapi just fine.','',0,'AIA=','39982eg8',1,0,'',343,0,0),(5738,1376,20,6,0,'87.6.213.214',1138050330,1,0,1,1,1,1,'','','Che io sappia uno vale l\'altro.\n\nEMG','',0,'AIA=','2u8fith2',1,0,'',6,0,0),(5739,1376,20,6,0,'87.6.213.214',1138050407,1,0,1,1,1,1,'','','Tieni presente che se il tuo EXE si chiama PIPPO.EXE allora il manifest file si deve chiamare\n\n PIPPO.EXE.manifest\n\nEMG','',0,'AIA=','1gqovn5e',1,0,'',6,0,0),(5740,1370,3,303,0,'68.7.28.54',1138052500,1,0,1,1,1,0,'','','Marco,\n\nI am wondering about this: \n\nfor i:=1 to len(aFrom) \naFrom[i,1]:=alltrim(aFrom[i,2]) \naFrom[i,2]:=alltrim(aFrom[i,2]) \nnext \n\nFirst I was confused by the use of \"aFrom.\" But I see that this is really an array of recipients (To), not senders (From). You are passing it in the recipent position so I guess that works OK regardless.\n\nThe second line looks like it might be a typo. You are overwriting the name with the address. Is that what you meant to do? This might be causing an error. Perhaps you meant the line to be:\n\naFrom[i,1]:=alltrim(aFrom[i,1])\n\nYou can use an address without a name, but I\'m not sure if you can put an address in both places in the array.\n\nJames','',0,'','22pik32y',1,0,'',303,0,0),(5741,1363,6,147,0,'208.51.141.113',1138054859,1,0,1,0,1,1,'','','Dos buenos lugares para visitar:\n[url]http://mysql.conclase.net/curso/index.php?cap=000\n[/url]\n[url]http://www.mysql-hispano.org/index.php\n[/url]','',0,'','r7dwqcww',1,0,'',147,0,0),(5742,1379,6,147,0,'208.51.141.113',1138056188,1,0,1,0,1,1,'','O.T.:  UE Studio','Saben los que lo usan si puedo indicar que el ejecutable se enlace en una carpeta distinta de las por defecto (\\Debug o \\Release) ?\n\ngracias','',0,'','3m2smogb',1,0,'',147,0,0),(5743,1377,6,391,0,'201.221.140.82',1138057968,1,0,1,1,1,1,'','Gracias Rene','Le daremos un vistazo con mucho gusto','',0,'','39xm19yx',1,0,'',391,0,0),(5744,1376,20,125,0,'213.140.6.112',1138058110,1,0,1,1,1,0,'','','Ok !\nSai dove posso trovare maggiori informazioni su tale argomento?\nGrazie','',0,'','38g1l3ld',1,0,'',125,0,0),(5745,1366,2,73,0,'201.138.166.223',1138063166,1,0,1,1,1,0,'','Re: apertura cajon de dinero','mmm gracias a todos, leandro nomas que no use puertos com lo tengo por lpt1 en una miniprinter epson tmu220, el caso es que no quiero cambiar el codigo y escribirlo de nuevo, unicamente quiero agregarle esa ocpion.\nGracias a todos','',0,'','2g8ncbm7',1,0,'',73,0,0),(5746,1354,3,2,0,'80.32.22.38',1138064272,1,0,1,1,1,1,'','','James,\n\nThe problem must be in the xharbour build libraries that you are using.\n\nPlease download xharbour from here:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\n\nand use buildx.bat to build this sample:\n\nfunction main() \n   request ads \n   ? \"ok\"\nreturn nil\n\nPlease notice that in your buildx.bat you have to add hbsix.lib and dbffpt.lib','',0,'','2b9lrhjj',1,0,'',2,0,0),(5747,1378,3,2,0,'80.32.22.38',1138064537,1,0,1,1,1,1,'','','Rafael,\n\nThere are two ways to do it:\n\n1. You may capture the mouse, so all the mouse events get routed to your window, until you release the mouse capture.\n\n2. You may use a timer to call GetCursorPos() to know the mouse position on a certain time interval.','',0,'','zvmcefra',1,0,'',2,0,0),(5748,1379,6,2,0,'80.32.22.38',1138064768,1,0,1,1,1,1,'','','Mario,\n\nPuedes hacer un copy, despues de que el enlazador construya el EXE, para que lo lleve al directorio que desees.','',0,'','no8v7rel',1,0,'',2,0,0),(5749,1354,3,303,0,'68.7.28.54',1138065841,1,0,1,1,1,0,'','','Antonio,\n\nAfter compiling with the newer version of xHarbour I get this error:\n\nError: Unresolved external \'_hb_stack\' referenced from c:\\fhw\\lib\\fivehc.lib:ffwndrun\n\nI tried not linking in fivehc.lib, but then I get the same error refering to ADS1 instead.\n\nSo, I guess I can\'t do this without upgrading to the newer version of FWH.\n\nJames','',0,'','34xnnueu',1,0,'',303,0,0),(5750,1380,6,215,0,'201.137.125.227',1138078784,1,0,1,1,1,0,'','Calculo del RFC México','Saludos Colegas,\nechandole un vistazo a las antiguas news encontré que ya alguien había solicitado lo mismo. \nLa rutina para calcular el RFC ¿Está posteada en algún lugar?\n\nGracias\nFernando Leal\nMéxico, DF','',0,'','gmkruxrc',1,0,'',215,0,0),(5751,1376,20,6,0,'82.59.197.142',1138088254,1,0,1,1,1,1,'','','Sicuramente sulla MSDN ma non ti so dire esattamente dove.\n\nEMG','',0,'','2bx9e8d7',1,0,'',6,0,0),(5752,1378,3,63,0,'80.58.35.107',1138089599,1,0,1,1,1,0,'','','Antonio:\n\n1.- Yes, but how can I capture the mouse all over the desktop?.  I want to click anywhere in the screen and get its coords. For example:\n\nhWnd := GetDesktopWindow()    // Handle to the desktop\noWnd:bLClicked := {|r,c| MsgInfo(\"Clicked at \"+STR(x)+STR(y)}\n\nBut how can I get oWnd from hWnd?  I tried oWnd := oWndFromhWnd(hWnd) but it returns NIL\n\n\n2.- GetCursorPos() works fine.  The problem is capturing the click.\n\nRafael','',0,'','ardzynyk',1,0,'',63,0,0),(5753,1263,3,190,0,'202.65.134.28',1138091368,1,0,1,1,1,0,'','','Mr.James\n\nThank you for your analysis. I have resolved the problem of client area,\nundereneath the dialog, getting erased, when the dialog is moved.  \n\n&gt;It sounds like you are diabling the move capability to cover up a \n&gt;programming problem rather to enhance the user\'s experience. This \n&gt;doesn\'t seem like a good solution. \n\nSorry!.  It is not to cover up any problem as such.  My application is \ndesigned purely in SDI environment.  And there is no need to move any \ndialog(s) from their orginal places painted on the Client area of Main \nWindow.  By disabling the Move, I am preventing my users to play with \nthe mouse to move the dialogs here and there.  By doing so I don\'t think\nthat I am effecting the user\'s experience in windows.\n\nThough it is not the Standard way of Windows, some times I feel it is not \nwrong to such things like the way we always can\'t stick to ORMALISATION \nrules while designing databses keeping the speed of the application in \nmind.\n\nRegards,\n\n- Ramesh Babu P','',0,'','3tv9r1ya',1,0,'',190,0,0),(5754,1194,23,130,0,'141.51.32.24',1138091959,1,0,1,1,1,0,'','','Hallo,\n\nich glaube jpg wird nicht direkt unterstützt, allerdings weiß ichs für Version 7 nicht genau, da ich bisher nur Version 6 nutze. Vielleicht kannst du die Grafik mit TImage einlesen und dann in TsBrowe weiterverarbeiten.\n\nLäuft die Version 7.01 denn stabil bei dir ? Ich  hab nur Ärger damit gehabt (nicht initialisierte Variable und anderre Runtime-Errors) ?\n\nGruß\nStefan','',0,'','5imvum9l',1,0,'',130,0,0),(5755,1378,3,2,0,'80.32.22.38',1138096220,1,0,1,1,1,1,'','','Rafael,\n\nTo capture the mouse you use SetCapture():\n\nThe SetCapture function sets the mouse capture to the specified window belonging to the current thread. Once a window has captured the mouse, all mouse input is directed to that window, regardless of whether the cursor is within the borders of that window. Only one window at a time can capture the mouse. \n\nYou may do:\n\n[code:1mrhaxv8]oWnd&#58;Capture&#40;&#41;\noWnd&#58;bLClicked &#58;= &#123;|r,c| MsgInfo&#40;&quot;Clicked at &quot;+STR&#40;x&#41;+STR&#40;y&#41;&#125;\n[/code:1mrhaxv8]\n\noWnd is your window. Not the desktop window.\n\nFrom that moment on, any click, anywhere on the screen, will be routed to your oWnd:bLClicked codeblock. Same for bLButtonUp, bMButtonDown, bMButtonUp, bRClicked, bRButtonUp, bLDblClick.\n\nTo release the capture, you call ReleaseCapture() (no parameters).\n\nThe coordinates you will get are relative to the window that has captured the mouse, so if you want to locate another window from a click then you have to use WindowFromPoint( nRow, nCol ) --&gt; hWnd. To locate a specific child control use ChildWindowFromPoint( hWndParent, aPoint ) where aPoint is { nRow, nCol }.','',0,'AIA=','1mrhaxv8',1,0,'',2,0,0),(5756,1381,3,419,0,'198.54.202.210',1138096265,1,0,1,1,1,0,'','&quot;Modal&quot; MDI Child Window?','Is there any way of opening and displaying an MDI Child Window that a user cannot minimize, maximize, resize, move etc. etc. (almost like a Modal Dialog Box).\n\nAlso the user must not be able to click out of this window i.e. the user has to close the window described above before continuing.\n\nDale.','',0,'AIA=','2ae07gl3',1,0,'',419,0,0),(5757,1381,3,2,0,'80.32.22.38',1138096572,1,0,1,1,1,1,'','','Dale,\n\nYou may disable the main window and other child windows, so the user will not be able to click on them:\n\noWndMain:Disable()\noWndChild1:Disable()\n...\n\nSo just your selected mdichild window will be available. Once you are done, then enable them again doing:\n\noWndMain:Enable()\noWndChild1:Enable()\n...\n\nIf you want that the user don\'t resize it, maximize it, etc. then better use a modal dialog box.','',0,'AIA=','1r3zoheo',1,0,'',2,0,0),(5758,1354,3,2,0,'80.32.22.38',1138096788,1,0,1,1,1,1,'','','James,\n\n&gt; Error: Unresolved external \'_hb_stack\'\n\nYes, that error is caused by recent changes in both harbour/xharbour. A new fivehc.lib is required.\n\nBut to test the above sample I mentioned, you don\'t need FWH. Please run that test to check if you are using a right xharbour build.','',0,'AIA=','jxiic1x3',1,0,'',2,0,0),(5759,1312,3,26,0,'213.250.63.147',1138098749,1,0,1,1,1,0,'','','(message deleted)','',0,'AIA=','3t6a89p2',1,1138098945,'',26,1,0),(5760,1312,3,26,0,'213.250.63.147',1138098767,1,0,1,1,1,1,'','','Hello!\n\nI noticed that Advantage uses its own Upper()/Lower() implementation \n(Advantage Expression Engine), which is different than Harbour\'s.\n\nAdvantage takes into account \'Windows Locale\" setting\n<!-- m --><a class=\"postlink\" href=\"http://www.cryer.co.uk/brian/windows/info_windows_locale_table.htm\">http://www.cryer.co.uk/brian/windows/in ... _table.htm</a><!-- m -->\nwhile Harbour behaves like old 16-bit Clipper. Is it possible to \nchange behaviour of Upper/Lower in Harbour (something like SET \nCODEPAGE TO WIN1250, for example)?\n\nRoman','',0,'AIA=','1g65q932',1,0,'',26,0,0),(5761,1157,3,26,0,'213.250.63.147',1138099328,1,0,1,1,1,1,'','','Hello!\n\n[quote:13iaf4i0]Go to the CVS source repository.[/quote:13iaf4i0]\n\nOh, I see! \n<!-- m --><a class=\"postlink\" href=\"http://cvs.sourceforge.net/viewcvs.py/harbour-project/harbour/\">http://cvs.sourceforge.net/viewcvs.py/h ... t/harbour/</a><!-- m -->\n\nBTW, I\'ve found two small bugs in alert &amp; achoice so I\'ve \nsubscribed to the harbour mailing list \n<!-- m --><a class=\"postlink\" href=\"http://lists.harbour-project.org/pipermail/harbour/2006-January/001075.html\">http://lists.harbour-project.org/piperm ... 01075.html</a><!-- m -->\nand posted corrections to the list. I hope that \nsomeone will incorporate them into CVS.\n\nRegards, Roman','',0,'gA==','13iaf4i0',1,0,'',26,0,0),(5762,1365,6,179,0,'200.69.181.39',1138101864,1,0,1,1,1,1,'','','Antonio y OsKar gracias\nEl problema no era ni Fwh ni xHarbour sino Yo\nNo estaba activada una variable en momento de escoger\nGracias y perdon por hacerles perder el tiempo\npor cierto funciona de maravilla y no se requiere definir nuevamente el menu, basta con\n\n::oWnd:oMenu:Refresh()\n\nSaludos','',0,'gA==','2byc1chw',1,0,'',179,0,0),(5763,1382,6,84,0,'80.58.11.235',1138102604,1,0,1,1,1,0,'','Zip en Harbour','Hola a todos.\n\nAlguien sabe como puedo crear ficheros Zip con Harbour y Microsoft C++.\n\nSaludos.','',0,'gA==','hxsk80ln',1,0,'',84,0,0),(5764,1376,20,125,0,'213.140.6.105',1138105506,1,0,1,1,1,0,'','','Grazie Mille','',0,'gA==','iktrnrq4',1,0,'',125,0,0),(5765,1340,6,203,0,'200.107.2.100',1138107861,1,0,1,1,1,1,'','txbrowse ejemplos','oSkar\nsi no es molestia me podrias ayudar con un ejemplo de como insertar un reg. \n\nsi no donde puedo conseguir ejemplos con txbrowse, si puedes enviamelos mi correo es :\n\n<!-- e --><a href=\"mailto:easysoft@andinanet.net\">easysoft@andinanet.net</a><!-- e -->\n\n\nSaludos \nOscar','',0,'gA==','1leasfj1',1,0,'',203,0,0),(5766,1294,19,123,0,'83.53.67.91',1138110640,1,0,1,1,1,0,'','','Hola a todos,\n\nOs recuerdo que el próximo 28 hacemos nuestra primera reunión del 2006 en Murcia.  Os ruego que si estáis interesados me lo confirméis por correo a capelsoft ARROBA terra punto es.\n\nUna reseña de la reunión en <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->\n\nOs espero!!\nSaludos,\nJosé Luis Capel','',0,'gA==','25kqxg0g',1,0,'',123,0,0),(5767,1370,3,29,0,'87.7.175.91',1138112214,1,0,1,1,1,0,'','','Hi James,\nI copied the email address into the email name position because sometime an empty email name crash the email client.\n\nHowever I made this self contained sample that show the problem.\nThis sample send an email to an email address,\nthe compose window of Outlook 2003 appair,\nI send the email pressing the send button\nbut then Outlook after tried to send the email give me the error \"No account available ....\"\n\nDo this sample succesfully runs for you ?\nDo I need to include any special lib in xHarbour compilation in order to succesfully access at the MAPI system ?\n\n&lt; For Gale - Could you send me a working sample to send an email ?&gt;\n\nThanks in advance,\n\nMarco\n\n***\n\n#include \"FiveWin.ch\"\n#include \"Mail.ch\"\n\nfunction Main\n\nlocal cSubject,cBody,aTo,aFiles\n\ncSubject:=\"Send an email through Outlook 2003\"\n\ncBody:=\"Text of mail.\"\n\naTo:=array(0,2)\naadd(aTo,{\"marco\",\"info@softwarexp.co.uk\"})\n\naFiles:={}\n\nInteractiveMessage(cSubject,cBody,aTo,aFiles)\n\nreturn nil\n\nfunction InteractiveMessage()\nparamet cSubject,cBody,aTo,aFiles\n\n    local oMail\n\n    oMail:=tMail():New( cSubject,cBody,,,,, .f., .t.,,aTo,aFiles)\n\n    ACTIVATE MAIL oMail\nreturn nil','',0,'gA==','17pf6lv0',1,0,'',29,0,0),(5768,1383,6,328,0,'200.12.61.91',1138113209,1,0,1,1,1,0,'','Imprimir en impresora PDF...','Hola a todos.\nTengo instalado una impresoa PDF, para que me genere archivos PDF de los reportes que se deseen, eso funciona bien, solo que cada vez que manda a la impresora me pregunta el nombre del archivo, por lo que les pregunto, si hay alguna forma de enviar \"n\" reportes con su nombre desde el programa para que se generen en formato PDF, sin estar colocando el nombre de cada uno de ellos ?\n\nGracias por su ayuda.\n\nCarlos Sincuir','',0,'gA==','erxbvxw5',1,0,'',328,0,0),(5769,1157,3,2,0,'80.32.22.38',1138114351,1,0,1,1,1,1,'','','Roman,\n\nYes, surely someone will include your fixes in the CVS files. Thanks!','',0,'gA==','1zusnva5',1,0,'',2,0,0),(5770,1365,6,2,0,'80.32.22.38',1138114433,1,0,1,1,1,1,'','','Wilson,\n\nMe alegro de que lo hayas solucionado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','jti5el8r',1,0,'',2,0,0),(5771,1377,6,131,0,'81.37.204.45',1138114798,1,0,1,1,1,0,'','re:','Rene:\nHas probado Dezign for databases - <!-- m --><a class=\"postlink\" href=\"http://www.datanamic.com/dezign/\">http://www.datanamic.com/dezign/</a><!-- m --> ?\nQue mejoras trae sobre él ?\n\nSaludos,','',0,'gA==','357uu851',1,0,'',131,0,0),(5772,1263,3,303,0,'68.7.28.54',1138117006,1,0,1,1,1,0,'','','[quote:2wvhr735]It is not to cover up any problem as such. [/quote:2wvhr735]\nSorry, my misunderstanding. I thought you wanted to do it because the background wasn\'t being repainted properly.\n[quote:2wvhr735]And there is no need to move any dialog(s) from their orginal places painted on the Client area of Main Window. By disabling the Move, I am preventing my users to play with the mouse to move the dialogs here and there. By doing so I don\'t think that I am effecting the user\'s experience in windows.[/quote:2wvhr735]\nWell, personally, as a user, I would not like that one bit. I do like to move the dialogs even on SDI apps. Sometimes you need to move a dialog so you can see another app you are working with at the same time.\n\nIn my apps I even set them up to remember where the user last moved the dialog and it opens it in the same place the next time. My users like this.\n\nHave you asked your users what they think about not being able to move the dialogs?\n[quote:2wvhr735]Though it is not the Standard way of Windows, some times I feel it is not wrong to such things like the way we always can\'t stick to ORMALISATION rules while designing databses keeping the speed of the application in mind.[/quote:2wvhr735]\nWhile I don\'t disagree that sometimes one should violate the Windows standards, I think you should only do it if you have a [b:2wvhr735]really[/b:2wvhr735] good reason.\n\nJames','',0,'wA==','2wvhr735',1,0,'',303,0,0),(5773,1354,3,303,0,'68.7.28.54',1138117831,1,0,1,1,1,0,'','','[quote:6mv6066i]But to test the above sample I mentioned, you don\'t need FWH. Please run that test to check if you are using a right xharbour build.[/quote:6mv6066i]\n\nI did run your test, compiled with buildx.bat. That is when I got the error. Then I removed fivehc.lib from the buildx.bat file, and I still got the error because apparently ADS1.C is calling _hb_stack also.\n\nHowever, Rick Lipkin set me a new set of files, ace32.lib, ace32.dll, and rddads.lib and they ran without the error I have been getting. Unfortunately, I cannot connect to the remote server when using them. I can connnect using the same code when compiled with Harbour.\n\nSo, it seems, I have traded one problem for another. I\'ll have to keep working on it.\n\nJames','',0,'gA==','6mv6066i',1,0,'',303,0,0),(5774,1370,3,303,0,'68.7.28.54',1138118738,1,0,1,1,1,0,'','','Marco,\n\nI tested your example and it worked fine for me with OE. I do not have Outlook 2003 running on a machine here to test it with.\n\nI do note that you are passing an empy array for aFiles. I would set it to nil if there are no files. I don\'t know if this could be a problem or not. \n\nI have also found that when you do specify a filename it must contain the complete path. Without the path you get no message dialog or error--at least with some versions of Outlook.\n[quote:31v4zldj]I send the email pressing the send button but then Outlook after tried to send the email give me the error \"No account available ....\" [/quote:31v4zldj]\nThis message sounds like Outlook was never setup to attached to a mail server. Can you send a normal mail from the same machine? It only gives this message when you send mail via MAPI?\n\nJames','',0,'gA==','31v4zldj',1,0,'',303,0,0),(5775,1384,6,43,0,'201.127.19.186',1138118807,1,0,1,1,1,0,'','Splitter en Ventana MDI','Hola\n\n   Antonio, ya esta resuelto el problema de los splitter en una ventana MDI\n\nSaludos\n\n   Marco A. Delgado.','',0,'gA==','2qmjq3pn',1,0,'',43,0,0),(5776,1380,6,40,0,'200.56.160.187',1138119259,1,0,1,1,1,0,'','','Fernando, esta usamos nosotros espero te sirva\n\nSaludos\nJoel Andujo\n\n[code:3nkg4cx1]\n*----------------------------*\nFunc RFC_Val&#40;xvar&#41;\n rfccad&#58;=upper&#40;xvar&#41;\n xvar  &#58;=rfccad\n rfccad&#58;=strtran&#40;rfccad,\'-\',\'\'&#41;\n if empty&#40;left&#40;rfccad,4&#41;&#41;\n    tone&#40;300,2&#41;\n    if msgyesno&#40;\'R&#46;F&#46;C&#46; No Válido, ¿ Continuar ?\',\'Seleccione Opción&#46;&#46;&#46;\'&#41;\n       retu&#46;t&#46;\n    endi\n    retu&#46;f&#46;\n endi\n if ctod&#40;subs&#40;rfccad,9,2&#41;+\'/\'+subs&#40;rfccad,7,2&#41;+\'/\'+subs&#40;rfccad,5,2&#41;&#41;=ctod&#40;\'  /  /    \'&#41;\n    tone&#40;300,2&#41;\n    msgalert&#40;\'Fecha del R&#46;F&#46;C&#46; no es válida\',\'Aviso&#46;&#46;&#46;\'&#41;\n    retu&#46;f&#46;\n endi\n if Digit_Ver&#40;rfccad&#41;&lt;&gt;right&#40;rfccad,1&#41;\n    tone&#40;300,2&#41;\n    if msgyesno&#40;\'R&#46;F&#46;C&#46; No Válido, ¿ Continuar ?\',\'Seleccione Opción&#46;&#46;&#46;\'&#41;\n       retu&#46;t&#46;\n    endi\n    retu&#46;f&#46;\n endi\nretu&#46;t&#46;\n\n*-------------*\nstat proc Digit_Ver&#40;&#41;\n para gx_rfc\n local digv&#58;=\'\',gx_asc&#58;=0,gx_car&#58;=0,gx_sum&#58;=0,gx_pos&#58;=0\n for yy&#58;= 1 to 12\n     gx_car&#58;=0; gx_pos&#58;=14 - yy\n     gx_asc &#58;= Asc&#40;SubStr&#40;gx_rfc,yy,1&#41;&#41;\n     if &#40;gx_asc&gt;47&#41;&#46;and&#46;&#40;gx_asc&lt;58&#41;\n        gx_car&#58;=&#40;gx_asc-48&#41;\n     endi\n     if &#40;gx_asc&gt;64&#41;&#46;and&#46;&#40;gx_asc&lt;79&#41;\n        gx_car&#58;=&#40;gx_asc-55&#41;\n     endi\n     if &#40;gx_asc&gt;78&#41;&#46;and&#46;&#40;gx_asc&lt;91&#41;\n        gx_car&#58;=&#40;gx_asc-54&#41;\n     endi\n     if &#40;gx_asc=38&#41;\n        gx_car&#58;=24\n     endi\n     if gx_asc=32\n        gx_car&#58;=37\n     endi\n     gx_sum&#58;=&#40;gx_sum+gx_car*gx_pos&#41;\n next yy\n gx_asc&#58;=gx_sum - Int&#40;gx_sum/11&#41; * 11\n if &#40;gx_asc&lt;&gt;0&#41;&#46;and&#46;&#40;gx_asc&lt;&gt;1&#41;\n    digv&#58;=AllTrim&#40;str&#40;11 - gx_asc&#41;&#41;\n else\n    if gx_asc=0\n       digv&#58;=\'0\'\n    endi\n    if gx_asc=1\n       digv&#58;=\'A\'\n    endi\n endi\nretu&#40;digv&#41;[/code:3nkg4cx1]','',0,'AIA=','3nkg4cx1',1,0,'',40,0,0),(5777,1324,6,63,0,'80.58.35.107',1138119561,1,0,1,1,1,0,'','','Rufer:\nHe probado la idea de Hernán y Viktor (superponer un control transparente) y funciona de maravilla.  Te lo digo por si quieres intentarlo por ahí.\nUn saludo,\nRafael','',0,'AIA=','2e7zzw7d',1,0,'',63,0,0),(5778,1385,7,123,0,'81.39.239.66',1138119947,1,0,1,1,1,0,'','Progress bar','Antonio,\n\n¿Tienes pensado implementar las progress-bar?\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','d6pksyl0',1,0,'',123,0,0),(5779,1370,3,343,0,'204.57.111.194',1138122847,1,0,1,1,1,0,'','','Sample code below works for me with Outlook 2003 SP2\nI tested with attached files and multiple addresses\n\n#include \"FiveWin.ch\"\n#include \"Mail.ch\"\n\nfunction Main\n   local cSubject,cBody,aTo,aFiles\n   cSubject:=\"Send an email through Outlook 2003\"\n   cBody:=\"Text of mail.\"\n   aTo:={\"info@softwarexp.co.uk\"}\n   aFiles:={}\n   InteractiveMessage(cSubject,cBody,aTo,aFiles)\nreturn nil\n\nfunction InteractiveMessage(cSubject,cBody,aTo,aFiles)\n   local oMail\n   local aFileAttach := {}\n\n   define mail oMail ;\n      subject cSubject ;\n      text cBody ;\n      from user\n\n   if len( aTo ) &gt; 0\n      oMail:aRecipients := aTo\n   endif\n   if aFiles != nil\n      for nCounter := 1 to len( aFiles )\n         aadd( aFileAttach, { aFiles[ nCounter ], cFileNoPath( aFiles[ nCounter ] ) } )\n      next\n   endif\n   oMail:aFiles := aFileAttach\n   ACTIVATE MAIL oMail\nreturn nil','',0,'','2tww70zj',1,0,'',343,0,0),(5780,1386,7,123,0,'81.39.239.66',1138123210,1,0,1,1,1,0,'','Fwce.ch y hbclass.ch','Antonio,\n\nEn mis pruebas, he tenido que añadir a \'mano\' hbclass.ch para crear clases y esas cosas.  ¿Podías hace rque fwce.ch lo llamara automáticamente?\n\nSaludos,\nJosé Luis Capel','',0,'','2lvu3s75',1,0,'',123,0,0),(5781,1387,7,123,0,'81.39.239.66',1138124188,1,0,1,1,1,0,'','Ejemplo de fichero .mak para Vce','Antonio,\n\n¿Hay algún ejemplo de fichero .mak para VCE? \n\nSaludos,\nJosé Luis Capel','',0,'','zds8c85t',1,0,'',123,0,0),(5782,1388,7,123,0,'81.39.239.66',1138125178,1,0,1,1,1,0,'','Say con cláusula UPDATE -&gt; Error','Antonio,\n\n[code:3mg3i20x]@ 10, 50 SAY Self&#58;oSaySplash PROMPT &quot;Inicializando aplicación&quot; OF Self&#58;oWndSplash UPDATE[/code:3mg3i20x]\n\nDa este error:\n\n[quote:3mg3i20x]Message not found: TSAY:UPDATE[/quote:3mg3i20x]\n\nSaludos,\nJosé Luis Capel','',0,'gIA=','3mg3i20x',1,0,'',123,0,0),(5783,1389,4,6,0,'82.59.197.142',1138125292,1,0,1,1,1,1,'','Menus','Is it possible to create submenus and how?\n\nEMG','',0,'gIA=','17i496zx',1,0,'',6,0,0),(5784,1388,7,123,0,'81.39.239.66',1138125587,1,0,1,1,1,0,'','','Antonio,\n\nSolucionado!\n\nSaludos,\nJosé Luis Capel','',0,'gIA=','ck3ekbk9',1,0,'',123,0,0),(5785,1324,6,61,0,'201.217.167.18',1138126173,1,0,1,1,1,0,'','Gracias Rafael...','Rafael:\nmuchas gracias por tus datos, voy a tratar de hacerlo de esa manera,\nsi no sale lo hago a la manera vieja. (un bmp con nuleros fijos y despues\nbotones con ese numero)\n\nMuchas gracias.\n\nSaludos\nRuben Fernandez','',0,'gIA=','pgi86z4r',1,0,'',61,0,0),(5786,1293,2,348,0,'200.121.210.24',1138126936,1,0,1,1,1,0,'','','Muchas gracias\nprobare esta alternativa,  pues por el momento  he tenido que separar  los EXEs en dos ,,, y por el momento  funciona, pero no creo que sea la idea, pues Antonio me hace referencia de executables cuatro veces mayor al que yo tengo...  en fin ...  hay que apagar el incendio antes que el Usuario te queme  !!!  jajaj   \n\nte comentare luego como fue..\n\nLubin\n\n\n\n[quote=&quot;MarioG&quot;:3535y8fc]Lubin; probá lo siguiente:\nCrea un aceso directo en el escritorio. Entra en la Propiedades, luego en Propiedades Avanzadas, allí tildá \"Ejecutar en otro espacio de memoria\". Tambien podés entrar en la pestaña \"Compatibilidad\" y activar el checkbosx \"Ejecutar este programa ebn el modo de compatibilidad para\" (yo marco siempre Windows98/ME)\n\nSaludos[/quote:3535y8fc]','',0,'gA==','3535y8fc',1,0,'',348,0,0),(5787,1389,4,2,0,'80.32.22.38',1138127165,1,0,1,1,1,1,'','','Enrico,\n\nDo you mean POPUP menus ?','',0,'gA==','35xd96h4',1,0,'',2,0,0),(5788,1386,7,2,0,'80.32.22.38',1138127304,1,0,1,1,1,1,'','','Jose Luis,\n\nIncluido <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','eo1jod6b',1,0,'',2,0,0),(5789,1387,7,2,0,'80.32.22.38',1138127411,1,0,1,1,1,1,'','','Jose Luis,\n\nEn el directorio \\makes de FWH tienes el ejemplo msmake.zip que facilmente puede adaptarse a FWPPC.\n\nSi lo adaptas, te agradezco me lo envies por email una vez adaptado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1mktxzcj',1,0,'',2,0,0),(5790,1384,6,2,0,'80.32.22.38',1138127558,1,0,1,1,1,1,'','','Marco,\n\nPreguntas si está disponible ? O lo has modificado ?','',0,'gA==','2u80a3w8',1,0,'',2,0,0),(5791,1363,6,53,0,'148.221.252.203',1138128480,1,0,1,1,1,1,'','','Amigos:\n\nMuchas gracias a todos por sus valiosas opiniones, sin duda mi mejor inicio fue preguntar aquí a los gurues.\n\nMaster René, que opinión te merece MySql Front ?, ademas de estar en Español.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.mysql-front.com\">www.mysql-front.com</a><!-- w -->\n\n\nUn abrazo a todos','',0,'gA==','9yx4gpab',1,0,'',53,0,0),(5792,1356,6,255,0,'200.67.134.233',1138129167,1,0,1,1,1,1,'','','Hola Antonio, estos GPF suceden de forma aleatoria\nyo uso HARBOUR y al parecer quedó solucionado de\nla siguiente manera:\n\n   ACTIVATE WINDOW oWndPrincipal MAXIMIZED\n\n   ResAllFree()\n   SysWait(5)\n\nReturn NIL\n\nIgnoro el porqué con el simple hecho de que \nse esperen 5 segundos antes de finalizar por\ncompleto ya no lo hace.\n\nsigo probando, en cuanto suceda otra cosa\nte mantengo informado.\n\nSaludos','',0,'gA==','mzovb5j9',1,0,'',255,0,0),(5793,1363,6,255,0,'200.67.134.233',1138129334,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:1b2uqnwe]Amigos:\nMuchas gracias a todos por sus valiosas opiniones, sin duda mi mejor inicio fue preguntar aquí a los gurues.\nMaster René, que opinión te merece MySql Front ?, ademas de estar en Español.\n<!-- w --><a class=\"postlink\" href=\"http://www.mysql-front.com\">www.mysql-front.com</a><!-- w -->\nUn abrazo a todos[/quote:1b2uqnwe]\n\nHola Armando, perdona que me meta\nyo no soy René y creo que tampoco maestro pero\npermíteme comentarte que yo uso MySQL Front \ndesde sus primeras versiones y me parece\nexcelente. Te lo recomiendo ampliamente.\n\nSaludos','',0,'gA==','1b2uqnwe',1,0,'',255,0,0),(5794,1389,4,6,0,'82.59.197.142',1138129455,1,0,1,1,1,1,'','','No, the menu on the bottom bar. The FWPPC samples show how to get a bar menu with two items. What I would like to do is to open a submenu for each of those items. Is it possible?\n\nEMG','',0,'gA==','3qwgu44u',1,0,'',6,0,0),(5796,1390,19,420,0,'81.164.51.18',1138132139,1,0,1,1,1,0,'','ANN: New xHarbour Builder February 2006 release ready.','Hello,\n\nxHarbour.com is very happy to announce the release of xHarbour Builder February 2006. This new exciting xHarbour.com release is centered around the current xHarbour core as of [ 2006-01-23 18:40 UTC-0800 ] with many additional tools, goodies, and add-ons!\n\nAn updated xHarbour Builder Help file with a list of ALL available functions, commands and classes is also included in this new release. All available documentation can also be found on the updated xHarbour Developers Network web site at <!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com/xHDN\">http://www.xHarbour.com/xHDN</a><!-- m -->. Documentation is added on a daily bases, so, check back regularly.\n\nFrom this release on, xHarbour Builder comes with our new OLE.lib, which has full support for Events and BYREF now. Have a look at the samples OleServer.prg, ListOle.prg and Test_OleServer.prg to see the new OLE.lib in action. You will be surprised!\n\nThis new release also includes many enhancements on SQLRDD like MySQL 5.0 support, Postgres 8.1 support, etc..\n\nA detailed list of what\'s new in this release is available online at <!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com/News\">http://www.xHarbour.com/News</a><!-- m -->.\n\nNeedless to say this release was made possible by the awesome contributions, provided by the unique group of xHarbour\'s Developers ( now counting 55 and growing ). You can learn more about their contributions and/or how to join at <!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.org/Developers\">http://www.xHarbour.org/Developers</a><!-- m -->. A big THANK YOU to all these developers!\n\nxHarbour Builder February 2006 is available NOW for all xHarbour.com customers with an active Update and Service Subscription plan, and for immediate delivery with new purchases. You can check your Update and Service Subscription online at <!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com/Login\">http://www.xHarbour.com/Login</a><!-- m -->\n\nNote to all users: It\'s recommend to ALWAYS recompiling ALL your PRG code with ANY new release. This release is not different! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nThank you ALL very much for your continued support!\n\n--\nSincerely,\n\nPatrick Mast,\nPresident xHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'','3uwzjfbp',1,0,'',420,0,0),(5797,1340,6,203,0,'200.107.17.164',1138133230,1,0,1,1,1,1,'','','Antes que nada gracias por el interes en ayudarme\n\nestoy usando la dbf\n\n\nSaludos\n\nOscar','',0,'','14eaqaue',1,0,'',203,0,0),(5798,1107,19,2,0,'80.32.22.38',1138134561,1,0,1,1,1,1,'','','Roman,\n\nThanks','',0,'','218kfz42',1,0,'',2,0,0),(5799,1391,6,63,0,'80.58.35.107',1138134607,1,0,1,1,1,0,'','O.T.  Alguien conoce algún buen Web Grabber?','Necesito un buen Web Grabber (preferiblemente gratuito pero no importa si es de pago), o sea, un programa que permita capturar una página principal, páginas secundarias, imágenes etc de un sitio Web para consultarlos off-line.  ¿Alguien podría recomendar alguno?\nGracias\nRafael','',0,'','11o0a9eu',1,0,'',63,0,0),(5800,1392,3,35,0,'167.7.140.254',1138137069,1,0,1,1,1,0,'','ALERT func hangs with MSVC FWH dec2005','Antonio\n\nThis code hangs up using FWH Msvc Libs with the Dec 2005 build. However if I re-build with Borland FWH libs the below code works.\n\nThe MSVC FWH compile never goes to ALERT and the program hangs.\n\nRick Lipkin\nSC Dept of Health, USA\n\n\nMSGINFO( \"GOING TO ALERT\" )\n\n   SAYING := \"There are records in the QUEUE that have not \"+chr(13)+CHR(10)\n   SAYING += \"been Transmitted. Do you wish to ....\"+chr(13)+CHR(10)\n\n   YESNO  := { \" Resend \", \" Delete \" , \" Abort \" }\n   nOK := ALERT(SAYING, YESNO )\n\n   DO CASE\n   CASE nOK = 1\n        // do nothing and go on\n   CASE nOK = 2\n        SELECT PCASQUE\n        ZAP\n   OTHERWISE\n        CLOSE DATABASES\n        _Cleanup()\n        RETURN(.T.)\n   ENDCASE','',0,'','2fd4jp9v',1,0,'',35,0,0),(5801,1393,6,331,0,'201.154.164.247',1138137566,1,0,1,1,1,0,'','Solicito Ayuda con objetos OLE.','Saludos Grupo.\n\nLes saluda Arturo de México esperando que esten bien y solicitandoles su ayuda con el siguiente error que emite mi sistema en cualquier otro equipo.\n\nObjetivo del porque estoy utilizando objetos ole es para lo siguiente:\n\n1) En mi sistema implementamos un lector de banda magnetica el cual funciona por medio de secuencias de escape atraves del puerto serial\n\nEl código que tengo para inicializar dicho objeto es el siguiente:\noLector    := CreateOleObject( \"MSCommLib.MSComm\" )\nOLESetProperty(oLector,\"PortOpen\", .T. )\n\nenviadome en la creacion del objecto el siguiente error:\n\nFiveWin For Harbour GPF ocurred\nCalled OleSetProperty()\n\nLo que necesito sabes es porque causa este error, o será que me falte algun componente de OCX que no estoy considerando?\n\nEn espera su valioza ayuda reciban un cordial saludo\n\n\nAtentamente\n\n\nArturo Cervantes.\nCombo EnterPrice de México','',0,'','31tighv4',1,0,'',331,0,0),(5802,1363,6,53,0,'148.221.252.203',1138141158,1,0,1,1,1,1,'','','Juan Carlos:\n\nPecas de modesto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, Bienvenida tu opinión.\n\nUn Abrazo.','',0,'','10capv8a',1,0,'',53,0,0),(5803,1394,3,109,0,'200.92.112.178',1138141248,1,0,1,1,1,0,'','UltraEdit','Buenas tardes\n\n   He configurado en Ultraedit con las instrucciones del Sr. Linares y hasta ahorita no me ha funcionado.\n\n   Me envia el siguiente error:\n\n   --------------------Configuración: Sinco - Debug--------------------\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'..\\Sinco.prg\'...\nLines 14, Functions/Procedures 1\nGenerating C source output to \'Sinco.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nSinco.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'UUID.LIB\'\nSinco.EXE - 0 error(es), 0 advertencia(s)\n\n  YA INTENTE CON EL UUID.LIB en el directorio de la aplicacion y NADA.\n\n  Tengo configurado en \\MiBorland\\Bin los siguientes archivos\n  BCC32 y el ILINK\n\n  Esto funciona si usar el Ultraedit.\n\n  Quisiera saber que es lo que me falta.\n   Algo en el AUTOEXEC????.\n\n   Por su atencion muchas gracias.','',0,'','4rcgxj9o',1,0,'',109,0,0),(5804,1379,6,147,0,'208.51.141.113',1138143142,1,0,1,0,1,1,'','',':-); gracias Antonio\nGeneralmente armo mis proyectos en una carpeta tal como la que ira en la PC del cliente; de manera que desde el principio voy ejecutando desde el destino final, el app en contruccion.\nLa idea es poder decirle a UES que me enlace en la carpeta que yo elija... si se pudiera obviamente.\n\nsaludos','',0,'','1kil8k4o',1,0,'',147,0,0),(5805,1395,6,179,0,'200.69.181.39',1138143461,1,0,1,1,1,1,'','Abm con Twbrowse de Hernan','Buenas Tardes\nAlguien tendra un ejemplo de un Abm con el twbrowse de hernan ?\nSaludos y gracias','',0,'','3txyy2b6',1,0,'',179,0,0),(5806,1396,6,64,0,'201.50.149.47',1138143745,1,0,1,1,1,1,'','hb_stack. Error','Ola, \n\nFiz o download da versão de Janeiro no FTDN. Depois de construir as libs que utilizo (TSBUTTON, BARLIB, xVGET) tentei recompilar meu projeto e deu o erro abaixo:\n\nxLINK: error: Unresolved external symbol \'_hb_stack\'.\n\nxLINK: fatal error: 1 unresolved external(s).\n\nUtilizo o FWH + xHarbour.com \nxHarbour Compiler build 0.99.60 (SimpLex)\n\nCom a versão de Dezembro não dava este erro. xHarbour Compiler build 0.99.51 (SimpLex)','',0,'','28t9hlpr',1,0,'',64,0,0),(5807,1392,3,2,0,'80.32.22.38',1138144691,1,0,1,1,1,1,'','','Rick,\n\nWe have just tested it using FWH 2.7 January build and it works ok with both Borland and MSVC.','',0,'','39725u3q',1,0,'',2,0,0),(5808,1394,3,2,0,'80.32.22.38',1138144815,1,0,1,1,1,1,'','','Ricardo,\n\nLa configuración que proporcionamos era para el UEStudio, no para el UltraEdit. Cual estás usando ?','',0,'','3c8t07bc',1,0,'',2,0,0),(5809,1379,6,2,0,'80.32.22.38',1138144890,1,0,1,1,1,1,'','','Mario,\n\nY porque no guardas el proyecto también en esa carpeta ?','',0,'','1kgqoxp6',1,0,'',2,0,0),(5810,1396,6,2,0,'80.32.22.38',1138144996,1,0,1,1,1,1,'','','Estás usando alguna librería de terceros ? Todas las librerías con módulos en C, tienen que ser recompiladas también.','',0,'','7zyi8b3j',1,0,'',2,0,0),(5811,1397,1,148,0,'82.201.206.22',1138145198,1,0,1,1,1,0,'','Report width is greater than page width ?','How can I adjust the report method in TWbrowse class to divide all fields on separate sequenced pages .\nYou can find that message in samples\\browse.prg\nNot All fields appeared . Please try not to advice me create new Tprinter object with less font size . I prefer to adjust  or create method equalivent to report method .','',0,'','1bdyklqw',1,0,'',148,0,0),(5812,1393,6,2,0,'80.32.22.38',1138145482,1,0,1,1,1,1,'','','Arturo,\n\nSi haces:\n[code:3l01g8ps]\noLector &#58;= CreateOleObject&#40; &quot;MSCommLib&#46;MSComm&quot; &#41; \nMsgInfo&#40; oLector &#41;\nOLESetProperty&#40;oLector,&quot;PortOpen&quot;, &#46;T&#46; &#41; \n[/code:3l01g8ps]\n\nverás que oLector vale cero, lo que quiere decir que no ha podido inicializar ese OCX. Por lo visto ese OCX precisa de otras DLLs de Microsoft.\n\nTienes Visual Basic instalado en algún ordenador en el que puedas probar ese código ?','',0,'AIA=','3l01g8ps',1,0,'',2,0,0),(5813,1384,6,43,0,'201.127.19.186',1138147418,1,0,1,1,1,0,'','','mil disculpas si fui muy directo\n\n  mi pregunta fue si esta disponible la correccion del mismo.\n\nSaludos\n \n  Marco A. Delgado','',0,'AIA=','1oe70vhk',1,0,'',43,0,0),(5814,1398,3,49,0,'87.7.179.90',1138150309,1,0,1,1,1,0,'','Floodfill and rectang','I must fill of a color an rectag \n\nI use a define to INSERT A bRUSH \n\n[code:qlimzr67]\nDEFINE BRUSH oPen1 COLOR CLR_HBLUE  \nDEFINE BRUSH oPen2 COLOR CLR_HRED  [/code:qlimzr67]\n\nMY FUNC IS CALLED \n[code:qlimzr67]FLOODY&#40;NTOP,NLEFT,NBOTTOM,NRIGHT,NCOLOR,NUMBER&#41;\n[/code:qlimzr67]\n\nbUT i NOT kNOW HOW FLOODFILL A RECTANG i TRY WITH :\n [code:qlimzr67]\n LOCAL oBrush,  hOld\n\n   hBru &#58;= CreateSolidBrush&#40; nColor &#41;\n   hOld &#58;= SelectObject&#40; &#58;&#58;hDC, hBru &#41;\n   hpen&#58;=CreatePen&#40;0,8,nColor&#41;\n   Rectangle&#40; &#58;&#58;hDC, nTop, nLeft, nBottom, nRight, hpen &#41;\n   FillRect&#40; &#58;&#58;hDC, &#123; nTop, nLeft, nBottom, nRight &#125;, hBru &#41;\n   SelectObject&#40; &#58;&#58;hDC, hOld &#41;\n   DeleteObject&#40; hBru &#41;\n[/code:qlimzr67]\n\nbut it not run ok\nSomeone can help me please\n\nRegards','',0,'AIA=','qlimzr67',1,0,'',49,0,0),(5815,1394,3,109,0,'200.92.112.178',1138151819,1,0,1,1,1,0,'','Ultraedit','Perdon Sr. Linares tiene ud. razon, NO es ULTRAEDIT, es UEstudio \'05 Development Environment Version 05.00b+4.\n\n  En el topic anterior me equivoque al solicitar ayuda para ULTRAEDIT.\n\n\n  Gracias por contestar','',0,'AIA=','2jab13dq',1,0,'',109,0,0),(5816,1399,2,299,0,'69.65.88.121',1138154272,1,0,1,0,1,0,'','Para Rene:','René;\n\nHola.  Te quise enviar este correo a tu buzón directamente, pero no tube suerte.\n\nYa sabes que acabo de comenzar con ADS.  He logrado progreso con mis aplicaciones de Xharbour.  Pero experimento problemas con las de clipper.  Y es que tengo una aplicación en particular que comparte data con las demás aplicaciones de xharbour.\n\nTe ruego que mires el mensaje abajo que envié a support, a ver si me puedes ayudar.  Si?  Y muchas gracias.\n\n\nNew to ADS.  Just purchased and installed version 8.\n\nI have a clipper app that shares data with an xharbour application.  With the xharbour application I\'m able to connect to the server ok.  I was able to create a DD from source using xharbour.  So this is working great.\n\nBut from the clipper app, I have no luck yet.   I have no idea how to connect to the DD created by the xharbour app or simply connect to the server and start using the exisisting dbf/ntx files.\n\nI wonder if I\'m using the correct RDDs for clipper and if they are actually capable to connect to version 8 of the server.\n\nCan someone please help?\n\nThank you,\n\n\nReinaldo Crespo-Bazán\n<!-- w --><a class=\"postlink\" href=\"http://www.structuredsystems.com\">www.structuredsystems.com</a><!-- w -->\n<!-- e --><a href=\"mailto:reinaldocrespo@structuredsystems.com\">reinaldocrespo@structuredsystems.com</a><!-- e -->\nfax: (720)368-9785','',0,'AIA=','3bpl4h21',1,0,'',299,0,0),(5817,1377,6,103,0,'200.164.92.242',1138155540,1,0,1,1,1,0,'','','Hola Rene,\n\n  Esto es un asunto que me interesa muchisimo. Por lo tanto, me gustaria de saber si alguno de ustedes usa el CASE Studio 2 o alguna otra herramienta CASE pues deseo empezar a usar algo como el CASE Studio 2 y no sé por donde empezar.\n\nSaludos,\n\nKleyber Derick','',0,'AIA=','1es7rbwi',1,0,'',103,0,0),(5818,1400,3,32,0,'196.36.8.34',1138163218,1,0,1,1,1,0,'','xHarbour builder Feb 2006','Hi,\n\nWhen recompiling with xHarbour released yesterday the 24th of Jan, I get an unresolved _hb_stack. Do we need a FWH update for this? Linking against FWH 2006-01\n\nAlex','',0,'AIA=','2zicahps',1,0,'',32,0,0),(5819,1401,5,421,0,'204.83.50.141',1138168087,1,0,1,1,1,0,'','Discount/Upgrade Price forFiveWin++?Already purchased FW,FWH','Hi, does anybody know if I could get a discounted or upgrade price on FiveWin++ considering I\'ve already purchased FW and FWH.','',0,'AIA=','1se8gwn9',1,0,'',421,0,0),(5820,1367,1,417,0,'81.63.104.105',1138175595,1,0,1,1,1,0,'','FW-Applik. running under wine-emulator in Linux','Antonio,\nI have make a test-applik. with FW20 without any errors under Linux/wine.\nWith FW24 it make the fixme-Error. I can\'t link my big Applik. with FW20 because a &lt;unresolved external&gt; -&gt; framedot and getsysfont! <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->   I have found, that the fixme-error came with five/fivec.lib from FW24 in my test.exe. \nCan you eventually give me the framedot/getsysfont.obj from FW24 for test-linking with FW20??\n\nWith best regards\nWalter','',0,'AIA=','2yvl4yd2',1,0,'',417,0,0),(5821,1402,20,29,0,'87.7.175.91',1138175668,1,0,1,1,1,0,'','Invio email ad Outlook via OLE','Salve,\nqualcuno di voi ha un esempio per inviare una mail via OLE ad Outlook\nsia direttamente (senza intervento dell\'utente) sia con intervento dell\'utente (appare la finestra di composizione lettera con i dati precompilati e il cliente può modificarli o premere invio)\n\nGrazie\n\nMarco','',0,'AIA=','185lwbht',1,0,'',29,0,0),(5822,1403,3,372,0,'83.118.100.14',1138175795,1,0,1,1,1,0,'','How to use brush with Buttonbar and others?','Hi,\n\ni\'m trying to add a new look to my app by adding a brush to my Dialogs. But i cannot figure out how to do the same with the Buttonbar, the Menu and the lower part of the window (where the date etc. is located).\n\nAny suggestions?\n\nThanks in advance,\n\nJohn.','',0,'AIA=','xhfn3ig2',1,0,'',372,0,0),(5823,1387,7,28,0,'213.27.201.254',1138177025,1,0,1,1,1,0,'','','me uno a la petición. Casi lo podía publicar alguien aqui.','',0,'AIA=','10py5ock',1,0,'',28,0,0),(5824,1391,6,177,0,'194.30.62.6',1138178350,1,0,1,1,1,0,'','','Buenos días Rafael,\n\naquí encontrarás uno y gratuito:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.httrack.com/\">http://www.httrack.com/</a><!-- m -->\n\nSaludos,\n\nFelix','',0,'AIA=','3bymbw21',1,0,'',177,0,0),(5825,1403,3,15,0,'203.73.91.4',1138179790,1,0,1,1,1,0,'','','Hello John,\n\nYou can use TSButton for ButtonBar\'s brush.\n\nRegards,\n\nRichard\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw/\">http://www.fivetech.com.tw/</a><!-- m -->\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'AIA=','3fwhqlt8',1,0,'',15,0,0),(5826,1384,6,2,0,'80.32.22.38',1138181587,1,0,1,1,1,1,'','','Marco,\n\nNo, de momento. Lo hemos intentado pero se resiste.\n\nVamos a hacer algunas pruebas más a ver si lo conseguimos.','',0,'AIA=','1bxnl56t',1,0,'',2,0,0),(5827,1401,5,2,0,'80.32.22.38',1138181656,1,0,1,1,1,1,'','','Gerrit,\n\nWe reply you by email.','',0,'AIA=','yin2fxm1',1,0,'',2,0,0),(5828,1387,7,2,0,'80.32.22.38',1138182173,1,0,1,1,1,1,'','','Aqui está:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/ea09dd12/msmake.zip.html\">http://hyperupload.com/download/ea09dd1 ... e.zip.html</a><!-- m -->\n\nOjo que es para FWH. Hay que adaptarlo a FWPPC, pero basicamente es igual.','',0,'AIA=','3q04uvii',1,0,'',2,0,0),(5829,1367,1,2,0,'80.32.22.38',1138182400,1,0,1,1,1,1,'','','Walter,\n\nHere you have them:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/acec8587/objs.zip.html\">http://hyperupload.com/download/acec8587/objs.zip.html</a><!-- m -->','',0,'AIA=','3jbb5yxy',1,0,'',2,0,0),(5830,1400,3,2,0,'80.32.22.38',1138182479,1,0,1,1,1,1,'','','Alex,\n\nYes, xHarbour implemented several changes that requires an upgraded FWH.','',0,'AIA=','36hjlg3u',1,0,'',2,0,0),(5831,1404,4,13,0,'213.76.252.200',1138182571,1,0,1,1,1,0,'','Readonly Get','Antonio,\n\nWhy in new version of FWPPC (19.01.2006) readonly get looks like standard get control ? In this moment readonly get control must be declared with Color statement like multiget ?\n\nThanks\nPawel','',0,'AIA=','2zjzq3sw',1,0,'',13,0,0),(5832,1394,3,2,0,'80.32.22.38',1138182590,1,0,1,1,1,1,'','','Ricardo,\n\n&gt; YA INTENTE CON EL UUID.LIB en el directorio de la aplicacion y NADA.\n\nQue error te aparece en la ventana inferior ? Hasta donde llega ?\n\nFunciona realmente bien, debe de ser un pequeño ajuste que necesites.','',0,'AIA=','1bzb2zzx',1,0,'',2,0,0),(5833,1400,3,32,0,'196.36.8.34',1138182662,1,0,1,1,1,0,'','New FWH','Ok. I\'m still fine on the previous xhb version, but any idea of a when this would be released <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','10q4aym5',1,0,'',32,0,0),(5834,1404,4,2,0,'80.32.22.38',1138182771,1,0,1,1,1,1,'','','Pawel,\n\nSome users required the black color to make them better readable.\n\nWe could implement a new DATA to decide if using or not the standard colors.','',0,'AIA=','9rn5wh02',1,0,'',2,0,0),(5835,1400,3,2,0,'80.32.22.38',1138182834,1,0,1,1,1,1,'','','Alex,\n\nIt is already available since FWH 2.7 release.\n\nWhat module reports such missing external ?','',0,'AIA=','s319ytzs',1,0,'',2,0,0),(5836,1400,3,32,0,'196.36.8.34',1138182952,1,0,1,1,1,0,'','FWH 2.7','I\'m not sure what module, as I\'m using commercial xHarbour\n\nWill see what I can find out...\n\nAlex','',0,'AIA=','2z8boc23',1,0,'',32,0,0),(5837,1403,3,372,0,'83.118.100.14',1138183135,1,0,1,1,1,0,'','','Hi Richard,\n\nhow do i implement this?\n\nActually i want to have a similair look as: \n<!-- m --><a class=\"postlink\" href=\"http://www.google.com/vsueldo.jpg\">http://www.google.com/vsueldo.jpg</a><!-- m --> and\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com/nomp2.jpg\">http://www.google.com/nomp2.jpg</a><!-- m -->\n\nZaijian,\n\nJohn.','',0,'AIA=','f2z7vtc6',1,0,'',372,0,0),(5838,1370,3,29,0,'87.7.175.91',1138183935,1,0,1,1,1,0,'','','I found the problem on msn.\nIt is a bug on Outlook 2003 sp1.\n\nThanks.\n\nMarco','',0,'AIA=','egn7q60i',1,0,'',29,0,0),(5839,1405,3,269,0,'217.37.54.49',1138184437,1,0,1,1,1,0,'','Lock Required','when the ok button in my program is pressed the information in the dialog is saved to a DBF, below is the code, the error (COMIX 1022) i get says that a lock is required. i have tried TRANSFIL-&gt;(RECLOCK()), but this does not work??\n\nCODE;\n\nSTATIC FUNCTION SaveInspect   //Dean\n\n    REPLACE TRANSFIL-&gt;CONT_LEVEL WITH mContLevel\n    REPLACE TRANSFIL-&gt;COLOUR     WITH mColour\n    REPLACE TRANSFIL-&gt;PACK_LEVEL WITH mPackLevel\n    REPLACE TRANSFIL-&gt;POST_CONT  WITH mPostCont\n\n  IF mRubble == .T.\n     REPLACE TRANSFIL-&gt;RUBBLE  WITH mRubble\n  ENDIF\n\n  IF mHardBoard == .T.\n     REPLACE TRANSFIL-&gt;HARDBOARD WITH mHardboard\n  ENDIF\n\n  IF mTreated == .T.\n     REPLACE TRANSFIL-&gt;TREATED WITH mTreated\n  ENDIF\n\n  IF mFerrous == .T.\n     REPLACE TRANSFIL-&gt;FERROUS WITH mFerrous\n  ENDIF\n\n  IF mOrganic == .T.\n     REPLACE TRANSFIL-&gt;ORGANIC WITH mOrganic\n  ENDIF\n\nRETURN nil','',0,'AIA=','2fy4k6gl',1,0,'',269,0,0),(5840,1406,6,422,0,'195.8.27.93',1138186297,1,0,1,1,1,0,'','XMate','Hola Foro :\nEstoy utilizando el xMate, consigo generar el ejecutable pero el mismo cuando lo ejecuto no \"hace\" nada y se queda en el administrador de tarefas.\n\nA donde debo enviar sugerencias o reportar bugs de xMate ?\n\nAlguna luz ?\n\nFwh 2.4, Harbour 0.45, xMate 1.9z15\n\nSaludos.\nRicardo','',0,'AIA=','1ekxg9nr',1,0,'',422,0,0),(5841,1407,3,247,0,'87.202.29.138',1138186947,1,0,1,1,1,0,'','Ntx indexes','Do you know how many indexes (.ntx) can i open simultaneously at one dbf file?\n\neg:\n\nselect 0 \nuse test\nset index to a1, a2, .... ?\n\nThanks','',0,'AIA=','3faaxpnu',1,0,'',247,0,0),(5842,1408,20,29,0,'87.7.175.91',1138188209,1,0,1,1,1,0,'','Problema di visualizzazione documenti RTF complessi','Ho un problema quando devo aprire via ole un file rtf molto complesso.\nIn alcuni casi si verifica il seguente errore:\n\n*********************\nApplication\n===========\n   Path and name: K:\\pigc\\PIGC.Exe (32 bits)\n   Size: 6,567,424 bytes\n   Time from start: 0 hours 1 mins 8 secs \n   Error occurred at: 25/01/06, 12:14:50\n   Error description: Error Word.Application:ACTIVEDOCUMENT/1  Unknown error: ACTIVEWINDOW\n   Args:\n\nStack Calls\n===========\n   Called from TOLEAUTO:ACTIVEWINDOW(0)\n***********************\n\nLa routine di stampa che utilizzo è:\n\n*************\nfunction DisplayRtf(cRtfFileName)\n\nlocal oWord\nlocal wsPrintView:=3\n\n    try\n        oWord := GetActiveObject(\"Word.Application\")\n    catch\n        oWord := CreateObject(\"Word.Application\")\n    end\n\n    sysrefresh()\n    oWord:Documents:Open(cRtfFileName)\n    sysrefresh()\n    oWord:ActiveDocument:ActiveWindow:View:Type = wsPrintView\n    sysrefresh()\n    oWord:Visible:=.t.\nreturn nil\n*****************\n\nCredo che il problema risieda nel fatto che quando chiamo oWord:ActiveDocument:ActiveWindows.... l\'ActiveWindow non è stata ancora creata da Word in quanto sta ancora aprendo il file rtf.\n(Open(cRtfFileName) prima di passare alla successiva ?\nHo provato con dei sysrefresh() ma il problema persiste.\n\nGrazie in anticipo\n\nMarco Turco','',0,'AIA=','1k3wve22',1,0,'',29,0,0),(5843,1408,20,6,0,'87.3.228.23',1138188406,1,0,1,1,1,1,'','Re: Problema di visualizzazione documenti RTF complessi','Prova con SysWait() al posto di SysRefresh(). Se non va avrei bisogno di riprodurre il problema per fare qualche esperimento quindi magari mandami il file RTF.\n\nEMG','',0,'AIA=','18gmaf3d',1,0,'',6,0,0),(5844,1409,3,67,0,'62.235.24.238',1138188418,1,0,1,1,1,0,'','xhb feb release , fw27 , unresolves external _hb_stack','Hello,\n\nI try to build an fw aplication .\n\nI have rebuild all the obj\'s and lib\'s mentioned in the xbp-file , but i have still this external.\n\nI have no idea which module is the guilty.\n\nFrank','',0,'AIA=','22t1qo5m',1,0,'',67,0,0),(5845,1409,3,104,0,'201.19.81.18',1138190190,1,0,1,1,1,0,'','','Olá,\n\nEu também estou com o mesmo problema.\n\nObrigado,\n\nRossine.','',0,'AIA=','1830ff1c',1,0,'',104,0,0),(5846,1400,3,104,0,'201.19.81.18',1138190544,1,0,1,1,1,0,'','','Olá Antonio,\n\nEu também estou com o mesmo problema. Eu estou usando:\n\nFWHX 2.7 January 2006 + xhb (comercial) fevereiro/2006\n\nComo resolver isto,\n\nRossine.','',0,'AIA=','1kna1hoi',1,0,'',104,0,0),(5847,1410,2,404,0,'213.231.101.107',1138190748,1,0,1,1,1,0,'','¿ Función UPPER ?','Me podeis indicar, que función usar para pasar a mayúsculas?.\n\nO facilitarme, donde localizar el fuente, o el .OBJ, de la misma.\n\nLas funciones del API:\n\nDLL32 Function UpperCase(cStr AS STRING) AS STRING PASCAL;\nFROM \"CharUpperA\" LIB \"user32.dll\"\n\nDLL32 Function LowerCase(cStr AS STRING) AS STRING PASCAL;\nFROM \"CharLowerA\" LIB \"user32.dll\"\n\nPodrían valer, pero el cliente tiene Win 98. Y USER32.DLL, no creo que venga, ni que valga para dicho Windows.\n\nLa función UPPER de CLIPPER 5.2e, funciona incorrectamente, me di cuenta cuando al hacer OemToAnsi( cTexto ). Y grabarlo en la Base de Datos. Al presentarlo en pantalla. La [u:3vatvp2s]á[/u:3vatvp2s], no es una [u:3vatvp2s]Á[/u:3vatvp2s], y así con todas las vocales.\n\nSaludos, José Mª','',0,'AQ==','3vatvp2s',1,0,'',404,0,0),(5848,1409,3,67,0,'62.235.24.238',1138191888,1,0,1,1,1,0,'','','Ok , i found it , an obj-file derived from a c-file in one from the lib\'s.\n\nNext problem : see new thread','',0,'AQ==','10oo4wqu',1,0,'',67,0,0),(5849,1411,3,67,0,'62.235.24.238',1138192732,1,0,1,1,1,0,'','fw2.7 : GPF with xbrowse again','hello,\n\nAfter installing fw2.6 , i got a gpf in xbrowse (from ozlib). Antonio sended me a obj-file. Linking in text.obj , and it is ok .\n\nNow , in fw2.7 , the error is there again . It obvious that i can\'t link test.obj again\n\nOffset : 000c9dd3\n\ncode : 0xc0000005\nAddress : 0x00000000004c9dd3\n\nHow can the map-file be used with this report ?\n\nFrank','',0,'AQ==','30v2eho7',1,0,'',67,0,0),(5850,1396,6,64,0,'201.50.151.155',1138192795,1,0,1,1,1,1,'','','Recompilei todas as libs de terceiros. Trabalho com a TSBUTTON, BARLIB e VGET (do Vagner Wirts), mesmo assim o erro continua!','',0,'AQ==','13wbxiut',1,0,'',64,0,0),(5851,1412,3,125,0,'213.140.6.105',1138192832,1,0,1,1,1,0,'','Is it possible to create DBF field_name &gt; 10 chars ?','Hi, i need to import data from other Database like MySql .\nIs it possible to create dbf file with field_name &gt; 10 chars ?\n\nTks','',0,'AQ==','2hvuavyt',1,0,'',125,0,0),(5852,1409,3,104,0,'201.19.81.18',1138192923,1,0,1,1,1,0,'','','OK,\n\nEu também achei o problema. Eu estava linkando o arquivo \"MACRO.OBJ\" junto com tsbutton e tsbrowse, mas eu não me lembro o porque deste arquivo. Se alguém souber a verdadeira necessidade deste arquivo e puder me enviar o fonte, ficarei grato  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nObrigado,\n\nRossine.','',0,'AQ==','wa6wge7b',1,0,'',104,0,0),(5853,1409,3,32,0,'196.36.8.34',1138193330,1,0,1,1,1,0,'','hb_stack','Hi Frank,\n\nCould you share which files are the problem?','',0,'AQ==','382b51wy',1,0,'',32,0,0),(5855,1367,1,417,0,'81.63.104.105',1138194381,1,0,1,1,1,0,'','FW-Applik. running under wine-emulator in Linux','Antonio,\nMany thanks for the rects+getsysin.obj, but with this getsysin.obj i became &lt;unresolved external&gt; --&gt; getwinver\nPlease can you send me this obj?\n\nWith best regards\nWalter','',0,'AQ==','2g4oxyx9',1,0,'',417,0,0),(5856,1413,3,26,0,'195.210.233.137',1138197330,1,0,1,1,1,1,'','GNU make sample','Hello!\n\nIn FWH \'makes\' folder there are \'Borland make\' and \'MS nmake\' \nsamples for building FW applications. Does anyone have \'GNU make\' \nsample file?\n( <!-- m --><a class=\"postlink\" href=\"http://unxutils.sourceforge.net/\">http://unxutils.sourceforge.net/</a><!-- m --> )\n\n\nThanks, Roman','',0,'AQ==','2gz9q820',1,0,'',26,0,0),(5857,1194,23,308,0,'84.148.5.190',1138197490,1,0,1,1,1,0,'','','[quote=&quot;StefanHaupt&quot;:2ss5wfbu]Hallo,\n\nich glaube jpg wird nicht direkt unterstützt, allerdings weiß ichs für Version 7 nicht genau, da ich bisher nur Version 6 nutze. Vielleicht kannst du die Grafik mit TImage einlesen und dann in TsBrowe weiterverarbeiten.\n\nLäuft die Version 7.01 denn stabil bei dir ? Ich  hab nur Ärger damit gehabt (nicht initialisierte Variable und anderre Runtime-Errors) ?\n\nGruß\nStefan[/quote:2ss5wfbu]\n\nHallo Stefan,\nich probiers mal mit timage. ich habe zu Artikeln die entsprechenden Bilder, die als separate JPG-Files auf der Platte liegen. Die möchte ich im TSBrowse anzeigen. Mit .BMPs wäre das kein Problem, die Bilder kommen aber aus dem Shop und sind eben .JPGs.\n\nwegen 7.01. Ja - läuft bei mir ganz gut. Sind einige Bugs drausen, die mich in der 6.0 immer generft haben. Allerdings hatte ich mit der 7er auch einige Anfangsschwierigkeiten, gerade beim refreshen der datensätze. Nachdem ich einiges im Source angepasst habe, gehts nun ganz gut.\n\nWenn du da was brauchst, melde dich.\nGruss, Norbert','',0,'gA==','2ss5wfbu',1,0,'',308,0,0),(5858,1414,6,28,0,'213.27.201.254',1138198920,1,0,1,1,1,0,'','Error al enlazar','Hola \n\nEstoy incluyendo un .cpp en mi programa y al enlazarlo me suelta el siguiente error:\n\nError: Unresolved external \'_HB_FUN_GETALLRESOURCES\' referenced from ...\n\nEn el cpp hay una función que la nombro asi:\n\nHB_FUNC( GETALLRESOURCES )\n{\n   ....\n\n}\n\ny luego compilo con estos flags\n\n-P -c -O2 -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)\n\n¿Porqué no me encuentra la función?\n\nHe mirado dentro del obj y la función aparece como:\n\n   HB_FUN_GETALLRESOURCES en vez de _HB_FUN_GETALLRESOURCES\' \n\nAlguna sugerencia\n\nGracias.','',0,'gA==','uvv3006c',1,0,'',28,0,0),(5859,1384,6,43,0,'201.127.19.186',1138199306,1,0,1,1,1,0,'','','Muchas Gracias.... Antonio\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','h5sjayfi',1,0,'',43,0,0),(5860,1412,3,26,0,'195.210.233.137',1138200507,1,0,1,1,1,1,'','','Hello!\n\n[quote:3d6j8vz2]The maximum DBF field name length is 10 bytes and may only contain the letters ‘a’-‘z’ and ‘A’-‘Z’, digits ‘0’-‘9’, and the underscore ‘_’ character. The maximum number of records in a DBF table is 2 billion.[/quote:3d6j8vz2]\n\nBTW, you can use  Advantage ADT format instead of DBF ...\n[quote:3d6j8vz2]The Advantage Database Server supports a proprietary ADT table. The maximum ADT field name length is 128 bytes and may contain any character value except 0 (NULL), \';\' (a semi-colon), or \',\' (a comma).[/quote:3d6j8vz2]\n\nRegards, Roman','',0,'gA==','3d6j8vz2',1,0,'',26,0,0),(5861,1415,6,36,0,'200.113.56.235',1138201383,1,0,1,1,1,0,'','FWBitMap','Estimados\n\nComo puedo crear una funcion que me retorne un bitma igual lo que hace la funcion FWBitMap de fivewin\n\ndesde ya gracias\n\nSaludos\nPatricio','',0,'gA==','28pc3jho',1,0,'',36,0,0),(5862,1406,6,18,0,'200.67.188.236',1138201498,1,0,1,1,1,1,'','','Ricardo :\n\n   <!-- m --><a class=\"postlink\" href=\"http://groups.yahoo.com/group/xmate_users/\">http://groups.yahoo.com/group/xmate_users/</a><!-- m -->','',0,'gA==','3p7md8gz',1,0,'',18,0,0),(5863,1394,3,109,0,'200.77.36.7',1138203399,1,0,1,1,1,0,'','Uestudio','Este es el texto que se imprime en la parte inferior de Uestudio:\n\n\n--------------------Configuración: Sinco - Release--------------------\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'UUID.LIB\'\nSinco.EXE - 0 error(es), 0 advertencia(s)\n---------------------------------------------------------------------------------\n\nJusto hasta la linea punteada\n\n\nSaludos','',0,'gA==','3360jw0v',1,0,'',109,0,0),(5864,1370,3,303,0,'68.7.28.54',1138204894,1,0,1,1,1,0,'','','Marco,\n\nGreat news! I\'m making a note for future reference.\n\nJames','',0,'gA==','8szmomxa',1,0,'',303,0,0),(5865,1416,3,299,0,'69.65.88.121',1138205627,1,0,1,0,1,0,'','streching timage control in dialog','Hi.\n\nI have a dialog from resources with a single control in it.  It is an timage control:\n\nDEFINE DIALOG oDlg NAME \"ViewImage\" TITLE \"View scanned image dialog window\" of oOwner\n\noImage := tImage():Redefine( 101,, ImgRoot + oLbx:aArrayData[ oLbx:nArrayAt, 5 ], oDlg,,, .t. )\n\nThe dialog is resizeable.  I\'d like for the timage control to resize when ever the container-dialog is resized.  \n\nAny ideas?\n\nthank you,\n\n\nReinaldo Crespo-Bazán','',0,'','2q0ykcmp',1,0,'',299,0,0),(5866,1416,3,299,0,'69.65.88.121',1138206121,1,0,1,0,1,0,'','','I found this to work:\n\n\nodlg:bResized := { ||ResizeImage( odlg, oImage ) }\n\n...\n\nStatic function ResizeImage( odlg, oImage )\n	oImage:Move( 0,0, odlg:nWidth(), odlg:nHeight() )\n	oImage:refresh()\nreturn nil','',0,'','2nfktowf',1,0,'',299,0,0),(5867,1415,6,28,0,'213.27.201.254',1138206338,1,0,1,1,1,0,'','','explicate un poco mejor. \n\nEn que contexto necesitas el bitmap\n\nUn saludo','',0,'','2kzf8qb3',1,0,'',28,0,0),(5868,1409,3,67,0,'62.235.24.238',1138206671,1,0,1,1,1,0,'','','Alex,\n\nMaybe it is not important for you , but i use xbroxse from ozlib.\n\nIn the build file was a obj , derived from a c-module . So i had to replace this obj module with the c-module\n\nFrank','',0,'','38nvj8ey',1,0,'',67,0,0),(5869,1416,3,303,0,'68.7.28.54',1138207227,1,0,1,1,1,0,'','','Reinaldo,\n\nI\'m curious, how do you make a dialog resizable?\n\nJames','',0,'','31la9u39',1,0,'',303,0,0),(5870,1416,3,299,0,'69.65.88.121',1138208051,1,0,1,0,1,0,'','','I suppose that the properties defined on the resource editor.\n\nOn this particular dialog I have the following checked:\n\nsystem menu\nthick frame\nmaximize box\nmodal frame\nvisible','',0,'','29lsexlo',1,0,'',299,0,0),(5871,1416,3,299,0,'69.65.88.121',1138208094,1,0,1,0,1,0,'','','and window type popup.','',0,'','90gjubl3',1,0,'',299,0,0),(5872,1380,6,215,0,'201.135.219.84',1138208282,1,0,1,1,1,0,'','Gracias Joel','Yo tengo algo parecido que solo valida las letras y la fecha... ya conseguí las reglas donde dice algunas cosas como\nSi tiene solo un apellido usar...\nSi la cadena resultante es ofensiva como CACA  cambiar la ultima letra por una X. etc, etc.\n\nSaludos','',0,'','2wydem5e',1,0,'',215,0,0),(5873,1393,6,331,0,'201.154.164.104',1138210128,1,0,1,1,1,0,'','','Saludos Antonio\n\n[quote=&quot;Antonio Linares&quot;:b5rh6i6i]Arturo,\n\nSi haces:\n[code:b5rh6i6i]\noLector &#58;= CreateOleObject&#40; &quot;MSCommLib&#46;MSComm&quot; &#41; \n\n// Efectivamente ya puse este mensaje para saber el valor y si me da cero\nMsgInfo&#40; oLector &#41;\n\n\nOLESetProperty&#40;oLector,&quot;PortOpen&quot;, &#46;T&#46; &#41; \n[/code:b5rh6i6i]\n\nverás que oLector vale cero, lo que quiere decir que no ha podido inicializar ese OCX. Por lo visto ese OCX precisa de otras DLLs de Microsoft.\n\nTienes Visual Basic instalado en algún ordenador en el que puedas probar ese código ?\n\n// En mi ordenador tengo instalado Visual Basic 6, pero incluso antes de que lo instalara ya habia realizado pruebas y me funciono perfectamente.\nAhora no se que otras Dll\'s le haga falta a ese OCX para que funcione correctamente.\n\nVoy a instalar VB6 en otro ordenador y vere que pasa, pero como saber que DLL\'s necesito.\n\n[/quote:b5rh6i6i]','',0,'gIA=','b5rh6i6i',1,0,'',331,0,0),(5874,1414,6,28,0,'213.27.201.254',1138210191,1,0,1,1,1,0,'','','Hola\n\nCreo que hay que hacer una función desde C que llame a la de CPP.\n\nEn el fichero .c se puede utilizar HB_FUNC para llamar a la función normal de cpp.\n\nNo se si es asi, pero parece.\n\nUn saludo','',0,'gIA=','76pvontt',1,0,'',28,0,0),(5876,1417,6,255,0,'200.67.134.233',1138211412,1,0,1,1,1,1,'','ActiveX -- Para Antonio','Hola Antonio.\n\nHabrá mejoras en los componentes ActiveX soportados\npor fivewin???\n\nSe podrán usar en diálogos desde recursos?\nque sucederá con los eventos  ?\n\nGracias por la atención.','',0,'gIA=','qb2fuh89',1,0,'',255,0,0),(5877,1403,3,15,0,'203.73.91.4',1138211615,1,0,1,1,1,0,'','','Hello John,\n\nPlease visit TSButton sample code below:\n\n[code:3ld4bh5r]\nDEFINE BRUSH oBrush RESOURCE &quot;WPaper&quot;\n\nDEFINE SBUTTONBAR oBar OF aChild&#91; 1 &#93; SIZE 25, 25 3D\n      oBar&#58;SetBrush&#40; oBrush &#41;\n      \n      DEFINE SBUTTON oBtn&#91; 1 &#93; OF oBar ;\n             RESOURCE &quot;ANIMATED Trafica&quot; ;\n             ACTION Child2&#40;&#41; ;\n             WHEN lEnable ;\n             TOOLTIP &quot;Animated&quot; ;\n             MESSAGE &quot;Animated Super Buttons in Buttonbars&quot; ;\n             BRUSH oBrush ;\n             LOOK W97\n&#46;&#46;&#46;&#46;&#46;\n[/code:3ld4bh5r]\n\nRegards,\n\nRichard','',0,'AIA=','3ld4bh5r',1,0,'',15,0,0),(5878,1403,3,372,0,'83.118.100.14',1138212532,1,0,1,1,1,0,'','','Thanks Richard, that works! So my next challenge is to give the statusbar of oWnd the brush look and also the folders, any suggestions?\n\nRegards,\n\nJohn.','',0,'AIA=','id3fvvvh',1,0,'',372,0,0),(5879,1406,6,422,0,'195.8.27.93',1138214807,1,0,1,1,1,0,'','xMate','Oskar..\n\nParece que es el orden de los programas... al inicio debe estar el prog. principal... lo probare y luego te cuento.\n\n\nSaludos.\nRicardo Ramirez','',0,'AIA=','u7pwpuyk',1,0,'',422,0,0),(5880,1418,3,137,0,'151.38.8.195',1138215061,1,0,1,1,1,0,'','xHarbour handles ActiveX events, and FWH?','as subject\n\nRoberto Parisi','',0,'AIA=','imim2kts',1,0,'',137,0,0),(5881,1419,6,377,0,'201.154.115.51',1138216207,1,0,1,1,1,0,'','SQL Y xHarbour','Hola.\n\nEstamos migrando de clipper 5.3b a xHarbour y deseamos utilizar para algunos clientes base de datos SQL Server, me podrias dar tu opinion sobre los productos de OTC (<!-- w --><a class=\"postlink\" href=\"http://www.otc.pl\">www.otc.pl</a><!-- w -->) Mediator/Terminal o si conoces otras alternativas.','',0,'AIA=','2htfnxxj',1,0,'',377,0,0),(5882,1411,3,2,0,'80.32.22.38',1138216683,1,0,1,1,1,1,'','','Frank,\n\nWe have emailed you two new OBJs for your test. We appreciate your feedback. Thanks','',0,'AIA=','3dt03q2l',1,0,'',2,0,0),(5883,1400,3,2,0,'80.32.22.38',1138216892,1,0,1,1,1,1,'','','All your C files have to be recompiled using the new Harbour/xharbour builds. \n\nPlease check this if you are using some LIBs besides Harbour/xharbour and FWH ones.','',0,'AIA=','1hmkr0m4',1,0,'',2,0,0),(5884,1420,6,52,0,'200.117.55.26',1138216949,1,0,1,1,1,1,'','hb_vmPushString...','Estimados,\n\nAntonio en un momento me contesto sobre el \"llamado de funciones FWH desde codigo C\",\n\nNecesito saber si existe algun ejemplo dando vuelta porque me interesó el tema y estoy necesitando mas informacion al respecto.\n\nGracias.','',0,'AIA=','8k1tsc3j',1,0,'',52,0,0),(5885,1396,6,2,0,'80.32.22.38',1138216980,1,0,1,1,1,1,'','','Todos los ficheros en C de librerías de terceros tienen que ser recompilados debido a los cambios recientes en Harbour/xHarbour.','',0,'AIA=','2oxxds8m',1,0,'',2,0,0),(5886,1400,3,34,0,'68.4.154.81',1138217937,1,0,1,1,1,1,'','More on _hb_stack','Antonio,\n\nI use xHarbour/FWH\n\nI just installed the latest FWH from you ( sent just minutes ago )\n\nI have no other .obj files\n\nI have no other .lib files\n\nI have no reference in my code to stack.  I did a complete search of the code to be sure.\n\nMy program compiled beautifully with FWH 2.5 plus October xHarbour.\n\nThe same exact script now will not link because of the _hb_stack issue.  \n\nA utility program that does not use FWH builds just fine !\n\nSo ... what should we check next ?\n\nTim','',0,'AIA=','1rw18fpu',1,0,'',34,0,0),(5887,1400,3,2,0,'80.32.22.38',1138218134,1,0,1,1,1,1,'','','Tim,\n\nDoes the linker report what module is using _hb_stack ?','',0,'AIA=','uhlnki92',1,0,'',2,0,0),(5888,1400,3,2,0,'80.32.22.38',1138219086,1,0,1,1,1,1,'','','Tim,\n\nWe have just emailed some files. Please check them. Thanks','',0,'AIA=','y1i325o3',1,0,'',2,0,0),(5889,1417,6,2,0,'80.32.22.38',1138219196,1,0,1,1,1,1,'','','Juan Carlos,\n\nYa tenemos algunos avances con los eventos. Confiamos en poder completarlos.','',0,'AIA=','4t42zxnp',1,0,'',2,0,0),(5890,1418,3,2,0,'80.32.22.38',1138219762,1,0,1,1,1,1,'','','FWH does not manage ActiveX events yet. We are in the process to implement them.\n\nWe also don\'t know yet if xharbour ActiveX can be used with FWH.','',0,'AIA=','16dmqcna',1,0,'',2,0,0),(5891,1367,1,2,0,'80.32.22.38',1138219920,1,0,1,1,1,1,'','','Walter,\n\nHere it is:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/d5dc0025/WNDIS.ZIP.html\">http://hyperupload.com/download/d5dc0025/WNDIS.ZIP.html</a><!-- m -->','',0,'AIA=','5kkf3r92',1,0,'',2,0,0),(5892,1394,3,2,0,'80.32.22.38',1138220022,1,0,1,1,1,1,'','','Ricardo,\n\nCopia uuid.lib al directorio LIB de Borland.','',0,'AIA=','vlyqz608',1,0,'',2,0,0),(5893,1410,2,2,0,'80.32.22.38',1138220669,1,0,1,1,1,1,'','','José Mª,\n\nuser32.dll debe estar disponible en Win98 también.','',0,'AIA=','i9db46xx',1,0,'',2,0,0),(5894,1401,5,421,0,'204.83.50.141',1138221940,1,0,1,1,1,0,'','FW=FW++','Is FW essentialy the same thing as FW++ and if not what are the differences?','',0,'AIA=','w2dzlx2c',1,0,'',421,0,0),(5895,1419,6,138,0,'201.138.50.179',1138222541,1,0,1,1,1,1,'','','Hugo:\n\nComo te comente el otro dia, con ADO puedes hacer el acceso a SQL Server sin ningun problema en absoluto.\n\nLo que si es importante es que debes hacer una reingenieria de todas tus tablas.\n\nContactame por correo privado y hacemos una cita para que te mostremos todo lo que hemos estado haciendo nosotros con (x)Harbour y ADO','',0,'AIA=','6t38r24p',1,0,'',138,0,0),(5896,1417,6,255,0,'200.67.134.233',1138223367,1,0,1,1,1,1,'','','Gracias Antonio.\nAprovechando, explícame algo por favor..\nPorqué es posible usar un control ActiveX en una\nventana y en un dialogo no?\n\nSe podrá desde recursos??\n\nGracias','',0,'AIA=','1ziom0e1',1,0,'',255,0,0),(5897,1401,5,2,0,'80.32.22.38',1138225226,1,0,1,1,1,1,'','','Gerrit,\n\nFW and FW++ are fully source code compatible. They work the same way. They use the same source code.\n\nThe only difference is that you use Xbase++ compiler (xpp.exe) and ALink.exe and FW is provided as a DLL (though you use a LIB to build your EXEs).','',0,'AIA=','3ilpf6im',1,1138229600,'',2,1,0),(5898,1410,2,45,0,'201.253.27.141',1138225544,1,0,1,1,1,0,'','','Aca hay informacion acerca de la funcion del API\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/resources/strings/stringreference/stringfunctions/charupper.asp\">http://msdn.microsoft.com/library/defau ... rupper.asp</a><!-- m -->\n\n\nSalu2','',0,'AIA=','1rc73szy',1,0,'',45,0,0),(5899,1417,6,2,0,'80.32.22.38',1138225589,1,0,1,1,1,1,'','','Juan Carlos,\n\nAcabamos de probar los ActiveX en diálogos y funcionan correctamente. Aquí tienes un ejemplo:\n\n[code:ungnlkvp]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin ActiveX Support&quot; SIZE 500, 300\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT SetActX&#40; oDlg &#41; ;\n      CENTERED\n\nreturn nil\n\nfunction SetActX&#40; oDlg &#41;\n\n   local oActiveX &#58;= TActiveX&#40;&#41;&#58;New&#40; oDlg, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oDlg&#58;oClient = oActiveX // To fill the entire window surface\n   oDlg&#58;Resize&#40;&#41;\n\n   oActiveX&#58;Do&#40; &quot;GoHome&quot; &#41;\n\nreturn nil\n[/code:ungnlkvp]\n\nLo que sí falta es implementar el método Redefine()','',0,'AIA=','ungnlkvp',1,0,'',2,0,0),(5900,1401,5,421,0,'204.83.50.141',1138225719,1,0,1,1,1,0,'','','ok i understand so all of FW resources are in the Dll for Xbase++ to understand.','',0,'AIA=','185jvmev',1,0,'',421,0,0),(5901,1421,1,423,0,'70.133.84.14',1138226130,1,0,1,1,1,0,'','Undo FW 2.3','There was a change to the Tget class sometime in 2002 where the popup menu code initiated by a right click was bypassed in favor of Windows default popup menu. For some reason, I cannot get the Undo option to be enabled when there is a change to the get value. Does anyone remember this issue and more importantly, how to fix it.\n\nThanks','',0,'AIA=','9fvcqplf',1,0,'',423,0,0),(5902,1410,2,404,0,'213.231.101.107',1138227489,1,0,1,1,1,0,'','Gracias por las respuestas','Gracias por las respuestas, y por la dirección del API.\n\nSaludos, José Mª','',0,'AIA=','30vnhuu2',1,0,'',404,0,0),(5903,1394,3,109,0,'200.92.96.220',1138228421,1,0,1,1,1,0,'','Uestudio','Sr. Linares\n\n   El archivo UUID.LIB, se encuentra en el directorio de BORLAND. Y por eso tambien preguntaba, si habra algo que me falte en las VARIABLES DE ENTORNO (AUTOEXEC, etc), de mi computadora.\n\n\n\n   Saludos y Gracias','',0,'AIA=','11ets6rh',1,0,'',109,0,0),(5904,1417,6,2,0,'80.32.22.38',1138229001,1,0,1,1,1,1,'','','Juan Carlos,\n\nAquí está la Clase TActiveX con el método Redefine() y otros necesarios implementados: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/dbb97186/activex.zip.html\">http://hyperupload.com/download/dbb9718 ... x.zip.html</a><!-- m -->\n\nY aquí un ejemplo de uso:\n[code:1t2x55u2]\n// Using an ActiveX in a dialog&#46;\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oActiveX\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;Redefine&#40; 10, oDlg, &quot;Shell&#46;Explorer&quot; &#41;\n   \n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT oActiveX&#58;Do&#40; &quot;GoHome&quot; &#41;\n\nreturn nil\n[/code:1t2x55u2]\n\n[code:1t2x55u2]\n#ifdef __FLAT__\n   1 24 &quot;&#46;/&#46;&#46;/WinXP/WindowsXP&#46;Manifest&quot;\n#endif\n#define DIALOG_1	1\n\nTest DIALOG 84, 77, 194, 119\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;ActiveX Test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n   CONTROL &quot;&quot;, 10, &quot;TActiveX&quot;, 0 | WS_CHILD | WS_VISIBLE, 11, 9, 171, 100\n&#125;\n[/code:1t2x55u2]','',0,'AIA=','1t2x55u2',1,0,'',2,0,0),(5905,1417,6,2,0,'80.32.22.38',1138229538,1,0,1,1,1,1,'','','Y el comando que lo hace más sencillo de usar:\n\n[code:beeuetr3]\n#xcommand REDEFINE ACTIVEX &lt;oActX&gt; ;\n             &#91; ID &lt;nId&gt; &#93;;\n             &#91; &lt;of&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; PROGID &lt;cProgID&gt; &#93; ;\n       =&gt; ;\n          &lt;oActX&gt; &#58;= TActiveX&#40;&#41;&#58;Redefine&#40; &lt;nId&gt;, &lt;oWnd&gt;, &lt;cProgID&gt; &#41;\n[/code:beeuetr3]\n\nREDEFINE ACTIVEX oActiveX ID 10 OF oDlg PROGID \"Shell.Explorer\"','',0,'AIA=','beeuetr3',1,0,'',2,0,0),(5906,1401,5,2,0,'80.32.22.38',1138229622,1,0,1,1,1,1,'','','Gerrit,\n\nRight <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','23h6ocpw',1,0,'',2,0,0),(5907,1421,1,2,0,'80.32.22.38',1138229916,1,0,1,1,1,1,'','','Andy,\n\nPlease use the popup to paste some text in the GET and then open it again and check if the undo item is enabled.','',0,'AIA=','2asqhddt',1,0,'',2,0,0),(5908,1394,3,2,0,'80.32.22.38',1138229984,1,0,1,1,1,1,'','','Insisto, en Borland\\lib ?','',0,'AIA=','3ozike8j',1,0,'',2,0,0),(5909,1420,6,2,0,'80.32.22.38',1138230068,1,0,1,1,1,1,'','','Gustavo,\n\nEstos foros tienen una opción de búsqueda (search) muy potente. Prueba a buscar BEGINDUMP por ejemplo.','',0,'AIA=','hjy4phwf',1,0,'',2,0,0),(5910,1401,5,421,0,'204.83.50.141',1138232566,1,0,1,1,1,0,'','','Hello again, i\'m trying to compile a sample from fw++ and i\'m getting a bunch of unresolved externals, on your website it says \"To link your app you just need to use Five32rt.lib (instead of Five.lib, FiveC.lib, Objects.lib and WinApi.lib) how do I use the .lib file to link?\n\nKind regards,\n\nGerrit Ferwerda','',0,'AIA=','1lkpnx46',1,0,'',421,0,0),(5911,1422,2,304,0,'200.67.162.185',1138233831,1,0,1,1,1,0,'','Impresiones en TdosPrn y oPrn','Hola a todos nuevamente solicitando su ayuda:\nen un programa tengo necesidad de imprimir en un LPT1 al estilo msdos antiguo, pero no he podido \"Controlar\" el mensaje de error que sale cuando la impresora esta apagada o no esta encendida, uso la clase tdosprn.\n\nAsi tambien requiero imprimir en puerto USB, para lo cual uso oPrn, el problema es que al hacer un \"Preview\" sale todo \"amontonado\", lo que tengo que hacer es darle click donde dice Factor (de la pantalla preview)\nseleccionar 2 y luego 1 para que se vea correctamente, esto tiene solucion ??\n\nSalu2\nVeracruz, Mexico','',0,'AIA=','3siory4b',1,0,'',304,0,0),(5912,1400,3,34,0,'68.4.154.81',1138236521,1,0,1,1,1,1,'','Update','As confirmed by direct email, the new files are working.\n\nThanks.\n\nTim','',0,'AIA=','3cz8ktkz',1,0,'',34,0,0),(5913,1423,6,331,0,'201.154.164.104',1138236967,1,0,1,1,1,0,'','ComboBox','Saludos.\n\nTengo el siguiente y aparente problema con combobox.\n\nEn mi archivo de RC anteriormente en las propiedades de algunos combobox\'s tenia marcada la opción de Sorted, ahora que desactivo esta opción ya al estar en ejecución mi aplicación aun me sigue ordenando los elementos.\n\nA que puede deberse esto?\n\n\nEn espera de su ayuda reciban un cordial saludo.\n\n\nArturo.','',0,'AIA=','2ajf9arx',1,0,'',331,0,0),(5914,1394,3,109,0,'200.92.96.220',1138238570,1,0,1,1,1,0,'','Listo','Sr. Linares al parecer eran las variables de entorno de mi Pc, ya que agregue a estas la variable c:\\bcc55\\lib y c:\\bcc55\\bin, y pude compilar y linkar sin errores.\n  \n  Ahora estoy buscando, donde queda el .EXE, una vez compilado y linkado?.\n\n\n\n Por su atención gracias.','',0,'AIA=','162ky1gh',1,0,'',109,0,0),(5915,1403,3,15,0,'203.73.90.168',1138239785,1,0,1,1,1,0,'','','Hello John,\n\nI have not any solution for Statusbar and Folders to brush look.\n\nIf you want different style of Statusbar and Folders, you can use VBar and New fix Folders( put ICON and BMP of Title ).I have C5 Folder full functions, but it have not compatible background when Dialog set Brush.\n\nRegards,\n\nRichard','',0,'AIA=','3t44sscm',1,0,'',15,0,0),(5916,1417,6,15,0,'203.73.90.168',1138240051,1,0,1,1,1,0,'','','Hello Antonio,\n\nCould you send to me this file?\nMy NB can\'t download it.\nThank you.\n\nRegards,\n\nRichard\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'AIA=','b3t9eipu',1,0,'',15,0,0),(5917,1424,1,47,0,'203.144.143.7',1138245318,1,0,1,1,1,0,'','How to activate WinHelp with F1','Dear All,\n\nI would like to activate Help file WinHelp() with F1.  I try to use as following but it doesn\'t work and it will ask to fine MAIN.HLP.\n\nSET KEY VK_F1 TO WinHelp(\'MyHelp.HLP\')\n\nHow can I do it?\n\nThanks&amp;Regards,\nDutch','',0,'AIA=','1bwms53v',1,0,'',47,0,0),(5919,1426,6,305,0,'200.121.126.113',1138247900,1,0,1,1,1,0,'','Problema con Preview FWH 2.6','Antonio: \nA ver si puedes ayudarme con este problema: \n\nGenero un reporte ancho con la clase TdosPrn (modificada por Ednaldo Rolim) en FW26+clipper5.3 y no tengo problemas cuando hago scroll horizontal en el preview para ver los datos a la derecha del reporte. \n\nSi compilo la misma aplicacion con FWH26+xHb 09950 y hago el scroll horizontal a la derecha, el reporte desaparece. \n\nQue puede estar pasando? \n\nPara muestra descargar un ejemplo de este link: <!-- w --><a class=\"postlink\" href=\"http://www.sgedukit.com/test/testprev.zip\">www.sgedukit.com/test/testprev.zip</a><!-- w --> \nMira la diferencia entre test2.exe (FW) y test2h.exe (FWH) \n\nSaludos \n\nRalph','',0,'AIA=','1n9kd605',1,0,'',305,0,0),(5920,1427,6,52,0,'200.68.215.9',1138248827,1,0,1,1,1,1,'','maquinas virtuales - virtual machines','Amigos,\n\nAntonio en un momento me dio un ejemplo del uso de maquinas virtuales, para poder llamar funciones desde C pero que estan en harbour, ahora bien, como recupero un dato (cadena) que devuelve la funcion que llame y que esta en harbour.\n\nEjemplo:\nfunction suma(a, b)\nreturn ( a + b)\n\nComo hago para que ese valor (a + b) lo pueda recuperar desde la funcion que fue llamada?\ngracias','',0,'AIA=','2t9jg170',1,0,'',52,0,0),(5921,1428,4,51,0,'80.122.88.242',1138258775,1,0,1,1,1,0,'','KEYBOARD','How can I open/close keyboard from my program?\n\nThanks in advance\nOtto','',0,'AIA=','273v5jrr',1,0,'',51,0,0),(5922,1389,4,19,0,'217.153.83.2',1138258838,1,0,1,1,1,0,'','','Enrico, this works for me ( I know it\'s  a POPUP menu):\n\n[b:13h0m2py]in .RC file (from eVC++) :[/b:13h0m2py]\n102 MENU DISCARDABLE \nBEGIN\n    POPUP \"Obs&#322;uga\"\n    BEGIN\n        MENUITEM \"&#321;&#261;czenie\",                    100\n        MENUITEM \"Logowanie\",                   102\n        MENUITEM \"Maszyna\",                     104\n        MENUITEM \"Przegl&#261;d\",                    106\n    END\n    POPUP \"Help\"\n     BEGIN\n        MENUITEM \"Test\",                           200\n        MENUITEM \"Test 1\",                        202\n     END\nEND\n[b:13h0m2py]in .PRG file[/b:13h0m2py]\n[color=blue:13h0m2py]function BuildMenu()\n\n   local oMenu\n\n   DEFINE MENU oMenu RESOURCE 102\n\n   REDEFINE MENUITEM ID 100 OF oMenu ACTION Lacz()\n\n   REDEFINE MENUITEM ID 102 OF oMenu ACTION (iif(lConnect,Loguj(),msgInfo(\"Brak po&#322;&#261;czenia z serwerem\")))\n\n   REDEFINE MENUITEM ID 104 OF oMenu ACTION (iif(lLogin,Wybor(),msgInfo(\"Najpier si&#281; zaloguj\")))\n\n   REDEFINE MENUITEM ID 106 OF oMenu ACTION (iif(lLogin,Wodzik(),msgInfo(\"Najpier si&#281; zaloguj\")))\n   REDEFINE MENUITEM ID 200 OF oMenu ACTION Help()\n   REDEFINE MENUITEM ID 202 OF oMeneu ACTION Help1()\nreturn oMenu[/color:13h0m2py]\n\nregards Eugeniusz','',0,'Qg==','13h0m2py',1,0,'',19,0,0),(5923,1428,4,89,0,'213.21.136.60',1138259924,1,0,1,1,1,0,'','','SHOWKEYBOARD() and HIDEKEYBOARD() \nMaurizio','',0,'Qg==','28mhvy8t',1,0,'',89,0,0),(5924,1389,4,6,0,'82.61.68.60',1138263955,1,0,1,1,1,1,'','','Thank you, I\'ll give it a try.\n\nEMG','',0,'Qg==','10aqug47',1,0,'',6,0,0),(5925,1429,3,67,0,'62.235.24.238',1138265294,1,0,1,1,1,0,'','Problems with 2.7 and xhb , februar build','Hello\n\nI can build and run a big aplication ( Thanks antonio , text.obj seems to work) , but have problems with samples from FW\n\nSo , i tryed alaska.prg , with his asociated rc-file\n\nWhen xrc is called , i receive ton\'s off errors and warnings , to much to include ( 66.000 bytes)\n\nAm i missing something ?\n\nFrank','',0,'Qg==','3rxdl7sv',1,0,'',67,0,0),(5926,1430,3,6,0,'82.61.68.60',1138265556,1,0,1,1,1,1,'','MsgInfo() bug','This is the sample:\n\n[code:x6w5qfwy]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL cStr1 &#58;= &quot;1234567890&quot;\n    LOCAL cStr2 &#58;= &quot;12345678901&quot;\n\n    MSGINFO&#40; VAL&#40; cStr1 &#41; &#41;\n    MSGINFO&#40; VAL&#40; cStr2 &#41; &#41;\n\n    ? VAL&#40; cStr1 &#41;\n    ? VAL&#40; cStr2 &#41;\n\n    RETURN NIL[/code:x6w5qfwy]\n\nResults:\n\n1234567890\n-539222987\n\n1234567890\n12345678901\n\nEMG','',0,'AIA=','x6w5qfwy',1,0,'',6,0,0),(5927,1431,3,67,0,'62.235.24.238',1138265635,1,0,1,1,1,0,'','TestRich.prg','Hello,\n\nWorking with 2.6 , xhb october release , i try to compile testRichprg :\n\nxLINK: error: Unresolved external symbol \'_GetFileVersionInfoSizeA\'.\n\nxLINK: error: Unresolved external symbol \'_GetFileVersionInfoA\'.\n\nxLINK: error: Unresolved external symbol \'_VerQueryValueA\'.\n\nI know that riched20.dll is required , so i have searched and downloaded it, and put in the samples directory\n\nFrank','',0,'AIA=','3o7f0ton',1,0,'',67,0,0),(5928,1401,5,2,0,'80.32.22.38',1138266625,1,0,1,1,1,1,'','','Gerrit,\n\nIn the samples directory there is a build32.bat file. Just try: build32 tutor01\n\nThen try build32 tutor02. Both samples (and most of the rest) should build without problems.\n\nPlease review build32.bat file and you will see how to build an application using Xbase++ and FW++.','',0,'AIA=','33rluvlu',1,0,'',2,0,0),(5929,1429,3,2,0,'80.32.22.38',1138266907,1,0,1,1,1,1,'','','Frank,\n\nsamples\\Alaska.prg properly builds with Borland and Microsoft too. So I guess it is something specific to xharbour xrc.\n\nCould you please post the first 10 errors or so ? Thanks','',0,'AIA=','ru9iqaiw',1,0,'',2,0,0),(5930,1394,3,2,0,'80.32.22.38',1138267018,1,0,1,1,1,1,'','','Ricardo,\n\nBusca el directorio en donde has creado el proyecto. Hay dos subcarpetas, debug y release. En una de las dos ha de estar.','',0,'AIA=','2dfm0aq0',1,0,'',2,0,0),(5931,1400,3,2,0,'80.32.22.38',1138267137,1,0,1,1,1,1,'','','Tim,\n\nGlad to know it is working <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAs explained by email, there was an old reference to _hb_stack inside FiveHCM.lib only (and just for Microsoft or xHarbour builder), that has been removed.','',0,'AIA=','3udg2we1',1,0,'',2,0,0),(5932,1431,3,2,0,'80.32.22.38',1138267547,1,0,1,1,1,1,'','','Frank,\n\nPlease link this library too:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/7da28544/version.lib.html\">http://hyperupload.com/download/7da2854 ... n.lib.html</a><!-- m -->\n\nIt is a missing import library in xharbour builder.\n\nThis library is not needed using Borland or Microsoft.','',0,'AIA=','2i657t2d',1,0,'',2,0,0),(5933,1429,3,67,0,'62.235.25.197',1138267682,1,0,1,1,1,0,'','','Type: C &gt;&gt;&gt;xrc.exe -fo\"objx\\alaska.res\"     -I\"D:\\XhbFeb\\c_include\" -I\"D:\\XhbFeb\\c_include\\win\" \"alaska.rc\"&lt;&lt;&lt;\n\nxRC: D:\\XhbFeb\\include\\wintypes.ch(19): warning: Unknown preprocessor control: \'Ifndef\'.\n\n\nxRC: D:\\XhbFeb\\include\\wintypes.ch(76): error: #endif with no #if.\n\n\nxRC: D:\\XhbFeb\\include\\cstruct.ch(87): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: D:\\XhbFeb\\include\\cstruct.ch(90): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: D:\\XhbFeb\\include\\cstruct.ch(91): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: D:\\XhbFeb\\include\\cstruct.ch(94): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: D:\\XhbFeb\\include\\cstruct.ch(103): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: D:\\XhbFeb\\include\\cstruct.ch(106): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: D:\\XhbFeb\\include\\cstruct.ch(108): warning: Unknown preprocessor control: \'xcommand\'.\n\n.......\n\n\n\nxRC: D:\\XhbFeb\\include\\wintypes.ch(76): error: File not found: \'#endif\'.\n\n\nxRC: D:\\XhbFeb\\include\\winuser.ch(1): error: File not found: \'from\'.\n\n\nxRC: D:\\XhbFeb\\include\\winuser.ch(1): error: File not found: \'hConvert.EXE\'.\n\n\n\n........\n\n\n\nFrank','',0,'AIA=','c0fyy8y8',1,0,'',67,0,0),(5934,1432,1,258,0,'139.165.96.129',1138270669,1,0,1,1,1,0,'','Outlook and Ole','Does somebody have a sample of communication with Outlook true  OLE.\nI want to send mail with attached files and read the contents of\nincomming mails.\n\nThanks .\n\nPhilippe Jacquet','',0,'AIA=','1swqtfuf',1,0,'',258,0,0),(5935,1430,3,2,0,'80.32.22.38',1138271668,1,0,1,1,1,1,'','','Enrico,\n\nThis modified source\\function\\msgs.c fixes it:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b171ed77/msgs.c.html\">http://hyperupload.com/download/b171ed77/msgs.c.html</a><!-- m -->\n\nThanks for your feedback <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','ysudb0y9',1,0,'',2,0,0),(5936,1429,3,2,0,'80.32.22.38',1138272133,1,0,1,1,1,1,'','','Frank,\n\nPlease remove this line in alaska.rc:\n#include \"..\\include\\winapi.ch\"\n\nand add this one (at the beginning):\n#include &lt;windows.h&gt;','',0,'AIA=','r71h79c5',1,0,'',2,0,0),(5937,1426,6,362,0,'200.168.52.156',1138272210,1,0,1,1,1,1,'','Re: Problema con Preview FWH 2.6','[quote=&quot;ralph&quot;:3vqmwqu3]Antonio: \nA ver si puedes ayudarme con este problema: \n\nGenero un reporte ancho con la clase TdosPrn (modificada por Ednaldo Rolim) en FW26+clipper5.3 y no tengo problemas cuando hago scroll horizontal en el preview para ver los datos a la derecha del reporte. \n\nSi compilo la misma aplicacion con FWH26+xHb 09950 y hago el scroll horizontal a la derecha, el reporte desaparece. \n\nQue puede estar pasando? \n\nPara muestra descargar un ejemplo de este link: <!-- w --><a class=\"postlink\" href=\"http://www.sgedukit.com/test/testprev.zip\">www.sgedukit.com/test/testprev.zip</a><!-- w --> \nMira la diferencia entre test2.exe (FW) y test2h.exe (FWH) \n\nSaludos \n\nRalph[/quote:3vqmwqu3]\n\nHOLA..\n\nPREGUNTA DIRECTAMENTE AL AUTOR:\n\n<!-- e --><a href=\"mailto:ednaldorolim@uol.com.br\">ednaldorolim@uol.com.br</a><!-- e -->\n\nSaludos.','',0,'gA==','3vqmwqu3',1,0,'',362,0,0),(5938,1405,3,2,0,'80.32.22.38',1138272426,1,0,1,1,1,1,'','','Deano,\n\n&gt; TRANSFIL-&gt;(RECLOCK())\n\nIt should be:\n\nTRANSFIL-&gt;( RLOCK() )','',0,'gA==','3th4mcod',1,0,'',2,0,0),(5939,1323,3,2,0,'80.32.22.38',1138272477,1,0,1,1,1,1,'','','Mauricio,\n\nClass TRdd is only available for FW 16 bits.','',0,'gA==','150t7cyp',1,0,'',2,0,0),(5940,1430,3,6,0,'82.61.68.60',1138272707,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'gA==','t2ldesrn',1,0,'',6,0,0),(5941,1432,1,2,0,'80.32.22.38',1138272716,1,0,1,1,1,1,'','','Philippe, \n\nAs we already commented you:\n\nOCXs are 32 bits components. \n\nWe do recommend you to port your application to 32 bits using FiveWin for Harbour/xharbour. The 32 bits full integration will solve the problems you may find.','',0,'gA==','2g3vu6np',1,0,'',2,0,0),(5942,1417,6,2,0,'80.32.22.38',1138273032,1,0,1,1,1,1,'','','Richard,\n\nAlready sent.','',0,'gA==','3tlktny0',1,0,'',2,0,0),(5943,1427,6,2,0,'80.32.22.38',1138273105,1,0,1,1,1,1,'','','Gustavo,\n\nhb_parc( -1 ) para cadenas\nhb_parnl( -1 ) para números (sin decimales)\netc...\n\n-1 accede al valor devuelto.','',0,'gA==','pxixjh9m',1,0,'',2,0,0),(5944,1423,6,2,0,'80.32.22.38',1138273243,1,0,1,1,1,1,'','','Arturo,\n\nEl array de items que le proporcionas desde código fuente, está ordenado ?','',0,'gA==','1skzer35',1,0,'',2,0,0),(5945,1426,6,2,0,'80.32.22.38',1138273458,1,0,1,1,1,1,'','','Ralph,\n\nBusca este código en source\\classes\\rpreview.prg y modifícalo como está aquí:\n\n[code:afdmcy2t]\n     DO case\n        case ! lTwoPages\n\n          if ! lZoom\n\n             if DEVICE&#58;nHorzSize&#40;&#41; &gt;= ;   // landscape &#40;apaisado&#41;\n                DEVICE&#58;nVertSize&#40;&#41;\n                nFactor &#58;= &#46;8 // &#46;4\n             else\n                nFactor &#58;= &#46;40 // &#46;25\n             endif\n\n          else\n             nFactor &#58;= &#46;47\n          endif\n\n          nWidth  = oWnd&#58;nWidth&#40;&#41; - If&#40; lZoom, 20, 0 &#41;\n          nHeight = oWnd&#58;nHeight&#40;&#41; - If&#40; lZoom &#46;and&#46; nZFactor &gt; 1, 20, 0 &#41; - 10 - ;\n                    If&#40; LargeFonts&#40;&#41;, 100, 80 &#41;\n          \n          if ! lZoom\n             nMetaWidth = &#40; nHeight - 40 &#41; * nFactor         \n          else   \n             nMetaWidth = nWidth * nFactor         \n          endif\n                    \n          oCoors1 &#58;= TRect&#40;&#41;&#58;New&#40; 40,;\n                                  Max&#40; &#40; nWidth / 2 &#41; - nMetaWidth, 10 &#41;,;\n                                  nHeight,;\n                                  Min&#40; &#40; nWidth / 2 &#41; + nMetaWidth, nWidth - 20 &#41; &#41;\n&#46;&#46;&#46;\n[/code:afdmcy2t]','',0,'AIA=','afdmcy2t',1,0,'',2,0,0),(5946,1382,6,2,0,'80.32.22.38',1138273699,1,0,1,1,1,1,'','','Manuel,\n\nRevisa esto:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=303\">http://fivetechsoft.com/forums/viewtopic.php?t=303</a><!-- m -->','',0,'AIA=','d0p3n6z9',1,0,'',2,0,0),(5947,1400,3,32,0,'196.36.8.34',1138276783,1,0,1,1,1,0,'','New FiveHCM.lib','Hi,\n\nIs there a place we can download the fixed lib?','',0,'AIA=','30r02sxz',1,0,'',32,0,0),(5948,1429,3,67,0,'62.235.25.197',1138277207,1,0,1,1,1,0,'','','Antonio\n\nI don\'t understand. In this version from xhb are in the include file winapi.ch , wintypes.ch and winuser.ch present , not in the previous version. So i suppose that winapi.ch from this directory was used , not from fwh\n\nI have also put this thread on xharbour , but no response\n\n \n\n\nType: C &gt;&gt;&gt;xrc.exe -fo\"objx\\alaska.res\"     -I\"D:\\xHBFeb\\c_include\" -I\"D:\\xHBFeb\\c_include\\win\" \"alaska.rc\"&lt;&lt;&lt;\n\nxRC: D:\\xHBFeb\\c_include\\win\\winuser.h(1008): warning: Macro redefinition of \'WS_OVERLAPPEDWINDOW\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\winuser.h(1009): warning: Macro redefinition of \'WS_POPUPWINDOW\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\winuser.h(1010): warning: Macro redefinition of \'WS_CHILDWINDOW\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\winuser.h(1032): warning: Macro redefinition of \'WS_EX_OVERLAPPEDWINDOW\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\winuser.h(1033): warning: Macro redefinition of \'WS_EX_PALETTEWINDOW\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\winuser.h(2250): warning: Macro redefinition of \'DS_SHELLFONT\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\winuser.h(2346): warning: Macro redefinition of \'LBS_STANDARD\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\commctrl.h(269): warning: Macro redefinition of \'CCS_LEFT\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\commctrl.h(270): warning: Macro redefinition of \'CCS_RIGHT\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\commctrl.h(271): warning: Macro redefinition of \'CCS_NOMOVEX\'.\n\n\nxRC: D:\\xHBFeb\\c_include\\win\\commctrl.h(791): warning: Macro redefinition of \'TBSTYLE_CHECKGROUP\'.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\nxRC: alaska.rc(17): error: Invalid syntax.\n\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: alaska.res&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1263&lt;&lt;&lt;','',0,'AIA=','282zbye8',1,0,'',67,0,0),(5949,1431,3,32,0,'196.36.8.34',1138277275,1,0,1,1,1,0,'','version.lib','Hi,\n\nxHarbour will find it if specified on the cmd line. It\'s in C:\\xhb\\c_lib\\Win','',0,'AIA=','3lnjthja',1,0,'',32,0,0),(5950,1389,4,6,0,'82.61.68.60',1138278289,1,0,1,1,1,1,'','','Unfortunately it doesn\'t seem to work. Can you send me a reduced and self-contained working sample, please?\n\nEMG','',0,'AIA=','2sp7kb5n',1,0,'',6,0,0),(5951,1389,4,19,0,'217.153.83.2',1138279530,1,0,1,1,1,0,'','','Check your mail\n\nEugeniusz','',0,'AIA=','2s2qyolb',1,0,'',19,0,0),(5952,1387,7,123,0,'81.39.239.66',1138279956,1,0,1,1,1,0,'','','Antonio,\n\n¿El vce tiene un make?\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2fg1kdaj',1,0,'',123,0,0),(5953,1433,6,347,0,'201.246.66.47',1138280220,1,0,1,1,1,0,'','Que diferencia Hay......','Antonio, que diferencia hay entre Harbour y xHarbour\nSaludos','',0,'AIA=','2lq537x2',1,0,'',347,0,0),(5954,1389,4,6,0,'82.61.68.60',1138282642,1,0,1,1,1,1,'','','It works, thank you!\n\nEMG','',0,'AIA=','kqik73yl',1,0,'',6,0,0),(5955,1434,6,319,0,'201.1.174.138',1138282795,1,0,1,1,1,0,'','ADO não funciona o RecordCount()?','Ola pessoal, estou trabalhando com o ADO para o ACCESS porem alguns comandos conforme relação abaixo não funciona! sabem porque?\n\n****************************************************\n#Include \"Fivewin.ch\"\nFunction Main()\nLOCAL oDados, txSql\nPRIVATE oCn := CREATEOBJECT( \"ADODB.Connection\" )\n\noCn:Open( \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=venda.mdb\" )\ntxSql := \"SELECT * FROM imovweb; \"\noDados := oCn:Execute( txSql)\n\noDados:MoveNext() -- Funciona\noDados:MoveFirst() -- NÃO Funciona\noDados:MoveLast() -- NÃO Funciona\noDados:RecordCount() -- NÃO Funciona\n****************************************************','',0,'AIA=','82r3xfu9',1,0,'',319,0,0),(5956,1427,6,52,0,'200.0.210.14',1138282803,1,0,1,1,1,1,'','','O sea de la misma forma que si recuperas un dato enviado a una funcion en C? pense que al utilizar Virtual la cosa cambiaba.\n\nGracias.','',0,'AIA=','28n04cfy',1,0,'',52,0,0),(5957,1435,21,319,0,'201.1.174.138',1138282881,1,0,1,1,1,0,'','Problemas com o ADO','Ola pessoal, estou trabalhando com o ADO para o ACCESS porem alguns comandos conforme relação abaixo não funciona! sabem porque?\n\n****************************************************\n#Include \"Fivewin.ch\"\nFunction Main()\nLOCAL oDados, txSql\nPRIVATE oCn := CREATEOBJECT( \"ADODB.Connection\" )\n\noCn:Open( \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=venda.mdb\" )\ntxSql := \"SELECT * FROM imovweb; \"\noDados := oCn:Execute( txSql)\n\noDados:MoveNext() -- Funciona\noDados:MoveFirst() -- NÃO Funciona\noDados:MoveLast() -- NÃO Funciona\noDados:RecordCount() -- NÃO Funciona\n****************************************************','',0,'AIA=','2vontbai',1,0,'',319,0,0),(5958,1436,3,319,0,'201.1.174.138',1138282994,1,0,1,1,1,0,'','ADO não funciona o RecordCount()?','Ola pessoal, estou trabalhando com o ADO para o ACCESS porem alguns comandos conforme relação abaixo não funciona! sabem porque?\n\n****************************************************\n#Include \"Fivewin.ch\"\nFunction Main()\nLOCAL oDados, txSql\nPRIVATE oCn := CREATEOBJECT( \"ADODB.Connection\" )\n\noCn:Open( \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=venda.mdb\" )\ntxSql := \"SELECT * FROM imovweb; \"\noDados := oCn:Execute( txSql)\n\noDados:MoveNext() -- Funciona\noDados:MoveFirst() -- NÃO Funciona\noDados:MoveLast() -- NÃO Funciona\noDados:RecordCount() -- NÃO Funciona\n****************************************************','',0,'AIA=','u0jv5jrq',1,0,'',319,0,0),(5959,1427,6,2,0,'80.32.22.38',1138283220,1,0,1,1,1,1,'','','Si, es igual, ya que la máquina virtual usa un item en donde almacena el valor de retorno (lo que se devuelve con \"return ...\").\n\nLa clave está en que al usar -1 con las funciones del sistema extendido, se accede al dicho item que almacena el valor de retorno.','',0,'AIA=','2a8utki0',1,0,'',2,0,0),(5960,1387,7,2,0,'80.32.22.38',1138283394,1,0,1,1,1,1,'','','Jose Luis,\n\nPuedes usar el del MSVC, ya que piensa que las aplicaciones para Pocket PC se construyen en un PC, luego el make es el mismo.','',0,'AIA=','2qvrexcl',1,0,'',2,0,0),(5961,1433,6,2,0,'80.32.22.38',1138283594,1,0,1,1,1,1,'','','Felipe,\n\nAmbos son clones de Clipper y funcionan correctamente. \n\nxharbour además añade nuevas extensiones al lenguaje que no tenía Clipper.','',0,'AIA=','31gmucux',1,0,'',2,0,0),(5962,1429,3,2,0,'80.32.22.38',1138283806,1,0,1,1,1,1,'','','Frank,\n\nIf xHB is providing a winapi.ch too then there may be conflicts with FWH one, yes.','',0,'AIA=','1ij23cif',1,0,'',2,0,0),(5963,1400,3,2,0,'80.32.22.38',1138283889,1,0,1,1,1,1,'','','Alex,\n\nPlease require it by email to me. Thanks.','',0,'AIA=','3pt6l002',1,0,'',2,0,0),(5964,1436,3,6,0,'82.61.68.60',1138284821,1,0,1,1,1,1,'','Re: ADO não funciona o RecordCount()?','From the MSDN:\n\n\"The returned Recordset object is always a read-only, forward-only cursor.\"\n\nUse recordsets instead of connections:\n\n[code:2nkza2xb]#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRs&#58;Open&#40; &quot;SELECT * FROM Clienti&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=clienti&#46;mdb&quot;, adOpenKeyset, adLockReadOnly &#41;\n\n    oRs&#58;MoveLast&#40;&#41;\n\n    WHILE !oRs&#58;EOF\n        ? oRs&#58;Fields&#40; &quot;Cliente&quot; &#41;&#58;Value\n        oRs&#58;MoveNext&#40;&#41;\n    ENDDO\n\n    oRs&#58;Close&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:2nkza2xb]\n\nEMG','',0,'AIA=','2nkza2xb',1,0,'',6,0,0),(5965,1400,3,32,0,'196.36.8.34',1138284866,1,0,1,1,1,0,'','new lib','Done, thanks','',0,'AIA=','gkqvn599',1,0,'',32,0,0),(5966,1407,3,2,0,'80.32.22.38',1138285389,1,0,1,1,1,1,'','','It is limited only by OS and number of open files per process. \n\nConfirmed by RDDs master Przemek.','',0,'AIA=','3vjt3qxb',1,0,'',2,0,0),(5967,1400,3,2,0,'80.32.22.38',1138285558,1,0,1,1,1,1,'','','Alex,\n\nAlready sent. Thanks','',0,'AIA=','2guh4ttc',1,0,'',2,0,0),(5968,1379,6,147,0,'208.51.141.113',1138287122,1,0,1,0,1,1,'','','Gracias, lo voy a probar. En principio no lo hice porque tu recomendación fue crear una carpeta harbour dentro de \\UEStudio\\Proyects, y lo tomé como mandatorio.\n\nsaludos','',0,'AIA=','gc2iq7mk',1,0,'',147,0,0),(5969,1428,4,51,0,'80.122.88.242',1138288439,1,0,1,1,1,0,'','','Thank you.\nOtto','',0,'AIA=','29brocwm',1,0,'',51,0,0),(5970,1437,4,51,0,'80.122.88.242',1138288552,1,0,1,1,1,0,'','Barcode Scanning Accessoire','Could I use a scanner with FW?\nRegards\nOtto','',0,'AIA=','3h0ret2q',1,0,'',51,0,0),(5971,1395,6,147,0,'208.51.141.113',1138288643,1,0,1,0,1,1,'','','Wilson:\nEl wBrowse de Hernán no es mas que el wBrowse de FW, extendido (en mi opinión).  Por lo que lo podés construir basado en tus ateriores ABM.\nUn ejemplo sencillo sería\n\n....\n@0,0 LISTBOX  ::oLst ;\n        FIELDS     ... ;\n        HEADER   ... ;\n        COLSIZES ... \n\n::oLst:bKeyDown := {|nK| if( nK==VK_INSERT,  ::ABMs( .T. )       // Agrega\n                                       if( nK==VK_RETURN,  ::ABMs( .F. )       // Edita\n                                       if( nK==VK_DELETE,  ::Borra( .T. ) }    //  Borra\n\n....\n\nMETHOD ABMS( lNuevo ) CLASS ...\n\n  if lNuevo\n     // defino los campos a introducir\n  else\n     // edito los campos\n   end\n\n   DEFINE DIALOG oDlg ...\n   \n    @... GET ... OF oDlg\n    ...\n    \n    @... DEFINE BUTTON PROMPT \"Guardar\" ACTION ...\n    @... DEFINE BUTTON PROMPT \"Cancelar\" ACTION oDlg:End()\n\n    ACTIVATE DIALOG oDlg\n\n   En el boton Guardar y, luego de los pasos de volcar a disco los datos, agrego ::oLst:Refresh de manera de visualizarlo en el Listbox (wBrowse)\n\nespero te sirva\nSaludos','',0,'AIA=','1o2i55j8',1,0,'',147,0,0),(5972,1394,3,109,0,'200.77.29.9',1138288808,1,0,1,1,1,0,'','Donde quedo el .EXE','Pues no Sr. Linare, el ejecutable no se encuentra en ninguna de las 2 carpetas, ahi solo existen archivos .BC, .DEP, .C, .OBJ pero .EXE, NINGUNO','',0,'AIA=','30dd27j7',1,0,'',109,0,0),(5973,1417,6,255,0,'200.67.134.233',1138289138,1,0,1,1,1,1,'','','Que tal Antonio \n\nRecién llego a la oficina y veo esto que acabas\nde poner y solo me resta decirte\n\nMIL GRACIAS! está genial !!!!\n\nSaludos','',0,'AIA=','3t8bn19c',1,0,'',255,0,0),(5974,1437,4,2,0,'80.32.22.38',1138289511,1,0,1,1,1,1,'','','Otto,\n\nYes. Please do a search on these forums for \"scanner\" and you will read some related posts on the Pocket PC section.','',0,'AIA=','d6fvdfrb',1,0,'',2,0,0),(5975,1394,3,2,0,'80.32.22.38',1138289600,1,0,1,1,1,1,'','','Ricardo,\n\nSi pulsas la admiración de color rojo del UEStudio, se ejecuta la aplicación ? Mira en la barra de tareas de Windows, que aparecerá el icono de la aplicación.','',0,'AIA=','2wsj0ua3',1,0,'',2,0,0),(5976,1379,6,2,0,'80.32.22.38',1138289767,1,0,1,1,1,1,'','','Mario,\n\n&gt;\nGracias, lo voy a probar. En principio no lo hice porque tu recomendación fue crear una carpeta harbour dentro de \\UEStudio\\Proyects, y lo tomé como mandatorio.\n&gt;\n\nEso solo es preciso para configurar UEStudio, pero tus propios proyectos puedes alojarlos en donde quieras.','',0,'AIA=','1fkhhgxr',1,0,'',2,0,0),(5977,1436,3,319,0,'201.1.174.138',1138289913,1,0,1,1,1,0,'','','Perfect!\n\nMuito obrigado,\nRonaldo Minacapelli','',0,'AIA=','2fokfe0x',1,0,'',319,0,0),(5978,1426,6,305,0,'201.230.53.160',1138290339,1,0,1,1,1,0,'','','Antonio:\n\nHice el cambio el rpreview.prg y lo enlazo con el test2.prg pero sigue igual.\nLo he subido al mismo link anterior para que lo veas.  Adjunto tambien va test2.vrc para que puedas construir el Exe con Verce.\n\nGracias por tu ayuda\n\nRalph','',0,'AIA=','21c26kkn',1,0,'',305,0,0),(5979,1438,7,123,0,'81.39.239.66',1138291973,1,0,1,1,1,0,'','Default x := y','Antonio,\n\nParece que no está en fwce.ch el comando default.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2s9f7oyj',1,0,'',123,0,0),(5980,1437,4,51,0,'80.122.88.242',1138291992,1,0,1,1,1,0,'','','Thank you, Antonio.\nImagine, I only saw an hour before that there is a \"search\" on the FORUM.\n\nRegards\nOtto','',0,'AIA=','2t3ruxnr',1,0,'',51,0,0),(5981,1439,3,148,0,'62.135.92.222',1138292363,1,0,1,1,1,0,'','Oracle Application and fivewin','Can fivewin application export data from Oracle Application ? That is very important to me . I do not know the the database file file for Oracle as .DBF in FW , but can I manage easily the transfer between FW application and Oracle Application ?','',0,'AIA=','212r7vo7',1,0,'',148,0,0),(5982,1423,6,331,0,'201.154.164.104',1138292373,1,0,1,1,1,0,'','','Antonio,\n\nEl arreglo no va ordenado. todo sucedio cuando habilite la opción de Sorted en las propiedades del combobox desde el recurso, lo deshabilito y me lo sigue manteniendo ordenado.\n\nSaludos','',0,'AIA=','jbel1ech',1,0,'',331,0,0),(5983,1440,3,148,0,'62.135.92.222',1138292503,1,0,1,1,1,0,'','Please Help me to print multi fields database','How can I adjust the report method in TWbrowse class to divide all fields on separate sequenced pages . \nYou can find that message in samples\\browse.prg \nNot All fields appeared . \nPlease give me an example of source code ?','',0,'AIA=','cpqzcmef',1,0,'',148,0,0),(5984,1424,1,303,0,'68.7.28.54',1138293650,1,0,1,1,1,0,'','','Dutch,\n\nTry just redefining the helpIndex() function (and don\'t use SET KEY).\n\nfunction helpIndex()\nreturn winHelp(\"myhelp.hlp\")\n\nJames','',0,'AIA=','d9tu2x4v',1,0,'',303,0,0),(5985,1441,3,148,0,'62.135.92.222',1138293828,1,0,1,1,1,0,'','ListBox Fields Question','I need to make the data(fields) expanded with the list box expanded . How can I make this ? I tried change the size . It is the same no Expanded it is a limited screen with 1 or 2 fields I need to make the fields expand all the screen .\nThanks','',0,'AIA=','cho3okq6',1,0,'',148,0,0),(5986,1401,5,421,0,'204.83.50.141',1138294813,1,0,1,1,1,0,'','','Yes i\'ve tried to use the Build32 bat file and I receive this error.\n\nALINK: fatal error ALK4001: cannot open file \"tutor01.res\"\n\nBy the way thanks for your prompt support!','',0,'AIA=','1l01no79',1,0,'',421,0,0),(5987,1438,7,2,0,'87.218.146.181',1138296403,1,0,1,1,1,1,'','','Jose Luis,\n\nIncluido. Gracias','',0,'AIA=','qgozqeqa',1,0,'',2,0,0),(5988,1423,6,103,0,'200.164.92.242',1138296605,1,0,1,1,1,0,'','','Estas usando Pelles C o Workshop? Hasta donde lo sé Pelles C hace con que todos los combobox sean marcados como SORTED.\n\nSaludos,\n\nKleyber','',0,'AIA=','3uflp0gw',1,0,'',103,0,0),(5989,1401,5,2,0,'87.218.146.181',1138296616,1,0,1,1,1,1,'','','Gerrit,\n\nbuild32.bat uses the Borland resources compiler (brc32.exe) that you may not have. It is free, here you have it: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/6a1c3753/brc.zip.html\">http://hyperupload.com/download/6a1c3753/brc.zip.html</a><!-- m -->','',0,'AIA=','531wxnz5',1,0,'',2,0,0),(5990,1437,4,2,0,'87.218.146.181',1138296744,1,0,1,1,1,1,'','','Otto,\n\nAnd it is a very powerfull and usefull search option <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','z3pp5be6',1,0,'',2,0,0),(5991,1439,3,168,0,'201.248.22.29',1138297546,1,0,1,1,1,0,'','','Sure...!\nIf you exporta data to a text file (or flat file) you can import to your oracle database easily.','',0,'AIA=','1vymgkuh',1,0,'',168,0,0),(5992,977,7,95,0,'201.137.195.114',1138298983,1,0,1,1,1,0,'','','Estimado Antonio\n\nTienes razon, como conectar el scanner al emulador.\nAun si se pudiera echar a andar la lib scnapi32.dll dentro\ndel emulador, de nada serviria, pues no habria lectura\nde codigo de barras.\nBueno mejor olvidarlo.\n\nTe comento que la aplicacion ( muy sencilla ) ha estado \nfuncionado muy bien, q porcierto tengo que subir las fotos\npara que las vean, una vez que las tome.\n\nHe cambiando un poco el procedimiento, en la toma de inventario\nde medicamentos, tanto en mi punto de venta como en la app de la\nsymbol.\n\nEjemplo :\n\nEn mi punto de venta, al iniciar solamente la caja1, creo un archivo texto con el nombre del codigo de barras + su extencion ( .EXI ) y adentro del \narchivo grabo toda la informacion, existencia, precios, marca y linea.\nAntes no lo hacia asi.\n\nAhora en mi app de symbol, cuando se escanea un codigo, voy directamente a revisar atravez de la red, en la caja1 en el directorio, ese archivo y si lo encuentro, lo habro y leeo la informacion y comparamos.\n\nDe esta manera me ha funcionado mejor q con la manera anterior.\n\nTengo algunos problemas, pero muy pequenos.\n\nEjemplo :\n\nLa app en symbol, por cada leida de codigos,los voy almacenado en una variable y la voy sumando, pero al mismo momento la voy grabando en la caja1 atravez de la red como un arhcivo llamaod inventa.log\nahi, voy dejando todo lo que se va tomando.\nEl problema es que aveces no me graba todo.\nHe puesto un contador, para que el usuario me grabe o se salga de la app\ncada 100 articulos y los suba a mi punto de venta. Me ha funcionado, pero de mi toma de inventario global creo que se pierde la lectura el 1 o 2 %\n\nBueno, eso es todo por el momento.\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','2dfylc7c',1,0,'',95,0,0),(5993,1421,1,423,0,'70.133.84.14',1138299284,1,0,1,1,1,0,'','','I did and there is no change -- Undo is still disabled. FYI, this is 16-Bit FW. \n\nHere is the code:\n\n//----------------------------------------------------------------------------//\n\nMETHOD RButtonDown( nRow, nCol, nFlags ) CLASS TGet\n\n   if GetFocus() != ::hWnd\n      ::SetFocus()\n      SysRefresh()              // In case there is a VALID somewhere\n      if GetFocus() != ::hWnd\n         return nil\n      endif\n   endif\n\n   if ::bRClicked != nil\n      return Eval( ::bRClicked, nRow, nCol, nFlags )\n   endif\n\nreturn nil  // Invokes default popup menu','',0,'AIA=','31ruqvaa',1,0,'',423,0,0),(5994,1401,5,421,0,'204.83.50.141',1138299514,1,0,1,1,1,0,'','','I already have that resource compiler here is what my bat file looks like,maybe you can find the problem from this.\n\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin++ 1.82 - November 2005          xBase and OOPS development power   ³Ü\nECHO ³ (c) FiveTech, 1993-2005    for Microsoft Windows 95/98/NT/2000/ME and XP   ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nSET INCLUDE=c:\\alaska\\xppw32\\include\nset path=%path%;c:\\alaska\\xppw32\\lib;c:\\windows\nc:\\alaska\\xppw32\\bin\\xpp %1 %2 /p /n /i..\\include /com\n\nrem if exist %1.rc c:\\alaska\\xppw32\\bin\\arc %1\nrem if exist %1.rc c:\\borland\\bcc55\\bin\\brc32 %1\n\nSET LIB=c:\\alaska\\xppw32\\lib;..\\lib\nif not exist %1.rc goto :NORES\nif exist %1.rc c:\\bcc55\\bin\\brc32 %1\nc:\\alaska\\xppw32\\bin\\alink %1.obj /PM:PM five32rt.lib xpprt0.lib %1.res\nGOTO :END\n\n:NORES\nc:\\alaska\\xppw32\\bin\\alink %1.obj /PM:PM five32rt.lib\n\n:END\nif not errorlevel 1 %1','',0,'AIA=','10lac4kx',1,0,'',421,0,0),(5995,1401,5,2,0,'87.218.146.181',1138299629,1,0,1,1,1,1,'','','Gerrit,\n\nPlease remove the rem from this line:\n\nrem if exist %1.rc c:\\borland\\bcc55\\bin\\brc32 %1','',0,'AIA=','30iy0thq',1,0,'',2,0,0),(5996,1442,19,73,0,'200.95.72.112',1138300324,1,0,1,1,1,0,'','noticias de MM','alguine tiene noticias el master MM, deseandole lo mejor, salud, trabajo y paz.\nÁnimo master donde estes !!\nPaco','',0,'AIA=','v6t0kz9y',1,0,'',73,0,0),(5997,1401,5,421,0,'204.83.50.141',1138300655,1,0,1,1,1,0,'','','That seemed to work...but is this FW++ for xbase++version 1.9 because I currently have 1.82 but should be getting 1.9 shortly... if so then everything should be working soon.','',0,'AIA=','2qlqlh49',1,0,'',421,0,0),(5998,1427,6,228,0,'201.245.222.85',1138301087,1,0,1,1,1,1,'','Perdon la ingnoracia.','Perdon la ignoracia, pero alguien me puede explicar que son las maquinas virtuales?','',0,'AIA=','m9vys0k7',1,0,'',228,0,0),(6000,1441,3,303,0,'68.7.28.54',1138301844,1,0,1,1,1,0,'','','Ehab,\n\nIs this what you need?\n\noWnd:oClient:= oLbx\n\nJames','',0,'AIA=','3hu9k88m',1,0,'',303,0,0),(6001,1324,6,228,0,'201.245.222.85',1138302021,1,0,1,1,1,1,'','Ejemplo','Oye Vikthor, en donde puedo encontrar un ejemplo sobre la idea de Hernan. La verdad me gusta mucho.','',0,'AIA=','16bnvskd',1,0,'',228,0,0),(6002,1439,3,138,0,'201.138.50.179',1138302251,1,0,1,1,1,1,'','','You can also use ADO to conect directly into the Oracle Databes and insert all the DBF data needed.','',0,'AIA=','1ljwege4',1,0,'',138,0,0),(6003,1422,2,404,0,'213.231.101.107',1138302690,1,0,1,1,1,0,'','Controlar impresora.','Yo, controlaba la impresora, con la función ISPRINTER(), y una variable lógica que mientras fuera .F., mantenía un mensaje de error.\n\nRespecto al PREVIEW. Siempre, ha sido así. No se si habra alguna otra forma.\n\nSaludos, José Mª','',0,'AIA=','1lx9u2gm',1,0,'',404,0,0),(6004,1192,6,299,0,'69.65.88.121',1138302769,1,0,1,0,1,0,'','','Me gustaria usar la function en c que sugiere Paco para lograr el efecto.  Como le hago para compilarla e integrarla a mis aplicaciones?\n\nGracias.\n\nReinaldo Crespo','',0,'AIA=','33w1uqpw',1,0,'',299,0,0),(6005,1353,6,123,0,'81.39.239.66',1138302993,1,0,1,1,1,0,'','','Joel,\n\nDanos un poco más de información... Cual versión de (x)harbour y Fwh usas, y contra cual base de datos te conectas y a través de qué (oledb, odbc).\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','1xl6exgo',1,0,'',123,0,0),(6006,1394,3,138,0,'201.138.50.179',1138303007,1,0,1,1,1,1,'','','Jejeje\n\nLos dos se estan complicando muy mucho.\n\nEl problema es que no tienes los archivos de configuracion del compilador de Borland ni del enalzador ILINK32.\n\nEstos 2 archivos tienen que ir EN LA CARPETA BIN del compilador de borland y se deben llamar BCC32.CFG e ILINK32.CFG\n\nPor ejemplo, en mi BCC32.CFG yo tengo esto\n\n-Ic:\\borland\\bcc55\\include;c:\\xHarbour\\include;c:\\fw27\\include\n-Lc:\\borland\\bcc55\\lib;c:\\xharbour\\lib;c:\\fw27\\include\n\ny en mi ILINK32.CFG tengo esto:\n\n/Lc:\\borland\\bcc55\\lib;c:\\xHarbour\\lib;c:\\fw27\\lib\n\nY listo, el problema que tienes con la UUID.LIB es precisamente que no la esta encontrando porque no existe el archivo de configuraicon del enlazador','',0,'AIA=','ldcz9epq',1,0,'',138,0,0),(6007,1353,6,40,0,'200.77.122.165',1138303720,1,0,1,1,1,0,'','','Utilizo xHarbour Build 0.99.50 SimpLex, FW24H, MS-SQL el campo al\nque estoy afectado es un tipo smalldatetime, esto es via ADO estoy utilizando las clases que pusiste de ejemplo en Tu blog. (Por cierto excelentes ejemplos)\n\nGracias y agradecido\nJoel Andujo','',0,'AIA=','2e3tru61',1,0,'',40,0,0),(6008,1443,2,348,0,'200.121.210.24',1138310567,1,0,1,1,1,0,'','dudas para crear documentos con cabecera y detalle','Buen dia con todos....\n\nla consulta es la siguiente:  tengo el problema al desear generar un documento  ejem. Factura  que tiene  cabecera (datos del Cliente con Gets) y  detalle  (relacion de Productos que es con un listbox) todo esto dentro de un cuadro de dialogo\n\nSucede que deseo llenar la  cabecera y luego de tener ciertos campos obligatorios  llenos con un click a un boton se genera el nuevo numero del documento correlativo XNRO_NEW=\"9999\"  y se habilita el Listbox del detalle  el cual funciona con un un SELECT NRO_FA FOR XNRO_NEW el cual debe filtrar  solo los detalles de la nueva factura Nr.9999,,  he aqui donde nace el problema...  cuando lleno el primer detalle  y retorno a la ventana  del documento  el ListBox muestra otros registros, pese a haber  cambiado del Filtro con el metodo SetFilter .....  oLbx:setfilter(\"FAC_DETA-&gt;NR_DOC\", XNRO_NEW)  \n\nUn comentario adicional:  para aliviar el problema temporalmente he tenido que hacer lo siguiente :   antes de entrar a la ventana del Documento  (que tiene la cebecera y detalle)  preguntat si desea crear un docuemnto, y generar el Nro del nuevo documento  y recien ingresar a la ventana ...  ahi todo funciona ok....  \n\nEspero haberme explicado bien.  les agradecere una luz .... en el camino..\n\nMil gracias\n\n\n\nLubin','',0,'AIA=','3mct171w',1,0,'',348,0,0),(6009,1401,5,2,0,'87.218.146.41',1138310761,1,0,1,1,1,1,'','','Gerrit,\n\nYes, it is for Xbase++ 1.9 RC2.','',0,'AIA=','y73qj1dy',1,0,'',2,0,0),(6010,1394,3,2,0,'87.218.146.41',1138310932,1,0,1,1,1,1,'','','René,\n\nPor lo que él comenta:\n\n&gt; pude compilar y linkar sin errores.\n\nYa está construyendo bien el ejecutable. Lo que no ha localizado es donde UEStudio lo ha puesto. UEStudio funciona realmente bien, pero hay que aprender un poco la forma en que trabaja.','',0,'AIA=','1qne6b1l',1,0,'',2,0,0),(6011,1192,6,28,0,'87.218.46.135',1138311610,1,0,1,1,1,0,'','','Hola\n\nPon al final de tu código prg lo siguente:\n\n[code:1xvyss3j]#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n&#46;&#46;&#46;&#46; la función c\n\n#pragma ENDDUMP[/code:1xvyss3j]\n\ny ya está.\n\nUn saludo\n\nPaco','',0,'AIA=','1xvyss3j',1,0,'',28,0,0),(6012,1444,6,39,0,'216.155.88.60',1138312130,1,0,1,1,1,0,'','Archivos XML Firmados ???','Alguien tiene un poco de informacio sobre esto, ¿ Se pueden hacer con harbour o xharbour ? \n\nEl acceso a los datos de la firma electronica es simple con capicom y ole, el crear los archivos xml con ole y el msxml 4.0 tambien es simple, pero no tiene ninguna ayuda sobre la firma de archivos xml.\n\n\nGracias por cualquier informacion.\n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','1p2yx4sp',1,0,'',39,0,0),(6013,1400,3,34,0,'68.4.154.81',1138313822,1,0,1,1,1,1,'','Alex ... great picture','Alex,\n\nI love the picture.  I guess thats normal for an old guy like me with 8, almost 9, grandkids ... and who loves every minute of it !\n\nTim','',0,'AIA=','22ra12ip',1,0,'',34,0,0),(6014,1445,6,147,0,'208.51.141.113',1138314879,1,0,1,0,1,1,'','consulta de libs incluidas en buildx.bat','Alguien me podría decri cuando incluir y cunado no estas libs?\necho %bcdir%\\lib\\psdk\\odbc32.lib, &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib, &gt;&gt; b32.bc\n\ngracias','',0,'AIA=','3llfafuo',1,0,'',147,0,0),(6015,1446,3,65,0,'193.201.130.97',1138316722,1,0,1,1,1,0,'','Error in Testxbrw sample','I want to edit an array with xbrowse. There is a sample \"testxbrw\" in samples folder. I have compiled and run it. But when I try to edit the\nNAME field in the DBF structure array I am loosing the data.\n\nPlease Help\n\nBirol','',0,'AIA=','23wukz6j',1,0,'',65,0,0),(6016,1192,6,299,0,'69.65.88.121',1138317043,1,0,1,0,1,0,'','','Paco;\n\nGracias por tu respuesta.  Incluí la función al fondo de uno de los prgs que componen la aplicación.  Recibo el siguiente error:\n\n	f:\\borland\\bcc55\\bin\\bcc32.exe -c -O2 -If:\\xharbour_0.99\\include;f:\\borland\\bcc55\\include -o\\mp\\patients\\shared.obj \\mp\\patients\\shared.xhrb\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n\\mp\\patients\\shared.xhrb:\nError E2356 ..\\\\shared\\\\shared.prg 2762: Type mismatch in redeclaration of \'GradientFill\'\nError E2344 f:\\borland\\bcc55\\include\\wingdi.h 3453: Earlier declaration of \'GradientFill\'\n*** 2 errors in Compile ***\n\n\nLa linea 2762 de shared.prg es la que solamente tiene el parentesis abriendo.\n\nReinaldo.','',0,'AIA=','1kyc791f',1,0,'',299,0,0),(6018,1446,3,65,0,'193.201.130.97',1138319327,1,0,1,1,1,0,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nOskar thanks for your quick reply.\nThank you very much.\n\nBirol','',0,'AIA=','1cnfhyak',1,0,'',65,0,0),(6019,1401,5,421,0,'204.83.50.141',1138320004,1,0,1,1,1,0,'','','ok so apperently I only have fivewin++1.82 could you send me a email with the link to download FW++1.9 please.','',0,'AIA=','2dbz5bt2',1,0,'',421,0,0),(6020,1422,2,304,0,'200.67.162.185',1138323068,1,0,1,1,1,0,'','','Me parece que alguna vez en la pagina de <!-- w --><a class=\"postlink\" href=\"http://www.dbwide.ar\">www.dbwide.ar</a><!-- w --> lei que habia que modificar la clase, ya que al parecer no \"pasaba\" el valor del Factor\n\nera una linea que decia:\nSetFactor()\ny el comentaba que habia que ponerle\nSetFactor(1)\npero la pregunta es, despues de corregir esa clase como logro que se ejecute el cambio ???\nsolo grabandola no hace nada diferente, si alguien sabe algo mucho les agradecere su ayuda\nsalu2','',0,'AIA=','3553u2oj',1,0,'',304,0,0),(6021,1401,5,2,0,'87.218.146.57',1138323497,1,0,1,1,1,1,'','','Gerrit,\n\nFW++ is for Xbase++ 1.9 RC2. Please contact Alaska to upgrade your Xbase++. Thanks.','',0,'AIA=','1jkkdrgg',1,0,'',2,0,0),(6022,1192,6,2,0,'87.218.146.57',1138324116,1,0,1,1,1,1,'','','Reinaldo,\n\nCambia el nombre GradientFill por GradientFILL, por ejemplo.','',0,'AIA=','ad383fvo',1,0,'',2,0,0),(6023,1445,6,2,0,'87.218.146.57',1138324256,1,0,1,1,1,1,'','','Mario,\n\nDéjalas puestas siempre, porque el enlazador sólo incluirá lo que necesite. \n\nLo que no se use, no irá incluido dentro del EXE.','',0,'AIA=','2itzt7zo',1,0,'',2,0,0),(6024,1427,6,2,0,'87.218.146.57',1138324728,1,0,1,1,1,1,'','','Harbour y xharbour, al igual que Clipper, y al igual que otros compiladores (como Java, Visual Basic, etc.) usan lo que se denomina una máquina virtual.\n\nLa maquina virtual es como una CPU virtual. Es decir, no se ejecutan las instrucciones del microprocesador directamente, sino desde una capa de instrucciones controladas que aseguran la robustez de la aplicación. La aplicación nunca puede \"desbocarse\" como ocurre en lenguajes como C, ensamblador, etc.\n\nLa máquina virtual ofrece muchas ventajas para el desarrollo de aplicaciones de gestión y de todo tipo, pues aportan mucha ayuda para depurar las aplicaciones, es decir, para saber cuando ocurre un error y por qué.\n\nLa contrapartida es que las máquinas virtuales han de ser muy optimizadas para que no consuman demasiado tiempo en sus procesos, tiempo que es muy valioso para que la aplicación funcione rápido.\n\nAqui te incluyo un escrito que en su dia aporté al proyecto harbour, explicando la arquitectura de una máquina virtual:\n\nThe Harbour virtual machine (VM)\n\nQuestion :\n\n  If a VM description is desirable, how should it be structured? (I\npropose plain text, with two main sections: VM description, Opcodes. The\n\"Opcodes\" section would describe every opcode: mnemonic, code, operands,\ndescription. I think I can maintain this section.)\n\nAnswer :\n\nThe VM is formed by the main execution loop and several subsystems, each of\nwhich could be theoretically replaced, supposing that you respect the\ninterface of each subsystem.\n\nThe main execution loop is defined in the C function named VirtualMachine(),\nwhich receives two parameters: the pcode instructions to execute and the\nlocal symbol table (a portion of the OBJs (static) symbol table) used by\nthat pcode: (please review hbpcode.h for the currently implemented pcode\nopcodes)\n\nVM( pcode, local symbols )\n\nThe VM may invoke the VM (itself) again. This lets the Clipper language\naccess Clipper functions and methods and external C language functions again\nand again. The VM organizes these multiple accesses in an ordered and\nfully controlled way, and implements services to access these multiple\nexecution levels (ProcName(), ProcLine(), debugging, and stack variables\naccess).\n\nThe VM subsystems are continuously used by the main execution loop. Let\'s\nreview these VM subsystems:\n\nThe startup: Controls the initialization of the different VM subsystems.\nIt is invoked at the beginning of the application. It also controls the\nexiting of the application.\n\nThe stack: The VM does not use the stack of the computer directly, it uses\ninstead its own stack for manipulating values (parameters, returned values,\nand symbols) as a hardware stack does.\n\nThe static symbol table: Created by the compiler at compile time (and\ngrouped by the linker on OBJs), this subsystem is responsible for an\nimmediate access to functions location and it is highly related to the\ndynamic symbol table at runtime. It contains many duplicated symbols that\nwill be optimized by the dynamic symbol table.\n\nThe dynamic symbol table: Dynamically generated from the startup subsystem\nat the beginning of the application. It organizes in an efficient way the\nstatic symbol table creating an alphabetical index that allows a dicotomic\nsearch of symbols. This subsystem is responsible for quick access to symbols\n(functions, variables, fields and workareas aliases).\n\nThe static and public variables: Responsible for storing public and static\nvariables.\n\nThe memory: Responsible for allocating, reallocating, locking, unlocking and\nfreeing memory.\n\nThe extend system: Defines the interface (_parc(), ..., _retc() ) from low\nlevel (C language) to high level (Clipper language). This subsystem is\nresponsible for connecting in a proper way C language functions to the\nentire application.\n\nMultidimensional arrays: This subsystem allows the creation of arrays, and\nthe services to manipulate these arrays in all ways. The arrays are\nextensively used by the Clipper language and also they are the foundation of\nthe Objects (Objects are just arrays related to a specific Class).\n\nThe Objects engine: Responsible for the creation of Classes and Objects. It\nalso defines the way to access a specific Class method to be invoked by the\nVM and provides all kind of Classes information that may be requested at\nruntime.\n\nThe macro subsystem: it implements a reduced compiler that may be used at\nruntime to generate pcode to be used by the application. In fact it is a\nportion of the harbour yacc specifications.\n\nThe workareas subsystem: Responsible for databases management. It defines\nthe locations where the used workareas will be stored and provides all the\nfunctions to access those workareas. It also implements the interface to the\nreplaceable database drivers.\n\nQuestion :\n\n  Will Harbour opcodes mimic the Clipper ones? (will there be a 1:1\nrelation between them?) If so, are Clipper opcodes described somewhere?\n\nAnswer:\n\n                   Clipper language pcode opcodes\n    DEFINE        NAME             VALOR     BYTES\n    #define       NOP              0x00      1\n    #define       PUSHC            0x01      3 + literal\n    #define       PUSHN            0x05      3\n    #define       POPF             0x06      3\n    #define       POPM             0x07      3\n    #define       POPQF            0x08      3\n    #define       PUSHA            0x09      3\n    #define       PUSHF            0x0A      3\n    #define       PUSHM            0x0B      3\n    #define       PUSHMR           0x0C      3\n    #define       PUSHP            0x0D      3\n    #define       PUSHQF           0x0E      3\n    #define       PUSHV            0x0F      3\n    #define       SFRAME           0x10      3\n    #define       SINIT            0x11      3\n    #define       SYMBOL           0x12      3\n    #define       SYMF             0x13      3\n    #define       BEGIN_SEQ        0x19      3\n    #define       JDBG             0x1A      3\n    #define       JF               0x1B      3\n    #define       JFPT             0x1C      3\n    #define       JISW             0x1D      3\n    #define       JMP              0x1E      3\n    #define       JNEI             0x1F      3\n    #define       JT               0x20      3\n    #define       JTPF             0x21      3\n    #define       PUSHBL           0x23      3\n    #define       ARRAYATI         0x24      3\n    #define       ARRAYPUTI        0x25      3\n    #define       CALL             0x26      3\n    #define       DO               0x27      3\n    #define       FRAME            0x28      3\n    #define       FUNC             0x29      3\n    #define       LINE             0x2A      3\n    #define       MAKEA            0x2B      3\n    #define       MAKELA           0x2C      3\n    #define       PARAMS           0x2D      3\n    #define       POPFL            0x2E      3\n    #define       POPL             0x2F      3\n    #define       POPS             0x30      3\n    #define       PRIVATES         0x31      3\n    #define       PUBLICS          0x33      3\n    #define       PUSHFL           0x34      3\n    #define       PUSHFLR          0x35      3\n    #define       PUSHI            0x36      3\n    #define       PUSHL            0x37      3\n    #define       PUSHLR           0x38      3\n    #define       PUSHS            0x39      3\n    #define       PUSHSR           0x3A      3\n    #define       PUSHW            0x3B      3\n    #define       SEND             0x3C      3\n    #define       XBLOCK           0x3D      3\n    #define       MPOPF            0x4A      5\n    #define       MPOPM            0x4B      5\n    #define       MPOPQF           0x4C      5\n    #define       MPUSHA           0x4D      5\n    #define       MPUSHF           0x4E      5\n    #define       MPUSHM           0x4F      5\n    #define       MPUSHMR          0x50      5\n    #define       MPUSHP           0x51      5\n    #define       MPUSHQF          0x52      5\n    #define       MPUSHV           0x53      5\n    #define       MSYMBOL          0x54      5\n    #define       MSYMF            0x55      5\n    #define       ABS              0x56      1\n    #define       AND              0x57      1\n    #define       ARRAYAT          0x58      1\n    #define       ARRAYPUT         0x59      1\n    #define       BREAK            0x5A      1\n    #define       DEC              0x5B      1\n    #define       DIVIDE           0x5C      1\n    #define       DOOP             0x5D      1\n    #define       EEQ              0x5E      1\n    #define       ENDBLOCK         0x5F      1\n    #define       ENDPROC          0x60      1\n    #define       END_SEQ          0x61      1\n    #define       EQ               0x62      1\n    #define       EVENTS           0x63      1\n    #define       FALSE            0x64      1\n    #define       GE               0x65      1\n    #define       GT               0x66      1\n    #define       INC              0x67      1\n    #define       LE               0x68      1\n    #define       LT               0x69      1\n    #define       MINUS            0x6A      1\n    #define       MULT             0x6B      1\n    #define       NE               0x6C      1\n    #define       NEGATE           0x6E      1\n    #define       NOP2             0x6F      1\n    #define       NOT              0x70      1\n    #define       NULL             0x71      1\n    #define       ONE1             0x72      1\n    #define       OR               0x73      1\n    #define       PCOUNT           0x74      1\n    #define       PLUS             0x75      1\n    #define       POP              0x76      1\n    #define       PUSHRV           0x77      1\n    #define       QSELF            0x78      1\n    #define       SAVE_RET         0x79      1\n    #define       TRUE             0x7A      1\n    #define       UNDEF            0x7B      1\n    #define       ZER0             0x7C      1\n    #define       ZZBLOCK          0x7D      1\n    #define       AXPRIN           0x7E      1\n    #define       AXPROUT          0x7F      1\n    #define       BOF              0x80      1\n    #define       DELETED          0x81      1\n    #define       EOF              0x82      1\n    #define       FCOUNT           0x83      1\n    #define       FIELDNAME        0x84      1\n    #define       FLOCK            0x85      1\n    #define       FOUND            0x86      1\n    #define       FSELECT0         0x87      1\n    #define       FSELECT1         0x88      1\n    #define       LASTREC          0x89      1\n    #define       LOCK             0x8A      1\n    #define       RECNO            0x8B      1\n    #define       BNAMES           0x8C      1\n    #define       LNAMES           0x8D      1\n    #define       SNAMES           0x8E      1\n    #define       SRCNAME          0x8F      1\n    #define       TYPE             0x90      1\n    #define       WAVE             0x91      1\n    #define       WAVEA            0x92      1\n    #define       WAVEF            0x93      1\n    #define       WAVEL            0x94      1\n    #define       WAVEP            0x95      1\n    #define       WAVEPOP          0x96      1\n    #define       WAVEPOPF         0x97      1\n    #define       WAVEPOPQ         0x98      1\n    #define       WAVEQ            0x99      1\n    #define       WSYMBOL          0x9A      1\n    #define       AADD             0x9B      1\n    #define       ASC              0x9C      1\n    #define       AT               0x9D      1\n    #define       CDOW             0x9E      1\n    #define       CHR              0x9F      1\n    #define       CMONTH           0xA0      1\n    #define       CTOD             0xA1      1\n    #define       DATE             0xA2      1\n    #define       DAY              0xA3      1\n    #define       DOW              0xA4      1\n    #define       DTOC             0xA5      1\n    #define       DTOS             0xA6      1\n    #define       EMPTY            0xA7      1\n    #define       QEXP             0xA8      1\n    #define       EXPON            0xA9      1\n    #define       INSTR            0xAA      1\n    #define       INT              0xAB      1\n    #define       LEFT             0xAC      1\n    #define       LEN              0xAD      1\n    #define       LOGQ             0xAE      1\n    #define       LOWER            0xAF      1\n    #define       LTRIM            0xB0      1\n    #define       MAX              0xB1      1\n    #define       MIN              0xB2      1\n    #define       MODULUS          0xB3      1\n    #define       MONTH            0xB4      1\n    #define       REPLICATE        0xB5      1\n    #define       ROUND            0xB6      1\n    #define       SECONDS          0xB7      1\n    #define       SPACE            0xB8      1\n    #define       QSQRT            0xB9      1\n    #define       STR1             0xBA      1\n    #define       STR2             0xBB      1\n    #define       STR3             0xBC      1\n    #define       SUB2             0xBD      1\n    #define       SUB3             0xBE      1\n    #define       TIME             0xBF      1\n    #define       TRIM             0xC0      1\n    #define       UPPER            0xC1      1\n    #define       VAL              0xC2      1\n    #define       VALTYPE          0xC3      1\n    #define       WORD             0xC4      1\n    #define       YEAR             0xC5      1\n    #define       TRANS            0xC6      1\n    #define       COL              0xC7      1\n    #define       DEVPOS           0xC8      1\n    #define       INKEY0           0xC9      1\n    #define       INKEY1           0xCA      1\n    #define       PCOL             0xCB      1\n    #define       PROW             0xCC      1\n    #define       ROW              0xCD      1\n    #define       SETPOS           0xCE      1\n    #define       SETPOSBS         0xCF      1\n\nHarbour will not implement all of them as we want to provide the highest\nfreedom to programers to extend and modify Harbour as needed. In example:\nClipper language uses opcodes for: Row(), Col(), Upper(), Space(),\nReplicate(), InKey(), Year(), Month(), etc... where we may just call a\nstandard C function, that uses the standard extend system and that may be\neasily modified. So Harbour will use much less opcodes than the Clipper\nlanguage. This will also help to have a simpler and easier to maintain\ncompiler and VM.\n\nQuestion :\n\n  I see that, for example, Harbour has an opcode named \"PUSHWORD\"(06),\nwhile Valkyre calls it \"PUSHW\"(3B): Different names, different codes.\nIsn\'t it desirable that Harbour pCode be binary-compatible with Clipper? I\nmean, by doing so, Harbour VM could interpret Clipper pCode and\nvice-versa.\n\nAnswer :\n\nHarbour opcodes are defined in hbpcode.h. We are trying to use very easy to\nremember mnemonics, so PUSHWORD seems easier than PUSHW. The opcodes values\nare meaningless as they are just used by a C language switch sentence (in\nfact there is a powerful optimization which is to use the pcode opcodes\nthemselves as an index to a VM functions pointers array, so VM execution\nspeed may increase. Clipper uses it).\n\nWe are not fully implementing the Clipper language OBJs model (i.e. to\nprovide identifiers names length higher than 10 chars) so Harbour OBJs will not be supported by Clipper and viceversa.','',0,'AIA=','3ecmhn0z',1,0,'',2,0,0),(6025,1192,6,299,0,'69.65.88.121',1138324772,1,0,1,0,1,0,'','','Antonio;\n\nHola.  Gracias por tu respuesta.\n\nPues no veo que diferencia podria hacer, pero hice como me dices.  Y misteriosamente (para mi), ya no existe ese problema.  Ahora tengo los errors que te muestro a continuacion:\n\nWarning W8004 ..\\\\shared\\\\shared.prg 2772: \'nRight\' is assigned a value that is never used in function GradientFILL\nWarning W8004 ..\\\\shared\\\\shared.prg 2770: \'nBottom\' is assigned a value that is never used in function GradientFILL\nWarning W8075 ..\\\\shared\\\\shared.prg 2855: Suspicious pointer conversion in function HB_FUN_DEGRADA\nError E2340 ..\\\\shared\\\\shared.prg 2855: Type mismatch in parameter 4 (wanted \'void *\', got \'long\') in function HB_FUN_DEGRADA\nError E2193 ..\\\\shared\\\\shared.prg 2855: Too few parameters in call to \'GradientFill\' in function HB_FUN_DEGRADA\n*** 2 errors in Compile ***','',0,'AIA=','1x23cm64',1,0,'',299,0,0),(6026,1192,6,2,0,'87.218.146.57',1138325098,1,0,1,1,1,1,'','','Reinaldo,\n\nTambien tienes que cambiar el nombre aquí:\n\nGradientFILL( ( HDC ) hb_parnl( 1 ) , &amp;rct, hb_parnl( 3 ), hb_parnl( 4 ), hb_parl(5) );\n\nEl lenguaje C es \"case sensitive\", es decir, distingue entre mayúsculas y minúsculas. El API de Windows proporciona una función que se llama GradientFill que entraba en conflicto con la de Paco. Al cambiarle el nombre, el conflicto desaparece.','',0,'AIA=','3da9zf4u',1,0,'',2,0,0),(6027,1192,6,299,0,'69.65.88.121',1138325472,1,0,1,0,1,0,'','','Antonio;\n\nParece que hoy has estado bastante ocupado.  Asi que gracias por responder tan pronto.  \n\nSaludos,\n\n\nReinaldo.','',0,'AIA=','2xxatf3h',1,0,'',299,0,0),(6028,1422,2,404,0,'213.231.101.107',1138327417,1,0,1,1,1,0,'','','Prueba: (FW/FWH) CLASS TTxtPreview() Rev.4 o EasyPreview v1.4\n\nLos puedes descargar de:\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->\n\nQue es nueva ubicación de: PROMETHEUS DataBase Workshop IDE\n\nSaludos, José Mª','',0,'AIA=','2hnkzqi0',1,0,'',404,0,0),(6029,1447,3,49,0,'87.3.183.154',1138328878,1,0,1,1,1,0,'','Error in a class : default variable','in xharbour or habour   in a class there is this line :\n\n[code:1kzx2ul8]Default nWidth  = 25, ;\n           nHeight = 25[/code:1kzx2ul8]\n\nbut when i compiled make an error \n[code:1kzx2ul8]Error E0030  Syntax error&#58; &quot;parse error at \'NWIDTH\'&quot;[/code:1kzx2ul8]\n\nHow ca I resolve it \n\nRegards,\nsilvio','',0,'AIA=','1kzx2ul8',1,0,'',49,0,0),(6030,1401,5,421,0,'204.83.50.141',1138338036,1,0,1,1,1,0,'','','In my FW++ setup is says it is for xbase++1.82.','',0,'AIA=','21vv4wxr',1,0,'',421,0,0),(6031,1439,3,31,0,'195.182.84.105',1138341897,1,0,1,1,1,1,'','Re: Oracle Application and fivewin','[quote=&quot;Ehab Samir Aziz&quot;:2xl129br]Can fivewin application export data from Oracle Application ? That is very important to me . I do not know the the database file file for Oracle as .DBF in FW , but can I manage easily the transfer between FW application and Oracle Application ?[/quote:2xl129br]\n\n   Please , e-mail me , I\'ll send to you a working samples , how to do that .\n   \n   With best regards !','',0,'gA==','2xl129br',1,0,'',31,0,0),(6032,1447,3,130,0,'141.51.32.24',1138350426,1,0,1,1,1,0,'','','Silvio,\n\nyou missed the double point, this is correct:\n\n[code:hpfyk9qt]DEFAULT nWidth &#58;= 25 ,;\n                       nHeight &#58;=25\n[/code:hpfyk9qt]\n\nStefan','',0,'AIA=','hpfyk9qt',1,0,'',130,0,0),(6033,1401,5,2,0,'87.218.146.209',1138351079,1,0,1,1,1,1,'','','Gerrit,\n\nOur mistake. We apologize for that and we are going to fix it asap.','',0,'AIA=','2i510c4x',1,0,'',2,0,0),(6034,1437,4,89,0,'213.21.136.60',1138351600,1,0,1,1,1,0,'','','Hello Otto \n\nI suggest to use a pocket PC with integrate scanner .\nI use FALCON 4220  PSC and you dont need software , it emulate the keyboard. \n\nMaurizio','',0,'AIA=','1g7j64lr',1,0,'',89,0,0),(6035,1441,3,148,0,'82.201.237.149',1138355264,1,0,1,1,1,0,'','How can I Maximize and Minimize','How can I Maximize and Minimize a list box ?','',0,'AIA=','wut5q2ms',1,0,'',148,0,0),(6036,1441,3,2,0,'87.218.146.209',1138357152,1,0,1,1,1,1,'','','Maximizing and minimizing the window that contains it as its oClient DATA.','',0,'AIA=','1km2mo11',1,0,'',2,0,0),(6037,1421,1,2,0,'87.218.146.209',1138357331,1,0,1,1,1,1,'','','Andy,\n\nChange the method this way:\n\nMETHOD RButtonDown() VIRTUAL\n\nat the CLASS ... ENDCLASS section and comment out the below method code and try it again.','',0,'AIA=','338c9880',1,0,'',2,0,0),(6038,1439,3,191,0,'80.37.246.171',1138358641,1,0,1,1,1,1,'','Transform oracle tables to dbf','You can use ourXdbu to copy paste from oracle tables to dbf tables\n\nyou can download it from [url:3ctahwxp]http&#58;//www&#46;marchuet&#46;net/menu&#46;html[/url:3ctahwxp]\n\nor fom [url:3ctahwxp]http&#58;//www&#46;xharbour&#46;com/xHC[/url:3ctahwxp]','',0,'EA==','3ctahwxp',1,0,'',191,0,0),(6039,1448,6,336,0,'80.58.10.235',1138358926,1,0,0,1,1,0,'','RunDlg32 y dialogos para pedir carpetas','Estoy buscando la forma de cambiar la cgetdir para que me muestre el diálogo que aparece en el XP.\nSupuse que estaria en rundlg32, por que es ese el parametro del WinExec() que aparece en el codigo fuente, pero no encuentro referencias por ningun lado.\nLo que más me sorprendió es que San Google me trajo un solo resultado!\nAlguien me puede orientar al respecto?\nQuisiera saber donde puedo saber algo respecto de rundlg32, donde esta el exe, donde lo busco, cuales son los parametros y como hago para usar el dialogo de obtener directorio nuevo, con el boton de crear carpeta y eso.\n\nSaludos','',0,'EA==','8u79zar1',1,0,'',336,0,0),(6040,1314,6,223,0,'200.204.170.177',1138359979,1,0,1,1,1,1,'','','Olá,\nTambém estou procurando algum manual sobre as funções que estão dentro da msimg32.lib, nela têm algumas funções que consegui utilizar como o gradientfill, têm o alphablend, mas infelismente não pude usar por não saber os comandos, se alguém tiver os helps do borland bcc55, ficaria muito grato, não precisa acessar nenhuma dll  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'EA==','6mkzrlvo',1,0,'',223,0,0),(6041,1192,6,299,0,'69.65.88.121',1138367865,1,0,1,0,1,0,'','','Paco / Antonio;\n\nHe podido incorporar la función, pero no me hace nada.  Tal vez no la uso de manera correcta.   Abajo un ejemplo de la forma en que la estoy usando.\n\nDEFINE SBUTTONBAR oBar OF oChildWnd SIZE 40, 40\nDegrada( oBar:hDC, { 0, 0, oBar:nHeight, oBar:nWidth },  CLR_WHITE, nClr1, .t. )\n\nEl resultado es el mismo que sin el uso de la función Degrada.\n\nReinaldo.','',0,'EA==','3octa6qs',1,0,'',299,0,0),(6042,1449,6,391,0,'201.221.144.112',1138371119,1,0,1,1,1,1,'','como invocar el metodo &quot;KEYDOWN&quot; en un txbrowse','Estando en un txbrowse necesito conocer la pulsacion de una tecla de funcion \"F1, F2,......F12\" , el \"Enter\" etc.\n\nComo puedo realizarlo ?????\nEncontre los metodos KEYDOWN Y KEYCHAR pero no se como invocarlo.\n\nAlguien puede ayudarme ???\n\nMil gracias.','',0,'EA==','1b9eommy',1,0,'',391,0,0),(6043,1449,6,255,0,'200.67.134.233',1138371180,1,0,1,1,1,1,'','Re: como invocar el metodo &quot;KEYDOWN&quot; en un txbrows','[quote=&quot;armandini&quot;:2igh2rsu]Estando en un txbrowse necesito conocer la pulsacion de una tecla de funcion \"F1, F2,......F12\" , el \"Enter\" etc.\nComo puedo realizarlo ?????\nEncontre los metodos KEYDOWN Y KEYCHAR pero no se como invocarlo.\nAlguien puede ayudarme ???\nMil gracias.[/quote:2igh2rsu]\n\nDe la misma forma que cualquier otro browse.\n\noTXbrowse:bKeyDown := {|| Mifuncion() }\n\nSaludos','',0,'gA==','2igh2rsu',1,0,'',255,0,0),(6044,1192,6,223,0,'200.204.170.177',1138372611,1,0,1,1,1,1,'','','Olá\nTente essa :\n[code:2au7senf]\n// Developed by Vagner Wirts\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n#include &lt;StdLib&#46;h&gt;\n\n\nvoid VTDegrade&#40;HDC hDC, RECT * rOrig, COLORREF cCor1, COLORREF cCor2, int nMode&#41; ;\n\n//---------------------------------------------------------------------------//\n#ifndef __HARBOUR__\n	CLIPPER VTabDegrad&#40; PARAMS &#41;\n#else\n	HARBOUR HB_FUN_VTABDEGRADE&#40; PARAMS &#41;\n#endif\n\n&#123;\n	HWND hWnd       = &#40; HWND &#41; _parni&#40; 1 &#41;;\n	HDC hDC         = &#40; HDC &#41;  _parni&#40; 2 &#41;;\n	COLORREF cCor1  =          _parnl&#40; 3 &#41;;\n	COLORREF cCor2  =          _parnl&#40; 4 &#41;;\n	BOOL lDialog    =          _parl&#40;  5 &#41;;\n	int  nMode      =          _parni&#40; 6 &#41; ;\n	RECT rct;\n\n	GetClientRect&#40; hWnd, &amp;rct &#41;;\n\n	if&#40;!lDialog&#41; rct&#46;top = &#40;nMode == 1 ? 0 &#58; rct&#46;bottom-22 &#41;;\n	if&#40;!lDialog &amp;&amp; nMode == 1&#41; rct&#46;bottom = 20 ;\n//	if&#40;lDialog&#41; rct&#46;bottom -= &#40;nMode != 1 ? 3 &#58; &#40;rct&#46;bottom-rct&#46;top &lt;= 100 ? 3 &#58; 0 &#41; &#41; ;\n	if&#40;lDialog&#41; rct&#46;bottom -= &#40;rct&#46;bottom-rct&#46;top &lt;= 200 ? 2 &#58; 0 &#41; ;\n\n	VTDegrade&#40; hDC, &amp;rct, cCor1, cCor2 ,nMode&#41;;\n\n&#125;\n\n//---------------------------------------------------------------------------//\nvoid VTDegrade&#40;HDC hDC, RECT * rOrig, COLORREF cCor1, COLORREF cCor2, int nMode&#41;\n&#123;\n	float nColoR1,nColoG1,nColoB1,nColoR2,nColoG2,nColoB2;\n	RECT rct;\n	HBRUSH hBrush;\n\n	TRIVERTEX pT&#91;2&#93;;\n	GRADIENT_RECT pTo;\n	HRGN Regi;\n\n\n	rct&#46;top    = rOrig-&gt;top ;\n	rct&#46;left   = rOrig-&gt;left ;\n	rct&#46;bottom = rOrig-&gt;bottom ;\n	rct&#46;right  = rOrig-&gt;right ;\n\n	nColoR1 = GetRValue&#40;cCor1&#41;;\n	nColoG1 = GetGValue&#40;cCor1&#41;;\n	nColoB1 = GetBValue&#40;cCor1&#41;;\n\n	nColoR2 = GetRValue&#40;cCor2&#41;;\n	nColoG2 = GetGValue&#40;cCor2&#41;;\n	nColoB2 = GetBValue&#40;cCor2&#41;;\n\n	Regi = CreateRectRgn&#40;rct&#46;left,rct&#46;top,rct&#46;right,rct&#46;bottom&#41;;\n	SelectObject&#40;hDC,Regi&#41;;\n\n	pT&#91;0&#93;&#46;x     = rct&#46;left;\n	pT&#91;0&#93;&#46;y     = rct&#46;top;\n	pT&#91;0&#93;&#46;Red   = &#40;nColoR1*256&#41;;\n	pT&#91;0&#93;&#46;Green = &#40;nColoG1*256&#41;;\n	pT&#91;0&#93;&#46;Blue  = &#40;nColoB1*256&#41;;\n	pT&#91;0&#93;&#46;Alpha = 0;\n\n	pT&#91;1&#93;&#46;x     = rct&#46;right;\n	pT&#91;1&#93;&#46;y     = rct&#46;bottom;\n	pT&#91;1&#93;&#46;Red   = &#40;nColoR2*256&#41;;\n	pT&#91;1&#93;&#46;Green = &#40;nColoG2*256&#41;;\n	pT&#91;1&#93;&#46;Blue  = &#40;nColoB2*256&#41;;\n	pT&#91;1&#93;&#46;Alpha = 0;\n\n	pTo&#46;UpperLeft = 0;\n	pTo&#46;LowerRight = 1;\n\n	GradientFill&#40; hDC , pT , 2, &amp;pTo, 1, 1 &#41; ;\n	DeleteObject&#40;Regi&#41;;\n\n\n&#125;\n[/code:2au7senf]\nUse Assim :\nVTabDegrade(hWnd,hDc,nRgb(255,255,255),nRgb(000,000,128),0,1)\nInclua no seu lnk a lib :\n\\Bcc55\\Lib\\Psdk\\msimg32.lib','',0,'AIA=','2au7senf',1,0,'',223,0,0),(6045,1192,6,299,0,'69.65.88.121',1138375057,1,0,1,0,1,0,'','','Vagner;\n\nNo sé como usarla.\n\nLa compilo con BCC32?\n\nLa incluyo en uno de mis .prgs entre #pragma BEGINDUMP y #pragma ENDDUMP?\n\nIntenté ambas y recibo muchos errores.  \n\nMi intención es lograr hacer un \"gradient\" en dialogos y en buttonbar objects.\n\nGracias,\n\nReinaldo.','',0,'AIA=','2bu4f8ck',1,0,'',299,0,0),(6046,1192,6,223,0,'200.204.170.177',1138375974,1,0,1,1,1,1,'','','Olá,\nCrie um .C dele.\nEx :\nReinaldo.C\nCom o Borland, compile assim :\n\nset bcdir=C:\\Borland\\BCC55\nset fwhdir=C:\\FwH\n\n%bcdir%\\bin\\bcc32 -M -c -D__HARBOUR__ -I%fwhdir%\\include;%hdir%\\include Reinaldo.C\n\nIrá criar o Reinaldo.Obj\n\nNo seu Lnk, inclua com os outros Obj, e inclua a Lib que eu disse :\n\\Borland\\Bcc55\\lib\\psdk\\msimg32.lib\n\nPara executar, dentro do seu PRG, use assim :\nDefine Dialog oDlg ....\n\nActivate Dialog oDlg On Paint VTabDegrade(oDlg:hWnd,oDlg:hDc,nRgb(255,255,255),nRgb(000,000,128),0,1)','',0,'AIA=','119bq5nh',1,0,'',223,0,0),(6047,1192,6,223,0,'200.204.170.177',1138375993,1,0,1,1,1,1,'','','Olá,\nCrie um .C dele.\nEx :\nReinaldo.C\nCom o Borland, compile assim :\n\nset bcdir=C:\\Borland\\BCC55\nset fwhdir=C:\\FwH\n\n%bcdir%\\bin\\bcc32 -M -c -D__HARBOUR__ -I%fwhdir%\\include;%hdir%\\include Reinaldo.C\n\nIrá criar o Reinaldo.Obj\n\nNo seu Lnk, inclua com os outros Obj, e inclua a Lib que eu disse :\n\\Borland\\Bcc55\\lib\\psdk\\msimg32.lib\n\nPara executar, dentro do seu PRG, use assim :\nDefine Dialog oDlg ....\n\nActivate Dialog oDlg On Paint VTabDegrade(oDlg:hWnd,oDlg:hDc,nRgb(255,255,255),nRgb(000,000,128),0,1)','',0,'AIA=','1w1twq7p',1,0,'',223,0,0),(6048,1449,6,391,0,'201.221.144.112',1138377869,1,0,1,1,1,1,'','JUAN CARLOS. MUCHAS GRACIAS','Gracias por tu ayuda.','',0,'AIA=','1qhihhed',1,0,'',391,0,0),(6049,1449,6,147,0,'208.51.141.113',1138378113,1,0,1,0,1,1,'','','hago una pequeña corrección:\n\noTXbrowse:bKeyDown := {|nk| if(nk = VK_RETURN, Mifuncion(), ;\n                                              if(nk = VK_F2, OtraFucnion(), nil ))  }','',0,'AIA=','2imj2jc1',1,0,'',147,0,0),(6050,1441,3,148,0,'82.201.237.149',1138379532,1,0,1,1,1,0,'','filtering listbox','Always When I refresh a listbox finding the that only displayed record is the last record and I should use the scroll to view the first records THOUGH I am using dbgotop after the set filter condition .','',0,'AIA=','3fo1vnx1',1,0,'',148,0,0),(6051,1448,6,138,0,'201.138.50.179',1138379857,1,0,1,1,1,1,'','','Si estas trabajando a 32 bits con (x)Harobur, no necesitas el RunDlg32, Todos los dialogos del sistema viene con look XP.\n\ncGetDir, cGetFile, PrinterSetup, ChooseColor, ChooseFont, Msg... todos vienen con look XP','',0,'AIA=','14u1j9hy',1,0,'',138,0,0),(6052,1443,2,138,0,'201.138.50.179',1138380884,1,0,1,1,1,1,'','Re: dudas para crear documentos con cabecera y detalle','Lubin:\n\n\nMas facil, mete un SCOPE en el detalle del documento y nunca tendras el problema de que \"borre\" el filtro.\n\ndetalle -&gt;(OrdScope(0,XNRO_NEW))\ndetalle-&gt;(OrdScope(1,XNRO_NEW))\n\nY listo, todos los registros quedaran filtrado automaticamente.\n\nOJO, esto solo aplica a indices CDX.','',0,'AIA=','20fvxfyg',1,0,'',138,0,0),(6053,1447,3,138,0,'201.138.50.179',1138381336,1,0,1,1,1,1,'','','Please notice that \"DEFAULT\"  is a command written in the FIVEWIN.CH header file.\n\nIf you don\'t include the FIVEWIN.CH file in you programm you will not have the DEFAULT command available, so the compiling process will fail.\n\nAnyway if you are not using FIVEWIN with your class, you can write the command yourself in the source code or include it in any other header file:\n\n[code:3j1oje0e]#xcommand DEFAULT &lt;uVar1&gt; &#58;= &lt;uVal1&gt; ;\n               &#91;, &lt;uVarN&gt; &#58;= &lt;uValN&gt; &#93; =&gt; ;\n                  &lt;uVar1&gt; &#58;= If&#40; &lt;uVar1&gt; == nil, &lt;uVal1&gt;, &lt;uVar1&gt; &#41; ;;\n                &#91; &lt;uVarN&gt; &#58;= If&#40; &lt;uVarN&gt; == nil, &lt;uValN&gt;, &lt;uVarN&gt; &#41;; &#93;\n[/code:3j1oje0e]','',0,'AIA=','3j1oje0e',1,0,'',138,0,0),(6054,1441,3,148,0,'82.201.237.149',1138381413,1,0,1,1,1,0,'','Confusion','Also I have a question about confustoion is happening to the listbox after any filtering and using different index . What are the causes of that ?\nRecords are being disappered after many filtering operations and corrupted ?','',0,'AIA=','2gbxoqi6',1,0,'',148,0,0),(6055,1441,3,303,0,'68.7.28.54',1138381597,1,0,1,1,1,0,'','','Ehab,\n\nWe all use lots of browses without those kinds of problems, so the problem is with your code, not the browse code.\n\nJames','',0,'AIA=','2zxpezi0',1,0,'',303,0,0),(6056,1450,3,209,0,'209.217.64.30',1138381798,1,0,1,1,1,0,'','Linking issue with FWH 2.7','Hi All,\n\nI just got FWH 2.7 set up and am trying to use the following rmk file.  The rmk file runs perfectly with FWH2.5.  I had to comment out reference to DBFDBT.LIB and HBZIP.LIB to get further along the linking process. It then crashes with a bunch of unresolved externals \'_hb_sx*\" .  See below the rmk for the complete error log.\n\nWhat do I have to do to resolve the unresolved external issue?  Why do the DBFDBT.LIB and HBZIP.LIB not exist in the FWH 2.7 software?  Are they not required anymore?\n\nThanks,\n\nVytas\n \n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=d:\\harbour\nBCDIR=d:\\Borland\\bcc55\nFWDIR=d:\\fwh\n\n#change these paths as needed\n.path.PRG = .\\\n.path.OBJ = .\\obj\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\nPRG =       \\\nCTI.PRG    \\\n# invdata.PRG \\\n# compile.PRG \\\n# reports.PRG \\\n# testit.PRG  \\\n# param.PRG   \\\n# xbrowse.PRG\n# one.PRG\n\n# C =          \\\n# two.C\n\nPROJECT    : CTI.exe\n\nCTI.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) CTI.res\n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n   echo obj\\CTI.obj, + &gt;&gt; b32.bc\n   echo CTI.exe, + &gt;&gt; b32.bc\n   echo CTI.map, + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveH.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\gtwin.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\hbzip.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\n   IF EXIST CTI.res echo CTI.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n#    del b32.bc\n\n.PRG.OBJ:\n  $(HBDIR)\\bin\\harbour $&lt; /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include &gt;&gt; vjclip.log\n  $(BCDIR)\\bin\\bcc32  -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n#   del tmp\n\nCTI.res : CTI.rc\n  $(BCDIR)\\bin\\brc32.exe -r CTI.rc\n\n\nError Log:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from D:\\HARBOUR\\LIB\\RDD.LI\nB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from D:\\HARBOUR\\LIB\\RDD.LIB|d\nbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from D:\\HARBOUR\\LIB\\RDD.LIB|d\nbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from D:\\HARBOUR\\LIB\\RDD.LI\nB|dbf1\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from D:\\HARBOUR\\LIB\\RDD.L\nIB|rddsys\n\n** error 2 ** deleting CTI.exe','',0,'AIA=','2gjaa7m1',1,0,'',209,0,0),(6057,1450,3,2,0,'87.218.146.82',1138382926,1,0,1,1,1,1,'','','Vytas,\n\nYou have to include hbsix.lib and dbffpt.lib.\n\nAnd you may download hbzip.lib from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/aca05349/hbzip.zip.html\">http://hyperupload.com/download/aca05349/hbzip.zip.html</a><!-- m -->','',0,'AIA=','2x20ubiv',1,0,'',2,0,0),(6058,1450,3,31,0,'84.15.27.93',1138385221,1,0,1,1,1,1,'','Re: Linking issue with FWH 2.7','[quote=&quot;Vytas&quot;:2so4gvx3]Hi All,\n\nI just got FWH 2.7 set up and am trying to use the following rmk file.  The rmk file runs perfectly with FWH2.5.  I had to comment out reference to DBFDBT.LIB and HBZIP.LIB to get further along the linking process. It then crashes with a bunch of unresolved externals \'_hb_sx*\" .  See below the rmk for the complete error log.\n[/quote:2so4gvx3]\n\n   Vytai , dbt ir fpt funkcionalumas sudeti i hbsix.lib biblioteka . Dabar uztenka nurodyti kokia nors RDD ( DBFCDX arba DBFNTX ) + DBFFPT + HBSIX . \n\n   Linkejimai !','',0,'gA==','2so4gvx3',1,0,'',31,0,0),(6059,1192,6,299,0,'69.65.88.121',1138392237,1,0,1,0,1,0,'','','Vagner;\n\nBuena explicación.\n\nListo.\n\nCuando compilo con clipapi.h recibo varios errores como estos:\n\nError E2238 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 38: Multiple declaration for \'WOR\nD\'\nError E2344 F:\\BORLAND\\BCC55\\INCLUDE\\windef.h 145: Earlier declaration of \'WORD\'\n\nError E2238 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 45: Multiple declaration for \'PWO\nRD\'\nError E2344 F:\\BORLAND\\BCC55\\INCLUDE\\windef.h 154: Earlier declaration of \'PWORD\n\'\nError E2238 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 46: Multiple declaration for \'LPW\nORD\'\nError E2344 F:\\BORLAND\\BCC55\\INCLUDE\\windef.h 155: Earlier declaration of \'LPWOR\nD\'\nError E2184 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 52: Enum syntax error\nError E2040 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 52: Declaration terminated incorr\nectly\nError E2190 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 52: Unexpected }\nError E2190 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 52: Unexpected }\nError E2356 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 384: Type mismatch in redeclarati\non of \'strlen\'\nError E2344 F:\\BORLAND\\BCC55\\INCLUDE\\_str.h 89: Earlier declaration of \'strlen\'\nError E2356 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 385: Type mismatch in redeclarati\non of \'strcpy\'\nError E2344 F:\\BORLAND\\BCC55\\INCLUDE\\_str.h 86: Earlier declaration of \'strcpy\'\nError E2356 F:\\BORLAND\\BCC55\\INCLUDE\\ClipApi.h 386: Type mismatch in redeclarati\non of \'strcat\'\nError E2344 F:\\BORLAND\\BCC55\\INCLUDE\\_str.h 84: Earlier declaration of \'strcat\'\n\n\n\nSin clipapi.h recibo varios warnings pero no errores.  \nPero ahora recibo estos errores cuando hago el Link con el gradient.obj y msimg32.lib:\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	f:\\borland\\bcc55\\bin\\ilink32.exe -Gn -aa -Tpe -s -I\\mp\\patients -x @MAKE0000.@@@\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'__parnl\' referenced from F:\\MP8\\SHARED\\GRADIENT.OBJ\nError: Unresolved external \'__parl\' referenced from F:\\MP8\\SHARED\\GRADIENT.OBJ\nError: Unresolved external \'__parni\' referenced from F:\\MP8\\SHARED\\GRADIENT.OBJ\n\nAgradecido,\n\n\nReinaldo.','',0,'gA==','raxeap9y',1,0,'',299,0,0),(6060,1210,6,376,0,'201.230.90.220',1138393078,1,0,1,1,1,0,'','','Te comento que originalmente baje el xHarbour de PuertoSur pero no funcionó. Supongo que sería porque no reconstruí FWH24 en ese momento. De todas maneras voy a volver a probar con el xHarbour de PuertoSur pero utilizando la herramienta de HTC\n\nSaludos[/quote]','',0,'','3aey78ub',1,0,'',376,0,0),(6061,1451,6,40,0,'201.129.177.174',1138393676,1,0,1,1,1,0,'','Que ListBox muestre los registros de 100 en 100','Me explico, lo que pasa es que tengo un catálogo de cuentas (Contabilidad) el cual consta de mas de 10mil registros, pero se ve lento cuando los presento en mi ABM por primera vez, es posible decirle que muestre los primeros 100 y luego los demás ?, es decir que muestre inmediatamente los 100 primero y cuando le de un pagedown, keydown entonces muetre los demas registros ?\n\nxHarbour + FW24 + ADS Local (En este caso)\nSaludos y espero haberme explicado\nJoel Andujo','',0,'','3vb5grme',1,0,'',40,0,0),(6062,1452,6,52,0,'200.117.33.193',1138395174,1,0,1,1,1,1,'','Al sumar dos chr( ) y uno es 0 no lo hace bien.','Grupo, \n\nMiren por favor este código, pasa algo raro, cuando queremos sumar dos Chr( a ) + chr( b ) y a tiene un valor 0 CERO...\nEspero sus comentarios.\n\n\n[code:qfhjy5ky]#include &quot;fivewin&#46;ch&quot;\n\n//------------------------------------------------------------------------------\n\n// Prueba a realizar&#58;\n// 1&#41; al cValor1 darle el valor &quot;02&quot;\n// 2&#41; al cValor2 darle el valor &quot;02&quot;\n// Se obtiene lo de prueba1&#46;jpg\n\n//segunda prueba&#58;\n// 1&#41; a cValor1 darle &quot;02&quot;\n// 2&#41; a cValor2 darle &quot;00&quot;\n// se obtine respuesta prueba2&#46;jpg\n\n// ACA BIENE EL TEMA, cuando a cValor1 se le da &quot;00&quot; no muestra\n// lo que se calcula en LOCAL cCaracter2&#58;= Chr&#40; nNumerico1 &#41; + Chr&#40; nNumerico2 &#41;\n// ver prueba prueba3&#46;jpg\n\n//------------------------------------------------------------------------------\n\nFUNCTION main&#40;&#41;\n   LOCAL cValor1&#58;= &quot;00&quot;\n   LOCAL nNumerico1&#58;= hextodec&#40; cValor1 &#41;\n   LOCAL cCaracter1&#58;= Chr&#40; nNumerico1 &#41;\n\n   LOCAL cValor2&#58;= &quot;02&quot;\n   LOCAL nNumerico2&#58;= hextodec&#40; cValor2 &#41;\n   LOCAL cCaracter2&#58;= Chr&#40; nNumerico1 &#41; + Chr&#40; nNumerico2 &#41;\n\n   ?  &quot;cValor1&quot; ,cValor1, &quot;hextodec&#40; cValor1 &#41; &quot;, nNumerico1, &quot;Chr&#40; nNumerico1&#41;&quot;, cCaracter1,;\n      &quot;cValor2&quot;, cValor2, &quot;hextodec&#40; cValor2 &#41; &quot;, nNumerico2, &quot;Chr&#40; nNumerico1 &#41; + Chr&#40; nNumerico2 &#41;&quot;, cCaracter2\n\n\n\n   RETURN &#40; nil &#41;\n\n//------------------------------------------------------------------------------\n\n// HexaTodec&#40;cString&#41; es una funcion que hemos sacado de los examples de la\n// carpeta del FW\n\nFUNCTION HexaToDec&#40;cString&#41;\n   local nNumber&#58;=0,nX&#58;=0\n   local cNewString&#58;=AllTrim&#40;cString&#41;\n\n   local nLen&#58;=Len&#40;cNewString&#41;\n\n   FOR nX&#58;=1 to nLen\n      nNumber+=&#40;At&#40;SubStr&#40;cNewString,nX,1&#41;,\'0123456789ABCDEF\'&#41;-1&#41;*;\n         &#40;16**&#40;nLen-nX&#41;&#41;\n   NEXT nX\n\n   RETURN &#40; int&#40; nNumber &#41; &#41;\n\n//------------------------------------------------------------------------------\n[/code:qfhjy5ky]\n\nHay alguna forma de cargar las jpg sin poner la url.... ? asi mando las pantallas capturadas.','',0,'AIA=','qfhjy5ky',1,0,'',52,0,0),(6063,1421,1,423,0,'70.133.84.14',1138400323,1,0,1,1,1,0,'','','Antonio,\n\nIt still doesn\'t work. However, I did test it with 32-Bit FW and it does work. I am wondering if it\'s a WinAPI thing. Can you test it in 16-Bit with TestGet2.prg and let me know. Thanks.','',0,'AIA=','2rvu6odg',1,0,'',423,0,0),(6064,1391,6,63,0,'80.58.35.107',1138403228,1,0,1,1,1,0,'','','Felix:\nMuchas gracias. Pinta bien. Lo probaré.  \n\nSaludos, \nRafael','',0,'AIA=','38qqfqo4',1,0,'',63,0,0),(6065,1421,1,2,0,'87.218.146.82',1138404028,1,0,1,1,1,1,'','','Andy,\n\nWe have tested samples\\TestGet2.prg using FW 2.7 for Clipper, and it works ok. If we paste something then the undo item is available. See the picture (in spanish):\n\n[url=http&#58;//imageshack&#46;us:1jrq31m9][img:1jrq31m9]http&#58;//img294&#46;imageshack&#46;us/img294/2757/image22nb&#46;jpg[/img:1jrq31m9][/url:1jrq31m9]','',0,'GA==','1jrq31m9',1,0,'',2,0,0),(6066,1452,6,2,0,'87.218.146.82',1138404365,1,0,1,1,1,1,'','','Gustavo,\n\nTen en cuenta que si intentas visualizar una cadena que contenga algún cero en ella, Windows lo toma como final de cadena y solo verás hasta el caracter anterior.\n\nPara poner imágenes usa <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us\">http://www.imageshack.us</a><!-- m --> por ejemplo y copia aqui el url que te da.','',0,'GA==','68ehhbpk',1,0,'',2,0,0),(6067,1192,6,2,0,'87.218.146.82',1138404592,1,0,1,1,1,1,'','','Reinaldo,\n\n&gt;\nError: Unresolved external \'__parnl\' referenced from F:\\MP8\\SHARED\\GRADIENT.OBJ \nError: Unresolved external \'__parl\' referenced from F:\\MP8\\SHARED\\GRADIENT.OBJ \nError: Unresolved external \'__parni\' referenced from F:\\MP8\\SHARED\\GRADIENT.OBJ \n&gt;\n\nCámbialas por hb_parnl(), hb_parl() y hb_parni(). \n\nFWH las cambia automaticamente usando defines de C, al usar ClipApi.h','',0,'GA==','3gdx5x4d',1,0,'',2,0,0),(6068,1447,3,49,0,'82.61.128.225',1138406087,1,0,1,1,1,0,'','','thank to all\nthis class printer is modified by klm but in xharbout not runned : now run ok','',0,'GA==','bg4qg6d0',1,0,'',49,0,0),(6069,1431,3,49,0,'82.61.128.225',1138406207,1,0,1,1,1,0,'','','How can I know all the func of riched20.dll \nwhere I can found information on this dll','',0,'GA==','15t8uter',1,0,'',49,0,0),(6070,1192,6,15,0,'203.73.90.168',1138409213,1,0,1,1,1,0,'','','Hello Vagner, Antonio\n\nI got this warning below:\n\nWarning W8057 VTDegrade.C 86: Parameter \'nMode\' is never used in function VTDegrade\n\nHow to fix it? \n\nRegards,\n\nRichard','',0,'GA==','98013jff',1,0,'',15,0,0),(6071,1443,2,78,0,'200.121.86.42',1138411171,1,0,1,1,1,0,'','','Hola, me parece que seria mejor que ya al momento de imprimir tu factura, tomes el numero que corresponda, pueda que otro usuario de la red tambien este facturando...\n\nSalu2\nWilli','',0,'GA==','k1xjp738',1,0,'',78,0,0),(6072,1452,6,52,0,'200.82.110.251',1138414095,1,0,1,1,1,1,'','','Antonio,\n\nY que solucion podrias darme con este tema, alguna idea? porque necesito que una cadena de tipo string contenga esos ceros, ya que estoy programando una plaqueta que necesita que se le envie estos ceros.','',0,'GA==','1b5uvud3',1,0,'',52,0,0),(6073,1449,6,75,0,'83.52.12.34',1138427018,1,0,1,1,1,0,'','','Pero tal vez se vea mejor así:\n\noTXbrowse:bKeyDown := {|nk| MiFuncion(nk)}\n\nfunction MiFuncion(nk)\n do case\n     case nk = VK_RETURN\n          funcion1()\n     case nk = VK_F2\n          funcion2()\n     ...\n  endcase\nreturn\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'GA==','m0j6c2wa',1,0,'',75,0,0),(6074,1452,6,2,0,'87.218.146.220',1138435022,1,0,1,1,1,1,'','','Gustavo,\n\nLa cadena contiene esos ceros, lo que ocurre es que si usas un MsgInfo() para visualizarlo solo verás hasta el caracter anterior al primer cero.\n\nHaz esta prueba y verás que los ceros están:\n\n[code:24idqpj3]\nfunction Main&#40;&#41;\n\n   local cText &#58;= &quot;Hola&quot; + Chr&#40; 0 &#41; + Chr&#40; 0 &#41; + &quot;Adios&quot;\n\n   MsgInfo&#40; Len&#40; cText &#41; &#41; // debe mostrar 11\n   \n   MsgInfo&#40; cText &#41; // Sólo se verá &quot;Hola&quot;\n      \n   MsgInfo&#40; SubStr&#40; cText, 7 &#41; &#41; // Verás &quot;Adios&quot;\n            \nreturn nil\n[/code:24idqpj3]','',0,'AIA=','24idqpj3',1,0,'',2,0,0),(6075,1192,6,2,0,'87.218.146.220',1138435303,1,0,1,1,1,1,'','','Richard,\n\nYou can safely ignore that warning.','',0,'AIA=','386r6w6u',1,0,'',2,0,0),(6076,1451,6,2,0,'87.218.146.220',1138435412,1,0,1,1,1,1,'','','Joel,\n\nLa velocidad de mostrado de los registros no depende de la cantidad de registros que tenga la DBF. Usas algún filtro (SET FILTER) ?','',0,'AIA=','1qw4v2s0',1,0,'',2,0,0),(6077,1391,6,63,0,'80.58.35.107',1138444449,1,0,1,1,1,0,'','','Félix:\nHe probado Httrack.  Formidable!.  Gracias\nRafael','',0,'AIA=','1iwqiofh',1,0,'',63,0,0),(6078,1450,3,382,0,'80.140.242.29',1138446645,1,0,1,1,1,1,'','','Hello Antonio,\n\nis there a version of hbzip.lib for xharbour / [u:deim06qa]MSVC[/u:deim06qa] also?\nthanks and regards\nfrank\n\n[quote=&quot;Antonio Linares&quot;:deim06qa]Vytas,\n\nYou have to include hbsix.lib and dbffpt.lib.\n\nAnd you may download hbzip.lib from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/aca05349/hbzip.zip.html\">http://hyperupload.com/download/aca05349/hbzip.zip.html</a><!-- m -->[/quote:deim06qa]','',0,'gQ==','deim06qa',1,0,'',382,0,0),(6079,1450,3,6,0,'82.55.208.59',1138453725,1,0,1,1,1,1,'','','Yes, it is in the contrib distribution (and in the CVS, of course).\n\nEMG','',0,'gQ==','12gio0mh',1,0,'',6,0,0),(6080,1450,3,382,0,'80.140.240.132',1138454201,1,0,1,1,1,1,'','','yes, it is in the contribution distribition, but from june 2005 and that version produces an HB_Stack - error\n\n[quote=&quot;EnricoMaria&quot;:2vp7ewea]Yes, it is in the contrib distribution (and in the CVS, of course).\n\nEMG[/quote:2vp7ewea]','',0,'gA==','2vp7ewea',1,0,'',382,0,0),(6081,1450,3,6,0,'82.55.208.59',1138455276,1,0,1,1,1,1,'','','Then you have to download and compile it from the CVS. Or just email me and I will send it to you.\n\nEMG','',0,'gA==','1mb7y2sg',1,0,'',6,0,0),(6082,1450,3,6,0,'82.55.208.59',1138455855,1,0,1,1,1,1,'','','Sorry! As I wrote you in private mail, I use Borland.\n\nEMG','',0,'gA==','1ul3dzra',1,0,'',6,0,0),(6083,1451,6,40,0,'200.56.162.69',1138465942,1,0,1,1,1,0,'','','Sorry, Master estaba equivocado no era un listbox, estaba utilizando un TsBrowse, e cambiado a un ListBox y el tiempo a mejorado bastante.\n\nSaludos\nJoel Andujo','',0,'gA==','3h76unyf',1,0,'',40,0,0),(6084,1453,6,28,0,'87.218.47.57',1138468744,1,0,1,1,1,0,'','ListView','Hola a todos\n\n¿Alguien sabe como ponerle iconos pequeños al listivew en modo List?\n\nUn saludo','',0,'gA==','19efg0e1',1,0,'',28,0,0),(6085,1449,6,391,0,'201.221.140.82',1138477812,1,0,1,1,1,1,'','GRACIAS A TODOS','GRACIAS POR EL INTERES. YA TENGO FUNCIONANDO BIEN LAS DISTINTAS FUNCIONES PRODUCTO DE LA EVALUACION DE LA VARIABLE NK.\nDE TODAS FORMAS ME QUEDA UNA DUDA. AL MIRAR LA CLASE Y EL METODO RESPECTIVO ENCUENTRO ALLI DOS (2) PARAMETROS:\n\"NKEY\" Y  \"NFLAGS\". EL PRIMERO GUARDA EL VALOR DE LA TECLA PULSADA Y EL SEGUNDO QUE GUARDA Y PARA QUE SE PUEDE UTILIZAR ??????','',0,'gA==','18q8e16d',1,0,'',391,0,0),(6086,1431,3,67,0,'62.235.25.111',1138484103,1,0,1,1,1,0,'','','Today : a new problem\n\nI could build and run with fw2.6+xhb oct release , not with fw2.7 + xhb feb release\n\nCan it be confimed ?\n\nFrank','',0,'gA==','15ihlhnr',1,0,'',67,0,0),(6087,1431,3,2,0,'87.218.146.158',1138484724,1,0,1,1,1,1,'','','Frank,\n\nDo you mean samples\\TestRich.prg ?\n\nWhat error do you get ?','',0,'gA==','1ja5h1cd',1,0,'',2,0,0),(6088,1450,3,2,0,'87.218.146.158',1138484934,1,0,1,1,1,1,'','','Frank,\n\nWe tried to build it yesterday using Microsoft, and it does not properly builds. It reports many errors.\n\nxharbour should fix its hbzip.lib for Microsoft (and Pelles) version.','',0,'gA==','105ds26k',1,0,'',2,0,0),(6089,1449,6,2,0,'87.218.146.158',1138485142,1,0,1,1,1,1,'','','De las documentación del API de Windows:\n[code:32gr57dl]\nlKeyData\n\nValue of lParam&#46; Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table&#58; \n\nValue	Description\n0-15	Specifies the repeat count&#46; The value is the number of times the keystroke is repeated as a result of the user holding down the key&#46;\n16-23	Specifies the scan code&#46; The value depends on the original equipment manufacturer &#40;OEM&#41;&#46;\n24	Specifies whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard&#46; The value is 1 if it is an extended key; otherwise, it is 0&#46;\n25-28	Reserved; do not use&#46;\n29	Specifies the context code&#46; The value is always 0 for a WM_KEYDOWN message&#46;\n30	Specifies the previous key state&#46; The value is 1 if the key is down before the message is sent, or it is 0 if the key is up&#46;\n31	Specifies the transition state&#46; The value is always 0 for a WM_KEYDOWN message&#46;\n[/code:32gr57dl]','',0,'AIA=','32gr57dl',1,0,'',2,0,0),(6090,1454,6,396,0,'201.248.201.232',1138487942,1,0,1,1,1,0,'','Error compilando y configurando','Estoy empezando con FWH, hice como decia pero me da este error, ayuda.gracias.\n\nCompiling...\nHarbour Compiler Alpha build 40.0 (Flex)\nCopyright 1999-2002, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'hola.prg\' and generating preprocessed output to \'hola.ppo\'...\nLines 7, Functions/Procedures 1\nGenerating C source output to \'hola.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nhola.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: \'C:\\HARBOUR\\LIB\\B32\\RDD.LIB\' contains invalid OMF record, type 0x21 (poss\nibly COFF)\n\"hola\" no se reconoce como un comando interno o externo,\nprograma o archivo por lotes ejecutable.\n\nC:\\FWH24\\SAMPLES&gt;\n\n********************************************************\n\nCompiling...\nHarbour Compiler Alpha build 40.0 (Flex)\nCopyright 1999-2002, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'hola.prg\' and generating preprocessed output to \'hola.ppo\'...\nLines 7, Functions/Procedures 1\nGenerating C source output to \'hola.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nhola.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_DBFDBT\' referenced from C:\\HARBOUR\\LIB\\B32\\R\nDD.LIB|rddsys\n\"hola\" no se reconoce como un comando interno o externo,\nprograma o archivo por lotes ejecutable.\n\nC:\\FWH24\\SAMPLES&gt;','',0,'AIA=','1bn21zvk',1,0,'',396,0,0),(6091,1454,6,28,0,'87.218.46.184',1138491689,1,0,1,1,1,0,'','','hola \n\nel tema del OEM y el COFF creo que es porque estas mezclando librerias de borland y visualc\n\nEl otro error es de que no encuentra una libreria. \n\nCreo, de todas formas, que deberias mostrar el fichero mak o el bat que estas utilizando porque posiblemente algo esta mal puesto.\n\nUn saludo','',0,'AIA=','15j6ieap',1,0,'',28,0,0),(6092,1455,4,2,0,'87.218.146.217',1138501109,1,0,1,1,1,1,'','Windows Mobile 2005 Emulator!','Follow these rules to test Windows Mobile 2005 on the Pocket PC emulator:\n\n1. Download the [url=http&#58;//www&#46;microsoft&#46;com/downloads/details&#46;aspx?familyid=83A52AF2-F524-4EC5-9155-717CBE5D25ED&amp;displaylang=en:2qutde8k]Windows Mobile 5.0 SDK for Pocket PC[/url:2qutde8k] \n\n2. Extract the SDK to a folder on your hard drive by running \"msiexec /a \"Windows Mobile 5.0 Pocket PC SDK.msi\"\".\n\n3. Locate in the installed files \"PPC_USA.bin\" and copy it to the folder where your actual emulator images are. (The ROM size is 20 Mgs).\n\n4. Run: deviceemulator PPC_USA.bin /skin Pocketpc_2003_skin.xml /memsize 128\n\nWindows Mobile 2005 running:\n[url=http&#58;//imageshack&#46;us:2qutde8k][img:2qutde8k]http&#58;//img82&#46;imageshack&#46;us/img82/655/image29pk&#46;png[/img:2qutde8k][/url:2qutde8k]\n\nFiveWin for Pocket PC running on Windows Mobile 2005:\n[url=http&#58;//imageshack&#46;us:2qutde8k][img:2qutde8k]http&#58;//img67&#46;imageshack&#46;us/img67/4411/image18rw&#46;png[/img:2qutde8k][/url:2qutde8k]\n\nThe Windows Mobile 2005 emulator needs more time to load and its slower, but now we can check FWPPC on it too <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','2qutde8k',1,0,'',2,0,0),(6093,1456,7,2,0,'87.218.146.217',1138501600,1,0,1,1,1,1,'','Windows Mobile 2005 en el emulador!','Seguid estos pasos para usar el Windows Mobile 2005 en el emulador de Pocket PC:\n\n1. Descargad el [url=http&#58;//www&#46;microsoft&#46;com/downloads/details&#46;aspx?familyid=83A52AF2-F524-4EC5-9155-717CBE5D25ED&amp;displaylang=en:ydorqlvy]Windows Mobile 5.0 SDK para Pocket PC[/url:ydorqlvy] \n\n2. Extraer el SDK a una carpeta en el disco duro ejecutando \"msiexec /a \"Windows Mobile 5.0 Pocket PC SDK.msi\"\".\n\n3. Localizar en los ficheros instalados el \"PPC_USA.bin\" y copiarlo a la carpeta en donde teneis las actuales imágenes del emulador. (El tamaño de este fichero es 20 mgs).\n\n4. Ejecutad: deviceemulator PPC_USA.bin /skin Pocketpc_2003_skin.xml /memsize 128\n\nWindows Mobile 2005 ejecutándose:\n[url=http&#58;//imageshack&#46;us:ydorqlvy][img:ydorqlvy]http&#58;//img82&#46;imageshack&#46;us/img82/655/image29pk&#46;png[/img:ydorqlvy][/url:ydorqlvy]\n\nFiveWin para Pocket PC funcionando en Windows Mobile 2005:\n[url=http&#58;//imageshack&#46;us:ydorqlvy][img:ydorqlvy]http&#58;//img67&#46;imageshack&#46;us/img67/4411/image18rw&#46;png[/img:ydorqlvy][/url:ydorqlvy]\n\nEl emulador de Windows Mobile 2005 necesita más tiempo para cargar y es más lento, pero nos sirve para probar las aplicaciones de FWPPC en él también! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','ydorqlvy',1,0,'',2,0,0),(6094,1431,3,67,0,'62.235.24.7',1138522064,1,0,1,1,1,0,'','Testrich.prg','Antonio\n\nI reported on xhb problems when rc-files are in the xbp-file (step 3)\n\nTested on alaska.prg and alaska.rc :\n\n    When alaska.rc is not present in the build file , it build and runs ok\n    So i suppose there is no need to import a rc-file with the same name in the xbp-file\n\nBut when we import the rc-file in the xbp-file , i got errors as described earlyer. The first line in the rc-file , # include .../winapi.ch , takes winapi.ch from XHB , not from fwh . It seems that the default dir is changed to XHB.\n\nNote that in fw2.6 and xhb october release there are no problems\n\n\nThen i take testrich.prg , which has as alaska.prg also a rc-file with the same name\n\nFirst try : without rc-file in the xbp-file : \npplication\n===========\n   Path and name: C:\\FWH\\SAMPLES\\testrich.exe (32 bits)\n   Size: 1,426,432 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 01/29/06, 09:01:31\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: Test\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: testrich.prg =&gt; MAIN(34)\n\nSO , TESTRICH.RC MUST BE INCLUDED . WHY ? . IN ALASKA IT WAS NOT NEEDED.\n\nNext problem : see higher \n\nThe first line in the rc-file , # include .../winapi.ch , takes winapi.ch from XHB , not from fwh . It seems that the default dir is changed to XHB.\n\nSo i had to change this line in # include \"c:\\fwh\\.....\" , and now it seems to work. Yesterday i thaught that i had always the same error (cannot create dialog) , but maybe i did something wrong\n\nI will report on xhb forum\n\nFrank','',0,'GA==','glal7bvo',1,0,'',67,0,0),(6095,1455,4,6,0,'87.1.225.116',1138525896,1,0,1,1,1,1,'','Re: Windows Mobile 2005 Emulator!','Great!\n\nEMG','',0,'GA==','2k9d0fnf',1,0,'',6,0,0),(6096,1455,4,6,0,'87.1.225.116',1138526073,1,0,1,1,1,1,'','Re: Windows Mobile 2005 Emulator!','&gt; 29/01/2006 03:18\n\nAntonio, for your health, I think you\'d better to sleep at night. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'GA==','2ag3w3j5',1,0,'',6,0,0),(6097,1431,3,2,0,'87.218.146.139',1138529539,1,0,1,1,1,1,'','','Frank,\n\nDo this simple test:\n\nReplace new xRC.exe with previous xRC.exe and try it again.','',0,'GA==','18d3blcl',1,0,'',2,0,0),(6098,1453,6,46,0,'195.8.27.38',1138531119,1,0,1,1,1,0,'','','[code:21v2zexj]#define LVSIL_SMALL              1\n&#46;&#46;&#46;&#46;\n   Local oImageList1 &#58;= TImageList&#40;&#41;&#58;New&#40; 16, 16 &#41;\n\n   oListView&#58;SetImageList&#40; oImageList1, LVSIL_SMALL &#41;\n&#46;&#46;&#46;&#46;[/code:21v2zexj]\n\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','21v2zexj',1,0,'',46,0,0),(6099,1457,3,67,0,'62.235.24.7',1138532868,1,0,1,1,1,0,'','Duplex printing','How is it done ? oPrn:SetBin(nBin) ??????\n\nHow select front and backsize ?\n\nFrank','',0,'AIA=','2vozfyko',1,0,'',67,0,0),(6100,1455,4,2,0,'87.218.146.200',1138539659,1,0,1,1,1,1,'','','Enrico,\n\nSure, but I was so anxious to test Windows Mobile 2005 that when I found how to extract it from the msi file and run it on the emulator, I could not go to bed <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nIf you run the SDK msi file you will see that Microsoft requires you to have previously installed Visual Studio 2005! (more than 2 GBs) but doing\nmsiexec /a ...msi then you bypass the msi requirements  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> so there is no need for Visual Studio 2005 <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nWe should remember this cool trick for next msi files from Microsoft...','',0,'AIA=','37s52cqg',1,0,'',2,0,0),(6101,1454,6,2,0,'87.218.146.200',1138540586,1,0,1,1,1,1,'','','Jose Luis,\n\nYa no existe DBFDBT.lib, en su lugar has de usar las librerías DBFFPT.lib y HBSIX.lib','',0,'AIA=','1ohkkzol',1,0,'',2,0,0),(6102,1457,3,6,0,'82.57.160.129',1138544848,1,0,1,1,1,1,'','Re: Duplex printing','Have a look at PrnDuplex() function.\n\nEMG','',0,'AIA=','272taylk',1,0,'',6,0,0),(6103,1458,4,82,0,'82.50.110.89',1138550757,1,0,1,1,1,0,'','email with fwppc...','It\'s possible ..? as ...?\nregard\'s\nandrea','',0,'AIA=','3j2rbow3',1,0,'',82,0,0),(6104,1459,3,3,0,'82.64.198.56',1138552479,1,0,1,1,1,0,'','DBCOMBO question','Hello,\n\nIs it possible to display 2 fields with dbcombo ? \n\nI have tried without success, a sample will be great \n\nThanks\n\nRichard','',0,'AIA=','2tpx4nnf',1,0,'',3,0,0),(6105,1454,6,228,0,'69.79.181.201',1138555151,1,0,1,1,1,1,'','','tambien tiene que ver la version de verce que estas usando, creo debes tener una version menor a la 4.3. Si quieres escribeme ami correo para mas detalles','',0,'AIA=','22psjcyz',1,0,'',228,0,0),(6106,1460,3,49,0,'62.13.172.78',1138557652,1,0,1,1,1,0,'','to fill a rect','I must refill a rect :\n\n[code:1zvwy10i]METHOD Rectang&#40; nTop, nLeft, nBottom, nRight, oPen ,nRecord&#41; CLASS XXXXXXX\n\n   local hPen &#58;= if&#40; oPen = nil, 0, oPen&#58;hPen &#41;\n   Local nX &#58;= oPen&#58;nWidth / 2\n   IIF&#40; nRecord == nil , nRecord &#58;= 0  , &#41;\n   &#58;&#58;GetDC&#40;&#41;\n   MoveTo&#40; &#58;&#58;hDC, nLeft, nTop &#41;\n   LineTo&#40; &#58;&#58;hDC, nRight, nBottom, hPen &#41;\n   FillRect&#40; nTop, nLeft, nBottom, nRight, nColor &#41;  ?? it make me error \n   &#58;&#58;ReleaseDC&#40;&#41;\n \nreturn nil[/code:1zvwy10i]\n\n\nSomeone can help me please\n\nRegards','',0,'AIA=','1zvwy10i',1,0,'',49,0,0),(6107,1461,3,425,0,'213.22.204.3',1138559940,1,0,1,1,1,0,'','Total of Pages on a Fwh Report','Hi\n\nIs it possble to print  trought  Print  object the total of pages of a report ?\n\nex. Page xx of nn\n\nRegards\n\n\n Pedro Faro','',0,'AIA=','ia2uvqfc',1,0,'',425,0,0),(6108,1460,3,6,0,'82.57.160.129',1138559954,1,0,1,1,1,1,'','Re: to fill a rect','This is a working sample:\n\n[code:1e1ehga4]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrush\n\n    DEFINE BRUSH oBrush COLOR CLR_RED\n\n    DEFINE DIALOG oDlg\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON PAINT FILLRECT&#40; hDC, &#123; 10, 10, 100, 300 &#125;, oBrush&#58;hBrush &#41;;\n             CENTER\n\n    RELEASE BRUSH oBrush\n\n    RETURN NIL[/code:1e1ehga4]\n\nEMG','',0,'AIA=','1e1ehga4',1,0,'',6,0,0),(6109,1461,3,6,0,'82.57.160.129',1138560120,1,0,1,1,1,1,'','Re: Total of Pages on a Fwh Report','Yes, but you have to generate the report twice. I don\'t think it\'s worth the effort.\n\nEMG','',0,'AIA=','1ijptgvz',1,0,'',6,0,0),(6110,1353,6,123,0,'83.53.61.112',1138560657,1,0,1,1,1,0,'','','Joel,\n\nAcabo de comprobar que para indicar una fecha en blanco has de poner el valor NIL al campo fecha.\n\nNo obstante has de tener en consideración lo siguiente:\n\n- Si em Ms-Sql tienes un valor por defecto para ese campo, al actualizar, si el valor es NIL, Ms-Sql lo cambiará al valor por defecto\n\n- La versión que utilices de xHarbour puede que esté desactualizada.  Sería conveniente que utilizaras la última versión disponible.  Si no puedes actualizarte todo el el xharbour, prueba a bajarte el fichero win32ole.prg desde el CVS y añadirlo a tu proyecto (no lo he probado).\n\nEspero haberte sido de ayuda.\nSaludos,\nJosé Luis Capel','',0,'AIA=','2513wwxw',1,0,'',123,0,0),(6111,1459,3,303,0,'68.7.28.54',1138562986,1,0,1,1,1,0,'','','Use arrays:   \n\noDBCombo:=SetItems( aItems, aList )\n\nJames','',0,'AIA=','7p94pozr',1,0,'',303,0,0),(6112,1376,20,125,0,'213.156.52.109',1138565716,1,0,1,1,1,0,'','','Ho notato che su un pc del cliente tane .manifest non funziona!\nSara\' mica perche \' ha XP Sp1  invece che Sp2 ?\nSapete niente se per funzionare ha bisogno del sp2?\nGrazie','',0,'AIA=','2yz4rtbb',1,0,'',125,0,0),(6113,1376,20,6,0,'82.57.160.129',1138566517,1,0,1,1,1,1,'','','No, funziona su tutti gli XP. Però è possibile disabilitare gli stili. Controlla che siano abilitati. Prova ad aprire, ad esempio, le proprietà del desktop e guarda se lì gli stili si vedono.\n\nEMG','',0,'AIA=','1v4j81rw',1,0,'',6,0,0),(6114,1462,3,148,0,'82.201.235.54',1138569762,1,0,1,1,1,0,'','AutoDetect to Screen Resolution','How can I stable screen positions (says,get,buttons) regardless screen resoultion  ?','',0,'AIA=','2ro7cluf',1,0,'',148,0,0),(6115,1297,1,49,0,'82.53.119.237',1138572609,1,0,1,1,1,0,'','','I made a Class 32 bit\nIt is called Tplan and it is created seeing the Tgant class 16 bit \nI need it for my application, But Arthuro does not have never intentional to give sources to me and I have created it\nI\'m working  because there is still something that does not work\nI tried to use the tgant\'s sample of Arthuro and already looked at turns out \nif you want see my work :\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/8c9da930/tgantwithTplan.zip.html\">http://hyperupload.com/download/8c9da93 ... n.zip.html</a><!-- m -->\nI do not want to give to all this my class why Arthur has not never given it to the community... \nI have worked for years creating classes but nobody has never intentional to recognize my creativity','',0,'AIA=','27enqeug',1,0,'',49,0,0),(6116,1460,3,49,0,'82.53.119.237',1138573290,1,0,1,1,1,0,'','','thanks EMG\n\nbut  I must give to my func  ncolor variable \nit create a rect with \n\n[code:3arqptgd]Rectang&#40; nTop, nLeft, nBottom, nRight, oPen ,nRecord&#41;[/code:3arqptgd]\n\nfrom this command I can create a brush with the ncolor of the open I give to it \n\n can I found the color of the open and insert to brush ?','',0,'AIA=','3arqptgd',1,0,'',49,0,0),(6117,1460,3,49,0,'82.53.119.237',1138574009,1,0,1,1,1,0,'','','to understand well I explain you \n in a program I run this function \n\n[code:311kfm8m]    oGraficos&#58;Rectang&#40; nLinea+nVertic+4, nColumnaInicio+nHoriz, nLinea+nVertic+10, nColumnaFinal+nHoriz ,oPen5,dati-&gt;&#40;Recno&#40;&#41;&#41; &#41;\n           [/code:311kfm8m]\n\noGraficos is a object of a class\n\nand into class there is this method :\n[code:311kfm8m]\nMETHOD Rectang&#40; nTop, nLeft, nBottom, nRight, oPen ,nRecord&#41; CLASS XXXXXX\n\n   local hPen &#58;= if&#40; oPen = nil, 0, oPen&#58;hPen &#41;\n   Local nX &#58;= oPen&#58;nWidth / 2\n   IIF&#40; nRecord == nil , nRecord &#58;= 0  , &#41;\n   &#58;&#58;GetDC&#40;&#41;\n   *Rectangle&#40; &#58;&#58;hDC, nTop, nLeft, nBottom, nRight, hPen &#41;\n    MoveTo&#40; &#58;&#58;hDC, nLeft, nTop &#41;\n   LineTo&#40; &#58;&#58;hDC, nRight, nBottom, hPen &#41;\n\n   PPP\n\n   &#58;&#58;ReleaseDC&#40;&#41;\n if nRecord &gt; 0\n      aadd&#40;&#58;&#58;aItems,&#123;nTop-nX,nLeft-nX,nBottom+nX,nRight+nX,nRecord&#125;&#41;\n   endif\n\nreturn nil[/code:311kfm8m]\n\nBut it create a line as a pen  and I want to show a rectangule filled of the color hpen\n\nwhere I insert the word \"PPP\" i must insert the _fillrect method but it want a brush\n\n\n[code:311kfm8m]METHOD _FillRect&#40; nTop, nLeft, nBottom, nRight, nColor &#41; CLASS XXXX\n\n   LOCAL oBrush, hBru, hOld\n\n   hBru &#58;= CreateSolidBrush&#40; nColor &#41;\n   hPen &#58;= CreatePen&#40; nColor &#41;\n   hOld &#58;= SelectObject&#40; &#58;&#58;hDC, hBru &#41;\n   MoveTo&#40; &#58;&#58;hDC, nLeft, nTop &#41;\n   LineTo&#40; &#58;&#58;hDC, nRight, nBottom, hPen &#41;\n   FillRect&#40; &#58;&#58;hDC, &#123; nTop, nLeft, nBottom, nRight &#125;, hBru &#41;\n   SelectObject&#40; &#58;&#58;hDC, hOld &#41;\n   DeleteObject&#40; hBru &#41;\n\n   RETURN &#40;Nil&#41;\n[/code:311kfm8m]\n\nI hope you understand now well my work\n\nRegards','',0,'AIA=','311kfm8m',1,0,'',49,0,0),(6118,1460,3,49,0,'82.53.119.237',1138574253,1,0,1,1,1,0,'','','OKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK\n\n\nI resolve IT\n\nNOw RUn OKKKKKKKK\n\nthanks to all\n\nFalconi Silvio','',0,'AIA=','22txkdaz',1,0,'',49,0,0),(6119,1353,6,138,0,'148.221.195.254',1138582152,1,0,1,1,1,1,'','','Jose Luis:\n\nNIL o NULL ??? (no es lo mismo)','',0,'AIA=','1mets0qd',1,0,'',138,0,0),(6120,1451,6,138,0,'148.221.195.254',1138582512,1,0,1,1,1,1,'','','Abre TODAS las bases de datos al momenot de entrar a la aplicacion y cierralas hasta que termines. Con (x)Harbour no tienes limitaciones de archivos abiertos al mismo tiempo.\n\nEl abrir y cerrar archivos con ADS ralentiza tremendamente el servidor.\n\nDe todas formas un AdsCacheRecords(100) hace lo que quieres','',0,'AIA=','3vv67xl2',1,0,'',138,0,0),(6121,1408,20,1,0,'87.7.182.39',1138585222,1,0,1,1,1,0,'','','Ho trovato se a qualcuno interessa il Preview di stampa della classe RichText\nnon l\'ho provato ma credo che dovrebbe funzionare solo che nella classe ultima che da linares non c\'è il metodo preview come è possibile ?\n\nIn realtà io posseggo due versioni una è la richpad e l\'altra è il richrtf di fw\nA me poi interessava un altra cosa : come fare un merge con quest aclasse ed usare un file dbf per esempio per fare i solleciti\n\nsilvio','',0,'AIA=','kz5d0aeh',1,0,'',1,0,0),(6122,1463,2,341,0,'200.127.71.162',1138586023,1,0,1,1,1,0,'','Ayuda btnbmp color de fondo','Estimados Colegas\n\nComo puedo hacer para que un btnbmp, me tome el color de fondo\ndeun dialogo y no que me quede como ahora con fondo gris\nUtilizo Fivewin 2.4\n\ndesde ya muchisimas gracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','fclrzt1v',1,0,'',341,0,0),(6123,1464,6,341,0,'200.127.71.162',1138586145,1,0,1,1,1,0,'','Ayuda btnbmp color de fondo','Estimados Colegas\n\nComo puedo hacer para que un btnbmp, me tome el color de fondo\ndeun dialogo y no que me quede como ahora con fondo gris\nUtilizo Fivewin 2.4\n\ndesde ya muchisimas gracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','hqrf0tjh',1,0,'',341,0,0),(6124,1465,6,341,0,'200.127.71.162',1138588216,1,0,1,1,1,0,'','Ayuda Color de  registro con Twbrowse','Estimado Colegas\n\nAlguien me podria orientar  en lo siguiente tengo dos columas\nen la cual tengo registros que tienen diferente condicion ej\nlocal, en camino etc  lo que quiero hacer es asignarle un color \na cada condicion  solamente en esas columna .\n\n  EJ\n           \n columa \"ESTADO\"                            COLUMNA  PAGADO\n              LOCAL         BLANCO                           SI  VERDE\n              EN CAMINO  AMARILLO                        NO ROJO\n\nDESDE YA MUCHISIMAS GRACIAS\ndANTE\n<!-- e --><a href=\"mailto:DEVWIN2004@YAHOO.COM.AR\">DEVWIN2004@YAHOO.COM.AR</a><!-- e -->','',0,'AIA=','3r6wimrj',1,0,'',341,0,0),(6125,1457,3,67,0,'62.235.24.7',1138604658,1,0,1,1,1,0,'','','Enrico,\n\nThanks , i didn\'t know this function  , but how to use ?\n\nI suppose that it is called after the printobject is called ?\n\nWhat means DMDUP_HORIZONTAL  ?\nDMDUP_VERTICAL ?\n\nWill automatically page 1 on the front , page 2 on the back .....\n\nIt is difficult to me to test , this week i have at the client to manage duplex printing , i try to save time before the job.','',0,'AIA=','18ntxsll',1,0,'',67,0,0),(6126,1457,3,6,0,'87.1.198.159',1138606908,1,0,1,1,1,1,'','','You can call it before the PRINT command.\n\nFrom the MSDN:\n\ndmDuplex \nSelects duplex or double-sided printing for printers capable of duplex printing. Following are the possible values. Value Meaning \nDMDUP_SIMPLEX Normal (nonduplex) printing. \nDMDUP_HORIZONTAL Short-edge binding, that is, the long edge of the page is horizontal.  \nDMDUP_VERTICAL Long-edge binding, that is, the long edge of the page is vertical. \n\nEMG','',0,'AIA=','1y6lwogn',1,0,'',6,0,0),(6127,1353,6,123,0,'81.39.239.66',1138614651,1,0,1,1,1,0,'','','René,\n\n[quote:1btipmnl]NIL o NULL ??? (no es lo mismo)[/quote:1btipmnl]\n\nEn el contexto de la conversación se entiende que NIL dado que NULL en xHarbour no existe.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1btipmnl',1,0,'',123,0,0),(6128,1376,20,125,0,'194.243.7.199',1138614780,1,0,1,1,1,0,'','','HO CAPITO ORA!\nGRAZIE','',0,'gA==','13p05r4p',1,0,'',125,0,0),(6129,1465,6,362,0,'200.168.52.156',1138617321,1,0,1,1,1,1,'','','Si usas TwBrowse, \n \noLbx:nClrPane  := {|| IIF( BASE-&gt;CANTIDAD == 0, nClr1, nClr2 )}\n \nEn TsBrowse,  \noLbx:SetColor({ 2, 5, 6, 15 },{ { || IIF( BASE-&gt;CANTIDAD == 0, ;\n     nClr1, nClr2 ) }, CLR_WHITE, CLR_BLUE, CLR_GREEN })','',0,'gA==','25j8cia6',1,0,'',362,0,0),(6130,1466,3,382,0,'194.77.253.245',1138618438,1,0,1,1,1,1,'','Toolbar','I need a toolbar in a dialog. But it doesn\'t work (error-message: \"cannot create window class TBAR\"). \n\nTest4711() works\nTest4712() doesn\'t work\n\nwhy?\n\n[code:4z6ru9y1]\n*******************\nFUNCTION Test4711&#40;&#41;\n*******************\nLOCAL oWnd, oBar\nDEFINE WINDOW oWnd TITLE &quot;Test&quot;\nDEFINE BUTTONBAR oBar OF oWnd\nACTIVATE WINDOW oWnd VALID &#46;T&#46;\nRETURN NIL\n\n*******************\nFUNCTION Test4712&#40;&#41;\n*******************\nLOCAL oDlg, oBar\nDEFINE DIALOG oDlg TITLE &quot;Test&quot;\nDEFINE BUTTONBAR oBar OF oDlg\nACTIVATE DIALOG oDlg VALID &#46;T&#46;\nRETURN NIL\n[/code:4z6ru9y1]','',0,'AIA=','4z6ru9y1',1,0,'',382,0,0),(6131,1466,3,6,0,'87.1.198.159',1138620017,1,0,1,1,1,1,'','Re: Toolbar','Try to activate the toolbar during the ON INIT event of the DIALOG.\n\nEMG','',0,'AIA=','374776u6',1,0,'',6,0,0),(6132,1467,3,330,0,'217.37.54.49',1138621238,1,0,1,1,1,0,'','New version 2.7','Hi all\n\nI am trying to upgrade to the latest fwh with xharbour.\n\nI am getting an error hb_stack when using cgetdir() or cgetdir32()\n\nAny ideas\nPeter','',0,'AIA=','bm3ganfj',1,0,'',330,0,0),(6133,1466,3,382,0,'80.140.247.111',1138622147,1,0,1,1,1,1,'','Re: Toolbar','Hello EnricoMaria,\n\nthanks, it works now:\n\n[code:3ixpyo92]\n*******************\nFUNCTION Test4713&#40;&#41;\n*******************\nLOCAL oWnd\nDEFINE WINDOW oWnd TITLE &quot;Test&quot;\nACTIVATE WINDOW oWnd VALID &#46;T&#46; ON INIT OnInitUdf&#40;oWnd&#41;\nRETURN NIL\n\n\n*******************\nFUNCTION Test4714&#40;&#41;\n*******************\nLOCAL oDlg\nDEFINE DIALOG oDlg TITLE &quot;Test&quot;\nACTIVATE DIALOG oDlg VALID &#46;T&#46; ON INIT OnInitUdf&#40;oDlg&#41;\nRETURN NIL\n\n\n\n****************************\nSTATIC FUNCTION OnInitUdf&#40;o&#41;\n****************************\nLOCAL oBar\nDEFINE BUTTONBAR oBar OF o\nRETURN &#46;T&#46;\n[/code:3ixpyo92]','',0,'AIA=','3ixpyo92',1,0,'',382,0,0),(6134,1468,16,2,0,'87.218.146.254',1138622300,1,0,1,1,1,1,'','New FWPPC build with Progress Bars support','There is a new FWPPC build with standard Win32 Progress Bars support that you may already download. Here it is how it looks like:\n\n[url=http&#58;//imageshack&#46;us:25v1zrbe][img:25v1zrbe]http&#58;//img72&#46;imageshack&#46;us/img72/7392/progress7oy&#46;png[/img:25v1zrbe][/url:25v1zrbe]\n\nAnd this is the code in samples\\TestProg.prg:\n[code:25v1zrbe]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oPgr\n\n   DEFINE WINDOW oWnd TITLE &quot;Progress Bars&quot;\n\n   @ 2, 8 SAY &quot;FiveWin for Pocket PC&quot; OF oWnd SIZE 150, 20\n\n   @ 4, 6 PROGRESS oPgr POS 5 OF oWnd SIZE 150, 15\n\n   @ 5, 6 BUTTON &quot;-&quot; OF oWnd SIZE 20, 20 ;\n      ACTION oPgr&#58;nPosition--\n\n   @ 5, 28 BUTTON &quot;+&quot; OF oWnd SIZE 20, 20 ;\n      ACTION oPgr&#58;nPosition++\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41;\n\nreturn nil\n[/code:25v1zrbe]','',0,'GIA=','25v1zrbe',1,0,'',2,0,0),(6135,1469,7,123,0,'81.39.239.66',1138622442,1,0,1,1,1,0,'','Tamaño de la pantalla en pixeles','Hola,\n\n¿Hay alguna función que te devuelva el tamaño en píxeles de la pantalla de la PDA?\n\nSaludos,\nJosé Luis Capel','',0,'GIA=','11j6awje',1,0,'',123,0,0),(6136,1470,7,2,0,'87.218.146.254',1138622615,1,0,1,1,1,1,'','Nuevo FWPPC build con barras de progreso','Ya hay disponible un nuevo build de FWPPC para descargar con soporte de barras de progreso. Así es cómo se ve:\n\n[url=http&#58;//imageshack&#46;us:1pgs2tf1][img:1pgs2tf1]http&#58;//img72&#46;imageshack&#46;us/img72/7392/progress7oy&#46;png[/img:1pgs2tf1][/url:1pgs2tf1]\n\nY este es el código en samples\\TestProg.prg:\n[code:1pgs2tf1]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oPgr\n\n   DEFINE WINDOW oWnd TITLE &quot;Progress Bars&quot;\n\n   @ 2, 8 SAY &quot;FiveWin for Pocket PC&quot; OF oWnd SIZE 150, 20\n\n   @ 4, 6 PROGRESS oPgr POS 5 OF oWnd SIZE 150, 15\n\n   @ 5, 6 BUTTON &quot;-&quot; OF oWnd SIZE 20, 20 ;\n      ACTION oPgr&#58;nPosition--\n\n   @ 5, 28 BUTTON &quot;+&quot; OF oWnd SIZE 20, 20 ;\n      ACTION oPgr&#58;nPosition++\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41;\n\nreturn nil\n[/code:1pgs2tf1]','',0,'GIA=','1pgs2tf1',1,0,'',2,0,0),(6137,1467,3,2,0,'87.218.146.254',1138622855,1,0,1,1,1,1,'','','Peter,\n\nAre you using a cGetDir() modified by you ?\n\nWe have just tested samples\\getdir.prg and worked ok.','',0,'GIA=','ug7s2xho',1,0,'',2,0,0),(6138,1467,3,330,0,'217.37.54.49',1138623164,1,0,1,1,1,0,'','','Just using standard.If I take it out then I don not get the hb stack error\n\nPeter','',0,'GIA=','2pntdjle',1,0,'',330,0,0),(6139,1448,6,336,0,'80.58.10.235',1138624656,1,0,0,1,1,0,'','','Si pero no. La cosa esta en el uso del dialogo pero que incluya el boton de crear carpeta, y el edit para ingresar a mano el path. Si hay parametros de eso, necesitaria saber como ponerlos.\nEl cgetdir muestra un dialogo con el tree, un boton de aceptar y otro de cancelar, he visto en algunos instaladores de programas que hay mas posibilidades.\n\nSaludos','',0,'GIA=','1sx04ibb',1,0,'',336,0,0),(6140,1461,3,41,0,'166.114.252.26',1138624657,1,0,1,1,1,0,'','','Hola,\n\nyou can write the page number after of the report finished, because each page of the report is a EMF or WMF file in some directory in your machine (ej.  c:\\windows\\temp), in this way you doin\'t need to generate the report two times.\n\nsaludos\n\nMarcelo','',0,'GIA=','23tvvup2',1,0,'',41,0,0),(6141,1472,2,404,0,'213.231.101.107',1138625741,1,0,1,1,1,0,'','Code Blocks, función: IF()','Estimados colegas:\n\n¿Es conveniente, pasar a Code Blocks, todas las líneas, que se puedan de un fuente?.\n\n¿Y sustituir, todos los IF ELSE ENDIF, por IF()?\n\n¿Poner, todo lo que sea factible, de los IF(), a IF( condición, EVAL( bCode1 ), EVAL( bCode2 ) )\n\nYa que los, Code Blocks, y la función IF(), son más rapidos. Me podrías decir, que ya me he contestado yo mismo, pero nunca esta de más segundas, terceras,... opiniones. Por las experiencias de cada uno.\n\nPor ello, pido opinión, a todos los que quieran participar.\n\nSaludos, y ¡¡¡GRACIAS!!! anticipadas.','',0,'GIA=','1gstv5gy',1,0,'',404,0,0),(6142,1467,3,2,0,'87.218.146.254',1138626309,1,0,1,1,1,1,'','','Peter,\n\nAre you using xharbour builder ? If so, please send me an email requiring modified libs, thanks.','',0,'GIA=','12jq1tn5',1,0,'',2,0,0),(6143,1455,4,68,0,'203.45.174.65',1138626598,1,0,1,1,1,1,'','','Antonio,\nThanks for your fantastic effort - the new emulator cures the fault of the failing serial port when it would randomly just stop working during a write, even when using C code.\nregards','',0,'GIA=','1y4ah04l',1,0,'',68,0,0),(6144,1455,4,2,0,'87.218.146.29',1138632821,1,0,1,1,1,1,'','','Jon,\n\nThanks for your feedback <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GIA=','o3kd294l',1,0,'',2,0,0),(6145,1473,3,2,0,'87.218.146.29',1138633142,1,0,1,1,1,1,'','Bitmaped and transparent dialogs','Do you like them ? Do you want them for FW ?\n\nBuilt with the upcoming FWH 2.7 February build:\n\n[url=http&#58;//imageshack&#46;us:24n5yjex][img:24n5yjex]http&#58;//img227&#46;imageshack&#46;us/img227/1041/image15lv&#46;png[/img:24n5yjex][/url:24n5yjex]','',0,'GA==','24n5yjex',1,0,'',2,0,0),(6146,1474,6,2,0,'87.218.146.29',1138633344,1,0,1,1,1,1,'','Diálogos con bitmaps de fondo y transparentes','Te gustan ? Los quieres para FW ?\n\nEjemplo construido con el próximo FWH 2.7 build de Febrero:\n\n[url=http&#58;//imageshack&#46;us:134shuti][img:134shuti]http&#58;//img227&#46;imageshack&#46;us/img227/1041/image15lv&#46;png[/img:134shuti][/url:134shuti]','',0,'GA==','134shuti',1,0,'',2,0,0),(6147,1448,6,336,0,'80.58.10.235',1138633517,1,0,0,1,1,0,'','','Ya está, me respondo solito y de paso para poner el parche o incluirlo de alguna manera en la Fw:\n[code]\n#pragma BEGINDUMP\n#include \"windows.h\"\n#include \"hbapi.h\"\n\n\n#include &lt;Windows.h&gt;\n#include &lt;CommDlg.h&gt;\n\n#ifdef __FLAT__\n   #include &lt;shlobj.h&gt;\n#endif\n\n#define OFN_LONGNAMES    0x00200000\n#define WF_WINNT         0x4000\n#define LOGPIXELSX       88\n\nBOOL IsWin95(VOID);\n\nBOOL CALLBACK ComDlgHkFile(HWND hDlg, UINT uMsg,\n                           WPARAM wParam, LPARAM lPar);\n\n/*\nstatic far BOOL b95Look  = FALSE;\nstatic far char SelDir[] = \"Select directory\";\nstatic far char IniDir[] = \".\\\\\";\nstatic far char File[]   = \"__test__.tmp\";\nstatic far char Font[]   = \"MS Sans Serif\";\nstatic far int  PixelX   = 0;\nstatic far char Driver[] = \"DISPLAY\";\n*/\n\nHB_FUNC( CGETDIR )\n{\n   BROWSEINFO lpbi;\n   char lpstrTitle[ 512 ], lpstrDisplayName[ MAX_PATH ];\n   LPCITEMIDLIST lpIDList;\n\n   _bset( ( char * ) &amp;lpbi, 0, sizeof( lpbi ) );\n\n   lpbi.hwndOwner  = GetActiveWindow();\n   lpbi.lpszTitle = hb_parc( 1 );\n   lpbi.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_USENEWUI;\n   lpIDList = SHBrowseForFolder( &amp;lpbi);\n\n   if( lpIDList )\n   {\n      SHGetPathFromIDList( lpIDList, lpstrDisplayName );\n      hb_retc( lpstrDisplayName );\n   }\n   else\n      hb_retc( \"\" );\n}\n\n#pragma ENDDUMP[/code]\n\nlo agregado es el BIF_USENEWUI. Una tontera, pero habia que buscar...\nSaludos','',0,'GA==','2678p48y',1,0,'',336,0,0),(6148,1474,6,336,0,'80.58.10.235',1138633615,1,0,0,1,1,0,'','','Me gustaria poder tener ahora los checkboxes transparentes, como te lo habái pedido hace algun tiempo, se puede?','',0,'GA==','2x986coa',1,0,'',336,0,0),(6149,1443,2,348,0,'201.230.65.83',1138633897,1,0,1,1,1,0,'','Re: dudas para crear documentos con cabecera y detalle','Rene , Gracias por la Respuesta, si bien es una alternativa, solo que aun estoy usando los indices  NTX\nDe todas formas va pa mi libro , <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\nLubin \n\n\n[quote=&quot;RF&quot;:wr2m24dr]Lubin:\n\n\nMas facil, mete un SCOPE en el detalle del documento y nunca tendras el problema de que \"borre\" el filtro.\n\ndetalle -&gt;(OrdScope(0,XNRO_NEW))\ndetalle-&gt;(OrdScope(1,XNRO_NEW))\n\nY listo, todos los registros quedaran filtrado automaticamente.\n\nOJO, esto solo aplica a indices CDX.[/quote:wr2m24dr]','',0,'gA==','wr2m24dr',1,1138634552,'',348,1,0),(6150,1443,2,348,0,'201.230.65.83',1138634479,1,0,1,1,1,0,'','','Gracias Willi por la Respuesta \n\nPero quiza no me entendieron en algo,  mi problema no es al imprimir las Factura si no al crear la Factura,  pues tengo un control de correlativos de documentos que controla el bloqueo de los documentos (un Contador) el cual asigna el Nro de la Factura al Encabezado  una vez que se ingresaron todos los datos de la cabecera (cliente, fecha,direccion, telefono), pasando al Listbox del Detalle, ahi es donde este listbox no funciona correctamente al agregar los items (productos) de la Factura.\n\nde todos modos mil gracias,,,  quizas puedas encender la luzzzz   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nLubin','',0,'gA==','2onxehz2',1,0,'',348,0,0),(6151,1474,6,2,0,'87.218.146.29',1138635399,1,0,1,1,1,1,'','','Carlos,\n\nDe momento la transparencia solo funciona si no se usan los temas de XP. Estamos trabajando en eso.\n\nRectifico: Parece que tambien se puede conseguir con los temas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1cek8it3',1,0,'',2,0,0),(6152,1353,6,40,0,'200.56.163.65',1138638154,1,0,1,1,1,0,'','','Gracias, probare y ya les cuento\n\nSaludos\nJoel Andujo','',0,'gA==','1fa0ukbf',1,0,'',40,0,0),(6153,1473,3,6,0,'87.3.232.228',1138639235,1,0,1,1,1,1,'','Re: Bitmaped and transparent dialogs','Great!\n\nEMG','',0,'gA==','3182bb2o',1,0,'',6,0,0),(6154,1473,3,35,0,'167.7.140.254',1138639487,1,0,1,1,1,0,'','','Looks Great !!!\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','3ftcce3h',1,0,'',35,0,0),(6155,1450,3,209,0,'209.217.64.30',1138639876,1,0,1,1,1,0,'','','Thanks to all the hints provided.  I can now successfully compile and link the program with FWH version 2.7.  \n\nHowever when I try to run it I get the following error:\n\nUnrecoverable error 9000:\n\nProgram with 1st fun: \'TBAR\' was compiled by older version,  pcode version 0 is no longer supported.  Please recompile.\n\nSo I ask again what am I doing wrong?\n\nThanks,\n\nVytas','',0,'gA==','1alr8inm',1,0,'',209,0,0),(6156,1475,3,148,0,'82.201.235.54',1138640223,1,0,1,1,1,0,'','Low memory','Sometimes I should close many applications though my program is too small , and sometimes my programs issues can not create dialog box due to lack of memory ? \nWhat should I do to avoid errors related to the memory ?','',0,'gA==','1m43vylo',1,0,'',148,0,0),(6157,1475,3,6,0,'87.3.232.228',1138640396,1,0,1,1,1,1,'','Re: Low memory','Double check if all your resources (font, bitmaps, pens, icons, etc.) are correctly released.\n\nEMG','',0,'gA==','jzxjioty',1,0,'',6,0,0),(6158,1461,3,138,0,'201.133.73.175',1138641034,1,0,1,1,1,1,'','','First of all you need to undestand how FW create the reports.\n\nFW REPORT Engine is based on a PRINTER object, which creates \"draws\" of the reports in an image format called \"Windows Meta File\" or \"Enhaced Meta Files\" (WMF / EMF). Every time you run a Report o Print object, these files are created in the windows temp directory, then they are previewed and after you close the preview window, these files are erased.\n\nFiveWin has no way to know in advantace how many pages the report will have, because the number of records printed in every single page depends of many factors such printer resolution, paper lenght, font used, etc.\n\nSo, as Enrico says, you would need to launch a frist \"pre-printing\" report, after finished this first report,  you know exactly how may pages your report will have, and with that data you would have to re-create the report in order to print the \"page n of n\"\n\nThe other way, as Marcelo suggest, is to directly edit the WMF files, and by hand write the page number on them.\n\nBoth solutions are equally complicated.','',0,'gA==','1xe11pn6',1,0,'',138,0,0),(6159,1426,6,37,0,'200.121.244.79',1138641190,1,0,1,1,1,0,'','Acerca de TxtPrev','Solo mencionar que este raro problema (que tambien me sucede) no pasa con los EXEs de 32 bits cuando corremos la aplicacion en Windows 98, solo sucede cuando se ejecuta en Windows 2000 y/o Windows XP\nMuy raro, ojala nos ayuden\nSaludos\n\n\nEnrrique Vertiz','',0,'gA==','3m0sag1u',1,0,'',37,0,0),(6160,1473,3,303,0,'68.7.28.54',1138643136,1,0,1,1,1,0,'','','Antonio,\n\nDid you figure out how to make the SAYs transparent without REDEFINING them all?\n\nJames','',0,'gA==','1tbi0qhw',1,0,'',303,0,0),(6161,1476,20,125,0,'213.140.6.105',1138643443,1,0,1,1,1,0,'','Ripetizione stampa con Harbour','Salve, mi e\' capitato che un cliente utilizzando un programma con fw (16) funziona bene (stampando una fattura)\nLo stesso programma compilato con harbour funziona tutto bene ad eccezione che nella stampa delle fatture (anteprima) ripresenta sempre la precedente fattura stampata....come se non cancellasse i wmf all\'uscita della stampa!\nPossibile ?\nMai capitato a qualcuno ?\nDato che il cliente e\' molto distante non posso verificarlo di persona ma ci devo credere. Io pero\' non riesco a simulare tale problema sul mio PC.\n\nAvevo gia\' postato questo problema ma non sono riuscito a risolverlo.\n\nSi accetta qualunque consiglio.\nPiscicelli/Zingoni','',0,'gA==','3a7vjcjm',1,0,'',125,0,0),(6162,1474,6,123,0,'81.39.239.66',1138643700,1,0,1,1,1,0,'','','Antonio,\n\nFenomenal!!\n\nUna pregunta, los textos de los checkbox, ¿son del chexbox o son un label independiente?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','16sfm2c8',1,0,'',123,0,0),(6163,1477,2,401,0,'201.215.44.25',1138646222,1,0,1,1,1,0,'','probloemas mdi','Amigos, tengo el siguiente problema, trabajo con una venana mdi, y esta funciona bien cuando la llamo, aparece centrada en la pantall y sin problema en los bordes, pero cuando la miniminizo (achico), me muestra el boton azul de la ventana abajo, tipo word o excel, hasta ahi todo bien, peroooo cuando pincho este boton para que vuelva a colocarse en el centro, como al principio, nadaaaaaaaaa, se va al costado superior izquierdo de la pantalla y se desaparece la linea azul del dialogo,,, \nque estara pasando   FW2.2, blinkr 5,.0, clip 5.3e, WS 4.0\n\n\nDEFINE WINDOW oWndBrw TITLE \"MODULO DE VENTA \" MDICHILD FROM 03,5 TO 50,115\n  oWndBrw:bgotfocus:={||oDlgEdit1:Setfocus()}\nDEFINE DIALOG oDlgEdit1 RESOURCE \"FVENTA\" TITLE \"PUNTO DE VENTA \" OF oWndBrw\n\n\n\nACTIVATE DIALOG oDlgEdit1 NoWait on init oDlgEdit1:move(0,0) VALID (oWndBrw:End())\n  ACTIVATE WINDOW oWndBrw ;\n           ON INIT oWndBrw:SetSize( oDlgedit1:nWidth, oDlgedit1:nHeight )','',0,'gA==','vbvsukdz',1,0,'',401,0,0),(6164,1473,3,49,0,'82.60.39.42',1138646387,1,0,1,1,1,0,'','','Antonio you can create also dialogs with folder trasparent ?\nI\'d like see the source code here...','',0,'gA==','3lf1wjuc',1,0,'',49,0,0),(6165,1478,6,43,0,'201.127.20.109',1138647496,1,0,1,1,1,0,'','Clase tIconBar','Alguien me podria decir donde la encuentro, hay un ejemplo que se llama: testout y hace referencia a dicha clase.\n\nTrato de compilarla pero me sale un error de: \n    Unresolved external \'_HB_FUN_TICONBAR\'\n\n\nGracias\n\n  Saludos\n\n   Marco A. Delgado.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','5ap1kd2m',1,0,'',43,0,0),(6166,1479,6,427,0,'200.21.165.114',1138648500,1,0,1,1,1,0,'','Error Prueba de OCX','Estoy haciendo pruebas con ole, estoy usando el ocx de R&amp;R version 11\npero me da el siguiente error, si alquien sabe que pasa, me ayudaria mucho.\n\nApplication\n===========\n   Path and name: F:\\Proyecto\\Maxima\\Maxima.Exe (32 bits)\n   Size: 4,382,720 bytes\n   Time from start: 0 hours 0 mins 17 secs \n   Error occurred at: 2006.01.30, 14:05:01\nError R&amp;R.ReportControl/16389  E_FAIL: _REPORTDIRECTORY\n   Args:\n     [   1] = C   c:\\Program Files\\ReportWorks\\Sample\n\nStack Calls\n===========\n   Called from TOLEAUTO:_REPORTDIRECTORY(0)\n   Called from PRUEBA_OCX(1569)\n   Called from (b)TORDENCOMPRA:NEW(106)\n   Called from (b)TORDENCOMPRA:WBROWSE(248)\n   Called from TVMENU:EVALACTION(1635)\n   Called from TVMENU:LBUTTONUP(1337)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TCONTROL:HANDLEEVENT(0)\n   Called from TVMENU:HANDLEEVENT(881)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from TORDENCOMPRA:WBROWSE(376)\n   Called from (b)TORDENCOMPRA:TORDENCOMPRA(60)\n   Called from TORDENCOMPRA:ACTIVATE(0)\n   Called from ORDENCOMPRAS(43)\n   Called from (b)TAPLICA:MENU(704)\n   Called from TMENU:COMMAND(0)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from TAPLICA:ACTIVATE(634)\n   Called from OPEN_APLICA(69)\n   Called from MAIN_(40)\n\nEste es el codigo Ejemplo\n\n//------------------------------------//\n\nFunction PRueba_ocx()\n\n Local  rr:= TOleAuto():New( \"R&amp;R.ReportControl\" )\n\nIF Ole2TxtError() != \"S_OK\"\n		//MsgAlert(\" object creation not successful...\", \"Error\")\nELSE\n   ? \"TOdo OK\"\nENDIF\n\n   RR:ReportDirectory =\"c:\\Program Files\\ReportWorks\\Sample\"\n   rr:ReportName      =\"Basic Columnar Report.rrw\"\n   rr:RunReport()\n\n\nJosé David Angulo','',0,'','2pw4j2au',1,0,'',427,0,0),(6167,1480,2,341,0,'200.127.71.162',1138653909,1,0,1,1,1,0,'','Consulta Tsbutton y Cancel nuevamente','Estimados Colegas\n\nLes hago una consulta con respecto a tsbutton y cancel, Como puedo hacer cuando presiono el boton me salte el valid y me ejecute la funcion local, estoy   trabajando con FW 2.4 Clipper  y tsbutton 4 o 5 , les adjunto el codigo ahora cuando presiono el codigo me ejecuta busdeli del valid y luego local\n\ndisculpa la molestia y gracias\n\nSaludos\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->\n  \n\n\n@ 1.2,05.8   GET otelefo VAR  xtelefo OF oDlgd size 60,15 font oFontb Picture  \'9999999999\' ;\n    Valid busdeli (xtelefo,Odlgd,otelefo,nkey,xturno,xadicion,TIEMPO)  \n\n\n\n@ 11.0,277 SBUTTON b2 of oDLgd Cancel  FILENAME \"NEW1.BMP\" size 24,24 pixels TEXT ON_BOTTOM NOBOX   COLOR CLR_NBLUE,CLR_6  action  local(xtelefo,Odlgd,otelefo,olbx1)\n\n\n@ 34, 275 SAY \"Procesado\" OF oDlgD SIZE 35,10 PIXEL  ;\n	    FONT oFontC COLOR CLR_BLACK,CLR_6','',0,'','226jo32b',1,0,'',341,0,0),(6168,1481,6,341,0,'200.127.71.162',1138654009,1,0,1,1,1,0,'','Consulta Tsbutton y Cancel nuevamente','Estimados Colegas\n\nLes hago una consulta con respecto a tsbutton y cancel, Como puedo hacer cuando presiono el boton me salte el valid y me ejecute la funcion local, estoy   trabajando con FW 2.4 Clipper  y tsbutton 4 o 5 , les adjunto el codigo ahora cuando presiono el codigo me ejecuta busdeli del valid y luego local\n\ndesde ya muchisimas gracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->\n  \n\n\n@ 1.2,05.8   GET otelefo VAR  xtelefo OF oDlgd size 60,15 font oFontb Picture  \'9999999999\' ;\n    Valid busdeli (xtelefo,Odlgd,otelefo,nkey,xturno,xadicion,TIEMPO)  \n\n\n\n@ 11.0,277 SBUTTON b2 of oDLgd Cancel  FILENAME \"NEW1.BMP\" size 24,24 pixels TEXT ON_BOTTOM NOBOX   COLOR CLR_NBLUE,CLR_6  action  local(xtelefo,Odlgd,otelefo,olbx1)\n\n\n@ 34, 275 SAY \"Procesado\" OF oDlgD SIZE 35,10 PIXEL  ;\n	    FONT oFontC COLOR CLR_BLACK,CLR_6','',0,'','1zfoil19',1,0,'',341,0,0),(6169,1482,2,401,0,'201.215.44.25',1138655947,1,0,1,1,1,0,'','que pasa que nadie ayuda','me aburri de estar interpretando o que deberia salir por defecto en un manual, es claro que uno no conoce ni el 20% de fivewin, me molesta tener que depender que alguien me diga que hacer, siendo que esto deberia estar claramente definido, estimado Antonio, con esta forma de operar, es dificil, que esta tremenda herramienta se pueda proyectar en el tiempo\n\nsigo con lo de mdi','',0,'','1gkbsdp5',1,0,'',401,0,0),(6170,1481,6,40,0,'200.56.163.65',1138656870,1,0,1,1,1,0,'','','Dante tienes que modificar el Método KillFocus de la clase tControl\nagrega el string TSButton como en este ejemplo : \n\nSaludos\nJoel Andujo\n\n[code:3c1b8km6]\nMETHOD KillFocus&#40; hCtlFocus &#41; CLASS TControl\n\n   local oWnd\n\n   if ! Empty&#40; hCtlFocus &#41; &#46;and&#46; &#58;&#58;bValid != nil &#46;and&#46; WndParents&#40; hCtlFocus, &#58;&#58;hWnd &#41; &#46;and&#46; ;\n      &#40; oWnd &#58;= oWndFromhWnd&#40; hCtlFocus &#41; &#41; != nil &#46;and&#46; ;\n      Upper&#40; oWnd&#58;Classname&#40;&#41; &#41; $ &quot;TBUTTON;TBTNBMP;TSBUTTON&quot; &#46;and&#46; ;\n      &#40; oWnd&#58;lCancel != nil &#46;and&#46; oWnd&#58;lCancel &#46;and&#46; ;\n        &#40; &#58;&#58;oWnd&#58;nLastKey != VK_TAB &#46;and&#46; &#58;&#58;oWnd&#58;nLastKey != VK_RETURN &#46;and&#46; ;\n          &#58;&#58;oWnd&#58;nLastKey != VK_DOWN &#46;and&#46; &#58;&#58;oWnd&#58;nLastKey != VK_UP &#41; &#41;            // JAAM Agregue &quot;;TSBUTTON&quot; para que le haga caso a\n      &#58;&#58;oWnd&#58;lValidating = &#46;t&#46;                                                     // la clusula CANCEL en los botones\n      &#58;&#58;oWnd&#58;nLastKey &#58;= 0\n      &#58;&#58;ForWhen&#40;&#41;\n      &#58;&#58;oWnd&#58;lValidating = &#46;f&#46;\n      &#58;&#58;LostFocus&#40;&#41;\n      return nil\n   else\n      if Upper&#40; GetClassName&#40; hCtlFocus &#41; &#41; == &quot;TBTNBMP&quot;\n         &#58;&#58;oWnd&#58;nLastKey &#58;= 0  // it fixes TBtnBmp CANCEL clause\n      endif\n   endif\n\n                                 // in FiveWin++ lValidating comes as nil sometimes\n   if ! Empty&#40; hCtlFocus &#41; &#46;and&#46; &#40; &#58;&#58;oWnd&#58;lValidating == nil &#46;or&#46; ! &#58;&#58;oWnd&#58;lValidating &#41; ;\n      &#46;and&#46; IsWindowVisible&#40; &#58;&#58;oWnd&#58;hWnd &#41; &#46;and&#46; WndParents&#40; hCtlFocus, &#58;&#58;hWnd &#41;\n      PostMessage&#40; &#58;&#58;hWnd, FM_LOSTFOCUS, hCtlFocus &#41;\n   endif\n\nreturn &#58;&#58;LostFocus&#40; hCtlFocus &#41;\n[/code:3c1b8km6]','',0,'AIA=','3c1b8km6',1,0,'',40,0,0),(6173,1474,6,45,0,'200.82.52.105',1138663930,1,0,1,1,1,0,'','Re: Diálogos con bitmaps de fondo y transparentes','[quote=&quot;Antonio Linares&quot;:m9zh6i57]Te gustan ? Los quieres para FW ?\n\nEjemplo construido con el próximo FWH 2.7 build de Febrero:\n\n[url=http&#58;//imageshack&#46;us:m9zh6i57][img:m9zh6i57]http&#58;//img227&#46;imageshack&#46;us/img227/1041/image15lv&#46;png[/img:m9zh6i57][/url:m9zh6i57][/quote:m9zh6i57]\n\nExcelente  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'mA==','m9zh6i57',1,0,'',45,0,0),(6174,1473,3,2,0,'87.218.146.29',1138664747,1,0,1,1,1,1,'','','James,\n\nyes. We have implemented a C function that does it automatically. No need to REDEFINE the SAYs.','',0,'mA==','123ghjmj',1,0,'',2,0,0),(6175,1474,6,2,0,'87.218.146.29',1138664853,1,0,1,1,1,1,'','','Jose Luis,\n\nEn ese ejemplo, los checkboxes no tienen texto. Pero funciona exactamente igual si los tienen.','',0,'mA==','j9749w9v',1,0,'',2,0,0),(6176,1473,3,303,0,'68.7.28.54',1138665333,1,0,1,1,1,0,'','','Good news, and congratulations on solving that!\n\nJames','',0,'mA==','3r7vkuo5',1,0,'',303,0,0),(6177,1472,2,228,0,'200.118.135.196',1138665372,1,0,1,1,1,1,'','No afecta','JMFS-D, no se que procesos estes corriendo y son muy pesados, pero dejame decirte que según mi experiencia la verdad no afecta mucho en manera que definas tus if(). IF;ELSE;ENDIF.\n\nPero por calidad de codigo. Lo haria con los codebloks.','',0,'mA==','n0yjdmlz',1,0,'',228,0,0),(6178,1473,3,49,0,'82.53.119.165',1138666865,1,0,1,1,1,0,'','','Dear Antonio, \nI hope you insert it on new release of fwh...\n\n...and for a dialog with folders','',0,'mA==','1imn4t3c',1,0,'',49,0,0),(6179,1483,1,379,0,'59.167.124.212',1138667212,1,0,1,1,1,0,'','2 questions','What are each of the parameters for [b:2n088zmh]ShellExecute[/b:2n088zmh] and with [b:2n088zmh]tImage[/b:2n088zmh] which uses nViewLib16 can you Zoom in and out.','',0,'QA==','2n088zmh',1,0,'',379,0,0),(6180,1484,3,49,0,'82.53.119.165',1138668077,1,0,1,1,1,0,'','Tplan32bit','I am working in order to implement one class on 32 bit\nFrom year 2000 I am trying to recreate the Tgant class \nIt is called Tplan\nto understand How it work I tried to modify the sample of Tgant class of Arthuro and I remake the sample .\nNow you can see that I have arrived to a sure result, \nthis my class is very near to the Tgant.\nI add also a tooltip command.\nthis class is very easy to use .\nYou can seee the my class working \nDownload this file :http://hyperupload.com/download/57f1f352/Tplan32bitforxharbour.zip.html\nBut there is still something that does not work well, \nyou you can select with the mouse on the left, in right but I do not Know How  create a diagram  on up and down ......\n\nBest Regards\nFalconi Silvio','',0,'QA==','1dmnbciy',1,0,'',49,0,0),(6181,1479,6,138,0,'201.133.73.175',1138668431,1,0,1,1,1,1,'','Re: Error Prueba de OCX','[quote=&quot;Jdangulo&quot;:rzog2uam]\n\n   RR:ReportDirectory =\"c:\\Program Files\\ReportWorks\\Sample\"\n   rr:ReportName      =\"Basic Columnar Report.rrw\"\n   rr:RunReport()\n\n\nJosé David Angulo[/quote:rzog2uam]\n\nEsta mal esta linea:\n\nRR:ReportDirectory =\"c:\\Program Files\\ReportWorks\\Sample\"\n\nLo qu esta haciendo aqui es comparar si la data ::reportDirectory es \"C:\\program files....\" lo cual no es cierto porque no existe.\n\nRecuerda que el operador de comparacion es \"=\" y el de asignacion es \":=\", aunque en algunos casos, sobre todo con variables normales las asignaciones con \"=\" funcionan, no creo que sea igual con los objetos.','',0,'gA==','rzog2uam',1,0,'',138,0,0),(6182,1473,3,2,0,'87.218.146.29',1138668727,1,0,1,1,1,1,'','','Work in progress...\n\n[url=http&#58;//imageshack&#46;us:1gjilzla][img:1gjilzla]http&#58;//img212&#46;imageshack&#46;us/img212/8904/image14gm&#46;png[/img:1gjilzla][/url:1gjilzla]','',0,'GA==','1gjilzla',1,0,'',2,0,0),(6183,1474,6,2,0,'87.218.146.29',1138668817,1,0,1,1,1,1,'','','Trabajo en progreso...\n\n[url=http&#58;//imageshack&#46;us:3vuurir9][img:3vuurir9]http&#58;//img212&#46;imageshack&#46;us/img212/8904/image14gm&#46;png[/img:3vuurir9][/url:3vuurir9]','',0,'GA==','3vuurir9',1,0,'',2,0,0),(6184,1473,3,49,0,'82.53.119.165',1138669077,1,0,1,1,1,0,'','','gooooood mr guru Antonio','',0,'GA==','nl4titzq',1,0,'',49,0,0),(6185,1482,2,138,0,'201.133.73.175',1138669090,1,0,1,1,1,1,'','','Ten en cuenta que estas usando una version de FW tremendamente vieja, que tiene por lo menos 3 años.\n\nTambien comprende que las personas que colaboran en este foro no estan aqui todo el dia esperando nada mas a que hora aparece una duda para resolverla inmediatamente, atendemos cuando tenemos tiempo y humor de hacerlo.\n\nTen en cuenta que hay diferencia de horario, que cuanod en CD. de Mexico son las 12 del dia, en España son las 7 de la noche y todo el mundo ya se ha retirado de trabajar, y lo mismo al reves, cuando en España son las 12 deldia, en Mexico son las 5 am y nadie (o casi nadie) esta detras de su computadora.','',0,'GA==','1dednpwq',1,0,'',138,0,0),(6186,1485,22,37,0,'200.121.244.79',1138670673,1,0,1,1,1,0,'','Sobre Fwh-27 Version 64 Bits','Antonio, este fin de semana recibo una maquina con procesador de 64Bits, y le pienso instalar tambien el Windows de 64 Bits, hoy al probar instalar el FW 2.7 que tengo, que es el ultimo release de febrero, cuando instalo el de 64 Bits dice Mayo del 2005 pero cuando instalo el FWH dice enero del 2006, puedes por favor informarme como obtengo el equivalente para 64 bits de la ultima release.\nGracias\n\nEnrrique Vertiz','',0,'GA==','amsp8wvc',1,0,'',37,0,0),(6187,1470,7,95,0,'201.129.161.14',1138673633,1,0,1,1,1,0,'','','Estimado Antonio\n\nExcelente, lo unico es que no me funciona en my MC3000 de Symbol.\n\nMe manda error : TPROGRESS .. Window Creation Error.\n\nCreo que es por las lineas que incluyo :\n\n* Funciones que no corren en Symbol MC3000\nFUNCTION cesetmenu() ; RETURN NIL\nFUNCTION getmenu() ; RETURN NIL\nFUNCTION readbitmap() ; RETURN NIL\nFUNCTION palbmpread() ; RETURN NIL\n\n\nPor cierto Antonio, aun me crea una ventana de modo consola al inicio de cualquier app, Has visto algo para evitar esto ?\n\nSaludos\nOsvaldo Ramire','',0,'GA==','uistywz6',1,0,'',95,0,0),(6188,1483,1,6,0,'82.61.144.204',1138694312,1,0,1,1,1,1,'','Re: 2 questions','[quote=&quot;grumpy&quot;:6481jawf]What are each of the parameters for [b:6481jawf]ShellExecute[/b:6481jawf][/quote:6481jawf]\n\nFrom the MSDN:\n\n[quote:6481jawf]ShellExecute\nPerforms an operation on a specified file. \n\n\n\nHINSTANCE ShellExecute(\n    HWND hwnd, \n    LPCTSTR lpOperation,\n    LPCTSTR lpFile, \n    LPCTSTR lpParameters, \n    LPCTSTR lpDirectory,\n    INT nShowCmd\n);\n\nParameters\nhwnd \n[in] Handle to a parent window. This window receives any message boxes that an application produces, such as error reporting. \nlpOperation \n[in] Pointer to a null-terminated string, referred to in this case as a verb, that specifies the action to be performed. The set of available verbs depends on the particular file or folder. Generally, the actions available from an object\'s shortcut menu are available verbs. For more information about verbs and their availability, see Object Verbs. See Extending Shortcut Menus for further discussion of shortcut menus. The following verbs are commonly used. \n\nVerb Description \nedit  Launches an editor and opens the document for editing. If lpFile is not a document file, the function will fail. \nexplore Explores the folder specified by lpFile.  \nfind Initiates a search starting from the specified directory. \nopen  Opens the file specified by the lpFile parameter. The file can be an executable file, a document file, or a folder. \nprint  Prints the document file specified by lpFile. If lpFile is not a document file, the function will fail. \n\nIf you set this parameter to NULL:\n\nFor systems prior to Microsoft® Windows® 2000, the default verb is used if it is valid and available in the registry. If not, the \"open\" verb is used. \nFor Windows 2000 and later systems, the default verb is used if available. If not, the \"open\" verb is used. If neither verb is available, the system uses the first verb listed in the registry. \nlpFile \n[in] Pointer to a null-terminated string that specifies the file or object on which to execute the specified verb. To specify a Shell namespace object, pass the fully-qualified parse name. Note that not all verbs are supported on all objects. For example, not all document types support the \"print\" verb. \nlpParameters \n[in] If the lpFile parameter specifies an executable file, lpParameters is a pointer to a null-terminated string that specifies the parameters to be passed to the application. The format of this string is determined by the verb that is to be invoked. If lpFile specifies a document file, lpParameters should be NULL. \nlpDirectory \n[in] Pointer to a null-terminated string that specifies the default directory. \nnShowCmd \n[in] Flags that specify how an application is to be displayed when it is opened. If lpFile specifies a document file, the flag is simply passed to the associated application. It is up to the application to decide how to handle it. \n\nSW_HIDE  Hides the window and activates another window. \nSW_MAXIMIZE  Maximizes the specified window. \nSW_MINIMIZE  Minimizes the specified window and activates the next top-level window in the z-order. \nSW_RESTORE  Activates and displays the window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when restoring a minimized window. \nSW_SHOW  Activates the window and displays it in its current size and position.  \nSW_SHOWDEFAULT  Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window. \nSW_SHOWMAXIMIZED  Activates the window and displays it as a maximized window. \nSW_SHOWMINIMIZED  Activates the window and displays it as a minimized window. \nSW_SHOWMINNOACTIVE  Displays the window as a minimized window. The active window remains active. \nSW_SHOWNA  Displays the window in its current state. The active window remains active. \nSW_SHOWNOACTIVATE  Displays a window in its most recent size and position. The active window remains active. \nSW_SHOWNORMAL  Activates and displays a window. If the window is minimized or maximized, Windows restores it to its original size and position. An application should specify this flag when displaying the window for the first time. \n\nReturn Values\nReturns a value greater than 32 if successful, or an error value that is less than or equal to 32 otherwise. The following table lists the error values. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Microsoft® Windows® applications. It is not a true HINSTANCE, however. The only thing that can be done with the returned HINSTANCE is to cast it to an integer and compare it with the value 32 or one of the error codes below.\n\n0  The operating system is out of memory or resources. \nERROR_FILE_NOT_FOUND  The specified file was not found. \nERROR_PATH_NOT_FOUND  The specified path was not found. \nERROR_BAD_FORMAT  The .exe file is invalid (non-Win32® .exe or error in .exe image). \nSE_ERR_ACCESSDENIED  The operating system denied access to the specified file.  \nSE_ERR_ASSOCINCOMPLETE  The file name association is incomplete or invalid. \nSE_ERR_DDEBUSY  The DDE transaction could not be completed because other DDE transactions were being processed. \nSE_ERR_DDEFAIL  The DDE transaction failed. \nSE_ERR_DDETIMEOUT  The DDE transaction could not be completed because the request timed out. \nSE_ERR_DLLNOTFOUND  The specified dynamic-link library was not found.  \nSE_ERR_FNF  The specified file was not found.  \nSE_ERR_NOASSOC  There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable. \nSE_ERR_OOM  There was not enough memory to complete the operation. \nSE_ERR_PNF  The specified path was not found. \nSE_ERR_SHARE  A sharing violation occurred. \n\nRemarks\nThis method allows you to execute any commands in a folder\'s shortcut menu or stored in the registry. \n\nTo open a folder, use either of the following calls: \n\nShellExecute(handle, NULL, path_to_folder, NULL, NULL, SW_SHOWNORMAL);\n\nor \n\nShellExecute(handle, \"open\", path_to_folder, NULL, NULL, SW_SHOWNORMAL);\n\nTo explore a folder, use: \n\nShellExecute(handle, \"explore\", path_to_folder, NULL, NULL, SW_SHOWNORMAL);\n\nTo launch the Shell\'s Find utility for a directory, use:\n\nShellExecute(handle, \"find\", path_to_folder, NULL, NULL, 0);\n\nIf lpOperation is NULL, the function opens the file specified by lpFile. If lpOperation is \"open\" or \"explore\", the function will attempt to open or explore the folder. \n\nTo obtain information about the application that is launched as a result of calling ShellExecute, use ShellExecuteEx. \n\nWindows 95/98/Me: ShellExecute is supported by the Microsoft Layer for Unicode. To use this, you must add certain files to your application, as outlined in Microsoft Layer for Unicode on Windows 95/98/Me Systems.\n\nSee Also\nIShellExecuteHook\n\nRequirements \n  Windows NT/2000: Requires Windows NT 3.1 or later. \n  Windows 95/98/Me: Requires Windows 95 or later. \n  Header: Declared in Shellapi.h. \n  Import Library: Shell32.lib.[/quote:6481jawf]\n\n[quote=&quot;grumpy&quot;:6481jawf]and with [b:6481jawf]tImage[/b:6481jawf] which uses nViewLib16 can you Zoom in and out.[/quote:6481jawf]\n\nTry using TImage:Zoom() method.\n\nEMG','',0,'wA==','6481jawf',1,0,'',6,0,0),(6189,1470,7,2,0,'87.218.146.76',1138694519,1,0,1,1,1,1,'','','Osvaldo,\n\nHas visto si alguna otra aplicación de las que vienen en el sistema operativo usa barras de progreso ?\n\nEn cuanto al problema de la ventana inicial, hemos buscado en google y encontramos otros usuarios que comentaban el mismo problema con otros lenguajes de programación. Por lo visto es algo específico de esa PDA. De todas formas a ver si encontramos alguna solución.','',0,'wA==','3g8cpm6i',1,0,'',2,0,0),(6190,1474,6,123,0,'81.39.239.66',1138696334,1,0,1,1,1,0,'','','Antonio,\n\nEstás imparable!!\n\nSaludos,\nJosé Luis Capel','',0,'wA==','14evublv',1,0,'',123,0,0),(6191,1483,1,379,0,'59.167.124.212',1138698748,1,0,1,1,1,0,'','','Thank you for the detail on Shellexecute.  Much Appreciated.  As to tImage:Zoom there is no such method in the class?\n\ntBitMap has zoom which tImage is inherited from, so how does one use it.\n\nCheers\nGerry','',0,'wA==','2vs6qeyv',1,0,'',379,0,0),(6192,1483,1,2,0,'87.218.146.193',1138701650,1,0,1,1,1,1,'','','Gerry,\n\nYou have a working sample in samples\\TestBmp1.prg','',0,'wA==','6mrt8px0',1,0,'',2,0,0),(6193,1486,3,67,0,'62.235.26.98',1138702961,1,0,1,1,1,0,'','Error (6) deleting enhanced metefile','Hello\n\nI know , it is not the first time it is asked , but when i do a search , all intresting posts are in spanish , so who can give a solution in ENGLISH ?\n\nFrank','',0,'wA==','hkk0n2is',1,0,'',67,0,0),(6194,1483,1,379,0,'59.167.124.212',1138704539,1,0,1,1,1,0,'','','I am sorry I do not understand I am using tImage not tBitmap I understand tImage is inherited from tBitmap but the command oImage:Zoom(2) has no effect.  I am refreshing the image.  How can one use a class command that isn\'t within the class but the class it was inherited from?','',0,'wA==','3cpovmgv',1,0,'',379,0,0),(6195,1486,3,2,0,'87.218.146.193',1138704686,1,0,1,1,1,1,'','','Frank,\n\nPlease check that you are not calling ENDPAGE twice.','',0,'wA==','26lip8dh',1,0,'',2,0,0),(6196,1483,1,2,0,'87.218.146.193',1138704918,1,0,1,1,1,1,'','','Gerry,\n\nYou may change BITMAP into IMAGE in samples\\TestBmp1.prg and the sample workd ok too.\n\nIt properly zooms in and out. You have to call oImage:Refresh() after setting its new zoom value.','',0,'wA==','2oyd2jv9',1,0,'',2,0,0),(6197,1486,3,67,0,'62.235.26.98',1138706203,1,0,1,1,1,0,'','','Antonio\n\nCan we test that calling ENDPAGE is needed or not ?\n\nI suppose that when it is called , the EMF-file from this page is deleted , so if it not exist , ENDPAGE should not be called.\n\nHow do we know the name from the current emf-file page ?\n\nFrank','',0,'wA==','196exmxp',1,0,'',67,0,0),(6198,1104,2,265,0,'80.58.18.235',1138707597,1,0,1,1,1,0,'','','Como veo que nadie me responde, os hago otra pregunta relacionada con éste tema.\n\nEn las versiones de AdobePdf desde la 6 en adelante, no funciona el manejo de registro para imprimir directamente con un nombre/ubicación.\n\nSiguiendo instrucciones de un compañero del foro que así me lo aconsejó, he instalado la impresora pdf cutepdf, pero que orden de registro de windows o .ini pertinente hace lo que se podía hacer anteriormente con versiones de Adobe anteriores a la 6 ?\n\nA ver si ahora tengo más suerte.\n\nMucha gracias\n\nJose Luis','',0,'wA==','6bl0hc2w',1,0,'',265,0,0),(6199,1487,6,362,0,'200.168.52.156',1138708532,1,0,1,1,1,1,'','Windows Média Player','// a sample managing a Delphi DLL from FiveWin!\n\n#include \"fivewin.ch\"\n\nFUNCTION Main()\n\n     LOCAL oWnd\n\n     DEFINE WINDOW oWnd TITLE \"FiveWin - Delphi DLL connection\"\n\n     @ 2, 2 SAY \"Click me to run the CdPlayer\"\n\n     ACTIVATE WINDOW oWnd ON CLICK CdPlay()\n\n\nRETURN NIL\n\nDLL FUNCTION CdPlay() AS VOID PASCAL LIB \"cdplayer.dll\"\n\n\nAntonio, Porque Esto no Funciona Mas en 32 Bits?? O ke Hacer? Gracias, Saludos.','',0,'wA==','3oyji3xj',1,0,'',362,0,0),(6200,1483,1,379,0,'59.167.124.212',1138708692,1,0,1,1,1,0,'','','Antonio, I am sorry but I dont understand.  I am loading the file and displaying it in a REDEFINE IMAGE should I first load it then convert to bitmap somehow and then use REDEFINE BITMAP instead.\n\nConfused.\n\nGerry\n\nP.S. Thanks for the speedy replies','',0,'wA==','sec18mot',1,0,'',379,0,0),(6201,1488,3,67,0,'62.235.26.98',1138710875,1,0,1,1,1,0,'','Testrich.prg : print rtf-file','Hello,\n\nI am the intention to use Rich edit class .\n\nTesting with Testrich.prg , i changed \n\n  REDEFINE BUTTON ID 998 ACTION oRich:Print(\"Bakker\")//MsgInfo( GetClassName( oRich:hWnd ) )\n\n\nBut the program doesn\'t answer anymore.\n\nCan we print a oRich object ?','',0,'wA==','scfifwyr',1,0,'',67,0,0),(6202,1488,3,49,0,'213.82.134.66',1138712496,1,0,1,1,1,0,'','','someone, I do not remember, sent me richpad .\nin it application there is the class rtf and a rtfpreview\nit print very well but i have compiled it and i not try with xharbour.\n\nCan you to antonio if i can pubblish these files because one of authors is linares ( i saw on rtfpreview and richpad his name)\n\nregards\nfalconi silvio','',0,'wA==','3k646zj2',1,0,'',49,0,0),(6203,1489,20,49,0,'213.82.134.66',1138712756,1,0,1,1,1,0,'','rich3d20.dll','è possibile sapere dove andare a vedere tute le funzioni che questa dll supporta? per esempio potrebbe creare i paragrafi come in word ?\ne le tabelle le puo\' creare ?\n\nsilvio','',0,'wA==','16vb1nld',1,0,'',49,0,0),(6204,1490,7,428,0,'200.55.19.126',1138714561,1,0,1,1,1,0,'','ventana con barras de desplazamiento','Hola,\nNecesito mostrar un archivo BMP en una Window, pero el archivo BMP es mayor al tamano de la window, necesitaria que mediante barras de desplazamiento pueda ver distintas partes de la imagen.\nAlguien podria indicarme como lograr esto con FWPPC ?\n\nSaludos\nMiguel','',0,'wA==','1plr6tno',1,0,'',428,0,0),(6205,1491,6,391,0,'201.221.140.82',1138717068,1,0,1,1,1,1,'','Cambiar el foco de un control al iniciar un dialogo','Esotoy empezando a trabajar con cajas de dialogo y por la funcionalidad y agilidad de la captura en un sistema de facturacion necesito controlar que un get en especial ubicado en una posicion intermedia tome el control o foco. He usado el oGetArt:SetFocus() despues del ultimo control definido, pero no funciona.\n\nMuchas Gracias.','',0,'wA==','22kb1vk5',1,0,'',391,0,0),(6206,1492,6,28,0,'213.27.201.254',1138717973,1,0,1,1,1,0,'','EditLabel','Hola.\n\n¿Alguien ha conseguido editar un label de un TreeView en Fivewin?\n\nUn saludo','',0,'wA==','2c7lon8e',1,0,'',28,0,0),(6207,1489,20,6,0,'82.61.144.204',1138718125,1,0,1,1,1,1,'','Re: rich3d20.dll','Sulla MSDN alla voce \"Rich Edit Control Reference\".\n\nEMG','',0,'wA==','2lepbmxu',1,0,'',6,0,0),(6208,1490,7,28,0,'213.27.201.254',1138718282,1,0,1,1,1,0,'','','Crea un control Bitmap. \n\nSi estas haciendolo desde recursos, el preprocesado tiene una cláusula SCROLL que lo hace todo sino, prueba hacer\n\n\nDEFINE WINDOW\n\n@ 0, 0 BITMAP obmp ....\n\noBmp:lScroll := .t.\n\noBmp:Default()\n\nACTIVATE WINDOW ....\n\n\nCreo que eso debería funcionar aunque no lo he probado.\n\nUn saludo','',0,'wA==','l9tkdkod',1,0,'',28,0,0),(6209,1469,7,28,0,'213.27.201.254',1138718406,1,0,1,1,1,0,'','','Hola, \n\nSi no recuerdo mal se utilizaba GetSysMetrics(0) y (1)\n\nSupongo que funcionará igual que en su hermano mayor.\n\nUn saludo','',0,'wA==','i2iod5xz',1,0,'',28,0,0),(6210,1489,20,1,0,'213.82.134.66',1138718791,1,0,1,1,1,0,'','','grazie...\nio avrei coem gia detto anche un altro file rtfpreview.prg ma non so se linares vuole che lo dico oppure lo posso pubblicare e dare agli altri che faccio ? Non mi ricordo chi me lo ha dato anni addietro... e dato che linares è uno degli autori non so se faccio bene a farlo scaricare anche agli altri dato che lui stesso non l\'ha inserito nelle fw o meglio nelle nuove librerie 2.7 non so se l\'ha inserito, perchè non ce le ho, mi dai conferma se c\'è queta classe  ?\n\nsilvio','',0,'wA==','b3m20020',1,0,'',1,0,0),(6211,1491,6,362,0,'200.168.52.156',1138719182,1,0,1,1,1,1,'','','USE EL XSETFOCUS().\n\nxSetFocus( oObejto )\n\no\n\nACTIVATE DIALOG...\nON INIT( xSetFocus( oObjeto ) )','',0,'wA==','1b4wspaj',1,0,'',362,0,0),(6212,1489,20,6,0,'82.61.144.204',1138719348,1,0,1,1,1,1,'','','No, non c\'è. Ti conviene chiedere direttamente ad Antonio.\n\nEMG','',0,'wA==','3g6hb8af',1,0,'',6,0,0),(6213,1469,7,123,0,'81.39.239.66',1138720661,1,0,1,1,1,0,'','','Paco,\n\nGracias!! Así es.\n\nSaludos,\nJosé Luis Capel','',0,'wA==','3af3hfh5',1,0,'',123,0,0),(6214,1487,6,2,0,'87.218.146.243',1138721514,1,0,1,1,1,1,'','','João,\n\ncdplayer.dll es una DLL de 16 bits. Habría que conseguir la equivalente en 32 bits.','',0,'wA==','2wu924ui',1,0,'',2,0,0),(6215,1491,6,2,0,'87.218.146.243',1138721658,1,0,1,1,1,1,'','','[code:1uvs104m]\nACTIVATE DIALOG&#46;&#46;&#46; \n   ON INIT &#40; oControl&#58;SetFocus&#40;&#41;, &#46;f&#46; &#41;\n[/code:1uvs104m]\n\ndonde oControl es el control al que quieres darle el foco. Ojo, es importante devolver .F., para indicarle a Windows que no le de foco al control por defecto.','',0,'AIA=','1uvs104m',1,0,'',2,0,0),(6216,1486,3,2,0,'87.218.146.243',1138721803,1,0,1,1,1,1,'','','Frank,\n\nENDPAGE should be called for each call to PAGE:\n\n[code:k7e3sz4x]\nPAGE\n   &#46;&#46;&#46;\nENDPAGE\n[/code:k7e3sz4x]','',0,'AIA=','k7e3sz4x',1,0,'',2,0,0),(6217,1475,3,148,0,'196.205.176.44',1138722052,1,0,1,1,1,0,'','','I am using non-resources in my program . All bouttons,says,gets inside the source . I actually noticed that the program is Ok in PC and in another it failed to create source dialogs .\nI noticed if I reduced the number of gets it works fine and successfully creates the dialog within the source .','',0,'AIA=','981sh45q',1,0,'',148,0,0),(6218,1475,3,6,0,'82.61.144.204',1138722438,1,0,1,1,1,1,'','','What I meant was: if you have in your source code\n\nDEFINE FONT oFont ...\n\ncheck that there is\n\nRELEASE FONT oFont\n\nor\n\noFont:End()\n\ntoo and similar.\n\nEMG','',0,'AIA=','2317vlfi',1,0,'',6,0,0),(6219,1493,3,148,0,'196.205.176.44',1138722796,1,0,1,1,1,0,'','Filter Building','I have written a routine in clipper that built the condition of set  filter from several variables combaring them with fields values .\nI tired to do the same in FW using the results of combo box but the program only accepts one value when I choose on value from one box . I need to choose many choices from many boxes to build my condition in set filter .','',0,'AIA=','121eyxxz',1,0,'',148,0,0),(6220,1478,6,43,0,'201.127.21.225',1138722837,1,0,1,1,1,0,'','','por lo visto solo fue un mal ejemplo de fwh..  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSaludos\n\n  Marco A. Delgado.','',0,'AIA=','18gh9xh5',1,0,'',43,0,0),(6221,1487,6,362,0,'200.168.52.156',1138723409,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:27q3tfcv]João,\n\ncdplayer.dll es una DLL de 16 bits. Habría que conseguir la equivalente en 32 bits.[/quote:27q3tfcv]\n\n\nGracias Antonio, Por Favor, donde Puedo Encuentrar CdPlayer.Dll Para 32 bits? O no és Posible?','',0,'gA==','27q3tfcv',1,0,'',362,0,0),(6222,1494,3,191,0,'80.25.62.218',1138723836,1,0,1,1,1,1,'','Es posible compilar con PellesC','Es posible compilar con PellesC ?','',0,'gA==','39jf3ddf',1,0,'',191,0,0),(6223,1495,6,292,0,'200.109.166.27',1138723933,1,0,1,1,1,1,'','Impresora Fiscal','Colegas,\n\nNecesito conectarme con impresora Fiscal BMC Fiscal Modelo CAMEL.\nAgradezco cualquier código que me puedan enviar.','',0,'gA==','1tir9uff',1,0,'',292,0,0),(6224,1104,2,138,0,'201.133.73.175',1138725994,1,0,1,1,1,1,'','','(x)Harbour tiene una clase para generar directamente archivos PDF sin necesidad de drivers de impresora de ni nada, esta en las contribuciones y se llama PDFLib... Obvio, solo para 32 bits.','',0,'gA==','rdg4w1dx',1,0,'',138,0,0),(6225,1496,3,109,0,'200.77.28.251',1138726038,1,0,1,1,1,0,'','O. T. Vista Indizadas SQL Server 2000','Perdon por el O.T., pero si alguien me puede ayudar con lo siguiente:\n\n Necesito hacer busquedas por \"apellidos\" de cliente en una VISTA Indizada de SQL Server\n\n  Esto porque los DATOS DEL DOMICILIO DEL CLIENTE. los tengo en otra tabla, entonces genero mi vista con las tablas \"CLIENTES\" y \"DOMICILIOS\". En la Vista solo extraigo los campos necesarios para la consulta.\n\n  Tengo generada la vista, pero SQL exige QUE PRIMERO se genere un indice PRIMARIO,Ok, lo genero con el  campo \"Codigo\".\n\n   Despues genero un indice por el CAMPO APELLIDOS, pero al hacer la consulta con la clausla \"SELECT * From vPacDomi WITH (INDEX(IX_VPacDomi)).........\"indice de apellidos, TDBODBCD me envia el siguente error:\n\n   \"Las sugerencias de indices para la vista \'vpacdomi\' no se tendran en cuenta\"\n\n   Les comento que por ahora estoy utilizando TDBODBCD, y por el momento, no me es posible cambiar a TOLEAUTO.\n\n   FWH 2.7/HARBOUR\n\n\nGracias por su ayuda.','',0,'gA==','ggtgj08u',1,0,'',109,0,0),(6226,1434,6,123,0,'81.39.239.66',1138726327,1,0,1,1,1,0,'','','Ronaldo,\n\n¿Donde tienes el cursor?  ¿¿Que valor tiene CursorLocation del objeto Connection??\n\nSaludos,\nJosé Luis Capel','',0,'gA==','3x7o56gp',1,0,'',123,0,0),(6227,1497,3,26,0,'193.95.231.6',1138727508,1,0,1,1,1,1,'','hbzip.lib ziparchive.lib for Harbour (Microsoft flavour)','Hello!\n\nDoes anybody have hbzip.lib compiled and linked\nwith Microsoft C/C++ for use with Harbour+FWH???\n\nIs there any other solution for handling ZIP files\nin Harbour/Fivewin?\n\nThanks, Roman','',0,'gA==','nou45x28',1,0,'',26,0,0),(6228,1494,3,2,0,'87.218.146.243',1138727849,1,0,1,1,1,1,'','','Miguel,\n\nPelles C es el compilador (y librerías) que usa el xharbour builder. Genera ficheros OBJ formato COFF que son compatibles con los que crea Microsoft VC, por lo que puedes usar las librerías de FWH para Microsoft.','',0,'gA==','1xjltw7m',1,0,'',2,0,0),(6229,1475,3,2,0,'87.218.146.243',1138728005,1,0,1,1,1,1,'','','Ehab,\n\nThats a FW for Clipper (16 bits) known issue. You have to increase the heapsize value in your Blinker LNK file. Increase it in 500 bytes steps until there is no error.','',0,'gA==','1yshk035',1,0,'',2,0,0),(6230,1486,3,138,0,'201.133.73.175',1138728411,1,0,1,1,1,1,'','','Frank:\n\n\n[quote=&quot;Frank Demont&quot;:17uk2d4r]Antonio\n\nI suppose that when it is called , the EMF-file from this page is deleted , so if it not exist , ENDPAGE should not be called.\n[/quote:17uk2d4r]\n\nNo way !!!!!, You have to understand a little how the FW printing system works:\n\nWhen you do a PRINTER oPrn...... what are you doing is to retrieve all the printing data from the default printer driver or from another printer if you choosed FROM USER or directly used the TO \"printer name\" statements.\n\nAll these data (resolution, paper size, number of bins, etc) is now stored in the printer object.\n\nWhen you performe a \"PAGE\" command, you are allocating a space IN MEMORY where you will be able of \"drawing\", these draws will be the oPrn:Say() or the oPrn:InchSay() or whatever. Once you have finished drawing in memory, the ENDPAGE command will write that memory space in EMF or WMF file, now you can do another new PAGE command of simply finish the printing session with and ENDPRINT command. You have to perform a PAGE...ENDPAGE operation for every single page in your report.\n\nWhen you reach the ENDPRINT command, and if you specified the PREVIEW clause in the printer command, the preview window will be launched and you will be able to see all the files written by the print command, when the PREVIEW window is running, you can also send these files to the printer and once the preview window is closed all the report files are automatically erased.\n\nIf you didn\'t specified the PREVIEW clause, the EMFs or WMFs will be send to the printer and after that they will be erased.\n\nSo, you never have control over the EMF/WMF file erasing process.','',0,'gA==','17uk2d4r',1,0,'',138,0,0),(6231,1497,3,138,0,'201.133.73.175',1138728531,1,0,1,1,1,1,'','','You mean Harbour or (x)Harbour ?, \n\nIf is (x)Harbour you can download the files from the <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w --> section contributions.','',0,'gA==','2w3dcfqh',1,0,'',138,0,0),(6232,1434,6,138,0,'201.133.73.175',1138728652,1,0,1,1,1,1,'','','No uses objetos CONNECTION para ejecutar el query, los objetos CONNECTION regresan un cursor forward que no puede recuperar los valores que necesitas.\n\nCrea un objeto Connection, luego un objeto Command y eso te devolvera el RecordSet que necesitas.','',0,'gA==','3ll01pl5',1,0,'',138,0,0),(6234,1494,3,191,0,'80.25.62.218',1138729086,1,0,1,1,1,1,'','','He compilado xharbour con PellesC\n\ny cuando intento enlazar nuestra aplicacion usando las libs de Five para\nmicrosoft me da errores como el siguiente:\n\nPOLINK: error: Unresolved external symbol \'_HB_FUN_GETMODULEFILENAME\'.\nPOLINK: error: Unresolved external symbol \'_HB_FUN_SETRESDEBUG\'.\nPOLINK: error: Unresolved external symbol \'_HB_FUN_CHECKRES\'.\nPOLINK: error: Unresolved external symbol \'_HB_FUN_HELPINDEX\'.\nPOLINK: error: Unresolved external symbol \'_HB_FUN_WINHELP\'.\n\nenlazo con:\n\nPELLESC_LINK_FLAGS   = /LIBPATH:\"$(PELLESC_LIB_DIR)\" /LIBPATH:\"$(PELLESC_LIB_DIR)\\WIN\" /MACHINE:IX86 /SUBSYSTEM:WINDOWS /force:multiple\n\ncompilo con:\n\nPELLESC_COMP_FLAGS  = /Ze /Go /Tx86-coff /Ot /I\"$(HARBOUR_INCLUDE_DIR)\" /I\"$(PELLESC_INCLUDE_DIR)\" /I\"$(PELLESC_INCLUDE_DIR)\\WIN\" /D\"__WIN32__\" /D\"HB_OS_WIN_32\" /D\"__FLAT__\"\n\nno consigo encontrar el problema <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','1kh4bxzu',1,0,'',191,0,0),(6235,1497,3,2,0,'87.218.146.243',1138729672,1,0,1,1,1,1,'','','Roman,\n\nYou may download the xHB demo, install it and at the LIB directory there is a xHBZIP.lib that you may use with Microsoft as the xharbour CVS zip files for Microsoft are broken.\n\nPlease let us know if it works for you. Thanks.','',0,'gA==','3qm8ttui',1,1138816435,'',2,1,0),(6236,1494,3,2,0,'87.218.146.243',1138730005,1,0,1,1,1,1,'','','Miguel Angel,\n\nTienes que usar el flag del compilador de PellesC para que compile en modo C++, no en modo C.','',0,'gA==','3amo8pxb',1,0,'',2,0,0),(6237,1488,3,2,0,'87.218.146.243',1138730278,1,0,1,1,1,1,'','','Frank,\n\nPlease review samples\\TestRtf.prg for a full working richedit demo, including printing.','',0,'gA==','1nzyi15y',1,0,'',2,0,0),(6238,1493,3,2,0,'87.218.146.243',1138730368,1,0,1,1,1,1,'','','Ehab,\n\nYou may use several comboboxes.','',0,'gA==','1hrwb6b0',1,0,'',2,0,0),(6239,1487,6,2,0,'87.218.146.243',1138730655,1,0,1,1,1,1,'','','João,\n\nPuedes usar el OCX del Microsoft Media Player. Revisa el ejemplo samples\\media.prg','',0,'gA==','47tkmos3',1,0,'',2,0,0),(6240,1482,2,2,0,'87.218.146.243',1138730782,1,0,1,1,1,1,'','','Luis,\n\nA que error te refieres ? Por favor indica un ejemplo que reproduzca el problema para que podamos ayudarte.','',0,'gA==','wksotrd8',1,0,'',2,0,0),(6241,1478,6,2,0,'87.218.146.243',1138730978,1,0,1,1,1,1,'','','Marco,\n\nTienes razón. \n\nEliminado. Discúlpanos.','',0,'gA==','n2v91xef',1,0,'',2,0,0),(6242,1434,6,123,0,'81.39.239.66',1138731243,1,0,1,1,1,0,'','','René,\n\n[quote:37sla978]No uses objetos CONNECTION para ejecutar el query, los objetos CONNECTION regresan un cursor forward que no puede recuperar los valores que necesitas.[/quote:37sla978]\n\nNo es exactamente como tu dices.  El método execute del objeto Connection devuelve siempre un recordset del tipo y localización que has indicado en la creación del objeto Connection (y si no se indican, se utilizan los valores por defecto).\n\n[quote:37sla978]Crea un objeto Connection, luego un objeto Command y eso te devolvera el RecordSet que necesitas.[/quote:37sla978]\n\nTampoco es exactamente así.  Si vas a trabajar con resultados de datos (filas y columnas) es preferible siempre utilizar el objeto Recordset y reservar el objeto Command para llamadas a procedimientos almacenados y otras funciones de servidor.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','37sla978',1,0,'',123,0,0),(6243,1476,20,29,0,'87.7.230.70',1138732723,1,0,1,1,1,0,'','','Questo problema si verifica generalmente a causa di possibili bug di programmazione (magari in talune circostanze non \"chiudi\" la pagina oppure apri più volte una nuova pagina o ancora non chiudi la stampa) oppure a causa di problemi di stampa (finisce la carta o si verifica un errore irreversibile di stampa). In questi casi il file wmf può rimanere aperto e quando crei una nuova stampa, poiché il nome del file wmf viene generato con una numerazione progressiva, se il file già esiste ed è aperto, non potrà essere sovrascritto dalla nuova stampa ed è per questo motivo che ti appare sempre la pagina stampata in precedenza.\n\nIo ho risolto definitivamente questo problema modificando la classe nella quale viene generato il nome wmf (non ricordo se printer.prg o tmetafil.prg). \n\n1) Faccio generare i file wmf in una cartella TMP che ho creato nella mia applicazione. Questo perché Antonio crea i file wmf nella cartella dei file temporanei di Windows che però in caso di accesso al sistema diverso da Administrator può creare alcuni problemi nella creazione dei file.\n\n2) Quando creo una stampa cancello prima tutti i wmf della cartella TMP e comunque quando genero il nome, verifico prima che non sia già presente un file con lo stesso nome altrimenti passo alla numerazione successiva.\n\nSaluti\n\nMarco','',0,'gA==','1fm7ohgs',1,0,'',29,0,0),(6244,1401,5,421,0,'204.83.50.141',1138733450,1,0,1,1,1,0,'','','So when do you think I will be able to download version 1.9? Could you maybe update my download page for me?','',0,'gA==','j5r6tuzc',1,0,'',421,0,0),(6245,1487,6,362,0,'200.168.52.156',1138733741,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1otxh91m]João,\n\nPuedes usar el OCX del Microsoft Media Player. Revisa el ejemplo samples\\media.prg[/quote:1otxh91m]\n\n\nGracias Antonio, Pero no és lo ke jo kiero, asi, me trae el Windows Media Player Standard del Windows.\n\nJo kiero el Windows Media Player Completo. Mismo asi, Gracias.\n\nLo resolvi asi:\n\n\n              SEPARATOR\n              MENUITEM \"CDPlay - Entretenimentos \"                            ;\n                  RESOURCE \"COMPUTADOR\"                                       ;\n                  ACTION( ( Click(), oTimer:DeActivate(),                     ;\n                  WinExec(\"C:\\Arquivos de Programas\\Windows Media Player\\wmplayer.exe\" ) ), ;\n                                     oTimer:Activate() )                      ;\n                  MESSAGE ( \"Chamar o Windows Media Player \" )  +             ;\n                          ( \"Para Tocar Suas Musicas Favoritas e Videos.\" )\n\nGracias Por tu Atencion Antonio. Saludos.','',0,'gA==','1otxh91m',1,0,'',362,0,0),(6246,1499,2,375,0,'84.122.118.216',1138733808,1,0,1,1,1,1,'','Eventos Similares','Llevo poco tiempo programando en FW 2.3. Antes lo hacía con el 2.0, y en esta versión (supongo que en las siguientes también) están los nuevos eventos OnKeyDown, OnClick, OnMouseMove y OnResize. \n¿En que se diferencian con los clásicos bKeyDown, bLButtonUp, bMMoved y bResized respectivamente?\nPor si acaso los he incorporado a mis clases, por si las moscas, pero no he notado nada extraordinario, al contrario, el MousWheel no me funciona a no ser que lo quite el método de mi código.\nGracias.','',0,'gA==','vl6j1slb',1,0,'',375,0,0),(6247,1401,5,2,0,'87.218.146.243',1138735556,1,0,1,1,1,1,'','','Gerrit,\n\nYour current FW++ is for Xbase++ 1.9 RC2','',0,'gA==','37363f53',1,0,'',2,0,0),(6248,1470,7,95,0,'201.129.161.14',1138739592,1,0,1,1,1,0,'','','Estimado Antonio\n\nAl parecer este modelo que tengo viene con un OS llamado CORE el cual es, menos que el profesional, y no trae muchas cosas, como navegador, word,excel. etc. Y pienso que es por eso.\n\nNo he visto ninguna app, aun que tenga barras.\n\nDe todos modos, estamos trabajando en ello.\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','mpsp2efd',1,0,'',95,0,0),(6249,1500,6,28,0,'87.218.47.128',1138743605,1,0,1,1,1,0,'','TImageList','Hola \n\nHe hecho un añadido a la clase TImageList, creo que es interesante. Se le puede pasar un bitmap para que tome los dibujos de él en lugar de ir añadiendo elementos de uno en uno. Si necesitas 20 imágenes se hace un bitmap de (20*16) de ancho por 16 de alto y con el fondo del color que indiques en el cuarto parámetro.\n\n[code:391fszff]METHOD New&#40; nWidth, nHeight, cFileName, nColor &#41; CLASS TImageList\n\n   DEFAULT nWidth &#58;= 16, nHeight &#58;= 16\n   DEFAULT nColor &#58;= RGB&#40;255,0,255&#41;\n\n   &#58;&#58;nWidth &#58;= nWidth\n   &#58;&#58;nHeight &#58;= nHeight\n\n   if file&#40; cFileName &#41;\n      &#58;&#58;hImageList &#58;= ReadImageList&#40; cFileName, nWidth, 10, nColor &#41;\n   else\n      &#58;&#58;hImageList = ILCreate&#40; nWidth, nHeight &#41;\n   endif\n   &#58;&#58;aBitmaps   = &#123;&#125;\n\nreturn Self[/code:391fszff]\n\n[code:391fszff]#pragma BEGINDUMP\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n\n\nHB_FUNC&#40; READIMAGELIST &#41;\n&#123;\n\n   hb_retnl&#40; &#40;long&#41; ImageList_LoadImage&#40;  NULL,\n                                    hb_parc&#40;1&#41;,\n                                    hb_parni&#40;2&#41;,\n                                    hb_parni&#40;3&#41;,\n                          &#40;COLORREF&#41;hb_parnl&#40;4&#41;,\n                      IMAGE_BITMAP, LR_LOADFROMFILE | LR_CREATEDIBSECTION &#41; &#41;;\n\n&#125;\n\n#pragma ENDDUMP[/code:391fszff]\n\nUn saludo','',0,'AIA=','391fszff',1,0,'',28,0,0),(6250,1453,6,28,0,'87.218.47.128',1138744058,1,0,1,1,1,0,'','','Gracias, funciona perfectamente','',0,'AIA=','3pmzb6j9',1,0,'',28,0,0),(6251,1501,3,411,0,'200.40.232.235',1138748852,1,0,1,1,1,0,'','Manual tipo curso','Hola foro: \nComo nuevo usuario de FWH que intento ser y viejo usuario de CA-Clipper 5.3, estoy necesitando algun manual escrito en español con formato de \"curso\", de forma que pueda entrar en este mundillo de manera ordenada y guiada. ¿alguien sabe donde puedo conseguir uno?.\n\nDaniel.\n\nPD: Felicitaciones por el FORO y por el la Herramienta FWH. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3b5ohd6y',1,0,'',411,0,0),(6252,1502,6,411,0,'200.40.232.235',1138749136,1,0,1,1,1,0,'','Manual tipo curso','Hola foro:\nComo nuevo usuario de FWH que intento ser y viejo usuario de CA-Clipper 5.3, estoy necesitando algun manual escrito en español con formato de \"curso\", de forma que pueda entrar en este mundillo de manera ordenada y guiada. ¿alguien sabe donde puedo conseguir uno?.\n\nDaniel.\n\nPD: Felicitaciones por el FORO y por el la Herramienta FWH. Smile','',0,'AIA=','3ctuzp6c',1,0,'',411,0,0),(6253,1501,3,2,0,'87.218.146.43',1138749764,1,0,1,1,1,1,'','','Daniel,\n\nPuedes descargar un curso en español desde <!-- m --><a class=\"postlink\" href=\"http://www.geocities.com/ninguno_todos/index.html\">http://www.geocities.com/ninguno_todos/index.html</a><!-- m -->','',0,'AIA=','33l0r0rw',1,0,'',2,0,0),(6254,1502,6,2,0,'87.218.146.43',1138749796,1,0,1,1,1,1,'','','Daniel,\n\nPuedes descargar un curso en español desde <!-- m --><a class=\"postlink\" href=\"http://www.geocities.com/ninguno_todos/index.html\">http://www.geocities.com/ninguno_todos/index.html</a><!-- m -->','',0,'AIA=','1xm8puj2',1,0,'',2,0,0),(6255,1483,1,379,0,'59.167.124.212',1138756278,1,0,1,1,1,0,'','','Also I am loading a JPG file.\n\nCheers','',0,'AIA=','mubus4z7',1,0,'',379,0,0),(6256,1502,6,411,0,'200.40.232.190',1138756775,1,0,1,1,1,0,'','','Antonio:\nMil gracias','',0,'AIA=','2oxtkk8t',1,0,'',411,0,0),(6257,1503,6,328,0,'200.12.61.91',1138761317,1,0,1,1,1,0,'','Variable Public ...','Hola a todos,\nhe tenido esta duda desde hace ya un tiempo, les comento:\nYo declaro una Variable \'x\' como Public en una funcion, pero siempre que compilo xHarbour me da este mensaje:\n\n[b:23oqs7dd]Warning W0001  Ambiguous reference: \'xVariable\'[/b:23oqs7dd]\n\nY si compilo con el flag /es2 no me genera el archivo .c, ya que obtengo el warning arriba mensionado.\nPues lo que tengo que hacer es quitar la severidad de salida del flag /es2, y el programa se genera sin ningún problema,  pero si realmente no tengo definida otra variable no recibo ningun warning y puedo tener algún error en tiempo de ejecución.\n\nPorque una variable definida como PUBLIC es tomana como una referencia ambigua? alguien pude contestar esta mi duda.\n\nSaludos,\n\nCarlos Sincuir.','',0,'QA==','23oqs7dd',1,0,'',328,0,0),(6258,1474,6,45,0,'200.82.52.105',1138762701,1,0,1,1,1,0,'','','testfold.prg cada vez esta mas ancho  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nHernan','',0,'QA==','1z8skymq',1,0,'',45,0,0),(6259,1488,3,67,0,'62.235.26.74',1138780125,1,0,1,1,1,0,'','','Antonio,\n\nThe same result : using print methode , and the program doen\'t do anything anymore .\n\nFrank','',0,'QA==','294sgy1x',1,0,'',67,0,0),(6260,1483,1,6,0,'87.1.232.17',1138780274,1,0,1,1,1,1,'','','Please post a reduced and self-contained sample of the problem. Anyway no, you don\'t have to convert your image to bitmap format.\n\nEMG','',0,'QA==','hop8v7og',1,0,'',6,0,0),(6261,1504,3,419,0,'198.54.202.210',1138780672,1,0,1,1,1,0,'','FWH and xHB in South Africa','Hi,\n\nI am currently drawing up a proposal for a potential customer in South Africa.\n\nOne of the questions that I have been asked is who else in South Africa is using FWH and xHB.\n\nThe reason for their asking is that if, in the event of something bad happening to me, I am unable to complete the job or provide ongoing support, or updates after the system is complete, who can they contact to take over the project and continue the work or provide updates.\n\nObviously, should the above occur for any reason, you would negotiate your own rates etc. etc. with the customer.\n\nPlease send your contact details to me via email.\n\nThanks,\n\nDale.\n\nEmail: <!-- e --><a href=\"mailto:dpaterso@fleetfocus.net\">dpaterso@fleetfocus.net</a><!-- e -->','',0,'QA==','1bd1brk0',1,0,'',419,0,0),(6262,1483,1,379,0,'59.167.124.212',1138781562,1,0,1,1,1,0,'','','A Sample of what?  I am loading an image (jpg) using tImage and I want to know if there is any way I can Zoom in or out?  I have looked into the class and its inherited from tBitmap but does not have any Zoom methods and I was wondering if there was some other way?\n\n  REDEFINE  IMAGE oImage1 FILE cImage1 SCROLL  ID 100 OF oDlg UPDATE','',0,'QA==','1e3tmopb',1,0,'',379,0,0),(6263,1473,3,2,0,'87.218.146.10',1138782875,1,0,1,1,1,1,'','','Transparency using XP themes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[url=http&#58;//imageshack&#46;us:28rrz6q7][img:28rrz6q7]http&#58;//img59&#46;imageshack&#46;us/img59/4643/image10gd&#46;png[/img:28rrz6q7][/url:28rrz6q7]\n\nThanks to Brian Hays for his great help on this!','',0,'GA==','28rrz6q7',1,0,'',2,0,0),(6264,1474,6,2,0,'87.218.146.10',1138782990,1,0,1,1,1,1,'','','Transparencia usando temas de XP <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[url=http&#58;//imageshack&#46;us:40wc81o2][img:40wc81o2]http&#58;//img59&#46;imageshack&#46;us/img59/4643/image10gd&#46;png[/img:40wc81o2][/url:40wc81o2]\n\nGracias a Brian Hays por su gran ayuda en conseguirlo!','',0,'GA==','40wc81o2',1,0,'',2,0,0),(6265,1488,3,2,0,'87.218.146.110',1138784439,1,0,1,1,1,1,'','','Frank,\n\nWe have just tested samples\\TestRtf.prg sample and it properly prints, using FWH 2.7 January build. I may send you the EXE so you can run it there.\n\nHave you modified any class (printer or richedit) yourself ?','',0,'GA==','3vcqy3rd',1,0,'',2,0,0),(6266,1494,3,191,0,'80.25.62.218',1138784988,1,0,1,1,1,1,'','','Perdona mi ignorancia.\n\npero cual es el flag de pellesC para compilar en modo C++\n\n\nGracias','',0,'GA==','2w8ik4nz',1,0,'',191,0,0),(6267,1503,6,2,0,'87.218.146.110',1138785064,1,0,1,1,1,1,'','','Carlos,\n\nHas probado a usarla con Memvar-&gt; delante ?\n\nMemvar-&gt;variable','',0,'GA==','9jfjmhvz',1,1138802926,'',2,1,0),(6268,1494,3,2,0,'87.218.146.110',1138785410,1,0,1,1,1,1,'','','Miguel,\n\nNo lo se <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  No usamos PellesC, pero debe tenerlo.\n\nAnte la duda, recombra el fichero .C a .CPP y debería compilar en modo C++ por defecto.','',0,'GA==','33vmnd9q',1,0,'',2,0,0),(6269,1473,3,49,0,'62.13.172.78',1138785515,1,0,1,1,1,0,'','','Dear my friend Antonio,\nCan I see the source code to make dialog and folder trasparent ?\n\nRegards\nSilvio','',0,'GA==','21peiwym',1,0,'',49,0,0),(6270,1473,3,2,0,'87.218.146.110',1138785598,1,0,1,1,1,1,'','','Silvio,\n\nThere are many changes. FWH 2.7 February build will provide them.','',0,'GA==','3dkkgygp',1,0,'',2,0,0),(6271,1483,1,2,0,'87.218.146.64',1138785843,1,0,1,1,1,1,'','','Gerry,\n\nClass TImage inherits from Class TBitmap which provides a  METHOD Zoom( nZoom ), so you can do on a oImage:\n\noImage:Zoom( 0.5 )\noImage:Refresh()','',0,'GA==','1ynjxhgt',1,0,'',2,0,0),(6272,1473,3,49,0,'62.13.172.78',1138786679,1,0,1,1,1,0,'','','Dear antonio,\nI wrote you on privete email.\nI hope you help me ..','',0,'GA==','3s9udqzh',1,0,'',49,0,0),(6273,1499,2,2,0,'87.218.146.75',1138787131,1,0,1,1,1,1,'','','Manu,\n\nDe momento esas DATAs no se usan.','',0,'GA==','2l2wug28',1,0,'',2,0,0),(6274,1505,3,3,0,'82.124.250.204',1138789186,1,0,1,1,1,0,'','ip address','Hello\n\nHow can we know the pc ip address on the internet\n\nGethostbyname(pcname)  returns the internal ip \ngethostbyname(\"www.......\") returns the web page\'s address\n\nI am interested to know at one moment my own ip address on the web\n\nThanks for the help\n\nRichard','',0,'GA==','3ucyctm2',1,0,'',3,0,0),(6275,1483,1,379,0,'59.167.124.212',1138789664,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI tried that but it didn\'t seem to work - must have been the size I selected, going down Zooming out showed it was working.\n\nThanks again.','',0,'GA==','spsf3zsa',1,0,'',379,0,0),(6276,1104,2,265,0,'80.58.18.235',1138789700,1,0,1,1,1,0,'','','Hola René, lo que pasa es que me da \"canguis\" meterme en harbour, a pesar de que ya he hecho alguna cosita, lo anterior hay que mantenerlo como está, ya que si algo funciona, no lo toques.\n\nDe todas formas hubo en las news anteriores alquien que se llamaba Manuel Aranda que comentó una vez que utilizaba a través de five el cutepdf, y me gustaría que si se conecta, me guiara un poco en éste tema.\n\nUn Saludo\n\nJose Luis','',0,'GA==','tt85lrmp',1,0,'',265,0,0),(6277,1483,1,2,0,'87.218.146.126',1138791408,1,0,1,1,1,1,'','','Gerry,\n\nok, glad to know it is working <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','2l6xvazx',1,0,'',2,0,0),(6278,1434,6,123,0,'81.39.239.66',1138796367,1,0,1,1,1,0,'','','Ronaldo,\n\nPrueba este código a ver si te ayuda a clarificar por que no te funcionan los métodos que indicas:\n\n[code:1bllbe90]#Include &quot;Fivewin&#46;ch&quot;\n\n#define adBookmark 0x2000 \n#define adMovePrevious 0x200 \n\n\nFunction Main&#40;&#41;\nLOCAL oDados, txSql\nPRIVATE oCn &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Connection&quot; &#41;\n\noCn&#58;Open&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=venda&#46;mdb&quot; &#41;\ntxSql &#58;= &quot;SELECT * FROM imovweb; &quot;\noDados &#58;= oCn&#58;Execute&#40; txSql&#41;\n\nMsgInfo&#40; IIF&#40;oDados&#58;Supports&#40;adBookmark&#41;,&quot;Soporta RecordCount&quot;,&quot;No soporta RecordCount&quot;&#41;&#41;\n\nMsgInfo&#40; IIF&#40;oDados&#58;Supports&#40;adMovePrevious&#41;,&quot;Soporta MoveFirst, MovePrevious, etc&quot;,&quot;No soporta MoveFirst, MovePrevious, etc&quot;&#41;&#41;\n\n&#46;&#46;&#46;&#46;\n[/code:1bllbe90]\n\nNo lo he probado... Espero que esto te ayude.\nSaludos,\nJosé Luis Capel','',0,'AIA=','1bllbe90',1,0,'',123,0,0),(6279,1476,20,125,0,'213.140.6.105',1138797905,1,0,1,1,1,0,'','','Grande idea, ci provero\' anche io.\nGrazie Mille','',0,'AIA=','245vccmn',1,0,'',125,0,0),(6280,1503,6,328,0,'200.12.61.91',1138798629,1,0,1,1,1,0,'','Variable Public ...','Antonio,\nPrimero que nada gracias por contestarme. \nPues no muy entiendo tu respuesta pero aca te mando un ejemplo de lo que stoy haciendo:\n\n[code:l7u5mcgu]\nFuncionta Prueba&#40;&#41;\nLocal i, j\nPublic nRow\n\nnRow &#58;= 1\n&#46;&#46;&#46;&#46;\n[/code:l7u5mcgu]\n\nPues si se compila con xHarbour siempre de da el mensaje\n[b:l7u5mcgu]Warning W0001 Ambiguous reference: \'nRow [/b:l7u5mcgu]\n\nY necesito que la variable nRow sea pública porque la utilizo en una formula de Excel con la clase TExcels, Ej.:\n\n[code:l7u5mcgu]\n@ 2,3 XLS FORMULA _SUM&#40; 8, 3, nRow, 3 &#41; \n[/code:l7u5mcgu]\n\ny si no es Public nRow, obtengo un error en tiempo de ejecución.\n\nSaludos.\n\nCarlos Sincuir','',0,'QIA=','l7u5mcgu',1,0,'',328,0,0),(6281,1506,7,413,0,'194.106.16.43',1138801529,1,0,1,1,1,0,'','Ejecutar un programa de la PDA desde una aplicacion FWPPC','¿Cómo hago para arrancar una aplicación de la PDA?, por ejemplo el Word desde un programa FWPPC. Sirve el comando WinExec o se emplea otro.\n\nLas pruebas las estoy haciendo con HP 6515 y de momento todo funciona a la perfección.\n\nHay que leer algun manual o libro especial para programar funciones avanzadas de la PDA.\n\nGracias por tu estupendo trabajo.\n\nAndrés González\nPalma de Mallorca','',0,'QIA=','3iyiyquo',1,0,'',413,0,0),(6282,1506,7,2,0,'87.218.146.38',1138802656,1,0,1,1,1,1,'','','Andrés,\n\nRevisa el ejemplo samples\\TestWait.prg \n\nHoy en día la mejor fuente de información acerca de las funciones de Windows y de programación Windows en Pocket PC es google. \n\nTambién buscar algún libro de programación para Pocket PC en lenguaje C, ya que desde FWPPC podemos acceder a cualquier función en C.','',0,'QIA=','362hue59',1,0,'',2,0,0),(6283,1503,6,2,0,'87.218.146.38',1138803048,1,0,1,1,1,1,'','','Carlos,\n\nHa sido un lapsus, es memvar:\n\nmemvar-&gt;nRow := 1\n\notra solución es escribir arriba, al comienzo del prg:\n\nmemvar nRow\n\ncon lo que el compilador entiende de que se trata de una variable pública.','',0,'QIA=','3pendn67',1,0,'',2,0,0),(6284,1500,6,2,0,'87.218.146.38',1138803174,1,0,1,1,1,1,'','','Paco,\n\ngracias!','',0,'QIA=','2tx6zwk5',1,0,'',2,0,0),(6285,1497,3,26,0,'213.250.59.122',1138805880,1,0,1,1,1,1,'','','Hello!\n\nThis file is only 4172 bytes, just like the following LIBs:\nActiveX, CT3Comm, Ole, OleServer, RMDBFCDX, \nxBScript and xHBComm!\n\nProbably because this is demo - I don\'t know ...\n\nRegards, Roman','',0,'QIA=','2g47k9se',1,0,'',26,0,0),(6286,1488,3,67,0,'62.235.25.216',1138808803,1,0,1,1,1,0,'','','Antonio\n\nWhen i test , i use no changed source files , every test from samples directory uses only the fwh code.\n\nMaybe it is a good idea to test your exe-file\n\nMaybe the aplication depending from riched20.dll , give troubles with which version is used ?\n\nFrank','',0,'QIA=','1smwpanr',1,0,'',67,0,0),(6287,1503,6,328,0,'200.12.61.91',1138809069,1,0,1,1,1,0,'','','Listo Antonio, con definir al inicio del programa las variables como Memvar quedo solucionado, muchas gracias.\n\nSaludos.\n\nCarlos Sincuir','',0,'QIA=','uocksy0s',1,0,'',328,0,0),(6288,1507,6,64,0,'201.50.147.211',1138809326,1,0,1,1,1,1,'','Setar tipo de papel (comum, etiqueta, transparencia).','ola,\n\ncomo posso mudar o tipo de papel na classe Tprinter?\n\nEx: comum, etiqueta, transparencia\n\nOcorre o seguinte, quando imprimo no papel comum fica ok, quando faço o mesmo trabalho em papel etiqueta fica borrado. A impressora tem um ajuste para cada tipo de papel.\n\nGracias.','',0,'QIA=','2mrhqb5c',1,0,'',64,0,0),(6289,1505,3,303,0,'68.7.28.54',1138809826,1,0,1,1,1,0,'','','FUNCTION GetIP()\n    local oSocket := TSocket():New( 2000 ),  nIp := oSocket:cIPAddr\n    oSocket:End()\nRETURN (nIp)','',0,'QIA=','1vutstuo',1,0,'',303,0,0),(6290,1452,6,52,0,'200.82.61.233',1138810927,1,0,1,1,1,1,'','','Probado y anda, asi que voy a darle para adelante con el proyecto, tenia miedo que el chr ( 0 ) no exista.\n\nGracias.','',0,'QIA=','p2g7u08z',1,0,'',52,0,0),(6291,1508,3,330,0,'217.37.54.49',1138812203,1,0,1,1,1,0,'','dbinfo','I have a problem in that in sqlrdd with xharbour builder when i use the function below I get a gpf. This only happens with sql and only if using fivewin. If I compile just using xharbour then it does not gpf. I am using the latest libs that Antonio sent me\nThanks\nPeter','',0,'QIA=','1hpjtjit',1,0,'',330,0,0),(6292,1508,3,330,0,'217.37.54.49',1138812264,1,0,1,1,1,0,'','','Sorry the function is \ndbOrderInfo(DBOI_KEYCOUNTRAW)','',0,'QIA=','y8xf95iw',1,0,'',330,0,0),(6293,1481,6,341,0,'200.127.71.162',1138813753,1,0,1,1,1,0,'','','Gracias Joel\n\nFunciona a la perfeccion\n\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'QIA=','38ywuvv4',1,0,'',341,0,0),(6294,1472,2,375,0,'84.122.118.216',1138814347,1,0,1,1,1,1,'','','La verdad es que a nuestro nivel no se nota mucho, a no ser que crees alguna clase que necesite rapidez  de refresco o algo así.\n\nPero sin duda lo más importante de los Codeblocks es que se encapsulan en una variable y se ejecutan del tirón sin necesidad de tener que buscarlos por la memoria a cada llamada a función. Son como las funciones INLINE pero transportables. Adermás  la variable sirve de transporte y puedes pasorlos a una función o a un método de una clase con sus variables internas y todo. No se pueden concebir las clases de FW sin ellos. ¿Como sinó llamarías al Valid de un Get o a una accion al pulsar un botón. Tendrían que inventar otra cosa o aplicar los punteros de función.\n\nEn cuanto a los IF().  Idem de los mismo. Son INLINE y se pueden anidar y utilizar dentro de una variable, una llamada a función, etc. Ahorran mucho código.  Por Ejemplo:\n\nColorearObjeto(if(oBJ=1,CRL_RED,if(oBJ=2,CLR_BLUE,CLR_GREEN)))\n\nA ver como lo traduces a if / else / endif. Como mínimo 6 líneas con sus ciclos de reloj correspondiente.\n\nO mejor:  bColObj := { |oBj| if(oBJ=1,CRL_RED,if(oBJ=2,clr_blue,CLR_GREEN)), MsgBeep() }\nColorearCaja(bColObj,oCaja)\nPor decir algo sencillo...','',0,'QIA=','18cq4ita',1,0,'',375,0,0),(6295,1497,3,26,0,'213.250.59.122',1138814542,1,0,1,1,1,1,'','','Hello!\n\nI\'m also trying to compile my app with \nxHarbour (Microsoft), but I\'m receiveing\n[quote:1hau0088]unresolved external symbol _hb_stack[/quote:1hau0088]\nin hpzip.lib(zip.obj)\nEDIT: there is another unresolved _hb_stack in \nGETDIR.OBJ:HB_FUN_CGETDIR\n\nPlease, help!','',0,'gA==','1hau0088',1,0,'',26,0,0),(6296,1507,6,138,0,'201.133.73.175',1138815394,1,0,1,1,1,1,'','','oPrinter:SetSize(...)\n\nMira el Printer.prg para saber los valores de ::SetSize()','',0,'gA==','36fuveo3',1,0,'',138,0,0),(6297,1509,6,52,0,'200.82.61.233',1138816163,1,0,1,1,1,1,'','Matar una aplicacion que esta corriendo...','Estimados,\n\nEstoy creando un programa el cual no tiene nada que visualice su existencia, como estoy realizando pruebas, necesito por ahi hacerle modificaciones y correrlo nuevamente, pero tengo que ir a \"administrador de tareas de windows\" para matar la aplicacion. hay alguna manera de que por codigo al correr este programa verifique que \"si esta ya en ejecución\" la \"mate\" autmaticamente?\n\nDicha aplicacion no abre archivos ni nada de dbf....\n\nGracias','',0,'gA==','1aiqjbpk',1,0,'',52,0,0),(6298,1497,3,2,0,'87.218.146.106',1138816398,1,0,1,1,1,1,'','','Roman,\n\n&gt; Probably because this is demo - I don\'t know ... \n\nYes, it looks as an empty file.\n\n&gt; unresolved external symbol _hb_stack \n&gt; in hpzip.lib(zip.obj) \n\nYou need to rebuild hbzip.lib for Microsoft, but its actually broken for Microsoft. You may report it to xharbour newsgroup.\n\nRegarding cGetDir.obj, here you have the right one:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/9fd48273/GETDIR.zip.html\">http://hyperupload.com/download/9fd4827 ... R.zip.html</a><!-- m -->','',0,'gA==','26shz8de',1,0,'',2,0,0),(6299,1488,3,2,0,'87.218.146.106',1138816794,1,0,1,1,1,1,'','','Frank,\n\nAlready sent to you by email.','',0,'gA==','2b2bf698',1,0,'',2,0,0),(6300,1505,3,2,0,'87.218.146.106',1138817088,1,0,1,1,1,1,'','','James,\n\nAdded to FWH, thanks\n\nops, it shows the LAN IP, not the Internet IP...','',0,'gA==','2dt9m2v6',1,0,'',2,0,0),(6301,1510,20,29,0,'87.7.230.70',1138817262,1,0,1,1,1,0,'','Funzione File() e nomi lunghi','Salve,\nci sono problemi con i nomi lunghi utilizzando file() ?\n\nPrima di aprire un file .rtf con Word, verifico per sicurezza che il file esista. \nEsempio:\n--------------------------\ncFileToCheck:=\"c:\\pippo\\Estratto Conto.rtf\"\n\nif file(cFileToCheck)\n         msginfo(\"esiste\")\nelse\n         msginfo(\"non esiste\")\nendif\n\n-------------------------\n\nIl problema è che in alcuni casi pur essendo presente il file, questo non viene trovato dalla funzione File().\nNon sono riuscito a riproporre il problema (che si presenta a diversi miei clienti) , tuttavia si verifica su Windows XP \n\nCredo il problema possa dipendere dal nome del file che è \"lungo\". Qualcuno di voi ha riscontrato un problema simile ?\n\nSaluti\n\nMarco','',0,'gA==','1r03yme5',1,0,'',29,0,0),(6302,1508,3,2,0,'87.218.146.106',1138817432,1,0,1,1,1,1,'','','Peter,\n\nThere may be a function name conflict. Don\'t you get an error with the calls stack ? What functions are listed ?\n\nPlease report it also to xharbour newsgroup. Thanks','',0,'gA==','1onpdlct',1,0,'',2,0,0),(6303,1511,6,228,0,'201.245.222.85',1138818019,1,0,1,1,1,1,'','Agregar ceros a la derecha de un campo?','amigos del foro, necesitando de nuevo su ayuda.\n\nLo que necesito es lo siguiente: \n\ntengo un campo de la base da datos definido como caracter 15 con x registros\n\nEjemplo:\n\n         35356                &lt;-contenido del campo\n\nNecesito que me quede de la siguiente forma:\n\n000000000035356       &lt;-contenido del campo\n\nDe antemano gracias por su ayuda.','',0,'gA==','b7h6vo4t',1,0,'',228,0,0),(6304,1511,6,53,0,'200.67.251.175',1138819764,1,0,1,1,1,1,'','','Leandro:\n\nAunque hay confusión entre lo que dice el encabezado de tu mensaje y el ejemplo que muestras, asumo que el ejemplo es lo que quieres:\n\nIntenta con:\n\nnValor := cCampoDelRegistro\ncValor := STRZERO(nValor,15)\n\nSaludos, Armando','',0,'gA==','3ldz6ho6',1,0,'',53,0,0),(6305,1512,3,167,0,'72.161.230.159',1138820979,1,0,1,1,1,1,'','print image and text on hp printer','I need to print a signature on a check.\n\nHow can I combine text and an image in my output to accomplish this?\n\nCurrently I\'m using pcl command embedded in a text file to control fomatting and then copying that file to the printer device.  It works great.  \n\nHow can I include an image file ( signature ) with this process?\n\nthanks in advance.  I\'m stuck!','',0,'gA==','2q6t2hpq',1,0,'',167,0,0),(6306,1512,3,6,0,'82.61.28.126',1138821148,1,0,1,1,1,1,'','Re: print image and text on hp printer','You can use TPrinter:SayBitmap() or TPrinter:SayImage() methods.\n\nEMG','',0,'gA==','2vku1jd7',1,0,'',6,0,0),(6307,1513,3,167,0,'72.161.230.159',1138821160,1,0,1,1,1,1,'','emf to pdf','Fivewin creates beautiful .EMF files within the report object.\n\nDoes anyone know of a utility or library I can call from within my applications to convert these .EMF files to a .PDF file?','',0,'gA==','27xx76na',1,0,'',167,0,0),(6308,1510,20,6,0,'82.61.28.126',1138821269,1,0,1,1,1,1,'','Re: Funzione File() e nomi lunghi','No, che io sappia non c\'è nessun problema con i nomi lunghi e xHarbour.\n\nEMG','',0,'gA==','25rm85vy',1,0,'',6,0,0),(6309,1513,3,6,0,'82.61.28.126',1138821437,1,0,1,1,1,1,'','Re: emf to pdf','Yes. Using PDFCreator you can make the process completely automatic.\n\nEMG','',0,'gA==','20c4808a',1,0,'',6,0,0),(6310,1511,6,228,0,'201.245.222.85',1138821540,1,0,1,1,1,1,'','si tienes razon','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nArmando tienes razon es a la izquierda del campo, que pena por la confución, pero a buen entededor...... Y muchas gracias por tu ayuda anteriormente habia usado esta función pero no me acordaba cual era. Un abrazo.','',0,'gA==','3qq9n7h7',1,0,'',228,0,0),(6311,1514,2,430,0,'157.100.146.2',1138821625,1,0,1,1,1,0,'','Error al compilar &quot;Prepocessor table overflow&quot;','Al compilar, el Clipper me saca el siguiente error:\n\nFatal C3048 Prepocessor table overflow\nTCBrowse.ch(115)\n\nEl error se da luego de la lectura del tercer archivo cabecera TCBrowse, antes tengo el Fivewin.CH y el BtnGet.CH.\n\n?Como puedo resolver evitar error?\n\nSaludos desde Ecuador\n\nFernando Espinoza','',0,'gA==','1j1qcdon',1,0,'',430,0,0),(6312,1515,3,6,0,'82.61.28.126',1138822436,1,0,1,1,1,1,'','cGetFile() and Readonly checkbox','I propose to give a default parameter (probably 2060) to nFlags parameter of the function cGetFile() so that it doesn\'t show Open readonly checkbox anymore:\n\nDWORD dwFlags = IF( PCOUNT() &gt; 6 &amp;&amp; ISNUM( 7 ), _parnl( 7 ), 2060 );\n\nDo you agree?\n\nEMG','',0,'gA==','1it804pq',1,0,'',6,0,0),(6313,1516,1,161,0,'81.165.130.236',1138824235,1,0,1,1,1,0,'','HTML-report','Hello,\n\nDoes anybody know if there is already a class that create a HTML-file of a database. I allready found al library \'rephtml\' on the PROMETHEUS-website, but there is no source file included. I want to change some things.\nI was allready started to create one of myself, but I something like that allready exist it will save me some time...\nI know I can save it as excel and than export it from excell to HTML, but it would be nice that the customer doesn\'t need an external program.\n\nRegards,\nMarc','',0,'gA==','a9rkniik',1,0,'',161,0,0),(6314,1517,19,375,0,'84.122.118.216',1138825868,1,0,1,1,1,1,'','Pegar Imagen Aquí','Perdonad si hago preguntas tontas, pero soy nuevo en internet y tengo ciertas lagunas.\n¿Como haceis para incluir una imagen en el mensaje?\nLo he intentado de varias formas, pero lo  más que he conseguido es que aparezca un pequeño icono en lugar de la foto, tanto como jpg como png.\nEs decir coloco la imagen en mi espacio personal de msn, y aqui pongo [img]:Http/........./nombre%20imagen[/img], pero nada.  Por supuesto, de copiar y pegar nada...\nSupongo que no será tan complicado.','',0,'CA==','26qivv7q',1,0,'',375,0,0),(6315,1517,19,2,0,'87.218.146.106',1138826680,1,0,1,1,1,1,'','','Manu,\n\nLa forma de hacerlo es alojar la imagen en un servidor de imágenes como <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->\n\nDesde ese sitio te permite elegir un fichero (JPG, BMP, etc.) de tu ordenador y te proporciona una dirección para visualizarlo. Esa dirección, tal como te la da, es la que se pega aqui y entonces se ve la imagen aquí.','',0,'CA==','3h2e1kbp',1,0,'',2,0,0),(6316,1485,22,2,0,'87.218.146.106',1138826779,1,0,1,1,1,1,'','','Enrique,\n\nAún no hemos proporcionado una versión actualizada a Enero de FWH 64 bits. Vamos a prepararla lo antes posible.','',0,'CA==','37ognro2',1,0,'',2,0,0),(6317,1517,19,375,0,'84.122.118.216',1138826896,1,0,1,1,1,1,'','','Muchas Gracias Antonio, eres una balsa salvavidas.','',0,'CA==','1dki8bmj',1,0,'',375,0,0),(6318,1515,3,2,0,'87.218.146.106',1138826981,1,0,1,1,1,1,'','','Enrico,\n\nYes, it looks very reasonable. Thanks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','2vgik3j2',1,0,'',2,0,0),(6319,1514,2,2,0,'87.218.146.106',1138827341,1,0,1,1,1,1,'','','Fernando,\n\nTienes varias formas de solucionarlo:\n\n1. Si tienes a mano Clipper 5.2, puedes usarlo para compilar en vez de usar 5.3, ya que su capacidad de preprocesado es mayor. Luego puedes enlazar con las librerías de 5.3 sin problemas.\n\n2. Puedes evitar incluir algunos de los ficheros de cabecera que usa FW, para no consumir tanta memoria de preprocesado. Para conseguir esto pasa este parámetro /dCLIPPER501 al llamar a Clipper:\n\nclipper myapp.prg /n /dCLIPPER501\n\n3. En vez de usar rmake.exe de Clipper que consume mucha memoria y se la quita a Clipper.exe, usa el maker.exe de Borland que permite liberar toda la memoria antes de llamar a Clipper.exe','',0,'CA==','3um53w91',1,0,'',2,0,0),(6320,1509,6,2,0,'87.218.146.106',1138827623,1,0,1,1,1,1,'','','Gustavo,\n\nPuedes usar TerminateA( GetModuleHandle( cAppName ) )\n\nEl código en C que usa es:\n\n[code:2kmxmyo6]\n      TerminateProcess&#40; &#40; HANDLE &#41; _parnl&#40; 1 &#41;,\n                        IF&#40; PCOUNT&#40;&#41; &gt; 1, _parni&#40; 2 &#41;, 0 &#41; &#41;;\n[/code:2kmxmyo6]','',0,'AIA=','2kmxmyo6',1,0,'',2,0,0),(6321,1507,6,64,0,'201.50.147.211',1138828400,1,0,1,1,1,1,'','','Não é o tamanho mas a densidade do papel que preciso!','',0,'AIA=','rd9j8rmi',1,0,'',64,0,0),(6322,1513,3,3,0,'82.65.169.122',1138828809,1,0,1,1,1,0,'','Re: emf to pdf','[quote=&quot;EnricoMaria&quot;:1zdc4r19]Yes. Using PDFCreator you can make the process completely automatic.\n\nEMG[/quote:1zdc4r19]\n\nEnrico\n\nPDF creator will install avirtual printer just like Adobe distiller.\nIs there a way to have a lib linked within an app (avoid installing the printer) that can allow converting from Emf to Pdf. If anyone has done the job and is willing to share,\n\nIf we can Enhance the FW preview to support Pdf creation and email (this part is easy), then it will be great. I would be personnally get rid of Easypreview that is not compatible with fwh anymore since over a year now.\n\nRichard','',0,'gA==','1zdc4r19',1,0,'',3,0,0),(6323,1505,3,3,0,'82.65.169.122',1138829008,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:t13eiqrg]James,\n\nAdded to FWH, thanks\n\nops, it shows the LAN IP, not the Internet IP...[/quote:t13eiqrg]\n\nRight,\n\n\nI hope to have a function for retreiving the Internet IP very soon.  I have the information available at the moment in a txt file.\nI need to parse this txt file quickly to search for a string (It is a xml file basically) any idea ?','',0,'gA==','t13eiqrg',1,0,'',3,0,0),(6324,1513,3,49,0,'62.13.172.78',1138829097,1,0,1,1,1,0,'','','It would be fine to have as a fw function ......as EMF2PDF()....\n\nRegards\nsilvio','',0,'gA==','222qrmwp',1,0,'',49,0,0),(6325,1513,3,49,0,'62.13.172.78',1138829211,1,0,1,1,1,0,'','','I know there is a DLL ( davinci) it can converte from emf to pdf ...but i not Know how I can make it','',0,'gA==','1ylr68ke',1,0,'',49,0,0),(6326,1472,2,404,0,'213.231.101.107',1138829543,1,0,1,1,1,0,'','Os pongo un ejemplo de mi codigo.','IF( oParamtros:lPresupu                                                       , ;\n    ( oDbfPresup:Load()                                                         , ;\n      nSiguiente            := oDatos:Current()[  1 ]                     , ;\n      oDatos:Current()[ 1 ] := nAnterior                                   , ;\n      oDbfPresup:tipo       := oPresupu:nTipo                            , ;\n      oDbfPresup:estado     := oPresupu:nEstado                      , ;\n      oDbfPresup:codigo     := oCliente:cCodigo                       , ;\n      oDbfPresup:numpresup  := oPresupu:cNumero                 , ;\n      oDbfPresup:fechapres  := oPresupu:dFecha                      , ;\n      oDbfPresup:descripcio := oDatos:Current()[ 2 ]                 , ;\n      oDbfPresup:cantidad   := oDatos:Current()[ 3 ]                 , ;\n      oDbfPresup:precio     := oDatos:Current()[ 4 ]                  , ;\n      oDbfPresup:Save()                                                         , ;\n      oDbfPresup:GoTo( nSiguiente )                                 )    , ;\n    ( nSiguiente            := oDatos:Current()[ 1 ]                    , ;\n      oDatos:Current()[ 1 ]  := nAnterior                                 , ;\n      oDbfFactC:tipo            := oFactura:nTipo                           , ;\n      oDbfFactC:estado        := oFactura:nEstado                     , ;\n      oDbfFactC:codigo        := oCliente:cCodigo                      , ;\n      oDbfFactC:numfactura := oFactura:cNumero                 , ;\n      oDbfFactC:fechafactu  := oFactura:dFecha                     , ;\n      oDbfFactC:descripcio   := oDatos:Current()[ 2 ]              , ;\n      oDbfFactC:cantidad     := oDatos:Current()[ 3 ]              , ;\n      oDbfFactC:precio        := oDatos:Current()[ 4 ]               , ;\n      oDbfFactC:Save()                                                       , ;\n      oDbfFactC:GoTo( nSiguiente )                                ) )\n\nPoner las lineas de codigo, para cuando se cumple la condición del IF, y para cuando no se cumple, en un EVAL, ¿sería lo más conveniente?.\n\nSaludos, José Mª','',0,'','1u13nr3r',1,0,'',404,0,0),(6327,1513,3,49,0,'62.13.172.78',1138829655,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://www.herdsoft.com/ftp/downloads.html#davinci\">http://www.herdsoft.com/ftp/downloads.html#davinci</a><!-- m -->\n\nhere you can load the dll','',0,'','bi6py0y4',1,0,'',49,0,0),(6328,1513,3,49,0,'62.13.172.78',1138830749,1,0,1,1,1,0,'','','Now I found a  C source  (emf2pdf.cpp)\nthere is someone Know how make a fw function...?','',0,'','3b9ios9e',1,0,'',49,0,0),(6329,1505,3,3,0,'82.65.169.122',1138831668,1,0,1,1,1,0,'','','[quote=&quot;Richard Chidiak&quot;:jsmcm994][quote=&quot;Antonio Linares&quot;:jsmcm994]James,\n\nAdded to FWH, thanks\n\nops, it shows the LAN IP, not the Internet IP...[/quote:jsmcm994]\n\nRight,\n\n\nI hope to have a function for retreiving the Internet IP very soon.  I have the information available at the moment in a txt file.\nI need to parse this txt file quickly to search for a string (It is a xml file basically) any idea ?[/quote:jsmcm994]\n\n\nHere is the function    <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n#INCLUDE \"FIVEWIN.CH\"\n#include \"tip.ch\"\nlocal myip := getmyip()\n\n\nfunction getmyip()\nLOCAL aEol  := { Chr(13) + Chr(10), Chr(10) }, ;\n      ctr   := 0, ;\n      lok   := .f., ;\n      myip  := space(80), ;\n      sLine,cfile\n\ncfile := CURDRIVE() + \":&quot; + CURDIR() + \"\\myip.txt\"\n\nIF FILE(CFILE)\n   ERASE (CFILE)\nENDIF\noUrl := tURL():New( \"http://www.adresseip.com/\"  )\nIF Empty( OUrl )\n   MSGINFO(\"URL NOT FOUND\")\n   RETURN NIL\nENDIF\n\noClient := tIPClient():New( oUrl )\nIF Empty( oClient )\n      MSGINFO(\"Invalid url \")\n      RETURN NIL\nENDIF\n\noClient:nConnTimeout := 20000\nIF oClient:Open( oUrl )\n   IF ! oClient:ReadToFile( cFile )\n        MSGINFO(\"Generic error in writing.\"  + cFile)\n    ENDIF\n   oClient:Close()\nendif\n\nIF FILE(CFILE)\n   hFile := FOPEN(CFILE)\n   WHILE HB_FReadLine( hFile, @sLine, aEol ) == 0\n      ctr++\n      IF subs(ALLTRIM(sLine),1,8) == \"&lt;SPAN ID\"  // ip is next line\n         ctr := 1\n         lok := .t.\n      ENDIF\n      IF CTR = 2 .AND. lok\n         myip := sline\n      ENDIF\n\n//              ? sLine\n   END\n   fclose(hFile)\nENDIF\nreturn myip','',0,'gA==','jsmcm994',1,0,'',3,0,0),(6330,1513,3,3,0,'82.65.169.122',1138831958,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:25mmvg6g]http://www.herdsoft.com/ftp/downloads.html#davinci\n\nhere you can load the dll[/quote:25mmvg6g]\n\nSilvio,\n\nDavinci is copyright protected, we can not include it in our apps just like this.\n\nI want to check the pdf.lib from xharbour \n\nRichard','',0,'gA==','25mmvg6g',1,0,'',3,0,0),(6331,1513,3,49,0,'62.13.172.78',1138832568,1,0,1,1,1,0,'','','I found a file cpp now...\n[code:5z48jbn7]// file&#58; emf2pdf&#46;cpp\n// \n// Converts an EMF file to a 1 page PDF file&#46;\n//\n// To build, make sure the files pdfGDI&#46;dll, pdfGDI&#46;lib, pdfGDI&#46;h \n// are in the current directory, then from the command line&#58;\n//\n// cl emf2pdf&#46;cpp pdfGDI&#46;lib gdi32&#46;lib\n\n#include &lt;windows&#46;h&gt;\n#include &lt;stdio&#46;h&gt;\n#include &quot;pdfGDI&#46;h&quot;\n\nvoid main&#40;int argc, char *argv&#91;&#93;&#41;\n&#123;\n	HDC dc;\n	if &#40;argc &lt; 3&#41;\n	&#123;\n		printf&#40;&quot;usage&#58; emf2pdf filename&#46;emf filename&#46;pdf\\n&quot;&#41;;\n		return;\n	&#125;\n\n	HPDFGDI h = pdfGDI_open&#40;argv&#91;2&#93;&#41;;\n	if &#40;!h&#41;\n	&#123;\n		char msg&#91; ERROR_MSG_SIZE &#93;;\n		pdfGDI_getErrorMsg&#40;h, msg&#41;;\n		printf&#40;&quot;pdfGDI_open failed&#58; %s\\n&quot;, msg&#41;;\n		return ;\n	&#125;\n\n	dc = pdfGDI_startPage&#40;h, &quot;A4&quot;&#41;;\n	if &#40;!dc&#41;\n	&#123;\n		char msg&#91; ERROR_MSG_SIZE &#93;;\n		pdfGDI_getErrorMsg&#40;h, msg&#41;;\n		printf&#40;&quot;pdfGDI_startPage failed&#58; %s\\n&quot;, msg&#41;;\n		return ;\n	&#125;\n\n	// now play the EMF file  to our PDF dc\n\n	HENHMETAFILE metaFileHandle = GetEnhMetaFile&#40;argv&#91;1&#93;&#41;;\n	if &#40;metaFileHandle == 0&#41;\n	&#123;\n		printf&#40;&quot;could not open metafile &#91;%s&#93;&quot;, argv&#91;1&#93;&#41;;\n		return ;\n	&#125;\n\n	RECT rect = &#123;0, 0, 1000, 1000&#125;;\n	if &#40;!PlayEnhMetaFile&#40;dc, metaFileHandle, &amp;rect&#41;&#41;\n	&#123;\n		printf&#40;&quot;PlayEnhMetaFile failed\\n&quot;&#41;;\n	&#125;\n	DeleteEnhMetaFile&#40;metaFileHandle&#41;;\n\n	pdfGDI_close&#40;h&#41;;\n&#125;\n\n[/code:5z48jbn7]\n\nI have also these files : pdfGDI.dll, pdfGDI.lib, pdfGDI.h but I think not have the source of pdfgdi.lib\n\nCan you create a fw function ?\nRegards','',0,'AIA=','5z48jbn7',1,0,'',49,0,0),(6332,1513,3,49,0,'62.13.172.78',1138832878,1,0,1,1,1,0,'','','pdf of xharbour (contrib) support only jpeg\", \"tiff\", \"gif\", and \"png\"... I already test it','',0,'AIA=','2bu30p20',1,0,'',49,0,0),(6333,1513,3,6,0,'82.61.28.126',1138834225,1,0,1,1,1,1,'','Re: emf to pdf','[quote=&quot;Richard Chidiak&quot;:13mo3mhp]Enrico\n\nPDF creator will install a virtual printer just like Adobe distiller.[/quote:13mo3mhp]\n\nYes, but you can drive it using an INI file. You can get the PDF file without any user action. And it is free.\n\nEMG','',0,'gA==','13mo3mhp',1,0,'',6,0,0),(6334,1451,6,40,0,'200.52.185.151',1138837088,1,0,1,1,1,0,'','','Muy interesante, gracias Master\n\nSaludos\nJoel','',0,'gA==','17dop90r',1,0,'',40,0,0),(6335,1472,2,2,0,'87.218.146.106',1138838458,1,0,1,1,1,1,'','','Jose Mª,\n\nPracticamente no habrá diferencia en la velocidad de ejecución y el código se volverá más complicado de mantener.\n\nPiensa que tanto las líneas de código de un PRG como el contenido de un codeblock, el compilador lo convierte a pcode (una serie de bytes) que la maquina virtual procesa.\n\nSólo en procesos en los que se requiere la máxima velocidad, la solución es codificar ciertas partes en C para que la máquina virtual no intervenga y así ganar ciclos de reloj.','',0,'gA==','3bs7i8fg',1,0,'',2,0,0),(6336,1518,6,140,0,'200.84.220.129',1138839516,1,0,1,1,1,0,'','Que DLL\'s necesita Crystal Report','Saludos a todos...\n\nQue DLL\'s y/o archivos de soporte se necesitan para distribuir una aplicación realizada con xHarbour 0.993+FWH2.4 que usa Cristal Reports 7.\n\nLa documentación que esta en <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/oldsite/NGArchive/crystalr.htm\">http://www.fivewin.info/oldsite/NGArchive/crystalr.htm</a><!-- m --> recomienda las siguientes:\ncrpe32.dll\ncrpaig32.dll\nimplode.dll\np2bxbse.dll\nsstree32.dll\n\npero aun asi con estas DLL\'s se despliega una ventanita con el mensaje \"Can\'t output to printer\" y luego un hermoso GPF.\n\nLa idea es no tener que instalar Crystal en los equipos donde se debe instalar la aplicación.\n\nLa clase tCRW que estoy utilizando comienza con la siguiente leyenda...\n\n===========================================================================\n// TCRW.PRG                                               (C) Tom Groeger 1998\n// ===========================================================================\n//\n// 16 &amp; 32 Bit Wrapper Classes for Crystal Reports gives you access to\n// Crystal Reports 32Bit Dll. The class constructor automatically checks if\n// 32Bit Dll\'s are available, and falls back to 16Bit if not.\n// Thanks to Matthew Cullen/Adsystems for his help !\n//\n//         downloaded from <!-- m --><a class=\"postlink\" href=\"http://www.fivedb.com\">http://www.fivedb.com</a><!-- m -->\n// ===========================================================================\n// Algunos metodos han sido creados o modificados por Manuel Cabrera\n//\n//              <!-- e --><a href=\"mailto:lolo@redestb.es\">lolo@redestb.es</a><!-- e -->\n// ===========================================================================\n\n\nUn Gb de Gracias por adelantado.\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'gA==','1hl6rp2f',1,0,'',140,0,0),(6337,1474,6,45,0,'200.82.52.105',1138840159,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2k0bprhw]Transparencia usando temas de XP <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[url=http&#58;//imageshack&#46;us:2k0bprhw][img:2k0bprhw]http&#58;//img59&#46;imageshack&#46;us/img59/4643/image10gd&#46;png[/img:2k0bprhw][/url:2k0bprhw]\n\nGracias a Brian Hays por su gran ayuda en conseguirlo![/quote:2k0bprhw]\n\nHa quedado espectacular <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\nAhora en los folders se complica ???\n\nHernan','',0,'mA==','2k0bprhw',1,0,'',45,0,0),(6338,1483,1,379,0,'59.167.115.105',1138853402,1,0,1,1,1,0,'','','For Information of others using tImage/tBitmap.  When you use the REDEFINE method from a Resource you MUST specify in the STyle of the the tImage Control WS_VSCROLL and WS_HSCROLL if you do not and load an image that is smaller than the defined control size (Height and Width) then the control generates the following error.  By defining the scrolls this error disappears.\n\nApplication\n===========\n   Path and name: C:\\GENEAL\\ANCESTOR.EXE (16 bits)\n   Size:   456,768 bytes\n   Max files handles permited: ( SetHandleCount() ) 121\n   Time from start: 0 hours 0 mins 4 secs \n   Error ocurred at: 01/02/2006, 23:27:58\n   Error description: Error Objects/8  No Object Msg.: UNDEFINED:SETRANGE\n\nStack Calls\n===========\n   Called from SETRANGE(0)\n   Called from TIMAGE:SCROLLADJU(0)\n   Called from (b)TBITMAP(0)\n   Called from TIMAGE:HANDLEEVEN(0)\n   Called from SETSCROLLR(0)\n   Called from (b)TSCROLLBAR(0)\n   Called from TIMAGE:SCROLLADJU(0)\n   Called from (b)TBITMAP(0)\n   Called from TIMAGE:HANDLEEVEN(0)\n   Called from SETSCROLLR(0)\n   Called from (b)TSCROLLBAR(0)\n   Called from TSCROLLBAR:WINNEW(0)\n   Called from TIMAGE:DEFAULT(0)\n   Called from (b)TBITMAP(0)\n   Called from ASEND(0)\n   Called from TDIALOG:INITIATE(572)\n   Called from TDIALOG:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(244)\n   Called from VUEPICT(2118)','',0,'mA==','388va5bt',1,0,'',379,0,0),(6339,1473,3,167,0,'72.161.230.159',1138855719,1,0,1,1,1,1,'','','Antonio,\n\nThis is excellent.  I have been looking for this since Fivewin 1.8.\n\nMany years ago I hired several artists to make my applications look especially \"pretty\".  I experimented with this concept, but ran into difficulties.\n\nOne problem I had was \"re-using\" a dialog.  I could get it to display correctly the 1st time, but, if I ::end() the dialog and save the dialog object to an array to re-call at a later time, the dialog background would be \"invisible\" and the Windows desktop would bleed through on subsequent ::activate() commands.\n\nIs it possible for you to test this and let me know the result.\n\nAs always, thanks much.  I really appreciate the work you have done for all of us.','',0,'mA==','vgxlyzhf',1,0,'',167,0,0),(6340,1488,3,67,0,'62.235.25.123',1138863884,1,0,1,1,1,0,'','','Antonio\n\nYour exe works , but i can\'t build a exe that prints.\nI tryed with borland and xbuild.\n\nI have the screen to choose a printer , then when i change to another printer ir freezes\n\nszAppName : testrtf.exe     szAppVer : 0.0.0.0     szModName : hungapp     \nszModVer : 0.0.0.0     offset : 00000000  \n\nFrank','',0,'mA==','14ydsc80',1,0,'',67,0,0),(6341,1519,3,67,0,'62.235.25.123',1138864155,1,0,1,1,1,0,'','oGet:nClrDef in FW27','With fw27 i got a error which is not present in fw2.6 :\nNclrDef is also present in the documentation\n\n\nError description: Error BASE/1004  Message not found: TGET:NCLRDEF\n\nStack Calls\n===========\n   Called from:  =&gt; TGET:ERROR(180)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(106)\n   Called from:  =&gt; TGET:MSGNOTFOUND(0)\n   Called from: tget.prg =&gt; TGET:NCLRDEF(168)\n\n\nFrank','',0,'mA==','1afbtpp7',1,0,'',67,0,0),(6342,1473,3,6,0,'87.1.198.143',1138866279,1,0,1,1,1,1,'','','If you issue oDlg:End() then you will have to recreate the DIALOG (DEFINE DIALOG etc.) again. You can\'t reuse an ended DIALOG.\n\nEMG','',0,'mA==','29bdz4ze',1,0,'',6,0,0),(6343,1474,6,2,0,'87.218.146.84',1138867186,1,0,1,1,1,1,'','','Hernán,\n\nEn los folders ya está funcionando también <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSólo, tal vez, hagan falta unos ajustes finales. Pero el efecto general, está <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'mA==','1wng1k4w',1,0,'',2,0,0),(6344,1519,3,2,0,'87.218.146.84',1138867495,1,0,1,1,1,1,'','','Frank,\n\nDo you use a modified Class TGet of your own ? nClrDef is no longer used in all FWH PRGs.','',0,'mA==','2vqkoiyy',1,0,'',2,0,0),(6345,1488,3,2,0,'87.218.146.84',1138867643,1,0,1,1,1,1,'','','Frank,\n\nYou should be able to build samples\\TestRtf.prg and print with it, with no problems at all. Please check that you are not using modified modules. \n\nUsing standard FWH 2.7 January build, it should work.','',0,'mA==','3011do7w',1,0,'',2,0,0),(6346,1483,1,2,0,'87.218.146.84',1138867821,1,0,1,1,1,1,'','','Gerry,\n\nThanks for your feedback,','',0,'mA==','2u2lziue',1,0,'',2,0,0),(6347,1520,20,29,0,'87.7.230.70',1138869845,1,0,1,1,1,0,'','Diritti di Administrator su sistemi NT based','Salve,\nsapete se esiste un sistema per capire se l\'utente che sta utilizzando il computer ha i diritti di Administrator ?\n\nHo la necessità di installare una stampante virtuale dal mio applicativo, tuttavia per farlo devo avere i diritti di amministratore su sistemi NT/2000/XP. Vorrei quindi avvisare l\'utente dell\'impossibilità di installarla nel caso in cui abbia un accesso Guest o comunque senza privilegi di amministratore.\n\nGrazie in anticipo\n\nSaluti\n\nMarco','',0,'mA==','10304zly',1,0,'',29,0,0),(6348,1508,3,330,0,'217.37.54.49',1138870718,1,0,1,1,1,0,'','','Antonio\n\nthe stack problems were fixed by the new libs that you sent me.\n\nI have posted this problem in the xharbour forums and Marcelo has reported that it works fine without fivewin\n\nAny other ideas\n\nPeter','',0,'mA==','3o9j2fe3',1,0,'',330,0,0),(6349,1521,3,49,0,'62.13.172.78',1138873794,1,0,1,1,1,0,'','To Antonio','Why wbrowse of fw not have the header highliths ( XP theme) ?\nIt is very difficul to make it ?\n\nRegards\nsilvio','',0,'mA==','3r3cc3ny',1,0,'',49,0,0),(6350,1474,6,49,0,'62.13.172.78',1138874015,1,0,1,1,1,0,'','','Hernan,\ndon\'t forget  to create on new release of  wbrowse class header highlight ( XP theme) ...\n\nRegards','',0,'mA==','3mxpj04w',1,0,'',49,0,0),(6351,1489,20,49,0,'62.13.172.78',1138874474,1,0,1,1,1,0,'','','Ho risolto.\nNon posso fare niente .\nHo due versioni della classe rtf una di OZS ( prima della litigata con linares)  e l\'altra quella della ultima versione di fw.\nQuindi il richpad funzionerebbe anche con l\'anteprima di stampa mentre la seconda ha solo la stampa diretta.\nHo provato ad inserire solo il metodo dell\'anteprima e compilare il tutto ovviamente inserendo la caase di anteprima che non è altro che una rprevie.\nnon si compila perchè non trova queste funzioni .\n[code:29f0i2ki]Error&#58; Unresolved external \'_HB_FUN_PAGEGETMARGINS\' referenced from C&#58;\\WORK\\PRG\\PROVARTF\\OBJ\\RICHPREV&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_PRNGETPAGENUMS\' referenced from C&#58;\\WORK\\PRG\\PROVARTF\\OBJ\\RICHPREV&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_PRNGETCOLLATE\' referenced from C&#58;\\WORK\\PRG\\PROVARTF\\OBJ\\RICHPREV&#46;OBJ[/code:29f0i2ki]\n\nsapete qualcosa in merito ?','',0,'AIA=','29f0i2ki',1,0,'',49,0,0),(6352,1521,3,2,0,'87.218.146.223',1138874662,1,0,1,1,1,1,'','','Silvio,\n\nIts on our to-do list. Its not so difficult, but we had no time yet to implement it.','',0,'AIA=','ec0izz8k',1,0,'',2,0,0),(6353,1522,3,2,0,'87.218.146.223',1138874924,1,0,1,1,1,1,'','Dialogs transparency - beta testers required','The new transparency feature of dialogboxes (so you can use your own bitmaps as the background) is ready to be tested, before we deliver the FWH February build.\n\nIf you are a FTDN user, or you are using FWH 2.7 January, and if you are interested in testing it, then please request it. We will stop accepting beta testers once there are enough.\n\nTo use this new feature is as easy as:\n[code:1o28tcc3]\n   DEFINE BRUSH oBrush RESOURCE &quot;Sky&quot;\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot; BRUSH oBrush TRANSPARENT\n\n   &#46;&#46;&#46;\n[/code:1o28tcc3]\nso simple! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks!','',0,'AIA=','1o28tcc3',1,0,'',2,0,0),(6354,1376,20,49,0,'62.13.172.78',1138875105,1,0,1,1,1,0,'','','una domandina semplice semplice :\nho visto in un programma creato con c3  che con un bottone poteva settare lo stile di XP oppure no.\n\nE\' possibile farlo anche con xharbour ?\n\nquesto è il codice del metodo button in c3\n\n\n [code:3ouel0g5]METHOD Button1OnClick&#40; oSender &#41; CLASS TForm1\n\n   static bThemed &#58;= &#46;T&#46;\n\n   bThemed &#58;= !bThemed\n   &#58;&#58;Caption &#58;= If&#40; bThemed, &quot;Con&quot;, &quot;Sin&quot; &#41; + &quot; temas&quot;\n   &#58;&#58;Themed &#58;= bThemed\n   AEval&#40; &#58;&#58;Controls, &#123; | oControl | oControl&#58;Themed &#58;= bThemed, ;\n          AEval&#40; oControl&#58;Controls, &#123; | oControl | oControl&#58;Themed &#58;= bThemed &#125; &#41;                 &#125; &#41;\n\nreturn[/code:3ouel0g5]\n\ncome possiamo farlo anche con xharbour ?','',0,'AIA=','3ouel0g5',1,0,'',49,0,0),(6355,1523,6,2,0,'87.218.146.223',1138875301,1,0,1,1,1,1,'','Transparencia en diálogos - beta testers','La nueva capacidad de los diálogos de usar bitmaps como fondo está preparada para probarla a fondo, antes de que distribuyamos el build de Febrero de FWH.\n\nSi eres usuario de FTDN, ó usuario de FWH 2.7 Enero, y estás interesado en probarlo ya, por favor solicítalo. Dejaremos de aceptar solicitudes una vez haya un numero suficiente de probadores.\n\nPara usar esta nueva característica es tan simple como:\n[code:td82qxzi]\n   DEFINE BRUSH oBrush RESOURCE &quot;Sky&quot;\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot; BRUSH oBrush TRANSPARENT\n\n   &#46;&#46;&#46;\n[/code:td82qxzi]\nAsí de sencillo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nGracias!','',0,'AIA=','td82qxzi',1,0,'',2,0,0),(6356,1522,3,195,0,'62.38.104.88',1138878126,1,0,1,1,1,0,'','','OK Antonio  \n\nLet the beta testers show begin!!! <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nI\'m  interesting to be beta tester . Im waiting your answer into  my private mail. \n\nGreetings\nDionisis <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','y1noltx5',1,0,'',195,0,0),(6357,1523,6,362,0,'200.168.52.156',1138878254,1,0,1,1,1,1,'','','Antonio, y para los Usuários de Fivewin 2.7 for [x]Harbour Version November / 2005?','',0,'','o8dsgepl',1,0,'',362,0,0),(6358,1489,20,6,0,'87.1.198.143',1138879573,1,0,1,1,1,1,'','','Sono tre funzioni presenti nella printdc.c dell\'attuale versione delle FWH.\n\nEMG','',0,'','2ag5qn1a',1,0,'',6,0,0),(6359,1497,3,26,0,'193.77.20.136',1138880356,1,0,1,0,1,1,'','','WOOHOO!\n\nI\'ve converted my app again (this time to xHarbour 0.99.51 ;),\ndownloaded latest xHarbour CVS with <!-- m --><a class=\"postlink\" href=\"http://www.tortoisecvs.org\">http://www.tortoisecvs.org</a><!-- m -->\nand compiled hbzip.lib with MSVC. \nIt seems that I can finally create and extract ZIP files ...\n\nRoman\n\nP.S. I have again problems with RDSADS.LIB and ACE32.LIB with\nxHarbour, but I hope I will tame them ...\n\nEDIT: May I assume that final FWPPC will work with xHarbour, too?','',0,'','36kfd4b0',1,0,'',26,0,0),(6360,1522,3,26,0,'193.77.20.136',1138880790,1,0,1,1,1,1,'','','Hello!\n\nI\'m willing to beta test this feature!\n\nRoman','',0,'','2x81miu5',1,0,'',26,0,0),(6361,1523,6,431,0,'200.82.239.43',1138882328,1,0,1,1,1,0,'','Mario Gonzalez Desde Venezuela','Estoy desarrollando en estos momentos con el ultimo FTDN pudiera servir de betatester \n\nMario Gonzalez Venezuela.','',0,'','2zqwgl0f',1,0,'',431,0,0),(6362,1524,7,262,0,'83.97.168.83',1138883774,1,0,1,1,1,1,'','Clausula Font en los button de recursos','Creo que sería facil implementar la clausula font en los botones de recursos \nya que el btn:setfont( ofont) funciona perfectamente .\nSaludso.','',0,'','147be0vk',1,0,'',262,0,0),(6363,1511,6,415,0,'200.119.101.192',1138884376,1,0,1,1,1,0,'','','Leandro:\nUn pequeño detalle en la respuesta que te da Armando:\n\nsi es un campo caracter tienes que convertirlo primero a un campo numerico y posteriormente aplicas el strzero\n\nmicampo:=\"12345    \"\n\nnVar:=STRZERO(VAL(micampo),15)\n\nSaludos\n\nMauricio Arevalo\nSISTEMAS HYM PLUS\nBogota DC. (Colombia)','',0,'','7mv0cdz8',1,0,'',415,0,0),(6364,1525,20,125,0,'213.140.6.105',1138885918,1,0,1,1,1,0,'','Se non voglio piu\' il preview?','Salve,\nreport omio ... preview\n\ncolumn tilte ....\n\nqui voglio disabilitare il preview: come faccio ?\n\nactivare report omio ....\n\n\nGrazie','',0,'','21p6ejrn',1,0,'',125,0,0),(6365,1497,3,2,0,'87.218.146.217',1138886157,1,0,1,1,1,1,'','','Roman,\n\n&gt; It seems that I can finally create and extract ZIP files ... \n\ngood!\n\n&gt; May I assume that final FWPPC will work with xHarbour, too?\n\nyes, probably <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2z6muma5',1,0,'',2,0,0),(6366,1526,6,432,0,'201.217.179.164',1138888130,1,0,1,1,1,1,'','Saludo de Uruguay','Hola, soy un nuevo usuario de Fivewin de URUGUAY, y desearía contactarme con otros programadores de acá, espero saludos.','',0,'','2vwekxbc',1,0,'',432,0,0),(6367,1526,6,2,0,'87.218.146.217',1138890120,1,0,1,1,1,1,'','','Hola José,\n\nBienvenido al foro!','',0,'','1yushaf3',1,0,'',2,0,0),(6368,1511,6,228,0,'201.245.222.85',1138890757,1,0,1,1,1,1,'','Gracias por sus respuestas','Definitivamente muchas gracias por toda la ayuda prestada. Tendre en cuenta las respuestas.','',0,'','1m17vwo6',1,0,'',228,0,0),(6369,1526,6,228,0,'201.245.222.85',1138890841,1,0,1,1,1,1,'','Saludos?','José cualquier cosa que necesites, y este dentro de mis posibilidades con gusto de ayudare. No en un Uruguay pero si aqui desde Colombia.','',0,'','105bielz',1,0,'',228,0,0),(6370,1523,6,228,0,'201.245.222.85',1138891121,1,0,1,1,1,1,'','Yo te puedo ayudar.','Yo estoy compilado con fw 2.7 version Enero de 2006. Si quieres te puedo ayudar.','',0,'','2n99r5q8',1,0,'',228,0,0),(6371,1503,6,228,0,'201.245.222.85',1138891564,1,0,1,1,1,1,'','Cambio variables a clase','Amigo, como vas?\n\nAmigo no se si tu programa esta ya desarrollando por completo o estas empezando a desarrollar. Pero como consejo te diria que pases todas tus variables públicas a una clase. A mi me a servido mucho si quieres mandame un correo y te doy ejemplo. \n\nPara mi funciona mejor que las PUBLIC','',0,'','pxq48b8s',1,0,'',228,0,0),(6372,1523,6,328,0,'200.12.61.91',1138891769,1,0,1,1,1,0,'','','Antonio, tambien pregunto:\n[b:1u6awe31]Y para los usuarios de FW2.7 Diciembre 2005[/b:1u6awe31]\npueden hacer las pruebas ??\n\nSaludos,\n\nCarlos Sincuir','',0,'QA==','1u6awe31',1,0,'',328,0,0),(6373,1525,20,6,0,'87.1.198.143',1138892677,1,0,1,1,1,1,'','Re: Se non voglio piu\' il preview?','Il metodo più semplice, secondo me, è questo:\n\n[code:q005zyk0]IF MiaCondizionePerIlPreview&#40;&#41;\n    REPORT oRpt &#46;&#46;&#46; PREVIEW\nELSE\n    REPORT oRpt &#46;&#46;&#46;\nENDIF[/code:q005zyk0]\n\nEMG','',0,'AIA=','q005zyk0',1,0,'',6,0,0),(6374,1511,6,106,0,'85.34.123.169',1138893072,1,0,0,1,1,1,'','','Puedes tambien hacerlo asi:\n\n\ncValor := PADL( nValor, 15, \"0\" )\n\n\nSaludos','',0,'AIA=','2vuk4skn',1,0,'',106,0,0),(6375,1527,6,228,0,'201.245.222.85',1138893288,1,0,1,1,1,1,'','Filtros........?','Antonio en un mensaje anterior le sugerias a un colega que no usara la instrucción:\n\nSET FILT FILT TO\n\nque recomiendas para dejar de usar esta instrucción o por cual instrucción la puedo cambiar.','',0,'AIA=','t1wsz3p2',1,0,'',228,0,0),(6376,1525,20,1,0,'81.208.36.50',1138893794,1,0,1,1,1,0,'','','Troppo semplice cosi\'.\nPensavo si potesse fare cosi\':\n\nreport oRep ...\n.\n.\nif condizione_esterna_durante_loop_del_report\n orep:lpreview:=.f.\nendif\n.\n.\n.\nfine report','',0,'AIA=','1xapiou2',1,0,'',1,0,0),(6377,1521,3,49,0,'62.13.172.78',1138894336,1,0,1,1,1,0,'','','thanks Antonio,\nI want ask you another question :\nOn one sample compiled with C3 I saw it is possible change the theme of a dialog pressing a button.\nIt is possible also on (x) harbour  ?\n\nhere i can post the code of the button ( sample of C3) \n[code:2npq1ti6]METHOD Button1OnClick&#40; oSender &#41; CLASS TForm1\n\n   static bThemed &#58;= &#46;T&#46;\n\n   bThemed &#58;= !bThemed\n   &#58;&#58;Caption &#58;= If&#40; bThemed, &quot;Con&quot;, &quot;Sin&quot; &#41; + &quot; temas&quot;\n   &#58;&#58;Themed &#58;= bThemed\n   AEval&#40; &#58;&#58;Controls, &#123; | oControl | oControl&#58;Themed &#58;= bThemed, ;\n          AEval&#40; oControl&#58;Controls, &#123; | oControl | oControl&#58;Themed &#58;= bThemed &#125; &#41;                 &#125; &#41;\n\nreturn[/code:2npq1ti6]\n\nit change the dialog theme and all the controls \nI think there is a function also in (x) harbour to make it ...\n\nRegards\nsilvio\n[/code]','',0,'AIA=','2npq1ti6',1,0,'',49,0,0),(6378,1525,20,6,0,'87.1.198.143',1138894444,1,0,1,1,1,1,'','','No, non c\'è nessuna DATA lPreview né in TReport né in TPrinter.  Ho provato a smanettare un po\' con TReport:lScreen, TReport:lPrinter e TReport:oDevice:lMeta ma non ho ottenuto niente di buono. Probabilmente c\'è qualche altro modo ma io non lo conosco, mi dispiace.\n\nEMG','',0,'AIA=','36g5mdcn',1,0,'',6,0,0),(6379,1489,20,49,0,'62.13.172.78',1138894538,1,0,1,1,1,0,'','','strano dovrebbe prenderle ....allora','',0,'AIA=','84f6kn0r',1,0,'',49,0,0),(6380,1522,3,15,0,'203.73.90.168',1138894627,1,0,1,1,1,0,'','','Hello Antonio,\n\nMay I join this plan?\n\nRichard','',0,'AIA=','15nya67a',1,0,'',15,0,0),(6381,1523,6,28,0,'213.27.201.254',1138896246,1,0,1,1,1,0,'','','Hola\n\nEstaba pensando a este respecto que le podrías añadir una propiedad a los controles para que se pintasen trasparentes.\n\n¿qué tal?\n\nUn saludo','',0,'AIA=','3npyg3qk',1,0,'',28,0,0),(6382,1509,6,28,0,'213.27.201.254',1138896353,1,0,1,1,1,0,'','','Si en vez de estar corriendo estuviese parada\n¿sería mas fácil matarla?\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'AIA=','3gvgde7m',1,0,'',28,0,0),(6383,1509,6,52,0,'200.82.64.51',1138896812,1,0,1,1,1,1,'','','Muchas gracias,\n\nCaso cerrado.','',0,'AIA=','6dr0yj0m',1,0,'',52,0,0),(6384,1489,20,49,0,'62.13.172.78',1138896924,1,0,1,1,1,0,'','','le funzioni sono state chiamate in un altro modo \nho dovuto sotituire prnget margins perchè non c\'è lafunzione \nadesso l\'anteprima dell\'rtf funziona egregiamente  sono che i margini non sono stati settati come scritto sopra.\nMi facciouna captina sul file per vedere se posso modificare questo inconveniente e vi faccio sapere: appena finito vi posto i files.\n\nsilvio','',0,'AIA=','1c8kwgjc',1,0,'',49,0,0),(6385,1489,20,49,0,'62.13.172.78',1138897004,1,0,1,1,1,0,'','','avete un esempio di rtfmerge per caso ?','',0,'AIA=','2smvysm2',1,0,'',49,0,0),(6386,1527,6,138,0,'201.133.73.175',1138898168,1,0,1,1,1,1,'','','Si estas usando FWH y El servidor local de ADS, le funcion DBSETFILTER es IMPRESIONANTEMENTE RAPIDA. Te puedo decir que es 1000 o 1500 veces mas rapida que el SET FILTER convencional, solo que hay que saber utilizarla.\n\nPor ejemplo, el uso clasico en Clipper/Harbour seria asi:\n\n[code:1dc3yap6]nEdad &#58;= 25\nSET FILTER TO EDAD &gt; nEdad\nGO TOP[/code:1dc3yap6]\n\nEn ADS esto no se puede hacer porque ADS no reconoce el valor de \"nEdad\" por estar fuera del ambito de trabajo del servidor, lo que hacemos entonces, es convertir la expresion de filtro en una expresion \"textual\" de esta manera:\n\n[code:1dc3yap6]nEdad &#58;= 25\n\ncFiltro &#58;= &quot;EDAD &gt;=&quot;+ALLTRIM&#40;STR&#40;nEdad&#41;&#41;\nbFitro &#58;= &quot;&#123;||&quot;+cFiltro+&quot;&#125;&quot;&#41;\nDBSETFILTER&#40;&amp;bFiltro,cFiltro&#41;\nDBGOTOP&#40;&#41;[/code:1dc3yap6]\n\nEl resultado es alucinantemente rapido. ADS internamente convierte las expresiones de filtro en queries SQL y la velocidad del filtraje es tremendamente rapida.','',0,'AIA=','1dc3yap6',1,0,'',138,0,0),(6387,1523,6,2,0,'87.218.146.96',1138899825,1,0,1,1,1,1,'','','Carlos,\n\nSi, diciembre también.','',0,'AIA=','20lz0k0f',1,0,'',2,0,0),(6388,1523,6,2,0,'87.218.146.96',1138899865,1,0,1,1,1,1,'','','Paco,\n\nSe les ha añadido una nueva DATA lTransparent','',0,'AIA=','3al9c78g',1,0,'',2,0,0),(6389,1521,3,2,0,'87.218.146.96',1138899953,1,0,1,1,1,1,'','','Silvio,\n\nYes the themes API provides a function to enable/disable themes for a hWnd. We have not implemented it yet.','',0,'AIA=','2edeqa7e',1,0,'',2,0,0),(6390,1522,3,2,0,'87.218.146.96',1138900066,1,0,1,1,1,1,'','','Please send me a private email specifying:\n\n* FWH build you are using.\n* Purchase date.\n* Harbour or xHarbour use.\n* Borland, Microsoft or xHB use.\n\nThanks,','',0,'AIA=','2yy0gnv6',1,0,'',2,0,0),(6391,1523,6,23,0,'80.58.44.235',1138900080,1,0,1,1,1,1,'','','Sin problemas para \"beta-testear\" los diálogos transparentes.','',0,'AIA=','1fu8pubd',1,0,'',23,0,0),(6392,1472,2,375,0,'84.122.118.216',1138900106,1,0,1,1,1,1,'','','No hay que buscarle tres pies al gato, los manuales de programación dicen que siempre hay que buscar velocidad y ahorro de memoria, o elejir uno de los dos cuando no se no se pueden cumplir ambos.\nDe lo que se olvidan es de nuestra comodidad y de la claridad del código, y reza por no saltarte un paréntesis.\nEn el caso de tu trozo de codigo, lo mas convenientes es un IF / ELSE / ENDIF sin lugar a dudas. Otras veces  serán más adecuados los DO CASE. Otras veces te convendrá encapsular el código vía IF() y CodeBloks. Busca siempre lo que más cómodo te resulte y no te calientes la cabeza.\nUn saludo....','',0,'AIA=','3fcmj18l',1,0,'',375,0,0),(6393,1518,6,138,0,'201.133.73.175',1138900154,1,0,1,1,1,1,'','','Giancarlo.... por lo que veo que has apuntado al Club de Panas de Polar....jajajaja...\n\nVeamos te faltan un monton de DLLs, las que yo distribuyo son:\n\nCrpaig80.dll\ncrpe32.dll\nimplode.dll\nmfc42.dll\nmsvcirt.dll\nmsvcp60.dll\np2bxbse.dll\nu2fhtml.dll\nu2fodbc.dll\nu2rdef.dll\nu2frec.dll\nu2frtf.dll\nu2fsepv.dll\nu2ftextd.dl\nu2fwks.dll\nu2wordw.dll\nu2fxls.dll','',0,'AIA=','38r3hyvh',1,0,'',138,0,0),(6394,1523,6,2,0,'87.218.146.96',1138900225,1,0,1,1,1,1,'','','Por favor enviadme un email con los siguientes datos:\n\n* Build de FWH que usais.\n* fecha de compra (ó de actualización)\n* uso de Harbour ó xharbour\n* uso de Borland, Microsoft ó xHB\n\ngracias,','',0,'AIA=','2yahehpz',1,0,'',2,0,0),(6395,1473,3,167,0,'72.161.230.159',1138900563,1,0,1,1,1,1,'','','I have done this in the past.  Each control needed to be \"refreshed\" in the initialization of the ::activate()\n\nThe reason I did this was due to many controls / folder pages, etc, which were created from data driven applications.  The computers were much slower ( 386 speed ) and this saved lots of overhead.\n\nUpon \'re-activation\' the controls worked fine, but, my dialog\'s background was \"transparent\".  \n\nNot an issue anymore - computers are much faster and no problem saving data-driven parms in an array and define / activate each time needed.\n\nThings have come a long way, haven\'t they?','',0,'AIA=','2po5gfju',1,0,'',167,0,0),(6396,1473,3,6,0,'82.61.68.84',1138900939,1,0,1,1,1,1,'','','I think it is not correct to reuse an ended DIALOG. You can hide it instead.\n\nEMG','',0,'AIA=','210r4nvl',1,0,'',6,0,0),(6397,1509,6,52,0,'200.82.64.51',1138901123,1,0,1,1,1,1,'','','TerminateA... esta dentro de los encabezados del FWH o en que modulo. porque aca trate de buscarla y no estan en ninguno.\n\nGracias','',0,'AIA=','jq9ivw3i',1,0,'',52,0,0),(6398,1488,3,67,0,'62.235.26.97',1138901371,1,0,1,1,1,0,'','','Antonio\n\nI am not :\n\nType: C &gt;&gt;&gt;xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:\"B:\\MCLS\\XhbFeb\\lib\" -LIBPATH:\"B:\\MCLS\\XhbFeb\\c_lib\" -LIBPATH:\"B:\\MCLS\\XhbFeb\\c_lib\\win\"  -LIBPATH:\"c:\\FWH\\lib\" \"objx\\testrtf.obj\" \"objx\\testrtf.res\" C:\\xHBFeb\\c_lib\\Win\\version.lib FiveHCM.lib FiveHMX.lib OptG.lib xhb.lib dbf.lib ntx.lib cdx.lib rmdbfcdx.lib activex.lib crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:\"testrtf.exe\"&lt;&lt;&lt;\n\nc:\\fwh is where the januari build is located','',0,'AIA=','1685c6fp',1,0,'',67,0,0),(6399,1488,3,67,0,'62.235.26.97',1138901605,1,0,1,1,1,0,'','','Or with borland :\n\nC:\\FWH\\SAMPLES\\Obj\\testrtf.Obj +\nD:\\BCC55\\Lib\\C0W32.OBJ, +\nC:\\FWH\\SAMPLES\\testrtf.Exe, +\n, +\nD:\\xHarbour\\Lib\\dbffpt.lib +\nD:\\xHarbour\\Lib\\optgui.lib +\nD:\\xHarbour\\Lib\\rtl.lib +\nD:\\xHarbour\\Lib\\vm.lib +\nD:\\xHarbour\\Lib\\gtwin.lib +\nD:\\xHarbour\\Lib\\lang.lib +\nD:\\xHarbour\\Lib\\macro.lib +\nD:\\xHarbour\\Lib\\common.lib +\nD:\\xHarbour\\Lib\\pp.lib +\nD:\\xHarbour\\Lib\\rdd.lib +\nD:\\xHarbour\\Lib\\dbfntx.lib +\nD:\\BCC55\\Lib\\CW32.LIB +\nD:\\BCC55\\Lib\\IMPORT32.LIB +\nD:\\xHarbour\\Lib\\dbfcdx.lib +\nC:\\FWH\\LIB\\Fivehc.lib +\nC:\\FWH\\LIB\\Fivehx.lib +\nD:\\xHarbour\\Lib\\hbsix.lib,, +\nC:\\FWH\\SAMPLES\\Resource\\testrtf.Res','',0,'AIA=','16qnnvqn',1,0,'',67,0,0),(6400,1528,2,375,0,'84.122.118.216',1138901813,1,0,1,1,1,1,'','16 bits tranparentes','Qué embidia de diálogos tranparentes con los 32 bits. Menos mal que con 16 bits tambien se puede: Ahí va una clase que ayyuda\n\n#Include \"FiveWin.ch\"\n*#Include \"MisFunc.ch\"\n\n#define GWL_STYLE        -16\n\nCLASS TDIAG OF TDIALOG\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   DATA lSomb		AS LOGICAL	INIT .F.\n   DATA hFond,hPen,nDif\n\n   METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow )\n   METHOD Initiate( hWndFocus, hWnd )\n   METHOD Paint()\n   METHOD StartPaint()\n   METHOD PintSombra()\n   METHOD Destroy()\n\nENDCLASS\n\n\nMETHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) CLASS TDIAG\n   IF nClrShadow # NIL\n      ::lSomb := .T.\n      ::hPen  := CreatePen( 0,1,nClrShadow )\n   ENDIF\n   DEFINE BRUSH ::oBrush NULL\nRETURN Super:Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen )\n\nMETHOD Initiate( hWndFocus, hWnd ) CLASS TDIAG\n   LOCAL lFocus := Super:Initiate( hWndFocus, hWnd )\n   *\n   ::nDif := IF(lAnd(GetWindowLong(::hWnd,GWL_STYLE),WS_BORDER),1,0)\n   ::bStart := { || ::StartPaint() }\nRETURN lFocus\n\nMETHOD Paint() CLASS TDIAG\n   DrawBitmap( ::hDc, ::hFond, -::nDif, -::nDif )\n   IF ::bPainted # NIL\n      EVAL(::bPainted,::hDc)\n   ENDIF\nRETURN NIL\n*\nMETHOD StartPaint() CLASS TDIAG\n    ::GetDc()\n      ::PintSombra(::hDc)\n    ::ReleaseDc()\n   IF ::bPainted # NIL\n   ENDIF\n    ::hFond := WndBitmap(::hWnd)\nRETURN NIL\n*\nMETHOD PintSombra(hDc) CLASS TDIAG\n   LOCAL hOldP := SelectObject( hDc,::hPen )\n   LOCAL nCont1,nCont2 := 0\n   LOCAL nDesde := 2\n   LOCAL nHasta := ::nWidth+::nHeight-2\n   *\n   FOR nCont1 = nDesde TO nHasta STEP 2\n       nCont2 := nCont1 - ::nHeight\n       MoveTo(hDc,nCont1,0)\n       LineTo(hDc,nCont2,::nHeight)\n       MoveTo(hDc,nCont2,0)\n       LineTo(hDc,nCont1,::nHeight)\n   NEXT\n   SelectObject( hDc,hOldP )\nRETURN NIL\n\nMETHOD Destroy() CLASS TDIAG\n   DeleteObject(::hFond)\n   DeleteObject(::hPen)\nRETURN NIL\n\nPor favor, si alguien la perfecciona, le agradecería que me mandara el nuevo código a mi e-mail (<!-- e --><a href=\"mailto:ramosframit@ono.com\">ramosframit@ono.com</a><!-- e -->)\n\nY EL FONDO NO SE BORRA CUANDO SE REFRESCA. El único inconveniente es que sólo se puede emplear con diálogos estáticos.\n\n[img][url=http&#58;//imageshack&#46;us:1t5yujp4][img]http://img72.imageshack.us/img72/5411/ejemplo10dn.jpg[/img][/url:1t5yujp4][/img]\n\nEn este ejemplo, lo uso para la soombra del diaologo de confirmacion\n\n[img][url=http&#58;//imageshack&#46;us:1t5yujp4][img]http://img72.imageshack.us/img72/2374/ejemplo20lx.jpg[/img][/url:1t5yujp4][/img]\n\nEn este otro, para la sombra del diálogo naranja, y para el menu que hay por detrástranlucido.','',0,'GA==','1t5yujp4',1,0,'',375,0,0),(6401,1473,3,303,0,'68.7.28.54',1138901908,1,0,1,1,1,0,'','','Enrico,\n\nI agree, but I think he is just saying that he is storing the parameters in an array, then reusing the parameters to define and acitvate the dialog each time. I guess this would be no different than rereading them from a resource file.\n\nDon, am I right?\n\nJames','',0,'GA==','hud08wup',1,0,'',303,0,0),(6402,1519,3,67,0,'62.235.26.97',1138901954,1,0,1,1,1,0,'','','Where is it documented ? It was present in fw26 , AND ALSO IN THE DOCUMENTATION FROM 2.7\n\nI was so lucky that after the instalation from the new release mine client saw this error while i was there , if not i had maybe to return ( 100 km)\n\nFrank','',0,'GA==','11aftky7',1,0,'',67,0,0),(6403,1519,3,2,0,'87.218.146.96',1138902212,1,0,1,1,1,1,'','','Frank,\n\nOur apologies if we have not documented it. \n\nJust search in all FWH PRGs for such name and you will see it is not there.','',0,'GA==','2w2r8ajb',1,0,'',2,0,0),(6404,1488,3,2,0,'87.218.146.96',1138902281,1,0,1,1,1,1,'','','Frank,\n\nCould you please use samples\\buildx.bat just to test this sample ? Thanks.','',0,'GA==','dfau6flq',1,0,'',2,0,0),(6405,1509,6,2,0,'87.218.146.96',1138902340,1,0,1,1,1,1,'','','Gustavo,\n\nusa #pragma BEGINDUMP ... y el código en C que te he indicado.','',0,'GA==','1x1t65ps',1,0,'',2,0,0),(6406,1529,6,331,0,'201.154.164.104',1138902521,1,0,1,1,1,0,'','Que DLL\'s necesita MsComm32.OCX','Saludos\n\nQue Dll\'s necesita este control Active-X para poder funcionar correctamente.\n\nAgradecere mucho su apoyo\n\n\nArturo.','',0,'GA==','272vzrsf',1,0,'',331,0,0),(6407,1530,3,394,0,'207.219.124.134',1138905682,1,0,1,1,1,0,'','Problem new fwh and xharbour will not compile Need Help ???','I installed the latest FWH and xharbour from xharbour.com and can no longer compile any samples. (I also recompiled the fivemx.lib)\nI receive the following error log.\n\nWhat am I doing wrong??\n\nType: C &gt;&gt;&gt;xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:\"C:\\xHB\\lib\" -LIBPATH:\"C:\\xHB\\c_lib\" -LIBPATH:\"C:\\xHB\\c_lib\\win\"  -LIBPATH:\"C:\\fwh\\libx\" -LIBPATH:\"C:\\fwh\\lib\" \"bmp.obj\" FiveHCM.lib FiveHMX.lib OptG.lib xhb.lib dbf.lib ntx.lib cdx.lib rmdbfcdx.lib activex.lib crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:\"bmp.exe\"&lt;&lt;&lt;\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_TREBAR\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_TTOOLBAR\'.\n\nxLINK: fatal error: 2 unresolved external(s).\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: bmp.exe&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1263&lt;&lt;&lt;','',0,'GA==','3nhfxuci',1,0,'',394,0,0),(6408,1473,3,167,0,'72.161.230.159',1138906429,1,0,1,1,1,1,'','','Exactly - \n\nFor me, easier to store dialog parms in a database and build dynamically vs. create resource, manually code controls to variables. etc.  Using a data dictionary for me, is cleaner - only one input program, only one browse/update program, etc.','',0,'GA==','4p8gezmz',1,0,'',167,0,0),(6409,1531,3,299,0,'69.65.88.121',1138906904,1,0,1,0,1,0,'','DLL32 STATIC FUNCTION...','Hi.\n\nI can\'t see why when trying to compile these three lines below I get the errors I show further down:\n\nDLL32 STATIC FUNCTION GetMenu( hwnd AS LONG ) AS LONG PASCAL LIB \"USER32\"\n\nDLL32 STATIC FUNCTION GetMenuInfo( hMenu AS LONG, cMenuInfo AS LPSTR) AS LONG PASCAL FROM \"GetMenuInfo\" LIB \"USER32\"\n\nDLL32 Static Function SetMenuInfo( hMenu AS LONG, cMenuInfo AS LPSTR) AS LONG PASCAL FROM \"SetMenuInfo\" LIB \"USER32\"\n\n\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	f:\\xharbour_0.99\\bin\\harbour.exe -i..\\shared;f:\\fwh\\include;f:\\fivewin\\include;f:\\xharbour_0.99\\include -n -m -w -es2 -gc0 ..\\shared\\shared.prg -o\\mp\\Reports\\shared.xhrb\nxHarbour Compiler build 0.99.2 (SimpLex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'..\\shared\\shared.prg\'...\n\n ..\\shared\\shared.prg(2860) Warning W0001  Ambiguous reference: \'LONG\'\n\n..\\shared\\shared.prg(2861) Warning W0001  Ambiguous reference: \'LONG\'\n\n..\\shared\\shared.prg(2862) Warning W0001  Ambiguous reference: \'LONG\'\n\n..\\shared\\shared.prg(2863) Warning W0001  Ambiguous reference: \'LONG\'\n\n..\\shared\\shared.prg(2864) Warning W0001  Ambiguous reference: \'LONG\'\n\n..\\shared\\shared.prg(2865) Warning W0001  Ambiguous reference: \'LONG\'\n\n..\\shared\\shared.prg(2866) Warning W0001  Ambiguous reference: \'LONG\'\n\n..\\shared\\shared.prg(2891) Error E0030  Syntax error: \"parse error at \'STATIC\'\"\n\n..\\shared\\shared.prg(2893) Error E0030  Syntax error: \"parse error at \'STATIC\'\"\n\n..\\shared\\shared.prg(2895) Error E0030  Syntax error: \"parse error at \'STATIC\'\"\n\n3 errors\n\nNo code generated\n\n** error 1 ** deleting \\mp\\Reports\\shared.xhrb\n\n\nCan someone help?\n\nthank you,\n\n\nReinaldo.','',0,'GA==','2nyl50l5',1,0,'',299,0,0),(6410,1473,3,303,0,'68.7.28.54',1138907111,1,0,1,1,1,0,'','','Don,\n\nI am curious as to how you design the dialogs in the first place. Do you design them in Workshop or other, then read the resource file to create your database, or how?\n\nJames','',0,'GA==','ehr8fxla',1,0,'',303,0,0),(6411,1531,3,6,0,'82.61.68.84',1138907154,1,0,1,1,1,1,'','Re: DLL32 STATIC FUNCTION...','Try adding\n\n#include \"Dll.ch\"\n\nEMG','',0,'GA==','mby047m7',1,0,'',6,0,0),(6412,1473,3,6,0,'82.61.68.84',1138907386,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2japoaec]Enrico,\n\nI agree, but I think he is just saying that he is storing the parameters in an array, then reusing the parameters to define and acitvate the dialog each time. I guess this would be no different than rereading them from a resource file.\n\nDon, am I right?\n\nJames[/quote:2japoaec]\n\nIt is still not correct. Ending a dialog means that the DialogBox Windows object is released and you can\'t use its handle anymore. If you want to use the dialog again you have to instantiate a new TDialog object.\n\nEMG','',0,'gA==','2japoaec',1,0,'',6,0,0),(6413,1473,3,6,0,'82.61.68.84',1138907643,1,0,1,1,1,1,'','','[quote=&quot;don lowenstein&quot;:1y10n8s4]Exactly - \n\nFor me, easier to store dialog parms in a database and build dynamically vs. create resource, manually code controls to variables. etc.  Using a data dictionary for me, is cleaner - only one input program, only one browse/update program, etc.[/quote:1y10n8s4]\n\nAre you saying that you issued DEFINE DIALOG etc. again with the same parameter of the first one? If yes then it\'s ok to do so. What you can\'t do is to end a dialog and then activate it again without defining it.\n\nRegarding your main problem, try to build a reduced and self-contained sample.\n\nEMG','',0,'gA==','1y10n8s4',1,0,'',6,0,0),(6414,1530,3,2,0,'87.218.146.96',1138908052,1,0,1,1,1,1,'','','Mike,\n\nIt looks as you have not included TToolBar and TRebar classes into Fivehmx.lib\n\nPlease check your make or batch file to recompile FWH PRGs.','',0,'gA==','11c8w2kg',1,0,'',2,0,0),(6415,1531,3,299,0,'69.65.88.121',1138908141,1,0,1,0,1,0,'','','Enrico;\n\nThank you for your reply.\n\nAdded the line #include \"dll.ch\" at the top of the file, but I still get the exact same errors.\n\n\nReinaldo.','',0,'gA==','3jerbkqi',1,0,'',299,0,0),(6416,1531,3,2,0,'87.218.146.96',1138908385,1,0,1,1,1,1,'','','Reinaldo,\n\nThis code compiles ok on first try with both Harbour and xharbour:\n[code:1yje2pxw]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; &quot;ok&quot; &#41;\n            \nreturn nil\n\nDLL32 STATIC FUNCTION GetMenu&#40; hwnd AS LONG &#41; AS LONG PASCAL LIB &quot;USER32&quot; \n\nDLL32 STATIC FUNCTION GetMenuInfo&#40; hMenu AS LONG, cMenuInfo AS LPSTR&#41; AS LONG PASCAL FROM &quot;GetMenuInfo&quot; LIB &quot;USER32&quot; \n\nDLL32 Static Function SetMenuInfo&#40; hMenu AS LONG, cMenuInfo AS LPSTR&#41; AS LONG PASCAL FROM &quot;SetMenuInfo&quot; LIB &quot;USER32&quot;\n[/code:1yje2pxw]\n\nPlease check that you are using the right header files, and there are no conflicts with other header files, or some defines in your app.','',0,'AIA=','1yje2pxw',1,0,'',2,0,0),(6417,1532,3,257,0,'200.162.48.2',1138908462,1,0,1,1,1,1,'','How use the SAY3D  function ???','Hi all\n\nSee Subject   <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  anybody can send me an example ???\n\n\nTks\nLaverson','',0,'AIA=','1h49l8di',1,0,'',257,0,0),(6418,1531,3,299,0,'69.65.88.121',1138909255,1,0,1,0,1,0,'','','Antonio;\n\nYou are right.  I tested a new file with your code and it did compile.   So I went back to my offending file in the project and searched for #defines that might be obstructing.  And, indeed, I found it.\n\n#define _DLL_CH\n\n\nSorry.\n\nThank you for the help.\n\n\nReinaldo.','',0,'AIA=','v1i7gwgv',1,0,'',299,0,0),(6419,1531,3,2,0,'87.218.146.96',1138910567,1,0,1,1,1,1,'','','Reinaldo,\n\nglad to know you solved it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','7znop5u3',1,0,'',2,0,0),(6420,1533,7,433,0,'216.230.150.5',1138911046,1,0,1,1,1,0,'','Información','Hola a todos, el motivo por el cual les escribo y me registre en esta pagina es porque soy programador de VFP para windows y deseo  desarrollar sistemas en pocke pc, he leido sobre FWPPC, pero deseo saber si existe algun emulador para hacer los programas en una computadora de escritorio y deahi solo pasarlas a la pocket y si las aplicaciones de pocket tienen algun limite ya sea de Registros o de memoria. por favor envienme esa info.\n\nGracias.\nSlds. <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'AIA=','3bmvgl0w',1,0,'',433,0,0),(6421,1530,3,3,0,'82.255.89.39',1138911302,1,0,1,1,1,0,'','Re: Problem new fwh and xharbour will not compile Need Help','[quote=&quot;Mike Buckler&quot;:3niyzfgw]I installed the latest FWH and xharbour from xharbour.com and can no longer compile any samples. (I also recompiled the fivemx.lib)\nI receive the following error log.\n\nWhat am I doing wrong??\n\nType: C &gt;&gt;&gt;xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:\"C:\\xHB\\lib\" -LIBPATH:\"C:\\xHB\\c_lib\" -LIBPATH:\"C:\\xHB\\c_lib\\win\"  -LIBPATH:\"C:\\fwh\\libx\" -LIBPATH:\"C:\\fwh\\lib\" \"bmp.obj\" FiveHCM.lib FiveHMX.lib OptG.lib xhb.lib dbf.lib ntx.lib cdx.lib rmdbfcdx.lib activex.lib crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:\"bmp.exe\"&lt;&lt;&lt;\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_TREBAR\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_TTOOLBAR\'.\n\nxLINK: fatal error: 2 unresolved external(s).\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: bmp.exe&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1263&lt;&lt;&lt;[/quote:3niyzfgw]\n\nMike\n\nI use latest fwh and latest xharbour.com without any problems. \n\nYou do not have to build fivehmx.lib and i would highly recommend not to do it. Just use the standards from fwh and everything will go OK. Make sure your xbp link file uses the correct fwh directory\n\nRichard','',0,'gA==','3niyzfgw',1,0,'',3,0,0),(6422,1533,7,2,0,'87.218.146.96',1138911516,1,0,1,1,1,1,'','','Kerwin,\n\nSi, existe un emulador gratuito de Microsoft que puedes usar para desarrollar en el PC tus aplicaciones para Pocket PC. Nosotros te lo proporcionamos de forma gratuita para evitarte el tener que buscarlo.\n\nEn principio no tienes limitaciones en Pocket PC, salvo las lógicas impuestas por la memoria del Pocket PC, y algunas limitaciones que posee el API de Windows Mobile. Pero en general puedes desarrollar aplicaciones de gestión muy profesionales con FWPPC y de una forma fácil y familiar al lenguaje al que estas acostumbrado, y usando DBFs, índices CDXs, etc.','',0,'gA==','1ydbbmj7',1,0,'',2,0,0),(6423,1534,3,299,0,'69.65.88.121',1138912589,1,0,1,0,1,0,'','report to excel or dbf','hi.\n\nHas any body writen code so that treport class generates either a dbf or a xls file of the same report being generated?\n\nReinaldo.','',0,'gA==','1rlvlln2',1,0,'',299,0,0),(6424,1535,3,210,0,'80.121.117.193',1138915840,1,0,1,1,1,0,'','Transparent Bitmap','Hello all,\nis there an function to draw an transparent (0,0 pixel or an other is maskcolor) bitmap on screen and printer with resizable dimensions of the bitmap. The function \"drawmasked\" are not resizeable and on printer are not shown! \n\nMany thanks\nGuenther\nMail: <!-- e --><a href=\"mailto:office@byte-one.com\">office@byte-one.com</a><!-- e -->','',0,'gA==','25or27ee',1,0,'',210,0,0),(6425,1536,1,210,0,'80.121.117.193',1138915948,1,0,1,1,1,0,'','Transparent Bitmap','Hello all,\nis there an function to draw an transparent (0,0 pixel or an other is maskcolor) bitmap on screen and printer with resizable dimensions of the bitmap. The function \"drawmasked\" are not resizeable and on printer are not shown! \n\nMany thanks\nGuenther\nMail: <!-- e --><a href=\"mailto:office@byte-one.com\">office@byte-one.com</a><!-- e -->','',0,'gA==','2soyzzht',1,0,'',210,0,0),(6426,1535,3,6,0,'82.61.68.84',1138916431,1,0,1,1,1,1,'','Re: Transparent Bitmap','Try using PalBmpDraw() function for screen.\n\nEMG','',0,'gA==','1qmb6xhn',1,0,'',6,0,0),(6427,1537,1,213,0,'72.177.228.25',1138918157,1,0,1,1,1,0,'','Detect other application running','All,\n\nHow can I detect if another program is running in Windows?  I have a few functions that I do not want my users to be able to use if a specific application is also running in Windows.  I need this to work for both FW &amp; FWH.\n\nThanks,\nRandal Ferguson','',0,'gA==','c4owcu41',1,0,'',213,0,0),(6428,1535,3,210,0,'80.121.113.218',1138918679,1,0,1,1,1,0,'','','Hello EMG, \n\"Try using PalBmpDraw() function for screen. \"\n\nThere is an parameter ltransparent in this function, but no effect!? \n\nMfG\nGuenther','',0,'gA==','81kqwx04',1,0,'',210,0,0),(6429,1538,6,255,0,'200.67.175.250',1138919069,1,0,1,1,1,1,'','PellesC - Propiedades....','Hola amigos\n\nAlguien tiene idea de como agregar propiedades\na los controles definidos por el usuario (Custom Controls)\n\nPor ejemplo:\nAgrego un custom control, lo llamo TXBrowse, pero\nahora quiero agregarle VERTICAL SCROLL, BORDER,\ny en fin, las propiedades que quiera.\n\nAlguien sabe como hacerlo ???\n\nGracias','',0,'gA==','1dt3yl4u',1,0,'',255,0,0),(6430,1521,3,49,0,'82.61.128.63',1138920888,1,0,1,1,1,0,'','','I hope put it on todo list....\n\nBest Regards','',0,'gA==','236elpte',1,0,'',49,0,0),(6431,1537,1,2,0,'87.218.146.96',1138923071,1,0,1,1,1,1,'','','Randal,\n\nYou may use GetModuleHandle( cModuleName ) --&gt; hInstance','',0,'gA==','18iowkvh',1,0,'',2,0,0),(6432,1518,6,140,0,'200.84.220.129',1138924446,1,0,1,1,1,0,'','','Hola René,\n\nSaludos, y 1Gb de Gracias por responder.\n\nJejeje... el Club de Panas Polar ha ganado un monton de fanaticos no solo aca en Venezuela sino en casi toda LatinoAmerica...\n\nRegresando al tema, la cuestion con Crystal aun sigue sin funcionar...\nCopie las DLL\'s que mencionas en:\n1) la misma carpeta de la aplicación (todas las DLL\'s)\n2) en la carpeta \\Windows\\System32 (igual, todas)\n3) y Las cr* en \\Windows\\System32 y las demas creando una carpeta \\Windows\\Crystal tal como lo hace el instalador de Crystal y que es donde vi que aloja las u2f* y otras más.\n\nEn los 3 casos deje las DLL\'s implode, mfc42, msvcirt, msvcp60 sin tocar porque ya estaban en la carpeta \\Windows\\System32 y vi que no habia diferencias con respecto a la version que reporta la ficha de propiedades.\n\nSe aceptan mas tips.','',0,'gA==','1k773koc',1,0,'',140,0,0),(6433,1516,1,74,0,'190.48.232.254',1138928820,1,0,1,1,1,1,'','','Marc:\n\n         It\'s not so complicated to do it yourself, you only have to spend some time learning a few of html, then you can do something like this:\n\nFUNCTION IMP_CAL\n\nLOCAL hFile\nLocal oWnd:=WndMain(),cfile\n\ncFile:=\"Calles\"+\".htm\"\n\nhFile:= Fcreate(\"Calles\"+\".htm\")\n\nFWrite(hFile,\"&lt;!DOCTYPE HTML PUBLIC \'-//W3C//DTD HTML 4.0 Transitional//EN\'&gt;&lt;!-- saved from url=(0056)http://www.scruz.gov.ar/licitacion/dpc/noticia.asp?id=38 --&gt;\")\nFWrite(hFile,\"&lt;HTML xmlns:v=\'urn:schemas-microsoft-com:vml\' xmlns:o=\'urn:schemas-microsoft-com:office:office\' xmlns=\'http://www.w3.org/TR/REC-html40\'&gt;&lt;HEAD&gt;&lt;TITLE&gt;&lt;/TITLE&gt;&lt;META http-equiv=Content-Type content=\'text/html; charset=windows-1252\'&gt;&lt;META content=\'Microsoft FrontPage 5.0\' name=GENERATOR&gt;\")\nFWrite(hFile,\"&lt;/HEAD&gt;&lt;BODY&gt;&lt;DIV align=center&gt;&lt;CENTER&gt;&lt;TABLE id=AutoNumber1 style=\'BORDER-COLLAPSE: collapse\' borderColor=#111111 cellSpacing=0 cellPadding=0 width=\'99%\' border=0 height=\'45\'&gt;  &lt;TBODY&gt;  &lt;TR&gt;    &lt;TD width=\'10%\' height=\'45\' rowspan=\'2\'&gt;      &lt;P&gt;\")\nFWrite(hFile,\"  &lt;IMG       src=\'logosc.bmp\'   border=0&gt;&lt;/P&gt;&lt;/TD&gt;    &lt;TD width=\'90%\' height=\'26\'&gt;      &lt;P align=center&gt;&lt;font face=\'Comic Sans MS\'&gt;SUIS GESTION&lt;/font&gt;&lt;/P&gt;&lt;/TD&gt;&lt;/TR&gt;  &lt;TR&gt;    &lt;TD width=\'90%\' height=\'19\'&gt;      &lt;p align=\'center\'&gt;&lt;SPAN style=\'COLOR: #003366\'&gt;&lt;FONT       face=\'Arial Narrow\'&gt;&lt;B&gt;&lt;FONT face=Arial size=1&gt;&lt;SPAN       style=\'COLOR: #003366; mso-bidi-font-size: 12.0pt\'&gt;MINISTERIO DE ASUNTOS       SOCIALES&lt;/SPAN&gt;&lt;/FONT&gt;&lt;/B&gt;&lt;/FONT&gt;&lt;FONT face=\'Arial Narrow\' size=2&gt;&lt;BR&gt;&lt;/FONT&gt;      &lt;FONT face=\'Arial Narrow\' size=1&gt;PROVINCIA DE       SANTA CRUZ&lt;/FONT&gt;&lt;/SPAN&gt;&lt;/TD&gt;&lt;/TR&gt;  &lt;TR&gt;    &lt;TD width=\'10%\' height=\'19\'&gt;      &amp;nbsp;&lt;/TD&gt;    &lt;TD width=\'90%\' height=\'19\'&gt;      &lt;P align=center&gt;&lt;font face=\'Arial\' size=\'2\' color=\'#003366\'&gt;\")\nFWrite(hFile,\"  &lt;a href=\'http://www.scruz.gov.ar\'&gt;www.scruz.gov.ar&lt;/a&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; &lt;/font&gt;&lt;/P&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TBODY&gt;&lt;/TABLE&gt;&lt;/CENTER&gt;&lt;/DIV&gt;&lt;HR&gt;\")\nFWrite(hFile,\"&lt;table border=\'1\' cellpadding=\'0\' cellspacing=\'0\' style=\'border-collapse: collapse\' width=\'100%\' id=\'AutoNumber2\' bordercolor=\'#FFFFFF\'&gt;\")\nFWrite(hFile,\"  &lt;tr&gt;\")\nFWrite(hFile,\"    &lt;td width=\'100%\' bordercolor=\'#FFFFFF\'&gt;\")\nFWrite(hFile,\"    &lt;p align=\'center\'&gt;&lt;u&gt;&lt;b&gt;Listado de Calles&lt;/b&gt;&lt;/u&gt;&lt;/td&gt;\")\nFWrite(hFile,\"  &lt;/tr&gt;\")\nFWrite(hFile,\"&lt;/table&gt;\")\n\nFWrite(hFile,\"&lt;/BODY&gt;&lt;/HTML&gt;\")\n\nwhile ! calles-&gt;(eof())\n      FWrite(hFile,\"&lt;div align=\'center\'&gt;\")\n    FWrite(hFile,\"&lt;center&gt;\")\n        FWrite(hFile,\"&lt;table border=\'1\' cellpadding=\'0\' cellspacing=\'0\' style=\'border-collapse: collapse\' bordercolor=\'#FFFFFF\' width=\'206\' id=\'AutoNumber1\'&gt;\")\n        FWrite(hFile,\"  &lt;tr&gt;\")\n        FWrite(hFile,\"    &lt;td width=\'46\' align=\'center\'&gt; &lt;font face=\'Arial\' style=\'font-size: 11pt\'&gt;\")\n        FWrite(hFile,CALLES-&gt;COD)\n        FWrite(hFile,\"&lt;/td&gt;\")\n        FWrite(hFile,\"    &lt;td width=\'150\'&gt;&lt;font face=\'Arial\' style=\'font-size: 11pt\'&gt; \")\n        FWrite(hFile,CALLES-&gt;DOMICILIO)\n        FwRITE(hFile,\"&lt;/td&gt;\")\n        FWrite(hFile,\"  &lt;/tr&gt;\")\n        FWrite(hFile,\"&lt;/table&gt;\")\n      calles-&gt;(dbskip())\nenddo\n\n     If IsWinNT()\n        ShellExecute( oWnd:hWnd, \"open\" , cFile , , , )\n   Else\n      WaitRun( \"Start \" + \"iexplore \"+wpathb+\"\\\" +cFile, 0 )\n   EndIf\n\nreturn .T.\n\n\nRegards,','',0,'gA==','erp0sbxs',1,0,'',74,0,0),(6434,1514,2,74,0,'190.48.232.254',1138929674,1,0,1,1,1,1,'','','Fernando:\n\n                Tambien podes comentar alguna o todas las siguientes lineas de fivewin.ch (las que no necesites en tus sistemas):\n\n//   #include \"ODBC.ch\"\n//   #include \"DDE.ch\"\n//   #include \"Video.ch\"\n//   #include \"Tree.ch\"\n\n                 Si en tu prg incluis:\n\n#DEFINE _ODBC_CH\n#DEFINE _DDE_CH\n#DEFINE _DDE4_CH\n#DEFINE _DLL_CH\n#DEFINE _TREE_CH\n#DEFINE _VIDEO_CH\n\n                 El efecto es el mismo que anularlo en fivewin.ch.\n\n                 En btnget.ch por ejemplo podes anular el #command para la definicion de los btnget desde codigo si vos usas recursos o viceversa.\n\nSaludos,','',0,'gA==','1hkxjkx0',1,0,'',74,0,0),(6435,1122,18,2,0,'87.218.146.96',1138930280,1,0,1,1,1,1,'','','Carlos,\n\nEl build de Febrero de FWH soluciona este problema. Hemos tardado en cazarlo, pero al final lo hemos conseguido <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','29r0821p',1,0,'',2,0,0),(6436,1443,2,74,0,'190.48.232.254',1138932116,1,0,1,1,1,1,'','','Lubin:\n\n          Por un lado el set filter deberia funcionar, que browse usas ?. Yo no lo uso (uso scopes) pero por ejemplo para wbrowse la sintaxis es:\n\n::SetFilter( cField, uVal1, uVal2 )\n\n          Por lo que en tu codigo te falta el limite \"hasta\" del filtro (tenes solo el \"desde\", aunque hay un:\n\nDEFAULT uVal2 := uVal1\n\n          O sea que si el valor es el mismo de inicio y fin igual deberia funcionar.\n\noLbx:setfilter(\"FAC_DETA-&gt;NR_DOC\", XNRO_NEW) \n\n          Si te fijas lo que hace ::Setfilter() en la clase para filtrar (ademas de contemplar el filtrado x indices, detectar si el rdd es cdx, ads y demas ) es modificar ::bGoTop, ::bGoBottom y ::bSkip. Eso significa que si tenes un indice x la expresion que queres filtrar podes hacer algo como esto incluso con indices ntx:\n\noBrw2:bGoTop := { || Inicio ( cFiltro, oBrw2 ) }\n\noBrw2:bGoBottom := { || Fin ( cFiltro, oBrw2 ) }\n\noBrw2:bSkip     :={|n| Moveb(\"brow\",cFiltro,n)}\n\noBrw2:bLogicLen := { || cCantReg }\n\nFUNCTION Inicio( xKey, oBrw )\n   DBSEEK( xKey )       // Busca tu clave en la base y si la encuentra ahi es el inicio logico de tu browse\n   oBrw:Refresh()\nreturn nil\n\n\nFUNCTION Fin( xKey, oBrw )\n DBSEEK( Ultima( xKey ), .T. )\n DBSKIP( -1 )   // Busca el valor siguiente \n oBrw:Refresh()\nreturn nil\n\nFUNCTION Ultima( xValue )\n    LOCAL cType := VALTYPE( xValue )\n    LOCAL xNext\n\n    DO CASE\n        CASE ( cType == \"C\" )\n            xValue := STUFF( xValue, LEN( xValue ), 1, ;\n                      CHR( ASC( RIGHT( xValue, 1 ) ) + 1 ) )\n\n        CASE ( cType == \"N\" )\n            xValue++\n\n        CASE ( cType == \"D\" )\n            xValue++\n    ENDCASE\n    xNext := xValue\nRETURN( xNext )\n\nFUNCTION Moveb(cAlias,cKey,nReg)\n   LOCAL nNext:=0\n\n   IF nReg=0 .OR. (cAlias)-&gt;(LastRec())=0 .OR. !(&amp;((cAlias)-&gt;(IndexKey(0)))=cKey)\n      (cAlias)-&gt;(DbSkip(0))\n   ELSEIF nReg&gt;0 .AND. (cAlias)-&gt;(RecNo())&lt;&gt;(cAlias)-&gt;(LastRec())+1\n\n      DO WHILE nNext&lt;=nReg .AND. !(cAlias)-&gt;(EoF()) .AND. &amp;((cAlias)-&gt;(IndexKey(0)))=cKey\n\n         (cAlias)-&gt;(DbSkip())\n         nNext++\n      ENDDO\n      (cAlias)-&gt;(DbSkip(-1))\n      nNext--\n   ELSEIF nReg&lt;0\n      DO WHILE nNext&gt;=nReg .AND. !BOF() .AND. &amp;((cAlias)-&gt;(IndexKey(0)))=cKey\n         (cAlias)-&gt;(DbSkip(-1))\n         nNext--\n      ENDDO\n      IF !BOF()\n         (cAlias)-&gt;(DbSkip())\n      ENDIF\n      nNext++\n   ENDIF\nRETURN (nNext)\n\n\n               Todo esto siempre con wbrowse de Hernan Ceccarelli que es lo que yo uso. Buscate en dbwide el programa ca-windows del amigo Alfredo Arteaga que viene con parte del codigo fuente y aprenderas estas y unas cuantas cositas mas.\n\n                Otra cosa que podes hacer es usar un transitorio (cada terminal usa SU transitorio en su c: en forma exclusiva), donde guardas los registros de la factura previo dbzap() x cada factura y despues volcas los registros a la dbf. Y obviamente browseas esos registros del transitorio.\n\n\nSaludos,','',0,'gA==','5gj2o2jt',1,0,'',74,0,0),(6437,1518,6,140,0,'200.84.220.129',1138934119,1,0,1,1,1,0,'','','Bien Queridos Compañeros...\n\nTodo el lio fue por no incluir en el instalador a ninguno de los archivos .rpt\nLa desesperacion por la presion de uno de los clientes no me permitia darme cuenta del problema.\n\nDisculpen y 1 Gb de Gracias al buen Amigo René por sus sabios comentarios.','',0,'gA==','2z4xq9vx',1,0,'',140,0,0),(6438,1516,1,161,0,'81.165.130.236',1138953396,1,0,1,1,1,0,'','','Thanks Daniel,\n\nI will try this.\n\nRegards,\nMarc','',0,'gA==','rtmqng4a',1,0,'',161,0,0),(6439,1535,3,6,0,'82.57.159.145',1138954768,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:39r62au0]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL hBmp\n\n    DEFINE DIALOG oDlg\n\n    hBmp = READBITMAP&#40; 0, &quot;C&#58;\\FWHARBOUR\\BITMAPS\\OPEN&#46;BMP&quot; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON PAINT PALBMPDRAW&#40; hDC, 10, 10, hBmp, , , , , &#46;T&#46;, oDlg&#58;nClrPane &#41;\n\n    IF hBmp != 0; DELETEOBJECT&#40; hBmp &#41;; ENDIF\n\n    RETURN NIL[/code:39r62au0]\n\nEMG','',0,'AIA=','39r62au0',1,0,'',6,0,0),(6440,1539,6,28,0,'213.27.201.254',1138961150,1,0,1,1,1,0,'','AdjClient, Adjtop...','Hola.\n\nPara Antonio, creo que deberia proporcionarse los métodos de ajuste a la clase TDialog tambien. Si tenemos una Dialog CHILD es interesante que se la pueda dejar que se ajuste del mismo modo que si fuera un control.\nIncluso iria un poco mas lejos, es posible que se pudiese implementar directamente desde TWindow.\n\nUn saludo.\n\nPaco','',0,'AIA=','2ckhjpus',1,0,'',28,0,0),(6441,1525,20,125,0,'213.140.6.105',1138961427,1,0,1,1,1,0,'','','Grazie comunque e sempre.','',0,'AIA=','3oo066wb',1,0,'',125,0,0),(6442,1540,20,125,0,'213.140.6.105',1138961890,1,0,1,1,1,0,'','Esperienze con PDF995 ?','Salve, ho comperato il PDF995 (driver stampa pdf)\n\nMi succede che per la stampa dei prospetti tipo report ..... tutto e\' ok!\n\nInvece quando utilizzo PRINT oPrn ..... e creo una fattura con i box, linee ecc. capita che se genero tramite PDF995 il file PDF esso risulta diverso dalla stampa diretta (senza PDF995). \nIn particolare le scritte oPrn:say(...) sono spostate di circa mezzo centimetro a sx rispetto a oprn:line(....).\nIn pratica  il risultato su PDF e\' diverso da quello senza PDF995.\n\nQualche suggerimento?\nGrazie \nPiscicelli/Zingoni','',0,'AIA=','3iencxw7',1,0,'',125,0,0),(6443,1540,20,6,0,'82.57.159.145',1138963418,1,0,1,1,1,1,'','Re: Esperienze con PDF995 ?','Prova con una stampante normale. Se con quella va bene allora dipende dal driver PDF995 o da qualche sua impostazione.\n\nEMG','',0,'AIA=','220n2u8l',1,0,'',6,0,0),(6444,1539,6,2,0,'87.218.146.56',1138964051,1,0,1,1,1,1,'','','Paco,\n\nSi, técnicamente se puede hacer, pero en que situación sería útil ? Puedes poner un ejemplo ? gracias.','',0,'AIA=','3m30qa2m',1,0,'',2,0,0),(6445,1538,6,2,0,'87.218.146.15',1138964405,1,0,1,1,1,1,'','','Juan Carlos,\n\nParece que una solución sería introducir el valor en hexadecimal en la casilla Style del inspector de propiedades. Es decir en vez de especificar WS_HSCROLL escribir su valor 0x00100000\n\n#define WS_VSCROLL          0x00200000\n#define WS_HSCROLL          0x00100000\n\ny para especificar más de uno, calcular el OR de esos valores, lo que se puede hacer con la calculadora (en modo científico) de Windows.','',0,'AIA=','3fjtue0d',1,0,'',2,0,0),(6446,1540,20,125,0,'213.140.6.105',1138965262,1,0,1,1,1,0,'','','Speravo in una soluzione piu\' facile.\nComunque sulla stampante (direttamente) e\' ok.\nPobabile che il prob.sia con pdf995.\nPDF 995 ha molte impostazioni e tante non so neanche a che servono, tocca provarle una ad una.\n\nTks','',0,'AIA=','1xcmhn3m',1,0,'',125,0,0),(6447,1540,20,6,0,'82.57.159.145',1138966064,1,0,1,1,1,1,'','','Perché non usi PDFCreator o CutePDF Writer che sono gratuiti e vanno benissimo?\n\nEMG','',0,'AIA=','292zjh24',1,0,'',6,0,0),(6448,1540,20,125,0,'213.140.6.105',1138966188,1,0,1,1,1,0,'','','Li provo subito.\nGrazie','',0,'AIA=','2j1wajt3',1,0,'',125,0,0),(6449,1519,3,19,0,'217.153.83.2',1138968703,1,0,1,1,1,0,'','','Antonio,\nin latest issue of fwh 2.6 i found in tget.prg this:\n\n/----------------------------------------------------------------------------//\n\nCLASS TGet FROM TControl\n\n   DATA   oGet\n   DATA   bMin, bMax\n   DATA   nClrDef\n   DATA   nPos\n   DATA   lReadOnly, lPassword\n   DATA   cError AS String\n   DATA   hHeap AS NUMERIC  INIT 0  // Own heap for @ ..., ... GET\n   DATA   cPicture\n\n   METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,;\n               nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel,;\n               cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,;\n               lReadOnly, lPassword, lNoBorder, nHelpId,;\n               lSpinner, bUp, bDown, bMin, bMax ) CONSTRUCTOR\n\n   METHOD Assign() INLINE ::oGet:Assign()\n\nregards Eugeniusz','',0,'AIA=','31qinua6',1,0,'',19,0,0),(6450,1541,19,26,0,'213.250.59.134',1138969845,1,0,1,1,1,1,'','&quot;VMWare server&quot; - too good to be true?','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.theregister.co.uk/2006/02/03/vmware_goes_free/\">http://www.theregister.co.uk/2006/02/03 ... goes_free/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://news.com.com/VMware+to+make+server+product+free/2100-1012_3-6034615.html\">http://news.com.com/VMware+to+make+serv ... 34615.html</a><!-- m -->\n\nMore info at:\n<!-- m --><a class=\"postlink\" href=\"http://www.virtualization.info/\">http://www.virtualization.info/</a><!-- m -->\n\nCheers, Roman\n\nPS. The Rings of Power\n<!-- m --><a class=\"postlink\" href=\"http://www.devx.com/Intel/Article/30125\">http://www.devx.com/Intel/Article/30125</a><!-- m -->\n\nPPS. Tu-ring\n<!-- m --><a class=\"postlink\" href=\"http://www.itjungle.com/tfh/tfh013006-story04.html\">http://www.itjungle.com/tfh/tfh013006-story04.html</a><!-- m -->','',0,'AIA=','1o70pwu2',1,0,'',26,0,0),(6451,1539,6,28,0,'213.27.201.254',1138970028,1,0,1,1,1,0,'','','Si, \nHay ocasiones en las que se quiere añadir una dialogo hija hecha desde recursos y que se confunda con parte de una ventana:\n\n[img:n3htdb49]http&#58;//www&#46;arrakis&#46;es/~canal_five/adjust&#46;jpg[/img:n3htdb49]\n\nEn este caso tendrías que añadir un panel a la derecha un spliter y añadir de uno en uno los controles. Si lo haces con una caja de diálogo te sale de un tiron. En este caso le hacemos que se ajuste a Top y tan ricamente. \n\nYo me he encontrado muchos casos en los que necesitaba ese efecto y lo he hecho a mano en el RESIZE pero creo que es mas comodo como te comento.\n\nUn saludo','',0,'CA==','n3htdb49',1,0,'',28,0,0),(6452,1540,20,125,0,'213.140.6.105',1138971967,1,0,1,1,1,0,'','','Incredibile, li ho provato entrambi e  mi danno lo stesso identico problema.\nMi sa che canno io da qualche parte.\nComunque a parte l\'anteprima di fwh, ma se in stampa diretta ottengo  una cosa e con i driver pdf ne ottento un\'altra ci sara\' un motivo?\n\nSe creo un esempio \'minimale\' c\'e\' qualche anima gentile che ci da\' un \'occhiata ?\n\nCiao','',0,'CA==','16viod70',1,0,'',125,0,0),(6453,1525,20,106,0,'85.34.123.169',1138972535,1,0,0,1,1,1,'','','Avete provato con oRpt:oDevice:lMeta := .F. o oRpt:oDevice:lMeta := .T.?\n\n\n\nBuon lavoro','',0,'CA==','3lihyakq',1,0,'',106,0,0),(6454,1537,1,213,0,'72.177.228.25',1138973279,1,0,1,1,1,0,'','','Antonio,\n\n&lt;&lt;You may use GetModuleHandle( cModuleName ) --&gt; hInstance&gt;&gt;\n\nI\'ve tried using the name as it appears in the Window title bar and the .exe name and it always returns 0.  What should I specify for cModuleName?  What are the possible return codes?  Is this function documented anywhere?\n\nThis external application isn\'t necessarily started from my fw app.\n\nThanks,\nRandal','',0,'CA==','2p8f7nti',1,0,'',213,0,0),(6455,1537,1,6,0,'82.57.159.145',1138977325,1,0,1,1,1,1,'','','[quote=&quot;Randal Ferguson&quot;:kxyj2ihy]Antonio,\n\n&lt;&lt;You may use GetModuleHandle( cModuleName ) --&gt; hInstance&gt;&gt;\n\nI\'ve tried using the name as it appears in the Window title bar and the .exe name and it always returns 0.  What should I specify for cModuleName?  What are the possible return codes?  Is this function documented anywhere?\n\nThis external application isn\'t necessarily started from my fw app.\n\nThanks,\nRandal[/quote:kxyj2ihy]\n\nIt seems that GetModuleHandle() can retrieve only the handle of the module started from the current process. From the MSDN:\n\n[quote:kxyj2ihy]  \n  Platform SDK: DLLs, Processes, and Threads \nGetModuleHandle\nThe GetModuleHandle function retrieves a module handle for the specified module if the file has been mapped into the address space of the calling process. \n\nTo avoid the race conditions described in the Remarks section, use the GetModuleHandleEx function.\n\nHMODULE GetModuleHandle(\n  LPCTSTR lpModuleName   // module name\n);\nParameters\nlpModuleName \n[in] Pointer to a null-terminated string that contains the name of the module (either a .dll or .exe file). If the file name extension is omitted, the default library extension .dll is appended. The file name string can include a trailing point character (.) to indicate that the module name has no extension. The string does not have to specify a path. When specifying a path, be sure to use backslashes (\\), not forward slashes (/). The name is compared (case independently) to the names of modules currently mapped into the address space of the calling process. \nIf this parameter is NULL, GetModuleHandle returns a handle to the file used to create the calling process. \n\nReturn Values\nIf the function succeeds, the return value is a handle to the specified module.\n\nIf the function fails, the return value is NULL. To get extended error information, call GetLastError. \n\nRemarks\nThe returned handle is not global or inheritable. It cannot be duplicated or used by another process. \n\nThe GetModuleHandle function returns a handle to a mapped module without incrementing its reference count. Therefore, use care when passing the handle to the FreeLibrary function, because doing so can cause a DLL module to be unmapped prematurely. \n\nThis function must also be used carefully in a multithreaded application. There is no guarantee that the module handle remains valid between the time this function returns the handle and the time it is used by another function. For example, a thread might retrieve a module handle by calling GetModuleHandle. Before the thread uses the handle in another function, a second thread could free the module and the system could load another module, giving it the same handle as the module that was recently freed. The first thread would be left with a module handle that refers to a module different than the one intended. \n\nWindows 95/98/Me: GetModuleHandleW is supported by the Microsoft Layer for Unicode. To use this, you must add certain files to your application, as outlined in Microsoft Layer for Unicode on Windows 95/98/Me Systems.\n\nExample Code\nFor an example, see Using Brushes. \n\nRequirements \n  Windows NT/2000/XP: Included in Windows NT 3.1 and later.\n  Windows 95/98/Me: Included in Windows 95 and later.\n  Header: Declared in Winbase.h; include Windows.h.\n  Library: Use Kernel32.lib.\n  Unicode: Implemented as Unicode and ANSI versions on Windows NT/2000/XP. Also supported by Microsoft Layer for Unicode.\n\nSee Also\nDynamic-Link Libraries Overview, Dynamic-Link Library Functions, FreeLibrary, GetModuleFileName, GetModuleHandleEx \n\nPlatform SDK Release: November 2001  What did you think of this topic?\nLet us know.  Order a Platform SDK CD Online\n(U.S/Canada)   (International) \n\n \n\nRequirements \n  Windows NT/2000/XP: Included in Windows NT 3.1 and later.\n  Windows 95/98/Me: Included in Windows 95 and later.\n  Header: Declared in Winbase.h; include Windows.h.\n  Library: Use Kernel32.lib.\n  Unicode: Implemented as Unicode and ANSI versions on Windows NT/2000/XP. Also supported by Microsoft Layer for Unicode.\nSee Also\nDynamic-Link Libraries Overview, Dynamic-Link Library Functions, FreeLibrary, GetModuleFileName, GetModuleHandleEx[/quote:kxyj2ihy]\n\nEMG','',0,'gA==','kxyj2ihy',1,0,'',6,0,0),(6456,1525,20,6,0,'82.57.159.145',1138977404,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:2irisj9t]Avete provato con oRpt:oDevice:lMeta := .F. o oRpt:oDevice:lMeta := .T.?\n\n\n\nBuon lavoro[/quote:2irisj9t]\n\nSì, e a quanto pare non va.\n\nEMG','',0,'gA==','2irisj9t',1,0,'',6,0,0),(6457,1538,6,255,0,'200.67.175.250',1138977408,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3gejc7r0]Juan Carlos,\nParece que una solución sería introducir el valor en hexadecimal en la casilla Style del inspector de propiedades. Es decir en vez de especificar WS_HSCROLL escribir su valor 0x00100000\n#define WS_VSCROLL          0x00200000\n#define WS_HSCROLL          0x00100000\ny para especificar más de uno, calcular el OR de esos valores, lo que se puede hacer con la calculadora (en modo científico) de Windows.[/quote:3gejc7r0]\n\nGracias antonio\nDonde puedo encontrar todos esos valores ???','',0,'gA==','3gejc7r0',1,0,'',255,0,0),(6458,1540,20,6,0,'82.57.159.145',1138977482,1,0,1,1,1,1,'','','Certo, lo provo senz\'altro.\n\nEMG','',0,'gA==','3eamdq49',1,0,'',6,0,0),(6459,1523,6,362,0,'200.168.52.156',1138978879,1,0,1,1,1,1,'','','Gracias Antonio.\n\nPerfecto, mui bueno, excelente!\n\nSolamente, um pequeno problema di memoria con el comando BRUSH, mi traba mi computadora en WINDOWS 98 en la hora en ke  rebooto mi computadora.\n\nDi resto, PERFECTO!\n\nMuchas Gracias a Usted, Por la Atención.  Un Gran Saludo.','',0,'gA==','3099rhvt',1,0,'',362,0,0),(6460,1540,20,125,0,'194.243.7.199',1138980894,1,0,1,1,1,0,'','','Appena posso te lo posto.\nGrazie','',0,'gA==','3mgcjyhn',1,0,'',125,0,0),(6461,1530,3,394,0,'207.219.124.134',1138982813,1,0,1,1,1,0,'','Thanks Richard','That was It.','',0,'gA==','352cjgqn',1,0,'',394,0,0),(6462,1542,3,303,0,'68.7.28.54',1138982878,1,0,1,1,1,0,'','oGet:setSel() not working?','I can\'t seem to get the setSel() method of the TGet class to work. The following code doesn\'t show any highlighted text.\n\n[code:gia9yzsw]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg, oGet, cString&#58;= &quot;1234567&quot;\n\n   define dialog oDlg title &quot;Test Get Select&quot;\n\n   @ 2,2 get oGet var cString of oDlg update\n\n   activate dialog oDlg;\n      on init &#40;oGet&#58;setSel&#40;2,5&#41;, oGet&#58;refresh&#40;&#41;&#41;\n\nreturn nil[/code:gia9yzsw]\n\nIt doesn\'t work with FWH 2.6, May 2005 build/Harbour 43, nor with Clipper. Am I doing something wrong, or maybe setSel() does something else?\n\nJames','',0,'AIA=','gia9yzsw',1,0,'',303,0,0),(6463,1537,1,303,0,'68.7.28.54',1138983479,1,0,1,1,1,0,'','','Randal,\n\nGood to hear from you. I was just wondering where you were.\n\nI think Enrico originally posted the code below. Give it a try.\n\nJames\n\n[code:2p0byaae]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define GW_HWNDFIRST	0\n#define GW_HWNDLAST	1\n#define GW_HWNDNEXT	2\n#define GW_HWNDPREV	3\n#define GW_OWNER	4\n#define GW_CHILD	5\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hWnd &#58;= FINDWND&#40; &quot;Internet Explorer&quot; &#41;\n\n    IF !EMPTY&#40; hWnd &#41;\n        ? GETWINDOWTEXT&#40; hWnd &#41;\n    ELSE\n        ? &quot;Window not found&quot;\n    ENDIF\n\n    RETURN NIL\n\n\nFUNCTION FINDWND&#40; cTitle &#41;\n\n    LOCAL hWnd &#58;= GETFOREGROUNDWINDOW&#40;&#41;\n\n    WHILE hWnd != 0\n        IF UPPER&#40; cTitle &#41; $ UPPER&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41;\n            RETURN hWnd\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    RETURN NIL\n\n\nDLL32 FUNCTION GETFOREGROUNDWINDOW&#40;&#41; AS LONG;\n      PASCAL FROM &quot;GetForegroundWindow&quot; LIB &quot;user32&#46;dll&quot;\n[/code:2p0byaae]','',0,'AIA=','2p0byaae',1,0,'',303,0,0),(6464,1443,2,348,0,'201.230.65.83',1138983693,1,0,1,1,1,0,'','','Buen dia Daniel \n\nMuchas gracias por  el dato, esta respuesta  bastante clara, seguro que puede aliviar mi dolor de cabeza,   voy a analizarla y aplicarla, pues tambien he activado el Wbrowse de Hernan C..\n\nSolo para redondear la idea, y aclarar el concepto del uso de scopes que mencionas, ¿estas son referidas a estas funciones  (inicio,Fin, etc)??  , bueno te comentare que en clipper puro, yo tambien desarrolle mi propio browse que me resolvia algunos problemas que tenia con ese browse y tenia funciones parecidas a las tuyas, pero obviamente sin los conceptos de Objetos ....  asi que  yo pensaria poner tu aporte como partes de las funciones standares de las aplicaciones, y usarlas para los diversos documentos que a crear, pues po lo que veo son bastantes standarizadas y genericas. ten la seguridad que les contare los resultados..\n\nestare en contacto.. !!\n\nmuchas gracias por ello ...\n\nLubin\n\n\n[quote=&quot;DanielPuente&quot;:2ywmium0]Lubin:\n\n          Por un lado el set filter deberia funcionar, que browse usas ?. Yo no lo uso (uso scopes) pero por ejemplo para wbrowse la sintaxis es:\n\n::SetFilter( cField, uVal1, uVal2 )\n\n          Por lo que en tu codigo te falta el limite \"hasta\" del filtro (tenes solo el \"desde\", aunque hay un:\n\nDEFAULT uVal2 := uVal1\n\n          O sea que si el valor es el mismo de inicio y fin igual deberia funcionar.\n\noLbx:setfilter(\"FAC_DETA-&gt;NR_DOC\", XNRO_NEW) \n\n          Si te fijas lo que hace ::Setfilter() en la clase para filtrar (ademas de contemplar el filtrado x indices, detectar si el rdd es cdx, ads y demas ) es modificar ::bGoTop, ::bGoBottom y ::bSkip. Eso significa que si tenes un indice x la expresion que queres filtrar podes hacer algo como esto incluso con indices ntx:\n\noBrw2:bGoTop := { || Inicio ( cFiltro, oBrw2 ) }\n\noBrw2:bGoBottom := { || Fin ( cFiltro, oBrw2 ) }\n\noBrw2:bSkip     :={|n| Moveb(\"brow\",cFiltro,n)}\n\noBrw2:bLogicLen := { || cCantReg }\n\nFUNCTION Inicio( xKey, oBrw )\n   DBSEEK( xKey )       // Busca tu clave en la base y si la encuentra ahi es el inicio logico de tu browse\n   oBrw:Refresh()\nreturn nil\n\n\nFUNCTION Fin( xKey, oBrw )\n DBSEEK( Ultima( xKey ), .T. )\n DBSKIP( -1 )   // Busca el valor siguiente \n oBrw:Refresh()\nreturn nil\n\nFUNCTION Ultima( xValue )\n    LOCAL cType := VALTYPE( xValue )\n    LOCAL xNext\n\n    DO CASE\n        CASE ( cType == \"C\" )\n            xValue := STUFF( xValue, LEN( xValue ), 1, ;\n                      CHR( ASC( RIGHT( xValue, 1 ) ) + 1 ) )\n\n        CASE ( cType == \"N\" )\n            xValue++\n\n        CASE ( cType == \"D\" )\n            xValue++\n    ENDCASE\n    xNext := xValue\nRETURN( xNext )\n\nFUNCTION Moveb(cAlias,cKey,nReg)\n   LOCAL nNext:=0\n\n   IF nReg=0 .OR. (cAlias)-&gt;(LastRec())=0 .OR. !(&amp;((cAlias)-&gt;(IndexKey(0)))=cKey)\n      (cAlias)-&gt;(DbSkip(0))\n   ELSEIF nReg&gt;0 .AND. (cAlias)-&gt;(RecNo())&lt;&gt;(cAlias)-&gt;(LastRec())+1\n\n      DO WHILE nNext&lt;=nReg .AND. !(cAlias)-&gt;(EoF()) .AND. &amp;((cAlias)-&gt;(IndexKey(0)))=cKey\n\n         (cAlias)-&gt;(DbSkip())\n         nNext++\n      ENDDO\n      (cAlias)-&gt;(DbSkip(-1))\n      nNext--\n   ELSEIF nReg&lt;0\n      DO WHILE nNext&gt;=nReg .AND. !BOF() .AND. &amp;((cAlias)-&gt;(IndexKey(0)))=cKey\n         (cAlias)-&gt;(DbSkip(-1))\n         nNext--\n      ENDDO\n      IF !BOF()\n         (cAlias)-&gt;(DbSkip())\n      ENDIF\n      nNext++\n   ENDIF\nRETURN (nNext)\n\n\n               Todo esto siempre con wbrowse de Hernan Ceccarelli que es lo que yo uso. Buscate en dbwide el programa ca-windows del amigo Alfredo Arteaga que viene con parte del codigo fuente y aprenderas estas y unas cuantas cositas mas.\n\n                Otra cosa que podes hacer es usar un transitorio (cada terminal usa SU transitorio en su c: en forma exclusiva), donde guardas los registros de la factura previo dbzap() x cada factura y despues volcas los registros a la dbf. Y obviamente browseas esos registros del transitorio.\n\n\nSaludos,[/quote:2ywmium0]','',0,'gA==','2ywmium0',1,0,'',348,0,0),(6465,1543,3,435,0,'200.155.204.39',1138984116,1,0,1,1,1,0,'','Conecting TOle with MS-FAX Windows XP','é possivel conecar o fxssvc.exe (FAX-Windows XP) com FiveWin-harbour via OLE ?','',0,'gA==','39nqt59e',1,0,'',435,0,0),(6466,1544,3,435,0,'200.155.204.39',1138984314,1,0,1,1,1,0,'','TExcels METHOD Get() error','usando a TExcels, algumas planilhas dá erro quando o conteudo da celula é diferente de Numeric, Caracter ou Date, se for Cientific dá erro..\n\ne outra quando tento ler dados de uma coluna com R$ no valor dá erro tambem, algume tem solução ?','',0,'gA==','4mvt2wvd',1,0,'',435,0,0),(6467,1545,3,435,0,'200.155.204.39',1138984485,1,0,1,1,1,0,'','Color cell TCBrowse','nao consegui dar cor a uma unica celula do TCbrowse, usando:\n\noBrw:lCellStyle := .T.','',0,'gA==','o0ea98n5',1,0,'',435,0,0),(6468,1518,6,138,0,'201.133.73.175',1138985063,1,0,1,1,1,1,'','','JAAA JAAAJAAA <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> \n\nO sea que si habias incluido el Crystal, pero no los reports......\n\nJAAAA JAAAA JAAAA\n\nBueno, menos mal que se ha solucionado.','',0,'gA==','3ons3qod',1,0,'',138,0,0),(6469,1546,3,148,0,'196.205.176.149',1138985229,1,0,1,1,1,0,'','Web Application','I need to know which version of FW can build .Net application and multiuser application .\nI mean users will share the same database either they are in server or may external users entering data via internet .\nThanks','',0,'gA==','3uja1rsc',1,0,'',148,0,0),(6470,1546,3,138,0,'201.133.73.175',1138985756,1,0,1,1,1,1,'','','You don\'t need any special FiveWin version, either .NET \n\nIf you are planning to use a Web browser to entry you data,  you have serveral options:\n\nYou can use xHBScript to \"plug\" a Clipper/harbour programming engine into the ASP Server. So, instead to use ASP programming language, you can use  xHarbour/Clipper compatible language and use your favorite comands, and databases.\n\nYou can also use APACHE Server, using CGI and very Simple xHarbour programs (no fivewin needed) You can run CGIs using both, Windows or Linux servers.\n\nOn the other hand, if you need to use a \"client\" program from internet written in FiveWin, and your databases are somewhere else in internet,\n you can use Advantage Internet Server.','',0,'gA==','30z2x4l7',1,0,'',138,0,0),(6471,1518,6,168,0,'201.248.22.29',1138986163,1,0,1,1,1,0,'','','Eso le pasa por andar mucho con el oso...','',0,'gA==','ogpmdsmr',1,0,'',168,0,0),(6472,1545,3,2,0,'87.218.146.149',1138986173,1,0,1,1,1,1,'','','Ari,\n\nPlease try this sample from Enrico:\n[code:1708daa1]\n#include &quot;Fivewin&#46;ch&quot; \n#include &quot;Tcbrowse&#46;ch&quot; \n\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg, oBrw, oCol \n\n    USE Customer ALIAS Test \n\n    DEFINE DIALOG oDlg SIZE 300, 300 \n\n    @ 0, 0 BROWSE oBrw \n\n    ADD COLUMN TO oBrw; \n               DATA TEST -&gt; last; \n               HEADER &quot;LAST&quot;; \n               COLOR CLR_RED, CLR_GREEN \n\n    ADD COLUMN TO oBrw; \n               DATA TEST -&gt; first; \n               HEADER &quot;FIRST&quot;; \n               COLOR CLR_RED, CLR_GREEN \n\n    oBrw&#58;lCellStyle = &#46;T&#46; \n\n    oBrw&#58;aActions = &#123; &#123; || MsgInfo&#40; &quot;One!&quot; &#41; &#125;, &#123; || MsgInfo&#40; &quot;Two!&quot; &#41; &#125; &#125; \n\n    ACTIVATE DIALOG oDlg; \n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;; \n             CENTER ;\n             VALID MsgYesNo&#40; &quot;Want to exit ?&quot; &#41;\n\n    CLOSE \n\n    RETURN NIL\n[/code:1708daa1]','',0,'AIA=','1708daa1',1,0,'',2,0,0),(6473,1528,2,2,0,'87.218.146.149',1138986348,1,0,1,1,1,1,'','','Manu,\n\nEstá muy bien!','',0,'AIA=','dpj97gdf',1,0,'',2,0,0),(6474,1547,3,435,0,'200.155.204.39',1138986666,1,0,1,1,1,0,'','Class TPdf with TReport Class','Alguem já fez a criação da report com a tpdf, ou seja tudo que gerar na Treport sair em PDF.. igual fizeram com a TExcels ?','',0,'AIA=','226ls8pd',1,0,'',435,0,0),(6475,1540,20,29,0,'87.7.230.70',1138988116,1,0,1,1,1,0,'','','Perché non usi il pdf converter di amyuni (<!-- w --><a class=\"postlink\" href=\"http://www.amyuni.com\">www.amyuni.com</a><!-- w -->) ?\nQuesto convertitore è costituito da una dll/activex al quale ti interfacci con la tua applicazione (se ti serve ti fornisco il wrapper) che ti crea una stampante virtuale che rimane finché la tua applicazione è in esecuzione.\n\nE\'inoltre possibile esportare le stampe in formato RTF mantenendo linee e immagini dando così ai tui clienti la possibilità di modificare ed aggiungere note e commenti alle stampe.\n\nCiao\n\nMarco','',0,'AIA=','1q6uli2c',1,0,'',29,0,0),(6476,1542,3,6,0,'82.57.159.145',1138989294,1,0,1,1,1,1,'','Re: oGet:setSel() not working?','This is a working sample:\n\n[code:j3t4oq62]#include &quot;fivewin&#46;ch&quot; \n\nfunction main&#40;&#41; \n   local oDlg, oGet, cString&#58;= &quot;1234567&quot; \n\n   define dialog oDlg title &quot;Test Get Select&quot; \n\n   @ 2,2 get oGet var cString of oDlg update \n\n   oDlg&#58;bStart = &#123; || oGet&#58;SetSel&#40;2,5&#41; &#125;\n\n   activate dialog oDlg; \n//      on init &#40;oGet&#58;setSel&#40;2,5&#41;, oGet&#58;refresh&#40;&#41;&#41; \n\nreturn nil[/code:j3t4oq62]\n\nEMG','',0,'AIA=','j3t4oq62',1,0,'',6,0,0),(6477,1548,6,331,0,'201.154.164.104',1138989536,1,0,1,1,1,0,'','Como registrar un control Active-X','Saludos.\n\nAlguien sabe como puedo registrar un archivo OCX sin utilizar el regsvr32.exe y hacerlo desde mi programa de instalacion?.\n\nArturo.','',0,'AIA=','ht4wc9aq',1,0,'',331,0,0),(6478,1527,6,215,0,'201.129.18.236',1138992325,1,0,1,1,1,0,'','¿Sirve para el CDX?','Rene,\nHablas de La RDD de Advantage que soporta los formatos CDX y NTX ???.\n¿La misma que se puede descargar y usar free?\n\nSaludos\nFernando','',0,'AIA=','2pq325df',1,0,'',215,0,0),(6479,1549,7,433,0,'216.230.150.5',1138993576,1,0,1,1,1,0,'','Otras Dudas sobre el emulador','Muchas gracias por la info. Señor Linares, pero no se si sea mucho pedir que me enviara el link en donde puedo bajar el emulador de microsoft, ahora supongo que para pasar las aplicaciones de PC a Pocket pc sera por medio de algun cable USB u otra coneccion,... ahora una pregunta muy infantil si se quiere, pero si las aplicacines de VFP son complejas las soportará la pocket...? o deben de ser mas light,...\n\nRespecto a software que ustedes vendes FWPPC, cual es la diferencia con el emulador de microsoft, es necesario comprarlo o con el emulador es suficiente.\n\nSlds.\nKerwin','',0,'AIA=','12j3tvwe',1,0,'',433,0,0),(6480,1538,6,28,0,'87.218.46.190',1138995836,1,0,1,1,1,0,'','','winuser.h en c:\\bcc55\\include.\n\nMegabye.\n\nPaco','',0,'AIA=','3tvsae5c',1,0,'',28,0,0),(6481,1533,7,433,0,'216.230.150.5',1138995934,1,0,1,1,1,0,'','','Muchas gracias por la info. Señor Linares, pero no se si sea mucho pedir que me enviara el link en donde puedo bajar el emulador de microsoft, ahora supongo que para pasar las aplicaciones de PC a Pocket pc sera por medio de algun cable USB u otra coneccion,... ahora una pregunta muy infantil si se quiere, pero si las aplicacines de VFP son complejas las soportará la pocket...? o deben de ser mas light,... \n\nRespecto a software que ustedes vendes FWPPC, cual es la diferencia con el emulador de microsoft, es necesario comprarlo o con el emulador es suficiente. \n\nSlds. \nKerwin','',0,'AIA=','2i2oy4s3',1,0,'',433,0,0),(6482,1550,3,372,0,'83.118.100.14',1138996901,1,0,1,1,1,0,'','How to retrieve text from BtnBmp?','Hi,\n\nafter clicking a button i want to retrieve the text i put on it with settext(), but gettext() doesn\'t do the trick, any suggestions?\n\nThanks,\n\nJohn.','',0,'AIA=','ut2x8m44',1,0,'',372,0,0),(6483,1542,3,303,0,'68.7.28.54',1138997477,1,0,1,1,1,0,'','','Enrico,\n\nHow odd. When I use the ON INIT it actually preprocesses to this:\n\n{ |self| oGet:SetSel(2,5) }\n\nIf I do:\n\n  oDlg:bInit:= { |self| oGet:SetSel(2,5) }\n\nIt works just like you said also. But the same code doesn\'t work when assigned via the ON INIT clause. Strange.\n\nI also tried doing it from a button action, but that wouldn\'t work either. I really need to do it via the GET\'s ON CHANGE clause. I have tried this:\n\n   @ 2,2 get oGet var cString of oDlg update on change oGet:setSel(2,5)\n\nBut that doesn\'t work either. The GET must be getting refreshed after bChange is called. I guess that is expected.\n\nI am trying to build an autoComplete system, so I need to set the selected text after each keystroke. Any ideas?\n\nJames','',0,'AIA=','xff23grj',1,0,'',303,0,0),(6484,1551,3,49,0,'87.7.177.4',1138998331,1,0,1,1,1,0,'','Argument error: &lt;=','is wrong  this expresiion ?\n\n\n[code:v0fy4s8r]  i&#58;=0\n  do while i &lt;= wdiapro\n    wfecFin++\n    if wDiaLab&#91;Dow&#40;wFecIni+i&#41;&#93;\n       wFecFin++\n    endif\n    i++\n  enddo[/code:v0fy4s8r]\n\nit me make error on &lt;=... why ?\n\nRegards','',0,'AIA=','v0fy4s8r',1,0,'',49,0,0),(6485,1546,3,148,0,'196.205.176.149',1138999195,1,0,1,1,1,0,'','','And what is the best for networking application (multiuser application) many users share the ame database in the same time ?','',0,'AIA=','1bljvpnk',1,0,'',148,0,0),(6486,1542,3,303,0,'68.7.28.54',1138999238,1,0,1,1,1,0,'','','Enrico,\n\nWhoops. I didn\'t realize you were using oDlg:bStart NOT oDlg:bInit. bInit does not work, but bStart does. Now I get it.\n\nI still need to figure out how to highlight text after each keystroke. I tried bKeydown also and that doesn\'t work either.\n\nJames','',0,'AIA=','3681yai1',1,0,'',303,0,0),(6487,1549,7,2,0,'87.218.146.190',1139001230,1,0,1,1,1,1,'','','Kerwin,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=57265402-47a8-4ce4-9aa7-5fe85b95de72&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->\n\nLas aplicaciones pueden ser todo lo complejas sea preciso. El Pocket PC es un auténtico ordenador.\n\nLas aplicaciones se pueden pasar del PC al Pocket PC usando ActiveSync, ó una tarjeta SD de memoria.\n\nFiveWin para Pocket PC genera auténtico EXEs para Pocket PC (arquitectura ARM) que sólo funcionan en el Pocket PC ó en el emulador en PC.','',0,'AIA=','1j0uczeq',1,0,'',2,0,0),(6488,1529,6,110,0,'165.98.151.243',1139002732,1,0,1,1,1,1,'','','de entrada creo que con el ocx basta, algunos ocx tambien se acompañan un archivo del mismo nombre pero con extencion tlb.\n\nluego deberas registrar el control en la pc con \n\n[code:2jj9ue4s]\nregsvr32 mscomm32&#46;ocx\n[/code:2jj9ue4s]\n\nsi todo va bien se mostrar un mensaje indicando que fue registrado el control.\n\nAhora con fwh no creo que funcione ya que la clase tole no soporta el manejo de eventos aun. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> (bueno al menos eso creo) <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nsalu2\ncarlos vargas','',0,'AIA=','2jj9ue4s',1,0,'',110,0,0),(6489,1542,3,6,0,'82.61.157.209',1139003884,1,0,1,1,1,1,'','','Try this:\n\n[code:1ni1mlne]#include &quot;fivewin&#46;ch&quot;\n\n#define EM_SETSEL      177\n\nfunction main&#40;&#41;\n   local oDlg, oGet, cString&#58;= &quot;1234567&quot;\n\n   define dialog oDlg title &quot;Test Get Select&quot;\n\n   @ 2,2 get oGet var cString of oDlg update on change oGet&#58;PostMsg&#40; EM_SETSEL, 2, 5 &#41;\n\n   activate dialog oDlg\n\nreturn nil[/code:1ni1mlne]\n\nEMG','',0,'AIA=','1ni1mlne',1,0,'',6,0,0),(6490,1551,3,6,0,'82.61.157.209',1139004209,1,0,1,1,1,1,'','Re: Argument error: &lt;=','Check the data type of wdiapro. It must be numeric.\n\nEMG','',0,'AIA=','l0uxvb37',1,0,'',6,0,0),(6491,1538,6,255,0,'200.67.175.250',1139004307,1,0,1,1,1,1,'','','Gracias <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','133v3wu4',1,0,'',255,0,0),(6492,1542,3,303,0,'68.7.28.54',1139004314,1,0,1,1,1,0,'','','Enrico,\n\nWow, that seems to work!\n\nI had already tried:\n\nSendMessage( oGet:hWnd, EM_SETSEL, 2, 5 )\n\nbut that didn\'t work.\n\nThanks a lot.\n\nJames','',0,'AIA=','3cmo4mcq',1,0,'',303,0,0),(6493,1550,3,6,0,'82.61.157.209',1139004348,1,0,1,1,1,1,'','Re: How to retrieve text from BtnBmp?','Try\n\noBtn:cCaption\n\nEMG','',0,'AIA=','35f5t82a',1,0,'',6,0,0),(6494,1551,3,49,0,'87.7.177.4',1139004408,1,0,1,1,1,0,'','','yes it is numeric\nif i insert wdiapro=1  it run ok','',0,'AIA=','2wvr1o0n',1,0,'',49,0,0),(6495,1548,6,255,0,'200.67.175.250',1139004420,1,0,1,1,1,1,'','Re: Como registrar un control Active-X','[quote=&quot;ArturoCervantes&quot;:360pgnkc]Saludos.\nAlguien sabe como puedo registrar un archivo OCX sin utilizar el regsvr32.exe y hacerlo desde mi programa de instalacion?.\nArturo.[/quote:360pgnkc]\n\ntomado de la ayuda del InnoSetup, espero te sirva:\n\nPrototype: \nprocedure RegisterServer(const Is64Bit: Boolean; const Filename: String; const FailCriticalErrors: Boolean); \nDescription: \nRegisters the DLL/OCX with the specified filename. If Is64Bit is True, the DLL/OCX will be loaded as a 64-bit image and registered in a 64-bit process. If FailCriticalErrors is True, the system will not display any critical-error-handler message boxes. Raises an exception if not successful. \nExample: \nbegin\n  // Register hhctrl.ocx located in the System directory.\n  RegisterServer(Is64BitInstallMode, ExpandConstant(\'{sys}\\hhctrl.ocx\'), False);\nend;\n\nBecause we specify Is64BitInstallMode in the first parameter, it will register the 64-bit OCX in the 64-bit System directory when Setup is running in 64-bit mode. Otherwise, it will register the 32-bit OCX in the 32-bit System directory.','',0,'gA==','360pgnkc',1,0,'',255,0,0),(6496,1549,7,433,0,'216.230.150.5',1139004562,1,0,1,1,1,0,'','','Gracias de nuevo, pero mi pregunta es enfocada a que si pueden ser las aplicaciones cargadas de eventos... y la otra pregunta es que si el emulador es para Visual Fox Pro... de windows para pocket pc.\n\nGracias.\nSlds.','',0,'gA==','31vwlgwi',1,0,'',433,0,0),(6497,1542,3,6,0,'82.61.157.209',1139004743,1,0,1,1,1,1,'','','You\'re welcome, James! By the way, can we have the honour to see your face? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','2k5ap5bn',1,0,'',6,0,0),(6498,1552,2,404,0,'213.231.101.107',1139011383,1,0,1,1,1,0,'','¿Variables estaticas, con Objetos?','Estimados Clipperos:\n\nLas variables estaticas de un PRG, con una Clase, definida en el mismo:\n\n¿Se pueden usar en ella?. ¿O debemos declarar unas DATAS, para que  tomen, los valores de las mismas?.\n\nSegún el valor de varias de las estaticas, se imprime un presupuesto, o una factura.\n\nPodría haber hecho dos Clases. Pero, como solo varían algunos datos. Repetir el resto del codigo, como que parecía ilogico. \n\nSaludos, José Mª','',0,'gA==','3lprzg9w',1,0,'',404,0,0),(6499,1542,3,266,0,'60.50.63.216',1139013070,1,0,1,1,1,1,'','','James,\n\nSandeep\'s TDD class does it : Auto-complete from dbf\n\nI use it since fw 1.95\n\nU can download it from Patrick Mast\'s <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w -->','',0,'gA==','aju4y5kt',1,0,'',266,0,0),(6500,1546,3,266,0,'60.50.63.216',1139014206,1,0,1,1,1,1,'','','The best for networking app for multi concurrent users on remote database is still web app in term of performance speed and software maintenance.\n\nOf cource the most preferable database is SQL based.\nBut with xHbscript or AFPexpress (both are dbf/cdx plugin for most web server), u still can build web app on your favorite dbf/cdx and clipper/foxpro language.\n\nBut all data entry interface need to build in html form, and some simple  Javascript may involved.\n\nIn short, u need :-\n- web server : IIS or Apache, etc.\n- plugin for dbf/cdx (ignore this if u use SQL database)\n- html script (code includes html,javascript,clipper/foxpro)','',0,'gA==','2w47yc1r',1,0,'',266,0,0),(6501,1327,3,250,0,'144.136.120.213',1139014339,1,0,1,1,1,1,'','','Hi Antonio,\n\nSorry, but I have been on holidays for the last two weeks.\nThere is no stack list given, the program immediately exits, however, if I comment out the disabling the program works fine.\n\nACTIVATE DIALOG oMM2Dlg ON INIT (IIF(!lRepertorise,oChkBox:Disable(),oChkBox:Enable()),;\n                                                     oCBXStart:Select(1),oCBXFinish:Select(1),;\n                                                       /*oCBXStart:DisAble(),oCBXFinish:Disable()*/)  \n\nIf I only comment out one of them I do get \"error.log\" file.\n\nI have sent the log file to your email address.\n\nRichard.','',0,'gA==','3sk50az6',1,0,'',250,0,0),(6502,1308,3,300,0,'201.14.71.181',1139015409,1,0,1,1,1,0,'','','Antonio,\n\nDont work setdate() can i send one example to you?\n\nRegards.','',0,'gA==','lw0bk1um',1,0,'',300,0,0),(6503,1553,6,54,0,'201.135.253.152',1139024008,1,0,1,1,1,1,'','Saber si está decalarada una variable','Saludos,\n\nRequiero de saber si una variable está creada, todo esto en tiempo de ejecución.\n\nHe intentado lo siguiente sin resultados.\n\n? TYPE(oGlobal)\n? VALTYPE(oGlobal)\n\nEsto no funciona, pues me manda error de variable no creada.\n\nTodos los comentarios son bien recibidos.\n\nMil gracias de antemano','',0,'gA==','2qdr3ney',1,0,'',54,0,0),(6504,1542,3,303,0,'68.7.28.54',1139026303,1,0,1,1,1,0,'','','Hoe,\n\nThanks. I\'ll take a look. I do have mine working also, so it will be interesting to see how he did it too.\n\nJames','',0,'gA==','zg4f74rm',1,0,'',303,0,0),(6505,1554,6,391,0,'63.168.93.42',1139026758,1,0,1,1,1,1,'','Como detecto si el mouse fue pulsado en u get','Necesito evaluar si el mouse (click izquierdo ) fue pulsado en un get,\nhasta el momento el oObjGet:nLastKey , me retorna el mismo valor del  ENTER (13) , pero mi necesidad es validar o ejecutar un procedo solo si es ENTER y no si es otra tecla e incluso el mouse','',0,'gA==','a6jr2gdg',1,0,'',391,0,0),(6506,1554,6,54,0,'201.135.253.152',1139029351,1,0,1,1,1,1,'','Re: Como detecto si el mouse fue pulsado en u get','[quote=&quot;armandini&quot;:lxb0k7zx]Necesito evaluar si el mouse (click izquierdo ) fue pulsado en un get,\nhasta el momento el oObjGet:nLastKey , me retorna el mismo valor del  ENTER (13) , pero mi necesidad es validar o ejecutar un procedo solo si es ENTER y no si es otra tecla e incluso el mouse[/quote:lxb0k7zx]\n\nEl metodo\n\ncVar := SPACE(10)\n@ 10, 10 GET oGet VAR cVar PICTURE \"@!\"\noGet:RButtonDown( nRow, nCol, nFlags )\n\nSaludos','',0,'gA==','lxb0k7zx',1,0,'',54,0,0),(6507,1550,3,372,0,'83.118.100.14',1139029588,1,0,1,1,1,0,'','','Thanks Enrico!','',0,'gA==','2v5cxc46',1,0,'',372,0,0),(6508,1549,7,2,0,'87.218.146.143',1139042230,1,0,1,1,1,1,'','','Kerwin,\n\n&gt; \nGracias de nuevo, pero mi pregunta es enfocada a que si pueden ser las aplicaciones cargadas de eventos...\n&gt;\n\nSi, por supuesto.\n\n&gt;\ny la otra pregunta es que si el emulador es para Visual Fox Pro... de windows para pocket pc. \n&gt;\n\nEl emulador emula una Pocket PC en un PC, con lo que las aplicaciones (EXEs) pueden probarse en el PC, sin tener que usar un Pocket PC. Luego los EXEs se copian al Pocket PC usando ActiveSync ó una tarjeta SD de memoria. \n\nLe recomiendo que lea toda la información que proporcionamos de FWPPC en <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwppc.html\">http://www.fivetechsoft.com/spanish/fwppc.html</a><!-- m -->','',0,'gA==','3m5kjfrq',1,0,'',2,0,0),(6509,1553,6,2,0,'87.218.146.143',1139042343,1,0,1,1,1,1,'','','William,\n\n? TYPE( \"oGlobal\" )','',0,'gA==','12v7cz4c',1,0,'',2,0,0),(6510,1540,20,125,0,'194.243.7.199',1139043135,1,0,1,1,1,0,'','','SEMBRA RISOLTO IL PROBLEMA.\nPARE CHE UTILIZZAVO UN DRIVER ERRATO PER STAMPANTE. HO FATTO L\'AGGIORNAMENTO E ORA IL PDF995 FUNZIONA OK.\nGrazie','',0,'gA==','mqw3lk5y',1,0,'',125,0,0),(6511,1540,20,125,0,'194.243.7.199',1139043488,1,0,1,1,1,0,'','','Mi servirebbe pero\' sapere in  che cartella e\'  installato il PDF995 (o in generale un applicativo), poiche\' sotto WIN2000 lo installa in C:\\PROGRAMMI\\PDF995  mentre con XP lo installa in C:\\PDF995  e sotTO WIN9X ?\n\nGrazie','',0,'gA==','1h2i5dq7',1,0,'',125,0,0),(6512,1528,2,9,0,'80.103.168.74',1139049835,1,0,1,1,1,0,'','','Muy buenos Manuel, pero lo que mas me han impresionado son los folders que utilizas.- ¿Como lo haces?\n\nGracias y un saludo desde Málaga','',0,'gA==','h85bqvfh',1,0,'',9,0,0),(6514,1555,3,125,0,'194.243.7.199',1139050687,1,0,1,1,1,0,'','How to detect the programs folder','Hi, i forgot how to detect the standard folder programs, example C:\\PROGRAMS  (english) or\nC:\\PROGRAMMI (ITALIAN)\nIn particular i installed a PDF995 printer driver and i need to know where it is located to modify at runtime a pdf995.ini file.\n\nIt seems placed in c:\\programs\\pdf995 under w2000 but under XP i found it  in c:\\pdf995 (!).\nand under Win9x ?\n\ntks\nPiscicelli/zingoni','',0,'gA==','2a7nw507',1,0,'',125,0,0),(6515,1555,3,6,0,'87.3.212.22',1139056023,1,0,1,1,1,1,'','Re: How to detect the programs folder','[quote=&quot;Piscicelli Zingoni&quot;:4a1gkw2i]Hi, i forgot how to detect the standard folder programs, example C:\\PROGRAMS  (english) or\nC:\\PROGRAMMI (ITALIAN)[/quote:4a1gkw2i]\n\n[code:4a1gkw2i]#define HKEY_CURRENT_USER  2147483649\n#define HKEY_LOCAL_MACHINE 2147483650\n\n#define KEY_ALL_ACCESS 983103\n\n\nFUNCTION GETDESKDIR&#40;&#41;\n\n    LOCAL hKey &#58;= 0\n\n    LOCAL nType &#58;= 0\n\n    LOCAL cData &#58;= SPACE&#40; 256 &#41;\n\n    LOCAL nSize &#58;= LEN&#40; cData &#41;\n\n    REGOPENKEY&#40; HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders&quot;, 0, KEY_ALL_ACCESS, @hKey &#41;\n\n    REGQUERYVALUE&#40; hKey, &quot;Desktop&quot;, 0, @nType, @cData, @nSize &#41;\n\n    REGCLOSEKEY&#40; hKey &#41;\n\n    RETURN LEFT&#40; cData, AT&#40; CHR&#40; 0 &#41;, cData &#41; - 1 &#41;\n\n\nFUNCTION GETPROGDIR&#40;&#41;\n\n    LOCAL hKey &#58;= 0\n\n    LOCAL nType &#58;= 0\n\n    LOCAL cData &#58;= SPACE&#40; 256 &#41;\n\n    LOCAL nSize &#58;= LEN&#40; cData &#41;\n\n    IF !ISWINNT&#40;&#41;\n        REGOPENKEY&#40; HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders&quot;, 0, KEY_ALL_ACCESS, @hKey &#41;\n        REGQUERYVALUE&#40; hKey, &quot;Programs&quot;, 0, @nType, @cData, @nSize &#41;\n    ELSE\n        REGOPENKEY&#40; HKEY_LOCAL_MACHINE, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders&quot;, 0, KEY_ALL_ACCESS, @hKey &#41;\n        REGQUERYVALUE&#40; hKey, &quot;Common Programs&quot;, 0, @nType, @cData, @nSize &#41;\n    ENDIF\n\n    REGCLOSEKEY&#40; hKey &#41;\n\n    RETURN LEFT&#40; cData, AT&#40; CHR&#40; 0 &#41;, cData &#41; - 1 &#41;\n\n\nDLL32 FUNCTION REGOPENKEY&#40; hKey AS LONG, cSubKey AS LPSTR, nOptions AS DWORD, nSamDesired AS DWORD, @nHandle AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;RegOpenKeyExA&quot; LIB &quot;advapi32&#46;dll&quot;\n\nDLL32 FUNCTION REGQUERYVALUE&#40; hKey AS LONG, cValueName AS LPSTR, nReserved AS LONG, @nType AS PTR, @cData AS LPSTR, @nSize AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;RegQueryValueExA&quot; LIB &quot;advapi32&#46;dll&quot;\n\nDLL32 FUNCTION REGCLOSEKEY&#40; hKey AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;RegCloseKey&quot; LIB &quot;advapi32&#46;dll&quot;[/code:4a1gkw2i]\n\nEMG','',0,'gIA=','4a1gkw2i',1,0,'',6,0,0),(6516,1555,3,125,0,'194.243.7.199',1139059015,1,0,1,1,1,0,'','','Questa non mi vanno bene perche\' mi dicono dove e\' il folder del menu\' avvio\\programmi.\nForse ho posto io male la domanda: installando il pdf995 non mi chiede nessuna conferma di cartella di installazione ma crea su c:\\programmi\\pdf995 (cartella) dove mette dentro il programma mentre in\nC:\\Documents and Settings\\All-Users\\Menu Avvio\\Programmi mette altre cose (link htm) a me interessa sapere DI C:\\PROGRAMMI (se italiano) o C:\\PROGRAMS (se inglese) ecc.. insomma dove si trova effettivamente il software.\n\nPer un possibile test puoi scaricarti da <!-- w --><a class=\"postlink\" href=\"http://www.pdf995.com\">www.pdf995.com</a><!-- w -->  (area download) pdf995 Printer Driver e il Free Converter\n\nGrazie','',0,'gIA=','2m3wrq9u',1,0,'',125,0,0),(6517,1555,3,6,0,'87.3.212.22',1139059144,1,0,1,1,1,1,'','','[quote=&quot;Piscicelli Zingoni&quot;:2szree1j]Questa non mi vanno bene perche\' mi dicono dove e\' il folder del menu\' avvio\\programmi.[/quote:2szree1j]\n\nNo, le funzioni che ti ho messo sono due. Quella che serve a te è la GETPROGDIR().\n\nEMG','',0,'gA==','2szree1j',1,0,'',6,0,0),(6518,1528,2,375,0,'84.122.118.216',1139060379,1,0,1,1,1,1,'','','Muchas gracias Manuel, pero no son folders, son BITMAPS, pero da el pego. Los dialogo son NOWAIT sobre un WINDOW normal. Va muy bien; parecido al entorno MDI, pero, en ciertos aspectos, más controlable, si nunca se va a mostrar.\nHay dos BITMAPS para cada solapa, la activa y las otras, inactivas.','',0,'gA==','2667fa0f',1,0,'',375,0,0),(6519,1528,2,375,0,'84.122.118.216',1139060601,1,0,1,1,1,1,'','','Bueno, en realidad, son tres BITMAPS por cada solapa, se me olvidaba nombrar los que se \'ReLoadea\'n cuando paso el Mouse por encima (un poco más altos, para dar la impresión de que las solapas se elevan al pasar el ratón por encima).','',0,'gA==','17woxtr1',1,0,'',375,0,0),(6520,1523,6,362,0,'200.168.52.156',1139061277,1,0,1,1,1,1,'','','Antonio...\n\nCuando si tiene un SAY en una DIALOG, con el comando NRGB, no colore, esto en Windows XP.','',0,'gA==','3gnm58yk',1,0,'',362,0,0),(6521,1553,6,54,0,'201.135.253.152',1139070744,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3ttybncc]William,\n\n? TYPE( \"oGlobal\" )[/quote:3ttybncc]\n\nAntonio,\n\nPerfecto, funciono bien.\n\nPense haberlo checado.\n\nSaludos y Mil gracias','',0,'gA==','3ttybncc',1,0,'',54,0,0),(6522,1556,6,54,0,'201.135.253.152',1139071848,1,0,1,1,1,1,'','TSButton','Alguien podria ayudarme con la TSButton, requiero de incluir un menu popup, pero cuando le doy click para desplegar dicho menu, me manda un error de oFont.\n\nEste es el error que me manda.\n\nError BASE/1004 Class:\'NIL\' has no exported method: OFONT\n\nLlamadas a la pila:\n=============\nLlamado desde: OFONT(0)\nLlamado desde: MENUMEASUREITEM(2081)\nLlamado desde: TSBUTTON:MEASUREITEM(0)\nLlamado desde: TWINDOW:HANDLEEVENT(0)\nLlamado desde: TCONTROL:HANDLEEVENT(0)\nLlamado desde: TSBUTTON:HANDLEEVENT(1152)\nLlamado desde: _FWH(0)\nLlamado desde: TRACKPOPUP(0)\nLlamado desde: TMENU:ACTIVATE(0)\nLlamado desde: MNUCATALOGOS(237)\nLlamado desde: (b)MKBARRA(191)\nLlamado desde: TSBUTTON:LBUTTONDOWN(1227)\n\nEspero ayuda y comentario\nMil gracias de antemano','',0,'gA==','3nxhrn6p',1,0,'',54,0,0),(6523,1523,6,2,0,'87.218.146.54',1139083493,1,0,1,1,1,1,'','','João,\n\n\nYa está solucionado, colores y fonts en los SAYs.','',0,'gA==','cj46ub12',1,0,'',2,0,0),(6524,1523,6,228,0,'201.245.222.85',1139084112,1,0,1,1,1,1,'','Sin problema','Como dice un amigo mio, okas.\n\nSin problema Antonio hasta ahora trabaja a la perfección.','',0,'gA==','192dbojy',1,0,'',228,0,0),(6525,1527,6,138,0,'200.67.187.254',1139085552,1,0,1,1,1,1,'','','Si, el RDDADS es free esta incluido con (x)Harbour.\n\npara usarlo vas a necesitar 3 DLLs que vienen el al Advantage Data Architech, que son de libre distribucion:\n\nADSLOC32.DLL\nACE32.DLL\nAXWCS32.DLL\n\nEstas DLLs son el cliente local de ADS y te funciona con NTX, CDX y ADT, y puedes usarlo en red hasta para 5 usuarios simultaneos.','',0,'gA==','2yr5e9qy',1,0,'',138,0,0),(6526,1556,6,43,0,'201.127.21.225',1139086039,1,0,1,1,1,0,'','','Hola\n\n   debes declarar un FONT para que el menu se escriba puedes hacer esto:\n\n[code:p1x6e9we]\n             DEFINE SBUTTON oBtn2&#91;9&#93; OF oBar2 ;\n                    CAPTION &quot;Reportes&quot;  ;\n                    FONT oDlg&#58;oFont        ;    //AQUI DECLARAS EL FONT\n                    MESSAGE &quot; Reportes del Sistema&quot; ;\n                    LOOK W97            ;\n                    GROUP               ;\n                    MENU ACTION MenuPop1&#40; oBtn2&#91;9&#93; &#41;\n\n*******************************\nStatic Function MenuPop1&#40; oBtn &#41;\n  Local oMenu, aRect\n\n  aRect &#58;= GetClientRect&#40; oBtn&#58;hWnd &#41;\n\n    MENU oMenu POPUP\n       MENUITEM &quot;Recibos de &amp;Operador&quot; + Chr&#40;9&#41; + &quot;F3&quot; \n       SEPARATOR\n       MENUITEM &quot;Reporte de Recaudadora&quot; + Chr&#40;9&#41; + &quot;F4&quot; \n    ENDMENU\n\n    ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF oBtn\n\nReturn&#40;Nil&#41;\n[/code:p1x6e9we]\n\nEspero te sirva\n\nSaludos\n Marco A. Delgado','',0,'AIA=','p1x6e9we',1,0,'',43,0,0),(6527,1557,2,375,0,'84.122.118.216',1139087158,1,0,1,1,1,1,'','Gama de colores para todos','Por si a alguien le interesa, ahí van algunos colores que utilizo en todos mis programas. Los he incluido en mi Colors.ch para no tener que definirlos a cada vez.\n\nPrimero, un par de funciones precompiladas que también tengo en Colors.ch, para los que como yo gustan de utilizar una amplia gama de colores. Son para aclarar u oscurecer colores especificos. Por Ejemplo ACLORO(CLR_BLUE,64) probadlas.\n\n#xTranslate OSCURO( &lt;nColor&gt;,&lt;nVar&gt; ) =&gt; ;\n	    RGB( MAX(0,nRGBRed(   &lt;nColor&gt; )-&lt;nVar&gt; ) , ;\n		 MAX(0,nRGBGreen( &lt;nColor&gt; )-&lt;nVar&gt; ) , ;\n		 MAX(0,nRGBBlue(  &lt;nColor&gt; )-&lt;nVar&gt; ) )\n\n#xTranslate ACLARO( &lt;nColor&gt;,&lt;nVar&gt; ) =&gt; ;\n	    RGB( MIN(255,nRGBRed(   &lt;nColor&gt; )+&lt;nVar&gt; ) , ;\n		 MIN(255,nRGBGreen( &lt;nColor&gt; )+&lt;nVar&gt; ) , ;\n		 MIN(255,nRGBBlue(  &lt;nColor&gt; )+&lt;nVar&gt; ) )\n\nLos siguientes son colores pasteles, muy claritos para los fondos de los GET\'s\n#define CLR_AZUL       16711408		      // RGB( 240, 254, 254 )\n#define CLR_PALIDO     14483198		      // RGB( 254, 254, 220 )\n#define CLR_ROSA       16771327		      // RGB( 255, 232, 255 )\n#define CLR_VERDE      15793904		      // RGB( 240, 254, 240 )\n\nEste es el Gris WINDOWS 95/98:\n#define CLR_WGRAY      12566463		      // RGB( 191, 191, 191 )\n\nEstos colores faltaban en mi gama cromática:\n#define CLR_NARANJA       42234               // RGB( 250, 164,   0 )\n#define CLR_VIOLETA     7234710		      // RGB( 150, 100, 110 ) violeta oscuro\n#define CLR_BLUEW      10521740		      // RGB( 140, 140, 160 ) azul grisaceo\n#define CLR_CIELO      16774388		      // RGB( 244, 244, 255 )\n#define CLR_MARRON      3707588               // RGB( 212, 162,  72 )\n\nDisfrutadlos.','',0,'AIA=','bfh2s0hj',1,0,'',375,0,0),(6528,1558,6,375,0,'84.122.118.216',1139087192,1,0,1,1,1,1,'','Gama de colores para todos','Por si a alguien le interesa, ahí van algunos colores que utilizo en todos mis programas. Los he incluido en mi Colors.ch para no tener que definirlos a cada vez.\n\nPrimero, un par de funciones precompiladas que también tengo en Colors.ch, para los que como yo gustan de utilizar una amplia gama de colores. Son para aclarar u oscurecer colores especificos. Por Ejemplo ACLORO(CLR_BLUE,64) probadlas.\n\n#xTranslate OSCURO( &lt;nColor&gt;,&lt;nVar&gt; ) =&gt; ;\n	    RGB( MAX(0,nRGBRed(   &lt;nColor&gt; )-&lt;nVar&gt; ) , ;\n		 MAX(0,nRGBGreen( &lt;nColor&gt; )-&lt;nVar&gt; ) , ;\n		 MAX(0,nRGBBlue(  &lt;nColor&gt; )-&lt;nVar&gt; ) )\n\n#xTranslate ACLARO( &lt;nColor&gt;,&lt;nVar&gt; ) =&gt; ;\n	    RGB( MIN(255,nRGBRed(   &lt;nColor&gt; )+&lt;nVar&gt; ) , ;\n		 MIN(255,nRGBGreen( &lt;nColor&gt; )+&lt;nVar&gt; ) , ;\n		 MIN(255,nRGBBlue(  &lt;nColor&gt; )+&lt;nVar&gt; ) )\n\nLos siguientes son colores pasteles, muy claritos para los fondos de los GET\'s\n#define CLR_AZUL       16711408		      // RGB( 240, 254, 254 )\n#define CLR_PALIDO     14483198		      // RGB( 254, 254, 220 )\n#define CLR_ROSA       16771327		      // RGB( 255, 232, 255 )\n#define CLR_VERDE      15793904		      // RGB( 240, 254, 240 )\n\nEste es el Gris WINDOWS 95/98:\n#define CLR_WGRAY      12566463		      // RGB( 191, 191, 191 )\n\nEstos colores faltaban en mi gama cromática:\n#define CLR_NARANJA       42234               // RGB( 250, 164,   0 )\n#define CLR_VIOLETA     7234710		      // RGB( 150, 100, 110 ) violeta oscuro\n#define CLR_BLUEW      10521740		      // RGB( 140, 140, 160 ) azul grisaceo\n#define CLR_CIELO      16774388		      // RGB( 244, 244, 255 )\n#define CLR_MARRON      3707588               // RGB( 212, 162,  72 )\n\nDisfrutadlos.','',0,'AIA=','2jyve9gv',1,0,'',375,0,0),(6529,1526,6,61,0,'201.217.160.75',1139087270,1,0,1,1,1,0,'','Saludos desde Maldonado','Hola José, \nsoy Ruben Fernandez de Maldonado Uruguay\nbienvenido y a las ordenes.\n\nSaludos.','',0,'AIA=','o521svfk',1,0,'',61,0,0),(6530,1557,2,404,0,'213.231.101.107',1139089313,1,0,1,1,1,0,'','Los tendre en cuenta.','Cuando este, un poco más liberado, del programita que estoy haciendo, los probaré.\n\nEstaremos en contacto, siempre que no le importe.\n\nSaludos, José Mª','',0,'AIA=','1t44w5wk',1,0,'',404,0,0),(6531,1557,2,375,0,'84.122.118.216',1139089456,1,0,1,1,1,1,'','','OK Jose Mª','',0,'AIA=','1abxv7kw',1,0,'',375,0,0),(6532,1523,6,61,0,'201.217.161.70',1139090543,1,0,1,1,1,0,'','','Antonio:\n\nPodría incorporar la funcion degrade ?\n\nMuchas gracias\n\nSaludos\nRuben Fernandez','',0,'AIA=','2mrcm3oy',1,0,'',61,0,0),(6533,1559,6,396,0,'201.242.43.197',1139094194,1,0,1,1,1,0,'','error con varce y compialndo','Compilado y Enlazado de: [C:\\SISINGE\\Farmacia\\FARMACIA.Exe]                                                                       \nEjecución No. 1                                                                                                                   \nEjecutada a las: 10:38:08                                                                                                         \n============================================================                                                                      \nHarbour Compiler Alpha build 40.0 (Flex)                                                                                          \nCopyright 1999-2002, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->                                                                              \nCompiling \'C:\\SISINGE\\Farmacia\\farmacia.prg\'...                                                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'LORIGEN\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'LAPPEND\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'NMENU\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'LPRINT\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'LARCHIVOS\'                                              \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'RDLL\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'OCURMANO\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'NTOP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(29) Warning W0001  Ambiguous reference: \'NRECNO\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(31) Warning W0001  Ambiguous reference: \'OWHIJAS\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(43) Warning W0001  Ambiguous reference: \'RDLL\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(43) Warning W0001  Ambiguous reference: \'RDLL\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(43) Warning W0001  Ambiguous reference: \'RDLL\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(47) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(49) Warning W0001  Ambiguous reference: \'OCURMANO\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(53) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(53) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(55) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(55) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(57) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(57) Warning W0001  Ambiguous reference: \'OCURMANO\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(57) Warning W0001  Ambiguous reference: \'OBARPPAL\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(59) Warning W0001  Ambiguous reference: \'OBARPPAL\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(63) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(63) Warning W0001  Ambiguous reference: \'OBARPPAL\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(68) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(68) Warning W0001  Ambiguous reference: \'OBARPPAL\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(72) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(72) Warning W0001  Ambiguous reference: \'OBARPPAL\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(76) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(76) Warning W0001  Ambiguous reference: \'RBMP\'                                                   \nC:\\SISINGE\\Farmacia\\farmacia.prg(76) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(76) Warning W0001  Ambiguous reference: \'OBARPPAL\'                                               \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(80) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(82) Warning W0001  Ambiguous reference: \'GETLIST\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(114) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(300) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(305) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(312) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(324) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(328) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(332) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(336) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(342) Warning W0001  Ambiguous reference: \'RBMP\'                                                  \nC:\\SISINGE\\Farmacia\\farmacia.prg(382) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(385) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(385) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(387) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(387) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(389) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(389) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(391) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(391) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(395) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(395) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(397) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(397) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(399) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(399) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(401) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(401) Warning W0001  Ambiguous reference: \'OWPPAL\'                                                \nC:\\SISINGE\\Farmacia\\farmacia.prg(418) Warning W0001  Ambiguous reference: \'OMENU\'                                                 \nC:\\SISINGE\\Farmacia\\farmacia.prg(434) Warning W0001  Ambiguous reference: \'OMENU\'                                                 \nNo code generated.                                                                                                                \nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland                                                                                \n** error 1 ** deleting C:\\SISINGE\\Farmacia\\farmacia.hrb                                                                           \nHa habido ERRORES al intentar Generar la Aplicacion                                                                               \n============================================================                                                                      \nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3                                                                       \nJuan Carlos Salinas Ojeda                                                                                                         \n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->                                                                                                \nMinatitlán, Veracruz. MEXICO                                                                                                      \nY Solo Veracruz es bello !!!                                                                                                      \nFiveWin for Harbour!!','',0,'','onxll1j1',1,0,'',396,0,0),(6534,1560,6,396,0,'201.242.43.197',1139094262,1,0,1,1,1,0,'','error verce 2','Application\n===========\n   Path and name: C:\\Archivos de programa\\VeRCE\\Verce.exe (32 bits)\n   Size: 1,719,808 bytes\n   Time from start: 0 hours 2 mins 41 secs \n   Error occurred at: 30/01/2006, 23:18:26\n   Error description: (DOS Error 2) BASE/2012  Create error: C:\\FWH\\LIB\\ACE32.LIB\n\nStack Calls\n===========\n   Called from __COPYFILE(0)\n   Called from GENERAMAK(59)\n   Called from WNDCOMPILER(816)\n   Called from (b)MAIN(171)\n   Called from TTOOLBAR:COMMAND(140)\n   Called from TWINDOW:COMMAND(934)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3125)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(880)\n   Called from MAIN(267)\n\nSystem\n======\n   CPU type: GetCPU() failed! 2000 Mhz\n   Hardware memory: 512 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 45.0 Intl. (Flex)\n   Windows version: 5.1, Build 2600 Service Pack 1\n\n   Windows total applications running: 33\n      1 \n      2 Menú Inicio\n      3  \n      4 NetDDE Agent\n      5 Compilar\n      6 Guardar proyecto\n      7 VERCE v4.3, C:\\SISINGE\\Farmacia\\FARMACIA.VRC\n      8 Timer\n      9 Símbolo del sistema\n     10 Player Window\n     11 Playlist Editor\n     12 Winamp Library\n     13 Jump To File\n     14 Winamp Equalizer\n     15 Winamp Video\n     16 123. artist - Track 7 - Winamp\n     17 WOWExec\n     18 DDE Server Window\n     19 MCI command handling window\n     20 MS_WebcheckMonitor\n     21 Centinel VxD\n     22 Pavprsrv_Wnd\n     23 NVSVCPMMWindowClass\n     24 AntispamServer\n     25 PNPNOTIFICATIONRECEIVER_3A3D30\n     26 InCD_GUI_MAINFRAME__1A6E0D67_3515_471D_8D7D_C8E76EC0DA2A\n     27 {BE655EA0-84D2-11d4-9733-444553540001}\n     28 Connections Tray\n     29 {44C6FB81-KBDWNDCLS-B4F7-11d4-9FDD-0800460222F0}\n     30 AcrobatTrayIcon\n     31 Medidor de energía\n     32 SysFader\n     33 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   __COPYFILE\n     Param   1:    C    \"C:\\Xharbour\\LIB\\ACE32.LIB\"\n     Param   2:    C    \"C:\\FWH\\LIB\\ACE32.LIB\"\n   GENERAMAK\n     Local   1:    C    \"####################################################################\n#                                                                  #\n# PLANTILLA GENERADA CON VERCE                                     #\n#                                                                  #\n####################################################################\n\n\n# Make directives ####################################################\n\n.autodepend\n.swap\n.suffixes: .prg .hrb\n\n# Flags for modules to include: YES | NO (must be UPPERCASE)#\n\n\"\n     Local   2:    L    .F.\n     Local   3:    L    .T.\n     Local   4:    L    .T.\n     Local   5:    L    .F.\n     Local   6:    L    .F.\n     Local   7:    L    .F.\n     Local   8:    L    .F.\n     Local   9:    N    1\n     Local  10:    C    \"FARMACIA\"\n     Local  11:    C    \"C:\\SISINGE\\Farmacia\"\n     Local  12:    C    \"C:\\SISINGE\\Farmacia\"\n     Local  13:    C    \"C:\\SISINGE\\Farmacia\"\n     Local  14:    C    \"C:\\SISINGE\\Farmacia\\DLL\"\n     Local  15:    C    \"C:\\harbour\"\n     Local  16:    C    \"C:\\Bcc55\"\n     Local  17:    C    \"C:\\FWH\"\n     Local  18:    C    \"C:\\Xharbour\"\n     Local  19:    C    \"C:\\FWH\\FiveHX.Lib\"\n     Local  20:    N    2\n     Local  21:    A    Len:   22\n     Local  22:    A    Len:    0\n     Local  23:    C    \"/n /m /w /es2 /gc1\"\n     Local  24:    C    \"/c /O2\"\n     Local  25:    C    \" /Gn /aa /Tpe /s\"\n     Local  26:    C    \"/n /m /w /es2 /gc1\"\n     Local  27:    C    \"\"\n     Local  28:    A    Len:    0\n     Local  29:    A    Len:    0\n     Local  30:    C    \"C:\\Xharbour\\LIB\\ACE32.LIB\"\n     Local  31:    C    \"C:\\FWH\\LIB\\ACE32.LIB\"\n     Local  32:    U    \n     Local  33:    A    Len:    0\n     Local  34:    U    \n     Local  35:    U    \n     Local  36:    U    \n     Local  37:    U    \n     Local  38:    U    \n     Local  39:    U    \n     Local  40:    C    \"\"\n     Local  41:    C    \"\"\n   WNDCOMPILER\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    L    .T.\n     Local   8:    U    \n     Local   9:    L    .F.\n     Local  10:    L    .T.\n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    U    \n     Local  16:    L    .F.\n     Local  17:    U    \n     Local  18:    C    \"C:\\ARCHIVOS DE PROGRAMA\\VERCE\\TEMP\\VE1B56.TMP\"\n     Local  19:    U    \n     Local  20:    U    \n     Local  21:    N    1\n     Local  22:    L    .F.\n     Local  23:    C    \"C:\\SISINGE\\Farmacia\\FARMACIA.Exe\"\n     Local  24:    C    \"C:\\SISINGE\\Farmacia\\DLL\\FARMACIA.RC\"\n     Local  25:    C    \"C:\\SISINGE\\Farmacia\\DLL\\FARMACIA.RES\"\n     Local  26:    C    \"C:\\SISINGE\\Farmacia\\DLL\\FARMACIA.RWS\"\n     Local  27:    C    \"C:\\ARCHIVOS DE PROGRAMA\\VERCE\\C:\\ARCHIVOS DE PROGRAMA\\VERCE.LIB\"\n     Local  28:    N    1\n     Local  29:    N    1\n   (b)MAIN\n     Param   1:    O    Class: TTOOLBAR\n   TTOOLBAR:COMMAND\n     Param   1:    N    1\n     Param   2:    N    1048906\n     Local   1:    O    Class: TTOOLBAR\n     Local   2:    N    0\n     Local   3:    N    1\n     Local   4:    N    1048906\n     Local   5:    B    {|| ... }\n   TWINDOW:COMMAND\n     Param   1:    N    1\n     Param   2:    N    1048906\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    1\n     Local   4:    N    1048906\n   TWINDOW:COMMAND\n     Param   1:    N    1\n     Param   2:    N    1048906\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    L    .T.\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    1\n     Param   3:    N    1048906\n   _FWH\n     Param   1:    N    1048906\n     Param   2:    N    273\n     Param   3:    N    1\n     Param   4:    N    1048906\n     Param   5:    N    1\n     Local   1:    O    Class: TMDIFRAME\n   WINRUN\n     Param   1:    N    1179952\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    B    {|| ... }\n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    O    Class: TBRUSH\n     Local   3:    O    Class: TICON\n     Local   4:    U    \n     Local   5:    N    6\n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    O    Class: TIMAGELIST\n     Local  10:    O    Class: TIMAGELIST\n     Local  11:    O    Class: TIMAGELIST\n     Local  12:    O    Class: TIMAGELIST\n     Local  13:    O    Class: TIMAGELIST\n     Local  14:    O    Class: TIMAGELIST\n     Local  15:    O    Class: TIMAGELIST\n     Local  16:    O    Class: TREBAR\n\nLinked RDDs\n===========\n   DBF\n   DBFDBT\n   DBFFPT\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TCONTROL\n     5 TXBROWSE\n     6 TICON\n     7 TBRUSH\n     8 TINI\n     9 TMDIFRAME\n    10 TC5MENU\n    11 TMENUITEMC5\n    12 TMDICLIENT\n    13 TFONT\n    14 TIMAGELIST\n    15 TBITMAP\n    16 TREBAR\n    17 TTOOLBAR\n    18 TMSGBAR\n    19 TRECT\n    20 TMSGITEM\n    21 TTIMER\n    22 TDIALOG\n    23 TSAY\n    24 TURLLINK\n    25 TCURSOR\n    26 TBUTTON\n    27 TBUTTONBMP\n    28 TMDICHILD\n    29 TICONGROUP\n    30 TSCROLLBAR\n    31 TRADMENU\n    32 TRADIO\n    33 TFOLDER\n    34 TGET\n    35 GET\n    36 TCLIPGET\n    37 TCHECKBOX\n    38 TLISTBOX\n    39 TMULTIGET\n    40 ERROR\n\nMemory Analysis\n===============\n      159 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','375mzzm4',1,0,'',396,0,0),(6535,1561,6,396,0,'201.242.43.197',1139094401,1,0,1,1,1,0,'','error con varce y compialndo 2','[LIB-OBJ TERCEROS]\nREINICIAR=.T.\n1=  \n2=  \n3=  \n4=  \n5=  \n6=  \n7=  \n8=  \n9=  \n10=  \n11=  \n12=  \n13=  \n14=  \n15=  \n16=  \n17=  \n18=  \n19=  \n20=  \n[APLICACION]\nEXE=FARMACIA                                                         \nDIR_EXE=C:\\SISINGE\\Farmacia                                                                                                                                                                                                                                                                                                                                                                                                                \nDIR_PRG=C:\\SISINGE\\Farmacia\nDIR_OBJ=C:\\SISINGE\\Farmacia                                                                                                                                                                                                                                                                                                                                                                                                                    \nDIR_RC=C:\\SISINGE\\Farmacia\\DLL                                                                                                                                                                                                                                                                                                                                                                                                                \n[MODULOS]\nRC=.F.\nTIPO_RES=1\nNTX=.T.\nCDX=.T.\nDEBUG=.F.\nADVANTAGE=.F.\nODBC=.F.\nMAP=.F.\n[COMPILADOR]\nID=1\n[TIPO_RES]\nID=1\n[DLL32]\nUSAR=.F.\nDIR=C:\\ARCHIVOS DE PROGRAMA\\VERCE                                                                                                                                                                                                                                                                                                                                                                                                                \nRC=                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    \n[PRGS]\n1=FARMACIA.PRG\n2=BTNGET.PRG\n3=BORLBTN.PRG\n4=FCOMPRA.PRG\n5=GENERAL.PRG\n6=INVENTA.PRG\n7=MBANCO.PRG\n8=MBENEFI.PRG\n9=MCLACLI.PRG\n10=MCLAPRO.PRG\n11=MCLIEN.PRG\n12=MDI.PRG\n13=MDIRBT.PRG\n14=MINV.PRG\n15=MINVALM.PRG\n16=MINVGRU.PRG\n17=MINVMAR.PRG\n18=MPROVEE.PRG\n19=MVENDE.PRG\n20=RECURSO.PRG\n21=TDOSPRN.PRG\n22=XMPROVEE.PRG\n23=  \n24=  \n25=  \n26=  \n27=  \n28=  \n29=  \n30=  \n31=  \n32=  \n33=  \n34=  \n35=  \n36=  \n37=  \n38=  \n39=  \n40=  \n41=  \n42=  \n43=  \n44=  \n45=  \n46=  \n47=  \n48=  \n49=  \n50=  \n51=  \n52=  \n53=  \n54=  \n55=  \n56=  \n57=  \n58=  \n59=  \n60=  \n61=  \n62=  \n63=  \n64=  \n65=  \n66=  \n67=  \n68=  \n69=  \n70=  \n71=  \n72=  \n73=  \n74=  \n75=  \n76=  \n77=  \n78=  \n79=  \n80=  \n81=  \n82=  \n83=  \n84=  \n85=  \n86=  \n87=  \n88=  \n89=  \n90=  \n91=  \n92=  \n93=  \n94=  \n95=  \n96=  \n97=  \n98=  \n99=  \n100=  \n101=  \n102=  \n103=  \n104=  \n105=  \n106=  \n107=  \n108=  \n109=  \n110=  \n111=  \n112=  \n113=  \n114=  \n115=  \n116=  \n117=  \n118=  \n119=  \n120=  \n121=  \n122=  \n123=  \n124=  \n125=  \n126=  \n127=  \n128=  \n129=  \n130=  \n131=  \n132=  \n133=  \n134=  \n135=  \n136=  \n137=  \n138=  \n139=  \n140=  \n141=  \n142=  \n143=  \n144=  \n145=  \n146=  \n147=  \n148=  \n149=  \n150=  \n[C]\n1=BTNPAINT.C\n2=GETBTN.C\n3=  \n4=  \n5=  \n6=  \n7=  \n8=  \n9=  \n10=  \n11=  \n12=  \n13=  \n14=  \n15=  \n16=  \n17=  \n18=  \n19=  \n20=  \n21=  \n22=  \n23=  \n24=  \n25=  \n26=  \n27=  \n28=  \n29=  \n30=  \n31=  \n32=  \n33=  \n34=  \n35=  \n36=  \n37=  \n38=  \n39=  \n40=  \n41=  \n42=  \n43=  \n44=  \n45=  \n46=  \n47=  \n48=  \n49=  \n50=  \n51=  \n52=  \n53=  \n54=  \n55=  \n56=  \n57=  \n58=  \n59=  \n60=  \n61=  \n62=  \n63=  \n64=  \n65=  \n66=  \n67=  \n68=  \n69=  \n70=  \n71=  \n72=  \n73=  \n74=  \n75=  \n76=  \n77=  \n78=  \n79=  \n80=  \n81=  \n82=  \n83=  \n84=  \n85=  \n86=  \n87=  \n88=  \n89=  \n90=  \n91=  \n92=  \n93=  \n94=  \n95=  \n96=  \n97=  \n98=  \n99=  \n100=  \n101=  \n102=  \n103=  \n104=  \n105=  \n106=  \n107=  \n108=  \n109=  \n110=  \n111=  \n112=  \n113=  \n114=  \n115=  \n116=  \n117=  \n118=  \n119=  \n120=  \n121=  \n122=  \n123=  \n124=  \n125=  \n126=  \n127=  \n128=  \n129=  \n130=  \n131=  \n132=  \n133=  \n134=  \n135=  \n136=  \n137=  \n138=  \n139=  \n140=  \n141=  \n142=  \n143=  \n144=  \n145=  \n146=  \n147=  \n148=  \n149=  \n150=  \n[INCLUDE_SHARED]\n1=  \n2=  \n3=  \n4=  \n5=  \n6=  \n7=  \n8=  \n9=  \n10=  \n11=  \n12=  \n13=  \n14=  \n15=  \n16=  \n17=  \n18=  \n19=  \n20=  \n21=  \n22=  \n23=  \n24=  \n25=  \n26=  \n27=  \n28=  \n29=  \n30=  \n31=  \n32=  \n33=  \n34=  \n35=  \n36=  \n37=  \n38=  \n39=  \n40=  \n41=  \n42=  \n43=  \n44=  \n45=  \n46=  \n47=  \n48=  \n49=  \n50=  \n51=  \n52=  \n53=  \n54=  \n55=  \n56=  \n57=  \n58=  \n59=  \n60=  \n61=  \n62=  \n63=  \n64=  \n65=  \n66=  \n67=  \n68=  \n69=  \n70=  \n71=  \n72=  \n73=  \n74=  \n75=  \n76=  \n77=  \n78=  \n79=  \n80=  \n81=  \n82=  \n83=  \n84=  \n85=  \n86=  \n87=  \n88=  \n89=  \n90=  \n91=  \n92=  \n93=  \n94=  \n95=  \n96=  \n97=  \n98=  \n99=  \n100=  \n101=  \n102=  \n103=  \n104=  \n105=  \n106=  \n107=  \n108=  \n109=  \n110=  \n111=  \n112=  \n113=  \n114=  \n115=  \n116=  \n117=  \n118=  \n119=  \n120=  \n121=  \n122=  \n123=  \n124=  \n125=  \n126=  \n127=  \n128=  \n129=  \n130=  \n131=  \n132=  \n133=  \n134=  \n135=  \n136=  \n137=  \n138=  \n139=  \n140=  \n141=  \n142=  \n143=  \n144=  \n145=  \n146=  \n147=  \n148=  \n149=  \n150=  \n[SOURCE_SHARED]\n1=  \n2=  \n3=  \n4=  \n5=  \n6=  \n7=  \n8=  \n9=  \n10=  \n11=  \n12=  \n13=  \n14=  \n15=  \n16=  \n17=  \n18=  \n19=  \n20=  \n21=  \n22=  \n23=  \n24=  \n25=  \n26=  \n27=  \n28=  \n29=  \n30=  \n31=  \n32=  \n33=  \n34=  \n35=  \n36=  \n37=  \n38=  \n39=  \n40=  \n41=  \n42=  \n43=  \n44=  \n45=  \n46=  \n47=  \n48=  \n49=  \n50=  \n51=  \n52=  \n53=  \n54=  \n55=  \n56=  \n57=  \n58=  \n59=  \n60=  \n61=  \n62=  \n63=  \n64=  \n65=  \n66=  \n67=  \n68=  \n69=  \n70=  \n71=  \n72=  \n73=  \n74=  \n75=  \n76=  \n77=  \n78=  \n79=  \n80=  \n81=  \n82=  \n83=  \n84=  \n85=  \n86=  \n87=  \n88=  \n89=  \n90=  \n91=  \n92=  \n93=  \n94=  \n95=  \n96=  \n97=  \n98=  \n99=  \n100=  \n101=  \n102=  \n103=  \n104=  \n105=  \n106=  \n107=  \n108=  \n109=  \n110=  \n111=  \n112=  \n113=  \n114=  \n115=  \n116=  \n117=  \n118=  \n119=  \n120=  \n121=  \n122=  \n123=  \n124=  \n125=  \n126=  \n127=  \n128=  \n129=  \n130=  \n131=  \n132=  \n133=  \n134=  \n135=  \n136=  \n137=  \n138=  \n139=  \n140=  \n141=  \n142=  \n143=  \n144=  \n145=  \n146=  \n147=  \n148=  \n149=  \n150=  \n[LIBRERIA]\nDIR_LIB=C:\\ARCHIVOS DE PROGRAMA\\VERCE\nNOMBRE=C:\\ARCHIVOS DE PROGRAMA\\VERCE\n[RUTAS]\nHARBOUR=C:\\harbour                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \nBORLAND=C:\\BORLAND\\BCC55                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \nFIVEWIN=C:\\FWH24                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \nXHARBOUR=C:\\Xharbour                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        \nXHARLIB=C:\\FWH24\\LIB\\FiveH.lib                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      \n[FLAGS]\nHARBOUR=/n /m /w /es2 /gc1\nBCC32=/c /O2\nILINK= /Gn /aa /Tpe /s\nXHARBOUR=/n /m /w /es2 /gc1\n[TIPO_PROYECTO]\nID=1\n\n\n\nsi alguien sabe el porque de esto, muchas gracias, me quie por las ayudas yn nada, antes tenis fw25/bl6.0/clip53','',0,'','25r6ik92',1,0,'',396,0,0),(6537,1563,6,396,0,'201.242.43.197',1139094892,1,0,1,1,1,0,'','EJEMPLO MDI','Alguien tendra 1 ejemplo de MDI con FWH y que editor dee recursos es el mas sugerido, antes usaba WS en FW.','',0,'','oat0purw',1,0,'',396,0,0),(6538,1528,2,375,0,'84.122.118.216',1139095517,1,0,1,1,1,1,'','','Repasando mi clase TDIAG me he dado cuenta de un pequeño error, ::PintSombra sólo debe ejecutarse (en bStartPaint) si ::lSomb es .T.\nPerdon!!\nLo que pasa es que yo siempre la utilizo con color de sombra.','',0,'','1cs8x8yz',1,0,'',375,0,0),(6539,1556,6,54,0,'201.135.253.152',1139099747,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:39uug6rs]Hola\n\n   debes declarar un FONT para que el menu se escriba puedes hacer esto:\n\n[code:39uug6rs]\n             DEFINE SBUTTON oBtn2&#91;9&#93; OF oBar2 ;\n                    CAPTION &quot;Reportes&quot;  ;\n                    FONT oDlg&#58;oFont        ;    //AQUI DECLARAS EL FONT\n                    MESSAGE &quot; Reportes del Sistema&quot; ;\n                    LOOK W97            ;\n                    GROUP               ;\n                    MENU ACTION MenuPop1&#40; oBtn2&#91;9&#93; &#41;\n\n*******************************\nStatic Function MenuPop1&#40; oBtn &#41;\n  Local oMenu, aRect\n\n  aRect &#58;= GetClientRect&#40; oBtn&#58;hWnd &#41;\n\n    MENU oMenu POPUP\n       MENUITEM &quot;Recibos de &amp;Operador&quot; + Chr&#40;9&#41; + &quot;F3&quot; \n       SEPARATOR\n       MENUITEM &quot;Reporte de Recaudadora&quot; + Chr&#40;9&#41; + &quot;F4&quot; \n    ENDMENU\n\n    ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF oBtn\n\nReturn&#40;Nil&#41;\n[/code:39uug6rs]\n\nEspero te sirva\n\nSaludos\n Marco A. Delgado[/quote:39uug6rs]\n\nNooop, sigue igual.\n\nLo he hecho en el orden que me indicas y tampoco.\n\nSaludos, sigo pendiente','',0,'gIA=','39uug6rs',1,0,'',54,0,0),(6540,1564,3,299,0,'69.65.88.121',1139104155,1,0,1,0,1,0,'','RichtText Class','Hi.\n\nI see the function RESetTextColor( ::hWnd, nRGB ) being used to color selected text.  I also see :\n\n   RESetCharFormat( ::hWnd, ::oFont:cFaceName, ;\n                    ::oFont:nHeight * FNT_HEIGHT, nColor, ;\n                    ::oFont:nCharSet, ;\n                    ::oFont:nPitchFamily, ;\n                    ::oFont:nWeight, ;\n                    ::oFont:lItalic, ;\n                    ::oFont:lUnderline, ;\n                    ::oFont:lStrikeOut )\n\nused to set font, size, color, etc... on selected text.    They both work just fine to change foreground color of text.   \n\nHowever, I\'d like to find a way to change the background color of selected text.   Neither of these two seems to do it.  Does any body know how can it be done?\n\nthank you,\n\n\nReinaldo Crespo-Bazán.','',0,'gIA=','28qqiqwi',1,0,'',299,0,0),(6541,1565,6,413,0,'194.106.16.43',1139122665,1,0,1,1,1,0,'','Configuracion editor/compilador Multiedit para Fivewin/Harbo','Alguien maneja el Mulitedit (<!-- m --><a class=\"postlink\" href=\"http://www.multieditsoftware.com\">http://www.multieditsoftware.com</a><!-- m -->) y lo tiene configurado para fivewin y harbour, se que se puede hacer, llevo mucho tiempo usandolo solo como editor, pero creo que casa muy bien con lenguajes como el Borland C entre otros muchos....\nAlguien me puede dar una pista de como hay que hacerlo para que haga lo mismo que otros frontend....\n\nUn saludo \nAndrés González \nPalma de Malorca','',0,'gIA=','12okceek',1,0,'',413,0,0),(6542,1564,3,6,0,'82.59.188.116',1139135895,1,0,1,1,1,1,'','Re: RichtText Class','Have a look at EM_SETCHARFORMAT message, SCF_SELECTION option and crBackColor field of CHARFORMAT2 structure (remember to set dwMask field to CFM_BACKCOLOR to activate crBackColor field).\n\nEMG','',0,'gIA=','39w9ffhw',1,0,'',6,0,0),(6543,1566,3,49,0,'82.61.128.96',1139136381,1,0,1,1,1,0,'','NOt the same color when I load this function','When I load this function I insert a color as the defines :\n\nOn Main program I insert these lines\n\n[code:2z63tbfr] DEFINE BRUSH oPenL COLOR CLR_HBLUE  \n   DEFINE BRUSH oPenR COLOR CLR_HRED[/code:2z63tbfr]\n\nand then\n[code:2z63tbfr]  disegna&#40; nLinea+nVertic+4, nColumnaInicio+nHoriz2, nLinea+nVertic+14, nColumnaFinal+nHoriz2, oPenR &#41;\n    [/code:2z63tbfr]\n\n\nthe func disegna is this \n[code:2z63tbfr] \nFunc disegna &#40; nTop, nLeft, nBottom, nRight, nColor &#41; \n   LOCAL oBrush, hBru, hOld\n\n   hBru &#58;= CreateSolidBrush&#40; nColor &#41;\n   hPen &#58;= CreatePen&#40; nColor &#41;\n   hOld &#58;= SelectObject&#40; hDC, hBru &#41;\n    Rectangle&#40; hDC, nTop, nLeft, nBottom, nRight, hPen &#41;\n  * MoveTo&#40; hDC, nLeft, nTop &#41;\n  * LineTo&#40; hDC, nRight, nBottom, hPen &#41;\n\n\n  FillRect&#40; hDC, &#123; nTop + 2, nLeft + 2, nBottom, nRight &#125;, hBru &#41;\n\n   SelectObject&#40; hDC, hOld &#41;\n   DeleteObject&#40; hBru &#41;\n\n   RETURN &#40;Nil&#41;[/code:2z63tbfr]\n\n\n\nbut the procedure draw  black rectangules ...why ?\n\nI want blu or red rectang\n\n\nBest Regards','',0,'AIA=','2z63tbfr',1,0,'',49,0,0),(6544,1376,20,49,0,'82.61.128.96',1139136755,1,0,1,1,1,0,'','','niente mi ha risposto linares e mi ha detto che ancora in (x) harbour non l\'hanno implementato\npeccato però perchè mi era di molo utile','',0,'AIA=','a1i99bb2',1,0,'',49,0,0),(6545,1567,20,49,0,'82.61.128.96',1139136970,1,0,1,1,1,0,'','RTFMERGE','ho visto che nelle vecchie versioni c\'è questa funzione \nperchè nella nuova versione non c\'è ?\n\ngrazie','',0,'AIA=','27zjehlu',1,0,'',49,0,0),(6546,1566,3,6,0,'82.59.188.116',1139139114,1,0,1,1,1,1,'','Re: NOt the same color when I load this function','You haven\'t defined hDC (or you have not reported here the relevant code). Please post a reduced and self-contained sample of the problem.\n\nEMG','',0,'AIA=','34ml3cur',1,0,'',6,0,0),(6547,1568,3,6,0,'82.59.188.116',1139155176,1,0,1,1,1,1,'','Little problem in TButton?','This is the sample. As you can notice, clicking on the button has no effect:\n\n[code:2sids4ow]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, oBtn\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar\n\n    @ 3, 1 BUTTON oBtn PROMPT &quot;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    oBtn&#58;bLButtonUp = &#123; || oGet&#58;SetFocus&#40;&#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2sids4ow]\n\nThis is a possible solution: add the following method to TButton:\n\n[code:2sids4ow]METHOD LButtonUp&#40; nRow, nCol, nKeyFlags &#41; CLASS TButton\n\n   if &#58;&#58;bLButtonUp != nil &#46;and&#46; !IsOverWnd&#40; &#58;&#58;hWnd, nRow, nCol &#41;\n      return Eval&#40; &#58;&#58;bLButtonUp, nRow, nCol, nKeyFlags &#41;\n   endif\n\nreturn nil[/code:2sids4ow]\n\nWhat do you think?\n\nEMG','',0,'AIA=','2sids4ow',1,0,'',6,0,0),(6548,1564,3,299,0,'69.65.88.121',1139161004,1,0,1,0,1,0,'','','Enrico;\n\nThank you for the tip.  \n\nI seldom make any contributions.  \n\nBelow is what I wrote.  \n\nThat\'s my 2 cents.\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC( HIGHLIGHTSELECTION )\n{\n   CHARFORMAT2 cfrm;\n\n   memset( ( char * ) &amp;cfrm, 0, sizeof( cfrm ) );\n\n   cfrm.cbSize = sizeof( cfrm );\n   cfrm.dwMask = CFM_BACKCOLOR;  //EMG tip.  Without it won\'t work\n   cfrm.crBackColor = hb_parnl( 2 );   //color passed from xharb source\n\n   hb_retl( SendMessage( ( HWND ) hb_parnl( 1 ), EM_SETCHARFORMAT,\n                         SCF_WORD | SCF_SELECTION, ( LPARAM ) &amp;cfrm ) );\n}\n\nHere is how to call it from xharbour:\n\nHighLightSelection( oRtf:hWnd, nClrBackGround )\n\nReinaldo.','',0,'AIA=','3nd9rqvx',1,0,'',299,0,0),(6549,1569,3,6,0,'82.59.188.116',1139164388,1,0,1,1,1,1,'','A coupe of little changes for TMdiFrame and TMdiChild','TMdiFrame:\n\n1) It seems that the correct default colors for an MDI frame window are\n\n[code:1kktky64]nClrFore  &#58;= GetSysColor&#40; COLOR_WINDOWTEXT &#41;, nClrBack &#58;= GetSysColor&#40; COLOR_APPWORKSPACE &#41;,;[/code:1kktky64]\n\ninstead of the current\n\n[code:1kktky64]nClrFore  &#58;= CLR_BLACK, nClrBack &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,;[/code:1kktky64]\n\n2) We get a better look of the window icon if\n\n[code:1kktky64]SendMessage&#40; &#58;&#58;hWnd, WM_SETICON, 0, oIcon&#58;hIcon &#41;[/code:1kktky64]\n\nis commented out.\n\nTMdiChild:\n\n1) As for TMdiFrame, it is better to comment out\n\n[code:1kktky64]&#58;&#58;SendMsg&#40; WM_SETICON, 0, oIcon&#58;hIcon &#41;[/code:1kktky64]\n\nEMG','',0,'AIA=','1kktky64',1,0,'',6,0,0),(6550,1570,3,34,0,'68.4.154.81',1139164448,1,0,1,1,1,1,'','Can\'t build TestRTF sample','I wanted to build the sample testrtf.prg with xHarbour ( Feb ) and FWH 2.7.  \n\nI receive the following undefined external symbols:\n\n_GetFileVersionInfoSizeA\n_GetFileVersionInfoA\n_VerQueryValueA\n\nI am simply trying to build the sample included with 2.7.\n\nWhat am I missing here ?\n\nThanks.\n\nTim <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','85kdmgq0',1,0,'',34,0,0),(6551,1571,3,299,0,'69.65.88.121',1139169111,1,0,1,0,1,0,'','RePrint -- richtext','Hi.\n\nBack with more richtext needs.\n\nIn hopes of printing rtfs to an existing and opened oprn:hdc and only occupy a given region of the document, I\'m taking a peek at HB_FUNC( REPRINT ).\n\nI can\'t see how using RePrint.  It would take some serious modifications. \n\nI think the fw world would really benefit from having the ability to print rtf text to a region of a trpinter object.  Or just add rtf printing to tprinter.  Something like:\n\noprn:RtfPrint( ntop, nLeft, nbottom, nRight, oRTF:GetSel() )\n\n::rtfPrint would print the selected text with its attributes --that is font, color, background color, etc...\n\n\nI\'m hoping some of the Guru\'s here can shed some light on the subject.\n\n\nReinaldo.','',0,'AIA=','yrpl54yz',1,0,'',299,0,0),(6552,1572,3,209,0,'209.217.64.30',1139170723,1,0,1,1,1,0,'','Borland link error Too many DEF','Hi again,\n\nUsing FW January 2.7 and Borland linker with the following rmk file I get the following error.\n\nd:\\Borland\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Too many DEF file names: d:\\fwh\\lib\\FiveHC.lib\n\nWhen I comment out linking in the external file param.obj and function references the program links properly.  When I built the program with FW 2.5 everything link properly.\n\nDoes anyone know what is causing this problem?  When I finish debugging this application will be composed of 6 separate prg files.\n\nThanks,\n\nVytas\n\n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=d:\\harbour\nBCDIR=d:\\Borland\\bcc55\nFWDIR=d:\\fwh\n\n#change these paths as needed\n.path.PRG = .\\\n.path.OBJ = .\\obj\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\nPRG =       \\\nFis.PRG    \\\nPARAM.PRG  \\\n#invdata.PRG \\\n#Browse.PRG  \\\n#compile.PRG \\\n#reports.PRG \\\n\n# testit.PRG  \\\n# xbrowse.PRG\n# one.PRG\n\n# C =          \\\n# two.C\n\nPROJECT    : FIS.exe\n\nFIS.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) FIS.res\n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n   echo obj\\FIS.obj, obj\\param.obj, + &gt;&gt; b32.bc\n   echo FIS.exe, + &gt;&gt; b32.bc\n   echo FIS.map, + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveH.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\gtwin.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\n\n   echo $(HBDIR)\\lib\\hbsix.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\pcrepos.lib + &gt;&gt; b32.bc\n\n   echo $(HBDIR)\\lib\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\hbzip.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\n   IF EXIST FIS.res echo FIS.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n#    del b32.bc\n\n.PRG.OBJ:\n  $(HBDIR)\\bin\\harbour $&lt; /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include &gt;&gt; vjclip.log\n  $(BCDIR)\\bin\\bcc32  -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n#   del tmp\n\nFIS.res : FIS.rc\n  $(BCDIR)\\bin\\brc32.exe -r FIS.rc','',0,'AIA=','3okev6ra',1,0,'',209,0,0),(6553,1565,6,138,0,'148.233.159.24',1139190260,1,0,1,1,1,1,'','','No necesitas modificar nada.\n\nMultiEdit tiene 2 barras de herramietnas adicionales en un ADD-ON que se llama Evolve, que ya viene incluido con MultiEdit.\n\nEvolve, tiene toda la configuracion para trabajar con Clipper, FiveWin, archivos DBF y otras cualidades.','',0,'AIA=','23q99pvh',1,0,'',138,0,0),(6554,1573,6,179,0,'200.69.181.39',1139200581,1,0,1,1,1,1,'','como saber el objeto oGet Activo sin pasarle como parametro','Buenas noches compañeros, espero me puedan ayudar\n\nDesde un Get como este\n\n@x,y Get oGet Var cVar Of oDlg Valid FunVal()\n\n\nFunction FunVal()\nLocal oGet := GetActive()\n\n//aca me devuelve como que oGet fuera desconocido, es decir\n//no se como hacer que me devuelva el objeto get SIN PASARLE COMO PARAMETRO\n\nReturn .T.\n\nEspero me haya hecho entender , gracias x todo\n\nAtt.','',0,'AIA=','3sfd60st',1,0,'',179,0,0),(6555,1546,3,131,0,'194.179.55.36',1139211000,1,0,1,1,1,0,'','','What is AFPExpress ? Can be used with Apache ? \nI\'m looking for a dbf/cdx plugin that can be used with Apache.\nRegards,','',0,'AIA=','3vsfiwe0',1,0,'',131,0,0),(6556,1571,3,303,0,'68.7.28.54',1139212955,1,0,1,1,1,0,'','','Reinaldo,\n\nI did some searching and I found this page:\n\n<!-- m --><a class=\"postlink\" href=\"http://home.att.net/~robertdunn/Papers/REPnP2.html\">http://home.att.net/~robertdunn/Papers/REPnP2.html</a><!-- m -->\n\nI think the answer may be there. It shows how to print an Richedit control in a specified area of a page.\n\nJames','',0,'AIA=','3silwo10',1,0,'',303,0,0),(6557,1566,3,49,0,'213.82.134.66',1139213804,1,0,1,1,1,0,'','','Sorry I try to explain my problem \nI definited hdc .\nI insert here a func but it is a part of my class...\ni cannot post here the class now\nbut when i erase fillrect line and define Pen instead define Brush it make a rect empty : a rectangule with border but empty i want refill this rect with he same color i selected.','',0,'AIA=','2wiv0054',1,0,'',49,0,0),(6558,1571,3,49,0,'213.82.134.66',1139214183,1,0,1,1,1,0,'','','thanks to all \n\nWITH EM_FORMATRANGE   I finished the method  Preview on Trichedit class \n\nthis routine change the rtf format into EMF format : we can use it and put on rpreview program\n\nI \'m testing it and perhaps  This morning I insert it on Forum it is very usefull and it run with our rpreview program.\n\nIt run ok.....\n\nI post later  here','',0,'AIA=','3ttspdzn',1,0,'',49,0,0),(6559,1570,3,3,0,'82.124.115.168',1139215204,1,0,1,1,1,0,'','Re: Can\'t build TestRTF sample','[quote=&quot;TimStone&quot;:fyvmsegu]I wanted to build the sample testrtf.prg with xHarbour ( Feb ) and FWH 2.7.  \n\nI receive the following undefined external symbols:\n\n_GetFileVersionInfoSizeA\n_GetFileVersionInfoA\n_VerQueryValueA\n\nI am simply trying to build the sample included with 2.7.\n\nWhat am I missing here ?\n\nThanks.\n\nTim,\n\nInclude Version.lib to your xbp link script\n\nYou will find it in \\xhb\\c_lib\\win\n\nRichard\n\nTim <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:fyvmsegu]','',0,'gA==','fyvmsegu',1,0,'',3,0,0),(6560,1574,3,6,0,'82.55.208.237',1139215491,1,0,1,1,1,1,'','TListBox refinement','The following sample shows that the Return key is not trapped by bKeyDown codeblock:\n\n[code:fltux25f]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oLbx\n\n    LOCAL cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 LISTBOX oLbx VAR cVar ITEMS &#123; &quot;Bert&quot;, &quot;Carl&quot;, &quot;William&quot; &#125;\n\n    oLbx&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; nKey &#41; &#125;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:fltux25f]\n\nA possible solution is to add the following method to TListBox class:\n\n[code:fltux25f]METHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TListBox\n\n   if nMsg == WM_GETDLGCODE &#46;and&#46; nWParam == VK_RETURN\n      &#58;&#58;oWnd&#58;nLastKey &#58;= VK_RETURN\n      return Super&#58;KeyDown&#40; nWParam, nLParam &#41;\n   endif\n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;[/code:fltux25f]\n\nEMG','',0,'AIA=','fltux25f',1,0,'',6,0,0),(6561,1575,3,6,0,'82.55.208.237',1139218631,1,0,1,1,1,1,'','TMenu and checked items','The following sample shows an unpleasant inset effect in checked menu items:\n\n[code:w1u8dikz]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd;\n           MENU BUILDMENU&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION BUILDMENU&#40;&#41;\n\n    LOCAL oMenu\n\n    MENU oMenu\n        MENUITEM &quot;Test&quot;\n\n        MENU\n            MENUITEM &quot;Test1&quot; ACTION MSGINFO&#40; &quot;Test1&quot; &#41; CHECKED\n            SEPARATOR\n            MENUITEM &quot;Test2&quot; ACTION MSGINFO&#40; &quot;Test2&quot; &#41;\n        ENDMENU\n    ENDMENU\n\n    RETURN oMenu[/code:w1u8dikz]\n\nThis is not a fix but with the following change in Add method (I just add a .f.) the effect vanishes:\n\n[code:w1u8dikz]   else\n      if oMenuItem&#58;cPrompt != nil\n         AppendMenu&#40; &#58;&#58;hMenu,;\n                     nOR&#40; If&#40; oMenuItem&#58;lActive,;\n                          nOr&#40; MF_ENABLED, If&#40; oMenuItem&#58;hBitmap != 0 &#46;or&#46; ;\n                          &#40; &#46;f&#46; &#46;and&#46; IsWinNT&#40;&#41; &#46;and&#46; ! lRoot &#46;and&#46; ! &#58;&#58;lSysMenu &#41;,;\n                          MF_OWNERDRAW, 0 &#41; &#41;,;[/code:w1u8dikz]\n\nEMG','',0,'AIA=','w1u8dikz',1,0,'',6,0,0),(6562,1576,3,6,0,'82.55.208.237',1139219999,1,0,1,1,1,1,'','TMultiGet:SetSel() and TMultiGet:SetPos() methods','There is a difference in the selected range between the two methods. Look at this sample:\n\n[code:2jx7z4mc]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet\n\n    LOCAL cVar &#58;= &quot;This is a test&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar MEMO SIZE 100, 30\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    oDlg&#58;bStart = &#123; || oGet&#58;SetSel&#40; 2, 4 &#41; &#125;\n//    oDlg&#58;bStart = &#123; || oGet&#58;SetPos&#40; 2, 4 &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2jx7z4mc]\n\nYou will see that SetSel() selects \"is\" while SetPos() selects \"hi\". A possible fix is to change the SetPos() method this way:\n\n[code:2jx7z4mc]   METHOD SetPos&#40; nStart, nEnd &#41; INLINE ;\n                 nEnd &#58;= If&#40; nEnd == nil, nStart, nEnd &#41;,;\n                 &#58;&#58;SendMsg&#40; EM_SETSEL, nStart - If&#40; nStart &gt; 0, 0, 0 &#41;, nEnd - If&#40; nEnd &gt; 0, 0, 0 &#41; &#41;,;\n                 &#58;&#58;nPos &#58;= nStart[/code:2jx7z4mc]\n\nor, of course, completely remove the If().\n\nEMG','',0,'AIA=','2jx7z4mc',1,0,'',6,0,0),(6563,1573,6,46,0,'195.8.27.73',1139220306,1,0,1,1,1,0,'','','[code:2zvpjoyb]@x,y Get oGet Var cVar Of oDlg Valid FunVal&#40;Self&#41;\n\n\nFunction FunVal&#40; oGet&#41;\n// oGet e o get chamador\n\nReturn &#46;T&#46; \n[/code:2zvpjoyb]\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','2zvpjoyb',1,0,'',46,0,0),(6564,1577,3,6,0,'82.55.208.237',1139220951,1,0,1,1,1,1,'','TMsgBar KEYBOARD clause','When KEYBOARD clause is used we can click with the mouse on the Num, Caps and Ins items to toggle their status. But, specifically for Num and Caps, the status change is not reflected by the keyboard light and this brings to an inconsistency between the status itself and what the keyboard lights say.\n\nPossible fixes are:\n\n1) remove the item click at least on Num and Caps (but I would remove it on Ins also).\n\n2) use the appropriate API to correctly change the lights status.\n\nFor the point 2, the following sample is from Francesco Saverio Giudice:\n\n[code:31yfousw]#include &quot;common&#46;ch&quot;\n\nPROCEDURE MAIN&#40;&#41;\n\n   ? &quot;Attiva capslock&quot;\n   SetCapsLock&#40; TRUE &#41;\n\n   Inkey&#40; 0 &#41;\n\n   ? &quot;Attiva numlock&quot;\n   SetNumLock&#40; TRUE &#41;\n\n   Inkey&#40; 0 &#41;\n\n   ? &quot;Stato CAPSLOCK &#58; &quot; + IIF&#40; GetCapsLock&#40;&#41;, &quot;ON &quot;, &quot;OFF&quot; &#41;\n   ? &quot;Stato NUMLOCK  &#58; &quot; + IIF&#40; GetNumLock&#40;&#41;, &quot;ON &quot;, &quot;OFF&quot; &#41;\n\n   Inkey&#40; 0 &#41;\n\n   ? &quot;Disattiva capslock&quot;\n   SetCapsLock&#40; FALSE &#41;\n\n   Inkey&#40; 0 &#41;\n\n   ? &quot;Disattiva numlock&quot;\n   SetNumLock&#40; FALSE &#41;\n\n   Inkey&#40; 0 &#41;\n\n   ? &quot;Stato CAPSLOCK &#58; &quot; + IIF&#40; GetCapsLock&#40;&#41;, &quot;ON &quot;, &quot;OFF&quot; &#41;\n   ? &quot;Stato NUMLOCK  &#58; &quot; + IIF&#40; GetNumLock&#40;&#41;, &quot;ON &quot;, &quot;OFF&quot; &#41;\n\n   Inkey&#40; 0 &#41;\n\nRETURN\n\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n\n#include &quot;hbapi&#46;h&quot;\n\n#define TOGGLED 0x0001\n\nvoid SetKeyLock&#40; BYTE vKey, BOOL bState &#41;\n&#123;\n   BOOL bCurrentState;\n\n   bCurrentState = &#40; GetKeyState&#40; vKey &#41; &amp; TOGGLED &#41;;\n\n   if&#40; &#40;bState &amp;&amp; !bCurrentState&#41; ||\n       &#40;!bState &amp;&amp; bCurrentState&#41; &#41;\n   &#123;\n      // Simulate a key press\n      keybd_event&#40; vKey,\n                   0,\n                   KEYEVENTF_EXTENDEDKEY | 0,\n                   0 &#41;;\n\n      // Simulate a key release\n      keybd_event&#40; vKey,\n                   0,\n                   KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP,\n                   0&#41;;\n   &#125;\n&#125;\n\nBOOL GetKeyLock&#40; int vKey &#41;\n&#123;\n   return &#40; GetKeyState&#40; vKey &#41; &amp; TOGGLED &#41;;\n&#125;\n\nHB_FUNC&#40; SETCAPSLOCK &#41;\n&#123;\n   SetKeyLock&#40; VK_CAPITAL, hb_parl&#40; 1 &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; SETNUMLOCK &#41;\n&#123;\n   SetKeyLock&#40; VK_NUMLOCK, hb_parl&#40; 1 &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; GETCAPSLOCK &#41;\n&#123;\n   hb_retl&#40; GetKeyLock&#40; VK_CAPITAL &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; GETNUMLOCK &#41;\n&#123;\n   hb_retl&#40; GetKeyLock&#40; VK_NUMLOCK &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:31yfousw]\n\nEMG','',0,'AIA=','31yfousw',1,0,'',6,0,0),(6565,1194,23,308,0,'84.148.47.44',1139222156,1,0,1,1,1,0,'','','[quote=&quot;Mark++&quot;:1ia150q5]Ich benutz nur noch xBrowse ist definitiv stabiler[/quote:1ia150q5]\n\nHallo,\nich muss zu meiner Schande gestehen, dass ich mich mit xBrowse noch garnicht befasst habe, werde es aber nach deiner Info nun doch mal tun.\nLäuft xbrowse zusammen mit mssql-Datendanken sauber ?\n\nGruss, Norbert','',0,'gA==','1ia150q5',1,0,'',308,0,0),(6567,1579,2,438,0,'166.114.98.110',1139239014,1,0,1,1,1,0,'','Error de TFolder en WinXp','Hola amigos del foro:\n\nMe sale un error en WinXp, cuando activo un Dialog que tiene un Folder, lo que no ocurre en Win98 o Me, donde elprograma corre muy bien.\n\nEl error es:\n\n  Error description: Error FiveWin/3  Cannot create Dialog Box: \nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from CREATEDLGE(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from TFOLDER:DEFAULT(0)\n   Called from TFOLDER:INITIATE(0)\n   Called from ASEND(0)\n   Called from TDIALOG:INITIATE(0)\n   Called from TDIALOG:HANDLEEVEN(0)\n   Called from DIALOGBOXI(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from TEDTDATA:ACTIVATE(330)\n   Called from TNBRWDATA:EDIT(334)\n   Called from (b)BUILDBUTTO(238)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TBTNBMP:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from TAPPLICATI:ACTIVATE(329)\n   Called from MAIN(29)\n\n\nUtilizo FW24, Clipper 53, BLinker 7.0\n\nPor favor una ayuda, que estoy haciendo mal.\n\nRolando','',0,'gA==','mjd8q65a',1,0,'',438,0,0),(6568,1573,6,179,0,'200.69.181.39',1139239108,1,0,1,1,1,1,'','','gracias x responder\nYa halle la forma\nbvalid del get envia como parametro self\nera lo que yo queria ya que lo tengo dentro de un ciclo for next\nasi\n                    ::aoGet[i] := TGet():New( nRow                   ,;\n                                              nCol                   ,;\n                                              FijaVariable(::aGet, i),;\n                                              ::oDlg                 ,;\n                                              nWidth                 ,;\n                                              nHeight                ,;\n                                              cPic                   ,;\n                                              FijaVarSinBloque(::aValid, i),;\n                                                                     ,;\n                                                                     ,;\n                                              ::oFont                ,;\n                                              design                 ,;\n                                                                     ,;\n                                              lpixel                 ,;\n                                              ::aMsg[i]              ,;\n                                              lUpdat                 ,;\n                                              FijaVarSinBloque(::aWhen, i),;\n                                              lCenter                ,;\n                                              lRight                 ,;\n                                                                     ,;\n                                              lReadonly              ,;\n                                              .f.                    ,;\n                                              .f.                    ,;\n                                              nHelpId                ,;\n                                              lSpin                  ,;\n                                              SpnUp                  ,;\n                                              SpnDn                  ,;\n                                                                     ,;\n                                                                      )\n\n\nY cuando le llamo le pongo\n::aValid :={ {|oSe| FuncionValid(oSe:Value()) },......}\n\nSi a alguien le sirve\n\nSaludos\ny Gracias','',0,'','1vfdq4wm',1,0,'',179,0,0),(6569,1390,19,26,0,'195.210.249.82',1139241437,1,0,1,1,1,1,'','','Hello!\n\nJFYI, links do not work because dots are appended.\n\nBTW, there is good article at wikipedia:\n<!-- m --><a class=\"postlink\" href=\"http://en.wikipedia.org/wiki/XHarbour\">http://en.wikipedia.org/wiki/XHarbour</a><!-- m -->\n\nRegards, Roman','',0,'','j9y8zgbi',1,0,'',26,0,0),(6570,1546,3,266,0,'60.50.60.251',1139243135,1,0,1,1,1,1,'','','AFPexpress at <!-- w --><a class=\"postlink\" href=\"http://www.afpages.com\">www.afpages.com</a><!-- w --> is :-\n- plugin DLL for using Visual Foxpro as server side language\n- can use with either IIS or Apache\n\nFoxpro commands are basically similar to Clipper/Dbase.\nI use it to update dbf/cdx,data sharing with Fivewin app.','',0,'','h06vdqq9',1,0,'',266,0,0),(6571,1580,6,439,0,'201.217.190.228',1139243512,1,0,1,1,1,0,'','Falla de Fivewin para harbour al compilar con libs externas','He tenido problemas para utilizar Fivewin for Harbour 2.7.\nCuando intento generar programas utilizando clases de terceros, como BtnGet, FileXls, TWBrowse 1.5 me da un error de un llamado a Tclass o algo así, esto : puede deberse al pasaje a harbour 45 a partir de set 2005?, si no es así, que puede ser o como lo resuelvo.\n\nGracias desde ya.\n\nUn abrazo','',0,'','25qimc5l',1,0,'',439,0,0),(6572,1581,6,396,0,'201.243.95.92',1139244215,1,0,1,1,1,0,'','ERROR AL COMPILAR CON HARBOUR Y XHARBOUR USANDO VERCE 4.3','Parece fuera error an declarar variables, no me acepta PUBLIC, cambie a MEMVAR y los otros .prg no me leen las publicas, ayuda, gracias.si tienen algun ejmplo de declaracion de variables.alguna parte donde ver ejemplos bajo FWH ?\n\n\nCompilado y Enlazado de: [C:\\SISINGE\\Farmacia\\farmacia.Exe]\nEjecución No. 15\nEjecutada a las: 22:06:53\n======================================\n======================\nxHarbour Compiler build 0.92.0 (SimpLex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\SISINGE\\Farmacia\\farmacia.prg\'...\n\n*** ERROR CON XHARBOUR\nFiveWin.ch(193) Warning I0003  No markers in repeatable group [\'&lt;uAction&gt;\\\'] - group will never be used.\nLines 28, Functions/Procedures 1\n\nGenerating C source output to \'C:\\SISINGE\\Farmacia\\farmacia.hrb\'...\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nC:\\SISINGE\\Farmacia\\farmacia.hrb:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFin del proceso.\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\nApplication Build Success !!!\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!\n\n\n*** ERROR 2 CON HARBOUR Y XHARBOUR\nC:\\SISINGE\\Farmacia\\fcompra.prg(41) Warning W0001  Ambiguous reference: \'OWPPAL\'','',0,'QA==','omwnifcb',1,0,'',396,0,0),(6573,1582,3,67,0,'62.235.26.77',1139244509,1,0,1,1,1,0,'','Migrating to Linux','Mine client has the intention to move to linux, so :\n\nOnly standard classes are available in linux , which calsses are that ?\n\nImportant : is the printer class available with duplex printing?\n\nWill it work or is it tested with CUPS (common unix printing system) .\n\nI asked it because i have bad experience wirh winprn32.prg in xharbour , and i suppose that the windows api may give the troubles .\n\nFrank','',0,'QA==','1x7sap4v',1,0,'',67,0,0),(6574,1583,6,252,0,'201.140.19.244',1139244856,1,0,1,1,1,0,'','otra de tsbutton','Un saludo colegas del foro.\n \n   Uso tsbutton 5.0 con fwh 2.4 y xharbour 0.99.3. \n\n   Si tengo el siguiente codigo:\n\n   [code:a4ysgjn0]\n    REDEFINE SBUTTON oBtnBuscarNum ID 61 ;\n        RESOURCE &quot;Buscar1&quot;,,&quot;Buscar3&quot; ;\n        OF oDlgBuscaAgentes ;\n        ACTION &#40;oGridAgentes&#58;setOrder&#40;1&#41;,oNumeroBuscar&#58;setFocus&#40;&#41;,oNumeroBuscar&#58;refresh&#40;&#41;&#41;; //Por numero\n        WHEN Agentes-&gt;&#40;ordSetFocus&#40;&#41;&#41;=&quot;AGNOM&quot;;\n        TOOLTIP &quot;Busca por Numero&quot; ;\n        COLORS CLR_BLACK, ;\n			   &#123;|oB| If&#40; oB&#58;lMouseOver, &#123;CLR_BROWCOLCLA,CLR_WHITE,3 &#125;, ;\n										&#123;CLR_BROWSEOBSC,CLR_BEIGE,3&#125; &#41; &#125;;\n        BORDER;\n        TEXT POSITION ON_RIGHT    [/code:a4ysgjn0]\n\n        Al no cumplirse la condicion indicada en [i:a4ysgjn0]when[/i:a4ysgjn0] deberia de mostrarse el boton con las caracteristicas definidas en tsbutton, es decir mostrando el icono llamado [b:a4ysgjn0]\"Buscar 3\"[/b:a4ysgjn0], sin embargo casi siempre solo me aparece un cuadro blanco, sin icono ni los colores definidos.\n\n       ¿Alguien sabe como solucionar este problema?.\n\n        De antemano muchas gracias.\n\n        Jose Rios.','',0,'YIA=','a4ysgjn0',1,0,'',252,0,0),(6575,1580,6,138,0,'201.133.73.175',1139245213,1,0,1,1,1,1,'','','Por favor, da mas detalels y especificaa que es el error \"algo asi\", porque sin el \"ese\" de la de \"esa\" es imposible ayudarte','',0,'YIA=','2i8dp3to',1,0,'',138,0,0),(6576,1584,6,279,0,'200.52.203.171',1139245258,1,0,1,1,1,0,'','Error ORDKEYGOTO','Cuando estoy en \n\n  REDEFINE LISTBOX oBOrd FIELDS \"\" ID 110 OF oDlg\n\n Me esta marcando este error    Called from:  =&gt; ORDKEYGOTO(0)\n ya agrege los linas de REQUEST DBFCDX, dbffpt, ordkeyno, ordkeycount \n   TWBrowse():lHScroll:= .F.\n pero cuando bajo el scroll con el mouse me marca este error\n\n   Called from:  =&gt; ORDKEYGOTO(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:SETFILTER(2677)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:SETFILTER(2678)\n   Called from:  =&gt; TWBROWSE:VSCROLL(2220)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TWBROWSE:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)','',0,'YIA=','1qyxctw6',1,0,'',279,0,0),(6577,1571,3,299,0,'69.65.88.121',1139245297,1,0,1,0,1,0,'','','James;\n\nI read through it.  I will spend time today trying to implement it.  Not very complex.  Just thick.  It seems like it will work.\n\nThank you.\n\n\nReinaldo.','',0,'YIA=','13hjbx9o',1,0,'',299,0,0),(6578,1571,3,299,0,'69.65.88.121',1139245411,1,0,1,0,1,0,'','','Silvio,\n\nThanks for your help.  Your work is a much needed feature, but I think it is a  bit different than my pressing need at the time.  Please do post your work or send it to me via e-mail.  It should help with my needs.\n\nMuch appreciated.\n\n\nReinaldo.','',0,'YIA=','mnqoa1yn',1,0,'',299,0,0),(6579,1546,3,138,0,'201.133.73.175',1139247485,1,0,1,1,1,1,'','','[quote=&quot;Ehab Samir Aziz&quot;:3tfuqfm4]And what is the best for networking application (multiuser application) many users share the ame database in the same time ?[/quote:3tfuqfm4]\n\nAdvantage Database Server, In deed.\n\nMy biggest project with ADS is a super market  with over 200 users runing a set of about 100 DBF files, the biggest DBF has over 70 million records indexed over 20 different keys, All the DBFs together are more than 6 GBytes of data.\n\nThese dbf are updated by a Clipper DOS application running in 50 POS computers, then they are reviewed and updated in the corporate headquarters by programs written in FiveWin and in Delphi.\n\nCustomers also can place orders via Internet using a web browser, these orders are stored in the very same databases, and an ASP application handles all these stuff. Not need of any other extra tool just ADS.','',0,'gA==','3tfuqfm4',1,0,'',138,0,0),(6580,1585,20,29,0,'82.59.35.206',1139249106,1,0,1,1,1,0,'','Sempre a proposito di Rtf e mail merge','Salve,\nuna curiosità:\nin una mia applicazione effettuo un mail merge di un template RTF con un indirizzario. \n\nPer fare questo  ho creato nel testo RTF dei comuni campi di testo XXDATO01XX, XXDATO02XX ecc. che poi vadi a sostituire con i dati dell\'indirizzario. In pratica apro il file RTF con Fopen, lo carico in memoria e sostituisco i campi XX. \n\nQuello che vorrei sapere se questo sistema un poco \"brutale\" che adotto è l\'unica soluzione o ci sono soluzioni più sofisticate.\nHo però la necessità di fare un mailmerge indipendentemente dalla presenza di Word quindi non posso utilizzare OLE.\n\nSaluti\n\nMarco','',0,'gA==','4h445hj1',1,0,'',29,0,0),(6581,1586,3,209,0,'209.217.64.30',1139251673,1,0,1,1,1,0,'','ReqQueryValue behaviour','Hi \n\nWhen I use RegQueryValue() to get the string to run an executable to which I wish to pass a parameter why must I remove the last character on the return value?\n\nIn the following sample program.  After the first call to WordPad no file is opened, however on the second call the file opens as expected.\n\nThanks,\n\nVytas\n\n// Managing Register services from FiveWin\n\n#ifndef __XPP__\n   #define  HKEY_CLASSES_ROOT       2147483648\n   #define  HKEY_CURRENT_USER       2147483649\n   #define  HKEY_LOCAL_MACHINE      2147483650\n   #define  HKEY_USERS              2147483651\n   #define  HKEY_PERFORMANCE_DATA   2147483652\n   #define  HKEY_CURRENT_CONFIG     2147483653\n   #define  HKEY_DYN_DATA           2147483654\n#else\n   #define  HKEY_CLASSES_ROOT       1\n   #define  HKEY_CURRENT_USER       2\n   #define  HKEY_LOCAL_MACHINE      3\n   #define  HKEY_USERS              4\n   #define  HKEY_PERFORMANCE_DATA   5\n   #define  HKEY_CURRENT_CONFIG     6\n   #define  HKEY_DYN_DATA           7\n#endif\n\n//---------------------------------------------------------------------------//\n\nfunction Main()\n\n   local nHandle, cValue\n\n   if RegOpenKey( HKEY_LOCAL_MACHINE,;\n         \"SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\", @nHandle ) == 0\n\n      RegQueryValue( nHandle, \"WordPad.exe\", @cValue )\n\n      MsgInfo( cValue )\n\n      WaitRun(cValue + \" testreg.prg\")\n      WaitRun(SUBSTR(cValue,1,(LEN(cValue)-1)) + \" testreg.prg\")\n\n      RegCloseKey( nHandle )\n   else\n      MsgAlert( \"Can\'t open this key\" )\n   endif\n\nreturn nil\n\n//---------------------------------------------------------------------------//\n\nprocedure AppSys  // XBase++ requirement\n\nreturn\n\n//---------------------------------------------------------------------------//','',0,'gA==','3vud7kva',1,0,'',209,0,0),(6582,1586,3,6,0,'82.57.160.175',1139252543,1,0,1,1,1,1,'','Re: ReqQueryValue behaviour','Because the value returned is a zero-terminated string.\n\nEMG','',0,'gA==','2allc2zb',1,0,'',6,0,0),(6583,1585,20,6,0,'82.57.160.175',1139252611,1,0,1,1,1,1,'','Re: Sempre a proposito di Rtf e mail merge','Personalmente faccio così anche con Word. Credo sia il sistema più versatile e portabile.\n\nEMG','',0,'gA==','1e9jkdt5',1,0,'',6,0,0),(6584,1587,3,148,0,'82.201.237.236',1139253084,1,0,1,1,1,0,'','support foreign language','Can I write my gets/reads,says in foreign langauge ? in VB I can write Arabic for example for text and variables got from screen .','',0,'gA==','1fsrr11q',1,0,'',148,0,0),(6585,1537,1,213,0,'72.177.228.25',1139255305,1,0,1,1,1,0,'','','James,\n\nThanks for the sample.  I\'ll give this a try.  \n\nThanks,\nRandal Ferguson','',0,'gA==','1pdr94n0',1,0,'',213,0,0),(6586,1549,7,433,0,'216.230.150.5',1139255366,1,0,1,1,1,0,'','','Gracias de nuevo, señor Linares\n\nSeguro le parecere muy tedioso pero necesti saber es primera vez que pienso utilizar este tipo de dispositivos, y necesito saber si para [color=blue:34oj13p9]desarrollar aplicaciones VFP[/color:34oj13p9] [b:34oj13p9][color=red:34oj13p9]necesito complar el sotware que ustedes venden [/color:34oj13p9][/b:34oj13p9]ó me recomienda algun otro, le comento esto [b:34oj13p9][color=darkblue:34oj13p9]pq no estoy en condicines de invertir plata en un software soy de Guatemala,C.A.[/color:34oj13p9][/b:34oj13p9] [b:34oj13p9][color=red:34oj13p9]pq lo que el software me saldria en 470 Euros[/color:34oj13p9][/b:34oj13p9], si es tan amable deme una Guia por favor se lo agradeceré.\n\nSlds.\nKerwin.','',0,'Qg==','34oj13p9',1,0,'',433,0,0),(6587,1588,3,6,0,'82.57.160.175',1139257619,1,0,1,1,1,1,'','New method for TMci','Here it is (for playing fullscreen):\n\n[code:2bx48j0g]#define MCI_PLAY 2054\n#define MCI_MCIAVI_PLAY_FULLSCREEN 33554432\n\nMETHOD PlayFull&#40;&#41; INLINE MciSendCommand&#40; &#58;&#58;nId, MCI_PLAY, MCI_MCIAVI_PLAY_FULLSCREEN, &quot;&quot; &#41;[/code:2bx48j0g]\n\nEMG','',0,'AIA=','2bx48j0g',1,0,'',6,0,0),(6588,1589,6,391,0,'201.221.140.82',1139257811,1,0,1,1,1,1,'','Cual es el #define para las combinaciones CTTL + A','No encuentro la defincion de los #define para las combinaciones de las teclas de control + las letras : shift, ctrl  y alt mas cualquier tecla.\n\n\nMuchas Gracias..\nPrincipiante en FWH','',0,'AIA=','23mgdxra',1,0,'',391,0,0),(6589,1590,6,292,0,'200.109.166.27',1139258061,1,0,1,1,1,1,'','Impresora Fiscal TMU200 (Serial)','Colegas,\nNecesito un programa ejemplo para el uso de este tipo de impresora.','',0,'AIA=','1aguulj1',1,0,'',292,0,0),(6590,1570,3,34,0,'68.4.154.81',1139258678,1,0,1,1,1,1,'','Thanks','Thank you ... it now builds.','',0,'AIA=','27n8gqmg',1,0,'',34,0,0),(6591,1589,6,362,0,'200.168.52.156',1139260730,1,0,1,1,1,1,'','Re: Cual es el #define para las combinaciones CTTL + A','[quote=&quot;armandini&quot;:2dcpd51n]No encuentro la defincion de los #define para las combinaciones de las teclas de control + las letras : shift, ctrl  y alt mas cualquier tecla.\n\n\nMuchas Gracias..\nPrincipiante en FWH[/quote:2dcpd51n]\n\nEn cual momento necesitas de estas combinaciones??\n\nMira em fwh..\\include\\vkey.ch','',0,'gA==','2dcpd51n',1,0,'',362,0,0),(6592,1580,6,362,0,'200.168.52.156',1139260816,1,0,1,1,1,1,'','','Hola...\n\nEstais usando todas las clases para 32 bits??','',0,'gA==','cz8sw9c5',1,0,'',362,0,0),(6593,1584,6,362,0,'200.168.52.156',1139260915,1,0,1,1,1,1,'','','Hola...\n\nEn Workshop.exe, ti basta deshabilitar el controle en la listbox, no necesita di código.','',0,'gA==','1ts1wnj7',1,0,'',362,0,0),(6594,1581,6,362,0,'200.168.52.156',1139261038,1,0,1,1,1,1,'','','Hola...\n\nLa Orden Correcta de las Variables, son estas:\n\nFIELD\nLOCAL\nMEMVAR\nPRIVATE\nPUBLIC\n\nSolamente esto.','',0,'gA==','q9p92fp2',1,0,'',362,0,0),(6595,1579,2,362,0,'200.168.52.156',1139261226,1,0,1,1,1,1,'','','HOLA...\n\nEstais llamando a BWCC.DLL di Borland??\n\nSi si, como lo hace??','',0,'gA==','3n4wt2df',1,0,'',362,0,0),(6596,1574,3,303,0,'68.7.28.54',1139261250,1,0,1,1,1,0,'','','Enrico,\n\nIt is curious that if you put the listbox on a Window then the Enter key can be trapped with bKeydown. I have not figured out why this is.\n\nJames','',0,'gA==','3cvo7yo0',1,0,'',303,0,0),(6597,1589,6,391,0,'201.221.140.82',1139262299,1,0,1,1,1,1,'','Re: Cual es el #define para las combinaciones CTTL + A','[quote=&quot;karinha&quot;:wfwpj1yt][quote=&quot;armandini&quot;:wfwpj1yt]No encuentro la defincion de los #define para las combinaciones de las teclas de control + las letras : shift, ctrl  y alt mas cualquier tecla.\n\n\nMuchas Gracias..\nPrincipiante en FWH[/quote:wfwpj1yt]\n\nEn cual momento necesitas de estas combinaciones??\n\nMira em fwh..\\include\\vkey.ch[/quote:wfwpj1yt]\n\n\nEn cualquier momento dentro de un dialogo, hasta el momento ya he asigando funcion a teclas como F1,F2, etc, Pero requiero asiganarle una funcion a las combinaciones de ctrl + a, ctrl + b, etc,.\n\nEl vkey.ch, define a la tecla de control como VK_CONTROL , pero no encuento la combinacion mencionada. Asi como en clipper CTRL+A = 1\n\nLa sintaxis del setkey() , ya lo conozco.\n\nGracias','',0,'gA==','wfwpj1yt',1,0,'',391,0,0),(6598,1574,3,6,0,'82.57.160.175',1139265773,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1pse5sm0]Enrico,\n\nIt is curious that if you put the listbox on a Window then the Enter key can be trapped with bKeydown. I have not figured out why this is.\n\nJames[/quote:1pse5sm0]\n\nI don\'t know either. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nBy the way: you look great! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1pse5sm0',1,0,'',6,0,0),(6599,1194,23,308,0,'84.148.47.44',1139266073,1,0,1,1,1,0,'','','[quote=&quot;Mark++&quot;:2n1kgq5a]Ich benutz nur noch xBrowse ist definitiv stabiler[/quote:2n1kgq5a]\n\nHallo Mark,\nhabe jetzt xbrowse mal getestet. Gefällt mir gut, schöne Möglichkeiten.\nDa du xbrowse ja auch nutzt, kannst du mir vielleicht bei einem kleinen Problem weiterhelfen.\n\nIch arbeite mit MSSQL. Wenn ich eine Tabelle mit xbrowse aufrufe, die Datensätze enthält, funktioniert es wunderbar, wenn allerdings keine Datensätze drin sind, zerhackt es mit den Bildschirm (Browse wird nicht korrekt aufgebaut).\n\nHast du da einen Tipp für mich ? Gruss, Norbert','',0,'gA==','2n1kgq5a',1,0,'',308,0,0),(6600,1565,6,2,0,'87.218.146.53',1139268385,1,0,1,1,1,1,'','','Andrés,\n\nNosotros usábamos MultiEdit desde hace años. Fué probar UltraEdit y pasarnos a usar UltraEdit. Y ahora al nuevo producto que han sacado, UEStudio, que es una maravilla <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1ki0w818',1,0,'',2,0,0),(6601,1585,20,49,0,'87.7.177.187',1139269931,1,0,1,1,1,0,'','','pero io sono sicuro esisteva velle versioni antecedenti di fw una classe rtf che aveva un metodo merge ma purtroppo non trovo quella versione ...ne ho trovate altre tra cui dbftortf per esempio ma non quella \nVi parlo della classe di Thomas R. Marchione  vi ricordate ?\nQuesta classe ha per esempio anche la possibilità di creare tabelle con rtf','',0,'gA==','2i066fmd',1,0,'',49,0,0),(6602,1591,3,303,0,'68.7.28.54',1139275342,1,0,1,1,1,0,'','OT: Magic and Software Design','As many of you already know, I am a big fan of good software interface design. I came across this article which discusses the similarities between magic acts and software interface design. I found it quite interesting and thought some of you might too.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.asktog.com/papers/magic.html\">http://www.asktog.com/papers/magic.html</a><!-- m -->\n\nJames','',0,'gA==','3vfac0zs',1,0,'',303,0,0),(6603,1592,1,379,0,'59.167.125.97',1139278006,1,0,1,1,1,0,'','MDI Window size and placement.','Is it possible to place 3 or 4 child windows within the parent at fixed positions and sizes that users cannot move stretch or modiify or close etc.','',0,'gA==','3p0h9b2e',1,0,'',379,0,0),(6604,1591,3,190,0,'202.65.134.28',1139284090,1,0,1,1,1,0,'','','Mr.James\n\nVery interesting article.   It is a guide to follow while designing the user\ninterface of an application.\n\nThank you very much for providing an opportunity to read a very good article.\n\n- Ramesh Babu P','',0,'gA==','ulg62o8z',1,0,'',190,0,0),(6605,1593,1,173,0,'203.113.38.11',1139284730,1,0,1,1,1,0,'','How I do my app to system tray of windows XP','Dear all,\n\nI\'m use FiveWin 2.1c, Comix database, Blinker 7 now. How I run my app. on system tray ?\n\nBest Regrad,\n\nPe N Chi','',0,'gA==','1ir2oktv',1,0,'',173,0,0),(6606,1594,6,252,0,'201.140.16.155',1139288166,1,0,1,1,1,0,'','ADS: Por favor saquenme de esta duda.','Si uso indices CDX con ads, ¿puedo usar EVAL al indexar un archivo?.\n\n Estoy haciendo algunas pruebas y aparentemente ignora los comandos que envio en el EVAL.\n\n[code:n26phb1r]   use Agentes New Exclusive\n	if &#40;!NETERR&#40;&#41;&#41;\n		pack\n		erase&#40;&quot;Agentes&#46;cdx&quot;&#41;\n      index on Numero tag Numero for &#46;not&#46; deleted&#40;&#41; EVAL &#40;msginfo&#40;\'indexando registro\'&#41;&#41; EVERY 1\n   endIf\n[/code:n26phb1r]\n\nUso FWH 2.4,XHarbour 0.99.3 y ADS local 7.1\n\nDe antemano muchas gracias.\n\nJosé Rìos.','',0,'AIA=','n26phb1r',1,0,'',252,0,0),(6607,1546,3,131,0,'194.179.55.36',1139296451,1,0,1,1,1,0,'','Re:','René: I can\'t buy a licence of ADS. It\'s very expensive for me.\n\nTnhoe: about AFExpress, it\'s free ? If not, how much does it cost a license ?\n\nRegards,','',0,'AIA=','18bgqvzc',1,0,'',131,0,0),(6608,1595,7,262,0,'83.97.168.83',1139298542,1,0,1,1,1,1,'','Dialogos con scroll','He leido mas abajo un comentario de Paco , al respecto , ¿Alguien lo ha probado ? , ¿Funciona ? .\nSi podeis poner un poco de codigo que ilustre el truco ? .\n¿ si no funciona alguien encontró alguna solucion ? .\n\nComentar que el otro dia ,por casualidad hice un dialogo mas largo que los 320 pixels del pda , y me salio automaticamente el scroll , pero claro ,con parte de la barra escondida , asi como sus flechas .\n\nSaludso.\n\nPd. Ya casi tengo terminada la primera beta del programilla que he de presentar a los viajantes de una empresa ( la presentaré este sabado), y  de momento parece que todo funciona estupendo .','',0,'AIA=','1p246t87',1,0,'',262,0,0),(6609,1593,1,379,0,'59.167.125.97',1139298665,1,0,1,1,1,0,'','Put this code in program','Below is the code required to use TTrayIcon if yoy do not have this Class Email me and I will send to you.\n\n// At the top of the Main Program\nSTATIC oTray\n\n// After the Main function some where before Main Window Activate\noTray := TTrayIcon():New(oWnd,\"Mydll.DLL\",10,\"MyProg\"+K_CRLF+\'Right Click for Menu\',.T.,{||oWnd:Show()},{|nRow,nCol|MenuTray(nRow,nCol,oTray)})\n\n// Then when you Activate the Main Window\n\nACTIVATE WINDOW oWnd ;\nON INIT (oWnd:bResized := {|| If(oWnd:nRight &gt; 0,(oTray:SetIcon(\"MyDll.DLL\",10),oWnd:Show(),lIsMainIcon := FALSE   ),(oTray:SetIcon(\"MyDll.DLL\",10),oWnd:Hide(),lIsMainIcon := TRUE    ))},oWnd:iconize() );\nVALID ( iif( !lExitPgm ,ExitPgm( TRUE ) ,FALSE )     )\n\n//Place somewhere in Program \n\nFUNCTION MenuTray(nRow,nCol,oTray)\nLOCAL ottMenu, oMItem1, oMitem2\nMENU ottMenu POPUP\nMENUITEM oMItem1 PROMPT \"Show MyProg\"  ACTION(oTray:SetIcon(\"MyDll.DLL\",10),oWnd:Normal(),oWnd:Show(),lIsMainIcon := FALSE   ) WHEN lIsMainIcon\nSEPARATOR\nMENUITEM oMItem2 PROMPT \"Hide MyProg\" ACTION(oTray:SetIcon(\"ULTRALOG.DLL\",10),oWnd:Hide(),lIsMainIcon := TRUE  ) WHEN !lIsMainIcon\nENDMENU\nIF lIsMainIcon\n  ACTIVATE POPUP ottMenu AT nRow-10,nCol+20 OF oTray:oWnd\nElse\n  ACTIVATE POPUP ottMenu AT nRow-55,nCol+60 OF oTray:oWnd\nEndif\nRETURN NIL','',0,'AIA=','2rcxdg6r',1,0,'',379,0,0),(6610,1585,20,29,0,'82.59.35.206',1139300635,1,0,1,1,1,0,'','','Te la sto inviando al tuo indirizzo di posta elettronica.\nNon l\'ho però mai usata e quindi non ti so dare indicazioni sul funzionamento\n\nCiao\n\nMarco','',0,'AIA=','23mugvrf',1,0,'',29,0,0),(6611,1585,20,29,0,'82.59.35.206',1139300971,1,0,1,1,1,0,'','','X Emg:\n\nBene,\nio ho però lo strano problema che ogni tanto il campo mi viene \"spezzato\" da Word in fase di memorizzazione se l\'utente finale modifica il template che gli ho fornito.\n\nIn pratica se il mio template riporta originariamente il campo tipo:\n\n\\par XXDATO01XX\n\nin alcuni casi Word me lo spezza sul tipo\n\n\\par XXDATO01\nXX\n\nDal punto di vista visivo sul documento non ci sono variazioni ma è evidente che così non riesco a sostituire il campo con l\'indirizzo perché non trovo il campo.\n\nDevo forse prevedere il campo XXDATO01XX con un nome particolare oppure tra virgolette o altro ?\n\nMarco','',0,'AIA=','syi7wq64',1,0,'',29,0,0),(6612,1585,20,6,0,'82.59.197.133',1139301373,1,0,1,1,1,1,'','','Probabilmente fai una normale sostituzione di testo invece di utilizzare le API di Word:\n\n[code:32u3kpb9]FUNCTION WORDREPLACE&#40; oSel, cSrc, cRpl &#41;\n\n    LOCAL lOk\n\n    oSel&#58;Start = 0; oSel&#58;End = -1\n\n    lOk = oSel&#58;Find&#58;Execute&#40; cSrc &#41;\n\n    IF lOk; oSel&#58;Range&#58;Text = cRpl; ENDIF\n\n    RETURN lOk[/code:32u3kpb9]\n\nEMG','',0,'AIA=','32u3kpb9',1,0,'',6,0,0),(6613,1194,23,130,0,'141.51.32.24',1139305744,1,0,1,1,1,0,'','','[quote=&quot;NK&quot;:1dzqgu38]\n\nwegen 7.01. Ja - läuft bei mir ganz gut. Sind einige Bugs drausen, die mich in der 6.0 immer generft haben. Allerdings hatte ich mit der 7er auch einige Anfangsschwierigkeiten, gerade beim refreshen der datensätze. Nachdem ich einiges im Source angepasst habe, gehts nun ganz gut.\n\nWenn du da was brauchst, melde dich.\nGruss, Norbert[/quote:1dzqgu38]\n\nHallo Norbert,\n\nmein größtes Problem ist ein Programmabsturz, wenn ich das Browse in Foldern habe. Die Folder werden gar nicht erst angezeigt,  Fehlermeldung:\n\n   Error occurred at: 07.02.2006, 10:35:13\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   51\n\nStack Calls\n===========\n   Called from TSBROWSE:PROPER(8030)\n   Called from TSBROWSE:LOADFIELDS(6186)\n   Called from TSBROWSE:DEFAULT(1415)\n   Called from TSBROWSE:NEW(746) \n\nDas war schon in der Version 6 ein Problem, da konnte ich es aber beheben, nur die gleichen Änderungen in der Version 7 hatten nicht den gleichen Erfolg. javascript&#058;emoticon \':(\'\n\nDas refreshen bzw. nicht Anzeigen der Datensätze, gerade in selbst programmierten Relationen ist da schon fast ein kleines Problem\n\nHast du ein paar Tips, wie ich die Version 7.01 doch noch zum Laufen bringe ?\n\nGruß\nStefan','',0,'gA==','1dzqgu38',1,0,'',130,0,0),(6614,1588,3,2,0,'87.218.146.118',1139307684,1,0,1,1,1,1,'','','Enrico,\n\nAdded, many thanks!','',0,'gA==','3nf6wosh',1,0,'',2,0,0),(6615,1574,3,2,0,'87.218.146.118',1139308067,1,0,1,1,1,1,'','','Enrico,\n\nWM_GETDLGCODE doesn\'t supply any parameters. Is it an undocumented feature that the keystroke is provided ? Thanks,','',0,'gA==','1czl8syw',1,0,'',2,0,0),(6616,1582,3,2,0,'87.218.146.118',1139308470,1,0,1,1,1,1,'','','Frank,\n\n&gt; Only standard classes are available in linux , which classes are that ? \n\nfont.prg       \nbar.prg        \nclipboard.prg  \nwbcolumn.prg   \nmsgbar.prg     \npdmenu.prg     \ncontrol.prg    \nsay.prg        \nmenuitem.prg   \ngroup.prg      \nimage.prg      \nprogres.prg    \nfolder.prg     \nradmenu.prg    \nmget.prg       \ncheckbox.prg   \nprinter.prg    \ndialog.prg     \nradio.prg      \nlistbox.prg    \ncombobox.prg   \nmenu.prg       \nbutton.prg     \nscrollbar.prg  \nget.prg        \nwindow.prg     \nwbrowse.prg    \n\n&gt; Important : is the printer class available with duplex printing? \n\nWe have not tested it, but we assume it may be available in Linux too.\n\n&gt; Will it work or is it tested with CUPS (common unix printing system) \n\nIt uses libgnomeprint for printing, and as far as I know it is based on CUPS.','',0,'gA==','3k3d1ibs',1,0,'',2,0,0),(6617,1575,3,2,0,'87.218.146.118',1139308957,1,0,1,1,1,1,'','','Enrico,\n\nMany thanks!\n\nWill you mind to email me menu.prg to be sure we have the same code ? thanks.','',0,'gA==','16msaz0b',1,0,'',2,0,0),(6618,1574,3,6,0,'82.59.197.133',1139308963,1,0,1,1,1,1,'','','I don\'t know, sorry, but it works. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1vd3i4sx',1,0,'',6,0,0),(6619,1588,3,6,0,'82.59.197.133',1139309063,1,0,1,1,1,1,'','','Thank you. You may add this to TVideo too:\n\n[code:ylqeegan]METHOD PlayFull&#40;&#41; INLINE &#58;&#58;oMci&#58;PlayFull&#40;&#41;[/code:ylqeegan]\n\nEMG','',0,'AIA=','ylqeegan',1,0,'',6,0,0),(6620,1575,3,6,0,'82.59.197.133',1139309180,1,0,1,1,1,1,'','','Sent.\n\nEMG','',0,'AIA=','3iyc3e34',1,0,'',6,0,0),(6621,1574,3,2,0,'87.218.146.118',1139309186,1,0,1,1,1,1,'','','Enrico,\n\nok, added <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks!','',0,'AIA=','285x0ocl',1,0,'',2,0,0),(6622,1574,3,6,0,'82.59.197.133',1139309211,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','2l2z3zfm',1,0,'',6,0,0),(6623,1588,3,2,0,'87.218.146.118',1139309320,1,0,1,1,1,1,'','','Enrico,\n\nbig thanks,\n\nyou are truly inspired <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','455ag305',1,0,'',2,0,0),(6624,1588,3,6,0,'82.59.197.133',1139309524,1,0,1,1,1,1,'','','<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nI think it could be useful to add MPEG playing capability to TVideo. Do you want my modified TVideo (very little changes)?\n\nEMG','',0,'AIA=','3qx3vjog',1,0,'',6,0,0),(6625,1572,3,2,0,'87.218.146.118',1139309550,1,0,1,1,1,1,'','','Vytas,\n\nChange this:\n\necho obj\\FIS.obj, obj\\param.obj, + &gt;&gt; b32.bc \n\ninto this:\n\necho obj\\FIS.obj obj\\param.obj, + &gt;&gt; b32.bc','',0,'AIA=','3d5j0d9a',1,0,'',2,0,0),(6626,1589,6,362,0,'200.168.52.156',1139309592,1,0,1,1,1,1,'','','Static Function Teclas( nKey, Alias, oSay, oLbx )\n\n    DO CASE\n\n       CASE ( nKey == Asc( \"A\" ) .OR. nKey == Asc( \"a\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+A-For Aldreks\'\n       CASE ( nKey == Asc( \"B\" ) .OR. nKey == Asc( \"b\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+B-For Aldreks\'\n       CASE ( nKey == Asc( \"C\" ) .OR. nKey == Asc( \"c\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+C-For Aldreks\'\n       CASE ( nKey == Asc( \"D\" ) .OR. nKey == Asc( \"d\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+D-For Aldreks\'\n       CASE ( nKey == Asc( \"E\" ) .OR. nKey == Asc( \"e\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+E-For Aldreks\'\n       CASE ( nKey == Asc( \"F\" ) .OR. nKey == Asc( \"f\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+F-For Aldreks\'\n       CASE ( nKey == Asc( \"G\" ) .OR. nKey == Asc( \"g\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+G-For Aldreks\'\n       CASE ( nKey == Asc( \"H\" ) .OR. nKey == Asc( \"h\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+H-For Aldreks\'\n       CASE ( nKey == Asc( \"I\" ) .OR. nKey == Asc( \"i\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+I-For Aldreks\'\n       CASE ( nKey == Asc( \"P\" ) .OR. nKey == Asc( \"p\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+P-For Aldreks\'\n       CASE ( nKey == Asc( \"T\" ) .OR. nKey == Asc( \"t\" ) ) .AND. ;\n              GetKeyState( VK_CONTROL )\n              ? \'Control+T-For Aldreks\'\n\n       //CASE ( nKey == Asc( \"Z\" ) .OR. nKey == Asc( \"z\" ) ) .AND. ;\n       //       GetKeyState( VK_CONTROL )\n       //       ? \'Control+Z-For Aldreks\'\n\n       CASE ( nKey == VK_INSERT  .AND. GetKeyState( VK_SHIFT   ) ) .OR. ;\n            ( nKey == ASC( \"V\" ) .AND. GetKeyState( VK_CONTROL ) ) .OR. ;\n            ( nKey == ASC( \'X\' ) .AND. GetKeyState( VK_CONTROL ) )\n            ? \' Multiplas-For Aldreks\'\n\n       /*\n       CASE nKey==VK_F12\n              ? \'F12-For Aldreks\'\n       */\n\n       CASE ( nKey == VK_F2 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F2-For Aldreks\'\n        // Acao(Action) do seu programa\n       CASE ( nKey == VK_F3 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F3-For Aldreks\'\n        // Acao(Action) do seu programa\n       CASE ( nKey == VK_F4 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F4-For Aldreks\'\n        // Acao(Action) do seu programa\n       CASE ( nKey == VK_F5  .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F5-For Aldreks\'\n        // Acao(Action) do seu programa\n       CASE ( nKey == VK_F6 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F6-For Aldreks\'\n        // Acao(Action) do seu programa\n       CASE ( nKey == VK_F7 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F7-For Aldreks\'\n        // Acao(Action) do seu programa\n       CASE ( nKey == VK_F8 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F8-For Aldreks\'\n        // Acao(Action) do seu programa\n       CASE ( nKey == VK_F9  .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F9-For Aldreks\'\n        // Acao(Action) do seu programa\n       //CASE ( nKey == VK_F10 .AND. GetKeyState( VK_CONTROL ) )\n       //   ? \'Control+F10-For Aldreks\'\n          // Acao(Action) do seu programa\n       CASE ( nKey == VK_F11 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F11-For Aldreks\'\n          // Acao(Action) do seu programa\n       CASE ( nKey == VK_F12 .AND. GetKeyState( VK_CONTROL ) )\n          ? \'Control+F12-For Aldreks\'\n          // Acao(Action) do seu programa\n\n    ENDCASE\n\nReturn( .T. )','',0,'AIA=','ng1ajaj9',1,0,'',362,0,0),(6627,1588,3,2,0,'87.218.146.118',1139309602,1,0,1,1,1,1,'','','Yes, please <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAll enhancement are welcome!','',0,'AIA=','2u30hnyb',1,0,'',2,0,0),(6628,1589,6,362,0,'200.168.52.156',1139309708,1,0,1,1,1,1,'','','Si kieres usar las combinaciones di ALT+... en una LISTBOX, tienes ke CAMBIAR la CLASE TWBROWSE.PRG, kualkquer cosa, avisame ke indico como...  Saludos!','',0,'AIA=','12zlr8dw',1,0,'',362,0,0),(6629,1569,3,2,0,'87.218.146.118',1139310196,1,0,1,1,1,1,'','','Enrico,\n\nImplemented,\n\nmany thanks!','',0,'AIA=','ex2y701s',1,0,'',2,0,0),(6630,1568,3,2,0,'87.218.146.132',1139310705,1,0,1,1,1,1,'','','Enrico,\n\n&gt; As you can notice, clicking on the button has no effect: \n\nHere it works ok. The focus is given to the GET.','',0,'AIA=','3iti2d5r',1,0,'',2,0,0),(6631,1549,7,2,0,'87.218.146.132',1139310967,1,0,1,1,1,1,'','','Kerwin,\n\nEl producto puede comprarlo con entrega por Internet, y el precio es 290 euros. Puede hacer el pago desde una oficina de Western Union.\n\nSi tiene más preguntas, por favor envíelas por email a <!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->\n\ngracias','',0,'AIA=','1nfij7e4',1,0,'',2,0,0),(6632,1592,1,2,0,'87.218.146.132',1139311229,1,0,1,1,1,1,'','','Gerry,\n\nPlease review samples\\TestSize.prg','',0,'AIA=','2pky1e2t',1,0,'',2,0,0),(6633,1536,1,2,0,'87.218.146.132',1139311292,1,0,1,1,1,1,'','','Guenther,\n\nThe next February build includes transparent and reasizables bitmaps (or images jpg, etc.)','',0,'AIA=','1omtj0dr',1,0,'',2,0,0),(6634,1194,23,308,0,'84.148.62.23',1139311468,1,0,1,1,1,0,'','','[quote=&quot;StefanHaupt&quot;:3apdiuw1]Hallo Norbert,\n\nmein größtes Problem ist ein Programmabsturz, wenn ich das Browse in Foldern habe. Die Folder werden gar nicht erst angezeigt,  Fehlermeldung:\n\n   Error occurred at: 07.02.2006, 10:35:13\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   51\n\nStack Calls\n===========\n   Called from TSBROWSE:PROPER(8030)\n   Called from TSBROWSE:LOADFIELDS(6186)\n   Called from TSBROWSE:DEFAULT(1415)\n   Called from TSBROWSE:NEW(746) \n\nDas war schon in der Version 6 ein Problem, da konnte ich es aber beheben, nur die gleichen Änderungen in der Version 7 hatten nicht den gleichen Erfolg. javascript&#058;emoticon \':(\'\n\nDas refreshen bzw. nicht Anzeigen der Datensätze, gerade in selbst programmierten Relationen ist da schon fast ein kleines Problem\n\nHast du ein paar Tips, wie ich die Version 7.01 doch noch zum Laufen bringe ?\n\nGruß\nStefan[/quote:3apdiuw1]\n\nHallo Stefan,\nmit den Foldern kann ich dir auf die schnelle auch nicht helfen. Bei mir hab ich nicht mal das demoprogramm sbtest (Foldertest) zum laufen bekommen (hab mich aber auch nicht weiter damit beschäftigt).\nIn Foldern nehme ich nach wie vor den tcbrowse.\n\nWegen deiner Refresh(erei) kann ich dir helfen.\nDa ich SQL verwende und auch wärend der Anzeige die Filter wechsele hatte ich damit echte Probleme. Das einzige was wirklich geholfen hat war:\n    oList:Refresh( .T. )\n    oList:SetFocus( .T. )\n    oList:nLen := oDBF:RecCount()\n\nWichtig ist, dass der Wert von nLEN nach dem filtern manuel neu gesetzt wird. Dann hat es bei mir geklappt.\n\nAlledings bin ich eben dabei auf xBrowse umzusteigen. Hab da zwar auch noch so meine Probleme, aber wer hat die nicht  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nWenn ich dir bei der Folder-Sache helfen soll, brauch ich allerdings ein paar Codeschnipsel. Mach ich gerne ...\nGruss, Norbert','',0,'gA==','3apdiuw1',1,0,'',308,0,0),(6635,1588,3,6,0,'82.59.197.133',1139311977,1,0,1,1,1,1,'','','It is enough to change this in New() and Redefine() methods:\n\n[code:3ubkcks2] &#58;&#58;oMci = TMci&#40;&#41;&#58;New&#40; &quot;mpegvideo&quot;, cFileName &#41;[/code:3ubkcks2]\n\nWe may use the filename extension to automatically switch from AVI to MPG or add a new clause in VIDEO command and leave the choice to the user.\n\nEMG','',0,'AIA=','3ubkcks2',1,0,'',6,0,0),(6636,1568,3,6,0,'82.59.197.133',1139312238,1,0,1,1,1,1,'','','Yes, but the ACTION clause is not fired. Try this and you will not hear the beep:\n\n[code:1v45urnh]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, oBtn\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar\n\n    @ 3, 1 BUTTON oBtn PROMPT &quot;Close&quot; ACTION MSGBEEP&#40;&#41;\n\n    oBtn&#58;bLButtonUp = &#123; || oGet&#58;SetFocus&#40;&#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1v45urnh]\n\nEMG','',0,'AIA=','1v45urnh',1,0,'',6,0,0),(6637,1569,3,6,0,'82.59.197.133',1139312281,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','2d5h1g74',1,0,'',6,0,0),(6638,1596,23,308,0,'84.148.62.23',1139313046,1,0,1,1,1,0,'','xBrowse','Hallo alle zusammen,\n\nFrage: Wer von Euch setzt auch xBrowse (FWH) ein.\n\nIch hab damit ein Problem bei dem ich nicht recht weiterkomme.\nIch habe MS-SQL Daten und möchte die im xBrowse in einem MDI Fenster anzeigen. Soweit so gut - funktioniert auch.\n\nWenn allerdings wegen eines Filters keine Daten gefunden werden, wird der xBrowse nicht korrekt aufgebaut und zerhackstückelt.\n\nHatte jemand von Euch auch schonmal das Problem und weiss da Abhilfe ?\nViele Grüße, Norbert\n\nBeispiel 1 (ok. Datensätze wurden gefunden)\n[img:1lphz0vj]http&#58;//www&#46;alphasoft&#46;de/test/good&#46;jpg[/img:1lphz0vj]\nBeispiel 1 (fehlerhaft. Keine Datensätze oder Datenbank leer)\n[img:1lphz0vj]http&#58;//www&#46;alphasoft&#46;de/test/bad&#46;jpg[/img:1lphz0vj]','',0,'CA==','1lphz0vj',1,0,'',308,0,0),(6639,1597,7,123,0,'81.39.239.66',1139314248,1,0,1,1,1,0,'','Microsoft Pocket PC 3.0.11171 y FWPPC','Antonio,\n\nTengo una Pocket Loox 600 y una Compaq Ipaq.  Ambas PDA\'s tienen el mimos sistema operativo.  En el \'Acerca de...\' pone\n\nMicrosoft Pocket PC\nVersión 3.0.1171 (Compilación 11178)\n\nEl procesador es, en ambas PDA\'s: Intel(R) PXA250\n\nAl ejecutar cualquier aplicación FWPPC me aparece el siguiente diálogo:\n\n\"No se puede encontrar \'fwce10\' (o uno de sus componente).  Compruebe que la ruta de acceso y el nombre de archivo son correctos y que todas las bibliotecas necesarias están disponibles\"\n\n¿Es este sistema operativo utilizable por FWPPC? Si lo es... ¿que le puede faltar por instalar?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'CA==','3a35t65v',1,0,'',123,0,0),(6640,1598,6,157,0,'87.218.191.214',1139314827,1,0,1,1,1,0,'','Problemas con Set Key','Hola a todos: \nEstoy pasando una aplicacion de Clipper a xHarbour con los consiguientes tropezones, problemillas etc, que hasta ahora he podido solventar. El siguiente problema esta a punto de ganarme por lo que pido vuestra ayuda para salir del paso. Me explico.\n\nPor razones operativas y funcionales, la aplicacion funciona con los Buttons clasicos y con las telcas F1... F10. Asigno a cada tecla las mismas funciones que los botones equivalentes tienen en la clausula ACTION y sin embargo no funcionan igual.\nEjemplo: Estoy en una pantalla de captura de datos con unos cuantes GETS y\nmediante la pulsacioon de una tecla F1... F10 se accede a otra pantalla para introducir datos complementarios. Bien.. si se accede a esta segunda pantalla mediante click en un Button, al retorno a la pantalla princpal, el foco esta en el get que lo tenia antes de salir lo cual es correcto. Si accedo a la segunda pantalla con tecla F1..F10 al retorno el foco no esta e ningun GET y tengo que dar varias veces enter para que aparezca el foco en el GET oportuno. Que estoy haciendo mal ??\n\nGracias a todos','',0,'CA==','1azwi2q5',1,0,'',157,0,0),(6641,1585,20,1,0,'213.82.134.66',1139315011,1,0,1,1,1,0,'fasi','','Marco,\nquella versione l\'ho anch\'io ...però esiste un altra versione dove c\'era rtfmerge () chge dato un file .rtf e un database ti creava automaticamente il nuovo file con i campi modificati....\nPoi se ricordate bene è stata la volta di Tedit  e quindi tutti hanno lasciato perdere questo rtf e poi siamo passati al word con ole ....adesso poichè linares ha rifatto la classe Rtf  potremmo usare questa  , anche se non capisco come mai nel 2002 Linares,Ortis e Pulpon hanno fatto una classe rtf con un Richpad dove cera di tutto e poi adesso nel 20006 Linares ha rifatto una psuda classe rtf  senza molte cose rispetto a quella del 2002 come per esempio l\'anteprima di stampa a proposito di quest\'ultima io ho rifatto l\'anteprima grazie ad un fwuser xche mi ha dato la pagina web ... a me serviva una funzione per strasformare il rtf in emf e ci sono riuscito\nappena posso ( i tecnici mi devono rimettere la linea telefonica)   vi do il source. anche se a me non funzionano i margini e non saprei come settarli ...','',0,'CA==','1gots9r4',1,0,'',1,0,0),(6642,1585,20,1,0,'213.82.134.66',1139315157,1,0,1,1,1,0,'fasi','','e poi possiamo mettere questa funzione di emg come  un methodo  Wordreplace() nella classe che vi sembra l\'idea ...','',0,'CA==','2maeykfp',1,0,'',1,0,0),(6643,1599,6,106,0,'85.34.123.169',1139317739,1,0,1,1,1,1,'','TMultisel de Hernán... cual es la ultima version?','Yo tengo la version de wbrowse 15, no he encontrado una nueva versión, y he comenzado a usar tmultisel con FWH 2.7 (la usaba anteriormente con clipper sin problemas), pero ahora da errores, como el que detallo a continuacion:\n\n\n  [color=green:309dul03] Path and name: c:\\lavwin\\wp32\\WP32.Exe (32 bits)\n   Size: 5,298,176 bytes\n   Time from start: 0 hours 2 mins 45 secs \n   Error occurred at: 07/02/2006, 13:52:19\n   Error description: Error BASE/1004  Message not found: TMULTISEL:END\n\nStack Calls\n===========\n   Called from:  =&gt; TMULTISEL:ERROR(179)[/color:309dul03]\n\nla version que tengo de esta clase es la siguiente: [color=green:309dul03]11/05/2002  15.58             5.586 TMULTISE.PRG[/color:309dul03]\n\n\nAlguien tiene una version mas nueva? Gracias','',0,'Ag==','309dul03',1,0,'',106,0,0),(6644,1600,3,63,0,'80.37.102.128',1139318248,1,0,1,1,1,0,'','How to draw a resizable rectangle','Anybody could give me an idea about how to draw a resizable rectangle on a Dialog?.  I mean, the kind of rectangle used to select a region of a Bitmap, that expands and contacts as you move the mouse.  I have tried several aproaches with Rectange(), RectDot() and LineTo() but I am sure it must be a simpler way.\nThanks\nRafael','',0,'Ag==','3esnwhpw',1,0,'',63,0,0),(6645,1601,4,133,0,'80.176.234.174',1139318263,1,0,1,1,1,0,'','VALID Clause For WINDOW','Antonio,\n\nI am getting a \"parse error at WINDOW\" if I include the VALID clause.\n\nI have a WINDOW/MENU interface that requires validation before I close the WINDOW\n\nHow may I prevent exit from a WINDOW.','',0,'Ag==','2bo4w1gk',1,0,'',133,0,0),(6646,1602,6,63,0,'80.37.102.128',1139318391,1,0,1,1,1,0,'','Cómo dibujar un rectángulo de tamaño ajustable','Alguien podría darme un ejemplo de cómo dibujar un rectángulo de tamaño variable, o sea, el tipo de rectángulos utilizados para seleccionar una porción de un bitmap, que se expanden o se contraen al mover el ratón manteniendo pulsado el botón izquierdo.\nGracias,\nRafael','',0,'Ag==','3cpkz7oq',1,0,'',63,0,0),(6647,1585,20,29,0,'82.59.35.206',1139321149,1,0,1,1,1,0,'','','Probabilmente ci sono stati problemi relativi alla proprietà intellettuale dei sorgenti, è per questo motivo che la classe è stata riscritta da Antonio.\nNon ho l\'ultima versione delle FW ma credo cha Antonio abbia previsto anche il preview del modello rtf in quanto mi sembra abbia implementato metodi aggiuntivi nella classe tprinter proprio per gestire margini ed altro.\n\nPer quanto riguarda l\'esempio di Emg, considera che è utilizzabile però solo in presenza di Office installato in quanto opera via Ole.\n\nMarco','',0,'Ag==','1bgkyjdb',1,0,'',29,0,0),(6648,1585,20,6,0,'87.1.225.250',1139321559,1,0,1,1,1,1,'','','Non sai per quanti anni mi sono battuto cercando inutilmente di spiegare quanto fosse meglio utilizzare una tecnica che non richiedesse la presenza di Word o Excel oppure perché sarebbe preferibile un browser diverso da IE o un programma di posta elettronica diverso da OE.\n\nBe\', personalmente ho finito di combattere e preferisco sfruttare almeno le caratteristiche positive del nemico. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'Ag==','3gb5xa1i',1,0,'',6,0,0),(6649,1603,20,29,0,'82.59.35.206',1139321602,1,0,1,1,1,0,'','Velocizzare la stampa con le stampanti ad aghi','Salve - oggi sono scatenato sul forum -,\nvorrei velocizzare la stampa su stampanti ad aghi.\n\nEsiste qualche sistema oltre il metodo oPrn:DraftMode(.t.) ? \nPer esempio installare un driver di stampa \"solo testo\" od altro ?\n\nInoltre, esiste un sistema per verificare se la stampante che si sta utilizzando è ad aghi ? Vorrei utilizzare oPrn:DraftMode(.t.) solo in presenza di stampante ad aghi in quanto non vorrei crei problemi alla maggioranza dei clienti che utilizza (fortunatamente) laser ed inkjet.\n\nGrazie\n\nMarco','',0,'Ag==','2qkgnvp9',1,0,'',29,0,0),(6650,1585,20,29,0,'82.59.35.206',1139321903,1,0,1,1,1,0,'','','Concordo con la tua analisi. \n\nIl problema è che una percentuale non indifferente dei miei clienti è passata ad OpenOffice 2.0. Sia perché è gratuito (immagina un cliente con una rete di 5-8 computer quanto dovrebbe spendere per licenziare Office) sia perché lo fornisco direttamente sul CD del mio prodotto in modo che sia immediatamente installabile sia ancora perché con un click convertono il documento in PDF senza dover installare un prodotto apposito.\n\nIl problema principale di OpenOffice è il filtro RTF (che è una ciofeca e non gestisce documenti completti con caselle di testo ed immagini) e il supporto OLE che è diverso da quello di Word.\n\nMarco','',0,'Ag==','1vwmo5jk',1,0,'',29,0,0),(6651,1585,20,6,0,'87.1.225.250',1139322136,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:2jtapcp0]sia perché lo fornisco direttamente sul CD del mio prodotto in modo che sia immediatamente installabile[/quote:2jtapcp0]\n\nBe\', ti sei dato la zappa sui piedi, ora lavora! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','2jtapcp0',1,0,'',6,0,0),(6652,1603,20,106,0,'85.34.123.169',1139322382,1,0,0,1,1,1,'','','Le opzioni secondo me non sono tante. O installare una stampante generica/solo testo, o stampare usando i vecchi metodi di clipper con la class tDosPrn()\n\nBuon lavoro.','',0,'gA==','1oztzald',1,0,'',106,0,0),(6653,1546,3,266,0,'60.50.59.95',1139322609,1,0,1,1,1,1,'','','AFPexpress is software key controlled, ordered/registered by name : USD99 per name','',0,'gA==','23fl6j3h',1,0,'',266,0,0),(6654,1604,3,209,0,'209.217.64.30',1139325070,1,0,1,1,1,0,'','Re: Mouse behavior','I have a program that has standalone input dialogs and input dialogs located in folders.  What I have found is that the mouse does not behave the same for identical clicks.\n\nI have attached the sample source program and rc file below.  Should you have problems compiling it with buildh.bat please let me know and I will post that files to a ftp site.\n\nThe differences I find are as follows.  If you open the first menu selection \"Simple Dialog Page\"  a dialog opens containing 3 fields.  If I left click on the second files the mouse gets positioned into the second field and I am able to edit the values.  Now when you open the second menu option \"Folder Dialog Pages\"  and left click on the second field the cursor remains in the first dialog box.  To move to the second field via mouse requires the user to right click.\n\nSo what do I have to do to make the mouse behavior for folders to be the same as for simple dialogs? \n\nThanks again for your help.\n\nVytas\n\n\n\n \n\nProgram source:\n\n#include \"FiveWin.ch\"\n#include \"report.ch\"\n#include \"folder.ch\"\n#include \"TCBrowse.ch\"\n\nSTATIC oWnd\n\nFUNCTION Main(InLinePass)\nLOCAL hBorland := loadlibrary(\"BWCC32.DLL\")\nBWCCRegister(GetResources())\nREQUEST DBFCDX\nDBSETDRIVER(\"DBFCDX\")\nBWCCRegister(GetResources())\nSET 3DLOOK ON\n\n// Open main window\nOpenMain()\n\nSET RESOURCES TO\nFreeLibrary(hBorland)\nRETURN nil\n\nDLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB \"BWCC32.DLL\"\n\n* ==================================================================\n\nFUNCTION OpenMain()\n\nDEFINE WINDOW oWnd FROM 1, 1 TO 24, 80 ; \n  TITLE \"TEST mouse behavior\" ;\n  COLOR RGB(0,255,0) ,RGB(255,0,255) ;\n  MENU  BuildMenu()\n\nACTIVATE WINDOW oWnd\n\nRETURN nil\n* ==================================================================\nFUNCTION BuildMenu()\n\nLOCAL oMenu\n\nMENU oMenu\n\n  MENUITEM \"&amp;Simple Dialog Page\" MESSAGE \"Standard dialog \";\n    ACTION SimplePage()\n\n  MENUITEM \"&amp;Folder Dialog Pages\" MESSAGE \"Folder pages\";\n    ACTION FoldPages()\n\nENDMENU\n\nRETURN oMenu\n* ==================================================================\n\nFUNCTION SimplePage()\n  Pg1Fld1 := \"Test1\"\n  Pg1Fld2 := 8.57\n  Pg2Fld1 := \"Test2\"\n  Pg2Fld2 := 1.03\n  Pg2Fld3 := 2.66\n\n   DEFINE DIALOG oDlg RESOURCE \"PG0\"\n\n   REDEFINE GET Pg2fld1 ID 2001 OF oDlg UPDATE\n   REDEFINE GET Pg2Fld2 ID 2002 OF oDlg UPDATE PICTURE \"9.99999\"\n   REDEFINE GET Pg2Fld3 ID 2003 OF oDlg UPDATE PICTURE \"9.99999\"\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID MsgYesNo( \"Want to end ?\" )\n\nRETURN NIL\n\nFUNCTION FoldPages()\n  Pg1Fld1 := \"Test1\"\n  Pg1Fld2 := 8.57\n  Pg2Fld1 := \"Test2\"\n  Pg2Fld2 := 1.03\n  Pg2Fld3 := 2.66\n\n   DEFINE DIALOG oDlg RESOURCE \"SAMPLE1\"\n\n   REDEFINE FOLDER oFld ID 101 OF oDlg ;\n      PROMPT \"Page1\", \"Page2\" ;\n      DIALOGS \"PG1\", \"PG2\"\n\n   oFld:aEnable = { .t., .t.}\n\n   REDEFINE GET Pg1fld1 ID 1001 OF oFld:aDialogs[1] UPDATE\n   REDEFINE GET Pg1Fld2 ID 1002 OF oFld:aDialogs[1] UPDATE PICTURE \"9.99999\"\n\n   REDEFINE GET Pg2fld1 ID 2001 OF oFld:aDialogs[2] UPDATE\n   REDEFINE GET Pg2Fld2 ID 2002 OF oFld:aDialogs[2] UPDATE PICTURE \"9.99999\"\n   REDEFINE GET Pg2Fld3 ID 2003 OF oFld:aDialogs[2] UPDATE PICTURE \"9.99999\"\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID MsgYesNo( \"Want to end ?\" )\n\nRETURN NIL\n\n[b:3bdeigkx]Testdial.rc file :[/b:3bdeigkx]\n\n#define IDC_CHECKBOX1	92\n#include \".\\..\\include\\WinApi.ch\"\n\n#ifdef __FLAT__\n  1 24 \"winxp\\WindowsXP.Manifest\"\n#endif\n\n#ifdef __64__\n   1 24 \"WinXP/WindowsXP.Manifest64\"\n#endif \n\n\n\n\n\n\n\n\nPG0 DIALOG 18, 18, 142, 92\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION \"Page0\"\nBEGIN\n	EDITTEXT 2001, 15, 16, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n	EDITTEXT 2002, 59, 18, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n	EDITTEXT 2003, 102, 17, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\nEND\n\n\nSAMPLE1 DIALOG 18, 18, 300, 182\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION \"Sample 1 Frame\"\nBEGIN\n	CONTROL \"\", 101, FOLDER32, 0 | WS_CHILD | WS_VISIBLE|WS_TABSTOP, 12, 11, 275, 160\nEND\n\n\nPG1 DIALOG 18, 18, 240, 157\nSTYLE DS_MODALFRAME | WS_CHILD | WS_BORDER | WS_SYSMENU\nCAPTION \"Pg1\"\nBEGIN\n	EDITTEXT 1001, 46, 29, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n	EDITTEXT 1002, 77, 29, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n	LTEXT \"test1\", -1, 22, 26, 16, 8\nEND\n\n\nPG2 DIALOG 18, 18, 281, 158\nSTYLE DS_MODALFRAME | WS_CHILD | WS_CAPTION | WS_SYSMENU\nCAPTION \"Pg2\"\nBEGIN\n	EDITTEXT 2001, 14, 15, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n	EDITTEXT 2002, 58, 17, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n	EDITTEXT 2003, 101, 16, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\nEND','',0,'QA==','3bdeigkx',1,0,'',209,0,0),(6655,1560,6,255,0,'200.67.175.250',1139326148,1,0,1,1,1,1,'','','Que version de VERCE estas usando ?¡','',0,'QA==','2tyfs159',1,0,'',255,0,0),(6656,1559,6,255,0,'200.67.175.250',1139326242,1,0,1,1,1,1,'','','Esto no es error de verce, es por los\nparámetros de compilación que estás\nusando (FLAGS)\n\nconfigúralos para que no tome los\nwarnings, esto es quitando el /w\nde los flags de harbour.\n\nSaludos','',0,'QA==','gspll8yq',1,0,'',255,0,0),(6657,1604,3,6,0,'87.1.225.250',1139326264,1,0,1,1,1,1,'','Re: Mouse behavior','This is the fixed RC file:\n\n[code:1d4agppi]#define IDC_CHECKBOX1 92 \n#include &quot;\\fwharbour\\include\\WinApi&#46;ch&quot; \n\n#ifdef __FLAT__ \n1 24 &quot;\\fwharbour\\samples\\winxp\\WindowsXP&#46;Manifest&quot; \n#endif \n\n#ifdef __64__ \n1 24 &quot;WinXP/WindowsXP&#46;Manifest64&quot; \n#endif \n\n\n\n\n\n\n\n\nPG0 DIALOG 18, 18, 142, 92 \nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU \nCAPTION &quot;Page0&quot; \nBEGIN \nEDITTEXT 2001, 15, 16, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP \nEDITTEXT 2002, 59, 18, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP \nEDITTEXT 2003, 102, 17, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP \nEND \n\n\nSAMPLE1 DIALOG 18, 18, 300, 182 \nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU \nCAPTION &quot;Sample 1 Frame&quot; \nBEGIN \nCONTROL &quot;&quot;, 101, FOLDER32, 0 | WS_CHILD | WS_VISIBLE|WS_TABSTOP, 12, 11, 275, 160 \nEND \n\n\nPG1 DIALOG 18, 18, 240, 157\nSTYLE WS_CHILD\n&#123;\n EDITTEXT 1001, 46, 29, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n EDITTEXT 1002, 77, 29, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n LTEXT &quot;test1&quot;, -1, 22, 26, 16, 8\n&#125;\n\n\nPG2 DIALOG 18, 18, 281, 158\nSTYLE WS_CHILD\n&#123;\n EDITTEXT 2001, 14, 15, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n EDITTEXT 2002, 58, 17, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n EDITTEXT 2003, 101, 16, 16, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n&#125;[/code:1d4agppi]\n\nEMG','',0,'AIA=','1d4agppi',1,0,'',6,0,0),(6658,1561,6,255,0,'200.67.175.250',1139326306,1,0,1,1,1,1,'','','Que version de VERCE estas usando ???\n\ncontáctame por correo privado por favor.\n\njcso @ esm.com.mx','',0,'AIA=','jlu8b3df',1,0,'',255,0,0),(6659,1583,6,252,0,'201.140.16.171',1139328447,1,0,1,1,1,0,'','','Si incluyo el windowsXP.manifest en mi RC, el boton no se desdibuja cuando no se cumple la condicion de WHEN. ¿Alguien ha solucionado el problema sin incluir windowsXP.manifest?.\n\nSaludos.','',0,'AIA=','1qh0iton',1,0,'',252,0,0),(6660,1594,6,252,0,'201.140.16.171',1139328758,1,0,1,1,1,0,'','','Vamos, tan solo quiero que alguien me diga si no se puede usar EVAL al indexar usando ADS. Me interesa usar EVAL para poner un meter en mi rutina de reindexacion, pero no si si estoy haciendo algo mal o simplemente EVAL no es una funcion admitida por ADS.\n\n¿Alguien ha usado EVAL reindexando con ADS?.\n\nSaludos.','',0,'AIA=','1zea8bh8',1,0,'',252,0,0),(6661,1594,6,138,0,'201.133.73.175',1139331807,1,0,1,1,1,1,'','','No es posible hacer lo que quieres.\n\nHay que entender un poco como funciona ADS cuando se hace un indice contra lo que hace xHarbour o Clipper\n\nBajo Clipper / (x)Harbour un proceso de reindexacion, en realidad lo que hace es un DO WHILE EOF para todos los registros de la base de datos. Cada registro de la base de datos es enviado al maquina que esta corriendo indices se realiza el indice, se incluye en el archivo NTX/CDX y se continua con el proceso, por eso, tu puedes utilizar la clausula EVAL, la cual se va a evaluar EVERY numero de registros. Ya que tu programa tiene el control, puede ejecutar las instrucciones que tienes en EVAL cada \"x\" numeros de registros.\n\nCon ADS no pasa esto, cuando tu pidex indexar un DBF, la instruccion de indexacion no es procesada por tu programa, tu programa le envia a ADS la instruccion de indexacion, y a partir de ahi, tu ya no tienes control sobre el proceso, ADS se encargara de hacer el indice y solo retomaras el control del programa hasta que ADS termine de indexar.\n\nPor ello no es posible utilizar la clausula EVAL.','',0,'AIA=','1zejm958',1,0,'',138,0,0),(6662,1585,20,49,0,'62.13.172.78',1139331940,1,0,1,1,1,0,'','','Per Marco\n\nLa versione attuale di Linares non è prevista di anteprima ....\nl\'anteprima io l\'ho rifatta ma credo che non vada bene perchè è una classe che riprende la classe rpreview , però funziona, ha anche una funzione in c che trsforma il rtf in emf ...però a me sembra una ciofeca anche perchè quando visualizzo il rtf  le scritte sono molto vicine alla fine del foglio , insomma non so come settare i margini, tu dici che c\'è la funzione ma nella classe rtf di linares o di quella di marchione ?\nSarebbe interessante rifare un .....( lo sparata grossa)....OpenRtfPad fatto con la classe di linares a me sembra un \'idea utile non trovate ...','',0,'AIA=','3hvgivpm',1,0,'',49,0,0),(6663,1585,20,49,0,'62.13.172.78',1139332415,1,0,1,1,1,0,'','','vabbe\'  provate anche voi.....\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/21662667/Classertfmodificataconpreview.zip.html\">http://hyperupload.com/download/2166266 ... w.zip.html</a><!-- m -->','',0,'AIA=','2l86pczw',1,0,'',49,0,0),(6664,1605,2,350,0,'80.32.243.219',1139333510,1,0,1,1,1,0,'','XmlToAnsi','Hola a todos.\n\n¿Alguien sabe si existe una función que pase una cadena de caracteres en formato XML a formato ANSI?.\n\nTengo que capturar datos de un fichero XML para pasarlos a una DBF, tengo casi todo hecho, pero me encuentro conque las letras acentuadas salen los símbolos tan simpaticos de este formato.\n\nSaludos.','',0,'AIA=','h6mtm10x',1,0,'',350,0,0),(6665,1581,6,376,0,'201.230.114.211',1139335406,1,0,1,1,1,0,'','Re: ERROR AL COMPILAR CON HARBOUR Y XHARBOUR USANDO VERCE 4.','*** ERROR CON XHARBOUR\nFiveWin.ch(193) Warning I0003  No markers in repeatable group [\'&lt;uAction&gt;\\\'] - group will never be used.\nLines 28, Functions/Procedures 1\n\nYo tuve este problema con mi FWH2.4 y se corrigió cuando Antonio Linares me envío a mi correo una nueva versión de Fivewin.ch. Tal parece que este se presenta cuando se utiliza el (x)Harbour con VerCe, principalmente, aunque los otros \"hacedores\" también lo reportan pero no impiden que se genere el ejecutable.\n\nSaludos\n\nArmando','',0,'','3juu385z',1,0,'',376,0,0),(6666,1600,3,303,0,'68.7.28.54',1139335762,1,0,1,1,1,0,'','','Rafael,\n\nYou might look at the incomplete IDE samples that come with FW. I can\'t remember if there was such an thing for dialog design, but it is worth a look.\n\nJames','',0,'','17ov8fvz',1,0,'',303,0,0),(6667,1601,4,2,0,'87.218.146.231',1139335913,1,0,1,1,1,1,'','','GWard,\n\nVALID is currently available just for dialogboxes, not for windows.','',0,'','3s3yg2bj',1,0,'',2,0,0),(6668,1597,7,2,0,'87.218.146.231',1139336000,1,0,1,1,1,1,'','','Jose Luis,\n\nTienen el botón de inicio de windows, abajo a la izquierda ó arriba a la izquierda ?','',0,'','1h2dfhnn',1,0,'',2,0,0),(6669,1210,6,376,0,'201.230.114.211',1139336477,1,0,1,1,1,0,'','Funcionó al fin !!!','A todos los amigos del foro.\n\nCon sus consejos ya pude hacer funcionar mi FWH24 con (x)Harbour. Tuve que regresar a la Versión 0.80 y aún asi volver a recompilar las librerías de FWH24.\n\nEspero que esta situación no me limite el desarrollo de mis aplicaciones (ruego que esto no suceda ya que si no tendré que pensar en otras librerías que sigan el desarrollo de xHarbour).\n\nGracias a todos.\n\nUn fuerte abrazo\n\nArmando','',0,'','3ryvzlte',1,0,'',376,0,0),(6670,1563,6,43,0,'201.127.21.225',1139338439,1,0,1,1,1,0,'','','Hola\n\n  hay varios ejemplos en fwh/samples\n           testmdi\n           testmdi1, testmdi2, etc...\n\n\nSaludos\n\n  Marco A. Delgado','',0,'','oorumpmy',1,0,'',43,0,0),(6671,1602,6,2,0,'87.218.146.231',1139338584,1,0,1,1,1,1,'','','Rafael,\n\nTienes un ejemplo en visual\\design.prg en concreto los métodos:\n   METHOD LButtonDown( nRow, nCol, nFlags )\n   METHOD LButtonUp( nRow, nCol, nFlags )\n   METHOD MouseMove( nRow, nCol, nFlags )','',0,'','1d29c0zg',1,0,'',2,0,0),(6672,1606,6,43,0,'201.127.21.225',1139340716,1,0,1,1,1,0,'','Rellenado de ventana con xBrowse','Hola:\n\n   Estoy haciendo una ventana con una barra y xbrowse y un splitter\nentonces hago esto..\n\n[code:2glw8bx8]\n      DEFINE WINDOW oWndRecauda OF oPanel1                  ;\n             TITLE &quot;Listado de Recaudaciones&quot;               ;\n             FROM 0,0 TO oPanel1&#58;nBottom, oPanel1&#58;nRight    ;\n				 COLOR CLR_BLACK, GetSysColor&#40;15&#41;-RGB&#40;30,30,30&#41; ;\n				 NOSYSMENU\n\n             DEFINE SBUTTONBAR oBar2 TOP _3D SIZE 35,35 OF oWndRecauda\n                    oBar2&#58;bLClicked &#58;= &#123;|| 0 &#125;\n                    oBar2&#58;bRClicked &#58;= &#123;|| 0 &#125;\n\n             DEFINE SBUTTON oBtn2&#91;1&#93; OF oBar2 ;\n                    RESOURCE &quot;EXIT&quot;, &quot;EXIT&quot;   ;\n                    ACTION oWndRecauda&#58;End&#40;&#41;  ;\n                    MESSAGE &quot; Salir del Listado de Recaudaciones&quot; ;\n                    TOOLTIP &quot;Salir del Listado&quot; ;\n                    LOOK W97 UPDATE\n\n\n             oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWndRecauda &#41;\n             oBrw&#58;SetArray&#40;aDatos&#41;\n\n             //  y el demas codigo&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\n             ////\n\n             @ 450, 0 SPLITTER oSpl2         ;\n                      HORIZONTAL             ;\n                      PREVIOUS CONTROLS oBrw ;\n                      TOP MARGIN 400         ;\n                      BOTTOM MARGIN 180      ;\n                      SIZE 500, 4 PIXEL      ;\n                      OF oWndRecauda         ;\n                      _3DLOOK\n\n             oBrw&#58;CreateFromCode&#40;&#41;\n             oWndRecauda&#58;oClient &#58;= oBrw   ///   Aqui sucede&#46;&#46;&#46;\n             oWndRecauda&#58;bResized &#58;= &#123;|| oSpl2&#58;Adjust &#125;\n\n\n\n      ACTIVATE WINDOW oWndRecauda MAXIMIZED ;\n					ON INIT oBrw&#58;SetFocus&#40;&#41; \n[/code:2glw8bx8]\n\nentonces....se me aparece asi... pero si se dan cuenta ahi esta el splitter.\n(con rojo)\n\n[img]\n[url=http&#58;//imageshack&#46;us:2glw8bx8][img:2glw8bx8]http&#58;//img245&#46;imageshack&#46;us/img245/5963/error25tt&#46;jpg[/img:2glw8bx8][/url:2glw8bx8][/img]\n\ny he probado poner en el INIT oSpl2:Adjust, oSpl2:AdjTop() y nada, tambien he probado\nquitando oWndRecauda:oClient := oBrw o poniendo oWndRecauda:oTop := oBrw  y me queda esto\n\n[img]\n[url=http&#58;//imageshack&#46;us:2glw8bx8][img:2glw8bx8]http&#58;//img245&#46;imageshack&#46;us/img245/8251/error31eo&#46;jpg[/img:2glw8bx8][/url:2glw8bx8][/img]\n\nAlguien me podira dar una ayudadita, de antemano muchas gracias.\n\nSaludos\n\n  Marco A. Delgado.','',0,'GIA=','2glw8bx8',1,0,'',43,0,0),(6673,1602,6,63,0,'80.37.102.128',1139340749,1,0,1,1,1,0,'','','Antonio:\nHe revisado todas mis versiones de FWH (desde la 2.4 hasta la 2.6) y en ninguna encuentro Samples\\visual\\design.prg.  Me podrías enviar una copia de ese programa, por favor?\nGracias\nRafael','',0,'GIA=','3e8dp6se',1,0,'',63,0,0),(6674,1607,6,185,0,'200.87.81.14',1139340905,1,0,1,1,1,0,'','dwgcad viewer','hola foro \n\ncomo aqui no se puede dejas archivos adjuntos, quiero enviar a alh}guien las fuentes de la clase tdwg par su uso libre\n\nsi alguien queire publicarlo favor cominuquenme para que le envie\n\nSaludos \n\nArturo','',0,'GIA=','2cjdjjb1',1,0,'',185,0,0),(6675,1597,7,123,0,'83.49.59.201',1139341150,1,0,1,1,1,0,'','','Antonio,\n\nMe ha llamado el Master Joaquín y me ha dado extensas explicaciones de cuales son los motivos por los que no vamos a poder usar FWPPC con esos Sistemas Operativos de MS.\n\nBásicamente la idea es que el VCE versión 4 que estamos usando tiene unas DLL\'s que no son compatibles con versiones anteriores de Windows CE (las que he citado).  Por lo que me ha comentado Joaquín, incluso las aplicaciones hechas exclusivamente con VCE 4 no funcionarán tampoco en esas versiones de Windows.\n\nEn fin, que tengo dos PDA\'s a las que les daré otras utilidades: una la usaré con un GPS y la otra como mando a distancia <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos,\nJosé Luis Capel','',0,'GIA=','qse2vlug',1,0,'',123,0,0),(6676,1602,6,63,0,'80.37.102.128',1139341233,1,0,1,1,1,0,'','','Antonio:\nNo te molestes. Según indicaciones de James Bott, acabo de encontrarlo en mi antiguo directorio de FW.  Voy a estudiármelo. Gracias\nRafael','',0,'GIA=','12cjberj',1,0,'',63,0,0),(6677,1600,3,63,0,'80.37.102.128',1139341346,1,0,1,1,1,0,'','','James:\nThank you.  I had erased long ago my FW folder. I have re-installed it and found the program you suggested.  I\'m going to take a long look at it.\nThks\nRafael','',0,'GIA=','rpqzwkf2',1,0,'',63,0,0),(6678,1582,3,299,0,'69.65.88.121',1139343061,1,0,1,0,1,0,'','','Frank;\n\nIs your customer migrating the server or the workstations?\n\nIf it is only the server, no changes needed.  Just run samba on the server.  Windows workstations will see it as a windows nt server.  Only it works better and faster.\n\nReinaldo.','',0,'GIA=','15d44jlu',1,0,'',299,0,0),(6679,1608,3,299,0,'69.65.88.121',1139344560,1,0,1,0,1,0,'','Richtext printing','Hi.\n\nTo print richt text with tprinter class, I\'ve decided to implement an algorithm where I parse the richtext detecting rtf tokens and printing every time a font change happens.   To this end, when achange is detected I do a \"selection\" of the text and then with REGetCharFormat I get the font and color.\n\nBut ortf:SetSel() does not seem to work properly.  ReGetCharFormat always return the last font and color of text in the rtf control.\n\nHere is a piece of the code showing at least part of the logic:\n\n[code:3ckcaz4y]\nlocal cRtf		&#58;= RESaveAsRTF&#40; &#58;&#58;ortf&#58;hWnd, SF_RTF &#41;\n&#46;&#46;&#46;\n	While nStart &lt; len&#40; cRtf &#41;\n		nLast &#58;= FindEndOfText&#40; cRtf, nStart &#41;\n		&#58;&#58;oRtf&#58;SetSel&#40; nStart, nLast &#41;\n		cLine &#58;= SubStr&#40; cRtf, nStart, nLast - nStart &#41;\n\n		nStart &#58;= nLast + 1\n		nStart &#58;= FindEndOfTokens&#40; cRtf, nStart &#41;\n\n		aFont &#58;= REGetCharFormat&#40; &#58;&#58;ortf&#58;hWnd, @nColor &#41;\n		nPad &#58;= &#58;&#58;oRtf&#58;GetAlign&#40;&#41;\n		oRtfFont &#58;= tFont&#40;&#41;&#58;New&#40; aFont&#91; LF_FACENAME &#93;, ;\n						aFont&#91; LF_WIDTH &#93;, ;\n						aFont&#91; LF_HEIGHT &#93;, &#46;f&#46;,;\n						aFont&#91; LF_WEIGHT &#93; == FW_BOLD,,,;\n						aFont&#91; LF_WEIGHT &#93;,;\n						aFont&#91; LF_ITALIC &#93;,;\n						aFont&#91; LF_UNDERLINE &#93;,,,,,, &#58;&#58;oPrn, aFont&#91; LF_PITCHANDFAMILY &#93; &#41;\n\n		nChrsPerLine&#58;= Int&#40; &#40; &#58;&#58;oPrn&#58;nHorzRes&#40;&#41; - &#40; &#58;&#58;oPrn&#58;nHorzRes&#40;&#41; / 8&#46;5 &#41; &#41; / max&#40; oRtfFont&#58;nWidth, 10 &#41;  &#41;\n		cLine &#58;= StrTran&#40; cLine, &quot;\\par&quot;, &quot;&quot; &#41;\n		nTotLns	&#58;= MlCount&#40; cLine, nchrsPerLine, 5, &#46;t&#46; &#41;\n\n		For i&#58;= 1 to nTotLns\n			&#58;&#58;oprn&#58;InchSay&#40; nLine, nLeftMargin, MemoLine&#40; cLine, nChrsPerLine, i, 5, &#46;t&#46; &#41;, ;\n					oRtfFont,, nColor,, iif&#40; nPad == 3, 2, 0 &#41; &#41;\n\n			nLine += 0&#46;16\n&#46;&#46;&#46;\n[/code:3ckcaz4y]\n\nIt prints the text just fine.  But it prints all text using the last font and color on the rtf control.  I\'m quite sure I\'m doing something wrong with SetSel() or it is just not the function I need.\n\nI still need to implement justification (npad above) and how to continue printing at the exact position that the last char was printed, but I\'ll get to that later.  Right now, I only need to solve the setsel() problem.\n\nPlease help.\n\n\n\n\nReinaldo.','',0,'AIA=','3ckcaz4y',1,0,'',299,0,0),(6680,1579,2,438,0,'166.114.98.80',1139345094,1,0,1,1,1,0,'','No no estoy llamando al BWCC.DLL','No, no creo estar llamando al BWCC.DLL\nya que la llamada al Folder lo hago con TFolder:New y no con TFolder:Redefine\n\ngracias por la respuesta','',0,'AIA=','2loqp9nh',1,0,'',438,0,0),(6681,1609,6,37,0,'200.121.244.79',1139347527,1,0,1,1,1,0,'','Usar UESTUDIO como editor de recursos','Saludos, tengo una duda, estoy tratando de trabajar con UEstudio, como editor de prgs va Ok, pero no encuentro la forma de utilizarlo como editor de recursos, logra abrir el .RC y distribuirlo en su contenido, pero al darle doble click a los dialogos siempre los habre como texto, alguien lo usa ???\nGracias','',0,'AIA=','hceu33i4',1,0,'',37,0,0),(6682,1602,6,299,0,'69.65.88.121',1139348486,1,0,1,0,1,0,'','','Rafael;\n\nHola, que tal?\n\nCual es tu proposito?\n\nSi se trata de enmarcar un segmento de una imagen (timage), pues me gustaría poder usarlo.\n\nEs que tengo una rutina que adquire documentos o imagenes de un scanner, y me gustaria permitir al usuario marcar el area de la imagen que desea conservar.\n\nSaludos,\n\n\nReinaldo.','',0,'AIA=','crpo4bf5',1,0,'',299,0,0),(6683,1602,6,63,0,'80.37.102.128',1139349612,1,0,1,1,1,0,'','','Reinaldo:\n\nAproximadamente es eso: Se trata de marcar una zona de interés dentro de un diálogo (podría ser un Bmp pero es un diálogo; no creo que eso importe).  Una vez marcado el rectángulo, me guardaré las coordenadas de inicio y fin para procesar el contenido de esa zona.  Igual que harías tú al marcar una región de la foto escaneada para recortarla y crear de ella una imagen independiente.\n\nLo que pasa es que me he liado de mala manera con lo de pintar el rectángulo (eso es fácil) y borrarlo al desplazar el ratón hasta el siguiente pixel para poder volverlo a pintar.  Esa es la rutina que más o menos estoy buscando.\n\nDe todas formas, aún me tengo que estudiar el ejemplo que ha propuesto Antonio.  Un saludo.\nRafael','',0,'AIA=','11n9qylu',1,0,'',63,0,0),(6684,1602,6,299,0,'69.65.88.121',1139350617,1,0,1,0,1,0,'','','Rafael;\n\nPues usando los ejemplos que Antonio menciona le añadí estos metodos a la clase timage y me dibuja el rectangulo sobre la imagen.  Hasta ahi, no hay problema.  Donde tengo el problema es descifrando que hacer con las coordenadas de forma tal que la imagen ahora solo venga a ser esa region enmarcada.\n\n[code:2jlvhx2p]\n//----------------------------------------------------------------------------//\n\nMETHOD LButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TImage\n\n   if &#58;&#58;bLClicked != nil\n      Eval&#40; &#58;&#58;bLClicked, nRow, nCol, nFlags &#41;\n   else\n      &#58;&#58;lBoxDraw   = &#46;t&#46;\n      &#58;&#58;nBoxTop    = nRow\n      &#58;&#58;nBoxLeft   = nCol\n      &#58;&#58;nBoxBottom = nRow\n      &#58;&#58;nBoxRight  = nCol\n      &#58;&#58;Capture&#40;&#41;\n      &#58;&#58;DrawBox&#40;&#41;\n   endif\n\nreturn nil\n\n\n//----------------------------------------------------------------------------//\n\nMETHOD MouseMove&#40; nRow, nCol, nFlags &#41; CLASS TImage\n\n   if &#58;&#58;lBoxDraw\n      &#58;&#58;DrawBox&#40;&#41;\n      &#58;&#58;nBoxBottom = nRow\n      &#58;&#58;nBoxRight  = nCol\n      &#58;&#58;DrawBox&#40;&#41;\n   endif\n\nreturn Super&#58;MouseMove&#40; nRow, nCol, nFlags &#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD LButtonUp&#40; nRow, nCol, nFlags &#41; CLASS TImage\n\n   if &#58;&#58;lBoxDraw\n      &#58;&#58;DrawBox&#40;&#41;\n      &#58;&#58;lBoxDraw = &#46;f&#46;\n      ReleaseCapture&#40;&#41;\n\n//	&#58;&#58;nWidth &#58;= &#58;&#58;nBoxRight - &#58;&#58;nBoxLeft\n//	&#58;&#58;nHeight &#58;= &#58;&#58;nBoxBottom - &#58;&#58;nBoxTop\n\n	Super&#58;ScrollAdjust&#40;&#41;\n	Super&#58;refresh&#40; &#46;t&#46; &#41;\n   endif\n\nreturn nil\n[/code:2jlvhx2p]\n\nNo se si esto te ayuda.\n\nReinaldo.','',0,'AIA=','2jlvhx2p',1,0,'',299,0,0),(6685,1607,6,49,0,'87.3.176.252',1139351997,1,0,1,1,1,0,'','','go to <!-- m --><a class=\"postlink\" href=\"http://www.hyperupload.com/\">http://www.hyperupload.com/</a><!-- m --> and insert the file zip  \nthen it give you the link where we can download the file .','',0,'AIA=','2h0ux7b2',1,0,'',49,0,0),(6686,1602,6,63,0,'80.37.102.128',1139353169,1,0,1,1,1,0,'','','Reinaldo:\nDéjame que lo prueba. Ahora ya es muy tarde. Mañana te digo algo pero creo que podremos encontrar una solución.\nUn saludo,\nRafael','',0,'AIA=','1ixlynep',1,0,'',63,0,0),(6687,1610,20,49,0,'87.3.176.252',1139353829,1,0,1,1,1,0,'','date e ora in rtf','esiste una funzione che mi restituisca l\'elenco dei formati della data e della ora tipo come si seleziona in word ?','',0,'AIA=','2mwumh13',1,0,'',49,0,0),(6688,1607,6,185,0,'200.87.81.11',1139354044,1,0,1,1,1,0,'','','hola foro\n\npueden bajar de <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/59ad4689/DWGCAD.ZIP.html\">http://hyperupload.com/download/59ad468 ... D.ZIP.html</a><!-- m -->','',0,'AIA=','cvfsod7m',1,0,'',185,0,0),(6689,1602,6,28,0,'87.218.46.218',1139354108,1,0,1,1,1,0,'','DrawFocusRect','Hola \n\nPuedes utilizar tambien DrawFocusRect. Esta función es la típica para marcar un rectángulo punteado\n\nLa primera vez que pintas, dibuja. La segunda vez que pintas en un mismo sitio te borra lo anterior. Con un poco de habilidad puedes lograr el efecto deseado.\n\n[code:3eu2cy23]#pragma BEGINDUM\n\nHB_FUNC&#40; DRAWFOCUSRECT &#41;\n&#123;\n   RECT rc;\n   rc&#46;top = hb_parni&#40; 2, 1 &#41;;\n   rc&#46;left = hb_parni&#40; 2, 2 &#41;;\n   rc&#46;bottom = hb_parni&#40; 2, 3 &#41;;\n   rc&#46;right = hb_parni&#40; 2, 4 &#41;;\n   hb_retl&#40; DrawFocusRect&#40; &#40;HDC&#41; hb_parnl&#40; 1 &#41;, &amp;rc &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:3eu2cy23]','',0,'AIA=','3eu2cy23',1,0,'',28,0,0),(6690,1539,6,28,0,'87.218.46.218',1139354812,1,0,1,1,1,0,'','','¿Qué no hace el invento? vamos que lo seguimos haciendo a mano no?','',0,'AIA=','2k8kdkbt',1,0,'',28,0,0),(6691,1611,3,98,0,'70.71.111.92',1139354959,1,0,1,1,1,1,'','Memory Leaks - any utility someone can recomend?','Hi.\n\nI\'m trying to debug a serious memory leak in a fwh app in which brushes and fonts (mainly... ocasional bitmaps, cursors and other gdi objects are also stuck) aren\'t released when they should.\n\nI have already used CheckRes() but it doesn\'t help enough to spot the objects that remain in memory when they shouldn\'t.\n\nAntonio recomended this site: <!-- m --><a class=\"postlink\" href=\"http://ltearno.free.fr/dpus/\">http://ltearno.free.fr/dpus/</a><!-- m --> but unfortunately it blows up and it\'s unusable.\n\nI found a helpful article in msdn: <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/msdnmag/issues/01/03/leaks\">http://msdn.microsoft.com/msdnmag/issues/01/03/leaks</a><!-- m -->\nIt comes with the source code (MSVC) to build the 3 utilities mentioned in this article (link is below the main title in the blue bars): <!-- m --><a class=\"postlink\" href=\"http://download.microsoft.com/download/2/8/c/28c4ace3-f5ed-4e14-bc64-3d563b807dfb/Leaks.exe\">http://download.microsoft.com/download/ ... /Leaks.exe</a><!-- m -->\n\nCan some helpful soul that has MSVC build those 3 exes to try them out?\nI it\'s not possible to attach files in the forum, please send to luis_krause at  hotmail dot com\n\nAny tricks/help on how to spot gdi memory leak, as well as any other\nutility out there is more than welcome!  \n\nRegards,\n\nLuis Krause','',0,'AIA=','mtfh4flf',1,0,'',98,0,0),(6692,1610,20,49,0,'87.3.176.252',1139355402,1,0,1,1,1,0,'','','putroppo non ho trovato su msdn l\'lelenco delle funzioni della rich edit ( RTF CONTROL)\nmi potete aiutare a trovare questo manuale per favore \n\nsilvio','',0,'AIA=','34ojg2ba',1,0,'',49,0,0),(6693,1612,6,305,0,'201.240.212.226',1139356072,1,0,1,1,1,0,'','TdosPrn con Preview e impresoras laser','Estimados amigos del foro:\n\nComo muchos de ustedes uso la clase TdosPrn modificada por Ednaldo Rolim que nos da la opcion de previsualizar los reportes (una excelente clase) antes de imprimirlas en impresoras matriciales. \n\nSin embargo me encontre con clientes que tenian impresoras Laser USB, u otras con tarjeta de red y se quejaban de que no podian imprimir desde este preview.   Habia que hacer algunos trucos con NET USE LPTx para que se pudiera redireccionar la impresion a esas impresoras, lo que resultaba un tanto molesto. \n\nMe preguntaba si es que tendria que rehacer todos mis reportes en las que usaba la clase TdosPrn para cambiarlos a tReport o tPrinter, pues con esas clases los reportes no tenian problemas al imprimir en cualquier impresora.\n\nInvestigando la clase TxtPreview (llamada por TdosPrn), encontre que la previsualizacion la hace usando otra clase fGet (de Ramon Avendaño), la misma que tiene un metodo Print() que llama a la clase tPrinter (entendieron el rollo?).  \n\nBueno.... con unas horas (dias?) de trabajo pude hacer algunas modificaciones en ambas clases (txtpreview y fGet) para conseguir imprimir en tamaños de fuente apropiados para laser y ahora el problema de imprimir en CUALQUIER IMPRESORA se termino! (al menos eso creo)\n\nNo tengo que modificar mis reportes antiguos !!! (que heredo desde DOS) y puedo \"convertirlos\" a modo grafico  (lo he probado en varios modelos laser y de inyeccion de tinta con exito).  La fuente con la que imprime es \"Lucida console\" que esta todas las PC a partir de windows XP.  Por ahora solo reconoce 2 tamaños de fuentes el modo \"normal\" y \"comprimido\" (que para mi es suficiente).  Si alguna mente mas lucida sugiere algunos cambios para imprimir otros tipos de fuente, sea bienvenida.\n\nLes paso los fuentes para quienes les interese, espero no estar violando derechos de autor, aclaro que las clases mencionadas no son mias.  Es un pequeño aporte por lo mucho que he recibido de este foro.\n\nPueden descargar los fuentes y un ejemplo desde <!-- w --><a class=\"postlink\" href=\"http://www.solupymes.com/fwin/tdosprev.zip\">www.solupymes.com/fwin/tdosprev.zip</a><!-- w -->\n\n\nSaludos\n\nRalph del Castillo','',0,'AIA=','lmfhv6q4',1,0,'',305,0,0),(6694,1594,6,252,0,'201.140.21.211',1139356416,1,0,1,1,1,0,'','','Muchas gracias por la respuesta Rene.\n\n\nSaludos.','',0,'AIA=','2w1pzu9p',1,0,'',252,0,0),(6695,1601,4,133,0,'80.176.234.174',1139357011,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3t9opwuy]GWard,\n\nVALID is currently available just for dialogboxes, not for windows.[/quote:3t9opwuy]\n\nAntonio,\n\nAny idea how long until implementation?\n\nI have a WINDOW with a data BROWSE that receives tags to various records.\n\nBefore the user leaves the screen they are required to either clear or write the selection away to an order.\n\nIf they click OK and there are unprocessed tags I need to intercept.\n\nI have used a WINDOW due to the extra screen space I require and a very comprehensive MENU.','',0,'gA==','3t9opwuy',1,0,'',133,0,0),(6696,1613,2,404,0,'213.231.101.107',1139363783,1,0,1,1,1,0,'','No al 100%','Estimados programadores:\n\nPoco a poco, el programita que esta en desarrollo, va adquiriendo forma de POO. Pero el 100%, lo dejaré para una proxima revisión. \n\nLo que quisiera, saber es, si las variables Estaticas, que se encuentren fuera de la Clase, definida en el PRG. Se pueden utilizar en ella. \n\nPues no se, si ello ocasionaría, que dejará de ser POO.\n\nGracias, anticipadas, José Mª','',0,'gA==','1llob4xf',1,0,'',404,0,0),(6697,1614,1,379,0,'59.167.110.148',1139367679,1,0,1,1,1,0,'','Paintable area of Window','Is there a way of determining the available surface area of a window in which to place controls.  I know GetWndRect() and GetCoOrs() return the outer size of the window.  I would like to know how to find the interior usable space after Buttonbars and Message is utilised.\n\nCheers\nGerry','',0,'gA==','1bntz257',1,0,'',379,0,0),(6698,1615,1,379,0,'59.167.110.148',1139367762,1,0,1,1,1,0,'','Thanks Antonio.','Thank you for that Testsize seems to be what I am after, is there a way to disable the ability to drag a window.\n\nCheers\nGerry','',0,'gA==','zp6b9gdh',1,0,'',379,0,0),(6699,1169,1,379,0,'59.167.110.148',1139376172,1,0,1,1,1,0,'','Website Gone','Tom\'s Website no longer exists.  Is there somewhere else this library may be obtained.\n\nCheers','',0,'gA==','219365ld',1,0,'',379,0,0),(6700,1616,2,348,0,'201.230.148.198',1139379581,1,0,1,1,1,0,'','Pasando los Dll a  RCssss.... vale  ??','Buen dia con todos,  aqui una duda respecto a pasar los recursos de los DLL  --&gt;&gt;(sean dialogos, bmps, etc  a) a formatos RC \n\nHe comenzado a tener problemas al parecer con  mi  dll  donde tenia los dialogos. bmps. cursores, etc  de mi programa , pues  pese a que CREO un NUEVO dialogo con un nombre simple y comun como PANTA1 , al solicitarlo en mi programa no lo ubica y simplemente no abre mi programa...  en cambio  si tomo un dialogo que ya existe, lo renombre con el nombre PANTA1  y si lo abre mostrandome el lapantalla renombrada (la viejita) ... en otras palabras....  algo asi como que no ubica ni encuentra mas dialogos nuevos... en fin...\n\nexplicado mi problema ..  van algunas preguntas ,,  que seguro que aqui tendran respuesta ...\n\n1. este Archivo DLL...  se habra malogrado,,,  habra forma de repararlo  (aparte de sacar uno a uno todos los recursos  y volverlos a poner en una DLL  nueva....) ???\n\n2. Que tal la Idea de pasar todos los dialogos  , bmps. etc.. a archivos RC...   los dialogos los grabaremos uno a uno como un RC independiente usando el workshop... ...  hasta ahi no hay problema...  DE AQUI CUAL SERIA EL PROCEDIMIENTO A SEGUIR, como los junto,  como los compilo y linkeo ??\n\n3. Respecto a los BITMAP y CURSOR que se encuentran en el DLL,,,  debere de grabarlos  tambien independitemente como BMP  o CUR ... y jalarlos como archivos independientes (triste.....)  o quizas puede se un RC..  o  lo mantenemos en un DLL   ( se puede crear exes que usen  DLL y RC a la Vez ?? )  \n\n4. Sera una respuesta a toda esta delicadeza que al parecer tienen los archivos DLL,  se deberia de grabarlos como un RES (archivos de recursos) . y usarlos asi en los programas \n\n\nbueno.. mejor aqui le hecho freno,  a espera de mejor tiempo...\ngracias anticipadas para aquellos que deseen participar en esta encrucijada ...\n\nLubin','',0,'gA==','1wzfwnmq',1,0,'',348,0,0),(6701,1610,20,6,0,'82.61.28.82',1139387579,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1r3a0z9h]putroppo non ho trovato su msdn l\'lelenco delle funzioni della rich edit ( RTF CONTROL)\nmi potete aiutare a trovare questo manuale per favore \n\nsilvio[/quote:1r3a0z9h]\n\n[url:1r3a0z9h]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/shellcc/platform/commctls/editcontrols/editcontrols&#46;asp[/url:1r3a0z9h]\n\nEMG','',0,'kA==','1r3a0z9h',1,0,'',6,0,0),(6702,1582,3,67,0,'62.235.26.190',1139388091,1,0,1,1,1,0,'','','For now the server is linux with samba , but he hopes to move also the workstations to linux\n\n\nFrank','',0,'kA==','3slhy7ww',1,0,'',67,0,0),(6703,1557,2,348,0,'201.230.148.198',1139389290,1,0,1,1,1,0,'','Re: Gama de colores para todos','Holas...  \nbastante interesante, la notas de los colores,  me gustaria comentar lo que yo hago cuando deseo un color, y quizas muchos en el foro lo hacen tambien,    Para obtener \"visualmente\" los famosos numeritos.... del RGB(nRojo,nVerde,nAzul)\n\nPues a veces me voy al conocido Paint del Windows...  y le Hago doble click a uno de los colores, de la paleta de colores,  eso abre una ventana donde se muestran los colores adicionales,,,  ahi se hace un click al boton de \"Definir colores personalizados\",,,  y nos mostrara un tapiz de colores que moviendo con el mouse sobre el,  se muestra a la vez la combinacion de los colores  rojo, ver y azul  expresados en numeros....   bueno..del color que mejor se ajuste,, esos numeros mostrados aplico...\n\nEspero complementar la idea en este tema ...\nsuerte y buen dia...\nLubin','',0,'kA==','32i8kh8n',1,0,'',348,0,0),(6704,1610,20,1,0,'213.82.134.66',1139391295,1,0,1,1,1,0,'fasi','','grazie','',0,'kA==','3ql7ar68',1,0,'',1,0,0),(6705,1169,1,130,0,'141.51.32.24',1139391630,1,0,1,1,1,0,'','Re: Website Gone','[quote=&quot;grumpy&quot;:vbf5vcvp]Tom\'s Website no longer exists.  Is there somewhere else this library may be obtained.\n\nCheers[/quote:vbf5vcvp]\n\nThe link, I posted, works fine here\n\nStefan','',0,'gA==','vbf5vcvp',1,0,'',130,0,0),(6706,1604,3,130,0,'141.51.32.24',1139392642,1,0,1,1,1,0,'','','Enrico,\n\nare the manifest files different for xp32 and xp64 ?\n\n\nStefan','',0,'gA==','3568pz8l',1,0,'',130,0,0),(6707,1604,3,6,0,'82.61.28.82',1139392748,1,0,1,1,1,1,'','','[quote=&quot;StefanHaupt&quot;:382170ne]Enrico,\n\nare the manifest files different for xp32 and xp64 ?\n\n\nStefan[/quote:382170ne]\n\nI don\'t know, but it maybe.\n\nEMG','',0,'gA==','382170ne',1,0,'',6,0,0),(6708,1194,23,130,0,'141.51.32.24',1139394073,1,0,1,1,1,0,'','','Norbert,\n\ndanke erstmal für die Tips.\n\nIch werde mich demnächst mal das Folderproblem machen, dann kann ich dir genaueres sagen. Es scheint an der Reihenfolge der Initialisierung einzelner Variablen zu liegen.\n\nDie Codeschnipsel folgen....\n\nGruß\nStefan','',0,'gA==','1ydh6yqo',1,0,'',130,0,0),(6709,1616,2,404,0,'213.231.101.107',1139398456,1,0,1,1,1,0,'','No se si te ayudara.','Algo parecido me paso, hace algún tiempo.\n\nLo que hice fue, pasar todo a otra DLL, probandola poco, poco. Es mucho curro, pero me aseguré de que funcionaba. \n\nLos dialogos, que daban problemas de visualización, en la vieja. Al pasarlos, algunos tiraron para adelante, y otros hubo que rehacerlos. \n\nRazones, de por que fallan algunos y otros no, no lo se. Pero se me sucediera de nuevo. Y teniendo tiempo, me pondre a investigar.\n\nSaludos, José Mª','',0,'gA==','14c5dyww',1,0,'',404,0,0),(6710,1617,11,443,0,'194.106.34.251',1139401495,1,0,0,0,1,0,'','Ease of Use','I deferred employing FiveLinux shortly after purchase for three reasons:\n\n1) It seems that it would not work with up to date versions of xHarbour, only the version specified in the documentation;\n2) ALTD() and/or the Debugger could not be used and I cannot work effectively without a debugger.\n3) The project I wished to port from Clipper has around 65 PRG files whereas the script supplied does not seem to faciliate the use of a file holding the names of the prgs, to be presented to the compiler/linker.\n\nI decided to complete my next update under Clipper before attempting the port and GUI changes. I\'m almost there now. Has anything changed during the last six months to overcome the three items above?','',0,'gA==','20zuupnp',1,0,'',443,0,0),(6711,1585,20,29,0,'87.7.175.25',1139403353,1,0,1,1,1,0,'','','Per Silvio:\n\nperché non utilizzi per l\'anteprima di un documento RTF l\'anteprima di Word ? Puoi attiviarla via OLE.\n\nMarco','',0,'gA==','3lqxdd1n',1,0,'',29,0,0),(6712,1582,3,299,0,'69.65.88.121',1139404598,1,0,1,0,1,0,'','','Frank;\n\nYou know, you could always try wine.   I mean the wine project.  I hear it works quite well.  I\'d suppose that the only other option we have left is porting the application, which should envolve some extra work.\n\nPlease let me know how it goes.  ok?\n\n\nReinaldo.','',0,'gA==','1wikbg4c',1,0,'',299,0,0),(6713,1618,3,6,0,'82.61.28.82',1139406288,1,0,1,1,1,1,'','A question regarding TDialog','Antonio, what was the exact reason why you commented out the following statement from TDialog?\n\n// 28/06/05 AL\n// ::nResult:LostFocus()    // updates related variable\n\nEMG','',0,'gA==','2o1i47xb',1,0,'',6,0,0),(6714,1608,3,299,0,'69.65.88.121',1139407459,1,0,1,0,1,0,'','','This silence only tells me that, perhaps, my note is not clear enough.  So let me update the situation.\n\nI\'ve found that with this small change it almost works.[code:33pbgao0]\n	While nStart &lt; len&#40; cRtf &#41;\n		nLast &#58;= FindEndOfText&#40; cRtf, nStart &#41;\n		cLine &#58;= SubStr&#40; cRtf, nStart, nLast - nStart &#41;\n		&#58;&#58;oRtf&#58;SetSel&#40; nMax &#58;= at&#40; cLine, cText &#41;, Len&#40; cLine &#41; &#41;\n[/code:33pbgao0]\n\nWhich means that ::setsel() takes a parameter the point where to start and end using as reference the actual text with out the rtf code.  And this is why setsel() was not working for me.  \n\nReinaldo.\n\nReinaldo.','',0,'AIA=','33pbgao0',1,0,'',299,0,0),(6715,1606,6,228,0,'201.245.222.85',1139407607,1,0,1,1,1,1,'','Otra pregunta','Hola, marco como vas, no tiene nada que ver con la respuesta que esyas buscando, pero es que me gusto esa barra de harramientas que estas usando, sera que me puedes indicar como se hace o con que clase?','',0,'AIA=','10qi87q0',1,0,'',228,0,0),(6716,1608,3,6,0,'82.61.28.82',1139407674,1,0,1,1,1,1,'','','[quote=&quot;reinaldocrespo&quot;:29vtg2y5]This silence only tells me that, perhaps, my note is not clear enough.[/quote:29vtg2y5]\n\nNo, this silence loudly tells you that without a reduced and self-contained sample it is often practically impossible to help you. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','29vtg2y5',1,0,'',6,0,0),(6717,1606,6,43,0,'201.127.21.225',1139409621,1,0,1,1,1,0,'','','Hola Leandro\n\n   Utilizo tsbutton para crear la barra de herramientas.\n\n\nSaludos\n\n  Marco A. Delgado\n\n\npost. creo me voy a quedar igual con mi duda... mmm... <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','3bf814wj',1,0,'',43,0,0),(6718,1608,3,299,0,'69.65.88.121',1139410320,1,0,1,0,1,0,'','','Enrico;\n\nGood to see your answer.\nOk.  I take your point.\n\nLet\'s just rephrase the question.   First let\'s laid a couple of assumptions:\nWith: \n\n[code:7uqhy1xv]local cRtf	&#58;= RESaveAsRTF&#40; &#58;&#58;ortf&#58;hWnd, SF_RTF &#41;\nlocal cText  &#58;= ortf&#58;GetText&#40;&#41;\n[/code:7uqhy1xv]\n\nI have in cRtf all text together with all rtf tokens embedded.  And cText contains only the text.\n\nNow I want to select a piece of text that starts at nMin and ends at nMax in cRtf and the only way I know how is using ::setsel( nMin, nMax).  But the parameters expected by setsel() are in reference to cText not in cRtf.  Thus if use:\n[code:7uqhy1xv]\n&#58;&#58;oRtf&#58;SetSel&#40; nMin, nMax &#41;\n[/code:7uqhy1xv]\n\nI\'d get the wrong text selected and that is because nMin and nMax are points in cRtf not in cText.\n\nSo my question is: given start and end points in cRtf how can I select that piece?  (I intend to use ReGetCharFormat afterwards).  I\'m thinking that perhaps there is another way to select() using points that reference cRtf.\n\nAfter reading this and what I wrote before, I have to say; I made a mess the first time.  I appologize.  If you\'d still need a self contained sample, I\'ll gladly work it up and upload it.\n\nThank you,\n\nReinaldo.','',0,'AIA=','7uqhy1xv',1,0,'',299,0,0),(6719,1619,6,87,0,'83.45.250.32',1139410367,1,0,1,1,1,0,'','Hbzip  ?','Hola Grupo\n\n\n\n  Existe alguna forma de saber los ficheros que tienen un archivo zip  y guardarlos en en un array, pero sin llegar a descomprimir el archivo zip.\n\n\n Un saludo y gracias \n\n Gabriel','',0,'AIA=','2afb4a7e',1,0,'',87,0,0),(6720,1620,7,123,0,'81.39.239.66',1139411196,1,0,1,1,1,0,'','VALID para WINDOW','Antonio,\n\nSiguiendo un poco la conversación que hay en el foro inglés, creo que podría ser una \'medio-solución\' el que al definir una Window pudieras indicarle que no muestre la \'X\'.  Así, el control de salida sería forzosamente por programa.\n\n¿Como lo ves?\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2bpmiokn',1,0,'',123,0,0),(6721,1608,3,6,0,'82.61.28.82',1139411284,1,0,1,1,1,1,'','','Try with EM_EXSETSEL message instead of EM_SETSEL. From the MSDN:\n\n[quote:1ibrbwka]EM_EXSETSEL\nThe EM_EXSETSEL message selects a range of characters and/or COM objects in a rich edit control.\n\nTo send this message, call the SendMessage function with the following parameters. \n\nSendMessage( \n  (HWND) hWnd,              // handle to destination window \n  EM_EXSETSEL,              // message to send\n  (WPARAM) wParam,          // not used; must be zero\n  (LPARAM) lParam           // selection range (CHARRANGE *)\n);\nParameters\nwParam \nThis parameter is not used; it must be zero. \nlParam \nPointer to a CHARRANGE structure that specifies the selection range. \nReturn Values\nThe return value is the selection that is actually set. \n\nRequirements \n  Windows NT/2000/XP: Included in Windows NT 4.0 and later.\n  Windows 95/98/Me: Included in Windows 95 and later.\n  Header: Declared in Richedit.h.\n\nSee Also\nRich Edit Controls Overview, Rich Edit Messages[/quote:1ibrbwka]\n\nEMG','',0,'gA==','1ibrbwka',1,0,'',6,0,0),(6722,1621,22,61,0,'201.217.163.102',1139411413,1,0,1,1,1,0,'','Antonio - Build de Febrero 2006.','Estimado Maestro:\n\nSería posible incluir el el build de febero 2 cositas:\n\n1 - Un boton con get (tipo btnget)\n2 - los botones de Rossine (con imagenes en los 4 lados)\n     (tipo tsbutton)\n\nMuchas gracias Antonio.\n\nSaludos\nRuben Fernandez','',0,'gA==','1fa04u3j',1,0,'',61,0,0),(6723,1600,3,63,0,'80.37.102.128',1139412064,1,0,1,1,1,0,'','','James:\n\nThank you for your suggestion.  Problem solved.  The trick -in case it can be of use to anybody esle- is to use bMMoved() and bLClicked() together with DrawFocusRect() and call this last function twice: The first to erase the previous rectangle, the second to draw it in a sligtly different place.\n\nBest regards,\nRafael','',0,'gA==','2d2rmvl9',1,0,'',63,0,0),(6724,1602,6,63,0,'80.37.102.128',1139412243,1,0,1,1,1,0,'','Paco:  Problema resuelto','Paco:\nGracias por tu idea de utilizar DrawFocusRect().  Ya me funciona, simplemente utilizando bMMoved() y bLClicked().  El truco -si a alguien le sirve de algo- está en llamar dos veces a DrawFocusRect(): La primera para borrar el rectángulo anterior, la segunda para dibujar uno nuevo en unas coordenadas ligeramente distintas.\nUn saludo,\nRafael','',0,'gA==','un5smzmu',1,0,'',63,0,0),(6725,1585,20,49,0,'87.10.180.213',1139412445,1,0,1,1,1,0,'','','perchè non so come si faceva ....\ne poi penso che sia diverso il comando da office a office  ?\n\nadesso sto vedendo come fare per inserire nel testo ora e time ci dovrebbe essere la funzione dell\'edit control chiamata REGetDateTime() o qualcosa di simile ma non la trovo..mentre per i paragrafi ho rimediato..( margini,e allineamenti)\n\nVorresti marco lavorare con me per creare un RTFPAD ?','',0,'gA==','27fk5uf7',1,0,'',49,0,0),(6726,1610,20,49,0,'87.10.180.213',1139412556,1,0,1,1,1,0,'','','scusa come ho gia detto a Marco che la funzione dovrebbe se  ricordo bene , cioè avere il suffisso RE come REprint  ed essere REGetDateTime() o giù di li ma non riesco a trovarla dove puo\' essere ...?','',0,'gA==','10mgjnlb',1,0,'',49,0,0),(6727,1594,6,171,0,'24.147.25.226',1139412631,1,0,1,1,1,0,'','','Trata este codigo. A mi me funciona pero la barra del meter pasa tan rapido, si es que pasa, que no se nota nada en 250,000 registros\n\n// launch ADS\'s callback function\nadsRegCallBack( {|nPct| ;\n       oMeter:set( oMeter:nTotal * Int( nPct / 10000 ) ), ;\n       SysRefresh(), .F. } )  // return .F. is aborting not allowed\n\n// your indexing routine goes here\n  INDEX ON FIELD-&gt;TRAN_NO TAG iTraNo FOR .NOT. DELETED() ;\n  EVAL (oMeter:SET(recno()),oMeter:Refresh(), !lEnd) EVERY nTimes\n\n  oMeter:Set(Reccount())\n  oMeter:Refresh()\n  SysRefresh()\n\n// release ADS\'s callback function\nadsClrCallBack()','',0,'gA==','1k0pagei',1,0,'',171,0,0),(6728,1602,6,63,0,'80.37.102.128',1139413248,1,0,1,1,1,0,'','','Reinaldo:\nComo ver en mi post anterior, ya tengo mi problema resuelto.\nRespecto a tu pregunta, se me ocurren dos formas de obtener una subimagen de TImage():\n\n1.- Leyendo pixel a pixel el trozo que has seleccionado (con GetPixel()) y montandote tú la imagen.  El problema es construir las cabeceras y cola del archivo.  Total: Tan complicado, que no vale la pena ni intentarlo.\n\n2.- Utiliza nConvert.  Lo encuentras aquí:  [url:14ou5490]http&#58;//perso&#46;wanadoo&#46;fr/pierre&#46;g/xnview/en_nconvert&#46;html[/url:14ou5490].  En un programa excelente y gratuito para uso privado. Incluso si has de comprar una licencia -como yo hice- vale la pena.\n\nUna vez tienes las coordenadas de tu rectángulo (x1,y1,x2,x2), simplemente haz:\n[code:14ou5490]WaitRun&#40;\'nconvert -out bmp -crop \' + STR&#40;x1&#41; + STR&#40;y1&#41; + STR&#40;x2-x1+1&#41; + STR&#40;y2-y1+1&#41; + \'-quiet -o Recorte&#46;bmp &quot;FotoOrig&#46;bmp&quot;\', 0&#41;[/code:14ou5490]\ny ya está.\nYo te he puesto el ejemplo en formato Bmp, pero puedes trabajar en cualquier otro.\nUn saludo,\nRafael','',0,'EIA=','14ou5490',1,0,'',63,0,0),(6729,1610,20,6,0,'82.61.28.82',1139414605,1,0,1,1,1,1,'','','No, quella è una funzione che ha scritto Antonio e non la trovi certo documentata sulla MSDN.\n\nEMG','',0,'EIA=','3gexw50a',1,0,'',6,0,0),(6730,1622,6,439,0,'200.125.15.146',1139415520,1,0,1,1,1,0,'','librerías para Harbour y Clipper','Tengo problemas tratando de pasar una de mis aplicaciones de Clipper a Harbour.\n\nTengo algunas preguntas sobre las dll que utilizo en ellas, si son necesarias o no y si el haberlas usado al trabajar con Resource Workshop pueden ser las razones por las cuales me da error al tratar de abrir las ventanas, siempre el error es el mismo, no encuentra el recurso (la dialog para abrirla)\n\n1. Que es la dll COMMCTRL.dll que aparece en el directorio samples\nque me pide mi aplicación cuando la compilo, cosa que antes no necesitaba\nademás he notado que contiene unas dialogs que no estan en español, no\nse si hay versión en español o si no importa.\n\n2. Hay una versión de 32 bits o ya no es necesaria la dll Ctl3d.dll que usaba en FW.\n\n3. Yo usaba FwCtrls.dll con WorkShop y la necesitaba luego para que\nmis aplicaciones funcionaran, la necesito con FWH, debo pasarla a 32 bits?\n\n4. se menciona en la documentación de FWH la lib ace32.lib para el driver de advantage pero no la tengo en ninguno de mis directorios de FWH, ya no es necesaria o que? si no es necesaria, como hago para usar el driver.','',0,'EIA=','h4oh7mab',1,0,'',439,0,0),(6731,1623,6,81,0,'80.28.244.140',1139415674,1,0,1,1,1,0,'','Ultimos cambios en CVS de harbour','Antonio ya es posible bajarse los ultimos cambios del CVS y que sean compatibles con fivewin??\nComo ha quedado el tema??\nSaludos\nRafa','',0,'EIA=','an47jvpx',1,0,'',81,0,0),(6732,1600,3,303,0,'68.7.28.54',1139417238,1,0,1,1,1,0,'','','Glad to hear you got it working.','',0,'EIA=','dumgc3z0',1,0,'',303,0,0),(6733,1624,3,6,0,'82.61.28.82',1139417763,1,0,1,1,1,1,'','Little bug in TWBrowse','In the function wBrwLine() there are\n\nhOld   = SelectObject( hBrush )\n\nand\n\nSelectObject( hOld )\n\nwhile they should be\n\nhOld   = SelectObject( hDC, hBrush )\n\nand\n\nSelectObject( hDC, hOld )\n\nEMG','',0,'EIA=','kwr83xif',1,0,'',6,0,0),(6734,1625,7,123,0,'81.39.239.66',1139419243,1,0,1,1,1,0,'','ErrorSys y fichero log','Hola,\n\n¿Genera FWPPC un fichero .log o similar con la captura del error?\n\nEs que con el msginfo que muestra me quedo corto a la hora de depurar el programa.\n\nSaludos,\nJosé Luis Capel','',0,'EIA=','38e4nz2g',1,0,'',123,0,0),(6735,1608,3,299,0,'69.65.88.121',1139419425,1,0,1,0,1,0,'','','Enrico;\n\nMy rtf file is 676 bytes long.  The text obtain by ortf:gettext() is 202 bytes long.\n\nwhen I issue a EM_EXSETSEL message with cpmin set at any nuber above 202 it set is to 202.\n\nExample:\n\n[code:5alnhe9p]\n		RESetSelection&#40; &#58;&#58;ortf&#58;hWnd, nmin, len&#40; cLine &#41; &#41;\n[/code:5alnhe9p]\nWhere nmin is 300,\n[code:5alnhe9p]\n		REGetSelection&#40; &#58;&#58;oRtf&#58;hwnd, @nMin, @nMax &#41;\n[/code:5alnhe9p]\nwill set nmin to 202.\nBelow my ReGet and ReSel funcs.\n[code:5alnhe9p]\n//------------------------------------------------------------------------------------------------------------------------------\nHB_FUNC&#40; REGETSELECTION &#41;\n&#123;\n   CHARRANGE cr;\n\n   SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, EM_EXGETSEL, 0, &#40; LPARAM &#41; &amp;cr &#41;;\n\n   if&#40; hb_pcount&#40;&#41; &gt; 1 &#41;\n      hb_stornl&#40; cr&#46;cpMin, 2 &#41;;\n\n   if&#40; hb_pcount&#40;&#41; == 3 &#41;\n      hb_stornl&#40; cr&#46;cpMax, 3 &#41;;\n&#125;\n\n//------------------------------------------------------------------------------------------------------------------------------\nHB_FUNC&#40; RESETSELECTION &#41;\n&#123;\n   CHARRANGE cr;\n\n   cr&#46;cpMin = hb_parnl&#40; 2 &#41;;\n   cr&#46;cpMax = hb_parnl&#40; 3 &#41;;\n\n   SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, EM_EXSETSEL, 0, &#40; LPARAM &#41; &amp;cr &#41;;\n\n   hb_retni&#40; SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, EM_SCROLLCARET, 0, 0L &#41; &#41;;\n&#125;\n\n[/code:5alnhe9p]\nso obviously EM_EXSETSEL is working on plain text not on the actual rtf command embedded text. \n\nReinaldo.','',0,'AIA=','5alnhe9p',1,0,'',299,0,0),(6736,1622,6,132,0,'83.213.45.32',1139419806,1,0,1,1,1,1,'','Re: librerías para Harbour y Clipper','[quote=&quot;jose_murugosa&quot;:1rtyd33r]\nTengo algunas preguntas sobre las dll que utilizo en ellas, si son necesarias o no y si el haberlas usado al trabajar con Resource Workshop pueden ser las razones por las cuales me da error al tratar de abrir las ventanas, siempre el error es el mismo, no encuentra el recurso (la dialog para abrirla)\n\n2. Hay una versión de 32 bits o ya no es necesaria la dll Ctl3d.dll que usaba en FW.\n[/quote:1rtyd33r]\nLa dll CTL32D.DLL, no es necesaria\n\n[quote=&quot;jose_murugosa&quot;:1rtyd33r]\n3. Yo usaba FwCtrls.dll con WorkShop y la necesitaba luego para que\nmis aplicaciones funcionaran, la necesito con FWH, debo pasarla a 32 bits?\n[/quote:1rtyd33r]\nFWctrl.dll, no existe para 32 bits, te recomiendo que tu DLL de 16 bits, la conviertas en una RC, y que usando rc2dll32, la pases de 16 a 32 bits.\nUna vez hecho, pasa de Workshop, te dara problemas en 32 bits (por lo menos esa es mi experiencia) usa PellesC, funciona en 32 bits, y es muy facil de manejar.\n\n[quote=&quot;jose_murugosa&quot;:1rtyd33r]\n4. se menciona en la documentación de FWH la lib ace32.lib para el driver de advantage pero no la tengo en ninguno de mis directorios de FWH, ya no es necesaria o que? si no es necesaria, como hago para usar el driver\n[/quote:1rtyd33r]\nSi quieres usar Advantege, tienes que compilar la libreria ace32.lib, en mi version de FW 2.7, viene en la carpeta LIB, si no la tienes pidemela que te la envio.','',0,'gA==','1rtyd33r',1,0,'',132,0,0),(6737,1608,3,6,0,'82.61.28.82',1139419968,1,0,1,1,1,1,'','','Sorry, I ran out of ideas... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','26ucf12m',1,0,'',6,0,0),(6738,1619,6,132,0,'83.213.45.32',1139420072,1,0,1,1,1,1,'','HBZIP','cOrigen:=CURDRIVE()+\":\\\"+CURDIR()+\"VEN01.ZIP\"\nIF FILE(cOrigen)\n   aArchivo:=HB_GetFilesInZip(cOrigen)\nENDIF\n\nEspero que te sirva, crea un array con el nombre de los archivos que estan dentro del ZIP','',0,'gA==','7ed0h086',1,0,'',132,0,0),(6739,1626,6,132,0,'83.213.45.32',1139420620,1,0,1,1,1,1,'','OLE 32','¿Donde puedo conseguir la libreria OLE2.LIB para 32 bytes?\n\nEs para crear informes en Excel\n\nGracias de antemano.','',0,'gA==','1gdum22s',1,0,'',132,0,0),(6740,1627,2,438,0,'166.114.98.143',1139424130,1,0,1,1,1,0,'','Encontre el Error en TFOLDER y ahora como lo corrijo','Hola amigos del Foro:\n\nEncontre por que me ocurre el Error al activar TFolder en XP, lo que pasa es que utilizo este Folder para editar unas 15 variables de 120 caracteres, que sumados dan 1800 caracteres; en Win98 toda va bien, pero en XP da el error.\n\nTambien me da un error parecido al tratar de activar una ventana con DBEDIT, a la que le paso una cadena de mas de 80000 caracteres; lo cual no pasa en Win98. \nEs de hacer notar, tambien, que cuando utilizo el mismo programa con un MEMO de menos de 1000 caracteres no da error.\n\nComo hago para que FiveWin maneje Strings largos en XP, de un 30.000 caracteres, al momento de activar el dialogo. \nY digo al momento de Activar el Dialogo porque despues estos Campos MEMO (de 30.000 ) son procesados normalmente, sin problema.\n\nDe antemano gracias por la ayuda.','',0,'gA==','1v9pzlah',1,0,'',438,0,0),(6741,1104,2,265,0,'80.59.225.15',1139428031,1,0,1,1,1,0,'','','Bueno, ya lo he conseguido con PDFCreator, y modificando el registro de Windows para indicarle el directorio y el fichero que debe crear.\nAhora una pregunta:\nCuando imprimo un sólo documento (una factura), vale, no hay problemas, me crea un pdf con nº de factura, pero si le digo varias, sólo me graba la última.\nLo curioso es que si pincho en el icono de impresoras mientras se va imprimiendo, hay varios documentos en la cola de impresión, que son las facturas, pero a la hora de grabar, sólo me graba la última.\nHabrá que configurar la impresora pdf de alguna manera ?\nAyudita por favorrrrr\n\nUn saludo\n\n\nJose Luis','',0,'gA==','3pxpeoll',1,0,'',265,0,0),(6742,1626,6,255,0,'200.67.175.250',1139430680,1,0,1,1,1,1,'','','A que dir de email te la mando ?','',0,'gA==','26ohnpam',1,0,'',255,0,0),(6743,1549,7,433,0,'216.230.150.5',1139432192,1,0,1,1,1,0,'','','Señor Linares, espero no importunarlo con tantas dudas, pero otra de las dudas que tengo es [color=red:2zi6gxra][b:2zi6gxra]SI EN UN GRID SE PUEDEN COLOCAR COMBOBOX PROGRAMANDO EN FWPPC[/b:2zi6gxra][/color:2zi6gxra], es importante para la aplicacion que deseo desarrollar.\n\nGracias.\n\nSlds.','',0,'Qg==','2zi6gxra',1,0,'',433,0,0),(6744,1628,16,2,0,'87.218.146.163',1139432938,1,0,1,1,1,1,'','FTDN new February 2006 build / nuevo build de Febrero 2006','February 2006 build\n =============\n\nIMPORTANT: FWH has been build with the most recent Harbour/xHarbour CVS code. This FWH will not work with previous January Harbour/xHarbour builds!\n \n * Enhancement: GetCPU() function is properly working on new computers.\n \n * Enhancement: FiveWin for CA-Clipper (16 bits) no longer needs COMMCTRL.DLL. If you plan to use ImageLists, then you should have it available, though the EXE will start normally even if it is not present.\n   \n * New: Class TWindow DATA nExStyle. It is automatically managed to use extended styles. Actually it is used from Class TGet and Class TMultiGet to properly manage borders when using XP themes.\n   \n * Enhancement: Class TImage has been modified to use FreeImage.dll (<!-- m --><a class=\"postlink\" href=\"http://freeimage.sourceforge.net\">http://freeimage.sourceforge.net</a><!-- m -->) instead of nview*.dll. You may review samples\\TestImg.prg to review that the sample source code is the same but now it properly works with many different graphics formats and without errors. The sample has been improved to stretch or not the image and to save it to disk. Many thanks to Enrico for his great help.\n   \n   Simply change nview*.dll into freeimage.dll in your apps, and everything may work as expected. You don\'t need to make any source code changes in your application.\n\n * New: Class TButtonBmp Method Enable() and Disable(), now invoke ::Refresh() automatically.\n    \n * New: More Shell Common dialogs and functions: \n \n   SHExitWindows( hWnd )\n \n   It is the dialog when you select Shut Down from the Start menu. There is no return value for the function, so you have no way of knowing what the user selected or whether the operativon was canceled.\n \n   Parameter: hWnd. Dialog or window handle.\n \n   SHRestartWindows( hWnd )\n \n   It is the dialog when changes are made to the system that require a shutdown or restart before they can take effect. The return value is IDYES if the user choose to perform the shutdown. It is IDNO if the operation was canceled.\n \n   Parameter: hWnd. Dialog or window handle.\n \n   SHAbout( hWnd, cApp, cText, hIcon )\n \n   It is the standard dialog \"About\".\n \n   Parameters:\n \n   hWnd. Dialog or window handle.\n   cApp. Text that the function displays in the title bar of the Shell About dialog box.\n   cText. Text that the function displays in the dialog box after the version and copyright informacion.\n   hIcon. Identifies the handle of an icon that the function displays in the dialog box.\n \n   SHFileProperty( hWnd, cFile )\n \n   It is the standard dialog \"File properties\".\n \n   Parameters:\n \n   hWnd. Dialog or window handle.\n   cFile. Name of the file.\n \n   SHPrnProperty( hWnd, cPrinter )\n \n   It is the standard dialog \"Printer properties\".\n \n   Parameters:\n \n   hWnd. Dialog or window handle.\n   cPrinter. Name of the printer.\n \n   Please review samples\\shtest.prg\n \n * New: Class TGet DATA bPostKey. It lets you evaluate a codeblock after a keystroke has been pressed and the GET buffer has changed. You may review samples\\TestGet6.prg for a working sample.\n   \n * Enhancement: FWPPC, Class TGet using READONLY clause shows normal colors, not disabled ones, and the window color as the background color.\n   \n * Fix: FWPPC, Class TBitmap properly displays transparent bitmaps. Please review samples\\TestBmp.prg  \n     \n * Fix: POPUP menus where not properly disabling menuitems with WHEN .f.. Now it is ok.\n \n * Fix: Class TCBrowse, colors management minor fix. DATA aActions support. Please review samples\\Enrico.prg\n \n * Fix: Class TControl, VK_ESCAPE management moved from Method KeyChar() to Method KeyDown().\n\n * New: Function TimeZone() to return the local timezone.\n \n * Enhancement: Class TBitmap minor fix when painting transparent on windows and mdi windows.\n   \n * New: Class TActiveX Method Redefine(). Please review samples\\WebExp2.prg working sample. New REDEFINE ACTIVEX ... command.\n   \n * Fix: MsgInfo() and Msg... functions were not properly displaying 32 bits longs (numbers). Now it is ok.\n \n * Enhancement: cWinVersion() now also detects Windows Vista. Better support for Windows Millenium detection. New IsWinVista() function.\n        \n * New: FWPPC, new Class TProgress (Win32 Progress Bars support). \n   Please review samples\\TestProg.prg\n   \n * Enhancement: Class TImageList Method ReadBitmap( cFileName, nWidth, nImages, nClrTransparent ) lets you create an imagelist with a single bitmap that contains multiple images of nWidth each one.\n   \n * Enhancement: Minor fix on cGetFile() to avoid readonly selection by default.\n \n * Fix: Minor fix on GetDlgItem() to support negative IDs.\n \n * Enhancement: Class TProgress minor changes.\n \n * Fix: Class TWindow Method SetBrush() was not increasing the brush nCount DATA.\n \n * New: DialogBoxes transparency. Now you can use your own bitmaps as the background of your dialogboxes and the controls will look transparent over it. To use it is as simple as this:\n   \n   DEFINE BRUSH oBrush RESCOURCE \"Sky\"  // name of a bitmap from resources\n   \n   DEFINE DIALOG oDlg RESOURCE \"Test\" BRUSH oBrush transparent\n   \n   ...\n   \n   You may review samples\\TestFldB.prg for a working sample with folders.\n   \n * Fix: checkboxes and radiobuttons on XP themed folders were not properly showing themed dotted line on focus gain and lost. Now it is ok. \n \n * Enhancement: Class TBitmap now properly support ADJUST and TRANSPARENT clauses together.\n \n * Fix: Class TFolder Method KeyDown() has been removed.\n \n * New: Class TMci Method PlayFull() to reproduce in full screen. Also added to Class TVideo. Thanks to Enrico. \n \n * Fix: Class Menu checked items don\'t look inset. Thanks to Enrico.\n \n * Enhancement: Class TListBox properly process VK_RETURN. Thanks to Enrico.\n \n * Enhancement: Better default colors use in Mdi windows. Improvements on the icons use. Thanks to Enrico.','',0,'Qg==','ifc02p59',1,0,'',2,0,0),(6745,1629,3,2,0,'87.218.146.163',1139433136,1,0,1,1,1,1,'','New FWH 2.7 February build','The new FWH 2.7 February build is ready to be downloaded.\n\nPlease review the whatsnew section on these forums for all the new features.','',0,'Qg==','19yozrr9',1,0,'',2,0,0),(6746,1630,6,2,0,'87.218.146.163',1139433404,1,0,1,1,1,1,'','Nuevo FWH 2.7 build de Febrero','Ya está disponible el nuevo build de Febrero de FWH 2.7.\n\nEn la sección \"whatsnew / Novedades\" de estos foros podeis encontrar la lista de novedades.','',0,'Qg==','2fi775zp',1,0,'',2,0,0),(6747,1623,6,2,0,'87.218.146.163',1139433469,1,0,1,1,1,1,'','','Rafa,\n\nAcabamos de publicar un nuevo build de FWH que es compatible con los nuevos cambios en Harbour y xHarbour. Todo ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Qg==','3pffar2y',1,0,'',2,0,0),(6748,1609,6,2,0,'87.218.146.163',1139433852,1,0,1,1,1,1,'','','Enrique,\n\nPara editar las cajas de diálogo tienes que pulsar este botón:\n\n[url=http&#58;//imageshack&#46;us:3cgk18sg][img:3cgk18sg]http&#58;//img277&#46;imageshack&#46;us/img277/2568/res5ev&#46;png[/img:3cgk18sg][/url:3cgk18sg]','',0,'GA==','3cgk18sg',1,0,'',2,0,0),(6749,1601,4,2,0,'87.218.146.163',1139433963,1,0,1,1,1,1,'','','GWard,\n\nWe can not say when we may get it. In the meantime you may use a dialog if you need a VALID for it.','',0,'GA==','m42cgrhc',1,0,'',2,0,0),(6750,1617,11,2,0,'87.218.146.163',1139434351,1,0,1,1,1,1,'','','Alan,\n\nUnfortunately it seems there is very little interest in Linux development. \n\nWe practically have not modified it as there hasn\'t been users requests and we have very few users so we can not invest time and work on it. \n\nFiveLinux works quite fine, and we enjoy Linux very much (same as we enjoy Windows and Mac OSX) but the market decides the way to go.\n\nYou can easily modify the build.sh we provide to support more than one file. And the debugger has been greatly improved in Harbour in the past months.','',0,'GA==','1pwwwzhn',1,0,'',2,0,0),(6751,1608,3,2,0,'87.218.146.163',1139434439,1,0,1,1,1,1,'','','Reinaldo,\n\nWe plan to publish richedit printing in next March build.','',0,'GA==','m1kspfi4',1,0,'',2,0,0),(6752,1611,3,2,0,'87.218.146.163',1139434575,1,0,1,1,1,1,'','','Luis,\n\nAs we have commented you by private email, we are going to improve CheckRes() for a better resources management control.','',0,'GA==','12pjm91e',1,0,'',2,0,0),(6753,1604,3,2,0,'87.218.146.163',1139434626,1,0,1,1,1,1,'','','Yes, they are little different.','',0,'GA==','3sc6fwf9',1,0,'',2,0,0),(6754,1549,7,2,0,'87.218.146.163',1139434730,1,0,1,1,1,1,'','','No, los browses no admiten comboboxes de forma estandard, aunque es posible crear uno que sea hijo (OF oBrw) de él y así poder usarlo encima de él.','',0,'GA==','1rai5zw1',1,0,'',2,0,0),(6755,1625,7,2,0,'87.218.146.163',1139434775,1,0,1,1,1,1,'','','Jose Luis,\n\nNo, de momento no lo genera. Lo vamos a implementar.','',0,'GA==','cmnolas3',1,0,'',2,0,0),(6756,1606,6,43,0,'201.127.21.225',1139434819,1,0,1,1,1,0,'','','Antonio\n\n   por lo visto no hay solucion para este problema o es problema de los splitters, bueno gracias de todas formas.  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\n\nSaludos\n\n  Marco A. Delgado.','',0,'GA==','3b3zvhvo',1,0,'',43,0,0),(6757,1597,7,2,0,'87.218.146.163',1139434827,1,0,1,1,1,1,'','','<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','3q33j0we',1,0,'',2,0,0),(6758,1602,6,28,0,'87.218.46.218',1139434861,1,0,1,1,1,0,'','','Hola Rafael. \n\nCualquier método es bueno si consigues tu meta pero es un poco matar moscas a cañonazos.\n\nA ver que te parece esto:\n\n[code:2zx7tkcx]\n\nfunction CopiaRect&#40; oWnd, aRect &#41;\n\nlocal hBmp &#58;= WndCopy4&#40; oWnd&#58;hWnd, aRect &#41;\nDibWrite&#40; &quot;screen&#46;bmp&quot;, DibFromBitmap&#40; hBmp &#41; &#41;\nDeleteObject&#40; hBmp &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; WNDCOPY4 &#41;  \n&#123;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   HDC  hDC  = GetWindowDC&#40; hWnd &#41;;\n   int x = hb_parni&#40; 2, 2 &#41;+1;\n   int y = hb_parni&#40; 2, 1 &#41;+1;\n   int cx = hb_parni&#40; 2, 4 &#41; - x-2;\n   int cy = hb_parni&#40; 2, 3 &#41; - y-2;\n   HDC  hMemDC;\n\n   HBITMAP hBitmap, hOldBmp;\n   hMemDC  = CreateCompatibleDC&#40; hDC &#41;;\n\n   hBitmap = CreateCompatibleBitmap&#40; hDC, cx, cy &#41;;\n   hOldBmp = &#40; HBITMAP &#41; SelectObject&#40; hMemDC, hBitmap &#41;;\n\n   StretchBlt&#40;hMemDC, 0, 0, cx, cy, hDC, x, y,cx, cy,  SRCCOPY &#41;;\n\n   SelectObject&#40; hMemDC, hOldBmp &#41;;\n   DeleteDC&#40; hMemDC &#41;;\n\n   ReleaseDC&#40; hWnd, hDC &#41;;\n   hb_retnl&#40; &#40;LONG &#41; hBitmap &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:2zx7tkcx]\n\nUn saludo','',0,'AIA=','2zx7tkcx',1,0,'',28,0,0),(6759,1620,7,2,0,'87.218.146.163',1139435005,1,0,1,1,1,1,'','','Jose Luis,\n\nEs una buena idea, pero si no me equivoco Pocket PC pone la X automaticamente. Habrá que buscar una función de las del shell SH... que quite la X.','',0,'AIA=','2a4qkwr4',1,0,'',2,0,0),(6760,1549,7,433,0,'216.230.150.5',1139435378,1,0,1,1,1,0,'','','Gracias, pero la funcion seria la misma. es decir que si me saca del apuro , esto lo quiero para hacer una especie de consulta y asi seleccionar el campo que quiero en una determinada columna.\n\nSlds\n\nKerwin.','',0,'AIA=','2bcvta6q',1,0,'',433,0,0),(6761,1602,6,63,0,'80.37.102.128',1139435433,1,0,1,1,1,0,'','','Paco:\nLo probaré. Desde luego, estoy de acuerdo en que es mucho más elegante que lo de nConvert.  \nAhora bien, yo no suelo utilizar Bmps sino Tiff y Jpg.  ¿Te parece que sería posible algo semejante para esos formatos?\nRafael','',0,'AIA=','w7vusfn9',1,0,'',63,0,0),(6762,1608,3,299,0,'69.65.88.121',1139435499,1,0,1,0,1,0,'','','Antonio;\n\nHi.\n\nGlad to hear the news.  I\'ll be waiting in line to place the order for March build.  :-)\n\n\nBTW -- with it, I\'ll be able to print rtf data to a region of an already opened tprinter object.  Right?\n\n\nReinaldo.','',0,'AIA=','167yu4fd',1,0,'',299,0,0),(6764,1610,20,49,0,'87.7.180.103',1139437263,1,0,1,1,1,0,'','','ok e dove la trovo ?','',0,'AIA=','oo8wsa7j',1,0,'',49,0,0),(6765,1631,4,262,0,'83.97.168.83',1139438036,1,0,1,1,1,1,'','Terminateprocess for pocket?','one sample code please !\n\n[code:3nda4963]\n\nHB_FUNC &#40;MATAPRG&#41;\n&#123;\n   HWND hWnd;\n   BOOL lRet = FALSE;\n\n   hWnd = FindWindow &#40;NULL, L&quot;nPOP&quot; &#41;;\n   if &#40;hWnd&#41;\n   &#123;\n     TerminateProcess&#40;hWnd, 0&#41;;\n    // PostMessage&#40;hWnd ,WM_SYSCOMMAND,WM_DESTROY,0&#41;;\n   lRet = TRUE;\n   &#125;\n   hb_retl &#40;lRet&#41;;\n&#125;\n\n\n[/code:3nda4963]\n\nthis does not work.','',0,'AIA=','3nda4963',1,0,'',262,0,0),(6766,1632,3,446,0,'87.3.226.229',1139438617,1,0,1,1,1,0,'','TOTAL ON command','I found a bug in function __dbtotal (TOTAL ON ...) if the source file contains a memo field. I don\'t know why but the memo fields are cutted off from the target database causing a \"data type error\".\n\nhere the modification I made to the source code (dbtotal.prg) from xHarbour (version 0.99.50) at line 128\n\n    CurSelect    := SELECT()\n    // r.c. mod: includes memo fields also - 08/02/2006\n    /*\n    aNewDbStruct := {}\n    Aeval( Dbstruct(), { | _1 | Iif( _1[ 2 ] == \"M\", NIL, Aadd( aNewDbStruct, _1 ) ) } )\n    IF ( Empty( aNewDbStruct ) )\n        RETURN ( .F. )\n    ENDIF\n    */\n    aNewDbStruct := DbStruct()\n\n\nNow it works for me. Hope it can be useful\nRoberto','',0,'','2ad6u57m',1,0,'',446,0,0),(6767,1529,6,331,0,'201.154.164.104',1139439435,1,0,1,1,1,0,'','Como poder hacer lo siguiente:','Saludos.\n\nPublic Declare Function RegMsCom32 Lib \"MsComm32.OCX\" Alias \"DllRegisterServer\" () As Long\n\ncomo puedo hacer lo anterior desde fivewin, este codigo esta en Visual Basic.\n\ngracias por el apoyo.\n\nArturo.','',0,'','2xjt95x9',1,0,'',331,0,0),(6768,1606,6,43,0,'201.127.21.225',1139440199,1,0,1,1,1,0,'','','Hola Oskar\n\n   Estoy usando el xbrowse que trae el fwh 2.6, y no funciona.. <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nSaludos\n   Marco A. Delgado.','',0,'','23titx09',1,0,'',43,0,0),(6770,1628,16,2,0,'87.218.146.163',1139441217,1,0,1,1,1,1,'','','Construcción Febrero 2006\n ===================\n\n IMPORTANTE: FWH ha sido construido con el código más reciente del CVS de Harbour/xHarbour. Este FWH no funcionará con la construcción de Enero de Harbour/xHarbour.\n\n * Mejora: La función GetCPU() funciona correctamente con los equipos más recientes.\n\n * Mejora: Fivewin para CA-Clipper (16 bits) ya no necesita COMMCTRL.DLL. Si piensas usar una \"lista de imágenes\", entonces deberías tenerlo disponible, aunque el EXE comenzará normalmente incluso si no está presente.\n\n * Nuevo: En la clase TWindow la DATA nExStyle. Es automáticamente manejada para usar estilos extendidos. Actualmente es usada en las clases TGet y TMultiGet para el manejo correcto de los bordes cuando se usan temas XP.\n\n * Mejora: La clase TImage ha sido modificada para usar FreeImage.dll (<!-- m --><a class=\"postlink\" href=\"http://freeimage.sourceforge.net\">http://freeimage.sourceforge.net</a><!-- m -->) en lugar de nview*.dll. Debes revisar samples\\TestImg.prg para ver que el código fuente es el mismo, pero\nahora funciona con muchos formatos gráficos y sin errores. El ejemplo ha sido mejorado para ampliar o no la imagen y grabarla a disco. Muchas gracias a Enrico por su gran ayuda.\n\nSimplemente cambia nview*dll por freeimage.dll en tus aplicaciones, y todo funcionará como esperas. No necesitas hacer ningún cambio en el código de tus aplicaciones.\n\n * Nuevo: Los métodos Enable() y Disable() de la clase TButtonBmp, ahora llaman automáticamente a ::Refresh().\n\n * Nuevo: Más diálogos y funciones de Sistema:\n\n   SHExitWindows( hWnd )\n\n   Es el diálogo que aparece cuando seleccionas Apagar desde el menú Inicio. La función no devuelve ningún valor, así que no tienes ninguna manera de saber lo que el usuario seleccionó si se cancela el Sistema Operativo.\n\n   Parámetro: hWnd. Manejador del diálogo o de la ventana.\n\n   SHRestartWindows( hWnd )\n\n   Es el diálogo que aparece cuando se hacen cambios al \"Sistema\" y este necesita un apagado o un reinicio antes de que los cambios tengan efecto. El valor de retorno es IDYES si el usuario elige realizar la parada del \"Sistema\". El valor devuelto será IDNO si se cancela la operación.\n\n   Parámetro: hWnd. Manejador del diálogo o de la ventana.\n\n   SHAbout( hWnd, cApp, cText, hIcon )\n\n   Es el diálogo estandard \"About\".\n\n   Parámetros:\n\n   hWnd. Manejador del diálogo o de la ventana.\n\n   cApp. Es el texto que la función mostrará en la barra de título de la caja de diálogo \"About\".\n\n   cTest. Es el texto que la función mostrará en la caja de diálogo después de la \"versión\" y de la \"información de copyright\".\n\n   hIcon. Identifica el manejador del icono que la función muestra en la caja de diálogo.\n\n   SHFileProperty( hWnd, cFile )\n\n   Es el diálogo estandard \"Propiedades de ficheros\"\n\n   Parámetros:\n\n   hWnd. Manejador del diálogo o de la ventana.\n\n   cFile. Nombre del fichero.\n\n   SHPrnProperty( hWnd, cPrinter )\n\n   Es el diálogo estandard \"Propiedades de impresora\"\n\n   Parámetros:\n\n   hWnd. Manejador del diálogo o de la ventana.\n\n   cPrinter. Nombre de laimpresora.\n\n   Por favor revisa el ejmplo samples\\shtest.prg\n\n * Nuevo: DATA bPostKey en la clase TGet. Te permite evaluar un bloque de código después de la pulsación de una tecla y el \"buffer\" del GET ha cambiado. Debes revisar el ejemplo samples\\TestGet6.prg para un ejemplo funcionando.\n\n * Mejora: FWPPC. La clase TGet usando la clausula READONLY muestra los colores normales, no inhabilitados, y el color de la ventana como el color de fondo.\n\n * Corrección: FWPPC. La clase TBitmap muestra correctamente los \"bitmaps transparentes\". Por favor revisa el ejemplo samples\\TestBmp.prg\n\n * Corrección: Los menús POPUP no deshabilitaban las opciones con WHEN .f.. Ahora funciona correctamente.\n\n * Corrección: Cambios menores en el manejo de colores en la clase TCBrowse. Soporte para la DATA aActions. Por favor, revisa el ejemplo samples\\Enrico.prg\n\n * Corrección: En la clase TControl, el manejo de VK_ESCAPE se ha movido del método KeyChar() al método KeyDown().\n\n * Nuevo: Función TimeZone() para devolver la \"zona de tiempo\" local.\n\n * Mejora: Correcciones menores en la clase TBitmap al pintar transparencias e vantanas y ventanas mdi.\n\n * Nuevo: Método Redefine() en la clase TActiveX. Por favor, revisa el ejemplo samples\\WebExp2.prg, para un ejemplo funcionando. Comando nuevo REDEFINE ACTIVEX ...\n\n * Corrección: La función MsgInfo() y las funciones Msg no mostraban correctamente los números de 32 bits. Ahora funcionan correctamente.\n\n * Mejora: La función cWinVersión() ahora detecta Windows Vista. Mejor soporte para la detección de Windows Millenium. Nueva función IsWinVista().\n\n * Nuevo: FWPPC. Nueva clase TProgress( Soporte para las barras de progreso Win32). Por favor, revisa el ejemplo samples\\TestProg.prg\n\n * Mejora: En la clase TImageList el método ReadBitmap( cFileName, nWidth, nImages, nClrTransparent ) te permite crear una \"lista de imágenes\" con un único bitmap que contiene multiples imagenes de ancho nWidth cada una.\n\n * Mejora: Correcciones menores en la función cGetFile() para evitar selecciones de solo lectura por defecto.\n\n * Corrección: Correcciones menores en la función GetDlgItem() para soportar IDs negativos.\n\n * Mejora: Cambios menores en la clase TProgress.\n\n * Corrección: El método SetBrush() de la clase TWindow no incrementaba la DATA nCount.\n\n * Nuevo: Cajas de diálogos transparentes. Ahora puedes usar tus propios Bitmaps como fondos de tus cajas de diálogos y los controles parecerán transparentes sobre ellos.\n\nSu uso es tan simple como:\n\nDEFINE BRUSH oBrush RESCOURCE \"Sky\"  // nombre del bitmap en los recursos\n\nDEFINE DIALOG oDlg RESOURCE \"Test\" BRUSH oBrush transparent\n\n...\n\nRevisa el ejemplo samples\\TestFldB.prg para un ejemplo funcionando con carpetas.\n\n * Corrección: Checkboxes y radiobuttons en carpetas con temas XP no mostraban correctamente la linea de puntos al ganar y perder el foco. Ahora lo hacen correctamente.\n\n * Mejora: La clase TBitmap soporta correctamente las clausulas ADJUST y TRANSPARENT juntas.\n\n * Corrección: El método KeyDown() de la clase TFolder se ha eliminado.\n \n * Nuevo: Método PlayFull() en la clase TMci, para reproducir a pantalla completa. También añadido a la clase TVideo. Gracias a Enrico.\n\n * Fix: Los items marcados (checked) de la Clase TMenu no se ven hundidos. Thanks to Enrico.\n \n * Mejora: La clase TListBox procesa correctamente VK_RETURN. Gracias a Enrico.\n \n * Mejora: Mejor uso de los colores por defecto en ventanas MDI. Mejoras en el uso de iconos. Gracias a Enrico.','',0,'','50gia3i6',1,0,'',2,0,0),(6771,1621,22,2,0,'87.218.146.163',1139441334,1,0,1,1,1,1,'','','Ruben,\n\nNo nos ha dado tiempo a más, pero lo haremos para Marzo. Lo tenemos previsto. Gracias.','',0,'','2dmzeyz3',1,0,'',2,0,0),(6772,1630,6,2,0,'87.218.146.163',1139441410,1,0,1,1,1,1,'','','Ya teneis la traducción al español de la lista de novedades del build de Febrero. Revisad la sección \"whatsnew/novedades\". Gracias.','',0,'','kbj61gn3',1,0,'',2,0,0),(6773,1608,3,2,0,'87.218.146.163',1139441452,1,0,1,1,1,1,'','','Reinaldo,\n\nYes','',0,'','1khii3pw',1,0,'',2,0,0),(6775,1621,22,61,0,'201.217.166.234',1139444070,1,0,1,1,1,0,'','','GRACIAS MESTROOOOOOOOOO\n\nCordiales Saludos\n\nRuben Fernandez','',0,'','1wapr9zg',1,0,'',61,0,0),(6776,1609,6,37,0,'200.121.244.79',1139445637,1,0,1,1,1,0,'','','Antonio, gracias','',0,'','3d3hhd45',1,0,'',37,0,0),(6777,1634,3,195,0,'62.38.78.155',1139446403,1,0,1,1,1,0,'','Unresolved External Symbol _hb_dynsymSymbol','Hello FiveWiners\n\nHow to solve this situation ?  Any help would be apreciate.\n\nSystem  FWH February 2006 Builb  - xHarbour commercial xBuilder February 2006 release.\n\nMany Thanks\nGreetings\nDionisis','',0,'','rxy9iwfo',1,0,'',195,0,0),(6778,1169,1,379,0,'59.167.105.131',1139450846,1,0,1,1,1,0,'','Frustrated','For some reason it just will not work for me. Is the Lib there and for free? If so could someone download it and forward same to me <!-- e --><a href=\"mailto:grumpy@internode.on.net\">grumpy@internode.on.net</a><!-- e --> or give me Tom\'s email address for contact. \n\nThanks in Advance. \nCheers \nGerry','',0,'','1e26pilt',1,0,'',379,0,0),(6780,1634,3,67,0,'62.235.24.183',1139469111,1,0,1,1,1,0,'','','I downloaded the new version from fw and tryed it on a sample :\n\nxLINK: error: Unresolved external symbol \'_hb_dynsymSymbol\'.\n\nxLINK: fatal error: 1 unresolved external(s). \n\nFrank','',0,'','dl0dxewh',1,0,'',67,0,0),(6781,1634,3,195,0,'62.38.78.155',1139469764,1,0,1,1,1,0,'','','Hi Antonio\n\nAs Frank say\'s trying to link one of the samples  not only  my application . I faced out  the same error.\n\nTIA\nDionisis','',0,'','1oaiob3e',1,0,'',195,0,0),(6782,1634,3,6,0,'87.6.213.82',1139470258,1,0,1,1,1,1,'','','You must use the provided Harbour or xHarbour, as far as I know.\n\nEMG','',0,'','125nujvg',1,0,'',6,0,0),(6783,1608,3,2,0,'87.218.146.30',1139470468,1,0,1,1,1,1,'','','Reinaldo,\n\nYes,','',0,'','8g5bi0ui',1,0,'',2,0,0),(6784,1632,3,6,0,'87.6.213.82',1139470488,1,0,1,1,1,1,'','Re: TOTAL ON command','Can you try with latest xHarbour from CVS?\n\nEMG','',0,'','1sxf57zv',1,0,'',6,0,0),(6785,1610,20,6,0,'87.6.213.82',1139470578,1,0,1,1,1,1,'','','Devi chiedere ad Antonio. I sorgenti non ci sono. E non è (ancora) documentata.\n\nEMG','',0,'','16woce6b',1,0,'',6,0,0),(6786,1529,6,2,0,'87.218.146.30',1139470617,1,0,1,1,1,1,'','','Arturo,\n\nPrimero prueba a registrarlo desde una ventana de consola:\n\nregsvr32 mscomm32.ocx \n\nEn nuestras pruebas mscomm32.ocx no se inicializa, y sin usar FWH, sólo usando oleview de Microsoft. Algo le falta, pero no sabemos lo que es.\n\nParece que si no tienes Visual Basic instalado no te deja usarlo.','',0,'','18dvgo1u',1,0,'',2,0,0),(6787,1635,6,132,0,'83.213.45.32',1139472014,1,0,1,1,1,1,'','Numeros aleatorios','Existe alguna funcion de FW, que devuelva numeros aleatorios, como el antigua RANDOMIZE de BASIC.\n\nGracias de antemano','',0,'','3lwrxnlc',1,0,'',132,0,0),(6788,1634,3,195,0,'62.38.104.128',1139472715,1,0,1,1,1,0,'','','Hi Enrico\n\nNo because  I use the comercial version of xHarbour compiler. And with FWH January build i diden\'t faced any  problems at all. Also i dident  faced any problems with last week\'s Antonios Beta Testing LIBS . I am afread that is more in depth issue.\n\nGreetings\nDionisis','',0,'','bthkrcel',1,0,'',195,0,0),(6789,1634,3,67,0,'62.235.24.183',1139473744,1,0,1,1,1,0,'','','Hello,\n\nIt seems that to vm.lib a module dynsym.c is changed , it is visible on cvs\n\nI am afraid that we have to wait on e new release from xhb.\n\nIn changelog :\n\n* xharbour/contrib/rdd_ads/adsmgmnt.c\n    * rewritten ADSMGGETUSERNAMES() - now it does not access any item\n      internals, is safe for future automatic GC activation and is faster\n      because array resizing has been eliminated.\n      I cannot test it so I\'d like to ask Luiz to check this function\n      for some possible typos.\n\n  * xharbour/include/hbapi.h\n  * xharbour/source/vm/dynsym.c\n    + added hb_dynsymSymbol()','',0,'','1jpzhevh',1,0,'',67,0,0),(6790,1635,6,54,0,'201.135.253.152',1139474293,1,0,1,1,1,1,'','Re: Numeros aleatorios','[quote=&quot;txon&quot;:17uai39g]Existe alguna funcion de FW, que devuelva numeros aleatorios, como el antigua RANDOMIZE de BASIC.\n\nGracias de antemano[/quote:17uai39g]\n\nEn xHarbour\n\nHB_RANDOM( [&lt;MinLimit&gt;,] [&lt;MaxLimit&gt;] ) ==&gt; nRandomNumber\n\nEspero te sirva.','',0,'gA==','17uai39g',1,0,'',54,0,0),(6791,1636,6,54,0,'201.135.253.152',1139474390,1,0,1,1,1,1,'','xBrowse desde Dialogos y recursos','Hola,\n\nAlguien tendrá un ejemplo de xBrowse en recursos usando arreglos.\n\nSaludos y gracias de antemano.','',0,'gA==','2sqxd8wy',1,0,'',54,0,0),(6792,1602,6,28,0,'213.27.201.254',1139474449,1,0,1,1,1,0,'','','Pues si mire \"uste\"  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nResulta que Antonio Linares se ha decidido a dar el paso de \"adoptar\" Freeimage para mostrar imágenes. La forma de convertir a otro formato es:\n\n[code:kg1ujvrf]\n\nFunction SaveImage&#40; cFile, nFormat, nFlag &#41; \n   \n   local lOk\n   local hDib\n\n\n   //   0 -&gt; Bmp\n   //   2 -&gt; Jpg\n   //  13 -&gt; Png\n\n\n\n   DEFAULT nFormat   &#58;= fiGetFileType&#40; cFile, 0 &#41;\n\n\n   hDib    &#58;= fiLoad&#40; nFormat, cFile, 0 &#41;\n\n   if hDib == 0\n      MsgStop&#40; &quot;No image loaded&quot; &#41;\n      return nil\n   endif\n\n   lOk &#58;= fiSave&#40; nFormat, hDib, cFile, nFlag &#41;\n\n   if !lOk\n      MsgInfo&#40; &quot;Can\'t not save file&quot; &#41;\n   endif\n\nreturn Nil\n\n\nDLL32 STATIC FUNCTION FILOAD&#40; nFormat AS LONG, cFileName AS LPSTR,nFlags AS LONG &#41; AS LONG;\nPASCAL FROM &quot;_FreeImage_Load@12&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETFILETYPE&#40; cFileName AS LPSTR, nSize AS LONG &#41;AS LONG;\nPASCAL FROM &quot;_FreeImage_GetFileType@8&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FISAVE&#40; nFormat AS LONG, hDib AS LONG, cFileName AS LPSTR, nFlags AS LONG &#41; AS BOOL;\nPASCAL FROM &quot;_FreeImage_Save@16&quot; LIB hLib\n\n[/code:kg1ujvrf]\n\n\nPues mas o menos es esto. Parte la he sacado de una contribución que hizo Rafa Carmona. (Saludos Rafacarmona)\n\nUn saludo\n\n[url:kg1ujvrf]http&#58;//www&#46;google&#46;es/search?hl=es&amp;q=freeimage&amp;meta=[/url:kg1ujvrf]','',0,'EIA=','kg1ujvrf',1,0,'',28,0,0),(6793,1602,6,63,0,'80.37.102.128',1139474986,1,0,1,1,1,0,'','','Paco:\nPues no tenía ni idea de que pudiera ser tan fácil... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   \nMe miraré la documentación que encuentre del FreeImage a ver qué otras maravillas salen por ahí.\nMuchíiisimas gracias, Paco!\nRafael','',0,'EIA=','1cjee6c4',1,0,'',63,0,0),(6794,1610,20,1,0,'213.82.134.66',1139475949,1,0,1,1,1,0,'fasi','','Non ci sono i sorgenti ?\nE\' un\'immane  cavolata ...? \n.... e se volessi ricompilare le librerie di fw  per una nuova versione di xharbour ( pcode cambiato) come farei ?\n\nVedi che cò non è possibile  c\'è qualcosa ke ci sfugge....','',0,'EIA=','7uhst2fc',1,0,'',1,0,0),(6795,1608,3,49,0,'213.82.134.66',1139476150,1,0,1,1,1,0,'','','Dear Antonio,\nI have richpad ( do you remember ?) But there are many func  REXXXXXXXX , I not have this source file where i can found it ?\nI used it for a program at school office\nsilvio','',0,'EIA=','hqm8bvpl',1,0,'',49,0,0),(6796,1169,1,130,0,'141.51.32.24',1139477386,1,0,1,1,1,0,'','','Please contact Tom Groeger to get more information. There is no download link on his page.\n\n\n[url]mailto:tom@tomsoft.de?subject=NintyFive[/url]\n\n\nStefan','',0,'EA==','2s3ra06v',1,0,'',130,0,0),(6797,1602,6,28,0,'213.27.201.254',1139477437,1,0,1,1,1,0,'','','a mandar <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'EA==','12rptl6b',1,0,'',28,0,0),(6798,1637,22,49,0,'213.82.134.66',1139478184,1,0,1,1,1,0,'','New Preview','Dear Antonio,\n\nI\'ll like to have many class or func:\n\n&gt;Calcprint ( calc with print paper on video)\n\n&gt;Ocr class\n\n&gt;a new preview with :\nvisualization on 4/6/8/10 pages\nsave on  graphics and doc formats (bmp, jpg,...pdf,rtf)\nzoom percentual ( 10,25,50,75,100,200,400)\nrules and margins modify with a mouse click \nshow the preview on all screen\nshow at left  small pictures of preview pages as into pdf program\n\n&gt;Form and paper designer  class\n\n&gt;Install class\n\n&gt;Circular barcode class\n\nCan I see on the future versions of fwh ?\n\nRegards\nsilvio','',0,'EA==','2dqy953f',1,0,'',49,0,0),(6799,1632,3,446,0,'87.3.36.219',1139480191,1,0,1,1,1,0,'','','I see this is the latest official version from xHarbour.org, where can I download from CVS (what is CVS ?)','',0,'EA==','1xq9x5f4',1,0,'',446,0,0),(6800,1632,3,6,0,'87.6.213.82',1139482705,1,0,1,1,1,1,'','','It would be easier if you post a little and self-contained sample that I can test with the latest xHarbour from CVS.\n\nEMG','',0,'EA==','3mpjzs42',1,0,'',6,0,0),(6801,1610,20,6,0,'87.6.213.82',1139482904,1,0,1,1,1,1,'','','Sono sicuramente sorgenti scritti in C che quindi non necessitano di ricompilazione in quei casi.\n\nEMG','',0,'EA==','7zqg6muw',1,0,'',6,0,0),(6802,1634,3,6,0,'87.6.213.82',1139483080,1,0,1,1,1,1,'','','[quote=&quot;Sakis&quot;:bwxv6nd5]No because  I use the comercial version of xHarbour compiler.[/quote:bwxv6nd5]\n\nThen you have to ask xHarbour.com for an update. Or stick with FWH of January.\n\nEMG','',0,'gA==','bwxv6nd5',1,0,'',6,0,0),(6803,1638,3,379,0,'59.167.105.131',1139483379,1,0,1,1,1,0,'','Manu Exposito tDBF Class','Does someone have this class that has english translations.\n\nCheers\nGerry','',0,'gA==','tzg1n19w',1,0,'',379,0,0),(6804,1628,16,21,0,'80.58.49.235',1139483417,1,0,1,1,1,1,'','','Hola Antonio,\n\nPuede darme un enlace para bajar las nuevas versiones de Harbour/xHarbour.\n\nGracias por tu tiempo.','',0,'gA==','tcoyccyq',1,0,'',21,0,0),(6805,1103,1,170,0,'80.170.180.226',1139486220,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:yjc0jpit]Piscicelli,\n\nPlease review this:\n<!-- m --><a class=\"postlink\" href=\"http://www.ghservices.com/gregh/clipper/trix0014.htm\">http://www.ghservices.com/gregh/clipper/trix0014.htm</a><!-- m -->[/quote:yjc0jpit]\n\nAntonio,\n\nI have today 3 actives versions of my softs :\n\n1 : Compiled with Clipper 5.3b, Linked with Blinker 7.0\n\n2 : Compiled with Clipper 5.3b with Fern Graphic Library instead Light Lib,\nLinked with Blinker 7.0\n\n3 : Compiled with Clipper 5.3b with Fivewin 2.5, Linked with Blinker 7.0\n\n\nMy tests demonstrate this :\n\nOL_YIELD() and OL_AUTOYIELD( .T. ) do absolutely nothing when\ni use the version 3. Under XP the CPU use is 100%.\n\nWith Blinker 7, the new BLICPUREL() function can replace OL_YIELD()\nand OL_AUTOYIELD(), but don\'t work under Windows executables.\n\nWith SysRefresh() and/or SysWait(), no changes : always 100% CPU use.\n\nIs there an other way to solves this ?','',0,'gA==','yjc0jpit',1,0,'',170,0,0),(6807,1639,6,59,0,'80.32.15.243',1139492219,1,0,1,1,1,0,'','smtp','Hola, me gustaria saber si alguien tiene la clase tsmtp de Luis Krause, con los mensajes traducidos al castellano.\n\nGracias\n\nPablo H','',0,'gA==','18d2i40u',1,0,'',59,0,0),(6808,1640,3,419,0,'198.54.202.210',1139493488,1,0,1,1,1,0,'','Listbox Headings Win32 Style','Hi,\n\nBack on my favourite subject again!\n\nHow do you display those nice looking Listboxes (Browses) with the Headers that get underlined (usually with an orange stripe) when the mouse is moved over them (like the ListBoxes used in MS Outlook for example)?\n\nRegards,\n\nDale.','',0,'gA==','3nw8yz7j',1,0,'',419,0,0),(6809,1631,4,262,0,'83.97.168.83',1139493852,1,0,1,1,1,1,'','','solved\n[code:dwemszey]\nHB_FUNC &#40;MATANPOP&#41;\n&#123;\n   HWND hWnd;\n   BOOL lRet = FALSE;\n\n   hWnd = FindWindow &#40;NULL, L&quot;nPOP&quot; &#41;;\n   if &#40;hWnd&#41;\n   &#123;\n     PostMessage&#40;hWnd ,0x0002,0,0&#41;;\n\n   lRet = TRUE;\n   &#125;\n   hb_retl &#40;lRet&#41;;\n&#125;\n[/code:dwemszey]','',0,'AIA=','dwemszey',1,0,'',262,0,0),(6810,1610,20,1,0,'213.82.134.66',1139494731,1,0,1,1,1,0,'fasi','','ok  sorgenti in c sicuramente \ne quindi non si puo\' fare niente per adesso \nio aveo un ideuzza ma non so dove andare a prendere al cune funzioncine\ncmq ho visot che antonio piano piano sta rimettendo nella classe rtf alcune di quelle funziocine che sono nell\'altra classde quell acreata con ozs  tra cui page setup...\n\nesiste una dll di windows che mi restituisce i formati delle date e delle ore di windows ?','',0,'AIA=','3pmkzz67',1,0,'',1,0,0),(6811,1640,3,49,0,'213.82.134.66',1139494908,1,0,1,1,1,0,'','','Antonio let me sad perhaps to march version... Now he not have time to create it','',0,'AIA=','vqci6ftm',1,0,'',49,0,0),(6812,1606,6,43,0,'201.127.21.225',1139495506,1,0,1,1,1,0,'','','ok...gracias lo probare\n\nSaludos\n\n   Marco A. Delgado.','',0,'AIA=','j1h60r5k',1,0,'',43,0,0),(6813,1610,20,6,0,'87.6.213.82',1139495835,1,0,1,1,1,1,'','','Non lo so, mi dispiace.\n\nEMG','',0,'AIA=','9nlzl9zo',1,0,'',6,0,0),(6814,1628,16,228,0,'201.245.222.85',1139497495,1,0,1,1,1,1,'','Si Antonio','Como vas?, sera que no regalas el link para descargar la nuevas cvs de xharbour/harbout.','',0,'AIA=','aqzf2yz4',1,0,'',228,0,0),(6815,1641,6,2,0,'87.218.146.30',1139498877,1,0,1,1,1,1,'','Novedades en Harbour y xharbour','Recientemente se han introducido una serie de cambios en Harbour y xharbour que conviene explicarlos puesto que van a requerir ciertos cambios en el código que hayais desarrollado en C.\n\nLa idea en estos nuevos cambios es que los programadores no manipulen \nestructuras internas directamente. Asi todo se convierte en handles \n(como en Windows). Se acabo usar . y -&gt; en C. Es una muy buena idea, \nporque se le da robustez a Harbour/xHarbour y se evitan que se cometan \nerrores, y  por otra parte se puede modificar Harbour/xHarbour tanto como se quiera, sin que afecte al código en C en el futuro.\n\nBasicamente no se pueden declarar estructuras HB_ITEM en el código, y al manipular punteros PHB_ITEM han de tratarse como punteros a void (void *). Así en vez de hacer pItem-&gt;type, llamaremos a hb_itemType( pItem ) para conseguir el mismo valor. De esta forma no se manipula la estructura a la que apunta pItem.\n\nIgual ocurre con pDynSym-&gt;pSymbol. Ahora hay que llamar a hb_dynsymSymbol( pDynSym ). \n\nRevisad vuestro código en C y haced las correcciones oportunas.\n\nEl síntoma típico de no tener esto corregido es que la aplicación termina, así sin más, sin dar errores, ni avisos. \n\nLas versiones de Febrero de Harbour y xHarbour estan ya disponibles en:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->  (harbourm.exe Microsoft)\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> (xharbourm.exe Microsoft)','',0,'AIA=','3g1ue21y',1,0,'',2,0,0),(6816,1629,3,34,0,'68.4.154.81',1139499027,1,0,1,1,1,1,'','New February Build','Antonio,\n\nYou said the new February build requires the Feb xHarbour, and you said it would not work with the Jan release.\n\nxHarbour released the February build in January, and did not have a January release.\n\nDoes this mean it requires the upcoming 2nd February release, or will it work with the one officially titled February 2006 ?\n\nTim','',0,'AIA=','1dbdw8wu',1,0,'',34,0,0),(6817,1642,3,2,0,'87.218.146.30',1139499465,1,0,1,1,1,1,'','Recent changes in Harbour and xharbour','Recently several important changes have been implemented in Harbour and xharbour and it is important to know about them as they require some changes in the C code you may be using.\n\nThe idea of these changes is that the programmers don\'t manipulate internal structures directly. Everything turn into handles (like in Windows). No more . and -&gt; use. Its a very good idea because it turns Harbour/xharbour very robust and it avoids possible bugs in the code, and Harbour/xharbour can be modified as much as needed without affecting our C code in the future.\n\nBasically we can not declare HB_ITEM structures in our C code, and we have to manage PHB_ITEM pointers as pointers to void (void *). So instead of doing pItem-&gt;type we have to do hb_itemType( pItem ) to get the same value. This way we don\'t manipulate the structure pointed by pItem.\n\nThe same happens with pDynSym-&gt;pSymbol. Now we have to use\nhb_dynsymSymbol( pDynSym ). \n\nPlease review your C code and make the required changes.\n\nIf you don\'t change your C code you will experience that your application suddenly quits, without errors or warnings.\n\nThe Harbour and xharbour february builds are already available from:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w --> (harbourm.exe Microsoft) \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> (xharbourm.exe Microsoft)','',0,'AIA=','1uu7e9r3',1,0,'',2,0,0),(6818,1629,3,2,0,'87.218.146.30',1139499740,1,0,1,1,1,1,'','','Tim,\n\nIf your FWH (February) application properly links with the xharbour that you have, then you have the right one. If not, you will get some missing external symbols.\n\nxharbour introduced these changes before Harbour, so xHB February should be ok with FWH February build.','',0,'AIA=','a58i3t8p',1,0,'',2,0,0),(6819,1634,3,2,0,'87.218.146.30',1139500114,1,0,1,1,1,1,'','','Meanwhile xHB does not release a new build, there is a workaround to fix it. Please add this function to your app:\n\n#pragma BEGINDUMP\n\n#include \"hbapi.h\"\n#include \"hbapiitm.h\"\n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\n   return pDynSym-&gt;pSymbol;\n}\n\n#pragma ENDDUMP','',0,'AIA=','3r2rybl9',1,0,'',2,0,0),(6820,1628,16,2,0,'87.218.146.30',1139500541,1,0,1,1,1,1,'','','Los usuarios de FWH pueden descargar el nuevo build usando su login y password. \n\nRecordaros que sólo se dispone de dos meses de actualizaciones gratuitas, desde la fecha de la compra ó de la actualización pagada.','',0,'AIA=','1j9wek2r',1,0,'',2,0,0),(6821,1615,1,2,0,'87.218.146.30',1139500947,1,0,1,1,1,1,'','','Gerry,\n\nYou have to show a window without a caption in order to avoid dragging it.','',0,'AIA=','3skcr89x',1,0,'',2,0,0),(6822,1628,16,21,0,'80.58.49.235',1139501490,1,0,1,1,1,1,'','','Hola Antonio,\n\nRealizadas las descargas. No me acordaba que las nuevas versiones aparecen disponibles al descargar la nueva versión FWH.','',0,'AIA=','y1morrhq',1,0,'',21,0,0),(6823,1643,6,59,0,'217.125.68.162',1139504833,1,0,1,1,1,0,'','Smtp','Ya traduje al castellano la clase tsmtp (no era muy dificil), ahora mi pregunta es ¿como procesar los sysrefresh() dentro de los envios de emails para poder poner por ejemplo un animate? \n\nPablo H','',0,'AIA=','383pah37',1,0,'',59,0,0),(6824,1634,3,6,0,'82.57.160.246',1139506303,1,0,1,1,1,1,'','','Great! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','2z07csj9',1,0,'',6,0,0),(6825,1636,6,54,0,'201.135.253.152',1139506369,1,0,1,1,1,1,'','','[quote=&quot;oskar&quot;:u3snp8ni]desde dialogos se usa exactamente igual que con ventanas\n\n[code:u3snp8ni]Define Dialog oDlg \n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;SetArray&#40; aDatos &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\nActivate Dialog oDlg[/code:u3snp8ni]\n\ndesde recursos\n\n[code:u3snp8ni]Define Dialog oDlg Resource &quot;MI_RECURSO&quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;SetArray&#40; aDatos &#41;\n   oBrw&#58;CreateFromResource&#40; 101 &#41;\n\nActivate Dialog oDlg[/code:u3snp8ni]\n\nEspero te sirva\n\nSalu2\n\noSkAr[/quote:u3snp8ni]\n\nGracias por contestar.\n\nLo checo ahora mismo,','',0,'gIA=','u3snp8ni',1,0,'',54,0,0),(6826,1636,6,54,0,'201.135.253.152',1139511351,1,0,1,1,1,1,'','','[quote=&quot;oskar&quot;:2y6m17ai]desde dialogos se usa exactamente igual que con ventanas\n\n[code:2y6m17ai]Define Dialog oDlg \n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;SetArray&#40; aDatos &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\nActivate Dialog oDlg[/code:2y6m17ai]\n\ndesde recursos\n\n[code:2y6m17ai]Define Dialog oDlg Resource &quot;MI_RECURSO&quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;SetArray&#40; aDatos &#41;\n   oBrw&#58;CreateFromResource&#40; 101 &#41;\n\nActivate Dialog oDlg[/code:2y6m17ai]\n\nEspero te sirva\n\nSalu2\n\noSkAr[/quote:2y6m17ai]\n\nGracias oskar, lo chequé y funcionó, ahora tengo el siguiente problema.\n\nCuando tecleo y va localizando las lineas de acuerdo a lo que tecleo, se desaparecen los encabezados y donde se encuentra la flecha indicadora de la fila activa.\n\nHay alguna manera de solucionarlo.\n\n\nSaludos y gracias de antemano','',0,'gIA=','2y6m17ai',1,0,'',54,0,0),(6827,1634,3,195,0,'62.38.78.155',1139514338,1,0,1,1,1,0,'','','Antonio you make your miracle again!!!!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nMANY MANY THANKS\n\nDionisis','',0,'gIA=','10a4a77k',1,0,'',195,0,0),(6828,1122,18,110,0,'165.98.151.243',1139514350,1,0,1,1,1,1,'','','Gracias Antonio, <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ya empezaba a temer que lo hubieras olvidado, o que estuviera dificil la cosa <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->, no es posible modificar los fuentes ? \n\nsalu2\ngracias\ncarlos vargas','',0,'gIA=','2910k7oa',1,0,'',110,0,0),(6829,1635,6,255,0,'200.67.175.250',1139515519,1,0,1,1,1,1,'','','Función de fivewin:\n\n  nNumero := nRandom( 100 )\n\n esto devolverá un número entre 0 y 100\n\n aplica a HARBOUR y XHARBOUR.\n\nSaludos','',0,'gIA=','2562gchn',1,0,'',255,0,0),(6830,1644,1,418,0,'83.156.155.66',1139515639,1,0,1,1,1,0,'','COMBOBOX AND XP PRO','Hi\nI have an application who was running well under W98.\nNow i have XP pro and my combobox doesn\'t  open.\nI use Clipper 5.3,  MS link 5.60 and Five Win  2.1\nAny idea?\nhanks','',0,'gIA=','zpe2cq4y',1,0,'',418,0,0),(6831,1616,2,375,0,'84.122.118.216',1139515816,1,0,1,1,1,1,'','','A mi me ha pasado algo similar, se solucionó cuando borré los ultimos recursoso añadidos. Después los volví a colocar y como nuevo. Ten cuidado con los BMP de más de 256 colores...','',0,'gIA=','10decqnx',1,0,'',375,0,0),(6832,1600,3,28,0,'87.218.47.158',1139518271,1,0,1,1,1,0,'','','[url:3eb7a76v]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1602[/url:3eb7a76v]','',0,'EA==','3eb7a76v',1,0,'',28,0,0),(6833,1641,6,362,0,'200.168.52.156',1139519063,1,0,1,1,1,1,'','','Antonio, Para [x]Harbour, esta és la vérsion 0.99.60???','',0,'','3oqut2zb',1,0,'',362,0,0),(6834,1644,1,418,0,'83.156.144.25',1139519549,1,0,1,1,1,0,'','','Oupss!\nin fact it is only when i use a function that automatically sesize the dialog according to the screen resolution\n\n\n\n\nPROCEDURE ResizeDlg(oDlg,x,y,h,la,n)\n\nLOCAL HAUTEURDIALOG    := 0, ;\n      LARGEURDIALOG     := 0, ;\n      I          := 0\nlocal ox,oy\n\n\n\nif h#1\nHAUTEURFENETRE := (WNDMAIN():nVertRes()-24)/h\nLARGEURFENETRE  := WNDMAIN():nHorzRes()/la\n\nelseif h=1\n\n if n#1\n  HAUTEURFENETRE := WNDMAIN():nVertRes()\n\n  LARGEURFENETRE  := WNDMAIN():nHorzRes()/la\n elseif n=1\n  HAUTEURFENETRE := WNDMAIN():nVertRes()/h\n\n  LARGEURFENETRE  := WNDMAIN():nHorzRes()/la\n endif[/size]\n\nendif\n\n\n\nHAUTEURDIALOG  := Odlg:nHeight\nLARGEURDIALOG   := Odlg:nWidth\n\noDlg:SetSize(LARGEURDIALOG*LARGEURFENETRE/LARGEURDIALOG,HAUTEURDIALOG*HAUTEURFENETRE/HAUTEURDIALOG)\n\n\naEval(oDlg:aControls,{|u| u:SetSize(u:nWidth*LARGEURFENETRE/LARGEURDIALOG,u:nHeight*HAUTEURFENETRE/HAUTEURDIALOG),;\n     u:Move(u:nTop*HAUTEURFENETRE/HAUTEURDIALOG,u:nLeft*LARGEURFENETRE/LARGEURDIALOG)})\n\n\n\n ox:=WNDMAIN():nVertRes()- WNDMAIN():nVertRes()/x +iif(x=1,0,-20)\n oy:=WNDMAIN():nHorzRes()- WNDMAIN():nHorzRes()/y\n\n\nODLG:MOVE(ox,oy)\nreturn NIL[\n\n\n\nI don\'t have an idea and you?','',0,'','1pld62lx',1,0,'',418,0,0),(6835,1645,3,148,0,'82.201.239.162',1139519775,1,0,1,1,1,0,'','Excel ot Word Macro','Can I write a macro from FW ? How can FW handle this VB code ?','',0,'','1dtlcqvo',1,0,'',148,0,0),(6836,1122,18,2,0,'87.218.146.30',1139520232,1,0,1,1,1,1,'','','Carlos,\n\nEn FWH 2.7 Febrero se han implementado muchos cambios, sin embargo esto puede solucionarlo,\n\nEn el método Colors( hDC ) de checkbox y radio, hay que implementar este cambio:\n\n[code:3ni5wgpo]\nMETHOD Colors&#40; hDC &#41; CLASS &#46;&#46;&#46;\n\n   &#46;&#46;&#46;\n\n   if IsAppThemed&#40;&#41;\n      DrawPBack&#40; &#58;&#58;hWnd,  hDC &#41;\n   endif   \n\nreturn &#58;&#58;oBrush&#58;hBrush\n[/code:3ni5wgpo]','',0,'AIA=','3ni5wgpo',1,0,'',2,0,0),(6837,1641,6,2,0,'87.218.146.30',1139520466,1,0,1,1,1,1,'','','João,\n\nEs la versión más reciente, posiblemente esa que dices, aunque no se si se ha publicado oficialmente.','',0,'AIA=','1pruncq9',1,0,'',2,0,0),(6838,1614,1,2,0,'87.218.146.30',1139520554,1,0,1,1,1,1,'','','Gerry,\n\nGetClientRect()','',0,'AIA=','mmrqo9wb',1,0,'',2,0,0),(6839,1644,1,2,0,'87.218.146.30',1139520695,1,0,1,1,1,1,'','','Patili,\n\nCould you provide a small and self contained sample that reproduces the error ? Thanks','',0,'AIA=','3o9v764o',1,0,'',2,0,0),(6840,1627,2,2,0,'87.218.146.30',1139520798,1,0,1,1,1,1,'','','Sauro,\n\nPrueba a aumentar un poco el tamaño del heapsize del fichero LNK de Blinker, en incrementos de 500, hasta que funcione.','',0,'AIA=','37yw9o9j',1,0,'',2,0,0),(6841,1613,2,2,0,'87.218.146.30',1139520883,1,0,1,1,1,1,'','','José Mª,\n\nMi consejo es no ser \"purista\" en exceso <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Usa variables estáticas, sin abusar, y también usa programación orientada al objeto sin abusar <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','bydg4b2w',1,0,'',2,0,0),(6842,1552,2,2,0,'87.218.146.30',1139520970,1,0,1,1,1,1,'','','Las variables estáticas pueden convertirse en DATAs ó en CLASSDATAs, según sean distintas para cada objeto, ó las mismas para todos.','',0,'AIA=','1eohn0oc',1,0,'',2,0,0),(6843,1644,1,418,0,'83.156.144.25',1139522494,1,0,1,1,1,0,'','','When i activate a dialog i resize it\n\n[i:1ae8je5a]activate dialog dliste on init (function1,resizedlg(dliste,1,1,1,1,1))[/i:1ae8je5a]\n\n\nNow the combobox don\'t open.\n\n\nIf i don\'t resize it\n\n[i:1ae8je5a]activate dialog dliste on init function1[/i:1ae8je5a]\n\nNow the combobox work fine\n\n\nIt is the same for all my dialogs  and all my combobox ( dropdown list)\nIn my dialog i have the classic\n\n[i:1ae8je5a]redefine combobox id...[/i:1ae8je5a]..','',0,'IA==','1ae8je5a',1,0,'',418,0,0),(6844,1641,6,37,0,'200.121.244.79',1139525378,1,0,1,1,1,0,'','','Antonio, haber si entiendo, 1ro esos xHarbour y Harbour estan compilados con Microsoft, los que trabajamos con Borland, tenemos algun link ???\nPor otro lado, si Yo solo tengo hasta Fwh 2.7 de Enero, para hacer funcionar mi Fwh 2.7 con este ultimo xHarbour/Harbour debo recompilarlo ???.\nGracias','',0,'IA==','3d485rwq',1,0,'',37,0,0),(6845,1646,3,2,0,'87.218.146.30',1139525547,1,0,1,1,1,1,'','Hernan\'s wbrowse wbrwline.c for FWH 2.7 February','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/79488f53/WBRWLINE.C.html\">http://hyperupload.com/download/79488f5 ... INE.C.html</a><!-- m -->','',0,'IA==','34rlzpiw',1,0,'',2,0,0),(6846,1647,6,2,0,'87.218.146.30',1139525599,1,0,1,1,1,1,'','wbrwline.c del browse de Hernan para FWH 2.7 Febrero','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/79488f53/WBRWLINE.C.html\">http://hyperupload.com/download/79488f5 ... INE.C.html</a><!-- m -->','',0,'IA==','39kgyvyq',1,0,'',2,0,0),(6847,1641,6,2,0,'87.218.146.30',1139525838,1,0,1,1,1,1,'','','Enrique,\n\nEstan los de Borland y los de Microsoft. Lo que he querido indicar es:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w --> (Borland)\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbourm.exe\">www.fivetechsoft.com/files/harbourm.exe</a><!-- w --> (Microsoft)\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> (Borland)www.fivetechsoft.com/files/xharbourm.exe (Microsoft)\n\nLos de Microsoft terminan en \'m\'.\n\nNo hace falta recompilar nada. Prueba a enlazar tu aplicación con tus librerías FWH actuales.','',0,'IA==','2bpbjjmt',1,0,'',2,0,0),(6848,1644,1,2,0,'87.218.146.30',1139525989,1,0,1,1,1,1,'','','Patili,\n\nIt looks as in your resizedlg() you change the size of the controls. You may be assigning a wrong heigth to the comboboxes, thats why they don\'t open.','',0,'IA==','359a6bz2',1,0,'',2,0,0),(6849,1629,3,34,0,'68.4.154.81',1139526265,1,0,1,1,1,1,'','Error in linking','I get an unresolved _hb_dynSymSymbol\n\nIs this FWH or xHarbour ? \n\nTim <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'IA==','3aoyu6fu',1,0,'',34,0,0),(6850,1636,6,54,0,'201.135.253.152',1139527773,1,0,1,1,1,1,'','','Otra vez dando lata.\n\nComo puedo saber el número de columna cuando le doy un click al header con el boton izquierdo o derecho.\n\nSigo con el xbrowse\n\nSaludos y gracias de antemano','',0,'IA==','okku6glb',1,0,'',54,0,0),(6851,1648,3,34,0,'68.4.154.81',1139530163,1,0,1,1,1,1,'','Brush on Dialog','Antonio,\n\nIt looks like a great idea, but I\'m having a problem with using the brush on the dialog.\n\nFirst, the sample builds fine.\n\nHowever, from the ppo file:\n\n  oBrush := TBrush():New(,,,\"Sky\" )\n\n   DEFINE DIALOG oDiw RESOURCE \"PRO2100\" BRUSH oBrush TRANSPARENT\n\nand xHarbour gives me the error Parse error at DIALOG.  If I comment from BRUSH on with //, then it builds without a problem.\n\nAny thoughts on where I can look for the problem ?  Thanks.\n\nTim','',0,'IA==','3ou8vrk2',1,0,'',34,0,0),(6852,1649,3,148,0,'82.201.239.162',1139530296,1,0,1,1,1,0,'','unable to open a file','I executed the batch file for buildH.bat with FW demo so,it was unable to open file C032.obj after the stage of bcc32.exe linking ?','',0,'IA==','2kcni1m4',1,0,'',148,0,0),(6853,1649,3,148,0,'82.201.239.162',1139530364,1,0,1,1,1,0,'','','I am sorry the file called : c0W32.obj','',0,'IA==','9hqspfle',1,0,'',148,0,0),(6854,1613,2,404,0,'213.231.101.107',1139530673,1,0,1,1,1,0,'','Gracias por las respuestas.','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->. Gracias, Antonio. \n\nEspero, no volverme tan purista, como dices. \n\nPara el programador, la programación POO es más comoda, prueba de ello, es que la clase TArray, que uso desde hace poco, y me ha ayudado a parametrizar las funciones.\n\nO la TDbf de Manuel Exposito, que para el manejo de las DBFs, es una gran ayuda.\n\nDe nuevo, ¡Mil Gracias!, José Mª <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'IA==','1kw7bvh6',1,0,'',404,0,0),(6855,1552,2,404,0,'213.231.101.107',1139531334,1,0,1,1,1,0,'','Por que me dices.','Es conveniente, pasarlas a DATA, o CLASSDATA. \n\nHasta ahora, siempre las estaticas, las he usado para todo lo que esta en el PRG, Funciones y Clases. Pues aprovechaba, su visibilidad en el interior del mismo.\n\nSaludos, José Mª','',0,'IA==','2c1sojet',1,0,'',404,0,0),(6857,1650,6,203,0,'200.107.17.76',1139542757,1,0,1,1,1,1,'','Error BASE/1132  Bound error: array access','Hola amigos del foro\n\nEste error lo tengo al pasar el mouse por sobre un browse (tcbrowse), cuando lo tengo sobre el dialogo no pasa nada.\n\n  Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   3\n\nStack Calls\n===========\n   Called from TWINDOW:MOUSEMOVE(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOXINDIRECT(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from FACTURA(92)\n   Called from (b)MIC5MENU(137)\n   Called from TC5MENU:COMMAND(714)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(65)\n\nSaludos\n\nOscar','',0,'','187c0dk9',1,0,'',203,0,0),(6858,1636,6,54,0,'201.135.253.152',1139549936,1,0,1,1,1,1,'','','[quote=&quot;oskar&quot;:4ujjzd1o][code:4ujjzd1o]oCol&#58;bRClickHeader &#58;= &#123; |nRow,nCol| Alert&#40; oBrw&#58;nColOffSet - 1 + oBrw&#58;MouseColPos&#40; nCol &#41; &#41; &#125;[/code:4ujjzd1o]\n\nEspero te sirva\n\nsalu2\n\noSkAr[/quote:4ujjzd1o]\n\nMil gracias, funcione ok.','',0,'gIA=','4ujjzd1o',1,0,'',54,0,0),(6859,1640,3,419,0,'196.25.255.210',1139552361,1,0,1,1,1,0,'','','Thanks for the one reply!\n\nI am also sad.\n\nI mean to say that I have been banging on about the appearance and operation of the FiveWin ListBox Browse for a while now (since FiveWin v2.2) and nothing has changed.\n\nThe ability to browse and display data contained in database files is fundamental to any dBase / Clipper / FiveWin / xHarbour application; it is in my opinion the core of any system we write; so why has this code not been looked at or changed since its inception in FiveWin 1.92 (Demo)?\n\nI know there are other browses available from other users but I don\'t need the extra features and functionality that these provide (and I did not pay for them either).\n\nThe FiveWin ListBox Browse is ideal for most applications in my opinion and just needs to be tidied up a bit.\n\nWe have all come a long way since FiveWin 1.92 (Demo).  I mean to say all of the other \'little\' things have been fixed like Icons that sometime worked, sometimes not and sometimes dissapeared, and applications written with FiveWin and xHarbour do have that professional and polished look with the exception of the FiveWin ListBox Browse Class!!!\n\nWhat is needed in my opinion is the following (and anyone else interested in this subject please feel free to add to this list):\n\n1 - The ability to set the height of the rows and headings and the text of the headings to be spaced correctly in proportion to the chosen height and chosen font for the browse.\n\n2 - The headings to appear the same as any other XP application that has a data browse (like MS Outlook for example) i.e. underlined when mouse is moved over them just like FiveWin Win32 Headers.\n\n3 - Correct operation of the vertical scroll bar (been on about this for just as long).\n\n4 - The option to choose whether or not you want lines displayed between each record or field (although this is not critical in my opinion).\n\n5 - Correct alignment of the vertical lines between fields in relation to their headings (the vertical lines have always been slightly offset to the right since FiveWin 2.2 and does not look very nice).\n\nThats it!\n\nHow difficult can these changes be to make for the people who actually developed the libraries?\n\nWe already have the Win32 Headers so how much more effort can be involved in including these on a ListBox Browse?\n\nEven if I knew how to make these changes myself what would be the point?  Every time there is a change or update to WBrowse for example I would have to make my changes again so that any other new changes made to WBrowse would not be missed and then there is always the risk that my changes would interfere with changes made by FiveTech.\n\nPlease can I have some input on this subject?\n\nRegards,\n\nDale.','',0,'gIA=','1ytq75m4',1,0,'',419,0,0),(6860,1651,3,379,0,'59.167.105.131',1139553053,1,0,1,1,1,0,'','tDBF Class','Does someone have the tDBF class that is compatible with xHarbour if so can you please supply Source, Lib and Make files.\n\nIf you need to mail it <!-- e --><a href=\"mailto:grumpy@internode.on.net\">grumpy@internode.on.net</a><!-- e --> would appreciate it.\n\nThanks in Advance.\n\nGerry','',0,'gIA=','2xui74mc',1,0,'',379,0,0),(6861,1644,1,418,0,'83.156.144.25',1139555727,1,0,1,1,1,0,'','','Ok i will look about that\nI use BC++ Resource Workshop\nThanks','',0,'gIA=','q7j470xt',1,0,'',418,0,0),(6863,1652,3,419,0,'198.54.202.226',1139557375,1,0,1,1,1,0,'','DispBegin/DispEnd Methods in FWH\\SOURCE\\CLASSES\\WINDOW.PRG','With every new realease of FWH I have to change:\n\nMETHOD DispBegin( lCreateDC ) // double buffer painting\nMETHOD DispEnd( aRestore ) // double buffer painting\n\nto:\n\nMETHOD DispBegin( lCreateDC )  VIRTUAL // double buffer painting\nMETHOD DispEnd( aRestore ) VIRTUAL // double buffer painting\n\nand comment out the relative source.\n\nIf this is not done then when moving or dragging dialogs, windows, etc. there is a visible \'dragging\' effect and the movement is sort of \'unresponsive\'.\n\nIs it not possible to implement the changes permanently from now on or do these changes affect other things?\n\nRegards,\n\nDale.','',0,'gIA=','39ixlenx',1,0,'',419,0,0),(6864,1629,3,419,0,'196.25.255.210',1139557537,1,0,1,1,1,0,'','','I had the same problem but I found a temporary fix for this a few message threads prior to this one.\n\n[b:23e53ziv]However![/b:23e53ziv]\n\nWhy has the default window background color changed from white to dark grey with this new (2.7 February 2006) release?\n\nRegards,\n\nDale.','',0,'QA==','23e53ziv',1,0,'',419,0,0),(6865,1640,3,49,0,'213.82.134.66',1139559520,1,0,1,1,1,0,'','','You must ask to Antonio for Header 32 bit for listbox\n\nI use also Wbrowse of Hernan, it have most  command then wbrowse of linares ( example the hernan\'s wbrowse have footers but wbrowse of linares not have footers)\n\nRegards\nSilvio','',0,'QA==','1hx822df',1,0,'',49,0,0),(6866,1640,3,419,0,'196.25.255.210',1139560234,1,0,1,1,1,0,'','','Thanks (Silvio) for the reply.\n\nOk - Antonio - please may I have Headers 32 for Listbox (with some sort of documentation if possible)?\n\nWhere can I download the latest version of Hernan\'s Browse from (although I still think that the changes and fixes that I suggested should be a part of the standard FiveTech FWH Libraries so I\'m not going to give up on this)?\n\nEdit by self:\n\nI have just searched all of the message threads for Hernan\'s Browse and it would appear that when there are FWH and xHB updates problems can and do occur i..e Hernan has to make changes to keep up to date with any FWH and xHB changes or updates.\n\nAlso - what are you going to do if Hernan decides to stop updating his Browse?\n\nFor these reasons the changes or updates to FWH ListBox Browse should come from the FWH developer and should not be a third party add on!\n\nSecond edit by self:\n\nMaybe I\'m getting carried away with this but I don\'t see the point of Antonio spending time on, for example, providing the facility to allow the creation of transparent dialogs which look great but the ListBox Browse looks \'amateurish\' at best.  Like I said before - being able to display / browse data in data files is fundamental to all of this software so is this not more important?\n\nAnd to anyone who says not to worry so much about the appearance of the ListBox Browse - it is only cosmetic - transparent dialogs are also only cosmetic!!!\n\nRegards,\n\nDale.\nEmail: <!-- e --><a href=\"mailto:dpaterso@fleetfocus.net\">dpaterso@fleetfocus.net</a><!-- e -->','',0,'QA==','223gvd31',1,1139561936,'',419,1,0),(6867,1607,6,49,0,'213.82.134.66',1139560852,1,0,1,1,1,0,'','','I not download the files from opendwg can you help me please\nRegards','',0,'QA==','qop6wbg0',1,0,'',49,0,0),(6868,1590,6,49,0,'213.82.134.66',1139561085,1,0,1,1,1,0,'','','I can send it  write on my private email pls','',0,'QA==','3twa1bfw',1,0,'',49,0,0),(6869,1640,3,49,0,'213.82.134.66',1139561462,1,0,1,1,1,0,'','','Much time ago Hernan said me that it would have sended the new version  wbrowse but still today we do not have the new version of the wbrowse.  \nthe old version you can find  on dbwide that it is now on the server of Viktor.com.mx\n\nTry to call Hernan also\n\nRegards','',0,'QA==','35255p0r',1,0,'',49,0,0),(6870,1649,3,49,0,'213.82.134.66',1139561634,1,0,1,1,1,0,'','','is on borland directory \n\nRegards','',0,'QA==','2qsowjbn',1,0,'',49,0,0),(6871,1571,3,49,0,'213.82.134.66',1139561845,1,0,1,1,1,0,'','','I put the file on another post ( italian forum)','',0,'QA==','1wsuwg06',1,0,'',49,0,0),(6872,1571,3,49,0,'213.82.134.66',1139561889,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/21662667/Classertfmodificataconpreview.zip.html\">http://hyperupload.com/download/2166266 ... w.zip.html</a><!-- m -->','',0,'QA==','howuc1l0',1,0,'',49,0,0),(6873,1640,3,419,0,'198.54.202.210',1139562098,1,0,1,1,1,0,'','','Thanks Silvio,\n\nSorry - I was busy editing my previous post when your reply came through.\n\nI am not going to pursue Hernan\'s Browse.  These changes need to come from FiveTech themselves.\n\nAntonio - please respond.  I mean - other than the subject matter of my previous posts - you have a first class winning product.\n\nRegards,\n\nDale.','',0,'QA==','ejkhpqsn',1,0,'',419,0,0),(6874,1629,3,2,0,'87.218.146.87',1139562143,1,0,1,1,1,1,'','','Dale,\n\nIs it a MDI window ?','',0,'QA==','2ujy7xqp',1,0,'',2,0,0),(6875,1648,3,2,0,'87.218.146.87',1139562261,1,0,1,1,1,1,'','','Tim,\n\nPlease check that you are using the new and modified dialog.ch that comes with FWH 2.7 February.','',0,'QA==','2k25l30o',1,0,'',2,0,0),(6876,1652,3,2,0,'87.218.146.87',1139562334,1,0,1,1,1,1,'','','Dale,\n\nWhat hardware are you using ?','',0,'QA==','2uifm00q',1,0,'',2,0,0),(6877,1650,6,2,0,'87.218.146.87',1139562684,1,0,1,1,1,1,'','','Oscar,\n\nCuantas columnas tiene el TCBrowse ? Puedes mostrar aqui el código con el que creas el browse ? gracias','',0,'QA==','2py7xs9e',1,0,'',2,0,0),(6878,1652,3,419,0,'196.25.255.210',1139562917,1,0,1,1,1,0,'','','Thanks for the prompt response.\n\nMostly AMD Athlon XP Processors with NVidia AGP Cards (but even on one of my video production workstations that has a AGP 8X 256MB NVidia 7600 GT card this \'slow\' or \'sluggish\' painting and movement is still apparent).\n\nThe workstation that I program on (using FWH and xHB) is a 1.8MHZ Intel P4 and has an integrated SIS AGP Graphics Chip.\n\nChanging the Methods described above does solve the problem and does not seem to affect anything else so why are they there in the first place?  I was under the impression that they were just there for compatibility purposes with older versions of FiveWin or something like that?\n\nRegards,\n\nDale.','',0,'QA==','1ckqqa5l',1,0,'',419,0,0),(6879,1629,3,419,0,'196.25.255.210',1139563116,1,0,1,1,1,0,'','','Hi Antonio,\n\nIt is the first (parent) window in a small test application defined as:\n\nDefine Window oWnd MDI\n\nI have fixed it by adding:\n\nDefine Window oWnd MDI Color CLR_WHITE, CLR_WHITE\n\nbut I was just wondering why such a small thing would have changed and for what reason?\n\nRegards,\n\nDale.','',0,'QA==','rp2dxg0r',1,0,'',419,0,0),(6880,1640,3,419,0,'196.25.255.210',1139563203,1,0,1,1,1,0,'','','Antonio,\n\nI know you would rather \'overlook\' this message thread (joking with you) but please could you respond.\n\nRegards,\n\nDale.','',0,'QA==','1yudwlav',1,0,'',419,0,0),(6881,1653,3,269,0,'217.37.54.49',1139565341,1,0,1,1,1,0,'','PADR and LEN','In my program I have a comments field, which, if empty, will save the filename used and place .rpt extension onto the filename. However, although the majority of these work, a few of them will show the filename with a large gap before the .rpt extension. how can I solve this?\n\nEXAMPLE ;\n\n[Monthly Account Invoice Proof                                                                       .rpt]\n\nThe above should be displayed as \n\n[Monthly Account Invoice Proof.rpt]\n\nHere is the code used;\n\nIF !Empty(cApp) \n       IF mFile == 1\n          mReportID := Alltrim(cApp)+\".rpt\"\n          mReportName := PADR(cApp,LEN(REPDETS-&gt;REP_NAME))\n          mRepComm := (\"[\"+PADR(cApp,len(REPDETS-&gt;REP_NAME))+\".rpt]\")\n          RepIdValid()','',0,'','2kiw14dt',1,0,'',269,0,0),(6882,1640,3,419,0,'198.54.202.210',1139565972,1,0,1,1,1,0,'','','Actually - what would be really nice is if the color of the scroll bar could be changed to that XP Style Light Blue (or any other color for that matter but this should be the default) instead of the boring standard darkish blue!\n\nStill hoping.\n\nEdit by self:\n\nSorry - I should be talking about the actual record highlight bar and not the scroll bars.  The scroll bars (funny enough) are the ONLY things that ARE XP themed in the FWH ListBox Browse!!!\n\nDale.','',0,'','229x1im1',1,1139605824,'',419,3,0),(6883,1654,4,289,0,'212.138.64.171',1139566016,1,0,1,1,1,0,'','I  have error  with function delete record','Antonio  \nI  have error  with function delete record\nhe  is replace record with record up\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nregards\nhathal','',0,'','3eypio27',1,0,'',289,0,0),(6884,1476,20,125,0,'194.243.7.199',1139566341,1,0,1,1,1,0,'','','Salve,\nho creato una funzione che cancella i uscita i WMF nella temp dir.\nHo notato che qualche volta non riesco a cancellare il file poiche\' \"utilizzato da un altro processo\".\nEcco il motivo della ripetizione della stampa.\n\nQualche idea?\nGrazie','',0,'','2bs3xbcy',1,0,'',125,0,0),(6886,1476,20,6,0,'87.3.212.168',1139566575,1,0,1,1,1,1,'','','Significa che il file che cerchi di cancellare è ancora in uso. Identificalo e controlla, chiudendo o terminando i vari programmi in esecuzione, chi è che lo sta utilizzando.\n\nEMG','',0,'','nnq0wf61',1,0,'',6,0,0),(6887,1476,20,125,0,'194.243.7.199',1139566711,1,0,1,1,1,0,'','','Sono in monoutente e sto visualizzando la pagina 3 dell\'anteprima e quella che non risco a cancellare e\' la pagina 1 !!','',0,'','2py4l7wm',1,0,'',125,0,0),(6888,1640,3,6,0,'87.3.212.168',1139566856,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:2uylz4ku]Actually - what would be really nice is if the color of the scroll bar could be changed to that XP Style Light Blue (or any other color for that matter but this should be the default) instead of the boring standard darkish blue!\n\nStill hoping.\n\nDale.[/quote:2uylz4ku]\n\nFWH scrollbars are already XP themed if you activate themes for you app.\n\nEMG','',0,'gA==','2uylz4ku',1,0,'',6,0,0),(6889,1476,20,6,0,'87.3.212.168',1139567183,1,0,1,1,1,1,'','','[quote=&quot;Piscicelli Zingoni&quot;:1semytt3]Sono in monoutente e sto visualizzando la pagina 3 dell\'anteprima e quella che non risco a cancellare e\' la pagina 1 !![/quote:1semytt3]\n\nNon puoi cancellare i files dell\'anteprima che stai attualmente visualizzando.\n\nEMG','',0,'gA==','1semytt3',1,0,'',6,0,0),(6890,1640,3,419,0,'196.25.255.210',1139567909,1,0,1,1,1,0,'','','Hello,\n\nI do have XP Themes enabled i.e. all my buttons, windows, frames, etc. etc. appear XP Style (unless I am still doing something wrong)???\n\nI do have the Windows.XP. Manifest defined as a resource in my .RES file.  Is there anything else I need to be doing???\n\nRegards,\n\nDale.','',0,'gA==','1w008jxi',1,0,'',419,0,0),(6891,1476,20,49,0,'213.82.134.66',1139568255,1,0,1,1,1,0,'','','Non puoi dire direttamente a Linares di correggere questo problema ?\nCerto che l\'anteprima di stampa non funziona correttamente e privo di molte cose rispetto alle altre anteprime di stampa degli altri linguaggi \nPer esempio a scuola abbiamo un programma del MIUR ( ministero) lui usa Powerbuilder e li c\'è un\'anteprima molto accattivante....\n&gt; Conversione in formati grafici e testo ( txt,pdf,doc)\n&gt; righello\n&gt;visualizzazione come in winword ( 10,25,50,75,100,200,400 per quanto riguarda lo zoom e poi in 2/4/6/8/10 x X pagine per la visualizzazione in un unica finestra di tutte le pagine del documento \n&gt; possibilità di inserire un image ..noi usiamo questo per inserire le firme scannerizzate in fondo al documento\n&gt; le stampe sono parametrizzabile dall\'utente infatti è possibile creare un nuovo modello di stampa  il programma elenca tutti i campi possbili e te li fa inserire nel documento ....\n\nCerto quando arriveremo a questi livelli  potremmo dire che il rpreview di stampa funziona correttamente .','',0,'gA==','3i0477y7',1,0,'',49,0,0),(6892,1476,20,6,0,'87.3.212.168',1139568421,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1bc2nnf5]Non puoi dire direttamente a Linares di correggere questo problema ?[/quote:1bc2nnf5]\n\nChe io sappia non è un problema che dipende dalle Fivewin (personalmente non l\'ho mai visto). Un esempio che lo dimostri aiuterebbe a capirne la natura.\n\nEMG','',0,'gA==','1bc2nnf5',1,0,'',6,0,0),(6893,1640,3,6,0,'87.3.212.168',1139568472,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:8j2z8feq]Hello,\n\nI do have XP Themes enabled i.e. all my buttons, windows, frames, etc. etc. appear XP Style (unless I am still doing something wrong)???\n\nI do have the Windows.XP. Manifest defined as a resource in my .RES file.  Is there anything else I need to be doing???\n\nRegards,\n\nDale.[/quote:8j2z8feq]\n\nCan I see an image of your scrollbars?\n\nEMG','',0,'gA==','8j2z8feq',1,0,'',6,0,0),(6894,1640,3,419,0,'196.25.255.210',1139568598,1,0,1,1,1,0,'','','Sorry - I was talking about the actual record highlight bar not the scroll bars i.e. the scroll bars (as you quite correctly say) are XP Themed.\n\nSorry.\n\nRegards,\n\nDale.','',0,'gA==','2jwh2ks0',1,0,'',419,0,0),(6895,1640,3,6,0,'87.3.212.168',1139568731,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:2grer3wt]Sorry - I was talking about the actual record highlight bar not the scroll bars i.e. the scroll bars (as you quite correctly say) are XP Themed.\n\nSorry.\n\nRegards,\n\nDale.[/quote:2grer3wt]\n\nOk.\n\nEMG','',0,'gA==','2grer3wt',1,0,'',6,0,0),(6896,1629,3,2,0,'87.218.146.87',1139568823,1,0,1,1,1,1,'','','Dale,\n\nWe changed it by a suggestion from Enrico, who is a great FW expert, but it seems the change was not ok. We will review it asap.','',0,'gA==','2gjmtwqw',1,0,'',2,0,0),(6897,1652,3,2,0,'87.218.146.87',1139568944,1,0,1,1,1,1,'','','Dale,\n\nThe purpose of those methods is to avoid flickering when a window is resized, including the flickering of its contained controls. On slow machines it may be a penalty. \n\nAnyhow your fix is ok, as you turn them into virtual and they do nothing.','',0,'gA==','2ck5xrih',1,0,'',2,0,0),(6898,1654,4,2,0,'87.218.146.87',1139569008,1,0,1,1,1,1,'','','Hathal,\n\nPlease show the code you are using. Thanks.','',0,'gA==','17mk7jww',1,0,'',2,0,0),(6899,1629,3,419,0,'198.54.202.210',1139569037,1,0,1,1,1,0,'','','Thanks.\n\nIt is not really a problem (unless something else is being affected).  I was just wondering.\n\nPut it this way - my rantings and ravings about the FiveWin ListBox Browse are far more important than the background window color <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->!\n\nRegards,\n\nDale.','',0,'gA==','38r6e2gj',1,0,'',419,0,0),(6900,1653,3,269,0,'217.37.54.49',1139570709,1,0,1,1,1,0,'','','I tried using Alltrim instead of PADR on the \nmRepComm := (\"[\"+PADR(cApp,len(REPDETS-&gt;REP_NAME))+\".rpt]\") line, which seemed to fix a few of the records. although some still had a large gasp before the .rpt extension, with some records not even showing .rpt extension. am I doing something wrong or could this be a bug?\n\nMany Thanks','',0,'','3rn5pomb',1,0,'',269,0,0),(6901,1655,3,419,0,'196.25.255.210',1139571268,1,0,1,1,1,0,'','Data Encryption','I\'m on a roll today.\n\nThis is a question that I have been meaning to ask for a long time now but never got around to it until now:\n\nHas anybody tried to use the Encrypt() and Decrypt() FWH Functions to stop prying eyes looking at a clients data?\n\nI would imagine that to a hacker cracking this encryption would be easy but it would certainly make it a lot more difficult for your average user who is able to open a database file with dBASE / Clipper\'s DBU.EXE or use DOS TYPE or EDIT.EXE to view or print the data.\n\nThis is a feature of BTrieve / Pervasive SQL i.e. if you do not know the actual file structure of a file it is pretty difficult to reconstruct the data and even with that information there are very few utilities out there (that actually work) that will enable you to actually view the data in a readable form.  Using BTrieve / Pervasive SQL is a route that I will never follow again however (it is extremly cumbersome and slow in my opinion).  Unforuanately the file structure of a dBASE (FWH) database is pretty much easy to see so there is no protection there.  The only thing that you can do is try to encrypt the data.\n\nSo far the only (potential) problems I can see would be with FoxPro Indexes etc. etc.\n\nAny thoughts on this?\n\nRegards,\n\nDale.','',0,'','2o9faw8s',1,0,'',419,0,0),(6902,1640,3,419,0,'196.25.255.210',1139571399,1,0,1,1,1,0,'','','No input yet?\n\nAntonio - I promise to renew my FWH subscription FOR LIFE if you fix this <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> (well at least for the next couple of years).\n\nRegards,\n\nDale.','',0,'','32hwo38p',1,0,'',419,0,0),(6903,1649,3,148,0,'82.201.239.162',1139571970,1,0,1,1,1,0,'','','Yes but I tried \nset lib=/Path/of/bcc55/lib ,It does not work\nI tried \nset path=/Path/of/bcc55/lib ,It does not work','',0,'','1yjwu40n',1,0,'',148,0,0),(6904,1656,6,21,0,'80.58.49.235',1139572046,1,0,1,1,1,1,'','harbour.exe ha detectado un problema y debe cerrarse','Hola foro,\n\nEstoy compilando los archivos con FWH 2.7 y Harbour 55, que descargue (ambos) del ftp de fivetechsoft.\n\nAl intentar compilar un prg aparece que \"harbour.exe ha detectado un problema y debe cerrarse\"\n\nMe pasa un varios prg pero con los demás funciona perfectamente.\n\nHe probado incluso con buildh.bat que hay en el directorio samples y sigue haciendo lo mismo.\n\nAlguien sabe cual puede ser el problema?\n\nGracias por vuestro tiempo','',0,'','2pq9a70n',1,0,'',21,0,0),(6905,1656,6,21,0,'80.58.49.235',1139572931,1,0,1,1,1,1,'','','Hola foro,\n\nYa encontré el problema. Esta en la siguiente línea de código:\n[code:10zjhqla]if aScan&#40;aFiltro, &#123;|x| x&#91;1&#93;=\'Proveedor\' &#46;and&#46; len&#40;x&#41;=5 &#46;and&#46; x&#91;5&#93;&#125;&#41;&lt;&gt;0[/code:10zjhqla]\n\nsi x[1] lo compruebo contra \'Proveedo\' ya no da error y compila perfectamente:\n[code:10zjhqla]if aScan&#40;aFiltro, &#123;|x| x&#91;1&#93;=\'Proveedo\' &#46;and&#46; len&#40;x&#41;=5 &#46;and&#46; x&#91;5&#93;&#125;&#41;&lt;&gt;0[/code:10zjhqla]\n\nEl error lo da con todos las cadenas superiores a 8 caracteres.\n\nCon xHarbour no da ese error.','',0,'AIA=','10zjhqla',1,0,'',21,0,0),(6906,1629,3,6,0,'87.3.212.168',1139573071,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:265i5fgh]Dale,\n\nWe changed it by a suggestion from Enrico, who is a great FW expert, but it seems the change was not ok. We will review it asap.[/quote:265i5fgh]\n\nFrom MSDN:\n\n[quote:265i5fgh]COLOR_APPWORKSPACE\n\nBackground color of multiple document interface (MDI) applications.[/quote:265i5fgh]\n\nEMG','',0,'gA==','265i5fgh',1,0,'',6,0,0),(6907,1650,6,203,0,'200.107.17.17',1139573787,1,0,1,1,1,1,'','','Es el código \n\n// Reviewing arrays - using FiveWin TCBrowse\n\n#include \"FiveWin.ch\"\n#include \"TCBrowse.ch\"\n\n//----------------------------------------------------------------------------//\n\nstatic oBrw\n\n//----------------------------------------------------------------------------//\n\n\nFunction factura(oWnd)\n   memvar inbod\n   local nI, aTestData, uVar, oBtn, oFont\n   local oWndChild, odfactu, oBar, oMsg\n   local cName := \"Testing...\"\n   local canum\n\n   CursorWait()\n\n   // load some fields into a multi element array,\n  dbselectarea(\"kardex\")\n  canum := \'    74\'\n  if !dbseek(inbod+\'S\'+canum)\n     ?? inbod+\'S\'+canum\n  endif\n   aTestData := array(5,4)  //   Array( LastRec(), 4 )  // make the array\n   nI = 1\n   do while !eof() .and. inbod+\'S\'+canum = in_bod+in_tran+in_num\n     aTestData[nI,1] := PADR(Field-&gt;in_cod)   // numb\n     dbselectarea(\"bodega\")\n     if dbseek(\'01\'+aTestData[nI,1])\n        descri := in_dsc\n     endif\n     dbselectarea(\"kardex\")\n     aTestData[nI,2] := Trim(descri)\n    // need to pad char array element for editing beyond last character\n     aTestData[nI,3] := Field-&gt;in_klsomts  // logical\n     aTestData[nI,4] := Field-&gt;in_vlrtota // date\n     ni++\n     dbskip()\n   enddo\n*   USE\n*   Aadd( atestdata, {\"\",\"\",\"\",0} )\n\n   DEFINE DIALOG odfactu FROM 2,2 TO 24, 85 OF oWnd TITLE \"Test Multi Col Array\"\n\n   @ 1.5, 3 COLUMN BROWSE oBrw  OF odfactu ;\n     SIZE 170, 145 MESSAGE \"Multi-Element Array Column Browse\"\n\n     oBrw:SetArray( aTestData )\n   oBrw:Refresh()\n   oBrw:lHitBottom:= .f.\n*   oBrw:GoBottom()\n   SysRefresh()\n\n   oBrw:nClrForeHead := CLR_WHITE\n   oBrw:nClrBackHead := CLR_BLUE\n\n   // oBrw:bLDblClick = { | nRow, nCol | EditCell( oBrw, nRow, nCol ) }\n   // oBrw:lNoLiteBar := .t.  // get rid of the lite bar cursor\n   // oBrw:lNoGrayBar := .t.  // get rid of that ugly gray bar on lost focus\n   // oBrw:lMChange   := .t.  // set false to prevent Mouse colm resize/drag\n\n   oBrw:lLogicDrop := .t.  // use crazy logic dropbox\n   oBrw:lNoHScroll := .t.  // don\'t use that pesky horiz scroll bar\n   oBrw:nAdjColumn :=  3   // expand this column to flush table right\n   oBrw:nFreeze    :=  5   // This will freeze all &amp; prevent horiz scrolling\n                           // NOTE can\'t resize/drag on frozen columns\n\n   ADD COLUMN TO BROWSE oBrw  DATA oBrw:nAt ; \n     SIZE 30 NOBAR CENTER COLOR CLR_BLACK, CLR_HGRAY ;\n     HEADER \"No\"\n\n   ADD COLUMN TO oBrw DATA ARRAY ELEM 3 ;\n     HEADER \"C¢digo  \"  SIZE 60 RIGHT \n\n*   ADD TO oBrw ARRAY ELM 2 ;\n*     HEADER  \"   Nombres\"  EDIT MESSAGE \"Apellidos y Nombres\" ;\n*     SIZE 10 PICTURE \"\" // size is small since will nAdjColumn width\n\n*   ADD COLUMN TO oBrw DATA ARRAY ELEM 2 ;\n*     HEADER \"Descrupci¢n\"  EDIT SIZE 10 PICTURE \"@S50\"\n\n*   ADD COLUMN TO oBrw DATA ARRAY ELEM 3 ;\n*     HEADER \"Cantidad  \"  SIZE 60 RIGHT ;\n*     EDITABLE\n\n   ACTIVATE DIALOG odfactu \n\nSaludos\nOscar','',0,'','duedbqe4',1,0,'',203,0,0),(6908,1657,3,448,0,'82.155.31.117',1139573962,1,0,1,1,1,0,'','ODBC VisualFoxPro  changing tables location path','Hi all,\n\nDoes anyone knows how to change the field Path in ODBC driver dialog from within a xHarbour application ??','',0,'','2dnewkmj',1,0,'',448,0,0),(6909,1649,3,49,0,'213.82.134.66',1139575301,1,0,1,1,1,1,'','','where is bc55 ?','',0,'','2f215tcv',1,0,'',49,0,0),(6910,1654,4,3,0,'82.120.157.194',1139575405,1,0,1,1,1,0,'','Re: I  have error  with function delete record','[quote=&quot;HATHAL&quot;:28v0c9s0]Antonio  \nI  have error  with function delete record\nhe  is replace record with record up\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nregards\nhathal[/quote:28v0c9s0]\n\nHathal\n\nDo you have SET DELETE ON ?\n\nRichard','',0,'gA==','28v0c9s0',1,0,'',3,0,0),(6911,1646,3,35,0,'167.7.140.254',1139575537,1,0,1,1,1,0,'','','Antonio\n\nWish there was a MSVC version of that C code .. \n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','gencmm3m',1,0,'',35,0,0),(6912,1658,6,439,0,'200.125.15.121',1139576093,1,0,1,1,1,0,'','DLLs de recursos y de Borland','Hola, \nSoy nuevo en harbour, y no he podido lograr en una aplicación sencilla cargar los recursos desde una dll propia del programa y la de borland (por ingorancia obvio).\n\nutilizo también la Dll de Borland (bwcc32)  y seguí las instrucciones que aparecen en la documentacion de FWH sobre como hacer para que la cargue, pero me da error de no poder abrir la dialog de mi dll (la de mis recursos).\n\nSe trata de una prueba pequeña en la que intento abrir una dialog elemental solo para entender como funciona la apertura de dlls en fivewin.\n\nAlguien puede darme una mano y mandarme un ejemplo de codigo donde se habra una ventana desde una dll externa con controles de borland.\n\nApreciaré mucho la ayuda.','',0,'gA==','1eroel57',1,0,'',439,0,0),(6913,1476,20,49,0,'213.82.134.66',1139576147,1,0,1,1,1,1,'','','si ok \nancora con sti esempi\nio ti voglio far capire una cosa : la situazione mi è capitata tempo fa \nuna procedura non funzionava con i footers di wbrowse di hernan\nho fatto un  programmino di test semplice  questo funzionava\nmi sono impazzito  una settimana per trovare l\'errore poi ho scoperto  che avevano cambiato il nome delle variabili\n\ntu mi dirai ma come faccio io a provare il bug con un semplice test \nbene ma non sempre il bug viene fuori \n\nquello della stampa  viene fuori per chi ha applicazioni che continuamente fa l\'anteprima e la stampa  a me è capitata tante volte e per farlo funzionare ho dovuto cancellare manualmente la cartella temp e ridossare la colpa \"a parole\" al povero  SO e il programma dopo ha funzionato\nma sapevo benissimo che era un bug di fw.\n\nPrima di abbellire le classi con tante estetiche che non servono poi a niente come le ultime modifiche che ha fatto linares per il rpreview  dei bottoni secondo me servivano tante cose utili come la correzzione di questo bug .\n\nUna correzzione utile per esempio è stata la conversione da wmf a emf \ngli faccio un applauso per questo...\n\n non so se rendo l\'idea','',0,'gA==','anwbvv4o',1,0,'',49,0,0),(6914,1641,6,45,0,'200.117.36.68',1139576558,1,0,1,1,1,0,'','','Ohh my good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Esta tarde me pongo a mirar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1xuldty4',1,0,'',45,0,0),(6915,1476,20,6,0,'87.3.212.168',1139576561,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1o5nye1h]quello della stampa  viene fuori per chi ha applicazioni che continuamente fa l\'anteprima e la stampa  a me è capitata tante volte e per farlo funzionare ho dovuto cancellare manualmente la cartella temp e ridossare la colpa \"a parole\" al povero  SO e il programma dopo ha funzionato ma sapevo benissimo che era un bug di fw.[/quote:1o5nye1h]\n\nA me non è mai capitato, non so che dirti.\n\nEMG','',0,'gA==','1o5nye1h',1,0,'',6,0,0),(6916,1659,6,21,0,'80.58.49.235',1139576623,1,0,1,1,1,1,'','Compilando con xharbour','Hola foro,\n\nEstoy compilando con xharbour y fwh (versión febrero) y al compilar los samples de fwh me da el siguiente error.\n\nError: \'C:\\XHARBOUR\\LIB\\RTL.LIB\' contains invalid OMF record, type 0x21 (possibly COFF)\n\nla instrucción que ejecuto es: buildx.bat ----\n\nAlguien sabe el motivo?\n\ngracias por vuestra ayuda','',0,'gA==','1gtmq68g',1,0,'',21,0,0),(6917,1647,6,45,0,'200.117.36.68',1139576701,1,0,1,1,1,0,'','Re: wbrwline.c del browse de Hernan para FWH 2.7 Febrero','[quote=&quot;Antonio Linares&quot;:rwstvglv]http://hyperupload.com/download/79488f53/WBRWLINE.C.html[/quote:rwstvglv]\n\nOops <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> veo que ya implementaste los cambios de C, ahora cuando vuelva a la tarde le hecho una miradita para ver que es lo que cambio para aprender estas ultimas modificaciones de Harbour que comentas mas arriba.\n\nHernan  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','rwstvglv',1,0,'',45,0,0),(6918,1646,3,2,0,'87.218.146.192',1139576994,1,0,1,1,1,1,'','','Rick,\n\nHave you tried to compile it with MSVC ? What errors do you get ?','',0,'gA==','2pkpd3rv',1,0,'',2,0,0),(6920,3,3,324,0,'62.38.192.64',1139577224,1,0,1,1,1,0,'','','Let me report as present <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nGreat to have a forum now, Antonio. Congrats!\n\nHello everybody. Many old friends arround <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nNice to see the all friends again. Seams I was too bussy and overlooked this forum.','',0,'gA==','3rnzdptq',1,0,'',324,0,0),(6921,1651,3,324,0,'62.38.192.64',1139577528,1,0,1,1,1,0,'','','You got the tDBF class already? If not, I can send you mine.','',0,'gA==','3oe4dlzo',1,0,'',324,0,0),(6922,1656,6,2,0,'87.218.146.192',1139577529,1,0,1,1,1,1,'','','Fernando,\n\nHay que buscar un ejemplo que sea lo más pequeño posible y que reproduzca el error. Este código funciona bien:\n\n[code:22rdztmc]\nfunction Main&#40;&#41;\n\n   local aFiltro &#58;= &#123; &#123; &quot;uno&quot; &#125; , &#123; &quot;dos&quot; &#125; &#125;\n\n   if AScan&#40; aFiltro, &#123; | x | x&#91; 1 &#93; = &quot;Es Proveedor&quot; &#125; &#41; != 0 \n      MsgInfo&#40; &quot;ok&quot; &#41;\n   endif\n   \n   MsgInfo&#40; &quot;done!&quot; &#41;\n   \nreturn nil      \n[/code:22rdztmc]\n\nAl dar el GPF, te muestra la pila de llamadas ? Cuales son ? gracias.','',0,'AIA=','22rdztmc',1,0,'',2,0,0),(6923,1659,6,2,0,'87.218.146.192',1139577702,1,0,1,1,1,1,'','','Fernando,\n\nAquí buildx.bat tutor02 (por ejemplo) funciona correctamente.\n\nDa la sensación de que tengas mal instalado los ficheros ó los paths. Revísalo por favor. Gracias.','',0,'AIA=','17wmgday',1,0,'',2,0,0),(6924,1546,3,324,0,'62.38.192.64',1139577919,1,0,1,1,1,0,'','','I am using ClipWeb 32-bit library, IIS and xHarbour.\nWorks perfect','',0,'AIA=','1lymdem1',1,0,'',324,0,0),(6925,1658,6,2,0,'87.218.146.192',1139578262,1,0,1,1,1,1,'','','José,\n\nRevisa el ejemplo samples\\FwBorl.prg','',0,'AIA=','32h0pjae',1,0,'',2,0,0),(6926,1571,3,299,0,'69.65.88.121',1139578560,1,0,1,0,1,0,'','','Silvio;\n\nI\'m glad you remember.  I\'ll take a look today.\n\nThank you,\n\n\n\nReinaldo.','',0,'AIA=','2tktyyws',1,0,'',299,0,0),(6927,1656,6,21,0,'80.58.49.235',1139579922,1,0,1,1,1,1,'','','Hola Antonio,\n\nPrueba este código. Me da error\n\n[code:3cq3r8k5]#include \'fivewin&#46;ch\'\n\nfunction Main&#40;&#41; \n\n   local aFiltro &#58;= &#123; &#123; &quot;uno&quot; &#125; , &#123; &quot;dos&quot; &#125; &#125; \n\n   if AScan&#40; aFiltro, &#123; | x | x&#91; 1 &#93; = &quot;Proveedor&quot; &#46;and&#46; len&#40;x&#41;=5 &#46;and&#46; x&#91;5&#93; &#125; &#41; != 0 \n      MsgInfo&#40; &quot;ok&quot; &#41; \n   endif \n    \n   MsgInfo&#40; &quot;done!&quot; &#41; \n    \nreturn nil[/code:3cq3r8k5]','',0,'AIA=','3cq3r8k5',1,0,'',21,0,0),(6928,1654,4,289,0,'212.138.64.177',1139580354,1,0,1,1,1,0,'','','There is no problem with the minor programs\nBut\nWith the programs the big the deletion fails\nI sent the exporter to the great programmer\nAntonio Linares  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nthank you to all who helps me\nregards \nhathal','',0,'AIA=','1htsrmw5',1,0,'',289,0,0),(6929,1476,20,125,0,'194.243.7.199',1139580745,1,0,1,1,1,0,'','','La mia procedura di cancellazione dei files temporanei e\' stata inserita nell\'action dell\'uscita del rpreview.prg\n\nPrima di uscire cancello i wmf temporanei e con fw16 funziona sempre (anche utilizzando la funzione fattrib() per rilasciare il file qualore non fosse cancellabile.)\nAnche con harbur funziona quasi sempre ad eccezione di qualche volta che non capisco da cosa dipenda.\nProvando a mano a cancellare tale file (con l\'exe ancora running) mi dice che il file e\' aperto da un altro processo. Sicuramente, almeno penso, dall\'exe di harbour (se i files da cancellare sono 30, 29 li cancella e 1 no)\n\nNon mi rimane in questo caso di dare un messaggio (di mascheramento) e dire all\'utente: PROBLEMA DI WINDOWS CON I FIELS TEMPORANEI, SI PREGA DI USCIRE E RIENTRARE NEL PROGRAMMA.\nSolo cosi\' poi funziona e questo, penso, e\' la dimostrazione che c\'e\' qualche piccolo bug da qualche parte.\n\nPurtroppo il problema non e\' ripetibile o almeno dopo 3000 lanci e anteprime non so spiegarmi quando e come succede.\n\nMistero del s/w!\n\nCiao','',0,'AIA=','33qmt0kg',1,0,'',125,0,0),(6930,1661,6,279,0,'200.65.111.86',1139580974,1,0,1,1,1,0,'','Ejemplo de como Utilizar RoundBox()','Alguien me podría ayudar con un ejemplo de cómo utilizar RoundBox() quiero hacer en la impresión cuadros pero que tengan las puntas redondeadas. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','2ml73ccz',1,0,'',279,0,0),(6931,1650,6,203,0,'200.107.17.25',1139582922,1,0,1,1,1,1,'','','Listo Antonio lo solucione\n\ndefinia caracteristicas para columnas que no tenía en el browse\n\nGracias\n\n\nSaludos\n\nOscar','',0,'AIA=','1u8eutj4',1,0,'',203,0,0),(6932,1649,3,148,0,'82.201.239.162',1139585202,1,0,1,1,1,0,'','','bcc55 is located in my Harddrive in e:\\compiler\\cpp_lang\\bcc55','',0,'AIA=','ufhokgfm',1,0,'',148,0,0),(6933,1649,3,148,0,'82.201.239.162',1139585425,1,0,1,1,1,0,'','','Oka let me show how the build file goes and advice me where to locate the lib of bcc55 command :\n\n@SET INCLUDE=e:\\compiler\\clipper\\fweval\\INCLUDE;e:\\compiler\\clipper\\xharbour\\include\n@SET LIB=e:\\compiler\\cpp_lang\\bcc55\\LIB;e:\\compiler\\clipper\\fweval\\LIB\n\n@if A%1 == A GOTO :SINTAX\n@if NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\n@set hdir=e:\\compiler\\clipper\\xHarbour\n@set bcdir=e:\\compiler\\cpp_lang\\bcc55\\bin\n@%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /p %2 %3 &gt; clip.log\n@type clip.log\n@IF ERRORLEVEL 1 PAUSE\n@IF ERRORLEVEL 1 GOTO EXIT\n\n@echo -O2 -e%1.exe -I%hdir%\\include -tW %1.c &gt; b32.bc\n@%bcdir%\\bcc32 -M -c @b32.bc\n@:ENDCOMPILE\n\n@IF EXIST %1.rc %bcdir%\\brc32 -r %1\n\n@echo c0w32.obj + &gt; b32.bc\n@echo %1.obj, + &gt;&gt; b32.bc\n@echo %1.exe, + &gt;&gt; b32.bc\n@echo %1.map, + &gt;&gt; b32.bc\n@echo ..\\lib\\FiveH.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\vm.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\gtwin.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\lang.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\macro.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\rdd.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\dbfntx.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\debug.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\common.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\b32\\pp.lib + &gt;&gt; b32.bc\n@echo %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\n@echo %bcdir%\\lib\\import32.lib, &gt;&gt; b32.bc\n@IF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n@%bcdir%\\ilink32 -aa -Tpe @b32.bc\n@\n@IF ERRORLEVEL 1 GOTO LINKERROR\n@ECHO * Application successfully built\n@ECHO\n@\n@:LINKERROR\n@%1\n@rem if exist meminfo.txt notepad meminfo.txt\n@rem PAUSE * Linking errors *\n@GOTO EXIT\n@\n@:SYNTAX\n@ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG\n@ECHO {-- Don\'t specify .PRG extension\n@GOTO EXIT\n@\n@:NOEXIST\n@ECHO Not exist the specified PRG\n@\n@:EXIT','',0,'','31k3838t',1,0,'',148,0,0),(6934,1476,20,6,0,'87.3.212.168',1139585548,1,0,1,1,1,1,'','','Prova a cancellare tutti i files EMF [b:3ixomdkn]prima[/b:3ixomdkn] invece che dopo.\n\nEMG','',0,'QA==','3ixomdkn',1,0,'',6,0,0),(6935,1626,6,132,0,'83.213.45.32',1139585795,1,0,1,1,1,1,'','OLE 32','Acabo de instalar OLE32, (que amablemente me ha enviado Juan Carlos Salinas), y al agregarla a mi AJMAKE, ,me reporta el error:\n\nError: Unresolved external \'_hb_stack\' referenced from H:\\FW\\LIB\\HBOLE.LIB|ole2\n\n¿Me falta añadir algo mas? Uso FWH 2.7 + xHarbour  0.99.51 + BCC55\n    \nGracias de antemano por vuestra ayuda.','',0,'QA==','2spp4c7h',1,0,'',132,0,0),(6936,1571,3,299,0,'69.65.88.121',1139586470,1,0,1,0,1,0,'','','Silvio;\n\nWould you mind sending me trichprev.prg?\n\n<!-- e --><a href=\"mailto:reinaldocrespo@structuredsystems.com\">reinaldocrespo@structuredsystems.com</a><!-- e -->\n\nThank you,\n\n\nReinaldo.','',0,'QA==','1kklr9fm',1,0,'',299,0,0),(6937,1661,6,375,0,'84.122.118.216',1139587723,1,0,1,1,1,1,'','','Yo utilizo mucho RoundRect, de FW2.3, que supongo que será similar\n\n \nPrimero tienes que definir un PEN y un BRUSH, a mi me gusta definirlos fuera de la función que los utiliza, pues parece como si se quedaran en memoria. No te olvides borrarlos después. También puedes utilizar objetos predefinidos de Windows con GetStockObject (mira tu manual o fichero de ayudas).\n\nBRS_AZ := CreateSolidBrush(CLR_BLUE)\nPEN_RJ := CreatePen(0,5,CLR_HRED)\n\nDespues los pasas a la función de pintado (junto al HDC del Dialogo por ejemplo con oDlg:bPainted := { |hDc| MiFuncion(hDc, BRS_AZ, PEN_RJ), o sinó lo defines dentro hDc := oDlg:GetDc())\n\nDespués llamas a la función:\n\nMiFuncion(hDc, BRS_AZ, PEN_RJ), \n   LOCAL hOldB := SelectObject(hDc,BRS_AZ)\n   LOCAL hOldP := SelectObject(hDc,PEN_RJ)\n   *\n  // Región con borde rojo y fondo azul\n   RoundRect(hDc,5,2,1019,662,40,40)		// ROUNDREC(Left,Top,Right,Bottom,Radio,Radio)\n\n   SelectObject(hDc,GetStockObject( 8 ))		// Object( 8 ) =&gt; SIN PEN\n  // Región sin borde y fondo azul\n   RoundRect(hDc,5,2,1019,662,40,40)\n\n   SelectObject(hOldP)\n   SelectObject(hOldB)  // se recuperan los objetos originales\nRETURN NIL\n\nSi has definido el conexto tu mismo con hDc := oDlg:GetDc(), al final del pintado tendrás que inhabilitarlo con oDlg:ReleasDc()\n\nNo te olvides de borrar los objetos creados, cuando no los necesites:\nDeleteObject(BRS_AZ)\nDeleteObject(PEN_RJ)\n\nEs muy sencillo. Espero que te sirva.','',0,'QA==','3vfcnaz7',1,0,'',375,0,0),(6938,1268,3,206,0,'81.75.197.111',1139587996,1,0,1,1,1,0,'','','oGet:bGotFocus := {||oGet:SetSel(0,0),__keyboard(CHR(VK_END)[i:2p41l8af]+CHR(VK_LEFT)[/i:2p41l8af])}','',0,'IA==','2p41l8af',1,0,'',206,0,0),(6939,1662,6,41,0,'200.87.67.10',1139589066,1,0,1,1,1,0,'','O.T. velocidad de ADS LOCAL con archivos ADT','Holas,\n\nuna duda pero hoy realmente me quede preocupado al hacer un ciclo sobre un archivos ADT y este tardo minutos sobre 10000 registros, un ejemplo tan simple como este\n\n  dbf -&gt; ( DBGoTop() )\n  DO WHILE ! dbf -&gt; ( EOF() )\n         dbf -&gt; fielld1 := dbf -&gt; field2\n         dbf -&gt; ( DBSkip() )\n ENDDO\n\nnada mas que eso y me ponia a dormir, sera que esto es normal o estoy haciendo algo mal, o hay alguna alternativa para que esto vuele como con los DBFCDX nativos\ncomentarios?? Rene?\n\nsaludos\n\nMarcelo','',0,'IA==','2waps06v',1,0,'',41,0,0),(6940,1663,6,73,0,'201.133.246.32',1139589356,1,0,1,1,1,0,'','theader con wbrowse...','Alguien tendra un ejemplo de como usar la clase theader con la twbrowse que lo pudiera proporcionar?\nO ya vendra el browse nativo de FWH de este nuevo build con el aspecto que toma la theader?\nGracias','',0,'IA==','1uicoogr',1,0,'',73,0,0),(6941,1656,6,362,0,'200.168.52.156',1139589700,1,0,1,1,1,1,'','','#include \'fivewin.ch\'\n\nfunction Main() \n\n   local aFiltro := { { \"uno\" } , { \"dos\" } } \n\n   if AScan( aFiltro, { | x | x[ 1 ] = \"Proveedor\" .and. len(x)=5 .and. x[5] } ) != 1\n      MsgInfo( \"ok\" ) \n   endif \n    \n   MsgInfo( \"done!\" ) \n    \nreturn nil\n\n// Acá, mi funciono perfecto em FIVEWIN 2.7 Y [x]HARBOUR 0.99.60','',0,'','2h52zgk5',1,0,'',362,0,0),(6942,1648,3,34,0,'68.4.154.81',1139591239,1,0,1,1,1,1,'','Dialog Brush','Antonio,\n\nThe new FWH is installed by itself.  I rename the old directory and thus the newest download is always just the set of files you included.  There is no other copy of dialog.ch in play.\n\nActually, it is the TRANSPARENT or transparent that causes the problem.  If I comment it out, then it will build and show the bitmap in the background, but the titles are not transparent.\n\nIf I add TRANSPARENT back in, it fails the compile.\n\nTim','',0,'','9ddc50x7',1,0,'',34,0,0),(6943,1664,3,89,0,'213.21.136.60',1139592601,1,0,1,1,1,0,'','Problem with CHEKBOX in  FW27','I have this broblem and it is casual not in all CheckBox\n\nThe broblem is ::lTransparent \n\nApplication\n===========\n   Path and name: D:\\PRGWIN\\MAST_VA\\TOOLS.exe (32 bits)\n   Size: 2,439,168 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 10-02-2006, 18:26:32\n   Error description: Error BASE/1077  Parametro errato: .NOT.\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from: checkbox.prg =&gt; TCHECKBOX:ERASEBKGND(182)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCHECKBOX:HANDLEEVENT(0)','',0,'','27iaudop',1,0,'',89,0,0),(6944,1662,6,138,0,'201.133.73.175',1139593368,1,0,1,1,1,1,'','','Como esta tu archivo de configuracion ADSLOC32.CFG ?','',0,'','26gij24g',1,0,'',138,0,0),(6945,1665,6,73,0,'201.133.246.32',1139593553,1,0,1,1,1,0,'','buttonBmp','alguien tiene alguna idea porque al tratar de compilar el button.prg que modifico Rossine me truena aqui:\n   ::nStyle    = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP,;\n                     If( lDefault, BS_DEFPUSHBUTTON, 0 ),;\n                     If( cPosText == \"TEXTTOP\", BS_TOP, 0 ),;\n                     If( cPosText == \"TEXTBOTTOM\", BS_BOTTOM, 0 ),;\n                     If( cPosText == \"TEXTLEFT\", BS_LEFT, 0 ),;\n                     If( cPosText == \"TEXTRIGHT\", BS_RIGHT, 0 ),;\n                     if( at( CRLF, ::cCaption ) &gt; 0, BS_MULTILINE, 0 ),;\n                     If( lDesign, WS_CLIPSIBLINGS, 0 ) )\ny aqui tambien:\n   ::nStyle    = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, BS_MULTILINE,;\n                     If( cPosText == \"TEXTTOP\", BS_TOP, 0 ),;\n                     If( cPosText == \"TEXTBOTTOM\", BS_BOTTOM, 0 ),;\n                     If( cPosText == \"TEXTLEFT\", BS_LEFT, 0 ),;\n                     If( cPosText == \"TEXTRIGHT\", BS_RIGHT, 0 ) )\n\nuso el verce y el error es el siguiente:\nERROR E0030 Syntax Error: \"parse error at \'L\'\"\n\no alguien que tenga el .obj generado?\n\ngracias','',0,'','3602eyg2',1,0,'',73,0,0),(6946,1648,3,34,0,'68.4.154.81',1139594030,1,0,1,1,1,1,'','Found and fixed','I found another instance of DIALOG.CH in hiding ... its running fine now.\n\nWe have very warm and very very dry weather here right now and that doesn\'t always help the thought process.\n\nTim','',0,'','3ksiz2sm',1,0,'',34,0,0),(6947,1626,6,138,0,'201.133.73.175',1139594138,1,0,1,1,1,1,'','','Alfonso:\n\nSi estas utilizando xHarobur no es necesario agregar la libreria, el soporte de OLE 32 es nativo en xHB.\n\nSi usas Harobur si necesitaras linkear la libreria por fuera.','',0,'','2jkepvlh',1,0,'',138,0,0),(6948,1648,3,2,0,'87.218.146.192',1139594650,1,0,1,1,1,1,'','','Tim,\n\nglad to know you solved it','',0,'','3awuci5b',1,0,'',2,0,0),(6949,1666,6,362,0,'200.168.52.156',1139594962,1,0,1,1,1,1,'','WINDOW(VENTANA) INVISIBLE, COMO HACER?','Buenas...\n\nComo jo Tengo ke hacer Para ke Una Window(ventana), si kede Invisible??\n\nO ke mi falta hacer en el ejemplo abajo?\n\n   DEFINE WINDOW oWnd FROM 6, 6 TO 20, 70                                     ;\n          NOZOOM                                                              ;\n          NOICONIZE                                                           ;\n          NOSYSMENU                                                           ;\n          NO CAPTION                                                          ;\n          BORDER NONE\n\n   DEFINE TIMER oTimerPorta                                                   ;\n          INTERVAL 500 OF oWnd                                                ;\n          ACTION Ler_Porta()\n\n   WndCenter( oWnd:hWnd )\n\n   ACTIVATE WINDOW oWnd\n\nDesde ya, muchas gracias a todos. Saludos.','',0,'','2u4zn8oy',1,0,'',362,0,0),(6950,1656,6,21,0,'80.58.49.235',1139595009,1,0,1,1,1,1,'','','Hola Karinha,\n\nA mi me sigue sin funcionar. \n\nSi quito el include funciona correctamente\n[code:2p30q2x5]#include \'fivewin&#46;ch\'[/code:2p30q2x5]','',0,'AIA=','2p30q2x5',1,0,'',21,0,0),(6951,1122,18,110,0,'165.98.151.243',1139595050,1,0,1,1,1,1,'','','gracias antonio, funciono de esta forma (solo en xharbour)\n\n[code:pscbmbt1]\n&#46;&#46;&#46;\n/*al inicio de la aplicación*/\nEXTEND CLASS TRADIO		WITH METHOD Colors\nEXTEND CLASS TCHECKBOX  WITH METHOD Colors\n&#46;&#46;&#46;\n[/code:pscbmbt1]\n\n[code:pscbmbt1]\n/*en cualquier parte &#58;-&#41;*/\nSTATIC FUNCTION Colors&#40; hDC &#41;\n	LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n\n	IF IsAppThemed&#40;&#41;\n		DrawPBack&#40; &#58;&#58;hWnd,  hDC &#41;\n	ENDIF\n\nRETURN &#58;&#58;oBrush&#58;hBrush\n[/code:pscbmbt1]\n\nsalu2\ncarlos vargas','',0,'AIA=','pscbmbt1',1,0,'',110,0,0),(6952,1656,6,362,0,'200.168.52.156',1139595320,1,0,1,1,1,1,'','','//-&gt; Mira tu BUILDH.BAT si esta como este.\n\n\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for xHarbour 2.7 - November 2005        xHarbour development power ³Ü\nECHO ³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\xharbour\nset bcdir=c:\\borland\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho ..\\lib\\Fivehx.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib                  + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib                   + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib                + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib                 + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib                + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib                  + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib               + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib               + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib               + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib                + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib                + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib               + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib                   + &gt;&gt; b32.bc\necho %hdir%\\lib\\ct.lib                   + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbct.lib                 + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbcomm.lib               + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n\nrem uncomment this line to use the debugger and comment the following one\nrem %bcdir%\\bin\\ilink32 -Gn -Tpe -s -v @b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32.bc\n\nrem delete temporary files\n@del %1.c\n@del %1.il?\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\n:LINKERROR\nrem if exist meminfo.txt notepad meminfo.txt\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT','',0,'','2jhyoft1',1,0,'',362,0,0),(6953,1667,6,396,0,'201.242.36.17',1139595779,1,0,1,1,1,1,'','DLL de WS 16 a PellesC 32','Hola a todos, tengo el siguiente problema:\n\nmis .dll que hice con WS para FW las estoy llevando a 32, hice como lei en una nota: primero las pase a .rc y tambien a .res, luego las abri con PellesC y no dieron errores, luego hice SAVE AS para salvarlas a 32 y no hubo error, pero cuando estoy compilando con HARBOUR usando VERCE 4.3, dice NO ENCUENTRA O FALTA windows.h, como si fuera 1 include, espero sus ayuda o si se me salto algo en esta miracion, o si pudiecen explicar la forma de migrar de WS a PellesC.gracias de entemano.','',0,'','ed1s4j8f',1,0,'',396,0,0),(6954,1656,6,21,0,'80.58.49.235',1139596100,1,0,1,1,1,1,'','','Hola karinha,\n\nEse el build para xharbour. Con xharbour funciona perfectamente.\n\nEs con harbour con lo que no funciona','',0,'','je7cc1e9',1,0,'',21,0,0),(6955,1659,6,21,0,'80.58.49.235',1139596423,1,0,1,1,1,1,'','','Hola Antonio,\n\nAl reinstalar fwh y xharbour (el del enlace que has puesto hoy en el foro) ya no me da el error del OMF\n\nGracias por tu tiempo','',0,'','n2q68sad',1,0,'',21,0,0),(6956,1662,6,41,0,'166.114.252.26',1139596671,1,0,1,1,1,0,'','','Rene, \n\ngracias por el interes, abajo adjunto el mencionado archivo de configuracion que esta en el mismo directorio de la aplicacion (le quite parte de los comentarios para bajar el peso del mensaje)\n\nNo se que podria ser, espero tengas alguna idea\n\nsaludos y gracias\n\nMarcelo\n\n\n[SETTINGS]\n;              Advantage Local Server configuration file\n\n; Number of Connections\n; Default = 20; Range = 1 - No upper limit\nCONNECTIONS=20\n;\n; Number of Tables\n; Default = 50; Range = 1 - No upper limit\nTABLES=50\n;\n; Number of Index Files\n; Default = 75; Range = 1 - No upper limit\nINDEXES=75\n;\n; Number of Data Locks\n; Default = 500; Range = 1 - No upper limit\nLOCKS=500\n;\n; Maximum Size of Error Log (in KBytes)\n; Default = 1000 KBytes; Range = 1 KByte - No upper limit\nERROR_LOG_MAX=1000\n;\n; Error Log and Assert Log Path\n; Default = C:\\\nERROR_ASSERT_LOGS=\n;\nANSI_CHAR_SET=\n;\nOEM_CHAR_SET=\n;\n; Local File Flush Frequency (in milliseconds)\n; Default = 20000 ms (20 seconds); Range = 0 ms - No upper limit\nFLUSH_FREQUENCY=20000\n;\nLOWERCASE_ALL_PATHS=','',0,'','260c85fy',1,0,'',41,0,0),(6957,1664,3,2,0,'87.218.146.192',1139596688,1,0,1,1,1,1,'','','Maurizio,\n\nIs it using FWH 2.7 February build ?','',0,'','3s6whuu4',1,0,'',2,0,0),(6958,1659,6,2,0,'87.218.146.192',1139596792,1,0,1,1,1,1,'','','Fernando,\n\nme alegro de que esté solucionado.','',0,'','34fhgbqe',1,0,'',2,0,0),(6960,1659,6,21,0,'80.58.49.235',1139597011,1,0,1,1,1,1,'','','Hola Antonio,\n\nEsta arreglado la compilación con xharbour. Pero con harbour sigue dando el error que te comente.','',0,'','2jx6iq1c',1,0,'',21,0,0),(6961,1656,6,2,0,'87.218.146.192',1139597534,1,0,1,1,1,1,'','','Fernando,\n\nConfirmado. Curiosamente compila FWH entero sin problemas. Es en ese ejemplo en concreto.\n\nPor lo visto es un error de harbour. Vamos a reportarlo a la lista de Harbour.','',0,'','vrohitdj',1,0,'',2,0,0),(6962,1664,3,362,0,'200.168.52.156',1139597921,1,0,1,1,1,1,'','','RETURN( .T. )','',0,'','h0t2we2g',1,0,'',362,0,0),(6963,1649,3,303,0,'68.7.28.54',1139597989,1,0,1,1,1,0,'','','Ehab,\n\nCheck for a fild called: BCC32.CFG in the BCC55\\bin directory. If there isn\'t one then create one. Put the paths in it similar to this:\n\n-I\"c:\\bcc55\\include;c:\\fwh\\include;c:\\harbour\\include\"\n-L\"c:\\bcc55\\lib\"\n\nI had problems with paths until I did this.\n\nJames','',0,'','10txizro',1,0,'',303,0,0),(6964,1653,3,303,0,'68.7.28.54',1139598352,1,0,1,1,1,0,'','','I don\'t understand why you are using PADR(). This will put trailing spaces onto your filename, which is what you don\'t want. Use rtrim() instead.\n\nJames','',0,'','1b4b0zle',1,0,'',303,0,0),(6965,1659,6,2,0,'87.218.146.192',1139598703,1,0,1,1,1,1,'','','Si, lo he comprobado. Es posiblemente debido a unos cambios que ha introducido Przemek.\n\nSin embargo FWH compila entero sin problemas.','',0,'','2x6i039r',1,0,'',2,0,0),(6966,1662,6,41,0,'166.114.252.26',1139598882,1,0,1,1,1,0,'','','Mas pistas,\n\nsi utilizo SQL, y creo primero una tabla temporal la cosa va mucho mas rapido, esto es un ejemplo\n\n      AdsConnect( \".\\data\\\"  ,1)\n      adsRightsCheck( .F. )\n\n      Select 100\n      ADSCreateSQLStatement(\"SQLarea\",3)\n\n      AdsExecuteSqlDirect( \" select * into #temo from dbf \" )\n      sqlarea -&gt; ( DBCLOSEAREA() )\n      ADSCreateSQLStatement(\"SQLarea\",3)\n      AdsExecuteSqlDirect( \" update #temp set field1=field2\" )\n\n\nesto va miles que digo millones de veces mas rapido\n\nque raro?????????? creo que debere escribir al foro de xHarbour, solo que mi problema sera que no podre actualizarme con el ultimo xHarbour creo ya que utilizo FWH 2.6 de abril 2005\n\nsaludos','',0,'','67u2jgdb',1,0,'',41,0,0),(6967,1664,3,2,0,'87.218.146.192',1139598968,1,0,1,1,1,1,'','','Maurizio,\n\n[code:37koe8fg]\nMETHOD EraseBkGnd&#40; hDC &#41; CLASS TCheckBox\n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   if IsAppThemed&#40;&#41; &#46;and&#46; ! &#58;&#58;lTransparent\n      return 1\n   endif   \n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41;\n[/code:37koe8fg]','',0,'AIA=','37koe8fg',1,0,'',2,0,0),(6968,1665,6,2,0,'87.218.146.192',1139599061,1,0,1,1,1,1,'','','Francisco,\n\nMira que los defines al comienzo del PRG no termine ninguno en \"L\".','',0,'AIA=','hubnxqbb',1,0,'',2,0,0),(6969,1650,6,2,0,'87.218.146.192',1139599122,1,0,1,1,1,1,'','','Oscar,\n\nbien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','kn57ywts',1,0,'',2,0,0),(6970,1268,3,382,0,'80.140.208.204',1139600295,1,0,1,1,1,1,'','','thanks, that works!','',0,'AIA=','1tny3eo3',1,0,'',382,0,0),(6971,1667,6,255,0,'200.67.175.250',1139601934,1,0,1,1,1,1,'','','Si usas VERCE, selecciona como tipo de recursos .RES\ncon eso no deberás tener problemas.\n\ny modifica tus recursos usando el PellesC y el archivo .RES\n\n]Saludos','',0,'AIA=','f3wmtgyk',1,0,'',255,0,0),(6972,1624,3,303,0,'68.7.28.54',1139602151,1,0,1,1,1,0,'','','Enrico,\n\nCould you explain what that bug is causing or not causing?\n\nJames','',0,'AIA=','2dfj4l2z',1,0,'',303,0,0),(6973,1666,6,54,0,'201.135.253.152',1139602660,1,0,1,1,1,1,'','Re: WINDOW(VENTANA) INVISIBLE, COMO HACER?','[quote=&quot;karinha&quot;:4cre7wrt]Buenas...\n\nComo jo Tengo ke hacer Para ke Una Window(ventana), si kede Invisible??\n\nO ke mi falta hacer en el ejemplo abajo?\n\n   DEFINE WINDOW oWnd FROM 6, 6 TO 20, 70                                     ;\n          NOZOOM                                                              ;\n          NOICONIZE                                                           ;\n          NOSYSMENU                                                           ;\n          NO CAPTION                                                          ;\n          BORDER NONE\n\n   DEFINE TIMER oTimerPorta                                                   ;\n          INTERVAL 500 OF oWnd                                                ;\n          ACTION Ler_Porta()\n\n   WndCenter( oWnd:hWnd )\n\n   ACTIVATE WINDOW oWnd\n\nDesde ya, muchas gracias a todos. Saludos.[/quote:4cre7wrt]\n\nHaber si entendí.\n\n   DEFINE WINDOW oWnd FROM 6, 6 TO 20, 70                                     ;\n          NOZOOM                                                              ;\n          NOICONIZE                                                           ;\n          NOSYSMENU                                                           ;\n          NO CAPTION                                                          ;\n          BORDER NONE\n\n   DEFINE TIMER oTimerPorta                                                   ;\n          INTERVAL 500 OF oWnd                                                ;\n          ACTION Ler_Porta()\n\n   WndCenter( oWnd:hWnd )\n\n   [color=red:4cre7wrt]oWnd:Hide()[/color:4cre7wrt]\n\n   ACTIVATE WINDOW oWnd\n\nEspero te sirva.','',0,'gg==','4cre7wrt',1,0,'',54,0,0),(6974,1644,1,418,0,'83.153.40.105',1139603516,1,0,1,1,1,0,'','','Hi\ni don\'t know how to assign a proper size to my combobox.\nAll others controls (listbox, edit....) work well.\nThanks','',0,'gg==','2try20x0',1,0,'',418,0,0),(6975,1664,3,382,0,'80.140.210.137',1139604043,1,0,1,1,1,1,'','','I had the same problem with tsay and Fwh27Feb (missing \"default ltransparent := .F.)','',0,'gg==','3727qb8h',1,0,'',382,0,0),(6976,1666,6,362,0,'200.168.52.156',1139604637,1,0,1,1,1,1,'','','Gracias, William Morales, pero el Brush no desaparece... Mismo ke jo use BRUSH NULL, no funciona.\n\nSaludos.','',0,'gg==','1ytovtiq',1,0,'',362,0,0),(6977,1664,3,362,0,'200.168.52.156',1139605664,1,0,1,1,1,1,'','','[quote=&quot;fp&quot;:f2syamfr]I had the same problem with tsay and Fwh27Feb (missing \"default ltransparent := .F.)[/quote:f2syamfr]\n\n#ifndef _SSAY_CH\n#define _SSAY_CH\n\n/*----------------------------------------------------------------------------//\n!short: SENSITIVE SAY  */\n\n#xcommand REDEFINE SENSITIVE SAY [&lt;oSSay&gt;] ;\n             [ &lt;label: PROMPT, VAR&gt; &lt;cText&gt; ] ;\n             [ PICTURE &lt;cPict&gt; ] ;\n             [ ID &lt;nId&gt; ] ;\n             [ &lt;dlg: OF,WINDOW,DIALOG &gt; &lt;oWnd&gt; ] ;\n             [ ACTION &lt;uAction,...&gt; ] ;\n             [ &lt;lCenter: CENTERED, CENTER &gt; ] ;\n             [ &lt;lRight:  RIGHT &gt; ] ;\n             [ &lt;lBottom: BOTTOM &gt; ];\n             [ &lt;color: COLOR,COLORS &gt; &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ;\n             [ COLOROVER &lt;nClrOver&gt; ] ;\n             [ &lt;update: UPDATE &gt; ] ;\n             [ FONT &lt;oFont&gt; ] ;\n             [ CURSOR &lt;oCursor&gt; ] ;\n             [ &lt;lShaded: SHADED, SHADOW &gt; ] ;\n             [ &lt;lBox:    BOX &gt; ] ;\n             [ &lt;lRaised: RAISED &gt; ] ;\n             [ &lt;lTransparent: TRANSPARENT &gt; ] ;\n             [ &lt;lLight: LIGHT &gt; ] ;\n             [ ON MOUSEOVER &lt;uMOver&gt; ] ; \n       =&gt; ;\n          [ &lt;oSSay&gt; := ] TSSay():ReDefine( &lt;nId&gt;, &lt;{cText}&gt;, &lt;oWnd&gt;, &lt;cPict&gt;, ;\n             [\\{|Self|&lt;uAction&gt;\\}], &lt;.lCenter.&gt;, &lt;.lRight.&gt;, &lt;.lBottom.&gt;, ;\n             &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;nClrOver&gt;, &lt;.update.&gt;, &lt;oFont&gt;, &lt;oCursor&gt;, ;\n             &lt;.lShaded.&gt;, &lt;.lBox.&gt;, &lt;.lRaised.&gt;, &lt;.lTransparent.&gt;, [{||&lt;uMOver&gt;}], &lt;.lLight.&gt; )\n\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; SENSITIVE SAY [ &lt;oSSay&gt; &lt;label: PROMPT,VAR &gt; ] &lt;cText&gt; ;\n             [ PICTURE &lt;cPict&gt; ] ;\n             [ &lt;dlg: OF,WINDOW,DIALOG &gt; &lt;oWnd&gt; ] ;\n             [ FONT &lt;oFont&gt; ]  ;\n             [ CURSOR &lt;oCursor&gt; ] ;\n             [ &lt;lCenter: CENTERED, CENTER &gt; ] ;\n             [ &lt;lRight:  RIGHT &gt; ] ;\n             [ &lt;lBottom: BOTTOM &gt; ];\n             [ &lt;lBorder: BORDER &gt; ] ;\n             [ &lt;lPixel: PIXEL, PIXELS &gt; ] ;\n             [ &lt;color: COLOR,COLORS &gt; &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ;\n             [ COLOROVER &lt;nClrOver&gt; ] ;\n             [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n             [ ACTION &lt;uAction,...&gt; ] ;\n             [ &lt;design: DESIGN &gt; ] ;\n             [ &lt;update: UPDATE &gt; ] ;\n             [ &lt;lShaded: SHADED, SHADOW &gt; ] ;\n             [ &lt;lBox: BOX &gt; ] ;\n             [ &lt;lRaised: RAISED &gt; ] ;\n             [ &lt;lTransparent: TRANSPARENT &gt; ] ;\n             [ &lt;lLight: LIGHT &gt; ] ;\n             [ ON MOUSEOVER &lt;uMOver&gt; ] ; \n      =&gt; ;\n          [ &lt;oSSay&gt; := ] TSSay():New( &lt;nRow&gt;, &lt;nCol&gt;, &lt;{cText}&gt;,;\n             [&lt;oWnd&gt;], [&lt;cPict&gt;], &lt;oFont&gt;, &lt;oCursor&gt;, ;\n             [\\{|Self|&lt;uAction&gt;\\}], &lt;.lCenter.&gt;, &lt;.lRight.&gt;, &lt;.lBottom.&gt;, &lt;.lBorder.&gt;,;\n             &lt;.lPixel.&gt;, &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;nClrOver&gt;, &lt;nWidth&gt;, &lt;nHeight&gt;,;\n             &lt;.design.&gt;, &lt;.update.&gt;, &lt;.lShaded.&gt;, &lt;.lBox.&gt;, &lt;.lRaised.&gt;,;\n             &lt;.lTransparent.&gt;, [{||&lt;uMOver&gt;}], &lt;.lLight.&gt; )\n\n#Endif','',0,'gA==','f2syamfr',1,0,'',362,0,0),(6978,1640,3,419,0,'198.54.202.210',1139606121,1,0,1,1,1,0,'','','Ok, Ok, I get it.  I like surprises.  You\'re not going to respond to this message thread so that you can surprise us all with the next build? Right?\n\nI can just see it now in \'Whats New?\'\n\nIt should go something like this:\n\n* Enhancement: TWBROWSE and TLISTBOX now fully XP Theme Aware.\n\nRight?\n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks.\n\nDale.','',0,'gA==','18schnh9',1,0,'',419,0,0),(6979,1665,6,61,0,'201.217.163.253',1139607097,1,0,1,1,1,0,'','','Francisco:\n\nHe tenido el mismo problema que tu.\n\nSi llegas a encontarrle la solucion \nserías tan amable de enviarme\nun OBJ.\n\nUso FWH2.7 Febrero y Harbour\n\nDisculpa y Gracias.\n\nRuben Fernandez.','',0,'gA==','2iltr1si',1,0,'',61,0,0),(6980,1476,20,29,0,'87.7.175.25',1139610661,1,0,1,1,1,0,'','','x Piscitelli:\n\nper risolvere il problema di una eventuale pagina rimasta aperta che ti impedisce di visualizzare correttamente la successiva anteprima, sostituisci il metodo startpage con questo allegato.\n\nSi tratta in pratica di verificare se esiste già un file con un certo nome prima di utilizzarlo per il metafile. Se esiste ne utilizzo un altro.\n\nCiao\n\nMarco\n\nMETHOD _StartPage() CLASS TPrinter\n\n   local lSetFixed,i,cWmfFileName\n\n   if ::hDC == 0\n      return nil\n   endif\n\n   lSetFixed := Set( _SET_FIXED, .F. )\n\n   if !::lMeta .and. ! ::lStarted\n      ::lStarted := .T.\n      StartDoc( ::hDC, ::cDocument )\n   endif\n\n   ::nPage++\n\n\n   if ::lMeta\n      for i:=1 to 9999\n          cWmfFileName:=::cDir + \"\\tmp\" + PadL( i, 4, \"0\" ) + \".wmf\"\n          if .not. file(cWmfFileName)\n                exit\n          endif\n       next\n\n      AAdd( ::aMeta, cWmfFileName)\n      ::hDCOut := CreateMetaFile( ATail( ::aMeta ) )\n   else\n      StartPage( ::hDC )\n   endif\n\n   Set( _SET_FIXED, lSetFixed )\n\nreturn nil','',0,'gA==','1xgarkhh',1,0,'',29,0,0),(6981,1665,6,73,0,'201.133.246.32',1139610723,1,0,1,1,1,0,'','Re: buttonBmp','Gracias Antonio solucionado !!\n\nRuben en el button.prg en esto defines\n   #define BS_LEFT         0x00000100\n   #define BS_RIGHT        0x00000200\n   #define BS_TOP          0x00000400\n   #define BS_BOTTOM       0x00000800\n   #define BS_MULTILINE    0x00002000\n\nhay que quitarle la \"L\" que viene al final\nsaludos','',0,'gA==','ksgbstjf',1,0,'',73,0,0),(6982,1585,20,29,0,'87.7.175.25',1139610951,1,0,1,1,1,0,'','','Puoi visualizzare il tuo documento come layout di stampa nel seguente modo (farina del sacco di EMG..)\n\n#define wdPrintView  3 \n\n\nFUNCTION MAIN() \n\n    LOCAL oWord \n\n    TRY \n        oWord = GETACTIVEOBJECT( \"Word.Application\" ) \n    CATCH \n        oWord = CREATEOBJECT( \"Word.Application\" ) \n    END \n\n    oWord:Documents:Add() \n\n    oWord:ActiveDocument:ActiveWindow:View:Type = wdPrintView \n\n    oWord:Visible = .T. \n\n    RETURN NIL\n\nTestato su office 2000 e successivi.\n\nCiao\n\nMarco','',0,'gA==','3sh16gt4',1,0,'',29,0,0),(6983,1644,1,2,0,'87.218.146.14',1139611043,1,0,1,1,1,1,'','','aEval(oDlg:aControls,{|u| u:SetSize(u:nWidth*LARGEURFENETRE/LARGEURDIALOG,If( Upper( u:ClassName() ) == \"TCOMBOBOX\", 3, 1 ) * u:nHeight*HAUTEURFENETRE/HAUTEURDIALOG),; \n\nchange 3 with other values','',0,'gA==','246kb559',1,0,'',2,0,0),(6984,1640,3,6,0,'87.6.213.224',1139611414,1,0,1,1,1,1,'','','TListBox class is [b:3dq2bf8k]already[/b:3dq2bf8k] theme aware.\n\nEMG','',0,'QA==','3dq2bf8k',1,0,'',6,0,0),(6985,1665,6,255,0,'200.67.175.250',1139612166,1,0,1,1,1,1,'','','Francisco\n\nMe puedes enviar los archivos porfavor ???','',0,'QA==','2k8v1x5b',1,0,'',255,0,0),(6986,1624,3,6,0,'87.6.213.224',1139612198,1,0,1,1,1,1,'','','It\'s hard to say. The wrong handle is passed to SelectObject() API. At least the brush is just not activated. At worst we have a resource leak or similar unpleasant effects.\n\nEMG','',0,'QA==','3nyt1omq',1,0,'',6,0,0),(6987,1668,3,339,0,'200.216.84.170',1139613304,1,0,1,1,1,0,'','todbcdirect','Some People Knows As firebird DB with this Class., But can´t open DBF TEMP to using LISTBOX\n\n\n Thanks..','',0,'QA==','19tw0oxo',1,0,'',339,0,0),(6988,1651,3,379,0,'59.167.109.65',1139613383,1,0,1,1,1,0,'','tDBF Class','Yes, Boris that would be great.  My email for send is [color=blue:jb1vywr2]grumpy@internode.on.net [/color:jb1vywr2] I really appreciate it.\n\nThank You\nGerry','',0,'Ag==','jb1vywr2',1,0,'',379,0,0),(6989,1665,6,61,0,'201.217.163.253',1139613992,1,0,1,1,1,0,'','','Gracias Francisco.\n\nSaludos cordiales\n\nRuben Fernandez','',0,'Ag==','3emqb3yx',1,0,'',61,0,0),(6991,1669,4,213,0,'72.177.228.25',1139617127,1,0,1,1,1,0,'','Date/Time Control?','All,\n\nIs there a way to use the native calendar control or is there any kind of datapicker in FW for Pocket PC?\n\nThanks,\nRandal Ferguson','',0,'Ag==','2t2dcf11',1,0,'',213,0,0),(6992,1640,3,303,0,'68.7.28.54',1139617866,1,0,1,1,1,0,'','','Dale,\n\nSome of the items you mentioned you can do now. These features have been available for as long as I can remember.\n\n4 - The option to choose whether or not you want lines displayed between each record or field (although this is not critical in my opinion).\n\nTo turn off lines:\n\noLbx:nLineStyle:= 0\n\n#define LINES_NONE	0\n#define LINES_BLACK	1\n#define LINES_GRAY	2  // inactive caption color\n#define LINES_3D		3\n#define LINES_DOTED	4   // black, vertical solid, horz dotted\n\nNew in ver 2.1\n- 5: Only vertical black lines\n- 6: Only vertical gray lines\n- 7: Only horizontal black lines\n- 8: Only horizontal gray lines\n \n\n5 - Correct alignment of the vertical lines between fields in relation to their headings (the vertical lines have always been slightly offset to the right since FiveWin 2.2 and does not look very nice).\n\nActually, this is a optical illusion. If you do a screen capture and enlarge it you will see that the line is right between the columns. The problem is that there is a black shadow drawn on the left and bottom sides of the previous column header (to make it 3d). The vertical black line on the previous header makes it seem that the vertical line between the columns is in the wrong place. However, I never even noticed this until you mentioned it, so I doubt many of your users have.\n\n3 - Correct operation of the vertical scroll bar (been on about this for just as long). \n\nThe only problems with this, that I am aware of, have to do with indexes filters, scopes, and deleted records. The browse has to know how many total records are in the browse to display the scrollbar properly. First you have to build all your indexes for the \'FOR ! DELETED()\" clause. The problem cannot be fixed for conditional indexes if you are using NTXs, because there is no way to get the total number of records in the index (you can get this with CDXs). The problem cannot be fixed when using filters (unless perhaps you made a full pass through the data to do a count before displaying the browse). Perhaps these are the types of problems you are having?\n\nTo color the focused line use these:\n\n   oLbx:nClrForeFocus := CLR_BLACK\n   oLbx:nClrBackFocus := rgb(222,227,231)\n\nUse a paint program to find the RGB colors you want.\n\nOK, I hope those answer a number of your questions.\n\nJames','',0,'Ag==','3n3kwpno',1,0,'',303,0,0),(6993,1640,3,6,0,'87.6.213.224',1139618511,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2zzl88fb]The problem cannot be fixed for conditional indexes if you are using NTXs, because there is no way to get the total number of records in the index (you can get this with CDXs).[/quote:2zzl88fb]\n\nIf I remember correctly, now NTXs and CDXs are very similar and have the same functions (OrdKeyCount() included).\n\n[quote=&quot;James Bott&quot;:2zzl88fb]The problem cannot be fixed when using filters (unless perhaps you made a full pass through the data to do a count before displaying the browse).[/quote:2zzl88fb]\n\nIf I\'m not wrong, OrdKeyCount() respect scopes and filters.\n\nEMG','',0,'gA==','2zzl88fb',1,0,'',6,0,0),(6994,1640,3,303,0,'68.7.28.54',1139619097,1,0,1,1,1,0,'','','Enrico,\n\n[quote:1z3k9phn]If I remember correctly, now NTXs and CDXs are very similar and have the same functions (OrdKeyCount() included). [/quote:1z3k9phn]\n\nGood to know. I assume you mean with (x)Harbour?\n\n[quote:1z3k9phn]If I\'m not wrong, OrdKeyCount() respect scopes and filters. [/quote:1z3k9phn]\n\nScopes, yes, but with filters I don\'t know how it could. Do you mean conditional indexes? I did state that those would work. But with SET FILTER there is no way to get a record count without reading the entire file. Am I wrong?\n\nJames','',0,'gA==','1z3k9phn',1,0,'',303,0,0),(6995,1268,3,303,0,'68.7.28.54',1139619593,1,0,1,1,1,0,'','','This has been an annoying bug in the FW Get for as long as I can remember. It is not standard Windows behavior.\n\nJames','',0,'gA==','3tg0ppdk',1,0,'',303,0,0),(6996,1640,3,6,0,'87.6.213.224',1139620316,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:teqqytt8]Good to know. I assume you mean with (x)Harbour?[/quote:teqqytt8]\n\nYes, both Harbour and xHarbour (they share the same RDDs).\n\n[quote=&quot;James Bott&quot;:teqqytt8]Scopes, yes, but with filters I don\'t know how it could. Do you mean conditional indexes? I did state that those would work. But with SET FILTER there is no way to get a record count without reading the entire file. Am I wrong?[/quote:teqqytt8]\n\nThis is a working sample:\n\n[code:teqqytt8]REQUEST DBFCDX\n\n\nFUNCTION MAIN&#40;&#41;\n\n    RDDSETDEFAULT&#40; &quot;DBFCDX&quot; &#41;\n\n    USE TEST INDEX TEST\n\n    SET FILTER TO FIELD -&gt; last = &quot;A&quot;\n\n    ? ORDKEYCOUNT&#40;&#41;\n\n    CLOSE\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:teqqytt8]\n\nEMG','',0,'gIA=','teqqytt8',1,0,'',6,0,0),(6997,1670,6,341,0,'200.127.71.162',1139620711,1,0,1,1,1,0,'','Ayuda HTML Lib &amp; CLass.lib','Estimado Colegas\n\nEstoy probando la librerira htmlib y cuando voy a compilar los ejemplos\nme pide la libreria Class , alguien me puede decir si tiene una version\nmas nueva de htmllib\n\ndesde ya muchisimas gracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gIA=','6y8lv3ol',1,0,'',341,0,0),(6998,1640,3,303,0,'68.7.28.54',1139620799,1,0,1,1,1,0,'','','Enrico,\n\n[quote:458q5z0s]Yes, both Harbour and xHarbour (they share the same RDDs). [/quote:458q5z0s]\n\nI understand. What I meant was that this must be something new under the Harbour/xHarbour NTX RDD. It was not available under the Clipper NTX RDD.\n\nRegarding your filter example, isn\'t it just counting the records by reading the entire file?\n\nJames','',0,'gA==','458q5z0s',1,0,'',303,0,0),(6999,1640,3,303,0,'68.7.28.54',1139622001,1,0,1,1,1,0,'','','Enrico,\n\nI just did a small test. With a 500,000 record file it took the same amount of time for ordkeycount() and COUNT TO X. So, it seems both are reading the entire file to get the total.\n\nJames','',0,'gA==','33xiizyl',1,0,'',303,0,0),(7000,1671,3,372,0,'83.118.100.14',1139637905,1,0,1,1,1,0,'','oMenu acts differently in February build','Antonio,\n\nit seems the menu items move a little to the right when there is a submenu attached to it, is this intentionally?\n\nSaludos,\n\nJohn.','',0,'gA==','1vf08gdy',1,0,'',372,0,0),(7001,1640,3,419,0,'196.25.255.210',1139644606,1,0,1,1,1,0,'','','Good Morning, and thanks to both of YOU for the replies.\n\n[quote:2m3j5p0w]1 - The ability to set the height of the rows and headings and the text of the headings to be spaced correctly in proportion to the chosen Line Height and chosen Font for the browse. [/quote:2m3j5p0w]\n\nThis needs to be sorted out.\n\nDetlef Hofner very kindly modified WBROWSE.PRG for me about a year ago so that I could pass a parameter oLbx:nLineHeight := nValue and this did work for a time for the most part but it could not space the heading text correctly as apparantely the heading text is drawn by WBRWLINE.C (the heading text would just move down and not center between the horizontal lines of the heading.  Changing the font also caused problems when calculating the correct spacing between the horizontal lines of the browse).\n\nI did try and make sense of the changes that he made and attempted to implement these changes into subsequent releases of WBROWSE.PRG but eventually the files became too different and again, for someone with my limited knowledge of the internal workings of FWH, making these changes to the FWH source became more time consuming than I could afford and I was always nervous that I would be messing with some or the other new function or fix that was part of a newer release of WBROWSE.PRG.\n\nFor this reason I really think that these changes need to be incorporated as standard BY THE DEVELOPER.\n\n[quote:2m3j5p0w]2 - The headings to appear the same as any other XP application that has a data browse (like MS Outlook for example) i.e. underlined when mouse is moved over them just like FiveWin Win32 Headers.[/quote:2m3j5p0w]\n\nReally needs to be implemented BY THE DEVELOPER.\n\n[quote:2m3j5p0w]3 - Correct operation of the vertical scroll bar (been on about this for just as long). [/quote:2m3j5p0w]\n\nThe main problems are as follows:\n\nWhen adding a new record I have to do some fancy footwork to ensure that the vertical scroll bar stays in synch with the database.  The only way that I can do this is by including the following code immediately after adding my new record:\n\noLbx:GoBottom( )\noLbx:GoTop( )\nDBSeek( Key Of Newly Added Record )\noLbx:VSetPos( OrdKeyNo( ) )\noLbx:Refresh( )\n\nJust try to add a record without this code and see what happens.  The new record is added and displayed and the vertical scroll bar appears to be in synch but immediately press the Up Arrow key after adding the new record and the scroll bar indicator (I forget what the little block is called) jumps right to the top of the scrollbar and from then on is out of synch with the database until you press End, Ctrl Page Down or Up, Home, etc. etc. which seems to resynch it.\n\nMy workaround code (above) results in much jumping around of the scroll bar after adding a new record and this just looks silly and results in every new user that uses something of mine saying \'what happened there when I clicked OK\'!\n\nUsing my workaround (above) a newly added record is always displayed as the first record at the top of the browse (after all the movement has taken place although this ensures that the scroll bar is back in synch with the database).  Your new record should be displayed at the current position of the scroll bar highlight bar i.e. sort of inserted at the current position of the scroll bar highlight.\n\nAnother even simpler problem to replicate is to open a browse, press End or Control End (puts you at the last record) and then press Down Arrow.  Now move up with the Up Arrow key or Mouse and you will find that now your scrollbar is one record behind the database and remains so until you press End, Control End, etc. etc. The same applies when using the opposites of Home, Control Home, etc. etc.\n\n[quote:2m3j5p0w]The only problems with this, that I am aware of, have to do with indexes filters, scopes, and deleted records.[/quote:2m3j5p0w]\n\nIf we have to be constantly aware these conditions and have to constantly make allowances for them when displaying a basic browse of our data then we have problems.\n\nThe fact of the matter is that when I display my data using a browse it should display it any way I want it and in order that I want it and the scrollbar should be in synch with the database at any given time.\n\nSorry - I know that I appear to be coming down really hard on this but the ability to be able to browse databases correclty really is not  a \'nice to have\' but rather a necessity.\n\n[quote:2m3j5p0w]5 - Correct alignment of the vertical lines between fields in relation to their headings (the vertical lines have always been slightly offset to the right since FiveWin 2.2 and does not look very nice). \n\nActually, this is a optical illusion. If you do a screen capture and enlarge it you will see that the line is right between the columns. The problem is that there is a black shadow drawn on the left and bottom sides of the previous column header (to make it 3d). The vertical black line on the previous header makes it seem that the vertical line between the columns is in the wrong place. However, I never even noticed this until you mentioned it, so I doubt many of your users have. [/quote:2m3j5p0w]\n\nIt has been noticed on more than one occasion believe it or not.\n\nI am going to try experimenting with the line styles so maybe this is not an issue.\n\nRegards,\n\nDale.','',0,'gA==','2m3j5p0w',1,0,'',419,0,0),(7002,1672,6,54,0,'201.135.253.152',1139645060,1,0,1,1,1,1,'','TIMER','Amigos,\n\nAlguien podria auxiliarme para inicializar un timer.\n\nExplico.\n\nDefino un timer en mi aplicación, y pulsando cualquier tecla el timer este en cero (0) y si no toco ninguna tecla, pues que el timer ejecute la accion en el tiempo definido.\n\nEspero haberme explicado.\n\nGracias de antemano','',0,'gA==','1awu11xr',1,0,'',54,0,0),(7003,1644,1,418,0,'83.153.40.105',1139646042,1,0,1,1,1,0,'','','Yeahh everything works.\nThanks Antonio, your are full of genius\nSaludos et merci','',0,'gA==','2gizpqvv',1,0,'',418,0,0),(7004,1640,3,303,0,'68.7.28.54',1139647314,1,0,1,1,1,0,'','','Dale,\n\n[quote:2qli97mu]The only problems with this, that I am aware of, have to do with indexes filters, scopes, and deleted records. \n\nIf we have to be constantly aware these conditions and have to constantly make allowances for them when displaying a basic browse of our data then we have problems. \n\nThe fact of the matter is that when I display my data using a browse it should display it any way I want it and in order that I want it and the scrollbar should be in synch with the database at any given time.[/quote:2qli97mu]\n\nWell, if were easy, then we wouldn\'t have jobs. We programmers have to make decsions that cannot be blindly turned over to code. If you are browsing a million record file then put a filter on it, do you want the browse to make the decision to bring everthing to a halt while it drags a million records across the network to count the total number of records in the filter? Without the total, then the scrollbar can\'t figure out where to put the thumbbar. There is no other way, except maybe magic.\n\nIf you exclude deleted records from your indexes and avoid filters, then the scrollbars should work properly.\n\nI will take a look at the behavior problem you descibed when adding a record. I have not noticed it before.\n\nJames','',0,'gA==','2qli97mu',1,0,'',303,0,0),(7005,1671,3,2,0,'87.218.146.14',1139648794,1,0,1,1,1,1,'','','John,\n\nIt is a side effect caused by a recent change.\n\nPlease search for this code in classes\\menu.prg and change it as shown:\n\n     ( /* .f. .and. */ IsWinNT() .and. ! lRoot .and. ! ::lSysMenu ),;','',0,'gA==','2fd7t4r0',1,1139680330,'',2,1,0),(7006,1669,4,2,0,'87.218.146.14',1139648955,1,0,1,1,1,1,'','','Randal,\n\nIts on our to-do list','',0,'gA==','wi7feqat',1,0,'',2,0,0),(7007,1644,1,2,0,'87.218.146.14',1139649115,1,0,1,1,1,1,'','','glad to know its ok','',0,'gA==','2lqbceml',1,0,'',2,0,0),(7008,1664,3,382,0,'80.140.212.217',1139650117,1,0,1,1,1,1,'','','I don\'t find a class TSSAY in FWH?','',0,'gA==','2p4xols3',1,0,'',382,0,0),(7009,1673,6,54,0,'201.135.253.152',1139653874,1,0,1,1,1,1,'','XBROWSE de FWH','Amigos,\n\nUtilizo el siguiente código\n\n[code:3cna4cer]&#58;bKeyDown &#58;= &#123; |nKey| checkKey&#40;nKey&#41; &#125;\n[/code:3cna4cer]\n\nEste codigo no me detecta el teclado numero (keypad), ni las flechas.\n\nHay alguna manera de que el xbrowse me detecte esas teclas.\n\nPor otro lado,\n\nEstoy usando recursos en un dialogo, y muestro bien el xBrowse, pero cuando le activo la busqueda incremental, se borran los encabezados y el margen izquierdo donde se encuentra la flecha indicadora de posicion actual en el momento que empiezo a teclear sobre el xbrowse.\n\nLes comento que uso arreglos.\n\n\nSaludos y Agradeciendole de antemano sus comentarios y ayuda.','',0,'AIA=','3cna4cer',1,0,'',54,0,0),(7010,1671,3,6,0,'82.57.160.55',1139655960,1,0,1,1,1,1,'','','This still is not a fix but seems to solve the problem:\n\n[code:1sj4ynfy]METHOD Add&#40; oMenuItem, lRoot &#41; CLASS TMenu\n\n   DEFAULT lRoot &#58;= &#46;f&#46;\n\n   AAdd&#40; &#58;&#58;aItems, oMenuItem &#41;\n\n   oMenuItem&#58;oMenu = Self\n\n   if ValType&#40; oMenuItem&#58;bAction &#41; == &quot;O&quot; &#46;and&#46; ;\n      Upper&#40; oMenuItem&#58;bAction&#58;ClassName&#40;&#41; &#41; == &quot;TMENU&quot;\n      if oMenuItem&#58;cPrompt != nil\n         AppendMenu&#40; &#58;&#58;hMenu, nOr&#40; MF_POPUP, MF_ENABLED,;\n                          If&#40; oMenuItem&#58;hBitmap != 0 &#46;or&#46; &#40; &#46;f&#46; &#46;and&#46; IsWinNT&#40;&#41; &#46;and&#46; ! lRoot &#46;and&#46; !&#58;&#58;lSysmenu&#41;, MF_OWNERDRAW, 0 &#41;,; //EMG\n                          If&#40; oMenuItem&#58;lHelp, MF_HELP, 0 &#41;,;\n                          If&#40; oMenuItem&#58;lChecked, MF_CHECKED, 0 &#41;,;\n                          If&#40; ! oMenuItem&#58;lActive, MF_GRAYED, 0 &#41;,;\n                          If&#40; oMenuItem&#58;lBreak, MF_BREAK, 0 &#41; &#41;,;\n                     oMenuItem&#58;bAction&#58;hMenu,;\n                     oMenuItem&#58;cPrompt &#41;\n      else\n         AppendMenu&#40; &#58;&#58;hMenu, nOR&#40; MF_POPUP, MF_BITMAP,;\n                          If&#40; oMenuItem&#58;lChecked, MF_CHECKED, 0 &#41;,;\n                          If&#40; ! oMenuItem&#58;lActive, MF_GRAYED, 0 &#41;,;\n                          If&#40; oMenuItem&#58;lHelp, MF_HELP, 0 &#41;,;\n                          If&#40; oMenuItem&#58;lBreak, MF_BREAK, 0 &#41; &#41;,;\n                     oMenuItem&#58;bAction&#58;hMenu, oMenuItem&#58;hBitmap &#41;\n      endif\n      AAdd&#40; aPopups, oMenuItem&#58;bAction &#41;\n   else\n      if oMenuItem&#58;cPrompt != nil\n         AppendMenu&#40; &#58;&#58;hMenu,;\n                     nOR&#40; If&#40; oMenuItem&#58;lActive,;\n                          nOr&#40; MF_ENABLED, If&#40; oMenuItem&#58;hBitmap != 0 &#46;or&#46; ;\n                          &#40; &#46;f&#46; &#46;and&#46; IsWinNT&#40;&#41; &#46;and&#46; ! lRoot &#46;and&#46; ! &#58;&#58;lSysMenu &#41;,; //EMG\n                          MF_OWNERDRAW, 0 &#41; &#41;,;\n                          nOR&#40; MF_DISABLED, MF_GRAYED &#41; &#41;,;\n                          If&#40; oMenuItem&#58;lChecked, MF_CHECKED, 0 &#41;,;\n                          If&#40; oMenuItem&#58;lHelp, MF_HELP, 0 &#41;,;\n                          If&#40; oMenuItem&#58;lBreak, MF_BREAK, 0 &#41; &#41;,;\n                     oMenuItem&#58;nId, oMenuItem&#58;cPrompt &#41;\n      else\n         if oMenuItem&#58;hBitmap != 0\n            #ifdef __XPP__\n               if oMenuItem&#58;lBreak == nil\n                  oMenuItem&#58;lBreak = &#46;f&#46;\n               endif\n            #endif\n            AppendMenu&#40; &#58;&#58;hMenu, nOr&#40; MF_BITMAP,;\n                        If&#40; oMenuItem&#58;lBreak, MF_BREAK, 0 &#41; &#41;,;\n                        oMenuItem&#58;nId, oMenuItem&#58;hBitmap &#41;\n         else\n            AppendMenu&#40; &#58;&#58;hMenu, MF_SEPARATOR, oMenuItem&#58;nId, &quot;&quot; &#41;\n         endif\n      endif\n   endif\n\nreturn nil[/code:1sj4ynfy]\n\nEMG','',0,'AIA=','1sj4ynfy',1,0,'',6,0,0),(7011,1640,3,6,0,'82.57.160.55',1139656339,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2qw27la9]I understand. What I meant was that this must be something new under the Harbour/xHarbour NTX RDD. It was not available under the Clipper NTX RDD.[/quote:2qw27la9]\n\nYes, it was the unvaluable work made by Przemek.\n\nEMG','',0,'gA==','2qw27la9',1,0,'',6,0,0),(7012,1640,3,6,0,'82.57.160.55',1139656400,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3itxzqts]Enrico,\n\nI just did a small test. With a 500,000 record file it took the same amount of time for ordkeycount() and COUNT TO X. So, it seems both are reading the entire file to get the total.\n\nJames[/quote:3itxzqts]\n\nCan you send me your 500,000 record DBF to make some test here?\n\nEMG','',0,'gA==','3itxzqts',1,0,'',6,0,0),(7013,1674,3,67,0,'62.235.24.57',1139656576,1,0,1,1,1,0,'','Error in tSay:erasebkgnd','Hello,\n\nWith the new build i got a error in tSay : \n\n   Error description: Error BASE/1079  Argument error: .OR.\n   Args:\n     [   1] = L   .F.\n     [   2] = U   \n\nStack Calls\n===========\n   Called from: SAY.PRG =&gt; TSAY:ERASEBKGND(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: SAY.PRG =&gt; TSAY:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3139)\n   Called from:  =&gt; SHOWWINDOW(0)\n   Called from: window.prg =&gt; TWINDOW:ACTIVATE(864)\n   Called from: RPREVIEW.PRG =&gt; RPREVIEW(0)\n   Called from: printer.prg =&gt; (b)TPRINTER:TPRINTER(229)\n   Called from: printer.prg =&gt; TPRINTER:PREVIEW(0)\n   Called from: printer.prg =&gt; PRINTEND(937)\n   Called from: PRINTSYS.PRG =&gt; PRINTAF(621)\n   Called from: PrintLst.prg =&gt; FAKTGLOB(996)\n   Called from: HENMAIN.PRG =&gt; (b)BUILDMENU(180)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: window.prg =&gt; TWINDOW:COMMAND(932)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: window.prg =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3139)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TMDIFRAME:ACTIVATE(881)\n   Called from: HENMAIN.PRG =&gt; MAIN(130)','',0,'','26wz78it',1,0,'',67,0,0),(7014,1674,3,67,0,'62.235.24.57',1139657244,1,0,1,1,1,0,'','','Ok , found the answer from antonio :\n\nMETHOD EraseBkGnd( hDC ) CLASS TCheckBox \n\n   DEFAULT ::lTransparent := .f. \n\nFrank','',0,'','2lw71s3w',1,0,'',67,0,0),(7015,1476,20,125,0,'213.140.6.105',1139658688,1,0,1,1,1,0,'','','Se li cancello prima potrebbe succedere che il cliente ha lanciato 2 stampe diverse da 2 programmi fwin32 diversi e quindi gli cancellerei le anteprime.\nForse e\' meglio modificare il metodo suggerito.\n\nGrazie comunque','',0,'','dwkdej7s',1,0,'',125,0,0),(7016,1476,20,6,0,'82.57.160.55',1139661078,1,0,1,1,1,1,'','','[quote=&quot;Piscicelli Zingoni&quot;:3e25ea0e]Se li cancello prima potrebbe succedere che il cliente ha lanciato 2 stampe diverse da 2 programmi fwin32 diversi e quindi gli cancellerei le anteprime.\nForse e\' meglio modificare il metodo suggerito.\n\nGrazie comunque[/quote:3e25ea0e]\n\nSì, certo, pensavo che i files li creassi in una directory temporanea specifica per quell\'applicazione e per quell\'utente.\n\nEMG','',0,'gA==','3e25ea0e',1,0,'',6,0,0),(7017,1666,6,362,0,'200.168.52.156',1139661450,1,0,1,1,1,1,'','','[quote=&quot;oskar&quot;:35notg3z]quita el WndCenter( oWnd:hWnd ) y Prueba dibujar la ventana fuera del area visible FROM -10,-10 to -5, -5\n\nEspero te sirva\n\nSalu2\n\noSkAr[/quote:35notg3z]\n\n\nPERFECTO OSKAR!!! Muchas Gracias. Mui Buena Idea! Saludos.','',0,'gA==','35notg3z',1,0,'',362,0,0),(7018,1675,2,265,0,'80.59.225.15',1139662860,1,0,1,1,1,0,'','Otra de Color en Get','Hola amigos:\nEstoy atascado en lo siguiente:\nQuiero que cuando pierda el foco un get, (Fecha), compruebe si han puesto la fecha de trabajo, si no es así, que el get se ponga de color rojo.\nYo ulitizo la clase Btnget, y he puesto lo siguiente:\n oFe:bLostFocus = { ||iif(cFe&lt;&gt;dfetra,oFe:SetColor( ,RGB(255,56,29)),) }\n- oFe es el get\n- dfetra es la fecha de trabajo\n- cFe es la variable del get (fecha)\nEsto funciona a la segunda, es decir, si le pongo fecha distinta pasa al siguiente get sin cambiar de color, si vuelvo al get y confirmo nuevamente, ahora sí me cambia de color.\nQue tengo que hacer para que me lo haga a la primera ?\n\nUn Saludo\n\nJose Luis','',0,'gA==','1b7lebbm',1,0,'',265,0,0),(7019,1675,2,375,0,'84.122.118.216',1139663746,1,0,1,1,1,1,'','','Intenta:   oFe:SetColor(clr_texto,clr_fondo)','',0,'gA==','v65rgrmp',1,0,'',375,0,0),(7024,1677,7,262,0,'83.97.168.83',1139669461,1,0,1,1,1,1,'','Error en BtnBMP con recursos','Existe un bug con los Btnbmp desde recursos en un dialogo \nme dice que no tiene \n  Message not found\n  tbtnbmp:_Ctooltip\n\nVeo que en codigo esta propiedad no existe .\n\nMe es muy importante , pues tengo que cambiar todo el codigo del programa a dialogos ( Ahora está sobre ventanas y codigo ) .\nEl cambio es debido a que si por algo se me queda el programa detras ( tapado por otro ) , o lo habren dos veces , como lo traigo hacia adelante ? , en el task manager me aparece un programa por cada ventana abierta .\nCon dialogos solo aparece la ventana proncipal , la traigo adelante y listo .','',0,'gA==','1ckvwl63',1,0,'',262,0,0),(7025,1678,3,299,0,'69.65.88.121',1139671562,1,0,1,0,1,0,'','Pasting into a Richtext control','Hi everyone.\n\nI\'m needing to insert richtext formated text into a richtext focused control.  I\'m trying to do it with a cut from one and then paste into the other.\n\nHere is my code:\n[code:16eysqy3]\n	MemoWrit&#40; cFile, cRtfTxt2BInserted &#41;\n	oMcrRtf &#58;= TRichEdit&#40;&#41;&#58;New&#40;&#41;\n	oMcrRTF&#58;LoadRTF&#40; cFile &#41;\n	oMcrRtf&#58;cFileName &#58;= cFile\n	oMcrRtf&#58;SetSel&#40; 0, -1 &#41;\n	oMcrRtf&#58;Copy&#40;&#41;\n\n	logfile&#40; &quot;trace&#46;log&quot;, &#123; cfile, oMcrRtf&#58;GetText&#40;&#41; &#125; &#41; //debuging\n\n	oMcrRtf&#58;End&#40;&#41;\n	ferase&#40; cfile &#41;\n\n	&#58;&#58;oRtf&#58;Paste&#40;&#41;\n	&#58;&#58;oWnd&#58;Setfocus&#40;&#41;\n	&#58;&#58;oRtf&#58;Refresh&#40;&#41;\n	&#58;&#58;oRtf&#58;SetSel&#40; 0, 0 &#41;\n[/code:16eysqy3]\nWhere ::ortf is the focused rtf control where rtf formatted text is to be inserted.  \n\nThe logfile instruction is only to monitor what text is inside oMcrRtf object. It is always empty eventhough cfile contains the rtf text allright.  So obviously when :copy() is executed nothing is copied to the clipboard.  I\'m using :loadRtf( cfile ) in other places in my code without a problem.  Why won\'t it work in this situation?\n\nCan someone help?\n\nThank you,\n\n\n\nReinaldo.','',0,'AIA=','16eysqy3',1,0,'',299,0,0),(7026,1655,3,299,0,'69.65.88.121',1139672434,1,0,1,0,1,0,'','','dpaterso,\n\nAFAIK using ADS server is the best and only real solution.  Once data is owned by the ADS deamon/service users will simply not have access to the dbfs/ntxs/cdxs files and/or directories.  Futhermore, fields in a dbf or the full dbf can be encrypted and only viewed from an application using the ADS RDDS and the decryption password.\n\nI\'ve always been worried of a curious-minded user who starts wondering through the server\'s hd and decides to erase files to see what happens.  With ADS it\'s just not possible.   It seems very secure.\n\nRegards,\n\n\nReinaldo.','',0,'AIA=','3qk0z8it',1,0,'',299,0,0),(7027,1679,6,140,0,'200.11.242.145',1139677138,1,0,1,1,1,0,'','OT: recolector de basura en Clipper 5.2e','Saludos a todos...\n\nSe me ha presentado un problemita de consumo de memoria en un viejo sistema desarrollado con el viejo y querido Clipper 5.2e...\n\nEl caso es que en algunas circunstancias la memoria comienza a bajar hasta que el programa revienta dando el famoso mensaje \"Conventional Memory Exausted\"...\n\nEsto ocurre solo en PC\'s con Windows XP que corren el programa desde una ventana de DOS, pero en los PC\'s que tienen MSDOS6.22 no ocurre.\n\nEn los PC\'s donde se presenta el problema, ya he colocado todo lo que se me ha ocurrido relacionado con la compatibilidad de programas, y lo curioso es que el comando de consola MEM reporta mas de 600k de memoria convencional, y la funcion Memory(0) reporta entre 72K y 74K apenas iniciado el programa.\n\nSe me ocurre forzar el recolector de basura, pero no he encontrado como hacerlo...\n\nAlguna idea???\n\n1 GB de Gracias por adelantado...\n\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'AIA=','m5wo3pua',1,0,'',140,0,0),(7028,1677,7,262,0,'83.97.168.83',1139679441,1,0,1,1,1,1,'','','Comentando la linea de la clase he resuelto el primer problema :\n\n   //::cToolTip  = cToolTip\n\nAhora he de saber que tengo que poner en los recursos en vez button :\n\n\"tBtnBmp\" ya lo he probado y no funciona\n\n-----------------------------------------------\nEditado \n\nMismo fallo que en combobox ( me faltaba el \"OF oDlg\" ) , lo he puesto y a funcionado perfectamente .\nEso si con el comentario de ::cTooltip','',0,'AIA=','1fhe1y42',1,0,'',262,0,0),(7029,1656,6,2,0,'87.218.146.100',1139679801,1,0,1,1,1,1,'','','Fernando,\n\nArreglado el error. Puedes descargar Harbour nuevamente desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbourm.exe\">www.fivetechsoft.com/files/harbourm.exe</a><!-- w -->','',0,'AIA=','wcmyvzp4',1,0,'',2,0,0),(7030,1679,6,2,0,'87.218.146.100',1139679888,1,0,1,1,1,1,'','','Giancarlo,\n\nPrueba con Memory( -1 )','',0,'AIA=','3grry7eq',1,0,'',2,0,0),(7031,1673,6,2,0,'87.218.146.100',1139679951,1,0,1,1,1,1,'','','Oskar,\n\nTe agradecemos todos si publicas esos fixes aqui. Gracias!','',0,'AIA=','1ldy2fel',1,0,'',2,0,0),(7032,1659,6,2,0,'87.218.146.100',1139679988,1,0,1,1,1,1,'','','Fernando,\n\nArreglado el error. Puedes descargar Harbour nuevamente desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbourm.exe\">www.fivetechsoft.com/files/harbourm.exe</a><!-- w -->','',0,'AIA=','268dwaz7',1,0,'',2,0,0),(7033,1624,3,2,0,'87.218.146.100',1139680607,1,0,1,1,1,1,'','','Enrico,\n\nFixed. Thanks,','',0,'AIA=','hicim743',1,0,'',2,0,0),(7034,1668,3,2,0,'87.218.146.100',1139680687,1,0,1,1,1,1,'','','Mauricio,\n\nCould you please provide a small sample to reproduce it ? thanks,','',0,'AIA=','jccpuoh9',1,0,'',2,0,0),(7035,1640,3,6,0,'82.57.160.55',1139683449,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2kqy7s2y]Can you send me your 500,000 record DBF to make some test here?[/quote:2kqy7s2y]\n\nThank you for the utility, James. I make some experiment and you are right, OrdKeyCount() is slow with filters. But we always knew that filters couldn\'t be used with browses. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','2kqy7s2y',1,0,'',6,0,0),(7037,1680,1,161,0,'81.164.212.146',1139689850,1,0,1,1,1,0,'','Auto Fill Combo box','Hello,\n\nIs the a combobox-class with auto-fill, just like in Internet Explorer?\nIm looking for something like that without the possibility to enter something that not exist in the drop-down list.\n\nThanks,\n\nMarc','',0,'gA==','1q8i1cei',1,0,'',161,0,0),(7039,1681,19,123,0,'83.53.62.132',1139694337,1,0,1,1,1,0,'','Aprender a restar','Hola,\n\nDisculpad por el off-topic.  He puesto en mi blog <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> un artículo que pudiera ser interesante para alguno.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2y8j05un',1,0,'',123,0,0),(7040,1680,1,161,0,'81.164.212.146',1139696464,1,0,1,1,1,0,'','','Thanks Oskar,\n\nI get 2 errors while compiling.\nI can\'t find the function RAScan() and Txbrowse()\nI\'m using FW195. Are those functions that are included in the newer version of FW?\n\nRegards,\nMarc','',0,'gA==','211xjq3u',1,0,'',161,0,0),(7041,1640,3,303,0,'68.7.28.54',1139698667,1,0,1,1,1,0,'','','Dale\n\n[quote:24rfgu8z]Using my workaround (above) a newly added record is always displayed as the first record at the top of the browse (after all the movement has taken place although this ensures that the scroll bar is back in synch with the database). Your new record should be displayed at the current position of the scroll bar highlight bar i.e. sort of inserted at the current position of the scroll bar highlight.[/quote:24rfgu8z]\n\nThis is not as simple as it seems. Presumably your browse will be indexed and thus any new record will very likely not belong right where the highlight bar is. So the entire browse has to be redisplayed with the newly added record in it somewhere. When you move the database record pointer behiind the browse, the browse just repaints the screen starting at the current record, thus the newly added record is at the top.\n\nThe alternative would be to calculate which record to put at the top so the new record would appear right were the highlight bar already is, but then the entire set of records is going to change anyhow and I would think this would be just as disconcerting to the user. \n\nJames','',0,'gA==','24rfgu8z',1,0,'',303,0,0),(7042,1675,2,265,0,'80.59.225.15',1139701541,1,0,1,1,1,0,'','','Nada, seguimos necesitando pasar dos veces por el get para que lo pinte en rojo.\nUn saludo\n\nJose Luis','',0,'gA==','1zumr0vx',1,0,'',265,0,0),(7043,1682,3,324,0,'62.38.192.64',1139703340,1,0,1,1,1,0,'','Resource bitmaps on button bar missing?','We are converting the 16-bit FW application to the xHarbour (October05 and FWH december 05\nFor now, it goes well.\n\nHowever, we have a strange problem. We are using RC file to include all resources into EXE. Nothing specialy. \nBut, we have a problem because some of the BITMAP resources are not visible on Button bar.\nIf we change the name of the resource it sometimes helps and btimap is shown, but sometimes not. \nAlso, sometimes the resource bitmap is shown when we change the name, but the other resource bitmap is not shown now, even it was visible why the first  was not? \nAnd not only that, when we now change the resource name of this second bitmap, the third one is not visible, even it was visible all the time, or the first one again not visible (no order)?\nAnd finaly, sometimes when we need to change some resource name to be able to see it at all, it happens that on or more other bitmaps are now not visible....\n\nTotaly confused, any help?\nThe simple code snippet:\n\n[b:23qk0hsx]DEFINE BUTTON oBtn_Changes resource \'BTN_MULTI_CHANGES\' group  OF oBar_3 ;\n             ACTION ( MULTI_CHANGES(), oBrw:Refresh() )               ;        \n             TOOLTIP \"Master File Multi Changes\"                 ;\n             MESSAGE \"Master File Multi Changes\"[/b:23qk0hsx]\n\nOrdinary, but we are stacked...','',0,'QA==','23qk0hsx',1,0,'',324,0,0),(7044,1683,3,379,0,'59.167.115.66',1139706513,1,0,1,1,1,0,'','tree control needed','Does anyone have a working tree control for FW and xHarbour.  Or has anyone successfully compiled Goran Savckic\'s Tree for use with xHarbour, if so could you be so kind as to email me a copy please.\n\n<!-- e --><a href=\"mailto:grumpy@internode.on.net\">grumpy@internode.on.net</a><!-- e -->\n\nThanks in Advance\nGerry','',0,'QA==','x05w6w46',1,0,'',379,0,0),(7045,1683,3,138,0,'200.78.24.111',1139707252,1,0,1,1,1,1,'','','Here you go:\n\n[url:153dtodp]http&#58;//www&#46;google&#46;d2g&#46;com/tree32&#46;zip[/url:153dtodp]','',0,'EA==','153dtodp',1,0,'',138,0,0),(7046,1683,3,138,0,'200.78.24.111',1139707270,1,0,1,1,1,1,'','','Here you go:\n\n[url:9u6zp7ja]http&#58;//www&#46;google&#46;d2g&#46;com/tree32&#46;zip[/url:9u6zp7ja]','',0,'EA==','9u6zp7ja',1,0,'',138,0,0),(7047,1682,3,2,0,'87.218.146.100',1139709092,1,0,1,1,1,1,'','','Boris,\n\n&gt; \'BTN_MULTI_CHANGES\'\n\nWhat other resources names are you using ?','',0,'EA==','1hybg75p',1,0,'',2,0,0),(7048,1683,3,379,0,'59.167.115.66',1139709154,1,0,1,1,1,0,'','Doesn\'t work','The library is not compatible it say Treeview.c was compiled by older version pcode 4 is no longer support - please recompile?\n\nCheers\nGerry','',0,'EA==','2lrirfhp',1,0,'',379,0,0),(7049,1675,2,2,0,'87.218.146.100',1139709170,1,0,1,1,1,1,'','','Jose Luis,\n\noFe:SetColor(clr_texto,clr_fondo)\noFe:Refresh()','',0,'EA==','2aff40ol',1,0,'',2,0,0),(7050,1682,3,303,0,'68.7.28.54',1139715025,1,0,1,1,1,0,'','','Hi Boris, good to hear from you.\n\nI notice that your resource name is quite long. I wonder if there is a name length maximum, especially since WorkShop is 16bit. Perhaps if you shorten all the bitmap names?\n\nJames','',0,'EA==','3b7v4a9e',1,0,'',303,0,0),(7052,1640,3,419,0,'196.25.255.210',1139723062,1,0,1,1,1,0,'','','That is why you are the master!!!\n\nYou are right.  If the database being viewed with the browse is indexed the records would change anyway BUT is it not possible to have the records to change but the highlight bar to stay in its current position until the user moves it?  It becomes disconcerting when the record highlight bar is half way down the screen lets say, you add a new record, and because of my long winded code to keep the scroll bar in synch the listbox gets repainted (what appears to be multiple times) and the record highlight bar (scroll bar jumps) to the first line of the browse (although the scroll bar is in synch).\n\nJust as a matter of interest I do not seem to have problems with deleted records funny enough.  By that I mean that in most of my browses I actually check for the delete key i.e. if pressed the current record is deleted() and redisplayed in red and if already deleted() it is recalled and redisplayed in black again.  This works perfectly and is not the reason that everything else gets blown apart.\n\nI did try your line types and they work perfectly (sorry for not checking before posting).\n\nLook - I suppose that there are some things that I have to live with - I think that maybe just the Win32 Headers, XP Themed i.e. square blue border around browse (like Gets), and setting of line height would suffice.\n\nRegards,\n\nDale.','',0,'EA==','3barclpn',1,0,'',419,0,0),(7053,1655,3,419,0,'198.54.202.210',1139723576,1,0,1,1,1,0,'','','Thanks for the reply.\n\nI have not ever even tried to use ADS Server (although I\'m sure that I\'ll get it sometime).\n\nI appreciate your input.\n\nI was just thinking about a simple encryption like Encrypt() just to sort of scramble the data so that a user that has a basic knowledge of DOS commands cannot go and TYPE a database or use DBU or any other of these utilities to go and change data.  If they are bent on wiping out the entire file then they will do that but they will at least never know what was in the file (and hopefully a backup exists).\n\nThe main concern for the developer would be to ensure that the index keys are not messed up but I think I need to give this a try.\n\nAny other thoughts from anyone?\n\nRegards,\n\nDale.','',0,'EA==','2wf7aajh',1,0,'',419,0,0),(7054,1671,3,372,0,'83.118.100.14',1139724813,1,0,1,1,1,0,'','','Ok, thanks! That solves the problem for now! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','1oqg35mp',1,0,'',372,0,0),(7055,1684,3,419,0,'196.25.255.210',1139727353,1,0,1,1,1,0,'','Menu Command, Shortcut Keys, and Resources','Just discovered something interesting.\n\nThe shortcut key underline or prompt on a menu item is only displayed if the user presses the Alt key i.e. the current menu item is highlighted and the letter that you have defined using \'&amp;\' as the shortcut key is underlined.  If you just use the mouse to select menu items these shortcut key underlines or prompts are not dispayed.\n\nOK so far.\n\nBut if you use the \'Resource\' statement to display a small bitmap to the left of your menu item then that menu item has the shortcut key underline or prompt displayed always - regardless of whether or not you are using the mouse or have used the Alt key to access the menu.\n\nThe end result is that if you have used your mouse to access the menu only those menuitems that use a resource to display a bitmap to the left of the menuitem have the shortcut key underline or prompt displayed.\n\nAny reason for this?\n\nBy the way: what is the correct / recommended size of bitmap to use for a menuitem prompt resource?\n\nRegards,\n\nDale.','',0,'EA==','1h7sgh0d',1,0,'',419,0,0),(7056,1655,3,2,0,'87.218.146.100',1139731938,1,0,1,1,1,1,'','','Dale,\n\nWe have not tried this, but you may do:\n\nINDEX ON ... FOR Decrypt( Alias-&gt;fieldname ) \n\nassuming that the data in Alias-&gt;fieldname is already Encrypt()ed.\n\nThough then the index should be reviewed with a binary viewer, to see if the keys are readable.','',0,'EA==','wipy3li7',1,0,'',2,0,0),(7057,1684,3,2,0,'87.218.146.100',1139732135,1,0,1,1,1,1,'','','Dale,\n\nThe Windows API does not natively support to display a bitmap on a menuitem, so we use \"ownerdraw\" menuitems to paint the bitmap and the text on it. Thats where the difference comes from. We may need to check if there is a message that provides a chance to paint or not the shortcut underscore.\n\nThe bitmap size should be 16x16 pixels.','',0,'EA==','3eevaw55',1,0,'',2,0,0),(7058,1682,3,2,0,'87.218.146.100',1139732214,1,0,1,1,1,1,'','','James,\n\nYes, I agree with you, thats why I asked him for the other resources names. I guess that if he uses shorter ones, the problem will be solved.','',0,'EA==','1rp6sedb',1,0,'',2,0,0),(7059,1684,3,303,0,'68.7.28.54',1139732366,1,0,1,1,1,0,'','','This is an XP issue. XP by default has the alt key underlines turned off until you press the Alt key. You can change this, right-click on the desktop, then Appearance, Effects. Then uncheck the box.\n\nJames','',0,'EA==','2812wfxr',1,0,'',303,0,0),(7060,1640,3,303,0,'68.7.28.54',1139735422,1,0,1,1,1,0,'','','Dale,\n\n[quote:w8ru0tg4]You are right. If the database being viewed with the browse is indexed the records would change anyway BUT is it not possible to have the records to change but the highlight bar to stay in its current position until the user moves it? It becomes disconcerting when the record highlight bar is half way down the screen lets say, you add a new record, and because of my long winded code to keep the scroll bar in synch the listbox gets repainted (what appears to be multiple times) and the record highlight bar (scroll bar jumps) to the first line of the browse (although the scroll bar is in synch). [/quote:w8ru0tg4]\n\nYes it is possible, but may be complicated. First you have to consider all the possible senarios. If you are suggesting that the new record be under the highlight, consider this possibility. If the first record on the screen is the first record in the file, and the new record falls between the first record and the location of the highlight, then you must either move the highlight for it to be over the new record, or not move it, and it won\'t be over the new record. You also have to have some way to communicaate to the browse that you have added a new record to the underlying databae. So, it is not be as easy as it may at first seem.\n\nContrary to your experience, I do see problems with deleted records. When you think about it, it makes sense that you would. When the browse is first initialized, the scrollbar is too--with the range and current position of the highlighted record. If you then go behind the browse and change the number of records by either adding or deleting records, the scrollbar\'s range and current record will then be out of synch. So we need to update the scrollbar.\n\nI have a working modification to TWBrowse that I think will fix this. Preliminary testing shows it working, but I need to do some more testing before I publish it. I will be travelling for the next few days so you may not hear from me until after I am back.\n\nRegarding the headers, you may be interested to note that the new Office 12 applications like Excel and Access do not use the standard windows headers that you are looking for. They use flat headers with a gradient color (also called degraded color). I would prefer to see this capability than the standard headers. I know that you are not interested in using Hernan\'s TSBrowse, but for others who are reading this, TSBrowse can do this style of header.\n\nI, like you, would like to have the line height settable.\n\nI\'m glad the line types are working for you. Did you try coloring the highlight bar yet?\n\nJames','',0,'gA==','w8ru0tg4',1,0,'',303,0,0),(7061,1685,7,413,0,'217.125.9.228',1139735439,1,0,1,1,1,0,'','UESTUDIO Para FWPPC','Finalmente he decidido cambiar a UESTUDIO gracias a tu consejo, estoy empezando a configurar FWH y creo que tampoco habrá problemas para FWPPC. Supongo que tu lo tendrás ya configurado. Tendrias inconveniente en poner la configuración en el foro.\n\nUn Saludo.','',0,'gA==','bvsfvbpy',1,0,'',413,0,0),(7062,1640,3,6,0,'82.55.208.32',1139736361,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:28p8qzbg]Hernan\'s TSBrowse[/quote:28p8qzbg]\n\nHernan\'s TWBrowse (unhappy choice of the name). TSBrowse is of Manuel Mercado.\n\nEMG','',0,'gA==','28p8qzbg',1,0,'',6,0,0),(7063,1682,3,324,0,'62.38.192.64',1139740030,1,0,1,1,1,0,'','','@James\nNice to be again among the friends <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n@Antonio\nYes Antonio, this was my first thought, and will try to shorten the names, even it will be a lots of work, the application is extremly complex and so many resources involved <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nThe funy thing is, 16-bit version of the same app, does not make me any problem... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nI also think the problem is in long resource names, because there is no rule which resource will fail to show up, after I chnage one of the names. Like \"domino effect\" unfortunately...\n\nAnother strange thing I noticed is about the database names when trying to open them:\ndatabase \"boris.DBF.DBF\"   (notice two times .DBF !) opens without problem in 16-bit (Clipper FW) application!? Seams clipper checks first 8 letters up to first occurence of dot in .DBF and then strips out from the END the file extension, so it resolves to \"boris.DBF\"\nxHarbour is more strict, it will try to open \"boris.DBF.DBF\" without stripping out anything and therefore reports an error...\n\nAnyway, I will check the resource names and if it was the problem, hope someone else will be saved of hours of working and searching for problem solution <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','33c7l4ss',1,0,'',324,0,0),(7064,1640,3,419,0,'198.54.202.210',1139741833,1,0,1,1,1,0,'','','Hello again,\n\n[quote:gp57jtpo]Contrary to your experience, I do see problems with deleted records. When you think about it, it makes sense that you would. When the browse is first initialized, the scrollbar is too--with the range and current position of the highlighted record. If you then go behind the browse and change the number of records by either adding or deleting records, the scrollbar\'s range and current record will then be out of synch. So we need to update the scrollbar. [/quote:gp57jtpo]\n\nWhen I delete my records (trapping for the Del key) I am only flagging them for deletion and displaying them in another color and my indexes do not include !Deleted() so that is probably why I do NOT have issues with deleted records (I only permanently remove or pack my databases if a sort of SUPERVISOR or ADMIN user ensures that everybody is out of the network and specifically selects a PACK option from a SYSTEM menu this done because you would be surprised at how many users will accept YES - I AM SURE THAT I WANT TO DELETE THIS RECORD - 10 TIMES and delete the record when they really did not want to delete the record in the first place!!!  Most of our users really need time to think about things and therefore need the facility to change their minds!!!).\n\n[quote:gp57jtpo]Regarding the headers, you may be interested to note that the new Office 12 applications like Excel and Access do not use the standard windows headers that you are looking for. They use flat headers with a gradient color (also called degraded color). I would prefer to see this capability than the standard headers. I know that you are not interested in using Hernan\'s TSBrowse, but for others who are reading this, TSBrowse can do this style of header. [/quote:gp57jtpo]\n\nI would not mind a flat header but the reason that I was thinking that it would be nice to have Win32 Headers is that you could have your database indexed on all of the displayed fields (using tags) and by just clicking on the header you could change the display order of the browse (this does work already for me) but the header that was highlighted would denote which field is currently being used to sort the displayed browse.\n\nNot to mention the fact that having EITHER Win32 Headers or the flat degraded header that you mention OR BOTH would at least CONFORM to SOMETHING and look very polished.\n\nRegards,\n\nDale.','',0,'gA==','gp57jtpo',1,0,'',419,0,0),(7065,1686,3,419,0,'198.54.202.210',1139745658,1,0,1,1,1,0,'','Border around SAY defined in Resource','Does anyone know how to draw a border around a SAY that is defined as a resource.\n\nI am using BRW and the GETs that are defined as resources have a very neat flat blue border around them when displayed from FWH.\n\nIs it possible to display the SAYs with the same flat blue border.\n\nI have tried turning the border on for the resource in BRW (which translates to WS_BORDER in BRW) but when displayed from FWH there is indeed a border but it appears to be RECESSED or 3D and is not a flat blue line border (like the borders of the inputs of XHB Project Builder).\n\nAlso does anyone know the RGB colors used for the \'XP\' BLUE BACKGROUND on the XHB Project Builder?\n\nRegards,\n\nDale.','',0,'gA==','24thtx2q',1,0,'',419,0,0),(7067,1688,7,262,0,'83.97.168.83',1139751385,1,0,1,1,1,1,'','Error en combobox desdes recursos','Pues eso , error con los combobox desde recursos .\nClass NIL as not exported\nmethod\nDEFCONTROL\n\nDebo de pasar todas las ventanas a dialogos  , tanto combobox como btnbmp fallan .\nSaludos.','',0,'gA==','5h5fafk0',1,0,'',262,0,0),(7068,1686,3,6,0,'82.61.28.240',1139759082,1,0,1,1,1,1,'','Re: Border around SAY defined in Resource','As an alternative you can use a disabled GET instead of a SAY.\n\nEMG','',0,'gA==','39dg54vk',1,0,'',6,0,0),(7069,1104,2,75,0,'83.44.96.246',1139761096,1,0,1,1,1,0,'','','Creo que el problema es que no cambias el nombre del fichero a generar para cada factura. \nDebes de generar un fichero pdf con nombre distinto para cada factura, de lo contrario, cada factura que imprime te machaca la anterior por tener el mismo nombre de archivo y por esto solo te sale la última y cuando solo mandas a imprimir te lo hace bien.\n\nSaludos.','',0,'gA==','w50cggg5',1,0,'',75,0,0),(7070,1654,4,289,0,'86.51.0.131',1139761737,1,0,1,1,1,0,'','error in function __pack()','Antonio \nerror in function __pack() \nthe delete record \nhe is running  without pack \nregards \nhathal','',0,'gA==','11f1tyc4',1,0,'',289,0,0),(7071,1682,3,3,0,'82.65.142.19',1139764237,1,0,1,1,1,0,'','','[quote=&quot;Boris&quot;:1p731oce]@James\nNice to be again among the friends <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n@Antonio\nYes Antonio, this was my first thought, and will try to shorten the names, even it will be a lots of work, the application is extremly complex and so many resources involved <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nThe funy thing is, 16-bit version of the same app, does not make me any problem... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nI also think the problem is in long resource names, because there is no rule which resource will fail to show up, after I chnage one of the names. Like \"domino effect\" unfortunately...\n\nAnother strange thing I noticed is about the database names when trying to open them:\ndatabase \"boris.DBF.DBF\"   (notice two times .DBF !) opens without problem in 16-bit (Clipper FW) application!? Seams clipper checks first 8 letters up to first occurence of dot in .DBF and then strips out from the END the file extension, so it resolves to \"boris.DBF\"\nxHarbour is more strict, it will try to open \"boris.DBF.DBF\" without stripping out anything and therefore reports an error...\n\nAnyway, I will check the resource names and if it was the problem, hope someone else will be saved of hours of working and searching for problem solution <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:1p731oce]\n\nBoris\n\nI have a lot of long file names resources in RC files and my xharbour app works quite OK.\n\nWhat are you using Xharbour commercial or xharbour.org ? In both cases, if you have many rc files , you would have to make them look to the linker as one rc file, otherwise you will have dialog errors like you mention. You can use something like this\n\ndefine a rc file name it myprogram.rc\nIn this rc file try to add all the others like the sample below\n\n#include \"CBATIMAN.rc\"\n#include \"CBATIMA.rc\"\n#include \"CBATIDEV.rc\"\n#include \"CBATI.rc\"\n#include \"CBATICOM.rc\"\n#include \"CBATISAV.rc\"\n#include \"CBATIVEH.rc\"\n#include \"CBATIPAY.rc\"\n\n\nHTH\n\nRichard\n\nIf you are using Xharbour commercial, make sure you are not specifying more than one rc file in the xbp file, only first one will be used.','',0,'gA==','1p731oce',1,0,'',3,0,0),(7072,1675,2,375,0,'84.122.118.216',1139768005,1,0,1,1,1,1,'','','Yo tengo oFe:SetColor(...) 10.000 veces en mis programas y me funciona siempre (sin refrescar), algo raro estás interponiendo. De todas formas, eso me ocurre con los SAY y lo he solucionado de la siguiente manera:\n\noSay:SetColor(CLR_TEXTO,CLR_FONDO)\noSay:SetText( oSay:cCaption )                  // del tirón\n\nPara los Get\'s sería:\n\noGet:SetColor(CLR_TEXTO,CLR_FONDO)\noGet:cText( oGet:cText )\n\nAsí no tienes que pasar dos veces por el Get; de una sola vez ejecutas las dos acciones.\n\nSi tienes muchos Get\'s, mételos en un array y haz:\n\nAEVAL(aGet, { |oG| oG:SetColor(CLR_TEXTO,CLR_FONDO),oG:cText( oG:cText) } )\n\nEs más rápido y Ocupa poco código, además al ser una array ocupa menos memoria (Antonio corrigeme si me equivoco)\n\nSuerte','',0,'gA==','j6i8iyxu',1,0,'',375,0,0),(7073,1557,2,375,0,'84.122.118.216',1139768491,1,0,1,1,1,1,'','','Bueno, yo utilizo Corel Draw y Corel PhotoPaint desde hace más de 15 años, lo que pasa es que esos colores lo utilizo mucho porque me gustan, y son muy comunes, sobre todo los de los Get\'s y los he guardado en Colors.ch.\n\nLa idea era que cualquiera los pueda aprovecharse de ellos sin más y sin tener que reencontrarlos a cada vez con Paint, PhotoPaint etc..\n\nGracias de todas formas. Seguro que mucha gente no lo había pensado.','',0,'gA==','1i8ug3kh',1,0,'',375,0,0),(7074,1670,6,138,0,'201.133.73.175',1139768887,1,0,1,1,1,1,'','','Class o HBClass ????','',0,'gA==','25z2idqb',1,0,'',138,0,0),(7075,1686,3,375,0,'84.122.118.216',1139769068,1,0,1,1,1,1,'','','Try to Draw lines and squares around it via oDlg:bPainted.\nUse GetClientRect or something like this','',0,'gA==','2eoldqhh',1,0,'',375,0,0),(7076,1689,7,262,0,'83.97.168.83',1139769804,1,0,1,1,1,1,'','Progress en dialogos','Funcionan ?\nsi es asi como debo de declararlos en el archivo de recursos ?\n\"msctls_progress32\" ? \n\nSi es asi no consigo que funcionen .\n\n----------------------------------------------\neditado ya esta funcionando . \ncoloque el setpos() en el init del dialogo y se arreglo.\n\n\nSaludos.','',0,'gA==','1r1plzpl',1,0,'',262,0,0),(7077,1654,4,2,0,'87.218.146.249',1139769995,1,0,1,1,1,1,'','','Hathal,\n\nDo you have SET DELETE ON ?','',0,'gA==','2ffig2ef',1,0,'',2,0,0),(7078,1690,1,74,0,'190.48.227.26',1139772232,1,0,1,1,1,1,'','Cambiar picture de un get despues de activar un dialogo','Amigos:\n\n             En un dialogo de carga de articulos a facturar, con cantidad, precio unitario, etc, necesito cambiar el picture del precio unitario de 2 o 4 digitos para los decimales segun el rubro que tenga el articulo que se esta facturando (si es combustible necesito 4 digitos, sino 2).\n\n              Esto no funciona:\n\nOT:cPicture:=IF(cRub==1,\"999,999.9999\",\"999,999.99\")\n\n              Por supuesto en la funcion donde se valida el articulo se actualiza esa variable pero no el picture del get, por mas :refresh(), :settext() o lo que sea que se haga con el.\n\n              Necesito algun metodo que \"redefina\" el get para que se entere que cambio el picture.\n\nSaludos,','',0,'gA==','23ino3kt',1,0,'',74,0,0),(7079,1670,6,341,0,'200.127.71.162',1139773384,1,0,1,1,1,0,'','','Estimado Rene\n\nEstoy probando html lib  la ver 1.0 con clipper y en std.lnk esta la libreria\nclass, ahora me gustaria tener la ultima version de htmlib  tanto para clipper\ncomo para xharbour\n\ndesde ya muchas gracias\ndante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gA==','479g7x5w',1,0,'',341,0,0),(7080,1688,7,2,0,'87.218.146.249',1139774165,1,0,1,1,1,1,'','','Jose Luis,\n\nAcabamos de copiar el ejemplo combos.prg desde FWH\\samples a FWPPC. Tan sólo cambiarle el #include \"FWCE.ch\", quitar el SET 3DLOOK y añadir estos valores: \n#define CBS_SIMPLE               1  // 0x0001\n#define CBS_DROPDOWN             2  // 0x0002\n#define CBS_DROPDOWNLIST         3  // 0x0003\n\ny el ejemplo ha funcionado correctamente:\n\n[url=http&#58;//imageshack&#46;us:2gn7nykt][img:2gn7nykt]http&#58;//img48&#46;imageshack&#46;us/img48/7517/combos8qb&#46;png[/img:2gn7nykt][/url:2gn7nykt]','',0,'GA==','2gn7nykt',1,0,'',2,0,0),(7081,1689,7,2,0,'87.218.146.249',1139774330,1,0,1,1,1,1,'','','Jose Luis,\n\nCorrecto. Hasta el ON INIT el control no tiene handle de windows valido y no puede recibir mensajes.','',0,'GA==','3bo7qjj6',1,0,'',2,0,0),(7082,1648,3,34,0,'68.4.154.81',1139775150,1,0,1,1,1,1,'','Another issue ...','I have a screen with folders, and the background for the dialog will display the bitmap, but not the folders.  Here is the code:\n\n   // Create the dialog box for editing\n   DEFINE BRUSH oBrush RESOURCE \"SKY\"\n   DEFINE DIALOG oWdlg1 RESOURCE \"PRO1000\"  BRUSH oBrush transparent OF oWnd FONT oWnd:oFont ;\n      TITLE cTitle\n\n   // Define the folder\n   REDEFINE FOLDER oFld ID 356 OF oWdlg1 ;\n      PROMPT \"&amp;General\", \"&amp;Parts\", \"&amp;Labor\", \"&amp;Recommendations\", \"&amp;Totals\", \"&amp;Job Cost\" ;\n      DIALOGS \"PRO1010\", \"PRO1040\", \"PRO1045\", \"PRO1070\", \"PRO1100\", \"PRO1120\" ;\n      ON CHANGE ( FoldChk( oFld, oDpa, oDla, oWrk ), oWdlg1:update() )\n\nAny ideas on this one ?\n\nTim','',0,'GA==','1obhkj8e',1,0,'',34,0,0),(7083,1688,7,262,0,'83.97.168.83',1139775943,1,0,1,1,1,1,'','','He revisado todo el código y al final el fallo era mio , faltaba en el redefina la clausula \" OF odlg \"  ( o por lo menos eso parece ) que yo pensaba que era opcional .\nPerdón por el reporte erroneo  .\nAhora solo me quedan unas pantallas y listo todo el pollo ...\n(he tenido que cambiar todas las ventanas de la aplicacion por dialogos y lo debo tener para el martes... )\nSaludso.','',0,'GA==','2cpucamp',1,0,'',262,0,0),(7084,1666,6,375,0,'84.122.118.216',1139776080,1,0,1,1,1,1,'','','¿Haz probado ShowWindow(oWnd:hWnd,0) para esconderlo y ShowWindow(oDMain:hWnd,3) para que vuelva a mostrarse tal y como estaba?\nCon dialogos funciona, con el mainwindows no lo sé, a lo mejor sí.','',0,'GA==','ltnysy1y',1,0,'',375,0,0),(7085,1372,7,262,0,'83.97.168.83',1139776160,1,0,1,1,1,1,'','','Una pregunta mal intencionada :\nSi cuando tienes la ventana de entrada de usuario , por un casual , tienes que consultar en la agenda , moverte por el explorador , llamar por telefono ...\n y luego quieres volver a la aplicación , ¿ como lo haces ?','',0,'GA==','1cwnl8fw',1,0,'',262,0,0);
INSERT INTO `phpbb_posts` VALUES (7086,1690,1,375,0,'84.122.118.216',1139776650,1,0,1,1,1,1,'','','Este es un trozo de código de uno de mis programas:\n\n cPic1  := IF(nEuro=1,\"@E 9,999.99\",\"@E 999,999\")\n cPic2  := IF(nEuro=1,\"@E 9999.99\" ,\"@E 999999\" )\n\n DEFINE DIALOG oDLct RESOURCE \"CUOTAS2\" OF oDlg PIXEL FONT oFnt\n\n REDEFINE GET aGet[1] VAR oGet1 ID 134 OF oDLct ;\n WHEN  { || aGet[1]:oGet:Picture:=cPic2 , .T. } ;\n VALID { || aGet[1]:oGet:Picture:=cPic1 , .T. }\n\n...\n\ny me funciona perfectamente.\n\nFijate que en ambos casos, la cantidad de nueves es la misma, quizá esté ahí tu problema. Por si acaso, inicializa las variables con \'o.oo\' en lugar de con \'0\', hay veces que da problemas con los decimales si no se han inicializado adecuadamente.','',0,'','3t9g2g31',1,0,'',375,0,0),(7087,1690,1,375,0,'84.122.118.216',1139777392,1,0,1,1,1,1,'','','Si lo que necesitas es definirlos después que el Dialogo, entonces a lo mejor tendrás que hacerlo dentro de una funcion de inicalización\n\nACTIVATE DIALOG oDlg ON INIT MiFuncionDeIni(oGet)\n...\nfunction MiFuncionDeIni(oGet)\noGet:oGet:Pìcture := .....\nRETURN NIL\n\nAunque en teoría no es necesario.\n\nPor cierto, te has dado cuenta que es oGet:oGet:Picture Y NO oGet:cPicture !!! reminicencias de la clase GET de CLIPPER.','',0,'','3i0heuts',1,0,'',375,0,0),(7088,1691,22,1,0,'201.250.102.178',1139777754,1,0,1,1,1,0,'J. Jaurena','Olvide Usuario y Password','Antonio, te molesto por esta tonteria. No tengo idea de como me di de alta hace ya tiempo. Mi mail es <!-- e --><a href=\"mailto:jjaurena@yahoo.com\">jjaurena@yahoo.com</a><!-- e -->\nDesde ya, muchas gracias.','',0,'','2s43chjy',1,0,'',1,0,0),(7089,1682,3,324,0,'62.38.192.64',1139781920,1,0,1,1,1,0,'','','I have only one RC file and am not sure if is too big maybe... over 150 dialogs defined, and about 70 BMP files listed. The size about 300K\nI doubt this is the problem.\n\nUsing commercial (professional) xHarbour version.\n\nI am in the process of shortening resource names, we\'ll see...\nRegards','',0,'','ls5q2koc',1,0,'',324,0,0),(7090,1692,3,34,0,'68.4.154.81',1139781936,1,0,1,1,1,1,'','Brush in dialog problem continues','OK ... When using the Brush in Dialog option its nice, except the folders do not show the brush.\n\nGoing further, if I use this option, then BMPGET will show a black field with the bitmap, and if I use the bitmap as a button to select a value for the field ( ie. a data lookup option ), then the value cannot be seen because the black bar is still there.\n\nTim <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','3mgu5h85',1,0,'',34,0,0),(7091,1683,3,138,0,'148.233.159.24',1139782666,1,0,1,1,1,1,'','','I think the source code (PRG &amp; C) is included, if not, let me know which version of FW are you using, and I can recompile it.','',0,'','1un2e80g',1,0,'',138,0,0),(7092,1693,6,121,0,'201.138.22.77',1139782898,1,0,1,1,1,1,'','UNA DE BROWSE','Como puedo hacer para \"convertir\" un browse de detalle a otro que se muestre en forma de resumen\n\nPor ejemplo si tengo el siguiente browse:\n\ncliente       fecha    factura      importe\n====       ====   =====    ======\nCIA AAA    10/O5    000100        2,500\nCIA AAA    12/05    000108        3,500\nCIA AAA    14/05    000110        8,000\nCIA VVV    05/05    000099       12,000\nCIA VVV    10/05    000105       14,000\n\n\nquisiera pasar a otro browse (resumen por cliente con totales):\n\ncliente       fecha    factura      importe\n====       ====   =====    ======\nCIA AAA    ------    ---------        14,500\nCIA VVV    ------    ---------        26,500\n\n\nSi alguien ya se ha enfrentado a algo similar\nmucho les agradecere sus sugerencias\n\nGracias','',0,'','302e7kw2',1,0,'',121,0,0),(7093,1594,6,252,0,'201.140.20.155',1139785887,1,0,1,1,1,0,'','','Gracias por el tip George. Lo voy a Probar.\n\n     Saludos.\n\n     José Ríos.','',0,'','1ltmeq7n',1,0,'',252,0,0),(7094,1692,3,2,0,'87.218.146.94',1139788597,1,0,1,1,1,1,'','','Tim,\n\nPlease try samples\\TestFldb.prg for a working sample of folders with background bitmapped brushes.\n\nFor non standard FWH controls, like the BTNGET you mention, please add its class name in dialog.prg, here:\n\n   if ::lTransparent\n      FixSays( ::hWnd )\n      AEval( ::aControls,;\n             { | o | If( ! Upper( o:ClassName() ) $ ;\n             \"TGET;TMULTIGET;TBTNBMP;TCOMBOBOX;TWBROWSE;TCBROWSE;TXBROWSE;TLISTBOX\",;\n                         o:lTransparent := .t.,) } )\n   endif   \n\nThose are the classes names where we don\'t want transparency.','',0,'','1l1ak5o0',1,0,'',2,0,0),(7095,1648,3,2,0,'87.218.146.94',1139788841,1,0,1,1,1,1,'','','Tim,\n\nTry to remove the OF oWnd from here:\n\nDEFINE DIALOG oWdlg1 RESOURCE \"PRO1000\" BRUSH oBrush transparent FONT oWnd:oFont TITLE cTitle','',0,'','31zvhezl',1,0,'',2,0,0),(7096,1688,7,2,0,'87.218.146.94',1139788946,1,0,1,1,1,1,'','','Jose Luis,\n\nMe alegro de que esté solucionado,','',0,'','3hj0q3rj',1,0,'',2,0,0),(7097,1683,3,379,0,'59.167.109.159',1139789142,1,0,1,1,1,0,'','Tree Control','That would be great Rene I have version 2.3.\n\nCheers and much appreciated.\nGerry','',0,'','g6pu7gh2',1,0,'',379,0,0),(7098,1372,7,2,0,'87.218.146.94',1139789393,1,0,1,1,1,1,'','','Jose Luis,\n\nDesde aqui:\n[url=http&#58;//imageshack&#46;us:xwa5b79a][img:xwa5b79a]http&#58;//img124&#46;imageshack&#46;us/img124/5148/task6ky&#46;png[/img:xwa5b79a][/url:xwa5b79a]','',0,'GA==','xwa5b79a',1,0,'',2,0,0),(7099,1691,22,2,0,'87.218.146.94',1139789688,1,0,1,1,1,1,'','','Te envio los datos por email','',0,'GA==','r03l1vxo',1,0,'',2,0,0),(7100,1690,1,74,0,'190.48.227.26',1139795400,1,0,1,1,1,1,'','','Manuranos:\n\n                   [quote:of0v78v7]te has dado cuenta que es oGet:oGet:Picture Y NO oGet:cPicture !!! [/quote:of0v78v7]\n\n                  Ahi estaba la clave, tantos años programando en fw y recien me entero. Usaba <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->Get:picture, oGet:cPicture,oGet:cPict y todo daba error, y eso que mire los fuentes en tget.prg.\n\n                  Muchas gracias, me solucionastes el problema. Quedo:\n\n	 IF CRUB==1\n			OT:CPICTURE:=\'999,999.9999\'\n	    oPuni:oGet:Picture:=OT:CPICTURE\n			oPuni:Refresh()\n	 ELSE\n		  OT:CPICTURE:=\'999,999.99\'\n	    oPuni:oGet:Picture:=OT:CPICTURE\n			oPuni:Refresh()\n	 ENDIF\n\n                 Y funciona perfecto.\n\nSaludos,','',0,'gA==','of0v78v7',1,0,'',74,0,0),(7101,1693,6,74,0,'190.48.227.26',1139796619,1,0,1,1,1,1,'','','Marco:\n\n           Suponiendo que tenes un dialogo donde mostras el browse completo, pones un boton que diga ver totales o algo asi y ahi abris otro dialogo, haces el calculo de totales y en ese dialogo haces el browse, que puede estar hecho sobre una matriz o sobre una dbf transitoria donde grabas los totales antes de activar el dialogo:\n\n            El siguiente ejemplo hace eso sobre un browse de autorizaciones de practicas medicas y saca los totales x practica en un browse sobre una matriz (todo con wbrowse de hernan), parte pertinente para que no se haga tan largo:\n\n[code:2tjrw92x]\nFUNCTION Valoriza&#40;&#41;\nLOCAL  aNcampos&#58;=&#123; &#123;|| PADL&#40;AUTORIZA-&gt;NUMERO,5,0&#41;&#125;,;\n									     &#123;|| &quot; &quot;+BUS_DES&#40;&quot;PRACTICA&quot;,1,AUTORIZA-&gt;PRACTICA,&quot;NOMBRE&quot;&#41; &#125;,;\n											 &#123;|| &quot; &quot;+AUTORIZA-&gt;PRESTADOR &#125; ,;\n											 &#123;|| TRANS&#40;AUTORIZA-&gt;APAGAR,&quot;@E 99,999&#46;99&quot;&#41;+&quot; &quot; &#125; ,;\n											 &#123;|| &quot; &quot;+AUTORIZA-&gt;TIPOPRES &#125;,;\n											 &#123;|| &quot; &quot;+AUTORIZA-&gt;RUBRO &#125;,;\n											 &#123;|| AUTORIZA-&gt;APEYNOMB &#125;,;\n											 &#123;|| AUTORIZA-&gt;NROBENEF &#125; ,;\n								       &#123;|| DTOC&#40;AUTORIZA-&gt;FECHA&#41; &#125;,;\n											 &#123;|| AUTORIZA-&gt;ESTADO &#125;,;\n									     &#123;|| &quot; &quot;+AUTORIZA-&gt;PARTIDO &#125;,;\n											 &#123;|| &quot; &quot;+AUTORIZA-&gt;RESPUESTA &#125; ,;\n											 &#123;|| DTOC&#40;AUTORIZA-&gt;FECHAEMAIL&#41; &#125; ,;\n											 &#123;|| AUTORIZA-&gt;HORAEMAIL &#125;,;\n											 &#123;|| &quot; &quot;+BUS_DES&#40;&quot;SOLICITA&quot;,1,AUTORIZA-&gt;SOLICITA,&quot;NOMBRE&quot;&#41; &#125;,;\n											 &#123;|| AUTORIZA-&gt;DIREMAIL &#125;&#125;,;\n\n  REDEFINE SENSITIVE SAY PROMPT &quot;» Tot&#46; x Práctica «&quot; ID 126 ;\n	          OF oFld&#58;aDialogs&#91;1&#93; ;\n			      FONT oFont4 ;\n            COLOR CLR_BLUE COLOROVER CLR_RED       ;\n            ON MOUSEOVER SndPlaySound&#40;&quot;Select&#46;Wav&quot;&#41; ;\n            RIGHT ACTION TotPractica&#40;wAlias,oBrw&#41;\n\nStatic Function TotPractica&#40;cAlias,oBrw&#41;\n\nLocal oDlg, aBrw, RET&#58;=0, nItem&#58;=1\nLocal X&#58;=390,Y&#58;=200,ANCHO&#58;=454,ALTO&#58;=140,cTitulo&#58;=oemtoansi&#40;&quot;Totales por Pr ctica&quot;&#41;\nLocal nReg\nLocal aPractica&#58;=&#123;&#125;,cCodPra&#58;=&#40;cAlias&#41;-&gt;PRACTICA,largo&#58;=0,I&#58;=1,cTipo,cRecno&#58;=&#40;cAlias&#41;-&gt;&#40;RECNO&#40;&#41;&#41;\nLocal aOrdenado&#58;=&#123;&#125;\n\nDEFAULT 	cTitulo&#58;=&quot;Seleccione&#46;&#46;&#46;&quot;\n\n	&#40;cAlias&#41;-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n	DO WHILE ! &#40;cAlias&#41;-&gt;&#40;EOF&#40;&#41;&#41;\n\n		 		IF LEN&#40;aPractica&#41;==0\n						aadd&#40;aPractica,&#123;BUS_DES&#40;&quot;PRACTICA&quot;,1,&#40;cAlias&#41;-&gt;PRACTICA,&quot;NOMBRE&quot;&#41;,1,&#40;cAlias&#41;-&gt;APAGAR&#125;&#41;\n		 		ELSE\n					  cTipo&#58;=BUS_DES&#40;&quot;PRACTICA&quot;,1,&#40;cAlias&#41;-&gt;PRACTICA,&quot;NOMBRE&quot;&#41;\n		 				nReg&#58;=ASCAN&#40; aPractica, &#123; |aField| aField&#91;1&#93;==cTipo &#125; &#41;\n		 				IF nReg == 0\n							 aadd&#40;aPractica,&#123;BUS_DES&#40;&quot;PRACTICA&quot;,1,&#40;cAlias&#41;-&gt;PRACTICA,&quot;NOMBRE&quot;&#41;,1,&#40;cAlias&#41;-&gt;APAGAR&#125;&#41;\n		 				ELSE\n 							 aPractica&#91;nReg,2&#93;+=1\n							 aPractica&#91;nReg,3&#93;+=&#40;cAlias&#41;-&gt;APAGAR\n		 				ENDIF\n		 		ENDIF\n		 &#40;cAlias&#41;-&gt;&#40;DBSKIP&#40;&#41;&#41;\n	ENDDO\n\n	&#40;cAlias&#41;-&gt;&#40;DBGOTO&#40;cRecno&#41;&#41;\n	oBrw&#58;Refresh&#40;&#41;\n\n	 FOR I&#58;=1 TO LEN&#40;aPractica&#41;\n		 aPractica&#91;i,2&#93;&#58;=TRANS&#40;aPractica&#91;i,2&#93;,&quot;@E 9,999&quot;&#41;\n		 aPractica&#91;i,3&#93;&#58;=TRANS&#40;aPractica&#91;i,3&#93;,&quot;@E 999,999&#46;99&quot;&#41;+&quot;  &quot;\n	 NEXT\n\n	 IF LEN&#40;aPractica&#41;==0\n			Aadd&#40;aPractica,&#123;SPAC&#40;30&#41;,SPAC&#40;9&#41;,SPAC&#40;10&#41;&#125;&#41;\n	 ENDIF\n\n	 DEFINE DIALOG oDlg RESOURCE &quot;MCHOICE&quot; TITLE cTitulo\n   oDlg&#58;lHelpIcon&#58;=&#46;f&#46;\n\n	 aOrdenado&#58;=ASORT&#40;aPractica,,,&#123;|x,y| x&#91;1&#93; &lt; y&#91;1&#93;&#125;&#41;\n\n   REDEFINE LISTBOX aBrw FIELDS aOrdenado&#91;NITEM,1&#93;,aOrdenado&#91;NITEM,2&#93;,aOrdenado&#91;NITEM,3&#93; ;\n	 HEADER oemtoansi&#40;&quot;Descripci¢n&quot;&#41;,&quot; Cant&#46;&quot;,&quot; Importe &quot;;\n	 id 999 of odlg;\n   FIELDSIZES 269,59,96 ON DBLCLICK &#40;Ret&#58;=nItem,oDlg&#58;End&#40;&#41;&#41; //COLORS CLR_BLUE\n\n	 aBrw&#58;cAlias    = &quot;Array&quot;                // Just put something\n	 aBrw&#58;bLogicLen = &#123; || Len&#40; aOrdenado &#41; &#125;\n	 aBrw&#58;SetArray&#40;aOrdenado&#41;\n   aBrw&#58;bGoTop    = &#123; || nItem &#58;= 1 &#125;\n   aBrw&#58;bGoBottom = &#123; || nItem &#58;= Eval&#40; aBrw&#58;bLogicLen &#41; &#125;\n	 aBrw&#58;bGoBottom = &#123; || nItem &#58;= Eval&#40; aBrw&#58;bLogicLen &#41; &#125;\n   aBrw&#58;bSkip     = &#123; | nWant, nOld | nOld &#58;= nItem, nItem += nWant,;\n                        nItem &#58;= Max&#40; 1, Min&#40; nItem, Eval&#40; aBrw&#58;bLogicLen &#41; &#41; &#41;,;\n                        nItem - nOld &#125;\n   aBrw&#58;bKeyChar  = &#123; | nK | if&#40; nK==VK_RETURN,&#40;Ret&#58;=nItem,oDlg&#58;End&#40;&#41;&#41;,&#41; &#125; // Controlling keystrokes\n	 aBrw&#58;lcellstyle &#58;= &#46;t&#46;\n	 aBrw&#58;nlinestyle &#58;= 2\n	 aBrw&#58;aJustify&#58;=&#123;0,2,1&#125;\n	 aBrw&#58;nclrpane&#58;= &#123;|| iif&#40; &#40;nItem/2&#41;-INT&#40;nItem/2&#41; &gt; 0, CLR_LBLUE, CLR_LGRAY&#41; &#125;\n	 aBrw&#58;lAdjLastcol&#58;=&#46;F&#46;\n	 aBrw&#58;GoTop&#40;&#41;\n   oDlg&#58;SetControl&#40;aBrw&#41;\n	 ALTO&#58;=50+16&#46;0*LEN&#40;aOrdenado&#41;\n	 IF&#40;ALTO &gt; 550,ALTO&#58;=550,&#41;\n\n	 IF LEN&#40;aOrdenado&#41; &lt; 15\n   		ACTIVATE DIALOG oDlg ON INIT &#40;oDlg&#58;Move&#40;X,Y&#41;,oDlg&#58;setsize&#40;ANCHO,ALTO&#41;&#41;\n	 ELSE\n			ACTIVATE DIALOG oDlg ON INIT &#40;oDlg&#58;Move&#40;X,Y&#41;,oDlg&#58;setsize&#40;ANCHO,ALTO&#41;,oDlg&#58;Center&#40;&#41;&#41;\n	 ENDIF\n\nReturn nil\n\n[/code:2tjrw92x]\n\nSaludos,','',0,'AIA=','2tjrw92x',1,0,'',74,0,0),(7102,1637,22,138,0,'148.221.197.38',1139804517,1,0,1,1,1,1,'','Re: New Preview','[quote=&quot;Silvio&quot;:3cx46h2l]\n\nI\'ll like to have many class or func:\n\n&gt;Calcprint ( calc with print paper on video)\n[/quote:3cx46h2l]\n\nThis not dificult to build, you can do it by yourself.\n\n[quote=&quot;Silvio&quot;:3cx46h2l]\n&gt;Ocr class\n[/quote:3cx46h2l]\n\nDon\'t know if already someone had developed it, It could be implemented via an OCX.\n\n[quote=&quot;Silvio&quot;:3cx46h2l]\n&gt;a new preview with :\nvisualization on 4/6/8/10 pages\nsave on  graphics and doc formats (bmp, jpg,...pdf,rtf)\nzoom percentual ( 10,25,50,75,100,200,400)\nrules and margins modify with a mouse click \nshow the preview on all screen\nshow at left  small pictures of preview pages as into pdf program\n[/quote:3cx46h2l]\n\nSome features you mention are already implemented in Timm\'s EasyPreview\n\n[quote=&quot;Silvio&quot;:3cx46h2l]\n&gt;Form and paper designer  class\n[/quote:3cx46h2l]\n\nAlready implemented in EasyReport\n\n[quote=&quot;Silvio&quot;:3cx46h2l]\n&gt;Install class\n[/quote:3cx46h2l]\n\nNot needed, the most of us use Inno-Setup for installation, it let you handle ALL the features of installing application, including creation of INI files, Registry modification, registration of COM or OCX components, all these for free.\n\n[quote=&quot;Silvio&quot;:3cx46h2l]\n&gt;Circular barcode class\n[/quote:3cx46h2l]\n\nI think there should be a FONT you can purchase for this task, there are plenty of Bar code fonts  for sale.','',0,'gA==','3cx46h2l',1,0,'',138,0,0),(7103,1683,3,138,0,'148.221.197.38',1139805045,1,0,1,1,1,1,'','','What version of (x)HB are you currently using ?','',0,'gA==','2rx70f96',1,0,'',138,0,0),(7104,1372,7,262,0,'83.97.168.83',1139811717,1,0,1,1,1,1,'','','el problema surge cuando son ventanas encadenadas , menu-&gt;browsecliente-&gt;ficha cliente-&gt;sus pedidos , en el task existe una entrada por cada ventana .\nVale recupero a delante sus pedidos ( cosa que para un viajante \"usuario\" ya es un logro) , pero eso no me garantiza que cuando cierre esta ventana  , me quede detras \"ficha cliente\" con lo que vuelta a empezar ( no pidas mas de dos veces a un viajante que vaya al task , y menos que lo recupere en el orden correcto ).\nQue otra solucion ( a parte de los dialogos ) tenemos ?','',0,'gA==','opeaj001',1,0,'',262,0,0),(7105,1372,7,2,0,'87.218.146.94',1139814436,1,0,1,1,1,1,'','','Jose Luis,\n\nDe momento la única solución es como dices, los diálogos. Has comprobado si salen en esa ventana ó no se ven ?','',0,'gA==','2fv15rw1',1,0,'',2,0,0),(7106,1683,3,379,0,'59.167.109.159',1139816139,1,0,1,1,1,0,'','Version','0.99.3 is the xHarbour build.  Oh and I use the BCC Version.','',0,'gA==','x3516p9g',1,0,'',379,0,0),(7107,1694,7,449,0,'212.64.224.244',1139820963,1,0,1,1,1,0,'','Me uno a FWPPC !','Hola a todos, \n\nA partir de ahora me uno a vuestro grupo y como soy de nuevo un novato, espero me aguanteis con mis \'problemillas\' y espero no daros muchos dolores de cabeza.  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos.\nCarles.','',0,'gA==','3vwxp4ig',1,0,'',449,0,0),(7108,1637,22,49,0,'213.82.134.66',1139821913,1,0,1,1,1,1,'','','Dear Rene,\nCalcprint is oK\n\nI used Easyreport and EastPreview but is too, is much too difficult create a report \nIf you want create a special report for a program is too difficult to create it  and I cannot have time to it , I want a simply class  to insert alsio into all my program \n\nThe Inno Setup  is Delphi program and not it Fivewin Program . We must use another language or can I use only FIVEWIN ( Xharbour harbour c files )\n\n\nOcr is difficult to create but it is not important I think in future to see it on fw\n\nFor the Circular Barcode  I asked help to EMG or all Fw user to modifiy the Barcode class of cayeatno or bacode class of Timm but None help me \nI not Think it can create with fonts : i not found nothing on internet ...\n\non topic on thid forum there is write \" TO DO -  WISH\" and I think . I \'ll wish these things...And I wrote TO Antonio not to YOU mr Rene.....if you are good guru ok , I am  not a guru...','',0,'gA==','ixw3n9mx',1,0,'',49,0,0),(7109,1695,1,161,0,'81.164.212.146',1139822209,1,0,1,1,1,0,'','Which variable contains the entered data in combobox?','Hello,\n\nCan anyone tell me the variable with the entered data in combobox?\nIf I use something like this:\n[code:3laqdy9z]REDEFINE COMBOBOX vGetlist&#91;16&#93; VAR vpara&#91; 1&#93; ITEMS vparameters ID 201 OF oDlg picture \'@!\' STYLE CBS_DROPDOWN ON EDIT CHANGE tpsgpar&#40;vGetlist&#91;16&#93;&#58;oGet&#58;ctext&#41;\n\nfunc tpsgpar&#40;vpara&#41;\n   msginfo&#40;vpara&#41;\nreturn nil\n[/code:3laqdy9z]\nI allways see the previous entered data and NOT the last entered character\n\nThanks,\nMarc','',0,'AIA=','3laqdy9z',1,0,'',161,0,0),(7110,1640,3,49,0,'213.82.134.66',1139822226,1,0,1,1,1,1,'','','DEAR TO ALL \n\n   I THINK TO GO OUT OF THE TOPIC\n   THE ARGUMENT OF THIS TOPIC IS \"  LISTBOX HEADER 32 bit \"\n   I think we can write about it ........\n\nbuit it is not important ...  there many other things need on Fivewin \n\nAntonio not have time to lose on it ....\n\n1) We can USe Inno setup of Delphi to install and we cannot use Fivewin program and there is not a INNOSETUP created with Fivewin...\n\n2 We must use ER or EP but there is not a designer create on fivewin , I want a func or class to insert into a programm but We must use another program\n\n3) We not have a OCR CLASS\n\n\n4) we not have a design form we can use Peele C or Workshop of borland or another program\n\n5 )we have not....','',0,'AIA=','2w1bfid2',1,0,'',49,0,0),(7111,1696,6,57,0,'81.39.239.66',1139822241,1,0,1,1,1,1,'','Comportamiento extraño por el uso de wbrwline.c','Antonio\nEn algunas ocasiones he reportado el comportamiento extraño en el repintado de ventanas con color de fondo, cuando otra ventana es movida por encima. Creo haber localizado el problema pero se escapa a mis conocimientos el poderlo solucionar. Proviene del uso de la clase TWbrose de Hernan y concrétamente la línea:\n\n#define _PutSym( _SymEval ) hb_vmPushSymbol( &amp;hb_symEval )\n\nen el fichero \"WBRWLINE.C\".\n\n Y como muestra un boton:\n\n[url:388l2eam]http&#58;//hyperupload&#46;com/download/a680c984/Dibujo1&#46;JPG&#46;html[/url:388l2eam]\n\nEn la imagen se aprecian los residuos.\n\nEl codigo fuente utilizado es el siguiente, enlazando al mismo tiempo el fichero en \"c\" al buildx.bat :\n\necho wbrwline.obj + &gt;&gt; b32.bc\n-----------------------------------------------------------------\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\nfunction Main()\n\n   local oWndEdit, oBar, oIcon, oImage\n   local cName := \"FiveWin power\"\n\n   DEFINE ICON oIcon RESOURCE \"test\"\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE \"I am the MDI Frame\" ;\n      COLOR \"W+/R\" ;\n      ICON oIcon\n\n   ACTIVATE WINDOW oWnd MAXIMIZED ;\n      VALID MsgYesNo( \"Want to End ?\" )\n\nreturn nil\n---------------------------------------------------------------------------\n\nSaludos','',0,'EA==','388l2eam',1,0,'',57,0,0),(7112,1694,7,2,0,'87.218.146.94',1139822912,1,0,1,1,1,1,'','','Hola Carles,\n\nBienvenido al foro!\n\nComentaros que este \"novato\" <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> en sólo dos dias ha hecho esta chulada de aplicación para Pocket PC y que además ha tenido la gentileza de cederla para que otros podais usarla como base de vuestros desarrollos:\n\n[url=http&#58;//imageshack&#46;us:2628bq4l][img:2628bq4l]http&#58;//img97&#46;imageshack&#46;us/img97/7030/carles19rr&#46;png[/img:2628bq4l][/url:2628bq4l]\n[url=http&#58;//imageshack&#46;us:2628bq4l][img:2628bq4l]http&#58;//img97&#46;imageshack&#46;us/img97/6195/carles21md&#46;png[/img:2628bq4l][/url:2628bq4l]\n[url=http&#58;//imageshack&#46;us:2628bq4l][img:2628bq4l]http&#58;//img207&#46;imageshack&#46;us/img207/3407/carles35ln&#46;png[/img:2628bq4l][/url:2628bq4l]\n\nPodeis descargar la aplicación con todos los fuentes desde aqui:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/04f05053/Client.zip.html\">http://hyperupload.com/download/04f0505 ... t.zip.html</a><!-- m -->\n\nEnhorabuena Carles por un trabajo excelente y por tu demostrada amabilidad y compañerismo, <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','2628bq4l',1,0,'',2,0,0),(7113,1372,7,262,0,'212.89.4.42',1139822973,1,0,1,1,1,1,'','','Este es el motivo de cambiar todo a dialogos ( ya tenia la aplicacion terminada) . En el task solo sale la ventana pantalla inicial .\nYo recupero el programa volviendo a lanzar el programa ( eso es facil de pedir al usuario ) , usando la funcion que existe en el  foro StillRun()  .\nSaludso.','',0,'GA==','2n4rodrx',1,0,'',262,0,0),(7114,1697,4,2,0,'87.218.146.94',1139823156,1,0,1,1,1,1,'','Nice application from Carles Aubia!','Carles Aubia, in just two days using FWPPC, has developed this nice Pocket PC application and has provided all its source code so you can use it as a base for your developments. Thanks so much Carles! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[url=http&#58;//imageshack&#46;us:3lk5bwkz][img:3lk5bwkz]http&#58;//img97&#46;imageshack&#46;us/img97/7030/carles19rr&#46;png[/img:3lk5bwkz][/url:3lk5bwkz]\n[url=http&#58;//imageshack&#46;us:3lk5bwkz][img:3lk5bwkz]http&#58;//img97&#46;imageshack&#46;us/img97/6195/carles21md&#46;png[/img:3lk5bwkz][/url:3lk5bwkz]\n[url=http&#58;//imageshack&#46;us:3lk5bwkz][img:3lk5bwkz]http&#58;//img207&#46;imageshack&#46;us/img207/3407/carles35ln&#46;png[/img:3lk5bwkz][/url:3lk5bwkz]\n\nYou may download the entire application with full source code from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/04f05053/Client.zip.html\">http://hyperupload.com/download/04f0505 ... t.zip.html</a><!-- m -->\n\nThanks so much Carles! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','3lk5bwkz',1,0,'',2,0,0),(7115,1695,1,6,0,'87.1.198.175',1139823216,1,0,1,1,1,1,'','Re: Which variable contains the entered data in combobox?','[quote=&quot;Marc Vanzegbroeck&quot;:15txszhz]Hello,\n\nCan anyone tell me the variable with the entered data in combobox?\nIf I use something like this:\n[code:15txszhz]REDEFINE COMBOBOX vGetlist&#91;16&#93; VAR vpara&#91; 1&#93; ITEMS vparameters ID 201 OF oDlg picture \'@!\' STYLE CBS_DROPDOWN ON EDIT CHANGE tpsgpar&#40;vGetlist&#91;16&#93;&#58;oGet&#58;ctext&#41;\n\nfunc tpsgpar&#40;vpara&#41;\n   msginfo&#40;vpara&#41;\nreturn nil\n[/code:15txszhz]\nI allways see the previous entered data and NOT the last entered character\n\nThanks,\nMarc[/quote:15txszhz]\n\nTry\n\n[code:15txszhz]ON EDIT CHANGE &#40; vGetlist&#91;16&#93;&#58;oGet&#58;Assign&#40;&#41;, tpsgpar&#40;vGetlist&#91;16&#93;&#58;oGet&#58;ctext&#41; &#41;[/code:15txszhz]\n\nIf this doesn\'t help then please post a reduced and self-contained sample showing the problem.\n\nEMG','',0,'gIA=','15txszhz',1,0,'',6,0,0),(7116,1698,7,449,0,'212.64.224.244',1139825788,1,0,1,1,1,0,'','FWPPC -&gt; Primeras impresiones','Mis primeras impresiones:\n\n- Cambio de chip con tablas en modo exclusivo. El hecho de no poder usar una tabla con varios alias  ( Shared() ) te implica el jugar con los punteros de registros si usas esta en varios puntos de tu programa, asi como tener mucho cuidado con los bloqueos. \n\n- Creo q es ESENCIAL el poder controlar con un VALID la ventana principal, sino te expones facilmente el dejar colgada la aplicacion  si usas varias ventanas.\n\n- Si bien el uso de ficheros *.rc te solucionan parte del tema de los recursos, noto a faltar el poderlos poner en una *.dll y asi evitarte reecompilar la aplicacion.\n\n- Hay funciones que no las encuentro en el codigo fuente como ShowKeyboard(). Quizas su estudio permite mas facilmente ampliar las diferentes conexiones con el API. Por ejemplo, vi SHGetDocumentsFolder() y me gustraia ver como codificarla correctamente y los flags correctos para compilarla.\n\nThis function retrieves the path to the documents directory for the volume specified in the pszPath parameter.\n\nBOOL SHGetDocumentsFolder (\n  LPCTSTR pszVolume,\n  LPTSTR pszDocs\n);\n\nFinalmente decir, que los que llevamos un tiempo usando FWH, el salto es increiblemente facil, y rapidamente es posible crear tus primeros propuestas. Por ejemplo, aunque no este codificada la clase bar, con un poco de imaginacion es posible facilmente \'simularla\'. \n\n\nSaludos.\nC.','',0,'gIA=','351c95n1',1,0,'',449,0,0),(7117,1695,1,161,0,'81.164.212.146',1139826041,1,0,1,1,1,0,'','','Enrico,\n\nHere is an example.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vms.be/FWTest/combotst.zip\">http://www.vms.be/FWTest/combotst.zip</a><!-- m -->\nAs you can see, the previous entered data is displayed.. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nMarc','',0,'gIA=','3u04qe7j',1,0,'',161,0,0),(7118,1699,3,439,0,'200.125.7.89',1139828597,1,0,1,1,1,0,'','FileXls y otras con FWH 2.7','Sres.\n\nLuego de sus últimas aclaraciones en el foro he pasado a 32 bits dos \nde las 3 aplicaciones que tengo desarrolladas.\n\nHe tenido problemas con la tercera porque necesita las siguientes\nclases : FileXls, TWBrowse 1.5, TBtnGet32 que según los creadores es\npara Clipper y Harbour ( y tengo por separado libs y demás no obstante,\nlas de clipper me anduvieron bárbaro pero las de harbour no andan.\n\n¿Cual puede ser el problema por el que todas las libs de terceros para\nharbour que tengo no andan?, ¿tiene relación con la versión de Harbour\no FWH que tengo?, ¿Tiene Solución?\n\nLa que más me complica es Filexls, dado que me arreglo sin las otras\nsustituyendo con la clase TWBrowse de FWH 2.7 y con la de BtnGet puedo\nutilizar un BtnBmp.\nCualquier ayuda en cuanto a esto es vital, dado que no podré pasar\naplicación a FWH a menos que resuelva por lo menos lo de FileXLS ya \nque tengo muchos listados que se generan a Excell a pedido del cliente.\n\nPor cierto, si hay solución para las otras, favor avísenme.\n\n\nGracias desde ya.','',0,'gIA=','1qa8llxp',1,0,'',439,0,0),(7119,1700,6,21,0,'80.58.49.235',1139829920,1,0,1,1,1,1,'','Error en CallDll','Hola grupo,\n\nEstoy compilando con xHarbour los programas que tengo en Harbour. Compila perfectamente pero al ejecutar el programa me lanza el siguiente error:\n[img:1zj4kf4l]http&#58;//www&#46;ghe-soft&#46;com/fivewin/errordll&#46;jpg[/img:1zj4kf4l]\n\nLa dll en cuestión pertenece a la clase tLFN:\n[code:1zj4kf4l]DLL32 Static Function apiFullFName&#40;cFileName AS STRING, nBuffer AS LONG,\n                                   @lpBuffer AS STRING&#41;;\n    AS LONG PASCAL FROM &quot;GetFullPathNameA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:1zj4kf4l]\n\nEn Harbour funciona perfectamente, pero no se que tengo que cambiar para que funcione en xHarbour.','',0,'CIA=','1zj4kf4l',1,0,'',21,0,0),(7120,1699,3,362,0,'200.168.52.156',1139832490,1,0,1,1,1,1,'','','Encuentras todo aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->','',0,'CIA=','1b8vlmlv',1,0,'',362,0,0),(7121,1679,6,140,0,'200.93.16.4',1139833017,1,0,1,1,1,0,'','','Antonio, 1Gb de Gracias.\n\nEl tip funciona parcialmente...\n\nMe llama la atencion que cuando a un archivo se le generan mas de tres indices NTX no se libera la memoria...\n\nPense en implementar el RDD Comix con RTLink (el cliente no quiere que se use bLinker) y el mensaje \"Conventional Memory exausted\" aparece casi que arrancando la aplicacion...\n\nAlguna otra idea???','',0,'CIA=','21km2b66',1,0,'',140,0,0),(7122,1640,3,419,0,'196.25.255.210',1139834516,1,0,1,1,1,0,'','','No offence but why did you not start your own thread?\n\nThis topic goes toward the overall appearance and functioning of TWBROWSE and I thought that this was important.\n\nIf you are not worried what your user interface looks like then use InnoSetup.  What do you need a FiveWin Installer for anyway?  I use InnoSetup and have not found anything that it can\'t do.\n\nAlso remember that even if there was a FiveWin Resource Compiler it would still use TWBROWSE so at this point it does not matter what RC you use.\n\nAnd by the way - Antonio has not responded to any of the messages in this thread so I have my doubts as to whether or not he is wasting any time on this.\n\nRegards,\n\nDale.','',0,'CIA=','1gba8ndh',1,0,'',419,0,0),(7123,1701,19,91,0,'213.96.45.9',1139835737,1,0,1,1,1,0,'','Fuentes para código de barras.','Hola a todos,\n\nAlguién sabría decirme si existen fuentes para código de barras gratuitas.\n\nPreciso imprimir con Word código de barras de una cadena alfanumérica para su posterior lectura desde un lector de código de barras en una aplicación en FiveWin.\n\nSaludos y gracias.\nCarlos G.','',0,'CIA=','31l667lx',1,0,'',91,0,0),(7124,1695,1,6,0,'87.1.198.175',1139836278,1,0,1,1,1,1,'','','This is a sample. But you have to handle control keys:\n\n[code:fus2yjmz]#INCLUDE &quot;fivewin&#46;CH&quot;\nFUNCTION test&#40;&#41;\n   local oDlg, oFld\n   local vgetlist&#58;=array&#40;79&#41;\n   local vparameters &#58;= haalallpar&#40;&#41;\n   local vpara &#58;= array&#40;10&#41;\n   vpara&#91;1&#93; = space&#40;10&#41;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TPSQUERY&quot;\n\n   REDEFINE COMBOBOX vGetlist&#91;16&#93; VAR vpara&#91; 1&#93;;\n            ITEMS vparameters;\n            ID 201 OF oDlg;\n            picture \'@!\';\n            STYLE CBS_DROPDOWN\n\n   vGetlist&#91;16&#93;&#58;oGet&#58;bChange = &#123; | nKey | tpsgpar&#40; RTrim&#40; vGetlist&#91;16&#93;&#58;VarGet&#40;&#41; &#41; + CHR&#40; nKey &#41; &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ON RIGHT CLICK oDlg&#58;end&#40;&#41;\nRETURN nil\n\nFUNCTION haalallpar&#40;&#41;\n   local ret_val &#58;= &#123;&#125;\n   aadd&#40;ret_val,\'NAME\'   &#41;\n   aadd&#40;ret_val,\'PTDESC\' &#41;\n   aadd&#40;ret_val,\'KEYWORD\'&#41;\n   aadd&#40;ret_val,\'EUDESC\' &#41;\n   aadd&#40;ret_val,\'UNIT\'   &#41;\n   aadd&#40;ret_val,\'NODENUM\'&#41;\n   aadd&#40;ret_val,\'MODNUM\' &#41;\nRETURN ret_val\n\n\nfunc tpsgpar&#40;vpara&#41;\n   msginfo&#40;vpara&#41;\nreturn nil[/code:fus2yjmz]\n\nEMG','',0,'AIA=','fus2yjmz',1,0,'',6,0,0),(7125,1702,3,382,0,'194.77.253.245',1139836654,1,0,1,1,1,1,'','SAY pixel position','Using PIXEL with TSay, the position given is not the real position in the dialog.\n\n[code:1xj158cf]\n\n#include &quot;FplFwh&#46;Ch&quot;\n\n*******************\nFUNCTION Test4711&#40;&#41;\n*******************\nLOCAL oDlg, oSay, cText &#58;= &quot;Hallo&quot;\nDEFINE DIALOG oDlg FROM 0,0 TO 50,200 PIXEL TITLE &quot;Test&quot;\n@  5, 45  SAY oSay VAR cText OF oDlg PIXEL\noDlg&#58;bStart &#58;= &#123;||CheckPosition&#40;oDlg,oSay&#58;nId&#41;,oDlg&#58;End&#40;&#41;&#125;\nACTIVATE DIALOG oDlg CENTER\nRETURN NIL\n\n\n\n***************************************\nSTATIC FUNCTION CheckPosition&#40;oDlg,nId&#41;\n***************************************\n\nLOCAL aPos &#58;= Le_GetIdPos&#40;oDlg,nId&#41;\nnMsgBox&#40;STR&#40;aPos&#91;1&#93;&#41;+CHR&#40;13&#41;+;\n        STR&#40;aPos&#91;2&#93;&#41;+CHR&#40;13&#41;+;\n        STR&#40;aPos&#91;3&#93;&#41;+CHR&#40;13&#41;+;\n        STR&#40;aPos&#91;4&#93;&#41;+CHR&#40;13&#41;&#41;\nRETURN NIL\n\n\n******************************\nFUNCTION Le_GetIdPos&#40;oWnd,nId&#41;\n******************************\n\nLOCAL aRect, aWinRect, nLeftDiff, nRightDiff, hWndParent\nhWndParent  &#58;= oWnd&#58;hWnd\naRect       &#58;= GetClientRect&#40;GetDlgItem&#40;hWndParent,nID&#41;&#41;\naWinRect    &#58;= GetClientRect&#40;hWndparent&#41;\nnLeftDiff   &#58;= aWinRect&#91;3&#93; - aRect&#91;3&#93;\nnRightDiff  &#58;= aWinRect&#91;4&#93; - aRect&#91;4&#93;\naWinRect    &#58;= GetWndRect&#40;GetDlgItem&#40;hWndParent,nID&#41;&#41;\naWinRect&#91;3&#93; &#58;= aWinRect&#91;3&#93; - aWinRect&#91;1&#93;\naWinRect&#91;4&#93; &#58;= aWinRect&#91;4&#93; - aWinRect&#91;2&#93;\nScreenToClient&#40;hWndParent,@aWinRect&#41;\nRETURN aWinRect\n[/code:1xj158cf]\n\nIf I set @ 5,45 PIXEL ..... the real position is 10,90.\n\nSo, if want the pixel-position 5,45 on the dialog, I must use 2.5 , 22.5\n\nwhy?','',0,'AIA=','1xj158cf',1,0,'',382,0,0),(7126,1695,1,161,0,'81.164.212.146',1139838254,1,0,1,1,1,0,'','','Thanks Enrico,\n\nThis is what I want.\n\nMarc','',0,'AIA=','1uqeuzfe',1,0,'',161,0,0),(7127,1640,3,49,0,'87.6.183.18',1139839601,1,0,1,1,1,1,'','','I asked to antonio for \" headers listbox 32bit\" and he responce to me he not have time to create it .....\nDo you want see the email  original message ?\n\ngo to <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=6352#6352\">http://fivetechsoft.com/forums/viewtopi ... =6352#6352</a><!-- m -->\n\nand then when You write one thing connects the brain...\n\nit you want use Inno setup OK but it not created with fivewin If I must use a delphi program I go to Delphi for all me applications','',0,'AIA=','2w31v3j3',1,0,'',49,0,0),(7128,1703,3,49,0,'87.6.183.18',1139839936,1,0,1,1,1,1,'','OCR with Fivewin','Some one have a func or a class  create with fivewin to use OCR ?\n\nRegards','',0,'AIA=','hz4shxyu',1,0,'',49,0,0),(7129,1704,6,228,0,'200.119.44.72',1139842338,1,0,1,1,1,1,'','Capturar datos en un browse, asi como en excel','Amigo del foro, buen dia para todos.\n\nNecesito lo siguiente:\n\nComo hago para capturar datos en un brose algo similar a lo que hace excel, pero que al mismo tiempo pueda validar lo que he digitado, osea que si capturo un articulo y este existe que me actualice los precios dentro del mismo registro. \n\nUso fwh 2.7 browse nativo, xharbour','',0,'AIA=','22aiu1vs',1,0,'',228,0,0),(7130,1662,6,41,0,'200.87.67.10',1139843377,1,0,1,1,1,0,'','','Holas,\n\nhe solucionado el problema, para la gente que le interese, el problema se ocasiona cuando uno hace uso de ARC para importar tablas DBF a CDX, ya tuve prioblemas con campos que tenian espacios al final, la importacion trunca esta informacion.\n\nConclusion, no utilizar ARC para importar tablas, mejor hacerlo a mano\n\nsaludos y gracias \n\nMarcelo','',0,'AIA=','5272mwsw',1,0,'',41,0,0),(7131,1665,6,255,0,'200.67.175.250',1139844184,1,0,1,1,1,1,'','Re: buttonBmp','[quote=&quot;Francisco Horta&quot;:1egcum5i]Gracias Antonio solucionado !!\n\nRuben en el button.prg en esto defines\n   #define BS_LEFT         0x00000100\n   #define BS_RIGHT        0x00000200\n   #define BS_TOP          0x00000400\n   #define BS_BOTTOM       0x00000800\n   #define BS_MULTILINE    0x00002000\n\nhay que quitarle la \"L\" que viene al final\nsaludos[/quote:1egcum5i]\n\n\nRecibidos, gracias','',0,'gA==','1egcum5i',1,0,'',255,0,0),(7132,1648,3,34,0,'68.4.154.81',1139844703,1,0,1,1,1,1,'','Folder','OK ... removing the reference does not help ... I tried again this morning because I experimented with that yesterday.\n\nI\'ve looked for other files that might be in the path that could cause an issue.  I don\'t see any, but perhaps you could suggest which ones I might need to evaluate.\n\nThe problem is consistent wherever I use folders in the program.\n\nTim','',0,'gA==','1of00res',1,0,'',34,0,0),(7133,1692,3,34,0,'68.4.154.81',1139844770,1,0,1,1,1,1,'','Get fixed','OK ... that fixed the GET issue ... \n\nStill no bitmap background on the folders ( see other thread ).\n\nTim','',0,'gA==','2hx0kusa',1,0,'',34,0,0),(7135,1706,7,449,0,'212.64.224.244',1139845269,1,0,1,1,1,0,'','LINK -&gt; Enlazar con fichero de lotes','Hola, \n\nQuiero enlazar una aplicacion usando un fichero de lotes. Alguien sabe como lo debo indicar ?. \n\nYo quiero enlazar Miobj + mis 2 lbrerias + librerias FWPPC + librerias windows y creo un fichero ascii llamado test.lnk con este contenido: \n\n.\\obj\\MiObj.obj \n.\\lib\\MiLib1.lib \n.\\lib\\MiLib2.lib \nFiveCE.lib FiveCEC.lib \nRTL.LIB VM.LIB GTWIN.LIB LANG.LIB MACRO.LIB \nRDD.LIB DBFNTX.LIB DBFCDX.LIB DBFFPT.LIB HBSIX.LIB \nDEBUG.LIB COMMON.LIB PP.LIB CODEPAGE.LIB \n\nLa linea de comando me da error si hago \n\nLink.exe Test.lnk /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM \n\nMe echais un cable ? \n\nSaludos. \nC.','',0,'gA==','1lmlaoz3',1,0,'',449,0,0),(7136,1707,6,286,0,'201.243.181.118',1139845368,1,0,1,1,1,1,'','Acerca de ErrorSys','Estimados amigos\n\nRevisando diversos post aqui observe una sugerencia de Antonio que indica leer el archivo MAP de la aplicacion en un caso donde se presentó un mensaje de error con direccionamiento de memoria. Mi aplicacion esta generando un error en la direccion 0x0045e47f y de acuerdo al MAP lo mas cercano que consegui es estas lineas\n\n 0001:00045EEC      _hb_macroTextValue\n 0001:00045EEC      _hb_macroTextValue\n\nla cual se repite 2 veces. Yo se cual es el error y que lo está originando, pero mi pregunta viene en el sentido de conocer por que está ocurriendo que los errores no estan siendo atrapados por Errorsys y solo aparecen este tipo de dialogos que finalizan la aplicacion inesperadamente.\n\nGracias por sus comentarios','',0,'gA==','e3z7brns',1,0,'',286,0,0),(7137,1706,7,123,0,'88.2.178.6',1139845639,1,0,1,1,1,0,'','','Carles,\n\nÉchale un vistazo a buildce.bat\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2edf9isr',1,0,'',123,0,0),(7138,1682,3,324,0,'62.38.192.64',1139845748,1,0,1,1,1,0,'','','Unfortunately, no problem solved <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nI replaced all long resource names with the names which are up to 10 characters long.\nThe same problem persists...\nUsing xHarbour October 2005 and FWH December 2005 (I think but I got it on December 2005)\n\nShould I take a look into some class or something. \nIt is very frustrating, changing the name of one button bar image, another two are not shown which were shown correctly a minute before. Then change these two names, one is shown another not, but in addition, the previous one I just changed, doesn\'t show this tima. \nAn endless loop...\n\nAny help or advice please?','',0,'gA==','bvurhxp2',1,0,'',324,0,0),(7139,1708,3,286,0,'201.243.181.118',1139845949,1,0,1,1,1,1,'','ErrorSys','Dear friends:\n\nI was looking some post here and found an Antonio suggest that says we can read the MAP file if we\'ve get memory address error. My app is showing an error at the 0x0045e47f memory address. In the MAP file the closer lines are:\n\n 0001:00045EEC      _hb_macroTextValue\n 0001:00045EEC      _hb_macroTextValue\n\nI know what the error is and its cause, but the question is why the ErrorSys procedure isn\'t catching the errors and only get this dialog error that end the app suddenly.\n\nThanks for your comments','',0,'gA==','3hr7b2d8',1,0,'',286,0,0),(7140,1706,7,449,0,'212.64.224.244',1139846326,1,0,1,1,1,0,'','','Caray,\n\nLo tenia delante y no lo veia. Esto son ya las horas q llevo encima  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> . Me faltaba añadir estas librerias.\n\ncoredll.lib\ncorelibc.lib\naygshell.lib\nws2.lib\nmfcce400.lib\nole32.lib\n\nSaludos.\nC.','',0,'gA==','3dv69f59',1,0,'',449,0,0),(7141,1637,22,56,0,'217.251.231.152',1139846704,1,0,1,1,1,1,'','','Hi Silvio,\n\n[quote:2mpx8rmt]I used Easyreport and EastPreview but is too, is much too difficult create a report \nIf you want create a special report for a program is too difficult to create it and I cannot have time to it , I want a simply class to insert alsio into all my program[/quote:2mpx8rmt]\ncould you discribe the kind of report you want to create?\nEasyReport is a very flexible friend and I can´t  believe that\nit does not fit your needs.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2mpx8rmt',1,0,'',56,0,0),(7142,1682,3,3,0,'82.124.113.107',1139849110,1,0,1,1,1,0,'','','[quote=&quot;Boris&quot;:3kie0o6r]Unfortunately, no problem solved <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nI replaced all long resource names with the names which are up to 10 characters long.\nThe same problem persists...\nUsing xHarbour October 2005 and FWH December 2005 (I think but I got it on December 2005)\n\nShould I take a look into some class or something. \nIt is very frustrating, changing the name of one button bar image, another two are not shown which were shown correctly a minute before. Then change these two names, one is shown another not, but in addition, the previous one I just changed, doesn\'t show this tima. \nAn endless loop...\n\nAny help or advice please?[/quote:3kie0o6r]\n\nBoris\n\nYou should look into xharbour.com\'s ng \nThere is a thread about this, Looks like in some cases, xbuild has a problem with dialogs.\n\nRichard','',0,'gA==','3kie0o6r',1,0,'',3,0,0),(7143,1682,3,3,0,'82.124.113.107',1139849395,1,0,1,1,1,0,'','','[quote=&quot;Boris&quot;:38jvxb61]Unfortunately, no problem solved <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nI replaced all long resource names with the names which are up to 10 characters long.\nThe same problem persists...\nUsing xHarbour October 2005 and FWH December 2005 (I think but I got it on December 2005)\n\nShould I take a look into some class or something. \nIt is very frustrating, changing the name of one button bar image, another two are not shown which were shown correctly a minute before. Then change these two names, one is shown another not, but in addition, the previous one I just changed, doesn\'t show this tima. \nAn endless loop...\n\nAny help or advice please?[/quote:38jvxb61]\n\nBoris\nIn case you do not have access to the xharbour com forum\n\nThis the reply from Ron Pinkas\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n&lt;quote\nOk, the solution is very simple. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThe defacto recommended practice for Dilaog IDs in resource file is to use \nNUMRIC identifiers, rather than Strings.\n\nNow, to the simple solution:\n\n1. Add the follwoing at bottom of your main source:\n\n//------------------------------------------------------------------------------------------------\n#pragma BEGINDUMP\n#include &lt;windos.h&gt;\n#include \"hbapi.h\"\n\nHB_FUNC( MAKEINTRESOURCE )\n{\n   hb_retclenStatic( MAKEINTRESOURCE( hb_parnl(1) ), 2 );\n}\n#pragma ENDDUMP\n//------------------------------------------------------------------------------------------------\n\n2. To the top of of your resource file, and to the top of your source \naccessing the resources, add:\n\n   #include \"MyApp.ch\"\n\n3. In your Resouce file, add &gt;ID_&lt; prefix to your dialog names.\n\n4. Create a new MyApp.ch with content like this (based on your xTest \nsample):\n\n//------------------- xTest.ch --------------------//\n#define ID_PRE_IMP             1001\n#define ID_CAD_CONFIG          1002\n#define ID_CAD_CONTATOS        1003\n#define ID_CAD_EXTRA           1004\n#define ID_CAD_FONES           1005\n#define ID_CAD_FONESVAL        1006\n#define ID_CAD_MENSALIDADE     1007\n#define ID_CAD_MODI            1008\n#define ID_CAD_OBSERVACAO      1009\n#define ID_CAD_ORCAMENTOS      1010\n#define ID_CAD_OUTRO_FONE      1011\n#define ID_CAD_SENHA           1012\n#define ID_CAD_SOLICIT         1012\n#define ID_CAD_TREINA          1013\n#define ID_CAD_VERSOES         1014\n#define ID_DLG_ENVELOPE        1015\n#define ID_DLG_FILTRO          1016\n#define ID_DLG_INDEX           1017\n#define ID_DLGAGUARDE          1018\n#define ID_DLGDATAEST          1019\n#define ID_DLGDATACLIEST       1020\n#define ID_DLGFILREC           1021\n#define ID_DLGINDEXAULTATEND   1022\n#define ID_DLGPENDENC          1023\n#define ID_IMP_NOTA            1024\n#define ID_IMP_SOLICIT         1025\n#define ID_PRINT               1026\n#define ID_PRINT_PROC          1027\n#define ID_PREVIEW_PROC        1028\n#define ID_CAD_ATEDESCR        1029\n#define ID_CAD_ATENDIMENTOS    1030\n#define ID_CAD_CLIENTES        1031\n//-------------------- EOF ----------------------//\n\n5. Finally, change your code from:\n\n    DEFINE DIALOG oDLG RESOURCE \"PRE_IMP\"\n\nto:\n\n   DEFINE DIALOG oDLG RESOURCE MAKEINTRESOURCE( ID_PRE_IMP )\n\nThat\'s all, you should never again see such problem.\n\nRon','',0,'gA==','38jvxb61',1,0,'',3,0,0),(7144,1637,22,49,0,'87.10.179.47',1139850344,1,0,1,1,1,1,'','','I send U on private email 3 files IPG\nI try to create it last year then I had create another different print','',0,'gA==','1m8cwmg0',1,0,'',49,0,0),(7145,1654,4,289,0,'86.51.0.133',1139850765,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:5jt1om37]Hathal,\n\nDo you have SET DELETE ON ?[/quote:5jt1om37]yes I do\nset delete on\nBecame clear for me that the problem is by the Emulator\nWhere with the true pocket pc not problem\nregards\nhathal','',0,'gA==','5jt1om37',1,0,'',289,0,0),(7146,1700,6,21,0,'80.58.49.235',1139850784,1,0,1,1,1,1,'','','Hola grupo,\n\nSolucionado.\n\nComprobé que el archivo testlnf2.prg del directorio samples funcionaba correctamente.\n\nLa diferencia era los parametros que se pasaban. Una vez cambiados funciona correctamente.\n[code:1auzn7an]DLL32 Static Function apiFullFName&#40;lpszFile AS LPSTR, cchPath AS DWORD,;\n               lpszPath AS LPSTR, @nFilePos AS PTR&#41;;\n    AS LONG PASCAL FROM &quot;GetFullPathNameA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:1auzn7an]\n\nLo que no se es el motivo por el que ahora cambia los parámetros a pasar y si ese problema me lo encontraré en alguna dll mas.','',0,'AIA=','1auzn7an',1,0,'',21,0,0),(7147,1697,4,289,0,'86.51.0.131',1139851574,1,0,1,1,1,0,'','','The thank you Antonio Linares \nThis is Client , not  there is servant for it ?\nregards\nhathal','',0,'AIA=','27527ojl',1,0,'',289,0,0),(7148,1656,6,21,0,'80.58.49.235',1139852059,1,0,1,1,1,1,'','','Antonio,\n\nAhora funciona perfectamente.\n\nMuchas gracias.','',0,'AIA=','8mvyefa6',1,0,'',21,0,0),(7149,1709,3,49,0,'87.10.179.47',1139853248,1,0,1,1,1,1,'','recompiled with c files','I must compiled on a program this function \nbut when I recompiled the program the exe not run ...why ?\n\nI think there is an error but where ?\n\n\n[code:2nd4qdqv]\n#define HB_API_MACROS\n\n#include &lt;Windows&#46;h&gt;\n//#include &lt;dos&#46;h&gt;\n#include &lt;hbApi&#46;h&gt;\n\n\ntypedef struct\n&#123;\n   FARPROC farProc;\n//   BYTE bType;\n//   BYTE bReturn;\n//   BYTE bParams;\n//   BYTE bParam&#91; 15 &#93;;\n&#125; STRFUNC;\n\n//----------------------------------------------------------------------------//\nHARBOUR HB_FUN_CLSETROP2&#40;&#41; //&#40;hDll,Ctex&#41;\n&#123;\nhb_retni&#40;  SetROP2&#40; &#40;HDC&#41; hb_parnl&#40;1&#41;, hb_parni&#40;2&#41;&#41; &#41;;\n&#125;\n[/code:2nd4qdqv]','',0,'AIA=','2nd4qdqv',1,0,'',49,0,0),(7150,1710,6,431,0,'200.8.17.205',1139855562,1,0,1,1,1,0,'','Compilando Toolbar1.prg','Estoy usando FWH febrero + harbour 45.0 + bcc 5.5 que estan en la entrega de Febrero del FTDN estoy usando en una aplicacion grande los TOOLBAR tal como en el ejemplo por comando DEFINE del Toolbar1.prg\ny me genera el siguiente error :\n\nCompiling \'toolbar1.prg\' and generating preprocessed output to \'toolbar1.ppo\'.\n\ntoolbar1.prg(26) Error E0030  Syntax error: \"parse error at \'[\'\"\n1 error\n\nigualmente en mi aplicacion.\n\nde antemano gracias.\n\nMario Gonzalez','',0,'','nxxb78c5',1,0,'',431,0,0),(7151,1711,6,61,0,'201.217.166.59',1139857768,1,0,1,1,1,0,'','UtilPrn de TheFull - por favor','Amigos:\n\nAlguien tiene la UtilPrn para la ultima version\nde FWH 2.7 Febrero ?\n\nLe agradezco me envien una copia u obj.\nHarbour - Borland - FWH\n\nMuchas gracias.\n\nRuben Fernandez','',0,'','311n77c7',1,0,'',61,0,0),(7152,1712,6,61,0,'201.217.165.11',1139859143,1,0,1,1,1,0,'','BtnGet -otra que no me anda con el nuevo FWH Feb','Amigos:\n\nMolesto de nuevo, alguien tendría\nla Brnget para FWH Febrero ?\n\nMuhas gracias.\n\nRuben Fernandez','',0,'','2yxv2t1j',1,0,'',61,0,0),(7153,1712,6,362,0,'200.168.52.156',1139859992,1,0,1,1,1,1,'','Re: BtnGet -otra que no me anda con el nuevo FWH Feb','[quote=&quot;RuFer&quot;:1q9pmc5p]Amigos:\n\nMolesto de nuevo, alguien tendría\nla Brnget para FWH Febrero ?\n\nMuhas gracias.\n\nRuben Fernandez[/quote:1q9pmc5p]\n\nTi basta Esto...\n\n%FwhDir%\\Tools\\Clp2Harb GetBtn.C GetBtn.HC\n%FwhDir%\\Tools\\Clp2Harb FwBmp.C FwBmp.HC\n\n%Bcdir%\\Bin\\Bcc32 -c -D__HARBOUR__;HB_API_MACROS -I%FwhDir%\\Include;%hDir%\\Include -tW GetBtn.HC\n%Bcdir%\\Bin\\Bcc32 -c -D__HARBOUR__;HB_API_MACROS -I%FwhDir%\\Include;%hDir%\\Include -tW FwBmp.HC\n\nDespues di Generar el Codigo C en Objeto, incorpora a Tu Proyecto.','',0,'gA==','1q9pmc5p',1,0,'',362,0,0),(7154,1712,6,61,0,'201.217.162.10',1139861007,1,0,1,1,1,0,'','','Lo intento muchas gracias.\n\n\nSaludos.\nRuben Fernandez','',0,'gA==','3ht5ieg6',1,0,'',61,0,0),(7155,1713,6,431,0,'200.8.17.205',1139861471,1,0,1,1,1,0,'','Wbrowse de Hernan','Alguien tiene el Wbrowse de Hernan con el ultimo FWH de Febrero para que por favor me lo facilite.\nde antemano gracias\n\n\nMario Gonzalez','',0,'gA==','3ozzt04n',1,0,'',431,0,0),(7156,1714,6,453,0,'217.124.57.138',1139863449,1,0,1,1,1,0,'','No se encuentra tutor01.il?','Hola:\n\nSoy nuevo en FWH y tengo intención de pasar mis aplicaciones de FW de 16 bits a 32 bits. Estoy tratando de crear el primer ejecutable con el tutor01 y no me lo crea, ya que, al final del proceso, sale la siguiente línea:\n\n\"No se encuentra C:\\FWH\\SAMPLES\\tutor01.il?\"\n\nLa configuración de las diferentes carpetas es la siguiente:\n\nC:\\FWH\nC:\\Harbour\nC:\\BCC55\n\nEn el fichero buildh.bat he modificado las rutas:\nset hdir=c:\\Harbour\nset bcdir=c:\\BCC55\n\nDentro del directorio C:\\BCC55\\bin he insertado los ficheros bcc32.cfg e ilink32.cfg con el siguiente contenido:\n\n--bcc32.cfg--\n-I\"c:\\BCC55\\include\"\n-L\"c:\\BCC55\\lib\"\n\n--ilink32.cfg--\n-L\"c:\\BCC55\\lib\"\n\n¿Dónde está el fallo?  He estado revisándolo todo y la verdad es que no sé dónde está el error.\n\nGracias','',0,'gA==','339p34nf',1,0,'',453,0,0),(7157,1715,2,146,0,'200.45.180.152',1139866910,1,0,1,1,1,0,'','problemas con la clase txtprev','Hola amigos:\n\nEstoy trabajando en el sistema con la clase txtprev, hasta ahora andaba espectacular. Pero resulta que en un cliente con tablas muy grandes se me va del sistema sin ningun mensaje de error. La estuve siguiendo y puedo ver sin problemas informes de 130 páginas, ahora si tengo muchas tablas grandes todas juntas abiertas y quiero ver el mismo informe se me va del sistema, es cuando la clase txtprev arma la dbf, llega hasta un cierto renglon o append y se va, no siempre llega hasta la misma cantidad de registros, todo depende de la cantidad de informacion que tiene el resto de las dbf, ahora el archivo que genera para abrir antes de crear la dbf temporal esta completo y lo puedo abrir bien porque lo veo. Alguien sabe a que se debe este comportamiento.  Muchas gracias por la ayuda.\n\nLeonor.\n<!-- e --><a href=\"mailto:leonorgonz@yahoo.com.ar\">leonorgonz@yahoo.com.ar</a><!-- e -->','',0,'gA==','38w1rl4r',1,0,'',146,0,0),(7158,1648,3,2,0,'87.218.146.109',1139868265,1,0,1,1,1,1,'','','Tim,\n\nCould you please test samples\\TestFldb.prg and confirm if folders look ok with the background bitmap ? Thanks','',0,'gA==','23geqhxu',1,0,'',2,0,0),(7159,1716,3,2,0,'87.218.146.109',1139868334,1,0,1,1,1,1,'','Events support on Class TActiveX !','We have completed the events support for the Class TActiveX.\n\nTomorrow we plan to publish some samples <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3e9tqvrw',1,0,'',2,0,0),(7160,1717,6,2,0,'87.218.146.109',1139868411,1,0,1,1,1,1,'','Soporte de Eventos para la Clase TActiveX !','Ya hemos completado el soporte de eventos para la Clase TActiveX.\n\nMañana publicaremos algunos ejemplos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1f8q0kgb',1,0,'',2,0,0),(7161,1714,6,2,0,'87.218.146.109',1139868739,1,0,1,1,1,1,'','','Ramón,\n\nEste mensaje es normal: (de paso hemos corregido que no salga, gracias)\nNo se encuentra c:\\FWH\\samples\\tutor01.il?\n* Application successfully built\n\nPero el EXE debería estar construido y aparecer un MsgInfo() en pantalla.\n\nhay algún otro error antes de esa línea ?','',0,'gA==','38251zge',1,1139878255,'',2,1,0),(7162,1696,6,2,0,'87.218.146.109',1139869201,1,0,1,1,1,1,'','','Toni,\n\nEn el ejemplo que proporcionas no estás usando el browse.\n\nEl problema proviene por una lentitud al procesar todos los mensajes de pintado que envia Windows, debido al uso del pintado a doble buffer.\n\nSi en la Clase TWindow declaras los métodos DispBegin() y DispEnd() como VIRTUAL, entonces desaparecerá el problema, pero no tendrás pintado a doble buffer que elimina muchos parpadeos, pero tiene ese desagradable efecto, debido al tiempo que consume la maquina virtual de la aplicación.','',0,'gA==','1gjczq9x',1,0,'',2,0,0),(7163,1656,6,2,0,'87.218.146.109',1139869367,1,0,1,1,1,1,'','','Fernando,\n\nGracias a ti por reportar el problema y así poder trabajar para solucionarlo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3934g5jw',1,0,'',2,0,0),(7164,1710,6,2,0,'87.218.146.109',1139869490,1,0,1,1,1,1,'','','Mario,\n\nModifica este comando dentro de FiveWin.ch, gracias:\n\n[code:34qk9tmi]\n#xcommand DEFINE TOOLBAR &lt;oTlb&gt; ;\n             &#91; &lt;dlg&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ;\n             &#91; IMAGELIST &lt;oImg&gt; &#93; ;\n             &#91; &lt;balloon&#58; BALLOON &gt; &#93; ;\n       =&gt; ;\n          &lt;oTlb&gt; &#58;= TToolBar&#40;&#41;&#58;New&#40; &lt;oWnd&gt;, &#91;&lt;nWidth&gt;&#93;, &#91;&lt;nHeight&gt;&#93;, &#91;&lt;oImg&gt;&#93;,;\n                                   &#91;&lt;&#46;balloon&#46;&gt;&#93; &#41;      \n\n[/code:34qk9tmi]','',0,'AIA=','34qk9tmi',1,0,'',2,0,0),(7165,1713,6,2,0,'87.218.146.109',1139869551,1,0,1,1,1,1,'','','Mario,\n\nRevisa este post:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1647\">http://fivetechsoft.com/forums/viewtopic.php?t=1647</a><!-- m -->','',0,'AIA=','1le1esnx',1,0,'',2,0,0),(7166,1679,6,2,0,'87.218.146.109',1139869722,1,0,1,1,1,1,'','','Giancarlo,\n\nEl mejor consejo es pasar la aplicación a 32 bits con Harbour/xharbour y FWH.\n\nOtra opción, sería usar Blinker y construir la aplicación en modo protegido, con lo que dispone de muchísima más memoria.','',0,'AIA=','2fszapg5',1,0,'',2,0,0),(7167,1697,4,2,0,'87.218.146.109',1139869814,1,0,1,1,1,1,'','','Hathal,\n\nit is not a client-server sample. It is just a \"clients\" management.','',0,'AIA=','2cv2cr0p',1,0,'',2,0,0),(7168,1709,3,2,0,'87.218.146.109',1139870052,1,0,1,1,1,1,'','','Silvio,\n\nYou may try hb_parnl(2)','',0,'AIA=','3fz6gde4',1,0,'',2,0,0),(7169,1640,3,2,0,'87.218.146.109',1139870204,1,0,1,1,1,1,'','','Dale,\n\n&gt;\nAnd by the way - Antonio has not responded to any of the messages in this thread so I have my doubts as to whether or not he is wasting any time on this. \n&gt;\n\nWe have been very busy finishing events support for activex.\n\nWin32 headers for listboxes its on our to-do list. We can not say when, but we will provide them.','',0,'AIA=','wrx9j2or',1,0,'',2,0,0),(7170,1709,3,6,0,'82.59.197.149',1139870305,1,0,1,1,1,1,'','Re: recompiled with c files','Hard to say without more details on the error you got and a reduced and self-contained sample showing the problem.\n\nEMG','',0,'AIA=','36yy0jbg',1,0,'',6,0,0),(7171,1702,3,2,0,'87.218.146.109',1139870377,1,0,1,1,1,1,'','','Frank,\n\nThe Windows API dialogboxes management has a different way to consider coordinates when creating a dialogbox.\n\nIf you want to have exact coordinates, you may place the controls from the ON INIT clause of the dialogbox:\n\n[code:31hxus97]\n   ACTIVATE DIALOG oDlg ;\n      ON INIT PlaceControls&#40; oDlg &#41;\n\n&#46;&#46;&#46;\n\nfunction PlaceControls&#40; oDlg &#41;\n\n   @ &#46;&#46;&#46;, &#46;&#46;&#46; SAY &#46;&#46;&#46; PIXEL\n   &#46;&#46;&#46;\n\nreturn nil\n[/code:31hxus97]\n\nThis way you will see you get the right positions.','',0,'AIA=','31hxus97',1,0,'',2,0,0),(7172,1708,3,2,0,'87.218.146.109',1139870826,1,0,1,1,1,1,'','','William,\n\nAre you building harbour/xharbour yourself ? If so please use -DHB_INCLUDE_WINEXCHANDLER\n\nYou should get a calls stack Msg on the screen.\n\nDo you have a sample to reproduce the problem ?','',0,'AIA=','ebb904ks',1,0,'',2,0,0),(7173,1709,3,49,0,'87.1.179.120',1139871220,1,0,1,1,1,1,'','','I trying to recompiled tdwg cad class of Arthuro. Now run ok thank EMG and Linares','',0,'AIA=','1lddfg2s',1,0,'',49,0,0),(7174,1714,6,453,0,'217.124.57.231',1139872221,1,0,1,1,1,0,'','','Gracias, Antonio, por contestar. Efectivametne había creado el exe. Lo que pasa es que al generarse terminaba en la frase de \"No se encuentra c:\\FWH\\samples\\tutor01.il?\" y no aparecía a continuación la de \" Application successfully built \" y por eso daba la sensación de que no se había generado el exe, ya que, además, tampoco se abría al crearse.\n\nGracias','',0,'AIA=','3eh71p2s',1,0,'',453,0,0),(7175,1712,6,73,0,'201.133.246.32',1139874737,1,0,1,1,1,0,'','Re: BtnGet -otra que no me anda con el nuevo FWH Feb','[quote=&quot;RuFer&quot;:2uslhpg5]Amigos:\n\nMolesto de nuevo, alguien tendría\nla Brnget para FWH Febrero ?\n\nMuhas gracias.\n\nRuben Fernandez[/quote:2uslhpg5]\nHola Ruben, cual fue el comportamiento del btnget?\nsi tienes los fuentes, genera los obj con el build de febrero y prueba...\nsalu2\nPako','',0,'gA==','2uslhpg5',1,0,'',73,0,0),(7176,1103,1,170,0,'83.179.13.205',1139875512,1,0,1,1,1,1,'','Re: clipper exe and time cpu','[quote=&quot;Piscicelli Zingoni&quot;:6zpqqnzn]Hi,\nIn my old clipper application on XP when running an exe program  i see the pc works very slow in special when run a second application.\nIs there some prg/obj to use to minimize the running of the exe clipper application while it is in backgrownd  (with no focus) ?\n\nTks\nP/Z[/quote:6zpqqnzn]\n\nNow i have solved a similary problem using fivewin StopUntil()\ncombined with class TTimer() and few others specifics\nto my proper use. StopUntil() is not documented in FW 2.5.\n\nCPU time was 100 % yesterday, 3 % now !\n\nRegards,','',0,'gA==','6zpqqnzn',1,0,'',170,0,0),(7177,1647,6,49,0,'87.6.183.103',1139877160,1,0,1,1,1,1,'','','Hernan,\nwhen the new wbrowse ?\n\nRegards','',0,'gA==','342llznq',1,0,'',49,0,0),(7178,1708,3,286,0,'201.243.181.118',1139880132,1,0,1,1,1,1,'','','Well my friends\n\nI found the problem source. Some piece of code from a fivewin contributor I\'m using, declare a new error object like this\n\n    bNewError := {|oError| ErrorHandler(oError,.T.) }\n    bOldError := Errorblock(bNewError)\n\nI forget to restore the old error object \n\n    Errorblock(bOldError)\n\nand you know... two weeks with a headache...\n\nNow I smile of my fault\n\nThanks Antonio and everybody','',0,'gA==','1dtdoehx',1,0,'',286,0,0),(7179,1709,3,15,0,'203.73.90.6',1139881933,1,0,1,1,1,0,'','','Hello Silvio\n\nCould you share how to dispaly CAD file(Only)?\n\nRegards,\n\nRichard','',0,'gA==','3p0ym63u',1,0,'',15,0,0),(7180,1712,6,61,0,'201.217.162.101',1139882401,1,0,1,1,1,0,'','','Hola Francisco:\n\nEl comportamiento era que la aplicacion se salia\nal dar Enter en un btnget..peroooo\n\nNo se lo que he hecho.\nLo que si se es que esta funcionando.\n\nTengo tantas librerias de terceros que\nposiblemente algunas no esten andando bien.\n\nMuchas gracias por tu interes.\n\nHasta ahora con el build de Febrero\nfuncionan los tsbuttons y el btnget.\n\nSaludos.\n\nRuben Fernandez','',0,'gA==','1nk08vax',1,0,'',61,0,0),(7181,1718,4,454,0,'63.168.93.42',1139883095,1,0,1,1,1,0,'','Motorola MPX 220 ???','Este telefono viene con Windows Mobile instalado; funcionaria FWPPC en el ?','',0,'gA==','3eyup16l',1,0,'',454,0,0),(7182,1719,6,431,0,'200.8.17.205',1139883726,1,0,1,1,1,1,'','Wbrowse de Hernan con FWH 2.7 Febrero.','Estoy usando wbrwline.c de Hernán corregido para la versión 2.7 de Febrero compila y me genera la .lib sin problemas pero ahora me consigo con unos comportamiento extraño de la clase que antes no los hacia :\n\n    1.- con las versiones anteriores del wbrowse podia desplazarme con los scroll del mouse sin problemas , ahora no.\n\n    2.- yo uso dicha clase para mostrar archivos de textos de la siguiente manera : \n   oLbx:SetTXT( cArchivo )\npero al correrlo me genera el siguiente error:\n   Called from:  =&gt; READLINE(0)\n   Called from:  =&gt; (b)SETTXT(3734)\n   Called from:  =&gt; TWBROWSE:DEFAULT(1634)\n   Called from:  =&gt; __EVAL(0)\n   Called from:  =&gt; TWBROWSE:INITIATE(0)\n\ngracias de antemano.','',0,'gA==','3rvphftl',1,0,'',431,0,0),(7183,1648,3,34,0,'68.4.154.81',1139889679,1,0,1,1,1,1,'','Test file','I stated in my very first post in this thread that the sample builds fine.\n\nMy problem is that my code is basically identical to the sample, so it should also work fine.\n\nObviously something is missing here.\n\nWhich .prg and which .ch files might exist which would cause a problem.  In other words, in which files do you have the class code for the folders ?  From what might this feature inherit ?\n\nTim','',0,'gA==','3ppeqo9j',1,0,'',34,0,0),(7184,1640,3,419,0,'198.54.202.210',1139898007,1,0,1,1,1,0,'','','Thanks Antonio, that is all I needed to know.\n\nPlease do take into account some of the ideas express in this message thread when you get around to working on the listbox code.\n\n(Other than the listbox problems - FWH / xHB - is the best)!\n\nThanks again,\n\nDale.','',0,'gA==','3g2blnjs',1,0,'',419,0,0),(7185,1720,3,419,0,'198.54.202.210',1139898418,1,0,1,1,1,0,'','Printer Fonts','Does anyone have an idea what parameters to use when defining a printer font that will make the printer print in the equivalent old DOS font size?\n\nWhat I am trying to say is (for example):\n\nIn DOS we had Chr(27) + Chr(15) (usually) which was \'compressed\' print and Chr(27) + Chr(18) (usually) which was \'normal\' print.  What is the equivalent \'Define Font oFont ... Size ...\' etc. etc. for \'normal\' and \'compressed\' fonts.\n\nI don\'t mean that I want to print using DOS (using TDosPrn) but what the closest fonts to \'normal\' and \'compressed\' using FWH and Windows printing.\n\nBasically I need a \'normal\' and \'compressed\' font that does not use proportional spacing.\n\nI hope my question makes sense.\n\nRegards,\n\nDale.','',0,'gA==','20qsf6tj',1,0,'',419,0,0),(7186,1716,3,137,0,'151.38.8.195',1139903010,1,0,1,1,1,0,'','','Great!','',0,'gA==','1fxejw9d',1,0,'',137,0,0),(7187,1696,6,57,0,'81.39.239.66',1139903056,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:m1c2ojw6]Toni,\n\nEn el ejemplo que proporcionas no estás usando el browse.\n\nEl problema proviene por una lentitud al procesar todos los mensajes de pintado que envia Windows, debido al uso del pintado a doble buffer.\n\nSi en la Clase TWindow declaras los métodos DispBegin() y DispEnd() como VIRTUAL, entonces desaparecerá el problema, pero no tendrás pintado a doble buffer que elimina muchos parpadeos, pero tiene ese desagradable efecto, debido al tiempo que consume la maquina virtual de la aplicación.[/quote:m1c2ojw6]\n\nAntonio\nEl tema es que si comenta la linea que te indico y sin usar el browse el repintado se realiza correctamente. Yo le he probado en 2 equipos diferentes con tarjetas de video + o - rápidas y en ambos casos el comportamiento es identico. \nCon el problema del doble buffer se entendería un comporamiento lógico si tardando más, al final, lo repintara correctamente. Lo curioso es que cuando la ventana recibe el foco, esta se queda con los residuos hasta que se fuerza de alguna forma un repintado.\n\nSaludos','',0,'gA==','m1c2ojw6',1,0,'',57,0,0),(7188,1720,3,6,0,'82.57.160.167',1139903533,1,0,1,1,1,1,'','Re: Printer Fonts','The only standard non-proportional true type font is Courier New, as far as I know.\n\nEMG','',0,'gA==','32vc81a3',1,0,'',6,0,0),(7189,1721,3,379,0,'59.167.109.159',1139905243,1,0,1,1,1,0,'','MultiGet','Why is there a restriction of 30k on a Memo field and is there a way we can increase it.\n\nCheers\n\nxHarbour 0.99.3 FWH 2.3','',0,'gA==','2sb2rz4v',1,0,'',379,0,0),(7190,1722,3,455,0,'195.97.105.161',1139905509,1,0,1,1,1,0,'','ImportWMF','Hi all,\nThis is the first time that I register to this form, and would like\nto wish to each and everyone the best.\n\nHere is the problem:\n\n(Please notice that I work for Paysoft Inc., a registered user of FWH)\n\nWe use FWH (Jan. 2006 download), and xHB Professional (Dec. 2005 download).\n\nOur application uses approx. 600 forms in .WMF that are loaded at run time with function ImportWMF(cFile), and then we print whatever number and strings on the form.  All these .WMF\'s have been created with Corel Draw.\n\nIt appears that it worked fine in the 16-bit environment, however, now that we are converting our program to 32-bits, we run into the problem of not been able to load those WMF\'s any more, due to the Enhanced Metafile (.EMF) used recently.\n\nMy question is: how can we resolve this problem without having to convert each and every form through Corel ?\n\nI have notice that TENHMETA.PRG contains a Static Function WMF2EMF at the end, plus three DLL32 calls.  Has this function anything to do with converting a WMF to EMF, and if yes how ?\nThe two of the DLL32 calls at the end of the file contain calls to GDI, that according to Microsoft are now not supported, such as GeTEnhMetaFileBitsEx (now GeTEnhMetaFileBits) and SetWinMetaFileBits (now SetMetaFileBits).\n\nAs you understand, I am lost now  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nHow can I deal with this problem?\nAny advise and a working sample would be appreciated, by me and my boss Mr. Chris Makris.\n\nThank you for your attention.\n\nEvans Bartzokas','',0,'gA==','70siwajd',1,0,'',455,0,0),(7191,1709,3,49,0,'213.82.134.66',1139905611,1,0,1,1,1,1,'','','[quote:1hd7zhow]Could you share how to dispaly CAD file(Only)? \n[/quote:1hd7zhow]\n\nDear taiwan,\nYOU must use tdgw class  of Arthuro Tamaya Daza and then you must go to <!-- w --><a class=\"postlink\" href=\"http://www.opendwg.com\">www.opendwg.com</a><!-- w --> to download the lib and others file .h\n\nI cannot send you these files...\n\nRegards','',0,'gA==','1hd7zhow',1,0,'',49,0,0),(7192,1722,3,6,0,'82.57.160.167',1139905894,1,0,1,1,1,1,'','Re: ImportWMF','From the whatsnew.txt file of July 2005 build:\n\n[quote:sue3eryc] * Enhancement: Class TPrinter Method ImportWMF() is already available for 32 bits. \n   You have to save your WMF files as EMF (enhanced metafiles) ones. You may use a tool \n   like \"Paint Shop Pro\" to do this conversion. Please review samples\\corel.prg.[/quote:sue3eryc]\n\nEMG','',0,'gA==','sue3eryc',1,0,'',6,0,0),(7193,1722,3,455,0,'195.97.105.161',1139906191,1,0,1,1,1,0,'','Re: ImportWMF','Enrico hi,\nThanks for the info, but am already aware of this (it is noted on my post).\nI do not think that there is no other solution or another way...\nI just think that I should wait for more replies, especially from our best of the best \"Antonio Linares\".  Antonio can workout some solution.\nI\'m sure that if we can read an .EMF, we can also read a .WMF and convert it on the fly...\n\nRegars\nEvans\n\n\n[quote=&quot;EnricoMaria&quot;:ie7etd7x]From the whatsnew.txt file of July 2005 build:\n\n[quote:ie7etd7x] * Enhancement: Class TPrinter Method ImportWMF() is already available for 32 bits. \n   You have to save your WMF files as EMF (enhanced metafiles) ones. You may use a tool \n   like \"Paint Shop Pro\" to do this conversion. Please review samples\\corel.prg.[/quote:ie7etd7x]\n\nEMG[/quote:ie7etd7x]','',0,'gA==','ie7etd7x',1,0,'',455,0,0),(7194,1721,3,6,0,'82.57.160.167',1139906259,1,0,1,1,1,1,'','Re: MultiGet','Try this in the ON INIT clause of the ACTIVATE DIALOG command:\n\n[code:1yiwsqp5]#define EM_LIMITTEXT 197\n\n&#46;&#46;&#46; ON INIT oGet&#58;SendMsg&#40; EM_LIMITTEXT, 0, 0 &#41;[/code:1yiwsqp5]\n\nEMG','',0,'AIA=','1yiwsqp5',1,0,'',6,0,0),(7195,1722,3,6,0,'82.57.160.167',1139906345,1,0,1,1,1,1,'','Re: ImportWMF','[quote=&quot;E. Bartzokas&quot;:1f1kbl97]Enrico hi,\nThanks for the info, but am already aware of this (it is noted on my post).\nI do not think that there is no other solution or another way...\nI just think that I should wait for more replies, especially from our best of the best \"Antonio Linares\".  Antonio can workout some solution.\nI\'m sure that if we can read an .EMF, we can also read a .WMF and convert it on the fly...[/quote:1f1kbl97]\n\nYes, it maybe. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1f1kbl97',1,0,'',6,0,0),(7196,1723,3,382,0,'194.77.253.245',1139907465,1,0,1,1,1,1,'','GetTabbedTextExtent','I need the WinApi function \"GetTabbedTextExtent(hDc,cStr,aTabs)\".\n(determines dimensions of tabbed string).\nIs there something like that in FWH?','',0,'gA==','1o1m7swk',1,0,'',382,0,0),(7197,1723,3,6,0,'82.57.160.167',1139910120,1,0,1,1,1,1,'','Re: GetTabbedTextExtent','No, but you can easily create a C wrapper yourself or use DLL command.\n\nEMG','',0,'gA==','1cp4qm41',1,0,'',6,0,0),(7198,1723,3,382,0,'194.77.253.245',1139911943,1,0,1,1,1,1,'','Re: GetTabbedTextExtent','Thanks, but \"easily\" ??? \nI don\'t no about \"C wrapper\" or \"DLL commands\".\nBut I\'ll try it.','',0,'gA==','hq3wljkm',1,0,'',382,0,0),(7199,1724,6,456,0,'217.127.39.57',1139912361,1,0,1,1,1,0,'','Nuevo en FiveWin','Buenas, como dice el asunto soy nuevo usando FiveWin, y el motivo del mensaje es presentarme ante el foro. \nHe llegado a FiveWin, a traves de la version para Pocket PC, aunque ya conocia de la existencia de Five Win, hasta la fecha no lo habia utilizado.\n\nHace años programaba en Clipper (la de miles de lineas que he tecleado <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ), desde que migramos a windows, he trabajado con Delphi, Visual Basic, Visual Velazquez, y Genexus, mayoritariamente desarrolando aplicaciones cliente/servidor contra AS/400.\n\nPues eso, despues de años sin apenas tocar nada en xBase, vuelvo a reenganchar el hilo y ponerme con Harbour+ Fivewin. Seguro que al principio os machacare con mil dudas de novato, pero espero tambien pronto poder ir aportando cosas.\n\nSaludos desde Mallorca','',0,'gA==','319ieoat',1,0,'',456,0,0),(7200,1721,3,379,0,'59.167.109.159',1139913384,1,0,1,1,1,0,'','Multiget','Thanks Enrico - Works a treat.\n\nCheers and Thank you.','',0,'gA==','1uv2zp10',1,0,'',379,0,0),(7201,1725,3,269,0,'217.37.54.49',1139913966,1,0,1,1,1,0,'','updating checkboxes?','I am using several checkboxes in my program, and when I declare them i call a function for each one so that if one is ticked, if the user selects a different one then the focus will be changed and the first checkbox they selected will become blank. \n\nCODE;\n\nREDEFINE CHECKBOX oRubble    VAR mRubble    ID 104 OF oDlg VALID RubbleVal()\n   REDEFINE CHECKBOX oHardboard VAR mHardboard ID 105 OF oDlg VALID HardboardVal()\n   REDEFINE CHECKBOX oTreated   VAR mTreated   ID 106 OF oDlg VALID TreatedVal()\n   REDEFINE CHECKBOX oFerrous   VAR mFerrous   ID 107 OF oDlg VALID FerrousVal()\n   REDEFINE CHECKBOX oOrganic   VAR mOrganic   ID 108 OF oDlg VALID OrganicVal()\n\nHowever, when testing this, I notice that I can still select multiple  checkboxes and nothing is updated. here is the code I am using for the val functions i am calling in the VALIDS.\n\nCODE;\n\nSTATIC FUNCTION RubbleVal\n   \n   IF mRubble\n      mHardboard := .F.\n      mTreated   := .F.\n      mFerrous   := .F.\n      mOrganic   := .F.\n\n      oHarboard:Refresh()\n      oTreated:Refresh()\n      oFerrous:Refresh()\n      oOrganic:Refresh()\n   ENDIF             \n\nRETURN .T.\n\nSTATIC FUNCTION HardboardVal\n   \n   IF mHardboard\n         mRubble := .F.\n      mTreated := .F.\n      mFerrous := .F.\n      mOrganic := .F.\n\n      oRubble:Refresh()\n      oTreated:Refresh()\n      oFerrous:Refresh()\n      oOrganic:Refresh()\n   ENDIF               \n\nRETURN .T.\n\nSTATIC FUNCTION TreatedVal\n   \n   IF mTreated\n         mRubble := .F.\n      mHardboard := .F.\n      mFerrous   := .F.\n      mOrganic   := .F.\n\n      oRubble:Refresh()\n      oHardboard:Refresh()\n      oFerrous:Refresh()\n      oOrganic:Refresh()\n   ENDIF \n\nRETURN .T.\n\nSTATIC FUNCTION FerrousVal\n   \n   IF mFerrous\n         mRubble := .F.\n      mHardboard := .F.\n      mTreated   := .F.\n      mOrganic   := .F.\n\n      oRubble:Refresh()\n      oHardBoard:Refresh()\n      oTreated:Refresh()\n      oOrganic:Refresh()\n   ENDIF              \n\nRETURN .T.\n\nSTATIC FUNCTION OrganicVal\n  \n   IF mOrganic\n        mRubble := .F.\n      mHardboard := .F.\n      mTreated   := .F.\n      mFerrous   := .F.\n\n      oRubble:Refresh()\n      oHardboard:Refresh()\n      oTreated:Refresh()\n      oFerrous:Refresh()\n   ENDIF\n\nRETURN .T.\n\nIs what I am trying to do possible with checkboxes, or am I wasting my time with them. I know I could use radiobuttons but if I could get this to work in the same way that would be preferable. \n\nThanks for any comments or advice.','',0,'gA==','1g53qdqr',1,0,'',269,0,0),(7202,1715,2,362,0,'200.168.52.156',1139914119,1,0,1,1,1,1,'','Re: problemas con la clase txtprev','[quote=&quot;Leonor Gonzalez&quot;:1ufu83ir]Hola amigos:\n\nEstoy trabajando en el sistema con la clase txtprev, hasta ahora andaba espectacular. Pero resulta que en un cliente con tablas muy grandes se me va del sistema sin ningun mensaje de error. La estuve siguiendo y puedo ver sin problemas informes de 130 páginas, ahora si tengo muchas tablas grandes todas juntas abiertas y quiero ver el mismo informe se me va del sistema, es cuando la clase txtprev arma la dbf, llega hasta un cierto renglon o append y se va, no siempre llega hasta la misma cantidad de registros, todo depende de la cantidad de informacion que tiene el resto de las dbf, ahora el archivo que genera para abrir antes de crear la dbf temporal esta completo y lo puedo abrir bien porque lo veo. Alguien sabe a que se debe este comportamiento.  Muchas gracias por la ayuda.\n\nLeonor.\n<!-- e --><a href=\"mailto:leonorgonz@yahoo.com.ar\">leonorgonz@yahoo.com.ar</a><!-- e -->[/quote:1ufu83ir]\n\nHola...\n\nUsted Puedes Preguntar directamente al Autor:\n\n<!-- e --><a href=\"mailto:ednaldorolim@uol.com.br\">ednaldorolim@uol.com.br</a><!-- e -->\n\nSaludos.','',0,'gA==','1ufu83ir',1,0,'',362,0,0),(7203,1725,3,6,0,'82.57.160.167',1139915104,1,0,1,1,1,1,'','Re: updating checkboxes?','Use radiobuttons instead of checkboxes for mutually exclusive options.\n\nEMG','',0,'gA==','pv46uwfb',1,0,'',6,0,0),(7204,1725,3,269,0,'217.37.54.49',1139915661,1,0,1,1,1,0,'','','Enrico,\n\nAs I said in my post, I know I can use radio buttons for this, but I would like that to be a last resort. Is what I am trying to do possible, if not then I shall rethink.\n\nThank You for your comments.','',0,'gA==','6jqyrdho',1,0,'',269,0,0),(7205,1725,3,269,0,'217.37.54.49',1139916539,1,0,1,1,1,0,'','','Enrico,\n \nIt is possible to do this with checkboxes, I have replaced VALID with ON CLICK and works fine. \n\nThanks for your comments.','',0,'gA==','7k6non2d',1,0,'',269,0,0),(7206,1725,3,6,0,'82.57.160.167',1139916934,1,0,1,1,1,1,'','','[quote=&quot;deanomeano&quot;:221aqhet]Enrico,\n \nIt is possible to do this with checkboxes, I have replaced VALID with ON CLICK and works fine. \n\nThanks for your comments.[/quote:221aqhet]\n\nOk, but I still think that you should use radiobuttons.\n\nEMG','',0,'gA==','221aqhet',1,0,'',6,0,0),(7207,1724,6,2,0,'87.218.146.117',1139917077,1,0,1,1,1,1,'','','Bienvenido! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','12s6vlkz',1,0,'',2,0,0),(7208,1718,4,2,0,'87.218.146.117',1139917322,1,0,1,1,1,1,'','','Posiblemente si sirve pues lleva un micro compatible ARM <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.laneros.com/showthread.php?t=25768\">http://www.laneros.com/showthread.php?t=25768</a><!-- m -->','',0,'gA==','27d0ohax',1,0,'',2,0,0),(7209,1726,6,196,0,'200.82.42.136',1139918399,1,0,1,1,1,0,'','Epson Fiscal','Hola a todos.\nSi alguien tiene resuelto la comunicacion con la Epson fiscal, me haria un gran favor en pasarmelo.\n\nMuchas gracias\nJorge Jaurena','',0,'gA==','3vyfgo4q',1,0,'',196,0,0),(7210,1724,6,61,0,'201.217.168.196',1139918647,1,0,1,1,1,0,'','','Bienvenido.\n\nSeguro encontraras aqui mucha gente que\nte ayudara como me han ayudado a mi.\n\nSaludos.\n\nRuben Fernandez','',0,'gA==','2lyd45yd',1,0,'',61,0,0),(7211,1727,5,458,0,'85.139.240.1',1139918660,1,0,1,1,1,0,'','functions of the netbios','Hi!\nI\'m to work in Xbase++.\nIt would like to know if somebody knows to inform me which is the process to use the functions of the netbios in XBase++ (NbReset(), nbAddName(), etc).\nThe necessary library must be invoked well because it recognizes the functions. But it is not to connect, or either, for example, when making nbReset(), it returns false. When making nbError(), the emitted error is nº 35 (\"Invalid Adapter\"). \n\nI don´t understand because it does not function.\nIf somebody could help to discover me reason was thankful.\n\nThanks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3u4e9ok9',1,0,'',458,0,0),(7212,1696,6,2,0,'87.218.146.232',1139919602,1,0,1,1,1,1,'','','Toni,\n\nEs como si se perdiesen mensajes de pintado, ya que si luego redimensionas la ventana ó la maximizas, se pinta correctamente.\n\nEs un problema que comenzó con el pintado a doble buffer y que todavía no sabemos exactamente por qué ocurre.','',0,'gA==','4q8nymb7',1,0,'',2,0,0),(7213,1719,6,2,0,'87.218.146.232',1139919695,1,0,1,1,1,1,'','','Mario,\n\nPero es un GPF ó un error controlado por el errorsys ?','',0,'gA==','1jpn7ca9',1,0,'',2,0,0),(7214,1712,6,2,0,'87.218.146.232',1139919795,1,0,1,1,1,1,'','','Ruben,\n\nPodrías subir los ficheros modificados a hyperupload para que otros usuarios puedan descargarlos ? gracias!','',0,'gA==','2ycze9k9',1,0,'',2,0,0),(7215,1728,6,21,0,'80.58.49.235',1139919953,1,0,1,1,1,1,'','TExcelScript y xHarbour','Hola grupo,\n\nUso la clase TExcelScript de Vikthor para generar exportar dato a excel.\n\nLo que quiero hacer es exportar un tabla a excel y dejar el documento excel abierto para que el operador grabe/cierre o haga lo que quiera con él. \nSin embargo aunque cierre el libro de excel, este queda abierto aunque no visible y dependiente del programa. Por tanto cuando vuelvo a exportar otra a cosa a excel se queda bloqueado (excel).\n\nLo que hacía antes en Harbour para evitar este problemas es poner la instrucción oExcel:End(.F.). Esto liberaba excel de la aplicación y no lo cerraba.\nAhora con xHarbour esta instrucción cierra el documento excel.\n\nComo puedo liberar excel de la aplicación y que este no se cierre?\nGracias a todos por vuestro tiempo','',0,'gA==','haqgbiw7',1,0,'',21,0,0),(7216,1719,6,431,0,'200.8.17.205',1139920265,1,0,1,1,1,1,'','Wbrowse de Hernan con FWH 2.7 Febrero.','Antonio ,\n\n  Error description: Error BASE/1004  Class: NIL has no exported method: READLINE\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; READLINE(0)\n   Called from:  =&gt; (b)SETTXT(3734)\n   Called from:  =&gt; TWBROWSE:DEFAULT(1634)\n   Called from:  =&gt; __EVAL(0)\n   Called from:  =&gt; TWBROWSE:INITIATE(0)','',0,'gA==','38r0ewft',1,0,'',431,0,0),(7217,1727,5,2,0,'87.218.146.208',1139920482,1,0,1,1,1,1,'','','You may review FW++ source\\winapi\\netapi32.prg','',0,'gA==','p125ze12',1,0,'',2,0,0),(7218,1722,3,2,0,'87.218.146.239',1139921269,1,0,1,1,1,1,'','','Evans,\n\nHave you considered to use a tool like this ?\n<!-- m --><a class=\"postlink\" href=\"http://www.convertzone.com/net/cz-advanced%20batch%20converter-wmf-emf.htm\">http://www.convertzone.com/net/cz-advan ... mf-emf.htm</a><!-- m -->','',0,'gA==','gxuyirbq',1,0,'',2,0,0),(7219,1719,6,2,0,'87.218.146.239',1139921908,1,0,1,1,1,1,'','','Mario,\n\nPuedes mostrar el código que hay aqui ?\n\nCalled from: =&gt; (b)SETTXT(3734)','',0,'gA==','1o58rpmg',1,0,'',2,0,0),(7220,1722,3,195,0,'62.38.68.220',1139922000,1,0,1,1,1,0,'','','Evans  \n\nI know  the right person who may solve your problem. He is seating next to me....  MANOS SV1COD.\n\n\nGreetings\n\nDionisis and MANOS','',0,'gA==','1sb2kxfy',1,0,'',195,0,0),(7221,1701,19,2,0,'87.218.146.239',1139922048,1,0,1,1,1,1,'','','Carlos,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.arrakis.es/~cayetano/home.htm\">http://www.arrakis.es/~cayetano/home.htm</a><!-- m -->','',0,'gA==','1xls1h1s',1,0,'',2,0,0),(7222,1729,3,419,0,'196.25.255.210',1139922985,1,0,1,1,1,0,'','How to right justify text on a printer (Windows)?','This is driving me insane!\n\nDoes anyone have a routine that will right justify text on a printer.\n\nI am using the \'Courier New\' font which does not appear to be a proportional font but still do not seem to get it right.\n\nIn the \'old\' DOS days we would say:\n\n@ 0, 80 - Len( cVar1 ) Say cVar1\n@ 1, 80 - Len( cVar2 ) Say cVar2\n\nbut this does not work in windows.\n\nI have been pulling my hair out the whole morning with this (type) of code:\n\n...\n\nDefine Font oFont;\nName \'Courier New\';\nSize 15, 50\n\nPrint oPrn Name \'Report\' From User\n\nIf Empty( oPrn:hDC )\n   oPrn:End( )\n   Return ( NIL )EndIf\n\noPrn:SetFont( oFont )\n\nnRowStep := oPrn:nVertRes( ) / 66 // 66 rows\nnColStep := oPrn:nHorzRes( ) / 80 // 80 cols\n\noPrn:SetPortrait( )\n\nPage\n\nnRow += nRowStep\noPrn:Say( nRow, ( nColStep * 80 ) - (nColStep * ( Len( \'D\' ) ) ), \'D\' )\n\nnRow += nRowStep\noPrn:Say( nRow, ( nColStep * 80 ) - (nColStep * ( Len( \'DD\' ) ) ), \'DD\' )\n\nEndPage\n\nEndPrint\n\noPrn:End( )\n\netc. etc.\n\nIf you keep repeating the lines above the text \'creeps\' to the left.\n\nAny ideas?\n\nRegards,\n\nDale.','',0,'gA==','2txjyq9w',1,0,'',419,0,0),(7223,1730,6,439,0,'200.125.13.206',1139923056,1,0,1,1,1,0,'','Hernán Ceccsarelli ¿Está disponible?','Desearía saber de donde puedo bajar la última versión que tenga de TWBrowse y TCBrowse, la que tengo actualmente es la 1.5 y no me anda con FW 2.7 Feb 2006.\n\nCualquier ayuda que amablemente pueda darme será muy agradecida.\n\nDesde ya gracias.\n\nJosé','',0,'gA==','1w6ojw8w',1,0,'',439,0,0),(7224,1719,6,431,0,'200.8.17.205',1139923184,1,0,1,1,1,1,'','Wbrowse de Hernan con FWH 2.7 Febrero.','Antonio Aqui esta el Methodo\n\n\nMETHOD SetTXT( uTXT ) CLASS TWBrowse\n LOCAL cType, oTXT\n\n   DEFAULT uTXT:= \"\"\n   cType:= Valtype( uTXT )\n\n   If cType == \"C\"\n      If !File( uTXT )\n         uTXT:= cGetFile( \"*.txt\", \"Text Files\" )\n         If !File( uTXT )\n            return .F.\n         EndIf\n      EndIf\n      ::oTXT:= oTXT:= TTxtFile():New( uTXT, 0 )\n   ElseIf cType == \"O\"\n      oTXT:= uTXT\n   Else\n      return .F.\n   EndIf\n\n   ::lDrawHeaders  := .F.\n   ::aHeaders      := { \"\" }\n   ::aJustify      := { .F. }\n   ::aColSizes     := { 2000 }\n   ::nLineStyle    := 0\n   ::cAlias        := \"_TXT_\"\n[color=red:2jbswatp][size=150:2jbswatp][b:2jbswatp]   ::bLine         := { |cLine| cLine:= oTXT:ReadLine(),;\n                        If( IsOem( cLine ), cLine:= OemToAnsi( cLine ),),;\n                        { SubStr( cLine, ::nTXTFrom ) } }[/b:2jbswatp] [/size:2jbswatp] [/color:2jbswatp]   \n\n   ::bLogicLen     := { || ::nLen := oTXT:RecCount() }\n   ::bLogicPos     := nil\n   ::bGoLogicPos   := nil\n   ::bGoTop        := { || oTXT:GoTop() }\n   ::bGoBottom     := { || oTXT:GoBottom() }\n   ::bSkip         := { | nSkip, nOld | nOld:= oTXT:RecNo(), ;\n                                        oTXT:Skip( nSkip ),   ;\n                                        oTXT:RecNo() - nOld }\nreturn nil[/b]','',0,'Rg==','2jbswatp',1,0,'',431,0,0),(7225,1729,3,6,0,'82.57.160.167',1139926663,1,0,1,1,1,1,'','Re: How to right justify text on a printer (Windows)?','Have a look at the eighth parameter of TPrinter:Say() method (nPad).\n\nEMG','',0,'Rg==','zwus9ihi',1,0,'',6,0,0),(7226,1683,3,32,0,'196.36.8.34',1139927360,1,0,1,1,1,0,'','Tree32 source','Hi, Could you post the source? I\'d like to recompile for xhb builder\n\nThx,\nAlex','',0,'Rg==','1smq801h',1,0,'',32,0,0),(7227,1722,3,455,0,'195.97.105.161',1139928375,1,0,1,1,1,0,'','','[quote=&quot;Sakis&quot;:119tvi62]Evans  \n\nI know  the right person who may solve your problem. He is seating next to me....  MANOS SV1COD.\n\n\nGreetings\n\nDionisis and MANOS[/quote:119tvi62]\n\nYia sas paidia!\n\nLooks like there is something that can be done, with automatic conversion at run time, or am I wrong?\n\nMy phone is 693-919-6457.  Any time you want to contact me, please give me a ring and I\'ll call you back to revert phone charges, or we may continue our conversation through Net Meeting.\n\nThanks a lot\nVagelis KD3HNA (by the way I have a US general radio amt. license)','',0,'gA==','119tvi62',1,0,'',455,0,0),(7228,1720,3,455,0,'195.97.105.161',1139928618,1,0,1,1,1,0,'','Re: Printer Fonts','[quote=&quot;EnricoMaria&quot;:1m2ext7a]The only standard non-proportional true type font is Courier New, as far as I know.\n\nEMG[/quote:1m2ext7a]\n\nThere is also OCR-A that is non-proportional...\n\nThe point is that the way to do what you want, is to use CMPRINT().\nYou need to know exactly the physical width of what you print, and compare how much space the smaller font will occupy... Not an easy job for sure.\n\nMy recommendation is to convert your text to some Rich Text format, and print it as a richtext format...  I have no more suggestions, because I have not done it, but am sure there is a way to do it...','',0,'gA==','1m2ext7a',1,0,'',455,0,0),(7229,1710,6,255,0,'200.67.175.250',1139929059,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:106f35vx]Mario,\n\nModifica este comando dentro de FiveWin.ch, gracias:\n\n[code:106f35vx]\n#xcommand DEFINE TOOLBAR &lt;oTlb&gt; ;\n             &#91; &lt;dlg&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ;\n             &#91; IMAGELIST &lt;oImg&gt; &#93; ;\n             &#91; &lt;balloon&#58; BALLOON &gt; &#93; ;\n       =&gt; ;\n          &lt;oTlb&gt; &#58;= TToolBar&#40;&#41;&#58;New&#40; &lt;oWnd&gt;, &#91;&lt;nWidth&gt;&#93;, &#91;&lt;nHeight&gt;&#93;, &#91;&lt;oImg&gt;&#93;,;\n                                   &#91;&lt;&#46;balloon&#46;&gt;&#93; &#41;      \n\n[/code:106f35vx][/quote:106f35vx]\n\n\nAntonio, es eso correcto ??? es decir, se debe hacer esa\ncorrección ???\n\nYo no tengo FWH de febrero, pero me habian reportado ese\nerror como un error de VERCE, sin embargo, le pedi al usuario\nque compilara con /p y vi el problema que se menciona, sin\nembargo, esto no funciona con XHARBOUR, acaso es algún\nerror del preprocesador de HARBOUR ???\nSolo sucede con la toolbar ????\n\nTe agradeceria tus comentarios\nGracias','',0,'gIA=','106f35vx',1,0,'',255,0,0),(7230,1731,3,455,0,'195.97.105.161',1139929383,1,0,1,1,1,0,'','FWHarb.h','Antonio,\n\nThe above file in \\FWH\\INCLUDE, misses a CRLF at its end.\n(At least until Jan FWH)\nCan you please correct it for the next downloads.\n\nThanks\nEvans','',0,'gIA=','2mxf0s1b',1,0,'',455,0,0),(7231,1728,6,18,0,'201.135.153.40',1139930003,1,0,1,1,1,1,'','','fgondi :\n\nLa última clase que modifique, verifica si existe una instancia de Excel abierta para tomarla y trabajar con ella, revisa el código fuente del método Open(),  ahí es dónde se hace esa revisión.','',0,'gIA=','2fdsdj5r',1,0,'',18,0,0),(7232,1732,6,131,0,'194.179.55.36',1139931294,1,0,1,1,1,0,'','xharbour 0.99.6 ¿ que versiones de FWH están soportadas ?','Para Antonio:\nMe gustaría saber desde que release de FWH se puede usar el nuevo build de xHarbour.\n\nSaludos,','',0,'gIA=','kmjxf5at',1,0,'',131,0,0),(7233,1731,3,2,0,'87.218.146.105',1139931493,1,0,1,1,1,1,'','','Evans,\n\nWhat error do you get caused by the missing CRLF ?','',0,'gIA=','1a42uwo8',1,0,'',2,0,0),(7234,1732,6,2,0,'87.218.146.105',1139931665,1,0,1,1,1,1,'','','Jose Luis,\n\nFWH 2.7 de Febrero usa xharbour del CVS de la semana pasada, y puede descargarse desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'gIA=','3elnc3dd',1,0,'',2,0,0),(7235,1710,6,2,0,'87.218.146.105',1139931844,1,0,1,1,1,1,'','','Juan Carlos,\n\nEs que &lt;oTlb&gt; no estaba como opcional en el comando y si estaba opcional en el resultado. Esto antes lo permitía el preprocesador, pero ahora se ha corregido.','',0,'gIA=','28vvgdep',1,0,'',2,0,0),(7236,1733,7,123,0,'81.39.239.66',1139931879,1,0,1,1,1,0,'','Diálogos desde codigo','Antonio,\n\n¿Hay posibilidad de crear diálogos desde código?\n\nSi no... ¿cuando podremos crear diálogos de esta manera?\n\nSaludos,\nJosé Luis Capel\n\nPD: o un [i:1sd9ln2b]workaround[/i:1sd9ln2b] para hacer algo similar a diálogo desde código\n\nSaludos,\nJosé Luis Capel','',0,'IA==','1sd9ln2b',1,0,'',123,0,0),(7237,1734,6,132,0,'83.213.45.32',1139931903,1,0,1,1,1,1,'','FTP (Cannot load wininet.dll!)','Estoy comenzando a hacer pruebas con FTP, y me da el error\n(Cannot load wininet.dll), repasanado las news, encontre un post (16/11/2005) con la misma pregunta, pero esta sin responder.\n\nBuscando WinINet.dll la encontre en WINDOWS\\SYSTEM32, asi que en mi PC existe, probe a hacer una copia de la DLL, en el directorio de mi ejecutable, pero da el mismo resultado.\n\n¿Que hay que hacer para que funcione el \\FW\\SAMPLES\\ftpdir.prg?\n\nGracias de antemano','',0,'IA==','155shagk',1,0,'',132,0,0),(7238,1719,6,2,0,'87.218.146.105',1139931971,1,0,1,1,1,1,'','','Mario,\n\nPrueba a cambiar esta línea:\n\n::oTXT:= oTXT:= TTxtFile():New( uTXT, 0 ) \n\npor esto:\n\noTXT:= TTxtFile():New( uTXT, 0 ) \n::oTXT:= oTXT','',0,'IA==','2ifsrwyb',1,0,'',2,0,0),(7239,1701,19,91,0,'62.151.112.40',1139932008,1,0,1,1,1,0,'','Fuentes para código de barras','Gracias Antonio,\n\nlo que realmente necesito es un tipo de letra código de barras.\n\nEl código fuente para saber que códigos imprimir creo que ya los tengo.\n\nSaludos\nCarlos G.','',0,'IA==','1pdafyoh',1,0,'',91,0,0),(7240,1103,1,266,0,'60.50.54.101',1139932745,1,0,1,1,1,1,'','','Could u plz post a sample prg of using stopuntil() ?\n\nI need it too.','',0,'IA==','2vk1616g',1,0,'',266,0,0),(7241,1728,6,21,0,'80.58.49.235',1139934505,1,0,1,1,1,1,'','','Uso la última clase que modificaste.\n\n[code:5olwn287]      TRY\n        &#58;&#58;oExcel &#58;= GetActiveObject&#40; &quot;Excel&#46;Application&quot; &#41;\n        &#58;&#58;oClip&#58;=TClipBoard&#40;&#41;&#58;New&#40;&#41;\n        &#58;&#58;oClip&#58;Clear&#40;&#41;\n      CATCH\n         TRY\n            &#58;&#58;oExcel &#58;= CreateObject&#40; &quot;Excel&#46;Application&quot; &#41;\n            &#58;&#58;oClip&#58;=TClipBoard&#40;&#41;&#58;New&#40;&#41;\n            &#58;&#58;oClip&#58;Clear&#40;&#41;\n&#46;&#46;&#46;[/code:5olwn287]\n\nSi comento las líneas que llaman a GetActiveOject evito el bloqueo de excel, pero se sigue quedando abierto Excel (auque lo cierre) hasta que cierro el programa en xHarbour o ejecuto la instrucción oExcel:End(.F.).\nSi salgo del programa en xHarbour, excel queda abierto.\nSi ejecuto oExcel:End(.F.) me cierra tambien Excel.\n\nCon Harbour y la clase tOleAuto ejecutar oExcel:End(.F.) dejaba excel abierto o al cerrar Excel cerraba el proceso en el programa.','',0,'AIA=','5olwn287',1,0,'',21,0,0),(7242,1712,6,61,0,'201.217.162.208',1139934612,1,0,1,1,1,0,'','','Antonio:\n\nLos únicos que estoy usando son\nBtnGet y Tsbutton.\n\nAhora mismo hago un zip y los subo.\nNo he realizado ninguna modificación,\nsolo los puse antes de Fivewin.ch\nde todas formas los subo igual.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','1yigm0ox',1,0,'',61,0,0),(7243,1712,6,61,0,'201.217.162.208',1139935912,1,0,1,1,1,0,'','','Antonio y/o amigos:\n\nAqui dejo btnget32 y tsbutton32 para\nFWH 2.7.\nLos *.ch los pongo antes de Fivewin.ch \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/1d97a828/BtnGet32TsButton32.rar.html\">http://hyperupload.com/download/1d97a82 ... 2.rar.html</a><!-- m -->\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','2sgitm3f',1,0,'',61,0,0),(7244,1194,23,308,0,'84.148.63.99',1139937442,1,0,1,1,1,0,'','','[quote=&quot;StefanHaupt&quot;:3n1brlky]\nHallo Norbert,\nmein größtes Problem ist ein Programmabsturz, wenn ich das Browse in Foldern habe. Die Folder werden gar nicht erst angezeigt,  Fehlermeldung:\n\n   Error occurred at: 07.02.2006, 10:35:13\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   51\n\nStack Calls\n===========\n   Called from TSBROWSE:PROPER(8030)\n   Called from TSBROWSE:LOADFIELDS(6186)\n   Called from TSBROWSE:DEFAULT(1415)\n   Called from TSBROWSE:NEW(746) \n\nDas war schon in der Version 6 ein Problem, da konnte ich es aber beheben, nur die gleichen Änderungen in der Version 7 hatten nicht den gleichen Erfolg. javascript&#058;emoticon \':(\'\n[/quote:3n1brlky]\n\nHallo Stefan,\n\nheute hat mich mal der Ergeiz gepackt und ich habe mit TSBROWSE und FOLDERN gebastelt. Bei mir geht es jetzt. In der METHOD NEW einfach die Anweisung ::DEFAULT() remarken.\n\n[code:3n1brlky]\n   If ! Empty&#40; &#58;&#58;oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40;&#41;\n      If oFont != Nil\n         &#58;&#58;SetFont&#40; oFont &#41;\n      EndIf\n\n      &#58;&#58;lVisible = &#46;T&#46;\n*****      &#58;&#58;Default&#40;&#41;\n      &#58;&#58;oWnd&#58;AddControl&#40; Self &#41;\n   Else\n      &#58;&#58;oWnd&#58;DefControl&#40; Self &#41;\n      If oFont != Nil\n         &#58;&#58;SetFont&#40; oFont &#41;\n      EndIf\n      &#58;&#58;lVisible = &#46;F&#46;\n   EndIf\n[/code:3n1brlky]\n\nGruss, Norbert','',0,'gIA=','3n1brlky',1,0,'',308,0,0),(7245,1735,6,292,0,'200.109.166.27',1139939228,1,0,1,1,1,1,'','DLL Function LPINT','Colegas,\nTengo una Dll de la impresora Fiscal BMC\n\nLa funcion esta documentada asi:\n\nBOOL SendCmd(LPINT status, LPINT error, LPCSTR cmd)\n\nNecesito conversion FWH.\nLas demás funciones si corren cambiando LPCSTR por LPSTR','',0,'gIA=','11nolrh9',1,0,'',292,0,0),(7246,1736,2,348,0,'201.230.65.83',1139940245,1,0,1,1,1,0,'','una consulta respecto al Pict de un Get','Buenas tardes...\n\nAlgo rapido. deseo controlar en linea el PICTURE (formato) de un determinado Get  el cual dependera del valor que se digite en un get determinado que se encuentre en el mismo cuadro de dialogo algo asi como el ejemplo indicado .. pero no me funciona.. que falta ??  \n\nXPICTURE:=\"@!\"\n\nREDEFINE GET oDATA1 VAR XDATA1  PICTURE \"!\"  VALID CHKPIC(XDATA1,oDATA2,oDlg)\nREDEFINE GET oDATA2 VAR XDATA2 PICTURE  XPICTURE \n.....\n....\n\nFUNCTION CHKPIC(xdata,odata2,oDlg)\ndo case \n  case  xdata=\"A\"\n     odata2:cPicture:=\"999999-999\"\n  case xdata=\"B\"\n     odata2:cPicture:=\"999-999-99\"\n  otherwise\n     odata2:cPicture:=\"@!\"\nendcase \nodata2:refesh()\noDlg:refresh()\nRETURN .T.\n  \nGracias por la ayuda\nPdta:  tambien quisiera agregar algo adicional para no aburrirlos :  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  ....  que pasaria si en vez de que el PICTURE dependiese del valor de otro GET fuese de un COMBOBOX.... como seria la solucion....  \n\nLubin','',0,'gIA=','2hox4wxq',1,0,'',348,0,0),(7247,1737,3,335,0,'68.193.88.53',1139940352,1,0,1,1,1,0,'','New transparent dialog brush','Can the new tranparent brush display a large background image, instead of just replicating a small portion from the upper left corner of a large 600 X 600 pixels bitmap? \n\nFor example, I want to use as the background image on a dialog, a photo of an invoice, and then overlay it with various GETs where the user can enter the data that will be printed on the invoice. The purpose of this is to provide an order entry interface that more closely resembles the actual object that the user wants to create: the invoice for the order.\n\n- Roger','',0,'gIA=','1a752atz',1,0,'',335,0,0),(7248,1640,3,303,0,'68.7.28.54',1139941033,1,0,1,1,1,0,'','','Dale,\n\n[quote:l0s8xva5]I would not mind a flat header but the reason that I was thinking that it would be nice to have Win32 Headers is that you could have your database indexed on all of the displayed fields (using tags) and by just clicking on the header you could change the display order of the browse (this does work already for me) but the header that was highlighted would denote which field is currently being used to sort the displayed browse. [/quote:l0s8xva5]\n\nThere are two ways to do this now. The first way I did it was to have two headers (text) for each sortable column. When the user clicks on the column, the next index is used and the new text for the header is also used. I just used the same text with a trailing asterisk (not very sophisticated but it did the job).\n\nYou can also achive a better look by creating the header text as a graphic (bmp). That way you can have one with text only and one with text and a down arrow, or colored underline, or whatever you like. \n\nBelow are some clips of an example.\n\nJames\n\n[code:l0s8xva5]     &#58;&#58;setHeaders&#40;oLbx&#41;\n\n     oLbx&#58;aActions&#58;=&#123;;\n       &#123;|| &#46;t&#46;&#125;,;\n       &#123;||&#58;&#58;setOrder&#40;1&#41;,oLbx&#58;gotop&#40;&#41;,&#58;&#58;setHeaders&#40;oLbx&#41;,oLbx&#58;refresh&#40;&#41;&#125;, ;\n       &#123;||&#58;&#58;setOrder&#40;2&#41;,oLbx&#58;gotop&#40;&#41;,&#58;&#58;setHeaders&#40;oLbx&#41;,oLbx&#58;refresh&#40;&#41;&#125;, ;\n       &#123;|| &#46;t&#46;&#125;,;\n       &#123;|| &#46;t&#46;&#125;,;\n       &#123;|| &#46;t&#46;&#125;,;\n       &#123;|| &#46;t&#46;&#125;,;\n       &#123;|| &#46;t&#46;&#125;,;\n       &#123;|| &#46;t&#46;&#125;;\n       &#125;\n\n&#46;&#46;&#46;\n\n// Show which browse column is sorted\nmethod setHeaders&#40;oLbx&#41;\n   oLbx&#58;aHeaders&#58;=&#123;&quot; &quot;,;\n       if&#40;&#58;&#58;indexOrder&#40;&#41;=1,&#58;&#58;aHeaders&#91;2&#93;+&quot;*&quot;,&#58;&#58;aHeaders&#91;2&#93;&#41;, ;\n       if&#40;&#58;&#58;indexOrder&#40;&#41;=2,&#58;&#58;aHeaders&#91;3&#93;+&quot;*&quot;,&#58;&#58;aHeaders&#91;3&#93;&#41;, ;\n       &quot;Cost&quot;,&quot;Pack&quot;,&quot;UOM&quot;,&quot;OnHand&quot;,&quot;OnOrder&quot;,&quot;Notes&quot; &#125;\nreturn nil[/code:l0s8xva5]','',0,'gIA=','l0s8xva5',1,0,'',303,0,0),(7249,1640,3,303,0,'68.7.28.54',1139941384,1,0,1,1,1,0,'','','Enrico,\n\n[quote:2qmtj3y1]Hernan\'s TWBrowse (unhappy choice of the name). TSBrowse is of Manuel Mercado. [/quote:2qmtj3y1]\n\nWhoops. My mistake. Thank you for pointing that out. TSBrowse is the one I meant.\n\nJames','',0,'gA==','2qmtj3y1',1,0,'',303,0,0),(7250,1738,7,123,0,'81.39.239.66',1139941518,1,0,1,1,1,0,'','Evento que dispara el teclado (ocultar/mostrar)','Antonio,\n\nEl teclado de la PDA, cuando se muestra o se esconde, ¿tiene un evento asociado? ¿Se puede capturar?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1da1bxz4',1,0,'',123,0,0),(7251,1730,6,2,0,'87.218.146.105',1139941611,1,0,1,1,1,1,'','','Jose,\n\nAqui tienes el browse de Hernan para FWH 2.7 Febrero:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/38d8b378/twbrosw.zip.html\">http://hyperupload.com/download/38d8b37 ... w.zip.html</a><!-- m -->','',0,'gA==','t94ss6nm',1,0,'',2,0,0),(7252,1710,6,255,0,'200.67.175.250',1139941983,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:nzs7ranr]Juan Carlos,\nEs que &lt;oTlb&gt; no estaba como opcional en el comando y si estaba opcional en el resultado. Esto antes lo permitía el preprocesador, pero ahora se ha corregido.[/quote:nzs7ranr]\n\nentonces se tendría que cambiar el FiveWin.ch\ncon el cambio que mensionas para que funcione ok.\ny solo es con la IMAGELIST ?? o hay algun otro \ncomando que haya que cambiar ???\n\nGracias antonio','',0,'gA==','nzs7ranr',1,0,'',255,0,0),(7253,1686,3,303,0,'68.7.28.54',1139941987,1,0,1,1,1,0,'','','Dale,\n\n[quote:24thllcn]I am using BRW and the GETs that are defined as resources have a very neat flat blue border around them when displayed from FWH. \n\nIs it possible to display the SAYs with the same flat blue border.[/quote:24thllcn]\n\nThe problem is that if you do that, then the SAY looks just like a GET to the user. This would be confusing.\n\nJames','',0,'gA==','24thllcn',1,0,'',303,0,0),(7254,1736,2,375,0,'84.122.120.115',1139942834,1,0,1,1,1,1,'','','Estas cometiendo el mismo error que todos los que hemos tenido que pasar por ahí. No hay que modificar el cPicture del Get (oData:cPicture), sino el oGet:Picture del Get (oData2:oGet:Picture).\n\nEste es un ejemplo:\n\ncPic1  := IF(nEuro=1,\"@E 9,999.99\",\"@E 999,999\")\ncPic2  := IF(nEuro=1,\"@E 9999.99\" ,\"@E 999999\" )\n\nDEFINE DIALOG oDLct RESOURCE \"CUOTAS2\" OF oDlg PIXEL FONT oFnt\n...\nREDEFINE  GET aGet[1] VAR oGet1 ID 134 OF oDLct          ;\n	WHEN  { || aGet[1]:oGet:Picture:=cPic2 , .T. } ;\n	VALID { || aGet[1]:oGet:Picture:=cPic1 , .T. }\n\nEn cuanto al Combo, pasa su variable a la función y evalúala como una variable más.','',0,'','1mbvuo7b',1,0,'',375,0,0),(7255,1725,3,303,0,'68.7.28.54',1139943542,1,0,1,1,1,0,'','','As Enrico stated, you should use radio buttons for this. What you are doing is not standard windows behavior and thus not what the users will expect. It will just confuse them.\n\nJames','',0,'','28d69vms',1,0,'',303,0,0),(7256,1729,3,375,0,'84.122.120.115',1139943989,1,0,1,1,1,1,'','','RPAD not run efectively in many situations, Try this:\n\nnRightMargin := xxx pixels\noPrn:Say( nTop,nRightMargin-oPrn:GetTextWidth( cText , oFont ),cText,oFont )\n\nYou could build a function to only right justify all cTexts. (excuse my english)','',0,'','3gw8ia2f',1,0,'',375,0,0),(7257,1720,3,303,0,'68.7.28.54',1139944132,1,0,1,1,1,0,'','','Dale,\n\nBelow are some notes from my files on emulating DOS printing. \n\nJames\n\n---------------------------------\nASCII printing uses a fixed pitch font and the only one that comes with Windows is Courier New. To emulate standard ASCII 80 characters per line printing define a 12 point font as follows:\n\n	define font oFont name \"Courier New\" size 0,-12\n\nTo get 92 characters define a 10 point font (SIZE 0,-10).\n\nNote, however, that DOS ASCII printing uses the same height font regradless of how many characters per line. I.E. 80 chars are the same height as 132 chars (compressed mode). Windows fonts become shorter as the point size is reduced. To maintain the same font height and get more characters per line just define the font as 12 point (SIZE 0,-12) then multiple oFont:nWidth by a correction factor. For example, to get a simulated compressed typeface (132 characters per line):\n\n	FONT oFont name \"Courier New\" size 0,-12\n\n	oFont:nWidth:= oFont:nWidth * (80/132)\n\nThis will give you the same number of lines per page (66) as you would get with ASCII printing.\n-----------------------------------','',0,'','3p5ixbqb',1,0,'',303,0,0),(7259,1725,3,375,0,'84.122.120.115',1139945687,1,0,1,1,1,1,'','','Try this\n\nREDEFINE CHECKBOX aCHK[1] VAR aVar[1] ID 171 OF oDlg  ON CLICK CompChek(aCHK,aVar,1)\nREDEFINE CHECKBOX aCHK[2] VAR aVar[2] ID 172 OF oDlg  ON CLICK CompChek(aCHK,aVar,2)\n...\nREDEFINE CHECKBOX aCHK[n] VAR aVar[n] ID 1nn OF oDlg  ON CLICK CompChek(aCHK,aVar,n)\n\nFUNCTION CompChek(aChk,aVar,nDat)\n*\nAFILL(aVar,.F.)       // you could replace this 2 lines with your own conditions\naVar[nDat] := .T. \n*\nAEVAL(aChk, { |oCtrl| oCtrl:Refresh() }\nRETURN NIL\n\nYou must build your CHEKBOXES with arrays. It runs like radiobuttons.','',0,'','7ggq1bxw',1,0,'',375,0,0),(7260,1710,6,2,0,'87.218.146.123',1139946198,1,0,1,1,1,1,'','','Juan Carlos,\n\n#xcommand DEFINE IMAGELIST ...\n\ny\n\n#xcommand DEFINE TOOLBAR &lt;oTlb&gt; ...\n\nsolamente','',0,'','3pmzu832',1,0,'',2,0,0),(7261,1739,6,255,0,'200.67.175.250',1139946674,1,0,1,1,1,1,'','Redefine ActiveX - Win98','Antonio hay problemas con los REDEFINE ACTIVEX y Win98 ???\n\nProbando el componente ActiveX de Acrobat Reader 5.\nCuyo prodID es PDF.PdfCtrl.5 en una computadora con\nwindows 98 NO FUNCIONA, alguien sabe porqué ???\n\nProbado con la version de Junio05, Dic05 y Feb06\n\nCon Windows XP funciona de maravilla, el problema es que\ntengo que usarlo en computadoras con Windows 98 y debe\nestar redefinido en un cuadro de diálogo.\n\nSaludos','',0,'','34ctruln',1,0,'',255,0,0),(7262,1740,3,6,0,'87.3.232.247',1139949311,1,0,1,1,1,1,'','Beep exiting dialogs','Try to close this dialog using ESC and you will hear a beep:\n\n[code:noa8nequ]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:noa8nequ]\n\nEMG','',0,'AIA=','noa8nequ',1,0,'',6,0,0),(7263,1103,1,170,0,'83.177.206.56',1139951134,1,0,1,1,1,1,'','','Here is the baby\n\n\n************\n\n* WINATTEN.PRG\n* Creation le 12/02/2006\n* Derniere modification le 14/02/2006 à 22:01:58\n* Auteur Badara THIAM\n\n#include  \"fivewin.ch\"\n\nSTATIC lExit := .F.\nSTATIC AncFocus\n\n******************\nFUNCTION WINATTEND(nDelai, ETATPRECG, ETATPRECD)\n******************\n* Etat d\'attente permettant de réduire le temps CPU sous Windows\n* nDelai doit être indiqué en millisecondes\nSTATIC BCOND\nSTATIC oTmr\nSTATIC NOUVDELAI := 1\nSTATIC ANCMILLI\n\nlExit := .F.\nancFocus := GetFocus()\n\n\nIF oTmr = NIL .OR. NOUVDELAI != MAX(nDelai, PUBVAR(155))\n  NOUVDELAI := MAX(nDelai, PUBVAR(155))\n  IF oTmr != NIL\n    oTmr:End()\n  ENDIF\n  oTmr := TTIMER():New( MIN(10, NOUVDELAI), { || lExit := .T. }, WndMain() )\nENDIF\n\nBCOND := { || WINATTEND2(@ETATPRECG, @ETATPRECD) }\n\nIF !EVAL( BCOND )\n  oTmr:Activate()\n  ANCMILLI := GetTickCount()\n  DO WHILE .T.\n    STOPUNTIL( BCOND )\n    IF !lExit .AND. EVAL( BCOND )\n      EXIT\n    ELSE\n      IF ( GetTickCount() - ANCMILLI ) &gt;= NOUVDELAI\n        EXIT\n      ELSE\n        lExit := .F.\n      ENDIF\n    ENDIF\n  ENDDO\n  oTmr:DeActivate()\nENDIF\nRETURN NIL\n\n*******************\nFUNCTION WINATTEND2(ETATPRECG, ETATPRECD)\n*******************\nRETURN ( lExit  ;\n.OR. GGMSTATE(\"LEFT\") != ETATPRECG .OR. GGMSTATE(\"RIGHT\") != ETATPRECD ;\n.OR. GetFocus() &lt;&gt; ancFocus .OR. keyNext() &lt;&gt; 0 ;\n.OR. PUBVAR(132) .OR. PUBVAR(139) ;\n.OR. GetAsyncKey( VK_MENU ) .OR. GetAsyncKey( VK_SHIFT ) .OR. GetAsyncKey( VK_CONTROL ) ;\n)\n**************\n\nRegards,','',0,'AIA=','3pqttl58',1,0,'',170,0,0),(7264,1430,3,6,0,'87.3.232.247',1139953877,1,0,1,1,1,1,'','','Unfortunately this bug is still present in the FWH February build.\n\nEMG','',0,'AIA=','1dbjcg43',1,0,'',6,0,0),(7265,1731,3,455,0,'195.97.105.161',1139957891,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:350ri9ac]Evans,\n\nWhat error do you get caused by the missing CRLF ?[/quote:350ri9ac]\n\nXLink: Missing CRLF at end of file.\n\nI have already corrected my file...\nI just want to tell you to add a CRLF at the of the file.  Thanks for the attention...\n\nBy the way... I downloaded FWH Feb 2006 release, and the file \nCGETDLGIT.C does not contain the changes that I\'ve sent you.  \nThis file is responsible for errors when trying to redefine control ID\'s with a negative ID number e.g. -1, thus before this code, if I tried to REDEFINE ID -1 OF oDlg COLOR CLR_BLUE, CLR_YELLOW.  I got an Indefined ID -1 error and program crashed.  \n\nHere\'s the file again...\n\n[code:350ri9ac]\n\n// CGETDLGIT&#46;C\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n#include &lt;stdlib&#46;h&gt;\n\n\n//----------------------------------------------------------------------------//\n#ifndef __HARBOUR__ \n    CLIPPER GETDLGITEM&#40; PARAMS &#41; // &#40; hDlg, nCtlId &#41; --&gt; hControl\n#else\n    HARBOUR HB_FUN_GETDLGITEM&#40; PARAMS &#41; \n#endif  \n&#123;\n   _retnl&#40; &#40; LONG &#41; GetDlgItem&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; WORD &#41; _parni&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n#ifndef __HARBOUR__ \n    CLIPPER NEXTDLGTAB&#40; PARAMS &#41; // &#40; hDlg, hCtrl, lPrevious &#41; --&gt; hControl \n#else   \n   HARBOUR HB_FUN_NEXTDLGTAB&#40; PARAMS &#41;\n#endif\n&#123;\n   _retnl&#40; &#40; LONG &#41; GetNextDlgTabItem&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; HWND &#41; _parnl&#40; 2 &#41;,\n                                       _parl&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n#ifndef __HARBOUR__ \n    CLIPPER GETCTRLID&#40; PARAMS &#41; // hCtrl --&gt; nId\n#else\n   HARBOUR HB_FUN_GETCTRLID&#40; PARAMS &#41;\n#endif\n&#123;\n   _retni&#40; GetDlgCtrlID&#40; &#40; HWND &#41; _parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n\n[/code:350ri9ac]','',0,'gIA=','350ri9ac',1,0,'',455,0,0),(7266,1722,3,455,0,'195.97.105.161',1139958139,1,0,1,1,1,0,'','','[quote=&quot;Sakis&quot;:292ui7xo]Evans  \n\nI know  the right person who may solve your problem. He is seating next to me....  MANOS SV1COD.\n\n\nGreetings\n\nDionisis and MANOS[/quote:292ui7xo]\n\nMano, xachkame !\nTwra se cymhchka.\nVagelis\nPare me sto 693-919-6457... perimenw','',0,'gA==','292ui7xo',1,0,'',455,0,0),(7267,1729,3,455,0,'195.97.105.161',1139958757,1,0,1,1,1,0,'','Right Justify to Printer','Try this:\n\n  LPAD(myvariable, 12) for character strings\n\n(your variable can be a field name of course, and the number 12 is how many spaces will be added infront of the variable/field.  \nSame way as it is required to use:  Str(nNumber, 12,2) for numbers\n\nI hope I gave you an idea to help you.\n\nRegards\nEvans','',0,'gA==','l8c0e76j',1,0,'',455,0,0),(7268,1731,3,2,0,'87.218.146.123',1139962713,1,0,1,1,1,1,'','','Evans,\n\nThe name of the file is GETDLGIT.C and it contains (besides two more functions):\n\n[code:2b0c2xug]\nCLIPPER GETDLGITEM&#40; PARAMS &#41; // &#40; hDlg, nCtlId &#41; --&gt; hControl\n&#123;\n	 // keep &#40; WORD &#41; _parni&#40; 2 &#41; as the second parameter to support negative IDs\n   _retnl&#40; &#40; LONG &#41; GetDlgItem&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; WORD &#41; _parni&#40; 2 &#41; &#41; &#41;;\n&#125;\n[/code:2b0c2xug]\n\nPlease check that you are reviewing the right file. Thanks,','',0,'AIA=','2b0c2xug',1,0,'',2,0,0),(7269,1729,3,303,0,'68.7.28.54',1139963021,1,0,1,1,1,0,'','','[code:3apjj3ws]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oPrn,oFont, nRow&#58;=0,nRowStep&#58;=1,nColStep&#58;=1, aText, I\n\n   Print oPrn Name \'Report\' preview\n\n   If Empty&#40; oPrn&#58;hDC &#41;\n   oPrn&#58;End&#40; &#41;\n   Return &#40; NIL &#41;\n   EndIf\n\n   Define Font oFont;\n   Name \'Courier New\';\n   Size 15, 10 of oPrn\n\n   oPrn&#58;SetFont&#40; oFont &#41;\n\n   nRowStep &#58;= oPrn&#58;nVertRes&#40; &#41; / 66 // 66 rows\n   nColStep &#58;= oPrn&#58;nHorzRes&#40; &#41; / 80 // 80 cols\n\n   oPrn&#58;SetPortrait&#40; &#41;\n\n   aText&#58;= &#123;&quot;D&quot;,&quot;very long text&quot;,&quot;shorter&quot;,&quot;123456789&quot;,&quot;cat&quot;&#125;\n\n      Page\n\n      for I&#58;= 1 to 5\n\n         nRow += nRowStep\n         //oPrn&#58;Say&#40; nRow, &#40; nColStep * 80  &#41; - &#40;nColStep * &#40; Len&#40; &quot;D&quot; &#41; &#41; &#41;, &quot;D&quot; &#41;\n         // Last parameter&#58; 0= left justify, 1= right justify, 2= Center justify\n         oPrn&#58;Say&#40; nRow, &#40; nColStep * 20 &#41;,aText&#91;i&#93;,,,,,1&#41;\n\n      next\n\n      EndPage\n\n   EndPrint\n\n   oPrn&#58;End&#40; &#41;\n\n   oFont&#58;end&#40;&#41;\n\nreturn nil[/code:3apjj3ws]','',0,'AIA=','3apjj3ws',1,0,'',303,0,0),(7270,1741,6,341,0,'200.127.71.162',1139964421,1,0,1,1,1,0,'','Ayuda:Como puedo mostrar una hoja A4 dentro de un dialog','Estimado Colegas\n\nComo puedo mostrar un hoja A4 dentro de un dialogo con su\ntamaño real en cm y/o pixels y la posibilidad de hacer zoom in-out\nsobre ella\n\ndesde ya muchas gracias\ndante\n<!-- e --><a href=\"mailto:devewin2004@yahoo.com.ar\">devewin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','3kdgjhlx',1,0,'',341,0,0),(7271,1742,2,341,0,'200.127.71.162',1139964482,1,0,1,1,1,0,'','Ayuda:Como puedo mostrar una hoja A4 dentro de un dialog','Estimado Colegas\n\nComo puedo mostrar un hoja A4 dentro de un dialogo con su\ntamaño real en cm y/o pixels y la posibilidad de hacer zoom in-out\nsobre ella\n\ndesde ya muchas gracias\ndante\n<!-- e --><a href=\"mailto:devewin2004@yahoo.com.ar\">devewin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','5pwzgi21',1,0,'',341,0,0),(7272,1716,3,61,0,'201.217.166.219',1139966135,1,0,1,1,1,0,'','','Great Master!!!!\n\nRegards\n\nRuben Fernandez','',0,'AIA=','24lg2u53',1,0,'',61,0,0),(7273,1740,3,303,0,'68.7.28.54',1139968432,1,0,1,1,1,0,'','','Enrico,\n\nIs that for the new release? I do not hear a beep using FW2.7, May 2005 build.\n\nJames','',0,'AIA=','1trg7aau',1,0,'',303,0,0),(7274,1736,2,348,0,'201.230.149.51',1139971273,1,0,1,1,1,0,'','','Se agradece la Ayuda,  como dices...  faltaba un pequeño detalle y al parecer  ya fue solucionado con tu comentario\n\nGracias y seguimos pa adelante   \n\nLubin\n\nhasta la proxima.','',0,'AIA=','oqqs8fic',1,0,'',348,0,0),(7276,1743,3,32,0,'196.36.8.34',1139980386,1,0,1,1,1,0,'','Drawing custom themed buttons','Hi,\n\nApps like Windows Media player add a button to the title bar, that removes the outside frame of its window. Other apps draw a button to minimize to tray. All these are coloured according to the current xp colour theme\n\nI don\'t want to put one in the title bar. I\'d just like a button like the combobox to put next to a get control, which has a browse attached to it.\n\nHas anyone done something like this, or stumbled across a way of doing this? \n\nI don\'t want to keep a copy of the combo box button as a bmp, because the colours can change.\n\nAlex','',0,'AIA=','1oh6yiqp',1,0,'',32,0,0),(7277,1733,7,262,0,'83.97.168.83',1139986160,1,0,1,1,1,1,'','','ESta es una respuesta sin esperimentar , pero digo yo que con el sistema que usa Carles en su programa con los btnbmp ( por cierto que gracias a él ,he resuelto el problema de btnbmp) se podrá realizar con cualquier control .... \nme refiero a que creas el dialogo \"vacio\" y desde el on init llamas a una funcion a la que le pasas como parametro el oDlg y ahí le dices que debe \"dibujar\".\nLo dicho en el programa de Carles ( Gracias de nuevo) lo tienes con los Btnbmp .\nSaludso.','',0,'AIA=','12f4lsck',1,0,'',262,0,0),(7278,1732,6,131,0,'194.179.55.36',1139987664,1,0,1,1,1,0,'','','Eso está claro. Lo que quería saber es si se puede usar versiones anteriores de FWH con el ultimo xHarbour. Sino es así, también me gustaría saber si vas a publicar algún parche para poder hacerlo.\n\nSaludos,','',0,'AIA=','33g52977',1,0,'',131,0,0),(7279,1733,7,449,0,'212.64.224.244',1139989315,1,0,1,1,1,0,'','','JlCapel,\n\nYo recomiendo experimentar con los dialogos desde recursos por varias razones:\n\n1.- Agilidad en la codificacion. A partir de una plantilla q puedas tener, rapidamente codificas cualquier dialogo. Personalmente creo q el sistema de codificacion via codigo tendria de pasar a la historia.\n\n2.- Precision en la ubicacion de controles.\n\n3.- \"Suplir\" las carencias q de momento tiene FWPPC, como la creacion de dialogos desde codigo. \n\nMe he \'empollado\' un poco el estado actual del codigo de FWPPC. Creo q hay lo suficiente como  para con un poco de imaginacion crear todo lo que necesites. Como dice JL Parajon, es como el ejemplo de los BtnBmp. Realmente no existe la clase TBar, pero facilmente se ha solucionado, sin hacer demasiadas chapuzas. Ayer finalice la edicion en linea en un browse ! utilizando la misma tecnica y te aseguro que va de maravillas.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos.\nC.','',0,'AIA=','18sj9iyo',1,0,'',449,0,0),(7280,1738,7,449,0,'212.64.224.244',1139989557,1,0,1,1,1,0,'','','JLCapel,\n\nNo se q finalidad persigues con la captura del \'evento\' pero en mi caso, creo q seria interesante conocer el \'estado\' del teclado. De esta manera si saltamos a un dialogo/ventana al salir podemos restaurar dicho \'estado\'.\n\n\nSaludos.\nC.','',0,'AIA=','3lwaxvl8',1,0,'',449,0,0),(7281,1740,3,6,0,'82.61.28.39',1139989764,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:181bwotg]Enrico,\n\nIs that for the new release? I do not hear a beep using FW2.7, May 2005 build.\n\nJames[/quote:181bwotg]\n\nYes, February build.\n\nEMG','',0,'gA==','181bwotg',1,0,'',6,0,0),(7282,1729,3,6,0,'82.61.28.39',1139990036,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:dicj7w54][code:dicj7w54]EndPrint\n\noPrn&#58;End&#40; &#41;[/code:dicj7w54][/quote:dicj7w54]\n\nYou don\'t have to issue the latter as it is included in the function called by EndPrint command (PrintEnd()).\n\nEMG','',0,'gIA=','dicj7w54',1,0,'',6,0,0),(7283,1733,7,262,0,'212.89.4.37',1139991402,1,0,1,1,1,1,'','','Carles , Se te ocurre algún \"invento\" para hacer Dialogos con scroll (para cuando despliegas el keyboard  ?)  . Es uno de los temas pendientes que mas nos puede facilitar la vida .\n\nRespecto a hacer dialogos con código , estoy de acuerdo en que es mas cómodo con recursos , pero si (como yo ) tienes todo hecho \"YA \" en ventanas ( con codigo ) y deseas pasarlo a Dialogos  es una via \"rapida\" de solucionar ( lo voy a probar con un par de ventanas que me quedan por pasar, despues de dos dias cambiando pantallitas )  .\nsaludos.','',0,'gIA=','144uozqq',1,0,'',262,0,0),(7284,1738,7,123,0,'81.39.239.66',1139996614,1,0,1,1,1,0,'','','Carles,\n\n[quote:3chpnwhu]No se q finalidad persigues con la captura del \'evento\' pero en mi caso, creo q seria interesante conocer el \'estado\' del teclado. De esta manera si saltamos a un dialogo/ventana al salir podemos restaurar dicho \'estado\'.[/quote:3chpnwhu]\n\nLa finalidad que persigo es \'recortar\' la ventana activa y ajustar algunos controles cuando el teclado está activo y cuando no lo está.  Para ello necesito saber cuando se dispara ese evento (suponiendo que se pueda saber).\n\nSaludos,\nJosé Luis Capel','',0,'gA==','3chpnwhu',1,0,'',123,0,0),(7285,1744,1,27,0,'212.145.65.52',1139997403,1,0,1,1,1,1,'','Impresión PDF 417 Barcode desde FW','¿Por fuentes o hay a una rutina FW para ello?','',0,'gA==','1z446ssh',1,0,'',27,0,0),(7286,1745,6,83,0,'80.35.196.60',1139997663,1,0,1,1,1,0,'','Sobre edición de fotografía','Hola a todos,\nnecesito editar fotografias para ponerle texto en cualquier parte, en cualquier color o tamaño.\n\n¿Se puede hacer?, en su caso, ¿un ejemplito?\n\nSaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','kq1e7vmp',1,0,'',83,0,0),(7287,1732,6,2,0,'87.218.146.91',1139997742,1,0,1,1,1,1,'','','Jose Luis,\n\nSí se puede, y el parche ya se publicó:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1634\">http://fivetechsoft.com/forums/viewtopic.php?t=1634</a><!-- m -->\n\nAñade esta función a tu aplicación:\n[code:2u5xnsv0]\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n[/code:2u5xnsv0]','',0,'AIA=','2u5xnsv0',1,0,'',2,0,0),(7288,1437,4,27,0,'212.145.65.52',1139998101,1,0,1,1,1,1,'','Adaptadores SD para lectura de codigos de barras','Mira aqui <!-- w --><a class=\"postlink\" href=\"http://www.mundopda.com\">www.mundopda.com</a><!-- w -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.neo-shop.com/cgi-bin/generar.exe?tienda=0005&amp;modo=shop&amp;categoria=0213\">http://www.neo-shop.com/cgi-bin/generar ... goria=0213</a><!-- m -->\n\nPara aplicaciones industriales mejo la Falcon.','',0,'AIA=','2s6u4mqz',1,0,'',27,0,0),(7289,1194,23,130,0,'141.51.32.24',1139999259,1,0,1,1,1,0,'','','Ja super, soweit funktioniert es jetzt. Einfach eine ganze Funktion wegzulassen finde ich doch schon recht mutig, hoffentlich gibts da keine ungewolten Nebenwirkungen. Es wird doch einiges eingestellt in der Method. \n\nIch werde das mal weiter beobachten und testen.\n\nDanke erstmal\n\nViele Grüße\nStefan','',0,'AIA=','fuzv78qf',1,0,'',130,0,0),(7290,1741,6,49,0,'213.82.134.66',1140000061,1,0,1,1,1,1,'','','Can you explain ....?\nWich application you making...?','',0,'AIA=','o37w6t6e',1,0,'',49,0,0),(7291,1607,6,49,0,'213.82.134.66',1140000343,1,0,1,1,1,1,'','','thanks I resolve it \nRegards','',0,'AIA=','3v4vjpzt',1,0,'',49,0,0),(7292,1746,20,49,0,'213.82.134.66',1140000863,1,0,1,1,1,1,'','Parametri di stampa','Se io selezionassi un tipo di pagina per la stampa ad esempio DMPAPER 3 ( A4) \nc\'è un metodo o una funzione che mi restituisca il tipo di carta selezionata e i parametri della larghezza, lunghezza, margine destri, margine sinistro, superiore, inferiore ?\n\nGrazie','',0,'AIA=','1m5kjrbi',1,0,'',49,0,0),(7293,1394,3,447,0,'83.240.190.122',1140004991,1,0,1,1,1,0,'','','Bom dia\n\nA mim tambem nao cria o EXE. No file makefile gerado pelo UESTUDIO no final tem instrucao para apagar.\n\n\n------------ makefile\n\n\n################################################################################\n#                                                                              #\n#                                    email                                     #\n#                                                                              #\n#                                         Wednesday 15 February 2006, 11:00:37 #\n################################################################################\n\n##### GROUPS ###################################################################\n\nFG00=\\\n	email.obj\n\nFG01=\\\n	email.res\n\n\n##### BUILD ####################################################################\n\nALL: $(FG00) $(FG01)\n	echo x:\\xHarbour\\FWh260\\lib\\FiveHx.lib x:\\xHarbour\\FWh260\\lib\\FiveHC.lib + &gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\vm.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\gtwin.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\lang.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\macro.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\rdd.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbfntx.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbfdbt.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbfcdx.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbffpt.lib + &gt;&gt; b32.bc\n\nemail.EXE: $(FG00) $(FG01)\n	echo x:\\xHarbour\\FWh260\\lib\\FiveHx.lib x:\\xHarbour\\FWh260\\lib\\FiveHC.lib + &gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\vm.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\gtwin.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\lang.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\macro.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\rdd.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbfntx.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbfdbt.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbfcdx.lib + &gt;&gt; b32.bc\n	echo x:\\xHARBOUR\\lib\\b32\\dbffpt.lib + &gt;&gt; b32.bc\n\n\n##### COMMANDS #################################################################\n\nrun:  email.EXE\n	email.EXE\n\ndebug:  email.EXE\n	 email.EXE\n\nmakef: \n	uestudio makefile\n\n\n##### COMPILE ##################################################################\n\nemail.res: ..\\email.rc\n	brc32 -r ..\\email.rc\n\n\nemail.c: ..\\email.prg\n	harbour /m /n /oemail /l ..\\email.prg\n\n\nemail.obj: email.c\n	bcc32 -c -Ix:\\bcc55\\INCLUDE -Ix:\\xHarbour\\include email.c\n\n\n\n##### CLEAN ####################################################################\n\nCLEAN:\n	-@erase \"email.res\"\n	-@erase \"email.c\"\n	-@erase \"email.obj\"\n	-@erase \"email.EXE\"\n\n----------------------------------------------------------------------- END FILE\n\n\nPode gerar o EXE mas no fim apaga   [ -@erase \"email.exe\" ]\nPorque ? \nComo retirar essa instrucao?\n\nTIA','',0,'','2gst0kda',1,0,'',447,0,0),(7294,1394,3,2,0,'87.218.146.45',1140005764,1,0,1,1,1,1,'','','Carlos,\n\nEsta es la configuración a usar en \nc:\\Archivos de programa\\IDM Computer Solutions\\UEStudio\\configs\\Harbour\\FWH window:\n\n[code:1wnrlg4s]\n# --------- CLIPPER Compiler configuration ---------\n# --- general --------------------------------------\n# $P  - project name\n# $Pp - path to project directory\n# $Pn - project name\n# --- compile --------------------------------------\n# $I  - input full name\n# $Ip - input path\n# $In - input name\n# $Ie - input extension\n# $O  - output file\n# $Op - path to output file\n# $On - output filename &#40;without path&#41;\n# $Oe - output extension\n# $R  - release/debug setting for compiler\n# --- build ----------------------------------------\n# $T  - target full name\n# $Tp - target path\n# $Tn - target name\n# $O  - output file\n# $Op - path to output file\n# $On - output filename &#40;without path&#41;\n# $Oe - output extension\n# $R  - release/debug setting for linker\n\n&#91;Settings&#93;\nTarget = \nCategory&amp;01 = DEFAULT RUN CONFIGURATION\nWorking Directory =&#46;\nCommand Line Arguments =\nCategory&amp;02 = COMPILER OPTIONS\nWarnings = no|yes\nAssumed Variables = no|yes\nCompiler Options = \nLibraries = \n\n&#91;SettingsInfo&#93;\nTarget = Provides a space for you to specify an output file and location of the program that the linker creates&#46;\nWorking Directory = Provides a space for you to specify the directory in which executing occurs&#46; If you do not specify a directory, executing occurs in the directory where the executable is located&#46;\nCommand Line Arguments = Provides a space for you to specify command-line arguments you want to pass to the program at startup&#46;\nCompiler Options = Provides a space for you to specify an additional compiler options&#46;\nLinker Options = Provides a space for you to specify an additional linker options&#46;\nDebugger=Provides a space for you to set the debugger you want to use to debug application&#46;\n\n&#91;SettingsReps&#93;\nWarnings = yes=/w|no=\nAssumed Variables = no=|yes=/v\n\n&#91;Variables&#93;\nBPATH = C&#58;\\BCC55\nCPATH = C&#58;\\HARBOUR\nCOPT = /m /n /o$In $&#40;Warnings&#41; $&#40;Compiler Options&#41;\nLOPT = $&#40;Linker Options&#41;\nFWH = C&#58;\\FWH\nLINKER = $&#40;BPATH&#41;\\BIN\\ILINK32\n\n&#91;Environment&#93;\nPATH = $&#40;CPATH&#41;\\BIN;%PATH%;$&#40;BPATH&#41;\\BIN\nINCLUDE = $&#40;CPATH&#41;\\INCLUDE;$&#40;FWH&#41;\\INCLUDE\nLIB = $&#40;CPATH&#41;\\LIB\nOBJ = $&#40;CPATH&#41;\\OBJ\n\n&#91;General&#93;\nTargetExt = &#46;EXE\nReleaseOut = Release\nDebugOut = Debug\nUseFullPaths = 0\nUseDosNames = 1\nExcludes = $&#40;Excluded Files&#41;\n\n&#91;MakeCommands&#93;\nrun = Execute Application\ndebug = Start Debugger\nmakef = Show Makefile\n\n&#91;Execute Application&#93;\nTitle = Execute $T\nCmd0 = $&#40;Command Line Arguments&#41;\nDepends = $T\nShowWindow = 1\nDisplayConsole = 0\n\n&#91;Start Debugger&#93;\nTitle=Debug $T\nCmd0=$&#40;Debugger&#41; $T\nDepends=$T\nShowWindow=1\n\n&#91;Show Makefile&#93;\nTitle=Show makefile\nCmd0=uestudio makefile\nShowWindow=1\nDisplayConsole=0\n\n&#91;InsertFiles&#93;\ngroup0 = $&#40;Libraries&#41;\n\n&#91;FileGroups&#93;\nFGO = &#46;obj;\nFGR = &#46;res;\nFGL = &#46;lib;\n\n&#91;GroupFormats&#93;\nFGO = %s\nFGR = %s\nFGL = %s\n\n&#91;Build&#93;\nOut = $T\nDepends = $FGO $FGR\nCmd0 = echo $&#40;FWH&#41;\\lib\\FiveH&#46;lib $&#40;FWH&#41;\\lib\\FiveHC&#46;lib + &gt; b32&#46;bc\nCmd1 = echo $&#40;CPATH&#41;\\lib\\b32\\rtl&#46;lib + &gt;&gt; b32&#46;bc\nCmd2 = echo $&#40;CPATH&#41;\\lib\\b32\\vm&#46;lib + &gt;&gt; b32&#46;bc\nCmd3 = echo $&#40;CPATH&#41;\\lib\\b32\\gtwin&#46;lib + &gt;&gt; b32&#46;bc\nCmd4 = echo $&#40;CPATH&#41;\\lib\\b32\\lang&#46;lib + &gt;&gt; b32&#46;bc\nCmd5 = echo $&#40;CPATH&#41;\\lib\\b32\\macro&#46;lib + &gt;&gt; b32&#46;bc\nCmd6 = echo $&#40;CPATH&#41;\\lib\\b32\\rdd&#46;lib + &gt;&gt; b32&#46;bc\nCmd7 = echo $&#40;CPATH&#41;\\lib\\b32\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\nCmd8 = echo $&#40;CPATH&#41;\\lib\\b32\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\nCmd9 = echo $&#40;CPATH&#41;\\lib\\b32\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\nCmd10 = echo $&#40;CPATH&#41;\\lib\\b32\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\nCmd11 = echo $&#40;CPATH&#41;\\lib\\b32\\debug&#46;lib + &gt;&gt; b32&#46;bc\nCmd12 = echo $&#40;CPATH&#41;\\lib\\b32\\common&#46;lib + &gt;&gt; b32&#46;bc\nCmd13 = echo $&#40;CPATH&#41;\\lib\\b32\\pp&#46;lib + &gt;&gt; b32&#46;bc\nCmd14 = echo $&#40;CPATH&#41;\\lib\\b32\\codepage&#46;lib + &gt;&gt; b32&#46;bc\nCmd15 = echo $&#40;BPATH&#41;\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\nCmd16 = echo $&#40;BPATH&#41;\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\nCmd17 = echo $&#40;BPATH&#41;\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\nCmd18 = echo $&#40;BPATH&#41;\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\nCmd19 = echo $&#40;BPATH&#41;\\lib\\psdk\\iphlpapi&#46;lib + &gt;&gt; b32&#46;bc\nCmd20 = echo $&#40;BPATH&#41;\\lib\\psdk\\rasapi32&#46;lib, &gt;&gt; b32&#46;bc\nCmd21 = echo &#46;&#46;\\$Tn&#46;res &gt;&gt; b32&#46;bc\nCmd22 = $&#40;LINKER&#41; -Gn -aa -Tpe -s -v c0w32&#46;obj $FGO, $Tn&#46;EXE,, @b32&#46;bc\n\n&#91;&#46;PRG&#93;\nOut = $In&#46;c\nDebugFlag = /b\nReleaseFlag = /l\nCmd0 = harbour $&#40;COPT&#41; $R $I\n\n&#91;&#46;C&#93;\nOut = $In&#46;obj\nCmd0 = bcc32 -c -IC&#58;\\HARBOUR\\INCLUDE $In&#46;c\n\n&#91;&#46;RC&#93;\nOut = $In&#46;res\nCmd0 = brc32 -r &#46;&#46;\\$In&#46;rc\n[/code:1wnrlg4s]','',0,'AIA=','1wnrlg4s',1,0,'',2,0,0),(7295,1715,2,146,0,'201.252.205.129',1140006327,1,0,1,1,1,0,'','','Mil Gracias. Ya encontre el problema, era en mi código cuando armaba las páginas. La clase funciona espectacular.\nSaludos.\nLeonor','',0,'AIA=','vghw1xpl',1,0,'',146,0,0),(7296,1740,3,2,0,'87.218.146.45',1140007116,1,0,1,1,1,1,'','','Enrico,\n\nIt is something related with the GET because if the button has the focus, then there is no beep. We are searching... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2g1ds0sj',1,0,'',2,0,0),(7297,1743,3,2,0,'87.218.146.45',1140007263,1,0,1,1,1,1,'','','Alex,\n\nYou may use a Class TButtonBmp button. Please review samples\\TestBuBm.prg','',0,'AIA=','3nc0fart',1,0,'',2,0,0),(7298,1740,3,2,0,'87.218.146.45',1140007596,1,0,1,1,1,1,'','','Fixed:\n\n[code:1hp4l3ml]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet\n\n   local nHi, nLo\n   local lAccept\n   local bKeyAction &#58;= SetKey&#40; nKey &#41;\n   local nDefButton\n\n   if nKey == VK_ESCAPE     // new\n      return 1                        \n   endif                               \n\n   &#46;&#46;&#46;\n[/code:1hp4l3ml]','',0,'AIA=','1hp4l3ml',1,0,'',2,0,0),(7299,1740,3,6,0,'82.61.28.39',1140008080,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','384cwzsr',1,0,'',6,0,0),(7300,1430,3,2,0,'87.218.146.45',1140008483,1,0,1,1,1,1,'','','Enrico,\n\nFixed:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b171ed70/msgs.c.html\">http://hyperupload.com/download/b171ed70/msgs.c.html</a><!-- m -->\n\nIt looks like a side effect of recent harbour/xharbour changes.','',0,'AIA=','25c1th8a',1,0,'',2,0,0),(7301,1746,20,6,0,'82.61.28.39',1140008636,1,0,1,1,1,1,'','Re: Parametri di stampa','[quote=&quot;Silvio&quot;:1vr8w3f2]Se io selezionassi un tipo di pagina per la stampa ad esempio DMPAPER 3 ( A4) \nc\'è un metodo o una funzione che mi restituisca il tipo di carta selezionata e i parametri della larghezza, lunghezza, margine destri, margine sinistro, superiore, inferiore ?\n\nGrazie[/quote:1vr8w3f2]\n\nPer quanto riguarda le dimensioni del foglio prova il metodo TPrinter:GetPhySize() oppure la funzione PrnGetSize(). Per i margini prova le variabili TPrinter:nXOffset (margine sinistro dell\'area stampabile) e TPrinter:nYOffset (margine superiore dell\'area stampabile) oppure la funzione PrnOffset().\n\nEMG','',0,'gA==','1vr8w3f2',1,0,'',6,0,0),(7302,1430,3,6,0,'82.61.28.39',1140008716,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'gA==','3onhq8i9',1,0,'',6,0,0),(7303,1743,3,32,0,'196.36.8.34',1140012137,1,0,1,1,1,0,'','XP Button bitmaps','Hi,\n\nI know about those, but I want a button drawn that looks like the xp combobox arrow button. It must also use the colours of the current xp theme (like blue, silver and olive green defaults)\n\nAlex','',0,'gA==','34q2q7ub',1,0,'',32,0,0),(7304,1747,7,413,0,'194.106.16.43',1140012396,1,0,1,1,1,0,'','Plug-in para Totalcomander....','Lo dicho despues de intentar un entorno amigable con windows, encontre este plugin WINCE (gratuito) -incluye el fuente- que te trata tu PDA como si de una unidad fuera. Ventajas todas... Revisen otros plugin que vale la pena....\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ghisler.com/plugins.htm\">http://www.ghisler.com/plugins.htm</a><!-- m -->\n\nPerdon si me salgo de contexto....\n\nUn saludo','',0,'gA==','1xht7mxu',1,0,'',413,0,0),(7305,1748,3,460,0,'217.37.54.49',1140012933,1,0,1,1,1,0,'','Help Files','Hi,\n\nTo open/view help files within my app i open the help file at the start\n\nSetHelpFile( filename )\n\nI then add the help i.d. to my dialog boxes\n\nDEFINE DIALOG oDlg RESOURCE \"CUSTOMER\" TITLE \"Customer Entry\" HELPID 200\n\nI also have a help button that calls the following:\n\nwinhelp(filename, 1, 200)\n\nThis works OK on most pcs but on a few, a blank white help screen flashes up and then instantly disapears.  I\'ve noticed this mainly on Windows 2003 machines, but have found it on windows 2000.\n\nI\'ve only notcied this since my app was complied under 32bit - 16bit was fine.  My help files are created using hel &amp; manual\n\nDo i have to do anything to the help files to work under 32bit?\n\nThanks In Advance\n\nPete','',0,'gA==','2pcs7ieg',1,0,'',460,0,0),(7306,1743,3,32,0,'196.36.8.34',1140014562,1,0,1,1,1,0,'','Themed button','Hi,\n\nBelow is some cpp code that does it:\n\n[code:169ve56z]TEMPLATE void CDialogMinTrayBtn&lt;BASE&gt;&#58;&#58;MinTrayBtnDraw&#40;&#41;\n&#123;\n    if &#40;!MinTrayBtnIsVisible&#40;&#41;&#41;\n       return;\n\n    CDC *pDC= GetWindowDC&#40;&#41;;\n    if &#40;!pDC&#41;\n       return; // panic!\n\n    if &#40;IsWindowsClassicStyle&#40;&#41;&#41;\n    &#123;\n        CBrush black&#40;GetSysColor&#40;COLOR_BTNTEXT&#41;&#41;;\n        CBrush gray&#40;GetSysColor&#40;COLOR_GRAYTEXT&#41;&#41;;\n        CBrush gray2&#40;GetSysColor&#40;COLOR_BTNHILIGHT&#41;&#41;;\n\n        // button\n        if &#40;m_bMinTrayBtnUp&#41;\n           pDC-&gt;DrawFrameControl&#40;MinTrayBtnGetRect&#40;&#41;, DFC_BUTTON, DFCS_BUTTONPUSH&#41;;\n        else\n           pDC-&gt;DrawFrameControl&#40;MinTrayBtnGetRect&#40;&#41;, DFC_BUTTON, DFCS_BUTTONPUSH | DFCS_PUSHED&#41;;\n\n        // dot\n        CRect btn = MinTrayBtnGetRect&#40;&#41;;\n        btn&#46;DeflateRect&#40;2,2&#41;;\n        UINT caption = MinTrayBtnGetSize&#40;&#41;&#46;cy + &#40;CAPTION_BUTTONSPACE * 2&#41;;\n        UINT pixratio = &#40;caption &gt;= 14&#41; ? &#40;&#40;caption &gt;= 20&#41; ? 2 + &#40;&#40;caption - 20&#41; / 8&#41; &#58; 2&#41; &#58; 1;\n        UINT pixratio2 = &#40;caption &gt;= 12&#41; ? 1 + &#40;caption - 12&#41; / 8&#58; 0;\n        UINT dotwidth = &#40;1 + pixratio * 3&#41; &gt;&gt; 1;\n        UINT dotheight = pixratio;\n        CRect dot&#40;CPoint&#40;0,0&#41;, CPoint&#40;dotwidth, dotheight&#41;&#41;;\n        CSize spc&#40;&#40;1 + pixratio2 * 3&#41; &gt;&gt; 1, pixratio2&#41;;\n        dot -= dot&#46;Size&#40;&#41;;\n        dot += btn&#46;BottomRight&#40;&#41;;\n        dot -= spc;\n        if &#40;!m_bMinTrayBtnUp&#41;\n           dot += CPoint&#40;1,1&#41;;\n        if &#40;m_bMinTrayBtnEnabled&#41;\n        &#123;\n           pDC-&gt;FillRect&#40;dot, &amp;black&#41;;\n        &#125;\n        else\n        &#123;\n           pDC-&gt;FillRect&#40;dot + CPoint&#40;1,1&#41;, &amp;gray2&#41;;\n           pDC-&gt;FillRect&#40;dot, &amp;gray&#41;;\n        &#125;\n    &#125;\n	else\n	&#123;\n		// VisualStylesXP\n		CRect btn = MinTrayBtnGetRect&#40;&#41;;\n		int iState;\n		if &#40;!m_bMinTrayBtnEnabled&#41;\n			iState = TRAYBS_DISABLED;\n		else if &#40;GetStyle&#40;&#41; &amp; WS_DISABLED&#41;\n			iState = MINBS_NORMAL;\n		else if &#40;m_bMinTrayBtnHitTest&#41;\n			iState = &#40;m_bMinTrayBtnCapture&#41; ? MINBS_PUSHED &#58; MINBS_HOT;\n		else\n			iState = MINBS_NORMAL;\n		// inactive\n		if &#40;!m_bMinTrayBtnActive&#41;\n			iState += 4; // inactive state TRAYBS_Ixxx\n\n		if &#40;m_bmMinTrayBtnBitmap&#46;m_hObject &amp;&amp; _TransparentBlt&#41;\n		&#123;\n			// known theme &#40;bitmap&#41;\n			CBitmap *pBmpOld;\n			CDC dcMem;\n			if &#40;dcMem&#46;CreateCompatibleDC&#40;pDC&#41; &amp;&amp; &#40;pBmpOld = dcMem&#46;SelectObject&#40;&amp;m_bmMinTrayBtnBitmap&#41;&#41; != NULL&#41;\n			&#123;\n				_TransparentBlt&#40;pDC-&gt;m_hDC, btn&#46;left, btn&#46;top, btn&#46;Width&#40;&#41;, btn&#46;Height&#40;&#41;, dcMem&#46;m_hDC, 0, BMP_TRAYBTN_HEIGHT * &#40;iState - 1&#41;, BMP_TRAYBTN_WIDTH, BMP_TRAYBTN_HEIGHT, BMP_TRAYBTN_TRANSCOLOR&#41;;\n				dcMem&#46;SelectObject&#40;pBmpOld&#41;;\n			&#125;\n		&#125;\n		else\n		&#123;\n			// unknown theme &#40;ThemeData&#41;\n			HTHEME hTheme = g_xpStyle&#46;OpenThemeData&#40;m_hWnd, L&quot;Window&quot;&#41;;\n			if &#40;hTheme&#41;\n			&#123;\n				btn&#46;top += btn&#46;Height&#40;&#41; / 8;\n				g_xpStyle&#46;DrawThemeBackground&#40;hTheme, pDC-&gt;m_hDC, WP_TRAYBUTTON, iState, &amp;btn, NULL&#41;;\n				g_xpStyle&#46;CloseThemeData&#40;hTheme&#41;;\n			&#125;\n		&#125;\n	&#125;\n\n    ReleaseDC&#40;pDC&#41;;\n&#125;\n[/code:169ve56z]','',0,'AIA=','169ve56z',1,0,'',32,0,0),(7307,1725,3,269,0,'217.37.54.49',1140015040,1,0,1,1,1,0,'','','manuramos, thank you for your help, although I found a solution to the problem.\n\nJames, yes I agree that radio buttons are more user friendly, but that is what the user of the system has asked for, that is why I said that ideally I would like to have used them instead of radio buttons.\n\nThank you for commenting','',0,'AIA=','ycet80ap',1,0,'',269,0,0),(7309,1750,6,305,0,'201.240.92.11',1140016507,1,0,1,1,1,0,'','tTime()  bug','Antonio: \n\nesta linea funciona bien hasta FWH 2.6 + xHb 09950 \n\noTime1 := TTime():System() \n\n\nPero al compilarlo con FWH 2.7 (jan) + xHb 09951 \nme da el siguiente error en tiempo de ejecucion : \n\nApplication \n=========== \nPath and name: C:\\DemoSistemas\\Protwin\\gestwinx.Exe (32 bits) \nSize: 3,494,400 bytes \nTime from start: 0 hours 2 mins 38 secs \nError occurred at: 15/02/2006, 09:26:30 \nError description: Error BASE/1605 Invalid self: SYSTEM \nArgs: \n[ 1] = O Object \n[ 2] = U \n\nStack Calls \n=========== \nCalled from: TIME.PRG =&gt; TTIME:SYSTEM(0) \nCalled from: costprom.prg =&gt; COSTPROM(22) \nCalled from: =&gt; (b)BUILDMENU(390) \nCalled from: MENU.PRG =&gt; TMENU:COMMAND(0) \nCalled from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0) \nCalled from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0) \nCalled from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0) \nCalled from: WINDOW.PRG =&gt; _FWH(0) \nCalled from: =&gt; WINRUN(0) \nCalled from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0) \nCalled from: wgest.prg =&gt; MAIN(182) \n\n\nPuedes ayudarme? \n\nRalph','',0,'','oq88up7c',1,0,'',305,0,0),(7310,1103,1,266,0,'60.50.62.58',1140017116,1,0,1,1,1,1,'','','What is the parameter values to send when calling Winattend()  :-\n\n=&gt; nDelai, ETATPRECG, ETATPREC ???\n\nThanks.','',0,'','3d1gk1yp',1,0,'',266,0,0),(7312,1394,3,447,0,'83.240.190.122',1140018822,1,0,1,1,1,0,'','','Boa Tarde\n\nA configuracao que tinha estava quase igual.\nSubstitui pela que enviou e alterei as PATHS. Deu erro nos includes .h\n\nAlterei a instrucao:\n\n[.C]\nOut = $In.obj\nCmd0 = bcc32 -c -IX:\\xHARBOUR\\INCLUDE $In.c\n\npara:\n[.C]\nOut = $In.obj\nCmd0 = bcc32 -c -Ix:\\xHARBOUR\\INCLUDE -Ix:\\BCC55\\INCLUDE $In.c\n\n-----\nDeixou de dar erro.\nAgora da:\n\nFatal: Unable to open file \'HBSIX.LIB\'\nemail.exe - 0 errors(s), 0 warning(s)\n\nE continua sem gerar o email.exe.\n\nNao encontro a HBSIX.LIB. Compilando com o buildx.bat dá o erro mas gera o executavel.\nSe retirar a linha:\nCmd10 = echo $(CPATH)\\lib\\b32\\hbsix.lib + &gt;&gt; b32.bc\nnão dá erro mas fico na mesma sem o email.exe\n\nO ficheiro makefile que o UEStudio cria em: \nX:\\xHarbour\\FWH260\\SAMPLES\\Release\ncontinua a ter a linha que me da ideia que apaga o executavel depois de ser gerado:\nCLEAN:\n	-@erase \"email.res\"\n	-@erase \"email.c\"\n	-@erase \"email.obj\"\n	-@erase \"email.EXE\"\n\n------------------------------------\n\nUtilizo o FWH 2.6 e o xHarbour 0.99.3 (simplex) que veio com o FWH 2.6\n\nX:\\BCC55\\Bin\\ilink32.cfg\n/Lx:\\bcc55\\lib;x:\\xHarbour\\lib;x:\\xHarbour\\fwh260\\lib\n\nX:\\BCC55\\Bin\\bcc32.cfg\n-Ix:\\bcc55\\include;x:\\xHarbour\\include;x:\\xHarbour\\fwh260\\include\n-Lx:\\bcc55\\lib;x:\\xHarbour\\lib;x:\\xHarbour\\fwh260\\lib\n\nA versão do UEStudio é 05.10+1\n\nUtilizando o buildx.bat do FWH ou o xMAte sem o hbsix.lib o executavel é feito sem problemas.\n\n\nObrigado\nJose Carlos','',0,'','2q77ln8f',1,0,'',447,0,0),(7313,1752,2,439,0,'201.217.190.110',1140018998,1,0,1,1,1,0,'','Creación de excell','Antonio Linares,\n\nGracias por hacerme llegar la TWBrowse última, la estoy probando .....\n\nEn un mail anterior, te había solicitado algo sobre una clase para crear directamente planillas Excell que funcione con FW2.7Feb06, yo usaba FileXLS con muy buen resultado y tengo una aplicación que genera casi todos sus listados en modalidad planilla excell por medio de esta clase.\n\nSe puede acceder en HARBOUR a una clase similar o esta misma modificarla para que funcione?\n\nSoy un viejo cliperiano ¨Dinosaurio¨a quien le cuesta aún bastante adaptarse al tema de hacer libs, recompilar libs, comprender los fuentes de las clases etc..\n\nA proposito, hay algun sitio donde haya información para desasnarme al respecto?\n\nApreciaré cualquier ayuda que me puedas dar.\n\nDisculpa mis frecuentes molestias, pero creo que solucionando esto y si logro hacer andar la clase twbrowse17 que me mandaste no sabrás de mí por unas cuantas semanas.\n\nUn fuerte abrazo','',0,'','tiq58dm6',1,0,'',439,0,0),(7314,1746,20,49,0,'82.59.142.100',1140019139,1,0,1,1,1,1,'','','si anche un altra volta mi ha detto così ....\nMa si ha il caso che io non sono sulla classe Tprinter e quindi io il foglio di carta non c\'è l\'ho lo devo creare ...\nSpiego meglio  \nio ho una dialog :\nNuovo formato -&gt; si apre una dialog con un combobox con i tipi di carta \nON CHANGE -&gt; mi deve restituire la larghezza e la lunghezza .... poi su 4 get io posso chiedere all\'utente i margini ( destro sinistro,sup,inf)\n \nSpero che abbia capito...','',0,'','be26si15',1,0,'',49,0,0),(7315,1103,1,170,0,'83.177.212.143',1140019774,1,0,1,1,1,1,'','','[quote=&quot;tnhoe&quot;:10lpeavg]What is the parameter values to send when calling Winattend()  :-\n\n=&gt; nDelai, ETATPRECG, ETATPREC ???\n\nThanks.[/quote:10lpeavg]\n\nnDelai = the delay in millisecond required by your parent function.\nETATPRECG = the previous state of the left button of the mouse.\nETATPRECD = the previous state of the right button of the mouse.\n\nPUBVAR(155) is the maximal delay can be used (1 to 1000, 500 is good).\nThis parameter can be changed by your user...\nPUBVAR(132) is .T. when the Windows receive the focus.\nPUBVAR(139) is .T. each time WndMain():bPainted is evaluated.\n\nRegards,','',0,'gA==','10lpeavg',1,0,'',170,0,0),(7316,1746,20,6,0,'82.61.28.39',1140020519,1,0,1,1,1,1,'','','Le funzioni PrnGetSize() e PrnOffset() funzionano anche prima che venga definita una stampante.\n\nEMG','',0,'gA==','48npmw21',1,0,'',6,0,0),(7317,1753,3,217,0,'201.27.29.64',1140021096,1,0,1,1,1,0,'','_hb_stack error','Hello!\n\nI´m going back to FW World (thanks God) and...\nI bought comercial xHarbour (Feb/2006) and created FWH´s lib to work with. I compile my app and get the error unresolved symbol _hb_stack.\nDoes anyone have any idea how to solve it?\nMy FWH version is 2.6 from April/2006.\n\nNote: with xHarbour.com from Oct/2005 it work fine\n\nThanks a lot!\nMaurilio','',0,'gA==','ltd8ksvn',1,0,'',217,0,0),(7318,1746,20,49,0,'87.7.182.74',1140021526,1,0,1,1,1,1,'','','ok provo','',0,'gA==','102ujul7',1,0,'',49,0,0),(7319,1746,20,49,0,'87.7.182.74',1140021747,1,0,1,1,1,1,'','','PrnGetSize()\n\nho visto che bisogna definire hdc quindi non va bene\nio non ho definito nessuna stampa','',0,'gA==','3o1lbd2d',1,0,'',49,0,0),(7320,1746,20,6,0,'82.61.28.39',1140022351,1,0,1,1,1,1,'','','Ops, è vero. Però, pensandoci bene, non mi pare possibile definire la carta prima di definire una stampante. Il tipo di carta infatti, come confermano le API utilizzate dalle funzioni PrnGetSize() e PrnOffset(), è una caratteristica della specifica stampante utilizzata.\n\nEMG','',0,'gA==','1oe9rncx',1,0,'',6,0,0),(7321,1746,20,49,0,'87.7.182.74',1140022394,1,0,1,1,1,1,'','','io devo mettere in u combo tutti i formati che in quel momento la mia stampante supporta\nc\'è un metodo veloce per esempio \n\n [code:8k2ipefn]\n\n   LOCAL aLbx &#58;=  dammi i formati&#40;&#41;\n   LOCAL nLbx &#58;= 1\n   LOCAL lOk  &#58;= &#46;F&#46;\n   LOCAL oDlg, oLbx, i\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Formati&quot; FONT &#58;&#58;oFont\n\n   REDEFINE LISTBOX oLbx VAR nLbx ITEMS aLbx ID 101 OF oDlg\n\n   REDEFINE BUTTON ID 201 ACTION &#40; lOk &#58;= &#46;T&#46;, oDlg&#58;End&#40;&#41; &#41;\n   REDEFINE BUTTON ID 202 ACTION &#40; oDlg&#58;End&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTER\n\n\n  if lOk\n      ? aLbx&#91; nLbx &#93; \n   endif\n\nRETURN NIL\n[/code:8k2ipefn]\n\ngrazie','',0,'AIA=','8k2ipefn',1,0,'',49,0,0),(7322,1753,3,6,0,'82.61.28.39',1140022452,1,0,1,1,1,1,'','Re: _hb_stack error','You have to recompile *all* your PRG and LIBs.\n\nEMG\n\nPS. Welcome back! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3oleoljm',1,0,'',6,0,0),(7323,1746,20,6,0,'82.61.28.39',1140022690,1,0,1,1,1,1,'','','No, perché, appunto, non hai ancora definito qual\'è la \"tua stampante\" e quindi il sistema non può sapere a quale ti riferisci. Comunque anche definendo prima la stampante non ti saprei dire lo stesso come fare a (né se sia possibile) tirare fuori i formati di carta supportati.\n\nEMG','',0,'AIA=','tfh2qmec',1,0,'',6,0,0),(7324,1746,20,49,0,'87.7.182.74',1140022776,1,0,1,1,1,1,'','','[quote:1mw4507f]Ops, è vero. Però, pensandoci bene, non mi pare possibile definire la carta prima di definire una stampante. Il tipo di carta infatti, come confermano le API utilizzate dalle funzioni PrnGetSize() e PrnOffset(), è una caratteristica della specifica stampante utilizzata. \n\n[/quote:1mw4507f]\n\nHAi ragione ma per esempio ho visto in ER che lui fa definire la pagina senza che nessuna stampante sia stata creata in windows cioè funzia anchese non c\'ènessna stampante installata sul pc o  on line','',0,'gA==','1mw4507f',1,0,'',49,0,0),(7325,1746,20,49,0,'87.7.182.74',1140022894,1,0,1,1,1,1,'','','[quote:1boe3gta]No, perché, appunto, non hai ancora definito qual\'è la \"tua stampante\" e quindi il sistema non può sapere a quale ti riferisci. Comunque anche definendo prima la stampante non ti saprei dire lo stesso come fare a (né se sia possibile) tirare fuori i formati di carta supportati. \n\n[/quote:1boe3gta]\n\nBene secondo te dovrei definire hdc diciamo che è oprn quindi oprn:prngetsize()\ne per avere i formati in un array ?','',0,'gA==','1boe3gta',1,0,'',49,0,0),(7326,1725,3,303,0,'68.7.28.54',1140022954,1,0,1,1,1,0,'','','[quote:q31vyuat]but that is what the user of the system has asked for[/quote:q31vyuat]\n\nAh, yes of course, you must do what the customer wants.\n\nJames','',0,'gA==','q31vyuat',1,0,'',303,0,0),(7327,1754,7,262,0,'217.124.39.164',1140023113,1,0,1,1,1,1,'','Se puede cambiar el color de los botones ?','Tengo un boton creado con recursos , al que quiero cambiar de color , para que se vea un estado del programa \n\ncon obtn:setcolor(rgb(192,192,192),rgb(200,200,200)) por ejemplo no me funciona .\nComo sería ?','',0,'gA==','1ecc7gc4',1,0,'',262,0,0),(7328,1746,20,6,0,'82.61.28.39',1140023278,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:2ygu6jdf]HAi ragione ma per esempio ho visto in ER che lui fa definire la pagina senza che nessuna stampante sia stata creata in windows cioè funzia anchese non c\'ènessna stampante installata sul pc o  on line[/quote:2ygu6jdf]\n\nProbabilmente riempie un array con *tutti* i principali formati disponibili (che trovi, ad esempio, in printer.prg) indipendentemente dalla stampante. Può essere?\n\nEMG','',0,'gA==','2ygu6jdf',1,0,'',6,0,0),(7329,1746,20,6,0,'82.61.28.39',1140023358,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:ys17hyma]Bene secondo te dovrei definire hdc diciamo che è oprn quindi oprn:prngetsize() e per avere i formati in un array ?[/quote:ys17hyma]\n\nPurtroppo, come ti ho già detto, non lo so.\n\nEMG','',0,'gA==','ys17hyma',1,0,'',6,0,0),(7330,1755,3,266,0,'60.50.62.58',1140023625,1,0,1,1,1,1,'','tsbrowse for xHarbour','Can anyone plz send me TSBROWSE libs for xHarbour ?\n\ni think the libs are sbrowse, sbutton.','',0,'gA==','uvvyanf8',1,0,'',266,0,0),(7331,1746,20,49,0,'87.7.182.74',1140024058,1,0,1,1,1,1,'','','si ho provato a mettere in un array tutti i tipi che ho trovato in print ma poi selezionandoli non saprei come fare a restituirmi i valori senza definire oprn (hdc)\nprobabilmente  sarà possibile farlo in c...','',0,'gA==','f3vo8rh5',1,0,'',49,0,0),(7332,1104,2,75,0,'83.36.141.192',1140024523,1,0,1,1,1,0,'','','¿Se arregló el problema Jose Luis?\n\nSaludos','',0,'gA==','2boedy96',1,0,'',75,0,0),(7333,1607,6,57,0,'81.39.239.66',1140024746,1,0,1,1,1,1,'','Re: dwgcad viewer','[quote=&quot;Arturo Tamayo Daza&quot;:14n66u7r]hola foro \n\ncomo aqui no se puede dejas archivos adjuntos, quiero enviar a alh}guien las fuentes de la clase tdwg par su uso libre\n\nsi alguien queire publicarlo favor cominuquenme para que le envie\n\nSaludos \n\nArturo[/quote:14n66u7r]\n\nArturo\nIntento compilar con xHarbour y al compilar los ficheros setrop2.c y dwgmio.c pide el fichero AD2.ch y AD3.ch y estos no estan en el proyecto.\n¿Podrias adjuntarlos por favor ?\n\nSaludos','',0,'gA==','14n66u7r',1,0,'',57,0,0),(7334,1747,7,2,0,'87.218.146.113',1140024882,1,0,1,1,1,1,'','','Andrés,\n\nEstupendo, realmente útil <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nMuchas gracias!','',0,'gA==','se9xib7g',1,0,'',2,0,0),(7335,1746,20,6,0,'82.61.28.39',1140025071,1,0,1,1,1,1,'','','I valori sono costanti e non dipendono dalla stampante. Basta che riempi, ad esempio, un array parallelo a quello dei nomi dei formati ma contenente i valori corrispondenti e poi peschi da quest\'ultimo il valore relativo all\'elemento selezionato.\n\nEMG','',0,'gA==','3nx2cmxu',1,0,'',6,0,0),(7336,1352,3,6,0,'82.61.28.39',1140025497,1,0,1,1,1,1,'','','Headers clicking still doesn\'t work on the February build.\n\nEMG','',0,'gA==','l2omvn2x',1,0,'',6,0,0),(7338,1746,20,49,0,'87.7.182.74',1140025792,1,0,1,1,1,1,'','','ho preparato questo test\n[code:36c93uqb]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n\n   local oDlg, cCombo &#58;= 9, oBtn\n\nlocal aItems &#58;=&#123; &quot;DMPAPER_LETTER       &quot;,  ;\n&quot;DMPAPER_LETTERSMALL  &quot;,  ;\n&quot;DMPAPER_TABLOID      &quot;,  ;\n&quot;DMPAPER_LEDGER       &quot;,  ;\n&quot;DMPAPER_LEGAL        &quot;,  ;\n&quot;DMPAPER_STATEMENT    &quot;,  ;\n&quot;DMPAPER_EXECUTIVE    &quot;,  ;\n&quot;DMPAPER_A3           &quot;,  ;\n&quot;DMPAPER_A4           &quot;,  ;\n&quot;DMPAPER_A4SMALL      &quot;,  ;\n&quot;DMPAPER_A5           &quot;,  ;\n&quot;DMPAPER_B4           &quot;,  ;\n&quot;DMPAPER_B5           &quot;,  ;\n&quot;DMPAPER_FOLIO        &quot;,  ;\n&quot;DMPAPER_QUARTO       &quot;,  ;\n&quot;DMPAPER_10X14        &quot;,  ;\n&quot;DMPAPER_11X17        &quot;,  ;\n&quot;DMPAPER_NOTE         &quot;,  ;\n&quot;DMPAPER_ENV_9        &quot;,  ;\n&quot;DMPAPER_ENV_10       &quot;,  ;\n&quot;DMPAPER_ENV_11       &quot;,  ; \n&quot;DMPAPER_ENV_12       &quot;,  ;\n&quot;DMPAPER_ENV_14       &quot;,  ;\n&quot;DMPAPER_CSHEET       &quot;,  ;\n&quot;DMPAPER_DSHEET       &quot;,  ;\n&quot;DMPAPER_ESHEET       &quot;,  ;\n&quot;DMPAPER_ENV_DL       &quot;,  ;\n&quot;DMPAPER_ENV_C5       &quot;,  ;\n&quot;DMPAPER_ENV_C3       &quot;,  ;\n&quot;DMPAPER_ENV_C4       &quot;,  ;\n&quot;DMPAPER_ENV_C6       &quot;,  ;\n&quot;DMPAPER_ENV_C65      &quot;,  ;\n&quot;DMPAPER_ENV_B4       &quot;,  ;\n&quot;DMPAPER_ENV_B5       &quot;,  ;\n&quot;DMPAPER_ENV_B6       &quot;,  ;\n&quot;DMPAPER_ENV_ITALY    &quot;,  ;\n&quot;DMPAPER_ENV_MONARCH  &quot;,  ;\n&quot;DMPAPER_ENV_PERSONAL &quot;,  ;\n&quot;DMPAPER_FANFOLD_US   &quot;,  ;\n&quot;DMPAPER_FANFOLD_STD_GERMAN&quot;,  ;\n&quot;DMPAPER_FANFOLD_LGL_GERMAN &quot;&#125;\n\n\n   DEFINE DIALOG oDlg FROM 2, 2 TO 18, 60 TITLE &quot;Selezione formati di stampa&quot; ;\n      STYLE nOr&#40; DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 &#41;\n\n\n   @ 2, 2 COMBOBOX cCombo ITEMS aItems SIZE 200, 100 ON CHANGE PrnSetPage&#40; nAT &#41;\n\n\n\n   @ 3,  4 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 40, 12\n   @ 3, 12 BUTTON oBtn PROMPT &quot;&amp;Cancel&quot; OF oDlg SIZE 40, 12 ;\n      ACTION &#40; MsgInfo&#40; NaT &#41;, lExit &#58;= &#46;t&#46;, oDlg&#58;End&#40;&#41; &#41;\n\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil[/code:36c93uqb]\n\n\n\n1) non setta la pagina\n2) non so come fare per darmi iparametri di lunghezza e larghezza','',0,'AIA=','36c93uqb',1,0,'',49,0,0),(7339,1394,3,2,0,'87.218.146.113',1140026014,1,0,1,1,1,1,'','','Jose Carlos,\n\nHas comprobado que hbsix.lib existe y está en x:\\xharbour\\lib\\b32 ?','',0,'AIA=','5nsgrikw',1,0,'',2,0,0),(7340,1352,3,2,0,'87.218.146.113',1140026194,1,0,1,1,1,1,'','','Enrico,\n\nPlease try fwh\\samples\\enrico.prg <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nIts working fine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2i60roc8',1,0,'',2,0,0),(7341,1753,3,2,0,'87.218.146.113',1140026524,1,0,1,1,1,1,'','','Maurilio,\n\nxHarbour February 2006 needs at least FWH october 2005, and you have to recompile all its PRG files.','',0,'AIA=','16nz8s2g',1,0,'',2,0,0),(7342,1754,7,2,0,'87.218.146.113',1140026680,1,0,1,1,1,1,'','','Jose Luis,\n\nNormalmente no se le puede cambiar el color a los botones estandard.\n\nPuedes usar un botón TBtnBmp y le cambias el bitmap, para representar otro estado.','',0,'AIA=','1fx064vc',1,0,'',2,0,0),(7344,1751,6,305,0,'201.240.92.11',1140026998,1,0,1,1,1,0,'','','intento crear el ejecutable, pero el dialogo no acepta la clausula TRANSPARENT.   Parece que falta que subas el DIALOG.CH modificado \n\nRalph','',0,'AIA=','2vbghoj0',1,0,'',305,0,0),(7345,1750,6,2,0,'87.218.146.113',1140027229,1,0,1,1,1,1,'','','Ralph,\n\nModifica la Clase TTime para que el método New y System devuelvan Self:\n\n...\n\nreturn Self  // en vez de return nil\n\nCon ese cambio, samples\\TestTim2.prg funciona correctamente con Harbour/xharbour.','',0,'AIA=','k0ads4do',1,0,'',2,0,0),(7347,1756,6,57,0,'81.39.239.66',1140027627,1,0,1,1,1,1,'','Sobre las últimas modificaciones en control.prg','Antonio\n\nCon las últimas modificaciones realizadas en el método Keydown en control.prg, concretamente con la inclusión de este código:\n   if nKey == VK_ESCAPE\n      ::oWnd:KeyChar( nKey, nFlags )\n      return 0\n   endif\n\nMe encuentro que la captura del método al redefinir el dialogo no hace nada. \n\noDlg:bKeyDown := {|nKey|  if(nKey==VK_ESCAPE, (msginfo(\"adios\"), oDlg:End()), ) }\n\n¿Como puedo solucionar esto ahora?. ¿Es correcto ese comportamiento?\nSaludos','',0,'AIA=','22dnt3gx',1,0,'',57,0,0),(7348,1756,6,2,0,'87.218.146.113',1140027877,1,0,1,1,1,1,'','','Toni,\n\nParece un error. Debería ser:\n\n[code:ktzck4bs]\n   if nKey == VK_ESCAPE\n      &#58;&#58;oWnd&#58;KeyDown&#40; nKey, nFlags &#41;\n      return 0\n   endif   \n[/code:ktzck4bs]\n\nPor favor, pruébalo y nos comentas. Gracias.','',0,'AIA=','ktzck4bs',1,0,'',2,0,0),(7349,1757,3,266,0,'60.50.62.58',1140028238,1,0,1,1,1,1,'','What is the harbour syntax/flags to recompile classes prg ?','What is the correct syntax/flags to compile classes prg ?\n\nI try recompile a modified tget.prg and get following errors. \n\nFrom buildh.bat in \\FWH21\\samples\\ :-\n\n%hdir%\\bin\\harbour %1 /n /m /i..\\include;%hdir%\\include /p %2 %3 &gt; clip.log\n\n\nGiving errors on all \'METHODS\' command in prg :-\n\n\n*-------------------------------------------------------------\nCompiling...\nHarbour Compiler Alpha build 43.0 (Flex)\nCopyright 1999-2003, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tget.prg\' and generating preprocessed output to \'tget.ppo\'...\n\ntget.prg(54) Error E0030  Syntax error: \"parse error at \'\\\'\"\ntget.prg(60) Error E0030  Syntax error: \"parse error at \'\\\'\"\n:\n:\n:\n*--------------------------------------------------------------','',0,'AIA=','2aqiwnb9',1,0,'',266,0,0),(7350,1394,3,447,0,'83.240.190.122',1140028395,1,0,1,1,1,0,'','','Boa Tarde\n\nNão tenho esse directorio. Tenho da instalação a partir das fontes do FWH 2.6:\n\n\nx:\\xHarbour\n                  \\bin\n                  \\doc\n                  \\FWH260 (Copia da instalação para este directorio)\n                               \\AVIS\n                               \\BITMAPS\n                               \\DLL\n                               \\ICONS\n                               \\INCLUDE\n                               \\LIB\n                               \\manual\n                               \\SAMPLES\n                               \\SOURCE\n                               \\tools\n                  \\include\n                  \\lib\n                  \\tests\n\nx:\\BCC55\n               \\Bin\n               \\Examples\n               \\Help\n               \\Include\n                           \\Gl\n                           \\Rw\n                           \\Sys\n               \\Lib\n                     \\PSDK\n\n\n\n-----------------------\n\nObrigado\nJose Carlos\n\n[/img]','',0,'','7d4jtfcz',1,0,'',447,0,0),(7351,1739,6,2,0,'87.218.146.113',1140028765,1,0,1,1,1,1,'','','Juan Carlos,\n\nPuedes proporcionar una dirección de descarga del Acrobat Reader 5 ? Gracias','',0,'','17hi1h5k',1,0,'',2,0,0),(7352,1607,6,185,0,'200.87.81.27',1140029084,1,0,1,1,1,0,'','','Hola\n\nLos archivos y las lib que se requieren debes bajarlos de <!-- w --><a class=\"postlink\" href=\"http://www.opendwg.org\">www.opendwg.org</a><!-- w -->','',0,'','3k0dtxpx',1,0,'',185,0,0),(7353,1746,20,6,0,'82.61.28.39',1140029984,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1xntiby5]1) non setta la pagina[/quote:1xntiby5]\n\nCome fai a dirlo? Hai provato a stampare? Comunque ti confermo che la funzione PrnSetPage() funziona dato che l\'ho usata in un programma.\n\n[quote=&quot;Silvio&quot;:1xntiby5]2) non so come fare per darmi iparametri di lunghezza e larghezza[/quote:1xntiby5]\n\nCon il metodo TPrinter:GetPhySize(), naturalmente dopo aver definito la stampante.\n\nEMG','',0,'gA==','1xntiby5',1,0,'',6,0,0),(7354,1756,6,57,0,'81.39.239.66',1140030011,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:13quh7ig]Toni,\n\nParece un error. Debería ser:\n\n[code:13quh7ig]\n   if nKey == VK_ESCAPE\n      &#58;&#58;oWnd&#58;KeyDown&#40; nKey, nFlags &#41;\n      return 0\n   endif   \n[/code:13quh7ig]\n\nPor favor, pruébalo y nos comentas. Gracias.[/quote:13quh7ig]\n\nOk\nAhora funciona perfecto.\n\nSaludos','',0,'gIA=','13quh7ig',1,0,'',57,0,0),(7355,1352,3,6,0,'82.61.28.39',1140030280,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2wk8tqu4]Enrico,\n\nPlease try fwh\\samples\\enrico.prg <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nIts working fine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:2wk8tqu4]\n\nOk, but try this enrico2.prg:\n\n[code:2wk8tqu4]#include &quot;Fivewin&#46;ch&quot; \n#include &quot;Tcbrowse&#46;ch&quot; \n\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg, oBrw, oCol \n\n    USE Customer ALIAS Test \n\n    DEFINE DIALOG oDlg SIZE 300, 300 \n\n    @ 0, 0 BROWSE oBrw \n\n    ADD COLUMN TO oBrw; \n               DATA TEST -&gt; last; \n               HEADER &quot;LAST&quot;; \n               COLOR CLR_RED, CLR_GREEN \n\n    ADD COLUMN TO oBrw; \n               DATA TEST -&gt; first; \n               HEADER &quot;FIRST&quot;; \n               COLOR CLR_RED, CLR_GREEN \n\n    oBrw&#58;lCellStyle = &#46;T&#46; \n    oBrw&#58;lMChange = &#46;F&#46;\n\n    oBrw&#58;aActions = &#123; &#123; || MsgInfo&#40; &quot;One!&quot; &#41; &#125;, &#123; || MsgInfo&#40; &quot;Two!&quot; &#41; &#125; &#125; \n\n    ACTIVATE DIALOG oDlg; \n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;; \n             CENTER ;\n             VALID MsgYesNo&#40; &quot;Want to exit ?&quot; &#41;\n\n    CLOSE \n\n    RETURN NIL[/code:2wk8tqu4]\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEMG','',0,'gIA=','2wk8tqu4',1,0,'',6,0,0),(7356,1739,6,255,0,'200.67.175.250',1140030314,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3gz8bl0v]Juan Carlos,\nPuedes proporcionar una dirección de descarga del Acrobat Reader 5 ? Gracias[/quote:3gz8bl0v]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/AcrobatReader5.exe\">www.esm.com.mx/fivewin/AcrobatReader5.exe</a><!-- w -->\n\nEspero me puedas ayudar.\nSaludos','',0,'gA==','3gz8bl0v',1,0,'',255,0,0),(7357,1754,7,262,0,'83.97.168.83',1140030419,1,0,1,1,1,1,'','','Buena idea la del btnbmp .\nLo he intentado hacer con un say , pero tampoco consiguo cambiar el color , se puede ? Cual es el procedimiento ?','',0,'gA==','2fbloetg',1,0,'',262,0,0),(7359,1732,6,131,0,'83.41.42.174',1140031562,1,0,1,1,1,0,'','','gracias,','',0,'gA==','3qnd5017',1,0,'',131,0,0),(7361,1757,3,266,0,'60.50.62.58',1140031765,1,0,1,1,1,1,'','','and which harbour/fivewin libs should include for these functions :-\n\nOBJNEWCLS\nOBJADDMET\nOBJSETUSERDATA\nOBJCLSINS\n\n?','',0,'gA==','vbo627us',1,0,'',266,0,0),(7362,1103,1,266,0,'60.50.62.58',1140032654,1,0,1,1,1,1,'','','I do this :\n\n  :\n  :\nACTIVATE WINDOWS oWnd ON INIT (winattend(500,,),.F.)\n\n\nafter link it and give following errors : UNRESOLVED EXTERNAL\n\nPUBVAR\nSTOPUNTIL\nGGMSTATE\nKEYNEXT\n\nI use Clipper 5.2, Fivewin 1.95 only','',0,'gA==','3h02csk6',1,0,'',266,0,0),(7363,1758,6,203,0,'200.107.17.96',1140033885,1,0,1,1,1,1,'','RECURSOS DE BORLAND','Hola amigos del foro\n\nAlguien me podría decir porque cuando trato de utilizar un Recurso de borland, cuando ejecuto el programa y tarto de ir al dialogo me dice que no puede ser creado...\n\nGracias de antemano\n\nSaludos\nOscar','',0,'gA==','3nlm1xka',1,0,'',203,0,0),(7364,1759,2,462,0,'200.28.79.130',1140035146,1,0,0,0,1,0,'','FIVEWIN + SQL','Estimados Amigos, recien me incorporo al Foro y me gustaria saber cual es su experiencia trabajando con SQL. También  me gustaria saber donde puedo encontrar un manual para poder comenzar con esto.\n\nAtento a sus comentarios Saluda Cordialmente\n\n\nOzonno','',0,'gA==','2mps856k',1,0,'',462,0,0),(7365,1739,6,2,0,'87.218.146.113',1140035628,1,0,1,1,1,1,'','','Carlos,\n\nEl problema es de ese ActiveX en concreto y Win98. De hecho el ActiveX se crea bien, pero no encuentra el método \"LoadFile\". Prueba a comentar estas dos líneas y verás como la ventana, con el ActiveX, se crean bien:\n\n   // oActiveX&#058;Do( \"LoadFile\", \"fwintro.pdf\" )\n   // oActiveX&#058;Do( \"SetCurrentPage\", 1 )\n\nLo he probado tambien con C3 de mi amigo Bruno, y le ocurre exactamente igual. El ActiveX se crea pero no encuentra ese método, aunque en las propiedades aparece como que está disponible.\n\nEstos son los problemas de los ActiveXs y de compatibilidad con distintos sistemas operativos, DLLs requeridas, etc.','',0,'gA==','2z7g1s7s',1,0,'',2,0,0),(7366,1750,6,305,0,'201.240.92.11',1140035741,1,0,1,1,1,0,'','','Gracias Antonio:\n\nfunciono!\n\nRalph','',0,'gA==','2oek5hl5',1,0,'',305,0,0),(7367,1756,6,2,0,'87.218.146.113',1140035885,1,0,1,1,1,1,'','','bien! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\ngracias,','',0,'gA==','2yz4b0it',1,0,'',2,0,0),(7369,1739,6,255,0,'200.67.175.250',1140036281,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:rhl8ebxk]Carlos,\nEl problema es de ese ActiveX en concreto y Win98. De hecho el ActiveX se crea bien, pero no encuentra el método \"LoadFile\". Prueba a comentar estas dos líneas y verás como la ventana, con el ActiveX, se crean bien:\n   // oActiveX&#058;Do( \"LoadFile\", \"fwintro.pdf\" )\n   // oActiveX&#058;Do( \"SetCurrentPage\", 1 )\nLo he probado tambien con C3 de mi amigo Bruno, y le ocurre exactamente igual. El ActiveX se crea pero no encuentra ese método, aunque en las propiedades aparece como que está disponible.\nEstos son los problemas de los ActiveXs y de compatibilidad con distintos sistemas operativos, DLLs requeridas, etc.[/quote:rhl8ebxk]\n\nNi hablar !!!\nVeré como lo soluciono.\nDe todas formas mil gracias antonio.','',0,'gA==','rhl8ebxk',1,0,'',255,0,0),(7370,1352,3,2,0,'87.218.146.113',1140037033,1,0,1,1,1,1,'','','Enrico,\n\nThis line is causing the problem:\n\noBrw:lMChange = .f. \n\nbut here you have a modified Class TCBrowse that works ok with your sample: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/a4efe529/tcbrowse.prg.html\">http://hyperupload.com/download/a4efe52 ... e.prg.html</a><!-- m --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1dhgo3j0',1,0,'',2,0,0),(7371,1757,3,2,0,'87.218.146.113',1140037372,1,0,1,1,1,1,'','','Hoe,\n\nIt looks as you are not using the right FWH objects.ch file.','',0,'gA==','3fz5dmks',1,0,'',2,0,0),(7372,1739,6,2,0,'87.218.146.113',1140037588,1,0,1,1,1,1,'','','Juan Carlos,\n\nUna solución sería hacer una DLL con Delphi que muestre el ActiveX y cargue el PDF (si es que lo consigue) y que llames a esa DLL desde tu aplicación.\n\nEn el directorio samples\\DLLs tienes ejemplos de como crear y usar DLLs de Delphi desde FWH.','',0,'gA==','3kwazb2x',1,0,'',2,0,0),(7373,1352,3,6,0,'82.61.28.39',1140038985,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'gA==','3fjbhzpk',1,0,'',6,0,0),(7374,1137,3,6,0,'82.61.28.39',1140039116,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','I don\'t know why but the following fix seems to work:\n\n[code:q5yc4xux]METHOD ScrollNumber&#40; nDirection &#41; CLASS TGet\n\n   LOCAL nValue, nDec, nPos\n\n   #ifndef __XPP__\n      nValue &#58;= &#58;&#58;Value\n   #else\n      nValue &#58;= &#58;&#58;VarGet&#40;&#41;\n   #endif\n\n   nPos &#58;= &#58;&#58;nPos\n\n   if !Empty&#40; &#58;&#58;oGet&#58;DecPos &#41; &#46;and&#46; nPos &gt;= &#58;&#58;oGet&#58;DecPos\n      nDec   &#58;= Max&#40; 1, nPos - &#58;&#58;oGet&#58;DecPos - 1 &#41;\n      If nDirection &gt; 0\n         nValue += 1 / &#40; 10 ^ nDec &#41;\n      else\n         nValue -= 1 / &#40; 10 ^ nDec &#41;\n      Endif\n   else\n      nValue += nDirection\n   endif\n\n   if nDirection &gt; 0\n      if &#58;&#58;bMax != NIL &#46;and&#46; nValue &gt; Eval&#40; &#58;&#58;bMax &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   else\n      if &#58;&#58;bMin != NIL &#46;and&#46; nValue &lt; Eval&#40; &#58;&#58;bMin &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   endif\n\n   &#58;&#58;oGet&#58;KillFocus&#40;&#41;\n   &#58;&#58;oGet&#58;SetFocus&#40;&#41;\n   &#58;&#58;SetPos&#40; nPos &#41;\n\nRETURN nil[/code:q5yc4xux]\n\nEMG','',0,'AIA=','q5yc4xux',1,0,'',6,0,0),(7375,1137,3,6,0,'82.61.28.39',1140039151,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','[quote=&quot;EnricoMaria&quot;:11xst9xq]I don\'t know why but the following fix seems to work:\n\n[code:11xst9xq]METHOD ScrollNumber&#40; nDirection &#41; CLASS TGet\n\n   LOCAL nValue, nDec, nPos\n\n   #ifndef __XPP__\n      nValue &#58;= &#58;&#58;Value\n   #else\n      nValue &#58;= &#58;&#58;VarGet&#40;&#41;\n   #endif\n\n   nPos &#58;= &#58;&#58;nPos\n\n   if !Empty&#40; &#58;&#58;oGet&#58;DecPos &#41; &#46;and&#46; nPos &gt;= &#58;&#58;oGet&#58;DecPos\n      nDec   &#58;= Max&#40; 1, nPos - &#58;&#58;oGet&#58;DecPos - 1 &#41;\n      If nDirection &gt; 0\n         nValue += 1 / &#40; 10 ^ nDec &#41;\n      else\n         nValue -= 1 / &#40; 10 ^ nDec &#41;\n      Endif\n   else\n      nValue += nDirection\n   endif\n\n   if nDirection &gt; 0\n      if &#58;&#58;bMax != NIL &#46;and&#46; nValue &gt; Eval&#40; &#58;&#58;bMax &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   else\n      if &#58;&#58;bMin != NIL &#46;and&#46; nValue &lt; Eval&#40; &#58;&#58;bMin &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   endif\n\n   &#58;&#58;oGet&#58;KillFocus&#40;&#41; //EMG\n   &#58;&#58;oGet&#58;SetFocus&#40;&#41; //EMG\n   &#58;&#58;SetPos&#40; nPos &#41;\n\nRETURN nil[/code:11xst9xq]\n\nEMG[/quote:11xst9xq]','',0,'gIA=','11xst9xq',1,0,'',6,0,0),(7376,1137,3,6,0,'82.61.28.39',1140039182,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','I don\'t know why but the following fix seems to work:\n\n[code:325p4yx7]METHOD ScrollNumber&#40; nDirection &#41; CLASS TGet\n\n   LOCAL nValue, nDec, nPos\n\n   #ifndef __XPP__\n      nValue &#58;= &#58;&#58;Value\n   #else\n      nValue &#58;= &#58;&#58;VarGet&#40;&#41;\n   #endif\n\n   nPos &#58;= &#58;&#58;nPos\n\n   if !Empty&#40; &#58;&#58;oGet&#58;DecPos &#41; &#46;and&#46; nPos &gt;= &#58;&#58;oGet&#58;DecPos\n      nDec   &#58;= Max&#40; 1, nPos - &#58;&#58;oGet&#58;DecPos - 1 &#41;\n      If nDirection &gt; 0\n         nValue += 1 / &#40; 10 ^ nDec &#41;\n      else\n         nValue -= 1 / &#40; 10 ^ nDec &#41;\n      Endif\n   else\n      nValue += nDirection\n   endif\n\n   if nDirection &gt; 0\n      if &#58;&#58;bMax != NIL &#46;and&#46; nValue &gt; Eval&#40; &#58;&#58;bMax &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   else\n      if &#58;&#58;bMin != NIL &#46;and&#46; nValue &lt; Eval&#40; &#58;&#58;bMin &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   endif\n\n   &#58;&#58;oGet&#58;KillFocus&#40;&#41;\n   &#58;&#58;oGet&#58;SetFocus&#40;&#41;\n   &#58;&#58;SetPos&#40; nPos &#41;\n\nRETURN nil[/code:325p4yx7]\n\nEMG','',0,'AIA=','325p4yx7',1,0,'',6,0,0),(7377,1137,3,6,0,'82.61.28.39',1140039209,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','I don\'t know why but the following fix seems to work:\n\n[code:3q3gir1z]METHOD ScrollNumber&#40; nDirection &#41; CLASS TGet\n\n   LOCAL nValue, nDec, nPos\n\n   #ifndef __XPP__\n      nValue &#58;= &#58;&#58;Value\n   #else\n      nValue &#58;= &#58;&#58;VarGet&#40;&#41;\n   #endif\n\n   nPos &#58;= &#58;&#58;nPos\n\n   if !Empty&#40; &#58;&#58;oGet&#58;DecPos &#41; &#46;and&#46; nPos &gt;= &#58;&#58;oGet&#58;DecPos\n      nDec   &#58;= Max&#40; 1, nPos - &#58;&#58;oGet&#58;DecPos - 1 &#41;\n      If nDirection &gt; 0\n         nValue += 1 / &#40; 10 ^ nDec &#41;\n      else\n         nValue -= 1 / &#40; 10 ^ nDec &#41;\n      Endif\n   else\n      nValue += nDirection\n   endif\n\n   if nDirection &gt; 0\n      if &#58;&#58;bMax != NIL &#46;and&#46; nValue &gt; Eval&#40; &#58;&#58;bMax &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   else\n      if &#58;&#58;bMin != NIL &#46;and&#46; nValue &lt; Eval&#40; &#58;&#58;bMin &#41;\n         MessageBeep&#40;&#41;\n      else\n         &#58;&#58;cText&#40; nValue &#41;\n      endif\n   endif\n\n   &#58;&#58;oGet&#58;KillFocus&#40;&#41; //EMG\n   &#58;&#58;oGet&#58;SetFocus&#40;&#41; //EMG\n   &#58;&#58;SetPos&#40; nPos &#41;\n\nRETURN nil[/code:3q3gir1z]\n\nEMG','',0,'AIA=','3q3gir1z',1,0,'',6,0,0),(7378,1137,3,6,0,'82.61.28.39',1140039268,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','Sorry... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','2otignff',1,0,'',6,0,0),(7379,1755,3,230,0,'205.188.116.69',1140039296,1,0,1,1,1,0,'','','Which Version Do you Need You can find Version 6.0 at\n\n<!-- w --><a class=\"postlink\" href=\"http://www.Fivewin.Info\">www.Fivewin.Info</a><!-- w -->\nFrom there Down Area that has been Compiled to work with\nxHarbour and the Fivewin Library.\n\nThere is also a Version 7.0 Version There too.  That is set \nto run with Harbour.  Will have to be recomplied to work \nwith xHarbour\n\nYou made have to recompile the Tsbrowse Library to work with\nyour Version of xHarbour!  I don\'t Know which version you are\nworking with.\n\nThank you\nJim Bohanan','',0,'AIA=','2aryggte',1,0,'',230,0,0),(7380,1760,7,232,0,'217.70.68.38',1140039425,1,0,1,1,1,0,'','Using FWPPC and MySQL','Hi,\n\nIs there any way to develop a software using FWPPC and xHarbour (ARM) to\nconnect MySQL Database?\n\nThanks,\nRmc','',0,'AIA=','20wo7iq0',1,0,'',232,0,0),(7381,1761,6,36,0,'200.113.56.235',1140039457,1,0,1,1,1,0,'','pellesC','Estimados\n\nTengo el siguiente problema: \n  Cuando agrego un bitmap al recurso .res y compilo me sale el siguiente error\n\n...mi archivo bc\n...\nc:\\borland\\bcc55\\lib\\cw32.lib +\nc:\\borland\\bcc55\\lib\\import32.lib,, +\ndbf\\system\\wcta.res\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Access violation.  Link terminated.\nError RMAKE/R2001  Exit 2: \'c:\\borland\\bcc55\\bin\\ilink32 /aa  /Gn /Tpe /s @b32.b\n\nY se lo saco el bitmap funciona bien, tiene alguna restriccion\n\nalguien le a salido este error y lo ha solucionado\n\nSaludos\nPatricio','',0,'AIA=','8j7qplks',1,0,'',36,0,0),(7382,1103,1,170,0,'83.177.212.143',1140039739,1,0,1,1,1,1,'','','I have found a reference to StopUntil() in RPREVIEW.PRG\nAntonio can say you where this function is located.\n\nThe rest is composed of functions made by me. You must\ncreate your own equivalent functions depend how you program.\nTo help you, look at this :\n\nGGMSTATE(\"LEFT\") return the current state of the left button of the mouse\nGGMSTATE(\"RIGHT\") return the current state of the right button of the mouse\n\nPUBVAR() contain a static array where i put all my \"public\" variables\n(so it\'s not public).\n\nWINATTEND() must be used in your wait state procedure,\nnot in the \"ON INIT\" of a Window. I you have a problem with\nCPU time, this is because your application start in the \"ON INIT\"\nof the main Window, no ? Your program never stop, always\nit do something, like waiting keybord and state of the mouse.\nWith WinAttend(), you can stop where you want to reduce\nthe activity of your program. Place it in all the wait states\nis the first step.\n\nIf yours wait states was controled directly by a window,\na dialog, a get, or i don\'t know what other, you have\nnot this problem. But to do that, you must rewrite a very\nbig part of your code. This is not my way  today, i want\nkeep the same code for my DOS exe and for my Windows exe.\n\nKeyNext() return the same values than Clipper DOS NextKey().\nI have created this function because i never can use TGET class,\nan few years ago i have rewritted Clipper GET, TBROWSE,\nMEMOEDIT, LABELS and few others. I control all the wait states\nin Clipper, and now in Fivewin with just a call of WinAttend()\nin my unique wait state procedure.\n\nRegards,','',0,'AIA=','35kd0ck0',1,0,'',170,0,0),(7383,1761,6,177,0,'62.99.102.160',1140039753,1,0,1,1,1,0,'','','Hola Patricio,\n\na mí también me ha ocurrido. Añadiendo bitmaps a un fichero de recursos. Tuve que quitar unos bitmaps para que me dejase de dar ese error.\n\nSaludos','',0,'AIA=','1mytiial',1,0,'',177,0,0),(7384,1737,3,335,0,'68.193.88.53',1140041210,1,0,1,1,1,0,'','','(FYI, here\'s answer received separately from Antonio...)\n\nRoger,\n\nYes, it should work ok. As far as I know, on Win32 there are no limits for\nthe brush bitmap size.\n\nregards,\n\nAntonio','',0,'AIA=','2186lh02',1,0,'',335,0,0),(7385,1759,2,404,0,'213.231.101.107',1140044226,1,0,1,1,1,0,'','Cursos de SQL','No se, si lo que buscas, es un manual de SQL, te doy las siguientes direcciones, que son interesantes:\n\n<!-- m --><a class=\"postlink\" href=\"http://mysql.conclase.net/curso/index.php?cap=000\">http://mysql.conclase.net/curso/index.php?cap=000</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.mysql-hispano.org/index.php\">http://www.mysql-hispano.org/index.php</a><!-- m -->\n\nSaludos, José Mª','',0,'AIA=','2e3yqdks',1,0,'',404,0,0),(7386,1761,6,389,0,'201.144.202.88',1140045433,1,0,1,1,1,0,'','','Tienes que compilar con el compilador de recursos de PellesC hazlo de la siguiente manera\nC:\\Archiv~1\\PellesC\\Bin\\porc.exe /IC:\\Archiv~1\\PellesC\\Include /IC:\\Archiv~1\\PellesC\\Include\\Win /foarchivorecursos.res archivosrecursos.rc\n\nSaludos','',0,'AIA=','ro5o1oor',1,0,'',389,0,0),(7387,1762,2,304,0,'200.67.162.185',1140047141,1,0,1,1,1,0,'','SetFocus en un oLbx','Hola a todos:\nComo puedo saber si un Objeto Olbx tiene o no en un momento dado el foco\nes decir:\ntengo un ListBox con ciertos articulos cuando el usuario quiere eliminar uno de la lista debe de accionar el boton \"borrar\" necesito verificar si realmente selecciono un registro del listbox y esto se observa cuando la linea del registro esta \"azul\" (cuando pierde el foco el listbox se pone la linea gris) , el caso es que cuando oprime el boton de borrado como debo hacer para saber si el listbox esta seleccionado o tiene el foco ???\n\nespero haberme explicado bien, de antemano gracias por su ayuda\nsalu2\nveracruz, mexico','',0,'AIA=','11u8v0pd',1,0,'',304,0,0),(7388,1763,2,404,0,'213.231.101.107',1140049400,1,0,1,1,1,0,'','No se actualizan, los SAY.','Necesito ayuda, os reproduzco, un poco del codigo que no me funciona:\n\n[code:2k87h83f]\nFUNCTION CrearIndic&#40; cContab &#41;\n\n   *- Vectores y Matrices&#58; Locales&#46;\n\n      LOCAL axFicheros &#58;= &#123;&#125;\n      LOCAL anVal        &#58;= ARRAY&#40; 4 &#41;\n\n      LOCAL oDlg1\n      LOCAL oDlg2\n\n   *- Vectores Objeto&#58; Locales&#46;\n      \n      LOCAL aoSay        &#58;= ARRAY&#40; 4 &#41;\n      LOCAL aoMeterInd &#58;= ARRAY&#40; 4 &#41;\n\n   *- Borramos los Indices antiguos&#46;\n\n      axFicheros &#58;= DIRECTORY&#40; &quot;*&#46;NTX&quot; &#41;\n\n      IF LEN&#40; axFicheros &#41; &gt; 0\n         AEVAL&#40; axFicheros, &#123; | fichero | FERASE&#40; fichero&#91; F_NAME &#93; &#41; &#125; &#41;\n\n         axFicheros &#58;= &#123;&#125;\n      ENDIF\n\n   DEFINE DIALOG oDlg1 RESOURCE &quot;Indices_Creacion&quot;\n      REDEFINE SAY PROMPT OemToAnsi&#40; &quot;CREACIÓN DE LOS INDICES DEL AÑO&#58; &quot;  + cContab &#41;      ID 101 OF oDlg1\n\n   ACTIVATE DIALOG oDlg1 CENTERED NOWAIT\n\n      *- Creación de los Indices de la Base de Datos&#58; CLIENTES&#46;DBF\n\n         AEVAL&#40; anVal, &#123; | elemento, n | anVal&#91; n &#93; &#58;= 0 &#125; &#41;\n\n         DEFINE DIALOG oDlg2 RESOURCE &quot;Indices_Base_de_Datos&quot;\n            REDEFINE SAY    aoSay&#91; 1 &#93;                                         ;\n                     PROMPT &quot;BASE DE DATOS&#58; CLIENTES&#46;DBF&quot;  ID 101 OF      oDlg2 UPDATE\n            REDEFINE SAY    aoSay&#91; 2 &#93;                                         ;\n                     PROMPT &quot;POR&#58; EL CODIGO DEL CLIENTE&quot;   ID 102 OF oDlg2 UPDATE\n            REDEFINE SAY    aoSay&#91; 3 &#93;                                         ;\n                     PROMPT &quot;POR&#58; EL NOMBRE DEL CLIENTE&quot;   ID 104 OF oDlg2 UPDATE\n            REDEFINE SAY    aoSay&#91; 4 &#93;                                         ;\n                     PROMPT &quot;POR&#58; EL TELEFONO DEL CLIENTE&quot; ID 106 OF oDlg2 UPDATE\n\n            REDEFINE METER aoMeterInd&#91; 1 &#93; VAR anVal&#91; 1 &#93; ID 103 OF oDlg2\n            REDEFINE METER aoMeterInd&#91; 2 &#93; VAR anVal&#91; 2 &#93; ID 105 OF oDlg2\n            REDEFINE METER aoMeterInd&#91; 3 &#93; VAR anVal&#91; 3 &#93; ID 107 OF oDlg2\n            REDEFINE METER aoMeterInd&#91; 4 &#93; VAR anVal&#91; 4 &#93; ID 109 OF oDlg2\n         ACTIVATE DIALOG oDlg2 CENTERED NOWAIT\n&#46;\n&#46;   Me genera los indices, y realizo una pausa, para ver que muestra el DIALOG&#46; Hasta aquí todo correcto&#46;\n&#46;\n           MsgInfo&#40; &quot;Pausa&#46;&#46;&#46;&quot; &#41;\n\n*- Tras la Pausa, pasamos a otra DBF&#46; Por lo que cambio, los SAY del DIALOG&#46; Pero no los cambia, se queda como, cuando se activo el DIALOG&#46; Le pogo la pausa, para verlo, pero nada&#46;\n\n            AEVAL&#40; anVal, &#123; | elemento, n | anVal&#91; n &#93; &#58;= 0 &#125; &#41;\n\n            aoSay&#91; 1 &#93;&#58;SetText&#40; OemToAnsi&#40; &quot;BASE DE DATOS&#58; PRESUPUE&#46;DBF&quot; &#41; &#41;\n            aoSay&#91; 1 &#93;&#58;Refresh&#40;&#41;\n            aoSay&#91; 2 &#93;&#58;SetText&#40; OemToAnsi&#40; &quot;POR EL CODIGO DEL CLIENTE&quot; &#41; &#41;\n            aoSay&#91; 2 &#93;&#58;Refresh&#40;&#41;\n            aoSay&#91; 3 &#93;&#58;SetText&#40; OemToAnsi&#40; &quot;POR&#58; EL NÚMERO DE PRESUPUESTO&quot; &#41; &#41;\n            aoSay&#91; 3 &#93;&#58;Refresh&#40;&#41;\n            aoSay&#91; 4 &#93;&#58;SetText&#40; OemToAnsi&#40; &quot;POR&#58; EL NÚMERO DE PRESUPUESTO&quot;   + ;\n                                           &quot; SIN REPETIR&quot;                 &#41; &#41;\n            aoSay&#91; 4 &#93;&#58;Refresh&#40;&#41;\n\n            oDlg2&#58;UpDate&#40;&#41;\n            SysReFresh&#40;&#41;\n\n*- Y así con una tercera DBF&#46; Tampoco cambía\n\n[/code:2k87h83f]\n\nEl DIALOG, tiene definidos los SAY, de manera que[u:2k87h83f] no sean de solo escritura[/u:2k87h83f], pues pensando que influía, desactive en el WORKSOP, [u:2k87h83f]READ ONLY[/u:2k87h83f]. Pero nada, [u:2k87h83f]activado, o no[/u:2k87h83f]. No me funciona.\n\n¿Que debo hacer?\n\nSaludos, José Mª','',0,'AYA=','2k87h83f',1,1140542132,'',404,3,0),(7389,1764,3,267,0,'201.9.204.226',1140054405,1,0,1,1,1,0,'','ZIPS Functions','Hi,\n\nExists some lib for use with archives zip, the same used functions in fivewin to clipper?\n\nsds,\nVilian F. Arraes\n<!-- e --><a href=\"mailto:vilian@vfatec.com.br\">vilian@vfatec.com.br</a><!-- e -->','',0,'AYA=','21qy6064',1,0,'',267,0,0),(7390,1758,6,138,0,'201.133.73.175',1140058918,1,0,1,1,1,1,'','','SE recomienda ampliamente no utilizar recursos de borland precisamente por el error que estas mencionado, ademas que no son compatibles con temas XP.\n\nSi deseas seguir usadolos prueba haciendo:\n\nLoadLibrary(\"BWCC32.dLL\")\n\nal principio de tu programa a ver si eso va.\n\nComo recomendacion, elmina todos los controles borland','',0,'AYA=','7orv18hq',1,0,'',138,0,0),(7391,1765,6,341,0,'200.127.97.186',1140059360,1,0,1,1,1,0,'','Ayuda conversion mm a pixles','Eatimado Colegas\n\n\nNecesito convertir 297.4 mm  x  210,0   mm  a pixeles y mostrar un dialogo\ncon las mismas dimensiones pero en pixeles alguien me podria orientar\n\ndesde ya muchisimas gracias\n\nDante\n<!-- e --><a href=\"mailto:Devwin2004@yahoo.com.ar\">Devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AYA=','1ayohtvj',1,0,'',341,0,0),(7392,1751,6,15,0,'203.73.91.46',1140059708,1,0,1,1,1,0,'','','Hello Vikthor,\n\nYour solution work fine with Dialog.\nBut I test if your Dialog use TSRadio class,\nyou will get error message.\n\n&gt;&gt;Error description: Error BASE/1083  Argument error: *\n&gt;&gt;Called from TSRADIO:DRAWLINE(427)\n&gt;&gt;Called from TSRADIO:PAINT(700)\n&gt;&gt;Called from (b)TSRADIO(61)\n&gt;&gt;Called from TSRADIO:DISPLAY(0)\n&gt;&gt;Called from TSRADIO:HANDLEEVENT(1242)\n\nRegards,\n\nRichard','',0,'AYA=','3as7rike',1,0,'',15,0,0),(7393,1745,6,215,0,'201.144.62.16',1140065063,1,0,1,1,1,0,'','Re: Sobre edición de fotografía','Por si te sirve, yo uso este para poner las marca de agua\n\n<!-- m --><a class=\"postlink\" href=\"http://www.picture-shark.com/\">http://www.picture-shark.com/</a><!-- m -->','',0,'AYA=','3a4ljgyc',1,0,'',215,0,0),(7394,1760,7,2,0,'87.218.146.52',1140070663,1,0,1,1,1,1,'','','Yes, once you connect the Pocket PC to the server (Wifi, or ActiveSync) then you may use a MySQL library, compiled with Harbour (ARM) and VCE. What MySQL library you use on a PC to connect to MySQL ? Eagle ?','',0,'AYA=','q6z974nc',1,0,'',2,0,0),(7395,1743,3,32,0,'196.36.8.34',1140071995,1,0,1,1,1,0,'','New class help','Hi,\n\nI created a new class based on tpanel, in which the paint event becomes:\n\n[code:36w6i77a]METHOD Paint&#40;&#41; CLASS QButton\n\n  DrawQBBackground&#40;&#58;&#58;hWnd, &#58;&#58;hDc&#41;\n\nRETURN NIL\n[/code:36w6i77a]\n\nDrawQBBackground comes from:\n\n[code:36w6i77a]\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n#ifdef __FLAT__\n   #include &lt;ShellApi&#46;h&gt;\n#endif\n\n#ifdef __HARBOUR__\n   #include &lt;hbapiitm&#46;h&gt;\n   #include &lt;hbdate&#46;h&gt;\n   #include &lt;hbset&#46;h&gt;\n#endif\n#include &quot;uxtheme&#46;h&quot;\n\nHB_FUNC&#40; DRAWQBBACKGROUND &#41;\n&#123;\n   HTHEME hTheme;\n   HDC hDc;\n   HWND hWnd;\n   RECT rcWnd;\n   int iStateId = 1;\n\n   hWnd    = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n   hDc = &#40; HDC &#41; _parl&#40;2&#41;;\n\n   GetClientRect&#40; hWnd, &amp;rcWnd &#41;;\n\n   hTheme = OpenThemeData&#40;hWnd, L&quot;BUTTON&quot;&#41;;\n\n   if &#40; hTheme&#41;\n   &#123;\n      DrawThemeBackground&#40;hTheme,\n                    hDc,\n                    0,\n                    0,\n                    &amp;rcWnd,\n                    NULL&#41;;\n    _retni&#40;1&#41;;\n   &#125;\n   else\n   &#123;\n    _retni&#40;0&#41;;\n   &#125;\n\n&#125;\n[/code:36w6i77a]\n\nUnfortunately, I don\'t see anything  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nIs there a C wizard which can help me out here','',0,'AIA=','36w6i77a',1,0,'',32,0,0),(7396,1762,2,74,0,'190.48.231.88',1140073708,1,0,1,1,1,1,'','','servicomver:\n\n                    La variable para saber si un control tiene el foco es oControl:lFocused pero no te va a servir de mucho preguntar por ejemplo if(oBrw:lFocused) en el action de un boton porque en ese momento el browse ya no tiene el foco, lo tiene el boton.\n\n                    Por lo general es suficiente con hacer:\n\n[code:g0zawbnr]\n\n 	oBcli&#58;bKeydown &#58;= &#123;|nK| if&#40; nK==VK_INSERT,&#40;Fedit&#40;&#46;t&#46;,vFecha&#41;,oBCli&#58;Setfocus&#40;&#41;,oBCli&#58;Refresh&#40;&#41;,oBCli&#58;Gotop&#40;&#41;&#41;,;\n                        if&#40;nK==VK_DELETE,&#40;E_Detalle&#40;oBcli&#41;, oBcli&#58;Refresh&#40;&#41;&#41;,;\n                        if&#40;nK==VK_F12,IF&#40;MSGYESNO&#40;&quot;Confirma los datos de la Factura Fiscal ?&quot;,&quot;Confirme&quot;&#41;,if&#40;Imprime_Comprobante&#40;cMovil,cNomMovil,cAtiende,cNomAtiende,OT&#58;cCodCondVta&#41;,;\n													Limpia&#40;@cAtiende,@cNomAtiende,@cMovil,@cNomMovil,oBcli,oDlg,oNrocomprob&#41;,&#41;,&#41;,&#41;&#41;&#41; &#125;\n\n\n  REDEFINE SBUTTON oEl ID 602 ;\n  		         RESOURCE &quot;B_BOR&quot;,&quot;B_BOR&quot;;//, &quot;B_REG2&quot;,&quot;B_REG2&quot;,&quot;B_REG2&quot; ;\n  		         OF oDlg ;\n  		  	   	 BORDER ;\n 			 				 PROMPT &quot;&amp;Borrar &#40;Delete&#41;&quot; ;\n							 COLORS &#123; |oBtn| If&#40; oBtn&#58;lMouseOver&#46;or&#46;oBtn&#58;lFocused,RGB&#40;215,0,0&#41;,CLR_BLACK &#41; &#125;,;\n							 RGB&#40;196, 190, 185&#41;;\n  		         TOOLTIP OEMTOANSI&#40;&quot;Borra el registro&quot;&#41;;\n  		         MESSAGE OEMTOANSI&#40;&quot;Borrar Registro&quot;&#41;;\n							 ACTION &#40;E_Detalle&#40;oBcli&#41;, oBcli&#58;Refresh&#40;&#41;&#41;\n\nStatic Function E_Detalle&#40;&#41;\n\nIf MsgNoYes&#40;oemtoansi&#40;&quot;Elimina el Art¡culo &quot;&#41;+ CRLF +LLOSTKTR-&gt;MDES+&quot; ?&quot;,&quot;Atención&quot;&#41;\n		aTot&#91;1&#93;-=1\n		aTot&#91;2&#93;-=LLOSTKTR-&gt;MCAN\n		aTot&#91;3&#93;-=LLOSTKTR-&gt;MCAN*LLOSTKTR-&gt;MPREV\n		LLOSTKTR-&gt;&#40;DBDELETE&#40;&#41;&#41;\n    LLOSTKTR-&gt;&#40;dbgotop&#40;&#41;&#41;\nEndif\n\nreturn nil\n\n[/code:g0zawbnr]\n\nO sea pedir confirmacion porque en el browse siempre estas parado en algun registro de la dbf, por mas que cambie el color de la barra y listo.\n\nSaludos,','',0,'AIA=','g0zawbnr',1,0,'',74,0,0),(7397,1766,7,413,0,'194.106.16.43',1140079067,1,0,1,1,1,0,'','oSay:SetText no muestra todo el contenido.','En el ejemplo tutor12 los objetos SAY salen con muy pocos carracteres, en el codigo siguiente en la linea say de mensajes solo me sale \"Accid\". Es normal (por ser limitacion de wince) o se modifica en algun sitio ?\n\n[code:2vzbz9vq]\n@ 10, 90 BTNBMP FILE CurDir&#40;&#41; + &quot;\\cars&#46;bmp&quot; ;\n      SIZE 60, 60 ;\n      ACTION oSay&#58;SetText&#40; &quot;Accidentes de Circulación&quot; &#41;\n[/code:2vzbz9vq]\n\nSaludos.','',0,'AIA=','2vzbz9vq',1,0,'',413,0,0),(7398,1733,7,449,0,'212.64.224.241',1140079320,1,0,1,1,1,0,'','','Hola Jose Luis,\n\nLa verdad es q ayer me encontre con un caso en el q necesito poner mas controles de los q la pantalla me puede soportar. No habia llegado aun a este caso, por lo q el tema del scroll no se me habia pasado. De todas maneras, creo q el mejor sistema sera montar la clase TPanel, para poder \'saltar\' dentro del Dialog de una manera mas rapida y comoda para el usuario. Mañana estoy fuera, pero el lunes intentare montar un ejemplo.\n\nSaludos.\nC.','',0,'AIA=','2pnqt9is',1,0,'',449,0,0),(7399,1743,3,6,0,'87.3.228.23',1140079335,1,0,1,1,1,1,'','Re: New class help','[quote=&quot;AlexSchaft&quot;:1wmhne9b][code:1wmhne9b]hDc = &#40; HDC &#41; _parl&#40;2&#41;;[/code:1wmhne9b][/quote:1wmhne9b]\n\nTry\n\n[code:1wmhne9b]hDc = &#40; HDC &#41; _parnl&#40;2&#41;;[/code:1wmhne9b]\n\nPerils of the cast. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gIA=','1wmhne9b',1,0,'',6,0,0),(7400,1754,7,449,0,'212.64.224.241',1140079429,1,0,1,1,1,0,'','','Hola Jose Luis,\n\nMe parecer haber probado en el comando @, SAY... la clausula COLOR CLR_BLACK, CLR_??? y funcionaba correctamente\n\n\nSaludos.\nC.','',0,'gIA=','p4ujjcyv',1,0,'',449,0,0),(7401,1764,3,6,0,'87.3.228.23',1140079487,1,0,1,1,1,1,'','Re: ZIPS Functions','Yes, have a look at hbzip.lib contrib of [x]Harbour.\n\nEMG','',0,'','1xzx670t',1,0,'',6,0,0),(7402,1767,3,2,0,'87.218.146.52',1140079633,1,0,1,1,1,1,'','ActiveX with events - demo!','You may download samples\\webexp.prg with events support from here:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/83ddff56/webexp.zip.html\">http://hyperupload.com/download/83ddff5 ... p.zip.html</a><!-- m -->\n\nSource code and EXE included.','',0,'','d9juf5ln',1,0,'',2,0,0),(7403,1768,6,2,0,'87.218.146.52',1140079713,1,0,1,1,1,1,'','ActiveX con eventos - demo!','Podeis descargar samples\\webexp.prg con soporte de eventos desde:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/83ddff56/webexp.zip.html\">http://hyperupload.com/download/83ddff5 ... p.zip.html</a><!-- m --> \n\nCódigo fuente y EXE incluidos.','',0,'','uh9mhi7b',1,0,'',2,0,0),(7404,1766,7,449,0,'212.64.224.241',1140079785,1,0,1,1,1,0,'','','Hola,\n\nDeclara un tamaño del SAY\n\n   @ 12, 17 SAY oSay PROMPT \"Accidentes de Trafico\" SIZE 200, 20\n\nSiau.\nC.','',0,'','3q23m4i7',1,0,'',449,0,0),(7405,1747,7,449,0,'212.64.224.241',1140079860,1,0,1,1,1,0,'','','Andres,\n\nLo q me faltaba. Va muy bien\n\ngracias\n\nSaludos.\nC.','',0,'','dsgs3n8o',1,0,'',449,0,0),(7406,1768,6,2,0,'87.218.146.52',1140079989,1,0,1,1,1,1,'','','Otro ejemplo de samples\\media.prg usando eventos:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/cc868225/media.zip.html\">http://hyperupload.com/download/cc868225/media.zip.html</a><!-- m -->','',0,'','3rq9w7q8',1,0,'',2,0,0),(7407,1767,3,2,0,'87.218.146.52',1140080034,1,0,1,1,1,1,'','','Another sample from samples\\media.prg using events:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/cc868225/media.zip.html\">http://hyperupload.com/download/cc868225/media.zip.html</a><!-- m -->','',0,'','2zcjafwv',1,0,'',2,0,0),(7408,1733,7,2,0,'87.218.146.52',1140080259,1,0,1,1,1,1,'','','Está previsto implementar la creación de cajas de diálogo desde PRG y tambien los folders. \nPoco a poco, que acabamos de terminar los eventos en los ActiveX y hemos sudado la camiseta <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','1iuxua24',1,1140080423,'',2,1,0),(7409,1769,7,413,0,'194.106.16.43',1140080358,1,0,1,1,1,0,'','Conectar con ActiveSync...','Tengo una hp6515 y la conecto al ordenador via la cuna con ActiveSync, hata aqui todo bien, conecta sin problemas, paso archivos y la tengo permanentemente conectada con el plugin de totalcomander. Pero he querido hacer practicas con los sockets y le defino en configuracion controladores de red, el adaptador controlador Ethernet compatible con o en minipuerto NDISWAN AsyncMac, una ip para identificar el aparato via red pero cuando hago ping desde el ordenador me sale que no lo detecta. \nPreguntas: \n1.- Puedo definir una IP en modo ActiveSync osea mediante la cuna, para que sea visible en la red o al ser un PDA gprs solo me queda esta opcion.\n2.-En caso de que con ActiveSync pueda definir una IP, que puerta de enlace le debo poner, la del ordenador o la del router.\n2.-Puedo disponer de una ip via Bluetooth.\n\nPerdon pero asi como con los ordenadores lo tengo mas o menos claro en los PDA estoy un poco perdido...\n\nSaludos.-','',0,'','2x6omken',1,0,'',413,0,0),(7410,1733,7,2,0,'87.218.146.52',1140080397,1,0,1,1,1,1,'','','Carles,\n\n&gt;\nAyer finalice la edicion en linea en un browse ! utilizando la misma tecnica y te aseguro que va de maravillas.  \n&gt;\n\nSi eres tan amable de mostrarnos un ejemplo, seguro que muchos te lo agradecerán <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','wsn44lu8',1,0,'',2,0,0),(7411,1770,7,413,0,'194.106.16.43',1140081240,1,0,1,1,1,0,'','Warnings...','Antonio a que se deben los Warnings que me salen al compilar el resultado es correcto pero no se como evitar los warnings. Utilizo el builtce.bat que tiene el FWPPC por defecto....\n\n[code:2actf5ye]\nCompiling&#46;&#46;&#46;\nHarbour Compiler Alpha build 45&#46;0 &#40;Flex&#41;\nCopyright 1999-2005, http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'policia&#46;prg\' and generating preprocessed output to \'policia&#46;ppo\'&#46;&#46;&#46;\nLines 122, Functions/Procedures 3\nGenerating C source output to \'policia&#46;c\'&#46;&#46;&#46; Done&#46;\nMicrosoft &#40;R&#41; C/C++ Optimizing Compiler Version 12&#46;20&#46;9615 for ARM\nCopyright &#40;C&#41; Microsoft Corp 1984-2002&#46; All rights reserved&#46;\n\npolicia&#46;c\n   Creating library policia&#46;lib and object policia&#46;exp\nvm&#46;lib&#40;hvm&#46;obj&#41; &#58; warning LNK1166&#58; cannot adjust code at offset=0x00001000, rva=\n0x00032480\nrdd&#46;lib&#40;dbf1&#46;obj&#41; &#58; warning LNK1166&#58; cannot adjust code at offset=0x00001000, rv\na=0x000884B0\ndbfntx&#46;lib&#40;dbfntx1&#46;obj&#41; &#58; warning LNK1166&#58; cannot adjust code at offset=0x000010\n00, rva=0x00095EFC\ndbffpt&#46;lib&#40;dbffpt1&#46;obj&#41; &#58; warning LNK1166&#58; cannot adjust code at offset=0x000010\n00, rva=0x000AB9D8\n* Application successfully built\n[/code:2actf5ye]','',0,'AIA=','2actf5ye',1,0,'',413,0,0),(7412,1745,6,83,0,'80.35.196.60',1140081379,1,0,1,1,1,0,'','Re: Sobre edición de fotografía','Gracias por tu respuesta, pero lo que necesito es poder incluir un texto a una fotografía desde una aplicación FW, para integrarla dentro de otro sistema mas amplio que ya está funcionando.','',0,'AIA=','tzo01mrq',1,0,'',83,0,0),(7413,1766,7,413,0,'194.106.16.43',1140081658,1,0,1,1,1,0,'','','Gracies Carles...\n\n\nEn que estaria yo pensando.....\n\nSaludos.','',0,'AIA=','23j6f0ap',1,0,'',413,0,0),(7414,1771,3,6,0,'87.3.228.23',1140083106,1,0,1,1,1,1,'','Little bug in TComboBox','ESC key doesn\'t close the DIALOG if the focus is on a CBS_DROPDOWN combobox:\n\n[code:15efpaqc]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 COMBOBOX cVar;\n           ITEMS &#123; &quot;First&quot;, &quot;Second&quot;, &quot;Third&quot; &#125;;\n           STYLE CBS_DROPDOWN\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:15efpaqc]\n\nEMG','',0,'AIA=','15efpaqc',1,0,'',6,0,0),(7415,1772,22,453,0,'80.36.195.101',1140085292,1,0,1,1,1,0,'','Dónde descargo el build de febrero 2006?','Hola:\n\n¿Cómo y dónde puedo descargar el build de febrero de 2006?\n\nPerdonen mi desconocimiento.\n\nSaludos','',0,'AIA=','1dw9lodr',1,0,'',453,0,0),(7416,1394,3,447,0,'83.240.190.122',1140086702,1,0,1,1,1,0,'','','Bom dia\n\nAssim é mais facil de ver\n\n\nx:\\xHarbour\nx:\\xHarbour\\bin\nx:\\xHarbour\\doc\nx:\\xHarbour\\FWH260 (Copia da instalação para este directorio)\nx:\\xHarbour\\FWH260\\AVIS\nx:\\xHarbour\\FWH260\\BITMAPS\nx:\\xHarbour\\FWH260\\DLL\nx:\\xHarbour\\FWH260\\ICONS\nx:\\xHarbour\\FWH260\\INCLUDE\nx:\\xHarbour\\FWH260\\LIB\nx:\\xHarbour\\FWH260\\manual\nx:\\xHarbour\\FWH260\\SAMPLES\nx:\\xHarbour\\FWH260\\SOURCE\nx:\\xHarbour\\FWH260\\tools\nx:\\xHarbour\\include\nx:\\xHarbour\\lib\nx:\\xHarbour\\tests\n\nx:\\BCC55\nx:\\BCC55\\Bin\nx:\\BCC55\\Examples\nx:\\BCC55\\Help\nx:\\BCC55\\Include\nx:\\BCC55\\Include\\Gl\nx:\\BCC55\\Include\\Rw\nx:\\BCC55\\Include\\Sys\nx:\\BCC55\\Lib\nx:\\BCC55\\Lib\\PSDK\n\nObrigado\nJose Carlos','',0,'AIA=','v1pzno18',1,0,'',447,0,0),(7417,1733,7,123,0,'81.39.239.66',1140087169,1,0,1,1,1,0,'','','Antonio,\n\n[quote:cm3wzf3i]Está previsto implementar la creación de cajas de diálogo desde PRG y tambien los folders.\nPoco a poco, que acabamos de terminar los eventos en los ActiveX y hemos sudado la camiseta[/quote:cm3wzf3i]\n\nTe esperamos <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos,\nJosé Luis Capel','',0,'gA==','cm3wzf3i',1,0,'',123,0,0),(7418,1773,3,6,0,'87.3.228.23',1140089444,1,0,1,1,1,1,'','TComboBox:bCloseUp doesn\'t work','This is the sample. I hear no beep when the dropdownlist is closed. Am I missing something?\n\n[code:x810rfmq]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oCbx, cVar &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 COMBOBOX oCbx VAR cVar;\n           ITEMS &#123; &quot;First&quot;, &quot;Second&quot;, &quot;Third&quot; &#125;;\n           STYLE CBS_DROPDOWN\n\n    oCbx&#58;bCloseUp = &#123; || Tone&#40; 440, 1 &#41; &#125;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:x810rfmq]\n\nEMG','',0,'AIA=','x810rfmq',1,0,'',6,0,0),(7419,1738,7,123,0,'81.39.239.66',1140089687,1,0,1,1,1,0,'','','Antonio,\n\n[quote:1wkswmgn]SipShowIM\nThis function shows or hides the currently active input panel window. An application must call this function to display the input panel and its current input method.\n\nBOOL SipShowIM( \nDWORD dwFlag);\nParameters \n\ndwFlag \n[in] Specifies whether to show or hide the current input panel window. It is one of the following flags: \nValue Description \nSIPF_ON Shows the input panel window. \nSIPF_OFF Hides the input panel window. \n\nReturn Values\n\nTRUE indicates success. When this function fails, it returns an HRESULT error code.\n\nRemarks\n\nWhen this function is called, the input panel notifies the input method (IM) of the appropriate action to take, which is whether to adopt a hidden or visible state.\n\nOn devices that have a limited display area, an application can call SipShowIM to hide the input panel and increase the display area for output.\n\nRequirements\n\nRuns On Versions Defined in Include Link to \nWindows CE OS 2.10 and later Sipapi.h   Coresip.lib \n[/quote:1wkswmgn]\n\n¿ SipApi.h y CoreSip.Lib... están en Vce4 ?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1wkswmgn',1,0,'',123,0,0),(7420,1194,23,130,0,'141.51.32.24',1140091292,1,0,1,1,1,0,'','','Hi Norbert,\n\nich hab jetzt mal ein paar Tests gemacht, aber die version ist eigentlich unbrauchbar. Die Folder funktionieren zwar jetzt, aber der refresh ist eine einzige Katastrophe. Sobald das abhängige Browse keinen Focus mehr hat, wird nichts angezeigt.\n\nbeispiel: \n[code:ksj2k6ra] ON CHANGE Software-&gt;ordScope&#40;&#46;&#46;&#46;&#41;, oChildBrw&#58;Setfocus&#40;&#41;, oChildBrw&#58;Refresh&#40;&#41;, oBrw&#58;Setfocus&#40;&#41;[/code:ksj2k6ra]\n\nzeigt nichts im abhängigen Browse an, läßt man oBrw:Setfocus() weg, dann gehts. Dann kann man aber mit den Cursortasten nicht mehr durch das eigentlich Browse laufen, da das den Focus ja verloren hat.\n\nIch hab auch momentan keine Zeit, intensiv nach den Fehlern zu suchen, also hab ich jetzt erstmal wieder die Version 6 genommen, die funktioniert ganz ordentlich.\n\nVielleicht sollte ich auch auf xBrowse umsteigen, mal sehen. Wie sehen denn deine Erfahrungen damit aus ?\n\nGruß\nStefan','',0,'AIA=','ksj2k6ra',1,0,'',130,0,0),(7421,1774,3,6,0,'87.3.228.23',1140094363,1,0,1,1,1,1,'','TListBox:Select() bug','When the listbox is multiselection Select() method doesn\'t work. This is the sample. The first item is not selected at start:\n\n[code:v3uf096h]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oLbx\n\n    LOCAL cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 LISTBOX oLbx VAR cVar ITEMS &#123; &quot;Bert&quot;, &quot;Carl&quot;, &quot;William&quot; &#125;\n\n    oLbx&#58;nStyle += LBS_MULTIPLESEL\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oLbx&#58;Select&#40; 1 &#41;;\n             CENTER\n\n    RETURN NIL[/code:v3uf096h]\n\nA possible fix is to change the Select() method:\n\n[code:v3uf096h]METHOD Select&#40; nItem &#41; INLINE If&#40; ! &#58;&#58;IsMultipleSel&#40;&#41;, &#58;&#58;SendMsg&#40; \nLB_SETCURSEL, nItem - 1, 0 &#41;, &#58;&#58;SetSel&#40; nItem &#41; &#41;,;\n                                 &#58;&#58;Change&#40;&#41;[/code:v3uf096h]\n\nEMG','',0,'AIA=','v3uf096h',1,0,'',6,0,0),(7422,1719,6,431,0,'200.8.16.14',1140095036,1,0,1,1,1,1,'','Wbrowse de Hernan con FWH 2.7 Febrero.','Antonio ,\n\n    Hice el cambio que me indicastes y me genera exactamente el mismo error.\n\nMario Gonzalez.','',0,'AIA=','akfhbkc2',1,0,'',431,0,0),(7423,1775,3,6,0,'87.3.228.23',1140095450,1,0,1,1,1,1,'','TListBox:IsMultipleSel() refinement','The following sample shows .F. when the button is clicked. But an extended selection listbox is a multi-selection listbox as well.\n\n[code:3fqv13w2]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define LBS_EXTENDEDSEL     2048\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oLbx\n\n    LOCAL cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 LISTBOX oLbx VAR cVar ITEMS &#123; &quot;Bert&quot;, &quot;Carl&quot;, &quot;William&quot; &#125;\n\n    oLbx&#58;nStyle += LBS_EXTENDEDSEL\n\n    @ 3, 1 BUTTON &quot;&amp;Test&quot; ACTION MSGINFO&#40; oLbx&#58;IsMultipleSel&#40;&#41; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:3fqv13w2]\n\nThis is a possible fix:\n\n[code:3fqv13w2]METHOD IsMultipleSel&#40;&#41; INLINE lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;,;\n                                       nOr&#40; LBS_MULTIPLESEL, LBS_EXTENDEDSEL &#41; &#41;[/code:3fqv13w2]\n\nEMG','',0,'AIA=','3fqv13w2',1,0,'',6,0,0),(7424,1776,6,104,0,'201.58.9.169',1140095837,1,0,1,1,1,0,'','Conexão com MsDataGrid/MsFlexGrid','Olá Antonio,\n\nÉ possível usar o MsDataGrid/MsFlexGrid com o fwh ?\n\nObrigado,\n\nRossine.','',0,'AIA=','ulqpzfok',1,0,'',104,0,0),(7425,1777,3,89,0,'213.21.136.60',1140096424,1,0,1,1,1,0,'','About tdatapick Class','Is it possible to have the controll tdatapick always displayed on the dialog ? (that is the calendar always visible )\n\nRegards Maurizio','',0,'AIA=','2bh2hkul',1,0,'',89,0,0),(7426,1758,6,203,0,'200.107.2.121',1140097474,1,0,1,1,1,1,'','','Gracias René\n\nVoy a tratar\n\n\n\nSaludos\n\nOscar','',0,'AIA=','2zod2gl0',1,0,'',203,0,0),(7427,1778,6,440,0,'200.158.226.233',1140098412,1,0,1,1,1,0,'','Core em button','Estou tendo a necessidade de colocar cores (letras e fundo), em em BUTTON. Existe esta possibilidade.','',0,'AIA=','2psyrgwp',1,0,'',440,0,0),(7428,1772,22,2,0,'87.218.146.236',1140098837,1,0,1,1,1,1,'','','Ramón,\n\nUtiliza la dirección de descarga que te proporcionamos en su día por email, con el login y password en él indicados. Solo se dispone de dos meses de actualizaciones gratuitas desde la compra del producto ó de su actualización.','',0,'AIA=','wkd2upof',1,0,'',2,0,0),(7429,1394,3,2,0,'87.218.146.236',1140098947,1,0,1,1,1,1,'','','Jose Carlos,\n\nDeberías tenerlo x:\\xharbour\\lib\\hbsix.lib','',0,'AIA=','xl6hb2wd',1,0,'',2,0,0),(7430,1770,7,2,0,'87.218.146.236',1140099069,1,0,1,1,1,1,'','','Andrés,\n\nEsos warnings son conocidos y no tienen porque afectar al funcionamiento de la aplicación. \n\nDe momento no sabemos como quitarlos. Si afectasen a la aplicación, generarían un GPF, que FWPPC reportaría.','',0,'AIA=','2avx4xsr',1,0,'',2,0,0),(7431,1738,7,2,0,'87.218.146.230',1140099416,1,0,1,1,1,1,'','','Jose Luis,\n\nSí, el fichero de cabecera está y la librería se llama corelibc.lib\n\nFWPPC ya implementa esa función como:\n\n[code:2z1ncovn]\nHB_FUNC&#40; SHOWKEYBOARD &#41;\n&#123;\n   SipShowIM&#40; SIPF_ON &#41;;\n&#125; \n\nHB_FUNC&#40; HIDEKEYBOARD &#41;\n&#123;\n   SipShowIM&#40; SIPF_OFF &#41;;\n&#125; \n[/code:2z1ncovn]','',0,'AIA=','2z1ncovn',1,0,'',2,0,0),(7432,1719,6,2,0,'87.218.146.230',1140099661,1,0,1,1,1,1,'','','Mario,\n\nPuedes probar el ejemplo samples\\TestFile.prg y comprobar si funciona bien ? gracias.','',0,'AIA=','zclwg2n6',1,0,'',2,0,0),(7433,1758,6,2,0,'87.218.146.230',1140099861,1,0,1,1,1,1,'','','Oscar,\n\nDebes hacerlo de la siguiente forma:\n\n[code:5hsfzk2x]\n   &#46;&#46;&#46;\n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n   \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;código de tu aplicación&#41;\n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot; \n[/code:5hsfzk2x]','',0,'AIA=','5hsfzk2x',1,0,'',2,0,0),(7434,1768,6,215,0,'201.154.100.32',1140099995,1,0,1,1,1,0,'','¿En que build?','Antonio,\n¿ En que build tienes implementado lo de los eventos ?\n\nSaludos','',0,'AIA=','2lcxkye4',1,0,'',215,0,0),(7435,1733,7,262,0,'83.97.168.83',1140100039,1,0,1,1,1,1,'','','Carles , lo de no poder meter controles , es una \"putada\" , dimelo a mi que  mi pda es 320*240 de pantalla y al señor que me encargo el programa se me presenta con PDAs HP6515 ( muy monos ) de pantalla 240*240 ( entran 4 cajas de texto y poco mas ) quiere poder cojer datos de clientes nuevos ( les pide Hasta el numero del pie que calzan ) <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\nPor si te sirve de algo , lo solucioné con 5 dialogos encadenados ( tipo asistente de instalacion. )\n\nAntonio , Felicidades por los ActiveX , eso hace que el xBase acceda a otra dimensión , haber que dicen ahora los VB para justificarse (somos la vanguardia tecnologica aunque nuestros programas sean menos productivos    <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> )\nSaludso.','',0,'AIA=','7r0fquzr',1,0,'',262,0,0),(7436,1754,7,262,0,'83.97.168.83',1140100486,1,0,1,1,1,1,'','','Si eso funciona , pero una vez puesto un color y mostrado el say , cambiarlo desde un boton ( por ejemplo ) ACTION osay:setColor( rgb(192,192,192),rgb(200,200,200) )\n\nEso me da que no va . \n\nOtra cosa , que no he comprobado tampoco ( lo debo verificar , pero me parece que falla ) , en los btnbmps  , dos btnBmp  mismo codigo en los dos mismo bmp en los dos , pero con una diferencia uno es un bmp archivo y el otro esta dentro del RC ( llamado con clausula NAME  ) el del archivo coje la trasparencia del bmp y el del recurso no .\nSi alguien lo puede verificar , no vaya a ser yo ....\nQue coste que comento estos pequeños bugs para que Antonio tome nota y los resuelva a su ritmo ( nada de dar prisas  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ) \nSaludso.','',0,'AIA=','nfhwhxfn',1,0,'',262,0,0),(7437,1751,6,18,0,'200.67.188.236',1140100685,1,0,1,1,1,1,'','','Richard :\n\nTSradio isn\'t native control , right ?\n\nPlease send me that class at my email.\n\nRegards.','',0,'AIA=','1c3y0pol',1,0,'',18,0,0),(7438,1751,6,36,0,'200.113.56.235',1140101407,1,0,1,1,1,0,'','','BUEN TRABAJO\n\nOtra cosa, en win98 sale error user32.dll\n\nsaludos\nPatricio','',0,'AIA=','safzf241',1,0,'',36,0,0),(7439,1754,7,449,0,'212.64.224.241',1140101698,1,0,1,1,1,0,'','','Si haces un :Refresh() te tiene q funcionar\n\nfunction Main()\n\n   local oWnd, oFont, oSay\n\n   DEFINE WINDOW oWnd TITLE \"Tutor05\"\n\n   @ 1, 2 SAY oSay PROMPT \"Create DBF Test\" SIZE 100, 40 COLOR \"R+/B\"\n\n   @ 5, 2 BUTTON \"&amp;Color\" ;\n          ACTION ( oSay:SetColor( CLR_BLUE, CLR_RED ), oSay:Refresh() )\n\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n\nSaludos.\nC.','',0,'AIA=','3rzoobwc',1,0,'',449,0,0),(7440,1738,7,123,0,'81.39.239.66',1140102005,1,0,1,1,1,0,'','','Antonio,\n\n[quote:30nmzzqs]Sí, el fichero de cabecera está y la librería se llama corelibc.lib\n\nFWPPC ya implementa esa función como:\n\nCódigo:\n\nHB_FUNC( SHOWKEYBOARD )\n{\n   SipShowIM( SIPF_ON );\n}\n\nHB_FUNC( HIDEKEYBOARD )\n{\n   SipShowIM( SIPF_OFF );\n} [/quote:30nmzzqs]\n\nGracias!! \n\nNo he sabido encontrar estas dos funciones en los fuentes y/o documentación de FWPPC <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nSaludos,\nJosé Luis Capel','',0,'gA==','30nmzzqs',1,0,'',123,0,0),(7441,1767,3,247,0,'87.202.24.207',1140102189,1,0,1,1,1,0,'','This is great','This is great .Will it be inside  May fwh upgrade?','',0,'gA==','3nm2saw0',1,0,'',247,0,0),(7442,1739,6,255,0,'200.67.175.250',1140102373,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3hnxtfi0]Juan Carlos,\nUna solución sería hacer una DLL con Delphi que muestre el ActiveX y cargue el PDF (si es que lo consigue) y que llames a esa DLL desde tu aplicación.\nEn el directorio samples\\DLLs tienes ejemplos de como crear y usar DLLs de Delphi desde FWH.[/quote:3hnxtfi0]\n\nGracias Antonio, sin embargo, lo que se me hace muy curioso\nes que  si pruebas un ejemplo desde codigo y mostrando el\nactiveX en una ventana (OJO NO CON REDEFINE) el activex\nfunciona de maravilla.\n\nPrueba y verás.\nGracias por tu atención.\n\nSaludos','',0,'gA==','3hnxtfi0',1,0,'',255,0,0),(7443,1739,6,255,0,'200.67.175.250',1140102545,1,0,1,1,1,1,'','','Mira Antonio, el siguiente codigo funciona perfecto\nen windows 98 y Acrobat Reader 5.\n\n[code:zeytyg2n]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;PDF&#46;PdfCtrl&#46;5&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX \n\n   oActiveX&#58;Do&#40; &quot;LoadFile&quot;, &quot;ventas&#46;pdf&quot; &#41;\n   oActiveX&#58;Do&#40; &quot;SetCurrentPage&quot;, 1 &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT oActiveX&#58;Do&#40; &quot;Show&quot; &#41;\n\nreturn nil\n[/code:zeytyg2n]\n\n\nEntonces al parecer no es el metodo LoadFile, sino que\ndebe haber algún problema en la creación del control\ndesde REDEFINE.\n\nSaludos y gracias por tu atención.','',0,'AIA=','zeytyg2n',1,0,'',255,0,0),(7444,1761,6,255,0,'200.67.175.250',1140102763,1,0,1,1,1,1,'','','[quote=&quot;gabo&quot;:173w51hs]Tienes que compilar con el compilador de recursos de PellesC hazlo de la siguiente manera\nC:\\Archiv~1\\PellesC\\Bin\\porc.exe /IC:\\Archiv~1\\PellesC\\Include /IC:\\Archiv~1\\PellesC\\Include\\Win /foarchivorecursos.res archivosrecursos.rc\nSaludos[/quote:173w51hs]\n\nHola, Perdona que te contradiga pero si está usando .RES\nno es necesario que use el compilador de PellesC','',0,'gA==','173w51hs',1,0,'',255,0,0),(7445,1777,3,255,0,'200.67.175.250',1140103115,1,0,1,1,1,1,'','Re: About tdatapick Class','[quote=&quot;Maurizio&quot;:hcwgmega]Is it possible to have the controll tdatapick always displayed on the dialog ? (that is the calendar always visible )\nRegards Maurizio[/quote:hcwgmega]\n\nmmmmmmm i dont know, but you can use TCalendar instead.\nContact me by email if you dont have it.\n\nRegards','',0,'gA==','hcwgmega',1,0,'',255,0,0),(7447,1751,6,18,0,'200.67.188.236',1140103810,1,0,1,1,1,1,'','','Efectivamente, en Win98 se obtiene ese error, y se debe al API de Windows.\n\nLa forma de solucionarlo es revisando el SO instalado en la PC y dependiendo del SO activar la propiedad de la transparencia.','',0,'gA==','ypuyr46b',1,0,'',18,0,0),(7448,1779,6,132,0,'83.213.45.32',1140103849,1,0,1,1,1,1,'','SAYs trasparentes','Acabo de instalar FW27 febrero 2006 + xHarbour 0.99.60\n\nEn el ultimo Build de febrero se indica que se pueden trabajar con dialogos trasparentes con un BRUSH de fondo,\nDEFINE DIALOG oDlg RESOURCE \"GtoPrincipal\" OF oWin BRUSH FILE \"c:\\fondo.bmp\" TRANSPARENT\n\nLo he hecho y funciona perfectamente, salvo los SAY, como se comprueba en la imagen siguiente.\n\n[img:21mi4ox9]http&#58;//i45&#46;photobucket&#46;com/albums/f69/txon/Pantalla&#46;jpg[/img:21mi4ox9]\n\nLa unica diferencia entre las SAYs que salen sin trasparencia y los transparentes, es que en la definicion de recursos con PellesC, en las propiedades (los que salen mal) esta cambiado a CENTER.\n\n¿Puede ser un bug de la FW?','',0,'CA==','21mi4ox9',1,0,'',132,0,0),(7449,1767,3,2,0,'87.218.146.135',1140103935,1,0,1,1,1,1,'','','Ask,\n\nIt will be available on early days of March.','',0,'CA==','98t99p25',1,0,'',2,0,0),(7450,1768,6,2,0,'87.218.146.135',1140104387,1,0,1,1,1,1,'','','Fernando,\n\nSe publicará en el build de Marzo 2006.','',0,'CA==','1n9zkoju',1,0,'',2,0,0),(7451,1780,2,172,0,'201.154.36.184',1140104702,1,0,1,1,1,1,'','problemas con windows 98','Tengo una aplicación que en xp funciona perfecto, pero al momento de instalarla en la pc de mi cliente ( windows 98 ),  me marca el siguiente error:\n\nError description: Error FiveWin/3  Cannot create Dialog Box: \nResource: LOGIN\n\nme podrían ayudar a saber por qué pasa esto, y cuál es la mejor solución?\n\nmi resource es una dll llamada \"RECURSOS\" y el dialog box si está ahi, pero me dice que no lo puede crear =(','',0,'CA==','uw1aqmdu',1,0,'',172,0,0),(7453,1682,3,324,0,'212.62.61.22',1140105256,1,0,1,1,1,0,'','','Richard,\n\nThanks a lot for your advice...\nI will give it a try. However, this will take ma very much time, becouse we have so many dialogs and controls in our RC.\nI am mentioning dialogs also, because we had the problem with dialogs also, then we had to change the name of the dialog whic was not created (Cannot create dialog /3) and when we change the name it was fixed. For now the dialogs shows all ok, but if xHarbour needs some other logic, we will need to probably change the dialog resource calling, the same way as controls....\n\nI am wondering, why this was changed? ANd I didn\'t see any notification about that, so we spent many hours investigeting because of the bad documentation of xHarbour <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nWill sit down and start, I don\'t see any other solution.\nThanks again','',0,'CA==','3busyk82',1,0,'',324,0,0),(7455,1768,6,104,0,'201.58.9.169',1140106442,1,0,1,1,1,0,'','','Olá Antonio,\n\nCom estas mudanças em activex poderemos por exemplo usar o MsDataGrid / MsFlexGrid ? Mirem neste site e vejam este documentador de activex&#058; <!-- m --><a class=\"postlink\" href=\"http://www.vbaccelerator.com/codelib/actvxdoc/article.htm\">http://www.vbaccelerator.com/codelib/ac ... rticle.htm</a><!-- m -->\n De alguma forma ele poderá nos ajudar:\n\n[img:2jq9zdhi]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/datagrid&#46;PNG[/img:2jq9zdhi]\n\nAbraços,\n\nRossine.','',0,'CA==','2jq9zdhi',1,0,'',104,0,0),(7456,1754,7,262,0,'212.89.4.49',1140108149,1,0,1,1,1,1,'','','Tienes razon , me faltaba el refresh() ( la falta de esperiencia en esto del pocket), por eso digo lo de comprobarlo por otro lado .\nSi puedes comprobar lo del btnbmp , te lo agradezco , no vaya a estar reportando bugs inexistentes .\nSaludso.\ny Gracias por perder el tiempo conmigo.','',0,'CA==','201s4eyu',1,0,'',262,0,0),(7457,1759,2,37,0,'200.121.157.185',1140109567,1,0,1,1,1,0,'','','Mi amigo, hasta donde Yo se, todas las clases o librerias de que trabajan con FW y acceso a bases de datos SQL (Hay muchas para MySQL, PostGreSQL y demas) unas vienen con FW y se trabaja via ODBC y otras de terceros como Eagle1 de Manu Exposito o SqlLib de Vailton Retano o la propia SqlRdd de la gente de xHarbour.com solo trabajan con herramientas de 32 Bits osea en Clipper NO, tendrias que pasar a Harbour o xHarbour o C3 o Alaska xBase.\nNosotros trabajamos con Fwh 2.7, Sqllib de Vailton y xHarbour 0.99.50 y accedemos a MySQL casi casi como si fueran DBFs\nSaludos\n\nEnrrique Vertiz','',0,'CA==','1dacb9io',1,0,'',37,0,0),(7458,1394,3,447,0,'83.240.190.122',1140109587,1,0,1,1,1,0,'','','Boa Tarde\n\nCom a versão que me enviou FWH 2.6 vem o xharbour 0.99.3 e não existe essa LIB.\nFiz download do file <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> e este ja tem essa LIB mas é a versão 0.99.60.\nPosso utilizar esta ultima versão com a versão do FHW que tenho ? Preciso de fazer alguma alteração ?\n\n\nObrigado','',0,'CA==','2lqdisrb',1,0,'',447,0,0),(7459,1765,6,138,0,'201.133.73.175',1140109897,1,0,1,1,1,1,'','','Primero necesitariamos saber a que resolucion vas a trabajar.\n\nQue alguien me corrija si digo alguna tonteria.\n\nAntes de hacer una conversión CM / PIX, necesitamos saber que resolución tiene tu dispositivo sobre el cual quieres convertir porque no es lo mismo calcular el tamaño en una resolucion de 800x600 que en una 1024x768.\n\nEsto pasa mucho en el motor de reportes, donde forzosamente necesitas la inforamcion del dispositivo (resolucion de la impresora) para que internamente se calculen los pixeles donde se coloca lo que quieres imprimir.\n\nAsi que para comenzar, necesitamos saber la resolucion sobre la cual estas trabajando y luego podemos aplicar algun algoritmo.','',0,'CA==','2455x8so',1,0,'',138,0,0),(7460,1780,2,404,0,'213.231.101.107',1140110171,1,0,1,1,1,0,'','Prueba lo siguiente.','Las DLLs: BWCC.DLL y CTL3D.DLL, pongalas en el directorio de la aplicación.\n\nY cuidado con, el número máximo de ficheros abiertos a la vez.\n\nWin98, trabaja con 20, por defecto, y la aplicación que estoy realizando, en XP va perfecta, ya que este tiene un máximo de 30.\n\nPero en el 98, tuve que poner:\n\n[u:3rmj2042]CONFIG.SYS[/u:3rmj2042]\n\nFILES=40\nBUFFERS=40,0\nFCBS=4,0\nSTACS=9,256\n\n[u:3rmj2042]AUTOEXEC.BAT[/u:3rmj2042]\n\nSET CLIPPER=F30\n\nY en la función, de entrada a la aplicación:\n\nSetHandleCount( 40 )\n\nYa que con 30, tampoco me abria, las DBFs.\n\nSaludos, José Mª','',0,'AQ==','3rmj2042',1,0,'',404,0,0),(7461,1759,2,138,0,'201.133.73.175',1140111035,1,0,1,1,1,1,'','','En Clipper DOS es posible, nosotros desarrollamos una tecnologia propietaria para accesar a bases de datos de MySQL via Clipper 5.3, puro y duro, y claro, un poco de ayuda del interprete de MySQL, al final de cuentas funciono muy bien, mejor de lo que esperabamos pero si, es un poco lento.\n\nCon FiveWin 16 bits, tambien desarrollamos varias aplicaciones, principalmente con las clases TODBC y TDBODBC, principalmente para Oracle y para Informix, adicionalmente FW trae el RDDODBC, que si bien no es la forma mas optima de acceder a datos SQL funciona bien.\n\nEn el mundo de los 32 bits hay muchas mas herramientas, nosotros preferimos ADO, mas que nada por la facilidad de moverte entre distintos motores de base de datos con el mismo codigo fuente y cambiando solo una linea de codigo.','',0,'AQ==','3kvu8866',1,0,'',138,0,0),(7462,1781,6,52,0,'170.51.239.153',1140111266,1,0,1,1,1,1,'','Maximizar un DIALOG','Amigos,\n\nTEngo este codigo y necesito que el dialogo ODLG se muestre maximizado en pantalla, como se lo hace? gracias.\n[code:3v34bu83]FUNCTION Autorizado&#40;&#41;\n   LOCAL lValue\n   LOCAL oDlg\n\n   LOCAL oDatos&#58;= Array&#40; 2 &#41;\n   LOCAL vDatos&#58;= Array&#40; 2 &#41;\n\n   oDlg&#58;= DlgAutorizado&#40; oDatos, vDatos &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN &#40; lValue &#41;\n\n//------------------------------------------------------------------------------\n\nFUNCTION DlgAutorizado&#40; oDatos, vDatos &#41;\n   LOCAL oDlg\n   LOCAL oBmp&#58;= Array&#40; 3 &#41;\n\n   DEFINE DIALOG oDlg resource &quot;dlg_Auto&quot;\n\n      // Bmp BARRA\n      REDEFINE bitmap oBmp&#91; 1 &#93; ID 500;\n         resource &quot;BMP_BARRA&quot;;\n         OF oDlg\n\n      // Bmp Logo\n      REDEFINE bitmap oBmp&#91; 2 &#93; ID 501;\n         resource &quot;BMP_BARRA&quot;;\n         OF oDlg\n\n      // Bmp Vertical\n      REDEFINE bitmap oBmp&#91; 3 &#93; ID 502;\n         resource &quot;BMP_BARRA&quot;;\n         OF oDlg\n\n      REDEFINE BTNGET oDatos&#91; 2 &#93; VAR vDatos&#91; 2 &#93;;\n         ID 101 OF oDlg\n\n   RETURN &#40; oDlg &#41;[/code:3v34bu83]','',0,'AIA=','3v34bu83',1,0,'',52,0,0),(7463,1762,2,138,0,'201.133.73.175',1140111846,1,0,1,1,1,1,'','','No matemos pulgas a cañonazos:\n\noBrwse:BGotFocus := {|| oBoton:Enable()}\noBrwse:BLostFocus :={|| oBoton:Disable()}','',0,'AIA=','3bf9bmd9',1,0,'',138,0,0),(7464,1782,6,75,0,'81.34.117.62',1140114983,1,0,1,1,1,0,'','Bug en REPORT','Cuando imprimo un informe de la calse REPORT a través del previsualizador me sale completo el título pero si lo mando directamente a la impresora, esto es, opción preview desactivada, no me imprime el título completo.\n\n¿Qué puedo hace para no tener quie pasar por el previsualizador?','',0,'AIA=','19u8c52p',1,0,'',75,0,0),(7465,1783,2,350,0,'80.32.243.219',1140115213,1,0,1,1,1,0,'','Internal error 660','Hola a todos.\n\nEstoy recompilando una aplicación que tenía con la versión FW 2.4, a la 2.7 que he recibido hoy.\n\nMe encuentro con que al hacer un Preview de TPrinter me sale el siguiente error:\n\nClipper Internal Error\nFCreate(0) Urrecuperable error 660. Incorrect Value Type\n\n\n¿ Alguien tiene idea porque puede ser ?\n\nSaludos','',0,'AIA=','sbihxogm',1,0,'',350,0,0),(7466,1784,6,83,0,'80.35.196.60',1140117363,1,0,1,1,1,0,'','¿se puede DBF -&gt; XML?','Hola de nuevo,\nHe estado buscando por la red pero no lo tengo nada claro.\nMe vendría de perlas una ayuda o un ejemplo, o ambos.... \n\nSaludos  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','n07v2r51',1,0,'',83,0,0),(7467,1682,3,335,0,'68.193.88.53',1140120332,1,0,1,1,1,0,'','','Boris -\n\nHere\'s something I posted on the xBuilder newsgroup some time ago that might be of help...\n------------------------------------\nHad a problem with my .RC file containing dialog resources, but found the\nsolution.\n\nAfter compiling with xBuilder, the app ran fine on Win \'95-\'98, but quit on\nXP with \"Cannot create dialog\" error. I discovered that some of the dialog\nresources had names starting with \"S_\" like S_BROWSE and S_VOTERS etc. After I dropped the \"S_\" in the resource names, the problem disappeared. Perhaps there was some conflict with Win API naming conventions. So beware of naming resources with an underscore in this way, especially \"S_\".\n--------------------------------\n- Roger','',0,'AIA=','2kbcxn5a',1,0,'',335,0,0),(7468,1682,3,3,0,'82.65.171.186',1140120476,1,0,1,1,1,0,'','','[quote=&quot;Roger Seiler&quot;:xnbhomlh]Boris -\n\nHere\'s something I posted on the xBuilder newsgroup some time ago that might be of help...\n------------------------------------\nHad a problem with my .RC file containing dialog resources, but found the\nsolution.\n\nAfter compiling with xBuilder, the app ran fine on Win \'95-\'98, but quit on\nXP with \"Cannot create dialog\" error. I discovered that some of the dialog\nresources had names starting with \"S_\" like S_BROWSE and S_VOTERS etc. After I dropped the \"S_\" in the resource names, the problem disappeared. Perhaps there was some conflict with Win API naming conventions. So beware of naming resources with an underscore in this way, especially \"S_\".\n--------------------------------\n- Roger[/quote:xnbhomlh]\n\nRoger\n\nUnfortunately it is a specific xbuild problem, Borland will compile and link OK the same resources !!!! \n\nRichard','',0,'gA==','xnbhomlh',1,0,'',3,0,0),(7469,1767,3,3,0,'82.65.171.186',1140120539,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2egjd316]Ask,\n\nIt will be available on early days of March.[/quote:2egjd316]\n\nAntonio  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nExcellent ! \n\nThis is a great job,\n\nCongrats,\n\nRichard','',0,'gA==','2egjd316',1,0,'',3,0,0),(7470,1394,3,2,0,'87.218.146.135',1140120737,1,0,1,1,1,1,'','','Jose Carlos,\n\nPrueba con el xharbour que tenias anteriormente y usa:\n\n... x:\\xharbour\\lib\\dbfdbt.lib\n\nen vez de:\n\n... x:\\xharbour\\lib\\hbsix.lib','',0,'gA==','qfop5gge',1,0,'',2,0,0),(7471,1768,6,2,0,'87.218.146.135',1140120812,1,0,1,1,1,1,'','','Rossine,\n\nHabrá que probarlo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1pa5l9sr',1,0,'',2,0,0),(7472,1764,3,267,0,'200.208.238.2',1140120956,1,0,1,1,1,0,'','','Thanks Enrico, \n\nI know that hbzip.lib has the functions for archives ZIP in xHarbour, but would like to know if these functions are same the used ones in fivewin for clipper(ZipFile, UnZipFile, GetFirstInZip, etc) ?\n\nSds,\nVilian F. Arraes\n<!-- e --><a href=\"mailto:vilian@vfatec.com.br\">vilian@vfatec.com.br</a><!-- e -->','',0,'gA==','2g49zhjw',1,0,'',267,0,0),(7473,1779,6,2,0,'87.218.146.135',1140121119,1,0,1,1,1,1,'','','Alfonso,\n\nSi, y ya lo corregimos hace unos dias. El fallo era el estilo centrado.\n\nEnvíanos un email privado para solicitarnos las librerías modificadas, indicando si usas Harbour/xharbour y Borland ó Microsoft. Gracias.','',0,'gA==','2wwrfv5a',1,0,'',2,0,0),(7474,1739,6,2,0,'87.218.146.135',1140121390,1,0,1,1,1,1,'','','Juan Carlos,\n\nNosotros no lo probamos con REDEFINE sino con una ventana y no funcionó.\n\nLas pruebas las hicimos en el emulador Virtual PC con Win98. No se si eso habrá afectado (no creo).\n\nDe todas formas, si te funciona en una ventana, puedes deshabilitar las demas, con lo que se comportará como un diálogo modal. Luego las habilitas, cuando termines.','',0,'gA==','97ukujnc',1,0,'',2,0,0),(7475,1778,6,2,0,'87.218.146.135',1140121570,1,0,1,1,1,1,'','','Sergio,\n\nPuedes usar un botón de la clase TBtnBmp. Revisa samples\\TestBtnB.prg','',0,'gA==','368ufv1c',1,0,'',2,0,0),(7476,1751,6,61,0,'201.217.169.62',1140121857,1,0,1,1,1,0,'','','Alguna ayuda de como hacer el dialogo\ntransparente con este codigo?\n\n\n\n DEFINE FONT oFont NAME \"Arial\" SIZE 0,-12 	bold\n   \n   DEFINE BRUSH oBrush RESOURCE \"fondox\"\n  // Fondox tiene el bmp de oskar\n\n   \n   DEFINE DIALOG oDlg RESOURCE \"Test\" BRUSH oBrush TRANSPARENT\n      \n  \n   REDEFINE CHECKBOX oCbx1 VAR lOk1 ID 110 OF oDlg\n\n   REDEFINE GET oGet Var cNombre ID 120 Of oDlg\n                 \n  REDEFINE BUTTON oBoton1 ID 330 PROMPT \"Salir\" ;\n         OF oDlg CANCEL    ACTION (oDlg:End() ) \n\n   ACTIVATE DIALOG oDlg CENTERED \n      oBrush:End()\n      oFont:End()\n\nreturn nil \n\nMuchas gracias.\n\nRuben Fernandez','',0,'gA==','3eeloyck',1,0,'',61,0,0),(7477,1751,6,61,0,'201.217.163.83',1140122920,1,0,1,1,1,0,'','','Se me olvidaba\n\nUso Harbour y FWH 2.7 Febrero\n\n\nGracias nuevamente.\n\nRuben Fernandez','',0,'gA==','34uhqr2e',1,0,'',61,0,0),(7478,1753,3,217,0,'200.204.97.49',1140122997,1,0,1,1,1,0,'','','Thanks a lot, Antonio and Enrico!\n\nI think I must upgrade my FWH, <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nBut only next month. Now I need work hard to pay comercial xHB!\n\nThanks a lot!\nMaurilio','',0,'gA==','1fw9a1wv',1,0,'',217,0,0),(7479,1764,3,6,0,'87.1.232.171',1140123145,1,0,1,1,1,1,'','','No, they are different.\n\nEMG','',0,'gA==','2j8ncuqx',1,0,'',6,0,0),(7480,1785,3,217,0,'200.204.97.49',1140123525,1,0,1,1,1,0,'','Compile TGraph 2.0 with FWH','Hello!\n\nI use TGraph 2.0 with FW/Clipper and now I try compile it to use with (free and comercial) xHarbour/FWH and I coundn´t compile the .c file that \ncome with source.\nDoes anybody have a link script or .xbp file to compile it?\n\nThanks a lot!\nMaurilio','',0,'gA==','2hiww8gz',1,0,'',217,0,0),(7481,1739,6,255,0,'200.67.175.250',1140125640,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1bk7w67f]Juan Carlos,\nNosotros no lo probamos con REDEFINE sino con una ventana y no funcionó.\nLas pruebas las hicimos en el emulador Virtual PC con Win98. No se si eso habrá afectado (no creo).\nDe todas formas, si te funciona en una ventana, puedes deshabilitar las demas, con lo que se comportará como un diálogo modal. Luego las habilitas, cuando termines.[/quote:1bk7w67f]\n\nGracias Antonio.\nVeremos si asi lo resolvemos.','',0,'gA==','1bk7w67f',1,0,'',255,0,0),(7482,1781,6,2,0,'87.218.146.135',1140125691,1,0,1,1,1,1,'','','Gustavo,\n\nEn el recurso usa el estilo \"Thick Frame\" en el diálogo, y en el ACTIVATE:\n[code:1cg46wyu]\nACTIVATE DIALOG oDlg ;\n   ON INIT oDlg&#58;Maximize&#40;&#41;\n[/code:1cg46wyu]','',0,'AIA=','1cg46wyu',1,0,'',2,0,0),(7483,1739,6,255,0,'200.67.175.250',1140126337,1,0,1,1,1,1,'','','Antonio, no quiero sonar a NECIO\npero el ejemplo que te puse, también lo corrí\nen el VirtualPC y funcionó bien, desinstalé la\nversión 5 de acrobat y le instalé la \nversion 6  (ProgID=PDF.PdfCtrl.6) y sucede\nlo mismo. Vaya, desde código SI funciona y\ndesde REDEFINE no funciona.\nNo será algo mas que el activeX ??? algo\nque falte en los procedimientos donde se\nredefine el control???  Te agradezco tu atencion.','',0,'AIA=','cccegp0k',1,0,'',255,0,0),(7484,1786,22,217,0,'200.178.178.150',1140131279,1,0,1,1,1,0,'','Auto text in gets','Antonio, \nis possible include auto text (like Internet Explorer) in gets?\nI wish type the text and auto text fill a list of keywords available in an array.\n\nThanks!\nMaurilio','',0,'AIA=','3l0l5sln',1,0,'',217,0,0),(7486,1751,6,61,0,'201.217.164.12',1140133161,1,0,1,1,1,0,'','','oskar has sido muy amable...\n\npero tengo problemas en compilar esta funcion\n\nFUNCTION TranspColor( oWnd, nRGB )\n\nLa linea que sigue no9 m,e compila\n   SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, GetWindowLong(         \n   oWnd:hWnd, GWL_EXSTYLE ) | WS_EX_LAYERED )\nme da error  Parse error at \"|\"  ---Es la barrita\n\n SetLayeredWindowAttributes( oWnd:hWnd, nRgb, 0, LWA_COLORKEY )\n   RETURN NIL \n\nUso Harbour y FWH 2.7 Febrero\n\nSaludos y gracias nuevamente.\n\nRuben Fernandez.\nLa  verdad I M P O N E N T E.','',0,'AIA=','2c0ldars',1,0,'',61,0,0),(7487,1762,2,304,0,'200.67.162.185',1140133330,1,0,1,1,1,0,'','','Hola Daniel\nprobe con la variable if(oLbx:lFocused) pero sucede lo siguiente\n\ntengo una tecla de acceso rapido de esta forma\nSetKey( VK_F3, {|| Borra(oLbx,oSay1,oSay2)})\n\ny en un boton le asigno  a la ACTION la misma funcion\nACTION Borra(oLbx,oSay1,oSay2)\n\nel caso es q en la funcion inicio asi para probarlo:\n\nFunction Borra(oLbx,oSay1,oSay2)\nif(oLbx:lFocused)\n  msgalert(\"si borra\")  //esta el foco en olbx es azul la linea\nElse\n  msgalert(\"no borra\")  //no tiene el foco el registro esta marcado en gris\nEndif\n\nReturn Nil\n\n\nCuando lo hago presionando F3 lo hace bien, es decir marca .T. o .F. segun el caso,\n\npero cuando lo hago Pulsando el Boton (es la misma funcion) marca en ambos casos .F.\n\nComo puedo solucionarlo ???\n\nsalu2\nVEracruz, Mexico','',0,'AIA=','1eqh69xz',1,0,'',304,0,0),(7488,1785,3,49,0,'87.1.182.129',1140134313,1,0,1,1,1,1,'','','I use xmate with success','',0,'AIA=','r15h9gbz',1,0,'',49,0,0),(7491,1751,6,61,0,'201.217.171.37',1140136464,1,0,1,1,1,0,'','','Para Harbour deben usar esta funcion...\n\nGracias a Oskar por toda su atencion...\n\n\nFUNCTION TranspColor( oWnd, nRGB )\n   SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ), WS_EX_LAYERED ) )\n   SetLayeredWindowAttributes( oWnd:hWnd, nRgb, 0, LWA_COLORKEY )\n   RETURN NIL\n\n\nSaludos \nRuben Fernandez\nGracias Oskar.','',0,'AIA=','dwph3k7n',1,0,'',61,0,0),(7492,1787,6,61,0,'201.217.171.37',1140136612,1,0,1,1,1,0,'','Ventanas transparentes de Oskar','Para los usuarios mde Harbour deben usar esta funcion \n\n\nFUNCTION TranspColor( oWnd, nRGB )\n   SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ), WS_EX_LAYERED ) )\n   SetLayeredWindowAttributes( oWnd:hWnd, nRgb, 0, LWA_COLORKEY )\n   RETURN NIL\n\n\nEN LUGAR DE ESTA QUE NO ANDA\n\nFUNCTION TranspColor( oWnd, nRGB )\n   SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ) | WS_EX_LAYERED )\n   SetLayeredWindowAttributes( oWnd:hWnd, nRgb, 0, LWA_COLORKEY )\n   RETURN NIL\n\n\nGracias Oskar...\n\nSaludos\n\nRuben fernandez','',0,'AIA=','43ama10s',1,0,'',61,0,0),(7493,1682,3,324,0,'212.62.61.22',1140137489,1,0,1,1,1,0,'','','@Roger\nYes, we noticed that changing the dialog or resource elements names might help. We played a lot and finaly we made it working, showing all dialogs and redefines show properly now.\n\n@Richard\nSeams this is realy xHarbour specific problem. Have no idea why is that and also is not mentioned anywhere in the documentation.\nWe have the app working but I do not like the solution we don\'t know the exact reason and the solution.\nBut, we do not time left to be able to research something which is to be noted to us - developers. Now it works after a several names changing (even changing some names more than once), but I would like to know how this can be overcomed for sure.\nThe suggested use of function seams doesn\'t work either, one of our fellow programmers tried it and reported stil the same problem.\n\nStrange....','',0,'AIA=','bshtehxp',1,0,'',324,0,0),(7495,1788,6,411,0,'201.217.151.71',1140141596,1,0,1,1,1,0,'','DEFINE o REDEFINE','Hola foro:\nSe que para muchos puede parecer una pregunta tonta, pero como estoy empezando no tengo del todo claro la diferencia que existe entre la sentencia DEFINE  y la REDEFINE.\n¿Alquien puede aclararmelo?\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nGracias\nDaniel.','',0,'AIA=','32ttc1pq',1,0,'',411,0,0),(7496,1762,2,304,0,'200.67.162.185',1140142304,1,0,1,1,1,0,'','','tal vez me este complicando de mas (es lo mas seguro)\n\nque clase debo de usar para meter registros a una base de datos en forma de listbox, como si fueran articulos de una factura\ndonde se captura cantidad, clave (con ayuda de busqueda) yo uso listbox y 2 gets uno de cantidad y otro de clave\ntal vez x ahi esta el problema, ya q x mas que he buscado el listbox no puedo hacer que haga lo q arriba mencione, ojala me haya explicado lo suficiente\n\ngracias x su tiempo\nsalu2\nveracruz, mexico','',0,'AIA=','1we35oc4',1,0,'',304,0,0),(7497,1789,3,341,0,'200.127.97.186',1140143046,1,0,1,1,1,0,'','HELP MM to Pixel conversion','Dear coleague\n\nI need an example to convert de 297.4 mm x 210,0 mm  to pixel or viceversa in  800 x 600 screen resolution Somebody have one to \nsend me or tell me how can i do that\n\nThanks \nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','xheewehk',1,0,'',341,0,0),(7498,1790,6,299,0,'69.65.95.131',1140148452,1,0,1,0,1,0,'','Para  Vikthor','Vikthor;\n\nAbajo el resultado del envio de mi ultimo correo.\n\nThis message was created automatically by mail delivery software.\n\nA message that you sent could not be delivered to one or more of its recipients. This is a permanent error. The following address(es) failed:\n\n  <!-- e --><a href=\"mailto:vikthor@creswin.com.mx\">vikthor@creswin.com.mx</a><!-- e -->\n    unrouteable mail domain \"creswin.com.mx\"\n\nAsí que te escribo por aquí el mensaje original:\n\nVikthor;\n\nHola, que tal?\n\nGracias por el programa de radio.\n\nMi pregunta se la puse mas temprano a rené en el foro de inglés.  Ya que hablabas sobre el tema, pues te la presenté como la planteo a continuación:\n\nAl tener mis datos bajo el control de ADS obtengo varias ventajas.  Una de las cuales es la protección de los dbfs.  Ahora un usuario no puede, accidentalmente o a propósito borrar/ver/hacer daño un dbf a través del sistema operativo.  ADS sencillamente es único dueño del directorio y de los archivos (folders).  Mis aplicaciones solo tienen acceso porque van a través del servidor ADS.  Pero ahora tampoco puedo hacer como hacía antiguamente para actualizar la estructura de un dbf.\n\nLa forma en que lo hacía es que tengo código dentro de aplicación que al ser ejecutado verifica la estructura de los archivos contra cierta definición guardada en un arreglo (array).  Si detecta diferencias, pues creo una tabla nueva basada en la estructura del array y copio los registros (no borrados) de la vieja tabla a la nueva.  Al final si todo marchó bien, borro la vieja tabla y renombro la nueva al nombre de la vieja.  \n\nPero ahora bajo ADS, no puedo desde codigo (o cualquier otra manera) simplemente borrar una tabla y/o renombrar (rename) un dbf.  Estube mirando la documentación y ví una función del API que se llama restructuretable().  Pareciera que es para los fines que busco.  Pero no me hace nada.  Tal vez la uso mal.  No sé.  \n\nSi me puedes ayudar, mi pregunta entonces es: cual es la manera de modificar la estructura de un dbf bajo ADS desde código.\n\nGracias y saludos,\n\n\n\n\n\nReinaldo Crespo-Bazán\n<!-- w --><a class=\"postlink\" href=\"http://www.structuredsystems.com\">www.structuredsystems.com</a><!-- w -->\nreinaldocrespo _arroba_ structuredsystems _punto_ com\nfax: (720)368-9785','',0,'AIA=','3d5xcwh4',1,0,'',299,0,0),(7499,1791,6,279,0,'200.65.111.13',1140149538,1,0,1,1,1,0,'','Metodo VerifyLogicLen( nLogicLen','Podría alguien ayudarme con la clase TWBrowse la opción la opción VerifyLogicLen, sirve para determinar si realmente existen registros en una base de datos. Porque tarda mucho tiempo el LISTBOX en aparecer cuando no se tiene registros en la base.','',0,'AIA=','bxg2dzm3',1,0,'',279,0,0),(7500,1789,3,63,0,'80.37.102.128',1140162290,1,0,1,1,1,0,'','','Just scan at 70 dpi and you will get an image of approx. 800 x 600 pixel.  However, I suspect that it will be barely readable on the screen and too low in quality for printing full size. \nIs this what you needed?\nRafael','',0,'AIA=','7dr7w1la',1,0,'',63,0,0),(7501,1792,3,419,0,'198.54.202.210',1140163325,1,0,1,1,1,0,'','TWBROWSE In Line Editing Of Database','Hello,\n\nDoes anyone have a working sample (small and simple if at all possible) that allows a user to edit the individual cells in a LISTBOX BROWSE (TWBROWSE), validate the data entered, and then save the changed data to a database?\n\nAlternatively is it possible to do the above using an array and then saving the entire edited line to a database after validation?\n\nI have started experimenting with oLbx: lAutoEdit := .T. and although I can change the data in a cell I don\'t quite understand how to validate the data once entered and if the data is correctly validated then save it to the currently open database.\n\nThere is an associated \'oGet\' in the documentation but I don\'t seem to be able to tie this in with the \'Get\' of the cell or browse.\n\nI have looked and TESTBRW.PRG but their is an associated .DLL file that I cannot open to have a look at and TESTBRW.PRG only allows you to edit the cell data and does not have an associated database file to which the changes are saved.\n\nDoes the quick BROWSE() function allow for any validation of changes made and if so how do you trap for them?\n\nRegards,\n\nDale.','',0,'AIA=','kxypjz1y',1,0,'',419,0,0),(7502,1793,19,26,0,'193.77.20.119',1140163507,1,0,1,1,1,1,'','Delphi - Borland Developer Studio 2006 Architect Trial','Hello!\n\nBorland released trial of \"Delphi\" BDS 2006, which \nincludes new Borland C++ compiler 5.81\n<!-- m --><a class=\"postlink\" href=\"http://www.borland.com/downloads/download_delphi.html\">http://www.borland.com/downloads/download_delphi.html</a><!-- m -->\n\nRoman','',0,'AIA=','1sq0yy9t',1,0,'',26,0,0),(7503,1794,6,87,0,'83.34.157.153',1140163775,1,0,1,1,1,0,'','Twbrowse  de Hernan ?','Hola\n\n   Alguien sabe algo  de la nueva versión del twbrowse de Hernan ?\n\n\n   Un saludo y gracias desde ya\n\n  Gabriel \n\n Granada','',0,'AIA=','n2pbnxfk',1,0,'',87,0,0),(7504,1745,6,28,0,'213.27.201.254',1140166315,1,0,1,1,1,0,'','','Hola José\n\nPrueba esto a ver si te vale\n\n[code:200tzuls]#include &quot;FiveWin&#46;ch&quot;\n\n\nfunction Main&#40;&#41;\nlocal oWnd, oMenu\n\n   MENU oMenu\n      MENUITEM &quot;Carga bmp&quot; ACTION Carga&#40; oWnd &#41;\n   ENDMENU\n\n   DEFINE WINDOW oWnd MENU oMenu\n   ACTIVATE WINDOW oWnd\n\n\nreturn nil\n\nfunction carga&#40; oWnd &#41;\n\n   local cBmpFile &#58;= cGetFile&#40; &quot;*&#46;bmp&quot;, &quot;Please select a BMP file&quot; &#41;\n   local hDC, hDCMem, hOldBmp, hBmp\n   local hDib\n\n   if !file&#40; cBmpFile &#41;\n      ? &quot;No encuentro &quot; + cBmpFile\n      return nil\n   endif\n\n   hDC &#58;= oWnd&#58;GetDC&#40;&#41;\n   hBmp &#58;= ReadBitmap&#40; hDC, cBmpFile &#41;\n\n   hDCMem &#58;= CreateCompatibleDC&#40; hDC &#41;\n   hOldBmp &#58;= SelectObject&#40; hDCMem, hBmp &#41;\n\n   TextOut&#40; hDCMem, 10, 10, &quot;Texto de prueba&quot; &#41;\n\n   SelectObject&#40; hDCMem, hOldBmp &#41;\n   DeleteObject&#40; hDCMem &#41;\n   oWnd&#58;ReleaseDC&#40;&#41;\n\n   hDib &#58;= DibFromBitmap&#40; hBmp &#41;\n   DibWrite&#40; &quot;test&#46;bmp&quot;, hDib &#41;\n   GloBalFree&#40; hDib &#41;\n   DeleteObject&#40; hBmp &#41;\n\nreturn nil\n\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;winuser&#46;h&gt;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; CREATECOMPATIBLEBITMAP &#41;\n&#123;\n	 hb_retnl&#40; &#40;LONG&#41; CreateCompatibleBitmap&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parni&#40; 3 &#41; &#41;&#41;;\n\n&#125;\n\nHB_FUNC&#40; CREATECOMPATIBLEDC &#41;\n&#123;\n	 hb_retnl&#40; &#40;LONG&#41; CreateCompatibleDC&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;&#41;&#41;;\n\n&#125;\n#pragma ENDDUMP\n[/code:200tzuls]\n\nUn saludo.\n\nPD. Para utilizar otros formatos de imágenes ya postee un mensaje anteriormente con FreeImage.dll','',0,'AIA=','200tzuls',1,0,'',28,0,0),(7505,1770,7,413,0,'194.106.16.43',1140166573,1,0,1,1,1,0,'','','Gracias Antonnio...','',0,'AIA=','37tdcpp1',1,0,'',413,0,0),(7506,1701,19,177,0,'194.30.62.6',1140167529,1,0,1,1,1,0,'','','Carlos,\n\npuedes descargar un tipo de letra con el codigo de barras 3 de 9 desde \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/12acde33/39TEXT.TTF.html\">http://hyperupload.com/download/12acde3 ... T.TTF.html</a><!-- m -->\n\nSaludos.','',0,'AIA=','1uhpdwl2',1,0,'',177,0,0),(7507,1792,3,6,0,'87.1.232.189',1140168105,1,0,1,1,1,1,'','Re: TWBROWSE In Line Editing Of Database','Have a look at how TWBrowse:lEditCol() is implemented and use it to write your own cell editing function.\n\nEMG','',0,'AIA=','2mu2c2rl',1,0,'',6,0,0),(7508,1792,3,419,0,'196.25.255.210',1140169339,1,0,1,1,1,0,'','','Thank you!\n\nI was trying to find samples containing nAtCol and was not looking for lEditCol.  Found many with lEditCol!\n\nThanks again.\n\nBy the way - is this an \'acceptable\' and \'robust\' form of data input in FWH?\n\nWe have many other commerically available packages here that use this type of \'table\' or \'spreadsheet\' input but I seem to remember that some time ago when I asked if this was possible in FWH someone (I forget who) said that FWH (or at that stage I was using FW) did not provide for this type of input.  Is this something new is the later versions of FWH?\n\nBeing able to accomplish this sure beats opening a dialog box, input data, save data, update database, close dialog box, refresh listbox, and then open dialog box again to input next record (if it is \'robust\' of course)!!!\n\nRegards,\n\nDale.\n\nBy the way - welcome back Mr Bott - I received your message - will test and let you know.','',0,'AIA=','2f5pt54z',1,0,'',419,0,0),(7509,1792,3,2,0,'87.218.146.124',1140170210,1,0,1,1,1,1,'','','Dale,\n\nYou may review samples\\TestBrw.prg','',0,'AIA=','1ycs8cey',1,0,'',2,0,0),(7510,1794,6,2,0,'87.218.146.124',1140170491,1,0,1,1,1,1,'','','Gabriel,\n\nNosotros hemos publicado unas modificaciones a su browse para que funcione con FWH 2.7 Febrero:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1647\">http://fivetechsoft.com/forums/viewtopic.php?t=1647</a><!-- m -->','',0,'AIA=','35mglbrn',1,0,'',2,0,0),(7511,1783,2,2,0,'87.218.146.124',1140172034,1,0,1,1,1,1,'','','Sebastian,\n\nPuedes reproducir el error en un ejemplo pequeño y autocontenido ? gracias\n\nsamples\\TestPrn2.prg funciona bien','',0,'AIA=','2uk8m3fn',1,0,'',2,0,0),(7512,1795,3,6,0,'87.1.232.189',1140172230,1,0,1,1,1,1,'','TPrinter:Box() method','Is it expected that the box is solid? As you can see in the following sample, the string is not visible through the box:\n\n[code:2bi9u86i]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oPrn\n\n    PRINT oPrn PREVIEW\n        PAGE\n            oPrn&#58;Say&#40; 100, 100, &quot;This is a test&quot; &#41;\n            oPrn&#58;Box&#40; 0, 0, 1000, 1000 &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RETURN NIL[/code:2bi9u86i]\n\nEventually this is a new Box() method that draws transparent box:\n\n[code:2bi9u86i]METHOD Box&#40; nRow, nCol, nBottom, nRight, oPen &#41; CLASS TPrinter\n\n   local hOldBrush &#58;= SelectObject&#40; &#58;&#58;hDCOut, GetStockObject&#40; BRUSH_NULL &#41; &#41;\n\n   Rectangle&#40; &#58;&#58;hDCOut, nRow, nCol, nBottom, nRight, iif&#40; oPen != NIL, oPen&#58;hPen, 0 &#41; &#41;\n\n   SelectObject&#40; &#58;&#58;hDCOut, hOldBrush &#41;\n\nreturn nil[/code:2bi9u86i]\n\nEMG','',0,'AIA=','2bi9u86i',1,0,'',6,0,0),(7513,1793,19,15,0,'203.73.90.187',1140175863,1,0,1,1,1,0,'','','Hello\n\nMay I use new Borland C++ compiler 5.81 ?\n\nRegards,\n\nRichard','',0,'AIA=','13ofy43b',1,0,'',15,0,0),(7514,1768,6,104,0,'201.58.53.166',1140177091,1,0,1,1,1,0,'','','OK Antonio,  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias Maestro,\n\nRossine.','',0,'AIA=','1m5q8v0f',1,0,'',104,0,0),(7515,1783,2,350,0,'80.32.243.219',1140177692,1,0,1,1,1,0,'','','Gracias Antonio, dejalo.\n\nEl problema es que utilizaba una clase TPrinter de Luis Krause, pero no me di cuenta porque no la tenía en el LNK sino en una LIB. La he eliminado y ya va bien. Ahora me queda ver porque utilizaba la clase de Luis Krause y no la original, porque no lo recuerdo, es una aplicación tremenda (el ejecutable ocupa algo mas de 4 megas). Por cierto, ¿ existe alguna forma de poder compilar/ejecutar una aplicación de 16 bits que el ejecutable ocupe más de 4.194.304 bytes, o la tengo que pasar definitivamente a 32 bits.?\n\nSaludos','',0,'AIA=','14kx2jms',1,0,'',350,0,0),(7516,1786,22,217,0,'201.27.212.142',1140179992,1,0,1,1,1,0,'','','Gracias, Oskar!\n\nSalu2\nMaurilio','',0,'AIA=','292ujx91',1,0,'',217,0,0),(7517,1779,6,362,0,'200.168.52.156',1140181524,1,0,1,1,1,1,'','','Buenas...\n\nAntonio, gracias por todo.\n\nReporto:\n\nCuando uso la Clase SSAY.PRG Y SSAY.CH, mis SAYS no COLORE, Y mis GET\'s si MANCHA(sucio) Porque??? Ke hacer para corrigirlos???\n\nEsto, en Windows 98.\n\nMismo con este nuevo release ke mi enviastes, no funciona correcto.\n\nGracias y un gran saludo a usted. És increible, Antonio.','',0,'AIA=','2rvc66bl',1,0,'',362,0,0),(7518,1796,1,193,0,'195.212.29.179',1140183234,1,0,1,1,1,0,'','About very useful path functions (for information)','Hi\nLook at the reference\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/shlwapi/path/path.asp\">http://msdn.microsoft.com/library/defau ... h/path.asp</a><!-- m -->\n\nThere are very interesting and useful functions. I think they should be realised in FiveWin.\nAs an example you can write and run the following C++ code (I used BCB 5.0 )\n\n#include &lt;windows.h&gt;\n#include &lt;iostream.h&gt;\n#include &lt;Shlwapi.h&gt;\n#include &lt;conio.h&gt;\n\n#pragma hdrstop\n\n//---------------------------------------------------------------------------\n\n#pragma argsused\nint main(int argc, char* argv[])\n{\n   using namespace std;\n\n// Path_1 destination buffer.\n   char buffer_1[MAX_PATH] = \"JustABufferToHoldTheCanonicalizedPathForAnExample\";\n   char *lpStr1;\n   lpStr1 = buffer_1;\n\n// Path_2 to be Canonicalized.\n   char buffer_2[ ] = \"A:\\\\name_1\\\\.\\\\name_2\\\\..\\\\name_3\";\n   char *lpStr2;\n   lpStr2 = buffer_2;\n\n// Path_3 to be Canonicalized.\n   char buffer_3[ ] = \"A:\\\\name_1\\\\..\\\\name_2\\\\.\\\\name_3\";\n   char *lpStr3;\n   lpStr3 = buffer_3;\n\n// Path_4 to be Canonicalized.\n   char buffer_4[ ] = \"A:\\\\name_1\\\\name_2\\\\.\\\\name_3\\\\..\\\\name_4\";\n   char *lpStr4;\n   lpStr4 = buffer_4;\n\n// Path_5 to be Canonicalized.\n   char buffer_5[ ] = \"A:\\\\name_1\\\\.\\\\name_2\\\\.\\\\name_3\\\\..\\\\name_4\\\\..\";\n   char *lpStr5;\n   lpStr5 = buffer_5;\n\n// Path_6 to be Canonicalized.\n   char buffer_6[ ] = \"C:\\\\..\";\n   char *lpStr6;\n   lpStr6 = buffer_6;\n\n   cout &lt;&lt; \"The un-canonicalized path 2 is : \" &lt;&lt; lpStr2\n        &lt;&lt; \"\\nThe return value is            : \"\n        &lt;&lt; PathCanonicalize(lpStr1,lpStr2)\n        &lt;&lt; \"\\nThe canonicalized path 1 is    : \" &lt;&lt; lpStr1 &lt;&lt; endl;\n\n   cout &lt;&lt; \"\\nThe un-canonicalized path 3 is : \" &lt;&lt; lpStr3\n        &lt;&lt; \"\\nThe return value is            : \"\n        &lt;&lt; PathCanonicalize(lpStr1,lpStr3)\n        &lt;&lt; \"\\nThe canonicalized path 1 is    : \" &lt;&lt; lpStr1 &lt;&lt; endl;\n\n   cout &lt;&lt; \"\\nThe un-canonicalized path 4 is : \" &lt;&lt; lpStr4\n        &lt;&lt; \"\\nThe return value is            : \"\n        &lt;&lt; PathCanonicalize(lpStr1,lpStr4)\n        &lt;&lt; \"\\nThe canonicalized path 1 is    : \" &lt;&lt; lpStr1 &lt;&lt; endl;\n\n   cout &lt;&lt; \"\\nThe un-canonicalized path 5 is : \" &lt;&lt; lpStr5\n        &lt;&lt; \"\\nThe return value is            : \"\n        &lt;&lt; PathCanonicalize(lpStr1,lpStr5)\n        &lt;&lt; \"\\nThe canonicalized path 1 is    : \" &lt;&lt; lpStr1 &lt;&lt; endl;\n\n   cout &lt;&lt; \"\\nThe un-canonicalized path 6 is : \" &lt;&lt; lpStr6\n        &lt;&lt; \"\\nThe return value is            : \"\n        &lt;&lt; PathCanonicalize(lpStr1,lpStr6)\n        &lt;&lt; \"\\nThe canonicalized path 1 is    : \" &lt;&lt; lpStr1 &lt;&lt; endl;\n\n\n   cout &lt;&lt; \"\\nPress any key to exit...\";\n   getch();\n\n   return EXIT_SUCCESS;\n}\n\nVladimir Grigoriev','',0,'','c54nwut7',1,0,'',193,0,0),(7519,1137,3,154,0,'151.81.6.237',1140183548,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','[quote=&quot;EnricoMaria&quot;:1e3tm9lo]I don\'t know why but the following fix seems to work:\n\n[code:1e3tm9lo]METHOD ScrollNumber&#40; nDirection &#41; CLASS TGet\n\n   LOCAL nValue, nDec, nPos\n   &#46;&#46;&#46;\n   &#58;&#58;oGet&#58;KillFocus&#40;&#41;\n   &#58;&#58;oGet&#58;SetFocus&#40;&#41;\n   &#58;&#58;SetPos&#40; nPos &#41;\n\nRETURN nil[/code:1e3tm9lo]\n\nEMG[/quote:1e3tm9lo]\n\nEnrico,\nthank you, work perfectly!','',0,'gIA=','1e3tm9lo',1,0,'',154,0,0),(7520,1137,3,154,0,'151.81.6.237',1140183637,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','[quote=&quot;EnricoMaria&quot;:29br4rle]Sorry... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG[/quote:29br4rle]\n\nWhy?   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','29br4rle',1,0,'',154,0,0),(7521,1777,3,255,0,'200.67.175.250',1140183934,1,0,1,1,1,1,'','','Maurizio, can you give me another email adress???\n\ni\'m getting this message:\n\n    **********************************************\n    **      THIS IS A WARNING MESSAGE ONLY      **\n    **  YOU DO NOT NEED TO RESEND YOUR MESSAGE  **\n    **********************************************\n\nThe original message was received at Thu, 16 Feb 2006 19:00:11 -0600\nfrom dsl-200-67-175-250.prod-empresarial.com.mx [200.67.175.250]\n\n   ----- Transcript of session follows -----\n451 4.4.1 reply: read error from mail.nipeservice.com.\n&lt;maurizio@nipeservice.com&gt;... Deferred\nWarning: message still undelivered after 4 hours\nWill keep trying until message is 5 days old\n\n\n\nReporting-MTA: dns; esmhost.com\nArrival-Date: Thu, 16 Feb 2006 19:00:11 -0600\n\nFinal-Recipient: RFC822; <!-- e --><a href=\"mailto:maurizio@nipeservice.com\">maurizio@nipeservice.com</a><!-- e -->\nAction: delayed\nStatus: 4.4.2\nRemote-MTA: DNS; mail.nipeservice.com\nDiagnostic-Code: SMTP; 451 4.4.1 reply: read error from mail.nipeservice.com.\nLast-Attempt-Date: Thu, 16 Feb 2006 23:08:05 -0600\nWill-Retry-Until: Tue, 21 Feb 2006 19:00:11 -060','',0,'','8js06vh1',1,0,'',255,0,0),(7522,1797,3,154,0,'151.81.6.237',1140184484,1,0,1,1,1,1,'','TGet Spinner bug 2','Hi Fwh\'s\n\nAnother little bug in my exe FWH 32bit:\nis not visible the number TGet when Right, Spinner and WHEN .F. clauses are declared.\n\nIn FW 2.5 (16 bit) is not present, I do not test the Feb06 version. \n\nTest this:\n[code:1xbjv5fp]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   LOCAL oDlg, oGet, nVal0 &#58;= 0, nVal1 &#58;= 0\n\n   DEFINE DIALOG oDlg\n   @ 1,1 GET oGet VAR nVal0 OF oDlg SIZE 50, 8 PICTURE &quot;99999&#46;99&quot; SPINNER RIGHT\n   @ 3,1 GET oGet VAR nVal1 OF oDlg SIZE 50, 8 PICTURE &quot;99&#46;99&quot; SPINNER WHEN &#46;F&#46; RIGHT\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN Nil[/code:1xbjv5fp]\n\nThank you for the help.','',0,'AIA=','1xbjv5fp',1,0,'',154,0,0),(7523,1137,3,6,0,'87.1.232.189',1140185037,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','Sorry for the repeated post.\n\nEMG','',0,'AIA=','1ypayg9i',1,0,'',6,0,0),(7524,1394,3,447,0,'83.240.180.145',1140188154,1,0,1,1,1,0,'','','Boa Tarde\n\nSubstitui o x:\\xharbour\\lib\\hbsix.lib por x:\\xharbour\\lib\\dbfdbt.lib conforme disse.\nNão tem erros:\n-------------------------\nBorland Resource Compiler Version 5.40                     \nCopyright (c) 1990, 1999 Inprise Corporation, All rights reserved.\nemail.EXE - 0 erro(s), 0 warning(s)\n-------------------------\nMas não cria o email.exe. Os novos ficheiros que cria são:\n\nno X:\\xHarbour\\FWH260\\SAMPLES\n........................ email.RES\n........................ email.prj\n........................ email.udp\nno X:\\xHarbour\\FWH260\\SAMPLES\\Release\n........................ b32.bc \n........................ makefile\n........................ email.obj\n........................ email.c\n\ne não cria mais nenhum ficheiro.\nSerá algum parametro do UEStudio ?\n\nObrigado,\nJose Carlos','',0,'AIA=','28vr5rck',1,0,'',447,0,0),(7525,1779,6,362,0,'200.168.52.156',1140188920,1,0,1,1,1,1,'','','Antonio, regenerei mi FIVEHX.LIB para [x]HARBOUR 0.99.60, y todo funciono\nperfecto, solamente en este modulo no funciono...\n\nFonte: ERRSYSW.PRG\n\n   #ifdef __CLIPPER__\n      cErrorLog += \"   CPU Tipo: \" + GetCPU() + CRLF\n   #else\n      cErrorLog += \"   CPU Tipo: \" + GetCPU() + \" \" + ;\n                   AllTrim( Str( GetCPUSpeed() ) ) + \" Mhz\" + CRLF\n   #endif\n\nKe hacer???','',0,'','2a97c7nr',1,0,'',362,0,0),(7526,1788,6,252,0,'201.140.18.111',1140189149,1,0,1,1,1,0,'','','Existen unas heramientas para el desarrollo de aplicaciones en windows llamadas editores de recursos. Con estas herramientas puedes diseñar de forma visual las interfaces de tus aplicaciones. Es decir \"dibujas\" las ventanas,dialogos, pones botones bmps, etc.. Cuando estas desarrollando una aplicacion en la que usaste un editor de recursos para el diseño de tus pantallas, tienes que usar REDEFINE para que puedas usar los recursos que empleaste dentro de un dialogo (botones, etc.).\n\n     En el editor de recursos identificas mediante una etiqueta a los dialogos y casi siempre mediante un numero a los recursos que van dentro del dialogo.\n\n     Ej. \n\n[code:2ggm29ok]\n\n    DEFINE DIALOG oDlgAgentes RESOURCE &quot;AGENTE_CATALOGO&quot; COLOR CLR_BLACK,CLR_DIALOGO Font oFontSans12\n\n    REDEFINE SAY oSayStatusAgente VAR cStatusAgente ID 66 OF  oDlgAgentes\n\n    etc&#46;\n[/code:2ggm29ok]\n\n    Aqui \"Agente_Catalogo\" es el nombre que le diste en el editor de recursos al dialogo, 66  es el numero que le diste  al say que desplegara el valor de cStatusAgente\n\n    Cuando no usas editor de recursos, entonces en lugar de usar REDEFINE usas DEFINE.\n\n    La ventaja de usar editores de recursos radica en la facilidad de diseñar las pantallas.\n\n     Saludos.\n\n     Jose Rios.','',0,'AIA=','2ggm29ok',1,0,'',252,0,0),(7527,1783,2,2,0,'87.218.146.124',1140189401,1,0,1,1,1,1,'','','Sebastian,\n\nNo te sabría decir el tamaño exacto, pero mientras funcione, no hay problema <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3d5w91mk',1,0,'',2,0,0),(7528,1779,6,2,0,'87.218.146.124',1140189536,1,0,1,1,1,1,'','','João,\n\nQue error te aparece ?','',0,'AIA=','2bip2e9n',1,0,'',2,0,0),(7529,1394,3,2,0,'87.218.146.124',1140189663,1,0,1,1,1,1,'','','Jose Carlos,\n\nBusca por todo el ordenador el fichero email.exe','',0,'AIA=','3jms11zs',1,0,'',2,0,0),(7530,1784,6,18,0,'200.67.188.236',1140190087,1,0,1,1,1,1,'','','Vicente :\n\nPuedes hacer lo siguiente:\n\nAbrir la tabla con Excel usando Ole y despues salvar el archivo como xml....y ¡¡ listo el pollo !!\n\n\nYo lo hago usando la clase TExcelS.','',0,'AIA=','fi64mu0s',1,0,'',18,0,0),(7531,1779,6,362,0,'200.168.52.156',1140190180,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1dre4jh9]João,\n\nQue error te aparece ?[/quote:1dre4jh9]\n\nGracias por lo pronto atendimento Antonio.\n\n\n_HB_FUN_GETCPU REFERENCED FROM C:\\ERRSYSW.OBJ','',0,'gA==','1dre4jh9',1,0,'',362,0,0),(7532,1798,6,396,0,'200.7.110.132',1140190668,1,0,1,1,1,1,'','Folder con PellesC en FWH 2.4','Estimados amigos, importe 1 folder con 7 dialogos los cuales funcionan bajo WS y FW, pero al llevarlos a PellesC y usarlos en FWH 2.4 dice que no encuentra a partir del 4 dialogo, y los tengo todos activos con{.t.,.t.,.t.,.t.......}, y el 2do. y 3er. dialogo lo muestra pero cuando hago click en la pestaña no le da el focus, a ver quien tiene alguna idea de que revisar, gracias de antemano.Dios los Bendiga a Todos....incluyendome  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> uso, FWH 2.4, harbour, xh, verce 4.3(buenisimo)','',0,'gA==','opmq1cum',1,0,'',396,0,0),(7533,1799,3,247,0,'87.202.30.174',1140190766,1,0,1,1,1,0,'','TPRINTER problem','I have a problem when i use the say method from tprinter (fwh february 2006 build xharbour 0.99.60) .\n\nI see that the error is at EraseBkGnd:\n\n\"METHOD EraseBkGnd( hDC ) CLASS TSay\n\n   if IsAppThemed() .or. ::lTransparent\n      return 1\n   endif\n\nreturn Super:EraseBkGnd( hDC )\"\n\nIf i comment the \".or. ::lTransparent\" everything is ok. Is this the problem and if it is what is the solution?','',0,'gA==','3skuuxmk',1,0,'',247,0,0),(7534,1137,3,154,0,'151.81.6.237',1140191076,1,0,1,1,1,1,'','Re: TGet Spinner Bug?','[quote=&quot;EnricoMaria&quot;:12r3vdj6]Sorry for the repeated post.\n\nEMG[/quote:12r3vdj6]\n\nNothing for me!!!\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','12r3vdj6',1,0,'',154,0,0),(7535,1800,1,173,0,'203.113.38.9',1140191388,1,0,1,1,1,0,'','Transparent and Multiline of SAY','Dear all,\n\nI\'m try to use  ownd:Say( nRow, nCol, cText, nClrFore, nClrBack, oFont, lPixel,lTransparent, nAlign ) for display some text, but I can not understand.\n\n1. How I controll them for display in multiline ?\n2. Can I use them more 1 in a procedure or function ?\n\n\nBest Regrad,\n\nPe N Chi\n\n*** PS. FiveWin 2.1c and Blinker 7 user','',0,'gA==','1uygebf6',1,0,'',173,0,0),(7536,1394,3,447,0,'83.240.180.145',1140191577,1,0,1,1,1,0,'','','Ja procurei e nao encontra nenhum\n\n\n\nJose Carlos','',0,'gA==','2cr5ioyn',1,0,'',447,0,0),(7537,1801,19,375,0,'84.122.121.30',1140191891,1,0,1,1,1,1,'','Pasarse a xHarbour','Hace algún tiempo que quiero pasarme a xHarbour y disfrutar de sus ventajas de los 32 bits, sin embargo, para un programdor como yo, enganchado a Clipper desde hace casi veinte años, va a ser dificil.\nHe tenido la ocasión de consultar un NG de Harbour, y resulta que apenas si tiene una docenas de comandos, y bastante menos funciones que CLipper.\n\n¿Con xHarbour ocurre lo mismo? ¿o es que el fichero de ayudas que he leido está incompleto?\nSupongo que vosotros suplis esa carencia con C++ (que desconozco totalmente)\n\nPor ejemplo: Construí una rutina, hace algunos años, y que utilizo siemrpe, que mide una cadena y la centra, horizontal y verticalmente dentro de un Say, para presentarla en mis propias Alertas. Para ello empleo MLCOUNT y MEMOLINE, pero en Habour, ni flores.\nNo supondría demasiado problema, unos cuantos meses de investigar y hecho.\n\nOtro inconvenioente que me hecha para atras es el hecho de tener que utilizar una RDD externa como la de Advantaje. No deja manipular el flujo del programa durante los reindexados. Y resulta que yo suelo cuidar mucho ese apartado,  bien presentado y con un buen diseñado, resulta muy vistoso en un programa, y al cliente le gusta mucho, aunque con CDX sirva de poco.\n\nAun prescindiendo de esos dos de tantos temas, hay un último asunto que  este si es verdad que no sabría como sustituir. La todopoderosa BEGIN SEQUENCE.\n\n¿Existe la posibilidad de que los diseñadores de Harbour/xHarbour incorporen algo de eso en sus librerías?\n\nA ver si me convenceis. Supongo que como yo habrá más con la misma duda.\n\nGracias\nUn saludo','',0,'gA==','1pbubf9q',1,0,'',375,0,0),(7538,1745,6,83,0,'80.35.196.60',1140192156,1,0,1,1,1,0,'','','Muchas gracias, Paco \n\nme has dado algo para empezar ¡que no es poco!\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','2gvpak68',1,0,'',83,0,0),(7539,1784,6,83,0,'80.35.196.60',1140192861,1,0,1,1,1,0,'','¿se puede DBF-&gt;XML?','No se me habia ocurrido, pensaba hacer alguna función para el traspaso pero el formateo es tedioso.\n\ny ya puestos a pedir ¿podrias poner un ejemplo simple de como lo haces?\n\nutilizo HARBOUR + FW 2.4 y aunque tengo la clase TExcelS por aquí en alguna parte no la he usado nunca hasta ahora.\n\nGracias de antemano por tu interés. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','3kjog3e5',1,0,'',83,0,0),(7540,1800,1,6,0,'87.3.232.215',1140194193,1,0,1,1,1,1,'','Re: Transparent and Multiline of SAY','1) Just use several oWnd:Say() increasing nRow of the desired number of pixels.\n\n2) Yes.\n\nEMG','',0,'gA==','31cjlkbj',1,0,'',6,0,0),(7541,1780,2,74,0,'190.48.232.88',1140194229,1,0,1,1,1,1,'','','José Mª:\n\n             Con fivewin no hace falta tocar ni el autoxec.bat ni el config.sys, es suficiente con poner en tu prg principal:\n\n   SetHandleCount(120)\n\n              Respecto a bwcc.dll yo la uso renombrada con otro nombre y puesta en el directorio del exe, asi de esa manera no hay peligro de conflictos con otras versiones de bwcc.dll que eventualmente pueda usar algun otro sistema instalado en la maquina y que pueda usar bwcc.dll en los directorios de windows (el tango gestion x ejemplo, muy usado en la argentina, utiliza bwcc.dll porque esta hecho en borland delphi) y te puede traer problemas porque si la version del programa tango es vieja la bwcc.dll es anterior a la version 2.0 (que es la minima que necesita el workshop x ejemplo)\n\nSaludos,','',0,'gA==','7gbrsebi',1,0,'',74,0,0),(7542,1784,6,179,0,'64.46.80.210',1140194678,1,0,1,1,1,1,'','','Perdon por la ignorancia\npodiras victor poner un ejemplo de eso\nGracias','',0,'gA==','1eotmo44',1,0,'',179,0,0),(7543,1394,3,447,0,'83.240.180.145',1140194840,1,0,1,1,1,0,'','','Boa Tarde\n\nJa esta OK.\n\nEm vez de apagar a instrução e renumerar os CMD deixei a linha assim:\n------\nCmd10 = echo $(CPATH)\\lib\\b32\\dbfdbt.lib + &gt;&gt; b32.bc\n#Cmd11 = echo $(CPATH)\\lib\\b32\\hbsix.lib + &gt;&gt; b32.bc\nCmd12 = echo $(CPATH)\\lib\\b32\\debug.lib + &gt;&gt; b32.bc\n\n-----\n\nDepois de retirar a linha  e renumerar os CMD \n----\nCmd9 = echo $(CPATH)\\lib\\b32\\dbffpt.lib + &gt;&gt; b32.bc\nCmd10 = echo $(CPATH)\\lib\\b32\\dbfdbt.lib + &gt;&gt; b32.bc\nCmd11 = echo $(CPATH)\\lib\\b32\\debug.lib + &gt;&gt; b32.bc\n------------\n\ndeu erro:\n---------\nFatal: Unable to open file \'CODEPAGE.LIB\'\n--------\n\nRetirei a linha e renumerei\n----\nCmd13 = echo $(CPATH)\\lib\\b32\\pp.lib + &gt;&gt; b32.bc\nCmd14 = echo $(BPATH)\\lib\\cw32.lib + &gt;&gt; b32.bc\n-----\n\ne ficou a criar o email.EXE na pasta Release.\n\n\nNao é possivel alterar a pasta onde é criado o EXE ? \n\nTentei colocar\n----\n[Settings]\nTarget = [color=blue:zwoxq714]x:\\MyApp\\Testes[/color:zwoxq714] \nCategory&amp;01 = DEFAULT RUN CONFIGURATION\nWorking Directory =.\nCommand Line Arguments =\nCategory&amp;02 = COMPILER OPTIONS\nWarnings = no|yes\nAssumed Variables = no|yes\nCompiler Options =\nLibraries =\n-----\nmas continua a criar o EXE na pasta Release\n\nObrigado\nJose Carlos','',0,'Ag==','zwoxq714',1,0,'',447,0,0),(7544,1784,6,179,0,'64.46.80.210',1140195058,1,0,1,1,1,1,'','','Victor\naprovechando la ocasion je je\ncomo se hace para que usando tu clase texcel\nno me quede en memoria el Excel.exe !!!!!!!!!!!\nSaludos\ny Gracias','',0,'Ag==','1lxqcf84',1,0,'',179,0,0),(7545,1779,6,362,0,'200.168.52.156',1140196389,1,0,1,1,1,1,'','','Antonio, mi falta algo asi en la Function ERRSYSW.PRG\n\nStatic Function GetCpu()\n//\nReturn Nil\n\nSi pongo esto, mi pasa la compilacion... Ke cambiastes en FIVEHC.LIB???\n\nSi bien, kreo ke esto no hace falta... Si o no??\n\nCuando ke jo necesito de esto GetCpu()???? En cual momento???','',0,'Ag==','2xebr0xx',1,0,'',362,0,0),(7546,1801,19,2,0,'87.218.146.124',1140197631,1,0,1,1,1,1,'','','Manuel,\n\nLa guía norton que has leido está muy desfasada <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nTanto Harbour como xharbour te ofrecen todo lo que tiene Clipper y muchísimo más. Te aseguro que en una semana como mucho, tienes tu aplicación en 32 bits.\n\nNo tienes porqué usar ADS. El RDD de DBFCDX de Harbour/xharbour funciona de maravilla <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nAnímate y no volverás a usar Clipper nunca más <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'Ag==','1nofx6ra',1,0,'',2,0,0),(7547,1779,6,2,0,'87.218.146.124',1140197795,1,0,1,1,1,1,'','','La función GetCpu() está ahora dentro de ErrSysW.prg. Si usas tu propio ErrSysW.prg entonces no la tienes. \n\nCópiala del módulo ErrSysW.prg de FWH.','',0,'Ag==','2u48uj0f',1,0,'',2,0,0),(7548,1798,6,2,0,'87.218.146.124',1140197938,1,0,1,1,1,1,'','','Jose Luis,\n\nEn tu fichero de recursos has de declarar el folder como \"SysTabControl32\" en vez de \"TFolder\".','',0,'Ag==','1bq0xhkk',1,0,'',2,0,0),(7549,1802,2,350,0,'80.32.243.219',1140197998,1,0,1,1,1,0,'','nDbl2Flt()','Hola a todos.\n\nSigo intentando pasar una aplicación de FW 2.4 a FW 2.7, y estoy a punto de tirar la toalla (No quiero pensar que pasará cuando intente pasarla a 32 bits   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  ). Ahora me ocurre que al mostrar unos controles char2fx me da el siguiente error:\n\nFloating Point: Stack Underflow\n\nEl problema es en una línea donde tengo que pasar un valor float al control VBX: oChart1:Adm[2] := ndbl2flt(nmaximo1).\n\nA pesar de haber mirado las modificaciones hechas en FW desde la versión 2.4, no aparece nada relativo a ningún cambio en la función ndbl2flt(), sin embargo si hay un \"ligerisímo\" cambio, en la versión FW 2.7 hay una línea que pone:\n\nif ( d == 0 )\n   return 0;\n\nLínea que no figura en la versión 2.4\n\nCreo que el problema puede ser ese, aunque no controlo C, entiendo que con esa línea añadida el tipo que devuelve no es float cuando el valor es 0, con lo cual el control VBX me da un error, cuando con la versión 2.4 no sucedía.\n\nMe imagino que la solución es compilar el fichero dbl2flt.c de FW 2.4 e incluir el OBJ en mi fichero LNK. Si esa es la solución, la pregunta del millón, que hace tiempo conocía y ya se me ha olvidado: ¿ Como compilo ese fichero ?\n\nSaludos','',0,'','2z9fo2as',1,0,'',350,0,0),(7550,1394,3,2,0,'87.218.146.124',1140198059,1,0,1,1,1,1,'','','Jose Carlos,\n\nMe alegro que lo hayas solucionado.\n\nNo nos hemos planteado situar el EXE en otro directorio. Si consigues hacerlo, coméntanoslo. Gracias','',0,'','226uo8ge',1,0,'',2,0,0),(7551,1799,3,2,0,'87.218.146.124',1140198145,1,0,1,1,1,1,'','','Ask,\n\n[code:4z5c9s3l]\nMETHOD EraseBkGnd&#40; hDC &#41; CLASS TSay \n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent \n      return 1 \n   endif \n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41; \n[/code:4z5c9s3l]','',0,'AIA=','4z5c9s3l',1,0,'',2,0,0),(7552,1779,6,362,0,'200.168.52.156',1140198616,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:busrl3ml]La función GetCpu() está ahora dentro de ErrSysW.prg. Si usas tu propio ErrSysW.prg entonces no la tienes. \n\nCópiala del módulo ErrSysW.prg de FWH.[/quote:busrl3ml]\n\n\nAntonio, mi Version és la di November/2005 y en c:\\fwh27\\source\\function\\ERRSYSW.PRG no tienes esta FUNCTION GETCPU()\n\nPodias poner acá para nosostros por favor???\n\nMuchas gracias. Saludos.','',0,'gA==','busrl3ml',1,0,'',362,0,0),(7553,1798,6,362,0,'200.168.52.156',1140198755,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:9op4skty]Jose Luis,\n\nEn tu fichero de recursos has de declarar el folder como \"SysTabControl32\" en vez de \"TFolder\".[/quote:9op4skty]\n\n\nO USAR FOLDBMP32.LIB ke asi si puede usar FOLDER normalmente.  Saludos.','',0,'gA==','9op4skty',1,0,'',362,0,0),(7554,1803,3,341,0,'200.127.97.186',1140199260,1,0,1,1,1,0,'','Html lib Where Can i download the last version','Dear Coleague\n\nWhere Can I download the last version htmlib, or somebody send me\nby email.\n\nThanks\nDante\n<!-- e --><a href=\"mailto:Devwin2004@yahoo.com.ar\">Devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gA==','18n66ebl',1,0,'',341,0,0),(7555,1804,3,419,0,'198.54.202.210',1140199558,1,0,1,1,1,0,'','Help with Help!','On a dialog box my first input field has a VALID clause and I have a HELP button on the bottom.\n\nIf I click on the HELP button I get the error message that I have defined in my VALID clause and HELP will not pop up.\n\nIn other words it appears that clicking on my HELP button is causing the GET to be VALIDATED BEFORE opening my HELP file and this is a problem if the user has not entered anything into the GET at this point because a blank GET is invalid in my application.\n\nHow do I stop the HELP button from causing my GET to be VALIDATED and then return to the get after closing help?\n\nRegards,\n\nDale.','',0,'gA==','1uc3pihl',1,0,'',419,0,0),(7556,1761,6,36,0,'200.113.56.235',1140201386,1,0,1,1,1,0,'','','Estimados\n\nLo he solucionado creando un nuevo RES\n\n...mi archivo bc \n... \nc:\\borland\\bcc55\\lib\\cw32.lib + \nc:\\borland\\bcc55\\lib\\import32.lib,, + \ndbf\\system\\wcta.res+\ndbf\\system\\nuevorc.res\n\nEsperemos que dure varios años <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos\nPatricio','',0,'gA==','33q3uky3',1,0,'',36,0,0),(7557,1745,6,28,0,'87.218.47.138',1140201845,1,0,1,1,1,0,'','','Por si necesitas:\n\nCambiar color de texto\n[code:aksto9rn]&#58;\n// rojo    0-255\n// verde 0-255\n// azul    0-255\n\nnColor = SetTextColor&#40; hDCMem, RGB&#40; rojo, verde, azul &#41;&#41;\n\n//&#46;&#46;&#46;&#46; funciones de pintar texto\n\nSetTextColor&#40; hDCMem, nColor &#41;[/code:aksto9rn]\n\nColor de fondo de texto\n\n[code:aksto9rn]&#58;\n// rojo    0-255\n// verde 0-255\n// azul    0-255\n\nnColor = SetBkColor&#40; hDCMem, RGB&#40; rojo, verde, azul &#41;&#41;\n\n//&#46;&#46;&#46;&#46; funciones de pintar texto\n\nSetBkColor&#40; hDCMem, nColor &#41;[/code:aksto9rn]\n\nCambiar fuente\n\n[code:aksto9rn]&#58;\nDEFINE FONT oFont NAME &#46;&#46;&#46; SIZE&#46;&#46;&#46;\n\nhOldFont = SelectObject&#40; hDCMem, oFont&#58;hFont&#41;\n\n//&#46;&#46;&#46;&#46; funciones de pintar texto\n\nSelectObject&#40; hDCMem, hOldFont&#41;\noFont&#58;End&#40;&#41;\n[/code:aksto9rn]\n\nUn abrazo','',0,'AIA=','aksto9rn',1,0,'',28,0,0),(7558,1745,6,83,0,'80.35.196.60',1140202693,1,0,1,1,1,0,'','','¿Como haces para leer el pensamiento?\nEn este momento estaba dandole vueltas precisamente a eso.\n\nGracias de nuevo!!!!!!!!! <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','13twki85',1,0,'',83,0,0),(7559,1780,2,172,0,'201.154.35.152',1140202697,1,0,1,1,1,1,'','gracias','Gracias por el consejo Jose Mª, asunto arreglado.\n\nEn efecto, Daniel, no fue necesario modificar el .bat y .sys\n\nvaya que me han facilitado la vida!','',0,'AIA=','2e7qe8f4',1,0,'',172,0,0),(7560,1805,6,52,0,'170.51.227.63',1140203201,1,0,1,1,1,1,'','Quiero controlar MINIMIZED de los dialogos','Estimados,\n\nNecesito saber como puedo hacer para controlar el evento MINIMIZED de los diálogos, lo que quiero hacer es que cuando se miniminice un diálogo poder primero hacer cosas como (verificar si hay en systray un ícono, por ejemplo).\n\n\nGracias.','',0,'AIA=','2s6wdm59',1,0,'',52,0,0),(7561,1806,6,52,0,'170.51.227.63',1140203308,1,0,1,1,1,1,'','Quiero controlar MINIMIZED de los dialogos','Estimados,\n\nNecesito saber como puedo hacer para controlar el evento MINIMIZED de los diálogos, lo que quiero hacer es que cuando se miniminice un diálogo poder primero hacer cosas como (verificar si hay en systray un ícono, por ejemplo).\n\n\nGracias.','',0,'AIA=','1v065kba',1,0,'',52,0,0),(7562,1804,3,6,0,'87.3.232.215',1140203317,1,0,1,1,1,1,'','Re: Help with Help!','You have to use CANCEL clause for the HELP button. But don\'t forget to put the focus back to the original control or you will bypass its VALID clause.\n\nEMG','',0,'AIA=','25a26y1e',1,0,'',6,0,0),(7563,1807,6,104,0,'201.58.68.12',1140204710,1,0,1,1,1,0,'','Erro de compilação com fwh 2.7 fevereiro','Olá, \n\nPorque está me ocorrendo estes erros quando compilo TESTFLDB.PRG:\n\n\nType: C &gt;&gt;&gt;xrc.exe -fo\"TESTFLDB.res\"   -D__FLAT__   -I\"C:\\xhb\\c_include\" -I\"C:\\xhb\\c_include\\win\" \"TESTFLDB.RC\"&lt;&lt;&lt;\n\nxRC: C:\\xhb\\include\\wintypes.ch(19): warning: Unknown preprocessor control: \'Ifndef\'.\n\n\nxRC: C:\\xhb\\include\\wintypes.ch(76): error: #endif with no #if.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(87): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(90): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(91): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(94): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(103): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(106): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(108): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xhb\\include\\cstruct.ch(111): warning: Unknown preprocessor control: \'xcommand\'.\n\nComo resolver isto ?\n\nObrigado,\n\nRossine.','',0,'AIA=','vnfaig0l',1,0,'',104,0,0),(7564,1801,19,54,0,'201.135.253.152',1140206011,1,0,1,1,1,1,'','Re: Pasarse a xHarbour','<!-- w --><a class=\"postlink\" href=\"http://www.xharbour.com/xHDN\">www.xharbour.com/xHDN</a><!-- w -->\n\nAhi hay un buen manual.\n\nSaludos y espero te sirva','',0,'AIA=','1zo36d8x',1,0,'',54,0,0),(7565,1745,6,41,0,'200.87.67.10',1140206154,1,0,1,1,1,0,'','','Paco,\n\nhay alguna manera de hacer este cambio sobre el bmp, pero que este bmp este en un dialogo y en lugar de guardarlo en un archivo volverlo a poner al mismo bmp, es decir rediibujar el bmp con el cambio.\n\nUn ejemplo, si tienes un bmp en un dialogo le haces un cuantos floofill (es decir lo cambias) y luego mueves el dialogo o pones una ventana sobre ell, los cambios desaparecen, entonces podriamos pensar en colocar en el ON PAINT algo que repinte para volver a obttener el bmp con los cambios, pero esto dan resultados inesperados, por lo que hice fue hacer el cambio, guardalrlo a disco, recargar el bmp del archivo y lla tengo todo ok, pero no pude hacerlo sin utilizar un archivo temporal, claro no es mucho drama ello, pero tengo la curiosidad de como se podria hacer sin archivo temporal.\n\nun saludo\n\nMarcelo','',0,'AIA=','2b35xf6w',1,0,'',41,0,0),(7566,1807,6,362,0,'200.168.52.156',1140206569,1,0,1,1,1,1,'','','wintypes.ch\n\nen el final del Archivo.ch, ponga:\n\n#Endif','',0,'AIA=','23w1cq69',1,0,'',362,0,0),(7567,1804,3,419,0,'196.25.255.210',1140206703,1,0,1,1,1,0,'','','Thanks - I thought about that - but I thought there might be a another way as I was worried about skipping the VALID clause.\n\nThanks again.\n\nBy the way - do you (and James and Antonio) ever sleep?\n\nRegards,\n\nDale.','',0,'AIA=','11zto8iq',1,0,'',419,0,0),(7568,1807,6,104,0,'201.58.68.12',1140206935,1,0,1,1,1,0,'','','Olá João Blz ?\n\nBom, o detalhe é que eu somente peguei a versão de fevereiro e compilei com o xhb, aí apareceu este erro.  Este erro não ocorria com a versão de janeiro. \n\nTambem os meus says começaram a não funcionar e as dialogs não encerram com ESC.  \n\nO que devo fazer para resolver estes problemas ?\n\nObrigado,\n\nRossine.','',0,'AIA=','3h5ssa0g',1,0,'',104,0,0),(7569,1784,6,456,0,'217.124.40.23',1140207003,1,0,1,1,1,0,'','','En este  enlace de la pagina de James Bott tienes el codigo fuente de Dbf2Xml [url:jgtepbxn]http&#58;//ourworld&#46;compuserve&#46;com/homepages/jbott/dbf2xml&#46;prg[/url:jgtepbxn]\n\nEspero pueda serte de utilidad.\nSaludos desde Mallorca','',0,'EA==','jgtepbxn',1,0,'',456,0,0),(7571,1807,6,362,0,'200.168.52.156',1140208750,1,0,1,1,1,1,'','','[quote=&quot;Rossine&quot;:3f00ml1n]Olá João Blz ?\n\nBom, o detalhe é que eu somente peguei a versão de fevereiro e compilei com o xhb, aí apareceu este erro.  Este erro não ocorria com a versão de janeiro. \n\nTambem os meus says começaram a não funcionar e as dialogs não encerram com ESC.  \n\nO que devo fazer para resolver estes problemas ?\n\nObrigado,\n\nRossine.[/quote:3f00ml1n]\n\n\nHi, Rossine... Bien???\n\nKreo, ke te basta regenerar a FIVEHX.LIB COM O HARB2LIB.EXE, que os SAYS y os GETS que estavam sujando(sucio), quando se usava o comando SPINNER, vão voltar a funcionar normalmente, Antonio Linares enviou-me para testes del Brush com Transparent, e realmente mi ocasionou erros, depois que recompilei a FIVEHX.LIB com o HARB2LIB.EXE, tudo voltou a funcionar perfeito. A unica coisa que aproveitei, foi a FIVEHC.LIB.  Abraços. Saludos.','',0,'gA==','3f00ml1n',1,0,'',362,0,0),(7572,1808,2,304,0,'200.67.162.185',1140209110,1,0,1,1,1,0,'','Ejemplo de un Browse tipo Factura','Hola:\nAlguien tiene algun ejemplo, de alguna clase para meter datos tipos facturas, es decir que dentro de un listbox o browse teclear por ejemplo cantidad, en la siguiente la clave (al hacerlo buscar en otra base de datos para validarlo) y el resultado ponerlo en la siguiente columna ?\nal posicionarse al final, abrir modo de edicion, y poder \"navegar\" de arriba a abajo ??\n\ngracias por su atencion\nsalu2\nveracruz, mexico','',0,'gA==','23f75zb5',1,0,'',304,0,0),(7573,1788,6,411,0,'201.217.149.114',1140210197,1,0,1,1,1,0,'','Exelente explicación','José:\nMuchas gracias por la explicación, es muy clara.\n\nDaniel.\n\n\n\n[quote=&quot;José Ríos&quot;:2qklsbsp]Existen unas heramientas para el desarrollo de aplicaciones en windows llamadas editores de recursos. Con estas herramientas puedes diseñar de forma visual las interfaces de tus aplicaciones. Es decir \"dibujas\" las ventanas,dialogos, pones botones bmps, etc.. Cuando estas desarrollando una aplicacion en la que usaste un editor de recursos para el diseño de tus pantallas, tienes que usar REDEFINE para que puedas usar los recursos que empleaste dentro de un dialogo (botones, etc.).\n\n     En el editor de recursos identificas mediante una etiqueta a los dialogos y casi siempre mediante un numero a los recursos que van dentro del dialogo.\n\n     Ej. \n\n[code:2qklsbsp]\n\n    DEFINE DIALOG oDlgAgentes RESOURCE &quot;AGENTE_CATALOGO&quot; COLOR CLR_BLACK,CLR_DIALOGO Font oFontSans12\n\n    REDEFINE SAY oSayStatusAgente VAR cStatusAgente ID 66 OF  oDlgAgentes\n\n    etc&#46;\n[/code:2qklsbsp]\n\n    Aqui \"Agente_Catalogo\" es el nombre que le diste en el editor de recursos al dialogo, 66  es el numero que le diste  al say que desplegara el valor de cStatusAgente\n\n    Cuando no usas editor de recursos, entonces en lugar de usar REDEFINE usas DEFINE.\n\n    La ventaja de usar editores de recursos radica en la facilidad de diseñar las pantallas.\n\n     Saludos.\n\n     Jose Rios.[/quote:2qklsbsp]','',0,'gIA=','2qklsbsp',1,0,'',411,0,0),(7574,1804,3,2,0,'87.218.146.124',1140211141,1,0,1,1,1,1,'','','No, never <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','3iprk29f',1,0,'',2,0,0),(7575,1779,6,2,0,'87.218.146.124',1140211336,1,0,1,1,1,1,'','','[code:3vhlz59t]\n#define  HKEY_LOCAL_MACHINE  2147483650  // 0x80000002\n\nfunction GetCPU&#40;&#41;\n\n   local oReg &#58;= TReg32&#40;&#41;&#58;New&#40; HKEY_LOCAL_MACHINE,;\n                               &quot;HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0&quot;,;\n                               &#46;f&#46; &#41;\n   local cCpu &#58;= oReg&#58;Get&#40; &quot;ProcessorNameString&quot; &#41;\n\n   oReg&#58;Close&#40;&#41;\n\nreturn cCpu\n[/code:3vhlz59t]','',0,'AIA=','3vhlz59t',1,0,'',2,0,0),(7576,1779,6,362,0,'200.168.52.156',1140211511,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:e8eg73ee][code:e8eg73ee]\n#define  HKEY_LOCAL_MACHINE  2147483650  // 0x80000002\n\nfunction GetCPU&#40;&#41;\n\n   local oReg &#58;= TReg32&#40;&#41;&#58;New&#40; HKEY_LOCAL_MACHINE,;\n                               &quot;HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0&quot;,;\n                               &#46;f&#46; &#41;\n   local cCpu &#58;= oReg&#58;Get&#40; &quot;ProcessorNameString&quot; &#41;\n\n   oReg&#58;Close&#40;&#41;\n\nreturn cCpu\n[/code:e8eg73ee][/quote:e8eg73ee]\n\nGracias Antonio, ahora Perfecto. Mui Lindo los Says, Gets y los DIALOGOS TRANSPARENTES.\n\nUsted és fantastico. Congratulations. Regards, saludos!!!','',0,'gIA=','e8eg73ee',1,0,'',362,0,0),(7577,1809,6,98,0,'70.71.111.92',1140211580,1,0,1,1,1,1,'','Visualizador de html para FWH?','Hola...\n\nAlguien tendrá alguna clase para poder ver archivos html, pero\nsin depender del uso de ole/activeX.\n\nSe que hay un ejemplo que René hizo hace tiempo usando OLE para abrir una página con IE, pero en este caso estoy buscando algo que no dependa de IE u otro navegador.\n\nSaludos!','',0,'gIA=','xhj5o89h',1,0,'',98,0,0),(7578,1807,6,2,0,'87.218.146.124',1140211688,1,0,1,1,1,1,'','','Rossine,\n\n[code:2tqzaeul]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet\n\n   local nHi, nLo\n   local lAccept\n   local bKeyAction &#58;= SetKey&#40; nKey &#41;\n   local nDefButton\n\n   if nKey == VK_ESCAPE  // avoids a beep!\n      &#58;&#58;oWnd&#58;KeyChar&#40; nKey, nFlags &#41;\n      return 1\n   endif   \n\n   &#46;&#46;&#46;\n[/code:2tqzaeul]','',0,'AIA=','2tqzaeul',1,0,'',2,0,0),(7579,1740,3,2,0,'87.218.146.124',1140211759,1,0,1,1,1,1,'','','Enrico,\n\nThis is the right code:\n[code:20immp4n]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet\n\n   local nHi, nLo\n   local lAccept\n   local bKeyAction &#58;= SetKey&#40; nKey &#41;\n   local nDefButton\n\n   if nKey == VK_ESCAPE  // avoids a beep!\n      &#58;&#58;oWnd&#58;KeyChar&#40; nKey, nFlags &#41;\n      return 1\n   endif   \n\n   &#46;&#46;&#46;\n[/code:20immp4n]','',0,'AIA=','20immp4n',1,0,'',2,0,0),(7580,1810,3,98,0,'70.71.111.92',1140211943,1,0,1,1,1,1,'','Html viewer for FWH?','Hello\n\nHas anyone developed a FWH class that can view html without depending on any browse (like a sample René posted some time ago using OLE to load IE)?\n\nI\'m looking for a standalone viewer so show html file to users.\n\nThanks!','',0,'AIA=','102ctosc',1,0,'',98,0,0),(7581,1802,2,2,0,'87.218.146.124',1140212081,1,0,1,1,1,1,'','','Sebastián,\n\nIncluimos ese pequeño cambio por recomendación de Enrico y supusimos que no daría ningún problema.\n\nAqui puedes descargar el OBJ corregido:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/d5c74022/DBL2FLT.OBJ.html\">http://hyperupload.com/download/d5c7402 ... T.OBJ.html</a><!-- m -->','',0,'AIA=','axj8xa4b',1,0,'',2,0,0),(7582,1810,3,2,0,'87.218.146.124',1140212363,1,0,1,1,1,1,'','','Luis,\n\nYou may review samples\\webexp.prg using ActiveX or do you mean you don\'t want to use an Explorer alike app ?','',0,'AIA=','37ef7ik1',1,0,'',2,0,0),(7583,1811,6,255,0,'200.67.175.250',1140213074,1,0,1,1,1,1,'','OT:  Maldito VIRUUUS!!!!! HEEEEEEEELP !!!!!!!','AMIGOS !!\nPerdonen el OT pero me atacó un virus que nomás\nlo lo puedo quitar con nada! \nResulta que de entrada deshabilitó mi antivirus (Avast)\ntambien desaccivó mi LiveUpdate de Norton, las\nactualizaciones automáticas y por si fuera poco,\na unas páginas si me deja navegar a otras no y\nlo que es peor, no me deja instalar otro antivirus\nporque el Avast ya está instalado, pero cuando \nintento desinstalar el Avast simplemente se queda\npasmada!!! Ahhh!!! pero que pasa si intento\nmatar algun proceso?? pues q el maldito administrador\nde programas TAMPOCO FUNCIONA!! presiono CTRL +\nALT + SUPRIMIR y se ve por unos segundos el relojito\ny después vuelve a la flechita como si nada.\n\nA alguien le ha pasado ??? una manita por favooooor!!!\nGracias','',0,'AIA=','1ppiq2b0',1,0,'',255,0,0),(7584,1802,2,6,0,'87.3.232.215',1140215556,1,0,1,1,1,1,'','','Antonio, just try this:\n\n? NDBL2FLT( 0 )\n\nWith\n\nif ( d == 0 ) return 0;\n\nyou will get, correctly, 0 while without the above if you will get\n\n1073741824\n\nthat is clearly a wrong result (and caused wrong results in one of my programs, that is why I made that change).\n\nEMG','',0,'AIA=','v6c7relr',1,0,'',6,0,0),(7585,1740,3,6,0,'87.3.232.215',1140215676,1,0,1,1,1,1,'','','Thank you again!\n\nEMG','',0,'AIA=','24hds7i5',1,0,'',6,0,0),(7586,1804,3,6,0,'87.3.232.215',1140215731,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:137lpn6z]No, never <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:137lpn6z]\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','137lpn6z',1,0,'',6,0,0),(7587,1802,2,6,0,'87.3.232.215',1140215946,1,0,1,1,1,1,'','','And speaking of nDbl2Flt(), I just noticed that it is not in the libraries but only in source code. Why?\n\nEMG','',0,'gA==','333g56rr',1,0,'',6,0,0),(7588,1810,3,15,0,'203.73.90.187',1140215962,1,0,1,1,1,0,'','','Hello Antonio,\n\nI think Luis Krause mean don\'t use any IE or web browse to display html file.\n\nRegards,\n\nRichard','',0,'gA==','2qighfxw',1,0,'',15,0,0),(7589,1812,3,6,0,'87.3.232.215',1140216302,1,0,1,1,1,1,'','Bug in TButton CANCEL clause','The following sample shows that if you hit ALT-C the DIALOG is closed but the VALID of the GET is also executed while if you click on the button with the mouse the VALID is not executed (as it should be):\n\n[code:2r35uusq]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET cVar;\n           VALID &#40; MSGINFO&#40; &quot;Hello&quot; &#41;, &#46;T&#46; &#41;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;;\n           CANCEL\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2r35uusq]\n\nEMG','',0,'AIA=','2r35uusq',1,0,'',6,0,0),(7590,1786,22,15,0,'203.73.90.187',1140216364,1,0,1,1,1,0,'','','Hello oskar\n\nThank you for your post.\nI get it and work now.\n\nRegards,\n\nRichard','',0,'AIA=','3j32qw2x',1,0,'',15,0,0),(7591,1802,2,2,0,'87.218.146.124',1140220114,1,0,1,1,1,1,'','','Sebastian, \n\nFunciona bien ahora ?\n\nEnrico,\n\nLets see Sebastian\'s results. Anyhow I am going to review it. Thanks my friend.','',0,'AIA=','1ffzuvzl',1,0,'',2,0,0),(7593,1808,2,74,0,'190.48.214.150',1140225851,1,0,1,1,1,1,'','','servicomver:\n\n                    La propia clase twbrowse de hernan te permite hacer eso, ya sea sobre matrices o sobre dbfs. Uno de los ejemplos que vienen con la clase (sample01.prg) hace justamente eso sobre matrices. Fijate estos metodos:\n\n           oLbx:lAutoEdit  := .t.\n           oLbx:bEdit:= {|nCol, cBuffer, lFirstEdit|;\n                          EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal ) }\n\n                    Algo similar podes hacer con browses sobre dbfs:\n\n		  oBcli:lAutoEdit  := .t.\n		  oBcli:bKeyChar := {|nK| if( nK==VK_RETURN,oBcli:Edit(oBcli:nColAct,.t.),) }\n		  oBcli:bEdit:= {|nCol, cBuffer, lFirstEdit|;\n                           Edita2Celda( oDlg,oBcli, nCol,cBuffer,lFirstEdit )}\n\nFunction Edita2Celda( oFld,oLbx, nCol, cBuffer, lFirstEdit )\n LOCAL lContinue:= .t., bValid, nColReal:= nCol\n\n       Do Case\n        Case nCol == 2\n							 cBuffer:=val( left( Personas-&gt;C4, 2 ))         //C41\n               bValid:= {|| If( cBuffer &lt; 0 , ;\n                            (MsgStop( \"Numero de Nucleos Familiares Incorrecto, ingrese: \"+CRLF+CRLF+;\n																			\"un valor\",oemtoansi(\"Dato Inv lido\") ),.f.), .T. ) }\n\n               If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, \"@ZE 99\", bValid,,CLR_YELLOW )\n								  TrPerson-&gt;C4:=PADL(cBuffer,2,\'0\')\n               EndIf\n 			Case nCol == 6\n							 cBuffer:=Personas-&gt;FECNAC\n               If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, \"@d\", bValid,,CLR_YELLOW )\n								  TrPerson-&gt;FECNAC:=cBuffer\n               EndIf\nreturn lContinue\n\n               Con la variable lContinue controlas si sigue el ciclo de edicion (para pasar al siguiente registro y continuar agregando uno nuevo o si salis del modo de edicion).\n\n                La mayoria de las clases para browses (la tsbrowse de manuel mercado por ejemplo) permiten hacerlo.\n\nSaludos,','',0,'AIA=','26n94cn1',1,0,'',74,0,0),(7594,1812,3,303,0,'68.7.28.54',1140227321,1,0,1,1,1,0,'','','Enrico,\n\nI think you have it backwards. It sounds like the bug is in the Alt-C not the clicking the button. Valids are NOT supposed to be executed when the CANCEL clause is used. If there were, then you could not cancel a new (empty) dialog without filling in any data necessary to meet any VALIDs (and then such data would be discarded). Correct?\n\nJames','',0,'AIA=','3ps1o95w',1,0,'',303,0,0),(7595,1745,6,28,0,'87.218.47.102',1140227642,1,0,1,1,1,0,'','','Hola, realmente cuando pintas en el hBmp estas pintando sobre el bitmap. Supongo que te esta sucediendo esto porque cada vez que pintas vuelves a cargar el bitmap desde disco. \nPrueba a cargarlo una sola vez y \"matarlo\" cuando termines de utilizarlo. De esta manera los cambios permaneceran. \n\nEn cuanto al [b:1us1lplc]UNDO[/b:1us1lplc], (Por si las flais) se me ocurre que se puede ir salvando rectangulos de bitmap y guardandolos en un array anotando tambien las coordenadas de donde lo copiasteis. \n\n[i:1us1lplc][color=violet:1us1lplc]Vamos, lo del UNDO es porque yo lo pediria, ya puestos... [/color:1us1lplc]:D[/i:1us1lplc]\n\nPara salvar un rectangulo de bitmap:\n\nseleccionamos el bitmap en un dispositivo de contexto de memoria\n\n[code:1us1lplc]hDCMem &#58;= CreateCompatibleDC&#40; hDC &#41;\nhOldBmp &#58;= SelectObject&#40; hDCMem, hBmp &#41;\n\n//creamos un bitmap en memoria del tamaño del rectángulo que queremos\n\nhBmpMem &#58;= CreateCompatibleBitmap&#40; hDC, aRect&#91;4&#93;-aRect&#91;2&#93;, aRect&#91;3&#93;-aRect&#91;1&#93; &#41;\n\n//copiamos del bitmap inicial al destino el rectangulo que deseamos&#58;\n\n\nhDCMem2 &#58;= CreateCompatibleDC&#40; hDC &#41;\nhOldBmp2 &#58;= SelectObject&#40; hDCMem2, hBmpMem &#41;\n\nBitBlt&#40; hDCMem2, 0, 0, aRect&#91;4&#93;-aRect&#91;2&#93;, aRect&#91;3&#93;-aRect&#91;1&#93;, hDCMem, \naRect&#91;2&#93;, aRect&#91;1&#93;, SRCCOPY &#41; //13369376\n\nSelectObject&#40; hDCMem2, hOldBmp2 &#41;\nSelectObject&#40; hDCMem, hOldBmp &#41;\n\nDeleteDC&#40; hDCMem2 &#41;\nDeleteDC&#40; hDCMem &#41;[/code:1us1lplc]\nEn hBmpMem tenemos el trozo que hemos capturado. Lo metemos en un array y listo.\n\nHay que acordarse al final de todo este invento, cuando matemos el bitmap original y ya no nos sirva el array de bitmaps, de hacer un DeleteObject( aUndos[n] )\nDeleteObject( aUndos[n+1] )\netc...\n\nBueno creo que mas o menos esta es la idea. Acordaros de liberar siempre lo que pilleis antes.\n\nUn saludo\n\nPaco Garcia','',0,'YoA=','1us1lplc',1,0,'',28,0,0),(7596,1810,3,303,0,'68.7.28.54',1140227900,1,0,1,1,1,0,'','','Luis,\n\nThere is one: <!-- m --><a class=\"postlink\" href=\"http://www.subsystems.com\">http://www.subsystems.com</a><!-- m -->\n\nBut it is expensive, US$389, and you also have to purchase their editor for $539.\n\nMay I ask why you are looking for a standalone? Do you know that you can turn off the toolbar, address bar, and status bars of IE so it doesn\'t look like IE?\n\nJames','',0,'YoA=','3buj6nmk',1,0,'',303,0,0),(7597,1811,6,28,0,'87.218.47.102',1140228005,1,0,1,1,1,0,'','','AMIMEHADEJADOINUTILIZADALABARRAESPACIADORA.ESPEROQUESETEARREGLEPRONTOELPROBLEMAPORQUESINOVAASERUNJALEO:D:D:D:D\nEnseriosuerte <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->','',0,'YoA=','4hydjdn8',1,0,'',28,0,0),(7598,1804,3,303,0,'68.7.28.54',1140228255,1,0,1,1,1,0,'','','[quote:1fbqmfxd]By the way - do you (and James and Antonio) ever sleep?  [/quote:1fbqmfxd]\n\nI think the answer lies in the bags under my eyes...\n\nJames','',0,'gA==','1fbqmfxd',1,0,'',303,0,0),(7599,1814,3,34,0,'68.4.154.81',1140228373,1,0,1,1,1,1,'','Text color on button','How can we change the color of a text item on a button ?\n\nI have a calendar and I want some days ( no appointments ) in grey, while days with activity I want shown in blue.  Finally, the current day needs to stand out in red.  \n\nThe buttons are stored in a two dimensional array.  \n\nThe problem is that I\'m having difficulty changing the text color on the button.\n\nMust be old age ....\n\nTim','',0,'gA==','3chypy5c',1,0,'',34,0,0),(7600,1811,6,74,0,'190.48.214.150',1140229871,1,0,1,1,1,1,'','','Juan Carlos:\n\n                   Es una lucha estos dias con los virus, yo acabo de sacar uno que me tiene alquilado que te agrega exes en el inicio x todos lados te crea un host en tu pc y te hace desastres.\n\n                    Lo que yo haria es:\n\n1-Si te deja poner inicio-&gt;ejecutar y tipeas MSCONFIG. Ahi en la ultima solapa INICIO desmarcas cualquier ejecutable que se haya agregado y que no sea ni de windows ni de antivirus ni de programas que uses (los ultimos que he visto son por ejemplo vhost.exe, winbl8.exe, msnmrigr.exe, msmsgs.exe, exploirer.exe), la mayoria son claves de registro agregadas para el inicio de la maquina, que tambien podes borrar tipeando REGEDIT y borrandolos en la rama:\n\nHKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\n\no \\runonce\n   \\runonceex\n   \\runservices (estos son los servicios)\n\n en la anteultima solapa, SERVICIOS ahi a veces los virus te agregan servicios tipo SERVICE HOSTS o cosas x el estilo (ahi es util usar el checkbox OCULTAR TODOS LOS SERVICIOS DE MICROSOFT para asegurarte que no deshabilites un servicio que el windows necesite. Todo lo que sean exe si te deja (la mayoria de las veces no) los borras a mano. Reinicias inmediatamente y volves a verificar que no esten nuevamente activos y los borras a mano, corres los antivirus y demas.\n\n             Si el windows anda tan mal que no te permite hacer nada de eso\ntenes que presionar F8 durante el inicio de la maquina y prender en modo a prueba de fallos y hacerlo ahi. Tambien tendrias que ir a panel de control-&gt;agregar o quitar programas y desintalar cualquier programa que figure ahi que se te haya agregado. Toma nota de todos los exes que se te agreguen (para despues buscar informacion en internet sobre que virus son, como atacan y como se sacan. Tambien pegale una miradita al autoexec.bat / .nt (si es xp/2000) por si te agregaron algo ahi. Proba correr todos los antivirus que tengas con el windows encendido en modo a prueba de fallas, casi seguro que en ese modo si se pueden correr porque windows carga solo los programas y controladores minimos necesario y eso hace que la mayoria de los virus que pudieras tenes no esten en memoria y no actuen contra los antivirus y que este pueda eliminarlos (muchas veces si estan activos el antivirus no lo puede eliminar porque el ejecutable esta en memoria en ese momento).\n\n             Siguiendo esos pasos en el 99.99 de los casos salis del problema, sobre todo si no hace mucho que los virus estan actuando. Si pasa el tiempo a veces los virus te reemplazan ejecutables y dlls del propio windows por sus versiones y el daño ya es irreversible y no queda otra que reinstalar, pero en tu caso no creo.\n\nSaludos y suerte, sino me agregas al msn y si te puedo ayudar en algo mas lo hacemos x ahi\n\n              Otra cosa que tendrias que hacer es correr al menos dos antyspy como spybot search &amp; destroy y ad-aware.','',0,'gA==','2q4f7ldv',1,0,'',74,0,0),(7601,1810,3,239,0,'61.144.160.50',1140235082,1,0,1,1,1,0,'','','May convert hwgui\'s html view class into fwh .','',0,'gA==','36nkiasd',1,0,'',239,0,0),(7602,1815,3,239,0,'61.144.160.50',1140235261,1,0,1,1,1,0,'','Could print into a jpg img file ?','Could report /printer class print  and gen a jpg like file?\nSometimes printout and fax may  fail .\nThanks !\nShuming Wang','',0,'gA==','3oo89slq',1,0,'',239,0,0),(7603,1683,3,239,0,'61.144.160.50',1140235616,1,0,1,1,1,0,'','','FUNCTION eng0504(itemid1)\n   local oWnd1, oBar, oTree, oBmp1, oBmp2, odb1\n   private oImageList\n\n   DEFINE WINDOW oWnd1 FROM 3, 0 TO 30, 105 ;\n      TITLE \"&#29289;&#26009; \"+ALLTRIM(itemid1) + \" &#26641;&#22411;BOM&#23637;&#24320;&#34920;\"  \n\n   oImageList = TImageList():New()\n\n   oBmp1 = TBitmap():Define( \"folder\",, oWnd )\n   oBmp2 = TBitmap():Define( \"fldMask\",, oWnd)\n\n   oImageList:Add( oBmp1, oBmp2 )\n\n   oTree = TTreeView():New( 3, 0, oWnd1)\n   oTree:bChanged = { || eng050401( oTree:GetSelected()) }\n\n   oTree:SetImageList( oImageList )\n   \n   oItem = oTree:Add(itemid1)\n   \n   odb1:=oServer:Query(\"select bom2.itemidc itemidc,goods2.descrip descrip,unit.unit unit,substring(bom2.mem,1,25) mem,bom2.qty/bom2.qtydevisor/(1-ifnull(bom2.scraprate,0)/100) qty,bom1.version version\";\n                        +\" from bom1,bom2,goods2\";                       \n                        +\" left outer join unit on unit.itemid=bom2.itemidc and unit.unitid=bom2.unitid\";\n                        +\" where bom1.itemid=\'\"+itemid1+\"\' and bom1.startdate&lt;=curdate() and bom1.enddate&gt;=curdate() and bom2.itemid=\'\"+itemid1+\"\' and bom2.version=bom1.version and goods2.itemid=bom2.itemidc \")\n                         \n   while !odb1:EOF()\n   	oItem:Add(odb1:itemidc+\" \"+odb1:descrip+\" \"+odb1:unit+\" \"+padl(cvaltochar(odb1:qty),nqtylen,\" \")+\" V\"+alltrim(odb1:version)+\" \"+odb1:mem)\n   	odb1:SKIP()\n   enddo\n   \n   oWnd1:oClient:=oTree\n	oTree:Expand()\n	SET MESSAGE OF oWnd1 TO \"BOM&#26641;&#22411;&#23637;&#24320;&#34920;\" FONT ofont14\n   ACTIVATE WINDOW oWnd1 VALID (oBmp1:End(),oBmp2:End(),.t.)\n	odb1:end()\n   oImageList:End()\n   oBmp1:End()\n   oBmp2:End()\nreturn\n\nFUNCTION eng050401(oItem)\nlocal odb1\n\n if LEN(oItem:aItems)=0\n   \n    odb1:=oserver:Query(\"select bom2.itemidc itemidc,goods2.descrip descrip,unit.unit unit,substring(bom2.mem,1,25) mem,bom2.qty/bom2.qtydevisor/(1-ifnull(bom2.scraprate,0)/100) qty,bom1.version version \";\n                        +\" from bom1,bom2,goods2 \";                       \n                        +\" left outer join unit on unit.itemid=bom2.itemidc and unit.unitid=bom2.unitid\";\n                        +\" where bom1.itemid=\'\"+LEFT(oitem:cprompt,nitemidlen)+\"\' and bom1.startdate&lt;=curdate() and bom1.enddate&gt;=curdate() and bom2.itemid=\'\"+LEFT(oitem:cprompt,nitemidlen)+\"\' and bom2.version=bom1.version and goods2.itemid=bom2.itemidc \")\n	                     \n   \n   while !odb1:EOF()\n   	oItem:Add(odb1:itemidc+\" \"+odb1:descrip+\" \"+odb1:unit+\" \"+STR(odb1:qty*val(substr(oitem:cprompt,nitemidlen+len(odb1:descrip)+len(odb1:unit)+4,nqtylen)),nqtylen,nqtydec)+\" V\"+odb1:version+\" \"+odb1:mem)\n   	odb1:SKIP()\n   enddo\n   oitem:expand()\n    odb1:end()\n endif\n\nreturn','',0,'gA==','2wua305l',1,0,'',239,0,0),(7604,1811,6,252,0,'201.140.20.21',1140235911,1,0,1,1,1,0,'','','Para que se complican la vida. Yo me voy a lo practico, a veces se pueden pasar dias buscando alguna vacuna, parche o metodo para quitar un virus, cuando con una reformateada y reinstalacion de sistemas y archivos no se pasan mas de 3 o 4 horas. Ademas con la reformateada, el windows recien instalado queda mas \"al tiro\" y se ejecutan mucho mas rapido las aplicaciones.\n\n   Para los que tienen discos muy grandes, recomiendo que hagan una particion para el windows y otra para sus archivos de datos y progamas de instalacion. De esta forma en una futura viruleada solo formatean la unidad C reinstalan windows y aplicaciones, sin tener que respaldar y bajar la informacion de su otra particion. \n\n   Existe tambien una utileria llamada Ghost de symantec que permite grabar la imagen de una particion y almacenarla como un archivo, para en cualquier momento, dejar la particion en estado identico a como estaba cuando se genero el archivo. Esto hace que ya no sea necesario repetir todo el proceso de formateo e instalacion de windows y sistemas cuando se requiera posteriormente. \n   \n   Es decir.\n\n    1.- Se formatea el equipo y se instala el windows y las aplicaciones basicas (word, excel, etc).\n \n    2.- Se genera un archivo con la imagen de la particion de arranque de windows  con el ghost. Este archivo puede almacenarse en cualquier medio.\n\n    3.- Se instalan las demas aplicaciones no consideradas como basicas y se restauran los respaldos.\n\n    Cuando el equipo se virulee, ya no es necesario repetir todo el proceso de formateo e instalacion de windows. Solo se regenera la particion de windows a partir del archivo que se genero, esto solo lleva unos 15 o 20 minutos. \n\n    El mismo ghost genera un cd de arranque para poder restaurar la particion sin ejecutar windows.\n     \n     Este metodo lo estan usando colegas que tienen ciber-cafes, ahorrandose mucho tiempo en reformateo de las maquinas cuando tienen una contaminacion masiva.\n\n     Claro hay situaciones en la que el formateo es indispensable, por ejemplo cuando el disco tiene sectores dañados. \n\n     Saludos.\n\n     Jose Rios.','',0,'gA==','phlfzcuu',1,0,'',252,0,0),(7605,1587,3,239,0,'61.144.160.50',1140236520,1,0,1,1,1,0,'','','create table lang1.dbf:\n  clang1 c ,20\n  clang2 c,20\n  clang3  c,20 \n,...\n\nindex on clang1 to lang1\n\n\nfunction main()\n\npublic nlang:=1\n\n\n   @1,1 get nlang of odlg\n\nif nalng&gt;1\n\nuse lang1  new\nend\n\n  .....\n\nrturn \n\n\nAll classes which include ccation like dialog,get,say,folder,checkbox,browse,...,  about 10 classes  modify like:\n  \nif nlang&gt;1\n   select lang1\n   seek ::ccaption\n   if found()\n       ::ccaption:=lang1-&gt;(fieldget(nlang))\n   end\nend\n\n\nSource  prgs even not  need modify ,  you can get your app support multi lang .\n\nBest Regards!\n\nShuming Wang','',0,'gA==','1nv4plr4',1,0,'',239,0,0),(7606,1806,6,74,0,'190.48.214.150',1140236946,1,0,1,1,1,1,'','','Gustavo:\n\n Podes usar el evento ON MOVE del activate dialog y ahi preguntar si el dialogo esta siendo minimizado, o que ancho y alto tiene con oDlg:nWidth, oDlg:nHeight y ahi hacer lo que necesites si el dialogo acaba de ser minimizado (obviamente en el resto de los casos, si fue maximizado o movido no haces nada, pero el evento on move se ejecuta al minimizarlo y ahi lo interceptas). \n\nSaludos,','',0,'gA==','x6e59dvh',1,0,'',74,0,0),(7607,1743,3,32,0,'196.36.8.34',1140243468,1,0,1,1,1,0,'','Themed button working','Thanks, that change works, along with changing the first zero to 1 in the DrawThemeBackground call, and the second parameter is 1 for normal 2 for \"hot\", 3 for down, and 4 for disabled.\n\nOnly problem now is detecting when mouse leaves the control. I\'ve copied the basics from btnbmp:mousemove but no luck so far. What am I missing?\n\n[code:1cjhn2dt]\nMETHOD MouseMove&#40; nRow, nCol, nKeyFlags &#41; CLASS QButton\n\n//   Super&#58;MouseMove&#40; nRow, nCol, nKeyFlags &#41;\n\n\n   if IsOverWnd&#40; &#58;&#58;hWnd, nRow, nCol &#41;\n      &#58;&#58;nState &#58;= 2\n   else\n      &#58;&#58;nState &#58;= 1\n   endif\n\n   &#58;&#58;Refresh&#40;&#41;\nreturn nil\n//---------------------------------------------------------------------------------------------//\nMETHOD Paint&#40;&#41; CLASS QButton\n\n  // 1 Regular\n  // 2 Mouse over\n  // 3 Down\n  // 4 Disabled\n\n  DrawQBBackground&#40;&#58;&#58;hWnd, &#58;&#58;hDc, &#58;&#58;nState&#41;\n\nRETURN NIL\n[/code:1cjhn2dt]','',0,'AIA=','1cjhn2dt',1,0,'',32,0,0),(7608,1804,3,419,0,'196.25.255.210',1140246283,1,0,1,1,1,0,'','','More problems with HELP! Help!\n\nI am testing FWH with Fast-Help Demo (very expensive but appears to be worth the price).\n\nI am not sure if this is problem is coming from FWH or Fast-Help:\n\nWhen defining a HELP button with HELPTOPIC in my application e.g. HelpTopic( \'New Branch\' ) the correct HELP TOPIC is displayed when pressing the button (within my application) BUT when trying to add context specific help to a GET using HELPID e.g. HelpID( 10008 ) there is an attempt to display the context specific help text from my Fast-Help .hlp file BUT althought the popup help window is displayed there is no text just a blank block.\n\nI know that it is finding the correct HELPID in the .hlp file because on another GET that has a non existent HELPID defined (non existent in the .hlp file) the same popup help window is displayed but this at least says \'No Help Topic Associated With This Item\'.\n\nWhat is strange is that if I create a HELPTOPIC in the .hlp file i.e. not a POPUP then the heading of the HELPTOPIC is displayed as context specific help and only the heading is displayed.\n\nIs this an incompatibility between Fast-Help and FWH or problem with my logic?\n\nDale.','',0,'AIA=','d5d87ul7',1,0,'',419,0,0),(7609,1801,19,375,0,'84.122.123.96',1140249541,1,0,1,1,1,1,'','','Muchas Gracias a todos. \nMe habeis convencido, en cuanto acabe lo que tengo empezado, le meteré mano al xHarbour, a ver si llego a buen puerto','',0,'AIA=','163yxg0s',1,0,'',375,0,0),(7610,1811,6,375,0,'84.122.123.96',1140250420,1,0,1,1,1,1,'','','Yo también pienso que lo mejor es reinstalar el Windows. Pero cuando ya esté satisfecho con la instalación. Con todas las aplicaciones que te gustan, etc. Haz una imagen de tu disco duro. Se hace en pocos minutos y te resuelve muchos problemas.\n\nOtra cosa, antes de formatear el disco duro, quita la partición actual para asegurarte de que no queda ningún rastro del animal. Después, si dispones de espacio sufisiente, te aconsejo que crees dos particiones, con dos sistemas operativos independientes, uno para Internet y otra para programación, pues quien te asegura a ti que las copias de seguridad que tienes ya no están infectadas. Con dos particiones,  si una está infectada, es muy probable que la otra no lo esté (a no ser que diariamente pases datos de una a otra).','',0,'AIA=','3vevsgwb',1,0,'',375,0,0),(7611,1816,3,379,0,'59.167.104.143',1140251248,1,0,1,1,1,0,'','Rich Text Controls and Memos','Is anyone saving the rich text file data to memos?  Or is there a better control to you to format text in memos?\n\nCheers\nGerry','',0,'AIA=','2egjidw0',1,0,'',379,0,0),(7612,1817,3,148,0,'82.201.234.245',1140252273,1,0,1,1,1,0,'','Assign Dialog from source to Folder Action','I am trying to assign a dialog from source as below :\n[code]\n@ 1,1 FOLDER oFld1 of oDlg;\n      PROMPT \"List\", \"contracts\", \"Sites\", \"Departments\" ,;\n      \"Machines\", \"Operators\", \"Jobs\",;\n      \"Machines\", \"Operators\", \"Jobs\";\n      DIALOGS \"custDlg\"\nSo custDlg is shared dialog put in other procedures . May I put it as global static variable to be shared between many procedure ?','',0,'','1bafj2zi',1,0,'',148,0,0),(7613,1587,3,148,0,'82.201.234.245',1140252390,1,0,1,1,1,0,'','','I need to ask a primitive question :\nWhat will be the contents of lang1.dbf ?','',0,'','3894428e',1,0,'',148,0,0),(7614,1818,3,148,0,'82.201.234.245',1140252551,1,0,1,1,1,0,'','Multiple fields in printing','How can I print the whole fields of DBf in preview.dll put all fields simulataneoulsy in separate pages ?','',0,'','3m0sygo1',1,0,'',148,0,0),(7615,1819,3,148,0,'82.201.234.245',1140252636,1,0,1,1,1,0,'','Unix and fivewin','Can fivewin(Which version?) working under Solaris for intel platform ?','',0,'','7rweji1v',1,0,'',148,0,0),(7616,1811,6,46,0,'217.168.114.46',1140262276,1,0,1,1,1,0,'','','Pues puedes intentar \n\nPrimero Bajate este software\n- <!-- m --><a class=\"postlink\" href=\"http://www.wilkinsonpc.com.co/free/hijackthis.html\">http://www.wilkinsonpc.com.co/free/hijackthis.html</a><!-- m -->, es un utilitario que te permiti ver todas la entradas sospechosas de tu registro de windows.\n\n- Reinicia tu Wiwndows e ingresa a modo de Prueba F8\n\n- Ejecuta hijackthis\n\n- Verificas las entradas sospechosas ... \n\n- Marcas para eliminar.. y pos...  ja esta..\n\nEs un utilitario que me ha salvado de reinstlar tudo el windows de nuevo.\n\nSaludos..\n\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'','zbsep2ll',1,0,'',46,0,0),(7617,1819,3,2,0,'87.218.146.20',1140263130,1,0,1,1,1,1,'','','If you can build Harbour on Solaris (you probably should) and if there is GTK+ for Solaris, then you could use FiveLinux.\n\nAnother choice is use Wine emulator, that lets you run Windows application on Unix systems.','',0,'','27v03a4n',1,0,'',2,0,0),(7618,1811,6,2,0,'87.218.146.20',1140263447,1,0,1,1,1,1,'','','Lo primero es hacer copia de seguridad de la información valiosa que tengas en el disco duro. Para eso arranca el ordenador con \"Knoppix\" CD, que un Linux Live que te deja grabar CDs, acceder a la red, Internet, etc.\n\nUna vez tengas la información salvada, vuelve a instalar Windows, borrando todo.\n\nTenias el Avast al dia de actualizaciones ? Donde pillastes el virus ?','',0,'','27ajyvsd',1,0,'',2,0,0),(7619,1804,3,419,0,'196.25.255.210',1140265403,1,0,1,1,1,0,'','','After further testing of the above I decided to try using an old version of DotHLP and the same problem exists (although with this version I cannot even get a HELP POPUP to appear as a HELP TOPIC when defining HELPID).\n\nIt would appear that FWH HELPTOPIC( ) and HELPINDEX( ) are working correctly BUT REDEFINE GET OGET VAR CVAR HELPID( 1000 ) (for example) is not sending the correct parameter to the help system unless I am doing something wrong.\n\nThoughts,\n\nRegards,\n\nDale.','',0,'','2n0exrx9',1,0,'',419,0,0),(7620,1748,3,419,0,'198.54.202.234',1140265918,1,0,1,1,1,0,'','','Hi Peter,\n\nDid you ever resolve this issue?\n\nI have also just started writing .hlp files for an application and seem to be having some weird and wonderful things happen - see my message thread \'Help on Help\'.\n\nI have tried using DotHLP (supposedly 32-bits) as well as Fast-Help (Demo) (also 32-bits) but no luck.\n\nI also seem to remember that when using DotHLP and 16-bit FW things worked but that was a long time ago and have never tried to document a FWH (32-bits) system until now.\n\nRegards,\n\nDale.','',0,'','1a86a0gu',1,0,'',419,0,0),(7621,1743,3,6,0,'87.11.229.171',1140266403,1,0,1,1,1,1,'','Re: Themed button working','Try adding hb prefix to all the _par* and _ret* functions.\n\nEMG','',0,'','2mrlrg5z',1,0,'',6,0,0),(7622,1804,3,419,0,'196.25.255.210',1140266634,1,0,1,1,1,0,'','','Further testing and it appears that the problem is with the HELPID parameter - how to fix?\n\nRegards,\n\nDale.','',0,'','cwjk0ad6',1,0,'',419,0,0),(7623,1814,3,6,0,'87.11.229.171',1140266677,1,0,1,1,1,1,'','Re: Text color on button','[quote=&quot;TimStone&quot;:130pb4s1]How can we change the color of a text item on a button ?[/quote:130pb4s1]\n\nYou can\'t change the colors of a TButton (standard Windows pushbuttons). Try using a TBtnBmp instead (or maybe a TButtonBmp but I\'m not sure).\n\nEMG','',0,'gA==','130pb4s1',1,0,'',6,0,0),(7624,1812,3,6,0,'87.11.229.171',1140266936,1,0,1,1,1,1,'','','Yes, the bug is in the Alt-C. That\'s what I said (or that I was trying to say, sorry for my bad english).\n\nEMG','',0,'gA==','25ooj3sx',1,0,'',6,0,0),(7625,1743,3,32,0,'196.36.8.34',1140266958,1,0,1,1,1,0,'','Themed button working','I don\'t have a problem in my C code anymore. It links and works perfectly. I now need to detect in my control events when the mouse leaves my control.\n\nI suppose you receive mousemove while in the control, but what do you receive when the mouse moves out of the control?\n\nAlex','',0,'gA==','1evgkjfl',1,0,'',32,0,0),(7626,1802,2,6,0,'87.11.229.171',1140267146,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2rizrlko]And speaking of nDbl2Flt(), I just noticed that it is not in the libraries but only in source code. Why?\n\nEMG[/quote:2rizrlko]\n\nI ask myself, how could have Sebastian tried nDbl2Flt() if it is not in the libraries? Did you compile the source code?\n\nEMG','',0,'gA==','2rizrlko',1,0,'',6,0,0),(7627,1804,3,419,0,'198.54.202.210',1140267286,1,0,1,1,1,0,'','','And more further testing it appear to be a problem with a combination of HELPID and the display thereof.\n\nIf I use Fast-Help (Demo) and HELPID on a GET (and the HELPID is defined in the .HLP file) a blank block is displayed and I am almost sure that the text that is in fact NOT being displayed is the \'No Help Topic .....\' etc. etc. but if your HELPID is defined in your FWH application but has not been defind in your .HLP file then the \'No Help Topic .....\' message is displayed correctly.\n\nRegards,\n\nDale.','',0,'gA==','38xj30aa',1,0,'',419,0,0),(7628,1743,3,6,0,'87.11.229.171',1140267289,1,0,1,1,1,1,'','Re: Themed button working','Have a look at how tooltips are managed. Or TBtnBmp states.\n\nEMG','',0,'gA==','jpzt6uof',1,0,'',6,0,0),(7629,1812,3,419,0,'198.54.202.210',1140267461,1,0,1,1,1,0,'','','Hello,\n\nQuite right - just tested - does the same on all of my dialogs - Cancel Button (with CANCEL clause) when clicked - no problem / Alt-C - big problem - GET is VALIDATED.\n\nDale.','',0,'gA==','1t2zboq8',1,0,'',419,0,0),(7630,1743,3,32,0,'196.36.8.34',1140267927,1,0,1,1,1,0,'','Got it','Hi,\n\nIt\'s working now, thanks.','',0,'gA==','25adabsq',1,0,'',32,0,0),(7631,1743,3,6,0,'87.11.229.171',1140268097,1,0,1,1,1,1,'','Re: Got it','How you solved the problem?\n\nEMG','',0,'gA==','2k7us7sq',1,0,'',6,0,0),(7632,1820,3,379,0,'59.167.104.143',1140268156,1,0,1,1,1,0,'','TER by Subsystems','Anyone using TER with Fivewin/(x)Harbour.  TER is a Rich Text Editing Library by Subsystems.\n\nIf so could you please supply a sample of how you are using this library.\n\nCheers\nGerry','',0,'gA==','3gq806n4',1,0,'',379,0,0),(7633,1743,3,32,0,'196.36.8.34',1140268682,1,0,1,1,1,0,'','Working button','I copied the whole btnbmp mousemove event, and removed everything I didn\'t need <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[code:3h26m5r0]\nMETHOD MouseMove&#40; nRow, nCol, nKeyFlags &#41; CLASS QButton\n\n   if &#58;&#58;lDrag &#46;or&#46; ! Empty&#40; &#58;&#58;oDragCursor &#41;\n      return Super&#58;MouseMove&#40; nRow, nCol, nKeyFlags &#41;\n   endif\n\n   Super&#58;MouseMove&#40; nRow, nCol, nKeyFlags &#41;\n\n   if IsOverWnd&#40; &#58;&#58;hWnd, nRow, nCol &#41;\n      if !&#58;&#58;lCaptured\n        &#58;&#58;Capture&#40;&#41;\n        if &#58;&#58;nState != 2\n          &#58;&#58;nState &#58;= 2\n          &#58;&#58;Refresh&#40;&#41;\n        endif\n      else\n        &#58;&#58;Refresh&#40;&#41;\n      endif\n   else\n      if !&#58;&#58;lCaptured\n         ReleaseCapture&#40;&#41;\n        if &#58;&#58;nState != 1\n          &#58;&#58;nState &#58;= 1\n          &#58;&#58;Refresh&#40;&#41;\n        endif\n      else\n        &#58;&#58;Refresh&#40;&#41;\n      endif\n   endif\n\n   &#58;&#58;oWnd&#58;SetMsg&#40; &#58;&#58;cMsg &#41;\n\nreturn 0\n//---------------------------------------------------------------------------------------------//\nMETHOD Paint&#40;&#41; CLASS QButton\n\n  // 1 Regular\n  // 2 Mouse over\n  // 3 Down\n  // 4 Disabled\n\n  DrawQBBackground&#40;&#58;&#58;hWnd, &#58;&#58;hDc, &#58;&#58;nState&#41;\n\nRETURN NIL\n\n[/code:3h26m5r0]\n\nC Code:\n[code:3h26m5r0]\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n#ifdef __FLAT__\n   #include &lt;ShellApi&#46;h&gt;\n#endif\n\n#ifdef __HARBOUR__\n   #include &lt;hbapiitm&#46;h&gt;\n   #include &lt;hbdate&#46;h&gt;\n   #include &lt;hbset&#46;h&gt;\n#endif\n#include &quot;uxtheme&#46;h&quot;\n\nHB_FUNC&#40; DRAWQBBACKGROUND &#41;\n&#123;\n   HTHEME hTheme;\n   HDC hDc;\n   HWND hWnd;\n   RECT rcWnd;\n   int iStateId = 1;\n\n   hWnd    = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n   hDc = &#40; HDC &#41; _parnl&#40;2&#41;;\n\n   GetClientRect&#40; hWnd, &amp;rcWnd &#41;;\n\n   hTheme = OpenThemeData&#40;hWnd, L&quot;COMBOBOX&quot;&#41;;\n\n   if &#40; hTheme&#41;\n   &#123;\n      DrawThemeBackground&#40;hTheme,\n                    hDc,\n                    1,\n                    &#40; ISNUM&#40;3&#41; ? _parni&#40; 3 &#41; &#58; 1 &#41;,\n                    &amp;rcWnd,\n                    NULL&#41;;\n\n    CloseThemeData&#40;hTheme&#41;;\n    _retni&#40;1&#41;;\n   &#125;\n   else\n   &#123;\n    _retni&#40;0&#41;;\n   &#125;\n\n&#125;\n[/code:3h26m5r0]','',0,'AIA=','3h26m5r0',1,0,'',32,0,0),(7634,1743,3,6,0,'87.11.229.171',1140269048,1,0,1,1,1,1,'','Re: Working button','Great!\n\nEMG','',0,'AIA=','rfgsob4l',1,0,'',6,0,0),(7635,1780,2,404,0,'213.231.101.107',1140269476,1,0,1,1,1,0,'','Me alegra.','El haberte ayudado, me alegra.\n\nLo de modificar, el [u:4udnzmhi]CONFIG.SYS[/u:4udnzmhi] y, el [u:4udnzmhi]AUTOEXEC.BAT[/u:4udnzmhi], es por costumbre.\n\nNunca te acostaras, sin saber algo nuevo. Gracias por la puntualización Daniel.\n\nSaludos, José Mª','',0,'AQ==','4udnzmhi',1,0,'',404,0,0),(7636,1821,6,362,0,'200.168.52.156',1140269571,1,0,1,1,1,1,'','CLASSE DSAY.PRG CON COMANDO TRANSPARENT','Buenas...\n\nHola Foro. Necesito di una DSAY.PRG y DSAY.CH modificada para el uso del comando TRANSPARENT. \n\nÉs posible??\n\n<!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->\n\nGracias, Saludos a todos.','',0,'AQ==','1j1a7ynl',1,0,'',362,0,0),(7637,1822,3,32,0,'196.36.8.34',1140271214,1,0,1,1,1,0,'','TSay class and non themed apps','Hi, I got an argument error .or. in the tsay class in here \n\n[code:2bhxwdbv]\nMETHOD EraseBkGnd&#40; hDC &#41; CLASS TSay\n\n   if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent\n      return 1\n   endif\n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41;\n[/code:2bhxwdbv]\n\nIt seems lTransparent does not get initialized. I added\n\n::lTransparent := .f. to TSay():New()\n\nNot exactly sure why it came up, but it did','',0,'AIA=','2bhxwdbv',1,0,'',32,0,0),(7638,1822,3,6,0,'87.11.229.171',1140274239,1,0,1,1,1,1,'','Re: TSay class and non themed apps','[code:2hljeexd]\nMETHOD EraseBkGnd&#40; hDC &#41; CLASS TSay\n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;  &lt;-- NOTE\n\n   if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent\n      return 1\n   endif\n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41;\n[/code:2hljeexd]\n\nEMG','',0,'AIA=','2hljeexd',1,0,'',6,0,0),(7639,1823,3,49,0,'87.3.181.81',1140278855,1,0,1,1,1,1,'','Test scroll','Imust show a big Image \nI must use vertical scroll\nHave you an sample test to make it ?\n\nRegards\nSilvio','',0,'AIA=','zslf90qf',1,0,'',49,0,0),(7640,1746,20,49,0,'87.3.181.81',1140279445,1,0,1,1,1,1,'','','ripeto non devo stampare niente\n\n ripeto ER lo fa non settando nessuna stampante ( ho provato il programma su un computer senza stampante installata) \n\nHo un vecchio programma demo della infoser  ( l\'anteprima di stampa di questo programma risale al 2001 , alle vecchie anteprime circa ver fw 18 -19.5)\n \nIn questo programma c\'è un design e lui fa selezionare il tipo del foglio e automaticamente restituisce nei get la larghezza e l\'altezza del foglio.\n\n Quindi se si poteva fare nel 2001 si potrebbe certamente fare adesso.\n\nHo controllato non c\'è nessun archivio con parametri dei fogli nel programma demo suddtto quindi o li hanno inseriti su un doppio array ( e questo mi appare improbabile)  o c\'è una funzione che noi a questo punto non conosciamo che  restituisce la larghezza e l\'altezza del foglio passato il tipo del foglio.\n\nA parte che ho saputo che nella versione nuova di fw c\'è pagesetup che fa in pratica quello che io voglio fare ....e anche questa funzione pare che non setta nessuna stapante(oprn) prima infatti si puo\' compilare un programma con semplicemente chiamando questa funzione :\n[code:43r707zf]\n# include&quot;fivewin&#46;ch&quot;\nfunc Main&#40;&#41;\npagesetup&#40;&#41;\nreturn nil \n[/code:43r707zf]\n\nma io volevo fare  un dialog simile  ( dato che non ho l\'agg.) inserendo anche altri parametri che a me servono per un programma.','',0,'AIA=','43r707zf',1,0,'',49,0,0),(7641,1742,2,49,0,'87.3.181.81',1140280280,1,0,1,1,1,1,'','','I sent you on private email','',0,'AIA=','3vtog8ub',1,0,'',49,0,0),(7642,1824,20,49,0,'87.3.181.81',1140280456,1,0,1,1,1,1,'','A4 dentro ad una finestra','come posso inserire un foglio a4 dentro ad una finestra e inserire lo scroll verticale e zoomare il foglio ?\navete per caso un esempio ...?\n\nGrazie','',0,'AIA=','3tcbaiv9',1,0,'',49,0,0),(7643,1746,20,6,0,'87.11.229.171',1140280565,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1wedyd77]ripeto non devo stampare niente[/quote:1wedyd77]\n\nTu hai detto: \"PrnSetPage() non setta la pagina\". Probabilmente non ho capito cosa intendevi ma come fai a dire che non setta la pagina? Hai chiamato forse qualche funzione che te lo dice? Io l\'unico modo che conosco per verificare se il formato pagina scelto è stato effettivamente impostato è di provare a stampare. Io l\'ho fatto e funziona, anche in anteprima di stampa.\n\nPer quanto riguarda le dimensioni del foglio, come ho già detto, non ne so niente.\n\nEMG','',0,'gA==','1wedyd77',1,0,'',6,0,0),(7644,1825,3,6,0,'87.11.229.171',1140281008,1,0,1,1,1,1,'','TPrinter:Preview() method','Is it right that TPrinter:Preview() method\n\n[code:39v0a7c9]METHOD Preview&#40;&#41; INLINE If&#40; &#58;&#58;lMeta &#46;and&#46; Len&#40; &#58;&#58;aMeta &#41; &gt; 0 &#46;and&#46; &#58;&#58;hDC != 0,;\n                               RPreview&#40; Self &#41;, &#58;&#58;End&#40;&#41; &#41;[/code:39v0a7c9]\n\ncalls ::End() if ::lMeta is .F.? If I\'m not wrong, it seems that it calls ::End() a second time inside PrintEnd() function:\n\n[code:39v0a7c9]FUNCTION PrintEnd&#40;&#41;\n\n     IF oPrinter&#58;lMeta\n          oPrinter&#58;Preview&#40;&#41;\n     ELSE\n          oPrinter&#58;End&#40;&#41;\n     ENDIF\n\n     oPrinter &#58;= nil\n\nRETURN nil[/code:39v0a7c9]\n\nEMG','',0,'AIA=','39v0a7c9',1,0,'',6,0,0),(7645,1826,3,335,0,'68.193.88.53',1140283168,1,0,1,1,1,0,'','Report.prg (Treport) Spanish to English comments translation','For anyone who would like to have a set of English translations of all of the Spanish explanatory comments that are embedded within Report.prg, you can get them by downloading Report.txt from the following URL...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/support/report.txt\">http://www.leadersoft.com/support/report.txt</a><!-- m -->\n\n- Roger','',0,'AIA=','2h55cri1',1,0,'',335,0,0),(7646,1827,3,6,0,'87.11.229.171',1140283324,1,0,1,1,1,1,'','GetPrintDefault()','GetPrintDefault() does not use any input parameter but it is called (from printer.prg) with one parameter:\n\n::hDC  := GetPrintDefault( GetActiveWindow() )\n\nEMG','',0,'AIA=','1kds26ba',1,0,'',6,0,0),(7647,1811,6,73,0,'201.133.246.32',1140285397,1,0,1,1,1,0,'','','Hola JC,\nprueba con el hijackthis que te menciona renzo, si es efectivo, lo he utilizado y despues de eso uso el spy boot search &amp; destroy, el ad-aware y el xsoftspy, para borrar todo, luego por internet en linea verifico con el panda online, y te borra todos los virus..\nespero te sirva\nsaludos\nPacko','',0,'AIA=','34h6morj',1,0,'',73,0,0),(7648,1811,6,73,0,'201.133.246.32',1140285654,1,0,1,1,1,0,'','','aaaa  y por cierto,\nte recomiendo que cambies tu antivirus el avast y el norton, no te sirvieron para nada, pues ya te pego y a cualquier rato te vuelven a sacar otro susto !!\n\nsaludos\nPacko','',0,'AIA=','vley0wm6',1,0,'',73,0,0),(7649,1814,3,34,0,'68.4.154.81',1140286450,1,0,1,1,1,1,'','Button','OK ... so I\'m not losing my mind.  Thanks ...\n\nTim','',0,'AIA=','25eux46i',1,0,'',34,0,0),(7650,1808,2,304,0,'200.67.162.185',1140288895,1,0,1,1,1,0,'','','DANIEL\n\nNo he podido crear la libreria y en verdad estoy atorado, me puedes pasar a mi correo la libreria Sbrowse (para clipper) a mi correo, y un ejemplo con dbfs x favor ????\n<!-- e --><a href=\"mailto:servicomver@yahoo.com.mx\">servicomver@yahoo.com.mx</a><!-- e -->\nsalu2\nveracruz, mexico','',0,'AIA=','3ps0l7lp',1,0,'',304,0,0),(7651,1828,6,61,0,'201.217.165.66',1140290834,1,0,1,1,1,0,'','nRandom','Amigos:\n\nNecesito conseguir un número entre 1 y 42 incluyendo\nel 1 y el 42.\n\nComo se hace con nRandom?\n\nSaludos y gracias.\n\nRuben Fernandez','',0,'AIA=','jw1u0tui',1,0,'',61,0,0),(7652,1829,3,103,0,'200.164.92.242',1140292055,1,0,1,1,1,0,'','xHarbour 0.99.4 + FWH 2.5 error division by 0','Hi,\n\n  I\'m having problems with this in my apps. When I have 123 / 0, for example, this gives me an recursive error \"too many recursive error handler calls\" and the program quits without passing by my errorsys. Has anyone using the same versions as me? Have you got this problem? If so, which was the solution?\n\nRegards,\n\nKleyber Derick\n\nP.S.: I cannot change to a newer xHB version because I have third-party lib which I don\'t have its sources.','',0,'AIA=','pxwv5jry',1,0,'',103,0,0),(7653,1830,6,103,0,'200.164.92.242',1140292309,1,0,1,1,1,0,'','Division por cero - xHarbour 0.99.4+FWH 2.5','Hola,\n\n   Cuando tengo alguna división onde el divisor sea 0, me produce el error \"too many recursive error handler calls\" aparece a mi y el programa se quita sin pasar por mi errorsys. Pregunto: ¿Alguno de ustedes usas las dichas versiones de xHB y FWH? ¿Has mirado este problema? ¿Cual fue la solución?\n\nGracias de antemano,\n\nKleyber Derick\n\nP.S.: No puedo pasar a una nueva versión de xHB porque uso librerias de terceros y no tengo sus fuentes.','',0,'AIA=','2vjjg6qh',1,0,'',103,0,0),(7654,1831,1,211,0,'83.49.188.178',1140292618,1,0,1,1,1,0,'','on change en un get','Hola. Estoy usando un get con un on change, para que se actualice un say según lo que vaya escribiendo, pero se me borra el contenido del get cada vez que escribo algo. Digamos que solo me sale el ultimo caracter escrito.\n\n@ 40,  55  GET OBJ[1] VAR ARTI[1] PIXEL  SIZE 58,10 COLOR CLR_AMARILLO, CLR_AZULETE;\n                    UPDATE VALID TRATAR_A(1) font ofontdlg OF EDICION;  // ON CHANGE ACTUA_FAM();\n                    PICTURE \"@! XXXXXXXXXXXXX\"\n         OBJ[1]:BKEYDOWN:={|nkey,nflags|ACTUA_FAM(NKEY)}\n\ncomo veis he probado varias cosas ya\n\ny esta es la función\nFUNCTION ACTUA_FAM(NKEY)\n         //ARTI[1]+=CHR(NKEY) //ARTI[1]\n         MSGALERT(CHR(NKEY))\n         //ARTI[1]+=ALLTRIM(STR(LASTKEY()))\n         //MSGALERT(ARTI[1])\n         //MSGALERT(LASTKEY())\n         IF (LEN(ALLTRIM(ARTI[1])) &gt;= 2)\n            SELECT 4\n            SEEK LEFT(ARTI[1],2)\n            MFAMILIA=CODIGO+\" \"+NOMBRE\n         ENDIF\n         IF (LEN(ALLTRIM(ARTI[1])) &gt;= 4)\n            SELECT 41\n            SEEK RIGHT(LEFT(ARTI[1],4),2)\n            MSUBFAM=CODIGO+\" \"+NOMBRE\n         ENDIF\n         SELECT 1\n         OBJ[1]:REFRESH()\n         EDICION:UPDATE()\n         EDICION:REFRESH()\nRETURN NIL\n\nsi descomento el msgalert, a veces va. Es como si quedara algo en algún buffer o algo así. \nGracias de antemano. Un saludo.','',0,'','2htbilyj',1,0,'',211,0,0),(7655,1812,3,303,0,'68.7.28.54',1140293722,1,0,1,1,1,0,'','','Enrico,\n\n[quote:21x2h3d6]Yes, the bug is in the Alt-C. That\'s what I said (or that I was trying to say, sorry for my bad english). [/quote:21x2h3d6]\n\nMy apologies, it was my misunderstanding--not your English. I misread this:\n\n[quote:21x2h3d6]click on the button with the mouse the VALID is not executed (as it should be): [/quote:21x2h3d6]\n\nI thought is said \"(but it should be).\"\n\nSo, as you said Alt-C should not execute the VALID. \n\nRegards,\nJames','',0,'gA==','21x2h3d6',1,0,'',303,0,0),(7656,1814,3,303,0,'68.7.28.54',1140294054,1,0,1,1,1,0,'','','Tim,\n\nTSButton has a setColor() method, but I have never tried it.\n\nTSButton is included in TSBrowse, and you can get a copy on my website on this page:\n\n[url:16221dt5]http&#58;//ourworld&#46;compuserve&#46;com/homepages/jbott/program&#46;htm[/url:16221dt5]\n\nJames','',0,'EA==','16221dt5',1,0,'',303,0,0),(7657,1814,3,3,0,'82.65.191.207',1140299421,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:3sjb9i80]Tim,\n\nTSButton has a setColor() method, but I have never tried it.\n\nTSButton is included in TSBrowse, and you can get a copy on my website on this page:\n\n[url:3sjb9i80]http&#58;//ourworld&#46;compuserve&#46;com/homepages/jbott/program&#46;htm[/url:3sjb9i80]\n\nJames[/quote:3sjb9i80]\n\nTsbutton works OK with Setcolor, i use it in my app \n\nhere is a working sample\n\nREDEFINE SBUTTON FILE DIRAPPLI() + \"BMP\\AIDE.BMP\" ID 301  of Odlg ;\n       TOOLTIP \"Aide\" ;\n       COLORS CLR_WHITE, ;\n               {|oB| If( oB:lMouseOver, {CLR_WHITE,CLR_BLUE }, ;\n                                          {CLR_BLUE,CLR_WHITE} ) }  ;\n       ROUNDRECT TEXT POSITION ON_RIGHT CANCEL ;\n       ACTION DETHELP(\"CAISSPAR\")\n\nTim, if you need the xbp file to build the tsbutton library, let me know\n\nRichard','',0,'kA==','3sjb9i80',1,0,'',3,0,0),(7658,1812,3,6,0,'87.11.229.171',1140300025,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2l9rvqit]My apologies, it was my misunderstanding--not your English. I misread this:[/quote:2l9rvqit]\n\nNo problems, James.\n\nEMG','',0,'gA==','2l9rvqit',1,0,'',6,0,0),(7659,1829,3,335,0,'68.193.88.53',1140300710,1,0,1,1,1,0,'','','Make sure that your version of Errsysw.prg has the following code located immediately after declaration of locals in function ErrorDialog( e )...\n\n   // by default, division by zero yields zero\n   if ( e:genCode == EG_ZERODIV )\n       return (0)\n   end\n\nIf this code is located further down in the code of this function (as it was in earlier versions of errsysw.prg), you can get the recursive error.\n\n- Roger','',0,'gA==','156uaf3k',1,0,'',335,0,0),(7660,1829,3,103,0,'200.164.92.242',1140302640,1,0,1,1,1,0,'','','Thanks Roger,\n\n      I already done this in my errsysw.prg, but the message is still showing. The most interesting thing is when I use pure xHarbour, the result is zero, without any problem. I am now reviewing all my thid-party lib to see if there is some errorsys function declared in other places.\n\nRegards,\n\nKleyber Derick','',0,'gA==','1j10tcns',1,0,'',103,0,0),(7661,1828,6,54,0,'201.135.253.152',1140304137,1,0,1,1,1,1,'','Re: nRandom','[quote=&quot;RuFer&quot;:1ke8c533]Amigos:\n\nNecesito conseguir un número entre 1 y 42 incluyendo\nel 1 y el 42.\n\nComo se hace con nRandom?\n\nSaludos y gracias.\n\nRuben Fernandez[/quote:1ke8c533]\n\nnAleatorio := nRandom( 1,42)\n\nsaludos','',0,'gA==','1ke8c533',1,0,'',54,0,0),(7662,1829,3,103,0,'200.164.92.242',1140308347,1,0,1,1,1,0,'','','Well, I\'ve reviewd all my third-party lib and I didn\'t find anything or any other errorsys function...  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  If someone can give an idea in how to solve it, I\'ll be very thankful.\n\nRegards,\n\nKleyber Derick','',0,'gA==','2xrv5tyv',1,0,'',103,0,0),(7663,1828,6,61,0,'201.217.168.162',1140309046,1,0,1,1,1,0,'','','Wmormar:\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','kcghlyn9',1,0,'',61,0,0),(7664,1742,2,49,0,'87.7.180.73',1140312170,1,0,1,1,1,1,'','','see testwscr.prg','',0,'gA==','xntvcx9m',1,0,'',49,0,0),(7665,1832,6,49,0,'87.7.180.73',1140312311,1,0,1,1,1,1,'','INFOSER of MADRID','I want talk with someone of Infoser of Madrid \nI  send to Infoser many message but none  never send me back a message !!!\n\n\nRegards\nsilvio','',0,'gA==','193potml',1,0,'',49,0,0),(7666,1742,2,341,0,'200.127.97.186',1140313271,1,0,1,1,1,0,'','','Gracias Silvio','',0,'gA==','3j0sxyhw',1,0,'',341,0,0),(7667,1831,1,303,0,'68.7.28.54',1140319334,1,0,1,1,1,0,'','','[code:2kjjjezk]oGet&#58;bChange&#58;=&#123;| nKey, nFlag, self| msgInfo&#40; getLastKey&#40; nKey, nFlag, oGet&#41; &#41; &#125;\n\nfunction getLastKey&#40; nKey, nFlag, oGet&#41;\n  local nLastKey &#58;= if&#40; getKeyState&#40;VK_SHIFT&#41; &#46;or&#46; ;\n  GetKeyToggle&#40; VK_CAPITAL&#41;, chr&#40;oGet&#58;nLastKey&#41;,;\n   lower&#40;chr&#40;oGet&#58;nLastKey&#41;&#41;  &#41;\nreturn nLastkey[/code:2kjjjezk]','',0,'AIA=','2kjjjezk',1,0,'',303,0,0),(7668,1683,3,32,0,'196.36.8.34',1140324999,1,0,1,1,1,0,'','Tree32 source','I\'m actually looking for the source to tree32.lib, so I can rebuild for xHarbour builder.\n\nAlex','',0,'AIA=','29q95grm',1,0,'',32,0,0),(7669,1683,3,379,0,'59.167.104.143',1140328453,1,0,1,1,1,0,'','Treelib','I have the source for V5 but do not know how or what to change.  The C files are what is the problem.','',0,'AIA=','3q511mwt',1,0,'',379,0,0),(7670,1587,3,239,0,'218.20.60.97',1140328742,1,0,1,1,1,0,'','','first  field  clang1 c ,20    as native language (original  in source prg ) ted,others like clang2 as second foreign languange,... .\n\nclang1        ,  clang2     \n\nnot found    ,  &#27809;&#26377;&#21457;&#29616; &#65292; ...  \nitemid   ,  &#32534;&#21495; ,...\ncan\'t open , &#25171;&#19981;&#24320;&#65292;...\ndate , &#26085;&#26399;\n\n\nregards\nShuming Wang','',0,'AIA=','21hegost',1,0,'',239,0,0),(7671,1683,3,32,0,'196.36.8.34',1140329522,1,0,1,1,1,0,'','Tree32 c source','I can recompile the c with xharbour builder','',0,'AIA=','1altk2c0',1,0,'',32,0,0),(7672,1823,3,455,0,'195.97.105.161',1140330696,1,0,1,1,1,0,'','Re: Test scroll','[quote=&quot;Silvio&quot;:pcv55pr5]Imust show a big Image \nI must use vertical scroll\nHave you an sample test to make it ?\n\nRegards\nSilvio[/quote:pcv55pr5]\n\nSylivio,\nSeems simle...\nIn the .RC file...\n[code:pcv55pr5]\nFISH DIALOG LOADONCALL MOVEABLE DISCARDABLE 9, 19, 178, 117\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Fishes DataBase&quot;\nBEGIN\n	CONTROL &quot;TBitmap&quot;, 110, &quot;TBitmap&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 23, 7, 83, 55\n	PUSHBUTTON &quot;&amp;Previous&quot;, 120, 5, 98, 43, 13\n	PUSHBUTTON &quot;&amp;Next&quot;, 130, 66, 98, 43, 13\n	PUSHBUTTON &quot;&amp;End&quot;, 2, 129, 98, 43, 13\n	EDITTEXT 111, 124, 51, 40, 12\n	EDITTEXT 112, 124, 69, 40, 12\nEND\n[/code:pcv55pr5]\n\nIn the .PRG file... (from TESTBMP.PRG modified by me)\n\n[code:pcv55pr5]\nFunction DlgFish&#40;&#41;\n\n   local oDlg\n   local n &#58;= 1\n   local bmpFish\n   local a, b\n\n   a &#58;= Space&#40;8&#41;\n   b &#58;= 0\n\n\n   DEFINE DIALOG oDlg NAME &quot;Fish&quot;\n\n   *        BITMAP\n   REDEFINE bitmap bmpFish ID 110 OF oDlg NAME &quot;Fish1&quot; SCROLL  ;\n      on click ;\n      &#40; hf &#58;= GetFocus&#40;&#41;,;\n        SetFocus&#40;bmpFish&#41;,;\n      msginfo&#40;\'Hello&#46;&#46;&#46;\'+CRLF+ &quot;Your values are&#58;&quot;+CRLF+;\n              \'Variable a&#58; \'+ oa&#58;ctext +CRLF+;\n              \'Variable b&#58; \'+ cvaltochar&#40;ob&#58;ctext&#41;&#41;,;\n        SetFocus&#40;hf&#41;&#41;\n\n\n   bmpFish&#58;bLDblClick = &#123; | nRow, nCol, nFlags | ;\n                          MsgInfo&#40; &quot;DblClick on the bitmap&quot; &#41; &#125;\n\n   REDEFINE BUTTON ID 120 OF oDlg ;\n      ACTION If&#40; n &gt; 1, bmpFish&#58;SetBMP&#40; &quot;Fish&quot; + AllTrim&#40; Str&#40; --n &#41; &#41; &#41;, ;\n                        Tone&#40; 956, 2 &#41; &#41;\n   \n   redefine get oa var a picture \'@!\' id 111 of oDlg \n\n   redefine get ob var b picture \'99999\' id 112 of oDlg \n\n   REDEFINE BUTTON ID 130 OF oDlg ;\n      ACTION If&#40; n &lt; 6, bmpFish&#58;SetBMP&#40; &quot;Fish&quot; + AllTrim&#40; Str&#40; ++n &#41; &#41; &#41;, ;\n                        Tone&#40; 956, 2 &#41; &#41; \n\n\n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil\n\n[/code:pcv55pr5]','',0,'gIA=','pcv55pr5',1,0,'',455,0,0),(7673,1683,3,379,0,'59.167.104.143',1140332593,1,0,1,1,1,0,'','Tree','Where would you like me to send it.....','',0,'gIA=','tp72wg5w',1,0,'',379,0,0),(7674,1683,3,32,0,'196.36.8.34',1140338101,1,0,1,1,1,0,'','Source','Please send to\n\nalexs at quicksoftware dot co dot za','',0,'gIA=','3lrw8shh',1,0,'',32,0,0),(7675,1683,3,379,0,'59.167.104.143',1140338486,1,0,1,1,1,0,'','Tree','Done - check your mail.','',0,'gIA=','3fnjeebw',1,0,'',379,0,0),(7676,1829,3,2,0,'87.218.146.123',1140343654,1,0,1,1,1,1,'','','Kleyber,\n\nWith FWH 2.7 and Harbour/xharbour this sample works ok:\n\n[code:2ap6olhm]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; 123 / 0 &#41;\n            \nreturn nil\n[/code:2ap6olhm]','',0,'AIA=','2ap6olhm',1,0,'',2,0,0),(7677,1825,3,2,0,'87.218.146.123',1140344127,1,0,1,1,1,1,'','','Enrico,\n\nClass TPrinter Method End() checks if ::hDC != nil so it should not be a problem to call it twice.','',0,'AIA=','vrjw6och',1,0,'',2,0,0),(7678,1830,6,2,0,'87.218.146.123',1140344496,1,0,1,1,1,1,'','','Kleyber,\n\nCon FWH 2.7 y las versiones más recientes de Harbour/xharbour, funciona correctamente.\n\nKleyber, que librerías de terceros son ?','',0,'AIA=','2iu73da7',1,0,'',2,0,0),(7679,1825,3,6,0,'87.6.210.152',1140347953,1,0,1,1,1,1,'','','Yes, you are right. Sorry for the false alarm.\n\nEMG','',0,'AIA=','1geqmioq',1,0,'',6,0,0),(7680,1763,2,404,0,'213.231.101.107',1140349067,1,0,1,1,1,0,'','Sigo haciendo pruebas.','No, se que sucede. Sigo haciendo pruebas, y no hay forma. \n\nLos SAY, continuan si actualizarse.\n\n¿Me podeís dar, una pequeña orientación?\n\nGracias anticipadas. Saludos, José Mª','',0,'AIA=','11yk9znj',1,0,'',404,0,0),(7681,1763,2,2,0,'87.218.146.254',1140349784,1,0,1,1,1,1,'','','José Mª,\n\nEste ejemplo funciona correctamente. Quizá te sirva de orientación:\n[code:lf5lcenz]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg1, oDlg2, oTimer\n   \n   DEFINE DIALOG oDlg1 TITLE &quot;First&quot;\n   \n   @ 2, 2 SAY oSay PROMPT Time&#40;&#41;\n   \n   ACTIVATE DIALOG oDlg1 NOMODAL CENTERED\n            \n   DEFINE TIMER oTimer ACTION oSay&#58;SetText&#40; Time&#40;&#41; &#41;\n   \n   ACTIVATE TIMER oTimer\n   \n   DEFINE DIALOG oDlg2 TITLE &quot;Second&quot; \n   \n   ACTIVATE DIALOG oDlg2\n            \nreturn nil\n[/code:lf5lcenz]','',0,'AIA=','lf5lcenz',1,0,'',2,0,0),(7682,1833,7,262,0,'83.97.168.83',1140351689,1,0,1,1,1,1,'','O.T.  Consulta sobre posibilidades de uso del pocket','Se me plantea la posibilidad de luchar por hacer un programa para el sector hostelero , y como todos sabemos aqui el conseguirlo no se trata de la mejor o peor gestion del trabajo sino de \"IMPRESIONAR\" al cliente .\nSe me ocurre el usar Pocket como libro de notas del maitre ( eso impresiona un monton ) para tomar los menus , y mandarlo via wireless al pc \"llamemos\" servidor  , pero me surgen unas dudas que quisiera saber si alguien tiene ya resueltas , o que posibles soluciones se os ocurren .\n1.- Se puede mapear una carpeta del pc en un pocket ( la carpeta de dbfs por ejemplo ). ??\n2.- Si se puede ,al funcionar los pocket en modo Exclusivo , existe otra solucion para compartir las dbfs con varios pocket , que no sea abrir y cerrar las dbfs solo en el momento de la transaccion ?.\n3.- Que pegas le veis al sistema ?.\n\np.d. El sistema seria wireless para ello existen unas memorias que acoplan una antena -moden wireless ( las he visto para compac-flash  y me imagino que existan para sd card )\nSaludso.','',0,'AIA=','2y9ixsmf',1,0,'',262,0,0),(7683,1807,6,104,0,'201.58.1.158',1140353555,1,0,1,1,1,0,'','','Olá Antonio,\n\nEu voltei os métodos KEYDOWN e KEYCHAR da classe TCONTROL  versão de janeiro/2006, e a tecla ESC voltou a funcionar. \n\n[code:2q66aea3]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TControl\n\n* TIREI ISTO\n*\n*   if nKey == VK_ESCAPE\n*      &#58;&#58;oWnd&#58;KeyDown&#40; nKey, nFlags &#41;\n*      return 0\n*   endif   \n&#46;&#46;&#46;\n\n\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TControl\n\n   local nDefValue, nDefButton, hDef, nAt\n\n   do case\n\n* VOLTEI ISTO\n     case nKey == VK_ESCAPE\n           &#58;&#58;oWnd&#58;KeyChar&#40; nKey, nFlags &#41;\n           return 0\n\n[/code:2q66aea3]\n\nIsto está certo ?\n\nGracias,\n\nRossine.','',0,'AIA=','2q66aea3',1,0,'',104,0,0),(7684,948,2,52,0,'170.51.246.21',1140359513,1,0,1,1,1,1,'','','Con respecto a este tema, si quiero que mi aplicacion que no es mas que un DIALOG arranque minimizado y se muestre en el systray un icono, mo hago para que el dialogo se miniminize automaticamente, o sea al principio.?\n\ngracias.','',0,'AIA=','y5ir2y7e',1,0,'',52,0,0),(7685,1834,3,6,0,'82.55.208.253',1140359707,1,0,1,1,1,1,'','TReport:Activate()','The declaration and the definition are different:\n\n[code:3noa9fwn]METHOD Activate&#40;bFor, bWhile, bInit, bEnd, bStartPage, ;\n                bEndPage, bStartGroup, bEndGroup, ;\n                bStartLine, bEndLine, bChange &#41;[/code:3noa9fwn]\n\n[code:3noa9fwn]METHOD Activate&#40;bFor, bWhile, bInit, bEnd, bStartPage, ;\n                bEndPage, bStartGroup, bEndGroup, ;\n                bStartLine, bEndLine, bChange, ;\n                bPostEnd, bPostPage, bPostGroup ;\n                &#41; CLASS TReport[/code:3noa9fwn]\n\nThe correct is obviously the second.\n\nEMG','',0,'AIA=','3noa9fwn',1,0,'',6,0,0),(7686,1751,6,52,0,'170.51.231.160',1140360667,1,0,1,1,1,1,'','','Hola,\n\nViktor podrías decirme donde tengo que poner esas lineas que decis para que todos los controles esten transparentes?\n\nLuego, tengo que recompilar la lib? \n\n[code:3e3ju00e]METHOD Initiate&#40; hWndFocus, hWnd &#41; CLASS TDialog \n\n   local lFocus &#58;= &#46;t&#46;, lResult, hCtrl, lEnd &#58;= &#46;f&#46;, aRect \n\n   if hWnd != nil \n      &#58;&#58;hWnd = hWnd \n   endif \n\n      SetWindowLong&#40; &#58;&#58;hWnd, GWL_EXSTYLE,; \n         WS_BORDER &#41; \n\n      SetWindowLong&#40; &#58;&#58;hWnd, GWL_EXSTYLE ,; \n         WS_EX_LAYERED    &#41; //|                 ; \n*         WS_EX_TOOLWINDOW |                 ; \n*         WS_EX_NOACTIVATE |                 ; \n*         WS_EX_TOPMOST    |                 ; \n*         WS_EX_APPWINDOW &#41; \n\n      SetLayeredWindowAttributes&#40; &#58;&#58;hWnd, 0  , &#40; 255 * 90 &#41; / 100, LWA_ALPHA &#41; \n [/code:3e3ju00e]','',0,'AIA=','3e3ju00e',1,0,'',52,0,0),(7687,1834,3,2,0,'87.218.146.243',1140361916,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','z2gc69hv',1,0,'',2,0,0),(7688,1835,3,6,0,'82.55.208.253',1140363708,1,0,1,1,1,1,'','Bug in TButton','The following sample shows the problem. Try to put any character in the GET and then hit ALT-C. You will see that the DIALOG won\'t close. On the contrary, if you click on the button the DIALOG will close.\n\n[code:2ybzy861]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET cVar;\n           VALID !EMPTY&#40; cVar &#41;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2ybzy861]\n\nEMG','',0,'AIA=','2ybzy861',1,0,'',6,0,0),(7689,1751,6,61,0,'201.217.166.179',1140365154,1,0,1,1,1,0,'','','Goosfancito:\n\nTienes que buscar el Dialog.prg, y en el metodo\ninitiate que muestra Viktor comentas las lineas como\nel lo hizo y agregas la linea\nSetLayeredWindowAttributes...\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','3lg4etm8',1,0,'',61,0,0),(7690,1784,6,83,0,'80.35.196.60',1140367383,1,0,1,1,1,0,'','','Muchas gracias a ti y a Yamil, es lo que buscaba\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','3278d0t6',1,0,'',83,0,0),(7691,1835,3,2,0,'87.218.146.138',1140374387,1,0,1,1,1,1,'','','Enrico,\n\nOn a first review it looks as a Harbour vs xharbour related issue.\n\nWith Harbour it works ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nIt seems a difference between Harbour/xharbour Class TGet.','',0,'AIA=','2vn0dog3',1,1140377063,'',2,1,0),(7692,1814,3,34,0,'68.4.154.81',1140374930,1,0,1,1,1,1,'','Buttons','I was able to use BTNBMP to do what I want, and I changed the background to a bitmap.\n\nTim','',0,'AIA=','2pn5vwq1',1,0,'',34,0,0),(7693,1835,3,2,0,'87.218.146.138',1140375360,1,0,1,1,1,1,'','','This way it works:\n[code:1z6n9bq4]\n    @ 1, 1 GET cVar; \n           VALID &#40; oDlg&#58;aControls&#91; 1 &#93;&#58;Assign&#40;&#41;, !EMPTY&#40; cVar &#41; &#41; \n[/code:1z6n9bq4]\nSo it seems that with xharbour the ::oGet DATA has not been assigned, thats why it remains \"empty\".','',0,'AIA=','1z6n9bq4',1,0,'',2,0,0),(7694,1835,3,2,0,'87.218.146.138',1140377007,1,0,1,1,1,1,'','','This is a fix:\n[code:2g61zxy7]\nMETHOD lValid&#40;&#41; CLASS TGet\n\n   local lRet &#58;= &#46;t&#46;\n\n   if &#58;&#58;oGet&#58;BadDate\n      &#58;&#58;oGet&#58;KillFocus&#40;&#41;\n      &#58;&#58;oGet&#58;SetFocus&#40;&#41;\n      MsgBeep&#40;&#41;\n      return &#46;f&#46;\n   else\n      &#58;&#58;oGet&#58;Assign&#40;&#41;    // New !!!\n      if ValType&#40; &#58;&#58;bValid &#41; == &quot;B&quot;\n         lRet &#58;= Eval&#40; &#58;&#58;bValid, Self  &#41;\n         if ! lRet\n            &#58;&#58;oWnd&#58;nLastKey = 0\n         endif\n      endif\n   endif\n\nreturn lRet\n[/code:2g61zxy7]','',0,'AIA=','2g61zxy7',1,0,'',2,0,0),(7695,1807,6,2,0,'87.218.146.138',1140377389,1,0,1,1,1,1,'','','Rossine,\n\nSi, es equivalente. Lo que ocurre es que en la versión de Febrero hemos cambiado más cosas.','',0,'AIA=','kwr1xmuo',1,0,'',2,0,0),(7696,1835,3,6,0,'82.55.208.253',1140377813,1,0,1,1,1,1,'','','Thank you, but I suspect that some other problems is hiding under the wood... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','1jijcd0k',1,0,'',6,0,0),(7697,1814,3,6,0,'82.55.208.253',1140378393,1,0,1,1,1,1,'','Re: Buttons','You can even use SetColor() method without using a bitmap:\n\n[code:10qkb4ev]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    LOCAL cVar &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET cVar;\n           VALID !EMPTY&#40; cVar &#41;\n\n    @ 30, 10 BTNBMP oBtn PROMPT &quot;Close&quot;;\n             ACTION oDlg&#58;End&#40;&#41;\n\n    oBtn&#58;SetColor&#40; CLR_RED, CLR_YELLOW &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:10qkb4ev]\n\nEMG','',0,'AIA=','10qkb4ev',1,0,'',6,0,0),(7698,1835,3,2,0,'87.218.146.138',1140380794,1,0,1,1,1,1,'','','Enrico,\n\nYes, we\'ll see. \n\nThe problem is that Class TGet is quite different from Harbour to xharbour.','',0,'AIA=','2lvh9boi',1,0,'',2,0,0),(7699,1836,2,377,0,'201.155.83.252',1140383267,1,0,1,1,1,0,'','CLIPPER/FIVEWIN COMUNICACION SERIAL COMM','Estoy desarrollando una aplicacion en Clipper/Fivewin que usa un lector de huella digital, necesito comunicarme con el decodificador por un puerto comm RS232, enviar y recibir comandos (nibbles), me podrian decir si existen las instrucciones necesarias para esto o que me recomienden un software de comunicacion.\n\nSe los voy agradecer mucho.      <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','2cjfy8kt',1,0,'',377,0,0),(7700,1837,3,335,0,'68.193.88.53',1140387755,1,0,1,1,1,0,'','Error (6) deleting enhanced metafile','When sending a print job to the Rpreview screen, I get this MsgAlert() error message:\n\n\"Error (6) deleting enhanced metafile\"\n\nI don\'t see this MsgAlert() in Rpreview, so have no idea what causes it. What should I be looking for to fix this?\n\nUsing FWH 2.7 Feb. with xHb Feb.\n\n- Roger','',0,'AIA=','1f8x0vud',1,0,'',335,0,0),(7701,1837,3,335,0,'68.193.88.53',1140387900,1,0,1,1,1,0,'','','I forgot to mention that after I click the &lt;Okay&gt; button on the MsgAlert(), then the preview screen displays normally.\n\nIncidentally, one problem with this MsgAlert() error message, is that it displays underneath my application, so I have to minimize the app to see the message.\n\n- Roger','',0,'AIA=','1nsm5s9i',1,0,'',335,0,0),(7702,1811,6,45,0,'200.117.36.68',1140388227,1,0,1,1,1,0,'','','Si cambias de Antivirus, de te recomiendo EL MEJOR ANTIVIRUS de todos los tiempos-&gt;  NOD32 lo mejor que hay hoy en el mercado de antivirus y de paso es lo mas liviano que hay  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n<!-- m --><a class=\"postlink\" href=\"http://www.nod32.com/home/home.htm\">http://www.nod32.com/home/home.htm</a><!-- m -->\n\nHe visto caer antivirus, sean de Symantec, algunos gratuitos otros de pago, pero jamas vi caer un NOD32. Prueba la version de evaluacion y luego me dices, eso si 30 dias. \n\nPor supuesto, claro esta, que cuando un antivirus te sugiere eliminar y vos le decis 2 veces que no te interesa, el contagio viene igual <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Asi que ojo al contestar los dialogos de los antivirus <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nSalu2\nHernan','',0,'AIA=','3tyibp2x',1,0,'',45,0,0),(7703,1823,3,49,0,'87.3.179.143',1140388750,1,0,1,1,1,1,'','','I sent you a message private. thank','',0,'AIA=','1e28ot0o',1,0,'',49,0,0),(7704,1837,3,2,0,'87.218.146.138',1140391460,1,0,1,1,1,1,'','','Roger,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1486&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=deleting+enhanced\">http://fivetechsoft.com/forums/viewtopi ... g+enhanced</a><!-- m -->','',0,'AIA=','2zwjeqzr',1,0,'',2,0,0),(7705,1838,3,261,0,'63.197.46.139',1140411848,1,0,1,1,1,1,'','How do I get a Wav file into a RC','Is it possible to incorporate a wav file into a RC file?\n\nThanks, \n\nByron...','',0,'AIA=','3sgylznn',1,0,'',261,0,0),(7706,1838,3,2,0,'87.218.146.203',1140420449,1,0,1,1,1,1,'','','Byron,\n\nTEST  WAVE \"../sounds/error.wav\"','',0,'AIA=','gfykwxa3',1,0,'',2,0,0),(7707,1796,1,2,0,'87.218.146.203',1140420704,1,0,1,1,1,1,'','','Vlamidir,\n\nThis is the msdn entry:\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/shlwapi/path/pathcanonicalize.asp\">http://msdn.microsoft.com/library/defau ... calize.asp</a><!-- m -->\n\nIts not difficult to be implemented','',0,'AIA=','1fnrba75',1,0,'',2,0,0),(7708,1796,1,2,0,'87.218.146.203',1140421506,1,0,1,1,1,1,'','','Here you have it working for FWH and Harbour/xharbour:\n(its required to link echo lib\\psdk\\shlwapi.lib)\n[code:m0rul416]\n#include &quot;Fivewin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oDlg, cResult \n\n   DEFINE DIALOG oDlg \n\n   @ 2, 2 BUTTON &quot;Test&quot; ;\n      ACTION &#40; PathCanonicalize&#40; &quot;A&#58;\\\\name_1\\\\&#46;\\\\name_2\\\\&#46;&#46;\\\\name_3&quot;, @cResult &#41;,;\n               MsgInfo&#40; cResult &#41; &#41;\n      \n   ACTIVATE DIALOG oDlg ; \n      CENTER \n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;Shlwapi&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; PATHCANONICALIZE &#41; // cInString, @cOutString --&gt; lOk\n&#123;\n   char * buffer&#91; MAX_PATH &#93;;\n   \n   hb_retl&#40; PathCanonicalize&#40; buffer, hb_parc&#40; 1 &#41; &#41; &#41;;\n   hb_storc&#40; buffer, 2 &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:m0rul416]','',0,'AIA=','m0rul416',1,0,'',2,0,0),(7709,1836,2,2,0,'87.218.146.203',1140421700,1,0,1,1,1,1,'','','Hugo,\n\nPuedes revisar ejemplos en samples\\phone.prg ó uno más complejo en samples\\comm\\*','',0,'AIA=','j6gj18q0',1,0,'',2,0,0),(7710,1802,2,350,0,'80.32.243.219',1140426278,1,0,1,1,1,0,'','','Hola Antonio.\n\nNo, la versión de dbl2flt.obj que he descargado de ese sitio tampoco funciona, me da el mismo error.\n\nLo he solucionado sacando DBL2FLT.OBJ de la librería FIVEC.LIB de la versión 2.4 y añadiendolo a mi LNK. \n\nSaludos','',0,'AIA=','xplzro5v',1,0,'',350,0,0),(7711,1804,3,419,0,'196.25.255.210',1140426951,1,0,1,1,1,0,'','','Good Morning All!\n\nIt would appear that nobody is providing context specific help with their applications?\n\nRegards,\n\nDale.','',0,'AIA=','2jr3qm8a',1,0,'',419,0,0),(7712,1821,6,2,0,'87.218.146.203',1140429488,1,0,1,1,1,1,'','','João,\n[code:20jxgzwe]\nMETHOD Paint&#40;&#41; CLASS TDSay\n\n   local n \n   local nColorShadow, nColorLight\n\n   &#58;&#58;GetDC&#40;&#41;\n\n   if &#58;&#58;lActive\n\n      if &#58;&#58;lView\n         if &#58;&#58;lTransparent &#46;and&#46; ! Empty&#40; &#58;&#58;oBrush&#58;hBitmap &#41;\n            SetBrushOrgEx&#40; &#58;&#58;hDC, nBmpWidth&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nLeft, nBmpHeight&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nTop &#41;\n            FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41;\n         endif \n         \n         for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n            &#46;&#46;&#46;\n[/code:20jxgzwe]\n\nAlso this fix is required in control.prg:\n[code:20jxgzwe]\nMETHOD Initiate&#40; hDlg &#41; CLASS TControl\n\n   &#46;&#46;&#46;\n\n   if &#58;&#58;lTransparent\n      &#58;&#58;SetBrush&#40; &#58;&#58;oWnd&#58;oBrush &#41; \n   else\n      &#58;&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41;\n   endif   \n\nreturn nil\n[/code:20jxgzwe]','',0,'AIA=','20jxgzwe',1,0,'',2,0,0),(7713,1802,2,2,0,'87.218.146.203',1140429691,1,0,1,1,1,1,'','','Sebastián,\n\nCierto, ese módulo hay que compilarlo con Microsoft en 16 bits, no con Borland. De ahí el error.  Disculpa.','',0,'AIA=','1tpbmfld',1,0,'',2,0,0),(7714,1802,2,2,0,'87.218.146.203',1140430423,1,0,1,1,1,1,'','','Enrico,\n\nMy mistake, that module needs to be compiled with Microsoft 16 bits for FW Clipper.','',0,'AIA=','3hpvr2qp',1,0,'',2,0,0),(7715,1804,3,2,0,'87.218.146.203',1140430656,1,0,1,1,1,1,'','','Dale,\n\nCould you please provide a small and self contained sample that reproduces what you are trying to do ? Thanks.','',0,'AIA=','1gnqamry',1,0,'',2,0,0),(7716,1839,7,449,0,'212.64.224.249',1140433249,1,0,1,1,1,0,'','cGetFile()','Hola,\n\nAlguien ha resuelto el tema cGetFile() ?\n\n\nSaludos.\nC.','',0,'AIA=','1wqwpdpf',1,0,'',449,0,0),(7717,1802,2,6,0,'87.1.225.229',1140433358,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:dobwtzzc]Enrico,\n\nMy mistake, that module needs to be compiled with Microsoft 16 bits for FW Clipper.[/quote:dobwtzzc]\n\nNo! I compiled mine with Borland and worked fine. This is my DBL2FLT.C:\n\n[code:dobwtzzc]/***************************************************************************\n*\n*  Copyright 1995 Feh‚r Attila alias White Wolf&#46; All rights reserved&#46;\n*\n*  This is original work of Feh‚r Attila &#40;alias White Wolf&#41;&#46;\n*\n*  This code allowed to use for Mr&#46; Antonio Linares for his FiveWin\n*  project&#46; Any other use must be discussed with the author &#40;for the moment&#41;&#46;\n*\n*  MUST BE COMPILED WITH MSC!!\n*  BC can\'t handle the double correctly in MSC environment like Clipper&#46;\n*\n*\n*  Final version will be done in assembly w/o Clipper callable part&#46;\n*\n***************************************************************************/\n\n#include &lt;HbApi&#46;h&gt;\n\nlong dbl2flt&#40; double x &#41;;\n\nHB_FUNC&#40; NDBL2FLT &#41;\n&#123;\n   hb_retnl&#40; dbl2flt&#40; hb_parnd&#40; 1 &#41; &#41; &#41;;\n&#125;\n\nlong dbl2flt&#40; double d &#41;\n&#123;\n   long f = 0;\n   int ui;\n   char sig;\n\n   if &#40; d == 0 &#41; return 0;\n\n   sig = &#40; char &#41;&#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;7&#93; &amp; 0x80 &#41;;   // Store signum\n\n   &#40; char &#41;&#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;7&#93;&#41; &amp;= 0x7f;         // Get rid of signum\n\n   ui = &#40; &#40; short * &#41;&#40; &amp;d &#41; &#41;&#91;3&#93; &amp; 0xfff0;             // Get exponent\n\n   ui = ui / 16 - 1023 + 127;\n\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;3&#93; = &#40; char &#41; ui;              // Put exponent\n\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;2&#93; |= &#40; char &#41;&#40; &#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;6&#93; &#41; &lt;&lt; 4 &#41;;              // Mantissa 1\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;2&#93; |= &#40; char &#41;&#40; &#40; &#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;5&#93; &#41; &gt;&gt; 4 &#41; &amp; 0x0f &#41;;   // Mantissa 2\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;1&#93; |= &#40; char &#41;&#40; &#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;5&#93; &#41; &lt;&lt; 4 &#41;;              // Mantissa 3\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;1&#93; |= &#40; char &#41;&#40; &#40; &#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;4&#93; &#41; &gt;&gt; 4 &#41; &amp; 0x0f &#41;;   // Mantissa 4\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;0&#93; |= &#40; char &#41;&#40; &#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;4&#93; &#41; &lt;&lt; 4 &#41;;              // Mantissa 5\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;0&#93; |= &#40; char &#41;&#40; &#40; &#40; &#40; &#40; char * &#41;&#40; &amp;d &#41; &#41;&#91;3&#93; &#41; &gt;&gt; 4 &#41; &amp; 0x0f &#41;;   // Mantissa 6\n\n   f &gt;&gt;= 1; &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;3&#93; &amp;= 0x7f;   // Clear signum &quot;C error!!!&quot;\n   &#40; &#40; char * &#41;&#40; &amp;f &#41; &#41;&#91;3&#93; |= sig;             // Add signum\n\n   return f;\n&#125;[/code:dobwtzzc]\n\nEMG','',0,'gIA=','dobwtzzc',1,0,'',6,0,0),(7718,1840,4,449,0,'212.64.224.249',1140433366,1,0,1,1,1,0,'','cGetFile()','Hi, \n\nHas somebody solved the cGetFile()  ?\n\nRegards.\nC.','',0,'gIA=','1tbi97az',1,0,'',449,0,0),(7719,1802,2,6,0,'87.1.225.229',1140433465,1,0,1,1,1,1,'','','Ops, sorry. I suddenly understand that this is a FW for Clipper forum. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gIA=','3d3gtbmd',1,0,'',6,0,0),(7720,1841,7,449,0,'212.64.224.249',1140435000,1,0,1,1,1,0,'','::lTransparent desde recursos','Hola a todos,\n\nLa clausula ::lTransparent, no funciona con bmp en recursos.\n\n\n[code:3lpxrlry]// Using bitmaps from resources\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBmp, oBmp2\n\n   DEFINE WINDOW oWnd TITLE &quot;Bmp-Res&quot;\n\n   @ 5, 5 BITMAP oBmp FILENAME CURDIR&#40;&#41; + &quot;\\users&#46;bmp&quot; NOBORDER\n\n   oBmp&#58;lTransparent = &#46;t&#46;\n\n   @ 8, 5 BITMAP oBmp2 NAME &quot;users&quot; NOBORDER\n\n   oBmp2&#58;lTransparent = &#46;t&#46;\n\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41;\n\nreturn nil[/code:3lpxrlry]\n\n\nAlguna solucion ?\n\nSaludos.\nC.','',0,'AIA=','3lpxrlry',1,0,'',449,0,0),(7721,1821,6,177,0,'194.30.62.6',1140435497,1,0,1,1,1,0,'','','Antonio,\n\nthanks a lot !!!  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos,\n\nFélix','',0,'AIA=','36ral7ab',1,0,'',177,0,0),(7722,1811,6,105,0,'200.72.140.34',1140436088,1,0,1,1,1,1,'','','Holas..\n\nLo mejor es  sacar tu HD, ponerlo en un pc con antivirus actualizado y correr la desinfeccion,  una vez limpiado, volver a poner el disco en tu Pc y revisar el registro de sistema por si hubiera alguna entrada no \"autorizada\". Instalate un buen Anti Spyware ( o dos ) y selecciona el antivirus de tu preferencia, ( Personalmente el Norton Internet Security 2005 ).\n\nActualiza el Antivirus en forma externa ( sin  conexion a Internet)\n\nY luego conectate.\n\nEspero que te sirva, es un procedimeinto simple y no debes reinstalar nada a excepcion delos antivirus.\n\n\nAdolfo','',0,'AIA=','2rm7tmn0',1,0,'',105,0,0),(7723,1841,7,123,0,'81.39.239.66',1140437751,1,0,1,1,1,0,'','','Carles,\n\nCreo que con esta modificación en la clase window.prg queda arreglado.\n\n[code:2uapmldq]   METHOD SetBrush&#40; oBrush &#41; INLINE If&#40; &#58;&#58;oBrush != nil, &#58;&#58;oBrush&#58;End&#40;&#41;,&#41;,;\n                                    &#58;&#58;oBrush &#58;= oBrush, oBrush&#58;nCount++, &#58;&#58;Refresh&#40;&#41;\n[/code:2uapmldq]\n\nDime si ésto te soluciona el problema.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2uapmldq',1,0,'',123,0,0),(7724,1842,20,29,0,'81.174.37.59',1140437853,1,0,1,1,1,0,'','Inviare una mail in modo interattivo tramite Outlook','Salve,\nattualmente utilizzo la seguente routine per inviare una mail tramite Outlook. Vorrei però che sia possibile fare apparire la dialog di invio mail di Outlook per consentire all\'utente eventuali variazioni nel testo della mail.\n\nQualche idea sul metodo da richiamare per rendere l\'invio interattivo ?\nHo provato con Send(.f.) ma ottengo un messaggio di errore.\n\nInoltre, esiste un sistema per capire se Outlook è installato ? Nel caso non lo sia infatti vorrei inviare la mail utilizzando MAPI in quanto Outlook Express per esempio non supporta i comandi OLE.\n\nGrazie in anticipo.\n\nSaluti\n\nMarco Turco\n\n\nFUNCTION SendMail()\n\n  LOCAL oOutLook,oMailItem,oRecip,oAttach\n\n  oOutLook := CreateObject( \"Outlook.Application\" )\n\n  oMailItem := oOutLook:CreateItem( 0 )\n\n  oRecip := oMailItem:Recipients\n  oRecip:Add( \"noc@softwarexp.co.uk\" )\n\n  oMailItem:Subject := \"Testing fw\"\n\n  oMailItem:Body := \"FW Body!\" + CRLF + CRLF\n\n  oAttach := oMailItem:Attachments\n  oAttach:Add( \"c:\\sendmail.txt\" )\n\n  oMailItem:Send()\n\nRETURN NIL','',0,'AIA=','2z60dj2y',1,0,'',29,0,0),(7725,1843,18,26,0,'213.250.60.211',1140438483,1,0,1,1,1,1,'','cGetFile and really long file names (path included)','Hello!\n\ncGetFile returns empty string when I select file with very long name\nin \"My documents\" folder. It is OK if file is located in folder with\nshorter path.\n\nFor example, I can\'t select file:\n\"How%20to%20install%20Sun%20Solaris%2010%20inside%20VMware%20Workstation%205.5.pdf\" \nin folder \"My documents\" which is:\n\"F:\\Documents and Settings\\rm.KLEPEC-O38W69NS\\My Documents\\\"\n\nBut when I select file with shorter name like: 2005okt.nri, everything is\nOK and cGetFile returns:\n\"F:\\Documents and Settings\\rm.KLEPEC-O38W69NS\\My Documents\\2005okt.nri\"\n\nRegards, Roman','',0,'AIA=','3s1ii513',1,0,'',26,0,0),(7726,1844,3,32,0,'196.36.8.34',1140438537,1,0,1,1,1,0,'','Some C help','How could I change:\n\n[code:22aa092m]   hTheme = OpenThemeData&#40;hWnd, L&quot;COMBOBOX&quot;&#41;;[/code:22aa092m]\n\n\nto \n\n[code:22aa092m]   hTheme = OpenThemeData&#40;hWnd, L_parc&#40;3&#41;;[/code:22aa092m]\n\nCompiler does not like it...\n\nThe following compiles, but I don\'t get anything drawn:\n\n[code:22aa092m]   char *cStyle =   &#40; ISCHAR&#40;4&#41; ? _parc&#40; 4 &#41; &#58; &quot;COMBOBOX&quot; &#41;;\n   hTheme = OpenThemeData&#40;hWnd, &#40;unsigned short * &#41; cStyle&#41;;\n[/code:22aa092m]\n\nThis is the OpenThemeData definition:\n\n[code:22aa092m]THEMEAPI_&#40;HTHEME&#41; OpenThemeData&#40;HWND,LPCWSTR&#41;;\n[/code:22aa092m]','',0,'AIA=','22aa092m',1,0,'',32,0,0),(7727,1841,7,262,0,'83.97.168.83',1140439385,1,0,1,1,1,1,'','','he añadido el metodo a window y he compilado y a mi no me resuelve el problema .','',0,'AIA=','312ekasd',1,0,'',262,0,0),(7728,1845,7,123,0,'81.39.239.66',1140439408,1,0,1,1,1,0,'','Ejemplo de uso de ScrollBar','Hola,\n\n¿Hay algún ejemplo de como usar la scrollbar en una Window?\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','1bnd2tdn',1,0,'',123,0,0),(7729,1846,6,453,0,'80.36.195.101',1140439958,1,0,1,1,1,0,'','Error: Unresolved external _HB_FUN','Hola:\n\nEstoy tratando de pasar una aplicación hecha con FW a FWH en la que están todas las funciones en un solo prg, pero al tratar de compilar con FWH me salen errores de:\n\nError: Unresolved external \'_HB_FUN_CREANTX\" REFERENCED FROM \"E:\\FWH\\SAMPLES\\MONFONCS.OBJ\"\n\nError: Unresolved external \'_HB_FUN_RESGRUPEN\" REFERENCED FROM \"E:\\FWH\\SAMPLES\\MONFONCS.OBJ\"\n\nError: Unresolved external \'_HB_FUN_RESARTEN\" REFERENCED FROM \"E:\\FWH\\SAMPLES\\MONFONCS.OBJ\"\n\nY así hasta ocho funciones más.\n\nComo ya digo, todas estas funciones ya están en el mismo prg. \n\nSin embargo, el mismo códido lo he compilado con Fw y ha generado el exe sin problemas.\n\n¿A qué se deben estos errores?\n\nTengo FWH 2.7, Harbour, BCC55\n\nSaludos','',0,'AIA=','3kk6lvq8',1,0,'',453,0,0),(7730,1841,7,123,0,'81.39.239.66',1140440042,1,0,1,1,1,0,'','','José Luis,\n\n[quote:963rvdai]he añadido el metodo a window y he compilado y a mi no me resuelve el problema .[/quote:963rvdai]\n\nCierto... parece ser que he confundido la pregunta.  Lo que he indicado solo resuelve el problema en grupos creados desde código cuando lTransparent := .T.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','963rvdai',1,0,'',123,0,0),(7731,1804,3,419,0,'196.25.255.210',1140441012,1,0,1,1,1,0,'','','Hello,\n\nHere is the line of code:\n\nReDefine Get ioCode;\nVar cCODE;\nID 101;\nOf oDlg;\nColor CLR_BLUE;\n[b:3lt75gi3]HelpID 10000;[/b:3lt75gi3]\nValid ( CheckBranch( cCode ) )\n\nWhen pressing F1 a \'blank\' popup is displayed i.e. just the small light yellow help popup dialog with no text.\n\nIf you choose a non-existent HelpID i.e. let\'s say that you have used HelpID 10010 and you have not defined this in your .hlp file then the popup is quite correctly displayed with the test \'No Help Topic Associated With This Item\'.\n\nIn other words if it does not find the relevant HelpID in your .hlp file then it works BUT if it does find the relevant HelpID in your .hlp file then it does not work.\n\nThis only applies to help screens defined as \'popups\' in your help authoring software i.e. help screens defined as \'topics\' work correctly.\n\nThere is another message thread related to this that was started by Peter Harmse and it seems that he is (intermittently) having the same problem.\n\nRegards,\n\nDale.\n\nBy the way - is there no facility any more to upload images of errors (like on the old newsgroup)?','',0,'QA==','3lt75gi3',1,0,'',419,0,0),(7732,1844,3,2,0,'87.218.146.236',1140441255,1,0,1,1,1,1,'','','Alex,\n\nhTheme = OpenThemeData(hWnd, L\"COMBOBOX\");\n\n[code:dupv2k5g]\n   LPWSTR AnsiToWide&#40; char * &#41;;\n \n   &#46;&#46;&#46;\n\n   LPWSTR pW = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n\n   hTheme = OpenThemeData&#40; hWnd, pW &#41;;\n   hb_xfree&#40; pW &#41;;\n   &#46;&#46;&#46;\n[/code:dupv2k5g]','',0,'AIA=','dupv2k5g',1,0,'',2,0,0),(7733,1804,3,2,0,'87.218.146.236',1140441431,1,0,1,1,1,1,'','','Dale,\n\nImages should be hosted at sites like <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us/\">http://www.imageshack.us/</a><!-- m --> and the provided URL they give you, be placed here.','',0,'AIA=','1je0wmi0',1,0,'',2,0,0),(7734,1455,4,68,0,'203.45.161.80',1140442352,1,0,1,1,1,1,'','','Antonio,\nFivewin socket functions are OK with WM2005 emulator, but FWPPC TSocket() still seems flaky and gives an internal error - even \'sockcli\'.  I use Socket Workbench (<!-- w --><a class=\"postlink\" href=\"http://www.sigmasolutions.com.au\">www.sigmasolutions.com.au</a><!-- w -->) for testing with the emulator cradled with ActiveSync (on XP) using DMA.  Its not a problem; just passing on feedback...\nhth\nregards,','',0,'AIA=','30z42u7n',1,0,'',68,0,0),(7735,1804,3,419,0,'198.54.202.226',1140442732,1,0,1,1,1,0,'','','OK - thanks - I will temporarily use one of our websites for images.\n\nThis code:\n\nReDefine Get ioCode;\nVar cCODE;\nID 101;\nOf oDlg;\nColor CLR_BLUE;\nHelpID 2;\nValid ( CheckBranch( cCode ) )\n\ngives you this display:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fleetfocus.net/software/images/helpid2.JPG\">http://www.fleetfocus.net/software/images/helpid2.JPG</a><!-- m -->\n\nThis code:\n\nReDefine Get;\nioNAME;\nVar cNAME;\nID 102;\nOf oDlg;\nColor CLR_BLUE;\nHelpID 3\n\ngives your this display:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fleetfocus.net/software/images/helpid3.JPG\">http://www.fleetfocus.net/software/images/helpid3.JPG</a><!-- m -->\n\nPlease let me know if you could access the images.\n\nIn the above examples I have a \'popup\' defined in my help authoring software (.hlp file) with HelpID 2 but I [b:17v4quqm]do not[/b:17v4quqm] have a \'popup\' defined in my help authoring software (.hlp file) with HelpID 3.\n\nAs you can see when the HelpID is not defined in the .hlp file it works correctly but if the HelpID is defined it only displays a blank popup i.e. it appears to be finding the HelpID in the .hlp file but cannot display the text.\n\nSorry - I just noticed - please ignore the \'1\' and \'2\' in the input field - this is test data and has nothing to do with the discussion.\n\nRegards,\n\nDale.','',0,'QA==','17v4quqm',1,0,'',419,0,0),(7736,1844,3,32,0,'196.36.8.34',1140442752,1,0,1,1,1,0,'','AnsitoWide','Thanks for the help, but I can\'t seem to find AnsiToWide in a C Lib? Getting an unresolved external.','',0,'QA==','3tfhahc6',1,0,'',32,0,0),(7737,1844,3,32,0,'196.36.8.34',1140443072,1,0,1,1,1,0,'','Found it','Hi,\n\nFound AnsiToWide in a prg file inside xharbour, but something is still going wrong (not drawing). I\'ll keep looking.\n\nAlex','',0,'QA==','28sdovn6',1,0,'',32,0,0),(7738,1847,3,32,0,'196.36.8.34',1140444537,1,0,1,1,1,0,'','testwico.prg','Hi,\n\nThis seems to not draw icons. Is it supposed to be working?','',0,'QA==','79ktg1by',1,0,'',32,0,0),(7739,1848,3,29,0,'81.174.37.59',1140445038,1,0,1,1,1,0,'','Interactive mail via Outlook','Hi,\nis there a way to show the standard Outlook dialog to send an email via OLE ? I use this routine but the email start immediatly without the feature for the user to modify/integrate the email contents.\n\nThanks in advance.\n\nBest Regards,\n\nMarco\n\nFUNCTION SendMail()\n\n  LOCAL oOutLook,oMailItem,oRecip,oAttach\n\n  oOutLook := CreateObject( \"Outlook.Application\" )\n\n  oMailItem := oOutLook:CreateItem( 0 )\n\n  oRecip := oMailItem:Recipients\n  oRecip:Add( \"noc@softwarexp.co.uk\" )\n\n  oMailItem:Subject := \"Testing fw\"\n\n  oMailItem:Body := \"FW Body!\" + CRLF + CRLF\n\n  oAttach := oMailItem:Attachments\n  oAttach:Add( \"c:\\sendmail.txt\" )\n\n  oMailItem:Send()\n\nRETURN NIL','',0,'QA==','1q4rs8ql',1,0,'',29,0,0),(7740,1848,3,247,0,'87.202.25.198',1140446556,1,0,1,1,1,0,'','Re: Interactive mail via Outlook','[quote=&quot;Marco Turco&quot;:23xny7ux]Hi,\nis there a way to show the standard Outlook dialog to send an email via OLE ? I use this routine but the email start immediatly without the feature for the user to modify/integrate the email contents.\n\nThanks in advance.\n\nBest Regards,\n\nMarco\n\nFUNCTION SendMail()\n\n  LOCAL oOutLook,oMailItem,oRecip,oAttach\n\n  oOutLook := CreateObject( \"Outlook.Application\" )\n\n  oMailItem := oOutLook:CreateItem( 0 )\n\n  oRecip := oMailItem:Recipients\n  oRecip:Add( \"noc@softwarexp.co.uk\" )\n\n  oMailItem:Subject := \"Testing fw\"\n\n  oMailItem:Body := \"FW Body!\" + CRLF + CRLF\n\n  oAttach := oMailItem:Attachments\n  oAttach:Add( \"c:\\sendmail.txt\" )\n\n  oMailItem:Send()\n\nRETURN NIL[/quote:23xny7ux]\n\nUse Display property\n\ne.g:\n  . \n  .\n  .\n  oMailItem:Body := \"FW Body!\" + CRLF + CRLF\n\n  oAttach := oMailItem:Attachments\n  oAttach:Add( \"c:\\sendmail.txt\" )\n\n  oMailItem:Display()','',0,'gA==','23xny7ux',1,0,'',247,0,0),(7741,1811,6,255,0,'200.67.175.250',1140448561,1,0,1,1,1,1,'','','Probando las sugerencias\n ya les contaré, gracias.','',0,'gA==','gzzele7m',1,0,'',255,0,0),(7742,1841,7,2,0,'87.218.146.236',1140449079,1,0,1,1,1,1,'','','Carles, Jose Luis,\n\nAcabamos de publicar un nuevo build de FWPPC que soluciona el problema. No es definitivo porque fallará con zoom ó imágenes estiradas, pero de momento está solucionado.','',0,'gA==','g8k4ue3q',1,0,'',2,0,0),(7743,1455,4,2,0,'87.218.146.236',1140449226,1,0,1,1,1,1,'','','Jon,\n\nWe appreciate your feedback, thanks.\n\nWhat internal error do you get ?','',0,'gA==','3nf9lpma',1,0,'',2,0,0),(7744,1802,2,2,0,'87.218.146.236',1140449284,1,0,1,1,1,1,'','','Enrico,\n\nNo problem <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Yes, its 16 bits code.','',0,'gA==','2uduudh4',1,0,'',2,0,0),(7745,1847,3,2,0,'87.218.146.236',1140450144,1,0,1,1,1,1,'','','Alex,\n\nNo, it is just a wrong test. Please delete it, thanks.\n\nYou may use samples\\TestLvw.prg','',0,'gA==','z5aqhoux',1,0,'',2,0,0),(7746,1841,7,449,0,'212.64.224.249',1140450223,1,0,1,1,1,0,'','','Hola Antonio,\n\nEs posible que no fucncione el link de actualizacion ?\n\n\nSaludos.\nC.','',0,'gA==','2lj0792r',1,0,'',449,0,0),(7747,1841,7,2,0,'87.218.146.236',1140450398,1,0,1,1,1,1,'','','Carles,\n\nVuelve a intentarlo, gracias.','',0,'gA==','3ir6ks5g',1,0,'',2,0,0),(7748,1841,7,449,0,'212.64.224.249',1140450611,1,0,1,1,1,0,'','','Antonio,\n\nOk. Ya va. El pastel debia estar \'calentito\'\n\nSaludos.\nC.','',0,'gA==','2nx7rt75',1,0,'',449,0,0),(7749,1804,3,2,0,'87.218.146.236',1140450707,1,0,1,1,1,1,'','','Dale,\n\nYes, the images are properly displayed.\n\nQuite strange... it finds the ID but does not display the contents.\n\nWe need a small sample and a small help file to reproduce the error here. We may build it. If you can provide it, much better. Thanks.','',0,'gA==','38am8or5',1,0,'',2,0,0),(7750,1848,3,29,0,'81.174.37.59',1140450894,1,0,1,1,1,0,'','','Thanks you Ask.\n\nThe Outlook send dialog appairs now (using Display(.t.) - with only Display() an error appairs)\n\nbut if I close the dialog without send the email then this error appairs:\n\n-----------\nApplication\n===========\n   Path and name: K:\\pigc\\PIGC.Exe (32 bits)\n   Size: 6,524,416 bytes\n   Time from start: 0 hours 0 mins 16 secs \n   Error occurred at: 20/02/06, 16:51:21\n   Error description: Error Outlook.Application:CREATEITEM/9  Proprietà di sola lettura.: DISPLAY\n   Args:\n     [   1] = L   .T.\n\nStack Calls\n===========\n   Called from TOLEAUTO:DISPLAY(0)\n--------------\n\nDo I need to include any special lib ?\n\nMarco','',0,'','2rhc1cnl',1,0,'',29,0,0),(7751,1838,3,375,0,'84.122.114.179',1140451755,1,0,1,1,1,1,'','','With WorkSHop Resources:\n\nFile Menu -&gt; Add to Project...\nFile Type -&gt; user Resource data\nLoad your WAV File\nCustom Resource Type Dialog  -&gt; New Type -&gt; Type \"WAVE\"\nCustom Resource Type Dialog  -&gt; Click WAVE + OK\n\nThat\'s all','',0,'','jmpm71r3',1,0,'',375,0,0),(7752,1849,6,97,0,'200.23.84.231',1140452080,1,0,1,1,1,1,'','LISTBOX ejemplo con Ado','Hola saludos a todos , estoy haciendo mis pininos con ado y busco un ejemplo de listbox.\n\n\n\nsaludos.\nfernando sandoval ruiz','',0,'','2br1zfg4',1,0,'',97,0,0),(7753,1748,3,460,0,'217.37.54.49',1140453395,1,0,1,1,1,0,'','','No - this isnt resolved yet - it\'s weird as it looks as if it\'s an O.S. compatibility issue as i can\'t recreate on my p.c.s but can create it at my customers.\n\nPete','',0,'','3u7cx909',1,0,'',460,0,0),(7754,1810,3,98,0,'70.71.111.92',1140453871,1,0,1,1,1,1,'','','Antonio, James, Richard and Shuming\n\nFWH AcitiveX approach might be all we need.  The idea of having a non-browser dependent html viewer was just to show the user html files, but not wanting to give them web access from within the app for security reasons.\n\nThank you all for the input... time to analize the best solution.\n\nRegards,','',0,'','3k3ai0q8',1,0,'',98,0,0),(7755,1122,18,110,0,'165.98.151.243',1140454641,1,0,1,1,1,1,'','','Antonio, si bien se corrigio el problema de borde puntedo en el checkbox cuando tienes temas aplicados en winxp, cuando no tiene tema aparece dentro de la region del borde un color blanco de fondo. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nsalu2\ncarlos vargas','',0,'','36w44yfu',1,0,'',110,0,0),(7756,1835,3,98,0,'70.71.111.92',1140454851,1,0,1,1,1,1,'','','Antonio:\n\nThe last time I sent you a suggested fix in TGet [I forgot what it was\nabout <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ], I pasted a modified version of ::EditUpdate() I\'ve been using for several years now and in which I added the call to ::oGet:assign()\nto ensure the Clipper/[x]Harbour buffer was always in sync with FW/FWH\'s.\nThat could be an alternate fix for this problem:\n\nMETHOD EditUpdate() CLASS TGet\n\n   if ::oGet:HasFocus\n      ::DispText()\n      ::oGet:Assign()                            // lkm\n   endif\n\n   ::SetPos( ::oGet:Pos )\n\nReturn Self\n\n\n[quote=&quot;Antonio Linares&quot;:302k6lgp]This is a fix:\n[code:302k6lgp]\nMETHOD lValid&#40;&#41; CLASS TGet\n\n   local lRet &#58;= &#46;t&#46;\n\n   if &#58;&#58;oGet&#58;BadDate\n      &#58;&#58;oGet&#58;KillFocus&#40;&#41;\n      &#58;&#58;oGet&#58;SetFocus&#40;&#41;\n      MsgBeep&#40;&#41;\n      return &#46;f&#46;\n   else\n      &#58;&#58;oGet&#58;Assign&#40;&#41;    // New !!!\n      if ValType&#40; &#58;&#58;bValid &#41; == &quot;B&quot;\n         lRet &#58;= Eval&#40; &#58;&#58;bValid, Self  &#41;\n         if ! lRet\n            &#58;&#58;oWnd&#58;nLastKey = 0\n         endif\n      endif\n   endif\n\nreturn lRet\n[/code:302k6lgp][/quote:302k6lgp][code:302k6lgp][/code:302k6lgp]\n\nRegards,\n\nLuis','',0,'gIA=','302k6lgp',1,0,'',98,0,0),(7757,1835,3,6,0,'82.55.208.223',1140455907,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:48zy97bd]Enrico,\n\nYes, we\'ll see. \n\nThe problem is that Class TGet is quite different from Harbour to xharbour.[/quote:48zy97bd]\n\nAfter some tests it seems all ok with your fix.\n\nThank you.\n\nEMG','',0,'gA==','48zy97bd',1,0,'',6,0,0),(7758,1763,2,404,0,'213.231.101.107',1140459336,1,0,1,1,1,0,'','Gracias Antonio.','Parece, que ya va en camino. \n\nEspero no molestar, en algún tiempo. \n\nPero ya se sabe, basta que digas algo, para que ocurra lo contrario.\n\nSaludos, José Mª','',0,'gA==','2m96sjku',1,0,'',404,0,0),(7759,1798,6,396,0,'200.7.110.132',1140460409,1,0,1,1,1,1,'','errror en folder de WS a PellecC','[quote=&quot;Antonio Linares&quot;:3sj9hh1a]Jose Luis,\n\nEn tu fichero de recursos has de declarar el folder como \"SysTabControl32\" en vez de \"TFolder\".[/quote:3sj9hh1a]\n\n\nYa hice eso y aun sigue el error, elimine el folder cree 1 nuevo bajo Pelles y dice TabControl, pero no remedio nada, alguna otra idea, donde consigo esa libreria..?, gracias...','',0,'gA==','3sj9hh1a',1,0,'',396,0,0),(7760,1850,6,439,0,'201.217.188.128',1140460709,1,0,1,1,1,0,'','Error al mandar imprimir FWH 2.7 Feb 2006','Recibo este error al enviar mandar a imprimir en FWH 2.7 Feb2006, el mismo\ncódigo no me da herror en FW 2.7 Feb 2006 para Clipper\n\nUso Windows XP SP2\n\n   Called from:  =&gt; TWINDOW:ERASEBKGND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; SHOWWINDOW(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; RPREVIEW(0)\n   Called from:  =&gt; __EVAL(0)\n   Called from:  =&gt; TPRINTER:PREVIEW(0)\n   Called from:  =&gt; PRINTEND(0)\n   Called from:  =&gt; IMPCVH(103)\n   Called from:  =&gt; (b)ENCAB1(401)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; BAM2(183)\n   Called from:  =&gt; (b)BARRABOT(157)\n   Called from:  =&gt; TBTNBMP:CLICK(0)\n   Called from:  =&gt; TWINDOW:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(82)\n\nQué puede ser el problema?','',0,'gA==','jgsw2jw3',1,0,'',439,0,0),(7761,1798,6,2,0,'87.218.146.236',1140460754,1,0,1,1,1,1,'','','Jose Luis,\n\nPor favor revisa y prueba el ejemplo samples\\TestFold.prg y compara en que se pueda diferenciar del tuyo,. gracias,','',0,'gA==','7x4s8z5j',1,0,'',2,0,0),(7762,1835,3,2,0,'87.218.146.236',1140460924,1,0,1,1,1,1,'','','Luis,\n\nThe fact is that Class TGet is different in Harbour and xharbour, thats why we need to asure that before we validate a GET, its related variable has been assigned. Placing it at lValid() is a way to be sure it gets done.','',0,'gA==','3eohzbbz',1,0,'',2,0,0),(7763,1851,6,36,0,'200.113.56.235',1140461184,1,0,1,1,1,0,'','Indice corructo','Estimados\n \nComo saber si la indice.cdx tiene problemas?\n\nEl programa prometheus avisa cuando una basedato tiene problema con su indice y el msg que sale \"Necesita ejecutar un reindexación del archivo\"\n\nDesde ya gracias\n\nSaludos\nPatricio','',0,'gA==','acmp556z',1,0,'',36,0,0),(7764,1850,6,2,0,'87.218.146.236',1140461356,1,0,1,1,1,1,'','','Jose,\n\nHay un error que corregir en la versión de Febrero. En la clase TSay falta esta línea:\n[code:12qzd5c2]\nMETHOD EraseBkGnd&#40; hDC &#41; CLASS TSay \n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;  // AQUI \n\n   if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent \n      return 1 \n   endif \n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41; \n[/code:12qzd5c2]\n\nA primeros de Marzo publicaremos un nuevo build con todas las mejoras y correcciones que podrás descargar gratuitamente. Mientras tanto puedes modificar la clase TSay, recompilarla y enlazar el OBJ resultante con tu aplicación.','',0,'AIA=','12qzd5c2',1,0,'',2,0,0),(7765,1122,18,2,0,'87.218.146.236',1140461703,1,0,1,1,1,1,'','','Carlos,\n\nHemos probado el ejemplo samples\\TestFold.prg con y sin temas y está bien. De todas formas hemos implementado una serie de cambios que publicaremos en el build de Marzo.','',0,'AIA=','s8cmywjx',1,0,'',2,0,0),(7766,1745,6,41,0,'200.87.67.10',1140461896,1,0,1,1,1,0,'','','Paco,\n\ngracias, lo probare\n\nsaludos\n\nMarcelo','',0,'AIA=','1eq2h3hs',1,0,'',41,0,0),(7767,1852,18,375,0,'84.122.114.179',1140462293,1,0,1,1,1,1,'','sCROLLS CON FW 2.3','Cuando el ::bChange de un WBrowse es extenso y tarda algunos milisegundos de más, si dejas pulsado algún control de un VScroll para bajar rápidamente, el VScroll se queda pillado.\n¿Le ha pasado a alguien más?','',0,'AIA=','1g9fvdu8',1,0,'',375,0,0),(7768,1853,7,262,0,'83.97.168.83',1140463349,1,0,1,1,1,1,'','trasparencia de los bmp de btnbmp','Antonio , la trasparencia en los btnbmp que tiene el bitmap en recursos sigue sin funcionar , quizas con el arreglo del bmp anterio sea facil ponerlo .\nMe es importante para poder poner los bmp en recursos y que los clientes no los toquen \nSaludso.','',0,'AIA=','2sjf44ik',1,0,'',262,0,0),(7770,1854,17,375,0,'84.122.114.179',1140464583,1,0,1,1,1,1,'','Nuevo SAY Sensible y Editable','Acabo de terminar una clase que puede que le guste a alguién. Se trata de la clase TGSAY, un SAY Sensible y editable.\n\nSe puede utilizar tanto para Say normal, como para titulos, como si fuera un botón o crear un dialogo de menus con items TGSAY\'s, o como un GET.\n\nViene con diferentes bordes: SHADOW, RAISED, BOX, SQUARE o 3DBOX (como un botón), además tienen la opción TRANSPARENTE por si no quieres fondo, y COLORSOMBRA para pintar una pequeña sombra detrás, o todo a la vez. Por ejemplo un say transparente con sombra y con borde BOX que cuando lo pinchas se convierte en un GET que si es WS_TABSTOP entra dentro de la rueda de GET\'s normales.\n\nLink: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/c35ea648/TGSAY.zip.html\">http://hyperupload.com/download/c35ea648/TGSAY.zip.html</a><!-- m -->\n\nEJEMPLO VISUAL:\n\n[img][url=http&#58;//imageshack&#46;us:2yqy8x1g][img]http://img154.imageshack.us/img154/6649/tgsay17lc.png[/img][/url:2yqy8x1g][/img]\nTodos los datos numéricos son TGSAY\'s, en esta primera figura se está editando el Precio Venta. (Observa la sombra del PRECIO DEL VENDEDOR)\n\n[img][url=http&#58;//imageshack&#46;us:2yqy8x1g][img]http://img458.imageshack.us/img458/3729/tgsay22dz.png[/img][/url:2yqy8x1g][/img]\nEn esta segunda figura, se ha editado el TGSAY recuadrado de COMISION COMERCIAL SIN IVA.\n\nSi alguién lo perfecciona, por favor comuniquemelo a mi e-mail personal (<!-- e --><a href=\"mailto:ramosframit@ono.com\">ramosframit@ono.com</a><!-- e -->) gracias.\n\nEspero que os guste...','',0,'GA==','2yqy8x1g',1,0,'',375,0,0),(7771,1804,3,419,0,'198.54.202.234',1140464933,1,0,1,1,1,0,'','','Thanks very much for the response.\n\nI have created a small test app with all associated files and emailed to you.\n\nRegards,\n\nDale.','',0,'GA==','2n51vjo0',1,0,'',419,0,0),(7772,1854,17,375,0,'84.122.114.179',1140465365,1,0,1,1,1,1,'','','Se me olvidaba, en la clase TGSAY utilizo un par de funciones preprocesadas, que no están incluidas en la propia clase porque las tengo en un fichero de cabecera propio, éstas son:\n\n#xTranslate OSCURO( &lt;nColor&gt;,&lt;nVar&gt; ) =&gt; ;\n	    RGB( MAX(0,nRGBRed(   &lt;nColor&gt; )-&lt;nVar&gt; ) , ;\n		 MAX(0,nRGBGreen( &lt;nColor&gt; )-&lt;nVar&gt; ) , ;\n		 MAX(0,nRGBBlue(  &lt;nColor&gt; )-&lt;nVar&gt; ) )\n\n#xTranslate ACLARO( &lt;nColor&gt;,&lt;nVar&gt; ) =&gt; ;\n	    RGB( MIN(255,nRGBRed(   &lt;nColor&gt; )+&lt;nVar&gt; ) , ;\n		 MIN(255,nRGBGreen( &lt;nColor&gt; )+&lt;nVar&gt; ) , ;\n		 MIN(255,nRGBBlue(  &lt;nColor&gt; )+&lt;nVar&gt; ) )\n\nCopialas al TGSAY.CH\n\nPor cierto, notarán que utilizo la función DRAWTEXT en lugar de otra cualquiera que también pudiera funcionar. El objeto es poder darle alineación vertical, y porque en un futuro quiero implementarle un método para poder cambiarle la alineación horizontal sobre la marcha, que no creo que sea muy complicado, lo que pasa es que aún no me ha hecho falta.','',0,'GA==','2yhthknx',1,0,'',375,0,0),(7773,1804,3,419,0,'198.54.202.210',1140465649,1,0,1,1,1,0,'','','Follow on after email:\n\nIn the test that I sent to you the strange thing is that if you change the type of help from \'popup\' to \'topic\' in the .hlp file itself the heading of the \'topic\' is displayed i.e. it is a problem with any context specific HelpID that refers to a \'popup\' in the .hlp file.  If the HelpID refers to a \'topic\' as defined in the .hlp file then only the \'topic\' heading is displayed.\n\nLet me know if you received the email.\n\nRegards,\n\nDale.','',0,'GA==','178p2x7w',1,0,'',419,0,0),(7774,1804,3,303,0,'68.7.28.54',1140469713,1,0,1,1,1,0,'','','Dale,\n\nAre you using the old .HLP type help files, or the new HTML (.CHM) type help files? If you are using the HTML help, you have to override the FW help functions with new ones (I can provide them).\n\nRegards,\nJames','',0,'GA==','u2b8wqy6',1,0,'',303,0,0),(7775,1810,3,303,0,'68.7.28.54',1140469914,1,0,1,1,1,0,'','','Luis,\n\n[quote:d3kpsp9u]The idea of having a non-browser dependent html viewer was just to show the user html files, but not wanting to give them web access from within the app for security reasons. [/quote:d3kpsp9u]\n\nThen I think this is all you need.\n\n[code:d3kpsp9u]Function RunExpl&#40;cURL&#41;\nlocal hE\n\nhE &#58;= CreateOleObject&#40;&quot;InternetExplorer&#46;Application&quot;&#41;\nOLESetProperty&#40;hE,&quot;Visible&quot;, &#46;T&#46;&#41;\nOLESetProperty&#40;hE,&quot;ToolBar&quot;, &#46;F&#46;&#41;\nOLESetProperty&#40;hE,&quot;StatusBar&quot;, &#46;F&#46;&#41;\nOLESetProperty&#40;hE,&quot;MenuBar&quot;, &#46;F&#46;&#41;\nOLEInvoke&#40;hE,&quot;Navigate&quot;,cURL&#41;\n\nSysRefresh&#40;&#41;\n\nreturn nil[/code:d3kpsp9u]\n\nJames','',0,'gIA=','d3kpsp9u',1,0,'',303,0,0),(7776,1848,3,303,0,'68.7.28.54',1140470397,1,0,1,1,1,0,'','','Marco,\n\nTry this:\n\n[code:3t7en2tv]#include &quot;fivewin&#46;ch&quot;\n#include &quot;mail&#46;ch&quot;\n\nfunction main&#40;&#41;\n   sendMail&#40;&#123;&quot;jbott@compuserve&#46;com&quot;&#125;,&quot;Test mail&quot;, &quot;Message&#46;&#46;&#46;&quot;, &#123;&quot;c&#58;\\config&#46;sys&quot;&#125;&#41;\nreturn nil\n\n\nfunction sendMail&#40;aTo,cSubject,cMsg,aFiles&#41;\nlocal oMail\n\ndefault cSubject&#58;=&quot;&quot;\n\nDEFINE MAIL oMail ;\n        SUBJECT OemToAnsi&#40;cSubject&#41; ;\n        TEXT OemToAnsi&#40;cMsg&#41;;\n        FROM USER  // Use this to get the dialog box for the user\n\n   AADD&#40; oMail&#58;aRecipients, aTo &#41;\n\n   if aFiles!=nil\n      oMail&#58;aFiles&#58;=ACLONE&#40;aFiles&#41;\n   endif\n\n   ACTIVATE MAIL oMail\n\n   IF oMail&#58;nRetCode#0\n      MsgAlert&#40;&quot;The message could not be sent!&quot;,&quot;Alert&quot;&#41;\n  ENDIF\n\nreturn nil[/code:3t7en2tv]','',0,'AIA=','3t7en2tv',1,0,'',303,0,0),(7777,1855,6,203,0,'200.107.17.129',1140473068,1,0,1,1,1,1,'','xbrowse con arreglos','Amigos del Foro\n\nComo puedo generar una fila en blanco cuando me encuentro en la ultima columna del browse, utilizando la flecha abajo o el enter, utilizo arreglos. \n\n\nGracias de antemano\n\n\nAtentamente\n\n\nOscar','',0,'AIA=','2zypg0d4',1,0,'',203,0,0),(7778,1856,1,418,0,'83.153.43.40',1140473866,1,0,1,1,1,0,'','MULTILINE GETS','Hi all\ni want to extract each line of a multiline get into a string for printing this string.\nI\'m just a Fivewin beginner and i don\'t know how   (Don\'t  laugh..)\nThanks.','',0,'AIA=','39xwj11r',1,0,'',418,0,0),(7779,1856,1,6,0,'82.55.208.223',1140474025,1,0,1,1,1,1,'','Re: MULTILINE GETS','Have you tried MemoLine()?\n\nEMG','',0,'AIA=','2r0cu527',1,0,'',6,0,0),(7780,1804,3,2,0,'87.218.146.236',1140474305,1,0,1,1,1,1,'','','Dale,\n\nYour help file is wrong. There was no 2001 topic ID. Once I fixed it, then your sample works ok:\n\n[url=http&#58;//imageshack&#46;us:2km3mq3z][img:2km3mq3z]http&#58;//img375&#46;imageshack&#46;us/img375/4315/dale2co&#46;png[/img:2km3mq3z][/url:2km3mq3z]\n\nWhat tool are you using to develop your help files ? We do recommend Help&amp;Manual.\n\nYou may download the fixed help file from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0daab273/helptest.zip.html\">http://hyperupload.com/download/0daab27 ... t.zip.html</a><!-- m -->','',0,'GA==','2km3mq3z',1,0,'',2,0,0),(7781,1856,1,418,0,'83.153.43.40',1140474357,1,0,1,1,1,0,'','','I am using Fw 2.1 and i don\'t find this function','',0,'GA==','o6t95qqy',1,0,'',418,0,0),(7782,1856,1,6,0,'82.55.208.223',1140474500,1,0,1,1,1,1,'','','It is a Clipper function.\n\nEMG','',0,'GA==','ltrq0oxx',1,0,'',6,0,0),(7783,1856,1,418,0,'83.153.43.40',1140474842,1,0,1,1,1,0,'','','Houpps\nsometimes i forget to look in Clipper\'s functions .\nI am  maniac by Fivewin.\nI think memoline() will work fine\nThankjavascript&#058;emoticon(\':lol:\')\nThanks ....(of not laughing)','',0,'GA==','1yqd3g2j',1,0,'',418,0,0),(7784,1857,6,279,0,'201.129.16.161',1140480175,1,0,1,1,1,0,'','TMiCalendario','Amigos, \n\nAlguien esta tranbajando  con TMiCalendario en forma de recurso.\nyo la estoy utilizando para FWH y Xh pero no puedo hacer que funcione con un recurso.\n\nGracias de antemano\n_________________\nMario, Espinosa <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  \nSaludos','',0,'GA==','3mzvjo7h',1,0,'',279,0,0),(7785,1804,3,2,0,'87.218.146.236',1140480524,1,0,1,1,1,1,'','','Dale,\n\nThis change on source\\classes\\control.prg lets you use the \"?\" dialog icon to get the same effect as pressing F1 on a control:\n[code:i36othft]\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TControl\n\n   do case\n      case nMsg == WM_HELP    // New\n           return &#58;&#58;HelpTopic&#40;&#41;     // New\n\n      &#46;&#46;&#46;\n[/code:i36othft]','',0,'AIA=','i36othft',1,0,'',2,0,0),(7786,1810,3,98,0,'64.90.179.108',1140485337,1,0,1,1,1,1,'','','James:\n\nI have to check with Brian what exactly he\'s looking for, but your sample certainly should do the trick.\n\nAny reason you\'re not using TOleAuto() class? I.e.:\n\nFunction RunExpl( cURL )\nlocal hE\n\nhE := TOleAuto():New(\"InternetExplorer.Application\")\nhE:Visible := .T.\nhE:ToolBar := .F.\nhE:StatusBar := .F.\nhE:MenuBar := .F.\nhE:Navigate( cURL )\n\nreturn nil\n\n\n[quote=&quot;James Bott&quot;:nuywzdru]Luis,\n\n[code:nuywzdru]Function RunExpl&#40;cURL&#41;\nlocal hE\n\nhE &#58;= CreateOleObject&#40;&quot;InternetExplorer&#46;Application&quot;&#41;\nOLESetProperty&#40;hE,&quot;Visible&quot;, &#46;T&#46;&#41;\nOLESetProperty&#40;hE,&quot;ToolBar&quot;, &#46;F&#46;&#41;\nOLESetProperty&#40;hE,&quot;StatusBar&quot;, &#46;F&#46;&#41;\nOLESetProperty&#40;hE,&quot;MenuBar&quot;, &#46;F&#46;&#41;\nOLEInvoke&#40;hE,&quot;Navigate&quot;,cURL&#41;\n\nSysRefresh&#40;&#41;\n\nreturn nil[/code:nuywzdru]\n\nJames[/quote:nuywzdru]\n\nRegards,\n\nLuis Krause','',0,'gIA=','nuywzdru',1,0,'',98,0,0),(7787,1810,3,2,0,'87.218.146.236',1140485844,1,0,1,1,1,1,'','','Luis,\n\nClass TOleAuto() is just a wrapper on top of those functions.','',0,'gIA=','pkrvckeo',1,0,'',2,0,0),(7788,1858,3,34,0,'68.4.154.81',1140492978,1,0,1,1,1,1,'','Theme button with bitmap','I want to create a button with an email icon that carries the color of the theme like normal buttons.  The icon is used in place of text.  \n\nThis will be placed on a dialog, but not a button bar.  It should match all of the other buttons for color, but simply have the graphic instead of text.\n\nIdeas ?\n\nTim','',0,'gIA=','3vjhy2po',1,0,'',34,0,0),(7789,1859,3,234,0,'72.130.245.241',1140495635,1,0,1,1,1,0,'','Create Excel Spreadsheet from FWH','Hello,\n\nCan any provide sample source code to create an excel spreadsheet? In addition to creating spreadsheet, I need to format columns (font, font point size, column width and colors).\n\nI appreciate your help.\n\nThank you,','',0,'gIA=','cez9zhbg',1,0,'',234,0,0),(7790,1856,1,74,0,'190.48.216.153',1140497155,1,0,1,1,1,1,'','','Patili:\n\n[code:2zbky67d]\nFOR I&#58;=1 TO MLCOUNT&#40;cMemo,60&#41;\n   oPrn&#58;cmSay&#40;cLinea, 05&#46;9, MEMOLINE&#40;cMemo,60,I&#41; , oFont2&#41;\nNEXT\n[/code:2zbky67d]\n\n    The edit memo is edited with a fixed size font like courier new and it has the exact size to enter 60 characters in it.\n\nRegards,','',0,'AIA=','2zbky67d',1,0,'',74,0,0),(7791,1858,3,32,0,'196.36.8.34',1140500754,1,0,1,1,1,0,'','Themed button','Take a look at the class TButtonbmp, samples\\testbubmp.prg\n\nAlex','',0,'AIA=','1akqic16',1,0,'',32,0,0),(7792,1804,3,419,0,'198.54.202.210',1140500763,1,0,1,1,1,0,'','','Antonio, thanks for the work and the reply.\n\nHOWEVER, there definitely was a HelpID of 2001 in my help file but that was my point:\n\nHelpID 2001 was defined IN MY HELP FILE as a POPUP type of help and not as a TOPIC type of help.\n\nIf I change the help type in my help file from a POPUP type of help to a TOPIC type of help then I could get the same output as you.\n\nI am using the demo version of Fast-Help (which I intend purchasing if I can sell one or two apps) and I also tried an older version of DotHLP-32 and both gave me the same results.\n\nThe workaround obviously is to define ALL of your HelpID\'s in your help file as TOPIC and not as POPUP.\n\nImages of what I mean:\n\nThis is a definition for a HELP TOPIC using Fast-Help:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fleetfocus.net/software/images/helptopic.JPG\">http://www.fleetfocus.net/software/images/helptopic.JPG</a><!-- m -->\n\nThi is a definition for a HELP POPUP using Fast-Help:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fleetfocus.net/software/images/helppopup.JPG\">http://www.fleetfocus.net/software/images/helppopup.JPG</a><!-- m -->\n\nNotice the difference between the two types of definition.\n\nI can only assume that because Fast-Help and DotHLP-32 are so popular they follow some sort of Microsoft \'standard\' which FiveWin somehow is not following correctly.\n\nDon\'t get me wrong - it is not a train smash - but it does concern me a little bit that I am getting unexpected results from another package which is apparantely compatible with all other languages and is now giving me unexpected results.\n\nI have a sneaky suspicion that this incompatibility has something to do with Peter\'s problem as well.\n\nThanks again for all of your work.\n\nRegards,\n\nDale.','',0,'AIA=','3marqfov',1,1140502028,'',419,1,0),(7793,1804,3,419,0,'196.25.255.210',1140501971,1,0,1,1,1,0,'','','Hi, sorry I forgot to respond to the other messages:\n\nAntonio - are those changes to source\\classes\\control.prg going to be implemented in the next release of FWH or are you giving me a \'custom\' fix for now?  You know how I like to use \'standard\' FWH functions and not \'custom\' fixes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nJames - I think that Fast-Help generates both .CHM and .HLP files (and the .HLP files are apparantely 32-bit compatible if that is the right description).  Will using .CHM files make a difference to my life in the future?  What is the difference between the two other than the type of file that is created?\n\n[i:364t2fka]Edit by self:\n\nThe problem with not being able to use POPUP type definitions in the creation of your help file is that all of your so called POPUP\'s or context specific help prompts will appear in your main help text as they then have to be defined as TOPICS and only TOPICS appear in your main help file, popups are supposed to be hidden from view unless being displayed as context specific help in your application.[/i:364t2fka]\n\nRegards,\n\nDale.','',0,'IA==','364t2fka',1,0,'',419,0,0),(7794,1859,3,160,0,'210.212.142.6',1140503431,1,0,1,1,1,0,'','','Hello cdmmaui,\n\nI have using xHarbour and same code will work with FWH also. If you wish I can send you on your private mail as the Prg is quite big and everybody may not be interested in it.\n\nWith best regards,\n\nMilan.','',0,'IA==','1zxoipk7',1,0,'',160,0,0),(7795,1804,3,419,0,'198.54.202.210',1140504357,1,0,1,1,1,0,'','','Sorry, but this is a bigger train smash than I thought.\n\nIf you cannot define context specific help as type POPUP in your help file and all of your help definitions are of type TOPIC then you land up with the following:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fleetfocus.net/software/images/branchhelp.JPG\">http://www.fleetfocus.net/software/imag ... chhelp.JPG</a><!-- m -->\n\nIn the above link it would appear that your context specific help is working but the above is actually a TOPIC in your help file and not a POPUP.\n\nBecause of this you now land up with a main help file that appears as follows:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fleetfocus.net/software/images/mainhelp.JPG\">http://www.fleetfocus.net/software/images/mainhelp.JPG</a><!-- m -->\n\nThis is because defining a help TOPIC in your help file but displaying it as a help POPUP from within FWH only displays the heading of a TOPIC and, as we know, FWH will not display defined help POPUPS.\n\nRegards,\n\nDale.','',0,'IA==','3o07m34r',1,0,'',419,0,0),(7796,1748,3,419,0,'198.54.202.210',1140504541,1,0,1,1,1,0,'','','Hi Peter,\n\nAre you monitoring my \'Help on Help\' thread?\n\nI cannot get my context specific help to display correctly ON ANY PC and I have a sneaky suspicion that your problem is somehow related to my problem.\n\nWhen you define your help file are you creating HELP TOPICS or HELP POPUPS?  Are you trying to provide \'Context Specific Help\' or just \'General Help\' with your app?\n\nRegards,\n\nDale.','',0,'IA==','962qd3y8',1,0,'',419,0,0),(7797,1860,2,9,0,'85.59.64.22',1140505255,1,0,1,1,1,0,'','CONECTAR CON UNA PAGINA WEB','Queridos amigos,\n\nPodria alguien indicarme como puedo, desde una ventana en Clipper-FiveWin , hacer una llamada a una página web determinada y que esta se abriera en otra ventana?\n\nMuchas gracias.\n\nManuel','',0,'IA==','rgo72fso',1,0,'',9,0,0),(7798,1859,3,234,0,'72.130.245.241',1140505286,1,0,1,1,1,0,'','Email address','[quote=&quot;Milan Mehta&quot;:jf0w0ke3]Hello cdmmaui,\n\nI have using xHarbour and same code will work with FWH also. If you wish I can send you on your private mail as the Prg is quite big and everybody may not be interested in it.\n\nWith best regards,\n\nMilan.[/quote:jf0w0ke3]\n\nHello Milan,\n\nPlease forward sample Prg to <!-- e --><a href=\"mailto:darrell.ortiz@cdmsoft.com\">darrell.ortiz@cdmsoft.com</a><!-- e -->.\n\nMany thanks!','',0,'gA==','jf0w0ke3',1,0,'',234,0,0),(7799,1804,3,419,0,'198.54.202.210',1140505784,1,0,1,1,1,0,'','','Hello again, just trying to help <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nI have just downloaded and installed Help &amp; Manual to test and it would appear that Help &amp; Manual works correctly.\n\nIn Help &amp; Manual, what I was referring to as POPUP type help in Fast-Help, is referred to as HIDDEN TOPICS in Help &amp; Manual.\n\nIt would appear that there is a incompatibility issue between FWH and Fast-Help so I have provided the support team at Fast-Help a link to this thread for them to have a look at.\n\nThanks all for you trouble and time.\n\nI have added the code that you sent to me Antonio and it also works likes charm.\n\nThanks again.\n\nDale.','',0,'gA==','yuorg2pj',1,0,'',419,0,0),(7800,1856,1,418,0,'83.153.43.40',1140506323,1,0,1,1,1,0,'','','Thanks for you two\nIt works fine','',0,'gA==','3qlqwgh1',1,0,'',418,0,0),(7801,1861,3,419,0,'198.54.202.210',1140506515,1,0,1,1,1,0,'','Thanks for the excellent support!','I feel it necessary to post this message.\n\nI would really like to thank Antonio, James, and Enrico for all of their help and advice.\n\nThe support that I get from Antonio (FiveTech) and Patrick and Ron (xHarbour) is amazing and I would like to thank them for this.\n\nJust try and get this level of support and quick response from any other company!!!\n\nI started \'messing around\' with FiveWin a couple of years ago and got very frustrated with certain \'little\' things that did not work as anticipated and for the most part never managed to accomplish anything as I always, eventually, gave up and lost interest in what I was doing because of these \'little\' things which admittedly were mostly cosmetic (James knows exactly what I am talking about and has chastised me on more than one occasion for this which, by the way James, I did appreciate).\n\nBut since I purchased xHarbour from Patrick and purchased a FTDN subscription from Antonio (and started using FWH) everything seems to have just gone from strength to strength and I am FINALLY getting down to finishing a system that I have needed to complete for a couple of years now.  Everything works!!!\n\nAnd I am not looking for a discount on my FTDN renewal (or a quick way to get my TWBROWSE WIN32 HEADERS) - I JUST WANTED TO SAY THANKS!\n\nRegards,\n\nDale.\n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2pzblu9w',1,0,'',419,0,0),(7802,1841,7,449,0,'212.64.224.250',1140506610,1,0,1,1,1,0,'','','Hola Antonio,\n\nEl nuevo build (20.02.2006) me arroja este error al compilar\n\n[code:ragr3d9c]\nFiveCEC&#46;lib&#40;AYGSHELL&#46;obj&#41; &#58; error LNK2019&#58; unresolved external symbol SHGetDocum\nentsFolder referenced in function &quot;void __cdecl HB_FUN_SHGETDOCUMENTSFOLDER&#40;void\n&#41;&quot; &#40;?HB_FUN_SHGETDOCUMENTSFOLDER@@YAXXZ&#41;[/code:ragr3d9c]\n\nSi dejo la libreria del build del 17.02.2006 va Ok.\n\nSaludos.\nC.','',0,'AIA=','ragr3d9c',1,0,'',449,0,0),(7803,1804,3,419,0,'196.25.255.210',1140508418,1,0,1,1,1,0,'','','I have just done another test:\n\nI imported my .hlp file that I created with Help &amp; Manual into Fast-Help, recompiled withoug making any changes, and it (the Fast-Help compiled file) now works perfectly (although I have not tried to add another POPUP type help to it but will do so shortly).\n\nRegards,\n\nDale.','',0,'AIA=','3tud6t79',1,0,'',419,0,0),(7804,1804,3,2,0,'87.218.146.236',1140508692,1,0,1,1,1,1,'','','Dale,\n\nGlad to know its solved <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nYes, FWH march build will include all recent changes.','',0,'AIA=','34r5jhts',1,0,'',2,0,0),(7805,1861,3,2,0,'87.218.146.236',1140508987,1,0,1,1,1,1,'','','Dale,\n\nYou are welcome, but don\'t expect any disccounts  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','2pc5ye9f',1,0,'',2,0,0),(7806,1861,3,6,0,'82.58.168.238',1140509712,1,0,1,1,1,1,'','','You are welcome! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','25znroja',1,0,'',6,0,0),(7807,1841,7,262,0,'212.89.4.38',1140509932,1,0,1,1,1,1,'','','Carles , se ha añadido una libreria en el buildce.bat  , copia el que tienes en samples , o miralo y añade la libreria al archivo de linkado .\nSaludso.','',0,'AIA=','cb2saet2',1,0,'',262,0,0),(7808,1860,2,28,0,'213.27.201.254',1140510363,1,0,1,1,1,0,'','','Hola \n\nTienes dos posibilidades. Si lo haces mediante un control ActiveX sería asi:\n\n[code:pq95yxd1]   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oActiveX&#58;Do&#40; &quot;Navigate&quot;, cURl &#41;\n\n[/code:pq95yxd1]\n\nLa otra forma sería dejar al sistema que lo abra:\n\n[code:pq95yxd1] \n#DEFINE SW_SHOW           5\n\nlocal cLink &#58;= &quot;http&#58;//www&#46;google&#46;es&quot;\nShellExecute&#40; GetActiveWindow&#40;&#41; ,nil,cLink,\'\',\'\',SW_SHOW&#41;\n\n[/code:pq95yxd1]\n\nUn saludo','',0,'AIA=','pq95yxd1',1,0,'',28,0,0),(7809,1841,7,449,0,'212.64.224.250',1140510479,1,0,1,1,1,0,'','','Hola,\n\nEfectivamente -&gt; la CESHELL.LIB. Arrrg !  \n\n\nEl tema del bitmap desde recurso -&gt; ok\n\nGracias. \nC.','',0,'AIA=','1yjm62k0',1,0,'',449,0,0),(7810,1833,7,123,0,'81.39.239.66',1140510529,1,0,1,1,1,0,'','','José Luis,\n\nSi la idea es impresionar al cliente.... ¿por que no haces la aplicación directamente en FiveWin para (x)Harbour? Así tienes todos los recursos de programación disponibles en la pda.\n\nSi, como bien dices, vas a tener [b:lou489qt]siempre[/b:lou489qt] conectividad Wireles, puedes montar un servidor W2003 o W2000 con Terminal Server.\n\nLa aplicación FWH la haces pensando en las medidas de la PDA (240x320).  Para ejecutarla en la PDA solo tienes que abrir la conexión a Terminal Server y acceder a esa aplicación y ejecutarla.  Se ve en la PDA, pero se ejecuta en el servidor.\n\nSaludos,\nJosé Luis Capel','',0,'QA==','lou489qt',1,0,'',123,0,0),(7811,1862,7,468,0,'80.24.201.76',1140511700,1,0,1,1,1,0,'','nuevo','Hola soy Pilo y nuevo en esto\nespero que me perdoneis todas las molestias\ny problemas tontos que tenga\nGracias a todos de antemano <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'QA==','ubd12mf7',1,0,'',468,0,0),(7812,1804,3,419,0,'198.54.202.226',1140511839,1,0,1,1,1,0,'','','Thanks again.\n\nAfter much testing it would appear that it is Fast-Help that has the problem and not FWH (sorry about all of that).\n\nIf I create the help file with Help &amp; Manual it works perfectly (other than the long, very long, copyright messages of course) but if I create the same file with Fast-Help it will not work but if I import the Help &amp; Manual help file into Fast-Help the items that were previously defined in Help &amp; Manual work but any new items that I add in Fast-Help do not work and there is no difference between the properties of the Help &amp; Manual items and the newly added Fast-Help items.\n\nAnyway - once again - sorry for the trouble.\n\nSeeing that this is obviously not a FWH problem and has taken up much space maybe you should consider deleting this thread.\n\nRegards,\n\nDale.','',0,'QA==','2ctzkztc',1,0,'',419,0,0),(7813,1861,3,419,0,'196.25.255.210',1140511880,1,0,1,1,1,0,'','','OK - I\'ll settle for the TWBROWSE WIN32 HEADERS <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','2r1u8sxs',1,0,'',419,0,0),(7814,1862,7,449,0,'212.64.224.250',1140511936,1,0,1,1,1,0,'','','Hola,\n\n\"Quien no tenga problemas tontos que tire el primer prg\".\n\nBienvenido\n\nSaludos.\nC.','',0,'QA==','k6bxvsma',1,0,'',449,0,0),(7815,1862,7,2,0,'87.218.146.236',1140512022,1,0,1,1,1,1,'','','Bienvenido a bordo, Pilo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','w7lgyojl',1,0,'',2,0,0),(7816,1853,7,2,0,'87.218.146.236',1140513102,1,0,1,1,1,1,'','','Jose Luis,\n\nSolucionado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Hemos publicado un nuevo build que en unos minutos ya se podrá descargar.','',0,'QA==','1g9b0nu6',1,0,'',2,0,0),(7817,1773,3,6,0,'82.58.168.238',1140513115,1,0,1,1,1,1,'','Re: TComboBox:bCloseUp doesn\'t work','And I can\'t close the DIALOG using ESC key when the focus is on the combobox.\n\nEMG','',0,'QA==','kfby4bf1',1,0,'',6,0,0),(7818,1861,3,2,0,'87.218.146.236',1140513171,1,0,1,1,1,1,'','','Dale,\n\nAs we say here in Spain, \"listened from the kitchen!\" <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','32kjpht3',1,0,'',2,0,0),(7819,1854,17,2,0,'87.218.146.236',1140513737,1,0,1,1,1,1,'','','Manuel,\n\nbuen trabajo!  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','29on2lo5',1,0,'',2,0,0),(7820,1863,7,28,0,'213.27.201.254',1140513910,1,0,1,1,1,0,'','unresolved externals...','Hola, estoy intentando ejecutar el ejemplo wince3.prg y me da este error:\n\n[code:2v6oz9xc]\n   Creating library WINCE3&#46;lib and object WINCE3&#46;exp\nFiveCEC&#46;lib&#40;CMDBAR&#46;obj&#41; &#58; error LNK2019&#58; unresolved external symbol CommandBar_C\nreate referenced in function &quot;void __cdecl HB_FUN_CMDBARCREATE&#40;void&#41;&quot; &#40;?HB_FUN_C\nMDBARCREATE@@YAXXZ&#41;\nFiveCEC&#46;lib&#40;CMDBAR&#46;obj&#41; &#58; error LNK2019&#58; unresolved external symbol CommandBar_A\nddAdornments referenced in function &quot;void __cdecl HB_FUN_CMDBARINSERTMENU&#40;void&#41;&quot;\n &#40;?HB_FUN_CMDBARINSERTMENU@@YAXXZ&#41;\nFiveCEC&#46;lib&#40;CMDBAR&#46;obj&#41; &#58; error LNK2019&#58; unresolved external symbol CommandBar_I\nnsertMenubar referenced in function &quot;void __cdecl HB_FUN_CMDBARINSERTMENU&#40;void&#41;&quot;\n &#40;?HB_FUN_CMDBARINSERTMENU@@YAXXZ&#41;\nWINCE3&#46;exe &#58; fatal error LNK1120&#58; 3 unresolved externals\n* Application successfully built\n[/code:2v6oz9xc]\n\n¿A que se debe?\n\nUn saludo','',0,'AIA=','2v6oz9xc',1,0,'',28,0,0),(7821,1864,3,160,0,'210.212.142.6',1140514426,1,0,1,1,1,0,'','How to refresh DBCombo box ?','Hello,\n\nI am using DbCombo to select a Value from Master. If the entry do not exist in Master, I have one more button to enter a new value in Master. But that value do not show in DbCombo box now. How can I refresh the dbcombo box ?\n\nI hope I am able to convey my problem.\n\nTIA\nMilan.','',0,'AIA=','3lm33ozs',1,0,'',160,0,0),(7822,1865,3,419,0,'196.25.255.210',1140517742,1,0,1,1,1,0,'','Length of Cut / Copy and Paste using 0x4l Style in Dialog','Hello - I\'m really on a roll here.\n\nI just noticed something else very strange.\n\nI have one dialog defined with the 0x4l style parameter and another dialog (just for a test) that does not include the 0x4l style parameter (in BRW 4.5).\n\nEach dialog has two gets defined that are 30 characters wide.\n\nThe font of all of the controls is set to \'Tahoma\' etc. etc.\n\nOn the dialog with the 0x4l style:\n\nIf you fill the first get with all 30 characters and then cut or copy and paste to the other get that has the same width only about two thirds of the original data that was cut or copied is pasted to the new field i.e. the pasted data is shorter than the original data that was cut or copied from the first get.\n\nOn the dialog without the 0x4l style:\n\nIf you fill the first get with all 30 characters and then cut or copy and paste to the other get that has the same width all of the original data that was cut or copied is pasted to the new field i.e. the pasted data is the same as the original data that was cut or copied from the first get.\n\nIt is the same whether you use shift delete or the mouse.\n\nWhy do I need to use the 0x4l style parameter: because by not including the 0x4l parameter my whole system appears too \'spaced out\' and \'big\' and lacks that \'refined\' look!\n\nAny thoughts?\n\nRegards,\n\nDale.','',0,'AIA=','1yaex50q',1,0,'',419,0,0),(7823,1866,7,449,0,'212.64.224.250',1140518059,1,0,1,1,1,0,'','Donde -&gt; CabWiz.exe ?','Hola ,\n\nSabeis donde se puede bajar solo la aplicacion CabWiz.exe ?\n\n\nSaludos.\nC.','',0,'AIA=','3oi22qvw',1,0,'',449,0,0),(7824,1867,3,32,0,'196.36.8.34',1140518984,1,0,1,1,1,0,'','Tlistview views','Hi,\n\nHow do I change listview between big and small icons?','',0,'AIA=','2zanxndy',1,0,'',32,0,0),(7825,1833,7,262,0,'212.89.4.46',1140519055,1,0,1,1,1,1,'','','Muchisimas gracias , la solución que me das es \"perfecta\" , es justo lo que necesitaba , no me había planteado el uso de Terminal Server desde un PDA.\nMientras consiguo la conexion Wireless para el pda , puedo probar el Terminal via Activesync con cable o por infrarrojos ? .\nMuchas gracias , la idea es magnifica .\nSaludos.','',0,'AIA=','2bcx9xkx',1,0,'',262,0,0),(7826,1866,7,262,0,'212.89.4.46',1140519443,1,0,1,1,1,1,'','','mandame un mail a  <!-- e --><a href=\"mailto:manuel@telecable.es\">manuel@telecable.es</a><!-- e --> y te lo mando al remite','',0,'AIA=','1uheuo12',1,0,'',262,0,0),(7827,1848,3,29,0,'81.174.37.59',1140520837,1,0,1,1,1,0,'','','Hi James,\nI always used the mapi class to send emails without problems\nbut it now doesn\'t runs anymore with Outlook 2003 due to a Microsoft bug . This bug is reported in the article 872896.\n\n-- From MSN ---\n\nThe From field is blank in an e-mail message that is in the Sent Items folder in Outlook 2003\nView products that this article applies to.\nArticle ID : 872896 \nLast Review : January 4, 2005 \nRevision : 2.0 \nSYMPTOMS\nWhen you send an e-mail message in Microsoft Office Outlook 2003, the From field in the e-mail message that is in your Sent Items folder may not contain any e-mail addresses. Also, you may receive a non-delivery report (NDR) message in your Inbox folder that is similar to the following:\nYour message did not reach some or all of the intended recipients.\n\nSubject: test\nSent: 6/30/2004 1:48 PM\n\nThe following recipient(s) could not be reached:\n\n<!-- e --><a href=\"mailto:\'User@Domain.com\">\'User@Domain.com</a><!-- e -->\' on 6/30/2004 1:48 PM\nNone of your e-mail accounts could send to this recipient.\nCAUSE\nThis issue occurs if all the following are true:• You are using Microsoft Office Outlook 2003 Service Pack 1 (SP1). \n• You are using either a Post Office Protocol version 3 (POP3) account or an Internet Message Access Protocol (IMAP) account. \n• The e-mail message was sent to one or more people who are not in your domain. \n• Outlook 2003 is configured to receive an NDR message for all recipients. \n\nSTATUS\nMicrosoft has confirmed that this is a problem in the Microsoft products that are listed in the \"Applies to\" section.\n\nCurrently, there is no resolution for this issue. Because the e-mail message was not delivered to any recipients, the fact that you have an empty From field in an-email message that is in your Sent Items folder would be known only by you.\n\n--------------------------------------------------------------------------------\n\nAPPLIES TO\n• Microsoft Office Outlook 2003, Service Pack 1 (SP1) \n\n Back to the top \n\nKeywords:  kbtshoot kbprb KB872896','',0,'AIA=','wpmrm34h',1,0,'',29,0,0),(7828,1751,6,52,0,'200.82.110.124',1140521918,1,0,1,1,1,1,'','','amigos, \n\nGracias por su contestacion, ahora bien, pregunto ya para las futuras modificaciones que tenga que hacer... una vez que tengo modificada la clase tdialog, y quiero volver a generar la lib, lo puedo hacer tranquilamente? o tengo que tener ciertos cuidados?','',0,'AIA=','16tmnzkv',1,0,'',52,0,0),(7829,1863,7,2,0,'87.218.146.236',1140521960,1,0,1,1,1,1,'','','Paco,\n\nvuelve a descargar la versión más reciente de FWPPC. Aqui se construye sin problemas...','',0,'AIA=','1grqh0bc',1,0,'',2,0,0),(7830,1868,6,104,0,'201.58.54.187',1140522598,1,0,1,1,1,0,'','Dsay e Ssay não mostram texto comfwh 2.7','Olá Pessoal,\n\nQuais as mudanças que tenho que fazer nas classes SSAY.PRG e DSAY.PRG para que funcionem com o fwh 2.7 ?\n\nVejam abaixo o mesmo programa compilado com SSAY  e o SAY nativo do fwh:\n\n[img:3jqyep4e]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/ssay&#46;png[/img:3jqyep4e]\n\nObrigado,\n\nRossine.','',0,'CA==','3jqyep4e',1,0,'',104,0,0),(7831,1868,6,104,0,'201.58.54.187',1140522897,1,0,1,1,1,0,'','','Olá, \n\nJá tentei isto e não funcionou:\n\n[code:33j7m0gp]\n&#46;&#46;&#46;\nMETHOD Paint&#40;&#41; CLASS TSSay\n\n   local n \n   local nColorShadow, nColorLight\n\n  &#91;color=red&#93;DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;   &amp;&amp; AQUI&#91;/color&#93;\n\n   if &#58;&#58;nClrLight = Nil\n      nColorLight &#58;= GetSysColor&#40; COLOR_BTNHIGHLIGHT &#41;\n   else\n      nColorLight &#58;= &#58;&#58;nClrLight\n   endif\n\n   &#58;&#58;GetDC&#40;&#41;\n\n   if &#58;&#58;lActive\n&#91;color=red&#93; *AQUI\n      if &#58;&#58;lTransparent &#46;and&#46; ! Empty&#40; &#58;&#58;oBrush&#58;hBitmap &#41; \n         SetBrushOrgEx&#40; &#58;&#58;hDC, nBmpWidth&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nLeft, nBmpHeight&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nTop &#41; \n         FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41; \n      endif &#91;/color&#93;\n\n      for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n&#46;&#46;&#46;\n[/code:33j7m0gp]\n\nObrigado,\n\nRossine.\n','',0,'AoA=','33j7m0gp',1,0,'',104,0,0),(7832,1864,3,41,0,'200.87.67.10',1140523786,1,0,1,1,1,0,'','','Hola,\n\ntry :Refill() method\n\nregards\n\nMarcelo','',0,'AoA=','j7z0nuix',1,0,'',41,0,0),(7833,1869,6,362,0,'200.168.52.156',1140525757,1,0,1,1,1,1,'','SENSITIVE SAY EN WINDOWS XP TRABA DIALOG','Buenas...\n\nHola Foro.\n\nEstoy usando la Classe SSAY.PRG y SSAY.CH, y en Windows 98, está perfecto.\n\nTengo cincuenta Y uno(51) SAYS en la DIALOG, pero cuando intento COLORIR TODOS, TRABA MI DIALOG en WINDOWS XP.\n\nFiveWin 2.7 For [x]Harbour 0.99.60... Ke devo hacer??\n\nGracias, y un gran saludos a todos.','',0,'','1u18dn0a',1,0,'',362,0,0),(7834,1870,2,409,0,'201.246.66.244',1140526078,1,0,1,1,1,0,'','CLIENTE/SERVIDOR','Antonio, como se puede trabajar con clipper+fivewin como Cliente/Servidor.\nSaludos','',0,'','296h2hgz',1,0,'',409,0,0),(7835,1868,6,362,0,'200.168.52.156',1140526390,1,0,1,1,1,1,'','','LOCAL IDCor\n\n    //--- Melhoria visual nos say\'s\n    For IDCor=501 to 520\n        REDEFINE SENSITIVE SAY ID iDcor ;\n        COLOR CLR_HRED       OF oDlg    ;\n        UPDATE                          ;\n        BOX RAISED                      ;\n        CENTER                          ;\n        FONT oFont\n    Next IDCor  // By Ednaldo Rolim - Yes!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=609\">http://www.fivewin.com.br/exibedicas.asp?id=609</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/dicas/ssay.zip\">http://www.fivewin.com.br/dicas/ssay.zip</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=6393\">http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=6393</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5779\">http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5779</a><!-- m -->','',0,'','2kkm2noa',1,0,'',362,0,0),(7836,1848,3,247,0,'87.202.25.198',1140526615,1,0,1,1,1,0,'','','[quote=&quot;Marco Turco&quot;:bqjpmf6a]Thanks you Ask.\n\nThe Outlook send dialog appairs now (using Display(.t.) - with only Display() an error appairs)\n\nbut if I close the dialog without send the email then this error appairs:\n\n-----------\nApplication\n===========\n   Path and name: K:\\pigc\\PIGC.Exe (32 bits)\n   Size: 6,524,416 bytes\n   Time from start: 0 hours 0 mins 16 secs \n   Error occurred at: 20/02/06, 16:51:21\n   Error description: Error Outlook.Application:CREATEITEM/9  Proprietà di sola lettura.: DISPLAY\n   Args:\n     [   1] = L   .T.\n\nStack Calls\n===========\n   Called from TOLEAUTO:DISPLAY(0)\n--------------\n\nDo I need to include any special lib ?\n\nMarco[/quote:bqjpmf6a]\n\n\nHi Marco\nI don\'t know if this has to do with fwh version (i have 2.7 february 2006 and xharbour 0.99.60)  but the bellow example is working perfectly\n\n#include \"fivewin.ch\"\n\n\nFUNCTION SendMail()\n\nLOCAL oOutLook,oMailItem,oRecip,oAttach\n\noOutLook := CreateObject( \"Outlook.Application\" )\n\noMailItem := oOutLook:CreateItem( 0 )\n\noRecip := oMailItem:Recipients\noRecip:Add( \"mail@mail.com\" )\n\noMailItem:Subject := \"Testing fw\"\n\noMailItem:Body := \"FW Body!\" + CRLF + CRLF\n\n\noMailItem:display(.t.)\n\nRETURN NIL','',0,'gA==','bqjpmf6a',1,0,'',247,0,0),(7837,1862,7,262,0,'83.97.168.83',1140526617,1,0,1,1,1,1,'','','Bienvenido al club , todos somos nuevos en esto de pocket ,asi que nada de problemas TONTOS , solo son \"despistes\" que tenemos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nSaludso.','',0,'gA==','2qndt6hd',1,0,'',262,0,0),(7838,1455,4,68,0,'203.45.161.80',1140526750,1,0,1,1,1,1,'','','Antonio,\nWith PC2003 emulator my application simply displayed \'hb_errinternal\' and with WM2005 emulator causes an o/s error report to be created, which I\'ve emailed to you.  Hope it helps.  However the socket functions are easy to use instead and work perfectly well. Thanks again.\nregards,','',0,'gA==','28as2ga7',1,0,'',68,0,0),(7839,1865,3,6,0,'82.58.168.238',1140527689,1,0,1,1,1,1,'','Re: Length of Cut / Copy and Paste using 0x4l Style in Dialo','Try clicking on the checkbox \"Automatic scroll\" -&gt; \"Horizontal\" in the GET properties of the BRW.\n\nEMG','',0,'gA==','2x31aj4h',1,0,'',6,0,0),(7840,1763,2,228,0,'201.245.222.85',1140528574,1,0,1,1,1,1,'','Quita update','Amigo, a mi en alguna oportunidad me sucedio lo mismo y se debia a la clausula UPDATE, intenta quitarla, creo que esto te solucionara el problema.','',0,'gA==','pnl2tx5i',1,0,'',228,0,0),(7841,1853,7,262,0,'83.97.168.83',1140528594,1,0,1,1,1,1,'','','Funciona perfecto .\nMuchas Gracias.','',0,'gA==','3i35q09v',1,0,'',262,0,0),(7842,1871,6,52,0,'200.82.110.124',1140531113,1,0,1,1,1,1,'','Resumen, version, credo... en las LIB','Amigos,\n\nNecesito que mis .lib cuando yo presione boton derecho del mouse, luego a propiedades, me aparezca, que version de lib, quien lo creo, etc. Como se hace esto? o sea se lo puede hacer?','',0,'gA==','2pmf7cat',1,0,'',52,0,0),(7843,1872,6,451,0,'168.243.153.183',1140533079,1,0,1,1,1,0,'','Controlar PocketPC Device desde PC','Buenos dias a todos\n\nEstoy probando con dos librerias activex para poder controlar PocketPC desde una PC de Escritorio. \n\nActualmente logro abrirla por medio de createoleobject pero luego no puedo hacer ninguna llamada a las funciones. He tratado de usar OLEInvoke y Activex&#058;Metodo()  y nada. \n\nEstoy usando xHarbour 0.99.60  y fivewin 2.7. \n\nLos Activex que estoy usando se llaman Srego de <!-- w --><a class=\"postlink\" href=\"http://WWW.Srego.com\">WWW.Srego.com</a><!-- w --> y CESync de <!-- w --><a class=\"postlink\" href=\"http://www.pda-tec.com\">www.pda-tec.com</a><!-- w -->. \n\nTalvez me puedan iluminar un poco de lo que estoy haciendo mal.\n\nAdjunto parte de mi codigo, Gracias y saludos.\n\n   // SREGO\n   SregoCETPx:=CreateOleObject(\"SREGOCETPX.SregoCETPxCtrl.1\")\n   msginfo(sregocetpx)\n   // valor asignado = 24125504\n\n   MSGinfo(sregocetpx:GetVersion())\n   // Este ultimo deberia de regresar el numero de la version. Pero me da el error\n   // Error BASE/1004\n   // \'NUMERIC\' has no exported method: GetVersion\n\n\n   // CESync\n   SyncAx1:=CreateOleObject(\"PPC_SyncAxV2.SyncAx\")\n   MSGinfo(syncax1)\n   // valor asignado = 1546464\n\n   msginfo(syncax1:CreateFolder(\'\\PRUEBA\'))\n   // El de arriba me deberia de crear una carpeta en la pocket llamada PRUEBA pero da el mismo error\n   // Error BASE/1004\n   // \'NUMERIC\' has no exported method: GetVersion','',0,'gA==','ujqx6cwr',1,0,'',451,0,0),(7844,1821,6,362,0,'200.168.52.156',1140533246,1,0,1,1,1,1,'','','Antonio, No Funciono... Ke hice errado??\n\nAplicacao: \n===========\n   Caminho(Path): C:\\PDVXB\\BALCAOW.EXE (32 bits)\n   Tamanho: 3,496,960 bytes\n   Hora Inicial: 0 hours 0 mins 1 secs \n   Ocorrencia de Erro: 21/02/06, 11:43:58\n   Descricao do Erro: Error BASE/1004  Message not found: TDSAY:LTRANSPARENT\n\nChamada da Pilha: \n================= \n   Chamada De: TDSAY:ERROR(179)\n   Chamada De: (b)HBOBJECT:HBOBJECT(105)\n   Chamada De: TDSAY:MSGNOTFOUND(0)\n   Chamada De: TDSAY:LTRANSPARENT(167)\n   Chamada De: TCONTROL:INITIATE(378)\n   Chamada De: (b)TDSAY:TDSAY(68)\n   Chamada De: TDSAY:INITIATE(0)\n   Chamada De: __OBJSENDMSG(0)\n   Chamada De: OSEND(224)\n   Chamada De: ASEND(175)\n   Chamada De: TDIALOG:INITIATE(638)\n   Chamada De: TDIALOG:HANDLEEVENT(855)\n   Chamada De: DIALOGBOXINDIRECT(0)\n   Chamada De: TDIALOG:ACTIVATE(264)\n   Chamada De: SENHA2(335)\n   Chamada De: SENHA(137)\n   Chamada De: MAIN(295)','',0,'gA==','1jz4trli',1,0,'',362,0,0),(7845,1821,6,362,0,'200.168.52.156',1140533454,1,0,1,1,1,1,'','','//-&gt; CLASSE DSAY.PRG\n\nMETHOD Paint() CLASS TDSay\n\n   local n \n   local nColorShadow, nColorLight\n\n   ::GetDC()\n\n   if ::lActive\n\n      if ::lView\n\n         //-&gt; Modificado Por Antonio Linares, em 20/02/2006 Para TRANSPARENT\n         if ::lTransparent .and. ! Empty( ::oBrush:hBitmap ) \n            SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop ) \n            FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) \n         endif\n   \n         for n := 1 to len( ::aCaption )\n             WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft, ::aCaption[ n ], ::nClrText,,;\n                   If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n         next\n   \n         if ::lScroll .and. ::lWrap\n            if ::lHorizontal\n                for n := 1 to len( ::aCaption )\n                    WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft + ::nLong, ::aCaption[ n ], ::nClrText,,;\n                          If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n                next\n             else\n                for n := 1 to len( ::aCaption )\n                    WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight + ::nLong, ::nDLeft, ::aCaption[ n ], ::nClrText,,;\n                          If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n                next\n             endif\n         endif\n   \n      else\n   \n         InvalidateRect( ::hWnd, ::aRect, .t. )\n   \n      endif\n\n   else\n      \n      nColorShadow := GetSysColor( COLOR_BTNSHADOW )\n      nColorLight  := GetSysColor( COLOR_BTNHIGHLIGHT ) \n\n      for n := 1 to len( ::aCaption )\n          WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight + 1, ::nDLeft + 1, ::aCaption[ n ], nColorLight,,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n          WSay( ::hWnd, ::hDC, ::nDTop + ( n - 1 ) * ::nTxtHeight, ::nDLeft, ::aCaption[ n ], nColorShadow,,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n      next\n\n   endif\n\n   // 3D\n\n   if ::lShaded\n      WndInset( ::hWnd, ::hDC )   // SHADED, SHADOW\n   endif\n\n   if ::lRaised\n      WndRaised( ::hWnd, ::hDC )  // RAISED\n   endif\n\n   if ::lBox\n      WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft )\n      WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 )\n   endif\n\n   ::ReleaseDC()\n\nreturn nil','',0,'','33f79tww',1,0,'',362,0,0),(7846,1821,6,362,0,'200.168.52.156',1140533669,1,0,1,1,1,1,'','','CLASSE CONTROL.PRG\n\nMETHOD Initiate( hDlg ) CLASS TControl\n\n   DEFAULT ::lActive := .t., ::lDrag := .f., ::lCaptured := .f.,;\n           ::lFocused := .f., ::lCancel := .f.\n\n   if( ( ::hWnd := GetDlgItem( hDlg, ::nId ) ) != 0 )\n\n      If( ::lActive, ::Enable(), ::Disable() )\n      ::Link()\n\n      if ::oFont != nil\n         ::SetFont( ::oFont )\n      else\n         ::GetFont()\n      endif\n\n   else\n     #define NOVALID_CONTROLID   1\n     Eval( ErrorBlock(), _FWGenError( NOVALID_CONTROLID, \"No: \" + ;\n                                      Str( ::nId, 6 ) ) )\n   endif\n\n   //-&gt;Modificado Por Antonio Linares, em 20/02/2006 Para TRANSPARENT em DSAY.PRG\n   if ::lTransparent \n      ::SetBrush( ::oWnd:oBrush ) \n   else \n      ::SetBrush( TBrush():New( \"NULL\" ) ) \n   endif\n\nreturn nil','',0,'','2xzd5kf6',1,0,'',362,0,0),(7847,1833,7,123,0,'81.39.239.66',1140534213,1,0,1,1,1,0,'','','José Luis,\n\n[quote:2jmhnhqu]Mientras consiguo la conexion Wireless para el pda , puedo probar el Terminal via Activesync con cable o por infrarrojos ? . [/quote:2jmhnhqu]\n\nPues no lo se... no lo he probado. \n\nSaludos,\nJosé Luis Capel','',0,'gA==','2jmhnhqu',1,0,'',123,0,0),(7849,1869,6,104,0,'201.58.54.187',1140535623,1,0,1,1,1,0,'','','Olá Antonio,\n\nA classe ssay não está funcionando corretamente com fwh 2.7 fevereiro quando está em uma DIALOG. Em uma WINDOW funciona perfeitamente.\n\nJoão a minha classe ssay é mais atual que aquela do outro tópico. A minha tem a variável LIGHT a mais. \n\nPara descarregá-la mirem aqui: [url:14ywgngb]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/ssay&#46;zip[/url:14ywgngb]\n\nVejam no programa TESTSSAY.PRG na linha: 126 e 127.\n\nQuando a linha 127 está ativa: \"...FONT oFont TRANSPARENT\"\n\nme sai esta tela:\n\n[img:14ywgngb]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/ssay1&#46;png[/img:14ywgngb]\n\ne quando a linha 126 está ativa: \"...FONT oFont\"\n\nme sai esta tela:\n\n[img:14ywgngb]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/ssay2&#46;png[/img:14ywgngb]\n\ne sem falar que não está dando o efeito TRANSPARENTE.\n\nDaria para ver este problema para nós ?\n\nObrigado desde já,\n\nRossine.','',0,'GA==','14ywgngb',1,0,'',104,0,0),(7850,1869,6,362,0,'200.168.52.156',1140536569,1,0,1,1,1,1,'','','[quote=&quot;Rossine&quot;:2s4lbhov]Olá Antonio,\n\nA classe ssay não está funcionando corretamente com fwh 2.7 fevereiro quando está em uma DIALOG. Em uma WINDOW funciona perfeitamente.\n\nJoão a minha classe ssay é mais atual que aquela do outro tópico. A minha tem a variável LIGHT a mais. \n\nPara descarregá-la mirem aqui: [url:2s4lbhov]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/ssay&#46;zip[/url:2s4lbhov]\n\nVejam no programa TESTSSAY.PRG na linha: 126 e 127.\n\nQuando a linha 127 está ativa: \"...FONT oFont TRANSPARENT\"\n\nme sai esta tela:\n\n[img:2s4lbhov]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/ssay1&#46;png[/img:2s4lbhov]\n\ne quando a linha 126 está ativa: \"...FONT oFont\"\n\nme sai esta tela:\n\n[img:2s4lbhov]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/ssay2&#46;png[/img:2s4lbhov]\n\ne sem falar que não está dando o efeito TRANSPARENTE.\n\nDaria para ver este problema para nós ?\n\nObrigado desde já,\n\nRossine.[/quote:2s4lbhov]\n\nOlá Rossine... A minha Funciona Perfeita, exceto cuando tengo 51 SAY\'S na DIALOG, esto en WINDOWS XP, Inclusive el comando LIGHT, ti basta alterar SSAY.CH.\n\nSi quiseres envio a minha modificada para voce(usted)... Abraços. Saludos.','',0,'mA==','2s4lbhov',1,0,'',362,0,0),(7851,1869,6,362,0,'200.168.52.156',1140537212,1,0,1,1,1,1,'','','Rossin... Testei esta ke indicastes, y mi funciona perfecto. Abraços.\nmenos en XP.','',0,'mA==','1dqizfpk',1,0,'',362,0,0),(7852,1865,3,419,0,'198.54.202.210',1140537460,1,0,1,1,1,0,'','','Simple as that!\n\nThanks - it works!\n\nRegards,\n\nDale.','',0,'mA==','2kt1wtee',1,0,'',419,0,0),(7853,1869,6,104,0,'201.58.32.82',1140539184,1,0,1,1,1,0,'','','Olá João,\n\nEu estou testando este programa com XP. Em relação ao efeito transparente, é só alterar a classe CONTROL.PRG no método INITIATE:\n\n[code:1s2b1lh1]\nMETHOD Initiate&#40; hDlg &#41; CLASS TControl\n\n   DEFAULT &#58;&#58;lActive &#58;= &#46;t&#46;, &#58;&#58;lDrag &#58;= &#46;f&#46;, &#58;&#58;lCaptured &#58;= &#46;f&#46;,;\n           &#58;&#58;lFocused &#58;= &#46;f&#46;, &#58;&#58;lCancel &#58;= &#46;f&#46;, &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   if&#40; &#40; &#58;&#58;hWnd &#58;= GetDlgItem&#40; hDlg, &#58;&#58;nId &#41; &#41; != 0 &#41;\n\n      If&#40; &#58;&#58;lActive, &#58;&#58;Enable&#40;&#41;, &#58;&#58;Disable&#40;&#41; &#41;\n      &#58;&#58;Link&#40;&#41;\n\n      if &#58;&#58;oFont != nil\n         &#58;&#58;SetFont&#40; &#58;&#58;oFont &#41;\n      else\n         &#58;&#58;GetFont&#40;&#41;\n      endif\n\n   else\n     #define NOVALID_CONTROLID   1\n     Eval&#40; ErrorBlock&#40;&#41;, _FWGenError&#40; NOVALID_CONTROLID, &quot;No&#58; &quot; + ;\n                                      Str&#40; &#58;&#58;nId, 6 &#41; &#41; &#41;\n   endif\n\n   if &#58;&#58;lTransparent\n*     if IsAppThemed&#40;&#41;                     &lt;&lt;-- Tirei isto\n         &#58;&#58;SetBrush&#40; &#58;&#58;oWnd&#58;oBrush &#41; \n      else\n         &#58;&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41;\n*     endif                                   &lt;&lt;-- e Tirei isto\n   endif   \n\nreturn nil\n[/code:1s2b1lh1]\n\nmas não sei se isto é o certo. Antonio por favor confirme se isto pode ser assim  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->\n\nAgora o único problema é em relação aos \"cCaption\" que ficam repetindo como na primeira imagem que postei acima.\n\nAlguém sabe como resolver isto ???\n\nObrigado,\n\nRossine.','',0,'AIA=','1s2b1lh1',1,0,'',104,0,0),(7854,1869,6,104,0,'201.58.32.82',1140540181,1,0,1,1,1,0,'','','Oopss...\n\nIsto também não funciona:  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n[code:2s982j0z]\nMETHOD Initiate&#40; hDlg &#41; CLASS TControl \n\n&#46;&#46;&#46;\n\n   if &#58;&#58;lTransparent \n*     if IsAppThemed&#40;&#41;                     &lt;&lt;-- Tirei isto \n         &#58;&#58;SetBrush&#40; &#58;&#58;oWnd&#58;oBrush &#41; \n      else \n         &#58;&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41; \n*     endif                                   &lt;&lt;-- e Tirei isto \n   endif    \n\n[/code:2s982j0z]\n\nDesculpem-me.','',0,'AIA=','2s982j0z',1,0,'',104,0,0),(7855,1848,3,303,0,'68.7.28.54',1140540217,1,0,1,1,1,0,'','','Marco,\n\n[quote:3o1pdlgx] I always used the mapi class to send emails without problems \nbut it now doesn\'t runs anymore with Outlook 2003 due to a Microsoft bug . This bug is reported in the article 872896. [/quote:3o1pdlgx]\n\nNow I remember, we discussed this a short time ago. And if I remember correctly, you found that upgrading to SP2 solved the problem.\n\nAre you now looking for a solution that doesn\'t require the SP2 upgrade, or?\n\nJames','',0,'gA==','3o1pdlgx',1,0,'',303,0,0),(7856,1864,3,303,0,'68.7.28.54',1140540747,1,0,1,1,1,0,'','','Milan,\n\nAs Marcelo says, refill() will reread the data from the database. Of course, you have to add the new item to the database first.\n\nIt would be faster to use Add( cItem, nAt, cList ), but you would have to know what location (nAt) to put the item so this may be more difficult. If your database is small I would just use refill().\n\nJames','',0,'gA==','3ijh2k2b',1,0,'',303,0,0),(7857,1870,2,138,0,'201.133.73.175',1140541026,1,0,1,1,1,1,'','Re: CLIENTE/SERVIDOR','[quote=&quot;jbrita&quot;:3vn8xiud]Antonio, como se puede trabajar con clipper+fivewin como Cliente/Servidor.\nSaludos[/quote:3vn8xiud]\n\nClaro que si, para DBFs con Advantage Database Server:\n\nMirate este ejemplo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/aiswin32.zip\">http://www.google.d2g.com/ads/demos/aiswin32.zip</a><!-- m -->\n\nY con SQL via ADO\n\nMas info:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com/ads.htm\">http://www.google.com/ads.htm</a><!-- m -->','',0,'gA==','3vn8xiud',1,0,'',138,0,0),(7858,1860,2,138,0,'201.133.73.175',1140541131,1,0,1,1,1,1,'','','A 16 bits no se puede dentro de una ventana propia de la aplicacion.\n\nA 32 bits, como bien explica Paco, puedes hacerlo con un ActiveX.','',0,'gA==','1k3g50ko',1,0,'',138,0,0),(7859,1861,3,303,0,'68.7.28.54',1140541861,1,0,1,1,1,0,'','','Dale,\n\n[quote:1gexntju]...because of these \'little\' things which admittedly were mostly cosmetic (James knows exactly what I am talking about and has chastised me on more than one occasion for this which, by the way James, I did appreciate). [/quote:1gexntju]\n\nWell, either you misunderstood me, or I have misunderstood you, but let me state clearly that I feel that cosmetic issues ARE important. They say you shouldn\'t judge a book by its cover, but everyone does. If your application looks amateurish, then users will think it works the same way. Alternately, if it looks polished they will think it works that way too.\n\nThe first thing I am interested in when I look a new software is screenshots. I expect I am not alone in this.\n\nLet me also say that I think cosmetics are part of the bigger issue of interface design which is of equal importance to the working logic behind the interface. I have seen lots of interfaces that were so poor that they rendered the software next to useless.\n\nUnfortunately, interface design usually doesn\'t get enough attention in a project. This is often due to time and cost restraints, but it has the sad side effect of giving the programmers a bad reputation.\n\nJames','',0,'gA==','1gexntju',1,0,'',303,0,0),(7860,1869,6,362,0,'200.168.52.156',1140541883,1,0,1,1,1,1,'','','Transparent, tá funcionado perfeito...  Tudo funciona perfeito. \nMenos quando tenho mais de 40 SAY\'s.\n\nveja briga no fivewin brasil.','',0,'gA==','39qzka9o',1,0,'',362,0,0),(7861,1869,6,104,0,'201.58.32.82',1140543181,1,0,1,1,1,0,'','','Ô João,\n\nAqui está repetindo o say. Tá dificil. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/ssay1.png\">http://geocities.yahoo.com.br/qiinforma ... /ssay1.png</a><!-- m -->\n\nAbraços,\n\nRossine.','',0,'gA==','16jkv010',1,0,'',104,0,0),(7862,1592,1,303,0,'68.7.28.54',1140544042,1,0,1,1,1,0,'','','From all your questions about windows, I think you will be interested in splitters. Take a look at \\samples\\testspl1 - testspl6.\n\nJames','',0,'gA==','38rky4ed',1,0,'',303,0,0),(7863,1873,3,6,0,'87.6.210.92',1140544562,1,0,1,1,1,1,'','TGet bug?','In TGet:LButtonUp() method there is\n\nelseif Empty( cText ) .or. cText == \"  /  /\" .or. ;\n         AllTrim( cText ) == \"0\" .or. ;\n         AllTrim( cText ) == \"   -  -\"\n\nbut I think that cText can never be exactly equal to \"  /  /\" and surely AllTrim( cText ) can never be exactly equal to \"   -  -\".\n\nEMG','',0,'gA==','rq26e97k',1,0,'',6,0,0),(7864,1874,6,341,0,'200.127.97.186',1140544567,1,0,1,1,1,0,'','Configuracion Visual de Reportes como Factuplus','Estimados Colegas\n\nAlguien tiene un ejemplo sencillo de configuracion visual de reportes\ncomo el factuplus, soy usuario registrado de Easyreport, pero estoy\nbuscando otra alternativa.\n\ndesde ya muchas gracias\ndante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gA==','3e19fwi2',1,0,'',341,0,0),(7865,1873,3,375,0,'84.122.114.179',1140544795,1,0,1,1,1,1,'','','I think it\'s OK because ALLTRIM(\"  /  /    \") is exactly \"/  /\", in the same way ALLTRIM(\"  -  -    \") is exactly \"-  -\", and is necesary.','',0,'gA==','372e39g3',1,0,'',375,0,0),(7866,1869,6,362,0,'200.168.52.156',1140544976,1,0,1,1,1,1,'','','[quote=&quot;Rossine&quot;:15dqnm5t]Ô João,\n\nAqui está repetindo o say. Tá dificil. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/ssay1.png\">http://geocities.yahoo.com.br/qiinforma ... /ssay1.png</a><!-- m -->\n\nAbraços,\n\nRossine.[/quote:15dqnm5t]\n\nTem alguma coisa errada com o seu fivewin ou [x]Harbour. Perguntei ao Cristiano e Paulo Araujo se eles estavam com Problemas com o Release de Fevereiro de 2006, e disseram-me que tudo está a contento.\n\nTente gerar a FIVEHX.LIB com o [x]Harbour 0.99.60 usando o HARB2LIB.EXE y Teste de Novo... Comigo, somente trava a DIALOG no XP, se tiver mais de 40 SAY\'s... Estranho.','',0,'gA==','15dqnm5t',1,0,'',362,0,0),(7867,1833,7,262,0,'212.89.4.88',1140546150,1,0,1,1,1,1,'','','Por si a alguien le sirve :\nDe momento lo he probado con el emulador y funciona bien  , desde el emulador en el ordenador a -&gt; terminal Server -&gt;ordenador b .\nTambien me he conectado con el VNC para pocket con el ordenador via Activesync y funciona sin problemas.','',0,'gA==','ib1jmeyc',1,0,'',262,0,0),(7868,1848,3,29,0,'81.174.37.59',1140546414,1,0,1,1,1,0,'','','Hi James,\nas I read on MSN\nMicrosoft released only a patch to solve this problem in Exchange \nbut in Outlook there is not a solution at this moment\nso I am going to manage the email sending via OLE if Outlook is installad as client and via MAPI if it is not installed.\n\nHowever I take a look into the Fivewin tMail class \nand there is a \"aOrigin\" parameter but Outlook doesn\'t send the email also with the email account passed as aOrigin.\n\nThe problem appairs with Outlook 2003 sp2 also.\n\n\nMarco','',0,'gA==','2roogbj6',1,0,'',29,0,0),(7869,1848,3,29,0,'81.174.37.59',1140547363,1,0,1,1,1,0,'','','Hi Ask,\nnothing to do.\nYour code give me an error if I close the Outlook send dialog without sending the email. There isn\'t any problem if I send the email.\n\nI work with xHarbour 0.99.50 and FWH26 \nhowever I still bought the update to FWH27 so I hope this problem could be solved with this update.\n\nThanks\n\nBest Regards,\n\nMarco','',0,'gA==','kdlsxynl',1,0,'',29,0,0),(7870,1875,6,391,0,'201.221.140.82',1140548486,1,0,1,1,1,1,'','CIERRE INCOMPRENSIBLE DE CAJAS DE DIALOGO','Apreciados usuarios:\nMediante una funcion de mantenimiento me permito abrir hasta tres cajas de dialogo (con distinto nombre) y al ir cerrando una a una, me sucede que en ocasiones se me cierra otra ventana sobre la que no he pulsado su boton de cierre. Como si una  ventana me controlara el cierre de otras.\nA alguien le ha pasado algo parecido ?.  Pido su ayuda compañeros !!','',0,'gA==','1g0itbex',1,0,'',391,0,0),(7871,1873,3,6,0,'87.6.210.92',1140548605,1,0,1,1,1,1,'','','[quote=&quot;manuramos&quot;:rl1jx8h0]I think it\'s OK because ALLTRIM(\"  /  /    \") is exactly \"/  /\",[/quote:rl1jx8h0]\n\nYes, but the exact comparison is with \" / / \" (note that it starts with a space).\n\n[quote=&quot;manuramos&quot;:rl1jx8h0]in the same way ALLTRIM(\"  -  -    \") is exactly \"-  -\", and is necesary.[/quote:rl1jx8h0]\n\nAnd here the exact comparison is with \"  -  -    \" (note the leading and trailing spaces).\n\nEMG','',0,'gA==','rl1jx8h0',1,0,'',6,0,0),(7872,1873,3,375,0,'84.122.114.179',1140548804,1,0,1,1,1,1,'','','Yes it\'s true. I don\'t know why. It seems a bug.','',0,'gA==','34fnxr32',1,0,'',375,0,0),(7873,1773,3,2,0,'87.218.146.220',1140548857,1,0,1,1,1,1,'','','Enrico,\n\nThis fix solves the ESC close bug:\n[code:30xwfhf2]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TComboBox\n\n   if nKey == VK_RETURN\n      return &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endif\n   \nreturn Super&#58;KeyChar&#40; nKey, nFlags &#41;\n[/code:30xwfhf2]','',0,'AIA=','30xwfhf2',1,0,'',2,0,0),(7874,1773,3,6,0,'87.6.210.92',1140548975,1,0,1,1,1,1,'','','Thank you. And what about the bCloseUp problem?\n\nEMG','',0,'AIA=','13uerm89',1,0,'',6,0,0),(7875,1873,3,375,0,'84.122.114.179',1140549181,1,0,1,1,1,1,'','','Enrico, I\'m remembering, tree years ago,more or less,  I modified some methods of TGET class, and I released leading spaces. It\'s running OK.','',0,'AIA=','33pfpb5r',1,0,'',375,0,0),(7876,1876,6,228,0,'201.245.222.85',1140549466,1,0,1,1,1,1,'','Antonio tengo un problema con las libs que me enviaste.','Antonio, como raro yo molestando.\n\nTengo una inquitud con respecto a los dialogos con fondo, mira el codigo es el siguiente:\n\n[code:299dv8xv]\n*************************************************************\n*cuadro de dialogo para verificación conexion con el servidor\n*************************************************************\nPROC Inicio&#40;&#41;\n\nDEFINE BRUSH oBrush RESOURCE &quot;INICIO&quot;\nDEFINE DIALOG oDlg RESOURCE &quot;Plano10&quot; TRANSPARENT BRUSH oBrush OF oWinp\n oProgress = TProgress&#40;&#41;&#58;Redefine&#40; 4001, oDlg &#41;\n REDEFINE SAY oT1os1 ID 15 OF oDlg UPDATE\n oProgress&#58;SetRange&#40; 0, 2 &#41;\n oProgress&#58;SetPos&#40; 0 &#41;\nACTIVATE DIALOG oDlg CENTERED ON PAINT verifica&#40;&#41; VALID&#40;oLamcla&#58;vPPexit&#41;\n\nPROC verifica&#40;&#41;\noProgress&#58;SetRange&#40; 0, 2 &#41;\noProgress&#58;SetPos&#40; 0 &#41;\noLamcla&#58;vPPexit&#58;=&#46;F&#46;\n\noLamcla&#58;oServer &#58;= TMySQLServer&#40;&#41;&#58;New&#40; oLamcla&#58;cHost,oLamcla&#58;cUsuario,oLamcla&#58;cPassword&#41;\nIF oLamcla&#58;oServer&#58;NetErr&#40;&#41;\n  oT1os1&#58;Settext&#40;&quot;No se Puede Extablecer Comunicación Con el Servidor&quot;&#41;\n  MSGINFO&#40;&quot;No se PuedO Extablecer Comunicación Con el Servidor&quot;&#41;\n  QUIT\nELSE\n  oT1os1&#58;Settext&#40;&quot;Verificando Conexion con servidor&quot;&#41;\n  oProgress&#58;nPosition += 1\n  IF !&#40;oLamcla&#58;oServer&#58;DBExist&#40;oLamcla&#58;nDBdat&#41;&#41;\n    oT1os1&#58;Settext&#40;&quot;La base de Datos no existe&quot;&#41;\n    MSGINFO&#40;&quot;La base de datos no existe,&quot;+CRLF+&quot;por favor informe al administrador&#58; 6136913 Ext 114 &quot;+CRLF+&quot;Bogotá - Colombia&quot;&#41;\n    QUIT\n  ELSE\n    oProgress&#58;nPosition += 1\n    oT1os1&#58;Settext&#40;&quot;Fin del Proceso&quot;&#41;\n    oLamcla&#58;vPPexit&#58;=&#46;T&#46;\n    INKEY&#40;4&#41;\n    oDlg&#58;update&#40;&#41;\n    oDlg&#58;End&#40;&#41;\n  ENDIF\n  oLamcla&#58;oServer&#58;SelectDB&#40; oLamcla&#58;nDBdat &#41;\nENDIF\n\n[/code:299dv8xv]\n\n*CUANDO APLICO ESTA CLAUSULA LA PRIMERA VEZ SE CAMBIA Y QUEDA SUPER BIEN\n\n  oT1os1:Settext(\"No se Puede Extablecer Comunicación Con el Servidor\")\n\n*PERO CUANDO HAGO POR SEGUNDA VEZ\n\n    oT1os1:Settext(\"Fin del Proceso\")\n\nEl primer texto no se borra si no que las letras quenda montadas unas sobre las otras.\n\n\nQue me sugieres?\n\nFWH 2.7 Diciembre + Xharbour\n[/img]','',0,'AIA=','299dv8xv',1,0,'',228,0,0),(7877,1773,3,2,0,'87.218.146.220',1140549858,1,0,1,1,1,1,'','','Enrico,\n\nThese changes are required for the CloseUp event fix:\n\nIn dialog.prg:\n[code:2j6hbrft]\n#define CBN_CLOSEUP        8\n&#46;&#46;&#46;\nMETHOD Command&#40; nWParam, nLParam &#41; CLASS TDialog\n   &#46;&#46;&#46;\n              case nNotifyCode == CBN_SELCHANGE\n                   SendMessage&#40; hWndCtl, FM_CHANGE, 0, 0 &#41;\n\n              case nNotifyCode == CBN_CLOSEUP // New! \n                   SendMessage&#40; hWndCtl, FM_CLOSEUP, 0, 0 &#41;\n[/code:2j6hbrft]\n\nIn combobox.prg:\n[code:2j6hbrft]\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TComboBox\n\n   if nMsg == FM_CLOSEUP\n      return &#58;&#58;CloseUp&#40;&#41;\n   endif\n   \nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;      \n[/code:2j6hbrft]\n\nIn your sample change this:\n[code:2j6hbrft]\n    oCbx&#58;bCloseUp = &#123; || MsgInfo&#40; &quot;CloseUp Event&quot; &#41; &#125; \n[/code:2j6hbrft]','',0,'AIA=','2j6hbrft',1,0,'',2,0,0),(7878,1860,2,9,0,'85.59.64.22',1140550838,1,0,1,1,1,0,'','','[quote=&quot;Paco Garcia&quot;:299c0y0k]Hola \n#DEFINE SW_SHOW           5\n\nlocal cLink := \"http://www.google.es\"\nShellExecute( GetActiveWindow() ,nil,cLink,\'\',\'\',SW_SHOW)\n[/quote:299c0y0k]\n\nPaco, muchas gracias. Me ha funcionado perfectamente.\n\nUn saludo','',0,'gA==','299c0y0k',1,0,'',9,0,0),(7879,1798,6,83,0,'80.35.196.60',1140551430,1,0,1,1,1,0,'','Re: errror en folder de WS a PellecC','Jose Luis\nyo utilizo FW 2.4 y para generar los folder en PellesC lo hago con el control TFolder, si utilizas el que te pone por defecto Pelles, no funciona, eso es supongo lo que te está pasando, el SysTabControl32 que dice Antonio es para versiones posteriores de FW.\n\nEspero haber ayudado, en cualquier caso a mi me funciona perfectamente, así que si necesitas mas ayuda ponte en contacto conmigo por correo privado.\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','7rguzjn9',1,0,'',83,0,0),(7880,1773,3,6,0,'87.6.210.92',1140552159,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'gA==','iogrs4vr',1,0,'',6,0,0),(7881,1873,3,6,0,'87.6.210.92',1140552384,1,0,1,1,1,1,'','','[quote=&quot;manuramos&quot;:1vlfs844]Enrico, I\'m remembering, tree years ago,more or less,  I modified some methods of TGET class, and I released leading spaces. It\'s running OK.[/quote:1vlfs844]\n\nSorry, I don\'t understand. Are you saying that you leaved or removed the leading spaces?\n\nEMG','',0,'gA==','1vlfs844',1,0,'',6,0,0),(7882,1877,2,341,0,'200.127.97.186',1140555316,1,0,1,1,1,0,'','Configuracion Visual de Reportes como Factuplus','Estimados Colegas\n\nAlguien tiene un ejemplo sencillo de configuracion visual de reportes\ncomo el factuplus, soy usuario registrado de Easyreport, pero estoy\nbuscando otra alternativa.\n\ndesde ya muchas gracias\ndante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gA==','3mpw30bw',1,0,'',341,0,0),(7883,1798,6,362,0,'200.168.52.156',1140555730,1,0,1,1,1,1,'','Re: errror en folder de WS a PellecC','[quote=&quot;joseluisysturiz&quot;:2lsl8tq3][quote=&quot;Antonio Linares&quot;:2lsl8tq3]Jose Luis,\n\nEn tu fichero de recursos has de declarar el folder como \"SysTabControl32\" en vez de \"TFolder\".[/quote:2lsl8tq3]\n\n\nYa hice eso y aun sigue el error, elimine el folder cree 1 nuevo bajo Pelles y dice TabControl, pero no remedio nada, alguna otra idea, donde consigo esa libreria..?, gracias...[/quote:2lsl8tq3]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=473\">http://www.fivewin.com.br/exibedicas.asp?id=473</a><!-- m -->','',0,'gA==','2lsl8tq3',1,0,'',362,0,0),(7884,1876,6,362,0,'200.168.52.156',1140555837,1,0,1,1,1,1,'','','Intente:\n\noDlg:Refresh()','',0,'gA==','gf3voosf',1,0,'',362,0,0),(7885,1846,6,147,0,'200.110.141.156',1140556106,1,0,1,0,1,1,'','','No estás usando librerias de terceros?. Recuerda que en ese caso las debes recompilar con (x)Harbour\n\nSaludos','',0,'gA==','3kencopz',1,0,'',147,0,0),(7886,1861,3,419,0,'198.54.202.210',1140556386,1,0,1,1,1,0,'','','Don\'t sound so stern!\n\nI DID appreciate what you were saying on those occasions and very much appreciate your help and input <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards,\n\nDale.','',0,'gA==','2jot9yhf',1,0,'',419,0,0),(7887,1846,6,453,0,'217.124.57.229',1140556739,1,0,1,1,1,0,'','','Hola, Mario:\n\nNo, no utilizo librerías de terceros\n\nSaludos','',0,'gA==','25rfunuy',1,0,'',453,0,0),(7888,1878,6,228,0,'201.245.222.85',1140556829,1,0,1,1,1,1,'','Una pequeña pregunta de botones','Amigo estoy utilizando nueva clase para BUTTONBMP estilo windows xp, pero necesito saber como le puedo poner la imagen a este boton desde recursos.\n\n[code:1setyvdt]\nREDEFINE BUTTONBMP ID 10 OF oDlg ACTION pVerDat&#40;&#41; \n[/code:1setyvdt]','',0,'AIA=','1setyvdt',1,0,'',228,0,0),(7889,1878,6,228,0,'201.245.222.85',1140559526,1,0,1,1,1,1,'','Solucionado','ok amigos, solucionado <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[code:9mxud961]\n   REDEFINE BUTTONBMP Btng ID 10 OF oDlg BITMAP &quot;Bsalid&quot; ACTION pVerDat&#40;&#41; \n\n[/code:9mxud961]','',0,'AIA=','9mxud961',1,0,'',228,0,0),(7890,1874,6,362,0,'200.168.52.156',1140559595,1,0,1,1,1,1,'','','Hola dante... Todo bién??\n\nya está a la VENTA, la FANSTASTICA LIBRERIA by Vagner Wirts.\n\nCon Suporte a  Todos los Reportes del FiveWin.\n\nMejores Detalles, Envia un Correo a:\n\n<!-- e --><a href=\"mailto:vwirts@ig.com.br\">vwirts@ig.com.br</a><!-- e -->\n\nTiene DEMOS en <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br\">http://www.fivewin.com.br</a><!-- m -->\n\nen DICAS mas dicas...\n\n\nSaludos y suerte!','',0,'AIA=','1t2yr772',1,0,'',362,0,0),(7891,1879,7,262,0,'83.97.168.83',1140559820,1,0,1,1,1,1,'','realizar una busqueda por contiene','Pues eso se me plantea realizar una busqueda incremental , pero por \"contiene\" .\nMe explico mejor : \nSeria algo como un filtro \"  set filter to cBuscar $  field-&gt;descrip  \"  . \nExiste otra manera de realizar esto ?\nAlguien tiene algo que implemente este tipo de busqueda incremental ?\nSe agradece un ejemplo de codigo que realice algo similar ....\nGracias Anticipadas .','',0,'AIA=','33h8ew35',1,0,'',262,0,0),(7892,1592,1,379,0,'59.167.116.150',1140562431,1,0,1,1,1,0,'','splitters','Yes, James I have used them in the past.  Also a class for expanding screens when the display size changes fro 800x600 to any larger size would be a bonus....\n\nThanks for taking the time.','',0,'AIA=','2lhj8yw2',1,0,'',379,0,0),(7894,1880,7,28,0,'87.218.46.222',1140564859,1,0,1,1,1,0,'','Clase TClock para FWPPC','Hola a todos. Todavía no funciona del todo bien pero creo que merece la pena ir viendola funcionar.\n\n[url:3ejctrtd]http&#58;//www&#46;arrakis&#46;es/~canal_five/reloj&#46;zip[/url:3ejctrtd]\n\nEn cuanto encuentre una solucion para PolyPolygon mandare el resto.\n\nUn saludo','',0,'EA==','3ejctrtd',1,0,'',28,0,0),(7895,1764,3,267,0,'201.9.203.167',1140570824,1,0,1,1,1,0,'','','Thanks Enrico <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nSds, \nVilian F. Arraes \n<!-- e --><a href=\"mailto:vilian@vfatec.com.br\">vilian@vfatec.com.br</a><!-- e -->','',0,'EA==','2m4gpguz',1,0,'',267,0,0),(7896,1859,3,206,0,'61.94.170.132',1140574213,1,0,1,1,1,0,'','','Dear Milan,\n\ncould you please send your prg to <!-- e --><a href=\"mailto:yam_hiong@yahoo.com.sg\">yam_hiong@yahoo.com.sg</a><!-- e --> also?\nthanks.\n\nregards,\nhiong','',0,'EA==','2n2hxj6j',1,0,'',206,0,0),(7897,1874,6,252,0,'201.140.17.197',1140577372,1,0,1,1,1,0,'','','Yo tambien estoy interesado en saber si existe algun programa para diseño visual de formatos distinto de easyreport. Ya vi el que usa facturaplus y me parece muy versatil. ¿se podra conseguir o es un desarrollo propio de la compañía que desarrolló el producto?. Si alguien sabe algo, por favor de el dato.\n\n   Bajé el demo de vlib que muestra un excelente preview. Me gustaría saber si tambien incluye alguna herramienta para diseño visual de reportes.\n\n    Saludos.\n\n    José Ríos.','',0,'EA==','qle3v9y3',1,0,'',252,0,0),(7898,1874,6,341,0,'200.127.97.186',1140577683,1,0,1,1,1,0,'','','Jose\n\nYo estoy en los incios del desarrollo deuno pero queria saber si habia alguno mas avanzado para compartir experiencias, si te fijas en samples esta\ngenrep.prg  para comenzar modificando\n\nGracias\nDante\n<!-- e --><a href=\"mailto:Devwin2004@yahoo.com.ar\">Devwin2004@yahoo.com.ar</a><!-- e -->','',0,'EA==','2ss7q59a',1,0,'',341,0,0),(7899,1867,3,32,0,'196.36.8.34',1140583648,1,0,1,1,1,0,'','Listview list solved','Hi,\n\nIn case anybody wants to do it too:\n\n    MENUITEM \"Big Icons\" Action SetWindowLong( ::oLv:hWnd, -16, nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, LVS_ICON ) )\n    MENUITEM \"Small Icons\" Action SetWindowLong( ::oLv:hWnd, -16, nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, LVS_SMALLICON ) )\n    MENUITEM \"List\" Action SetWindowLong( ::oLv:hWnd, -16, nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP, LVS_LIST ) )\n\nAs long as you have assigned image lists for big and small. I used the same one for both <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Windows resized the icons','',0,'EA==','3jjacwxn',1,0,'',32,0,0),(7900,1865,3,32,0,'196.36.8.34',1140583829,1,0,1,1,1,0,'','Cut and paste','hi,\n\nOne thing I have noticed is that  once you cut from a get, the variable is not padded afterwards, so if you cut everything you can\'t type in the get anymore.\n\nAlso pasting makes a variable longer, the variable size is not restricted.\n\nI\'ll be chasing this down today, unless somebody else already has?','',0,'EA==','2p6xhd07',1,0,'',32,0,0),(7901,1864,3,160,0,'210.212.142.6',1140586662,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1il0xj51]Milan,\n\nAs Marcelo says, refill() will reread the data from the database. Of course, you have to add the new item to the database first.\n\nIt would be faster to use Add( cItem, nAt, cList ), but you would have to know what location (nAt) to put the item so this may be more difficult. If your database is small I would just use refill().\n\nJames[/quote:1il0xj51]\n\nDear James / Marcelo,\n\nFollowing is my code snippet, which it still not working (in spite of Refill() use)\n\nCan u guide me further ?\n\n--------------------------------Cut-------------------------\nREDEFINE DBCOMBO oPackCode VAR oInv:aItem[nItem, 4]  ID CBINVTRPACKTYPE OF oDlgItem UPDATE;\n            ALIAS \'PACK\' ;\n            ITEMFIELD \'PACKCODE\' ;\n\n            LISTFIELD \'PACKNAME\' ;\n            VALID !Empty(oInv:aItem[nItem, 4])\n\n   REDEFINE BUTTON ID PBINVTRPACKNEW ACTION Ins_Pack (oDlgItem, \'Add\'), oPackCode:Refill()\n\n------------------------------------------Paste-----------------------------\n\nTIA\nMilan.','',0,'gA==','1il0xj51',1,0,'',160,0,0),(7902,1865,3,419,0,'198.54.202.210',1140588330,1,0,1,1,1,0,'','','Hi Alex,\n\nI\'m not sure if this is what you are talking about but I just tried to test for your problem and I get this:\n\nGet contains e.g. \'111122223333\'\n\nIf you highlight all the 2\'s in the above example and then cut them and immediately start typing into that get again (without pasting the contents of the paste buffer to somehwere else) the first letter that you type is accepted and whatever is in the past buffer is immediately put back into the Get.\n\nBUT this only happens when you use the mouse to cut i.e. if you use the keyboard to cut using Shift+Del or just Del everything is fine.\n\nOther than that if I cut from a Get, even the whole Get, I can type into the Get again.\n\nRegards,\n\nDale.','',0,'gA==','1v3dqxil',1,0,'',419,0,0),(7903,1865,3,32,0,'196.36.8.34',1140589132,1,0,1,1,1,0,'','Cutting','Hi,\n\nIt happens with me if I highlight all the text in the get field, and press ctrl-x on the keyboard.\n\nRight clicking and choosing cut from the menu seems to work properly.\n\nI think the Ctrl-X is not getting caught properly. Windows cuts the text, and my app doesn\'t know.','',0,'gA==','22iiipn8',1,0,'',32,0,0),(7904,1865,3,419,0,'198.54.202.210',1140590201,1,0,1,1,1,0,'','','Hello,\n\nI tried Ctrl+X and it works for me i.e. I can highlight the text, press Ctrl+X (which removes the highlighted text) and then type something new.  I can then past (using Ctrl+V) anywhere else I like no problem.\n\nRegards,\n\nDale.','',0,'gA==','115u3eum',1,0,'',419,0,0),(7905,1881,3,419,0,'196.25.255.210',1140590451,1,0,1,1,1,0,'','Resource Limit','Hello,\n\nBefore I get too far down the river and then find that I don\'t have a paddle - is there a limit to the number of Resources that a .RES file (or an application for that matter) can contain?\n\nHas anyone ever run out of place for new Resources like Dialogs, Bitmaps, etc. etc. using BRW 4.5 / xHB / FWH?\n\nThis has not happened to me yet but I just want to make sure that at this early stage I don\'t run out of options.\n\nRegards,\n\nDale.','',0,'gA==','ehpokk5e',1,0,'',419,0,0),(7906,1882,3,419,0,'198.54.202.210',1140591059,1,0,1,1,1,0,'','Is it possible to change a Resource Type on the fly?','Is there any way to change the actual type of a resource from within your application?\n\nLet us say that you have a dialog defined in a .RES file (created with BRW 4.5) and on that dialog you have defined, let us say, five gets.\n\nIs there any way from within your application to sort of \'redefine\' those gets so that they \'become\' says for example?\n\nNote that this is not the same as defining gets in your resource and then trying to use those get definitions as says by using disabled gets in your application.  I am talking about actually changing the resource type as defined in your .res file so that to your application it appears that the gets that you have defined in your .res file are says (the difference between an EDITTEXT and a LTEXT resource for example).\n\nThe problem (well not so much a problem but just a pain) is that in the application that I am creating I find myself having to create at least three identical dialogs (for add, edit, and view screens) and the only difference between these dialogs is that some of the gets become says etc. etc. and this just seems a very cumbersome way of doing things.\n\nRegards,\n\nDale.','',0,'gA==','3ebfkm1e',1,0,'',419,0,0),(7907,1883,3,160,0,'210.212.142.6',1140591435,1,0,1,1,1,0,'','Workaround to make DBCOMBO to work with numeric Item field','Hello,\n\nIs there any workaround to make DBCOMBO to work with numeric Item field ? We are in the process of converting legacy application into FWH. And almost all the applications has numeric primary key in the master table. I am heavily stuck up here.\n\nCan anybody guide me ?\n\nTIA\nMilan.','',0,'gA==','3a2n73w9',1,0,'',160,0,0),(7908,1884,3,160,0,'210.212.142.6',1140591498,1,0,1,1,1,0,'','Footer for TwBrowse possible ?','Hello,\n\nIs there any way to give total of numeric columns in the footer of TwBrowse (standard) ? I did not find any option for footer in TwBrowse.\n\nCan anybody guide me ?\n\nTIA\nMilan.','',0,'gA==','1yjfkwdp',1,0,'',160,0,0),(7909,1867,3,303,0,'68.7.28.54',1140593233,1,0,1,1,1,0,'','','Alex,\n\nThanks for sharing that.\n\nJames','',0,'gA==','4s8oneju',1,0,'',303,0,0),(7910,1884,3,303,0,'68.7.28.54',1140593412,1,0,1,1,1,0,'','','Milan,\n\nYou cannot do footers with TWBrowse. You can with the 3rd-party browse TSBrowse.\n\nNote that to do totals in footers is going to require a full pass though the database. For large databases this is usually not feasible.\n\nJames','',0,'gA==','1wv84kgn',1,0,'',303,0,0),(7911,1882,3,6,0,'82.55.208.235',1140593927,1,0,1,1,1,1,'','Re: Is it possible to change a Resource Type on the fly?','Just use WHEN or READONLY clause of the GET objects (or bWhen and lReadonly instance variables).\n\nEMG','',0,'gA==','2otume5q',1,0,'',6,0,0),(7912,1883,3,6,0,'82.55.208.235',1140594063,1,0,1,1,1,1,'','Re: Workaround to make DBCOMBO to work with numeric Item fie','Can\'t you just use Str( FieldName )?\n\nEMG','',0,'gA==','1it0hgf6',1,0,'',6,0,0),(7913,1764,3,6,0,'82.55.208.235',1140594240,1,0,1,1,1,1,'','','But you can try to create wrappers. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1yrec58k',1,0,'',6,0,0),(7914,1883,3,303,0,'68.7.28.54',1140594301,1,0,1,1,1,0,'','','Milan,\n\nYou can preload the data into arrays (and convert the data to string while doing that). Then use the SET method:\n\nMETHOD SetItems( aItems, aList )\n\nWhen you save the selected item no. you may need to convert it back to numeric.\n\nThe problem is that the data needs to be string for the combobox class which is the base class of dbcombo.\n\nAnother way would be to modify the dbcombo source. The downside is that you will either not automatically get any improvements to newer versions of DBCombo that come with FW.\n\nMaybe the best thing would be to customize a copy of dbcombo and give it a new class name.  That is probably what I would do, but if you are not familiar with writing classes this may take some effort for you.\n\nJames','',0,'gA==','2ft41ppe',1,0,'',303,0,0),(7915,1882,3,419,0,'198.54.202.210',1140595132,1,0,1,1,1,0,'','','OK - well that works - sort of.\n\nThe cursor is still flashing though even although you cannot edit the get.\n\nI have tried \'Set Cursor Off\' and SetCursor( .F. ) - still have cursor.\n\nAlso - your ordering stays the same (something I did not think of) i.e. in my \'Edit\' Dialog Box the first Get is numbered (ordered) 1 but in my \'Vew\' Dialog Box the 1 is the OK button.  This (I don\'t think) is a problem if you can turn the cursor off.\n\nRegards,\n\nDale.','',0,'gA==','2635p8uj',1,0,'',419,0,0),(7916,1882,3,303,0,'68.7.28.54',1140595735,1,0,1,1,1,0,'','','Dale,\n\n[quote:2cm7qz4n]The problem (well not so much a problem but just a pain) is that in the application that I am creating I find myself having to create at least three identical dialogs (for add, edit, and view screens) and the only difference between these dialogs is that some of the gets become says etc. etc. and this just seems a very cumbersome way of doing things. [/quote:2cm7qz4n]\n\nNo, no, no. We are not in Kansas anymore Toto! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nUnlike DOS apps, in Windows apps there is only one mode-edit mode. You can use the same dialog for all three functions, add, edit, and view. Build one edit dialog. To view the data, the user just opens it for editing and Cancels when done. To make it into an add screen, I just set a var lAdd:=.t. then when the edit routine is called if lAdd then blank the fields, and edit. When the OK button is clicked, check for lAdd and if .t. then append and save else just save. Simple.\n\nThis is even much easier if you use database classes. Database classes have built in buffers which makes canceling easy. Have you read the articles about this I wrote? You can find them here:\n\n[url:2cm7qz4n]http&#58;//ourworld&#46;compuserve&#46;com/homepages/jbott/program&#46;htm[/url:2cm7qz4n]\n\nPart II explains the add/edit methods in detail.\n\nThe beauty of this approach is that you can create one class that does most of this, then you just need to create a subclass to add the specifics for each file (item, customer, etc.). Even simpler!\n\nWatch out for that Wicked Witch--she will lead you down the wrong road. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nJames','',0,'kA==','2cm7qz4n',1,0,'',303,0,0),(7917,1865,3,303,0,'68.7.28.54',1140596188,1,0,1,1,1,0,'','','Dale and Alex,\n\nAntonio just mentioned a couple of days ago that the Get classes in Harbour and xHarbour have a number of differences. Perhaps each of you is using a different compiler? Or a different version?\n\nJames','',0,'kA==','2o6kpt5t',1,0,'',303,0,0),(7918,1864,3,303,0,'68.7.28.54',1140596781,1,0,1,1,1,0,'','','Milan,\n\nI vaguely remember that you have to call reset() after refill(). Try that and let me know if it works. If so, I will add reset() to the refill() method and suggest that change to Antonio.\n\nJames','',0,'kA==','28gd7415',1,0,'',303,0,0),(7919,1455,4,2,0,'87.218.146.70',1140599274,1,0,1,1,1,1,'','','Jon,\n\nI have seen the screens. Could you provide a small sample that reproduces the error ? Thanks,','',0,'kA==','2v5kvdcw',1,0,'',2,0,0),(7920,1881,3,2,0,'87.218.146.70',1140599461,1,0,1,1,1,1,'','','Dale,\n\nThere is no limit. \n\nDo you store your resources inside the EXE or into a DLL ?','',0,'kA==','2b2ciblc',1,0,'',2,0,0),(7921,1867,3,32,0,'196.36.8.34',1140599669,1,0,1,1,1,0,'','Listview','You need these defines\n\n#define LVS_ICON                     0\n#define LVS_SMALLICON                2\n#define LVS_LIST                     3','',0,'kA==','2rf8pxsp',1,0,'',32,0,0),(7922,1846,6,2,0,'87.218.146.70',1140599814,1,0,1,1,1,1,'','','Ramón,\n\nPosiblemente esas funciones tienen nombres más largos, y en la aplicación en Clipper las llamabas con nombres más cortos, lo cual funciona en 16 bits (porque los nombres de los símbolos estan limitados a 10 caracteres) pero no ócurre así en Harbour/xharbour en donde pueden tener la longitud que queramos.\n\nBusca esos nombres, por ejemplo CREANTX() y mira donde está declarada si el nombre es igual ó más largo.','',0,'kA==','2a39vr31',1,0,'',2,0,0),(7923,1852,18,2,0,'87.218.146.70',1140599880,1,0,1,1,1,1,'','','Manu,\n\nEn el código del bChange prueba a llamar a SysRefresh() para darle tiempo a Windows a procesar mensajes pendientes.','',0,'kA==','egurn9f7',1,0,'',2,0,0),(7924,1876,6,2,0,'87.218.146.70',1140600064,1,0,1,1,1,1,'','','Leandro,\n\nEs un bug que ya está solucionado. Envíame un email, gracias.','',0,'kA==','3vwyessx',1,0,'',2,0,0),(7925,1875,6,2,0,'87.218.146.70',1140600212,1,0,1,1,1,1,'','','Cuando creas las cajas de diálogo les pones la claúsula OF oDlg ?\n\nDEFINE DIALOG oDlg ... OF oDlgAnterior  ?\n\nEn caso de que lo hagas así, prueba a quitarles esa claúsula:\n\nDEFINE DIALOG oDlg ...','',0,'kA==','38y72n97',1,0,'',2,0,0),(7926,1885,3,29,0,'81.174.37.59',1140600518,1,0,1,1,1,0,'','Has anyone the FileXLS lib for xHarbour 0.99.60 ?','As subject.\n\nThanks in advance\n\nMarco Turco','',0,'kA==','r6epmj6n',1,0,'',29,0,0),(7927,1886,20,29,0,'81.174.37.59',1140600698,1,0,1,1,1,0,'','Libreria FileXLS per xHarbour 0.99.60','Salve,\nqualcuno di voi ha la libreria in oggetto ?\n\nGrazie in anticipo.\n\nMarco Turco','',0,'kA==','1dkaze2z',1,0,'',29,0,0),(7928,1864,3,160,0,'210.212.142.6',1140602175,1,0,1,1,1,0,'','','Dear James,\n\nNo, using Reset() removes all the item in dbcombo. Issuing Refill() again also do not bring them back.\n\nCan u just experiement it ?\n\nTIA\nMilan.','',0,'kA==','2sg5hrh4',1,0,'',160,0,0),(7929,1881,3,419,0,'196.25.255.210',1140602195,1,0,1,1,1,0,'','','Hello again,\n\nWell I am use xHB so when compiling it is storing all of the resources in the .exe.\n\nWhich way is preferable?\n\nRegards,\n\nDale.','',0,'kA==','1kpjmrkj',1,0,'',419,0,0),(7930,1882,3,419,0,'196.25.255.210',1140602592,1,0,1,1,1,0,'','','Well, OK.\n\nBut the reason that I have to have add, edit, and view displayed differently is because of (intended) system security i.e. if a user does not have sufficient priveleges to add, or edit, or add only or edit only, and can only view (by double clicking on a record for example) then the screen must appear differently to that user.\n\nAre you saying that a \'view\' screen would look identical to an \'edit\' screen except for the fact that when they click on \'OK\' the changes just wont be saved?\n\nRegards,\n\nDale.','',0,'kA==','msif4m4k',1,0,'',419,0,0),(7931,1864,3,303,0,'68.7.28.54',1140602734,1,0,1,1,1,0,'','','Milan,\n\nOK, I found an example in an app that I wrote. You have to call refill(), reset(), default(). You can try it or wait and I will try it tomorrow.\n\nJames','',0,'kA==','2hmef3wr',1,0,'',303,0,0),(7932,1887,3,419,0,'196.25.255.210',1140603288,1,0,1,1,1,0,'','Adding Context Specific Help to a Say','Is it possible to add context specific help to a \'Say\'?\n\nThis line compiles fine:\n\nReDefine Say ioTELEPHONE Var cTELEPHONE ID 103 Of oDlg HelpID\n\nbut if you add ANYTHING after the HelpID like:\n\nReDefine Say ioTELEPHONE Var cTELEPHONE ID 103 Of oDlg HelpID 5000\n\nyou get an error.\n\nNow you may wonder why I would want a HelpID on a \'Say\'.\n\nWell let me tell you:\n\nI have changed the resource type of all of my \'Says\' (or LTEXT) on my \'view\' dialogs to \'Gets\' (or EDITTEXT) and made them readonly (but left them as \'Says\' in the code).  This has had the wonderous effect of displaying the \'Says\' exactly as the \'Gets\' appear (with beautiful borders around them and a different background color) and has given me the additional facility to actually click on a \'Say\' but you cannot edit the field only navigate to the \'Say\'.\n\nSo I might as well then add context specific help to the \'Says\' if possible!!!\n\nRegards,\n\nDale.','',0,'kA==','mxhcqn1g',1,0,'',419,0,0),(7933,1887,3,419,0,'198.54.202.195',1140603614,1,0,1,1,1,0,'','','Actually - I even discovered another benefit of doing it this way:\n\nI can actually copy and paste from a \'Say\' to somewhere else if needed!!!  How about that!\n\n(Thanks Enrico)!\n\nRegards,\n\nDale.','',0,'kA==','segq5qjk',1,0,'',419,0,0),(7934,1882,3,303,0,'68.7.28.54',1140603682,1,0,1,1,1,0,'','','Dale,\n\nOK, security is a different issue. If the user doesn\'t have add rights, I would disable the Add button. If they don\'t have edit rights to anything, then I would disable all the controls on the edit screen except the Cancel button. The easiest way would probably be:\n\nfor i:=1 to len( oDlg:aControls )\n   oDlg:aControls[i]:disable()\nnext\n\nThen you will have to renable the Cancel button, since it will have been disabled by the above. The Cancel button is usually the last control so you should be able to just use len( oDlg:aControls) -1.\n\nAlternately, you could disable them all with a WHEN clause but it seems like that would be more work.\n\nSo, using these techinques you still only need one screen.\n\nJames','',0,'','1lxsdx7y',1,0,'',303,0,0),(7935,1882,3,6,0,'82.55.208.235',1140603930,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:2h7xiggs]The cursor is still flashing though even although you cannot edit the get.[/quote:2h7xiggs]\n\nUse WHEN .F. instead of READONLY and you will not have the cursor.\n\nEMG','',0,'gA==','2h7xiggs',1,0,'',6,0,0),(7936,1882,3,6,0,'82.55.208.235',1140604387,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:21sg9bn8]No, no, no. We are not in Kansas anymore Toto! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->[/quote:21sg9bn8]\n\nI would like to understand this joke. Can you explain it? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote=&quot;James Bott&quot;:21sg9bn8]Unlike DOS apps, in Windows apps there is only one mode-edit mode. You can use the same dialog for all three functions, add, edit, and view. Build one edit dialog. To view the data, the user just opens it for editing and Cancels when done. To make it into an add screen, I just set a var lAdd:=.t. then when the edit routine is called if lAdd then blank the fields, and edit. When the OK button is clicked, check for lAdd and if .t. then append and save else just save. Simple.[/quote:21sg9bn8]\n\nDid you have a peek at my source code? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Even the variable have the same name. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','21sg9bn8',1,0,'',6,0,0),(7937,1882,3,6,0,'82.55.208.235',1140604483,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:lz3kbk1f]But the reason that I have to have add, edit, and view displayed differently is because of (intended) system security i.e. if a user does not have sufficient priveleges to add, or edit, or add only or edit only, and can only view (by double clicking on a record for example) then the screen must appear differently to that user.[/quote:lz3kbk1f]\n\nWHEN clause seems the be the most effective tool for that.\n\nEMG','',0,'gA==','lz3kbk1f',1,0,'',6,0,0),(7938,1880,7,28,0,'213.27.201.254',1140605191,1,0,1,1,1,0,'','','Hola\n\n¿Por que puede pasar en este código que al ir a otra aplicación y la ventana que muestra el reloj perder el foco y luego posteriormente recuperarlo, sale un error de argumentos en GotFocus?\n\n\n\n[img:341xv5qd]http&#58;//www&#46;arrakis&#46;es/~canal_five/errorppc&#46;jpg[/img:341xv5qd]\n\nUn saludo','',0,'CA==','341xv5qd',1,0,'',28,0,0),(7939,1863,7,28,0,'213.27.201.254',1140605269,1,0,1,1,1,0,'','','Con la nueva version el error es este:\n\n[quote:12oepc35]ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Pocket PC - October 2005             Harbour development power ³Ü\n³ (c) FiveTech, 1993-2005                    for Microsoft Windows Pocket PC ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'wince3.prg\' and generating preprocessed output to \'wince3.ppo\'...\n\nLines 38, Functions/Procedures 2\nGenerating C source output to \'wince3.c\'... Done.\nwince3.c\n   Creating library wince3.lib and object wince3.exp\nFiveCEC.lib(WNDCENTE.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(GETFILE.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(DRIVES.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(HARBOURC.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(FWBMP.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(FONTS.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(GETDLGIT.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(AYGSHELL.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(FWCE.obj) : error LNK2019: unresolved external symbol hb_stackReturnItem referenced in function \"void __cdecl HB_FUN_WIDETOANSI(void)\" (?HB_FUN_WIDETOANSI@@YAXXZ)\nFiveCEC.lib(WNDMOVE.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(WNDSAY.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(TEXT.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(CMDBAR.obj) : error LNK2019: unresolved external symbol CommandBar_Create referenced in function \"void __cdecl HB_FUN_CMDBARCREATE(void)\" (?HB_FUN_CMDBARCREATE@@YAXXZ)\nFiveCEC.lib(CMDBAR.obj) : error LNK2019: unresolved external symbol CommandBar_AddAdornments referenced in function \"void __cdecl HB_FUN_CMDBARINSERTMENU(void)\" (?HB_FUN_CMDBARINSERTMENU@@YAXXZ)\nFiveCEC.lib(CMDBAR.obj) : error LNK2019: unresolved external symbol CommandBar_InsertMenubar referenced in function \"void __cdecl HB_FUN_CMDBARINSERTMENU(void)\" (?HB_FUN_CMDBARINSERTMENU@@YAXXZ)\nFiveCEC.lib(AYGSHELL.obj) : error LNK2019: unresolved external symbol SHGetDocumentsFolder referenced in function \"void __cdecl HB_FUN_SHGETDOCUMENTSFOLDER(void)\" (?HB_FUN_SHGETDOCUMENTSFOLDER@@YAXXZ)\nwince3.exe : fatal error LNK1120: 5 unresolved externals\n* Application successfully built\n[/quote:12oepc35]\n\nUn saludo','',0,'gA==','12oepc35',1,0,'',28,0,0),(7940,1882,3,303,0,'68.7.28.54',1140605619,1,0,1,1,1,0,'','','Enrico,\n\n[quote:1kbekxn7]I would like to understand this joke. Can you explain it? [/quote:1kbekxn7]\n\nIt is from the 1939 movie, The Wizard of Oz. If you haven\'t seen it, a girl and her dog, Toto, get swept away in a hurricane to a very strange place, and she says that to her dog.\n\n[url:1kbekxn7]http&#58;//www&#46;moviewavs&#46;com/cgi-bin/moviewavs&#46;cgi?Wizard_Of_Oz=oz6&#46;wav[/url:1kbekxn7]\n\n[quote:1kbekxn7]Did you have a peek at my source code?  Even the variable have the same name[/quote:1kbekxn7]\n\nFine minds think alike! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nJames','',0,'kA==','1kbekxn7',1,0,'',303,0,0),(7941,1882,3,6,0,'82.55.208.235',1140606192,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:11hvs80m]It is from the 1939 movie, The Wizard of Oz. If you haven\'t seen it, a girl and her dog, Toto, get swept away in a hurricane to a very strange place, and she says that to her dog.[/quote:11hvs80m]\n\nYeah!\n\n[quote=&quot;James Bott&quot;:11hvs80m]Fine minds think alike! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->[/quote:11hvs80m]\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEMG','',0,'gA==','11hvs80m',1,0,'',6,0,0),(7942,1869,6,362,0,'200.168.52.156',1140609499,1,0,1,1,1,1,'','','Antonio, Help-me. Gracias.','',0,'gA==','z4261m6o',1,0,'',362,0,0),(7943,1870,2,409,0,'201.246.66.54',1140610216,1,0,1,1,1,0,'','ADS Lento','Gracias por responder Rene pero se ve Lento no habra una manera mas rapido.\nSaludos','',0,'gA==','35no7892',1,0,'',409,0,0),(7944,1869,6,104,0,'201.58.75.71',1140610413,1,0,1,1,1,0,'','','Olá Antonio,\n\nVocê poderia nos ajudar a resolver estes problemas ? Infelizmente eu não estou conseguindo resolvê-los.\n\nObrigado desde já,\n\nRossine.','',0,'gA==','2wmjhtpm',1,0,'',104,0,0),(7945,1864,3,160,0,'210.212.142.91',1140613737,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:14ptc8n1]Milan,\n\nOK, I found an example in an app that I wrote. You have to call refill(), reset(), default(). You can try it or wait and I will try it tomorrow.\n\nJames[/quote:14ptc8n1]\n\nDear James,\n\nPlease do that for me as even this attempt too failed. Only the newly added entry is missed out. Just try it for urself first.\n\nTIA\nMilan.','',0,'gA==','14ptc8n1',1,0,'',160,0,0),(7946,1888,7,28,0,'213.27.201.254',1140614469,1,0,1,1,1,0,'','Error.log','Hola.\n\n¿hay posibilidad de que genere Error.log?\n\nUn saludo','',0,'gA==','fv65or11',1,0,'',28,0,0),(7947,1863,7,2,0,'87.218.146.95',1140614823,1,0,1,1,1,1,'','','Paco,\n\nNecesitas el nuevo Harbour también. Te lo envio <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','15qwabcp',1,0,'',2,0,0),(7948,1888,7,2,0,'87.218.146.95',1140614957,1,0,1,1,1,1,'','','Paco,\n\nSi, estamos en ello.','',0,'gA==','151lf53v',1,0,'',2,0,0),(7949,1868,6,228,0,'201.245.222.85',1140616175,1,0,1,1,1,1,'','Como hacen esos globos','Cambiando de tema, he estado leyendo los mensajes que mandaron y me causa curiosidad los globos que salen del GET, seran que no tienen un ejemplito sobre esto?\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->','',0,'gA==','3cwipvef',1,0,'',228,0,0),(7950,1880,7,28,0,'213.27.201.254',1140616288,1,0,1,1,1,0,'','','El error.\n\nHola Antonio.\n\nEl error esta en este método de la clase TWindow.\n\n[code:261j01tn]\n\nMETHOD GotFocus&#40;hWndLoseFocus&#41; CLASS TWindow\n\n   &#58;&#58;lFocused = &#46;t&#46;\n\n   if &#58;&#58;bGotFocus != nil\n      Eval&#40; &#58;&#58;bGotFocus &#41;\n   endif\n\n   if ! Empty&#40; &#58;&#58;hCtlFocus &#41;\n      if Upper&#40; GetClassName&#40; &#58;&#58;hCtlFocus &#41; &#41; $ &quot;SYSTABCONTROL32,TPAGES&quot;\n         AEval&#40; &#58;&#58;aControls, &#123;| Ctrl | If&#40; Ctrl&#58;hWnd != &#58;&#58;hCtlFocus, , ;\n                  SetFocus&#40; Ctrl&#58;aDialogs&#91; Ctrl&#58;nOption &#93;&#58;hCtlFocus &#41; &#41; &#125; &#41;\n      else\n         SetFocus&#40; &#58;&#58;hCtlFocus &#41;\n      endif\n   else\n      if &#58;&#58;aControls != nil &#46;and&#46; Len&#40; &#58;&#58;aControls &#41; &gt; 0\n         if &#58;&#58;aControls&#91; 1 &#93; != nil\n            &#58;&#58;hCtlFocus = NextDlgTab&#40; &#58;&#58;hWnd &#41; // , &#58;&#58;aControls&#91; 1 &#93;&#58;hWnd &#41;\n            //SetFocus&#40; &#58;&#58;hCtlFocus &#41; &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;\n         endif\n      endif\n   endif\n\nreturn 0   // no standard behavior\n[/code:261j01tn]\n\nSi comento la línea señalada, el programa funciona y no se peta cuando vuelve a pillar el foco.','',0,'AIA=','261j01tn',1,0,'',28,0,0),(7951,1889,6,439,0,'201.221.34.202',1140617320,1,0,1,1,1,0,'','Error con ADS Local driver','Hola, gente, tengo un problema, quizá puedan ayudarme\n\nError description: Error ADSCDX/3010  Open error: PRODTOR\n\nAbro la base Prodtor con dos alias diferentes, en la segunda apertura me produce este error, funciona perfectamente cuando uso el driver DBFCDX PERO ME DA ESTE ERROR CON EL DRIVER LOCAL DE ADS.\n\nStack Calls\n===========\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from:  =&gt; ABRODBF(509)\n   Called from:  =&gt; BAM2(54)\n   Called from:  =&gt; (b)BARRABOT(155)\n   Called from:  =&gt; TBTNBMP:CLICK(0)\n   Called from:  =&gt; TWINDOW:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(80)\n\nGracias desde ya por lo que puedan hacer por mí.\nJosé','',0,'AIA=','2bhu1hdy',1,0,'',439,0,0),(7952,1880,7,28,0,'213.27.201.254',1140617950,1,0,1,1,1,0,'','','Es curioso. Si le quito WS_TABSTOP no peta   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','2cf5gckx',1,0,'',28,0,0),(7953,1863,7,28,0,'213.27.201.254',1140617989,1,0,1,1,1,0,'','','gracias','',0,'AIA=','1mrolrpc',1,0,'',28,0,0),(7954,1890,3,419,0,'198.54.202.210',1140618735,1,0,1,1,1,0,'','Headings of TWBROWSE','I hope that the subject line of this message did not send shivers down anyone\'s spine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nDon\'t worry anyone.\n\nWhat I want to know is if there is anyway of turning off ALL of the headings of a LISTBOX BROWSE on a dialog i.e. NO HEADINGS, NO FIELD DESCRIPTORS, NOTHING, NADA, just the data.\n\nAnd when I say \'anyway\' I mean by passing a parameter - not modifying the class!\n\nRegards,\n\nDale.','',0,'AIA=','3k4tsi67',1,0,'',419,0,0),(7955,1864,3,303,0,'68.7.28.54',1140619050,1,0,1,1,1,0,'','','Milan,\n\nRefill(), reset(), default() works for me. I am using dbcombo.prg dated 11/3/2003. If you are using a version earlier than that it may not work.\n\nAre you are sure you are adding the record to your database?\n\nIf you still can\'t get it working, can you provide a small self contained example?\n\nJames','',0,'AIA=','k07n2gjz',1,0,'',303,0,0),(7956,1890,3,303,0,'68.7.28.54',1140619280,1,0,1,1,1,0,'','','Dale,\n\n[quote:167a6l5s]I hope that the subject line of this message did not send shivers down anyone\'s spine.[/quote:167a6l5s]\n\nWell, a tiny one.\n\nNo you can\'t turn headers off in TWBrowse. It would be nice if we could.\n\nJames','',0,'gA==','167a6l5s',1,0,'',303,0,0),(7957,1858,3,255,0,'200.67.175.250',1140621428,1,0,1,1,1,1,'','Re: Theme button with bitmap','[quote=&quot;TimStone&quot;:24a19w6p]I want to create a button with an email icon that carries the color of the theme like normal buttons.  The icon is used in place of text.  \nThis will be placed on a dialog, but not a button bar.  It should match all of the other buttons for color, but simply have the graphic instead of text.\nIdeas ?\nTim[/quote:24a19w6p]\n\nTim i\'ve been trying to send you the TCalendar class but\ni get an error from your email, do you have another email\naccount ???','',0,'gA==','24a19w6p',1,0,'',255,0,0),(7958,1891,3,69,0,'206.210.97.138',1140623031,1,0,1,1,1,0,'','MsgRun() - strange problem','Hi Everybody,\n\nI have a strange problem with MsgRun().\nI use MsgRun to call a function that opens a file selection dialog.\nAfter I select the file, the file selection dialog closes but for some reason I \nneed to put my mouse in the \"Please Wait...\" dialog before my program will continue or I need to press a key on the keyboard.\n\nMsgRun(\"Please Wait ... Reading CD\",\"Please Wait\", {||  ReadCD()  })\n(ReadCD() function is below)\n\n\nAny ideas as to what I am doing wrong?\n\nThanks,\n\nJeff\n\nFunction ReadCD()\n   Private cNewFile, nLen, nError, cFile, cFileDir\n   if lFirstRun \n      cFileDir := cGetFile32(\"Cascade Data Files |*.smd|\"+  ;\n                          \"Easy II Video Data Files |*.eas|\" +   ;\n                          \"Sierra Wave Data Files |*.sd|\"    ;\n                          ,\"Select a file to Review\")\n      lFirstRun := .f.\n      cExt := upper( RIGHT( cFileDir, 3 ) )\n   else\n      if cExt = \"SMD\"         \n         cFileDir := cGetFile32(\"Cascade Data Files |*.smd|\"+  ;\n                          \"Easy II Video Data Files |*.eas|\" +   ;\n                          \"Sierra Wave Data Files |*.sd|\"    ;\n                          ,\"Select a file to Review\")\n         cExt := upper( RIGHT( cFileDir, 3 ) )\n      elseif cExt = \"EAS\"\n         cFileDir := cGetFile32(\"Easy II Video Data Files |*.eas|\" +  ;\n                          \"Sierra Wave Data Files |*.sd|\"+; \n                          \"Cascade Data Files |*.smd|\"    ;\n                          ,\"Select a file to Review\")\n         cExt := upper( RIGHT( cFileDir, 3 ) )\n      else\n         cFileDir := cGetFile32(\"Sierra Wave Data Files |*.sd|\"+  ;\n                          \"Easy II Video Data Files |*.eas|\" +   ;\n                          \"Cascade Data Files |*.smd|\"    ;\n                          ,\"Select a file to Review\")\n         cExt := upper( RIGHT( cFileDir, 3 ) )\n      endif\n   endif      \n   nLen:= Len(alltrim(cFileDir))\n   cFile = Right(cFileDir, nLen-3)\n   MsgRun(\"Please Wait ... Extracting Files From CD\",\"Please Wait\", {||  CopyWave()  })\nReturn nil','',0,'gA==','1k5agiy0',1,0,'',69,0,0),(7959,1852,18,375,0,'84.122.114.179',1140624307,1,0,1,1,1,1,'','','Antonio, no se trata de eso, utilizo amenudo el SysRefresh(), Lo que no sé es si pasa lo mismo con otros FW\'s. El caso es que no me osurre con un sólo programa nin con un sólo ordenador.\nEl caso es que a cada bChange escribo los datos del socio y despliego una serie de tablas de cuotas. Parece que es mucha carga para el VSCroll y se queda pillado. Quisá sea un defecto propio de windows.','',0,'gA==','1j9h3jlt',1,0,'',375,0,0),(7960,1880,7,2,0,'87.218.146.118',1140624356,1,0,1,1,1,1,'','','Paco,\n\nAcabo de probar samples\\tutor05.prg, estando el foco en un GET, y cambiando a otra aplicación y volviendo, y no dá ningún error.\n\nPuedes probarlo ? (sin tu modificación) gracias','',0,'gA==','2iwftj9c',1,0,'',2,0,0),(7961,1873,3,375,0,'84.122.114.179',1140624866,1,0,1,1,1,1,'','','Excuse my english. I removed it.','',0,'gA==','35e40kc4',1,0,'',375,0,0),(7962,1891,3,303,0,'68.7.28.54',1140625286,1,0,1,1,1,0,'','','Jeff,\n\nIt might be a problem because you are calling a new msgWait() from one already running. Try adding a sysrefresh() at the end of the codeblock.\n\nJames','',0,'gA==','1b24n8he',1,0,'',303,0,0),(7963,1889,6,252,0,'201.140.19.82',1140625482,1,0,1,1,1,0,'','','En la descripcion de errores de ads, el error 3010 dice textualmente:\n\n    Unknown alias name used with field name in index key expression.\n\nParece ser que es con el uso del alias que  manejas en el indice.\n\n\nSaludos.','',0,'gA==','1p8t6t4n',1,0,'',252,0,0),(7964,1873,3,6,0,'87.3.232.113',1140626590,1,0,1,1,1,1,'','','Ah, ok.\n\nEMG','',0,'gA==','38cm4ggu',1,0,'',6,0,0),(7965,1891,3,69,0,'206.210.97.138',1140627046,1,0,1,1,1,0,'','','James,\n\nAfter a bit of testing, it looks like the problem is with cGetFile32.\n\nI used  MsgWait(\"Test\", \"Test\" , 2) both before and after the cGetFile32.\n\nWhen it is before, I get my test message.\nWhen it is after, I do not see the test message until I either put my mouse in the \"Please Wait\" dialog or press a key.\n\nI have also removed the other MsgRun() when I ran this test.\n\nJeff','',0,'gA==','27gsn5sg',1,0,'',69,0,0),(7966,1868,6,61,0,'201.217.175.145',1140627834,1,0,1,1,1,0,'','','Amigos:\n\nLa clase TsButton tiene unos say transparentes, son los\nSTSAY...\n\nTengo el archivo ch y el archivo .C...\nLo acabo de probar en FWH 2.7 Febrero y Harbour y \nlos muestra transparentes.\n\nNo se si con muchos says funcion igual, si la necesitan les\nmando lo que yo tengo...\nmandenme un correo el que la quiera.\n(Igualmente esta en la clase TsButton)\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','2xcmgvbo',1,0,'',61,0,0),(7967,1891,3,303,0,'68.7.28.54',1140628383,1,0,1,1,1,0,'','','Jeff,\n\nTry a sysrefresh() after cGetFile32(). Also, I think you can call cGetFile() when using a 32bit compiler (and still get the 32bit control).\n\nJames','',0,'gA==','5ktuh2z1',1,0,'',303,0,0),(7968,1891,3,69,0,'206.210.97.138',1140629070,1,0,1,1,1,0,'','','Thanks James.\n\nUsing cGetFile instead of cGetFile32 solved the problem.\n\nJeff','',0,'gA==','281qymsi',1,0,'',69,0,0),(7969,1868,6,362,0,'200.168.52.156',1140629139,1,0,1,1,1,1,'','Re: Como hacen esos globos','[quote=&quot;leandro&quot;:3m7cfdnz]Cambiando de tema, he estado leyendo los mensajes que mandaron y me causa curiosidad los globos que salen del GET, seran que no tienen un ejemplito sobre esto?\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->[/quote:3m7cfdnz]\n\nHola Leandro... Esto és una mensajeria del Windows XP, cuando el &lt;CAPS LOCK&gt; está activo.','',0,'gA==','3m7cfdnz',1,0,'',362,0,0),(7970,1892,6,64,0,'201.50.151.152',1140629154,1,0,1,1,1,1,'','Dialog Transparent. Tenho um bug.','[code:5imxr04a]DEFINE DIALOG ODLG2 TITLE  &quot;Pesagem Acabado&quot; SIZE 620,548 COLOR CLPRETO,RGB&#40;140,182,255&#41; TRANSPARENT\n\n@ 01,02 SAY \'Docto nº&#46;&#46;&#46;&#46;&#58; \' + M-&gt;CODSEQMV OF ODLG2 FONT OFCOURIER14B COLOR CLNAVY\n@ 02,02 SAY \'Data Emissão&#58; \' + DTOC&#40;M-&gt;DATMOV&#41; OF ODLG2 \n@ 03,02 SAY \'O&#46;A&#46; Nº&#46;&#46;&#46;&#46;&#46;&#58; \' OF ODLG2 \n@ 03&#46;5,09 GET oGet1 VAR M-&gt;DOCOA OF ODLG2 VALID PESQOA&#40;M-&gt;DOCOA&#41; SIZE 25,12\n\nSTATIC FUNCTION PESQOA&#40;DOCOA&#41;\n&#46;&#46;&#46;\n@ 50,280 BBOX SIZE 150,50 OF ODLG2 COLOR CLNAVY, CLAZUL, CLRED PIXEL PROMPT \'SALDO A PRODUZIR\' ALIGN 1\n@ 70,350 SAY TRANS&#40;SALDAC,\'@R 99,999\'&#41; OF ODLG2 SIZE 70,16 COLOR CLRED PIXEL FONT OFCOURIER14B\n[/code:5imxr04a]\n\nEste SAY dentro de FUNCTION PESQOA() aparece com fundo cinza. Somente os SAYs que utilizo fora de funções chamadas ficam transparentes. O que estou fazendo errado?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','5imxr04a',1,0,'',64,0,0),(7971,1892,6,362,0,'200.168.52.156',1140629403,1,0,1,1,1,1,'','','LOCAL oBrush\n\n//-&gt; Su BitMap en Tu Directorio di Trabajo.\nDEFINE BRUSH  oBrush FILE \"COMPAR.BMP\" \n\nDEFINE DIALOG oDlg RESOURCE \"DLG_PROCURAR_DONO_CHEQUE\"                    ;\n       BRUSH oBrush TRANSPARENT\n\noDlg:lHelpIcon := .F.','',0,'AIA=','1dvttgbw',1,0,'',362,0,0),(7972,1889,6,138,0,'201.133.73.175',1140632207,1,0,1,1,1,1,'','','Es un error en la creacion del indice:\n\nSi creaste el indice asi:\n\nINDEX on alias-&gt;campo TAG unatag\n\nNo es correcta la forma de indexar, tendria que quedar asi:\n\nINDEX ON campo TAG unatag\n\nRecureda que tampoco puedes utilizar funciones definidias por el usuario para indexar:\n\nINDEX ON myfuncion(campo) TAG unatag','',0,'AIA=','mg6kkogm',1,0,'',138,0,0),(7973,1874,6,138,0,'201.133.73.175',1140632400,1,0,1,1,1,1,'','','Si es lo que estoy pensando, el diseñador visual de reportes de SP tuve oportunidad de verlo en una visita que hice al buen amigo Paco Garcia... y bueno, lo que me enseñó en su momento era una cosa de cortar la respiración, hecho en \"C\" y en FW supongo que lo habrá completado y estará integrado a los programas de SageSP.\n\n¿ Paco ?','',0,'AIA=','4rxuxa9o',1,0,'',138,0,0),(7974,1892,6,64,0,'201.50.151.152',1140633238,1,0,1,1,1,1,'','','João,\n\n     O problema não é mostrar o Brush de forma transparente, isto funciona, o que não está funcionando é quando eu preciso usar um SAY de dentro de uma função.\n\n     [img:2ggyiktr]http&#58;//geocities&#46;yahoo&#46;com&#46;br/shirleydalmeida/Tela2&#46;jpg[/img:2ggyiktr]','',0,'CA==','2ggyiktr',1,0,'',64,0,0),(7975,1892,6,362,0,'200.168.52.156',1140633396,1,0,1,1,1,1,'','','Intente:\n\nPESQOA(oDlg, DOCOA) //-&gt; Referencie a Dialog Que voce quer mostrar os Say\'s.','',0,'CA==','3nj1iwp0',1,0,'',362,0,0),(7976,1893,6,228,0,'201.245.222.85',1140634260,1,0,1,1,1,1,'','Pregunta focos?','Amigo del foro de nuevo yo, creo que esta el facil.\n\nNecesito que un boton en mi dialogo quede siempre resaltado así me desplace por todo el dialogo, para que cuando el usuario haga enter se ejecute la acción.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'CA==','1fly2luc',1,0,'',228,0,0),(7977,1894,3,6,0,'87.3.232.113',1140637826,1,0,1,1,1,1,'','Little problem in TWindow','In the following sample try to put the mouse pointer over the btnbmp and then press ALT. You will see that the menu is not activated as it does then the mouse pointer is not over the btnbmp.\n\n[code:2eaozm3z]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oMenu, oBar\n\n    MENU oMenu\n        MENUITEM &quot;Test&quot;\n\n        MENU\n            MENUITEM &quot;Test1&quot;\n            MENUITEM &quot;Test2&quot;\n            MENUITEM &quot;Test3&quot;\n            MENUITEM &quot;Test4&quot;\n        ENDMENU\n    ENDMENU\n\n    DEFINE WINDOW oWnd;\n           MENU oMenu\n\n    DEFINE BUTTONBAR oBar 3D OF oWnd\n\n    DEFINE BUTTON OF oBar;\n           TOOLTIP &quot;This is a test&quot;;\n           NOBORDER\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2eaozm3z]\n\nA possible fix (but I don\'t know if it is the best one):\n\n[code:2eaozm3z]METHOD SysCommand&#40; nWParam, nLParam &#41; CLASS TWindow\n\n   local bKeyAction\n\n   if &#58;&#58;oBar != nil //EMG\n      AEval&#40; &#58;&#58;oBar&#58;aControls, &#123; | oCtl | If&#40; oCtl&#58;ClassName&#40;&#41; == &quot;TBTNBMP&quot;, oCtl&#58;LostFocus&#40;&#41;, &#41; &#125; &#41; //EMG\n   endif //EMG\n\n   if nWParam == 61696 // VK_F10\n      if &#40; bKeyAction &#58;= SetKey&#40; VK_F10 &#41; &#41; != nil\n         Eval&#40; bKeyAction, ProcName&#40; 4 &#41;, ProcLine&#40; 4 &#41;, Self &#41;\n         return 0\n      endif\n   endif\n\n   if &#58;&#58;oSysMenu != nil &#46;and&#46; nWParam &lt; 61440           // 0xF000\n      &#58;&#58;oSysMenu&#58;Command&#40; nWParam &#41;\n   else\n      do case\n         case nWParam == SC_CLOSE &#46;or&#46; nWParam == SC_CLOSE_OPEN\n              return &#58;&#58;End&#40;&#41;\n      endcase\n   endif\n\nreturn nil[/code:2eaozm3z]\n\nEMG','',0,'AIA=','2eaozm3z',1,0,'',6,0,0),(7978,1846,6,453,0,'83.42.118.137',1140637853,1,0,1,1,1,0,'','','Gracias, Antonio y Oscar por contestar.\n\nIntentaré lo que me has comentado, Antonio.\n\nAhora lo que estaba haciendo es quitar esas funciones, ir añadiendo una a una y volver a compilar, a ver dónde está el fallo.\n\nLa verdad es que me estoy encontrando con más dificultades de lo que pensaba, porque tambien me ha arrojado un error en las funciones OrdkeyCount y OrdkeyNo, y que se ha solventado añadiendo al principio del código las llamadas REQUEST.\n\nTampoco aparecen los botones de las cajas de diálogos, que se han dibujado con la simple función BUTTON \n\nYa os comentaré si me encuentro con más problemas\n\nGracias','',0,'AIA=','3b3pqp9r',1,0,'',453,0,0),(7979,1818,3,335,0,'68.193.88.53',1140638704,1,0,1,1,1,0,'','','Could you re-phrase your question, please? I can\'t understand your question as presently stated, but would like to help if possible.','',0,'AIA=','e2cf0ss6',1,0,'',335,0,0),(7980,1893,6,362,0,'200.168.52.156',1140639136,1,0,1,1,1,1,'','','use el comando: DEFAULT.\n\nSi en WorkShop.exe -&gt; Adentre en Propriedads y Seleccione: DEFAULT PUSHBUTTON.\n\nsaludos.','',0,'AIA=','2ycq8ulh',1,0,'',362,0,0),(7981,1895,6,295,0,'200.113.97.197',1140640987,1,0,1,1,1,1,'','DLL A RC DE 32 BITS','Estimados Fivewinners\n\nEstoy migrando una dll de 16 bits a 32 bits y al compilarla con el recurso de fwh aparece: \n\"could not spawn rcc32.exe\"\nhace un tiempo atras logré hacer esto sin problemas con otras dll pero tuve que reinstalar windows \n\nGRACIAS DE ANTEMANO Y UN XHABRAZO','',0,'AIA=','3e32wvp4',1,0,'',295,0,0),(7982,1874,6,28,0,'87.218.46.222',1140641045,1,0,1,1,1,0,'','','Hola, \n\nSi pero lo hice todo en Fivewin y estaba muy ligado al producto.\n\nEl trabajo que hice fue basicamente poner tres bandas, cabecera cuerpo y pie de listado y luego pintar los campos y las líneas. \nTodos lo que se pinta representa objetos de una o varias dbs y luego el trabajo de moverlo de un lado a otro. Claro todo aderezado con un trabajo impresionante del departamento de certificación de SP que es el que en definitiva termina de hacer que el programa, que en un principio es un proyecto, se convierta en eso: un programa\n\nUn abrazo.','',0,'AIA=','1a0pu0t9',1,0,'',28,0,0),(7983,1875,6,391,0,'205.160.32.38',1140642615,1,0,1,1,1,1,'','LO HICE PERO SIGUE IGUAL','Señor Linares:\nRecorte la cláusula, incluso mediante un parámetro que recibo y una estructura condicional creo una caja distinta en cada caso. Sin embargo el comportamiento persiste. Continuaré probando y si encuentro la solución se la comunicaré.','',0,'AIA=','1dlv434v',1,0,'',391,0,0),(7984,1895,6,2,0,'87.218.146.43',1140649202,1,0,1,1,1,1,'','','Luis,\n\nLos recursos iran dentro del EXE ó dentro de una DLL ?','',0,'AIA=','2awfk8pz',1,0,'',2,0,0),(7985,1892,6,2,0,'87.218.146.43',1140649373,1,0,1,1,1,1,'','','A cada SAY que crees desde una función hazle:\n\noSay:lTransparent = .t.\noSay:SetBrush( oDlg:oBrush )','',0,'AIA=','x0ejtvwq',1,0,'',2,0,0),(7986,1884,3,49,0,'82.59.141.186',1140650228,1,0,1,1,1,1,'','','You can make footers with twbrowse ....\nONLY with Hernan Wbrowse!!!!!!!!!!!!!\non xharbour ,harbour, C3  run ok !!!!!!!!!!!','',0,'AIA=','1sbn3kza',1,0,'',49,0,0),(7987,1885,3,49,0,'82.59.141.186',1140650386,1,0,1,1,1,1,'','','Marco,\nI think you have this lib ....\nI sent you filexls source do you remember ....','',0,'AIA=','1pitg0w8',1,0,'',49,0,0),(7988,1746,20,49,0,'82.59.141.186',1140650849,1,0,1,1,1,1,'','','[quote:jd9slpyo]I valori sono costanti e non dipendono dalla stampante. Basta che riempi, ad esempio, un array parallelo a quello dei nomi dei formati ma contenente i valori corrispondenti e poi peschi da quest\'ultimo il valore relativo all\'elemento selezionato. \n\n[code:jd9slpyo]\n\nGrazie per l\'idea &#46;&#46;&#46;&#46; un esempietto pratico ?\n[/code:jd9slpyo][/quote:jd9slpyo]','',0,'gIA=','jd9slpyo',1,0,'',49,0,0),(7989,1890,3,397,0,'201.42.54.90',1140655363,1,0,1,0,1,1,'','','Hey friend,\n\n\nYou can try this:\n\ntbrowse():lVscroll := .f. // Hide Vertical Scroll Bar\ntbrowse():lHscroll := .f. // Hide Horizontal Scroll Bar\n@ lin,col LISTBOX oLbx FIELDS ... HEADERS \"\" ...\n...\noLbx:nHeaderHeight := 0 // Number of pixel header height\n\nOk?','',0,'gIA=','2tx5p9bc',1,0,'',397,0,0),(7990,1896,6,292,0,'201.248.85.65',1140656298,1,0,1,1,1,1,'','DLL32 Conversion de LPINT','Colegas, \nTengo una Dll de la impresora Fiscal BMC \n\nLa funcion esta documentada asi: \n\nBOOL SendCmd(LPINT status, LPINT error, LPCSTR cmd) \n\nNecesito conversion FWH. \nLas demás funciones si corren cambiando LPCSTR por LPSTR','',0,'gIA=','2jgim107',1,0,'',292,0,0),(7991,1897,6,61,0,'201.217.166.12',1140658489,1,0,1,1,1,0,'','bmp de fondo... Antonio es posible?.','Amigos:\n\nTengo un bmp de 100x100 guardado en mi archivo res,\ndeseo ponerlo de fondo en mi dilogo de 200x300 y quiero\nque ese bmp cubra todo el dialogo.\n\nLo deseo hacer con el brush transparent para que todo\nlo que ponga en el quede transparente.\n\nMuchas gracias.\n\nRuben Fernandez.\n(Si el bmp es mas chico, aparece en forma tiled, el mismo\nbmp repetido y yo quiero el mismo bmp estirado.)','',0,'gIA=','31jpa0ux',1,0,'',61,0,0),(7992,1764,3,267,0,'201.29.105.133',1140658684,1,0,1,1,1,0,'','','Thanks Enrico,\n\n Where I obtain some documentation on the available functions in hbzip.lib?','',0,'gIA=','2fkb3db1',1,0,'',267,0,0),(7993,1895,6,295,0,'201.222.149.231',1140660354,1,0,1,1,1,1,'','','irán dentro del exe\nYa guardé la dll desde WS como \"RC\" y luego ejecuté \nel rc2dll32.bat, entonces aparece asi:\n\n\nC:\\FWH\\DLL&gt;rem RC file to 32 bits resources DLL \n\nC:\\FWH\\DLL&gt;rem syntax: rc2dll32.bat Your_rc_file  !!! without the .RC extension \n\nC:\\FWH\\DLL&gt;bcc32 -c ..\\dll\\screen32.c \nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\dll\\screen32.c:\n\nC:\\FWH\\DLL&gt;brc32 -r hsofcon.rc \n\nFatal error. Could not spawn program: BRCC32.EXE\n\nC:\\FWH\\DLL&gt;\\BCC55\\BIN\\ilink32 /Tpd c:\\bcc55\\lib\\c0d32.obj screen32.obj, hsofcon.dll,,c:\\bc55\\lib\\cw32.lib c:\\bcc55\\lib\\import32.lib,, hsofcon.res \nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unable to open file \'HSOFCON.RES\'\n\nC:\\FWH\\DLL&gt;del *.i* \n\nC:\\FWH\\DLL&gt;del *.map \n\nC:\\FWH\\DLL&gt;del *.obj \n\nC:\\FWH\\DLL&gt;del *.res \n\nC:\\FWH\\DLL&gt;del *.tds \n\nC:\\FWH\\DLL&gt;echo done! \ndone!\nsaludos y gracias','',0,'gIA=','s30irh3c',1,0,'',295,0,0),(7994,1872,6,451,0,'209.124.114.27',1140660489,1,0,1,1,1,0,'','Continuando con la Consulta','O alguien conoce alguna otra forma de poder lograr lo de arriba.\n\nGracias por la Ayuda','',0,'gIA=','11igxd5v',1,0,'',451,0,0),(7995,1872,6,2,0,'87.218.146.43',1140660694,1,0,1,1,1,1,'','','Hazlo así:\n\nMsgInfo( OleInvoke( sregocetpx, \"GetVersion\" ) )','',0,'gIA=','339q8c8y',1,0,'',2,0,0),(7996,1898,6,383,0,'201.240.99.132',1140662310,1,0,1,1,1,0,'','PROBLEMAS CON TSBROWSE','Bueno ante todo gracias, pero tengo el siguiente problema\ntengo indexado una tabla con 2 indices uno por codigo y otro por descripcion en el codigo se da la instruccion que me muestre ordenado por descripcion pero me sigue presentando ordenado por codigo\n\nDBSELECTAREA( oProdu:cAlias )\nORDSETFOCUS(2)\nDBGOTOP()\n\nDEFINE FONT oFont NAME \"Ms Sans Serif\"  SIZE 0, -12\nDEFINE FONT oFont2 NAME \"Courier new\"   SIZE 0, -12\nDEFINE FONT oFont3 NAME \"Ms Sans Serif\" SIZE 0, -16 BOLD\n\nDEFINE DIALOG oDlg RESOURCE \"DLG_LISPRO2\" TITLE \"Seleccione los productos para venta\" FONT oFont\n\nREDEFINE GET oTotal VAR nTotal ID 109 OF oDlg PICTURE \"9,999,999.99\" FONT oFont3 WHEN .F. COLOR \"R/BG*\" UPDATE\n\nREDEFINE BROWSE oB COLORS \"N/W*\" ID 101 OF oDlg FONT oFont2;\n\nADD COLUMN TO oB;\n	HEADER \"Descripción\";\n	DATA {|| OEMTOANSI(( oProdu:cAlias )-&gt;DESPRO) };\n	COLORS \"N/W*\" ;\n	3DLOOK TRUE;\n	SIZE 310\n\nADD COLUMN TO oB;\n	HEADER \"Código\" ;\n	DATA FieldWblock(\"CODPRO\",Select() );\n	COLORS \"N/W*\" ;\n	3DLOOK TRUE;\n	SIZE 50\n\nADD COLUMN TO oB;\n	HEADER \"Abreviatura\" ;\n	DATA FieldWblock(\"ABREV\",Select() );\n	COLORS \"N/W*\" ;\n	3DLOOK TRUE;\n	SIZE 70\n\n	ADD COLUMN TO oB;\n		HEADER \"Stock \"+cDesalm;\n		DATA { || CONVERPRO( oProdu, oTabla,F_SaldoAlm(oProdu,cNumalm)) };\n		COLORS \"N/W*\" ;\n		3DLOOK TRUE;\n		SIZE 160;\n		ALIGN DT_RIGHT, DT_CENTER\nENDIF\n\noB:lNoHScroll  := .T.\nob:nHeightCell += 8\noB:nHeightHead += 10\noB:nLineStyle := LINES_DOTTED\noB:SetColor( { 2, 5, 6, 15 },{{|| If( oB:nLogicPos % 2 = 0,;\n            CLR_4, CLR_WHITE ) },;\n            CLR_WHITE, CLR_BLACK,;\n            CLR_BLUE})\n\nOB:bKeyDown := {|nKey|;\n	iif(nKey==VK_RETURN,;\n	IIF((NKEY&gt;=65 .AND. NKEY&lt;=90)  .OR. ;\n		(NKEY&gt;=97 .AND. NKEY&lt;=122) .OR. ;\n		(NKEY&gt;=48 .AND. NKEY&lt;=57),,;\n	oAbrev:Setfocus()),;\n						\nREDEFINE GET oBusca VAR cBusca ID 102 OF oDlg PICTURE \"@!\" FONT oFont;\n		VALID(BusProdu(cBusca,oProdu,@oB));\n		ON CHANGE IF(VAL(cBusca)=0,(::Assign(),;\n		If((DbSeek(AnsiToOem( SubStr( UPPER(cBusca), 1, ::nPos - 1 )  + ;\n                      Chr( nKey )  ) ) ),;\n                     ( nreg:=recno(), oB:UpStable(), oB:Refresh(), .t. ),;\n                     ( dbgoto(nreg) , oB:UpStable(), oB:Refresh(), .f. ) ) ),;\n							);\n		WHEN IF(lBusAbr,.f.,.T.)\n\nREDEFINE BUTTON ID 103 OF oDlg  \nREDEFINE BUTTON ID 104 OF oDlg ACTION ODLG:END()\n\nACTIVATE DIALOG oDlg\n\nPero existe algo raro, cuando llamo a esta funcion a travez de un boton si sale bien pero si lo llamo a travez de una tecla sale ordenado por codigo\nuse la funcion SYSREFRESH() pero nada\n\n\nEspero su ayuda por favor\n\nAnte todo muchas gracias','',0,'gIA=','10orylnb',1,0,'',383,0,0),(7997,1899,6,295,0,'201.222.149.231',1140662432,1,0,1,1,1,1,'','Error description: Error BASE/1002  Alias does not exist:','Amigos:\n\n1  USE AFP2005 new shared ALIAS AFP\n2  SET INDEX TO AFP2005\n\nEsto me funciona en FW Clipper 5.2\n\n\npero al ejecutarlo en FWH27 / xHarbour me da :\nError description: Error BASE/1002  Alias does not exist: AFP2005 en la linea 2\n\nGRACIAS DE ANTEMANO POR VUESTRA AYUDA\nSALU2','',0,'gIA=','1m2jf69u',1,0,'',295,0,0),(7998,1872,6,451,0,'209.124.114.27',1140664242,1,0,1,1,1,0,'','Problema Solucionado','Perdon por mi error, los dos anteriores son Activex, mi codigo para llamar las funciones.\n\noActiveX = TActiveX():New( oWnd, \"SREGOCETPX.SregoCETPxCtrl.1\" )\ncl_fer:=oActivex&#058;DO(\"MakeDirectory\",\"\\PRUEBA\")\nMSGinfo(cl_fer)\n\nGracias por la Ayuda\n\nSaludos','',0,'gIA=','334na0f6',1,0,'',451,0,0),(7999,1900,6,78,0,'201.230.135.99',1140665106,1,0,1,1,1,0,'','Como controlar el CDWriter','Hola Amigos...\nComo podria controlar cuantas veces se ha utilizado el grabador de CDs de la pc?,,,\n\nSalu2\nWilli Quintana','',0,'gIA=','1an8fv4o',1,0,'',78,0,0),(8000,1874,6,252,0,'201.140.21.33',1140666129,1,0,1,1,1,0,'','','Me parece un excelente trabajo Paco. \n\n   ¿Has pensado en poner a la venta esa herramienta de diseño visual de reportes?. Te aseguro habria mucho programador interesado en adquirila. Yo entre ellos.\n\n  Un saludo.\n\n  Jose Rios.','',0,'gIA=','2qxbpgls',1,0,'',252,0,0),(8001,1901,3,419,0,'198.54.202.194',1140674060,1,0,1,1,1,0,'','Need to compile \\FWH\\SAMPLES\\INSPTEST.PRG','Good Morning All,\n\nI need to compile the INSPTEST.PRG sample but I am getting lots of errors like:\n\nError E0030 | Syntax Error: \"parse error at \'ACLIENT\'\" etc. etc.\n\nwith XHB.\n\nI need to compile this not so much for its functionality but because if I remember correctly this was a fine example of using (my favourite) TWBROWSE with a combination of INLINE EDITS and COMBOBOXES and I need to have a look again at how that was done because I need to include something like that in my application.\n\nLots of needs.\n\nRegards,\n\nDale.','',0,'gIA=','14m38tfu',1,0,'',419,0,0),(8002,1890,3,419,0,'198.54.202.210',1140675216,1,0,1,1,1,0,'','','Thanks for the attempt.\n\nIt would appear, though, that only TXBROWSE has a nHeaderHeight parameter, TWBROWSE not.\n\nRegards,\n\nDale.','',0,'gIA=','2n1auzs1',1,0,'',419,0,0),(8003,1902,3,419,0,'196.25.255.210',1140679707,1,0,1,1,1,0,'','Network Programming - Refreshing Listbox Browse','How do I solve the following problem:\n\nIn a network environment:\n\nLet us say that I have a workstation (workstation 1) that has a list of records being displayed at a given time and a user at another workstation (workstation 2) adds a new record to the same database.\n\nAt the moment the only time that the list being displayed on workstation 1 is updated to reflect the newly added record by workstation 2 is to exit the browse and then re-open the browse again and the new record appears.\n\nI know I can add some sort of \'on right click of the mouse refresh the listbox or browse\' but is there another way to either send a signal to all workstations on the network to update their browses or to use a timer of some sort like the \'on timer\' thing?\n\nIf I ABSOLUTELY HAVE to use Define Timer .... (and there is no other way) then how do you equate the INTERVAL to seconds i.e. 60 seconds = what interval, 30 seconds = what interval?  What is the formula?\n\nRegards,\n\nDale.','',0,'gIA=','qsowlc8w',1,0,'',419,0,0),(8004,1903,3,419,0,'198.54.202.210',1140680410,1,0,1,1,1,0,'','Windows Functions','How can you call, for example, the Windows Date and Time dialog, and is there a list of all of the possible things that can be called by us from withing FWH?\n\nRegards,\n\nDale.','',0,'gIA=','1ur9f2e1',1,0,'',419,0,0),(8005,1874,6,28,0,'213.27.201.254',1140680419,1,0,1,1,1,0,'','','No por supuesto. Este trabajo lo hice para la empresa que me tiene contratado.','',0,'gIA=','19vw68zi',1,0,'',28,0,0),(8006,1903,3,32,0,'196.36.8.34',1140682604,1,0,1,1,1,0,'','Calling stuff','Hi,\n\nDate and time is easy:\n\n  winexec(\'rundll32.exe shell32.dll,Control_RunDLL \"timedate.cpl\"\')\n\nthe cpl files are sitting in windows\\system32\n\nas for function calls, you can have dll constructs as follows:\n\nDLL32 FUNCTION NetCancel(cBuffer AS LPSTR, Force AS LONG) AS DWORD PASCAL ;\n               FROM \"WNetCancelConnection\" LIB \"Mpr.dll\"\n\nDLL32 FUNCTION GetConnName(cLocal AS LPSTR, cRemote AS LPSTR, nLength AS  DWORD) AS DWORD PASCAL ;\n               FROM \"WNetGetConnection\" LIB \"Mpr.dll\"\n\nDLL32 FUNCTION AddConnection(pcString1 AS LPSTR, pcString2 AS LPSTR, pcString3 AS LPSTR) AS DWORD PASCAL ;\n               FROM \"WNetAddConnection\" LIB \"Mpr.dll\"\n\nBut you don\'t need most of these if you\'re running xharbour commercial','',0,'gIA=','kk8uajei',1,0,'',32,0,0),(8007,1904,3,32,0,'196.36.8.34',1140682711,1,0,1,1,1,0,'','Responding to theme changes','Hi,\n\nI\'ve added the following to HandleEvent in control.prg\n\n    case nMsg == WM_THEMECHANGED\n          ::ThemeChanged()\n           return ::Display()\n\n\nwith a virtual ThemeChanged in control.prg\n\nI\'m testing with TBar at the moment, but can\'t get the new colour:\n\nI\'ve tried resetting the brush, but it came out black...\n\nMETHOD ThemeChanged() CLASS TBar\n\n  ::nClrPane    = If( ::l3D, GetSysColor( COLOR_BTNFACE ), CLR_GRAY )\n\n  ::Refresh()\n\nreturn nil\n\nWhat am I missing?','',0,'gIA=','2fxon4y0',1,0,'',32,0,0),(8008,1902,3,419,0,'198.54.202.210',1140682748,1,0,1,1,1,0,'','','OK - I think I am getting very clever.\n\nI have defined a timer with an interval of 100 that checks the CRC of the datafile and only if the CRC has changed will it refresh the listbox browse.\n\nThis works as any changes made on workstation 1 immediately update on the display of workstation 2.\n\nMy concern is this: what are the potential problems of using the TIMER if any?  I did read somewhere not to make the interval too short for some or the other reason?  What is a \'safe\' timer interval to use?  How do I know if the timer is causing a problem with the workstation / other apps / etc.?\n\nRegards,\n\nDale.','',0,'gIA=','f05kss26',1,0,'',419,0,0),(8009,1904,3,32,0,'196.36.8.34',1140684020,1,0,1,1,1,0,'','Ok, next question','Sorted out for controls\n\nMETHOD ThemeChanged() CLASS TControl\n\n  ::nClrPane    = GetSysColor( COLOR_BTNFACE )\n   ::SetColor( ::nClrText, ::nClrPane )\n\n  ::Refresh()\n\nreturn nil\n\nBut there are controls like msgbar which inherit from twindow, which uses extern wndhandleevent.\n\nShould I just create my own handleevent, which calls wndhandleevent if nothing matches?\n\nAlex','',0,'gIA=','2355zkw5',1,0,'',32,0,0),(8010,1885,3,29,0,'81.174.37.59',1140684840,1,0,1,1,1,0,'','','Hi Silvio,\nYes, you are right, \nI had lost the source but I recovered now your email.\n\nThanks\n\nBest Regards,\n\nMarco','',0,'gIA=','3dtmypnn',1,0,'',29,0,0),(8011,1902,3,6,0,'87.3.228.178',1140685692,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:23uqt5l6]I have defined a timer with an interval of 100 that checks the CRC of the datafile and only if the CRC has changed will it refresh the listbox browse.[/quote:23uqt5l6]\n\n100 means 0.1 seconds. I would use 1000 (1 second) to reduce the CPU usage.\n\nEMG','',0,'gA==','23uqt5l6',1,0,'',6,0,0),(8012,1764,3,6,0,'87.3.228.178',1140686019,1,0,1,1,1,1,'','','Here it is:\n\n[quote:so6ig43k]/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILE( &lt;cFile&gt;, &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file to create\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *         _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used, it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file,otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password.\n *\n *      If &lt;lWithPath&gt; is used, it tells  the path should also be stored with\n *      the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored\n *      with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n *\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_ZIPFILE( \"TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILE( \"TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILE( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" }, 9, {|cFile,nPos,| qout(cFile) } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\" , \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILE( \"test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ) },, \"hello\" )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_UNZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Unzip a compressed file\n * $SYNTAX$\n *      HB_UNZIPFILE( &lt;cFile&gt;, &lt;bBlock&gt;, &lt;lWithPath&gt;, &lt;cPassWord&gt;, &lt;cPath&gt;,\n *      &lt;cFile&gt; | &lt;aFile&gt;, &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file to extract\n *\n *      &lt;bBlock&gt;  Code block to execute while extracting\n *\n *      &lt;lWithPath&gt; Toggle to create directory if needed\n *\n *      &lt;cPassWord&gt; Password to use to extract files\n *\n *      &lt;cPath&gt;    Path to extract the files to - mandatory\n *\n *      &lt;cFile&gt; | &lt;aFiles&gt; A File or Array of files to extract - mandatory\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if all file was successfully restored, otherwise .f.\n * $DESCRIPTION$\n *      This function restores all files contained inside the &lt;cFile&gt;.\n *      If the extension is omitted, .ZIP will be assumed. If a file already\n *      exists, it will be overwritten.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      The &lt;cPath&gt; is a mandatory parameter. Set to \".\\\" to extract to the\n *      current directory\n *\n *      If &lt;cFile&gt; or &lt;aFiles&gt; are not provided, no files will be extracted!\n *      Make sure you provide the file or files you want extracted\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      aExtract := hb_GetFilesInZip( \"TEST.ZIP\" )  // extract all files in zip\n *      IF HB_UNZIPFILE( \"TEST.ZIP\",,,, \".\\\", aExtract )\n *         qout(\"File was successfully extracted\")\n *      ENDIF\n *\n *      aExtract := hb_GetFilesInZip( \"TEST2.ZIP\" )  // extract all files in zip\n *      IF HB_UNZIPFILE( \"TEST2.ZIP\", {|cFile| qout( cFile ) },,, \".\\\", aExtract )\n *         qout(\"File was successfully extracted\")\n *      ENDIF\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Gets the number of files that are in the zipfile\n * $SYNTAX$\n *      HB_GETUNZIPFILE( &lt;cFile&gt; ) ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the zipfile\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the zipfile.\n *      The purpose for this function is to use in conjunction with the\n *      HB_UNZIPFILE() function, so you can use returned result in the code\n *      block. See example below.\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *      Local nFiles := HB_GETUNZIPFILE( \"test.zip\" )\n *\n *      if nFiles &gt; 0\n *         ? \"This files Contains \", nfiles\n *      endif\n *\n *      Return Nil\n *\n *      Here is an example of How to use HB_GETUNZIPFILE() in conjunction\n *      with HB_UNZIPFILE()\n *\n *      Function Main()\n *      Local aGauge, nLen\n *\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\" ,\"²\" )\n *      GaugeDisplay( aGauge )\n *      nLen := HB_GETUNZIPFILE( \"test22\" )\n *      HB_UNZIPFILE( \"test22\", {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ), qout(cFile) }, .t. )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYTDSPAN()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILEBYTDSPAN( &lt;cFile&gt; ,&lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;iSize&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt;) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *          _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;iSize&gt; Size of the archive, in bytes. Default is 1457664 bytes\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used, it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file, otherwise if &lt;lOverWrite&gt; is\n *      false the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored \'\n *      with the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also\n *      be stored with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" }, 9, {|nPos,cFile| qout(cFile) }, \"hello\",, 521421 )\n *         qout(\"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\", \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILEBYTDSPAN( \"test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen) },, \"hello\",, 6585452 )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYPKSPAN()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file on removable media\n * $SYNTAX$\n *      HB_ZIPFILEBYPKSPAN( &lt;cFile&gt;, &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt;) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *          _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.  Also, the use of this function is for creating\n *      backup in removable media like an floppy drive/zip drive.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used , it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file, otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password.\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored with\n *      the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored\n *      with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n *\n *      Before calling this function, Set an Changedisk codeblock by calling\n *      the HB_SETDISKZIP().\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      hb_setdiskzip( {|nDisk| Alert( \"Please insert disk no \" + Str( nDisk, 3 ) ) } )\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"a:\\TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"a:\\TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\"}, 9, {|nPos,cFile| qout(cFile) } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\", \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILEBYPKSPAN( \"f:\\test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ) },, \"hello\" )\n *      // assuming f:\\ is a Zip Drive\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETDISKZIP()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Set an codeblock for disk changes\n * $SYNTAX$\n *     HB_SETDISKZIP( &lt;bBlock&gt; ) ---&gt; TRUE\n * $ARGUMENTS$\n *     &lt;bBlock&gt; an Code block that contains an function that will be performed\n *     when the need of changing disk are need.\n * $RETURNS$\n *     It always returns True\n * $DESCRIPTION$\n *     This function will set an codeblock that will be evaluated every time\n *     that an changedisk event is necessary. &lt;bBlock&gt; receives nDisk as a\n *     code block param that corresponds to the diskette number to be processed.\n *\n *     Set this function before opening archives that are in removable media.\n *     This block will be released, when the caller finish it job.\n * $EXAMPLES$\n *      HB_SETDISKZIP( {|nDisk| Alert( \"Please insert disk no \" + Str( nDisk, 3 ) ) } )\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_ZIPDELETEFILES()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Delete files from an zip archive\n * $SYNTAX$\n *     HB_ZIPDELETEFILES( &lt;cFile&gt;, &lt;cFiletoDelete&gt; | &lt;aFiles&gt; | &lt;nFilePos&gt; ) --&gt; &lt;lDeleted&gt;\n * $ARGUMENTS$\n *     &lt;cFile&gt;  The name of the zip files from where the files will be deleted\n *\n *     &lt;cFiletoDelete&gt; An File to be removed\n *        _or_\n *     &lt;aFiles&gt;    An Array of Files to be removed\n *        _or_\n *     &lt;nFilePos&gt; The Position of the file to be removed\n * $RETURNS$\n *     &lt;lDeleted&gt; If the files are deleted, it will return .T.; otherwise\n *     it will return .f. in the following cases: Spanned Archives; the file(s)\n *     could not be found in the zip file.\n * $DESCRIPTION$\n *     This  function removes files from an Zip archive.\n * $EXAMPLES$\n *     ? \"has the file zipnew.i been deleted \", if( HB_ZIPDELETEFILES( \"\\test23.zip\", \"zipnew.i\" ), \"Yes\", \"No\" )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_ZIPTESTPK()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Test pkSpanned zip files\n * $SYNTAX$\n *     HB_ZIPTESTPK( &lt;cFile&gt; ) --&gt; &lt;nReturnCode&gt;\n * $ARGUMENTS$\n *     &lt;cFile&gt;  File to be tested.\n * $RETURNS$\n *     &lt;nReturn&gt; A code that tells if the current disk is the last of a\n *     pkSpanned disk set.\n * $DESCRIPTION$\n *     This function tests if the disk inserted is the last disk of an backup\n *     set or not.\n *     It will return the follow return code when an error is found\n *\n *     &lt;table&gt;\n *     Error code     Meaning\n *     114            Incorrect Disk\n *     103            No Call back was set with HB_SETDISKZIP()\n *     &lt;/table&gt;\n *\n *     Call this function to determine if the disk inserted is the correct\n *     one before any other function.\n * $EXAMPLES$\n *      if HB_ZIPTESTPK( \"a:\\test22.zip\" ) == 114\n *          ? \"Invalid Diskette\"\n *      endif\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_GETZIPCOMMENT()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Return the comment of an zip file\n * $SYNTAX$\n *     HB_GETZIPCOMMENT( &lt;szFile&gt; ) --&gt; &lt;szComment&gt;\n * $ARGUMENTS$\n *     &lt;szFile&gt;  File to get the comment from\n * $RETURNS$\n *     &lt;szComment&gt;  The comment that was stored in &lt;szFile&gt;\n * $DESCRIPTION$\n *     This function receives a valid zip file name as parameter,\n *     and returns the global comment stored within.\n * $EXAMPLES$\n *     ? \"The comment in test.zip is \", HB_GETZIPCOMMENT( \"test.zip\" )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETZIPCOMMENT()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Set an Zip archive Comment\n * $SYNTAX$\n *     HB_SETZIPCOMMENT( &lt;cComment&gt; ) --&gt; Nil\n * $ARGUMENTS$\n *     &lt;cComment&gt;   Comment to add to the zip archive\n * $RETURNS$\n *     &lt;NIL&gt; this function always return NIL\n * $DESCRIPTION$\n *     This function stored an global comment to an zip archive.\n *     It should be called before any of the compression functions.\n * $EXAMPLES$\n *     HB_SETZIPCOMMENT( \"This is an Test\" )\n *     hb_zipfile( \"test.zip\", { \"\\windows\\ios.ini\", \"\\windows\\win.ini\" } )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETBUFFER()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *\n * $SYNTAX$\n *     HB_SETBUFFER( [&lt;nWriteBuffer&gt;], [&lt;nExtractBuffer&gt;], [&lt;nReadBuffer&gt;] ) --&gt; Nil\n * $ARGUMENTS$\n *     &lt;nWriteBuffer&gt;   The size of the write buffer.\n *\n *     &lt;nExtractBuffer&gt; The size of the extract buffer.\n *\n *     &lt;nReadBuffer&gt;    The size of the read buffer.\n * $RETURNS$\n *     &lt;NIL&gt;            This function always returns NIL.\n * $DESCRIPTION$\n *     This function set the size of the internal buffers for write/extract/read\n *     operation\n *\n *     If the size of the buffer is smaller then the default, the function\n *     will automatically use the default values, which are 65535/16384/32768\n *     respectively.\n *\n *     This function be called before any of the compression/decompression\n *     functions.\n * $EXAMPLES$\n *     HB_SETBUFFER( 100000, 115214, 65242 )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNRARFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Gets the number of files that are in the RAR file\n * $SYNTAX$\n *      HB_GETUNRARFILE( &lt;cFile&gt; ) ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the rar file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the RAR file\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the RAR file.\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *      Local nFiles := HB_GETUNRARFILE( \"test.rar\" )\n *\n *      if nFiles &gt; 0\n *         ? \"This files contains \", nFiles\n *      endif\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_UNZIPFILEINDEX()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Unzip a compressed file referenced by it number in the zipfile\n * $SYNTAX$\n *      HB_UNZIPFILE( &lt;cFile&gt;, &lt;bBlock&gt;, &lt;lWithPath&gt;, &lt;cPassWord&gt;, &lt;cPath&gt;,\n *      &lt;nFile&gt; | &lt;anFiles&gt;, &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lWithPath&gt; Toggle to create directory if needed\n *\n *      &lt;cPassWord&gt; Password to use to extract files\n *\n *      &lt;cPath&gt;    Path to extract the files to - mandatory.\n *\n *      &lt;cFile&gt; | &lt;anFiles&gt; A File or Array of files position to extract - mandatory\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if all file was successfully restored, otherwise .f.\n * $DESCRIPTION$\n *      This function restores all files contained inside the &lt;cFile&gt;.\n *      If the extension is omitted, .ZIP will be assumed. If a file already\n *      exists, it will be overwritten.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      The &lt;cPath&gt; is a mandatory parameter. Set to \".\\\" to extract to the\n *      current dir\n *\n *      If &lt;cFile&gt; or &lt;anFiles&gt; are not provided, no files will be extracted!\n *      Make sure you provide the file or files you want extracted\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_UNZIPFILEINDEX( \"TEST.ZIP\",,,, \".\\\", 1 )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_UNZIPFILEINDEX( \"TEST2.ZIP\", {|cFile|, qout(cFile) },,, \".\\\", { 1, 2 } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */[/quote:so6ig43k]\n\nEMG','',0,'gA==','so6ig43k',1,0,'',6,0,0),(8013,1746,20,6,0,'87.3.228.178',1140686438,1,0,1,1,1,1,'','','Eccolo, prova con e senza la chiamata a PrnSetPage() e vedi la differenza anche in anteprima (la scritta si ingrandisce quando la pagina è A5):\n\n[code:2jnhcbj0]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define DMPAPER_A5 11\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oPrn, oFnt\n\n    PRNSETPAGE&#40; DMPAPER_A5 &#41;\n\n    PRINT oPrn PREVIEW\n        DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -12 OF oPrn\n        PAGE\n            oPrn&#58;Say&#40; 100, 100, &quot;This is a test&quot;, oFnt &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RELEASE FONT oFnt\n\n    RETURN NIL[/code:2jnhcbj0]\n\nEMG','',0,'AIA=','2jnhcbj0',1,0,'',6,0,0),(8014,1902,3,419,0,'196.25.255.195',1140686580,1,0,1,1,1,0,'','','Thanks a lot.\n\nI have changed from 100 to 1000 and still works instantaneously.\n\nI am so happy with this.\n\nI have tested with 6 open browes so far - about another 10 to go (all MDI child windows) and they all update immediately as I make changes on another workstation.\n\nIf that\'s not enough this works perfectly on Windows \'98 as well!!!\n\nThanks,\n\nDale.','',0,'AIA=','1gmg300x',1,0,'',419,0,0),(8015,1905,20,29,0,'81.174.37.59',1140687353,1,0,1,1,1,0,'','Sfondo di una finestra MDI','Salve,\nho appena istallato FWH27 e xHarbour 0.99.60.\n\nHo notato che lo sfondo di una finestra MDI che prima era bianco, adesso appare in grigio scuro. Come posso fare affinché il colore di sfondo rimanga bianco ?\n\nEcco un esempio che mostra il \"problema\".\n\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oWnd\n\n   DEFINE WINDOW oWnd MDI ;\n      TITLE \"A sample of a MDI environment\"\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n\nGrazie in anticipo\n\nMarco','',0,'AIA=','9gtsm9vo',1,0,'',29,0,0),(8016,1905,20,6,0,'87.3.228.178',1140688059,1,0,1,1,1,1,'','Re: Sfondo di una finestra MDI','Non è un problema, è una correzione che, tra l\'altro, ho suggerito proprio io ad Antonio. Quel colore grigio che vedi è quello impostato nel pannello di controllo proprio per lo sfondo delle finestre (COLOR_APPWORKSPACE).\n\nSe vuoi un tuo colore basta che usi la clausola COLOR.\n\nEMG','',0,'AIA=','3rwdnv2q',1,0,'',6,0,0),(8017,1906,3,419,0,'196.25.255.195',1140688203,1,0,1,1,1,0,'','How to go further with app','I am writing this message because I just know that I am going to run into a problem later on (soon) down the line with my app.\n\nI need things to work in this order:\n\nMain Window (MDI)\n|\nChild Window (MDIChild) with TWBrowse (displays current records)\n|\nSelect TWBrowse Record by Double Clicking (or something)\n|\n[b:2n59l0kj]Dialog with Edit Screen Opens[/b:2n59l0kj]\n|\nFrom Dialog need another Window to open with a TWBrowse\n|\nMust be able to add, edit, and / or view the above TWBrowse\n\nMy problem is this:\n\nSo far everything is working perfectly up until [b:2n59l0kj]\'Dialog with Edit Screen Opens\'[/b:2n59l0kj].\n\nBUT\n\nI know (from past experience) that when I open the new Window from the Dialog, because I am working in an MDI environment, once that Window is open I know that I can click out of that Window at any point, the focus changes to where I have clicked, and that Window remains open in the background and I cannot have this happen.\n\nIn other words, in an MDI environment, how do you open a sort of \'Modal Window\' (just like a Modal Dialog) i.e. once this particular Window is open how do you stop a user from clicking anywhere else but in that Window until that Window is explicitly closed by the user (bearing in mind that you may have, at this point, about two or three other open Windows prior to even opening this Window).\n\nI seem to remember something James wrote about a long time ago about opening a Dialog as a Window or making a Window appear as if it were a Dialog or something like that?\n\nThis would solve my problem (I think) because if a Window was opened and it behaved as if it were Modal Dialog then you would not be able to click out of it without closing it first.\n\nI did post something like this a short while ago and received and answer from Antonio but I did try the solution and this did not work for me i.e. it would have worked if I was working in my first MDIChild Window by disabling my main MDI Window but I have at least one other MDIChild Window open at this point so I cannot use the oWndMain:Disable( ) and oWndChild:Disable( ) because at this point I already have another oWndChild open i.e. the <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable( ) only worked on the previous level of open Window and not if there were more than one MDIChild Window open.\n\nPhew, that was some explanation!\n\nHelp!\n\nDale.','',0,'QA==','2n59l0kj',1,0,'',419,0,0),(8018,1903,3,419,0,'196.25.255.195',1140688456,1,0,1,1,1,0,'','','Thanks Alex,\n\nI also remember from some time ago that there was a simple way of connecting to the Internet with the ShellExecute( ) function or something like that.  What are those functions?\n\nI did have this working in a very old test that I did but do not have that code anymore.\n\nBasically I am trying to create a button with a sort of \'Company Name\' On The Web type of thing i.e. click on that button and it will take you to our website sort of thing.\n\nRegards,\n\nDale.','',0,'QA==','2veg7zpp',1,0,'',419,0,0),(8019,1903,3,32,0,'196.36.8.34',1140688822,1,0,1,1,1,0,'','Connecting to web','Easiest way to do this, for text is to use a turllink control\n\nWhich basically does\n\nShellExecute(::Hwnd, \"open\", ::cUrl), which you could assign to a button','',0,'QA==','1g65k7eg',1,0,'',32,0,0),(8020,1907,3,6,0,'87.3.228.178',1140689407,1,0,1,1,1,1,'','TWBrowse scrollbar bug','In the following sample, try to hit down arrow key (on the keyboard) many times till to move the highlight to the last record and then hit down arrow key one more time. Now hit up arrow key and you will see that the scrollbar thumb doesn\'t move up (it will move when you hit up arrow key again):\n\n[code:1a8w7gpr]#include &quot;Fivewin&#46;ch&quot;\n\n\nREQUEST DBFCDX\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    RDDSETDEFAULT&#40; &quot;DBFCDX&quot; &#41;\n\n    USE TEST\n\n    INDEX ON FIELD -&gt; last + FIELD -&gt; first TO &quot;TEMP__&quot; FOR FIELD -&gt; last = &quot;A&quot;\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 1, 1 LISTBOX oBrw FIELDS TEST -&gt; last,;\n                               TEST -&gt; first;\n           SIZE 200, 200 PIXEL\n\n    oBrw&#58;bLogicLen = &#123; || &#40; oBrw&#58;cAlias &#41; -&gt; &#40; OrdKeyCount&#40;&#41; &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    CLOSE\n\n    FERASE&#40; &quot;TEMP__&#46;CDX&quot; &#41;\n\n    RETURN NIL[/code:1a8w7gpr]\n\nA possible fix:\n\n[code:1a8w7gpr]METHOD VGoDown&#40;&#41;       INLINE iif&#40; &#58;&#58;nVScrollPos &lt; &#58;&#58;nLen, &#58;&#58;VSetPos&#40; &#58;&#58;nVScrollPos + 1 &#41;, &#41;\nMETHOD VGoUp&#40;&#41;         INLINE iif&#40; &#58;&#58;nVScrollPos &gt; 1, &#58;&#58;VSetPos&#40; &#58;&#58;nVScrollPos - 1 &#41;, &#41;[/code:1a8w7gpr]\n\nEMG','',0,'AIA=','1a8w7gpr',1,0,'',6,0,0),(8021,1899,6,2,0,'87.218.146.43',1140689692,1,0,1,1,1,1,'','','Luis,\n\nPuedes probarlo con Harbour también ?\n\nParece claro que es un error en el RDD, que de confirmarse hay que reportar tanto en Harbour como xharbour. Cual usas, NTX ?','',0,'AIA=','3vz0nrlz',1,0,'',2,0,0),(8022,1895,6,2,0,'87.218.146.43',1140689783,1,0,1,1,1,1,'','','Luis,\n\nSi los recursos van a ir dentro del EXE entonces no tienes que llamar a rc2dll32.bat','',0,'AIA=','1gbznmp7',1,0,'',2,0,0),(8023,1906,3,6,0,'87.3.228.178',1140689795,1,0,1,1,1,1,'','Re: How to go further with app','Can\'t you just use a modal dialog?\n\nEMG','',0,'AIA=','yog40jvh',1,0,'',6,0,0),(8024,1897,6,2,0,'87.218.146.43',1140689860,1,0,1,1,1,1,'','','Ruben,\n\nEstirado no es posible. No lo soporta el API de Windows como brush. Habría que desarrollarlo especificamente.','',0,'AIA=','3q2jmbmj',1,0,'',2,0,0),(8025,1896,6,2,0,'87.218.146.43',1140689995,1,0,1,1,1,1,'','','Juan,\n\nPrueba con:\n\nnError = 0\n\nSendCmd( ..., @nError, ... )\n\ny decláralo como nError AS PTR en el comando DLL FUNCTION ...','',0,'AIA=','3jhvhm0q',1,0,'',2,0,0),(8026,1746,20,49,0,'213.82.134.66',1140690498,1,0,1,1,1,1,'','','scusa io intendevo un esempio per il doppio array non per l\'anteprima di stampa che lo so come si fa...','',0,'AIA=','29hqcvpx',1,0,'',49,0,0),(8027,1886,20,49,0,'213.82.134.66',1140690693,1,0,1,1,1,1,'','','Marco,\nte l\'avevo già inviata la lib , non ricordi ?','',0,'AIA=','2fikbw7g',1,0,'',49,0,0),(8028,1746,20,6,0,'87.3.228.178',1140691401,1,0,1,1,1,1,'','','Qualcosa del genere?\n\n[code:3vvjpt0k]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define DMPAPER_A5 11\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oLbx\n\n    LOCAL aFormati &#58;= &#123; &#123; &quot;Formato 1&quot;, &quot;Formato 2&quot;, &quot;DMPAPER_A5&quot; &#125;,;\n                        &#123; 1, 2, DMPAPER_A5 &#125; &#125;\n\n    LOCAL cFormato &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 LISTBOX oLbx VAR cFormato ITEMS aFormati&#91; 1 &#93;\n\n    @ 3, 1 BUTTON &quot;&amp;Stampa&quot; ACTION STAMPA&#40; aFormati&#91; 2, oLbx&#58;GetPos&#40;&#41; &#93; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION STAMPA&#40; nFormato &#41;\n\n    LOCAL oPrn, oFnt\n\n    PRNSETPAGE&#40; nFormato &#41;\n\n    PRINT oPrn PREVIEW\n        DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -12 OF oPrn\n\n        PAGE\n            oPrn&#58;Say&#40; 100, 100, &quot;This is a test&quot;, oFnt &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RELEASE FONT oFnt\n\n    RETURN NIL[/code:3vvjpt0k]\n\nEMG','',0,'AIA=','3vvjpt0k',1,0,'',6,0,0),(8029,1908,3,6,0,'87.3.228.178',1140691996,1,0,1,1,1,1,'','TWBrowse refiniment','In the following sample, try to click below the last record. It will be selected while it shouldn\'t:\n\n[code:26jo6oou]#include &quot;Fivewin&#46;ch&quot;\n\n\nREQUEST DBFCDX\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    RDDSETDEFAULT&#40; &quot;DBFCDX&quot; &#41;\n\n    USE TEST\n\n    INDEX ON FIELD -&gt; last + FIELD -&gt; first TO &quot;TEMP__&quot; FOR FIELD -&gt; last = &quot;A&quot;\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 1, 1 LISTBOX oBrw FIELDS TEST -&gt; last,;\n                               TEST -&gt; first;\n           SIZE 200, 200 PIXEL\n\n    oBrw&#58;bLogicLen = &#123; || &#40; oBrw&#58;cAlias &#41; -&gt; &#40; OrdKeyCount&#40;&#41; &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    CLOSE\n\n    FERASE&#40; &quot;TEMP__&#46;CDX&quot; &#41;\n\n    RETURN NIL[/code:26jo6oou]\n\n It is not a very important issue but anyway this is a possible fix:\n\n[code:26jo6oou]METHOD LButtonDown&#40; nRow, nCol, nKeyFlags &#41; CLASS TWBrowse\n\n   local nClickRow, nSkipped\n   local nColPos &#58;= 0, nColInit &#58;= &#58;&#58;nColPos - 1\n   local nAtCol\n\n   if &#58;&#58;lDrag\n      return Super&#58;LButtonDown&#40; nRow, nCol, nKeyFlags &#41;\n   endif\n\n   nClickRow = nWRow&#40; &#58;&#58;hWnd, &#58;&#58;hDC, nRow,;\n                      If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41; &#41;\n\n   if &#58;&#58;nLen &lt; 1 &#46;and&#46; nClickRow != 0\n      return nil\n   endif\n\n   if &#58;&#58;lMChange &#46;and&#46; AScan&#40; &#58;&#58;GetColSizes&#40;&#41;,;\n             &#123; | nColumn | nColPos += nColumn,;\n                           nColInit++,;\n                           nCol &gt;= nColPos - 1 &#46;and&#46; ;\n                           nCol &lt;= nColPos + 1 &#125;, &#58;&#58;nColPos &#41; != 0\n      if ! &#58;&#58;lCaptured\n         &#58;&#58;lCaptured = &#46;t&#46;\n         &#58;&#58;Capture&#40;&#41;\n         &#58;&#58;VertLine&#40; nColPos, nColInit &#41;\n      endif\n      return nil\n   endif\n\n   &#58;&#58;SetFocus&#40;&#41;\n\n   if nClickRow == 0 &#46;and&#46; Valtype&#40;nKeyFlags&#41; == &quot;N&quot;\n      if &#58;&#58;aActions != nil &#46;and&#46; ;\n         &#40; nAtCol &#58;= &#58;&#58;nAtCol&#40; nCol &#41; &#41; &lt;= Len&#40; &#58;&#58;aActions &#41;\n            if &#58;&#58;aActions&#91; nAtCol &#93; != nil\n               wBrwLine&#40; &#58;&#58;hWnd, &#58;&#58;GetDC&#40;&#41;, 0, &#58;&#58;aHeaders, &#58;&#58;GetColSizes&#40;&#41;,;\n                         &#58;&#58;nColPos, &#58;&#58;nClrForeHead, &#58;&#58;nClrBackHead,;\n                         If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;,&#46;f&#46;,;\n                         &#58;&#58;aJustify, nAtCol, &#58;&#58;nLineStyle,,, &#58;&#58;oVScroll, &#58;&#58;bLogicLen &#41;\n               &#58;&#58;ReleaseDC&#40;&#41;\n               Eval&#40; &#58;&#58;aActions&#91; nAtCol &#93;, Self, nRow, nCol &#41;\n               wBrwLine&#40; &#58;&#58;hWnd, &#58;&#58;GetDC&#40;&#41;, 0, &#58;&#58;aHeaders, &#58;&#58;GetColSizes&#40;&#41;,;\n                         &#58;&#58;nColPos, &#58;&#58;nClrForeHead, &#58;&#58;nClrBackHead,;\n                         If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;,&#46;f&#46;,;\n                         &#58;&#58;aJustify,, &#58;&#58;nLineStyle,,, &#58;&#58;oVScroll, &#58;&#58;bLogicLen &#41;\n               &#58;&#58;ReleaseDC&#40;&#41;\n            else\n               MsgBeep&#40;&#41;\n            endif\n      else\n         MsgBeep&#40;&#41;\n      endif\n   endif\n\n   if nClickRow &gt; &#58;&#58;nLen //EMG\n      return 0 //EMG\n   endif //EMG\n\n   if nClickRow &gt; 0 &#46;and&#46; nClickRow != &#58;&#58;nRowPos &#46;and&#46; ;\n      nClickRow &lt; &#58;&#58;nRowCount&#40;&#41; + 1\n      &#58;&#58;DrawLine&#40;&#41;\n      nSkipped  = &#58;&#58;Skip&#40; nClickRow - &#58;&#58;nRowPos &#41;\n      &#58;&#58;nRowPos += nSkipped\n      if &#58;&#58;oVScroll != nil\n         &#58;&#58;VSetPos&#40; &#58;&#58;VGetPos&#40;&#41; + nSkipped &#41;\n      endif\n      if &#58;&#58;lCellStyle\n           &#58;&#58;nColAct &#58;= &#58;&#58;nAtCol&#40; nCol &#41;\n           if &#58;&#58;oHScroll != nil\n              &#58;&#58;oHScroll&#58;SetPos&#40;&#58;&#58;nColAct&#41;\n           endif\n      endif\n      &#58;&#58;DrawSelect&#40;&#41;\n      &#58;&#58;lHitTop = &#46;f&#46;\n      &#58;&#58;lHitBottom = &#46;f&#46;\n      if &#58;&#58;bChange != nil\n         Eval&#40; &#58;&#58;bChange, Self &#41;\n      endif\n   else\n      if &#58;&#58;lCellStyle\n           &#58;&#58;nColAct &#58;= &#58;&#58;nAtCol&#40; nCol &#41;\n           if &#58;&#58;oHScroll != nil\n              &#58;&#58;oHScroll&#58;SetPos&#40;&#58;&#58;nColAct&#41;\n           endif\n           &#58;&#58;Refresh&#40;&#46;f&#46;&#41;\n      endif\n   endif\n\n   Super&#58;LButtonDown&#40; nRow, nCol, nKeyFlags &#41;\n\nreturn 0[/code:26jo6oou]\n\nEMG','',0,'AIA=','26jo6oou',1,0,'',6,0,0),(8030,1864,3,160,0,'210.212.142.91',1140692131,1,0,1,1,1,0,'','','Dear James,\n\nYes it does now. It was my fault.\n\nThanks a lot,\n\nMilan.','',0,'AIA=','5qydeqwc',1,0,'',160,0,0),(8031,1886,20,29,0,'81.174.37.59',1140692175,1,0,1,1,1,0,'','','Si, hai ragione.\nHo recuperato la tua mail. Grazie.\n\nSaluti\n\nMarco','',0,'AIA=','3tfrsyp7',1,0,'',29,0,0),(8032,1883,3,160,0,'210.212.142.91',1140692438,1,0,1,1,1,0,'','','Dear James,\n\nDo u mean to say that I should try to array browse with DBCOMBO ? Even that do not seem to work as the value return by DBCOMBO is still numeric (i.e. still from Database). I had filled both aItems and aList with proper values (string one).\n\nCan u please guide further ?\n\nTIA\nMilan.\n\n\n[quote=&quot;James Bott&quot;:3ipx4pdc]Milan,\n\nYou can preload the data into arrays (and convert the data to string while doing that). Then use the SET method:\n\nMETHOD SetItems( aItems, aList )\n\nWhen you save the selected item no. you may need to convert it back to numeric.\n\nThe problem is that the data needs to be string for the combobox class which is the base class of dbcombo.\n\nAnother way would be to modify the dbcombo source. The downside is that you will either not automatically get any improvements to newer versions of DBCombo that come with FW.\n\nMaybe the best thing would be to customize a copy of dbcombo and give it a new class name.  That is probably what I would do, but if you are not familiar with writing classes this may take some effort for you.\n\nJames[/quote:3ipx4pdc]','',0,'gA==','3ipx4pdc',1,0,'',160,0,0),(8033,1905,20,29,0,'81.174.37.59',1140692700,1,0,1,1,1,0,'','','Ok. Grazie.\n\nSaluti\n\nMarco','',0,'gA==','nyf8sj07',1,0,'',29,0,0),(8034,1909,1,161,0,'213.119.247.225',1140693232,1,0,1,1,1,0,'','Pure clipper question - Alias-name','Hello,\n\nIt\'s maybe a stupid question but is it possible to change the alias of a database without closing and reopen it?\n\nI know a can use variable like\ndb = \'TEST\'\nuse database ALIAS (db) new\nand \nrepl (db)-&gt;veldje with \'Test\'\n\nBut it would be nice to change the alias-name (it would save me some time changing existing code  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> )\n\nThanks,\nMarc','',0,'gA==','3btkufma',1,0,'',161,0,0),(8035,1909,1,6,0,'87.3.228.178',1140693483,1,0,1,1,1,1,'','Re: Pure clipper question - Alias-name','Try DBINFO() function.\n\nEMG','',0,'gA==','32x6ej1l',1,0,'',6,0,0),(8036,1909,1,161,0,'213.119.247.225',1140693757,1,0,1,1,1,0,'','','Enrico,\n\nWhere can I find this?\n\nMarc','',0,'gA==','1b5ttxhw',1,0,'',161,0,0),(8037,1909,1,6,0,'87.3.228.178',1140694014,1,0,1,1,1,1,'','','It is a Clipper 5.3b function. Look in the NG. If you are still using an older version (5.2e or previous) then I\'m afraid that you\'re stucked.\n\nEMG','',0,'gA==','18mnhsaa',1,0,'',6,0,0),(8038,1909,1,161,0,'213.119.247.140',1140695044,1,0,1,1,1,0,'','','I\'m still using clipper52e  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nMarc','',0,'gA==','21vuluup',1,0,'',161,0,0),(8039,1907,3,419,0,'198.54.202.210',1140695567,1,0,1,1,1,0,'','','Are you aware that this also happens when you do the same at the top of the browse i.e. go to the top and do the same thing with the arrow key (or click on the scroll bar up arrow) and the same thing happens?\n\nRegards,\n\nDale.','',0,'gA==','jil8bbex',1,0,'',419,0,0),(8040,1899,6,295,0,'200.113.102.55',1140696190,1,0,1,1,1,1,'','','Antonio:\n\nLo probaré con harbour, y uso DBFNTX\n\nSALU2','',0,'gA==','o9j4ie0e',1,0,'',295,0,0),(8041,1902,3,47,0,'203.144.160.247',1140697364,1,0,1,1,1,0,'','How to check CRC of datafile?','Dear Dale,\n\nWhat does it mean \"CRC of Datafile\"?  and \nHow do I check it (Which function)?\n\nThanks,\nDutch <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','cryox2z1',1,0,'',47,0,0),(8042,1907,3,6,0,'87.3.228.178',1140697798,1,0,1,1,1,1,'','','Yes. That\'s why I fixed both methods VGoDown() and VGoUp().\n\nEMG','',0,'gA==','3nfjh6qk',1,0,'',6,0,0),(8043,1764,3,267,0,'200.208.238.2',1140698305,1,0,1,1,1,1,'','','thanks,\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','23ipndll',1,0,'',267,0,0),(8044,1910,7,28,0,'213.27.201.254',1140702122,1,0,1,1,1,0,'','TClock funcionando','Hola a todos, os dejo un ejemplo de TClock funcionando para FWPPC\n\nTodavía le quedan cosas pero de momento se puede usar.\n\nUn saludo\n\nLa clase la podeis descargar de:\n[url:1vi2qivj]http&#58;//www&#46;arrakis&#46;es/~canal_five/reloj&#46;zip[/url:1vi2qivj]\n\n\n[img:1vi2qivj]http&#58;//www&#46;arrakis&#46;es/~canal_five/Reloj&#46;jpg[/img:1vi2qivj][/url]','',0,'GA==','1vi2qivj',1,0,'',28,0,0),(8046,1907,3,419,0,'196.25.255.194',1140702955,1,0,1,1,1,0,'','','Sorry, I did not see that.\n\nBut you have no idea how grateful I am!!!\n\nNow what about being able to make the lines and headings higher / wider AND GETTING IT INCORPORATED INTO THE NEXT RELEASE OF FWH? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAnd let us not forget about the WIN32 HEADERS!!! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks,\n\nDale.','',0,'GA==','7sttuvg3',1,0,'',419,0,0),(8047,1911,6,63,0,'80.37.102.128',1140703275,1,0,1,1,1,0,'','Cómo analizar el contenido de un bitmap','Quisiera analizar el contenido de un bitmap mostrándolo en pantalla con @ r,c BITMAP .... y leyéndolo punto a punto con GetPixel().   Esto funciona muy bien cuando la imagen es visible en la ventana pero no si la oculto oBmp:Hide() o desplazo la imagen fuera de la pantalla.\n\n¿Alguien sabe alguna forma de leer, pixel a pixel,  el contenido de un BMP sin necesidad de hacerlo visible en pantalla?\n\nGracias y saludos,\n\nRafael','',0,'GA==','622fhnt2',1,0,'',63,0,0),(8048,1907,3,419,0,'198.54.202.210',1140703345,1,0,1,1,1,0,'','','I can\'t thank you enough!!!\n\nRegards,\n\nDale.','',0,'GA==','1kxq8jkl',1,0,'',419,0,0),(8049,1907,3,6,0,'87.3.228.178',1140703461,1,0,1,1,1,1,'','','In wbrowse.prg there is a single call to DrawHeader() function. Try to play with it.\n\nEMG','',0,'GA==','zjws51ge',1,0,'',6,0,0),(8050,1912,3,419,0,'198.54.202.210',1140703925,1,0,1,1,1,0,'','Splash Screen','Hello,\n\nThere used to be a function (or at least I thought there used to be a function) that would display a bitmap for a certain number of seconds.\n\nI thought it was called MsgBmp( ) but I cannot find that anywhere?\n\nAnyone know to which function I am referring?\n\nIt could be used to display a \'splash screen\' at the start of your app or something like that.\n\nRegards,\n\nDale.','',0,'GA==','19pvqeg8',1,0,'',419,0,0),(8051,1912,3,32,0,'196.36.8.34',1140704269,1,0,1,1,1,0,'','Logo','Hi,\n\nYou\'re thinking of MsgLogo\n\nAlex','',0,'GA==','3uc9lnb0',1,0,'',32,0,0),(8052,1883,3,303,0,'68.7.28.54',1140704398,1,0,1,1,1,0,'','','Milan,\n\n[quote:1iz4gohl]Even that do not seem to work as the value return by DBCOMBO is still numeric (i.e. still from Database). I had filled both aItems and aList with proper values (string one).[/quote:1iz4gohl]\n\nI see there is a bug in DBCombo when you try to pass the arrays in the definition like this:\n\n@ 10,30 dbcombo oDBC var cItem of oDlg;\n   items aItems;\n   list aList\n\nInstead do it like this:\n\n@ 10,30 dbcombo oDBC var cItem of oDlg\noDBC:setItems( aItems, aList )\n\nThis is working for me.\n\nJames','',0,'gA==','1iz4gohl',1,0,'',303,0,0),(8053,1902,3,419,0,'198.54.202.194',1140704956,1,0,1,1,1,0,'','','Hello Dutch,\n\nThere is a function called nFileCRC( ) that returns the Checksum of a file.\n\nThe Checksum of a file seems to change whenever any change is made to the file including just the simple flagging of a record for deletion.\n\ne.g.\n\nnFileCheckSum := nFileCRC( \'FILENAME.DBF\' )\n\nIf you add, edit, delete, (anything), etc. etc. in FILENAME.DBF the Checksum changes so you can use this to check for changes to the file and update workstation displays if necessary.\n\nI am using it so that I can accomplish the following:\n\nDisplay Listbox Browse on Workstation 1\n|\nCreate a Timer to check the Checksum of my database on Workstation 1.\n|\nIf Workstation 2 makes a change to the the file the file Checksum has changed.\n|\nIf the Checksum has changed then update my Listbox Browse on Workstation 1.\n\nThis stops the Listbox Browse being visibly updated every time the Timer checks for changes to the file i.e. the Listbox Browse is only visibly updated / refreshed / repainted / whatever if a change has been made to the database file.\n\nI am very proud of this code so feel free to ask for a copy.\n\nIt makes the Listbox Browses update on all workstations on the network \'as if by magic\' <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->.\n\nRegards,\n\nDale.','',0,'gA==','155gg60m',1,0,'',419,0,0),(8054,1908,3,303,0,'68.7.28.54',1140705035,1,0,1,1,1,0,'','','Enrico,\n\nWhat version of FWH are you using?\n\nJames','',0,'gA==','w61zk19v',1,0,'',303,0,0),(8055,1912,3,419,0,'198.54.202.210',1140705158,1,0,1,1,1,0,'','','Thank you, thank you, thank you!\n\nI knew it was here somewhere!  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> \n\nRegards,\n\nDale.','',0,'gA==','2iqr2845',1,0,'',419,0,0),(8056,1908,3,6,0,'87.3.228.178',1140705367,1,0,1,1,1,1,'','','The latest.\n\nEMG','',0,'gA==','fz8koa75',1,0,'',6,0,0),(8057,1906,3,303,0,'68.7.28.54',1140705622,1,0,1,1,1,0,'','','Dale,\n\nMy first advice would be to avoid MDI. Note that Microsoft is not using MDI anymore either.\n\nThere is way too much user required manipulation of the windows in a MDI application. They spend half their time messing with the Windows rather than getting their work done. An Outlook type SDI (single document interface) is much more efficient.\n\nBut to solve your problem, as Enrico said, use a dialog as a container for the second browse.\n\nJames','',0,'gA==','2wolxkk5',1,0,'',303,0,0),(8058,1913,2,438,0,'166.114.98.187',1140705747,1,0,1,1,1,0,'','A veces funciona y a veces no el Pegado(CTRL_V) en TGet','Saludos amigos del foro.\n\nEste maravilloso foro que tanto nos ayuda.\n\nUna pregunta que seguro ya la hicieron antes.\n\nPorque \"a veces\" funciona y \"a veces no\" el Pegado en TGet. Es decir cuando hago CTRL-V en un campo GET aparece inmediatamente lo pegado, pero cuando paso al siguiente campo get desaparece lo copiado.\n\nCuando yo utilizo esto, lo que hago es CTRL-V (pegar), luego la tecla END para irme al final del campo y nuevamente CTRL-V para volver a pegar y luego borrar lo ultimo pegado( que es un solo caracter) y asi, si permanece lo pegado.\n\nTengo varias aplicaciones en las que no le di mucha importancioa a este tema, por eso no hacia la consulta, pero ahora necesito que esto funcione bien en una empresa a la que le desarrolle un sistema.\n\nAh y este problema es en cualquier maquina, tanto en Win98, Me o Xp\n\nUtilizo FiveWin24, Clipper3 y Blinker7\n\nDe antemano gracias, y gracias por responder a una pregunta que seguro ya fue contestada.','',0,'gA==','3dk0yqgf',1,0,'',438,0,0),(8059,1908,3,303,0,'68.7.28.54',1140706193,1,0,1,1,1,0,'','','Enrico,\n\nActually, I do think that the scrollbar is an imortant issue, as does Dale and others, I\'m sure. I have been working on it myself. There are a number of bugs still. For the last couple of days I have been trying to fix the tumbbar size problem (currently it is always the same size). Perhaps together we can get the scrollbar working properly.\n\nOne thing I think I have solved is defaulting bLogicLen to ordkeyCount() if the driver supports it, otherwise to reccount(). Often I forget to set bLogicLen.\n\nJames','',0,'gA==','vro7mchb',1,0,'',303,0,0),(8060,1908,3,6,0,'87.3.228.178',1140706939,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3vn8qwth]Enrico,\n\nActually, I do think that the scrollbar is an imortant issue, as does Dale and others, I\'m sure. I have been working on it myself. There are a number of bugs still. For the last couple of days I have been trying to fix the tumbbar size problem (currently it is always the same size). Perhaps together we can get the scrollbar working properly.[/quote:3vn8qwth]\n\nI fix that problem years ago but Antonio thinks that a fixed-size thumb is a better choice (and I respect its decision). Anyway, if you are interested I can explain how.\n\n[quote=&quot;James Bott&quot;:3vn8qwth]One thing I think I have solved is defaulting bLogicLen to ordkeyCount() if the driver supports it, otherwise to reccount(). Often I forget to set bLogicLen.[/quote:3vn8qwth]\n\nI have it in my customized TWBrowse from the FW 1.9.1 days. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','3vn8qwth',1,0,'',6,0,0),(8061,1908,3,303,0,'68.7.28.54',1140707530,1,0,1,1,1,0,'','','Enrico,\n\n[quote:10qcptxh]I fix that problem years ago but Antonio thinks that a fixed-size thumb is a better choice (and I respect its decision).[/quote:10qcptxh]\n\nSince the code to handle it was commented out, I figured it was just because it isn\'t working. Did he say why he thought it was better? Still it could be made a configurable option, then everyone could be happy.\n\n[quote:10qcptxh]Anyway, if you are interested I can explain how.[/quote:10qcptxh]\n\nPlease. I have already spent hours on this. I finally found one very strange thing. If I have 30 records and the setPage() method is activated, when you scroll past the 23th record, oVScrollbar:getPos() continues to return 23 always. I don\'t know if this is a bug in the C code or what.\n\nI\'m all ears.\n\nJames','',0,'gA==','10qcptxh',1,1140708961,'',303,1,0),(8062,1902,3,303,0,'68.7.28.54',1140707894,1,0,1,1,1,0,'','','Dale,\n\nCorrect me if I am wrong, but doesn\'t a checksum require reading the entire file? I don\'t think this is feasible.\n\nWhy not just check the file time?\n\nJames','',0,'gA==','31tadrlu',1,0,'',303,0,0),(8063,1908,3,6,0,'87.3.228.178',1140708585,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1srx1gev]Since the code to handle it was commented out, I figured it was just because it isn\'t working. Did he say why he thought it was better?[/quote:1srx1gev]\n\nIf I remember correctly, because a too little thumb is difficult to click.\n\n[quote=&quot;James Bott&quot;:1srx1gev]Still it could be made a configurable option, then everyone could be happy.[/quote:1srx1gev]\n\nYes, it seems the best choice, as usual.\n\n[quote=&quot;James Bott&quot;:1srx1gev]Please. I have already spent hours on this. I finally found one very strange thing. If I have 30 records and the setPage() method is activated, when you scroll past the 23th record, oVScrollbar:getPos() continues to return 23 always. I don\'t know if this is a bug in the C code or what.\n\nI\'m all ears.[/quote:1srx1gev]\n\nLet me collect all the necessary changes. Now I\'m about to going to pick up my daughter at shool. I report all here as soon as possible.\n\nEMG','',0,'gA==','1srx1gev',1,0,'',6,0,0),(8064,1914,6,73,0,'201.133.246.32',1140708594,1,0,1,1,1,0,'','progress de color...','hay alguna forma de cambiar el color de los botones de la clase progress y poner esta de forma vertical?\nsalu2\nPako','',0,'gA==','opy7tg5i',1,0,'',73,0,0),(8065,1902,3,419,0,'198.54.202.195',1140709495,1,0,1,1,1,0,'','','Hello, as you can see I have been working hard today!\n\nI actually couldn\'t tell you if it reads the entire file or not BUT if you are right then I am heading for a disaster as I am only using test data for now which never amounts to more than a couple of records in a file.\n\nI will do a REAL test and create a .dbf with lots and lots of records and then see if my code works / slows down.\n\nI am kind of hoping that it reads or creates a checksum from the header though.  Anyone know anything more about this?  Anywhere I can look for more technical information on nFileCRC( )?\n\nRegards,\n\nDale.','',0,'gA==','3uqioiyw',1,0,'',419,0,0),(8066,1908,3,6,0,'87.3.228.178',1140709743,1,0,1,1,1,1,'','','This is what I rapidly found. Let me know if there are pending issues and I will search for other fixes:\n\n[code:2iel5z4n]METHOD SetPage&#40; nSize, lRedraw &#41;\n\nMETHOD SetRange&#40; nMin, nMax &#41; INLINE ;\n                               &#58;&#58;nMin &#58;= nMin, &#58;&#58;nMax &#58;= nMax, ;\n        SetScrollRange&#40; if&#40; &#58;&#58;lIsChild, &#58;&#58;oWnd&#58;hWnd, &#58;&#58;hWnd &#41;, ;\n            if&#40; &#58;&#58;lIsChild, If&#40; &#58;&#58;lVertical, SB_VERT, SB_HORZ &#41;, SB_CTL &#41;, ;\n                 nMin, nMax, &#46;f&#46; &#41;, &#58;&#58;SetPage&#40; 1, &#46;t&#46; &#41;\n\nMETHOD SetPage&#40; nSize, lReDraw &#41; CLASS TScrollBar\n\n   local nFlags\n\n   DEFAULT lRedraw &#58;= &#46;f&#46;\n\n   if ! Empty&#40; &#58;&#58;hWnd &#41;\n      nFlags = SB_CTL\n   else\n      if &#58;&#58;lVertical\n         nFlags = SB_VERT\n      else\n         nFlags = SB_HORZ\n      endif\n   endif\n\n   if &#58;&#58;nMin &gt; 0 &#46;or&#46; &#58;&#58;nMax &gt; 0\n      SetScrollInfo&#40; If&#40; ! Empty&#40; &#58;&#58;hWnd &#41;, &#58;&#58;hWnd, &#58;&#58;oWnd&#58;hWnd &#41;,;\n                     nFlags, nSize, lReDraw &#41;\n   endif\n\nreturn nil[/code:2iel5z4n]\n\nEMG','',0,'AIA=','2iel5z4n',1,0,'',6,0,0),(8067,1906,3,419,0,'198.54.202.210',1140710095,1,0,1,1,1,0,'','','Hello James,\n\nTo be honest - YOURS was the comment that I was waiting for - the whole day - in anticipation!\n\nI know that you have told me this before but there is a practical reason for me using MDI.\n\nAs you know - it is (finally) a rewrite of our old Fleet Management System and the idea is that there are certain tables of information that a Fleet Manager, for example, would probably like to have open at one time on his screen so that \'at the touch of a button\' or \'at a glance\' (already working on my sales pitch) he has the information right there.\n\nI still really need advice on one portion of the app though (as detailed at the start of this message thread) - and it is probably the \'guts\' of the system - and it is worrying me terribly - even before I get to it!\n\nMaybe - if you (and Enrico) have the time I could post a download link to what I have so far (I\'m not posting the code as I just know what you will have to say about it) and you could maybe give me some ideas.  I mean I know how I want it to work but I can\'t seem to fathom practically how I am going to do it!!!\n\nRegards,\n\nDale.','',0,'AIA=','3npcal9i',1,0,'',419,0,0),(8068,1897,6,61,0,'201.217.162.69',1140710228,1,0,1,1,1,0,'','','Gracias Antonio,\n\ncon otra posibilidad pierdo la transparencia de los controles.\nVere como lo soluciono.\n\nMuchas gracias.\n\nRuben Fernandez','',0,'AIA=','yb2fot7w',1,0,'',61,0,0),(8069,1915,20,29,0,'81.174.37.59',1140711205,1,0,1,1,1,0,'','Verificare la presenza di Outlook','Salve,\ncome posso verificare se Outlook è installato ?\nIn pratica se è presente Outlook voglio inviare una mail i comandi OLE di Office altrimenti tramite MAPI.\n\nPosso verificare l\'esistenza di Outlook quando chiamo\noOutlook:=CreateObject(\"Outlook.Application\") ?\n\nHo controllato sulla guida di xHarbour che mi dice però che CreateObject non restituisce un valore dal quale posso capire se è andato a buon fine o meno.\n\nQualche idea ?\n\nGrazie in anticipo.\n\nMarco','',0,'AIA=','1kzdiznr',1,0,'',29,0,0),(8070,1906,3,303,0,'68.7.28.54',1140711373,1,0,1,1,1,0,'','','Dale,\n\n[quote:3w0n9k7q]I know that you have told me this before but there is a practical reason for me using MDI. \n\nAs you know - it is (finally) a rewrite of our old Fleet Management System and the idea is that there are certain tables of information that a Fleet Manager, for example, would probably like to have open at one time on his screen so that \'at the touch of a button\' or \'at a glance\' (already working on my sales pitch) he has the information right there. [/quote:3w0n9k7q]\n\nOf course, you must provide the user the information that they need, but I am sure you can do it in SDI. SDI doesn\'t mean you can only show one table at a time. Take another look at Outlook. Can you send me a screenshot of what you think you must do with MDI?\n\n[quote:3w0n9k7q]Maybe - if you (and Enrico) have the time I could post a download link to what I have so far...[/quote:3w0n9k7q]\n\nPost it.\n\nJames','',0,'gA==','3w0n9k7q',1,0,'',303,0,0),(8071,1902,3,419,0,'196.25.255.210',1140711448,1,0,1,1,1,0,'','','OK, OK, OK!\n\nAs always - you are right!\n\nnFileCRC( ) OBVIOUSLY reads the entire file because with 50000 records the system becomes unuseable i.e. every time the timer ticks the system stalls for a time and then comes back to life!!!!!!\n\nBack to the drawing board   <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> \n\nRegards,\n\nDale.','',0,'gA==','gtpksdmk',1,0,'',419,0,0),(8072,1746,20,49,0,'213.82.134.66',1140711662,1,0,1,1,1,1,'','','ok stasera provo','',0,'gA==','2x47hn75',1,0,'',49,0,0),(8073,1902,3,303,0,'68.7.28.54',1140711985,1,0,1,1,1,0,'','','Dale,\n\nI know, I can be a real PITA.\n\nJust try using the file time. Unless users will be working across midnight you don\'t need to use the date too, although that would be safer.\n\nI would use a longer interval also, 5 seconds maybe. That will also reduce the traffic considerably over 1 second.\n\nJames','',0,'gA==','2yk2i1h7',1,0,'',303,0,0),(8074,1886,20,49,0,'213.82.134.66',1140712284,1,0,1,1,1,1,'','','Marco , \nti ricordi quella modifica fatta al Rpreview ?\nquella mi ae quella tua intendo ....\nadesso volevo inserirla sul nuovo Rpreview ma non so come fare \nChe diresti di usare un programmino per vedere quale linee ho aggiunto ? ma non lo trovo un programma del genere ...\nHai un \'idea migliore ?\nOltre tutto   tu potresti modificare quella tua modifica del salvataggio formati non usando piu\' nview ma la dll Freeimage, poi io avrei una funzione che trasforma il file EMF in RTF e viceversa ma bisognerebbe adattarla..\nquando hai un po di tempo mi aiuti a metterla a posto ?','',0,'gA==','2uuy2kns',1,0,'',49,0,0),(8075,1906,3,419,0,'196.25.255.194',1140712378,1,0,1,1,1,0,'','','Thanks,\n\nHere it is:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fleetfocus.net/software/images/fwngtest.zip\">http://www.fleetfocus.net/software/images/fwngtest.zip</a><!-- m -->\n\nHave a look at it.\n\nHalf of the \'Edit\' menu options work so far - open them all up and then tile them and see how good it looks  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nThe point is that it would be nice to have, say the \'Suppliers\' open on the left for quick access to their phone numbers, and possibly the \'Vehicles\' open on the right hand side for quick access (ironically neither of these options are working yet but you get the idea).\n\nPlease have a look (while I go and have dinner) and I will gracefully accept your comments shortly and explain why I need these additional dialogs and windows open as I get to the \'nitty gritty\' of the system.\n\nAnd by the way - don\'t go creating 5 000 000 records and run it on a network - I have not removed my nFileCRC( )\'s yet!!! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards,\n\nDale.','',0,'gA==','2taoaiat',1,0,'',419,0,0),(8076,1886,20,106,0,'85.34.123.169',1140712578,1,0,0,1,1,1,'','','Prova PsPad, è un editor free, e compara files ed altro...','',0,'gA==','3i0histy',1,0,'',106,0,0),(8077,1914,6,255,0,'200.67.175.250',1140712837,1,0,1,1,1,1,'','Re: progress de color...','[quote=&quot;Francisco Horta&quot;:146n2tpf]hay alguna forma de cambiar el color de los botones de la clase progress y poner esta de forma vertical?\nsalu2\nPako[/quote:146n2tpf]\n\nCon respecto al color NO lo se, pero para ponerlo vertical solo\ndecláralo en las propiedades de tu editor de recursos.\n( yo uso Microsoft Visual C++ 6.0 )\n\nSaludos','',0,'gA==','146n2tpf',1,0,'',255,0,0),(8078,1906,3,303,0,'68.7.28.54',1140713268,1,0,1,1,1,0,'','','Dale,\n\n[quote:p54fq1b6]The point is that it would be nice to have, say the \'Suppliers\' open on the left for quick access to their phone numbers, and possibly the \'Vehicles\' open on the right hand side for quick access (ironically neither of these options are working yet but you get the idea). [/quote:p54fq1b6]\n\nAs I said, you can do this with an SDI app. Take a look at \\samples\\testspl1-testspl6. And do a Google for Outlook images.\n\nJames','',0,'gA==','p54fq1b6',1,0,'',303,0,0),(8079,1910,7,2,0,'87.218.146.43',1140713379,1,0,1,1,1,1,'','','Paco,\n\ngracias! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3n8y1uqk',1,0,'',2,0,0),(8080,1870,2,138,0,'201.133.73.175',1140713577,1,0,1,1,1,1,'','','Depende de la parte del mundo donde estes.\n\nLos datos estan en nuestro servidor en Cd. de Mexico. Conectado por ADS de 2 mbps.\n\nNuestros clientes que usan esta tecnologica usualmente estan conectados por ADSL de 512 kbps y dentro del mismo pais tenemos una estupenda velocidad de respuesta, como si estuvieras en la red local.','',0,'gA==','p4ctzjdd',1,0,'',138,0,0),(8081,1906,3,419,0,'196.25.255.195',1140713840,1,0,1,1,1,0,'','','OK - well maybe (you really are a man of few words)!\n\nBut MDI or SDI it still does not solve my \'how to\' have a dialog box with Gets, and Browses with inline input (or something).\n\nBut let me think about the logic of what I am trying to do and when I get there maybe you can be of help.\n\nRegards,\n\nDale.','',0,'gA==','33eiy9sf',1,0,'',419,0,0),(8082,1902,3,419,0,'198.54.202.210',1140714027,1,0,1,1,1,0,'','','Thanks for the advice.\n\nI will have to test it though because I am not entirely sure that a file\'s date and time are changed until a user actually closes the file (at least not on a Novell network anyway).\n\nIn other words there would be a difference between the time that the file was last accessed, last modified, and created, and I not sure what our FWH functions pick up.\n\nRegards,\n\nDale.','',0,'gA==','hqis9aft',1,0,'',419,0,0),(8083,1901,3,419,0,'198.54.202.234',1140714207,1,0,1,1,1,0,'','','Who is responsible for this sample?\n\nRegards,\n\nDale.\n\n(Actually - I cannot tell a lie - this message was posted to get exposure to this thread again so that I can get an answer to the compile problem)  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->','',0,'gA==','id6zmezc',1,0,'',419,0,0),(8084,1916,3,455,0,'195.97.105.161',1140714993,1,0,1,1,1,0,'','To Mr. Antonio Linares','Antonio hi,\n\nI tried three times to send you an email regarding Importing older WMF\'s\nand all three times my email came back as been a SMAP mail.\n\nAny problem?','',0,'gA==','1cnuqem8',1,0,'',455,0,0),(8085,1913,2,404,0,'213.231.101.107',1140715096,1,0,1,1,1,0,'','No se si le ayudará.','No había probado, el Ctrl-C, y Ctrl-V, en la aplicación que esta en pleno desarrollo. \n\nAsí que lo he estado probando, y no da problemas. Seguiré haciendo pruebas.\n\nLe adjunto, la configuración de un Edit text style, que uso en la aplicación, por si le fuera de ayuda:\n\nEn Caption: Text\nEn Attributes: Tab stop, Visibley Border\nAlignment:  Left\nCase insensitive\nMultiline\n\nSon los unicos, que están activados.\n\nSaludos, José Mª','',0,'gA==','1vxcv78m',1,0,'',404,0,0),(8086,1886,20,29,0,'81.174.37.59',1140715521,1,0,1,1,1,0,'','','Silvio,\nper quanto riguarda la conversione EMF-&gt;RTF ho risolto utilizzando la DLL RTFConverter di Amyuni per la quale ho scritto il wrapper per Harbour.\nLa conversione è incredibilmente accurata (riporta anche le immagini, linee ecc) e i testi sono in caselle di testo facilmente modificabili dall\'utente finale.  In pratica la stampa originale è quasi indistinguibile dalla stampa del RTF da Word.\n\nCredo che la conversione EMF-&gt;RTF alla quale ti riferisci e che mi dici di aver sviluppato è l\'embed del file wmf/emf dentro il file rtf che tuttavia non è di grande aiuto per l\'utente finale che vuole modificare i testi o aggiungere delle note.\n\nPer il preview di stampa sto ancora utilizzando quello di Timm (con la speranza che aggiorni però il sistema di conversione di formato in quanto mi costringe a generare i metafile nel vecchio formato wmf affinché sia possibile gestirli con l\'anteprima).\n\nPer quanto riguarda Freeimage, lo utilizzo per la conversione \"al volo\" di un file grafico in formato JPG, tuttavia xnview è molto più completa come libreria ed anche se non è free (per usi commerciali) , è estremamente economica (se ricordo bene è speso 100Euro per la licenza commerciale). \n\nMarco','',0,'gA==','1o4rprvk',1,0,'',29,0,0),(8087,1917,3,455,0,'195.97.105.161',1140715627,1,0,1,1,1,0,'','.DBT memo files','Hi all,\n\nUntil XHB/FWH Oct. 2005, I was creating and handling memo files\nwith the extension .DBT.\n\nWith Feb 2006 relase of XHB/FWH, the memo files are crated with\nthe extension .FPT.\n\nIn my program I use:\n\n\n   REQUEST HB_LANG_EN // _EN\n   HB_LANGSELECT(\'EN\')  // \'EN\'\n\n   Request DBFCDX\n   RDDSETDEFAULT(\"DBFCDX\")\n\nWhat should I change or add to support existing .DBT files ?\n\nThank you all...\n\nEvans Bartzokas\n\nps. Posting this here and in XHB NG, because I am not sure where \nthe problem is located...','',0,'gA==','1uhbvhkh',1,0,'',455,0,0),(8088,1763,2,404,0,'213.231.101.107',1140716680,1,0,1,1,1,0,'','Lo que decía.','Antes de nada, ¡Gracias!, por la respuesta Leandro.\n\nCon lo que me respondio Antonio, ¡Gracias! de nuevo, por ello. Y lo que Vd. me contesto, se soluciono el problema.\n\nPero, \"siempre hay un pero\", ahora surgio uno nuevo. \n\nLa función funciona, hasta que llega el momento de salir, y en vez de seguir a la línea siguiente a la llamada, hace un RETURN a la función que la llamo.\n\nLo extraño es que si, le pongo un MsgInfo( \"Pausa, antes de salir...\" ). Antes del RETURN, este no se muestra, y entonces si funciona:\n\n[code:1anoq1fr]\n\n*- Ficheros de cabecera&#58;\n\n       #INCLUDE &quot;DIRECTRY&#46;CH&quot;\n       #INCLUDE &quot;FiveWin&#46;CH&quot;\n       #INCLUDE &quot;MESDBF&#46;CH&quot;   // Clase&#58; TDbf\n       #INCLUDE &quot;&#46;&#46;\\&#46;&#46;\\Include\\Comunes&#46;CH&quot;\n\n*- Variables&#58; Estaticas&#46;\n\n   *- Utilizada por la función&#58; PorcentInd&#46;\n\n      STATIC lPrimerVez &#58;= TRUE\n\nFUNCTION CrearIndic&#40; cContab &#41;\n\n   *- Vectores&#58; Locales&#46;\n\n      LOCAL axFicheros &#58;= &#123;&#125;\n      LOCAL anVal      &#58;= ARRAY&#40; 5 &#41;\n\n   *- Constantes Objeto&#58; Locales&#46;\n\n      LOCAL oDlg1\n      LOCAL oDlg2\n\n   *- Vectores Objeto&#58; Locales&#46;\n      \n      LOCAL aoSay      &#58;= ARRAY&#40; 5 &#41;\n      LOCAL aoMeter    &#58;= ARRAY&#40; 5 &#41;\n\n   *- Borramos los Indices antiguos&#46;\n\n      axFicheros &#58;= DIRECTORY&#40; &quot;*&#46;NTX&quot; &#41;\n\n      IF LEN&#40; axFicheros &#41; &gt; 0\n         AEVAL&#40; axFicheros, ;\n                  &#123; | fichero | FERASE&#40; fichero&#91; F_NAME &#93; &#41; &#125; &#41;\n\n         axFicheros &#58;= &#123;&#125;\n      ENDIF\n\n   DEFINE DIALOG oDlg1 RESOURCE &quot;Indices_Creacion&quot;\n      REDEFINE SAY PROMPT OemToAnsi&#40; &quot;CREACIÓN DE LOS INDI&quot; + ;\n                &quot;CES DEL AÑO&#58; &quot; + cContab &#41; ID 101 OF oDlg1\n\n   ACTIVATE DIALOG oDlg1 CENTERED NOWAIT\n\n      DEFINE DIALOG oDlg2 RESOURCE &quot;Indices_Base_de_Datos&quot;\n         REDEFINE SAY aoSay&#91; 1 &#93; ID 101 OF oDlg2\n         REDEFINE SAY aoSay&#91; 2 &#93; ID 102 OF oDlg2\n         REDEFINE SAY aoSay&#91; 3 &#93; ID 104 OF oDlg2\n         REDEFINE SAY aoSay&#91; 4 &#93; ID 106 OF oDlg2\n         REDEFINE SAY aoSay&#91; 5 &#93; ID 110 OF oDlg2\n\n         REDEFINE METER aoMeter&#91; 1 &#93; VAR anVal&#91; 1 &#93; ;\n                        ID       103 OF oDlg2\n         REDEFINE METER aoMeter&#91; 2 &#93; VAR anVal&#91; 2 &#93; &#58;\n                         ID 105 OF oDlg2\n         REDEFINE METER aoMeter&#91; 3 &#93; VAR anVal&#91; 3 &#93; ;\n                        ID 107 OF oDlg2\n         REDEFINE METER aoMeter&#91; 4 &#93; VAR anVal&#91; 4 &#93; ;\n                        ID 109 OF oDlg2\n         REDEFINE METER aoMeter&#91; 5 &#93; VAR anVal&#91; 5 &#93; ;\n                        ID 111 OF oDlg2\n      ACTIVATE DIALOG   oDlg2                               ;\n               CENTERED                                  ;\n               ON PAINT &#40; Indexar&#40; aoSay, aoMeter, ;\n                           anVal &#41;, oDlg2&#58;End&#40;&#41;, oDlg1&#58;End&#40;&#41; &#41;\n   MsgInfo&#40; &quot;Antes de Salir&#46;&#46;&#46;&quot; &#41; // Si lo quito, no funciona\nRETURN NIL\n\nFUNCTION Indexar&#40; aoSay, aoMeter, anVal &#41;\n\n   *- Vectores&#58; Locales&#46;\n\n      LOCAL acMensajes &#58;= ARRAY&#40; 4 &#41;\n\n   *- Constantes Objeto&#58; Locales&#46;\n\n      LOCAL oDbfClient  // Para&#58; CLIENTES&#46;DBF\n      LOCAL oDbfPresup // Para&#58; PRESUPUE&#46;DBF\n      LOCAL oDbfFactC  // Para&#58; FACTCLIE&#46;DBF\n      LOCAL oDbfProv   // Para&#58; PROVEEDO&#46;DBF\n      LOCAL oDbfFactP  // Para&#58; FACTPROV&#46;DBF\n      LOCAL oDbfDevoP  // Para&#58; DEVOPROV&#46;DBF\n\n        // Codigo OOP para la generación \n        // del fichero&#58; CLIENTES&#46;DBF \n\n         DEFINE DATABASE oDbfClient FILE &quot;CLIENTES&#46;DBF&quot;   ;\n                                            ALIAS &quot;CLIENTES&quot;\n            FIELD NAME &quot;CODIGO&quot; TYPE &quot;C&quot; LEN 7 DEC 0 OF oDbfClient\n            FIELD NAME &quot;NOMBRE&quot;     TYPE &quot;C&quot; LEN 20  DEC 0 OF oDbfClient\n            FIELD NAME &quot;APELLIDO1&quot; TYPE &quot;C&quot; LEN  30 DEC 0 OF oDbfClient\n            FIELD NAME &quot;APELLIDO2&quot; TYPE &quot;C&quot; LEN  30 DEC 0 OF DbfClient\n            FIELD NAME &quot;DOMICILIO&quot; TYPE &quot;C&quot; LEN  40 DEC 0 OF oDbfClient\n            FIELD NAME &quot;COD_POSTAL&quot; TYPE &quot;N&quot; LEN 5 DEC 0 OF oDbfClient\n            FIELD NAME &quot;POBLACION&quot; TYPE &quot;C&quot; LEN  30 DEC 0 OF oDbfClient\n            FIELD NAME &quot;PROVINCIA&quot; TYPE &quot;C&quot; LEN 30  DEC 0 OF oDbfClient\n            FIELD NAME &quot;NIF&quot;          TYPE &quot;C&quot; LEN 12 DEC 0 OF oDbfClient\n            FIELD NAME &quot;TELEFONO1&quot; TYPE &quot;N&quot; LEN 9 DEC 0 OF oDbfClient\n            FIELD NAME &quot;TELEFONO2&quot; TYPE &quot;N&quot; LEN 9 DEC 0 OF oDbfClient\n\n         // Indices del objeto TDbf oDbfClient \n\n            acMensajes &#58;= &#123; &quot;BASE DE DATOS&#58; CLIENTES&#46;DBF&quot; , ;\n                           &quot;POR&#58; EL CÓDIGO DEL CLIENTE&quot; , ;\n                           &quot;POR&#58; EL NOMBRE DEL CLIENTE&quot; , ;\n                           &quot;POR&#58; EL TELÉFONO DEL CLIENTE&quot; &#125;\n\n            *- Indice&#58; ClieCod = Clientes Codigo del Cliente&#46;\n\n               INDEX FILE ClieCod ;\n                TAG  Codigo ;\n                ON    codigo ;\n                EVAL &#40; lPrimerVez &#58;= TRUE  , ;\n                  PorcentInd&#40; oDbfClient, aoMeter&#91; 1 &#93;, ;\n                       anVal, acMensajes, aoSay &#41; &#41;  ;\n                OF       oDbfClient\n\n            *- Indice&#58; ClieNomb = Clientes Nombre del Cliente&#46;\n\n               INDEX FILE ClieNomb                 ;\n               TAG Nombre                        ;\n               ON   apellido1 + apellido2 + ;\n                       nombre + codigo         ;\n               EVAL &#40; lPrimerVez &#58;= TRUE   , ;\n                   PorcentInd&#40; oDbfClient, aoMeter&#91; 2 &#93; &#41; &#41;  ;\n               OF     oDbfClient\n\n            /* Indice&#58; ClieTele = Clientes \n                                       Teléfono del Cliente&#46; */\n\n               INDEX FILE ClieTele ;\n               TAG  Telefono ;\n               ON PADL&#40; telefono1, 9, &quot;0&quot; &#41; + ;\n                    PADL&#40; telefono2, 9, &quot;0&quot; &#41; + ;\n                    PADL&#40; movil, 9, &quot;0&quot; &#41; + ;\n                    PADL&#40; fax, 9, &quot;0&quot; &#41; + ;\n                   codigo ;\n               EVAL &#40; lPrimerVez &#58;= TRUE, ;\n                PorcentInd&#40; oDbfClient, aoMeter&#91; 3 &#93; &#41; &#41; ;\n               OF   oDbfClient\n           END DATABASE oDbfClient\n\n      ACTIVATE DATABASE oDbfClient // NORECYCLE\n\n      oDbfClient&#58;Close&#40;&#41;\n\n       // Codigo OOP para la generación del fichero&#58; PRESUPUE&#46;DBF\n\n     DEFINE DATABASE oDbfPresup FILE &quot;PRESUPUE&#46;DBF&quot; ;\n                                 ALIAS &quot;PRESUPUE&quot;\n        FIELD NAME &quot;TIPO&quot;            TYPE &quot;N&quot; LEN   1 DEC 0   OF oDbfPresup\n        FIELD NAME &quot;ESTADO&quot;        TYPE &quot;N&quot; LEN   1 DEC 0   OF oDbfPresup\n        FIELD NAME &quot;CODIGO&quot;        TYPE &quot;C&quot; LEN  7 DEC 0  OF oDbfPresup\n        FIELD NAME &quot;NUMPRESUPU&quot; TYPE &quot;C&quot; LEN  5 DEC 0  OF oDbfPresup\n        FIELD NAME &quot;FECHAPRESU&quot; TYPE &quot;D&quot; LEN   8 DEC 0 OF oDbfPresup\n        FIELD NAME &quot;DESCRIPCIO&quot; TYPE &quot;C&quot; LEN 200 DEC 0 OF oDbfPresup\n        FIELD NAME &quot;CANTIDAD&quot;    TYPE &quot;N&quot; LEN   3 DEC 0 OF oDbfPresup\n        FIELD NAME &quot;PRECIO&quot;         TYPE &quot;N&quot; LEN   8 DEC 3  OF oDbfPresup\n        \n        // Indices del objeto TDbf oDbfPresup\n\n            acMensajes &#58;= &#123; &quot;BASE DE DATOS&#58; PRESUPUE&#46;DBF&quot; , ;\n                &quot;POR&#58; EL CÓDIGO DEL CLIENTE&quot;      , ;\n                &quot;POR&#58; EL NÚMERO DE PRESUPUESTO&quot; , ;\n                &quot;POR&#58; EL NÚMERO DE PRESUPUESTO, SIN REPETIR&quot; &#125;\n\n            *- Indice&#58; CPCodCli = Clientes Presupuestos Codigo del Cliente&#46;\n\n               INDEX FILE CPCodCli ;\n               TAG  Codigo        ;\n               ON   codigo          ;\n               EVAL &#40; lPrimerVez &#58;= TRUE, ;\n                   PorcentInd&#40; oDbfPresup, aoMeter&#91; 1 &#93; , ;\n                        anVal, acMensajes, aoSay &#41; &#41;  ;\n               OF   oDbfPresup\n\n            /* Indice&#58; CPPresup = Clientes Presupuestos \n                               Codigo del Cliente\n                               y Número de Presupuesto                      */\n\n               INDEX FILE CPPresup ;\n               TAG  Presupu      ;\n               ON   codigo + numpresupu   ;\n               EVAL &#40; lPrimerVez &#58;= TRUE   , ;\n                  PorcentInd&#40; oDbfPresup, aoMeter&#91; 2 &#93; &#41; &#41;  ;\n               OF   oDbfPresup\n\n            /* Indice&#58; CPPresuU = Clientes Presupuestos \n                                 Codigo del Cliente\n                                 y Número de Presupuesto \n                                 SIN REPETIR&#46;     */\n\n               INDEX FILE CPPresuU ;\n               TAG  PresupuU ;\n               ON   codigo + numpresupu UNIQUE ;\n               EVAL &#40; lPrimerVez &#58;= TRUE, ;\n                   PorcentInd&#40; oDbfPresup, aoMeter&#91; 3 &#93; &#41; &#41;  ;\n               OF   oDbfPresup\n             END DATABASE oDbfPresup\n\n     ACTIVATE DATABASE oDbfPresup // NORECYCLE\n\n     oDbfPresup&#58;Close&#40;&#41;\n\n RETURN NIL\n\n//-----------------------------------------------------------//\n\n*- Función&#58; PorcentInd&#46;\n\nSTATIC FUNCTION PorcentInd&#40; oDbf, oMeter, anVal, acMensajes, aoSay &#41;\n\n   *- Variables&#58; Locales&#46;\n\n      LOCAL nRegistro &#58;= 0\n\n   IF lPrimerVez\n      lPrimerVez    &#58;= FALSE\n\n      oMeter&#58;nTotal &#58;= oDbf&#58;LastRec&#40;&#41;\n\n      IF VALTYPE&#40; acMensajes &#41; = &quot;A&quot;\n         IF LEN&#40; acMensajes &#41; = 4\n            ASIZE&#40; acMensajes, 5 &#41;\n\n            acMensajes&#91; 5 &#93; &#58;= &quot;&quot;\n         ENDIF\n\n         AEVAL&#40; anVal, &#123; | elemento, n | anVal&#91; n &#93; &#58;= 0 &#125; &#41;\n         AEVAL&#40; aoSay, &#123; | elemento, n |                                                 ;\n                       aoSay&#91; n &#93;&#58;SetText&#40; OemToAnsi&#40; acMensajes&#91; n &#93; &#41; &#41;    , ;\n                       aoSay&#91; n &#93;&#58;Refresh&#40;&#41;                               &#125; &#41;\n      ENDIF\n   ENDIF\n\n   nRegistro &#58;= oDbf&#58;RecNo&#40;&#41;\n   oMeter&#58;Set&#40; nRegistro &#41;\n   SysRefresh&#40;&#41;\n\n   SI nRegistro = oMeter&#58;nTotal ENTONCES lPrimerVez &#58;= TRUE\nRETURN TRUE\n[/code:1anoq1fr]\n\n¿Por que?. ¿Le ha ocurrido alguien lo mismo?\n\nSaludos, José M','',0,'AIA=','1anoq1fr',1,1140730882,'',404,30,0),(8089,1906,3,455,0,'195.97.105.161',1140717083,1,0,1,1,1,0,'','','Dale,\n\nCUSTOMER.PRG that comes with FWH might help you...\n\nRegards\nEvans','',0,'AIA=','169xl5yy',1,0,'',455,0,0),(8090,1906,3,131,0,'83.57.112.201',1140717745,1,0,1,1,1,0,'','','You can use my FSDI class. Have a look at:\n<!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/000148.html\">http://www.avemundi.com/archivos/000148.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/000048.html\">http://www.avemundi.com/archivos/000048.html</a><!-- m -->\n\nRegards,','',0,'AIA=','2lmy6hhg',1,0,'',131,0,0),(8091,1918,6,453,0,'80.36.195.101',1140717837,1,0,1,1,1,0,'','PREVIEW. ERROR BASE/1079','Hola a todos.\n\nCuando trato de sacar un listado con la cláusula PREVIEW me lanza el siguiente error:\n\n  Error description: Error BASE/1079  Argument error: .OR.\n   Args:\n     [   1] = L   .F.\n     [   2] = U   \n\nSin embargo, si lo lanzo directamente a la impresora sale perfectamente. \n\nHe tratado de compilar el TESTRPT2 que hay en SAMPLES y también me da el mismo error.\n\nApplication\n===========\n   Path and name: E:\\FWH\\SAMPLES\\TESTRPT2.exe (32 bits)\n   Size: 1,079,296 bytes\n   Time from start: 0 hours 0 mins 7 secs \n   Error occurred at: 02/22/06, 18:17:04\n   Error description: Error BASE/1079  Argument error: .OR.\n   Args:\n     [   1] = L   .F.\n     [   2] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TWINDOW:ERASEBKGND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; SHOWWINDOW(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; RPREVIEW(0)\n   Called from:  =&gt; (b)NEW(0)\n   Called from:  =&gt; TREPORT:ACTIVATE(0)\n   Called from:  =&gt; MAIN(51)\n\nCómo se soluciona?\n\nGracias','',0,'','2et4g33s',1,0,'',453,0,0),(8092,1907,3,455,0,'195.97.105.161',1140722114,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:39xmx42z]In wbrowse.prg there is a single call to DrawHeader() function. Try to play with it.\n\nEMG[/quote:39xmx42z]\n\nEnrico hi,\nAny idea how I can add lines (horizontal separator lines, as in TWBROWSE() from record to record when browseing a single dimensional array ?\n\nRegards\nEvans','',0,'gA==','39xmx42z',1,0,'',455,0,0),(8093,1868,6,104,0,'201.58.56.170',1140722204,1,0,1,1,1,0,'','','Solucionado...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nObrigado a todos,\n\nRossine.','',0,'gA==','32oyv9rz',1,0,'',104,0,0),(8094,1919,6,228,0,'201.245.222.85',1140722214,1,0,1,1,1,1,'','Refrescar Dialogo?','Amigos del foro de nuevo yo...\n\nLo que sucede ahora es lo siguiente:\n\nDefino un dialogo , y en la clausula INIT coloco un procedimiento, ese procedimiento lo que hace es verificar la existencia de las bases de datos. Pero solamente me muestra el dialogo apenas termina el procedimiento. \n\nComo hago para que me muestre el dialogo y luego ejecue el procedimiento. \n\n[code:u2uumvfr]\n*************************************************************\n*cuadro de dialogo para verificación conexion con el servidor\n*************************************************************\nPROC Inicio&#40;&#41;\n\noT1vg1&#58;=space&#40;15&#41;\noT1vg2&#58;=space&#40;6&#41;\n\nDEFINE BRUSH oBrush RESOURCE &quot;INICIO&quot;\nDEFINE DIALOG oDlg RESOURCE &quot;Plano10&quot; TRANSPARENT BRUSH oBrush OF oWinp\n oProgress = TProgress&#40;&#41;&#58;Redefine&#40; 4001, oDlg &#41;\n REDEFINE SAY oT1os1 ID 15 OF oDlg UPDATE\n\n REDEFINE SAY oT1os2 ID 4002 OF oDlg\n REDEFINE SAY oT1os3 ID 4004 OF oDlg\n REDEFINE SAY oT1os4 ID 4005 OF oDlg\n\n REDEFINE SAY oT1os5 ID 4003 OF oDlg\n REDEFINE SAY oT1os6 ID 4007 OF oDlg\n\n REDEFINE GET oT1og1 VAR oT1vg1 ID 4006 OF oDlg\n REDEFINE GET oT1og2 VAR oT1vg2 ID 4008 OF oDlg\n\n REDEFINE BUTTONBMP BtnE ID 4009 OF oDlg ACTION pVerUsu&#40;&#41;\n REDEFINE BUTTONBMP BtnS ID 4010 OF oDlg ACTION &#40;oWinp&#58;End&#40;&#41;&#41;\n\n oProgress&#58;SetRange&#40; 0, 2 &#41;\n oProgress&#58;SetPos&#40; 0 &#41;\n BtnE&#58;Settext&#40;&quot;Entrar&quot;&#41;\n BtnS&#58;Settext&#40;&quot;Cancelar&quot;&#41;\n oT1og1&#58;bGotFocus&#58;=&#123;||oT1og1&#58;SelectAll&#40;&#41;&#125;\n oT1og2&#58;bGotFocus&#58;=&#123;||oT1og2&#58;SelectAll&#40;&#41;&#125;\n BtnE&#58;gotfocus&#40;&#41;\n\nACTIVATE DIALOG oDlg CENTERED VALID&#40;oLamcla&#58;vPPexit&#41; ON INIT &#40;oDlg&#58;gotfocus&#40;&#41;,verifica&#40;&#41;&#41;\n\nPROC verifica&#40;&#41;\n\noProgress&#58;SetRange&#40; 0, 2 &#41;\noProgress&#58;SetPos&#40; 0 &#41;\noLamcla&#58;vPPexit&#58;=&#46;F&#46;\n\noT1os2&#58;Settext&#40;&quot;HOSTING - Versión 0&#46;0&#46;1&quot;&#41;\noT1os3&#58;Settext&#40;&quot;Sistemas LYMA &quot;&#41;\noT1os4&#58;Settext&#40;&quot;Bogotá &#40;Colombia&#41; - Año 2006&quot;&#41;\n\n\noLamcla&#58;oServer &#58;= TMySQLServer&#40;&#41;&#58;New&#40; oLamcla&#58;cHost,oLamcla&#58;cUsuario,oLamcla&#58;cPassword&#41;\nIF oLamcla&#58;oServer&#58;NetErr&#40;&#41;\n  oT1os1&#58;Settext&#40;&quot;No se Puede Extablecer Comunicación Con el Servidor&quot;&#41;\n  MSGINFO&#40;&quot;No se PuedO Extablecer Comunicación Con el Servidor&quot;&#41;\n  QUIT\nELSE\n  oT1os1&#58;Settext&#40;&quot;Verificando Conexion con servidor&quot;&#41;\n  oProgress&#58;nPosition += 1\n  IF !&#40;oLamcla&#58;oServer&#58;DBExist&#40;oLamcla&#58;nDBdat&#41;&#41;\n    oT1os1&#58;Settext&#40;&quot;La base de Datos no existe&quot;&#41;\n    MSGINFO&#40;&quot;La base de datos no existe,&quot;+CRLF+&quot;por favor informe al administrador&#58; 6136913 Ext 114 &quot;+CRLF+&quot;Bogotá - Colombia&quot;&#41;\n    QUIT\n  ELSE\n    oProgress&#58;nPosition += 1\n    oT1os1&#58;Settext&#40;&quot;Fin del Proceso&quot;&#41;\n    oDlg&#58;update&#40;&#41;\n    muestra&#40;&#41;\n  ENDIF\n  oLamcla&#58;oServer&#58;SelectDB&#40; oLamcla&#58;nDBdat &#41;\nENDIF\n[/code:u2uumvfr]\n\nDe antemano gracias','',0,'AIA=','u2uumvfr',1,0,'',228,0,0),(8095,1763,2,228,0,'201.245.222.85',1140722477,1,0,1,1,1,1,'','No entendi?','Amigo, la verdad no entendi, lo que quieres si mandas algun pedazo de codigo?','',0,'AIA=','hppytu0x',1,0,'',228,0,0),(8096,1902,3,419,0,'198.54.202.210',1140725519,1,0,1,1,1,0,'','','Hi,\n\nJust tried using the File Time and no go i.e. on Novell Netware the Date and Time of a file only gets updated when that file is closed by the user that made the change (I have even tried - liberally - DBCOmmits() all over the place - no go.\n\nDoes anyone know of a function that will read a DBF header?  I mean the file header MUST contain some sort of information or other with regard to no of records, no of deleted records, and other info.\n\nIf it is possible to access this information then one could write their own sort of nDBFHeaderCRC( ) function or something like that.\n\nDale.','',0,'AIA=','223txcic',1,0,'',419,0,0),(8097,1920,6,104,0,'201.58.56.170',1140725633,1,0,1,1,1,0,'','Sombreamento de telas','Olá, \n\nAlguém sabe qual a propriedade do windows que faz com que a Window/Dialog atual fique Colorida e as telas por detras dela fiquem preto e branco, como no exemplo abaixo ?\n\n[img:orlio4mx]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/SOMBREADO&#46;PNG[/img:orlio4mx]\n\nObrigado,\n\nRossine.','',0,'CA==','orlio4mx',1,0,'',104,0,0),(8098,1907,3,6,0,'82.59.51.58',1140726154,1,0,1,1,1,1,'','','Have you tried oBrw:nLineStyle?\n\nEMG','',0,'CA==','2rtpssml',1,0,'',6,0,0),(8099,1921,6,439,0,'201.221.32.251',1140726218,1,0,1,1,1,0,'','Mensajes en español','Hola gente del foro, para variar una preguntita?\n\nyo usaba la clase btnget y he optado por reemplazar\nesa clase por un btnbmp y la función msgdate(), pero\nesta funcion me presenta el calendario en ingles y los\nmeses y todo en ingles, ya localice donde esta el fuente\npero quisiera saber si existe una manera de pasarlo a \nespañol como existia en clipper (compilando el obj msgspa)\ny así resolverlo en todas las funciones.','',0,'CA==','73xk8jqn',1,0,'',439,0,0),(8100,1918,6,2,0,'87.218.146.43',1140726236,1,0,1,1,1,1,'','','Ramón,\n\nEs un error que se ha colado en el build de Febrero de FWH. Para solucionarlo hay que modificar la Clase TSay en classes\\say.prg de la siguiente forma:\n[code:12tpnb5h]\nMETHOD EraseBkGnd&#40; hDC &#41; CLASS TSay\n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent\n      return 1\n   endif\n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41;\n[/code:12tpnb5h]\nRecompilas la clase y añades el OBJ resultante a los OBJs de tu aplicación. A comienzos de Marzo publicaremos un nuevo build que corrige este problema.','',0,'AIA=','12tpnb5h',1,0,'',2,0,0),(8101,1869,6,362,0,'200.168.52.156',1140726594,1,0,1,1,1,1,'','Re: SENSITIVE SAY EN WINDOWS XP TRABA DIALOG','[quote=&quot;karinha&quot;:breqox2e]Buenas...\n\nHola Foro.\n\nEstoy usando la Classe SSAY.PRG y SSAY.CH, y en Windows 98, está perfecto.\n\nTengo cincuenta Y uno(51) SAYS en la DIALOG, pero cuando intento COLORIR TODOS, TRABA MI DIALOG en WINDOWS XP.\n\nFiveWin 2.7 For [x]Harbour 0.99.60... Ke devo hacer??\n\nGracias, y un gran saludos a todos.[/quote:breqox2e]\n\nNecesito help... Por favor.','',0,'gA==','breqox2e',1,0,'',362,0,0),(8102,1917,3,6,0,'82.59.51.58',1140726684,1,0,1,1,1,1,'','Re: .DBT memo files','#include \"Dbinfo.ch\"\n\nRDDINFO( RDDI_MEMOTYPE, DB_MEMO_DBT )\n\nEMG','',0,'gA==','3mgjq5ai',1,0,'',6,0,0),(8103,1902,3,419,0,'196.25.255.210',1140726762,1,0,1,1,1,0,'','','OK, well I found out what the header holds and there is no time, only the date of the last update.\n\nThoughts?\n\nRegards,\n\nDale.','',0,'gA==','20bgo5yc',1,0,'',419,0,0),(8104,1921,6,2,0,'87.218.146.43',1140726825,1,0,1,1,1,1,'','','José,\n\nCitando a René:\n[code:2qy6medw]\n REQUEST HB_Lang_ES        // Para establecer idioma de Mensajes, fechas, etc&#46;&#46; \n  REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español &#40;Ordenación, etc&#46;&#46;&#41; \n  // Idioma por defecto&#58; Español&#46;&#46;&#46; \n  HB_LangSelect&#40;&quot;ES&quot;&#41;     // Para mensajes, fechas, etc&#46;&#46; \n  HB_SetCodePage&#40;&quot;ESWIN&quot;&#41; // Para ordenación &#40;arrays, cadenas, etc&#46;&#46;&#41; *Requiere CodePage&#46;lib\n[/code:2qy6medw]','',0,'AIA=','2qy6medw',1,0,'',2,0,0),(8105,1886,20,6,0,'82.59.51.58',1140726961,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:zhsayfxf]Prova PsPad, è un editor free, e compara files ed altro...[/quote:zhsayfxf]\n\nOppure questo:\n\n[url:zhsayfxf]http&#58;//www&#46;script-debugger&#46;com/products/filescomparer[/url:zhsayfxf]\n\nEMG','',0,'kA==','zhsayfxf',1,0,'',6,0,0),(8106,1869,6,2,0,'87.218.146.43',1140726978,1,0,1,1,1,1,'','','Rossine,\n\nHemos modificado las librerias FWH y ya está solucionado. Envíanos un email para que te las enviemos.','',0,'kA==','21mqrjmg',1,0,'',2,0,0),(8107,1915,20,6,0,'82.59.51.58',1140727138,1,0,1,1,1,1,'','Re: Verificare la presenza di Outlook','Usa la struttura TRY/CATCH/END per intercettare l\'errore di CreateObject().\n\nEMG','',0,'kA==','98nqux92',1,0,'',6,0,0),(8108,1902,3,6,0,'82.59.51.58',1140727766,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:25z2j87b]Just tried using the File Time and no go i.e. on Novell Netware the Date and Time of a file only gets updated when that file is closed by the user that made the change[/quote:25z2j87b]\n\nAre you sure? Have you really checked the file properties after a COMMIT?\n\nEMG','',0,'gA==','25z2j87b',1,0,'',6,0,0),(8109,1869,6,2,0,'87.218.146.43',1140729278,1,0,1,1,1,1,'','','Joao,\n\nAqui tienes un ejemplo con 100 SAYs normales funcionando ok:\n\n[url=http&#58;//imageshack&#46;us:12d9yn6d][img:12d9yn6d]http&#58;//img367&#46;imageshack&#46;us/img367/2827/beach2vv&#46;png[/img:12d9yn6d][/url:12d9yn6d]','',0,'GA==','12d9yn6d',1,1140729390,'',2,1,0),(8110,1869,6,104,0,'201.58.56.170',1140729367,1,0,1,1,1,0,'','','Mil Gracias Maestro  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  \n\nRossine.','',0,'GA==','1fenq3g7',1,0,'',104,0,0),(8113,1917,3,455,0,'195.97.105.161',1140730203,1,0,1,1,1,0,'','Re: .DBT memo files','[quote=&quot;EnricoMaria&quot;:3lq66ts6]#include \"Dbinfo.ch\"\n\nRDDINFO( RDDI_MEMOTYPE, DB_MEMO_DBT )\n\nEMG[/quote:3lq66ts6]\n\nThanks Enrico, it worked!\n\nKind regards\nEvans','',0,'gA==','3lq66ts6',1,0,'',455,0,0),(8114,1907,3,455,0,'195.97.105.161',1140730262,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:1k91pjbo]Have you tried oBrw:nLineStyle?\n\nEMG[/quote:1k91pjbo]\nThanks, I\'ll try it and will let you know!\n\nKind regards\nEvans','',0,'gA==','1k91pjbo',1,0,'',455,0,0),(8115,1917,3,6,0,'82.59.51.58',1140730582,1,0,1,1,1,1,'','Re: .DBT memo files','I saw the more complete Przemek\'s answer. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','2i3xmmxe',1,0,'',6,0,0),(8116,1902,3,419,0,'198.54.202.210',1140731021,1,0,1,1,1,0,'','','I just realised something (after posting two possible solutions, then realising that I was talking you know what, and deleting the supposed solutions).\n\nThe Novell Client software has a property called \'File Commit\' (or \'True Commit\' for the Windows 95/98 Client) and its description is as follows:\n\n\'Controls whether buffers flushed by an application are committed to disk on the server.  Setting this value to On will ensure data integrity at the expense of performance by ensuring file buffers are committed to disk on the server when an application flushes its file buffers.\'\n\nI will change and test in the morning and post results.\n\nRegards,\n\nDale.','',0,'gA==','1k9c8ep9',1,0,'',419,0,0),(8117,1918,6,453,0,'217.124.56.142',1140731337,1,0,1,1,1,0,'','','Gracias, Antonio\n\nSaludos','',0,'gA==','2gxocu6d',1,0,'',453,0,0),(8118,1907,3,455,0,'195.97.105.161',1140732157,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:cpfjpnfu]Have you tried oBrw:nLineStyle?\n\nEMG[/quote:cpfjpnfu]\n\nItried    oLbx:nLineStyle := LINES_GRAY\n     \nand here is the error...\n  \n Error description: Error BASE/1005  Message not found: \nTLISTBOX:_NLINESTYLE\n\nStack Calls\n===========\n   Called from:  =&gt; TLISTBOX:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TLISTBOX:MSGNOTFOUND(0)\n   Called from:  =&gt; TLISTBOX:_NLINESTYLE(167)','',0,'gA==','cpfjpnfu',1,0,'',455,0,0),(8119,1907,3,6,0,'82.59.51.58',1140732454,1,0,1,1,1,1,'','','[quote=&quot;E. Bartzokas&quot;:3ug8n2j2]Error description: Error BASE/1005  Message not found: TLISTBOX:_NLINESTYLE[/quote:3ug8n2j2]\n\nnLineStyle is an instance variable of TWBrowse not of TListBox.\n\nEMG','',0,'gA==','3ug8n2j2',1,0,'',6,0,0),(8120,1869,6,362,0,'200.168.52.156',1140733430,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1amz18mn]Joao,\n\nAqui tienes un ejemplo con 100 SAYs normales funcionando ok:\n\n[url=http&#58;//imageshack&#46;us:1amz18mn][img:1amz18mn]http&#58;//img367&#46;imageshack&#46;us/img367/2827/beach2vv&#46;png[/img:1amz18mn][/url:1amz18mn][/quote:1amz18mn]\n\nMaestro Antonio, no estoy usando Say\'s Normales, Estoy usando la Classe SSAY.PRG y SSAY.CH de R.Avendaño. \n\nCon say\'s Normales, mi funciona perfecto.\n\nO ke Intento, és usar SENSITIVE SAY... Envie Correo a Usted com mi DIALOG.\n\nTienes en la diagog:\n\n51 SAYS\n50 CHECKBOX\'s\n02 GET\'s\n02 BOTONES\n\nCompila perfecto, mas en la hora ke ejecuto, traba todo.\n.','',0,'mA==','1amz18mn',1,0,'',362,0,0),(8121,1920,6,28,0,'87.218.46.222',1140735538,1,0,1,1,1,0,'','','Hola\n\nSe puede hacer capturando el Desktop y convirtiendolo a gris con FreeImage, luego sacando una caja de diálogo por encima.\n\nEste es el código para los grises:\n\n[code:cdb818ns]\n#include &quot;fivewin&#46;ch&quot;\n\n#define CBM_INIT 4 &amp;&amp; should move to prg header\n#define DIB_RGB_COLORS 0 &amp;&amp; should move to prg header\n\nstatic hBmp\nstatic oWnd\nstatic hLib\n\nfunction main&#40;&#41;\n\nlocal oBrush\n\nhBmp &#58;= nil\n\nhLib &#58;= LoadLibrary&#40; &quot;freeimage&#46;dll&quot; &#41;\n\nDEFINE BRUSH oBrush STYLE &quot;NULL&quot;\n\nDEFINE WINDOW oWnd STYLE nOr&#40; WS_POPUP &#41; BRUSH oBrush\n\n\nACTIVATE WINDOW oWnd MAXIMIZED ON INIT Proceso&#40;&#41; ;\n         ON PAINT Pinta&#40; hDC &#41;\n\nFreeLibrary&#40; hLib &#41;\n\nDeleteObject&#40; hBmp &#41;\n\n\nreturn nil\n\n\n\nfunction Proceso&#40;&#41;\n\nlocal hDib\nlocal hInfoH, hBits, hInfo\nlocal hWnd, hDC\n\n// se puede hacer mas elegante pero esto es mas fácil\nDibWrite&#40; &quot;screen&#46;bmp&quot;,  DibFromBitmap&#40; WndBitmap&#40; oWnd&#58;hWnd &#41;&#41;&#41;\n\nhDib    &#58;= fiLoad&#40; 0, &quot;screen&#46;bmp&quot;, 0 &#41;\nhDib    &#58;= FI_2GREY&#40; hDib &#41;\n\n   hInfoH    &#58;= fiGetInfoHeader&#40; hDib &#41;\n   hInfo     &#58;= fiGetInfo&#40; hDib &#41;\n   hBits     &#58;= fiGetBits&#40; hDib &#41;\n\n   hWnd      &#58;= oWnd&#58;hWnd\n\n   hDC       &#58;= oWnd&#58;GetDC&#40;&#41;\n   hBmp      &#58;= CreateDIBitmap&#40; hDC, hInfoH, CBM_INIT, hBits, hInfo,DIB_RGB_COLORS &#41;\n\n   oWnd&#58;ReleaseDC&#40;&#41;\n\n\noWnd&#58;Refresh&#40;&#41;\nreturn nil\n\n\nfunction pinta&#40; hDC &#41;\n\nif hBmp != nil\n   DrawBitmap&#40; hDC, hBmp, 0, 0 &#41;\nendif\nreturn nil\n\n\n\n\n\n\nDLL32 STATIC FUNCTION FI_2GREY&#40; hDib AS LONG &#41; AS LONG;\nPASCAL FROM &quot;_FreeImage_ConvertToGreyscale@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FILOAD&#40; nFormat AS LONG, cFileName AS LPSTR,nFlags AS LONG &#41; AS LONG;\nPASCAL FROM &quot;_FreeImage_Load@12&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETINFOHEADER&#40; hDib AS LONG &#41; AS LONG;\nPASCAL FROM &quot;_FreeImage_GetInfoHeader@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETINFO&#40; hDib AS LONG &#41; AS LONG;\nPASCAL FROM &quot;_FreeImage_GetInfo@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETBITS&#40; hDib AS LONG &#41; AS LONG;\nPASCAL FROM &quot;_FreeImage_GetBits@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION CREATEDIBITMAP&#40; hDC AS LONG, hInfoH AS LONG,nFlags AS LONG, hBits AS LONG, hInfo AS LONG, nUsage AS LONG &#41; AS LONG;\nPASCAL FROM &quot;CreateDIBitmap&quot; LIB &quot;gdi32&#46;dll&quot;\n\n[/code:cdb818ns]\n\nUn saludo.\n\nPaco Garcia','',0,'AIA=','cdb818ns',1,0,'',28,0,0),(8122,1911,6,28,0,'87.218.46.222',1140735967,1,0,1,1,1,0,'','','Hola Rafael\n\n[code:22g2v3oo]\n\nfunction analiza&#40; hDC, hBmp &#41;\n\nlocal hDCMem &#58;= CreateCompatibleDC&#40; hDC &#41;\nlocal hOldBmp &#58;= SelectObject&#40; hDCMem, hBmp &#41; \nlocal x &#58;= 1\nlocal y &#58;= 1\nlocal nColor\n\nnColor &#58;= GetPixel&#40; hDCMem, x, y &#41; //a tutipleni\n\nSelectObject&#40; hDCMem, hOldBmp &#41;\nDeleteDC&#40; hDCMem &#41;\n\nreturn nil\n\n\n#pragma BEGINDUMP\n#include &lt;windows&#46;h&gt;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; CREATECOMPATIBLEDC &#41;\n&#123;\n         hb_retnl&#40; &#40;LONG&#41; CreateCompatibleDC&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;&#41;&#41;;\n\n&#125;\n#pragma ENDDUMP\n\n\n[/code:22g2v3oo]\n\nUn saludo','',0,'AIA=','22g2v3oo',1,0,'',28,0,0),(8123,1920,6,28,0,'87.218.46.222',1140736328,1,0,1,1,1,0,'','','Si quieres convertir a grises un bitmap mas pequeño, esto te valdría:\n\n[code:2vulfyzn]\n\n#include &quot;fivewin&#46;ch&quot;\n#define ROSA rgb&#40;255,0,255&#41;\n\nfunction main&#40;&#41;\n\nlocal o\n\nDEFINE WINDOW o TITLE &quot;Convertir a Escala de grises&quot;\n\n\nACTIVATE WINDOW o ON PAINT Pinta&#40; hDC &#41;\n\nreturn nil\n\n\n\nfunction pinta&#40; hDC &#41;\nlocal hDCMem &#58;= CreateCompatibleDC&#40; hDC &#41;\nlocal hBmpMem, hOldBmp\nlocal hIcon\nlocal nTop, nLeft\nlocal nColor\nlocal nRojo, nVerde, nAzul\n\n\nhBmpMem &#58;= CreateCompatibleBitmap&#40; hDC, 34, 34 &#41;\nhOldBmp &#58;= SelectObject&#40; hDCMem, hBmpMem &#41;\nFillSolidRect&#40; hDCMem, &#123;0,0,34,34&#125;, ROSA &#41;\nhIcon &#58;= ExtractIcon&#40; &quot;FauxS-XP&#46;ico&quot;&#41; // Cualquiera vale\nDrawIcon&#40; hDCMem, 1, 1, hIcon &#41;\n\nfor nTop &#58;= 1 to 32\n    for nLeft &#58;= 1 to 32\n        nColor &#58;= GetPixel&#40; hDCMem, nTop, nLeft &#41;\n        if nColor == ROSA\n           loop\n        endif\n        nRojo  &#58;= GetRValue&#40; nColor &#41;\n        nVerde &#58;= GetGValue&#40; nColor &#41;\n        nAzul  &#58;= GetBValue&#40; nColor &#41;\n        nColor &#58;= Int&#40;nRojo*0&#46;3 + nVerde*0&#46;59 + nAzul*0&#46;11&#41;\n        SetPixel&#40; hDCMem, nTop, nLeft, rgb&#40; nColor, nColor, nColor&#41; &#41;\n    next\nnext\n\nSelectObject&#40; hDCMem, hOldBmp &#41;\n\nDrawMasked&#40; hDC, hBmpMem, 10, 50 &#41;\nDrawIcon&#40; hDC, 10, 10, hICon &#41;\nDeleteObject&#40; hBmpMem &#41;\nDeleteDC&#40; hDCMem &#41;\nDestroyIcon&#40; hICon &#41;\n\nreturn nil\n\n\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;winuser&#46;h&gt;\n#include &lt;wingdi&#46;h&gt;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; CREATECOMPATIBLEBITMAP &#41;\n&#123;\n	 hb_retnl&#40; &#40;LONG&#41; CreateCompatibleBitmap&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parni&#40; 3 &#41; &#41;&#41;;\n\n&#125;\n\nHB_FUNC&#40; CREATECOMPATIBLEDC &#41;\n&#123;\n	 hb_retnl&#40; &#40;LONG&#41; CreateCompatibleDC&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;&#41;&#41;;\n\n&#125;\n\nvoid FillSolidRectEx&#40; HDC hDC, RECT *rct, COLORREF nColor &#41;\n&#123;\n    nColor = SetBkColor&#40; hDC , nColor &#41;;\n    ExtTextOut&#40; hDC, 0, 0, ETO_OPAQUE, rct, NULL, 0, NULL&#41;;\n    SetBkColor&#40; hDC, nColor &#41;;\n&#125;\n\n\n\nHB_FUNC&#40; FILLSOLIDRECT &#41;\n&#123;\n    RECT rct;\n    COLORREF nColor = hb_parnl&#40; 3 &#41;;\n    rct&#46;top    = hb_parni&#40; 2, 1 &#41;;\n    rct&#46;left   = hb_parni&#40; 2, 2 &#41;;\n    rct&#46;bottom = hb_parni&#40; 2, 3 &#41;;\n    rct&#46;right  = hb_parni&#40; 2, 4 &#41;;\n\n    FillSolidRectEx&#40; &#40;HDC&#41; hb_parnl&#40; 1 &#41;, &amp;rct, nColor &#41;;\n&#125;\n\n\n#pragma ENDDUMP\n\n\n\nstatic function GetRValue&#40; nRGB &#41;\nreturn nLoByte&#40; nLoWord&#40; nRGB &#41; &#41;\n\nstatic function GetGValue&#40; nRGB &#41;\nreturn nHiByte&#40; nLoWord&#40; nRGB &#41; &#41;\n\nstatic function GetBValue&#40; nRGB &#41;\nreturn nLoByte&#40; nHiWord&#40; nRGB &#41; &#41;\n\n[/code:2vulfyzn]\n\nUn saludo\n\nPaco Garcia','',0,'AIA=','2vulfyzn',1,0,'',28,0,0),(8124,1916,3,2,0,'87.218.146.43',1140736403,1,0,1,1,1,1,'','','Evans,\n\nIt may be a problem with the email server. Please cc to <!-- e --><a href=\"mailto:fivetech@gmail.com\">fivetech@gmail.com</a><!-- e -->, thanks','',0,'AIA=','2lb418qg',1,0,'',2,0,0),(8125,1922,4,28,0,'87.218.46.222',1140736558,1,0,1,1,1,0,'','TClock ready','[url:184s07u5]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1910[/url:184s07u5]\n\nHello \n\nThere are a TClock version for FWPPC.\n\nA greeting\n\nPaco Garcia\n\n[img:184s07u5]http&#58;//www&#46;arrakis&#46;es/~canal_five/Reloj&#46;jpg[/img:184s07u5]','',0,'GA==','184s07u5',1,0,'',28,0,0),(8126,1901,3,2,0,'87.218.146.43',1140737129,1,0,1,1,1,1,'','','Dale,\n\nThat sample was specifically designed for FW 16 bits.\n\nHere you have it for FWH:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/6a4f0990/insptest.zip.html\">http://hyperupload.com/download/6a4f099 ... t.zip.html</a><!-- m -->','',0,'GA==','2ynhuh04',1,0,'',2,0,0),(8127,1906,3,303,0,'68.7.28.54',1140737806,1,0,1,1,1,0,'','','[quote:1kjd9ajs]\"dpaterso\"]OK - well maybe (you really are a man of few words)![/quote:1kjd9ajs]\n\nSorry, I needed some sleep.\n\n[quote:1kjd9ajs]But MDI or SDI it still does not solve my \'how to\' have a dialog box with Gets, and Browses with inline input (or something).[/quote:1kjd9ajs]\n\nWell, I am not sure exactly what your \'how to\' is. I use a browse in one pane of the SDI interface and the user double-clicks on a record to get an edit dialog. I don\'t know what you mean by \"inline input.\"\n\n[quote:1kjd9ajs]But let me think about the logic of what I am trying to do and when I get there maybe you can be of help.[/quote:1kjd9ajs]\n\nI [b:1kjd9ajs]highly [/b:1kjd9ajs]recommend getting a copy of Alan Cooper\'s book \"About Face 2.0, The Essentials of Interaction Design.\" This will help a lot. \n\nRegards,\nJames','',0,'wA==','1kjd9ajs',1,0,'',303,0,0),(8128,1923,19,2,0,'87.218.146.43',1140738611,1,0,1,1,1,1,'','New Windows Vista build 5308 - 22 Feb 2006','<!-- m --><a class=\"postlink\" href=\"http://www.eweek.com/article2/0,1895,1930314,00.asp\">http://www.eweek.com/article2/0,1895,1930314,00.asp</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.eweek.com/article2/0,1895,1930303,00.asp\">http://www.eweek.com/article2/0,1895,1930303,00.asp</a><!-- m -->','',0,'wA==','23d1xviq',1,0,'',2,0,0),(8129,1924,16,2,0,'87.218.146.43',1140743935,1,0,1,1,1,1,'','New FWPPC build with dialogboxes from source code creation!','There is a new FWPPC build with dialogboxes from source code creation support (without using resources). You may already download it. Please review samples\\TestDlg.prg sample. Warning: FWCE.ch has changed.\n[code:2zx08y0l]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cText &#58;= &quot;Hello world!   &quot;\n\n   DEFINE DIALOG oDlg TITLE &quot;Source code Dialog&quot; ;\n      SIZE 200, 100\n   \n   @ 0&#46;7, 2 SAY &quot;Name&#58;&quot; SIZE 18, 10\n   \n   @ 1, 4 GET cText SIZE 50, 10\n   \n   @ 1&#46;8, 6 BUTTON &quot;End&quot; ACTION oDlg&#58;End&#40;&#41; SIZE 30, 10\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41; ;\n      VALID MsgYesNo&#40; &quot;want to end ?&quot; &#41;\n   \nreturn nil\n[/code:2zx08y0l]\n[url=http&#58;//imageshack&#46;us:2zx08y0l][img:2zx08y0l]http&#58;//img147&#46;imageshack&#46;us/img147/7258/dialog5cm&#46;png[/img:2zx08y0l][/url:2zx08y0l]','',0,'GIA=','2zx08y0l',1,0,'',2,0,0),(8130,1925,4,2,0,'87.218.146.43',1140744357,1,0,1,1,1,1,'','New FWPPC build with dialogboxes source code creation','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1924\">http://fivetechsoft.com/forums/viewtopic.php?t=1924</a><!-- m -->','',0,'GIA=','zyf5y5lb',1,0,'',2,0,0),(8131,1926,7,2,0,'87.218.146.43',1140744503,1,0,1,1,1,1,'','Nuevo build de FWPPC con creación de diálogos desde PRG!','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1924\">http://fivetechsoft.com/forums/viewtopic.php?t=1924</a><!-- m -->','',0,'GIA=','3lxtmdl2',1,0,'',2,0,0),(8132,1899,6,295,0,'201.222.158.205',1140745931,1,0,1,1,1,1,'','','Antonio:\n\nProbé compilando con HARBOUR el tutor07.prg que viene con FWH y también ocurre el mismo error\n\naqui está el codigo y el error a continuacion \n\nfunction Customers()\n\n   local oDlg\n   local cNombre    := \"\"\n   local cDireccion := \"\"\n   local getNombre, getDireccion\n\n   if ! File( \"clientes.dbf\" )\n      DbCreate( \"Clientes.dbf\", { { \"Nombre\",    \"C\", 40, 0 },;\n                                  { \"Direccion\", \"C\", 50, 0 },;\n                                  { \"Telefono\",  \"C\", 12, 0 },;\n                                  { \"Edad\",      \"N\",  2, 0 },;\n                                  { \"Productos\", \"C\", 10, 0 },;\n                                  { \"Nivel\",     \"N\",  2, 0 } } )\n   endif\n\n   USE Clientes\n\n   if RecCount() == 0\n      APPEND BLANK\n   endif\n   INDEX ON Clientes-&gt;Nombre TO CliNombr\n   SET INDEX TO CliNombr\n	 clientes-&gt;(dbclosearea())\n\n	 USE CLIENTES NEW SHARED ALIAS CLI\nlinea 98--&gt; SET INDEX TO CLINOMBR\n\nApplication\n===========\n   Path and name: C:\\FWH\\SAMPLES\\tutor07.exe (32 bits)\n   Size: 1,022,976 bytes\n   Time from start: 0 hours 0 mins 5 secs \n   Error occurred at: 02/23/06, 22:23:41\n   Error description: Error BASE/1002  Alias does not exist: CLIENTES\n\nStack Calls\n===========\n   Called from:  =&gt; ORDLISTADD(0)\n   Called from:  =&gt; CUSTOMERS(98) \n   Called from:  =&gt; (b)BUILDMENU(46)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(18)\n\nSALUDOS','',0,'GIA=','12ikg76j',1,0,'',295,0,0),(8133,1864,3,303,0,'68.7.28.54',1140748672,1,0,1,1,1,0,'','','Milan,\n\nI am sending you an email. Please check for it.\n\nJames','',0,'GIA=','12bd9epi',1,0,'',303,0,0),(8134,1906,3,419,0,'198.54.202.194',1140759124,1,0,1,1,1,0,'','','Good Morning,\n\n[quote:3lsua22a]I don\'t know what you mean by \"inline input.\"[/quote:3lsua22a]\n\nBy \'inline input\' I mean entering data directly into the cells of a TWBrowse (FWH ONLY) i.e. Get first cell data, validate etc., move on to next, validate etc., and so on and so forth.\n\nI did start testing with this but have not gotten down to it seriously (it kept coming up with array bounding errors and I know I have to do a lot of work to get my head around the input validations).\n\nRegards,\n\nDale.','',0,'gA==','3lsua22a',1,0,'',419,0,0),(8135,1902,3,419,0,'196.25.255.210',1140760432,1,0,1,1,1,0,'','','Good Morning All,\n\nWell - that is the problem - and something interesting for all Novell fans (although we are a dying breed).\n\nIf the Novell Client Software (or Shell) has \'File Commit\' (2000/XP) or \'True Commit\' (95/98/ME) turned off (in Advanced Settings) DBCommit( ) and DBCommitAll( ) have no effect (and I can only assume that data is held in one of the many Novell I/O buffers until they reach a certain threshhold).\n\n\'File Commit\' (2000/XP) or \'True Commit\' (95/98/ME) must be turned on and your data is then immediately written to disk (obviously at the expense of network access time).\n\nI am now wondering if any of the Windows Server Products have this type of option.\n\nRegards,\n\nDale.','',0,'gA==','1zqq9jup',1,0,'',419,0,0),(8136,1906,3,303,0,'68.7.28.54',1140765095,1,0,1,1,1,0,'','','Dale,\n\n[quote:1q7n431u]By \'inline input\' I mean entering data directly into the cells of a TWBrowse (FWH ONLY) i.e. Get first cell data, validate etc., move on to next, validate etc., and so on and so forth. [/quote:1q7n431u]\n\nI have only used that in rare instances. Usually, there are too many fields to display on the screen without scrolling horizontally. If the user has to to that, then you making them work harder than just using a dialog. Dialogs are built for data entry and validation and you have room for prompts, groups, folders, etc. So, I recommend using dialogs most of the time.\n\nAnd, you probably don\'t want to get me started on validation...\n\nJames','',0,'gA==','1q7n431u',1,0,'',303,0,0),(8137,1864,3,160,0,'210.212.142.91',1140765465,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:15g7ciwu]Milan,\n\nI am sending you an email. Please check for it.\n\nJames[/quote:15g7ciwu]\n\nDear James,\n\nThe problem of using DBCOMBO on numberic item field still persist. All other problems including incremental search are solved.\n\nFor Numeric item field : following is my code snippet :\n REDEFINE DBCOMBO oVno VAR nVno ID CBNAME OF oDlg\n\n   oVno:SetItems (aItemVno, aListName)\n\nBoth aItemVno, aListName are not char array, still the value being returned is Numeric i.e. from Database.\n\nCan you look into the matter ?\n\nTIA\nMilan.','',0,'gA==','15g7ciwu',1,0,'',160,0,0),(8138,1864,3,303,0,'68.7.28.54',1140766805,1,0,1,1,1,0,'','','Milan,\n\nI did not attempt to modify DBCombo to handle numeric data. This will take considerable work and testing. DBCombo is a subclass of Combobox and Combobox cannot handle numeric data, so I\'m not sure it can be done without creating a completely new control.\n\nSo, the best way for you is to load the two arrays, converting the item data to character when putting it into the array. You will also have to convert your nVno to cVno when going in and from cVno to nVno afterward.\n\nJames','',0,'gA==','s1eof95h',1,0,'',303,0,0),(8139,1924,16,6,0,'82.61.28.9',1140767391,1,0,1,1,1,1,'','Re: New FWPPC build with dialogboxes from source code creati','Great!\n\nEMG','',0,'gA==','34bafxjs',1,0,'',6,0,0),(8140,1906,3,419,0,'196.25.255.210',1140767443,1,0,1,1,1,0,'','','Hello,\n\nActually - I wouldn\'t mind at all.\n\nI\'m actually not really very good at \'thinking out of the box\' so your opinions count for much.\n\nAs far as the \'inline editing\' is concerned there are very many extremely popular accounting packages here (one in particular has market share) and they all use this sort of \'Excel\' style input.\n\nThe most popular one of them all actually displays the entire document on the screen EXACTLY as it will print - company logo, headings, colors, lines, EVERYTHING - and all the user has to do is enter the documents details.  Kind of WYSIWYG mode - and this has definitely been a strong demo or selling point of the system i.e. it looks impressive although because of the Windows Printing System actually getting on the paper what you saw on the screen can be a nightmare with all the different printers around.\n\nWhether or not this is really the way to go I just do not know (just from a design perspective).\n\nMe personally - dot matrix printing, old line by line data input, z.zz..zzz.. Ouch!  Stop Dreaming!\n\nHave to move on, have to!\n\nDale.','',0,'gA==','394ypjvn',1,0,'',419,0,0),(8141,1911,6,63,0,'80.37.102.128',1140767849,1,0,1,1,1,0,'','','Paco:\nMuchas gracias por tu idea. La he probado así:\n[code:12j29uk8]\nMETHOD Analiza&#40;oImage&#41;\nLOCAL hBmp   &#58;= oImage&#58;hWnd\nLOCAL hDc    &#58;= GetDc&#40;hBmp&#41;\nlocal hDCMem &#58;= CreateCompatibleDC&#40; hDC &#41;\nlocal hOldBmp&#58;= SelectObject&#40; hDCMem, hBmp &#41;\nlocal nX9 &#58;= oImage&#58;nWidth\nlocal nY9 &#58;= oImage&#58;nHeight\nlocal x, y, p\n\nFOR y &#58;= 0 TO nY9\n    cLin &#58;= &quot;&quot;\n    FOR x &#58;= 0 TO nX9\n        p &#58;= GetPixel&#40;hDcMem, x, y&#41;\n        cLin += ALLTRIM&#40;STR&#40;p&#41;&#41;\n    NEXT\n    ? cLin\nNEXT\nSelectObject&#40; hDCMem, hOldBmp &#41;\nDeleteDC&#40; hDCMem &#41;\nRETURN NIL\n\n#pragma BEGINDUMP \n&#46;&#46;&#46;&#46;\n#pragma ENDDUMP\n[/code:12j29uk8]\n\ny para todos los pixels me devuelve blanco (cLin = \"-1-1-1-1-1-1-1-1...\")\n¿Se te ocurre qué estoy haciendo mal?\nRafael','',0,'AIA=','12j29uk8',1,0,'',63,0,0),(8142,1926,7,449,0,'212.64.224.250',1140767999,1,0,1,1,1,0,'','','Bien ! -&gt; Era necesario \n\nSaludos.\nC.','',0,'AIA=','1gvm2m5m',1,0,'',449,0,0),(8143,1864,3,160,0,'210.212.142.91',1140768058,1,0,1,1,1,0,'','','So, the best way for you is to load the two arrays, converting the item data to character when putting it into the array. You will also have to convert your nVno to cVno when going in and from cVno to nVno afterward.\n\nDear James,\n\nWhat I am trying to point out is that it does not work as you suggest. I loaded two arrays with character value as follows :\n    Select Resident\n   Set ORDER TO TAG Name\n   GO TOP\n   DO WHILE !Eof()\n      AAdd (aListName, NAME)\n      AAdd (aItemVno, Str(VNO,5))\n      SKIP\n   ENDDO\n\nand thereafter issuing following commands :\n   REDEFINE DBCOMBO oVno VAR cVno ID CBNAME OF oDlg\n\n   oVno:SetItems (aItemVno, aListName)\n\nStill the value being returned by cVno is still nueric (i.e. from database) and wrong one also. Am I still missing something ?\n\nTIA\nMilan.','',0,'AIA=','3p5n4a9b',1,0,'',160,0,0),(8144,1906,3,303,0,'68.7.28.54',1140769503,1,0,1,1,1,0,'','','Dale,\n\nI will consider writing something up on validation. You can get a lot of this from Alan Cooper\'s book.\n\nAs exepected, Exel style will be liked by accountants, because they are used to it. That doesn\'t make it the best method of collecting data.\n\nThe basic concepts of good interface design are that less is more, and we have to help the user reach their goals. No matter how cool the interface is, less of it would be better. I. E. the less the user has to do to reach their goal the better. Things like manipulating windows are mere overhead and don\'t get the user any closer to their goals.\n\nWe also have to be careful about assuming what the user\'s goals are. Many user\'s goals are things like, don\'t look stupid, have some fun, work less, etc. They may not be the business goals that you might think they would be. The trick is to accomplish both.\n\nWYSIWYG screens may be flashy but they also may present more overhead work for the user. For some unknown reason, computer monitors are in landscape mode and paper is in portrait. Thus, to replicate paper on screen you must force the user to do a lot of scrolling--more unnecessary overhead.\n\nIdeally, we should be coaxing our users to get away from using paper anyway. I know it is not an easy road.\n\nDid you read the article titled \"Magic and Software Design,\" that I posted a link to a week or so ago? It is a good read and will help get you thinking outside the box.\n\nJames','',0,'AIA=','nbrycl4l',1,0,'',303,0,0),(8145,1864,3,303,0,'68.7.28.54',1140769962,1,0,1,1,1,0,'','','Milan,\n\n[quote:2c7c6jad]Still the value being returned by cVno is still nueric (i.e. from database) and wrong one also. Am I still missing something ? [/quote:2c7c6jad]\n\nOK, now I understand, but it is working for me. I have done some more testing since my last message and I did note that you can pass numerics in aItems and it will return a number, but the number appears to be the location in the array not the value. [This leads me to believe that there may be some hope in using numerics.]\n\nAre you sure you passed characters in the aItems array? If so, can you send me a small, self-contained example showing the problem?\n\nWhat version of FWH and (x)Harbour are you using?\n\nJames','',0,'gA==','2c7c6jad',1,0,'',303,0,0),(8146,1864,3,303,0,'68.7.28.54',1140770435,1,0,1,1,1,0,'','','Milan,\n\nOK, I think I have found what you are doing. You are using a numeic as the var cVno. \n\nREDEFINE DBCOMBO oVno VAR cVno ID CBNAME OF oDlg \n\nIf you pass cVno as a numeric then it is returned as a numeric (but as you stated, not the correct value). Try passing it as a character and it will be returned as a character. Then you have to convert it back to numeric before saving it to your database.\n\nI will take another look to see if I can modify dbcombo so we can use numerics too.\nJames','',0,'gA==','2zpq4cyh',1,1140771556,'',303,1,0),(8147,1864,3,303,0,'68.7.28.54',1140771521,1,0,1,1,1,0,'','','Milan,\n\nI think I have the solution. See your email.\n\nJames','',0,'gA==','3u7loovq',1,0,'',303,0,0),(8148,1927,3,22,0,'213.82.231.129',1140772312,1,0,1,1,1,0,'','SetFocus problem','With this little example you can see that if I push \"OK\" button with mouse all works, if I push \"ALT O\" on keyboard all works, if I focus on \"OK\" and push \"SPACE BAR\" all works, but if I push \"RETURN\", focus goes on next control instead in \"address\".\nI have FWH 2.7 feb 2006 \n\nThank in advance\nGianni\n\n[code:nd6hgqy3]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n   local oDlg\n   local lFivePro  &#58;= &#46;T&#46;\n   local lDialog   &#58;= &#46;T&#46;\n   local lObjects  &#58;= &#46;F&#46;\n   local nNivel    &#58;= 1\n   local cName     &#58;= SPACE&#40; 10 &#41;\n   local cAddress  &#58;= SPACE&#40; 30 &#41;\n   local oBtn, oGet1, oGet2\n\n   DEFINE DIALOG oDlg FROM 8, 2 TO 25, 50 TITLE &quot;SetFocus test&quot;\n\n   @ 1,  1 SAY &quot;&amp;Name&#58;&quot; OF oDlg\n   @ 1,  6 GET oGet1 VAR cName OF oDlg\n   @ 2,  1 SAY &quot;&amp;Address&#58;&quot; OF oDlg\n   @ 2,  6 GET oGet2 VAR cAddress OF oDlg\n\n   @ 3,  1 TO 7, 8 LABEL &quot;&amp;Products&quot; OF oDlg\n   @ 4,  2 CHECKBOX lFivePro PROMPT &quot;&amp;FivePro&quot; OF oDlg\n   @ 5,  2 CHECKBOX lDialog  PROMPT &quot;&amp;Dialog&quot;  OF oDlg\n   @ 6,  2 CHECKBOX lObjects PROMPT &quot;O&amp;bjects&quot; OF oDlg\n\n   @ 3,  9 TO 7, 17 LABEL &quot;&amp;Nivel&quot; OF oDlg\n   @ 4,  9 RADIO nNivel PROMPT &quot;&amp;Novice&quot;, &quot;A&amp;vanced&quot;, &quot;&amp;Expert&quot; OF oDlg\n\n   @ 6,  3 BUTTON oBtn PROMPT &quot;&amp;Ok&quot;  OF oDlg SIZE 50, 12 ACTION &#40;oGet2&#58;ctext&#40;&quot;OK ACTION RUN ON &quot; + TIME&#40;&#41;&#41;,oGet2&#58;SetFocus&#40;&#41;&#41; DEFAULT\n\n   @ 6, 15 BUTTON &quot;&amp;Cancel&quot; OF oDlg SIZE 50, 12 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:nd6hgqy3]','',0,'AIA=','nd6hgqy3',1,0,'',22,0,0),(8149,1899,6,2,0,'87.218.146.43',1140772329,1,0,1,1,1,1,'','','Luis,\n\nGracias. Vamos a reportarlo en la lista de correo de Harbour.\n\nPor favor publícalo en news.xharbour.org. Gracias.','',0,'AIA=','pij1v0lf',1,0,'',2,0,0),(8150,1919,6,2,0,'87.218.146.43',1140772632,1,0,1,1,1,1,'','','Leandro,\n\nEn vez de usar ON INIT, usa el codeblock oDlg:bStart\n[code:17ot4pep]\nDEFINE DIALOG oDlg &#46;&#46;&#46;\n\noDlg&#58;bStart = &#123; || tu código&#46;&#46;&#46; &#125;\n\nACTIVATE DIALOG oDlg\n[/code:17ot4pep]','',0,'AIA=','17ot4pep',1,0,'',2,0,0),(8151,1928,3,67,0,'62.235.24.147',1140773224,1,0,1,1,1,0,'','Xbrowse , bPastEof()','Hello,\n\nUsing xbrowse , i have problems with bPasteof() when the verical scroll bar is used .\n\nThis bar can be used to scroll trough the database , and to put the record pointer on the last row.\n\nNow we can append with :\n\n1) Pressing Key Down : ok it works\n\n2) Clicking on the bottom from the vertical scroll bar\n\n     WE BECOME A LOOPING FROM EXECUTING bPAstEof !!!!!!!!!!!!\n\nIn testxbrw.prg , i changed :\n\nSTATIC FUNCTION AutoEdit( oWnd )\n\n   local oChild, oBrw, oCol\n   local nFor\n\n   DEFINE WINDOW oChild TITLE \"Auto edit browse\" MDICHILD OF oWnd\n\n   oBrw := TXBrowse():New( oWnd )\n\n   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n   oBrw:nColDividerStyle    := LINESTYLE_BLACK\n   oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n   oBrw:lColDividerComplete := .t.\n\n   oBrw:SetRDD()\n\n   for nFor := 1 to len( oBrw:aCols )\n      oCol := oBrw:aCols[ nFor ]\n      oCol:nEditType := 1\n      oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) }\n   next\n\n   oBrw:CreateFromCode()\n   oChild:oClient := oBrw\n\n    oBrw:bPastEof() := {||msginfo(\"APND\")}  // ADDED !!!!!!!!!!!!\n\n   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()\n\nRETURN NIL\n\n\nCAN IT BE CONFIRMED ???????\n\n\nFrank','',0,'','fpuukdc0',1,0,'',67,0,0),(8153,1911,6,28,0,'213.27.201.254',1140774686,1,0,1,1,1,0,'','','Hola\n\nCódigo: \n\nMETHOD Analiza(oImage) \nLOCAL hBmp   := oImage:hWnd \nLOCAL hDc    := GetDc(hBmp) \nlocal hDCMem := CreateCompatibleDC( hDC ) \nlocal hOldBmp:= SelectObject( hDCMem, hBmp ) &lt;&lt; oImage:hBmp\nlocal nX9 := oImage:nWidth','',0,'','14ukvebm',1,0,'',28,0,0),(8154,1906,3,80,0,'202.72.164.124',1140775151,1,0,1,1,1,0,'','','Dale \n\nI use Hernan\'s twbrowse and use in line data entry - with\nvalidation on each cell if required.\n\noLbx5:bKeyChar := {|nKey| iif(nKey == VK_RETURN,EditLab(oLbx5:nColAct,oLbx5,oTmsht,oLbx1,oTmsht:keyno()),)}\n\n oLbx5:lCellStyle = TRUE\n oLbx5:lAutoEdit  = TRUE\n oLbx5:lAutoSkip  = TRUE\n\nstatic function EditLab(nCol,oLbx5,oTmsht,oLbx1,nRow)\nlocal nNrml := oTmsht:chrg_nml,nTmHlf := oTmsht:chrg_ot,nDble := oTmsht:chrg_dbl\n\nif nCol == 1\n   oLbx5:lEditCol(nCol,@nNrml,\'99.99\',,CLR_WHITE,CLR_RED,,)\n   oTmsht:chrg_nml := nNrml\n   oTmsht:save()\nendif\nif nCol == 2\n   oLbx5:lEditCol(nCol,@nTmHlf,\'99.99\',,CLR_WHITE,CLR_RED,,)\n   oTmsht:chrg_ot := nTmHlf\n   oTmsht:save()\nendif\nif nCol == 3\n   oLbx5:lEditCol(nCol,@nDble,\'9999.99\',,CLR_WHITE,CLR_RED,,)\n   oTmsht:chrg_dbl := nDble\n   oTmsht:save()\nendif\noLbx5:Refresh()\noLbx5:SetFocus()\nreturn(nil)\n\nTo do a validation just use a codeblock\n \n oLbx4:lEditCol(nCol,@nQty,\'9999.99\',{|| if(!empty(cGroup),nQty := ChkQty(nQty,nStock,oInvItems,nOldQty,aChange),),TRUE} ,CLR_YELLOW,CLR_BLUE,,)\n\nColin','',0,'','126drl4z',1,0,'',80,0,0),(8155,1901,3,419,0,'198.54.202.210',1140775189,1,0,1,1,1,0,'','','Thanks Antonio for the reply.\n\nI am having a problem downloading files from the site that you point to i.e. the file is downloaded as a .html file and even if I rename it to a .zip file WinZip informs me that it is an invalid archive file.\n\nI had the same problem downloading another file that you posted for me (helptest.zip) a little while ago on the same site.\n\nRegards,\n\nDale.','',0,'','1wooqciq',1,0,'',419,0,0),(8156,1899,6,295,0,'201.222.158.205',1140775478,1,0,1,1,1,1,'','','Antonio,\n\n\n\nCuanto tiempo demorará la solución a este problema ?\nMientras tanto que hago?, espero la corrección o modifico el código?\n\n\nSALUDOS Y GRACIAS POR TU ATENCION','',0,'','2rm1kkf0',1,0,'',295,0,0),(8157,1901,3,32,0,'196.36.8.34',1140775659,1,0,1,1,1,0,'','Hyperupload','Hi,\n\nAntonio\'s link is to an html page. Below the ads you\'ll see a download link. Have you got javascript enabled?','',0,'','2lwwswcn',1,0,'',32,0,0),(8158,1906,3,419,0,'196.25.255.210',1140775986,1,0,1,1,1,0,'','','Thanks for the reply Colin.\n\nOnly problem is that I do not want to use any thirdy part code or utils (I have become painfully sort of \'known\' for this).\n\nI don\'t mean any offence to anybody by not wanting to use their stuff but I am happy with FWH from FiveTech Software and xHarbour from xHarbour and the support that I get from them and they are, after all, the companies that I am paying for the software and related support.\n\nThe problem with third party add-ons, code, or software, is that there is always the risk that there may be no continued support or updates.  I mean, let\'s face it, most of the third party stuff has been written by the programmer for their own use and even if they make it available for everyone to use I\'m sure that they don\'t want to keep being bugged by everyone for advice, bug fixes, etc. etc. at least not for no compensation.\n\nI get fantastic support and follow-up from FiveTech and xHarbour and I know that they listen to us and sort out our problems within a reasonable amount of time and this, as well as the sale of their software, is their core business.\n\nAnd I just know that after that great paragraph I will be seeing WIN32 HEADERS on TWBROWSE LISTBOX in the very near future  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nIf not I will have to use TSBrowse  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nI mean - where is the loyalty  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nRegards,\n\nDale.','',0,'','11xslgda',1,0,'',419,0,0),(8159,1928,3,67,0,'62.235.24.147',1140776066,1,0,1,1,1,0,'','','A (bad) solution is to disable EVAL(bPastEof) in method godown : \n\nif ::bPastEof != nil\n  IF PROCNAME(1) &lt;&gt; \"TXBROWSE:VSCROLL\"\n     Eval( ::bPastEof )\n  Endif\nendif','',0,'','1jpqvq0y',1,0,'',67,0,0),(8160,1901,3,419,0,'198.54.202.194',1140776072,1,0,1,1,1,0,'','','Hello,\n\nNo I don\'t think so.\n\nThanks,\n\nDale.','',0,'','65b1msbk',1,0,'',419,0,0),(8161,1864,3,160,0,'210.212.142.91',1140776984,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1go83fo3]Milan,\n\nI think I have the solution. See your email.\n\nJames[/quote:1go83fo3]\n\nDear James,\n\nYet it works now. It looks like dawn after a long dark night !!! \n\nThanks a lot.\n\nMilan.','',0,'gA==','1go83fo3',1,0,'',160,0,0),(8162,1911,6,63,0,'80.37.102.128',1140777277,1,0,1,1,1,0,'','','Paco:\nPerdona, pero no entiendo la modificación.  He puesto [code:3me4ynm0]\nlocal hOldBmp&#58;= SelectObject&#40; hDCMem, oImage&#58;hBmp&#41; [/code:3me4ynm0]\npero, claro, me da el error TBITMAP:Message not found()\n\n¿Es que tengo que capturar hBmp con alguna otra función?\nSaludos y gracais otra vez\nRafael','',0,'AIA=','3me4ynm0',1,0,'',63,0,0),(8163,1927,3,6,0,'82.61.28.9',1140777397,1,0,1,1,1,1,'','Re: SetFocus problem','Try this:\n\n[code:1ed48f08]@ 6,  3 BUTTON oBtn PROMPT &quot;&amp;Ok&quot;  OF oDlg SIZE 50, 12 ACTION &#40;oGet2&#58;ctext&#40;&quot;OK ACTION RUN ON &quot; + TIME&#40;&#41;&#41;, oGet2&#58;PostMsg&#40;WM_SETFOCUS&#41;&#41; DEFAULT[/code:1ed48f08] \n\nEMG','',0,'AIA=','1ed48f08',1,0,'',6,0,0),(8164,1927,3,22,0,'213.82.231.129',1140779970,1,0,1,1,1,0,'','','Thank for answer but don\'t works. With \"POSTMSG(WM_SETFOCUS)\" it makes something strange, because I see the cursor in the get but the \"real\" focus is in some other control. \n\nRegards\nGianni','',0,'AIA=','3uwwwxjt',1,0,'',22,0,0),(8165,1929,2,409,0,'201.246.66.204',1140784739,1,0,1,1,1,0,'','Consulta sobre SQL','Hola nuevamente, mi consulta es la siguiente llego a mi manos un manual de la libreria FcOdbc, sera asi tan facil de trabajar con bases SQL\n<!-- m --><a class=\"postlink\" href=\"http://www.fcsodbc.com/\">http://www.fcsodbc.com/</a><!-- m -->\nSaludos\nJose','',0,'AIA=','3j4kmxx8',1,0,'',409,0,0),(8166,1864,3,303,0,'68.7.28.54',1140784992,1,0,1,1,1,0,'','','Yeah!','',0,'AIA=','308ar8af',1,0,'',303,0,0),(8167,1921,6,439,0,'201.221.33.190',1140786525,1,0,1,1,1,0,'','las fechas','Todo bien con el pasaje al español con las instrucciones recibidas, pero me pasa algo raro\nEn la función msgdate, en lugar de aparecer los días lun mar mie jue ....\naparece jue vie sáb dom lun...\n\npor otra parte la palabra sabado aparece s b y prev next etc siguen en \ninglés\n\nComo puedo solucionarlo','',0,'AIA=','37vw9dpz',1,0,'',439,0,0),(8168,1930,18,67,0,'62.235.24.147',1140786696,1,0,1,1,1,0,'','xbrowse , bPastEof using VSCROLL','Hello, \n\nUsing xbrowse , i have problems with bPasteof() when the verical scroll bar is used . \n\nThis bar can be used to scroll trough the database , and to put the record pointer on the last row. \n\nNow we can append with : \n\n1) Pressing Key Down : ok it works \n\n2) Clicking on the bottom from the vertical scroll bar \n\nWE BECOME A LOOPING FROM EXECUTING bPAstEof !!!!!!!!!!!! \n\nIn testxbrw.prg , i changed : \n\nSTATIC FUNCTION AutoEdit( oWnd ) \n\nlocal oChild, oBrw, oCol \nlocal nFor \n\nDEFINE WINDOW oChild TITLE \"Auto edit browse\" MDICHILD OF oWnd \n\noBrw := TXBrowse():New( oWnd ) \n\noBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL \noBrw:nColDividerStyle := LINESTYLE_BLACK \noBrw:nRowDividerStyle := LINESTYLE_BLACK \noBrw:lColDividerComplete := .t. \n\noBrw:SetRDD() \n\nfor nFor := 1 to len( oBrw:aCols ) \noCol := oBrw:aCols[ nFor ] \noCol:nEditType := 1 \noCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) } \nnext \n\noBrw:CreateFromCode() \noChild:oClient := oBrw \n\noBrw:bPastEof() := {||msginfo(\"APND\")} // ADDED !!!!!!!!!!!! \n\nACTIVATE WINDOW oChild ON INIT oBrw:SetFocus() \n\nRETURN NIL','',0,'','1nw4lb6m',1,0,'',67,0,0),(8169,1927,3,303,0,'68.7.28.54',1140786959,1,0,1,1,1,0,'','','Try adding a oGet2:refresh() after the oGet2:setFocus().\n\nJames','',0,'','2528jjse',1,0,'',303,0,0),(8170,1911,6,28,0,'213.27.201.254',1140786982,1,0,1,1,1,0,'','','METHOD Analiza(oImage) \n[color=red:39ii9zcf]LOCAL hBmp   := oImage:hWnd [/color:39ii9zcf]\nLOCAL hDc    := GetDc(hBmp) \nlocal hDCMem := CreateCompatibleDC( hDC ) \nlocal hOldBmp:= SelectObject( hDCMem, hBmp ) \nlocal nX9 := oImage:nWidth \nlocal nY9 := oImage:nHeight \nlocal x, y, p \n\n\nUn [b:39ii9zcf]hWnd[/b:39ii9zcf] no es un manejador de una imagen. Es un manejador de una ventana. El handle que necesitamos es el hBmp no el hWnd\n\nen lugar de LOCAL hBmp := oImage:hWnd \ndebes poner LOCAL hBmp := oImage:hBmp','',0,'Qg==','39ii9zcf',1,0,'',28,0,0),(8171,1931,6,409,0,'201.246.66.204',1140786998,1,0,1,1,1,0,'','Consulta sobre Sql','Hola amigos, mi consulta es la siguiente llego a mi manos un manual de la libreria FcOdbc, sera asi tan facil de trabajar con bases SQL \n<!-- m --><a class=\"postlink\" href=\"http://www.fcsodbc.com/\">http://www.fcsodbc.com/</a><!-- m --> \nSaludos \nJose','',0,'Qg==','150iqi8w',1,0,'',409,0,0),(8172,1932,6,341,0,'200.127.97.186',1140788454,1,0,1,1,1,0,'','Como obtener el valor num de oPrn:nVertRes()','Estimados Colegas \n\nComo puedo obtener el valor numerico de oPrn:nVertRes(),oPrn:nHorzRes()\ny asignarselo a una variable\n\ndesde ya muchas gracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'Qg==','326iuo48',1,0,'',341,0,0),(8173,1921,6,2,0,'87.218.146.43',1140790400,1,0,1,1,1,1,'','','José,\n\nEl código fuente de MsgDate() está disponible en source\\function\\msgmeter.prg. Puedes modificarlo, compilar el PRG y enlazarlo como un OBJ más de tu aplicación.','',0,'Qg==','3e4fslum',1,0,'',2,0,0),(8174,1933,3,435,0,'200.155.201.73',1140790455,1,0,1,1,1,0,'','TExcels METHOD Get() ..how detectar format cientific ?','Como saber qual o formato da celula (NUMBER/GERAL/TEXT) ??\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'Qg==','cuq2j13q',1,0,'',435,0,0),(8175,1763,2,2,0,'87.218.146.43',1140790505,1,0,1,1,1,1,'','','Jose Mª,\n\n&gt;\nLo extraño es que si, le pongo un MsgInfo( \"Pausa, antes de salir...\" ). Antes del RETURN, este no se muestra, y entonces si funciona:\n&gt;\n\nLlama a SysRefresh() en vez de a MsgInfo()','',0,'Qg==','1xhd953n',1,0,'',2,0,0),(8176,1934,7,449,0,'212.64.224.250',1140790535,1,0,1,1,1,0,'','Prototipo aplicacion. SV','Hola,\n\nHoy he podido terminar un prototipo de aplicacion de gestion. Me gustaria q pudierais echarle una mirada y poder \'machacarme\'   <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->  con lo q os parece mal a nivel de funcionamiento. He intentado realizar dos tipos de mantenimento diferentes (en linea y via browse) y un modulo de gestion cabecera/posicion. \n\nTodas las criticas son bien recibidas   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEl \'proto\' lo podeis bajar desde \n\n<!-- m --><a class=\"postlink\" href=\"http://www.zprog.net/download/SETUPSV.EXE\">http://www.zprog.net/download/SETUPSV.EXE</a><!-- m -->\n\n\nSaludos.\nC.','',0,'Qg==','383ehw3r',1,0,'',449,0,0),(8177,1899,6,2,0,'87.218.146.43',1140790621,1,0,1,1,1,1,'','','Luis,\n\nPrzemek es el gurú de los RDDs. Ya hemos reportado el problema en la lista, pero es imposible saber cuando lo arreglará. Puede ser hoy, ó la semana que viene.\n\nModifica el código si te corre prisa.','',0,'Qg==','okld3nae',1,0,'',2,0,0),(8178,1934,7,2,0,'87.218.146.43',1140790873,1,0,1,1,1,1,'','','Carles,\n\nCon que software has desarrollado el instalador ? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Qg==','12c0jgoo',1,0,'',2,0,0),(8179,1899,6,295,0,'200.113.113.8',1140791302,1,0,1,1,1,1,'','','OK , Antonio\nPrefiero esperar ya que los PRG\'S que componen el sistema son muchos y en todos utilizamos la clausula ALIAS.\n\nGRACIAS NUEVAMENTE , Y QUEDO  A LA ESPERA DE TU RESPUESTA\nSALUDOS','',0,'Qg==','3p53p125',1,0,'',295,0,0),(8180,1934,7,2,0,'87.218.146.43',1140791398,1,0,1,1,1,1,'','','Carles,\n\nEnhorabuena, muy bueno  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Qg==','bxmg6jt6',1,0,'',2,0,0),(8181,1934,7,449,0,'212.64.224.250',1140791442,1,0,1,1,1,0,'','','Hi,\n\nPues con el cabwiz.exe de microsoft para generar los *.cab q me lo paso el colega Parajón y una aplicacion freeware para generar el *.exe llamada ezsetup. \n\nLa verdad q me he peleado mas en crear el script de la instalacion, q un mantenimeinto en FWPPC  <!-- s:-D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":-D\" title=\"Very Happy\" /><!-- s:-D -->\n\nSi alguien lo necesita, se lo envio.\n\nSee you.\nC.','',0,'Qg==','1a9hdjz1',1,0,'',449,0,0),(8182,1911,6,63,0,'80.37.102.128',1140795323,1,0,1,1,1,0,'','','Paco:\nGracias por la explicación.  Me había vuelto loco porque no es oImage:hBmp sino oImage:hBitmap.  Arreglado esto, ya me compila y funciona.  Voy a jugar un poco con ello.\nSaludos y buen fin de semana\nRafael','',0,'Qg==','1k6207bb',1,0,'',63,0,0),(8183,1927,3,22,0,'213.82.231.129',1140795496,1,0,1,1,1,0,'','','James,\nmany thank for reply but still don\'t works.\n\nRegards\nGianni','',0,'Qg==','vqhfyq5z',1,0,'',22,0,0),(8184,1919,6,228,0,'201.245.222.85',1140795981,1,0,1,1,1,1,'','Perfecto?','Ok, Antonio eso era lo que necesitaba de nuevo muchas gracias.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Qg==','3taja5za',1,0,'',228,0,0),(8185,1921,6,228,0,'201.245.222.85',1140796053,1,0,1,1,1,1,'','En que parte?','perdon que me entrometa, pero a mi tambien me sirve el dato...\n\nEn donde debo colocar esos comando?','',0,'Qg==','zjo546ll',1,0,'',228,0,0),(8187,1932,6,74,0,'190.48.235.191',1140796565,1,0,1,1,1,1,'','','Dante:\n\n          La forma de utilizarlo es la siguiente:\n\n[code:1gz4ys2o]\nSTATIC FUNCTION E_lstcer&#40;PAG,oPrn,oPen1,oFnt,oFnt2,oFnt3,oFnt4,oFnt5,oPen2&#41;\n\nLocal nRowStep,nColStep,nInc&#58;=1&#46;13,nCol&#58;=0&#46;3\n\n			nRowStep = oPrn&#58;nVertRes&#40;&#41; / 90   // We want 90 COLS\n      nColStep = oPrn&#58;nHorzRes&#40;&#41; / 60   // We want 15 ROWS\n\n		  oPrn&#58;Say&#40; nRowStep*1&#46;5,nColStep*5&#46;0, &quot;PETRO&quot;, oFnt4 &#41;\n			oPrn&#58;Say&#40; nRowStep*1&#46;5,nColStep*9&#46;0,&quot;SUR&quot;, oFnt5,,RGB&#40;0,0,206&#41; &#41;\n			oPrn&#58;Say&#40; nRowStep*3&#46;2,nColStep*5&#46;0, OemtoAnsi&#40;&quot;Puerto San Juli n, Provincia de Santa Cruz&quot;&#41;, oFnt,,CLR_BLACK &#41;\n			oPrn&#58;Say&#40; nRowStep*4&#46;4,nColStep*4&#46;9, OemtoAnsi&#40;&quot;ARGENTINA&quot;&#41;, oFnt &#41;\n			Linea&#40;2&#46;8,1&#46;2,2&#46;8,21&#46;0,oPrn,oPen2&#41;\n\n[/code:1gz4ys2o]\n\n            O sea, dependiendo del tamaño de hojas que utilices y la cantidad de filas y columnas que quieras imprimir haces esa division:\n\n			nRowStep = oPrn:nVertRes() / 90   // We want 90 COLS\n      nColStep = oPrn:nHorzRes() / 60   // We want 15 ROWS\n\n             Y despues utilizas esos valores para los says, asi la impresion sera proporcional a la resolucion de la impresora y no cambiaran tanto las posiciones:\n\n		  oPrn:Say( nRowStep*1.5,nColStep*5.0, \"PETRO\", oFnt4 )\n\nSaludos,','',0,'AIA=','1gz4ys2o',1,0,'',74,0,0),(8188,1797,3,6,0,'82.61.28.9',1140797230,1,0,1,1,1,1,'','Re: TGet Spinner bug 2','This is a possible fix (TGet:Paint() method):\n\n[code:28lfmtr4]#define SM_CYHSCROLL          3\n\n      do case \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_CENTER &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_CENTER &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 1, &#40; &#58;&#58;nWidth&#40;&#41; - 7 - GetSysMetrics&#40; SM_CYHSCROLL &#41; &#41; / 2,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n              \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_RIGHT &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_RIGHT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 1, &#58;&#58;nWidth&#40;&#41; - 7 - GetSysMetrics&#40; SM_CYHSCROLL &#41;,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n             \n         otherwise \n              SetTextAlign&#40; &#58;&#58;hDC, TA_LEFT &#41; \n              ExtTextOut&#40; &#58;&#58;hDC, 1, 0,;\n                &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n      endcase[/code:28lfmtr4] \n\nEMG','',0,'AIA=','28lfmtr4',1,0,'',6,0,0),(8189,1921,6,439,0,'201.221.42.108',1140797416,1,0,1,1,1,0,'','algo más','Ya envié el mensaje este pero no se donde lo metí...... me debo haber equivocado.\n\nEn resumen:\n\nHice las correcciones y me quedó muy lindo lo del MsgDate, pero creo que\nhay algo que no me cierra.\npara colocar los títulos de MsgDate() tengo este codigo\n\n@ 0.8, 0 SAY \"  \" + SubStr( CDow( dDate ), 1, 3 ) + \"   \" + ;\n                       SubStr( CDow( dDate + 1 ), 1, 3 ) + \"   \" + ;\n                       SubStr( CDow( dDate + 2 ), 1, 3 ) + \"   \" + ;\n                       SubStr( CDow( dDate + 3 ), 1, 3 ) + \"   \" + ;\n                       SubStr( CDow( dDate + 4 ), 1, 3 ) + \"   \" + ;\n                       SubStr( CDow( dDate + 5 ), 1, 3 ) + \"   \" + ;\n                       SubStr( CDow( dDate + 6 ), 1, 3 ) COLOR CLR_HRED\n\nconsiderando que los btnbmp de las fechas estan programados si entiendo\nbien el codigo de lunes a domingo por semana siempre, no deberian los\nsubtitulos estar igual, ya que sino salvo los lunes los subtitulos y las fechas no coinciden.\n\nSi estoy en lo correcto, creo que es un bug que deberia corregirse para\nla proxima versi\'on.\n\nGracias por tu ayuda, lo importante todo anda OK.','',0,'AIA=','ck3id4y2',1,0,'',439,0,0),(8190,1935,6,383,0,'201.240.3.38',1140797596,1,0,1,1,1,0,'','CHECKBOX EN TSBROWSE 7.1','Cual es la clausula correcta para presentar un campo tipo checkbox en una columna editable. Porque hasta la version anterior no tenia ningun problema pero con esta versión 7.1 tengo un problema de error.\nPor favor les doy gracias por su ayuda.','',0,'AIA=','3bwi9t7c',1,0,'',383,0,0),(8191,1907,3,455,0,'195.97.105.161',1140798095,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:25hcxq5i][quote=&quot;E. Bartzokas&quot;:25hcxq5i]Error description: Error BASE/1005  Message not found: TLISTBOX:_NLINESTYLE[/quote:25hcxq5i]\n\nnLineStyle is an instance variable of TWBrowse not of TListBox.\n\nEMG[/quote:25hcxq5i]\nCorrect.\nI am using TLISTBOX, and asked if I can make a listbox have horizontal line separators between items, as we have it in TWBROWSE...\nI didn\'t find any method in TLISTBOX to guide me towards this problem, and therefore I ask for your opinion and a piece of your knowledge.\n<!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','25hcxq5i',1,0,'',455,0,0),(8192,1935,6,110,0,'165.98.151.243',1140799451,1,0,1,1,1,1,'','','por lo general el error es que estas usando un tsbrowse.ch anterior, debes verificar si estas usando el .ch que viene con la version 7\n\nsalu2\ncarlos vargas','',0,'gA==','2healy1t',1,0,'',110,0,0),(8193,1907,3,6,0,'82.61.28.9',1140800387,1,0,1,1,1,1,'','','No, you can\'t, as far as I know.\n\nEMG','',0,'gA==','v5wf7psw',1,0,'',6,0,0),(8194,1927,3,343,0,'204.57.111.194',1140800873,1,0,1,1,1,0,'','','I think you need to add an <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->Jump\nTry this:\n\n@ 6,  3 BUTTON oBtn PROMPT \"&amp;Ok\"  OF oDlg SIZE 50, 12 ACTION (oGet2:ctext(\"OK ACTION RUN ON \" + TIME()),oBtn:oJump := oGet2, oGet2:SetFocus()) DEFAULT','',0,'gA==','e39lqx3c',1,0,'',343,0,0),(8195,1927,3,22,0,'213.82.231.129',1140801305,1,0,1,1,1,0,'','','Gale,\nthanks but don\'t works.\n\nRegards\nGianni','',0,'gA==','27lb1gx0',1,0,'',22,0,0),(8196,1934,7,262,0,'83.97.168.83',1140804005,1,0,1,1,1,1,'','','Primero felicitarte por el desarrollo , me gusta muchísimo , los detalles de los dialogos sin barra como en reindexar , y la presentación en general son un lujo , pero...\nEmpiezo a darte caña  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> . \nUn gran problema a resolver es este : \nLanzo el programa .\nMe voy a la barra de incio -&gt;programas y vuelvo a lanzar el programa ( nada que un ususario no haga cada 3 minutos) .......\nEstoy en Inicio -&gt;Programas-&gt;SV y lanzo el programa  .... entro en maestros -&gt;definicion de productos , pero salgo pulsando la X . SE me va la pantalla programas , ¿? y el menu de maestros ? ... a recuperarlo de memoria  y si ahora salgo del menu de maestros con la X ? .... no voy a pantalla principal sino a canfiguracion .... esto para un ususario final \n\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nPero no te preocupes todo tiene soluccion ... , de momento te recomiendo usar la nueva capacidad de dialogos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \ny para terminar  yo diria que esto al principio del todod del programa :\n\n[code:27n0tmwt]\nIF lanzado&#40;&#41;\n  Quit\nENDIF\n\n\nHB_FUNC &#40;LANZADO&#41;\n&#123;\n   HWND hWnd;\n   BOOL lRet = FALSE;\n   hWnd = FindWindow &#40;NULL,L&quot;SV Pedidos&quot; &#41;;\n   if &#40;hWnd&#41;\n   &#123;\n     SetForegroundWindow &#40; hWnd &#41;;\n   lRet = TRUE;\n   &#125;\n   hb_retl &#40;lRet&#41;;\n&#125;\n\n\n[/code:27n0tmwt]','',0,'AIA=','27n0tmwt',1,0,'',262,0,0),(8197,523,6,456,0,'217.127.39.57',1140804426,1,0,1,1,1,0,'','','Armando, soy un recien llegado al foro, supongo que ya tendras el tema arreglado, pero si todavia necesitas ayuda con el AS/400 hazmelo saber.\n\nBiel\nSaludos desde Mallorca','',0,'AIA=','223ejmjt',1,0,'',456,0,0),(8198,1920,6,104,0,'201.58.62.126',1140805596,1,0,1,1,1,0,'','','Gracias Paco  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n\nIrei fazer alguns testes.\n\nRossine.','',0,'AIA=','212wmyad',1,0,'',104,0,0),(8199,1931,6,427,0,'200.21.165.114',1140805794,1,0,1,1,1,1,'','','Te lo aseguro, es muy facil.\nLa estamos usando hace varios meses y esta muy buena.\nY el soporte de Freddy es excelente','',0,'AIA=','1c8yv7y4',1,0,'',427,0,0),(8200,1936,3,419,0,'198.54.202.194',1140809325,1,0,1,1,1,0,'','Menu and Buttonbar Colors','Good Evening,\n\nIs there any way to change / set the color of MENU and BUTTONBAR?\n\nDale.','',0,'AIA=','7dfdmhpl',1,0,'',419,0,0),(8201,1935,6,383,0,'201.240.3.38',1140809708,1,0,1,1,1,0,'','','[quote=&quot;carlos vargas&quot;:1lt79t0s]por lo general el error es que estas usando un tsbrowse.ch anterior, debes verificar si estas usando el .ch que viene con la version 7\n\nsalu2\ncarlos vargas[/quote:1lt79t0s]\n\nBueno el archivo include es el correcto, no entiendo cual puede ser el problema','',0,'gA==','1lt79t0s',1,0,'',383,0,0),(8202,1934,7,2,0,'87.218.146.43',1140812836,1,0,1,1,1,1,'','','Carles,\n\nEstoy seguro que muchos usuarios de FWPPC te agradecerán si publicas el script de instalación con una breve explicación de donde descargar las herramientas necesarias y de los pasos a seguir.\n\nMuchas gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3c3h6bjv',1,0,'',2,0,0),(8203,1927,3,6,0,'82.61.28.9',1140814341,1,0,1,1,1,1,'','','Try this:\n\n[code:2c5ub8pf]   @ 6,  3 BUTTON oBtn PROMPT &quot;&amp;Ok&quot;  OF oDlg SIZE 50, 12 ACTION &#40; oGet2&#58;ctext&#40;&quot;OK ACTION RUN ON &quot; + TIME&#40;&#41;&#41;,;\n                                                                  oBtn&#58;SetFocus&#40;&#41;,;\n                                                                  SysRefresh&#40;&#41;,;\n                                                                  oGet2&#58;SetFocus&#40;&#41; &#41; DEFAULT[/code:2c5ub8pf]\n\nEMG','',0,'AIA=','2c5ub8pf',1,0,'',6,0,0),(8204,1936,3,6,0,'82.61.28.9',1140814485,1,0,1,1,1,1,'','Re: Menu and Buttonbar Colors','I don\'t think you can change menu colors. For the buttonbar try SetColor() method.\n\nEMG','',0,'AIA=','jbbdrm62',1,0,'',6,0,0),(8205,1937,6,341,0,'200.127.97.186',1140814997,1,0,1,1,1,0,'','Consulta  Pantalla &amp; Impresion Imagen 29cm x 21 cm','Estimados Colegas\n\nTengo una imagen  en un archivo bmp o jpg de 29cm x 21cm  la muestro en\nun dialogo y la mando a impresion me varia el tamaño.\n\n\nDesde ya muchas gracias\ndante \n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','32yq8dxq',1,0,'',341,0,0),(8206,1938,6,341,0,'200.127.97.186',1140815211,1,0,1,1,1,0,'','Puedo Mostrar y adicionar objetos a WMF en un dialogo','Estimados Colegas\n\nLa consulta es puedo mostra un archivo wmf  y adicionarle objetos\nya sea gets o says en un dialogo que no sea preview. Se puede\nutilizar importwmf independientemente de trpinter.\n\ndesde ya muchas gracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','222embg0',1,0,'',341,0,0),(8207,1934,7,262,0,'83.97.168.83',1140816329,1,0,1,1,1,1,'','','Antonio , en el foro de ingles de fwpcc <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1007&amp;highlight=ezsetup\">http://fivetechsoft.com/forums/viewtopi ... ht=ezsetup</a><!-- m -->','',0,'AIA=','2n0ssnoc',1,0,'',262,0,0),(8208,1797,3,154,0,'151.81.1.68',1140822858,1,0,1,1,1,1,'','Re: TGet Spinner bug 2','[quote=&quot;EnricoMaria&quot;:a7r8ayq4]This is a possible fix (TGet:Paint() method):\nEMG[/quote:a7r8ayq4]\n\nDear Enrico,\n\nyour fix work perfectly!\n\nThank you.','',0,'gA==','a7r8ayq4',1,0,'',154,0,0),(8209,1927,3,379,0,'59.167.120.150',1140829257,1,0,1,1,1,0,'','Try this','Change\n@ 2,  6 GET oGet2 VAR cAddress OF oDlg \n\nto\n\n@ 2,  6 GET oGet2 VAR cAddress OF oDlg  UPDATE\n\nand\n @ 6,  3 BUTTON oBtn PROMPT \"&amp;Ok\"  OF oDlg SIZE 50, 12 ACTION (oGet2:ctext(\"OK ACTION RUN ON \" + TIME()),oGet2:SetFocus()) DEFAULT\n\nto\n\n  @ 6,  3 BUTTON oBtn PROMPT \"&amp;Ok\"  OF oDlg SIZE 50, 12 ACTION (cAddress := \"OK ACTION RUN ON \" + TIME(),oGet2:Refresh(), oGet2:SetFocus(), Sysrefresh()) DEFAULT','',0,'gA==','2gpsvxub',1,0,'',379,0,0),(8210,1859,3,57,0,'81.39.239.66',1140840084,1,0,1,1,1,1,'','','[quote=&quot;Milan Mehta&quot;:gy0o0zoe]Hello cdmmaui,\n\nI have using xHarbour and same code will work with FWH also. If you wish I can send you on your private mail as the Prg is quite big and everybody may not be interested in it.\n\nWith best regards,\n\nMilan.[/quote:gy0o0zoe]\n\nHello Milan, \n\nPlease forward sample Prg to <!-- e --><a href=\"mailto:toni.sales@gmail.com\">toni.sales@gmail.com</a><!-- e -->\nMany thanks!','',0,'gA==','gy0o0zoe',1,0,'',57,0,0),(8211,1936,3,419,0,'196.25.255.195',1140845766,1,0,1,1,1,0,'','','Good Morning,\n\nWell that\'s no good!!!\n\nI have tried the SetColor( ) method for the Button Bar - it almost works but there is a sort of \'color bleeding\' that occurs - I don\'t know why!\n\nIt\'s not serious - I just thought it would be nice to be able to change the colors - change the appearance to something like Nero 7.\n\nThanks anyway,\n\nRegards,\n\nDale.','',0,'gA==','dtuxi5bj',1,0,'',419,0,0),(8212,1936,3,6,0,'87.11.236.70',1140860232,1,0,1,1,1,1,'','','[quote=&quot;dpaterso&quot;:1hhq12oq]Good Morning,\n\nWell that\'s no good!!!\n\nI have tried the SetColor( ) method for the Button Bar - it almost works but there is a sort of \'color bleeding\' that occurs - I don\'t know why![/quote:1hhq12oq]\n\nPlease take the time to build (and post) a reduced and self-contained sample of the problem.\n\n[quote=&quot;dpaterso&quot;:1hhq12oq]It\'s not serious - I just thought it would be nice to be able to change the colors - change the appearance to something like Nero 7.[/quote:1hhq12oq]\n\nI haven\'t seen Nero 7 yet but I can easily imagine that it doesn\'t use standard menus if they are coloured different than the standard menus.\n\nEMG','',0,'gA==','1hhq12oq',1,0,'',6,0,0),(8213,1927,3,22,0,'151.49.135.36',1140860704,1,0,1,1,1,0,'','','Grumpy,\nthanks you too but don\'t works.\n\nRegards\nGianni','',0,'gA==','2irylpi3',1,0,'',22,0,0),(8214,1927,3,22,0,'151.49.135.36',1140861315,1,0,1,1,1,0,'','','EnricoMaria,\nthanks you, know it almost works!\nThere is still only one case that don\'t works and it is when I push \"RETURN\" when focus is already on \"OK\" button. In this case focus goes on \"CANCEL\" button!!! <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nDon\'t you think is a FWH bug? I think that even your code almost works, it is a work around. \n\nRegards\nGianni','',0,'gA==','6hmisp60',1,0,'',22,0,0),(8215,1927,3,6,0,'87.11.236.70',1140861760,1,0,1,1,1,1,'','','No, I think that it is your design that is wrong.\n\nEMG','',0,'gA==','1ratsr37',1,0,'',6,0,0),(8216,1859,3,67,0,'62.235.24.147',1140862921,1,0,1,1,1,0,'','','Hello Milan, \n\nPlease forward sample Prg to <!-- e --><a href=\"mailto:demont.frank@gmail.com\">demont.frank@gmail.com</a><!-- e --> to  \nMany thanks!\n_________________\nFrank','',0,'gA==','ip19mrr2',1,0,'',67,0,0),(8217,1886,20,49,0,'82.59.141.150',1140865086,1,0,1,1,1,1,'','','scusate era fuori sede ...\ncmq grazie a tutti','',0,'gA==','47d9d050',1,0,'',49,0,0),(8218,1939,3,419,0,'196.25.255.210',1140877415,1,0,1,1,1,0,'','TDOSPrn( ) Printing ONLY to LPT1 Problem','Hello,\n\nI have been having a strange problem at a customer and I thought I had sorted out the problem but apparantely not.\n\nThe problem is that no matter what printer port I pass to TDOSPrn( ) as a parameter ( cPort ) (LPT1 or LPT2) it will only print to LPT1 (which I gather from the code is the default).\n\nDoes TDOSPrn( ) detect or require the existence of the physical printer ports on the workstation?\n\nThe reason that I ask is that in my case I have printer ports LPT1 and LPT2 rerouted to Novell Print Queues using the Novell Client for Windows 2000/XP.\n\nUnder DOS, from any workstation, I can print to either network queue (printer port) (tested by doing a DIR&gt;LPT1 and DIR&gt;LPT2) and there is no problem with printing to the correct printer and relevant print queue.\n\nBut in my app I am only able to print to LPT1 no matter what \'cPort\' parameter I send to TDosPrn( ).\n\nOn all of the workstations at the customer there is only a physical LPT1 present i.e. no LPT2.\n\nThe (very) old version(s) of TDOSPrn( ) used to work (until I started keeping up to date with the very latest versions of FWH and xHB.\n\nI have checked whether or not I am passing the correct parameter and type to TDOSPrn( ) using MsgInfo( cPort ) entered into TDOSPrn( ) and apparantely I AM passing the correct parameter and type.\n\nSomething else (just by the way) - with the Novell Client I am able to capture LPT1 thru LPT9 - will TDOSPRn( ) be able to handle ports LPT3 thru LPT9?  If not what modifications are necessary?\n\nRegards,\n\nDale.','',0,'gA==','3txxd4ee',1,0,'',419,0,0),(8219,1940,3,419,0,'198.54.202.226',1140877826,1,0,1,1,1,0,'','Windows Vista Compatibility','Hi,\n\nMaybe off topic but Windows Vista is coming (here sometime).\n\nI did see Antonio make reference to it in some or the other message thread.\n\nDoes anyone know if we are going to have issues with this new version?\n\nAnyone in the know done any research on this issue?\n\nRegards,\n\nDale.','',0,'gA==','2avbrkx5',1,0,'',419,0,0),(8220,1859,3,15,0,'203.73.90.144',1140881350,1,0,1,1,1,0,'','','Hello\n\nCould you send to me?\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->\n\nThank you.\n\nRichard','',0,'gA==','2wn035ki',1,0,'',15,0,0),(8221,523,6,53,0,'148.221.252.198',1140884682,1,0,1,1,1,1,'','','Biel:\n\nLa verdad es que aún esta pendiente el tema, si tienes tiempo para apoyarme te lo voy a agradecer.\n\nEnvie un correo a tu privado pero no se si lo recibiste.\n\nSaludos, Armando','',0,'gA==','2pvcnrdw',1,0,'',53,0,0),(8222,1941,4,13,0,'213.76.252.200',1140885067,1,0,1,1,1,0,'','Dbf and indexes','Antonio,\n\nI try index dbf where is 30,000 record. FwPpc show error \'hb_errinternal ()\'. This is sample:\n\n[code:3ix8rrgd]\nFunction TestIndex &#40;&#41;\n\n   Local i &#58;= 0\n   Local aStr &#58;= &#123;&#125;\n\n   Request DbfCdx\n   Request DbfFpt\n   RddSetDefault &#40;\'DbfCdx\'&#41;\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PLWIN\n\n   Set Century On\n   Set Epoch To 1995\n   Set Date German\n   Set Deleted On\n   Hb_Lang_Select &#40;\'PL\'&#41;\n   Hb_SetCodePage &#40;\'PLWIN\'&#41;\n\n   FErase &#40;\'Test\' + IndexExt &#40;&#41;&#41;\n   AAdd &#40;aStr, &#123;\'F1\', \'C\', 40, 0&#125;&#41;\n   AAdd &#40;aStr, &#123;\'F2\', \'C\',  5, 0&#125;&#41;\n   AAdd &#40;aStr, &#123;\'F3\', \'N\', 10, 0&#125;&#41;\n   AAdd &#40;aStr, &#123;\'F4\', \'C\', 20, 0&#125;&#41;\n   AAdd &#40;aStr, &#123;\'F5\', \'C\', 10, 0&#125;&#41;\n   DbCreate &#40;\'Test\', aStr&#41;\n   Use Test New\n   For i &#58;= 1 To 30000\n        Test-&gt;&#40;DbAppend &#40;&#41;&#41;\n        Test-&gt;F1 &#58;= PadL &#40;Test-&gt;&#40;RecNo &#40;&#41;&#41;, 5&#41;\n        Test-&gt;F2 &#58;= PadL &#40;Test-&gt;&#40;RecNo &#40;&#41;&#41;, 5&#41;\n   Next\n   Index On F1 + F2 Tag T1 To Test\n   Index On F5 + F1 + F2 Tag T2 To Test\n   Index On F4 + F1 + F2 Tag T2 To Test\n   Close All\n   MsgInfo &#40;\'Ok\'&#41;\n\nReturn &#46;T&#46;\n[/code:3ix8rrgd]\n\nI use latest FwPpc and Harbour. Is there a method to create structural index for large records dbf ?\n\nRegards\nPawel','',0,'AIA=','3ix8rrgd',1,0,'',13,0,0),(8223,1942,6,362,0,'200.168.52.156',1140885236,1,0,1,1,1,1,'','THEMAS XP, NO FUNCIONA CON FIVEWIN 2.7','#Include \"FiveWin.ch\"\n\nFunction Main()\n\n    //-&gt; Maestro Antonio, Hay algo errado con los Themas de XP...\n\n    //-&gt; Esto no funciona en FiveWin 2.7 y [x]Harbour 0.99.60\n\n    //-&gt; Ke hacer para corrigirlo?\n\n    If IsAppThemed()\n\n        MsgInfo( \'Con Themas Del Windows XP FiveWin 2.7\' )\n\n     Else\n\n        MsgInfo( \'Sin Themas Del Windows XP FiveWin 2.7\' ) //-&gt; Siempre Aki???\n\n    Endif\n     \nReturn Nil\n\n//-&gt; Un Gran Saludos a Todos.','',0,'','a3xt1lgd',1,0,'',362,0,0),(8224,1927,3,22,0,'151.49.135.36',1140885254,1,0,1,1,1,0,'','','EMG, \nI don\'t understand what\'s wrong in my design.\nI only need that a get take focus after a keyboard RETURN.\nWhat\'s wrong in it?\nSETFOCUS will be ignored when I use RETURN key. If I use another way ( mouse or SPACE or accelerator) all works. This different behaviour make me to think that it is a bug even my design was wrong.\n\nRegards\nGianni','',0,'','3nychig7',1,0,'',22,0,0),(8225,1941,4,2,0,'87.218.146.43',1140889503,1,0,1,1,1,1,'','','Pawel,\n\nWe have modified the internal error msg to see the problem description and here it is:\n\n[url=http&#58;//imageshack&#46;us:70mfmu3h][img:70mfmu3h]http&#58;//img127&#46;imageshack&#46;us/img127/5069/pawel9fa&#46;png[/img:70mfmu3h][/url:70mfmu3h]\nIt looks as a temporary file can\'t be created. We are going to contact Przemek to get his advise.','',0,'GA==','70mfmu3h',1,0,'',2,0,0),(8226,1941,4,2,0,'87.218.146.43',1140893939,1,0,1,1,1,1,'','','Pawel,\n\nFixed <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nPlease download Harbour from FWPPC site again.','',0,'GA==','3kq1xq45',1,0,'',2,0,0),(8227,1943,7,2,0,'87.218.146.43',1140894084,1,0,1,1,1,1,'','Nuevo build de Harbour Pocket PC','Hemos publicado un nuevo build de Harbour Pocket PC. Por favor descargadlo de la página de FWPPC.\n\n* Incluye descripción de los errores internos, en caso de producirse.\n* Soluciona un problema de creación de ficheros temporales.','',0,'GA==','35ta6ce8',1,0,'',2,0,0),(8228,1944,4,2,0,'87.218.146.43',1140894178,1,0,1,1,1,1,'','New Harbour Pocket PC build','We have published a new Harbour Pocket PC build with several improvements:\n\n* It reports the internal error description, if one occurrs.\n* It properly manage temporary files names.\n\nPlease download it from FWPPC site.','',0,'GA==','1wmqeoi9',1,0,'',2,0,0),(8229,1859,3,65,0,'193.201.130.113',1140894981,1,0,1,1,1,0,'','','please forward sample to <!-- e --><a href=\"mailto:betoncu@birimnet.com\">betoncu@birimnet.com</a><!-- e -->\nmany thanks\n\nbetoncu','',0,'GA==','3ooonw3u',1,0,'',65,0,0),(8230,1942,6,2,0,'87.218.146.43',1140895850,1,0,1,1,1,1,'','','João,\n\nTienes que crear una ventana ó diálogo antes de llamar a IsAppThemed() para que IsAppThemed() devuelva el valor correcto:\n[code:8em2io09]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;\n      TITLE &quot;Test&quot;\n\n   MsgInfo&#40; IsAppThemed&#40;&#41; &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      VALID MsgYesNo&#40; &quot;Are you sure?&quot;, &quot;Do you want to exit?&quot; &#41;\n\nreturn nil\n[/code:8em2io09]','',0,'AIA=','8em2io09',1,0,'',2,0,0),(8231,1941,4,13,0,'213.76.252.200',1140895910,1,0,1,1,1,0,'','','Antonio,\n\nthanks so much !\n\nRegards\nPawel','',0,'AIA=','7y8sywdw',1,0,'',13,0,0),(8232,1945,7,262,0,'83.97.168.83',1140903528,1,0,1,1,1,1,'','Problema de velocidad','He realizado un codigo muy simple que se lanza desde un boton \n[code:367uykfo]\nFUNCTION recorre&#40;&#41;\n   LOCAL i&#58;= 1\n   articulo-&gt;&#40;DBGoTop&#40;&#41;&#41;\n   DO WHILE !articulo-&gt;&#40;Eof&#40;&#41;&#41;\n      articulo-&gt;lfiltro&#58;= 1\n      i++\n      IF i &gt; 300\n         msginfo&#40;&quot;2&quot;&#41;\n         i&#58;= 1\n      endif\n      articulo-&gt;&#40;DBSkip&#40;&#41;&#41;\n   enddo\n   msginfo&#40;&quot;fin&quot;&#41;\nRETURN nil\n[/code:367uykfo]\nEs una Tabla de unos 4800 registros .\nEl caso es que probado en el simulador ( sin los mensajes ) tarda unos 4 segundos en hacerse .\nPero al pasarlo al pocket se me para  , pongo los mensajes para ver por donde va y resulta que tarda en recorrer los 300 registros unos \"40 segundos\" , osea los 4000 registros es impensable .\nEspero alguien mire si esto ocurre en otros pocket , o solo es el mio .\nProbado con la version anterior de harbour y la de hoy mismo .\nsaludso.','',0,'AIA=','367uykfo',1,0,'',262,0,0),(8233,1859,3,69,0,'65.92.155.204',1140904738,1,0,1,1,1,0,'','','Also have a look at a quick guide I made a while back.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/tips___tricks_detail.php?id=46\">http://www.fivewin.info/html/tips___tri ... .php?id=46</a><!-- m -->\n\n\nJeff','',0,'AIA=','kj454sdy',1,0,'',69,0,0),(8234,1927,3,6,0,'87.11.236.70',1140905935,1,0,1,1,1,1,'','','Sorry, I would have to say \"perhaps\". Anyway, this is a sample that solves the last problem:\n\n[code:2sxaq7oi]   @ 6,  3 BUTTON oBtn PROMPT &quot;&amp;Ok&quot;  OF oDlg SIZE 50, 12 ACTION &#40; oGet2&#58;ctext&#40;&quot;OK ACTION RUN ON &quot; + TIME&#40;&#41;&#41;,;\n                                                                  oGet2&#58;SetFocus&#40;&#41;,;\n                                                                  SysRefresh&#40;&#41;,;\n                                                                  oGet2&#58;SetFocus&#40;&#41; &#41; DEFAULT[/code:2sxaq7oi]\n\nEMG','',0,'AIA=','2sxaq7oi',1,0,'',6,0,0),(8235,1946,6,341,0,'200.127.97.186',1140920334,1,0,1,1,1,0,'','Ayuda Ubicacion de objetos en pantalla e impresora','Estimados colegas\n\nExiste algun algoritmo para que me coincidan la ubicacion  exacta de los\nobjetos en pantalla con que imprimo en la impresora, alguien  tendria un ejemplo\n\nGracias\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','3d17c34z',1,0,'',341,0,0),(8236,1946,6,252,0,'201.140.21.168',1140921343,1,0,1,1,1,0,'','','Parece ser que es problema del preview. Existen previews de terceros que se pueden usar en lugar del que viene incluido en FW: esta uno comercial que tiene muy buena presentacion y te imprime la imagen exacta de lo que ves en pantalla, pero lamentablemente truena con algunas impresoras y en ciertas versiones de windows. Yo lo compre hace como dos años, pero lo deje de usar porque no se publico una correccion a los problemas ni obtuve soporte del autor . Esta tambien el de Jose Gimenez que es gratuito y lo puedes bajar de la pagina de google., aunque parece que no esta 100% terminado y a veces en la ultima pagina de impresion te cambia el tamaño de la fuente. (si alguien sabe donde conseguir una version mas reciente de este preview por favor paseme el dato).\n   \n    Acabo de terner noticia de otro preview que viene en una libreria desarrollado por vagner llamada vlib. Este no lo he usado.\n\n    Si alguien sabe de algun otro preview ademas de los mencionados, por favor digame cual es y que tal funciona.\n\n     Un saludo.\n\n     Jose Rios.','',0,'AIA=','3zkmz24i',1,0,'',252,0,0),(8237,1940,3,2,0,'87.218.146.43',1140937104,1,0,1,1,1,1,'','','Dale,\n\nOur FWH tests on Vista are ok. FWH works fine on it.','',0,'AIA=','lde36gjw',1,0,'',2,0,0),(8238,1797,3,2,0,'87.218.146.43',1140937419,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1647kbu6',1,0,'',2,0,0),(8239,1873,3,2,0,'87.218.146.43',1140937729,1,0,1,1,1,1,'','','Enrico,\n\nI guess the right code is ... .or. cText == \"   -  -\" without using AllTrim().\n\nThe other expressions seem fine.','',0,'AIA=','3hw9cx9j',1,0,'',2,0,0),(8240,1907,3,2,0,'87.218.146.43',1140938186,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3mthr6mu',1,0,'',2,0,0),(8241,1908,3,2,0,'87.218.146.43',1140938290,1,0,1,1,1,1,'','','&gt; If I remember correctly, because a too little thumb is difficult to click. \n\nYes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks for the fix!','',0,'AIA=','3hwxbly3',1,0,'',2,0,0),(8242,1945,7,2,0,'87.218.146.43',1140938958,1,0,1,1,1,1,'','','Jose Luis,\n\nQue cantidad de memoria tienes en el Pocket PC ? Y en el emulador ?','',0,'AIA=','30ry6amq',1,0,'',2,0,0),(8243,1947,6,54,0,'201.128.94.20',1140940275,1,0,1,1,1,1,'','Metodos','Saludos amigos,\n\nTengo el siguiente detalle.\n\n[code:2mqgji50]              REDEFINE BTNBMP oBtn&#91;1&#93; ID 201 RESOURCE &quot;BRW&#46;TERMINAR&quot; NOBORDER OF &#58;&#58;oDlg ;\n                       ACTION &#91;color=red&#93;&#58;&#58;End&#40;&#41;&#91;/color&#93; ;\n                       MESSAGE &quot;Regresar a panel principal&quot;\n[/code:2mqgji50]\n\nLa cuestión es que por ejemplo ::End() es de una clase que hice y no de BTNBMP, pero cuando doy click en el boton me dice que no existe el metodo en TBTNBMP, y eso no es correcto.\n\nHay alguna manera de definirlo y no lo tome el TBBNTBMP?\n\nMil gracias de antemano','',0,'AIA=','2mqgji50',1,0,'',54,0,0),(8244,1945,7,262,0,'83.97.168.83',1140943906,1,0,1,1,1,1,'','','en el emulador , mirando en memoria : \nAlmacenamiento: \nAsignada -&gt;14.85MG \nlibre-&gt;14.09MG\nProgramas :\nAsignada-&gt;14.85\nLibre-&gt;9.18\n\nEn el pocket \nAlmacenamiento: \nAsignada -&gt;27.50MG \nlibre-&gt;23.28MG\nProgramas :\nAsignada-&gt;27.50\nLibre-&gt;18.37\n\nEl Programa se ejecuta en una SD card de 512 mg con 100 mg libres por lo menos .\n\n\n--------------------- editado -----------------------------\n\nAntonio , problema localizado .\nEsta en el acceso a la SD card . \n\nEl mismo programa sin tocar pasado a Storage ROM funciona a una velocidad decente .\nAhora la pregunta , se mantienen los datos en storage ROM ante Hard reset ?','',0,'AIA=','wof86go2',1,0,'',262,0,0),(8245,1948,4,13,0,'213.76.252.200',1140944894,1,0,1,1,1,0,'','Bitmap','Antonio,\n\nI create bitmap from resource like this:\n\n[code:2c87qtok]\nFunction TestBmp &#40;&#41;\n\n   Local oWnd &#58;= Nil\n\n   Define Window oWnd\n   @ 78, 20 BitMap oBmp Resource \'Info\' Size 130, 78 Pixel\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n[/code:2c87qtok]\n\nBitmap is not properly displayed. Bitmap size is about 10kB. I send for You original bitmap file and screen from PocketPC.\n\nRegards\nPawel','',0,'AIA=','2c87qtok',1,0,'',13,0,0),(8246,2,1,469,0,'83.144.71.203',1140945476,1,0,1,1,1,0,'','','Wow, that is cool!\n_______________\n[url=http&#58;//www&#46;trafficgorilla&#46;net/:2qcls9qg]Webmasters, click here for more traffic![/url:2qcls9qg]','',0,'EA==','2qcls9qg',1,0,'',469,0,0),(8247,1873,3,6,0,'87.11.236.33',1140950791,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1e43giwd]Enrico,\n\nI guess the right code is ... .or. cText == \"   -  -\" without using AllTrim().\n\nThe other expressions seem fine.[/quote:1e43giwd]\n\nI think not. If cText is an empty date it will be \"   -  - \" or \" / / \" (note the trailing space) and the exact comparison (==) will fail. Or am I wrong?\n\nEMG','',0,'gA==','1e43giwd',1,0,'',6,0,0),(8248,1797,3,6,0,'87.11.236.33',1140950846,1,0,1,1,1,1,'','','Please note that I haven\'t tried with the CENTER option.\n\nEMG','',0,'gA==','kp5itgq4',1,0,'',6,0,0),(8249,1797,3,2,0,'87.218.146.43',1140951484,1,0,1,1,1,1,'','','Enrico,\n\nBut that fix should check if Spinner is used, right ?','',0,'gA==','3qntswg4',1,0,'',2,0,0),(8250,1873,3,2,0,'87.218.146.52',1140951688,1,0,1,1,1,1,'','','Enrico,\n\nPlease notice that there are three spaces in front: \"   -  -\"\n\nIt looks as a picture for US phone numbers.','',0,'gA==','2jphb7j9',1,0,'',2,0,0),(8251,1797,3,6,0,'87.11.236.33',1140952026,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:338g1h31]Enrico,\n\nBut that fix should check if Spinner is used, right ?[/quote:338g1h31]\n\nOps! Right. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','338g1h31',1,0,'',6,0,0),(8252,1873,3,6,0,'87.11.236.33',1140952151,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:dcvch4kp]Enrico,\n\nPlease notice that there are three spaces in front: \"   -  -\"\n\nIt looks as a picture for US phone numbers.[/quote:dcvch4kp]\n\nOk, right. But what about ... .or. cText == \"  /  /\"?\n\nEMG','',0,'gA==','dcvch4kp',1,0,'',6,0,0),(8253,1948,4,2,0,'87.218.146.52',1140952680,1,0,1,1,1,1,'','','Pawel,\n\nThe bitmap color located at the pixel 0, 0 is used to select the transparent color. As you are using black at 0, 0 in your bitmap, then all black color is made transparent.\n\nChange your bitmap color at 0, 0, in example, like this:\n[url=http&#58;//imageshack&#46;us:3bpj2iz4][img:3bpj2iz4]http&#58;//img50&#46;imageshack&#46;us/img50/8472/info0mv&#46;jpg[/img:3bpj2iz4][/url:3bpj2iz4]\n\nand if you use the clause NOBORDER also:\n   @ 78, 20 BitMap Resource \'Info\' Size 130, 78 Pixel NOBORDER\n\nthen it looks like this:\n[url=http&#58;//imageshack&#46;us:3bpj2iz4][img:3bpj2iz4]http&#58;//img158&#46;imageshack&#46;us/img158/2160/pawel4wh&#46;jpg[/img:3bpj2iz4][/url:3bpj2iz4]','',0,'GA==','3bpj2iz4',1,0,'',2,0,0),(8254,1873,3,2,0,'87.218.146.52',1140952923,1,0,1,1,1,1,'','','Enrico,\n\n&gt; cText == \" / /\"\n\nIt looks as an empty date (please notice that AllTrim() was not needed). There are two spaces before the first \"/\" and none after the last \"/\".\n\nThat seems to be the return from GetWindowText() when the date is empty. (edit: not sure about this, as a space may be typed after)','',0,'GA==','96fodhtr',1,1140953911,'',2,1,0),(8255,1873,3,6,0,'87.11.236.33',1140953323,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1a2x7y3l]Enrico,\n\n&gt; cText == \" / /\"\n\nIt looks as an empty date (please notice that AllTrim() was not needed). There are two spaces before the first \"/\" and none after the last \"/\".\n\nThat seems to be the return from GetWindowText() when the date is empty.[/quote:1a2x7y3l]\n\nAre you sure that GetWindowText() returns \"  /  /\" without the two trailing spaces? If yes then ok.\n\nEMG','',0,'gA==','1a2x7y3l',1,0,'',6,0,0),(8256,1873,3,2,0,'87.218.146.52',1140953662,1,0,1,1,1,1,'','','Enrico,\n\nThe problem is that if a PICTURE is used that has a \"/\" or a \"-\" in the front, then the code will be wrong, as ::nPos should not be set to 1.\n\nThis may be the right code:\n[code:3j8ivgpf]\n      elseif Empty&#40; cText &#41; &#46;or&#46; RTrim&#40; cText &#41; == &quot;  /  /&quot; &#46;or&#46; ;\n         AllTrim&#40; cText &#41; == &quot;0&quot; &#46;or&#46; ;\n         RTrim&#40; cText &#41; == &quot;   -  -&quot;\n[/code:3j8ivgpf]\n\nWhat do you think ?','',0,'AIA=','3j8ivgpf',1,0,'',2,0,0),(8257,1948,4,13,0,'213.76.252.200',1140953925,1,0,1,1,1,0,'','','Antonio,\n\nthanks\n\nPawel','',0,'AIA=','269qenb3',1,0,'',13,0,0),(8258,1873,3,6,0,'87.11.236.33',1140954009,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2lsejeep]Enrico,\n\nThe problem is that if a PICTURE is used that has a \"/\" or a \"-\" in the front, then the code will be wrong, as ::nPos should not be set to 1.\n\nThis may be the right code:\n[code:2lsejeep]\n      elseif Empty&#40; cText &#41; &#46;or&#46; RTrim&#40; cText &#41; == &quot;  /  /&quot; &#46;or&#46; ;\n         AllTrim&#40; cText &#41; == &quot;0&quot; &#46;or&#46; ;\n         RTrim&#40; cText &#41; == &quot;   -  -&quot;\n[/code:2lsejeep]\n\nWhat do you think ?[/quote:2lsejeep]\n\nYes. Or just\n\n[code:2lsejeep]      elseif Empty&#40; cText &#41; &#46;or&#46; cText = &quot;  /  /&quot; &#46;or&#46; ;\n         AllTrim&#40; cText &#41; == &quot;0&quot; &#46;or&#46; ;\n         cText = &quot;   -  -&quot;\n         &#58;&#58;nPos = 1\n         &#58;&#58;SetPos&#40; &#58;&#58;nPos &#41;[/code:2lsejeep]\n\nEMG','',0,'gIA=','2lsejeep',1,0,'',6,0,0),(8259,1873,3,2,0,'87.218.146.52',1140954168,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:230cg0qd]\nYes. Or just\n[code:230cg0qd]      elseif Empty&#40; cText &#41; &#46;or&#46; cText = &quot;  /  /&quot; &#46;or&#46; ;\n         AllTrim&#40; cText &#41; == &quot;0&quot; &#46;or&#46; ;\n         cText = &quot;   -  -&quot;\n         &#58;&#58;nPos = 1\n         &#58;&#58;SetPos&#40; &#58;&#58;nPos &#41;[/code:230cg0qd]\n[/quote:230cg0qd]\n\nNo, because if there are spaces after the last \"/\" or \"-\" then ::nPos will not be set to 1 as it should.\n\nEdit: Or, you mean that because \"=\" just compare a portion. Anyhow, I prefeer to use RTrim() to notice what is done there.','',0,'gIA=','230cg0qd',1,0,'',2,0,0),(8260,1873,3,6,0,'87.11.236.33',1140954327,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3lb3e7r7][quote=&quot;EnricoMaria&quot;:3lb3e7r7]\nYes. Or just\n[code:3lb3e7r7]      elseif Empty&#40; cText &#41; &#46;or&#46; cText = &quot;  /  /&quot; &#46;or&#46; ;\n         AllTrim&#40; cText &#41; == &quot;0&quot; &#46;or&#46; ;\n         cText = &quot;   -  -&quot;\n         &#58;&#58;nPos = 1\n         &#58;&#58;SetPos&#40; &#58;&#58;nPos &#41;[/code:3lb3e7r7]\n[/quote:3lb3e7r7]\n\nNo, because if there are spaces after the last \"/\" or \"-\" then ::nPos will not be set to 1 as it should.\n\nEdit: Or, you mean that because \"=\" just compare a portion. Anyhow, I prefeer to use RTrim() to notice what is done there.[/quote:3lb3e7r7]\n\nOk.\n\nEMG','',0,'gIA=','3lb3e7r7',1,0,'',6,0,0),(8261,1945,7,2,0,'87.218.146.92',1140954519,1,0,1,1,1,1,'','','Jose Luis,\n\nSi, tienes razón, va a ser la velocidad de acceso a la SD card. En cuanto al reset acabo de hacer una prueba con el programa de Carles, y sí, se mantiene tras el reset.\n\nOtra solución sería trabajar fuera de la SD card y luego copiar al final los datos a ella por seguridad.','',0,'gIA=','2yfqsq31',1,0,'',2,0,0),(8262,1797,3,2,0,'87.218.146.150',1140954887,1,0,1,1,1,1,'','','Enrico,\n\nI have added a new DATA lSpinner, to use it at Method Paint()','',0,'gIA=','29x25i7z',1,0,'',2,0,0),(8263,1797,3,2,0,'87.218.146.150',1140955115,1,0,1,1,1,1,'','','[code:obtrjo81]\n&#46;&#46;&#46;\n      do case \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_CENTER &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_CENTER &#41; \n              if &#58;&#58;lSpinner\n                 ExtTextOut&#40; &#58;&#58;hDC, 1, &#40; &#58;&#58;nWidth&#40;&#41; - 7 - GetSysMetrics&#40; SM_CYHSCROLL &#41; &#41; / 2,; \n                    &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n              else     \n                 ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; / 2,;\n                   &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n              endif     \n              \n         case lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_RIGHT &#41; \n              SetTextAlign&#40; &#58;&#58;hDC, TA_RIGHT &#41; \n              if &#58;&#58;lSpinner\n                 ExtTextOut&#40; &#58;&#58;hDC, 1, &#58;&#58;nWidth&#40;&#41; - 7 - GetSysMetrics&#40; SM_CYHSCROLL &#41;,; \n                    &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41; \n              else      \n                 ExtTextOut&#40; &#58;&#58;hDC, 0, &#58;&#58;nWidth&#40;&#41; - 4,;\n                    &#123; 0, 0, &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nWidth&#40;&#41; &#125;, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n              endif      \n&#46;&#46;&#46;\n[/code:obtrjo81]','',0,'AIA=','obtrjo81',1,0,'',2,0,0),(8264,1797,3,6,0,'87.11.236.33',1140955228,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'AIA=','1tsge7np',1,0,'',6,0,0),(8265,1947,6,2,0,'87.218.146.150',1140955371,1,0,1,1,1,1,'','','William,\n\nUsa:\n\nlocal this := Self\n\n...\n\n... ACTION this:End() ...','',0,'AIA=','1au572hw',1,0,'',2,0,0),(8266,1945,7,262,0,'83.97.168.140',1140957979,1,0,1,1,1,1,'','','Antonio , tienes razon , esa será la opción , trabajar en ROM y salvar a SD , he mirado y con un reset a secas se mantienen los datos , pero con un \"Hard Reset \" (alguno he tenido que hacer ) se pierde todo , el PDA sa pone a Cero .\nMiraré la combinacion de programa en SD y datos en ROM a ver que tal ...\nGracias por tu tiempo.\nSaludos.\n\n--------------------- editado --------------------------------------\n\nCon el Programa en SD y datos en ROM la velocidad es decente , creo que optaré por copiar datos a rom al lanzar el programa y volcarlos a SD al salir del programa , o al hacer algún cambio importante ,( Grabar pedidos por ejemplo).\nsaludos.','',0,'AIA=','261vs9yj',1,0,'',262,0,0),(8267,1949,7,28,0,'87.218.46.222',1140965447,1,0,1,1,1,0,'','Petición','Hola Antonio.\n\nCreo que sería muy interesante el poder capturar el evento de cuando se abre el teclado y cuando se cierra para poder redimensionar la ventana correspondientemente y ponerle un scrollbar para poder meter en el área cliente el texto que estas editando.\n\nUn saludo','',0,'AIA=','3ugo7wlr',1,0,'',28,0,0),(8268,1949,7,2,0,'87.218.146.3',1140965995,1,0,1,1,1,1,'','','Paco,\n\nEstá implementado, mira el codeblock bSettingChange en Class TWindow','',0,'AIA=','jxybvzhb',1,0,'',2,0,0),(8269,1908,3,35,0,'65.188.6.143',1140968595,1,0,1,1,1,0,'','','Gentleman .. \n\nMy 2 cents worth here .. would very much like to have ( wish list ) a freeze column method and an index optimized for dbfcdx and ads.\n\nThe current version in FWH only has optimization for the 16 bit versions of ads and no freeze method  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nAnd yes I know there are other replacement browse classes out there .. but FWH Twbrowse is part of the FW library and I prefer to use that one because it can be compiled with Borland and Microsoft.\n\nAny luck if either of you ( james or enrico ) can make a contibution to the current FWH Twbrowse  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','3kedvwx0',1,0,'',35,0,0),(8270,1908,3,6,0,'87.11.236.33',1140968841,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:tqfqpedz]would very much like to have ( wish list ) a freeze column method[/quote:tqfqpedz]\n\nYou already have it in TCBrowse class.\n\n[quote=&quot;Rick Lipkin&quot;:tqfqpedz]and an index optimized for dbfcdx and ads.[/quote:tqfqpedz]\n\nWhan do you exactly mean with \"index optimized\"?\n\nEMG','',0,'gA==','tqfqpedz',1,0,'',6,0,0),(8271,1947,6,54,0,'201.128.94.20',1140969676,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2zpwruqg]William,\n\nUsa:\n\nlocal this := Self\n\n...\n\n... ACTION this:End() ...[/quote:2zpwruqg]\n\nFunciono perfecto.\n\nHabría algo que modificar en la clase para no utilizar this := self o es la unica solucion?\n\nSaludos y gracias por tu tiempo','',0,'gA==','2zpwruqg',1,0,'',54,0,0),(8272,1950,19,56,0,'217.251.230.69',1140969890,1,0,1,1,1,0,'','New version of BackupBuilder (formerly EasyBackup) released','Hello,\n\nBackupBuilder is a script driven, multilingual backup and restore tool.\nYou can call it from your applications or from the command line in order\nto give your customers the possibility to save and restore their datas.\nBackupBuilder has a lot of configuration switches so you can set it up the\nway you need it. You can define different backup tasks, the backups can\nbe password protected and you can use several path, date and time\nconstants in the scripts.\nBackupBuilder is freeware and available at <!-- w --><a class=\"postlink\" href=\"http://www.backupbuilder.com\">www.backupbuilder.com</a><!-- w -->.\n\nBeside several bugfixes I have added these features to the new version::\n- Send backup file to email recipient.\n- Language.ini will always be searched in the folder of BackupBuilder.exe.\n- To avoid conflicts EasyBackup was renamed to BackupBuilder.\n\nLet me know if you need any additional features.\n\nBest regards, Timm.\n\n    Timm Sodtalbers\n    Sodtalbers IT\n    <!-- w --><a class=\"postlink\" href=\"http://www.backupbuilder.com\">www.backupbuilder.com</a><!-- w -->\n    <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->\n    <!-- e --><a href=\"mailto:info@reportdesigner.info\">info@reportdesigner.info</a><!-- e -->','',0,'gA==','2mqaz3dp',1,0,'',56,0,0),(8273,1939,3,419,0,'196.25.255.210',1140972930,1,0,1,1,1,0,'','','OK - well - just a follow up so that I don\'t wast anybody elses time!\n\nI have just tried printing from LPT2 thru LPT7 using TDOSPrn( ) and no problem at all - works perfectly on my Novell Network (which is the same version and configuration as the customers).\n\nI will have to dig deeper to see what the problem is at the customer.\n\nFor now though - no problem with TDOSPrn( ).\n\nRegards,\n\nDale.','',0,'gA==','1qpbyulg',1,0,'',419,0,0),(8274,1951,4,51,0,'80.122.88.242',1140975356,1,0,1,1,1,0,'','Useful tools','Regards\nOtto\n\nThe Windows Mobile Developer Power Toys help you develop and test your Windows Mobile applications. N.B. These Power Toys are NOT supported..\n\nThe Power Toys include:\n\n\n\n\nEmulator ActiveSync Connection Tool - Allows Activesync to connect to your Emulator session from Visual Studio .NET 2003.\n\nActiveSync Remote Display - Display Pocket PC applications on your desktop or laptop without needing any device side configuration.\n\nCECopy - Command line tool for copying files to the device currently connected to desktop ActiveSync.\n\nConvert PPC DAT to SP XML - Command line tool for generating Smartphone CABWizSP XML docs from existing Pocket PC CAB files.\n\nHopper - User input stress simulator.\n\nJShell - UI version of the Platform Builder Target Control Window.\n\nPPC Command Shell - Command shell for the Pocket PC 2003 device.\n\nRAPI Debug - Displays detailed information about currently running processes.\n\nRAPI Start - Command line tool to remotely start an application on your Pocket PC from your desktop.\n\nTypeIt - Send characters/strings to the Smartphone 2003 Emulator via ActiveSync.','',0,'gA==','1eacellg',1,0,'',51,0,0),(8275,1951,4,51,0,'80.122.88.242',1140976429,1,0,1,1,1,0,'','','Append to buildce.bat\n\nPAUSE\ncecopy /is c:\\FWPPC\\SAMPLES\\test.exe        dev:\\temp\n\nand your files are copied automatically.\nSaves a lot of time!\n\nThen use  ActiveSync_Remote_Display to test the software remotely.\nRegards \nOtto','',0,'gA==','1y3fw7mj',1,0,'',51,0,0),(8276,1951,4,2,0,'87.218.146.3',1140979400,1,0,1,1,1,1,'','','Otto,\n\nThanks for the info <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3t9c3ndh',1,0,'',2,0,0),(8277,1939,3,2,0,'87.218.146.3',1140979536,1,0,1,1,1,1,'','','Dale,\n\nThanks for the feedback <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','220is1yc',1,0,'',2,0,0),(8278,1947,6,2,0,'87.218.146.3',1140979622,1,0,1,1,1,1,'','','William,\n\nEs la única solución cuando hay varios \"Self\" en ámbito.','',0,'gA==','7ct2rab7',1,0,'',2,0,0),(8279,1894,3,2,0,'87.218.146.3',1140983322,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','cgipoe66',1,0,'',2,0,0),(8280,1763,2,404,0,'85.155.209.91',1140984889,1,0,1,1,1,0,'','Gracias Antonio.','Lo acabo de probar, efectivamente, de momento funciona.\n\n¡Gracias!, de nuevo. José Mª','',0,'gA==','fuqlratk',1,0,'',404,0,0),(8281,1929,2,404,0,'85.155.209.91',1140985084,1,0,1,1,1,0,'','Eagle1 y Condor1','Existen dos librerias de Manuel Exposito: Eagle1 y Condor1. Que premiten el uso de SQL, muy facilmente.\n\nSaludos, José Mª','',0,'gA==','ixe5lpkk',1,0,'',404,0,0),(8282,1952,3,455,0,'195.97.105.161',1140987079,1,0,1,1,1,0,'','ALT key (pressed alone) on dialogs','Hi all,\nThis issue I have also posted on xHB NG, without any reply (yet)\n\nI have noticed a strange behaviour of the ALT key if pressed alone on a dialog.\nIt is somehow related with the system menu (Move/Close) but then it is not pop up the system menu and still have to press SPACE key after the ALT key.\nThe strangest behaviour is that it makes all the TSBUTTONS in the dialog go bananas!  They lose their colors and their bitmaps, and have to move the cursor over them one by one to make then reshow in normal color and redisplay their bitmaps.\n\nI do not find this behaviour normal, and did not expect that ALT key alone would have any kind of effect, except for windows, where the menus are activated.\n\nAny advise would be appreciated.\n\nKind regards to all\nEvans','',0,'gA==','xhd4tdza',1,0,'',455,0,0),(8283,1917,3,455,0,'195.97.105.161',1140987418,1,0,1,1,1,0,'','Re: .DBT memo files','[quote=&quot;EnricoMaria&quot;:2rt9qgln]I saw the more complete Przemek\'s answer. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG[/quote:2rt9qgln]\nThe answer from Przemek, confused me a little because I thought he was referring to creating DBF\'s with .DBT extension, and not really opening a DBF with an existing .DBT file.\nIt worked though, and when I wrote the previous \"Thank You\" post, I really meant it, not that Prezemk was wrong of course.\n\nThanks again.\nps. Please have a look at my post regarding the \"ALT\" key pressed alone on dialogs.\nKind regards\nEvans','',0,'gA==','2rt9qgln',1,0,'',455,0,0),(8284,1949,7,28,0,'87.218.46.222',1140987557,1,0,1,1,1,0,'','','ok, muchas gracias','',0,'gA==','k0gs9tmb',1,0,'',28,0,0),(8285,1952,3,6,0,'87.11.236.33',1140988203,1,0,1,1,1,1,'','Re: ALT key (pressed alone) on dialogs','This is the normal ALT key behavior (check with other apps).\n\nI don\'t use TSButtons and never see that strange effect on the FWH standard BtnBmp. That\'s why I think that it might be a bug of TSButtons.\n\nEMG','',0,'gA==','1n5s14sx',1,0,'',6,0,0),(8286,1953,6,87,0,'83.40.41.33',1140988492,1,0,1,1,1,0,'','Ado   ?','Hola Foro\n\n  Alguien tiene alguna idea de como poder meter un bmp, en un campo ole de una base access con ado  ?\n\n\n  Un saludo y gracias desde ya\n\nGabriel \n\n Granada (España)','',0,'gA==','8nsj20o8',1,0,'',87,0,0),(8287,1908,3,35,0,'65.188.6.143',1140988795,1,0,1,1,1,0,'','','Enrico\n\nI have never used tcbrowse .. so used to the standard listbox and the syntax of twbrowse.\n\nI looked at the examples ( for tcbrowse ) and it looks like a major re-write .. not what I had in mind.\n\nAs far as the ADS optimization .. in the twbrowse setfilter method one could optimize reccount with testing for the default rdd and use ADSKeyCount, ADSKeyNO, AdsGetRelKeyPos, OrdKeyCount, OrdKeyNo,OrdKeyGoTo\n\nPerhaps a column freeze and a goto col method would be nice as well.\n\nRick','',0,'gA==','19x0vyl7',1,0,'',35,0,0),(8288,1952,3,455,0,'195.97.105.161',1140989233,1,0,1,1,1,0,'','Re: ALT key (pressed alone) on dialogs','[quote=&quot;EnricoMaria&quot;:3rbf60k9]This is the normal ALT key behavior (check with other apps).\n\nI don\'t use TSButtons and never see that strange effect on the FWH standard BtnBmp. That\'s why I think that it might be a bug of TSButtons.\n\nEMG[/quote:3rbf60k9]\n\nIt also happens to CLASS TDBtnBmp (dbutton)\nBoth SBUTTONs and DBUTTONs, are discolored in the dialogs\nand lose their bitmaps... \n\nPerhaps MANUEL MERCADO and SANTIAGO PEREZ MARQUEZ can help,\nif the read this ... \n\nThanks anyway... I thought it only activated the system menu on windows, but you\'re right (again of course), it activates them on dialogs too.\nThe problem is the discoloring... and loss of the bitmaps...','',0,'gA==','3rbf60k9',1,0,'',455,0,0),(8289,1908,3,6,0,'82.61.144.212',1140989329,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:37qnhoo8]As far as the ADS optimization .. in the twbrowse setfilter method one could optimize reccount with testing for the default rdd and use ADSKeyCount, ADSKeyNO, AdsGetRelKeyPos, OrdKeyCount, OrdKeyNo,OrdKeyGoTo[/quote:37qnhoo8]\n\nWhy not using index scopes (OrdScope()) instead?\n\nEMG','',0,'gA==','37qnhoo8',1,0,'',6,0,0),(8290,1952,3,6,0,'82.61.144.212',1140989556,1,0,1,1,1,1,'','Re: ALT key (pressed alone) on dialogs','You might need of an updated version of that third party buttons.\n\nEMG','',0,'gA==','36g0a4hc',1,0,'',6,0,0),(8291,1859,3,455,0,'195.97.105.161',1140989642,1,0,1,1,1,0,'','','You are kindly requested to forward the code to me also [url]ebartzok@hol.gr[/url]\n\nThanks Evans','',0,'EA==','vygbpdws',1,0,'',455,0,0),(8292,1952,3,2,0,'87.218.146.3',1140999759,1,0,1,1,1,1,'','','Evans,\n\nIts fixed. Its a bug on the build that you are using. I email you the new files.','',0,'EA==','3nx2xu15',1,0,'',2,0,0),(8293,1953,6,168,0,'201.249.206.210',1141002840,1,0,1,1,1,0,'','','El objeto recordset yiene dos metodos para gestionar imagenes ( o data ole) .Estos metodos son AppendChunk y GetChuck. \n\nAppendChunk agrega a un texto largo o un campo de data binaria o en un objeto Parameter de la coleccion Parameters de un objeto Command.\n\nGetChunk lee la data desde la BD','',0,'EA==','2szkp39b',1,0,'',168,0,0),(8294,1952,3,394,0,'207.219.124.134',1141007665,1,0,1,1,1,0,'','Please send to me also','Please send to me also.\nThanks Mike.','',0,'EA==','1o4e0yfo',1,0,'',394,0,0),(8295,1370,3,213,0,'72.177.228.25',1141011207,1,0,1,1,1,0,'','','[quote=&quot;Marco Turco&quot;]I found the problem on msn.\nIt is a bug on Outlook 2003 sp1.\n\nMarco,\n\nI have customer with the same problem but they have sp2.  Did upgrading to sp2 fix your problem?\n\nThanks,\nRandal Ferguson','',0,'','2fqophwk',1,0,'',213,0,0),(8296,1370,3,303,0,'68.7.28.54',1141014481,1,0,1,1,1,0,'','','Randal,\n\nI think the problem is that SP2 fixes the problem when you are using Exchange Server, but if you are using STMP/POP3 it doesn\'t.\n\nJames','',0,'','1h4idisq',1,0,'',303,0,0),(8297,1947,6,54,0,'201.137.90.144',1141019632,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ax9b0tqe]William,\n\nEs la única solución cuando hay varios \"Self\" en ámbito.[/quote:ax9b0tqe]\n\nGracias mil','',0,'gA==','ax9b0tqe',1,0,'',54,0,0),(8298,1947,6,54,0,'201.137.90.144',1141020347,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2onv2k48]William,\n\nEs la única solución cuando hay varios \"Self\" en ámbito.[/quote:2onv2k48]\n\nAntonio,\n\nMe olvidaba de comentar que con la clase TSButton de MMercado no hay problemas al aplicar [color=blue:2onv2k48]::end()[/color:2onv2k48] en el action, hay algo en particular con la btnbmp?\n\nGracias de antemano','',0,'gg==','2onv2k48',1,0,'',54,0,0),(8299,1908,3,419,0,'196.25.255.194',1141021294,1,0,1,1,1,0,'','','Good Morning All!\n\nAnd all this time I thought it was just me that had issues with TWBROWSE <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards,\n\nDale.','',0,'gg==','35rsk9ug',1,0,'',419,0,0),(8300,1952,3,419,0,'198.54.202.210',1141021727,1,0,1,1,1,0,'','','Hello,\n\nListen - I\'m getting a bit worried here!\n\nThere seems to be a great many message threads being started recently (since the February 2006 Build) which detail \'minor\' bugs and \'fixes\' for them.\n\nI assume that all of these \'fixes\' will be contained in the next release of FWH  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nI mean - I hope that I am not making changes to the FWH source (to incorporate these \'fixes\' only to find that they have dissapeared after the installation of latest version of FWH  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> \n\nRegards,\n\nDale.','',0,'gg==','3ivmgurm',1,0,'',419,0,0),(8301,1934,7,449,0,'212.64.224.249',1141026392,1,0,1,1,1,0,'','','Hola,\n\nVeo q el fin de semana, hay quien sigue \'empantallado\'  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> .  Bueno, qui pongo el script de creacion de ficheros *.cab. Cuando lo ves, lo entiendes a la primera, pero caray, en la web de microsoft, te pegan un rollo patatero q a mi me costo de entender.\n\n[code:1ddmux5e]\n&#91;Version&#93;\nSignature = &quot;$Windows NT$&quot;\nProvider = &quot;SV - Pedidos&quot;\nCESignature = &quot;$Windows CE$&quot;\n\n&#91;CEStrings&#93;\nAppName = &quot;SV&quot;\nInstallDir = %CE1%\\%AppName%\n\n&#91;SourceDisksNames&#93;\n1 = , &quot;Common Files&quot;,,&#46;&#46;\n2 = , &quot;Tablas&quot;,, &#46;&#46;\\DAT\n\n&#91;SourceDisksFiles&#93;\nSv&#46;Exe = 1\nClient&#46;dbf = 2\nProduct&#46;dbf = 2\nCounter&#46;dbf = 2\nPed_Cab&#46;dbf = 2\nPed_Pos&#46;dbf = 2\nTest&#46;dbf = 2\n\n&#91;DefaultInstall&#93;\nCopyFiles = Inicial,Datos\nCEShortcuts = Shortcuts\n\n&#91;DestinationDirs&#93;\nInicial = 0, %InstallDir%\nDatos = 0, %InstallDir%\\DAT\nShortcuts = 0, %CE11%\n\n&#91;Inicial&#93;\n&quot;SV&#46;Exe&quot;, SV&#46;Exe\n\n&#91;Datos&#93;\n&quot;Client&#46;dbf&quot;, Client&#46;dbf\n&quot;Product&#46;dbf&quot;,Product&#46;dbf\n&quot;Counter&#46;dbf&quot;,Counter&#46;dbf\n&quot;Ped_Cab&#46;dbf&quot;,Ped_Cab&#46;dbf\n&quot;Ped_Pos&#46;dbf&quot;,Ped_Pos&#46;dbf\n&quot;Test&#46;dbf&quot;,Test&#46;dbf\n\n&#91;Shortcuts&#93;\n%AppName%,0,SV&#46;Exe\n[/code:1ddmux5e]\n\nPara crearlo con el CabWiz\n[code:1ddmux5e]CabWiz&#46;Exe SV&#46;Inf /err Sv&#46;Err /cpu PPC2003_ARM[/code:1ddmux5e]\n\n\nUn saludo.\nC.','',0,'AIA=','1ddmux5e',1,0,'',449,0,0),(8302,1934,7,449,0,'212.64.224.249',1141026542,1,0,1,1,1,0,'','','Jose Luis,\n\nGracias por tu \'caña\'  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> . La verdad, es q tienes razon en el hecho de volver a llamar el programa una vez q ya esta en marcha. Yo simplemente controlaba q si no podia abrir las tablas pues simplemente, mensaje y pa fuera, peroooo tu solucion creo q es mas \'limpia\' y sencilla. Voy a probarla y te cuento.\n\n\nGracias.\nC.','',0,'AIA=','3m6pk7yc',1,0,'',449,0,0),(8303,1949,7,449,0,'212.64.224.249',1141027416,1,0,1,1,1,0,'','','Antonio,\n\nYa vi el otro dia este cambio, pero creo que tendria de tener otra construccion, pasando el EVENTO q se produce y su valor\n\nActualmente\n\n[code:2lm12giw]   METHOD SettingChange&#40;&#41; INLINE ;\n          If&#40; &#58;&#58;bSettingChange != nil, Eval&#40; &#58;&#58;bSettingChange, SipInfo&#40;&#41; &#41;,&#41;[/code:2lm12giw]\n\nYo propondria (para futuros eventos)\n\n[code:2lm12giw]   METHOD SettingChange&#40;&#41; INLINE ;\n          If&#40; &#58;&#58;bSettingChange != nil, Eval&#40; &#58;&#58;bSettingChange, nWParam&#41;,&#41;[/code:2lm12giw]\n\n\nBueno, mas o menos eh !  Q os parece la idea ?\n\nSaludos\nC.','',0,'AIA=','2lm12giw',1,0,'',449,0,0),(8305,1927,3,22,0,'213.82.231.129',1141030035,1,0,1,1,1,0,'','','EMG,\nmany thanks, now it works!!!\n\nGianni','',0,'AIA=','1mvs7tvz',1,0,'',22,0,0),(8306,1954,6,54,0,'201.137.90.144',1141030293,1,0,1,1,1,1,'','TTrayIcon','Amigos,\n\nAlguien podria auxiliarme con esta clase para utilizarla con dialogos\n\nSimplemente manda error.\n\nError: BASE/1004 Class: \'CHARACTER\' has no exported method: EVAL\n\nComo siempre, agradeciendo de antemano','',0,'AIA=','o2wi1uux',1,0,'',54,0,0),(8307,1949,7,2,0,'87.218.146.3',1141031720,1,0,1,1,1,1,'','','Carles,\n\nImplementado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3iyfp7s5',1,0,'',2,0,0),(8308,1934,7,2,0,'87.218.146.3',1141031850,1,0,1,1,1,1,'','','Carles,\n\nGracias por el script. Me ha hecho gracia lo del \"rollo patatero\" de Microsoft. Como yo suelo decir: \"es el arte de complicarse la vida\" <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3proy4r3',1,0,'',2,0,0),(8309,1947,6,2,0,'87.218.146.3',1141031958,1,0,1,1,1,1,'','','William,\n\nQue se le pasa \"Self\" al evaluar el codeblock.','',0,'AIA=','m47yjt7p',1,0,'',2,0,0),(8310,1954,6,2,0,'87.218.146.3',1141032025,1,0,1,1,1,1,'','','William,\n\nPon un pequeño ejemplo de como reproducir el error. Gracias.','',0,'AIA=','zdcsc4ss',1,0,'',2,0,0),(8311,1952,3,2,0,'87.218.146.3',1141032088,1,0,1,1,1,1,'','','Dale,\n\n&gt; I assume that all of these \'fixes\' will be contained in the next release of FWH  \n\nYes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','4qxlco9s',1,0,'',2,0,0),(8312,1947,6,54,0,'201.137.90.144',1141033134,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:184xm8sn]William,\n\nQue se le pasa \"Self\" al evaluar el codeblock.[/quote:184xm8sn]\n\nAntonio,\n\nMil gracias por tu tiempo','',0,'gA==','184xm8sn',1,0,'',54,0,0),(8313,1954,6,54,0,'201.137.90.144',1141033198,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:geh0f4r2]William,\n\nPon un pequeño ejemplo de como reproducir el error. Gracias.[/quote:geh0f4r2]\n\nAntonio,\n\nGracias por tu tiempo\n\nLo he resuelto, error mio, mandaba un texto en lugar de un codeblock','',0,'gA==','geh0f4r2',1,0,'',54,0,0),(8314,1952,3,67,0,'62.235.24.202',1141039331,1,0,1,1,1,0,'','Antonio','I am sorry to pick in , but have you read the thread regarding xbrowse , bpasteof and using vscroll barr to append ?\n\nI am convinced that it is a bug , very easy to see with testxbrowse as described.\n\nFrank','',0,'gA==','11vnqme0',1,0,'',67,0,0),(8315,1955,6,77,0,'217.126.90.142',1141039414,1,0,1,1,1,0,'','ayuda con tsbrowse','Hola a todos, tengo una aplicación en la cual estoy utilizando el tsbrowse, pero quiero hacer como la txbrowse que es que en la primera columna me aparezca un bitmap indicandome en que linea estoy, pero no encuentro ninguna data que me indique la linea activa, estoy utilizando el tsbrowse en modo celled.\n\nGracias anticipadas.\nManolo\n<!-- w --><a class=\"postlink\" href=\"http://www.francesport.es\">www.francesport.es</a><!-- w -->','',0,'gA==','3osfi5mn',1,0,'',77,0,0),(8316,1908,3,303,0,'68.7.28.54',1141039903,1,0,1,1,1,0,'','','Rick,\n\nIt is really not easy to freeze colums in TWBrowse because it does not contain column objects--the entire line is contained in one codeblock and drawn by one Eval().\n\nTCBrowse was written to use column objects. This is what makes it easy to manipulate each column\'s properties; color, freezing, etc.\n\nSo, if you need more sophistication in a browse you are going to have to use one of the more advanced browses, TCBrowse, TSBrowse, or other.\n\nJames','',0,'gA==','5t2igs0u',1,0,'',303,0,0),(8317,1956,7,123,0,'81.39.239.66',1141043603,1,0,1,1,1,0,'','Quitar la \'X\' de una Window y un Dialog','Antonio,\n\n¿Hay alguna manera de evitar que aparezca la \'X\' de una Window o Dialog¿\n\n¿Algún sitio por donde comenzar a mirar?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','z2426scz',1,0,'',123,0,0),(8318,1956,7,28,0,'213.27.201.254',1141045170,1,0,1,1,1,0,'','','¿Has probado a crear la ventana con estilo WS_POPUP?\n\nNo se si aqui funcionará pero es una idea.\n\nUn saludo','',0,'gA==','133rl1wx',1,0,'',28,0,0),(8319,1952,3,2,0,'87.218.146.3',1141045519,1,0,1,1,1,1,'','','Frank,\n\nWe will review it asap,','',0,'gA==','z4hwqkln',1,0,'',2,0,0),(8320,1957,3,339,0,'200.222.117.194',1141046138,1,0,1,1,1,0,'','LISTBOX FROM TODBC','Some People Knows About This..\n\n\n   \n\nthanks \n\n\nmauricio','',0,'gA==','1sxew6cn',1,0,'',339,0,0),(8321,1876,6,228,0,'201.245.222.85',1141050127,1,0,1,1,1,1,'','No funcionan?','Antio cuando monte las libs y compile y genero el siguiente error?\n\nError: Unresolved external \'_hb_dynsymSymbol\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|HARBOURC\n\nEso no me sucede con las anteriores.\n\nFWH dic/05 + xharbour.','',0,'gA==','3pomzwme',1,0,'',228,0,0),(8322,1370,3,343,0,'204.57.111.194',1141052153,1,0,1,1,1,0,'','','I use Outlook 2003 sp2 with pop/smtp and imap ok. We do not have exchange but we host our own email server.','',0,'gA==','1k7xi1y3',1,0,'',343,0,0),(8323,1952,3,3,0,'86.205.61.182',1141052904,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1emsk257]Evans,\n\nIts fixed. Its a bug on the build that you are using. I email you the new files.[/quote:1emsk257]\n\nAntonio\n\nI have the same bug with Tsbutton and ALT key and i use xhb commercial. What has to be changed ?\n\nRichard','',0,'gA==','1emsk257',1,0,'',3,0,0),(8324,1370,3,303,0,'68.7.28.54',1141053077,1,0,1,1,1,0,'','','Gale,\n\nThanks for pointing out that it is only sometimes that it doesn\'t work with POP/SMTP.\n\nI did some searching on this issue and it appears that something gets messed up on a particular PC that causes the problem. It may be a registry issue. One user reported that after he added a new Hotmail account that MAPI stopped working. He removed the HOTMAIL account and MAPI still didn\'t work. Even removing and reinstalling Outlook didn\'t solve the problem. This sounds to me like something was changed in the registry which was not removed during the uninstall. It is too bad Microsoft hasn\'t seen fit to fix the problem. It seems like a serious issue to me.\n\nJames','',0,'gA==','3h1cxxvg',1,0,'',303,0,0),(8325,1956,7,123,0,'81.39.239.66',1141053545,1,0,1,1,1,0,'','','Hola Paco,\n\n[quote:2mlvq4e2]¿Has probado a crear la ventana con estilo WS_POPUP? [/quote:2mlvq4e2]\n\nPues es verdad... no había caido en ello.  Lo pruebo y te digo.\n\nGracias!\nJosé Luis Capel','',0,'gA==','2mlvq4e2',1,0,'',123,0,0),(8326,1958,7,449,0,'212.64.224.249',1141055984,1,0,1,1,1,0,'','El problema de tener ventanas abiertas...','Hola,\n\nGracias al colega Jose Luis Parajon, se me ha abierto un nuevo dolor de cabeza  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  Si tenemos una ventana principal y por ejemplo estamos en una segunda ventana o dialogo y el usuario vuelve a ejecutar la aplicacion, q ocurre? \n\nCon la funcion del foro StillRun() podemos controlar si la aplicacion, mas bien, la ventana principal, esta funcionando, y con dicha funcion ejecutamos la funcion SetForegrounWindow() para pasarla a primer plano, perooooo, realmente ponemos en un primer plano la ventana principal y NO la secundaria. \n\n[code:30baqi0m]\nHB_FUNC &#40;STILLRUN&#41; \n&#123; \n   HWND hWnd; \n   BOOL lRet = FALSE; \n   hWnd = FindWindow &#40;NULL,L&quot;SV Pedidos&quot; &#41;; \n   if &#40;hWnd&#41; \n   &#123; \n     SetForegroundWindow &#40; hWnd &#41;; \n   lRet = TRUE; \n   &#125; \n   hb_retl &#40;lRet&#41;;\n&#125;\n[/code:30baqi0m]\n\nHasta hoy, creo q la mejor solucion es mirar si la aplicacion ya esta ejecutandose, mostrar un simple mensaje de \'aplicacion ejecutandose\', y q el usuario espabile cerrandose sus ventanitas.\n\nSi alguien se encuentra con este problema y tiene una mejor solucion que quiera compartir, encantado  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos.\nC.','',0,'AIA=','30baqi0m',1,0,'',449,0,0),(8327,1952,3,61,0,'201.217.164.241',1141057183,1,0,1,1,1,0,'','','Evans:\n\nIn tsButton you must use de tsbutton.ch before Fivewin.ch and\nin the resource declaration the button must be OwnerDraw.\nThe tsbutton.lib must be before the FWH´s libs.\n\nPlease taste and tell me if everything go ok.\nSorry for my Indian English.\n\nBest regards\n\nRuben Fernandez.','',0,'AIA=','3yngzb1g',1,0,'',61,0,0),(8328,1955,6,21,0,'80.58.49.235',1141057262,1,0,1,1,1,1,'','','Hola\n\nYo lo uso de la siguiente forma\n[code:3exncm4m]Add Column To Browse oBrw Data \'\' Size 11 PIXELS \noBrw&#58;hBmpCursor  &#58;= oBmp[/code:3exncm4m]\n\nEspero que te ayude','',0,'AIA=','3exncm4m',1,0,'',21,0,0),(8329,756,1,27,0,'212.145.65.52',1141059298,1,0,1,1,1,1,'','SMS FIVEWIN','These people sell an aplication that permits sending sms with a batch file.\n<!-- m --><a class=\"postlink\" href=\"http://www.intellisoftware.co.uk\">http://www.intellisoftware.co.uk</a><!-- m --> \n\nI Fwrite from FW and Run : \n[SENDSMS 637777888  Rec:PRUEBA SL /Dir:ABADESA, Nº 12 /Ciudad:MADRID /Hora:19:15] to send an SMS\n************************************************\nFunction MakeSendSms(cSend,cTel)\nLocal oText\nLocal cText:=\'SENDSMS \'+cTel+ \' \"\'+cSend+\'\"\'\n\nIF FILE(\"PESSEND.BAT\")\nERASE PESSEND.BAT\nENDIF\n\noText:= TTxtFile():New(\"PESSEND.BAT\" )\n\nif oText:Open()\noText :Add(cText)\noText :Close()\nendif\n\nIF FILE(\"PESSEND.BAT\")\nWAITRUN(\"PESSEND.BAT\",2)\nENDIF\n\nRETURN NIL','',0,'','1dyjf3mz',1,0,'',27,0,0),(8330,1830,6,103,0,'200.164.92.242',1141061613,1,0,1,1,1,0,'','','Hola Antonio,\n\n    Disculpa la demora en responder, bueno las librerías son 2 y ellas son de Vagner Wirts, las cuales no tengo sus fuentes. Pero te comento que he descobierto el problema y estaba mismo en mi errorsys. Despues de varios testes consegui descobrir el problema y arreglarlo. Gracias por tu atención.\n\nSaludos,\n\nKleyber Derick','',0,'','31jlv66v',1,0,'',103,0,0),(8331,1873,3,375,0,'84.122.98.136',1141062447,1,0,1,1,1,1,'','','Could we use:?\nif .... .OR. (::oGet:type == \"D\" .AND. (cText == \"/  /\" .OR. cText == \"-  -\"))','',0,'','rstmuxea',1,0,'',375,0,0),(8332,1956,7,262,0,'212.89.4.94',1141062599,1,0,1,1,1,1,'','','Si funciona .\nOtra opcion es que hagas El dialogo mas grande que la pantalla y la centras , quedará como una ventana pero sin la X\n\n------------ editado --------------\nme refiero a dialogos','',0,'','2a8q1e5f',1,1141121001,'',262,1,0),(8333,1958,7,262,0,'212.89.4.94',1141062936,1,0,1,1,1,1,'','','Yo lo tengo solucionado  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\nLa ventana principal debe de ser ventana , el resto dialogos , cuando llamas a la aplicacion hacia delante te trae el ultimo dialogo activo y en cascada los demas .\nGarantizado 100*100 .\nEn la aplicacion que tengo ya en casi producción ninguno de los 10 viajantes se a quejado y mira que son torpes.. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','3o0wd9r8',1,0,'',262,0,0),(8334,1959,4,149,0,'62.104.188.43',1141064456,1,0,1,1,1,0,'','Linkerror with new harbour and fwppc','Hello,\n\nafter update the latest fwppc and harbour i have\n\nFiveCEC.lib(AYGSHELL.obj) : error LNK2019: unresolved external symbol SHGetDocumentsFolder referenced in function \"void __cdecl HB_FUN_SHGETDOCUMENTSFOLDER(void\n)\" (?HB_FUN_SHGETDOCUMENTSFOLDER@@YAXXZ)\n\nA solution for this problem?\n\nRegards,\nThomas','',0,'','bk1afh67',1,0,'',149,0,0),(8335,1952,3,2,0,'87.218.146.3',1141064486,1,0,1,1,1,1,'','','Richard,\n\nBasically this is the missing call:\n[code:rr1o8bbz]\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TButtonBmp\n\n   local nResult\n\n   do case\n      case nMsg == WM_UPDATEUISTATE  // Buttons were erased when pressing ALT\n           nResult = Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;       \n           &#58;&#58;Refresh&#40;&#41;\n           return nResult\n   endcase\n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;           \n[/code:rr1o8bbz]','',0,'AIA=','rr1o8bbz',1,0,'',2,0,0),(8336,1959,4,2,0,'87.218.146.3',1141064572,1,0,1,1,1,1,'','','Thomas,\n\nIn buildce.bat a new lib is used:\n\necho %vcdir%\\lib\\arm\\ceshell.lib  &gt;&gt; msvc.tmp','',0,'AIA=','j8glv1gq',1,0,'',2,0,0),(8337,1873,3,2,0,'87.218.146.3',1141064659,1,0,1,1,1,1,'','','Manu,\n\nEste valor: \"   -  -\" no es para fechas. Suele usarse en números de teléfono internacionales.','',0,'AIA=','3gph8idk',1,0,'',2,0,0),(8338,1957,3,2,0,'87.218.146.3',1141064953,1,0,1,1,1,1,'','','Mauricio,\n\nYou may review samples\\TestOdbc.prg','',0,'AIA=','2uzw0z8b',1,0,'',2,0,0),(8339,1876,6,2,0,'87.218.146.3',1141065064,1,0,1,1,1,1,'','','Leandro,\n\nAñade esta función a tu aplicación:\n[code:1ts6g27s]\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n[/code:1ts6g27s]','',0,'AIA=','1ts6g27s',1,0,'',2,0,0),(8340,1938,6,2,0,'87.218.146.3',1141065258,1,0,1,1,1,1,'','','Dante,\n\nPuedes usar un objeto TMetaFile, que se visualiza como un control y puede llevar un metafile de fondo y sobre él situarle los controles que quieras:\n\n@ ..., ... GET ... OF oMetaFile\n\nEs decir, haciendo que ese control sea el padre (contenedor) de los otros.','',0,'AIA=','219uq290',1,0,'',2,0,0),(8341,1830,6,2,0,'87.218.146.3',1141065307,1,0,1,1,1,1,'','','Kleyber,\n\nbien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3g5bwqb5',1,0,'',2,0,0),(8342,1955,6,77,0,'217.126.90.142',1141065417,1,0,1,1,1,0,'','','gracias fgondi, funciona de perlas..\n\nSaludo2.','',0,'AIA=','9f99iotu',1,0,'',77,0,0),(8343,1908,3,34,0,'68.4.154.81',1141066979,1,0,1,1,1,1,'','TWBrowse confusing display','Here is another item that I find interesting with TWBrowse.  If you have a database, set the filter, and gotop( ), even if there are no records, the browse shows an empty record.  My clients assume this is a blank ready to be filled in ( I require an Add button be pressed to include a new record ), and they fill in the data, hit Save, and it disappears.\n\nYes, I can program around this, but I often wonder why anything shows up if there are no records.\n\nEssentially, its the highlight bar frame that displays.\n\nTim','',0,'AIA=','1a81oijx',1,0,'',34,0,0),(8344,1908,3,6,0,'82.58.168.31',1141067725,1,0,1,1,1,1,'','Re: TWBrowse confusing display','I see no blank row in the following sample. Do you?\n\n[code:6pox92j1]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 1, 1 LISTBOX oBrw FIELDS\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL[/code:6pox92j1]\n\nEMG','',0,'AIA=','6pox92j1',1,0,'',6,0,0),(8345,1959,4,149,0,'62.104.188.43',1141067776,1,0,1,1,1,0,'','','Hello Antonio,\n\nmany thanks, it works.\n\nRegards,\nThomas','',0,'AIA=','193dubjf',1,0,'',149,0,0),(8346,1952,3,3,0,'82.64.213.196',1141071844,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1c2risdp]Richard,\n\nBasically this is the missing call:\n[code:1c2risdp]\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TButtonBmp\n\n   local nResult\n\n   do case\n      case nMsg == WM_UPDATEUISTATE  // Buttons were erased when pressing ALT\n           nResult = Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;       \n           &#58;&#58;Refresh&#40;&#41;\n           return nResult\n   endcase\n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;           \n[/code:1c2risdp][/quote:1c2risdp]\n\nAntonio,\n\nThank you \n\nIt works OK now\n\nIf anyone needs to change the tsbutton class, do not forget to add the following\n\n#define WM_UPDATEUISTATE 0x0128 \n\nRichard','',0,'gIA=','1c2risdp',1,0,'',3,0,0),(8347,1960,6,341,0,'200.127.97.186',1141072039,1,0,1,1,1,0,'','Ayuda WMF Metafile con fondo negro','Estimado Colegas\n\nQuiero Mostrar un archivo wmf , el que trae de ejemplo fivewin y\nme aparece un recuadro negro,Puedo mostrar archivos con\nextension EMF\n\n\n#include \"FiveWin.ch\"\n\n\nfunction meta()\n\n\n  local  Odlg, odeliv\n\n   DEFINE WINDOW oDlg TITLE \"Database LAB\"\n\n@ 1, 1  metafile  odeliv file \"invoice.wmf\" of odlg \n\n  ACTIVATE WINDOW oDlg maximized  \n\n\n return nil','',0,'gIA=','3icisy02',1,0,'',341,0,0),(8348,1960,6,2,0,'80.32.22.38',1141075987,1,0,1,1,1,1,'','','FWH actualmente no soporta ficheros WMF, sólo EMF. Es una limitación del API de Windows de 32 bits.\n\nSin embargo, el próximo build de FWH de Marzo soporta ficheros WMF también <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','24hqea2b',1,0,'',2,0,0),(8349,1585,20,446,0,'87.3.36.219',1141079932,1,0,1,1,1,0,'','Stampa file RTF','Scusate ragazzi, ma ho le idee un po\' confuse, ho l\'esigenza di accodare un file rtf ad una stampa in corso (su pdf), naturalmente ho un oggetto oPrn già aperto ma non so come fare a stampre il file rtf.\nPremetto che nel file rtf ci sono anche delle immagini, a volte come oggetto, a volte come collegamento.\nHo visto la ClasseModificataConPreview postata da Silvio ma non visualizza né stampa le immagini.\nAvete qualche suggerimento ?\n\ngrazie\nRoberto','',0,'gIA=','3g1dk9ly',1,0,'',446,0,0),(8350,1585,20,6,0,'82.58.168.31',1141080276,1,0,1,1,1,1,'','Re: Stampa file RTF','Guarda com\'è implementato il metodo TRichEdit:Print() e usa la chiamata alla funzione REPrint() all\'interno della tua stampa.\n\nEMG','',0,'gIA=','iz7wvyw0',1,0,'',6,0,0),(8351,1957,3,339,0,'200.222.117.194',1141080816,1,0,1,1,1,0,'','','thanks antonio...\n\n\n   This Sample testodbc.prg using Class todbcdirect Right. but i don´t Want Using This Class Because Create TEMP DBF File OK.\n\n    My Trouble Are When Using This Class With BIG DATABASE..\n\n\n   Do you Knows Other Class..\n\n\nThanks Again , Mauricio','',0,'gIA=','257j7suw',1,0,'',339,0,0),(8352,1585,20,446,0,'87.3.36.219',1141081494,1,0,1,1,1,0,'','','Grazie Enrico,\nHo visto, ma il primo parametro della funzione RePrint è l\'handle della finestra. Io invece non ho il file visualizzato in una finestra, lo leggo direttamente dal disco.\nE\' possibile sostituire l\'handle della finestra con l\'handle del file ?\nOppure passare direttamente il nome del file ?\ndove si trova questa funzione rePrint ?\n\nRoberto','',0,'gIA=','23w5c6j8',1,0,'',446,0,0),(8353,1957,3,2,0,'80.32.22.38',1141082012,1,0,1,1,1,1,'','','Mauricio,\n\nPlease search for ADO on these forums as it is a better choice than using ODBC.','',0,'gIA=','2l0z1fy7',1,0,'',2,0,0),(8354,1585,20,6,0,'82.58.168.31',1141082334,1,0,1,1,1,1,'','','Purtroppo il sorgente non è fornito. Magari potresti creare una finestra nascosta.\n\nEMG','',0,'gIA=','1wljzzo7',1,0,'',6,0,0),(8355,1957,3,339,0,'200.222.117.194',1141083018,1,0,1,1,1,0,'','','thanks antonio','',0,'gIA=','ezezj3o2',1,0,'',339,0,0),(8356,1585,20,446,0,'87.3.36.219',1141083779,1,0,1,1,1,0,'','','Prima di cominciare a fare dei test, sai dirmi se è in grado di stampare le immagini presenti nel file rtf ?','',0,'gIA=','1j1fpydx',1,0,'',446,0,0),(8357,1585,20,6,0,'82.58.168.31',1141084251,1,0,1,1,1,1,'','','Penso di sì (altrimenti non avrebbe senso) ma non ho mai provato, mi dispiace.\n\nEMG','',0,'gIA=','2razrsbs',1,0,'',6,0,0),(8358,1961,2,341,0,'200.127.97.186',1141089924,1,0,1,1,1,0,'','AyudaAntonio en clipper tambien WMF Metafile con fondo negro','Estimado Colegas\n\nQuiero Mostrar un archivo wmf , el que trae de ejemplo fivewin y\nme aparece un recuadro negro , Puedo mostrar archivos con\nextension EMF.\n\nVer FW2.4\n\n\n#include \"FiveWin.ch\"\n\n\nfunction meta()\n\n\nlocal Odlg, odeliv\n\nDEFINE WINDOW oDlg TITLE \"Database LAB\"\n\n@ 1, 1 metafile odeliv file \"invoice.wmf\" of odlg\n\nACTIVATE WINDOW oDlg maximized\n\n\nreturn nil','',0,'gIA=','351o9atb',1,0,'',341,0,0),(8359,1436,3,339,0,'200.222.117.194',1141090520,1,0,1,1,1,0,'','','Hi enrico..\n\nDo you Know , Where Find Mtehods and DATA from this Class..\n\n\nCREATEOBJECT( \"ADODB.Recordset\" )\n\n\nThanks','',0,'gIA=','3ao8jmoz',1,0,'',339,0,0),(8360,1955,6,203,0,'200.107.2.69',1141094154,1,0,1,1,1,1,'','','Hola Fernando\n\nEspero me puedas dar una mano, estoy utilizando tsbrowse con arreglos\ny deseo en una ultima columna poner el resultado del producto de unas dos anteriores\nes parte del código\n\nADD COLUMN TO BROWSE oBrw  DATA oBrw:nAt ;  // array element number\n     HEADER \"No\"\n\n   ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 1 ;\n   HEADER \"C¢digo\" WIDTH 70 EDITABLE ;\n   ALIGN DT_LEFT ;\n   VALID { | NumArt | ValArtCap( NumArt , oBrw, aTestData ) } ;\n   MOVE DT_MOVE_RIGHT;\n   COLORS CLR_HBLUE,CLR_HGRAY \n\n\n   ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 2;\n   HEADER \"Descripci¢n\" WIDTH 250 ;\n   ALIGN DT_LEFT ;\n   MOVE DT_MOVE_RIGHT;\n   COLORS CLR_RED,CLR_HGRAY\n\n   ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 3;\n   HEADER \"Cantidad\" WIDTH 60 EDITABLE ;\n   ALIGN DT_RIGHT ;\n   MOVE DT_MOVE_RIGHT;\n   COLORS CLR_WHITE,CLR_HGRAY\n\n   ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 4;\n   HEADER \"Precio\" WIDTH 60 EDITABLE ;\n   ALIGN DT_RIGHT ; \n   MOVE DT_MOVE_NEXT ;\n   COLORS CLR_WHITE,CLR_HGRAY\n\n   ADD COLUMN TO BROWSE oBrw ARRAY ELEM 5  ;\n   HEADER \"Total\" WIDTH 60 EDITABLE ;\n   ALIGN DT_RIGHT ;\n   VALID { | uVar | sumatot(uVar, oBrw, aTestData ) } ;\n   MOVE DT_MOVE_DOWN ;\n   COLORS CLR_WHITE,CLR_HGRAY\n\nSaludos\nOscar','',0,'gIA=','pmyxy9kf',1,0,'',203,0,0),(8361,1962,6,141,0,'200.88.94.12',1141096321,1,0,1,1,1,1,'','FWH24 y xHarbour 0.99.50','Hola a todos,\n\n¿Son compatibles?  ¿Se puede?\n\nQuise \"saltar\" de xHarbour 0.99.3 a 0.99.50 y todo compila bien, pero un desastre la ejecución.... hasta del mas simple y tonto de los samples !\n\n¿No se puede?... ¿Necesito algo que no tengo? ¿Tengo que cambiar a Fivehc.lib?\n\nAyudenme!','',0,'gIA=','t1wmc65s',1,0,'',141,0,0),(8362,1963,6,439,0,'201.221.37.18',1141097122,1,0,1,1,1,0,'','La Clase TExcel me da un error &quot;No está Excel...&quot;','Hola,\n\nEstoy probando los ejemplos de la clase TExcel y me da un mensaje siempre antes de hacer lo que cada ejemplo hace, el mensaje es:\n\"No está Excel instalado en esta PC\" que se encuentra en este método de la clase:\n\nMETHOD NEW()  CLASS TExcelScript\n      ::lExcel  := .T.\n      TRY\n        ::oExcel := GetActiveObject( \"Excel.Application\" )\n        ::oClip:=TClipBoard():New()\n        ::oClip:Clear()\n      CATCH\n         TRY\n            ::oExcel := CreateObject( \"Excel.Application\" )\n            ::oClip:=TClipBoard():New()\n            ::oClip:Clear()\n         CATCH\n            Alert( \"No está Excel Instalado en esta Pc.\" )  //acá está\n            ::lExcel  := .F.\n         END\n      END\n      ::aExcelCols := {}\nRETURN( Self )\n\nPorqué me hace este problema, siendo que luego abre Excel perfectamente y me arma la planilla?\nAgradezco cualquier ayuda.\n\nJosé','',0,'gIA=','2ladhzcl',1,0,'',439,0,0),(8363,1963,6,439,0,'201.221.37.18',1141097203,1,0,1,1,1,0,'','idem','A titulo informativo les digo que este problema me lo produce utilizando Windows XP y Microsoft Office 2003.\n\nGracias.','',0,'gIA=','3ae823k3',1,0,'',439,0,0),(8364,1962,6,2,0,'80.32.22.38',1141108078,1,0,1,1,1,1,'','','Julio,\n\nNecesitas actualizarte a la versión 2.7 de FWH. Te he enviado un email.','',0,'gIA=','e39zm100',1,0,'',2,0,0),(8365,1958,7,449,0,'212.64.224.249',1141110949,1,0,1,1,1,0,'','','Jose Luis, \n\nMe alegro q te funcione. Yo tengo el mismo sistema Una ventana principal y el resto dialogos, pero me temo q no  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  Este sencillo ejemplo muestra como lo hago.\n\n[code:2qslac0e]\n#include \'FWCE&#46;ch\'\n#include \'winapi&#46;ch\'\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oWnd\n\n   IF StillRun&#40;&#41;\n      RETU NIL\n   ENDIF\n\n   DEFINE WINDOW oWnd TITLE &quot;MiVentana&quot;\n   ACTIVATE WINDOW oWnd ON INIT IniDlg01&#40;&#41;\n\nRETU NIL\n\n\nSTATIC FUNCTION IniDlg01&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg TITLE \'Dlg01\' SIZE 200,100 COLOR CLR_BLACK, CLR_RED\n\n*        oDlg&#58;nStyle &#58;= nOR&#40; DS_MODALFRAME, WS_POPUP, WS_BORDER, WS_SYSMENU &#41;\n\n        @1,4 BUTTON \'Salir\' OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg CENTERED\n\nRETU NIL\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC &#40;STILLRUN&#41;\n&#123;\n   HWND hWnd;\n   BOOL lRet = FALSE;\n   hWnd = FindWindow &#40;NULL,L&quot;MiVentana&quot;&#41;;\n   if &#40;hWnd&#41;\n   &#123;\n      SetForegroundWindow &#40; hWnd &#41;;\n      lRet = TRUE;\n   &#125;\n   hb_retl &#40;lRet&#41;;\n&#125;\n\n\n#pragma ENDDUMP\n[/code:2qslac0e]\n\nQuizas es la funcion SetForegroundWindow() q no trae a un primer plano la ventana activa ?\n\nNota: Ya se que muchos usuarios, como tus viajantes, son torpes, pero coñe, si tan torpes son, q carajo hacen con una Pocket ?  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nSaludos.\nC.','',0,'AIA=','2qslac0e',1,0,'',449,0,0),(8366,1436,3,6,0,'82.59.197.178',1141114424,1,0,1,1,1,1,'','','On the MSDN.\n\nEMG','',0,'AIA=','o5mei5fu',1,0,'',6,0,0),(8367,1964,4,6,0,'82.59.197.178',1141116507,1,0,1,1,1,1,'','Ole','Will CreateObject() be implemented in FWPPC? I would want to show IE in a window.\n\nEMG','',0,'AIA=','2ngtjyiy',1,0,'',6,0,0),(8369,1956,7,123,0,'81.39.239.66',1141117318,1,0,1,1,1,0,'','','Paco, José Luis,\n\nPara una Window el estilo WS_POPUP no funciona como en un Dialog.\n\nAntonio?\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','b0yh1o9i',1,0,'',123,0,0),(8370,1958,7,262,0,'83.97.168.140',1141120894,1,0,1,1,1,1,'','','Bueno , primero decir que yo tengo todos los dialogos desde recursos , cuando descubrí el problema cambié todas las ventanas por dialogos y como no existian los de codigo ..... .mira a ver si ese es el problema , por que yo tengo un codigo clavado al tuyo y no le veo problema .\n\nRespecto a lo del uso de pocket por viajantes , cosa de marketing empresarial ( la competencia los lleva ) y de rapidez , mandas el envio delante del cliente , le dices el importe y al dia siguiente en tienda .\n\nHe hecho este cambio al stillrun( cTitulo) , aunque no lo he probado aun.... \n\n[code:3ukmy3a5]\nHB_FUNC &#40;STILLRUN&#41;\n&#123;\n   HWND hWnd;\n   BOOL lRet = FALSE;\n   hWnd = FindWindow &#40;NULL,AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41; &#41;;\n   if &#40;hWnd&#41;\n   &#123;\n   SetForegroundWindow &#40; hWnd &#41;;\n   lRet = TRUE;\n   &#125;\n   hb_retl &#40;lRet&#41;;\n&#125;\n[/code:3ukmy3a5]\n\nSaludos','',0,'AIA=','3ukmy3a5',1,0,'',262,0,0),(8371,1934,7,470,0,'80.58.45.107',1141120940,1,0,1,1,1,0,'','','Hola a todos!\nRespecto a la aplicación que nos ha enviado Carles , me gustaría saber como ha asociado el icono al ejecutable??\n\nYo tengo el siguiente fichero .ini  y .bat\n\n****fichero.ini\n[CEAppManager] \nVersion = 1.0 \nComponent = WAGRIPK\n\n[WAGRIPK]\nDescription = Version de WAGRI para pocket\nIconFile = ICONO.ICO\nIconIndex = 0\nDeviceFile = WAGRIPK.Exe \nCabFiles = WAGRIPK.CAB\n\n*****fichero .bat \nezsetup -l spanish -i ezsetup.ini -r readme.txt -e licencia.txt -o WAGRIPK.exe\n\nEl instalador se me crea correctamente y al ejecutarlo me instala la aplicación en la pocket pero no le llegar a asociar el icono que le he especificado, por lo que la aplicación me aparece con el icono de ejecutable de windows.\n\nICONO.ICO lo tengo en el mismo directorio que WAGRIPK.CAB, EZSETUP.exe...(todos los ficheros están en el mismo directorio) , es un icono de 32x32 (he probado también con 16x16 y tampoco funciona). \n\n¿¿Hace falta algún formato específico para el icono??\n\nSeguramente será una chorrada por lo que no funciona, pero si alguien me puede ayudar le estaría agradecido.\n\nMuchas Gracias.','',0,'','1krpdetp',1,0,'',470,0,0),(8372,1958,7,449,0,'212.64.224.249',1141121158,1,0,1,1,1,0,'','','Jose Luis,\n\nPues el ejemplo q hay mas arriba, si lo pruebas, estando en la caja de dialogo, vuelves a iniciar el programa, y se inicia peroooo activando la ventana principal.  \n\nUhmmm, seguiremos probando..\n\nGracias y un saludo.\nCarles.','',0,'','4gnry601',1,0,'',449,0,0),(8373,1934,7,449,0,'212.64.224.249',1141121428,1,0,1,1,1,0,'','','Hola,\n\nQ icono te refieres ? al ejecutable de la aplicacion pocket o al ejecutable de la instalacion ?\n\n\nSaludos.\nC.','',0,'','1z9igxxs',1,0,'',449,0,0),(8375,1934,7,470,0,'80.58.45.107',1141122851,1,0,1,1,1,0,'','','al icono de la aplicación en la pocket','',0,'','1vvsx5dd',1,0,'',470,0,0),(8376,1585,20,49,0,'62.13.172.78',1141122985,1,0,1,1,1,1,'','','si stampa le immagini nella versione di Ozs dove appunto c\'è quella funz di inserimento\nnella nuova versione di Linares non l\'ho vista ancora','',0,'','66szenu9',1,0,'',49,0,0),(8377,1585,20,446,0,'87.3.196.155',1141124938,1,0,1,1,1,0,'','','ciao a tutti\ndai primi test saltano fuori due problemi:\n\n1. se lancio l\'esempio TestRich che trovo nella cartella Samples di FWH e provo a caricare un file RTF da disco esce il seguente errore:\n\"unrecoverable error 9010: hb_xfree() invalid pointer 004ec06e select the file\"\n\n2. se inserisco la classe TRichEdit() nel mio programma non riesco a scrivere nulla tranne che i numeri\n\ndove sbaglio ?\n\nRoberto','',0,'','1umr1px7',1,0,'',446,0,0),(8378,1585,20,6,0,'82.59.197.178',1141125484,1,0,1,1,1,1,'','','[quote=&quot;chiaiese&quot;:39ly6ihe]2. se inserisco la classe TRichEdit() nel mio programma non riesco a scrivere nulla tranne che i numeri[/quote:39ly6ihe]\n\nConfermo. Ora lo segnalo...\n\nEMG','',0,'gA==','39ly6ihe',1,0,'',6,0,0),(8379,1934,7,449,0,'212.64.224.249',1141125583,1,0,1,1,1,0,'','','En el fichero de recursos genera una entrada con el nombre de tu aplicacion ICON &lt;fichero.ico&gt;\n\n[code:3vm703hb]SV ICON &quot;TApp&#46;ico&quot;[/code:3vm703hb]\n\nSaludos.\nC.','',0,'AIA=','3vm703hb',1,0,'',449,0,0),(8380,1966,3,6,0,'82.59.197.178',1141125719,1,0,1,1,1,1,'','Bug in TRichEdit','This is the sample. Try to hit any alphabetic key. It will be rejected:\n\n[code:3ewa7inv]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Richedit&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hDll &#58;= LOADLIBRARY&#40; &quot;RICHED20&#46;DLL&quot; &#41;\n\n    LOCAL oDlg\n\n    LOCAL oRich, cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 RICHEDIT oRich VAR cVar\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oRich &#41;;\n             CENTER\n\n    FREELIBRARY&#40; hDll &#41;\n\n    RETURN NIL[/code:3ewa7inv]\n\nEMG','',0,'AIA=','3ewa7inv',1,0,'',6,0,0),(8381,1967,7,123,0,'81.39.239.66',1141126486,1,0,1,1,1,0,'','oControl en Window','Antonio,\n\nVeo que no está la data oControl en la clase Window. ¿Como puedo hacer que un control de una WINDOW tenga alineación cliente?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'AIA=','3rzb0h6c',1,0,'',123,0,0),(8382,1955,6,21,0,'80.58.49.235',1141127311,1,0,1,1,1,1,'','','Hola Oscar,\n\nYo haría lo siguiente:\n\nLa última columna (la del total) la declararía de la siguiente forma:\n[code:brlx1nfz]ADD COLUMN TO BROWSE oBrw Data sumatot&#40;oBrw &#41; ; \nHEADER &quot;Total&quot; WIDTH 60 EDITABLE ; \nALIGN DT_RIGHT ; \nMOVE DT_MOVE_DOWN ; \nCOLORS CLR_WHITE,CLR_HGRAY [/code:brlx1nfz]\n\nSiendo SumaTot:\n[code:brlx1nfz]func sumatot&#40;oBrw &#41;\nlocal aArray, nAt\naArray &#58;= oBrw&#58;aArray\nnAt    &#58;= oBrw&#58;nAt\nif nAt=0 &#46;or&#46; nAt&gt;len&#40;aArray&#41;\n  return 0\nendif\nReturn aArray&#91;nAt, 3&#93;+aArray&#91;nAt, 4&#93;[/code:brlx1nfz]','',0,'AIA=','brlx1nfz',1,0,'',21,0,0),(8383,1935,6,21,0,'80.58.49.235',1141128100,1,0,1,1,1,1,'','','Hola Antonio,\n\nPuedes mandar el código de como defines la columna del checkbox.\nEn la versión 7 cambia con respecto a las anteriores\n\nPor ejemlo:\n[code:2ci61210]      ADD COLUMN TO oBrw&#91; 4 &#93;;\n          HEADER &quot;Married&quot; ;\n          SIZE 25 PIXELS ;\n          DATA FieldWblock&#40; &quot;Married&quot;, Select&#40;&#41; &#41; ;\n          COLORS CLR_BLACK,CLR_NBLUE ;\n          3DLOOK TRUE CHECKBOX ;          // Editing with Check Box\n          ALIGN DT_CENTER, DT_VERT ;      // Cells centered, Header Vertical\n          EDITABLE MOVE DT_MOVE_RIGHT[/code:2ci61210]','',0,'AIA=','2ci61210',1,0,'',21,0,0),(8384,1955,6,203,0,'200.107.17.28',1141130843,1,0,1,1,1,1,'','','Gracias Fernando\n\nComo siempre ayudando a los que te necesitan\nfunciona OK.\n\n\nSaludos\n Oscar','',0,'AIA=','3ou60oej',1,0,'',203,0,0),(8385,1968,7,123,0,'81.39.239.66',1141131880,1,0,1,1,1,0,'','Area cliente en FWPPC','Hola,\n\n¿Como puedo averiguar el area cliente de una WINDOW y por extensión de un Control?\n\nParece ser que el método GetCliRect no está implementado.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2d5dmzqz',1,0,'',123,0,0),(8386,1969,7,449,0,'212.64.224.249',1141132024,1,0,1,1,1,0,'','Error en MGet','Hola,\n\nCon el ejemplo TestMemo se puede reproducir. Si se esta dentro del Get y se pulsa la tecla ESCAPE...\n\n[code:2i0n9exj]\nMessage not found\nTWINDOW&#58;CHILDLEVEL\nstack calls&#58;\n__ERRRT_SBASE&#40;0&#41;\nHBOBJECT&#58;ERROR&#40;179&#41;\n__EVAL&#40;105&#41;\nHBOBJECT&#58;MSGNOTFOUND&#40;0&#41;\nTWINDOW&#58;CHILDLEVEL&#40;169&#41;\nTWINDOW&#58;KEYCHAR&#40;0&#41;\nTWINDOW&#58;HANDLEEVENT&#40;0&#41;\nTWINDOW&#58;HANDLEEVENT&#40;0&#41;\nWINRUN&#40;0&#41;\nTWINDOW&#58;ACTIVATE&#40;0&#41;\nMAIN&#40;20&#41;\n[/code:2i0n9exj]\n\n\nSaludos.\nC.','',0,'AIA=','2i0n9exj',1,0,'',449,0,0),(8387,1964,4,2,0,'80.32.22.38',1141132410,1,0,1,1,1,1,'','','Enrico,\n\nYes, we may try to implement it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','36hjagcn',1,0,'',2,0,0),(8388,1455,4,68,0,'203.45.161.80',1141132435,1,0,1,1,1,1,'','','Antonio,\nSorry for the delay.  I\'ll recheck and retest my code with the latest FWPPC and Harbour and let you know...\nregards','',0,'AIA=','2x12v8og',1,0,'',68,0,0),(8389,1968,7,449,0,'212.64.224.249',1141132783,1,0,1,1,1,0,'','','Hola\n\nPrueba GetCoors( o:hWnd )\n\n\nSiau.\nC.','',0,'AIA=','8hnfxp7u',1,0,'',449,0,0),(8390,1859,3,68,0,'203.45.161.80',1141133235,1,0,1,1,1,1,'','','Markus Wiederstein has revised ClipWks, download from:\n<!-- m --><a class=\"postlink\" href=\"http://www.wiederstein.org/download/new_clipwks.zip\">http://www.wiederstein.org/download/new_clipwks.zip</a><!-- m -->\n\nregards','',0,'AIA=','38jw8pey',1,0,'',68,0,0),(8391,1964,4,6,0,'82.59.197.178',1141134108,1,0,1,1,1,1,'','','More precisely, I would want to print the web page showed by IE but I can\'t found the print button.\n\nEMG','',0,'AIA=','2xejyr6i',1,0,'',6,0,0),(8392,1436,3,339,0,'200.222.117.194',1141135338,1,0,1,1,1,0,'','','Thanks Enrico...\n\n    I´m Learn About ADO, But You Can Response Only Two Asks?\n\n\n   First ..\n\n   Using ADODB My Systems Are Compatible With win98 , winxp , win2003 ?\n\n   Second..\n\n  Using ADODB My Systems Required DATABASE registre in ODBC ?','',0,'AIA=','15o7k6h2',1,0,'',339,0,0),(8393,1968,7,2,0,'80.32.22.38',1141135734,1,0,1,1,1,1,'','','Jose Luis,\n\noWnd:nWidth y oWnd:nHeight','',0,'AIA=','2wldzz3h',1,0,'',2,0,0),(8394,1969,7,449,0,'212.64.224.249',1141135837,1,0,1,1,1,0,'','','Me contesto yo,\n\nY como carajo van a pulsar la tecla ESCAPE en la pocket ?.  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nSaludos\nC.','',0,'AIA=','9p8wgwll',1,0,'',449,0,0),(8395,1970,7,449,0,'212.64.224.249',1141136060,1,0,1,1,1,0,'','Alguna idea para leer los ficheros en la pocket ?','Hola,\n\nAlguien ha tenido la necesidad de tener de seleccionar algun fichero de la pocket desde dentro la aplicacion FWPPC ? Alguna IDEA ?\n\n\nSaludos.\nC.','',0,'AIA=','1rmnil4n',1,0,'',449,0,0),(8396,1971,6,439,0,'201.221.38.174',1141137502,1,0,1,1,1,0,'','Clase TSOCKET','En la ayuda de FWH, se menciona las ventajas de la clase TSocket y la posibilidad de generar aplicaciones de internet e intranet, citándose el siguiente ejemplo:\n\nSAMPLES\\TestSock.prg\n\nNo tengo ese ejemplo en mi directorio samples, hay otro silimar o como puedo obtenerlo?\n\nGracias desde ya.','',0,'AIA=','8u8m8x69',1,0,'',439,0,0),(8397,1966,3,2,0,'80.32.22.38',1141137794,1,0,1,1,1,1,'','','Enrico,\n\nQuite curious. On a window it works ok. And on a dialog only accepts numbers...  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','11klz4zl',1,0,'',2,0,0),(8398,1970,7,2,0,'80.32.22.38',1141138280,1,0,1,1,1,1,'','','Carles,\n\nTienes disponible la función cGetFile() <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\naunque no la habíamos probado antes y aunque la caja de diálogo aparece, no se si realmente funciona.','',0,'AIA=','1jxrp5gt',1,0,'',2,0,0),(8399,1972,6,63,0,'80.37.102.128',1141138375,1,0,1,1,1,0,'','O.T.: Cómo capturar objetos individuales','Un amigo me enseñó una versión antigua del PaintShop 4 (versión de 1997...)  Este programa tiene una interesante función de captura de objetos, es decir, permite \"recortar\" y guardar como imagen los objetos de otra aplicación.  Es especialmente útil para hacer manuales o helps, ya que permite capturar imágenes de botones, listboxes, e incluso says y gets.\n\nLo curioso es que la identificación del objeto es automática e inmediata. Basta con poner el cursor sobre él. El Paint Shop lo identifica como un objeto y lo marca con un recuadro negro. Pulsa una tecla de función y su imagen queda capturada en el formato que deses...\n\nMi pregunta es: ¿Alguien sabe cómo implem\nentar algo semejante desde FWH?  Quiero decir, lo de que un prorgama de FWH sea capaz de identificar y \"recortar\" los controles que componen otra aplicación.  Hasta ahora conseguido capturar como BMPs pantallas enteras y ventanas de otras aplicaciones. Eso no es problema. Lo que no sé por dónde empezar es lo de identificar los controls individuales, en especial, Says y Gets\n\n¿Alguna sugerencia?\n\nRafael','',0,'AIA=','1j14gvb6',1,0,'',63,0,0),(8401,1969,7,2,0,'80.32.22.38',1141138745,1,0,1,1,1,1,'','','Carles,\n\nCon el teclado de pantalla ?  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'AIA=','1n08zn9i',1,0,'',2,0,0),(8402,1970,7,449,0,'212.64.224.249',1141138844,1,0,1,1,1,0,'','','Antonio,\n\nJuraria q la probe hace 2 semanas... y no existia\n\nNo entiendo nada...\n\nGracias. La voy a testear\n\nCiao.\nC.','',0,'AIA=','njjnsy8t',1,0,'',449,0,0),(8403,1931,6,409,0,'201.246.67.12',1141139106,1,0,1,1,1,0,'','','Amigo Jose y que tan rapida es, sera muy lenta\n\nsaludos','',0,'AIA=','uvmiq6iv',1,0,'',409,0,0),(8404,1970,7,449,0,'212.64.224.249',1141139667,1,0,1,1,1,0,'','','Antonio,\n\n[code:4yoh3p5h]\n#include \'FWCE&#46;ch\'\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Test cGetFile&#40;&#41;&quot;\n\n      @1,4 BUTTON \'cGetFile&#40;&#41;\' SIZE 80, 25 OF oWnd ;\n           ACTION MsgInfo&#40; cGetFile&#40; \'*&#46;*\', \'Mi Titulo&#46;&#46;&#46;\',, CurDir&#40;&#41; + \'\\*&#46;*\'&#41; &#41;\n\n   ACTIVATE WINDOW oWnd\n\nRETU NIL\n\n[/code:4yoh3p5h]\n\nPero me temo q no funciona correctamente. Aparece el dialogo de seleccion, perooo el tio no quiere darme nada  <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\nSaludos.\nC.','',0,'AIA=','4yoh3p5h',1,0,'',449,0,0),(8405,1958,7,262,0,'83.97.168.140',1141139783,1,0,1,1,1,1,'','','Carles , tienes toda la razon , falla , pero te diré mas .Tengo el programa compilado con las versiones anteriores de fwpcc ( una copia de la version anterior  , antes de unos cambios importantes ) con fecha del 16 de febrero y en este programa funciona bien .\nParece ser que en el build que se introducen los dialogos por codigo , se introducen cambios que no permiten el buen funcionamiento , y el caso es que he machacado la version ( a ver si la encuentro por ahi ...)\nSaludso.','',0,'AIA=','1z7m13sh',1,0,'',262,0,0),(8406,1968,7,123,0,'81.39.239.66',1141139903,1,0,1,1,1,0,'','','Carles, Antonio,\n\nGracias por las respuesta.\n\nGetcoors me devuelve siempre 0.\n\noWnd:nHeight y oWnd:nWidth es lo que buscaba.\n\nNo obstante... tengo una duda (básicamente por desconocimiento del funcionamiento del mundo Windows CE): ¿ El area cliente incluye o no la zona de los menús ?\n\nnHeight vale lo mismo con menú como sin menú.  ¿Cuanto mide el menú?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'AIA=','trzpcxs5',1,0,'',123,0,0),(8407,1958,7,449,0,'212.64.224.249',1141140029,1,0,1,1,1,0,'','','Hi Jose Luis,\n\nYa me parecia a mi. Ya no pierdo mas tiempo en este punto. Ya te dije, lo solucione cheuqeando si esta la aplicacion activa y en caso afirmativo, muestro un mensaje y salgo. Q la busquen que no cuesta nada  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\n\nSaludos.\nC.','',0,'AIA=','2a4obyv1',1,0,'',449,0,0),(8408,1973,7,123,0,'81.39.239.66',1141140094,1,0,1,1,1,0,'','oWnd:SetMenu','Antonio,\n\n¿Como puedo \'quitar\' el menú de una window?  \n\nDicho de otra manera, si establezco un menú con:\n\noWnd:SetMenu( oMenu )\n\nNo puedo quitarlo con:\n\noWnd:SetMenu( NIL )\n\n¿Como podría hacerlo?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'AIA=','1a745l50',1,0,'',123,0,0),(8409,1958,7,262,0,'83.97.168.140',1141141093,1,0,1,1,1,1,'','','He encontrado la version con lib del 21 de febrero ( justo la anterior , creo) , he recompilado el programa y funciona bien , mientras se resuelve esto , yo voy a volver a esta versión , tengo demasiadas ventanas en cascada como para que las tengan que recuperar en el orden correcto .\nSaludso.','',0,'AIA=','2g091lyx',1,0,'',262,0,0),(8410,1436,3,6,0,'82.57.159.53',1141141730,1,0,1,1,1,1,'','','1) WinXP and Win2003: yes. Win98: you will need to install Office or MSDE.\n\n2) No.\n\nEMG','',0,'AIA=','ehn8z1rq',1,0,'',6,0,0),(8411,1966,3,6,0,'82.57.159.53',1141141766,1,0,1,1,1,1,'','','Exactly.\n\nEMG','',0,'AIA=','irtd0z1s',1,0,'',6,0,0),(8412,1436,3,339,0,'200.222.117.194',1141142440,1,0,1,1,1,0,'','','Thanks Very Much Enrico.\n\n\n    \nMauricio','',0,'AIA=','1y6lpxub',1,0,'',339,0,0),(8413,1966,3,446,0,'87.7.210.163',1141142520,1,0,1,1,1,0,'','','The sample found in FWH (2.5) TestRich.prg works on a dialog (resource).\nIt accepts characters too\nbut if I try to open an existing file it returns the error:\n\"unrecoverable error 9010: hb_xfree() invalid pointer 004ec06e select the file\" \n\nregards\nRoberto Chiaiese','',0,'AIA=','vtwgauaf',1,0,'',446,0,0),(8414,1974,3,303,0,'68.7.28.54',1141142748,1,0,1,1,1,0,'','OT: Color Blindness Simulator','As you know there are quite a few color blind computer users and we have to keep this in mind when designing screens using color.\n\nI just found a useful web site. You can take a screenshot of your application, then upload it to the site and then convert it into what people with different kinds of color blindness will see. Very useful.\n\n[url:3ulj77zl]http&#58;//www&#46;aspnetresources&#46;com/tools/colorblindness&#46;aspx[/url:3ulj77zl]\n\nJames','',0,'EA==','3ulj77zl',1,0,'',303,0,0),(8415,1859,3,455,0,'195.97.105.161',1141143114,1,0,1,1,1,0,'','','Jon, \nThank you.\nI will try it.\n\nKind regards\nEvans','',0,'EA==','2kvhzm2j',1,0,'',455,0,0),(8416,1975,3,335,0,'68.193.88.53',1141143957,1,0,1,1,1,0,'','How to use hotspots?','I seem to recall from some posting years ago that FiveWin has a way of implementing hotspots on top of a bitmap. But I don\'t remember how to do this and wonder whether this would work with the new transparent brush covering a dialog.\n\nCan someone point me in the right direction, please?\n\n- Roger','',0,'EA==','229zs2ok',1,0,'',335,0,0),(8417,1976,3,6,0,'82.57.159.53',1141144439,1,0,1,1,1,1,'','Bug in IsOem()/IsAnsi() function','The following sample shows .T. and .F. instead of .F. and .T. (CHR( 128 ) is the Euro symbol and is an ANSI code):\n\n[code:3i2gztm8]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    ? ISOEM&#40; CHR&#40; 128 &#41; &#41;\n    ? ISANSI&#40; CHR&#40; 128 &#41; &#41;\n\n    RETURN NIL[/code:3i2gztm8]\n\nEMG','',0,'AIA=','3i2gztm8',1,0,'',6,0,0),(8418,1931,6,138,0,'201.133.73.175',1141145084,1,0,1,1,1,1,'','','En realidad hay varias (muchas) formas de atacar bases de datos SQL y todas son bastante rapidas, dependiendo claro, del diseño que hayas hecho de tu BD.\n\nFiveWin incluye nativamente 3 clases que te permiten manejar SQLs directamente:\n\nTODBC\nTDBODBC\nTRDDODBC\n\nDefinitivamente mi favorita, y que se puede utilizar con OLE desde xHarbour, es via ADO (Activex Data Objects) ampliamente recomendable y bastante rapida.\n\nY luego estan las clases de terceros de paga:\n\nEagle / Condor\nLa que mencionas de Freddy\nMediator\nSQL RDD','',0,'AIA=','1fiotsi7',1,0,'',138,0,0),(8420,1977,2,471,0,'201.240.34.246',1141146642,1,0,1,1,1,1,'','De vuelta a las news','Estimados Amigos \n\nEstoy de vuellta por aca depues de unas largas vacaciones \n\nQueria saber si alguien tiene un ejemplo de  como llenar un   arreglo en lenguaje C  y pasarlo el resultado a una funcion xharbour\n\nNo veo otras forma de hacer q un arreglo se carge mas rapido.\n\nAgradecido por su consulta\n\nVladimir Zorrilla Llerena \n\n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->','',0,'AIA=','33jru07q',1,0,'',471,0,0),(8421,1870,2,471,0,'201.240.34.246',1141146865,1,0,1,1,1,1,'','','eagle 1 de manuel exposito es buenasa\nno he probado condor pero deber se tambien buena\n\nSaludos','',0,'AIA=','3mx2znli',1,0,'',471,0,0),(8422,1934,7,470,0,'80.58.45.107',1141146928,1,0,1,1,1,0,'','','Muchas gracias, ya lo he resuelto.','',0,'AIA=','ust4odyz',1,0,'',470,0,0),(8423,1877,2,471,0,'201.240.34.246',1141147085,1,0,1,1,1,1,'','','Yo estoy en eso \n\ncontactame\n \n\nVladiimir Zorrilla\n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->','',0,'AIA=','lasx8ozp',1,0,'',471,0,0),(8424,1370,3,213,0,'72.177.228.25',1141147857,1,0,1,1,1,0,'','','Customer is using Outlook 2003 w/SP2.  He gets a msg prompting him to select a profile, there is only one defined.  The email ends up in the outbox but he gets a msg that states- The following recipient(s) could not be reached:\n\nThe email address shown is enclosed in \' \', I think this may be why it\'s not being sent.  \n\nUnfortunately, the customer is in another state so it\'s a little difficult to diagnose.  Any other ideas?\n\nThanks,\nRandal Ferguson','',0,'AIA=','2to9ozan',1,0,'',213,0,0),(8425,1978,2,275,0,'200.68.221.88',1141148171,1,0,1,1,1,0,'','GPF, como buscar el Error','Hola Tengo una aplicacion con Fw 2.3, Clipper 5.3 y bLinker 5.0\nEsta aplicacion esta compuesta por 6 modulos, al intentar abrir los modulos 1, 2, 3, 4, 5, en el 6 me genera el GPF.\nEsta en entorno MDI, las bases no poseen campos memos,  busque el GPF, poniendo MgInfo, pero depiendo el orden en que se habre los modulos y las bases, el origen cambia.\nRegenere los Indices ( borre y los cree de nuevo ), genera GPF\nBorre las bases ( y las cree desde el sistema ), la primera vez que ejecuto los modulo, esta OK, la segunda vez que los ejecuto, me genera el GPF.\nGenerre el archivo .MAP, para buscar la direccion del GPF, pero no la encuentro, alguie me podria explicar porque no la encuentro, o en tal caso, como se busca\nAdjunto Archivo .MAP, y Error GPF\n\n\nFIVEWIN provocó un error de protección general\nen el módulo QUIQUE.DWD de 000f:00001d34.\nRegistros:\nEAX=3b3fae12 CS=3c17 EIP=00001d34 EFLGS=00000202\nEBX=00000004 SS=3b87 ESP=0000935e EBP=00009376\nECX=00000001 DS=3b87 ESI=0000ae1e FS=0000\nEDX=000048f7 ES=48f7 EDI=00002400 GS=0000\nBytes en CS:EIP:\n,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x \nVolcado de pila:\n,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x \n \n\n FiveWin\n \n Start     Length     Name                   Class                  Group\n 0001:0000 0BB31H     $$$KRNLDR              CODE                   BLIKRNLDR\n 0002:0000 00912H     MAIN                   CODE \n 0002:0912 00150H     FINALIZAR              CODE \n 0002:0A62 0016EH     FINALIZAR              CODE \n 0002:0BD0 0016EH     BACKUP                 CODE \n 0002:0D3E 00C76H     MENU                   CODE \n 0002:19B4 00317H     MODULOS                CODE \n 0002:1CCC 00062H     NOANDA                 CODE \n 0002:1D2E 0053CH     TAPPLICATI             CODE \n 0002:226A 0018DH     INI                    CODE \n 0002:23F8 000E5H     CARGAR                 CODE \n 0002:24DE 00C66H     CHEKDBF                CODE \n 0002:3144 00297H     INDEX                  CODE \n 0002:33DC 00140H     VACIAR                 CODE \n 0002:351C 000D9H     REGISTRO               CODE \n 0002:35F6 00E4AH     INDEXAR                CODE \n 0002:4440 00144H     DBFINDEX               CODE \n 0002:4584 00323H     CARGARTAB              CODE \n 0002:48A8 00055H     PREINDEX               CODE \n 0002:48FE 00044H     POSTINDEX              CODE \n 0002:4942 00024H     STATICS$               CODE \n 0002:4966 00026H     STATICS$               CODE \n 0002:498C 00026H     STATICS$               CODE \n 0002:49B2 0002FH     STATICS$               CODE \n 0002:49E2 00020H     STATICS$               CODE \n 0002:4A02 00020H     STATICS$               CODE \n 0002:4A22 0003CH     STATICS$               CODE \n 0002:4A5E 0001EH     STATICS$               CODE \n 0002:4A7C 0002AH     STATICS$               CODE \n 0002:4AA6 00024H     STATICS$               CODE \n 0002:4ACA 00026H     STATICS$               CODE \n 0002:4AF0 00026H     STATICS$               CODE \n 0002:4B16 00024H     STATICS$               CODE \n 0002:4B3A 00026H     STATICS$               CODE \n 0002:4B60 00026H     STATICS$               CODE \n 0002:4B86 0001EH     STATICS$               CODE \n 0002:4BA4 0001EH     STATICS$               CODE \n 0002:4BC2 00024H     STATICS$               CODE \n 0002:4BE6 0001EH     STATICS$               CODE \n 0002:4C04 0001EH     STATICS$               CODE \n 0002:4C22 00022H     STATICS$               CODE \n 0002:4C44 0002CH     STATICS$               CODE \n 0002:4C70 0001EH     STATICS$               CODE \n 0002:4C8E 0001EH     STATICS$               CODE \n 0002:4CAC 00024H     STATICS$               CODE \n 0002:4CD0 00024H     STATICS$               CODE \n 0002:4CF4 0001EH     STATICS$               CODE \n 0002:4D12 0001EH     STATICS$               CODE \n 0002:4D30 0001EH     STATICS$               CODE \n 0002:4D4E 0001EH     STATICS$               CODE \n 0002:4D6C 00024H     STATICS$               CODE \n 0002:4D90 0001EH     STATICS$               CODE \n 0002:4DAE 0001EH     STATICS$               CODE \n 0002:4DCC 0001EH     STATICS$               CODE \n 0002:4DEA 00020H     STATICS$               CODE \n 0002:4E0A 0001EH     STATICS$               CODE \n 0002:4E28 00026H     STATICS$               CODE \n 0002:4E4E 00024H     STATICS$               CODE \n 0002:4E72 0001EH     STATICS$               CODE \n 0002:4E90 0001EH     STATICS$               CODE \n 0002:4EAE 0001EH     STATICS$               CODE \n 0002:4ECC 0001EH     STATICS$               CODE \n 0002:4EEA 0001EH     STATICS$               CODE \n 0002:4F08 0001EH     STATICS$               CODE \n 0002:4F26 0001EH     STATICS$               CODE \n 0002:4F44 0002AH     STATICS$               CODE \n 0002:4F6E 0001EH     STATICS$               CODE \n 0002:4F8C 0001EH     STATICS$               CODE \n 0002:4FAA 0001EH     STATICS$               CODE \n 0002:4FC8 0001EH     STATICS$               CODE \n 0002:4FE6 00026H     STATICS$               CODE \n 0002:500C 0001EH     STATICS$               CODE \n 0002:502A 0001EH     STATICS$               CODE \n 0002:5048 0001EH     STATICS$               CODE \n 0002:5066 0001EH     STATICS$               CODE \n 0002:5084 0001EH     STATICS$               CODE \n 0002:50A2 0001EH     STATICS$               CODE \n 0002:50C0 0001EH     STATICS$               CODE \n 0002:50DE 00020H     STATICS$               CODE \n 0002:50FE 00020H     STATICS$               CODE \n 0002:511E 0001EH     STATICS$               CODE \n 0002:513C 0001EH     STATICS$               CODE \n 0002:515A 0001EH     STATICS$               CODE \n 0002:5178 0001EH     STATICS$               CODE \n 0002:5196 0001EH     STATICS$               CODE \n 0002:51B4 00024H     STATICS$               CODE \n 0002:51D8 0001EH     STATICS$               CODE \n 0002:51F6 0001EH     STATICS$               CODE \n 0002:5214 0001EH     STATICS$               CODE \n 0002:5232 0001EH     STATICS$               CODE \n 0002:5250 00020H     STATICS$               CODE \n 0002:5270 0002AH     STATICS$               CODE \n 0002:529A 00044H     STATICS$               CODE \n 0002:52DE 0001EH     STATICS$               CODE \n 0002:52FC 0001EH     STATICS$               CODE \n 0002:531A 0001EH     STATICS$               CODE \n 0002:5338 00030H     STATICS$               CODE \n 0002:5368 0001EH     STATICS$               CODE \n 0002:5386 0003AH     STATICS$               CODE \n 0002:53C0 0001EH     STATICS$               CODE \n 0002:53DE 00117H     STATICS$               CODE \n 0002:54F6 00024H     STATICS$               CODE \n 0002:551A 00035H     STATICS$               CODE \n 0002:5550 00022H     STATICS$               CODE \n 0002:5572 0002DH     STATICS$               CODE \n 0002:55A0 0001EH     STATICS$               CODE \n 0002:55BE 0002CH     STATICS$               CODE \n 0002:55EA 00993H     ABM_CLI                CODE \n 0002:5F7E 006FCH     EDITARCLI              CODE \n 0002:667A 00160H     BORRARCLI              CODE \n 0002:67DA 004A4H     SELECCLI               CODE \n 0002:6C7E 002F0H     TCLIENTES              CODE \n 0002:6F6E 00061H     NEW                    CODE \n 0002:6FD0 0044DH     NEW                    CODE \n 0002:741E 00A9EH     NEW                    CODE \n 0002:7EBC 0012CH     NEW                    CODE \n 0002:7FE8 00764H     NEW                    CODE \n 0002:874C 001B5H     NEW                    CODE \n 0002:8902 0009FH     NEW                    CODE \n 0002:89A2 0014DH     NEW                    CODE \n 0002:8AF0 00098H     NEW                    CODE \n 0002:8B88 00658H     NEW                    CODE \n 0002:91E0 004B8H     NEW                    CODE \n 0002:9698 0050DH     NEW                    CODE \n 0002:9BA6 000EFH     NEW                    CODE \n 0002:9C96 002DAH     NEW                    CODE \n 0002:9F70 0017FH     NEW                    CODE \n 0002:A0F0 000FDH     NEW                    CODE \n 0002:A1EE 00092H     NEW                    CODE \n 0002:A280 0028EH     NEW                    CODE \n 0002:A50E 00437H     NEW                    CODE \n 0002:A946 00354H     NEW                    CODE \n 0002:AC9A 000D1H     NEW                    CODE \n 0002:AD6C 002A2H     NEW                    CODE \n 0002:B00E 00092H     NEW                    CODE \n 0002:B0A0 00141H     NEW                    CODE \n 0002:B1E2 00059H     NEW                    CODE \n 0002:B23C 00032H     NEW                    CODE \n 0002:B26E 000F1H     NEW                    CODE \n 0002:B360 000B5H     NEW                    CODE \n 0002:B416 00093H     NEW                    CODE \n 0002:B4AA 0007CH     NEW                    CODE \n 0002:B526 00314H     NEW                    CODE \n 0002:B83A 001BBH     NEW                    CODE \n 0002:B9F6 000A1H     NEW                    CODE \n 0002:BA98 00508H     NEW                    CODE \n 0002:BFA0 00072H     NEW                    CODE \n 0002:C012 0056EH     NEW                    CODE \n 0002:C580 001F1H     NEW                    CODE \n 0002:C772 0030BH     NEW                    CODE \n 0002:CA7E 002F3H     NEW                    CODE \n 0002:CD72 00428H     NEW                    CODE \n 0002:D19A 00242H     NEW                    CODE \n 0002:D3DC 003B2H     NEW                    CODE \n 0002:D78E 001EFH     NEW                    CODE \n 0002:D97E 001BFH     NEW                    CODE \n 0002:DB3E 002E1H     NEW                    CODE \n 0002:DE20 00375H     NEW                    CODE \n 0002:E196 00079H     NEW                    CODE \n 0002:E210 004A3H     NEW                    CODE \n 0002:E6B4 00362H     NEW                    CODE \n 0002:EA16 00388H     NEW                    CODE \n 0002:ED9E 0003DH     NEW                    CODE \n 0002:EDDC 0008EH     NEW                    CODE \n 0002:EE6A 0035AH     NEW                    CODE \n 0002:F1C4 0035FH     NEW                    CODE \n 0002:F524 007B8H     NEW                    CODE \n 0003:0000 003F2H     NEW                    CODE \n 0003:03F2 0050CH     NEW                    CODE \n 0003:08FE 0048AH     NEW                    CODE \n 0003:0D88 00442H     NEW                    CODE \n 0003:11CA 00613H     EDITAR                 CODE \n 0003:17DE 0009FH     ELIMINAR               CODE \n 0003:187E 0055AH     NEWBROWSE              CODE \n 0003:1DD8 00043H     ACTIVAR                CODE \n 0003:1E1C 00025H     O2A                    CODE \n 0003:1E42 00025H     XLISTAR                CODE \n 0003:1E68 00025H     FBUSCAR                CODE \n 0003:1E8E 0072EH     ABM_PRO                CODE \n 0003:25BC 00841H     EDITARPRO              CODE \n 0003:2DFE 00117H     BORRARPRO              CODE \n 0003:2F16 00475H     SELECPRO               CODE \n 0003:338C 006FDH     ABM_TAB                CODE \n 0003:3A8A 000C6H     REFRESCAR              CODE \n 0003:3B50 000D9H     REFRESCAR              CODE \n 0003:3C2A 004CAH     EDIT_TAB               CODE \n 0003:40F4 0011EH     DEL_TAB                CODE \n 0003:4212 000AFH     TABCODIGO              CODE \n 0003:42C2 00551H     SELECTAB               CODE \n 0003:4814 00CC1H     CONFIG                 CODE \n 0003:54D6 0006FH     COLOR                  CODE \n 0003:5546 000B1H     COLORGET               CODE \n 0003:55F8 0007EH     OLBXREFRES             CODE \n 0003:5676 00151H     BUSCAR                 CODE \n 0003:57C8 00104H     MOSTRARDES             CODE \n 0003:58CC 00224H     LISTAR                 CODE \n 0003:5AF0 00139H     CODIGO                 CODE \n 0003:5C2A 000A4H     UPDATEBUFF             CODE \n 0003:5CCE 00063H     NPRECIO                CODE \n 0003:5D32 0003BH     SUBCOD                 CODE \n 0003:5D6E 00049H     FILENAME               CODE \n 0003:5DB8 00066H     FORMAPAGO              CODE \n 0003:5E1E 0016BH     SETOLBX                CODE \n 0003:5F8A 0014FH     VAL_NKEY               CODE \n 0003:60DA 00056H     MSGDBG                 CODE \n 0003:6130 003CCH     XMSGBOX                CODE \n 0003:64FC 00EFEH     TPRINTER               CODE \n 0003:73FA 00130H     END                    CODE \n 0003:752A 001D9H     END                    CODE \n 0003:7704 0002CH     END                    CODE \n 0003:7730 000EBH     END                    CODE \n 0003:781C 00050H     END                    CODE \n 0003:786C 00073H     END                    CODE \n 0003:78E0 00042H     END                    CODE \n 0003:7922 0006CH     END                    CODE \n 0003:798E 000E0H     END                    CODE \n 0003:7A6E 000CFH     END                    CODE \n 0003:7B3E 00077H     END                    CODE \n 0003:7BB6 000A8H     END                    CODE \n 0003:7C5E 00184H     END                    CODE \n 0003:7DE2 00156H     END                    CODE \n 0003:7F38 00109H     END                    CODE \n 0003:8042 000EFH     REBUILD                CODE \n 0003:8132 00147H     _STARTPAGE             CODE \n 0003:827A 001DDH     _ENDPAGE               CODE \n 0003:8458 00258H     SAY                    CODE \n 0003:86B0 00124H     SAY                    CODE \n 0003:87D4 0022DH     SAY                    CODE \n 0003:8A02 0011AH     SAY                    CODE \n 0003:8B1C 00141H     SAY                    CODE \n 0003:8C5E 0013DH     SAYBITMAP              CODE \n 0003:8D9C 0015AH     SAYBITMAP              CODE \n 0003:8EF6 000A3H     SAYBITMAP              CODE \n 0003:8F9A 000F8H     SAYIMAGE               CODE \n 0003:9092 001B5H     SAYIMAGE               CODE \n 0003:9248 00065H     _FILLRECT              CODE \n 0003:92AE 00091H     CMTR2PIX               CODE \n 0003:9340 00109H     CMRECT2PIX             CODE \n 0003:944A 000A1H     INCH2PIX               CODE \n 0003:94EC 00090H     GETPHYSIZE             CODE \n 0003:957C 0009AH     SETFONT                CODE \n 0003:9616 000B8H     SETFONT                CODE \n 0003:96CE 0008FH     SETFONT                CODE \n 0003:975E 000B8H     CHARSAY                CODE \n 0003:9816 0005CH     CHARWIDTH              CODE \n 0003:9872 00059H     CHARHEIGHT             CODE \n 0003:98CC 0017AH     IMPORTWMF              CODE \n 0003:9A46 0005CH     IMPORTRAW              CODE \n 0003:9AA2 00089H     CAJAROUND              CODE \n 0003:9B2C 000B9H     CAJAROUND              CODE \n 0003:9BE6 000AAH     LINEA                  CODE \n 0003:9C90 000BFH     LINEA                  CODE \n 0003:9D50 001A7H     PRINTBEGIN             CODE \n 0003:9EF8 0002FH     PAGEBEGIN              CODE \n 0003:9F28 0002FH     PAGEEND                CODE \n 0003:9F58 00058H     PRINTEND               CODE \n 0003:9FB0 010E5H     TREPORT                CODE \n 0003:B096 00140H     MARGIN                 CODE \n 0003:B1D6 00166H     BOX                    CODE \n 0003:B33C 001E2H     BOX                    CODE \n 0003:B51E 00055H     BOX                    CODE \n 0003:B574 00166H     LINE                   CODE \n 0003:B6DA 00064H     LINE                   CODE \n 0003:B73E 00196H     SHADOW                 CODE \n 0003:B8D4 00117H     SHADOW                 CODE \n 0003:B9EC 00318H     GRID                   CODE \n 0003:BD04 0028BH     SEPARATOR              CODE \n 0003:BF90 00079H     SEPARATOR              CODE \n 0003:C00A 000F8H     SEPARATOR              CODE \n 0003:C102 00080H     SETPENCOLO             CODE \n 0003:C182 00764H     ACTIVATE               CODE \n 0003:C8E6 0037AH     ACTIVATE               CODE \n 0003:CC60 00071H     ACTIVATE               CODE \n 0003:CCD2 00050H     ACTIVATE               CODE \n 0003:CD22 0005DH     ACTIVATE               CODE \n 0003:CD80 00113H     ACTIVATE               CODE \n 0003:CE94 00396H     ACTIVATE               CODE \n 0003:D22A 00056H     ACTIVATE               CODE \n 0003:D280 00308H     ACTIVATE               CODE \n 0003:D588 004D6H     PLAY                   CODE \n 0003:DA5E 00BE9H     STABILIZE              CODE \n 0003:E648 0026FH     STABILIZE              CODE \n 0003:E8B8 0019FH     STABILIZE              CODE \n 0003:EA58 0027EH     STABILIZE              CODE \n 0003:ECD6 00053H     INIT                   CODE \n 0003:ED2A 00207H     INIT                   CODE \n 0003:EF32 000B4H     SKIP                   CODE \n 0003:EFE6 00069H     SKIP                   CODE \n 0003:F050 000A0H     SKIP                   CODE \n 0003:F0F0 000E9H     STARTPAGE              CODE \n 0003:F1DA 0014CH     ENDPAGE                CODE \n 0003:F326 000EEH     ENDPAGE                CODE \n 0003:F414 00113H     STARTLINE              CODE \n 0003:F528 000CCH     ENDLINE                CODE \n 0003:F5F4 00124H     STARTGROUP             CODE \n 0003:F718 00211H     ENDGROUP               CODE \n 0003:F92A 00283H     PAGETOTAL              CODE \n 0003:FBAE 0016AH     COLTITLE               CODE \n 0004:0000 008ECH     TOTALLINE              CODE \n 0004:08EC 00311H     REPCLI                 CODE \n 0004:0BFE 00313H     REPPRO                 CODE \n 0004:0F12 00360H     REPTAB                 CODE \n 0004:1272 00364H     REPART                 CODE \n 0004:15D6 00430H     REPPRE                 CODE \n 0004:1A06 00423H     REPSTOCK               CODE \n 0004:1E2A 0018EH     SETEOS                 CODE \n 0004:1FB8 00120H     SETEOS2                CODE \n 0004:20D8 00059H     EMPRESA                CODE \n 0004:2132 0048BH     PRNBOL                 CODE \n 0004:25BE 0022AH     TRLINE                 CODE \n 0004:27E8 000E1H     ADD                    CODE \n 0004:28CA 000FCH     ADD                    CODE \n 0004:29C6 0008FH     ADD                    CODE \n 0004:2A56 0009EH     ADD                    CODE \n 0004:2AF4 002FCH     ADD                    CODE \n 0004:2DF0 0009BH     ADD                    CODE \n 0004:2E8C 000D5H     ADD                    CODE \n 0004:2F62 0006AH     ADD                    CODE \n 0004:2FCC 001B5H     INS                    CODE \n 0004:3182 0017CH     DEL                    CODE \n 0004:32FE 000A9H     DEL                    CODE \n 0004:33A8 0006EH     DEL                    CODE \n 0004:3416 0007CH     DEL                    CODE \n 0004:3492 000ADH     DEL                    CODE \n 0004:3540 0021BH     DEL                    CODE \n 0004:375C 000AAH     DEL                    CODE \n 0004:3806 00670H     ABM_ART                CODE \n 0004:3E76 00190H     ACTUART                CODE \n 0004:4006 00B05H     EDITARART              CODE \n 0004:4B0C 00191H     BORRARART              CODE \n 0004:4C9E 00161H     COPIAR                 CODE \n 0004:4E00 006B0H     GENART                 CODE \n 0004:54B0 00853H     OBWART                 CODE \n 0004:5D04 00247H     SELEC_ART              CODE \n 0004:5F4C 00639H     GANANCIA               CODE \n 0004:6586 00175H     CALCULAR               CODE \n 0004:66FC 004BEH     CAMDEV                 CODE \n 0004:6BBA 005A7H     ACTUALIZAR             CODE \n 0004:7162 0064CH     CAMBIO                 CODE \n 0004:77AE 00435H     DEVOLUCION             CODE \n 0004:7BE4 0019CH     VERFACTURA             CODE \n 0004:7D80 001ABH     VERDETALLE             CODE \n 0004:7F2C 00076H     FILTROFAC              CODE \n 0004:7FA2 00067H     FILTRODET              CODE \n 0004:800A 005AAH     PAGO                   CODE \n 0004:85B4 00793H     PAGOFAC                CODE \n 0004:8D48 00671H     EFECTUARPA             CODE \n 0004:93BA 00245H     BORRARPAGO             CODE \n 0004:9600 000B2H     FILTRO                 CODE \n 0004:96B2 00850H     TACCESO                CODE \n 0004:9F02 00294H     LOGIN                  CODE \n 0004:A196 00425H     CHECKPASSW             CODE \n 0004:A5BC 0094AH     ADDUSER                CODE \n 0004:AF06 006DEH     ADDGROUP               CODE \n 0004:B5E4 001EDH     ADDGROUP               CODE \n 0004:B7D2 004ABH     DELUSER                CODE \n 0004:BC7E 00503H     DELGROUP               CODE \n 0004:C182 001EBH     DELGROUP               CODE \n 0004:C36E 004C1H     SETPERM                CODE \n 0004:C830 005B5H     GETPERM                CODE \n 0004:CDE6 00059H     SETACCESS              CODE \n 0004:CE40 000A7H     GETACCESS              CODE \n 0004:CEE8 0027BH     SETPASSWOR             CODE \n 0004:D164 00742H     CHANGEPASS             CODE \n 0004:D8A6 004C9H     CHANGENAME             CODE \n 0004:DD70 005A1H     CHANGEGROU             CODE \n 0004:E312 00574H     MAKESUPERV             CODE \n 0004:E886 0058BH     CLEARSUPER             CODE \n 0005:0000 03B4FH     GESTPER                CODE \n 0005:3B50 00294H     OPENPER                CODE \n 0005:3DE4 002B5H     OPENMOD                CODE \n 0005:409A 00929H     OPENUSU                CODE \n 0005:49C4 00464H     OPENSUC                CODE \n 0005:4E28 00492H     ADDMODULE              CODE \n 0005:52BA 003B6H     DELMODULE              CODE \n 0005:5670 0003BH     ADDACCESS              CODE \n 0005:56AC 00037H     DELACCESS              CODE \n 0005:56E4 00375H     CLEANEVENT             CODE \n 0005:5A5A 002FFH     REGEVENT               CODE \n 0005:5D5A 0003BH     CLOSE                  CODE \n 0005:5D96 000ECH     CLOSE                  CODE \n 0005:5E82 00089H     CLOSE                  CODE \n 0005:5F0C 00163H     DELPERM                CODE \n 0005:6070 0010DH     CHECKNICK              CODE \n 0005:617E 0010FH     CHECKGROUP             CODE \n 0005:628E 0015EH     COLORBROWS             CODE \n 0005:63EC 0004AH     NEWALIAS               CODE \n 0005:6436 00055H     NEWALIAS               CODE \n 0005:648C 00208H     MONITOR                CODE \n 0005:6694 002FAH     COMPRA                 CODE \n 0005:698E 00249H     TCOMPRA                CODE \n 0005:6BD8 002DEH     VENTA                  CODE \n 0005:6EB6 00514H     LISTDOC                CODE \n 0005:73CA 01193H     EDITDOC                CODE \n 0005:855E 000ABH     INIEDITFAC             CODE \n 0005:860A 0023FH     NUEVODOC               CODE \n 0005:884A 004DEH     EDITACELDA             CODE \n 0005:8D28 000C0H     SEEKITEM               CODE \n 0005:8DE8 0005EH     DELREG                 CODE \n 0005:8E46 000EAH     SUMA                   CODE \n 0005:8F30 0006BH     NUEVOITEM              CODE \n 0005:8F9C 00345H     GRABARDOC              CODE \n 0005:92E2 000CAH     FILTRODOC              CODE \n 0005:93AC 008E6H     VERDOC                 CODE \n 0005:9C92 0025DH     GRABARENCA             CODE \n 0005:9EF0 0026CH     GRABARDET              CODE \n 0005:A15C 000E1H     CALCULAORD             CODE \n 0005:A23E 00149H     ABRIRDOC               CODE \n 0005:A388 0072BH     MSGDATE                CODE \n 0005:AAB4 00440H     MOVECALEND             CODE \n 0005:AEF4 00125H     DDATETOSTR             CODE \n 0005:B01A 002A5H     TTOD                   CODE \n 0005:B2C0 0038CH     TSEEKINC               CODE \n 0005:B64C 0052EH     SEEK                   CODE \n 0005:BB7A 001D2H     SEEK                   CODE \n 0005:BD4C 00194H     SEEK                   CODE \n 0005:BEE0 000FAH     CHANGEORDE             CODE \n 0005:BFDA 000BEH     UPBUFFMSGB             CODE \n 0005:C098 00F74H     LISTADO                CODE \n 0005:D00C 00376H     TUTILPRINT             CODE \n 0005:D382 0008EH     DEFAULT                CODE \n 0005:D410 001B1H     DEFAULT                CODE \n 0005:D5C2 005E4H     DEFAULT                CODE \n 0005:DBA6 0017EH     DEFAULT                CODE \n 0005:DD24 00089H     DEFAULT                CODE \n 0005:DDAE 00159H     DEFAULT                CODE \n 0005:DF08 0003AH     DEFAULT                CODE \n 0005:DF42 00060H     DEFAULT                CODE \n 0005:DFA2 00094H     DEFAULT                CODE \n 0005:E036 00194H     DEFAULT                CODE \n 0005:E1CA 001D7H     DEFAULT                CODE \n 0005:E3A2 000DFH     DEFAULT                CODE \n 0005:E482 0003CH     DEFAULT                CODE \n 0005:E4BE 00051H     DEFAULT                CODE \n 0005:E510 00060H     DEFAULT                CODE \n 0005:E570 000FAH     SEL                    CODE \n 0005:E66A 000E0H     TEXT                   CODE \n 0005:E74A 00348H     BOXMSG                 CODE \n 0005:EA92 00153H     POLY                   CODE \n 0005:EBE6 00150H     CIRCLE                 CODE \n 0005:ED36 00061H     CIRCLE                 CODE \n 0005:ED98 0015FH     _ELLIPSE               CODE \n 0005:EEF8 00170H     _ARCO                  CODE \n 0005:F068 0010EH     ROUNDRECT              CODE \n 0005:F176 0016CH     PRINTIMAGE             CODE \n 0005:F2E2 00371H     TIMPRIME               CODE \n 0005:F654 00086H     COMPLINEA              CODE \n 0005:F6DA 00127H     PAGECOUNT              CODE \n 0005:F802 00054H     __EJECT                CODE \n 0005:F856 000A3H     _DATETIME              CODE \n 0005:F8FA 0018DH     _MESFECHA_             CODE \n 0005:FA88 0003FH     ERRORSYS               CODE \n 0005:FAC8 00023H     ERRORLINK              CODE \n 0006:0000 01366H     ERRORDIALO             CODE \n 0006:1366 0002AH     DOBREAK                CODE \n 0006:1390 00162H     ERRORMESSA             CODE \n 0006:14F2 000C8H     CGETINFO               CODE \n 0006:15BA 001C0H     VERANCHO               CODE \n 0006:177A 00097H     OSCOPE                 CODE \n 0006:1812 00463H     ABRIRDBF               CODE \n 0006:1C76 0007FH     OFILTRO                CODE \n 0006:1CF6 00079H     ERRORHANDL             CODE \n 0006:1D70 000F0H     ABRIR                  CODE \n 0006:1E60 0011AH     CERRARDBF              CODE \n 0006:1F7A 000C1H     CFECHA                 CODE \n 0006:203C 00190H     FDIAS                  CODE \n 0006:21CC 00032H     _SUBSTR                CODE \n 0006:21FE 00077H     STOD                   CODE \n 0006:2276 00157H     VENTANA                CODE \n 0006:23CE 000B0H     CTRLOWNDH              CODE \n 0006:247E 00124H     PRUEBA                 CODE \n 0006:25A2 0006CH     PRU                    CODE \n 0006:260E 0037EH     TBTNGET                CODE \n 0006:298C 00162H     REDEFINE               CODE \n 0006:2AEE 00428H     REDEFINE               CODE \n 0006:2F16 000DBH     REDEFINE               CODE \n 0006:2FF2 000B3H     REDEFINE               CODE \n 0006:30A6 001C3H     REDEFINE               CODE \n 0006:326A 001F1H     REDEFINE               CODE \n 0006:345C 000FEH     REDEFINE               CODE \n 0006:355A 003C6H     REDEFINE               CODE \n 0006:3920 000A6H     REDEFINE               CODE \n 0006:39C6 001FDH     REDEFINE               CODE \n 0006:3BC4 00124H     REDEFINE               CODE \n 0006:3CE8 00169H     REDEFINE               CODE \n 0006:3E52 00183H     REDEFINE               CODE \n 0006:3FD6 000BAH     REDEFINE               CODE \n 0006:4090 00272H     REDEFINE               CODE \n 0006:4302 001C1H     REDEFINE               CODE \n 0006:44C4 00213H     REDEFINE               CODE \n 0006:46D8 001D3H     REDEFINE               CODE \n 0006:48AC 0006AH     REDEFINE               CODE \n 0006:4916 00205H     REDEFINE               CODE \n 0006:4B1C 00157H     REDEFINE               CODE \n 0006:4C74 000ECH     SETINICLR              CODE \n 0006:4D60 00067H     REMOVECLR              CODE \n 0006:4DC8 00099H     MOVE                   CODE \n 0006:4E62 000BFH     MOVE                   CODE \n 0006:4F22 00077H     MOVE                   CODE \n 0006:4F9A 0004EH     MOVE                   CODE \n 0006:4FE8 00051H     MOVE                   CODE \n 0006:503A 00180H     CALCDIMS               CODE \n 0006:51BA 00115H     TBTNDOWN               CODE \n 0006:52D0 00056H     MOUSEMOVE              CODE \n 0006:5326 00133H     MOUSEMOVE              CODE \n 0006:545A 00050H     MOUSEMOVE              CODE \n 0006:54AA 00050H     MOUSEMOVE              CODE \n 0006:54FA 000D3H     MOUSEMOVE              CODE \n 0006:55CE 00050H     MOUSEMOVE              CODE \n 0006:561E 000B1H     MOUSEMOVE              CODE \n 0006:56D0 00050H     MOUSEMOVE              CODE \n 0006:5720 0017DH     MOUSEMOVE              CODE \n 0006:589E 001FEH     MOUSEMOVE              CODE \n 0006:5A9C 0009DH     MOUSEMOVE              CODE \n 0006:5B3A 000C3H     MOUSEMOVE              CODE \n 0006:5BFE 000C4H     MOUSEMOVE              CODE \n 0006:5CC2 0006AH     CLICK                  CODE \n 0006:5D2C 000B5H     CLICK                  CODE \n 0006:5DE2 000AAH     CLICK                  CODE \n 0006:5E8C 00177H     PAINT                  CODE \n 0006:6004 00360H     PAINT                  CODE \n 0006:6364 000D3H     PAINT                  CODE \n 0006:6438 000CFH     PAINT                  CODE \n 0006:6508 00193H     PAINT                  CODE \n 0006:669C 00182H     PAINT                  CODE \n 0006:681E 00098H     PAINT                  CODE \n 0006:68B6 00492H     PAINT                  CODE \n 0006:6D48 00321H     PAINT                  CODE \n 0006:706A 0018AH     PAINT                  CODE \n 0006:71F4 00102H     PAINT                  CODE \n 0006:72F6 0003FH     GETBTN_TEXT            CODE \n 0006:7336 01AB1H     TWBROWSE               CODE \n 0006:8DE8 000B2H     NROWCOUNT              CODE \n 0006:8E9A 0030FH     DRAWSELECT             CODE \n 0006:91AA 00283H     DRAWICONS              CODE \n 0006:942E 00065H     RESIZE                 CODE \n 0006:9494 00121H     RESIZE                 CODE \n 0006:95B6 00150H     RESIZE                 CODE \n 0006:9706 00050H     RESIZE                 CODE \n 0006:9756 0014AH     RESIZE                 CODE \n 0006:98A0 00146H     SETARRAY               CODE \n 0006:99E6 00223H     SETTREE                CODE \n 0006:9C0A 001C0H     GOUP                   CODE \n 0006:9DCA 001BCH     GODOWN                 CODE \n 0006:9F86 001ADH     GODOWN                 CODE \n 0006:A134 003F0H     GOLEFT                 CODE \n 0006:A524 00180H     GOLEFT                 CODE \n 0006:A6A4 00464H     GORIGHT                CODE \n 0006:AB08 00180H     GORIGHT                CODE \n 0006:AC88 00143H     GOTOP                  CODE \n 0006:ADCC 0016FH     GOTOP                  CODE \n 0006:AF3C 00263H     GOBOTTOM               CODE \n 0006:B1A0 000D4H     LDBLCLICK              CODE \n 0006:B274 0009CH     LDBLCLICK              CODE \n 0006:B310 00050H     LDBLCLICK              CODE \n 0006:B360 00453H     LBUTTONDOW             CODE \n 0006:B7B4 00084H     LBUTTONDOW             CODE \n 0006:B838 000EDH     LBUTTONDOW             CODE \n 0006:B926 000E5H     LBUTTONDOW             CODE \n 0006:BA0C 00109H     LBUTTONDOW             CODE \n 0006:BB16 00090H     LBUTTONDOW             CODE \n 0006:BBA6 00050H     LBUTTONDOW             CODE \n 0006:BBF6 00056H     LBUTTONDOW             CODE \n 0006:BC4C 0010CH     LBUTTONUP              CODE \n 0006:BD58 00074H     LBUTTONUP              CODE \n 0006:BDCC 00241H     LBUTTONUP              CODE \n 0006:C00E 00457H     LBUTTONUP              CODE \n 0006:C466 0015EH     LBUTTONUP              CODE \n 0006:C5C4 00077H     LBUTTONUP              CODE \n 0006:C63C 00074H     LBUTTONUP              CODE \n 0006:C6B0 00376H     KEYDOWN                CODE \n 0006:CA26 000D5H     KEYDOWN                CODE \n 0006:CAFC 0009DH     KEYDOWN                CODE \n 0006:CB9A 000DBH     KEYDOWN                CODE \n 0006:CC76 000D8H     KEYDOWN                CODE \n 0006:CD4E 000B4H     KEYDOWN                CODE \n 0006:CE02 000B0H     KEYDOWN                CODE \n 0006:CEB2 0054BH     KEYDOWN                CODE \n 0006:D3FE 00233H     KEYDOWN                CODE \n 0006:D632 000F9H     KEYDOWN                CODE \n 0006:D72C 0014FH     DBFSEEK                CODE \n 0006:D87C 001C3H     KEYCHAR                CODE \n 0006:DA40 0004FH     KEYCHAR                CODE \n 0006:DA90 000CAH     KEYCHAR                CODE \n 0006:DB5A 00060H     KEYCHAR                CODE \n 0006:DBBA 00150H     KEYCHAR                CODE \n 0006:DD0A 0035FH     KEYCHAR                CODE \n 0006:E06A 000C8H     KEYCHAR                CODE \n 0006:E132 00150H     KEYCHAR                CODE \n 0006:E282 00295H     PAGEUP                 CODE \n 0006:E518 000DCH     PAGEUP                 CODE \n 0006:E5F4 003B3H     PAGEDOWN               CODE \n 0006:E9A8 000D5H     PAGEDOWN               CODE \n 0006:EA7E 0036BH     VSCROLL                CODE \n 0006:EDEA 00122H     VSCROLL                CODE \n 0006:EF0C 000E9H     VSCROLL                CODE \n 0006:EFF6 0018AH     VSCROLL                CODE \n 0006:F180 002BDH     HSCROLL                CODE \n 0006:F43E 00122H     HSCROLL                CODE \n 0006:F560 000E9H     HSCROLL                CODE \n 0006:F64A 0017CH     HSCROLL                CODE \n 0006:F7C6 00091H     BRWGOBOTTO             CODE \n 0006:F858 001F5H     BUILDSKIP              CODE \n 0006:FA4E 000EFH     BRWGOTO                CODE \n 0006:FB3E 00137H     _RECCOUNT              CODE \n 0006:FC76 00145H     _RECCOUNT              CODE \n 0006:FDBC 00046H     GENLOCAL               CODE \n 0006:FE02 00039H     GENBLOCK               CODE \n 0006:FE3C 00039H     GENBLOCK               CODE \n 0007:0000 004BCH     REPORT                 CODE \n 0007:04BC 00197H     UPSTABLE               CODE \n 0007:0654 00997H     SETFILTER              CODE \n 0007:0FEC 00134H     SETFILTER              CODE \n 0007:1120 001E4H     VERTLINE               CODE \n 0007:1304 000A1H     NATICON                CODE \n 0007:13A6 001CCH     DISPLAY                CODE \n 0007:1572 00041H     DISPLAY                CODE \n 0007:15B4 00041H     DISPLAY                CODE \n 0007:15F6 000B2H     GETDLGCODE             CODE \n 0007:16A8 000EEH     GETDLGCODE             CODE \n 0007:1796 0006AH     GETDLGCODE             CODE \n 0007:1800 0017EH     _AFIELDS               CODE \n 0007:197E 001B1H     SETCOLS                CODE \n 0007:1B30 00089H     SHOWSIZES              CODE \n 0007:1BBA 00105H     _DRAWICON              CODE \n 0007:1CC0 0010AH     ISCOLVISIB             CODE \n 0007:1DCA 00162H     DRAWHEADER             CODE \n 0007:1F2C 00213H     DRAWFOOTER             CODE \n 0007:2140 00076H     ISOVERHEAD             CODE \n 0007:21B6 000A4H     ISOVERFOOT             CODE \n 0007:225A 00054H     GETCOLHEAD             CODE \n 0007:22AE 00054H     GETCOLFOOT             CODE \n 0007:2302 001A0H     GOTOCOL                CODE \n 0007:24A2 000CEH     REFRESH                CODE \n 0007:2570 0011CH     REFRESH                CODE \n 0007:268C 000EFH     REFRESH                CODE \n 0007:277C 000D6H     REFRESH                CODE \n 0007:2852 00099H     REFRESH                CODE \n 0007:28EC 00076H     _ADATA                 CODE \n 0007:2962 00071H     EMPTYALIAS             CODE \n 0007:29D4 00124H     NWROW                  CODE \n 0007:2AF8 00115H     NWCOL                  CODE \n 0007:2C0E 00118H     SET3DSTYLE             CODE \n 0007:2D26 001E0H     ABRWPOSREC             CODE \n 0007:2F06 006B6H     EDITCOL                CODE \n 0007:35BC 000D9H     EDIT                   CODE \n 0007:3696 00672H     __EDIT                 CODE \n 0007:3D08 00814H     LEDITCOL               CODE \n 0007:451C 0025AH     SETTXT                 CODE \n 0007:4776 02138H     WBRWLINE_TEXT          CODE \n 0007:68AE 0036DH     LCHECKDBF              CODE \n 0007:6C1C 000D6H     COPYREC                CODE \n 0007:6CF2 000FCH     LSETBUFFER             CODE \n 0007:6DEE 00054H     NEXTVAL                CODE \n 0007:6E42 0004DH     C2BLOCK                CODE \n 0007:6E90 0005AH     DBROW                  CODE \n 0007:6EEA 0004AH     ORDLISTLEN             CODE \n 0007:6F34 00063H     GETPATH                CODE \n 0007:6F98 00079H     GETFILENAM             CODE \n 0007:7012 0005EH     GETFILENOE             CODE \n 0007:7070 0007CH     GETFILEEXT             CODE \n 0007:70EC 000BDH     GETRECORD              CODE \n 0007:71AA 000B8H     GETRECORD              CODE \n 0007:7262 000B0H     LMARKED                CODE \n 0007:7312 00037H     NOFFSET                CODE \n 0007:734A 000F5H     MEMOEXT                CODE \n 0007:7440 00077H     XAREA                  CODE \n 0007:74B8 000EFH     ATYPE                  CODE \n 0007:75A8 000F2H     DBFSERVER              CODE \n 0007:769A 00045H     DBAT                   CODE \n 0007:76E0 00032H     LDBCLASS               CODE \n 0007:7712 00027H     ADBCLASS               CODE \n 0007:773A 0004CH     NINSDBCLAS             CODE \n 0007:7786 00027H     OEMTOANSI              CODE \n 0007:77AE 0002DH     MSGINFO                CODE \n 0007:77DC 0002DH     MSGSTOP                CODE \n 0007:780A 0002FH     MSGYESNO               CODE \n 0007:783A 0002CH     CVALTOCHAR             CODE \n 0007:7866 01E21H     TDBF                   CODE \n 0007:9688 0006EH     NEWOPEN                CODE \n 0007:96F6 000D6H     USE                    CODE \n 0007:97CC 0005BH     REACTIVATE             CODE \n 0007:9828 000C9H     AUTOFIELD              CODE \n 0007:98F2 001AEH     AUTOINDEX              CODE \n 0007:9AA0 000BAH     CHECKEOFBO             CODE \n 0007:9B5A 000C5H     _GOTO                  CODE \n 0007:9C20 000A1H     _GOTOP                 CODE \n 0007:9CC2 000A1H     _GOBOTTOM              CODE \n 0007:9D64 001CBH     _SKIP                  CODE \n 0007:9F30 002B1H     SKIPPER                CODE \n 0007:A1E2 002E5H     SKIPPERLOA             CODE \n 0007:A4C8 000AEH     ADDFIELD               CODE \n 0007:A576 0018AH     APPEND                 CODE \n 0007:A700 000AAH     _DELETE                CODE \n 0007:A7AA 000CBH     _DELETE                CODE \n 0007:A876 00129H     _DELETE                CODE \n 0007:A9A0 0008AH     _FIELDPUT              CODE \n 0007:AA2A 0005CH     _RECNO                 CODE \n 0007:AA86 00077H     RECALL                 CODE \n 0007:AAFE 000A7H     CREATE                 CODE \n 0007:ABA6 00083H     CREATE                 CODE \n 0007:AC2A 0003CH     CREATE                 CODE \n 0007:AC66 00322H     CREATE                 CODE \n 0007:AF88 002F1H     CREATE                 CODE \n 0007:B27A 00322H     CREATE                 CODE \n 0007:B59C 00159H     USEAREA                CODE \n 0007:B6F6 0017AH     PACK                   CODE \n 0007:B870 00391H     HARDPACK               CODE \n 0007:BC02 00322H     _EVAL                  CODE \n 0007:BF24 0021AH     LOCATE                 CODE \n 0007:C13E 00058H     SORT                   CODE \n 0007:C196 0005BH     TOTAL                  CODE \n 0007:C1F2 002E3H     TOTAL                  CODE \n 0007:C4D6 00046H     SUM                    CODE \n 0007:C51C 000BFH     ADDRELATIO             CODE \n 0007:C5DC 000CFH     DELREL                 CODE \n 0007:C6AC 0004CH     CLEARREL               CODE \n 0007:C6F8 00088H     INFOREL                CODE \n 0007:C780 00084H     CHILDSYNC              CODE \n 0007:C804 00084H     CHILDDELET             CODE \n 0007:C888 00084H     CHILDEXEC              CODE \n 0007:C90C 000A0H     IDXBYTAG               CODE \n 0007:C9AC 00145H     IDXBYNAME              CODE \n 0007:CAF2 000D4H     IDXBYORDER             CODE \n 0007:CBC6 000ECH     ADDINDEX               CODE \n 0007:CCB2 00127H     ADDTMPINDE             CODE \n 0007:CDDA 0014BH     ADDBAG                 CODE \n 0007:CF26 002DCH     IDXACTIVAT             CODE \n 0007:D202 000C0H     IDXFCHECK              CODE \n 0007:D2C2 0009FH     IDXFDEL                CODE \n 0007:D362 001B9H     IDXDELETE              CODE \n 0007:D51C 00062H     REINDEXALL             CODE \n 0007:D57E 0012AH     SETINDEX               CODE \n 0007:D6A8 001EEH     _SETSCOPE              CODE \n 0007:D896 0005DH     CLEARSCOPE             CODE \n 0007:D8F4 00092H     CLEARSCOPE             CODE \n 0007:D986 000B3H     ADDFILTER              CODE \n 0007:DA3A 000C3H     FILTERBYNA             CODE \n 0007:DAFE 0012CH     DELFILTER              CODE \n 0007:DC2A 00065H     RECLOCK                CODE \n 0007:DC90 00123H     PROTEC                 CODE \n 0007:DDB4 00106H     AFIELD                 CODE \n 0007:DEBA 00085H     SETCALFIEL             CODE \n 0007:DF40 00082H     SETBUFFER              CODE \n 0007:DFC2 0006EH     BLANK                  CODE \n 0007:E030 0006EH     SETDEFAULT             CODE \n 0007:E09E 0005FH     QLOAD                  CODE \n 0007:E0FE 0006EH     LOAD                   CODE \n 0007:E16C 00191H     LOAD                   CODE \n 0007:E2FE 00194H     LOAD                   CODE \n 0007:E492 00196H     LOAD                   CODE \n 0007:E628 0006DH     ROLLBACK               CODE \n 0007:E696 0027AH     SAVE                   CODE \n 0007:E910 0018AH     SAVE                   CODE \n 0007:EA9A 0018DH     SAVE                   CODE \n 0007:EC28 00229H     SAVE                   CODE \n 0007:EE52 00081H     VALID                  CODE \n 0007:EED4 00089H     VALID                  CODE \n 0007:EF5E 0008AH     SETCOMMIT              CODE \n 0007:EFE8 0006AH     SETCOUNT               CODE \n 0007:F052 0021CH     SETBROWSE              CODE \n 0007:F26E 000ABH     FIELDBYNAM             CODE \n 0007:F31A 00239H     CLONE                  CODE \n 0007:F554 000C9H     GETSTATUS              CODE \n 0007:F61E 0009DH     SETSTATUS              CODE \n 0007:F6BC 0006FH     SETDELETED             CODE \n 0007:F72C 0007EH     IDXKEYNO               CODE \n 0007:F7AA 0005AH     IDXKEYGOTO             CODE \n 0007:F804 0009BH     IDXKEYCOUN             CODE \n 0007:F8A0 00150H     DESTROY                CODE \n 0007:F9F0 00059H     DESTROY                CODE \n 0007:FA4A 000DDH     DESTROY                CODE \n 0007:FB28 00093H     DESTROY                CODE \n 0007:FBBC 000ABH     DESTROY                CODE \n 0007:FC68 00075H     DESTROY                CODE \n 0007:FCDE 000AFH     DESTROY                CODE \n 0007:FD8E 0005EH     DESTROY                CODE \n 0007:FDEC 000B9H     DESTROY                CODE \n 0007:FEA6 0004AH     DESTROY                CODE \n 0008:0000 001FBH     DESTROY                CODE \n 0008:01FC 0004AH     DESTROY                CODE \n 0008:0246 00100H     SETMARKREC             CODE \n 0008:0346 0009AH     CHANGEMARK             CODE \n 0008:03E0 00082H     UNMARKALL              CODE \n 0008:0462 0009FH     GETMARKREC             CODE \n 0008:0502 003F4H     EXPORT2XML             CODE \n 0008:08F6 0005CH     FIELDTODAT             CODE \n 0008:0952 000D5H     GENDATAFIE             CODE \n 0008:0A27 000ABH     FORCE_TEXT             CODE \n 0008:0AD2 00584H     TFIELD                 CODE \n 0008:1056 00073H     ASSTRING               CODE \n 0008:10CA 001AEH     TFILTER                CODE \n 0008:1278 0008EH     SETFOCUS               CODE \n 0008:1306 000B2H     SETFOCUS               CODE \n 0008:13B8 0008FH     ISCPTOP                CODE \n 0008:1448 000ADH     ISCPBOTTOM             CODE \n 0008:14F6 0018CH     ICOUNTER               CODE \n 0008:1682 001AAH     GETIDXNONE             CODE \n 0008:182C 0054BH     TINDEX                 CODE \n 0008:1D78 0007DH     SETCOND                CODE \n 0008:1DF6 0007AH     IDXEXT                 CODE \n 0008:1E70 001F8H     SETSCOPE               CODE \n 0008:2068 00037H     SETLANG                CODE \n 0008:20A0 00512H     GETMSG                 CODE \n 0008:25B2 00315H     TRELATION              CODE \n 0008:28C8 00076H     SYNC                   CODE \n 0008:293E 000F5H     TRIGGER                CODE \n 0008:2A34 0032AH     TDBCOMBO               CODE \n 0008:2D5E 0004FH     DRAWITEM               CODE \n 0008:2DAE 0004FH     DRAWITEM               CODE \n 0008:2DFE 0004FH     DRAWITEM               CODE \n 0008:2E4E 0015FH     DRAWITEM               CODE \n 0008:2FAE 0017EH     INITIATE               CODE \n 0008:312C 0008AH     INITIATE               CODE \n 0008:31B6 0008AH     INITIATE               CODE \n 0008:3240 000A5H     INITIATE               CODE \n 0008:32E6 00154H     INITIATE               CODE \n 0008:343A 00078H     INITIATE               CODE \n 0008:34B2 001D9H     INITIATE               CODE \n 0008:368C 0009BH     INITIATE               CODE \n 0008:3728 00053H     INITIATE               CODE \n 0008:377C 00185H     INITIATE               CODE \n 0008:3902 0009FH     INITIATE               CODE \n 0008:39A2 00064H     INITIATE               CODE \n 0008:3A06 000E0H     INSERT                 CODE \n 0008:3AE6 002B2H     INSERT                 CODE \n 0008:3D98 0008FH     INSERT                 CODE \n 0008:3E28 000A3H     INSERT                 CODE \n 0008:3ECC 00078H     LISTGET                CODE \n 0008:3F44 000C0H     LOSTFOCUS              CODE \n 0008:4004 0004DH     LOSTFOCUS              CODE \n 0008:4052 000D0H     LOSTFOCUS              CODE \n 0008:4122 000C2H     LOSTFOCUS              CODE \n 0008:41E4 00124H     LOSTFOCUS              CODE \n 0008:4308 00174H     LOSTFOCUS              CODE \n 0008:447C 0006BH     LOSTFOCUS              CODE \n 0008:44E8 0007CH     LOSTFOCUS              CODE \n 0008:4564 00098H     MODIFY                 CODE \n 0008:45FC 00074H     MODIFY                 CODE \n 0008:4670 0009AH     MODIFY                 CODE \n 0008:470A 0013FH     REFILL                 CODE \n 0008:484A 00096H     SETITEMS               CODE \n 0008:48E0 0010EH     TDLGFIND               CODE \n 0008:49EE 00050H     HANDLEEVEN             CODE \n 0008:4A3E 00067H     HANDLEEVEN             CODE \n 0008:4AA6 000A3H     HANDLEEVEN             CODE \n 0008:4B4A 000FDH     HANDLEEVEN             CODE \n 0008:4C48 00036H     DLGFINDTEX             CODE \n 0008:4C7E 0007FH     GETTASKS               CODE \n 0008:4CFE 00052H     LARGEFONTS             CODE \n 0008:4D50 00066H     COLORSQTY              CODE \n 0008:4DB6 00063H     SCRRESOLUT             CODE \n 0008:4E1A 00031H     ISWIN2000              CODE \n 0008:4E4C 00068H     GETSYSFONT             CODE \n 0008:4EB4 000C0H     HELPTOPIC              CODE \n 0008:4F74 0006CH     HELPTOPIC              CODE \n 0008:4FE0 00073H     HELPINDEX              CODE \n 0008:5054 00087H     HELPSEARCH             CODE \n 0008:50DC 00075H     HELPPOPUP              CODE \n 0008:5152 0005AH     WINHELP                CODE \n 0008:51AC 00124H     SPWINHELP              CODE \n 0008:52D0 00125H     SPWINHELPC             CODE \n 0008:53F6 00240H     TICON                  CODE \n 0008:5636 00079H     SETNAME                CODE \n 0008:56B0 0007EH     SETFILE                CODE \n 0008:572E 00072H     SETFILE                CODE \n 0008:57A0 0004CH     SETFILE                CODE \n 0008:57EC 00729H     TMDIFRAME              CODE \n 0008:5F16 00060H     COMMAND                CODE \n 0008:5F76 000B1H     COMMAND                CODE \n 0008:6028 0020EH     COMMAND                CODE \n 0008:6236 00120H     COMMAND                CODE \n 0008:6356 000AFH     SETMENU                CODE \n 0008:6406 000AAH     SETMENU                CODE \n 0008:64B0 00021H     GETWNDFRAM             CODE \n 0008:64D2 0004FH     GOTFOCUS               CODE \n 0008:6522 00043H     GOTFOCUS               CODE \n 0008:6566 0008CH     GOTFOCUS               CODE \n 0008:65F2 000F1H     GOTFOCUS               CODE \n 0008:66E4 000C0H     GOTFOCUS               CODE \n 0008:67A4 0016CH     GOTFOCUS               CODE \n 0008:6910 00142H     GOTFOCUS               CODE \n 0008:6A52 0008BH     GOTFOCUS               CODE \n 0008:6ADE 0017FH     MEMSTAT                CODE \n 0008:6C5E 0015FH     NEXTMEM                CODE \n 0008:6DBE 0012FH     GBLMEMSTAT             CODE \n 0008:6EEE 00276H     TMETER                 CODE \n 0008:7164 000ECH     SET                    CODE \n 0008:7250 000C7H     SET                    CODE \n 0008:7318 00066H     SET                    CODE \n 0008:737E 00067H     SET                    CODE \n 0008:73E6 00053H     WAITSECOND             CODE \n 0008:743A 00182H     MSGRUN                 CODE \n 0008:75BC 0004CH     MSGWAIT                CODE \n 0008:7608 0003CH     STOPUNTIL              CODE \n 0008:7644 00092H     MENUBEGIN              CODE \n 0008:76D6 000BDH     MENUADDITE             CODE \n 0008:7794 000BAH     MENUEND                CODE \n 0008:784E 00037H     LASTMENU               CODE \n 0008:7886 00038H     LASTITEMPO             CODE \n 0008:78BE 00077H     RPTBEGIN               CODE \n 0008:7936 0005FH     RPTADDGROU             CODE \n 0008:7996 00074H     RPTADDCOLU             CODE \n 0008:7A0A 0009AH     RPTEND                 CODE \n 0008:7AA4 00166H     TPEN                   CODE \n 0008:7C0A 003CAH     TRADMENU               CODE \n 0008:7FD4 00072H     NOPTION                CODE \n 0008:8046 00057H     _SELECT                CODE \n 0008:809E 0008DH     _SELECT                CODE \n 0008:812C 000B3H     SETOPTION              CODE \n 0008:81E0 0015AH     SETOPTION              CODE \n 0008:833A 007E0H     TRFILE                 CODE \n 0008:8B1A 003DBH     TRGROUP                CODE \n 0008:8EF6 000E1H     HEADER                 CODE \n 0008:8FD8 000DBH     FOOTER                 CODE \n 0008:90B4 0011EH     TRECT                  CODE \n 0008:91D2 00151H     TACCTABLE              CODE \n 0008:9324 00554H     TFILE                  CODE \n 0008:9878 0004BH     NGETBYTE               CODE \n 0008:98C4 00055H     NGETWORD               CODE \n 0008:991A 00048H     CGETSTR                CODE \n 0008:9962 0003CH     PUTBYTE                CODE \n 0008:999E 00043H     PUTWORD                CODE \n 0008:99E2 000FDH     COUNT                  CODE \n 0008:9AE0 00236H     DELBYTES               CODE \n 0008:9D16 00228H     INSBYTES               CODE \n 0008:9F3E 00046H     NOEXT                  CODE \n 0008:9F84 001C6H     TTIMER                 CODE \n 0008:A14A 0006FH     TIMEREVENT             CODE \n 0008:A1BA 003E8H     TTXTFILE               CODE \n 0008:A5A2 000A5H     ADVANCE                CODE \n 0008:A648 0002EH     APPENDLN               CODE \n 0008:A676 000BAH     REWIND                 CODE \n 0008:A730 0006EH     READLINE               CODE \n 0008:A79E 000B1H     DELLINE                CODE \n 0008:A850 000BDH     DELLINE                CODE \n 0008:A90E 00085H     INSLINE                CODE \n 0008:A994 00145H     GETVALUE               CODE \n 0008:AADA 0013CH     SETVALUE               CODE \n 0008:AC16 00075H     GOTO                   CODE \n 0008:AC8C 00055H     XPADR                  CODE \n 0008:ACE2 00055H     XPADL                  CODE \n 0008:AD38 000A4H     XPADC                  CODE \n 0008:ADDC 00272H     TCLIPBOARD             CODE \n 0008:B04E 0005CH     SETBITMAP              CODE \n 0008:B0AA 00054H     SETTEXT                CODE \n 0008:B0FE 0004BH     GETBITMAP              CODE \n 0008:B14A 00049H     GETTEXT                CODE \n 0008:B194 00048H     ISEMPTY                CODE \n 0008:B1DC 00263H     TBUTTON                CODE \n 0008:B440 00118H     CGENPRG                CODE \n 0008:B558 000CDH     CGENPRG                CODE \n 0008:B626 0013CH     CGENPRG                CODE \n 0008:B762 0007EH     CGENPRG                CODE \n 0008:B7E0 00076H     CGENPRG                CODE \n 0008:B856 000CAH     CGENPRG                CODE \n 0008:B920 000C6H     CGENPRG                CODE \n 0008:B9E6 00361H     CGENPRG                CODE \n 0008:BD48 0071EH     TMENUITEM              CODE \n 0008:C466 00145H     SETPROMPT              CODE \n 0008:C5AC 00069H     __HELPTOPI             CODE \n 0008:C616 0006CH     __HELPTOPI             CODE \n 0008:C682 0007FH     __HELPTOPI             CODE \n 0008:C702 000D3H     ASAVE                  CODE \n 0008:C7D6 000D6H     ASAVE                  CODE \n 0008:C8AC 000DAH     ASAVE                  CODE \n 0008:C986 0014FH     AREAD                  CODE \n 0008:CAD6 00152H     AREAD                  CODE \n 0008:CC28 00165H     AREAD                  CODE \n 0008:CD8E 00046H     CCAPTION               CODE \n 0008:CDD4 006FCH     TMENU                  CODE \n 0008:D4D0 0007AH     NEWSYS                 CODE \n 0008:D54A 0004FH     DELITEMS               CODE \n 0008:D59A 00059H     GETPOPUP               CODE \n 0008:D5F4 00098H     SEARCHSUBM             CODE \n 0008:D68C 000EFH     SEARCHITEM             CODE \n 0008:D77C 000A1H     DESTROYITE             CODE \n 0008:D81E 00197H     RESBUILD               CODE \n 0008:D9B6 000FAH     MENUCLONE              CODE \n 0008:DAB0 003D1H     ADDMDI                 CODE \n 0008:DE82 0033AH     ADDHELP                CODE \n 0008:E1BC 00993H     ADDEDIT                CODE \n 0008:EB50 00301H     ADDFILE                CODE \n 0008:EE52 00687H     TCOMBOBOX              CODE \n 0008:F4DA 00159H     CHANGE                 CODE \n 0008:F634 000B4H     CHANGE                 CODE \n 0008:F6E8 0004CH     DEFCONTROL             CODE \n 0008:F734 000C6H     DEFCONTROL             CODE \n 0008:F7FA 000EDH     SETBITMAPS             CODE \n 0008:F8E8 00165H     SETBITMAPS             CODE \n 0008:FA4E 00078H     VARGET                 CODE \n 0008:FAC6 00056H     LVALID                 CODE \n 0008:FB1C 0008EH     LVALID                 CODE \n 0008:FBAA 00073H     SHOWTOOLTI             CODE \n 0008:FC1E 000ABH     SHOWTOOLTI             CODE \n 0008:FCCA 002C6H     SHOWTOOLTI             CODE \n 0009:0000 00160H     TINI                   CODE \n 0009:0160 00123H     GET                    CODE \n 0009:0284 0007BH     SECTIONS               CODE \n 0009:0300 00155H     GETPVPRFSE             CODE \n 0009:0456 0076CH     TMDICHILD              CODE \n 0009:0BC2 00089H     MDIACTIVAT             CODE \n 0009:0C4C 00092H     PRINT                  CODE \n 0009:0CDE 000E9H     PRINT                  CODE \n 0009:0DC8 00149H     PRINT                  CODE \n 0009:0F12 004CDH     TMDICLIENT             CODE \n 0009:13E0 00064H     CHILDNEW               CODE \n 0009:1444 0007FH     GETACTIVE              CODE \n 0009:14C4 0003CH     GETACTIVE              CODE \n 0009:1500 000C9H     CHILDCLOSE             CODE \n 0009:15CA 00059H     LCLOSEALL              CODE \n 0009:1624 00461H     TRCOLUMN               CODE \n 0009:1A86 0010CH     SAYTITLE               CODE \n 0009:1B92 00170H     SAYDATA                CODE \n 0009:1D02 000E9H     SAYTOTAL               CODE \n 0009:1DEC 00185H     TITLEHEIGH             CODE \n 0009:1F72 002CEH     UNDERLINE              CODE \n 0009:2240 002CDH     TRADIO                 CODE \n 0009:250E 002B4H     TSAY                   CODE \n 0009:27C2 00062H     VARPUT                 CODE \n 0009:2824 00249H     MSGGET                 CODE \n 0009:2A6E 00C7CH     RPREVIEW               CODE \n 0009:36EA 0042DH     BUILDMENU              CODE \n 0009:3B18 002B3H     PAINTMETA              CODE \n 0009:3DCC 00100H     NEXTPAGE               CODE \n 0009:3ECC 000FCH     PREVPAGE               CODE \n 0009:3FC8 000F9H     TOPPAGE                CODE \n 0009:40C2 000DDH     BOTTOMPAGE             CODE \n 0009:41A0 001DBH     TWOPAGES               CODE \n 0009:437C 001C6H     ZOOM                   CODE \n 0009:4542 00040H     ZOOM                   CODE \n 0009:4582 0012FH     SETORG1                CODE \n 0009:46B2 001A0H     SETORG2                CODE \n 0009:4852 001B8H     CHECKKEY               CODE \n 0009:4A0A 000DDH     SETFACTOR              CODE \n 0009:4AE8 002AAH     PRINTPAGE              CODE \n 0009:4D92 001B1H     PRINTPRV               CODE \n 0009:4F44 00642H     TMSGBAR                CODE \n 0009:5586 0007EH     ADJUST                 CODE \n 0009:5604 00067H     ADJUST                 CODE \n 0009:566C 000B6H     CLOCKON                CODE \n 0009:5722 000B8H     DATEON                 CODE \n 0009:57DA 00082H     INSITEM                CODE \n 0009:585C 00086H     DELITEM                CODE \n 0009:58E2 001F8H     DELITEM                CODE \n 0009:5ADA 002BEH     KEYBON                 CODE \n 0009:5D98 00189H     SETMSG                 CODE \n 0009:5F22 00099H     SETMSG                 CODE \n 0009:5FBC 0006EH     CHECKTIMER             CODE \n 0009:602A 0016BH     TIMEREVAL              CODE \n 0009:6196 00025H     INITTIME$              CODE \n 0009:61BC 000AAH     TIMEFROMST             CODE \n 0009:6266 00077H     SECSFROMST             CODE \n 0009:62DE 00052H     LISDIR                 CODE \n 0009:6330 00039H     CFILEDISC              CODE \n 0009:636A 0004FH     CFILEPATH              CODE \n 0009:63BA 0007EH     CFILENOPAT             CODE \n 0009:6438 00027H     CFILENAME              CODE \n 0009:6460 00047H     CFILEMASK              CODE \n 0009:64A8 00058H     CFILENOEXT             CODE \n 0009:6500 0006EH     CFILEEXT               CODE \n 0009:656E 00047H     CFILESUBDI             CODE \n 0009:65B6 00088H     CNEWFILENA             CODE \n 0009:663E 00051H     CTEMPFILE              CODE \n 0009:6690 00041H     FSIZE                  CODE \n 0009:66D2 0004CH     FDATE                  CODE \n 0009:671E 00041H     FTIME                  CODE \n 0009:6760 000EEH     AFINDFILE              CODE \n 0009:684E 000CAH     LOGFILE                CODE \n 0009:6918 000FFH     LOGSTACK               CODE \n 0009:6A18 00139H     GETDISKFRE             CODE \n 0009:6B52 00892H     TLISTBOX               CODE \n 0009:73E4 000C1H     ASELECTION             CODE \n 0009:74A6 0005DH     SETSELITEM             CODE \n 0009:7504 000D6H     SWAPUP                 CODE \n 0009:75DA 000DFH     SWAPDOWN               CODE \n 0009:76BA 00410H     TMETAFILE              CODE \n 0009:7ACA 000D3H     SETZOOMFAC             CODE \n 0009:7B9E 00092H     WMF2EMF                CODE \n 0009:7C30 0012CH     GETMETAFBE             CODE \n 0009:7D5C 00133H     SETWINMFB              CODE \n 0009:7E90 00125H     PLAYEMF                CODE \n 0009:7FB6 0011FH     DELETEEMF              CODE \n 0009:80D6 00134H     GETEMFHEAD             CODE \n 0009:820A 00118H     TCURSOR                CODE \n 0009:8322 003E8H     TMSGITEM               CODE \n 0009:870A 000D8H     NLEFT                  CODE \n 0009:87E2 00099H     NLEFT                  CODE \n 0009:887C 00059H     ISOVER                 CODE \n 0009:88D6 00663H     TDIALOG                CODE \n 0009:8F3A 00137H     CTOCHAR                CODE \n 0009:9072 00169H     CTOCHAR                CODE \n 0009:91DC 000E7H     DEFINE                 CODE \n 0009:92C4 00146H     DEFINE                 CODE \n 0009:940A 00187H     DEFINE                 CODE \n 0009:9592 00108H     VBXINITDIA             CODE \n 0009:969A 000FCH     VBXINIT                CODE \n 0009:9796 000EEH     VBXTERM                CODE \n 0009:9884 000F1H     VBXTERM                CODE \n 0009:9976 00088H     CREATEDLGE             CODE \n 0009:99FE 000EBH     GETHOTPOS              CODE \n 0009:9AEA 000A4H     GETHOTPOS              CODE \n 0009:9B8E 00088H     HELP                   CODE \n 0009:9C16 0005DH     ERASEBKGND             CODE \n 0009:9C74 00060H     ERASEBKGND             CODE \n 0009:9CD4 000CBH     ERASEBKGND             CODE \n 0009:9DA0 00059H     SYSCOMMAND             CODE \n 0009:9DFA 0019BH     SYSCOMMAND             CODE \n 0009:9F96 000D5H     SYSCOMMAND             CODE \n 0009:A06C 00075H     HELP95                 CODE \n 0009:A0E2 00135H     TIMAGE                 CODE \n 0009:A218 0016EH     LOADIMAGE              CODE \n 0009:A386 00162H     LOADIMAGE              CODE \n 0009:A4E8 0004EH     PROGRESS               CODE \n 0009:A536 00106H     NVIEWLIBLO             CODE \n 0009:A63C 0012BH     NVIEWLIB32             CODE \n 0009:A768 00517H     TFOLDER                CODE \n 0009:AC80 00055H     SYSWAIT                CODE \n 0009:ACD6 00214H     ADDITEM                CODE \n 0009:AEEA 00040H     DELPAGES               CODE \n 0009:AF2A 00153H     LOADPAGES              CODE \n 0009:B07E 001ACH     TBRUSH                 CODE \n 0009:B22A 00824H     TSCROLLBAR             CODE \n 0009:BA4E 0019AH     WINNEW                 CODE \n 0009:BBE8 00023H     SETPAGE                CODE \n 0009:BC0C 0015CH     TSTRUCT                CODE \n 0009:BD68 0010BH     ADDMEMBER              CODE \n 0009:BE74 00103H     ONERROR                CODE \n 0009:BF78 0040BH     SETMEMBER              CODE \n 0009:C384 00174H     GETMEMBER              CODE \n 0009:C4F8 00030H     THISSTRUCT             CODE \n 0009:C528 00226H     TDDE                   CODE \n 0009:C74E 000A0H     EXECUTE                CODE \n 0009:C7EE 00222H     EXECUTE                CODE \n 0009:CA10 00098H     DDEACK                 CODE \n 0009:CAA8 000ACH     DDETERMINA             CODE \n 0009:CB54 007F8H     TBTNBMP                CODE \n 0009:D34C 003D3H     NEWBAR                 CODE \n 0009:D720 000DAH     FREEBITMAP             CODE \n 0009:D7FA 0026FH     LOADBITMAP             CODE \n 0009:DA6A 0052FH     TBAR                   CODE \n 0009:DF9A 0023CH     NEWAT                  CODE \n 0009:E1D6 00320H     BTNADJUST              CODE \n 0009:E4F6 0028CH     GETBTNLEFT             CODE \n 0009:E782 000F1H     GETBTNTOP              CODE \n 0009:E874 0020EH     RBUTTONDOW             CODE \n 0009:EA82 00386H     RBUTTONDOW             CODE \n 0009:EE08 00050H     RBUTTONDOW             CODE \n 0009:EE58 003CDH     RBUTTONDOW             CODE \n 0009:F226 0061FH     FLOAT                  CODE \n 0009:F846 002ACH     FLOATCLICK             CODE \n 0009:FAF2 002CFH     SAVEINI                CODE \n 0009:FDC2 00030H     __LOWMEMER             CODE \n 0009:FDF2 00197H     _FWGENERRO             CODE \n 000A:0000 00433H     TFONT                  CODE \n 000A:0434 001D5H     CHOOSE                 CODE \n 000A:060A 0009DH     NSIZE                  CODE \n 000A:06A8 0006CH     NHEIGHT                CODE \n 000A:0714 00082H     NHEIGHT                CODE \n 000A:0796 0007EH     NWIDTH                 CODE \n 000A:0814 00082H     NWIDTH                 CODE \n 000A:0896 00946H     TBITMAP                CODE \n 000A:11DC 00140H     ADJCONTROL             CODE \n 000A:131C 000FBH     CENTER                 CODE \n 000A:1418 0004CH     COPYTOCLIP             CODE \n 000A:1464 000DAH     LOADFROMCL             CODE \n 000A:153E 000DCH     PAGELEFT               CODE \n 000A:161A 000D5H     PAGERIGHT              CODE \n 000A:16F0 00075H     RELOAD                 CODE \n 000A:1766 00113H     SCROLLUP               CODE \n 000A:187A 0007BH     SCROLLDOWN             CODE \n 000A:18F6 0016AH     SCROLLLEFT             CODE \n 000A:1A60 00115H     SCROLLRIGH             CODE \n 000A:1B76 001DAH     SCROLLADJU             CODE \n 000A:1D50 0009BH     INSPECT                CODE \n 000A:1DEC 00084H     INSPECT                CODE \n 000A:1E70 00D67H     TCONTROL               CODE \n 000A:2BD8 0017CH     ADJCLIENT              CODE \n 000A:2D54 00114H     ADJLEFT                CODE \n 000A:2E68 00114H     ADJRIGHT               CODE \n 000A:2F7C 00099H     _SETFOCUS              CODE \n 000A:3016 000ECH     COLORS                 CODE \n 000A:3102 00099H     NTOP                   CODE \n 000A:319C 0014EH     FORWHEN                CODE \n 000A:32EA 001E9H     KILLFOCUS              CODE \n 000A:34D4 0013EH     FWLOSTFOCU             CODE \n 000A:3612 0006AH     DRAGBEGIN              CODE \n 000A:367C 0058EH     CHECKDOTS              CODE \n 000A:3C0A 00398H     SHOWDOTS               CODE \n 000A:3FA2 00126H     MRESIZE                CODE \n 000A:40C8 00288H     NALIGN                 CODE \n 000A:4350 0002EH     SETGRIDSIZ             CODE \n 000A:437E 00027H     GETGRIDSIZ             CODE \n 000A:43A6 00857H     TGET                   CODE \n 000A:4BFE 00058H     EDITUPDATE             CODE \n 000A:4C56 00053H     CTEXT                  CODE \n 000A:4CAA 0005BH     CTEXT                  CODE \n 000A:4D06 0006FH     GETSEL                 CODE \n 000A:4D76 00071H     GETSEL                 CODE \n 000A:4DE8 0004CH     GETSELPOS              CODE \n 000A:4E34 000BBH     GETDELSEL              CODE \n 000A:4EF0 0009EH     COPY                   CODE \n 000A:4F8E 0009EH     COPY                   CODE \n 000A:502C 001AFH     PASTE                  CODE \n 000A:51DC 0009AH     PASTE                  CODE \n 000A:5276 0008CH     DISPTEXT               CODE \n 000A:5302 000D8H     KEYUP                  CODE \n 000A:53DA 000B8H     SELFILE                CODE \n 000A:5492 00099H     _SETPOS                CODE \n 000A:552C 0014CH     CUT                    CODE \n 000A:5678 000A7H     CUT                    CODE \n 000A:5720 000D6H     INC                    CODE \n 000A:57F6 000DAH     DEC                    CODE \n 000A:58D0 0011FH     SPINNER                CODE \n 000A:59F0 001D0H     SCROLLDATE             CODE \n 000A:5BC0 00128H     SCROLLNUMB             CODE \n 000A:5CE8 00022H     NWINDOWS               CODE \n 000A:5D0A 00021H     GETALLWIN              CODE \n 000A:5D2C 02B25H     TWINDOW                CODE \n 000A:8852 0015AH     REGISTER               CODE \n 000A:89AC 00083H     WNDCREATEE             CODE \n 000A:8A30 0004AH     ASYNCSELEC             CODE \n 000A:8A7A 00078H     COORSUPDAT             CODE \n 000A:8AF2 0005BH     CTITLE                 CODE \n 000A:8B4E 0009BH     DDEINITIAT             CODE \n 000A:8BEA 0007AH     DROPFILES              CODE \n 000A:8C64 00201H     GENDBF                 CODE \n 000A:8E66 0005BH     GETCLIRECT             CODE \n 000A:8EC2 0005BH     GETRECT                CODE \n 000A:8F1E 0014CH     MEASUREITE             CODE \n 000A:906A 00122H     MENUCHAR               CODE \n 000A:918C 0011FH     MENUSELECT             CODE \n 000A:92AC 00070H     NOTIFY                 CODE \n 000A:931C 00229H     ATOTEXT                C','',0,'AIA=','6iydtvdj',1,0,'',275,0,0),(8426,1952,3,455,0,'195.97.105.161',1141148405,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3mbdu1zv]Evans,\n\nIts fixed. Its a bug on the build that you are using. I email you the new files.[/quote:3mbdu1zv]\n\nAntonio\nThanks for the fix provided.\nIt works fine now.\nSaludos,\nEvans','',0,'gA==','3mbdu1zv',1,0,'',455,0,0),(8427,1818,3,455,0,'195.97.105.161',1141148564,1,0,1,1,1,0,'','','[quote=&quot;Roger Seiler&quot;:n4jn609v]Could you re-phrase your question, please? I can\'t understand your question as presently stated, but would like to help if possible.[/quote:n4jn609v]\n\nI guess our friend wants to create a printout with Preview, but he does not define how he wants the fields to be printed. \nI guess a small rephrasing wouldn\'t hurt anyone... <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','n4jn609v',1,0,'',455,0,0),(8428,1370,3,303,0,'68.7.28.54',1141148575,1,0,1,1,1,0,'','','Randal,\n\nIs this a 16bit FW application? If so, I had this problem with all versions of Outlook. The only solution I could come up with was to use an external 32bit FWH app to send the mail (called from the 16bit app).\n\nIf it is not a 16bit app, then how are you formatting the email address you are sending to MAPI?\n\nJames','',0,'gA==','63hziojz',1,0,'',303,0,0),(8429,1972,6,28,0,'213.27.201.254',1141148776,1,0,1,1,1,0,'','','¡¡ compañero !!!\n\nahi va:\n\n\n[code:31omju4j]\n\n      pt &#58;= GetCursorPos&#40;&#41;\n      hWnd &#58;= &#58;&#58;SmallestWindowFromPoint&#40; pt &#41;\n\n/*****************************************************************************************/\n  METHOD SmallestWindowFromPoint&#40; point &#41; CLASS TSpy\n/*****************************************************************************************/\n	local rect, rcTemp\n	local hParent, hWnd, hTemp\n\n	hWnd &#58;= WindowFromPoint&#40; point&#91;2&#93;, point&#91;1&#93; &#41;\n	if hWnd != 0\n\n		rect &#58;= GetWndRect&#40; hWnd &#41;\n		hParent &#58;= GetParent&#40; hWnd &#41;\n\n		// Has window a parent?\n		if hParent != 0\n\n			// Search down the Z-Order\n			hTemp &#58;= hWnd\n			do while &#46;t&#46;\n\n				hTemp  &#58;= GetWindow&#40; hTemp, GW_HWNDNEXT &#41;\n\n				// Search window contains the point, hase the same parent, and is visible?\n				rcTemp &#58;= GetWndRect&#40; hTemp &#41;\n				if PtInRect&#40; point&#91;1&#93;,point&#91;2&#93;, rcTemp  &#41; &#46;and&#46; GetParent&#40;hTemp&#41; == hParent &#46;and&#46; IsWindowVisible&#40;hTemp&#41;\n\n					// Is it smaller?\n					if &#40;rcTemp&#91;4&#93; - rcTemp&#91;2&#93;&#41; * &#40;rcTemp&#91;3&#93; - rcTemp&#91;1&#93;&#41; &lt; &#40;&#40;rect&#91;4&#93; - rect&#91;2&#93;&#41; * &#40;rect&#91;3&#93; - rect&#91;1&#93;&#41;&#41;\n						// Found new smaller window!\n						hWnd &#58;= hTemp\n						rect &#58;= GetWndRect&#40;hWnd&#41;\n					endif\n				endif\n				if hTemp == 0\n				   exit\n				endif\n			enddo\n		endif\n	endif\n\n	return hWnd\n[/code:31omju4j]\n\nYa sabes, estoy de guardia  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nParte es de mi cosecha y parte del Google.\n\nUn saludo','',0,'AIA=','31omju4j',1,0,'',28,0,0),(8430,1972,6,63,0,'80.37.102.128',1141149346,1,0,1,1,1,0,'','','Paco:\nEs fantástico esto de tener un informático de guardia!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nMe lo estudio y te digo algo.\n10E6 de gracias!!!\nRafael','',0,'AIA=','2fqu983b',1,0,'',63,0,0),(8431,1936,3,455,0,'195.97.105.161',1141151560,1,0,1,1,1,0,'','','[quote=&quot;dpaterso&quot;:120g5sme]Good Morning,\nI have tried the SetColor( ) method for the Button Bar - it almost works but there is a sort of \'color bleeding\' that occurs - I don\'t know why!\n[/quote:120g5sme]\nI have tried to change the buttonbar colors in RPREVIEW.PRG \nand it seems to work fine.\nI do not see any \'colors bleeding\'.\nUsing WinXP Home Edition SP1\nXHB Professional and FWH\n[code:120g5sme]\n    DEFINE BUTTONBAR oBar SIZE 26, iif&#40; LargeFonts&#40;&#41;, 30, 26&#41; OF oWnd   // _3D\n     oBar&#58;SetColor&#40;CLR_WHITE, RGB&#40;188,188,188&#41;&#41;\n[/code:120g5sme]\nRegards Evans','',0,'gIA=','120g5sme',1,0,'',455,0,0),(8432,1979,3,455,0,'195.97.105.161',1141151962,1,0,1,1,1,0,'','Menu styles','Hi all,\n\nExcept for the typical WinXP menus (black letters on white background),\ndo we have any other choice, such as some menus that have some color\nin the background ?\nRegards\nEvans','',0,'gIA=','sjoog19p',1,0,'',455,0,0),(8433,1958,7,123,0,'81.39.239.66',1141153956,1,0,1,1,1,0,'','','Hola,\n\n¿Habeis probado a hacer un hide de aquellas ventanas que no están activas y solo tener visible la que se está viendo (y valga la redundancia)?\n\nSaludos,\nJosé Luis Capel','',0,'gIA=','2xmsfj16',1,0,'',123,0,0),(8434,1980,6,471,0,'201.240.34.246',1141156028,1,0,1,1,1,1,'','Como llenar un arreglo desde  C  y pasarlo a XHB','Estimados Amigos \n\nEstoy de vuellta por aca depues de unas largas vacaciones \n\nQueria saber si alguien tiene un ejemplo de como llenar un arreglo en lenguaje C y pasarlo el resultado a una funcion xharbour \n\nNo veo otras forma de hacer q un arreglo se carge mas rapido. \n\nCreo q lei en los nuevos bucaneros algo de eso saben de donde \nse puede descargar\n\n\nAgradecido por su consulta \n\nVladimir Zorrilla Llerena \n\n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->\n_________________','',0,'gIA=','3onk0ol6',1,0,'',471,0,0),(8435,1958,7,262,0,'83.97.168.140',1141158152,1,0,1,1,1,1,'','','con hide() , no se resuelve el problema , he modificado un poco el tutor06 , para probarlo , pero no vale , se queda la ventana oculta , menos el menu  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nAntoniooo ... Socorrooo  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nCreo que esto ya es cosa de Antonio . \nDe momento me quedo en la version anterior , y mira que me fastidia ahora que tenía los dialogos de codigo y el log de errores ...\nPor hoy ya está bien.\nSaludso.','',0,'gIA=','u9xnj7bf',1,0,'',262,0,0),(8436,1972,6,63,0,'80.37.102.128',1141159637,1,0,1,1,1,0,'','','Paco:\nLo acabo de probar a fondo.  FORMIDABLE!!!  Es exactamente lo que yo buscaba.  Y pensar que he gastado un montón de horas en pruebas inútiles...\nMuchas gracias otra vez.\nRafael','',0,'gIA=','38c4oew4',1,0,'',63,0,0),(8437,1981,3,6,0,'82.57.159.53',1141161543,1,0,1,1,1,1,'','Unespected calling sequence','The following two samples show a different calling sequence between a window and a dialog:\n\n[code:bend114z]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 LISTBOX FIELDS;\n           ON CHANGE MSGINFO&#40; &quot;OnChange&quot; &#41;\n\n    MSGINFO&#40; &quot;Here&quot; &#41;\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT MSGINFO&#40; &quot;OnInit&quot; &#41;\n\n    RETURN NIL[/code:bend114z]\n\n[code:bend114z]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 LISTBOX FIELDS;\n           ON CHANGE MSGINFO&#40; &quot;OnChange&quot; &#41;\n\n    MSGINFO&#40; &quot;Here&quot; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT MSGINFO&#40; &quot;OnInit&quot; &#41;\n\n    RETURN NIL[/code:bend114z]\n\nEMG','',0,'AIA=','bend114z',1,0,'',6,0,0),(8438,1982,3,425,0,'213.22.204.230',1141161758,1,0,1,1,1,0,'','Folders in FwH','Hi \n\nI\'m using Folders in a aplication and It doesn\'t appear !. In Fw works Ok.\n\nFwHX 2.6 May 2005\n\nRegards\n\nPedro','',0,'AIA=','2xjhroqe',1,0,'',425,0,0),(8439,1982,3,3,0,'82.255.105.3',1141162027,1,0,1,1,1,0,'','Re: Folders in FwH','[quote=&quot;Pedro Faro&quot;:22aknr35]Hi \n\nI\'m using Folders in a aplication and It doesn\'t appear !. In Fw works Ok.\n\nFwHX 2.6 May 2005\n\nRegards\n\nPedro[/quote:22aknr35]\n\nPedro\n\nChange the control in your Rc or dialog to systabcontrol32 like example below\n\n CONTROL \"\", 201, \"SYSTABCONTROL32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 2, 2, 420, 261\n\nRichard','',0,'gA==','22aknr35',1,0,'',3,0,0),(8440,1958,7,123,0,'83.50.63.184',1141162300,1,0,1,1,1,0,'','','José Luis,\n\nPrueba a ocultar el menú así:\n\nShowWindow( oMenu:hMenu, SW_HIDE)\n\nSaludos,\nJosé Luis Capel','',0,'gA==','39ssf0lh',1,0,'',123,0,0),(8441,1972,6,28,0,'87.218.46.222',1141162443,1,0,1,1,1,0,'','','Ya, yo tambien lo habia buscado exactamente igual y lo solucione hace ya una temporada larga. Por si te interesa se puede hacer muchas cosas con esto, por ejemplo:\n\n- inspeccionar las propiedades de los controles, ventanas, dialogos etc a nivel de API.\n- Mandar mensajes a una ventana que los recogera y procesará de la forma que le programes.\n- sacar fotos, por supuesto\ny un monton de cosas mas\n\nEn cuanto al efecto de rectángulo negro, usa el truco de una ventana estilo WS_POPUP que ocupe toda la pantalla y con la brocha NULL. De esta forma puedes pintar lo que quieras \"sobre las ventanas\" a base de obtener el hDC de la ventana transparente.\n\nUn saludo\n\nPaco (PDG) \n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2783skum',1,0,'',28,0,0),(8442,1370,3,213,0,'72.177.228.25',1141163131,1,0,1,1,1,0,'','','James,\n\nThis is a 16-bit app but I\'m calling a 32-bit program written in FWH/xHarbour and passing the email address as a command line argument.  This works fine with Outlook Express and other mapi programs.\n\nThanks,\nRandal','',0,'gA==','108uo4cx',1,0,'',213,0,0),(8443,1980,6,123,0,'83.50.63.184',1141163931,1,0,1,1,1,0,'','','Vladimir,\n\n[quote:20usmbb3]Queria saber si alguien tiene un ejemplo de como llenar un arreglo en lenguaje C y pasarlo el resultado a una funcion xharbour [/quote:20usmbb3]\n\nMira en <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> el artículo titulado \"Aprender a restar...\"\n\nSaludos,\nJosé Luis Capel','',0,'gA==','20usmbb3',1,0,'',123,0,0),(8444,1370,3,303,0,'68.7.28.54',1141164072,1,0,1,1,1,0,'','','Randal,\n\nSo, if I understand you correctly, you are calling the MAPI client from a 32bit FWH program? Can we see the code doing the calling?\n\nJames','',0,'gA==','owmscpsk',1,0,'',303,0,0),(8445,1931,6,123,0,'83.50.63.184',1141164338,1,0,1,1,1,0,'','','José,\n\nYo estoy utilizando ADO para atacar SqlServer.  Ado  es un buen sistema, relativamente fácil, estable y de amplio abanico de bases de datos.\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> tienes dos clases básicas y una serie de ejemplos (entre ellos un ABM completo) para atacar un SqlServer.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','36qyp0ej',1,0,'',123,0,0),(8446,1983,3,339,0,'200.222.117.194',1141168295,1,0,1,1,1,0,'','How ADD DATA in CLASS','Hi Friends ,\n\n   How ADD DATA In CLass ?\n\n\nCLASS TESTE\n   DATA XXXX   -&gt; ADD class in CREATE class.\n   METHOD NEW(X,Y)\nENDCLASS   \n\nMETHOD new(x,Y)  CLASS TESTE\n\n***   HOW  ADD DATA THIS CLASS IS HERE ****\n\n\nrETURN(NIL)\n\n\nthanks','',0,'gA==','2axlkomg',1,0,'',339,0,0),(8447,1370,3,213,0,'72.177.228.25',1141170192,1,0,1,1,1,0,'','','James,\n\nHere it is:\n\nFUNCTION SendEmail(cToWhom)\n\n  Local afiles:={},cSubject,cBody,cFiles     \n  Local path:=\"\\\"+curdir()+\"\\\",oMail\n  LOCAL nRetCode\n\n  IF empty(cToWhom)\n      Msginfo(\"Invalid Email Address!\")\n      RETURN NIL\n  ENDIF \n\n  if ! Empty(cFiles)\n    aadd(afiles,{cfiles,\"\"})\n  endif\n\n*  nRetCode := MAPILogOn()\n\n/* IF nRetCode == -1\n      MsgStop( \"Error initializing mail\" )\n      RETURN NIL\n   ENDIF */\n\n   nRetCode = MAPISendMail( , , ,;\n              DToS( date() ) + \" \" +  time(), ;\n              , ,.t.,;\n              , { alltrim( cToWhom )}, )\n\n   IF nRetCode == 25\n      MsgStop(\"Invalid email address!\", \"Problem\")\n   ELSEIF nRetCode = 1\n*     MsgStop(\"Operation Cancelled!\", \"Problem\")\n   ELSEIF nRetCode &lt;&gt; 0\n      MsgStop(nRetCode, \"Problem - MAPI Return Code\")\n   ENDIF \n\n   MAPILogOff()  \n\nreturn nil','',0,'gA==','2xh0724k',1,0,'',213,0,0),(8448,1984,4,2,0,'87.218.146.139',1141171233,1,0,1,1,1,1,'','Scrolling controls - an early prototype','Here you may test a scrolling controls early prototype:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/ed4de012/scroll.zip.html\">http://hyperupload.com/download/ed4de01 ... l.zip.html</a><!-- m -->\n\n[url=http&#58;//imageshack&#46;us:1l9kmgp0][img:1l9kmgp0]http&#58;//img509&#46;imageshack&#46;us/img509/8352/scroll6er&#46;png[/img:1l9kmgp0][/url:1l9kmgp0]','',0,'GA==','1l9kmgp0',1,0,'',2,0,0),(8449,1985,7,2,0,'87.218.146.139',1141171357,1,0,1,1,1,1,'','Scroll de controles - un primer prototipo','Aqui podeis descargar un ejemplo de scroll de controles:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/ed4de012/scroll.zip.html\">http://hyperupload.com/download/ed4de01 ... l.zip.html</a><!-- m -->\n\n[url=http&#58;//imageshack&#46;us:3o81hnvv][img:3o81hnvv]http&#58;//img509&#46;imageshack&#46;us/img509/8352/scroll6er&#46;png[/img:3o81hnvv][/url:3o81hnvv]','',0,'GA==','3o81hnvv',1,0,'',2,0,0),(8450,1585,20,49,0,'82.53.119.222',1141171640,1,0,1,1,1,1,'','','NON TI DIMENTICARE LE IMMAGINI','',0,'GA==','pa08c1x2',1,0,'',49,0,0),(8451,1370,3,303,0,'68.7.28.54',1141181218,1,0,1,1,1,0,'','','Randal,\n\nIt looks like you have cToWhom as the 8th parameter. I think that if you don\'t provide a name as the 7th parameter, then you are supposed to put the address in the 7th postion. I am not sure about this, but it is worth a try.\n\nAlso below is another method of sending MAPI mail using only xHarbour that was posted by Ron Pinkas some time ago. Perhaps that will work.\n\nJames\n\n[code:1ucdkfe4]From&#58; &quot;Ron Pinkas&quot; &lt;Ron@remove-this&#46;xharbour&#46;com&gt;\nSubject&#58; Re&#58; How can I send mail ?\nDate&#58; Tuesday, March 23, 2004 11&#58;04 AM\n\nHere is a sample that should work with ANY provider of SimpleMAPI, including\nOutlook and Oulook Express, as long as SimpleMAPI is properly configured&#46;\n\n//----------------------------------------------------------//\nPROCEDURE Mail&#40;&#41;\n\n   LOCAL oSession, oMessage\n\n   TRY\n     oSession &#58;= CreateObject&#40; &quot;MSMAPI&#46;MAPISession&quot; &#41;\n     oSession&#58;SignOn&#40;&#41;\n   CATCH\n     Alert&#40; &quot;SimpleMapi not avilable&#46;&quot; &#41;\n     BREAK\n   END\n\n   TRY\n     oMessage &#58;= CreateObject&#40; &quot;MSMAPI&#46;MAPIMessages&quot; &#41;\n   CATCH\n     Alert&#40; &quot;MSMAPI&#46;Messages faild!&quot; &#41;\n     BREAK\n   END\n\n   WITH OBJECT oMessage\n        &#58;SessionID &#58;= oSession&#58;SessionID\n        &#58;Compose&#40;&#41;\n\n        &#58;RecipAddress &#58;= &quot;tests@xharbour&#46;org&quot;\n        &#58;AddressResolveUI &#58;= &#46;T&#46;\n        &#58;ResolveName&#40;&#41;\n\n        &#58;MsgSubject &#58;= &quot;email from xHarbour&quot;\n        &#58;MsgNoteText &#58;= &quot;Hi Brian, here it is&#46;&#46;&#46;&quot;\n\n        &#58;AttachmentIndex &#58;= 0\n        &#58;AttachmentPosition &#58;= 0\n        &#58;AttachmentPathName &#58;= &quot;c&#58;\\xharbour\\tests\\test&#46;prg&quot;\n\n        &#58;Send&#40; &#46;F&#46; &#41; // &#46;T&#46; Interactive or &#46;F&#46; for automated&#46;\n   END\n\n   oSession&#58;SignOff&#40;&#41;\n\nRETURN\n//----------------------------------------------------------//[/code:1ucdkfe4]','',0,'AIA=','1ucdkfe4',1,0,'',303,0,0),(8452,1979,3,61,0,'201.217.161.37',1141184354,1,0,1,1,1,0,'','','Evans:\n\nYou have C5Menu and you can download from the home page of the creator of Verce.\nI don´t Know if it´s working with FWH 2.7 Feb. build.\n\nI don´t remember the url now, I´ll see and write to you later.\n\nRegards\n\nRuben Fernandez.','',0,'AIA=','2wttlb8w',1,0,'',61,0,0),(8453,1979,3,455,0,'195.97.105.161',1141190292,1,0,1,1,1,0,'','','I\'ll try to search for it on the internet.\nI\'ll let you know of my results.\nThank you very much !\nEvans','',0,'AIA=','3n2qm29p',1,0,'',455,0,0),(8454,1979,3,455,0,'195.97.105.161',1141191257,1,0,1,1,1,0,'','','[url:1lmq7fpz]http&#58;//www&#46;esm&#46;com&#46;mx/fivewin/c5menu&#46;htm[/url:1lmq7fpz]\nI found it above.\nThe screenshots are nice and attractive.\nI\'ll try it and will let you know.\nThanks again\nEvans','',0,'EA==','1lmq7fpz',1,0,'',455,0,0),(8455,1972,6,63,0,'80.37.102.128',1141197067,1,0,1,1,1,0,'','','Paco:\nUna última pregunta para dar el tema por cerrado (de momento...  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> ).\n\nYa tengo tu receta funcionando.  Puede capturar sin problemas los handles de los controles que componen otra aplicación.  Con GetWindowText(hWnd) en un Say puedo leer el texto del Say; en un checkbox, puedo leer su prompt...  ¿Hay alguna forma de leer el contenido de un Get? ¿Y de una casilla de un browse? \nSaludos,\n\nRafael','',0,'EA==','haxyt211',1,0,'',63,0,0),(8456,1981,3,2,0,'87.218.146.139',1141197103,1,0,1,1,1,1,'','','Enrico,\n\nIts ok that they behave different: \n\nThe window just get created once it is defined: it already has a handle of a window. So the messages shown are: OnChange-Here-OnInit. They happen in the same secuence as defined.\n\nThe dialog does not have a window handle until it is activated, so the messages shown are: \n\n1. \"Here\" (neither the dialog or the listbox have window handles yet).\n2. \"OnChange\" as the control of the dialog is initialized before evaluating the ON INIT clause.\n3. Finally \"OnInit\" as it is evaluated finally, once the dialog its created and its controls are initialized.','',0,'EA==','3ppqdi3u',1,0,'',2,0,0),(8457,1983,3,2,0,'87.218.146.139',1141198190,1,0,1,1,1,1,'','','Mauricio,\n\n[code:265uubju]\n&#46;&#46;&#46;\n#include &quot;hboo&#46;ch&quot;\n\nMETHOD new&#40;x,Y&#41; CLASS TESTE \n\n   static lAdded &#58;= &#46;f&#46;\n\n   ASize&#40; Self, Len&#40; Self &#41; + 1 &#41;  // add one more element for the new DATA\n\n   if ! lAdded\n      __clsAddMsg&#40; &#58;&#58;ClassH, &quot;Another&quot;, Len&#40; Self &#41;, HB_OO_MSG_DATA &#41;\n      __clsAddMsg&#40; &#58;&#58;ClassH, &quot;_&quot; + &quot;Another&quot;, Len&#40; Self &#41;,  HB_OO_MSG_DATA &#41;\n      lAdded = &#46;t&#46;\n   endif\n\n   &#46;&#46;&#46;\n\nreturn Self\n[/code:265uubju]','',0,'AIA=','265uubju',1,0,'',2,0,0),(8458,1975,3,2,0,'87.218.146.139',1141198544,1,0,1,1,1,1,'','','Roger,\n\nThere are several ways to do it:\n\n1. You may keep an array with subarrays containing the areas of the hotspots. When the mouse is clicked you search into those subarrays and fire a related action.\n\n2. Another way is to place a transparent control on top of the bitmap (i.e. a TBtnBmp or a TPanel) with brush NULL, so when it is clicked, its action its fired or its bLClicked codeblock.','',0,'AIA=','36bxqwm1',1,0,'',2,0,0),(8459,1986,22,449,0,'212.64.224.250',1141198547,1,0,1,1,1,0,'','Funcion cGetFile() en FWPPC','Antonio,\n\nCreo necesaria esta funcion,  mas en un entorno de gestion que nos puede ayudar en la seleccion de ficheros para poderlos tratar.\n\nGracias.\nC.','',0,'AIA=','1fqvyx4u',1,0,'',449,0,0),(8460,1985,7,123,0,'83.53.65.34',1141198866,1,0,1,1,1,0,'','','Antonio,\n\nEstás que te sales!!\n\nSaludos,\nJosé Luis Capel  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1xon9q45',1,0,'',123,0,0),(8461,1976,3,2,0,'87.218.146.139',1141199149,1,0,1,1,1,1,'','','Enrico,\n\nIn source\\winapi\\oemansi.c please implement these changes:\n[code:1mxtxylc]\nCLIPPER ISANSI&#40; PARAMS &#41;         // cString    --&gt; lAnsi\n&#123;\n   LPBYTE pString = &#40; LPBYTE &#41; _parc&#40; 1 &#41;;\n   WORD  w = 0, wLen = _parclen&#40; 1 &#41;;\n   BOOL  bAnsi = FALSE;\n\n   while&#40; w &lt; wLen &amp;&amp; ! bAnsi &#41;\n   &#123;\n      bAnsi = &#40; pString&#91; w &#93; &gt;= 224 &amp;&amp; pString&#91; w &#93; &lt;= 255 &#41; || pString&#91; w &#93; == 128;\n      w++;\n   &#125;\n\n   _retl&#40; bAnsi &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nCLIPPER ISOEM&#40; PARAMS &#41;         // cString    --&gt; lOem\n&#123;\n   LPBYTE pString = &#40; LPBYTE &#41; _parc&#40; 1 &#41;;\n   WORD  w = 0, wLen = _parclen&#40; 1 &#41;;\n   BOOL  bOem = FALSE;\n\n   while&#40; w &lt; wLen &amp;&amp; ! bOem &#41;\n   &#123;\n      bOem = pString&#91; w &#93; &gt; 128 &amp;&amp; pString&#91; w &#93; &lt;= 168;\n      w++;\n   &#125;\n\n   _retl&#40; bOem &#41;;\n&#125;\n[/code:1mxtxylc]','',0,'AIA=','1mxtxylc',1,0,'',2,0,0),(8462,1966,3,2,0,'87.218.146.139',1141199404,1,0,1,1,1,1,'','','Roberto,\n\nYes, and TestRich.prg keeps working ok in FWH 2.7. It looks as it works ok from resources, but not from source code on a dialog.\n\nWith the current Harbour and xharbour versions the error you describe (hb_xfree()) no longer happens.\n\nWe keep searching,','',0,'AIA=','22l2nesj',1,0,'',2,0,0),(8463,1974,3,2,0,'87.218.146.139',1141199586,1,0,1,1,1,1,'','','James,\n\nThanks for the info,','',0,'AIA=','3cab3zr4',1,0,'',2,0,0),(8464,1985,7,2,0,'87.218.146.139',1141199766,1,0,1,1,1,1,'','','Jose Luis,\n\nLa cuestión es pensar bien donde implementarlo. Creo que se debe implementar en la clase TWindow, para que cualquier control pueda ser \"scrolleable\", así podremos tener paneles scrollables ó cajas de diálogo ó páginas de un folder.\n\nCreo que por prioridad lo primero es implementar las cajas de diálogo no modales, luego los folders y finalmente dotar a TWindow de esta capacidad.','',0,'AIA=','2o365maj',1,0,'',2,0,0),(8465,1986,22,2,0,'87.218.146.139',1141199875,1,0,1,1,1,1,'','','Carles,\n\nEstá implementada, pruébala <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nLo que hace falta es afinar su comportamiento, que parece distinto al de Windows en PC.','',0,'AIA=','3r9cbajs',1,0,'',2,0,0),(8466,1986,22,449,0,'212.64.224.250',1141199980,1,0,1,1,1,0,'','','Antonio,\n\nDonde la tengo ? Ultimo build ?\n\nSaludos.\nC.','',0,'AIA=','2jjzpwz4',1,0,'',449,0,0),(8467,1971,6,2,0,'87.218.146.139',1141200005,1,0,1,1,1,1,'','','José,\n\nPuedes revisar samples\\SockCli.prg y SockServ.prg','',0,'AIA=','1eiqm82j',1,0,'',2,0,0),(8468,1963,6,2,0,'87.218.146.139',1141200167,1,0,1,1,1,1,'','','José,\n\nDebe estar generándose algún tipo de error en la secuencia del TRY, por eso pasa a la parte CATCH. Si todo te funciona bien, prueba a modificar la clase y comentar esos avisos.','',0,'AIA=','25shpug3',1,0,'',2,0,0),(8469,1985,7,449,0,'212.64.224.250',1141200171,1,0,1,1,1,0,'','','Antonio,\n\nNo te olvides la clase TPage(), q en las pocket creo q su uso va a venir muy bien.\n\nSaludos.\nC.','',0,'AIA=','2hezyrj6',1,0,'',449,0,0),(8470,1985,7,2,0,'87.218.146.139',1141200282,1,0,1,1,1,1,'','','Carles,\n\nCierto <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2vk7lkhg',1,0,'',2,0,0),(8471,1985,7,2,0,'87.218.146.139',1141200503,1,0,1,1,1,1,'','','Como aún podemos tardar en tener todo listo, aquí os incluyo el código fuente del ejemplo. Ojo, hay que modificar la clase TSay como se indica y también ScrollWindow():\n[code:qhxarvda]\n#include &quot;FWCE&#46;ch&quot;\n \n#define GWL_STYLE        &#40;-16&#41;\n#define WS_VSCROLL  0x00200000\n  \n//----------------------------------------------------------------------------//\n \nfunction Main&#40;&#41;\n \n   local oWnd, oSay\n   local cName &#58;= Space&#40; 20 &#41;, cAddress &#58;= Space&#40; 30 &#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;Scroll&quot;\n\n   @ 10, 10 SAY oSay PROMPT &quot;&quot; OF oWnd ;\n      SIZE oWnd&#58;nWidth&#40;&#41; - 18, oWnd&#58;nHeight&#40;&#41; - 40;\n      PIXEL BORDER COLOR &quot;N/BG*&quot;\n \n   @  6, 3&#46;8 SAY &quot;Name&#58;&quot; OF oSay SIZE 40, 15\n   \n   @  7, 8 GET cName OF oSay SIZE 100, 18\n\n   @  7&#46;8, 2&#46;1 SAY &quot;Address&#58;&quot; OF oSay SIZE 50, 15\n   \n   @  9, 8 GET cAddress OF oSay SIZE 120, 18\n \n   SetWindowLong&#40; oSay&#58;hWnd, GWL_STYLE,;\n                  nOr&#40; GetWindowLong&#40; oSay&#58;hWnd, GWL_STYLE &#41;, WS_VSCROLL &#41; &#41; \n \n   ACTIVATE WINDOW oWnd\n \nreturn nil\n[/code:qhxarvda]\n\nLa Clase TSay (estas modificaciones, muy cambiadas, irán a TWindow):\n[code:qhxarvda]\n// FWPPC Class TSay &#40;C&#41; FiveTech Software 2005\n\n#include &quot;FiveWin&#46;ch&quot;\n&#46;&#46;&#46;\n\nCLASS TSay FROM TControl\n\n   &#46;&#46;&#46;\n   DATA   nStart, nEnd \n\n   METHOD VScroll&#40; nWParam, nLParam &#41;\n   &#46;&#46;&#46;\n\nMETHOD New&#40; &#46;&#46;&#46; &#41; CLASS TSay\n\n   &#46;&#46;&#46;\n\n   &#58;&#58;nStart = 0\n   &#58;&#58;nEnd   = -1000\n\nreturn Self\n\n&#46;&#46;&#46;\n\nMETHOD VScroll&#40; nWParam, nLParam &#41; CLASS TSay\n\n   local nScrollCode &#58;= nLoWord&#40; nWParam &#41;\n\n   do case\n   		case nScrollCode == SB_LINEUP\n   		     if &#58;&#58;nStart &lt; 0\n              ScrollWindow&#40; &#58;&#58;hWnd, 0, 10 &#41;\n              &#58;&#58;nStart += 10\n           endif   \n\n   		case nScrollCode == SB_LINEDOWN\n           if &#58;&#58;nStart &gt; &#58;&#58;nEnd \n              ScrollWindow&#40; &#58;&#58;hWnd, 0, -10 &#41;\n              &#58;&#58;nStart -= 10\n           endif   \n   endcase    		 \n\nreturn 0   \n[/code:qhxarvda]\n\ny finalmente ScrollWindow() queda así:\n[code:qhxarvda]\nBOOL ScrollWindow&#40; HWND hWnd,	int XAmount, int YAmount,	CONST RECT *lpRect,\n                   CONST RECT *lpClipRect &#41;\n&#123;\n   return ScrollWindowEx&#40; hWnd,	XAmount, YAmount, lpRect, lpClipRect, NULL, NULL, SW_ERASE | SW_SCROLLCHILDREN &#41;;\n&#125;\n[/code:qhxarvda]','',0,'AIA=','qhxarvda',1,0,'',2,0,0),(8472,1250,4,449,0,'212.64.224.250',1141200572,1,0,1,1,1,0,'','','Hi Enrico,\n\nDo you have implemented SndPlayResource() ?\n\nThanks.\nC.','',0,'AIA=','yg5yo366',1,0,'',449,0,0),(8473,1986,22,2,0,'87.218.146.139',1141200844,1,0,1,1,1,1,'','','Carles,\n\nEstá desde el primer build que descargastes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1l5o4m0k',1,0,'',2,0,0),(8474,1986,22,449,0,'212.64.224.250',1141201131,1,0,1,1,1,0,'','','Antonio,\n\nYa te respondi ayer. Me temo q se ha de afinar bastante  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[url:177ks4y3]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1970[/url:177ks4y3]\n\nEsperaremos.\nC.','',0,'EA==','177ks4y3',1,0,'',449,0,0),(8475,1972,6,28,0,'213.27.201.254',1141201288,1,0,1,1,1,0,'','','Hola\n\nQue yo sepa sin mas, no. Lo que si que puedes hacer es preparar tus programas para que sean capaces de interpretar mensajes especiales que tu envies y en función de eso establecer un protocolo de comunicación entre dos aplicaciones. Por ejemplo con WM_COPYDATA.\n\nCon este ejemplo puedes enviar y recibir datos de una aplicación a otra:\n\n[code:31k7efsl]\n#include &quot;FIVEWIN&#46;CH&quot;\n\n\nstatic oWnd\n#define WM_COPYDATA                74\n\n\n\nfunction MAIN&#40;&#41;\n\n\n   LOCAL oBtn, oBtn2, oGet, nVar1 &#58;= 1\n   LOCAL oGet2, nVar2 &#58;= 1\n   LOCAL oGet3, cVar &#58;= &quot;Pulsa el boton Send y busca un alert&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;Prueba WM_COPYDATA&quot;\n\n         @  10, 10 GET    oGet  VAR nVar1 SIZE 50, 18 PIXEL OF oWnd\n         @  30, 10 GET    oGet2 VAR nVar2 SIZE 50, 18 PIXEL OF oWnd\n         @  50, 10 GET    oGet3 VAR cVar SIZE 250, 18 PIXEL OF oWnd\n         @  80, 10 BUTTON oBtn  PROMPT &quot;Send&quot; SIZE 50, 24 PIXEL OF oWnd ACTION SendInfo&#40; nVar1, nVar2, cVar &#41;\n         @ 110, 10 BUTTON oBtn2 PROMPT &quot;Fin&quot; SIZE 50, 24 PIXEL OF oWnd ACTION oWnd&#58;End&#40;&#41;\n\n\n   ACTIVATE WINDOW oWnd\n\nRETURN nil\n\n\nfunction SendInfo&#40; nVar, nVar2, cVar &#41;\nlocal hWnd &#58;= FindWindow&#40;0,&quot;Escuchando&quot; &#41;\n// BUSCAS EL HANDLE DE LA VENTANA CON EL NOMBRE\n\nDEFAULT nVar  &#58;= 1\nDEFAULT nVar2 &#58;= 1\nDEFAULT cVar  &#58;= &quot;&quot;\n\n\nif hWnd != 0\n   if cVar == &quot;&quot;\n      Enviar&#40; oWnd&#58;hWnd, hWnd, 101, nVar, nVar2, cVar &#41;\n   else\n      Enviar&#40; oWnd&#58;hWnd, hWnd, 100, nVar, nVar2, cVar &#41;\n   endif\nelse\n   MsgInfo&#40; &quot;No encontre la ventana&quot; &#41;\nendif\n\nreturn nil\n\n\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n// AQUI TE CREAS LA ESTRUCTURA QUE QUIERAS CON LOS DATOS QUE QUIERAS PASAR\ntypedef struct tagMYREC\n&#123;\n   HWND hWndOrigen;\n   char  s1&#91;250&#93;;\n   int   nFila;\n   int   nColumna;\n&#125; MYREC;\n\n\n\n\nHB_FUNC&#40; ENVIAR &#41;\n&#123;\n   HWND hWndOrigen = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   HWND hWndDestino = &#40; HWND &#41; hb_parnl&#40; 2 &#41;;\n   int nMsg = hb_parni&#40; 3 &#41;; // &lt;&lt;&lt; IDENTIFICADOR DEL MENSAJE PARA QUE DESDE\n                             // LA VENTANA DESTINO DECIDAS LO QUE HACER EN ESTE CASO\n   COPYDATASTRUCT MyCDS;\n   MYREC MyRec;\n\n   // AQUI LE DAS VALOR A LOS DATOS DE LA ESTRUCTURA\n   MyRec&#46;hWndOrigen = hWndOrigen;\n   MyRec&#46;nFila = hb_parni&#40; 4 &#41;;\n   MyRec&#46;nColumna = hb_parni&#40; 5 &#41;;\n   strcpy&#40; MyRec&#46;s1, hb_parc&#40; 6 &#41; &#41;;\n\n//\n// Fill the COPYDATA structure\n//\n   MyCDS&#46;dwData = nMsg;\n   MyCDS&#46;cbData = sizeof&#40; MyRec &#41;;  // size of data\n   MyCDS&#46;lpData = &amp;MyRec;\n\n   // SE LO ENVIAS A LA VENTANA DESTINO SIEMPRE DE ESTA FORMA\n   SendMessage&#40; hWndDestino, WM_COPYDATA,&#40;WPARAM&#41;&#40;HWND&#41; hWndOrigen,&#40;LPARAM&#41; &#40;LPVOID&#41; &amp;MyCDS &#41;;\n   hb_ret&#40;&#41;;\n&#125;\n\nHB_FUNC&#40; RECIBIR &#41;\n&#123;\n   PCOPYDATASTRUCT pMyCDS;\n   pMyCDS = &#40;PCOPYDATASTRUCT&#41; hb_parnl&#40; 1 &#41;;\n\n   // RECIBES LOS DATOS Y LOS DEVUELVES AL HANDLEEVENT DE LA VENTANA\n   // SI QUIERES QUE LA COMUNICACIÓN SEA EN LOS DOS SENTIDOS\n   // TENDRIAS QUE TENER AQUI TAMBIEN EL HANDLEEVENT REDEFINIDO\n\n   hb_reta&#40; 5 &#41;;\n   hb_stornl&#40; &#40;long&#41;&#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;hWndOrigen, -1, 1 &#41;;\n   hb_storni&#40; pMyCDS-&gt;dwData, -1, 2 &#41;;\n   hb_storni&#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;nFila, -1, 3 &#41;;\n   hb_storni&#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;nColumna, -1, 4 &#41;;\n   hb_storc &#40; &#40;&#40;MYREC *&#41;&#40;pMyCDS-&gt;lpData&#41;&#41;-&gt;s1, -1, 5 &#41;;\n\n&#125;\n\nHB_FUNC&#40; REGISTERWINDOWMESSAGE &#41;\n&#123;\n     hb_retni&#40; RegisterWindowMessage&#40; &#40; LPCTSTR &#41; hb_parc&#40;1&#41;&#41;&#41;;\n&#125;\n\n#pragma ENDDUMP\n\n\nLuego con la función RegisterWindowMessage puedes registrar un mensaje en cada aplicación a nivel de Windows, asegurandote de que ese mensaje será único en windows&#46;\n\nLuego en el HandleEvent de la ventana o del control capturas ese mensaje y estableces la comunicación entre la aplicación que escucha y la aplicación que espia&#46;\n\n    nMensaje &#58;= RegisterWindowMessage&#40; &quot;WM_MIMENSAJE&quot; &#41;\n\nEn HandleEvent tendrías que preguntar por if nMsg == nMensaje &#46;&#46;&#46;\n\nUn saludo\n\n\n\n[/code:31k7efsl]','',0,'AIA=','31k7efsl',1,0,'',28,0,0),(8476,1250,4,6,0,'87.6.213.150',1141201386,1,0,1,1,1,1,'','','No, sorry.\n\nEMG','',0,'AIA=','3ukugtn6',1,0,'',6,0,0),(8477,1976,3,6,0,'87.6.213.150',1141201466,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'AIA=','flrlscjz',1,0,'',6,0,0),(8478,1958,7,262,0,'212.89.4.40',1141201598,1,0,1,1,1,1,'','','Se puede ocultar el menu , pero eso no resuelve el problema , el dialogo sigue quedando en segundo plano .\nEsto es cosa de Antonio , creo , pero con las nuevas modificaciones...\nDemosle tiempo , cuando termine con éstas, veremos si queda resuelto , y sino ya veremos. \nPara mi es esencial este punto , me quedaré con lo que está estable de momento ( en esta semana se juega el uso o no de mi programa ).\nSaludso.','',0,'AIA=','3ajp6x1b',1,0,'',262,0,0),(8479,1987,3,29,0,'81.174.37.59',1141201938,1,0,1,1,1,0,'','Error in tsay class with FWH27 and ThemeManager disabled','Hi,\nthe following error appairs now in the tsay class \nin a non Themed App on Windows XP and always on all others OS.\n\n\n===========\n   Path and name: K:\\FWH\\SAMPLES\\TEST_EP.EXE (32 bits)\n   Size: 1,180,672 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 03/01/06, 09:19:41\n   Error description: Error BASE/1079  Argument error: .OR.\n   Args:\n     [   1] = L   .F.\n     [   2] = U   \n\nStack Calls\n===========\n   Called from: SAY.PRG =&gt; TSAY:ERASEBKGND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: SAY.PRG =&gt; TSAY:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SHOWWINDOW(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: RPREVIEW.PRG =&gt; RPREVIEW(0)\n   Called from: PRINTER.PRG =&gt; (b)TPRINTER:TPRINTER(0)\n   Called from: PRINTER.PRG =&gt; TPRINTER:PREVIEW(0)\n   Called from: PRINTER.PRG =&gt; PRINTEND(0)\n   Called from: test_ep.prg =&gt; MAIN(0)\n\n\nThis is a self-contained code that show this problem:\n\n**********************\nfunction Main()\n\n   local oPrn,I,nRowStep, oFont\n\n   PRINT oPrn NAME \"Testing the new EP version\" PREVIEW\n      oPrn:SetPortrait()\n\n      DEFINE FONT oFont NAME \"Ms Sans Serif\" SIZE 0, -12 OF oPrn\n      nRowStep:=oPrn:nVertRes()/60 &amp;&amp; I want 60 lines\n\n      PAGE\n         for i:=1 to 60\n            oPrn:Say( i,0,\"This is the row no.\"+str(i,3))\n        next\n      ENDPAGE\n      PAGE\n         for i:=1 to 10\n            oPrn:Say( i,0,\"This is the row no.\"+str(i,3))\n        next\n      ENDPAGE\n   ENDPRINT\n\nreturn nil\n*************************\n\nAny solution available ?\n\nThanks in advance.\n\nBest Rgs,\n\nMarco','',0,'','3oghagaw',1,0,'',29,0,0),(8480,1981,3,6,0,'87.6.213.150',1141202230,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'','2k903mse',1,0,'',6,0,0),(8481,1987,3,6,0,'87.6.213.150',1141203324,1,0,1,1,1,1,'','Re: Error in tsay class with FWH27 and ThemeManager disabled','[code:15jx6kuq]METHOD EraseBkGnd&#40; hDC &#41; CLASS TSay \n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;  &lt;-- NOTE \n\n   if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent \n      return 1 \n   endif \n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41;[/code:15jx6kuq]\n\nEMG','',0,'AIA=','15jx6kuq',1,0,'',6,0,0),(8482,1972,6,63,0,'80.37.102.128',1141203453,1,0,1,1,1,0,'','','Paco:\nMe estudiaré tu ejemplo pero me temo que ya empieza a superar mis habilidades.  Además, lo que estaba intentando conseguir era leer una aplicación que no era mía (por ejemplo, una Contabilidad comercial) así que difícilmente la podré preparar para que responda a mis mensajes.\nBuscaré otro camino.  De todas formas, gracias por tu ayuda.  Hasta la próxima, un saludo,\n\nRafael','',0,'AIA=','tt7xzc0c',1,0,'',63,0,0),(8483,1983,3,339,0,'200.222.117.194',1141206596,1,0,1,1,1,0,'','','Than you , Antonio...\n\n\n\nMauricio\n(Brasil)','',0,'AIA=','3s4yztau',1,0,'',339,0,0),(8484,1988,4,266,0,'203.106.130.136',1141209130,1,0,1,1,1,1,'','palm / receipt printer','Hi,\n\n1. does Fivewin ppc work on both palm os and windows CE ?\n\n2. any recommended of palm/ppc model and its related receipt printer ?\n\nRegards\nHoe','',0,'AIA=','2q2fp90q',1,0,'',266,0,0),(8485,1988,4,6,0,'87.6.213.150',1141210335,1,0,1,1,1,1,'','Re: palm / receipt printer','[quote=&quot;tnhoe&quot;:2e6fhjgg]1. does Fivewin ppc work on both palm os and windows CE ?[/quote:2e6fhjgg]\n\nNo, only on Windows Mobile Pocket PC.\n\nEMG','',0,'gA==','2e6fhjgg',1,0,'',6,0,0),(8486,1923,19,26,0,'213.250.63.245',1141213771,1,0,1,1,1,1,'','','Hello!\n\nIt seems that 16-bit applications are working OK.\nI was able to build 16-bit FiveWin  application with\nClipper and Blinker. When starting resulting EXE, \nthe following message appeared:\n\"NTVDM encountered a hard error\".\nand then:\n\"Cannot find file ... (or one of its components).\nCheck to ensure the path and filename are correct\nand that all required libraries are available.\"\n\nUsing Filemon ( <!-- m --><a class=\"postlink\" href=\"http://www.sysinternals.com/Utilities/Filemon.html\">http://www.sysinternals.com/Utilities/Filemon.html</a><!-- m --> )\nI noticed that it tried to open COMMCTRL.DLL. After copying\nthat file to \\windows\\system\\, application functioned OK.\n\nLong live 16-bit applications (Just joking!),\nRoman','',0,'gA==','3upv6a9y',1,0,'',26,0,0),(8487,1250,4,2,0,'87.218.146.139',1141214482,1,0,1,1,1,1,'','','Carles,\n\nWe have not tested it yet, but this may be the code for it:\n[code:13bydnxr]\nHB_FUNC&#40; SNDPLAYRESOURCE &#41;\n&#123;\n   LPWSTR pW1   = AnsiToWide&#40; IF&#40; ISNUM&#40; 1 &#41;, &#40; LPSTR &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 1 &#41; &#41; &#41;;\n   LPWSTR pW2   = AnsiToWide&#40; &quot;WAVE&quot; &#41;;	\n   LPWSTR pW3;\n   HGLOBAL hglb = LoadResource&#40; GetResources&#40;&#41;,\n                     FindResource&#40; GetResources&#40;&#41;, pW1, pW2 &#41; &#41;;\n        \n   pW3 = AnsiToWide&#40; &#40; LPSTR &#41; LockResource&#40; hglb &#41; &#41;;  \n   hb_retl&#40; sndPlaySound&#40; pW3, IF&#40; PCOUNT&#40;&#41; &gt; 1, hb_parni&#40; 2 &#41;, SND_ASYNC &#41; | SND_MEMORY | SND_NODEFAULT &#41; &#41;;\n   hb_xfree&#40; pW1 &#41;;\n   hb_xfree&#40; pW2 &#41;;\n   hb_xfree&#40; pW3 &#41;;                     \n  \n   UnlockResource&#40; hglb &#41;;\n   FreeResource&#40; hglb &#41;;\n&#125;\n[/code:13bydnxr]','',0,'AIA=','13bydnxr',1,0,'',2,0,0),(8488,1942,6,362,0,'200.168.52.156',1141214682,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3lsmc4we]João,\n\nTienes que crear una ventana ó diálogo antes de llamar a IsAppThemed() para que IsAppThemed() devuelva el valor correcto:\n[code:3lsmc4we]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;\n      TITLE &quot;Test&quot;\n\n   MsgInfo&#40; IsAppThemed&#40;&#41; &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      VALID MsgYesNo&#40; &quot;Are you sure?&quot;, &quot;Do you want to exit?&quot; &#41;\n\nreturn nil\n[/code:3lsmc4we][/quote:3lsmc4we]\n\nGracias Antonio. Mui bueno.','',0,'gIA=','3lsmc4we',1,0,'',362,0,0),(8489,1958,7,2,0,'87.218.146.139',1141215867,1,0,1,1,1,1,'','','Jose Luis,\n\nCual sería un ejemplo pequeño y completo que reproduzca el problema ? gracias.','',0,'gIA=','2in28433',1,0,'',2,0,0),(8490,1986,22,2,0,'87.218.146.139',1141215938,1,0,1,1,1,1,'','','Carles,\n\nVamos a investigarlo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','3nzlzegk',1,0,'',2,0,0),(8491,1923,19,2,0,'87.218.146.139',1141216035,1,0,1,1,1,1,'','','Roman,\n\nThanks for the info <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThe most recent FW 2.7 does not need that DLL.','',0,'gIA=','3np28bu0',1,0,'',2,0,0),(8492,1958,7,449,0,'212.64.224.250',1141216159,1,0,1,1,1,0,'','','Antonio,\n\nEl tercer post de este hilo es un ejemplo q puedes probar. Se trata de ejecutarlo, irte al menu y volver a ejecutarlo. el resultado esta en q te aparece la ventana principal y NO el dialog activo.\n\nNota: Como te aprietan la tropa, eh  <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos.\nC.','',0,'gIA=','1wamsx3f',1,0,'',449,0,0),(8493,1958,7,262,0,'83.97.168.140',1141216692,1,0,1,1,1,1,'','','Antonio , el tutor06 con estos cambios \n\n[code:2ixivjac]\nfunction Main&#40;&#41;\n\n   local oWnd\n\n//--------   añadido ----------\n  if STILLRUN&#40;&#41;\n       Quit\n   endif\n//-------------------------\n\n\n   DEFINE WINDOW oWnd TITLE &quot;Tutor06&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n  @1,4 BUTTON \'Hola\' OF oWnd ACTION ShowDialog&#40;&#41; \n   ACTIVATE WINDOW oWnd ;\n     ON INIT  ShowDialog&#40;&#41; ;         // añadido --------------------  \n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n\nReturn Nil\n\n\nHB_FUNC &#40;STILLRUN&#41;\n&#123;\n   HWND hWnd;\n   BOOL lRet = FALSE;\n   hWnd = FindWindow &#40;NULL,L&quot;Tutor06&quot; &#41;;\n   if &#40;hWnd&#41;\n   &#123;\n   SetForegroundWindow &#40; hWnd &#41;;\n   lRet = TRUE;\n   &#125;\n   hb_retl &#40;lRet&#41;;\n&#125;\n\n\n[/code:2ixivjac]\n\nLanzas el programa ( se coloca el dialogo delante ) , te vas al explorador del pocket y vuelves a llamar al programa ....\nAntes del ultimo build se colocaba la ventana tutor06 y delante el dialogo , ahora se coloca la ventana y el dialogo queda aculto .\nGracias por tu atencion.\n\n-------------------- editado --------------------------\nVeo que Carles esta casi sincronizado  conmigo , mientras escribo el mensaje el ya ha respondido  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\nCualquiera de los dos vale .','',0,'AIA=','2ixivjac',1,0,'',262,0,0),(8494,1958,7,2,0,'87.218.146.139',1141217163,1,0,1,1,1,1,'','','Carles, Jose Luis,\n\nUna solución sencilla es usar la claúsula OF del diálogo:\n[code:1sun66fh]\n   &#46;&#46;&#46;\n   ACTIVATE WINDOW oWnd ON INIT IniDlg01&#40; oWnd &#41; \n\n   &#46;&#46;&#46;\n\nSTATIC FUNCTION IniDlg01&#40; oWnd &#41; \n\n    LOCAL oDlg \n\n    DEFINE DIALOG oDlg TITLE \'Dlg01\' SIZE 200,100 COLOR CLR_BLACK, CLR_RED OF oWnd\n[/code:1sun66fh]','',0,'AIA=','1sun66fh',1,0,'',2,0,0),(8496,1958,7,449,0,'212.64.224.250',1141217572,1,0,1,1,1,0,'','','Antonio,\n\n\nFunciona !   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->   \n\n\nMuchas thanks. \"El problema de las ventanas abiertas...\" queda finalmente solucionado.\n\n\n--------------------\nAcabo de cambiar en la aplicacion todos los dialogs para q hagan referencia a la ventana principal y el sistema funciona perfectamente al volver a incializarlo.\n--------------------\n\n\nSaludos.\nC.','',0,'AIA=','1im7pev4',1,0,'',449,0,0),(8497,1987,3,29,0,'81.174.37.59',1141219842,1,0,1,1,1,0,'','','Solved. Thanks a lot EMG.\n\nBest Regards,\n\nMarco','',0,'AIA=','2ftcxfg9',1,0,'',29,0,0),(8498,1958,7,262,0,'83.97.168.140',1141223671,1,0,1,1,1,1,'','','Si señor , muy elegante ....<!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nAsi da gusto .\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','28t74o18',1,0,'',262,0,0),(8499,1980,6,471,0,'201.240.175.199',1141224144,1,0,1,1,1,1,'','','Muchas Gracias \n\nlo leo y te comento','',0,'AIA=','1qh3lf5b',1,0,'',471,0,0),(8500,1370,3,213,0,'72.177.228.25',1141226103,1,0,1,1,1,0,'','','James,\n\nThanks for the sample code.  Is there some procedure to insure SimpleMapi is configured correctly?\n\nAccording to the tmail source for FWH 2.7 it looks like the recipient should be the 9th parameter, or 8th if no origin name is provided?\n\n::nRetCode = MAPISendMail( ::cSubject, ::cNoteText, ::cMsgType,;\n                   DToS( ::dDate ) + \" \" + ::cTime,;\n                   ::cConversationID, ::lReceipt, ::lFromUser,;\n                   ::aOrigin, ::aRecipients, ::aFiles )\n\nThanks,\nRandal','',0,'AIA=','oh67bkp4',1,0,'',213,0,0),(8501,1989,6,73,0,'201.135.57.8',1141227278,1,0,1,1,1,0,'','C5Menu en Preview','Estoy usando la clase C5Menu y en el preview nomas no la he podido echar a volar, alguien ya pudo o que hay que corregir? opte por deshabilitar el menu del preview, pero si me gustaria que funcionara el C5MENU o como hacer para que tome la clase menu original y no la C5Menu? porque el C5MENU en la window principal si funciona y en la del preview no?\ngracias','',0,'AIA=','1gqodenu',1,0,'',73,0,0),(8502,1370,3,303,0,'68.7.28.54',1141230022,1,0,1,1,1,0,'','','Randal,\n\n&gt;Is there some procedure to insure SimpleMapi is configured correctly?\n\nThat I don\'t know.\n\nAccording to the tmail source for FWH 2.7 it looks like the recipient should be the 9th parameter, or 8th if no origin name is provided?\n\nWell, I can program, but I can\'t count. My mistake. aOrigin is either the name if you also have an address, or it is the address if you don\'t provide a name.\n\nLet us know if that works.\n\nJames','',0,'AIA=','1fdc2k1t',1,0,'',303,0,0),(8503,1436,3,6,0,'87.6.213.150',1141230271,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:1u5q0l6s]1) WinXP and Win2003: yes. Win98: you will need to install Office or MSDE.[/quote:1u5q0l6s]\n\nSorry, MDAC not MSDE.\n\nEMG','',0,'gA==','1u5q0l6s',1,0,'',6,0,0),(8504,1908,3,303,0,'68.7.28.54',1141235984,1,0,1,1,1,0,'','','Enrico,\n\nBut there is a blank highlighted row when you do this:\n\n[code:1xohhbrm]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    use test\n    index on last to temp for recno&#40;&#41;&lt;1\n    go top\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 1, 1 LISTBOX oBrw FIELDS alias &quot;test&quot;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL[/code:1xohhbrm]','',0,'AIA=','1xohhbrm',1,0,'',303,0,0),(8505,1990,6,110,0,'165.98.151.243',1141237009,1,0,1,1,1,1,'','ayuda urgente, codepage :-(','Hola amigos, hoy tengo el siguiente problema.\n\ndado el siguiente codigo:\n\n[code:1e3ebzea]\n\nREQUEST  HB_LANG_ESWIN, HB_CODEPAGE_ESWIN\n\nPROCEDURE t&#40;&#41;\n   LOCAL cCadena\n   LOCAL cI, cF, nI, nF\n\n    hb_langselect&#40; &quot;ESWIN&quot; &#41;\n    hb_setcodepage&#40; &quot;ESWIN&quot; &#41;\n\n   cI=&quot;A&quot;\n   cF=&quot;Z&quot;\n   nI=Asc&#40;cI&#41;\n   nF=Asc&#40;cF&#41;\n   cCadena=&quot;&quot;\n   FOR x=nI TO nF\n      cCadena = cCadena + Chr&#40;x&#41;\n   NEXT\n   cCadena = cCadena + &quot; - &quot; + STR&#40;LEN&#40;cCadena&#41;&#41;\n   alert&#40;cCadena&#41;\nreturn\n[/code:1e3ebzea]\n\nNecesito que me retorne \"ABCDEFGHIJKLMNÑOPQRSTUVWXYZ\", aca la Ñ es la del problema. (nota: se que Ñ tiene un valor asc de 165), lo que quiero saber es si modificando el codepage por ejemplo con \nhb_setcodepage(\"ESWIN\") funciona?\n\nhe probado con este codepage y no me funciona <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->, esto me urge (para variar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> )\n\nestoy usando xharbour.\n\ngracia por la ayuda <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas.','',0,'AIA=','1e3ebzea',1,0,'',110,0,0),(8506,1908,3,6,0,'87.6.213.150',1141240260,1,0,1,1,1,1,'','','Try this:\n\n[code:15dsbvp0]#include &quot;Fivewin&#46;ch&quot; \n\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg, oBrw \n\n    use test \n    index on field -&gt; last to temp for recno&#40;&#41;&lt;1 \n    go top \n\n    DEFINE DIALOG oDlg; \n           SIZE 400, 400 \n\n    @ 1, 1 LISTBOX oBrw FIELDS alias &quot;test&quot; \n\n    oBrw&#58;bLogicLen = &#123; || &#40; oBrw&#58;cAlias &#41; -&gt; &#40; OrdKeyCount&#40;&#41; &#41; &#125;\n\n    ACTIVATE DIALOG oDlg; \n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;; \n             CENTER \n\n    RETURN NIL[/code:15dsbvp0]\n\nEMG','',0,'AIA=','15dsbvp0',1,0,'',6,0,0),(8507,1908,3,303,0,'68.7.28.54',1141240706,1,0,1,1,1,0,'','','Enrico,\n\nAh, you got me again! That does work properly.\n\nYou may remember me stating recently that I often forget to assign bLogicLen. That is why I developed a TWBrowse modification to do it automatically. I hope to get that change included in the stock TWBrowse.\n\nTim, did you get that? Don\'t forget to assign bLogicLen.\n\nJames','',0,'AIA=','1qjtdlig',1,0,'',303,0,0),(8508,1908,3,6,0,'87.6.213.150',1141241420,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3dkx2pf9]Enrico,\n\nAh, you got me again![/quote:3dkx2pf9]\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[quote=&quot;James Bott&quot;:3dkx2pf9]You may remember me stating recently that I often forget to assign bLogicLen. That is why I developed a TWBrowse modification to do it automatically.[/quote:3dkx2pf9]\n\nMe too. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','3dkx2pf9',1,0,'',6,0,0),(8509,1908,3,303,0,'68.7.28.54',1141242513,1,0,1,1,1,0,'','','Enrico,\n\nIt\'s back!\n\nIt shows when you do a filter containing no records. I think this will require a code change to fix.\n\nThis is actually what Tim said.\n\n[code:19aa9myh]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    use test\n    //index on field -&gt; last to temp for recno&#40;&#41;&lt;1\n    set filter to recno&#40;&#41; &lt; 1\n    go top\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 1, 1 LISTBOX oBrw FIELDS alias &quot;test&quot;\n\n    oBrw&#58;bLogicLen = &#123; || &#40; oBrw&#58;cAlias &#41; -&gt; &#40; OrdKeyCount&#40;&#41; &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL[/code:19aa9myh]','',0,'AIA=','19aa9myh',1,0,'',303,0,0),(8510,1991,6,64,0,'201.50.152.185',1141244220,1,0,1,1,1,1,'','ADS cliente/servidor com xHarbour','É possível usar ADS cliente/servidor com FiveWin 2.7 + xHarbour.com?\nComprei o ADS 8.0 e pesquisando no fórum encontrei exemplo apenas para Local Server. \n\nEm Clipper faço assim:\n# INCLUDE \"DBFCDXAX.CH\"\n//REQUEST DBFCDX \nREQUEST DBFCDXAX\nDBSETDRIVER(\'DBFCDXAX\')\nAX_RightsChecking(.F.)\n...\nUSE CLIENTES INDEX INDCLI   //  DBF\nBROWSE() \n...\n\nEm FWH + xHarbour faço como? Usando DBF (cliente/servidor).\n\nGrata.','',0,'AIA=','13ppejbj',1,0,'',64,0,0),(8511,1908,3,6,0,'87.6.213.150',1141245860,1,0,1,1,1,1,'','','No, you simply forgot to add\n\nREQUEST DBFCDX\n\nand\n\nRDDSETDEFAULT( \"DBFCDX\" )\n\nAnyway, it seems to be a bug in DBFNTX. I will report it to the [x]Harbour developer\'s lists.\n\nEMG','',0,'','tclhh2t7',1,0,'',6,0,0),(8512,1908,3,303,0,'68.7.28.54',1141247078,1,0,1,1,1,0,'','','Enrico,\n\nI see that it does work OK with CDXs.\n\nI think the problem is with ordKeyNo(). With CDXs and no records in the filter, it reports zero. With NTXs it reports reccount() + 1.\n\nJames','',0,'','cb3d923m',1,0,'',303,0,0),(8513,1908,3,6,0,'87.6.213.150',1141247611,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2ve3ezuv]Enrico,\n\nI see that it does work OK with CDXs.\n\nI think the problem is with ordKeyNo().[/quote:2ve3ezuv]\n\nOrdKeyCount()\n\n[quote=&quot;James Bott&quot;:2ve3ezuv]With CDXs and no records in the filter, it reports zero. With NTXs it reports reccount() + 1.[/quote:2ve3ezuv]\n\nNo, it returns exactly reccount().\n\nI already reported the problem to Harbour and xHarbour developer\'s lists. Let\'s wait the Przemek\'s answer...\n\nEMG','',0,'gA==','2ve3ezuv',1,0,'',6,0,0),(8514,1436,3,339,0,'200.222.117.194',1141254722,1,0,1,1,1,0,'','','Thanks Enrico AGAIN...\n\n   i´m modify TCBROWSE to ADO\n\n    How Get Field Names of Database Using ADO ?\n\n\n\n\nthanks Mauricio','',0,'gA==','2vj5s5z7',1,0,'',339,0,0),(8515,1991,6,392,0,'201.26.110.148',1141254862,1,0,1,1,1,1,'','','Eu vi algo na NEWs do xHB sobre um problema no ADS (não lembro qual foi) e junto com a MSG o usuario postou parte do codigo que ele usa para fazer rodar o ADS... talvez ajude Shirley.','',0,'gA==','37rlis4p',1,0,'',392,0,0),(8516,1966,3,446,0,'87.6.219.166',1141254963,1,0,1,1,1,0,'','','The Richedit control does not show bitmaps also.\nI\'m able to open an rtf file from disk only if I pass its name as a parameter (not trough the button on the sample dialog)\nHowever the control only shows text, not embedded or linked bitmaps\n\nRoberto','',0,'gA==','17lmwkpe',1,0,'',446,0,0),(8517,1966,3,446,0,'87.6.219.166',1141256246,1,0,1,1,1,0,'','','I found two dll in my windows directory riched20.dll and riched32.dll\nanyone knows the difference ?\nI tried both but without any difference, same bugs\n\nRoberto','',0,'gA==','1v4c5gaj',1,0,'',446,0,0),(8518,1992,3,446,0,'87.6.219.166',1141258676,1,0,1,1,1,0,'','New xHarbour build','I just downloaded tha latest xharbour build beta 99.60, but now when linking I get the following unresolved.\nWhat\'s missing ?\n\nError: Unresolved external \'_hb_stack\' referenced from E:\\AMB\\LIB\\FIVEHC.LIB|FFWNDRUN\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from E:\\AMB\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from E:\\AMB\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from E:\\AMB\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from E:\\AMB\\LIB\\RDD.LIB|dbf1\n\nThank you in advance\nRoberto Chiaiese','',0,'gA==','1zgulo6h',1,0,'',446,0,0),(8519,1992,3,2,0,'87.218.146.114',1141258852,1,0,1,1,1,1,'','','Roberto,\n\nYou have to link hbsix.lib\n\nFor the _hb_stack issue you need an upgraded FWH, no way to fix that.','',0,'gA==','1q1uivxu',1,0,'',2,0,0),(8520,1993,6,471,0,'201.240.175.199',1141262746,1,0,1,1,1,1,'','Cual es la cuenta de yahoo de eagle1','Estimados amigos quiero poster esto en ese grupo \n\nHay  una funcion en  c de Manuel Exposito que llena un arreglo \nMMAFillResult\n\n\nMETHOD FillCursor() CLASS TMSACursor\nreturn( MMAFillResult( ::hMySt, ::nRowCount ) )\n\nconfirmen por favor esto\n \n::hMyS es es el manejador de la conexion lo q en msquery era      el ::hConnect\n\n::nRowCount  la cantidad de reg luego de un query\nal parece hay q hacer un query priemro y luego se puede llenar un\narreglo supongo q este debe ser multidimensional y con la cantidad \nde columnas de acuerdo al query verdad.','',0,'gA==','24repvlv',1,0,'',471,0,0),(8521,1991,6,138,0,'201.133.73.175',1141263132,1,0,1,1,1,1,'','','Descarga este ejemplo:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/aiswin32.zip\">www.google.d2g.com/ads/demos/aiswin32.zip</a><!-- w -->\n\nEs un ejemplo del uso del AIS pero es valido tambien para el ADS remoto','',0,'gA==','2ptx6d3n',1,0,'',138,0,0),(8522,1993,6,54,0,'201.137.90.144',1141269473,1,0,1,1,1,1,'','Re: Cual es la cuenta de yahoo de eagle1','[quote=&quot;Vladimir Zorrilla&quot;:hv6xh39m]Estimados amigos quiero poster esto en ese grupo \n\nHay  una funcion en  c de Manuel Exposito que llena un arreglo \nMMAFillResult\n\n\nMETHOD FillCursor() CLASS TMSACursor\nreturn( MMAFillResult( ::hMySt, ::nRowCount ) )\n\nconfirmen por favor esto\n \n::hMyS es es el manejador de la conexion lo q en msquery era      el ::hConnect\n\n::nRowCount  la cantidad de reg luego de un query\nal parece hay q hacer un query priemro y luego se puede llenar un\narreglo supongo q este debe ser multidimensional y con la cantidad \nde columnas de acuerdo al query verdad.[/quote:hv6xh39m]\n\n<!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/eagle1\">http://es.groups.yahoo.com/group/eagle1</a><!-- m -->\n\nEste es el link\n\nSaludos','',0,'gA==','hv6xh39m',1,0,'',54,0,0),(8524,1994,3,51,0,'80.122.88.242',1141285102,1,0,1,1,1,0,'','BOX  change color how?','How can I change the color of a box?\n\nMETHOD IVBox(nRow,nCol1,nCol2,nRow2) CLASS TInvoice\n    ::box (nRow,nCol1,nRow2,nCol2,nPen )\nreturn nil\n\nThanks in advance\nOtto','',0,'gA==','80v92gnh',1,0,'',51,0,0),(8525,1994,3,6,0,'82.58.168.216',1141285710,1,0,1,1,1,1,'','Re: BOX  change color how?','Of which class is the Box() method you are calling?\n\nEMG','',0,'gA==','1ym8j323',1,0,'',6,0,0),(8526,1966,3,6,0,'82.58.168.216',1141285860,1,0,1,1,1,1,'','','[quote=&quot;chiaiese&quot;:356gkp9l]I found two dll in my windows directory riched20.dll and riched32.dll\nanyone knows the difference ?\nI tried both but without any difference, same bugs\n\nRoberto[/quote:356gkp9l]\n\nThe second is only a wrapper to the first (note the small size).\n\nEMG','',0,'gA==','356gkp9l',1,0,'',6,0,0),(8527,1436,3,6,0,'82.58.168.216',1141285981,1,0,1,1,1,1,'','','[code:hyoifeh7]#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oCat\n\n    LOCAL i, j\n\n    oCat = CREATEOBJECT&#40; &quot;ADOX&#46;Catalog&quot; &#41;\n\n    oCat&#58;ActiveConnection = &quot;Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Quadro&quot;\n\n    FOR i = 0 TO oCat&#58;Tables&#58;Count&#40;&#41; - 1\n        ? oCat&#58;Tables&#40; i &#41;&#58;Name\n        ?\n\n        FOR j = 0 TO oCat&#58;Tables&#40; i &#41;&#58;Columns&#58;Count&#40;&#41; - 1\n            ? SPACE&#40; 4 &#41; + oCat&#58;Tables&#40; i &#41;&#58;Columns&#40; j &#41;&#58;Name\n        NEXT\n\n        ?\n    NEXT\n\n    RETURN NIL[/code:hyoifeh7]\n\nEMG','',0,'AIA=','hyoifeh7',1,0,'',6,0,0),(8528,1994,3,51,0,'80.122.88.242',1141286688,1,0,1,1,1,0,'','','Thank you for your answer.\nHere are more infos.\n\nTanti saluti\nOtto\n\n\n\n// Class. Mainly used for Automatic Alignment techniques\n\n#include \"FiveWin.ch\"\n\n#ifdef __XPP__\n   #define Super ::TControl\n   #define New   _New\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLASS TInvoice FROM TControl\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   METHOD New( nTop, nLeft, nBottom, nRight, oWnd ) CONSTRUCTOR\n\n   METHOD IVHeader()\n\n   METHOD IVBody()\n\n   METHOD IVFooter()\n\n   METHOD IVClear()\n\n   METHOD IVSay()\n\n   METHOD IVBox()\n\n   METHOD IVLine()\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New( nTop, nLeft, nBottom, nRight, oWnd ) CLASS TInvoice\n\n   DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,;\n           oWnd := GetWndDefault()\n\n   ::nTop    = nTop\n   ::nLeft   = nLeft\n   ::nBottom = nBottom\n   ::nRight  = nRight\n   ::oWnd    = oWnd\n   //::nStyle  = nOr( WS_CHILD,  WS_VISIBLE )\n    ::nStyle  = nOr( WS_CHILD, WS_VISIBLE, WS_TABSTOP )\n\n   ::lDrag   = .f.\n\n    ::Register()\n\n   if ! Empty( ::oWnd:hWnd )\n      ::Create()\n      ::oWnd:AddControl( Self )\n   else\n      ::oWnd:DefControl( Self )\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD IVHeader(nRowHeader,Font1,Font2,Font3) CLASS TInvoice\n    ::say(nRowHeader , 20,  \"ArtNr\" ,255,16777215,Font3,.T.)\n    ::say(nRowHeader , 100, \"Bezeichnung\" ,255,16777215,Font1,.T.)\n    ::say(nRowHeader , 500, \"Preis\" ,255,16777215,Font2,.T.)\n    nRowHeader += Font2:nHeight\n    ::say( nRowHeader, 500, \"inkl. MWST\" ,255,16777215,Font3,.T.)\n    nRowHeader += Font2:nHeight\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD IVBody() CLASS TInvoice\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD IVFooter(nRowFooter,Font1,Font2,Font3) CLASS TInvoice\n    nRowFooter += Font2:nHeight/2\n    ::line (nRowFooter,11,nRowFooter,700 )\n    nRowFooter += Font2:nHeight/2\n\n    ::say(nRowFooter , 20,  \"ArtNr\" ,255,16777215,Font3,.T.)\n    ::say(nRowFooter , 100, \"Summe\" ,255,16777215,Font1,.T.)\n    ::say(nRowFooter , 500, \"999,99\" ,255,16777215,Font2,.T.)\n    nRowFooter += Font2:nHeight\n    ::say( nRowFooter, 500, \"inkl. MWST\" ,255,16777215,Font3,.T.)\n    nRowFooter += Font2:nHeight\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD IVClear(nRow,Font1) CLASS TInvoice\n        local nRowHelp := 0\n        local I:=0\n         nRowHelp := nRow\nFOR I = 1  TO 15\n       ::say( nRowHelp, 1,  space(1000),255,16777215,Font1,.T.)\n        nRowHelp += Font1:nHeight\nNEXT\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD IVSay(nRow,nCol,cLine,nClrFore,nClrBack,oFont) CLASS TInvoice\n    ::say( nRow,nCol,cLine,nClrFore,nClrBack,oFont,.T.)\nreturn nil\n\nMETHOD IVLine(nRow,nCol1,nCol2) CLASS TInvoice\n         ::Line (nRow,nCol1,nRow,nCol2 )\nreturn nil\n\nMETHOD IVBox(nRow,nCol1,nCol2,nRow2) CLASS TInvoice\n     ::box (nRow,nCol1,nRow2,nCol2 )\nreturn nil','',0,'AIA=','3fzdh0ko',1,0,'',51,0,0),(8529,1995,16,2,0,'87.218.146.157',1141288922,1,0,1,1,1,1,'','FTDN new March 2006 build / nuevo build de Marzo 2006','March 2006 build\n ============\n \n * Enhancement: FWPPC, Class TWindow Method SetBrush() was missing. Already implemented.\n\n * Fix: Some minor changes in FiveWin.ch\n \n * Fix: Minor fix in Class TCheckBox Method EraseBkGnd().\n\n * New: Class TActiveX with events support is ready! Please review samples\\webexp.prg and samples\\media.prg. Also Class TActiveX has new DATAs you may want to review.\n \n * Fix: Reverted recent minor fix on Class TMenu.\n \n * Fix: Minor fix on Class TWBrowse.\n \n * Enhancement: Class TActiveX reports an error on non existing invoked method, using method Do().\n \n * Enhancement: resources CTEXT controls are properly displayed if TRANSPARENT clause is used.\n   \n * Fix: Minor fix on Class TGet that was causing a system beep.\n \n * Fix: MsgInfo() properly shows long numbers. This bug was introduced again as a side effect on recent Harbour changes.\n   \n * Fix: Minor fix on Class TControl Method KeyDown().\n     \n * Enhancement: Class TCBrowse fires the headers actions if DATA lMChange is false.    \n \n * New: FWPPC, Class TWindow implemented methods SetBrush(), CoorsUpdate(), Move(), SettingChange().\n       \n * New: FWPPC, new function SHGETDOCUMENTSFOLDER( cVolume, @cDocsPath ) --&gt; lOk\n \n * Fix: Minor change on Class TGet and on nDbl2Flt() function.\n \n * Enhancement: FWPPC, bitmaps from resources are properly painted transparent.\n \n * Enhancement: Class TVideo now support MPG format too. Please review samples\\TestVide.prg\n\n * Enhancement: Clicking on the \"?\" on a dialog box caption and then on a control, invokes ::HelpTopic()\n\n * Enhancement: FWPPC, errorsys now creates an error.txt file on the Pocket PC. We have used TXT extension as it can be open with a single pen click.\n \n * Enhancement: FWPPC, creation of dialogboxes from source code is already implemented. Please notice that FWCE.ch has changed. Non modal dialogboxes are not supported yet. Please review samples\\TestDlg.prg\n     \n * New: 32 bits Class TPrinter() Method ImportWmf() now supports 16 bits WMF files too. Please review samples\\Evans.prg\n     \n * Fix: Minor changes on Class TWBrowse Methods VGoDown() and VGoUp().\n       \n * Fix: Minor changes on IsOem() and IsAnsi() functions.\n \n * Enhancement: DBCombo: Refill() method wasn\'t working--fixed. The Refill() method re-reads the data from the file. Passing arrays using New() or Redefine() methods wasn\'t working--fixed. Added incremental searching. Previously, both the itemField and listField had to be character type; now the itemField (or array) can be numeric. See new sample program, samples\\TESTDBC1.PRG for a working sample. Thanks to James\n Bott.\n   \n * Enhancement: February transparency on dialogs has been consolidated, with several changes in different controls. All users tests are working fine.\n\n * Fix: Class TButton objects, if action is fired using its accelerator instead of \n   clicking on it and focus coming from a GET, the GET content is properly saved.\n\n * Fix: Class TMultiGet minor fix on Method KeyChar().\n \n * Enhancements: Class TRichEdit: It inherits now from TControl instead of TMultiGet,\n   this way we have a much better control on it.\n \n   * Removed VIRTUAL methods Display, EraseBkGnd y Paint.\n   * New DATA lReadOnly\n   * New Method cToChar()\n   * New Method GetHighlight(), retrieves the RGB color of the actual character or the  \n     current selection.\n   * New Method SetHighlight(), it sets the background RGB color of the actual character \n     or the current selection.\n   * New Method Preview( cName ), an impressive preview for the RichEdit control. cName  \n     is the name of the document.\n   * New Method PrintBox( hDC, nTop, nLeft, nRight, nBottom ), it prints the contents of\n     the richedit or a rectangle selection.\n   * Please review samples\\TestRtf.prg to review the impressive Preview() and the \n     PrintBox() new method.','',0,'AIA=','19f9y2fv',1,1141345614,'',2,1,0),(8530,1995,16,2,0,'87.218.146.157',1141289184,1,0,1,1,1,1,'','','FWH users may also download the new build too.\n\nLos usuarios de FWH pueden descargar el nuevo build también.','',0,'AIA=','hi6s1b8e',1,0,'',2,0,0),(8533,1436,3,339,0,'200.222.117.194',1141291670,1,0,1,1,1,0,'','','Enrico ,\n\nThe Object Change ADO for ADOX because You are Using Extend ADO methods, Thats Right?\n\n\nThe Extende ADO methods are 100% compatible ?\n\n\n\n\nthanks , AGAIN\n\nmauricio\n(brazil)','',0,'AIA=','2acxigwq',1,0,'',339,0,0),(8534,1436,3,6,0,'82.58.168.216',1141294474,1,0,1,1,1,1,'','','[quote=&quot;mauricioajordao&quot;:10ldrvt6]Enrico ,\n\nThe Object Change ADO for ADOX because You are Using Extend ADO methods, Thats Right?\n\n\nThe Extende ADO methods are 100% compatible ?[/quote:10ldrvt6]\n\nYes and yes.\n\nEMG','',0,'gA==','10ldrvt6',1,0,'',6,0,0),(8535,1994,3,6,0,'82.58.168.216',1141294709,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:3g3bi4qj]Thank you for your answer.\nHere are more infos.[/quote:3g3bi4qj]\n\nYour class inherits from TControl. Then, if I\'m not wrong, you are calling TWindow:Box() method that doesn\'t have nPen parameter, right?\n\nEMG','',0,'gA==','3g3bi4qj',1,0,'',6,0,0),(8536,1994,3,51,0,'80.122.88.242',1141294929,1,0,1,1,1,0,'','','You are right. \nYou think I could draw my own box - 4 lines?\nRegards\nOtto','',0,'gA==','kjss425v',1,0,'',51,0,0),(8537,1436,3,339,0,'200.222.117.194',1141295512,1,0,1,1,1,0,'','','THANKS AGAIN\n\nMAURICIO','',0,'gA==','2c4tzzji',1,0,'',339,0,0),(8538,1998,3,473,0,'213.119.222.114',1141297937,1,0,1,1,1,0,'','Default Values in TSBrowse','Hello All,\n\nI use a Browse with TSBrowse and autoappend.\n\nPushing the down key adds a new record.\n\nI want that some fields are already filled in with a function like CopyLastDate() etc.\n\nIs there an example for this problem.\n\nThanks\n\nWilly Hermans','',0,'gA==','1g2z6lv6',1,0,'',473,0,0),(8539,1998,3,67,0,'62.235.24.156',1141299794,1,0,1,1,1,0,'','','DATA   bAddRec   // custom function for adding record (with your own message)  ???\n\nFrank','',0,'gA==','239eyl9b',1,0,'',67,0,0),(8540,1994,3,6,0,'82.58.168.216',1141301337,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:i2b9r21q]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    ACTIVATE DIALOG oDlg;\n             ON PAINT DRAWBOX&#40; oDlg, hDC, 10, 10, 100, 100, CLR_HRED &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DRAWBOX&#40; oDlg, hDC, nTop, nLeft, nBottom, nRight, nColor &#41;\n\n    LOCAL hPen &#58;= CREATEPEN&#40; PS_SOLID, 1, nColor &#41;\n\n    LOCAL hOldPen &#58;= SELECTOBJECT&#40; hDC, hPen &#41;\n\n    MOVETO&#40; hDC, nLeft, nTop &#41;\n    LINETO&#40; hDC, nRight, nTop &#41;\n    LINETO&#40; hDC, nRight, nBottom &#41;\n    LINETO&#40; hDC, nLeft, nBottom &#41;\n    LINETO&#40; hDC, nLeft, nTop &#41;\n\n    SELECTOBJECT&#40; hDC, hOldPen &#41;\n\n    DELETEOBJECT&#40; hPen &#41;\n\n    RETURN NIL[/code:i2b9r21q]\n\nEMG','',0,'AIA=','i2b9r21q',1,0,'',6,0,0),(8541,1998,3,473,0,'213.119.222.114',1141302087,1,0,1,1,1,0,'','','Thanks Frank,\n\nI saw this and added\n\noLbx:bAddRec := {||MsgInfo(\"Test\")}\n\nThis gives no result\n\nIs there a working sample.\n\nThanks,\n\nWilly Hermans','',0,'AIA=','29oqc4a8',1,0,'',473,0,0),(8542,3,3,473,0,'213.119.222.114',1141302536,1,0,1,1,1,0,'','','Hello everybody\n\nAfter a period of inactivity I am back.\n\nThanks for the new forum\n\nWilly Hermans','',0,'AIA=','3exs4d3l',1,0,'',473,0,0),(8543,1999,6,295,0,'200.112.84.81',1141308012,1,0,1,1,1,1,'','como poner color al GET que esta en foco?','Amigos :\n\nComo puedo colorear el GET que esta en foco?  con FWH2.7 /xHarbour\n\n\nDE ANTEMANO \nMUCHAS GRACIAS \nSALUDOS Y xHabrazos <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','3sen86jl',1,0,'',295,0,0),(8544,1991,6,64,0,'201.50.150.226',1141310474,1,0,1,1,1,1,'','','Obrigada Rene,\n\nConsegui indexar a maioria dos arquivos, porém um arquivo que contém campo memo (FPT) mostra o seguinte erro: DBCMD 2001, não encontrei referência deste erro no manual que acompanha o ADS 8.0. \nO mais interessante é que consigo abrir o arquivo através do ARC32, localmente, mas não consigo alterar o campo memo. E remotamente não consigo abrir o arquivo, dá o erro 7008 The specified table, memo file, or index file was unable to be opened.\nAparentemente o problema é o campo memo. Como resolver?\n\nGrata.','',0,'AIA=','234c2no8',1,0,'',64,0,0),(8545,1992,3,159,0,'210.243.203.20',1141311862,1,0,1,1,1,0,'','','I have method to solution this problem!','',0,'AIA=','107sb116',1,0,'',159,0,0),(8546,1370,3,213,0,'72.177.228.25',1141312378,1,0,1,1,1,0,'','','James,\n\nMaking the email address the 9th parameter causes a MAPI Error Code 2.  \n\nI compiled the SimpleMAPI sample you posted and I get the error message \"SimpleMapi not available\".\n\nThanks,\nRandal Ferguson','',0,'AIA=','1oo8brwt',1,0,'',213,0,0),(8547,1999,6,471,0,'201.240.36.63',1141313293,1,0,1,1,1,1,'','','Local nAt := AScan( oForm:aControls, { | oCtrl | oCtrl:lFocused } )\n\noForm:aControls[N]:SetColor( 0,255 )\n\n\nSaludos','',0,'','36bfb8uk',1,0,'',471,0,0),(8548,1999,6,471,0,'201.240.36.63',1141313434,1,0,1,1,1,1,'','','Correccion\n\nLocal nAt := AScan( oForm:aControls, { | oCtrl | oCtrl:lFocused } ) \n\noForm:aControls[nAt]:SetColor( 0,255 ) \n\n\nSaludos','',0,'','2f67e86d',1,0,'',471,0,0),(8549,1992,3,446,0,'87.6.20.97',1141313572,1,0,1,1,1,0,'','','If you have a solution please post it\n\nRoberto','',0,'','27d4iyjr',1,0,'',446,0,0),(8550,2000,6,456,0,'217.127.39.57',1141315564,1,0,1,1,1,0,'','Varias evaluaciones de bEditValid de la clase TxBrwColumn','Hola amigos,\nestoy utilizando el siguente codigo en un TxBrowse sobre un array\n[code:p2yfe9lm]\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader      &#58;= \'TIP\'\n   oBrw&#58;aCols&#91;1&#93;&#58;cEditPicture &#58;= \'@k 99\'\n   oBrw&#58;aCols&#91;1&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd\n   oBrw&#58;aCols&#91;1&#93;&#58;bOnPostEdit  &#58;= &#123;|o,x| aLin&#91; oBrw&#58;nArrayAt,1&#93; &#58;= x&#125;\n   oBrw&#58;aCols&#91;1&#93;&#58;nEditType    &#58;= EDIT_GET\n   oBrw&#58;aCols&#91;1&#93;&#58;bEditValid   &#58;= &#123;|oGet| ChkTip&#40;oGet,oSayTip&#41;[/code:p2yfe9lm]\n\nEl \"problema\" es que bEditValid, es evaluado varias veces, si lo que se evalua no visualiza nada por pantalla tipo (MsgAlert(\'Tipo no existe\')), ni me entero, pero en mi caso que si quiero visualizar el mensaje de error, pos eso que si hay alguna solución. Si en lugar de hacer un msgAlert, visualizo el error en un oSay del dialogo funciona bien, pero no es lo ideal. Alguna sugerencia. ?\nGracias anticipadas.\nSaludos.','',0,'AIA=','p2yfe9lm',1,0,'',456,0,0),(8551,1931,6,339,0,'200.222.117.194',1141315747,1,0,1,1,1,0,'','','renee e jlcapel\n\nComo estão fazendo com LISTBOX via ADO\n\n\nmauricio','',0,'AIA=','2dz38oyt',1,0,'',339,0,0),(8552,1873,3,375,0,'84.122.121.225',1141316409,1,0,1,1,1,1,'','','AND WHAT ABOUT ADD?\n... .OR. (Valtype( ::Value ) = \"D\" .AND.  (cText == \"/  /\" .OR. cText == \"-  -\"))','',0,'AIA=','3k5iuhau',1,0,'',375,0,0),(8553,1931,6,138,0,'201.129.13.9',1141316646,1,0,1,1,1,1,'','','[quote=&quot;mauricioajordao&quot;:1o09dh11]renee e jlcapel\n\nComo estão fazendo com LISTBOX via ADO\n\n\nmauricio[/quote:1o09dh11]\n\nTienes que hacer unas modificaciones en las datas:\n\nbLogicLen y bSkipped. en la pagina de JL Capel tienes un ejemplo.','',0,'gA==','1o09dh11',1,0,'',138,0,0),(8554,1873,3,375,0,'84.122.121.225',1141316927,1,0,1,1,1,1,'','','Excuse me Enrico it\'s a bug.\nperdona la repetición Antonio, creí que no había mandado ese texto, no leí la página 2.\nDe todas formas, yo lo utilizo para las fechas, pues hice algunas modificaciones para que el cursor se sitúe tras el último carácter de cada Get (no al final del todo) sólo cuando entro en él o al principio del todo si está vacio, y utilizo ese trozo de código.\nSiento la confución, pensé que Enrico hablaba de fechas, no de carácteres. Te importaría traducirselo a él, pues mi inglés no dá para tanto y no quisiera que se mosquee por esta intrusión en castellano.','',0,'gA==','225mj97m',1,0,'',375,0,0),(8555,1999,6,138,0,'201.129.13.9',1141316979,1,0,1,1,1,1,'','','lo que hacemos la mayoria es toquetear un poco la data bGotFocus y bLostFocus de la clase TGET\n\nBasicamente abres el TGET.PRG, localizas los metodos constructores NEW y REDEFINE y les agregas estas 2 lineas al final del metodo:\n\n::bGotFocus := {|| ::SetColor(&lt;colortexto&gt;,&lt;colorfondo&gt;)}\n::bLostFocus := {|| ::SetColor(0,RGB(255,255,255))}\n\nLuego agregas el TGET.PRG modificado a tu lista de PRGs y todo listo.','',0,'gA==','r9dmpwaz',1,0,'',138,0,0),(8556,1991,6,138,0,'201.129.13.9',1141317127,1,0,1,1,1,1,'','','¿ El campo memo (FPT) esta creado con Clipper o con (x)HB con ADS ?\n\n\n\n[quote=&quot;syda&quot;:2gbhekkz]Obrigada Rene,\n\nConsegui indexar a maioria dos arquivos, porém um arquivo que contém campo memo (FPT) mostra o seguinte erro: DBCMD 2001, não encontrei referência deste erro no manual que acompanha o ADS 8.0. \nO mais interessante é que consigo abrir o arquivo através do ARC32, localmente, mas não consigo alterar o campo memo. E remotamente não consigo abrir o arquivo, dá o erro 7008 The specified table, memo file, or index file was unable to be opened.\nAparentemente o problema é o campo memo. Como resolver?\n\nGrata.[/quote:2gbhekkz]','',0,'gA==','2gbhekkz',1,0,'',138,0,0),(8557,2001,3,455,0,'195.97.105.161',1141317656,1,0,1,1,1,0,'','Tooltip style(s)','Anyone knows how I can have tooltips of the Baloon style ?\nThanks to all\nEvans','',0,'gA==','hveae4bi',1,0,'',455,0,0),(8558,1994,3,51,0,'80.122.88.242',1141318288,1,0,1,1,1,0,'','','Thank you.\n\nOtto','',0,'gA==','20u4zblf',1,0,'',51,0,0),(8559,1991,6,64,0,'201.50.150.226',1141319050,1,0,1,1,1,1,'','','Problema resolvido. Criei uma nova tabela com arc32 e usei Append From com o programa CDBF. Era o campo memo.\n\nGrata.','',0,'gA==','1jruugcw',1,0,'',64,0,0),(8560,2002,6,77,0,'217.126.90.142',1141319895,1,0,1,1,1,0,'','CONTROLAR TWBROWSE','Hola a todos vuelvo con los browses, tengo un twbrwose donde pinto todos los clientes, y tengo un combo donde indico el campo por el cual indexar, hay alguna forma que apretando las teclas CTRL-AVPAG pasara al siguiente orden de indexación acutalizando el combo y el browse, \n\ngracias.\nManolo','',0,'gA==','2agmv4vh',1,0,'',77,0,0),(8561,2003,6,21,0,'80.58.49.235',1141320601,1,0,1,1,1,1,'','Problema en FWH 27 build Marzo','Hola,\n\nAl ejecutar el programa con el build de marzo me da el siguiente error:\n\n[code:289vvqzm]   Error description&#58; Error BASE/1079  Argument error&#58; &#46;OR&#46;\n   Args&#58;\n     &#91;   1&#93; = L   &#46;F&#46;\n     &#91;   2&#93; = U   \nStack Calls\n===========\n   Called from&#58; SAY&#46;PRG =&gt; TSAY&#58;SETTEXT &#40; 0 &#41;\n   Called from&#58; win32&#46;prg =&gt; MAIN &#40; 38 &#41;[/code:289vvqzm]\n\nPara probarlo lo único que hay que incluir es el siguiente texto en el archivo \"win32.prg\" del directorio samples:\n\n[code:289vvqzm]&#46;&#46;&#46;\noSay&#58;SetText&#40; \'hola\' &#41;\nACTIVATE DIALOG oDlg CENTERED ;\n  ON INIT &#40; oTabs&#58;Add&#40; &quot;&amp;Three&quot; &#41;,;\n                oTabs&#58;Add&#40; &quot;&amp;Two&quot; &#41;,;\n                oTabs&#58;Add&#40; &quot;&amp;One&quot; &#41;,;\n                oTabs&#58;nOption &#58;= 1,;\n                oProgress&#58;SetRange&#40; 0, 200 &#41;,;\n                oProgress&#58;SetPos&#40; 50 &#41;,;\n                oAnimate&#58;Search&#40;&#41;,;\n                oAnimate&#58;Play&#40;&#41; &#41;[/code:289vvqzm]\n\nEl error se produce siempre sobre un windows 2000. En los XP a veces funciona correctamente.\n\nEste problema no lo tenía con ninguna versión anterior de FWH.\n\nGracias por vuestro tiempo','',0,'AIA=','289vvqzm',1,0,'',21,0,0),(8562,2003,6,456,0,'217.127.39.57',1141321031,1,0,1,1,1,0,'','','A mi tambien me ha aperecido este error con la nueva versión. \nEdita la clase TSay y busca el metodo SetText \n[code:33i0ef2v]\nMETHOD SetText&#40; cText &#41; CLASS TSay\n\n   local hDC\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;  //&lt;====Añade esta linea \n[/code:33i0ef2v]\n \nA mi me funciona ok. Espero que te funcione. \nEl error depende en el momento en que llamas SetText, por ejmplo si en el codigo que has mandado antes, el oSay:SetText(\'hola\') lo pones en el ON INIT, te funcionara bien. \nSaludos.','',0,'AIA=','33i0ef2v',1,1141325990,'',456,1,0),(8563,1931,6,339,0,'200.222.117.194',1141321080,1,0,1,1,1,0,'','','OK renee\n\n\n    qual a Pagina .. WWW ??????\n\n\neu estou a modificar a tcbrowse , mas preciso ver exemplos OK..\n\n\nmauricio (brasil)','',0,'AIA=','3qdvhsta',1,0,'',339,0,0),(8564,2004,3,6,0,'87.1.232.91',1141321333,1,0,1,1,1,1,'','Bug in TButton','Running the following sample you can see that it shows the message \"cVar2 is empty\" if ALT-C is pressed (but not if the button is clicked):\n\n[code:2bhaiky7]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet1, cVar1 &#58;= SPACE&#40; 30 &#41;\n    LOCAL oGet2, cVar2 &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet1 VAR cVar1\n\n    oGet1&#58;bLostFocus = &#123; || cVar2 &#58;= &quot;Test&quot;, oGet2&#58;Refresh&#40;&#41; &#125;\n\n    @ 2, 1 GET oGet2 VAR cVar2\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION IF&#40; !EMPTY&#40; cVar2 &#41;, oDlg&#58;End&#40;&#41;, MSGINFO&#40; &quot;cVar2 is empty&quot; &#41; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    ? cVar2\n\n    RETURN NIL[/code:2bhaiky7]\n\nA possible fix:\n\n[code:2bhaiky7]METHOD Click&#40;&#41; CLASS TButton\n\n   if ! &#58;&#58;lProcessing\n      &#58;&#58;lProcessing = &#46;t&#46;\n\n      if &#58;&#58;bAction != nil\n         &#58;&#58;SetFocus&#40;&#41;  ///EMG\n         Eval&#40; &#58;&#58;bAction &#41;\n      endif\n\n      if ! &#58;&#58;lCancel &#46;and&#46; &#58;&#58;oWnd&#58;hWnd != 0  // A&#46;L&#46; 21/04/03\n         Super&#58;Click&#40;&#41;\n      endif                 // A&#46;L&#46; 21/04/03\n\n      // Hernan Ceccarelli added 10-Junio-2001\n      if &#40; GetFocus&#40;&#41; == &#58;&#58;hWnd &#41;\n         &#58;&#58;PostMsg&#40; BM_SETSTYLE, BS_DEFPUSHBUTTON, 1 &#41;\n      else\n         if ! &#58;&#58;lDefault\n            &#58;&#58;PostMsg&#40; BM_SETSTYLE, BS_PUSHBUTTON, 1 &#41;\n         endif\n      endif\n      // Hernan Ceccarelli added 10-Junio-2001\n\n      &#58;&#58;lProcessing = &#46;f&#46;\n   endif\n\nreturn nil[/code:2bhaiky7]\n\nEMG','',0,'AIA=','2bhaiky7',1,0,'',6,0,0),(8565,2005,2,187,0,'201.155.189.232',1141322044,1,0,1,1,1,0,'','Impresion Lenta con la clase tdosprn en red','Esta pregunta ya la han hecho antes, creo que en el foro anterior.Tengo  un PV en  2 computadoras conectadas en Red, las 2 tienen Windows Xp, imprimo con la clase tdosprn, la que tiene la impresora conectada, imprime rapidisimo!!!, pero la otra en  que direcciono el puerto con: Net use lpt1 \\\\servidor\\impresora tarda 30 segundos en comenzar la impresion!!!   no encuentro la razon de la tardanza!!! alguien me podria ayudar.  Fw23,clipper 5.3 y blinker 5.1','',0,'AIA=','2jluxdp6',1,0,'',187,0,0),(8566,2003,6,21,0,'80.58.49.235',1141322274,1,0,1,1,1,1,'','','Hola\n\nMuchas gracias, ahora funciona correctamente.\n\nLo que me queda la duda es si ocurrirá con alguna otra clase.','',0,'AIA=','1alx4thi',1,0,'',21,0,0),(8567,1995,16,2,0,'87.218.146.242',1141322584,1,0,1,1,1,1,'','','Construcción Marzo del 2006\n====================\n\n* Mejora: En FWPPC, no aparecía el método SetBrush() de la clase TWindow. Ya está implementado.\n\n* Corrección: Algunas pequeñas correcciones en FiveWin.ch\n\n* Corrección: Pequeñas correcciones en el método EraseBkGnd() en la clase TCheckBox.\n\n* Nueva: Ya está funcionando la clase TActiveX con soporte de eventos !! Por favor, revisa los ejemplos: samples\\webexp.prg y samples\\media.prg. También la clase TActiveX tiene nuevas DATAs que puedes revisar.\n\n* Corrección: Deshecha una pequeña y reciente corrección en la clase TMenu.\n\n* Corrección: Pequeñas correcciones en la clase TWBrowse.\n\n* Mejora: La clase TActiveX informa da un error de la no existencia de un método llamado, usando el método Do().\n\n* Mejora: Los controles CTEXT desde recursos se muestran correctamente si se usa la clausula TRANSPARENT.\n\n* Corrección: Pequeña correción en la clase TGet. Evitándose un molesto \"sonido\".\n\n* Corrección: La función MsgInfo() muestra correctamente números largos. Este pequeño error se ha vuelto a reproducir debido a unos cambios recientes en Harbour.\n\n* Corrección: Pequeñas corrección en el método KeyDown() de la clase TControl.\n\n* Mejora: La clase TCBrowse dispara las acciones de las cabeceras si la DATA lMChange está a falso.\n\n* Nueva: En FWPPC, se han implementado los métodos SetBrush(), CoorsUpdate(), Move() y SettingChange() en la clase TWindow.\n\n* Nueva: En FWPPC, nueva función SHGETDOCUMENTSFOLDER( cVolume, @cDocsPath ) --&gt; lOk\n\n* Corrección: Pequeños cambios en la función nDbl2Flt() de la clase TGet.\n\n* Mejora: En FWPPC, los \"bitmaps\" desde recursos se pintan transparentes correctamente.\n\n* Mejora: La clase TVideo ahora soporta el formato MPG también. Por favor, revisa el ejemplo: samples\\TestVide.prg.\n\n* Mejora: Pulsando en \"?\"  en un diálogo, se llama a ::HelpTopic()\n\n* Mejora: En FWPPC, errorsys crea un fichero error en el Pocket PC. Hemos usado la extensión TXT para que pueda ser abierto con un \"click\" del puntero.\n\n* Mejora: En FWPPC, se ha implementado la creación de \"cajas de diálogo\" desde código fuente. Por favor, tenga en cuenta que FWCE.h ha cambiado. Las \"cajas de diálogo\" no modales no están soportadas todavía. Por favor, revise el ejemplo: samples\\TestDlg.prg.\n\n* Nueva: El método ImportWmf() de la clase TPrinter() en 32 bits soporta también ficheros WMF de 16 bits. Por favor, revisa el ejemplo: samples\\Evans.prg.\n\n* Corrección: Pequeños cambios en los métodos VGoDown() y VGoUp() de la clase TWBrowse.\n\n* Corrección: Pequeños cambios en las funciones IsOem() e IsAnsi().\n\n* Mejora: DBCombo: El método Refill() no estaba funcionando, se ha corregido. El métod Refill() relee los datos desde el fichero. El paso de areglos \"arrays\" usando los métodos New() y Redefine() no estaba funcionando, está corregido. Añadida busqueda incremental. Previamente, ambos, itemField y listField tienen que ser de tipo carácter; ahora itemField (o array) puede ser numérico. Mira el nuevo ejemplo:  samples\\TESTDBC1.PRG. Gracias a James Bott.\n\n* Mejora: Las transparencias en diálogos presentadas en la construcción de Febrero de 2006 se han consolidado, con varios cambios en diferentes controles. Todos las pruebas hechas por los usuarios han ido correctamente.\n\n* A partir de ahora, la clase TRichEdit hereda de TControl en vez de TMultiGet.\n \n- Se eliminan los métodos virtuales Display, EraseBkGnd y Paint.\n \n- Nueva DATA lReadOnly\n \n- Nuevo método cToChar()\n \n- Nuevo método GetHighlight()\n  \n  Obtiene el color de fondo del carácter actual o el seleccionado. Este valor está en el formato RGB( rojo, verde, azul ).\n \n- Nuevo método SetHighlight()\n  \n  Establece el color de fondo del carácter actual o el seleccionado.\n \n  Parámetro:\n \n  nColor. El color debe estar en el formato RGB( rojo, verde, azul ). Por defecto, 0.\n \n- Nuevo método Preview( cName )\n \n   cName. el nombre del documento; por defecto, \"FWH RICHEDIT FILE\".\n \n- Nuevo método PrintBox( hDC, nTop, nLeft, nRight, nBottom )\n \n   Imprime el contenido de un objeto richedit o la selección en un rectángulo.\n \n   Parámetros:\n \n   hDC. Manejador de la impresora.\n \n   nTop, nLeft, nRight, nBottom. Las dimensiones en pixeles del rectángulo.\n \nVéase en el ejemplo samples\\testrtf.prg las opciones Print y Preview bajo \"Box\" para mostrar cómo usar el nuevo método PrintBox con o sin selección y el botón Preview en la ventana hija.','',0,'AIA=','333w19qu',1,1141346020,'',2,1,0),(8568,2003,6,2,0,'87.218.146.242',1141322749,1,0,1,1,1,1,'','','Gracias por la corrección. Es correcta.','',0,'AIA=','1xkx5i5d',1,0,'',2,0,0),(8569,2003,6,2,0,'87.218.146.242',1141324123,1,0,1,1,1,1,'','','Modificado el setup de instalación de FWH.','',0,'AIA=','9psdd808',1,0,'',2,0,0),(8570,2004,3,2,0,'87.218.146.242',1141324379,1,0,1,1,1,1,'','','Thanks Enrico! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2lxh7brq',1,0,'',2,0,0),(8571,1873,3,2,0,'87.218.146.242',1141324544,1,0,1,1,1,1,'','','Manu,\n\nSeguro que te entiende bien, gracias.','',0,'AIA=','1sgj4iru',1,0,'',2,0,0),(8572,2006,6,255,0,'200.67.175.250',1141326340,1,0,1,1,1,1,'','Crystal Report 8.5 en Diálogos desde recursos...','Lo dicho amigos, hay forma de colocar \nel crystal report en un diálogo creado desde\nrecursos???\n\nDesde ya muchas gracias.','',0,'AIA=','hzz0eoyf',1,0,'',255,0,0),(8573,1931,6,123,0,'81.39.239.66',1141326609,1,0,1,1,1,0,'','','Mauricio,\n\n[quote:2gf1h0pk] qual a Pagina .. WWW ?????? [/quote:2gf1h0pk]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2gf1h0pk',1,0,'',123,0,0),(8574,2001,3,217,0,'201.27.31.60',1141328903,1,0,1,1,1,0,'','','You must modify window.prg and include it to your app.\nSearch into window.prg for \"balloon\" (I think is placed in method ShowTooltip), you will find how modify it to turn \"square tooltip\" into \"balloon tooltip\"\n\nRegards\nMaurilio','',0,'gA==','2f3pvya3',1,0,'',217,0,0),(8575,1999,6,295,0,'200.112.87.94',1141329045,1,0,1,1,1,1,'','','GRACIAS AMIGOS POR SUS RESPUESTAS\n\nFUNCIONÓ PERFECTO\n\nSALUDOS\nXHABRAZOS <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','u97g9osn',1,0,'',295,0,0),(8576,2007,6,228,0,'201.245.222.85',1141330322,1,0,1,1,1,1,'','Algo sobre transparencias?','Amigos del foro de nuevo yo...\n\nNecesito poder crear un BTNBMP (Boton), pero que solo se vea la letra y/o la imagen del boton, que tome por defecto el fondo del dialogo.\n\nSe puede y se se puede como se hace?, este es el codigo-&gt;\n[code:1iddq9j7]\n*************************************************************\n*cuadro de dialogo para verificación conexion con el servidor\n*************************************************************\nPROC Inicio&#40;&#41;\n\noT1vg1&#58;=space&#40;15&#41;\noT1vg2&#58;=space&#40;6&#41;\n\nDEFINE BRUSH oBrush RESOURCE &quot;INICIO&quot;\nDEFINE DIALOG oDlg RESOURCE &quot;Plano10&quot; TRANSPARENT BRUSH oBrush OF oWinp\n oProgress = TProgress&#40;&#41;&#58;Redefine&#40; 4001, oDlg &#41;\n REDEFINE SAY oT1os1 ID 15 OF oDlg UPDATE\n\n REDEFINE SAY oT1os2 ID 4002 OF oDlg\n REDEFINE SAY oT1os3 ID 4004 OF oDlg\n REDEFINE SAY oT1os4 ID 4005 OF oDlg\n\n REDEFINE SAY oT1os5 ID 4003 OF oDlg\n REDEFINE SAY oT1os6 ID 4007 OF oDlg\n\n REDEFINE GET oT1og1 VAR oT1vg1 ID 4006 OF oDlg\n REDEFINE GET oT1og2 VAR oT1vg2 ID 4008 OF oDlg\n\n REDEFINE BUTTONBMP BtnE ID 4009 OF oDlg ACTION pVerUsu&#40;&#41;\n REDEFINE BTNBMP BtnS ID 4010 OF oDlg NOBORDER ACTION &#40;oWinp&#58;End&#40;&#41;&#41;\n\n oProgress&#58;SetRange&#40; 0, 2 &#41;\n oProgress&#58;SetPos&#40; 0 &#41;\n BtnE&#58;Settext&#40;&quot;Entrar&quot;&#41;\n BtnS&#58;Settext&#40;&quot;Cancelar&quot;&#41;\n oT1og1&#58;bGotFocus&#58;=&#123;||oT1og1&#58;SelectAll&#40;&#41;&#125;\n oT1og2&#58;bGotFocus&#58;=&#123;||oT1og2&#58;SelectAll&#40;&#41;&#125;\n BtnE&#58;gotfocus&#40;&#41;\n\nACTIVATE DIALOG oDlg CENTERED VALID&#40;oLamcla&#58;vPPexit&#41; \n[/code:1iddq9j7]','',0,'AIA=','1iddq9j7',1,0,'',228,0,0),(8577,1873,3,6,0,'87.1.232.91',1141332068,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3ler4xtd]Manu,\n\nSeguro que te entiende bien, gracias.[/quote:3ler4xtd]\n\nSi, yo ho entiendido bastante (desculpame per mi espanol).  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEMG','',0,'gA==','3ler4xtd',1,0,'',6,0,0),(8578,2008,6,292,0,'201.248.85.65',1141332448,1,0,1,1,1,1,'','Necesito adquirir Eagle para FW27','Colegas\nDeseo contactar al fabricante o vendedor de esta librería.','',0,'gA==','2jiqpwil',1,0,'',292,0,0),(8579,2009,6,292,0,'201.248.85.65',1141332560,1,0,1,1,1,1,'','REPORT Colocar varias líneas en HEADER de Grupos','Colegas.\nNecesito colocar o imprimir varias líneas en los header de los grupos creados en reportes de la clase TREPORT.\n\nIgualmente en FOOTER','',0,'gA==','39h9tl5y',1,0,'',292,0,0),(8580,1873,3,375,0,'84.122.121.225',1141333207,1,0,1,1,1,1,'','','OK\nUN SALUDO','',0,'gA==','8yzkbm8e',1,0,'',375,0,0),(8581,1999,6,375,0,'84.122.121.225',1141333972,1,0,1,1,1,1,'','','El problema Luis es que ocupas bGotFocus y bLostFocus y ya no los puedes utizar para otra cosa. Si quieres, yo lo he solucionado de la siguiente forma:\n\nPrimero hay que definir cuatro Datas\n\nDATA nClrFore,nClrBack\nDATA nClrGFore,nClrGBack   //  Tu los puedes llamar como quieras\n\nDespués modificas ligeramente algunos métodos:\n\nMETHOD Initiate( hDlg ) CLASS ...\n   *\n   Super:Initiate( hDlg )\n   *\n   ::nClrFore  := ::nClrText\n   ::nClrBack  := ::nClrPane\n   ...\nRETURN NIL\n\nMETHOD GotFocus( hCtlLost ) CLASS ...\n...\nIF ::nClrGFore # NIL\n::SetColor(::nClrGFore,::nClrGBack)\nENDIF\n...\n\n\nMETHOD LostFocus( hCtlFocus ) CLASS ...\n...\nIF ::nClrGFore # NIL\n::SetColor(::nClrFore,::nClrBack)\nENDIF\n...\n\nY nada más. La ventaja está en que conservas los colores originales y que puedes definir los del foco desde tu programa\n\nREDEFINE oGet .......\noGet:nClrFore := &lt;colortexto&gt;\noGet:nClrBack := &lt;colorfondo&gt;\n\nY además, sigues teniendo bGotFocus y bLostFocus libres para lo que necesites.\n\nUn saludo','',0,'gA==','3mv9trij',1,0,'',375,0,0),(8582,1995,16,299,0,'69.65.95.131',1141334352,1,0,1,0,1,0,'','','Antonio;\n\nEs que no veo nada sobre la impresión de rtfs usando trpinter.  ¿Aun no has logrado hacer algo con esto?\n\nSaludos,\n\n\nReinaldo Crespo','',0,'gA==','kovnzpqq',1,0,'',299,0,0),(8583,2010,6,474,0,'201.128.105.176',1141335511,1,0,1,1,1,1,'','Tamaño de ADT\'s y ADI\'s','Pues resulta ke ya realice otra de tantas migraciones, esta fue de Clipper/FiveWin a xHarbour/Fivewin  y de DBF/CDX a ADT/ADI\n\nProblema? digamos problemonnnnnnnnnnnnnnn\n\nResulta ke las bases junto con los indices se respaldaban en un CD normalito de 700 Mb\n\nPues media 600 y fraccion.\n\nDespues de la migracion aun cupieron en un solo CD, despues de 3 semanas, el respaldo zip va en 1.9 Gb. y eso nunca habia ocurrido con las DBF\'s\n\nPor si las moscas indico ke son 120 Tablas y 110 Archivos de Indice (ADI) y antes eso nunca ocurria, pues su taza de crecimiento diaria no era tan exponencial como ahora.\n\nEl codigo en su mayoria es el mismo, con funciones de optimizacion ETC para poder utilizar los ADT, las transacciones son las mismas, al orden de 60000 diarias (como siempre) pero hago mencion ke una vez al año se hacia la depuracion solamente. Antes Deleteabamos los campos, pero los dejabamos en la base como auditores, ahora (como las ADT realizan la eliminacion del registro) tenemos un campo de control donde ponemos el estatus de eliminado o no eliminado. por lo dicho, se supone ke tienen la misma informacion las bases, pues el pack no se les ejecutaba a las DBF\n\nUna pista de por donde puede estar el problema?????\n\nHelp meeeee. Ya hasta se empezo ha realizar los respaldos en DVD, cosa ke no deveria sucederrrrrrrr  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSaludos','',0,'gA==','2r4ywt2b',1,0,'',474,0,0),(8584,1999,6,110,0,'165.98.151.243',1141335766,1,0,1,1,1,1,'','','En mi caso \n\nAgrego esto al include de mi aplicacion. Ej( miapp.ch )\n[code:kh2harg5]\n\n#define CLR_PIEL1         RGB&#40;216,185,165&#41;\n#define CLR_PIEL2         RGB&#40;192,192,192&#41;\n#define CLR_MENTA1      RGB&#40;175,255,215&#41;\n#define CLR_MENTA2      RGB&#40;221,255,238&#41;\n#define CLR_DISABLE     RGB&#40;255,255,217&#41;\n#define CLR_AMARILLO1 RGB&#40;255,251,225&#41;\n#define CLR_BLUE1         RGB&#40;231,220,228&#41;\n#define CLR_CAFE          RGB&#40;128,064,000&#41;\n\n#xcommand REDEFINE GET &#91; &lt;oGet&gt; VAR &#93; &lt;uVar&gt; ;\n             &#91; ID &lt;nId&gt; &#93; ;\n             &#91; &lt;dlg&#58; OF, WINDOW, DIALOG&gt; &lt;oDlg&gt; &#93; ;\n             &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n             &#91; VALID   &lt;ValidFunc&gt; &#93;       ;\n             &#91; PICTURE &lt;cPict&gt; &#93; ;\n             &#91; &lt;color&#58;COLOR,COLORS&gt; &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; FONT &lt;oFont&gt; &#93; ;\n             &#91; CURSOR &lt;oCursor&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; ON CHANGE &lt;uChange&gt; &#93; ;\n             &#91; &lt;readonly&#58; READONLY, NO MODIFY&gt; &#93; ;\n             &#91; &lt;spin&#58; SPINNER&gt; &#91;ON UP &lt;SpnUp&gt;&#93; &#91;ON DOWN &lt;SpnDn&gt;&#93; &#91;MIN &lt;Min&gt;&#93; &#91;MAX &lt;Max&gt;&#93; &#93; ;\n       =&gt; ;\n          &#91; &lt;oGet&gt; &#58;= &#93; KTGet&#40;&#41;&#58;ReDefine&#40; &lt;nId&gt;, bSETGET&#40;&lt;uVar&gt;&#41;, &lt;oDlg&gt;,;\n             &lt;nHelpId&gt;, &lt;cPict&gt;, &lt;&#123;ValidFunc&#125;&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;,;\n             &lt;oFont&gt;, &lt;oCursor&gt;, &lt;cMsg&gt;, &lt;&#46;update&#46;&gt;, &lt;&#123;uWhen&#125;&gt;,;\n             &#91; \\&#123;|nKey,nFlags,Self| &lt;uChange&gt; \\&#125;&#93;, &lt;&#46;readonly&#46;&gt;,;\n             &lt;&#46;spin&#46;&gt;, &lt;&#123;SpnUp&#125;&gt;, &lt;&#123;SpnDn&#125;&gt;, &lt;&#123;Min&#125;&gt;, &lt;&#123;Max&#125;&gt;&#41;\n\n\n[/code:kh2harg5]\n\nAgrego este codigo a un prg. ej:( myget.prg)\n\n[code:kh2harg5]\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;miapp&#46;ch&quot;\n\nCREATE CLASS KTGet FROM TGet\n\n   DATA nClrForeFocus INIT CLR_BLACK\n   DATA nClrBackFocus INIT CLR_PIEL1\n   DATA nOldClrFore\n   DATA nOldClrBack\n\n   METHOD GotFocus&#40;&#41;\n   METHOD LostFocus&#40; hCtlFocus&#41;\n   METHOD Paint&#40;&#41;\n\nENDCLASS\n\nMETHOD GotFocus&#40;&#41; CLASS KTGet\n   IF &#58;&#58;nClrForeFocus != NIL &#46;and&#46; &#58;&#58;nClrBackFocus != NIL\n      &#58;&#58;nOldClrFore &#58;= &#58;&#58;nClrText\n      &#58;&#58;nOldClrBack &#58;= &#58;&#58;nClrPane\n      &#58;&#58;SetColor&#40; &#58;&#58;nClrForeFocus, &#58;&#58;nClrBackFocus &#41;\n   ENDIF\nRETURN Super&#58;GotFocus&#40;&#41;\n\nMETHOD LostFocus&#40; hCtlFocus &#41; CLASS KTGet\n   &#58;&#58;bWhen &#58;= iif&#40; &#58;&#58;bWhen == NIL, &#123;|| TRUE &#125;, &#58;&#58;bWhen &#41;\n   IF &#58;&#58;nClrForeFocus != NIL &#46;and&#46; &#58;&#58;nClrBackFocus != NIL\n      &#58;&#58;SetColor&#40; &#58;&#58;nOldClrFore, &#58;&#58;nOldClrBack &#41;\n   ENDIF\n   IF &#58;&#58;lReadOnly == TRUE &#46;or&#46; !eval&#40; &#58;&#58;bWhen &#41;\n      &#58;&#58;SetColor&#40; CLR_BLACK, CLR_AMARILLO1 &#41;\n   ENDIF\nRETURN Super&#58;LostFocus&#40; hCtlFocus &#41;\n\nMETHOD Paint&#40;&#41; CLASS KTGet\n   &#58;&#58;bWhen &#58;= iif&#40; &#58;&#58;bWhen == NIL, &#123;|| TRUE &#125;, &#58;&#58;bWhen &#41;\n   IF &#40; &#58;&#58;lReadOnly == TRUE &#46;or&#46; !eval&#40; &#58;&#58;bWhen &#41; &#41; &#46;and&#46; &#58;&#58;lFocused == FALSE\n      &#58;&#58;SetColor&#40; CLR_BLACK, CLR_AMARILLO1 &#41;\n   ELSEIF &#58;&#58;lReadOnly == FALSE &#46;and&#46; &#58;&#58;lFocused == TRUE\n      &#58;&#58;SetColor&#40; CLR_BLACK, CLR_MENTA2 &#41;\n   ELSE\n      &#58;&#58;SetColor&#40; CLR_BLACK, CLR_WHITE &#41;\n   ENDIF\n\nRETURN Super&#58;Paint&#40;&#41;\n\n[/code:kh2harg5]\n\nde esta forma no modificamos los prg de la clase tget\n\nsalu2\ncarlos vargas','',0,'AIA=','kh2harg5',1,0,'',110,0,0),(8585,1931,6,339,0,'200.222.117.194',1141337233,1,0,1,1,1,0,'','','MUITO OBRIGADO\n\n\n\n\nMAURICIO','',0,'AIA=','14jedsb2',1,0,'',339,0,0),(8586,2008,6,471,0,'201.240.36.63',1141337444,1,0,1,1,1,1,'','','Hasta donde yo se era Jose Alfonso Suarez','',0,'AIA=','3c3e1w9v',1,0,'',471,0,0),(8587,2011,6,64,0,'201.50.150.226',1141337454,1,0,1,1,1,1,'','Para Antonio Linares - sobre FOLDER','Antonio, existe a possibilidade de termos um folder parecido nas futuras versões do FWH?\n\n[img:29kkaynf]http&#58;//geocities&#46;yahoo&#46;com&#46;br/shirleydalmeida/Folder&#46;jpg[/img:29kkaynf]\n\nAbrazo.','',0,'CA==','29kkaynf',1,0,'',64,0,0),(8588,2012,3,299,0,'69.65.95.131',1141337558,1,0,1,0,1,0,'','March Build','Antonio;\n\nCouldn\'t find anything about printing rtf text using tprinter.  Did it get included in march build?\n\nBest,\n\n\nReinaldo Crespo','',0,'CA==','1oymtpyt',1,0,'',299,0,0),(8589,1971,6,474,0,'201.128.105.176',1141337669,1,0,1,1,1,1,'','','tambnien puedes utilizar la clase para el manejo de sockets de xharbour. Es mas estable en XP a XP','',0,'CA==','1esc729b',1,0,'',474,0,0),(8590,2013,3,64,0,'201.50.150.226',1141337764,1,0,1,1,1,1,'','To Antonio Linares - About FOLDER.','Antonio, exists the possibility of terms to folder similar in the future versions of the FWH?\n\n[img:2z8mddn5]http&#58;//geocities&#46;yahoo&#46;com&#46;br/shirleydalmeida/Folder&#46;jpg[/img:2z8mddn5]','',0,'CA==','2z8mddn5',1,0,'',64,0,0),(8591,2014,3,6,0,'87.1.232.91',1141338583,1,0,1,1,1,1,'','Bug in TControl','The ESC key is disabled in the following sample (but it is not the only one) in the March build:\n\n[code:2flluljm]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar MEMO\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2flluljm]\n\nIt seems that the cause is a change in TControl:\n\n[code:2flluljm]METHOD KeyDown&#40; nKey, nFlags &#41; CLASS TControl\n\n   if nKey == VK_ESCAPE\n      &#58;&#58;oWnd&#58;KeyDown&#40; nKey, nFlags &#41;\n      return 0\n   endif[/code:2flluljm]\n\nThis is the previous working version:\n\n[code:2flluljm]METHOD KeyDown&#40; nKey, nFlags &#41; CLASS TControl\n\n   if nKey == VK_ESCAPE\n      &#58;&#58;oWnd&#58;KeyChar&#40; nKey, nFlags &#41;\n      return 0\n   endif[/code:2flluljm]\n\nEMG','',0,'AIA=','2flluljm',1,0,'',6,0,0),(8592,2012,3,2,0,'87.218.146.242',1141338968,1,0,1,1,1,1,'','','Reinaldo,\n\nWe will include it in the next days.','',0,'AIA=','3qfzkfis',1,0,'',2,0,0),(8593,2012,3,299,0,'69.65.95.131',1141339730,1,0,1,0,1,0,'','','Antonio;\n\nHola.  Grato ver tu respuesta.   Te ruego me informes en cuanto lo tengas, pues lo necesito, y solo espero a esto para hacer el upgrade de 2.6 a 2.7.\n\nYa que te tengo en el tema, necesito insertar texto que proviene de .fpt a un control richtext.  Quisiera usar cut &amp; paste.  Pero no me funciona.  De hecho cuando el texto es insertado se pierden todos los atributos del richtext.  Me das una ayuda?\n\nGracias,\n\n\nReinaldo.','',0,'AIA=','gtcg0son',1,0,'',299,0,0),(8594,2011,6,2,0,'87.218.146.242',1141339982,1,0,1,1,1,1,'','','Syda,\n\nPero ese folder no es estandard de Windows XP.','',0,'AIA=','3jtnatap',1,0,'',2,0,0),(8595,2008,6,54,0,'201.137.90.144',1141341030,1,0,1,1,1,1,'','','[quote=&quot;Vladimir Zorrilla&quot;:2f794s5a]Hasta donde yo se era Jose Alfonso Suarez[/quote:2f794s5a]\n\nMi estimado,\n\nLa libreria es de Manu Exposito, y su correo es:\n\n<!-- e --><a href=\"mailto:loloexpo@yahoo.es\">loloexpo@yahoo.es</a><!-- e -->\n\nBueno, es con el que postea en el foro.\n\nEl foro es:\n\n<!-- e --><a href=\"mailto:eagle1@yahoogroups.com\">eagle1@yahoogroups.com</a><!-- e -->','',0,'gA==','2f794s5a',1,0,'',54,0,0),(8596,2011,6,64,0,'201.50.150.226',1141342729,1,0,1,1,1,1,'','','Não, seria uma opção para quem não utiliza Windows XP, mas quer uma aparência diferente.\n\nAbrazo.','',0,'gA==','1x20z669',1,0,'',64,0,0),(8597,863,3,339,0,'200.222.117.194',1141342795,1,0,1,1,1,0,'','','Dear Antonio,\n\n\n     Thanks per Help make My DLL to Xharbour, But Now i Have Other Problem..\n\n     My Dll its OK TO , Cobol , DELPHI , VB , But to Using Xharbour Calling Don´t RUN.\n\n\n  Do You Know Why?\n\n\n  i make My DLL With \n\n\nmacrocall.c\n*************************************************\n#define HB_OS_WIN_32_USED\n\n#include \"hbvm.h\"\n#include \"hbapiitm.h\"\n#include \"hbstack.h\"\n\n#if defined(HB_OS_WIN_32)\n\n//  Function pointer type\ntypedef long (__stdcall *CallBackFuncType)(const char* message);\n\n\n//  Setter function\nHB_EXPORT __stdcall void SetCallBack(CallBackFuncType fun);\n\n\n// funcao Macrocall\nvoid * HB_EXPORT  __stdcall MacroCall( char * sfunc,  char *schar)\n\n{\n   char *szFunc = \"MacroCall\";\n\n   PHB_DYNS pDynSym = hb_dynsymFindName( szFunc ); /* The PRG function to use */\n\n   if( pDynSym )\n   {\n      hb_vmPushSymbol( pDynSym-&gt;pSymbol );\n      hb_vmPushNil();\n      hb_vmPushString( sfunc, strlen( sfunc ) );\n      hb_vmPushString( schar, strlen(schar) );\n      hb_vmFunction( 2 ); /* as we receive one parameter */\n      strcpy( schar , hb_stack.Return.item.asString.value ) ;\n      return \"0\" ;\n   }\n   else\n      return \"0\" ;\n\n   }\n\n\nstatic CallBackFuncType cbfun = 0;\nvoid __stdcall SetCallBack(CallBackFuncType fun)\n{\n  CallBackFuncType oldfun = cbfun;\n  cbfun = fun;\n  return oldfun;\n}\n\nHB_FUNC( CALLBACK )\n{\n  long result = 0;\n\n  if (cbfun != 0)\n  {\n\n     result = cbfun( hb_parc( 1 ) );\n  }\n  else\n  {\n      MessageBox( NULL,  //HWINDOW of the window that owns the message box\n                  \"CallBack failed under MacrCall.c\" , //Text\n                  \"Warning\" ,//Title\n                  MB_OK | MB_ICONINFORMATION );//Bit mask flags\n  }\n\n  hb_retl( result );  // QUESTION: If you can make this to return a char pointer\n                      // being interpreted correctly by Delphi,\n                      // please inform me, I\'m all ears, thank you.\n}\n\nHB_FUNC( MSGBOX )\n   {\n      MessageBox( 0, hb_parc( 1 ), \"Warning\", 0 );\n   }\n\n#endif\n\n*****************************\nmaindll\n\n#define HB_OS_WIN_32_USED\n\n#include \"hbvm.h\"\n#include \"hbapiitm.h\"\n\n#if defined(HB_OS_WIN_32)\n\nBOOL HB_EXPORT WINAPI DllEntryPoint( HINSTANCE hInstance, DWORD fdwReason, PVOID pvReserved )\n{\n   HB_TRACE( HB_TR_DEBUG, (\"DllEntryPoint(%p, %p, %d)\", hInstance, fdwReason,\n             pvReserved ) );\n\n   HB_SYMBOL_UNUSED( hInstance );\n   HB_SYMBOL_UNUSED( fdwReason );\n   HB_SYMBOL_UNUSED( pvReserved );\n\n   switch( fdwReason )\n   {\n      case DLL_PROCESS_ATTACH:\n           hb_vmInit( FALSE );  /* Don\'t execute first linked symbol */\n           break;\n      case DLL_PROCESS_DETACH:\n           /* hb_vmQuit(); */\n           break;\n   }\n\n   return TRUE;\n}\n\nLONG HB_EXPORT PASCAL HBDLLENTRY( char * cProcName )\n{\n\n   hb_itemDoC( cProcName, 0, 0 );\n\n   return 0;\n}\n\n#endif\n     \n\n\n**************************\nMy Call in xharbour\n\n\nDLL32 FUNCTION chamada(parm1 AS LPSTR  , parm2 AS LPSTR) AS LONG PASCAL FROM \"macrocall\" LIB \"XHB.DLL\"\n\n\n\nThanks For help...','',0,'gA==','3gp3z9to',1,0,'',339,0,0),(8598,2012,3,2,0,'87.218.146.242',1141344029,1,0,1,1,1,1,'','','Reinaldo,\n\nLa impresión de RichEdit, el preview e impresión de sólo un área también está listo. Ha sido un despiste por nuestra parte no incluirlo en el build. Vamos a incluirlo ahora mismo y a volver a publicarlo.\n\nAquí tienes un ejemplo del preview:\n[url=http&#58;//imageshack&#46;us:3ciql9s2][img:3ciql9s2]http&#58;//img230&#46;imageshack&#46;us/img230/7654/preview4fs1&#46;gif[/img:3ciql9s2][/url:3ciql9s2]','',0,'GA==','3ciql9s2',1,0,'',2,0,0),(8599,2012,3,299,0,'69.65.95.131',1141344377,1,0,1,0,1,0,'','','Antonio;\n\nPues ahora mismo hago el upgrade a 2.7.\n\nGracias.\n\nReinaldo.','',0,'GA==','n1v63nna',1,0,'',299,0,0),(8600,2007,6,40,0,'200.92.17.38',1141344563,1,0,1,1,1,0,'','','Leandro, desde el workshop en sus propiedades  Button Type dile\nque es \"Owner Draw\"\n\nespero te funcione, saludos\nJoel Andujo','',0,'GA==','3v31gvln',1,0,'',40,0,0),(8601,1966,3,2,0,'87.218.146.242',1141344587,1,0,1,1,1,1,'','','Enrico,\n\nFixed the problem in dialogs! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe are going to re-publish the March build in a few minutes with the new changes and enhancements on Class TRichEdit.','',0,'GA==','1kn7r3p2',1,0,'',2,0,0),(8602,2014,3,2,0,'87.218.146.242',1141344860,1,0,1,1,1,1,'','','Enrico,\n\nThis fix looks as the right one in Class TMultiGet:\n[code:3idp0qzr]\n   if nKey == VK_ESCAPE  // Windows API already sends it to dialogs!!!\n      if &#58;&#58;oWnd&#58;ChildLevel&#40; TDialog&#40;&#41; &#41; != 0 &#46;and&#46; &#58;&#58;oWnd&#58;lModal\n         return Super&#58;KeyChar&#40; nKey, nFlags &#41; // nil\n      endif\n      &#46;&#46;&#46;\n[/code:3idp0qzr]','',0,'AIA=','3idp0qzr',1,0,'',2,0,0),(8603,2013,3,2,0,'87.218.146.242',1141345016,1,0,1,1,1,1,'','','Syda,\n\nThats not a standard XP folder.','',0,'AIA=','q4tcsfzu',1,0,'',2,0,0),(8605,1995,16,2,0,'87.218.146.242',1141346075,1,0,1,1,1,1,'','','Reinaldo,\n\nSe habia quedado en el tintero. Incluido y hemos publicado de nuevo el build de Marzo. Gracias por recordárnoslo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1rp8bqi0',1,0,'',2,0,0),(8607,2012,3,2,0,'87.218.146.242',1141346744,1,0,1,1,1,1,'','','Reinaldo,\n\nSi copias texto desde un programa como el Word o WordPad y lo pegas en un objeto RichEdit se conservan todos los atributos (negrita, cursiva, subrayado, tipo de fuente, tamaño,...). Claro, debe ser un programa que utilice los códigos \\rtf.','',0,'AIA=','3memijys',1,0,'',2,0,0),(8608,2012,3,299,0,'69.65.95.131',1141347554,1,0,1,0,1,0,'','','Antonio;\n\nMe siento medio estúpido.  Estaba modificando un .prg y ejecutando otro.  Ese era todo el problema.\n\nComo quiera, gracias por tus respuestas.   Estoy ansioso de comenzar a probar la imprsión y previews de rtfs usando tprinter.\n\nMe dices donde mirar para ver ejemplos que me guien?\n\nSaludos,\n\nReinaldo.','',0,'AIA=','3r8kxjpk',1,0,'',299,0,0),(8609,1370,3,303,0,'68.7.28.54',1141349285,1,0,1,1,1,0,'','','Randal,\n\n&gt;Making the email address the 9th parameter causes a MAPI Error Code 2.\n\nIt was already in the 9th slot. Did you mean 8th, or did you put it in the 10th by mistake? \n\n&gt;I compiled the SimpleMAPI sample you posted and I get the error message \"SimpleMapi not available\". \n\nMaybe this will help:\n\n[quote:3c8uubfm]If sending or receiving mail is not the primary function of your application, you can test the presence of simple MAPI in a system without incurring high cost of trying to load a DLL by testing the value of the MAPI variable. It is 1 if simple MAPI is installed. The variable is located in the [mail] section of Win.ini on 16-bit Windows and Windows NT version 3.51 and earlier; it is under HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows Messaging Subsystem in the registry on Windows 95 and Windows NT 4.0 and later.[/quote:3c8uubfm]\n\nTaken from this page:\n\n[url:3c8uubfm]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/vcsample98/html/vcsmpsimplemapi&#46;asp[/url:3c8uubfm]\n\nJames','',0,'kA==','3c8uubfm',1,0,'',303,0,0),(8610,2012,3,2,0,'87.218.146.242',1141349689,1,0,1,1,1,1,'','','Reinaldo,\n\nsamples\\TestRtf.prg','',0,'kA==','3vev501y',1,0,'',2,0,0),(8611,2015,3,32,0,'196.36.8.34',1141354491,1,0,1,1,1,0,'','Problem with webexp.prg in fwh march 2006','Hi,\n\nI get the following unresolved externals:\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_OLEGETPROPERTY\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_OLESETPROPERTY\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_OLEINVOKE\'.\n\nxLINK: error: Unresolved external symbol \'??2@YAPAXI@Z\'.\n\nxLINK: error: Unresolved external symbol \'??3@YAXPAX@Z\'.\n\nThis is the link cmd used by Xhb:\n\nxlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:\"C:\\xHB\\lib\" -LIBPATH:\"C:\\xHB\\c_lib\" -LIBPATH:\"C:\\xHB\\c_lib\\win\"  -LIBPATH:\"C:\\fwh\\lib\" \"webexp.obj\" \"activex.obj\" FiveHCM.lib FiveHMX.lib OptG.lib xhb.lib dbf.lib ntx.lib cdx.lib rmdbfcdx.lib activex.lib crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:\"webexp.exe\"\n\nShould this be changed?','',0,'kA==','xitjscq4',1,0,'',32,0,0),(8612,2001,3,455,0,'195.97.105.161',1141354849,1,0,1,1,1,0,'','','[quote=&quot;Maurilio Viana&quot;:3mlsknlb]You must modify window.prg and include it to your app.\nSearch into window.prg for \"balloon\" (I think is placed in method ShowTooltip), you will find how modify it to turn \"square tooltip\" into \"balloon tooltip\"\n\nRegards\nMaurilio[/quote:3mlsknlb]\n\nThank you Maurilio.\nI have activated the third parameter (, .T.) and it works fine.\nKind regards\nEvans','',0,'gA==','3mlsknlb',1,0,'',455,0,0),(8613,1370,3,255,0,'200.67.175.250',1141356868,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:1ttkjbck]I found th problem on msn.\nIt is a bug on Outlook 2003 sp1.\nThanks.\nMarco[/quote:1ttkjbck]\n\nWhere can i download the fix ???','',0,'gA==','1ttkjbck',1,0,'',255,0,0),(8614,2005,2,74,0,'190.48.230.25',1141359189,1,0,1,1,1,1,'','','Ramon:\n\n            Una vez me paso lo mismo y lo solucione con:\n\noPrn:= TDosPrn():New(\"lstcaja.txt\") \n.......... (impresion habitual)\noPrn:EndPage()\noPrn:End()\nWAITRUN(\"command.com /c copy /b \" + \"LSTCAJA.TXT\" + \" \" + \"PRN\" , 0 )\n\n             Eso en windows 98, obviamente. Con eso evitas la demora.\n\nSaludos,','',0,'gA==','jz0yza2x',1,0,'',74,0,0),(8615,1952,3,419,0,'196.25.255.210',1141370270,1,0,1,1,1,0,'','','Good Morning All,\n\nJust a short message to say thank you to Antonio - the new March 2006 Build of FWH contains ALL of the little \'bug fixes\' and \'updates\' that I was so worried about.  Works perfectly!\n\nThanks,\n\nDale.','',0,'gA==','3ix8kva7',1,0,'',419,0,0),(8616,2016,6,131,0,'194.179.55.36',1141372328,1,0,1,1,1,0,'','Fuentes grandes','Hola:\nQuiero que mis programas tomen automaticamente la fuente de Windows y el tamaño de fuente. Con GetSysFont() puedo recuperar la fuente del sistema, pero ¿ y el tamaño ? Lo puedo hacer a ojo preguntando por LargeFonts() pero me parece una chapuza. Ahora la fuente de mi app la defino así:\n::oFont = TFont():New( GetSysFont(), 0, iif(LargeFonts(),-13,-10),, )\npero me gustaría que el tamaño de la fuente fuera la del sistema.\n\nLuego está el tema de los controles pintados a mano que tienen fuente propia, como los TTabs. ¿ Alguien sabe cuales son todos los controles que definen su propia fuente ? \n\nSaludos,\nJosé Luis','',0,'gA==','f79c1uvd',1,0,'',131,0,0),(8617,2016,6,131,0,'194.179.55.36',1141372445,1,0,1,1,1,0,'','','Olvide decir que si cambias las fuentes de tu sistema por fuentes grandes, la fuente del menú de la ventana principal se cambia automáticamente a fuente grande aunque tengas defina una fuente cualquiera en tu aplicación. ¿ De donde cogen los menús la fuente ?\n\nGracias de nuevo,','',0,'gA==','gyf3vacb',1,0,'',131,0,0),(8618,2014,3,6,0,'82.57.161.17',1141374804,1,0,1,1,1,1,'','','It\'s not enough:\n\n[code:kpwa9b1z]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 LISTBOX oBrw FIELDS SIZE 100, 30\n\n    oBrw&#58;bKeyChar = &#123; || Tone&#40; 440, 1 &#41; &#125;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:kpwa9b1z]\n\nWhat was the reason why you changed bKeyChar to bKeyDown in TControl:KeyDown() method?\n\nEMG','',0,'AIA=','kpwa9b1z',1,0,'',6,0,0),(8619,1966,3,6,0,'82.57.161.17',1141374911,1,0,1,1,1,1,'','','Great! But get ready for more bug reports in this class. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','1oygbsre',1,0,'',6,0,0),(8620,1927,3,22,0,'213.82.231.129',1141376156,1,0,1,1,1,0,'','','Enrico,\nI have seen your last change to \"click\" method of button class and I think was a problem like mine. \nAfter some try I found that all works well with ::oWnd:SetFocus() instead your ::SetFocus().\nCan you confirm this?\n\nRegards\nGianni','',0,'AIA=','2ge1rvlp',1,0,'',22,0,0),(8621,992,3,51,0,'80.122.88.242',1141376349,1,0,1,1,1,0,'','','Thanks of the help from this newsgroup  the \"bill-Browser\" ist working.\n\nRegards\nOtto\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/clip1.jpg\">www.atzwanger.com/invoice/clip1.jpg</a><!-- w -->\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/invoice/invoice.zip\">www.atzwanger.com/invoice/invoice.zip</a><!-- w -->','',0,'AIA=','1ru1rny4',1,0,'',51,0,0),(8622,2016,6,2,0,'87.218.146.242',1141376679,1,0,1,1,1,1,'','','Jose Luis,\n\nPosiblemente te sirva la función GetTextMetrics() del API.\n\nLos menus no son sino un tipo especializado de ventana, por lo que podrás pedirles su fuente con WM_GETFONT y luego usar GetTextMetrics() también.','',0,'AIA=','18an9wcc',1,0,'',2,0,0),(8623,2017,7,449,0,'212.64.224.250',1141376777,1,0,1,1,1,0,'','Impresion','Hola,\n\nAlguien sabe como se puede solucionar este punto ? Via infrarojos o bluetooth ?\n\n\nSaludos.\nC.','',0,'AIA=','340gqtoo',1,0,'',449,0,0),(8624,2018,7,449,0,'212.64.224.250',1141376838,1,0,1,1,1,0,'','Transmitir fichero.','Hola,\n\nEs posible transmitir  un fichero via infrarrojo o bluetooth ?\n\n\nSaludos.\nC.','',0,'AIA=','1wwjzci9',1,0,'',449,0,0),(8625,1966,3,2,0,'87.218.146.242',1141376862,1,0,1,1,1,1,'','','Enrico,\n\nNo problem, your feedback is always welcome <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3qsigkh0',1,0,'',2,0,0),(8626,2014,3,2,0,'87.218.146.242',1141376934,1,0,1,1,1,1,'','','Enrico,\n\nBecause it had some wrong side effects','',0,'AIA=','1dtmpe1i',1,0,'',2,0,0),(8627,1927,3,6,0,'82.57.161.17',1141377227,1,0,1,1,1,1,'','','I need of a reduced and self-contained sample of the problem to anwer your question.\n\nEMG','',0,'AIA=','2yq4kpbf',1,0,'',6,0,0),(8628,2014,3,2,0,'87.218.146.242',1141377356,1,0,1,1,1,1,'','','Enrico,\n\nIn dialog.prg copy Method KeyChar() to Method KeyDown() and it gets fixed.\n\nAnyhow, we are curious to know why the ESC comes now by KeyDown() instead of KeyChar().','',0,'AIA=','g0snlama',1,0,'',2,0,0),(8629,2015,3,2,0,'87.218.146.242',1141377651,1,0,1,1,1,1,'','','Alex,\n\nIn whatsnew.txt is explained (some months ago) that to use ActiveX with xharbour these changes are required:\n\nIMPORTANT: In order to use ActiveX with xHarbour, you must do the\nfollowing: tlib.exe fivehc.lib - ole.obj\n\nIf you are using xharbour.com then:\n(Microsoft) LIB.exe /REMOVE:ole.obj fivehcm.lib\n\nThe reason of this is because fivehc.lib and fivehcm.lib work with both Harbour and xharbour.','',0,'AIA=','1wyawz7g',1,0,'',2,0,0),(8630,2014,3,6,0,'82.57.161.17',1141377661,1,0,1,1,1,1,'','','Please, can you show the exact fix?\n\nEMG','',0,'AIA=','3qdvp3lu',1,0,'',6,0,0),(8631,2014,3,2,0,'87.218.146.242',1141377822,1,0,1,1,1,1,'','','Enrico,\n[code:nvmehlgr]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TDialog\n\n   if nKey == VK_ESCAPE\n      if &#58;&#58;oWnd == nil\n         &#58;&#58;End&#40;&#41;\n      else\n         if &#58;&#58;oWnd&#58;ChildLevel&#40; TMdiChild&#40;&#41; &#41; != 0\n            &#58;&#58;End&#40;&#41;\n         else\n            if &#58;&#58;oWnd&#58;ChildLevel&#40; TDialog&#40;&#41; &#41; != 0\n               &#58;&#58;End&#40;&#41;\n            #ifdef __HARBOUR__\n            elseif Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot; // To avoid ESC being ignored\n               &#58;&#58;End&#40;&#41;\n            #endif\n            else\n               return Super&#58;KeyDown&#40; nKey, nFlags &#41;\n            endif\n         endif\n      endif\n   else\n      return Super&#58;KeyDown&#40; nKey, nFlags &#41;\n   endif\n\nreturn nil\n[/code:nvmehlgr]','',0,'AIA=','nvmehlgr',1,0,'',2,0,0),(8632,1952,3,2,0,'87.218.146.242',1141377884,1,0,1,1,1,1,'','','Dale,\n\nglad to know its ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2sb06x4a',1,0,'',2,0,0),(8633,863,3,2,0,'87.218.146.242',1141378202,1,0,1,1,1,1,'','','Mauricio,\n\nPlease email me XHB.DLL as a zip file','',0,'AIA=','cnvpd9hf',1,0,'',2,0,0),(8634,992,3,2,0,'87.218.146.242',1141378319,1,0,1,1,1,1,'','','Otto,\n\nglad to know you got it working <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','18y3hurf',1,0,'',2,0,0),(8635,2017,7,2,0,'87.218.146.242',1141378498,1,0,1,1,1,1,'','','Carles,\n\nDe momento tenemos clientes usando impresoras con bluetooth. Se trata de usar los COMx asociados al bluetooth.\n\nCon los infrarojos hay tres modalidades. Enviame un email y te recomiendo un buen libro que lo explica bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2em5z2f2',1,0,'',2,0,0),(8636,2018,7,2,0,'87.218.146.242',1141378556,1,0,1,1,1,1,'','','Carles,\n\nSí, es manejar un puerto COM. En los infrarojos existe una modalidad de usarlos como un socket también.','',0,'AIA=','3eqt9ie4',1,0,'',2,0,0),(8637,1978,2,2,0,'87.218.146.242',1141378655,1,0,1,1,1,1,'','','Parece que no has puesto el MAP completo','',0,'AIA=','12dho2u2',1,0,'',2,0,0),(8638,2014,3,6,0,'82.57.161.17',1141378960,1,0,1,1,1,1,'','','It seems to work, thank you. Do I have to leave KeyChar() method in place or do I have to remove it?\n\nEMG','',0,'AIA=','4y0k1745',1,0,'',6,0,0),(8639,2017,7,456,0,'62.43.32.209',1141379320,1,0,1,1,1,1,'','','Hola Carles:\n   yo descartaria infrarojos, las prestaciones bluetooth son mucho mejores. Para programar, simplemente manejar el com, y para tus clientes es mucho mas comodo, con infrarojos tienen que estar los dos puertos frente a frente sin nada por medio, y a poca distancia.','',0,'AIA=','y9o2ynd2',1,0,'',456,0,0),(8640,2014,3,6,0,'82.57.161.17',1141379848,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2sl7430y]Enrico,\n\nThis fix looks as the right one in Class TMultiGet:\n[code:2sl7430y]\n   if nKey == VK_ESCAPE  // Windows API already sends it to dialogs!!!\n      if &#58;&#58;oWnd&#58;ChildLevel&#40; TDialog&#40;&#41; &#41; != 0 &#46;and&#46; &#58;&#58;oWnd&#58;lModal\n         return Super&#58;KeyChar&#40; nKey, nFlags &#41; // nil\n      endif\n      &#46;&#46;&#46;\n[/code:2sl7430y][/quote:2sl7430y]\n\nThis is no more needed.\n\nEMG','',0,'gIA=','2sl7430y',1,0,'',6,0,0),(8641,2017,7,449,0,'212.64.224.250',1141380088,1,0,1,1,1,0,'','','Antonio, Biel\n\nTeneis algun ejemplo funcional de envio via bluetooth ?\n\nSaludos.\nC.','',0,'gIA=','2cmbpv1c',1,0,'',449,0,0),(8642,1927,3,22,0,'213.82.231.129',1141380454,1,0,1,1,1,0,'','','Sample is in \"previous\" page of this topic.\n\nCiao\nGianni','',0,'gIA=','1zdqkmv3',1,0,'',22,0,0),(8643,1978,2,275,0,'200.68.211.83',1141381681,1,0,1,1,1,0,'','','Ahi Va\nFIVEWIN provocó un error de protección general\nen el módulo QUIQUE.DXE de 000f:00001d34.\nRegistros:\nEAX=59dfae12 CS=1a97 EIP=00001d34 EFLGS=00000202\nEBX=00010004 SS=59bf ESP=0000935e EBP=00009376\nECX=00000001 DS=59bf ESI=0000ae1e FS=0000\nEDX=0000578f ES=578f EDI=00002400 GS=0000\nBytes en CS:EIP:\n,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x ,02x \nVolcado de pila:\n,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x ,08x \n\n\n FiveWin\n\n Start     Length     Name                   Class                  Group\n 0001:0000 0BB31H     $$$KRNLDR              CODE                   BLIKRNLDR\n 0002:0000 00900H     MAIN                   CODE \n 0002:0900 00150H     FINALIZAR              CODE \n 0002:0A50 0016EH     FINALIZAR              CODE \n 0002:0BBE 0016EH     BACKUP                 CODE \n 0002:0D2C 00C76H     MENU                   CODE \n 0002:19A2 00317H     MODULOS                CODE \n 0002:1CBA 00062H     NOANDA                 CODE \n 0002:1D1C 0053CH     TAPPLICATI             CODE \n 0002:2258 0018DH     INI                    CODE \n 0002:23E6 000E5H     CARGAR                 CODE \n 0002:24CC 00C66H     CHEKDBF                CODE \n 0002:3132 00297H     INDEX                  CODE \n 0002:33CA 00140H     VACIAR                 CODE \n 0002:350A 000D9H     REGISTRO               CODE \n 0002:35E4 00E4AH     INDEXAR                CODE \n 0002:442E 00144H     DBFINDEX               CODE \n 0002:4572 00323H     CARGARTAB              CODE \n 0002:4896 00055H     PREINDEX               CODE \n 0002:48EC 00044H     POSTINDEX              CODE \n 0002:4930 00024H     STATICS$               CODE \n 0002:4954 00026H     STATICS$               CODE \n 0002:497A 00026H     STATICS$               CODE \n 0002:49A0 0002FH     STATICS$               CODE \n 0002:49D0 00020H     STATICS$               CODE \n 0002:49F0 00020H     STATICS$               CODE \n 0002:4A10 0003CH     STATICS$               CODE \n 0002:4A4C 0001EH     STATICS$               CODE \n 0002:4A6A 0002AH     STATICS$               CODE \n 0002:4A94 00024H     STATICS$               CODE \n 0002:4AB8 00026H     STATICS$               CODE \n 0002:4ADE 00026H     STATICS$               CODE \n 0002:4B04 00024H     STATICS$               CODE \n 0002:4B28 00026H     STATICS$               CODE \n 0002:4B4E 00026H     STATICS$               CODE \n 0002:4B74 0001EH     STATICS$               CODE \n 0002:4B92 0001EH     STATICS$               CODE \n 0002:4BB0 00024H     STATICS$               CODE \n 0002:4BD4 0001EH     STATICS$               CODE \n 0002:4BF2 0001EH     STATICS$               CODE \n 0002:4C10 00022H     STATICS$               CODE \n 0002:4C32 0002CH     STATICS$               CODE \n 0002:4C5E 0001EH     STATICS$               CODE \n 0002:4C7C 0001EH     STATICS$               CODE \n 0002:4C9A 00024H     STATICS$               CODE \n 0002:4CBE 00024H     STATICS$               CODE \n 0002:4CE2 0001EH     STATICS$               CODE \n 0002:4D00 0001EH     STATICS$               CODE \n 0002:4D1E 0001EH     STATICS$               CODE \n 0002:4D3C 0001EH     STATICS$               CODE \n 0002:4D5A 00024H     STATICS$               CODE \n 0002:4D7E 0001EH     STATICS$               CODE \n 0002:4D9C 0001EH     STATICS$               CODE \n 0002:4DBA 0001EH     STATICS$               CODE \n 0002:4DD8 00020H     STATICS$               CODE \n 0002:4DF8 0001EH     STATICS$               CODE \n 0002:4E16 00026H     STATICS$               CODE \n 0002:4E3C 00024H     STATICS$               CODE \n 0002:4E60 0001EH     STATICS$               CODE \n 0002:4E7E 0001EH     STATICS$               CODE \n 0002:4E9C 0001EH     STATICS$               CODE \n 0002:4EBA 0001EH     STATICS$               CODE \n 0002:4ED8 0001EH     STATICS$               CODE \n 0002:4EF6 0001EH     STATICS$               CODE \n 0002:4F14 0001EH     STATICS$               CODE \n 0002:4F32 0002AH     STATICS$               CODE \n 0002:4F5C 0001EH     STATICS$               CODE \n 0002:4F7A 0001EH     STATICS$               CODE \n 0002:4F98 0001EH     STATICS$               CODE \n 0002:4FB6 0001EH     STATICS$               CODE \n 0002:4FD4 00026H     STATICS$               CODE \n 0002:4FFA 0001EH     STATICS$               CODE \n 0002:5018 0001EH     STATICS$               CODE \n 0002:5036 0001EH     STATICS$               CODE \n 0002:5054 0001EH     STATICS$               CODE \n 0002:5072 0001EH     STATICS$               CODE \n 0002:5090 0001EH     STATICS$               CODE \n 0002:50AE 0001EH     STATICS$               CODE \n 0002:50CC 00020H     STATICS$               CODE \n 0002:50EC 00020H     STATICS$               CODE \n 0002:510C 0001EH     STATICS$               CODE \n 0002:512A 0001EH     STATICS$               CODE \n 0002:5148 0001EH     STATICS$               CODE \n 0002:5166 0001EH     STATICS$               CODE \n 0002:5184 0001EH     STATICS$               CODE \n 0002:51A2 00024H     STATICS$               CODE \n 0002:51C6 0001EH     STATICS$               CODE \n 0002:51E4 0001EH     STATICS$               CODE \n 0002:5202 0001EH     STATICS$               CODE \n 0002:5220 0001EH     STATICS$               CODE \n 0002:523E 00020H     STATICS$               CODE \n 0002:525E 0002AH     STATICS$               CODE \n 0002:5288 00044H     STATICS$               CODE \n 0002:52CC 0001EH     STATICS$               CODE \n 0002:52EA 0001EH     STATICS$               CODE \n 0002:5308 0001EH     STATICS$               CODE \n 0002:5326 00030H     STATICS$               CODE \n 0002:5356 0001EH     STATICS$               CODE \n 0002:5374 0003AH     STATICS$               CODE \n 0002:53AE 0001EH     STATICS$               CODE \n 0002:53CC 00117H     STATICS$               CODE \n 0002:54E4 00024H     STATICS$               CODE \n 0002:5508 00035H     STATICS$               CODE \n 0002:553E 00022H     STATICS$               CODE \n 0002:5560 0002DH     STATICS$               CODE \n 0002:558E 0001EH     STATICS$               CODE \n 0002:55AC 0002CH     STATICS$               CODE \n 0002:55D8 00993H     ABM_CLI                CODE \n 0002:5F6C 006FCH     EDITARCLI              CODE \n 0002:6668 00160H     BORRARCLI              CODE \n 0002:67C8 004A4H     SELECCLI               CODE \n 0002:6C6C 002F0H     TCLIENTES              CODE \n 0002:6F5C 00061H     NEW                    CODE \n 0002:6FBE 0044DH     NEW                    CODE \n 0002:740C 00A9EH     NEW                    CODE \n 0002:7EAA 0012CH     NEW                    CODE \n 0002:7FD6 00764H     NEW                    CODE \n 0002:873A 001B5H     NEW                    CODE \n 0002:88F0 0009FH     NEW                    CODE \n 0002:8990 0014DH     NEW                    CODE \n 0002:8ADE 00098H     NEW                    CODE \n 0002:8B76 00658H     NEW                    CODE \n 0002:91CE 004B8H     NEW                    CODE \n 0002:9686 0050DH     NEW                    CODE \n 0002:9B94 000EFH     NEW                    CODE \n 0002:9C84 002DAH     NEW                    CODE \n 0002:9F5E 0017FH     NEW                    CODE \n 0002:A0DE 000FDH     NEW                    CODE \n 0002:A1DC 00092H     NEW                    CODE \n 0002:A26E 0028EH     NEW                    CODE \n 0002:A4FC 00437H     NEW                    CODE \n 0002:A934 00354H     NEW                    CODE \n 0002:AC88 000D1H     NEW                    CODE \n 0002:AD5A 002A2H     NEW                    CODE \n 0002:AFFC 00092H     NEW                    CODE \n 0002:B08E 00141H     NEW                    CODE \n 0002:B1D0 00059H     NEW                    CODE \n 0002:B22A 00032H     NEW                    CODE \n 0002:B25C 000F1H     NEW                    CODE \n 0002:B34E 000B5H     NEW                    CODE \n 0002:B404 00093H     NEW                    CODE \n 0002:B498 0007CH     NEW                    CODE \n 0002:B514 00314H     NEW                    CODE \n 0002:B828 001BBH     NEW                    CODE \n 0002:B9E4 000A1H     NEW                    CODE \n 0002:BA86 00508H     NEW                    CODE \n 0002:BF8E 00072H     NEW                    CODE \n 0002:C000 0056EH     NEW                    CODE \n 0002:C56E 001F1H     NEW                    CODE \n 0002:C760 0030BH     NEW                    CODE \n 0002:CA6C 002F3H     NEW                    CODE \n 0002:CD60 00428H     NEW                    CODE \n 0002:D188 00242H     NEW                    CODE \n 0002:D3CA 003B2H     NEW                    CODE \n 0002:D77C 001EFH     NEW                    CODE \n 0002:D96C 001BFH     NEW                    CODE \n 0002:DB2C 002E1H     NEW                    CODE \n 0002:DE0E 00375H     NEW                    CODE \n 0002:E184 00079H     NEW                    CODE \n 0002:E1FE 004A3H     NEW                    CODE \n 0002:E6A2 00362H     NEW                    CODE \n 0002:EA04 00388H     NEW                    CODE \n 0002:ED8C 0003DH     NEW                    CODE \n 0002:EDCA 0008EH     NEW                    CODE \n 0002:EE58 0035AH     NEW                    CODE \n 0002:F1B2 0035FH     NEW                    CODE \n 0002:F512 007B8H     NEW                    CODE \n 0003:0000 003F2H     NEW                    CODE \n 0003:03F2 0050CH     NEW                    CODE \n 0003:08FE 0048AH     NEW                    CODE \n 0003:0D88 00442H     NEW                    CODE \n 0003:11CA 00613H     EDITAR                 CODE \n 0003:17DE 0009FH     ELIMINAR               CODE \n 0003:187E 0055AH     NEWBROWSE              CODE \n 0003:1DD8 00043H     ACTIVAR                CODE \n 0003:1E1C 00025H     O2A                    CODE \n 0003:1E42 00025H     XLISTAR                CODE \n 0003:1E68 00025H     FBUSCAR                CODE \n 0003:1E8E 0072EH     ABM_PRO                CODE \n 0003:25BC 00841H     EDITARPRO              CODE \n 0003:2DFE 00117H     BORRARPRO              CODE \n 0003:2F16 00475H     SELECPRO               CODE \n 0003:338C 006FDH     ABM_TAB                CODE \n 0003:3A8A 000C6H     REFRESCAR              CODE \n 0003:3B50 000D9H     REFRESCAR              CODE \n 0003:3C2A 004CAH     EDIT_TAB               CODE \n 0003:40F4 0011EH     DEL_TAB                CODE \n 0003:4212 000AFH     TABCODIGO              CODE \n 0003:42C2 00551H     SELECTAB               CODE \n 0003:4814 00CC1H     CONFIG                 CODE \n 0003:54D6 0006FH     COLOR                  CODE \n 0003:5546 000B1H     COLORGET               CODE \n 0003:55F8 0007EH     OLBXREFRES             CODE \n 0003:5676 00151H     BUSCAR                 CODE \n 0003:57C8 00104H     MOSTRARDES             CODE \n 0003:58CC 00224H     LISTAR                 CODE \n 0003:5AF0 00139H     CODIGO                 CODE \n 0003:5C2A 000A4H     UPDATEBUFF             CODE \n 0003:5CCE 00063H     NPRECIO                CODE \n 0003:5D32 0003BH     SUBCOD                 CODE \n 0003:5D6E 00049H     FILENAME               CODE \n 0003:5DB8 00066H     FORMAPAGO              CODE \n 0003:5E1E 0016BH     SETOLBX                CODE \n 0003:5F8A 0014FH     VAL_NKEY               CODE \n 0003:60DA 00056H     MSGDBG                 CODE \n 0003:6130 003CCH     XMSGBOX                CODE \n 0003:64FC 00EFEH     TPRINTER               CODE \n 0003:73FA 00130H     END                    CODE \n 0003:752A 001D9H     END                    CODE \n 0003:7704 0002CH     END                    CODE \n 0003:7730 000EBH     END                    CODE \n 0003:781C 00050H     END                    CODE \n 0003:786C 00073H     END                    CODE \n 0003:78E0 00042H     END                    CODE \n 0003:7922 0006CH     END                    CODE \n 0003:798E 000E0H     END                    CODE \n 0003:7A6E 000CFH     END                    CODE \n 0003:7B3E 00077H     END                    CODE \n 0003:7BB6 000A8H     END                    CODE \n 0003:7C5E 00184H     END                    CODE \n 0003:7DE2 00156H     END                    CODE \n 0003:7F38 00109H     END                    CODE \n 0003:8042 000EFH     REBUILD                CODE \n 0003:8132 00147H     _STARTPAGE             CODE \n 0003:827A 001DDH     _ENDPAGE               CODE \n 0003:8458 00258H     SAY                    CODE \n 0003:86B0 00124H     SAY                    CODE \n 0003:87D4 0022DH     SAY                    CODE \n 0003:8A02 0011AH     SAY                    CODE \n 0003:8B1C 00141H     SAY                    CODE \n 0003:8C5E 0013DH     SAYBITMAP              CODE \n 0003:8D9C 0015AH     SAYBITMAP              CODE \n 0003:8EF6 000A3H     SAYBITMAP              CODE \n 0003:8F9A 000F8H     SAYIMAGE               CODE \n 0003:9092 001B5H     SAYIMAGE               CODE \n 0003:9248 00065H     _FILLRECT              CODE \n 0003:92AE 00091H     CMTR2PIX               CODE \n 0003:9340 00109H     CMRECT2PIX             CODE \n 0003:944A 000A1H     INCH2PIX               CODE \n 0003:94EC 00090H     GETPHYSIZE             CODE \n 0003:957C 0009AH     SETFONT                CODE \n 0003:9616 000B8H     SETFONT                CODE \n 0003:96CE 0008FH     SETFONT                CODE \n 0003:975E 000B8H     CHARSAY                CODE \n 0003:9816 0005CH     CHARWIDTH              CODE \n 0003:9872 00059H     CHARHEIGHT             CODE \n 0003:98CC 0017AH     IMPORTWMF              CODE \n 0003:9A46 0005CH     IMPORTRAW              CODE \n 0003:9AA2 00089H     CAJAROUND              CODE \n 0003:9B2C 000B9H     CAJAROUND              CODE \n 0003:9BE6 000AAH     LINEA                  CODE \n 0003:9C90 000BFH     LINEA                  CODE \n 0003:9D50 001A7H     PRINTBEGIN             CODE \n 0003:9EF8 0002FH     PAGEBEGIN              CODE \n 0003:9F28 0002FH     PAGEEND                CODE \n 0003:9F58 00058H     PRINTEND               CODE \n 0003:9FB0 010E5H     TREPORT                CODE \n 0003:B096 00140H     MARGIN                 CODE \n 0003:B1D6 00166H     BOX                    CODE \n 0003:B33C 001E2H     BOX                    CODE \n 0003:B51E 00055H     BOX                    CODE \n 0003:B574 00166H     LINE                   CODE \n 0003:B6DA 00064H     LINE                   CODE \n 0003:B73E 00196H     SHADOW                 CODE \n 0003:B8D4 00117H     SHADOW                 CODE \n 0003:B9EC 00318H     GRID                   CODE \n 0003:BD04 0028BH     SEPARATOR              CODE \n 0003:BF90 00079H     SEPARATOR              CODE \n 0003:C00A 000F8H     SEPARATOR              CODE \n 0003:C102 00080H     SETPENCOLO             CODE \n 0003:C182 00764H     ACTIVATE               CODE \n 0003:C8E6 0037AH     ACTIVATE               CODE \n 0003:CC60 00071H     ACTIVATE               CODE \n 0003:CCD2 00050H     ACTIVATE               CODE \n 0003:CD22 0005DH     ACTIVATE               CODE \n 0003:CD80 00113H     ACTIVATE               CODE \n 0003:CE94 00396H     ACTIVATE               CODE \n 0003:D22A 00056H     ACTIVATE               CODE \n 0003:D280 00308H     ACTIVATE               CODE \n 0003:D588 004D6H     PLAY                   CODE \n 0003:DA5E 00BE9H     STABILIZE              CODE \n 0003:E648 0026FH     STABILIZE              CODE \n 0003:E8B8 0019FH     STABILIZE              CODE \n 0003:EA58 0027EH     STABILIZE              CODE \n 0003:ECD6 00053H     INIT                   CODE \n 0003:ED2A 00207H     INIT                   CODE \n 0003:EF32 000B4H     SKIP                   CODE \n 0003:EFE6 00069H     SKIP                   CODE \n 0003:F050 000A0H     SKIP                   CODE \n 0003:F0F0 000E9H     STARTPAGE              CODE \n 0003:F1DA 0014CH     ENDPAGE                CODE \n 0003:F326 000EEH     ENDPAGE                CODE \n 0003:F414 00113H     STARTLINE              CODE \n 0003:F528 000CCH     ENDLINE                CODE \n 0003:F5F4 00124H     STARTGROUP             CODE \n 0003:F718 00211H     ENDGROUP               CODE \n 0003:F92A 00283H     PAGETOTAL              CODE \n 0003:FBAE 0016AH     COLTITLE               CODE \n 0004:0000 008ECH     TOTALLINE              CODE \n 0004:08EC 00311H     REPCLI                 CODE \n 0004:0BFE 00313H     REPPRO                 CODE \n 0004:0F12 00360H     REPTAB                 CODE \n 0004:1272 00364H     REPART                 CODE \n 0004:15D6 00430H     REPPRE                 CODE \n 0004:1A06 00423H     REPSTOCK               CODE \n 0004:1E2A 0018EH     SETEOS                 CODE \n 0004:1FB8 00120H     SETEOS2                CODE \n 0004:20D8 00059H     EMPRESA                CODE \n 0004:2132 0048BH     PRNBOL                 CODE \n 0004:25BE 0022AH     TRLINE                 CODE \n 0004:27E8 000E1H     ADD                    CODE \n 0004:28CA 000FCH     ADD                    CODE \n 0004:29C6 0008FH     ADD                    CODE \n 0004:2A56 0009EH     ADD                    CODE \n 0004:2AF4 002FCH     ADD                    CODE \n 0004:2DF0 0009BH     ADD                    CODE \n 0004:2E8C 000D5H     ADD                    CODE \n 0004:2F62 0006AH     ADD                    CODE \n 0004:2FCC 001B5H     INS                    CODE \n 0004:3182 0017CH     DEL                    CODE \n 0004:32FE 000A9H     DEL                    CODE \n 0004:33A8 0006EH     DEL                    CODE \n 0004:3416 0007CH     DEL                    CODE \n 0004:3492 000ADH     DEL                    CODE \n 0004:3540 0021BH     DEL                    CODE \n 0004:375C 000AAH     DEL                    CODE \n 0004:3806 00670H     ABM_ART                CODE \n 0004:3E76 00190H     ACTUART                CODE \n 0004:4006 00B05H     EDITARART              CODE \n 0004:4B0C 00191H     BORRARART              CODE \n 0004:4C9E 00161H     COPIAR                 CODE \n 0004:4E00 006B0H     GENART                 CODE \n 0004:54B0 00862H     OBWART                 CODE \n 0004:5D12 00247H     SELEC_ART              CODE \n 0004:5F5A 00639H     GANANCIA               CODE \n 0004:6594 00175H     CALCULAR               CODE \n 0004:670A 004BEH     CAMDEV                 CODE \n 0004:6BC8 005A7H     ACTUALIZAR             CODE \n 0004:7170 0064CH     CAMBIO                 CODE \n 0004:77BC 00435H     DEVOLUCION             CODE \n 0004:7BF2 0019CH     VERFACTURA             CODE \n 0004:7D8E 001ABH     VERDETALLE             CODE \n 0004:7F3A 00076H     FILTROFAC              CODE \n 0004:7FB0 00067H     FILTRODET              CODE \n 0004:8018 00763H     PAGO                   CODE \n 0004:877C 00793H     PAGOFAC                CODE \n 0004:8F10 00671H     EFECTUARPA             CODE \n 0004:9582 00245H     BORRARPAGO             CODE \n 0004:97C8 000B2H     FILTRO                 CODE \n 0004:987A 00850H     TACCESO                CODE \n 0004:A0CA 00294H     LOGIN                  CODE \n 0004:A35E 00425H     CHECKPASSW             CODE \n 0004:A784 0094AH     ADDUSER                CODE \n 0004:B0CE 006DEH     ADDGROUP               CODE \n 0004:B7AC 001EDH     ADDGROUP               CODE \n 0004:B99A 004ABH     DELUSER                CODE \n 0004:BE46 00503H     DELGROUP               CODE \n 0004:C34A 001EBH     DELGROUP               CODE \n 0004:C536 004C1H     SETPERM                CODE \n 0004:C9F8 005B5H     GETPERM                CODE \n 0004:CFAE 00059H     SETACCESS              CODE \n 0004:D008 000A7H     GETACCESS              CODE \n 0004:D0B0 0027BH     SETPASSWOR             CODE \n 0004:D32C 00742H     CHANGEPASS             CODE \n 0004:DA6E 004C9H     CHANGENAME             CODE \n 0004:DF38 005A1H     CHANGEGROU             CODE \n 0004:E4DA 00574H     MAKESUPERV             CODE \n 0004:EA4E 0058BH     CLEARSUPER             CODE \n 0005:0000 03B4FH     GESTPER                CODE \n 0005:3B50 00294H     OPENPER                CODE \n 0005:3DE4 002B5H     OPENMOD                CODE \n 0005:409A 00929H     OPENUSU                CODE \n 0005:49C4 00464H     OPENSUC                CODE \n 0005:4E28 00492H     ADDMODULE              CODE \n 0005:52BA 003B6H     DELMODULE              CODE \n 0005:5670 0003BH     ADDACCESS              CODE \n 0005:56AC 00037H     DELACCESS              CODE \n 0005:56E4 00375H     CLEANEVENT             CODE \n 0005:5A5A 002FFH     REGEVENT               CODE \n 0005:5D5A 0003BH     CLOSE                  CODE \n 0005:5D96 000ECH     CLOSE                  CODE \n 0005:5E82 00089H     CLOSE                  CODE \n 0005:5F0C 00163H     DELPERM                CODE \n 0005:6070 0010DH     CHECKNICK              CODE \n 0005:617E 0010FH     CHECKGROUP             CODE \n 0005:628E 0015EH     COLORBROWS             CODE \n 0005:63EC 0004AH     NEWALIAS               CODE \n 0005:6436 00055H     NEWALIAS               CODE \n 0005:648C 00208H     MONITOR                CODE \n 0005:6694 005D2H     COMPRA                 CODE \n 0005:6C66 00249H     TCOMPRA                CODE \n 0005:6EB0 002C8H     VENTA                  CODE \n 0005:7178 00514H     LISTDOC                CODE \n 0005:768C 01193H     EDITDOC                CODE \n 0005:8820 000ABH     INIEDITFAC             CODE \n 0005:88CC 0023FH     NUEVODOC               CODE \n 0005:8B0C 004DEH     EDITACELDA             CODE \n 0005:8FEA 000C0H     SEEKITEM               CODE \n 0005:90AA 0005EH     DELREG                 CODE \n 0005:9108 000EAH     SUMA                   CODE \n 0005:91F2 0006BH     NUEVOITEM              CODE \n 0005:925E 00345H     GRABARDOC              CODE \n 0005:95A4 000CAH     FILTRODOC              CODE \n 0005:966E 008E6H     VERDOC                 CODE \n 0005:9F54 0025DH     GRABARENCA             CODE \n 0005:A1B2 0026CH     GRABARDET              CODE \n 0005:A41E 000E1H     CALCULAORD             CODE \n 0005:A500 00149H     ABRIRDOC               CODE \n 0005:A64A 0072BH     MSGDATE                CODE \n 0005:AD76 00440H     MOVECALEND             CODE \n 0005:B1B6 00125H     DDATETOSTR             CODE \n 0005:B2DC 002A5H     TTOD                   CODE \n 0005:B582 0038CH     TSEEKINC               CODE \n 0005:B90E 0052EH     SEEK                   CODE \n 0005:BE3C 001D2H     SEEK                   CODE \n 0005:C00E 00194H     SEEK                   CODE \n 0005:C1A2 000FAH     CHANGEORDE             CODE \n 0005:C29C 000BEH     UPBUFFMSGB             CODE \n 0005:C35A 00F15H     LISTADO                CODE \n 0005:D270 00376H     TUTILPRINT             CODE \n 0005:D5E6 0008EH     DEFAULT                CODE \n 0005:D674 001B1H     DEFAULT                CODE \n 0005:D826 005E4H     DEFAULT                CODE \n 0005:DE0A 0017EH     DEFAULT                CODE \n 0005:DF88 00089H     DEFAULT                CODE \n 0005:E012 00159H     DEFAULT                CODE \n 0005:E16C 0003AH     DEFAULT                CODE \n 0005:E1A6 00060H     DEFAULT                CODE \n 0005:E206 00094H     DEFAULT                CODE \n 0005:E29A 00194H     DEFAULT                CODE \n 0005:E42E 001D7H     DEFAULT                CODE \n 0005:E606 000DFH     DEFAULT                CODE \n 0005:E6E6 0003CH     DEFAULT                CODE \n 0005:E722 00051H     DEFAULT                CODE \n 0005:E774 00060H     DEFAULT                CODE \n 0005:E7D4 000FAH     SEL                    CODE \n 0005:E8CE 000E0H     TEXT                   CODE \n 0005:E9AE 00348H     BOXMSG                 CODE \n 0005:ECF6 00153H     POLY                   CODE \n 0005:EE4A 00150H     CIRCLE                 CODE \n 0005:EF9A 00061H     CIRCLE                 CODE \n 0005:EFFC 0015FH     _ELLIPSE               CODE \n 0005:F15C 00170H     _ARCO                  CODE \n 0005:F2CC 0010EH     ROUNDRECT              CODE \n 0005:F3DA 0016CH     PRINTIMAGE             CODE \n 0005:F546 00371H     TIMPRIME               CODE \n 0005:F8B8 00086H     COMPLINEA              CODE \n 0005:F93E 00127H     PAGECOUNT              CODE \n 0005:FA66 00054H     __EJECT                CODE \n 0005:FABA 000A3H     _DATETIME              CODE \n 0005:FB5E 0018DH     _MESFECHA_             CODE \n 0005:FCEC 0003FH     ERRORSYS               CODE \n 0005:FD2C 00023H     ERRORLINK              CODE \n 0006:0000 01366H     ERRORDIALO             CODE \n 0006:1366 0002AH     DOBREAK                CODE \n 0006:1390 00162H     ERRORMESSA             CODE \n 0006:14F2 000C8H     CGETINFO               CODE \n 0006:15BA 001C0H     VERANCHO               CODE \n 0006:177A 00097H     OSCOPE                 CODE \n 0006:1812 00247H     ABRIRDBF               CODE \n 0006:1A5A 0007FH     OFILTRO                CODE \n 0006:1ADA 00079H     ERRORHANDL             CODE \n 0006:1B54 000F0H     ABRIR                  CODE \n 0006:1C44 0011AH     CERRARDBF              CODE \n 0006:1D5E 000C1H     CFECHA                 CODE \n 0006:1E20 00190H     FDIAS                  CODE \n 0006:1FB0 00032H     _SUBSTR                CODE \n 0006:1FE2 00077H     STOD                   CODE \n 0006:205A 00157H     VENTANA                CODE \n 0006:21B2 000B0H     CTRLOWNDH              CODE \n 0006:2262 00124H     PRUEBA                 CODE \n 0006:2386 0006CH     PRU                    CODE \n 0006:23F2 0037EH     TBTNGET                CODE \n 0006:2770 00162H     REDEFINE               CODE \n 0006:28D2 00428H     REDEFINE               CODE \n 0006:2CFA 000DBH     REDEFINE               CODE \n 0006:2DD6 000B3H     REDEFINE               CODE \n 0006:2E8A 001C3H     REDEFINE               CODE \n 0006:304E 001F1H     REDEFINE               CODE \n 0006:3240 000FEH     REDEFINE               CODE \n 0006:333E 003C6H     REDEFINE               CODE \n 0006:3704 000A6H     REDEFINE               CODE \n 0006:37AA 001FDH     REDEFINE               CODE \n 0006:39A8 00124H     REDEFINE               CODE \n 0006:3ACC 00169H     REDEFINE               CODE \n 0006:3C36 00183H     REDEFINE               CODE \n 0006:3DBA 000BAH     REDEFINE               CODE \n 0006:3E74 00272H     REDEFINE               CODE \n 0006:40E6 001C1H     REDEFINE               CODE \n 0006:42A8 00213H     REDEFINE               CODE \n 0006:44BC 001D3H     REDEFINE               CODE \n 0006:4690 0006AH     REDEFINE               CODE \n 0006:46FA 00205H     REDEFINE               CODE \n 0006:4900 00157H     REDEFINE               CODE \n 0006:4A58 000ECH     SETINICLR              CODE \n 0006:4B44 00067H     REMOVECLR              CODE \n 0006:4BAC 00099H     MOVE                   CODE \n 0006:4C46 000BFH     MOVE                   CODE \n 0006:4D06 00077H     MOVE                   CODE \n 0006:4D7E 0004EH     MOVE                   CODE \n 0006:4DCC 00051H     MOVE                   CODE \n 0006:4E1E 00180H     CALCDIMS               CODE \n 0006:4F9E 00115H     TBTNDOWN               CODE \n 0006:50B4 00056H     MOUSEMOVE              CODE \n 0006:510A 00133H     MOUSEMOVE              CODE \n 0006:523E 00050H     MOUSEMOVE              CODE \n 0006:528E 00050H     MOUSEMOVE              CODE \n 0006:52DE 000D3H     MOUSEMOVE              CODE \n 0006:53B2 00050H     MOUSEMOVE              CODE \n 0006:5402 000B1H     MOUSEMOVE              CODE \n 0006:54B4 00050H     MOUSEMOVE              CODE \n 0006:5504 0017DH     MOUSEMOVE              CODE \n 0006:5682 001FEH     MOUSEMOVE              CODE \n 0006:5880 0009DH     MOUSEMOVE              CODE \n 0006:591E 000C3H     MOUSEMOVE              CODE \n 0006:59E2 000C4H     MOUSEMOVE              CODE \n 0006:5AA6 0006AH     CLICK                  CODE \n 0006:5B10 000B5H     CLICK                  CODE \n 0006:5BC6 000AAH     CLICK                  CODE \n 0006:5C70 00177H     PAINT                  CODE \n 0006:5DE8 00360H     PAINT                  CODE \n 0006:6148 000D3H     PAINT                  CODE \n 0006:621C 000CFH     PAINT                  CODE \n 0006:62EC 00193H     PAINT                  CODE \n 0006:6480 00182H     PAINT                  CODE \n 0006:6602 00098H     PAINT                  CODE \n 0006:669A 00492H     PAINT                  CODE \n 0006:6B2C 00321H     PAINT                  CODE \n 0006:6E4E 0018AH     PAINT                  CODE \n 0006:6FD8 00102H     PAINT                  CODE \n 0006:70DA 0003FH     GETBTN_TEXT            CODE \n 0006:711A 01AB1H     TWBROWSE               CODE \n 0006:8BCC 000B2H     NROWCOUNT              CODE \n 0006:8C7E 0030FH     DRAWSELECT             CODE \n 0006:8F8E 00283H     DRAWICONS              CODE \n 0006:9212 00065H     RESIZE                 CODE \n 0006:9278 00121H     RESIZE                 CODE \n 0006:939A 00150H     RESIZE                 CODE \n 0006:94EA 00050H     RESIZE                 CODE \n 0006:953A 0014AH     RESIZE                 CODE \n 0006:9684 00146H     SETARRAY               CODE \n 0006:97CA 00223H     SETTREE                CODE \n 0006:99EE 001C0H     GOUP                   CODE \n 0006:9BAE 001BCH     GODOWN                 CODE \n 0006:9D6A 001ADH     GODOWN                 CODE \n 0006:9F18 003F0H     GOLEFT                 CODE \n 0006:A308 00180H     GOLEFT                 CODE \n 0006:A488 00464H     GORIGHT                CODE \n 0006:A8EC 00180H     GORIGHT                CODE \n 0006:AA6C 00143H     GOTOP                  CODE \n 0006:ABB0 0016FH     GOTOP                  CODE \n 0006:AD20 00263H     GOBOTTOM               CODE \n 0006:AF84 000D4H     LDBLCLICK              CODE \n 0006:B058 0009CH     LDBLCLICK              CODE \n 0006:B0F4 00050H     LDBLCLICK              CODE \n 0006:B144 00453H     LBUTTONDOW             CODE \n 0006:B598 00084H     LBUTTONDOW             CODE \n 0006:B61C 000EDH     LBUTTONDOW             CODE \n 0006:B70A 000E5H     LBUTTONDOW             CODE \n 0006:B7F0 00109H     LBUTTONDOW             CODE \n 0006:B8FA 00090H     LBUTTONDOW             CODE \n 0006:B98A 00050H     LBUTTONDOW             CODE \n 0006:B9DA 00056H     LBUTTONDOW             CODE \n 0006:BA30 0010CH     LBUTTONUP              CODE \n 0006:BB3C 00074H     LBUTTONUP              CODE \n 0006:BBB0 00241H     LBUTTONUP              CODE \n 0006:BDF2 00457H     LBUTTONUP              CODE \n 0006:C24A 0015EH     LBUTTONUP              CODE \n 0006:C3A8 00077H     LBUTTONUP              CODE \n 0006:C420 00074H     LBUTTONUP              CODE \n 0006:C494 00376H     KEYDOWN                CODE \n 0006:C80A 000D5H     KEYDOWN                CODE \n 0006:C8E0 0009DH     KEYDOWN                CODE \n 0006:C97E 000DBH     KEYDOWN                CODE \n 0006:CA5A 000D8H     KEYDOWN                CODE \n 0006:CB32 000B4H     KEYDOWN                CODE \n 0006:CBE6 000B0H     KEYDOWN                CODE \n 0006:CC96 0054BH     KEYDOWN                CODE \n 0006:D1E2 00233H     KEYDOWN                CODE \n 0006:D416 000F9H     KEYDOWN                CODE \n 0006:D510 0014FH     DBFSEEK                CODE \n 0006:D660 001C3H     KEYCHAR                CODE \n 0006:D824 0004FH     KEYCHAR                CODE \n 0006:D874 000CAH     KEYCHAR                CODE \n 0006:D93E 00060H     KEYCHAR                CODE \n 0006:D99E 00150H     KEYCHAR                CODE \n 0006:DAEE 0035FH     KEYCHAR                CODE \n 0006:DE4E 000C8H     KEYCHAR                CODE \n 0006:DF16 00150H     KEYCHAR                CODE \n 0006:E066 00295H     PAGEUP                 CODE \n 0006:E2FC 000DCH     PAGEUP                 CODE \n 0006:E3D8 003B3H     PAGEDOWN               CODE \n 0006:E78C 000D5H     PAGEDOWN               CODE \n 0006:E862 0036BH     VSCROLL                CODE \n 0006:EBCE 00122H     VSCROLL                CODE \n 0006:ECF0 000E9H     VSCROLL                CODE \n 0006:EDDA 0018AH     VSCROLL                CODE \n 0006:EF64 002BDH     HSCROLL                CODE \n 0006:F222 00122H     HSCROLL                CODE \n 0006:F344 000E9H     HSCROLL                CODE \n 0006:F42E 0017CH     HSCROLL                CODE \n 0006:F5AA 00091H     BRWGOBOTTO             CODE \n 0006:F63C 001F5H     BUILDSKIP              CODE \n 0006:F832 000EFH     BRWGOTO                CODE \n 0006:F922 00137H     _RECCOUNT              CODE \n 0006:FA5A 00145H     _RECCOUNT              CODE \n 0006:FBA0 00046H     GENLOCAL               CODE \n 0006:FBE6 00039H     GENBLOCK               CODE \n 0006:FC20 00039H     GENBLOCK               CODE \n 0007:0000 004BCH     REPORT                 CODE \n 0007:04BC 00197H     UPSTABLE               CODE \n 0007:0654 00997H     SETFILTER              CODE \n 0007:0FEC 00134H     SETFILTER              CODE \n 0007:1120 001E4H     VERTLINE               CODE \n 0007:1304 000A1H     NATICON                CODE \n 0007:13A6 001CCH     DISPLAY                CODE \n 0007:1572 00041H     DISPLAY                CODE \n 0007:15B4 00041H     DISPLAY                CODE \n 0007:15F6 000B2H     GETDLGCODE             CODE \n 0007:16A8 000EEH     GETDLGCODE             CODE \n 0007:1796 0006AH     GETDLGCODE             CODE \n 0007:1800 0017EH     _AFIELDS               CODE \n 0007:197E 001B1H     SETCOLS                CODE \n 0007:1B30 00089H     SHOWSIZES              CODE \n 0007:1BBA 00105H     _DRAWICON              CODE \n 0007:1CC0 0010AH     ISCOLVISIB             CODE \n 0007:1DCA 00162H     DRAWHEADER             CODE \n 0007:1F2C 00213H     DRAWFOOTER             CODE \n 0007:2140 00076H     ISOVERHEAD             CODE \n 0007:21B6 000A4H     ISOVERFOOT             CODE \n 0007:225A 00054H     GETCOLHEAD             CODE \n 0007:22AE 00054H     GETCOLFOOT             CODE \n 0007:2302 001A0H     GOTOCOL                CODE \n 0007:24A2 000CEH     REFRESH                CODE \n 0007:2570 0011CH     REFRESH                CODE \n 0007:268C 000EFH     REFRESH                CODE \n 0007:277C 000D6H     REFRESH                CODE \n 0007:2852 00099H     REFRESH                CODE \n 0007:28EC 00076H     _ADATA                 CODE \n 0007:2962 00071H     EMPTYALIAS             CODE \n 0007:29D4 00124H     NWROW                  CODE \n 0007:2AF8 00115H     NWCOL                  CODE \n 0007:2C0E 00118H     SET3DSTYLE             CODE \n 0007:2D26 001E0H     ABRWPOSREC             CODE \n 0007:2F06 006B6H     EDITCOL                CODE \n 0007:35BC 000D9H     EDIT                   CODE \n 0007:3696 00672H     __EDIT                 CODE \n 0007:3D08 00814H     LEDITCOL               CODE \n 0007:451C 0025AH     SETTXT                 CODE \n 0007:4776 02138H     WBRWLINE_TEXT          CODE \n 0007:68AE 0036DH     LCHECKDBF              CODE \n 0007:6C1C 000D6H     COPYREC                CODE \n 0007:6CF2 000FCH     LSETBUFFER             CODE \n 0007:6DEE 00054H     NEXTVAL                CODE \n 0007:6E42 0004DH     C2BLOCK                CODE \n 0007:6E90 0005AH     DBROW                  CODE \n 0007:6EEA 0004AH     ORDLISTLEN             CODE \n 0007:6F34 00063H     GETPATH                CODE \n 0007:6F98 00079H     GETFILENAM             CODE \n 0007:7012 0005EH     GETFILENOE             CODE \n 0007:7070 0007CH     GETFILEEXT             CODE \n 0007:70EC 000BDH     GETRECORD              CODE \n 0007:71AA 000B8H     GETRECORD              CODE \n 0007:7262 000B0H     LMARKED                CODE \n 0007:7312 00037H     NOFFSET                CODE \n 0007:734A 000F5H     MEMOEXT                CODE \n 0007:7440 00077H     XAREA                  CODE \n 0007:74B8 000EFH     ATYPE                  CODE \n 0007:75A8 000F2H     DBFSERVER              CODE \n 0007:769A 00045H     DBAT                   CODE \n 0007:76E0 00032H     LDBCLASS               CODE \n 0007:7712 00027H     ADBCLASS               CODE \n 0007:773A 0004CH     NINSDBCLAS             CODE \n 0007:7786 00027H     OEMTOANSI              CODE \n 0007:77AE 0002DH     MSGINFO                CODE \n 0007:77DC 0002DH     MSGSTOP                CODE \n 0007:780A 0002FH     MSGYESNO               CODE \n 0007:783A 0002CH     CVALTOCHAR             CODE \n 0007:7866 01E21H     TDBF                   CODE \n 0007:9688 0006EH     NEWOPEN                CODE \n 0007:96F6 000D6H     USE                    CODE \n 0007:97CC 0005BH     REACTIVATE             CODE \n 0007:9828 000C9H     AUTOFIELD              CODE \n 0007:98F2 001AEH     AUTOINDEX              CODE \n 0007:9AA0 000BAH     CHECKEOFBO             CODE \n 0007:9B5A 000C5H     _GOTO                  CODE \n 0007:9C20 000A1H     _GOTOP                 CODE \n 0007:9CC2 000A1H     _GOBOTTOM              CODE \n 0007:9D64 001CBH     _SKIP                  CODE \n 0007:9F30 002B1H     SKIPPER                CODE \n 0007:A1E2 002E5H     SKIPPERLOA             CODE \n 0007:A4C8 000AEH     ADDFIELD               CODE \n 0007:A576 0018AH     APPEND                 CODE \n 0007:A700 000AAH     _DELETE                CODE \n 0007:A7AA 000CBH     _DELETE                CODE \n 0007:A876 00129H     _DELETE                CODE \n 0007:A9A0 0008AH     _FIELDPUT              CODE \n 0007:AA2A 0005CH     _RECNO                 CODE \n 0007:AA86 00077H     RECALL                 CODE \n 0007:AAFE 000A7H     CREATE                 CODE \n 0007:ABA6 00083H     CREATE                 CODE \n 0007:AC2A 0003CH     CREATE                 CODE \n 0007:AC66 00322H     CREATE                 CODE \n 0007:AF88 002F1H     CREATE                 CODE \n 0007:B27A 00322H     CREATE                 CODE \n 0007:B59C 00159H     USEAREA                CODE \n 0007:B6F6 0017AH     PACK                   CODE \n 0007:B870 00391H     HARDPACK               CODE \n 0007:BC02 00322H     _EVAL                  CODE \n 0007:BF24 0021AH     LOCATE                 CODE \n 0007:C13E 00058H     SORT                   CODE \n 0007:C196 0005BH     TOTAL                  CODE \n 0007:C1F2 002E3H     TOTAL                  CODE \n 0007:C4D6 00046H     SUM                    CODE \n 0007:C51C 000BFH     ADDRELATIO             CODE \n 0007:C5DC 000CFH     DELREL                 CODE \n 0007:C6AC 0004CH     CLEARREL               CODE \n 0007:C6F8 00088H     INFOREL                CODE \n 0007:C780 00084H     CHILDSYNC              CODE \n 0007:C804 00084H     CHILDDELET             CODE \n 0007:C888 00084H     CHILDEXEC              CODE \n 0007:C90C 000A0H     IDXBYTAG               CODE \n 0007:C9AC 00145H     IDXBYNAME              CODE \n 0007:CAF2 000D4H     IDXBYORDER             CODE \n 0007:CBC6 000ECH     ADDINDEX               CODE \n 0007:CCB2 00127H     ADDTMPINDE             CODE \n 0007:CDDA 0014BH     ADDBAG                 CODE \n 0007:CF26 002DCH     IDXACTIVAT             CODE \n 0007:D202 000C0H     IDXFCHECK              CODE \n 0007:D2C2 0009FH     IDXFDEL                CODE \n 0007:D362 001B9H     IDXDELETE              CODE \n 0007:D51C 00062H     REINDEXALL             CODE \n 0007:D57E 0012AH     SETINDEX               CODE \n 0007:D6A8 001EEH     _SETSCOPE              CODE \n 0007:D896 0005DH     CLEARSCOPE             CODE \n 0007:D8F4 00092H     CLEARSCOPE             CODE \n 0007:D986 000B3H     ADDFILTER              CODE \n 0007:DA3A 000C3H     FILTERBYNA             CODE \n 0007:DAFE 0012CH     DELFILTER              CODE \n 0007:DC2A 00065H     RECLOCK                CODE \n 0007:DC90 00123H     PROTEC                 CODE \n 0007:DDB4 00106H     AFIELD                 CODE \n 0007:DEBA 00085H     SETCALFIEL             CODE \n 0007:DF40 00082H     SETBUFFER              CODE \n 0007:DFC2 0006EH     BLANK                  CODE \n 0007:E030 0006EH     SETDEFAULT             CODE \n 0007:E09E 0005FH     QLOAD                  CODE \n 0007:E0FE 0006EH     LOAD                   CODE \n 0007:E16C 00191H     LOAD                   CODE \n 0007:E2FE 00194H     LOAD                   CODE \n 0007:E492 00196H     LOAD                   CODE \n 0007:E628 0006DH     ROLLBACK               CODE \n 0007:E696 0027AH     SAVE                   CODE \n 0007:E910 0018AH     SAVE                   CODE \n 0007:EA9A 0018DH     SAVE                   CODE \n 0007:EC28 00229H     SAVE                   CODE \n 0007:EE52 00081H     VALID                  CODE \n 0007:EED4 00089H     VALID                  CODE \n 0007:EF5E 0008AH     SETCOMMIT              CODE \n 0007:EFE8 0006AH     SETCOUNT               CODE \n 0007:F052 0021CH     SETBROWSE              CODE \n 0007:F26E 000ABH     FIELDBYNAM             CODE \n 0007:F31A 00239H     CLONE                  CODE \n 0007:F554 000C9H     GETSTATUS              CODE \n 0007:F61E 0009DH     SETSTATUS              CODE \n 0007:F6BC 0006FH     SETDELETED             CODE \n 0007:F72C 0007EH     IDXKEYNO               CODE \n 0007:F7AA 0005AH     IDXKEYGOTO             CODE \n 0007:F804 0009BH     IDXKEYCOUN             CODE \n 0007:F8A0 00150H     DESTROY                CODE \n 0007:F9F0 00059H     DESTROY                CODE \n 0007:FA4A 000DDH     DESTROY                CODE \n 0007:FB28 00093H     DESTROY                CODE \n 0007:FBBC 000ABH     DESTROY                CODE \n 0007:FC68 00075H     DESTROY                CODE \n 0007:FCDE 000AFH     DESTROY                CODE \n 0007:FD8E 0005EH     DESTROY                CODE \n 0007:FDEC 000B9H     DESTROY                CODE \n 0007:FEA6 0004AH     DESTROY                CODE \n 0008:0000 001FBH     DESTROY                CODE \n 0008:01FC 0004AH     DESTROY                CODE \n 0008:0246 00100H     SETMARKREC             CODE \n 0008:0346 0009AH     CHANGEMARK             CODE \n 0008:03E0 00082H     UNMARKALL              CODE \n 0008:0462 0009FH     GETMARKREC             CODE \n 0008:0502 003F4H     EXPORT2XML             CODE \n 0008:08F6 0005CH     FIELDTODAT             CODE \n 0008:0952 000D5H     GENDATAFIE             CODE \n 0008:0A27 000ABH     FORCE_TEXT             CODE \n 0008:0AD2 00584H     TFIELD                 CODE \n 0008:1056 00073H     ASSTRING               CODE \n 0008:10CA 001AEH     TFILTER                CODE \n 0008:1278 0008EH     SETFOCUS               CODE \n 0008:1306 000B2H     SETFOCUS               CODE \n 0008:13B8 0008FH     ISCPTOP                CODE \n 0008:1448 000ADH     ISCPBOTTOM             CODE \n 0008:14F6 0018CH     ICOUNTER               CODE \n 0008:1682 001AAH     GETIDXNONE             CODE \n 0008:182C 0054BH     TINDEX                 CODE \n 0008:1D78 0007DH     SETCOND                CODE \n 0008:1DF6 0007AH     IDXEXT                 CODE \n 0008:1E70 001F8H     SETSCOPE               CODE \n 0008:2068 00037H     SETLANG                CODE \n 0008:20A0 00512H     GETMSG                 CODE \n 0008:25B2 00315H     TRELATION              CODE \n 0008:28C8 00076H     SYNC                   CODE \n 0008:293E 000F5H     TRIGGER                CODE \n 0008:2A34 0032AH     TDBCOMBO               CODE \n 0008:2D5E 0004FH     DRAWITEM               CODE \n 0008:2DAE 0004FH     DRAWITEM               CODE \n 0008:2DFE 0004FH     DRAWITEM               CODE \n 0008:2E4E 0015FH     DRAWITEM               CODE \n 0008:2FAE 0017EH     INITIATE               CODE \n 0008:312C 0008AH     INITIATE               CODE \n 0008:31B6 0008AH     INITIATE               CODE \n 0008:3240 000A5H     INITIATE               CODE \n 0008:32E6 00154H     INITIATE               CODE \n 0008:343A 00078H     INITIATE               CODE \n 0008:34B2 001D9H     INITIATE               CODE \n 0008:368C 0009BH     INITIATE               CODE \n 0008:3728 00053H     INITIATE               CODE \n 0008:377C 00185H     INITIATE               CODE \n 0008:3902 0009FH     INITIATE               CODE \n 0008:39A2 00064H     INITIATE               CODE \n 0008:3A06 000E0H     INSERT                 CODE \n 0008:3AE6 002B2H     INSERT                 CODE \n 0008:3D98 0008FH     INSERT                 CODE \n 0008:3E28 000A3H     INSERT                 CODE \n 0008:3ECC 00078H     LISTGET                CODE \n 0008:3F44 000C0H     LOSTFOCUS              CODE \n 0008:4004 0004DH     LOSTFOCUS              CODE \n 0008:4052 000D0H     LOSTFOCUS              CODE \n 0008:4122 000C2H     LOSTFOCUS              CODE \n 0008:41E4 00124H     LOSTFOCUS              CODE \n 0008:4308 00174H     LOSTFOCUS              CODE \n 0008:447C 0006BH     LOSTFOCUS              CODE \n 0008:44E8 0007CH     LOSTFOCUS              CODE \n 0008:4564 00098H     MODIFY                 CODE \n 0008:45FC 00074H     MODIFY                 CODE \n 0008:4670 0009AH     MODIFY                 CODE \n 0008:470A 0013FH     REFILL                 CODE \n 0008:484A 00096H     SETITEMS               CODE \n 0008:48E0 0010EH     TDLGFIND               CODE \n 0008:49EE 00050H     HANDLEEVEN             CODE \n 0008:4A3E 00067H     HANDLEEVEN             CODE \n 0008:4AA6 000A3H     HANDLEEVEN             CODE \n 0008:4B4A 000FDH     HANDLEEVEN             CODE \n 0008:4C48 00036H     DLGFINDTEX             CODE \n 0008:4C7E 0007FH     GETTASKS               CODE \n 0008:4CFE 00052H     LARGEFONTS             CODE \n 0008:4D50 00066H     COLORSQTY              CODE \n 0008:4DB6 00063H     SCRRESOLUT             CODE \n 0008:4E1A 00031H     ISWIN2000              CODE \n 0008:4E4C 00068H     GETSYSFONT             CODE \n 0008:4EB4 000C0H     HELPTOPIC              CODE \n 0008:4F74 0006CH     HELPTOPIC              CODE \n 0008:4FE0 00073H     HELPINDEX              CODE \n 0008:5054 00087H     HELPSEARCH             CODE \n 0008:50DC 00075H     HELPPOPUP              CODE \n 0008:5152 0005AH     WINHELP                CODE \n 0008:51AC 00124H     SPWINHELP              CODE \n 0008:52D0 00125H     SPWINHELPC             CODE \n 0008:53F6 00240H     TICON                  CODE \n 0008:5636 00079H     SETNAME                CODE \n 0008:56B0 0007EH     SETFILE                CODE \n 0008:572E 00072H     SETFILE                CODE \n 0008:57A0 0004CH     SETFILE                CODE \n 0008:57EC 00729H     TMDIFRAME              CODE \n 0008:5F16 00060H     COMMAND                CODE \n 0008:5F76 000B1H     COMMAND                CODE \n 0008:6028 0020EH     COMMAND                CODE \n 0008:6236 00120H     COMMAND                CODE \n 0008:6356 000AFH     SETMENU                CODE \n 0008:6406 000AAH     SETMENU                CODE \n 0008:64B0 00021H     GETWNDFRAM             CODE \n 0008:64D2 0004FH     GOTFOCUS               CODE \n 0008:6522 00043H     GOTFOCUS               CODE \n 0008:6566 0008CH     GOTFOCUS               CODE \n 0008:65F2 000F1H     GOTFOCUS               CODE \n 0008:66E4 000C0H     GOTFOCUS               CODE \n 0008:67A4 0016CH     GOTFOCUS               CODE \n 0008:6910 00142H     GOTFOCUS               CODE \n 0008:6A52 0008BH     GOTFOCUS               CODE \n 0008:6ADE 0017FH     MEMSTAT                CODE \n 0008:6C5E 0015FH     NEXTMEM                CODE \n 0008:6DBE 0012FH     GBLMEMSTAT             CODE \n 0008:6EEE 00276H     TMETER                 CODE \n 0008:7164 000ECH     SET                    CODE \n 0008:7250 000C7H     SET                    CODE \n 0008:7318 00066H     SET                    CODE \n 0008:737E 00067H     SET                    CODE \n 0008:73E6 00053H     WAITSECOND             CODE \n 0008:743A 00182H     MSGRUN                 CODE \n 0008:75BC 0004CH     MSGWAIT                CODE \n 0008:7608 0003CH     STOPUNTIL              CODE \n 0008:7644 00092H     MENUBEGIN              CODE \n 0008:76D6 000BDH     MENUADDITE             CODE \n 0008:7794 000BAH     MENUEND                CODE \n 0008:784E 00037H     LASTMENU               CODE \n 0008:7886 00038H     LASTITEMPO             CODE \n 0008:78BE 00077H     RPTBEGIN               CODE \n 0008:7936 0005FH     RPTADDGROU             CODE \n 0008:7996 00074H     RPTADDCOLU             CODE \n 0008:7A0A 0009AH     RPTEND                 CODE \n 0008:7AA4 00166H     TPEN                   CODE \n 0008:7C0A 003CAH     TRADMENU               CODE \n 0008:7FD4 00072H     NOPTION                CODE \n 0008:8046 00057H     _SELECT                CODE \n 0008:809E 0008DH     _SELECT                CODE \n 0008:812C 000B3H     SETOPTION              CODE \n 0008:81E0 0015AH     SETOPTION              CODE \n 0008:833A 007E0H     TRFILE                 CODE \n 0008:8B1A 003DBH     TRGROUP                CODE \n 0008:8EF6 000E1H     HEADER                 CODE \n 0008:8FD8 000DBH     FOOTER                 CODE \n 0008:90B4 0011EH     TRECT                  CODE \n 0008:91D2 00151H     TACCTABLE              CODE \n 0008:9324 00554H     TFILE                  CODE \n 0008:9878 0004BH     NGETBYTE               CODE \n 0008:98C4 00055H     NGETWORD               CODE \n 0008:991A 00048H     CGETSTR                CODE \n 0008:9962 0003CH     PUTBYTE                CODE \n 0008:999E 00043H     PUTWORD                CODE \n 0008:99E2 000FDH     COUNT                  CODE \n 0008:9AE0 00236H     DELBYTES               CODE \n 0008:9D16 00228H     INSBYTES               CODE \n 0008:9F3E 00046H     NOEXT                  CODE \n 0008:9F84 001C6H     TTIMER                 CODE \n 0008:A14A 0006FH     TIMEREVENT             CODE \n 0008:A1BA 003E8H     TTXTFILE               CODE \n 0008:A5A2 000A5H     ADVANCE                CODE \n 0008:A648 0002EH     APPENDLN               CODE \n 0008:A676 000BAH     REWIND                 CODE \n 0008:A730 0006EH     READLINE               CODE \n 0008:A79E 000B1H     DELLINE                CODE \n 0008:A850 000BDH     DELLINE                CODE \n 0008:A90E 00085H     INSLINE                CODE \n 0008:A994 00145H     GETVALUE               CODE \n 0008:AADA 0013CH     SETVALUE               CODE \n 0008:AC16 00075H     GOTO                   CODE \n 0008:AC8C 00055H     XPADR                  CODE \n 0008:ACE2 00055H     XPADL                  CODE \n 0008:AD38 000A4H     XPADC                  CODE \n 0008:ADDC 00272H     TCLIPBOARD             CODE \n 0008:B04E 0005CH     SETBITMAP              CODE \n 0008:B0AA 00054H     SETTEXT                CODE \n 0008:B0FE 0004BH     GETBITMAP              CODE \n 0008:B14A 00049H     GETTEXT                CODE \n 0008:B194 00048H     ISEMPTY                CODE \n 0008:B1DC 00263H     TBUTTON                CODE \n 0008:B440 00118H     CGENPRG                CODE \n 0008:B558 000CDH     CGENPRG                CODE \n 0008:B626 0013CH     CGENPRG                CODE \n 0008:B762 0007EH     CGENPRG                CODE \n 0008:B7E0 00076H     CGENPRG                CODE \n 0008:B856 000CAH     CGENPRG                CODE \n 0008:B920 000C6H     CGENPRG                CODE \n 0008:B9E6 00361H     CGENPRG                CODE \n 0008:BD48 0071EH     TMENUITEM              CODE \n 0008:C466 00145H     SETPROMPT              CODE \n 0008:C5AC 00069H     __HELPTOPI             CODE \n 0008:C616 0006CH     __HELPTOPI             CODE \n 0008:C682 0007FH     __HELPTOPI             CODE \n 0008:C702 000D3H     ASAVE                  CODE \n 0008:C7D6 000D6H     ASAVE                  CODE \n 0008:C8AC 000DAH     ASAVE                  CODE \n 0008:C986 0014FH     AREAD                  CODE \n 0008:CAD6 00152H     AREAD                  CODE \n 0008:CC28 00165H     AREAD                  CODE \n 0008:CD8E 00046H     CCAPTION               CODE \n 0008:CDD4 006FCH     TMENU                  CODE \n 0008:D4D0 0007AH     NEWSYS                 CODE \n 0008:D54A 0004FH     DELITEMS               CODE \n 0008:D59A 00059H     GETPOPUP               CODE \n 0008:D5F4 00098H     SEARCHSUBM             CODE \n 0008:D68C 000EFH     SEARCHITEM             CODE \n 0008:D77C 000A1H     DESTROYITE             CODE \n 0008:D81E 00197H     RESBUILD               CODE \n 0008:D9B6 000FAH     MENUCLONE              CODE \n 0008:DAB0 003D1H     ADDMDI                 CODE \n 0008:DE82 0033AH     ADDHELP                CODE \n 0008:E1BC 00993H     ADDEDIT                CODE \n 0008:EB50 00301H     ADDFILE                CODE \n 0008:EE52 00687H     TCOMBOBOX              CODE \n 0008:F4DA 00159H     CHANGE                 CODE \n 0008:F634 000B4H     CHANGE                 CODE \n 0008:F6E8 0004CH     DEFCONTROL             CODE \n 0008:F734 000C6H     DEFCONTROL             CODE \n 0008:F7FA 000EDH     SETBITMAPS             CODE \n 0008:F8E8 00165H     SETBITMAPS             CODE \n 0008:FA4E 00078H     VARGET                 CODE \n 0008:FAC6 00056H     LVALID                 CODE \n 0008:FB1C 0008EH     LVALID                 CODE \n 0008:FBAA 00073H     SHOWTOOLTI             CODE \n 0008:FC1E 000ABH     SHOWTOOLTI             CODE \n 0008:FCCA 002C6H     SHOWTOOLTI             CODE \n 0009:0000 00160H     TINI                   CODE \n 0009:0160 00123H     GET                    CODE \n 0009:0284 0007BH     SECTIONS               CODE \n 0009:0300 00155H     GETPVPRFSE             CODE \n 0009:0456 0076CH     TMDICHILD              CODE \n 0009:0BC2 00089H     MDIACTIVAT             CODE \n 0009:0C4C 00092H     PRINT                  CODE \n 0009:0CDE 000E9H     PRINT                  CODE \n 0009:0DC8 00149H     PRINT                  CODE \n 0009:0F12 004CDH     TMDICLIENT             CODE \n 0009:13E0 00064H     CHILDNEW               CODE \n 0009:1444 0007FH     GETACTIVE              CODE \n 0009:14C4 0003CH     GETACTIVE              CODE \n 0009:1500 000C9H     CHILDCLOSE             CODE \n 0009:15CA 00059H     LCLOSEALL              CODE \n 0009:1624 00461H     TRCOLUMN               CODE \n 0009:1A86 0010CH     SAYTITLE               CODE \n 0009:1B92 00170H     SAYDATA                CODE \n 0009:1D02 000E9H     SAYTOTAL               CODE \n 0009:1DEC 00185H     TITLEHEIGH             CODE \n 0009:1F72 002CEH     UNDERLINE              CODE \n 0009:2240 002CDH     TRADIO                 CODE \n 0009:250E 002B4H     TSAY                   CODE \n 0009:27C2 00062H     VARPUT                 CODE \n 0009:2824 00249H     MSGGET                 CODE \n 0009:2A6E 00C7CH     RPREVIEW               CODE \n 0009:36EA 0042DH     BUILDMENU              CODE \n 0009:3B18 002B3H     PAINTMETA              CODE \n 0009:3DCC 00100H     NEXTPAGE               CODE \n 0009:3ECC 000FCH     PREVPAGE               CODE \n 0009:3FC8 000F9H     TOPPAGE                CODE \n 0009:40C2 000DDH     BOTTOMPAGE             CODE \n 0009:41A0 001DBH     TWOPAGES               CODE \n 0009:437C 001C6H     ZOOM                   CODE \n 0009:4542 00040H     ZOOM                   CODE \n 0009:4582 0012FH     SETORG1                CODE \n 0009:46B2 001A0H     SETORG2                CODE \n 0009:4852 001B8H     CHECKKEY               CODE \n 0009:4A0A 000DDH     SETFACTOR              CODE \n 0009:4AE8 002AAH     PRINTPAGE              CODE \n 0009:4D92 001B1H     PRINTPRV               CODE \n 0009:4F44 00642H     TMSGBAR                CODE \n 0009:5586 0007EH     ADJUST                 CODE \n 0009:5604 00067H     ADJUST                 CODE \n 0009:566C 000B6H     CLOCKON                CODE \n 0009:5722 000B8H     DATEON                 CODE \n 0009:57DA 00082H     INSITEM                CODE \n 0009:585C 00086H     DELITEM                CODE \n 0009:58E2 001F8H     DELITEM                CODE \n 0009:5ADA 002BEH     KEYBON                 CODE \n 0009:5D98 00189H     SETMSG                 CODE \n 0009:5F22 00099H     SETMSG                 CODE \n 0009:5FBC 0006EH     CHECKTIMER             CODE \n 0009:602A 0016BH     TIMEREVAL              CODE \n 0009:6196 00025H     INITTIME$              CODE \n 0009:61BC 000AAH     TIMEFROMST             CODE \n 0009:6266 00077H     SECSFROMST             CODE \n 0009:62DE 00052H     LISDIR                 CODE \n 0009:6330 00039H     CFILEDISC              CODE \n 0009:636A 0004FH     CFILEPATH              CODE \n 0009:63BA 0007EH     CFILENOPAT             CODE \n 0009:6438 00027H     CFILENAME              CODE \n 0009:6460 00047H     CFILEMASK              CODE \n 0009:64A8 00058H     CFILENOEXT             CODE \n 0009:6500 0006EH     CFILEEXT               CODE \n 0009:656E 00047H     CFILESUBDI             CODE \n 0009:65B6 00088H     CNEWFILENA             CODE \n 0009:663E 00051H     CTEMPFILE              CODE \n 0009:6690 00041H     FSIZE                  CODE \n 0009:66D2 0004CH     FDATE                  CODE \n 0009:671E 00041H     FTIME                  CODE \n 0009:6760 000EEH     AFINDFILE              CODE \n 0009:684E 000CAH     LOGFILE                CODE \n 0009:6918 000FFH     LOGSTACK               CODE \n 0009:6A18 00139H     GETDISKFRE             CODE \n 0009:6B52 00892H     TLISTBOX               CODE \n 0009:73E4 000C1H     ASELECTION             CODE \n 0009:74A6 0005DH     SETSELITEM             CODE \n 0009:7504 000D6H     SWAPUP                 CODE \n 0009:75DA 000DFH     SWAPDOWN               CODE \n 0009:76BA 00410H     TMETAFILE              CODE \n 0009:7ACA 000D3H     SETZOOMFAC             CODE \n 0009:7B9E 00092H     WMF2EMF                CODE \n 0009:7C30 0012CH     GETMETAFBE             CODE \n 0009:7D5C 00133H     SETWINMFB              CODE \n 0009:7E90 00125H     PLAYEMF                CODE \n 0009:7FB6 0011FH     DELETEEMF              CODE \n 0009:80D6 00134H     GETEMFHEAD             CODE \n 0009:820A 00118H     TCURSOR                CODE \n 0009:8322 003E8H     TMSGITEM               CODE \n 0009:870A 000D8H     NLEFT                  CODE \n 0009:87E2 00099H     NLEFT                  CODE \n 0009:887C 00059H     ISOVER                 CODE \n 0009:88D6 00663H     TDIALOG                CODE \n 0009:8F3A 00137H     CTOCHAR                CODE \n 0009:9072 00169H     CTOCHAR                CODE \n 0009:91DC 000E7H     DEFINE                 CODE \n 0009:92C4 00146H     DEFINE                 CODE \n 0009:940A 00187H     DEFINE                 CODE \n 0009:9592 00108H     VBXINITDIA             CODE \n 0009:969A 000FCH     VBXINIT                CODE \n 0009:9796 000EEH     VBXTERM                CODE \n 0009:9884 000F1H     VBXTERM                CODE \n 0009:9976 00088H     CREATEDLGE             CODE \n 0009:99FE 000EBH     GETHOTPOS              CODE \n 0009:9AEA 000A4H     GETHOTPOS              CODE \n 0009:9B8E 00088H     HELP                   CODE \n 0009:9C16 0005DH     ERASEBKGND             CODE \n 0009:9C74 00060H     ERASEBKGND             CODE \n 0009:9CD4 000CBH     ERASEBKGND             CODE \n 0009:9DA0 00059H     SYSCOMMAND             CODE \n 0009:9DFA 0019BH     SYSCOMMAND             CODE \n 0009:9F96 000D5H     SYSCOMMAND             CODE \n 0009:A06C 00075H     HELP95                 CODE \n 0009:A0E2 00135H     TIMAGE                 CODE \n 0009:A218 0016EH     LOADIMAGE              CODE \n 0009:A386 00162H     LOADIMAGE              CODE \n 0009:A4E8 0004EH     PROGRESS               CODE \n 0009:A536 00106H     NVIEWLIBLO             CODE \n 0009:A63C 0012BH     NVIEWLIB32             CODE \n 0009:A768 00517H     TFOLDER                CODE \n 0009:AC80 00055H     SYSWAIT                CODE \n 0009:ACD6 00214H     ADDITEM                CODE \n 0009:AEEA 00040H     DELPAGES               CODE \n 0009:AF2A 00153H     LOADPAGES              CODE \n 0009:B07E 001ACH     TBRUSH                 CODE \n 0009:B22A 00824H     TSCROLLBAR             CODE \n 0009:BA4E 0019AH     WINNEW                 CODE \n 0009:BBE8 00023H     SETPAGE                CODE \n 0009:BC0C 0015CH     TSTRUCT                CODE \n 0009:BD68 0010BH     ADDMEMBER              CODE \n 0009:BE74 00103H     ONERROR                CODE \n 0009:BF78 0040BH     SETMEMBER              CODE \n 0009:C384 00174H     GETMEMBER              CODE \n 0009:C4F8 00030H     THISSTRUCT             CODE \n 0009:C528 00226H     TDDE                   CODE \n 0009:C74E 000A0H     EXECUTE                CODE \n 0009:C7EE 00222H     EXECUTE                CODE \n 0009:CA10 00098H     DDEACK                 CODE \n 0009:CAA8 000ACH     DDETERMINA             CODE \n 0009:CB54 007F8H     TBTNBMP                CODE \n 0009:D34C 003D3H     NEWBAR                 CODE \n 0009:D720 000DAH     FREEBITMAP             CODE \n 0009:D7FA 0026FH     LOADBITMAP             CODE \n 0009:DA6A 0052FH     TBAR                   CODE \n 0009:DF9A 0023CH     NEWAT                  CODE \n 0009:E1D6 00320H     BTNADJUST              CODE \n 0009:E4F6 0028CH     GETBTNLEFT             CODE \n 0009:E782 000F1H     GETBTNTOP              CODE \n 0009:E874 0020EH     RBUTTONDOW             CODE \n 0009:EA82 00386H     RBUTTONDOW             CODE \n 0009:EE08 00050H     RBUTTONDOW             CODE \n 0009:EE58 003CDH     RBUTTONDOW             CODE \n 0009:F226 0061FH     FLOAT                  CODE \n 0009:F846 002ACH     FLOATCLICK             CODE \n 0009:FAF2 002CFH     SAVEINI                CODE \n 0009:FDC2 00030H     __LOWMEMER             CODE \n 0009:FDF2 00197H     _FWGENERRO             CODE \n 000A:0000 00433H     TFONT                  CODE \n 000A:0434 001D5H     CHOOSE                 CODE \n 000A:060A 0009DH     NSIZE                  CODE \n 000A:06A8 0006CH     NHEIGHT                CODE \n 000A:0714 00082H     NHEIGHT                CODE \n 000A:0796 0007EH     NWIDTH                 CODE \n 000A:0814 00082H     NWIDTH                 CODE \n 000A:0896 00946H     TBITMAP                CODE \n 000A:11DC 00140H     ADJCONTROL             CODE \n 000A:131C 000FBH     CENTER                 CODE \n 000A:1418 0004CH     COPYTOCLIP             CODE \n 000A:1464 000DAH     LOADFROMCL             CODE \n 000A:153E 000DCH     PAGELEFT               CODE \n 000A:161A 000D5H     PAGERIGHT              CODE \n 000A:16F0 00075H     RELOAD                 CODE \n 000A:1766 00113H     SCROLLUP               CODE \n 000A:187A 0007BH     SCROLLDOWN             CODE \n 000A:18F6 0016AH     SCROLLLEFT             CODE \n 000A:1A60 00115H     SCROLLRIGH             CODE \n 000A:1B76 001DAH     SCROLLADJU             CODE \n 000A:1D50 0009BH     INSPECT                CODE \n 000A:1DEC 00084H     INSPECT                CODE \n 000A:1E70 00D67H     TCONTROL               CODE \n 000A:2BD8 0017CH     ADJCLIENT              CODE \n 000A:2D54 00114H     ADJLEFT                CODE \n 000A:2E68 00114H     ADJRIGHT               CODE \n 000A:2F7C 00099H     _SETFOCUS              CODE \n 000A:3016 000ECH     COLORS                 CODE \n 000A:3102 00099H     NTOP                   CODE \n 000A:319C 0014EH     FORWHEN                CODE \n 000A:32EA 001E9H     KILLFOCUS              CODE \n 000A:34D4 0013EH     FWLOSTFOCU             CODE \n 000A:3612 0006AH     DRAGBEGIN              CODE \n 000A:367C 0058EH     CHECKDOTS              CODE \n 000A:3C0A 00398H     SHOWDOTS               CODE \n 000A:3FA2 00126H     MRESIZE                CODE \n 000A:40C8 00288H     NALIGN                 CODE \n 000A:4350 0002EH     SETGRIDSIZ             CODE \n 000A:437E 00027H     GETGRIDSIZ             CODE \n 000A:43A6 00857H     TGET                   CODE \n 000A:4BFE 00058H     EDITUPDATE             CODE \n 000A:4C56 00053H     CTEXT                  CODE \n 000A:4CAA 0005BH     CTEXT                  CODE \n 000A:4D06 0006FH     GETSEL                 CODE \n 000A:4D76 00071H     GETSEL                 CODE \n 000A:4DE8 0004CH     GETSELPOS              CODE \n 000A:4E34 000BBH     GETDELSEL              CODE \n 000A:4EF0 0009EH     COPY                   CODE \n 000A:4F8E 0009EH     COPY                   CODE \n 000A:502C 001AFH     PASTE                  CODE \n 000A:51DC 0009AH     PASTE                  CODE \n 000A:5276 0008CH     DISPTEXT               CODE \n 000A:5302 000D8H     KEYUP                  CODE \n 000A:53DA 000B8H     SELFILE                CODE \n 000A:5492 00099H     _SETPOS                CODE \n 000A:552C 0014CH     CUT                    CODE \n 000A:5678 000A7H     CUT                    CODE \n 000A:5720 000D6H     INC                    CODE \n 000A:57F6 000DAH     DEC                    CODE \n 000A:58D0 0011FH     SPINNER                CODE \n 000A:59F0 001D0H     SCROLLDATE             CODE \n 000A:5BC0 00128H     SCROLLNUMB             CODE \n 000A:5CE8 00022H     NWINDOWS               CODE \n 000A:5D0A 00021H     GETALLWIN              CODE \n 000A:5D2C 02B25H     TWINDOW                CODE \n 000A:8852 0015AH     REGISTER               CODE \n 000A:89AC 00083H     WNDCREATEE             CODE \n 000A:8A30 0004AH     ASYNCSELEC             CODE \n 000A:8A7A 00078H     COORSUPDAT             CODE \n 000A:8AF2 0005BH     CTITLE                 CODE \n 000A:8B4E 0009BH     DDEINITIAT             CODE \n 000A:8BEA 0007AH     DROPFILES              CODE \n 000A:8C64 00201H     GENDBF                 CODE \n 000A:8E66 0005BH     GETCLIRECT             CODE \n 000A:8EC2 0005BH     GETRECT                CODE \n 000A:8F1E 0014CH     MEASUREITE             CODE \n 000A:906A 00122H     MENUCHAR               CODE \n 000A:918C 0011FH     MENUSELECT             CODE \n 000A:92AC 00070H     NOTIFY                 CODE \n 000A:931C 00229H     ATOTEXT                CODE \n 000A:9546 00457H     SAVETOTEXT             CODE \n 000A:999E 00084H     OREAD                  CODE \n 000A:9A22 0005DH     SAVEFILE               CODE \n 000A:9A80 00092H     SAYRECT                CODE \n 000A:9B12 0004DH     RBUTTONUP              CODE \n 000A:9B60 0004DH     MBUTTONDOW             CODE \n 000A:9BAE 0004DH     MBUTTONUP              CODE \n 000A:9BFC 00112H     LINK                   CODE \n 000A:9D0E 000C1H     SETCOORS               CODE \n 000A:9DD0 00045H     SETCOORS               CODE \n 000A:9E16 000D5H     UNLINK                 CODE \n 000A:9EEC 00053H     TOOLWINDOW             CODE \n 000A:9F40 000A1H     HARDCOPY               CODE \n 000A:9FE2 000BBH     SETCOLOR               CODE \n 000A:A09E 000CAH     INIT','',0,'gIA=','3r9ehb7q',1,0,'',275,0,0),(8644,863,3,339,0,'200.222.117.194',1141382260,1,0,1,1,1,0,'','','thanks again , antonio..\n\n\n\ni send my e-mail , yet\n\n\n\nmauricio','',0,'gIA=','2g447eqn',1,0,'',339,0,0),(8645,2015,3,22,0,'213.82.231.129',1141382881,1,0,1,1,1,0,'','','I\'m using xHarbour.com and still have same problem as Alex\nI execute this command but take this error:\n[code:1fglpzxv]\nLIB&#46;exe /REMOVE&#58;ole&#46;obj c&#58;\\fivewin\\lib\\fivehcm&#46;lib\nMicrosoft &#40;R&#41; Library Manager Version 8&#46;00&#46;50727&#46;42\nCopyright &#40;C&#41; Microsoft Corporation&#46;  All rights reserved\n\nLIB &#58; warning LNK4014&#58; cannot find member object ole&#46;obj\n[/code:1fglpzxv]\n\nRegards\nGianni','',0,'AIA=','1fglpzxv',1,0,'',22,0,0),(8646,2008,6,292,0,'201.248.85.65',1141382926,1,0,1,1,1,1,'','Gracias','Muchas gracias por su pronta respuesta.','',0,'AIA=','3mqiiopl',1,0,'',292,0,0),(8647,1927,3,6,0,'82.57.161.17',1141383369,1,0,1,1,1,1,'','','Yes, it seems to work. But please check for bad side effects.\n\nEMG','',0,'AIA=','3h77njkn',1,0,'',6,0,0),(8648,1931,6,339,0,'200.222.117.194',1141386427,1,0,1,1,1,0,'','','joao \n\n\n  Qual o PRG USa LISTBOX\n\n\nMauricio','',0,'AIA=','2vgem9y1',1,0,'',339,0,0),(8650,2019,6,52,0,'200.117.219.22',1141387310,1,0,1,1,1,1,'','chr( 0 ) devuelto desde Funcion Harb','Antonio,\n\nEn una oportunidad me respondiste a un problema que tengo con respecto a esto \"hola \" + chr( 0 ) + chr( 0 ) + \"adios\", \no sea, los chr( 0 ) con respecto a este mismo tema, Te mando un proyecto en el cual desde \nHar se llama a una función que esta en C y desde esa funcion se llama a otra que esta en HAR, \nla cual dicha funcion solo devuelve el contenido de una cadena.\nFijate, por favor, que cuando devuelve el contenido Return ( cRespuesta ) y \nla toma nueavamente el C dicha cadena tiene solamente lo que esta antes del chr( 0 ), \nlo que me indicaria que corta nuevamente la cadena, o por lo menos los restantes caracteres \nno los estaria pasando.\n\nPodrias indicarme como encarar el tema? porque la verdad necesito que se hagan esos pasos. \nLlamadas desde Har a funciones de C que devuelven cadenas que contienen el\ndichoso chr( 0 ).\n\nMuchas Gracias.\n\nEsto seria lo de har:\n[code:hfxm3jf5]#include &quot;fivewin&#46;ch&quot;\n\n//------------------------------------------------------------------------------\n\nFUNCTION main&#40; &#41;\n\n   LLAMADAHAR&#40;&quot;GUSTAVO&quot;&#41;\n\n   RETURN &#40; NIL &#41;\n\n\n//------------------------------------------------------------------------------\n\nFUNCTION FUNCION_HAR&#40; cComando &#41;\n\n   LOCAL cRespuesta&#58;= &quot;hola &quot; + Chr&#40; 0 &#41; + Chr&#40; 0 &#41; + &quot;Adios&quot;\n\n   RETURN &#40; cRespuesta &#41;[/code:hfxm3jf5]\n\n\nEsto seria lo de .c\n\n\n[code:hfxm3jf5]#include &quot;winten&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;winten&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;hbvm&#46;h&quot;\n#include &quot;string&#46;h&quot;\n#include &quot;math&#46;h&quot;\n\n\nHB_FUNC &#40; LLAMADAHAR &#41;&#123;\n\n   char *comando = hb_parcx&#40;1&#41;;\n   char *respuesta;\n\n   hb_vmPushSymbol&#40; hb_dynsymGet&#40; &quot;FUNCION_HAR&quot;&#41; -&gt; pSymbol &#41;;\n   hb_vmPushNil&#40; &#41;;\n   hb_vmPushString&#40; comando, strlen&#40; comando &#41; &#41;;\n   hb_vmFunction&#40; 1 &#41;;\n\n   respuesta = hb_parc&#40; -1 &#41;;\n\n   MessageBox&#40;0, respuesta,  &quot;Contenido que devuelve funcion HAR&quot;, MB_OK&#41;;\n\n&#125;[/code:hfxm3jf5]','',0,'AIA=','hfxm3jf5',1,0,'',52,0,0),(8651,1894,3,6,0,'82.57.161.17',1141390962,1,0,1,1,1,1,'','','And for the same reason you may need to add:\n\n[code:25h0vqvk]   if &#58;&#58;ClassName&#40;&#41; = &quot;TMDIFRAME&quot;\n      for i = 1 to Len&#40; &#58;&#58;oWndClient&#58;aWnd &#41;\n         if &#58;&#58;oWndClient&#58;aWnd&#91; i &#93;&#58;oBar != nil\n            AEval&#40; &#58;&#58;oWndClient&#58;aWnd&#91; i &#93;&#58;oBar&#58;aControls, &#123; | oCtl | If&#40; oCtl&#58;ClassName&#40;&#41; == &quot;TBTNBMP&quot;, oCtl&#58;LostFocus&#40;&#41;, &#41; &#125; &#41;\n         endif\n      next\n   endif\n\n   if &#58;&#58;ClassName&#40;&#41; = &quot;TDIALOG&quot;\n      AEval&#40; &#58;&#58;aControls, &#123; | oCtl | If&#40; oCtl&#58;ClassName&#40;&#41; == &quot;TBTNBMP&quot;, oCtl&#58;LostFocus&#40;&#41;, &#41; &#125; &#41;\n   endif[/code:25h0vqvk]\n\nEMG','',0,'AIA=','25h0vqvk',1,0,'',6,0,0),(8652,2020,3,6,0,'82.57.161.17',1141391456,1,0,1,1,1,1,'','TWindow help bug','In the following sample the F1 key is now disabled:\n\n[code:vfk4tw91]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:vfk4tw91]\n\nThis is the reason:\n\n[code:vfk4tw91]      // &#58;&#58;HelpTopic&#40;&#41;  // as WM_HELP is now supported by controls[/code:vfk4tw91]\n\nEMG','',0,'AIA=','vfk4tw91',1,0,'',6,0,0),(8653,2010,6,41,0,'200.87.67.10',1141393580,1,0,1,1,1,0,'','','Hola,\n\nyo creo que RF u otros son los aconsejables para responder resto, sin embargo, lo unico que se me ocurre para el crecimiento de tus archivos, es que al hacer el backup estas toamndo otros archivos que se crean automaticamente como respaldo al hacer alguna operacion, fijate si hay archivos con extensiones BAK BK1 ~bk, etc\n\nsolo una idea\n\nsaludos\n\nMarcelo','',0,'AIA=','9yrgw3pl',1,0,'',41,0,0),(8655,2014,3,2,0,'87.218.146.60',1141394740,1,0,1,1,1,1,'','','Enrico,\n\nThanks','',0,'AIA=','2o2sd0d3',1,0,'',2,0,0),(8657,2020,3,2,0,'87.218.146.60',1141395343,1,0,1,1,1,1,'','','Enrico,\n\nThat only happens if the window has no controls at all. Please test samples\\tutor02.prg and you will see that ::HelpTopic() is properly called.','',0,'AIA=','335a1wce',1,0,'',2,0,0),(8659,2020,3,6,0,'87.11.236.7',1141396056,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1sezel7c]Enrico,\n\nThat only happens if the window has no controls at all. Please test samples\\tutor02.prg and you will see that ::HelpTopic() is properly called.[/quote:1sezel7c]\n\nYes, I know. But previously it was possible to hit F1 for help even in an empty main window. Can\'t you reactivate it?\n\nEMG','',0,'gA==','1sezel7c',1,0,'',6,0,0),(8660,2020,3,2,0,'87.218.146.60',1141396296,1,0,1,1,1,1,'','','Enrico,\n\nThis is a side effect caused by implementing \"?\" support on dialogboxes. We may fix it but we need to do some more research on it.','',0,'gA==','yweir1ia',1,0,'',2,0,0),(8661,2000,6,456,0,'62.43.32.209',1141396396,1,0,1,1,1,1,'','Con un ejemplo funcional se entiende mejor','[code:37t2uzdt]\n# INCLUDE &quot;FiveWin&#46;ch&quot;\n# INCLUDE &quot;XBrowse&#46;ch&quot;\n//-------------\nFUNCTION Main&#40;&#41;\n//-------------\n   LOCAL oWnd,aLin&#58;=&#123;&#125;,i,oBrw\n   FOR i&#58;=1 TO 6\n      AAdd&#40;aLin,&#123;i,\'Descripción \'+Str&#40;i&#41;&#125;&#41;\n   NEXT\n   DEFINE WINDOW oWnd\n   //--Definición Objeto TxBrowse\n   oBrw&#58;=TxBrowse&#40;&#41;&#58;New&#40;oWnd&#41;\n   oBrw&#58;SetArray&#40;aLin&#41;\n   oBrw&#58;nColDividerStyle &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle &#58;= LINESTYLE_BLACK\n   oBrw&#58;nMarqueeStyle    &#58;= MARQSTYLE_HIGHLCELL\n\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader      &#58;= \'Cod\'\n   oBrw&#58;aCols&#91;1&#93;&#58;cEditPicture &#58;= \'@k 99\'\n   oBrw&#58;aCols&#91;1&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd\n   oBrw&#58;aCols&#91;1&#93;&#58;bOnPostEdit  &#58;= &#123;|o,x| aLin&#91; oBrw&#58;nArrayAt,1&#93; &#58;= x &#125;\n   oBrw&#58;aCols&#91;1&#93;&#58;nEditType    &#58;= EDIT_GET\n   oBrw&#58;aCols&#91;1&#93;&#58;bEditValid   &#58;= &#123;|oGet| Valida&#40;oGet&#58;Value&#40;&#41;&#41; &#125; //&lt;========\n   //--\n   oBrw&#58;aCols&#91;2&#93;&#58;cHeader      &#58;= \'Descripción\'\n   oBrw&#58;aCols&#91;2&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd\n   oBrw&#58;aCols&#91;2&#93;&#58;bOnPostEdit  &#58;= &#123;|o,x| aLin&#91; oBrw&#58;nArrayAt,2&#93; &#58;= x &#125;\n   oBrw&#58;aCols&#91;2&#93;&#58;nEditType    &#58;= EDIT_GET\n   //--\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oWnd&#58;oClient&#58;=oBrw\n   ACTIVATE WINDOW oWnd\nRETURN NIL\n//-----------------------------------\nSTATIC FUNCTION Valida&#40;nVal&#41;\n//-----------------------------------\n    LOCAL lValRet&#58;=&#46;T&#46;\n    IF nVal&gt;6\n        MsgAlert&#40;\'No puede ser mayor que 6\'&#41;\n        lValRet&#58;=&#46;f&#46;\n    ENDIF\nRETURN lValRet\n[/code:37t2uzdt]\nSi lo ejecutais y en la columna cod poneis un valor superior a 6 vereeis como el codeblock valid es evaluado 2 veces.\nEn mi aplicación lo que pretendo es  cmprobar la existencia de un codigo en una tabla, y visualizar mensaje en caso de que no exista, o visualizar un dialogo para que seleccione uno de valido. La verdad que llevo dos dias con FW e igual estoy haciendo algo mal. \nCualquier ayuda sera bien venida.\nGracias anticipadas.','',0,'AIA=','37t2uzdt',1,0,'',456,0,0),(8662,1978,2,2,0,'87.218.146.60',1141396449,1,0,1,1,1,1,'','','Parece que sigue incompleto porque no llega hasta 000F:','',0,'AIA=','380m0tfx',1,0,'',2,0,0),(8663,2016,6,131,0,'80.39.170.245',1141396500,1,0,1,1,1,0,'','','¿ Y un poquito de código sería posible ?\n\nSaludos,','',0,'AIA=','urnxv78v',1,0,'',131,0,0),(8664,2016,6,2,0,'87.218.146.60',1141396651,1,0,1,1,1,1,'','','Jose Luis,\n\nLa función GetTextMetrics() usa una estructura TEXTMETRIC que mira todo lo que contiene:\n[code:mhrkhg1y]\ntypedef struct tagTEXTMETRIC &#123; // tm  \n    LONG tmHeight; \n    LONG tmAscent; \n    LONG tmDescent; \n    LONG tmInternalLeading; \n    LONG tmExternalLeading; \n    LONG tmAveCharWidth; \n    LONG tmMaxCharWidth; \n    LONG tmWeight; \n    LONG tmOverhang; \n    LONG tmDigitizedAspectX; \n    LONG tmDigitizedAspectY; \n    BCHAR tmFirstChar; \n    BCHAR tmLastChar; \n    BCHAR tmDefaultChar; \n    BCHAR tmBreakChar; \n    BYTE tmItalic; \n    BYTE tmUnderlined; \n    BYTE tmStruckOut; \n\n    BYTE tmPitchAndFamily; \n    BYTE tmCharSet; \n&#125; TEXTMETRIC; \n[/code:mhrkhg1y]\nhabrá que ver que valor es el que necesitas de todos esos.','',0,'AIA=','mhrkhg1y',1,0,'',2,0,0),(8665,2020,3,6,0,'87.11.236.7',1141396702,1,0,1,1,1,1,'','','Ok, take all the time you need. No problem for me.\n\nEMG','',0,'AIA=','2zb3hkp8',1,0,'',6,0,0),(8666,2021,3,160,0,'210.212.142.91',1141397954,1,0,1,1,1,0,'','How to invoke a function on pressing Enter in TwBrowse ?','Dear All,\n\nHow can I invoke a function on Pressing Enter in TwBrowse ? My following code do not seem to be working.\n\noBrw:bKeyChar  = { | nKey | IF (nKey == 13, MyFunc(),) } \n\nCan anybody guide me ?\n\nTIA\nMilan.','',0,'AIA=','ffemubd0',1,0,'',160,0,0),(8667,1966,3,446,0,'87.7.234.253',1141399217,1,0,1,1,1,0,'','','Antonio,\nObjects like bitmaps are also shown now ?\n\nRoberto','',0,'AIA=','3s16knbl',1,0,'',446,0,0),(8668,2021,3,6,0,'87.11.236.7',1141399636,1,0,1,1,1,1,'','Re: How to invoke a function on pressing Enter in TwBrowse ?','[code:3ne5c0cv]oBrw&#58;bKeyDown  = &#123; | nKey | IF &#40;nKey == 13, MyFunc&#40;&#41;,&#41; &#125;[/code:3ne5c0cv]\n\nEMG','',0,'AIA=','3ne5c0cv',1,0,'',6,0,0),(8669,1999,6,295,0,'200.112.81.121',1141400219,1,0,1,1,1,1,'','','gracias por sus respuestas amigos, voy a probar vuestras rutinas\n\nSALUDOS \nxHabrazos','',0,'AIA=','my79uhh0',1,0,'',295,0,0),(8670,2022,1,193,0,'195.212.29.187',1141400359,1,0,1,1,1,0,'','Using __psp','Questing to Antonio Linares and other FW gurus.\nWhen a Clipper program starts it saves the adrres of PSP in global variable __psp (Microsoft C startup code). I can use it, for example, to know command tail address. This addres I can futher use to set DTA for DOS find file functions. O\'k. But can I use the PSP command tail address  in FiveWin program?\nMaybe this question is general for all Win16 programs not only Clipper programs.\n\nVladimir Grigoriev','',0,'AIA=','1771ovq0',1,0,'',193,0,0),(8671,2023,7,123,0,'81.39.239.66',1141401937,1,0,1,1,1,0,'','Cambiar el cCaption a una Window','Hola,\n\n¿Como cambio el cCaption de una Window?\n\noWnd:cCaption := \"Nuevo Caption\"\noWnd:Refresh(.T.)\n\nNo me hace nada.\n\nSaludos y gracias,\nJosé Luis Capel','',0,'AIA=','r2vbk5lz',1,0,'',123,0,0),(8672,2010,6,138,0,'201.129.13.9',1141403717,1,0,1,1,1,1,'','','Se me hace muy extraño lo que comentas, aqui tenemos ADTs con 70 millones de registros que dificilmente llegan al mega de tamaño.\n\nQuiero suponer que estas duplicando informacion por eso el bestial crecimiento.\n\nPor otro lado, supongo que estas usando el server remoto, el server remoto tiene la capacidad de realizar los respaldos automaticamente, yo te recomendaria que dejaras que el server ADS se encargara del tema de los respaldos.','',0,'AIA=','2bxlc1k5',1,0,'',138,0,0),(8673,2006,6,138,0,'201.129.13.9',1141404158,1,0,1,1,1,1,'','','No que yo sepa, de hecho alguna vez lo intente, pero me di por vencido, es mucho mejor manejar los previews de Crystal en ventanas MDI, mucho menos complicado.','',0,'AIA=','usfmkk0y',1,0,'',138,0,0),(8674,2024,7,123,0,'81.39.239.66',1141404956,1,0,1,1,1,0,'','Windows Ce y Windows Mobile','Hola,\n\n¿Conoceis alguna función o lo que sea que me indique si estoy en una PDA con Windows CE o Windows Mobile?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'AIA=','2e1hdlbv',1,0,'',123,0,0),(8675,2015,3,22,0,'213.82.231.129',1141405125,1,0,1,1,1,0,'','','any news?\n\nregards\nGianni','',0,'AIA=','1jc8zkf7',1,0,'',22,0,0),(8676,2017,7,456,0,'62.43.32.209',1141406902,1,0,1,1,1,1,'','','Yo todavia no tengo nada funcional en FW, hace poco que he empezado. \nPero basicamente se trata de averiguar el nº de com del puerto bluetooth, abrirlo y escribir en el. Eso simplificandolo mucho. Supongo que algo parecido a esto, debiera funcionarte.\n[code:2z6z1qbc]\nnHandle = fOpen&#40;\'COM1\',12&#41;\n\nfwrite&#40;nHandle, \' Texto \'+CRLF &#41;\n\nfClose&#40;nHandle&#41;\n[/code:2z6z1qbc]\nNo lo he probado, pero por ahí anda la cosa.\nPD Revisando la ayuda de FiveWin veo que hay funciones para manejo de puertos, quizas te vayan mejor (OpenComm,WriteComm, ...)','',0,'AIA=','2z6z1qbc',1,0,'',456,0,0),(8677,2025,3,299,0,'69.65.95.131',1141407843,1,0,1,0,1,0,'','PlaySndRes()','Hi.\n\nTrying to play sound in a resource.  PlaySndRes() is documented on the .ng file.  But at compile time I get the error below.\n\nError: Unresolved external \'_HB_FUN_SNDPLAYRES\' referenced from F:\\MP\\X12\\MAIN.OBJ\n\n\nAny ideas?\n\nReinaldo.','',0,'AIA=','2q3x9pqx',1,0,'',299,0,0),(8678,2025,3,6,0,'82.54.221.213',1141408194,1,0,1,1,1,1,'','Re: PlaySndRes()','Try SndPlayResource().\n\nEMG','',0,'AIA=','2gduqmfw',1,0,'',6,0,0),(8679,2025,3,299,0,'69.65.95.131',1141410978,1,0,1,0,1,0,'','','Enrico;\n\nYou got it!\n\nThank you.\n\n\nReinaldo.','',0,'AIA=','1uyz4v0i',1,0,'',299,0,0),(8680,2000,6,2,0,'87.218.146.239',1141411058,1,0,1,1,1,1,'','','Biel,\n\nEl MsgAlert() provoca una pérdida de foco que dispara una comprobación extra del valid. Una solución es esta:\n[code:4qdpb5yw]\n   oBrw&#58;aCols&#91;1&#93;&#58;bEditValid   &#58;= &#123;|oGet| Valida&#40; oGet &#41; &#125; \n   &#46;&#46;&#46;\n\nSTATIC FUNCTION Valida&#40; oGet &#41; \n//----------------------------------- \n    LOCAL lValRet&#58;=&#46;T&#46; \n    local bValid &#58;= oGet&#58;bValid\n    local nVal &#58;= oGet&#58;Value&#40;&#41;\n    \n    oGet&#58;bValid = nil\n    \n    IF nVal&gt;6 \n        MsgAlert&#40;\'No puede ser mayor que 6\'&#41; \n        lValRet&#58;=&#46;f&#46; \n    ENDIF \n    \n    oGet&#58;bValid = bValid\nRETURN lValRet \n[/code:4qdpb5yw]','',0,'AIA=','4qdpb5yw',1,0,'',2,0,0),(8681,2026,3,303,0,'68.7.28.54',1141411097,1,0,1,1,1,0,'','Illegal Character in DEF File Error','I am trying to compile an appliction that I have compiled before. Now I am getting this error:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nTussman.res(1):\'Invalid character in .DEF file\'\nFatal: Error processing .DEF file\n\nThere is a Tussman.rc file that is converted to Tussman.res by the resource compiler. I can\'t find a .DEF file anywhere.\n\nI gradually deleted everything in the RC file until it was empty and I still get the same error. After I removed both the RC and RES files, then it compiles without error.\n\nAny ideas? What is a .DEF file?\n\nI am using the buildh.bat file, with slight modifications to include a couple of extra OBJs.\n\nJames','',0,'AIA=','1a8mtj3i',1,0,'',303,0,0),(8682,2019,6,2,0,'87.218.146.239',1141411563,1,0,1,1,1,1,'','','Gustavo,\n\nTu código está bien. Es MessageBox() de Windows quien no te muestra los ceros. Haz lo siguiente y lo verás:\n[code:2oqwjb3i]\nrespuesta = hb_parc&#40; -1 &#41; + 7; \n[/code:2oqwjb3i]\nA partir del 7 byte, está \"Adios\"','',0,'AIA=','2oqwjb3i',1,0,'',2,0,0),(8683,2025,3,299,0,'69.65.95.131',1141411777,1,0,1,0,1,0,'','','Enrico;\n\nI don\'t get an error now, but no sound is produced.  Here is how i\'m using it:\n\n[code:pcigutfj]\n		MenuItem &quot;837 Claims&quot; RESOURCE &quot;837_16&quot; ;\n			Action &#40; SndPlayResource&#40; &quot;tic&quot; &#41; ,X12_837&#40;&#41; &#41; ;\n[/code:pcigutfj]\n\nAny additional ideas?\n\nReinaldo.','',0,'AIA=','pcigutfj',1,0,'',299,0,0),(8684,2002,6,2,0,'87.218.146.239',1141411935,1,0,1,1,1,1,'','','Manolo,\n\nComprueba si esa combinación de teclas pasan por bKeyDown ó bKeyChar y desde ahí puedes hacerlo:\n[code:1sfm8gbg]\noBrw&#58;bKeyDown = &#123; | nKey, nFlags | If&#40; nKey == K_PGDN &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41;, &#46;&#46;&#46;, &#46;&#46;&#46; &#41; &#125;\n[/code:1sfm8gbg]\nPrueba lo mismo con bKeyChar','',0,'AIA=','1sfm8gbg',1,0,'',2,0,0),(8685,2019,6,52,0,'200.127.16.168',1141412005,1,0,1,1,1,1,'','','Antonio,\n\nLa cosa parece ser no tan sencilla, probe lo que me dijiste igual que el ejemplo que me habias enviado. pero si tomas de ese codigo lo que trae la variable cRespuesta por lo menos a mi no me trae toda la cadena. O yo estoy loco.','',0,'AIA=','3bn8nuhs',1,0,'',52,0,0),(8686,2023,7,2,0,'87.218.146.239',1141412011,1,0,1,1,1,1,'','','Jose Luis,\n\noWnd:SetText( cTexto )','',0,'AIA=','2at03rym',1,0,'',2,0,0),(8687,2017,7,2,0,'87.218.146.239',1141412183,1,0,1,1,1,1,'','','Carles,\n\nHaz una búsqueda por bluetooth en estos foros y verás todo lo que ya se ha tratado acerca de él.','',0,'AIA=','3046bedq',1,0,'',2,0,0),(8688,2023,7,123,0,'81.39.239.66',1141412408,1,0,1,1,1,0,'','','Antonio,\n\nGracias!\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','p42g5f6n',1,0,'',123,0,0),(8689,2022,1,2,0,'87.218.146.239',1141412456,1,0,1,1,1,1,'','','Vladimir,\n\nYes, you may be able to use it from a low level user defined function. Have you tried it ?','',0,'AIA=','3f89mvjy',1,0,'',2,0,0),(8690,2015,3,2,0,'87.218.146.239',1141412660,1,0,1,1,1,1,'','','We are reviewing it','',0,'AIA=','16tlu1vo',1,0,'',2,0,0),(8691,2025,3,6,0,'82.54.221.213',1141413732,1,0,1,1,1,1,'','','I don\'t know, sorry. Check that a valid wave resource type called \"tic\" is correctly inserted inside your resource file.\n\nEMG','',0,'AIA=','2gb5l6c8',1,0,'',6,0,0),(8692,2027,3,446,0,'87.7.234.253',1141414005,1,0,1,1,1,0,'','Printing files','I know it is possible to print a file using ShellExecute() but it prints to the default printer.\nThere is a way to redirect the print to another printer ?\nI need to print various types of files to a specified printer (doc rtf pdf ecc.)','',0,'AIA=','3uk1e18z',1,0,'',446,0,0),(8693,2028,6,391,0,'201.221.140.82',1141415803,1,0,1,1,1,1,'','EXISTE UN PREVIEW PARA IMPRESION EN D.SO.S    ????','Siendo la impresion tipo caracter uno de los fuertes del D.O.S. pregunto a los conocedores si existe un previsualizador para este tipo de impresion, semejante al que se utiliza para el REPORT.','',0,'AIA=','2m8tgzaw',1,0,'',391,0,0),(8694,2026,3,6,0,'82.54.221.213',1141416420,1,0,1,1,1,1,'','Re: Illegal Character in DEF File Error','If I remember correctly, a DEF file is a 16 bit stuff. You might have mixed the batch files.\n\nEMG','',0,'AIA=','rh0d4hxq',1,0,'',6,0,0),(8695,2010,6,474,0,'201.129.217.121',1141416666,1,0,1,1,1,1,'','','Gracias por sus comentarios, y explico.\n\nPrimero. Solo respaldamos los .ADT y ADI, de todos modos gracias por la observacion.\n\nSegundo. Rene, el codigo es casi el mismo digamos en un 95 % de lo ke teniamos con las DBF/CDX por lo ke la duplicidad de informacion no es el Tema.\n\nTercero. Como configuro al Servidor Remoto de Hacer los respaldos? \n\nEstamos usando xharbour/fivewin compilado con BCC 5.5 y la version del ADS es 7.0 sobre Netware 6.0 con TCP/IP\n\nSalu2\n\np.d. y si lo permites rene te hecho un fon  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','zqvk2imd',1,0,'',474,0,0),(8696,2027,3,6,0,'82.54.221.213',1141417051,1,0,1,1,1,1,'','Re: Printing files','Use SetPrintDefault() function just before calling ShellExecute().\n\nEMG','',0,'AIA=','2cnko24j',1,0,'',6,0,0),(8697,2028,6,389,0,'201.133.76.98',1141418263,1,0,1,1,1,0,'','Checa este...','<!-- m --><a class=\"postlink\" href=\"http://sistemascvc.tripod.com/id10.html\">http://sistemascvc.tripod.com/id10.html</a><!-- m -->\nsaludos','',0,'AIA=','90xa0qac',1,0,'',389,0,0),(8698,702,2,391,0,'201.221.140.82',1141421572,1,0,1,1,1,1,'','PREVIEW EN TDOSPRN','SEÑOR LAFUG\n\nPODRIAS REGALARME LA UTILIDAD QUE TE PERMITE MANEJAR EL PREVIEW CON TDOSPRN ?.\nMI CORREO ES :\n\n<!-- e --><a href=\"mailto:armandini7@hotmail.com\">armandini7@hotmail.com</a><!-- e -->\n\n\nMil gracias','',0,'AIA=','mfyzv37o',1,0,'',391,0,0),(8699,2015,3,2,0,'87.218.146.249',1141423364,1,0,1,1,1,1,'','','Alex, Gianni,\n\nFixed. Please download FWH.exe again. Thanks,','',0,'AIA=','3lbd9cu1',1,0,'',2,0,0),(8700,2026,3,2,0,'87.218.146.249',1141423519,1,0,1,1,1,1,'','','James,\n\nIt may be an extra or a missing \",\" when calling the linker. Please let us see how you call the linker.','',0,'AIA=','wo5jqo4v',1,0,'',2,0,0),(8701,2019,6,2,0,'87.218.146.249',1141424504,1,0,1,1,1,1,'','','Has probado a llamar a MessageBox() con el valor que te he indicado ?','',0,'AIA=','1we8zk7o',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (8702,2026,3,303,0,'68.7.28.54',1141425620,1,0,1,1,1,0,'','','Antonio,\n\nYeah, a missing comma it was. I would have never thought of that.\n\nThanks,\nJames','',0,'AIA=','15o2m52h',1,0,'',303,0,0),(8703,1988,4,95,0,'201.145.132.78',1141427807,1,0,1,1,1,0,'','','Hello Guys\n\nWell, I have aMC300 that included an WinCE 4.2 NET and my app run fine.\n\n\nHTH\nRegards\nOsvaldo Ramirez','',0,'AIA=','189nscyc',1,0,'',95,0,0),(8704,2029,3,299,0,'69.65.95.131',1141428598,1,0,1,0,1,0,'','Problems with ADS after upgrading to 2.7','Hi.\n\nAfter upgrading from fwh2.5 to fwh2.7 and from xharb 0.99 to xharb 0.99.6, the application no longer accesses the REMOTE ADS server.  I\'m getting an ADS error 5132.\n\nI\'m using the same ace32.lib created with implib from ace32.dll and the new rdd_ads.lib that\'s found on \\xharbour_0.99.6\\lib. \n\nWorking with the LOCAL server, I have no problems.  The problem is only with the REMOTE server (which is the one that matters to me).\n\nAny ideas what is wrong?','',0,'AIA=','3cu6mkiq',1,0,'',299,0,0),(8705,2030,3,299,0,'69.65.95.131',1141428882,1,0,1,0,1,0,'','Problem after upgrading to 2.7','Hi.\n\nHere is another one:\n\nWith fw 2.5 and xharb 0.99, the line below used to execute just fine:\n\n[code:3mbvkiud]\n	REDEFINE RICHEDIT &#58;&#58;oTrDg VAR &#58;&#58;oDg&#58;VarText ID 100 OF &#58;&#58;oFld&#58;aDialogs&#91; 2 &#93; FONT &#58;&#58;oFont\n[/code:3mbvkiud]\n\nBut after upgrading to fw 2.7 and xharb 0.99.6, I get a run time error:\n[code:3mbvkiud]\nPath and name&#58; F&#58;\\mp\\PathLabs&#46;exe &#40;32 bits&#41;\n   Size&#58; 2,825,728 bytes\n   Time from start&#58; 0 hours 1 mins 17 secs \n   Error occurred at&#58; 03/03/2006, 18&#58;30&#58;14\n   Error description&#58; Error BASE/1004  Class&#58; \'BLOCK\' has no exported method&#58; DEFCONTROL\n   Args&#58;\n     &#91;   1&#93; = O   Object\n[/code:3mbvkiud]\n\nCan someone help?\n\nReinaldo.','',0,'AIA=','3mbvkiud',1,0,'',299,0,0),(8706,2030,3,2,0,'87.218.146.249',1141430278,1,0,1,1,1,1,'','','Reinaldo,\n\nIts already fixed. We are going to upload FWH.exe again in a few minutes.\n\nAlready available.','',0,'AIA=','jhzieiml',1,0,'',2,0,0),(8707,2030,3,299,0,'69.65.95.131',1141431932,1,0,1,0,1,0,'','','Gracias Antonio.\n\nYa no tengo ese problema.  Pero tengo otro.  Tal vez esten relacionados.  Este codigo me funcionaba bien con xharb 0.99 y fw2.5:\n[code:29qsmrs6]\n	cFile 	&#58;= WINDIR&#40;&#41;+&quot;t&quot; + strZero&#40; nRandom&#40;&#41;, 6 &#41; + &quot;&#46;rtf&quot;\n	REDEFINE RCHEDIT &#58;&#58;oTrGrss VAR &#58;&#58;oGrss&#58;VarText ID 100 OF &#58;&#58;oFld&#58;aDialogs&#91; 2 &#93; FONT &#58;&#58;oFont\n	MemoWrit&#40; cFile, &#58;&#58;oGrss&#58;VarText &#41;\n	&#58;&#58;oTrGrss&#58;LoadFromRtfFile&#40; cFile &#41;\n	&#58;&#58;oFld&#58;aDialogs&#91; 1 &#93;&#58;SetControl&#40; &#58;&#58;oTrGrss &#41;\n	&#58;&#58;oTrGrss&#58;lReadOnly	&#58;= &#58;&#58;lReadOnly\n	&#58;&#58;oTrGrss&#58;oDbf		&#58;= &#58;&#58;oGrss\n	&#58;&#58;oFld&#58;aDialogs&#91; 1 &#93;&#58;Cargo  &#58;= &quot;TRICHEDIT&quot;\n\n	cFile 	&#58;= WINDIR&#40;&#41;+&quot;t&quot; + strZero&#40; nRandom&#40;&#41;, 6 &#41; + &quot;&#46;rtf&quot;\n	REDEFINE RCHEDIT &#58;&#58;oTrDg VAR &#58;&#58;oDg&#58;VarText ID 100 OF &#58;&#58;oFld&#58;aDialogs&#91; 2 &#93; FONT &#58;&#58;oFont\n	MemoWrit&#40; cFile, &#58;&#58;oDg&#58;VarText &#41;\n	&#58;&#58;oTrDg&#58;LoadFromRtfFile&#40; cFile &#41;\n	&#58;&#58;oTrDg&#58;oDbf		&#58;= &#58;&#58;oDg\n	&#58;&#58;oFld&#58;aDialogs&#91; 2 &#93;&#58;SetControl&#40; &#58;&#58;oTrDg &#41;\n	&#58;&#58;oTrDg&#58;lReadOnly	&#58;= &#58;&#58;lReadOnly\n	&#58;&#58;oFld&#58;aDialogs&#91; 2 &#93;&#58;Cargo  &#58;= &quot;TRICHEDIT&quot;\n\n[/code:29qsmrs6]\nAhora cuando ejecuta recibo este run time error:\n[code:29qsmrs6]\nApplication\n===========\n   Path and name&#58; F&#58;\\mp\\PathLabs&#46;exe &#40;32 bits&#41;\n   Size&#58; 2,821,120 bytes\n   Time from start&#58; 0 hours 0 mins 7 secs \n   Error occurred at&#58; 03/03/2006, 19&#58;20&#58;28\n   Error description&#58; Error FiveWin/2  Duplicated Id&#58; No&#58;    100\n[/code:29qsmrs6]\n\nNo debiera quejarse, pues cada control se encuentra dentro un folder diferente.\n\nQue piensas?\n\n\nReinaldo.','',0,'AIA=','29qsmrs6',1,0,'',299,0,0),(8708,2031,3,339,0,'200.217.115.166',1141433858,1,0,1,1,1,0,'','Error in MAcro XHARBOUR','Dear My Friend\n\n  Error in MACRO....\n\n\n     For j = 1 to len(::fields)\n         mVar = \"::\"+::fields[j]\n         value = ::ALIAS:Fields( ::fields[j] ):Value\n         msginfo(mvar,\"1\")\n         &amp;mvar = value       -&gt; [b:1mxf7qcv]Here Abort Program[/b:1mxf7qcv]       \n         msginfo(mvar,\"2\")\n     Next\n\n\n   Some People Knows AS Solution this problem \n\n\nThanks Everybody...','',0,'QA==','1mxf7qcv',1,0,'',339,0,0),(8709,2021,3,160,0,'210.212.142.91',1141446877,1,0,1,1,1,0,'','Re: How to invoke a function on pressing Enter in TwBrowse ?','Dear Enrico,\n\nYes it works. Thanks a lot.\n\nWith best regards,\n\nMilan.\n\n[quote=&quot;EnricoMaria&quot;:2o4a4hb8][code:2o4a4hb8]oBrw&#58;bKeyDown  = &#123; | nKey | IF &#40;nKey == 13, MyFunc&#40;&#41;,&#41; &#125;[/code:2o4a4hb8]\n\nEMG[/quote:2o4a4hb8]','',0,'gIA=','2o4a4hb8',1,0,'',160,0,0),(8710,2031,3,138,0,'200.65.139.106',1141451721,1,0,1,1,1,1,'','','Correct me if I\'m wrong, but as far as I know.... YOU CANNOT USE MACROS WITH DATAS OR METHODS IN CLASSES !!!!!!\n\nYou\'d better use a codeblock instead.','',0,'gIA=','1i94mnqf',1,0,'',138,0,0),(8711,2029,3,138,0,'200.65.139.106',1141452064,1,0,1,1,1,1,'','','There ware changes in the RDDADS in the most recent release of xHarbour...\n\ndid  you changed the REQUEST _ADS by REQUEST ADS ?\n\nI\'ve tested FWH 2.7 and all seems to be working ok.\n\nPlease feel free to contact me via private email, so I can give you a hand.\n\nBy the way I\'ll be in Miami from April 1 to 5, may be we could meet each other.','',0,'gIA=','1nxustx9',1,0,'',138,0,0),(8712,2026,3,138,0,'200.65.139.106',1141452278,1,0,1,1,1,1,'','','[quote=\"\nYeah, a missing comma it was....[/quote]\n\nYou sound like Master Yoda of StarWars  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','j0tgsoza',1,0,'',138,0,0),(8713,2031,3,2,0,'87.218.146.249',1141452375,1,0,1,1,1,1,'','','Mauricio,\n\nUse these functions:\n[code:1yzu2hkh]\n __ObjSendMsg&#40; &lt;oObject&gt;, &lt;cDataName&gt; &#41; --&gt; &lt;uValue&gt;\n\n __ObjSendMsg&#40; &lt;oObject&gt;, &quot;_&quot; + &lt;cDataName&gt;, &lt;uValue&gt; &#41;\n[/code:1yzu2hkh]\nThe first call is to retrieve a value, the second call is to set it.','',0,'AIA=','1yzu2hkh',1,0,'',2,0,0),(8714,2015,3,3,0,'82.64.198.147',1141457687,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:cyxz2iez]Alex, Gianni,\n\nFixed. Please download FWH.exe again. Thanks,[/quote:cyxz2iez]\n\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nAntonio\n\nCan you clarify this a bit more please ?\n\nDo we have to remove the ole.obj from fw library for Activex or any Ole related to xharbour. Many of us use Ole with word, excel , etc...\nWhat is the correct behaviour ? \n\nThank you \n\nRichard','',0,'gA==','cyxz2iez',1,0,'',3,0,0),(8715,1951,4,51,0,'80.122.88.242',1141457878,1,0,1,1,1,0,'','','As I see on the \"views row\" not all of your read this info.\nBut this is really a timesaver.\n\nI developed a \"Stockcontrol\" component for the mobile device.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.winhotel.at/stockcontrol/inventurerfassung_am_ipaq.htm\">http://www.winhotel.at/stockcontrol/inv ... m_ipaq.htm</a><!-- m -->\n\nTo exchange the files between the PC and the mobile device\nI call:\n\n waitrun(\"cecopy /is c:\\ts6\\export\\*.*  dev:\\import\",1)\n<!-- m --><a class=\"postlink\" href=\"http://www.winhotel.at/stockcontrol/clip14.jpg\">http://www.winhotel.at/stockcontrol/clip14.jpg</a><!-- m -->\n\nRegards\nOtto','',0,'gA==','1dz4yixy',1,0,'',51,0,0),(8716,2010,6,474,0,'200.65.127.161',1141459082,1,0,1,1,1,1,'','','Problema solucionado.....\n\nJejeje. es ke no junciona el erase y el delee tag all. porke kien sabe\n\ny los ADI eran los ke krecian muchooo  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nPerdon pero hasta ke uno hace las cosas se ven las soluciones, no se puede confiar uno de los Usuarios, jeje\n\nPERO DE TODOS MODOS EL ERASE Y EL DELETE TAG ALL NO FUNCIONANNNNNNN','',0,'gA==','366zuiz4',1,0,'',474,0,0),(8717,2026,3,6,0,'82.57.161.209',1141465813,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2rp8961d][quote:2rp8961d]\nYeah, a missing comma it was....[/quote:2rp8961d]\n\nYou sound like Master Yoda of StarWars  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:2rp8961d]\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEMG','',0,'gA==','2rp8961d',1,0,'',6,0,0),(8718,2031,3,339,0,'200.217.115.166',1141466845,1,0,1,1,1,0,'','','It´s Very Good , HaD Your Help....\n\n\n   Thanks Antonio...','',0,'gA==','2r1jbm7x',1,0,'',339,0,0),(8719,2032,7,28,0,'87.218.46.222',1141468321,1,0,1,1,1,0,'','Menú desde código','Hola \n\nHe estado pensando en el Menú por código. ¿Es factible? lo digo porque había pensado en hacer un menú por código pero como nuevo control. Si es posible no me doy el curro.\n\nUn saludo','',0,'gA==','210yuqzh',1,0,'',28,0,0),(8720,2015,3,2,0,'87.218.146.249',1141474190,1,0,1,1,1,1,'','','Richard,\n\nNo, there is no need to remove anything at all <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nFWH works fine with Harbour, xHarbour and xHB.','',0,'gA==','1itqzl03',1,0,'',2,0,0),(8721,2032,7,2,0,'87.218.146.249',1141474311,1,0,1,1,1,1,'','','Paco,\n\nEn WinCE si es posible, por lo visto, pero no en Windows Mobile. Que sepamos de momento...','',0,'gA==','j4nzr3c3',1,0,'',2,0,0),(8722,2033,3,154,0,'151.81.3.68',1141482601,1,0,1,1,1,1,'','TSay error on W2K','This error return me on a W2K, is not found on WXP. \nI have solved adding in the Say.prg this declaration:\nDEFAULT::lTransparent: =  .F.\nin the EraseBkGnd method \n\nHi to all\n\nThe error:\n   Descrizione: Error BASE/1079  Parametro errato: .OR.\n   Args:\n     [   1] = L   .F.\n     [   2] = U   \n\nStack Calls\n===========\n   Called from: SAY.prg =&gt; TSAY:ERASEBKGND(228)\n   Called from: WINDOW.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.prg =&gt; TCONTROL:HANDLEEVENT(1353)\n   Called from: SAY.prg =&gt; TSAY:HANDLEEVENT(198)\n   Called from: WINDOW.prg =&gt; _FWH(3145)\n   Called from:  =&gt; SHOWWINDOW(0)\n   Called from: WINDOW.prg =&gt; TMDIFRAME:ACTIVATE(867)\n   Called from: I1Wind.prg =&gt; I1WIND(247)\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TSAY:ERASEBKGND\n     Param   1:    N    -184481576\n     Local   1:    O    Class: TSAY\n     Local   2:    L    .F.\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    20\n     Param   2:    N    -184481576\n     Param   3:    N    0\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    20\n     Param   2:    N    -184481576\n     Param   3:    N    0\n     Local   1:    O    Class: TSAY\n   TSAY:HANDLEEVENT\n     Param   1:    N    20\n     Param   2:    N    -184481576\n     Param   3:    N    0\n     Local   1:    O    Class: TSAY\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    20\n     Param   3:    N    -184481576\n     Param   4:    N    0\n     Param   5:    N    9\n     Local   1:    O    Class: TSAY\n   SHOWWINDOW\n     Param   1:    N    6423450\n     Param   2:    N    3\n\n....','',0,'','2ms4813f',1,0,'',154,0,0),(8723,2027,3,446,0,'87.7.210.222',1141482621,1,0,1,1,1,0,'','','Enrico,\nthanks for your answer\n\nhowever I have found this other way that is simpler than setting and then restoring the default printer:\n\nShellExecute(0,\"PrintTo\",cMyDocument,\"PDFCreator\",0,1)\n\nRoberto','',0,'','4iqf26tz',1,0,'',446,0,0),(8724,2033,3,154,0,'151.81.3.68',1141482716,1,0,1,1,1,1,'','Re: TSay error on W2K','[quote=&quot;Ugo&quot;:17efadoo]\nDEFAULT::lTransparent: =  .F.\n[/quote:17efadoo]\n\n[code:17efadoo]DEFAULT &#58;&#58;lTransparent = &#46;F&#46;[/code:17efadoo]\n\nSorry  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','17efadoo',1,0,'',154,0,0),(8725,702,2,228,0,'201.245.222.85',1141482744,1,0,1,1,1,1,'','Me rebota en tu correo?','Amigo intente mandarte la clase pero me reboto el correo de hotmail, si tienes otro correo electronico con mas capacidad te la envio.','',0,'gIA=','1luka7l5',1,0,'',228,0,0),(8726,2033,3,6,0,'82.57.161.209',1141483101,1,0,1,1,1,1,'','Re: TSay error on W2K','It is already fixed in the March build.\n\nEMG','',0,'gIA=','1hc0r3sp',1,0,'',6,0,0),(8727,2034,3,195,0,'62.38.79.104',1141483370,1,0,1,1,1,0,'','Unresolved externals  in  new TestRtf Sample','Hello to all !!\n\nTrying to compile the new TestRTF sample, the following unresolved externals appeared :\n\n_GetFileVersionInfoSizeA\n_GetFileVersionInfoA\n_VerQueryValueA\n\nBy the way the new samples for ActiveX (WebeExp.prg and media.prg )doesn\'t work , as side effect  mention that my pc locked out and needed to be restrarted.\n\nAny quidance on these problems will be appreciate.\n\nMany thanks\nDionisis','',0,'gIA=','2kauzoh9',1,0,'',195,0,0),(8728,2027,3,6,0,'82.57.161.209',1141483547,1,0,1,1,1,1,'','','Wonderful!\n\nEMG','',0,'gIA=','ljbywsgy',1,0,'',6,0,0),(8729,2034,3,67,0,'62.235.25.245',1141484522,1,0,1,1,1,0,'','','You have to link in :\n\nC:\\xHB\\c_lib\\Win\\version.lib','',0,'gIA=','2k4kkqro',1,0,'',67,0,0),(8730,2034,3,3,0,'82.255.92.162',1141484564,1,0,1,1,1,1,'','Re: Unresolved externals  in  new TestRtf Sample','[quote=&quot;Sakis&quot;:8rsz4peo]Hello to all !!\n\nTrying to compile the new TestRTF sample, the following unresolved externals appeared :\n\n_GetFileVersionInfoSizeA\n_GetFileVersionInfoA\n_VerQueryValueA\n\nBy the way the new samples for ActiveX (WebeExp.prg and media.prg )doesn\'t work , as side effect  mention that my pc locked out and needed to be restrarted.\n\nAny quidance on these problems will be appreciate.\n\nMany thanks\nDionisis[/quote:8rsz4peo]\n\nDionisis\n\nFor the first problem you have to link version.lib \n\nYou will find this in \\xhb\\c_lib\\win\n\nFor the second problem, i guess (not tested) you have to download the new march build\n\nRichard','',0,'gA==','8rsz4peo',1,0,'',3,0,0),(8731,2029,3,299,0,'69.65.95.131',1141485670,1,0,1,0,1,0,'','','René;\n\nI\'ll be most pleased to meet with you in Miami.  I\'ll love to chat a while.  I\'ll take you to dinner and a beer.   How is that?\n\nOn the ADS subject, I\'m puzzled.\n\nI\'m requesting ADS instead of _ADS with both versions of the compiler.  AMOF, here are my requests no matter the compiler version in use:\n\nREQUEST DBFCDX\nREQUEST ADS\nREQUEST ADSKeyCount, ADSKeyNo, OrdKeyCount, OrdKeyNo\n\nI must admit, that with the older version of the compiler I rebuilt rdd_ads using updated .c sources.   So that explains why I never REQUESTed _ADS.\n\nIf I change my compile-link script to use xharb 0.99 and fwh 2.5 it all works just fine again.  I must add that whenever I change the compiler to xharb 0.99.6 with fwh 2.7, I must also take out DBFDBT.lib and add HBSIX.lib.  No other changes.  It all compiles with no errors on both versions.  The problem is at run time.  With the new version of the compiler, the app connects to the REMOTE server ok, but can not open any of the dbfs without generating a run time ADS error 5132.\n\nI have another application that creates the DD.  I moved that app also over to 0.99.7 and fwh 2.7.  Aside from the fact that no longer do I have ADSConnectionhandle() function available in the new rdd_ads, It all works fine.  Now, that app only creates the DD via ADS API calls.  I do not try to connect to any dbf here.\n\nI\'ll keep investigating.  If I find anything else, I\'ll write to you.  Remember to let me know when the day approaches for your visit.  ok?  Looking forward to meeting you.\n\nTake care,\n\n\nReinaldo.','',0,'gA==','2ogf01wa',1,0,'',299,0,0),(8732,2034,3,195,0,'62.38.79.104',1141486292,1,0,1,1,1,0,'','','Hello Richard\n\nI already download  today\'s release but nothing hapens.  The problems renmains  the same .\n\nMany Thanks for your help.\n\n\nTIA\nDionisis','',0,'gA==','rmadng41',1,0,'',195,0,0),(8733,2015,3,22,0,'151.49.149.74',1141486451,1,0,1,1,1,0,'','','Many thanks but I still ave 2 error:\n[code:37bfkabc]\n\nType&#58; C &gt;&gt;&gt;xlink&#46;exe -NOEXPOBJ -MAP -FORCE&#58;MULTIPLE -NOIMPLIB -subsystem&#58;windows -UNMANGLE -LIBPATH&#58;&quot;C&#58;\\xHB\\lib&quot; -LIBPATH&#58;&quot;C&#58;\\xHB\\c_lib&quot; -LIBPATH&#58;&quot;C&#58;\\xHB\\c_lib\\win&quot;  -LIBPATH&#58;&quot;C&#58;\\fivewin\\lib&quot; &quot;webexp2&#46;obj&quot; FiveHCM&#46;lib FiveHMX&#46;lib OptG&#46;lib xhb&#46;lib dbf&#46;lib ntx&#46;lib cdx&#46;lib rmdbfcdx&#46;lib activex&#46;lib crt&#46;lib kernel32&#46;lib user32&#46;lib winspool&#46;lib ole32&#46;lib oleaut32&#46;lib odbc32&#46;lib odbccp32&#46;lib uuid&#46;lib wsock32&#46;lib ws2_32&#46;lib wininet&#46;lib advapi32&#46;lib shlwapi&#46;lib comctl32&#46;lib comdlg32&#46;lib gdi32&#46;lib shell32&#46;lib winmm&#46;lib lz32&#46;lib Netapi32&#46;lib -out&#58;&quot;webexp&#46;exe&quot;&lt;&lt;&lt;\n\nxLINK&#58; error&#58; Unresolved external symbol \'??2@YAPAXI@Z\'&#46;\n\nxLINK&#58; error&#58; Unresolved external symbol \'??3@YAXPAX@Z\'&#46;\n\nxLINK&#58; fatal error&#58; 2 unresolved external&#40;s&#41;&#46;\n\n\nType&#58; C &gt;&gt;&gt;Couldn\'t build&#58; webexp&#46;exe&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEPROJECT&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEPROJECT&#58;REFRESH&lt;&lt;&lt;\nType&#58; N &gt;&gt;&gt;      1266&lt;&lt;&lt;\n\n[/code:37bfkabc]','',0,'AIA=','37bfkabc',1,0,'',22,0,0),(8734,2035,1,477,0,'65.93.190.32',1141487251,1,0,1,1,1,0,'','a device attached','when your strating your application and this message append\n\na device attached to the system is not functionning\n\nwhat and where I have to look if I mant to fix it\n\nL need held','',0,'AIA=','1dy873tm',1,0,'',477,0,0),(8735,2015,3,2,0,'87.218.146.227',1141489507,1,0,1,1,1,1,'','','Alex, Gianni,\n\nFixed! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nPlease link this OBJ from xHB: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/f2f7d320/test.obj.html\">http://hyperupload.com/download/f2f7d320/test.obj.html</a><!-- m -->','',0,'AIA=','38yjxdii',1,0,'',2,0,0),(8736,2030,3,299,0,'69.65.95.131',1141489755,1,0,1,0,1,0,'','','Antonio;\n\nOlvidalo.  Mi error.  Si te fijas entré ::ofld:aDialogs[ 2 ] en ambos parrafos.  Sorry.\n\nGracias por tu ayuda.\n\nSaluods,\n\n\nReinaldo.','',0,'','psqqhzub',1,0,'',299,0,0),(8737,2034,3,2,0,'87.218.146.227',1141489774,1,0,1,1,1,1,'','','Fixed! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nPlease link this OBJ from xHB:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/f2f7d320/test.obj.html\">http://hyperupload.com/download/f2f7d320/test.obj.html</a><!-- m -->','',0,'','3k460143',1,0,'',2,0,0),(8738,2030,3,2,0,'87.218.146.227',1141489874,1,0,1,1,1,1,'','','Reinaldo,\n\nglad to know it is ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','jlrmohx3',1,0,'',2,0,0),(8739,2036,3,2,0,'87.218.146.227',1141493090,1,0,1,1,1,1,'','FWH TActiveX support for xHB - OK!','Fixed! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPlease link this OBJ from xHB: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/f2f7d320/test.obj.html\">http://hyperupload.com/download/f2f7d320/test.obj.html</a><!-- m -->','',0,'','35utowrh',1,0,'',2,0,0),(8740,2029,3,2,0,'87.218.146.188',1141493776,1,0,1,1,1,1,'','','Reinaldo,\n\n&gt;&gt;   Dbusearea( ::lNew ,::cRDD ,::cFileName ,::cAlias , ::lShared \n&gt;&gt; ,::lReadonly )\n\nPlease place a MsgInfo( ::cFileName ) before that call just to check what name is used.','',0,'','joyriy5a',1,0,'',2,0,0),(8741,2035,1,2,0,'87.218.146.188',1141494863,1,0,1,1,1,1,'','','Richard,\n\nThat error is a random error that Blinker created EXEs report sometimes.\n\nPlease delete all temporary blinker created files, and also try this changes in your LNK file:\n\nSearch Five, FiveC, Objects, WinApi \ninto\nLib Five, FiveC, Objects, WinApi\nor viceversa','',0,'','2tm710oz',1,0,'',2,0,0),(8742,2033,3,154,0,'151.81.4.153',1141494870,1,0,1,1,1,1,'','Re: TSay error on W2K','[quote=&quot;EnricoMaria&quot;:25mx1s0i]It is already fixed in the March build.[/quote:25mx1s0i]\n\nThank you.','',0,'gA==','25mx1s0i',1,0,'',154,0,0),(8743,2029,3,299,0,'69.65.95.131',1141496039,1,0,1,0,1,0,'','','Antonio;\n\nOn the error window the file being attempted to open is displayed.\n\n\"u:\\ide2\\adsdata\\upi\\users.dbf\"\n\nAnd that is the correct file name and path alright.  Remember, I can recompile the app over with xharb 0.99 + fwh 2.5 and it all works just fine.  No changes to the code...\n\nReinaldo.','',0,'gA==','36jt4p2m',1,0,'',299,0,0),(8744,2037,3,299,0,'69.65.95.131',1141498771,1,0,1,0,1,0,'','Printing RTFs with rePrintBox','Antonio;\n\nHi.  I\'m a little lost here.\n\nI have rtf text stored on memo fields I wish to print without displaying on the screen.  With RePrintBox() it seems like I must have the rtf being displayed.  right?\n\nI tried defining the control without displaying by never calling the activate diaglog clause.  But still, nothing prints.  Here is what I\'m using to print:\n[code:1ze4ufji]\nlocal a 		&#58;= &#58;&#58;oprn&#58;Inch2Pix&#40; 4&#46;69, 0&#46;75 &#41;\nlocal b		&#58;= &#58;&#58;oprn&#58;Inch2Pix&#40; 9&#46;00, 7&#46;75 &#41;\n\n	&#58;&#58;oTranscript&#58;oTrGrss&#58;Selectall&#40;&#41;\n	REPrintBox&#40; &#58;&#58;oTranscript&#58;oTrGrss&#58;hWnd, If&#40; &#58;&#58;isPreview, &#58;&#58;oPrn&#58;hDCOut, &#58;&#58;oPrn&#58;hDC &#41;, ;\n                     &#58;&#58;oTranscript&#58;oTrGrss&#58;IsSelection&#40;&#41;, a&#91;1 &#93;, a&#91;2&#93;, b&#91;1&#93;, b&#91;2&#93; &#41;\n\n\n[/code:1ze4ufji]\n\nHow can I print rtf, straight from the memo field to the printer or preview without redefining the richedit control?\n\nReinaldo.','',0,'AIA=','1ze4ufji',1,0,'',299,0,0),(8745,2032,7,28,0,'87.218.46.222',1141499169,1,0,1,1,1,0,'','','Entonces intentaré sacar tiempo esta semana y tendremos menu por código <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nUn abrazo','',0,'AIA=','1ohb6lrl',1,0,'',28,0,0),(8746,2038,6,383,0,'201.240.77.28',1141505689,1,0,1,1,1,0,'','ZIP UNZIP CON xHarbour','Ante todo, muchas gracias por sus respuestas anteriores me han ayudado lo necesario. Sin embargo, ahora necesito un ejemplo claro para comprimir y descomprimir archivos en formato zip con xHarboour. Compile y enlaze los ejemplos que trae el fivewin pero salen mensajes de error. Actualmente uso Fivewin 2.5 For Harbour y xHarbour.','',0,'AIA=','sa53vqto',1,0,'',383,0,0),(8747,2037,3,2,0,'87.218.146.188',1141509291,1,0,1,1,1,1,'','','Reinaldo,\n\nYou may keep the richedit control hidden (oRichEdit:Hide())','',0,'AIA=','8m3ewsnr',1,0,'',2,0,0),(8748,2039,20,125,0,'151.81.3.129',1141511411,1,0,1,1,1,0,'','XML e d\'intorni','Ciao a tutti,\nun cliente mi ha chiesto i dati della fatturazione da DBF in XML e mi ha dato il tracciato/schema.\nIo x non fare la figura di chi non sa niente su XML ho preso tempo e ho analizzato l\'xml. Un dubbio solo (+/-) mi sorge.\n \nIl file .XML che mi ha mandato di esempio inizia cosi\':\n**********************************************\n1 riga---&gt;  &lt;?xml version=\"1.0\" encoding=\"UTF-8\" ?&gt; \n2 riga---&gt;  &lt;InvoiceCustom   xmlns:xsi= \"http://www.w3.org/2001/XMLSchema-instance\" xsi:noNamespaceSchemaLocation=\"Z:\\06_Sviluppo\\Specifiche Funzionali\\Fatturazione\\Specifiche tecniche\\Mappe Idoc\\Schema XML\\Schema XML per inserimento fatture da SUS\\InvoiceCustom_v01.xsd\"&gt;\n3 riga---&gt; &lt;E1EDK01&gt;\n                ..... ecc \n********************************\nQuello che non capisco e\':\n1 riga: UTF-8: che roba e\'.\n2 riga: a parte InvoiceCustom che dovrebbe essere la tabella, tutto il resto a che cosa  serve? Va indicato nel file di ritorno?\n\nPer il resto e\' abbastanza semplice costruirlo in clipper, in pratica sono record/s ASCII in verticale invece che in orizzontale.\n\nAccetto qualsiasi aiuto o indicazioni ove reperire materiale  di aiuto.\nGrazie\nPiscicelli/Zingoni','',0,'AIA=','qy1tnw2y',1,0,'',125,0,0),(8749,2037,3,299,0,'69.65.95.131',1141514295,1,0,1,0,1,0,'','','Antonio;\n\nYes, that did it.  Thank you.  \n\nI added a new method to the same class that does the data gathering.    Here is that method:\n\n[code:1e0txyml]\n*------------------------------------------------------------------------------------\nMETHOD DisplayHidden&#40;&#41; CLASS PathTrans\nlocal oSelf	&#58;= self, i\n\n	for i&#58;=1 to len&#40; &#58;&#58;aRtfs &#41;\n		&#58;&#58;aRtfs&#91; i &#93;&#58;hide&#40;&#41;\n	next i\n\n	ACTIVATE DIALOG oSelf&#58;oDlg CENTERED NOWAIT\n	&#58;&#58;oDlg&#58;Hide&#40;&#41;\n\nreturn nil\n\n*------------------------------------------------------------------------------------\n[/code:1e0txyml]\n\nBest,\n\n\nReinaldo.','',0,'AIA=','1e0txyml',1,0,'',299,0,0),(8750,2040,3,217,0,'201.42.112.20',1141514554,1,0,1,1,1,0,'','Position of menu in window','Hi!\n\nIs possible set the menu position to any place in a window with FWH?\nI´m asking about it because I saw a program made in Delphi (argh!) that position the menu in footer window position.\n\nBest regards\nMaurilio','',0,'AIA=','mu3fviv6',1,0,'',217,0,0),(8751,2037,3,299,0,'69.65.95.131',1141520239,1,0,1,0,1,0,'','','Antonio;\n\nMore questions on RePrintBox:\n\nI\'m now able to print rtf on a given location on the tprinter page.  Good.  However, what happens when the text does not fit completetly and I must run to the next page?\n\nHow do I know how far did the printed text go so that I may continue on the next page with the rest of the text?  \n\nAnd, is there a way to know exactly at what position on the page the last line was printed?\n\nThank you,\n\n\nReinaldo.','',0,'AIA=','yswnn4e6',1,0,'',299,0,0),(8752,2040,3,303,0,'68.7.28.54',1141522250,1,0,1,1,1,0,'','','Maurilio,\n\n&gt;I´m asking about it because I saw a program made in Delphi (argh!) that position the menu in footer window position.&lt; \n\nIts probably better to let some other poor sap make mistakes like that. A menu at the bottom would really confuse and frustrate users.\n\nJames','',0,'AIA=','e9rok501',1,0,'',303,0,0),(8753,2041,6,292,0,'201.248.85.65',1141524640,1,0,1,1,1,1,'','Detectar Impresoras Instaladas','Colegas\n\nNecesito determinar cuantas impresoras estan instaladas.\nCuando utilizo la funcion PrnGetName() y no existe impresora definida emite error GPF','',0,'AIA=','2mmpp185',1,0,'',292,0,0),(8754,2034,3,195,0,'62.38.79.104',1141542956,1,0,1,1,1,0,'','','Hi Antonio \n\n\nUnfortunately  the WebeXP and media sample not running with this obj file (test.obj).\n\nHere is the link for the error log file.\n\n[url:14j8i3as]http&#58;//hyperupload&#46;com/download/cf0ab040/Error&#46;log&#46;html[/url:14j8i3as]\n\n\nI am sure that you find the solution on this problem <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMany thanks\nDionisis','',0,'EA==','14j8i3as',1,0,'',195,0,0),(8755,2035,1,266,0,'60.50.54.142',1141546290,1,0,1,1,1,1,'','','It happens for Blinker v5.1 and below, solved in Blinker v7.0','',0,'EA==','3cz5mred',1,0,'',266,0,0),(8756,2034,3,2,0,'87.218.146.188',1141549860,1,0,1,1,1,1,'','','Dionisis,\n\nPlease link Fivehmx.lib before xharbour libraries.\n\nYou may download fwh.exe again, so there is no need to use the obj I provided <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','31gcrexz',1,0,'',2,0,0),(8757,2036,3,2,0,'87.218.146.188',1141550257,1,0,1,1,1,1,'','','You may download FWH.exe again, so there is no need to use that obj.\n\nPlease remember to link FWH libraries before xharbour ones.','',0,'EA==','1ho6jq85',1,0,'',2,0,0),(8758,2034,3,195,0,'62.38.79.104',1141550589,1,0,1,1,1,0,'','','Hi Antonio\n\nI use the commercial  compiler of xHarbour not the one that comes  from xHarbour.org  so  there is no such a way to rearange the way that compiler and linker process the libraries. Except there is a way..... \n\n\nTIA\nDIONISIS','',0,'EA==','3thb2gsk',1,0,'',195,0,0),(8759,2034,3,2,0,'87.218.146.188',1141550796,1,0,1,1,1,1,'','','Dionisis,\n\nDo you use xharbour builder to build samples\\webexp.prg ?\n\nWe have successfully built it using xharbour builder.','',0,'EA==','gg18rfnk',1,0,'',2,0,0),(8760,2034,3,195,0,'62.38.79.104',1141552409,1,0,1,1,1,0,'','','Yes Antonio \n\nI use the xHarbour builder to build the sample,  but i get the same  error.log as those i already sented  to  you.\n\n\n\nTIA\nDionisis','',0,'EA==','bp003z7l',1,0,'',195,0,0),(8761,2034,3,2,0,'87.218.146.188',1141553630,1,0,1,1,1,1,'','','Dionisis,\n\nDo you have an ActiveX.lib ? If so, please rename it as _ActiveX.lib.\n\nOr replace it for this one (from the xHB demo):\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/d7a0b696/ActiveX.lib.html\">http://hyperupload.com/download/d7a0b69 ... X.lib.html</a><!-- m -->\n\nI appreciate your feedback,','',0,'EA==','2288sqtl',1,0,'',2,0,0),(8762,2042,3,3,0,'82.255.92.162',1141554152,1,0,1,1,1,1,'','Xhb February and latest fwh','Antonio,   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nI have not yet upgraded my xhb to the latest february build. I still use jan build for Xhb and FWH  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nOne of your posts concerning \"C\" code changes is worrying me. I use many third party libraries that contain C code almost all of them. Hernan\'s twbrowse (i saw you published a fix for this one), tsbuttons, tsbrowse,VRD ...  \n\nDo we have to make changes to all these c codes ? If so has anyone made these changes and can share them ?   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nThanks in advance for clarifying,   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRichard','',0,'EA==','1zfrtcht',1,0,'',3,0,0),(8763,2034,3,195,0,'62.38.79.104',1141554931,1,0,1,1,1,0,'','','Hi agn Antonio\n\nChanging the original ActiveX.lib with the demo one  i have the following Unresolved External.\n\n_HB_FUN_TACTIVEX\n\nBy the way the demo\'s ActiveX library size is only 5 kb as the original is almost 110kb.\n\n\nTIA \nDionisis','',0,'EA==','2rro57bf',1,0,'',195,0,0),(8764,2034,3,2,0,'87.218.146.188',1141555674,1,0,1,1,1,1,'','','Dionisis,\n\nTActiveX() is provided in Fivehmx.lib. Are you linking Fivehmx.lib ?\n\nThis problem is caused because xHB has used the name TActiveX that we were already using for this Class.\n\n&gt; By the way the demo\'s ActiveX library size is only 5 kb as the original is almost 110kb. \n\nYes, its an empty library they provide with the demo version.\n\nDionisis, are you testing samples\\webexp.prg or is it part of your application ?','',0,'EA==','lk6d8kop',1,0,'',2,0,0),(8765,2043,3,473,0,'213.119.222.114',1141556057,1,0,1,1,1,0,'','TSBrowse - autoappend and autoedit','Adding a new line with autoappend is working fine.\n\nThe first column has focus and de cursor is ready for input.\n\nNow I want that I have to push the return button before the status of the column is in edit.\n\nlAutoEdit does not the job.\n\nVery often a user has nothing to enter in the first column. So I want that the user first selects the column, press enter and edit the col.\n\nDoes someone has a solution for this.\n\nThanks,\n\nWilly Hermans.','',0,'EA==','1fv87c1y',1,0,'',473,0,0),(8766,2042,3,2,0,'87.218.146.188',1141556258,1,0,1,1,1,1,'','','Richard,\n\nIn the past two months there have been several changes in Harbour/xHarbour that required to modify FWH.\n\nThe first one was related with _hb_stack that can no longer be used. \n\nThe second one was with the PHB_ITEM that can not be directly managed (as a pointer to a structure).\n\nIt was not FWH desition to make these changes. We had to adapt to them, in order to keep compatibility with Harbour/xHarbour changes.\n\nIf you recompile your C source code, then you should not have any problems, except on those C functions where PHB_ITEMs are directly managed. In those cases several minor changes are required, like the ones we implemented in Hernan\'s browse as a sample.\n\nOur advise is that you should start using FWH February build and see what problems you may have with third party utilities and together implement the fixes, if needed.','',0,'EA==','37klislp',1,0,'',2,0,0),(8767,2042,3,3,0,'82.255.92.162',1141561098,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3gw8jai3]Richard,\n\nIn the past two months there have been several changes in Harbour/xHarbour that required to modify FWH.\n\nThe first one was related with _hb_stack that can no longer be used. \n\nThe second one was with the PHB_ITEM that can not be directly managed (as a pointer to a structure).\n\nIt was not FWH desition to make these changes. We had to adapt to them, in order to keep compatibility with Harbour/xHarbour changes.\n\nIf you recompile your C source code, then you should not have any problems, except on those C functions where PHB_ITEMs are directly managed. In those cases several minor changes are required, like the ones we implemented in Hernan\'s browse as a sample.\n\nOur advise is that you should start using FWH February build and see what problems you may have with third party utilities and together implement the fixes, if needed.[/quote:3gw8jai3]\n\nAntonio\n\nIf only HB_ITEM has to be changed, then there is nothing to change in TSBUTTON, TSBROWSE and VRD None of these are using HB_item\n\nI am going to make tests this afternoon and report back.\n\nThanks for your help,\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3gw8jai3',1,0,'',3,0,0),(8768,2042,3,3,0,'82.255.92.162',1141565470,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:2tg34tg7][quote=&quot;Antonio Linares&quot;:2tg34tg7]Richard,\n\nIn the past two months there have been several changes in Harbour/xHarbour that required to modify FWH.\n\nThe first one was related with _hb_stack that can no longer be used. \n\nThe second one was with the PHB_ITEM that can not be directly managed (as a pointer to a structure).\n\nIt was not FWH desition to make these changes. We had to adapt to them, in order to keep compatibility with Harbour/xHarbour changes.\n\nIf you recompile your C source code, then you should not have any problems, except on those C functions where PHB_ITEMs are directly managed. In those cases several minor changes are required, like the ones we implemented in Hernan\'s browse as a sample.\n\nOur advise is that you should start using FWH February build and see what problems you may have with third party utilities and together implement the fixes, if needed.[/quote:2tg34tg7]\n\nAntonio\n\nIf only HB_ITEM has to be changed, then there is nothing to change in TSBUTTON, TSBROWSE and VRD None of these are using HB_item\n\nI am going to make tests this afternoon and report back.\n\nThanks for your help,\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:2tg34tg7]\n\nAntonio  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nConfirmed, \n\nTsbutton, Tsbrowse, VRD work OK with FWh march and XHB february without any change (just recompile).\n\nHernan\'s twbrowse recompiled with the c program changed work OK.\n\nJust the dynsymsymbol error at link fixed by the following found on this forum.\n\n#pragma BEGINDUMP \n\n#include \"hbapi.h\" \n#include \"hbapiitm.h\" \n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) \n{ \nreturn pDynSym-&gt;pSymbol; \n} \n\nRichard','',0,'gA==','2tg34tg7',1,0,'',3,0,0),(8769,2042,3,2,0,'87.218.146.188',1141569482,1,0,1,1,1,1,'','','Richard,\n\nglad to know it is ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','20wxa2wq',1,0,'',2,0,0),(8770,1730,6,439,0,'201.221.37.203',1141570841,1,0,1,1,1,0,'','Gracias, necesito una ayuda más','Muchas gracias por la lib de Twbrowse 1.7, anduvo al pelo en harbour, pero intenté generarla para xHarbour y no pude hacerlo con Verce. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nTu podrás enviarme la lib para xHarbour también?\n\nGracias por el excelente soporte que me brindan. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','ebdqhwn3',1,0,'',439,0,0),(8771,2044,6,328,0,'200.12.61.91',1141572122,1,0,1,1,1,0,'','Tamaño de Hoja con TPrinter...','Hola a todos.\nLlevo ya varios días tratando de controlar el tamaño de la hoja de impresión con TPrinter, el problema es que tengo que imprimir una hoja tamaño legal en horizontal (landscape) y lo que estoy haciendo es:\n\n\n///Tamano de Impresora\n//////      Ancho, Alto\nPrnSetSize( 35000, 21500 ) \n\noPrn := PrintBegin( \"Prueva\", , .t. )\noPrn:SetLandscape()\n\n....y mas codigo de impresion, pero no me respeta el tamaño, siempre me toma el tamaño carta de la hoja, y lo que he visto es la TReport si me cambia los tamaños de la hoja.\nHe cambiado la posicion del PrnSetSize y SetLandscape, pero igual no funciona.\n\noPrn := PrintBegin( \"Prueva\", , .t. )\noPrn:SetLandscape()\nPrnSetSize( 35000, 21500 ) \n\n\nAlguien puede ayudarme por favor. Gracias y saludos.\n\nCarlos Sincuir','',0,'gA==','1ywa1boy',1,0,'',328,0,0),(8772,702,2,348,0,'201.230.218.140',1141574298,1,0,1,1,1,0,'','','Te agradecere si te fuera posible compartir esta clase, me seria de mucha utilidad  \nmi correo es  <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n \n\nLubin\n\n[quote=&quot;lafug&quot;:3te8xe2t]leandro, dame tu correo electronico y te mando la clase con un ejemplo, a no ser de que sea posible através de este foro, si sabes me indicas como hacerlo\n\nsaludos[/quote:3te8xe2t]','',0,'gA==','3te8xe2t',1,0,'',348,0,0),(8773,2034,3,195,0,'62.38.79.104',1141576618,1,0,1,1,1,0,'','','Good afternoon Antonio\n\n1. Yes i link FiveHmx.Lib.\n\n2. No there is no part of an application . Just the sample that provided       with March release of FWH.\n\n3. There is no way to run any of those 3 samples. So i gave up , i can live without it. I hope , not needed to include this feature in any of my applications.\n\nThank\'s for your time  \n\nTIA\n\nDionisis','',0,'gA==','nu5cl6k3',1,0,'',195,0,0),(8774,2045,6,413,0,'194.106.16.43',1141578073,1,0,1,1,1,0,'','Funciones que manejen Horas...','Lo dicho existen funciones en fivewin, harbour o xharbour que manejen horas. Quiero hacer operaciones como calcular el 75% de una hora determinada, comparaciones de horas, realizar sumas y demas cositas. Lo estaba haciendo de manera manual pero recuerdo haber leido por algun lado que ya habia funciones que manejaban horas. En crystal reports tiene un monton de funciones para realizar operaciones con horas pero no encuentro similares en codigo para aplicar a mi programa, cualquier informacion sera buena...\n\nUn saludo','',0,'gA==','1lexk1v0',1,0,'',413,0,0),(8775,2034,3,3,0,'82.255.92.162',1141578631,1,0,1,1,1,1,'','','[quote=&quot;Sakis&quot;:j3rybinb]Good afternoon Antonio\n\n1. Yes i link FiveHmx.Lib.\n\n2. No there is no part of an application . Just the sample that provided       with March release of FWH.\n\n3. There is no way to run any of those 3 samples. So i gave up , i can live without it. I hope , not needed to include this feature in any of my applications.\n\nThank\'s for your time  \n\nTIA\n\nDionisis[/quote:j3rybinb]\n\nDionisis and Antonio\nI can build webexp without problem with xhb (february) and fwh march.\n\nBuild works OK,  executing the program GPF direct\n\nRichard','',0,'gA==','j3rybinb',1,0,'',3,0,0),(8776,2034,3,3,0,'82.255.92.162',1141579191,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:1cqhc2q9][quote=&quot;Sakis&quot;:1cqhc2q9]Good afternoon Antonio\n\n1. Yes i link FiveHmx.Lib.\n\n2. No there is no part of an application . Just the sample that provided       with March release of FWH.\n\n3. There is no way to run any of those 3 samples. So i gave up , i can live without it. I hope , not needed to include this feature in any of my applications.\n\nThank\'s for your time  \n\nTIA\nDionisis[/quote:1cqhc2q9]\n\n\nDionisis and Antonio\nI can build webexp without problem with xhb (february) and fwh march.\n\nBuild works OK,  executing the program GPF direct\n\nRichard[/quote:1cqhc2q9]\n\nAntonio, \n\nXHB is looking for \"its own\" ACTIVEX.LIB , if you rename it you get a link error. I guess the only way to make it work is to rename the fwh activex.lib to something else. \n\nRichard','',0,'gA==','1cqhc2q9',1,0,'',3,0,0),(8777,2027,3,446,0,'87.10.224.129',1141579710,1,0,1,1,1,0,'','','On one PC *only* I have this problem:\n\nthough I have set wordpad as the standard app to open rtf files, when I issue the ShellExecute(0,\"PrintTo\",cMyDoc,cMyPrinter0,0) statement, the document is printed using MsWord\nIf I double-click the rtf file, then WordPad is used\nNormally the application used to open the file is the same that is used to print it. How can I force printing using WordPad ?\n\nRoberto','',0,'gA==','1wz69fyz',1,0,'',446,0,0),(8778,2027,3,6,0,'82.54.221.41',1141580786,1,0,1,1,1,1,'','','Check the properties of the RTF extension association. Specifically, look inside Open method. Try to compare it with those of a working PC.\n\nEMG','',0,'gA==','14r413of',1,0,'',6,0,0),(8779,2039,20,6,0,'82.54.221.41',1141581409,1,0,1,1,1,1,'','Re: XML e d\'intorni','[quote=&quot;Piscicelli Zingoni&quot;:3qs24a0i]1 riga: UTF-8: che roba e\'.[/quote:3qs24a0i]\n\nDovrebbe essere un tipo di codifica dei caratteri (forse Unicode 8 bit).\n\nEMG','',0,'gA==','3qs24a0i',1,0,'',6,0,0),(8780,2046,3,148,0,'82.201.237.131',1141582394,1,0,1,1,1,0,'','warnning message','What the cause behind error rw4002 :segment8-18 PRELOAD','',0,'gA==','3thye5n0',1,0,'',148,0,0),(8781,2047,3,148,0,'82.201.237.131',1141582647,1,0,1,1,1,0,'','wdbu a like','Please I need program like dbu forwwindows or even wdbu full version . Where can I find such a program ?','',0,'gA==','2i4re7x3',1,0,'',148,0,0),(8782,2041,6,168,0,'200.44.49.54',1141586732,1,0,1,1,1,0,'','','Juan, si mal no recuerdo hay una funcion en el Win32 API llamada EnumPrinters. Es posible tambien que puedas obtener esta informacion via el Registry de Windows pero no se exactamente en que clave... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','c3o5bqzu',1,0,'',168,0,0),(8783,2041,6,168,0,'200.44.49.54',1141587139,1,0,1,1,1,0,'','','Facil...!\nChequea la clave HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Devices\nOtra que te puede servir es HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers','',0,'gA==','2tizftjo',1,0,'',168,0,0),(8784,2034,3,2,0,'87.218.146.136',1141587766,1,0,1,1,1,1,'','','Dionisis, Richard,\n\nWe have downloaded current xHB demo and used it to build samples\\webexp.prg with current FWH.exe setup. And it builds and runs ok.\n\nThere may be a difference between the xHB demo and the complete one.\n\n&gt; XHB is looking for \"its own\" ACTIVEX.LIB , if you rename it you get a link error\n\nWhat error do you get ? Thanks.','',0,'gA==','164p12ew',1,0,'',2,0,0),(8785,2047,3,2,0,'87.218.146.136',1141588126,1,0,1,1,1,1,'','','You may download Prometheus from:\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/files/version/dbwsetup.exe\">http://www.vikthor.com.mx/fivewin/files ... wsetup.exe</a><!-- m -->','',0,'gA==','kff1bw1u',1,0,'',2,0,0),(8786,2046,3,2,0,'87.218.146.136',1141588227,1,0,1,1,1,1,'','','Ehab,\n\nIs it a brc32.exe error ? Please copy here the complete output. Thanks.','',0,'gA==','12lsinoe',1,0,'',2,0,0),(8787,2045,6,2,0,'87.218.146.136',1141588576,1,0,1,1,1,1,'','','Andrés,\n\nPuedes usar la clase TTime() de FWH. Revisa el ejemplo samples\\TestTim2.prg','',0,'gA==','1xl8n6w1',1,0,'',2,0,0),(8788,2034,3,3,0,'82.255.92.162',1141594488,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:yh27fyh3]Dionisis, Richard,\n\nWe have downloaded current xHB demo and used it to build samples\\webexp.prg with current FWH.exe setup. And it builds and runs ok.\n\nThere may be a difference between the xHB demo and the complete one.\n\n&gt; XHB is looking for \"its own\" ACTIVEX.LIB , if you rename it you get a link error\n\nWhat error do you get ? Thanks.[/quote:yh27fyh3]\n\nAntonio\n\nRenaming the xhb activex.lib to _activex.lib produces the following error\n\nType: C &gt;&gt;&gt;xhb.exe -o\"webexp.c\" -m -n -q -gc0 -w0 -D__HARBOUR__ -D__FLAT__  -I\"C:\\CBATI32\" -I\"C:\\FWH\\INCLUDE\"  -I\"C:\\fwh\\include\" -I\"C:\\xHB\\include\" -I\"C:\\xHB\\include\\w32\" \"C:\\FWH\\SAMPLES\\webexp.prg\"&lt;&lt;&lt;\n\nxHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nGenerating object output to \'webexp.obj\'...\n\nType: C &gt;&gt;&gt;xhb.exe -o\"test.c\" -m -n -q -gc0 -w0 -D__HARBOUR__ -D__FLAT__  -I\"C:\\CBATI32\" -I\"C:\\FWH\\INCLUDE\"  -I\"C:\\fwh\\include\" -I\"C:\\xHB\\include\" -I\"C:\\xHB\\include\\w32\" \"C:\\CBATI32\\test.prg\"&lt;&lt;&lt;\n\nxHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nGenerating object output to \'test.obj\'...\n\nType: C &gt;&gt;&gt;couldn\'t find required file: \'activex.lib\'&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT:RESET&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1172&lt;&lt;&lt;','',0,'gA==','yh27fyh3',1,0,'',3,0,0),(8789,2048,6,196,0,'201.250.124.128',1141596367,1,0,1,1,1,0,'','Macros en campo de DBF','Hola\n\nComo puedo reemplazar en FWH esto que me funcionaba tan bien en Clipper:\n\nVar:=Venta*Porcenta&amp;S\n\nDonde Venta es un campo y Porcenta pueden ser los campos Porcenta1, Porcenta2, etc.\n\nDesde ya, muchas gracias\n\nSaludos\nJorge Jaurena','',0,'gA==','9biykwf2',1,0,'',196,0,0),(8790,2049,3,339,0,'200.217.137.210',1141596691,1,0,1,1,1,0,'','how open database INTERNET VIA ADO ?','how open database INTERNET VIA ADO ?\n\n\n\nthanks everybody..\n\nmauricio','',0,'gA==','av3jnfbv',1,0,'',339,0,0),(8791,2047,3,148,0,'82.201.237.131',1141599658,1,0,1,1,1,0,'','','May you describe an English one pls','',0,'gA==','1v70lrh1',1,0,'',148,0,0),(8793,2034,3,2,0,'87.218.146.136',1141600688,1,0,1,1,1,1,'','','Richard,\n\nThere may be a log file on disk. Please post here its contents. Thanks,','',0,'gA==','3t0lmnpf',1,0,'',2,0,0),(8794,2047,3,2,0,'87.218.146.136',1141600765,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/xhc/index.asp?page=xhc_download_detail.asp&amp;type=dl&amp;id=78&amp;action=download&amp;show_i=7&amp;show_sub=2\">http://www.xharbour.com/xhc/index.asp?p ... show_sub=2</a><!-- m -->\n\nDeveloped with FWH <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2y6hwrd9',1,0,'',2,0,0),(8795,2049,3,138,0,'201.154.236.81',1141601234,1,0,1,1,1,1,'','','In order to conect a remote dabase you only need to know the IP address of the remote server. Also you may need to cofigure the remote server to open and forward the needed ports in the router. In your source code, just change the String connection with the correct IP:\n\nLet`s asume for these samples that the IP Address in the remote server over internet is 200.67.137.11\n\nFor SQL Server, the string connection should look like this\n\"provider=SQLOLEDB;server=200.67.137.11;database=SISTEMAS;uid=jorge;pwd=jcm\"\n\nFor Advantage Databas Server:\n\"Provider=Advantage.OLEDB.1;User ID=adssys;Data Source= \\\\200.67.137.11:2001\\fwapps\\klm\\agentperformance.add;Persist Security Info=False;ServerType=ADS_INTERNETL_SERVER\"\n\nFor MySQL:\n\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=200.67.137.11; DATABASE=garis;UID=root;PWD=18167231\" \n\nAll the rest remains the same, not need to change anything in your source code (ADO rules <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ).\n\nIn some cases, if you have Internet Name Resolution available in the client machine, you may use a Domain name instead of the IP address, this is very useful if you don\'t have a fixed IP, for these you may use services as <!-- w --><a class=\"postlink\" href=\"http://www.dns2go.com\">www.dns2go.com</a><!-- w --> or <!-- w --><a class=\"postlink\" href=\"http://www.noip.com\">www.noip.com</a><!-- w -->','',0,'gA==','6c2gryey',1,0,'',138,0,0),(8796,2048,6,138,0,'201.154.236.81',1141601550,1,0,1,1,1,1,'','','Muy facil, con un bloque de codigo:\n\nVar := \"{|| Ventas * Porcenta\"+S+\"}\"\n\nY luego para obtener el resultado, evaluas la macro del bloque\n\nnResutlado := EVAL(&amp;var)','',0,'gA==','3ofvfp4x',1,0,'',138,0,0),(8797,2040,3,2,0,'87.218.146.136',1141602248,1,0,1,1,1,1,'','','Maurilio,\n\nIts not Windows standard though you could implement it using a msgbar with items and popups.','',0,'gA==','2bq4z0c2',1,0,'',2,0,0),(8798,1730,6,2,0,'87.218.146.136',1141602769,1,0,1,1,1,1,'','','José, \n\nAquí la tienes: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/38d8b367/twbrosw.zip.html\">http://hyperupload.com/download/38d8b36 ... w.zip.html</a><!-- m --> \n\nEstá en el directorio lib\\xharbour','',0,'gA==','2fhwelqx',1,0,'',2,0,0),(8799,863,3,2,0,'87.218.146.136',1141603024,1,0,1,1,1,1,'','','Mauricio,\n\nI meant just the DLL not the whole thing <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nTry to change the DLL function name in this line: \"MacroCall\"\n\nDLL32 FUNCTION chamada(parm1 AS LPSTR , parm2 AS LPSTR) AS LONG PASCAL FROM \"MacroCall\" LIB \"XHB.DLL\"','',0,'gA==','3foverlj',1,0,'',2,0,0),(8800,2044,6,54,0,'201.137.90.144',1141613728,1,0,1,1,1,1,'','Re: Tamaño de Hoja con TPrinter...','[quote=&quot;Carlos Sincuir&quot;:39qz8krm]Hola a todos.\nLlevo ya varios días tratando de controlar el tamaño de la hoja de impresión con TPrinter, el problema es que tengo que imprimir una hoja tamaño legal en horizontal (landscape) y lo que estoy haciendo es:\n\n\n///Tamano de Impresora\n//////      Ancho, Alto\nPrnSetSize( 35000, 21500 ) \n\noPrn := PrintBegin( \"Prueva\", , .t. )\noPrn:SetLandscape()\n\n....y mas codigo de impresion, pero no me respeta el tamaño, siempre me toma el tamaño carta de la hoja, y lo que he visto es la TReport si me cambia los tamaños de la hoja.\nHe cambiado la posicion del PrnSetSize y SetLandscape, pero igual no funciona.\n\noPrn := PrintBegin( \"Prueva\", , .t. )\noPrn:SetLandscape()\nPrnSetSize( 35000, 21500 ) \n\n\nAlguien puede ayudarme por favor. Gracias y saludos.\n\nCarlos Sincuir[/quote:39qz8krm]\n\n      oPrn:SetPage(9)  // A4\n\n[quote:39qz8krm]Esto es parte de la clase PRINTER de fwh\nDMPAPER_LETTER    1       // Letter 8 1/2 x 11 in\nDMPAPER_LETTERSMALL 2       // Letter Small 8 1/2 x 11 in\nDMPAPER_TABLOID   3       // Tabloid 11 x 17 in\nDMPAPER_LEDGER    4       // Ledger 17 x 11 in\nDMPAPER_LEGAL     5       // Legal 8 1/2 x 14 in\nDMPAPER_STATEMENT   6       // Statement 5 1/2 x 8 1/2 in\nDMPAPER_EXECUTIVE   7       // Executive 7 1/4 x 10 1/2 in\nDMPAPER_A3      8       // A3 297 x 420 mm\nDMPAPER_A4      9       // A4 210 x 297 mm\nDMPAPER_A4SMALL   10      // A4 Small 210 x 297 mm\nDMPAPER_A5      11      // A5 148 x 210 mm\nDMPAPER_B4      12      // B4 250 x 354\nDMPAPER_B5      13      // B5 182 x 257 mm\nDMPAPER_FOLIO     14      // Folio 8 1/2 x 13 in\nDMPAPER_QUARTO    15      // Quarto 215 x 275 mm\nDMPAPER_10X14     16      // 10x14 in\nDMPAPER_11X17     17      // 11x17 in\nDMPAPER_NOTE      18      // Note 8 1/2 x 11 in\nDMPAPER_ENV_9     19      // Envelope #9 3 7/8 x 8 7/8\nDMPAPER_ENV_10    20      // Envelope #10 4 1/8 x 9 1/2\nDMPAPER_ENV_11    21      // Envelope #11 4 1/2 x 10 3/8\nDMPAPER_ENV_12    22      // Envelope #12 4 \\276 x 11\nDMPAPER_ENV_14    23      // Envelope #14 5 x 11 1/2\nDMPAPER_CSHEET    24      // C size sheet\nDMPAPER_DSHEET    25      // D size sheet\nDMPAPER_ESHEET    26      // E size sheet\nDMPAPER_ENV_DL    27      // Envelope DL 110 x 220mm\nDMPAPER_ENV_C5    28      // Envelope C5 162 x 229 mm\nDMPAPER_ENV_C3    29      // Envelope C3  324 x 458 mm\nDMPAPER_ENV_C4    30      // Envelope C4  229 x 324 mm\nDMPAPER_ENV_C6    31      // Envelope C6  114 x 162 mm\nDMPAPER_ENV_C65   32      // Envelope C65 114 x 229 mm\nDMPAPER_ENV_B4    33      // Envelope B4  250 x 353 mm\nDMPAPER_ENV_B5    34      // Envelope B5  176 x 250 mm\nDMPAPER_ENV_B6    35      // Envelope B6  176 x 125 mm\nDMPAPER_ENV_ITALY   36      // Envelope 110 x 230 mm\nDMPAPER_ENV_MONARCH 37      // Envelope Monarch 3.875 x 7.5 in\nDMPAPER_ENV_PERSONAL 38       // 6 3/4 Envelope 3 5/8 x 6 1/2 in\nDMPAPER_FANFOLD_US  39      // US Std Fanfold 14 7/8 x 11 in\nDMPAPER_FANFOLD_STD_GERMAN  40  // German Std Fanfold 8 1/2 x 12 in\nDMPAPER_FANFOLD_LGL_GERMAN  41  // German Legal Fanfold 8 1/2 x 13 in\n[/quote:39qz8krm]','',0,'gA==','39qz8krm',1,0,'',54,0,0),(8801,2050,3,379,0,'59.167.114.178',1141625794,1,0,1,1,1,0,'','Folders with Bitmaps','Is there a class available that allows bitmaps on folders un FWH like I have seen for 16Bit','',0,'gA==','3ndia9mn',1,0,'',379,0,0),(8802,2027,3,446,0,'87.3.196.156',1141634287,1,0,1,1,1,0,'','','do you mean by right-clicking the file, or something else in the windows registry (or INI file) ?','',0,'gA==','18rcacqz',1,0,'',446,0,0),(8803,2049,3,339,0,'200.217.137.210',1141636045,1,0,1,1,1,0,'','','thanks renee\n\n  but Where can Find Strings for ConneCCtion. ?\n\n\n\n\nThanks Again..','',0,'gA==','298gfygk',1,0,'',339,0,0),(8804,2034,3,2,0,'87.218.146.136',1141636294,1,0,1,1,1,1,'','','This is a solution:\n\n1. Rename xhb\\lib\\ActiveX.lib into _ActiveX.lib\n\n2. Download this ActiveX.lib (from xHB demo):\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/d7a0b696/ActiveX.lib.html\">http://hyperupload.com/download/d7a0b69 ... X.lib.html</a><!-- m -->\nand copy it at xhb\\lib\\ActiveX.lib\n\nThats all','',0,'gA==','25ybbqxb',1,0,'',2,0,0),(8805,2029,3,2,0,'87.218.146.136',1141637705,1,0,1,1,1,1,'','','Reinaldo,\n\nIt looks as the problem is that the path should not be used, just the DBF name <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3lazn5zy',1,0,'',2,0,0),(8806,2051,3,239,0,'202.104.50.11',1141639349,1,0,1,1,1,0,'','Tget message not show?','Hi,\n   redefine get  var1 of odlg id 101  message \"well come \"  \n   But the message never  show on dialog .\n   In DOS times, it will show on the bottom line of the screen.\n   Why or how?\nBest regards\nShuming Wang','',0,'gA==','39z2t96r',1,0,'',239,0,0),(8807,2051,3,6,0,'87.3.228.169',1141641338,1,0,1,1,1,1,'','Re: Tget message not show?','Try defining a status bar.\n\nEMG','',0,'gA==','2gk3nho7',1,0,'',6,0,0),(8808,2051,3,2,0,'87.218.146.136',1141641399,1,0,1,1,1,1,'','','Shuming,\n\nYou need to have a message bar on your main window where the msg is shown. \n\nPlease review samples\\Dbf01.prg and \"record by record\" menu option in that sample.','',0,'gA==','35zi9598',1,0,'',2,0,0),(8809,2049,3,6,0,'87.3.228.169',1141641419,1,0,1,1,1,1,'','','[url:tun09cnv]http&#58;//www&#46;connectionstrings&#46;com[/url:tun09cnv]\n\nEMG','',0,'EA==','tun09cnv',1,0,'',6,0,0),(8810,2027,3,6,0,'87.3.228.169',1141641521,1,0,1,1,1,1,'','','No, Tools -&gt; Folder options -&gt; File types (Strumenti -&gt; Opzioni cartella -&gt; Tipi di file in Italian).\n\nEMG','',0,'EA==','2vf8jizk',1,0,'',6,0,0),(8811,2052,6,21,0,'80.58.49.235',1141641701,1,0,1,1,1,1,'','problema con TExcel','Hola foro,\n\nUso la clase tExcel del maestro Vikthor con harbour sin ningun problema.\n\nPero hace un tiempo pase a xHarbour y empezaron los problemas, y eso que con xHarbour ya no necesito la clase Ole2.\n\nSi podeis probar el ejemplo \"test1.prg\" que viene con clase texcel y cuando pregunte por grabar, dar a cancelar. El progama genera error y se sale:\n[code:3n5vnkuf]   Error description&#58; Error Excel&#46;Application&#58;WORKBOOKS/16389  E_FAIL&#58; CLOSE\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;CLOSE&#40;0&#41;\n   Called from&#58; texcels&#46;prg =&gt; TEXCELSCRIPT&#58;END&#40;538&#41;\n   Called from&#58;  =&gt; CERRAR$&#40;37&#41;[/code:3n5vnkuf]\n\nGracias por vuestro tiempo.','',0,'AIA=','3n5vnkuf',1,0,'',21,0,0),(8812,2022,1,193,0,'195.212.29.179',1141646794,1,0,1,1,1,0,'','','Yes, I tried using _psp but only under pure Clipper.\nThe question arised when I wanted to write a Clipper function for searching files. What address to use for Disk Transfer Area (DTA) that used by DOS search functions? If to use a virtual string to store DTA structure then it real address can differ (I think so) between two sequential calls of the function if we will declare new strings or arrays.\nStandard Clipper function DIRECTORY() uses for this purpose stack address. But DIRECTORY() does all stuff inside \"one call\". I\'ve looked through open source code of some third part Clipper search functions that I found in internet but these functions always set DTA before calling DOS find first or find next functions. I don\'t like this. So I wonder why all these functions don\'t use standard DTA address. To get it is very simple as Clipper uses C start code i.e. there is global variable _psp that contains needed address.','',0,'AIA=','2w812i9z',1,0,'',193,0,0),(8813,2053,6,439,0,'201.221.41.159',1141647513,1,0,1,1,1,0,'','El Driver Local de ADS','Hola a todos,\n\nHe tenido excelentes resultados con la ayuda de Uds. para poder poner en marcha mis aplicaciones de FW en FWH.\nGracias.....\n\nMi pregunta ahora es ¿Existen ventajas que justifiquen cambiar la rdd DBFCDX por la ADS?\n\nSiempre refiriéndome al driver local gratuito.\nGracias desde ya por su ayuda de siempre.','',0,'AIA=','bwdqkpnf',1,0,'',439,0,0),(8814,2053,6,41,0,'166.114.252.26',1141647998,1,0,1,1,1,0,'','','Hola,\n\nal usar ADTADI no ganaras velocidad te lo aseguro, ya que los CDX de xHarbour por ejemplo son mucho mas veloces, pero si ganaras algunas funcionaledades como:\n\n- Filtros muy rapidos\n- Encriptacion de las tablas\n- SQL \n\nEste ultimo es por lo que yo utilizo ADS LOCAL, te simplifica la vida, ya que tienes la comodidad de siempre de utlizar tus navegaciones por tablas, mas la potencia del SQL que te simplifica las consultas de manera increible\n\nEsta es una opinion personal, seguro habran otras\n\nsaludos\n\nMarcelo','',0,'AIA=','2fkrjebc',1,0,'',41,0,0),(8815,2029,3,299,0,'69.65.95.131',1141648200,1,0,1,0,1,0,'','','Antonio;\n\nListen, at some point in the xharbour compiler development, and I suppose the same holds true for harbour,  the change was made so that including the path to the tables would cause the ADS 5132 error message.    The change --most unexpected.  The error --most cryptic.\n\nI\'ve learned that after connecting to the DD, you now reference the tables by name their \"internal\" DD name which might be different than the physical name.  I had never heard of the change and I beleive that it will cause a lot of headache.\n\nI got the apps working again with the server, so no complains on my side.\n\nBest, \n\n\nReinaldo.','',0,'AIA=','2kpq9y2c',1,0,'',299,0,0),(8816,2044,6,328,0,'200.12.61.91',1141649010,1,0,1,1,1,0,'','','Gracias William, lo pruebo y te comento.\n\nCarlos Sincuir','',0,'AIA=','2jped41f',1,0,'',328,0,0),(8817,2054,7,123,0,'81.39.245.187',1141649569,1,0,1,1,1,0,'','Recursos en FWPPC','Antonio,\n\nSi con ReadBitmap cargo un recurso en memoria... ¿con cual función descargo de la memoria ese recurso?\n\nAlgo así como ::\n\nhBitmap := ReadBitmap(\"mibitmap.bm\")\n...\n...\n\nReleaseBitmap(hBitmap)  &lt;&lt;&lt; por ejemplo\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','n5340unt',1,0,'',123,0,0),(8818,2019,6,52,0,'201.212.25.213',1141649951,1,0,1,1,1,1,'','','Antonio,\n\nSi, si pones + 7 Muestra Adios, pero necesito que muestre \"hola y adios\", o sea toda la cadena que se le pasa. no solamente la segunda parte.\n\nEs mas, en este caso es \"hola\" + chr( 0 ) + chr( 0 ) + \"Adios\" pero si sería asi: \n[code:2u8pu5hf]&quot;hola&quot; + chr&#40; 0 &#41; + chr&#40; 0 &#41; + &quot;Adios&quot;  + chr&#40; 0 &#41; + chr&#40; 0 &#41; + &quot;De nuevo por aca?&quot;[/code:2u8pu5hf]\n\nComo tendría que hacer?','',0,'AIA=','2u8pu5hf',1,0,'',52,0,0),(8819,2055,1,32,0,'196.36.8.34',1141651806,1,0,1,1,1,0,'','Dibread/palbmpread failure','Hi,\n\nHow can I find out what causes palbmpread to not return an array?\n\nAlex','',0,'AIA=','bb66eau2',1,0,'',32,0,0),(8820,2040,3,217,0,'201.42.110.31',1141653328,1,0,1,1,1,0,'','','Good idea, Antonio!\n\nThanks!\nI´ll test any like this being aware to not confuse the user, like James said!\n\nRegards\nMaurilio','',0,'AIA=','3l2dedpm',1,0,'',217,0,0),(8821,2048,6,196,0,'201.250.98.22',1141653347,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:3qnqsm9p]Muy facil, con un bloque de codigo:\n\nVar := \"{|| Ventas * Porcenta\"+S+\"}\"\n\nY luego para obtener el resultado, evaluas la macro del bloque\n\nnResutlado := EVAL(&amp;var)[/quote:3qnqsm9p]\n\nRene, tu respuesta me resulto efectiva, pero que pasa si quiero hacer esto:\n\n      Private S\n\n      FOR Q=1 TO 10\n         S:=ALLTRIM(STR(Q))\n         oDbfOrd:Blank()\n         oDbfOrd:Producto:=oDbfRem:PRODU&amp;S\n         oDbfOrd:Append()\n         oDbfOrd:Save()\n         oDbfOrd:Unlock()\n      NEXT\n\n\nMuchas gracias\nJorge Jaurena','',0,'gA==','3qnqsm9p',1,0,'',196,0,0),(8822,2056,3,217,0,'201.42.110.31',1141653892,1,0,1,1,1,0,'','Help: Antonio and FWH 2.7 + xHB Comercial users','Antonio and All,\n\nI have a serious problem with FWH 2.7 (february/2006) and\nxHarbour from xHarbour.com (february/2006):\n\nWhen I compile my project occur an error:\n\"unresolved external symbol _hb_dynsymSymbol\" and I can figure were cause this error.\nxHarbour.com uses a FiveHCM.lib and FiveHMX.lib.\nWe construct our own FiveHMX.lib with a .xbp project generated by xHarbour.com but when we compile our exe project this error appears <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nIf anybody can help me I will be glad because we can´t use february release of xHarbour´s SQLRDD and we was waiting for this for 3 months.\n\nWith xHarbour.org work fine (BCC) but xHB.com uses Pelles C.\n\nBest regards\nMaurilio','',0,'gA==','ai3l33x0',1,0,'',217,0,0),(8823,2056,3,67,0,'62.235.24.159',1141654704,1,0,1,1,1,0,'','','You have to link in (till new version from xharbour) :\n\n\n#pragma begindump\n#include \"hbapi.h\"\nHB_EXPORT PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\n    return pDynSym-&gt;pSymbol;\n}\n#pragma enddump','',0,'gA==','3kc18d2r',1,0,'',67,0,0),(8824,2056,3,104,0,'201.50.244.38',1141654826,1,0,1,1,1,0,'','','Olá Maurilio,\n\nEu também tive este erro e para resolvê-lo inclui o trecho abaixo dentro do WINDOW.PRG e gerando a lib novamente:\n\n[code:3fdyfd8x]\n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n\n//----------------------------------------------------------------------------//\n[/code:3fdyfd8x]\n\nEu achei esta resposta aqui mesmo no forum dias atrás.\n\nAbraços,\n\nRossine.','',0,'AIA=','3fdyfd8x',1,0,'',104,0,0),(8825,2057,3,299,0,'69.65.95.131',1141655161,1,0,1,0,1,0,'','RTF RePrintBox()','Antonio / or anyone else;\n\nHi.\n\n1. How do I find out how much of the rtf text got printed after using RePrintbox()?\n\n2. How do I find out at what line did the last rtf line got printed on the page after using RePrintBox?\n\nThank you,\n\n\nReinaldo.','',0,'AIA=','u2njxhdb',1,0,'',299,0,0),(8826,2056,3,217,0,'201.42.110.31',1141656120,1,0,1,1,1,0,'','','English:\nThanks to Frank and Rossine\nI was desperate with this error and here I found 2 solutions.\nBecause this I love FW <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nBrazilian Portuguese:\nObrigado ao Rossine e ao Frank\nEu estava desesperado com este erro e aqui encontrei 2 soluçôes\nPor isso que eu adoro o FW <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nRegards/Saudações\nMaurilio','',0,'AIA=','3wtrdw2u',1,0,'',217,0,0),(8827,1956,7,123,0,'81.39.245.187',1141656896,1,0,1,1,1,0,'','','Antonio,\n\n¿Has podido mirar algo al respecto? Y si no... dame alguna pista sobre donde mirar...\n\nSaludos y gracias,\nJosé Luis Capel','',0,'AIA=','3kld09km',1,0,'',123,0,0),(8828,2053,6,40,0,'200.52.186.48',1141662301,1,0,1,1,1,0,'','','Marcelo, será mucho pedir uno pequeños ejemplos de como usar los ADTADI + SQL (Localmente), Yo utilizo ADS local pero con DBF y CDX.\n\nMe parece muy interesante esto de SQL.\n\nSaludos\nJoel Andujo','',0,'AIA=','28kpdd3i',1,0,'',40,0,0),(8829,2038,6,110,0,'165.98.151.243',1141664092,1,0,1,1,1,1,'','','programa free  XBACKUPLITE\ncon codigo fuente incluido <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> (hecho con fwh+xharbour+tsbrowse)\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/c9bae685/blite.zip.html\">http://hyperupload.com/download/c9bae685/blite.zip.html</a><!-- m -->\n\nsalu2\ncarlos vargas','',0,'AIA=','2aru5ckg',1,0,'',110,0,0),(8830,2058,6,396,0,'201.243.100.209',1141664151,1,0,1,1,1,1,'','Errores de errores...','Saludos, instale la version de (x)Harbour de feb. con el FWH 2.4 y empezo a darme errores, uso el verse, y compila y crea el .exe pero no lo ejecuta. se cae, trate de ir a versiones anteriores de xH, pero ahora tengo estos errores, que podria hacer...? Help Me, si alguien tiene la version compatible de Harbour y xHarbour para FWH 2.4, gracias.  <!-- e --><a href=\"mailto:joseluisysturiz@yahoo.com\">joseluisysturiz@yahoo.com</a><!-- e -->\n\n...disulpen, no supe como agregar las imagen .jpg para mostrar errores, cuando lo sepa o alguien me explique lo hare, los tengo en un pendrive...gracias.\n\n ','',0,'CA==','rl3xxn0s',1,0,'',396,0,0),(8831,2053,6,138,0,'201.154.236.81',1141665059,1,0,1,1,1,1,'','','Es muy facil cambiar de DBF a ADT:\n\n[code:2is603vf]REQUEST DBFCDX, DBFFPT, _ADS\nRDDSETDEFAULT&#40;&quot;ADS&quot;&#41;\n\nAdsSetServerType&#40;7&#41;\nAdsSetFileType&#40;3&#41; // ADT/ADI\n\nUSE arch&#46;dbf VIA &quot;DBFCDX&quot;\nCOPY TO arch&#46;dbt[/code:2is603vf]\n\nEl resto de las instrucciones son iguales.\n\nMirate este articulo que escribi:\n\n[url:2is603vf]http&#58;//google&#46;blogspot&#46;com/2005/07/cronica-de-una-migracin-exitosa-parte&#46;html[/url:2is603vf]','',0,'EIA=','2is603vf',1,0,'',138,0,0),(8832,2038,6,138,0,'201.154.236.81',1141665347,1,0,1,1,1,1,'','','OJO: para que el proceso de empacado ZIP funcione con FiveWin tienes que linkear la libreria HBZIP.LIB que es una contribucion de (x)Harbour','',0,'EIA=','nzfynw5o',1,0,'',138,0,0),(8833,2052,6,138,0,'201.154.236.81',1141665763,1,0,1,1,1,1,'','','Antonio, corrigeme si me equivoco, perooooo.....\n\nPara el soporte ACTIVEX, y para los colegas que utilizan Harbour puro y duro, FiveWin incluye ahora la vieja TOLEAUTO.LIB creo que dentro de la libreria FIVEHC.LIB,  cuando linkas la FIVEHC.LIB ANTES de las libs de xHarbour, te cargas el soporte OLE de xHB y queda sustituido por el de FiveWin.\n\nLo que tienes que hacer, es usando el TLIB, quitar el modulo OLEAUTO de la lib FiveHC y volver a linkear tu programa.','',0,'EIA=','1oxx4yrc',1,0,'',138,0,0),(8834,2048,6,138,0,'201.154.236.81',1141666018,1,0,1,1,1,1,'','','Igual.... los bloques de codigo son poderosos!!!!!\n\n[code:1cvwybhw] \nFOR Q=1 TO 10\n   S&#58;=ALLTRIM&#40;STR&#40;Q&#41;&#41;\n   oDbfOrd&#58;Blank&#40;&#41;\n   cBlock &#58;= &quot;&#123;|| oDbfRem&#58;Produ&quot;+S+&quot;&#125;&quot;\n   oDbfOrd&#58;Producto&#58;= EVAL&#40;&amp;cBlock&#41;\n   oDbfOrd&#58;Append&#40;&#41;\n   oDbfOrd&#58;Save&#40;&#41;\n   oDbfOrd&#58;Unlock&#40;&#41;\nNEXT [/code:1cvwybhw]','',0,'AIA=','1cvwybhw',1,0,'',138,0,0),(8835,2049,3,339,0,'200.217.137.210',1141667463,1,0,1,1,1,0,'','','thanks for help me , my friends..\n\n\n    But My problem Now is Other..\n\n\n    What the Better Class \"LISTBOX\" to change ADO Connection. ?\n\n\nThanks Again','',0,'AIA=','nc6wz24j',1,0,'',339,0,0),(8836,2038,6,61,0,'201.217.170.104',1141668931,1,0,1,1,1,0,'','','Rene:\n\nSeria posible me indiques como lo paso a Harbour?\n\nMuchas Gracias \n\nRuben Fernandez','',0,'AIA=','2xekzn82',1,0,'',61,0,0),(8837,2059,6,97,0,'200.23.84.231',1141670115,1,0,1,1,1,1,'','donde tomas los datos de la tabla twbrowse,tsbrowse, etc.','Hola todos he estado echando una mirada tanto a tsbtrowse y twbrowse, pero no doy con vola donde toma los datos de la tabla para mostrarlos.\n\n\ngracias y saludos a todos.\nfernando sandoval ruiz','',0,'AIA=','1h1opu6l',1,0,'',97,0,0),(8838,2048,6,196,0,'201.250.98.22',1141671088,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:2pq2o82y]Igual.... los bloques de codigo son poderosos!!!!!\n\n[code:2pq2o82y] \nFOR Q=1 TO 10\n   S&#58;=ALLTRIM&#40;STR&#40;Q&#41;&#41;\n   oDbfOrd&#58;Blank&#40;&#41;\n   cBlock &#58;= &quot;&#123;|| oDbfRem&#58;Produ&quot;+S+&quot;&#125;&quot;\n   oDbfOrd&#58;Producto&#58;= EVAL&#40;&amp;cBlock&#41;\n   oDbfOrd&#58;Append&#40;&#41;\n   oDbfOrd&#58;Save&#40;&#41;\n   oDbfOrd&#58;Unlock&#40;&#41;\nNEXT [/code:2pq2o82y][/quote:2pq2o82y]\n\nPero claro, como no lo vi, el EVAL te devuelve todo tipo de dato.\n\nMuchas gracias','',0,'gIA=','2pq2o82y',1,0,'',196,0,0),(8839,2049,3,6,0,'82.59.51.216',1141671473,1,0,1,1,1,1,'','','To change?\n\nEMG','',0,'gIA=','3i8qpu5b',1,0,'',6,0,0),(8840,2060,6,439,0,'201.217.180.119',1141671566,1,0,1,1,1,0,'','Una dificultad con un botón','Con el fin de poder simplificar las consultas sobre un ingreso a un browse, en un programa hago que la persona introduzca los datos en un grupo de combos y gets, se me ha resuelto el tema de que los combos al dar enter van al siguiente campo desde la última versión, pero hay algo que no he podido solucionar aún:\nAl fin del grupo de gets y combos hay un botón, en el cual a través del metodo on click al presionarlo luego de agregar la línea al browse (que está abajo), vuelve al primer combo para ingresar otra línea.\n\nLo que no he podido hacer es que vuelva al primer campo al presionar enter.\n\ncon el evento click puedo hacerlo pero.... ¿Cómo hago que al dar enter sobre un botón, se de foco a el primer get de la línea?\n\nAgradezco cualquier ayuda que Uds. puedan darme.','',0,'gIA=','3k63tksm',1,0,'',439,0,0),(8841,2049,3,339,0,'200.217.137.210',1141671992,1,0,1,1,1,0,'','','I Try TCBROWSE bUT I HAVE Change TWBROWSE too...','',0,'gIA=','jf8pvitk',1,0,'',339,0,0),(8842,2053,6,41,0,'166.114.252.26',1141672222,1,0,1,1,1,0,'','','Hola,\n\naqui te dejo un ejemplo que modifique para que lo prubes con CDX, NTX y ADT, espero te sirva.\n\nCulaquier duda me dices\n\nsaludos\n\nMarcelo\n\n[url:1o6hux8i]http&#58;//hyperupload&#46;com/download/50570f86/sql&#46;zip&#46;html[/url:1o6hux8i]\n\n\n[quote=&quot;Joel Andujo&quot;:1o6hux8i]Marcelo, será mucho pedir uno pequeños ejemplos de como usar los ADTADI + SQL (Localmente), Yo utilizo ADS local pero con DBF y CDX.\n\nMe parece muy interesante esto de SQL.\n\nSaludos\nJoel Andujo[/quote:1o6hux8i]','',0,'kA==','1o6hux8i',1,0,'',41,0,0),(8843,2049,3,6,0,'82.59.51.216',1141673723,1,0,1,1,1,1,'','','You can use whatever browse you want.\n\nEMG','',0,'kA==','1t1ruaqz',1,0,'',6,0,0),(8844,2028,6,37,0,'200.121.156.121',1141673815,1,0,1,1,1,0,'','','Puedes usar la Txtprev de Ednaldo Rolin que trabaja con la TDosPrn, con ella puedes conseguir un preview de los reportes tipo DOS\nSaludos','',0,'kA==','3f0ifcmz',1,0,'',37,0,0),(8845,1956,7,28,0,'87.218.46.5',1141675109,1,0,1,1,1,0,'','','Que yo sepa, una ventana con ese estilo lo único que hace es quitarle el borde a la ventana pero no se comporta como una caja de diálogo. Una caja de diálogo es otra historia.\n\n¿es eso lo que pedias?\n\nPuedes hacer una caja de diálogo sin borde y sin caption, si eso es lo que necesitas.\n\nUn saludo','',0,'kA==','1eugozqe',1,0,'',28,0,0),(8846,2054,7,28,0,'87.218.46.5',1141675177,1,0,1,1,1,0,'','','DeleteObject( hBitmap )\n\nUn saludo','',0,'kA==','2pcezjrk',1,0,'',28,0,0),(8847,2049,3,339,0,'200.217.137.210',1141676289,1,0,1,1,1,0,'','','how using whatever browse ?\n\n\n\nthanks enrico','',0,'kA==','9ho88pvm',1,0,'',339,0,0),(8848,2061,18,375,0,'84.122.114.91',1141676500,1,0,1,1,1,1,'','Cuidado con el cursor y el KeyDown','Estimados compañeros, para los que gustan de construir sus propias clases, me gustaría comentaros un problemilla que me ha traido de cabeza durante algunas semanas y que a lo mejor os ha ocurrido a vosotros, pues por si os sirve de ayuda, he conseguido solventarlo. Os cuento:\nHace algún tiempo que construí mi propio Browse para Arrays derivado de TControl. Todo muy bien, muy bonito. Todo perfecto. Pero mira por donde que en el último programa me ha ocurrido un hecho curioso. Tengo el browse en una ficha de clientes, como si fuera una tabla que se refresca para cada ficha. Normalmente, cuando salgo de la ventana no ocurre nada anómalo, se cierra la base de datos al cerrarse el diálogo y todo normal; pero si cuando salgo mi Browse tenía el foco y además había pulsado la tecla CURSOR ABAJO (como última tecla pùlsada), al salir del dialogo, éste se refresca de improviso, y como había cerrado la base de datos con el dialogo, pues: ERROR!. Pero sólo con esa combinación, si la última acción es cualquier otra tecla o el ratón, o con el foco en otro control, todo bien.\nHasta que, investigando conseguir darme cuenta de que la clase TCONTROL procesa la tecla VK_DOWN para buscar el siguiente control del diálogo cuando el control pierde el foco, y al perder mi Browse el foco cuando se cierra la ventana, pues nada busca el siguiente control (de un dialogo cerrándose) y: el ERROR de las narices. Lo he solventado poniendo ::oWnd:nLastKey := 0 el mi método  KeyDown(...).\nY todo este tostón es por si alguién ha estado, como yo, a punto de comerse el ordenador por un echo que en principio parecía inexplicable. Cuidado con los KeyDown\'s de vuestras propias clases cuando se derivan de TCONTROL.\nUn saludo y que os sea leve...','',0,'kA==','3yffpef3',1,0,'',375,0,0),(8849,2046,3,148,0,'82.201.234.144',1141677377,1,0,1,1,1,0,'','','Compiling...\n317K available\nCompiling SITEX.PRG\nCode size 22678, Symbols 2976, Constants 6794\nECHO is off.\nLinking...\n\nBLINKER : link was successful\n\nSITEX.EXE (0.4 seconds)\n* Application successfully built\nECHO is off.\nMicrosoft (R) Windows Resource Compiler  Version 3.10\nCopyright (C) Microsoft Corp. 1985-1992.  All rights reserved.\n\nRC: warning RW4002: Entry point segment 7 set to PRELOAD\nRC: warning RW4002: Non-discardable segment 9 set to PRELOAD\nRC: warning RW4002: Non-discardable segment 11 set to PRELOAD\nRC: warning RW4002: Non-discardable segment 12 set to PRELOAD\nRC: warning RW4002: Non-discardable segment 14 set to PRELOAD\nRC: warning RW4002: Non-discardable segment 16 set to PRELOAD\nRC: warning RW4002: Non-discardable segment 19 set to PRELOAD','',0,'kA==','33lzza7a',1,0,'',148,0,0),(8850,2062,1,479,0,'24.127.52.16',1141677882,1,0,1,1,1,0,'','left justify and get','When the cursor is focus in a get that is a number get, its focus is right justify.\n\nThis only happens on numbers and the resource id  is  set to left justification.','',0,'kA==','2a3dacvp',1,0,'',479,0,0),(8851,2063,3,148,0,'82.201.234.144',1141677990,1,0,1,1,1,0,'','primtive question','unable to open five.lib is a message appearing to me while building some samples .','',0,'kA==','3qindfwf',1,0,'',148,0,0),(8852,2063,3,6,0,'82.59.51.216',1141678265,1,0,1,1,1,1,'','Re: primtive question','Five.lib is a Fivewin 16 bit library.\n\nEMG','',0,'kA==','60k6qxq0',1,0,'',6,0,0),(8853,2062,1,6,0,'82.59.51.216',1141678554,1,0,1,1,1,1,'','Re: left justify and get','If you want to edit numbers left justified then convert them to string and back to numbers after the editing.\n\nEMG','',0,'kA==','3vtpxd3y',1,0,'',6,0,0),(8854,2049,3,6,0,'82.59.51.216',1141678692,1,0,1,1,1,1,'','','This is a sample with MSDE using TWBrowse and TCBrowse:\n\n[code:w1ie1z59]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs, oErr\n\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    TRY\n        oRs&#58;Open&#40; &quot;SELECT * FROM T_Utenti ORDER BY Utente&quot;, &quot;Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Quadro&quot;, 1, 3 &#41;\n    CATCH oErr\n        ? oErr&#58;Description\n        RETURN NIL\n    END TRY\n\n    WBROWSERECORDSET&#40; oRs &#41;\n    TCBROWSERECORDSET&#40; oRs &#41;\n\n    oRs&#58;Close&#40;&#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION WBROWSERECORDSET&#40; oRs &#41;\n\n    LOCAL oDlg, oBrw\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 LISTBOX oBrw FIELDS oRs&#58;Fields&#40; &quot;Utente&quot; &#41;&#58;Value;\n           HEADERS &quot;UTENTI&quot;;\n           ON RIGHT CLICK oBrw&#58;Report&#40; &quot;TWBrowse report&quot;, &#46;T&#46; &#41;\n\n    oBrw&#58;bLogicLen = &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    = &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n    oBrw&#58;bGoBottom = &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TCBROWSERECORDSET&#40; oRs &#41;\n\n    LOCAL oDlg, oBrw, oCol\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 BROWSE oBrw;\n           ON RIGHT CLICK oBrw&#58;Report&#40; &quot;TCBrowse report&quot;, &#46;T&#46; &#41;\n\n    ADD COLUMN TO oBrw;\n               DATA oRs&#58;Fields&#40; &quot;Utente&quot; &#41;&#58;Value;\n               HEADER &quot;UTENTI&quot;;\n               COLOR CLR_RED, CLR_GREEN\n\n    ADD COLUMN TO oBrw;\n               DATA oRs&#58;Fields&#40; &quot;Utente&quot; &#41;&#58;Value;\n               HEADER &quot;UTENTI&quot;;\n               COLOR CLR_RED, CLR_GREEN\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;bLogicLen = &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    = &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n    oBrw&#58;bGoBottom = &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SKIPPER&#40; oRs, nSkip &#41;\n\n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition\n\n    oRs&#58;Move&#40; nSkip &#41;\n\n    IF oRs&#58;EOF; oRs&#58;MoveLast&#40;&#41;; ENDIF\n    IF oRs&#58;BOF; oRs&#58;MoveFirst&#40;&#41;; ENDIF\n\n    RETURN oRs&#58;AbsolutePosition - nRec[/code:w1ie1z59]\n\nEMG','',0,'AIA=','w1ie1z59',1,0,'',6,0,0),(8855,2064,3,148,0,'82.201.234.144',1141678792,1,0,1,1,1,0,'','Preprocessor table overflow','317K available\nCompiling TESTXBRW.PRG\nInKey.ch(200)  Fatal C3048  Preprocessor table overflow','',0,'AIA=','3uoth2uv',1,0,'',148,0,0),(8856,2060,6,474,0,'201.144.24.53',1141678917,1,0,1,1,1,1,'','','redefine button .... action (tufuncion(),oget:setfocus())\n\no si lo prefieres\n\nredefine button .... action (tufuncion(obtn))\n...\n\nfunction tufuncion(obtnfoco)\n....\n....\noget:setfocus()\nreturn\n\nSalu2','',0,'AIA=','2417svfl',1,0,'',474,0,0),(8857,2063,3,148,0,'82.201.234.144',1141679013,1,0,1,1,1,0,'','','My question why it appears to me . My path as far as I know so right especially I am building other samples correctly .\nIf you mean that is my fw\\lib\\five.lib is a 32-bit. Can I copy five.lib-16-bit TO fw\\lib ( LIB directory )','',0,'AIA=','3al1pe84',1,0,'',148,0,0),(8858,2065,3,394,0,'207.219.124.134',1141679675,1,0,1,1,1,0,'','Remove Borlands Default System Menu On Dialogs (how)','How do you clear or end the default system menu with dialog from rc file.\n\nOr how do you completely replace the system menu from resources on the fly.\n\nAny help would be appreciated.','',0,'AIA=','kku14zf1',1,0,'',394,0,0),(8859,2049,3,339,0,'200.217.137.210',1141679697,1,0,1,1,1,0,'','','thanks enrico','',0,'AIA=','2rkcxidu',1,0,'',339,0,0),(8860,2063,3,6,0,'82.59.51.216',1141681150,1,0,1,1,1,1,'','','Check your compile batch.\n\nEMG','',0,'AIA=','23h9ssqo',1,0,'',6,0,0),(8861,2064,3,6,0,'82.59.51.216',1141681273,1,0,1,1,1,1,'','Re: Preprocessor table overflow','Are you sure you are using [x]Harbour? It seems a Clipper error.\n\nEMG','',0,'','mjjgv73c',1,0,'',6,0,0),(8862,2066,6,61,0,'201.217.162.200',1141681727,1,0,1,1,1,0,'','xBackUpLite de xHarbour a Harbour con Browse de FW','Amigos:\n\nHe visto esta utilidad que esta muy,muy bien.\nSeria posible que alguien la tenga ya para Harbour y con el\nBrowse de FW o el de Hernan es lo mismo.\n\nSi es asi le agradezco me la envien.\n\nGracias y saludos\n\nRuben Fernandez.','',0,'','1po3ek0m',1,0,'',61,0,0),(8863,2055,1,2,0,'87.218.146.136',1141682930,1,0,1,1,1,1,'','','Alex,\n\nHow are you checking that it is not returning an array ?','',0,'','15rcyq6j',1,0,'',2,0,0),(8864,2063,3,2,0,'87.218.146.136',1141683052,1,0,1,1,1,1,'','','Ehab,\n\nFive.lib and FiveC.lib are 16 bits libraries for CA-Clipper.\n\nHarbour/xHarbour use FiveH.lib and FiveHC.lib','',0,'','phcadlnj',1,0,'',2,0,0),(8865,2046,3,2,0,'87.218.146.136',1141683124,1,0,1,1,1,1,'','','Ehab,\n\nThose are warning you can safely ignore.','',0,'','zpp07huw',1,0,'',2,0,0),(8866,2005,2,187,0,'201.155.188.195',1141687805,1,0,1,1,1,0,'','','Daniel, gracias por tu respuesta, ya lo probe, y pasa lo mismo!!! localmente imprime inmediatamente, de red, tarda 30 segundos en imprimir !!!!  ya probe con un \"Type boleto.txt &gt;Lpt1\" y es lo mismo, creo que el problema(o tardanza) es de Windows no de la clase.\n\nEncontre que se puede tambien con el comando Print de la sig manera:\nwaitrun(\"command.com /c print /d:\"+ pvvarios-&gt;mpuertop +\"boleto.txt\" ,0)\n\nDe esta manera si imprime inmediatemente!!!!    pero............me avanza el papel lo que le da su gana!!! como que le manda varios saltos de pagina al final !!!\n\n\nla verdad ya no se que hacer!!!!','',0,'','1yh3zwoe',1,0,'',187,0,0),(8867,2067,6,73,0,'201.135.57.8',1141688732,1,0,1,1,1,0,'','twcapture...','Tengo un programita que me detecta \"x\" ventana abierta, quiero que ese programa se cargue como servicio y no se pueda ver por el administrador de tareas, como le hago?\notra pregunta, en el administrador de tareas tengo cargado el programa ares.exe, como hago para terminar el .exe, mas no para cerrar la ventana?\nsalu2\nPako','',0,'','wngpaopo',1,0,'',73,0,0),(8868,2053,6,40,0,'200.52.186.48',1141689044,1,0,1,1,1,0,'','','Muuuchas gracias a ambos (Master Rene y Marcelo), ya les cuento como \nme fue.\n\nSaludos\nJoel Andujo','',0,'','2j2kg783',1,0,'',40,0,0),(8869,2058,6,2,0,'87.218.146.136',1141689642,1,0,1,1,1,1,'','','Jose Luis,\n\nNo puedes usar la versión más reciente de Harbour/xharbour con esa versión de FWH, no son compatibles.\n\nPara poner una imagen aqui, primero súbela a <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us\">http://www.imageshack.us</a><!-- m --> y te proporciona una dirección URL que tienes que copiar en tu mensaje y ya está.','',0,'','1cr9zcbv',1,0,'',2,0,0),(8870,2068,6,439,0,'201.221.45.146',1141691762,1,0,1,1,1,0,'','Pages transparentes','Alguien me puede decir si se puede hacer transparente un page ?\n\nPorque he tratado de resolverlo poniendo el mismo brush en el page y luego haciendo transparentes las dialogs del page, esto funciona, pero en la mayoría de los casos se produce un feo efecto de solapado entre el bitmap cargado para el page y el que está en el dialog contenedor de la misma.\n\nPlease, si es posible resolver esto se agradecerá, probé de usar la variable lTransparent de oPage (que de hecho no se si la tiene) y si bien no me da error, no hace nada.\n\nToda ayuda será bien apreciada.','',0,'','1albfwn6',1,0,'',439,0,0),(8871,2057,3,2,0,'87.218.146.136',1141692067,1,0,1,1,1,1,'','','Reinaldo,\n\nWe have modified the class to control those issues. We email you the details.','',0,'','37n1dy5a',1,0,'',2,0,0),(8872,2057,3,299,0,'69.65.95.131',1141692200,1,0,1,0,1,0,'','','Antonio;\n\nQuick work.\n\nThank you very much.\n\n\nReinaldo.','',0,'','1dh69l24',1,0,'',299,0,0),(8873,2057,3,2,0,'87.218.146.136',1141692759,1,0,1,1,1,1,'','','Reinaldo,\n\nDo you speak spanish ?','',0,'','2kjh1z94',1,0,'',2,0,0),(8874,2051,3,239,0,'202.104.50.11',1141693715,1,0,1,1,1,0,'','','This works! Thank you !\n  EMG, what or how to define a  status bar ?\n\nShuming Wang','',0,'','1j16x4b8',1,0,'',239,0,0),(8875,2057,3,299,0,'69.65.95.131',1141693782,1,0,1,0,1,0,'','','Antonio;\n\nSi.  Claro que si.   Mi papá de Galicia.  Mi mamá Cubana.  Yo nací en Cuba y crecí en Puerto Rico hasta bastante grande.   Hablo muy buen español.\n\nPero mi teclado es en inglés y a veces para escribir en español paso las de caín.  Nunca he usado un teclado en espanol.   Además, he estudiado todo esto de computadoras en EU.  Todo en inglés y me pierdo con los téminos técnicos en nuestro lenguaje.  Pero en mi casa se habla español con mis hijas y mi esposa.\n\nRecibe un saludo,\n\nReinaldo.','',0,'','1j9cnyso',1,0,'',299,0,0),(8876,2057,3,2,0,'87.218.146.136',1141694086,1,0,1,1,1,1,'','','Reinaldo,\n\ngracias. Te envio por email las instrucciones de uso en español.\n\nUsas xharbour ? con Borland ? ó xHB ? Para enviarte las librerias correctas.','',0,'','2j6mqgxs',1,0,'',2,0,0),(8877,2057,3,299,0,'69.65.95.131',1141695548,1,0,1,0,1,0,'','','xharbour + Borland.\n\nGracias.','',0,'','2conjyjp',1,0,'',299,0,0),(8878,2069,3,480,0,'201.0.249.57',1141697688,1,0,1,1,1,1,'','Example how to put de email from classe tpop3 in a database','Hi\n\nI test de class TPop3 and it works fine but i am with difficulty to separate the information for places them in dbf . The data of the email arrive all meetings and are with difficulty of separate them.\n\nSomebody can help me with an example ?','',0,'','2xpkcejo',1,0,'',480,0,0),(8879,2065,3,394,0,'207.219.124.134',1141698416,1,0,1,1,1,0,'','Found It On the old forum.','procedure DisableX(ODLG)\n\n  local hMenu\n\n  hMenu := GetSystemMenu(oDlg:hWnd,.f.)\n  RemoveMenu( hMenu, 6, MF_BYPOSITION)\n  RemoveMenu( hMenu, 5, MF_BYPOSITION)\n RemoveMenu( hMenu, 4, MF_BYPOSITION)\n RemoveMenu( hMenu, 3, MF_BYPOSITION)\n RemoveMenu( hMenu, 2, MF_BYPOSITION)\n RemoveMenu( hMenu, 1, MF_BYPOSITION)\n RemoveMenu( hMenu, 0, MF_BYPOSITION)\n  return','',0,'','3fzaejii',1,0,'',394,0,0),(8880,2054,7,95,0,'201.133.135.111',1141699341,1,0,1,1,1,0,'','','Hola ...\n\nDime, no basta con asignar un valor nil al objecto ?\nY que el OS  y el colector de basura se encarge de liberarlo ?\n\nsaludos\nOsvaldo Ramirez','',0,'','1f3l2mrs',1,0,'',95,0,0),(8881,2055,1,32,0,'196.36.8.34',1141699966,1,0,1,1,1,0,'','palbmpread failure','Hi,\n\nI sometimes get an array error from TBitmap():Define() method, where the hBitmap and hPalette are read from the PalBmpRead return. I slightly modified as follows:\n\n      aBmpPal = PalBmpRead( If( oWnd != nil, oWnd:GetDC(), 0 ), cBmpFile )\n      if isarray(aBmpPal)\n        ::hBitmap  = aBmpPal[ 1 ]\n        ::hPalette = aBmpPal[ 2 ]\n      else\n        ::hBitmap  = 0\n        ::hPalette = 0\n      endif','',0,'','3sh2bpfa',1,0,'',32,0,0),(8882,2070,3,148,0,'82.201.251.42',1141718071,1,0,1,1,1,0,'','xBase command','I need to know if that class found in fivewin or not I am seeing it a lot in many windows programs :\n\nIt is like Combo box but small and filled with dots and works like as help for get/read entry .','',0,'','1qz6aepk',1,0,'',148,0,0),(8883,2057,3,2,0,'87.218.146.136',1141720563,1,0,1,1,1,1,'','','Already sent by email <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','e1u49cap',1,0,'',2,0,0),(8884,2065,3,2,0,'87.218.146.136',1141720631,1,0,1,1,1,1,'','','Mike,\n\nThanks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','26t6iiyy',1,0,'',2,0,0),(8885,2055,1,2,0,'87.218.146.136',1141720740,1,0,1,1,1,1,'','','Alex,\n\nIf you review PalBmpRead() source code you may see it always returns an array.','',0,'','324lhlis',1,0,'',2,0,0),(8886,2054,7,2,0,'87.218.146.136',1141720887,1,0,1,1,1,1,'','','Osvaldo,\n\nSi usas un objeto, el objeto lo destruye en el método End(). \n\nEn el ejemplo de Jose Luis, él está cargando un bitmap directamente, sin usar un objeto, luego hay que liberarlo cuando ya no se necesite.','',0,'','k43svl5l',1,0,'',2,0,0),(8887,2061,18,21,0,'81.172.126.213',1141720928,1,0,1,1,1,1,'','','Hola\n\nMuchas gracias por tu ayuda. Ese mismo problema lo tengo yo y llevaba un tiempo intentando dar con la solución.\n\nLo pruebo y ya te cuento.','',0,'','kgdomu9y',1,0,'',21,0,0),(8888,1951,4,449,0,'212.64.224.250',1141723041,1,0,1,1,1,0,'','','Otto,\n\n&gt; I developed a \"Stockcontrol\" component for the mobile device. \n\nIt\'s a very nice app. Congratulations\n\n\n&gt; waitrun(\"cecopy /is c:\\ts6\\export\\*.* dev:\\import\",1) \n\nIt\'s a greta idea but, cecopy you can distribute freely? or does it have royalties or licenses?\n\n-----------------\nI find in <!-- m --><a class=\"postlink\" href=\"http://www.rainer-keuchel.de/software.html\">http://www.rainer-keuchel.de/software.html</a><!-- m --> with Desktop Tools for Windows CE Needed for setting registry entries etc. To be used on your PC. Contains the following files: cecopy.exe cedel.exe cedir.exe ceexec.exe cegetinfo.exe cemkdir.exe cereg.exe. This is a freeware.\n-----------------\n\n\nRegards.\nC.','',0,'','35hnmexj',1,0,'',449,0,0),(8889,2000,6,456,0,'62.43.32.209',1141723933,1,0,1,1,1,1,'','','Gracias Antonio, efectivmanete con esta modificación solo se evalua una vez, pero aunque en este ejemplo todo queda funcionando bien, en el real tengo problemas con el foco(no vuelve al campo editado) y con el valid en si. Ahora ando algo liado, y obtare por visualizar los mensajes en un oSay, y así no hay perdida de foco, y todo parece funcionar bien. Mas adelante, volvere a revisarlo con el msgAlert.','',0,'','1mpkic22',1,0,'',456,0,0),(8890,523,6,456,0,'62.43.32.209',1141725270,1,0,1,1,1,1,'','','Armando, tal como comentamos por correo-e aqui te pongo una pequeña prueba que hice con la conexion ODBC del AS/400\n[code:28jv6ecr]\n//-----------------\nFUNCTION TestOdbc&#40;&#41;\n//-----------------\n   Local oODBC,oWndOdbc,oBrw ,oDbf\n   DEFINE WINDOW oWndOdbc MDI CHILD  FROM 2,2 TO 22,60 TITLE \'&#40;\'+ProcName&#40;&#41;+&quot;&#41; Tabla en AS/400&quot; COLOR &quot;B/W&quot;\n   //----\n   oODBC &#58;= TOdbc&#40;&#41;&#58;New&#40;&quot;haprot01&quot; &#41; //no paso Usr ni Psw pq la sesion ya esta abierta\n   //haprot01-&gt;Nombre del origen de datos que apunta al AS/400 via Client Access ODBC\n   If !oOdbc&#58;lSuccess\n      oOdbc&#58;ShowErrorList&#40;&quot;ODBC session not successfully initialized, aborting&#46;&#46;&#46;&quot;&#41;\n      oOdbc&#58;End&#40;&#41;\n      return nil\n   Endif\n\n   oDbf &#58;= oOdbc&#58;Query&#40; &quot;SELECT CliCod,CliNomFis FROM HAPROT01F&#46;client&quot; &#41;\n   //                                                biblioteca&#46;fichero\n   // puedes hacer select de ficheros fisicos, logicos o joins&#46; O juntarlos en la propia sentencia SQL\n   oDbf&#58;PrimaryKeys&#40;&#123;\'CliCod\'&#125;&#41;//Le asigno la clave manualmente, pq el ODBC del AS/400 no la devuelve\n   //Necesario si queremos hacer actualizaciones\n   if oOdbc&#58;IsError&#40;&#41;\n      oOdbc&#58;ShowErrorList&#40;&#41;\n      oOdbc&#58;aErrors &#58;= &#123;&#125;\n      oDbf&#58;End&#40;&#41;\n      return nil\n   endif\n   oDbf&#58;Open&#40;&#41;\n   oDbf&#58;Complete&#40;&#41;\n   oDbf&#58;GoTop&#40;&#41;\n   //------\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40;oWndOdbc&#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;T&#46;\n\n   oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData&#58;= &#123;|| Str&#40;oDbf&#58;CliCod&#41; &#125;\n   oCol&#58;cHeader &#58;= \'Cod\'\n\n   oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData&#58;= &#123;|| oDbf&#58;CliNomFis &#125;\n   oCol&#58;cHeader &#58;= \'Nombre Fiscal\'\n\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oWndOdbc&#58;oClient &#58;= oBrw\n   oBrw&#58;SetFocus&#40;&#41;\n   ACTIVATE WINDOW oWndOdbc VALID &#40;oDbf&#58;END&#40;&#41;,&#46;T&#46;&#41;\n/* Un test para probar si grababa correctamente en AS/400, todo OK&#46;\n   oDbf&#58;AddNew&#40;&#41;\n   oDbf&#58;CliCod   &#58;=18\n   oDbf&#58;CliNomFis&#58;=\'Grabado desde Harbour\'\n   oDbf&#58;Update&#40;&#41; */\nRETURN NIL\n[/code:28jv6ecr]','',0,'AIA=','28jv6ecr',1,0,'',456,0,0),(8891,2051,3,6,0,'82.55.208.18',1141725735,1,0,1,1,1,1,'','','Status bar = Message bar. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','7xnv38s6',1,0,'',6,0,0),(8892,1923,19,26,0,'193.77.141.114',1141729610,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:28qz4yce]The most recent FW 2.7 does not need that DLL.[/quote:28qz4yce]\n\nYep, it works without commctrl.dll with February build.\nHere are the 16 and 32 bit \"About\" boxes:\n[url=http&#58;//www&#46;upitfree&#46;com/view/415:28qz4yce][img:28qz4yce]http&#58;//www&#46;upitfree&#46;com/image/415&#46;jpeg[/img:28qz4yce][/url:28qz4yce][url=http&#58;//www&#46;upitfree&#46;com/view/416:28qz4yce][img:28qz4yce]http&#58;//www&#46;upitfree&#46;com/image/416&#46;jpeg[/img:28qz4yce][/url:28qz4yce]\n\nBTW, it\'s funny to see \"DOS 5.0\" in Vista, which is returned\nby OS() function in 16-bit version of FW. (this is probably\nbecause of NTVDM). Is there a simple way to get version\nof real OS in 16bit FW?\n\nRegards, Roman','',0,'mA==','28qz4yce',1,0,'',26,0,0),(8893,2019,6,52,0,'201.212.25.213',1141731535,1,0,1,1,1,1,'','Para Antonio','Antonio,\n\nEstamos desarrollando un proyecto el cual esto es muy importante. \nSe puede de alguna manera generar esa cadena y tomarla desde funciones tantos C como xHar? \n\n\nGracias.','',0,'mA==','2y3u2rm2',1,0,'',52,0,0),(8894,2019,6,2,0,'87.218.146.136',1141735214,1,0,1,1,1,1,'','','Gustavo,\n\nSi necesitas usar MessageBox() para mostrar cadenas que contengan ceros, podrias cambiar los ceros por Chr( 255 ) y dejar solo el cero del final de cadena.','',0,'mA==','205cdqih',1,0,'',2,0,0),(8895,2057,3,67,0,'62.235.24.74',1141738075,1,0,1,1,1,0,'','','Antonio\n\nCan you also send it to me (english) ?\n\nFrank','',0,'mA==','23pc9z5w',1,0,'',67,0,0),(8896,2071,22,449,0,'212.64.224.250',1141738390,1,0,1,1,1,0,'','ADJUST en Bitmap','Antonio,\n\nComo teneis el tema del ADJUST en los bitmaps ?\n\nAparece u2 mensajes -&gt; Not implemented yet  -&gt; CreateBitmapIndirect() y SetStretchBlt()\n\n\nSaludos.\nC.','',0,'mA==','2au9zjq5',1,0,'',449,0,0),(8897,2049,3,339,0,'200.216.16.126',1141738953,1,0,1,1,1,0,'','','Thanks Enrico..\n\n\n   When I Insert new ReC IN TABLE , THE REGISTRY DON´T POSITION FOR BY ORDER ..\n\n   DO YOU KNOW ABOUT THIS?\n\n   I´M USING \n\n\n    ::ADDNEW()\n    ::alias:fields(value1):value := value2\n    ::UPDATE()\n\n    BUT THE NEW REGISTRY DON´T CONRRECT POSITION BY ORDER;..\n\n\nTHANKS AGAIN ,\nMAURICIO (BRASIL)','',0,'mA==','3f88ukve',1,0,'',339,0,0),(8898,2072,6,41,0,'166.114.252.26',1141739085,1,0,1,1,1,0,'','ButtonBmp de Rossini','Holas,\n\nhe intentado compilar las  modificaciones de Rossini a la clase Button pero sin exito, logro compilar Button.prg + Buttonb.prg  mas el ejemplo Testbubm.prg pero al querer correr el pubto exe me da el error \"No se puede iniciar la aplicacion porque su configuracion es incorrecta\"\n\nEstoy utilizando xHarbour .99.5 FWH 2.6 Abril BCC, alguna sugerencia, o el entorno que dispongo no es copatible?\n\nsaludos\n\nMarcelo','',0,'mA==','i9ehnhxn',1,0,'',41,0,0),(8899,2049,3,6,0,'82.55.208.18',1141740980,1,0,1,1,1,1,'','','You have to use Requery() method followed by Find() method (to reposition the record pointer on the right record).\n\nEMG','',0,'mA==','2nhlyt96',1,0,'',6,0,0),(8900,2054,7,262,0,'83.97.168.140',1141741217,1,0,1,1,1,1,'','','Yo uso mucho para los browse :\n\n local ahBmp:={ LoadBitmap( GetResources(),\"si16\" ),LoadBitmap( GetResources(),\"no16\" ) }\n\nSegun lo eXplicado , cuando cierro el dialogo he de liberar los dos recursos usados , es asi tambien desde recursos ? , como lo hago ?.\nPensé que al estar declarado local  , se liberaba al salir de la function.\nSaludso. y gracias anticipadas por vuestras enseñanzas .','',0,'mA==','tev5me40',1,0,'',262,0,0),(8901,2073,3,195,0,'62.38.68.220',1141741364,1,0,1,1,1,0,'','Uunresolved externals','Hello Antonio and from hear <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n First of all ask you does C3 IDE work\'s with FWC3 ?\n Trying  some functions from fwc3 i get those unresolved externals\n\n\"PARAMCOUNT\" referenced from module FILENAME\n\"GETPARAM\" referneced from module FILENAME\n\nI try to use the folloeing code :\nSET DEFAULT TO (cFilePath(GetModuleFileName(GetInstance()))+\"DATA\\\")\nI Know that this piece of code works fine with xHarbour / FWH..\n\nAny help wold be qppreciated  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> \n\nTIA\nDIONISIS','',0,'mA==','1gtfm3tb',1,0,'',195,0,0),(8902,2054,7,449,0,'212.64.224.250',1141741855,1,0,1,1,1,0,'','','Jose Luis,\n\nDeleteObject( ahBmp[1] )\nDeleteObject( ahBmp[2] )\n\nSaludos.\nC.','',0,'','c5jdxkvx',1,0,'',449,0,0),(8903,2066,6,110,0,'165.98.151.243',1141743390,1,0,1,1,1,1,'','','hacer el cambio de xharbour a harbour no es muy dificil, ya que las variantes son que se utilizan ciertas extencions del lenguaje para dar un poco mas de velocidad a los procesos. \n\nahora, que se use twbrowse no es que sea dificil, pero por que no continuar usando tsbrowse?\n\nen su momento, cuando se incio el trabajo de xbackuplite, hbzip de harbour tenia cirtas diferencias entre xharbour y harbour. a la fecha no se si ambos proyectos esten sincronizados.\n\nsalu2\ncarlos vargas','',0,'','u3oxxzbt',1,0,'',110,0,0),(8904,2049,3,339,0,'200.216.16.126',1141743839,1,0,1,1,1,0,'','','i will try \n\nthanks enrico','',0,'','1j52h2er',1,0,'',339,0,0),(8905,2038,6,110,0,'165.98.151.243',1141744260,1,0,1,1,1,1,'','','Otro tips, para los que quieran recompilar xbackuplite, se usa la lib pcrepos.lib y debe estar una pocicion especifica, de no ser asi, no funciona <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> todavia no se por que. \n\n[code:341fv7nc]\nD&#58;\\borland\\xharbour\\Lib\\hbzip&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\vm&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\rtl&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\pcrepos&#46;lib +  &lt;&lt;&lt;---------Si se cambia de pos, falla&#46;\nD&#58;\\borland\\xharbour\\Lib\\gtwin&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\lang&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\rdd&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\macro&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\pp&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbfntx&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbfcdx&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbffpt&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\hbsix&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\common&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\codepage&#46;lib +\nD\n[/code:341fv7nc]','',0,'AIA=','341fv7nc',1,0,'',110,0,0),(8906,2073,3,2,0,'87.218.146.136',1141746549,1,0,1,1,1,1,'','','Dionisis,\n\n&gt; First of all ask you does C3 IDE work\'s with FWC3 ? \n\nNo, sorry.\n\n&gt; \"PARAMCOUNT\" referenced from module FILENAME \n&gt; \"GETPARAM\" referneced from module FILENAME \n\nPlease declare them like these:\n\nfunction ParamCount() ; return 0\nfunction GetParam() ; return nil','',0,'AIA=','e62smgli',1,0,'',2,0,0),(8907,2057,3,2,0,'87.218.146.136',1141746613,1,0,1,1,1,1,'','','Frank,\n\nDo you use Harbour or xHarbour ? Borland, Microsoft or xHB ?','',0,'AIA=','4lqdvur0',1,0,'',2,0,0),(8908,2071,22,2,0,'87.218.146.136',1141746720,1,0,1,1,1,1,'','','Carles,\n\nSon funciones que no soporta el API de Windows Mobile. Tenemos que implementar unas equivalentes, ó hacerlo de otra forma.','',0,'AIA=','1jtvkh3x',1,0,'',2,0,0),(8909,2074,6,73,0,'201.135.57.8',1141747972,1,0,1,1,1,0,'','ayuditaa con captura de ventanas','Como puedo obtener los nombres de las ventanas ó aplicaciones abiertas?\nes para cerrar ventanas que no quiero que tengan abiertas, este es mi codigo a ver si alguien me puede echar una manita:\n\nlocal cText:={}\n AADD(cText,\"mess\")\n AADD(cText,\"conversa\")\n AADD(cText,\"yahoo\")\n AADD(cText,\"icq\")\n AADD(cText,\"imesh\")\n AADD(cText,\"xxx\")\n AADD(cText,\"porn\")\n AADD(cText,\"skype\")\n\nFOR x := 1 TO len(cText)\n   hWnd := GetActiveWindow()\n   hWnd := FindWindow( 0 )\n   hWnd := GetDesktopWindow()\n   cTit := lower(GetWindowText(hWnd))\n   cTit := lower(GetWindowText(hWnd2))\n   nPos := AT(cText[x],cTit)\n   IF nPos &lt;&gt; 0\n      SendMessage( hWnd, WM_CLOSE,0,0)\n   ENDIF\nNEXT\n\nlo que quiero es cerrar todas las ventanas que cumplan con los valores de cText sin importar en la posicion que se encuentra en el nombre de la ventana.\nespero haberme explicado\ngracias\nPako','',0,'','14ow8t77',1,0,'',73,0,0),(8910,2075,3,190,0,'202.65.134.45',1141749401,1,0,1,1,1,0,'','What is the suitable function to Clipper\'s KEYBOARD()','Hi All\n\nPlase guide me how to post  VK_TAB from the current control of a DIALOG\nI.E TSBROWSE  to an another CONTROL in the DIALOG automatically \nwithout literally pressing the TAB key on the keyboard,  like the way in \nclipper KEYBOARD(K_TAB).\n\n- Ramesh Babu P','',0,'','2yryv80b',1,0,'',190,0,0),(8911,2076,18,26,0,'193.77.141.114',1141750016,1,0,1,1,1,1,'','RightAlt+V and RightAlt+X in TGet','Hello!\n\nWhenever I press RightAlt+V (for inserting @ on Slovenian keyboards) or\nRightAltX in GET controls, the cursor jumps to the beginning of the GET.\nI think that the bug lies in this code (tget.prg)\n\n[code:372aue7n]      case &#40; nKey == VK_INSERT &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;&quot;V&quot;&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;\'X\'&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n[/code:372aue7n]\n\nbecause RightAlt means Ctrl-LeftAlt. Here it should be checked that Alt is not pressed down!\n\nRegards, Roman','',0,'AIA=','372aue7n',1,0,'',26,0,0),(8912,1951,4,51,0,'80.122.88.242',1141752397,1,0,1,1,1,0,'','','I downloaded the software form the microsoft-homepage:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyId=74473FD6-1DCC-47AA-AB28-6A2B006EDFE9&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\nRegards\nOtto','',0,'AIA=','3aafr01k',1,0,'',51,0,0),(8913,2072,6,104,0,'201.58.2.8',1141752490,1,0,1,1,1,0,'','','Olá Marcelo,\n\nAqui está o link para a classe button: <!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/BUTTON.ZIP\">http://geocities.yahoo.com.br/qiinforma ... BUTTON.ZIP</a><!-- m -->\n\ne aqui para a classe folder:\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/FOLDER.ZIP\">http://geocities.yahoo.com.br/qiinforma ... FOLDER.ZIP</a><!-- m -->\n\nTente com estes,\n\nAbraços,\n\nRossine.','',0,'AIA=','2ocp9r2x',1,0,'',104,0,0),(8914,2074,6,63,0,'80.37.102.128',1141753742,1,0,1,1,1,0,'','','Pako:\nPrueba algo así:[code:3l7iwwqo]\n#define GW_CHILD                5\n#define GW_HWNDNEXT         2\n\nFUNCTION Main&#40;&#41;\nLOCAL aTxt &#58;= &#123;&quot;mess&quot;, &quot;conversa&quot;, &quot;yahoo&quot;, &quot;icq&quot;&#125;\nLOCAL aWnd &#58;= &#123;&#125;\nLOCAL hWnd &#58;= GETWINDOW&#40;GETDESKTOPWINDOW&#40;&#41;, GW_CHILD&#41;\nLOCAL i, cTitle\nWHILE hWnd != 0\n      cTitle  &#58;= lower&#40;GETWINDOWTEXT&#40;hWnd&#41;&#41;\n      FOR i &#58;= 1 TO LEN&#40;aTxt&#41;\n          IF aTxt&#91;i&#93; $ cTitle\n             AADD&#40;aWnd, hWnd&#41;\n          ENDIF\n      NEXT\n      hWnd &#58;= GETWINDOW&#40;hWnd, GW_HWNDNEXT&#41;\nENDDO\nFOR i &#58;= 1 TO LEN&#40;aWnd&#41;\n    SendMessage&#40;aWnd&#91;i&#93;, WM_CLOSE, 0,0&#41;\n    SysRefresh&#40;&#41;\nNEXT\nRETURN NIL[/code:3l7iwwqo]\nSaludos\nRafael','',0,'AIA=','3l7iwwqo',1,0,'',63,0,0),(8915,2049,3,339,0,'200.216.16.126',1141754237,1,0,1,1,1,0,'','','thanks thanks , enrico .. \n\nYour Help are very help me...\n\n\n    If tou permission only Ask ...\n\n    You Can Explain me As Delete Records and Align by order ?\n\n\nThanks Again','',0,'AIA=','2tthx4ys',1,0,'',339,0,0),(8916,2072,6,41,0,'166.114.252.26',1141754834,1,0,1,1,1,0,'','','Rossini,\n\nprobe el button bmp, y funciono perfectamente, gracias\n\nun abrazo\n\nMarcelo\n\n[quote=&quot;Rossine&quot;:2nwmicoa]Olá Marcelo,\n\nAqui está o link para a classe button: <!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/BUTTON.ZIP\">http://geocities.yahoo.com.br/qiinforma ... BUTTON.ZIP</a><!-- m -->\n\ne aqui para a classe folder:\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/FOLDER.ZIP\">http://geocities.yahoo.com.br/qiinforma ... FOLDER.ZIP</a><!-- m -->\n\nTente com estes,\n\nAbraços,\n\nRossine.[/quote:2nwmicoa]','',0,'gA==','2nwmicoa',1,0,'',41,0,0),(8917,2077,3,339,0,'200.216.16.126',1141754872,1,0,1,1,1,0,'','Where Can ACCESS in DATABASE internet FREE ?','My Friends ...\n\n     Where CAN ACCESS one BD only TEST VIA ADO ?\n\n\n\n\n\nmauricio\n(BRAZIL)','',0,'gA==','19eji8q2',1,0,'',339,0,0),(8918,2075,3,303,0,'68.7.28.54',1141754917,1,0,1,1,1,0,'','','Here is how you can simulate Clipper\'s keyboard() function:\n\nFUNCTION FwKeyboard( oWnd, nKey )\n\n   oWnd:SetFocus()\n   oWnd:PostMsg( WM_KEYDOWN, nKey, 0)\n\nRETURN  NIL','',0,'gA==','mmts2ip7',1,0,'',303,0,0),(8919,2075,3,266,0,'60.50.48.62',1141755270,1,0,1,1,1,1,'','','__keyboard(K_TAB)','',0,'gA==','26ixvi3i',1,0,'',266,0,0),(8920,2057,3,67,0,'62.235.24.74',1141756947,1,0,1,1,1,0,'','','Antonio\n\nXharbour , commercial version','',0,'gA==','1ndh6oi4',1,0,'',67,0,0),(8921,2074,6,73,0,'201.135.57.8',1141758131,1,0,1,1,1,0,'','ventana','Gracias Rafa voy a probar\nsalu2\nPako','',0,'gA==','2gqrck90',1,0,'',73,0,0),(8922,2049,3,6,0,'82.55.208.18',1141758629,1,0,1,1,1,1,'','','Please rephrase your question. I don\'t understand.\n\nEMG','',0,'gA==','1sr3yhcz',1,0,'',6,0,0),(8923,2074,6,73,0,'201.135.57.8',1141759101,1,0,1,1,1,0,'','','Excelente !!! Rafa funcionó, lo puse en modo servicio y con un timer y quedo de perlas, nomas una duda, abri el internet explorer y fui a la pagina de yahoo y en el texto de la ventana si aparece yahoo y no me la cierra, tambien probe con una pagina pronografica y aparecen las xxx y tampoco la cerró,alguna idea?\ngracias\npako','',0,'gA==','2ndscbki',1,0,'',73,0,0),(8924,2074,6,63,0,'80.37.102.128',1141759608,1,0,1,1,1,0,'','','Pako:\nPues no sé.... Si vas a otras páginas en el Explorer, ¿las cierra bien?\nRafa','',0,'gA==','3dyo51l1',1,0,'',63,0,0),(8925,2074,6,73,0,'201.135.57.8',1141761507,1,0,1,1,1,0,'','','Rafa, fijate que ninguna de explorer me las cierra, abri la msn web messenger y no la cerró, sigo probando, se podra con las ventanas hijas o padre, a lo mejor Antonio nos puede dar una orientada.\n1000 gracias\npako','',0,'gA==','3bvasxem',1,0,'',73,0,0),(8926,2049,3,339,0,'200.216.16.126',1141761708,1,0,1,1,1,0,'','','When i delete records , the position are don´t correct order LISTBOX ..\n\n\n\n  You have Samples As delete records and position correct LISTBOX\n\n\n thanks enrico per attention..\n\n\nmauricio','',0,'gA==','31bgumbo',1,0,'',339,0,0),(8927,2006,6,232,0,'62.48.206.147',1141762794,1,0,1,1,1,0,'','Crystal Reports 8.5','Hi Rene,\n\nCan you please tell me how to use Crystal Reports 8.5 with xHarbour and FiveWin?\n\nI use class TRCW and can\'t change SQL query, etc.\n\nDo you have a solution for this?\n\nThanks,\n  Rui Caridade.','',0,'gA==','20yppz87',1,0,'',232,0,0),(8928,2049,3,6,0,'82.55.208.18',1141763193,1,0,1,1,1,1,'','','[code:2k3886gf]oRs&#58;Delete&#40;&#41;\n\noRs&#58;MoveNext&#40;&#41;\n\nIF oRs&#58;EOF; oRs&#58;MovePrevious&#40;&#41;; ENDIF[/code:2k3886gf]\n\nEMG','',0,'AIA=','2k3886gf',1,0,'',6,0,0),(8929,2019,6,52,0,'201.212.25.213',1141764133,1,0,1,1,1,1,'','','Antonio,\n\nDesde ya gracias por todo el tiempo que me estas dando, no necesito mostrar dicha cadena sino que necesito que esa cadena sea almacenada en una variable, para luego tratarla, en si la cadena guarda un contenido y luego tengo que ir tomando partes de ella (con substr(... ) ) para realizar diferentes tareas.\n\nEl tema es que cuando quise realizar esto no lo pude hacer ya que la cadena me llegaba cortada a la variable que la pasaba. \n\nsi me permitis te envio a tu correo personal las rutinas para que observer el trabajo que necesito hacer.','',0,'AIA=','1l0g8a9r',1,0,'',52,0,0),(8930,2049,3,339,0,'200.216.16.126',1141764163,1,0,1,1,1,0,'','','thanks again enrico','',0,'AIA=','3vibworj',1,0,'',339,0,0),(8931,2074,6,63,0,'80.37.102.128',1141764455,1,0,1,1,1,0,'','','Pako:\nSí; a mí tampoco me cierra las ventanas del Explorer.  A ver si alguien tiene idea de por qué...\nEntretanto, por qué no intentas capturarlas mediante TWCapture()? Estoy bastante seguro de que eso sí funcionará.  Es fácil: En el mismo bucle del ejemplo anterior, en lugar de enviar el mensaje WM_CLOSE, captura la ventana y ciérrala:[code:3lbaujtu]\noWnd &#58;= TWCapture&#40;&#41;&#58;New&#40;cTitle&#41;\noWnd&#58;End&#40;&#41;\n[/code:3lbaujtu]\nSaludos,\nRafael','',0,'AIA=','3lbaujtu',1,0,'',63,0,0),(8932,2078,6,97,0,'201.161.133.62',1141767075,1,0,1,1,1,1,'','ADo  oRs:MoveLast()   Errror','Estoy iniciando con ado, pero no entiendo porque me manda este error.\n\n   Error description: Error ADODB.Recordset/16389  E_FAIL: MOVELAST\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:MOVELAST(0)\n   Called from:  =&gt; SKIPPER(125)\n\nle agrege llave primaria a la tabla y sigo con el error.\n\n\nsaludos\nfernando sandoval ruiz','',0,'AIA=','3hc5y8mv',1,0,'',97,0,0),(8933,2078,6,97,0,'201.161.133.62',1141767376,1,0,1,1,1,1,'','Aqui es el codigo perdon','Local Ors, Obrw, oDlg\noRs = CREATEOBJECT( \"ADODB.Recordset\" )\n\nTRY\n  oRs:Open( \"SELECT * FROM EMPRESAS ORDER BY NUMCIA\", \"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;PORT=3306;DATABASE=comandas;UID=root;PWD=root;OPTION=1;\"  )\nCATCH oErr\n   ? oErr:Description\n   RETURN NIL\nEND TRY\n\n// oInspect( oRecSet)\n//Inspector( oRdd , \"oRdd\")\nDEFINE FONT oFontBrw Name \"Ms Sans Serif\" SIZE 0,-11\n\n//DEFINE DIALOG oDlg RESOURCE \"DLGMANDB\" FONT oFontBrw\nDEFINE DIALOG oDlg SIZE 300, 300\n\n\n    @ 0, 0 BROWSE oBrw;\n           ON RIGHT CLICK oBrw:Report( \"TCBrowse report\", .T. )\n\n    ADD COLUMN TO oBrw;\n               DATA oRs:Fields( \"NomCia\" ):Value;\n               HEADER \"UTENTI\";\n               COLOR CLR_RED, CLR_GREEN\n\n    ADD COLUMN TO oBrw;\n               DATA oRs:Fields( \"DirCia\" ):Value;\n               HEADER \"UTENTI\";\n               COLOR CLR_RED, CLR_GREEN\n\n\n    oBrw:bLogicLen = { || oRs:RecordCount }\n    oBrw:bGoTop    = { || oRs:MoveFirst() }\n    oBrw:bGoBottom = { || oRs:MoveLast() }\n    oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }\n    oBrw:cAlias    = \"ARRAY\"\n\n\n//   oDlg:oClient:=oBrw\n//   oDlg:SetControl( oBrw )\n//   oBrw:lCellStyle   := .T. // Solo para FW 2.00 ¢ superior\n//   oBrw:nLineStyle   := 3 // Solo para FW 2.00 ¢ superior\n//   oBrw:Refresh()\n\n/*\n   REDEFINE BUTTON oBAltas ID 202 OF oDlg ;\n            ACTION (AltasCias( ID_AALT, oRecSet ) ,SelEmpresa(oWnd, oRecSet ), oRecSet:Refresh(.t.),oBrw:Refresh() , oRecSet:End()  ,oDlg:End() , SysRefresh() )\n\n   REDEFINE BUTTON oBModificar ID 203 OF oDlg ;\n            ACTION AltasCias( ID_AMOD, oRecSet )\n\n   REDEFINE BUTTON oBBorrar ID 204 OF oDlg ;\n            ACTION ( if( MsgYesNo( OemToAnsi( ;\n                    \"¨Seguro que quiere borrar la Empresa \" + oRecSet:Fields(\"NumCia\"):value ) ) , ;\n                    BorrarRegistro(oAdo , \"empresas\" , \"numemp\" , oRecSet:Fields(\"NumCia\"):value ) , \"\" ) , oRecSet:refresh()  )\n\n   REDEFINE BUTTON oBSeleccion ID 201 OF oDlg ;\n            ACTION (SelEmpresa(oWnd , oRecSet ), SysRefresh() ,oDlg:End())\n\n   REDEFINE BUTTON oBSalir ID 206 OF oDlg ;\n            ACTION (  oTb:Close(), oDlg:End())\n*/\n\n   ACTIVATE DIALOG oDlg ;\n            ON INIT oDlg:SetControl( oBrw ) ;\n            CENTER\n\n   oFontBrw:End()\n\nRETURN( NIL )','',0,'AIA=','3cpyglf4',1,0,'',97,0,0),(8934,2074,6,73,0,'201.135.57.8',1141768572,1,0,1,1,1,0,'','','si lo hare, gracias rafa, excelente ayuda\npako','',0,'AIA=','2uzb7fmb',1,0,'',73,0,0),(8935,2079,18,217,0,'200.204.97.49',1141769774,1,0,1,1,1,0,'','TOutlook bug/ TGet bChange bug / Suggestions to .ch files','Antonio,\nI upgrade to FWH 2.7 to use with xHB comercial due to the _hbstack bug and\nI found any fixed bugs from 2.6 that came back.\nI\'ll be glad if you can review this issues:\n\nAnsiUpper() function:\nIn any cases AnsiUpper generate a GPF (I tested under XP) and our app\ncrash (but in any way stay running because the exe can\'t be erased), we\nmust restart computer...\n---------------------------------------\nTOutLook.prg:\nBug:\nThe first time we click in button your action isn\'t fired. We must\nclick button a second time.\n\nPossible solution:\nIn method ADDITEM comment the lines:\noBmp:bMMoved    := ...\noBmp:blButtonUp := ...\n----------------------------\nOn change (TGET class) bug:\n\nbChange don\'t consider last character typed in oGet object. In other words\nthe buffer is updated with one character of \"delay\"\nWorking sample:\n\n[code:6v6xravw]#include &quot;FiveWin&#46;ch&quot;\nfunction Main&#40;&#41;\n   local oDlg\n   local cVar &#58;= space&#40;40&#41;\n   local oGet\n\n   DEFINE DIALOG oDlg TITLE &quot;Just a get&quot;\n\n   @ 2,  2 SAY &quot;Text&#58;&quot; OF oDlg\n   @ 2,  6 GET oGet VAR cVar OF oDlg\n\n   oGet&#91;2&#93;&#58;bChange &#58;= &#123;|| oGet&#58;Assign&#40;&#41;, oDlg&#58;SetText&#40;oGet&#58;cText&#41; &#125;\n\n   @ 3,  7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3, 16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil[/code:6v6xravw]\n\nPossible solution (thanks to Rossine):\n\n[code:6v6xravw]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet\n This code is placed on wrong place&#58;\n\n if &#58;&#58;bChange != nil\n    lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n    if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; ! lAccept\n       return 0\n    endif\n endif\n\n The correct place if before otherwise clause at end of method\n\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet\n &#40;&#46;&#46;&#46;&#41;\n           if &#58;&#58;oGet&#58;TypeOut\n              if ! Set&#40; _SET_CONFIRM &#41;\n                 &#58;&#58;oWnd&#58;nLastKey = VK_RETURN\n                 &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n              else\n                 if Set&#40; _SET_BELL &#41;\n                    MsgBeep&#40;&#41;\n                 endif   \n              endif\n           endif\n           // Rossine\n           if &#58;&#58;bChange != nil\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; ! lAccept\n                 return 0\n              endif\n           endif\n           // Rossine\n           Eval&#40; &#58;&#58;bPostKey, Self, &#58;&#58;oGet&#58;Buffer &#41;\n      otherwise\n           return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n   endcase\n\nreturn 0\n[/code:6v6xravw]\n\n---------------------------------\n\nSuggestion:\nWe have any problems to create/activate dialogs with valid/init into classes\nbecause in .ch files the name Self is used. See this sample\n\nMETHOD MyMethod CLASS MyClass\n\n define dialog ::oDlg ...\n\n activate dialog ::oDlg nomodal valid ::MyValid()\n(...)\n\nThe activate code will conflict with Self name, see the PPO:\n ::oDlg:Activate(::oDlg:bLClicked,::oDlg:bMoved,::oDlg:bPainted,.T.,,! .T. ,{|Self|::MyValid()},::oDlg:bRClicked,,)\n\n\"valid ::MyValid()\" turn into \"{|Self|::MyValid()}\"\n\nWe suggest change Self to This into .ch files\n--------------------------------------------------------------------\nA little suggestion to .ch too: Include clause PICT like Clipper:\n\n[ &lt;pict:PICT,PICTURE&gt; &lt;cPicture&gt; ]\n\n-------------------------------------------------------------------\nAnother suggest to .ch: DEFAULT command:\n\n#xcommand DEFAULT &lt;uVar1&gt; := &lt;uVal1&gt; ;\n               [, &lt;uVarN&gt; := &lt;uValN&gt; ] =&gt; ;\n                  if( &lt;uVar1&gt; == nil, &lt;uVar1&gt; := &lt;uVal1&gt;, ) ;;\n                [ if( &lt;uVarN&gt; == nil, &lt;uVarN&gt; := &lt;uValN&gt;, ); ]\n\nThis translated declararion:\nDEFAULT x := 1\n\nif(x == nil, x == 1, )\n\nAppears to be more efficient that:\n\nx := if(x == nil, x == 1, x)\n\nBecause assign a value to variable only when value is nil','',0,'AIA=','6v6xravw',1,0,'',217,0,0),(8936,523,6,53,0,'148.221.81.46',1141769828,1,0,1,1,1,1,'','','Biel:\n\nMuchas gracias por el ejemplo, voy a intentarle partiendo de tu aporte.\n\nSaludos, Armando','',0,'AIA=','3d5ts5oq',1,0,'',53,0,0),(8937,2038,6,138,0,'201.154.236.81',1141770057,1,0,1,1,1,1,'','','[quote=&quot;RuFer&quot;:249woemo]Rene:\n\nSeria posible me indiques como lo paso a Harbour?\n\nMuchas Gracias \n\nRuben Fernandez[/quote:249woemo]\n\nSupongo que deberia compilar  igual, para serte franco trabaje con Harbour en los primeros releases, hace muuucho tiempo ya, ahora trabajo solo con xHB.','',0,'gA==','249woemo',1,0,'',138,0,0),(8938,2074,6,474,0,'201.102.78.88',1141772858,1,0,1,1,1,1,'','','yo las cierro asi\n\n\n[code:2dkzpcz2]function Cierra_Ventana&#40;cVentana1&#41;\n   local oWnd_cierra1&#58;= TWCapture&#40;&#41;&#58;New&#40;&#41;\n   local lcierra1&#58;=&#46;f&#46;\n\n\n   do while lcierra1=&#46;f&#46; \n      oWnd_cierra1&#58;WCapture&#40; cVentana1 &#41;\n      if !oWnd_cierra1&#58;lCaptured      // Si no esta la ventana\n  *       msginfo&#40;&quot;No existe &quot;+cVentana1 &#41;\n        lcierra1&#58;=&#46;t&#46;\n      else\n        oWnd_cierra1&#58;end&#40;&#41;\n        lcierra1&#58;=&#46;f&#46;\n      endif\n\n   enddo\n   msgwait&#40; &quot;Conexiones Cerradas&#58;&lt;&quot; + cVentana1 + &quot;&gt;  &quot;,1 &#41;\n\nreturn &#46;t&#46;[/code:2dkzpcz2]\n\ny con el bucle ke tienen, mejora mucho','',0,'AIA=','2dkzpcz2',1,0,'',474,0,0),(8939,2078,6,474,0,'201.102.78.88',1141773124,1,0,1,1,1,1,'','','No sera la propiedad de navegacion de tu Recorset??','',0,'AIA=','t85uxh0o',1,0,'',474,0,0),(8940,702,2,474,0,'201.102.78.88',1141773864,1,0,1,1,1,1,'','','Me sumo a la lista de kienes deseamos la clase, jeje','',0,'AIA=','1g4nvdbm',1,0,'',474,0,0),(8941,2078,6,97,0,'201.161.133.62',1141773869,1,0,1,1,1,1,'','Gracias manuel como como cambio la propiedad de recordset','Gracias manuel, he seguido los ejemplos publicados aqui en internet asi como documentacion del ado, cual seria la manera correcta de especificar el recordser o de cambiarla?\n\n\ngracias.\nfernando sandoval ruiz','',0,'AIA=','332zspxc',1,0,'',97,0,0),(8942,1528,2,474,0,'201.102.78.88',1141774490,1,0,1,1,1,1,'','','excelente trabajo, Felicidades','',0,'AIA=','3uu1ec8j',1,0,'',474,0,0),(8943,2074,6,73,0,'201.135.57.8',1141776889,1,0,1,1,1,0,'','','si eso esta bien, el detalle que encuentro es que ese tipo de ventanas no puedo escanear una parte del nombre, tiene que ser completa, asi que si por el internet explorer tiene abierta una pagina que de nombre sea \"Pornografia tu lugar favorito - Microsoft Internet Explorer\" esa pagina no se cierra buscando \"porn\" en todo el texto, como saber el nombre de esa ventana?, por la wcapture no se puede, hay que escribir el nombre completo.. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> pero por lo demas todo esta ok,\nalgun guru de c++ que no pudiera echar la mano?\nsalu2\npako','',0,'AIA=','34fuu4g2',1,0,'',73,0,0),(8944,2080,3,299,0,'69.65.95.131',1141779098,1,0,1,0,1,0,'','AdsRestructureTable()','Hi,\n\nI\'m having problems trying to get this ADS API call to work.  Getting ADS Error 5132 every time I try with a DBF-NTX table.  Have tried to send the table parameter with and without path, extension, using table types ADS_DEFAULT and ADS_NTX.   The table exists on the DD.  I\'m using version 8.0.0.1 of ACE32.\n\nIs anybody using AdsRestructureTable with the new release of xharbour ( 0.99.6) with success on dbf/ntx tables?\n\nThank you,\n\n\nReinado Crespo','',0,'AIA=','p564t908',1,0,'',299,0,0),(8945,2038,6,61,0,'201.217.169.4',1141779429,1,0,1,1,1,0,'','','Gracias Rene.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','2i4bxnsb',1,0,'',61,0,0),(8946,2081,3,455,0,'195.97.105.161',1141794330,1,0,1,1,1,0,'','MDICHILD windows draw slowly','Hi all,\nWe have one MDI window that draws fine (has no buttonbar)\nand about 12 MDICHILDren windows (with button bars, all of them)\nthat draw very slowly.\nIn 16-bits, this slowlyness was not visible, but now it is.\n\nThanks for any advise/hints\nRegards\nEvans','',0,'AIA=','2xhf4ezp',1,0,'',455,0,0),(8947,2082,3,479,0,'24.127.52.16',1141795657,1,0,1,1,1,0,'','ADS and FWC3','Does the advantage 16 bit rdd work with FWC3?','',0,'AIA=','2w7fuiva',1,0,'',479,0,0),(8948,2083,4,19,0,'217.153.83.2',1141800176,1,0,1,1,1,0,'','Bitmap in version 24 February','In my program I display bitmap in background. \n[code:1w56k0d9]@ 0,0 BITMAP oBmp1 FILENAME CURDIR&#40;&#41;+\'\\rybcie&#46;bmp\' OF oWnd SIZE 250,280 NOBORDER [/code:1w56k0d9]\nIn prior version of FWPPC it was correct.\n Now this bitmap look like \n[code:1w56k0d9]oBmp1&#58;lTransparent&#58;=&#46;T&#46; [/code:1w56k0d9]\nbut I can\'t change this Data. What is wrong?\n\nregards Eugeniusz','',0,'AIA=','1w56k0d9',1,0,'',19,0,0),(8949,2071,22,449,0,'212.64.224.250',1141804231,1,0,1,1,1,0,'','','Antonio,\n\nEsta bien, pero p.e. si ejecutas el codigo (tutor11) añadiendo el ancho y alto en oWnd:SayBitmap(), aparecen los dos mensajes pero despues muestra el bitmap redimensionado. No habria manera de momento, \'capar\' estas dos funciones.\n\n[code:2yt73edo]\n#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBmp\n\n   DEFINE BITMAP oBmp FILE CurDir&#40;&#41; + &quot;\\test&#46;bmp&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;Tutor11&quot;\n\n   ACTIVATE WINDOW oWnd ;\n            ON PAINT oWnd&#58;SayBitmap&#40; 10, 10, oBmp, 20, 20 &#41;   // &lt;- 20, 20\n\n   oBmp&#58;End&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------\n[/code:2yt73edo]\n\n\nNota: Para poner una imagen en el post, es necesario ponerla en una url primero ?. Como lo haces tu ?\n\nSaludos.\nC.','',0,'AIA=','2yt73edo',1,0,'',449,0,0),(8950,2082,3,2,0,'87.218.146.242',1141807132,1,0,1,1,1,1,'','','C3 is a 32 bits compiler so you can not use a 16 bits RDD with it.\n\nAlso, as fas as we know, there is no ADS RDD 32 bits for it yet.','',0,'AIA=','3v9kbmt9',1,0,'',2,0,0),(8951,2071,22,2,0,'87.218.146.242',1141807344,1,0,1,1,1,1,'','','Carles,\n\nLos avisos están puestos para recordar las funciones que no están disponibles en el API de Windows Mobile. Si conseguimos implementar una determinada funcionalidad de otra forma, entonces no son llamadas y no aparecen los mensajes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n&gt;\nNota: Para poner una imagen en el post, es necesario ponerla en una url primero ?. Como lo haces tu ? \n&gt;\n\nSí, primero alojas la imagen en un servidor de imágenes como <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y te proporciona una dirección URL que es la que hay que copiar aqui.','',0,'AIA=','za48kkgg',1,0,'',2,0,0),(8952,2083,4,2,0,'87.218.146.242',1141807490,1,0,1,1,1,1,'','','Eugeniusz,\n\nSet the bitmap pixel 0, 0 to a different color to all the others pixels in the bitmap, and none of them will be made transparent. \n\nWe have changed the used function to display them in order to get transparency by request from FWPPC users.','',0,'AIA=','2zpanb3d',1,0,'',2,0,0),(8953,2081,3,2,0,'87.218.146.242',1141807622,1,0,1,1,1,1,'','','Evans,\n\nThe slowness is caused by the \"double buffer\" painting technique that avoids \"flickering\" when you redimension a window.\n\nIn order to avoid this technique and improve speed, you may change these two methods in window.prg like this:\n\nMETHOD DispBegin() VIRTUAL\nMETHOD DispEnd() VIRTUAL','',0,'AIA=','1ffg1zfe',1,0,'',2,0,0),(8954,2071,22,449,0,'212.64.224.250',1141809622,1,0,1,1,1,0,'','','Antonio\n\nYo lo decia, porque a apriori, he creado ejemplos jugando con el tamaño, y funciona perfectamente. Por eso te decia la posiblidad \'momentanea\' de quitar los mensajes, para poder utilizar ya esta funcionalidad.\n\nImagen con parametros nWidth y nHeight\n\n[url=http&#58;//imageshack&#46;us:3d5nu29v][img:3d5nu29v]http&#58;//img164&#46;imageshack&#46;us/img164/2375/eye11gv&#46;jpg[/img:3d5nu29v][/url:3d5nu29v]\n\n\nImagen normal\n\n[url=http&#58;//imageshack&#46;us:3d5nu29v][img:3d5nu29v]http&#58;//img111&#46;imageshack&#46;us/img111/1546/eye21oz&#46;jpg[/img:3d5nu29v][/url:3d5nu29v]\n\n\nQ te parece ? \n\nSaludos.\nC.','',0,'GA==','3d5nu29v',1,0,'',449,0,0),(8955,2083,4,19,0,'217.153.83.2',1141811119,1,0,1,1,1,0,'','','Thank You Antonio.\n\nWhen TBrush class will be ready?\n\nregards Eugeniusz','',0,'GA==','2t1j1pjl',1,0,'',19,0,0),(8956,2084,1,56,0,'217.251.231.127',1141812333,1,0,1,1,1,1,'','FW/Clipper on a Dual-Core machine','Hi,\n\na customer just told me that he gets the message \"hardware error\" on his new machine (Intel Dual-Core processor).\nDoes anyone know something about that error?','',0,'GA==','2dg4ewz9',1,0,'',56,0,0),(8957,2051,3,239,0,'202.104.51.106',1141813383,1,0,1,1,1,0,'','','EMG thank you !\n    But message bar is often covered by ms windows task bar, how to solve this ?\nThanks!\nShuming Wang','',0,'GA==','hr66sfth',1,0,'',239,0,0),(8959,1988,4,89,0,'213.21.136.60',1141814743,1,0,1,1,1,0,'','','Hello\nI have a psc with Windows CE and my app run fine\nMaurizio','',0,'GA==','zep9xvhj',1,0,'',89,0,0),(8960,2086,6,413,0,'194.106.16.43',1141818342,1,0,1,1,1,0,'','Es posible con tWord....','Es posible con tWord añadir a WORD una opcion de menu o un boton, para que luego el usuario pueda seleccionarlo y elegir alguna opcion del submenu...\nEjemplo: quiero añadir un boton que me despliege un submenu y el usuario pueda elegir que cosa añadir al fichero que esta editando. \nP.ej.: {IMPLICADOS}\n         {FOTO}\n          .... \nLuego mediante el comando replace quiero buscar y responder con lo asociado a cada uno. Esto lo he conseguido hacer pero para introducirlo en el texto original, tengo que hacerlo manualmente. Queria crear un modo en el que se pueda hacer desde el word directamente.\n¿Es posible? \n¿Como?...\n\nSaludos','',0,'GA==','25hquc9g',1,0,'',413,0,0),(8961,2087,3,232,0,'217.70.68.38',1141823695,1,0,1,1,1,0,'','Crystal Reports 8.5, MySQL via ODBC, Fivewin and xHarbour','Hi,\n\nWith Crystal Reports 8.5, MySQL via ODBC, Fivewin and xHarbour and TCRW class I can use CR on the machine where designer is.\n\nBut can\'t find out what DLL\'s I need to put in clients machines.\n\nCRPE32.DLL\n...\nP2SODBC.DLL is not enough\n\nI think that some more are need to work with ODBC, becase everything works ok, only fails when it tryes to connect to MySQL database via ODBC.\n\nDoes any one work with crystal reports, and can please tell me what DLL do I need?\n\nOf course MySQL ODBC is installed on client machine, and is correctly installed.\n\nThanks,\n  Rui Caridade.','',0,'GA==','395w29mc',1,0,'',232,0,0),(8962,2081,3,455,0,'195.97.105.161',1141824438,1,0,1,1,1,0,'','','Thanks Antonio,\nI will try it and let you know.\nregards\nEvans','',0,'GA==','3lhogrp0',1,0,'',455,0,0),(8963,2087,3,26,0,'193.77.141.133',1141824975,1,0,1,1,1,1,'','','Hello!\n\nIMHO this is in CRW documentation. If not, then try\nto use this tool:\n<!-- m --><a class=\"postlink\" href=\"http://www.dependencywalker.com/\">http://www.dependencywalker.com/</a><!-- m -->\n\nRegards, Roman','',0,'GA==','3ppiuep6',1,0,'',26,0,0),(8964,2059,6,53,0,'148.221.81.109',1141826540,1,0,1,1,1,1,'','','Fernando:\n\nEn TwBrowse del Maestro Hérnan D C:\nREDEFINE LISTBOX oLbx FIELDS (cProducto)-&gt;PRO_DES,;\n      (cProducto)-&gt;PRO_PRO,;\n      TRANSFORM((cProducto)-&gt;PRO_SAF,\"@Z 99,999\"),;\n      TRANSFORM((cProducto)-&gt;PRO_PRE,\"@Z 999,999.99\");\n      HEADERS \"Descripción\",\"Clave\",\"Saldo\",\"Unitario\";\n      FIELDSIZES 320,65,37,30;\n      ID 100 OF oDlg;\n      ON DBLCLICK (Editar(oDbf,oLbx,(.F.)),;\n            oLbx:Refresh(),oDlg:UPDATE())\n\n       oLbx:cAlias := cProducto    // AQUI LE INDICAS EL ALIAS\n                                               // Ademas cada campo lleva su alias\n\nEn TsBrowse del Maestro Manuel M.\nREDEFINE BROWSE oBrw ALIAS (cPresupuesto) UPDATE GRID;\n     FONT oFont ID 200 OF oDlg  // AQUI SE DEFINE EL ALIAS\n\n     ADD COLUMN TO oBrw;			\n          HEADER \"Rubro\";\n          SIZE 45 PIXELS ;\n          DATA FIELDWBLOCK(\"PRE_RUB\",SELECT(cPresupuesto));\n          ALIGN DT_RIGHT,DT_RIGHT,DT_RIGHT;\n          EDITABLE;\n          PICTURE \"@K 99999\";\n          MOVE DT_MOVE_NEXT\n\n\nSaludos, Armando','',0,'GA==','3l1zxkva',1,0,'',53,0,0),(8965,2088,3,160,0,'210.212.142.91',1141830932,1,0,1,1,1,0,'','How to Draw Box, Rectange and print BMP ?','Hello,\n\nI have to draw round boxes / rectangle and print BMP on an invoice. How can I do the same ? I used to achieve the same using Win32Prn() in xHarbour.\n\nI could not find the solution in samples\\Reports.\n\nCan somebody guide me ?\n\nTIA\nMilan.','',0,'GA==','21ghp82a',1,0,'',160,0,0),(8966,2075,3,190,0,'202.65.134.45',1141833546,1,0,1,1,1,0,'','','Mr.James and Mr.tnhoe\n\nThank you very much for your reply.\n\nUltimately the following code by Mr.James has worked and the __Keyboard(VK_TAB) has performed an illegal operation!\n\n&gt;FUNCTION FwKeyboard( oWnd, nKey ) \n\n&gt;oWnd:SetFocus() \n&gt;oWnd:PostMsg( WM_KEYDOWN, nKey, 0) \n\n&gt;RETURN NIL \n \nRegards\n\n- Ramesh Babu P','',0,'GA==','kex9yl2f',1,0,'',190,0,0),(8967,2088,3,303,0,'68.7.28.54',1141835373,1,0,1,1,1,0,'','','Milan,\n\nHave you looked at the FW sample reports in \\samples\\reports\\?\n\nJames','',0,'GA==','119frvk6',1,0,'',303,0,0),(8968,2088,3,6,0,'87.3.212.226',1141835750,1,0,1,1,1,1,'','Re: How to Draw Box, Rectange and print BMP ?','For boxes:\n\nTPrinter:Box() and TPrinter:RoundBox() methods.\n\nFor BMP:\n\nTPrinter:SayBitmap() method.\n\nEMG','',0,'GA==','3sq7zrfe',1,0,'',6,0,0),(8969,2087,3,138,0,'201.154.236.81',1141835752,1,0,1,1,1,1,'','','I use these DLLs:\n\nThey are for working with DBF tables, so you may need take a look into CRW documentation to see what`s missing for ODBC:\n\ncrpaig80.dll\ncrpe32.dll\nimplode.dll\nmfc42.dll\nmsvcirt.dll\nmsvcp60.dll\np2bxbse.dll\nu2fhtml.dll\nu2fodbc.dll\nu2frdef.dll\nus2frdef.dll\nu2frec.dll\nu2frtf.dll\nu2fsepv.dll\nu2ftext.dll\nu2fwks.dll\nu2fwordw.dll\nu2fxls.dll','',0,'GA==','382rwlau',1,0,'',138,0,0),(8970,2089,6,439,0,'201.221.41.214',1141838150,1,0,1,1,1,0,'','Me estoy volviendo loco con las Transparencias.....','No digo que sean bugs, quizá el bug esté en mi cerebro, pero se me ha complicado enormemente lo de las transparencias, por una parte no puedo hacer un page transparente, no obstante puedo asignarle un brush y aunque queda como un parche, está mas o menos potable.\n\nPero: ahora tengo un problema cuando uso un grupo.\n\nTengo un block de codigo que arma la dialog hija de la page que les decía\ndependiendo de cual sea la base en uso (el armado de la dialog está en una función denominada \"D_\"+Nombre Db...\n\nmascara:=&amp;(\"{|oDbf, oPage|\"+\"D_\" + UPPER(cNom_dbf) + \"(oDbf, oPage)}\")  //ejecuta la función que pone la máscara que debe llamarse \"D_\" + el nombre de la base de datos.\n\nEval(mascara,oDbf,oPage) //carga máscara de ingreso\noPage:aDialogs[1]:aControls[1]:SetFocus()\n\nAhora supongamos que la base es MOTIVOS\n\nFUNCTION D_Motivos( oDbf, oPage)\nLOCAL oGrp, oSayp, oGetp\nREDEFINE GROUP oGrp PROMPT \"Motivos de Decomiso\" ID 102 OF oPage:aDialogs[1] TRANSPARENT\nREDEFINE GET oGetp VAR oDbf[1]:Descrip ID 101 OF oPage:aDialogs[1] update\nREDEFINE SAY oSayp PROMPT \"Descripción:\" ID 103 OF oPage:aDialogs[1] TRANSPARENT\nRETURN nil\n\nCon este codigo si pongo el Get dentro del group en el recurso (se cargan las dlgs desde una Dll) no lo veo queda transparente (cosa que no debería suceder, en cambio si muevo el grupo para que los elementos say y get queden en la dialog pero no dentro del grupo, el get se ve.\nPor otra parte no logro con nada que el Say quede transparente, siempre lo veo Gris.\n\nMe está volviendo loco!!!!\n\nEstas rutinas funcionaban OK antes de intentar colocar transparencias y brush.\n\nPor favor, si pueden aportar luz a mi ignorancia, estaré ampliamente agradecido.','',0,'','s21yrspe',1,0,'',439,0,0),(8971,2081,3,303,0,'68.7.28.54',1141839787,1,0,1,1,1,0,'','','Evans,\n\nMy suggestion would to be dump MDI and switch to SDI (Single Document Interface) like Outlook. It is much easier for the user.\n\nYou could probably eliminate 11 of the 12 toolbars and the users don\'t have to manipulate all those windows.\n\nMDI is really better for things like documents where they are all the same item, rather than databases where each one is different.\n\nJames','',0,'','3bj9d755',1,0,'',303,0,0),(8972,2016,6,131,0,'193.145.234.34',1141839899,1,0,1,1,1,0,'','','Ya lo arreglé.\n\n[url:1ivu8lsn]http&#58;//www&#46;avemundi&#46;com[/url:1ivu8lsn]\n\nSaludos,','',0,'EA==','1ivu8lsn',1,0,'',131,0,0),(8973,2090,2,9,0,'85.54.239.35',1141839932,1,0,1,1,1,0,'','combobox y tecla Escape','Tengo un dialogo, con varios combobox  y Get. El dialogo se activa con la clausula VALID:  ACTIVATE DIALOG oDlg VALID (!lGrabar)\n\nCuando estoy en el segundo COMBO si puso la tecla Escape no hace nada (la variable lGranar := .f.). En cambio si despliego el combobox si reacciona.\n\nEsta la claúsula para que salte:\n\n   oDlg:bKeyDown:={|nK| IIF ( nK != VK_ESCAPE, , ;\n            ( NOSALIR(oDlg, lGrabar, oDbf), ;\n              lGrabar:=.f., oDlg:End() ) ) }\n\n\nCuando le quito la clausula VALID del ACTIVATE funciona tambien.\n\n¿Hay alguna manera de que responda a ESCAPE el combo, sin estar desplegado?\n\nUn saludo y gracias\n\nManuel','',0,'EA==','17o0jj49',1,0,'',9,0,0),(8974,2059,6,97,0,'200.23.84.231',1141847828,1,0,1,1,1,1,'','Gracias Armando,','Mil, Gracias Armando, y aclarado, lo toma directamente de la tabla, estabu algo liado con esto de los Ado, Odbc, que no me funcionan en los browse, listbox, etc, etc..., el buen amigo frank me dio una ayuda enorme y parece que ya vamos solventando el problema.  gracias y estmos en contacto.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'EA==','2rr4duw5',1,0,'',97,0,0),(8976,2081,3,455,0,'195.97.105.161',1141849803,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:34dol314]Evans,\n\nMy suggestion would to be dump MDI and switch to SDI (Single Document Interface) like Outlook. It is much easier for the user.\n\nYou could probably eliminate 11 of the 12 toolbars and the users don\'t have to manipulate all those windows.\n\nMDI is really better for things like documents where they are all the same item, rather than databases where each one is different.\n\nJames[/quote:34dol314]\n\nJames, thanks for the advise.\nIs there any available example I can check out that comes with FWH ?\n\n-For Antonio...\nAntonio, I tried the VIRTUAL clause in WINDOW.PRG\nbut didn\'t see any drastic change, however, I have modified the way that I initially draw the window (now I draw them directly to the size of the monitor, and use a white brush (CLR_WHITE) in all of my MDICHILD window, thus, it appears a little better in speed, and doesn\'t flicket that much....  Therefore, I retain WINDOW.PRG unchanged.\n\nThank you all and regards/saludos\nEvans','',0,'gA==','34dol314',1,0,'',455,0,0),(8977,2081,3,303,0,'68.7.28.54',1141850117,1,0,1,1,1,0,'','','Evans,\n\n&gt;Is there any available example I can check out that comes with FWH ? \n\nLook at \\samples\\testspl1.prg - testspl6.prg for splitter examples.\n\nAlso look at the TOutlook class.\n\nJames','',0,'gA==','l1fx9vx3',1,0,'',303,0,0),(8978,2092,6,196,0,'201.250.127.102',1141850957,1,0,1,1,1,0,'','Say transparente','Hola foro.\n\nHay alguna manera con el Workshop de hacer un say definido como -1, lo muestre transparente? Ya sea standard o borland.\n\nDesde ya, muchas gracias\n\nJorge Jaurena','',0,'gA==','2wbau7cj',1,0,'',196,0,0),(8979,2081,3,110,0,'165.98.151.243',1141853574,1,0,1,1,1,1,'','','si se usa xharbour eliminar el doblebuffer es sencillo, sin modificar la clase twindow, solo se agrega el siguiente codigo\n\nal inicio de tua apliacion llama a \n\n[code:2g2ezfsf]\nfunction main&#40;&#41;\n    &#46;&#46;&#46;\n    OverrideAndExtend&#40;&#41;\n    &#46;&#46;&#46;\n    DEFINE WINDOW &#46;&#46;&#46;&#46;\n    ACTIVATE WINDOW &#46;&#46;&#46;\n\nreturn nil\n[/code:2g2ezfsf]\n\n[code:2g2ezfsf]\nPROCEDURE OverrideAndExtend&#40;&#41;\n   OVERRIDE METHOD DispBegin IN CLASS TWindow WITH KDispBegin\n   OVERRIDE METHOD DispEnd   IN CLASS TWindow WITH KDispEnd\nRETURN\n\nSTATIC FUNCTION KDispBegin&#40;&#41;\n   LOCAL SELF &#58;= HB_QSelf&#40;&#41;\nRETURN SELF\n\nSTATIC FUNCTION KDispEnd&#40;&#41;\n   LOCAL SELF &#58;= HB_QSelf&#40;&#41;\nRETURN NIL\n[/code:2g2ezfsf]','',0,'AIA=','2g2ezfsf',1,0,'',110,0,0),(8980,2081,3,455,0,'195.97.105.161',1141854581,1,0,1,1,1,0,'','','James,\nThanks!\n\nCarlos,\nGracias!\n\nregards/saludos\nEvans','',0,'AIA=','bmn3edug',1,0,'',455,0,0),(8981,2092,6,61,0,'201.217.163.136',1141860549,1,0,1,1,1,0,'','','Jorge:\n\nCon FWH 2.7 no tienes problemas.\nEn Workshop declaras el say como siempre, en tu programa\ncuando defines el dialogo lo haces asi\n\nDefine Brush oBrush RESOURCE \"Cielo\"\n(Cielo debe de ser un BMP en tu archivo de recursos)\n\nDEFINE DIALOG oDlg Title \"Prueba\"   RESOURCE \"nombre_recurso\" ;\nBRUSH oBrush TRANSPARENT\n\nDe esta manera los say ya aparecen transparentes en tu\nprograma y no tienes que redefinirlos.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','1io11tzq',1,0,'',61,0,0),(8982,2093,3,341,0,'200.127.97.186',1141866726,1,0,1,1,1,0,'','How Can i Draw a box 290mm x 210mm in a dialog','Dear Coleagues\n\nHow Can i Draw a box 290mm x 210mm (exact dimension)\n inside a dialog on screen\n\nThanks\n\nDante\n<!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->','',0,'AIA=','2fp6okjy',1,0,'',341,0,0),(8983,2094,3,267,0,'201.9.207.31',1141867964,1,0,1,1,1,1,'','TTRAYICON For xHarbour','Hi,\n\nSomebody has a version of class TTRAYICON  for xHarbour/FWH26?\n\nThanks,\nVilian F. Arraes','',0,'AIA=','3ozszh8i',1,0,'',267,0,0),(8984,2095,6,141,0,'200.88.94.215',1141868708,1,0,1,1,1,1,'','Impresion en Excel','Hola a todos,\n\nHe visto la impresión desde la clase tReport a una hoja de MS-Excel, pero estoy utilizando xHarbour 0.99.3 + FWH24 + Borland...\n\nNecesito saber si hay algo mas actualizado... o que me recomiendan?\n\nGracias anticipadas,','',0,'AIA=','35jdaq14',1,0,'',141,0,0),(8985,1854,17,15,0,'203.73.50.76',1141873605,1,0,1,1,1,0,'','','hello manuramos\n\nI compile your TGSay and get error message.\nI need this function SPPICT() and \nError description: Error BASE/1068  Argument error: array access\nCalled from TGSAY:PINTAR(366)\n   Called from TGSAY:PAINT(358)\n   Called from TGSAY:REPINTAR(431)\n   Called from TGSAY:REFRESH(459)\n\nRegards,\n\nRichard','',0,'AIA=','3fd7sact',1,0,'',15,0,0),(8986,2094,3,54,0,'201.137.90.144',1141884849,1,0,1,1,1,1,'','Re: TTRAYICON For xHarbour','[quote=&quot;vilian&quot;:186kmibs]Hi,\n\nSomebody has a version of class TTRAYICON  for xHarbour/FWH26?\n\nThanks,\nVilian F. Arraes[/quote:186kmibs]\n\nQue tal.\n\n[code:186kmibs]FUNCTION SetTray&#40;oIcon,cEmpresa,oWnd,oTray&#41;\n         DEFAULT oTray &#58;= NIL\n         oTray &#58;= TTrayIcon&#40;&#41;&#58;New&#40; oWnd,oIcon,cEmpresa,&#123;|| &#40;oWnd&#58;Show&#40;&#41;,Shell_NotifyIcon&#40; 2,@oTray&#58;oTray&#58;cBuffer &#41;,oWnd&#58;setfocus&#40;&#41;&#41; &#125;, ;\n                                   &#123;| nRow,nCol | MenuTray&#40; nRow,nCol,@oWnd,@oTray &#41; &#125; &#41;\nRETURN&#40; oTray &#41;\n[/code:186kmibs]','',0,'gIA=','186kmibs',1,0,'',54,0,0),(8987,2084,1,266,0,'60.50.54.76',1141885213,1,0,1,1,1,1,'','','I have a customer running FWv1.95 app on Window NT on P3 800hz Intel dual core processor IBM server without problem since 2-3 years','',0,'gIA=','2i305xzi',1,0,'',266,0,0),(8988,2084,1,2,0,'87.218.146.108',1141886855,1,0,1,1,1,1,'','','Timm,\n\nAre you using Xbase++ code ?','',0,'gIA=','39n2onc3',1,0,'',2,0,0),(8989,2071,22,2,0,'87.218.146.108',1141889899,1,0,1,1,1,1,'','','Carles,\n\nPuedes poner el código del ejemplo completo ? gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','kid1lq7y',1,0,'',2,0,0),(8990,2084,1,56,0,'217.251.230.93',1141889967,1,0,1,1,1,1,'','','Antonio,\n\n&gt; Are you using Xbase++ code ?\nno.','',0,'gIA=','1quol1m4',1,0,'',56,0,0),(8991,2083,4,2,0,'87.218.146.108',1141890046,1,0,1,1,1,1,'','','Eugeniusz,\n\nClass TBrush is already working. What test have you done ?','',0,'gIA=','2fcmiwfn',1,0,'',2,0,0),(8992,2084,1,2,0,'87.218.146.108',1141890097,1,0,1,1,1,1,'','','Timm,\n\nI have googled for it and found several articles about it.','',0,'gIA=','2uhp2pbi',1,0,'',2,0,0),(8993,2071,22,449,0,'212.64.224.250',1141890652,1,0,1,1,1,0,'','','Antonio,\n\nEs el ejemplo tutor11, añadiendo en el metodo :Saybitmap(), el cuarto y quinto parametro (nWidth, nHeight)\n\n\n[code:3nsqyduy]\nfunction Main&#40;&#41;\n\n   local oWnd, oBmp\n\n   DEFINE BITMAP oBmp FILE CurDir&#40;&#41; + &quot;\\test&#46;bmp&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;Tutor11&quot;\n\n   ACTIVATE WINDOW oWnd ;\n            ON PAINT oWnd&#58;SayBitmap&#40; 10, 10, oBmp, 20, 20 &#41;\n\n   oBmp&#58;End&#40;&#41;\n\nreturn nil\n[/code:3nsqyduy]\n\nSaludos.\nC.','',0,'AIA=','3nsqyduy',1,0,'',449,0,0),(8994,2071,22,2,0,'87.218.146.108',1141891719,1,0,1,1,1,1,'','','Carles,\n\nCorregido y publicado un nuevo build que además incluye la función SerialNumber() para obtener el identificador del Pocket PC.','',0,'AIA=','20p2jfn0',1,0,'',2,0,0),(8996,2071,22,449,0,'212.64.224.250',1141891981,1,0,1,1,1,0,'','','Antonio,\n\nCaray, q rapido cuando quieres ( o cuando puedes  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> )\n\nVoy a probarlo a ver q tal. -&gt; Gracias\n\nNota: ( Te envie el MsgGet corregido, lo recibiste ?)\n\n\nSaludos.\nC.','',0,'AIA=','1p3aahji',1,0,'',449,0,0),(8997,2096,16,2,0,'87.218.146.108',1141899111,1,0,1,1,1,1,'','New FWPPC build with Tabs','There is a new FWPPC build ready to be downloaded:\n\n * New: FWPPC, function SerialNumber() returns the Pocket PC serial number if available.  Thanks to Hathal.\n   \n * New: FWPPC, Class TTabControl, please review samples\\TestTab.prg. This class will be involved in folders implementation. Warning: Folders are not available yet.\n   \n * Enhancement: FWPPC, function MsgInfo(), MsgAlert() and MsgStop() automatically convert parameters into strings, like FWH does it.    \n\n[url=http&#58;//imageshack&#46;us:1gnk0x1u][img:1gnk0x1u]http&#58;//img227&#46;imageshack&#46;us/img227/8439/tabs4yh&#46;png[/img:1gnk0x1u][/url:1gnk0x1u]\n[code:1gnk0x1u]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n   \n   DEFINE WINDOW oWnd TITLE &quot;TabControl&quot;\n   \n   @ 2, 2 TABCONTROL oTabs PROMPTS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      OPTION 2 ACTION MsgInfo&#40; oTabs&#58;nOption &#41; ;\n      SIZE 205, 80 OF oWnd\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n[/code:1gnk0x1u]','',0,'GIA=','1gnk0x1u',1,0,'',2,0,0),(8998,2097,4,2,0,'87.218.146.108',1141899272,1,0,1,1,1,1,'','New FWPPC build with Tabs','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2096\">http://fivetechsoft.com/forums/viewtopic.php?t=2096</a><!-- m -->','',0,'GIA=','35j8tj0q',1,0,'',2,0,0),(8999,2098,7,2,0,'87.218.146.108',1141899306,1,0,1,1,1,1,'','Nuevo build de FWPPC con Tabs','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2096\">http://fivetechsoft.com/forums/viewtopic.php?t=2096</a><!-- m -->','',0,'GIA=','2qu58rr9',1,0,'',2,0,0),(9000,2071,22,2,0,'87.218.146.108',1141899537,1,0,1,1,1,1,'','','Carles,\n\nSí, lo recibí. Lo que ocurre es que aún no he tenido tiempo de revisarlo. Gracias','',0,'GIA=','18w413mp',1,0,'',2,0,0),(9001,2092,6,439,0,'201.221.44.174',1141902390,1,0,1,1,1,0,'','Aclaración','Quisiera aclarar que tengo el mismo problema y que defino la dialog tal como el amigo Rufer lo especifica.\n\ncuando los says no tienen id number, estan -1 no me aparecen transparentes en la dialog.\n\nFWH Build Marzo 2006','',0,'GIA=','2zri6jtq',1,0,'',439,0,0),(9002,2099,19,26,0,'193.77.9.130',1141903047,1,0,1,1,1,1,'','Ultra Mobile PC','Hello!\n\nOtto Berkes - Origami\'s Architect gives first look at Ultramobile PCs\n<!-- m --><a class=\"postlink\" href=\"http://channel9.msdn.com/showpost.aspx?postid=169962\">http://channel9.msdn.com/showpost.aspx?postid=169962</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.theregister.co.uk/2006/03/08/origami_umpc_clunker/\">http://www.theregister.co.uk/2006/03/08 ... c_clunker/</a><!-- m -->\n\n[quote:tb4n5jrc]The drawbacks to a UMPC are immediately apparent. This year\'s UMPCs have a battery life of just two hours, and will cost up to $1,000. That\'s twice as much as today\'s laptops, which are faster, have a more readable screen, and the convenience of a full keyboard.\n\nAnd twice as much as PDA-style devices, which turn on in a second or two.\n\nUMPCs were trailed as having the form factor of \"a paperback book\". But few paperbacks weigh as much as 2lbs, and are too large for the pocket.\n[/quote:tb4n5jrc]\n\nRoman','',0,'gA==','tb4n5jrc',1,0,'',26,0,0),(9003,2092,6,61,0,'201.217.167.183',1141904583,1,0,1,1,1,0,'','','Jose:\n\nAcabo de probar nuevamente un  ejemplo de FWH\ny los says quedan transparentes, si lo deseas\nmandame un mail con tu direccion que te envio un\nejemplo que se publico aqui. (un prg y un .res)\n(Tambien podrias cambiar tu editor de Recursos por PellesC\nque creo es el que mas se usa ahora en 32 bits.)\n\n\nSaludos\n\nRuben Fernandez','',0,'gA==','1ib2bh8o',1,0,'',61,0,0),(9004,2100,3,67,0,'62.235.24.21',1141906994,1,0,1,1,1,0,'','Working with Rich Edit','Antonio,\n\nI am succesfull with using this class , printing multiple rtf- files\n\nNow , i have a routine to convert txt-files with esc-sequences to rtf format , it works very fine except :\n\n\n\nI have to use oRtf:find(......) . When nothing is found (i have to loop trought the text till no escape sequenses are found) , i got a message. This can not be the intention. \n\nI expect a construction as :\n\nDO WHIL oRtf:Find( Esc-sequens ON , .T. )   // Bold on\n    nFrom := oRtf:GetPos()\n    oRtf:ReplaceSel( .F. , \"\" )\n    oRtf:Find( Esc-sequens OFF , .T. )            // Bold Off \n    nTo := oRtf:GetPos()\n    oRtf:ReplaceSel( .F. , \"\" )\n    oRTF:SetSel(nFrom , nTo , .T.) \n    oRtf:SetBold( .T. )\nEND\n\n\nImportant is that method find returns .T. or .F. !!!!!!!!!','',0,'gA==','33j3kt87',1,0,'',67,0,0),(9005,2100,3,67,0,'62.235.24.21',1141908786,1,0,1,1,1,0,'','Temporary work around','@  0, 0 RICHEDIT oRTF VAR cRTF OF oWnd ;\n\n__ObjModMethod(oRtf,\"Find\",@Find())\n\n\n\n\nFUNCTION Find( cFind, lDown, lCase, lWord )\n\nLOCAL Self := HB_QSelf()\n\nlocal nIndex := REFindText( self:hWnd, cFind, lDown, lCase, lWord )\n\n   if nIndex != -1\n      RESetSelection( self:hWnd, nIndex + Len( cFind ), nIndex )\n      self:Change()\n   else\n      //MsgInfo( \"String not found: \" + cFind, \"Find\" )\n      RETURN .F.\n   endif\n\nreturn .T.','',0,'gA==','isu5zfio',1,0,'',67,0,0),(9006,2076,18,26,0,'193.77.9.130',1141911947,1,0,1,1,1,1,'','','Hello!\n\nI changed above code to \n[code:t4392cbb]\n      case &#40;&#40; nKey == VK_INSERT &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;&quot;V&quot;&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;\'X\'&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;&#41; &#46;and&#46; ;\n           ! lAnd&#40;nFlags, 2 ** 29&#41;\n[/code:t4392cbb]\n\nand now it seems OK.','',0,'AIA=','t4392cbb',1,0,'',26,0,0),(9007,2101,3,148,0,'196.205.176.172',1141918572,1,0,1,1,1,0,'','Vital for Programs Transfers','if I transfered my program from 1 Pc to another I should change the positions of buttons (X,Y) . What should I do to completely get rid of that problem .\nprogram transfers sould done regardless the screen resolution,Display dimensions .','',0,'AIA=','1i6h8na7',1,0,'',148,0,0),(9008,1854,17,375,0,'84.122.114.91',1141920252,1,0,1,1,1,1,'','','Sorry Taiwan, I forgot to include it in the header:\n\n#TRANSLATE SPPICT( &lt;cVar&gt; )  =&gt; STRTRAN(STRTRAN(STRTRAN( &lt;cVar&gt; ,\",\",\"#\"),\".\",\",\"),\"#\",\".\")\n\nIt\'s only for number\'s pictures in spanish format. You can delete it in the prg.\nHowEver, you can modifi the class as you want. (excuse my english)','',0,'AIA=','hd9sefms',1,0,'',375,0,0),(9009,2069,3,480,0,'201.0.241.33',1141923607,1,0,1,1,1,1,'','','Anybody knows ?','',0,'AIA=','11j11o5f',1,0,'',480,0,0),(9010,2076,18,2,0,'87.218.146.3',1141926670,1,0,1,1,1,1,'','','Roman,\n\nThanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','w0tm9bv6',1,0,'',2,0,0),(9011,2100,3,2,0,'87.218.146.3',1141926932,1,0,1,1,1,1,'','','Frank,\n\nModified as per your suggestion. Thanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3cj0k3wx',1,0,'',2,0,0),(9012,2101,3,2,0,'87.218.146.3',1141927090,1,0,1,1,1,1,'','','Ehab,\n\nIf you store your dialogs in resources, then you may have different ones for different screen resolutions and use the right one accordingly.','',0,'AIA=','i8flr21r',1,0,'',2,0,0),(9013,2101,3,148,0,'196.205.176.172',1141929723,1,0,1,1,1,0,'','','Is there a way to fix this ? No resources modifications according to screen resolution ???','',0,'AIA=','1n0bgs0o',1,0,'',148,0,0),(9014,2053,6,110,0,'165.98.151.243',1141930224,1,0,1,1,1,1,'','','Amigos \n\nActualmente estoy haciendo pruebas con un servidor ads version 8 (demo). Y me asaltan todo tipos de dudas. Debo decirte que he leido algunos post suyos sobre el uso y configuración del servidor pero no ha sido sufucuente <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nPor ejemplo: un caso clasico.\n\nEn una pc (servidor) tengo instalado ADS server (esta pc tiene por nombre ‘SEVILLANA’), en la unidad D:\\Misapp\\Jardines2\\datos tengo las tablas.\n\nAhora en una pc (pc_trabajo) instalo mi aplicación instalo el jardines.exe, en este las llamadas a la apertura de las tablas las realizo de la siguiente forma\n\n\nREQUEST  ADS, HB_LANG_ES, HB_CODEPAGE_ES\nEXTERNAL AdsKeyNo, AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos\n\nProcedure main()\n   ….\n   rddsetdefault( \"ADS\" )\n\n   SET SERVER REMOTE\n   SET FILETYPE TO CDX\n   SET OPTIMIZE ON\n\n   SET DEFAULT  TO \\\\Sevillana\\discod (d)\\misapp\\jardines2\\datos\\\n   …\nReturn\n\nProcedure jardin()\nUSE JARD NEW SHARED\nBrowse()\nRETURN\n\nEs esto correcto, o me faltan mas pasos.\n\nOtra pregunta seria como usar los rlock, flock, dbcommit, o no se usan?, se usan solo transacciones?\n…\n\nBEGIN TRANSACTION\nSELECT ....\nAPPEND BLANK\nREPLACE.........\nSELECT ....\nIF DBSEEK .....\nREPLACE....\nELSE\nAPPEND BLANK\nREPLACE .....\nENDIF\nCOMMIT TRANSACTION…\n\nSalu2\nCarlos vargas','',0,'AIA=','fg42pjah',1,0,'',110,0,0),(9015,2102,3,148,0,'196.205.176.172',1141930762,1,0,1,1,1,0,'','Harbour Error','I adjusted the buildh.bat paths and compiler and had that error :\n\n\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'lolo.prg\' and generating preprocessed output to \'lolo.ppo\'...\n\nLines 107, Functions/Procedures 3\nGenerating C source output to \'lolo.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nlolo.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\n\nError lolo.RC 3 15: Cannot open file: ../sounds/error.wav\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_SNDPLAYRES\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SAMPLES\\LOLO.OBJ\n* There are errors','',0,'AIA=','1hw74xug',1,0,'',148,0,0),(9016,2101,3,303,0,'68.7.28.54',1141933665,1,0,1,1,1,0,'','','Ehab,\n\nI\'m sure it is possible, but not easy. The entire dialog and every control and font would have to be resized for each screen resolution. I started working on this once, but found it to be very difficult. It would probably also slow down the displays since all that calculation would have to be done each time a dialog was displayed.\n\nThis always seems to be an irony to me. If the user wants to use a higher screen resolution, then presumably they want to fit more on the screen. But, if all the objects then resize themselves, everything takes up just as much of the screen as it did at a lower resolution. They haven\'t gained anything.\n\nSo the simple solution is for the user to select a screen resolution that makes things the size they want them. There are probably lots of users that don\'t even know they can do this.\n\nOf course, the best solution would be to have automatic resizing that could also be turned on and off by the user.\n\nJames','',0,'AIA=','3q3gvrzi',1,0,'',303,0,0),(9017,1854,17,375,0,'84.122.122.105',1141937410,1,0,1,1,1,1,'','','Taiwan, I sugest you to translate, in TGSAY.CH,  the worlds COLORSOMBRA  with SHADOWCOLOR and HACER with DOGET, ACTIVATE GET or some think like that, to make it easyer for you.\n\nRegards','',0,'AIA=','5maisrbm',1,0,'',375,0,0),(9018,2103,6,439,0,'201.221.37.72',1141939302,1,0,1,1,1,0,'','Antonio Linares - DbCombo','Antonio,\n\nQue estoy haciendo mal con este dbcombo?\n\n\nREDEFINE DbCombo oCbx[1] VAR oDbf[1]:idProd ID 104 OF oPage:aDialogs[1] ;\nALIAS \"CBOPROD\" Itemfield \"idProd\" ListField \"Nombre\" ;\nON CHANGE ( PRODTOR-&gt;(DbSeek( oDbf[1]:aBuffer[1], .f. ) ), ;\noSay[21]:SetText(PRODTOR-&gt;Dicose),  oPage:aDialogs[1]:Update() ) update\n\nEl campo idProd es numerico, el Nombre naturalmente de caracteres, estoy probando, porque me resulta muy importante la nueva capacidad de los Combos de manejar itemfield numericos, me compila sin errores pero me da el siguiente error de ejecución:\n\nCalled from:  =&gt; ALLTRIM(0)\n   Called from: COMBOBOX.PRG =&gt; (b)TDBCOMBO:SET(0)\n   Called from:  =&gt; ASCAN(0)\n   Called from: COMBOBOX.PRG =&gt; TDBCOMBO:SET(0)\n   Called from: dbcombo.prg =&gt; TDBCOMBO:DEFAULT(243)\n   Called from: dbcombo.prg =&gt; TDBCOMBO:INITIATE(275)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; CREATEDLG(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: TPages.PRG =&gt; TPAGES:DEFAULT(0)\n   Called from: TPages.PRG =&gt; (b)TPAGES:TPAGES(0)\n   Called from: TPages.PRG =&gt; TPAGES:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: bam2.prg =&gt; BAM2(185)\n   Called from: liha.prg =&gt; (b)BARRABOT(167)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: liha.prg =&gt; MAIN(91)\n\nGracias desde ya por tu ayuda....','',0,'','34qhac10',1,0,'',439,0,0),(9019,1818,3,148,0,'196.205.176.172',1141939426,1,0,1,1,1,0,'','','I want to overcome the problem of ;\nReport width is greater than page width ?','',0,'','csapi5dq',1,0,'',148,0,0),(9020,2102,3,2,0,'87.218.146.3',1141940138,1,0,1,1,1,1,'','','Ehab,\n\nIn that sample please change SndPlayRes() into SndPlayResource()','',0,'','269frjfc',1,0,'',2,0,0),(9021,1818,3,303,0,'68.7.28.54',1141941919,1,0,1,1,1,0,'','','I believe what he wants is to print as many fields (in order) as will fit within the width of a portrait page in one report, then pick up on the next field on a second report, etc.\n\nThis will require calculating the width of each field based on the field width and the width of a dummy string of characters (usually uppercase B\'s) of the same length as the field spec. You use uppercase B\'s because nothing actually in the field will be wider than that. Also the printable width of the printer will have to be considered. I don\'t know that anyone has done this, but I am sure it can be done.\n\nI did something similar a long time ago, but all the fields were the same width so it was easy.\n\nJames','',0,'','2ozp1vx8',1,0,'',303,0,0),(9022,2104,6,328,0,'200.12.61.91',1141943332,1,0,1,1,1,0,'','Error en uso de TDatePicker en una ButtonBar...','Hola a todos,\nestoy colocando un control TDatePicker en una ButtonBar:\n\n[code:3jqaj4xv]\n  aGet&#91;3&#93; &#58;= Date&#40;&#41;\n  DEFINE BUTTONBAR oBar OF oDlgCtc03 _3D \n   @ 0&#46;3,53 SAY oSay&#91;2&#93; PROMPT &quot;Fecha de Corte&#58;&quot; OF oBar SIZE 80,14 FONT oWndMain&#58;oFont\n   @ 0&#46;3,68 DTPICKER oGet&#91;3&#93; VAR aGet&#91;3&#93; OF oBar SIZE 95,18 UPDATE \n[/code:3jqaj4xv]\n\nPues todo esto muy bien, se presenta bien el control en la barra, el error se da cuando deseo cambiar la fecha, se abre el calendario, se escoge la fecha con el mouse o con las flechas (en el control se ve que esta cambiando la fecha), y luego se confirma la fecha deseada, el control se vuelve a colocar la fecha con que se inicio.\nSi la cambio con puro teclado sin utilizar el calendario, si se cambia la fecha.\n\nAlguien a tenido este problema y sabrá como solucionarlo??\n\nGracias y saludos.\n\nCarlos Sincuir','',0,'AIA=','3jqaj4xv',1,0,'',328,0,0),(9023,1818,3,148,0,'196.205.176.172',1141943664,1,0,1,1,1,0,'','','Can you help me in coding please ?','',0,'AIA=','1lcck3g9',1,0,'',148,0,0),(9024,2105,3,148,0,'196.205.176.172',1141943796,1,0,1,1,1,0,'','get is not in front of saying','I can not find the say staements located in the same row of get rows ? Any explaination ???\n\n\n   @ 1,  1 SAY \"&amp;Account No.\" OF oDlg\n   @ 1,  9 SAY \":\" OF oDlg\n   @ 1,  10 GET V_CU_ACCT OF oDlg\n\n   @ 2,  1 SAY \"&amp;Name\" OF oDlg\n   @ 2,  9 SAY \":\" OF oDlg\n   @ 2,  10 GET V_CU_NAME OF oDlg','',0,'AIA=','3bp1fovu',1,0,'',148,0,0),(9025,2055,1,74,0,'190.48.247.254',1141943917,1,0,1,1,1,1,'','','Antonio:\n\n             I confirm what alex said. Yesterday i was working in a fw 192 program recompiling it win fw 2.3 and clipper and i have some compatibility problems (i think) between dbuttons class and fw tbitmap class, so i compiled bitmap.prg from fw23\\source\\classes with my program and this line:\n\n@  18,45 BITMAP oBmp FILE \"logo2.bmp\" SIZE 400,100 OF oWnd NOBORDER \n\n             Produces the same error alex said:\n\n   Descripci¢n: Error BASE/1068  Error de argumento: array access\n   Args:\n     [   1] = N   22524\n   Invocado por TBITMAP:LOADIMAGE(591)\n\n              The line in bitmap.prg:\n\naBmpPal = PalBmpRead( ::GetDC(), AllTrim( cBmpFile ) )\n\n               Is returning a numeric value instead an array, so you get an error in:\n\n          ::hBitmap = aBmpPal[ 1 ]\n          ::hPalette = aBmpPal[ 2 ]\n\n              If i put:\n\nIF VALTYPE(ABMPPAL) # \'N\'\n\n               Before those lines, the bitmap, obviously, is no painted. If you use tbitmap from fw libs you don\'t have any problems, seems like if the bitmap.prg in source\\classes is different from the one in the libs.\n\nRegards,','',0,'','pyuwk1b7',1,0,'',74,0,0),(9026,1818,3,303,0,'68.7.28.54',1141944951,1,0,1,1,1,0,'','','Ehab,\n\nTry these:\n\noReport:oDevice:nHorzSize() // page width\n\noReport:oDevice:getTextSize( cText, oFont )\n\nJames','',0,'','oj9106el',1,0,'',303,0,0),(9027,2106,6,97,0,'200.23.84.231',1141950054,1,0,1,1,1,1,'','TWbrowse en dialogos','Tengo un dialogo con un twbrowse y unos botones, normales sin imagen el problema es que quito el twbrowse me presenta el dualogo y lo pongo y ya no me lo presenta, cuales son las propiedas que debo cambiar.\n\nuso xhb.\n\nsaludos.\nfernando sandoval ruiz','',0,'','d03sax26',1,0,'',97,0,0),(9028,2103,6,97,0,'200.23.84.231',1141950368,1,0,1,1,1,1,'','Que version fw usas','Si usas la version fw24 yo tambien tengo problemas con eso, no se en otras version de fw, yo los soluciones con btnget.\n\n  REDEFINE BTNGET oGet VAR GruArt ID 103  RESOURCE \"combo\" ACTION ( SelGrupo( oGet , 200 , 200 ) ,  oGet:KeyDown(VK_RETURN, 1)) ;\n           VALID (if( oDbGrupos:Seek( GruArt ) .and. !empty( GruArt ) , ( oDbGrupos:Load(), .t.) , ;\n                 ( MsgInfo( \"El Grupo \" + AllTrim( GruArt ) + ;\n                    \" no existe\" ), .f. ))) OF oDlg  UPDATE\n\nespero te sirva de lago.','',0,'','1s8g3n7j',1,0,'',97,0,0),(9029,2107,18,439,0,'201.221.38.90',1141956341,1,0,1,1,1,0,'','El DBCombo de FWH 2.7 Marzo 2006','En Whats New dice: \n\nPreviamente, ambos, itemField y listField tienen que ser\nde tipo carácter; ahora itemField (o array) puede ser numérico. Mira el nuevo ejemplo:\nsamples\\TESTDBC1.PRG. Gracias a James Bott.\n\n1. Cuando itemsfield es numerico da error :\n\nError de argumento ALLTRIM()\nCalled from:  =&gt; ALLTRIM(0)\n   Called from:  =&gt; __EVAL(0)\n   Called from:  =&gt; ASCAN(0)\n   Called from:  =&gt; TCOMBOBOX:SET(0)\n   Called from:  =&gt; TDBCOMBO:DEFAULT(0)\n   Called from:  =&gt; TDBCOMBO:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from:  =&gt; OSEND(0)\n   Called from:  =&gt; ASEND(0)\n   Called from:  =&gt; TDIALOG:INITIATE(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; MAIN(50)\n\n2. El ejemplo que se menciona tiene un Itemfield de caracteres y el array también es de caracteres (un string numérico pero string al fin), en definitiva creo que omitieron poner el cambio, aunque los comentarios en el código fuente dicen que cambio está.\n\nDe hecho reemplacé los valores de texto del ejemplo mencionado para reproducir el error que ven.\n\nSI NO ES MUCHA MOLESTIA, me gustaría saber si el cambio ESTARÁ EN UNA CORRECION DE MARZO O FUTURA.\n\nGracias.....','',0,'','14u5sysr',1,0,'',439,0,0),(9030,2108,3,239,0,'218.19.7.238',1141966036,1,0,1,1,1,0,'','Add tooltip to Tget','I think add tooltip to tget  class is better than nower message  to the user to have a  input guide.\n\nShuming Wang','',0,'','3i28yfsg',1,0,'',239,0,0),(9031,2109,6,72,0,'201.154.240.144',1141967052,1,0,1,1,1,0,'','Fucionamiento de FWH sobre Athlon','Un cliente tiene como servidor un Athlon 64 con XP SP2 y no puede usar mis aplicaciones desarrolladas con FWH.\n\nMe pregunto si es problema de las aplicaciones o del servidor, algún colega le abrá sucedido lo mismo?, gracias.\n\nSaludos.','',0,'','3m7tt926',1,0,'',72,0,0),(9032,1854,17,15,0,'203.73.69.159',1141969677,1,0,1,1,1,0,'','','Hello manuramos\n\nThank you. I will try it for my ap.\nYour solution very nice.\n\nRegards,\n\nRichard','',0,'','21196cu5',1,0,'',15,0,0),(9033,2110,3,148,0,'196.205.176.172',1141970803,1,0,1,1,1,0,'','testxbrw error','Compiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testxbrw.prg\' and generating preprocessed output to \'testxbrw.ppo\'...\n\n100\n300\n400\nLines 689, Functions/Procedures 21\nGenerating C source output to \'testxbrw.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntestxbrw.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ADSSETSERVERTYPE\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSSETFILETYPE\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSKEYCOUNT\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSGETRELKEYPOS\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSSETRELKEYPOS\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADS\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SAMPLES\\TESTXBRW.OBJ\n* There are errors','',0,'','zkxgkspi',1,0,'',148,0,0),(9034,2109,6,2,0,'87.218.146.3',1141974280,1,0,1,1,1,1,'','','Alfredo,\n\nDebe ser un problema del servidor. FWH funciona perfectamente en máquinas de 64 bits. \n\n¿ Le aparece algún error en concreto ?','',0,'','1jdaz57d',1,0,'',2,0,0),(9035,2103,6,2,0,'87.218.146.3',1141974339,1,0,1,1,1,1,'','','José,\n\nPor favor descarga el build de Marzo de FWH y prueba con él. Gracias.','',0,'','9r6ogn7q',1,0,'',2,0,0),(9036,2106,6,2,0,'87.218.146.3',1141974423,1,0,1,1,1,1,'','','Fernando,\n\nHas redefinido el browse desde el PRG ? Si no lo haces, Windows no encuentra la clase del browse, y no puede crear el diálogo.','',0,'','2edbe9qo',1,0,'',2,0,0),(9037,2105,3,455,0,'195.97.105.161',1141974529,1,0,1,1,1,0,'','Re: get is not in front of saying','I don\'t know how I can help you, but this is a typical problem with dialogs controls when created from code.\nIt has to do with the current font, and if the font is proportional (e.g. Ms Sans Serif or Arial), the controls are no more like it used to be in MS-DOS because of the width (mainly) of the strings (SAYs or GETs).\n\nOne simple solution is to use the clause PIXELS for each SAY and GET, combined with the SIZE of these controls and finally, until you succeed, assign a color for all SAYs (GETs are having a frame so you can see how much space is occupied on dialog).\n\nAn example:\n\n[code:3so2hmrc]\ncGet &#58;= &quot;Hello there   &quot;\nDEFINE DIALOG odlg FROM 0,0 to 150,200 PIXELS\n   @3,5 SAY oSay PROMPT &quot;Type something&#58;&quot; OF odlg SIZE 85, 10 PIXELS COLOR CLR_YELLOW, CLR_GREEN\n   @3,85 GET oGet VAR cGet OF odlg SIZE 100,12 PIXELS COLOR CLR_RED, CLR_WHITE\nACTIVATE DIALOG odlg CENTERED\n[/code:3so2hmrc]\n\nI hope that this will put you to the right direction, and if not, I\'m sorry to waste your time <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nKind regards\nEvans','',0,'AIA=','3so2hmrc',1,0,'',455,0,0),(9038,2108,3,2,0,'87.218.146.3',1141974875,1,0,1,1,1,1,'','','Shuming,\n\nYou may do:\n\n&lt;oAnyControl&gt;:cTooltTip = &lt;cText&gt;','',0,'AIA=','139n1ijl',1,0,'',2,0,0),(9039,2108,3,239,0,'218.19.7.238',1141975082,1,0,1,1,1,0,'','','Antonio,\n  Thank you!\nShuming Wang','',0,'AIA=','2lf6d1bh',1,0,'',239,0,0),(9040,2105,3,2,0,'87.218.146.3',1141975125,1,0,1,1,1,1,'','','Ehab,\n\nrows positions are different for each kind of control, just to avoid that they overlap. i.e.:\n\n@ 1, 1 GET ...\n@ 2, 1 GET ...\n\nthe second GET will not be placed over the first one. As the controls have different heights, then sometimes they are shown in different positions. To fix it, you may use decimals numbers:\n\n@ 1.4, 1 SAY ...\n@ 1, 1 GET ...','',0,'AIA=','2habtyl5',1,0,'',2,0,0),(9041,2110,3,2,0,'87.218.146.3',1141975253,1,0,1,1,1,1,'','','That sample is using ADS local RDD. You need to link this library too: ads32.lib\n\nIn order to use the right one, please do:\n\nimplib.exe ads32.lib ads32.dll','',0,'AIA=','lz343oly',1,0,'',2,0,0),(9042,2093,3,2,0,'87.218.146.3',1141975409,1,0,1,1,1,1,'','','Dante,\n\nIn class TPrinter you have this method:\n[code:2ah1emy8]\nMETHOD Cmtr2Pix&#40; nRow, nCol &#41; CLASS TPrinter\n\n   if ValType&#40; &#58;&#58;nYoffset &#41; == &quot;U&quot;\n    &#58;&#58;nYoffset &#58;= 0\n   endif\n   if ValType&#40; &#58;&#58;nXOffset &#41; == &quot;U&quot;\n    &#58;&#58;nXoffset &#58;= 0\n   endif\n\n   nRow &#58;= Max&#40; 0, &#40; nRow * 10 * &#58;&#58;nVertRes&#40;&#41; / &#58;&#58;nVertSize&#40;&#41; &#41; - &#58;&#58;nYoffset &#41;\n   nCol &#58;= Max&#40; 0, &#40; nCol * 10 * &#58;&#58;nHorzRes&#40;&#41; / &#58;&#58;nHorzSize&#40;&#41; &#41; - &#58;&#58;nXoffset &#41;\n\nreturn &#123; nRow, nCol &#125;\n[/code:2ah1emy8]\nyou may use its code to turn the mm into pixels.','',0,'AIA=','2ah1emy8',1,0,'',2,0,0),(9043,2080,3,2,0,'87.218.146.3',1141975542,1,0,1,1,1,1,'','','Reinaldo,\n\nYou may ask Brian Hays, he is a good ADS guru <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','vt1m8ewa',1,0,'',2,0,0),(9044,2070,3,2,0,'87.218.146.3',1141975646,1,0,1,1,1,1,'','','Ehab,\n\nYou may place a small button with \"...\" as its caption, and assign it the action that you may want.','',0,'AIA=','2o25mu2w',1,0,'',2,0,0),(9045,2107,18,2,0,'87.218.146.3',1141976084,1,0,1,1,1,1,'','','Jose,\n\nSegún explica James Bott viendo tu ejemplo:\n\n\"De los fieldnames deduzco que IDProd y Nombre son ambos el ID del producto, uno en formato numérico y el otro caracter. Por lo tanto, deduzco que está buscando el IDProd en otro fichero para obtener la descripción del producto.\n\nSi esto es lo que él está haciendo, hay una alternativa simple. Cargar dos arrays, aItems y aList, aItems conteniendo el valor en caracter de IDProd, y aList conteniendo la descripción. Entonces el puede cargarlos en el objeto oCbx[1] usando oCbx[1]:setItems( aItems, aList) y puede quitar el ON CHANGE y la actualización del SAY. DBCombo ahora tiene busqueda incremental incorporada y la descripción se mostrará en el control DBCombo en vez de en la versión en caracter de IDProd.\"','',0,'','2ikl7jan',1,0,'',2,0,0),(9046,2107,18,2,0,'87.218.146.3',1141976219,1,0,1,1,1,1,'','','Jose,\n\nSi comparas dbcombo.prg de Febrero y Marzo verás que son distintos. A ver si entre todos podemos solucionar el problema que estás teniendo.','',0,'','2es2af5e',1,0,'',2,0,0),(9047,2107,18,2,0,'87.218.146.3',1141976312,1,0,1,1,1,1,'','','Jose,\n\nPuedes modificar el ejemplo samples\\TESTDBC1.PRG para que use los elementos como tú lo estás usando y así podamos reproducir en él el error ? gracias.','',0,'','1lgmg1t4',1,0,'',2,0,0),(9048,2055,1,2,0,'87.218.146.3',1141976401,1,0,1,1,1,1,'','','Daniel,\n\nYes, you are right, that function was changed to return an array instead of a number, when we started developing FWH 32 bits.','',0,'','2l5a2g87',1,0,'',2,0,0),(9049,2098,7,262,0,'212.89.4.34',1141979126,1,0,1,1,1,1,'','','Admite el estilo TCS_BUTTONS ? \nsi es asi como ? \nintento :\n[code:cym45xqm] \n\n#define TCS_BUTTONS  256\n\n@ 2, 2 TABCONTROL oTabs PROMPTS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      OPTION 2 ACTION &#123; || MsgInfo&#40; oTabs&#58;nOption &#41; &#125; ;\n      SIZE 205, 80 OF oWnd\n   \n    oTabs&#58;nStyle &#58;= nOR&#40; WS_CHILD, WS_VISIBLE, TCS_BUTTONS ,TCS_VERTICAL , WS_TABSTOP &#41;\n\n[/code:cym45xqm]\npero no logro que me funciona.\nGracias','',0,'AIA=','cym45xqm',1,0,'',262,0,0),(9050,2110,3,148,0,'196.205.176.172',1141979793,1,0,1,1,1,0,'','','I may switch adsloc32.dll instead of ads32.dll becuase I did not find ads32.dll ?\nI should open the line :\necho %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc','',0,'AIA=','2mbglyze',1,0,'',148,0,0),(9051,2111,3,63,0,'80.37.102.128',1141980330,1,0,1,1,1,0,'','Processing Ctrl-click','How can I detect when a Ctrl-click has been pressed?.  Or, for that matter, Alt-Click or Shift-click.  I imagine that it should be something like:\n\noWnd:bLClicked := {|| MsgInfo(\"Clicked!\")} but I don\'t knok how to handle the Ctrl or Alt flags.\n\nAny suggestions? Thanks\nRafael','',0,'AIA=','3jy1r9ji',1,0,'',63,0,0),(9052,2112,20,6,0,'87.11.236.247',1141980422,1,0,1,1,1,1,'','Download statistics Beta-160','(tradotto da un messaggio di Ron Pinkas nel newsgroup xHarbour)\n\n---------------------------------------------------------------\nCiao a tutti,\n\nQueste sono le attuali statistiche di SourceForge relative ai downloads di \nxHarbour:\n(<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/project/showfiles.php?group_id=33773\">http://sourceforge.net/project/showfile ... p_id=33773</a><!-- m -->):\n\n   Windows:                 1797\n    Dos:                            91\n    Linux:                        176\n    Mac:                           11\n    OS/2: Non ancora disponibile\n    --------------------------\n    Totale:                     2075\n\nQuanto sopra riguarda solamente il download dei file binari mentre sembra che \nper alcune piattaforme Linux siano stati scaricati più sorgenti che file \nbinari!\n\nSe non avete ancora scaricato nessun pacchetto binario della Beta-1-60 \n(specialmente per chi usa direttamente il CVS), vi prego di aiutarci a \nmigliorare la posizione di xHarbour su SourceForge scaricando il pacchetto \nbinario per il vostro compilatore anche se pensate di non averne bisogno.\n\nGrazie anticipate.\n\nRon\n\n---------------------------------------------------------------\n\nEMG','',0,'AIA=','2gb1keon',1,0,'',6,0,0),(9053,2113,3,6,0,'87.11.236.247',1141980532,1,0,1,1,1,1,'','Download statistics Beta-160','[quote:13ghh2mx]Hi All,\n\nCurrent download statistics from SourceForge \n(<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/project/showfiles.php?group_id=33773\">http://sourceforge.net/project/showfile ... p_id=33773</a><!-- m -->):\n\n   Windows:                 1797\n    Dos:                            91\n    Linux:                        176\n    Mac:                           11\n    OS/2: Not built yet\n    --------------------------\n    Total:                      2075\n\nThis is only for unique binary downloads, it seems there are more source \ndownloaded for some Linux platforms than Binaries for same(?).\n\nIf you didn\'t download any binary distribution of the official Beta-1-60 \n(especially those of you building directly from CVS) *please* help us \nimprove xHarbour\'s ranking on SourceForge, by downloading binary for your \ncompiler of choice, even if you don\'t think that you need such pre-built \nbinaries.\n\nTIA,\n\nRon[/quote:13ghh2mx]\n\nEMG','',0,'gA==','13ghh2mx',1,0,'',6,0,0),(9054,2111,3,6,0,'87.11.236.247',1141980911,1,0,1,1,1,1,'','Re: Processing Ctrl-click','GetKeyState( VK_CONTROL )\nGetKeyState( VK_MENU )\n\nEMG','',0,'gA==','351bfvqt',1,0,'',6,0,0),(9055,2098,7,2,0,'87.218.146.3',1141981253,1,0,1,1,1,1,'','','Jose Luis,\n\nTendrías que hacerlo así:\n[code:2b3wqqiw]\n#define GWL_STYLE        &#40;-16&#41; \n\n   SetWindowLong&#40; oTabs&#58;hWnd, GWL_STYLE,; \n                  nOr&#40; GetWindowLong&#40; oTabs&#58;hWnd, GWL_STYLE &#41;, WS_CHILD, WS_VISIBLE, TCS_BUTTONS ,TCS_VERTICAL , WS_TABSTOP &#41; &#41; \n[/code:2b3wqqiw]','',0,'AIA=','2b3wqqiw',1,0,'',2,0,0),(9056,2110,3,2,0,'87.218.146.3',1141981506,1,0,1,1,1,1,'','','yes, right.','',0,'AIA=','2ba1skwt',1,0,'',2,0,0),(9057,2050,3,2,0,'87.218.146.3',1141981602,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/FOLDER.ZIP\">http://geocities.yahoo.com.br/qiinforma ... FOLDER.ZIP</a><!-- m -->','',0,'AIA=','3hjnrwy3',1,0,'',2,0,0),(9058,2090,2,2,0,'87.218.146.3',1141981757,1,0,1,1,1,1,'','','Manuel,\n\nPuedes probar samples\\combos.prg y confirmarnos si te ocurre igual ? Aqui funciona bien con el build de Marzo.','',0,'AIA=','748oljyb',1,0,'',2,0,0),(9059,2069,3,130,0,'141.51.32.24',1141981998,1,0,1,1,1,0,'','','Jose, \n\nyou can save the email into a ascii-file and then parse this file into an array. This array you can easily save in a dbf.\n\nThis is a sample to do it, depending on the fileformat you have change it, to fit your needs.\n\n[code]\noFile &#58;= TTxtFile&#40;&#41;&#58;New &#40;aFile&#91;i&#93;&#41;\nIF oFile != nil\n\n  DO WHILE !oFile&#58;lEof&#40;&#41;          // lesen bis Dateiende\n       cTmp &#58;= oFile&#58;ReadLn&#40;&#41;      // Zeile lesen\n\n       IF !EMPTY &#40;cTmp&#41;                  // Leer ??\n\n         IF AT &#40;&quot;&#58;&quot;,cTmp&#41; &gt; 0            // Neuer Abschnitt ?\n           cSection &#58;= ParseStr &#40;1,&quot;&#58;&quot;,cTmp&#41;\n           cData &#58;= ALLTRIM &#40;ParseStr &#40;2,&quot;&#58;&quot;,cTmp&#41;&#41;\n           cData &#58;= IIF &#40;EMPTY &#40;cData&#41;, &quot;&quot;, cData&#41;  // nil-Werte abfangen\n\n           DO CASE\n           CASE &quot;RETURN&quot; $ UPPER &#40;cSection&#41;\n             aMsg&#91;RETURN_PATH&#93; &#58;= cData\n           CASE &quot;DATE&quot; $ UPPER &#40;cSection&#41;\n             cData+=ParseStr&#40;3,&quot;&#58;&quot;,cTmp&#41;   // Uhrzeit ber','',0,'','2k85hu5g',1,0,'',130,0,0),(9060,2111,3,63,0,'80.37.102.128',1141982560,1,0,1,1,1,0,'','','Thanks a lot, Enrico\nRafael','',0,'','1utaoqwm',1,0,'',63,0,0),(9061,2095,6,46,0,'217.168.114.194',1141982933,1,0,1,1,1,0,'','','En principio debe de trabajar sin problemas\nSaludos','',0,'','1qtf9of4',1,0,'',46,0,0),(9062,2114,16,2,0,'87.218.146.3',1141984003,1,0,1,1,1,1,'','New FWPPC with non-modal dialogboxes support','There is a new FWPPC build with non-modal dialogboxes support. FWPPC users may already download it:\n\n[url=http&#58;//imageshack&#46;us:28yq2icz][img:28yq2icz]http&#58;//img96&#46;imageshack&#46;us/img96/4156/nonmodal3es&#46;png[/img:28yq2icz][/url:28yq2icz]','',0,'GA==','28yq2icz',1,0,'',2,0,0),(9063,2115,4,2,0,'87.218.146.3',1141984099,1,0,1,1,1,1,'','New FWPPC with non-modal dialogboxes support','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2114\">http://fivetechsoft.com/forums/viewtopic.php?t=2114</a><!-- m -->','',0,'GA==','1nt68402',1,0,'',2,0,0),(9064,2116,7,2,0,'87.218.146.3',1141984173,1,0,1,1,1,1,'','Nuevo build de FWPPC con cajas de diálogo no modales','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2114\">http://fivetechsoft.com/forums/viewtopic.php?t=2114</a><!-- m -->','',0,'GA==','27b9sa9m',1,0,'',2,0,0),(9065,2105,3,455,0,'195.97.105.161',1141984282,1,0,1,1,1,0,'','','Antonio,\nThanks for the input, however, I have aleady discovered that each kind of control has different position in screen, even if we use the same numbers.\nFor example a button @1.0, 1.0  does not correspond with a get @1.0, 1.0\n\nWhy is all this happening?\n\nOn a personal work level, I follow the approach of using PIXELS, thus, elimintating the problem, but I still need testing with dialogs created from code....  I though that all the coordinates of the controls are based upon the dialog\'s font, but alas... what can we do \n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','221cky4r',1,0,'',455,0,0),(9066,2117,3,455,0,'195.97.105.161',1141984670,1,0,1,1,1,0,'','APPEND FROM ... SDF','I don\'t really know if this an XHB error or FWH error.\n\nIt worked before Feb 2006 (XHB and FWH), but now it crashes\n[code:32k9g5g2]\n   Error description&#58; Error DBFCDX/1023  Exclusive required\n\n   Called from&#58;  =&gt; __DBPACK&#40;0&#41;\n   Called from&#58; dbsdf&#46;prg =&gt; __DBSDF&#40;241&#41;\n   Called from&#58; IMP_CLK&#46;PRG =&gt; IMPORT_HRS&#40;343&#41;\n\n   Line 343 contained this below, but never had problems before 10/mar/2006\n\n   append from &#40;xClPath+&quot;_MAST&#46;TXT&quot;&#41; SDF   \n[/code:32k9g5g2]\n\nMy search for DBSDF.PRG in FWH\\SOURCE failed of course ...\n\nThe original code was as this:\n\n[code:32k9g5g2]\n   Create &#40;xClPath+&quot;_MIMP&#46;DBF&quot;&#41; FROM &#40;xClPath+&quot;_MAST&#46;STR&quot;&#41;\n   newinfile &#58;= Select&#40;&#41;\n   SELECT &#40;newinfile&#41;\n   append from &#40;xClPath+&quot;_MAST&#46;TXT&quot;&#41; SDF\n   &#40;newinfile&#41;-&gt;&#40;DBCLOSEAREA&#40;&#41;&#41;\n[/code:32k9g5g2]\n\nMy solution was to add this line:\n[code:32k9g5g2]\n   Create &#40;xClPath+&quot;_MIMP&#46;DBF&quot;&#41; FROM &#40;xClPath+&quot;_MAST&#46;STR&quot;&#41;\n   newinfile &#58;= Select&#40;&#41;\n   SELECT &#40;newinfile&#41;\n   USE &#40;xClPath+&quot;_MIMP&#46;DBF&quot;&#41; alias QQQQ EXCLUSIVE  //  added\n   append from &#40;xClPath+&quot;_MAST&#46;TXT&quot;&#41; SDF\n   &#40;newinfile&#41;-&gt;&#40;DBCLOSEAREA&#40;&#41;&#41;\n[/code:32k9g5g2]\n\nAny advise ?\n\nRegards, saludos\nEvans','',0,'AIA=','32k9g5g2',1,0,'',455,0,0),(9067,2098,7,262,0,'212.89.4.50',1141984750,1,0,1,1,1,1,'','','Antonio, el estilo del tab cambia , pero ahora no funcionan los botones , le das a los botones 1 o 3 y no cambia de tab .\nSaludos y gracias.','',0,'AIA=','2clvle9u',1,0,'',262,0,0),(9068,2117,3,6,0,'87.11.236.247',1141985356,1,0,1,1,1,1,'','Re: APPEND FROM ... SDF','The following sample works fine. Can you modify it to reproduce the problem?\n\n[code:31wd44ht]FUNCTION MAIN&#40;&#41;\n\n    USE TEST SHARED\n\n    COPY TO TMPTEST FOR &#46;F&#46;\n\n    USE TMPTEST SHARED\n\n    APPEND FROM TEST\n\n    GO TOP\n\n    BROWSE&#40;&#41;\n\n    CLOSE\n\n    FERASE&#40; &quot;TMPTEST&#46;DBF&quot; &#41;\n\n    RETURN NIL[/code:31wd44ht]\n\nEMG','',0,'AIA=','31wd44ht',1,0,'',6,0,0),(9069,2105,3,6,0,'87.11.236.247',1141985478,1,0,1,1,1,1,'','','You may try to play with constant.ch.\n\nEMG','',0,'AIA=','18w4brzf',1,0,'',6,0,0),(9070,2118,6,57,0,'81.39.245.187',1141990235,1,0,1,1,1,1,'','KeyDow No funciona correctamente con la VK_ESCAPE','Antonio \nDesde el último build la captura en un Dialogo de la tecla VK_ESCAPE utilizando el metodo Keydown, no funciona correctamente y antes funciona. Adjunto ejemplo:\n\nFUNCTION MAIN()\n\n    LOCAL oDlg, oBrw\n\n    DEFINE DIALOG oDlg\n\n      oDlg:bKeyDown  = { |nKey, nFlags| if(nkey==VK_ESCAPE, msginfo(\"Adios\"),) }\n\n    @ 3, 1 BUTTON \"&amp;Close\";\n           ACTION oDlg:End()\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL','',0,'AIA=','2k8wl4l0',1,0,'',57,0,0),(9071,2080,3,299,0,'69.65.95.131',1141992440,1,0,1,0,1,0,'','','Antonio;\n\nThank you for posting a reply.\n\nI did talk to Brian.  We discovered a problem with the wrapper function to the AdsRestructureTable api call and the way ACE32 expects it.  He sent me a fix.  After testing the changes, the fix was later commited to the CVS.  He also added a wrapper to AdsDDSetTableProperty() that I was needing.\n\nI\'m having many other problems when using the DD with DBFNTX tables.  We are trying to debug them all.\n\nI thought more people would be using the Data Dictionary with ADS.  Not using it is missing on the most important features ADS has to offer --layers of security--.  How else can you avoid risking your DBF/NTX/CDX tables from being erased by a user?  \n\nBest,\n\n\nReinaldo Crespo-Bazán.','',0,'AIA=','3pyvcftb',1,0,'',299,0,0),(9072,2119,7,262,0,'83.97.168.140',1141993760,1,0,1,1,1,1,'','Pregunta sobre Dialogos no modales','Los dialogos no modales marcan desde luego una evolucion en fwppc , pero realmente que tipo de uso podemos hacer de ellos ? .\n\nMe refiero a que al ser las bases de datos \"EXCLUSIVE\" el sistema multiventanas se queda limitado , creo yo , que cosas se os ocurren que podamos realizar con ellas ? \nMe refiero a ideas practicas . ( tipo : un splash .... ? )\n\nSaludos.','',0,'AIA=','3b0fhv45',1,0,'',262,0,0),(9073,2119,7,2,0,'87.218.146.3',1141994639,1,0,1,1,1,1,'','','Jose Luis,\n\nSu uso más importante, posiblemente, es para la implementación de los folders, que los usan. Es el próximo paso.','',0,'AIA=','1kczb1hy',1,0,'',2,0,0),(9074,2120,1,161,0,'81.164.212.146',1141994733,1,0,1,1,1,0,'','TBtnBMP disable question.','Hello,\n\nHow can I make a disabled button looking nice.\nThis is how the button looks when it is enabled:\n[url:3ok0n5f8]http&#58;//www&#46;vms&#46;be/FWTest/enabled&#46;bmp[/url:3ok0n5f8]\nAnd this when it\'s disabled\n[url:3ok0n5f8]http&#58;//www&#46;vms&#46;be/FWTest/disabled&#46;bmp[/url:3ok0n5f8]\n\nThanks,\nMarc','',0,'EA==','3ok0n5f8',1,0,'',161,0,0),(9075,2105,3,148,0,'196.205.176.172',1141994958,1,0,1,1,1,0,'','','Can you give me clue about what will be changed in constant.ch ?','',0,'EA==','282ixs5y',1,0,'',148,0,0),(9076,2053,6,41,0,'200.87.67.10',1141996050,1,0,1,1,1,0,'','','Carlos,\n\nel trabajar con archivos ADT es los mismo que con DBF, con alguna diferencias en las exprsiones para crear indices y filtros.\n\nPara utilizar transacciones debes tener bloqueados los registros, por lo que deberas hacer uso de Rlock\n\nLa conexion a tablas sueltas en tu server lo haces a traves de un directorio compartido, pero si utilizaras ADS REMOTO es mejor definir un DICCIONARIO para tener toda la informacion de tu BD en el, ademas, de poder definir otros esquemas de seguridad.\n\nEn lo que se refiere a servidores remotos mi experiencia es tener ADS con Linux, de lo cual estoy contento, ya que Linux es muy estable y ADS tambien, asi que en conjunto nunca he tenido caida de servicio por varios a~nos.\n\nUtilizo la version 7.1 y dudo poder actualizar, ya que me costo mucho convencer que se pueda comprar ADS, seguro la version 8 esta mucho mejor, seguramente Rene podra comentarte al respecto.\n\nun saludo\n\nMarcelo','',0,'EA==','221zab5q',1,0,'',41,0,0),(9077,2106,6,97,0,'200.23.84.231',1141997240,1,0,1,1,1,1,'','Gracias Ing.  Linares','Efectivamente lo esoy redefiniendo, aqui esta el codigo al que me refiero.\n*-----------------------------------------------------------------\nFUNCTION BrwEmpresas( oWnd ,oAdo )\nLOCAL oDlg,oFontBrw,oParMulti,oBrw,oCol,oEmpresas,oErr\nLocal oBAltas,oBModificar,oBBorrar, oBSeleccion,obSalir\nLocal lNEmp\n\noEMPRESAS := CREATEOBJECT( \"ADODB.Recordset\" )\noEmpresas:CursorLocation := 3\noEmpresas:CursorType     := 3\noEmpresas:LockType       := 3\noEmpresas:MaxRecords     := 0\nTRY\n     oEMPRESAS:Open( \"SELECT * FROM CATCLIE\",\"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=comandas;UID=root;PWD=root;\" )\nCATCH oErr\n   ? oErr:Description\n   RETURN NIL\nEND TRY\n//oInspect( oEmpresas)\noEmpresas:MoveFirst()\n\n\nDEFINE DIALOG oDlg RESOURCE \"DLGMANDB\" TITLE \"MANTENIMIENTO DE EMPRESAS\"\n\nREDEFINE BROWSE oBrw  ID 101 OF oDlg\n\n//DEFINE DIALOG oDlg SIZE 300, 300\n\n/*    @ 0, 0 BROWSE oBrw;\n           ON RIGHT CLICK oBrw:Report( \"TCBrowse report\", .T. )\n\n    ADD COLUMN TO oBrw;\n               DATA oEmpresas:Fields( \"NomCli\" ):Value;\n               HEADER \"Nombre del Cliente\";\n               COLOR CLR_RED, CLR_GREEN\n\n    ADD COLUMN TO oBrw;\n               DATA oEmpresas:Fields( \"DirCli\" ):Value;\n               HEADER \"Direccion del Cliente\";\n               COLOR CLR_RED, CLR_GREEN\n\n    oBrw:lCellStyle = .T.\n\n    oBrw:bLogicLen := { || oEmpresas:RecordCount }\n    oBrw:bGoTop    := { || oEmpresas:MoveFirst() }\n    oBrw:bGoBottom := { || oEmpresas:MoveLast() }\n    oBrw:bSkip     := { | nSkip | AdoSkip(oEmpresas,nSkip  ) }\n    oBrw:cAlias    := \"ARRAY\"\n*/\n/*\n   REDEFINE BUTTON oBAltas ID 202 OF oDlg ;\n            ACTION (AltasCias( ID_AALT, oEmpresas ) ,SelEmpresa(oWnd, oEmpresas ), oEmpresas:Refresh(.t.) , oBrw:Refresh() , oEmpresas:End()  ,oDlg:End() , SysRefresh() )\n\n   REDEFINE BUTTON oBModificar ID 203 OF oDlg ;\n            ACTION AltasCias( ID_AMOD, oEmpresas )\n\n   REDEFINE BUTTON oBBorrar ID 204 OF oDlg ;\n            ACTION ( if( MsgYesNo( OemToAnsi( ;\n                    \"¨Seguro que quiere borrar la Empresa \" + Empresas:Fields(1):value  ) , ;\n                    BorrarRegistro(oAdo , \"empresas\" , \"numemp\" , oEmpresas:Fields(1):value ) , \"\" ) , oEmpresas:refresh()  ) )\n\n   REDEFINE BUTTON oBSeleccion ID 201 OF oDlg ;\n            ACTION (SelEmpresa(oWnd , oEmpresas ), SysRefresh() ,oDlg:End())\n\n   REDEFINE BUTTON oBSalir ID 206 OF oDlg ;\n            ACTION (  oEmpresas:Close(), oDlg:End())\n*/\n   ACTIVATE DIALOG oDlg CENTER\n   oFontBrw:End()\n\n\nRETURN( NIL )\n\n\n lo raro es que si lo quito el redefine me presenta el dialogo, o lo mismo si lo hago con dialogo directo si me presenta el browse.','',0,'EA==','1d3etqrb',1,0,'',97,0,0),(9078,2105,3,6,0,'87.11.236.247',1141997308,1,0,1,1,1,1,'','','As an example, try to change:\n\n#define SAY_CHARPIX_H   15\n#define SAY_CHARPIX_W    6\n\nand then recompile say.prg.\n\nEMG','',0,'EA==','2jzd2wif',1,0,'',6,0,0),(9079,2121,6,413,0,'80.224.55.186',1141998184,1,0,1,1,1,0,'','find con comodines oWord:Find(&quot;{*}&quot;) para Vikthor','Es posible utilizar el comando find de esta forma osea con comodines oWord:Find({*}) y de alguna manera obtener todos los campos que tengo entre corchetes {} en un documento word.  \nHe intentado utilizarla cambiando la propiedad \n[code:2ckt9phw]\n       oFind&#58;Set&#40; &quot;MatchWildcards&quot;, &#46;t&#46;    &#41; //True si el texto va a buscarse contiene comodines de búsqueda\n[/code:2ckt9phw]\n \nPero no me hace caso. Tengo una funcion que me transforma lo que hay entre corchetes en texto y haciendolo directamente con replace funciona perfecto pero necesito que me entregue lo que hay entre corchetes hasta que no quede ninguno mas, y cada uno ir sustituyendolo por el valor de la funcion con el comando replace hasta que no quede ningun campo entre corchetes, se te ocurre como... ?\nPuedes enviarme la clase tWord actualizada en otros mensajes pone que esta en tu pagina pero me sale en construccion.....\nSaludos','',0,'AIA=','2ckt9phw',1,0,'',413,0,0),(9080,2122,3,67,0,'62.235.25.177',1141999326,1,0,1,1,1,0,'','Shellexecute','Hello,\n\nI try to use shellexecute with a rtf-file , hoping that wordpad.exe will be called.\n\nSo , i have (trying to translate from dutch) :\n\n1) Configuration\n2) Map options\n3) Third tab blad : file  types','',0,'AIA=','bc3s81a5',1,0,'',67,0,0),(9081,1942,6,226,0,'200.175.93.64',1141999493,1,0,1,1,1,1,'','','Antonio, \n\neste problema do TEMA ocorre somente quando compilo o FW 2.7 com xHarbour comercial ... \n\nexiste alguma diferença entre a configuração de Manifest para o xHb comercial??\n\nestou definindo desta forma no meu .RC ...\n\n[code:1c62lwqp]\n// configuracao para tema XP\n#ifdef __FLAT__\n   1 24 &quot;e&#58;\\fwh\\include\\temaxp&#46;xml&quot;\n#endif\n[/code:1c62lwqp]\n\no arquivo TEMAXP.XML  está assim:\n\n[code:1c62lwqp]\n&lt;?xml version=&quot;1&#46;0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;yes&quot;?&gt;\n&lt;assembly xmlns=&quot;urn&#58;schemas-microsoft-com&#58;asm&#46;v1&quot; manifestVersion=&quot;1&#46;0&quot;&gt;\n&lt;assemblyIdentity\n    version=&quot;1&#46;0&#46;0&#46;0&quot;\n    processorArchitecture=&quot;X86&quot;\n    name=&quot;FiveTech Software&#46;FiveWin&#46;32bits&quot;\n    type=&quot;win32&quot;\n/&gt;\n&lt;description&gt;Your application description here&#46;&lt;/description&gt;\n&lt;dependency&gt;\n    &lt;dependentAssembly&gt;\n        &lt;assemblyIdentity\n            type=&quot;win32&quot;\n            name=&quot;Microsoft&#46;Windows&#46;Common-Controls&quot;\n            version=&quot;6&#46;0&#46;0&#46;0&quot;\n            processorArchitecture=&quot;X86&quot;\n            publicKeyToken=&quot;6595b64144ccf1df&quot;\n            language=&quot;*&quot;\n        /&gt;\n    &lt;/dependentAssembly&gt;\n&lt;/dependency&gt;\n&lt;/assembly&gt;\n[/code:1c62lwqp]\n\nobrigado pela atenção.\n\nMarllon Figueiredo','',0,'AIA=','1c62lwqp',1,0,'',226,0,0),(9082,2123,3,67,0,'62.235.25.177',1141999542,1,0,1,1,1,0,'','shell execute , second try','Setting RTF to Wordpad MFC-aplication from configuration \n\nshellexecute( oWnd:hwnd,\"open\",rtf-file,....)\n\nhas no effect.\n\nResetting RTF extension to microsoft word , and it works !!!!\n\n\nHow can we change this behaviour for shellexecute ?????\n\nFrank','',0,'AIA=','3v5hvqg5',1,0,'',67,0,0),(9083,2124,3,148,0,'196.205.176.172',1142001154,1,0,1,1,1,0,'','preview.dll run time error','I got that run time error for the first time .\nApplication\n===========\n   Path and name: E:\\programs\\clipper\\FWH\\sitex\\sitex.exe (32 bits)\n   Size: 1,190,400 bytes\n   Time from start: 0 hours 0 mins 11 secs \n   Error occurred at: 10/03/2006, 16:30:07\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: PREVIEW_PROC\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; TREPORT:ACTIVATE(0)\n   Called from:  =&gt; TWBROWSE:REPORT(0)\n   Called from:  =&gt; (b)LISTCUST(190)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; LISTCUST(199)\n   Called from:  =&gt; (b)BUILDMENU(68)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(50)','',0,'AIA=','3nblzbnk',1,0,'',148,0,0),(9084,2117,3,455,0,'195.97.105.161',1142002431,1,0,1,1,1,0,'','Re: APPEND FROM ... SDF','Sorry for the long example.\nThis example you can save in \\FWH\\SAMPLES and run it.\nI use XHB Professional ver. 4.01 Jan 24 2006 09:15:21\n\nAPPEND FROM ...  DATABASE works fine.\nAPPEND FROM ... SDF does not work (see the error below)\n\nThanks for the interest\nregards\nEvans\n\n[code:13ocrqsk]\n#INCLUDE \'FIVEWIN&#46;CH\'\n\nFunction MAIN&#40;&#41;\n\n   // This example was ran in FWH\\SAMPLES\n   \n  USE CUSTOMER SHARED\n\n    COPY TO TMPTEST&#46;TXT FOR RTrim&#40;first&#41; == \'Homer\' SDF  //  SDF correctly outputs 5 records\n    COPY TO TMPTEST&#46;DBF FOR RTrim&#40;first&#41; == \'Andy\'       //  DBF correctly outputs 2 records\n    \n    USE TMPTEST SHARED\n    BROWSE&#40;&#41;                     // Contains 2 records\n\n    APPEND FROM TMPTEST&#46;TXT SDF  // SDF crashes here !!!\n    \n    /*\n      Error description&#58; Error DBFNTX/1023  Exclusive required\n      Stack Calls\n      ===========\n      Called from&#58;  =&gt; __DBPACK&#40;0&#41;\n      Called from&#58; dbsdf&#46;prg =&gt; __DBSDF&#40;241&#41;\n      Called from&#58; APPEND_FROM&#46;PRG =&gt; MAIN&#40;15&#41;\n    */\n\n    GO TOP\n    BROWSE&#40;&#41;\n    CLOSE\n    FERASE&#40; &quot;TMPTEST&#46;TXT&quot; &#41;    // &#46;TXT !!!\n\n    RETURN NIL\n    \n\n\n// Suggested solution by Antonio - Must be added to a PRG\n\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP \n  \n\n [/code:13ocrqsk]','',0,'AIA=','13ocrqsk',1,0,'',455,0,0),(9085,2069,3,480,0,'200.204.177.152',1142002520,1,0,1,1,1,1,'','','Stefan\n\nThank\'s for answering\n\nFuntion \"ParseStr\" was not found.  It could describes it?','',0,'AIA=','2o1967or',1,0,'',480,0,0),(9086,2124,3,455,0,'195.97.105.161',1142003143,1,0,1,1,1,0,'','Re: preview.dll run time error','Ehab,\nYou cannot have PREVIEW.DLL in a 32-bit program.\nIn 32-bit environments, we use PREV32.DLL\n\n- Also check your private email -\nRegards\nEvans','',0,'AIA=','1xfft25r',1,0,'',455,0,0),(9087,2117,3,6,0,'87.11.236.247',1142003227,1,0,1,1,1,1,'','Re: APPEND FROM ... SDF','Confirmed. Already reported in the xHarbour developer\'s mailing-list.\n\nThank you.\n\nEMG','',0,'AIA=','sdizadg5',1,0,'',6,0,0),(9088,2125,3,247,0,'87.203.107.254',1142003560,1,0,1,1,1,0,'','Array parameter','How can i pass an array parameter to a vb activex dll?\n\nvb code:\n\nsub AA(p_RR as Variant)\nmsgbox uBound(p_RR)\nend Sub\n\n\n\nI have no problem with string or number. \n\nThanks\nA.S.K','',0,'AIA=','88n7y5ou',1,0,'',247,0,0),(9089,2109,6,72,0,'201.154.240.144',1142006370,1,0,1,1,1,0,'','','Estoy en ello, me acaban de reportar un error similar en otro lugar, en cuanto determine el motivo lo comento.\n\nGracias Antonio.','',0,'AIA=','1qzq7okq',1,0,'',72,0,0),(9090,2117,3,3,0,'86.205.98.148',1142007081,1,0,1,1,1,1,'','Re: APPEND FROM ... SDF','[quote=&quot;E. Bartzokas&quot;:lov6xfw2]Sorry for the long example.\nThis example you can save in \\FWH\\SAMPLES and run it.\nI use XHB Professional ver. 4.01 Jan 24 2006 09:15:21\n\nAPPEND FROM ...  DATABASE works fine.\nAPPEND FROM ... SDF does not work (see the error below)\n\nThanks for the interest\nregards\nEvans\n\n[code:lov6xfw2]\n#INCLUDE \'FIVEWIN&#46;CH\'\n\nFunction MAIN&#40;&#41;\n\n   // This example was ran in FWH\\SAMPLES\n   \n  USE CUSTOMER SHARED\n\n    COPY TO TMPTEST&#46;TXT FOR RTrim&#40;first&#41; == \'Homer\' SDF  //  SDF correctly outputs 5 records\n    COPY TO TMPTEST&#46;DBF FOR RTrim&#40;first&#41; == \'Andy\'       //  DBF correctly outputs 2 records\n    \n    USE TMPTEST SHARED\n    BROWSE&#40;&#41;                     // Contains 2 records\n\n    APPEND FROM TMPTEST&#46;TXT SDF  // SDF crashes here !!!\n    \n    /*\n      Error description&#58; Error DBFNTX/1023  Exclusive required\n      Stack Calls\n      ===========\n      Called from&#58;  =&gt; __DBPACK&#40;0&#41;\n      Called from&#58; dbsdf&#46;prg =&gt; __DBSDF&#40;241&#41;\n      Called from&#58; APPEND_FROM&#46;PRG =&gt; MAIN&#40;15&#41;\n    */\n\n    GO TOP\n    BROWSE&#40;&#41;\n    CLOSE\n    FERASE&#40; &quot;TMPTEST&#46;TXT&quot; &#41;    // &#46;TXT !!!\n\n    RETURN NIL\n    \n\n\n// Suggested solution by Antonio - Must be added to a PRG\n\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP \n  \n\n [/code:lov6xfw2][/quote:lov6xfw2]\n\nI have reported this bug over a month ago in the xharbour ng with a sample, but no one replied !!!!!  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nA fix will be opening the file \"exclusive\"\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nRichard','',0,'gIA=','lov6xfw2',1,0,'',3,0,0),(9091,2050,3,190,0,'202.65.134.45',1142007410,1,0,1,1,1,0,'','','Mr.Antonio\n\nVery good posting and I am  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> for this.\n\nThanks to you and to the original author of the class and to Mr.Rossine\nfor his valuable additions to the Class.\n\nRegards\n\n- Ramesh Babu P','',0,'gIA=','27a8zd5p',1,0,'',190,0,0),(9092,2126,4,3,0,'86.205.98.148',1142008038,1,0,1,1,1,1,'','File transfer','How can we transfer automatically (ftp like) a file to a computer on a wifi network.\n\nI know the computer\'s IP\n\nIs there any other way than using sockets ?\n\nTia\n\nRichard','',0,'gIA=','cxljum5e',1,0,'',3,0,0),(9093,2109,6,37,0,'200.121.160.108',1142009459,1,0,1,1,1,0,'','','Solo para comentarles Alfredo, Antonio que yo trabajo con una Athlon de 64 Bits (Notebook) para ser mas exacto\n\"Mobile AMD AthlonÖ 64-bit 3400+ Processor (1 MB L2 Cache | 2.2 GHz | HyperTransportÖ technology\" y no tengo ningun problema ni con Clipper+Fw (2.4) ni con (x)Harbour (0.45 o 0.99.6) + FWH 2.7\nSaudos\n\nEnrrique Vertiz','',0,'gIA=','2y454utv',1,0,'',37,0,0),(9094,2090,2,9,0,'85.59.36.81',1142009895,1,0,1,1,1,0,'','','Antonio, te acompaño el código de combos.prg con algunas modificaciones señaladas con negrita. En el ejemplo, si cambio el combo\nsegundo, y pulso &lt;Escape&gt;, debe salir el mensaje \"¿Desea guardar los cambios?\". Pues igual que en mi aplicación, si modifico y despliego el combo segundo, es correcto, pero si no está desplegado el combo segundo (y lo he modificado previamente) el programa no responde a la tecla &lt;Escape&gt;, se queda como muerto. \nSi le quito el Valid del Activate, funciona.- Pero yo necesito el valid porque\nno quiero que salga del dialogo hasta contestar si \"Quiero modificar o no\".\nCon los Get funciona perfectamente, pero al meterle un Combo, falla.\n\n\n#include \"FiveWin.ch\"\n#include \"Combos.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg, oSay\n   local oCbx1, oCbx2, oCbx3\n   local cItem1, cItem2 := \"One\", cItem3, cItem4 := \"None\"\n   [b:kod5ipje]local lGrabar := .f.  [/b:kod5ipje]   \n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg RESOURCE \"Combos\"\n\n   REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { \"One\", \"Two\", \"Three\" } ;\n      ID ID_SIMPLE OF oDlg ;\n      ON CHANGE ( cItem4 := cItem1, oSay:Refresh() ) ;\n      VALID ( cItem4 := cItem1, oSay:Refresh(), .t. )\n\n   REDEFINE COMBOBOX oCbx2 VAR cItem2 ITEMS { \"One\", \"Two\", \"Three\" } ;\n      ID ID_DROPDOWN OF oDlg ;\n      STYLE CBS_DROPDOWN ;\n      ON CHANGE ( cItem4 := cItem2, [b:kod5ipje]lGrabar := .t.[/b:kod5ipje], oSay:Refresh() ) ;\n      VALID ( If( ! oCbx2:Find( oCbx2:oGet:GetText() ),;\n                  oCbx2:Add( oCbx2:oGet:GetText() ),), .t. )\n\n   REDEFINE COMBOBOX oCbx3 VAR cItem3 ITEMS { \"One\", \"Two\", \"Three\" } ;\n      ID ID_DROPDOWNLIST OF oDlg ;\n      ON CHANGE ( cItem4 := cItem3, oSay:Refresh() ) ;\n      VALID ( cItem4 := cItem3, oSay:Refresh(), .t. )\n\n   REDEFINE SAY oSay PROMPT cItem4 ID ID_SELECTION OF oDlg COLOR \"R+/W\"\n\n[b:kod5ipje]   oDlg:bKeyDown:={|nK| IIF ( nK != VK_ESCAPE, , ;\n            ( alert (\"¿Desea guardar los cambios?\"), ;\n              lGrabar:=.f., oDlg:End() ) ) }[/b:kod5ipje]\n\n   // ACTIVATE DIALOG oDlg CENTERED\n   ACTIVATE DIALOG oDlg [b:kod5ipje]VALID(!lGrabar)[/b:kod5ipje] ;\n        ON INIT (oDlg:lHelpIcon:=.f., .F.) \n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nprocedure AppSys\n\nreturn\n\n//----------------------------------------------------------------------------//\n\n\nComo siempre, muchas gracias por tu ayuda.\n\nUn saludo desde Málaga\n\nManuel','',0,'QA==','kod5ipje',1,0,'',9,0,0),(9095,2127,3,167,0,'207.119.126.13',1142011658,1,0,1,1,1,1,'','load a service on server','I need to write a program to load as a service on a server.\n\nWhat special considerations do I need to be aware of?\n\nThanks.','',0,'QA==','2wc9urrn',1,0,'',167,0,0),(9096,2107,18,439,0,'201.217.179.148',1142012482,1,0,1,1,1,0,'','Va bien','Antonio,\n\nTal como me lo sugieres en otro mensaje referido a Dbcombo, he descargado nuevamente FWH y he compilado el ejemplo reemplazando los datos de texto por numèricos y ha funcionado.\n\nGracias por todo!!','',0,'QA==','2z3w9xuc',1,0,'',439,0,0),(9097,2103,6,439,0,'201.217.179.148',1142012584,1,0,1,1,1,0,'','Ahora va','Antonio,\n\nDescargué nuevamente el FWH y reemplacé en el ejemplo por valores numéricos en la db y en el array y anduvo perfecto..\nGracias!!!!','',0,'QA==','10savwvx',1,0,'',439,0,0),(9098,2118,6,362,0,'200.168.52.156',1142012915,1,0,1,1,1,1,'','','//-&gt; El correcto es asi...\n\n#Include \"FiveWin.Ch\"\n\nFUNCTION MAIN() \n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg \n\n    @ 3, 10 BUTTON \"&amp;Salir\" OF oDlg                                           ;\n            SIZE 40, 12                                                       ;\n            ACTION( oDlg:End(), __Quit() ) CANCEL\n\n    ACTIVATE DIALOG oDlg CENTERED                                             ;\n             VALID( GetKeyState( VK_ESCAPE ) )\n\nRETURN NIL\n\n//-&gt; Saludos.','',0,'QA==','7lr4ecoa',1,0,'',362,0,0),(9099,2107,18,2,0,'87.218.146.3',1142013077,1,0,1,1,1,1,'','','Jose,\n\nme alegro de que esté funcionando bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','mupn5x46',1,0,'',2,0,0),(9100,2090,2,2,0,'87.218.146.3',1142013396,1,0,1,1,1,1,'','','Manuel,\n\nGracias por el ejemplo.\n\nLa pregunta que le haces al usuario en bKeyDown, debes hacérsela en el VALID:\n[code:2l48uu6w]\nACTIVATE DIALOG oDlg ;\n   VALID If&#40; MsgYesNo&#40; &quot;¿Quiere guardar los cambios?&quot; &#41;, &#40; &#46;&#46;&#46;, &#46;t&#46;&#41;, &#46;f&#46; &#41;\n[/code:2l48uu6w]','',0,'AIA=','2l48uu6w',1,0,'',2,0,0),(9101,2126,4,2,0,'87.218.146.3',1142013626,1,0,1,1,1,1,'','','Richard,\n\nIf the target computer is sharing a folder, then you may directly write on such folder, i.e.:\n\nMemoWrit( \"\\\\name\\shared\\file.txt\", &lt;cText&gt; )','',0,'AIA=','1mvfco6u',1,0,'',2,0,0),(9102,2127,3,2,0,'87.218.146.3',1142013879,1,0,1,1,1,1,'','','Don,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1230&amp;highlight=service\">http://fivetechsoft.com/forums/viewtopi ... ht=service</a><!-- m -->','',0,'AIA=','12f2o64f',1,0,'',2,0,0),(9103,2117,3,2,0,'87.218.146.3',1142014095,1,0,1,1,1,1,'','','You may directly report it to Przemek at <!-- e --><a href=\"mailto:druzus@priv.onet.pl\">druzus@priv.onet.pl</a><!-- e --> as he is the RDDs best expert.','',0,'AIA=','3eip1i5p',1,0,'',2,0,0),(9104,2105,3,2,0,'87.218.146.3',1142015424,1,0,1,1,1,1,'','','Evans,\n\n&gt; Why is all this happening? \n\nBecause controls have different heights and we don\'t want them to overlapp if you do, i.e.:\n\n@ 1, 1 BUTTON ...\n@ 2, 1 BUTTON ...\n\nYou don\'t want the second button to be over the first one.','',0,'AIA=','259kp86x',1,0,'',2,0,0),(9105,2120,1,2,0,'87.218.146.3',1142015550,1,0,1,1,1,1,'','','Marc,\n\nIt looks as the bitmap has 16 colors only. Have you tried with a 256 colors bitmap ?','',0,'AIA=','2ry7xl1z',1,0,'',2,0,0),(9106,2118,6,2,0,'87.218.146.3',1142015642,1,0,1,1,1,1,'','','Toni,\n\nEstamos revisándolo.','',0,'AIA=','gst7d1qh',1,0,'',2,0,0),(9107,2128,6,471,0,'201.240.100.1',1142015820,1,0,1,1,1,1,'','Como recorrer  mas rapido  un arreglo','Estimados amigos uso xharbour\n\nTenemos un arreglo de 2 dimensiones adbf\n\nQuiere solo recorrer la columna 3 y cambiarla a numerica\n\n       For Fila=1 to len(aDbf)\n         aDbf[Fila,3]:=val(aDbf[Fila,3] )\n       Next Fila\n\nEsto se puede hacer mas rapido con AEVAL y en todo\ncaso como serie el codigo\n\n\nO es q para q sea mas rapido hay q usea FOR EACH y como\nse haria en este caso','',0,'','2ixqnj1e',1,0,'',471,0,0),(9108,1942,6,2,0,'87.218.146.3',1142015890,1,0,1,1,1,1,'','','Marllon,\n\nComprueba que el fichero manifest esté dentro del EXE (prueba a abrir el EXE con el PellesC, por ejemplo). Tal vez el compilador de recursos que estás usando no lo incluye correctamente dentro.','',0,'','1lh44jg7',1,0,'',2,0,0),(9109,2129,2,471,0,'201.240.100.1',1142015893,1,0,1,1,1,1,'','Como recorrer  mas rapido  un arreglo','Estimados amigos uso xharbour\n\nTenemos un arreglo de 2 dimensiones adbf\n\nQuiere solo recorrer la columna 3 y cambiarla a numerica\n\n       For Fila=1 to len(aDbf)\n         aDbf[Fila,3]:=val(aDbf[Fila,3] )\n       Next Fila\n\nEsto se puede hacer mas rapido con AEVAL y en todo\ncaso como serie el codigo\n\n\nO es q para q sea mas rapido hay q usea FOR EACH y como\nse haria en este caso','',0,'','20mtkj2d',1,0,'',471,0,0),(9110,2128,6,2,0,'87.218.146.3',1142016094,1,0,1,1,1,1,'','','Vladimir,\n\nEl AEval() no tiene necesariamente que ser más rápido. De todas formas, podrías hacerlo así:\n\nAEval( aDbf, { | a | a[ 3 ] := Val( a[ 3 ] ) } )','',0,'','3cjpxalx',1,0,'',2,0,0),(9111,2106,6,2,0,'87.218.146.3',1142016201,1,0,1,1,1,1,'','','Fernando,\n\nDéjanos ver el RC de este diálogo.','',0,'','1edchgz6',1,0,'',2,0,0),(9112,2130,3,148,0,'196.205.176.172',1142017248,1,0,1,1,1,0,'','make utility','I can not put all my code in 1 files . Can somebody guide me How to use make utility .','',0,'','1gv5da31',1,0,'',148,0,0),(9113,2131,3,34,0,'68.4.154.81',1142017550,1,0,1,1,1,1,'','Exit to run routine','When checking for an update, many programs will shut down, run the update, and start up again.\n\nDoes anyone have a sample of how to do this with xHarbour / FWH ?\n\nTim   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','3g6nuh8z',1,0,'',34,0,0),(9114,2128,6,147,0,'208.51.141.113',1142017874,1,0,1,0,1,1,'','','Vladimir:\nWalter Negro da una buena explicación de FOR EACH en su BLog\n[url:2fxdnq2t]http&#58;//cosadenegro&#46;blogspot&#46;com/2005/03/optimizacin-v-for-each&#46;html[/url:2fxdnq2t]','',0,'EA==','2fxdnq2t',1,0,'',147,0,0),(9115,2090,2,9,0,'85.59.36.81',1142020461,1,0,1,1,1,0,'','','Antonio,\n\nHa funcionado perfectamente. Muchisimas gracias.\n\nUn saludo desde Málaga\n\nManuel','',0,'EA==','1oq2g80g',1,0,'',9,0,0),(9116,2132,6,486,0,'200.184.85.3',1142021865,1,0,1,1,1,0,'','variable memory','Hi,\n  \nHe would like to do the following;  \n  \nin a program test1.exe I declare a variable test :=. f.  \n  \nin another program test2.exe I change the content of this variable of memory for test :=. t.  \n  \nhow do I make that in the fwhx, do I use PeekByte() ???\n\nClemerson','',0,'EA==','2xsyjm21',1,0,'',486,0,0),(9117,2120,1,161,0,'81.164.212.146',1142022079,1,0,1,1,1,0,'','','Antonio,\n\nIt is a 256 color bitmap.\nI\'m still using FW195. Is there a change in the newer version?\n\nMarc','',0,'EA==','2mvb4n1r',1,0,'',161,0,0),(9118,2106,6,97,0,'200.23.84.231',1142022762,1,0,1,1,1,1,'','Gracias Inge. Aqui esta el codigo','DLGMANDB DIALOG 21, 24, 285, 157\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION \"Control de Bases de Datos\"\nFONT 8, \"MS Sans Serif\"\n{\n PUSHBUTTON \"&amp;Seleccionar\", 201, 224, 8, 50, 40\n PUSHBUTTON \"&amp;Crear\", 202, 224, 61, 50, 14\n PUSHBUTTON \"&amp;Modificar\", 203, 224, 79, 50, 14\n PUSHBUTTON \"&amp;Eliminar\", 204, 224, 97, 50, 14\n PUSHBUTTON \"&amp;Refrescar\", 205, 224, 116, 50, 14\n PUSHBUTTON \"&amp;No Selecionar\", 206, 224, 133, 50, 14\n CONTROL \"\", 101, \"TWBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 8, 5, 205, 142\n}','',0,'EA==','3khhrt65',1,0,'',97,0,0),(9119,2130,3,2,0,'87.218.146.3',1142024806,1,0,1,1,1,1,'','','Ehab,\n\nPlease review fwh\\makes directory. There you have one make for Borland and another for Microsoft.','',0,'EA==','2y7f6gl8',1,0,'',2,0,0),(9120,2120,1,2,0,'87.218.146.3',1142024871,1,0,1,1,1,1,'','','Marc,\n\nYou are using a very old version. You should upgrade to current version 2.7. All those issues are solved.','',0,'EA==','3nlx1u7a',1,0,'',2,0,0),(9121,2106,6,2,0,'87.218.146.3',1142024988,1,0,1,1,1,1,'','','Fernando,\n\nEstás usando \"TWBrowse\" en el RC, pero usas la clase TCBrowse en el PRG. Cambia en el RC a \"TCBrowse\".\n\nO estás usando el browse de Hernán ?','',0,'EA==','35e04p6r',1,0,'',2,0,0),(9122,2132,6,2,0,'87.218.146.3',1142025221,1,0,1,1,1,1,'','','Clemerson,\n\nEn 32 bits cada aplicación usa su propio espacio de memoria. No puedes modificar una variable de un programa desde otro. \n\nPodrias exportar una función que accediese a la variable y llamar a esa función desde el otro programa, usando el protocolo de la máquina virtual.\n\nPero todo depende de lo que quieras hacer. Si explicas un poco más para que lo quieres, quizás podamos orientarte con una solución más simple.','',0,'EA==','21a0wigl',1,0,'',2,0,0),(9123,2131,3,95,0,'201.137.195.114',1142025283,1,0,1,1,1,0,'','','Hello Tim Stone\n\n\nI am using a bach file for that job.\n\nFor my Xbase++ POS system\n\n1.- My bach file, ever run a pkunzip a update file\n2.- Run my POS\n3.- My POS update the files, that was compressed.\n\n---\n\nIf the POS, see via FTP a new update for the store ..\n\n1.- It download the update file.\n2.- Notify to the user, that Need to restart the computer.\n\nGoto 1\n\nHTH\n\nRegards\nOsvaldo Ramirez','',0,'EA==','231ovlf4',1,0,'',95,0,0),(9124,2106,6,97,0,'201.161.134.209',1142025760,1,0,1,1,1,1,'','uso el TCBrowse','uso el tcbrowse y tsbrowse de manuel mercado son con los que estube probando, que de echo este dialogo lo tengo trabajndo en otro sistema pero con odbc , hb,fwh. solo que por hacer pruebas y ver lo de la calse tole decidi hacer algo con el xhb, y ahi empezaron los problemas.\n\n\ngracias inge.\nfernando sandoval ruiz','',0,'EA==','1jy83jku',1,0,'',97,0,0),(9125,2133,6,179,0,'200.125.135.241',1142026206,1,0,1,1,1,1,'','una de report','compañeros buenas tardes\nnecesito al final de un reporte con report imprimir \nuna informacion al final del listado, a veces termina en media pagina, a veces al final\n\nComo determino en report el valor de la fila actual cuando se termina el listado ?, he intentado muchas cosas pero resulta\n\nen que parte del report pongo dicho codigo\npor ahora esta en on endpage\ny leppongo en posiciones fijas pero a veces hay mas dato y ahi hay problema\n\nah y perdon por la ignorancia nunca pude dominar estas clases\n\nSaludos','',0,'EA==','12ers5tv',1,0,'',179,0,0),(9126,2134,6,217,0,'200.204.97.49',1142028236,1,0,1,1,1,0,'','Generar libs de Canal 5 para xHB comercial','Hola!\n\nYo intente generar las librerias de vTaskbar de canal 5 con xHB comercial y hay muchos errores en uxtheme.h despues de la compilacion <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nAlguien tiene el fichero .xbp para generar esta lib?\n\nSalu2\nMaurilio','',0,'EA==','1wf8t6wp',1,0,'',217,0,0),(9127,2131,3,34,0,'68.4.154.81',1142030217,1,0,1,1,1,1,'','I need to automate more ...','I understand what you are doing and I do something similar.  However, what I want to do is have my program close ( not a problem ) but then execute an operation upon closing which performs the updating, and then restart with the new version of the program.\n\nThis is very common with many programs so there must be a rather simple method.\n\nTim','',0,'EA==','kz46jqox',1,0,'',34,0,0),(9128,2118,6,2,0,'87.218.146.3',1142032531,1,0,1,1,1,1,'','','Toni,\n\nEn el nuevo build de FWH, la pulsación de VK_ESCAPE está siguiendo el camino correcto que es generar una llamada al método Command() con valor de IDCANCEL (2) que llama a :End( IDCANCEL ).\n\nEn vez de usar bKeyDown ó bKeyChar, debes realizar la comprobación desde el VALID del diálogo.','',0,'EA==','dt6j0jki',1,0,'',2,0,0),(9129,2106,6,2,0,'87.218.146.3',1142032628,1,0,1,1,1,1,'','','Fernando,\n\nSi usas el TCBrowse entonces escribe \"TCBrowse\" en el RC. Si usas TSBrowse, pues \"TSBrowse\". Así debería funcionar correctamente.','',0,'EA==','2mq79gc7',1,0,'',2,0,0),(9130,2131,3,2,0,'87.218.146.3',1142032764,1,0,1,1,1,1,'','','Tim,\n\nI guess that you may use a batch file (BAT) or execute another application from your main app, and then end the main one and let the invoked one run.','',0,'EA==','15tlfxgk',1,0,'',2,0,0),(9131,2104,6,2,0,'87.218.146.3',1142039197,1,0,1,1,1,1,'','','Carlos,\n\nTienes que hacer los siguientes cambios para que funcione correctamente:\n\n1. En la Clase TWindow:\n[code:2yvneytd]\nMETHOD Notify&#40; nIdCtrl, nPtrNMHDR &#41; CLASS TWindow\n\n   local nCode     &#58;= GetNMHDRCode&#40; nPtrNMHDR &#41;\n   local nHWndFrom &#58;= GetNMHDRHWndFrom&#40; nPtrNMHDR &#41;\n   local oCtrl     &#58;= oWndFromHwnd&#40; nHWndFrom &#41;\n\n   if oCtrl != nil\n      do case\n         case nCode == 103 &#46;or&#46; nCode == TVN_SELCHANGEDA  // TreeView item selected\n              oCtrl&#58;SelChanged&#40;&#41;\n\n         otherwise\n              if oCtrl&#58;hWnd != &#58;&#58;hWnd\n                 return oCtrl&#58;Notify&#40; nIdCtrl, nPtrNMHDR &#41;\n              endif   \n      endcase\n   endif\n\nreturn nil\n[/code:2yvneytd]\n2. En la Clase TControl:\n[code:2yvneytd]\n   // METHOD Notify&#40; nIdCtrl, nPtrNMHDR &#41; VIRTUAL  // common controls notifications\n[/code:2yvneytd]\n3. En la Clase TDatePick (source\\classes\\tdtpicke.prg)\n[code:2yvneytd]\nMETHOD Notify&#40; nIdCtrl, nPtrNMHDR &#41; CLASS TDatePick\n\n   local nCode &#58;= GetNMHDRCode&#40; nPtrNMHDR &#41;\n   \n   if nCode == -759  // Date-time picker changed\n      Eval&#40; &#58;&#58;bSetGet, &#58;&#58;GetDate&#40;&#41; &#41;\n      &#58;&#58;Change&#40;&#41;\n   endif\n   \nreturn nil      \n[/code:2yvneytd]\nAqui con esos cambios, tu ejemplo funciona bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2yvneytd',1,0,'',2,0,0),(9132,2104,6,2,0,'87.218.146.3',1142039360,1,0,1,1,1,1,'','','Este es el código del ejemplo que hemos probado:\n[code:1q2a961y]\n#include &quot;Fivewin&#46;ch&quot;\n#include &quot;dtpicker&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, aGet &#58;= Array&#40; 3 &#41;, oGet &#58;= Array&#40; 3 &#41;, oSay &#58;= Array&#40; 3 &#41;\n\n    DEFINE WINDOW oDlg TITLE &quot;Test&quot;\n\naGet&#91;3&#93; &#58;= Date&#40;&#41; \n\n    DEFINE BUTTONBAR oBar OF oDlg _3D \n\n    @ 0&#46;3,53 SAY oSay&#91;2&#93; PROMPT &quot;Fecha de Corte&#58;&quot; OF oBar SIZE 80,14\n\n    @ 0&#46;3,68 DTPICKER oGet&#91;3&#93; VAR aGet&#91;3&#93; OF oBar SIZE 95,18 UPDATE\n\n    ACTIVATE WINDOW oDlg\n\n    RETURN NIL\n[/code:1q2a961y]','',0,'AIA=','1q2a961y',1,0,'',2,0,0),(9133,2129,2,54,0,'201.137.90.144',1142041364,1,0,1,1,1,1,'','Re: Como recorrer  mas rapido  un arreglo','[quote=&quot;Vladimir Zorrilla&quot;:xcz47aoc]Estimados amigos uso xharbour\n\nTenemos un arreglo de 2 dimensiones adbf\n\nQuiere solo recorrer la columna 3 y cambiarla a numerica\n\n       For Fila=1 to len(aDbf)\n         aDbf[Fila,3]:=val(aDbf[Fila,3] )\n       Next Fila\n\nEsto se puede hacer mas rapido con AEVAL y en todo\ncaso como serie el codigo\n\n\nO es q para q sea mas rapido hay q usea FOR EACH y como\nse haria en este caso[/quote:xcz47aoc]\n\nVladimir,\n\naPos := NIL\nFOR EACH aPos IN aDbf\n  aPos[3] := VAL(aPos[3])\nNEXT\n\nDe las extensiones de xHarbour.','',0,'gA==','xcz47aoc',1,0,'',54,0,0),(9134,2128,6,54,0,'201.137.90.144',1142042153,1,0,1,1,1,1,'','Re: Como recorrer  mas rapido  un arreglo','[quote=&quot;Vladimir Zorrilla&quot;:12xtmx6j]Estimados amigos uso xharbour\n\nTenemos un arreglo de 2 dimensiones adbf\n\nQuiere solo recorrer la columna 3 y cambiarla a numerica\n\n       For Fila=1 to len(aDbf)\n         aDbf[Fila,3]:=val(aDbf[Fila,3] )\n       Next Fila\n\nEsto se puede hacer mas rapido con AEVAL y en todo\ncaso como serie el codigo\n\n\nO es q para q sea mas rapido hay q usea FOR EACH y como\nse haria en este caso[/quote:12xtmx6j]\n\nHe hecho pruebas con FOR EACH, va muy rápido la lectura de arreglos.\n\nComprobado.','',0,'gA==','12xtmx6j',1,0,'',54,0,0),(9135,2135,3,239,0,'218.19.7.238',1142043620,1,0,1,1,1,0,'','Could save a print WMF  file ?','Hi,\n   Some customers ask to send the printed invoice  as a file to their customers to avoid lossing , as fax often fail .\n I saw printer class has a  importwmf() method, but has no visual/proper exportwmf() method, How could simply do this ?\n\nBest regard!\nShuming  Wang','',0,'gA==','38ibdibk',1,0,'',239,0,0),(9136,2123,3,69,0,'65.92.155.204',1142043803,1,0,1,1,1,0,'','','Frank,\n\nBoth of these work for me:\n\nSHELLEXECUTE(0,0,\"C:\\TEST\\TEST.RTF\",0,0,1 )\n\nSHELLEXECUTE( oWnd:hwnd,\"open\",\"C:\\TEST\\TEST.RTF\",0,0,1)\n\n\nMake sure you have RTF files accosiated with WordPad.\n\n\nJeff','',0,'gA==','3iul8kxz',1,0,'',69,0,0),(9137,2136,3,239,0,'218.19.7.238',1142044676,1,0,1,1,1,0,'','Could txbrowse paint  as good as tsbrowse ?','Hi,\n\n  The backgroud color  result , one line  white, the next line  light green.\n\n#define CLR_1 nRGB( 190, 215, 190 )\n#define CLR_2 nRGB( 230, 230, 230 )\n\n Tsbrowse:\n\n  oBrow:SetColor({ 2, 5, 6, 15 ,11,12},{ { || If( oBrow:nLogicPos % 2 = 0, ;\n                         CLR_1, CLR_2 ) }, CLR_WHITE, CLR_GREEN, CLR_GREEN,CLR_BLUE,CLR_YELLOW })\n\n  Txbrowse:\n   obrow:bClrStd := {||{CLR_BLACK,if(eval(obrow:bbookmark)%2==0, CLR_1, CLR_2 )}}\n\n Best regard!\nShuming Wang','',0,'gA==','1ju0lli4',1,0,'',239,0,0),(9138,2137,3,69,0,'65.92.155.204',1142048926,1,0,1,1,1,0,'','Right Cell Border in MS-Excel','Hi Everybody,\n\nDoes anyone know how to set only the right cell border in excel via fwh / ole ?\n\nThanks,\n\nJeff','',0,'gA==','8dtg39ts',1,0,'',69,0,0),(9139,2138,6,75,0,'83.52.14.249',1142051699,1,0,1,1,1,0,'','tamaño de campo para e-mail','¿Cual es el tamaño de campo máximo en un registro de una dbf para poner una dirección de e-mail?','',0,'gA==','5f15njx0',1,0,'',75,0,0),(9140,2139,6,75,0,'83.52.14.249',1142051940,1,0,1,1,1,0,'','generar listado a pdf','Con qué clase o función genero un listado en formato pdf directamente sin tener que seleccionar impresora.\n\nNecesito además poder dar yo mismo el nombre del fichero pdf.','',0,'gA==','3qnewi3g',1,0,'',75,0,0),(9141,2140,6,75,0,'83.52.14.249',1142056541,1,0,1,1,1,0,'','No me funciona testsmtp','Estoy intentando utilizar las funciones de envío de mail.\n\nEstoy probando con el ejemplo testsmtp de fw2.3 pero no me funciona.\nComo no se la dirección IP del yahoo le pongo en vez de la dirección numérica del ejemplo la siguiente \"smtp.correo.yahoo.es\" pero no se recibe nada.','',0,'gA==','2e7ex7pt',1,0,'',75,0,0),(9142,2141,3,473,0,'213.119.222.114',1142062594,1,0,1,1,1,0,'','TSBrowse documentation','Is there a description available of all the methods and parameters from TsBrowse\n\nThanks\n\nWilly','',0,'gA==','2qqlychk',1,0,'',473,0,0),(9143,2142,16,2,0,'87.218.146.3',1142062734,1,0,1,1,1,1,'','New FWPPC build with folders! (from source code)','There is a FWPPC new build with folders (from source code) support. FWPPC users may already download it. Please review samples\\TestFold.prg:\n[url=http&#58;//imageshack&#46;us:3q5g772b][img:3q5g772b]http&#58;//img112&#46;imageshack&#46;us/img112/2159/folder17hb&#46;png[/img:3q5g772b][/url:3q5g772b]\n[url=http&#58;//imageshack&#46;us:3q5g772b][img:3q5g772b]http&#58;//img112&#46;imageshack&#46;us/img112/2199/folder22gr&#46;png[/img:3q5g772b][/url:3q5g772b]','',0,'GA==','3q5g772b',1,0,'',2,0,0),(9144,2143,4,2,0,'87.218.146.3',1142062841,1,0,1,1,1,1,'','New FWPPC build with folders!','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2142\">http://fivetechsoft.com/forums/viewtopic.php?t=2142</a><!-- m -->','',0,'GA==','14xdmcjj',1,0,'',2,0,0),(9145,2144,7,2,0,'87.218.146.3',1142062880,1,0,1,1,1,1,'','Nuevo FWPPC con soporte de folders!','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2142\">http://fivetechsoft.com/forums/viewtopic.php?t=2142</a><!-- m -->','',0,'GA==','2f1t3zzh',1,0,'',2,0,0),(9146,2139,6,2,0,'87.218.146.3',1142063477,1,0,1,1,1,1,'','','Verhoven,\n\nPuedes instalar PDFCreator que es gratis (open source):\n<!-- m --><a class=\"postlink\" href=\"https://sourceforge.net/project/showfiles.php?group_id=57796\">https://sourceforge.net/project/showfil ... p_id=57796</a><!-- m -->\n\nTe instala una impresora que automaticamente te genera el fichero PDF preguntándote el nombre, etc. Solo tienes que imprimir en ella y te crea el fichero PDF.\n\nEn caso de que no quieras tener que seleccionar la impresora, puedes usar la clase TPdf que es una contribución libre que tiene xharbour (CVS).','',0,'GA==','1kwv7ikw',1,0,'',2,0,0),(9147,2145,6,77,0,'217.126.90.142',1142064026,1,0,1,1,1,0,'','EXCEL EN TSBROWSE','Hola de nuevo, estoy utilizando la clase TSBROWSE de M.M., y realizo la exportación a excel del browse, cuando abro el fichero generado en excel lo lee perfectamente, pero lo graba con una versión antigua de excel, la 2.1 para ser exactos, he estado mirando como crea el fichero la clase y he visto que lo hace grabando el fichero a fcreate, pero no se donde encontrar la tipologia del fichero xls para intentar modificar la clase, alguien sabe donde puedo conseguir esto o alguien ya lo ha cambiado.\n\nsaludos.\n\nManolo','',0,'GA==','3iv3xb3c',1,0,'',77,0,0),(9148,2146,6,54,0,'201.137.90.144',1142066171,1,0,1,1,1,1,'','ñ en PICTURE &quot;!&quot;','Pues eso amigos,\n\nCuando pongo un picture \"!\", la Ñ sale minuscula, como puedo resolver eso.','',0,'GA==','29h59tw9',1,0,'',54,0,0),(9149,2121,6,413,0,'217.125.9.228',1142071060,1,0,1,1,1,0,'','No admite corchetes....','Investigando en el explorador de objetos de visualbasic he descubierto que esta manera de definir los campos no puedes realizarla en word, pueste se reserva este tipo de corchetes para pasar parametros......\n[code:26r6rujw]\nSel&#123;2&#125; Busca todos los que empiezan con Sel y tengan dos letras mas&#46;&#46;&#46;&#46;\n[/code:26r6rujw]\n\nEsta informacion solo la he encontrado el office 2000 puesto que en la 2003 los ejemplos de los comodines estan eliminados o almenos yo no los he encontrado...','',0,'AIA=','26r6rujw',1,0,'',413,0,0),(9150,2139,6,75,0,'83.46.132.134',1142071515,1,0,1,1,1,0,'','','Me puedes dar la dirección http del CVS o de las contribuciones para bajar la Tpdf, porque lo que necesito es generar directamente el pdf.\n\nSaludos.','',0,'AIA=','15amehv8',1,0,'',75,0,0),(9151,2147,3,148,0,'196.205.176.172',1142074756,1,0,1,1,1,0,'','scroll bar with combo box','How can I add a scroll bar and hotpick to combo box ?','',0,'AIA=','2jvvwqae',1,0,'',148,0,0),(9152,2143,4,13,0,'213.76.252.200',1142075920,1,0,1,1,1,0,'','','Antonio,\n\nyou build new version very fast <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nmaybe next build include date picker control ?\n\nthanks for your great work\nPawel','',0,'AIA=','1g0kmpv9',1,0,'',13,0,0),(9153,2137,3,6,0,'87.1.232.80',1142076969,1,0,1,1,1,1,'','Re: Right Cell Border in MS-Excel','This is a working sample:\n\n[code:342qnlh7]#include &quot;Fivewin&#46;ch&quot;\n\n\n// Line styles\n\n#define xlContinuous        1\n#define xlDash          -4115\n#define xlDashDot           4\n#define xlDashDotDot        5\n#define xlDot           -4118\n#define xlDouble        -4119\n#define xlSlantDashDot     13\n#define xlLineStyleNone -4142\n\n\n// Border positions\n\n#define xlEdgeLeft    7\n#define xlEdgeTop     8\n#define xlEdgeBottom  9\n#define xlEdgeRight  10\n\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel &#58;= CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    LOCAL oSheet\n\n    oExcel&#58;Workbooks&#58;Add&#40;&#41;\n\n    oSheet = oExcel&#58;ActiveSheet&#40;&#41;\n\n    oSheet&#58;Range&#40; &quot;A1&quot; &#41;&#58;Borders&#40; xlEdgeRight &#41;&#58;LineStyle = xlContinuous\n    oSheet&#58;Range&#40; &quot;A1&quot; &#41;&#58;Borders&#40; xlEdgeRight &#41;&#58;Color = CLR_RED\n    oSheet&#58;Range&#40; &quot;A1&quot; &#41;&#58;Value = &quot;Red&quot;\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:342qnlh7]\n\nEMG','',0,'AIA=','342qnlh7',1,0,'',6,0,0),(9154,2099,19,26,0,'84.255.245.173',1142080272,1,0,1,1,1,1,'','','Ultra Mobile (UMPC) Display Emulator Beta:\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=9c01c822-e6d2-4240-9fb3-b00e8ff4fbbf&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://research.microsoft.com/sn/detours/\">http://research.microsoft.com/sn/detours/</a><!-- m -->','',0,'AIA=','ny7sm0x1',1,0,'',26,0,0),(9155,2139,6,2,0,'87.218.146.3',1142081353,1,0,1,1,1,1,'','','Puedes ir a <!-- w --><a class=\"postlink\" href=\"http://www.sourceforge.net\">www.sourceforge.net</a><!-- w --> y buscar xharbour y descargarlo desde los ficheros en el CVS, ó si tienes cvs.exe hacer estas llamadas:\n\ncvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/xharbour login \n \ncvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/xharbour co xharbour\n\nPulsa enter en la primera llamada cuando te pida el login (no tienes que escribir nada)\n\nEl cvs.exe puedes descargarlo desde aqui:\n<!-- m --><a class=\"postlink\" href=\"ftp://ftp.harbour-project.org/dev/cvs.zip\">ftp://ftp.harbour-project.org/dev/cvs.zip</a><!-- m -->','',0,'AIA=','typ49iwd',1,0,'',2,0,0),(9156,2148,3,160,0,'210.212.142.91',1142085527,1,0,1,1,1,0,'','Report Class Problem.','Hello All,\n\nIn the TReport Class, I am using Group on clause (i.e. Party Code). There are  a number of records for a Party. Everytime Party name is printed. I want suppress the printing of the party name after 1st instance. Can I do it ? If so, how ?\n\nCan I suppress printing of horizontal line before group total ?\n\nSometime there is only one record in a group, where I would not like to print group total. Can I prevent printing of Group total only in such case\n\nCan somebody guide me ?\n\nTIA\nMilan.','',0,'AIA=','3en685rq',1,0,'',160,0,0),(9157,2149,1,258,0,'81.242.73.28',1142085745,1,0,1,1,1,0,'','function that return the temp directory of the logged  user','I am looking for the instruction that return the path of the temp directory\nwin2000 and WinXp\n(c:\\documents and settings\\user1\\.....)\nThanks \nPhilippe Jacquet','',0,'AIA=','s7rsx8g0',1,0,'',258,0,0),(9159,2138,6,138,0,'201.153.4.28',1142089189,1,0,1,1,1,1,'','','hummmmmm.....\n\nEl DBF se invento mucho antes de que el e-mail fuera un \"comodity\".\n\nYo diria que la longitud maxima de un campo en el DBF para poner una direccion de correo electronico seria a su vez el tamaño maximo de un campo tipo character, que a su vez creo recordar que es de 10000 (10 kbytes)','',0,'AIA=','3py0vgva',1,0,'',138,0,0),(9160,2140,6,138,0,'201.153.4.28',1142089618,1,0,1,1,1,1,'','','La clase TSMTP requiere forzosamente que sepas la direccion IP del servidor de correo, si no la conoces puedes hacer un PING desde msdos al servidor o en su defecto esto te puede servir:\n\ncIp := GetHostByName(\"smtp.yahoo.es\")','',0,'AIA=','16gqz5an',1,0,'',138,0,0),(9161,2145,6,138,0,'201.153.4.28',1142089941,1,0,1,1,1,1,'','Re: EXCEL EN TSBROWSE','[quote=&quot;MANOLO&quot;:tat2c0ko]Hola de nuevo, estoy utilizando la clase TSBROWSE de M.M., y realizo la exportación a excel del browse, cuando abro el fichero generado en excel lo lee perfectamente, pero lo graba con una versión antigua de excel, la 2.1 para ser exactos, he estado mirando como crea el fichero la clase y he visto que lo hace grabando el fichero a fcreate, pero no se donde encontrar la tipologia del fichero xls para intentar modificar la clase, alguien sabe donde puedo conseguir esto o alguien ya lo ha cambiado.\n\nsaludos.\n\nManolo[/quote:tat2c0ko]\n\nEL TSbrowse utiliza una tecnologia similar a la de la clase FileXLS, no es posible crear archivos Excel superiores a la version 2.0, porque en realidad los archivos XLS de las nuevas versiones de Excel son componentes ActiveX, no me preguntes como es esto, pero los archivos XLS de Excel 2000, Excel XP y Excel 2003, son mucho mas que datos metidos en un fichero.\n\nPor esta razon, la unica manera de genera archivos de datos para excel escribiendo los datos \"a capon\" en el fichero, es usando fcreate, fwrtie, etc, sin embargo, esto te genera un fichero compatible con la version 2.0, no puedes hacerlo para versiones nuevas, porque simplmente no puedes crear un ActiveX desde FW.\n\nLa otra opcion seria que quitaras la opcion de generar hojas de excel y en su lugar utilizaras la clase XLSScript de Vikthor','',0,'gA==','tat2c0ko',1,0,'',138,0,0),(9162,2150,3,26,0,'84.255.245.173',1142090434,1,0,1,1,1,1,'','Extra spacing in GET  on Window!','Hello!\n\nBellow are two pictures - results of following two samples:\nSample \"Dialog\":\n[code:1tkw5o37]#include &quot;FiveWin&#46;ch&quot;\nstatic  fntErr, fntOK\n\nfunction Main&#40;&#41;\n   LOCAL oUI, oGet\n   LOCAL cErr &#58;= &quot;F1- Arial &quot;\n   LOCAL cOK  &#58;= &quot;F2 - Verdana &quot;\n\n   SET _3DLOOK OFF\n   DEFINE FONT fntErr NAME &quot;Arial&quot; SIZE 0,32\n   DEFINE FONT fntOK  NAME &quot;Verdana&quot; SIZE 0, 32\n\n   DEFINE DIALOG oUI TITLE &quot;Dialog&#58; &quot; + FWVERSION\n   @ 1,    1 GET oGet VAR cErr OF oUI SIZE 120, 20 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;  NOBORDER FONT fntErr\n   @ 3,    1 GET oGet VAR cOk OF oUI SIZE 120, 20 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;  NOBORDER FONT fntOK\n   ACTIVATE DIALOG oUI\nreturn nil  // Main[/code:1tkw5o37]\nSample \"Window\":\n[code:1tkw5o37]#include &quot;FiveWin&#46;ch&quot;\nstatic  fntErr, fntOK\n\nfunction Main&#40;&#41;\n   LOCAL oUI, oGet\n   LOCAL cErr &#58;= &quot;F1- Arial &quot;\n   LOCAL cOK  &#58;= &quot;F2 - Verdana &quot;\n\n   SET _3DLOOK OFF\n   DEFINE FONT fntErr NAME &quot;Arial&quot; SIZE 0,32\n   DEFINE FONT fntOK  NAME &quot;Verdana&quot; SIZE 0, 32\n\n   DEFINE WINDOW oUI TITLE &quot;Window&#58; &quot; + FWVERSION\n   @ 1,    1 GET oGet VAR cErr OF oUI SIZE 240, 40 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;  NOBORDER FONT fntErr\n   @ 6,    1 GET oGet VAR cOk OF oUI SIZE 240, 40 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;  NOBORDER FONT fntOK\n   ACTIVATE WINDOW oUI\nreturn nil  // Main[/code:1tkw5o37]\n\nResult of \"Dialog\":\n[img:1tkw5o37]http&#58;//www&#46;astral-it&#46;com/img/tgd&#46;png[/img:1tkw5o37]\nResult of \"Window\":\n[img:1tkw5o37]http&#58;//www&#46;astral-it&#46;com/img/tgw&#46;png[/img:1tkw5o37]\n\nAs you can see, there is additional spacing in GET when \nArial font is used on window. What can be done to\nremove this spacing???\n\nThanks, Roman','',0,'CIA=','1tkw5o37',1,0,'',26,0,0),(9163,2151,3,26,0,'84.255.245.173',1142091233,1,0,1,1,1,1,'','Custom file open/save dialog','Hello!\n\nFunction cGetFile uses system file open/save dialog and this means\nthat dialog is different in Windows 98SE, XP and Vista. For example,\n\"Boxer Editor\" uses non-standard File Open dialog box with \nextra features:\n<!-- m --><a class=\"postlink\" href=\"http://www.boxersoftware.com/pgfeat.htm\">http://www.boxersoftware.com/pgfeat.htm</a><!-- m -->\n[quote:2xlhxkht]Custom File Open Dialog\n   - resize the dialog to any size \n   - filename expansion: press Tab to complete a partial filename \n   - preview a file in a pop-up window without opening it \n   - recently used directories list[/quote:2xlhxkht]\n[img:2xlhxkht]http&#58;//www&#46;astral-it&#46;com/img/boxer_io&#46;png[/img:2xlhxkht]\n\nIs there source available for File Open dialog written in \nHarbour and Fivewin?\n\nThanks, Roman','',0,'iA==','2xlhxkht',1,0,'',26,0,0),(9164,2152,6,73,0,'201.135.57.8',1142092288,1,0,1,1,1,0,'','set message vs statusbar','tengo una ventana con un browse y defino una barra de mensajes ....\ncuando hago una busqueda incremental del browse me muestra lo que escribo en la barra de mensajes, y el browse se mueve automaticamente, todo esto funciona ok, pues resulta que quiero hacer lo mismo pero en lugar de usar la set message quiero usar la statusbar y no he podido, alguna pista de como hacerlo?\nGracias\nPako','',0,'iA==','2yb811rq',1,0,'',73,0,0),(9165,2152,6,73,0,'201.135.57.8',1142093644,1,0,1,1,1,0,'','','se me olvido aclarar que la uso en una MDICHILD,aki dejo el codigo\n\n   DEFINE WINDOW oWndHija MDICHILD OF oWnd TITLE \"Módulo de Control de Empresas\"\n    DEFINE STATUSBAR oStatusBar PROMPTS cDefMsg OF oWndHija\n\n@ 0,0 listbox oBEmp .....\n\n   oBEmp:bSeek            := {|lRet| oBEmp:DbfSeek(.T.) }\n   oBEmp:bUpdateBuffer:= {|| UpBuffer( oWndHija:oStatusBar, ;\n                                           cDefMsg, oBEmp:cBuffer ) }\n\n\nSTATIC FUNCTION UpBuffer( oStatusBar, cDefMsg, cBuffer )\n local cMsg\n\n    if Len( cBuffer ) &gt; 0\n       cMsg:= \"Buscando: \" + upper(cBuffer)\n    else\n       cMsg:= cDefMsg\n    endif\n    oStatusBar:SetMsg( PadR( cMsg ,200) )\nreturn Nil\n\ny el programa falla este es el error:\nerror base/1004 message not found: TMDICHILD:OSTATUSBAR from errorsys, line: 0\n\nGracias\nPako','',0,'iA==','1ecatei7',1,0,'',73,0,0),(9166,2152,6,73,0,'201.135.57.8',1142094034,1,0,1,1,1,0,'','','ya resuleto !! \n\nGracias.\nSalu2.\nPako','',0,'iA==','29k1v56p',1,0,'',73,0,0),(9167,2109,6,72,0,'201.137.85.129',1142096709,1,0,1,1,1,0,'','','Si funciona!. Era un problema no previsto durante la instalación.\n\nGracias.','',0,'iA==','24284nri',1,0,'',72,0,0),(9168,2130,3,148,0,'196.205.176.172',1142098649,1,0,1,1,1,0,'','','I fixed the path in test.rmk and those errors where found .\n\n\nE:\\COMPILER\\clipper\\FWH\\makes\\bormake&gt;if not exist obj md obj \n\nE:\\COMPILER\\clipper\\FWH\\makes\\bormake&gt;e:\\compiler\\cpp_lang\\bcc55\\bin\\make -fmine.rmk \nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	e:\\compiler\\clipper\\harbour\\bin\\harbour .\\alert.PRG /L /N /W /Oobj\\ /Ie:\\compiler\\clipper\\fwh\\include;e:\\compiler\\clipper\\harbour\\include\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'.\\alert.PRG\'...\n\nLines 29, Functions/Procedures 2\nGenerating C source output to \'obj\\alert.c\'... Done.\n	e:\\compiler\\cpp_lang\\bcc55\\bin\\bcc32 -c -tWM -Ie:\\compiler\\clipper\\harbour\\include -oobj\\alert obj\\alert.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nobj\\alert.c:\n	e:\\compiler\\clipper\\harbour\\bin\\harbour .\\one.PRG /L /N /W /Oobj\\ /Ie:\\compiler\\clipper\\fwh\\include;e:\\compiler\\clipper\\harbour\\include\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'.\\one.PRG\'...\n\nLines 6, Functions/Procedures 1\nGenerating C source output to \'obj\\one.c\'... Done.\n	e:\\compiler\\cpp_lang\\bcc55\\bin\\bcc32 -c -tWM -Ie:\\compiler\\clipper\\harbour\\include -oobj\\one obj\\one.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nobj\\one.c:\n	echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n	echo -Ie:\\compiler\\clipper\\harbour\\include;e:\\compiler\\clipper\\fwh\\include &gt;&gt; tmp\n	e:\\compiler\\cpp_lang\\bcc55\\bin\\bcc32 -oobj\\two @tmp two.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTWO.C:\n	del tmp\n	echo off\n	echo e:\\compiler\\cpp_lang\\bcc55\\bin\\c0w32.obj + &gt; b32.bc\n	echo obj\\alert.obj obj\\one.obj obj\\two.obj, + &gt;&gt; b32.bc\n	echo alert.exe, + &gt;&gt; b32.bc\n	echo alert.map, + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\fwh\\lib\\FiveH.lib e:\\compiler\\clipper\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\rtl.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\vm.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\gtwin.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\lang.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\macro.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\rdd.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\debug.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\common.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\pp.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\clipper\\harbour\\lib\\codepage.lib + &gt;&gt; b32.bc\n	rem Uncomment these two lines to use Advantage RDD\n	rem echo e:\\compiler\\clipper\\harbour\\lib\\rddads.lib + &gt;&gt; b32.bc\n	rem echo e:\\compiler\\clipper\\harbour\\lib\\Ace32.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\cpp_lang\\bcc55\\lib\\cw32.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\cpp_lang\\bcc55\\lib\\import32.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\cpp_lang\\bcc55\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\cpp_lang\\bcc55\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\cpp_lang\\bcc55\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n	echo e:\\compiler\\cpp_lang\\bcc55\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n	IF EXIST Alert.res echo Alert.res &gt;&gt; b32.bc\n	e:\\compiler\\cpp_lang\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from E:\\COMPILER\\CLIPPER\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from E:\\COMPILER\\CLIPPER\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from E:\\COMPILER\\CLIPPER\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from E:\\COMPILER\\CLIPPER\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from E:\\COMPILER\\CLIPPER\\HARBOUR\\LIB\\RDD.LIB|rddsys\n\n** error 2 ** deleting Alert.exe','',0,'iA==','2ci6ermr',1,0,'',148,0,0),(9169,2153,3,63,0,'80.37.102.128',1142100628,1,0,1,1,1,0,'','CursorHand()','I have an small Dialog WS_POPUP+WS_BORDER, completely filled with a Bmp.  I\'d like to change the cursor to CursorHand whenever it is positiones over tha dialog (o bmp).  I have tried several approaches such as:\nON INIT (::LoadImg(), CursorHand())  but no luck.  Any suggestion?  Thanks\nRafael','',0,'iA==','26sc8oxs',1,0,'',63,0,0),(9170,2149,1,6,0,'87.1.232.80',1142101400,1,0,1,1,1,1,'','Re: function that return the temp directory of the logged  u','GetEnv( \"TEMP\" )\n\nEMG','',0,'iA==','t2a0t7xv',1,0,'',6,0,0),(9171,2153,3,6,0,'87.1.232.80',1142102373,1,0,1,1,1,1,'','Re: CursorHand()','Try something like this:\n\n[code:4lgk116b]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oCur\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;bMMoved = &#123; || CursorHand&#40;&#41; &#125;\n    oDlg&#58;bLButtonUp = &#123; || CursorHand&#40;&#41; &#125;\n    oDlg&#58;bRButtonUp = &#123; || CursorHand&#40;&#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:4lgk116b]\n\nEMG','',0,'AIA=','4lgk116b',1,0,'',6,0,0),(9172,2153,3,63,0,'80.37.102.128',1142102910,1,0,1,1,1,0,'','','Thanks, Enrico, but no. It does not work. In fact, it does not do anything either when moving over the dialog or pushing buttons. I\'ll keep trying other approaches.\nRafael','',0,'AIA=','1saz9uhs',1,0,'',63,0,0),(9173,2153,3,6,0,'87.1.232.80',1142103016,1,0,1,1,1,1,'','','It works fine here. Have you tried my sample as it is?\n\nEMG','',0,'AIA=','3agxb981',1,0,'',6,0,0),(9174,2130,3,2,0,'87.218.146.3',1142105266,1,0,1,1,1,1,'','','Ehab,\n\nYou have to link hbsix.lib and dbffpt.lib too. These changes were implemented after the makes were developed.','',0,'AIA=','bs36z1gq',1,0,'',2,0,0),(9175,2152,6,2,0,'87.218.146.3',1142105712,1,0,1,1,1,1,'','','Paco,\n\nbien! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2tukzpul',1,0,'',2,0,0),(9176,2130,3,148,0,'196.205.177.107',1142113003,1,0,1,1,1,0,'','','What are the rules of making variable(Dialog) visible to main and sub-program such as public variable in clipper ?\n\nAlso I faced that error in the sub-program \n\nCompiling \'.\\cust.PRG\'...\n\n.\\cust.PRG(16) Error E0030  Syntax error: \"parse error at \'DIALOG\'\"\n\n.\\cust.PRG(19) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(45) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(52) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(63) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(64) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(65) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(66) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(69) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(70) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(72) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(73) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(74) Error E0030  Syntax error: \"parse error at \'@\'\"\n\n.\\cust.PRG(78) Error E0030  Syntax error: \"parse error at \'DIALOG\'\"\n\n14 errors\n\nNo code generated\n\n** error 1 ** deleting cust.OBJ\n\nfunction listcust()//cust.prg\n*-----------------\nlocal custDlg,oLbx,oRec\n*local oLbx,oRec\n\n   select 1\n   USE cust\n   INDEX ON cust-&gt;cu_acct TO cust\n   SET INDEX TO cust\n   GO TOP\n\n   if RecCount() == 0\n      APPEND BLANK\n   endif\n\nDEFINE DIALOG custDlg FROM 0,0 TO 45,128 TITLE \"Customer Management\"\n*oWnd:oClient:=oLbx\n\n   @ 0, 1 SAY \" &amp;Customer List\"  OF custDlg\n   @ 1, 1 LISTBOX oLbx FIELDS;\ncust-&gt;CU_ACCT,;\ncust-&gt;CU_NAME,;\ncust-&gt;cu_stre,;\ncust-&gt;cu_gove,;\ncust-&gt;cu_city,;\ncust-&gt;cu_coun,;\ncust-&gt;CU_phon,;\ncust-&gt;CU_fax,;\ncust-&gt;CU_MAN,;\ncust-&gt;CU_mobi,;\ncust-&gt;CU_appr;\nHEADERS \"Account No.\",;\n\"NAME\",;\n\"Street\",;\n\"Governer\",;\n\"City\",;\n\"Country\",;\n\"Phone\",;\n\"Fax\",;\n\"Customer Man\",;\n\"Customer Mobile\",;\n\"Aprreviation\";\nON CHANGE oLbx:Say( \"Rec: \" + cValToChar( RecNo() ) + \"/\" + ;\ncValToChar( RecCount() ) );\nSIZE 480, 280 OF custDlg\n\n*FIELDSIZES 200,200,200,200,200,200,200,200;\n\n/*      ON CHANGE oRec:SetText( \"Rec: \" + cValToChar( RecNo() ) + \"/\" + ;\n                              cValToChar( RecCount() ) )*/\n\n@14,35 SAY oRec OF custDlg\n\n   // Lets use different row colors\n   oLbx:nClrText      = { || SelColor( 3 ) }\n   oLbx:nClrForeFocus = { || SelColor( 3 ) }\n\n   // Uncomment this to quickly calculate the desired columns width\n   // Right click with the mouse over the browse and you will\n   // see the columns sizes!\n   oLbx:bRClicked = { || oLbx:ShowSizes() }\n\n   @ 17,   1 BUTTON \"&amp;New\"    OF custDlg SIZE 40, 12 ACTION Editcust( oLbx, .t. )\n   @ 17,  8 BUTTON \"&amp;Modify\" OF custDlg SIZE 40, 12 ACTION Editcust( oLbx, .f. )\n   @ 17, 15 BUTTON \"&amp;Delete\" OF custDlg  SIZE 40, 12 ACTION Delrecord( oLbx )\n   @ 17, 22 BUTTON \"&amp;Search\" OF custDlg SIZE 40, 12 ACTION SeekCust( oLbx )\n   @ 17, 29 BUTTON \"&amp;Print\"  OF custDlg ;\n      ACTION oLbx:Report( \"Customers  Report\", .t. ) ;  // .t. --&gt; wants preview\n      SIZE 40, 12\n   @ 17, 36 BUTTON \"&amp;Exit\"   OF custDlg ACTION custDlg:End() SIZE 40, 12\n\n   @ 18,  1 BUTTON \"&amp;Order\"    OF custDlg ACTION ordermach(oLbx) SIZE 40, 12\n   @ 18,  8 BUTTON \"&amp;Filter\"    OF custDlg ACTION filtermach(oLbx) SIZE 40, 12\n   @ 18,  15 BUTTON \"&amp;Unfilter\" OF custDlg ACTION Nonfiltermach(oLbx) SIZE 40, 12\n\n\n\n   ACTIVATE DIALOG custDlg\n\n   USE\n\n\nreturn nil','',0,'AIA=','2i53yfrg',1,0,'',148,0,0),(9177,2154,6,228,0,'201.245.222.85',1142116235,1,0,1,1,1,1,'','Ayuda xbrowse','Amigos del foro tengo el siguiente problema-&gt;\n\nDefino un folder con tres pestañas, cada una contiene unicamente un xbrowse. Al hacer clic sobre cada pestaña se llena un array con datos de una consulta de mysq, luego se los asigno al array del xbrowse así:\n\naBrw:=array(resultado consulta sql)\noBrw:SetArray(aBrw)\noBrw:refresh()\n\nluego refresco el xbrowse....\n\nPero cuando hago esto no me refresca los titulos de las columnas ni los tamaños de las columnas, estas las defini al momento de REDEFINE el xbrowse en el dialogo.\n\nComo hago para actualizar esos datos en tiempo de ejecuccion? ó estoy haciendo algo incorrectamente?\n\nAlguien me puede ayudar?   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','7ywtj8vl',1,0,'',228,0,0),(9178,2148,3,303,0,'68.7.28.54',1142118844,1,0,1,1,1,0,'','','Have you tried the SUMMARY clause?\n\nJames','',0,'AIA=','1z8rgd5a',1,0,'',303,0,0),(9179,2155,3,49,0,'87.10.180.76',1142121556,1,0,1,1,1,1,'','How I can create it ?','Have You  an Idea to create it on xharbour &amp; fw\n\n[img:2vqp50ek]http&#58;//www&#46;nonsolosport&#46;net/dafare&#46;gif[/img:2vqp50ek]\n\nRegards','',0,'CA==','2vqp50ek',1,0,'',49,0,0),(9180,2154,6,54,0,'201.137.90.144',1142128109,1,0,1,1,1,1,'','Re: Ayuda xbrowse','[quote=&quot;leandro&quot;:2inzp2s5]Amigos del foro tengo el siguiente problema-&gt;\n\nDefino un folder con tres pestañas, cada una contiene unicamente un xbrowse. Al hacer clic sobre cada pestaña se llena un array con datos de una consulta de mysq, luego se los asigno al array del xbrowse así:\n\naBrw:=array(resultado consulta sql)\noBrw:SetArray(aBrw)\noBrw:refresh()\n\nluego refresco el xbrowse....\n\nPero cuando hago esto no me refresca los titulos de las columnas ni los tamaños de las columnas, estas las defini al momento de REDEFINE el xbrowse en el dialogo.\n\nComo hago para actualizar esos datos en tiempo de ejecuccion? ó estoy haciendo algo incorrectamente?\n\nAlguien me puede ayudar?   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->[/quote:2inzp2s5]\n\nMi estimado, mi estimado,\n\nLo he resuelto, volviendo a redefinir los titulos y columnas, pues sería como volver (por no decir, rehacer) el xBrowse de nuevo.\n\nNo sería lo mas elegante, pero, me funciona, si alguien tiene una opción adicional, agradecería también la comparta.','',0,'gA==','2inzp2s5',1,0,'',54,0,0),(9181,2155,3,15,0,'203.73.98.36',1142130133,1,0,1,1,1,0,'','','Hello Silvio,\n\nVery nice. I hope xHarbour/FWH is able to offer it.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nor you can fix it for your TPlan class.\nI waiting for you. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRegards,\n\nRichard','',0,'gA==','tk83m0y5',1,0,'',15,0,0),(9182,2133,6,53,0,'201.154.37.144',1142130219,1,0,1,1,1,1,'','','Wilson:\n\nA ver si no he llegado demasiado tarde, utiliza los siguiente:\n\nCuando ya tengas definido el reporte incluyes esta línea\n\noReporte:bPostEnd := { || Totales(oReporte,oCab)}\n\nObserva que estamos asignando una función que se ejecuta despues de los totales \"normales\" del report, en esta función debes imprimir todo lo que tu quieras, no importa en que parte de la página haya terminado el reporte eso lo vamos a revisar un poco más adelante.\n\nFUNCTION Totales(oReporte,oCab)\noReporte:STARTLINE()\noReporte:SAY( 2,\"FKcc:\",,RPT_RIGHT)\noReporte:SAY( 3,TRANSFORM(oCab:HDR_FKC,\"@Z 999.9999\"),,RPT_RIGHT)\noReporte:SAY( 8,\"A N T I C I P O S\",2,RPT_RIGHT)\noReporte:SAY(14,\"RESUMEN DE GASTOS\",2,RPT_RIGHT)\noReporte:ENDLINE()\nOverFlow(oReporte)\nRETURN(.T.)\n\nApoyate de las funciones STARTLINE() y ENDLINE() para saltar de renglón, observa la función OverFlow(oReporte), ahí esta el truco !\n\n\nFUNCTION OverFlow(oReporte)\nIF oReporte:NeedNewPage()\n    oReporte:EndPage()\n    oReporte:StartPage()\nENDIF\nRETURN(.T.)\n\nSaludos, espero haber sido lo suficientemente explicito, si lo fui y la ayuda te sirvió, ya podemos terminar de descorchar la botella, jeje\nsi no es así, estoy a tus ordenes para enviarte un ejemplo mas completo\n\nArmando','',0,'gA==','w79b51y3',1,0,'',53,0,0),(9183,2133,6,179,0,'200.69.181.39',1142131117,1,0,1,1,1,1,'','','Armando por fin !!!!!!!!!\nalguien me escucha, gracias lo voy a probar, \ntengo un problema grave con la ultima version de fwh la 2.7\ny report y xHarbour (ultima version), me aparecen solo pantallas vacias en el preview\npero si el mismo codigo lo hago un solo programa (sacando del programa grande) si me funciona correctamente (el preview)\n\nque puede ser?????\ngracias x tu interes y si tienes ejemplos mas completos, gracias\n\na decir verdad pataleo mucho con las impresiones en windows\n\nSaludos','',0,'gA==','wlty5xr4',1,0,'',179,0,0),(9184,2141,3,53,0,'201.154.37.144',1142131299,1,0,1,1,1,1,'','','Willi:\n\nThe TSBrowse zip file include the help file in HTM format, pls see the DOC folder.\n\nRegards, Armando','',0,'gA==','1qozm93n',1,0,'',53,0,0),(9185,2156,3,160,0,'210.212.142.91',1142144718,1,0,1,1,1,0,'','TPrinter Class Problem : Reverse Mode Printing','Hello All,\n\nIs there any way to define background of text ? I want to print certain text in reverse mode : i.e. Black background and white foreground.\n\nIs it possible ?\n\nTIA\nMilan.','',0,'gA==','k76pkkpr',1,0,'',160,0,0),(9186,2157,16,2,0,'87.218.146.84',1142147632,1,0,1,1,1,1,'','New FWPPC build with DatePicker','There is a new FWPPC build with DatePicker support. FWPPC users may already download it:\n\n[url=http&#58;//imageshack&#46;us:3rn1ykpl][img:3rn1ykpl]http&#58;//img78&#46;imageshack&#46;us/img78/781/datepick5dw&#46;png[/img:3rn1ykpl][/url:3rn1ykpl]\n[code:3rn1ykpl]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, dDate &#58;= Date&#40;&#41;\n   \n   DEFINE WINDOW oWnd TITLE &quot;DatePicker&quot;\n   \n   @ 2, 2 DTPICKER dDate OF oWnd\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n[/code:3rn1ykpl]','',0,'GIA=','3rn1ykpl',1,0,'',2,0,0),(9187,2143,4,2,0,'87.218.146.84',1142147754,1,0,1,1,1,1,'','','Pawel,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2157\">http://fivetechsoft.com/forums/viewtopic.php?t=2157</a><!-- m --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GIA=','lw08ltcb',1,0,'',2,0,0),(9188,2158,4,2,0,'87.218.146.84',1142147801,1,0,1,1,1,1,'','New FWPPC with DatePicker','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2157\">http://fivetechsoft.com/forums/viewtopic.php?t=2157</a><!-- m -->','',0,'GIA=','25pgk5xq',1,0,'',2,0,0),(9189,2159,7,2,0,'87.218.146.84',1142147832,1,0,1,1,1,1,'','Nuevo FWPPC con DatePicker','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2157\">http://fivetechsoft.com/forums/viewtopic.php?t=2157</a><!-- m -->','',0,'GIA=','yvnfubc2',1,0,'',2,0,0),(9190,2098,7,2,0,'87.218.146.84',1142148801,1,0,1,1,1,1,'','','Jose Luis,\n\nFunciona, lo que ocurre es que si se muestra un mensaje, entonces no se completa la secuencia de cambio de opción. Este ejemplo funciona, pero te muestra la opción anterior, no la nueva, por la misma razón.\n[code:p0a78vrx]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n   \n   DEFINE WINDOW oWnd TITLE &quot;TabControl&quot;\n   \n   @ 2, 2 TABCONTROL oTabs PROMPTS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      OPTION 2 ACTION oWnd&#58;Say&#40; 10, 4, oTabs&#58;nOption &#41; ;\n      SIZE 205, 80 OF oWnd\n\n   #define GWL_STYLE        &#40;-16&#41; \n   #define TCS_BUTTONS     0x0100\n\n   SetWindowLong&#40; oTabs&#58;hWnd, GWL_STYLE,; \n                  nOr&#40; GetWindowLong&#40; oTabs&#58;hWnd, GWL_STYLE &#41;, TCS_BUTTONS &#41; &#41; \n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n[/code:p0a78vrx]\nLa solución es modificar la clase para que se autoenvie un mensaje con PostMessage().','',0,'AIA=','p0a78vrx',1,0,'',2,0,0),(9191,2098,7,2,0,'87.218.146.84',1142149232,1,0,1,1,1,1,'','','Jose Luis,\n\nSolucionado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> y publicado un nuevo build.','',0,'AIA=','1cpdc51h',1,0,'',2,0,0),(9192,2130,3,2,0,'87.218.146.84',1142149556,1,0,1,1,1,1,'','','Ehab,\n\nPlease start new threads for new questions.\n\nHave you #include \"FiveWin.ch\" at the beginning ?\n\nVariables values may be public and they keep the values. A dialog (modal) ends when it is closed.','',0,'AIA=','30abzvrn',1,0,'',2,0,0),(9193,2155,3,2,0,'87.218.146.84',1142149723,1,0,1,1,1,1,'','','Silvio,\n\nYou can create a user defined control that looks like that. \n\nAs far as I remember, Otto (WinHotel) <!-- e --><a href=\"mailto:datron@aon.at\">datron@aon.at</a><!-- e --> has developed a similar control.','',0,'AIA=','m7ac7tw6',1,0,'',2,0,0),(9194,2156,3,2,0,'87.218.146.84',1142150053,1,0,1,1,1,1,'','','Milan,\n\nPlease review samples\\report\\rep22.prg','',0,'AIA=','1rbx775p',1,0,'',2,0,0),(9195,2160,3,160,0,'210.212.142.91',1142150447,1,0,1,1,1,0,'','How can I browse Memo field using Std. TWBrowse ?','Hello,\n\nI want to browse a memo field in multi-line mode using standard TWBrowse. Is it possible ? If so how ?\n\nTIA\nMilan.','',0,'AIA=','3u6y73uj',1,0,'',160,0,0),(9196,2161,4,379,0,'59.167.110.22',1142153110,1,0,1,1,1,0,'','Comms','Is comms built in to the FWFPPC system or can I use any comms library that I currently use with Fivewin?\n\nI need to be able to use xModem Transfer.','',0,'AIA=','10vjjv8z',1,0,'',379,0,0),(9197,2149,1,258,0,'80.200.97.48',1142157556,1,0,1,1,1,0,'','Thanks a lot','Thans \nPhilippe Jacquet','',0,'AIA=','30w2mojo',1,0,'',258,0,0),(9198,2153,3,63,0,'80.37.102.128',1142160050,1,0,1,1,1,0,'','','Enrico: \nYour sample works Ok.  The reason that mine didn\'t was that the Bmp covered the whole of my dialog from border to border.  I just had to put:  ::oImg:bMMoved := {||CursorHand()}  etc...  and the problem got fixed.  It is working fine now.  Thanks again,\nRafael','',0,'AIA=','1hmev1fz',1,0,'',63,0,0),(9199,2150,3,382,0,'80.140.223.8',1142160807,1,0,1,1,1,1,'','Re: Extra spacing in GET  on Window!','that\'s my solution, see oGet:bGotFocus - &gt; TRIM(oGet:oGet:Buffer)\n\n[code:rdd66p9k]\noGet     &#58;= TGet&#40;&#41;&#58;ReDefine&#40;nId,bBlock,self,,xPicture,,,,,,cMessage,&#46;F&#46;,,,&#46;F&#46;,&#46;F&#46;,,,,&#41;\noGet&#58;bGotFocus  &#58;= &#123;||oGet&#58;SetSel&#40;0,0&#41;,oGet&#58;SetColor&#40;RGB_RED,RGB_YELLOW&#41;,SetWindowText&#40;oGet&#58;hWnd,TRIM&#40;oGet&#58;oGet&#58;Buffer&#41;,__KEYBOARD&#40;CHR&#40;VK_END&#41;&#41;&#41;&#125;\noGet&#58;bLostFocus &#58;= &#123;||oGet&#58;SetColor&#40;RGB_BLACK,RGB_WHITE&#41;&#125;\n\n[/code:rdd66p9k]','',0,'AIA=','rdd66p9k',1,0,'',382,0,0),(9200,2161,4,2,0,'87.218.146.189',1142171007,1,0,1,1,1,1,'','','FWPPC provides comm support, though xmodem is a specialized protocol that is not directly supported by Windows Mobile OS. \n\nYou can\'t use your PC libraries, unless you get a version built for ARM compatible processors.','',0,'AIA=','zb89jrpl',1,0,'',2,0,0),(9201,2150,3,26,0,'84.255.245.173',1142175167,1,0,1,1,1,1,'','','Hello!\n\nThanks for your reply - unfortunately this does not solve the problem!\n\nRoman','',0,'AIA=','uvx6uudu',1,0,'',26,0,0),(9202,2155,3,49,0,'87.6.178.190',1142176179,1,0,1,1,1,1,'','','Richard &amp; Antonio,\nI have a similar Tgant 32 bit  ( it called Tplan) but it is also in beta test\nI have problem with a method : it must refill the rectangule of color of the brush I select but it not run ok\n\nDear Antonio If you can help me to finish this class , I give you many thanks\n\nRegards','',0,'AIA=','31z0xzae',1,0,'',49,0,0),(9203,2130,3,148,0,'196.205.177.107',1142181972,1,0,1,1,1,0,'','','I faced that error after including in my sub-programs after including :\n#include \"FiveWin.ch\"\n#include \"colors.ch\"\n#include \"Folder.ch\"\nlistcust() is the function of the sub-program called from the main program as action listcust()\n\n\nIF EXIST sitex.res echo sitex.res &gt;&gt; b32.bc\n	e:\\compiler\\cpp_lang\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_SELCOLOR\' referenced from E:\\PROGRAMS\\CLIPPER\\FWH\\SITEX\\SITEX2\\OBJ\\CUST.OBJ\nWarning: Public symbol \'_HB_FUN_LISTCUST\' defined in both module E:\\PROGRAMS\\CLIPPER\\FWH\\SITEX\\SITEX2\\OBJ\\SITEX.OBJ and E:\\PROGRAMS\\CLIPPER\\FWH\\SITEX\\SITEX2\\OBJ\\CUST.OBJ\n\n** error 2 ** deleting sitex.exe','',0,'AIA=','3r7kb00b',1,0,'',148,0,0),(9204,2160,3,303,0,'68.7.28.54',1142190408,1,0,1,1,1,0,'','','Put the text into an array and turn off the lines. I haven\'t done it, but it should work.','',0,'AIA=','3o61xjfc',1,0,'',303,0,0),(9205,2155,3,303,0,'68.7.28.54',1142190539,1,0,1,1,1,0,'','','I am very interested in such a control too.\n\nJames','',0,'AIA=','2xsc240a',1,0,'',303,0,0),(9206,2140,6,75,0,'83.52.14.112',1142198877,1,0,1,1,1,0,'','','Gracias Rene, \n  \n  con esto he conseguido la dirección en formato numérico pero el ejemplo testsmtp sigue sin enviar correo alguno. Me pone connectando, dice que conecta pero no se recibe nada.\n\n  No se si habrá alguna clase que esté más actualizada y funcional. \n  \n  Lo que pretendo es que las clasificaciones mesuales individuales se generen en ficheros pdf individuales para cada alumno y que se las mande a cada alumno vía mail.\n\nSaludos.','',0,'AIA=','2tog5xh8',1,0,'',75,0,0),(9207,2139,6,75,0,'83.52.14.112',1142198985,1,0,1,1,1,0,'','','Y ¿cómo se hace so Oskar?. Tengo instalado el openoffice. Pero no se más.\n\nSaludos.','',0,'AIA=','1iu54920',1,0,'',75,0,0),(9208,2137,3,69,0,'65.92.155.204',1142203666,1,0,1,1,1,0,'','','Thanks Enrico','',0,'AIA=','1hocj1hg',1,0,'',69,0,0),(9209,2162,6,77,0,'80.224.163.36',1142204590,1,0,1,1,1,0,'','ERROR AL COMPILAR TWBROWSE17','hOLA a todos, Al compilar la clase twbrowse17 de hernan, con Harbour build 0.44 me da el siguiente error en el fichero wbrwline.c\nalguien podría decirme que significa o la solución para poder compilarla.\n\nsaludos.\nManolo\n\nError que me da:\n\nWarning W8065 c:\\factu32\\twbrowse17\\source\\wbrwline.c 1183: Call to function \'hb_dynsymSymbol\' with no prototype in function HB_FUN_WBRWPANE\nWarning W8065 c:\\factu32\\twbrowse17\\source\\wbrwline.c 1183: Call to function \'hb_dynsymSymbol\' with no prototype in function HB_FUN_WBRWPANE\n\nNota: lo he compilado con verce 4.3.\n\nsaludos.','',0,'AIA=','2spv3psk',1,0,'',77,0,0),(9210,2155,3,49,0,'82.59.141.120',1142205294,1,0,1,1,1,1,'','','Dear James,\nI have a class \nit is similar to gant class but it now not run ok because there is a wrong method \nthe name of this method is FillRect\nthis func must create a rectangule and must refill this rectangule of the color I selected \nexample :\n[code:2470hokn]\n&#46;&#46;&#46;&#46;&#46;\nDefine Brush oPenR COLOR CLR_HBLUE\n\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\noGraficos&#58;FILLRECT&#40; nLinea+nVertic+4, nColumnaInicio+nHoriz2, nLinea+nVertic+14, nColumnaFinal+nHoriz2, oPenR ,recno&#40;&#41;&#41;\n[/code:2470hokn]\n\noGraficos is the Object of Tplan class\n\n\n\nthe method Fillrect  MUst create a rectangule and refill this rectangule :\n\n\n  [code:2470hokn]\n\nMETHOD Fillrect&#40; nTop, nLeft, nBottom, nRight, oPen ,nRecord&#41; CLASS TPlan\n\n   local hPen &#58;= if&#40; oPen = nil, 0, oPen&#58;hPen &#41;\n   Local nX &#58;= oPen&#58;nWidth / 2\n   IIF&#40; nRecord == nil , nRecord &#58;= 0  , &#41;\n   &#58;&#58;GetDC&#40;&#41;\n   Rectangle&#40; &#58;&#58;hDC, nTop, nLeft, nBottom, nRight, hPen &#41;\n  * MoveTo&#40; &#58;&#58;hDC, nLeft, nTop &#41;\n  * LineTo&#40; &#58;&#58;hDC, nRight, nBottom, hPen &#41;\n\n FillRect&#40; &#58;&#58;hDC, &#123; nTop + 2, nLeft + 2, nBottom, nRight &#125;, hpen&#41;\n\n   &#58;&#58;ReleaseDC&#40;&#41;\n   if nRecord &gt; 0\n      aadd&#40;&#58;&#58;aItems,&#123;nTop-nX,nLeft-nX,nBottom+nX,nRight+nX,nRecord&#125;&#41;\n   endif\n\n\n\n\n\n[/code:2470hokn]\n\n\n\nall run ok but it not refill the rectangule\n\nHow I can make it ?\n\n\nthanks','',0,'AIA=','2470hokn',1,0,'',49,0,0),(9211,2155,3,303,0,'68.7.28.54',1142207670,1,0,1,1,1,0,'','','Silvo,\n\nIt looks like you are passing hPen, instead of hBrush. I think you need to define a brush. From the docs:\n\nFillRect( &lt;hDC&gt;, &lt;aRect&gt;, &lt;hBrush&gt; ) \n\nJames','',0,'AIA=','3jeeot3s',1,0,'',303,0,0),(9212,2141,3,473,0,'213.119.222.114',1142208837,1,0,1,1,1,0,'','TS Browse documentation','Thanks Armando,\n\nI know that. But I find it incomplete.\n\nI was looking for a more complete manual.\n\nIt is a great tool and I like it but a description of all parameters will give a graet help.\n\nYhanks\n\nWilly','',0,'AIA=','321yx3rm',1,0,'',473,0,0),(9213,2163,6,439,0,'201.221.42.97',1142216098,1,0,1,1,1,0,'','Usar Make con aplicaciones que usan una DLL con recursos','Hola,\n\nEstoy usando el archivo make que aparece en el directorio makes con las modificaciones que he visto en un topic del foro y me ha funcionado bien con las aplicaciones que usan un archivo rc <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nPero cuando compilo una aplicacion que usa una dll con recursos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , me pasa que los recursos no aparecen <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\n\nQue se debe modificar en el archivo .RMK para que al compilar me cargue de la dll los recursos <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> ?\n\nGracias desde ya por su ayuda.','',0,'AIA=','1ilet7et',1,0,'',439,0,0),(9214,2133,6,179,0,'200.69.181.39',1142218104,1,0,1,1,1,1,'','','Armando, funciono perfecto, gracias y Saludos','',0,'AIA=','3275tk07',1,0,'',179,0,0),(9215,2133,6,53,0,'201.135.241.208',1142218449,1,0,1,1,1,1,'','','Wilson:\n\nMe alegra haber ayudado.\n\nAhora sí ya podemos terminar de descorchar la botella, <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos','',0,'AIA=','317jcswp',1,0,'',53,0,0),(9216,2158,4,95,0,'201.133.135.111',1142218666,1,0,1,1,1,0,'','','Hello Antonio\n\nI make a program from your code, and run fine.\n\nwhy dont jump automaticaly to the month when the day is full or jump to the year when the month if full ?\nIt jump only with the navigation keys.\n\nRegards &amp; good work\nOsvaldo Ramirez','',0,'AIA=','3gjqo735',1,0,'',95,0,0),(9217,2163,6,54,0,'201.137.90.144',1142219060,1,0,1,1,1,1,'','Re: Usar Make con aplicaciones que usan una DLL con recursos','[quote=&quot;jose_murugosa&quot;:234l7mbf]Hola,\n\nEstoy usando el archivo make que aparece en el directorio makes con las modificaciones que he visto en un topic del foro y me ha funcionado bien con las aplicaciones que usan un archivo rc <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nPero cuando compilo una aplicacion que usa una dll con recursos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , me pasa que los recursos no aparecen <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\n\nQue se debe modificar en el archivo .RMK para que al compilar me cargue de la dll los recursos <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> ?\n\nGracias desde ya por su ayuda.[/quote:234l7mbf]\n\nPodrias decirnos si cargas la DLL al inicio de tu aplicación?\nY si se encuentra al DLL en el path de la aplicación.','',0,'gA==','234l7mbf',1,0,'',54,0,0),(9218,2139,6,54,0,'201.137.90.144',1142219492,1,0,1,1,1,1,'','','[quote=&quot;Verhoven&quot;:7ggtleo1]Y ¿cómo se hace so Oskar?. Tengo instalado el openoffice. Pero no se más.\n\nSaludos.[/quote:7ggtleo1]\n\nVerhoven,\n\n<!-- m --><a class=\"postlink\" href=\"http://oskar.sytes.net\">http://oskar.sytes.net</a><!-- m -->\n\nAhi tienes la clase para generar PDF.\n\nTe contesta oskar directamente ahí, te sugiero darte de alta.','',0,'gA==','7ggtleo1',1,0,'',54,0,0),(9219,2133,6,179,0,'200.69.181.39',1142221226,1,0,1,1,1,1,'','','Armando, gracias x todo, ahora tengo otro problema y este si no tiene ni pies ni cabeza\n\nEn un programa de Fwh que funciona perfecto con fwh 2.4 y harbour de aquella epoca\n\nle he logrado compilar con Fwh27 (Me he asegurado de que los includes esten bien aountados, las librerias, etc)\n\ny tengo le problema que no muestra el preview del report con fwh27, pero ahi lo raro si saco este codigo (funcion de report) fuera del programa y le hago un ejecutable y lo llamo desde el programa grande si funciona el preview, he probado de todo, no se que hacer, lo mismo me esta pasando en un programa que estoy escribiendo desde cero nunca sale el preview\nque podra ser ??\n\n\nSaludos y gracias','',0,'gA==','1u76l7r1',1,0,'',179,0,0),(9220,2141,3,382,0,'80.140.232.13',1142232622,1,0,1,1,1,1,'','Re: TS Browse documentation','TsBrowse - is it part of FWH ? I can\'t find it.','',0,'gA==','21qxewo9',1,0,'',382,0,0),(9221,2164,4,13,0,'213.76.252.200',1142233222,1,0,1,1,1,0,'','Window, dialog and focus','Antonio,\n\nI create sample window and dialog code. When standard resource dialog is show and user click in window over dialog area, dialog is hide background. I test this dialog in previous version FWPPC (before 2006.02.24 build) and when dialog is shows, active area is only dialog area. \n\nRegards\nPawel\n\n[code:3kl0dqvu]\n\n// testfocs&#46;prg\n#Include \'FwCe&#46;Ch\'\n\nFunction TestFocus &#40;&#41;\n\n   Local oWnd &#58;= Nil\n\n   Set Date German\n\n   Define Window oWnd Title \'Test Focus\'\n   @ 200, 178 Button \'OK\' Size 60, 20 Pixel Action IIf &#40;DialogSample &#40;&#41;, Nil, oWnd &#58; End &#40;&#41;&#41;\n   // click in window over dialog area\n   Activate Window oWnd On Init EmptyMenu &#40;oWnd &#58; hWnd&#41;\n\nReturn &#46;T&#46;\n\nFunction DialogSample &#40;&#41;\n\n   Local oDlg &#58;= Nil\n   Local dDate &#58;= Date &#40;&#41;\n   Local cTime &#58;= Left &#40;Time &#40;&#41;, 5&#41;\n   Local lRet &#58;= &#46;F&#46;\n\n   Define Dialog oDlg Resource \'DateTime\'\n   ReDefine Get dDate Id 1003 Of oDlg Picture \'@D\' ReadOnly\n   ReDefine Get cTime Id 1004 Of oDlg ReadOnly\n   ReDefine Button Id 1005 Of oDlg Action &#40;lRet &#58;= &#46;T&#46;, oDlg &#58; End &#40;&#41;&#41;\n   ReDefine Button Id 1006 Of oDlg Action &#40;lRet &#58;= &#46;F&#46;, oDlg &#58; End &#40;&#41;&#41;\n   Activate Dialog oDlg Centered\n\nReturn lRet\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n#include &lt;uniqueid&#46;h&gt;\n#include &lt;objbase&#46;h&gt;\n\nHB_FUNC &#40;EMPTYMENU&#41;\n&#123;\n   SHINITDLGINFO shidi;\n   HWND hWnd = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n   SHMENUBARINFO mbi;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = hWnd;\n   shidi&#46;dwFlags = SHIDIF_DONEBUTTON;\n   SHInitDialog &#40;&amp;shidi&#41;;\n\n   memset&#40;&amp;mbi, 0, sizeof &#40;SHMENUBARINFO&#41;&#41;;\n   mbi&#46;cbSize = sizeof &#40;SHMENUBARINFO&#41;;\n   mbi&#46;hwndParent = hWnd;\n   mbi&#46;dwFlags = SHCMBF_EMPTYBAR;\n   SHCreateMenuBar &#40;&amp;mbi&#41;;\n\n&#125;\n\n#pragma ENDDUMP\n\n// testfocs&#46;rc\n#include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n#include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n\nDateTime DIALOG DISCARDABLE 0, 0, 126, 54\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;Date, time&quot;\nFONT 8, &quot;MS Shell Dlg&quot;\nBEGIN\n  CONTROL &quot;System date&#58;&quot;, 1001, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 2, 8, 60, 12\n  CONTROL &quot;System time&#58;&quot;, 1002, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 2, 21, 60, 12\n  CONTROL &quot;&quot;, 1003, &quot;Edit&quot;, ES_READONLY|WS_BORDER|WS_TABSTOP, 64, 8, 50, 12\n  CONTROL &quot;&quot;, 1004, &quot;Edit&quot;, ES_READONLY|WS_BORDER|WS_TABSTOP, 64, 21, 50, 12\n  CONTROL &quot;OK&quot;, 1005, &quot;Button&quot;, WS_TABSTOP, 56, 38, 32, 12\n  CONTROL &quot;Cancel&quot;, 1006, &quot;Button&quot;, WS_TABSTOP, 90, 38, 32, 12\nEND \n\n[/code:3kl0dqvu]','',0,'AIA=','3kl0dqvu',1,0,'',13,0,0),(9222,2165,4,13,0,'213.76.252.200',1142235955,1,0,1,1,1,0,'','Window close','Antonio,\n\nThis is simple two window app code. When button \'&gt;&gt;\' in main window is pressed next window is create, but when press \'OK\' button in next window, which will close window, next window stay visible. Second press \'OK\' button destroy window. Use \'OK\' button in right upper window corner move window in background mode.\n\nRegards\nPawel\n\n[code:2gg6g3h0]\n#Include \'FwCe&#46;Ch\'\n\nFunction TestClose &#40;&#41;\n\n   Local oWnd &#58;= Nil\n\n   Define Window oWnd Title \'Test Close\'\n   @ 100,  10 Say \'This is main window\' Size 150, 15 Pixel\n   @ 200, 178 Button \'&gt;&gt;\' Size 60, 20 Pixel Action IIf &#40;NextWindow &#40;&#41;, Nil, oWnd &#58; End &#40;&#41;&#41;\n   Activate Window oWnd On Init EmptyMenu &#40;oWnd &#58; hWnd&#41;\n\nReturn &#46;T&#46;\n\nFunction NextWindow &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local lRet &#58;= &#46;F&#46;\n\n   Define Window oWnd Title \'Next Window\'\n   @ 100,  10 Say \'This is next window\' Size 150, 15 Pixel\n   @ 200, 178 Button \'OK\' Size 60, 20 Pixel Action &#40;lRet &#58;= &#46;T&#46;, oWnd &#58; End &#40;&#41;&#41;\n   Activate Window oWnd On Init EmptyMenu &#40;oWnd &#58; hWnd&#41;\n\nReturn lRet\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n#include &lt;uniqueid&#46;h&gt;\n#include &lt;objbase&#46;h&gt;\n\nHB_FUNC &#40;EMPTYMENU&#41;\n&#123;\n   SHINITDLGINFO shidi;\n   HWND hWnd = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n   SHMENUBARINFO mbi;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = hWnd;\n   shidi&#46;dwFlags = SHIDIF_DONEBUTTON;\n   SHInitDialog &#40;&amp;shidi&#41;;\n\n   memset&#40;&amp;mbi, 0, sizeof &#40;SHMENUBARINFO&#41;&#41;;\n   mbi&#46;cbSize = sizeof &#40;SHMENUBARINFO&#41;;\n   mbi&#46;hwndParent = hWnd;\n   mbi&#46;dwFlags = SHCMBF_EMPTYBAR;\n   SHCreateMenuBar &#40;&amp;mbi&#41;;\n\n&#125;\n\n#pragma ENDDUMP\n[/code:2gg6g3h0]','',0,'AIA=','2gg6g3h0',1,0,'',13,0,0),(9223,2141,3,6,0,'87.10.2.162',1142236862,1,0,1,1,1,1,'','Re: TS Browse documentation','No, it isn\'t.\n\nEMG','',0,'AIA=','ftcsd29m',1,0,'',6,0,0),(9224,2158,4,2,0,'87.218.146.189',1142239283,1,0,1,1,1,1,'','','Osvaldo,\n\nIts the standard control behavior.','',0,'AIA=','1qhn3tqz',1,0,'',2,0,0),(9225,2164,4,2,0,'87.218.146.189',1142239392,1,0,1,1,1,1,'','','Pawel,\n\nYou may use the DIALOG clause OF :\n\nDEFINE DIALOG oDlg ... OF oWnd','',0,'AIA=','1ab3uiod',1,0,'',2,0,0),(9226,2069,3,130,0,'141.51.32.24',1142240072,1,0,1,1,1,0,'','','Jose,\n\nYou replace ParseString with StrToken that comes from fivewin\n\nFUNCTION PARSESTR ( &lt;nOccurrence&gt;, &lt;cSepChar&gt;, &lt;cText&gt; )\nRETURN (StrToken( &lt;cText&gt;, &lt;nOccurrence&gt; ,&lt;cSepChar&gt; ) )\n\nStefan','',0,'AIA=','3esax5az',1,0,'',130,0,0),(9227,2165,4,2,0,'87.218.146.189',1142242344,1,0,1,1,1,1,'','','Pawel,\n\nThe button in the second window is somehow firing again the main window button action. It can be checked doing this:\n[code:1763ms61]\n   @ 200, 178 Button oBtn PROMPT \'&gt;&gt;\' Size 60, 20 Pixel ;\n      Action &#40; oBtn&#58;bAction &#58;= nil, NextWindow&#40;&#41; &#41;\n[/code:1763ms61]\nWe are searching what may be the reason for this curious behavior. Thanks.','',0,'AIA=','1763ms61',1,0,'',2,0,0),(9228,2150,3,26,0,'84.255.245.173',1142244317,1,0,1,1,1,1,'','','BTW, here is how it looks in Delphi 7:\n\n[img:1ef1xob8]http&#58;//www&#46;astral-it&#46;com/img/tgw_d7&#46;png[/img:1ef1xob8]\n\nBest regards, Roman','',0,'CA==','1ef1xob8',1,0,'',26,0,0),(9229,2165,4,2,0,'87.218.146.189',1142245013,1,0,1,1,1,1,'','','Pawel,\n\nFixed. It was a bug in Class TButton. Please download FWPPC again.\n\nThanks for your feedback,','',0,'CA==','31heowtv',1,0,'',2,0,0),(9230,2150,3,2,0,'87.218.146.189',1142245236,1,0,1,1,1,1,'','','Roman,\n\nIts a curious behavior, as such extra space is not writeable. \n\nIf you try to place the cursor there and type, you can\'t.\n\nLets see if we find where that left space comes from.\n\nThanks,','',0,'CA==','27outl82',1,0,'',2,0,0),(9231,2163,6,2,0,'87.218.146.189',1142246521,1,0,1,1,1,1,'','','José,\n\nPuedes mantener los recursos en un fichero RC y desde el make construir la DLL llamando a fwh\\dll\\rc2dll32.bat','',0,'CA==','201qr20s',1,0,'',2,0,0),(9232,2139,6,75,0,'217.125.188.66',1142248873,1,0,1,1,1,0,'','','Me dice que no se puede mostrar la página.\n\nSaludos.','',0,'CA==','3h24ptb0',1,0,'',75,0,0),(9233,2163,6,439,0,'201.221.41.132',1142249395,1,0,1,1,1,0,'','Resuelto','Gracias por sus consejos, ahora está resuelto.\n\nUn abrazo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','7tsjyfea',1,0,'',439,0,0),(9234,2166,7,262,0,'212.89.4.46',1142250169,1,0,1,1,1,1,'','Problema con cierre de dialogos','Antonio en esta situacion :\n\nventana-&gt;dialogo-&gt;odlg:end() \nfunciona perfecto , pero si pongo \n\nventana-&gt;dialogo-&gt;dialogo -&gt; odlg:end() \ndebo de dar dos veces al boton o al escape para que se cierre la ventana .\n\nEsto ocurre desde el ultimo build .','',0,'CA==','12z876lr',1,0,'',262,0,0),(9235,2155,3,49,0,'213.82.134.66',1142251352,1,0,1,1,1,1,'','','TO ALL, ANTONIO AND RICHARD\n\n\nI THINK I CAN PUBBLISH REL.100 OF TPLAN CLASS  32 BIT\n\nI HAVE MADE ONLY A SIMPLY TEST PROGRAM BUT IT NOW RUN OK\n\nBUT YOU CAN CREATE WITH ME ANOTHERS TEST PROGRAM\nIT IS EASY TO CREATE A PROGRAM  \n\nTOMORROW I LOAD THE CLASS AT hYPERLOAD AND INSERT THE MESSAGE HERE .\n\nREGARDS\n\nFALCONI SILVIO','',0,'CA==','2do48raz',1,0,'',49,0,0),(9236,2166,7,2,0,'87.218.146.189',1142251489,1,0,1,1,1,1,'','','Jose Luis,\n\nEste ejemplo funciona correctamente con el build que acabamos de publicar esta mañana:\n[code:y5yiebej]\n#include &quot;FWCE&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot; \n   \n   @ 1, 1 BUTTON &quot;Next&quot; ACTION Dialog1&#40; oWnd &#41; ;\n      SIZE 60, 30\n   \n   ACTIVATE WINDOW oWnd\n\nreturn nil \n\nfunction Dialog1&#40; oWnd &#41; \n\n   local oDlg\n\n   DEFINE DIALOG oDlg TITLE \'Second\' OF oWnd ;\n      SIZE 200, 100\n\n   @ 1, 1 BUTTON &quot;Next&quot; ACTION Dialog2&#40; oDlg &#41; ;\n      SIZE 30, 15\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil\n\nfunction Dialog2&#40; oDlg1 &#41; \n\n   local oDlg\n\n   DEFINE DIALOG oDlg TITLE \'Third\' OF oDlg1 ;\n      SIZE 150, 70\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil\n[/code:y5yiebej]','',0,'AIA=','y5yiebej',1,0,'',2,0,0),(9237,2167,3,125,0,'213.140.6.105',1142252773,1,0,1,1,1,0,'','How to show a Folder','Hi to all,\nI need to show (like explorer does ) a folder to the customer where i placed same files.\n\nExample: Folder  to show is C:\\MYDATA\n\ntks\n\nPiscicelli/Zingoni','',0,'AIA=','yyit7g99',1,0,'',125,0,0),(9238,2132,6,486,0,'200.184.85.3',1142255242,1,0,1,1,1,0,'','','Antonio,\n\nIt could be in a simpler way then, in a program test1.exe I would put a die in the memory in a fixed place and with other test2.exe I would diffuse in this place, he would give right also for me.\n\nClemerson','',0,'AIA=','16bukxzm',1,0,'',486,0,0),(9239,2166,7,262,0,'83.97.168.140',1142255351,1,0,1,1,1,1,'','','Perdon , no vi este ultimo build , yo estaba con el los folders','',0,'AIA=','8d7zrxpf',1,0,'',262,0,0),(9240,2144,7,449,0,'212.64.224.244',1142256815,1,0,1,1,1,0,'','','Antonio,\n\nCojonudo. Para cuando prevees via recursos ? (como apretamos, eh  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> )\n\n\nSaludos.\nC.','',0,'AIA=','2tgr3k46',1,0,'',449,0,0),(9241,2106,6,97,0,'200.23.84.231',1142257945,1,0,1,1,1,1,'','Gracias.','Gracias Inge. Antonio, cada dia se aprende algo , o nos corrige viejos errores.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'AIA=','2ky7lc3l',1,0,'',97,0,0),(9242,2132,6,2,0,'87.218.146.120',1142258097,1,0,1,1,1,1,'','','Clemerson,\n\nPlease elaborate what do you need this for. Thanks,','',0,'AIA=','1thqj9js',1,0,'',2,0,0),(9243,2168,3,299,0,'69.65.95.131',1142258781,1,0,1,0,1,0,'','Mouse looses control over a tprinter():new() dialog','Hi,\n\nI\'ve been having this recurring problem.  When entering into a tprinter dialog from user, the mouse looses control.  Only the keyboard works until either &lt;ok&gt; or &lt;cancel&gt; is selected (via the keyboard).\n\nHere is the code being executed:\n[code:o9m5g2xv]\n	oPrn &#58;= tPrinter&#40;&#41;&#58;New&#40; &quot;Scanned Image Print&quot;, &#46;t&#46;, &#46;f&#46;, iif&#40; nPrinter &gt; 0, aPrinters&#91; nPrinter &#93;, &#41;, &#46;t&#46; &#41;\n	IF empty&#40;oPrn&#58;hDC&#41;\n		RETURN NIL\n	ENDIF\n\n	nWidth	&#58;= int&#40; oPrn&#58;nhorzres&#40;&#41; / oImg&#58;nwidth&#40;&#41; &#41;\n	nHeight	&#58;= int&#40; oPrn&#58;nvertres&#40;&#41; / oImg&#58;nheight&#40;&#41; &#41;\n	nTotal	&#58;= min&#40; nWidth, nheight &#41;\n\n	if MsgGet&#40;&quot;Printer Output Size&quot;,&quot;Maximum Zoom Level&quot;, @nTotal&#41;\n		oPrn&#58;StartPage&#40;&#41;\n		oPrn&#58;sayimage&#40; 2, 2, oImg, oImg&#58;nwidth * ntotal, oImg&#58;nheight * ntotal &#41;\n		oPrn&#58;EndPage&#40;&#41;\n	Endif\n	oPrn&#58;End&#40;&#41;\n[/code:o9m5g2xv]\n\nHere the mouse freezes while in the printer dialog screen, that\'s the very first line of code above.  So if the user wants to change the number of copies, has to tab to the appropiate place.   \n\nI\'m using fwh 2.7 + xharb 0.99.6 + borland 5.5.\n\nHas this been observed by anyone else?  Any solutions?\n\nThank you,\n\n\nReinaldo.','',0,'AIA=','o9m5g2xv',1,0,'',299,0,0),(9244,2167,3,303,0,'68.7.28.54',1142259291,1,0,1,1,1,0,'','','If you just want the user to select a file I would use cGetFile().\n\ncGetFile( &lt;cFileMask&gt;, &lt;cTitle&gt;, [&lt;nDefaultMask&gt;], [&lt;cInitialDirectory&gt;], [lSave], [lLongNames], [nFlags] )\n\nJames','',0,'','3f5oxpyx',1,0,'',303,0,0),(9246,2141,3,303,0,'68.7.28.54',1142259414,1,0,1,1,1,0,'','','Frank,\n\nYou can get a copy of TSBrowse on my website.\n\nJames','',0,'','13w46atz',1,0,'',303,0,0),(9247,2167,3,125,0,'213.140.6.105',1142259530,1,0,1,1,1,0,'','','No, i need only to show the files as IEXPLORER DOES\n\nTks','',0,'','105b62fn',1,0,'',125,0,0),(9248,2169,20,125,0,'213.140.6.105',1142259926,1,0,1,1,1,0,'','hide() and button','Salve,\ncome si fa a sapere se un button e\' hide?\n\nio ho fatto obtn:hide()\nesiste qualcosa del genere: \n if obtn:lhde()  \n  msgbox(\"e\' hide\")\nelse\n msgbox(\"non e\' hide\")\nendif\n\nGrazie\nPiscicelli/Zingoni','',0,'','3qcvdme2',1,0,'',125,0,0),(9249,2170,3,313,0,'82.88.53.27',1142260818,1,0,1,1,1,0,'','Read XML page','How can I read the content of an XML file?\nThe file that I can read is on-line, I have the URL and I must read the value of a tag. But if it\'s not possible read only a value I will happy to read all page and after I will extract it.\nThanks for all suggest...\nBest Regards','',0,'','22warknc',1,0,'',313,0,0),(9250,2171,3,217,0,'201.27.213.206',1142261153,1,0,1,1,1,0,'','Group error when ALT is pressed','Antonio,\n\nUsing themes, when we redefine a group and press alt key\nthe content of group was erased. If we use transparent clause it work fine, then we change group.prg lTransparent default to .T. \nI think it is the same old folder/button problem...\n\nRegards,\nMaurilio','',0,'','2169envz',1,0,'',217,0,0),(9251,2172,3,217,0,'201.27.213.206',1142261246,1,0,1,1,1,0,'','Focus problem with TGet class','Dear Antonio, \n\nWe detect a strange problem with gets when we have a sequence like  \nget1, get2, getN, pushbutton and getN have a valid/when condition or  \nwhen pushbutton depend of getN valid/when. For any cause that we couldn\'t  \ndetect pushbutton don\'t get the focus. We couldn\'t isolate a little  \nsituation when it occur but I detected that it occur only when we use   \nenter key to skip to next control. Using tab key the navigation by the  \ncontrols, validations and when is evaluated correctly.  \nI changed a bit the code from KeyChar method in window.prg to test if   \ntab OR enter was pressed to skip to next control as follow.  \nMy focus problems was solved and I hope the similar  \nproblem of another user too.  \n\n[code:1cw9ixnt]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWindow\n\n   local bKeyAction &#58;= SetKey&#40; nKey &#41;\n\n   if nKey == VK_TAB &#46;and&#46; &#58;&#58;oWnd != nil &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41;\n      &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n      return 0\n   endif\n\n   if &#40;nKey == VK_TAB &#46;or&#46; nKey == VK_RETURN&#41; &#46;and&#46; &#58;&#58;oWnd != nil // &lt;-- Here\n      &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n      return 0\n   endif\n&#40;&#46;&#46;&#46;&#41;\n[/code:1cw9ixnt]\n\nRegards,\nMaurilio','',0,'AIA=','1cw9ixnt',1,0,'',217,0,0),(9252,2167,3,303,0,'68.7.28.54',1142261327,1,0,1,1,1,0,'','','Piscicelli,\n\nI\'m not sure exactly what you want since Explorer can show files a number of different ways.\n\nYou can use the directory() function to get a list of files, then use a browse to browse the array.\n\nIf you want to show files as icons, take a look at TListView.\n\nJames','',0,'AIA=','1mdaj548',1,0,'',303,0,0),(9253,2173,6,396,0,'200.93.37.35',1142263921,1,0,1,1,1,1,'','Pestañas con FOLDER de 16 a 32','Srs. migre mis .dll de WS a .RC para pasarlos a 32, los abro con PellesC y todos se migraron bien, pero el FOLDER no me permite activar las pestañas solo muestra la primera, ya lo coloque en \"SysTabControl32\" y los DLG son CHILD y sin marco, lo use como .RES y .RC y nada, todo igual, si utilizo accesos rapidos ALT+letra me muestra alguna pestaña pero al cambiar a otra no vuelve a la anterior, pero nunca me deja cambiarme de pestaña haciendo CLICK, a ver si algun GURU de los tantos me da alguna idea de que revisar, elimine el FOLDER y lo cree de nuevo y aun nada, nose si seran los DLG pero los revise al derecho y al reves y no se que deba cambiar, HELP ME! GRACIAS de ANTEMANO...uso FWH 2.4+HARBOUR+XHARBOUR+VERCE 4.3  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','dg3xj7gl',1,0,'',396,0,0),(9254,2174,3,299,0,'69.65.95.131',1142264815,1,0,1,0,1,0,'','hiding the taskbar?','Hi,\n\nI\'d like to hide the taskbar while my app is being executed.  \n\nanyone?\n\nBest,\n\n\nReinaldo.','',0,'AIA=','22ze1r6o',1,0,'',299,0,0),(9255,2174,3,303,0,'68.7.28.54',1142265684,1,0,1,1,1,0,'','','[code:3o043ypq]&#91;code&#93;function task_bar_on&#40;ison&#41;\nlocal hwnd \n    hwnd= FindWndByClass&#40;&quot;Shell_TrayWnd&quot;, &quot;&quot;&#41;\n    If ison \n        ShowWindow&#40;hwnd,5&#41;\n    Else\n        ShowWindow&#40;hwnd,0&#41;\n    End If\nreturn&#40;NIL&#41;\n\nDLL32 Function ShowWindow&#40;hwnd as LONG, nCmdShow as LONG&#41; AS LONG ;\nPASCAL FROM &quot;ShowWindow&quot; Lib &quot;user32&#46;dll&quot;\n    \nDLL32 Function FindWndByClass&#40;wndClass AS LPSTR,WndName as LPSTR&#41; AS LONG ;\nPASCAL FROM &quot;FindWindowA&quot; LIB &quot;user32&#46;dll&quot; &#91;/code&#93;[/code:3o043ypq]','',0,'AIA=','3o043ypq',1,0,'',303,0,0),(9256,2155,3,15,0,'203.73.98.11',1142265739,1,0,1,1,1,0,'','','Hello Silvio,\n\nSounds good news.\n\nI\'m hurry to try your new TPlan 32bit.\n\nRegards,\n\nRichard','',0,'AIA=','3bbwnfa3',1,0,'',15,0,0),(9257,2175,6,228,0,'201.245.222.85',1142265859,1,0,1,1,1,1,'','Conexion con mysql se cae?','Amigos del foro buenos días...\n\nTengo un programita pequeño que lee y escribe bases de datos en myslq, pero tengo el problema que si dejo en sistema quieto sin hacer ninguna consulta con el servidor despues de unos 10 segundos aproximadamente se cae la conexión. Ya lo probe en otros computadores y en localhost pero se mantiene el problema.\n\nAgradezco de antemano su colaboración....  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->\n\nFWH 2.7 Marzo 2006, xharbour marzo 2006, Clase nativa para mysql.','',0,'AIA=','3n3qo8e0',1,0,'',228,0,0),(9258,2170,3,303,0,'68.7.28.54',1142266015,1,0,1,1,1,0,'','','I have never done this but this old message may give you a clue.\n\nFrom: \"Byron Hopp\" &lt;bhopp@matrixcomputer.com&gt;\nSubject: Re: There is someone implementing SOAP or XML-RPC on xHarbour ?\nDate: Saturday, May 08, 2004 4:29 PM\n\nYou can use the Microsoft Soap Toolkit (not the .net version) and it works\nwith xHarbour.  I have connected to Google, iCusine, and some monetary\nconversion service.','',0,'AIA=','j9jv6a9e',1,0,'',303,0,0),(9259,2172,3,303,0,'68.7.28.54',1142266260,1,0,1,1,1,0,'','','Maurilio,\n\nDoes this create a problem with the Enter key triggering the default pushbutton?\n\nRemember that the Tab key is the Windows standard for moving from field to field. The Enter key was used in DOS apps. Most users are going to expect the Enter key to trigger the default pushbutton.\n\nJames','',0,'AIA=','1rxobte0',1,0,'',303,0,0),(9260,2149,1,303,0,'68.7.28.54',1142266476,1,0,1,1,1,0,'','','Philippe,\n\nEnrico\'s solution won\'t always work. Here is a more comprehensive solution.\n\nJames\n\n[code:3bae7a3e]//--- Returns temporary directory name without trailing backslash\nfunction getTempDir&#40;&#41;\n   local cDir   &#58;= GetEnv&#40;&quot;TEMP&quot;&#41;\n   if empty&#40;cDir&#41;\n      cDir &#58;= GetEnv&#40;&quot;TMP&quot;&#41;\n   endif\n   if Right&#40; cDir, 1 &#41; == &quot;\\&quot;\n      cDir &#58;= SubStr&#40; cDir, 1, Len&#40; cDir &#41; - 1 &#41;\n   endif\n   if !empty&#40;cDir&#41;\n      if !lIsDir&#40;cDir&#41;\n         cDir &#58;= GetWinDir&#40;&#41;\n      endif\n   else\n      cDir &#58;= GetWinDir&#40;&#41;\n   endif\nreturn cDir[/code:3bae7a3e]','',0,'AIA=','3bae7a3e',1,0,'',303,0,0),(9261,2176,2,304,0,'200.67.162.185',1142266483,1,0,1,1,1,0,'','Dudas con Timer','Hola:\nComo puedo hacer que un timer se detenga para posteriormente volver a activar, explico el caso:\n\ndefino un timer\n\nDefine TIMER oTmr INTERVAL 5000 ACTION CheckFile(oTmr) of oDlg\n.\n.\nACTIVATE TIMER oTmr\n\n\nFunction CheckFile(oTmr)\nSelect 1\nGo 1\niF aRetiros-&gt;Ventas &gt;= 15000\n    MsgAlert(\"Favor de Retirar Efectivo de Caja\",\"Advertencia\")\nEndif\nReturn Nil\n\nEl caso es que el MsgAlert sale muchas veces sin esperar la confirmacion del usuario hasta que se sale, como debo hacer para que mande el mensaje, espere el \"Enter de Usuario\" (El que saca el propio Msgalert)\ny continue el Timer enviando el mensaje siempre y cuando se cumpla la condicion, si no se cumple no envia nada, pero el timer debe seguir checando ese registro y cada vez que llegue o supere los  15,000 mande el mensaje al usuario, espero haberme explicado correctamente.\nde antemano gracias por su valiosa ayuda\nsalu2\nveracruz, Mexico','',0,'AIA=','uibesvi9',1,0,'',304,0,0),(9262,2139,6,75,0,'83.42.27.210',1142266503,1,0,1,1,1,0,'','','Perdón si resulto pesado pero ahora al pinchar en esa que dice aquí tienes la clase me sale lo siguiente:\n\n[i:2kfpcjwl]Directly downloading images is not permitted on the Netfirms FREE plan. If you are the owner of this site, either ensure that this image is embedded in a web page, or upgrade to one of the Netfirms premium plans. [/i:2kfpcjwl]\n\nNo se que significa. Pero si puedes me lo mandas a la dirección de correo directamente:\npazbores(arroba)yahoo.es\n\nSaludos','',0,'IA==','2kfpcjwl',1,0,'',75,0,0),(9263,2174,3,299,0,'69.65.95.131',1142266747,1,0,1,0,1,0,'','','James;\n\nIt couldn\'t be any prettier.  :D \n\nYou know, I needed this for the ER-autoregister app.\n\nThank you.\n\n\nReinaldo.','',0,'IA==','2fb8668g',1,0,'',299,0,0),(9264,2174,3,303,0,'68.7.28.54',1142267173,1,0,1,1,1,0,'','','Reinaldo,\n\n&gt;You know, I needed this for the ER-autoregister app. \n\nYes, that is why I resisted saying something about I wouldn\'t normally recommend unilaterally turning off the taskbar, but your kiosk situation is unusal. Hmm, well now I have gone and said it anyway. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nJames','',0,'IA==','2dko36lm',1,0,'',303,0,0),(9265,2149,1,193,0,'195.212.29.171',1142267235,1,0,1,1,1,0,'','','Hi James.\nI think your code is incomplete. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nIt may so occur that there are defined two variables TEMP and TMP in environment.  For example TEMP=C:\\TEMP and TMP=C:\\TMP while directory C:\\TEMP does not exist but directory C:\\TMP does exist.\nIn this case I think directory C:\\TMP should be used instead of GetWinDir().\n\nVladimir Grigoriev','',0,'IA==','1iukq4uc',1,0,'',193,0,0),(9266,1942,6,226,0,'200.162.111.226',1142267887,1,0,1,1,1,1,'','','Antonio, boa tarde\n\njá descobri o problema que está ocorrendo.\n\npara o xHarbour Free eu faço desta forma:\n\n[code:g7j25cqd]\n// configuracao para tema XP\n#ifdef __THEMAXP__\n   1 24 &quot;\\fwh_27\\include\\temaxp&#46;xml&quot;\n#endif\n[/code:g7j25cqd]\n\n\npor algum motivo o xHarbour comercial não reconhece o path do .xml .. depois de muitas tentativas eu alterei para esta forma..\n\n[code:g7j25cqd]\n// configuracao para tema XP\n#ifdef __THEMAXP__\n   1 24 &quot;/fwh_27/include/temaxp&#46;xml&quot;\n#endif\n[/code:g7j25cqd]\n\n\nrepare que apenas alterei a barra e depois disso funcionou da forma correta.  Vai entender!??!?!?!?!?!?!\n\nobrigado pela ajuda.\n\nMarllon Figueiredo[/code]','',0,'AIA=','g7j25cqd',1,0,'',226,0,0),(9267,2132,6,486,0,'200.184.85.3',1142267972,1,0,1,1,1,0,'','','It would be Example to understand what want to do, more it cannot be access to HD has to be for memory;  \n  \nhe has a program test1.exe that is turning in a loop;  \ntest :=. t.  \ndo while test  \nenddo  \n? end  \n  \nhe has a program test2.exe that only executes;  \ntest :=. f.  \ntest1.exe and concluded\n\nClemerson','',0,'AIA=','2bc8kt05',1,0,'',486,0,0),(9268,2149,1,193,0,'195.212.29.187',1142268049,1,0,1,1,1,0,'','','Maybe something as the following  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n//--- Returns temporary directory name without trailing backslash \nfunction GetTempDir()\nlocal cTargetDir, cTempDir, cTmpDir\nlocal lTempExist, lTmpExist\n\ncTempDir   := GetEnv( \"TEMP\" ) \ncTmpDir := GetEnv( \"TMP\" ) \n\nif ( Right( cTempDir, 1 ) == \"\\\" ) \n      cTempDir := SubStr( cTempDir, 1, Len( cTempDir ) - 1 ) \nendif \n\nif ( Right( cTmpDir, 1 ) == \"\\\" ) \n      cTmpDir := SubStr( cTmpDir, 1, Len( cTmpDir ) - 1 ) \nendif \n\nlTempExist := .F.\nif ( !empty( cTempDir ) )\n      if ( IsDir(cTempDir ) ) \n         lTempExist := .T. \n      endif \nendif\n\nlTmpExist := .F.\nif ( !empty( cTmpDir ) )\n      if ( IsDir(cTmpDir ) ) \n         lTmpExist := .T. \n      endif \nendif\n\ndo case\n      case ( lTempExist )\n             cTargetDir := cTempDir\n      case ( lTmpExist )\n             cTargetDir := cTmpDir\n      otherwise\n             cTargetDir :=  GetWinDir()\nendcase\n\nreturn ( cTargetDir )','',0,'AIA=','356fycgc',1,0,'',193,0,0),(9269,2132,6,110,0,'165.98.151.243',1142268300,1,0,1,1,1,1,'','','Antonio se podrian utilizar socket,y que una app sea cliente y otra servidor?\n\nsolo una idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> si no sirve <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> pues ni modo-\n\n\nsalu2\ncarlos vargas','',0,'AIA=','2xpmzbkz',1,0,'',110,0,0),(9270,2149,1,303,0,'68.7.28.54',1142268348,1,0,1,1,1,0,'','','Vladimir,\n\nThanks for the improvement.\n\nJames','',0,'AIA=','2rpr3dsj',1,0,'',303,0,0),(9271,2141,3,382,0,'80.140.215.164',1142268443,1,0,1,1,1,1,'','','Hello James, \nthank you very much','',0,'AIA=','cqx2g19s',1,0,'',382,0,0),(9272,2149,1,193,0,'195.212.29.179',1142268963,1,0,1,1,1,0,'','','Also the statement\n\nif ( Right( cTempDir, 1 ) == \"\\\" ) \ncTempDir := SubStr( cTempDir, 1, Len( cTempDir ) - 1 ) \nendif \n\nis not correct enough.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThe following would be more correct.\n\nif ( ( Right( cTempDir, 1 ) == \"\\\" ) .AND. ! ( Right( cTempDir, 2 ) == \":\\\" ) ) \ncTempDir := SubStr( cTempDir, 1, Len( cTempDir ) - 1 ) \nendif \n\nVladimir Grigoriev','',0,'AIA=','381ccujv',1,0,'',193,0,0),(9273,2177,7,262,0,'212.89.4.46',1142268995,1,0,1,1,1,1,'','Dos preguntillas','primero , en los TAB el estilo\n\n#define  TCS_BOTTOM  2   (creo) Funciona ?\n\nSegundo en los datepicker , como pongo la fecha a la española ? \n(ya probé poniendo SET ITALIAN y SET CENTURY y el idioma español)\n\nSaludos.','',0,'AIA=','3p65mzij',1,0,'',262,0,0),(9274,2175,6,43,0,'201.127.49.107',1142269746,1,0,1,1,1,0,'','','Hola Leandro.\n\n   Deberias de checar bien tu configuracion de tu windows, ya que cuando la computadora entra en modo de reposo, a veces las conexiones se caen, yo tengo mi servidor con mysql y lo tengo prendido las 24 hrs del dia y hasta ahora no se ha caido y eso que entra el protector de pantalla.\n\n   checa tambien tu  firewall.\n\nSaludos\n\n  Marco A. Delgado.','',0,'AIA=','k2i6ssuq',1,0,'',43,0,0),(9275,2154,6,43,0,'201.127.49.107',1142270179,1,0,1,1,1,0,'','','Hola Leandro\n\n  Podria poner un poco de tu codigo, ahora si utilizas xharbour y array, deberias de hacer algo como esto:\n\n[/code]\naBrw:=array(resultado consulta sql) \noBrw:aArrayData := ACLONE(aBrw) \noBrw:refresh() \n[code:1kb5b1pa]\n\n  Pruebalo y me dices&#46;&#46;\n\nSaludos\n\n Marco A&#46; Delgado[/code:1kb5b1pa]','',0,'AIA=','1kb5b1pa',1,0,'',43,0,0),(9276,2154,6,43,0,'201.127.49.107',1142270245,1,0,1,1,1,0,'','','upps... mil disculpas\n\n\nun momentus torpus.....jeje\n\n\nSaludos\n\n  Marco A. Delgado','',0,'AIA=','25paplhj',1,0,'',43,0,0),(9277,2149,1,6,0,'87.3.232.11',1142270695,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:vjw7efpf]Enrico\'s solution won\'t always work.[/quote:vjw7efpf]\n\nI used GetEnv( \"TEMP\" ) for at least 10 years and got no reports about problems with it.\n\nEMG','',0,'gA==','vjw7efpf',1,0,'',6,0,0),(9278,2178,3,34,0,'68.4.154.81',1142270705,1,0,1,1,1,1,'','Anyone using QBFC 5.0 ?','I am working on a Quick Books interface using FWH and xHarbour ( all latest versions)  I must use the QBFC from Intuit.\n\nI\'m able to connect to a QB file, and when I post a request to add a client, the transaction takes place.  I supply a name, opening balance amount, and a transaction date, and QB adds the account, enters the name, enters the opening balance, and enters the date. To me, this could not happen if the connection was not valid. \n\nThe value returned is supposed to be a \"response list\" which is a data object.  However, when I try to parse the response list, I\'m getting a NIL value. \n\nSo, the connection is established, the values passed are processed, but the return value appears to my program as NIL.  The QB Request Processor should not be returning a NIL value if the actions were able to take place.  This leads me to suspect that saving the return value to a LOCAL value may be the problem.\n\nAny thoughts or suggestions would be greatly appreciated.\n <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->','',0,'gA==','5txaknhu',1,0,'',34,0,0),(9279,2169,20,6,0,'87.3.232.11',1142271228,1,0,1,1,1,1,'','Re: hide() and button','Non mi pare. Non puoi gestire tu la cosa mantenendo l\'informazione in una variabile o in un array (se sono più controlli)?\n\nEMG','',0,'gA==','3ny7x7rq',1,0,'',6,0,0),(9280,2149,1,193,0,'195.212.29.171',1142271238,1,0,1,1,1,0,'','','Enrico Maria\n[quote:29veq1l8]I used GetEnv( \"TEMP\" ) for at least 10 years and got no reports about problems with it. [/quote:29veq1l8]\nIt is very boring!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','29veq1l8',1,0,'',193,0,0),(9281,2149,1,303,0,'68.7.28.54',1142271731,1,0,1,1,1,0,'','','Enrico,\n\nYea, like Valdimir says, thats too easy.\n\nI suppose if getEnv(\"TEMP\") returns a blank string then any temp files will just be written to the current directory. There probably won\'t be any error message. I\'m not saying there is anything wrong with that, just that you probably wouldn\'t know if it was not working as expected.\n\nJames','',0,'gA==','2n4odx2e',1,0,'',303,0,0),(9282,2155,3,61,0,'201.217.166.19',1142272080,1,0,1,1,1,0,'','','Hei Silvio:\n\nReally good news for Fivewiners.\n\nThanks\n\n\nRegards\n\nRuben Fernandez','',0,'gA==','3tgdf8zr',1,0,'',61,0,0),(9284,2145,6,77,0,'217.126.90.142',1142274081,1,0,1,1,1,0,'','GRACIAS RENE','Gracias rene.\n\nLo intentare con la clase de viktor','',0,'gA==','13udoxur',1,0,'',77,0,0),(9285,2179,6,77,0,'217.126.90.142',1142275796,1,0,1,1,1,0,'','error al compilar hbole','Hola, tengo el siguiente error al compilar la libreria hbole.lib:\n\nError: Unresolved external \'_hb_vmMessage\' referenced from C:\\FACTU32\\LIB\\HBOLE.LIB|ole2\n\nGracias por vuestra ayuda\n\n\nharbour 0.44 fwh 25','',0,'gA==','a4nnvg9v',1,0,'',77,0,0),(9286,2154,6,228,0,'201.245.222.85',1142276112,1,0,1,1,1,1,'','Aqui esta el codigo...','Así defino el Dialogo con el folder y los demas recursos\n\n[code:18a8yqpl]\nDEFINE DIALOG oDlg RESOURCE &quot;plano&quot; OF oWinp\n\n   REDEFINE BUTTONBMP Btng ID 10   OF oDlg BITMAP &quot;Bsalid&quot; ACTION oDlg&#58;end&#40;&#41;\n   REDEFINE BUTTONBMP Btna ID 4033 OF oDlg BITMAP &quot;Bagre&quot; ACTION pAgreDat&#40;&#41;\n   REDEFINE BUTTONBMP Btnm ID 4034 OF oDlg BITMAP &quot;Bmodi&quot;\n   REDEFINE BUTTONBMP Btnb ID 4035 OF oDlg BITMAP &quot;Bborr&quot;\n\n   REDEFINE GET oT1og01 VAR oT1vg01 ID 4006 OF oDlg UPDATE\n   REDEFINE GET oT1og02 VAR oT1vg02 ID 4007 OF oDlg UPDATE VALID&#40;pVerDat&#40;&#41;,&#46;T&#46;&#41;\n   REDEFINE GET oT1og03 VAR oT1vg03 ID 4009 OF oDlg UPDATE\n   REDEFINE GET oT1og04 VAR oT1vg04 ID 4008 OF oDlg UPDATE\n   REDEFINE GET oT1og05 VAR oT1vg05 ID 4012 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og06 VAR oT1vg06 ID 4017 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og07 VAR oT1vg07 ID 4014 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og08 VAR oT1vg08 ID 4018 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og09 VAR oT1vg09 ID 4016 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og10 VAR oT1vg10 ID 4019 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og11 VAR oT1vg11 ID 4025 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og12 VAR oT1vg12 ID 4028 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og13 VAR oT1vg13 ID 4027 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n   REDEFINE GET oT1og14 VAR oT1vg14 ID 4029 OF oDlg UPDATE PICTURE &quot;999,999&quot;\n\n   REDEFINE SAY oT3os01 ID 4003 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os02 ID 4002 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os03 ID 4004 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os04 ID 4005 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os05 ID 4011 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os06 ID 4013 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os07 ID 4015 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os08 ID 4024 OF oDlg COLOR oLamcla&#58;cClr5\n   REDEFINE SAY oT3os09 ID 4026 OF oDlg COLOR oLamcla&#58;cClr5\n\n   REDEFINE FOLDER oFld1 ID 11 OF oDlg ;\n   PROMPT &quot;&amp;Semana 1&quot;,&quot;S&amp;emana 2&quot;,&quot;Se&amp;mana 3&quot;;\n   DIALOGS &quot;Plano1&quot;,&quot;Plano2&quot;,&quot;Plano4&quot; ON CHANGE &#40;semana&#58;=oFld1&#58;nOption,semana&#40;&#41;&#41;\n\n   *PRIMERA PESTAÑA\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oFld1&#58;aDialogs&#91; 1 &#93; &#41;\n   oBrw&#58;SetArray&#40;aBrw1&#41;\n\n   oBrw&#58;SetColor&#40; CLR_WHITE, CLR_BLACK &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL //MARQSTYLE_HIGHLROW\n   //oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n   //oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n   oBrw&#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   //oBrw&#58;lRecordSelector     &#58;= &#46;t&#46;\n\n   //oBrw&#58;nFreeze             &#58;= 1 //DEJA ESTABLE LA COLUMNA\n   //oBrw&#58;blDblClick          &#58;= &#123;|| If&#40; &#40;AllTrim&#40;tUsuario&#41; = &quot;Admon&#46;Rec&quot; &#46;OR&#46; AllTrim&#40;tUsuario&#41; = &quot;Supervisor&quot;&#41;, NuevaRec&#40; oWndPrinc, &#46;F&#46; &#41;, &#41; &#125;\n   //oBrw&#58;bKeyDown            &#58;= &#123; | nKey | KeyExecute&#40; nKey, oWndPrinc &#41; &#125;\n\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader       &#58;= &quot;Concepto&quot;\n   oBrw&#58;aCols&#91;1&#93;&#58;bStrData      &#58;= &#123; || IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;071&quot;,&quot;Nuevas&quot;,;\n                                      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;072&quot;,&quot;Reingresos&quot;,;\n   				      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;073&quot;,&quot;P&#46;Egresos&quot;,;\n   				      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;074&quot;,&quot;Visitas&quot;,;\n   				      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;075&quot;,&quot;Motivación&quot;,;\n   				      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;076&quot;,&quot;Ventas&quot;,;\n   				      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;077&quot;,&quot;Ped&#46;Entregados&quot;,;\n   				      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;078&quot;,&quot;R&#46;Cartera&quot;,;\n   			              &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;079&quot;,&quot;I&#46;S&#46;M&#46;&quot;,;\n   			       	      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;080&quot;,&quot;I&#46;S&#46;V&#46;&quot;,;\n   				      &#40;IF&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 11&#93;=&quot;081&quot;,&quot;I&#46;S&#46;CONSIG&#46;&quot;,&#40;&quot; &quot;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#125;\n   oBrw&#58;aCols&#91;1&#93;&#58;nHeadStrAlign &#58;= AL_LEFT\n   oBrw&#58;aCols&#91;1&#93;&#58;nDataStrAlign &#58;= AL_LEFT\n   oBrw&#58;aCols&#91;1&#93;&#58;nWidth        &#58;= 90\n\n   oBrw&#58;aCols&#91;2&#93;&#58;cHeader       &#58;= &quot;Lunes&quot;\n   oBrw&#58;aCols&#91;2&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 4&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw&#58;aCols&#91;2&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;2&#93;&#58;nWidth        &#58;= 60\n\n   oBrw&#58;aCols&#91;3&#93;&#58;cHeader       &#58;= &quot;Martes&quot;\n   oBrw&#58;aCols&#91;3&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 5&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw&#58;aCols&#91;3&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;3&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;3&#93;&#58;nWidth        &#58;= 60\n\n   oBrw&#58;aCols&#91;4&#93;&#58;cHeader       &#58;= &quot;Miércoles&quot;\n   oBrw&#58;aCols&#91;4&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 6&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw&#58;aCols&#91;4&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;4&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;4&#93;&#58;nWidth        &#58;= 60\n\n   oBrw&#58;aCols&#91;5&#93;&#58;cHeader       &#58;= &quot;Jueves&quot;\n   oBrw&#58;aCols&#91;5&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 7&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw&#58;aCols&#91;5&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;5&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;5&#93;&#58;nWidth        &#58;= 60\n\n   oBrw&#58;aCols&#91;6&#93;&#58;cHeader       &#58;= &quot;Viernes&quot;\n   oBrw&#58;aCols&#91;6&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 8&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw&#58;aCols&#91;6&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;6&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;6&#93;&#58;nWidth        &#58;= 60\n\n   oBrw&#58;aCols&#91;7&#93;&#58;cHeader       &#58;= &quot;Sábado&quot;\n   oBrw&#58;aCols&#91;7&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 9&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw&#58;aCols&#91;7&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;7&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;7&#93;&#58;nWidth        &#58;= 60\n\n   oBrw&#58;aCols&#91;8&#93;&#58;cHeader       &#58;= &quot;Total&quot;\n   oBrw&#58;aCols&#91;8&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw1&#91;oBrw&#58;nArrayAt&#93;&#91; 12&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw&#58;aCols&#91;8&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;8&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;8&#93;&#58;nWidth        &#58;= 60\n\n   oBrw&#58;DelCol&#40;9&#41;\n   oBrw&#58;DelCol&#40;10&#41;\n   oBrw&#58;DelCol&#40;11&#41;\n   oBrw&#58;DelCol&#40;12&#41;\n\n   oBrw&#58;CreateFromResource&#40; 101 &#41;\n\n   *SEGUNDA PESTAÑA\n\n   oBrw1 &#58;= TXBrowse&#40;&#41;&#58;New&#40; oFld1&#58;aDialogs&#91; 2 &#93; &#41;\n   oBrw1&#58;SetArray&#40;aBrw2&#41;\n\n   oBrw1&#58;SetColor&#40; CLR_WHITE, CLR_BLACK &#41;\n   oBrw1&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw1&#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n   oBrw1&#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n   oBrw1&#58;nHeaderLines        &#58;= 1\n   oBrw1&#58;lColDividerComplete &#58;= &#46;t&#46;\n\n   oBrw1&#58;aCols&#91;1&#93;&#58;cHeader       &#58;= &quot;Concepto&quot;\n   oBrw1&#58;aCols&#91;1&#93;&#58;bStrData      &#58;= &#123; || IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;071&quot;,&quot;Nuevas&quot;,;\n                                      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;072&quot;,&quot;Reingresos&quot;,;\n   				      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;073&quot;,&quot;P&#46;Egresos&quot;,;\n   				      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;074&quot;,&quot;Visitas&quot;,;\n   				      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;075&quot;,&quot;Motivación&quot;,;\n   				      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;076&quot;,&quot;Ventas&quot;,;\n   				      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;077&quot;,&quot;Ped&#46;Entregados&quot;,;\n   				      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;078&quot;,&quot;R&#46;Cartera&quot;,;\n   			              &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;079&quot;,&quot;I&#46;S&#46;M&#46;&quot;,;\n   			       	      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;080&quot;,&quot;I&#46;S&#46;V&#46;&quot;,;\n   				      &#40;IF&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 11&#93;=&quot;081&quot;,&quot;I&#46;S&#46;CONSIG&#46;&quot;,&#40;&quot; &quot;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#125;\n   oBrw1&#58;aCols&#91;1&#93;&#58;nHeadStrAlign &#58;= AL_LEFT\n   oBrw1&#58;aCols&#91;1&#93;&#58;nDataStrAlign &#58;= AL_LEFT\n   oBrw1&#58;aCols&#91;1&#93;&#58;nWidth        &#58;= 90\n\n   oBrw1&#58;aCols&#91;2&#93;&#58;cHeader       &#58;= &quot;Lunes&quot;\n   oBrw1&#58;aCols&#91;2&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 4&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw1&#58;aCols&#91;2&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;2&#93;&#58;nWidth        &#58;= 60\n\n   oBrw1&#58;aCols&#91;3&#93;&#58;cHeader       &#58;= &quot;Martes&quot;\n   oBrw1&#58;aCols&#91;3&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 5&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw1&#58;aCols&#91;3&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;3&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;3&#93;&#58;nWidth        &#58;= 60\n\n   oBrw1&#58;aCols&#91;4&#93;&#58;cHeader       &#58;= &quot;Miércoles&quot;\n   oBrw1&#58;aCols&#91;4&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 6&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw1&#58;aCols&#91;4&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;4&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;4&#93;&#58;nWidth        &#58;= 60\n\n   oBrw1&#58;aCols&#91;5&#93;&#58;cHeader       &#58;= &quot;Jueves&quot;\n   oBrw1&#58;aCols&#91;5&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 7&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw1&#58;aCols&#91;5&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;5&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;5&#93;&#58;nWidth        &#58;= 60\n\n   oBrw1&#58;aCols&#91;6&#93;&#58;cHeader       &#58;= &quot;Viernes&quot;\n   oBrw1&#58;aCols&#91;6&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 8&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw1&#58;aCols&#91;6&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;6&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;6&#93;&#58;nWidth        &#58;= 60\n\n   oBrw1&#58;aCols&#91;7&#93;&#58;cHeader       &#58;= &quot;Sábado&quot;\n   oBrw1&#58;aCols&#91;7&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 9&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw1&#58;aCols&#91;7&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;7&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;7&#93;&#58;nWidth        &#58;= 60\n\n   oBrw1&#58;aCols&#91;8&#93;&#58;cHeader       &#58;= &quot;Total&quot;\n   oBrw1&#58;aCols&#91;8&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw2&#91;oBrw1&#58;nArrayAt&#93;&#91; 12&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw1&#58;aCols&#91;8&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;8&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw1&#58;aCols&#91;8&#93;&#58;nWidth        &#58;= 60\n\n   oBrw1&#58;DelCol&#40;9&#41;\n   oBrw1&#58;DelCol&#40;10&#41;\n   oBrw1&#58;DelCol&#40;11&#41;\n   oBrw1&#58;DelCol&#40;12&#41;\n\n   oBrw1&#58;CreateFromResource&#40; 102 &#41;\n\n   *TERCERA PESTAÑA\n\n   oBrw2 &#58;= TXBrowse&#40;&#41;&#58;New&#40; oFld1&#58;aDialogs&#91; 3 &#93; &#41;\n   oBrw2&#58;SetArray&#40;aBrw3&#41;\n\n   oBrw2&#58;SetColor&#40; CLR_WHITE, CLR_BLACK &#41;\n   oBrw2&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw2&#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n   oBrw2&#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n   oBrw2&#58;nHeaderLines        &#58;= 1\n   oBrw2&#58;lColDividerComplete &#58;= &#46;t&#46;\n\n   oBrw2&#58;aCols&#91;1&#93;&#58;cHeader       &#58;= &quot;Concepto&quot;\n   oBrw2&#58;aCols&#91;1&#93;&#58;bStrData      &#58;= &#123; || IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;071&quot;,&quot;Nuevas&quot;,;\n                                      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;072&quot;,&quot;Reingresos&quot;,;\n   				      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;073&quot;,&quot;P&#46;Egresos&quot;,;\n   				      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;074&quot;,&quot;Visitas&quot;,;\n   				      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;075&quot;,&quot;Motivación&quot;,;\n   				      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;076&quot;,&quot;Ventas&quot;,;\n   				      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;077&quot;,&quot;Ped&#46;Entregados&quot;,;\n   				      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;078&quot;,&quot;R&#46;Cartera&quot;,;\n   			              &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;079&quot;,&quot;I&#46;S&#46;M&#46;&quot;,;\n   			       	      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;080&quot;,&quot;I&#46;S&#46;V&#46;&quot;,;\n   				      &#40;IF&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 11&#93;=&quot;081&quot;,&quot;I&#46;S&#46;CONSIG&#46;&quot;,&#40;&quot; &quot;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#41;&#125;\n   oBrw2&#58;aCols&#91;1&#93;&#58;nHeadStrAlign &#58;= AL_LEFT\n   oBrw2&#58;aCols&#91;1&#93;&#58;nDataStrAlign &#58;= AL_LEFT\n   oBrw2&#58;aCols&#91;1&#93;&#58;nWidth        &#58;= 90\n\n   oBrw2&#58;aCols&#91;2&#93;&#58;cHeader       &#58;= &quot;Lunes&quot;\n   oBrw2&#58;aCols&#91;2&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 4&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw2&#58;aCols&#91;2&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;2&#93;&#58;nWidth        &#58;= 60\n\n   oBrw2&#58;aCols&#91;3&#93;&#58;cHeader       &#58;= &quot;Martes&quot;\n   oBrw2&#58;aCols&#91;3&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 5&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw2&#58;aCols&#91;3&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;3&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;3&#93;&#58;nWidth        &#58;= 60\n\n   oBrw2&#58;aCols&#91;4&#93;&#58;cHeader       &#58;= &quot;Miércoles&quot;\n   oBrw2&#58;aCols&#91;4&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 6&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw2&#58;aCols&#91;4&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;4&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;4&#93;&#58;nWidth        &#58;= 60\n\n   oBrw2&#58;aCols&#91;5&#93;&#58;cHeader       &#58;= &quot;Jueves&quot;\n   oBrw2&#58;aCols&#91;5&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 7&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw2&#58;aCols&#91;5&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;5&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;5&#93;&#58;nWidth        &#58;= 60\n\n   oBrw2&#58;aCols&#91;6&#93;&#58;cHeader       &#58;= &quot;Viernes&quot;\n   oBrw2&#58;aCols&#91;6&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 8&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw2&#58;aCols&#91;6&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;6&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;6&#93;&#58;nWidth        &#58;= 60\n\n   oBrw2&#58;aCols&#91;7&#93;&#58;cHeader       &#58;= &quot;Sábado&quot;\n   oBrw2&#58;aCols&#91;7&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 9&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw2&#58;aCols&#91;7&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;7&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;7&#93;&#58;nWidth        &#58;= 60\n\n   oBrw2&#58;aCols&#91;8&#93;&#58;cHeader       &#58;= &quot;Total&quot;\n   oBrw2&#58;aCols&#91;8&#93;&#58;bStrData      &#58;= &#123; || Transform&#40;aBrw3&#91;oBrw2&#58;nArrayAt&#93;&#91; 12&#93;, &quot;999,999&quot; &#41; &#125;\n   oBrw2&#58;aCols&#91;8&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;8&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw2&#58;aCols&#91;8&#93;&#58;nWidth        &#58;= 60\n\n   oBrw2&#58;DelCol&#40;9&#41;\n   oBrw2&#58;DelCol&#40;10&#41;\n   oBrw2&#58;DelCol&#40;11&#41;\n   oBrw2&#58;DelCol&#40;12&#41;\n\n   oBrw2&#58;CreateFromResource&#40; 103 &#41;\n\noDlg&#58;cTitle &#58;= &quot;Captura Información&quot;\noT1og01&#58;disable&#40;&#41;\n\nACTIVATE DIALOG oDlg\n[/code:18a8yqpl]\n\nEn esta funcion actualizo los arrays y los asigno al xbrowse y refresco\n\n[code:18a8yqpl]\n\n******************************************************\n*actualiza el array acorde a la seleccion de la semana\n******************************************************\nPROC semana&#40;&#41;\n\naData&#58;=&#123;aBrw1,aBrw2,aBrw3&#125;\nvfsem&#58;=alltrim&#40;str&#40;semana&#41;&#41;\nMSGINFO&#40; &quot;SELECT * from &quot; + oLamcla&#58;tMovi +&quot; WHERE Campana=\'&quot;+oT1vg02+&quot;\' AND Zona=\'&quot;+oT1vg01+&quot;\' AND Semana=&quot;+vfsem&#41;\n\noTable &#58;= oLamcla&#58;oServer&#58;Query&#40; &quot;SELECT * from &quot; + oLamcla&#58;tMovi +&quot; WHERE Campana=\'&quot;+oT1vg02+&quot;\' AND Zona=\'&quot;+oT1vg01+&quot;\' AND Semana=&quot;+vfsem &#41;\noTable&#58;GoTop&#40;&#41;\nnReg   &#58;= oTable&#58;Reccount&#40;&#41;\nnLen   &#58;= 0\nnMax   &#58;= nReg\nIF Empty&#40;nReg&#41;\n  aData&#91;semana&#93; &#58;= Array&#40;1&#41;\n  nLen++\n  aData&#91;semana&#93;&#91;nLen&#93; &#58;= &#40;&#123; 0,&quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;,0&#125;&#41;\n  Asize&#40; aData&#91;semana&#93;, nLen &#41;\nELSE\n  aData&#91;semana&#93; &#58;= Array&#40;nReg&#41;\n  DO WHILE !oTable&#58;Eof&#40;&#41;\n    oTable&#58;GetRow&#40;&#41;\n    nLen++\n    IF nLen &gt; nMax\n      aSize&#40; aData&#91;semana&#93;, &#40;nMax += K_Ajuste&#41;&#41;\n    ENDIF\n    aData&#91;semana&#93;&#91;nLen&#93; &#58;= &#40;&#123; oTable&#58;FieldGet&#40;\'Consecutivo\'&#41;,oTable&#58;FieldGet&#40;\'Campana\'&#41;,oTable&#58;FieldGet&#40;\'Zona\'&#41;,;\n                              oTable&#58;FieldGet&#40;\'Lunes\'&#41;,oTable&#58;FieldGet&#40;\'Martes\'&#41;,oTable&#58;FieldGet&#40;\'Miercoles\'&#41;,;\n                              oTable&#58;FieldGet&#40;\'Jueves\'&#41;,oTable&#58;FieldGet&#40;\'Viernes\'&#41;,oTable&#58;FieldGet&#40;\'Sabado\'&#41;,;\n                              oTable&#58;FieldGet&#40;\'Semana\'&#41;,oTable&#58;FieldGet&#40;\'Concepto\'&#41;,oTable&#58;FieldGet&#40;\'Total\'&#41; 	&#125;&#41;\n    oTable&#58;Skip&#40;&#41;\n  ENDDO\n  Asize&#40; aData&#91;semana&#93;, nLen &#41;\nENDIF\noTable&#58;Destroy&#40;&#41;\nCursorArrow&#40;&#41;\n\nIF semana=1\n oBrw&#58;SetArray&#40;aData&#91;semana&#93;&#41;\n oBrw&#58;refresh&#40;&#41;\nELSEIF semana=2\n oBrw1&#58;SetArray&#40;aData&#91;semana&#93;&#41;\n oBrw1&#58;refresh&#40;&#41;\nELSEIF semana=3\n oBrw2&#58;SetArray&#40;aData&#91;semana&#93;&#41;\n oBrw2&#58;refresh&#40;&#41;\nENDIF\n\n[/code:18a8yqpl]','',0,'AIA=','18a8yqpl',1,0,'',228,0,0),(9287,2139,6,75,0,'83.42.27.210',1142277419,1,0,1,1,1,0,'','','Estimado Oskar, \n   he conseguido compilar tu clase y ver el ejemplo, que por cierto falla al intentar poner datos en celdas aunque apunta muy buenas maneras especialmente paro los que usamos openoffice,  pero en cualquier caso, no veo la manera de mandar a un fichero pdf un listado generado con el objeto PRINT de fw usando esta clase tuya.\n\n   Saludos.','',0,'AIA=','1fbasq7k',1,0,'',75,0,0),(9288,2169,20,125,0,'213.140.6.112',1142278971,1,0,1,1,1,0,'','','Pensavo ci fosse qualcosa di gia\' pronto.\nComunque non ho trovato il metodo hide() all\'interno delle classi button.prg o btnbmp.prg, come mai?\nTks','',0,'AIA=','3eqi1lo8',1,0,'',125,0,0),(9289,2167,3,125,0,'213.140.6.112',1142279790,1,0,1,1,1,0,'','','i solved the problem simple using\n\nwaitrun(\"explorer.exe c:\\mydata\")\n\nit works fine for my scope.\ntks','',0,'AIA=','3re6zd0h',1,0,'',125,0,0),(9290,2126,4,3,0,'82.65.134.169',1142279936,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3fuv3vcv]Richard,\n\nIf the target computer is sharing a folder, then you may directly write on such folder, i.e.:\n\nMemoWrit( \"\\\\name\\shared\\file.txt\", &lt;cText&gt; )[/quote:3fuv3vcv]\n\nAntonio,\n\nGood idea.\n\nWe can access the server this way. i still have some security issue, the server is prompting for a user login and password every time we start again the pocket pc !  we are trying to fix that one, replying OK to an empty password does the job and writes on the shared folder in the network. This makes FWPPC access to a network magic !\n\nThis is a snapshot of the testing code\n\n#include \"C:\\FWPPC\\INCLUDE\\FWCE.ch\"\n\nfunction Main()\nLOCAL WTEXTE,cfile,wtexte\n\ncfile   := \"\\\\serveur\\c_serveur\\testhp2.txt\"\nnHandle := fCreate( cFile )\n\nWTEXTE := \"ligne 1\"\nFWRITE( nHandle, WTEXTE + CRLF )\n\nWTEXTE := \"ligne 2\"\nFWRITE( nHandle, WTEXTE + CRLF )\nfClose( nHandle )\n\nreturn nil\n\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRichard','',0,'gA==','3fuv3vcv',1,0,'',3,0,0),(9292,2169,20,6,0,'87.3.232.11',1142280614,1,0,1,1,1,1,'','','Perché lo ereditano dalla TWindow.\n\nEMG','',0,'gA==','2ygnp5io',1,0,'',6,0,0),(9293,2149,1,6,0,'87.3.232.11',1142281101,1,0,1,1,1,1,'','','If GetEnv( \"TEMP\" ) should have return an empty string then I would consider more correct to put temporary files in the current directory rather than in WINDOWS directory.\n\nEMG','',0,'gA==','3tyig1kz',1,0,'',6,0,0),(9294,2126,4,2,0,'87.218.146.120',1142282398,1,0,1,1,1,1,'','','Richard,\n\ngood <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1feouotj',1,0,'',2,0,0),(9295,2180,3,3,0,'82.65.134.169',1142282399,1,0,1,1,1,1,'','tdosprn usb port','Hello\n\nHas anyone succeded using tdosprn on a usb port ?\n\nI need to send ESC commands to a pos printer on a usb port, any idea ?\n\nThanks for the help\n\nRichard','',0,'gA==','2fju8kse',1,0,'',3,0,0),(9296,2171,3,2,0,'87.218.146.120',1142282588,1,0,1,1,1,1,'','','Maurilio,\n\nThat was fixed recently. This change is required in source\\classes\\group.prg\n[code:nqatkaox]\n#define WM_UPDATEUISTATE 296  // 0x0128\n\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TGroup\n\n   local nResult\n\n   if &#58;&#58;lDrag &#46;and&#46; nMsg == WM_NCHITTEST      // To have a standard behavior on Clicks\n      return DefWindowProc&#40; &#58;&#58;hWnd, nMsg, nWParam, nLParam &#41;\n   endif\n\n   if nMsg == WM_UPDATEUISTATE  // Groups and contained controls were erased when pressing ALT\n      nResult = Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;       \n      &#58;&#58;oWnd&#58;Refresh&#40;&#41;\n      return nResult\n   endif   \n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n[/code:nqatkaox]','',0,'AIA=','nqatkaox',1,0,'',2,0,0),(9297,2149,1,303,0,'68.7.28.54',1142284174,1,0,1,1,1,0,'','','Enrico,\n\nI agree. I didn\'t write the function I posted, I just had it in my notes. I never really carefully looked at what it was doing.\n\nJames','',0,'AIA=','33a4v8na',1,0,'',303,0,0),(9298,2173,6,474,0,'201.129.217.182',1142290427,1,0,1,1,1,1,'','','incluye esta linea en tu .rc al principio\n#include \"c:\\fwh\\include\\winapi.ch\"\n\ny el folder definelo como FOLDER32 sin poner comillas\n\nSalu2','',0,'AIA=','2o8w1m35',1,0,'',474,0,0),(9299,2181,6,278,0,'200.72.147.139',1142291269,1,0,1,1,1,1,'','Ayuda con el xbrowse','Hola Foro:\n\nNecesito una ayudita con el xbrowse:\n\nNecesito editar en el mismo browse una columna determinada.\n \nPuedo llegar hasta editar, pero me falla el bOnPostEdit ,\nno me refresca nada.\n\nNo se como decirle que utilice la columna 3 por ejemplo.\n\nAlguien me puede decir que cambios hacer en el bOnpostEdit.\n\n\nVer este ejemplo:\n\nSTATIC FUNCTION AutoEdit( oWnd ) \n\nlocal oChild, oBrw, oCol \nlocal nFor \n\nUSE DATOS ALIAS DATOS\nDEFINE WINDOW oChild TITLE \"Auto edit browse\" MDICHILD OF oWnd \n\noBrw := TXBrowse():New( oWnd ) \n\noBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL \noBrw:nColDividerStyle := LINESTYLE_BLACK \noBrw:nRowDividerStyle := LINESTYLE_BLACK \noBrw:lColDividerComplete := .t. \n\noBrw:SetRDD() \n\noCol:= oBrw:aCols[ 3 ]\noCol:nEditType:= EDIT_GET   \noCol:bOnPostEdit 	:=     &lt;--- aqui que debo poner  ???   \noBrw:CreateFromCode() \noChild:oClient := oBrw \n\n\nACTIVATE WINDOW oChild ON INIT oBrw:SetFocus() \n\nRETURN NIL \n\n\nGracias por su ayuda,\nJuan','',0,'','lnbey7yq',1,0,'',278,0,0),(9300,2173,6,474,0,'201.129.217.182',1142291648,1,0,1,1,1,1,'','','incluye esta linea en tu .rc al principio\n#include \"c:\\fwh\\include\\winapi.ch\"\n\ny el folder definelo como FOLDER32 sin poner comillas\n\nSalu2','',0,'','1z5mj1wl',1,0,'',474,0,0),(9301,2069,3,480,0,'201.0.249.59',1142293475,1,0,1,1,1,1,'','','Thank\'s Stefan','',0,'','36pl63zk',1,0,'',480,0,0),(9302,2182,3,49,0,'82.61.128.115',1142293890,1,0,1,1,1,1,'','Plan 32 bit beta - to all','[url:2qxrebuw]http&#58;//hyperupload&#46;com/download/9dba4f30/plan32beta&#46;zip&#46;html[/url:2qxrebuw]\n\nI try to explain to You \n\nto create a plan you nust create a window or dialog with 3 part\n\npart of calendar( days)\npart of data ( archive)\npart of graphics\n\n\nif you can try you can try Egant.prg ( the same prg of gant class of Arthuro)\n\non it there are some modify\n\n\nexample\n[code:2qxrebuw]\n\n @ 26,253 PLAN  oDias WINDOW oWndGant ;\n            SIZE nwincol-270,38 ;\n            BORDER ;\n            COLORS CLR_BLACK, wclrBack //CLR_HGRAY\n\n   oDias&#58;bPainted        &#58;= &#123;|| Dias&#40;odias,ofont,nHoriz,osplit,wDiaLab,ograficos,oSplit1,oPen1,oPen3,oPen4,oPen5,oPen2,dFecIni,dFecha,nTipo,nVertic&#41; &#125;\n\n   @ 60,253 PLAN oGraficos WINDOW oWndGant ;\n            SIZE nwincol-270,nWinRow-102 ;\n            BORDER ;\n            VSCROLL ;\n            HSCROLL ;\n            ON CHANGE editFec&#40;odias,ofont,@nHoriz,osplit,ograficos,oSplit1,oPen1,oPen3,oPen4,oPen5,oPen2,dFecIni,dFecha,nTipo,nvertic,olbx,wDiaLab&#41; ; //para modificaciones de ancho de la barra\n            ON PRESED editPre&#40;odias,ofont,@nHoriz,osplit,ograficos,oSplit1,oPen1,oPen3,oPen4,oPen5,oPen2,dFecIni,dFecha,nTipo,nvertic,olbx,wDiaLab&#41; ; //para encadenamientos entre barras\n            COLORS CLR_BLACK, CLR_WHITE\n\n   ograficos&#58;bPainted    &#58;= &#123;|| Graficos&#40;@oGraficos,osplit,wDiaLab,oSplit1,nhoriz,oPen1,oPen3,oPen4,oPen5,oPen2,oPen6,oPen7,dFecIni,dFecha,nTipo,@nVertic,oFont&#41; &#125;\n   oGraficos&#58;MouseMove&#40;&#41;\n   oGraficos&#58;lLavora&#58;=&#46;T&#46;\n  * oGraficos&#58;bRClicked &#58;= &#123;|nRow,nCol| IIF&#40;oGraficos&#58;nItem &gt; 0 , &#40;oGraficos&#58;lLavora &#58;= FALSE  , MenuDestro&#40;nRow,nCol&#41;, oGraficos&#58;lLavora &#58;= TRUE &#41;, ;\n   *                     Msginfo&#40;\'Aggiungi\'&#41; &#41; &#125;\n\n\n\n      // to show TOOLTIP\n  oGraficos&#58;bTrovaTip &#58;=  &#123;|| TrovaTip&#40;&#41;&#125;\n\n\n[/code:2qxrebuw]\nto create graphics you must use the method rectang and oPen5 must be a brush\n\n  oGraficos:RECTang( nLinea+nVertic+4, nColumnaInicio+nHoriz, nLinea+nVertic+14, nColumnaFinal+nHoriz,oPen5,ActivProg-&gt;(Recno()) )\n           \n\n\n\n\n\n\n\n\nyou must use wbrowse class of hernan  with some modifies \nsee the file zip\n\n\n\nif you have questions You can write me \n\n\n\nRegards\nFalconi Silvio','',0,'EIA=','2qxrebuw',1,0,'',49,0,0),(9303,2183,6,61,0,'201.217.175.94',1142294497,1,0,1,1,1,0,'','El &amp;mes como lo suplanto?','Amigos:\n\nTengo una Base de Datos cuyos campos son\nMes1,mes1,mes3 hasta mes12\n\nuna variable cMes\ncMes :=\"MES\"+ALLTRIM(STR(MONTH(FOCU)))\n        IF DBSEEK(STRZERO(VAL(cMes),10))\n               CANTIR-&gt;&amp;cMes := CANTIR-&gt;&amp;cMes + 1\n        ELSE\n            DBAPPEND()\n                CANTIR-&gt;&amp;cMes := CANTIR-&gt;&amp;cMes +1\n        ENDIF\n\nEn el símbolo &amp; tengo el problema, funcionaba Ok con los\nFW 16 bits\n\nMuchas Gracias\n\nRuben Fernandez','',0,'EIA=','20115fst',1,0,'',61,0,0),(9304,2184,2,198,0,'201.155.83.215',1142298225,1,0,1,1,1,1,'','CHECK SUM','Hola!\n\nAlguien podría indicarme como calculo el CHECK SUM?\n\nEn espera de sus respuestas\n\nLaura E. Hernández H.','',0,'EIA=','3ho1oygo',1,0,'',198,0,0),(9305,2183,6,295,0,'201.222.158.237',1142299072,1,0,1,1,1,1,'','','Ruben,\n\ncMes :=\"MES\"+ALLTRIM(STR(MONTH(FOCU))) \n\nA mi me funciona asi:\n\nen vez de usar CANTIR-&gt;&amp;cMes \n\nprueba:\n\nCANTIR-&gt;&amp;( \"MES\"+ALLTRIM(STR(MONTH(FOCU))) )\n\nsaludos\nxHabrazos\nFWH2.7, xHarbour, BCC55','',0,'EIA=','18htm2ux',1,0,'',295,0,0),(9308,2184,2,78,0,'200.106.9.181',1142301573,1,0,1,1,1,0,'','','Hola, puedes utilizar la funcion  vTotal := nStrCrc(vCampo) ;  donde nStrCrc, recibe una cadena de caracteres, que puede ser la suma de todos los campos de un registro, convirtiendo los numeros, las fechas y campos logicos en caracteres,  luego esta funcion propia de FW, te devuelve un numero unico, el cual puedes utilizar opara comparar luego, es decir, si en la primera instancia, la cadena te devuelve un numero, si luego esa cadena es modificada, el numero resultante sera diferente al primero. Ej.\n\n...........\nFunction OkChkSum(oModo,lAll)\nlocal vRet := .f., vCount := FCount(), vFields := {}, oLbx, vVar\nlocal vChkSum := \"\"\nDEFAULT oModo := 0\nDEFAULT lAll := .f.\nvFields := LeeRegistro(vFields,vCount)   // cargamos el registro al array vfields\nvChkSum := ChkSum(vFields)\nIf Empty(_Field-&gt;codv)\n oModo := 1\nEndIf\nIf oModo == 0\n  If _Field-&gt;codv &lt;&gt; vChkSum\n   If !lAll\n     If MsgNoYes(\"Este Registro ha sido Alterado fuera de Sistema,,,\",\"Corregir Balance?\")\n       If Rec_Lock(10)\n         _Field-&gt;codv := vChkSum\n         DbUnLock()\n       EndIf\n     EndIf\n   EndIf\n   vRet := .f.\n  EndIf\n Else\n  If Rec_Lock(10)\n   _Field-&gt;codv := vChkSum\n   DbUnLock()\n   vRet := .t.\n  EndIf\nEndIf\nReturn(vRet)\n//-----------------------------------------------------------------------------\nFunction ChkSum(vFields)\nlocal vCont,vLen := Len(vFields) - 1\nlocal vTotal,vCampo := \"\",lValor\nvTotal := 0\nFor vCont := 1 To vLen\n If ValType(vFields[vCont]) = \"N\"\n   vCampo := vCampo + AllTrim(Str(vFields[vCont]))\n EndIf\n If ValType(vFields[vCont]) = \"C\"\n   vCampo := vCampo + AllTrim(vFields[vCont])\n EndIf\n If ValType(vFields[vCont]) = \"D\"\n   vCampo := vCampo + DtoS(vFields[vCont])\n EndIf\n If ValType(vFields[vCont]) = \"L\"\n   lValor := vFields[vCont]\n   vCampo := vCampo + If(&amp;lValor,\"t\",\"f\")\n EndIf\nNext vCont\nvTotal := [b:8zacsz6s]nStrCrc[/b:8zacsz6s](vCampo)\nReturn(vTotal)\n//-----------------------------------------------------------------------------\nFunction OkChkSumAll()\nlocal vRecno := Recno(), vCampo, lOk\nCursorWait()\nDbGoTop()\nIf LastRec() = 0\n  Return(Nil)\nEndIf\nWhile !Eof()\n If Recno() &lt;&gt; 0\n   OkChkSum(0,.t.)\n EndIf\n DbSkip()\nEndDo\nDDbGoTo(vRecno)\nReturn(Nil)\n//-----------------------------------------------------------------------------\n\nSalu2\nWilli........','',0,'QA==','8zacsz6s',1,0,'',78,0,0),(9309,2185,3,487,0,'151.38.117.90',1142301922,1,0,1,1,1,0,'','Html MAPI','Hello all,\n\nI\'m used to send MAPI e-mails in html format by putting a .htm file as attachment.\n\nNow I want to send an html mail WITH an addition attachment, but they are both attached to the message (the .htm one is not put in the mail body)\n\nIs it possible to do this ?, maybe by the cMsgType data ? (I made some tests, but cannot find the correct values for it)\n\nThank you,\nDavide\nFWH27 March build - xH - Bcc','',0,'QA==','tepb3lsk',1,0,'',487,0,0),(9310,2183,6,61,0,'201.217.167.34',1142303860,1,0,1,1,1,0,'','','Luis Alfonso:\n\nFuncionó perfecto.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'QA==','jtccpdz4',1,0,'',61,0,0),(9311,2143,4,224,0,'66.225.99.139',1142304402,1,0,1,1,1,1,'','','Sweet!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','3kioxc33',1,0,'',224,0,0),(9312,2186,2,348,0,'201.230.31.126',1142308287,1,0,1,1,1,0,'','La ultima version de TDosPrn , existe un preview','Buenos dias \n\nAmigos, LLego el momento de imprimir los reportes \n\nAgradeceria a este Foro , si me pudieran proporcionar la ultima version del TDosPrn y ojala se pudiera contar con su Preview  para ver el reporte por pantalla, he enontrado dos versiones ( la original de FiveWin y la de giancarlo 2001 .) que no la tienen..\n \nexiste otra mejor ??  \n\nSi no fuera mucha molestia ,, quizas algun ejemplo con el uso de los preview , y argumentos del esta clase.  pues estoy en  la etapa de  transgferir los reportes del clipper puro a  Fivewin  y estoy en esas \n\nfinalmente encontre  unas clase como  : \nDOSPRINT \nTPRINTER\nMe podrian dar una idea, cual es la mejor alternativa ente estas clases  junto con  REPORT   para infomres  tanto en impresoras matriciales  o tinta , Laser  o printer de red, es de suponer de que cada una de ellas tiene sus ventajas y desventajas. \n\nEsperando sus comentarios, y si cuentan con una ultima version  podrian enviarla al correo       <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n\nCuento con FWin23 Cliper 5.2  blinker 4.0 \n\nMil gracias \nLubin','',0,'QA==','4xcj78vk',1,0,'',348,0,0),(9313,2187,4,13,0,'213.76.201.164',1142323546,1,0,1,1,1,0,'','Checkbox control','Antonio,\n\nI found probably this same effect as in button action control . Checkbox status is still this same. Sample code:\n\n[code:6b2tpbsz]\n#Include \'FwCe&#46;Ch\'\n\nFunction TestCheck &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local lVal &#58;= &#46;F&#46;\n\n   Define Window oWnd Title \'Test Check\'\n   @ 100, 20 CheckBox lVal Prompt \'Test checkbox\' Size 120, 20 Pixel Of oWnd On Change MsgInfo &#40;\'Checkbox changed\'&#41;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n[/code:6b2tpbsz]\n\nRegards\nPawel','',0,'AIA=','6b2tpbsz',1,0,'',13,0,0),(9314,2149,1,193,0,'195.212.29.179',1142329293,1,0,1,1,1,0,'','','Enrico Mario\n[quote:157ttlnr]I would consider more correct to put temporary files in the current directory[/quote:157ttlnr]\nBuon girno.\nIn the current directory or in a directory from which your program started?\nVladimir Grigoriev','',0,'gA==','157ttlnr',1,0,'',193,0,0),(9315,2139,6,75,0,'217.125.189.125',1142330674,1,0,1,1,1,0,'','','El compilador de puertosur para xharbour 2.4.','',0,'gA==','dwkvt96j',1,0,'',75,0,0),(9316,2181,6,456,0,'62.43.32.209',1142330774,1,0,1,1,1,1,'','','[code:18ac75s5]\n oCol&#58;bOnPostEdit  &#58;= &#123;|o, v, n| iif&#40; n != VK_ESCAPE, FieldPut&#40; o&#58;nCreationOrder, v &#41;, &#41; &#125;\n[/code:18ac75s5]\nSi trabajas en red\n[code:18ac75s5]\noCol&#58;bOnPostEdit &#58;= &#123;|o, v, n| iif&#40; n != VK_ESCAPE, If&#40; RLock&#40;&#41;, &#40; FieldPut&#40; o&#58;nCreationOrder, v &#41;, DbUnLock&#40;&#41; &#41;, MsgStop&#40; &quot;Registro bloqueado&quot; &#41; &#41;, &#41; &#125;\n[/code:18ac75s5]','',0,'AIA=','18ac75s5',1,0,'',456,0,0),(9317,2149,1,6,0,'82.57.160.40',1142330871,1,0,1,1,1,1,'','','In the current directory (that is the one from which my program started, in my environment).\n\nEMG','',0,'AIA=','1nszyram',1,0,'',6,0,0),(9318,2150,3,26,0,'84.255.245.173',1142331143,1,0,1,1,1,1,'','','Hello!\n\n[quote:adfi3uxf]Lets see if we find where that left space comes from. [/quote:adfi3uxf]\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nBTW, there is unnecessary margin at the right edge, too:\n[img:adfi3uxf]http&#58;//www&#46;astral-it&#46;com/img/tgw2&#46;png[/img:adfi3uxf]\n\nRegards, Roman','',0,'iA==','adfi3uxf',1,0,'',26,0,0),(9319,2188,3,6,0,'82.57.160.40',1142333675,1,0,1,1,1,1,'','TDialog:bValid bug','This is the sample. Try to exit with ESC and you will get MsgInfo() two times:\n\n[code:cuk3791k]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET cVar\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;bValid &#58;= &#123; || MsgInfo&#40;&#41;, &#46;T&#46; &#125;;\n             CENTER\n\n    RETURN NIL[/code:cuk3791k]\n\nEMG','',0,'AIA=','cuk3791k',1,0,'',6,0,0),(9320,2188,3,6,0,'82.57.160.40',1142335369,1,0,1,1,1,1,'','Re: TDialog:bValid bug','This is a possible fix (but please double check it):\n\n[code:kimnfgk4]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TDialog\n\n   if nKey == VK_ESCAPE\n      if &#58;&#58;oWnd == nil\n//         &#58;&#58;End&#40;&#41;  //EMG\n      else\n         if &#58;&#58;oWnd&#58;ChildLevel&#40; TMdiChild&#40;&#41; &#41; != 0\n            &#58;&#58;End&#40;&#41;\n         else\n            if &#58;&#58;oWnd&#58;ChildLevel&#40; TDialog&#40;&#41; &#41; != 0\n               &#58;&#58;End&#40;&#41;\n            #ifdef __HARBOUR__\n            elseif Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot; // To avoid ESC being ignored\n               &#58;&#58;End&#40;&#41;\n            #endif\n            else\n               return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n            endif\n         endif\n      endif\n   else\n      return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n   endif\n\nreturn nil[/code:kimnfgk4]\n\nEMG','',0,'AIA=','kimnfgk4',1,0,'',6,0,0),(9321,2187,4,2,0,'87.218.146.234',1142337753,1,0,1,1,1,1,'','','Pawel,\n\nYes, it was the same bug and also the same in TRadio. Fixed. \n\nA new FWPPC build is already available to download.\n\nmany thanks for your feedback,','',0,'AIA=','19gm9ddx',1,0,'',2,0,0),(9322,2189,7,2,0,'87.218.146.234',1142337835,1,0,1,1,1,1,'','Nuevo build FWPPC','Hay un nuevo build de FWPPC disponible que arregla unos bugs con los buttons, checkboxes y radios.','',0,'AIA=','b39k5qnx',1,0,'',2,0,0),(9323,2190,3,148,0,'82.201.235.201',1142337963,1,0,1,1,1,0,'','testxbrw error','I took all the files associated with testxbrw.prg and recompiled and I found that error though that customer.dbf was inside the directory ?\n\nError description: Error ADSCDX/6082  Open error: CUSTOMER','',0,'AIA=','2c9k06vw',1,0,'',148,0,0),(9324,2190,3,148,0,'82.201.235.201',1142338999,1,0,1,1,1,0,'','','I am sorry . missing ADS32* libraries \nThanks','',0,'AIA=','u04z8iip',1,0,'',148,0,0),(9325,2191,3,148,0,'82.201.235.201',1142339195,1,0,1,1,1,0,'','Filter Building','I am using set filter to too much and with huge DataBases it slow the machine . It there a better method than set filter ?','',0,'AIA=','3p79ttas',1,0,'',148,0,0),(9326,2188,3,2,0,'87.218.146.234',1142339936,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe have been messing lately with ESC and this looks as a side effect.','',0,'AIA=','1k0iev1x',1,0,'',2,0,0),(9327,2190,3,2,0,'87.218.146.234',1142340005,1,0,1,1,1,1,'','','Ehab,\n\ngood you solved it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','37vis06j',1,0,'',2,0,0),(9328,2191,3,6,0,'82.57.160.40',1142340119,1,0,1,1,1,1,'','Re: Filter Building','Try scopes (OrdScope() function).\n\nEMG','',0,'AIA=','31bd1n5v',1,0,'',6,0,0),(9329,2173,6,2,0,'87.218.146.234',1142340165,1,0,1,1,1,1,'','','Jose Luis,\n\nPor favor comprueba si samples\\TestFold.prg te funciona bien.','',0,'AIA=','3hhsgzay',1,0,'',2,0,0),(9330,2192,7,262,0,'83.97.168.140',1142341293,1,0,1,1,1,1,'','OF Topicc : Recuerdos !!!','Pues limpiando cosas en las estanterias , libros , manuales , mi querida biblia de Rick Spencer <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  ( ya sabeis Adios a nuestro querido clipper <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  y viva harbour <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  ) me tope con esto y no me resistí :   \n\n[img:2axuc5zr]http&#58;//img227&#46;imageshack&#46;us/img227/4765/softmail17gd&#46;jpg[/img:2axuc5zr]\n\nLos buenos productos sobreviven ( que conste que la sigo usando ).\n¡¡¡ que viejos somos !!! \nSaludso.','',0,'CA==','2axuc5zr',1,0,'',262,0,0),(9331,2191,3,148,0,'82.201.235.201',1142341974,1,0,1,1,1,0,'','','in class Txbrowse The filter scope does not work . What is the wrong with those statements :\n\n\n   select 1\n   USE METE\n   go top\nset filter to 1-&gt;me_serial=\"9855564\"','',0,'CA==','1dzu24w5',1,0,'',148,0,0),(9332,2132,6,138,0,'200.95.66.152',1142342358,1,0,1,1,1,1,'','','Se me ocurre:\n\ntest1.exe\ntest := .F.\n\nTest2.exe\ntest := .T.\nSAVE TO archivo ALL LIKE test\n\nTest1.exe\nRESTORE FROM archivo ADDITIVE','',0,'CA==','1053zyzd',1,0,'',138,0,0),(9333,2191,3,138,0,'200.95.66.152',1142343221,1,0,1,1,1,1,'','','If you are used to Filters the best way is to use the ADS LOCAL server. The SET FILTER under ADS is hundred of times faster than the standard (x)Harbour filter','',0,'CA==','2on5wwfo',1,0,'',138,0,0),(9334,2193,6,362,0,'200.168.52.156',1142343710,1,0,1,1,1,1,'','BOTONES DEL PREVIEW NO APARECE','Amigos, necesito ayuda.\n\nBOTONES DEL PREVIEW USANDO FIVEWIN REPORT EN WINDOWS XP, NO SE HACE VISIBLE, NO APARECE. KE HACER?\n\n\nFIVEWIN 2.7 FOR XHARBOUR 0.99.60','',0,'CA==','26sgq572',1,0,'',362,0,0),(9335,2181,6,278,0,'200.72.147.139',1142344430,1,0,1,1,1,1,'','','Oskar y Biel , gracias por la ayuda.\n\nSaludos\nJuan','',0,'CA==','1undaqt6',1,0,'',278,0,0),(9336,2169,20,125,0,'213.140.6.105',1142345612,1,0,1,1,1,0,'','','Grazie','',0,'CA==','23w6h6pv',1,0,'',125,0,0),(9337,2194,6,486,0,'200.184.85.3',1142346055,1,0,1,1,1,0,'','key shortcut','Antonio,  \n  \nIn this current version of the fwhx 2.7 when I am in any field as example in this of the Descricao and do I type any shortcut as example Alt+C the cursor is in the field of the shortcut doesn\'t return how before automatically in I finish it focus, will that be gotten right?\n\n[img:13oql0yz]http&#58;//www&#46;sysfar&#46;com&#46;br/temp/telaprod&#46;jpg[/img:13oql0yz]\n\nClemerson','',0,'CA==','13oql0yz',1,0,'',486,0,0),(9340,2182,3,15,0,'203.73.98.11',1142347140,1,0,1,1,1,0,'','','Hello Silvio,\n\nThanks for your sample.\nI will try it later.\n\nRegards,\n\nRichard','',0,'CA==','5cjvj1vp',1,0,'',15,0,0),(9342,2192,7,2,0,'87.218.146.234',1142347635,1,0,1,1,1,1,'','','Jose Luis,\n\nLos viejos Rockeros (Clipperos) nunca mueren!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','2o8i80xq',1,0,'',2,0,0),(9344,2192,7,456,0,'62.43.32.209',1142351169,1,0,1,1,1,1,'','','Que recuerdos(snif, nos volvemos mayores), yo tambien la utilice. Mirando las norton guides de la misma, Antonio decia:\n[i:1978p1xs][b:1978p1xs]\n ¿ Y que tenemos para el futuro ?\n\n Actualmente estoy trabajando para crear una serie de rutinas que permitan\n crear programas para WINDOWS 3.0 programando en Clipper.\n\n Espero que en poco tiempo pueda contarte más novedades de cómo va este\n proyecto. Una vez completado, se añadirían las funciones a esta librería.\n\n Nantucket ha prometido sacar una versión para WINDOWS, pero si nos ponemos\n a esperarla, seguro que va para largo.\n\n En breve, te ofreceré Clipper 5 y WINDOWS 3, juntos !!!\n[/i:1978p1xs][/b:1978p1xs]\nJoer q me \"ASPEN\"(ese tenia q ser el nombre creo),  si va para largo lo de  Nantucket.','',0,'YA==','1978p1xs',1,0,'',456,0,0),(9345,2182,3,49,0,'213.82.134.66',1142351746,1,0,1,1,1,1,'','','I making another test program and then i must try to create an agenda appointment program\n\nif you ha ve question write me on private email pls\n\nRegards\nsilvio','',0,'YA==','15gswi7u',1,0,'',49,0,0),(9346,2199,2,488,0,'217.127.135.134',1142351796,1,0,1,1,1,0,'','Cursos de Fivewin y xHarbour (Mayo-2006)','Hola amigos.\n\nTengo el placer de anunciaros un año mas, la convocatoria anual de los estupendos de cursos de google,que seran impartidos una vez mas por RF en el mes de Mayo-2006.\nPara mas informacion visten nuestra pagina\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://geroa-informatica.com/fivewin/cu ... o-2006.htm</a><!-- m -->\n\nUn saludo para todos.','',0,'YA==','2mxn403b',1,0,'',488,0,0),(9347,2200,6,488,0,'217.127.135.134',1142351838,1,0,1,1,1,0,'','Cursos de Fivewin y xHarbour (Mayo-2006)','Hola amigos.\n\nTengo el placer de anunciaros un año mas, la convocatoria anual de los estupendos de cursos de google,que seran impartidos una vez mas por RF en el mes de Mayo-2006.\nPara mas informacion visten nuestra pagina\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://geroa-informatica.com/fivewin/cu ... o-2006.htm</a><!-- m -->\n\nUn saludo para todos.','',0,'YA==','32uxnbbl',1,0,'',488,0,0),(9348,2193,6,43,0,'201.127.49.107',1142352650,1,0,1,1,1,0,'','','hola karinha.\n\n   verifica que prev32.dll se encuentre en el mismo directorio de tu aplicacion.\n\n\nsaludos\n\n Marco A. Delgado.','',0,'YA==','soeooxqg',1,0,'',43,0,0),(9349,2154,6,43,0,'201.127.49.107',1142353207,1,0,1,1,1,0,'','','Leandro\n\n  esta bien como lo haces pero en tu codigo tienes esto:\n\n[code:1pa7pnkt]\nIF semana=1 \n oBrw&#58;SetArray&#40;aData&#91;semana&#93;&#41; \n oBrw&#58;refresh&#40;&#41; \nELSEIF semana=2 \n oBrw1&#58;SetArray&#40;aData&#91;semana&#93;&#41; \n oBrw1&#58;refresh&#40;&#41; \nELSEIF semana=3 \n oBrw2&#58;SetArray&#40;aData&#91;semana&#93;&#41; \n oBrw2&#58;refresh&#40;&#41; \nENDIF \n[/code:1pa7pnkt]\n\n  cambialo por algo asi:\n\n[code:1pa7pnkt]\nIF semana=1 \n oBrw&#58;aArrayData &#58;= ACLONE&#40;aData&#91;semana&#93;&#41; \n oBrw&#58;refresh&#40;&#41; \nELSEIF semana=2 \n oBrw1&#58;aArrayData &#58;= ACLONE&#40;aData&#91;semana&#93;&#41; \n oBrw1&#58;refresh&#40;&#41; \nELSEIF semana=3 \n oBrw2&#58;aArrayData &#58;= ACLONE&#40;aData&#91;semana&#93;&#41; \n oBrw2&#58;refresh&#40;&#41; \nENDIF \n[/code:1pa7pnkt]\n\npruebalo y me cuentas\n\nSaludos\n\n  Marco A. Delgado.','',0,'AIA=','1pa7pnkt',1,0,'',43,0,0),(9350,2180,3,487,0,'151.38.109.186',1142353669,1,0,1,1,1,0,'','','Richard,\n\nYou may want to have a look at xHarbour\'s PrintFileRaw() function.\n\nHi,\nDavide','',0,'AIA=','j3o1cme4',1,0,'',487,0,0),(9351,2201,6,61,0,'201.217.173.183',1142353982,1,0,1,1,1,0,'','oLbx:bKeyDown:= {|nK|  if( nK==VK_RETURN, oDlg:End(), ) }','Amigos:\n\nNo me funciona en los Browses esta funcion que si me funcionada antes.\n\nAlguna sugerencia?\n\nSaludos y gracias\n\nRuben Fernandez\nFWH 2.7, Harbour','',0,'AIA=','1hkk2dd2',1,0,'',61,0,0),(9352,2192,7,2,0,'87.218.146.101',1142355311,1,0,1,1,1,1,'','','<!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','1ybitd67',1,0,'',2,0,0),(9353,2193,6,362,0,'200.168.52.156',1142355758,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:zcbv5ou9]hola karinha.\n\n   verifica que prev32.dll se encuentre en el mismo directorio de tu aplicacion.\n\n\nsaludos\n\n Marco A. Delgado.[/quote:zcbv5ou9]\n\nSI MARCO. ENCUENTRA-SE.  EL PROBLEMA ÉS SOLAMENTE EN WINDOWS XP.','',0,'gA==','zcbv5ou9',1,0,'',362,0,0),(9354,2149,1,303,0,'68.7.28.54',1142356411,1,0,1,1,1,0,'','','Enrico,\n\nThere is a downside to putting temp files in the current directory when the program is being run from a server. This slows down the application.\n\nIt might be better (when TEMP isn\'t found) to check for c:\\temp and if it doesn\'t exist, then create it and use this instead.\n\nI know most Windows versions have a c:\\windows\\temp but some versions have security which won\'t allow users write access to it.\n\nThere is also an upside to using the server to hold temp files, and that is that any orphan temp files can be periodically deleted either by the application or an administrator.\n\nJames','',0,'gA==','2sgl3l07',1,0,'',303,0,0),(9355,2180,3,303,0,'68.7.28.54',1142357359,1,0,1,1,1,0,'','','Richard,\n\nI found the note below in my archives. I don\'t know if it will help.\n\nIf it doesn\'t help, perhaps you can contact Kleyber for help.\n\nAlso, there is a FW function escape() for sending escape codes to the printer.\n\nJames\n\n---------------------\nPosted: 12/25/03\n\nEvans,\n\n    Try putting this line in your main prg before open any databases.\n\n   xHd  := GetPrintDefault( GetActiveWindow() )\n\nRegards and Merry Christmas\n\n--\nKleyber Derick Batalha Ribeiro\nDiretor de Produtos\nTK Informídia Ltda\nemail: <!-- e --><a href=\"mailto:kleyber@tkinformidia.net\">kleyber@tkinformidia.net</a><!-- e -->\nWeb: <!-- w --><a class=\"postlink\" href=\"http://www.tkinformidia.net\">www.tkinformidia.net</a><!-- w -->','',0,'gA==','3s3gy7m6',1,0,'',303,0,0),(9356,2149,1,6,0,'82.57.160.40',1142357645,1,0,1,1,1,1,'','','Agreed.\n\nEMG','',0,'gA==','3tsvoq9e',1,0,'',6,0,0),(9357,2179,6,77,0,'217.126.90.142',1142358727,1,0,1,1,1,0,'','Re: error al compilar hbole','[quote=&quot;MANOLO&quot;:3nw6p7qm]Hola, tengo el siguiente error al compilar la libreria hbole.lib:\n\nError: Unresolved external \'_hb_vmMessage\' referenced from C:\\FACTU32\\LIB\\HBOLE.LIB|ole2\n\nGracias por vuestra ayuda\n\n\nharbour 0.44 fwh 25[/quote:3nw6p7qm]\n\nantonio por favor podrías indicarme en que .h está el hb_vmmessage o que debo hacer para que no salga este error.\n\nsaludos.','',0,'gA==','3nw6p7qm',1,0,'',77,0,0),(9358,2192,7,262,0,'212.89.4.48',1142359190,1,0,1,1,1,1,'','','si te refieres al fivewin 1.0 , lo tengo por algun lado con caja de plastico y todo  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n[img:2owwxpkp]http&#58;//img524&#46;imageshack&#46;us/img524/4712/five14gb&#46;jpg[/img:2owwxpkp]\n\ny para rematar lo antiguo me encontre con esto :\n\n[img:2owwxpkp]http&#58;//img455&#46;imageshack&#46;us/img455/9998/disco18ri&#46;jpg[/img:2owwxpkp]\n\nDisco floppy de 8 pulgadas y 1024 bytes de capacidad  sistema operativo CP-M  todo un logro de la tecnica  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ,  un par de años despues vino el 5 pulgadas con ms-dos 2.0.','',0,'CA==','2owwxpkp',1,0,'',262,0,0),(9359,2186,2,404,0,'85.155.212.16',1142361703,1,0,1,1,1,0,'','Para imprimir, en Windows','Si, lo que va ha imprimir, es dentro de Windows. \n\nLe recomiendo TPRINTER de Rafa Carmona (TheFull ). Después de hacer muchas pruebas, me he decantado por ella.\n\nEs muy facil de manejar.\n\nLos Presupuestos, y Las Facturas, de la aplicación, que esta en realización. Han quedado, mejor de lo que pensaba. Y sin manejar, el color.\n\nImagino que, en color pueden quedar mucho mejor. Pero lo dejaré, para una proxima versión.\n\nSalu2, José Mª','',0,'CA==','39y49q1f',1,0,'',404,0,0),(9360,2154,6,228,0,'201.245.222.85',1142361822,1,0,1,1,1,1,'','ok Gracias','Listo Marco  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> de nuevo gracias amigo, estupenda solución. Funciono perfectamente.','',0,'CA==','19o8h4ey',1,0,'',228,0,0),(9361,2176,2,375,0,'84.122.99.241',1142364182,1,0,1,1,1,1,'','','Intenta esto a ver que tal va:\n\nFunction CheckFile(oTmr) \nSelect 1 \nGo 1 \niF aRetiros-&gt;Ventas &gt;= 15000 \n\noTmr:DeActivate()   &lt;---------------------\n\nMsgAlert(\"Favor de Retirar Efectivo de Caja\",\"Advertencia\") \n\noTnr:Activate()   &lt;---------------------\n\nEndif \nReturn Nil \n\n\nSi no te funciona, intenta esto otro. \nPrimero define una variable estática. Por ejemplo:\n\nSTATIC lMsg := .T.\n\nDespués el Timer:\n\nDefine TIMER oTmr INTERVAL 5000 ACTION if(lMsg,CheckFile(oTmr),NIL) of oDlg \n\nFinalmente la función:\n\nFunction CheckFile(oTmr) \nSelect 1 \nGo 1 \niF aRetiros-&gt;Ventas &gt;= 15000 \n\nlMsg := .F.   &lt;---------------------\n\nMsgAlert(\"Favor de Retirar Efectivo de Caja\",\"Advertencia\") \n\nlMsg := .T.   &lt;---------------------\n\nEndif \nReturn Nil \n\nEsto debería funcionar. Mientras esté el MsgAlert, lMsg está a .F. y el timer no llama a la función. Cuando sales del MsgAlert, lMsg retorna a .T. y el timer vuelve a llamar a la función.','',0,'CA==','3o6rpj20',1,0,'',375,0,0),(9362,2202,7,490,0,'80.24.224.89',1142364647,1,0,1,1,1,0,'','Problemas Socket y Windows CE 4.2','Hola,\n\nIntentado juguetear con los sockets he descubierto que dan un internal error en Windows CE, sin embargo en Windows Mobile parece que va bien, incluyendo el emulador.\n\nLas pruebas las estoy haciendo con una casio cassiopea IT-600\n\nEsto falla:  o := TSocket():New( , oWnd )\n\nEsto también: nSocket := Socket( AF_IRDA, SOCK_STREAM, 0 )\ndevuelve -1 en vez de un nº de socket y no es un valor válido.\n\nEs muy importante, pues inmediatamente, perdemos compatibilidad con las máquinas industriales bajo win CE.\n\n\nUn Saludo,\nJoaquín','',0,'CA==','17o1hnc8',1,0,'',490,0,0),(9363,2201,6,2,0,'87.218.146.101',1142364827,1,0,1,1,1,1,'','','Ruben,\n\nEste ejemplo funciona con el build 2.7 de marzo:\n[code:3uhpses0]\n#include &quot;Fivewin&#46;ch&quot; \n\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg, oBrw \n\n    DEFINE DIALOG oDlg \n\n    @ 1, 1 LISTBOX oBrw FIELDS SIZE 100, 30 \n\n    oBrw&#58;bKeyDown&#58;= &#123;|nK| if&#40; nK==VK_RETURN, &#40; MsgInfo&#40;&#41;, oDlg&#58;End&#40;&#41; &#41;, &#41; &#125;\n    \n    @ 3, 1 BUTTON &quot;&amp;Close&quot;; \n           ACTION oDlg&#58;End&#40;&#41; \n\n    ACTIVATE DIALOG oDlg; \n             CENTER \n\n    RETURN NIL\n[/code:3uhpses0]','',0,'AIA=','3uhpses0',1,0,'',2,0,0),(9364,2129,2,375,0,'84.122.99.241',1142364883,1,0,1,1,1,1,'','','El AEVAL sería así:\n\nAEVAL(aDbf,{ |v,i| aDbf[i,3] := Val(v[3])})  // \"i\"  es Indice y \"v\" es Valor, para cada elemento evaluado.\n\nEn cuanto a la velocidad, AEVAL es más rápido que FOR...NEXT pero desconozco si es más mejor que FOR EACH.\n\nUn saludo','',0,'','31da2mrs',1,0,'',375,0,0),(9365,2177,7,262,0,'83.97.168.140',1142365186,1,0,1,1,1,1,'','','¿Nadie consiguió poner el datepicker a la española ? .\nEs importante para su uso real dentro del programa .\nSaludos.','',0,'','10fvagu1',1,0,'',262,0,0),(9366,558,6,2,0,'87.218.146.101',1142365381,1,0,1,1,1,1,'','','Armando,\n\nPuedes incluir esta función en un PRG tuyo:\n[code:2j717s31]\n#pragma BEGINDUMP\n\nvoid hb_vmFunction&#40; unsigned short uiParams &#41;;\n\nvoid hb_vmMessage&#40; unsigned short uiParams &#41;\n&#123;\n   hb_vmFunction&#40; uiParams &#41;;\n&#125;\n#pragma ENDDUMP\n[/code:2j717s31]','',0,'AIA=','2j717s31',1,0,'',2,0,0),(9367,2194,6,2,0,'87.218.146.101',1142365629,1,0,1,1,1,1,'','','Clemerson,\n\nDo you mean that the focus from the GET goes to the pushbutton ?','',0,'AIA=','3rbwftz2',1,0,'',2,0,0),(9368,2194,6,2,0,'87.218.146.101',1142365845,1,0,1,1,1,1,'','','Please try this sample. Is it ok ?\n[code:35yrqtqj]\n#include &quot;Fivewin&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg \n    LOCAL cVar &#58;= SPACE&#40; 30 &#41; \n\n    DEFINE DIALOG oDlg \n\n    @ 1, 1 GET cVar \n    \n    @ 3, 3 BUTTON &quot;&amp;OK&quot; ACTION MsgInfo&#40; &quot;action&quot; &#41;\n\n    ACTIVATE DIALOG oDlg; \n             CENTER \n\n    RETURN NIL\n[/code:35yrqtqj]','',0,'AIA=','35yrqtqj',1,0,'',2,0,0),(9369,2177,7,2,0,'87.218.146.101',1142366026,1,0,1,1,1,1,'','','Jose Luis,\n\nSe configura en el propio Pocket PC, en \"settings\", \"System\", \"Regional settings\" <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','8vo6d15d',1,0,'',2,0,0),(9370,2202,7,2,0,'87.218.146.101',1142366264,1,0,1,1,1,1,'','','Joaquín,\n\nCon los builds más recientes de FWPPC se indica la descripción del error interno. ¿ Que descripción te sale ?','',0,'AIA=','n9sualue',1,0,'',2,0,0),(9371,2180,3,3,0,'82.65.131.208',1142366339,1,0,1,1,1,1,'','','[quote=&quot;Davide&quot;:14ye6kqw]Richard,\n\nYou may want to have a look at xHarbour\'s PrintFileRaw() function.\n\nHi,\nDavide[/quote:14ye6kqw]\n\nThank you i will have a look at this function. Though i use fw printing, i will check if both can work together (this is my problem)\n\nRichard','',0,'gA==','14ye6kqw',1,0,'',3,0,0),(9372,2179,6,2,0,'87.218.146.101',1142366551,1,0,1,1,1,1,'','','Armando, \n\nPuedes incluir esta función en un PRG tuyo: \nCode: \n[code:2xdar3e2]\n#pragma BEGINDUMP \n\nvoid hb_vmFunction&#40; unsigned short uiParams &#41;; \n\nvoid hb_vmMessage&#40; unsigned short uiParams &#41; \n&#123; \n   hb_vmFunction&#40; uiParams &#41;; \n&#125; \n#pragma ENDDUMP\n[/code:2xdar3e2]','',0,'AIA=','2xdar3e2',1,0,'',2,0,0),(9373,2180,3,3,0,'82.65.131.208',1142366606,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1939ca8n]Richard,\n\nI found the note below in my archives. I don\'t know if it will help.\n\nIf it doesn\'t help, perhaps you can contact Kleyber for help.\n\nAlso, there is a FW function escape() for sending escape codes to the printer.\n\nJames\n\n---------------------\nPosted: 12/25/03\n\nEvans,\n\n    Try putting this line in your main prg before open any databases.\n\n   xHd  := GetPrintDefault( GetActiveWindow() )\n\nRegards and Merry Christmas\n\n--\nKleyber Derick Batalha Ribeiro\nDiretor de Produtos\nTK Informídia Ltda\nemail: <!-- e --><a href=\"mailto:kleyber@tkinformidia.net\">kleyber@tkinformidia.net</a><!-- e -->\nWeb: <!-- w --><a class=\"postlink\" href=\"http://www.tkinformidia.net\">www.tkinformidia.net</a><!-- w -->[/quote:1939ca8n]\n\nThank you James,\n\nI will try Escape (hopefully it is in my old fwh printdc.c), i can not use recent fwh print because of easypreview ! \nHopefully we get a possibility of emailing PDf direct from fwh\'s preview, so I will not need easypreview anymore. \n\nBest regards\n\nRichard','',0,'gA==','1939ca8n',1,0,'',3,0,0),(9374,2180,3,2,0,'87.218.146.145',1142366791,1,0,1,1,1,1,'','','Richard,\n\nYour printdc.c surely has Escape().','',0,'gA==','2s1jqoxj',1,0,'',2,0,0),(9375,2202,7,490,0,'80.24.224.89',1142367505,1,0,1,1,1,0,'','','El mensage es un msgbox que casi no da tiempo de leerlo, pues desaparece sólo, como título pone \"hb_internal()\" y como texto \"internal error\".\n\nConstruído con el último build, no existe más descripción del error por ningún lado, ni siquiera como error.txt en la carpeta donde lo ejecuto.\n\n\n\nUn Saludo,\nJoaquín','',0,'gA==','32jwzj0r',1,0,'',490,0,0),(9376,2203,17,375,0,'84.122.99.241',1142367908,1,0,1,1,1,1,'','Sugerencias GET\'s','Me complace exponer algunos Datas que utilizo en mi clase GET que creo pueden interesar a más de una persona:\n\n1º) Evaluar bValid sólo si hubo cambios en el Get. Esto es interesante cuando el valid supone habrir una base de datos para comprobar ciertas cosas. ¿Para qué abrirla si no hubo cambios?\n\nSupone añadir tres Datas y cambiar un par de métodos.\n\n::OldDat  -&gt;  para guardar el contenido del Get cuando toma el foco\n::lCambio  -&gt; para saber si hubo cambios\n::lValidate  -&gt;  por si queremos obligar a que se procese bValid. (para mi gusto, por defecto .F.)\n\nMETHOD GotFocus( hCtlLost ) CLASS MIGET\n...\n::OldDat := ::VarGet()\n...\n\n\nMETHOD lValid() CLASS MIGET\nLOCAL xGet := ::VarGet()\nLOCAL lRet := .T.\n*\n::lCambio := !(::OldDat==xGet) .OR. ::lCambio    //   el .OR. lCambio es necesario para ciertas situaciones en que el foco abandona el Dialogo del Get haciendo caso omiso de la validación, y después vuelve al Get. (alguna vez me ha ocurrido)\n*\nIF ::oGet:BadDate\nMsgBeep()\nRETURN .F.\nELSEIF ValType( ::bValid ) == \"B\" .AND. ( ::lCambio .OR. ::lValidate )  // evaluar sólo si hubo cambios o si forzamos con lValidate\nlRet := Eval( ::bValid, Self  )\n::lCambio := .F.\nENDIF\nRETURN lRet\n\n2º) La siguiente sugerencia es muy sencilla y práctica. Un sólo DATA\n\n::lBlank  -&gt;  Nos dice si el contenido del Get está vacio o es NIL. Parece una tontería, pero ahorra tiempo a la hora de programar. Sobre todo cuando el Empty() dá problemas porque el Get, por cualquier razón se ha hecho igual a NIL\n\nMETHOD Initiate( hDlg ) CLASS MIGET\n...\n::lBlank := Empty(::cCaption)\n...\n\nMETHOD lValid() CLASS MIGET\nLOCAL xGet := ::VarGet()\n...\n::lBlank  := (xGet = NIL .OR. Empty(xGet))\n...\n\nAsí de sencillo\n\nTengo más sugerencias, pero basta por hoy, pues a lo mejor esto os parece una necedad.\n\nUn saludo','',0,'gA==','1glkyvzx',1,0,'',375,0,0),(9377,2184,2,198,0,'201.155.83.251',1142368544,1,0,1,1,1,1,'','CHECK SUM','Gracias Willi!\nVoy a hacer la prueba.\n\nLaura E. Hernández <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2o8qk7x2',1,0,'',198,0,0),(9378,2194,6,486,0,'200.184.85.3',1142369773,1,0,1,1,1,0,'','','Antonio,\n \nHe didn\'t give right, the focus was in BUTTON.\n\n[img:2hzyyp2m]http&#58;//www&#46;sysfar&#46;com&#46;br/temp/tela2&#46;jpg[/img:2hzyyp2m]\n\nClemerson','',0,'CA==','2hzyyp2m',1,0,'',486,0,0),(9379,2194,6,486,0,'200.184.85.3',1142369953,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:8anwttmb]Clemerson,\n\nDo you mean that the focus from the GET goes to the pushbutton ?[/quote:8anwttmb]\n\ndid this, in the versions previous of the fwhx go back to GET when it uses shortcut ALT+????','',0,'gA==','8anwttmb',1,0,'',486,0,0),(9380,2132,6,486,0,'200.184.85.3',1142370143,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:24nqepf6]Se me ocurre:\n\ntest1.exe\ntest := .F.\n\nTest2.exe\ntest := .T.\nSAVE TO archivo ALL LIKE test\n\nTest1.exe\nRESTORE FROM archivo ADDITIVE[/quote:24nqepf6]\n\nRene,\n\nit could not generate any file in HD, he has to be access in the memory.\n\nClemerson','',0,'gA==','24nqepf6',1,0,'',486,0,0),(9381,2204,3,3,0,'82.65.131.208',1142371573,1,0,1,1,1,1,'','button caption bug','We can not change anymore the button caption \"on the fly\" as in the sample below. The caption does not change. \nUsing sbutton instead of button will display the correct caption while clicking.\n\nRichard\n\nFUNCTION MAIN()\nLOCAL oDlg,OBTN\nLOCAL LTEST := .T.\n\nDEFINE DIALOG oDlg TITLE \"Button test\"\n@ 01,01 BUTTON OBTN PROMPT \"Activate\" OF ODLG SIZE 50,12 ;\n       ACTION (if(LTEST,(LTEST := FALSE,obtn:ccaption := \"Active\" ),(LTEST := TRUE ,obtn:ccaption :=  \"Inactive\" )) , obtn:refresh(),ODLG:update())\nACTIVATE DIALOG oDlg CENTER\n\nreturn nil','',0,'gA==','i6v8bx4o',1,0,'',3,0,0),(9382,2205,3,299,0,'69.65.95.131',1142372689,1,0,1,0,1,0,'','TBitMap from resources causes Error FiveWin/3','Hi.\n\nHave a dialog with a single control in it.\n[code:lc0esst4]\n CONTROL &quot;&quot;, 1000, &quot;TBITMAP&quot;, WS_CHILD | WS_VISIBLE, 7, 24, 123, 355\n[/code:lc0esst4]\n\nWhen excuted, I get a fivewin/3 can not create dialog.  \n\n[quote:lc0esst4]\n  Path and name: F:\\mp\\triage.exe (32 bits)\n   Size: 2,203,648 bytes\n   Time from start: 0 hours 0 mins 7 secs \n   Error occurred at: 03/14/2006, 16:40:09\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: XRAYORDERS\n\nStack Calls\n[/quote:lc0esst4]\nIf I remove the control, then no error.  Can\'t figure out what\'s wrong.\nI\'m using dialogs with bitmaps in other apps with no problems. But for some reason I get this error only with this particular app.  Can someone help?\n\nThank you,\n\n\nReinaldo.','',0,'gIA=','lc0esst4',1,0,'',299,0,0),(9383,2193,6,362,0,'200.168.52.156',1142373440,1,0,1,1,1,1,'','','Gracias a todos, resolvido, resuelto.\n\nCambiei PREV32.DLL y funcionó perfecto.\n\nSaludos a todos ustedes.','',0,'gIA=','20s2m4jt',1,0,'',362,0,0),(9384,2205,3,6,0,'82.57.160.40',1142373652,1,0,1,1,1,1,'','Re: TBitMap from resources causes Error FiveWin/3','Try with another id (ie. 101) or with \"TBitmap\" (note the case). Check also that you correctly REDEFINEd the control.\n\nOnly a stub in the dark.\n\nEMG','',0,'gIA=','1jnpoquy',1,0,'',6,0,0),(9385,2172,3,217,0,'200.204.97.49',1142373846,1,0,1,1,1,0,'','','James,\n\nMy fault! I forgot to mention it can be used only by users that have these focus problems.\nI don´t tested with default pushbuttons yet.\nIn FWH 2.6 worked fine, when I migrate to 2.7 I had this focus problems when I use any sequence of when/valid clauses in gets and/or pushbuttons.\n\nRegards,\nMaurilio','',0,'gIA=','4gtt5bec',1,0,'',217,0,0),(9386,2171,3,217,0,'200.204.97.49',1142373884,1,0,1,1,1,0,'','','Thanks a lot, Antonio!\n\nBest regards!\nMaurilio','',0,'gIA=','3lf604tx',1,0,'',217,0,0),(9387,2204,3,6,0,'82.57.160.40',1142373899,1,0,1,1,1,1,'','Re: button caption bug','This is a working sample:\n\n[code:2svzly3v]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON oBtn PROMPT &quot;Change&quot;;\n           ACTION oBtn&#58;SetText&#40; &quot;Changed&quot; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2svzly3v]\n\nEMG','',0,'AIA=','2svzly3v',1,0,'',6,0,0),(9388,2180,3,305,0,'200.121.32.92',1142373951,1,0,1,1,1,0,'','','Have a look at this example, maybe can help you.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.solupymes.com/fwin/tdosprev.zip\">www.solupymes.com/fwin/tdosprev.zip</a><!-- w --> \n\nThis was published in the spanish forum at Feb/07','',0,'AIA=','86c4qgi3',1,0,'',305,0,0),(9389,2205,3,299,0,'69.65.95.131',1142374406,1,0,1,0,1,0,'','','Enrico;\n\nAlways appreciate your answers.\n\nI\'m reducing the code to the bare minimum.  This all happens from within the method of a class.\n[code:1d9prl8g]\nlocal oSelf &#58;= Self\n\n	DEFINE DIALOG &#58;&#58;odlg NAME &quot;XRAYORDERS&quot; OF &#58;&#58;oWnd TITLE &quot;Xray Orders&quot;\n\n	ACTIVATE DIALOG oSelf&#58;oDlg CENTERED\n[/code:1d9prl8g]\n\nThe dialog code from resource after the changes you suggeted:\n[code:1d9prl8g]\nXrayOrders DIALOG 6, 15, 431, 417\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;xRay Orders&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;&quot;, 101, &quot;TBitmap&quot;, WS_CHILD | WS_VISIBLE, 7, 24, 123, 355\n&#125;\n[/code:1d9prl8g]\n\nSame error.  But if I remove the TBitmap control from the dialog, no errors.\n\nReinaldo.','',0,'AIA=','1d9prl8g',1,0,'',299,0,0),(9390,2180,3,487,0,'151.42.225.248',1142374799,1,0,1,1,1,0,'','','[quote=&quot;Richard Chidiak&quot;:33j5210v]\n\nThough i use fw printing, i will check if both can work together (this is my problem)\n\nRichard[/quote:33j5210v]\n\nI use them both in a FWH project of mine, so, yes, they can work together (one after the other).\n\nHi, Davide.','',0,'gA==','33j5210v',1,0,'',487,0,0),(9391,2206,3,217,0,'200.204.97.49',1142374804,1,0,1,1,1,0,'','Theme names under XP','Is possible to detect XP theme names?\nI think paint the background color of outlook class based on XP theme (blue, silver or green...).\n\nRegards,\nMaurilio','',0,'gA==','3q0hzkku',1,0,'',217,0,0),(9392,2207,6,278,0,'200.72.147.139',1142375125,1,0,1,1,1,1,'','Ayuda con el xBrowse - 2','Amigos del Foro:\n\nAqui estoy de nuevo dando la lata, pero decidi usar este browse y\npor eso estoy medio \" verde\" o nuevo en su uso.\n\n1) Como puedo hacer para que la ultima columna del xbrowse(),\ntome todo el ancho que resta de la ventana. \n\nPorque cuando son 2 columnas por ejemplo, queda al la derecho un espacio, en blanco, que se ve muy feo. y deseeo que la ultima columna del browse, lo ocupe todo.\n\n2) Parece que para poner una imagen se puede usar esto :\nInsert image: [img:6nru5oot]http&#58;//image_url[/img:6nru5oot]  (alt+p)\n\nConocen algun sitio donde dejarla almacenada ?? , para que los mensajes salgan mas explicativos.\n\nGracias por cualquier orientación.\n\n\nJuan[/img]','',0,'CA==','6nru5oot',1,0,'',278,0,0),(9393,2205,3,6,0,'82.57.160.40',1142375516,1,0,1,1,1,1,'','','As I said, you missed REDEFINE BITMAP...\n\nEMG','',0,'CA==','35tsc6sn',1,0,'',6,0,0),(9394,2186,2,305,0,'200.121.32.92',1142376396,1,0,1,1,1,0,'','','Lubin:\n\nDate una vuelta por el foro de Harbour/xHb español.  Publique un mensaje el 7/Feb que te puede ayudar.  \"Tdosprn e impresoras laser\"\n\n\nRalph','',0,'CA==','2ly97tqu',1,0,'',305,0,0),(9395,2176,2,304,0,'200.67.162.185',1142378638,1,0,1,1,1,0,'','','Hola:\n\nSolo para decirte que las opciones me han funcionado correctamente, gracias por tu tiempo y ayuda.\nsalu2\nVeracruz; mexico','',0,'CA==','v3zax4ue',1,0,'',304,0,0),(9396,2208,3,49,0,'87.7.179.169',1142379835,1,0,1,1,1,1,'','Five-XL','Someone have this class ?\nlook at <!-- m --><a class=\"postlink\" href=\"http://www.google.com/fivexle.htm\">http://www.google.com/fivexle.htm</a><!-- m -->\nRegards\nsilvio','',0,'CA==','359hj966',1,0,'',49,0,0),(9397,1975,3,299,0,'69.65.95.131',1142380965,1,0,1,0,1,0,'','','Roger/Antonio;\n\nWere you able to get any of these two approaches to work?\n\nI\'m dealing with the same situation.  Have a timage control on a dialog and want to execute different code if clicked on different areas of the image.  I\'m trying with the tBmpBtn placed on top of the tImage control, but it is always visible no matter what.  If ltransparent set to .t., then the bmpbtn displays as a black box.\n\nHere the code I\'m using:\n[code:2nysbukb]\n	DEFINE DIALOG &#58;&#58;odlg NAME &quot;xRayOrders&quot; OF &#58;&#58;oWnd TITLE &quot;Patient Xray Orders&quot; BRUSH oBrush\n	REDEFINE BTNBMP aoBtn&#91; 1 &#93; ID 101 OF &#58;&#58;oDlg NOBORDER ACTION oSelf&#58;addXray&#40; &quot;Head&quot; &#41; TOOLTIP &quot;Head xRays&quot;\n\n	REDEFINE BITMAP oImage1 ID 100 OF &#58;&#58;oDlg FILE cPath + &quot;Human_Front&#46;jpg&quot; //CURSOR oCursor //TRANSPARENT\n	REDEFINE BITMAP oImage2 ID 200 OF &#58;&#58;oDlg FILE cPath + &quot;Human_Back&#46;jpg&quot; //CURSOR oCursor //TRANSPARENT\n	ACTIVATE DIALOG oSelf&#58;oDlg CENTERED ON INIT oSelf&#58;BuildXrayOrdersControls&#40;&#41; ;\n		Valid SaveBrwState&#40; oSelf&#58;oLbx, &quot;XrayOrders&quot; &#41;\n[/code:2nysbukb]\n\nAny ideas?\n\nThank you,\n\nReinaldo.','',0,'AIA=','2nysbukb',1,0,'',299,0,0),(9398,2209,6,492,0,'201.127.104.234',1142381400,1,0,1,1,1,0,'','Problemas con DBCOMBO, PAGES y TGROUP con xHarbour + FWH 2.7','Hola a todos\n\nEstoy casi terminando de migrar una App de 16 a 32 usando FWH 2.7 Marzo + xHarbour 0.99.61, salvo algunos detalles que he podido superar, todo va OK !!\n\nUsando un bmp de fondo para lograr la transparencias en los dialogos, ( cosa que funciona muuuy bien !! ) me estoy encontrando con estos detalles, En los Pages NO lo aplica,  no muestra el DBCOMBO correctamente ( sale una linea azul ) aunque si funciona y en Grupos a veces toma un color diferente para la transparencia del encabezado ( sobre todo si se usa algun bmp con colores diferentes o algun degrado ).\n\nAsi mismo, como se le podria cambiar el color con que pinta el marco del Grupo, en ocasiones se pierde por completo.\n\nQuise anexar imagenes para ilustrar el tema, pero no pude  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  sorry !\n\n\nMuchas Gracias.','',0,'AIA=','2whdiwxt',1,0,'',492,0,0),(9399,2208,3,2,0,'87.218.146.145',1142381532,1,0,1,1,1,1,'','','Silvio,\n\nYou may use Excel ActiveX. Please review samples\\excel.prg','',0,'AIA=','3r3zewfl',1,0,'',2,0,0),(9400,558,6,53,0,'201.144.54.35',1142388178,1,0,1,1,1,1,'','','Antonio:\n\nMuchas gracias, solucionado.\n\nSaludos','',0,'AIA=','1vlq080x',1,0,'',53,0,0),(9401,2210,6,53,0,'201.144.54.35',1142388601,1,0,1,1,1,1,'','De 32 a 16 bits','Saludos amigos del foro:\n\nResulta que una aplicación que esta compilada con Harbour 45, FWH 2.5 March y con recursos en RC incluyendole el archivo Themed, en Windows XP se ve como aplicación de 32bits, y lo es, pero en Windows 2000 toma la apariencia de 16 bits.\n\nAlguna idea de por qué ?\n\nUn abrazo a todos','',0,'AIA=','2hby2a12',1,0,'',53,0,0),(9403,2201,6,61,0,'201.217.161.31',1142397641,1,0,1,1,1,0,'','','Gracias Maestro:\n\nAparentemente tenía declarado nk:=LastKey()\ny esto era lo que me complicaba.\n\nGracias y saludos.\n\nRuben Fernandez.','',0,'AIA=','2pe16bka',1,0,'',61,0,0),(9404,2210,6,2,0,'87.218.146.145',1142410868,1,0,1,1,1,1,'','','Armando,\n\nWindows 2000 no tiene soporte de temas como XP ó Windows 2003 server.','',0,'AIA=','18t9zey3',1,0,'',2,0,0),(9406,2212,3,190,0,'202.65.134.27',1142417820,1,0,1,1,1,0,'','FWH 2.5 February - NOWAIT not working in DIALOGs','Dear Mr.Antony\n\nI am using FWH 2.5 February.  The NOWAIT clause in ACTIVATE DIALOG\nis not seem to be working. \n\nI tested DLGTEST and TESTDLGN in samples directory.\n\nRegards,\n\n- Ramesh Babu P','',0,'AIA=','190ecvhc',1,0,'',190,0,0),(9407,2213,16,2,0,'87.218.146.145',1142420314,1,0,1,1,1,1,'','New FWPPC with folders with resources dialogboxes','There is a new FWPPC build already available with support for folders using resources dialogboxes. Please review samples\\TestFld.prg','',0,'AIA=','2h0zh0ig',1,0,'',2,0,0),(9408,2214,4,2,0,'87.218.146.145',1142420506,1,0,1,1,1,1,'','New FWPPC with folders with resources dialogboxes','There is a new FWPPC build already available with support for folders using resources dialogboxes. Please review samples\\TestFld.prg','',0,'AIA=','2bb9gmrd',1,0,'',2,0,0),(9409,2215,7,2,0,'87.218.146.124',1142420811,1,0,1,1,1,1,'','Nuevo build de FWPPC con folders usando recursos','Ya hay disponible un nuevo buidld de FWPPC con soporte de recursos para construir los folders. Por favor revisad el ejemplo samples\\TestFld.prg.','',0,'AIA=','3bfme31u',1,0,'',2,0,0),(9410,2212,3,2,0,'87.218.146.124',1142421967,1,0,1,1,1,1,'','','Ramesh,\n\nDo you mean FWH 2.5 or 2.7 ?\n\nWe have just tested both samples and they work fine here.','',0,'AIA=','1u5egd26',1,0,'',2,0,0),(9411,2209,6,362,0,'200.168.52.156',1142423912,1,0,1,1,1,1,'','','LOCAL oGroup\n\n//-&gt; Color en el Group Box\nREDEFINE GROUP oGroup ID 501 COLOR CLR_BLACK   OF oDlg                    ;\nFONT oFont TRANSPARENT','',0,'AIA=','hp2i94ne',1,0,'',362,0,0),(9412,2204,3,3,0,'81.249.63.216',1142424147,1,0,1,1,1,1,'','Re: button caption bug','[quote=&quot;EnricoMaria&quot;:y8lfypua]This is a working sample:\n\n[code:y8lfypua]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON oBtn PROMPT &quot;Change&quot;;\n           ACTION oBtn&#58;SetText&#40; &quot;Changed&quot; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:y8lfypua]\n\nEMG[/quote:y8lfypua]\n\nEnrico,\n\nThank you\n\nRichard','',0,'gIA=','y8lfypua',1,0,'',3,0,0),(9413,2210,6,53,0,'201.138.37.252',1142425689,1,0,1,1,1,1,'','','Antonio:\n\nGracias por la luz, eso significa que debe quedarse con la apariencia de 16 bits ?.\n\nSaludos','',0,'gIA=','1pitnjz7',1,0,'',53,0,0),(9414,2149,1,193,0,'195.212.29.171',1142427279,1,0,1,1,1,0,'','','After reading I can conclude that idea to have a program parameter which specifies a temp directory (for example, MyProg /TMP:c:\\somepath) deserves consideration. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','2xu2wapt',1,0,'',193,0,0),(9415,2215,7,449,0,'212.64.224.250',1142428438,1,0,1,1,1,0,'','','Antonio,\n\nGenial !  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> . He tenido q retocar solo un par de cosillas para que el la definicion del folder tambien se pueda crear desde recursos y funciona de maravilla !\n\nThanks a lot !\n\nC.','',0,'gIA=','3kd476a8',1,0,'',449,0,0),(9416,2209,6,492,0,'201.127.104.234',1142434315,1,0,1,1,1,0,'','','Gracias por responder Joao\n\nEfectivamente con eso cambio el color del Grupo, pero que crees ? no me muestra ningun control/objeto, hasta que le paso el mouse por encima o le doy click.\n\nEsta curioso  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Si le activo los REDEFINE de los grupos no me muestra nada y si los desactivo ya muestra todo OK, pero con la linea de un color apenas perceptible.   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nA alguien le ha pasado algo similar ??\n\nMuchas Gracias','',0,'gIA=','1c9y2xte',1,0,'',492,0,0),(9417,2210,6,110,0,'165.98.151.243',1142436967,1,0,1,1,1,1,'','','Pordrias instalar las utilidades de stardock para poner skin a las ventanas, funciona solo en 32 bits. \n\nsalu2\ncarlos vargas','',0,'gIA=','3qjpwh7c',1,0,'',110,0,0),(9418,2208,3,110,0,'165.98.151.243',1142437516,1,0,1,1,1,1,'','','En Delphi venia un control activex, creo que se llamaba Formule One, el cual permitia la creacion de hojas de calculos, era bastante completo.\n\n\nsalu2\ncarlos vargas','',0,'gIA=','3moim9er',1,0,'',110,0,0),(9419,2209,6,362,0,'200.168.52.156',1142439501,1,0,1,1,1,1,'','','#Include \"SSay.Ch\"         \n\nUsted Necesitas incorporar a tu aplicacion, SSAY.PRG Y SSAY.CH y asi, te\nfuncionara perfecto. \n\nUse la Version Para 32 bits de SSAY.PRG\n\nSaludos.','',0,'gIA=','3l38i6w1',1,0,'',362,0,0),(9420,2210,6,362,0,'200.168.52.156',1142439700,1,0,1,1,1,1,'','','[quote=&quot;carlos vargas&quot;:31fjsefb]Pordrias instalar las utilidades de stardock para poner skin a las ventanas, funciona solo en 32 bits. \n\nsalu2\ncarlos vargas[/quote:31fjsefb]\n\nHelo Carlos,  Bién?\n\nKe és stardock??? Explica-me por favor. Como funciona? Donde Encuentro?\n\nUn Gran saludo pra ti, querido amigo!','',0,'gA==','31fjsefb',1,0,'',362,0,0),(9421,2212,3,190,0,'202.65.134.45',1142440266,1,0,1,1,1,0,'','','Dear Antonio\n\n[quote:3iyrftzt]We have just tested both samples and they work fine here.[/quote:3iyrftzt]\n\nYou are write.  The following functions in my library are the culprits which\nhave changed the behaviour of the DIALOG.  For the time being I can\'t say\nHow and Why !.\n\n*******************************************************************************\n*** FUNCTION to Show/Hide DeskTop Taskbar or to Find a Window               ***\n*******************************************************************************\n\nDLL32 Function ShowWindow(hwnd as LONG, nCmdShow as LONG) AS LONG ;\nPASCAL FROM \"ShowWindow\" Lib \"user32.dll\"\n    \nDLL32 Function FindWndByClass(wndClass AS LPSTR,WndName as LPSTR) AS LONG ;\n\n******************\n\nI removed the reference of these two DLL calls from my library and now\nI got the original behaviour of the DIALOGs.\n\nThank you for pains you have taken for me.\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','3iyrftzt',1,0,'',190,0,0),(9422,2066,6,61,0,'201.217.169.67',1142441933,1,0,1,1,1,0,'','','Gracias Carlos.\n\nSaludos.\n\nRuben Fernandez','',0,'gA==','16yfdn7c',1,0,'',61,0,0),(9423,2209,6,2,0,'87.218.146.240',1142442770,1,0,1,1,1,1,'','','Raymundo,\n\nEsto está solucionado. Envíame un email privado y te explico.','',0,'gA==','2aesvrt3',1,0,'',2,0,0),(9424,2212,3,2,0,'87.218.146.240',1142442878,1,0,1,1,1,1,'','','Ramesh,\n\nYou are welcome. I am glad its working for you <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1b2yrrsz',1,0,'',2,0,0),(9425,2203,17,43,0,'201.127.49.107',1142443345,1,0,1,1,1,0,'','','Hola manuramos\n\n   hace poco vi una clase que desarrollaste donde pones una sombra a unos dialogos, me pregunto seria posible me orientaras a como hacerlo.\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','ljcdo4fy',1,0,'',43,0,0),(9426,2209,6,492,0,'201.127.104.234',1142444238,1,0,1,1,1,0,'','','Hola Joao\n\n\nYa hice lo que me comentas, y sigue haciendo lo mismo  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nCrees que esto suceda por que es un folder ???\n\nYa lo probe en un dialogo y tambien hace lo mismo.....\n\nMuchas Gracias por tu tiempo  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'gA==','1ragv60b',1,0,'',492,0,0),(9427,2215,7,262,0,'212.89.4.87',1142444680,1,0,1,1,1,1,'','','Carles, seria interesante ver los ajustillos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1w5f37rx',1,0,'',262,0,0),(9428,1975,3,2,0,'87.218.146.240',1142444938,1,0,1,1,1,1,'','','Roger, Reinaldo,\n\nHere you have a working sample:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/3041ea23/hotspot.zip.html\">http://hyperupload.com/download/3041ea2 ... t.zip.html</a><!-- m -->','',0,'gA==','89kxdmdo',1,0,'',2,0,0),(9429,2209,6,362,0,'200.168.52.156',1142445938,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:26nl1ul8]Raymundo,\n\nEsto está solucionado. Envíame un email privado y te explico.[/quote:26nl1ul8]\n\nPorque Email PRIVADO Antonio??? No compreendo?? Mi funciona Perfecto aká! Ke pasa???','',0,'gA==','26nl1ul8',1,0,'',362,0,0),(9430,2209,6,2,0,'87.218.146.240',1142446072,1,0,1,1,1,1,'','','Joao,\n\nEs un asunto privado que tenemos que resolver con Raymundo.','',0,'gA==','2v57fb40',1,0,'',2,0,0),(9431,2203,17,375,0,'84.122.99.241',1142447237,1,0,1,1,1,1,'','','Cierto Marco, hace poco puibliqué una clase TDIAG, que como la he cambiado ligeramente, te la vuelvo a pegar a continuación:\n\n#Include \"FiveWin.ch\"\n\n#define GWL_STYLE        -16\n#define GWL_EXSTYLE      -20\n#define WS_EX_TRANSPARENT	32\n\nCLASS TDIAG OF TDIALOG\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   DATA lSomb		AS LOGICAL	INIT .F.\n   DATA hFond,hPen,nDif\n\n   METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow )\n   METHOD Initiate( hWndFocus, hWnd )\n   METHOD Paint()\n   METHOD StartPaint()\n   METHOD PintSombra()\n   METHOD Destroy()\n\nENDCLASS\n\n\nMETHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) CLASS TDIAG\n   IF nClrShadow # NIL\n      ::lSomb := .T.\n      ::hPen  := CreatePen( 0,1,nClrShadow )\n   ENDIF\n   DEFINE BRUSH ::oBrush NULL\nRETURN Super:Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen )\n\nMETHOD Initiate( hWndFocus, hWnd ) CLASS TDIAG\n   LOCAL lFocus := Super:Initiate( hWndFocus, hWnd )\n   *\n   ::nDif := IF(lAnd(GetWindowLong(::hWnd,GWL_STYLE),WS_BORDER),1,0)\n   ::bStart := { || ::StartPaint() }\n*   SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) )\nRETURN lFocus\n\nMETHOD Paint() CLASS TDIAG\n   DrawBitmap( ::hDc, ::hFond, -::nDif, -::nDif )\n   IF ::bPainted # NIL\n      EVAL(::bPainted,::hDc)\n   ENDIF\nRETURN NIL\n*\nMETHOD StartPaint() CLASS TDIAG\n   IF ::lSomb\n      ::GetDc()\n        ::PintSombra(::hDc)\n      ::ReleaseDc()\n   ENDIF\n   IF ::bPainted # NIL\n      EVAL(::bPainted,::hDc)\n   ENDIF\n    ::hFond := WndBitmap(::hWnd)\nRETURN NIL\n*\nMETHOD PintSombra(hDc) CLASS TDIAG\n   LOCAL hOldP := SelectObject( hDc,::hPen )\n   LOCAL nCont1,nCont2 := 0\n   LOCAL nDesde := 2\n   LOCAL nHasta := ::nWidth+::nHeight-2\n   *\n   FOR nCont1 = nDesde TO nHasta STEP 2\n       nCont2 := nCont1 - ::nHeight\n       MoveTo(hDc,nCont1,0)\n       LineTo(hDc,nCont2,::nHeight)\n       MoveTo(hDc,nCont2,0)\n       LineTo(hDc,nCont1,::nHeight)\n   NEXT\n   SelectObject( hDc,hOldP )\nRETURN NIL\n\nMETHOD Destroy() CLASS TDIAG\n   DeleteObject(::hFond)\n   DeleteObject(::hPen)\nRETURN NIL\n\nNo tienes más que copiar y pegar.\n\nEn el fichero de cabecera añade:\n\n#xcommand DEFINE TRANSPDIAG &lt;oDlg&gt; ;\n             [ &lt;resource: NAME, RESNAME, RESOURCE&gt; &lt;cResName&gt; ] ;\n             [ TITLE &lt;cTitle&gt; ] ;\n             [ FROM &lt;nTop&gt;, &lt;nLeft&gt; TO &lt;nBottom&gt;, &lt;nRight&gt; ] ;\n             [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n             [ &lt;lib: LIBRARY, DLL&gt; &lt;hResources&gt; ] ;\n             [ &lt;vbx: VBX&gt; ] ;\n             [ STYLE &lt;nStyle&gt; ] ;\n             [ &lt;color: COLOR, COLORS&gt; &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ;\n             [ BRUSH &lt;oBrush&gt; ] ;\n             [ &lt;of: WINDOW, DIALOG, OF&gt; &lt;oWnd&gt; ] ;\n             [ &lt;pixel: PIXEL&gt; ] ;\n             [ ICON &lt;oIco&gt; ] ;\n             [ FONT &lt;oFont&gt; ] ;\n             [ &lt;help: HELP, HELPID&gt; &lt;nHelpId&gt; ] ;\n       =&gt; ;\n          &lt;oDlg&gt; = TDIAG():New( &lt;nTop&gt;, &lt;nLeft&gt;, &lt;nBottom&gt;, &lt;nRight&gt;,;\n                 &lt;cTitle&gt;, &lt;cResName&gt;, &lt;hResources&gt;, &lt;.vbx.&gt;, &lt;nStyle&gt;,;\n                 &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;oBrush&gt;, &lt;oWnd&gt;, &lt;.pixel.&gt;,;\n                 &lt;oIco&gt;, &lt;oFont&gt;, &lt;nHelpId&gt;, &lt;nWidth&gt;, &lt;nHeight&gt; )\n\n#xcommand ACTIVATE TRANSPDIAG &lt;oDlg&gt; ;\n             [ &lt;center: CENTER, CENTERED&gt; ] ;\n             [ &lt;NonModal: NOWAIT, NOMODAL&gt; ] ;\n             [ WHEN &lt;uWhen&gt; ] ;\n             [ VALID &lt;uValid&gt; ] ;\n             [ ON [ LEFT ] CLICK &lt;uClick&gt; ] ;\n             [ ON INIT &lt;uInit&gt; ] ;\n             [ ON MOVE &lt;uMoved&gt; ] ;\n             [ ON PAINT &lt;uPaint&gt; ] ;\n             [ ON RIGHT CLICK &lt;uRClicked&gt; ] ;\n	     [ &lt;color: COLORSOMBRA&gt; &lt;nClrShadow&gt;] ;\n        =&gt; ;\n          &lt;oDlg&gt;:Activate( &lt;oDlg&gt;:bLClicked [ := {|nRow,nCol,nFlags|&lt;uClick&gt;}], ;\n                           &lt;oDlg&gt;:bMoved    [ := &lt;{uMoved}&gt; ], ;\n                           &lt;oDlg&gt;:bPainted  [ := {|hDC,cPS|&lt;uPaint&gt;}],;\n                           &lt;.center.&gt;, [{|Self|&lt;uValid&gt;}],;\n                           [ ! &lt;.NonModal.&gt; ], [{|Self|&lt;uInit&gt;}],;\n                           &lt;oDlg&gt;:bRClicked [ := {|nRow,nCol,nFlags|&lt;uRClicked&gt;}],;\n                           [{|Self|&lt;uWhen&gt;}],&lt;nClrShadow&gt; )\n\nComo verás es muy similar a DIALOG.CH\n\n¿Cómo la empleo yo?, muy fácil:\n\n1) creo la funcion que va a pintar la sombra:\n\nFUNCTION SombWin(oWin,nDesp,nClr)\n   LOCAL oDls,aPt1[2],aPt2[2]   // nDesp ES EL DESPLAZAMIENTO RESPECTO DEL DIALOGO\n   LOCAL hSom,hWin        // nClr ES EL COLOR DE LA SOMBRA\n   LOCAL lTop := .F.\n\n   DEFAULT nDesp := 10 , ;\n	   nClr  := RGB(80,80,80)\n   *\n   oWin:CoorsUpdate()\n   hWin := GetWindow( oWin:hWnd,4 )\n   SysRefresh()\n   aPt1[1] := oWin:nTop   + ( nDesp * 1.33 )\n   aPt2[1] := oWin:nBottom+ nDesp\n   aPt1[2] := oWin:nLeft  + ( nDesp * 1.33 )\n   aPt2[2] := oWin:nRight + nDesp\n   IF hWin = 0\n      aPt1[1] := -2\n      aPt1[2] := -1\n      aPt2[1] := -2\n      aPt2[2] := -1\n   ELSE\n      SetActiveWindow(hWin)\n   ENDIF\n   ClientToScreen( hWin, aPt1)\n   ClientToScreen( hWin, aPt2)\n   nDesp:= nDesp * 9\n   DEFINE TRANSPDIAG oDls FROM aPt1[1],aPt1[2] TO aPt2[1],aPt2[2] PIXEL  STYLE nOR(WS_POPUP,WS_VISIBLE,WS_CHILD )\n   ACTIVATE TRANSPDIAG oDls NOWAIT COLORSOMBRA nClr\n   SysRefresh()\n   ShowWindow(oWin:hWnd, 8 )\nRETURN oDlS\n\n2) Llamada a la función:\n\nLOCAL oDlg,oSbr\n*\n...\nDEFINE DIALOG oDlg ....\n...\n...\nACTIVATE DIALOG oDlg ON INI oSbr := SombWin(oDlg) VALID (oSbr:End(),.T.)\n\nComo verás, es un Dialogo debajo de otro Dialogo.','',0,'','2zjoba5k',1,0,'',375,0,0),(9432,2216,6,396,0,'201.243.100.209',1142449402,1,0,1,1,1,1,'','ERRORES EN FOLDER IGUALES...','Aqui coloco la cabecera de mi .RC que lo trabajo con PellesC, cuando agrego la linea:\n\n#include &lt;\"c:\\fhw\\include\\WinApi.ch\"&gt; \n\ncomo me sugirieron y coloco FOLDER32 sin comillas, dice que no reconoce la linea y el archivo esta en el directorio, con Visual C++ da mismo error\n\n// RESOURCE SCRIPT generated by \"Pelles C for Windows, version 4.00\".\n\n#include &lt;windows.h&gt;\n#include &lt;commctrl.h&gt;\n#include &lt;richedit.h&gt;\n\nLANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US\n\neste que viene es mi folder:\n\nDLG_FOLDER DIALOG DISCARDABLE 6, 15, 480, 410\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU\nFONT 8, \"MS Sans Serif\"\nBEGIN\n  CONTROL \"\", 113, \"SysTabControl32\", WS_TABSTOP, 4, 5, 470, 391\nEND\n\nsi lo coloco cmo FOLDER32 no lo reconoce PellesC y este es uno de los dialogos del FOLDER\n\nDLGINV4 DIALOG DISCARDABLE 6, 5, 470, 380\nSTYLE WS_CHILD|WS_VISIBLE\nFONT 8, \"MS Sans Serif\"\nBEGIN\n  CONTROL \"\", -1, \"Static\", SS_BLACKFRAME, 4, 6, 400, 365\n  CONTROL \"Disponible\", -1, \"Static\", WS_GROUP, 320, 21, 35, 8\n  CONTROL \"\", -1, \"Static\", SS_BLACKFRAME, 316, 8, 85, 30\n  CONTROL \"Si\", 4001, \"Button\", BS_AUTORADIOBUTTON, 355, 19, 20, 12\n  CONTROL \"No\", 4002, \"Button\", BS_AUTORADIOBUTTON, 375, 19, 23, 12\n  CONTROL \"101\", 101, \"Button\", WS_TABSTOP, 412, 12, 50, 15\n  CONTROL \"102\", 102, \"Button\", WS_TABSTOP, 412, 32, 50, 15\n  CONTROL \"103\", 103, \"Button\", WS_TABSTOP, 412, 50, 50, 15\n  CONTROL \"104\", 104, \"Button\", WS_TABSTOP, 412, 70, 50, 15\n  CONTROL \"105\", 105, \"Button\", WS_TABSTOP, 412, 89, 50, 15\n  CONTROL \"106\", 106, \"Button\", WS_TABSTOP, 412, 107, 50, 15\n  CONTROL \"107\", 107, \"Button\", WS_TABSTOP, 412, 125, 50, 15\n  CONTROL \"108\", 108, \"Button\", WS_TABSTOP, 412, 145, 50, 15\n  CONTROL \"109\", 109, \"Button\", WS_TABSTOP, 412, 164, 50, 15\n  CONTROL \"110\", 110, \"Button\", WS_TABSTOP, 412, 183, 50, 15\n  CONTROL \"113\", 113, \"Button\", WS_TABSTOP, 411, 353, 50, 15\n  CONTROL \"\", 4012, \"Static\", SS_BLACKFRAME, 409, 7, 57, 365\n  CONTROL \"Ant\", 111, \"Button\", WS_TABSTOP, 414, 332, 16, 16\n  CONTROL \"Sig\", 112, \"Button\", WS_TABSTOP, 438, 332, 16, 16\nEND\n\nlo que me fijo es que el folder de TESTFOLD es diferente, nose si sera el programas bajo cual esta echo el .RC, quisiera saber cual es el mejor o cual debo usar para que se vea como este de ustedes.\n\n#define IDC_CHECKBOX1	92\n#include \".\\..\\include\\WinApi.ch\"\n\n#ifdef __FLAT__\n  1 24 \"winxp\\WindowsXP.Manifest\"\n#endif\n\n#ifdef __64__\n   1 24 \"WinXP/WindowsXP.Manifest64\"\n#endif \n\n\nTest DIALOG 19, 47, 233, 124\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION \"FiveWin Folders Demo\"\n{\n CONTROL \"\", 110, FOLDER32, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 5, 225, 99\n PUSHBUTTON \"&amp;OK\", 120, 98, 108, 37, 14\n}\n\n\nsub1 DIALOG 18, 18, 151, 80\nSTYLE WS_CHILD | 4\n{\n GROUPBOX \"Group\", -1, 7, 5, 140, 31, BS_GROUPBOX\n LTEXT \"A label\", 10, 22, 17, 48, 8\n COMBOBOX 100, 74, 14, 49, 33, CBS_DROPDOWN | WS_TABSTOP\n CHECKBOX \"This is a Checkbox\", IDC_CHECKBOX1, 46, 47, 73, 9, BS_AUTOCHECKBOX | WS_TABSTOP\n PUSHBUTTON \"&amp;First\", 110, 34, 58, 24, 14\n PUSHBUTTON \"&amp;SubDialog\", 120, 68, 58, 43, 14\n GROUPBOX \"Another group\", -1, 8, 39, 139, 37, BS_GROUPBOX\n}\n\n\nsub2 DIALOG 18, 18, 142, 67\nSTYLE WS_CHILD | 4\n{\n CONTROL \"Text\", 110, \"BUTTON\", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 37, 30, 28, 12\n CONTROL \"Text\", 120, \"BUTTON\", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 37, 41, 28, 12\n CONTROL \"Text\", 130, \"BUTTON\", BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 37, 52, 28, 12\n PUSHBUTTON \"&amp;Second\", 104, 93, 26, 32, 12\n}\n\nespero que con esta informacion pueda alguien ayudarme a solucionar este problema, mi .RC es migrado de WS que era una .DLL\n\nFWH2.4+Harbour+xHarobor+Verce 4.3\n\nGracias...','',0,'','3urdm4ca',1,0,'',396,0,0),(9433,2206,3,303,0,'68.7.28.54',1142455134,1,0,1,1,1,0,'','','Maurilio,\n\nThe answer is supposedly here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/csharp/xptheme.asp\">http://www.codeproject.com/csharp/xptheme.asp</a><!-- m -->\n\nIt shows how to read this information from the registry. However, the key, ColorName, that it says holds the theme color, doesn\'t exist in my registry (and I am using themes). So, I don\'t know the anwser.\n\nJames','',0,'','1cdmpo7d',1,0,'',303,0,0),(9434,2186,2,348,0,'201.230.65.83',1142458470,1,0,1,1,1,0,'','Re: Para imprimir, en Windows','Gracias por tu respuesta Jose M°\n\nComentarios una vez escuche por el foro que habia la tendencia de la lentitud de impresion  manejando con Xp, cual es tu experiencia en esto tanto usando este TPRINTER asi com el REPORT y otros ?? , pues la velocidad de impresion es imortante cuando se atiende al publico.\n\n\nLubin \n\n\n[quote=&quot;JMFS-D&quot;:2j0jzon6]Si, lo que va ha imprimir, es dentro de Windows. \n\nLe recomiendo TPRINTER de Rafa Carmona (TheFull ). Después de hacer muchas pruebas, me he decantado por ella.\n\nEs muy facil de manejar.\n\nLos Presupuestos, y Las Facturas, de la aplicación, que esta en realización. Han quedado, mejor de lo que pensaba. Y sin manejar, el color.\n\nImagino que, en color pueden quedar mucho mejor. Pero lo dejaré, para una proxima versión.\n\nSalu2, José Mª[/quote:2j0jzon6]','',0,'gA==','2j0jzon6',1,0,'',348,0,0),(9435,2206,3,6,0,'87.3.212.142',1142458818,1,0,1,1,1,1,'','Re: Theme names under XP','The API is GetCurrentThemeName() but I don\'t know how to use it as it requires wide chars strings.\n\nEMG','',0,'gA==','2el4mpru',1,0,'',6,0,0),(9436,2203,17,43,0,'201.127.49.107',1142458952,1,0,1,1,1,0,'','','Muchas Gracias.\n\n   Lo voy a probar\n\n\nSaludos\n\n  Marco A. Delgado','',0,'gA==','3aaq3c17',1,0,'',43,0,0),(9437,2217,6,422,0,'195.8.27.108',1142459513,1,0,1,1,1,0,'','Preview...','Hola Foro <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPq a veces no puede generar  los metafiles...=? en un preview de la tprinter ? sale um error de creacion de archivo.\n\nFw2.5, XPP Service Pack 2. harbour 0.45\n\nEs un problema de xp ?\n\n\nGracias.!','',0,'gA==','oodu8pys',1,0,'',422,0,0),(9438,2186,2,348,0,'201.230.65.83',1142459696,1,0,1,1,1,0,'','','Gracias Ralph\n\nMe di una paseada por el Foro Harbour/xHb español y he tomado nota de tu comentario asi como de tu aporte,  el cual aplicare,  \n\nUna ultima consulta muy simple, si tubieras ( y supongo que en algun momento tubiste que hacerlo)  que escojer para impresion  entre el TDosPrn y TPrinter.....  cual te animaria mas ,,,  y por que  ???  (parece periodista !!)\n\n\nLubin','',0,'gA==','2shcy3tx',1,0,'',348,0,0),(9439,2218,3,349,0,'201.133.165.154',1142463957,1,0,1,1,1,0,'','FW 2.7 a 32 bits, se reducen los dialogos y controles','Buen Dia \nMundo Five &amp; xHarbour\n\nTengo un problema con la migracion de 16 a 32 bits\nLos Dialogos y Controles, Se reducen de tamaño,\nSe ven mas bonitos pero mas pequeños.\nDichos recursos los tengo en DLL o RC.\n\nEn Prever Reporte, al cambiar el factor o escala,\ndigamos a 3, damos doble clic, y el factor se pone en 1.\n\nSaludos.\nHugo Navarro','',0,'gA==','3j4ighnf',1,0,'',349,0,0),(9440,2216,6,2,0,'87.218.146.250',1142466395,1,0,1,1,1,1,'','','Jose Luis,\n\nhas de usar:\n\n#include &lt;WinApi.ch&gt;\n\nó\n\n#include \"c:\\fhw\\include\\WinApi.ch\"\n\npero no:\n\n#include &lt;\"c:\\fhw\\include\\WinApi.ch\"&gt;','',0,'gA==','24khus3x',1,0,'',2,0,0),(9441,2218,3,2,0,'87.218.146.250',1142466502,1,0,1,1,1,1,'','','Hugo,\n\nFWH te permite cambiar el tamaño de los diálogos automaticamente para que se asemenjen a los de 16 bits. Usa esta cláusula:\n\nACTIVATE DIALOG oDlg ... RESIZE16','',0,'gA==','1me9o7b4',1,0,'',2,0,0),(9442,2217,6,2,0,'87.218.146.250',1142466807,1,0,1,1,1,1,'','','Ricardo,\n\nModifica printer.prg de esto modo:\n[code:wqota3vq]\n    #ifndef __CLIPPER__\n       AAdd&#40; &#58;&#58;aMeta, &#58;&#58;cDir + cTempFile&#40; &quot;\\&quot;, &quot;emf&quot; &#41; &#41;\n       &#58;&#58;hDCOut &#58;= CreateEnhMetaFile&#40; &#58;&#58;hDc,ATail&#40; &#58;&#58;aMeta &#41;, &#58;&#58;cDocument &#41;  //jlcr\n    #else\n       AAdd&#40; &#58;&#58;aMeta, &#58;&#58;cDir + cTempFile&#40; &quot;\\&quot;, &quot;wmf&quot; &#41; &#41;\n       &#58;&#58;hDCOut &#58;= CreateMetaFile&#40; ATail&#40; &#58;&#58;aMeta &#41; &#41;\n    #endif\n[/code:wqota3vq]','',0,'AIA=','wqota3vq',1,0,'',2,0,0),(9443,2182,3,339,0,'201.8.51.183',1142466885,1,0,1,1,1,0,'','','silvio , you can send my sample too..\n\n\n\n<!-- e --><a href=\"mailto:mauricioajordao@yahoo.com.br\">mauricioajordao@yahoo.com.br</a><!-- e -->\n\nthanks','',0,'AIA=','1xc0vzuq',1,0,'',339,0,0),(9444,2186,2,305,0,'201.240.223.193',1142471659,1,0,1,1,1,0,'','','Lubin:\n\nUso ambas y cada una cumple muy bien sus funciones.\nEn mi caso (como creo que a muchos debe pasarles), tenia una buena cantidad de reportes ya hechos en mis antiguas aplicaciones Clipper que necesitaba migrar rapidamente a Fw, asi que usando Tdosprn() lo pude hacer sin problemas.   Aun tengo clientes que deben listar libros contables de cientos de paginas y les conviene imprimir en impresoras matriciales, por lo que esta opcion les va a pelo.\n\n\nUso tambien la clase tReport() para reportes tabulares simples y si voy a imprimir graficos y algo en lo que necesito una mejor presentacion con varias fuentes, pues ahi uso tPrinter().   \n\nHaz un balance de lo que necesites y elige la opcion mas adecuada.    \n\nEspero te ayude a decidir\n\nRalph','',0,'AIA=','2y9efhm7',1,0,'',305,0,0),(9445,2208,3,138,0,'201.129.177.14',1142476365,1,0,1,1,1,1,'','','Silvio:\n\nFiveXL was a long time ago (FW 1.92) a wrapper to use Formula ONE VBX.\n\nI don\'t know if actually there\'s a version of FormulaOne, however, you can use FW\'s TActiveX class in order to use the FormulaONE component.','',0,'AIA=','1evfrwc7',1,0,'',138,0,0),(9446,2219,3,65,0,'193.201.128.130',1142480075,1,0,1,1,1,0,'','Say/Get on a button bar','Is it possible to place a say/get on a button bar together with buttons?\n\nThanks\nBirol Betoncu','',0,'AIA=','3futk84p',1,0,'',65,0,0),(9447,2220,2,9,0,'85.59.36.81',1142481392,1,0,1,1,1,0,'','Ocultar columna en Report','En un report, donde existen varias DATA numéricos, necesito que cuando el DATA sea cero, no imprima nada. He intentado lo siguiente, pero me da error:\n\nTITLE \"Gastos\" DATA IF(renta-&gt;GASTOS=0, , renta-&gt;GASTOS) TOTAL\nTITLE \"Ingresos\" DATA IF(renta-&gt;INGRESO=0, , renta-&gt;INGRESO) TOTAL\n\nSi el indice\n\nAlguna ayuda.\n\n\nManuel','',0,'AIA=','1l61drsp',1,0,'',9,0,0),(9448,2191,3,190,0,'202.65.134.27',1142481423,1,0,1,1,1,0,'','','Hi RF\n\nIn continuation to the subject topic, Please clarify :\n\n1) If I use ADS LOCAL server, can I use the traditional SET FILTER TO \n    command or the ADS filter function ?\n\n2) And if I use SET FILTER TO, will ADS understand it and filter the \n    records using its own functioinality ?\n\nPlease recommend the suitable function in ADS.\n\nRegards\n\n- Ramesh Babu P','',0,'AIA=','18e01yg6',1,0,'',190,0,0),(9449,2221,7,454,0,'63.168.93.42',1142485272,1,0,1,1,1,0,'','FWPPC en iPaq h6315...','FWPPC corre en el iPAQ h6315 ? Sino es asi, diganme un telefono GSM en el que  si corra... Muchas gracias...','',0,'AIA=','sdc0uet0',1,0,'',454,0,0),(9450,2215,7,449,0,'212.64.224.250',1142493802,1,0,1,1,1,0,'','','Jose Luis,\n\nTe lo envio por correo.\n\nPor cierto, te reto a q me \'rompas\' de nuevo mi prototipo <!-- m --><a class=\"postlink\" href=\"http://www.zprog.net/download/SETUPSV.EXE\">http://www.zprog.net/download/SETUPSV.EXE</a><!-- m -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nSaludos.\nC.','',0,'AIA=','1e0l8erm',1,0,'',449,0,0),(9451,2221,7,449,0,'212.64.224.250',1142494995,1,0,1,1,1,0,'','','Hola, \n\nQTEK 2020 con GSM\n\nSaludos.\nC.','',0,'AIA=','3er8s8p1',1,0,'',449,0,0),(9452,2219,3,15,0,'203.73.49.241',1142495568,1,0,1,1,1,0,'','','hello betoncu,\n\nYes, you can do it.\n\nDefine buttonbar ......\n\n   define button.....\n\n     @ xx, xx say .....\n\n         @ xx,xx get .....\n\nThat\'s all\n\nRegards,\n\nRichard\nFivetech.net Taiwan\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw\">http://www.fivetech.com.tw</a><!-- m -->','',0,'AIA=','ev5b9iw8',1,0,'',15,0,0),(9453,2222,3,148,0,'82.201.235.51',1142496264,1,0,1,1,1,0,'','testxbrw filter','I am trying to update the testxbrw.prg to fullfill my needs as below . It does not work ???\n\n\n   select 1\n   USE METE\n   index on dtoc(me_date)\n   go top\nset filter to 1-&gt;me_serial=\"9855564\"\n//   USE CUSTOMER NEW','',0,'AIA=','2d5nhmvy',1,0,'',148,0,0),(9454,2182,3,130,0,'141.51.32.24',1142497888,1,0,1,1,1,0,'','','Sylvio,\n\nI get an error  running the sample\n\n\"Plan.prg was compiled by older version, PCODE version 7 is no longer supported - please recompile.\"\n\nWhich xharbour version do you use ?\n\nStefan','',0,'AIA=','qptxldfq',1,0,'',130,0,0),(9455,2182,3,49,0,'213.82.134.66',1142498055,1,0,1,1,1,1,'','','xharbour 0.99.60','',0,'AIA=','15k1ao5q',1,0,'',49,0,0),(9456,2223,1,170,0,'80.170.22.241',1142498277,1,0,1,1,1,1,'','DevMode() failure in FW 2.5','Hi all,\n\nDo you know how it is possible to do DevMode() return an array ?\n\nThank for your help','',0,'AIA=','2xgztqa7',1,0,'',170,0,0),(9457,2224,1,170,0,'80.170.22.241',1142498430,1,0,1,1,1,1,'','PRNSetCopies() failure in FW 2.5','Hi all,\n\nDo you know how set the number of copies to print more than one ?\n\nThank for your help','',0,'AIA=','31ta6jbc',1,0,'',170,0,0),(9458,2208,3,49,0,'213.82.134.66',1142498486,1,0,1,1,1,1,'','','I not waNT USE ACTIVEX\ni WANT USE ONLY FW AND XHARBOUR\nHow I can make it with xharbour and fivewin ... with wbrowse....\ncan you write a mini test IF YOU HAVE AN IDEA !!!','',0,'AIA=','38hnw5gc',1,0,'',49,0,0),(9459,2224,1,6,0,'87.3.212.131',1142498765,1,0,1,1,1,1,'','Re: PRNSetCopies() failure in FW 2.5','Just use a loop.\n\nEMG','',0,'AIA=','200fg043',1,0,'',6,0,0),(9460,2223,1,6,0,'87.3.212.131',1142498980,1,0,1,1,1,1,'','Re: DevMode() failure in FW 2.5','DevMode() function content is commented out in printdc.c.\n\nEMG','',0,'AIA=','2g3bfbsv',1,0,'',6,0,0),(9461,2225,6,52,0,'170.51.234.39',1142499008,1,0,1,1,1,1,'','TIMER &amp; DIALOG no me funcionan.','Estimados, \n\nEjecuto este código (indico que existe en un .res dialog_1) y no me funciona el timer, si lo hago con un WINDOWS en vez de un DIALOG funciona.\n\n[code:3josfknv]\n#Include &quot;Fivewin&#46;Ch&quot;\n\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oDlg, oTimer\n\n   DEFINE DIALOG oDlg RESOURCE &quot;DIALOG_1&quot;\n\n   Define Timer oTimer Interval 900 Action MsgInfo&#40;&quot;Activado&quot;&#41; OF oDlg\n\n      Activate Timer oTimer\n\n   ACTIVATE DIALOG oDlg\n\n   oTimer&#58;End&#40;&#41;\n\nRETURN &#40;NIL&#41;[/code:3josfknv]','',0,'AIA=','3josfknv',1,0,'',52,0,0),(9462,2182,3,130,0,'141.51.32.24',1142499610,1,0,1,1,1,0,'','','Ok, that s it. I´m still working with FWH 2.4, so I can´t use the latest xHarbour, right ?\n\nCould you build the lib with an older xHarbour version ?\n\nStefan','',0,'AIA=','mdz5w9ve',1,0,'',130,0,0),(9463,2219,3,2,0,'87.218.146.250',1142499663,1,0,1,1,1,1,'','','Define buttonbar oBtnBar ......\n\n...\n\n@ xx, xx say ..... OF oBtnBar\n\n@ xx,xx get ..... OF oBtnBar','',0,'AIA=','382sbkyw',1,0,'',2,0,0),(9464,2225,6,2,0,'87.218.146.250',1142499909,1,0,1,1,1,1,'','','Gustavo,\n\nEl handle del diálogo ha de existir. Así funciona:\n[code:2t27bw1q]\n#Include &quot;Fivewin&#46;Ch&quot; \n\nstatic oTimer\n\nFUNCTION Main&#40;&#41; \n\n   LOCAL oDlg\n\n   DEFINE DIALOG oDlg\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT BuildTimer&#40; oDlg &#41;\n\n   oTimer&#58;End&#40;&#41; \n\nRETURN &#40;NIL&#41;\n\nfunction BuildTimer&#40; oDlg &#41;\n\n   Define Timer oTimer Interval 900 Action MsgInfo&#40;&quot;Activado&quot;&#41; OF oDlg \n\n   Activate Timer oTimer \n   \nreturn nil   \n[/code:2t27bw1q]','',0,'AIA=','2t27bw1q',1,0,'',2,0,0),(9465,2208,3,130,0,'141.51.32.24',1142500195,1,0,1,1,1,0,'','','Sylvio,\n\ntry to use TSbrowse, if I remember you can simulate an excel sheet with it.\n\nStefan','',0,'AIA=','1uu28vgj',1,0,'',130,0,0),(9466,2215,7,2,0,'80.32.22.38',1142501862,1,0,1,1,1,1,'','','Carles,\n\nGracias por la ayuda <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nHemos publicado un nuevo build de FWPPC. Ahora ya tiene soporte total de folders <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2bvtucmv',1,0,'',2,0,0),(9467,2214,4,2,0,'80.32.22.38',1142501978,1,0,1,1,1,1,'','','There is a new FWPPC build with full support of folders (from source code, from resources and source/resources).','',0,'AIA=','36jssdhh',1,0,'',2,0,0),(9468,2182,3,49,0,'213.82.134.66',1142505125,1,0,1,1,1,1,'','','No sorry, I cannot now !!','',0,'AIA=','3fvrg4d6',1,0,'',49,0,0),(9469,2208,3,49,0,'213.82.134.66',1142505380,1,0,1,1,1,1,'','','I remember when I made program with clipper 5.2  there was an spreadsheet  \nit used two dbf \non one dbf there were formules\non one dbf there were the spradsheet\n\nDo you remember it ?\n\nsilvio','',0,'AIA=','3w4o88qa',1,0,'',49,0,0),(9470,2182,3,49,0,'213.82.134.66',1142505514,1,0,1,1,1,1,'','','Which xharbour version do you use ?\n\n I think .... I\'ll  not found your version now','',0,'AIA=','1dqvlqa1',1,0,'',49,0,0),(9471,2224,1,170,0,'80.170.62.118',1142506018,1,0,1,1,1,1,'','Re: PRNSetCopies() failure in FW 2.5','[quote=&quot;EnricoMaria&quot;:3pj2ktq2]Just use a loop.\n\nEMG[/quote:3pj2ktq2]\n\nThis is possible like that, but today there are many printers\nwho support multi-copies. In this way, there is only one\ncopie writted on the disk by the printer spooler.\n\nThe way you recommend is an alternative who can\nreduce to 0 the space free on disk, if you have many pages\nto print, for sample 100 copies of 50 pages who contain images.','',0,'gA==','3pj2ktq2',1,0,'',170,0,0),(9472,2223,1,170,0,'80.170.62.118',1142507173,1,0,1,1,1,1,'','Re: DevMode() failure in FW 2.5','[quote=&quot;EnricoMaria&quot;:1uq49712]DevMode() function content is commented out in printdc.c.\n\nEMG[/quote:1uq49712]\n\nYes but :\n\n1 - i am Clipper user, and i not understand all printdc.c.\nIs\'it necessary learn C to work with Fivewin functions ?\n\n2 - Fivewin 2.5 help file say DevMode() return an array.\nIt return NIL for me, like that :\n\n\n*****************\nFunction TestDevMod()\n*****************\n* To test the DevMode() function of Fivewin\n\n#define DC_FIELDS                       1\n#define DC_PAPERS                       2\n#define DC_PAPERSIZE                    3\n#define DC_MINEXTENT                    4\n#define DC_MAXEXTENT                    5\n#define DC_BINS                         6\n#define DC_DUPLEX                       7\n#define DC_SIZE                         8\n#define DC_EXTRA                        9\n#define DC_VERSION                      10\n#define DC_DRIVER                       11\n#define DC_BINNAMES                     12\n#define DC_ENUMRESOLUTIONS              13\n#define DC_FILEDEPENDENCIES     14\n#define DC_TRUETYPE                     15\n#define DC_PAPERNAMES                   16\n#define DC_ORIENTATION                  17\n#define DC_COPIES                       18\n\n\n\nLOCAL aDevM\nLOCAL nVersion\nLOCAL cName := \"Canon S700\"\n\nnVersion := DeviceCapabilities( cName, DC_VERSION )\nIF nVersion != 0\n\n  aDevM := DevMode(cName, nVersion)\n\n  IF aDevM = NIL\n    MsgInfo(\"DevMode() return NIL !!!\")\n  ELSE\n    MsgInfo(\"Valtype(DevMode(aDevM)) = \" + VALTYPE(DevMode(aDevM)))\n  ENDIF\nELSE\n  MsgInfo(\"The specification version to which the printer driver conforms is \" + LTRIM(STR(nVersion)) )\nENDIF\nRETURN NIL\n**************','',0,'gA==','1uq49712',1,0,'',170,0,0),(9473,2223,1,6,0,'87.3.212.131',1142509038,1,0,1,1,1,1,'','Re: DevMode() failure in FW 2.5','[quote=&quot;Badara Thiam&quot;:2dr2fmvd][quote=&quot;EnricoMaria&quot;:2dr2fmvd]DevMode() function content is commented out in printdc.c.\n\nEMG[/quote:2dr2fmvd]Is\'it necessary learn C to work with Fivewin functions ?[/quote:2dr2fmvd]\n\nNo, I\'m only saying that DevMode() can\'t work as it is because it has its content commented out.\n\nEMG','',0,'gA==','2dr2fmvd',1,0,'',6,0,0),(9474,2208,3,130,0,'141.51.32.24',1142509652,1,0,1,1,1,0,'','','No, sorry, but I can search my archive, maybe I´ll find something\n\nStefan','',0,'gA==','2xybj0h2',1,0,'',130,0,0),(9475,2226,6,362,0,'200.168.52.156',1142509871,1,0,1,1,1,1,'','THEMAS DEL WINDOWS, COMO CAMBIAR?','Buenos dias amigos.\n\nPor Favor, necesito ayuda.\n\nComo hacer, para accionar el PANEL DE CONTROL del WINDOWS XP, VIA PROGRAMACION, para ke mi usuario, pueda CAMBIAR EL TEMA DE WINDOWS XP.\n\nNecesito, ke el USUARIO va directo a las PROPRIEDADS del ICONE VIDEO del\nWINDOWS XP y CAMBIE el TEMA de WINDOWS XP.\n\nEs posible? Como en el ejemplo abajo:\n\n// Pulsar el boton de Inicio\nDEFINE BUTTON OF oBar  PROMPT \"Boton de Inicio Windows XP\" ;\n       FONT oFnt ;\n       ACTION (SendMessage(oWnd:hWnd,WM_SYSCOMMAND,SC_TASKLIST,0))\n\nGracias, y saludos a todos.','',0,'gA==','14f58zow',1,0,'',362,0,0),(9476,2227,21,227,0,'200.148.67.246',1142517748,1,0,1,1,1,1,'','Valid+Cancel X ButtonBmp fwh 2.7','Amigos...\n\nTenho um get que a valid conforme abaixo:\n\n[code:3qq0fxyb]\nREDEFINE VGET oGetCodCli  VAR CLIENCOD2   ID 4003 PICTURE IF&#40;CADPARAM-&gt;FLAG_CGC_C,&quot;999999999999&quot;,&quot;99999&quot;&#41; OF oFol&#58;aDialogs&#91;1&#93; VALID PESQCLIEN&#40;&#41;\n\n\nRedefine BUTTONBMP oBtnSai ID 4029 of oDlg;   BITMAP &quot;SAIR&quot;;   ACTION&#40;lSair&#58;=&#46;t&#46;,ENCERRADLG&#40;&#41;&#41; CANCEL\n[/code:3qq0fxyb]\n\nBom... \nSe carrego a dialog e clico no botão sair ele sai normalmente, mas se ele passa pela validação e retorna .f. o botão não executa o cancel.\n\nAlguém já passou por isso??\n[code:3qq0fxyb][/code:3qq0fxyb]','',0,'AIA=','3qq0fxyb',1,0,'',227,0,0),(9477,2228,2,439,0,'201.221.34.210',1142517982,1,0,1,1,1,0,'','DBCombo en FW','Hola,\nTengo una aplicación funcionando perfectamente con el siguiente DbCombo:\n\nREDEFINE DbCombo oCbx[1] VAR oDbf[1]:idProd ID 104 OF oPage:aDialogs[1] ;\n		ALIAS \"CBOPROD\" Itemfield \"idProdtxt\" ListField \"Nombre\" ;\n			ON CHANGE ( PRODTOR-&gt;(DbSeek( oDbf[1]:aBuffer[5], .f. ) ), ;\n			oSay[21]:SetText(PRODTOR-&gt;Dicose), ;\n			oPage:aDialogs[1]:Update() ) update\n\nCompilada con la versión de Febrero 2006 y con CommCtrl.dll funciona perfectamente, compilada con FW Marzo 2006 (bajada 10/03) el combo no busca el texto al escribir sobre el, y hace un ruidito, sin embargo si se abre permite buscarlo pero solo con flecha arriba y flecha abajo.\n\nVuelvo a compilar el código con la versión de enero y anda perfecto.\n\nPor favor, apreciaré su ayuda para resolver este problema.','',0,'','6bp8bsqa',1,0,'',439,0,0),(9478,2206,3,217,0,'200.161.170.223',1142517994,1,0,1,1,1,0,'','','Thanks, James and Enrico.\n\nI´ll try any about it.\nIf I have success I´ll publish here.\n\nRegards!\nMaurilio','',0,'','35otz1ed',1,0,'',217,0,0),(9479,2229,3,227,0,'200.148.67.246',1142519563,1,0,1,1,1,1,'','PROBLEMAS CON COMANDO CANCEL EN UN BOTON','Buenas Amigos... \n\nTENGO UN GET CON UN VALID CONFORME ABAJO: \n\nCódigo: \n\nREDEFINE VGET oGetCodCli VAR CLIENCOD2 ID 4003 ;\nPICTURE IF(CADPARAM-&gt;FLAG_CGC_C,\"999999999999\",\"99999\") ;\nOF oFol:aDialogs[1] ;\nVALID PESQCLIEN() \n\n\nREDEFINE BUTTONBMP oBtnSai ID 4029 of oDlg; \nBITMAP \"SALIR\"; \nACTION( lSalir := .T., ENCERRADLG() ) CANCEL \n\n\nBién...\n\nSE CARGO LA DIALOG Y CLICO EN EL BOTON SALIR, EL SALE NORMALMENTE, PERO SE EL PASAR POR LA VALIDACION Y RETORNA .F., EL BOTON NO EJECUTA EL COMANDO CANCEL. \n\nKE HICE DE ERRADO??\n\n\nGracias, y Saludos a todos.','',0,'','19b4nph4',1,1142597233,'',227,1,0),(9480,2230,2,147,0,'200.82.113.38',1142523485,1,0,1,0,1,1,'','Consulta sobre TExcelScript  (Vikthor)','Hace un buen tiempo que desarrolle un aplicativo clipper+fw usando esta clase. La pregunta es si hay alguna nueva version y de donde puedo bajarla. La que tengo es dice: Clase TExcelScript v1.10b  9-Oct-2002 y varias libs Ole2 que van desde el 2002 al 2004\n\ngracias','',0,'','371xaago',1,0,'',147,0,0),(9481,2191,3,138,0,'200.67.69.93',1142523622,1,0,1,1,1,1,'','','ADS Local (free) and remote servers have the AOF Feature (Advantage Optimized Filters).\n\nAOF are based in the traditional DBSETFILTER() function, you just have to follow certain rules when building the filter.\n\n1) You have to load RDDADS and include the ADS DLLS\n2) You have to write the filter expression in TEXTUAL form\n3) You have to use DBSETFILTER() function instead of SET FILTER command.\n\nHow it works:\n\nADS has a build-in feature that processes the defined filters as they were SQL Queries, this means that the ADS server, not the app, resolves the filter and send you back a tiny ammount of data instead of the filtered database as Harbour does.\n\nYou only have to give the filter expresion as a TEXT, for example:\n\nIncorrect:\n\n[code:wj61nfq0]x&#58;= 25\nSET FILTER TO AGE &gt;= x\nDBGOTOP&#40;&#41;[/code:wj61nfq0]\n\nThe previos example is incorrect because \"x\" is a value that cannot be resolved by the ADS server, since the ADS server doesn´t know how much is \"x\" and cannot go inside your app memory area an \"look\" for the X value.\n\nHowever, if you do the text instead of the value:\n\n[code:wj61nfq0]\nx&#58;= 25\ncFilter &#58;= &quot;AGE &gt;=&quot;+STR&#40;x&#41;\nbFilter &#58;= &quot;&#123;||&quot;+cFilter+¨&#125;&quot;\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\nDBGOTOP&#40;&#41;[/code:wj61nfq0]\n\nThen you will have an AOF which is thousands of times faster than the standar filter, no matter how big you database is.\n\nI have tried this over 1000000 records and is damn fast !!!!!','',0,'AIA=','wj61nfq0',1,0,'',138,0,0),(9482,2231,3,69,0,'206.210.97.138',1142524876,1,0,1,1,1,0,'','Disable system menu on dialog from source','Hi Everybody,\n\nI know I\'m overlooking something easy but I just can\'t disable the system menu in a dialog from source code.\n\nCan someone please point me in the right direction.\n\nThanks,\nJeff','',0,'AIA=','dieyhsju',1,0,'',69,0,0),(9483,2186,2,147,0,'200.68.215.107',1142526428,1,0,1,0,1,1,'','','Quizás podrías dejarlo en [url:2hu91xei]http&#58;//ar&#46;groups&#46;yahoo&#46;com/group/Fivewin-esp/?yguid=40737950[/url:2hu91xei]\n\no, pasársela a Vikthor para que la suba a dbWide \n\nsaludos','',0,'EA==','2hu91xei',1,0,'',147,0,0),(9484,2219,3,65,0,'88.255.16.51',1142527408,1,0,1,1,1,0,'','','Thank You\n\nBirol Betoncu <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','15xk5vyd',1,0,'',65,0,0),(9485,2231,3,6,0,'82.59.51.127',1142528754,1,0,1,1,1,1,'','Re: Disable system menu on dialog from source','Can I see a little sample of what you tried so far?\n\nEMG','',0,'EA==','1j9jfnd3',1,0,'',6,0,0),(9486,2231,3,303,0,'68.7.28.54',1142529291,1,0,1,1,1,0,'','','Jeff,\n\nTry:\n\nDEFINE DIALOG oDlg...STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION)\n\nJames','',0,'EA==','27b97flh',1,0,'',303,0,0),(9487,2229,3,110,0,'165.98.151.243',1142529687,1,0,1,1,1,1,'','','[code:17nw8lj9]\n&#46;&#46;&#46;\nRedefine BUTTONBMP oBtnSai ID 4029 of oDlg;   BITMAP &quot;SAIR&quot;;   ACTION&#40;lSair&#58;=&#46;t&#46;,ENCERRADLG&#40;&#41;&#41;\n\noBtnSai&#58;lCancel &#58;= &#46;t&#46;\n&#46;&#46;&#46;\n[/code:17nw8lj9]\n\nsalu2\ncarlos vargas','',0,'AIA=','17nw8lj9',1,0,'',110,0,0),(9488,2232,6,63,0,'80.37.102.128',1142530480,1,0,1,1,1,0,'','Report con campo memo','Estoy intentando imprimir un report columnar, una de cuyas columnas es un campo memo.  Me gustaría que cada registro ocupase 1,2,3... líneas, según la extensión de su memo. Algo así:\n\n[code:tfpmud4p]\n&#46;&#46;&#46;&#46;\nCOLUMN TITLE &quot;Fecha&quot; DATA DTOC&#40;VISITA-&gt;FECHA&#41; FONT 1 SIZE 20\nCOLUMN TITLE &quot;Comentarios&quot; DATA VISITA-&gt;NOTAS FONT 1 SIZE 80\n&#46;&#46;&#46;&#46;\n[/code:tfpmud4p]\n\n¿Alguien lo ha conseguido? Podrías dar un ejemplo de código?\nGracias\nRafael','',0,'AIA=','tfpmud4p',1,0,'',63,0,0),(9489,2231,3,69,0,'206.210.97.138',1142530523,1,0,1,1,1,0,'','','Thanks James,\n\nI was trying with STYLE nOR( WS_SYSMENU)  with no luck.\n\nYour solution works perfectly.\n\nJeff','',0,'AIA=','2tk0lqgf',1,0,'',69,0,0),(9490,2233,7,132,0,'83.213.45.32',1142530880,1,0,1,1,1,1,'','Windows CE','Antonio:\n\nFivewin para Pocket PC, ¿funciona en PDAs con sistema operativo Windows CE.NET?, Si es asi ¿funciona con la version Windows CE 4.0 o superior?\n\nGracias de antemano','',0,'AIA=','2ajt7qo3',1,0,'',132,0,0),(9491,2234,6,237,0,'200.68.70.89',1142531024,1,0,1,1,1,0,'','Ayuda para conectarse al cvs de xHarbour, please','Tuve que reinstalar todo en mi pc y perdi la configuracion del tortoise y todo eso. Alquien me puede dar una mano para poder volverme a conectar al CVS de xHarbour ???\n\nMuchisisisimas gracias!\nAlejandro Cebolido.-','',0,'AIA=','x2jvdrvm',1,0,'',237,0,0),(9492,2216,6,396,0,'201.243.214.47',1142531398,1,0,1,1,1,1,'','FOLDER ERRORES IGUALES','[quote=&quot;Antonio Linares&quot;:27s4npm6]Jose Luis,\n\nhas de usar:\n\n#include &lt;WinApi.ch&gt;\n\nó\n\n#include \"c:\\fhw\\include\\WinApi.ch\"\n\npero no:\n\n#include &lt;\"c:\\fhw\\include\\WinApi.ch\"&gt;[/quote:27s4npm6]\n\nAntonio, la linea la tengo com dices , solo fue un lauso no escribirla igual, me guatarias saber cual es el editr de recursos mas apropiado, ya que con PellesC y Visual, da el mismo error en el .RC cuando coloco la linea #include \"c:\\fhw\\include\\WinApi.ch\", teniendo en esa ubicacion el archivo, nose si sera algo que no configure bien, pero slo con los folder es el error, los puse \"SysTabControl32\", los puse FOLDER32 y nada, que editor de recurso me recomiendas,?','',0,'gA==','27s4npm6',1,0,'',396,0,0),(9493,2235,6,396,0,'201.243.214.47',1142531573,1,0,1,1,1,1,'','ERROR CON FOLDER IGUALES','Antonio, la linea la tengo como dices , solo fue un lauso no escribirla igual, me guatarias saber cual es el editor de recursos mas apropiado, ya que con PellesC y Visual, da el mismo error en el .RC cuando coloco la linea #include \"c:\\fhw\\include\\WinApi.ch\", teniendo en esa ubicacion el archivo, nose si sera algo que no configure bien, pero solo con los folder es el error, los puse \"SysTabControl32\", los puse FOLDER32 y nada, que editor de recurso me recomiendas,?','',0,'gA==','cs0whzx2',1,0,'',396,0,0),(9494,2229,3,227,0,'200.148.67.246',1142531655,1,0,1,1,1,1,'','','[quote=&quot;carlos vargas&quot;:2nonjrxu][code:2nonjrxu]\n&#46;&#46;&#46;\nRedefine BUTTONBMP oBtnSai ID 4029 of oDlg;   BITMAP &quot;SAIR&quot;;   ACTION&#40;lSair&#58;=&#46;t&#46;,ENCERRADLG&#40;&#41;&#41;\n\noBtnSai&#58;lCancel &#58;= &#46;t&#46;\n&#46;&#46;&#46;\n[/code:2nonjrxu]\n\nsalu2\ncarlos vargas[/quote:2nonjrxu]\n\nAmigo...\n\nNão deu certo....','',0,'gIA=','2nonjrxu',1,0,'',227,0,0),(9495,2236,3,382,0,'80.140.221.166',1142531947,1,0,1,1,1,1,'','HB_FUNC_INITSTATICS','I\'ve just downloaded xHB-Prof. March 2006 and now I\'m recompiling all prg-files and get the following errors in all files, who contain classes, written with FWH.\n\n[color=red:312tt6wg]Undeclared identifier \'hb_INITSTATICS\"\nMissing prototype for \'HB_FUNC_INITSTATICS\'[/color:312tt6wg]\n\nWhat\'s wrong?\n\nThe errors occur while compiling with xHb 0.99.61 from xHb-march-professionell\n\nRegards\nFrank','',0,'Ag==','312tt6wg',1,0,'',382,0,0),(9496,2233,7,95,0,'201.129.175.162',1142532392,1,0,1,1,1,0,'','','Estimado ...\n\nTengo una Symbol MC3000 que trae windows CE 4.2 NET y funciona, lo unico que tengo que hacer es incluir esto ;:\n\n* Funciones que no corren en Symbol MC3000\nFUNCTION cesetmenu() ; RETURN NIL\nFUNCTION getmenu() ; RETURN NIL\nFUNCTION readbitmap() ; RETURN NIL\nFUNCTION palbmpread() ; RETURN NIL\n\nSaludos\nOsvaldo Ramirez','',0,'Ag==','2dhf9mxz',1,0,'',95,0,0),(9497,2237,2,10,0,'195.76.89.37',1142532473,1,0,1,1,1,0,'','Imprimir en vertical','Saludos a todos.\n\n¿Alguien me puede decir como puedo imprimir en vertical? En alguna parte lo leí pero he estado buscando y no lo encuentro y creo que era un parámetro del font o algo parecido.\n\nLo necesito para rellenar un formulario que tiene partes en horizontal y otros en vertical.\n\nGracias a todos por su atención.','',0,'Ag==','2ne4n6bx',1,0,'',10,0,0),(9498,2232,6,121,0,'201.152.96.105',1142532769,1,0,1,1,1,1,'','campo memo en report','checa el ejemplo\n\\fwh\\samples\\report\\rep20.prg','',0,'Ag==','3bn4zh9o',1,0,'',121,0,0),(9499,2238,3,299,0,'69.65.95.131',1142533364,1,0,1,0,1,0,'','Tab Key on RichText','Hi.\n\nPressing tab while on a Richtext control is not inserting spaces, but instead it is highlighting the full text.  How can I change this behavior?\n\nThank you,\n\n\nReinaldo.','',0,'Ag==','244umwoa',1,0,'',299,0,0),(9500,2239,6,362,0,'200.168.52.156',1142533434,1,0,1,1,1,1,'','HB_FUN_NETSERIALNUMBER','Esto esta en: C:\\FWH27\\SAMPLES\\TESTNET.PRG\nRetorna el Siguiente Erro:\n\nAntonio ke ERRO es este??\n\nHB_FUN_NETSERIALNUMBER REFERENCED FROM C:\\FWH27\\SAMPLES\\TESTNET.OBJ\n\nMsgInfo( NetSerialNumber() )','',0,'Ag==','bo5jxwdf',1,0,'',362,0,0),(9501,2233,7,490,0,'80.24.224.89',1142534996,1,0,1,1,1,0,'','','Los sockets no funcionan. Si te van a hacer falta olvídate por ahora.\n\nYa lo he reportado y a la vez sigo investigando, el por qué funcionan en mobile y en CE no.\n\nUn Saludo,\nJoaquín','',0,'Ag==','7ouiwae7',1,0,'',490,0,0),(9502,2237,2,78,0,'200.121.136.169',1142535527,1,0,1,1,1,0,'','','Hola,\nDefine un font...\n..\n..\n..\nDEFINE FONT oFntV  NAME \"Arial\" SIZE 0,-4.5 BOLD NESCAPEMENT 900 OF oPrn\n\ny luego :\n\noPrn:cmSay(9.5,0.6,\"(1)En caso de mora, esta Letra de Cambio generará las tasas de interés compensatorio y moratorio más altas que\", oFntV)\n...\n\nSalu2','',0,'Ag==','23h0ovxh',1,0,'',78,0,0),(9503,2240,3,372,0,'83.118.100.14',1142535612,1,0,1,1,1,0,'','How to return in GET after button?','Hi,\n\ni want to return in a GET field after pressing a button (this button opens a modify record dialog from the button on the browse dialog).\n\nThis worked in an earlier version, but doesn\'t seem to do the trick anymore:\n\noGet:oJump:=oButton\n\nAny thoughts?\n\nBest regards,\n\nJohn.','',0,'Ag==','2kjv1t97',1,0,'',372,0,0),(9504,2186,2,404,0,'85.155.212.137',1142537052,1,0,1,1,1,0,'','Las dos opciones.','TPRINTER, la elegí, tras probar, tambien la impresión en DOS.\n\nDebido a la longitud, máxima en comprimido, de 137 caracteres, del DOS. Y habiendo visto, que la calidad de impresión, al ser gráfica en Windows. Me decante por la clase elegida, por la facilidad de manejo.\n\nEn el caso, de tener que imprimir, en matriciales, TDosPrn sería una buena opción. Tambien puedes probar la Clase de Manuel Exposito: TPrn.\n\nReproduzco el LEE.ME, de la misma:\n\n[code:3h61t5gl]\n\n  --------------------------------------------------------\n   TPRN otra gerarquia de clases para gestion de informes\n  --------------------------------------------------------\n\n   TPrn es una gerarquia de clases para gestion de informes tipo DOS, que se puede utilizar en cualquier plataforma en la que funcione HARBOUR&#46; Esta especialmente recomendado para DOS y Windows/FiveWin&#46;\n\n   En windows deberia de utilizar un FONT no escalar&#46;\n\n   Hay listados de columnas en general &#40; Browses, autocolumnas y definidos &#41;,\n   Hay listados de formatos en preimpresos&#46;\n   Hay impresion de ficheros&#46;\n   Hay listados para hacer cartas MERGE o Mailing&#46;\n\nSi quieres aportar algo lo puedes hacer de varias maneras&#58;\n   - Mejorando las clases&#46;\n   - Aportando una cantidad voluntaria al Grupo Olivares 2000 &#40; GO2000 &#41;\n     Ese importe lo usaremos para hacer CDs con SoftWare gratuito, confeccionar\n     una revista, sufragar los gastos que se generen, exportar la idea del GO2000\n     a otros lugares del mundo, por ejemplo donde tu estas si aun no hay un\n     GO2000 y por que no decirlo, para satifaccion mia, que aunque no reciba\n     nada en metalico servira como mi peque¤a contribucion a todos&#46;\n\n\n   Un saludo desde España\n   de Manu Exposito  &#40; GO2000 &#41;\n\n   Dos Hermanas &#40;Sevilla&#41;, 2 de Julio de 2000\n[/code:3h61t5gl]\n\nSalu2, José Mª','',0,'AIA=','3h61t5gl',1,0,'',404,0,0),(9505,2241,7,274,0,'201.0.22.65',1142537293,1,0,1,1,1,0,'','Nao me abrem menus no emulador','Ola\'\n\nQuando executo nos emuladores os testes que contém menus, TUTOR03, TUTOR06 ,etc, o menu não é mostrado na tela do emulador, somente a MsgInfo( \"Click!\" ).\n\nO que pode estar errado?\n\n[]\'s\n\nRogerio','',0,'','ajfp82f6',1,0,'',274,0,0),(9506,2242,6,228,0,'201.245.222.85',1142537513,1,0,1,1,1,1,'','Crear libreria para easyreport?','Buena tarde para todos...\n\nHe estado intentando agregar el easy report a mis aplicaciones pero hasta ahora sin exito. \n\nprimero coloque los tres prg: vrd.prg, vrdcode.prg y  vrditem.prg; pero al compilar me dice que la funcion vrd esta definida doblemente, hice una revision exaustiva y no esta definida si no una vez.\n\nsegundo quite los tres prg mensionados anteriormente, pero al compilar me dice que no encuentra la funcion vrd.\n\nUn colega, me dijo que creara una lib. pero.. al compilar me arroja el siguiente error.\n\nC:\\EASYREPORT2\\FIVEWIN\\SOURCE\\VRD.PRG(2215) Warning W0001  Ambiguous reference: \'CREC\'\n\nAlguien me puede ayudar con este problemita..   <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'','3op4d8at',1,0,'',228,0,0),(9507,2216,6,83,0,'80.35.196.60',1142537617,1,0,1,1,1,0,'','Folder con Pelles C','Jose Luis, este código funciona perfectamente bajo Pelles C\n\nLa cabecera:\n#include &lt;windows.h&gt;\n#include &lt;commctrl.h&gt;\n#include &lt;richedit.h&gt;\nLANGUAGE LANG_SPANISH,SUBLANG_SPANISH_MODERN\n1 MANIFEST \"theme.man\"\n\nEl folder:\nPREFERBASE DIALOG DISCARDABLE 35, 81, 404, 271\nSTYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION\nCAPTION \"Preferencias y configuración\"\nFONT 8, \"MS Sans Serif\"\nBEGIN\n  CONTROL \"\", 101, \"TFolder\", WS_TABSTOP, 5, 2, 393, 243\n  CONTROL \"&amp;OK\", 106, \"Button\", WS_TABSTOP, 221, 249, 50, 14\n  CONTROL \"&amp;Cancelar\", 105, \"Button\", WS_TABSTOP, 163, 249, 50, 14\n  CONTROL \"\", 41, \"TBitmap\", 0x00000000, 367, 248, 25, 21\n  CONTROL \"Restaurar valores por defecto\", 62, \"Button\", WS_TABSTOP, 6, 250, 117, 14\nEND\n\nFWH 2.4 + HARBOUR\n\nel folder de arriba tiene cuatro pestañas y funciona sin problemas, eso si, debes tener definida la clase TFolder.\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'','14gbxsr3',1,0,'',83,0,0),(9508,2234,6,2,0,'87.218.146.142',1142538871,1,0,1,1,1,1,'','','Alejandro,\n\nSolo tienes que descargar el cvs.exe desde aqui:\n<!-- m --><a class=\"postlink\" href=\"ftp://ftp.harbour-project.org/dev/cvs.zip\">ftp://ftp.harbour-project.org/dev/cvs.zip</a><!-- m -->\n\ny luego ejecutar estas dos líneas:\ncvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/xharbour login \n \ncvs -z3 -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/xharbour co xharbour &gt; checkoutx.txt\n\nPulsa enter en la primera, cuando te pida login','',0,'','eqlnn5bs',1,0,'',2,0,0),(9509,2234,6,237,0,'200.68.70.89',1142539298,1,0,1,1,1,0,'','Me da el siguiente error','Microsoft Windows XP [Versión 5.1.2600]\n(C) Copyright 1985-2001 Microsoft Corp.\n\nC:\\Archivos de programa\\cvs&gt;cvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsro\nt/xharbour login\n(Logging in to <!-- e --><a href=\"mailto:anonymous@cvs.sourceforge.net\">anonymous@cvs.sourceforge.net</a><!-- e -->)\nCVS password:\ncvs [login aborted]: unrecognized auth response from cvs.sourceforge.net: M -!-\nClient or Server timeout occurred!\n\n\ny se muere ahi.\n\nGracias por cualquier ayuda!','',0,'','2n6jjmnx',1,0,'',237,0,0),(9510,2202,7,490,0,'80.24.224.89',1142540368,1,0,1,1,1,0,'','','Antonio,\n\nSigo con las pruebas, a ver si averiguamos de donde viene el problema.\nEl siguiente ejemplo:\n\n WSAStartup()\n msginfo( \"Pru socket1 \"+str(socket(AF_IRDA, SOCK_STREAM, 0)) )\n msginfo( \"Pru socket2 \"+str(prusock()) )\n WSACleanUp()\n\n//--------- Función en C para prusock() ---------------\nHB_FUNC( PRUSOCK )\n{\n  hb_retni( socket(AF_IRDA, SOCK_STREAM, 0) );\n}\n\nEn windows Mobile la 1 da Ok la 2 da Error.\n\nEn windows CE 5.0 la 1 da Error la 2 da Ok\n\n\nExplicación? No encuentro ninguna. A ver si Antonio ve alguna diferencia entre la implementación que tiene de la función socket fwppc, de la que muestro yo de pruebas.\n\nUn Saludo,\nJoaquín','',0,'','2faiitxq',1,0,'',490,0,0),(9511,2202,7,490,0,'80.24.224.89',1142541036,1,0,1,1,1,0,'','','Se me olvidaba decir, por si pudiera tener algo que ver, que estos son los ficheros que incluyo en la cabecera del C\n\n#pragma BEGINDUMP\n\n#include &lt;windows.h&gt;\n#include &lt;hbapi.h&gt;\n#include \"winsock2.h\"\n#define _WIN32_WCE\n#include &lt;af_irda.h&gt;\n\n\nUn Saludo,\nJoaquín','',0,'','yda4g1fb',1,0,'',490,0,0),(9512,2243,3,419,0,'196.25.255.195',1142542521,1,0,1,1,1,0,'','Buttonbar Disappears','Hello - I\'m back!  Miss me?\n\nI just discovered something interesting.\n\nI have a ButtonBar on a Window.\n\nWhen you right click on the ButtonBar the \'Top\', \'Left\', \'Bottom\', \'Right\' menu is displayed - everything normal so far.\n\nBUT\n\nWhen you first select \'Left\' for example the ButtonBar is displayed on the left but if you then right click on THIS ButtonBar and select \'Right\' the ButtonBar moves to the right quite correctly but then disappears and only the defined Buttons are displayed.\n\nThis works in reverse as well i.e. from \'Top\' select \'Right\' and then \'Left\' and same thing happens.\n\nThere is no problem moving \'Top\' to \'Bottom\' and then back to \'Top\'.\n\nDale.','',0,'','24dan1k5',1,0,'',419,0,0),(9513,2244,2,9,0,'85.59.36.81',1142542570,1,0,1,1,1,0,'','Cmbio fondo ventana principal','Tengo una aplicación, donde la ventana principal tiene un fondo. Me funciona correctamente y lo tengo definido de la manera mas clásica y sencilla:\n\n@ 1, 0 BITMAP oBmp FILE \"fuengi.bmp\" OF oWnd ;\n          SIZE  800,495 ADJUST\n\nNecesito ahora cambiar el fondo de esta ventana, dependiendo del usuario que lo use.- Lo he intentado de varias maneras con UPDATE y REFRESH, pero no consigo echarlo andar.\n\n¿Alguna idea?\n\nUn saludo\n\nManuel','',0,'','3dfzngpv',1,0,'',9,0,0),(9514,2202,7,2,0,'87.218.146.81',1142543066,1,0,1,1,1,1,'','','Joaquín,\n\nla implementación de sockets de FWPPC está en source\\winapi\\winsock.c\n\ny la llamada a la función socket() se hace desde la Clase TSocket así:\n\nSocket( AF_INET, SOCK_STREAM, IPPROTO_IP )\n\nTu usas AF_IRDA en vez de AF_INET. AF_IRDA es el infrarojos, no ? quizá sea esa la diferencia.','',0,'','174h6c1k',1,0,'',2,0,0),(9515,2241,7,2,0,'87.218.146.81',1142543630,1,0,1,1,1,1,'','','Rogerio,\n\nQue emulador estás usando ? Puedes poner una imagen capturada del emulador ? gracias.','',0,'','2clav6oe',1,0,'',2,0,0),(9516,2236,3,2,0,'87.218.146.81',1142543993,1,0,1,1,1,1,'','','Frank,\n\nPlease try to compile this sample:\n[code:10x8dwqd]\n#include &quot;hbclass&#46;ch&quot;\n\nCLASS Test\n\nENDCLASS\n[/code:10x8dwqd]','',0,'AIA=','10x8dwqd',1,0,'',2,0,0),(9517,2243,3,2,0,'87.218.146.81',1142544232,1,0,1,1,1,1,'','','Dale,\n\nAre you using a MDI window ?\n\nsamples\\tutor04.prg works ok doing what you have described.','',0,'AIA=','3n2a38av',1,0,'',2,0,0),(9518,2243,3,2,0,'87.218.146.81',1142544336,1,0,1,1,1,1,'','','Dale,\n\nYes, it looks as a bug with the buttonbar and MDI windows.','',0,'AIA=','1bkxd4zp',1,0,'',2,0,0),(9519,2240,3,2,0,'87.218.146.81',1142544458,1,0,1,1,1,1,'','','John,\n\nDon\'t you mean the opposite ?\n\noButton:oJump:=oGet','',0,'AIA=','ixam8uwy',1,0,'',2,0,0),(9520,2241,7,274,0,'201.0.22.65',1142544483,1,0,1,1,1,0,'','','Antonio\n\nestou usando aqueles que baixei na ultima atualização de FWPPC.\nEm qualquer um deles acontece o mesmo.\nnão me aparece o menu.\nveja a imagem :\n\n\n[img:9rv4hq7l]http&#58;//softservice&#46;com/tmp/tutor03&#46;jpg[/img:9rv4hq7l]\n\n[]\'s\n\nRogerio','',0,'CA==','9rv4hq7l',1,0,'',274,0,0),(9521,2238,3,2,0,'87.218.146.81',1142544631,1,0,1,1,1,1,'','','Reinaldo,\n\nIs the richedit control placed on a dialogbox ?','',0,'CA==','2fztvf9x',1,0,'',2,0,0),(9522,2241,7,2,0,'87.218.146.81',1142544859,1,0,1,1,1,1,'','','Rogerio,\n\nUsa el emulador que está en PPC_2003_SE, no el de PPC_2003_Square','',0,'CA==','1ng845r9',1,0,'',2,0,0),(9523,2202,7,490,0,'80.24.224.89',1142544965,1,0,1,1,1,0,'','','Antonio,\n\nNo van por ahí los tiros, te explico:\n\nEsto directamente falla en Win CE\n\nTSocket():New( , oWnd )  //  provoca hb_internal error\n\ny otro tema es que me parece que ya he visto la diferencia:\n\nEn el código C hay que definir lo siguiente:\n\n// Para Windows Mobile\n#define  _WIN32_WCE\n\n// Para Windows CE 5.0\n#define _WIN32_WINDOWS\n\n\nEl problema es que no soy muy ducho con el C y no sé poner al principio, lo siguiente ( son simulados los comandos de C )\n\n\n#pragma BEGINDUMP \n\n#include &lt;windows.h&gt; \n#include &lt;hbapi.h&gt; \n\n//---------- Habría alguna manera de poner este trocito en C\nif IsMobile\n   #define _WIN32_WCE \nelse\n   #define _WIN32_WINDOWS\n//-------------------------------------------------------------------\n\n#Include ....\n\n\n\n\nUn Saludo,\nJoaquín\n\n\n#include &lt;af_irda.h&gt;','',0,'CA==','18307eof',1,0,'',490,0,0),(9524,2245,3,299,0,'69.65.95.131',1142545046,1,0,1,0,1,0,'','Input on one dialog to display on different dialog','Hi.\n\nMe again asking for help.\n\nI need to allow input into gets from another dialog that simply displays the numeric keypad.  Here is that image:\n[/img]\n<!-- m --><a class=\"postlink\" href=\"http://www.structuredsystems.com/pictures/screenpicture/screen.jpg\">http://www.structuredsystems.com/pictur ... screen.jpg</a><!-- m -->\n[/img]\nHere is my code:\n[code:1ygzp5j0]\n&#46;&#46;&#46; in &#58;&#58;odlg definition &#40;main dialog&#41;\n	REDEFINE GET aGet&#91; 3&#93; VAR &#58;&#58;oTrg&#58;VarBP ID 103 OF &#58;&#58;ofld&#58;aDialogs&#91; 1 &#93; Picture &quot;999/999&quot; VALID&#40; ColorIfEmpty&#40; aget&#91; 3 &#93; &#41; &#41;\n	aget&#91; 3 &#93;&#58;bGotFocus &#58;= &#123;|| &#58;&#58;oActive &#58;= aGet&#91; 3 &#93; &#125;\n&#46;&#46;&#46;\n&#46;&#46;&#46; now inside NumKeyPad Dlg definition\nlocal oSelf		&#58;= Self\n		DEFINE DIALOG oSelf&#58;oKeyPadDlg RESOURCE &quot;NUM_KEYPAD&quot; OF oSelf&#58;oDlg BRUSH oBrush\n&#46;&#46;&#46;\n		REDEFINE BTNBMP oBtn&#91;12&#93; ID 112 RESOURCE &quot;NUM_RIGHT&quot; OF oSelf&#58;oKeyPadDlg ACTION oSelf&#58;Insert&#40; VK_RIGHT &#41; NOBORDER\n		REDEFINE BTNBMP oBtn&#91;13&#93; ID 113 RESOURCE &quot;NUM_ENTER&quot; OF oSelf&#58;oKeyPadDlg ACTION oSelf&#58;Insert&#40; VK_TAB &#41; NOBORDER\n		aEval&#40; obtn, &#123; |e|e&#58;lTransparent &#58;= &#46;t&#46; &#125; &#41;\n		ACTIVATE DIALOG oSelf&#58;oKeyPadDlg NOWAIT ON INIT oSelf&#58;oDlg&#58;SetFocus&#40;&#41;\n&#46;&#46;&#46;\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD Insert&#40; xKey &#41; CLASS TTriage\nLocal nFocus	&#58;= &#58;&#58;oDlg&#58;oCtlFocus&#58;nOption\n\n	if nFocus == 1 &#46;and&#46; ValType&#40; &#58;&#58;oActive &#41; &lt;&gt; &quot;U&quot;\n		&#58;&#58;odlg&#58;SetFocus&#40;&#41;\n		FwKeyboard&#40; &#58;&#58;oActive, xKey &#41; //thanks J&#46;Bott\n	Endif\n\nRETURN NIL\n[/code:1ygzp5j0]\nIt almost works.\n\nThe problem is in method Insert.  By setting focus to ::odlg (main dialog), the cursor goes to the very first get on the dialog.  If not setting focus to ::odlg, then nothing gets inputed into the gets.\n\nHelp please?\n\nReinaldo.[/url]','',0,'AIA=','1ygzp5j0',1,0,'',299,0,0),(9525,2234,6,2,0,'87.218.146.81',1142545104,1,0,1,1,1,1,'','','Alejandro,\n\nInténtalo varias veces y a distintas horas. A veces sourceforge está en mantenimiento (backups, etc.) y no responde.','',0,'AIA=','2kcbsfsh',1,0,'',2,0,0),(9526,2216,6,2,0,'87.218.146.81',1142545225,1,0,1,1,1,1,'','','Jose Luis,\n\nPuedes usar Borland Resources Workshop ó el de Pelles. Ambos funcionan bien.','',0,'AIA=','b8a6586f',1,0,'',2,0,0),(9527,2238,3,299,0,'69.65.95.131',1142545309,1,0,1,0,1,0,'','','Yes.  Inside a \"SysTabControl32\" that is inside a Dialog.','',0,'AIA=','aqd8ul45',1,0,'',299,0,0),(9528,2239,6,2,0,'87.218.146.81',1142545576,1,0,1,1,1,1,'','','Joao,\n\nTienes que compilar el módulo source\\winapi\\NETAPI32.PRG y enlazarlo con el ejemplo samples\\TestNet.prg','',0,'AIA=','1wppqgiw',1,0,'',2,0,0),(9529,2235,6,2,0,'87.218.146.81',1142545668,1,0,1,1,1,1,'','','Jose Luis, \n\nLo idóneo es comensar por un ejemplo que se sabe que funciona bien, como samples\\TestFold.prg y comprobar si te funciona bien.\n\nEn cuanto a los editores de recursos, puedes usar el de Borland ó el de PellesC, ambos funcionan muy bien.','',0,'AIA=','3le06var',1,0,'',2,0,0),(9530,2202,7,2,0,'87.218.146.81',1142545798,1,0,1,1,1,1,'','','Joaquín,\n\nEstás usando el build más reciente de FWPPC y no te sale la descripción del error interno ?','',0,'AIA=','2ipj3nzw',1,0,'',2,0,0),(9531,2238,3,2,0,'87.218.146.81',1142546185,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease try this:\n\noRichEdit:nDlgCode = DLGC_WANTALLKEYS','',0,'AIA=','2zv0hqqw',1,0,'',2,0,0),(9532,2246,6,124,0,'201.252.205.252',1142546221,1,0,1,1,1,0,'','Problema al linkear sistema en harbour por primera vez','Hola a todos.\n\nEs la primera compilacion de nuestro sistema con harbour y tengo el siguiente problema.\n\nAl compilar el ejemplo adir.prg del fwh con el comando buildh.bat me genera un ejecutable de 1.028.096 bytes.\n\ntenemos generadas 3 librerias de nuestro sistema de gestion denominadas:\n\ne:\\evo1\\exe32\\logicl32.lib +\ne:\\evo1\\exe32\\evog32.lib +\ne:\\evo1\\exe32\\logiex32.lib +\n\nque ocupan 1.240 kbytes.\n\ntodos los objetos fueron compilados con el rmake con la siguiente sintaxis.\nTxls.obj     :    Txls.prg\n    c:\\harbour\\bin\\harbour $&lt; /n /ic:\\fwh\\include;c:\\harbour\\include /w /p\n    c:\\bcc55\\bin\\bcc32 -M -c  -O2 -Ic:\\harbour\\include Txls.c\n    c:\\bcc55\\bin\\tlib logicl32 -+$@ ,,\n\nPara linkear utilizamos:\n\nc:\\bcc55\\bin\\ilink32 -Gn -aa -Tpe  -s @b32.bc\n\ny el archivo b32.bc se encuentra mas abajo.\n\n*************************\nEl problema que tenemos es que el ejecutable generado es de : 1.084.928\n*************************\n\nNo le encuentro la vuelta. Alguien me puede ayudar?\n\nsaludossss\n\n\nARCHIVO b32.bc\n===========\nc:\\bcc55\\lib\\c0w32.obj + \n, +\nevo32.exe, +\nevo32.map, +\nc:\\fwh\\lib\\FiveH.lib c:\\fwh\\lib\\FiveHC.lib +\nc:\\harbour\\lib\\rtl.lib + \nc:\\harbour\\lib\\vm.lib + \nc:\\harbour\\lib\\gtwin.lib + \nc:\\harbour\\lib\\lang.lib + \nc:\\harbour\\lib\\macro.lib + \nc:\\harbour\\lib\\rdd.lib + \nc:\\harbour\\lib\\dbfntx.lib + \nc:\\harbour\\lib\\dbfcdx.lib + \nc:\\harbour\\lib\\dbffpt.lib + \nc:\\harbour\\lib\\hbsix.lib + \nc:\\harbour\\lib\\debug.lib + \nc:\\harbour\\lib\\common.lib + \nc:\\harbour\\lib\\pp.lib + \nc:\\harbour\\lib\\codepage.lib + \ne:\\evo1\\exe32\\logicl32.lib +\ne:\\evo1\\exe32\\evog32.lib +\ne:\\evo1\\exe32\\logiex32.lib +\nc:\\bcc55\\lib\\cw32.lib + \nc:\\bcc55\\lib\\import32.lib + \nc:\\bcc55\\lib\\psdk\\odbc32.lib + \nc:\\bcc55\\lib\\psdk\\nddeapi.lib + \nc:\\bcc55\\lib\\psdk\\iphlpapi.lib +\nc:\\bcc55\\lib\\psdk\\rasapi32.lib,','',0,'AIA=','2yamtaes',1,0,'',124,0,0),(9533,2226,6,362,0,'200.168.52.156',1142546246,1,0,1,1,1,1,'','','Resolvido, resuelto.\n\nBasta solamente esto:\n\n\nWinExec(\'RunDLL32.exe Shell32.DLL,Control_RunDLL Desk.cpl\') \n\nGracias a Luiz Arruda, un Maestro en Fivewin.','',0,'AIA=','zz9m1i5d',1,0,'',362,0,0),(9534,2239,6,362,0,'200.168.52.156',1142546363,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3anyfk1w]Joao,\n\nTienes que compilar el módulo source\\winapi\\NETAPI32.PRG y enlazarlo con el ejemplo samples\\TestNet.prg[/quote:3anyfk1w]\n\n\nGracias Antonio, Voy Intentar! Saludos.','',0,'gA==','3anyfk1w',1,0,'',362,0,0),(9535,2245,3,303,0,'68.7.28.54',1142546391,1,0,1,1,1,0,'','','Reinaldo,\n\nI think we are going to need a small self-contained example.\n\nAlso I do not understand why you are using a local oSelf:\n\nlocal oSelf      := Self \n      DEFINE DIALOG oSelf:oKeyPadDlg RESOURCE \"NUM_KEYPAD\" OF oSelf:oDlg BRUSH oBrush \n\noSelf:oKeyPadDlg is the same as ::oKeyPadDlg. You don\'t need a local. Perhaps you are confused about this?\n\nJames','',0,'gA==','1ismofbk',1,0,'',303,0,0),(9536,2244,2,2,0,'87.218.146.81',1142546504,1,0,1,1,1,1,'','','Manuel,\n\nHas probado a hacer oBmp:LoadBMP( cBmpFile ) ?','',0,'gA==','2m4uhtqc',1,0,'',2,0,0),(9537,2246,6,2,0,'87.218.146.81',1142546633,1,0,1,1,1,1,'','','Ricardo,\n\nEl tamaño es correcto. Cual es el problema ó el error ?','',0,'gA==','235lp9n7',1,0,'',2,0,0),(9538,2202,7,490,0,'80.24.224.89',1142546668,1,0,1,1,1,0,'','','Antonio,\n\nAcabo de instalar el de hoy y ahora no sale ni internal error, poniendo esto:\n\nmsginfo(\"Antes\")\n\n o := TSocket():New( ,oWnd)\n\n msginfo(\"después\")\n\n......\n\n\nLa palabra \"después\" nunca llega a mostrarse y el sistema se queda como herido (aunque no de muerte) porque puedes pulsar otro botón y salir.\n\nCon el build de hace un par de días sólo mostraba hb_internal error\n\n\nUn  Saludo,\nJoaquín','',0,'gA==','6wpvcvoa',1,0,'',490,0,0),(9540,2202,7,2,0,'87.218.146.81',1142547885,1,0,1,1,1,1,'','','Joaquín,\n\nAcabamos de probar este ejemplo con el build de FWPPC más reciente, en el emulador, y ha funcionado correctamente:\n[code:2x2sasul]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, o\n\n   DEFINE WINDOW oWnd\n\n   msginfo&#40;&quot;Antes&quot;&#41; \n\n   o &#58;= TSocket&#40;&#41;&#58;New&#40; ,oWnd &#41; \n\n   msginfo&#40;&quot;después&quot;&#41;\n   \n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:2x2sasul]','',0,'AIA=','2x2sasul',1,0,'',2,0,0),(9541,1370,3,487,0,'151.38.116.214',1142548037,1,0,1,1,1,0,'','','[quote=&quot;Marco Turco&quot;:2dfcyjyy]I found the problem on msn.\nIt is a bug on Outlook 2003 sp1.\n[/quote:2dfcyjyy]\n\nMarco, I\'ve the same problem with Outlook 2002.\nI\'m quite sure you\'ve posted the URL which explains the problem, but I can no more find it.\n\nBTW, did you find a solution ?\n\nHi,\nDavide.','',0,'gA==','2dfcyjyy',1,0,'',487,0,0),(9542,2241,7,274,0,'201.0.22.65',1142548245,1,0,1,1,1,0,'','','Antonio\n\njá havia tentado esse. Fiz novamente.\nDá no mesmo:\n[img:3ja5qwvy]http&#58;//softservice&#46;com/tmp/tutor03a&#46;jpg[/img:3ja5qwvy]\n\no menu não é mostrado.\n\n[]\'s\n\nRogerio','',0,'CA==','3ja5qwvy',1,0,'',274,0,0),(9543,2237,2,10,0,'213.231.110.183',1142548342,1,0,1,1,1,0,'','','¡¡¡Gracias Willi por tu pronta respuesta!!!\nFuncionó estupendamente.\n\nSaludos.','',0,'CA==','3kg3p122',1,0,'',10,0,0),(9544,2241,7,2,0,'87.218.146.81',1142548498,1,0,1,1,1,1,'','','Rogerio,\n\nParece que los recursos no estan dentro del EXE. \n\nPor favor copia aqui toda la información que te pone en pantalla buildce.bat para que veamos si los recursos se estan compilando correctamente.','',0,'CA==','336kslgs',1,0,'',2,0,0),(9545,2247,6,278,0,'200.72.147.139',1142549173,1,0,1,1,1,1,'','Como bloquear las columnas del xbrowse','Hola Foro:\n\nNecesito por favor algun ejemplo de como mostrar solo las columnas ( campos) que me interezan de un dbf, ya que al usar la clase xbrowse,\nsiempre me carga todos los campos en el browse.\n\nEl código que uso es:\n\nWITH OBJECT ( oBrw := TXBrowse():New( oWnd ) ) \n \n                :SetRDD( \"Ciudades\" ) \n\n	WITH OBJECT :aCols[01] \n         	:bStrData   := { || Transf( Ciudades-&gt;Codigo , \"@E 9999\" ) }\n        	:cHeader    := \"CODIGO\" \n          	:nWidth   	:= 100\n \n      	END \n\n 	:CreateFromCode() \n\n	\nEND \n\nComo evito que me muestre los otros campos ??  Ya que siempre al cargar la ventana, salen todos los campos que deseo mantener ocultos.\n\nSe agredece algun código de ejemplo.','',0,'','2pxo53y3',1,0,'',278,0,0),(9546,2232,6,63,0,'80.37.102.128',1142549325,1,0,1,1,1,0,'','','Muchas gracias, Marco.  Es eso lo que necesitaba.\nSaludos,\nRafael','',0,'','16gvqk0m',1,0,'',63,0,0),(9547,2230,2,147,0,'200.68.215.107',1142550440,1,0,1,0,1,1,'','','Gracias Oskar; aunque lo que está en dbWide es la version para xHarbour/Harbour','',0,'','tb332n1c',1,0,'',147,0,0),(9548,2241,7,274,0,'201.0.22.65',1142550680,1,0,1,1,1,0,'','','Antonio\n\no buildce.bat é o mesmo que veio no pacote, somente alterei a localização \nset hdir=e:\\harbour_CE  e set vcdir=e:\\vce\n\n\naqui está o retorno da compilação somente com os warnings que vc diz não importar:\n\n\n\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor03.prg\' and generating preprocessed output to \'tutor03.ppo\'...\nLines 34, Functions/Procedures 2\nGenerating C source output to \'tutor03.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\ntutor03.c\n   Creating library tutor03.lib and object tutor03.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=\n0x00030CE4\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rv\na=0x000874B0\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x000010\n00, rva=0x00094EFC\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x000010\n00, rva=0x000AA9D8\n* Application successfully built\nE:\\FWPPC\\SAMPLES&gt;\n\n[]\'s\n\nRogerio','',0,'','3kir7wy2',1,0,'',274,0,0),(9549,2238,3,299,0,'69.65.95.131',1142550915,1,0,1,0,1,0,'','','Nope.  Didn\'t do it.  Same behavior.\n\nReinaldo.','',0,'','dlrlrtqa',1,0,'',299,0,0),(9550,2241,7,2,0,'87.218.146.81',1142551008,1,0,1,1,1,1,'','','Rogerio,\n\nAbre el EXE con PellesC y comprueba que los recursos estan dentro del EXE. Tambien deberías tener un tutor03.res en el directorio samples','',0,'','v1lr6u2p',1,0,'',2,0,0),(9551,2246,6,124,0,'200.117.36.179',1142551633,1,0,1,1,1,0,'','','Antonio:\n\nEl programa no arranca ( lo cual hace bien en fivewin/clipper ), sino que muestra una ventana \"alert\" que cuando la cerramos el programa se cierra. \n\nUn tema para ver con el tamaño es que si linkeamos solamente los libs de fivewin, y harbour, y bcc da casi el mismo tamaño que si incluímos 3 libs que forman nuestro sistema, las cuales por sí solas suman aprox 1 mega, es decir sin los libs del sistema el exe tiene un mega aprox, con nuestros libs incluídos el exe mantiene casi el tamaño, sólo suma 40kb., por esto dirigimos nuestra inquietud hacia el tamaño.\n\nUn último dato: nosotros incluímos todos los objs del sistema en estas 3 libs, no dejamos ningún obj ( ni siquiera el de arranque del sistema ) afuera, esto está mal? ( la función main() está incluída dentro de una de estas 3 libs ).\n\nEspero tu respuesta.\nSaludos.\nRicardo.-','',0,'','1svypi97',1,0,'',124,0,0),(9552,2245,3,299,0,'69.65.95.131',1142551649,1,0,1,0,1,0,'','','James;\n\nThank you for answering.  Good question on the oself.  I have discovered that:\n\n[code:33vxts6o]\n		ACTIVATE DIALOG &#58;&#58;oKeyPadDlg NOWAIT ON INIT &#58;&#58;oDlg&#58;SetFocus&#40;&#41;\n[/code:33vxts6o]\n\nWill cause an error at run time.  ::oDlg is presumed to belong to the tdialog class at runtime.  So I get around that problem by referencing as oself:oDlg.\n[quote:33vxts6o]\nApplication\n===========\n   Path and name: F:\\mp\\triage.exe (32 bits)\n   Size: 2,423,808 bytes\n   Time from start: 0 hours 0 mins 7 secs \n   Error occurred at: 03/16/2006, 18:20:09\n   Error description: Error BASE/1004  Message not found: TDIALOG:ODLG\n[/quote:33vxts6o]\n\nIt will cause the same runtime error here:\n[code:33vxts6o]\n		REDEFINE BTNBMP oBtn&#91;13&#93; ID 113 RESOURCE &quot;NUM_ENTER&quot; OF &#58;&#58;oKeyPadDlg ACTION &#58;&#58;Insert&#40; VK_TAB &#41; NOBORDER\n[/code:33vxts6o]\n\n[quote:33vxts6o]\nApplication\n===========\n   Path and name: F:\\mp\\triage.exe (32 bits)\n   Size: 2,423,808 bytes\n   Time from start: 0 hours 0 mins 11 secs \n   Error occurred at: 03/16/2006, 18:23:15\n   Error description: Error BASE/1004  Message not found: TBTNBMP:INSERT\n[/quote:33vxts6o]\nSo I get around that problem with oself:Insert( VK_TAB ).  Pretty soon I\'m using oSelf anywhere I\'m defining or redefining just to make sure that the pre-processor does not make the wrong association.\n\nI will try to build a self-contained example.  But if you look at the picture, you pretty much get an idea of what I\'m trying to do.\n\n\n\nReinaldo','',0,'gIA=','33vxts6o',1,0,'',299,0,0),(9553,2241,7,274,0,'201.0.22.65',1142552292,1,0,1,1,1,0,'','','Antonio\n\nsi, os recursos estão lá.\n\ntambém foi criado tutor03.RES\n\n[]\'s\n\nRogerio','',0,'','3k3a4fzn',1,0,'',274,0,0),(9554,2241,7,2,0,'87.218.146.81',1142552612,1,0,1,1,1,1,'','','Rogerio,\n\nPor favor envíame por email tutor03.exe en ZIP. Gracias,','',0,'','r8yyhfd1',1,0,'',2,0,0),(9555,2246,6,2,0,'87.218.146.81',1142552805,1,0,1,1,1,1,'','','Ricardo,\n\nEl OBJ que contiene Main() no lo pongais dentro de una librería, y enlazadlo como OBJ principal.\n\nEl tamaño se debe a la máquina virtual de harbour que se enlaza siempre, y en realidad la aplicación aumenta solo un poco su tamaño, aunque crece conforme crece la aplicación.','',0,'','1hvj8j8t',1,0,'',2,0,0),(9556,2241,7,274,0,'201.0.22.65',1142552829,1,0,1,1,1,0,'','','Antonio\n\nColoquei o executável aqui:  <!-- m --><a class=\"postlink\" href=\"http://softservice.com/tmp/tutor3.zip\">http://softservice.com/tmp/tutor3.zip</a><!-- m -->\n\n[]\'s\n\nRogerio','',0,'','13aioizp',1,0,'',274,0,0),(9557,2245,3,303,0,'68.7.28.54',1142562956,1,0,1,1,1,0,'','','Reinaldo,\n\n&gt;Will cause an error at run time. ::oDlg is presumed to belong to the tdialog class at runtime. &lt;\n\nAh, yes. That is because the preprocessor passes self in the codeblock. I think you can get around that problem by defining the codeblock yourself.\n\n&gt; I will try to build a self-contained example. But if you look at the picture, you pretty much get an idea of what I\'m trying to do.&lt; \n\nOh, I see what you are trying to do, but I can\'t run your code example to test it.\n\nJames[/u]','',0,'','li5t86s4',1,0,'',303,0,0),(9559,2224,1,303,0,'68.7.28.54',1142566602,1,0,1,1,1,0,'','','It could be that particular printer driver doesn\'t support multiple copies. Have you tried another different printer?\n\nAlso there are a lot of drivers now that are incompatible with the FW/Clipper 16bit printer interface. The only solution to this is to upgrade to 32bit. \n\nAnd the new windows Vista won\'t run 16bit apps, so you need to upgrade to 32bit soon anyway.\n\nJames','',0,'','32elcg7x',1,0,'',303,0,0),(9560,2245,3,299,0,'69.65.95.131',1142568702,1,0,1,0,1,0,'','','James;\n\nI\'m sure you are dieing to ask, so let me be quite frank.  I\'m aware that this type of input interface is not as efficient as doing the input via the keyboard.  Originally I was reluctant to implement a visual keypad for data entry.  But was later persuaded by the customer for two reasons (besides the fact that the customer is always right):\n\n1. The operator will be using a touch screen to do the input.  That changes the panorama.\n\n2. The people that make purchasing decisions are strongly influenced by touch screen graphical input screens.  They don\'t understand that some times less is more.\n\nI have tried to simplify the code as much as possible and have uploaded a sample .prg + .rc zipped into triage.zip and is available from \n[URL]\n<!-- w --><a class=\"postlink\" href=\"http://www.structuredsystems.com/pictures/screenpicture/\">www.structuredsystems.com/pictures/screenpicture/</a><!-- w -->  \n[/URL]\nIt is \"compilable\" with fw\'s buildx.bat.\n\nYou\'ll notice that it works well except for numeric and date variable types.  Haven\'t figure out why.\n\n\nReinaldo.','',0,'','3fgbgp05',1,0,'',299,0,0),(9562,2243,3,419,0,'196.25.255.210',1142573891,1,0,1,1,1,0,'','','Good Morning,\n\nYes - MDI.\n\nRegards,\n\nDale.','',0,'','r8wnqjqk',1,0,'',419,0,0),(9563,2242,6,56,0,'217.251.230.173',1142576777,1,0,1,1,1,1,'','','Hi,\n\nplease insert \"MEMVAR cRec\" on top of vrd.prg.','',0,'','xjr58ncy',1,0,'',56,0,0),(9564,2241,7,2,0,'87.218.146.250',1142577642,1,0,1,1,1,1,'','','Rogerio,\n\nTu tutor03.exe funciona perfectamente, y con el menú.\n\nPrueba a reiniciar tu ordenador y vuelve a probarlo. Gracias.','',0,'','2dyd105y',1,0,'',2,0,0),(9565,2236,3,382,0,'80.140.233.110',1142577733,1,0,1,1,1,1,'','','Hi Antonio,\n\nthat is the result\n\n\\xhb\\bin\\xhb test -n -m -w -es2\n\n[code:1rh6wxc1]\nxHarbour Compiler build 0&#46;99&#46;61 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'test&#46;prg\'&#46;&#46;&#46;\n\nLines 42, Functions/Procedures 1\nGenerating C source output to \'test&#46;c\'&#46;&#46;&#46;\nGenerating object output to \'test&#46;obj\'&#46;&#46;&#46;\ntest&#46;c&#40;15&#41;&#58; warning&#58; Missing type specifier&#46;\n\ntest&#46;c&#40;36&#41;&#58; error&#58; Undeclared identifier \'hb_INITSTATICS\'&#46;\n\ntest&#46;c&#40;36&#41;&#58; warning&#58; Conversion from \'void __cdecl function&#40;void&#41; *\' to \'int\' is undefined&#46;\n\ntest&#46;c&#40;36&#41;&#58; error&#58; Initializer must be constant&#46;\n\ntest&#46;c&#40;113&#41;&#58; warning&#58; Missing type specifier&#46;\n\ntest&#46;c&#40;114&#41;&#58; warning&#58; Missing prototype for \'HB_FUNC_INITSTATICS\'&#46;\n\ntest&#46;c&#40;123&#41;&#58; warning&#58; Missing return value&#46;\n\n[/code:1rh6wxc1]\n\nWith xHb.Febr. 0.99.60 it\'s okay\n\nAnd this is the C-Code:\n[code:1rh6wxc1]\n*\n * xHarbour build 0&#46;99&#46;61 Intl&#46; &#40;SimpLex&#41;\n * Generated C source code from &lt;test&#46;prg&gt;\n * Command&#58; \\xhb\\bin\\xhb test /m /n /w /es \n * Created&#58; 2006&#46;03&#46;17 07&#58;35&#58;43 &#40;Pelles ISO C Compiler 2&#46;70&#41;\n */\n\n#include &quot;hbvmpub&#46;h&quot;\n#include &quot;hbpcode&#46;h&quot;\n#include &quot;hbinit&#46;h&quot;\n\n#define __PRG_SOURCE__ &quot;test&#46;prg&quot;\n\nHB_FUNC&#40; TEST &#41;;\nHB_FUNC_INITSTATICS&#40;&#41;;\nHB_FUNC_EXTERN&#40; HBCLASS &#41;;\nHB_FUNC_EXTERN&#40; __CLS_PARAM &#41;;\nHB_FUNC_EXTERN&#40; __CLSINST &#41;;\nHB_FUNC_EXTERN&#40; PCOUNT &#41;;\nHB_FUNC_EXTERN&#40; HB_APARAMS &#41;;\n\n#undef HB_PRG_PCODE_VER\n#define HB_PRG_PCODE_VER 7\n\nHB_INIT_SYMBOLS_BEGIN&#40; hb_vm_SymbolInit_TEST &#41;\n&#123; &quot;TEST&quot;, &#123;HB_FS_PUBLIC | HB_FS_LOCAL | HB_FS_FIRST&#125;, &#123;HB_FUNCNAME&#40; TEST &#41;&#125;, NULL &#125;,\n&#123; &quot;NEW&quot;, &#123;HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE&#125;, &#123;NULL&#125;, NULL &#125;,\n&#123; &quot;HBCLASS&quot;, &#123;HB_FS_PUBLIC&#125;, &#123;HB_FUNCNAME&#40; HBCLASS &#41;&#125;, NULL &#125;,\n&#123; &quot;__CLS_PARAM&quot;, &#123;HB_FS_PUBLIC&#125;, &#123;HB_FUNCNAME&#40; __CLS_PARAM &#41;&#125;, NULL &#125;,\n&#123; &quot;CREATE&quot;, &#123;HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE&#125;, &#123;NULL&#125;, NULL &#125;,\n&#123; &quot;HCLASS&quot;, &#123;HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE&#125;, &#123;NULL&#125;, NULL &#125;,\n&#123; &quot;__CLSINST&quot;, &#123;HB_FS_PUBLIC&#125;, &#123;HB_FUNCNAME&#40; __CLSINST &#41;&#125;, NULL &#125;,\n&#123; &quot;PCOUNT&quot;, &#123;HB_FS_PUBLIC&#125;, &#123;HB_FUNCNAME&#40; PCOUNT &#41;&#125;, NULL &#125;,\n&#123; &quot;CONSTRUCTORCALL&quot;, &#123;HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE&#125;, &#123;NULL&#125;, NULL &#125;,\n&#123; &quot;HB_APARAMS&quot;, &#123;HB_FS_PUBLIC&#125;, &#123;HB_FUNCNAME&#40; HB_APARAMS &#41;&#125;, NULL &#125;,\n&#123; &quot;&#40;_INITSTATICS&#41;&quot;, &#123;HB_FS_INITEXIT&#125;, &#123;hb_INITSTATICS&#125;, NULL &#125;\nHB_INIT_SYMBOLS_END&#40; hb_vm_SymbolInit_TEST &#41;\n\n#if defined&#40;HB_PRAGMA_STARTUP&#41;\n   #pragma startup hb_vm_SymbolInit_TEST\n#elif defined&#40;HB_MSC_STARTUP&#41;\n   #if _MSC_VER &gt;= 1010\n      #pragma data_seg&#40; &quot;&#46;CRT$XIY&quot; &#41;\n      #pragma comment&#40; linker, &quot;/Merge&#58;&#46;CRT=&#46;data&quot; &#41;\n   #else\n      #pragma data_seg&#40; &quot;XIY&quot; &#41;\n   #endif\n   static HB_$INITSYM hb_vm_auto_SymbolInit_TEST = hb_vm_SymbolInit_TEST;\n   #pragma data_seg&#40;&#41;\n#endif\n\nHB_FUNC&#40; TEST &#41;\n&#123;\n   static const BYTE pcode&#91;&#93; =\n   &#123;\n	HB_P_FRAME, 2, 255,	/* locals, params */\n	HB_P_SFRAME, 10, 0,	/* symbol &#40;_INITSTATICS&#41; */\n	HB_P_LOCALNEARSETINT, 2, 1, 0,	/* NSCOPE 1*/\n	HB_P_PUSHSTATIC, 1, 0,	/* S_OCLASS */[/code:1rh6wxc1]\nRegards\nFrank','',0,'AIA=','1rh6wxc1',1,0,'',382,0,0),(9566,2236,3,2,0,'87.218.146.250',1142577841,1,0,1,1,1,1,'','','Frank,\n\nI would suggest you to reinstall xHB and to double check that you are using the right header files.','',0,'AIA=','19ukp909',1,0,'',2,0,0),(9567,2245,3,303,0,'68.7.28.54',1142578917,1,0,1,1,1,0,'','','Reinaldo,\n\nI have downloaded your sample and have it running, but its late and I have to drive all day tomorrow, so I will look at when I return.\n\nJames','',0,'AIA=','hief9rab',1,0,'',303,0,0),(9568,2248,19,56,0,'217.251.231.50',1142579906,1,0,1,1,1,0,'','ANN: EasyPreview 1.6.1 released!','Hello,\n\na new version of EasyPreview is available!\n\nThe update is free for every 1.5.x user. You will find a full working test\nversion in the download area of <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->.\n\nWe fixed several bugs and made EasyPreview compatible with the\nlatest FiveWin printer classes.\n\nBest regards, Timm\n\n    Timm Sodtalbers\n    Sodtalbers IT\n    <!-- w --><a class=\"postlink\" href=\"http://www.backupbuilder.com\">www.backupbuilder.com</a><!-- w -->\n    <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->\n    <!-- e --><a href=\"mailto:info@reportdesigner.info\">info@reportdesigner.info</a><!-- e -->','',0,'AIA=','1a16j2sl',1,0,'',56,0,0),(9569,2249,3,234,0,'221.0.171.2',1142582724,1,0,1,1,1,0,'','Multiple Character Set','Hello Everyone,\n\nI have a client in China that needs to be able to type English and Chinese characters within the same application; is that possible with FWH?\n\nI appreciate your time and consideration.\n\nSincerely,\nDarrell Ortiz','',0,'AIA=','3gy66o8u',1,0,'',234,0,0),(9570,2245,3,6,0,'87.1.225.236',1142582780,1,0,1,1,1,1,'','','[quote=&quot;reinaldocrespo&quot;:3n210afh]You\'ll notice that it works well except for numeric and date variable types.  Haven\'t figure out why.[/quote:3n210afh]\n\nBecause numeric and date restores to the first position on gotfocus.\n\nEMG','',0,'gA==','3n210afh',1,0,'',6,0,0),(9571,2236,3,382,0,'194.77.253.245',1142583120,1,0,1,1,1,1,'','','Antonio,\n\nsorry, my mistake ... there still was an header file from your March-xHarbour.\n\nthanks and regards','',0,'gA==','2i5xum9t',1,0,'',382,0,0),(9572,1370,3,29,0,'81.174.23.133',1142583779,1,0,1,1,1,0,'','','Hi Davide,\nunfortunately Microsoft released a fix only for exchange server \nand not for Outlook.\n\nThe only turnaround I found is to send email via OLE if Outlook is installed \notherwise I use the MAPI subset system.\n\nYou can make this using this function:\n\n#include \"FiveWin.ch\"\n#include \"Mail.ch\"\n\nFUNCTION Interactivemessage()\nparamet cSubject, cBody, aTo, aFiles, lDirectSend\n\n    LOCAL oOutLook,oMailItem,oRecip,oAttach,i\n\n    if lDirectSend=NIL\n        lDirectSend:=.f.\n    endif\n\n    if cSubject=NIL\n        cSubject:=\"\"\n    endif\n    if cBody=NIL\n        cBody:=\"\"\n    endif\n    if aFiles=NIL\n        aFiles:=array(0,0)\n    endif\n\n    lOffice:=.t.\n    TRY\n        oOutLook := CreateObject( \"Outlook.Application\" )\n        oMailItem := oOutLook:CreateItem( 0 )\n        oRecip := oMailItem:Recipients\n    CATCH\n        lOffice:=.f.\n    END\n\n    if lOffice\n        for i:=1 to len(aTo)\n            oRecip:Add( aTo[i,2] )\n        next\n\n        oMailItem:Subject := cSubject\n\n        oMailItem:Body := cBody\n\n        if len(aFiles)&gt;0\n            oAttach := oMailItem:Attachments\n            for i:=1 to len(aFiles)\n                oAttach:Add( aFiles[i,1] )\n            next\n        endif\n\n        if lDirectSend\n            oMailItem:Send()\n        else\n            oMailItem:display(.t.)\n        endif\n    else\n        for i:=1 to len(aTo)\n            aTo[i,1]:=alltrim(aTo[i,2])\n            aTo[i,2]:=alltrim(aTo[i,2])\n        next\n\n\n        oMail:=tMail():New( cSubject,cBody,,,,, .f., .t.,,aTo,aFiles)\n\n        ACTIVATE MAIL oMail\n        retcode:=oMail:nRetCode\n        endif\nreturn\n\n\nBest Regards,\n\nMArco','',0,'','1etjlhns',1,0,'',29,0,0),(9573,2228,2,2,0,'87.218.146.250',1142584656,1,0,1,1,1,1,'','','José,\n\nLa base de datos tiene que estar indexada por upper(Nombre) y ese índice tiene que ser el índice activo.','',0,'','2x3n03c0',1,0,'',2,0,0),(9574,2236,3,2,0,'87.218.146.250',1142584790,1,0,1,1,1,1,'','','Frank,\n\ngood to know you got it working <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3im07ygq',1,0,'',2,0,0),(9575,2250,20,29,0,'81.174.23.133',1142585082,1,0,1,1,1,0,'','Terminal server','Salve,\nesiste un sistema per sapere se si sta operando con Windows Terminal Server ?\n\nGrazie in anticipo\n\nSaluti\n\nMarco','',0,'','gpve3k6f',1,0,'',29,0,0),(9576,2224,1,170,0,'83.179.128.203',1142586419,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3jh4w0ni]It could be that particular printer driver doesn\'t support multiple copies. Have you tried another different printer?\n\nAlso there are a lot of drivers now that are incompatible with the FW/Clipper 16bit printer interface. The only solution to this is to upgrade to 32bit. \n\nAnd the new windows Vista won\'t run 16bit apps, so you need to upgrade to 32bit soon anyway.\n\nJames[/quote:3jh4w0ni]\n\nClipper DOS, combined with PageScript (Abee Labs Inc, Canada) work correctly.\n\nI have rewritted some Fivewin print functions who work only\nwith WIN.INI. This is obsolete under XP. I take the list of printers, the port\nand the driver name directly in the register. This work on all printers of\nmy users, but not the multi-copies. I want to find a way to adress it.\n\nFew years ago many developpers said \"16 will be obsolete under 2000, XP\" but it\'s not true today. Perhaps this is just hoax from Microsoft and\nothers to push us to buy new, new, always new products.','',0,'gA==','3jh4w0ni',1,0,'',170,0,0),(9577,2251,3,29,0,'81.174.23.133',1142586736,1,0,1,1,1,0,'','NetSerialNumber() doesn\'t run','Hello,\nI\'am trying the NetSerialNumber() function on FWH27 (March) \nbut the compiler return an \"unresolved external..\" error.\n\nIs this function enclosed in the standard FWH27 libs ?\n\nThanks\n\nMarco','',0,'gA==','nvqdbcdh',1,0,'',29,0,0),(9578,2252,3,67,0,'62.235.24.241',1142589339,1,0,1,1,1,0,'','Richtext.prg','Hello,\n\nI try to use RTF in mine main aplication.\n\nFirst I convert memo files in RTF format , txt in the example . In a testprogram next routine works :\n\n   DEFINE WINDOW oWnd FROM 0, 0 TO 300, 827 PIXEL ;\n          MDICHILD OF oWndMain:oWnd ;\n          TITLE \"TRichEdit\" ;\n          COLOR CLR_BLACK, nil\n\n   @  0, 0 RICHEDIT oRTF VAR Tkst OF oWnd\n   ACTIVATE WINDOW oWnd\n\n\nPlacing this routine in the main project , shows as text from the RTF in his window only {...}\n\nI have no idea why this code works in a separate program and not in the main program . In both cases Txt has the same value and seems to be corect . Xbuilder points in both cases to the same FWH dir\n\nFrank','',0,'gA==','8asqh76x',1,0,'',67,0,0),(9579,2252,3,2,0,'87.218.146.95',1142589926,1,0,1,1,1,1,'','','Frank,\n\nYou may do a MsgInfo( Tkst ) before creating the richedit control just to check its contents.','',0,'gA==','xzk31q67',1,0,'',2,0,0),(9580,2251,3,2,0,'87.218.146.95',1142590066,1,0,1,1,1,1,'','','Marco,\n\nYou have to compile source\\winapi\\netapi32.prg and link the resulting OBJ as it was not included in the library.','',0,'gA==','36fmrzrc',1,0,'',2,0,0),(9582,2254,3,234,0,'221.0.171.2',1142595521,1,0,1,1,1,0,'','Chinese characters','Hello Everyone, \n\nI have a client in China that needs to be able to type and print English and Chinese characters within the same application; is that possible with FWH? \n\nI appreciate your time and consideration. \n\nSincerely, \nDarrell Ortiz','',0,'gA==','1o4ro7wd',1,0,'',234,0,0),(9583,2252,3,67,0,'62.235.24.241',1142595601,1,0,1,1,1,0,'','','Antonio,\n\nOf course i did it , it see no difference between the two values\n\nFrank','',0,'gA==','3ix0ficu',1,0,'',67,0,0),(9584,2252,3,67,0,'62.235.24.241',1142595665,1,0,1,1,1,0,'','','Antonio,\n\nOf course i did it , it see no difference between the two values\n\nFrank','',0,'gA==','2xrw8omn',1,0,'',67,0,0),(9585,2252,3,2,0,'87.218.146.35',1142595827,1,0,1,1,1,1,'','','Frank,\n\nPlease email me your RTF file as a ZIP file, thanks.','',0,'gA==','2linbhga',1,0,'',2,0,0),(9586,2157,16,2,0,'87.218.146.35',1142596077,1,0,1,1,1,1,'','','Today we have published a new FWPPC build that allows DatePicker from resources. Please review samples\\TestDtpR.prg','',0,'gA==','37kh49lw',1,0,'',2,0,0),(9587,2245,3,299,0,'69.65.95.131',1142596199,1,0,1,0,1,0,'','','Enrico;\n\nHi.\n\nThank you for the reply.   \n\nYes, I did notice that once the get control gets focus it does restore to the first position.  Perhaps there is a work-around to this?\n\nReinaldo.','',0,'gA==','1tnshc5n',1,0,'',299,0,0),(9588,2255,3,26,0,'84.255.245.173',1142596245,1,0,1,1,1,1,'','Extra spacing at submenu options','Hello!\n\nText of submenu options is indented more than\nnormal menu options:\n\n[img:32ux7o04]http&#58;//www&#46;astral-it&#46;com/img/menu_zigzag&#46;png[/img:32ux7o04]\n\n[code:32ux7o04]// More work on previuos Tutor06\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;\n      TITLE &quot;Working with Menus&quot; ;\n      MENU  BuildMenu&#40;&#41;\n\n   SET MESSAGE OF oWnd ;\n      TO FWVERSION + &quot;, &quot; + FWCOPYRIGHT CENTERED KEYBOARD\n\n   ACTIVATE WINDOW oWnd           // MAXIMIZED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;&amp;Information&quot;\n      MENU\n         MENUITEM   &quot;&amp;About&#46;&#46;&#46;&quot; ;\n            ACTION  MsgInfo&#40; &quot;FiveWin Tutorial&quot; + Chr&#40; 13 &#41; + FWCOPYRIGHT &#41; ;\n            MESSAGE &quot;Information about this application&quot;\n\n         SEPARATOR\n\n         MENUITEM   &quot;&amp;End&#46;&#46;&#46;&quot;  ;\n            ACTION  If&#40; MsgYesNo&#40; &quot;Want to end ?&quot; &#41;, oWnd&#58;End&#40;&#41;,&#41; ;\n            MESSAGE &quot;End this application&quot;\n      ENDMENU\n\n      MENUITEM &quot;&amp;Files&quot;\n      MENU\n         MENUITEM   &quot;&amp;Customers&#46;&#46;&#46;&quot; ;\n            ACTION  msginfo&#40;&quot;just a test&quot;&#41; ;\n            MESSAGE &quot;Customers maintainance&quot;\n\n	     MENUITEM &quot;&amp;Reindex&quot;\n	      menu\n    	     menuitem &quot;&amp;All&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;Reindex&#40;&#41;\'&#41; &#41;\n          menuitem &quot;A&amp;pp&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;AppReindex&#40;&#41;\'&#41; &#41;\n          menuitem &quot;&amp;Table&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;TabReindex&#40;&#41;\'&#41; &#41;\n          menuitem &quot;&amp;File&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;DBReindex&#40;&#41;\'&#41; &#41;\n          endmenu\n         MENUITEM   &quot;&amp;Stock&quot; ;\n            ACTION  MsgInfo&#40; &quot;Any option from here&quot; &#41; ;\n            MESSAGE &quot;Stock maintainance&quot;\n	     MENUITEM &quot;Re&amp;structure&quot;\n	      menu\n    	     menuitem &quot;&amp;All&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;Reindex&#40;&#41;\'&#41; &#41;\n          menuitem &quot;A&amp;pp&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;AppReindex&#40;&#41;\'&#41; &#41;\n          menuitem &quot;&amp;Table&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;TabReindex&#40;&#41;\'&#41; &#41;\n          menuitem &quot;&amp;File&quot; ;\n             action &#40;  Alert&#40;\'oGen&#58;DBReindex&#40;&#41;\'&#41; &#41;\n          endmenu\n			\n      ENDMENU\n\n      MENUITEM &quot;&amp;Utils&quot;\n      MENU\n         MENUITEM   &quot;&amp;Calculator&#46;&#46;&#46;&quot; ;\n            ACTION  WinExec&#40; &quot;Calc&quot; &#41; ;\n            MESSAGE &quot;Run Windows calculator&quot;\n\n         MENUITEM   &quot;C&amp;alendar&#46;&#46;&#46;&quot; ;\n            ACTION  WinExec&#40; &quot;Calendar&quot; &#41; ;\n            MESSAGE &quot;Run Windows calendar&quot;\n\n         MENUITEM   &quot;&amp;Some fun&#46;&#46;&#46;&quot; ;\n            ACTION  WinExec&#40; &quot;Sol&quot; &#41; ;\n            MESSAGE &quot;Play a game&#46;&#46;&#46;&quot;\n      ENDMENU\n   ENDMENU\n\nreturn oMenu[/code:32ux7o04]\n\n\nRoman','',0,'CIA=','32ux7o04',1,0,'',26,0,0),(9589,2252,3,67,0,'62.235.24.241',1142596724,1,0,1,1,1,0,'','','Antonio,\n\nSorry antonio , i overlooked that in the main aplication the variable is an array , so i had to put txt[1]\n\nFrank','',0,'','2wp6v1ls',1,0,'',67,0,0),(9590,2252,3,2,0,'87.218.146.35',1142596839,1,0,1,1,1,1,'','','Frank,\n\nis it working ok now ?','',0,'','xcu3yztm',1,0,'',2,0,0),(9591,1370,3,487,0,'151.38.45.217',1142596899,1,0,1,1,1,0,'','','[quote=&quot;Marco Turco&quot;:1916nj6l]\nunfortunately Microsoft released a fix only for exchange server \nand not for Outlook.\n[/quote:1916nj6l]\n\nCould you please post the URL ? \n\n[quote:1916nj6l]\nThe only turnaround I found is to send email via OLE if Outlook is installed \notherwise I use the MAPI subset system.\n[/quote:1916nj6l]\n\nThank you. I\'ll try it.\n\nHi, Davide.','',0,'gA==','1916nj6l',1,0,'',487,0,0),(9592,2255,3,2,0,'87.218.146.35',1142596937,1,0,1,1,1,1,'','','Roman,\n\nIt was a size effect of a change in February. Use menu.prg from January build.','',0,'gA==','21d3tmrj',1,0,'',2,0,0),(9593,2252,3,67,0,'62.235.24.241',1142597990,1,0,1,1,1,0,'','','Yes , it works very nice , very easy to use , fantastic results .\n\nFrank','',0,'gA==','2912718k',1,0,'',67,0,0),(9594,2150,3,26,0,'84.255.245.173',1142598610,1,0,1,1,1,1,'','','Hello!\n\nFound the solution  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> !\n\nBy googling I encountered more the 10 years\nold MS KB article:\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/default.aspx?scid=kb;en-us;138419\">http://support.microsoft.com/default.as ... -us;138419</a><!-- m -->\n\nFortunately you have already written (October 2004 build)\n TGet method SetMargins(nL, nR)\n[quote:zqh1il1u]* Enhancement: Class TGet new Methods SetMargins() and GetMargins(). They allow the GETs to show the same margins on different Windows versions and 16 and 32 bits. Many thans to Walter Negro and Luis Krause.\n[/quote:zqh1il1u]\nwhich by default sets margins to 1,1. So I just called\no:SetMargins(0,0) after creating GETs.\n\nRegards, Roman','',0,'gA==','zqh1il1u',1,0,'',26,0,0),(9595,2256,3,190,0,'202.65.134.45',1142599044,1,0,1,1,1,0,'','Is there a way to test the elapsed time in milli seconds?','Hi all\n\nIs there any way do it in in FWH ?\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','1usvs03a',1,0,'',190,0,0),(9596,2228,2,439,0,'201.221.41.22',1142600536,1,0,1,1,1,0,'','Sigue el inconveniente','[quote=&quot;Antonio Linares&quot;:mi4fccp9]José,\n\nLa base de datos tiene que estar indexada por upper(Nombre) y ese índice tiene que ser el índice activo.[/quote:mi4fccp9]\n\nAntonio, la Base como ves en el ejemplo que te mando está indexada por UPPER(nombre) y el array en mayúscula, sin embargo cuando escribo el principio del nombre (sin abrir el combo) lo busca pero hace un zumbido, te envié fuente del testdbc1.prg con mi base para que lo veas a tu e-mail.\nMe da el mismo error compilando con Harbour y xHarbour. \n(yo uso xharbour, FWH 2.7 Marzo bajado 10/03/2006, Windows XP)','',0,'gA==','mi4fccp9',1,0,'',439,0,0),(9597,2241,7,274,0,'201.1.193.139',1142602176,1,0,1,1,1,0,'','','Antonio, já reiniciei, e inclusive desinstalei e voltei a instalar o Device Emulator.  O problema persiste, não consigo visualizar os menus.\n\nnão creio que sejam problemas com recursos. O testbrw funciona perfeitamente, veja:\n[img:1upgkbfb]http&#58;//softservice&#46;com/tmp/testbrw&#46;jpg[/img:1upgkbfb]\n\nSabes que mais poderia provocar isso?\n\n[]\'s\n\nRogerio','',0,'CA==','1upgkbfb',1,0,'',274,0,0),(9598,2256,3,6,0,'87.1.225.236',1142602343,1,0,1,1,1,1,'','Re: Is there a way to test the elapsed time in milli seconds','[code:15m32xxx]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL i, j, a&#91; 10 &#93;\n\n    FOR i = 1 TO 10\n        FOR j = 1 TO 10000; j = j; NEXT\n        a&#91; i &#93; = MILLISECS&#40;&#41;\n//        a&#91; i &#93; = GETTICKCOUNT&#40;&#41;\n    NEXT\n\n    WQOUT&#40; a &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MILLISECS&#40;&#41;\n\n    LOCAL cPerformanceCount &#58;= SPACE&#40; 8 &#41;\n\n    LOCAL nCount\n\n    STATIC nFreq\n\n    QPCOUNTER&#40; cPerformanceCount &#41;\n\n    nCount = BIN2NUM&#40; cPerformanceCount &#41;\n\n    IF nFreq = NIL\n        QPFREQUENCY&#40; cPerformanceCount &#41;\n        nFreq = BIN2NUM&#40; cPerformanceCount &#41;\n    ENDIF\n\n    RETURN ROUND&#40; nCount / nFreq * 1000, 0 &#41;\n\n\nSTATIC FUNCTION BIN2NUM&#40; cBinData &#41;\n\n    LOCAL nLow  &#58;= BIN2L&#40; LEFT&#40; cBinData, 4 &#41; &#41;\n    LOCAL nHigh &#58;= BIN2L&#40; RIGHT&#40; cBinData, 4 &#41; &#41;\n\n    IF nLow &lt; 0; nLow += 4294967296; ENDIF\n\n    RETURN nLow + 4294967296 * nHigh\n\n\nDLL32 STATIC FUNCTION QPCOUNTER&#40; cPerformanceCount AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;QueryPerformanceCounter&quot; LIB &quot;kernel32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION QPFREQUENCY&#40; cPerformanceCount AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;QueryPerformanceFrequency&quot; LIB &quot;kernel32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION GETTICKCOUNT&#40;&#41; AS DWORD;\n      PASCAL FROM &quot;GetTickCount&quot; LIB &quot;kernel32&#46;dll&quot;[/code:15m32xxx]\n\nEMG','',0,'AIA=','15m32xxx',1,0,'',6,0,0),(9599,1951,4,51,0,'80.122.88.242',1142603796,1,0,1,1,1,0,'','','Today I updated to Mobile 5.0. To get Remote Display working you have to follow this instruction.\nFW is working ok.\nRegards\nOtto\n\n\nCómo usar ActiveSync Remote Display con Windows Mobile 5.0. \n11.12.2005 12:59:20 (Romance Standard Time, UTC+01:00) \nExiste una utilidad muy interesante dentro de los Windows Mobile Developer PowerToys llamada ActiveSync Remote Display. Esta herramienta permite ver en una ventana del PC la pantalla del dispositivo Windows Mobile que esté conectado en un momento dado mediante ActiveSync. Yo la uso principalmente a la hora de hacer presentaciones o charlas, aunque es muy útil también para realizar capturas de pantalla de los dispositivos.\n\nLa utilidad está diseñada para dispositivos Windows Mobile hasta la versión 2003 SE, de manera que si se intenta usar con un dispositivo Windows Mobile 5.0 no funciona, simplemente muestra un error y se cierra.\n\nPero es posible usarla con Windows Mobile 5.0. Para ello, simplemente hay que copiar los dos ficheros del directorio \n\nC:\\Program Files\\Windows Mobile Developer Power Toys\\ActiveSync_Remote_Display\\devices\\wce400\\armv4t\n\nal directorio “\\Windows” del dispositivo y ejecutar la utilidad.\n\nYo lo he probado en mi JasJar y la calidad de la imagen no es tan buena como debería ser (supongo que por ser un dispositivo con resolución VGA – 640x480–, cuando la utilidad se diseñó sólo para QVGA – 240x320). La velocidad de refresco de la imagen también deja algo que desear, pero al menos se puede utilizar de momento hasta que se actualice la aplicación para funcionar con las nuevas versiones de los dispositivos.','',0,'AIA=','2es2f6b8',1,0,'',51,0,0),(9600,2247,6,278,0,'200.72.147.139',1142604185,1,0,1,1,1,1,'','Funciono OK','Gracias Oskar:\n\nFuncionó OK, muchas gracias.  Me tenía complicado esto.\n\nParece que mi error era que ademas ponía al comienzo\nel SetRDD( \"alias\" ) , y este método carga todas las columnas,\nsin distinción.\n\nLuego lo mejor es ponerla al final antes de :CreateFromCode()\no no utilizarla.\n\nJuan','',0,'AIA=','1ccegyvt',1,0,'',278,0,0),(9601,2254,3,15,0,'203.73.98.11',1142604887,1,0,1,1,1,0,'','','Hello cdmmaui,\n\nYes, FWH can do it.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'AIA=','2rdgshfv',1,0,'',15,0,0),(9602,2257,6,495,0,'200.104.0.80',1142604908,1,0,1,1,1,0,'','Se cuelga la app con array','Hola amigos,\n\ntengo un modulo donde cargo un array con datos de ventas, luego al imprimir los guardo en la base (.dbf), posterior limpio el array y vuelvo al principio a cargar el mismo array con la siguiente venta.\n\nmi problema es que cuando cargo muchas veces el array aumenta el uso en memoria de la app(.exe) y llega a un punto en que se cuelga y debo sacarla de memoria con el administrador de tareas e iniciar la app nuevamente.\n\nalguien me puede ayudar con este problema.. o como libero el uso de la memoria utilizando array\'s.\n\nWin xp 256, fwh 2.7 xharbour','',0,'AIA=','rw3tm0k9',1,0,'',495,0,0),(9603,2254,3,15,0,'203.73.98.11',1142605215,1,0,1,1,1,0,'','','Hello\n\nIf user want to input English and Chinese character, please fix TGet.prg and MGet.prg to support 2 bytes for Chinese.\nOf course, English character will be check itself.\nBut you need to remove WinXP\'s Themes interface, because FWH\'s TGet and MGet not support it for Chinese character.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'AIA=','3s1twmza',1,0,'',15,0,0),(9604,2258,6,77,0,'217.126.90.142',1142605228,1,0,1,1,1,0,'','ERROR AL COMPILAR CON HARBOUR','Hola al compilar con harbour 0.44 me da el siguiente error en las siguientes lineas:\nestoy compilando el testtool.prg del directorio samples de fwh 2.5\n\n\nError: Unresolved external \'_HB_FUN_TIMERCOUNT\' referenced from C:\\FWH\\SAMPLES\\T\nESTTOOL.OBJ\nError: Unresolved external \'_HB_FUN_INTERRUPTREGISTER\' referenced from C:\\FWH\\SA\nMPLES\\TESTTOOL.OBJ\nError: Unresolved external \'_HB_FUN_INTERRUPTUNREGISTER\' referenced from C:\\FWH\\\nSAMPLES\\TESTTOOL.OBJ\n\nque es lo que me falta linkar.\n\nsaludos.\nManolo','',0,'AIA=','272syqbc',1,0,'',77,0,0),(9605,2235,6,396,0,'201.243.215.35',1142605779,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1xjo8akc]Jose Luis, \n\nLo idóneo es comensar por un ejemplo que se sabe que funciona bien, como samples\\TestFold.prg y comprobar si te funciona bien.\n\nEn cuanto a los editores de recursos, puedes usar el de Borland ó el de PellesC, ambos funcionan muy bien.[/quote:1xjo8akc]\n\nGracias por la ayuda, lo que hice fue colocar el folder como TFOLDER y colocar en mi cabecera de .prg include folder y listo, fue la idea de BELTRAN, funciono super... <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','1xjo8akc',1,0,'',396,0,0),(9606,2259,3,299,0,'69.65.95.131',1142606009,1,0,1,0,1,0,'','twindow:circle()','Hi (again...)\n\nUsing the circle method of twindow I\'m able to draw a circle around an bitmap ok.  But, I\'d like to make that circle transparent ...ie not erase the image inside de circle.  Can it be done?\n\nAnd, can I use a different pen to draw the circle?\n\nThank you,\n\n\nReinaldo.','',0,'gA==','24lgiwh0',1,0,'',299,0,0),(9607,2222,3,278,0,'200.72.147.139',1142606010,1,0,1,1,1,1,'','Example of filter','Ehab:\n\nYou can used this sample code:\n\nFUNCTION Incremental( oWnd )\n\n   local oChild, oBrw\n\n   DEFINE WINDOW oChild TITLE \"Incremental seek \" MDICHILD OF oWnd\n\n   oBrw := TXBrowse():New( oChild )\n   oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW\n   oBrw:nColDividerStyle := LINESTYLE_INSET\n   oBrw:nRowDividerStyle := LINESTYLE_INSET\n   oBrw:bSeek            := { |c| DbSeek( Upper( c ) ) }\n\n   oBrw:SetRDD()\n   oBrw:CreateFromCode()\n\n   oChild:oClient := oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()\n\nRETURN NIL','',0,'gA==','1jz2wdz1',1,0,'',278,0,0),(9608,2238,3,299,0,'69.65.95.131',1142606587,1,0,1,0,1,0,'','','Si se te ocurre alguna otra cosa, plis...','',0,'gA==','2w922m01',1,0,'',299,0,0),(9609,2221,7,413,0,'217.125.9.228',1142606724,1,0,1,1,1,0,'','','En HP iPAQ h6515, sí funciona....','',0,'gA==','3wyxcl77',1,0,'',413,0,0),(9610,2254,3,234,0,'222.135.186.57',1142607013,1,0,1,1,1,0,'','','Hi Richard,\n\nDo you have a sample I can look at?\n\nThank You,','',0,'gA==','1aqw82ez',1,0,'',234,0,0),(9611,2260,6,147,0,'200.45.54.133',1142607826,1,0,1,0,1,1,'','Consulta sobre TExcelScript  (Vikthor)','Tengo una aplicacion clipper + fw en la que uso la Clase TExcelScript v1.10b  9-Oct-2002. Baje de dbWide la version 1.14  06-Feb-2004. No obstante por lo que observo ya no es compatible con clipper, o me equivoco?. (creo que la pregunta está contestada por si sola de acuerdo a que se incluye TRY-CATCH).  No obstante pregunto si hay algo posterior a la versión v1.10b para clipper y de donde la consigo.\n\nEn otro orden comento que al generar una lista de 5 columnas y, en mis pruebas con,  entre 5 y 10 lineas, lo cual no es nada no?, tarda en una PC AMD Athlon XP1200+ un tiempo razonable, pero en una Celeron 266 es muy notorio lo que tarda. Si mal no recuerdo lei, no sé en cual foro, sobre una recomendación que hiciste (Vikthor) para que el proceso sea más agil. Te agradecería me lo refresques.\n\nFinalmente luego de crear un primer archivo, al  realizar una segunda exortación, se despliega un mensaje de Excel advirtiendo sobre la existencia de tal archivo y si se desea reeemplazar; existe la forma de que no apareca?\n\nMuchas gracias por tu desinteresado aporte, que es muy que útil\nSaludos','',0,'gA==','197smhik',1,0,'',147,0,0),(9612,2254,3,15,0,'203.73.98.11',1142609016,1,0,1,1,1,0,'','','Hello\n\nyou can look screen shot.\n\n[url:3phj6q6t]http&#58;//img463&#46;imageshack&#46;us/my&#46;php?image=chineseenglish9lu&#46;jpg[/url:3phj6q6t]\n\nRegards,\n\nRichard','',0,'EA==','3phj6q6t',1,0,'',15,0,0),(9613,2259,3,6,0,'87.1.225.236',1142609863,1,0,1,1,1,1,'','Re: twindow:circle()','This is a working sample:\n\n[code:2gzsreco]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define BRUSH_NULL 5\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    ACTIVATE WINDOW oWnd;\n             ON PAINT &#40; oWnd&#58;Say&#40; 3, 0, &quot;This is a test&quot;, CLR_GREEN &#41;,;\n                        DRAWCIRCLE&#40; oWnd, hDC, 10, 10, 100, CLR_HRED &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DRAWCIRCLE&#40; oWnd, hDC, nTop, nLeft, nWidth, nColor &#41;\n\n    LOCAL hPen &#58;= CREATEPEN&#40; PS_SOLID, 1, nColor &#41;\n\n    LOCAL hOldPen   &#58;= SELECTOBJECT&#40; hDC, hPen &#41;\n    LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41;\n\n    oWnd&#58;Circle&#40; nTop, nLeft, nWidth &#41;\n\n    SELECTOBJECT&#40; hDC, hOldPen &#41;\n    SELECTOBJECT&#40; hDC, hOldBrush &#41;\n\n    DELETEOBJECT&#40; hPen &#41;\n\n    RETURN NIL[/code:2gzsreco]\n\nEMG','',0,'AIA=','2gzsreco',1,0,'',6,0,0),(9614,2257,6,2,0,'87.218.146.201',1142613728,1,0,1,1,1,1,'','','Prueba a llamar a hb_gcAll() despues de que vacies el array, antes de volver a cargarlo.','',0,'AIA=','1lpvr6pr',1,0,'',2,0,0),(9615,2241,7,2,0,'87.218.146.201',1142614015,1,0,1,1,1,1,'','','Rogerio,\n\nPor favor prueba el ejemplo samples\\combos.prg para ver si te aparece la caja de diálogo correctamente. gracias,','',0,'AIA=','22mm4q6c',1,0,'',2,0,0),(9616,2238,3,2,0,'87.218.146.201',1142614109,1,0,1,1,1,1,'','','Reinaldo,\n\nEstamos investigándo, te contestamos cuanto antes.','',0,'AIA=','jbfnd1ue',1,0,'',2,0,0),(9617,2257,6,495,0,'201.214.100.245',1142615741,1,0,1,1,1,0,'','Como','Gracias Antonio, yo por aqui volviendo ... sabes igual cada vez que cargo el modulo  aumenta el uso en memoria de la app.(.exe), esto me ocurre con el uso del array, yo cargo la informacion de venta en un array y luego al imprimir lo guardo en la Dbf, y vuelvo con una nueva venta, pero llega una momento en que la app(.exe) se cuelga y debo iniciarla nuevamente...\n\nayuda por favor..\n\nsalu2\n\nmauro','',0,'AIA=','k00l3z8w',1,0,'',495,0,0),(9618,2261,17,375,0,'84.122.99.241',1142615782,1,0,1,1,1,1,'','SAY Sensible y Editable (2)','Tras corregir algunos bugs y poco más, ahora TGSAY también puede editar SAY\'s Multilinea.\n\nTGSAY\'s now can edit Multiline SAY\'s\n\n[url:etpy79ly]http&#58;//hyperupload&#46;com/download/c35ea689/TGSAY&#46;zip&#46;html[/url:etpy79ly]\n\nSaludos/Regards','',0,'EA==','etpy79ly',1,0,'',375,0,0),(9619,2262,2,375,0,'84.122.99.241',1142616206,1,0,1,1,1,1,'','Heap Heap Hurra','Alguién sabe si se le puede asignar un Heap a una variable cualquiera. ¿Cómo se haría? \nLa idea, es descargar la memoria tras utilizar variables/objetos de gran tamaño. Estaría bien asignarle un lugar exclusivo en memoria con un Heap para poder vaciarlo para recuperar esa memoria. El Get parece que lo hace, aunque supongo que despe API o desde C++.\n\nGracias.','',0,'EA==','1j9fi0vl',1,0,'',375,0,0),(9620,2186,2,375,0,'84.122.99.241',1142616370,1,0,1,1,1,1,'','','¿Alguien me puede mandar TPRINTER y TDosPrint a mi correo particular?:\n\n<!-- e --><a href=\"mailto:ramosframit@ono.com\">ramosframit@ono.com</a><!-- e -->\n\nmuchas gracias.','',0,'EA==','ic3q2l1h',1,0,'',375,0,0),(9621,2186,2,404,0,'85.155.212.201',1142617799,1,0,1,1,1,0,'','Se la acabo de enviar.','Le acabo de enviar, la clase: TPRINTER.\n\nSalu2, José Mª','',0,'EA==','1emuaeow',1,0,'',404,0,0),(9622,2240,3,372,0,'83.118.100.14',1142619185,1,0,1,1,1,0,'','','Hi Antonio,\n\nactually neither one does work...\n\nI have a browse on a dialog, together with a GET field (input search string), a Search button and an Edit button (to edit the searched/found record).\n\nWhat i want to accomplish is that the focus/cursor returns to the GET field after any of the buttons has been clicked.\n\nPerhaps there is a better solution?\n\nSaludos,\n\nJohn.','',0,'EA==','1x0k7bbm',1,0,'',372,0,0),(9623,2186,2,228,0,'201.245.222.85',1142619916,1,0,1,1,1,1,'','Te las envie hace un rato...','Te las envie hace un rato...','',0,'EA==','ryd94xfs',1,0,'',228,0,0),(9624,2257,6,2,0,'87.218.146.201',1142621070,1,0,1,1,1,1,'','','Mauro,\n\nHas probado lo que te he comentado de hb_gcAll() ?\n\nQue versión de Harbour ó xharbour estás usando ? Debes usar la más reciente posible, puedes descargarlas desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'EA==','35bp4750',1,0,'',2,0,0),(9625,2240,3,2,0,'87.218.146.201',1142621167,1,0,1,1,1,1,'','','John,\n\nHave you tried doing oGet:SetFocus() ?','',0,'EA==','3tyjywa0',1,0,'',2,0,0),(9626,2260,6,73,0,'201.133.201.253',1142621173,1,0,1,1,1,0,'','','a ver si lo que esta por aki te ayuda\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1200&amp;highlight=vikthor\">http://fivetechsoft.com/forums/viewtopi ... ht=vikthor</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1179&amp;highlight=vikthor\">http://fivetechsoft.com/forums/viewtopi ... ht=vikthor</a><!-- m -->\nsalu2','',0,'EA==','mxoc4isp',1,0,'',73,0,0),(9627,2258,6,2,0,'87.218.146.201',1142621256,1,0,1,1,1,1,'','','Manolo,\n\nEse ejemplo es válido sólo para 16 bits (Clipper). No sirve para 32 bits ya que esas funciones ya no las proporciona Windows en 32 bits.','',0,'EA==','1e088pn2',1,0,'',2,0,0),(9628,2241,7,274,0,'201.1.193.139',1142621420,1,0,1,1,1,0,'','','Antonio\nfunciona, aparece assim, creio que está correto:\n\n[img:2vjdk97w]http&#58;//softservice&#46;com/tmp/combos&#46;jpg[/img:2vjdk97w]\n\n\nNenhum teste que tenha menu abre-me o menu.\nJá rodei os vários exemplos.\n\n[]\'s\n\nRogerio','',0,'CA==','2vjdk97w',1,0,'',274,0,0),(9629,2241,7,2,0,'87.218.146.32',1142622605,1,0,1,1,1,1,'','','Rogerio,\n\nEntonces los recursos te funcionan bien. \n\nEntonces el menú te funciona en algunos ejemplos ?','',0,'CA==','1ynj1v56',1,0,'',2,0,0),(9630,2224,1,51,0,'80.122.88.242',1142623664,1,0,1,1,1,0,'','','Hello James,\nmy fist tests show that FW 16 works with VISTA Beta 2.\nWhere do you have your info from?\nRegards\nOtto','',0,'CA==','2zd7crmt',1,0,'',51,0,0),(9631,2260,6,147,0,'200.68.215.107',1142624230,1,0,1,0,1,1,'','','muchas gracias; es lo que buscaba','',0,'CA==','xlafhxwb',1,0,'',147,0,0),(9632,2244,2,9,0,'85.53.79.201',1142624236,1,0,1,1,1,0,'','','Antonio,\n\nTe explico mas detalladamente:\n\n\nSTATIC oWnd\nstatic cTitle\nstatic cBitmap\nFUNCTION MAIN\n......\ncBitmap  := \"fuengi.bmp\"\n.....\n\nACTIVATE WINDOW oWnd MAXIMIZED ;\n       ON PAINT PAINTWIN(oWnd) \n\n///\n/// una funcion para poner el BMP segun resolucion pantalla\n///\nSTATIC FUNC PAINTWIN(oWnd)\nLOCAL hDC := oWnd:hDC\nlocal hWnd := oWnd:hWnd\nlocal T:=GetClientRect(hWnd)\nmemvar oBmp\n@ 01,00 BITMAP oBmp FILE cDir + cBitmap OF oWnd SIZE ;\n            T[4],T3] ;ADJUST \nRETURN nil\n\n///\n/// cuando cambio de propietario realizo lo siguiente\n//  aqui es donde deberia cambiar el bitmap segun propie-&gt;LOGO\n/// pero no sale el nuevo bitmap\n//\n\n         oBmp:LoadBmp (propie-&gt;LOGO)\n         oBmp:REFRESH()  \n         oWnd:cTitle := propie-&gt;NOMBRE \n         oWnd:Refresh()\n\n\nUn saludo y gracias\n\nManuel','',0,'','27meuwup',1,0,'',9,0,0),(9633,2257,6,495,0,'201.214.100.245',1142625892,1,0,1,1,1,0,'','','Antonio, probe con hb_gcAll() despues que borro el array, actualize el harbour y xharbour,, y me ocurre lo mismo\n\nsalu2 <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','3jrxfjpc',1,0,'',495,0,0),(9635,2241,7,274,0,'201.1.193.139',1142630265,1,0,1,1,1,0,'','','Antonio\n\nnenhum exemplo que tenha MENU funciona.\n\ntestei:\n\nokbutton\ntestmenu\ntutor03\ntutor04\ntutor06\nem todos acontece o mesmo, nada de menu.\n\nparece que o problema esta\' justamente com MENU\n\nMenu pode ser criado de outra forma sem o uso de RC?\n\n[]\'s\n\nRogerio','',0,'','1e6qqbxp',1,0,'',274,0,0),(9636,2241,7,2,0,'87.218.146.19',1142631331,1,0,1,1,1,1,'','','Rogerio,\n\nTienes una Pocket PC real en donde probar los ejemplos ?','',0,'','3pb4o0we',1,0,'',2,0,0),(9637,2264,1,211,0,'83.44.224.147',1142631995,1,0,1,1,1,0,'','seleccionar impresoras','Hola. He probado miles de cosas de <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w --> y he leido aki en el foro pero no consigo solucionar esto. Tengo un programa de gestion y kiero imprimir tickets por el lpt1 (epson tmu220) y albaranes por el usb (oki 5400). Si pongo:\ncPrinter:=\"OKI C5400n(PCL)\"\nPRINT OPRN NAME \"PRESUPUESTO \" TO alltrim(cPrinter)\nme sale para seleccionar la impresora, no me imprime directamente a esa impresora. si pongo:\nfrom user , entonces me imprime en la que seleccione pero con los tamaños de papel de la otra, ufff, no se que hacer. Como dirijo una impresión a la impresora que quiera en cada momento?\n\nFW2.4, clipper 5.2, blinker 6.0, windows xp sp2\n\nGracias.','',0,'','1vzhpxgi',1,0,'',211,0,0),(9638,2241,7,274,0,'201.1.193.139',1142632119,1,0,1,1,1,0,'','','Antonio\n\ninfelizmente não tenho um ppc real.\nPretendo desenvolver o sistema usando o emulador para testa-lo e passar a clientes o sistema já em andamento para os testes práticos .\n\nCrês que o problema seja relacionado ao windows?\nPode haver alguma relação com o hardware?\nPor que a maioria dos recursos funcionam exceto MENUS?\n\n[]\'s\n\nRogerio','',0,'','3mq93n4w',1,0,'',274,0,0),(9639,2264,1,78,0,'200.121.182.130',1142633265,1,0,1,1,1,0,'','','Hola,,,\nPara imprimir en una TMU, debes usar la clase TDOSPrint, alli direccionas en que puerto esta conectada,, (LPT1, LPT2, LPT3) y listo,,,,  para la impresora USB, usas la report u otra que trabaje en la impresora por defecto,,,\n\nSalu2\nWilli','',0,'','1rakiazs',1,0,'',78,0,0),(9640,2206,3,217,0,'200.178.178.129',1142637677,1,0,1,1,1,0,'','','Here a single function to detect XP theme name\n\nreturn:\n\"WindowsClassic\" if no theme is used\n\"XPBlue\" if theme is blue\n\"XPGreen\" if theme is olive green\n\"XPSilver\" if theme is silver\n\n[code:2nsvu4z2]\n\n#define  HKEY_CURRENT_USER       2147483649\n\nfunction CurrentTheme&#40;&#41;\n local cTheme   &#58;= &quot;WindowsClassic&quot;\n local cKeyName &#58;= &quot;Software\\Microsoft\\Windows\\CurrentVersion\\ThemeManager\\&quot;\n\n oReg &#58;= TReg32&#40;&#41;&#58;New&#40; HKEY_CURRENT_USER, cKeyName &#41;\n if oReg&#58;nError == 0\n    cTheme &#58;= StrTran&#40; oReg&#58;Get&#40;&quot;ColorName&quot;, &quot;&quot;&#41;, chr&#40;0&#41;,&quot;&quot;&#41;\n    do case\n       case cTheme == &quot;NormalColor&quot; ; cTheme &#58;= &quot;XPBlue&quot;\n       case cTheme == &quot;HomeStead&quot;   ; cTheme &#58;= &quot;XPGreen&quot;\n       case cTheme == &quot;Metallic&quot;    ; cTheme &#58;= &quot;XPSilver&quot;\n       otherwise                    ; cTheme &#58;= &quot;WindowsClassic&quot;\n    endcase\n endif\n oReg&#58;Close&#40;&#41;\nreturn&#40; cTheme &#41;\n[/code:2nsvu4z2]','',0,'AIA=','2nsvu4z2',1,0,'',217,0,0),(9641,1701,19,49,0,'87.3.183.185',1142640188,1,0,1,1,1,1,'','','And where I can found an example to create a  circular barcode ?','',0,'AIA=','39h5infk',1,0,'',49,0,0),(9642,2259,3,299,0,'69.65.95.131',1142640569,1,0,1,0,1,0,'','','Enrico;\n\nIt works.  Fantastic! \n\nIf you don\'t mind, let me ask you;  I notice that you are making a reference to hDc, --never declared anywhere?  \n[quote:232zwvw1]\nDRAWCIRCLE( oWnd, hDC,...\n[/quote:232zwvw1]','',0,'gA==','232zwvw1',1,0,'',299,0,0),(9643,2257,6,73,0,'201.133.201.253',1142643242,1,0,1,1,1,0,'','','jeepero, puedes publicar el codigo\naslu2\nPako','',0,'gA==','vndovh21',1,0,'',73,0,0),(9644,2261,17,15,0,'203.73.91.191',1142643828,1,0,1,1,1,0,'','','Hi manuramos,\n\nThanks again for your good solution.\nI will try it right now.\n\nThank you.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gA==','33hd05vv',1,0,'',15,0,0),(9645,2241,7,2,0,'87.218.146.19',1142661703,1,0,1,1,1,1,'','','Rogerio,\n\nEstás usando esta versión del emulador ?\n[url=http&#58;//imageshack&#46;us:3l4rgwwe][img:3l4rgwwe]http&#58;//img64&#46;imageshack&#46;us/img64/8585/about0wc&#46;png[/img:3l4rgwwe][/url:3l4rgwwe]','',0,'GA==','3l4rgwwe',1,0,'',2,0,0),(9646,2240,3,372,0,'83.118.100.14',1142666543,1,0,1,1,1,0,'','','That seems to work, thanks Antonio!','',0,'GA==','2d3gyd0g',1,0,'',372,0,0),(9647,2241,7,262,0,'83.97.168.140',1142673667,1,0,1,1,1,1,'','','Perdon por meterme en la conversacion , pero el problema no será quew al estar la pantalla girada el menu queda fuera de pantalla  ?','',0,'GA==','79tia2s7',1,0,'',262,0,0),(9648,2265,20,8,0,'82.51.111.22',1142677071,1,0,1,1,1,0,'','Dati &quot;scomparsi&quot;','Ciao a tutti, volevo sottoporre alla vostra attenzione quanto è accaduto ad un mio cliente  a cui non riesco ancora a dare una spiegazione e che potrebbe essere oggetto di una contesa. Premetto che il cliente, un\'associazione di categoria, usa da più di un\'anno senza problemi una procedura di archiviazione dati che opera su una rete realiazzata e manutenuta da altre persone. La rete è una semplice peer-to-peer sotto windows xp professional con un server che viene solamente usato per effettuare il backup periodico delle cartelle documenti degli altri pc ( così hanno pensato di fare ! ). Solamente la procedura realizzata da me in effetti opera condividendo gli archivi ( dbf/ntx ) memorizzati su server.\nQualche giorno fa ho ricevuto una telefonata da parte del cliente allarmato perchè erano scomparsi i dati inseriti nell\'ultimo mese di lavoro, pensando ad un semplice disallineamento degli indici sono intervenuto in loco e quì la sorpresa i dbf sul server erano retrodatati ed il contenuto era quello di un mese prima ! I responsabili del server, dopo aver appurato che la batteria dell\'orologio del server era esaurita, se ne sono lavati le mani addossando la colpa, come al solito, alla procedura !\nMorale della favola mi ritrovo ora a dover giustificare quanto successo, consapevole che la cosa non dipende dalla procedura e non avendo idea di cosa possa essere successo sul server. Cosa ne pensate voi ? Di primo acchitto io addebiterei il fatto al sistema di backup, cioè come se avesse sovrascitto i dbf più recenti con una copia precedente ma non saprei come giustificarlo.\nCiao a un grazie anticipato a quanto potranno aiutarmi a districare questo \"imbroglio\".\nRoberto Lotronto.','',0,'GA==','2r5j524a',1,0,'',8,0,0),(9649,2266,6,75,0,'83.36.126.255',1142677632,1,0,1,1,1,0,'','Funcion para selecionar drive','¿Cual es la función para seleccionar un disco? .','',0,'GA==','204jrjht',1,0,'',75,0,0),(9650,2265,20,6,0,'87.10.2.136',1142679892,1,0,1,1,1,1,'','Re: Dati &quot;scomparsi&quot;','Difficile fare ipotesi senza conoscere tutti i dettagli del sistema. Tu sei assolutamente sicuro che nel tuo programma non si faccia mai alcun riferimento, diretto o indiretto, alla data dei DBF? Sei altresì sicuro che la tua applicazione non possa aver scritto i dati in un altro percorso?\n\nAltra cosa: gli indici erano allineati come data/ora rispetto ai DBF retrodatati che hai trovato (ma forse questo non lo puoi sapere più)?\n\nPer finire, dovresti cercare di individuare chi possa aver copiato nella cartella dei DBF del tuo programma quei files vecchi.\n\nAltro non mi viene in mente, al momento.\n\nEMG','',0,'GA==','2qcvy8cq',1,0,'',6,0,0),(9651,2259,3,6,0,'87.10.2.136',1142680097,1,0,1,1,1,1,'','','It is implicitly passed by the codeblock bPainted.\n\nEMG','',0,'GA==','vjklvjgq',1,0,'',6,0,0),(9652,2265,20,29,0,'81.174.23.133',1142681820,1,0,1,1,1,0,'','','Roberto,\nhai disattivato l\'op lock nel registro di Windows del Server ? \nL\'utilizzo di archivi ISAM (DBF, basso livello ecc) in rete su sistemi XP/2000 può comportare la perdita di dati per mancata registrazione(verificato personalmente) se non viene disattivato l\'op lock e (secondariamente) se non vengono effettuati i corretti settaggi sulla configurazione della rete.  \n\nCon xHarbour viene fornito adesso un piccolo prg (wincheck mi sembra) sviluppato da Rees Software che effettua automaticamente questi settaggi.\n\nTi allego anche knowledge Microsoft a proposito di questo problema.\n\nMaintaining Transactional Integrity with OPLOCKS\nArticle ID : 224992 \nRevision : 1.0 \nThis article was previously published under Q224992\nOn this page\n SYMPTOMS \n CAUSE \n RESOLUTION \n\nSYMPTOMS\nUnder extreme conditions, some multiuser database applications that use a common data store over a network connection on a file server may experience transactional integrity issues or corruption of the database files and/or indexes stored on the server. This typically applies to some so-called \"ISAM style\", or \"record oriented\" multiuser database applications, not to a client/server relational system like SQL Server. \nCAUSE\nIf a multiuser or single user database application accesses a common data store on a Windows NT file server using opportunistic locks (or OPLOCKS), it is possible for a given user to cache partial transactions on the client systems hard drive. This is a performance enhancement to the Windows client redirector to reduce network file I/O between the client and server. The data being cached on the client redirector is later written back to the server. However, in some cases, a client system may stop responding (hang), do a hard reboot, lose its network connection to the server, or experience any number of other technical difficulties. In such cases, the content of the local cache that has not yet been written to the server can be lost. As a result, the transaction integrity of the database structures on the server is compromised and the data on the file server can become corrupted. \nRESOLUTION\nTo work around this problem, developers writing database applications that access a network data store should flush file buffers at any time that represents delineation of a transaction; for example, after a bulk operation, or prior to closing a file handle, or any time a transaction log is written to. This can be done by calling the Win32 FlushFileBuffers API Call. \n\n--------------------------------------------------------------------------------\nSaluti\n\nMarco','',0,'GA==','1p8or3s5',1,0,'',29,0,0),(9653,2265,20,8,0,'82.51.111.22',1142682722,1,0,1,1,1,0,'','','Grazie per le tempestive risposte.\nPer quanto riguarda l\'ipotesi di Marco mi sembra di capire che l\'inconveniente nasca in caso di registrazioni non fisicamente scritti sul server limitatamente ad una sessione di lavoro. Un flushing forzato da un commit obbliga i dati nella cache ad essere scricati fisicamente. Nel mio caso, a prescindere dal fatto che dopo ogni \"append\" prevedo un \"commit\" i dati persi non si sono limitati ad una sessione ma ad un intero mese !.\nInvece per le ipotesi di E.M.G. ti posso assicurare che la procedura non prevede operazioni particolari sulle date di registrazione. Mi chiedo però : che cosa succede se il client opera con una data aggiornata rispetto a quella del server dove la batteria scarica la teneva arretrata, a livello di scrittura fisica dei dati ?','',0,'GA==','20p4hfhh',1,0,'',8,0,0),(9654,2241,7,274,0,'201.1.49.82',1142683122,1,0,1,1,1,0,'','','Antonio\n\nsim, a versao do emulador é exatamente essa, que é a justamente oferecida  juntamente com os pacotes do FWPPC.\n\nTambém não creio que seja o que disse Jose, pois testei o programa nas várias posições que o emulador permite. \n\n[]\'s\n\nRogerio','',0,'','gqsi0ev0',1,0,'',274,0,0),(9655,2265,20,6,0,'87.10.2.136',1142683531,1,0,1,1,1,1,'','','[quote=&quot;roberto&quot;:1sxiixu2]Mi chiedo però : che cosa succede se il client opera con una data aggiornata rispetto a quella del server dove la batteria scarica la teneva arretrata, a livello di scrittura fisica dei dati ?[/quote:1sxiixu2]\n\nNiente, che io sappia.\n\nEMG','',0,'gA==','1sxiixu2',1,0,'',6,0,0),(9656,1826,3,335,0,'68.193.88.53',1142684417,1,0,1,1,1,0,'','','FYI - FiveTechSoft has included these translations in the March 2006 version of the class TReport located in Report.prg.\n\nThanks, Antonio.','',0,'gA==','2hzyypy3',1,0,'',335,0,0),(9657,2267,3,160,0,'210.212.142.91',1142686741,1,0,1,1,1,0,'','Can I use third party ActiveX control in my FWH application','Hello All,\n\nCan I use third party ActiveX control in my FWH application ? If yes, how can I use it ?\n\nCan somebody guide me ?\n\nTIA','',0,'gA==','33vfyv9a',1,0,'',160,0,0),(9658,2241,7,274,0,'201.1.49.82',1142688702,1,0,1,1,1,0,'','','Antonio,\n\nfuncionou:\n[img:1onrrsgm]http&#58;//softservice&#46;com/tmp/tutor06&#46;jpg[/img:1onrrsgm]\n\nnão sei o que pode ter sido. Simplesmente insisti em abrir novamente os testes e os menus apareceram. Deve haver algum bug nos emuladores. \n\nCaso descubra lhes informo.\n\nObrigado.\n\n[]\'s\n\nRogerio','',0,'CA==','1onrrsgm',1,0,'',274,0,0),(9659,2162,6,77,0,'80.224.163.36',1142689321,1,0,1,1,1,0,'','Re: ERROR AL COMPILAR TWBROWSE17','[quote=&quot;MANOLO&quot;:152wph2h]hOLA a todos, Al compilar la clase twbrowse17 de hernan, con Harbour build 0.44 me da el siguiente error en el fichero wbrwline.c\nalguien podría decirme que significa o la solución para poder compilarla.\n\nsaludos.\nManolo\n\nError que me da:\n\nWarning W8065 c:\\factu32\\twbrowse17\\source\\wbrwline.c 1183: Call to function \'hb_dynsymSymbol\' with no prototype in function HB_FUN_WBRWPANE\nWarning W8065 c:\\factu32\\twbrowse17\\source\\wbrwline.c 1183: Call to function \'hb_dynsymSymbol\' with no prototype in function HB_FUN_WBRWPANE\n\nNota: lo he compilado con verce 4.3.\n\nsaludos.[/quote:152wph2h]\n\nhola a todos no hay nadie que tenga compilada la twbrowse17 para harbour o que me pueda decir como compilar el  wbrwline.c\n\ngracias anticipadas.\n\n\nError E2288 c:\\factu32\\twbrowse17\\source\\wbrwline.c 1183: Pointer to structure required on left side of -&gt; or -&gt;* in function HB_FUN_WBRWPANE','',0,'gA==','152wph2h',1,0,'',77,0,0),(9660,2268,6,77,0,'80.224.163.36',1142690004,1,0,1,1,1,0,'','error unresolved external _hb_dynsymsymbol','Al compilar el twbrowse que antonio dejo aqui me da el siguiente error al incluir la lib dentro de mi sistema:\n\nUnresolved external \'_hb_dynsymsymbol\' referenced from twbrw32.lib/wbrwline\n\n\nAgradeceria me lo pudierais solucionar.\n\ngracias.','',0,'gA==','4cibp4up',1,0,'',77,0,0),(9661,2257,6,495,0,'201.214.100.245',1142693774,1,0,1,1,1,0,'','','Hola Francisco, aqui a el código de ese modulo quisas sea un poco largo..\nen terminos generales, el prg cuenta con 2 clases la primera para realizar una apertuta de caja y recuperar unos valores para pasarselos a la segunda clase y la segunda es la que acumula ventas en el method guardar esta el array que cargo con ventas, una vez concluida la venta primero la imprimo y luego la paso a la dbf desde el array.\n\n\n**VENTA POR BOLETAS DESDE POS\n#include \"FIVEWIN.CH\"\n#include \"DTPICKER.CH\"\n#include \"DOSPRINT.CH\"\n#include \"COLORS.CH\"\n#include \"xbrowse.ch\"\n#include \"GETS.CH\"\n\n#DEFINE CLR_GRID1   RGB( 239, 239, 224 )\n\n#define Brw_nAt         ::oBrw:nArrayAt\n\n#define DB_TABLAS   ::aDbf[01]\n#define DB_LOCAL    ::aDbf[02]\n#define DB_CAJAS    ::aDbf[03]\n\n/*-----------------------------------------------------------------------------------------------*/\nCLASS FT604AbreCaja\n   DATA oDlg1\n   DATA oBrw, oWnd, oBtb, oSay, oMsg\n   DATA oMa\n   DATA oGet, vGet\n   DATA oCmb, vCmb, aCmb\n   DATA oDpk, vDpk\n   DATA oCkb, vCkb\n   DATA oRbt, vRbt\n   DATA oBtn\n   DATA aDbf, bLoc\n   DATA cScope\n   DATA aDatos, aLocal, aMeses, aAnos, aCmb, aTurnos\n   DATA cMes, cAno, cLocal, cTurnos, cMesano\n   DATA lBrw, lRbt\n   METHOD Open()\n   METHOD Init()\n   METHOD New() Constructor\n   METHOD Close()       INLINE AEval( ::aDbf, { |oDbf| oDbf:Close) } ), .T.\n   METHOD Agregar()\n   METHOD Pos()\n   METHOD Valid()\n   METHOD Datos()\nENDCLASS\n\nMETHOD Open CLASS FT604AbreCaja\n   ::aDbf := Array( 03 )\n   DB_TABLAS   := TRed():Use( GetApp():cRuta + \"COTABLAS.DBF\" )\n   DB_LOCAL    := TRed():Use( GetApp():cRuta + \"MALOCCOM.DBF\" )\n   DB_CAJAS    := TRed():Use( GetApp():cRuta + \"MOCAJERO.DBF\" )\nRETURN lTredOpen( ::aDbf )\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Init() CLASS FT604AbreCaja\n   ::oBtn := Array( 02 )\n   ::vGet := Array( 05 )\n   ::oGet := Array( 05 )\n   ::oCmb := Array( 04 )\n   ::aCmb := Array( 02 )\n\n   ::aMeses := { \"Enero\", \"Febrero\", \"Marzo\", \"Abril\", \"Mayo\", \"Junio\", \"Julio\", \"Agosto\",;\n                 \"Septiembre\", \"Octubre\", \"Noviembre\", \"Diciembre\" }\n\n   ::aAnos := {}\n   FOR nFor = 2004 TO Year( Date() )\n      AAdd( ::aAnos, StrZero( nFor, 04 ) )\n   NEXT\n   ::cMes   := Array( 02 )\n   ::cAno   := Array( 02 )\n   AFill( ::cMes, ::aMeses[ Month( Date() ) ] )\n   AFill( ::cAno, ::aAnos[ Len( ::aAnos ) ] )\n\n   DB_LOCAL:dbSetOrder( 1 )\n   ::aLocal     := Array( 02 )\n   ::aLocal[01] := {}; ::aLocal[02] := {}\n   AAdd( ::aLocal[01], \"0000\" ); AAdd( ::aLocal[02], \"Todos\" )\n   DB_LOCAL:Eval( { || AAdd( ::aLocal[01], DB_LOCAL:CODLOC ),;\n                       AAdd( ::aLocal[02], DB_LOCAL:DESLOC ) } )\n   ::cLocal := ::aLocal[02][01]\n\n   ::aTurnos := Array( 02 )\n   ::aTurnos[01] := { \"01\",\"02\",\"03\"}\n   ::aTurnos[02] := { \"Mañana\", \"Tarde\", \"Noche\" }\n\n   DB_CAJAS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->BSetOrder( 03 )\n   DB_TABLAS:DBSetOrder( 01 )\n   DB_TABLAS:Scope( \"VEN\", \"VEN\", 01 )\n   ::vRbt := ::lRbt\n   ::vDpk := Date()\n   ::vGet[01] := 0\n   ::vGet[02] := 0\n   ::vGet[03] := Space( 08 )\n   ::vGet[04] := Space( 08 )\n\nRETURN .T.\n\nMETHOD New( lBrw, lRbt) CLASS FT604AbreCaja\n   ::lBrw := lBrw\n   ::lRbt := lRbt\n    IF !::Open(); RETURN NIL; ENDIF\n    IF !::INIT()\n        ::Close()\n        RETURN NIL\n     ENDIF\n   DEFINE Dialog ::oDlg1 Resource \"DL_APERTURA\"\n      REDEFINE DTPICKER ::oDpk     VAR ::vDpk     id 101      OF ::oDlg1\n      REDEFINE RADIO    ::oRbt     VAR ::vRbt     id 102, 103 OF ::oDlg1; ::oRbt:Disable()\n      REDEFINE COMBOBOX ::oCmb[01] VAR ::cMes[01] ID 105      OF ::oDlg1 ITEMS ::aMeses\n      REDEFINE COMBOBOX ::oCmb[02] VAR ::cAno[01] ID 106      OF ::oDlg1 ITEMS ::aAnos\n      REDEFINE COMBOBOX ::oCmb[03] VAR ::cLocal   ID 107      OF ::oDlg1 ITEMS ::aLocal[02]\n      Redefine Combobox ::oCmb[04] VAR ::cTurnos  ID 109      OF ::oDlg1 Items ::aTurnos[02]\n      REDEFINE GET      ::oGet[01] VAR ::vGet[01] id 108      OF ::oDlg1 Update when ::vRbt = 1\n      REDEFINE GET      ::oGet[02] VAR ::vGet[02] ID 115      OF ::oDlg1 Update When ::vRbt = 2\n      redefine GET      ::oGet[03] VAR ::vGet[03] id 110      of ::oDlg1 Update when ::vRbt = 1\n      Redefine Get      ::oGet[04] VAR ::vGet[04] id 111      of ::oDlg1 Update When ::vRbt = 2\n      Redefine Get      ::oGet[05] VAR ::vGet[05] ID 112      of ::oDlg1 Update\n      Redefine Button   ::oBtn[01] id 113 of ::oDlg1 Action ::Valid( ::lBrw, ::lRbt )\n      Redefine Button   ::oBtn[02] ID 114 of ::oDlg1 Action ::oDlg1:END()\n      WITH OBJECT ( ::oBrw := TXBrowse():New( ::oDlg1 ) )\n         :cAlias      := DB_TABLAS:cAlias\n         :SetRdd()\n         :aCols[01]:cHeader       := \"Código\"\n         :aCols[01]:bStrData      := { || DB_TABLAS:CODTAB }\n         :aCols[02]:cHeader       := \"Nombre Cajero\"\n         :aCols[02]:bStrData      := { || DB_TABLAS:DESTAB }\n         :aCols[02]:nWidth        := 220\n         :nFreeze                 := 02\n         :lColDividerComplete     := .T.\n         :nColDividerStyle        := 002\n         :lHScroll                := .F.\n         :lAllowColSwapping       := .F.\n         :lAllowColHiding         := .F.\n         :nMarqueeStyle           := 006\n         :CreateFromResource(104)\n      END\n      WITH OBJECT ::oDlg1\n         :bValid  := { || ::Close() }\n      END\n      ::oCmb[04]:nAt := 02\n      ::oBrw:bChange := { || ::Datos() } \n      ::oCmb[03]:nAt := 01\n      ::oGet[05]:Disable()\n      ::oBtn[01]:Disable()\n   Activate Dialog ::oDlg1 Center\n\nRETURN Self\n\nMETHOD Datos() CLASS FT604AbreCaja\n   DB_CAJAS:DBSetOrder( 01 )\n   ::cMesano := Strzero( ::oCmb[01]:nAt, 02 ) + SubStr( ::aAnos[ ::oCmb[02]:nAt], 3, 2 )\n   IF ( DB_CAJAS:SEEK( ::cMesano + DToS( ::vDPk ) + DB_TABLAS:CODTAB + \"T\" ) )\n      MsgWait( \"Caja abierta por \" + Trim( DB_TABLAS:DESTAB ) + \" a las \"+ DB_CAJAS:HORAPE , \"Atención Cajeros...!!!\", 1 )\n      ::vGet[01] := DB_CAJAS:SALAPE\n      ::vGet[03] := DB_CAJAS:BOLINI\n      ::vGet[05] := DB_CAJAS:BOLACT\n      IF ::vRbt == 1\n         ::oGet[01]:Disable()\n         ::oGet[02]:Disable()\n         ::oGet[03]:Disable()\n         ::oGet[04]:Disable()\n      ELSE\n         ::oGet[02]:Enable()\n         ::oGet[04]:Enable()\n      ENDIF\n   ENDIF\n      ::oBtn[01]:Enable()\n\n   ::oDlg1:update()\nRETURN NIL\n\nMETHOD Valid( lBrw, lRbt ) CLASS FT604AbreCaja //este metodo valid para que control es ?\n   LOCAL oApp, nLoc, nBol, cLoc\n   ::cMesano := Strzero( ::oCmb[01]:nAt, 02 ) + SubStr( ::aAnos[ ::oCmb[02]:nAt], 3, 2 )\n   nLoc := ::aLocal[01][ ::oCmb[03]:nAt ]\n   cLoc := ::aLocal[02][ ::oCmb[03]:nAt ]\n   IF lBrw\n      DB_CAJAS:DBSetOrder( 01 )\n      IF ( DB_CAJAS:SEEK( ::cMesano + DToS( ::vDPk ) + DB_TABLAS:CODTAB + \"T\" ) )\n         ::vGet[05] := DB_CAJAS:BOLACT\n         nBol := DB_CAJAS:BOLACT\n         nLoc := DB_CAJAS:LOCCOM\n         IF (DB_LOCAL:SEEK( DB_CAJAS:LOCCOM ), cLoc := DB_LOCAL:DESLOC , cLoc := \"Nuevo \" )\n         ::oDlg1:END()\n         ::Pos( nBol, nLoc, cLoc )\n      ELSE\n         ::Agregar()\n      ENDIF\n   ELSE\n      IF lRbt = 2\n         ::oDlg1:END()\n      ELSE\n         ::Agregar()\n      ENDIF\n   ENDIF\nRETURN nil\n\nMETHOD Agregar() CLASS FT604abreCaja\n   LOCAL lBrw := .T., oApp, cLoc, nBol , nLoc\n\n   IF ::aLocal[01][ ::oCmb[03]:nAt ] == \'0000\'\n      MsgInfo( \"Falta Selección de Sucursal\", \"Atención Cajeros\" )\n      RETURN (.F.)\n   ENDIF\n   DB_CAJAS:DBSetOrder( 01 )\n\n   ::cMesano := Strzero( ::oCmb[01]:nAt, 02 ) + SubStr( ::aAnos[ ::oCmb[02]:nAt], 3, 2 )\n   IF ::vRbt == 1\n      IF ::vGet[01] == 0\n         MsgInfo( \"Ingrese Monto Apertura de Caja\",\"Atención Cajeros\" )\n         RETURN .F.\n      ENDIF\n      IF Empty ( ::vGet[03] )\n         MsgInfo( \"Ingrese Boleta Inicial Asignada\",\"Atención Cajeros\" )\n         RETURN .F.\n      ENDIF\n      IF ( DB_CAJAS:SEEK( ::cMesano + DToS( ::vDPk ) + DB_TABLAS:CODTAB + \"T\" /*+ StrZero( ::oCmb[04]:nAt, 02 )*/ ) )\n         IF DB_CAJAS:TIPMOV == .T.\n            MsgInfo( \"Caja abierta por \" + Trim( DB_TABLAS:DESTAB ) + \" a las \"+ DB_CAJAS:HORAPE , \"Atención Cajeros, Debe Cerrar Caja\" )\n            ::vGet[03] := DB_CAJAS:BOLACT\n            ::oGet[01]:Disable()\n            ::oGet[02]:Disable()\n            ::oGet[03]:Disable()\n            ::oGet[04]:Disable()\n         ELSE\n            IF MsgYesNo( \"Nueva Apertura de Caja para este día\",\"Atención Cajeros\")\n               DB_CAJAS:Append()\n               DB_CAJAS:MESPRO := ::cMesano\n               DB_CAJAS:FECMOV := ::vDpk\n               DB_CAJAS:TIPMOV := .T.\n               DB_CAJAS:LOCCOM := ::aLocal[01][ ::oCmb[03]:nAt ]\n               DB_CAJAS:SALAPE := ::vGet[01]\n               DB_CAJAS:TURAPE := StrZero( ::oCmb[04]:nAt, 2 )\n               DB_CAJAS:BOLINI := ::vGet[03]\n               DB_CAJAS:BOLFIN := ::vGet[04]\n               DB_CAJAS:BOLACT := ::vGet[03]\n               DB_CAJAS:CODCAJ := DB_TABLAS:CODTAB\n               DB_CAJAS:HORAPE := Time()\n               DB_CAJAS:UNLOCK()\n            ELSE\n               lBrw := .F.\n            ENDIF\n         ENDIF\n      ELSE\n         ? \"Apertura Nueva caja \"\n         DB_CAJAS:Append()\n         DB_CAJAS:MESPRO := ::cMesano\n         DB_CAJAS:FECMOV := ::vDpk\n         DB_CAJAS:TIPMOV := .T.\n         DB_CAJAS:LOCCOM := ::aLocal[01][ ::oCmb[03]:nAt ]\n         DB_CAJAS:SALAPE := ::vGet[01]\n         DB_CAJAS:TURAPE := StrZero( ::oCmb[04]:nAt, 2 )\n         DB_CAJAS:BOLINI := ::vGet[03]\n         DB_CAJAS:BOLFIN := ::vGet[04]\n         DB_CAJAS:BOLACT := ::vGet[03]\n         DB_CAJAS:CODCAJ := DB_TABLAS:CODTAB\n         DB_CAJAS:HORAPE := Time()\n         DB_CAJAS:COMMIT()\n         DB_CAJAS:UNLOCK()\n      ENDIF\n   ELSE\n      IF ::vGet[02] == 0\n         MsgInfo( \"Ingrese Monto Cierre de Caja\",\"Atención Cajeros\" )\n         RETURN .F.\n      ENDIF\n      IF Empty ( ::vGet[04] )\n         MsgInfo( \"Ingrese Boleta Final Asignada\",\"Atención Cajeros\" )\n         RETURN .F.\n      ENDIF\n      IF ( DB_CAJAS:SEEK( ::cMesano+DToS( ::vDPk ) + DB_TABLAS:CODTAB  + \"T\" /* StrZero( ::oCmb[04]:nAt, 2 ) */  ) )\n            ::vGet[01] := DB_CAJAS:SALAPE\n            ::vGet[03] := DB_CAJAS:BOLINI\n            ::vGet[05] := DB_CAJAS:BOLACT\n            ::oDlg1:update()\n         IF DB_CAJAS:TIPMOV == .T.\n            DB_CAJAS:RLock()\n            DB_CAJAS:SALCIE := ::vGet[02]\n            DB_CAJAS:BOLFIN := ::vGet[04]\n            DB_CAJAS:TURCIE := StrZero( ::oCmb[04]:nAt, 2 )\n            DB_CAJAS:HORCIE := Time()\n            DB_CAJAS:TIPMOV := .F.\n            DB_CAJAS:UNLOCK()\n            ? \"Cierre de Caja Efectuado\"\n            lBrw := .F.\n         ELSE\n            MsgInfo( \"Cierre ya fue realizado \",\"Atención Cajero\" )\n            lBrw := .F.\n         ENDIF\n      ELSE\n         MsgInfo( \"No Existe Apertura\", \"Atención Cajeros\" )\n         lBrw := .F.\n      ENDIF\n   ENDIF\n   ::oDlg1:Update()\n   IF lBrw\n      nLoc := ::aLocal[01][ ::oCmb[03]:nAt ]\n      cLoc := ::aLocal[02][ ::oCmb[03]:nAt ]\n      nBol := ::vGet[03]\n      ::Pos( nBol, nLoc, cLoc ) //aqui\n      ::oDlg1:END()\n   ELSE\n      ::oDlg1:END()\n   ENDIF\nRETURN Self\n\n\nMETHOD Pos( nBol, nLoc, cLoc ) CLASS FT604abreCaja  //este de donde lo llmas ?\n   LOCAL oApp\n   ::oDlg1:END()\n   oApp := FT604()\n   oApp:New( Self, nBol, DB_TABLAS:CODTAB, ::cMesano, nLoc, DB_TABLAS:DESTAB, cLoc  )\nReturn NIL\n\n\n/*-----------------------------------------------------------------------------------------------*/\n***FT604 POS\n/* Bases de Datos */\n#define DB_PRODUC   ::aDbf[01]\n#define DB_FORPAG   ::aDbf[02]\n#define DB_VTAPDT   ::aDbf[03]\n#define DB_PARAM    ::aDbf[04]\n#define DB_LIBVTA   ::aDbf[05]\n#define DB_ANALIS   ::aDbf[06]\n#define DB_DOCPEN   ::aDbf[07]\n#define DB_DETPRO   ::aDbf[08]\n#define DB_BANCO    ::aDbf[09]\n#define DB_CAJAS    ::aDbf[10]\n/*-----------------------------------------------------------------------------------------------*/\n\n#define AR_DATOS ::aDatos\n#define BA_nAt ::oBrw:nArrayAt\n#define BA_MESPRO 01\n#define BA_LOCCOM 02\n#define BA_NUMBOL 03\n#define BA_DESPRO 04\n#define BA_CODPRO 05\n#define BA_UNIPRO 06\n#define BA_KILPRO 07\n#define BA_PREVTA 08\n#define BA_SUBTOT 09\n#define BA_FECMOV 10\n#define BA_ESTADO 11\n#define BA_TIPMOV 12\n#define BA_PRECOS 13\n\n/*-----------------------------------------------------------------------------------------------*/\nCLASS FT604 //segundo dialogo\n   DATA oDlg, oDlg2, oDlg3\n   DATA oBrw, oBtn, oCat\n   DATA oMa, cMes, nAno\n   DATA oGet, vGet\n   DATA oCmb, vCmb, aCmb\n   DATA oDpk, vDpk, oDpkVc, vDpkVc\n   DATA oCkb, vCkb\n   DATA oRbt, vRbt\n   DATA aDbf, aDatos\n   DATA oSay, vSay, vUnimed\n   DATA cScope, Monpal, nRec, nLocal, vMespro, Numbol, vCajero, cNomcaj, cLocal\n   METHOD Open()\n   METHOD Init()\n   METHOD New() Constructor\n   METHOD Close()       INLINE AEval( ::aDbf, { |oDbf| oDbf:Close() } ), .T.\n   METHOD Agrega()\n   METHOD Elimina()\n   METHOD Imprimir()\n   METHOD Guardar()\n   METHOD SetBrw()\n   METHOD PrePro()\n   METHOD Totales()\n   METHOD Pago()\n   METHOD Valida()\n   METHOD Descomprime()\n   METHOD Pago()\n   METHOD Vuelto()\n   METHOD Tecla()\nENDCLASS\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Open() CLASS FT604\n   ::aDbf := Array( 10 )\n   DB_PRODUC   := Tred():Use( GetApp():cRuta + \"COPRODUC.DBF\" )\n   DB_FORPAG   := TRed():Use( GetApp():cRuta + \"COFORPAG.DBF\" )\n   DB_VTAPDT   := TRed():Use( GetApp():cRuta + \"VTASPDTE.DBF\" )\n   DB_PARAM    := TRed():Use( GetApp():cRuta + \"MAPARSIS.DBF\" )\n   DB_LIBVTA   := TRed():Use( GetApp():cRuta + \"LIVTABOL.DBF\" )\n   DB_ANALIS   := TRed():Use( GetApp():cRuta + \"MAANALIS.DBF\" )\n   DB_DOCPEN   := TRed():Use( GetApp():cRuta + \"CCDOCPEN.DBF\" )\n   DB_DETPRO   := TRed():Use( GetApp():cRuta + \"DEVTABOL.DBF\" )\n   DB_BANCO    := TRed():Use( GetApp():cRuta + \"COBANCOS.DBF\" )\n   DB_CAJAS    := TRed():Use( GetApp():cRuta + \"MOCAJERO.DBF\" )\nRETURN lTredOpen( ::aDbf )\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Init() CLASS FT604\n   DB_PRODUC:DbSetOrder( 02 )\n   DB_ANALIS:DbSetOrder( 01 )\n   DB_LOCAL <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->BSetOrder( 01 )\n   DB_DETPRO:DBSetOrder( 01 )\n   DB_FORPAG:DBSetOrder( 01 )\n   DB_LIBVTA:DBSetOrder( 01 )\n   DB_DOCPEN:DBSetOrder( 03 )\n   DB_BANCO <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->BSetOrder( 01 )\n   DB_CAJAS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->BSetOrder( 01 )\n   ::oCmb := Array( 03 )\n   ::vCmb := Array( 03 )\n   ::aCmb := Array( 03 )\n   ::oGet := Array( 16 )\n   ::vGet := Array( 16 )\n   ::oBtn := Array( 15 )\n   ::oDpk := Array( 02 )\n   ::vDpk := Array( 02 )\n   ::oSay := Array( 05 )\n   ::vSay := Array( 05 )\n   ::oCkb := Array( 01 )\n   ::vCkb := Array( 01 )\n\n   ::aCmb[01] := { {}, {} }\n\n   ::aCmb[02] := { {}, {} }\n   DB_BANCO:Eval( { || AAdd( ::aCmb[01][01], DB_BANCO:CodBco  ),;\n                       AAdd( ::aCmb[02][02], DB_BANCO:DesBco) })\n   ::vCmb[02] := ::aCmb[02][02][01]\n\n\n   ::aCmb[03] := { {}, {}, {} }\n   DB_FORPAG:Eval( { || AAdd( ::aCmb[03][01], DB_FORPAG:DEFOPA ),;\n                        AAdd( ::aCmb[03][02], DB_FORPAG:COFOPA ),;\n                        AAdd( ::aCmb[03][03], DB_FORPAG:ACTPAG ) } )\n   ::vCmb[03] := ::aCmb[03][01][01]\n\n\n   ::vDpk     := Date()\n   ::vDpkVc   := Date()\n   ::vGet[04] := \"Food Market\"\n   ::aDatos := {}\n   ::vGet[05] := Space( 10 ) \n   ::vGet[06] := \"\"\n   ::vGet[07] := 0\n   ::vGet[08] := 0\n   ::vGet[09] := 0\n   ::vGet[10] := 0\n   ::vSay[02] := 0\n   ::vSay[01] := 0\n   ::vSay[05] := 0\n   ::vCkb[01] := .T.\n   ::vGet[13] := Space(13) \n   ::vGet[14] := 0\n   ::vGet[03] := ::Numbol\n   ::vSay[04] := 0\nRETURN .T.\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD New( oCat, Numbol, Codcaj, mespro, nLoc, cNomcaj, cLoc ) CLASS FT604\n   LOCAL oFont, vMsg, oMsg, vCaj, oCaj\n   ::oCat    := oCat\n   ::Numbol  := Numbol\n   ::vCajero := Codcaj\n   ::vMespro := mespro\n   ::nLocal  := nLoc\n   ::cNomcaj := cNomcaj\n   ::cLocal  := cLoc\n   vMsg := Array ( 06 )\n   oMsg := Array ( 06 )\n   vMsg[01] := \"Esta Venta $\"\n   vMsg[02] := \"Cajer(o/a)\"\n   vMsg[03] := \"Sucursal\"\n   vMsg[05] := \"Nro.Boleta\"\n   vMsg[06] := cNomcaj\n\n   IF !::Open(); RETURN NIL; ENDIF\n   IF !::Init(); ::Close(); RETURN NIL; ENDIF\n   vMsg[04] := ::cLocal\n   DB_ANALIS:DBSetOrder( 01 )\n   DB_DETPRO:SCOPE( ::cScope, ::cScope , 01 )\n   DEFINE FONT oFont NAME \"Times New Roman\" SIZE 0, -20 BOLD ITALIC\n   DB_DETPRO:Relation( DB_PRODUC, { || DB_DETPRO:CODPRO }, \"DETPRO\" )\n\n   DEFINE Dialog ::oDlg Resource \"DL_604_VTAPOS\"\n\n      Redefine DTPICKER ::oDpk     VAR ::vDpk Id 106 Of ::oDlg\n      Redefine Get   ::oGet[02] VAR ::vGet[02] Id 102 Of ::oDlg picture \"@R 99.999.999-!\" Update; ::oGet[02]:Disable() */\n\n      Redefine Say   oMsg[05]   VAR vMsg[05]   id 108 of ::oDlg Font oFont\n      Redefine Say   ::oGet[03] VAR ::vGet[03] Id 103 Of ::oDlg Font oFont //picture \"9999999999999\"\n      Redefine Say   ::oGet[04] VAR ::vGet[04] Id 100 Of ::oDlg Update COLORS CLR_RED Font oFont\n      Redefine Say   oMsg[01]   VAR vMsg[01]   id 116 of ::oDlg Update Font oFont\n      Redefine Say   oMsg[02]   VAR vMsg[02]   id 065 of ::oDlg Font oFont\n      Redefine Say   oMsg[03]   VAR vMsg[03]   id 050 of ::oDlg Font oFont\n      Redefine Say   oMsg[04]   VAR vMsg[04]   id 051 of ::oDlg Font oFont Colors CLR_RED\n      Redefine Say   oCaj       VAR vMsg[06]   id 104 of ::oDlg Update font oFont\n\n      Redefine CheckBox ::oCkb[01] VAR ::vCkb[01] id 130 of ::oDlg\n      Redefine Get   ::oGet[14] VAR ::vGet[14] id 132 of ::oDlg when ::vCkb[01] = .T. update\n      Redefine Get   ::oGet[15] VAR ::vGet[15] id 134 of ::oDlg when ::vCkb[01] = .T. ; ::oGet[15]:Disable()\n      Redefine Get   ::oGet[13] VAR ::vGet[13] id 131 of ::oDlg when ::vCkb[01] = .T. Update valid { || ::Descomprime() }//para lector de barras\n      ::oGet[15]:bGotFocus := { || ::oGet[13]:SetFocus() }\n\n      Redefine Get   ::oGet[05] VAR ::vGet[05] id 110 of ::oDlg when ::vCkb[01] = .F.  Update\n      Redefine Get   ::oGet[07] VAR ::vGet[07] id 111 of ::oDlg Update When ::vCkb[01] = .F. Valid { || ::PrePro() } picture \"9999\" //Update\n      Redefine Get   ::oGet[08] VAR ::vGet[08] id 112 of ::oDlg update when ::vCkb[01] = .F. Picture \"99999.999\"\n      Redefine Get   ::oGet[09] VAR ::vGet[09] id 113 of ::oDlg update when ::vCkb[01] = .F. Picture \"999,999,999\"\n\n      Redefine Say   ::oSay[05] VAR ::vSay[05] id 135 of ::oDlg Update Picture \"9999\" Font oFont //Valid { || ::Pago() }\n      Redefine Say   ::oSay[01] VAR ::vSay[01] id 115 of ::oDlg Update Picture \"999,999,999\" Font oFont\n      Redefine Say   ::oSay[03] VAR ::vSay[03] id 117 of ::oDlg update Font oFont\n\n      Redefine Button ::oBtn[02] Id 122 Of ::oDlg Action ::Agrega(), ::Totales()\n      Redefine Button ::oBtn[03] Id 126 Of ::oDlg //Action ::Modifica()\n      Redefine Button ::oBtn[04] Id 128 Of ::oDlg Action ::Elimina(), ::Totales()\n      Redefine Button ::oBtn[05] ID 123 of ::oDlg Action ( ::oDlg:bValid := { || .T. }, ::Valida() ) //Salida\n\n      REDEFINE BTNBMP ::oBtn[06] ID 124 OF ::oDlg ;\n      RESOURCE \"EFECTIVO\"   Tooltip \"Cancela con Efectivo...\"\n      ::oBtn[06]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 1 ), NIL )  }\n\n      REDEFINE BTNBMP ::oBtn[07] ID 125 OF ::oDlg ;\n      RESOURCE \"CHEQDIA\"    Tooltip \"Cancela con Cheque al Día...\"\n      ::oBtn[07]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 2 ), NIL )  }\n\n      REDEFINE BTNBMP ::oBtn[08] ID 129 OF ::oDlg ;\n      RESOURCE \"CREDITO\"    Tooltip \"Venta a Crédito...\"\n      ::oBtn[08]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 2 ), NIL  ) }\n\n      REDEFINE BTNBMP ::oBtn[11] ID 127 OF ::oDlg ;\n      RESOURCE \"DEBITO\"     TOOLTIP \"Cancela con Tarjeta Debito ( Red Compra ) ...\"\n      ::oBtn[11]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 5 ), NIL  ) }\n\n      REDEFINE BTNBMP ::oBtn[12] ID 136 OF ::oDlg ;\n      RESOURCE \"VISA\"       ToolTip \"Cancela con Tarjeta de Crédito...\"\n      ::oBtn[12]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 6 ), NIL  ) }\n\n      REDEFINE BTNBMP ::oBtn[13] ID 137 OF ::oDlg ;\n      RESOURCE \"PCVTA\"  Tooltip \"Venta en Espera....\"\n      ::oBtn[13]:bAction := { || FT604AbreCaja():New(.T. , 1 ) }\n\n      REDEFINE BTNBMP ::oBtn[14] ID 138 OF ::oDlg ;\n      RESOURCE \"CALC\"   Tooltip \"Utilizar Calculadora...\"\n      ::oBtn[14]:bAction := { || WinExec( \"Calc\" ) }\n\n      WITH OBJECT ( oComp := TAyuda():Init( ::oGet[05] ) )\n         <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->Add     := SELF\n         <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->Source  := DB_PRODUC\n         :nOrder   := 03\n         :bSeek    := { |cBuf| cBuf        }\n         :bReplace := { |oANA| DB_PRODUC:DESPRO }\n         :bAdd     := { |oANA,oAdd| oAdd:vGet[06] := DB_PRODUC:CODPLU, oAdd:vGet[13] := DB_PRODUC:CODBAR, oAdd:oDlg:Update() }\n         :aCols    := { { \"Rut    \", { |oANA| DB_PRODUC:CODPLU }, 080 },;\n                        { \"Nombre \", { |oANA| DB_PRODUC:DESPRO }, 200 } }\n      END\n      ::oGet[05]:bValid := { || IF( Empty( ::vGet[06] ), ( DB_PRODUC:DBSetOrder(02),;\n      IF( DB_PRODUC:Seek( ::vGet[05] ), (           ,;\n                     ::vGet[06] := DB_PRODUC:CODPLU ,;\n                     ::vGet[05] := DB_PRODUC:DESPRO ,;\n                     ::vGet[13] := DB_PRODUC:CODBAR ,;\n                     ::Prepro(), ::oDlg:Update(), .T. ), .T. ) ), .T. ) }\n\n\n      DB_ANALIS:DBSetOrder( 01 )\n      WITH OBJECT ( ::oBrw := TXBrowse():New( ::oDlg ) )\n         ::SetBrw()\n         :CreateFromResource(107)\n      END\n\n      ::oDlg:bKeyDown := { |nKey| ::Tecla( nKey ) }\n      Activate Dialog ::oDlg center Valid .F.\nRETURN Self\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Tecla( nKey ) CLASS FT604\n   DO CASE\n      CASE nKey == VK_F2 .AND. ::vSay[01] &gt; 0 ; ::Pago( 1 )\n      CASE nKey == VK_F3 .AND. ::vSay[01] &gt; 0 ; ::Pago( 2 )\n      CASE nKey == VK_F4 .AND. ::vSay[01] &gt; 0 ; ::Pago( 3 )\n      CASE nKey == VK_F5 .AND. ::vSay[01] &gt; 0 ; ::Pago( 5 )\n      CASE nKey == VK_F6 .AND. ::vSay[01] &gt; 0 ; ::Pago( 6 )\n   ENDCASE\n\nRETURN NIL\n/*-----------------------------------------------------------------------------------------------*/\n\nMETHOD Valida() CLASS FT604\n   IF Len( AR_DATOS ) &gt; 0\n      MsgInfo( \"Antes de Salir debe anular los datos...??\",\"Atención Ventas...!\" )\n   ELSE\n      ::oDlg:END(.T.)\n   ENDIF\n\nRETURN Self\n*------------------------------------------------------------------------------------------------*/\nMETHOD Elimina() CLASS FT604\n   AR_DATOS := ADEL_( AR_DATOS, BA_nAt )\n   ::oBrw:Gotop()\n   ::SetBrw()\n   ::oBrw:Refresh()\nRETURN NIL\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Descomprime() CLASS FT604\n   LOCAL nKilos, nGramos\n   DB_PRODUC:DBSetOrder( 04 )\n   IF !DB_PRODUC:SEEK( ::vGet[13] )\n      DB_PRODUC:DBSetOrder( 05 )\n      ::vGet[06] := SubStr( ::vGet[13], 3 ,5 ) \n      nKilos     := SubStr( ::vGet[13], 8 ,2 )\n      nGramos    := SubStr( ::vGet[13],10 ,3 )\n      ::vGet[08] := Val( nKilos + \".\" + nGramos )\n      IF ::vGet[13] != \" \"\n         ::PrePro()                            \n         ::vGet[13] := Space(13)               \n      ENDIF                                    \n   ELSE                                        \n      IF ::vGet[13] != \" \"\n         IF DB_PRODUC:ACTOFT = .T.                           \n            ::vGet[09] := DB_PRODUC:PREOFT                   \n            ? \"Producto con PRECIO Oferta\"                   \n         ELSE                                                \n            ::vGet[09] := DB_PRODUC:PRELST                   \n         ENDIF\n         ::vGet[05] := DB_PRODUC:DESPRO\n         ::vSay[03] := DB_PRODUC:DESPRO\n         ::vUnimed  := DB_PRODUC:UNIMED\n         ::vGet[06] := DB_PRODUC:CODPLU\n         ::vGet[16] := DB_PRODUC:PRULCO\n         ::Agrega()\n      ENDIF\n   ENDIF\nRETURN .T.\n\nMETHOD Agrega() CLASS FT604\n   IF ::vCkb[01] = .T.\n      DO CASE\n         CASE ::vUnimed == \"002\"\n            IF ::vGet[14] &gt; 0\n               ::vGet[08] := ::vGet[14]\n            ELSE\n               ::vGet[08] := 1\n            ENDIF\n            ::vGet[07] := ::vGet[08]\n            ::vGet[08] := 0\n            ::vGet[10] := Round( ::vGet[07] * ::vGet[09], 0 )\n         OTHERWISE\n            ::vGet[10] := Round( ::vGet[08] * ::vGet[09] , 0 )\n      ENDCASE\n   ELSE\n      DO CASE\n         CASE ::vUnimed == \"002\"\n            ::vGet[08] := 0\n            ::vGet[10] := Round( ::vGet[07] * ::vGet[09], 0 )\n         OTHERWISE\n            ::vGet[10] := Round( ::vGet[08] * ::vGet[09] , 0 )\n      ENDCASE\n   ENDIF\n   IF ::vGet[10] &gt; 0\n         AAdd( AR_DATOS, { ::vMespro, ::nLocal, ::vGet[03], ::vGet[05], ::vGet[06], ::vGet[07],;\n			   ::vGet[08], ::vGet[09], ::vGet[10], ::vDpk, ::vUnimed, \"002\", ::vGet[16]  } )\n      ::SetBrw()\n      ::vGet[05] := Space( 10 )\n      ::vGet[13] := Space( 13 )\n      ::vGet[07] := 0\n      ::vGet[08] := 0\n      ::vGet[09] := 0\n      ::vGet[10] := 0\n      ::vGet[14] := 0\n      ::vSay[05] := ::vSay[05] + 1\n      ::oBrw:Refresh()\n      ::oDlg:Update()\n      ::Totales()\n   ENDIF\nRETURN NIL\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD PrePro() CLASS FT604\n   DB_PRODUC:DBSetOrder( 05 )\n   IF ::vCkb[01] = .T.\n      IF DB_PRODUC:SEEK( ::vGet[06] )\n         IF DB_PRODUC:ACTOFT = .T.\n            ::vGet[09] := DB_PRODUC:PREOFT\n            ? \"Producto con PRECIO Oferta\"\n         ELSE\n            ::vGet[09] := DB_PRODUC:PRELST\n         ENDIF\n         ::vGet[05] := DB_PRODUC:DESPRO\n         ::vSay[03] := DB_PRODUC:DESPRO\n         ::vUnimed  := DB_PRODUC:UNIMED\n         ::vGet[06] := DB_PRODUC:CODPLU\n         ::vGet[16] := DB_PRODUC:PRULCO\n         ::Agrega()\n      ELSE\n         ? \"no Encontro Producto Asociado\"\n         IF ::vCkb[01] = .T.\n            ::vGet[13] := Space(13)\n            ::oGet[13]:SetFocus( ::oDlg )\n         ENDIF\n      ENDIF\n   ELSE\n      DB_PRODUC:DBSetOrder( 04 )\n      IF !DB_PRODUC:SEEK( ::vGet[13] )\n         ? ::vGet[13], ::vGet[06], SubStr( ::vGet[06], 4, 5 )\n         DB_PRODUC:DBSetOrder( 05 )\n         IF DB_PRODUC:SEEK( SubStr( ::vGet[06], 4, 5 ) )\n            IF DB_PRODUC:ACTOFT = .T.\n               ::vGet[09] := DB_PRODUC:PREOFT\n               ? \"Producto con PRECIO Oferta\"\n            ELSE\n               ::vGet[09] := DB_PRODUC:PRELST\n            ENDIF\n            ::vGet[05] := DB_PRODUC:DESPRO\n            ::vSay[03] := DB_PRODUC:DESPRO\n            ::vUnimed  := DB_PRODUC:UNIMED\n            ::vGet[16] := DB_PRODUC:PRULCO\n         ELSE\n            ? \"no Encontro Producto Asociado\"\n            ::oGet[05]:SetFocus( ::oDlg )\n         ENDIF\n      ELSE\n            IF DB_PRODUC:ACTOFT = .T.\n               ::vGet[09] := DB_PRODUC:PREOFT\n               ? \"Producto con PRECIO Oferta\"\n            ELSE\n               ::vGet[09] := DB_PRODUC:PRELST\n            ENDIF\n            ::vGet[05] := DB_PRODUC:DESPRO\n            ::vSay[03] := DB_PRODUC:DESPRO\n            ::vUnimed  := DB_PRODUC:UNIMED\n            ::vGet[16] := DB_PRODUC:PRULCO\n      ENDIF\n   ENDIF\n   ::oDlg:Update()\nRETURN .T.\n\n*------------------------------------------------------------------------------------------------*/\nMETHOD Totales() CLASS FT604\n   ::vSay[01] := 0\n   ::vSay[04] ++\n   AEval( AR_DATOS,  { |aDat| IF( aDat[09] &gt; 0, ::vSay[01] += aDat[09], NIL ) } )\n   IF ::vCkb[01] = .T.\n      ::oGet[13]:SetFocus( ::oDlg )\n   ELSE\n      ::oGet[05]:SetFocus()\n   ENDIF\n   ::oDlg:Update()\nRETURN .T.\n\n*------------------------------------------------------------------------------------------------*/\nMETHOD Pago( nPos ) CLASS FT604\n   LOCAL oDlg, oBtn, vSay, oSay, vPag, oPag, oFont, oRbt, vRbt, oCmb, vCmb, oGet, vGet, vCkb, oCkb\n   LOCAL oApp\n   oBtn := Array( 02 )\n   vSay := Array( 04 )\n   oSay := Array( 04 )\n   vGet := Array( 03 )\n   oGet := Array( 03 )\n   vPag := 0\n   vSay[01] := ::vGet[03]\n   vSay[02] := ::vSay[01]\n   vSay[04] := \"Valor Pagado\"\n   vSay[03] := 0\n   DO CASE\n      CASE nPos == 1 .OR. nPos == 5 .or. nPos == 6\n         DEFINE FONT oFont NAME \"Times New Roman\" SIZE 0, -20 BOLD ITALIC\n         DEFINE Dialog oDlg Resource \"DL_EFEC_POS\"\n            Redefine Button oBtn[01] Id 106 Of oDlg Action (::oDlg:bValid := {||.T.}, oDlg:END(), ::Imprimir(), ::Guardar(nPos) )\n            Redefine Button oBtn[02] Id 107 Of oDlg Action oDlg:END()\n            Redefine SAY oSay[01] VAR vSay[01] Id 101 of oDlg Font oFont\n            Redefine SAY oSay[02] VAR vSay[02] id 102 of oDlg Font oFont picture \"999,999,999\"  //monto total\n            Redefine SAY oSay[03] VAR vSay[03] id 103 of oDlg Update Font oFont                 //cambio\n            Redefine Say oSay[04] VAR vSay[04] id 104 of oDlg Font oFont\n            Redefine Get oPag     VAR vPag     id 105 of oDlg valid { || ::vuelto( oDlg, vPag, vSay, oBtn ) } Font oFont COLORS CLR_BLACK ,CLR_HCYAN\n            IF nPos == 5\n               MsgInfo( \"Deslice tarjeta Debito\", \"Atención Cajeros\" )\n            ENDIF\n            IF nPos == 6\n               MsgInfo( \"Deslice tarjeta Crédito\", \"Atención Cajeros\" )\n            ENDIF\n\n         ACTIVATE DIALOG oDlg Center                                                   \n      CASE nPos == 2                                                                   \n         vRbt := 1                                                                     \n         DEFINE FONT oFont NAME \"Times New Roman\" SIZE 0, -20 BOLD ITALIC              \n         DEFINE Dialog oDlg Resource \"DL_CHEQ_POS\"\n            Redefine Button oBtn[01] Id 109 Of oDlg Action (::oDlg:bValid := {||.T.}, oDlg:END(), ::Imprimir(), ::Guardar( nPos ) )\n            Redefine Button oBtn[02] Id 110 Of oDlg Action oDlg:END()\n            Redefine SAY oSay[01] VAR vSay[01] Id 101 of oDlg Font oFont\n            Redefine SAY oSay[02] VAR vSay[02] id 102 of oDlg Font oFont picture \"999,999,999\"\n            Redefine SAY oSay[03] VAR vSay[03] id 103 of oDlg Update Font oFont\n\n            Redefine Radio oRbt   VAR vRbt id 104,108 of oDlg\n            oRbt:bChange := { || IF ( vRbt = 2, ( oApp := MantFT208():New( Self, 0, ::nLocal, ::vMespro ),;\n            ::oDlg:bValid := {||.T.}, oDlg:END(), ::Imprimir(), ::Guardar( 3 ) ) , NIL ) }\n\n            Redefine ComboBox ::oCmb[02] VAR ::vCmb[02] id 105 of oDlg items ::aCmb[02][02] when vRbt = 1\n\n            Redefine Get oGet[01] VAR vGet[01] id 106 of oDlg when vRbt = 1\n            Redefine Get oGet[02] VAR vGet[02] id 107 of oDlg When vRbt = 1\n            Redefine Get oGet[03] VAR vGet[03] id 113 of oDlg when vRbt = 1\n\n            Redefine CheckBox oCkb VAR vCkb    id 114 of oDlg when vRbt = 1\n\n            Redefine Say oSay[04] VAR vSay[04] id 112 of oDlg Font oFont\n            Redefine Get oPag     VAR vPag     id 111 of oDlg valid { || ::vuelto( oDlg, vPag, vSay, oBtn ) } Font oFont COLORS CLR_BLACK ,CLR_HCYAN when vRbt = 1 .and. vCkb = .T.\n\n\n         ACTIVATE DIALOG oDlg Center\n      CASE nPos == 3\n         ? \"No Disponible\"\n\n   ENDCASE\nRETURN .T.\n\nMETHOD Vuelto( oDlg, vPag, vSay, oBtn ) CLASS FT604 //aqui pasamos estoos parametros  oDlg, vPag, vSay\n   vSay[03] := Transform( vPag - vSay[02], \"999,999,999\" )\n   IF Val( vSay[03] ) &lt; 0\n      MsgInfo( \"Monto Pagado es incorrecto....!!\",\"Atención Cajeros...\" )\n      vPag := 0\n      oBtn[01]:Disable()\n   ELSE\n      oBtn[01]:Enable()\n   ENDIF\n   oDlg:Update()\nRETURN .T.\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD SetBrw() CLASS FT604\n   LOCAL vTemp\n   WITH OBJECT ::oBrw\n   DEFINE FONT oFont NAME \"Times New Roman\" SIZE 0, -15 BOLD ITALIC\n\n      IF Len( AR_DATOS ) &gt; 0\n         :SetArray( AR_DATOS, .T. )\n      ELSE\n         :SetArray( {{ \"\",\"\",\"\",\"\",\"\",0,0,0,0,0,\"\",\"\",{} } }, .T. )\n      Endif\n         :lColDividerComplete := .T.\n         :nColDividerStyle  := 02\n         :lFooter           := .T.\n         :nFooterLines      := 01\n         :nMarqueeStyle     := 005\n         :lFastEdit    := .T.\n         :nHeaderLines := 02\n         :nFreeze      := 1\n         WITH OBJECT :aCols[ BA_MESPRO ]\n            :Hide()\n         END\n         WITH OBJECT :aCols[ BA_LOCCOM ]\n            :Hide()\n         END\n         WITH OBJECT :aCols[ BA_NUMBOL ]\n            :Hide()\n         END\n         WITH OBJECT :aCols[ BA_PRECOS ]\n            :Hide()\n         END\n\n         WITH OBJECT :aCols[ BA_DESPRO ]\n            :cHeader  := \"Detalle \" + CRLF + \"del Producto\"\n            :nWidth       := 350\n            :bLDClickData := { || ::FichaPro( DB_PRODUC:RecNo() ) }\n            <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->DataFont    := oFont\n         END\n         WITH OBJECT :aCols[ BA_CODPRO ]\n            :Hide()\n         END\n         WITH OBJECT :aCols[ BA_UNIPRO ]\n            :cHeader  := \"   Unidades\"\n            :nEditType   := 1\n            :bonpostEdit := { |o| AR_DATOS[ BD_nAt ][03] := ( o:oEditGet:cText ) }\n            :bEditValue  := { ||  AR_DATOS[ BD_nAt ][03] }\n            :nWidth      := 90\n            <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->DataFont   := oFont\n         END\n         WITH OBJECT :aCols[ BA_KILPRO ]\n            :cHeader  := \"    Kilo\" + CRLF + \"   Gramos\"\n            :nWidth   := 100\n            :nEditType   := 1\n            :bonpostEdit := { |o| AR_DATOS[ BD_nAt ][04] := ( o:oEditGet:cText ) }\n            :bEditValue  := { ||  AR_DATOS[ BD_nAt ][04] }\n            <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->DataFont := oFont\n         END\n         WITH OBJECT :aCols[ BA_PREVTA ]\n            :cHeader  := \"   Precio\" + CRLF + \"   Venta\"\n            :nWidth   := 100\n            <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->DataFont := oFont\n         END\n         WITH OBJECT :aCols[ BA_SUBTOT ]\n            :cHeader  := \"Sub-Total \"\n            :nWidth   := 100\n            <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->DataFont := oFont\n         END\n         WITH OBJECT :aCols[ BA_FECMOV ]\n            :hide()\n         END\n         WITH OBJECT :aCols[ BA_TIPMOV ]\n           :cHeader := \"Tipo\"\n           :nWidth := 90\n         END\n         WITH OBJECT :aCols[ BA_ESTADO ]\n              :Hide()\n         END\n   END\nRETURN NIL\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Guardar( nPos ) CLASS FT604\n   LOCAL nFor, nBol\n   DB_PRODUC:DBSetOrder( 02 )\n   FOR nFor = 1 TO Len( AR_DATOS )\n      DB_DETPRO:APPEND()\n      DB_DETPRO:MESPRO := AR_DATOS[nFor][BA_MESPRO]\n      DB_DETPRO:LOCCOM := AR_DATOS[nFor][BA_LOCCOM]\n      DB_DETPRO:NUMBOL := strzero( Val( AR_DATOS[nFor][BA_NUMBOL] ) , 8 )\n      DB_DETPRO:CODPRO := AR_DATOS[nFor][BA_CODPRO]\n      DB_DETPRO:UNIPRO := AR_DATOS[nFor][BA_UNIPRO]\n      DB_DETPRO:KILPRO := AR_DATOS[nFor][BA_KILPRO]\n      DB_DETPRO:PREVTA := AR_DATOS[nFor][BA_PREVTA]\n      DB_DETPRO:FECMOV := AR_DATOS[nFor][BA_FECMOV]\n      DB_DETPRO:TIPMOV := \'002\' //AR_DATOS[nFor][BA_TIPMOV] corregir segun array de tablas\n      DB_DETPRO:PRECOS := AR_DATOS[nFor][BA_PRECOS]\n      DB_DETPRO:UNLOCK()\n      IF ( DB_PRODUC:SEEK( AR_DATOS[nFor][ BA_CODPRO ] ) )\n         DB_PRODUC:RLock()\n         DB_PRODUC:PRULVT := AR_DATOS[nFor][ BA_PREVTA ]\n         DB_PRODUC:ULTVTA := AR_DATOS[nFor][ BA_FECMOV ]\n         DB_PRODUC:ACTPRO := .T.\n         DB_PRODUC:UNLOCK()\n      ENDIF\n   NEXT\n\n      DB_LIBVTA:APPEND()\n      DB_LIBVTA:MESPRO := ::vMespro\n      DB_LIBVTA:LOCCOM := ::nLocal\n      DB_LIBVTA:FECEMI := ::vDpk\n      DB_LIBVTA:NUMBOL := StrZero( Val( ::vGet[03] ), 8 )\n      DB_LIBVTA:MONBOL := ::vSay[01]\n      DO CASE\n         CASE nPos == 1 ; DB_LIBVTA:FORPAG := \'01\'\n         CASE nPos == 2 ; DB_LIBVTA:FORPAG := \'02\'\n         CASE nPos == 3 ; DB_LIBVTA:FORPAG := \'03\'\n         CASE nPos == 5 ; DB_LIBVTA:FORPAG := \'05\'\n         CASE nPos == 5 ; DB_LIBVTA:FORPAG := \'06\'\n      ENDCASE\n      DB_LIBVTA:CODCAJ := ::vCajero\n      DB_LIBVTA:HORMOV := Time()\n      DB_LIBVTA:UNLOCK()\n\n      IF ( DB_CAJAS:SEEK( ::vMespro + DToS( ::vDPk ) + ::vCajero + \"T\" ) )\n         DB_CAJAS:RLock()\n         nBol := STRZERO( Val( ::vGet[03] ) + 1 , 8 )\n         DB_CAJAS:BOLACT := nBol\n         DB_CAJAS:UNLOCK()\n      ENDIF\n      AR_DATOS := {}\n      hb_gcAll()\n      ::oDlg:END(.T.)\n      ::Close()\n      FT604():New( Self, nBol, ::vCajero, ::vMespro, ::nLocal, ::cNomcaj, ::cLocal )\nRETURN .T.\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Imprimir() CLASS FT604\n   Local cPuerto:=\"LPT1\"\n   LOCAL nLin, nFor, cTemp := \"\", nSubtot := 0, nTotal := 0, nProd, lFor\n   DB_LIBVTA:DBSetOrder( 01 )\n   IF DB_LIBVTA:SEEK( ::vMespro + ::nLocal + StrZero( Val( ::vGet[03] ), 8 ) )\n      DB_CAJAS:SEEK( ::vMespro + DToS( ::vDPk ) + ::vCajero + \"T\" )\n      ::vGet[03] := DB_CAJAS:BOLACT\n      FOR nFor := 1 TO Len( AR_DATOS )\n         AR_DATOS[nFor][BA_NUMBOL] := ::vGet[03]\n      NEXT\n   ENDIF\n\n   oPrn:=TDosPrn():New(cPuerto)\n   oPrn:SayCmp( 01,00, \"Caja:\" )\n   oPrn:SayCmp( 01,04, \"001\" )\n   oPrn:SayCmp( 01,24, \"No.:\" + ::vGet[03] )\n   oPrn:SayCmp( 02,00, SUBSTR(DTOS(::vDpk),7,2) )\n   oPrn:SayCmp( 02,03, CMonth( ::vDpk ) )\n   oPrn:SayCmp( 02,10, SubStr(DToS(::vDpk),1,4 ) )\n   oPrn:SayCmp( 02,15, Time()+ Space( 12 ) )\n   nLin := 00\n   FOR nFor = 1 TO Len( AR_DATOS )\n      nSubTot := 0\n      IF AR_DATOS[nFor][BA_ESTADO] = \"002\"\n         nSubTot := Str( Round( AR_DATOS[nFor][BA_UNIPRO] * AR_DATOS[nFor][BA_PREVTA],0 ) )\n\n         cTemp = SubStr( AR_DATOS[nFor][BA_DESPRO], 1,18 ) + \"    \"+ Trans ( AR_DATOS[nFor][BA_UNIPRO], \"999\" ) + ;\n         Trans ( AR_DATOS[nFor][BA_PREVTA], \"99999\" ) + nSubTot\n      ELSE\n         nSubTot := Str( Round( AR_DATOS[nFor][BA_KILPRO] * AR_DATOS[nFor][BA_PREVTA],0 ) )\n\n         cTemp = SubStr( AR_DATOS[nFor][BA_DESPRO], 1,18 ) + Trans ( AR_DATOS[nFor][BA_KILPRO], \"999.999\" ) +;\n         Trans ( AR_DATOS[nFor][BA_PREVTA], \"99999\" ) + nSubTot\n      ENDIF\n      nTotal := nTotal + Val( nSubtot )\n      oPrn:SayCmp( 00,00, cTemp )\n      nLin++\n      IF nLin == 20\n         oPrn:SayCmp( 00,00,\"----------------------------------------\" ) //40\n         oPrn:SayCmp( 00,00,\"Nro. Productos      Total-&gt; \" + Trans( nTotal, \"999,999,999\" ) )\n         oPrn:SayCmp( 00,10, Str( nLin ) )\n         FOR lFor := nLin TO 27\n            oPrn:SayCmp( 00,00, Space( 40 ) )\n         NEXT\n         oPrn:SayCmp( 00,00, \" \" )\n\n         oPrn:SayCmp( 01,00, \"Caja:\" )\n         oPrn:SayCmp( 01,04, \"001\" )\n         oPrn:SayCmp( 01,24, \"No.:\" + Strzero( Val( ::vGet[03] ) + 1 ,8 ) )\n         oPrn:SayCmp( 02,00, SUBSTR(DTOS(::vDpk),7,2) )\n         oPrn:SayCmp( 02,03, CMonth( ::vDpk ) )\n         oPrn:SayCmp( 02,10, SubStr(DToS(::vDpk),1,4 ) )\n         oPrn:SayCmp( 02,15, Time()+ Space( 12 ) )\n         nLin := 00\n      ENDIF\n\n   NEXT\n   oPrn:SayCmp( 00,00,\"----------------------------------------\" ) //40\n   oPrn:SayCmp( 00,00,\"Nro. Productos      Total-&gt; \" + Trans( nTotal, \"999,999,999\" ) )\n   oPrn:SayCmp( 00,10, Str( nLin ) )\n   IF Len( AR_DATOS ) &lt;= 20\n      FOR nFor := nLin TO 27\n         oPrn:SayCmp( 00,00, Space( 40 ) )\n      NEXT\n   ENDIF\n   oPrn:SayCmp( 00,00, \" \" )\n   oPrn:end(.T.)    \n   ::oDlg:END(.T.)\nRETURN .T.\n\n/*-----------------------------------------------------------------------------------------------*/\n[/code]','',0,'','12nt92ar',1,0,'',495,0,0),(9662,2162,6,73,0,'201.133.201.253',1142694998,1,0,1,1,1,0,'','','ya te envie el .obj a tu correo\nsalu2\nPako','',0,'','1dqzcj9p',1,0,'',73,0,0),(9663,2267,3,15,0,'203.73.91.191',1142695012,1,0,1,1,1,0,'','','Hi\n\nYes, you can do it.\nBut more 3rd party ActiveX not support FWH\'s ActiveX components.\nBorland C++ support a little ActiveX, you can use VC++ 2005.\n\nI only test Show CAD work fine.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'','2vh2tx10',1,0,'',15,0,0),(9664,2268,6,104,0,'201.58.34.208',1142697781,1,0,1,1,1,0,'','','Olá Manolo, \n\nAdicione este trecho em eu programa. \n\n\n[code:1zchpxon]\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n[/code:1zchpxon]\n\nAbraços,\n\nRossine.','',0,'AIA=','1zchpxon',1,0,'',104,0,0),(9665,2269,6,496,0,'200.107.36.176',1142699878,1,0,1,1,1,0,'','Harbour o xHarbour?','Un saludo a todos\n\nEstoy con una gran alegría porque alfín he logrado adquirir fwh, y voy a empezar recién a migrar a los 32 bits (más vale tarde que nunca).\n\nPor lo tanto aquí estaré molestando con mis preguntas. \n\nAquí van mis primeras inquietudes:\n\n1. Cuál compilador me sugieren usar harbour o xharbour, sus ventajas.\n2. Mi aplicación antigua usa NTX, qué debo hacer para pasar a CDX?\n3. Quiero que mis nuevas aplicaciones usen MySQL, qué herramientas tengo para ello, cuál me recomiendan. (Tengo conocimientos de MySQL)\n\nEspero me puedan ayudar a empezar con los 32 bits.\n\nAtentamente\n\nMarcelo Jingo','',0,'AIA=','104cfweb',1,0,'',496,0,0),(9666,2270,3,335,0,'68.193.88.53',1142700600,1,0,1,1,1,0,'','How to use transparent brush on a single folder dialog','I want to use a transparent brush on the dialog of one folder tab in my set of displayed folder dialogs. I\'ve tried without success as follows...\n\nDEFINE BRUSH oBrush FILE \"Mypix.bmp\"\n\nThen I define the main dialog oDlg, the folder oFld, and then activate the folders and the main dialog oDlg upon which the folders sit...\n\n   ACTIVATE DIALOG oDlg  ;\n      NOWAIT              \n\nThen I do the following to attempt to load the transparent bitmap...\n\noFld:aDialogs[1]:lTransparent := .t.\noFld:aDialogs[1]:SetBrush(oBrush)\n\nBut this doesn\'t work - the bitmap is not displayed.\n\nAny suggestions?\n\n- Roger','',0,'','209zsh09',1,0,'',335,0,0),(9667,2269,6,439,0,'201.221.33.161',1142702895,1,0,1,1,1,0,'','A ver si ayuda.....','1. Cuál compilador me sugieren usar harbour o xharbour, sus ventajas\n\nEn principio, yo uso xHarbour porque me he encontrado mejor con él pero no tengo suficiente experiencia para fundamentarlo ampliamente.\n\n2. Mi aplicación antigua usa NTX, qué debo hacer para pasar a CDX? \n\nEn esto si no tengas duda, amigo debes pasarte a índices CDX, por varios motivos primero, evita el tener que estar permanentemente cuidando que indices que deben actualizarse estén abiertos, ya que forma un bag (bolsa) con todos los órdenes dentro de único archivo, segundo porque tienen la facilidad de si los haces estructurales (con el mismo nombre de la base de datos) abrirse automáticamente con la base de datos, lo que te ahorra líneas de código y errores (usando SET AUTOPEN ON), ADEMÁS tienen un mayor grado de compresión lo que permite ocupar menos espacio en disco y en aplicaciones que no son cliente-servidor, naturalmente significa menos tráfico en la red para abrirlos.\n\nSi lo deseas tengo unos documentos pdf de \"The Full\" un maestro, que me ayudaron a implementarlos y tomar las precausiones necesarias para no tener problemas, envíame un e-mail a <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e --> y te los envío.\n\n3. Quiero que mis nuevas aplicaciones usen MySQL, qué herramientas tengo para ello, cuál me recomiendan. (Tengo conocimientos de MySQL) \n\nBueno, en esto no me he metido mucho pero te diré que si buscas con el search, encontrarás mucha ayuda en este foro sobre eso, especialmente consejos de Antonio Linares, Rene Rojas y otros que saben mucho, simplemente, usa la utilidad search, te ayudará mucho.\n\nPor lo pronto yo he visto que hay diversas rdds que permiten utilizar MySql y algunas son gratuitas pero además Fivewin tiene formas propias de usar MySql y son varias, en fin verás con Search en este foro, varias opciones y consejos, RF menciona en uno de los mensajes cual es su preferida de las nativas de FWH.\n\nPor cierto, Bienvenido y mucha suerte.\n\nJosé Murugosa\nDesde URUGUAY el país más bello. (para mí)','',0,'','1kfnljvb',1,0,'',439,0,0),(9668,2241,7,2,0,'87.218.146.19',1142703136,1,0,1,1,1,1,'','','Rogerio,\n\nBien! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3oj0v7m3',1,0,'',2,0,0),(9669,1826,3,2,0,'87.218.146.19',1142703212,1,0,1,1,1,1,'','','Roger,\n\nThanks to you, you have been very kind <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3cu79nym',1,0,'',2,0,0),(9670,2242,6,496,0,'200.107.36.176',1142703418,1,0,1,1,1,0,'','','Leandro\n\nProbaste compilar con el parámetro /n\n\nUn saludo\n\nMarcelo Jingo','',0,'','19r39ywe',1,0,'',496,0,0),(9671,2257,6,2,0,'87.218.146.19',1142703966,1,0,1,1,1,1,'','','Mauro,\n\nCuando dices que tu aplicación se cuelga, a que te refieres exactamente ? Da algún mensaje de error ? El ordenador se vuelve muy lento ? Las imágenes dejan de aparecer ?\n\nQuizá lo que te ocurre es un problema de recursos no liberados, y no tiene nada que ver con la memoria que consume tu aplicación.','',0,'','1m4p58w4',1,0,'',2,0,0),(9672,2269,6,103,0,'200.164.92.242',1142704173,1,0,1,1,1,0,'','','Marcelo,\n\n   Bueno, me voy a intentar responder solamente a tu ultima pregunta... Si deseas usar MySQL desde FWH sin tocar nada de tu codigo, tan solo añadir unas pocas lineas, mira SQLLIB. Es un RDD que te premite usar las tablas de MySQL como se fuera dbf y que tambien es buena para acceder a tus bases de datos MySQL usando el SQL puro.\n   La SQLLIB ya puede acceder a MySQL y PostgreSQL usando accesos nativos y muy rapidos.\n   Puedes probar la versión demo de SQLLIB acá: <!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->\n\nUn abrazo,','',0,'','343qa08n',1,0,'',103,0,0),(9673,2269,6,496,0,'200.107.36.176',1142704356,1,0,1,1,1,0,'','','Gracias José por la pronta respuesta.\n\nTienes razón con el botón buscar he encontrado algunos temas relacionados que me van a servir. Los voy a revisar detenidamente.\n\nEs gratificante saber que con fw uno no está sólo.\n\nUn saludo\n\nGracias\n\nMarcelo Jingo','',0,'','70r78njs',1,0,'',496,0,0),(9674,2269,6,496,0,'200.107.36.176',1142705901,1,0,1,1,1,0,'','','Kleyber\n\nHe visitado la página que me sugieres. Se ve interesante el SQLLIB. Cuáles son las limitaciones de las versiones free y demo. Hay alguna documentación en español?\n\nUn saludo\n\nMarcelo Jingo','',0,'','y5rn467e',1,0,'',496,0,0),(9675,2257,6,495,0,'201.214.100.245',1142711447,1,0,1,1,1,0,'','','Hola Antonio, me refiero a que la app de queda pegada, no responde y no puedo hacer nada sobre ella, solo abrir el adm de tareas y \"Terminar Proceso\" para cerrar la app y volverla a cargar. a veces me sale un dialogo de windows que dice \"Insuficiente memoria, cierre otras apliacaciones y vuelva a intentarlo\" y en la app solo muestra algunas partes de ese prg. guarde una imagen pero no se como ponerla aqui para que la veas..\n\nmuchas gracias.\n\nMauro','',0,'','3txlij8s',1,0,'',495,0,0),(9676,2191,3,148,0,'196.205.178.92',1142712847,1,0,1,1,1,0,'','','I tried this but with error :\n\nselect 4\nUSE METE\nx:= \'9855564\'\ncFilter := \"(4-&gt;me_serial) == \"+x\nbFilter := \"{||\"+cFilter+\"}\" \nDBSETFILTER(&amp;bFilter,cFilter) \nDBGOTOP()','',0,'','2uxqs4yt',1,0,'',148,0,0),(9677,2241,7,274,0,'201.26.165.90',1142712850,1,0,1,1,1,0,'','','Antonio, \n\nnem tão bem assim. O problema persiste, veja:\n\nLogo após ter colocado a resposta acima, continuei outros testes:\n\n1- fiz uma cópia de tutor06.prg com nome  cpp.prg e uma cópia de tutor06.rc com nome cpp.rc .  Compilei cpp. Quando rodei no emulador, voltou a apresentar o erro anterior de não aparecerem os menus. O conteúdo dos arquivos tutor06 e cpp  é idêntico, nem uma vírgula alterada.\n\n\n2- Editei o código de tutor06.prg alterando apenas a palavra \"Click\" em MsgInfo( \"Click!\" ) por \"Estou aqui\" . Recompilei tutor06: voltou a apresentar o defeito anterior.\n\nOs demais programas teste testmenu e tutor04 que não foram recompilados continuam abrindo e mostrando menu.\n\nNesse processo, reiniciei o computador inúmeras vezes. Em nada influiu.\n\nHá algo misterioso, creio que seja alguma falha nos emuladores.\n\n\n[]\'s\n\nRogerio','',0,'','hc3mv4up',1,0,'',274,0,0),(9678,2271,3,230,0,'205.188.116.65',1142714373,1,0,1,1,1,0,'','XHarbour Builder/FWH 2.7 November Build/With Patch Feb 2006','I am Now Downloading the March 2006 Version of XHarbour Builder\nThe Comerial Version.\n\nWhat I want to know is will the Patch library that you send for \nXHarbour Builder Feb. 2006 to work with FWH 2.7 November Build?\n\nOr will I need a new Version of the Library to work with\nthe March 2006 Version of xHarbour Builder?\n\nThank you\nJim Bohanan','',0,'','30kqbvzj',1,0,'',230,0,0),(9679,2162,6,77,0,'80.224.163.36',1142718377,1,0,1,1,1,0,'','','[quote=&quot;Francisco Horta&quot;:2wryqvnt]ya te envie el .obj a tu correo\nsalu2\nPako[/quote:2wryqvnt]\n\ngracias lo pruebo','',0,'gA==','2wryqvnt',1,0,'',77,0,0),(9680,2241,7,2,0,'87.218.146.160',1142719070,1,0,1,1,1,1,'','','Rogerio,\n\nQue ordenador usas y que versión de Windows ? Cuanta memoria tiene el ordenador ?','',0,'gA==','11facrty',1,0,'',2,0,0),(9681,2271,3,2,0,'87.218.146.160',1142719421,1,0,1,1,1,1,'','','Jim,\n\nYou should use FWH march 2006 build. Anyhow, try what you have.','',0,'gA==','3ce9d29i',1,0,'',2,0,0),(9682,2241,7,274,0,'201.26.165.90',1142721782,1,0,1,1,1,0,'','','Antonio\n\nestou usando um AMD 64 Semprom  2.5 , 512 RAM,   windows xp home sp2\n\n\n[]\'s\n\nRogerio','',0,'','10gisd3u',1,0,'',274,0,0),(9683,2224,1,303,0,'68.7.28.54',1142721914,1,0,1,1,1,0,'','','Otto,\n\nI read Vista wouldn\'t support 16bit apps several times, but if you have run them under Vista, then it doesn\'t much matter what I read.\n\nI still can\'t think of any reason to develop 16bit apps rather than 32bit ones, and I can think of a number of reasons not to.\n\nJames','',0,'','1ten5iuf',1,0,'',303,0,0),(9684,2241,7,2,0,'87.218.146.160',1142721958,1,0,1,1,1,1,'','','Rogerio,\n\nPrueba a pasarle este parámetro al emulador:\n/memsize 128','',0,'','3iruhq3y',1,0,'',2,0,0),(9685,2241,7,274,0,'201.26.165.90',1142725092,1,0,1,1,1,0,'','','Antonio\n\nIsso não resolveu, mas deletei os testes que estava fazendo comecei um novo e funcionou:\n\n[img:19avs0dd]http&#58;//softservice&#46;com/tmp/app1&#46;jpg[/img:19avs0dd]\n\nMas há algo misterioso, deve ser algum problema no emulador.\n\nAgora vou começar a portar um sistema para o ppc acabo descobrindo o que houve.\n\n[]\'s  e obrigado.\n\nRogerio','',0,'CA==','19avs0dd',1,0,'',274,0,0),(9686,2191,3,138,0,'201.145.141.89',1142736588,1,0,1,1,1,1,'','','Don\'t use \"alias\" in the filter expresion (4-&gt;)','',0,'CA==','clp52jle',1,0,'',138,0,0),(9687,2256,3,190,0,'202.65.134.45',1142738696,1,0,1,1,1,0,'','','Hi Enrico\n\nThank you very much for your set of functions to measure the \nmilli seconds.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\n\n- Ramesh Babu P','',0,'CA==','jsgd83l9',1,0,'',190,0,0),(9688,2191,3,190,0,'202.65.134.45',1142741526,1,0,1,1,1,0,'','','Mr.Ehab Samir Aziz\n\nDon\'t use alias within brackets\n\n[quote:237xth3v]cFilter := \"(4-&gt;me_serial == )\"+x[/quote:237xth3v]\n\nAs RF said in this topic above, the alias can\'t be resolved by ADS\nServer, since ADS can\'t look into our application memory area.\n\nHence use the expression as under.  My expressions with alias as under\nare working fine in filters. \n\ncFilter := \"4-&gt;me_serial == \"+x \n\n\nMr.RF\n\nThank you very much for your guidance in using DbSetFilter() in combination with ADS.\n\n[quote:237xth3v]If you are used to Filters the best way is to use the ADS LOCAL server. The SET FILTER under ADS is hundred of times faster than the standard (x)Harbour filter [/quote:237xth3v]\n \nWhen I tested it over 1200000 records, I found it  faster not more than 7 times only, but not 100 times!.\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','237xth3v',1,0,'',190,0,0),(9689,2267,3,2,0,'87.218.146.160',1142747305,1,0,1,1,1,1,'','','Milan,\n\nYou may review samples\\webexp.prg, excel.prg, pdf.prg.','',0,'gA==','2r8q4z6i',1,0,'',2,0,0),(9690,2257,6,2,0,'87.218.146.160',1142747525,1,0,1,1,1,1,'','','Mauro,\n\nEso parece un problema de recursos no liberados, no un problema de memoria. Usas bitmaps en tu aplicación ? Cómo los usas ?','',0,'gA==','3ayspryk',1,0,'',2,0,0),(9691,2266,6,2,0,'87.218.146.160',1142747680,1,0,1,1,1,1,'','','LCHDir( &lt;cDir&gt; )','',0,'gA==','1cs2fvld',1,0,'',2,0,0),(9692,2272,3,65,0,'193.201.130.61',1142748598,1,0,1,1,1,0,'','Two bottonbars on a window','Is it possible to place two buttonbars on a window?','',0,'gA==','pci35zdb',1,0,'',65,0,0),(9693,2273,3,148,0,'196.205.178.92',1142748871,1,0,1,1,1,0,'','EXCEL and FWH','Is there a Direct way of dealing with Excel and extract data from .dbf under some conditions to constitute Excel files ?','',0,'gA==','3nmns9up',1,0,'',148,0,0),(9694,2273,3,65,0,'193.201.128.178',1142751684,1,0,1,1,1,0,'','','I Hope the code below helps.\n\nBirol Betoncu\n\n\n\n   oExcel := CREATEOBJECT( \"Excel.Application\" )\n\n   oBook := oExcel:WorkBooks:Add()\n   oSheet := oBook:Worksheets(1)\n\n   nLine:=1\n   (cDBFILE)-&gt;(DBGOTOP())\n   DO WHILE !(cDBFILE)-&gt;(EOF())\n      oSheet:Cells( nLine, 1 ):Value = (cDBFILE)-&gt;Field1\n      oSheet:Cells( nLine, 2 ):Value = (cDBFILE)-&gt;Field2\n      nLine:=nLine+1\n      (cDBFILE)-&gt;(DBSKIP(1))\n   ENDDO\n\n   oExcel:Visible := .T.','',0,'gA==','2wd72x2v',1,0,'',65,0,0),(9695,2267,3,15,0,'203.73.91.191',1142756052,1,0,1,1,1,0,'','','Hi Antonio,\n\nI think he need to complete ActiveX compontnts not easy call Web,Excel,Word or PDF.\nMore ActiveX can replace ToolTip style or Dialog style or Like Office 2003 Menu style ....etc.\nI hope we can use these ActiveX components.\n\nRegards,\n\nRichard','',0,'gA==','241ejkax',1,0,'',15,0,0),(9696,2266,6,75,0,'83.46.134.166',1142760048,1,0,1,1,1,0,'','','Utilizo para seleccionar una carpeta la funcion cGetDir() pero si le doy a cancelar o escape me selecciona C:\\. \n1.- ¿Cómo puedo detectar que se ha cancelado la operación?. \n2.- ¿Cómo le marco la carpeta inicial donde buscar?','',0,'gA==','1r8z1vsz',1,0,'',75,0,0),(9697,1104,2,265,0,'80.59.225.15',1142770038,1,0,1,1,1,0,'','','Perdona no contestar antes, pero tuve problemas con internet.\nRespecto a la solución del problema pues no, no he conseguido imprimir factura a factura y he probado de todo, con resultados dispares, he probado en el controlador de la impresora pdf que me imprima cuando haya recibido todos los documentos, que me imprima inmediatamente, etc. y nada no hay manera, siempre me imprime la última factura, es decir no hay manera que imprima en ficheros independientes, aunque en el proceso de impresión haga un endprint y comience de nuevo.\n\nSaludos\n\nJose Luis','',0,'gA==','1vr4zzmk',1,0,'',265,0,0),(9698,2266,6,2,0,'87.218.146.160',1142770907,1,0,1,1,1,1,'','','Si le das a cancelar, escape ó cierras el diálogo con la \"x\", entonces te devuelve una cadena vacia \"\".\n\nEl segundo parámetro que le pases es el directorio inicial.','',0,'gA==','wcdt1am0',1,0,'',2,0,0),(9699,2270,3,335,0,'68.193.88.53',1142776011,1,0,1,1,1,0,'','','More info on this...\n\nAfter updating the dialog\'s ::lTransparent data and loading the brush into the dialog as shown above, I tried doing oFld:aDialogs[1]:Update() and also oFld:aDialogs[1]:Refresh() and the brush didn\'t show up. \n\nAfter doing this, I checked the dialog\'s data using...\n\nMsgInfo(oFld:aDialogs[1]:lTransparent) -&gt; \"T\"\n\nand \n\nMsgInfo(oFld:aDialogs[1]:oBrush:cBmpFile) -&gt; \"MyPix.bmp\" \n\nSo the data is getting loaded into the dialog, but the brush still doesn\'t get displayed. Even using oFld:aDialogs[1]:Display() does nothing here.\n\nAny suggestions, anyone?\n\n- Roger','',0,'','d2o33enf',1,0,'',335,0,0),(9700,2270,3,15,0,'203.73.91.191',1142780111,1,0,1,1,1,0,'','','Hi, Roger Seiler\n\nMaybe you can use new FWH2.7 support BMP brush for TFolder class.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'','1efzea4t',1,0,'',15,0,0),(9701,2274,6,75,0,'83.52.13.235',1142781265,1,0,1,1,1,0,'','Impresion de documentos a fichero PDF','Por fin he dado con la mejor solución para generar archivos pdf desde mi programa de forma automática. <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->\n \nBajar [b:23qnps25]pdfcreator[/b:23qnps25] que es gratuito de <!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/pdfcreator/\">http://sourceforge.net/projects/pdfcreator/</a><!-- m -->\n\nInstalarlo.\n\n[u:23qnps25]Modificar el registro[/u:23qnps25] de windows de la aplicación:\n[color=green:23qnps25]HKEY_CURRENT_USER\nSoftware\npdfcreator\nprogram[/color:23qnps25]\n\nLos valores de las variables que se deben cambiar para que guarde los ficheros pdf que se van mandando, con el mismo título que le damos al objeto PRINT de nuestro programa (con lo que de esta forma elegimos nosotros el nombre del fichero) son:\n\n[color=green:23qnps25]Autosavedirectory[/color:23qnps25]  [color=blue:23qnps25]C:\\KK[/color:23qnps25]   ( o el que más nos guste )\n[color=green:23qnps25]Autosavefilename[/color:23qnps25]  cambiar el que trae &lt;DateTime&gt; por [color=blue:23qnps25]&lt;Title&gt;[/color:23qnps25]\n[color=green:23qnps25]Autosaveformat [/color:23qnps25]     [color=blue:23qnps25]pdf[/color:23qnps25]\n.\n.\n.\n[color=green:23qnps25]useautosave[/color:23qnps25]   [color=blue:23qnps25] 1[/color:23qnps25]\n\n\nEs muy bueno este programa.','',0,'Qw==','23qnps25',1,0,'',75,0,0),(9702,2275,6,77,0,'80.224.163.36',1142782447,1,0,1,1,1,0,'','problema con verce 4.3','Hola a todos estoy pasando una aplicación de fw21 16bits a fw25 harbour, y estoy compilando con verce, ya que con xmate me da muchos problemas de compilado, bien, el problema es que si en el apartado de prg de terceros introduzco los prgs de por ejemplo el twbrowse o el btnget, cuando ejecuto el programa me da errores .and. etc. errores sin numero de linea, sin embargo si estos mismos prg los pongo en el apartado de prg del programa el programa funciona perfectamente, lo mismo sucedo si en lugar de poner el prg los pongo como lib, es como si al compilar el programa esto no lo adjuntara o los adjuntara despues. despues de todo esto seria saber si a alguien le ha pasado lo mismo y como lo ha solucionado, ya que me interesa muchisimo poder poner los programas o prg externos como eso como lib de terceros o como prg de terceros.\n\nsaludos.\nManolo.','',0,'Qw==','34lz7lga',1,0,'',77,0,0),(9703,2270,3,335,0,'68.193.88.53',1142784772,1,0,1,1,1,0,'','','Thanks, Richard, for your suggestion.\n\nI AM using FWH 2.7 March 2006, and am using the new brush transparency feature. It works fine on an ordinary dialog, or on the master dialog containing a folder (whereby it flows over all the folders as well). But I can\'t seem to get it to work only on a particular dialog that is placed on top of  a folder. For example, I\'d like to use different informative transparent brushes for each folder\'s dialog. \n\nThese brushes are actually pictures of various reports that serve as a background on top of which the user can enter the data that will later appear on the report. My purpose here is to eliminate as much mental abstraction as possible for the users, to make it easier for them to visualize what data they need to enter before the report they want can be printed (using different color codes on overlaid bitmap buttons for data still needed, versus data that has already been supplied).\n\nI think this new transparent brush capability of FWH 2.7 offers an extremely powerful tool for making applications more \"user friendly.\" Just add a little imagination, and the possiblities are limitless. Maybe the next step along this line would be the capability to use a video as a transparent brush. Just imagine what we could do with that as a built-in training tool!\n\n- Roger','',0,'Qw==','3b0n0dsb',1,0,'',335,0,0),(9704,2270,3,6,0,'87.3.228.139',1142784777,1,0,1,1,1,1,'','','No, it doesn\'t work with FWH 2.7 too.\n\nEMG','',0,'Qw==','3cnyik55',1,0,'',6,0,0),(9705,2270,3,335,0,'68.193.88.53',1142784944,1,0,1,1,1,0,'','','Form-filler software does something similar to what I\'m trying to do. You see a picture of the form in the background, on top of which you enter your data.\n\n- Roger','',0,'Qw==','suy32113',1,0,'',335,0,0),(9706,2270,3,6,0,'87.3.228.139',1142785461,1,0,1,1,1,1,'','','This is a little sample of the problem. What are we missing?\n\n[code:16bmm8lv]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrush, oFld\n\n    DEFINE BRUSH oBrush FILE &quot;\\fwh\\bitmaps\\magic&#46;bmp&quot;\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;FOLDER&quot;\n\n    REDEFINE FOLDER oFld;\n             ID 101 OF oDlg;\n             PROMPTS &quot;Test&quot;;\n             DIALOGS &quot;TEST&quot;\n\n    REDEFINE BUTTON;\n             ID 201 OF oDlg;\n             ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oDlg&#58;SetBrush&#40; oBrush &#41;,;\n                       oFld&#58;aDialogs&#91; 1 &#93;&#58;SetBrush&#40; oBrush &#41; &#41;;\n             CENTER\n\n    RETURN NIL[/code:16bmm8lv]\n\nEMG','',0,'AIA=','16bmm8lv',1,0,'',6,0,0),(9707,2191,3,148,0,'196.205.178.92',1142786748,1,0,1,1,1,0,'','','[code:3w3finfl]\nselect 4\nUSE METE\nx&#58;= &quot;9855564&quot;\ncFilter &#58;= &quot;4-&gt;me_serial = &quot;+x\nbFilter &#58;= &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot; \nDBSETFILTER&#40;&amp;bFilter,cFilter&#41; \nDBGOTOP&#40;&#41;[/code:3w3finfl]\n\nThis was my code which got argument error (=)\n\nAt the beginning That code \n[code:3w3finfl]\nstatic oWnd\nstatic coname\nstatic custDlg\nstatic oFWnd,oFld1\n\nextern AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos\n\n#command SET SERVER LOCAL   =&gt; AdsSetServerType &#40; 1 &#41;\n#command SET SERVER REMOTE  =&gt; AdsSetServerType &#40; 2 &#41;\n\n#command SET FILETYPE TO &lt;x&#58;NTX,CDX,ADT&gt;                              ;\n      =&gt; AdsSetFileType&#40; if&#40; upper&#40; &lt;&#40;x&#41;&gt; &#41; == &quot;NTX&quot;, 1,              ;\n                         if&#40; upper&#40; &lt;&#40;x&#41;&gt; &#41; == &quot;CDX&quot;, 2, 3 &#41; &#41; &#41;\n\nSTATIC cState &#58;= &quot;&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\nlocal oBrush, oBar, oBmp\n\n\n   /*REQUEST DBFCDX\n   rddsetdefault&#40; &quot;DBFCDX&quot; &#41;*/\n\n   REQUEST ADS\n\n   rddRegister&#40; &quot;ADS&quot;, 1 &#41;\n   rddsetdefault&#40; &quot;ADS&quot; &#41;\n\n   SET SERVER LOCAL\n   SET FILETYPE TO CDX\n\nselect 1\nUSE cust\n\nINDEX ON upper&#40;cust-&gt;cu_acct&#41; TO cust\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON upper&#40;cust-&gt;cu_appr&#41; TO cust10\nSET INDEX TO cust\n\nselect 2\nUSE cont\nINDEX ON cont-&gt;CT_CU_ACCT+dtoc&#40;cont-&gt;ct_strd&#41; TO cont\nINDEX ON cont-&gt;CT_CU_name TO cont1\nINDEX ON dtoc&#40;cont-&gt;ct_strd&#41; TO cont2\nINDEX ON dtoc&#40;cont-&gt;ct_endd&#41; TO cont3\nINDEX ON cont-&gt;CT_machno TO cont4\nINDEX ON cont-&gt;CT_mamc TO cont5\nINDEX ON cont-&gt;ct_paymet TO cont6\nINDEX ON cont-&gt;ct_payamt TO cont7\nINDEX ON cont-&gt;ct_currenc TO cont8\nINDEX ON cont-&gt;ct_excmet TO cont9\nINDEX ON cont-&gt;ct_excamt TO cont10\nINDEX ON cont-&gt;ct_minvol TO cont11\nSET INDEX TO cont\n\n\n\n\n\n\nselect 3\nuse mach\nindex on mach-&gt;MC_CU_ACCT to mach\nindex on UPPER&#40;mach-&gt;MC_ct_ctna&#41; to mach1\nindex on UPPER&#40;mach-&gt;MC_model&#41; to mach2\nindex on UPPER&#40;mach-&gt;MC_TYPE&#41;+UPPER&#40;mach-&gt;MC_model&#41; to mach3\nindex on UPPER&#40;mach-&gt;MC_serial&#41; to mach4\nindex on UPPER&#40;mach-&gt;MC_meres&#41; to mach5\nindex on UPPER&#40;mach-&gt;MC_brn&#41; to mach6\n\nselect 4\nselect 4\nuse mete\nindex on mete-&gt;ME_serial to mete\nindex on str&#40;mete-&gt;year&#41; + str&#40;mete-&gt;month&#41; to mete1\nindex on mete-&gt;me_date to mete2\n\nselect 5\nuse coun\n\nselect 6\nuse city\n\nselect 7\nuse gove\n\nSET 3DLOOK ON                         // Microsoft 3D Look\n\n*   DEFINE BRUSH oBrush STYLE TILED       // FiveWin new predefined Brushes\n*colors iniColor&#40;&quot;windowText&quot;&#41;,iniColor&#40;&quot;appWorkSpace&quot;&#41;;\n*colors iniColor&#40;&quot;graytext&quot;&#41;,iniColor&#40;&quot;appWorkSpace&quot;&#41;;\n\n   DEFINE WINDOW oWnd FROM 4, 4 TO 25, 75 ;\n      colors CLR_BLACK,CLR_LIGHTGRAY;\n      TITLE &quot;Xerox Application for Outsourcing Works&quot; ;\n      MENU BuildMenu&#40;&#41;\n   DEFINE BITMAP oBmp RESOURCE &quot;Background&quot;\n\nset century on\nset date format to &quot;DD/MM/YYYY&quot;\n   SET 3DLOOK ON                         // Microsoft 3D Look\n//      ON RESIZE oBmp&#58;Center&#40;&#41;\n\n\n   SET MESSAGE OF oWnd TO FWVERSION + &quot;, &quot; + FWCOPYRIGHT CENTERED TIME DATE\n\n   oWnd&#58;bPainted = &#123; | hDC | BmpTiled&#40; hDC, oWnd, oBmp &#41; &#125;\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\n\nreturn nil\n[/code:3w3finfl]\n[/quote]','',0,'AIA=','3w3finfl',1,0,'',148,0,0),(9708,2270,3,2,0,'87.218.146.160',1142786862,1,0,1,1,1,1,'','','Enrico,\n\nPlease post the RC of your sample. Thanks,','',0,'AIA=','2zb4ddrt',1,0,'',2,0,0),(9709,2276,3,148,0,'196.205.178.92',1142787185,1,0,1,1,1,0,'','AS400 and Oracle Application','Can I remote directly an As400 Machine from inside FWH and extract data from Oracle Apllication to FWH application directly .','',0,'AIA=','1i8cyxm9',1,0,'',148,0,0),(9710,2276,3,168,0,'200.44.49.54',1142788013,1,0,1,1,1,0,'','','Yes, you can ODBC and it a must to use a middleware software from IBM as ClientAccess','',0,'AIA=','31tpzagl',1,0,'',168,0,0),(9711,2270,3,6,0,'87.3.228.139',1142788044,1,0,1,1,1,1,'','','Ops. Here it is:\n\n[code:2os3bokm]/****************************************************************************\n\n\npeppe&#46;rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n\n\nFOLDER DIALOG 49, 52, 365, 295\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Folder test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n&#123;\n CONTROL &quot;&quot;, 101, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE, 5, 5, 355, 265\n CONTROL &quot;&amp;Close&quot;, 201, &quot;BUTTON&quot;, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 275, 40, 15\n&#125;\n\n\nTEST DIALOG 49, 52, 365, 295\nSTYLE WS_CHILD\nFONT 8, &quot;MS Sans Serif&quot;\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n&#123;\n CONTROL &quot;Test&quot;, -1, &quot;STATIC&quot;, SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 10, 15, 20, 10\n&#125;\n\n\n1 24 LOADONCALL MOVEABLE \n&#123;\n \'3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31\'\n \'2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54\'\n \'46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D\'\n \'22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62\'\n \'6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63\'\n \'68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D\'\n \'63 6F 6D 3A 61 73 6D 2E 76 31 22 0D 0A 6D 61 6E\'\n \'69 66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E\'\n \'30 22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64\'\n \'65 6E 74 69 74 79 0D 0A 20 20 20 20 6E 61 6D 65\'\n \'3D 22 59 6F 75 72 2E 41 70 70 6C 69 63 61 74 69\'\n \'6F 6E 2E 4E 61 6D 65 2E 48 65 72 65 22 0D 0A 20\'\n \'20 20 20 70 72 6F 63 65 73 73 6F 72 41 72 63 68\'\n \'69 74 65 63 74 75 72 65 3D 22 78 38 36 22 0D 0A\'\n \'20 20 20 20 76 65 72 73 69 6F 6E 3D 22 31 2E 30\'\n \'2E 30 2E 30 22 0D 0A 20 20 20 20 74 79 70 65 3D\'\n \'22 77 69 6E 33 32 22 2F 3E 0D 0A 3C 64 65 73 63\'\n \'72 69 70 74 69 6F 6E 3E 57 69 6E 64 6F 77 73 20\'\n \'53 68 65 6C 6C 3C 2F 64 65 73 63 72 69 70 74 69\'\n \'6F 6E 3E 0D 0A 3C 64 65 70 65 6E 64 65 6E 63 79\'\n \'3E 0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65 6E\'\n \'74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20 20 20 20\'\n \'20 20 20 20 3C 61 73 73 65 6D 62 6C 79 49 64 65\'\n \'6E 74 69 74 79 0D 0A 20 20 20 20 20 20 20 20 20\'\n \'20 20 20 74 79 70 65 3D 22 77 69 6E 33 32 22 0D\'\n \'0A 20 20 20 20 20 20 20 20 20 20 20 20 6E 61 6D\'\n \'65 3D 22 4D 69 63 72 6F 73 6F 66 74 2E 57 69 6E\'\n \'64 6F 77 73 2E 43 6F 6D 6D 6F 6E 2D 43 6F 6E 74\'\n \'72 6F 6C 73 22 0D 0A 20 20 20 20 20 20 20 20 20\'\n \'20 20 20 76 65 72 73 69 6F 6E 3D 22 36 2E 30 2E\'\n \'30 2E 30 22 0D 0A 20 20 20 20 20 20 20 20 20 20\'\n \'20 20 70 72 6F 63 65 73 73 6F 72 41 72 63 68 69\'\n \'74 65 63 74 75 72 65 3D 22 78 38 36 22 0D 0A 20\'\n \'20 20 20 20 20 20 20 20 20 20 20 70 75 62 6C 69\'\n \'63 4B 65 79 54 6F 6B 65 6E 3D 22 36 35 39 35 62\'\n \'36 34 31 34 34 63 63 66 31 64 66 22 0D 0A 20 20\'\n \'20 20 20 20 20 20 20 20 20 20 6C 61 6E 67 75 61\'\n \'67 65 3D 22 2A 22 0D 0A 20 20 20 20 20 20 20 20\'\n \'2F 3E 0D 0A 20 20 20 20 3C 2F 64 65 70 65 6E 64\'\n \'65 6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 3C 2F\'\n \'64 65 70 65 6E 64 65 6E 63 79 3E 0D 0A 3C 2F 61\'\n \'73 73 65 6D 62 6C 79 3E\'\n&#125;[/code:2os3bokm]\n\nEMG','',0,'AIA=','2os3bokm',1,0,'',6,0,0),(9712,2257,6,495,0,'201.214.100.245',1142788715,1,0,1,1,1,0,'','','Hola Antonio, si utilizo Bitmaps en ese prg, en el method New los llamo desde mi RC asi :\n      REDEFINE BTNBMP ::oBtn[06] ID 124 OF ::oDlg ;\n      RESOURCE \"EFECTIVO\"   Tooltip \"Cancela con Efectivo...\"\n      ::oBtn[06]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 1 ), NIL )  }\n\n      REDEFINE BTNBMP ::oBtn[07] ID 125 OF ::oDlg ;\n      RESOURCE \"CHEQDIA\"    Tooltip \"Cancela con Cheque al Día...\"\n      ::oBtn[07]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 2 ), NIL )  }\n\n      REDEFINE BTNBMP ::oBtn[08] ID 129 OF ::oDlg ;\n      RESOURCE \"CREDITO\"    Tooltip \"Venta a Crédito...\"\n      ::oBtn[08]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 2 ), NIL  ) }\n\n      REDEFINE BTNBMP ::oBtn[11] ID 127 OF ::oDlg ;\n      RESOURCE \"DEBITO\"     TOOLTIP \"Cancela con Tarjeta Debito ( Red Compra ) ...\"\n      ::oBtn[11]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 5 ), NIL  ) }\n\n      REDEFINE BTNBMP ::oBtn[12] ID 136 OF ::oDlg ;\n      RESOURCE \"VISA\"       ToolTip \"Cancela con Tarjeta de Crédito...\"\n      ::oBtn[12]:bAction := { || IF ( ::vSay[01] &gt; 0, ::Pago( 6 ), NIL  ) }\n\n\ncrees que mejor le saco los bitmaps a esos bottones, o como le hago para liberar esos recursos??\n\nMuchas gracias por tu preocupación\n\nSalu2\n\nMauro','',0,'','1kwtc5tv',1,0,'',495,0,0),(9713,2270,3,335,0,'68.193.88.53',1142789188,1,0,1,1,1,0,'','','Enrico,\n\nIn your example, I think your ACTIVATE DIALOG needs one more thing to set the dialog\'s ::lTransparent to .t. ...\n\nACTIVATE DIALOG oDlg;\n             ON INIT ( oDlg:SetBrush( oBrush ),;\n                       oFld:aDialogs[ 1 ]:lTransparent := .t. ;\n                       oFld:aDialogs[ 1 ]:SetBrush( oBrush ) );\n             CENTER \n\nHowever, though it is logical that this is needed, it still doesn\'t solve the problem.\n\n- Roger','',0,'','6m9tb85o',1,0,'',335,0,0),(9714,2191,3,138,0,'201.145.141.29',1142791003,1,0,1,1,1,1,'','','Don\'t use ALIAS for creating indexes, ADS cannot recognize them','',0,'','2k6lfqdo',1,0,'',138,0,0),(9715,2276,3,138,0,'201.145.141.29',1142791130,1,0,1,1,1,1,'','','Yes, you can use ADO, and OLE, fast yet efficient.','',0,'','3rph6hnq',1,0,'',138,0,0),(9716,2270,3,2,0,'87.218.146.160',1142797516,1,0,1,1,1,1,'','','Roger, Enrico,\n\nHere it works ok with this little change:\n[code:2n31pcye]\n    ACTIVATE DIALOG oDlg; \n             ON INIT &#40; oDlg&#58;SetBrush&#40; oBrush &#41;,;\n                       oFld&#58;aDialogs&#91; 1 &#93;&#58;bEraseBkgnd &#58;= nil,; \n                       oFld&#58;aDialogs&#91; 1 &#93;&#58;SetBrush&#40; oBrush &#41; &#41;; \n             CENTER \n[/code:2n31pcye]\n[url=http&#58;//imageshack&#46;us:2n31pcye][img:2n31pcye]http&#58;//img528&#46;imageshack&#46;us/img528/7822/trans1dd&#46;png[/img:2n31pcye][/url:2n31pcye]','',0,'GIA=','2n31pcye',1,0,'',2,0,0),(9717,2257,6,2,0,'87.218.146.160',1142797894,1,0,1,1,1,1,'','','Si solamente usas una barra de botones y los usas de esa forma, no hay problema. No usas más bitmpas en tu aplicación.\n\nUsas otros objetos GDI, como Fonts ó brushes ?','',0,'GIA=','3api6hmi',1,0,'',2,0,0),(9718,2277,6,52,0,'200.127.195.89',1142799716,1,0,1,1,1,1,'','tsbrowse &amp; picture &amp; array','Amigos,\n\nPorque este codigo:\n[code:lgvzgohv]      REDEFINE BROWSE oBrw ID 110 OF oDlg font oFonts&#91; 01 &#93; cell\n\n         oBrw&#58; SetArray&#40; aDatos &#41;\n\n         ADD COLUMN TO BROWSE oBrw DATA Array element 1 head &quot;Codigo&quot; width 80;\n            align DT_LEFT, DT_CENTER, DT_CENTER;\n            3DLOOK FALSE, FALSE, FALSE;\n            picture &quot;99/99/9999&quot;;\n            MOVE DT_MOVE_NEXT;\n            FOOTER &quot;Totales-&gt;&quot;[/code:lgvzgohv]\n\nPero cuando saco la parte que dice PICTURE \"99/99/9999\" me funciona perfectamente. \n\nPROBLEMA: cuando hago cursos para arriba me aparece esta hermosa pantalla.\n\n[url=http&#58;//imageshack&#46;us:lgvzgohv][img:lgvzgohv]http&#58;//img389&#46;imageshack&#46;us/img389/4985/untitled10dt&#46;jpg[/img:lgvzgohv][/url:lgvzgohv]','',0,'GIA=','lgvzgohv',1,0,'',52,0,0),(9719,2191,3,148,0,'196.205.178.92',1142800298,1,0,1,1,1,0,'','','[code:2vsdrrvg]\nselect 4\nUSE METE\nx&#58;= &quot;9855564&quot;\ncFilter &#58;= &quot;me_serial = &quot;+x\nbFilter &#58;= &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot; \nDBSETFILTER&#40;&amp;bFilter,cFilter&#41; \nDBGOTOP&#40;&#41;\n[/code:2vsdrrvg]\n\nThat is also does not work Argument error (=)','',0,'AIA=','2vsdrrvg',1,0,'',148,0,0),(9720,2278,6,203,0,'200.107.17.55',1142804149,1,0,1,1,1,1,'','Botones de Borland en español','Hola amigos del foro\n\n\nQuisiera saber si existen botones de borland en español, o de lo contrario como puedo diseñar botones personalizados\n\n\n\nGracias\n\n\nSaludos \nOscar','',0,'AIA=','cykyqju2',1,0,'',203,0,0),(9721,2270,3,335,0,'68.193.88.53',1142807337,1,0,1,1,1,0,'','','Hooray! That did the trick!\n\nYou\'ve earned a Cuban cigar, Antonio.  The next time I see Fidel, I\'ll get you one.  <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n- Roger','',0,'AIA=','z8woz4cn',1,0,'',335,0,0),(9722,2270,3,6,0,'87.3.228.139',1142807548,1,0,1,1,1,1,'','','Great!\n\nEMG','',0,'AIA=','otdcbu5s',1,0,'',6,0,0),(9724,2280,19,2,0,'87.218.146.160',1142808130,1,0,1,1,1,1,'','Excelentes programas de radio divulgativos muy interesantes!','<!-- m --><a class=\"postlink\" href=\"http://www.triunfaeninternet.com/\">http://www.triunfaeninternet.com/</a><!-- m -->','',0,'AIA=','3g5xyvso',1,0,'',2,0,0),(9725,2264,1,211,0,'83.44.224.147',1142809330,1,0,1,1,1,0,'','','hola willi. Nunca he usado esta clase. La he bajao de la web <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w -->, la incluyo en mi compilación y me da fallos. Por ejemplo me dice que este exe tiene mas de 254 segmentos. Luego hay un include de \"dr.ch\". No se, estoy atascado. Puedes indicarme como usar esta clase ? Gracias.','',0,'AIA=','u8tzazrq',1,0,'',211,0,0),(9726,2186,2,211,0,'83.44.224.147',1142809495,1,0,1,1,1,0,'','','hola. podrían enviarmela a mi tambien ? Gracias. \n<!-- e --><a href=\"mailto:chocochester@hotmail.com\">chocochester@hotmail.com</a><!-- e -->','',0,'AIA=','f4dfqocu',1,0,'',211,0,0),(9727,2281,6,212,0,'200.40.214.205',1142816600,1,0,1,1,1,0,'','RDD Error','Estoy intentando generar la aplicación con xHarbour 0.99.51 y FWH26, aclaro que recompilé las librerías necesarias y tengo este error.\n\n[url=http&#58;//imageshack&#46;us:jmb8zf2s][img:jmb8zf2s]http&#58;//img152&#46;imageshack&#46;us/img152/1963/error6sp&#46;jpg[/img:jmb8zf2s][/url:jmb8zf2s]\n\nAgradecería mucho su ayuda.\nGracias.','',0,'GA==','jmb8zf2s',1,0,'',212,0,0),(9728,2282,7,52,0,'200.127.195.89',1142820519,1,0,1,1,1,1,'','msctls_progress32','Estimados,\n\nEsa clase tengo entendido es para hacer una barra de progreso en 3D, existe algun ejemplo?','',0,'GA==','3qsuq1kn',1,0,'',52,0,0),(9729,2283,19,26,0,'84.255.245.173',1142831029,1,0,1,1,1,1,'','The Windows Vista Developer Story','Hello!\n\nApplication Compatibility, Migration, and Interoperability\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/windowsvista/default.aspx?pull=/library/en-us/dnlong/html/AppComp.asp\">http://msdn.microsoft.com/windowsvista/ ... ppComp.asp</a><!-- m -->\n[quote:327cepi5][b:327cepi5]Contents[/b:327cepi5]\n\nThirty-Minute Compatibility Check\nOperating System Versioning\nUser Account Control\nWindows Resource Protection (WRP)\nInternet Explorer Protected Mode\nWindows Vista 64-bit\nMicrosoft Graphical Identification and Authentication (GINA)\nSession 0 Isolation\nNetworking: TCP/IP Stack and the Windows Filtering Platform\nNetworking: Kernel Mode IP Helper APIs\nNetworking: IPv6\nCompatibility Risks[/quote:327cepi5]\n\nRoman','',0,'wA==','327cepi5',1,0,'',26,0,0),(9730,2267,3,160,0,'210.212.142.91',1142833154,1,0,1,1,1,0,'','Excel.Prg and PDf.Prg gives GPF','Hello,\n\nIam using FWH Nov-2005 build. WebExp.Prg works fine. But excel.Prg and PDf.Prg gives me GPF. I have both MS Office and Acrobat reader installed.\n\nCan you guide me further ?\n\nTIA\nMilan.','',0,'wA==','3jbzknct',1,0,'',160,0,0),(9731,2282,7,2,0,'87.218.146.160',1142841842,1,0,1,1,1,1,'','','samples\\TestProg.prg','',0,'wA==','16l9pa6g',1,0,'',2,0,0),(9732,2281,6,2,0,'87.218.146.160',1142841931,1,0,1,1,1,1,'','','Necesitas enlazar la librería hbsix.lib. \n\nPara _hb_stack necesitas una versión actualizada de FWH.','',0,'wA==','6xptqlgr',1,0,'',2,0,0),(9733,2170,3,313,0,'82.88.53.27',1142842393,1,0,1,1,1,0,'','','Thanks for your reply...but I\'ll prefer use only FWH and not external procedure...','',0,'wA==','m94edu7q',1,0,'',313,0,0),(9734,2281,6,2,0,'87.218.146.160',1142842412,1,0,1,1,1,1,'','','Para _hb_stack prueba la siguiente función:\n[code:24ie1tf6]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nvoid * hb_stack&#40; void &#41;\n&#123;\n   return &amp;HB_VM_STACK;\n&#125;\n\n#pragma EDNDUMP\n[/code:24ie1tf6]','',0,'AIA=','24ie1tf6',1,0,'',2,0,0),(9735,2267,3,2,0,'87.218.146.160',1142842770,1,0,1,1,1,1,'','','Milan,\n\n&gt; excel.Prg and PDf.Prg\n\nYou may not have the same version as especified in those samples: \n\"OWC11.Spreadsheet\" and \"PDF.PdfCtrl.6\"\n\nYou may use Microsoft free OleView to inspect what ActiveX controls you have in your computer and locate the right string to use:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b7308564/oleview.zip.html\">http://hyperupload.com/download/b730856 ... w.zip.html</a><!-- m -->','',0,'AIA=','vt4q2ix5',1,0,'',2,0,0),(9736,2284,7,488,0,'217.127.135.134',1142843187,1,0,1,1,1,0,'','Captación de Interes para posible curso de FW para Pocket PC','Hola Amigos\nAnte la solicitud de mas de un fivewinero, estamos valorando la posibilidad de impartir un nuevo curso de Fivewin for Pocket PC.\nEl mismo seria un curso de dia y medio y  impartiria el Sabado 27  y la mañana del Domingo 28 de Mayo\nY su precio seria de  400 euros + IVA\n\nOs agradeceria a quienes estuvieseis interesados nos indicaseis vuestro grado de interes ó no en asitir al mismo, ya que en caso de recibir respuestas positivas en ese sentido.  El curso se convocaria.  \nGracias a todos por su colaboracion.','',0,'AIA=','1u51fsuu',1,0,'',488,0,0),(9737,2274,6,54,0,'201.137.90.144',1142844738,1,0,1,1,1,1,'','Re: Impresion de documentos a fichero PDF','[quote=&quot;Verhoven&quot;:2uf5ymyw]Por fin he dado con la mejor solución para generar archivos pdf desde mi programa de forma automática. <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->\n \nBajar [b:2uf5ymyw]pdfcreator[/b:2uf5ymyw] que es gratuito de <!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/pdfcreator/\">http://sourceforge.net/projects/pdfcreator/</a><!-- m -->\n\nInstalarlo.\n\n[u:2uf5ymyw]Modificar el registro[/u:2uf5ymyw] de windows de la aplicación:\n[color=green:2uf5ymyw]HKEY_CURRENT_USER\nSoftware\npdfcreator\nprogram[/color:2uf5ymyw]\n\nLos valores de las variables que se deben cambiar para que guarde los ficheros pdf que se van mandando, con el mismo título que le damos al objeto PRINT de nuestro programa (con lo que de esta forma elegimos nosotros el nombre del fichero) son:\n\n[color=green:2uf5ymyw]Autosavedirectory[/color:2uf5ymyw]  [color=blue:2uf5ymyw]C:\\KK[/color:2uf5ymyw]   ( o el que más nos guste )\n[color=green:2uf5ymyw]Autosavefilename[/color:2uf5ymyw]  cambiar el que trae &lt;DateTime&gt; por [color=blue:2uf5ymyw]&lt;Title&gt;[/color:2uf5ymyw]\n[color=green:2uf5ymyw]Autosaveformat [/color:2uf5ymyw]     [color=blue:2uf5ymyw]pdf[/color:2uf5ymyw]\n.\n.\n.\n[color=green:2uf5ymyw]useautosave[/color:2uf5ymyw]   [color=blue:2uf5ymyw] 1[/color:2uf5ymyw]\n\n\nEs muy bueno este programa.[/quote:2uf5ymyw]\n\nGracias por la aportación, lo conocia, pero no sabia los ajustes.','',0,'ww==','2uf5ymyw',1,0,'',54,0,0),(9738,2285,7,490,0,'80.24.224.89',1142845709,1,0,1,1,1,0,'','Problema con Build para Folders','Hola,\n\nDesde el build que empezaba a soportar diálogos desde código, no modales y folders, no hemos podido usar la versión de fwppc.\n\nEl problema principal es por lo siguiente:\n\nCreo un diálogo desde recursos y en el bInit realizo las siguientes acciones: Mover el diálogo y definir desde comandos algunos controles.\n\n\n¿Que ocurre? \n\nEn la versión anterior tardaba 1 seg aproximadamente y me mostraba todo perfecto.\n\nEn esta versión se ve como crea el diálogo en blanco, como a continuación lo mueve y como va pintando control a control.\n\nPor lo que la visualización queda horrible, y la imagen de la aplicación de cada al usuario es feísima.\n\n\n¿Que ha pasado para que en esta versión no pinte todo de una vez? No lo sé.\n\n\nUn Saludo,\nJoaquín','',0,'ww==','3pilyq1k',1,0,'',490,0,0),(9739,2267,3,160,0,'210.212.142.91',1142845814,1,0,1,1,1,0,'','Antonio, File is 0 KB','Hello Antonio,\n\nCan you please check that file ? It is 0 Kb and do not contain anything.\n\nTIA\nMilan.','',0,'ww==','pq205x64',1,0,'',160,0,0),(9740,2282,7,52,0,'200.127.195.89',1142849629,1,0,1,1,1,1,'','','Antonio,\n\nPero para tener un progress con estilo XP, o sea, que no sea tan chato. me explico?','',0,'ww==','3hkwwss2',1,0,'',52,0,0),(9741,2282,7,2,0,'87.218.146.160',1142850053,1,0,1,1,1,1,'','','Gustavo,\n\nHoy por hoy, Windows Mobile no soporta los \"temas\" de XP, por lo que las barras de progreso se ven tal cual las muestra el ejemplo. Se podría simular los temas de Xp en Pocket PC, pero eso implicaría reescribir bastantes controles propios de Windows Mobile.','',0,'ww==','1lyh4y4m',1,0,'',2,0,0),(9742,2285,7,2,0,'87.218.146.160',1142850395,1,0,1,1,1,1,'','','Joaquín,\n\nPodrias probar desde el ON INIT a ocultar el diálogo con oDlg:Hide(), moverlo, situarle controles, y finalmente mostrarlo con oDlg:Show().\n\nNosotros no hemos notado diferencia de velocidad, y ningún otro usuario nos lo ha comentado.','',0,'ww==','d81nc64q',1,0,'',2,0,0),(9743,2267,3,2,0,'87.218.146.160',1142850520,1,0,1,1,1,1,'','','Milan,\n\nPlease try this one:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/b7308551/oleview.zip.html\">http://hyperupload.com/download/b730855 ... w.zip.html</a><!-- m -->','',0,'ww==','zzppz29q',1,0,'',2,0,0),(9744,2284,7,2,0,'87.218.146.160',1142850859,1,0,1,1,1,1,'','','Nicolás,\n\nSería interesante que publicitases el curso en diversos foros de FoxPro, porque te comentaré que el mayor interés que hay por FWPPC es por usuarios de FoxPro. Recibimos muchísimas visitas de usuarios de FoxPro.\n\nLos usuarios de FoxPro no tienen ninguna herramienta xbase de desarrollo para Pocket PC. Creo que podríais conseguir bastantes alumnos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'ww==','36emylg3',1,0,'',2,0,0),(9745,2286,20,313,0,'82.88.53.27',1142852524,1,0,1,1,1,0,'','txbrowse - problemi di refresh','Utilizzo fivewin 2.7 xharbour ( ma questi problemi li riscontro anche con la versione 2.6), database dbf e indici ntx. \nQuando inserisco, aggiorno, cancello un record il refresh della xbrowse non avviene in modo corretto, anche forzando il refresh.\nInoltre quando utilizzo l\' incremental seek il posizionamento avviene in modo corretto ma sparisce l\' header della browse.\nGentilmente qualcuno mi può dare qualche dritta.\nGrazie.','',0,'ww==','1zjwj44m',1,0,'',313,0,0),(9746,2287,1,193,0,'195.212.29.163',1142852725,1,0,1,1,1,0,'','Off topic question','Hi.\nI am writing a class on pure Clipper for searching files (including LFN files) on disk. (A simple intermediate demo I have included)\nThe class is based on well-known DOS functions FindFirstFile and FindNextFile.\nMy question is about naming conversion. I need a help from english-spoken men. How is better to name an instant variable? I will try to explain my idea.\nA class object can be in two state. One state is when there is not any seach method executed yet. And another state is when at least one search method was executed. For example\n\nThe first state\n\nDEFINE FILESEEK oFileSeek FILESPEC cFileSpec SEARCH ATTRIBUTE \"D\" LFN\n\nThe second state\n\nDEFINE FILESEEK oFileSeek FILESPEC cFileSpec SEARCH ATTRIBUTE \"D\" LFN\n\noFileSeek:search()  // i.e in this case at least one searching is done\n\nSo how to name a logical variable which will say if at least one searching is done or not?\n\nVladimir Grigoriev','',0,'ww==','tt9sc65d',1,0,'',193,0,0),(9747,2285,7,490,0,'80.24.224.89',1142852733,1,0,1,1,1,0,'','','Antonio,\n\nEso no va, pero he encontrado la diferencia de versión y ya me funciona.\n\nUsabamos un ::oDlg:Activate( ,.F., ::oDlg:bInit ) común para todos los diálogos, pero viendo la clase TDialog hemos comprobado que esos parámetros han cambiado su posición, así que rectificando el activate todo ha vuelto a la normalidad.\n\n\nUn Saludo y Gracias\nJoaquín','',0,'ww==','3lnxl091',1,0,'',490,0,0),(9748,2288,7,490,0,'80.24.224.89',1142853413,1,0,1,1,1,0,'','Error en clase TBitmap','Hola,\n\nHasta esta versión, lo siguiente se veía bien:\n\nREDEFINE BITMAP ::oBitmap ID 114  OF ::oDlg RESOURCE \"PDAFONDO\"   \n\nEn esta versión, se ve un recuadro blanco alrededor, por lo que le añadido la clausula TRANSPAREN y también he probado con oBmp:lTransparent := .T.\n\nEn los 2 casos me genera un error de ejecúción:\nError de argumento %\nen TCONTROL:PAINT(0) \n\nMirando el código he visto que se produce aquí:\n\nif ! ::lTransparent\n      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )\n   else   \n      SetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 )\n      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush )\n   endif\n\n\n¿Como se podría solucionar?\n\nUn Saludo,\nJoaquín','',0,'ww==','3qv2w2g4',1,0,'',490,0,0),(9749,2289,19,193,0,'195.212.29.187',1142857778,1,0,1,1,1,0,'','Can I attach files?','Is there any possibility to attach files to messages on the forum?\nVladimir Grigoriev','',0,'ww==','1v2414n9',1,0,'',193,0,0),(9750,2289,19,2,0,'87.218.146.160',1142859100,1,0,1,1,1,1,'','','Vladimir,\n\nYou have to host your file in a place like <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and then copy here the link they provide you.','',0,'ww==','1jbsc3gq',1,0,'',2,0,0),(9751,2285,7,2,0,'87.218.146.160',1142859213,1,0,1,1,1,1,'','','Joaquín,\n\nbien! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'ww==','2jdp44qc',1,0,'',2,0,0),(9752,2289,19,193,0,'195.212.29.163',1142860644,1,0,1,1,1,0,'','','Thanks Antonio.\nYou are just in time as usual.\nVladimir Grigoriev','',0,'ww==','1kwafibi',1,0,'',193,0,0),(9753,2287,1,193,0,'195.212.29.163',1142860781,1,0,1,1,1,0,'','','Here is URL for downloading the (very simple) example.\n[url:3qiwimzx]http&#58;//hyperupload&#46;com/download/f5d4dc83/SEEKDEMO&#46;EXE&#46;html[/url:3qiwimzx]\n[url:3qiwimzx]http&#58;//hyperupload&#46;com/download/92981687/SEEKDEMO&#46;PRG&#46;html[/url:3qiwimzx]\n\nVladimir Grigoriev.','',0,'EA==','3qiwimzx',1,0,'',193,0,0),(9754,2287,1,2,0,'87.218.146.160',1142861878,1,0,1,1,1,1,'','','Vladimir,\n\nmaybe DATA lDone ?\n\nlDone = .t. after the search','',0,'EA==','1ybhns0k',1,0,'',2,0,0),(9755,2290,3,497,0,'212.127.159.218',1142862167,1,0,1,0,1,0,'','Clicking on a TsBrowse Column, can it execute a Function?','Can I implement a function when clicking on the top of a column in a TsBrowse.\nIf so, how can I initate that?\n\nIn Windows apps you can click on the top of a column and it changes its sequence in alphabetical order f.i.\n\nI use TsBrowse with great pleasure in all my apps.\n\nThanks for a reply.\n\nJules\n[/b]','',0,'','1ej3minl',1,0,'',497,0,0),(9756,2288,7,2,0,'87.218.146.160',1142862213,1,0,1,1,1,1,'','','Joaquín,\n\nPrueba a cambiar el color del pixel 0, 0 del bitmap, ya que se usa para determinar el color transparente del bitmap.','',0,'','3nlhlbxr',1,0,'',2,0,0),(9757,2257,6,495,0,'200.104.0.114',1142863211,1,0,1,1,1,0,'','','Antonio, compile solo ese prg de ventas, saque todos los bitmaps e igual ocurre, el problema creo no son los array\'s pues cambie ese array por una dbf temporal y el problema es el mismo... a medida que realizo ventas aumenta el uso de la app en memoria y llega un momento en que me dice \"insuficiente memoria\" y la app se bloquea.. ¿como hago para liberar esa memoria que se acumula y bloquea la app..?\n\nMuchas Gracias\n\nMauro','',0,'','2sj770an',1,0,'',495,0,0),(9758,2291,3,166,0,'85.18.35.142',1142863574,1,0,1,1,1,0,'','Evaluating Fivewin','Can i find information regarding the Steep neccessary for convert a clipper / xharbour application to Fivewin?\nAnyone use GTWVW and Fivewin? (can post sample)\nFivewin have complete support of active/x ocx compoment ?\nCan i use an activeX compoment in a form made with @ say Get/read?\n\nThanks for clarification\nMassimo Belgrano','',0,'','2iv8vny4',1,0,'',166,0,0),(9759,2287,1,193,0,'195.212.29.187',1142864076,1,0,1,1,1,0,'','','Thanks Antonio.\nHowever IMHO lDone may be incorrectly understood.\nFor example, a program searches in cycle all files whish are started with \"somefiles*\". And lDone may be interpretated that there is nothing more to search i.e we found all we want.\nBut I would like to say with the instant variable that no any search method was executed. That I only defined an object but did not yet do any real seaching. \nVladimir Grigoriev','',0,'','298nt4an',1,0,'',193,0,0),(9760,2287,1,6,0,'82.59.51.142',1142864664,1,0,1,1,1,1,'','','lExecuted? lStarted?\n\nEMG','',0,'','2uzovul2',1,0,'',6,0,0),(9761,2292,6,409,0,'201.246.67.105',1142864772,1,0,1,1,1,0,'','TSBROWSE Y BTNGET PARA 32 BIT','Desearía saber de donde puedo bajar la última versión que tenga de TSBrowse y BtnGet para xHarbour.org  0.99.51\n\nCualquier ayuda que amablemente pueda darme será muy agradecida.\n\nDesde ya gracias.\n\nJosé','',0,'','19p12y1d',1,0,'',409,0,0),(9762,2266,6,75,0,'83.45.230.186',1142864824,1,0,1,1,1,0,'','','Pero ¿cómo le paso los parámetros?\n\nPongo:\n\ncGetDir( , \'E:\\kk\\\') \n\npero no me hace nada distinto por ello.','',0,'','twvqbdr3',1,0,'',75,0,0),(9763,2287,1,193,0,'195.212.29.179',1142865040,1,0,1,1,1,0,'','','Thanks Enrico.\nlExecuted is more suitable.\nI wil wait a little. Maybe another suggestions will be.\nVladimir Grigoriev','',0,'','38li4xux',1,0,'',193,0,0),(9764,2287,1,6,0,'82.59.51.142',1142865728,1,0,1,1,1,1,'','','lPerformed?\n\nEMG','',0,'','3nitz1r7',1,0,'',6,0,0),(9765,2287,1,6,0,'82.59.51.142',1142865764,1,0,1,1,1,1,'','','lCompleted?\n\nEMG','',0,'','28a8flzv',1,0,'',6,0,0),(9766,2287,1,6,0,'82.59.51.142',1142865790,1,0,1,1,1,1,'','','lFinished?\n\nEMG','',0,'','r8fk8r4o',1,0,'',6,0,0),(9767,2287,1,193,0,'195.212.29.163',1142866693,1,0,1,1,1,0,'','','I don\'t like lCompleted and lFinished on the same reason as lDone.\nAlso I think over lNew and something similar...\nVladimir Grigoriev','',0,'','272n3tfo',1,0,'',193,0,0),(9768,2293,6,124,0,'201.252.195.79',1142866700,1,0,1,1,1,0,'','Problemas al compilar con Harbour la opcion /10','Amigos:\n\nEstoy compilando con el harbour para borland que acabo de bajar del sitio de fivetechsoft, tratando de hacerlo con la opcion /10 ( para que todos los simbolos sean tratados como maximo con 10 caracteres ) ya que estoy pasando un programa clipper y tengo algunos simbolos de más de 10 caracteres, cosa que clipper acepta ( corta en 10 caracteres ) y harbour no.\n\nLa pagina de harbour da esta opcion que el compilador no me reconoce.\n\nAlguien tira una línea?\n\nDesde ya gracias.\nRicardo.-','',0,'','3d715jku',1,0,'',124,0,0),(9769,2287,1,6,0,'82.59.51.142',1142866910,1,0,1,1,1,1,'','','lSearched?\n\nEMG','',0,'','2b3th5fd',1,0,'',6,0,0),(9770,2287,1,193,0,'195.212.29.171',1142867283,1,0,1,1,1,0,'','','O\'k. It is more closely. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3cvue98n',1,0,'',193,0,0),(9771,2287,1,193,0,'195.212.29.171',1142867351,1,0,1,1,1,0,'','','And what about the class in whole? Any opnions?','',0,'','3rkpjj4n',1,0,'',193,0,0),(9772,2290,3,266,0,'60.50.60.181',1142873172,1,0,1,1,1,1,'','','oBrw:aActions := { {||msgstop(\'col 1\')},  {||msgstop(\'col 2\')},  {||msgstop(\'col 3\')}, ... }','',0,'','xn282sfa',1,0,'',266,0,0),(9773,2292,6,362,0,'200.168.52.156',1142873555,1,0,1,1,1,1,'','','BTNGET.PRG DE 32 BITS USTED BAJA DE AKÁ:\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->\n\nTSBROWSE, en los tópicos, usted encuentra.  Saludos.','',0,'','e04vpviw',1,0,'',362,0,0),(9774,2170,3,303,0,'68.7.28.54',1142874811,1,0,1,1,1,0,'','','Ripa,\n\nTake a look at \\samples\\twebclien.prg. This shows how to retreive a web page. After that you will have to write your own XML parser.\n\nJames','',0,'','1cbn1la9',1,0,'',303,0,0),(9775,2288,7,490,0,'80.24.224.89',1142875229,1,0,1,1,1,0,'','','Antonio,\n\nEso no responde a que lTransparent := .T. da error y que ha .F. pone el bitmap transparente, siendo el efecto que se quiere conseguir precisamente el contrario.\n\nNo obstante, lo he solucionado de la siguiente manera:\n\n  ::oBitmap:SetColor( , ::oFrame1:nClrPane )\n\nCon esto ha tomado el color del control de fondo perfectamente. \n\nPero ahí dejo la duda, ¿por qué la clausula lTransparent funciona mal?\n\nUn Saludo y gracias\nJoaquín','',0,'','6v8r9uzx',1,0,'',490,0,0),(9776,2294,3,217,0,'201.43.11.224',1142877136,1,0,1,1,1,0,'','Bugs: TGet bchange /Outlook/ suggestion to .ch','Antonio, \nI upgrade to FWH 2.7 to use with xHB comercial due to the _hbstack bug and I found any fixed bugs from 2.6 that came back. \nI\'ll be glad if you can review this issues: \n\nAnsiUpper() function: \nIn any cases AnsiUpper generate a GPF (I tested under XP) and our app \ncrash (but in any way stay running because the exe can\'t be erased), we \nmust restart computer... \n--------------------------------------- \nTOutLook.prg: \nBug: \nThe first time we click in button your action isn\'t fired. We must \nclick button a second time. \n\nPossible solution:\n\nIn method ADDITEM comment the lines: \noBmp:bMMoved := ... \noBmp:blButtonUp := ... \n---------------------------- \nOn change (TGET class) bug: \n\nbChange don\'t consider last character typed in oGet object. In other words \nthe buffer is updated with one character of \"delay\" \nWorking sample: \n\nCode: \n#include \"FiveWin.ch\" \nfunction Main() \n   local oDlg \n   local cVar := space(40) \n   local oGet \n\n   DEFINE DIALOG oDlg TITLE \"Just a get\" \n\n   @ 2,  2 SAY \"Text:\" OF oDlg \n   @ 2,  6 GET oGet VAR cVar OF oDlg \n\n   oGet[2]:bChange := {|| oGet:Assign(), oDlg:SetText(oGet:cText) } \n\n   @ 3,  7 BUTTON \"&amp;Ok\" OF oDlg SIZE 30, 12 ACTION oDlg:End() \n   @ 3, 16 BUTTON \"&amp;Cancel\" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL \n\n   ACTIVATE DIALOG oDlg CENTERED \n\nreturn nil \n\n\nPossible solution (thanks to Rossine): \n\nCode: \nMETHOD KeyChar( nKey, nFlags ) CLASS TGet \n This code is placed on wrong place: \n\n if ::bChange != nil \n    lAccept = Eval( ::bChange, nKey, nFlags, Self ) \n    if ValType( lAccept ) == \"L\" .and. ! lAccept \n       return 0 \n    endif \n endif \n\n The correct place if before otherwise clause at end of method \n\nMETHOD KeyChar( nKey, nFlags ) CLASS TGet \n (...) \n           if ::oGet:TypeOut \n              if ! Set( _SET_CONFIRM ) \n                 ::oWnd:nLastKey = VK_RETURN \n                 ::oWnd:GoNextCtrl( ::hWnd ) \n              else \n                 if Set( _SET_BELL ) \n                    MsgBeep() \n                 endif    \n              endif \n           endif \n           // Rossine \n           if ::bChange != nil \n              lAccept = Eval( ::bChange, nKey, nFlags, Self ) \n              if ValType( lAccept ) == \"L\" .and. ! lAccept \n                 return 0 \n              endif \n           endif \n           // Rossine \n           Eval( ::bPostKey, Self, ::oGet:Buffer ) \n      otherwise \n           return Super:KeyChar( nKey, nFlags ) \n   endcase \n\nreturn 0 \n \n\n\n--------------------------------- \n\nSuggestion: \nWe have any problems to create/activate dialogs with valid/init into classes \nbecause in .ch files the name Self is used. See this sample \n\nMETHOD MyMethod CLASS MyClass \n\ndefine dialog ::oDlg ... \n\nactivate dialog ::oDlg nomodal valid ::MyValid() \n(...) \n\nThe activate code will conflict with Self name, see the PPO: \n::oDlg:Activate(::oDlg:bLClicked,::oDlg:bMoved,::oDlg:bPainted,.T.,,! .T. ,{|Self|::MyValid()},::oDlg:bRClicked,,) \n\n\"valid ::MyValid()\" turn into \"{|Self|::MyValid()}\" \n\nWe suggest change Self to This into .ch files \n-------------------------------------------------------------------- \nA little suggestion to .ch too: Include clause PICT like Clipper: \n\n[ &lt;pict:PICT,PICTURE&gt; &lt;cPicture&gt; ] \n\n------------------------------------------------------------------- \nAnother suggest to .ch: DEFAULT command: \n\n#xcommand DEFAULT &lt;uVar1&gt; := &lt;uVal1&gt; ; \n[, &lt;uVarN&gt; := &lt;uValN&gt; ] =&gt; ; \nif( &lt;uVar1&gt; == nil, &lt;uVar1&gt; := &lt;uVal1&gt;, ) ;; \n[ if( &lt;uVarN&gt; == nil, &lt;uVarN&gt; := &lt;uValN&gt;, ); ] \n\nThis translated declararion: \nDEFAULT x := 1 \n\nif(x == nil, x == 1, ) \n\nAppears to be more efficient that: \n\nx := if(x == nil, x == 1, x) \n\nBecause assign a value to variable only when value is nil','',0,'','3niq0vsf',1,0,'',217,0,0),(9777,2275,6,255,0,'200.67.175.250',1142877185,1,0,1,1,1,1,'','Re: problema con verce 4.3','[quote=&quot;MANOLO&quot;:4vjnv3jf]Hola a todos estoy pasando una aplicación de fw21 16bits a fw25 harbour, y estoy compilando con verce, ya que con xmate me da muchos problemas de compilado, bien, el problema es que si en el apartado de prg de terceros introduzco los prgs de por ejemplo el twbrowse o el btnget, cuando ejecuto el programa me da errores .and. etc. errores sin numero de linea, sin embargo si estos mismos prg los pongo en el apartado de prg del programa el programa funciona perfectamente, lo mismo sucedo si en lugar de poner el prg los pongo como lib, es como si al compilar el programa esto no lo adjuntara o los adjuntara despues. despues de todo esto seria saber si a alguien le ha pasado lo mismo y como lo ha solucionado, ya que me interesa muchisimo poder poner los programas o prg externos como eso como lib de terceros o como prg de terceros.\nsaludos.\nManolo.[/quote:4vjnv3jf]\n\nPuedes intentar creaar la libreria y luego incluirsela al VERCE en librerias de terceros.\n\nSaludos','',0,'gA==','4vjnv3jf',1,0,'',255,0,0),(9778,2295,7,498,0,'213.97.9.239',1142879276,1,0,1,1,1,1,'','Descargar nuevo Build','Hola a todos, acabamos de comprar el FiveWin para PPC el dia 13, y veo se hace referencia al nuevo build de FWPPC.\n\n¿ Que pasos he de seguir para descargarlo ?\n\n¿ He de descargar de nuevo el FWPPC y reinstalarlo ?\n\n Gracias por todo.\n\nSaludos.','',0,'gA==','2cx2s89v',1,0,'',498,0,0),(9779,2296,20,29,0,'81.174.23.133',1142879517,1,0,1,1,1,0,'','Problema allineamento testo in buttonbmp','Salve,\nho un problema con i buttonbmp con FWH27 (marzo),\ngestendoli come risorsa.\n\nIn pratica l\'immagine bitmap mi appare al centro del bottone sovrapponendosi al testo.\n\nHo creato un self-contained che mostra il problema\nscaricabile da <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->\n\nQualche idea ?\n\nGrazie in anticipo.\n\nMarco','',0,'gA==','xj56364q',1,0,'',29,0,0),(9780,2295,7,2,0,'87.218.146.160',1142880818,1,0,1,1,1,1,'','','Jose, Javier,\n\nSí, teneis que usar la dirección de descarga que se os proporcionó por email y el mismo login y password. \n\nSe puede reinstalar encima del que teneis. Sólo se ha modificado fwppc.exe','',0,'gA==','1xbpe2bp',1,0,'',2,0,0),(9781,2291,3,2,0,'87.218.146.160',1142881031,1,0,1,1,1,1,'','','Massimo,\n\n&gt;\nCan i find information regarding the Steep neccessary for convert a clipper / xharbour application to Fivewin? \n&gt;\n\nYou may download a FW intro from here:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwintro.pdf\">http://www.fivetechsoft.com/files/fwintro.pdf</a><!-- m -->\n\n&gt; Fivewin have complete support of active/x ocx compoment ? \n\nYes\n\n&gt; Can i use an activeX compoment in a form made with @ say Get/read? \n\nYes. We provide several working samples ready to be used (webexp.prg, excel.prg, pdf.prg).','',0,'gA==','28m7jbg0',1,0,'',2,0,0),(9782,2294,3,2,0,'87.218.146.160',1142881358,1,0,1,1,1,1,'','','Maurilio,\n\nWe have not modified AnsiUpper() at all. It just makes a call to Win32 AnsiUpper() function. Its a one line source code function.','',0,'gA==','298g8c57',1,0,'',2,0,0),(9783,2294,3,2,0,'87.218.146.160',1142881562,1,0,1,1,1,1,'','','Maurilio,\n\nWe have just tested samples\\TestOutL.prg and it works ok. Could you please test it ? Are you using some classes with modifications of your own ?','',0,'gA==','o09afpun',1,0,'',2,0,0),(9784,2294,3,2,0,'87.218.146.160',1142881928,1,0,1,1,1,1,'','','Maurilio,\n\n&gt;\nbChange don\'t consider last character typed in oGet object. In other words the buffer is updated with one character of \"delay\"\n&gt;\n\nFixed. Thanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','af1r6zb0',1,0,'',2,0,0),(9785,1732,6,376,0,'201.240.209.41',1142881942,1,0,1,1,1,0,'','','¿Es también aplicable a FWH2.4?\n\n[quote=&quot;Antonio Linares&quot;:m1mn449r]Jose Luis,\n\nSí se puede, y el parche ya se publicó:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1634\">http://fivetechsoft.com/forums/viewtopic.php?t=1634</a><!-- m -->\n\nAñade esta función a tu aplicación:\n[code]\n#pragma BEGINDUMP \n\n#include \"hbapi.h\" \n#include \"hbapiitm.h\" \n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) \n{ \nreturn pDynSym-&gt;pSymbol; \n} \n\n#pragma ENDDUMP[/quote:m1mn449r]','',0,'gA==','m1mn449r',1,0,'',376,0,0),(9786,2294,3,2,0,'87.218.146.160',1142882153,1,0,1,1,1,1,'','','Maurilio,\n\n&gt; We suggest change Self to This into .ch files\n\nIts a good suggestion, but we can\'t implement it or we will break many users source code.','',0,'gA==','27ow1pls',1,0,'',2,0,0),(9787,1995,16,376,0,'201.240.209.41',1142882159,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:322r7jcl]FWH users may also download the new build too.\n\nLos usuarios de FWH pueden descargar el nuevo build también.[/quote:322r7jcl]\n\n¿Es también para los usuarios de la Versión 2.4 de FWH?','',0,'gA==','322r7jcl',1,0,'',376,0,0),(9788,2266,6,63,0,'80.37.102.128',1142882326,1,0,1,1,1,0,'','','Efectivamente; yo utilizo cGetDir32(\"¿Dónde quiere los datos?, \"C:\\MiDir\")\ny tampoco parece que haga caso del segundo parámetro. Alguien ha encontrado una solución?  \nRafael','',0,'gA==','2f0w0qms',1,0,'',63,0,0),(9789,2294,3,2,0,'87.218.146.160',1142882559,1,0,1,1,1,1,'','','Maurilio,\n\n&gt;\nA little suggestion to .ch too: Include clause PICT like Clipper: \n\n[ &lt;pict:PICT,PICTURE&gt; &lt;cPicture&gt; ] \n&gt;\n\nImplemented, thanks!','',0,'','1cef5oh5',1,0,'',2,0,0),(9790,2294,3,2,0,'87.218.146.160',1142883117,1,0,1,1,1,1,'','','Maurilio,\n\n&gt; Another suggest to .ch: DEFAULT command: \n\nExcellent suggestion. Implemented. Many thanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3u05slsl',1,0,'',2,0,0),(9791,1732,6,2,0,'87.218.146.160',1142883251,1,0,1,1,1,1,'','','Armando,\n\nSí, sería aplicable. Pruébalo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','1tkonu3d',1,0,'',2,0,0),(9792,2257,6,2,0,'87.218.146.160',1142883328,1,0,1,1,1,1,'','','Usas bitmaps en los browses ?','',0,'','j0yi9pp0',1,0,'',2,0,0),(9793,2266,6,2,0,'87.218.146.160',1142883404,1,0,1,1,1,1,'','','Rafael,\n\nHay que usar cGetDir(), no cGetDir32(). Esa es sólo para Clipper.\n\nVerhoven, que versión de FWH usas ?','',0,'','25ff7yys',1,0,'',2,0,0),(9794,2293,6,2,0,'87.218.146.160',1142883536,1,0,1,1,1,1,'','','Ricardo,\n\nNuestro consejo es que no uses esa opción, ya que FWH no la usa y va a darte problemas.\n\nSi tienes algún símbolo de más de 10 caracteres, te dará problemas si lo has escrito distinto en algún sitio. Es preferible corregir eso y ya está.','',0,'','2zxb9l6b',1,0,'',2,0,0),(9795,1995,16,2,0,'87.218.146.160',1142883656,1,0,1,1,1,1,'','','Armando,\n\nLas actualizaciones gratuitas son sólo durante dos meses, ó durante los seis meses de la suscripción del FTDN.\n\nLa versión que estás usando tiene varios años ya. Para actualizarte tienes que dirigirte a <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m -->','',0,'','2etd75mi',1,0,'',2,0,0),(9796,2290,3,497,0,'212.127.159.218',1142885819,1,0,1,0,1,0,'','Clicking on a TsBrowse Column','TNHOE,\n\nThanks for respnding,\nCan you give more detailed info?\nWhere should I place  the command: oBrW:aActions\nHow could the Array look like ,example\n\nShould the function: msgstop(\'col 1\') define the order of records ?\n\nThanks again.\n\nJules','',0,'','2pq7hwz8',1,0,'',497,0,0),(9797,2266,6,63,0,'80.37.102.128',1142887246,1,0,1,1,1,0,'','','Tienes razón, Antonio.  cGetDir() funciona bien.  Lo que no entiendo es por qué la función para Clipper (un prog. de 16 bits) se llama xxx32...\nSaludos,\nRafael','',0,'','395vvd2t',1,0,'',63,0,0),(9798,2296,20,6,0,'82.58.168.181',1142890760,1,0,1,1,1,1,'','Re: Problema allineamento testo in buttonbmp','Hai provato a disegnare il bitmap in modo tale che non sia al centro dell\'immagine?\n\nEMG','',0,'','3dbth4o2',1,0,'',6,0,0),(9800,2294,3,217,0,'200.204.97.49',1142892179,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:aefzz47c]\nWe have just tested samples\\TestOutL.prg and it works ok. Could you please test it ? Are you using some classes with modifications of your own ?[/quote:aefzz47c]\n\nNo, I´m using original class. The problem occur when we click any button by first time. In 1st time, the action isn´t launched. Any times it work other times no <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nWe comment these lines and it worked. I´ll try with a self contained sample...\n\nAbout AnsiUpper( ) I can´t figura what occur. I call ansiupper( ) and my program exit without error messages. I search in my source code if i redefined it in any place but it is ok...\nAny news I post here...\n\nMany thanks to accept my suggestions <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nBest regards,\nMaurilio','',0,'gA==','aefzz47c',1,0,'',217,0,0),(9801,2298,22,73,0,'201.145.74.184',1142895988,1,0,1,1,1,0,'','foro SQL','pues eso, seria bueno ir pensando en un foro para sql, creo que a muchos que nos interesa explorar mas y conocer sus virtudes, seria bueno tener algo de informacion por donde comenzar\nsalu2\nPako','',0,'gA==','2vrjbt85',1,0,'',73,0,0),(9802,1605,2,488,0,'62.99.38.165',1142896478,1,0,1,1,1,0,'','Re: XmlToAnsi','Sebastian,\nseria tan amable de ponerte en contacto conmigo en privado.\n<!-- e --><a href=\"mailto:nico@geroa-informatica.com\">nico@geroa-informatica.com</a><!-- e -->\ngracias','',0,'gA==','cufmojmb',1,0,'',488,0,0),(9803,2270,3,299,0,'69.65.95.131',1142899208,1,0,1,0,1,0,'','','By God, Antonio!\n\nI\'d like to meet that woman!\n\n:-)\n\n\nReinaldo.','',0,'gA==','izeb5a6r',1,0,'',299,0,0),(9804,2266,6,2,0,'87.218.146.160',1142899547,1,0,1,1,1,1,'','','Rafael,\n\nPorque está diseñada para usar las cajas de diálogo de 32 bits desde aplicaciones de 16 bits <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','36wcogvf',1,0,'',2,0,0),(9805,2290,3,266,0,'60.50.60.181',1142900410,1,0,1,1,1,1,'','','select(\'invoice\')   // fields: invoice,date,custcode\n\nREDEFINE BROWSE oBrw ALIAS \"invoice\"  ID 101 OF oDlg\n\noBrw:LoadFields( .T. )     // load all fields from dbf\n\noBrw:aActions:={ {|| fCol(\'1\') },{|| fCol(\'2\') },{|| fCol(\'3\') } }\n\n:\n:\n\nreturn .t.\n\n\n// Your user defined function below,\n\nfunction fCol(cX)\n\nmsginfo(\'Header Column clicked : \'+cX)\n\nselect(\'invoice\')\ndo case\ncase cX=\'1\'\n   set order to tag invoice\ncase cX=\'2\'\n  set order to tag date\ncase cX=\'3\'\n  set order to tag custcode\nendcase\noBrw:refresh()\n\nreturn .t.','',0,'gA==','1rifo8q4',1,0,'',266,0,0),(9806,2254,3,234,0,'219.76.89.107',1142904918,1,0,1,1,1,0,'','','Thank you Richard','',0,'gA==','2bh4yqrr',1,0,'',234,0,0),(9807,2254,3,239,0,'218.20.60.1',1142916138,1,0,1,1,1,0,'','','No problems\nShuming Wang\nGuangzhou, Guangdong province, China','',0,'gA==','5xq8fj47',1,0,'',239,0,0),(9808,2299,3,239,0,'218.20.60.1',1142916844,1,0,1,1,1,0,'','twbrowse/txbrowse not show tooltip','Hi, \n\n   obrow:ctooltip:=\"a test \"\n\n   Not show tooltip \n\nBest regard!\nShuming  Wang','',0,'gA==','7bnd2fmr',1,0,'',239,0,0),(9809,2298,22,54,0,'201.137.90.144',1142917751,1,0,1,1,1,1,'','Re: foro SQL','[quote=&quot;Francisco Horta&quot;:3f1rer9z]pues eso, seria bueno ir pensando en un foro para sql, creo que a muchos que nos interesa explorar mas y conocer sus virtudes, seria bueno tener algo de informacion por donde comenzar\nsalu2\nPako[/quote:3f1rer9z]\n\n\'toy de acuerdo.\n\nSolo que no les pongan marcas ni patentes, pues (según yo) se pierde el interés.','',0,'gA==','3f1rer9z',1,0,'',54,0,0),(9810,2300,3,160,0,'210.212.142.91',1142917774,1,0,1,1,1,0,'','Third party ActiveX control users','Hello All,\n\nHas anybody used third party ActiveX control with FWH application ? I need help to use the same. I need to send the control (ocx) file to private mail as it is little bigger and cannot be post here.\n\nExpecting kind co-operation,\n\nMilan.','',0,'gA==','2wknqhed',1,0,'',160,0,0),(9811,2275,6,77,0,'80.224.163.36',1142923177,1,0,1,1,1,0,'','Re: problema con verce 4.3','[quote=&quot;VeRCE&quot;:znizbxek][quote=&quot;MANOLO&quot;:znizbxek]Hola a todos estoy pasando una aplicación de fw21 16bits a fw25 harbour, y estoy compilando con verce, ya que con xmate me da muchos problemas de compilado, bien, el problema es que si en el apartado de prg de terceros introduzco los prgs de por ejemplo el twbrowse o el btnget, cuando ejecuto el programa me da errores .and. etc. errores sin numero de linea, sin embargo si estos mismos prg los pongo en el apartado de prg del programa el programa funciona perfectamente, lo mismo sucedo si en lugar de poner el prg los pongo como lib, es como si al compilar el programa esto no lo adjuntara o los adjuntara despues. despues de todo esto seria saber si a alguien le ha pasado lo mismo y como lo ha solucionado, ya que me interesa muchisimo poder poner los programas o prg externos como eso como lib de terceros o como prg de terceros.\nsaludos.\nManolo.[/quote:znizbxek]\n\nPuedes intentar creaar la libreria y luego incluirsela al VERCE en librerias de terceros.\n\nSaludos[/quote:znizbxek]\n\nHola, esto ya lo he hecho, pero sigue haciendo lo mismo, compila o linka bien las librerias, es como si antes del las librerias de fwh es cuando se debieran incluir las librerias de terceros, no le ha pasado  a nadie más esto, como podría solucionarlo.\n\nGracias anticipadas a todos.','',0,'gA==','znizbxek',1,0,'',77,0,0),(9812,2296,20,29,0,'81.174.23.133',1142929293,1,0,1,1,1,0,'','','La bitmap come puoi vedere nell\'esempio\nè molto più piccola del bottone. Non è pensabile disegnare una bitmap apposta per le dimensioni del bottone.\n\nNelle FWH di febbraio funzionava il comando CANCEL TEXTRIGHT che spostava il testo a dx e la bitmap a sx ma ora questo comando non è più operativo.\n\nMarco','',0,'gA==','3h0bfxn0',1,0,'',29,0,0),(9813,2296,20,6,0,'82.53.175.16',1142930618,1,0,1,1,1,1,'','','Allora modifica il metodo Paint(), ad esempio:\n\nnLeft = ::nWidth() - nBmpWidth( ::hBitmap ) * 1.2\n\nE poi metti degli spazi in coda al testo.\n\nAltro non mi viene in mente.\n\nEMG','',0,'gA==','rhq334k9',1,0,'',6,0,0),(9814,2295,7,498,0,'213.97.9.239',1142931760,1,0,1,1,1,1,'','','Gracias Antonio.\n\nUn Saludo.','',0,'gA==','2bgma6nb',1,0,'',498,0,0),(9815,2287,1,193,0,'195.212.29.179',1142932136,1,0,1,1,1,0,'','','Yesterday I remembered about such usefull word in xBase language as Used.  I thing it is a right word in the context of my class. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','ejg5juag',1,0,'',193,0,0),(9816,2296,20,29,0,'81.174.23.133',1142934720,1,0,1,1,1,0,'','','Grazie. provo a chiedere anche sul news inglese, \nSai per caso anche come riportare il testo di un bottone su più righe ?\nDovrei fare un bottone (normale - non un buttonbmp)\ncon il testo riportato su 2 righe tipo:\n\nEsporta\nsullo scadenzario\n\n\nQualche idea ?\n\nMarco','',0,'gA==','ztdomvh0',1,0,'',29,0,0),(9817,2301,3,29,0,'81.174.23.133',1142935270,1,0,1,1,1,0,'','Buttonbmp problems with the march release','Hello,\nI have a problem using buttonbmp with this latest fwh release.\n\nWhen I use a buttonbmp from resource the bitmap appairs centered on the button over the text.\n\nThere wasn\'t any problems with the February release when using the CANCEL TEXTRIGHT clause all runned fine.\n\nAny ideas ?\n\nThanks in advance\n\nBest Regards.\n\nMarco','',0,'gA==','83o9vfec',1,0,'',29,0,0),(9818,2296,20,6,0,'82.53.175.16',1142935719,1,0,1,1,1,1,'','','Questo è un esempio funzionante:\n\n[code:3dbwxp46]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define CR CHR&#40; 13 &#41;\n\n#define BS_MULTILINE 8192\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON oBtn PROMPT &quot;&amp;Close&quot; + CHR&#40; 13 &#41; + &quot;the dialog&quot;;\n           SIZE 50, 30;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    oBtn&#58;nStyle = NOR&#40; oBtn&#58;nStyle, BS_MULTILINE &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:3dbwxp46]\n\nEMG','',0,'AIA=','3dbwxp46',1,0,'',6,0,0),(9819,2301,3,2,0,'87.218.146.210',1142936019,1,0,1,1,1,1,'','','Marco,\n\nThe TEXTRIGHT clause is not directly supported by FWH Class TButtonBmp. Are you using Rossine\'s modified Class ?','',0,'AIA=','1g03qttn',1,0,'',2,0,0),(9820,2300,3,2,0,'87.218.146.210',1142936121,1,0,1,1,1,1,'','','Milan,\n\nPlease upload it to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and post here the download url they provide you. Thanks.','',0,'AIA=','2403q3x1',1,0,'',2,0,0),(9821,2264,1,139,0,'87.202.139.114',1142936469,1,0,1,1,1,0,'','','[code]\n//---------------------------\nFunction AGetPrinters()\n//---------------------------\nLocal aPrinters, cText, cToken := Chr(15)\n\n// Passing no second param or passing ZERO to GetProfStr()\n// grabs entire section in .ini file.  Each printer is separated by a\n// null char (Chr(0)) and a CRLF.  We just strip them out\n    cText := StrTran( StrTran( StrTran( ;\n    GetProfStr( \"Devices\", 0 ), Chr(0), cToken ), Chr(13) ), Chr(10) )\n    aPrinters := Array( Len( cText ) - Len( StrTran( cText, cToken ) ) )\n    AEval( aPrinters, {|cPrn,nEle| ;\n    aPrinters[nEle] := StrToken( cText, nEle, cToken ) } )\n\nReturn aPrinters\n\n/*\n  1 Open tdosprn.prg and change the way ::cPort is assigned in method ::New()\n  from\n    ::cPort       := cPort+iif(!\".\"$cPort,\".PRN\",\"\")\n  to\n    ::cPort        := cPort + If( ! \".\" $ cPort .and. ! \"\\\\\" $ cPort, \".PRN\", \"\" )  // considers the port can be a network route\n(\\\\computername\\sharename)\n\n2 use this function to get the path to the network printer.  IE you\'ll\nsay wfPrnShName( \"PRINTER1\" ) and it will return \\\\computername\\sharename.\n\nNote:  make sure you use Patrick Mast\'s\nTReg32 mods if you\'re not using FW 2.3:\n*/\n\n///#include \"FiveWin.ch\"\n\n//#define  HKEY_LOCAL_MACHINE      2147483650\n\n//---------------------\nfunction mainPrn( cLPT  )\n//---------------------\n#define  HKEY_LOCAL_MACHINE      2147483650\n//// msginfo( wfPrnShName(\"Epson FX-80+\") )\n//\nreturn wfPrnShName( cLPT )\n\n//--------------------------------\nFunction wfPrnShName( cModel )\n//--------------------------------\nLocal oReg, nPos, cComputer, cPrinter, cShare := \"\", cKeyName\n\nDefault cModel := StrToken( GetProfStr( \"Windows\", \"Device\", \"\" ), 1, \",\" ) // get default printer if not provided\n\nIf IsWinNT()   // for W2K,NT4,XP\n\n\n   IF cNET    //  PARAMETRE FOR Network printer       \n    cKeyName := \"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers\\\"\n    If Left( cModel, 2 ) == \"\\\\\"\n       nPos := RAt( \"\\\", cModel )\n       cComputer := SubStr( cModel, 3, nPos - 3 )\n       cPrinter  := SubStr( cModel, nPos + 1 )\n\n       oReg := TReg32():New( HKEY_LOCAL_MACHINE, ;\n          cKeyName + cComputer + \"\\Printers\\\" + cPrinter )\n       If oReg:nError == 0                        // in case the printer name doesn\'t exist\n          cShare := \"\\\\\" + cComputer + \"\\\" + ;    // create in the form of \"\\\\computername\\sharename\"\n                    StrTran( oReg:Get( \"Share Name\", \"\" ), Chr(0) )\n       Endif\n       oReg:close()\n\n    Endif\n\n   ELSE\n\n    cKeyName := \"SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers\\\"\n     oReg := TReg32():New( HKEY_LOCAL_MACHINE, cKeyName + cModel )\n    If oReg:nError == 0                           // in case the printer name doesn\'t exist\n       cPrinter := StrTran( oReg:Get( \"Port\", \"\" ), Chr(0) )\n      /// If Left( cPrinter, 2 ) == \"\\\\\"             // if it\'s not a network printer it returns \"LPT1:\" or \"LPT2:\" or whatever applies\n          cShare := cPrinter                      // this one is already in the form \"\\\\computername\\sharename\"\n      /// Endif\n    Endif\n    oReg:close()\n   ENDIF\n\n\n\nElse           // for Win9x\n    cKeyName := \"System\\CurrentControlSet\\Control\\Print\\Printers\\\"\n\n    oReg := TReg32():New( HKEY_LOCAL_MACHINE, cKeyName + cModel )\n    If oReg:nError == 0                           // in case the printer name doesn\'t exist\n       cPrinter := StrTran( oReg:Get( \"Port\", \"\" ), Chr(0) )\n      /// If Left( cPrinter, 2 ) == \"\\\\\"             // if it\'s not a network printer it returns \"LPT1:\" or \"LPT2:\" or whatever applies\n          cShare := cPrinter                      // this one is already in the form \"\\\\computername\\sharename\"\n      /// Endif\n    Endif\n    oReg:close()\n\nEndif\n\nReturn cShare\n[/quote]','',0,'','3u85bgs6',1,0,'',139,0,0),(9822,2299,3,2,0,'87.218.146.237',1142936853,1,0,1,1,1,1,'','','Shuming,\n\nWe have just tested it with FWH 2.7 march build, both with TWBrowse and TXBrowse, and it works ok.','',0,'','3ackfoc5',1,0,'',2,0,0),(9823,2293,6,124,0,'200.117.50.40',1142937893,1,0,1,1,1,0,'','','Gracias Antonio.\n\nRicardo.-','',0,'','k8zapwvy',1,0,'',124,0,0),(9824,2301,3,29,0,'81.174.23.133',1142939170,1,0,1,1,1,0,'','','I am using at this moment only the standard FWH classes \nbut with the previous FWH version I used a modified button and buttonbmp class (I don\'t know if they coming from Rossine)\n\nI made a self-cont sample that show the problem at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/sample.zip\">www.softwarexp.co.uk/beta/sample.zip</a><!-- w -->\n\nIs there any solution using the standard class ?\n\nThanks in advance\n\nBest Regards,\n\nMarco Turco','',0,'','3dgho3ut',1,0,'',29,0,0),(9825,2302,3,382,0,'194.77.253.245',1142939356,1,0,1,1,1,1,'','TwBrowse - SaveColSize - SaveColOrder - header','How can I save the size and the order of TwBrowse-columns (changed from the user) and restore it by the next call?\n\nHow to show a column-header with two or three lines - and centered?\n\nThanks','',0,'','1xoq795z',1,0,'',382,0,0),(9826,2296,20,29,0,'81.174.23.133',1142939887,1,0,1,1,1,0,'','','Ho provato ma non funziona.\nForse perché definisco il bottone da risorsa ?','',0,'','2lzs6n8w',1,0,'',29,0,0),(9827,2300,3,160,0,'210.212.142.91',1142940968,1,0,1,1,1,0,'','','Hello Antonio,\n\nThis is the link\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/3eed9f94/GSNControl.zip.html\">http://hyperupload.com/download/3eed9f9 ... l.zip.html</a><!-- m -->\n\nIt contains the activex control (demo version) along with its documentation. Any help would be highly appreciated.\n\nTIA\nMilan.','',0,'','2itsonaj',1,0,'',160,0,0),(9828,2296,20,6,0,'82.53.175.16',1142941722,1,0,1,1,1,1,'','','Così funziona:\n\n[code:2460galp]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define CR CHR&#40; 13 &#41;\n\n#define BS_MULTILINE 8192\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;TEST&quot;\n\n    REDEFINE BUTTON oBtn;\n             ID 201 OF oDlg;\n             ACTION oDlg&#58;End&#40;&#41;\n\n    oBtn&#58;SetText&#40; &quot;&amp;Close&quot; + CHR&#40; 13 &#41; + &quot;the dialog&quot; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2460galp]\n\n[code:2460galp]TEST DIALOG 184, 107, 161, 127\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nFONT 8, &quot;MS Sans Serif&quot;\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n&#123;\n CONTROL &quot;&quot;, 201, &quot;BUTTON&quot;, BS_PUSHBUTTON | BS_MULTILINE | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 10, 10, 65, 40\n&#125;[/code:2460galp]\n\nEMG','',0,'AIA=','2460galp',1,0,'',6,0,0),(9829,2301,3,2,0,'87.218.146.158',1142942932,1,0,1,1,1,1,'','','Marco,\n\nWe email you Class TButtonBmp modified to allow TEXT... clause and FiveWin.ch. Your sample works ok using TEXTRIGHT clause.','',0,'AIA=','26jqlb57',1,0,'',2,0,0),(9830,2273,3,148,0,'196.205.179.77',1142945684,1,0,1,1,1,0,'','','There is no a class called createobject .\nI tried that code with errors of non existence to createobject:\n[code:348hx9ei]\n\nFUNCTION buildexcel&#40;&#41;\n*-------------------\nlocal oExcel\nlocal oBook\nlocal oSheet\nlocal nLine&#58;=1\n\n\nselect 3\nuse mach\n\noExcel &#58;= CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41; \n\noBook &#58;= oExcel&#58;WorkBooks&#58;Add&#40;&#41; \noSheet&#58;= oBook&#58;Worksheets&#40;1&#41; \n\nnLine&#58;=1\n3-&gt;&#40;DBGOTOP&#40;&#41;&#41; \nDO WHILE !&#40;3&#41;-&gt;&#40;EOF&#40;&#41;&#41; \noSheet&#58;Cells&#40; nLine, 1 &#41;&#58;Value = &#40;3&#41;-&gt;mc_serial\noSheet&#58;Cells&#40; nLine, 2 &#41;&#58;Value = &#40;3&#41;-&gt;mc_name\nnLine&#58;=nLine+1 \n&#40;3&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41; \nENDDO \n\noExcel&#58;Visible &#58;= &#46;T&#46;\n\nreturn nil\n[/code:348hx9ei]','',0,'AIA=','348hx9ei',1,0,'',148,0,0),(9831,2300,3,2,0,'87.218.146.158',1142946292,1,0,1,1,1,1,'','','Milan,\n\nHere you have a working sample using that ActiveX. Remember you have to do a regsvr32.exe GSN.ocx to register it in your computer, before using it. Also, you may register it from your application (do a search on these forums for regsvr*)\n[code:d9chuquq]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n   local cEvents &#58;= &quot;&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;GSN&#46;GSNCtrl&#46;1&quot; &#41;\n   oActiveX&#58;nWidth = 0\n   oActiveX&#58;nHeight = 0\n\n   oActiveX&#58;bOnEvent = &#123; | event, aParams | cEvents += EventInfo&#40; event, aParams &#41; &#125;\n\n   @ 3, 3 BUTTON &quot;About&quot; ACTION oActiveX&#58;Do&#40; &quot;AboutBox&quot; &#41; SIZE 80, 25\n\n   ACTIVATE WINDOW oWnd ;\n      VALID &#40; MemoEdit&#40; cEvents &#41;, &#46;t&#46; &#41;\n\nreturn nil\n\nfunction EventInfo&#40; event, aParams &#41;\n\n   local cMsg &#58;= &quot;Event&#58; &quot; + cValToChar&#40; event &#41; + CRLF\n   local n\n   \n   cMsg += &quot;Params&#58; &quot; \n   \n   for n = 1 to Len&#40; aParams &#41;\n      cMsg += cValToChar&#40; aParams&#91; n &#93; &#41; + CRLF\n   next\n\nreturn cMsg + CRLF\n[/code:d9chuquq]','',0,'AIA=','d9chuquq',1,0,'',2,0,0),(9833,2303,6,24,0,'80.37.55.44',1142947305,1,0,1,1,1,1,'','Tree de Goran DONDE para harbour ?','Estoy buscando los trees de Goran para Fivewin Harbour, y he visto que en la nueva fw27 tenemos en samples un directorio /trees.\n\nLo fantanstico es que es imposible COMPILARLOS, porque me falta el codigo fuente en C de varias funciones.\n\n¿ Alguien tiene el codigo fuente completo ?\n\nSaludos\nRafa Carmona','',0,'AIA=','otcftn2j',1,0,'',24,0,0),(9834,2304,6,490,0,'80.24.224.89',1142947743,1,0,1,1,1,0,'','Problema color say en Folder','Hola,\n\nTengo FWH 2.7 de febrero, y tengo el siguiente problema:\n\nUn SAY en un Diálogo de un Folder , no me pinta el color de fondo, siempre me lo considera transparente.\n\n¿Que tendría que hacer para que me pinte el fondo del SAY del color que quiera? con las otras versiones lo hacía.\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','37iqj189',1,0,'',490,0,0),(9835,2305,6,106,0,'85.34.123.169',1142949529,1,0,0,1,1,1,'','append from','¿Como debería usar el append from para importar un archivo de este tipo?\n\n0023942433514|99\n87248265|33\n29401|7\n\ncon SDF sería si cada campo fuera fijo, con DELIMITED, si cada campo estuviera delimitado con \"\" o \'   \'  u otro carácter... ¿alguna idea? aparte aquella de leerlo a mano.\n\nGracias','',0,'AIA=','1tijvvnt',1,0,'',106,0,0),(9836,2266,6,75,0,'83.44.215.139',1142949724,1,0,1,1,1,0,'','','fw2.3 y xHarbour de Puerto Sur','',0,'AIA=','1dz32p32',1,0,'',75,0,0),(9837,2273,3,6,0,'82.53.175.16',1142949746,1,0,1,1,1,1,'','','[quote=&quot;Ehab Samir Aziz&quot;:enrj9c3x]There is no a class called createobject .[/quote:enrj9c3x]\n\nYou have to use xHarbour [b:enrj9c3x]or[/b:enrj9c3x] link hbole.lib.\n\nEMG','',0,'wA==','enrj9c3x',1,0,'',6,0,0),(9838,2191,3,190,0,'202.65.134.45',1142950012,1,0,1,1,1,0,'','','Hi Ehab\n\nThis is the working sample for your prblem.\n\n******\n\n#include \"FiveWin.ch\"\n#include \"ads.ch\"\n\nFUNCTION main()\n\nREQUEST _ADS\nrddRegister( \"ADS\", 1 )\nrddsetdefault( \"ADS\" )\nAdsSetDeleted(.T.)\nSET SERVER LOCAL\nSET FILETYPE TO CDX\n\n\nselect 4 \nUSE METE \n\nx := \"\'9855564\'\"    \n\ncFilter := \"me_serial = \"+ x\n\nbFilter = \"{||\"+cFilter+\"}\" \n\nDBSETFILTER(&amp;bFilter,cFilter) \nDBGOTOP() \n\nBROWSE()\n\nRETURN nil\n\n**********\n\nNote the use of  single quotes within Double quotes of x value assignment.\nElse the value of `x\' is converted as  as a number in macro evaluation i.e.\n&amp;bFilter and generates a run time error,  bacuase of two different data types comparision in filter condition.\n\n\nRegards,\n\n- Ramesh Babu P','',0,'wA==','1lqj2su9',1,0,'',190,0,0),(9839,2301,3,29,0,'81.174.23.133',1142950381,1,0,1,1,1,0,'','','Great !! It runs fine.\nMany thanks for the support.\n\nBest Regards,\n\nMarco Turco','',0,'wA==','3nca31c3',1,0,'',29,0,0),(9840,2306,3,137,0,'151.38.8.195',1142950422,1,0,1,1,1,0,'','The best compiler: bcc vs msvc','What\'s the best compiler for [x]Harbour and FWH?\n\nNow I use bcc without problems, but I\'m wondering if msvc give me more performances and more activex compatibility.\n\nThx','',0,'','263nsste',1,0,'',137,0,0),(9841,2303,6,46,0,'195.8.11.206',1142950530,1,0,1,1,1,0,'','','Dame un toque','',0,'','ol6ahlou',1,0,'',46,0,0),(9842,2305,6,106,0,'85.34.123.169',1142951559,1,0,0,1,1,1,'','','Ya resuelto a mano...\n\nDbCreate( zcDBF,  { ;\n                          { \"TUTTO\",     \"C\", 50, 0}, ;   // tutti i campi\n                          { \"C_BAR\",     \"C\", 13, 0}, ;   // Codice a barre\n                          { \"C_QTA\",     \"C\", 05, 0} ;   // Qta\n                          })\n\nselect 0\nuse (zcDBF) exclusive alias tmp_import\n\nappend from (fileName) SDF\n\ntmp_import-&gt;( DBEVAL( {|| ( tmp_import-&gt;c_bar := SUBSTR( tmp_import-&gt;tutto, 1, AT( \"|\", tmp_import-&gt;tutto ) - 1 ), tmp_import-&gt;c_qta := SUBSTR( tmp_import-&gt;tutto, AT( \"|\", tmp_import-&gt;tutto ) + 1 ) ) } ) )','',0,'','16nkftkp',1,0,'',106,0,0),(9843,1732,6,75,0,'83.44.215.139',1142951664,1,0,1,1,1,0,'','','Pero al aplicarlo da el siguiente error:\nunresolved external \'_hb_stack\'  referenced from FIVEHC.LIB ffwndrun','',0,'','1lekfs0p',1,0,'',75,0,0),(9844,2300,3,160,0,'210.212.142.91',1142954408,1,0,1,1,1,0,'','','Dear Antonio,\n\nGreattttt ! Now I am lot more hopeful about the possibilities.\n\nBut in the working sample of yours I get following error. Mine is Nov-2005 buid of FWH.\n\n   Error description: Error BASE/1005  Message not found: TACTIVEX&#058;_BONEVENT\n\nStack Calls\n===========\n   Called from:  =&gt; TACTIVEX&#058;ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TACTIVEX&#058;MSGNOTFOUND(0)\n   Called from: ACTIVEX.PRG =&gt; TACTIVEX&#058;_BONEVENT(167)\n   Called from: R.PRG =&gt; MAIN(14)\n\nEagerly awaiting your reply.\n\nMilan.','',0,'','3ue6wyvh',1,0,'',160,0,0),(9845,2301,3,105,0,'200.72.140.34',1142955698,1,0,1,1,1,1,'','','Antonio\n\nFwh 2.5 Users can use this modified TbtnBmp class or just the ones with 2.7\n\nIf so, can you send it to me or post it here...\n\nAllthoug I have Rossines Modificactions, I tried just to use formal Clases ( not 3º party ones )\n\nThanks in advance.','',0,'','7z62zf0f',1,0,'',105,0,0),(9846,1732,6,237,0,'200.68.70.89',1142955912,1,0,1,1,1,0,'','A mi tambien me da el mismo error','Error: Unresolved external \'_hb_stack\' referenced from D:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\n\nTengo fw2.3, tiene solución???\n\nAyuda!!!!','',0,'','2urtzjod',1,0,'',237,0,0),(9847,2300,3,247,0,'87.202.107.132',1142956268,1,0,1,1,1,0,'','','Event supporting is included at March 2006 release \n\n[quote=&quot;Milan Mehta&quot;:1inyi30m]Dear Antonio,\n\nGreattttt ! Now I am lot more hopeful about the possibilities.\n\nBut in the working sample of yours I get following error. Mine is Nov-2005 buid of FWH.\n\n   Error description: Error BASE/1005  Message not found: TACTIVEX&#058;_BONEVENT\n\nStack Calls\n===========\n   Called from:  =&gt; TACTIVEX&#058;ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TACTIVEX&#058;MSGNOTFOUND(0)\n   Called from: ACTIVEX.PRG =&gt; TACTIVEX&#058;_BONEVENT(167)\n   Called from: R.PRG =&gt; MAIN(14)\n\nEagerly awaiting your reply.\n\nMilan.[/quote:1inyi30m]','',0,'gA==','1inyi30m',1,0,'',247,0,0),(9848,1732,6,77,0,'217.126.90.142',1142957165,1,0,1,1,1,0,'','Re: A mi tambien me da el mismo error','[quote=&quot;TecniSoftware&quot;:1kgqkeo9]Error: Unresolved external \'_hb_stack\' referenced from D:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\n\nTengo fw2.3, tiene solución???\n\nAyuda!!!![/quote:1kgqkeo9]\n\n\nHola creo que esto se soluciona introduciendo lo siguiente en tu prg\n\n\n#pragma BEGINDUMP \n\n#include &lt;hbapi.h&gt; \n\nvoid * hb_stack( void ) \n{ \n   return &amp;HB_VM_STACK; \n} \n\n#pragma EDNDUMP \n\nesto  lo he sacado de una respuesta anterior de antonio, espero te ayude.\n\nsaludos.\nManolo','',0,'gA==','1kgqkeo9',1,0,'',77,0,0),(9849,2300,3,2,0,'87.218.146.2',1142960369,1,0,1,1,1,1,'','','Milan,\n\nWith the FWH that you are using, please comment this line:\n\n// oActiveX&#058;bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }','',0,'gA==','6undid2c',1,0,'',2,0,0),(9850,2306,3,2,0,'87.218.146.2',1142960494,1,0,1,1,1,1,'','','Roberto,\n\nBoth compilers work ok. The only advantage for Microsoft one is that if you plan to develop for Pocket PC then there is no Borland for Pocket PC, neither a Borland for 64 bits.','',0,'gA==','2l5tpua0',1,0,'',2,0,0),(9851,2301,3,2,0,'87.218.146.2',1142960681,1,0,1,1,1,1,'','','Adolfo,\n\nWe have implemented the same command extension as Rossine, though the class just uses one bitmap. Anyhow, you can use Rossine\'s one as it is compatible with FWH.','',0,'gA==','p892gpl6',1,0,'',2,0,0),(9852,2273,3,148,0,'196.205.179.77',1142962194,1,0,1,1,1,0,'','','Can you help me of code that helps me to Extract DBF fields values to Excel sheet ?','',0,'gA==','3swkxrmn',1,0,'',148,0,0),(9853,2273,3,6,0,'82.53.175.16',1142962358,1,0,1,1,1,1,'','','Betoncu sample is fine.\n\nEMG','',0,'gA==','gzbkzig8',1,0,'',6,0,0),(9854,2281,6,212,0,'200.125.11.251',1142962372,1,0,1,1,1,0,'','Gracias Antonio','Gracias Antonio, lo voy a probar.','',0,'gA==','370viqmi',1,0,'',212,0,0),(9855,1732,6,2,0,'87.218.146.2',1142963344,1,0,1,1,1,1,'','','Posiblemente esto sea lo correcto:\n\n#pragma BEGINDUMP \n\n#include &lt;hbapi.h&gt; \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\n#pragma EDNDUMP','',0,'gA==','xmz4i6jw',1,0,'',2,0,0),(9856,2191,3,148,0,'196.205.179.77',1142963576,1,0,1,1,1,0,'','','it is work fine with your example but with footer function it is not \n[code:ae0uq3tj]\nSTATIC FUNCTION Footers&#40; oWnd &#41;\n*--------------------------\n   local oChild, oBrw\n   local nFor\n   local bFilter &#58;= &quot;&quot;\n   local cFilter &#58;= &quot;&quot;\n   local x &#58;= &quot;&quot;\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\nselect 4 \nUSE METE \n\nx &#58;= &quot;\'9855564\'&quot; \n\ncFilter &#58;= &quot;me_serial = &quot;+ x \n\nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot; \n\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41; \nDBGOTOP&#40;&#41; \n\n\n\n\n   DEFINE WINDOW oChild FROM 4, 4 TO 25, 75 ;\n   TITLE &quot;Meter Works&quot; \n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oChild &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 2\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n   if nFor=20\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= &quot;Field&#58; &quot; + ltrim&#40; str&#40; nFor &#41; &#41; + CRLF + FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bRClickHeader &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Right click on column header &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bLClickFooter &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Left click on column footer &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bRClickFooter &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Right click on column footer &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;blDClickData  &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Left double click on column data &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bRClickData   &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Right click on column data &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n   next\n\n\n\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild MAXIMIZED ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n[/code:ae0uq3tj]','',0,'AIA=','ae0uq3tj',1,0,'',148,0,0),(9857,2303,6,24,0,'83.35.44.228',1142963583,1,0,1,1,1,1,'','RE:TOC','[quote=&quot;RenOmaS&quot;:3bucg0fr]Dame un toque[/quote:3bucg0fr]\n\nTOC TOC TOC\n\nLo necesito..urgente.. no entiendo como no esta ya en Fivewin...\n\nSaludos','',0,'gA==','3bucg0fr',1,0,'',24,0,0),(9858,2307,3,148,0,'196.205.179.77',1142964047,1,0,1,1,1,0,'','Browse command','Can I edit the browse command method so I can add fields or footer OR footer only enable with txbrowse class ?','',0,'gA==','105x743v',1,0,'',148,0,0),(9859,2308,6,490,0,'80.24.224.89',1142964256,1,0,1,1,1,0,'','Problema con Bitmaps y RC','Hola,\n\nEstamos intentando pasar una aplicación completa de 16 a 32bits y hemos usado un fichero .RC para todos los bitmaps, de tal manera que compilandolo con el Borland Brc32.exe -r queden todos incrustados en el exe resultante.\n\nEl problema se ha planteado cuando ha llegado un momento en que parece ser que el Borland se quedaba corto y nos da el siguiente error de linkado:\n\nComenzando la compilación... \nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Access violation.  Link terminated.\n\n¿Que podemos hacer? ¿es problema del Brc32.exe? ¿podemos usar otro? \n¿ A que es debido este problema? porque realmente no lo tenemos muy claro.\n\nUn Saludo,\nJoaquín','',0,'gA==','1wac27gk',1,0,'',490,0,0),(9860,1732,6,237,0,'200.68.70.89',1142964271,1,0,1,1,1,0,'','No me está funcionando','Puse esas lineas de código en mi prg principal:\n\nPrimero las puse afuera de mi funcion inicial Main() y luego probé ponerlas dentro y sigue sin funcionar, cuando compilo me vuelve a tirar que \nno encuentra hb_Stack.\nQue es lo que estoy haciento mal?\n\nAyuda!!! 2.0','',0,'gA==','1bwa988i',1,0,'',237,0,0),(9861,2309,6,63,0,'80.37.102.128',1142964884,1,0,1,1,1,0,'','Capturar la ventana de encima de todo','Si tengo varias aplicaciones abiertas (Word, Excel, Explorer, etc), ¿alguien podría decirme cómo obtener el handle a la de encima de todo? ¿Y a la segunda (o sea, la que esté justo por debajo de ésa?\nGracias','',0,'gA==','3hpfcsjm',1,0,'',63,0,0),(9862,2242,6,228,0,'201.245.222.85',1142965242,1,0,1,1,1,1,'','Gracias Timm','Thanks Timm. Ok  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPero... Tengo otra preguntica.\n\nComo hago para colocar un tamaño de hoja personalizado?','',0,'gA==','pjoizlv6',1,0,'',228,0,0),(9863,1732,6,77,0,'217.126.90.142',1142965923,1,0,1,1,1,0,'','Re: No me está funcionando','[quote=&quot;TecniSoftware&quot;:4x3y8ntb]Puse esas lineas de código en mi prg principal:\n\nPrimero las puse afuera de mi funcion inicial Main() y luego probé ponerlas dentro y sigue sin funcionar, cuando compilo me vuelve a tirar que \nno encuentra hb_Stack.\nQue es lo que estoy haciento mal?\n\nAyuda!!! 2.0[/quote:4x3y8ntb]\n\nHola, yo lo he solucionado de la siguiente manera:\n\nen codigo que te ha enviado antonio cambia el:\n\n\n#include &lt;hbapi.h&gt; por\n\n#include &lt;hbstack.h&gt;\n\nEn principio deberia funcionar.\n\nSaludos.\nManolo.','',0,'gA==','4x3y8ntb',1,0,'',77,0,0),(9864,2304,6,54,0,'201.137.90.144',1142966687,1,0,1,1,1,1,'','Re: Problema color say en Folder','[quote=&quot;jmartial&quot;:2rn5kmwf]Hola,\n\nTengo FWH 2.7 de febrero, y tengo el siguiente problema:\n\nUn SAY en un Diálogo de un Folder , no me pinta el color de fondo, siempre me lo considera transparente.\n\n¿Que tendría que hacer para que me pinte el fondo del SAY del color que quiera? con las otras versiones lo hacía.\n\n\nUn Saludo,\nJoaquín[/quote:2rn5kmwf]\n\nREDEFINE SAY oSay OF oDlg\noSay:lTransparent := .f.\n\nPD. Es al aire, ojalá te funcione.','',0,'gA==','2rn5kmwf',1,0,'',54,0,0),(9865,2304,6,490,0,'80.24.224.89',1142967433,1,0,1,1,1,0,'','','Antonio,\n\nNo ha habido suerte <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\n¡¡Siempre lo pone transparente!!\n\nHe probado incluso SetColor() y Refresh(), pero no hay manera\n\n\nUn Saludo,\nJoaquín','',0,'gA==','6tqrdai7',1,0,'',490,0,0),(9866,2310,3,34,0,'68.4.154.81',1142969195,1,0,1,1,1,1,'','ADS Connections  - Your experience is appreciated','This is not a trouble report for xHarbour ... but I know many ADS users are here and I would appreciate your input.  I have gone direct to ADS on this but may not get a response for awhile.\n\nMy application uses    AdsSetServerType( 7 ) which will automatically determine if a connection to a Client Server is available, and then connect properly.  Everything works fine on a local network.\n\nNow, here is the problem, and I\'m hoping some of you with ADS experience will provide guidance.  We are trying to bring up a client who has two sites connected via a Dedicated T line.  According to them, the remote site computers appear to the server as if they were connected in the main building, and the two cisco routers make the connection essentially transparent.  However, when those machines start our Client program, they show a \"Local Server\" connection, and are not seen by the Advantage Server.\n\nShould we be able to connect in this way ?  Any thoughts on how we can get over this hurdle ?\n\nThanks ... your input is always appreciated.\n\nTim   <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','2qbimob5',1,0,'',34,0,0),(9867,2303,6,46,0,'195.8.27.121',1142969586,1,0,1,1,1,0,'','','te lo mande por el hotmail\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'gA==','3q3zp0xz',1,0,'',46,0,0),(9868,2311,7,274,0,'201.43.241.202',1142970100,1,0,1,1,1,0,'','make file para hbmake com fwppc','Olá\n\nAlguem teria um exemplo de arquivo make para uso do hbmake com fwppc?\n\nJá tentei criar um a partir do zero mas surgem diversos erros na compilação.\n\n[]\'s\n\nRogerio','',0,'','7eb0wd05',1,0,'',274,0,0),(9869,1732,6,2,0,'87.218.146.2',1142970374,1,0,1,1,1,1,'','','Manolo,\n\nCierto, ha sido un despiste por mi parte.\n\nTe ha funcionado bien ?','',0,'','2kfv08kk',1,0,'',2,0,0),(9870,2309,6,63,0,'80.37.102.128',1142970675,1,0,1,1,1,0,'','','Resuelto:  Este código presenta las ventanas abiertas empezando por la de más arriba...\n[code:2ri82lzc]\nhWnd &#58;= GETWINDOW&#40;GETDESKTOPWINDOW&#40;&#41;, GW_CHILD&#41;\nDO WHILE hWnd &gt; 0\n   // Para eliminar ventanas ocultas o de sistema\n   nT &#58;= WndTop&#40;hWnd&#41;  ; nT &#58;= IIF&#40;nT == NIL, 0, nT&#41;\n   nL &#58;= WndLeft&#40;hWnd&#41;  ; nL &#58;= IIF&#40;nL == NIL, 0, nL&#41;\n   nW &#58;= WndWidth&#40;hWnd&#41;\n   nH &#58;= WndHeight&#40;hWnd&#41;\n   cText &#58;= GetWindowText&#40;hWnd&#41;\n   IF nT &gt; 0 &#46;AND&#46; nL &gt;0 &#46;AND&#46; nW &gt; 0 &#46;AND&#46; nH &gt; 0 &#46;AND&#46; !EMPTY&#40;cText&#41; &#46;AND&#46; IsWindowVisible&#40;hWnd&#41;\n      ? cText\n   ENDIF\n   hWnd &#58;= GETWINDOW&#40;hWnd, GW_HWNDNEXT&#41;\nENDDO\n[/code:2ri82lzc]\n\nRafael','',0,'AIA=','2ri82lzc',1,0,'',63,0,0),(9871,2312,3,137,0,'151.38.8.195',1142970748,1,0,1,1,1,0,'','Does someone know what\'s happened to CanalFive?','As subject.\n\nThx','',0,'AIA=','2rv2gv1j',1,0,'',137,0,0),(9872,2311,7,2,0,'87.218.146.70',1142971675,1,0,1,1,1,1,'','','Rogerio,\n\nAqui tienes un ejemplo funcionando de make para Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/eb016d22/fwcemake.zip.html\">http://hyperupload.com/download/eb016d2 ... e.zip.html</a><!-- m -->','',0,'AIA=','1hzc7vni',1,0,'',2,0,0),(9873,1732,6,237,0,'200.68.70.89',1142971861,1,0,1,1,1,0,'','No logro solucionarlo','Empecemos:\n\nLa version que tengo es fwh marzo 2002\nUso xharbour el que actualizo desde el cvs\n\nProbé poniendo:\n\n#pragma BEGINDUMP\n\n#include \"hbstack.h\" \n#include \"hbapiitm.h\"\n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\nreturn pDynSym-&gt;pSymbol;\n}\n\n#pragma ENDDUMP\n\nantes del Main() de mi prg principal y dentro de él y sigue apareciendo el error de hb_stack\n\nestoy en un pantano y no logro salir...\n\nGracias por adelantado!','',0,'AIA=','1m15wsne',1,0,'',237,0,0),(9874,2313,7,2,0,'87.218.146.70',1142971913,1,0,1,1,1,1,'','Ejemplo de make para FWPPC','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/eb016d22/fwcemake.zip.html\">http://hyperupload.com/download/eb016d2 ... e.zip.html</a><!-- m -->','',0,'AIA=','15xfcrpv',1,0,'',2,0,0),(9875,2314,4,2,0,'87.218.146.70',1142971962,1,0,1,1,1,1,'','Microsoft make sample for FWPPC','<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/?get=R9YXVXKM\">http://www.uploading.com/?get=R9YXVXKM</a><!-- m -->','',0,'AIA=','1fkvymkf',1,0,'',2,0,0),(9876,2315,6,294,0,'190.48.8.146',1142972069,1,0,1,1,1,0,'','Error de Corrupcion','Estimados foristas:\nRecien instalo el FWH y estoy tratando de pasar un programa que tenia hecho en FW con clipper (que funcionaba bien) y cuando va a abrir un archivo me da error de corrupcion. Igualmente me da el error cuando pruebo con el ejemplo de TESTBRW2.PRG contenido en SAMPLES.\nEl error me lo da cuando quiero abrir el archivo con USE DATOS SHARED\nAlguien sabe que puede ser?\nDesde ya muchas gracias.\nCesar','',0,'AIA=','lkxxizz8',1,0,'',294,0,0),(9877,1732,6,2,0,'87.218.146.70',1142972080,1,0,1,1,1,1,'','','Tienes que usar este código:\n[code:3mcf78et]\n#pragma BEGINDUMP \n\n#include &quot;hbstack&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP \n[/code:3mcf78et]','',0,'AIA=','3mcf78et',1,0,'',2,0,0),(9878,2308,6,2,0,'87.218.146.70',1142972391,1,0,1,1,1,1,'','','Joaquín,\n\nSí, es un problema del brc32.exe que se presenta a veces con RCs grandes.\n\nUna solución sería buscar una versión más actualizada del brc32.exe. \n\nOtra opción es usar el compilador de recursos de Microsoft en vez del de Borland.','',0,'AIA=','3gfuitob',1,0,'',2,0,0),(9879,2313,7,28,0,'87.218.47.144',1142972473,1,0,1,1,1,0,'','','no parece que contenga nada\n\nUn saludo','',0,'AIA=','svtph8yb',1,0,'',28,0,0),(9880,2315,6,2,0,'87.218.146.70',1142972476,1,0,1,1,1,1,'','','César,\n\nEstas usando harbour ó xharbour ? Estás usando el build que nosotros distribuimos ?','',0,'AIA=','3pp0vvuc',1,0,'',2,0,0),(9881,2304,6,2,0,'87.218.146.70',1142972571,1,0,1,1,1,1,'','','Joaquín,\n\nEstás usando temas de XP ?','',0,'AIA=','1x42z3r1',1,0,'',2,0,0),(9882,2316,17,54,0,'201.137.90.144',1142972573,1,0,1,1,1,1,'','URLLink','Antonio,\n\nSe podría integrar la clase tActivex en lugar del shellexecute a la clase URLLink?','',0,'AIA=','273ez4o3',1,0,'',54,0,0),(9883,2317,6,445,0,'200.220.156.234',1142972804,1,0,1,1,1,0,'','FileXLS e TWord for xHarbour','Olá grupo,\n\nEm Clipper+Fw eu uso essas classes,\nAlguém sabe se existe versão compatível com xHarbour+Fw ?\nOu se existe alguma classe que substitua ?\n\nSaludos,\n\nEdnaldo','',0,'AIA=','6i0qg7eu',1,0,'',445,0,0),(9884,2312,3,2,0,'87.218.146.70',1142972870,1,0,1,1,1,1,'','','Roberto,\n\nYou may email Paco Garcia from CanalFive at <!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->','',0,'AIA=','9v05pry7',1,0,'',2,0,0),(9885,2315,6,294,0,'190.48.8.146',1142972956,1,0,1,1,1,0,'','','Estoy usando HARBOUR y el BUILDH.BAT lo modifique para que linkee todos los OBJS que participan del programa.\nEl .DBF lo cree con el DBU.EXE de CLIPPER 5, no se si eso tiene algo que ver...','',0,'AIA=','1s6xql2y',1,0,'',294,0,0),(9887,2313,7,2,0,'87.218.146.70',1142973109,1,0,1,1,1,1,'','','Ahora parece que sí <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/eb016d56/fwcemake.zip.html\">http://hyperupload.com/download/eb016d5 ... e.zip.html</a><!-- m -->','',0,'AIA=','3r2r6dxj',1,0,'',2,0,0),(9888,2315,6,2,0,'87.218.146.70',1142973301,1,0,1,1,1,1,'','','Es el harbour que nosotros distribuimos con FWH ?\n\nDe que fecha es harbour.exe ?','',0,'AIA=','2szf8hct',1,0,'',2,0,0),(9889,2315,6,294,0,'190.48.8.146',1142973393,1,0,1,1,1,0,'','','El harbour es el que vaje la semana pasada. Version 45.0','',0,'AIA=','16grt0vh',1,1142973606,'',294,1,0),(9890,2316,17,2,0,'87.218.146.70',1142973404,1,0,1,1,1,1,'','','William,\n\nURLink es un control ActiveX ?','',0,'AIA=','q9dp7p1v',1,0,'',2,0,0),(9891,2315,6,2,0,'87.218.146.70',1142973513,1,0,1,1,1,1,'','','Cesar,\n\nAcabamos de probar samples\\TestBrw2.prg y funciona perfectamente, sin ningún problema.\n\nPrueba a construirlo haciendo samples\\buildh.bat TestBrw2\n\nDebería construirse y funcionar sin problemas.','',0,'AIA=','1q82odmr',1,0,'',2,0,0),(9892,2315,6,294,0,'190.48.8.146',1142974083,1,0,1,1,1,0,'','','Antonio:\nHice lo que me indicas, pero cuando se ejecuta me da el error de CORRUPTION DETECTED: CLIENTES.DBF.  Que es el mismo error que me da en el programa mio...','',0,'AIA=','2wpdkw6s',1,0,'',294,0,0),(9893,2318,6,196,0,'201.250.125.191',1142974607,1,0,1,1,1,0,'','OT. Instalador','Alguien me podra recomendar algun instalador en castellano, en lo posible gratuito?\n\nDesde ya muchas gracias\n\nJorge Jaurena','',0,'AIA=','8c8sizly',1,0,'',196,0,0),(9894,2312,3,137,0,'151.51.254.198',1142974705,1,0,1,1,1,0,'','','Thx Antonio, but <!-- w --><a class=\"postlink\" href=\"http://www.canalfive.com\">www.canalfive.com</a><!-- w --> no more exists <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','ocxur5bu',1,0,'',137,0,0),(9895,2317,6,439,0,'201.221.41.253',1142975355,1,0,1,1,1,0,'','Re: FileXLS e TWord for xHarbour','[quote=&quot;ednaldo rolim&quot;:3ool929b]Olá grupo,\n\nEm Clipper+Fw eu uso essas classes,\nAlguém sabe se existe versão compatível com xHarbour+Fw ?\nOu se existe alguma classe que substitua ?\n\nSaludos,\n\nEdnaldo[/quote:3ool929b]\n\nRF menciona en su artículo \"Crónica de una migración exitosa\" haber podido obtener el código de FileXLS y estar utilizándolo con xHarbour, te deseo suerte, yo no he tenido mucha para obtener los fuentes, si lo logras, agradeceré me los envíes a <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->.','',0,'gA==','3ool929b',1,0,'',439,0,0),(9896,2273,3,148,0,'196.205.179.77',1142975782,1,0,1,1,1,0,'','','I reviewd the example of fw It works fine . Can any body send to my private mail the FWH program for Excel sheet builder ?','',0,'gA==','3ifuykeh',1,0,'',148,0,0),(9897,2308,6,490,0,'80.24.224.89',1142975798,1,0,1,1,1,0,'','','Un Brc32.exe más actualizado no sé donde buscarlo y he intentado usar el poRC.exe de Pelles C con mi RC con la siguiente estructura:\n\nsky BITMAP \".\\BMP\\BackGrnd.bmp\"\n.....\n\nY me da los siguientes mensajes:\n\nPORC: C:\\xDomi\\RcPant\\RCBMP.rc(16): error: El nombre de archivo, directorio o etiqueta del volumen no es v lido.\n\n\n¿Alguien sabría como definir los Path donde están los bitmaps para que no de esos errores?\n\nUn Saludo y gracias,\nJoaquín','',0,'gA==','1obq5ha0',1,0,'',490,0,0),(9898,2313,7,274,0,'201.43.241.202',1142976654,1,0,1,1,1,0,'','','Antonio\n\nem ambos os casos, a resposta é a mesma:\n\nFile: fwcemake.zip\nFile size: 0Kb\nDescription: not available\n\n\n[]\'s\n\nRogerio','',0,'','5g78gzor',1,0,'',274,0,0),(9899,2319,6,61,0,'201.217.162.250',1142977634,1,0,1,1,1,0,'','Borland?, Microsoft? compiladores para Harbour','Amigos:\n\nTratando de buscar una mejor opcion para mis programas en FWH y Harbour\nnecesito me guien en la eleccion.\n\nBorland BCC 5.5 Gratuito, este me funciona Ok.\nOtro de Borland mas nuevo ... Cual sería?\n\n\nMicrosoft Visial C++ \nQue cambio debo hacer a mi programa para compilar\ncon Visual C++.\n\n\nSaludos y gracias.\n\nRuben Fernandez','',0,'','1rfu3x7e',1,0,'',61,0,0),(9900,2228,2,439,0,'201.221.42.252',1142979534,1,0,1,1,1,0,'','Novedades de James Bott?','Antonio, \nHas tenido novedades sobre el tema DbCombo?\n\nCito:\n\"Cuando abro la lista del DBCombo, anda perfecto, no obstante cuando no está abierta la lista y empiezo a escribir un nombre que coincide con uno de la lista, lo busca perfectamente, pero hace un molesto ruidito. \nEsto me sucede con Harbour y xHarbour con FWH 2.7 bajados 10/03/2006, Windows XP SP2\"\n\nAgradecería cualquier novedad....\n\nUn abrazo','',0,'','kkhmroqx',1,0,'',439,0,0),(9901,2318,6,168,0,'201.248.22.29',1142984123,1,0,1,1,1,0,'','','Usa InnoSetup','',0,'','18d7latk',1,0,'',168,0,0),(9902,2313,7,2,0,'87.218.146.70',1142984492,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/?get=R9YXVXKM\">http://www.uploading.com/?get=R9YXVXKM</a><!-- m -->','',0,'','apj5bqop',1,0,'',2,0,0),(9903,2304,6,490,0,'80.102.52.16',1142986782,1,0,1,1,1,0,'','','Antonio,\n\nSí, estoy usando temas XP.\n\nUn Saludo,\nJoaquín','',0,'','10wkzkc2',1,0,'',490,0,0),(9904,2308,6,490,0,'80.102.21.128',1142987384,1,0,1,1,1,0,'','','Antonio,\n\nProbando por partes, he visto que el .RES se crea perfectamente e incluso se puede abrir con el Pelles C.\n\nLuego uso el ilink32 de Borland para linkar, obj´s , librerías y .res poniendo el -w para que muestre los warnings y este es el resultado:\n\nComenzando la compilación... \nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nWarning: Public symbol \'_HB_FUN_FSIZE\' defined in both module C:\\XDOMI\\OBJ\\DOMIFUNC.OBJ and C:\\LOCAL\\FWHAL\\LIB\\FIVEHX.LIB|FILENAME\nWarning: Public symbol \'_HB_FUN_GETPRINTERS\' defined in both module C:\\XDOMI\\OBJ\\INFORMES.OBJ and C:\\LOCAL\\FWHAL\\XHARBOUR\\LIB\\RTL.LIB|tprinter\nWarning: Public symbol \'_HB_FUN_GETTREEBMPS\' defined in both module C:\\XDOMI\\OBJ\\PROTMENU.OBJ and C:\\LOCAL\\FWHAL\\LIB\\FIVEHX.LIB|TREEITEM\nWarning: Public symbol \'_HB_FUN_LOADLIB32\' defined in both module C:\\LOCAL\\FWHAL\\LIB\\FIVEHX.LIB|HARBOUR and C:\\LOCAL\\FWHAL\\LIB\\FIVEHC.LIB|CALDLL32\nWarning: Public symbol \'_HB_FUN_FREELIB32\' defined in both module C:\\LOCAL\\FWHAL\\LIB\\FIVEHX.LIB|HARBOUR and C:\\LOCAL\\FWHAL\\LIB\\FIVEHC.LIB|CALDLL32\nWarning: Public symbol \'_HB_FUN_LFN2SFN\' defined in both module C:\\LOCAL\\FWHAL\\LIB\\FIVEHX.LIB|LONGNAM2 and C:\\LOCAL\\FWHAL\\LIB\\FIVEHC.LIB|FILES\nWarning: Public symbol \'_hb_hInstance\' defined in both module C:\\LOCAL\\FWHAL\\LIB\\FIVEHC.LIB|INSTANCE and C:\\LOCAL\\FWHAL\\XHARBOUR\\LIB\\VM.LIB|cmdarg\nFatal: Access violation.  Link terminated.\n\n\n¿Que significa? ¿ Y se puede solucionar ? porque estoy atascado en incrustar el .rc en el exe y parece imposible.\n\nDecir que es un .Res de 1.7 mb y unos 100 bitmaps, por lo que creo que no es excesivamente grande.\n\n\nUn Saludo,\nJoaquín','',0,'','1l1t84gg',1,0,'',490,0,0),(9905,2313,7,274,0,'201.43.241.202',1142988507,1,0,1,1,1,0,'','','Ok, Antonio\n\nobrigado pela prontidão.\n\n[]\'s\n\nRogerio','',0,'','3dwafy2e',1,0,'',274,0,0),(9906,2316,17,54,0,'201.137.90.144',1142991280,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:25i44f2e]William,\n\nURLink es un control ActiveX ?[/quote:25i44f2e]\n\nEstimado Antonio,\n\nLa clase URLLink es nativa de FWH y a lo que me refiero es al método\n\n[code:25i44f2e]METHOD LButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TURLLink\n       LOCAL oActivex,oWnd\n\n       &#58;&#58;nClrInit &#58;= &#58;&#58;nClrVisit\n\n       DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n              oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n              oWnd&#58;oClient = oActiveX // To fill the entire window surface\n              oActiveX&#58;Do&#40; &quot;Navigate&quot;, &#58;&#58;cURL &#41;\n       ACTIVATE WINDOW oWnd\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:25i44f2e]\n\nAhi estoy agregando ya el activex para desplegar via navegador y dentro de una window y no en el navergador por default que tenga instalado windows.\n\nA eso me refiero, espero haberme explicado','',0,'gIA=','25i44f2e',1,0,'',54,0,0),(9907,2320,6,439,0,'201.221.41.130',1143001118,1,0,1,1,1,0,'','Ícono asociado a las aplicaciones','Mi pregunta tal vez sea tonta, pero no se como hacerlo.\n\n¿Cómo se asocia un ícono al exe de una aplicación, de manera que al ver el directorio de esa aplicación el exe aparezca representado con ese ícono?','',0,'gIA=','skxp123c',1,0,'',439,0,0),(9908,2300,3,160,0,'210.212.142.91',1143001632,1,0,1,1,1,0,'','','Dear Antonio,\n\nOk. What are the advantages of Mar-2006 release as regards ActiveX control ? Will it be beneficial to me t buy that one ?\n\nTIA\nMilan.','',0,'gIA=','20qggc3x',1,0,'',160,0,0),(9909,2310,3,32,0,'198.54.202.226',1143007579,1,0,1,1,1,0,'','ADS Remote connect','Hi,\n\nYou might try to do SetServerType(ADS_REMOTE_SERVER), or AdsSetServerType(2), which will only connect to remote servers.\n\nIf that fails, the broadcast packets are most probably getting lost. In that case, look at the ads.ini settings like our server over here. and configure your remote server to listen on a specific port in its configuration file.\n\n[drives]\nz:=\\\\qlinux\\sys\n\n[qlinux]\nlan_ip=10.1.1.50\nlan_port=2001\n\nAlex','',0,'','12kffmzg',1,0,'',32,0,0),(9910,2299,3,239,0,'218.20.60.1',1143010611,1,0,1,1,1,0,'','','Antonio,\n  Oh!  I use fwh 2.5, it\'s  too old.I will conside to upgrade .\nThanks !\n\nShuming Wang','',0,'','1r1uy9mt',1,0,'',239,0,0),(9911,2316,17,2,0,'87.218.146.70',1143014878,1,0,1,1,1,1,'','','William,\n\nEntendido. Gracias por la explicación <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','60h0647d',1,0,'',2,0,0),(9912,2319,6,2,0,'87.218.146.70',1143015052,1,0,1,1,1,1,'','','Ruben,\n\nExiste una versión más reciente de Borland, aunque no sabría decirte exactamente donde lo leí. Nosotros seguimos usando la 5.5\n\nRespecto a Microsoft, revisa samples\\buildhm.bat ó buildxm.bat su usas xharbour.','',0,'','2l7sl14h',1,0,'',2,0,0),(9913,2308,6,2,0,'87.218.146.70',1143015434,1,0,1,1,1,1,'','','Joaquín,\n\nUna posible solución es que vayas comentando partes del RC hasta que desaparezca el error y así sepamos que es lo que le \"duele\" al ilink de Borland.','',0,'','2csh3xoq',1,0,'',2,0,0),(9914,2300,3,2,0,'87.218.146.70',1143015576,1,0,1,1,1,1,'','','Milan,\n\nFWH march build has support for ActiveX events management. If you need to manage ActiveX events, then you need the march build.','',0,'','xt44xksa',1,0,'',2,0,0),(9915,2308,6,490,0,'80.24.224.89',1143017816,1,0,1,1,1,0,'','','Probado paso a paso comentando los bitmaps en el .RC\n\nResultado, son 20 bitmaps y al llegar al 12 da igual el que sea, falla el link.\n\nLas propiedades del bitmap son:\n\n100 x 100 pixeles \n\nResolución Horizontal y vertical 508 x 508 ppp\n\ny profundidad en bits 24\n\n\n\nEspero que alguien sepa si esto es significativo.\n\nUn Saludo,\nJoaquín','',0,'','15m5bw98',1,0,'',490,0,0),(9916,2300,3,160,0,'210.212.142.91',1143018991,1,0,1,1,1,0,'','','Dear Antonio,\n\nI do want to use the methods of the class (and also property). Will I need March build for that ?\n\nJust guide me further.\n\nTIA\nMilan.\n\n[quote=&quot;Antonio Linares&quot;:1sbv3pvy]Milan,\n\nFWH march build has support for ActiveX events management. If you need to manage ActiveX events, then you need the march build.[/quote:1sbv3pvy]','',0,'gA==','1sbv3pvy',1,0,'',160,0,0),(9917,2321,6,490,0,'80.24.224.89',1143021549,1,0,1,1,1,0,'','Función Alert() tiene comportamiento extraño','Hola,\n\nHe intentado usar la función Alert() que trae fwh como lo hacía anteriormente en 16b, pero, el mensaje se muestra como deshabilitado con un gris muy clarito que casi no se ve.\n\nEntonces, pensando que por alguna razón demandada por los usuarios se ha puesto así, he copiado la función y le he puesto estas 2 líneas:\n\n oGet:SetColor( CLR_BLACK , GetSysColor( COLOR_BTNFACE ) )\n oGet:lDisColors := .F.\n\nPero la aplicación se queda congelada con la orden oGet:lDisColors := .F.\n\nNo sé que ocurre ni como solucionarlo, lo único que quiero es que el usuario vea el texto legible en negro como siempre se ha usado.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','az2xvqe0',1,0,'',490,0,0),(9918,2322,7,449,0,'212.64.224.244',1143021589,1,0,1,1,1,0,'','Impresion desde Pocket','Hola,\n\n- Hay previsto realizar alguna clase para poder imprimir desde una Pocket ? \n\n- Alguien tiene algun ejemplo de como abordar este tema ?\n\nSaludos a todos\nC.','',0,'gA==','3bsuoxme',1,0,'',449,0,0),(9919,2300,3,2,0,'87.218.146.23',1143023326,1,0,1,1,1,1,'','','march build is needed to manage events. For properties and methods, january-february build is ok.','',0,'gA==','30bxsq84',1,0,'',2,0,0),(9920,2322,7,2,0,'87.218.146.23',1143023427,1,0,1,1,1,1,'','','Carles,\n\nPor lo que se ha comentado aqui en los foros, la impresión se ha hecho via bluetooth, que en resumen es usar las funciones de uso de puertos comm.','',0,'gA==','9ie73qq8',1,0,'',2,0,0),(9921,2322,7,449,0,'212.64.224.244',1143023670,1,0,1,1,1,0,'','','Antonio,\n\nYa probe algun ejemplo q vi por el foro, pero la verdad no me \'rulo\' correctamente. Si alguien me puede echar un cable se lo agredeceria  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNota: Se puede probar con el simulador el tema bluetooth ?\n\nGracias.\n\nC.','',0,'gA==','ondabcov',1,0,'',449,0,0),(9922,2308,6,2,0,'87.218.146.23',1143024063,1,0,1,1,1,1,'','','Joaquín,\n\nhay una versión de Borland posterior a la 5.5. Lo que no encuentro es el mensaje en donde lo leí. habria que buscar en google, posiblemente solucione el problema.\n\nOtra alternativa es construir la aplicación con Microsoft.','',0,'gA==','2ohj036n',1,0,'',2,0,0),(9923,2323,1,193,0,'195.212.29.187',1143028250,1,0,1,1,1,0,'','How to determine a function existance','Hi\nHow to determine in Clipper program that a specified by a user function (for example through GET command) exists?\nI.e. a user inputs a macro expression containing function name &amp;SomeUDF and there is a need to determine does exist a function with name SomeUDF() or does not.\nVladimir Grigoriev','',0,'gA==','283tx15x',1,0,'',193,0,0),(9924,2320,6,77,0,'217.126.90.142',1143029144,1,0,1,1,1,0,'','Re: Ícono asociado a las aplicaciones','[quote=&quot;jose_murugosa&quot;:17782wgz]Mi pregunta tal vez sea tonta, pero no se como hacerlo.\n\n¿Cómo se asocia un ícono al exe de una aplicación, de manera que al ver el directorio de esa aplicación el exe aparezca representado con ese ícono?[/quote:17782wgz]\n\nHola jose si utilizas fichero de recurso lo único que has de hacer es añadir como un recurso de bitmap el icono que quieras que obtenga tu aplicación, y el linkador hace el resto.\n\nsaludos\nManolo','',0,'gA==','17782wgz',1,0,'',77,0,0),(9925,2321,6,2,0,'87.218.146.23',1143030097,1,0,1,1,1,1,'','','Joaquín,\n\nModifica source\\function\\alert.prg y quita los WHEN .f. que hay.','',0,'gA==','oaedshtn',1,0,'',2,0,0),(9926,2323,1,2,0,'87.218.146.23',1143030215,1,0,1,1,1,1,'','','Vladimir,\n\nYou may use Type( \"FunctionName()\" ) or better, Type( cExpression )','',0,'gA==','15v5xvqr',1,0,'',2,0,0),(9927,2320,6,2,0,'87.218.146.23',1143030443,1,0,1,1,1,1,'','','Jose,\n\nIncluye esto en tu fichero RC cambiando mi_icono por el nombre del tuyo:\n\n1  ICON  \"mi_icono.ico\"','',0,'gA==','1dmtmp12',1,0,'',2,0,0),(9928,2321,6,490,0,'80.24.224.89',1143031682,1,0,1,1,1,0,'','','Antonio,\n\nAsí se ve bien, pero se puede seleccionar el texto con el ratón. Que bueno, habrá quien le guste y quien no.\n\nPero, me queda la duda, ¿porque cascaba poniendo esto? :\n\noGet:lDisColors := .F.\n\n\nSi eso es una nueva propiedad de los gets que uso y va bien??\n\nUn Saludo y gracias,\nJoaquín','',0,'gA==','2knzrilo',1,0,'',490,0,0),(9929,2324,6,52,0,'200.127.195.89',1143031959,1,0,1,1,1,1,'','NamedPipes','Estimados,\n\nAlguien ha trabajado con CreateNamedPipe ?','',0,'gA==','3qdiesg9',1,0,'',52,0,0),(9930,1732,6,75,0,'83.45.231.183',1143032312,1,0,1,1,1,0,'','','Con esto consigo compilar pero al arrancar y mostrar el primer browse (de Hernan) me dice:\n\n\'wbrowse.prg\' was compiled by older version, PCODE versión 5 is no longer supported- please recompile.\n\nVuelvo a compilar el browse de Hernan con Verce y me genera la libreria pero me sigue saliendo el mismo error.','',0,'gA==','3no2hxpu',1,0,'',75,0,0),(9931,2325,2,501,0,'200.32.103.164',1143033203,1,0,1,1,1,0,'','Acceder a un Ftp por cable modem','[color=red:19hrxuwf][b:19hrxuwf]Antes que nada quiero saludar a todos los integrantes del foro.[/b:19hrxuwf][/color:19hrxuwf]\n\nMi problema es sobre descargas por FTP, hasta hace un tiempo la mayoria de mis clientes se conectaban por dial up para bajarse las listas de precios, algunos otros con ADSL y todo bien, pero ahora tengo unos nuevos que han contratado cable modem de Arnet/Telecom con un modem Motorola 5101 es el modelo para ser mas preciso y no se puede establecer la conexion. Estoy tratando de verificar con algo los puertos abiertos ya que los proveedores de internet dicen que ellos no cierran nada ni ponen ningun firewall ni nada pero la cosa es que no puedo ver el FTP desde fivewin y si voy por el explorer y coloco mi ip 209.99.22... anda de primera, desde el DOS ejecutando FTP tambien puedo entrar.\n\nSin mas les agradezco desde ya.','',0,'Qg==','19hrxuwf',1,0,'',501,0,0),(9932,2326,2,409,0,'201.246.67.203',1143035468,1,0,1,1,1,0,'','Cambiar Color Botton','Una consulta amigos como le cambio el color  un botton\nSaludos','',0,'Qg==','1znugv5y',1,0,'',409,0,0),(9933,2327,6,104,0,'201.58.23.239',1143041404,1,0,1,1,1,0,'','Correção para SSAY.PRG','Olá pessoal,\n\nEu estava tendo um problema aqui o seguinte: Ao exibir uma DIALOG na tela, se o mouse estivesse posicionado sobre um texto definido com a classe SSAY , este texto era impresso também na tela de trás. O que fiz para solucionar o problema foi o seguinte:\n\n[code:2jn4ukzj]\n&#46;&#46;&#46;\nMETHOD Paint&#40;&#41; CLASS TSSay\n\n   local n \n   local nColorShadow, nColorLight\n\n   DEFAULT &#58;&#58;lSTransparent &#58;= &#46;f&#46;\n\n   if !IsWindowEnabled&#40; &#58;&#58;hWnd &#41;  &amp;&amp; By Rossine\n      return nil\n   endif\n&#46;&#46;&#46;\n[/code:2jn4ukzj]\n\nPor favor, confirmem se isto também funciona para vocês, ok ?\n\nAbraços,\n\nRossine.','',0,'AIA=','2jn4ukzj',1,0,'',104,0,0),(9934,2328,3,148,0,'196.205.179.77',1143041763,1,0,1,1,1,0,'','missing library','I used buildx.bat to compile xlsout.prg but with missing libraries . Can I copy them from harbour/lib','',0,'AIA=','37h4ps39',1,0,'',148,0,0),(9935,2329,6,63,0,'80.37.102.128',1143041868,1,0,1,1,1,0,'','Maximizar una ventana DMI Child','Tengo una aplicación MDI externa, con varias ventanas hijas.  He conseguido el handle hWnd a una de esas ventanas HIJAS.  Puedo recuperar su título mediante cTitle := GetWndosText(hWnd).  Incluso puedo cerrarla mediante SendMessage(hWnd, WM_CLOSE). \n\nPero ¿Cómo hago para maximizar esa ventana hija (dentro, naturalmente, de su contenedor MDI)?\n\nGracias, \nRafael','',0,'AIA=','vwz6gt2x',1,0,'',63,0,0),(9936,2320,6,439,0,'201.221.38.47',1143042017,1,0,1,1,1,0,'','Se paciente con mi frustrante ignorancia','Antonio, uso para editar los RC Resource Workshop, ¿Como y donde tengo que entrar para agregar la línea que me indicas?','',0,'AIA=','bgh4zrbj',1,0,'',439,0,0),(9937,2330,6,439,0,'201.221.38.47',1143042614,1,0,1,1,1,0,'','Fórmulas con la clase TExcels','Es posible almacenar fórmulas con la clase TExcels de Viktor?\n\nComo?','',0,'AIA=','34757whz',1,0,'',439,0,0),(9938,2331,6,409,0,'201.246.67.203',1143044041,1,0,1,1,1,0,'','Cambiar Color','Una consulta amigos como le cambio el color un botton\nSaludos','',0,'AIA=','1k1kzze9',1,0,'',409,0,0),(9939,2332,3,190,0,'202.65.134.45',1143045813,1,0,1,1,1,0,'','Upgradaton of FWH from old to the Very Latest Version/Build','Dear Mr.Antonio\n\nWhat is the current FWH Version and Build which I will get on upgrading\nmy old version i.e. FWH 2.5 (Feb Build) ?\n\n- Ramesh Babu P','',0,'AIA=','3gk5hz94',1,0,'',190,0,0),(9941,2302,3,303,0,'68.7.28.54',1143046809,1,0,1,1,1,0,'','','I have had this on my To Do list for a long time. However, I am not sure it is possible with TWBrowse. The preprocessor converts the list of fields to a codeblock which is then passed to the new() method as bLine. There is no storage of the field list in the class and there is no way to parse the list back out of the codeblock that I know of. I could be wrong.\n\nI think the class would have to be modified to use an array instead of a codeblock.\n\nThe workaround is probably to use a different browse, like TCBrowse which doesn\'t use a codeblock.\n\nJames','',0,'AIA=','27h0wh1b',1,0,'',303,0,0),(9942,2331,6,278,0,'164.77.47.104',1143047827,1,0,1,1,1,1,'','Una solucion','Utiliza la clase TSButton de Manuel Mercado y puedes tener\nlos botones de la forma que deseas, con bmp, color, etc.\n\nBusca en respuestas anteriores el link de Vikthor que no lo tengo a mano y ahi la puedes bajar.\n\nLa clase button de FW no tiene la clausa color.\n\nSaludos\nJuan','',0,'AIA=','sg5rniwx',1,0,'',278,0,0),(9943,2332,3,303,0,'68.7.28.54',1143048426,1,0,1,1,1,0,'','','FWH 2.7 March 2006 build.','',0,'AIA=','1wr66z0d',1,0,'',303,0,0),(9944,2328,3,2,0,'87.218.146.4',1143049110,1,0,1,1,1,1,'','','Ehab,\n\nWhat missing libraries are them ?','',0,'AIA=','2vh6hxph',1,0,'',2,0,0),(9945,2326,2,2,0,'87.218.146.4',1143049358,1,0,1,1,1,1,'','','A un botón estandard no le puedes cambiar el color. Lo que puedes hacer es usar un botón TBtnBmp y usar un bitmap con un determinado color.','',0,'AIA=','3qsz6qf8',1,0,'',2,0,0),(9946,2321,6,2,0,'87.218.146.4',1143049668,1,0,1,1,1,1,'','','Joaquín,\n\nEs que es un GET multiline (TMultiGet) que no tiene esa DATA.','',0,'AIA=','27a9ljke',1,0,'',2,0,0),(9947,2333,6,490,0,'80.24.224.89',1143049715,1,0,1,1,1,0,'','Cambiar Color cabecera Wbrowse','Hola,\n\nSigo pasando pequeños detalles a fwh, ahora, o estoy muy despistado o en un TwBrowse lo siguiente no funciona:\n\n       oBrw:nClrBackHead := CLR_BLACK\n\nAntes ponía el color de fondo que quería, ahora no me hace ni caso.\n\n¿Como puedo cambiar el color de la cabecera? Y de paso ¿como puedo cambiar la altura de la cabecera o de las filas?\n\nUn Saludo,\nJoaquín','',0,'AIA=','381z6532',1,0,'',490,0,0),(9948,2334,2,350,0,'80.32.243.219',1143050873,1,0,1,1,1,0,'','Preview no coincide con la impresión','Hola a todos, me está ocurriendo algo rarisimo:\n\nEn un documento que genero con la clase TPrinter, que contiene lines, fillrect, says, etc., me ocurre que al hacer el Preview se ve perfecto, sin embargo, la impresión sale mal, es como si las coordenadas de las lines, box, fillrect e incluso un BMP no coincidieran con las de los says, que tampoco salen en su posición correcta, ocasionando que estos se monten sobre los primeros (como por medio centimetro).\n\nEsto me ocurre en la oficina del cliente en al menos dos impresoras, sin embargo en la mía sale perfecto. Y además esto solo ocurre en un tipo de documento de más de 50 que imprime el programa. El resto de los documentos salen bien y nadie me ha comentado este problema.\n\nLo curioso, insisto, es que en el Preview sale bien.\n\n¿Alguien ha notado un comportamiento similar alguna vez ?\n\nSaludos','',0,'AIA=','3dt4tvah',1,0,'',350,0,0),(9949,2333,6,2,0,'87.218.146.177',1143051971,1,0,1,1,1,1,'','','Joaquín,\n\nla clase TWBrowse dibuja ahora la cabecera usando los temas, por lo que no puedes cambiarle el color de fondo.\n\nEn cuanto a la altura de las líneas, has de usar el TXBrowse. El TWBrowse no lo soporta.','',0,'AIA=','3k4on34u',1,0,'',2,0,0),(9950,2320,6,2,0,'87.218.146.177',1143052485,1,0,1,1,1,1,'','','Puedes añadir un icono desde:\n[url=http&#58;//imageshack&#46;us:ejik29m5][img:ejik29m5]http&#58;//img97&#46;imageshack&#46;us/img97/8983/icon4sq&#46;png[/img:ejik29m5][/url:ejik29m5]\nó edita el RC con tu editor de código fuente y le añades la línea a mano.','',0,'GA==','ejik29m5',1,0,'',2,0,0),(9951,2329,6,2,0,'87.218.146.177',1143052803,1,0,1,1,1,1,'','','Rafael,\n\nTienes que enviarle el mensaje WM_MDIMAXIMIZE a la ventana hija (client) de la ventana MDI, pasándole como primer parámetro el handle de la ventana child a maximizar.','',0,'GA==','1e3a6m30',1,0,'',2,0,0),(9952,1732,6,2,0,'87.218.146.177',1143053344,1,0,1,1,1,1,'','','Parece que tienes PRGs compilados con distintas versiones de xharbour.','',0,'GA==','2f9gtm7z',1,0,'',2,0,0),(9953,2329,6,63,0,'80.37.102.128',1143053551,1,0,1,1,1,0,'','','Gracias, Antonio: Funciona!\nRafael','',0,'GA==','18i3stth',1,0,'',63,0,0),(9954,2335,6,492,0,'201.127.104.234',1143054166,1,0,1,1,1,0,'','Aplicar un Font X a todos los browse de la App.','Hola a tod@s\n\nActualmente defino un font X para aplicarlo al browse de mi app. haciendo esto :\n\nDEFINE FONT oFntBrw NAME \"XXXXX\" SIZE 0, -12\n\nen el browse lo aplico, y al final de la funcion lo destruyo con RELEASE FONT oFntBrw\n\ny esto es en cada funcion/procedimiento que manejo un browse, para efecto que todos tengan el mismo font, mi pregunta es :\n\nComo podria hacerlo para que todos los browse de la app. lo apliquen sin tanta definicion del font ? \n\nLo probe, declarando Static la variable, funciona, pero ignoro si sea lo correcto.\n\nQuizas haciendo un #define\n\nalguna sugerencia...\n\nMuchas Gracias','',0,'GA==','38umum6e',1,0,'',492,0,0),(9955,2335,6,73,0,'201.145.74.184',1143054588,1,0,1,1,1,0,'','','se me ocurre:\nporque no haces un font seleccionable por el usuario o lo defines tu y lo almacenas en una bd y luego lo cargas, en una variable MEMVAR o publica\nsalu2\nPako','',0,'GA==','2cioec3m',1,0,'',73,0,0),(9956,2333,6,73,0,'201.145.74.184',1143055177,1,0,1,1,1,0,'','','yo lo ago asi:\n   oBPro:nClrBackHead  := nRGB(0,111,0)\n   oBPro:nClrForeHead  := CLR_WHITE\n   oBPro:nHeaderStyle  := 3\n   oBPro:nHeaderHeight := 25\nsalu2\nPako','',0,'GA==','3tl0maih',1,0,'',73,0,0),(9957,2336,3,481,0,'205.160.34.161',1143055357,1,0,1,1,1,0,'','Controlar scanner en Fwh2.4','Algun colega puede ayudarme, necesito una clase para poder controlar dispositivos twain como el scanner y grabar la imagen capturada, sin utilizar librerias de terceros solamente puro fwh, agradezco su ayuda.\n\nCordial saludo,\n\nCristian Caballero\nColombia <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'GA==','3opkz12x',1,0,'',481,0,0),(9958,2335,6,492,0,'201.127.104.234',1143055586,1,0,1,1,1,0,'','','Hola Francisco\n\nQuizas no me explique correctamente, no es tanto el saber cual FONT se va a aplicar, sino que, se puedan aplicar sin tanto codigo de definicion por cada dialogo.\n\npor que de hecho el font lo estoy asignando yo.\n\n\nGracias por contestar  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','297m5m1q',1,0,'',492,0,0),(9959,2337,1,312,0,'207.236.106.34',1143057639,1,0,1,1,1,0,'','Fw 2.1  Folders','Does anyone know how to change the color of the text on the folder tabs with Fw 2.1 ? OR if does anyone happen to have the Foldbmp Folder class that allows for bitmaps, colour and this makes it even harder I know but still allows for windows 3.1 folder tab style ?!  The folder class in FW 2.1 doesn\'t respect the windows colour settings unfortunately. \n\nTIA','',0,'GA==','hkpnxf8y',1,0,'',312,0,0),(9960,2338,3,148,0,'196.205.179.77',1143058583,1,0,1,1,1,0,'','browse function','How can I add Miximize as nOr style to the browse function ?\nCan I edit the browse function so I can footer or it is enable only with txbrowse class ?','',0,'GA==','22d49ysg',1,0,'',148,0,0),(9961,2333,6,490,0,'80.24.224.89',1143059397,1,0,1,1,1,0,'','','Gracias Francisco,\n\nPero con temas no funciona, siempre hablando del TWbrowse.\n\nAntonio,\n\nDebería haberse dejado alguna puerta abierta para que fuera como en la versión anterior que sí se podía cambiar, como una data lHeaderStyleOld\n\nSé que existe la Xbrowse pero estamos haciendo una migración de 16 a 32b y como 1º requisito es que funcione 100% bien en FWH como en 16b, y luego las virguerías, cambiar browse por Xbrowse, gráficos, etc.\n\nUn Saludo y Gracias,\nJoaquín','',0,'GA==','lwrk1rz8',1,0,'',490,0,0),(9962,2339,1,418,0,'83.156.152.153',1143059742,1,0,1,1,1,0,'','HELP FW ET HYPER SIX','Hi all\ni want to use Hyper Six driver  in my app.( Hyper six RDD =   DBFNSX.LIB)   \nI use Clip 5.3 , FW 2.1 and  MS Link\nWhen i try to link  i have this error message:\n\ndbfnsx.lib(j:\\c\\nsxcore.c):error L2029:\' __fcompp\' : unresoved external\n\nWhere is the problem?\nIt seem that i don\'t have the  __fcompp in my Lib?\nI used in the past (Clipper Dos ) the Hyper Six rdd because the Clipper  \"set filter \" is very very slow  and it worked fine. \nAnd now with Fivewin it don\'t work , where can i find this  \"__fcomp\"\nAny idea?\nThanks','',0,'GA==','194bhmlm',1,0,'',418,0,0),(9963,2336,3,299,0,'69.65.95.131',1143060823,1,0,1,0,1,0,'','','Cristian;\n\nI think I can help.\n\nBut listen, if you wish to continue in spanish then let\'s move this thread over to the spanish forum.  We shouldn\'t be writing spanish on an english forum.  \n\nIMHO, Rafa Carmona has written one of the best classes to interface with the scanner (Tscan).  You\'ll need his work and a free twain scanner dll.  I\'m not totally sure where you can find them, but if you search on the ngs for messages from Rafa Carmona, you should be able to find the needed references.  Otherwise, I\'ll try to see if I can find his whereabouts.\n\nBest,\n\n\nReinaldo.','',0,'GA==','3kpjozlf',1,0,'',299,0,0),(9964,2302,3,299,0,'69.65.95.131',1143061244,1,0,1,0,1,0,'','','fp;\n\nProbably not the answer you\'re looking for;  xbrowse already has it implemented:\n\nMETHOD SaveState() CLASS TXBrowse\n\nSaves order, size, and other properties.  And it works.  You can even save/restore states per user.\n\n\nBest,\n\n\nReinaldo.','',0,'GA==','2zde1jk2',1,0,'',299,0,0),(9965,2340,6,481,0,'205.160.34.161',1143061647,1,0,1,1,1,0,'','Controlar Scanner desde Fwh','Algun colega puede ayudarme, necesito una clase para poder controlar dispositivos twain como el scanner y grabar la imagen capturada, sin utilizar librerias de terceros solamente puro fwh, agradezco su ayuda. \n\nCordial saludo, \n\nCristian Caballero \nColombia  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'GA==','2hmnivkn',1,0,'',481,0,0),(9966,2310,3,299,0,'69.65.95.131',1143062529,1,0,1,0,1,0,'','','Tim;\n\nYou know; I like to change the properties to the directory where the data is located to the advantage user and group.  In this manner you simply can not connect to the data unless you are in remote mode and using the xharb client software.  Think about it, this means that no one can peek at the data nor **delete** a file unless connected.  As far a security; what else can you ask for?   AMOF, using explorer or dir command the files are not even listed.  So, I\'d first forget about allowing local connections when there is a remote server available.  I control this via a .ini file where I declare the type of connection (XRDD=REMOTE or XRDD=LOCAL).  On installations where ADS server is installed, I change the setting to REMOTE.\n\nNow on the problem you are repoerting, let me ask you, is your ADS server hosted on a Linux server running SAMBA?\n\n\nReinaldo.','',0,'GA==','37unply1',1,0,'',299,0,0),(9967,2336,3,481,0,'205.160.34.161',1143062735,1,0,1,1,1,0,'','','Excuse you, I have published my restlessness in the forum of ingles of missed way, of all ways if some can help me will be been thankful.  Warm Greeting \nCristian','',0,'GA==','3l8i4heb',1,0,'',481,0,0),(9968,2335,6,2,0,'87.218.146.177',1143063160,1,0,1,1,1,1,'','','Raymundo,\n\nLo puedes definir sólo una vez al comienzo de tu aplicación, usarlo tantas veces como necesites, y destruirlo al final de la aplicación.','',0,'GA==','3fwg2zjj',1,0,'',2,0,0),(9969,1732,6,237,0,'200.68.70.89',1143063174,1,0,1,1,1,0,'','Sigo empantanado','Antonio:\n\nPuse al principio de mi aplicación las lineas mencionadas:\n\n#pragma BEGINDUMP\n\n#include \"hbstack.h\"\n#include \"hbapiitm.h\"\n\nvoid * hb_stack = &amp;HB_VM_STACK;\n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\nreturn pDynSym-&gt;pSymbol;\n}\n\n#pragma ENDDUMP \n\npero al compilar ( recompilé todo absolutamente ) ya no da error pero sin dar ningun tipo de error, la aplicación muere sin aviso, si siquiera se cuelga. \nPuse unas llamadas para el debugView para ver hasta donde llega pero\ncomienzo teniendo que eliminar lineas como:\n// PUBLIC hBcc32    := LoadLibrary( \"BWCC32.dll\" )\n// BWCCRegister( GetResources() )\npara que continúe cargando pero a pesar de esto, fallece ahi nada mas sin  aviso alguno, no entiendo nada.\n\nMuchos Salu2!\nGracias por tu paciencia!','',0,'GA==','38kseyqr',1,0,'',237,0,0),(9970,1732,6,2,0,'87.218.146.177',1143063233,1,0,1,1,1,1,'','','Posiblemente esta solución no sea válida:\n\nvoid * hb_stack = &amp;HB_VM_STACK;','',0,'GA==','ctosg2wk',1,0,'',2,0,0),(9971,2337,1,2,0,'87.218.146.177',1143063369,1,0,1,1,1,1,'','','You are using a quite old FW version. You may consider to upgrade so you can use folder more recent mofications.','',0,'GA==','2ef4b2fy',1,0,'',2,0,0),(9972,2336,3,299,0,'69.65.95.131',1143063562,1,0,1,0,1,0,'','','Crisitan,\n\nI\'m not exactly sure what you\'re saying, but it seems like I\'ve offended you.  If it is so, please accept my apologies.  It was not my intention.  If I suggest to write English on the English forum is only out of respect to others here.\n\nAgain (in my opinion), the best source for a scanner class is Rafa Carmona (the full).  But there are many others.  Have you tried to search for messages from Rafa as I suggested above?\n\nAt any rate, I did the search.  I found where Rafa speaks of his tscan32 class on the spanish forum.\n\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=279&amp;highlight=scanner\">http://fivetechsoft.com/forums/viewtopi ... ht=scanner</a><!-- m -->\n[/url]\n\nPlease investigate using this link.  Should you still need help with Rafa\'s class, I\'d love to help you further.  ok?\n\nBest,\n\n\nReinaldo.','',0,'','1kwki11e',1,0,'',299,0,0),(9973,2275,6,255,0,'200.67.175.250',1143064032,1,0,1,1,1,1,'','Re: problema con verce 4.3','Si, es raro, mira, cada vez que compilas con verce\nse genera un archivo script llamado C:\\WINDOWS\\PROY.MAK\nese archivo es enlazado con el make de borland.\n\nRevisa y verás que las librerias de terceros se enlazan\nantes que las de fivewin.\n\nVoy a revisar en mis apps a ver si sucede lo\nmismo.\n\nSaludos','',0,'','zogo0cef',1,0,'',255,0,0),(9974,2317,6,138,0,'201.154.236.81',1143064254,1,0,1,1,1,1,'','','Jose, te he contestado a tu correo de Gmail varias veces y me ha venido devuelto el correo.','',0,'','oiqryc41',1,0,'',138,0,0),(9975,2341,6,490,0,'80.24.224.89',1143064453,1,0,1,1,1,0,'','Problema con captura de teclas en FWH','Hola,\n\nTengo lo siguiente:\n\nUn Diálogo, con un folder de 3 pestañas y un TWbrowse en la 2ª Pestaña.\n\nTomo el foco del Browse y desactivo las pestañas 1 y 3.\n\nDefino el bKeydown de la 2ª pestaña y del Browse.\n\nEn 16b cuando pulsaba ESC lo capturaba el bkeydown del browse , en 32b lo captura el ¡Diálogo padre! , aunque parezca mentira.\n\nEsto me rompe montón de código\n\n¿cual es la forma de capturar las teclas en fwh ? ¿En qué modo han cambiado los eventos? ¿Que orden sigue de procesar las teclas en este tipo de pantallas?.\n\n\nUn Saludo,\nJoaquín','',0,'','1139ygoy',1,0,'',490,0,0),(9976,2312,3,255,0,'200.67.175.250',1143064607,1,0,1,1,1,1,'','','[quote=&quot;Roberto Parisi&quot;:10mlpzfa]Thx Antonio, but <!-- w --><a class=\"postlink\" href=\"http://www.canalfive.com\">www.canalfive.com</a><!-- w --> no more exists <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:10mlpzfa]\n\nHe was changing the hosting provider.\ni hope in a few more days paco will have\nthe homepage online again.\n\nRegards','',0,'gA==','10mlpzfa',1,0,'',255,0,0),(9977,2335,6,492,0,'201.127.104.234',1143064632,1,0,1,1,1,0,'','','Ok Antonio, enterado\n\nGracias a todos.\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','1fj91ziq',1,0,'',492,0,0),(9978,2272,3,255,0,'200.67.175.250',1143064841,1,0,1,1,1,1,'','Re: Two bottonbars on a window','[quote=&quot;betoncu&quot;:7zphx4ut]Is it possible to place two buttonbars on a window?[/quote:7zphx4ut]\n\nUse TReBar\n\nRegards','',0,'gA==','7zphx4ut',1,0,'',255,0,0),(9979,2310,3,138,0,'201.154.236.81',1143065424,1,0,1,1,1,1,'','','Tim:\n\nI had the very same problem connecting the ADS via a VPN from two remote sites.\n\nFirst we went on line using AIS instead of ADS remote, the solution worked fine. Then our customer wanted to install a VPN and here is where the problem started.\n\nWhat we did (look into ADS knowledge base, under \"VPN\"), was:\n\n1) Ping the remote server from the cliente computer\n2) Created a DD in the host and set properties to the remote user to connect to the remote server VIA INTERNET\n3) Set up the ADS.INI file, pointing the LAN_IP ADDRESS to the IP of the server (under the VPN) and  set the port for remote access\n\nThen give a try, and let me know.','',0,'gA==','1drywpq0',1,0,'',138,0,0),(9980,2341,6,490,0,'80.24.224.89',1143066558,1,0,1,1,1,0,'','','Antonio,\n\nMás pistas, he comprobado que estando editando un get en un diálogo con folders , al pulsar la tecla ESC se ejecuta ¡2 veces! el valid del Diálogo.\n\nLe he puesto un msginfo(), a un botón que llama a salir y al valid del diálogo, que son las 2 formas de salir, salta 2 veces el del diálogo.\n\nSi clickeo el botón va bien, si pulso la tecla ESC salta 2 veces el valid del diálogo.\n\nMe parece que algo raro ocurre con el valid de los diálogos.\n\nUn Saludo,\nJoaquín','',0,'gA==','2jf5jlsf',1,0,'',490,0,0),(9981,2149,1,312,0,'24.150.179.34',1143067669,1,0,1,1,1,0,'','','Or you can use the following API call to get the windows temp folder IF they have access to it.\n\nfunction get_temp()\nlocal tbuffer:=space(256)\n\ngettemppath(256,@tbuffer)\ntbuffer := LEFT(tbuffer,AT(CHR(0),tbuffer)-1)\nreturn(tbuffer)\n\nDLL32 Function GetTempPath( bufferlen as LONG, tbuffer AS LPSTR) AS LONG ;\nPASCAL FROM  \"GetTempPathA\"  LIB \"kernel32.dll\"','',0,'gA==','3avbeiec',1,0,'',312,0,0),(9982,2342,3,49,0,'87.10.180.110',1143067958,1,0,1,1,1,1,'','File not compiled on xharbour or habour','I have a problem\nI have an old utility ( setupcol.prg)\nYou can found it at prometheus site or here  [url:b0o85ycx]http&#58;//hyperupload&#46;com/download/fd1c0466/setupcol&#46;zip&#46;html[/url:b0o85ycx]\n\nOn clipper &amp; fivewin run ok \nNow on 32 bit it make many errors \n\nWhy it not compile now ?\n\nsomeone can help me ?\n\nBest regards\nFalconi Silvio','',0,'EA==','b0o85ycx',1,0,'',49,0,0),(9983,2337,1,312,0,'24.150.179.34',1143068142,1,0,1,1,1,0,'','','I would love to upgrade ... but i don\'t think that will be in the cards to get the color issue addressed. I wish it was.','',0,'EA==','1pn61qel',1,0,'',312,0,0),(9984,2260,6,147,0,'200.110.140.225',1143068785,1,0,1,0,1,1,'','','Consulta:\nTengo en mi dbf un campo caracter de tipo numérico que al exportarlo sale alineado a la derecha.\nComo indico que se alinee el contenido de las columnas, independientemente de su contenido?\nMirando la clase lo único que encuentro pero comentado es: \n// ::oSheet:Cells( nRow, nCol ):Set(\"HorizontalAlignment\",Alltrim(Str(nAlign)))\n// ::oSheet:Columns( nCol )::Set(\"HorizontalAlignment\", -4131 )\n\n\ngracias\nsaludos','',0,'EA==','yh621lr9',1,0,'',147,0,0),(9985,2317,6,295,0,'200.112.84.86',1143070119,1,0,1,1,1,1,'','','ednaldo ,\n\nmandei a classe FileXls para seu correio hotmail\n\nsalu2','',0,'EA==','9se37wtv',1,0,'',295,0,0),(9986,2168,3,299,0,'69.65.95.131',1143071102,1,0,1,0,1,0,'','','FYI --Just in case you ever come across this problem, the solution is to issue a releasecapture() just before starting the tprinter instance.\n\nReinaldo.','',0,'EA==','3rsbu1xl',1,0,'',299,0,0),(9987,2310,3,34,0,'68.4.154.81',1143072013,1,0,1,1,1,1,'','An update','I have limited abilities here because the hardware is controlled by a support company and the tech cannot follow the most basic instructions.\n\nIn the past I have not needed an ads.ini file.  The systems go up, and start working with no problems.  I installed them here because Advantage suggested the requests were failing.  My guess is because the server is overloaded, under fed ( low memory ), and being accessed by too much support software.\n\nI hate to modify my program for this one installation.  I have the    AdsSetServerType( 7 ) set so it can detect LOCAL, REMOTE, or Internet.  If I put in a \n\nADS_SERVER_TYPE=2 \n\ninto the ads.ini, will it over ride the setting in the software ?\n\nThanks\n\nTim','',0,'EA==','1wbiqmh7',1,0,'',34,0,0),(9988,2339,1,65,0,'193.201.130.6',1143072070,1,0,1,1,1,0,'','','AFAIK you cannot use six driver with clipper 5.3.\nUse Clipper 5.2 instead of 5.3.\n\nBirol Betoncu','',0,'EA==','hnnrxvrm',1,0,'',65,0,0),(9989,2272,3,65,0,'193.201.130.6',1143072565,1,0,1,1,1,0,'','','Many thanks for your help.\n\nBirol Betoncu <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','31imbojl',1,0,'',65,0,0),(9990,2337,1,15,0,'203.73.55.107',1143077663,1,0,1,1,1,0,'','','Hi Mdandrea,\n\nI think maybe you can use CanaFive Folder to support you want it.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'EA==','176mrgbe',1,0,'',15,0,0),(9991,2332,3,190,0,'202.65.134.45',1143078150,1,0,1,1,1,0,'','','Mr.James\n\nThank you very much.\n\nRegards\n\n- Ramesh Babu P','',0,'EA==','1ley1tux',1,0,'',190,0,0),(9992,279,6,190,0,'202.65.134.45',1143078858,1,0,1,1,1,0,'','','Please send a copy of TScan to me also.\n\nRegards\n\n- Ramesh Babu P','',0,'EA==','3ub8q7o5',1,0,'',190,0,0),(9993,2317,6,439,0,'201.221.36.80',1143080387,1,0,1,1,1,0,'','Rene Flores','[quote:gb4u5gjc]Jose, te he contestado a tu correo de Gmail varias veces y me ha venido devuelto el correo.\n[/quote:gb4u5gjc]\nRene, puedes escribirme a:\n<!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e -->\n<!-- e --><a href=\"mailto:jmurugosa@casachalar.com.uy\">jmurugosa@casachalar.com.uy</a><!-- e -->\n\nprueba ambas por favor.\n\nGracias desde ya por siempre estar atento a nuestros mensajes.','',0,'gA==','gb4u5gjc',1,0,'',439,0,0),(9994,2312,3,74,0,'190.48.232.88',1143081752,1,0,1,1,1,1,'','','I sent several email to <!-- e --><a href=\"mailto:consultas@canalfive.com\">consultas@canalfive.com</a><!-- e --> because I want to buy vtastkbar control and i got no response. I anyone knows how to contact paco let me know please.','',0,'gA==','3cp9orkx',1,0,'',74,0,0),(9995,2317,6,74,0,'190.48.232.88',1143082286,1,0,1,1,1,1,'','','Rene:\n\n        Vikthor menciono una vez en su programa en radio creswin que tenia los fuentes, podrias decirle que los suba a <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/download/\">http://vikthor.com.mx/download/</a><!-- m -->.\n\n         Si no es mucha molestia te encargo si podes enviarmelas a <!-- e --><a href=\"mailto:danielpuente@speedy.com.ar\">danielpuente@speedy.com.ar</a><!-- e -->\n\nSaludos Master','',0,'gA==','qum4ugwx',1,0,'',74,0,0),(9996,2308,6,252,0,'201.140.19.53',1143086387,1,0,1,1,1,0,'','','Esta en off Topic antonio. Hay un mensaje puesto por Modicr que dice lo siguiente:\n  \n     Borland released trial of \"Delphi\" BDS 2006, which \nincludes new Borland C++ compiler 5.81.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.borland.com/downloads/download_delphi.html\">http://www.borland.com/downloads/download_delphi.html</a><!-- m --> \n\n    Saludos.\n\n    Jose Rios.','',0,'gA==','2muyhtx7',1,0,'',252,0,0),(9997,2343,3,419,0,'196.25.255.210',1143098973,1,0,1,1,1,0,'','Errors when compiling and linking \\FWH\\SAMPLES\\FLASH.PRG','Hello,\n\nFor interest sake I just tried to compile and link \\FWH\\SAMPLES\\FLASH.PRG with FWH March 2006 and xHB Professional March 2006 but some \'Undefined Symbols\' errors occur.\n\nHow do I compile and link this .PRG to see what it does?\n\nRegards,\n\nDale.','',0,'gA==','3j56k73q',1,0,'',419,0,0),(9998,2322,7,470,0,'80.58.45.107',1143101767,1,0,1,1,1,0,'','user','Yo imprimo mediante bluetooth.\nEl código que utilizo es el mismo que hay por el foro, pero\nbueno aun así te pongo un ejemplo, por si te puede ayudar\nen algo.\n\n**************************\nLocal cTexto:=\"\"\nlocal hOut := CreateFile( \"COM6:\",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n//com6 --&gt; puerto com de salida\ncTexto:= \"TEXTO A IMPRIMIR\" + chr(10) + chr(13) + chr(12)  \n\nSendText( hOut, cTexto ) \n\n\nCloseHandle( hOut )\n\n\n**************************\n\nFUNCTION SendText( hOut, cText )\nlocal n\n   \nfor n = 1 to Len( cText )\n  WriteByte( hOut, Asc( SubStr( cText, n, 1 ) ) )\nnext   \n \nRETURN NIL\n\nYo el problema que tenía era que no añadía al final de la cadena de texto el salto de página (chr(12)) con lo que el folio con el texto no llegaba a salir por la impresora.','',0,'gA==','322ffqnp',1,0,'',470,0,0),(9999,2308,6,2,0,'87.218.146.177',1143102110,1,0,1,1,1,1,'','','José,\n\nGracias. Sabía que lo había leido pero no encontraba el mensaje <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','qnjrlc3m',1,0,'',2,0,0),(10000,2341,6,2,0,'87.218.146.177',1143102659,1,0,1,1,1,1,'','','Joaquín,\n\nPor favor prueba samples\\TestFold.prg y pulsa ESC. Aqui solo aparece el valid una vez.','',0,'gA==','3c7syt3c',1,0,'',2,0,0),(10001,2342,3,130,0,'141.51.32.24',1143102765,1,0,1,1,1,0,'','','Silvio,\n\nI cannot open the downloaded file (0 bytes).\n\nDo you know the new address of the prometheus website ?\n\nStefan','',0,'gA==','1zn0hfvv',1,0,'',130,0,0),(10002,2342,3,2,0,'87.218.146.177',1143103295,1,0,1,1,1,1,'','','Silvio,\n\nChange variable INI into oIni','',0,'gA==','1dqut7xa',1,0,'',2,0,0),(10003,2343,3,2,0,'87.218.146.177',1143103359,1,0,1,1,1,1,'','','Dale,\n\nWhat undefined symbols do you get ?','',0,'gA==','8b1t9r89',1,0,'',2,0,0),(10004,2308,6,490,0,'80.24.224.89',1143104691,1,0,1,1,1,0,'','','Gracias,\n\nPero no he sido capaz de bajarlo, me he registrado, empieza a hacer preguntas y nunca sale del cuestionario. Y siempre dice que falta algo.\n\nSi alguien tuviera esta versión o sabe de donde descargarla se lo agradecería mucho.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','9l9plspj',1,0,'',490,0,0),(10005,2308,6,490,0,'80.24.224.89',1143104718,1,0,1,1,1,0,'','','Gracias,\n\nPero no he sido capaz de bajarlo, me he registrado, empieza a hacer preguntas y nunca sale del cuestionario. Y siempre dice que falta algo.\n\nSi alguien tuviera esta versión o sabe de donde descargarla se lo agradecería mucho.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','137vl7jh',1,0,'',490,0,0),(10006,2341,6,490,0,'80.24.224.89',1143105442,1,0,1,1,1,0,'','','Antonio,\n\nTambién falla.\n\nModifica este trozo de testfold.prg :\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID MsgYesNo( \"Want to end ?\" )\n\nreturn nil\n\nPor este otro:\n\n   ACTIVATE DIALOG oDlg CENTERED ON INIT pru(oDlg) ;\n      VALID MsgYesNo( \"Want to end ?\" )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\nFunction Pru(oDlg)\n    Local oGet , cPru := \"Un get cualquiera\"\n\n    oDlg:Move( 0,0, 600,600, .T.)\n    oDlg:Center()\n\n    @500,100 GET oGet VAR cPru PIXEL SIZE 200,24 OF oDlg\n\nReturn Nil\n\n\nAhora, pincha en el Get y estando el foco ahí pulsa ESC.\n\n\nUn Saludo,\nGracias','',0,'gA==','1v46mb76',1,0,'',490,0,0),(10007,2323,1,193,0,'195.212.29.187',1143107208,1,0,1,1,1,0,'','','Antonio\nYesterday I tested a simple code and got the following results.\n\n[code:2xpms7nw]PROCEDURE MAIN&#40;&#41;\n\n? TYPE&#40; &quot;DEFINED&#40;&#41;&quot; &#41;, TYPE&#40; &quot;2 + DEFINED&#40;&#41;&quot; &#41;\n? TYPE&#40; &quot;DEFINED&#40;&#41; + ABS&#40;&#41;&quot; &#41;, TYPE&#40; &quot;ABS&#40;&#41;&quot; &#41;\n? TYPE&#40; &quot;UNDEFINED&#40;&#41;&quot; &#41;, TYPE&#40; &quot;2 + UNDEFINED&#40;&#41;&quot; &#41;\n? TYPE&#40; &quot;ABS&#40;&#41; + UNDEFINED&#40;&#41;&quot; &#41;\n\nRETURN\n\nFUNCTION DEFINED&#40;&#41;\nRETURN &#40; NIL &#41;[/code:2xpms7nw]\nUI UI UE UE U U UE\n\nThe last result \"UE\" destroys all concept to use TYPE( cExp ).\n\nVladimir Grigoriev','',0,'AIA=','2xpms7nw',1,0,'',193,0,0),(10008,2308,6,2,0,'87.218.146.177',1143107997,1,0,1,1,1,1,'','','Joaquín,\n\nA nosotros nos ha pasado igual. \n\nLe he enviado un email a Roman, que publicó la noticia, por si él lo tiene.','',0,'AIA=','1xj5usur',1,0,'',2,0,0),(10009,2344,3,502,0,'84.171.170.214',1143109873,1,0,1,1,1,0,'','Imap Active x','Someone using such a control ???\n\nOr what control could be used ??\n\nTx Seppel','',0,'AIA=','3n523fef',1,0,'',502,0,0),(10010,2345,3,419,0,'198.54.202.210',1143112882,1,0,1,1,1,0,'','(New) Problem with Vertical Scrollbar Thumb Position','Hello,\n\nI have just discovered a problem with the Vertical Scrollbar Thumb Position and TListBox Browse.\n\nI am not sure if this is a new problem i.e. since FWH March 2006 and XHB March 2006.\n\nProblem is this:\n\nI have a test database file with about 50 000 records and it is displayed in my favourite TListBox Browse format.\n\nI never noticed this before but if you are at the beginning of the file the Vertical Scrollbar Thumb Position moves slowly down while pressing and holding down the Page Down key i.e. it is keeping in synch with the data\n\nBUT\n\nif you go to the end of the file i.e. by pressing Ctrl Page Down and then press Page Up twice (or hold down the Page Up key) the Vertical Scrollbar Thumb Position jumps to the top of the Vertical Scrollbar i.e. it does not move slowly up while pressing and holding down the Page Up key keeping in synch with the data (like it does move slowly down while pressing and holding down the Page Down key).\n\nThat was quite a mouthful - hope it makes sense.\n\nRegards,\n\nDale.','',0,'AIA=','1f1nng9z',1,0,'',419,0,0),(10011,2343,3,419,0,'198.54.202.210',1143113041,1,0,1,1,1,0,'','','Hello,\n\nI get errors like:\n\nUnresolved external symbol \'_HB_FUN_OLEGETPROPERTY\'\n\nRegards,\n\nDale.','',0,'AIA=','b02w27kb',1,0,'',419,0,0),(10012,2345,3,419,0,'198.54.202.210',1143113399,1,0,1,1,1,0,'','','Sorry, sorry, sorry!!!\n\nNo problem.\n\nI just checked - my problem - due to a corrupt database record / compound index problem - not TListBox Browse!!!\n\nRegards,\n\nDale.','',0,'AIA=','3qtwrfpe',1,0,'',419,0,0),(10013,2339,1,418,0,'83.156.152.153',1143115299,1,0,1,1,1,0,'','','Ok\n i\'ve found in my archives the .exe   Clipper 5.2c\nbut i don\'t have the clipper.lib corresponding to 5.2c.\nMay be i overwrite it.\nCan you help me?\nOr do you know a way to have a \"select\" option that is so fast as \'Hyper Six\' and work with  5.3?\nThanks','',0,'AIA=','3k1seve9',1,0,'',418,0,0),(10014,2308,6,2,0,'87.218.146.28',1143116666,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://file.borlandforum.com/bds2006/trial/BDS2006TrialDownload.exe\">http://file.borlandforum.com/bds2006/tr ... wnload.exe</a><!-- m -->','',0,'AIA=','3s51d9cr',1,0,'',2,0,0),(10015,1732,6,237,0,'200.68.70.89',1143117639,1,0,1,1,1,0,'','Va a haber alguna solución?','Antonio:\n\nVa a haber alguna solución para este tema? Yo lamentablemente, no se practicamente nada de c, no creo poder dar con la solución por mi mismo, realmente estoy parado por que he chocado contra la pared.\nPregunto, será posible mediante el reemplazo de algun componente de la librería de fw para que se solucione por ese lado? o algún obj que se pueda linkear con la aplicación?\nPor favor, tirame alguna ayuda...\n\nMuchas gracias!','',0,'AIA=','1d00p0c4',1,0,'',237,0,0),(10016,2326,2,409,0,'201.246.67.71',1143119874,1,0,1,1,1,0,'','','Antonio pero al BtnBmp si es Rojo como le puedo cambiar a amarillo en el mismo ID\n\n   REDEFINE BTNBMP ID 105 OF oDlg RESOURCE \"Rojo\"\n\nSaludos','',0,'AIA=','2eo001cd',1,0,'',409,0,0),(10017,2346,6,490,0,'80.24.224.89',1143120169,1,0,1,1,1,0,'','Problema con RichEdit','Hola,\n\nEstoy intentando probar esta clase sobre un Diálogo poniendo esto:\n\n@  0, 0 RICHEDIT ::oRTF VAR cRTF OF ::oDlgRtf PIXEL;\n                SIZE ::oDlgRtf:nWidth, ::oDlgRtf:nHeight;\n                FILE \"TestRTF.RTF\"\n\nEl problema es que me edita pero sólo me deja introducir números y además si intento teclear una letra me sale el tooltip de windows xp con forma de balón diciéndome que sólo se admiten números.\n\nNo he hecho nada más, ¿que me falta? He revisado los ejemplos y no aparece ninguna condición especial para que admita letras.\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','xjauyynx',1,0,'',490,0,0),(10018,2347,6,486,0,'200.184.85.3',1143124963,1,0,1,1,1,0,'','DigitalPersona x Fhwx','Hi,\n\nDoes anybody have example FWHX working with DigitalPersona?\n\n[img:1zpw6j61]http&#58;//www&#46;digitalpersona&#46;com/images/homeConsumer2&#46;jpg[/img:1zpw6j61]\n\nClemerson','',0,'CA==','1zpw6j61',1,0,'',486,0,0),(10019,2339,1,6,0,'87.11.236.90',1143125176,1,0,1,1,1,1,'','','Check OrdScope().\n\nEMG','',0,'CA==','1m5q67bu',1,0,'',6,0,0),(10020,2308,6,255,0,'200.67.175.250',1143126655,1,0,1,1,1,1,'','','Antonio.\n\nDice que es Trial\nFunciona con alguna limitante o como es la cosa ??','',0,'CA==','19w81wpv',1,0,'',255,0,0),(10021,279,6,255,0,'200.67.175.250',1143126757,1,0,1,1,1,1,'','','Please!, can you make it public for all the people ?\n----------------------------------------------------------\nPor favor, pueden ponerla pública para todos ?','',0,'CA==','1xp4uu1s',1,0,'',255,0,0),(10022,2348,3,27,0,'80.25.252.165',1143128564,1,0,1,1,1,1,'','Converting Fivewin to harbour TCBROWSE aTcBrWPosR() not foun','Compiling a fivewin clipper program with harbour I get the message :\nUnresolved External _HB_FUN_ATCBRWPOSR .\nI compile TCBROWSE.PRG with the rest of the modules.\n\nWhere is the ATCBRWPOSR() function within TCBROWSE.PRG located?','',0,'CA==','2hiwbfwd',1,0,'',27,0,0),(10023,2349,4,27,0,'80.25.252.165',1143128815,1,0,1,1,1,1,'','Reading a Blue Tooth GPS reciever.','Anyone managed to collect the data from a Bludetooth GPS reciever conected to their PDA with Fivewin PPC','',0,'CA==','39jpqo8r',1,0,'',27,0,0),(10024,2350,3,167,0,'207.119.126.13',1143128935,1,0,1,1,1,1,'','How to make an application &quot;sleep&quot;?','What is the best way to make an application \"Sleep\" for a specified time interval?\n\nIn xbase there was a Sleep() function.\n\nI\'m aware of \"inkey()\"\n\nIs there a \"best\" way to make the process inactive for a time period.\n\nThanks.','',0,'CA==','5nhjv1pm',1,0,'',167,0,0),(10025,2260,6,147,0,'200.45.54.133',1143129549,1,0,1,0,1,1,'','','Alguien ha corregido el error que da al invocar ::oExcel:End() ?\n\ngracias','',0,'CA==','1skfxdt1',1,0,'',147,0,0),(10026,2351,7,498,0,'213.97.9.239',1143129792,1,0,1,1,1,1,'','Programa \'clients\' de ejemplo','Hola a todos.  \nEstoy empezando con esto del FWPPC, y tengo descargada la ultima ultima actualizacion del dia 20 de marzo.\n\nBueno pues para probar como deberia crear una carpeta para mi aplicación y compilarla sin problemas, utilice el programa de ejemplo \"clients\" de Carles Aubia, asi que cree una carpeta, copie todos los archivos y ejecute\n\nbuildce clients\n\nSe compilo sin problemas pero, el exe se hace algo mas grande que el original, y al ejecutarlo sobre el emulador, el 2º boton, que esta junto a la puerta sale sin su imagen.  Si lo pulso, entonces aparece, se abre el dialogo, y vuele a no verse la imagen del boton (creo que el activo en ese momento).\n\nSi pruebo el exe original va bien.  ¿ que puede pasar ?\n\nPerdon por todo este rollo y saludos.','',0,'CA==','2sszumpd',1,0,'',498,0,0),(10027,2312,3,303,0,'68.7.28.54',1143130220,1,0,1,1,1,0,'','','According to Network Solutions the domain name canalfive.com expired on 2/28/06.\n\nJames','',0,'CA==','3nbehotf',1,0,'',303,0,0),(10028,2318,6,492,0,'201.127.104.234',1143130339,1,0,1,1,1,0,'','','Hola\n\nEl mejor que he visto : Astrum Install Wizard\n\nNo es gratuito, pero realmente vale lo que cuesta  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'CA==','1eis7ff2',1,0,'',492,0,0),(10029,2345,3,303,0,'68.7.28.54',1143130497,1,0,1,1,1,0,'','','Dave,\n\nI think your office is possesed with a scrollbar demon...\n\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nJames','',0,'CA==','eogaqz2b',1,0,'',303,0,0),(10030,2350,3,303,0,'68.7.28.54',1143130563,1,0,1,1,1,0,'','','DLL32 FUNCTION Sleep ( dwMilliseconds AS LONG )  AS VOID PASCAL  LIB \"KERNEL32\"','',0,'CA==','3dwma0fn',1,0,'',303,0,0),(10031,2348,3,303,0,'68.7.28.54',1143130929,1,0,1,1,1,0,'','','Paul,\n\nWhy are you compiling TCBROWSE.PRG? It is already included in the FW libraries. Is it an old copy? Try not including your compiled version.\n\nATCBRWPOSR() is the Clipper version of the function. It sounds like you might be linking in a Clipper library.\n\n\\source\\function\\tbcfuncs.c contains the function.\n\nJames','',0,'CA==','1edkktkw',1,0,'',303,0,0),(10032,2352,6,490,0,'80.24.224.89',1143132477,1,0,1,1,1,0,'','Un ejemplo de TRichedit por favor','Hola,\n\nNecesitaría un ejemplo por código sin recursos, de un Diálogo y dentro un control TRichedit y que funcione.\n\nLo he intentado de todas las maneras y no funciona.\n\nSólo me gustaría ver que un ejemplo tan simple funciona, o en su defecto, cuales son los requisitos para que funcione.\n\nUn Saludo,\nJoaquín','',0,'CA==','1pg7153w',1,0,'',490,0,0),(10033,2332,3,190,0,'202.65.134.45',1143132848,1,0,1,1,1,0,'','','Hi Mr.Antonio\n\nI expected you to confirm it, since you are the right person who is supplying the product.\n\n- Ramesh Babu P','',0,'CA==','50qdimp6',1,0,'',190,0,0),(10034,2350,3,167,0,'207.119.126.13',1143133120,1,0,1,1,1,1,'','','Thanks very much!!','',0,'CA==','116qwyzi',1,0,'',167,0,0),(10035,2353,3,190,0,'202.65.134.45',1143133355,1,0,1,1,1,0,'','How to Change TsBrowse Columns dynamically from its Dialog.','Hi All\n\nCan anybody help me out from the problem defined below:\n\nHow I can change the TsBrowse Columns dynamically?\n\nI have dialog from resource and I have some radio buttons \nrepresenting 1, 2, 3. I have also a TsBrowse on the same\ndialog.\n\nMy requirement is\"  \n\nIf I press 1st radio button, only the 1st field from\nthe database is to be showm in the browser.\n\nAgain if I click on the 2nd radio button 1st two \nfields of the databse are to be shown  in the browser.\n\nLike-wise if I click on the 3rd radio button 1st three\nColumns of the databse are to be shown in the browser\ndynamically.\n\nFollowing link provides TSBTEST.ZIP containing\nthe TSBTEST.PRG TSBTEST.RC TSBTEST.DBF and TSBTEST.EXE\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/024a1f6041/tsbtest.zip.html\">http://hyperupload.com/download/024a1f6 ... t.zip.html</a><!-- m --> \n\nPlease note I have used \"ACTIVATE DIALOG oDlg CENTERED\" in 2nd \nfunction to dimonstrate the functionality need, even though\nit is not correct ( I believe! ).\n\nYou can test it with Tsbrowse 6.00, 6.01 or higher versions and suggest \nme the correct solution to my problem.\n\nThanks in advance\n\n- Ramesh Babu P','',0,'CA==','195qffdu',1,0,'',190,0,0),(10036,2353,3,303,0,'68.7.28.54',1143133891,1,0,1,1,1,0,'','','oBrw:SetColumns( aData, aHeaders, aColSizes )','',0,'CA==','12hyv6qm',1,0,'',303,0,0),(10037,2322,7,456,0,'217.127.39.57',1143137192,1,0,1,1,1,1,'','','Siguiendo con el tema de imprimir, yo lo hago de la siguinete manera. \nEscribo el listado en un fichero ASCII, \n bien con Set PRINTER TO &lt;file&gt; y luego imprimiento con  ?\"Texto\" o Qout(\"texto\")\no creando el fichero con fCreate, y montado el listado con fWrite\nuna vez terminado, lo imprimo con la funcion que cirucla por el foro para imprimir via bluetooth.\n\n[code:1h7vjv93] \n&#46;&#46;&#46;\n    Set&#40; 24 , cDirLocal+\'carga&#46;prn\',&#46;F&#46;&#41; //Redirecciono a fichero\n    SET PRINTER ON\n    SET DEVICE TO PRINTER\n    BEGIN SEQUENCE\n    Exi-&gt;&#40;dbGoTop&#40;&#41;&#41;\n    Cabecera&#40;++nPag,cTitulo,aRango,aLinCab&#41; //Cabecera\n    While !Exi-&gt;&#40;Eof&#40;&#41;&#41;\n        If pRow&#40;&#41;&gt;26 &#46;AND&#46; Cfg-&gt;Prn==\'S\'\n            Cabecera&#40;++nPag,cTitulo,aRango,aLinCab&#41; \n        ENDIF\n        IF Exi-&gt;Ini&lt;&gt;0\n            ? Exi-&gt;ArtCod,DescArt&#40;Exi-&gt;ArtCod&#41;,Exi-&gt;Ini //Detalle\n        ENDIF\n        Exi-&gt;&#40;dbSkip&#40;&#41;&#41;\n    End\n    ? Chr&#40;12&#41;\n    END SEQUENCE\n    SET PRINTER OFF\n    SET PRINTER TO\n    SendText&#40; MemoRead&#40; cDirlocal+\'carga&#46;prn\'&#41;&#41; //Envio al puerto serie\n    fErase&#40;cDirLocal+\'carga&#46;prn\'&#41;\n&#46;&#46;&#46;\n//---------------------------------\nFUNCTION SendText&#40; cText &#41;\n//---------------------------------\n   LOCAL i, hOut &#58;= CreateFile&#40; &quot;COM6&#58;&quot;,GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL &#41;\n   IF hOut==-1\n      MsgStop&#40;\'No pudo abrise el puerto de impresora\'&#41;\n   ELSE\n      FOR i = 1 TO Len&#40; cText &#41;\n         WriteByte&#40; hOut, Asc&#40; SubStr&#40; cText, i, 1 &#41; &#41; &#41;\n      NEXT\n      CloseHandle&#40; hOut &#41;\n   ENDIF\nRETURN NIL\n[/code:1h7vjv93]\nEsto en impresoras conectadas por cable via RS232 funciona perfecto, pero con impresoras via bluetooth, no me termina el listado. Parece que no envia los datos a la impresora hasta tener una cantidad determinada de bytes. Con lo cual un trozo de listado se queda en el buffer, sin imprimir, y por ahora no se como vaciarlo(flush del com quizas).','',0,'AIA=','1h7vjv93',1,0,'',456,0,0),(10038,2318,6,375,0,'84.122.99.241',1143142480,1,0,1,1,1,1,'','','Yo he utilizado alguna vez QSETUP STUDIO de PANTARAY no está mal. Si me das tu e-mail te lo mando.','',0,'AIA=','2pojr2h0',1,0,'',375,0,0),(10039,2354,3,300,0,'201.2.49.85',1143143419,1,0,1,1,1,0,'','to Antonio about toolbar32','Hi Antonio, can fwh2.7 toolbar32 accept menus in button like tsbutton?\n\nregards.','',0,'AIA=','134h6nwv',1,0,'',300,0,0),(10040,2326,2,78,0,'200.121.182.130',1143143430,1,0,1,1,1,0,'','','Hola jbrita:   Funciona asi:    Salu2 Willi\n\n...\n...\nREDEFINE BTNBMP oTVenta ;\nRESOURCE \"EFECTIVO\" CENTER NOBORDER ;\nPROMPT \"Efectivo Cash\" ;\nFONT oFont3 ;\nACTION (nTVenta:=EfectivoTarjeta(oTVenta,nTVenta), ;\noTicket:SetFocus)) ;\nID 121 OF oDlg\n...\n...\n...\n\n\n\n\n\noTVenta:LoadBitMaps(\"EFECTIVO\")\noTVenta:SetText(\"Efectivo Cash\")\noTVenta:Refresh()\n\nReturn(Nil)','',0,'AIA=','1hyzr2rz',1,0,'',78,0,0),(10041,2326,2,78,0,'200.121.182.130',1143143561,1,0,1,1,1,0,'','','UPs,,, sorry, era esa linea para cambiar la imagen y texto que la activas segun sea tu necesidad:\n\n..\n..\nFunction CambiaBmp(oTVenta)\noTVenta:LoadBitMaps(\"VISAMASTER\")\noTVenta:SetText(\"Tarjeta de Crédito\")\noTVenta:Refresh()\nReturn(Nil)','',0,'AIA=','26l3x3wx',1,0,'',78,0,0),(10042,2355,6,52,0,'200.127.195.89',1143148521,1,0,1,1,1,1,'','vTackBar','Amigos,\n\nQuiero bajarme la clase vtaskbar, desde donde puedo bajarla, he tratado de buscarla por el google pero no la consigo.\n\nAngel quise enviarte un mail pero me rechaza la direccion.','',0,'AIA=','3i34ok45',1,0,'',52,0,0),(10043,2356,6,104,0,'201.58.30.8',1143149814,1,0,1,1,1,0,'','Para Antonio - Como rolar header e Footer de THEADER','Olá Antonio,\n \nEstou a fazer algumas mudanças na classe WBROWSE e eu gostaria de saber se você poderia me dar uma dica de como fazer o Header e Footer rolar na tela quando eu clicar no objeto SCROLL.\n \nEu estou usando a classe THEADER de FWH.\n \nDesde já agradeço qualquer ajuda <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n \nObrigado,\n \nRossine.\n \n[img:jtnonq7x]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/BRW&#46;PNG[/img:jtnonq7x]','',0,'CA==','jtnonq7x',1,0,'',104,0,0),(10044,2273,3,148,0,'196.205.179.77',1143151378,1,0,1,1,1,0,'','','[quote:s6slj68c]\nYou have to use xHarbour or link hbole.lib. \n[/quote:s6slj68c]\n\nI did not find hbole.lib.  Is its usage alternative of using harbour instead of xHarbour ?','',0,'gA==','s6slj68c',1,0,'',148,0,0),(10045,2357,6,492,0,'201.127.104.234',1143155104,1,0,1,1,1,0,'','Impresion a archivo TXT','Hola a tod@s\n\nEstoy generando un reporte hacia un archivo txt, cuando lo tenia a 16b funciona correctamente usando la clase TDosPrn, ahora a 32b nomas no genera nada, ni con la clase anterior ni con la nueva, ya no es posible direccionar la salida a un archivo de texto ??\n\noPrn := TDosPrn():New( \"PRUEBA.TXT\" )\n    oPrn:StartPage()\n    FOR nQ := 1 TO 20\n        oPrn:Say( nQ, 00, \"Linea : \" + Str(nQ) )\n    NEXT\n    oPrn:EndPage()\noPrn:End()\n\n\nMuchas gracias, ya le anduve buscando sin resultados !!!','',0,'gA==','3imjp9ks',1,0,'',492,0,0),(10046,2358,1,204,0,'87.202.111.32',1143155221,1,0,1,1,1,0,'','Folder scrolling pages','Hello to all\nIs it possible to have a scrolling page that is part of a folder object. The child dialog has more objects on it and the dialog is lager than the folder’s window display size. I’ve enabled the vertical scroll bar on the child dialog but no scrolling is don when I click on it. The scroll bar dose show up correctly. \n\n[img:mprwxlgh]http&#58;//users&#46;hol&#46;gr/~kronos91/fw/money_dlg1&#46;jpg[/img:mprwxlgh]\n \nThe hole thing will be used by people with low vision so I have to make the colors and text “user friendly” for them.\nThanks\n\n\n[code:mprwxlgh]\nSTATIC PROCEDURE Main2&#40;&#41;\n\n    DEFINE DIALOG oMainWin NAME &quot;MAIN_WIN1&quot; FONT oMainFont COLOR CLR_YELLOW, CLR_BLACK\n\n      REDEFINE SAY ID 101 OF oMainWin COLOR CLR_YELLOW, CLR_BLACK\n      REDEFINE SAY ID 103 OF oMainWin COLOR CLR_YELLOW, CLR_BLACK\n\n      REDEFINE COMBOBOX adata&#91;1&#93; ID 102 OF oMainWin\n      REDEFINE COMBOBOX adata&#91;2&#93; ID 104 OF oMainWin\n\n      REDEFINE FOLDER oFld1 ID 105 OF oMainWin ITEMS &quot;FULL PRG&quot;, &quot;AMEA PRG&quot;;\n       PAGES &quot;SMALL_PRG&quot;, &quot;BIG_PRG&quot; COLOR CLR_WHITE, CLR_BLACK\n      \n      REDEFINE BUTTON ID 106 OF oMainWin ACTION oMainWin&#58;End&#40;&#41;\n    ACTIVATE DIALOG oMainWin CENTER\nRETURN\n[/code:mprwxlgh]','',0,'CIA=','mprwxlgh',1,0,'',204,0,0),(10047,2359,6,64,0,'201.50.156.253',1143157548,1,0,1,1,1,1,'','clear SAY? how?','Hello,\n\n     How I make to clean some SAYS in a DIALOG? I am making this:\n\n    @ 10,20 SAY OSAY VAR \' MY TEXT \' OF ODLG UPDATE\n    .\n    .\n    .\n    ODLG:UPDATE()\n    \n    This command is cleaning the GETs but the SAYs is not cleaning.\n\nMany thanks','',0,'CIA=','1um3246e',1,0,'',64,0,0),(10048,2342,3,49,0,'87.7.179.24',1143157647,1,0,1,1,1,1,'','','Antonio not run ok !!!\n\nI changed... but it compile but not run ok\n\nRegards\n\n[code:17a9lhd2]\n\n\n#include &quot;FiveWin&#46;ch&quot;\n\nREQUEST DbfCdx\n\n\n// --------------------\n   Function SetupCol&#40;&#41;\n// --------------------\n   Local oDlg\n   Local oSay\n   Local olbx1\n   Local oFontBro\n   Local oget&#58;=Array&#40;6&#41;\n   Local oGet_&#58;=Array&#40;2&#41;\n   Local oBit&#58;=Array&#40;17&#41;\n   Local xGEt1&#58;=&quot;Campo Numero 1&quot;\n   Local xGEt2&#58;=&quot;Campo Numero 2&quot;\n   Local nVar1,nVvar2,nVar3\n\n   Public oIni&#58;=TApplication&#40;&#41;\n\n   IF !File&#40;oIni&#58;cFile&#41;\n       Msginfo&#40;&quot;l\'Archivo Default&#46;ini non esiste,&quot;+CRLF+&quot;Si caricano i parametri per default&quot;&#41;\n       oIni&#58;cFile&#58;=&quot;Nessuno&quot;\n   Endif\n\n  LeoIni&#40;oIni&#58;cFile&#41; // Traigo el Ini Default&#46;ini\n\n  RddSetDefault&#40;&quot;DBFCDX&quot;&#41;\n\n  * archivio di prova\n  USE Clientes INDEX Clientes SHARED NEW\n\n\n  DEFINE DIALOG oDlg RESOURCE &quot;SETUPCOLOR&quot;\n\n\n   REDEFINE SAY  oSayArch VAR oIni&#58;cFile ID 410  OF oDlg;\n         COLOR CLR_HRED Update\n\n     REDEFINE LISTBOX oLbx1                           ;\n     FIELDS Clientes-&gt;Nombre,Clientes-&gt;Direccion;\n     HEADERS &quot;Nome del Cliente&quot;, &quot;Indirizzo del Cliente&quot; ;\n     ID 108 OF Odlg\n\n     oLbx1&#58;lDrawFooters &#58;=&#46;T&#46;\n\n     Colbro&#40;olbx1&#41;\n     olbx1&#58;SetFocus&#40;&#41;\n     Olbx1&#58;aFooters     &#58;=&#123;|| &#123;&quot;FColore1&quot;,&quot;Fcolore2&quot;&#125; &#125;\n\n  REDEFINE BITMAP oBit&#91;1&#93; ID 200 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrForeHead&#58;=ChooseColor&#40;oIni&#58;nClrForeHead&#41;,;\n                    obit&#91;1&#93;&#58;SetColor&#40;,oIni&#58;nClrForeHead&#41;,obit&#91;1&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;2&#93; ID 210 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrBackHead&#58;=ChooseColor&#40;oIni&#58;nClrBackHead&#41;,;\n                    obit&#91;2&#93;&#58;SetColor&#40;,oIni&#58;nClrBackHead&#41;,obit&#91;2&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;3&#93; ID 220 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrFore&#58;=ChooseColor&#40;oIni&#58;nClrFore&#41;,;\n                    obit&#91;3&#93;&#58;SetColor&#40;,oIni&#58;nClrFore&#41;,obit&#91;3&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;4&#93; ID 230 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrBack&#58;=ChooseColor&#40;oIni&#58;nClrBack&#41;,;\n                    obit&#91;4&#93;&#58;SetColor&#40;,oIni&#58;nClrBack&#41;,obit&#91;4&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;5&#93; ID 240 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrForeFocus&#58;=ChooseColor&#40;oIni&#58;nClrForeFocus&#41;,;\n                    obit&#91;5&#93;&#58;SetColor&#40;,oIni&#58;nClrForeFocus&#41;,obit&#91;5&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;6&#93; ID 245 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrNFFore&#58;=ChooseColor&#40;oIni&#58;nClrNFFore&#41;,;\n                    obit&#91;6&#93;&#58;SetColor&#40;,oIni&#58;nClrNFFore&#41;,obit&#91;6&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;7&#93; ID 250 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrBackFocus&#58;=ChooseColor&#40;oIni&#58;nClrBackFocus&#41;,;\n                    obit&#91;7&#93;&#58;SetColor&#40;,oIni&#58;nClrBackFocus&#41;,obit&#91;7&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;8&#93; ID 255 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrNFBack&#58;=ChooseColor&#40;oIni&#58;nClrNFBack&#41;,;\n                    obit&#91;8&#93;&#58;SetColor&#40;,oIni&#58;nClrNFBack&#41;,obit&#91;8&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;9&#93; ID 256 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrFFore&#58;=ChooseColor&#40;oIni&#58;nClrFFore&#41;,;\n                    obit&#91;9&#93;&#58;SetColor&#40;,oIni&#58;nClrFFore&#41;,obit&#91;9&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;10&#93; ID 257 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrFBack&#58;=ChooseColor&#40;oIni&#58;nClrFBack&#41;,;\n                    obit&#91;10&#93;&#58;SetColor&#40;,oIni&#58;nClrFBack&#41;,obit&#91;10&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n\n  REDEFINE CHECKBOX oCheck VAR oIni&#58;InterLinea ID 260 OF Odlg;\n           ON CHANGE Colbro&#40;Olbx1&#41; Update\n\n  REDEFINE BITMAP oBit&#91;11&#93; ID 270 OF Odlg;\n          ON CLICK &#40;oIni&#58;Col1Interl&#58;=ChooseColor&#40;oIni&#58;Col1Interl&#41;,;\n                    obit&#91;11&#93;&#58;SetColor&#40;,oIni&#58;Col1Interl&#41;,obit&#91;11&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41;;\n                    When oIni&#58;InterLinea Update\n\n  REDEFINE BITMAP oBit&#91;12&#93; ID 280 OF Odlg;\n          ON CLICK &#40;oIni&#58;Col2Interl&#58;=ChooseColor&#40;oIni&#58;Col2Interl&#41;,;\n                    obit&#91;12&#93;&#58;SetColor&#40;,oIni&#58;Col2Interl&#41;,obit&#91;12&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41;;\n                    When oIni&#58;InterLinea Update\n\n\n  REDEFINE GET   oGet&#91;1&#93; VAR oIni&#58;nlinestyle ID 290  SPINNER MIN 0 MAX 10 PICTURE &quot;@Z 99&quot; OF Odlg ;\n                 ON CHANGE Colbro&#40;Olbx1&#41;  Update\n\n\n  REDEFINE BITMAP oBit&#91;13&#93; ID 300 OF Odlg;\n          ON CLICK &#40;oIni&#58;nClrLine&#58;=ChooseColor&#40;oIni&#58;nClrLine&#41;,;\n                    obit&#91;13&#93;&#58;SetColor&#40;,oIni&#58;nClrLine&#41;,obit&#91;13&#93;&#58;refresh&#40;&#41;,Colbro&#40;Olbx1&#41;&#41; Update\n\n  REDEFINE CHECKBOX oCheck2 VAR oIni&#58;lCellStyle ID 310 OF Odlg;\n           ON CHANGE Colbro&#40;Olbx1&#41; Update\n\n  REDEFINE GET oGet&#91;2&#93; VAR oIni&#58;FontBro ID 320 OF Odlg Update\n\n\n  REDEFINE BITMAP oBit&#91;14&#93; ID 330 RESOURCE &quot;FONT&quot; OF Odlg;\n          ON CLICK &#40;olbx1&#58;oFont&#58;=SelectFont&#40;&quot;B&quot;&#41;,;\n                    Colbro&#40;Olbx1&#41;,aEval&#40;odlg&#58;acontrols,&#123;|o|o&#58;Refresh&#40;&#41;&#125;&#41;,olbx1&#58;gotop&#40;&#41;&#41;\n\n  REDEFINE GET   oGet&#91;3&#93; VAR oIni&#58;nHeaderHeight ID 340  SPINNER MIN 20 MAX 60  PICTURE &quot;@Z 99&quot; OF Odlg;\n                 ON CHANGE &#40;oLbx1&#58;nHeaderHeight&#58;=oIni&#58;nHeaderHeight,oLbx1&#58;Refresh&#40;&#41;&#41; UPDATE\n\n  REDEFINE GET   oGet&#91;4&#93; VAR oInioIni&#58;nLineHeight  ID 350   SPINNER MIN 20 MAX 60  PICTURE &quot;@Z 99&quot; OF Odlg;\n                 ON CHANGE &#40;oLbx1&#58;nLineHeight &#58;= oIni&#58;nLineHeight, oLbx1&#58;refresh&#40;&#41;&#41; Update\n\n  REDEFINE GET   oGet&#91;5&#93; VAR oIni&#58;nFooterHeight ID 360  SPINNER MIN 20 MAX 60  PICTURE &quot;@Z 99&quot; OF Odlg;\n                 ON CHANGE &#40;oLbx1&#58;nFooterHeight &#58;= oIni&#58;nFooterHeight, oLbx1&#58;refresh&#40;&#41;&#41;  Update\n\n\n  // Get\'s\n\n\n  REDEFINE GET  oGet_&#91;1&#93; VAR xget1 ID 365  OF Odlg  Update\n  REDEFINE GET  oGet_&#91;2&#93; VAR xget2 ID 366  OF Odlg  Update\n\n    oGet_&#91;1&#93;&#58;oFont&#58;=TFont&#40;&#41;&#58;New&#40; oIni&#58;FonTGet, 0, -oIni&#58;FsizeGet,, oIni&#58;lBoldGet &#41;\n    oGet_&#91;2&#93;&#58;oFont&#58;=oGet_&#91;1&#93;&#58;oFont\n\n\n\n  REDEFINE BITMAP oBit&#91;15&#93; ID 380 OF Odlg ;\n          ON CLICK &#40;oIni&#58;cGotFocus&#58;=ChooseColor&#40;oIni&#58;cGotFocus&#41;,obit&#91;15&#93;&#58;SetColor&#40;,oIni&#58;cGotFocus&#41;,;\n                    obit&#91;15&#93;&#58;refresh&#40;&#41;,ACTIVAGET&#40;oGet_,oGet_&#91;1&#93;&#58;oFont&#41;&#41; Update\n\n  REDEFINE BITMAP oBit&#91;16&#93; ID 390 OF Odlg ;\n          ON CLICK &#40;oIni&#58;cLostFocus&#58;=ChooseColor&#40;oIni&#58;cLostFocus&#41;,obit&#91;16&#93;&#58;SetColor&#40;,oIni&#58;cLostFocus&#41;,;\n                    obit&#91;16&#93;&#58;refresh&#40;&#41;,ACTIVAGET&#40;oGet_,oGet_&#91;1&#93;&#58;oFont&#41;&#41; Update\n\n  REDEFINE GET   oGet&#91;6&#93; VAR oIni&#58;FontGet ID 391 OF Odlg  Update\n\n  REDEFINE BITMAP oBit&#91;17&#93; ID 400 RESOURCE &quot;FONT&quot; OF Odlg ;\n          ON CLICK &#40;oGet_&#91;1&#93;&#58;oFont&#58;=SelectFont&#40;&quot;G&quot;&#41;,oGet&#91;7&#93;&#58;Refresh&#40;&#41;,oGet_&#91;1&#93;&#58;Refresh&#40;&#41;,;\n                    oGet_&#91;2&#93;&#58;oFont&#58;=oGet_&#91;1&#93;&#58;oFont,oGet_&#91;2&#93;&#58;Refresh&#40;&#41;,ACTIVAGET&#40;oget_,oGet_&#91;1&#93;&#58;oFont&#41;,xGet1&#58;=&quot;Get Modficado&quot;,oGet_&#91;1&#93;&#58;Refresh&#40;&#41;,;\n                    oDlg&#58;Update&#40;&#41; &#41; Update\n\n\n\n   ColorBot&#40;oBit&#41;\n\n   ACTIVAGET&#40;oget_,oGet_&#91;1&#93;&#58;oFont&#41;\n\n\n\n  ACTIVATE DIALOG oDlg CENTER ON IniT &#40;BarraIni&#40;oDlg,oLbx1,oBit&#41;&#41;\n\n\n\nRETURN NIL\n\n// --------------------------------\n     FUNCTION SelectFont&#40;Cual&#41;\n// --------------------------------\n     LOCAL oFont\n     LOCAL oNewFont\n     LOCAL NameFont\n     LOCAL SizeFont\n     LOCAL BoldFont\n\n    IF Cual = &quot;B&quot;             // Browse\n        NameFont&#58;=oIni&#58;FontBro\n        SizeFont&#58;=oIni&#58;FSizebro\n        BoldFont&#58;=oIni&#58;lBoldbro\n    ENDIF\n\n   IF Cual = &quot;G&quot;           // Gets\n        NameFont&#58;=oIni&#58;FontGet\n        SizeFont&#58;=oIni&#58;FsizeGet\n        BoldFont&#58;=oIni&#58;lBoldGet\n     ENDIF\n\n    nFondo   &#58;=oIni&#58;nClrForeHead\n\n     IF BoldFont\n          DEFINE FONT oFont NAME NameFont ;\n                 SIZE 0,-Round&#40;SizeFont*13/10,0&#41; BOLD\n     ELSE\n          DEFINE FONT oFont NAME NameFont ;\n                 SIZE 0,-Round&#40;SizeFont*13/10,0&#41;\n     ENDIF\n\n     oFont&#58;Choose&#40;@nFondo&#41;\n\n     IF oFont&#58;cFaceName != NameFont &#46;OR&#46; ;\n        oFont&#58;lBold     != BoldFont &#46;OR&#46; ;\n        oFont&#58;nHeight   != -Round&#40;SizeFont*13/10, 0&#41;\n\n        NameFont&#58;=oFont&#58;cFaceName\n        SizeFont&#58;=Abs&#40;Int&#40;oFont&#58;nHeight*10/13&#41;&#41;\n        BoldFont&#58;=oFont&#58;lBold\n\n\n         IF Cual = &quot;B&quot;\n             oIni&#58;FontBro &#58;=oFont&#58;cFaceName\n             oIni&#58;FSizebro&#58;=Abs&#40;Int&#40;oFont&#58;nHeight*10/13&#41;&#41;\n             oIni&#58;lBoldbro&#58;=oFont&#58;lBold\n          ENDIF\n\n         IF Cual = &quot;G&quot;\n             oIni&#58;FontGet &#58;=oFont&#58;cFaceName\n             oIni&#58;FsizeGet&#58;=Abs&#40;Int&#40;oFont&#58;nHeight*10/13&#41;&#41;\n             oIni&#58;lBoldGet&#58;=oFont&#58;lBold\n          ENDIF\n\n         IF BoldFont\n               DEFINE FONT oNewFont NAME NameFont ;\n                 SIZE 0,-Abs&#40;Int&#40;oFont&#58;nHeight*10/13&#41;&#41; BOLD\n         ELSE\n              DEFINE FONT oNewFont NAME NameFont ;\n                 SIZE 0,-Abs&#40;Int&#40;oFont&#58;nHeight*10/13&#41;&#41;\n          ENDIF\n\n     ENDIF\n\n        oFont&#58;End&#40;&#41;\n\nRETURN &#40;oNewFont&#41; //NIL\n\n\n//--------------------------------------------------------------------------//\n  FUNCTION LeoIni&#40;cFile&#41;\n\n       INI oIni FILE &#40;cFile&#41;\n\n       // Browse\n\n          GET oIni&#58;nClrForeHead SECTION &quot;Browse Setup&quot;  ;\n          ENTRY  &quot;nClrForeHead&quot; DEFAULT &quot;0&quot;  OF oIni\n\n          GET oIni&#58;nClrBackHead SECTION &quot;Browse Setup&quot;  ;\n          ENTRY  &quot;nClrBackHead&quot; DEFAULT &quot;12632256&quot; OF oIni\n\n          GET oIni&#58;nClrFore     SECTION &quot;Browse Setup&quot;  ;\n          ENTRY  &quot;nClrFore&quot; DEFAULT &quot;0&quot; OF oIni\n\n          GET oIni&#58;nClrBack     SECTION &quot;Browse Setup&quot;  ;\n          ENTRY  &quot;nClrBack&quot; DEFAULT &quot;16777215&quot; OF oIni\n\n          GET oIni&#58;nClrForeFocus SECTION &quot;Browse Setup&quot;;\n          ENTRY  &quot;nClrForeFocus&quot; DEFAULT &quot;16777215&quot; OF oIni\n\n          GET oIni&#58;nClrBackFocus SECTION &quot;Browse Setup&quot;;\n          ENTRY  &quot;nClrBackFocus&quot; DEFAULT &quot;8404992&quot; OF oIni\n\n          GET oIni&#58;nClrNFBack   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;nClrNFBack&quot;    DEFAULT &quot;8421504&quot; OF oIni\n\n          GET oIni&#58;nClrNFFore   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;nClrNFFore&quot; DEFAULT &quot;16777215&quot; OF oIni\n\n          GET oIni&#58;nClrFFore   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;nClrFFore&quot;  DEFAULT &quot;0&quot; OF oIni\n\n          GET oIni&#58;nClrFBack   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;nClrFBack&quot;  DEFAULT &quot;12632256&quot; OF oIni\n\n          GET oIni&#58;Interlinea   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;Interlinea&quot;   DEFAULT &#46;F&#46; OF oIni\n\n          GET oIni&#58;Col1Interl   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;Col1Interl&quot;  DEFAULT &quot;16777215&quot; OF oIni\n\n          GET oIni&#58;Col2Interl   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;Col2Interl&quot;  DEFAULT &quot;16777215&quot;  OF oIni\n\n          GET oIni&#58;nLinestyle   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;nLinestyle&quot; DEFAULT &quot;3&quot; OF oIni\n\n          GET oIni&#58;nClrLine     SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;nClrline&quot;     DEFAULT &quot;12632256&quot; OF oIni\n\n          GET oIni&#58;lCellStyle   SECTION &quot;Browse Setup&quot; ;\n          ENTRY  &quot;lCellStyle&quot;  DEFAULT &#46;F&#46;  OF oIni\n\n          GET oIni&#58;FontBro      SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;Font Name&quot; DEFAULT &quot;Ms Sans Serif&quot; OF oIni\n\n          GET oIni&#58;FsizeBro     SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;Font Size&quot; DEFAULT 8 OF oIni\n\n          GET oIni&#58;lBoldBro     SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;Font Bold&quot; DEFAULT &#46;F&#46; OF oIni\n\n          GET oIni&#58;nHeaderHeight SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;nHeaderHeight&quot; DEFAULT 20 OF oIni\n\n          GET oIni&#58;nLineHeight  SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;nLineHeight&quot; DEFAULT 20 OF oIni\n\n          GET oIni&#58;nFooterHeight SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;nFooterHeight&quot; DEFAULT 20 OF oIni\n\n          // Say\n\n          GET oIni&#58;FontSay SECTION &quot;Say Setup&quot; ;\n          ENTRY &quot;FontSay&quot; DEFAULT &quot;Ms Sans Serif&quot; OF oIni\n\n          GET oIni&#58;FsizeSay  SECTION &quot;Say Setup&quot; ;\n          ENTRY &quot;FsizeSay&quot; DEFAULT 8 OF oIni\n\n          GET oIni&#58;lBoldSay  SECTION &quot;Say Setup&quot; ;\n          ENTRY &quot;lBoldSay&quot; DEFAULT &#46;F&#46; OF oIni\n\n          GET oIni&#58;nClrTSay SECTION &quot;Say Setup&quot;  ;\n          ENTRY  &quot;nClrTSay&quot; DEFAULT &quot;0&quot;  OF oIni\n\n          GET oIni&#58;nClrBSay SECTION &quot;Say Setup&quot;  ;\n          ENTRY  &quot;nClrBSay&quot; DEFAULT &quot;12632256&quot; OF oIni\n\n          // GET\n\n          GET oIni&#58;FontGet  SECTION &quot;Get Setup&quot; ;\n          ENTRY &quot;FontGet&quot;   DEFAULT &quot;Ms Sans Serif&quot; OF oIni\n\n          GET oIni&#58;FsizeGet  SECTION &quot;Get Setup&quot; ;\n          ENTRY &quot;FsizeGet&quot;   DEFAULT 8 OF oIni\n\n          GET oIni&#58;lBoldGet  SECTION &quot;Get Setup&quot; ;\n          ENTRY &quot;lBoldGet&quot;    DEFAULT &#46;F&#46; OF oIni\n\n          GET oIni&#58;cGotFocus SECTION &quot;Get Setup&quot;  ;\n          ENTRY  &quot;cGotFocus&quot;  DEFAULT &quot;12632256&quot;  OF oIni\n\n          GET oIni&#58;cLostFocus SECTION &quot;Get Setup&quot;  ;\n          ENTRY  &quot;cLostFocus&quot; DEFAULT &quot;16777215&quot; OF oIni\n\n       // Convertimos los Colores a Valores Numericos\n\n          oIni&#58;nClrForeHead  &#58;=Val&#40;oIni&#58;nClrForeHead&#41;\n          oIni&#58;nClrBackHead  &#58;=Val&#40;oIni&#58;nClrBackHead&#41;\n          oIni&#58;nClrFore      &#58;=Val&#40;oIni&#58;nClrFore&#41;\n          oIni&#58;nClrBack      &#58;=Val&#40;oIni&#58;nClrBack&#41;\n          oIni&#58;nClrForeFocus &#58;=Val&#40;oIni&#58;nClrForeFocus&#41;\n          oIni&#58;nClrBackFocus &#58;=Val&#40;oIni&#58;nClrBackFocus&#41;\n          oIni&#58;nClrNFBack    &#58;=Val&#40;oIni&#58;nClrNFBack&#41;\n          oIni&#58;nClrNFFore    &#58;=Val&#40;oIni&#58;nClrNFFore&#41;\n          oIni&#58;nClrFFore     &#58;=Val&#40;oIni&#58;nClrFFore&#41;\n          oIni&#58;nClrFBack     &#58;=Val&#40;oIni&#58;nClrFBack&#41;\n          oIni&#58;Col1Interl    &#58;=Val&#40;oIni&#58;Col1Interl&#41;\n          oIni&#58;Col2Interl    &#58;=Val&#40;oIni&#58;Col2Interl&#41;\n          oIni&#58;nlinestyle    &#58;=VAl&#40;oIni&#58;nlinestyle&#41;\n          oIni&#58;nClrLine      &#58;=Val&#40;oIni&#58;nClrLine&#41;\n          oIni&#58;nClrTSay      &#58;=Val&#40;oIni&#58;nClrTSay&#41;\n          oIni&#58;nClrBSay      &#58;=Val&#40;oIni&#58;nClrBSay&#41;\n          oIni&#58;cGotFocus     &#58;=Val&#40;oIni&#58;cGotFocus&#41;\n          oIni&#58;cLostFocus    &#58;=Val&#40;oIni&#58;cLostFocus&#41;\n\n     ENDINI\n\n\nRETURN NIL\n\n// -----------------------------------------------\n        Function GraboIni&#40;cFile&#41;\n// -----------------------------------------------\n\n     LOCAL oIni\n\n        INI oIni FILE  &#40;cFile&#41;\n\n        // BROWSE\n\n          SET SECTION  &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrForeHead&quot; TO oIni&#58;nClrForeHead OF oIni\n\n          SET SECTION  &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrBackHead&quot; TO oIni&#58;nClrBackHead OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrFore&quot; TO oIni&#58;nClrFore OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrBack&quot; TO  oIni&#58;nClrBack OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrForeFocus&quot; TO  oIni&#58;nClrForeFocus OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrBackFocus&quot; TO  oIni&#58;nClrBackFocus OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrNFBack&quot;  TO  oIni&#58;nClrNFBack  OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrNFFore&quot; TO  oIni&#58;nClrNFFore OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrFFore&quot; TO oIni&#58;nClrFFore OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrFBack&quot; TO oIni&#58;nClrFBack OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;Interlinea&quot;  TO oIni&#58;Interlinea OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;Col1Interl&quot;  TO  oIni&#58;Col1Interl OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;Col2Interl&quot;  TO oIni&#58;Col2Interl OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nLinestyle&quot; TO oIni&#58;nLinestyle OF oIni\n\n          SET SECTION &quot;Browse Setup&quot;;\n          ENTRY &quot;nClrline&quot;  TO oIni&#58;nClrLine OF oIni\n\n          SET SECTION  &quot;Browse Setup&quot;;\n          ENTRY &quot;lCellStyle&quot;  TO oIni&#58;lCellStyle OF oIni\n\n          SET SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;Font Name&quot; TO   oIni&#58;FontBro OF oIni\n\n          SET SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;Font Size&quot; TO oIni&#58;FsizeBro OF oIni\n\n          SET SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;Font Bold&quot; TO oIni&#58;lBoldBro OF oIni\n\n          SET SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;nHeaderHeight&quot; TO oIni&#58;nHeaderHeight OF oIni\n\n          SET SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;nLineHeight&quot; TO oIni&#58;nLineHeight OF oIni\n\n          SET SECTION &quot;Browse Setup&quot; ;\n          ENTRY &quot;nFooterHeight&quot; TO oIni&#58;nFooterHeight OF oIni\n\n\n          // Say\n\n          SET SECTION  &quot;Say Setup&quot;;\n          ENTRY &quot;FontSay&quot;   TO  oIni&#58;FontSay OF oIni\n\n          SET SECTION &quot;Say Setup&quot;;\n          ENTRY &quot;FsizeSay&quot;  TO  oIni&#58;FsizeSay OF oIni\n\n          SET SECTION &quot;Say Setup&quot;;\n          ENTRY &quot;lBoldSay&quot;  TO  oIni&#58;lBoldSay OF oIni\n\n          SET SECTION &quot;Say Setup&quot;;\n          ENTRY  &quot;nClrTSay&quot; TO oIni&#58;nClrTSay OF oIni\n\n          SET SECTION &quot;Say Setup&quot;;\n          ENTRY  &quot;nClrBSay&quot; TO oIni&#58;nClrBSay OF oIni\n\n          // GET\n\n          SET SECTION &quot;Get Setup&quot;;\n          ENTRY &quot;FontGet&quot; TO  oIni&#58;FontGet OF oIni\n\n          SET SECTION  &quot;Get Setup&quot;;\n          ENTRY &quot;FsizeGet&quot; TO  oIni&#58;FsizeGet OF oIni\n\n          SET SECTION  &quot;Get Setup&quot;;\n          ENTRY &quot;lBoldGet&quot; TO  oIni&#58;lBoldGet OF oIni\n\n          SET SECTION &quot;Get Setup&quot;;\n          ENTRY  &quot;cGotFocus&quot;  TO oIni&#58;cGotFocus OF oIni\n\n          SET SECTION &quot;Get Setup&quot;;\n          ENTRY  &quot;cLostFocus&quot; TO  oIni&#58;cLostFocus OF oIni\n\n     ENDINI\n\n           LeoIni&#40;cFile&#41;\nRETURN NIL\n\n// -----------------------------------------------\n        Function Colbro&#40;Olbx&#41;\n// -----------------------------------------------\n   /* Esta es la Funcion que ejecuta todos los\n      cambios necesarios para configurar su\n      Browse de acuerdo al contenido de su Ini&#46;\n\n      Esta sera llamada cada vez que uste haga\n      un nuevo browse&#46; /*\n\n   /* Configuramos el Browse de Acuerdo a los parametros\n       del Ini */\n\n\n\n   /* colores del titulo de la columnas */\n\n   oLbx&#58;nClrForeHead &#58;=oIni&#58;nClrForeHead\n   oLbx&#58;nClrBackHead &#58;=oIni&#58;nClrBackHead\n\n    /*Colores del Cuerpo */\n\n   oLbx&#58;SetColor&#40; oIni&#58;nClrFore,oIni&#58;nClrBack&#41;\n\n    /* Color de la Barra */\n\n   oLbx&#58;nClrForeFocus&#58;=oIni&#58;nClrForeFocus\n   olbx&#58;nClrBackFocus&#58;=oInioIni&#58;nClrBackFocus\n\n  // Para la  Barra Cuando no esta Seleciona\n\n     Olbx&#58;nClrNFBack&#58;=Ini&#58;nClrNFBack // nrgb&#40;136,132,136&#41;\n     oLbx&#58;nClrNFFore&#58;=oIni&#58;nClrNFFore // nrgb&#40;255,255,255&#41;\n\n\n // Para los Footers\n\n     oLbx&#58;nClrFFore&#58;=oIni&#58;nClrFFore\n     oLbx&#58;nClrFBack&#58;=oIni&#58;nClrFBack\n\n    /* Estilo de las Lineas */\n\n   olbx&#58;nlinestyle   &#58;=oIni&#58;nlinestyle\n\n   /* Color de las Lineas */\n\n   oLbx&#58;nClrLine  &#58;=oIni&#58;nClrLine\n\n  If oIni&#58;interLinea\n      oLbx&#58;nClrPane  &#58;=&#123;|| SelColor&#40;olbx&#41; &#125;\n  Endif\n\n    Olbx&#58;lCellStyle   &#58;= oIni&#58;lCellStyle\n    oLbx&#58;nHeaderHeight&#58;= oIni&#58;nHeaderHeight\n    oLbx&#58;nLineHeight  &#58;= oIni&#58;nLineHeight\n    oLbx&#58;nFooterHeight&#58;= oIni&#58;nFooterHeight\n\n\n    oLbx&#58;lAdjBrowse&#58;=&#46;T&#46;\n\n    oLbx&#58;oFont&#58;=TFont&#40;&#41;&#58;New&#40; oIni&#58;FontBro, 0, -oIni&#58;Fsizebro,, oIni&#58;lBoldBro &#41;\n\n    olbx&#58;Refresh&#40;&#41;\n\n   Return NIL\n\n\n// -----------------------------------------------\n        STATIC Function Selcolor&#40;oLbx&#41;\n// -----------------------------------------------\n  /* Funcion Para Interlineado de Colores */\n\n   If olbx&#58;cAlias = &quot;Array&quot;\n      x&#58;=olbx&#58;nAt/2\n      y&#58;=Int&#40;x&#41;\n      Z&#58;=x-y\n   Else\n      x&#58;=&amp;&#40;oLbx&#58;cAlias&#41;-&gt;&#40;ordKeyNo&#40;&#41;&#41; / 2\n      y&#58;=Int&#40;x&#41;\n      Z&#58;=x-y\n    Endif\n\n    IF Z = 0\n      nClr &#58;=oIni&#58;Col1Interl\n    Else\n      nClr &#58;=oIni&#58;Col2Interl\n    Endif\n\n   Return nClr\n\n//---------------------------------------------------\n  /*\n    Esta Funcion activa los controles del array aTable\n    dandole un trato especial a los objetos get   */\n\n   FUNCTION ACTIVAGET&#40;aTable,oFont&#41;\n\n//---------------------------------------------------\n\n aEval&#40; aTable,&#123;|o|o&#58;Enable&#40;&#41;,iif&#40;o&#58;classname==&quot;TGET&quot;,ColGet&#40;o,oFont&#41;,&#41;,;\n                   IIF&#40;o&#58;classname&lt;&gt;&quot;TRADMENU&quot;,o&#58;Refresh&#40;&#41;,&#41; &#125; &#41;\n\nReturn aTable\n\n\n//---------------------------------------------------\n    Function ColGet&#40;oGet,oFont&#41;\n//---------------------------------------------------\n  /*\n     cambiar el Color de los Gets y la da el Font del Ini*/\n\n   Local nClrFocusText     &#58;=nRGB&#40;0,0,0&#41;\n\n   oGet&#58;bGotFocus    &#58;=&#123;|| &#40;oGet&#58;Setpos&#40;1&#41;,oGet&#58;SetColor&#40;nClrFocusText,Ini&#58;cGotFocus&#41;&#41;&#125;\n   oGet&#58;bLostFocus   &#58;=&#123;|| oGet&#58;SetColor&#40;nClrFocusText,Ini&#58;cLostFocus&#41;&#125;\n\n   oGet&#58;SetFont&#40;oFont&#41;\n\n  Return &#46;T&#46;\n\n\n// --------------------------\n    CLASS TApplication\n// --------------------------\n\n   // colores del titulo de la columnas //\n\n     DATA nClrForeHead\n     DATA nClrBackHead\n\n   // Colores del Cuerpo y Texto\n     DATA nClrFore\n     DATA nClrBack\n\n\n   // Color de la Barra //\n\n     DATA nClrForeFocus\n     DATA nClrBackFocus\n\n  // Para la  Barra Cuando no esta Seleciona\n\n     DATA nClrNFBack\n     DATA nClrNFFore\n\n  // Para los Footers\n\n     DATA nClrFFore\n     DATA nClrFBack\n\n  // Color del Interlineado de Filas\n\n     DATA InterLinea       // Interlineado de Colores  &#46;T&#46; o &#46;F&#46;\n     DATA Col1Interl        // Color Interlineado 1\n     DATA Col2Interl        // Color Interlineado 2\n\n  //  Estilo de las Lineas Separadoras //\n\n     DATA nlinestyle\n\n  //  Color de las Lineas separadoras //\n\n     DATA nClrLine\n\n   // Caracteristicas del Browse\n\n     DATA lCellStyle        // Estilo de Celdas &#46;T&#46; o &#46;F&#46;\n\n  //  Varias //\n     DATA FontBro        // Font del Bro\n     DATA FsizeBro       // Size del Font\n     DATA lBoldBro       // Bold &#46;T&#46; o &#46;F&#46;\n     DATA nHeaderHeight  // Alto de las Cabeceras\n     Data nFooterHeight  // Alto de los Footers\n     DATA nLineHeight    // alto de la Linea de Registro del Browse\n     DATA lAdjLastCol    // Estirar la Ultima Columna\n     DATA lAdjBrowse     // Ajustar el Browse Hasta el Final del Control\n\n\n//   Say\n\n     DATA FontSay\n     DATA FsizeSay\n     DATA lBoldSay\n     DATA nClrTSay\n     DATA nClrBSay\n\n\n//   GET\'S\n\n     DATA FontGet\n     DATA FsizeGet\n     DATA lBoldGet\n     DATA cgotFocus\n     DATA cLostFocus\n\n\n   // Ruta del Ini Default\n     DATA cFile       INIT Curdrive&#40;&#41;+&quot;&#58;\\&quot;+GetCurDir&#40;&#41;+&quot;\\Default&#46;ini&quot;\n\n\nENDCLASS\n\n\n//----------------------------------------------------------------------------//\n   Function Open_save&#40;nOpcion,oLbx1,oBit&#41;\n//----------------------------------------------------------------------------//\n   Local cFile\n\n   If nOpcion=1 // Abrir\n    cFile  &#58;= cGetFile&#40; &quot;Archivi Ini &#40;*&#46;ini&#41; | *&#46;ini |&quot; + ;\n                           &quot;Tutti i files &#40;*&#46;*&#41; | *&#46;* |&quot;,;\n                           &quot;Selezione Archivo ini per aprire &quot;,1&#41;\n\n   Else\n     cFile  &#58;= cGetFile&#40; &quot;Archivi Ini &#40;*&#46;ini&#41; | *&#46;ini |&quot; + ;\n                           &quot;Tutti i files &#40;*&#46;*&#41; | *&#46;* |&quot;,;\n                           &quot;Salvare Archivo ini&quot;,1,,&#46;T&#46;&#41;\n   Endif\n\n   If !Empty&#40;cFile&#41; &#46;And&#46; nOpcion=1\n       oIni&#58;cFile&#58;=cFile\n       LeoIni&#40;cFile&#41;\n       Colbro&#40;olbx1&#41;\n   Endif\n\n   If !Empty&#40;cFile&#41; &#46;And&#46; nOpcion=2\n       oIni&#58;cFile&#58;=cFile\n       GraboIni&#40;cFile&#41;\n       LeoIni&#40;cFile&#41;\n       Colbro&#40;olbx1&#41;\n   Endif\n\n   ColorBot&#40;oBit&#41;\n\n\n\n   Return NIL\n// -----------------------------------\n      Function ColorBot&#40;oBit&#41;\n// -----------------------------------\n\n   oBit&#91;1&#93;&#58;SetColor&#40;,oIni&#58;nClrForeHead&#41;\n   obit&#91;2&#93;&#58;SetColor&#40;,oIni&#58;nClrBackHead&#41;\n   obit&#91;3&#93;&#58;SetColor&#40;,oIni&#58;nClrFore&#41;\n   obit&#91;4&#93;&#58;SetColor&#40;,oInioi&#58;nClrBack&#41;\n   obit&#91;5&#93;&#58;SetColor&#40;,oIni&#58;nClrForeFocus&#41;\n   obit&#91;6&#93;&#58;SetColor&#40;,oIni&#58;nClrNFFore&#41;\n   obit&#91;7&#93;&#58;SetColor&#40;,oIni&#58;nClrBackFocus&#41;\n        obit&#91;8&#93;&#58;SetColor&#40;,oIni&#58;nClrNFBack&#41;\n   obit&#91;9&#93;&#58;SetColor&#40;,oIni&#58;nClrFFore&#41;\n   obit&#91;10&#93;&#58;SetColor&#40;,oIni&#58;nClrFBack&#41;\n   obit&#91;11&#93;&#58;SetColor&#40;,oIni&#58;Col1Interl&#41;\n   obit&#91;12&#93;&#58;SetColor&#40;,oIni&#58;Col2Interl&#41;\n   obit&#91;13&#93;&#58;SetColor&#40;,oIni&#58;nClrLine&#41;\n        oBit&#91;15&#93;&#58;SetColor&#40;,oInioIni&#58;cGotFocus&#41;\n        oBit&#91;16&#93;&#58;SetColor&#40;,oIni&#58;cLostFocus&#41;\n\nReturn NIL\n\n\n\n// ----------------------------- //\n    FUNCTION GetSysFont&#40;&#41;\n// ----------------------------- //\n\n   RETURN &quot;Ms Sans Serif&quot;\n\n\n\n//--------------------------------------------------------------------------//\n   FUNCTION BarraINI&#40;oWnd,oLbx1,oBit&#41;\n\n   Local oBar\n   Local oBot&#58;=Array&#40;3&#41;\n\n\n   DEFINE BUTTONBAR oBar 3D SIZE 26, 27  OF oWnd\n\n   DEFINE BUTTON oBot&#91;1&#93; RESOURCE &quot;Abrir&quot; OF oBar NOBORDER;\n          TOOLTIP &quot;Abrir Ini&quot;                          ;     // ** OJO **\n          ACTION  &#40;Open_Save&#40;1,oLbx1,oBit&#41;,oWnd&#58;Update&#40;&#41;&#41;      // No se Olvide colocar a todos los controles UPDATE\n                                                               // Para que Funcione el oWnd&#58;Update&#40;&#41;\n   DEFINE BUTTON oBot&#91;2&#93; RESOURCE &quot;Save&quot; OF oBar NOBORDER;\n          TOOLTIP &quot;Guardar ini&quot;                  ;\n          ACTION  &#40;Open_Save&#40;2,oLbx1,oBit&#41;,oWnd&#58;Update&#40;&#41;&#41;\n\n   DEFINE BUTTON oBot&#91;3&#93; RESOURCE &quot;Exit2&quot; OF oBar  GROUP NOBORDER;\n          TOOLTIP &quot;Salir&quot;                           ;\n          ACTION OWnd&#58;End&#40;&#41;\n\n    oBar&#58;bRClicked &#58;= &#123;|| NIL &#125;\n    oBar&#58;bLClicked &#58;= &#123;|| NIL &#125;\n\n    RETURN oBar\n\n\n\n[/code:17a9lhd2]','',0,'AIA=','17a9lhd2',1,0,'',49,0,0),(10049,2356,6,49,0,'87.7.179.24',1143157834,1,0,1,1,1,1,'','','Rossine,\nHow have create light header to wbrowse ?\n\nRegards','',0,'AIA=','h9mqczl5',1,0,'',49,0,0),(10050,2359,6,54,0,'201.137.90.144',1143158871,1,0,1,1,1,1,'','Re: clear SAY? how?','[quote=&quot;syda&quot;:3g7p0eys]Hello,\n\n     How I make to clean some SAYS in a DIALOG? I am making this:\n\n    @ 10,20 SAY OSAY VAR \' MY TEXT \' OF ODLG UPDATE\n    .\n    .\n    .\n    ODLG:UPDATE()\n    \n    This command is cleaning the GETs but the SAYs is not cleaning.\n\nMany thanks[/quote:3g7p0eys]\n\nYo lo hago de l siguiente manera:\n\n@ 10,20 oSay PROMPT \"Mi texto\" OF oDlg UPDATE\n\nsin problemas.','',0,'gA==','3g7p0eys',1,0,'',54,0,0),(10051,2360,6,93,0,'201.137.88.121',1143159404,1,0,1,1,1,0,'','MS-SQL','Hola al foro. Despuès de un rato de no andar por aqui llego con una pregunta. Alguien tiene un ejemplo de cómo trabajar con SQL? ya sea ADO, ODBC o lo que sea. \n\nLe agradeceré mucho la ayuda.\n\nSaludos!!\n\nGFCG','',0,'gA==','htwjk75p',1,0,'',93,0,0),(10052,2361,3,69,0,'65.92.155.204',1143160223,1,0,1,1,1,0,'','BUTTON question','Hi Everybody,\n\nI am trying (without success) to manipulate a button.\n\nI want to have a counter on the button and update it every time it is pressed.\n\nThis is an example:\n\n@ 1,1 BUTTON oBtnLap PROMPT \"LAP + (\"+alltrim(str(nLapCounter))+\")\"  SIZE 50,25 of oDlg1 FONT oFontSmall UPDATE Action (nLapCounter++, TONE(440,1),oDlg1:Update())\n\nCan someone please help.\n\nThanks,\nJeff','',0,'gA==','1qesoidb',1,0,'',69,0,0),(10053,2357,6,492,0,'201.127.104.234',1143160921,1,0,1,1,1,0,'','','Hola\n\nDespues de varias pruebas mas, ya verifique que si genera el archivo de texto, solo que no muestra el nuevo contenido.\n\nEstoy usando la clase TWBROWSE de Hernan para visualizarlo, con el metodo lbXXX:SetTXT()\n\nlo unico que me haria falta, seria algo asi :  lbXXX:SetTXT():Reload()\n\nLe seguire buscando, seguro es algo que se me esta escapando.\n\n\nGracias a todos','',0,'gA==','2xi3osyr',1,0,'',492,0,0),(10054,2356,6,73,0,'201.145.74.184',1143162638,1,0,1,1,1,0,'','','Rossine, como hiciste para poder juntar theader y wbrowse, puedes poner el ejemplo? si modificaste la clase me la pudieras enviar?\nsaludos\nPako','',0,'gA==','1rgx6hfh',1,0,'',73,0,0),(10055,2318,6,496,0,'200.107.36.176',1143162985,1,0,1,1,1,0,'','','Tambien puedes probar NSIS de nullsoft, es open source y va bien. Lo puedes bajar de [url:3omr6ck2]http&#58;//nsis&#46;sourceforge&#46;net[/url:3omr6ck2].\n\nUn saludo\n\nMarcelo Jingo','',0,'EA==','3omr6ck2',1,0,'',496,0,0),(10056,2353,3,190,0,'202.65.134.27',1143168933,1,0,1,1,1,0,'','','Mr.james\n\nThank you for your attention.\n\nCan you kindly give me any working sample.\n\nRegards\n\n- Ramesh Babu P','',0,'EA==','31u2nb85',1,0,'',190,0,0),(10057,2362,3,160,0,'220.227.133.213',1143182738,1,0,1,1,1,0,'','How to enforce all Validations','Hello All,\n\nI have few Redefine Get with Valid clause on a Dialog. User can directly click on Ok button and skip all the valid clause ? \n\nHow can I prevent this ?\n\nTIA\nMilan.','',0,'EA==','155yt40s',1,0,'',160,0,0),(10058,2363,3,160,0,'220.227.133.213',1143182987,1,0,1,1,1,0,'','Any volunteer to check my ActiveX Control with March build ?','Hello Everybody,\n\nI have an ActiveX control demo version. At present I use Nov-2005 build. I have been told that it should work with Mar-2006 build. If that works I am planning to buy that activeX control and Mar-2006 build.\n\nCan anybody Mar-2006 build user help me ? I can send the control on their private mail.\n\nTIA\nMilan.','',0,'EA==','12uyui09',1,0,'',160,0,0),(10059,2351,7,2,0,'87.218.146.103',1143183376,1,0,1,1,1,1,'','','Jose, Javier,\n\nDescargad estos bitmaps y reemplazadlos por sus equivalentes:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/017661f593/bitmaps.zip.html\">http://hyperupload.com/download/017661f ... s.zip.html</a><!-- m -->','',0,'EA==','tafl96l6',1,0,'',2,0,0),(10060,2362,3,190,0,'202.65.134.27',1143184874,1,0,1,1,1,0,'','','Hi Mr.Mehta\n\nDo not use CANCEL clause with the BUTTON if you want all gets to be validated and vice-versa in case GETs are not be validated, when any \nBUTTON is pressed/clicked.\n\n- Ramesh Babu P','',0,'EA==','3479nsyc',1,0,'',190,0,0),(10061,2361,3,190,0,'202.65.134.27',1143185533,1,0,1,1,1,0,'','','Mr.Jeff\n\nHere is the solution.\n\n\n@ 1,1 BUTTON oBtnLap PROMPT \"LAP + (\"+alltrim(str(nLapCounter))+\")\" SIZE 50,25 of oDlg1 FONT oFontSmall UPDATE Action (nLapCounter++, TONE(440,1),oBtnLap:SetText(\"LAP (\"+alltrim(str(nCounter))+\")\")oBtnLap:Refresh()) \n\nRegards,\n\n- Ramesh Babu P','',0,'EA==','32sabhrz',1,0,'',190,0,0),(10062,2343,3,2,0,'87.218.146.103',1143185551,1,0,1,1,1,1,'','','Dale,\n\nPlease try it again with the libraries that we are emailing you. Here it builds and runs ok.\n\nAlso, you need to replace xHB Activex.lib with this one (from the xHB demo):\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d7a0b673/ActiveX.lib.html\">http://hyperupload.com/download/01d7a0b ... X.lib.html</a><!-- m -->\n\nAlso you need to have a flash file named c:\\works.swf (rename any flash file you may have like that).','',0,'EA==','1r16aytm',1,0,'',2,0,0),(10063,2322,7,449,0,'212.64.224.244',1143185577,1,0,1,1,1,0,'','','Hola mamartin,\n\nGracias por tu respuesta. Voy a intentar experimentar hoy, pero tengo unas cuantas dudas conceptuales:\n\n1.- Se imprime directamente a una impresora q tiene dispositivo bluetooth, o al ordenador via bluetooth y usando una de sus impresoras asignadas ?  (joder, quizas he dicho alguna tonteria  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> )\n\n2.- Como se configura los puertos en la Pocket ?\n\n\nBiel,\n\nYo no tengo ni idea \'aun\' para el manejo via bluetooth, pero al igual se deberia \'simular\' un eject para forzar el vaciado del buffer (joder, me parece q la he vuelto a cargar...   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> )\n\n\nVenga, saludos  y gracias a todos. A ver si conseguimos controlar este tema.\nC.','',0,'EA==','3s7a0x6c',1,0,'',449,0,0),(10064,2362,3,67,0,'62.235.24.170',1143185731,1,0,1,1,1,0,'','','You can make a construction as :\n\nLOKAL lok := .T.\nAeval(oDlg:aControls,{|j|lok := lok .AND. EVAL(j:bValid)})\n\nIF lOk is .F. , at least one valid clausule hes returned .F.\n\nFrank','',0,'EA==','siqa6d2e',1,0,'',67,0,0),(10065,2342,3,2,0,'87.218.146.103',1143185923,1,0,1,1,1,1,'','','Silvio,\n\nWe have helped you to compile it, now its your work to test/debug it.','',0,'EA==','21ovkeiv',1,0,'',2,0,0),(10066,2332,3,2,0,'87.218.146.103',1143185987,1,0,1,1,1,1,'','','Ramesh,\n\nJames advise is right, as usual <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','2oa9iqd6',1,0,'',2,0,0),(10067,2273,3,2,0,'87.218.146.103',1143186713,1,0,1,1,1,1,'','','Ehab,\n\nPlease change CreateObject() into CreateOleObject()','',0,'EA==','32jyhhxa',1,0,'',2,0,0),(10068,2364,3,419,0,'198.54.202.210',1143186761,1,0,1,1,1,0,'','Changing Foreground and Background Colors of ComboBox','Good Morning,\n\nI have tried evey possible combination of color settings (I think) but I cannot get the colors of my ComboBoxes right.\n\nEverywhere in my system (for Get\'s) I use:\n\nReDefine Get ... Color CLR_BLUE\n\nand this works perfectly BUT\n\nReDefine ComboBox ... Color CLR_BLUE Items ...\n\ndoes nothing i.e. the text display is still Black.\n\nI just need to change the foreground or text color to the same blue as the text of the gets but every time I try to add different color settings like:\n\nReDefine ComboBox ... Color CLR_BLUE, CLR_BLACK Items ...\n\nor something like that I just don\'t seem to be able to change ONLY the foreground text color i.e. I seem to manage to make the while thing unreadable.\n\nAny ideas?\n\nRegards,\n\nDale.','',0,'EA==','33af1vud',1,0,'',419,0,0),(10069,2354,3,2,0,'87.218.146.103',1143186786,1,0,1,1,1,1,'','','Wanderson,\n\nNo, its not implemented yet.','',0,'EA==','lbhflk1h',1,0,'',2,0,0),(10070,2364,3,6,0,'82.57.161.139',1143186910,1,0,1,1,1,1,'','Re: Changing Foreground and Background Colors of ComboBox','Use SetColor() method.\n\nEMG','',0,'EA==','2jrbv1hb',1,0,'',6,0,0),(10071,2364,3,2,0,'87.218.146.103',1143187028,1,0,1,1,1,1,'','','Dale,\n\nIs it a dropdown or a dropdownlist combobox ?\n\nIf it has an editable get then it is dropdown.','',0,'EA==','3cc9qjtm',1,0,'',2,0,0),(10073,2364,3,419,0,'196.25.255.194',1143187298,1,0,1,1,1,0,'','','Hello,\n\nThat was quick!\n\nEnrico: SetColor( ) to what?\n\nAntonio: It does not have an editable get.\n\nThanks,\n\nDale.','',0,'EA==','1junatzp',1,0,'',419,0,0),(10074,2348,3,2,0,'87.218.146.103',1143187322,1,0,1,1,1,1,'','','Paul,\n\nYou have to rename ATCBRWPOSR() into ATCBRWPOSRECT()','',0,'EA==','2pw9etkr',1,0,'',2,0,0),(10075,2343,3,419,0,'198.54.202.226',1143187506,1,0,1,1,1,0,'','','Thanks again,\n\nI did get your email and will try it.\n\nPlease don\'t spend too much time on this for me though - I am just trying to find out what all this talk about ActiveX and FiveWin is about.\n\nI was just trying to compile \\FWH\\SAMPLES\\FLASH.PRG to see what the heck it actually does and what it is used for.\n\nThanks again,\n\nDale.','',0,'EA==','549bc3qr',1,0,'',419,0,0),(10076,2364,3,6,0,'82.57.161.139',1143187717,1,0,1,1,1,1,'','','oCbx:SetColor( CLR_RED, CLR_GREEN )\n\nEMG','',0,'EA==','19fclv9b',1,0,'',6,0,0),(10077,2351,7,498,0,'213.97.9.239',1143187720,1,0,1,1,1,1,'','','Fue perfecto Antonio.\n\nMuchas Gracias.','',0,'EA==','1bkhviw4',1,0,'',498,0,0),(10078,2364,3,2,0,'87.218.146.103',1143187950,1,0,1,1,1,1,'','','Dale,\n\nWhen you use:\n\nREDEFINE COMBOBOX ... COLOR ...\n\nthat color is used when the combobox has no focus (for a dropdownlist combobox as you are using). When focused, the used color is the system color for selected items (right click on the desktop, properties, appareance, selected items).','',0,'EA==','2v3qwir5',1,0,'',2,0,0),(10079,2343,3,2,0,'87.218.146.103',1143188257,1,0,1,1,1,1,'','','Dale,\n\nBetter review samples\\webexp.prg. It shows how to display a webpage from within your application and does not need a flash file.','',0,'EA==','3u94jhb1',1,0,'',2,0,0),(10080,2343,3,2,0,'87.218.146.103',1143188396,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:v8m08zz0][img:v8m08zz0]http&#58;//img71&#46;imageshack&#46;us/img71/1830/webexp5pl&#46;png[/img:v8m08zz0][/url:v8m08zz0]','',0,'GA==','v8m08zz0',1,0,'',2,0,0),(10082,2323,1,2,0,'87.218.146.103',1143188829,1,0,1,1,1,1,'','','Vladimir,\n\nIt looks ok to me, as there is an undefined function in the expression.','',0,'GA==','1rktzggb',1,0,'',2,0,0),(10083,2358,1,2,0,'87.218.146.103',1143188936,1,0,1,1,1,1,'','','It is not implemented yet. We plan to implement it for a next build.','',0,'GA==','3f690sqb',1,0,'',2,0,0),(10084,2346,6,2,0,'87.218.146.103',1143189422,1,0,1,1,1,1,'','','Joaquín,\n\nEs un bug que se introdujo en ese build. Te enviamos por email las librerías corregidas.','',0,'GA==','2ffu5k1g',1,0,'',2,0,0),(10085,2365,20,29,0,'81.174.23.40',1143189752,1,0,1,1,1,0,'','Problema di accesso ai dati del registro di windows','Salve,\nsto utilizzando la classe tsysinfo per ottenere alcune informazioni sull\'hardware della macchina.\n\nLa cosa strana è che queste informazioni mi vengono restituire solo se ho un accesso Administrator al computer. Se accedo al computer come Guest queste informazioni non mi vengono fornite.\n\nLa cosa strana è che accedendo come Guest posso comunque vedere queste informazioni dal Regedit.\n\nHo fatto un piccolo self-contained che mostra il problema su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/sample.prg\">www.softwarexp.co.uk/beta/sample.prg</a><!-- w -->\n\nQualche suggerimento ?\n\nGrazie in anticipo.\n\nMarco Turco','',0,'GA==','29r1p6yu',1,0,'',29,0,0),(10086,1995,16,498,0,'213.97.9.239',1143189833,1,0,1,1,1,1,'','','Hola Antonio, en las novedades haces referencia a varios prg\'s.  Yo no encuentro los siguientes:\n\n\\samples\\evans.prg\n\\samples\\testdbc1.prg\n\\samples\\testrtf.prg\n\\samples\\testvide.prg\n\nHice la descarga de la última actualizacion, el dia 20-Marzo, a las 18:43\n\nUn saludo','',0,'GA==','365avt45',1,0,'',498,0,0),(10087,2352,6,2,0,'87.218.146.103',1143189858,1,0,1,1,1,1,'','','Joaquín,\n[code:d1qce9vc]\n#include &quot;Fivewin&#46;ch&quot;\n#include &quot;richedit&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cText &#58;= &quot;Esto es una prueba&quot;\n   local hRichDLL &#58;= LoadLibrary&#40; &quot;riched20&#46;dll&quot; &#41;\n    \n   DEFINE DIALOG oDlg SIZE 300, 200\n\n   @ 1, 1 RICHEDIT cText SIZE 140, 80\n\n   ACTIVATE DIALOG oDlg CENTERED\n   \n   FreeLibrary&#40; hRichDLL &#41;\n\nreturn nil\n[/code:d1qce9vc]\nUsa las librerías que te hemos enviado por email.','',0,'AIA=','d1qce9vc',1,0,'',2,0,0),(10089,2343,3,419,0,'198.54.202.210',1143190173,1,0,1,1,1,0,'','','Thanks a lot,\n\nThats neat.\n\nRegards,\n\nDale.','',0,'AIA=','vuq657uf',1,0,'',419,0,0),(10090,1732,6,2,0,'87.218.146.103',1143190183,1,0,1,1,1,1,'','','De momento la única solución es actualizarse al build más reciente de FWH (marzo 2006), ya que debido a unos cambios internos en xharbour, los builds de FWH anteriores no son compatibles.\n\nNosotros tenemos que mantener compatibilidad con los nuevos builds de Harbour y xharbour, y desafortunadamente estas son las consecuencias cuando hay cambios internos en ellos.','',0,'AIA=','jy3iqyc7',1,0,'',2,0,0),(10091,2342,3,130,0,'141.51.32.24',1143190200,1,0,1,1,1,0,'','','Silvio,\n\nyou cannot use the same public variable oIni for an instance of TApplication and the ini-class from fivewin.\n\nRename oIni (only that one belongs to to the Ini-class) in the functions  LeoIni(cFile) and GraboIni(cFile)\n\n[code:2upcf5r4]\nFUNCTION LeoIni&#40;cFile&#41;\n\nlocal oIni2\n\n       INI oIni2 FILE &#40;cFile&#41;\n       // Browse\n          GET oIni&#58;nClrForeHead SECTION &quot;Browse Setup&quot;  ;\n          ENTRY  &quot;nClrForeHead&quot; DEFAULT &quot;0&quot;  OF oIni2\n\n[/code:2upcf5r4]\n\nStefan','',0,'AIA=','2upcf5r4',1,0,'',130,0,0),(10092,2366,3,29,0,'81.174.23.40',1143190391,1,0,1,1,1,0,'','Problems to read the windows registry with a Guest access','Hi,\nI want to read some hardware values from the windows registry using the tsysinfo class.\n\nThere are no problems when I access to the system as \"Administrator\" but it read nothing when I access as \"Guest\".\n\nThe strange is that as \"Guest\" I can read those informations without problems.\n\nAny ideas ?\n\nI made a self-contained sample that show the problem at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/sample.prg\">www.softwarexp.co.uk/beta/sample.prg</a><!-- w -->\n\nTry to execute this app with an \"Administrator\" account and then on a \"Guest\" account. You will see that with the \"Guest\" account it return nothing.\n\nThanks in advance.\n\nRegards,\n\nMarco Turco','',0,'AIA=','2zovgz73',1,0,'',29,0,0),(10093,2341,6,2,0,'87.218.146.103',1143190676,1,0,1,1,1,1,'','','Joaquín,\n\nFunciona bien. Prueba con las librerías que te hemos enviado, gracias.','',0,'AIA=','2s1mk41k',1,0,'',2,0,0),(10094,2367,2,488,0,'217.127.135.134',1143190755,1,0,1,1,1,0,'','Cursos Avanzados de Fivewin a la venta para Autoaprendizaje','Hola Amigos\n\nAnte la gran demanda de cursos de Autoaprendizaje por parte de Fivewineros, que no pueden acudir a los excelentes cursos presenciales que las empresa GEROA INFORMATICA, SL.  Y google   organizan bajo la impartición del \"maestro\" RF, nos hemos visto obligados a sacar otra vez a la venta los cursos de Autoaprendizaje que el mismo RF a elaborado.\n\nTeneis toda la información en:\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/venta_cursos_fivewin.htm\">http://www.geroa-informatica.com/fivewi ... ivewin.htm</a><!-- m -->\n\nSaludos a todos','',0,'AIA=','y1i1d20k',1,0,'',488,0,0),(10095,2368,3,419,0,'196.25.255.210',1143190836,1,0,1,1,1,0,'','Store Bitmap in Database File?','Is there any way of storing a bitmap in a database file?\n\nThis may not sound logical but how else could I do this:\n\nOne section of my app contains a database of employees and I would like to be able to store (or attach) their picture to their details.\n\nDisplaying the bitmap is no problem - that works perfectly - but I have to assume that the filename is something specific in order to display it e.g. I could have a bitmap file called \'DBP001.BMP\' for example in order for me to display the correct picture for employee number \'DBP001\'.\n\nIf it (the bitmap) could be stored in a database then the filename would not matter as it would just be another field in the database attached to the correct employee record and then simply displayed.\n\nRegards,\n\nDale.','',0,'AIA=','4zoddcvm',1,0,'',419,0,0),(10096,2360,6,2,0,'87.218.146.103',1143190841,1,0,1,1,1,1,'','','Fernando,\n\nHaz una búsqueda por ADO en estos foros y verás todos los mensajes y ejemplos que encuentras (pulsa la opción \"search\" arriba en esta página).','',0,'AIA=','18x5cbq6',1,0,'',2,0,0),(10097,2369,6,488,0,'217.127.135.134',1143190843,1,0,1,1,1,0,'','Cursos Avanzados de Fivewin para Autoaprendizaje','Hola Amigos\n\nAnte la gran demanda de cursos de Autoaprendizaje por parte de Fivewineros, que no pueden acudir a los excelentes cursos presenciales que las empresa GEROA INFORMATICA, SL. Y google organizan bajo la impartición del \"maestro\" RF, nos hemos visto obligados a sacar otra vez a la venta los cursos de Autoaprendizaje que el mismo RF a elaborado.\n\nTeneis toda la información en:\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/venta_cursos_fivewin.htm\">http://www.geroa-informatica.com/fivewi ... ivewin.htm</a><!-- m -->\n\nSaludos a todos','',0,'AIA=','2sqgi8mc',1,0,'',488,0,0),(10098,2364,3,419,0,'198.54.202.210',1143190978,1,0,1,1,1,0,'','','Ok - I think I understand.\n\nBut - are Gets handled the same way i.e. when focused they use the system colors or is it just the ComboBox that works this way?\n\nI have no problem with Gets and Says.\n\nRegards,\n\nDale.','',0,'AIA=','142e3cqq',1,0,'',419,0,0),(10099,2340,6,2,0,'87.218.146.103',1143191035,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=279\">http://fivetechsoft.com/forums/viewtopic.php?t=279</a><!-- m -->','',0,'AIA=','2kjy23fm',1,0,'',2,0,0),(10102,2356,6,2,0,'87.218.146.103',1143191405,1,0,1,1,1,1,'','','Rossine,\n\nPrueba a cambiar la DATA nLeft del header:\n\noHeader:nLeft -= ...','',0,'AIA=','2moe5j64',1,0,'',2,0,0),(10103,2273,3,148,0,'196.205.179.77',1143191570,1,0,1,1,1,0,'','','I got that error :\n\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: WORKBOOKS\n\nI am using harbour and rdd libraries in compilation (bldhrdd.bat)','',0,'AIA=','3f6gfmzl',1,0,'',148,0,0),(10104,1995,16,2,0,'87.218.146.103',1143191826,1,0,1,1,1,1,'','','Jose, Javier,\n\nEsos ejemplos están solo disponibles para FWH, no para FWPPC.','',0,'AIA=','wofk703j',1,0,'',2,0,0),(10105,2364,3,2,0,'87.218.146.103',1143192213,1,0,1,1,1,1,'','','Dale,\n\nIt is a combobox specific Windows behavior.','',0,'AIA=','tew5ehxv',1,0,'',2,0,0),(10106,2359,6,2,0,'87.218.146.103',1143192476,1,0,1,1,1,1,'','','@ 10,20 SAY oSay PROMPT \"Mi texto\" OF oDlg UPDATE\n\noSay:SetText( \"\" )','',0,'AIA=','vxwliz8k',1,0,'',2,0,0),(10107,2368,3,2,0,'87.218.146.103',1143192844,1,0,1,1,1,1,'','','Dale,\n\nYou may store it into a memo field.','',0,'AIA=','1ixuqhqk',1,0,'',2,0,0),(10108,2273,3,2,0,'87.218.146.103',1143193037,1,0,1,1,1,1,'','','Ehab,\n\nInstead of doing:\n\noExcel:WorkBooks:Add() \n\ntry:\n\nOleInvoke( OleGetProperty( oExcel, \"WorkBooks\" ), \"Add\" )','',0,'AIA=','2x62y0uo',1,0,'',2,0,0),(10109,2368,3,419,0,'198.54.202.195',1143193928,1,0,1,1,1,0,'','','Hello,\n\nSounds great - but how?\n\nWould you read the existing file off disk (using which function?) and then \'Replace Memo Field\' with the data from the read or what?\n\nI mean to say that there is no function that I am aware of to say for example:\n\ngData := BitMap.Ext\nReplace Memo Field With gData\n\nRegards,\n\nDale.','',0,'AIA=','2ucttaj4',1,0,'',419,0,0),(10110,2368,3,2,0,'87.218.146.103',1143194052,1,0,1,1,1,1,'','','Dale,\n\nReplace Memo Field With MemoRead( \"bitmap.bmp\" )','',0,'AIA=','2kvmxnhz',1,0,'',2,0,0),(10111,2368,3,419,0,'196.25.255.195',1143194297,1,0,1,1,1,0,'','','Thanks,\n\nI was going to try to use FOpen() and FRead() etc. etc. but your way sure looks simple enough.\n\nThanks,\n\nDale.','',0,'AIA=','2s24bl10',1,0,'',419,0,0),(10112,2368,3,419,0,'196.25.255.210',1143194647,1,0,1,1,1,0,'','','Hold the phone!\n\nIt is not quite that simple.\n\nHow do you then display the thing?\n\nI mean to say there is no \'Var\' associated with TImage.\n\nYou can\'t say:\n\nReDefine Image oImg Var iMemoFieldImage ...\n\nDale.','',0,'AIA=','1sz42bjt',1,0,'',419,0,0),(10113,2273,3,148,0,'196.205.179.77',1143195322,1,0,1,1,1,0,'','','I tried this but the exe file closed by itself without any errors but where is the file created ?\n\n[code:1qmv9rwh]\nFUNCTION buildexcel&#40;&#41;\n*-------------------\n\nlocal oExcel\nlocal oBook\nlocal oSheet\nlocal nLine&#58;=1\n\n\nselect 3\nuse mach\n\noExcel &#58;= CREATEOLEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41; \n\noBook&#58;=OleInvoke&#40; OleGetProperty&#40; oExcel, &quot;WorkBooks&quot; &#41;, &quot;Add&quot; &#41;\noSheet&#58;=OleInvoke&#40; OleGetProperty&#40; oExcel, &quot;WorkSheets&#40;1&#41;&quot; &#41;&#41;\n\n\nnLine&#58;=1\n3-&gt;&#40;DBGOTOP&#40;&#41;&#41; \nDO WHILE !&#40;3&#41;-&gt;&#40;EOF&#40;&#41;&#41; \noSheet&#58;Cells&#40; nLine, 1 &#41;&#58;Value = &#40;3&#41;-&gt;mc_serial\noSheet&#58;Cells&#40; nLine, 2 &#41;&#58;Value = &#40;3&#41;-&gt;mc_name\nnLine&#58;=nLine+1 \n&#40;3&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41; \nENDDO \n\noExcel&#58;Visible &#58;= &#46;T&#46;\n\nreturn nil\n[/code:1qmv9rwh]','',0,'AIA=','1qmv9rwh',1,0,'',148,0,0),(10114,2368,3,419,0,'198.54.202.210',1143195424,1,0,1,1,1,0,'','','Although - funny enough - the following does compile with no errors:\n\n...\nLocal oMemoData\n\n...\noMemoData := MemoRead( \'Test.bmp\' )\n\n...\nReDefine Bitmap oBmp Var oMemoData ID 123 ...\n\nRegards,\n\nDale','',0,'AIA=','30us349m',1,0,'',419,0,0),(10115,2322,7,456,0,'217.127.39.57',1143195650,1,0,1,1,1,1,'','','Carles, \nel tema blutooth va de la siguiente manera. \nTienes una impresora bluetotth, o un  conversor bluetooth de estos que se conectan al puerto centronics de la impresora, y por otro lado tienes el pocket PC con bluetooht. \nPrimero se asocia un dispositivo con el otro, la manera de hacerlo depende de cada fabricante, con eso tienes el enlace entre los dos dispositivos. \n\nEn el Pocket PC, el dispositivo bluetoth es tratado como un COM, entonces lo que haces es escribir sobre el puerto serie que tiene asociado el dispositvo bluetooth de tu PPC, y este lo envia al otro elemento asociado, que es la impresora.\nEspero haberte aclarado algo el tema.','',0,'AIA=','210zqtvv',1,1143220167,'',456,1,0),(10116,2372,1,47,0,'203.144.143.3',1143195833,1,0,1,1,1,0,'','Can I write comm port without MsgInfo()?','Dear All,\n\nI have to do the communication with serial port (RS232) but the examle TESTCOMM.PRG said \n// Windows requires to have a Window at least to perform comunications !!\n// Let\'s use the MessageBox() Window as default\n\nIt means MessageBox() will be showed everytime when I use WriteComm() function.  \n\nHow can I donot show any message (Run as backgroup or Windows service)?\n\nThanks in advance,\nDutch','',0,'AIA=','3rma9y5z',1,0,'',47,0,0),(10117,2322,7,449,0,'212.64.224.244',1143198301,1,0,1,1,1,0,'','','Biel,\n\nOk. Enterado y aclarado -&gt; gracias. Yo veo importante el hecho de poder transmitir un documento en casa de un \'cliente\'. A partir de aqui, seguro q los \'clientes\', no tendran impresoras con bluetooth o conversores de este tipo, pero si es posible, q tengan ordenadores con esta capacidad, por lo q la solucion pasaria por transmitirle el documento via bluetooth e imprimirlo desde su impresora asociada, si tiene.\n\nEn este caso, la transmision hacia el PC, se generaria usando el mismo concepto que para impresora, no ?. Voy a probar a ver....\n\nGracias.\nC.','',0,'AIA=','qs5zjlky',1,0,'',449,0,0),(10118,2356,6,104,0,'201.50.244.253',1143198337,1,0,1,1,1,0,'','','Olá Antonio,\n\nnLeft  já é igual a 0 se se eu subtrair está ficando negativo e o Header/Footer está sumindo da tela  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nPako e Silvio, assim que eu conseguir fazer funcionar postarei aqui um exemplo ok  ? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAntonio, alguma outra idéia ?\n\nObrigado,\n\nRossine.','',0,'AIA=','2jslw1fy',1,0,'',104,0,0),(10119,2366,3,26,0,'84.255.245.173',1143199158,1,0,1,1,1,1,'','','Hello!\n\nTSysInfo is using TReg32 and there is a problem in\nNew() method:\n[code:1548a9az]   #ifdef __CLIPPER__\n      &#58;&#58;nError = RegOpenKeyEx&#40; nKey, cRegKey,, KEY_ALL_ACCESS, @nHandle &#41;\n   #else\n      &#58;&#58;nError = RegOpenKeyExA&#40; nKey, cRegKey,, KEY_ALL_ACCESS, @nHandle &#41;\n   #endif\n[/code:1548a9az]\n\nAs you can see, KEY_ALL_ACCESS is used, but you don\'t have such rights \nwhen running guest or limited user. This class should be enhanced\nto support KEY_READ:\n<!-- m --><a class=\"postlink\" href=\"http://www.deez.info/sengelha/blog/2006/02/28/windows-vista-changes/\">http://www.deez.info/sengelha/blog/2006 ... a-changes/</a><!-- m -->\n[quote:1548a9az]Here is how to perform some common development tasks while working in a least-privileged environment: \n\n[list:1548a9az]Need to read from a HKEY_LOCAL_MACHINE key in the registry? Use RegOpenKeyEx() (not RegOpenKey()) and request KEY_READ (not KEY_ALL_ACCESS) privileges. [/list:u:1548a9az]\n[list:1548a9az]Need to save per-user data which will roam with the user (i.e. may be replicated to the network)? Get the path to the Application Data\\ folder by either retrieving the value of the environment variable %APPDATA% or calling SHGetFolderPath() with the parameter CSIDL_APPDATA. The recommended directory in which to store files appears to be %APPDATA%\\&lt;Vendor&gt;\\&lt;Product&gt;\\, e.g. %APPDATA%\\Microsoft\\Office\\. [/list:u:1548a9az]\n[list:1548a9az]Need to save per-user data which will not roam with the user (e.g. a web browser cache)? Call SHGetFolderPath() with the parameter CSIDL_LOCAL_APPDATA. [/list:u:1548a9az][list:1548a9az]Need to save per-machine data (e.g. machine-wide game high scores)? Use %ALLUSERSPROFILE% or SHGetFolderPath() with the parameter CSIDL_COMMON_APPDATA. [/list:u:1548a9az]\n[list:1548a9az]Need a place to store a temporary file? Use %TEMP% or GetTempPath(). GetTempFileName() may also be useful.[/list:u:1548a9az] [/quote:1548a9az]\n\nSame useful links regarding LUA (and UAC):\n[url=http&#58;//blogs&#46;msdn&#46;com/aaron_margosis/archive/2006/02/16/533077&#46;aspx:1548a9az]Fixing \"LUA bugs\"[/url:1548a9az]\n[url=http&#58;//www&#46;microsoft&#46;com/technet/security/secnews/articles/sec_tools_for_appverifier&#46;mspx:1548a9az]Security Tools for Windows applications[/url:1548a9az]\n[url:1548a9az]http&#58;//nonadmin&#46;editme&#46;com/KnownProblems[/url:1548a9az]\n[url:1548a9az]http&#58;//homepage&#46;mac&#46;com/corrp/windows/LUA/homesite&#46;html[/url:1548a9az]\n\nRegards, Roman','',0,'kMA=','1548a9az',1,0,'',26,0,0),(10121,2368,3,2,0,'87.218.146.63',1143199646,1,0,1,1,1,1,'','','Dale,\n\nYou may use a temporary file to write the bitmap and then assign it to the bitmap object:\n\nlocal cTempFile := cTempFile( \"\\\", \"bmp\" )\n\nMemoWrit( cTempFile, field-&gt;image )\n\noImage:LoadImage( , cTempFile )\noImage:Refresh()','',0,'kMA=','3ogqttxr',1,0,'',2,0,0),(10122,279,6,362,0,'200.168.52.156',1143199875,1,0,1,1,1,1,'','','Hello FiveWinners!\n\nPor Favor, Donde Encuentro TSCAN32??','',0,'kMA=','26wkc8na',1,0,'',362,0,0),(10123,2366,3,2,0,'87.218.146.63',1143200282,1,0,1,1,1,1,'','','Roman,\n\nThanks for the info. This may seem the right code to use in source\\classes\\reg32.prg:\n[code:3sot4s6w]\n#define ERROR_SUCCESS 0\n\n   &#46;&#46;&#46;\n\n   #ifdef __CLIPPER__\n      &#58;&#58;nError = RegOpenKeyEx&#40; nKey, cRegKey,, KEY_ALL_ACCESS, @nHandle &#41;\n      if &#58;&#58;nError != ERROR_SUCCESS\n         &#58;&#58;nError = RegOpenKeyEx&#40; nKey, cRegKey,, KEY_READ, @nHandle &#41;\n      endif   \n   #else\n      &#58;&#58;nError = RegOpenKeyExA&#40; nKey, cRegKey,, KEY_ALL_ACCESS, @nHandle &#41;\n      if &#58;&#58;nError != ERROR_SUCCESS\n         &#58;&#58;nError = RegOpenKeyExA&#40; nKey, cRegKey,, KEY_READ, @nHandle &#41;\n      endif   \n   #endif\n[/code:3sot4s6w]','',0,'AIA=','3sot4s6w',1,0,'',2,0,0),(10124,2277,6,52,0,'200.127.195.89',1143200599,1,0,1,1,1,1,'','','Respuesta:\nEstaba moviendome mal en el array cuando definia los valores, tenia un array:\n\n[code:2vohff4c]LOCAL aDatos&#58;= array&#40; 25, 06&#41;\nLOCAL nItem\n\nfor nItem&#58;= 1 to 06 [/code:2vohff4c]\n\nY en realidad es de 1 a 25\n\n[code:2vohff4c]for nItem&#58;= 1 to 25[/code:2vohff4c]\n\nGracias por las aclaraciones FGONDI.','',0,'AIA=','2vohff4c',1,0,'',52,0,0),(10125,2373,6,488,0,'217.127.135.134',1143200702,1,0,1,1,1,0,'','Alguien a trabajado con documentos XML','Hola Amigos.\nMe encuentro en la necesidad de tratar documentos XML.\nYa sabemos que son ficheros de texto, que contienen una jerarquia de etiquetas que contiene datos.\nEvidentemente se puede tratar el fichero \"a pelo\", como cualquier fichero de texto.\nMi pregunta, es si alguien se ha enfrentado a esto anteriormente y tiene ya desarrolladas classes y/o  funciones que extraigan los datos de las etiquetas.\nO si alguien a trabajado con ACTIVEX que haga algo de esto.\nAgradecere toda la informacion que me podais facilitar.\nGracias de antemano.','',0,'AIA=','3pzeuci0',1,0,'',488,0,0),(10127,2368,3,419,0,'198.54.202.195',1143200949,1,0,1,1,1,0,'','','That is why you created FiveWin and I just use it!!!\n\nToo clever!!!\n\nThanks - it works perfectly for .bmp and .jpg!!!\n\nRegards,\n\nDale.','',0,'AIA=','3u1j24gv',1,0,'',419,0,0),(10128,2318,6,196,0,'201.250.97.8',1143201167,1,0,1,1,1,0,'','Instalador','[quote=&quot;manuramos&quot;:w6tf5vab]Yo he utilizado alguna vez QSETUP STUDIO de PANTARAY no está mal. Si me das tu e-mail te lo mando.[/quote:w6tf5vab]\n\nAqui va el mail <!-- e --><a href=\"mailto:jjaurena@yahoo.com\">jjaurena@yahoo.com</a><!-- e -->\n\nMuchas gracias.','',0,'gA==','w6tf5vab',1,0,'',196,0,0),(10129,2273,3,2,0,'87.218.146.63',1143202426,1,0,1,1,1,1,'','','Ehab,\n\nThis is the right code:\n[code:28rv0fn9]\nFUNCTION buildexcel&#40;&#41; \n\n   local oExcel , oBook, oSheet\n   local nLine &#58;=1 \n\n   oExcel = CREATEOLEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41; \n\n   oBook = OleInvoke&#40; OleGetProperty&#40; oExcel, &quot;WorkBooks&quot; &#41;, &quot;Add&quot; &#41; \n   oSheet = OleGetProperty&#40; oBook, &quot;WorkSheets&quot;, 1 &#41; \n\n   OleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 1 &#41;, &quot;Value&quot;, &quot;test&quot; &#41;\n\n   OleSetProperty&#40; oExcel, &quot;Visible&quot;, &#46;t&#46; &#41;\n\nreturn nil \n[/code:28rv0fn9]','',0,'AIA=','28rv0fn9',1,0,'',2,0,0),(10130,2373,6,2,0,'87.218.146.63',1143202932,1,0,1,1,1,1,'','','Nicolas,\n\nxharbour proporciona la clase TXmlDocument. Y tienes un ejemplo de uso en el directorio test de xharbour, xmltest.prg','',0,'AIA=','2anr5e4l',1,0,'',2,0,0),(10131,2372,1,312,0,'24.150.179.34',1143203043,1,0,1,1,1,0,'','','A quick fix is to use a hidden window, it doesn\'t have to be a dialog box.','',0,'AIA=','3alccver',1,0,'',312,0,0),(10132,2273,3,148,0,'196.205.179.77',1143203061,1,0,1,1,1,0,'','','ok. That what I finished to . The Excel sheet opened but no data written to it .\n\n[code:1wvbuyxf]\nFUNCTION ADDNMRNG_WORK&#40;&#41;\n//----------------------\n    LOCAL cPath &#58;= &quot;E&#58;\\programs\\clipper\\fwh\\sitex\\OLE&#46;XLS&quot;\n    LOCAL oExcel\n    LOCAL oBook\n    LOCAL osheet\n    LOCAL nline&#58;=0\n\n\n\n\n\n    oExcel &#58;= CreateOLEObject&#40;&quot;Excel&#46;Application&quot;&#41;\n\n    OLESetProperty&#40;oExcel,&quot;Visible&quot;,TRUE&#41;\n\n    oBook&#58;=OleInvoke&#40; OleGetProperty&#40; oExcel, &quot;WorkBooks&quot; &#41;, &quot;Add&quot; &#41;\n\n    oSheet&#58;=OleInvoke&#40; OleGetProperty&#40; oBook, &quot;Worksheets&#40;1&#41;&quot; &#41;&#41;\n\n\n\n\n\n\n    OLEInvoke&#40;oBook,&quot;Open&quot;,cPath&#41;\n\n\n\n\n\nselect 3\nuse mach\nnLine&#58;=1\n3-&gt;&#40;DBGOTOP&#40;&#41;&#41; \nDO WHILE !&#40;3&#41;-&gt;&#40;EOF&#40;&#41;&#41; \noSheet&#58;Cells&#40; nLine, 1 &#41;&#58;Value = &#40;3&#41;-&gt;mc_serial\noSheet&#58;Cells&#40; nLine, 2 &#41;&#58;Value = &#40;3&#41;-&gt;mc_name\nnLine&#58;=nLine+1 \n&#40;3&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41; \nENDDO \n\n\n    OLEInvoke&#40;oExcel,&quot;Quit&quot;&#41;\nRETURN NIL\n[/code:1wvbuyxf]','',0,'AIA=','1wvbuyxf',1,0,'',148,0,0),(10133,2356,6,2,0,'87.218.146.63',1143203114,1,0,1,1,1,1,'','','Rossine,\n\n&gt; nLeft já é igual a 0 se se eu subtrair está ficando negativo e o Header/Footer está sumindo da tela  \n\nNo entiendo lo que dices. Puedes decirlo en inglés ? O explicarlo un poco más ?','',0,'AIA=','6fizlgmy',1,0,'',2,0,0),(10134,2273,3,2,0,'87.218.146.63',1143203248,1,0,1,1,1,1,'','','Ehab,\n\nPlease review and test the sample that I have provided to you.','',0,'AIA=','awf5caom',1,0,'',2,0,0),(10135,1732,6,237,0,'200.68.70.89',1143203778,1,0,1,1,1,0,'','Solución?','Antonio:\nSi estuviera en condiciones de comprar la actualización, no hubiese esperado hasta ahora ya que lo ultimo que tengo es del 2002.\nMe podrias decir cuanto me sale? \n\nSalu2!','',0,'AIA=','1zdwn6zn',1,0,'',237,0,0),(10136,1732,6,2,0,'87.218.146.63',1143203879,1,0,1,1,1,1,'','','139,2 euros','',0,'AIA=','3m6pnx41',1,0,'',2,0,0),(10137,2322,7,262,0,'83.97.168.22',1143203959,1,0,1,1,1,1,'','','Carles , es raro el señor que tiene bluetooht en su ordenador , lo que si es mas normal es que el vendedor , lleve una impresora bluetooht en el coche , conectada al mechero ( de estas tipo ticket) , y le mande la impresion a ese dispositivo ( los repartidores de cocacola , los de seur etc , funcionan así) .\nSaludso.','',0,'AIA=','3hwh63lg',1,0,'',262,0,0),(10138,2273,3,148,0,'196.205.179.77',1143204497,1,0,1,1,1,0,'','','Thanks Antonio your sample buildexcel is working I found the test word written to A1 cell.\n\nMay I write a function writecells() as below instead of the \"test\" even this done I found no exported method cells in writecells(nline,oSheet).\n\n[code:300qa29u]   \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 1 &#41;, &quot;Value&quot;, writecells&#40;nline,oSheet&#41; &#41;\n&#46;&#46;\n\nfunction writecells&#40;nline,oSheet&#41;\n*-------------------------------\nselect 3\nuse mach\n3-&gt;&#40;DBGOTOP&#40;&#41;&#41; \nDO WHILE !&#40;3&#41;-&gt;&#40;EOF&#40;&#41;&#41; \noSheet&#58;Cells&#40; nLine, 1 &#41;&#58;Value = &#40;3&#41;-&gt;mc_serial\noSheet&#58;Cells&#40; nLine, 2 &#41;&#58;Value = &#40;3&#41;-&gt;mc_name\nnLine&#58;=nLine+1 \n&#40;3&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41; \nENDDO \nreturn nil\n[/code:300qa29u]','',0,'AIA=','300qa29u',1,0,'',148,0,0),(10139,2366,3,29,0,'81.174.23.40',1143204639,1,0,1,1,1,0,'','','I confirm. It runs now !!\n\nThanks Roman and Antonio.\n\nBest Regards,\n\nMarco','',0,'AIA=','1uktmloi',1,0,'',29,0,0),(10140,2356,6,104,0,'201.50.244.253',1143204993,1,0,1,1,1,0,'','','Olá Antonio,\n\nExcuse I am using me a translator  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nnLeft already is like 0 itself be subtracted I is stayed negative film strip and the Header/Footer is disappearing of the screen\n\nSee this image:\n\n[img:1da4y5ku]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/brw1&#46;PNG[/img:1da4y5ku]\n\nTalvez isto seria a solução:\n\n[code:1da4y5ku]\nThe HD_LAYOUT structure contains information used to set the size and position of a header control&#46; \n\ntypedef struct _HD_LAYOUT &#123;  // hdl  \n    RECT FAR*      prc;  \n    WINDOWPOS FAR* pwpos; \n&#125; HD_LAYOUT; \n \n\nMembers\n\nprc\n\nPointer to a RECT structure that contains the coordinates of a rectangle that the header control is to occupy&#46;\n\npwpos\n\nPointer to a WINDOWPOS structure that receives information about the appropriate size and position of the header control&#46;\n\n \n\nRemarks\n\nThis structure is used with the HDM_LAYOUT message&#46;\n[/code:1da4y5ku]\n\nSe for isto a solução, como faço para inseri-lo em theaders.c ?\n\nGracias, \n\nRossine.','',0,'CIA=','1da4y5ku',1,0,'',104,0,0),(10141,2273,3,148,0,'196.205.179.77',1143206036,1,0,1,1,1,0,'','','Ok Thanks Antonio,\nI got it . I put the following loop. It works.\n\n[code:1vp4iei6]\n\nselect 3\nuse mach\n3-&gt;&#40;DBGOTOP&#40;&#41;&#41; \nDO WHILE !&#40;3&#41;-&gt;&#40;EOF&#40;&#41;&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 1 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_type &#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 2 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_model &#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 3 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_serial &#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 4 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_brn &#41; \nnLine&#58;=nLine+1 \n&#40;3&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41; \nENDDO \n[/code:1vp4iei6]','',0,'AIA=','1vp4iei6',1,0,'',148,0,0),(10142,2375,3,6,0,'82.57.161.139',1143208228,1,0,1,1,1,1,'','TPrinter:Say() text color doesn\'t reset itself','Is it expected? The second line of text should not be red in my opinion:\n\n[code:zjiqqj00]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oPrn, oFnt\n\n    PRINT oPrn PREVIEW\n        DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -12 OF oPrn\n\n        PAGE\n            oPrn&#58;Say&#40; 100, 100, &quot;This is a test&quot;, oFnt, , CLR_HRED &#41;\n            oPrn&#58;Say&#40; 500, 100, &quot;This is a test&quot;, oFnt &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RELEASE FONT oFnt\n\n    RETURN NIL[/code:zjiqqj00]\n\nEMG','',0,'AIA=','zjiqqj00',1,0,'',6,0,0),(10143,2323,1,193,0,'195.212.29.179',1143208769,1,0,1,1,1,0,'','','And you consider that TYPE( \"ABS()\" ) and ? TYPE( \"ABS() + UNDEFINED()\" )  both return \"UE\" is correct?\n\nVladimir Grigoriev','',0,'AIA=','2ditgjvl',1,0,'',193,0,0),(10144,2360,6,255,0,'200.67.175.250',1143212301,1,0,1,1,1,1,'','','Híjole compadre, te tragaste el orgullo de pedirme el ejemplo una vez mas verdad? JAJAJAJA, ponte en contacto, te envío algo de lo que tengo.\nSaludos','',0,'AIA=','t7ao0m3l',1,0,'',255,0,0),(10145,2365,20,29,0,'81.174.23.40',1143212948,1,0,1,1,1,0,'','','Ok. risolto.\nLa patch del codice reg32 è disponibile sul news inglese.\n\nSaluti\n\nMarco','',0,'AIA=','1awvlyfd',1,0,'',29,0,0),(10146,2376,20,125,0,'213.140.6.105',1143213321,1,0,1,1,1,0,'','quale lausare ?','Salve,\nHo l\'esigenza di creare una \'pseudo browse\'  che abbia queste caratteristiche:\n1) possibilita\' di colorare ogni cella con colore diverso a secondo una condizione \n2) popup diverso per ogni cella ( a secondo condizione)\n3) inserire bottoni logici e/o bitmap\n\nChiedo troppo?\nHo provato ad utilizzare:\n----------------------\n@10,10 Browse ....\n\nADD COLUMN  TO BROWSE ..... HEADER .. DATA ECC\nADD COLUMN  TO BROWSE ..... HEADER .. DATA ECC\n------------\n\nMa ho visto che non mi permette di inserire ne bmp ne bottoni\n\nCosa posso utilizzare in alternativa?\nSi accetta qualasiasi dritta\nGrazie\n\nPiscicelii Zingoni','',0,'AIA=','2npjeks6',1,0,'',125,0,0),(10147,2322,7,449,0,'212.64.224.244',1143213441,1,0,1,1,1,0,'','','Hola Jose Luis,\n\nEntonces, cual crees q es la mejor manera si le tienes de pasar informacion a un cliente via Pocket ?\n\nSaludos.\nC.','',0,'AIA=','diuwr0cy',1,0,'',449,0,0),(10148,2377,1,161,0,'81.164.212.146',1143214067,1,0,1,1,1,0,'','BITMAP problem with different screen resolution','Hello,\n\nI have a strange problem displaying dialogs with bitmaps. A customer have send me a screendump of my program and as you can see, the bitmaps are to small for the dialog.\nAs you can see, also the colum-with is to small. The text is not show completely <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nHere is the screendump on my PC\n[img:1ukecd42]http&#58;//www&#46;vms&#46;be/FWTest/tpsdoc1&#46;jpg[/img:1ukecd42]\n\nAnd here the \'bad\' one\n[img:1ukecd42]http&#58;//www&#46;vms&#46;be/FWTest/tpsdoc2&#46;jpg[/img:1ukecd42]\n\n\nDoes anyone have an solution for this problem.\n\nThanks,\nMarc','',0,'CA==','1ukecd42',1,0,'',161,0,0),(10149,2361,3,69,0,'206.210.97.138',1143214967,1,0,1,1,1,0,'','','Thanks Ramesh \n\nWorks perfectly  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n\nJeff','',0,'CA==','3u5w7uvl',1,0,'',69,0,0),(10150,2375,3,455,0,'195.97.105.161',1143216259,1,0,1,1,1,0,'','Re: TPrinter:Say() text color doesn\'t reset itself','Enrico,\nIt\'s been that way since 16-bit.\nI hope it\'s not changed because several of my programs use this concept or retaining the last color until changed again.\n\nJust my opinion of course...\n\nKind regards\nEvans','',0,'CA==','71dpobca',1,0,'',455,0,0),(10151,2170,3,455,0,'195.97.105.161',1143216628,1,0,1,1,1,0,'','Re: Read XML page','I have done XML (SOAP and other TAGs - both create and read) for Paysoft Inc., used to submit payroll returns to the IRS.\n\nI can give you some clues here, and more info through private email.\n\nIn general, you\'ll have to download the web page (XML document), \nand then read it partially (FOPEN-FREAD/FREAD/etc/FCLOSE)\n\nIf this is something you can do, then I can tell you how you may deal with this subject (how to read the TAG(s) you want).\n\nKind regards\nEvans','',0,'CA==','bdaapfov',1,0,'',455,0,0),(10152,2360,6,93,0,'201.137.88.121',1143217993,1,0,1,1,1,0,'','Compadre','No seas así, cuando te busqué ya no estabas en línea. Sabes que si ya lo hiciste aplico la ley del mínimo esfuerzo, te lo pido y listo!!\n\nSaludos!\n\nGFCG','',0,'CA==','c7kgi0w5',1,0,'',93,0,0),(10153,2375,3,6,0,'82.57.161.139',1143218121,1,0,1,1,1,1,'','Re: TPrinter:Say() text color doesn\'t reset itself','Ok, I agree.\n\nEMG','',0,'CA==','xmvt8b4i',1,0,'',6,0,0),(10154,1995,16,498,0,'213.97.9.239',1143218419,1,0,1,1,1,1,'','','Gracias por la aclaracion Antonio.\n\nSaludos.','',0,'CA==','547ueper',1,0,'',498,0,0),(10155,2376,20,6,0,'82.57.161.139',1143218528,1,0,1,1,1,1,'','Re: quale lausare ?','La TCBrowse consente di visualizzare bitmaps e fa anche le altre cose che ti servono.\n\nEMG','',0,'CA==','2ei3d7jm',1,0,'',6,0,0),(10156,2352,6,40,0,'200.92.17.53',1143219131,1,0,1,1,1,0,'','','Master Antonio, aprovechando Yo tengo FW24 recien lo recompile con xHarbour, pero no me funciona la RichEdit, con Harbour si me funcionaba\nme tira este error al momento de linkear :\n\nUnresolved external \'HB_FUN_TRICHEDIT\n\ny efectivamente al momento de recompilar mis fuentes de FW24 no tengo la TRICHEDIT.prg, lo unico que tengo es ..\\classes\\xObj\\TRichEdi.hrb\nEsto me podria servir para incluirlo en mi recompilacion con xHarbour\n\nSaludos y gracias de antemano\nJoel Andujo','',0,'CA==','2a0bta3w',1,0,'',40,0,0),(10159,2372,1,47,0,'203.144.143.4',1143220544,1,0,1,1,1,0,'','','Dear Mdandrea,\n\nThanks for your recommend.  It works ok now.\n\nThanks,\nDutch','',0,'CA==','7kf8j6uf',1,0,'',47,0,0),(10161,2352,6,2,0,'87.218.146.4',1143222806,1,0,1,1,1,1,'','','Joel,\n\nEl fichero hrb no te sirve. El nombre del fichero es trichedi.prg, mira a ver si lo tienes.','',0,'CA==','i3kx7grj',1,0,'',2,0,0),(10162,2379,6,490,0,'80.24.224.89',1143223486,1,0,1,1,1,0,'','Error de código en la clase RICHEDIT','Antonio,\n\naquí se ha olvidado la \"y\" del final y se rompe al hacer CanRedo:\n\n\nMETHOD CanRedo() INLINE ::SendMsg( EM_CANREDO, 0, 0 ) != 0 .and. ! ::lReadOnl \"y\" // esta falta línea 60\n\nOtro fallo, es que botón derecho y CUT, puede pegar pero no lo corta, es decir funciona como copiar no como cortar.\n\n\n\nUn Saludo,\nJoaquín','',0,'CA==','3njbonzs',1,0,'',490,0,0),(10163,2379,6,490,0,'80.24.224.89',1143224414,1,0,1,1,1,0,'','','Antonio,\n\nNo sólo eso, el método CUT() no existe, con hacer ::SendMsg( WM_CUT )\n\ndebería ir bien.\n\n\nUn Saludo,\nJoaquín','',0,'CA==','341u9j2n',1,0,'',490,0,0),(10164,2379,6,490,0,'80.24.224.89',1143225099,1,0,1,1,1,0,'','','Antonio,\n\nEl método Del() también falta.\n\n\nUn Saludo,\nJoaquín','',0,'CA==','158rodkz',1,0,'',490,0,0),(10165,2379,6,490,0,'80.24.224.89',1143225788,1,0,1,1,1,0,'','','Antonio,\n\nTambién falla al llamar a SETCHARFORMAT() y pulsar cancelar, se arreglaría añadiendo\n\n   aFont := ChooseFont( aFont, @nColor )\n\n   if !Empty( aFont[ LF_FACENAME ])  &lt;---- Esta línea\n     \n      ................\n\n   Endif\n\n\nUn Saludo,\nJoaquín','',0,'','7tlcvjbs',1,0,'',490,0,0),(10166,2379,6,2,0,'87.218.146.4',1143226844,1,0,1,1,1,1,'','','Joaquín,\n\nGracias. Es que esta clase antes derivaba de TMultiGet y finalmente se ha cambiado para derivar directamente de TControl.\n\nTe envio por email los cambios ya implementados.','',0,'','3uiukbe8',1,0,'',2,0,0),(10167,2380,6,490,0,'80.24.224.89',1143227587,1,0,1,1,1,0,'','Duda con Toolbar','Hola,\n\nExiste alguna manera de dejar un botón de la Toolbar pulsado hasta que lo clickeemos otra vez ???\n\n\n\nUn Saludo,\nJoaquín','',0,'','vs74mzcq',1,0,'',490,0,0),(10168,2381,6,63,0,'80.37.102.128',1143230130,1,0,1,1,1,0,'','Capturar ratón sobre un diálogo','Alguien sabe alguna forma fácil de hacer que el ratón no pueda salir de los límites de un diálogo.  Supongo que deberá utilizarse SetCapture() pero no he conseguido implementar nada que funciona.\nGracias\nRafael','',0,'','rtq837og',1,0,'',63,0,0),(10169,2322,7,262,0,'83.97.168.22',1143231613,1,0,1,1,1,1,'','','yo creo que debemos distingir dos cosas :\n1.- uso en autoventa o similar , donde lo que das es un albaran (o factura) , creo que en ese caso impresora de tickets  bluetooth , lo mas portatil posible\n en la furgoneta , mira esta [url:283mmw7m]http&#58;//www&#46;deremate&#46;com&#46;ar/accdb/viewItem&#46;asp?IDI=11720052[/url:283mmw7m]\n, coche de viajante o similar  ( incluso existiran posiblemente aparatos pocket con impresora incluidas).\nMira aqui a seguro que ves algo que te ilumina:D  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> (lo digo por lo de flamagas) [url:283mmw7m]http&#58;//www&#46;flamagas&#46;com/default&#46;asp?NODO=5506[/url:283mmw7m]\n\n2.-  el pasar unos datos al cliente , en ese caso , lo mas facil es construir un archivo de texto plano ( como indica biel ) y mandar el texto a un email del cliente .Luego el hace con el lo que crea oportuno .\n\nYo uso este segundo metodo en mi programa , y es muy operativo .\nSaludso.','',0,'EA==','283mmw7m',1,0,'',262,0,0),(10170,2382,6,490,0,'80.24.224.89',1143232514,1,0,1,1,1,0,'','Problema bChange de Richedit','Antonio,\n\nEl codeblock bChange no salta cuando nos movemos con los cursores, por lo que no se puede refrescar la fila y columna donde estamos posicionados.\n\n¿Existiría algún evento que salte siempre para indicarnos la posición?\n\nUn Saludo,\nJoaquín','',0,'EA==','154vp00d',1,0,'',490,0,0),(10171,1808,2,481,0,'205.160.34.161',1143234301,1,0,1,1,1,0,'','','Daniel tengo el mismo inconveniente, si ya lo resolviste me puedes enviar una copia a mi correo <!-- e --><a href=\"mailto:caballero_cristian2004@yahoo.es\">caballero_cristian2004@yahoo.es</a><!-- e --> , te lo agradesco.\n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n[quote=&quot;servicomver&quot;:3lgfbik8]DANIEL\n\nNo he podido crear la libreria y en verdad estoy atorado, me puedes pasar a mi correo la libreria Sbrowse (para clipper) a mi correo, y un ejemplo con dbfs x favor ????\n<!-- e --><a href=\"mailto:servicomver@yahoo.com.mx\">servicomver@yahoo.com.mx</a><!-- e -->\nsalu2\nveracruz, mexico[/quote:3lgfbik8]','',0,'gA==','3lgfbik8',1,0,'',481,0,0),(10172,2220,2,9,0,'85.54.236.175',1143235775,1,0,1,1,1,0,'','','Lo he solucionado con un picture\n\nTITLE \"Gastos\" DATA renta-&gt;GASTOS TOTAL  picture \"@Z 9,999,999.99\"','',0,'gA==','1omgleed',1,0,'',9,0,0),(10173,2377,1,312,0,'24.150.179.34',1143242306,1,0,1,1,1,0,'','','Marc \n\n I haven\'t tested this but on the init of the dialog maybe if you check the screen res, you could resize the bitmap controls to display properly, you might want to the the bitmap objects up as arrays ( if you haven\'t already so you do it in a loop). I don\'t know if this helps just an idea i thought could work.\n\n\nMD','',0,'gA==','2d653rpn',1,0,'',312,0,0),(10174,808,1,481,0,'205.160.34.161',1143242757,1,0,1,1,1,0,'','Re: Thanks Richards','my language is Spanish, I hope not to spoil your language with the following thing:  I need urgent a class to control scanner in fivewin 2,7 to clipper, help please my email is <!-- e --><a href=\"mailto:caballero_cristian2004@yahoo.es\">caballero_cristian2004@yahoo.es</a><!-- e -->.','',0,'gA==','1ju46heg',1,0,'',481,0,0),(10175,582,6,481,0,'205.160.34.161',1143243190,1,0,1,1,1,0,'','','Hola George,\nPodrias ayudarme con la clase Scanner de la que habla tengo los mismos requerimientos de juan, agradezco si puedes enviarmela mi correo es <!-- e --><a href=\"mailto:caballero_cristian2004@yahoo.es\">caballero_cristian2004@yahoo.es</a><!-- e -->.\n\nCordial saludo,\n\nCristian\nColombia\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n[quote=&quot;George&quot;:12iso3yg]Juan existe una clase excelente que uso en uno de mis programas y funciona de maravilla\n\n    ProcName......: Scanner.prg                                       \n    Pourpose......: TWAIN standard device Class interface  \n    Date..........: 05-11-96                                          \n    Author........: (c),L.Gadaleta  \n\nSaludos\n\n\nGeorge[/quote:12iso3yg]','',0,'gA==','12iso3yg',1,0,'',481,0,0),(10176,582,6,63,0,'80.37.102.128',1143252208,1,0,1,1,1,0,'','','George: Lo mismo para mi, por favor.  Mi dirección: <!-- e --><a href=\"mailto:rclemente@ya.com\">rclemente@ya.com</a><!-- e -->\nGracias\nRafael','',0,'gA==','1u3g7t98',1,0,'',63,0,0),(10177,1808,2,74,0,'190.48.235.98',1143258894,1,0,1,1,1,1,'','','Cristian: \n\n             Te envie a tu privado la clase y dos prg.\n\nSaludos,','',0,'gA==','15cu6h1w',1,0,'',74,0,0),(10178,2302,3,74,0,'190.48.235.98',1143263767,1,0,1,1,1,1,'','','Frank:\n\n          The columns, sizes and alignments can be arrays of codeblocks, so if you define your browses this way:\n\n[code:19c9fhwj]\n	 LOCAL  VEC_FIELD&#58;=&#123;&#123; || IF&#40;&#40;cAlias&#41;-&gt;ESTADO==\'C\',\'Cerrado\',\'Abierto\'&#41; &#125; ,;\n											&#123; || &#40;cAlias&#41;-&gt;PUNTOVTA  &#125; ,;\n    LOCAL VEC_ENC  &#58;=  &#123; oemtoansi&#40;&quot;Estado&quot;&#41;,;\n			  							 &quot;Punto&quot;+CRLF+&quot;Venta&quot; ,;\nLOCAL   aSizes&#58;=&#123;80,50, &#46;&#46;&#46; &#125;\n\n 			 REDEFINE LISTBOX oBrwMov fields  ID 999  OF oDlg ;\n			 ALIAS &#40;cALIAS&#41; ;\n  		 COLOR CLR_BLACK, CLR_WHITE UPDATE ;\n			 ON DBLCLICK EditaTurno&#40; @fCantI,@fCantE,oBrwMov, oBrwMov&#58;nColAct, EVAL&#40;VEC_FIELD&#91;oBrwMov&#58;nColAct&#93;&#41;, &#46;T&#46;,cAlias &#41;\n\noBrwMov&#58;SetCols&#40; VEC_FIELD, VEC_ENC, aSizes &#41;\n[/code:19c9fhwj]\n  \n                  You can read those values from an ini file or dbf perfectly.\n\n                  And for example if the user changes the size of a column before closing the dialog you can ask the browse for the column sizes values, and save the new values of the array to a dbf or ini file (oBrwMov:aColsizes). \n\n                   To use a multiline header you only need to use CRLF, like  \"Punto\"+CRLF+\"Venta\" ,; that is a multiline header. And to jusfify you can use:\n           \n[code:19c9fhwj]\n				oBrwMov&#58;aHJustify    &#58;= &#123;2, 2, 0, 1 &#125;\n				oBrwMov&#58;aJustify     &#58;= &#123;2, 2, 0, 1 &#125;\n[/code:19c9fhwj]\n\n0=Left, 1=right, 2=centered\n\nRegards,','',0,'AIA=','19c9fhwj',1,0,'',74,0,0),(10179,2302,3,382,0,'80.140.217.86',1143269931,1,0,1,1,1,1,'','','Hello Daniel\n\nthank you very much.\n\nThat is a super complete answer to my questions and the help, I need for my project.\n\nRegards from Germany','',0,'AIA=','3cfk4p3s',1,0,'',382,0,0),(10180,2376,20,125,0,'194.243.7.199',1143272400,1,0,1,1,1,0,'','','Grazie Enrico per l\'esempio che mi hai mandato e che allego.\nVoelvo sapere se esiste da qualche parte la descrizione di tutti i parametri che si possono inserire  nel comando ADD COLUMN ...\n\nTks\n\nPiscicelli/Zingoni\n\n\n\n\n[code:3a07tbyp]*** ESEMPIO di EMG*******************\n\n#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, oCol\n\n    LOCAL hBmp1 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkon&#46;bmp&quot; &#41;\n    LOCAL hBmp2 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkoff&#46;bmp&quot; &#41;\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    @ 0, 0 BROWSE oBrw\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; last;\n               HEADER &quot;LAST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA IF&#40; TEST -&gt; last = &quot;S&quot;, hBmp1, hBmp2 &#41;;\n               BITMAP\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n    oBrw&#58;lMChange = &#46;F&#46;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:3a07tbyp]','',0,'AIA=','3a07tbyp',1,0,'',125,0,0),(10181,2356,6,2,0,'87.218.146.4',1143273387,1,0,1,1,1,1,'','','Rossine,\n\nPlease add this code to theaders.c:\n[code:27d8tmdg]\n#ifdef __HARBOUR__\n   CLIPPER HEADERLAYOUT&#40; PARAMS &#41; // hWnd &#91;, aRect&#93; --&gt; aInfo\n#else   \n   CLIPPER HEADERLAYO&#40; PARAMS &#41; // UT&#40;&#41;\n#endif\n&#123;\n   RECT prc;\n   WINDOWPOS pwpos;\n   HDLAYOUT hdlayout;\n\n   hdlayout&#46;prc = &amp;prc;\n   hdlayout&#46;pwpos = &amp;pwpos;\n\n   if&#40; PCOUNT&#40;&#41; &gt; 1 &#41;\n   &#123; \n      hdlayout&#46;prc-&gt;left   = _parnl&#40; 2, 1 &#41;;\n      hdlayout&#46;prc-&gt;top    = _parnl&#40; 2, 2 &#41;;\n      hdlayout&#46;prc-&gt;right  = _parnl&#40; 2, 3 &#41;;\n      hdlayout&#46;prc-&gt;bottom = _parnl&#40; 2, 4 &#41;;\n   &#125;   \n      	\n   SendMessage&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; LONG &#41; HDM_LAYOUT, 0, &#40; LPARAM &#41; &amp;hdlayout &#41;;\n   \n   _reta&#40; 7 &#41;;\n   _stornl&#40; &#40; LONG &#41; hdlayout&#46;pwpos-&gt;hwnd, -1, 1 &#41;;\n   _stornl&#40; &#40; LONG &#41; hdlayout&#46;pwpos-&gt;hwndInsertAfter, -1, 2 &#41;;\n   _storni&#40; hdlayout&#46;pwpos-&gt;x, -1, 3 &#41;;\n   _storni&#40; hdlayout&#46;pwpos-&gt;y, -1, 4 &#41;;\n   _storni&#40; hdlayout&#46;pwpos-&gt;cx, -1, 5 &#41;; 	   \n   _storni&#40; hdlayout&#46;pwpos-&gt;cy, -1, 6 &#41;;\n   _stornl&#40; hdlayout&#46;pwpos-&gt;flags, -1, 7 &#41;;\n&#125;    	   \n[/code:27d8tmdg]','',0,'AIA=','27d8tmdg',1,0,'',2,0,0),(10182,2356,6,2,0,'87.218.146.4',1143273548,1,0,1,1,1,1,'','','Rossine,\n\nAlso, this information may be usefull:\n&gt;&gt;\nIf you want to use the HDM_LAYOUT message to set the initial size and position of a header window, you should set the initial visibility state of the window so that it is hidden (by specifying the HDS_HIDDEN style). Once you have created the window and used the HDM_LAYOUT message to get the size and position values, you can call the SetWindowPos function to set the new size, position, and visibility state.\n&gt;&gt;','',0,'AIA=','1kcmz97n',1,0,'',2,0,0),(10183,2381,6,2,0,'87.218.146.4',1143274082,1,0,1,1,1,1,'','','Rafael,\n\nEn MsDos se podía hacer, pero en Windows creo que no existe la opción de restringir el movimiento del ratón a un área específica.','',0,'AIA=','1bu52skc',1,0,'',2,0,0),(10184,2382,6,2,0,'87.218.146.4',1143274667,1,0,1,1,1,1,'','','Joaquín,\n\nCambia esto en la clase TRichEdit Method HandleEvent():\n[code:2jijl7ue]\n      case nMsg == WM_KEYDOWN\n         return &#58;&#58;KeyDown&#40; nWParam, nLParam &#41;\n[/code:2jijl7ue]','',0,'AIA=','2jijl7ue',1,0,'',2,0,0),(10185,582,6,2,0,'87.218.146.4',1143274893,1,0,1,1,1,1,'','','Alguien puede publicarla aqui como una dirección de <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> ? Gracias','',0,'AIA=','5fi9bwez',1,0,'',2,0,0),(10186,2380,6,2,0,'87.218.146.4',1143274955,1,0,1,1,1,1,'','','Joaquín,\n\nEl API de Windows lo permite, pero no está implementado aún.','',0,'AIA=','2phgfueg',1,0,'',2,0,0),(10187,2376,20,6,0,'87.11.229.230',1143276846,1,0,1,1,1,1,'','','[quote=&quot;Piscicelli Zingoni&quot;:27krhq8l]Voelvo sapere se esiste da qualche parte la descrizione di tutti i parametri che si possono inserire  nel comando ADD COLUMN ...[/quote:27krhq8l]\n\nNella documentazione oppure, meglio, nel file tcbrowse.ch.\n\nEMG','',0,'gA==','27krhq8l',1,0,'',6,0,0),(10188,1793,19,2,0,'87.218.146.4',1143278663,1,0,1,1,1,1,'','','We can\'t find bcc32.exe into it  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','1qtm13ij',1,0,'',2,0,0),(10189,2383,3,137,0,'151.38.8.195',1143279529,1,0,1,1,1,0,'','ActiveX properties','...\n  oObj := TActiveX():New(oWnd, \"MyControl\")\n  oPanels := oObj:GetProp(\"Panels\")\n  oPanels:Do(\"Add\", \"Item 1\")\n  oPanels:Do(\"Add\", \"Item 2\")\n  ...\n\nCan I access to activex properties like this?\n\nRegards','',0,'gA==','2bsujgfo',1,0,'',137,0,0),(10190,2376,20,125,0,'194.243.7.199',1143281468,1,0,1,1,1,0,'','','Ovvviamente.\nMi riferivo ad esempi magari già realizzati tipo per i report nei sample.\nVabbbbbe, ci provo.\nTks 10000 cmq.\n\nPiscicelli/Zingoni','',0,'gA==','uip564ey',1,0,'',125,0,0),(10191,2384,3,160,0,'210.212.142.91',1143282537,1,0,1,1,1,0,'','Can I Manage gotfocus event of TwBrowse (Std.)','Hello All,\n\nCan I control gotfocus event of TwBrwse (standard). Typically I wish to set filter when listbox receives focus. I am trying to use Listbox in Tab of Folder.\n\nCan somebody help ?\n\nTIA\nMilan.','',0,'gA==','2l615ygi',1,0,'',160,0,0),(10192,2384,3,6,0,'87.11.229.230',1143283203,1,0,1,1,1,1,'','Re: Can I Manage gotfocus event of TwBrowse (Std.)','oBrw:bGotFocus\n\nEMG','',0,'gA==','31dlo3j7',1,0,'',6,0,0),(10193,2381,6,63,0,'80.37.102.128',1143285981,1,0,1,1,1,0,'','','Antonio:\n¿Hay alguna función que permita mover el cursor a una posición determinada (he probado MouseTo() pero no me resuelve el problema)\n\nSi fuera así, supongo que sería tan fácil como en bMMove hacer algo así:\n[code:2jjwcej8]\nIF r &lt;= 0\n   MoverCursorA&#40;0,c&#41;\nENDIF\nIF c &lt;= 0\n   MoverCursorA&#40;r,0&#41;\nENDIF\n[/code:2jjwcej8]\ny así para los cuatro lados del diálogo.\n\nOtra solución quizás podría ser utilizar la funcion ClipCursor(aRect) del API de Windows, pero la verdad es que no sé como llamarla.  Me puedes dar un ejemplo, por favor?\nRafael \n[/code]','',0,'AIA=','2jjwcej8',1,0,'',63,0,0),(10194,2381,6,2,0,'87.218.146.4',1143290511,1,0,1,1,1,1,'','','Rafael,\n\nSí existe la función <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThe ClipCursor function confines the cursor to a rectangular area on the screen. If a subsequent cursor position (set by the SetCursorPos function or the mouse) lies outside the rectangle, Windows automatically adjusts the position to keep the cursor inside the rectangular area. \n\nBOOL ClipCursor(\n    CONST RECT *lpRect 	// pointer to structure with rectangle  \n   );	\n\nParameters\n\nlprc\n\nPoints to the RECT structure that contains the screen coordinates of the upper-left and lower-right corners of the confining rectangle. If this parameter is NULL, the cursor is free to move anywhere on the screen. \n\nReturn Values\n\nIf the function succeeds, the return value is nonzero.\nIf the function fails, the return value is zero. To get extended error information, call GetLastError. \n\nRemarks\n\nThe cursor is a shared resource. If an application confines the cursor, it must release the cursor by using ClipCursor before relinquishing control to another application.','',0,'AIA=','2wns5xrf',1,0,'',2,0,0),(10195,2383,3,2,0,'87.218.146.4',1143290705,1,0,1,1,1,1,'','','Roberto,\n\noPanels is not an ActiveX, so you have to do it this way:\n[code:titlllgr]\noObj &#58;= TActiveX&#40;&#41;&#58;New&#40;oWnd, &quot;MyControl&quot;&#41; \noPanels &#58;= oObj&#58;GetProp&#40; &quot;Panels&quot; &#41; \nOleInvoke&#40; oPanels, &quot;Add&quot;, &quot;Item 1&quot; &#41; \nOleInvoke&#40; oPanels, &quot;Add&quot;, &quot;Item 2&quot; &#41; \n[/code:titlllgr]','',0,'AIA=','titlllgr',1,0,'',2,0,0),(10196,935,2,52,0,'200.127.195.89',1143292063,1,0,1,1,1,1,'','','Antonio, \n\ny en el caso de una celda de la tsbrowser? o sea quiero que cuando no se ingrese algo, se crea un dialogo, tengo todo el codigo, pero no se como saber las coordenadas de esa celda.','',0,'AIA=','1igv3u3t',1,0,'',52,0,0),(10197,2372,1,312,0,'24.150.179.34',1143293392,1,0,1,1,1,0,'','','Glad to hear it worked for you Dutch.','',0,'AIA=','30k126je',1,0,'',312,0,0),(10198,2385,5,270,0,'65.27.222.17',1143295170,1,0,1,1,1,0,'','Executing one copy of an external application','I am trying to execute calc.exe and I only want one copy to be running at a time.  I am using WinExec(\"calc\") to execute the program, but I don\'t want multiple copies.  If calc.exe is already running I want to show the running copy and not start a new copy.\n\nDoes anyone know the procedure for checking if a copy is running and if so then show it rather than executing another copy?\n\nDan','',0,'AIA=','17enhopo',1,0,'',270,0,0),(10199,2383,3,137,0,'151.38.8.195',1143295195,1,0,1,1,1,0,'','','Thx Antonio, now it works.\n\nWhat about a more simple access to propertyies and methods like xHarbour Activex?\n\noObj := TActiveX():New(oWnd, \"MyControl\") \noObj:Panels:Add(\"Item1\")\noObj:Panels:Add(\"Item2\")\n...\n\nRegards,\nRoberto Parisi','',0,'AIA=','kgchi7m0',1,0,'',137,0,0),(10200,582,6,171,0,'24.147.25.226',1143295648,1,0,1,1,1,0,'','','Esta es la clase Scanner.prg\n\n\n/*------------------------------------------------------------------------*\n     ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n   ÛÝ³                                                                   ³\n   ÛÝ³ ProcName......: Scanner.prg                                       ³\n   ÛÝ³ Pourpose......: TWAIN standard device Class interface             ³\n   ÛÝ³ Date..........: 05-11-96                                          ³\n   ÛÝ³ Author........: (c),L.Gadaleta                                    ³\n   ÛÝ³ Compile.......: Clipper Scanner /n/w/dSTAND_ALONE                 ³\n   ÛÝ³ In you proc...: Clipper Scanner /n/w                              ³\n   ÛÝ³ Link..........: Blinker Fi Scanner @Fivewin.lnk Bli inc off       ³\n   ÛÝ³                                                                   ³\n   ÛÝÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ\n   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ\n*------------------------------------------------------------------------*/\n#include \"FiveWin.ch\"\n\n//#define TWAIN_DLL		\"DMTwain.dll\"\n\n#define TWAIN_DLL	 \"EZTW32.DLL\"	// For [x]Harbour\n\nSTATIC oWnd\n\n#ifdef STAND_ALONE\n	FUNCTION Main(cFileRes)\n	/*\n		cFileRes = \"C:\\PATH\\FILENAME.BMP , 150\"\n		.OR.\n		cFileRes = \"C:\\PATH\\FILENAME.BMP\" 		// Dpi Will be 100 (default value)\n	*/\n	LOCAL cFile, nRes, n\n	cFile := cFileRes\n	nRes  := 100\n	if !cFileRes == NIL\n		if ( n:=AT(\",\",cFileRes) ) &gt; 0\n			cFile := Alltrim(Substr(cFileRes,1,n-1))\n			nRes  := Val(Alltrim(Substr(cFileRes,n+1)))\n		end\n	end\n	DEFINE WINDOW oWnd FROM 1,1 TO 1,1\n	ACTIVATE WINDOW oWnd ON INIT (oWnd:Hide(),RunScan(cFile,oWnd:hWnd,nRes))\n	RETU NIL\n\n	STATIC FUNCTION RunScan(cFile,hWnd,nRes)\n	LOCAL oScanner := Scanner():New(hWnd)\n	DEFAULT nRes := 100					// Scanner resolution in Dpi\n	oScanner:Set(.F.)						// Set User Interface Off\n	oScanner:DigiToFile(cFile,nRes)	// Acquires\n	oScanner:End()\n	oWnd:End()\n	RETU NIL\n#endif\n\nCLASS Scanner\n	DATA	hWnd	AS NUMERIC	// Handle of the window\n	DATA	hDll	AS NUMERIC	// Handle of the DLL\n	DATA	lLoad	AS LOGICAL	//	.T. DLL &amp; Driver Loaded\n	DATA	hDib	AS NUMERIC	// Current Dib handle\n	*\n	METHOD New()			CONSTRUCTOR\n	METHOD End()\n	METHOD Set()				// Acquiring Dialog ON/OFF\n	METHOD Choose()			// Select Image Device Source\n	METHOD DigiToFile()		// Acquire Image and save to a file\n	METHOD DigiToClip()		// Acquire Image and copy to ClipBoard\n	METHOD SetResolution()	// Set Dpi for the scanner\n	*\n	PROTECTED :\n		METHOD Free()			// Release Dib\'s handle\n		METHOD IsActive()		// Twain Driver Loaded\n		METHOD Register()		// Register my application into Twain application\n		METHOD DibToFile()	// Write to file Dib\'s handle in BMP format\nEND CLASS\n\nMETHOD New(hWnd)\n// Constructor\n::hWnd := iif( ValType( hWnd ) == \"N\" , hWnd , 0 )\n::lLoad := .T.\n::hDLL := LoadLibrary( TWAIN_DLL )\n::hDib := 0\nif ::hDll &lt;= 21\n	::lLoad := .F.\n	MsgAlert( BuildError(::hDll) , TWAIN_DLL )\n	RETU Self\nend\nif ( ::lLoad := ::IsActive() )\n	::Register()\nend\nRETU Self\n\nMETHOD End()\n// Destructor\nif ::hDib != 0\n	::Free( ::hDib )\nend\nFreeLibrary( ::hDll )\nRETU NIL\n\nMETHOD DigiToFile( cFile , nRes )\n// Acquire Document &amp; save to file\nLOCAL nPixType := 0\nLOCAL cFarProc\nDEFAULT nRes := 100\n::SetResolution( nRes )\n\nif ::lLoad\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_AcquireNative\",.T., WORD,WORD,_INT )\n	::hDib  := CallDLL( cFarProc,::hWnd,nPixType )\n	if ::hDib == 0\n		MsgInfo(\"Errore durante l\'acquisizione dell\'immagine\",\"\")\n	else\n		::DibToFile(::hDib,cFile)\n		::Free( ::hDib )\n	end\nend\nRETU Self\n\nMETHOD DigiToClip()\n// Acquire document &amp; copy to ClipBoard\nLOCAL nPixType := 0\nLOCAL cFarProc\nLOCAL nResult\nif ::lLoad\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_AcquireToClipBoard\",.T., _INT,WORD,_INT )\n	nResult  := CallDLL( cFarProc,::hWnd,nPixType )\nend\nRETU Self\n\nMETHOD SetResolution( nDpi )\n// NEW\nLOCAL cFarProc\nLOCAL uResult\nDEFAULT nDpi := 100\nif ::lLoad\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_SetResolution\",.T., VOID,_DOUBLE )\n	uResult  := CallDLL( cFarProc,nDpi )\nend\nRETU Self\n\nMETHOD Set(lShow)\n// Show-Hide Scanner\'s Dialog Box\nLOCAL nHide := 0		// Default: Shows Scanner\'s Dialog Box\nLOCAL cFarProc\nLOCAL uResult\nDEFAULT lShow := .T.\nif ::lLoad\n	nHide := iif(lShow,0,1)\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_SetHideUI\",.T., VOID,_INT )\n	uResult  := CallDLL( cFarProc,nHide )\nend\nRETU Self\n\nMETHOD Choose()\n// Select Image Device Source\nLOCAL cFarProc\nLOCAL nResult\nif ::lLoad\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_SelectImageSource\",.T., _INT,WORD )\n	nResult  := CallDLL( cFarProc,::hWnd )\nend\nRETU Self\n\n//---------- Protected Methods\n\n	METHOD Free(hDib)\n	// Release Dib\'s Handle\n	LOCAL cFarProc\n	LOCAL uResult\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_FreeNative\",.T., VOID,WORD )\n	uResult  := CallDLL( cFarProc,hDib )\n	RETU NIL\n\n	METHOD DibToFile(hDib,cFile)\n	// Write to File From DIB\'s handle\n	LOCAL cFarProc\n	LOCAL nResult\n	LOCAL lRet\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_WriteNativeToFilename\",.T., _INT,WORD,LPSTR)\n	lRet     := ( (nResult:=CallDLL( cFarProc,hDib,cFile ))==0 )\n	DO CASE\n		CASE nResult == -1\n			MsgInfo(\"Annullato dall\'utente\",\"File non registrato\")\n		CASE nResult == -2\n			MsgInfo(\"Errore durante la scrittura sul file \"+cFile,\"File non registrato\")\n		CASE nResult == -3\n			MsgInfo(\"Errore interno sul file DIB\",\"File non registrato\")\n		CASE nResult == -4\n			MsgInfo(\"Errore durante la scrittura sul file \"+cFile+\", probabile spazio insufficiente sul disco !\",\"File non registrato\")\n	ENDCASE\n	RETU lRet\n\n	METHOD IsActive()\n	// Is Twain driver loaded ?\n	LOCAL cFarProc\n	LOCAL nResult\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_IsAvailable\",.T., _INT )\n	if ! (nResult 	:= CallDLL( cFarProc )) == 1\n		MsgAlert(\"Nessun driver per apparecchi TWAIN compatibili risulta disponibile !\",\"Errore hardware\")\n		// Messaggio inviato direttamente da TWAIN.DLL\n	end\n	RETU iif(nResult==1,.T.,.F.)\n\n	METHOD Register()\n	// Register my application into Twain application\n	LOCAL	nMaiorNum := 1\n	LOCAL nMinorNum := 0	// Result -&gt; 1.0\n	LOCAL nLanguage := 0\n	LOCAL nCountry  := 0\n	LOCAL cVersion  := \"1.0\"\n	LOCAL cManifact := \"The Genius\"\n	LOCAL cFamily   := \"Digitizer\"\n	LOCAL cProduct := StrTran(cFileName(GetModuleFileName(GetInstance())),\".EXE\",\"\")\n	LOCAL cFarProc\n	LOCAL uResult\n	cFarProc := GetProcAddress( ::hDLL, \"TWAIN_RegisterApp\",.T.,;\n									VOID,_INT,_INT,_INT,_INT,LPSTR,LPSTR,LPSTR,LPSTR )\n	uResult  := CallDLL( cFarProc,nMaiorNum,nMinorNum,nLanguage,nCountry,cVersion,cManifact,cFamily,cProduct )\n	RETU NIL\n\n//---------- END Protected Methods\n\nSTATIC FUNCTION BuildError(nError)\nLOCAL cRet := \"Errore nella libreria dinamica\"\nDO CASE\n	CASE nError == 0\n			cRet := \"Memoria insufficiente ad eseguire il programma\"\n	CASE nError == 2\n			cRet := \"File non trovato\"\n	CASE nError == 3\n			cRet := \"Percorso non trovato\"\n	CASE nError == 5\n			cRet := \"Tentantivo di collegarsi dinamicamente ad un task o errore di condivisione\"\n	CASE nError == 6\n			cRet := \"La libreria richiede un segemento separato per ogni task\"\n	CASE nError == 8\n			cRet := \"Memoria insufficiente ad avviare l\'applicazione\"\n	CASE nError == 10\n			cRet := \"Versione di MS Windows non corretta\"\n	CASE nError == 11\n			cRet := \"Libreria non valida oppure non Š un\'applicazione MS Windows\"\n	CASE nError == 12\n			cRet := \"Applicazione disegnata per un sistema operativo diverso\"\n	CASE nError == 13\n			cRet := \"Applicazione disegnata per MS-DOS 4.0\"\n	CASE nError == 14\n			cRet := \"Tipo di file eseguibile sconosciuto\"\n	CASE nError == 15\n			cRet := \"Tentativo di caricare un\'applicazione disegnata per funzionare in modalit… reale\"\n	CASE nError == 16\n			cRet := \"Tentativo di caricare una seconda istanza dell\'applicazione contenente segmenti di dati multipli non marcati per la sola lettura\"\nENDCASE\nRETU OemToAnsi( cRet + \"!\" )','',0,'','6bv6aiso',1,0,'',171,0,0),(10201,2381,6,104,0,'201.58.54.246',1143298814,1,0,1,1,1,0,'','','Olá Rafael, \n\nCompile e teste este exemplo.\n\n[code:2ihjs9be]\n#include &quot;fivewin&#46;ch&quot;\n\n*************\nfunction MAIN\n*************\n\nlocal oDlg\n\ndefine dialog oDlg from 0, 0 to 400, 600 pixel\n\n* Posiciona o cursor do mouse\n@10, 10 button &quot;Posicionar&quot; of oDlg action setcursorpos&#40; 200, 300 &#41;     pixel\n\n* Mostra o Mouse na Tela\n@30, 10 button &quot;Mostar&quot;     of oDlg action SHOW_MOUSE&#40;&#41;                 pixel\n\n* Esconde o Mouse nesta Dialog\n@50, 10 button &quot;Esconder&quot;   of oDlg action HIDE_MOUSE&#40;&#41;                 pixel\n\n* Confina o Mouse em uma certa posicao da tela\n@70, 10 button &quot;Confinar&quot;   of oDlg action clipcursor&#40; 10, 10, 10, 10 &#41; pixel\n\n* Confina o Mouse em uma certa posicao da tela\n@90, 10 button &quot;Sair Confinamento&quot; of oDlg ;\n        action &#40; clipcursor&#40; 0, 0, 800, 600 &#41;, setcursorpos&#40; 400, 300 &#41; &#41; pixel\n\nactivate dialog oDlg centered\n\nreturn NIL\n\n*******************\nfunction HIDE_MOUSE\n*******************\n\nlocal ST_CUR\n\ndo while &#46;T&#46;\n   ST_CUR &#58;= ShowCursor&#40; 0 &#41;\n   if ST_CUR &lt; 0        &amp;&amp;  Enquanto o Status do ponteiro nao for Menor que Zero\n      exit\n   endif\nenddo\n\nreturn NIL\n\n*******************\nfunction SHOW_MOUSE\n*******************\n\nlocal ST_CUR\n\ndo while &#46;T&#46;\n   ST_CUR &#58;= ShowCursor&#40; 1 &#41;\n   if ST_CUR &gt;= 0       &amp;&amp;  Enquanto o Status do ponteiro for Maior ou igual a Zero\n      exit\n   endif\nenddo\n\nreturn NIL\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; CLIPCURSOR &#41;\n&#123;\n     RECT rct;\n\n     rct&#46;left = hb_parnl&#40; 1 &#41;;\n     rct&#46;top = hb_parnl&#40; 2 &#41;;\n     rct&#46;right = hb_parnl&#40; 3 &#41;;\n     rct&#46;bottom = hb_parnl&#40; 4 &#41;;\n\n     hb_retl&#40; ClipCursor&#40; &amp;rct &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:2ihjs9be]\n\nSaludos,\n\nRossine.','',0,'AIA=','2ihjs9be',1,0,'',104,0,0),(10202,2386,3,190,0,'202.65.134.45',1143299658,1,0,1,1,1,0,'','How to get the Control Types in a Dialog?','Can any body help me on how to get the Control Types in a Dialog.\n\nEx: I have some SAYS, GETS,  RADIO BUTTONS, COMBO and BROWSE  \ncontrols on a Dialog.  And I want to know the type of the current Control one which the user has clicked/pressed Enter Key.\n\nTIA\n\nRegards,\n\n- Ramesh Babu P','',0,'AIA=','14vy56h4',1,0,'',190,0,0),(10203,2356,6,104,0,'201.58.54.246',1143300976,1,0,1,1,1,0,'','','Olá Antonio,\n\nFuncionou 1000%  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nVeja o que tive que fazer:\n\n[code:3tlbjgd0]\n\n**************\nfunction ROLAR&#40; cLado &#41;\n**************\n\nif cLado = &quot;D&quot;  &amp;&amp; Rolar para direita\n   nPos += 10\nelse                &amp;&amp; Senão para a esquerda\n   nPos -= 10\nendif\n\nSetWindowPos&#40; oHeader&#58;hWnd, 0, 40, nPos, 1000, 40, SWP_FRAMECHANGED &#41;\n\nreturn NIL\n\n[/code:3tlbjgd0]\n\nVeja:\n\n[img:3tlbjgd0]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/brw2&#46;PNG[/img:3tlbjgd0]\n\nMil Gracias Maestro  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos,\n\nRossine.','',0,'CIA=','3tlbjgd0',1,0,'',104,0,0),(10204,2387,6,362,0,'200.168.52.156',1143304329,1,0,1,1,1,1,'','Message not found: TSAY:LTRANSPARENT','Antonio, Actualizei Mi Version Para el Release de Marzo/2006 y mi retorna\neste erro, ke hacer?\n\nAplicacao: \n===========\n   Caminho(Path): C:\\PDVXB\\BALCAOW.EXE (32 bits)\n   Tamanho: 3,584,512 bytes\n   Hora Inicial: 0 hours 0 mins 0 secs \n   Ocorrencia de Erro: 03/25/06, 13:25:39\n   Descricao do Erro: Error BASE/1004  Message not found: TSAY:LTRANSPARENT\n\nChamada da Pilha: \n================= \n   Chamada De: TSAY:ERROR(179)\n   Chamada De: (b)HBOBJECT:HBOBJECT(105)\n   Chamada De: TSAY:MSGNOTFOUND(0)\n   Chamada De: TSAY:LTRANSPARENT(167)\n   Chamada De: TSAY:INITIATE(0)\n   Chamada De: __OBJSENDMSG(0)\n   Chamada De: OSEND(0)\n   Chamada De: ASEND(0)\n   Chamada De: TDIALOG:INITIATE(0)\n   Chamada De: TDIALOG:HANDLEEVENT(0)\n   Chamada De: DIALOGBOXINDIRECT(0)\n   Chamada De: TDIALOG:ACTIVATE(0)\n   Chamada De: MSGMETER(35)\n   Chamada De: MAIN(168)\n\nLineas de mi programa: -&gt; 168\n\n    IF !FILE( \"VENCOP01.DBF\" )\n        MsgMeter( { | oMeter, oText, oDlg, lEnd |                             ;\n                      CRIASENHAS( oMeter, oText, oDlg, @lEnd ) },             ;\n                      \"Por Favor, Espere! Recriando os Bancos\" )\n     ELSE\n        MsgMeter( { | oMeter, oText, oDlg, lEnd |                             ;\n                      CRIARNOVOS( oMeter, oText, oDlg, @lEnd ) },             ;\n                      \"Por Favor, Espere! Recriando os Bancos\" )\n\n    ENDIF','',0,'CIA=','2i5bzh7x',1,0,'',362,0,0),(10205,2356,6,15,0,'203.73.98.254',1143304614,1,0,1,1,1,0,'','','Hi Rossine,\n\nVery nice.\nCould you share this code for us?\n\nRegards,\n\nRichard','',0,'CIA=','2p2qp6ry',1,0,'',15,0,0),(10206,2386,3,74,0,'190.48.212.245',1143304867,1,0,1,1,1,1,'','','Ramesh:\n\n              With oCtrl:ClassName() you will get the name of the control class, like \"TGET\", \"TSAY\", \"TBUTTON\", etc.\n\nRegards,','',0,'CIA=','52tralwa',1,0,'',74,0,0),(10207,2388,6,83,0,'80.35.196.60',1143305337,1,0,1,1,1,0,'','Sobre freeimage.dll y xHarbour','Hola a todos,\nTengo una aplicación compilada con Harbour 0.43+fwh 2.4, que funciona muy bien con freeimage.dll.\n\nPor aquello de actualizarme un poco, he recompilado con xHarbour 0.99.5 y todo de maravilla excepto que cuando va a cargar una imagen me pide &lt;nViewlib&gt; pasando de &lt;freeimage&gt;, si vuelvo a Harbour 0.43 todo funciona de nuevo. He descargado la ultima version de freeimage.dll. \n\n¿Que me falta?\nGracias de antemano a cualquiera que pueda encenderme una luz.. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'CIA=','28q0bltq',1,0,'',83,0,0),(10208,2387,6,104,0,'201.58.54.246',1143305358,1,0,1,1,1,0,'','','Olá João Blz ?\n\nVeja se na sua classe SAY.prg está assim:\n\n[code:2qxpuvvj]\n//----------------------------------------------------------------------------//\n\n#ifndef __CLIPPER__\n\nMETHOD EraseBkGnd&#40; hDC &#41; CLASS TSay\n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent\n      return 1\n   endif\n\nreturn Super&#58;EraseBkGnd&#40; hDC &#41;\n\n#endif\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetText&#40; cText &#41; CLASS TSay\n\n   local hDC\n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   &#58;&#58;cCaption &#58;= If&#40; &#58;&#58;cPicture != nil, Transform&#40; cText, &#58;&#58;cPicture &#41;,;\n                     cValToChar&#40; cText &#41; &#41;\n\n   #ifndef __CLIPPER__\n      if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent\n         DrawPBack&#40; &#58;&#58;hWnd, hDC &#58;= GetDC&#40; &#58;&#58;hWnd &#41; &#41;\n         ReleaseDC&#40; &#58;&#58;hWnd, hDC &#41;\n      endif\n   #endif\n\n   SetWindowText&#40; &#58;&#58;hWnd, &#58;&#58;cCaption &#41;\n\nreturn nil\n[/code:2qxpuvvj]\nSe não estiver, coloque assim e recompile novamente a lib do fwh, ok ? \n\nAbraços,\n\nRossine.','',0,'AIA=','2qxpuvvj',1,0,'',104,0,0),(10209,2356,6,104,0,'201.58.54.246',1143305783,1,0,1,1,1,0,'','','Olá Richard,\n\n[code:l60heonw]\nSET PORTUGUESE ON\n\nAssim que eu tiver concluído as mudanças, irei compartilhar com todos os interessados ok ?  &#58;D \n\nAbraços,\n\nRossine&#46;\n[/code:l60heonw]\n\n\n[code:l60heonw]\nSET ENGLISH ON\n\nLike this that I will have concluded the changes, I am going to share with everybody them interested ok?   &#58;D \n\nWith best regards,\n\nRossine&#46;\n[/code:l60heonw]','',0,'AIA=','l60heonw',1,0,'',104,0,0),(10210,2387,6,362,0,'200.168.52.156',1143305859,1,0,1,1,1,1,'','','Igual, idéntico, derecho, ecuánime, Rossine.\n\nNo hay diferencia...','',0,'AIA=','3rlo0kr2',1,0,'',362,0,0),(10211,2389,6,97,0,'201.161.134.139',1143306350,1,0,1,1,1,1,'','Crear DSN en vuelo','Como puedo crear DSN, al vuelo dependiendo de la empresa que se seleccione , tengo el sig. codigo me lo crea pero no encuentro como crearle el password ya que mysql tiene password el servidor.\n\noDsn := TMyDsn():New( BaseDatos )\nIF oDsn:nStatus == TDSN_NO_ERROR\n		oDsn:Del()\nENDIF\noDsn:Close()\nnTypeDsn := 1  // System DSN\noDsn:Create( BaseDatos , \"MySQL ODBC 3.51 Driver DSN\", \"MySQL ODBC 3.51 Driver\", \"localhost\", BaseDatos,\"root\", \"root\",nTypeDsn)\n	oDsn:Close()\n\nlo unico que requiero es que me agrege el password para el usuario.\n\nsaludos y graicas.\nfernando sandoval ruiz','',0,'AIA=','26zm6k5w',1,0,'',97,0,0),(10212,2356,6,73,0,'201.145.74.184',1143307149,1,0,1,1,1,0,'','','Hola rossine,\nPudieras compartir la clase modificada para usarla con wbrowse y el ejemplo, creo que a muchos nos vendria de perlas...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \npor cierto, felicidades que buen trabajo...\nssalu2\npako','',0,'AIA=','2luqbjpu',1,0,'',73,0,0),(10213,2389,6,138,0,'201.154.236.81',1143308268,1,0,1,1,1,1,'','','Fernando:\n\nOlvidate de DSN y usar ODBC, utiliza ADO directamente, en el string connection pasas todos los datos y listo, te olvidas de hacer cualquier otra cosa:\n\ncConStringo := \"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1; DATABASE=garis;UID=root;PWD=18167231\"\n\noConexion := TOleAuto():New(\"adodb.connection\")\noConexion:Open(cConString)\n\nSolo necesitas tener instalado el MyODBC','',0,'AIA=','2egfzile',1,0,'',138,0,0),(10214,2386,3,394,0,'207.219.124.134',1143308728,1,0,1,1,1,0,'','Just A sample of what I do','for x = 1 to len(odlg:acontrols)\nclassn = odlg:acontrols[x]:classname()\ndefault classn:=\"\\\\\"\nif classn &lt;&gt; \"\\\\\"\nif classn &lt;&gt; \"TGET\"\nif classn &lt;&gt; \"TWBROWSE\"\naadd(items,{odlg:acontrols[x]:classname(),;\nodlg:acontrols[x]:nid,;\nodlg:acontrols[x]:hidden,;\noDlg:aControls[x]:ctitle,x})\nELSE\nFOR Y = 1 TO LEN(oDlg:aControls[x]:aheaders)\nTXT=TXT+RTRIM(oDlg:aControls[x]:aheaders[Y])+\"|\"\nNEXT\naadd(items,{odlg:acontrols[x]:classname(),;\nodlg:acontrols[x]:nid,;\nodlg:acontrols[x]:hidden,;\nTXT,x})\nENDIF\nendif\nendif\nnext','',0,'','28awu0ra',1,0,'',394,0,0),(10215,2389,6,97,0,'201.161.134.139',1143309135,1,0,1,1,1,1,'','Gracias Master:Rene','Efectivamente asi lo estoy usando, he aqui el codigo.\ncConexion:= chr(34) +\"DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=\"+BaseDatos+\";UID=root;PWD=root ;\" + chr(34)\noAdo := CREATEOBJECT( \"ADODB.Connection\" )\n \nAl momento de dar de alta una nueva empresa, es crear la base de datos para la empresa y de esa manera trabajar los archivo de cada empresa en forma independiente. pero no me hace la conexcion.\n\n\nsaludos y gracias.\nfernando sandoval ruiz','',0,'','6bga16t6',1,0,'',97,0,0),(10216,1808,2,138,0,'201.154.236.81',1143310349,1,0,1,1,1,1,'','','Alfredo Arteaga tiene eso implementado en su RC-Extended y tiene a la venta el codigo fuente, pueden contactarlo en:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->','',0,'','rz8p4twi',1,0,'',138,0,0),(10218,1808,2,348,0,'201.230.74.59',1143310714,1,0,1,1,1,0,'','','Buen dia  DANIEL, te seria posible enviarme una copia igual por favor,  pues deseo ver dicha metodologia, ayuraria bastante\nGracias.\n\nMi correo es <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->','',0,'','s8hep818',1,0,'',348,0,0),(10219,2385,5,2,0,'87.218.146.4',1143311124,1,0,1,1,1,1,'','','Dan,\n\nYou may use FindWindow() to first locate the app. Please review this thread: \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1346&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=findwindow%2A\">http://fivetechsoft.com/forums/viewtopi ... dwindow%2A</a><!-- m -->','',0,'','2a3tjthj',1,0,'',2,0,0),(10220,2390,3,335,0,'68.193.88.53',1143312276,1,0,1,1,1,0,'','Transparent brush, SAY bug workaround','If you use a transparent brush on a dialog that has SAY objects on it, then when you update any of the SAY objects, the brush will be reimposed on the SAY in a weird way. The brush will be redrawn \"under\" the SAY starting from the upper left corner of the brush instead of just leaving the original display of the brush image positioned as it was initially under the SAY.\n\nA workaround to avoid this weirdness is as follows...\n\n1. Hide the SAY ... oSay:Hide()\n\n2. Update the data in the SAY ... cSay := \"new data\", then do oSay:Refresh()\n\n3. Redisplay the SAY ... oSay:Show()\n\nThe result of the workaround is that the SAY will display revised data on top of the same background bush image as originally was in the background (instead of incorrectly redrawing the brush under it starting from the upper left corner of the bruch image).\n\nAntonio, can a fix be implemented so that this workaround will no longer be necessary?\n\n- Roger','',0,'','3run4tbx',1,0,'',335,0,0),(10221,2381,6,63,0,'80.37.102.128',1143315400,1,0,1,1,1,0,'','','Rossine, Antonio:\n\n¡Estupendo! Muchísimas gracias a los dos\n\nRafael','',0,'','20kzi6cr',1,0,'',63,0,0),(10222,2383,3,2,0,'80.32.22.38',1143315561,1,0,1,1,1,1,'','','Roberto,\n\nYes, we may implement it.','',0,'','25ae01au',1,0,'',2,0,0),(10223,2352,6,40,0,'200.56.160.1',1143317000,1,0,1,1,1,0,'','','Master ese es el problema no tengo el fuente y deberia de tenerlo\ntengo FW24\n\nJoel','',0,'','r6n5biei',1,0,'',40,0,0),(10224,2352,6,2,0,'87.218.146.177',1143318599,1,0,1,1,1,1,'','','Joel,\n\nLa clase TRichEdit ha cambiado mucho desde la version 2.4, además requiere de un módulo en C interno que no se proporciona con FWH, sólo en la librería.','',0,'','2wn3guxk',1,0,'',2,0,0),(10225,2391,3,148,0,'82.201.206.129',1143319941,1,0,1,1,1,0,'','Tutorial about OLE','onle the command syntax of createoleobject found in the help,So where can I find tutorial about OLE even in the help files ?','',0,'','1uhywkl1',1,0,'',148,0,0),(10226,2356,6,104,0,'201.58.54.246',1143321109,1,0,1,1,1,0,'','','Ola Pako,\n\nAssim que possível as modificações estiverem prontas postarei o código fonte para todos ok ?\n\nVejam como está ficando  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n[img:1dg3hwj7]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/brw4&#46;PNG[/img:1dg3hwj7]\n\n\nAbraços a todos,\n\nRossine.','',0,'CA==','1dg3hwj7',1,0,'',104,0,0),(10227,2392,6,52,0,'200.127.195.89',1143321226,1,0,1,1,1,1,'','¿Qué altura tiene el CAPTION?','Estimados,\n\nComo puedo saber la altura de la parte del CAPTION de\nuna ventana o Dialogo?','',0,'CA==','hoqsid4s',1,0,'',52,0,0),(10228,2382,6,490,0,'80.102.51.115',1143325555,1,0,1,1,1,0,'','','Antonio,\n\nPerfecto!!\n\n\nUn Saludo y gracias,\nJoaquín','',0,'CA==','3ri45go8',1,0,'',490,0,0),(10229,2392,6,490,0,'80.102.51.115',1143328227,1,0,1,1,1,0,'','','Esto en teoría te dá la altura de los títulos.\n\n  GetSysMetrics(SM_CYCAPTION)\n\n\nUn Saludo,\nJoaquín','',0,'CA==','1k4eq5dh',1,0,'',490,0,0),(10230,2387,6,2,0,'87.218.146.177',1143330090,1,0,1,1,1,1,'','','CLASS TControl\n   ... \n   DATA lTransparent','',0,'CA==','3scahkri',1,0,'',2,0,0),(10231,2385,5,270,0,'65.27.222.17',1143335583,1,0,1,1,1,0,'','','I got the code working that finds the window, but I can\'t seem to get the calc application to come to the foreground.  ShowWindow(hWnd) doesn\'t seem to do it.\n\nDan','',0,'CA==','4c38ca05',1,0,'',270,0,0),(10232,2356,6,15,0,'203.73.98.254',1143337697,1,0,1,1,1,0,'','','Hola rossine,\n\nThank you so much.\nPower user for us.\n\nRegards,\n\nRichard','',0,'CA==','143gs3c7',1,0,'',15,0,0),(10233,1808,2,341,0,'200.127.97.186',1143339362,1,0,1,1,1,0,'','','Estimados Colegas\n\nPueden descargar  una demo  que contiene un browse para facturacion\ncon tsbrowse (clipper) desde <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->\nal que le interese le puedo enviar los fuentes del modulo de facturacion\n\nGracias\nDEvwin2004','',0,'CA==','3m30km4z',1,0,'',341,0,0),(10234,2393,3,487,0,'151.38.51.71',1143344590,1,0,1,1,1,0,'','Say in Toolbar is not transparent.','Hello guys.\n\nAs subject, for example in rpreview.prg:\n\n[code:192o0dfs]\n     @ 7, 275 SAY oSay PROMPT TXT_FACTOR ;\n          SIZE 60, 15 PIXEL OF oBar FONT oFont\n        \n     if IsAppThemed&#40;&#41;     \n        oSay&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41;     \n     endif   \n[/code:192o0dfs]\n\nI tried different combinations for SetBrush()/oSay etc., even by adding a COLOR clause to the SAY, but can\'t obtain the say as transparent.\n\nAny ideas ?\n\nThanks,\nDavide.\nFWH27/3 - xH 0.99.60 - Bcc 5.5','',0,'AIA=','192o0dfs',1,0,'',487,0,0),(10235,2394,6,100,0,'201.16.38.61',1143345756,1,0,1,1,1,0,'','Hide (esconder) um Folder em tempo de execução','Ola amigos\n\nEu tenho assim\n\nREDEFINE DIALOG oDlg RESOURCE .....\n\n REDEFINE FOLDER oFld ID 5000 OF oDlg                         \n          PROMPT \"&amp;1-Produto\"  ,\"&amp;2-Valores de Compra/Venda\" ;\n          DIALOGS \"PRODUTO_1\",\"PRODUTO_2\";\n\n   REDEFINE GET OGqtdes  VAR VMqtdes  ID 109 OF oFld:aDialogs[1] PICTURE \"@E 99,999.99\" UPDATE FONT oFont\n\n   REDEFINE GET VMQTMEDI_ESTO ID 110 OF oFld:aDialogs[1] PICTURE \"@E 99,999.99\" UPDATE FONT oFont\n   REDEFINE GET VMSTQMIN_ESTO ID 111 OF oFld:aDialogs[1] PICTURE \"@E 99,999.99\" UPDATE FONT oFont\n   REDEFINE GET VMQTPEDI_ESTO ID 112 OF oFld:aDialogs[1] PICTURE \"@E 99,999.99\" UPDATE FONT oFont\n\n\n   REDEFINE SAY PROMPT VMDESCON_MARC ID 101 OF oFld:aDialogs[2] UPDATE\n   REDEFINE SAY PROMPT VMVRLUCR_MARC ID 102 OF oFld:aDialogs[2] UPDATE\n   REDEFINE SAY PROMPT VMVRFRET_MARC ID 103 OF oFld:aDialogs[2] UPDATE\n\n   ACTIVATE DIALOG oDlg CENTERED ON INIT  \n            ( ofld:aDialogs[2]:Hide() ) // AKI NO ME FUNCIONA\n\napenas limpa os SAY PROMPT mais naum apaga o PROMPT do FOLDER\n\ncomo debo faze-lo\n\nJackson Douglas\nBoa Vista - RR\n\nFWH 2.6 LAST BUILD + XH 99.2','',0,'','382tskam',1,0,'',100,0,0),(10236,2384,3,160,0,'210.212.142.91',1143350687,1,0,1,1,1,0,'','Re: Can I Manage gotfocus event of TwBrowse (Std.)','[quote=&quot;EnricoMaria&quot;:2rizgdrg]oBrw:bGotFocus\n\nEMG[/quote:2rizgdrg]\n\nDear Enrico,\n\nNo it does not work. I am using Nov-2005 build.\n\nWith best regards,\n\nMilan.','',0,'gA==','2rizgdrg',1,0,'',160,0,0),(10237,2395,3,109,0,'200.77.0.54',1143355763,1,0,1,1,1,0,'','Ayuda con listbox','Buenas noches\n\n   Alguien me puede ayudar en lo siguiente:\n\n   PARA GENERAR UN LISTBOX/BROWSE:\n\n   Genero un dialogo con un ANCHO basado en las longitudes de cada uno de los datos a presentar.\n\n   El dialogo se AGRANDA/ACORTA en base a las columnas que se le han de pasar al LISTBOX/BROWSE.\n\n   Como puedo ajustar el LISTBOX (en el ANCHO de ESE DIALOGO).\n   \n   Necesito que se presente el SCROLL VERT (cuando sea necesario), justo ANTES de donde termina el ANCHO del dialogo.\n\n   TODO POR PROGRAMA.\n\nGracias','',0,'gA==','36lcpy7f',1,0,'',109,0,0),(10238,2385,5,6,0,'82.61.144.249',1143360136,1,0,1,1,1,1,'','','Try SetForegroundWindow() or BringWindowToTop().\n\nEMG','',0,'gA==','1hoee23w',1,0,'',6,0,0),(10239,2385,5,2,0,'87.218.146.177',1143360176,1,0,1,1,1,1,'','','Dan,\n\nPlease do a MsgInfo( GetWindowText( hWnd ) ) just to be sure it is the calc, before doing ShowWindow( hWnd ).','',0,'gA==','1hppbif8',1,0,'',2,0,0),(10240,2394,6,2,0,'87.218.146.177',1143360503,1,0,1,1,1,1,'','','( ofld:aDialogs[2]:Hide(), ofld:SetPrompts( { \"&amp;1-Produto\" } ) )','',0,'','3nb628dr',1,0,'',2,0,0),(10241,2396,2,9,0,'85.59.64.17',1143365054,1,0,1,1,1,0,'','oImage:Progress','Al cargar una imagen con LoadBmp(), si el fichero es jpg, oImage:Progress(.t.) funciona correcto, pero si la imagen en BMP, sale la pantallita de progress, pero no se ve el avance del timer. ¿Alguna idea?\n\nGracias y un saludo\n\nManuel','',0,'','10mfq8o7',1,0,'',9,0,0),(10242,2385,5,270,0,'65.27.222.17',1143373936,1,0,1,1,1,0,'','','BringWindowToTop() worked.\n\nThanks\nDan','',0,'','3bjgdz89',1,0,'',270,0,0),(10243,2397,1,204,0,'87.202.97.145',1143381122,1,0,1,1,1,0,'','Fivewin/3 error','Ok I’ve encountered a little problem. While trying to run my app I get Fivewin error/3 Can not create dialog.\nThe strange part of this error is when I have workshop running with the DLL loaded and run the app ther is no error. When I close workshop the error is there again.\n\n[code:1lvztchl]\n#include &quot;FIVEWIN&#46;CH&quot;\n#INCLUDE &quot;FOLDER2&#46;CH&quot; // tfolder addition from www&#46;fivewin&#46;info\n#include &quot;DBCOMBO&#46;CH&quot;\n#include &quot;SIXCDX2&#46;CH&quot;\n\nPROCEDURE Main&#40;&#41;\n  LOCAL oFolderICO,;\n        oBrush\n\n  SetVarsUp&#40;&#41;\n  Settings&#40;&#41;\n  SET 3DLOOK ON\n  SET MULTIPLE OFF\n  SetWin95Look&#40;&#46;T&#46;&#41;\n  RDDSETDEFAULT&#40;&quot;SIXCDX&quot;&#41;\n  Sx_SetMemoBlock&#40;16&#41;\n\n  IF !FILE&#40;&quot;&#46;\\MONEY1&#46;DLL&quot;&#41;\n    MSGStop&#40;&quot;DLL &#46;\\money1&#46;dll not found&quot;, &quot;Exiting program&quot;&#41;\n    QUIT\n  ENDIF\n    \n\n  SET RESOURCES TO &quot;MONEY1&#46;DLL&quot;\n  USE &#46;\\KLIMAKDE&#46;DBF VIA &quot;SIXCDX&quot; ALIAS KLIMAKIA\n  FillArrs&#40;&#41;\n\n  DEFINE DIALOG oMainWin NAME &quot;MAIN_WIN1&quot; FONT oMainFont COLOR CLR_YELLOW, CLR_BLACK\n\n    REDEFINE SAY ID 101 OF oMainWin COLOR CLR_YELLOW, CLR_BLACK\n    REDEFINE SAY ID 103 OF oMainWin COLOR CLR_YELLOW, CLR_BLACK\n\n    REDEFINE DBCOMBO aDBCData&#91;1,1&#93; VAR aDBCData&#91;1,2&#93; ID 102 OF oMainWin COLOR CLR_YELLOW, CLR_BLACK;\n     LIST aKlimak1 ITEMS aKlimak2\n    REDEFINE DBCOMBO aDBCData&#91;2,1&#93; VAR aDBCData&#91;2,2&#93; ID 104 OF oMainWin COLOR CLR_YELLOW, CLR_BLACK;\n     LIST aKratis1 ITEMS aKratis2\n\n// tfolder addition from www&#46;fivewin&#46;info\n    REDEFINE FOLDER oFld1 ID 105 OF oMainWin ITEMS &quot;FULL PRG&quot;, &quot;AMEA PRG&quot;;\n     PAGES &quot;PAGE_WIN&quot;, &quot;PAGE_WIN&quot;;\n     COLOR CLR_YELLOW, CLR_BLACK;\n     TABCOLOR CLR_YELLOW;\n     FOCUSCOLOR CLR_WHITE;\n\n    oFld1&#58;SetFont&#40;oMainFont1&#41;\n\n    MkPg1&#40;&#41;\n    MkPg2&#40;&#41;\n\n    REDEFINE BUTTON ID 106 OF oMainWin ACTION oMainWin&#58;End&#40;&#41;\n    REDEFINE BUTTON ID 107 OF oMainWin ACTION ShowPinak2&#40;&#41;\n\n  ACTIVATE DIALOG oMainWin CENTER\n\nRETURN\n\nSTATIC PROCEDURE MkPg1&#40;&#41;\n\n  REDEFINE PAGES oPages1 ID 101 OF oFld1&#58;aDialogs&#91; 1 &#93;;\n   DIALOGS &quot;SMALL_PRG1&quot;, &quot;SMALL_PRG2&quot;, &quot;SMALL_PRG3&quot;, &quot;SMALL_PRG4&quot;\n\n  oPages1&#58;SetColor&#40;CLR_YELLOW, CLR_BLACK&#41;\n  oPages1&#58;aDialogs&#91; 1 &#93;&#58;SetColor&#40;CLR_YELLOW, CLR_BLACK&#41;\n  oPages1&#58;aDialogs&#91; 2 &#93;&#58;SetColor&#40;CLR_YELLOW, CLR_BLACK&#41;\n  oPages1&#58;aDialogs&#91; 3 &#93;&#58;SetColor&#40;CLR_YELLOW, CLR_BLACK&#41;\n  oPages1&#58;aDialogs&#91; 4 &#93;&#58;SetColor&#40;CLR_YELLOW, CLR_BLACK&#41;\n\n  oPages1&#58;aDialogs&#91; 1 &#93;&#58;SetFont&#40;oMainFont&#41;\n  oPages1&#58;aDialogs&#91; 2 &#93;&#58;SetFont&#40;oMainFont&#41;\n  oPages1&#58;aDialogs&#91; 3 &#93;&#58;SetFont&#40;oMainFont&#41;\n  oPages1&#58;aDialogs&#91; 4 &#93;&#58;SetFont&#40;oMainFont&#41;\n\n  REDEFINE SAY ID 101 OF oPages1&#58;aDialogs&#91; 1 &#93; COLOR CLR_YELLOW, CLR_BLACK\n  REDEFINE GET aSmallPrg&#91;1,1&#93; VAR aSmallPrg&#91;1,2&#93; ID 102 OF oPages1&#58;aDialogs&#91; 1 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 103 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 1 &#93;    ACTION &#40;aSmallPrg&#91;1,2&#93; ++, aSmallPrg&#91;1,1&#93;&#58;Refresh&#40;&#41;&#41;\n  REDEFINE BTNBMP ID 104 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 1 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;1,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;1,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;1,2&#93; --&#41;, aSmallPrg&#91;1,1&#93;&#58;Refresh&#40;&#41;&#41;\n  REDEFINE SAY ID 105 OF oPages1&#58;aDialogs&#91; 1 &#93; COLOR CLR_YELLOW, CLR_BLACK\n  REDEFINE GET aSmallPrg&#91;2,1&#93; VAR aSmallPrg&#91;2,2&#93; ID 106 OF oPages1&#58;aDialogs&#91; 1 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 107 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 1 &#93;    ACTION &#40;aSmallPrg&#91;2,2&#93; ++, aSmallPrg&#91;2,1&#93;&#58;Refresh&#40;&#41;&#41;                                                               \n  REDEFINE BTNBMP ID 108 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 1 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;2,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;2,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;2,2&#93; --&#41;, aSmallPrg&#91;2,1&#93;&#58;Refresh&#40;&#41;&#41;\n\n  REDEFINE SAY ID 101 OF oPages1&#58;aDialogs&#91; 2 &#93; COLOR CLR_YELLOW, CLR_BLACK\n  REDEFINE GET aSmallPrg&#91;3,1&#93; VAR aSmallPrg&#91;3,2&#93;ID 102 OF oPages1&#58;aDialogs&#91; 2 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 103 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 2 &#93;    ACTION &#40;aSmallPrg&#91;3,2&#93; ++, aSmallPrg&#91;3,1&#93;&#58;Refresh&#40;&#41;&#41;                                                               \n  REDEFINE BTNBMP ID 104 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 2 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;3,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;3,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;3,2&#93; --&#41;, aSmallPrg&#91;3,1&#93;&#58;Refresh&#40;&#41;&#41;\n  REDEFINE SAY ID 105 OF oPages1&#58;aDialogs&#91; 2 &#93; COLOR CLR_YELLOW, CLR_BLACK                     \n  REDEFINE GET aSmallPrg&#91;4,1&#93; VAR aSmallPrg&#91;4,2&#93; ID 106 OF oPages1&#58;aDialogs&#91; 2 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 107 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 2 &#93;    ACTION &#40;aSmallPrg&#91;4,2&#93; ++, aSmallPrg&#91;4,1&#93;&#58;Refresh&#40;&#41;&#41;                                                               \n  REDEFINE BTNBMP ID 108 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 2 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;4,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;4,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;4,2&#93; --&#41;, aSmallPrg&#91;4,1&#93;&#58;Refresh&#40;&#41;&#41;\n                                                                                               \n  REDEFINE SAY ID 101 OF oPages1&#58;aDialogs&#91; 3 &#93; COLOR CLR_YELLOW, CLR_BLACK                     \n  REDEFINE GET aSmallPrg&#91;5,1&#93; VAR aSmallPrg&#91;5,2&#93; ID 102 OF oPages1&#58;aDialogs&#91; 3 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 103 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 3 &#93;    ACTION &#40;aSmallPrg&#91;5,2&#93; ++, aSmallPrg&#91;5,1&#93;&#58;Refresh&#40;&#41;&#41;                                                               \n  REDEFINE BTNBMP ID 104 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 3 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;5,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;5,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;5,2&#93; --&#41;, aSmallPrg&#91;5,1&#93;&#58;Refresh&#40;&#41;&#41;\n  REDEFINE SAY ID 105 OF oPages1&#58;aDialogs&#91; 3 &#93; COLOR CLR_YELLOW, CLR_BLACK                     \n  REDEFINE GET aSmallPrg&#91;6,1&#93; VAR aSmallPrg&#91;6,2&#93; ID 106 OF oPages1&#58;aDialogs&#91; 3 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 107 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 3 &#93;    ACTION &#40;aSmallPrg&#91;6,2&#93; ++, aSmallPrg&#91;6,1&#93;&#58;Refresh&#40;&#41;&#41;                                                               \n  REDEFINE BTNBMP ID 108 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 3 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;6,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;6,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;6,2&#93; --&#41;, aSmallPrg&#91;6,1&#93;&#58;Refresh&#40;&#41;&#41;\n                                                                                               \n  REDEFINE SAY ID 101 OF oPages1&#58;aDialogs&#91; 4 &#93; COLOR CLR_YELLOW, CLR_BLACK                     \n  REDEFINE GET aSmallPrg&#91;7,1&#93; VAR aSmallPrg&#91;7,2&#93; ID 102 OF oPages1&#58;aDialogs&#91; 4 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 103 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 4 &#93;    ACTION &#40;aSmallPrg&#91;7,2&#93; ++, aSmallPrg&#91;7,1&#93;&#58;Refresh&#40;&#41;&#41;                                                               \n  REDEFINE BTNBMP ID 104 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 4 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;7,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;7,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;7,2&#93; --&#41;, aSmallPrg&#91;7,1&#93;&#58;Refresh&#40;&#41;&#41;\n  REDEFINE SAY ID 105 OF oPages1&#58;aDialogs&#91; 4 &#93; COLOR CLR_YELLOW, CLR_BLACK                     \n  REDEFINE GET aSmallPrg&#91;8,1&#93; VAR aSmallPrg&#91;8,2&#93; ID 106 OF oPages1&#58;aDialogs&#91; 4 &#93; COLOR CLR_YELLOW, CLR_BLACK PICTURE &quot;99&quot;\n  REDEFINE BTNBMP ID 107 NAME &quot;ADD_DAY&quot; OF oPages1&#58;aDialogs&#91; 4 &#93;    ACTION &#40;aSmallPrg&#91;8,2&#93; ++, aSmallPrg&#91;8,1&#93;&#58;Refresh&#40;&#41;&#41;                                                               \n  REDEFINE BTNBMP ID 108 NAME &quot;REMOVE_DAY&quot; OF oPages1&#58;aDialogs&#91; 4 &#93; ACTION &#40;IIF&#40;aSmallPrg&#91;8,2&#93; - 1 &lt; 0, &#40;aSmallPrg&#91;8,2&#93; &#58;= 0, MSGBeep&#40;&#41;&#41;, aSmallPrg&#91;8,2&#93; --&#41;, aSmallPrg&#91;8,1&#93;&#58;Refresh&#40;&#41;&#41;\n\n  REDEFINE BUTTON ID 102 OF oFld1&#58;aDialogs&#91; 1 &#93; ACTION oPages1&#58;GoPrev&#40;&#41; WHEN &#40;oPages1&#58;nOption&#40;&#41; != 1&#41;\n  REDEFINE BUTTON ID 103 OF oFld1&#58;aDialogs&#91; 1 &#93; ACTION oPages1&#58;GoNext&#40;&#41; WHEN &#40;oPages1&#58;nOption&#40;&#41; != 4&#41;\nRETURN\n\nSTATIC PROCEDURE MkPg2&#40;&#41;\n // smae as MkPg1 but with other dialogs\nRETURN\n[/code:1lvztchl]\n\n[quote:1lvztchl]\nCREATEDLGE(0)\nTDIALOG:ACTIVATE(0)\nTPAGES:DEFAULT(0)\n(b)TPAGES(0)\nASEND(0)\nTDIALOG:INITIATE(0)\nTDIALOG:HANDLEEVEN(0)\nCREATEDLG(0)\nTDIALOG:ACTIVATE(0)\nTFOLDER:DEFAULT(387)\nTFOLDER:INITIATE(319)\nASEND(0)\nTDIALOG:INITIATE(0)\nTDIALOG:HANDLEEVEN(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nMAIN(52)\n\n\n\nError FiveWin/3  Cannot create Dialog Box: \nResource: SMALL_PRG1\n\nSystem\n======\n   CPU type: Pentium\n   Hardware memory: 1536 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Clipper (R) 5.2e Intl. (x216)  (1995.02.07)\n   Windows and MsDos versions: 3.95, 5.0\n\n   Windows total applications running: 5\n      1 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      2 explorer.exe\n      3 C:\\APP\\PNI\\MONEY\\MONEY1.DLL\n      4 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      5 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   CREATEDLGE\n     Param   1:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    B    { || ... } CodeBlock\n     Param   6:    L    .F.\n     Param   7:    B    { || ... } CodeBlock\n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    610\n     Local   3:    U    \n     Local   4:    U    \n   TPAGES:DEFAULT\n     Local   1:    O    Class: TPAGES\n     Local   2:    N    1\n     Local   3:    O    Class: TDIALOG\n   (b)TPAGES\n     Param   1:    O    Class: TPAGES\n     Param   2:    N    604\n   ASEND\n     Param   1:    A    Len:    3\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    604\n   TDIALOG:INITIATE\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TDIALOG\n     Local   4:    L    .T.\n     Local   5:    U    \n   TDIALOG:HANDLEEVEN\n     Param   1:    N    272\n     Param   2:    N    610\n     Param   3:    N    0\n   CREATEDLG\n     Param   1:    N    8087\n     Param   2:    C    \"PAGE_WIN\"\n     Param   3:    N    608\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    B    { || ... } CodeBlock\n     Param   6:    L    .F.\n     Param   7:    B    { || ... } CodeBlock\n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    608\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   TFOLDER:DEFAULT\n     Local   1:    O    Class: TFOLDER\n     Local   2:    N    1\n     Local   3:    N    3\n     Local   4:    O    Class: TDIALOG\n   TFOLDER:INITIATE\n     Param   1:    N    642\n     Local   1:    O    Class: TFOLDER\n     Local   2:    U    \n   ASEND\n     Param   1:    A    Len:    7\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    642\n   TDIALOG:INITIATE\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TDIALOG\n     Local   4:    L    .T.\n     Local   5:    U    \n   TDIALOG:HANDLEEVEN\n     Param   1:    N    272\n     Param   2:    N    576\n     Param   3:    N    0\n   DIALOGBOX\n     Param   1:    N    8087\n     Param   2:    C    \"MAIN_WIN1\"\n     Param   3:    N    0\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    0\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   MAIN\n     Local   1:    U    \n     Local   2:    U    \n\nLinked RDDs\n===========\n   SIXCDX\n   SXDBF\n\nDataBases in use\n================\n\n  1: =&gt; KLIMAKIA                           RddName: SIXCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n       19         18      .F.   .T.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\nClasses in use:\n===============\n     1 TFONT\n     2 TWINDOW\n     3 TDIALOG\n     4 TBRUSH\n     5 TCONTROL\n     6 TSAY\n     7 TCOMBOBOX\n     8 TDBCOMBO\n     9 TGET\n    10 GET\n    11 TFOLDER\n    12 TPAGES\n    13 TBTNBMP\n    14 TBUTTON\n    15 TRECT\n    16 ERROR\n    17 TSTRUCT\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       30560 bytes  (SYMP=32, Stack=9504, Heap=2056)\n      PRG Stack:          34779 bytes\n      14 Static variables: 196 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     911732 bytes\n      Highest Value:     997748 bytes\n\n[/quote:1lvztchl]','',0,'gIA=','1lvztchl',1,0,'',204,0,0),(10244,2394,6,100,0,'201.16.38.61',1143387042,1,0,1,1,1,0,'','','Ola antonio\n\nFuncionou 1000 maravilhas, mais agora como faço para ADICIONAR uma DIALOG na FOLDER em tempo de execução\n\ntipo assim:\n\noFld:AddItem(\"&amp;Teste\") ok funciona\n\nmais como faço para colocar a DIALOG ??\n\nJackson Douglas\nBoa Vista - RR\nBrasil','',0,'gIA=','1w6zeo2a',1,0,'',100,0,0),(10245,2398,1,9,0,'85.59.64.17',1143390481,1,0,1,1,1,0,'','Image:Progress(.t.)','When I load an image with LoadBmp(), with jpg file, oImage:Progress(.t.) work fine, but with  BMP file, show an empty progress window, but without timer. ¿Any idea? \n\nRegards','',0,'gIA=','3rbpksms',1,0,'',9,0,0),(10246,2377,1,266,0,'60.50.56.103',1143391951,1,0,1,1,1,1,'','','have u try :   DEFINE BUTTON ... ADJUST','',0,'gIA=','11584x7n',1,0,'',266,0,0),(10247,2399,19,61,0,'201.217.162.57',1143393462,1,0,1,1,1,0,'','Win XP Pro SP2?','Amigos: \nEstoy por instalar el SP2 para XP Pro y necesito\nme digan si han tenido algun problema\ncon FWH, Harbour y BCC\n\nMuchas gracias\n\nRuben Fernandez','',0,'gIA=','1txo05x1',1,0,'',61,0,0),(10248,2400,6,61,0,'201.217.162.57',1143393746,1,0,1,1,1,0,'','FWH 2.7 Marzo, Harbour y MsStudio 2005 (ViasualC++)','Amigos:\n\nEstoy por hacer algunas pruebas con MS Visual C++2005\ny necesito un archivo de compilacion.\n(Es prestado,solo para probar compilar FWH, seguro que despues lo borro)\n\nPuede ser .bat (que incluya prg, obj, c, res)\nPuede ser un archivo para xMate tambien.\nO lo que sea que me pueda servir.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'gIA=','304cx4lg',1,0,'',61,0,0),(10249,2401,3,141,0,'200.88.94.67',1143396937,1,0,1,1,1,1,'','ADO no me funciona en una tabla en especifico','Hola a todos,\n\n... no tienen idea de lo que he buscado informacion sobre esto en la red, y finalmente he caido aqui, pues he llegado a la conclusion de que solamente Ustedes podran darme luz en esto.\n\nSe trata del ampliamente expuesto en la red, problema del mensaje de error que aparece:\n\n\"No se puede encontrar la fila para su actualizacion: algunos valores han cambiado desde la ultima vez que se leyo\"\n\nA partir de alli, parece que la conexion con el recorset desaparece, pues todas las instrucciones que siguen aparecen con error, y nunca se ejecuta.\n\n\nTOdo esto aparece al ejecutar una instruccion ::oRs:Update().  \n\nNo me ocurre con todas las tablas de la base de datos, sino con una sola de ellas (hasta ahora no he comprobado con todas las tablas).  A TODAS las tablas de la base de datos se le ha agregado un columna, al inicio, llamada \"noreg\", entero, auto_increment que lo utilizo como llave primaria.\n\nEstoy usando xHarbour 0.99.3, FWH24, Borland 5.5.1, MySQL 3.23 (en modo local) e instale MyODBC 2.50\n\nHasta ahora he tratado lo siguiente:\n\n1.- realizo las sustituciones con ::oRs:Fields(n):value := \'valor a cambiar\', cambie a ::oRs:Fields(\'nombre del campo\'):value := ´valor a cambiar\', y el error persiste.\n\n2.- realizo el ::oRs:Update() al final de las sustituciones.  Cambie a realizar las sustituciones por ::oRs:Update(\'nombre del campo\', \'valor a cambiar\'), y el error persiste.\n\n3.- Utilizo OPTION=3, y la cambie a OPTION=16387, y el error persiste.\n\n4.- marque las dos primeras opciones en la configuracion de MyODBC en el COntrol Panel, y el error persiste.\n\n5.- Ejecute todo con la opcion de Trazas seleccionada en Control Panel, y el archivo no me dice de nikngun error (o no se interpretarlo), y tambien seleccione la opcion de trazas con OPTION=7, y lo mismo.\n\n6.- He leido todas las news de FW, y veo que nadie reporta esto.\n\n7.- He buscado en la red, y aunque mucha gente lo reporta, nadie llega a una solucion.  Algunos suguieren soluciones para VB, tales como utilizar los campos numericos en formato DOUBLE y no FLOAT, agregar un campo timestamp \"dummy\" a las tablas.  Esto no lo he tratado aun.\n\nMi string de conexion es:\n\nDRIVER={MySQL}; SERVER=localhost; DATABASE=XXXXXXX; UID=jllinas; PWD=XXXXXXXX; OPTION=16387      \n\nAL momento de conectar, el CursorLocation es adUseClient.\n\nPara crear el recordset hago:\n\n::oRs := CreateObject(\"ADODB.Recordset\")\n::oRs:Open( cQuery, uConn, nCursorType, nLockType, nOptions )\n\ndonde nCursorType es adOpenKeySet, nLockType es adLockOptimistic y nOptions es adCmdUnknown\n\nHe comprobado, y realmente el registro no se ha movido, comprobado entre la lectura y la escritura.\n\n... no se que mas comprobar, a ver que estoy haciendo mal...\n\nMe estoy tirando de los pelos que ya no me quedan!\n\nAYUDA.... POR FAVOR !!!!!','',0,'gIA=','3ly1o742',1,0,'',141,0,0),(10250,2402,6,123,0,'81.37.180.101',1143397816,1,0,1,1,1,0,'','Qftp y abortar la conexión','Hola a todos,\n\nEstoy con la clase qFtp que utilizo en mis aplicaciones.  En ciertas situaciones me encuentro con que debo abortar el proceso activo, normalmente subir o bajar ficheros, sin pérdida de tiempo.  Es decir, abortar inmediatemente.\n\nPara ello hago una llamada al método Abort().  Sin embargo parece ser que, aunque el comando se envía al servidor FTP (tal y como se lee en el fichero log), parece ser algo se \'pierde\' por el medio por que realmente el proceso no se aborta más que cuando termina.  Mirando por el fuente, creo que tiene algo que ver el método DOWAIT que lanza el método ABORT.\n\n¿Alguien se ha encontrado con una situación parecida?  ¿Alguna pista por donde seguir?\n\nSaludos y gracias a todos,\nJosé Luis Capel','',0,'gIA=','i8m5oavg',1,0,'',123,0,0),(10251,2377,1,161,0,'81.164.212.146',1143398903,1,0,1,1,1,0,'','','tnhoe,\n\nI will try it with the ADJUST clause.\n\nThanks,\nMarc','',0,'gIA=','26c9u41t',1,0,'',161,0,0),(10252,2403,3,27,0,'62.174.195.220',1143399305,1,0,1,1,1,1,'','Error Using Tcbrowse with Harbour','With Clipper my routine works fine, converting to harbour I get this error launching the Browse:\nStack Calls\n===========\n2.__ERRRT_SBASE(0)  3.HBOBJECT:ERROR(179)  4.__EVAL(105)  \n5.HBOBJECT:MSGNOTFOUND(0)  6.TCCOLUMN:CFOOTING(169)  7.TCBROWSE:DEFAULT(684)  \n8.__EVAL(0)  9.TWBROWSE:INITIATE(0)  10.__OBJSENDMSG(0)  \n\nAny ideas','',0,'gIA=','3onppsfq',1,0,'',27,0,0),(10253,2403,3,303,0,'68.7.28.54',1143402749,1,0,1,1,1,0,'','','Paul,\n\nWhat is the actual error message? Can we see the code defining the browse?\n\nJames','',0,'gIA=','3qlwdq7p',1,0,'',303,0,0),(10254,2404,3,212,0,'200.125.1.129',1143404523,1,0,1,1,1,0,'','CDX TO NTX y duplicación de registros','Me ocurre algo extraño y se lo otorgo al uso de dbfcdx.\nTengo duplicación de registros idénticos y correlativos en una base de datos, la chequeo en forma externa al programa así elimino el problema de los índices. El código no tiene forma de duplicar el registro ya que no tengo pérdida de datos y si duplicación. Ahora también me ocurre este otro caso, cuando intento abrir una base de datos, ctactev.dbf la cual fue creada con dbfntx tengo este error:\n\n**********************************************************\nApplication\n===========\n   Path and name: C:\\DATASOL\\Datasol.Exe (32 bits)\n   Size: 2,131,456 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 26/03/2006, 17:10:32\n   Error description: Error DBFNTX/1001  Open error: E:\\PROGRAMA\\DATASOL\\XHARBOUR\\ACTDBF\\CTACTEV.fpt\n************************************************************\n\nDesde xHarbour no he podido hacer la conversión de cdx a ntx, siempre obtengo bases de datos con formato dbfcdx, o sea nunca veo los archivos de memo dbt y si me sigue creando los fpt.\nEl mismo código lo hice con clipper y me funcionó de maravillas.\nEstoy usando esto dentro de la aplicación de xharbour\n\n*************CODIGO***********************\n\nANNOUNCE RDDSYS\nINIT PROCEDURE INICIO\n***********************\nREQUEST DBFNTX\nREQUEST DBFCDX\nREQUEST DBFFPT\nRDDSETDEFAULT(\"DBFCDX\")\nRETURN\n\n************FIN DE CODIGO**********************\n\nPero pretendo dejarla a DBFNTX por la duplicación de registros.\n\n****************CODIGO****************************\n\n   Local cPath:=\"\\\"+CURDIR()+\"\\\",I\n   Local aBases:=directory(cPath+\"DBF\\*.dbf\"),x,aEst\n\n   For x:=1 to len(aBases)\n      use (cPath+\"DBF\\\"+aBases[x,1]) alias vieja \n      aEst:=Dbstruct()\n\n      //Aquí no me respeta el \"DBFNTX\" con xharbour y si con clipper\n      Dbcreate(cPath+\"ACTDBF\\\"+aBases[x,1],aEst,\"DBFNTX\")\n\n      use (cPath+\"ACTDBF\\\"+aBases[x,1]) via \"DBFNTX\" alias nueva new\n\n      DO WHILE VIEJA-&gt;( ! EOF () )\n\n         NUEVA-&gt;( DBAPPEND () )\n\n         FOR  i := 1 TO VIEJA-&gt;( FCOUNT () )\n              NUEVA-&gt;( FIELDPUT ( i, VIEJA-&gt;( FIELDGET ( i ) ) ) )\n         NEXT i\n\n         VIEJA-&gt;( DBSKIP () )\n      ENDDO\n      vieja-&gt;(dbclosearea())\n      nueva-&gt;(dbcloseara())\n\n   Next\n*******************FIN DE CODIGO*************************\n\nLes agradecería su ayuda porque estoy bastante ciego a esta altura y creo que le estoy pasando por arriba al error.\nGracias.\n\nRicardo.-','',0,'','1tvea1wv',1,1143459658,'',212,1,0),(10255,2339,1,418,0,'83.156.156.178',1143404677,1,0,1,1,1,0,'','','I\'ve found an old Clipper 5.2 e in download at\n\n<!-- m --><a class=\"postlink\" href=\"http://www.toyanet.com.br/clipper.php\">http://www.toyanet.com.br/clipper.php</a><!-- m -->\n\nand Hyper Six works good\nThanks at all','',0,'','39q5xxmt',1,0,'',418,0,0),(10256,2404,3,212,0,'200.125.1.129',1143405412,1,0,1,1,1,0,'','CDX TO NTX y duplicación de registros','Me faltó anexar que noté que la duplicación se me hizo luego de hacer un pack, por lo que estoy haciendo una función propia de pack en donde copio a otra base de datos auxiliar todos los registros que no estan marcados para borra y después hago un zap a la base, luego le importo los campos de la base de datos auxiliar.','',0,'','17svnqrl',1,0,'',212,0,0),(10257,2397,1,204,0,'87.202.98.214',1143408895,1,0,1,1,1,0,'','','I think the problem might be the page object inside a folder object. When I quote out the procedures MkPg1() and MkPg2() the program starts normally. When I un quote ether one of those procedures I get the error message.\nI’m going to try a folder in a folder instead of a page in a folder approach.','',0,'','2aid75w0',1,0,'',204,0,0),(10258,2405,7,95,0,'201.153.135.234',1143411104,1,0,1,1,1,0,'','Ventana se cierra','Estimados\n\nCompilando con lo mas actual, cuando corro mi app, ya en la terminal, y minimizo mi app, esta se cierra como si le picara a la \"X\" para cerrar o terminar la app.\n\nOtra ...\n\nBusque en el foro, pero no encontre algo como leer archivos INI.\n\nSaludos\nOsvaldo ramirez','',0,'','194bcf27',1,0,'',95,0,0),(10259,2399,19,54,0,'201.127.91.235',1143413688,1,0,1,1,1,1,'','Re: Win XP Pro SP2?','[quote=&quot;RuFer&quot;:39ibu8oy]Amigos: \nEstoy por instalar el SP2 para XP Pro y necesito\nme digan si han tenido algun problema\ncon FWH, Harbour y BCC\n\nMuchas gracias\n\nRuben Fernandez[/quote:39ibu8oy]\n\nYo sin problemas, Win XP Pro SP2\nVersion 2002','',0,'gA==','39ibu8oy',1,0,'',54,0,0),(10260,2395,3,141,0,'200.88.94.67',1143417614,1,0,1,1,1,1,'','','Hola,\n\nPara permitir que el dialogo pueda ser redimensionado (resize) agrega:\n\noDlg:nStyle := nOr( oDlg:nStyle, WS_THICKFRAME )\n\nPara hacer que el ancho del browse ocupe todo el ancho del dialogo:\n\noDlg:oClient := oLbx\n\nEsto, todo, antes del ACTIVATE del dialogo.\n\nEspero te sirva,','',0,'gA==','1m33v22e',1,0,'',141,0,0),(10261,2406,6,141,0,'200.88.94.67',1143417983,1,0,1,1,1,1,'','ADO no me funciona en una tabla en especifico','Hola a todos,\n\n... no tienen idea de lo que he buscado informacion sobre esto en la red, y finalmente he caido aqui, pues he llegado a la conclusion de que solamente Ustedes podran darme luz en esto.\n\nSe trata del ampliamente expuesto en la red, problema del mensaje de error que aparece:\n\n\"No se puede encontrar la fila para su actualizacion: algunos valores han cambiado desde la ultima vez que se leyo\"\n\nA partir de alli, parece que la conexion con el recorset desaparece, pues todas las instrucciones que siguen aparecen con error, y nunca se ejecuta.\n\n\nTOdo esto aparece al ejecutar una instruccion ::oRs:Update().  \n\nNo me ocurre con todas las tablas de la base de datos, sino con una sola de ellas (hasta ahora no he comprobado con todas las tablas).  A TODAS las tablas de la base de datos se le ha agregado un columna, al inicio, llamada \"noreg\", entero, auto_increment que lo utilizo como llave primaria.\n\nEstoy usando xHarbour 0.99.3, FWH24, Borland 5.5.1, MySQL 3.23 (en modo local) e instale MyODBC 2.50\n\nHasta ahora he tratado lo siguiente:\n\n1.- realizo las sustituciones con ::oRs:Fields(n):value := \'valor a cambiar\', cambie a ::oRs:Fields(\'nombre del campo\'):value := ´valor a cambiar\', y el error persiste.\n\n2.- realizo el ::oRs:Update() al final de las sustituciones.  Cambie a realizar las sustituciones por ::oRs:Update(\'nombre del campo\', \'valor a cambiar\'), y el error persiste.\n\n3.- Utilizo OPTION=3, y la cambie a OPTION=16387, y el error persiste.\n\n4.- marque las dos primeras opciones en la configuracion de MyODBC en el COntrol Panel, y el error persiste.\n\n5.- Ejecute todo con la opcion de Trazas seleccionada en Control Panel, y el archivo no me dice de nikngun error (o no se interpretarlo), y tambien seleccione la opcion de trazas con OPTION=7, y lo mismo.\n\n6.- He leido todas las news de FW, y veo que nadie reporta esto.\n\n7.- He buscado en la red, y aunque mucha gente lo reporta, nadie llega a una solucion.  Algunos suguieren soluciones para VB, tales como utilizar los campos numericos en formato DOUBLE y no FLOAT, agregar un campo timestamp \"dummy\" a las tablas.  Esto no lo he tratado aun.\n\nMi string de conexion es:\n\nDRIVER={MySQL}; SERVER=localhost; DATABASE=XXXXXXX; UID=jllinas; PWD=XXXXXXXX; OPTION=16387      \n\nAL momento de conectar, el CursorLocation es adUseClient.\n\nPara crear el recordset hago:\n\n::oRs := CreateObject(\"ADODB.Recordset\")\n::oRs:Open( cQuery, uConn, nCursorType, nLockType, nOptions )\n\ndonde nCursorType es adOpenKeySet, nLockType es adLockOptimistic y nOptions es adCmdUnknown\n\nHe comprobado, y realmente el registro no se ha movido, comprobado entre la lectura y la escritura.\n\n... no se que mas comprobar, a ver que estoy haciendo mal...\n\nMe estoy tirando de los pelos que ya no me quedan!\n\nAYUDA.... POR FAVOR !!!!!','',0,'gA==','adfj8ttc',1,0,'',141,0,0),(10262,2401,3,141,0,'200.88.94.67',1143418119,1,0,1,1,1,1,'','','<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> Sorry,\n\nWrong place.... moved to spanish forum!','',0,'gA==','393x2bs9',1,0,'',141,0,0),(10263,2399,19,61,0,'201.217.165.244',1143435545,1,0,1,1,1,0,'','','Gracias William.\n\nPruebo y les cuento.\n\n\nSaludos\n\nRuben Fernandez','',0,'gA==','14h5ppz1',1,0,'',61,0,0),(10264,2322,7,449,0,'212.64.224.250',1143441812,1,0,1,1,1,0,'','','Jose Luis,\n\nGracias por la iluminacion, uno no conocia este mundillo, jejeje. La opcion del email creo q es la q mejor se ajusta. Yo pensaba, q podria ser mas facil, traspasar un fichero, pero veo q hay demasiados factores a tener en cuenta. Al final y de momento.,  correo y tira palante.\n\n\nGracias a todos.\n\nSaludos.\nC.','',0,'gA==','3d4qzmpm',1,0,'',449,0,0),(10265,2407,7,262,0,'87.235.159.190',1143443711,1,0,1,1,1,1,'','Compatibilidad con CE NET.?','Pues eso , mirando unos modelos de pocket , en concreto [url:33q9pimm]http&#58;//www&#46;flamagas&#46;com/Default&#46;asp?NODO=12301[/url:33q9pimm]\nmuy interesantes , al tener la impresora adosada , me encuentro con que llevan sistema operativo CE NET. \nNuestro querido FWPPc ¿ funciona sobre ese sistema ? , existe alguna limitación especial ? o por contra podemos ser los reyes de la velocidad en estos cacharros ?\nSaludos y gracias .\n\n---------------------editiado ------------------------\nperdón por el post , ya he visto la respuesta en [url:33q9pimm]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=2233&amp;highlight=net[/url:33q9pimm]\nesto de preguntar primero y buscar despues no es muy buena idea <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','33q9pimm',1,0,'',262,0,0),(10266,2408,6,21,0,'80.58.49.235',1143449234,1,0,1,1,1,1,'','EndPage en TPrinter','Hola foro,\n\nHe encontrado el siguiente problema en la clase TPrinter.\n\nEl método EndPage contiene lo siguiente:\n[code:2kxi7a70]METHOD _EndPage&#40;&#41; CLASS TPrinter\n\n   if &#58;&#58;hDC = 0\n    return nil\n   endif\n\n   if &#58;&#58;lMeta\n    if Len&#40; &#58;&#58;aMeta &#41; == 0\n       MsgAlert&#40; &quot;The temporal metafile could not be created&quot;,;\n             &quot;Printer object Error&quot; &#41;\n    else\n       #ifndef __CLIPPER__\n        &#58;&#58;hDCOut &#58;= DeleteEnhMetaFile&#40; CloseEnhMetaFile&#40; &#58;&#58;hDCOut &#41; &#41;\n       #else\n	      &#58;&#58;hDCOut &#58;= DeleteMetaFile&#40; CloseMetaFile&#40; &#58;&#58;hDCOut &#41; &#41;\n       #endif\n\n       if ! File&#40; Atail&#40; &#58;&#58;aMeta &#41; &#41;\n        MsgAlert&#40;&quot;Could not create temporary file&#58; &quot;+Atail&#40;&#58;&#58;aMeta&#41;+CRLF+CRLF+;\n             &quot;Please check your free space on your hard drive &quot;+CRLF+;\n             &quot;and the amount of files handles available&#46;&quot; ,;\n             &quot;Print preview error&quot; &#41;\n       endif\n    endif\n   else\n    EndPage&#40; &#58;&#58;hDC &#41;   // Esta función no exite\n   endif\n\nreturn nil[/code:2kxi7a70]\nEn el aparece la llamada \"EndPage( ::hDC )\", la cual es una función que no existe.','',0,'AIA=','2kxi7a70',1,0,'',21,0,0),(10267,2408,6,2,0,'87.218.146.177',1143451583,1,0,1,1,1,1,'','','Fernando,\n\nLa función EndPage() está en source\\winapi\\printdc.c','',0,'AIA=','1sbn85ik',1,0,'',2,0,0),(10268,2408,6,21,0,'80.58.49.235',1143460165,1,0,1,1,1,1,'','','Hola Antonio,\n\nPerdón, tienes toda la razón.\n\nMe esta dando un error, de vez en cuando, porque no existe endpage y no logro localizarlo.\n\nSeguiré buscando donde tengo el problema.','',0,'AIA=','3qakwugl',1,0,'',21,0,0),(10269,2409,3,49,0,'213.82.134.66',1143461092,1,0,1,1,1,1,'','circles on xharbour( fw)','How create tree concentric circles ? \n\nRegards','',0,'AIA=','1x6tk2wo',1,0,'',49,0,0),(10270,2410,20,49,0,'213.82.134.66',1143461198,1,0,1,1,1,1,'','ISBN','qualcuno di VOi sa  come controllare che un codice Isbn è veritiero oppure come si fa a creare un codice isbn : dove lo posso trovare  un esempio ?\n\nGrazie','',0,'AIA=','30iylcwv',1,0,'',49,0,0),(10271,2411,6,49,0,'213.82.134.66',1143461716,1,0,1,1,1,1,'','Ttime pick of fgondi','when I try with resource it run ok but if i create a dialog simply ( NO RES)  with two get \n\none get = date pick \nsecond get = time pick \n\ngive me allways date pick \n\n\nwhy ?\n\nRegards','',0,'AIA=','jm16wlsa',1,0,'',49,0,0),(10272,2356,6,49,0,'213.82.134.66',1143461870,1,0,1,1,1,1,'','','Dear Rossine,\nwich version of wbrowse U have modified ?\nwbrowse of hernan or wbrowse of linares ( fivewin) ?\nwhen U publish it ?\n\nBest Regards','',0,'AIA=','2g3zr74e',1,0,'',49,0,0),(10273,2409,3,2,0,'87.218.146.177',1143462000,1,0,1,1,1,1,'','','Silvio,\n\n[code:198l4s5p]\nBOOL Ellipse&#40;\n    HDC hdc,	// handle to device context \n    int nLeftRect,	// x-coord&#46; of bounding rectangle\'s upper-left corner \n    int nTopRect,	// y-coord&#46; of bounding rectangle\'s upper-left corner  \n    int nRightRect,	// x-coord&#46; of bounding rectangle\'s lower-right corner  \n    int nBottomRect 	// y-coord&#46; bounding rectangle\'s f lower-right corner  \n   &#41;;\n[/code:198l4s5p]','',0,'AIA=','198l4s5p',1,0,'',2,0,0),(10274,2393,3,2,0,'87.218.146.177',1143462160,1,0,1,1,1,1,'','','Davide,\n\ntry this: \n\nFixSays( oBar:hWnd )\noBar:Refresh()','',0,'AIA=','2t4kd0uc',1,0,'',2,0,0),(10275,2409,3,49,0,'213.82.134.66',1143462284,1,0,1,1,1,1,'','','if I have \n[code:28mqv6rq] Rectangle&#40; &#58;&#58;hDC, nX, nY, nX + &#58;&#58;nHeight, &#40; nY += &#58;&#58;nPinWidth &#41; &#41;[/code:28mqv6rq]\n\nwith ellipse\n[code:28mqv6rq] ellipse&#40; &#58;&#58;hDC, nX, nY, nX + &#58;&#58;nHeight, &#40; nY += &#58;&#58;nPinWidth &#41; &#41;[/code:28mqv6rq]\n\n I try it but it not draw circle concentric','',0,'AIA=','28mqv6rq',1,0,'',49,0,0),(10276,2356,6,104,0,'201.58.79.168',1143462302,1,0,1,1,1,0,'','','Hello Silvio,\n\n&gt; wich version of wbrowse U have modified ? \n&gt; wbrowse of hernan or wbrowse of linares ( fivewin) ? \n\n1.7 Hernan.\n\n&gt;when U publish it ? \n\nProbably this week.  The problem that I should do diverse changes.  \n\nBest Regards\n\nRossine.','',0,'AIA=','385o34uo',1,0,'',104,0,0),(10277,2387,6,362,0,'200.168.52.156',1143462690,1,0,1,1,1,1,'','','Antonio, DATA   lTransparent ya lo esta en: CONTROL.PRG es otra cosa...\n\nAplicacion:\n===========\n   Caminho(Path): C:\\PDVXB\\BALCAOW.EXE (32 bits)\n   Tamanho: 3,562,496 bytes\n   Hora Inicial: 0 hours 0 mins 0 secs \n   Ocorrencia de Erro: 03/27/06, 09:16:26\n   Descricao do Erro: Error BASE/1004  Message not found: TSAY:LTRANSPARENT\n\nLlamada da Pilha:\n=================\n \n   llamada De: TSAY:ERROR(179)\n\nMETHOD Initiate( hDlg ) CLASS TSay\n\n   Super:Initiate( hDlg )\n\n   if ! IsAppThemed()\n      if ::lTransparent\n         if ! Empty( ::oWnd:oBrush:hBitmap )\n            ::SetBrush( ::oWnd:oBrush ) \n         endif\n      endif\n   endif            \n\n   if ::cCaption != nil // don\'t use Empty() here or blank texts will not show\n      SetWindowText( ::hWnd, ::cCaption )\n   else\n      ::cCaption = GetWindowText( ::hWnd )\n   endif\n\nreturn nil\n\n   Llamada De: (b)HBOBJECT:HBOBJECT(105)\n\n   Llamada De: TSAY:MSGNOTFOUND(0)\n\n   Llamada De: TSAY:LTRANSPARENT(167)\n\n   //-&gt; Linea 167 de SAY.PRG\n   oWnd:DefControl( Self )\n\n   Llamada De: TSAY:INITIATE(178)\n\n   //-&gt; Linea 178 de SAY.PRG\nMETHOD Initiate( hDlg ) CLASS TSay\n\n   Super:Initiate( hDlg )\n\n   if ! IsAppThemed()\n      if ::lTransparent\n         if ! Empty( ::oWnd:oBrush:hBitmap )\n            ::SetBrush( ::oWnd:oBrush ) \n         endif\n      endif\n   endif            \n\n   if ::cCaption != nil // don\'t use Empty() here or blank texts will not show\n      SetWindowText( ::hWnd, ::cCaption )\n   else\n      ::cCaption = GetWindowText( ::hWnd )\n   endif\n\nreturn nil\n\n\n   Llamada De: __OBJSENDMSG(0)\n\n   Llamada De: OSEND(224)\n\n   Llamada De: ASEND(175)\n\n   Llamada De: TDIALOG:INITIATE(657)\n\n   //-&gt; Linea  657 de DIALOG.PRG\n   ASend( ::aControls, \"INITIATE()\", ::hWnd )\n\n   Llamada De: TDIALOG:HANDLEEVENT(902)\n\n   //-&gt; Linea 902 de DIALOG.PRG\n           return ::Initiate( nWParam, nLParam )\n\n   Llamada De: DIALOGBOXINDIRECT(0)\n\n   Llamada De: TDIALOG:ACTIVATE(269)\n\n   //-&gt; Linea 269 de DIALOG.PRG\n         ::nResult = if( ! Empty( ::cResName ),;\n                      DialogBox( ::hResources, ::cResName,;\n                                      hActiveWnd, Self ),;\n                      DialogBoxIndirect( GetInstance(),;\n                                         If( ! Empty( ::cResData ), ::cResData, ::cToChar( hActiveWnd ) ),;\n                                         hActiveWnd, Self ) )\n\n   Llamada De: MSGMETER(30)\n\n   //-&gt; Linea 30 de MSGMETER.PRG\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID lEnd\n\n   Llamada De: MAIN(168) //-&gt; Mi function','',0,'AIA=','3j5gntus',1,0,'',362,0,0),(10278,2409,3,6,0,'87.10.10.122',1143463811,1,0,1,1,1,1,'','Re: circles on xharbour( fw)','This is a working sample:\n\n[code:2nb7usrf]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL nX &#58;= 100\n    LOCAL nY &#58;= 100\n\n    LOCAL nMinRad &#58;= 20\n    LOCAL nMaxRad &#58;= 100\n\n    LOCAL nStep &#58;= 10\n\n    DEFINE DIALOG oDlg;\n           SIZE 200, 200\n\n    ACTIVATE DIALOG oDlg;\n             ON PAINT CIRCLES&#40; oDlg, hDC, nX, nY, nMinRad, nMaxRad, nStep &#41;;\n             CENTER\n\n    RETURN NIL\n\n\n#define BRUSH_NULL 5\n\n\nSTATIC FUNCTION CIRCLES&#40; oDlg, hDC, nX, nY, nMinRad, nMaxRad, nStep &#41;\n\n    LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41;\n\n    LOCAL i\n\n    FOR i = nMinRad TO nMaxRad STEP nStep\n        oDlg&#58;Circle&#40; nX - i, nY - i, i * 2 &#41;\n    NEXT\n\n    SELECTOBJECT&#40; hDC, hOldBrush &#41;\n\n    RETURN NIL[/code:2nb7usrf]\n\nEMG','',0,'AIA=','2nb7usrf',1,0,'',6,0,0),(10279,2391,3,2,0,'87.218.146.177',1143464028,1,0,1,1,1,1,'','','Ehab,\n\nOLE and ActiveX are quite complex issues, but FWH makes it quite simple:\n\nOleGetProperty( hOLE, cPropertyName, [index1], ... [indexN] ) --&gt; uvalue\n\nOleSetProperty( hOLE, cPropertyName, uValue )\n\nOleInvoke( hOLE, cMethodName, [param1], ... [paramN] ) --&gt; uValue','',0,'','333hkrw1',1,0,'',2,0,0),(10280,2410,20,6,0,'87.10.10.122',1143464139,1,0,1,1,1,1,'','Re: ISBN','<!-- m --><a class=\"postlink\" href=\"http://www.steppa.net/html/isbn/isbn.htm\">http://www.steppa.net/html/isbn/isbn.htm</a><!-- m -->\n\nEMG','',0,'','38n7x4uc',1,0,'',6,0,0),(10281,2356,6,104,0,'201.58.79.168',1143464156,1,0,1,1,1,0,'','','Olá Antonio,\n\nTem como fazer o efeito erasebackground com bitmaps dentro da classe\nTheader ?\n\nVeja na imagem abaixo que a classe image (Setimagelist) funciona certo mas o bitmap não.\n\n[img:2mvp980e]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/brw5&#46;PNG[/img:2mvp980e]\n\nGracias,\n\nRossine.','',0,'CA==','2mvp980e',1,0,'',104,0,0),(10282,2387,6,362,0,'200.168.52.156',1143465606,1,0,1,1,1,1,'','','Local   6:    O    Classe: TDIALOG\n   MSGMETER\n     Param   1:    B    {|| ... }\n     Param   2:    C    \"Por Favor, Espere! Recriando os Bancos\"\n     Local   1:    C    \"Please, wait\"\n     Local   2:    O    Classe: TDIALOG\n     Local   3:    O    Classe: TMETER\n     Local   4:    O    Classe: TSAY\n     Local   5:    O    Classe: TBUTTON\n     Local   6:    O    Classe: TFONT\n     Local   7:    L    .F.\n     Local   8:    L    .F.\n     Local   9:    N    0\n\nClasses em Uso:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TFONT\n     4 TWINDOW\n     5 TDIALOG\n     6 TBRUSH\n     7 TCONTROL\n     8 TSAY\n     9 TMETER\n    10 TBUTTON\n    11 ERROR\n    12 TREG32','',0,'CA==','1v2s3dzl',1,0,'',362,0,0),(10283,2406,6,97,0,'200.23.84.231',1143467834,1,0,1,1,1,1,'','Prueba poner esto','Julio yo lo creo de la sig. manera y me ha funcionado.\n\noEMPRESAS := CREATEOBJECT( \"ADODB.Recordset\" )\noEmpresas:CursorLocation := 3\noEmpresas:CursorType     := 3\noEmpresas:LockType       := 3\noEmpresas:MaxRecords     := 0\n\nespero te funcione.','',0,'','13u7kn82',1,0,'',97,0,0),(10285,2411,6,21,0,'80.58.49.235',1143471892,1,0,1,1,1,1,'','','Hola Silvio,\n\nPuedes mostrar algo del código en la definición de los get\'s?','',0,'','3g9o298q',1,0,'',21,0,0),(10286,2412,6,237,0,'200.68.70.89',1143473558,1,0,1,1,1,0,'','Comprar fivewin en Argentina','He estado luchando con el tema del cambio del hb_Stack y el mismo Antonio me dice que no tiene solución para las versiones mas antiguas y que compre una version mas nueva cosa que no me convence pero sino queda otra, ya es tarde para cambios y volver a desarrollar todo lo que tengo que entregar-\nAlguien sabe quien vende en Argentina la última version de fwh ? hay algun representante aqui? En Brasil? Uruguay?\n\nGracias-','',0,'','1busnv9f',1,0,'',237,0,0),(10287,2393,3,487,0,'151.42.102.237',1143476228,1,0,1,1,1,0,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:324u8d7p]\nFixSays( oBar:hWnd )\noBar:Refresh()[/quote:324u8d7p]\n\nit works, and the :SetBrush() is not needed at all. \nThank you,\nDavide.','',0,'gA==','324u8d7p',1,0,'',487,0,0),(10288,2412,6,2,0,'87.218.146.177',1143477696,1,0,1,1,1,1,'','','Toda la distribución se hace directamente desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->, sección pedidos.','',0,'gA==','9c0pp1xt',1,0,'',2,0,0),(10289,2387,6,2,0,'87.218.146.177',1143477910,1,0,1,1,1,1,'','','João,\n\nEstás usando las clases estandard de FWH ó usas clases modificadas ?','',0,'gA==','ja77v3nt',1,0,'',2,0,0),(10290,2400,6,2,0,'87.218.146.177',1143477977,1,0,1,1,1,1,'','','Ruben,\n\nRevisa samples\\buildhm.bat para Harbour y buildxm.bat para xharbour.','',0,'gA==','64zsbhwu',1,0,'',2,0,0),(10291,2387,6,362,0,'200.168.52.156',1143478473,1,0,1,1,1,1,'','','Antonio mis disculpas, erro mio. \n\nEstaba llamando la CLASSE  CONTROL.PRG Antigua en mi ARCHIVO.BAT Y ARCHIVO.LNK\n\nAhora el problema es en los GROUP BOX, Comando TRANSPARENT NO FUNCIONA.\n\n// Testing Groups\n\n#include \"FiveWin.ch\"\n#include \"WColors.ch\"\n\n//----------------------------------------------------------------------------//\nFunction Main()\n\n    LOCAL oDlg, oBrush, oGroup, oFont\n\n    DEFINE BRUSH oBrush FILE \"..\\bitmaps\\bricks.bmp\"\n\n    DEFINE FONT oFont NAME \'MS Sans Serif\' SIZE 0,-8 BOLD\n\n    DEFINE DIALOG oDlg NAME \"Test\" BRUSH oBrush TRANSPARENT\n\n    REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ;\n             FONT oFont PROMPT \"Modified Group Caption\" TRASPARENT\n\n    REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg:End()\n\n    ACTIVATE DIALOG oDlg\n\n    RELEASE BRUSH oBrush\n    RELEASE FONT oFont\n\nreturn Nil\n//----------------------------------------------------------------------------//','',0,'gA==','j9z8urrd',1,1143487535,'',362,1,0),(10292,2387,6,362,0,'200.168.52.156',1143478594,1,0,1,1,1,1,'','','OTRA:\n\nEN \\SAMPLES\\TESTFOLD.PRG \n\nAL COMPILAR, SI APLICO 2(DOS) ESCAPE, hay problema. Mira por favor.','',0,'gA==','28fvdy98',1,0,'',362,0,0),(10293,2406,6,141,0,'200.88.94.114',1143480193,1,0,1,1,1,1,'','','Fernando,\n\nGracias adelantadas por contestar...\n\nEn efecto, comparando la forma que lo hago con lo que me expresas aqui, tenía solo diferencia en el ::oRs:CursorType, que al tu colocarle un valor de 3, significa que has seleccionado adOpenStatic.  Ya habia observado que algunos otros compañeros asi lo hacian.\n\nLo cambié y el problema persiste.  Lo probe de nuevo con la tabla en interes, y no funciona (reporta el mismo error), mientras que en otras tablas el problema no ocurre, y el ABM ocurre normalmente.\n\nUna cosa que no entendi:  incluyes aqui el parámetro ::oRs:MaxRecords := 0.   ¿Que significa esto?  no lo habia visto por ninguna otra parte...\n\nPor otro lado, y ahora para todos:\n\n¿En ADO existen nombres reservados, que no puedan utilizarse para nombres de columnas?  Se que en MySQL existen, y ya pase por esta, pero no he verificado en ADO.... ¿Alguien sabe de esto?\n\nGracias a todos,','',0,'gA==','3qnuyh34',1,0,'',141,0,0),(10294,2400,6,61,0,'201.217.161.37',1143481128,1,0,1,1,1,0,'','','Gracias Antonio.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','13ytp0ip',1,0,'',61,0,0),(10295,2412,6,237,0,'200.68.70.89',1143482227,1,0,1,1,1,0,'','Representantes locales','Antonio\n\nPreguntaba por representantes locales por el tema de los costos de envio, necesito achicar los costos lo mas posible.\n\nSalu2','',0,'gA==','6tn3lwe2',1,0,'',237,0,0),(10296,2406,6,97,0,'200.23.84.231',1143485819,1,0,1,1,1,1,'','::ORs:Maxrecords','Julio , segun lo que indica la documentacion es esto.\n\nNos permite fijar el número máximo de registros que aceptará el objeto Recordset. El valor por defecto es 0 e indica que no existirá límite.\n\nsi quieres puedes anviarme la tabla o la bd, para ver si tambien a mi presenta los mismo problemas.\n\nsaludos\nfernando sandoval ruiz','',0,'gA==','2q5zr9ty',1,0,'',97,0,0),(10297,2413,6,64,0,'201.50.150.69',1143487061,1,0,1,1,1,1,'','Mudar tipo de papel, socorro!','Ola, \n\n     Como posso mudar o tipo de papel através da TPRINTER? \n\n[img:2hrbkofv]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/Tela_HP1300&#46;jpg[/img:2hrbkofv]\n\nGrata.','',0,'CA==','2hrbkofv',1,0,'',64,0,0),(10298,2412,6,2,0,'87.218.146.177',1143487064,1,0,1,1,1,1,'','','El software se te envia por internet, con lo que no tiene gastos de envio.','',0,'CA==','2un37xcd',1,0,'',2,0,0),(10299,2356,6,2,0,'87.218.146.177',1143487215,1,0,1,1,1,1,'','','Rossine,\n\nSi modificas souce\\winapi\\wndmove.c de esta manera:\n[code:2d8fzxdg]\nCLIPPER WNDLEFT&#40; PARAMS &#41;  // &#40; hWnd &#91;, nNewLeft &#93; &#41; --&gt; nNewLeft\n&#123;\n   RECT rct;\n   HWND hWnd = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n   POINT pt;\n   WORD wWidth, wHeight;\n   BOOL bSet = &#40; PCOUNT&#40;&#41; &gt; 1 &#41;;\n   LONG wNewLeft = _parnl&#40; 2 &#41;;\n&#46;&#46;&#46;\n[/code:2d8fzxdg]\nEntonces puedes hacer oHeader:nLeft -= ... y no desaparece.','',0,'AIA=','2d8fzxdg',1,0,'',2,0,0),(10300,2387,6,362,0,'200.168.52.156',1143487469,1,0,1,1,1,1,'','','Antonio, Esto no mi funciona mas... Los GET\'s, y los RADIOBUTTONs Desaparece.\n\n\n    DEFINE ICON OICO FILE \".\\BRASIL__.BMP\" // Um Öcone no Lado Esquerdo da Tela\n    DEFINE BRUSH oBrush FILE \"COMPAR.BMP\"\n\n    DEFINE DIALOG oDlg RESOURCE \"DLG_ENTRADA_SAIDA_SANGRIA\"                   ;\n           TITLE cTitle                                                       ;\n           ICON oIco                                                          ;\n           BRUSH oBrush TRANSPARENT\n\n    // Este Comando, Desliga Aquela ? Chata da Dialog que Pede o Help.\n    ODLG:LHELPICON := .F.\n\n    //--- Melhoria Visual nos Say\'s Usando a Classe SSAY.PRG\n    For iDcor=401 To 415\n        REDEFINE SENSITIVE SAY ID iDcor ;\n        COLOR CLR_BLACK                 ;\n        OF oDlg                         ;\n        UPDATE                          ;\n        RAISED TRANSPARENT              ;\n        FONT oFont CENTER\n    Next iDcor\n\n    //-&gt; Colores en el Group Box de laa Dialog\n    REDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg      ;\n             FONT oFont TRANSPARENT\n\n    REDEFINE RADIO oRadio VAR lRadCadCaixa ID 601, 602, 603, 604 OF oDlg      ;\n             COLOR CLR_BLACK, RGB( 143, 168, 127 )                            ;\n             ON CHANGE( Click(), TROCAR_TIPO( lAppend, aGet, lRadCadCaixa, oDlg ) )\n\n    REDEFINE GET aGet[1]  VAR XNUMCXA  PICTURE \"@K 999\"                       ;\n             ID 20 OF oDlg                                                    ;\n             VALID( XNUMCXA &gt; 0 )                                             ;\n             FONT oFont UPDATE                                                ;\n             COLOR CLR_HRED, CLR_HCYAN                                        ;\n             MESSAGE ( OemToAnsi( \"Caixa Para Gravar os Dados da Sangria\" ) )','',0,'','185hrj28',1,0,'',362,0,0),(10301,2356,6,104,0,'201.58.79.168',1143488021,1,0,1,1,1,0,'','','Olá Oskar,\n\nObrigado pela sugestão mas não funcionou. O mais interessante é que se eu colocar um bitmap dentro da SETIMAGELIST tambem não funciona o efeito erasebakground  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  Já na classe folder que mudei funcionou. Alguém tem mais alguma sugestão ?\n\nOlá Antonio,\n\n[code:105ass9o]\nCLIPPER WNDLEFT&#40; PARAMS &#41;  // &#40; hWnd &#91;, nNewLeft &#93; &#41; --&gt; nNewLeft \n&#123; \n   RECT rct; \n   HWND hWnd = &#40; HWND &#41; _parnl&#40; 1 &#41;; \n   POINT pt; \n   WORD wWidth, wHeight; \n   BOOL bSet = &#40; PCOUNT&#40;&#41; &gt; 1 &#41;; \n   LONG wNewLeft = _parnl&#40; 2 &#41;; \n&#46;&#46;&#46; \n[/code:105ass9o]\n\nObrigado pela sugestão mas eu fiz assim e também funcionou  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n[code:105ass9o]\nSetWindowPos&#40; &#58;&#58;oHeaderH&#58;hWnd, 0, &#58;&#58;oHeaderH&#58;nTop, &#58;&#58;nHeadersPos, &#58;&#58;oHeaderH&#58;nright, &#58;&#58;nHeaderHeight, SWP_FRAMECHANGED &#41;\n[/code:105ass9o]\n\nOlá Todos,\n\nVejam com está ficando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[img:105ass9o]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/BRW7&#46;PNG[/img:105ass9o]\n\n[img:105ass9o]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/BRW6&#46;PNG[/img:105ass9o]\n\nAssim que possível postarei mais detalhes  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nAbraços a todos,\n\nRossine.','',0,'CIA=','105ass9o',1,0,'',104,0,0),(10302,2400,6,2,0,'87.218.146.177',1143489351,1,0,1,1,1,1,'','','Ruben,\n\nTambién tienes en el directorio makes, el fichero msmake.zip que es un make de ejemplo para Microsoft.','',0,'CIA=','22ir62oh',1,0,'',2,0,0),(10303,2387,6,362,0,'200.168.52.156',1143491899,1,0,1,1,1,1,'','','Antonio, mi falta algo en la CLASSE GROUP.PRG, para ficar perfecta como la antigua. ke és???\n\n\n#include \"FiveWin.ch\"\n#include \"Constant.ch\"\n\n#define WM_NCHITTEST     132  // 0x84\n\n#define WM_UPDATEUISTATE 296  // 0x0128\n\n#ifdef __XPP__\n   #define Super ::TControl\n   #define New   _New\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLASS TGroup FROM TControl\n\n   METHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd, nClrText,;\n               nClrPane, lPixel, lDesign, oFont, lTransparent ) CONSTRUCTOR\n\n   METHOD ReDefine( nId, cLabel, oWnd, nClrText, nClrPane, oFont, lTransparent ) CONSTRUCTOR\n\n   METHOD cToChar() INLINE  Super:cToChar( \"BUTTON\" )\n\n   #ifndef __CLIPPER__\n      METHOD EraseBkGnd( hDC )\n   #endif\n\n   METHOD HandleEvent( nMsg, nWParam, nLParam )\n\n   METHOD Initiate( hDlg )\n\n   METHOD Colors( hDC )\n   \nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd, nClrText, nClrPane,;\n            lPixel, lDesign, oFont, lTransparent ) CLASS TGroup\n\n   DEFAULT nTop     := 0, nLeft := 0, nBottom := 3, nRight := 3,;\n           oWnd     := GetWndDefault(),;\n           nClrText := oWnd:nClrText, nClrPane := oWnd:nClrPane,;\n           lPixel   := .f., lDesign := .f.,;\n           lTransparent:= .f., oFont := oWnd:oFont\n\n   #ifdef __XPP__\n      #undef New\n   #endif\n\n   ::nTop     = nTop    * If( lPixel, 1, GRP_CHARPIX_H ) // 14\n   ::nLeft    = nLeft   * If( lPixel, 1, GRP_CHARPIX_W ) //  7\n   ::nBottom  = nBottom * If( lPixel, 1, GRP_CHARPIX_H ) // 14\n   ::nRight   = nRight  * If( lPixel, 1, GRP_CHARPIX_W ) //  7\n   ::cCaption = cLabel\n   ::oWnd     = oWnd\n   ::nStyle   = nOR( WS_CHILD, WS_VISIBLE, BS_GROUPBOX,;\n                     If( lDesign, nOr( WS_TABSTOP, WS_CLIPSIBLINGS ), 0 ) )\n   ::nId      = ::GetNewId()\n   ::lUpdate  = .f.\n   ::lDrag    = lDesign\n\n   ::SetColor( nClrText, nClrPane )\n\n   if lTransparent\n      #ifndef __XPP__\n         ::SetBrush( TBrush():New( \"NULL\" ) )\n      #else\n         ::SetBrush( TBrush():New():_New( \"NULL\" ) )\n      #endif\n   endIf\n\n   if ! Empty( oWnd:hWnd )\n      ::Create( \"BUTTON\" )\n      oWnd:AddControl( Self )\n   else\n      oWnd:DefControl( Self )\n   endif\n\n   if oFont != nil\n      ::SetFont( oFont )\n   endIf\n\n   if lDesign\n      ::CheckDots()\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine( nId, cLabel, oWnd, nClrText, nClrPane, oFont,;\n                 lTransparent ) CLASS TGroup\n\n   DEFAULT nId      := ::GetNewId(),;\n           nClrText := oWnd:nClrText, nClrPane := oWnd:nClrPane,;\n           lTransparent:= .f.\n\n   ::nId      = nId\n   ::cCaption = cLabel\n   ::hWnd     = 0\n   ::oWnd     = oWnd\n   ::lUpdate  = .f.\n   ::lTransparent = lTransparent\n\n   ::SetColor( nClrText, nClrPane )\n\n   If lTransparent\n      #ifndef __XPP__\n         ::SetBrush( TBrush():New( \"NULL\" ) )\n      #else\n         ::SetBrush( TBrush():New():_New( \"NULL\" ) )  // Xbase++ does not translates twice\n      #endif\n   EndIf\n\n   if oFont != Nil\n      ::SetFont( oFont )\n   endIf\n\n   oWnd:DefControl( Self )\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD Initiate( hDlg ) CLASS TGroup\n\n   Super:Initiate( hDlg )\n\n   if Empty( ::cCaption )\n      ::cCaption = GetWindowText( ::hWnd )\n   Else                                    //  [byHernan] Si se redefine el\n      SetWindowText( ::hWnd, ::cCaption )  //  [byHernan] nombre debe respetarse\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGroup\n\n   local nResult\n\n   if ::lDrag .and. nMsg == WM_NCHITTEST      // To have a standard behavior on Clicks\n      return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )\n   endif\n\n   if nMsg == WM_UPDATEUISTATE  // Groups were erased when pressing ALT\n      nResult = Super:HandleEvent( nMsg, nWParam, nLParam )       \n      ::Refresh()\n      return nResult\n   endif   \n\nreturn Super:HandleEvent( nMsg, nWParam, nLParam )\n\n//----------------------------------------------------------------------------//\n\n#ifndef __CLIPPER__\n\nMETHOD EraseBkGnd( hDC ) CLASS TGroup\n\n   if IsAppThemed()\n      // return 1     Fix: 09-May-2005\n   endif\n\n   return Super:EraseBkGnd( hDC )\n\n#endif\n\n//----------------------------------------------------------------------------//\n\nMETHOD Colors( hDC ) CLASS TGroup\n\n   DEFAULT ::nClrText := GetTextColor( hDC ),;\n           ::nClrPane := GetBkColor( hDC ),;\n           ::oBrush   := TBrush():New( , ::nClrPane )\n\n   SetTextColor( hDC, ::nClrText )\n   SetBkColor( hDC, ::nClrPane )\n\n  if ::oBrush:hBitmap != nil\n     SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop )\n  endif\n\nreturn ::oBrush:hBrush\n\n//----------------------------------------------------------------------------//','',0,'','3gmvda3r',1,0,'',362,0,0),(10304,2387,6,2,0,'87.218.146.177',1143493020,1,0,1,1,1,1,'','','Esa clase TGroup está bien.','',0,'','3bs2mv33',1,0,'',2,0,0),(10305,2414,6,383,0,'201.240.88.107',1143494295,1,0,1,1,1,0,'','FileXLS','Alguien tiene los fuentes de la clase FILEXLS de Ramón Avendaño. Y si existe alguna de manera de obtenerlo. Gracias ante todo.','',0,'','6tbkhcid',1,0,'',383,0,0),(10306,2407,7,95,0,'201.137.195.114',1143496480,1,0,1,1,1,0,'','','Me parece buenisimo el producto.\n\nSaludos\nOsvaldo Ramirez','',0,'','2askow0t',1,0,'',95,0,0),(10307,2411,6,49,0,'87.1.179.7',1143497369,1,0,1,1,1,1,'','','[code:3ckrl3c3]#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Tmpicker&#46;ch&quot;\n#include &quot;Dtpicker&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg,  cTime, dDate\n        LOCAL oTime,  oDate\n    cTime &#58;= Time&#40;&#41;\n    dDate &#58;= Date&#40;&#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1,1 say &quot;Time &#58;&quot; of oDlg\n    @ 1,5 TMPICKER oTime var cTime of oDlg size 45,10\n\n    @ 3,1 say &quot;Date &#58;&quot; of oDlg\n    @ 3,5 DTPICKER oDate var dDate of oDlg  size 45,10\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:3ckrl3c3]','',0,'AIA=','3ckrl3c3',1,0,'',49,0,0),(10308,2387,6,362,0,'200.168.52.156',1143500475,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:175m8gfu]Esa clase TGroup está bien.[/quote:175m8gfu]\n\n\nSi Antonio...\n\nPero hay alguno problema con CONTROL.PRG o TGET.PRG con el COMANDO lTransparent.\n\nsi uso CONTROL.PRG de MARZO/2006 los SAY\'s  si quedan blancos.\n\nSi usted mirar GROUP.PRG de marzo/2006 no esta asi como el ejemplo arriba.\n\nPor favor teste TESTGRP.PRG mira ke el GET no aparece.\n\nTienes algo mui errado com el release de marzo/2006. Saludos.','',0,'gA==','175m8gfu',1,0,'',362,0,0),(10309,2411,6,21,0,'81.172.126.213',1143501254,1,0,1,1,1,1,'','','Hola silvio,\n\nHay que hacer unas modificaciones en la clase ttimepick, así como en el ch correspondiente.\n\nEn el ch:\n[code:3rj4lhc9]#define DTS_UPDOWN                  1  // use UPDOWN instead of MONTHCAL\n#define DTS_SHOWNONE                2  // allow a NONE or checkbox selection\n#define DTS_SHORTDATEFORMAT         0  // use the short date format \n#define DTS_LONGDATEFORMAT          4  // use the long date \n#define DTS_SHORTDATECENTURYFORMAT 12  // short date format with century \n#define DTS_TIMEFORMAT              9  // use the time \n#define DTS_RIGHTALIGN             32  // right-align popup instead of left-align [/code:3rj4lhc9]\nEn el prg:\n[code:3rj4lhc9]METHOD New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;\n            nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;\n            bWhen, bChange, nHelpId&#41; Class TTimePick\n\n   DEFAULT nRow     &#58;= 0, nCol &#58;= 0,;\n           oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nWidth   &#58;= 100,;\n           nHeight  &#58;= If&#40; oFont != nil, oFont&#58;nHeight, 22 &#41;,;\n           nClrFore &#58;= GetSysColor&#40; COLOR_WINDOWTEXT &#41;,;\n           nClrBack &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,;\n           oFont    &#58;= oWnd&#58;oFont,;\n           nHelpId  &#58;= 100,;\n           lDesign  &#58;= &#46;f&#46;,;\n           lPixel   &#58;= &#46;f&#46;,;\n           lUpdate  &#58;= &#46;f&#46;\n\n   &#58;&#58;cCaption  = &quot;&quot;\n   &#58;&#58;nTop      = nRow * If&#40; ! lPixel, BTN_CHARPIX_H, 1 &#41;\n   &#58;&#58;nLeft     = nCol * If&#40; ! lPixel, BTN_CHARPIX_W, 1 &#41;\n   &#58;&#58;nBottom   = &#58;&#58;nTop  + nHeight\n   &#58;&#58;nRight    = &#58;&#58;nLeft + nWidth\n   &#58;&#58;nHelpId   = nHelpId\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;oFont     = oFont\n   &#58;&#58;bSetGet   = bSetGet\n   &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP, DTS_TIMEFORMAT, ;\n                     If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41; &#41;\n\n   &#58;&#58;nId       = &#58;&#58;GetNewId&#40;&#41;\n   &#58;&#58;lDrag     = lDesign\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;cMsg      = cMsg\n   &#58;&#58;lUpdate   = lUpdate\n   &#58;&#58;bWhen     = bWhen\n   &#58;&#58;bValid    = bValid\n   &#58;&#58;bChange   = bChange\n\n   InitCommon&#40;&#41;\n\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40; &quot;SysDateTimePick32&quot; &#41;\n      oWnd&#58;AddControl&#40; Self &#41;\n      if oFont != nil\n         &#58;&#58;SetFont&#40; oFont &#41;\n      endif\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\n   if lDesign\n      &#58;&#58;CheckDots&#40;&#41;\n   endif\n\nreturn Self[/code:3rj4lhc9]\n\nHay que incluir \"DTS_TIMEFORMAT\" en la función \"nOr\"','',0,'AIA=','3rj4lhc9',1,0,'',21,0,0),(10310,2411,6,49,0,'87.1.179.7',1143502999,1,0,1,1,1,1,'','','Can I have all two classes with the modifies ?\nthanks','',0,'AIA=','1rfgxyle',1,0,'',49,0,0),(10311,2411,6,21,0,'81.172.126.213',1143504520,1,0,1,1,1,1,'','','Hola Silvio,\n\nThe modifications affect only to the class ttimepick, although include\'s is worth for the two classes.','',0,'AIA=','i3r7nfbs',1,0,'',21,0,0),(10312,2415,3,80,0,'202.72.164.124',1143505427,1,0,1,0,1,0,'','Error Fivewin/3','I am converting one of my old 16bit apps to 32 bit - in the 16bit \nsoftware I used a dll but in my 32  bit I use res files but everthing \nI have tried to convert over the files results in Error Fivewn/3 cannot\ncreate dialogbox - I even grabbed a working res file and cut and\npasted everthing across - the res file opens no problems in \nboth Borland Workshop and Pelles Resource editor.\n\nAny help or suggestions appreciated.\n\nCheers\n\nColin','',0,'AIA=','3iva2kjb',1,0,'',80,0,0),(10313,2416,6,471,0,'201.240.44.133',1143507736,1,0,1,1,1,1,'','Como puedo liberar los recursos desde dentro de codigo','Amigos \n\nTengo una aplicacion q consumo recursos por motivos que no \nse liberaron los manejadores de bmp  o brush etct etc y que \noriginan  que los fonts de repernte se pongan en negrita y se\nagranden. \n\nComo puedo liberarlos con una sola funcion para no estar \nrevisando todo el codigo \n\nGracias por su ayuda','',0,'AIA=','223jj2h4',1,0,'',471,0,0),(10314,2287,1,379,0,'59.167.117.131',1143510924,1,0,1,1,1,0,'','Searching','Whatabout lFoundAll','',0,'AIA=','6db15kut',1,0,'',379,0,0),(10315,2415,3,2,0,'87.218.146.177',1143517116,1,0,1,1,1,1,'','','Colin,\n\nDo you use Borland controls in your resources ? Look for \"Bor... in your RC file.\n\nIf yes, then please review the instructions about how to use Borland controls in 32 bits at:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwh.html\">http://www.fivetechsoft.com/english/fwh.html</a><!-- m -->','',0,'AIA=','1v4or8hs',1,0,'',2,0,0),(10316,2387,6,2,0,'87.218.146.177',1143517235,1,0,1,1,1,1,'','','Joao,\n\nIntenta usar las clases estandard de FWH sin modificarlas ni mezclar unas versiones con otras.','',0,'AIA=','3t4h3lzv',1,0,'',2,0,0),(10317,2416,6,2,0,'87.218.146.177',1143517449,1,0,1,1,1,1,'','','Vladimir,\n\nEn los fonts, como test, prueba a incrementarles el contador, haciendo oFont:nCount++ despues de crearlos, por si estás destruyéndolos más veces de las necesarias.','',0,'AIA=','3dxp2rdr',1,0,'',2,0,0),(10318,2414,6,2,0,'87.218.146.177',1143517751,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0127133772/TFILEXLS.zip.html\">http://hyperupload.com/download/0127133 ... S.zip.html</a><!-- m -->','',0,'AIA=','1pfa8k38',1,0,'',2,0,0),(10319,2400,6,61,0,'201.217.160.173',1143519133,1,0,1,1,1,0,'','','Mas gracias Antonio.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','sug3155k',1,0,'',61,0,0),(10320,2397,1,312,0,'24.150.179.34',1143522227,1,0,1,1,1,0,'','','Could it be you are using a Borland Control ( like a sunken or raised line or the borland static control )  on one of the pages/folder tabs or dialogs ? if so you will need to also load the BWCC.DLL as wel or change it to a non-borland style control. Workshop loads the BWCC.DLL when you have it running, this could be why it runs ok when workshop is running.','',0,'AIA=','3e2aqccv',1,0,'',312,0,0),(10321,2415,3,80,0,'202.72.164.124',1143533653,1,0,1,1,1,0,'','','Antonio\n\nThanks - I had some borland shades - removed them everything\nokay.\n\nCheers\n\nCoiln','',0,'AIA=','1xkmu0n7',1,0,'',80,0,0),(10322,2410,20,49,0,'213.82.134.66',1143533985,1,0,1,1,1,1,'','','ho visto grazie \nma praticamente non so se si riesca a costruire una funzione di controllo o a crearne una che costruisca un codice ...\nbisogna avere l\'array degli stati, delle case editrici ed altri dati ...','',0,'AIA=','1u2hye8e',1,0,'',49,0,0),(10323,2417,3,80,0,'202.72.164.124',1143534312,1,0,1,1,1,0,'','Weird Error','I use twbrowse ( Hernans ) and have cell editing and the following\nerror has occurred on one site - when the user hits the enter key\nthe cell usually goes into edit mode but occassionally the following \noccurs\n\nError BASE/1004  Message not found: TFONT:HANDLEEVENT \nCalled from __ERRRT_SBASE(0)\n   Called from TFONT:ERROR(179)\n   Called from (b)HBOBJECT(105)\n   Called from TFONT:MSGNOTFOUND(0)\n   Called from TFONT:HANDLEEVENT(169)\n   Called from SETFOCUS(0)\n   Called from TDIALOG:SETFOCUS(2594)\n   Called from (b)INPUT1(565)\n   Called from TWINDOW:GOTFOCUS(2416)\n   Called from (b)TMDICHILD(0)\n   Called from TMDICHILD:GOTFOCUS(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TMDICHILD:HANDLEEVENT(0)\n   Called from _FWH(3118)\n   Called from ENDDIALOG(0)\n   Called from TDIALOG:END(0)\n   Called from VALIDLEDITCOL(3973)\n   Called from (b)TWBROWSE:LEDITCOL(3925)\n   Called from TGET:LVALID(0)\n   Called from TGET:FWLOSTFOCUS(0)\n   Called from TGET:HANDLEEVENT(0)\n   Called from _FWH(3118)\n   Called from SYSREFRESH(0)\n\nThanks for any assistance\n\nCheers\n\nColin','',0,'AIA=','3lqzw781',1,0,'',80,0,0),(10324,2418,4,19,0,'217.153.83.2',1143535277,1,0,1,1,1,0,'','Record locking on Windows Mobile 5.01','Is it posible? \n\nregards,\nEugeniusz','',0,'AIA=','3owgov23',1,0,'',19,0,0),(10325,2419,4,6,0,'87.10.10.236',1143535953,1,0,1,1,1,1,'','Return key on comboboxes from resources','The following sample shows that hitting return key on comboboxes from resources doesn not move the focus to the next control:\n\n[code:3trvxpn8]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cUserid &#58;= SPACE&#40; 5 &#41;\n    LOCAL cPasswd &#58;= SPACE&#40; 8 &#41;\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;LOGIN&quot;\n\n    REDEFINE COMBOBOX cUserid;\n             ID 101 OF oDlg;\n             ITEMS &#123; &quot;1&quot;, &quot;2&quot;, &quot;3&quot; &#125;\n\n    REDEFINE GET cPasswd;\n             ID 102 OF oDlg\n\n    REDEFINE BUTTON;\n             ID 201 OF oDlg;\n             ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg\n\n    RETURN NIL[/code:3trvxpn8]\n\n[code:3trvxpn8]#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\nLOGIN DIALOG 0, 0, 285, 307\nSTYLE WS_POPUP\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Userid&#58;&quot;, -1, 10, 11, 25, 10\n COMBOBOX 101, 45, 10, 49, 65, CBS_DROPDOWNLIST | WS_TABSTOP\n LTEXT &quot;Password&#58;&quot;, -1, 10, 31, 35, 10\n EDITTEXT 102, 45, 30, 50, 13, ES_PASSWORD | WS_BORDER | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Ok&quot;, 201, 45, 60, 40, 15\n&#125;[/code:3trvxpn8]\n\nEMG','',0,'AIA=','3trvxpn8',1,0,'',6,0,0),(10326,2410,20,6,0,'87.10.10.236',1143536105,1,0,1,1,1,1,'','','Come controllare il codice è spiegato perfettamente qui:\n\n[quote:tvbivkhj]La quarta parte serve come codice di controllo.\nÈ calcolato in base a tutte le altre nove cifre.\n\nSi moltiplica per 10 la prima cifra del codice, per nove la seconda, per otto la terza, continuando sino a moltiplicare per 2 la nona cifra.\nPoi si effettua la somma delle cifre e si divide per 11.\nSe il resto è Zero, questo sarà il carattere di controllo, altrimenti si sottrae 11 dal resto.\nLa cifra ottenuta sarà il carattere di controllo, usando la X se il numero ottenuto è 10.\n\nNell\'esempio precedente ISBN 88-487-6002-3, avevamo visto le prime tre parti, ora controlliamo l\'ultimo numero:\n\n8 x 10 = 80\n8 x 9 = 72\n4 x 8 = 32\n8 x 7 = 56\n7 x 6 = 42\n6 x 5 = 30\n0 x 4 = 0\n0 x 3 = 0\n2 x 2 = 4\nla somma dei risultati è 316\n316 : 11 = 28 con resto 8\nil numero di controllo sarà 11 - 8 = 3  \n\nCodice ISBN completo = ISBN 88-487-6002-3[/quote:tvbivkhj]\n\nEMG','',0,'gA==','tvbivkhj',1,0,'',6,0,0),(10327,2419,4,2,0,'87.218.146.177',1143538561,1,0,1,1,1,1,'','','Enrico,\n\nFixed, a new build will be available in a few minutes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2sbcbbls',1,0,'',2,0,0),(10328,2417,3,2,0,'87.218.146.177',1143538749,1,0,1,1,1,1,'','','Colin,\n\nWhat FWH build are you using ?\n\nAs a workaround, please add this method to class TFont:\n\nMETHOD HandleEvent() VIRTUAL','',0,'gA==','pdd0uvoz',1,0,'',2,0,0),(10329,2419,4,6,0,'87.10.10.236',1143539546,1,0,1,1,1,1,'','','You are a Master!\n\nEMG','',0,'gA==','3b89gcdb',1,0,'',6,0,0),(10330,2362,3,160,0,'210.212.142.91',1143540874,1,0,1,1,1,0,'','','[quote=&quot;Frank Demont&quot;:3lj68e08]You can make a construction as :\n\nLOKAL lok := .T.\nAeval(oDlg:aControls,{|j|lok := lok .AND. EVAL(j:bValid)})\n\nIF lOk is .F. , at least one valid clausule hes returned .F.\n\nFrank[/quote:3lj68e08]\n\nDear Frank,\n\nNo it does not work. It gives me error at Eval().\n\nCan you guide me further. I am using Nov-05 build.\n\nWitb best regards,\n\nMilan.','',0,'gA==','3lj68e08',1,0,'',160,0,0),(10331,2407,7,123,0,'81.37.180.101',1143542272,1,0,1,1,1,0,'','','José,\n\nLas pruebas del FWPPC las estoy haciendo indistintamente en una PDA hp 2490 con windows mobile 5 y una Psion WorkAbout PRO con Windows CE sin mayor problema.\n\nSaludos,\nJosé Luis CApel','',0,'gA==','1mzi9i14',1,0,'',123,0,0),(10332,1793,19,26,0,'84.255.245.173',1143542343,1,0,1,1,1,1,'','','Hello!\n\nOops! Mea culpa  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> . I saw bcc32.exe in normal BDS 2006\nso when trial was released I assumed that it was included.\nUnfortunately it really seems that there is no bcc32.exe\nin trial (and there are also no dcc32.exe and dccil.exe).\n\nRegards, Roman','',0,'gA==','3h63am7z',1,0,'',26,0,0),(10333,2287,1,193,0,'195.212.29.171',1143542655,1,0,1,1,1,0,'','','Thanks, but I stopped at Used.\nIf a object is declared but not used yet (i.e. seek() method was not executed) oFileSeek:used == .F.\nIf at least one seek() was executed (not important if it found a file or did not) oFileSeek:used == .T.\nVladimir Grigoriev','',0,'gA==','zkp9h0e8',1,0,'',193,0,0),(10334,2420,19,26,0,'84.255.245.173',1143544889,1,0,1,1,1,1,'','Microsoft goes cross-platform with WPF/Everywhere','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.itwriting.com/wpfe.php\">http://www.itwriting.com/wpfe.php</a><!-- m -->\n[quote:3rpqduin]The prospect of hosting WPF/E in a desktop application is intriguing, potentially overcoming some of the deployment difficulties inherent to the full .NET Framework, which has a large and somewhat intrusive runtime, as well as offering cross-platform potential. \"WPF/E can be hosted natively,\" says Key, \"so you could actually take XAML, host the DLL natively, and attach the XAML UI to a legacy codebase. You could actually compile it into your app. The licensing details for that are “coming soon”, but that is our stated strategic objective, to make it everywhere available.[/quote:3rpqduin]\n\n<!-- m --><a class=\"postlink\" href=\"http://blogs.msdn.com/mharsh/archive/2006/03/23/559106.aspx\">http://blogs.msdn.com/mharsh/archive/20 ... 59106.aspx</a><!-- m -->\n[quote:3rpqduin]So what is WPF/E?  It is a cross-platform, cross-browser web technology that supports a subset of WPF XAML.  WPF/E also has a friction-free install model and the download size we’re targeting is very small.  WPF/E supports programmability through javascript for tight browser integration.  The WPF/E package also contains a small, cross platform subset of the CLR and .NET Framework that can run C# or VB.NET code.  Yes, we are bringing C# programming to the Mac.[/quote:3rpqduin]  \n\n<!-- m --><a class=\"postlink\" href=\"http://www.builderau.com.au/program/work/soa/More_than_meets_the_eye_in_Microsoft_plan/0,39024650,39244400,00.htm\">http://www.builderau.com.au/program/wor ... 400,00.htm</a><!-- m -->\n[quote:3rpqduin]Microsoft said it will create versions of the WPF/E software for Windows XP, Windows 2000, the Firefox browser, the Mac\'s native Safari browser, and mobile phones. Microsoft will rely on third-party companies to make editions of WPF/E for Linux and non-Windows Mobile phones, executives said.[/quote:3rpqduin][quote:3rpqduin]Miguel de Icaza, Novell vice president of development in charge of the Mono project, which brings Microsoft development software to Linux and Unix, said he sees advantages to WPF/E.[/quote:3rpqduin]\n\nCheers, Roman','',0,'gA==','3rpqduin',1,0,'',26,0,0),(10335,2410,20,49,0,'213.82.134.66',1143545788,1,0,1,1,1,1,'','','sorry mi era sfuggito...\naspe che faccio un funzioncina','',0,'gA==','20u5yrs8',1,0,'',49,0,0),(10336,2387,6,362,0,'200.168.52.156',1143545844,1,0,1,1,1,1,'','','Antonio, creo ke usted no estás me entendendo, jo estoy hablando és de las clases estandard del release de marzo de 2006, ke no estan completas.\n\nTengo 2(dos) directórios de FIVEWIN, uno de NOVEMBER/2006, com mis modificaciones en las CLASSES, ke me funciona todo perfecto.\n\nOtro directório com el FIVEWIN de MARZO/2006, este Antonio las CLASSES están incompletas e con muchos erros.\n\nPara compreender donde está el erro, por favor, compila en el \\SAMPLES\\TESTGRP.PRG usando o COMANDO TRANSPARENT. Todo desaparece Antonio... Mira(ojear) ke el GET no aparece... Esto también ocorre, cuando se tiene RADIO BUTTONs Y CHECKBOXs.\n\nHay necesidad de revisar todas las CLASSES ke contiene el COMANDO lTransparent.\n\nOtra, en el \\SAMPLES\\TESTFOLD.PRG -&gt; Compila por favor e tecle ESCAPE 2 veces.\n\nGracias y saludos.','',0,'gA==','26dmpszr',1,0,'',362,0,0),(10337,2397,1,204,0,'87.202.100.195',1143548360,1,0,1,1,1,0,'','','No it’s not a Borland bwcc error. But you did give me an idea. I use the fwctrls.dll with workshop (install it from file-&gt;Install Control Library) in that lib are predefined FiveWin objects. I tried loading the bwcc.dll but no dice. When I loaded the fwctrls.dll bingo the app works. Now can some tell me if the fwctrls.dll has FW predefine objects why are the fivewin/3 errors coming up?\nBelow are the RC dumps of the 2 main dialogs and the template for the page dialogs (SMALL_PRG?, BIG_PRG?) I see no Borland controls only pure FW ones.\n\n MAIN_WIN.RC\n[code:1z35io93]\nMAIN_WIN1 DIALOG LOADONCALL MOVEABLE DISCARDABLE 0, 0, 190, 130\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME | WS_MINIMIZEBOX\nCAPTION &quot;&#924;&#953;&#963;&#952;&#959;&#955;&#972;&#947;&#953;&#959; &#913;&#957;&#940;&#955;&#965;&#963;&#951; &#965;&#960;&#949;&#961;&#969;&#961;&#953;\\xFE&#957;&quot;\nFONT 18, &quot;Arial Greek&quot;\n&#123;\n COMBOBOX 102, 74, 10, 33, 51, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n COMBOBOX 104, 74, 26, 75, 51, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n CONTROL &quot;TFolder&quot;, 105, &quot;TFolder&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 44, 180, 65\n PUSHBUTTON &quot;&#933;&#960;&#959;&#955;&#959;&#947;&#953;&#963;&#956;&#972;&#962; \\x80&quot;, 107, 5, 115, 54, 8\n PUSHBUTTON &quot;\\xB8&#958;&#959;&#948;&#959;&#962;&quot;, 106, 145, 115, 40, 8\n LTEXT &quot;&#922;&#955;&#953;&#956;&#940;&#954;&#953;&#959;&quot;, 101, 11, 10, 60, 8\n LTEXT &quot;&#922;&#961;&#945;&#964;&#942;&#963;&#949;&#953;&#962;&quot;, 103, 12, 26, 60, 8\n&#125;\n[/code:1z35io93]\n\nPAGE_WIN.RC\n[code:1z35io93]\nPAGE_WIN DIALOG LOADONCALL MOVEABLE DISCARDABLE 6, 21, 180, 56\nSTYLE WS_CHILD | WS_VISIBLE | WS_BORDER\nFONT 18, &quot;Arial Greek&quot;\n&#123;\n CONTROL &quot;TPages&quot;, 101, &quot;TPages&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 3, 170, 34\n PUSHBUTTON &quot;&lt;&lt; &#928;&#961;&#959;&#951;&#947;&quot;, 102, 9, 44, 40, 9\n PUSHBUTTON &quot;&#917;&#960;&#959;&#956; &gt;&gt;&quot;, 103, 56, 44, 40, 9\n&#125;\n[/code:1z35io93]\n\nOne of the dialogs that was used (ther others are exactly the same but the text strings are different)\n[code:1z35io93]\nBIG_PRG1 DIALOG LOADONCALL MOVEABLE DISCARDABLE 6, 20, 170, 34\nSTYLE WS_CHILD | WS_VISIBLE | WS_BORDER\nFONT 18, &quot;Arial Greek&quot;\n&#123;\n EDITTEXT 102, 125, 3, 16, 12\n CONTROL &quot;TBtnBmp&quot;, 103, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 148, 5, 7, 7\n CONTROL &quot;TBtnBmp&quot;, 104, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 156, 5, 7, 7\n EDITTEXT 106, 125, 18, 16, 12\n CONTROL &quot;TBtnBmp&quot;, 107, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 148, 20, 7, 7\n CONTROL &quot;TBtnBmp&quot;, 108, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 156, 20, 7, 7\n LTEXT &quot;&#928;&#961;&#969;&#943;&quot;, 101, 6, 5, 115, 8\n LTEXT &quot;&#928;&#961;&#969;&#943; &#960;&#955;&#942;&#961;&#949;&#962;&quot;, 105, 6, 20, 115, 8\n&#125;\n[/code:1z35io93]','',0,'AIA=','1z35io93',1,0,'',204,0,0),(10338,2387,6,362,0,'200.168.52.156',1143549191,1,0,1,1,1,1,'','','// Testing Groups -&gt; Original en c:\\fwh\\samples\\TESTGRP.PRG\n\n//-&gt; Antonio Compile este ejemplo para me comprender/entender.\n\n#Include \"FiveWin.Ch\"\n#Include \"WColors.Ch\"\n\n//----------------------------------------------------------------------------//\n\nFunction Main()\n\n    LOCAL oDlg, oBrush, oGroup, oFont\n\n    DEFINE BRUSH oBrush FILE \"..\\bitmaps\\bricks.bmp\"\n\n    DEFINE FONT oFont NAME \'MS Sans Serif\' SIZE 0,-8 BOLD\n\n    DEFINE DIALOG oDlg NAME \"Test\" BRUSH oBrush\n\n    REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ;\n             FONT oFont PROMPT \"Modified Group Caption\" TRANSPARENT\n\n    REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg:End()\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    RELEASE BRUSH oBrush\n    RELEASE FONT oFont\n\nReturn Nil\n//----------------------------------------------------------------------------//','',0,'AIA=','1yuanujb',1,0,'',362,0,0),(10339,2421,6,52,0,'200.127.195.89',1143551700,1,0,1,1,1,1,'','Leer valores de &quot;VERSIONINFO&quot; de un .res','Estimados, si tengo esto en un .res\n\n[quote:2r9ycgn9]1 VERSIONINFO \nFILEVERSION 1, 0, 0, 0\nPRODUCTVERSION 1, 0, 0, 0\nFILEOS VOS_NT_WINDOWS32\nFILETYPE VFT_APP\n{\n BLOCK \"StringFileInfo\"\n {\n  BLOCK \"040904E4\"\n  {\n   VALUE \"CompanyName\", \"Megasoft\\000\\000\"\n   VALUE \"FileDescription\", \"Libreria para placas CEM44\\000\"\n   VALUE \"FileVersion\", \"1.00\\000\\000\"\n   VALUE \"InternalName\", \"PIPESRV.lib\\000\"\n   VALUE \"LegalCopyright\", \"Copyright \\251 Megasoft 2006\\000\\000\"\n   VALUE \"OriginalFilename\", \"\\000\"\n  }\n\n }\n\n}\n[/quote:2r9ycgn9]\n\nComo hago para poder leer esos datos? desde un .prg','',0,'gA==','2r9ycgn9',1,0,'',52,0,0),(10340,2192,7,449,0,'212.64.224.249',1143553154,1,0,1,1,1,0,'','','Ep,\n\nTengo, tengo. Q gracia me ha hecho  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n\n[url=http&#58;//imageshack&#46;us:39ac2cgj][img:39ac2cgj]http&#58;//img60&#46;imageshack&#46;us/img60/6808/fw8ge&#46;jpg[/img:39ac2cgj][/url:39ac2cgj]\n\nSaludos.\nC.','',0,'GA==','39ac2cgj',1,0,'',449,0,0),(10341,1793,19,2,0,'87.218.146.177',1143553525,1,0,1,1,1,1,'','','Roman,\n\nThanks for clarification <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','154ei03k',1,0,'',2,0,0),(10342,2362,3,2,0,'87.218.146.177',1143554374,1,0,1,1,1,1,'','','local lOk := .t. \n\nAEval( oDlg:aControls, {| j | lOk := lOk .and. If( j:bValid == nil, .t., Eval( j:bValid ) ) } )','',0,'GA==','8suqsr72',1,0,'',2,0,0),(10343,2411,6,49,0,'213.82.134.66',1143556038,1,0,1,1,1,1,'','','sorry but on my exe  there is also the error...\nCan you send me the new classes ( ttimepick and datepick) and you modifications and the sreenshot of your exe please\n\nRegards','',0,'GA==','2s8jbe3r',1,0,'',49,0,0),(10344,2356,6,49,0,'213.82.134.66',1143556166,1,0,1,1,1,1,'','','GOOOOD\n Can you insert the possibility for a vertical edit of record ? (  do you remember SUPERLIB ?)\n\nregards','',0,'GA==','2hrcybcu',1,0,'',49,0,0),(10345,2356,6,104,0,'201.58.51.202',1143558413,1,0,1,1,1,0,'','','Silvio,\n\nIsto é possível sim, mas pretendo fazer isto em versões futuras  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAs minhas primeiras modificações serão direcionadas para a classe wbrowse 1.7 de Hernan.\n\nEstas são algumas delas:\n\n- Incorporação da classe Header (Title/Header/Footer)\n- Ordenação por colunas (ascendente/Descendente)\n- Troca/Inserção/Deleção de colunas do browse\n\nTodos os outros recursos, eu pretendo futuramente criar o meu proprio browse apartir dos que já existem.\n\nPeço a todos sugestões e o que gostariam de ter em um browse para que\neu possa realmente ter uma noção da necessidade de cada um ok ?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAbraços,\n\nRossine.','',0,'GA==','1b7gw2l9',1,0,'',104,0,0),(10346,2397,1,312,0,'207.236.106.64',1143558650,1,0,1,1,1,0,'','','You couild try uninstalling the fwctrls.dll from resource workshop , and  then adding each of the controls as custom controls, you will lose the advantages of using the fwtcrls.dll. but it wouldn\'t make it a requirement to run the app. I know that it defeats the purpose of using fwtcrls.dll but it might help isolate the issue.','',0,'GA==','2oabvcdf',1,0,'',312,0,0),(10347,2411,6,21,0,'80.58.49.235',1143562836,1,0,1,1,1,1,'','','Hola Silvio,\n\nTe he mandado por correo la clase ttmpick.prg\n\nDe todas formas Juan Carlos Salinas Ojeda ya conoce los cambios a realizar y lo modificará en la clase que tiene disponible para todos.','',0,'GA==','2j22b58y',1,0,'',21,0,0),(10348,2411,6,49,0,'213.82.134.66',1143563828,1,0,1,1,1,1,'','','where you sent the file ?\n\nI not received it \n\nRegards','',0,'GA==','lbzyxg3w',1,0,'',49,0,0),(10349,2422,6,495,0,'200.104.0.108',1143563921,1,0,1,1,1,0,'','Como Abrir gaveta de dinero desde FWH','Hola amigos, alguien sabe como enviar una interrupcion a una gaveta de dinero para que una vez impreso el documento se abra y entregar el cambio.... esta gaveta se conecta a la impresora matricera por un cable RJ \n\nMuchas Gracias\n\nMauro','',0,'GA==','20g10qq0',1,0,'',495,0,0),(10350,2423,6,73,0,'201.145.74.184',1143563967,1,0,1,1,1,0,'','error en el preview','a alguien le ha salido este error en el preview?\n\nError(6) deleting enhanced metafile\nError description\n\neste error me sale cuando el preview es de 2 paginas o mas, cuando es una pagina no me tira el error, si me permite seguir en el visualizador, pero unicamente se ve la pagina uno\nalguna idea? \ngracias\nPako','',0,'GA==','1x69lik1',1,0,'',73,0,0),(10351,2387,6,2,0,'87.218.146.177',1143564092,1,0,1,1,1,1,'','','João,\n\nCambia el orden del GET dentro del RC así y se muestra bien:\n\nGROUPBOX \"Mensaje desde RECURSO\", 101, 10, 6, 156, 82, BS_GROUPBOX | WS_GROUP\nEDITTEXT 102, 55, 39, 58, 12\nPUSHBUTTON \"&amp;Ok\", 103, 106, 107, 50, 14','',0,'GA==','1nenax06',1,0,'',2,0,0),(10352,2423,6,2,0,'87.218.146.177',1143564230,1,0,1,1,1,1,'','','Paco,\n\nComprueba que no tengas un ENDPAGE de más.','',0,'GA==','3tf6qx3m',1,0,'',2,0,0),(10353,2397,1,2,0,'87.218.146.177',1143564927,1,0,1,1,1,1,'','','Try this:\n\nDEFINE DIALOG oMainWin NAME \"MAIN_WIN1\" FONT oMainFont COLOR CLR_YELLOW, CLR_BLACK \n\nTPages():New():End()\n\n...','',0,'GA==','3kqcx14o',1,0,'',2,0,0),(10354,2394,6,2,0,'87.218.146.177',1143565279,1,0,1,1,1,1,'','','Jackson,\n\nTendrias que modificar la clase TFolder de esta forma:\n[code:2ctgrte7]\nMETHOD AddItem&#40; cItem, cResName &#41; CLASS TFolder\n\n   local oDlg, nLen, n\n   local oThis &#58;= Self\n\n   DEFINE DIALOG oDlg OF Self STYLE WS_CHILD ;\n      FROM 0, 0 TO oThis&#58;nHeight - oThis&#58;nFdHeight - 5, oThis&#58;nWidth - 6 ; PIXEL NAME cResName\n&#46;&#46;&#46;\n[/code:2ctgrte7]\n\noFolder:AddItem( \"&amp;Teste\", \"test\" )  // siendo test un diálogo en recurso','',0,'AIA=','2ctgrte7',1,0,'',2,0,0),(10355,2387,6,362,0,'200.168.52.156',1143565723,1,0,1,1,1,1,'','','Antonio, mi querido maestro... \n\nEste ejemplo, era solamente, para usted comprender o ke esta aconteciendo en mis DIALOGOS, cuando en la misma DIALOG, yo uso GROUP BOX, GETS, SAYS, RADIO BUTTONS O CHECKBOX, todos los controles DESAPARECEN y son muchas DIALOGS ke tengo.\n\nComprende??\n\nEn el release de marzo/2006, GROUP.PRG, está incompleta. Mira por favor.\n\nPar favor, se posible, hable com Gilmer Tavares, talbez asi, el lo consiga explicar mejor.\n\nGracias y saludos.','',0,'AIA=','2bbyr4dg',1,0,'',362,0,0),(10356,2423,6,73,0,'201.145.74.184',1143566048,1,0,1,1,1,0,'','','Gracias Antonio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> por ahi esta el error,\nPako','',0,'AIA=','1jw09z43',1,0,'',73,0,0),(10357,2222,3,148,0,'82.201.206.152',1143567159,1,0,1,1,1,0,'','','Is that code will result to access one record as focused by dbseek ?','',0,'AIA=','3iv7rh4g',1,0,'',148,0,0),(10358,2222,3,148,0,'82.201.206.152',1143567709,1,0,1,1,1,0,'','','Even that code does not focus on seeking x value ?!!!!','',0,'AIA=','j1re7h9m',1,0,'',148,0,0),(10359,2376,20,125,0,'213.140.6.105',1143568221,1,0,1,1,1,0,'','','Proprio non mi viene:\nVolevo sapere come faccio a conoscere su quale colonna (non riga) il cliente sta cliccando?\n\nHo provato a guadare dentro tcbrowse.prg e ho fatto molti test senza successo.\n\nLa solta anima gentile che mi da una mano ?\n\nGrazie\nPiscicelli/Zingoni','',0,'AIA=','2ujfwwuz',1,0,'',125,0,0),(10360,2424,6,508,0,'201.26.66.44',1143570742,1,0,1,1,1,1,'','Converter de xharbour.org para xharbour.com','Estou convertendo xHB.org para xHB.com e estou tendo problemas na compilação dos .C , sabem o que seria\n\nType: C &gt;&gt;&gt;xcc.exe -Fo\"comp\\GETBTN.obj\" -Ot   -I\"s:\\novo\\include\" -I\"t:\\fwh27\\include\" -I\"C:\\xHarbour\\include\" -I\"C:\\xHarbour\\c_include\" -I\"C:\\xHarbour\\c_include\\win\" -I\"C:\\xHarbour\\c_include\\msvc\" \"GETBTN.C\"&lt;&lt;&lt;\n\nt:\\fwh27\\include\\ClipApi.h(71): error: Expecting an enumerator identifier.\n\nt:\\fwh27\\include\\ClipApi.h(71): error: Syntax error; found \'0\' expecting \'}\'.\n\nt:\\fwh27\\include\\ClipApi.h(463): error: Redeclaration of \'strlen\' previously declared at C:\\xHarbour\\c_include\\string.h(30): found \'unsigned short __cdecl function(char *)\' expected \'unsigned int __cdecl function(const char *)\'.\n\nt:\\fwh27\\include\\ClipApi.h(464): error: Redeclaration of \'strcpy\' previously declared at C:\\xHarbour\\c_include\\string.h(27): found \'void __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\n\nt:\\fwh27\\include\\ClipApi.h(465): error: Redeclaration of \'strcmp\' previously declared at C:\\xHarbour\\c_include\\string.h(25): found \'int __cdecl function(char *, char *)\' expected \'int __cdecl function(const char *, const char *)\'.\n\nt:\\fwh27\\include\\ClipApi.h(466): error: Redeclaration of \'strcat\' previously declared at C:\\xHarbour\\c_include\\string.h(23): found \'unsigned char * __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\n\nt:\\fwh27\\include\\ClipApi.h(511): warning: Missing type specifier.','',0,'AIA=','iqz4ey19',1,0,'',508,0,0),(10361,2287,1,26,0,'84.255.245.173',1143571510,1,0,1,1,1,1,'','','Hello!\n\nJust noticed this thread ...\nI would use:  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> [code:1kkf1jw9]oFileSeek&#58;lTouched[/code:1kkf1jw9]or [code:1kkf1jw9]oFileSeek&#58;lVirgin[/code:1kkf1jw9]\n\nCheers, Roman','',0,'AIA=','1kkf1jw9',1,0,'',26,0,0),(10362,2387,6,2,0,'87.218.146.177',1143573027,1,0,1,1,1,1,'','','João,\n\nTe enviamos por email la versión más reciente de group.prg','',0,'AIA=','2wy4j7po',1,0,'',2,0,0),(10363,2376,20,6,0,'87.10.10.236',1143573227,1,0,1,1,1,1,'','','[code:u6lfdw4c]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, oCol\n\n    LOCAL hBmp1 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkon&#46;bmp&quot; &#41;\n    LOCAL hBmp2 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkoff&#46;bmp&quot; &#41;\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    @ 0, 0 BROWSE oBrw;\n           ON CLICK MSGINFO&#40; oBrw&#58;nColAct &#41;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; last;\n               HEADER &quot;LAST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA IF&#40; TEST -&gt; last = &quot;S&quot;, hBmp1, hBmp2 &#41;;\n               BITMAP\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n    oBrw&#58;lMChange = &#46;F&#46;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:u6lfdw4c]','',0,'AIA=','u6lfdw4c',1,0,'',6,0,0),(10364,2424,6,2,0,'87.218.146.177',1143573277,1,0,1,1,1,1,'','','Marinho,\n\nPor favor envíame por email getbtn.c, gracias.','',0,'AIA=','o01g0tsm',1,0,'',2,0,0),(10365,2397,1,139,0,'212.205.251.39',1143576345,1,0,1,1,1,0,'','','IF !FILE(\".\\MONEY1.DLL\") \n    MSGStop(\"DLL .\\money1.dll not found\", \"Exiting program\") \n    QUIT \n  ENDIF \n    \n\n&#966;&#953;&#955;&#949; &#956;&#959;&#965; &#935;&#961;&#972;&#957;&#951; &#947;&#949;&#953;&#940;\n&#956;&#949;&#964;&#940; &#945;&#960;&#959; &#965;&#960;&#959;&#967;&#961;&#949;&#969;&#964;&#953;&#954;&#942; &#945;&#960;&#959;&#967;&#942; &#945;&#961;&#954;&#949;&#964;&#974;&#957; &#956;&#951;&#957;&#974;&#957; &#957;\'&#945;&#956;&#945;&#963;&#964;&#949; &#960;&#945;&#955;&#953; &#949;&#948;&#974;\n&#913;&#961;&#967;&#953;&#954;&#940; &#957;&#940; &#963;\'&#949;&#965;&#967;&#945;&#961;&#963;&#964;&#942;&#963;&#969; &#947;&#953;&#945; &#964;&#951; &#946;&#959;&#942;&#952;&#949;&#953;&#945; &#963;&#964;&#959; TSBROWSE...&#954;&#945;&#953; &#964;&#959; &#967;&#961;&#972;&#957;&#959; &#960;&#959;&#965; &#945;&#966;&#953;&#941;&#961;&#969;&#963;&#949;&#962;.\n&#928;&#953;&#963;&#964;&#949;&#973;&#969; &#959;&#964;&#953; &#964;&#959; &#960;&#961;&#972;&#946;&#955;&#951;&#956;&#945; &#948;&#951;&#956;&#953;&#959;&#965;&#961;&#947;&#949;&#943;&#964;&#945;&#953; &#949;&#960;&#949;&#953;&#948;&#942; &#948;&#949;&#957; &#946;&#961;&#943;&#963;&#954;&#949;&#953; &#964;&#959;  MONEY1.DLL\n   &#948;&#959;&#954;&#943;&#956;&#945;&#963;&#949; &#964;&#959; &#941;&#964;&#963;&#953; &#947;&#953;&#945;&#964;&#953; &#945;&#957; &#954;&#945;&#964;&#940;&#955;&#945;&#946;&#945; &#954;&#945;&#955;&#940; &#964;&#959; DLL &#964;&#959; &#941;&#967;&#949;&#953;&#962; &#949;&#957;&#945; path &#954;&#940;&#964;&#969; \n   SET RESOURCES TO \".\\MONEY1.DLL\" \n \n    &#917;&#947;&#974; &#964;&#940; &#941;&#967;&#969; &#949;&#964;&#963;&#953; :\n\n    PUBLIC lDLL  := lCUR  +\"\\DLL\\\"\n     .............\n\n    hBorland := LoadLibrary( lDLL + \"BWCC.DLL\")\n    hFwctrls := LoadLibrary( lDLL + \"FWCTRLS.DLL\")\n    SET RESOURCES TO  ( lDLL + \"PHASTORE.DLL\"   )\n\n\n   &#966;&#953;&#955;&#953;&#954;&#940; \n&#915;&#921;&#913;&#925;&#925;&#919;&#931;','',0,'AIA=','1qf6zg10',1,0,'',139,0,0),(10366,2418,4,19,0,'83.18.178.178',1143577454,1,0,1,1,1,0,'','','I know the previus version of OS  (Windows Mobile 2003) can not share any file on server because it have no build in any net function. Windows Mobile 5.0 should have that net properties and I try to share some dbf file opened on server with other user. When I try I get error - net function in Harbour and FWPPC are not ready. What can I do? \nAntonio, can You help me?\n\nEugeniusz','',0,'AIA=','2ccgsbho',1,0,'',19,0,0),(10367,2425,2,509,0,'81.36.95.245',1143577675,1,0,1,0,1,0,'','Tamaño Papel EasyReport /EasyPreview no respeta','Tengo un formato de impresión de albaran de 21 cm x 14 cm realizado con EasyReport y he creado un formato de papel de ese tamaño para que la impresora matricial con papel contínuo imprima los 14 cm y no haga avance de página. \nSi utilizo el EasyPreview y lo veo por pantalla y luego lo imprimo todo perfecto, pero si en lugar de verlo por pantalla indico que se imprima directamente se imprime el albaran y da un saldo de página. Sin EasyPreview usando el sistema de Fivewin también hace esto y en este caso aunque lo vea en pantalla hace el salto.','',0,'AIA=','36u76jye',1,0,'',509,0,0),(10368,2426,6,41,0,'200.87.67.10',1143579520,1,0,1,1,1,0,'','numero de prg en un proyecto','Holas,\n\nuna cosa extra~na  me esta pasando, tengo un poyecto con 50 prg y un res (recurso) cuando a~nado un prg mas la barra de botones de la ventana principal deja de funcionar, al apretar un boton se congela, quito el prg y funciona, a~nado el prg y quito otro y tambien funciona, por lo que no creo que sea el contenido del prg, raro raro.\n\nEstoy utilizando xMate 1.10 Fwh.2.6 bcc.5.5 xhb.99.5, alguna idea????\n\nsaludos\n\nMarcelo','',0,'AIA=','1bnft6xs',1,0,'',41,0,0),(10369,2414,6,383,0,'201.240.182.158',1143579830,1,0,1,1,1,0,'','TFILEXLS','[quote=&quot;Antonio Linares&quot;:2bsbrokf]http://hyperupload.com/download/0127133772/TFILEXLS.zip.html[/quote:2bsbrokf]\n\nGracias por el enlance para descargarlo. Pero al compilarlo me genera un error. Lo compilo con xHarbour y Fivewin 2.5. La compilación y el enlance lo realizo a travéz de Verce 4.3. \n\nCompiling \'C:\\FWH\\TFILEXLS\\PRG\\XLSERROR.PRG\'...\n\nEsta linea tanto en compilación y como enlance esta presentado de color rojo como error.','',0,'gA==','2bsbrokf',1,0,'',383,0,0),(10370,2414,6,255,0,'200.67.175.250',1143579928,1,0,1,1,1,1,'','Re: TFILEXLS','[quote=&quot;AntonioCrisostomo&quot;:1n1s6j95][quote=&quot;Antonio Linares&quot;:1n1s6j95]http://hyperupload.com/download/0127133772/TFILEXLS.zip.html[/quote:1n1s6j95]\nGracias por el enlance para descargarlo. Pero al compilarlo me genera un error. Lo compilo con xHarbour y Fivewin 2.5. La compilación y el enlance lo realizo a travéz de Verce 4.3. \nCompiling \'C:\\FWH\\TFILEXLS\\PRG\\XLSERROR.PRG\'...\nEsta linea tanto en compilación y como enlance esta presentado de color rojo como error.[/quote:1n1s6j95]\n\n\nAntonio, NO es error, sucede que VERCE colorea de color ROJO las\nlineas que contengan ERROR y de verde las que contengan WARNING\nen este caso el propio nombre del archivo contiene la palabra ERROR,\nes por eso que verce la pinta de rojo. Si revisas, tu libreria fué creada.\n\nCualquier cosa, pégame un toque.\nSaludos','',0,'gA==','1n1s6j95',1,0,'',255,0,0),(10371,2427,6,43,0,'201.127.19.39',1143581530,1,0,1,1,1,0,'','IP de Conexion','Hola\n\n    Alguien me podria decir como obtengo mi direccion IP de conexion a internet.\n\n   ya probe:\n                 GetHostByName(GetHostName())\n\n   y me retorna la direccion ip de la maquina, pero yo quiero la direccion de conexion que te otorga el servicio de internet.\n\nSaludos\n\n  Marco A. Delgado  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','118elgi6',1,0,'',43,0,0),(10372,2387,6,362,0,'200.168.52.156',1143582716,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:6pkhmv76]João,\n\nTe enviamos por email la versión más reciente de group.prg[/quote:6pkhmv76]\n\n\nAntonio,\n\nDudas: No Hay Problemas Con La Ausencia de Estes METHODS???\n\n#ifndef __CLIPPER__\n\nMETHOD EraseBkGnd( hDC ) CLASS TGroup\n\n   if IsAppThemed()\n      // return 1     Fix: 09-May-2005\n   endif\n\nreturn Super:EraseBkGnd( hDC )\n\n#endif\n\n//----------------------------------------------------------------------------//\n\nMETHOD Colors( hDC ) CLASS TGroup\n\n   DEFAULT ::nClrText := GetTextColor( hDC ),;\n           ::nClrPane := GetBkColor( hDC ),;\n           ::oBrush   := TBrush():New( , ::nClrPane )\n\n   SetTextColor( hDC, ::nClrText )\n   SetBkColor( hDC, ::nClrPane )\n\n  if ::oBrush:hBitmap != nil\n     SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop )\n  endif\n\nreturn ::oBrush:hBrush','',0,'gA==','6pkhmv76',1,0,'',362,0,0),(10373,2397,1,204,0,'87.202.100.195',1143583446,1,0,1,1,1,0,'','','Thanks all\nSince this is my first app I’ve written since the system format/rebuild it’s also the first one that displayed the error. The other 5 apps I have running there and there are made with workshop and the fwctrls.dll, but I don’t load the dll in any program or have it the client’s pc\nSo I guess I’ll have to load and unload that dll in the rest of my programs for now on (or which ever ones display that error while in debug – pre release – or bug fix development)\n\n[Message in Greek to dbsoft]\n&#915;&#953;&#940;&#957;&#957;&#951; &#947;&#949;&#953;&#945;. &#932;&#949;&#955;&#953;&#954;&#940; &#964;&#959; &#960;&#961;&#972;&#946;&#955;&#951;&#956;&#945; &#949;&#943;&#957;&#945;&#953; &#972;&#964;&#953; &#964;&#959; &#960;&#961;&#972;&#947;&#961;&#945;&#956;&#956;&#945; &#948;&#949;&#957; &#941;&#946;&#961;&#953;&#963;&#954;&#949; &#964;&#959; fwctrls.dll &#960;&#959;&#965; &#948;&#949;&#957; &#966;&#959;&#961;&#964;&#974;&#957;&#969; &#960;&#959;&#964;&#941;. &#932;&#959; &#967;&#961;&#951;&#963;&#953;&#956;&#959;&#960;&#959;&#953;&#974; &#956;&#972;&#957;&#959; &#963;&#964;&#959; workshop. &#931;&#964;&#953;&#962; &#940;&#955;&#955;&#949;&#962; &#949;&#966;&#945;&#961;&#956;&#959;&#947;&#941;&#962;, &#960;&#959;&#965; &#949;&#943;&#957;&#945;&#953; &#945;&#961;&#954;&#949;&#964;&#940; &#956;&#949;&#947;&#940;&#955;&#949;&#962; &#956;&#949; &#960;&#959;&#955;&#955;&#940; &#954;&#945;&#953; &#948;&#953;&#940;&#966;&#959;&#961;&#945; GUI &#954;&#959;&#956;&#956;&#940;&#964;&#953;&#945; &#948;&#949;&#957; &#960;&#945;&#961;&#959;&#965;&#963;&#943;&#945;&#963;&#949; &#964;&#959; &#960;&#961;&#972;&#946;&#955;&#951;&#956;&#945; &#945;&#965;&#964;&#972; &#960;&#959;&#964;&#941;)\n\nThanks','',0,'','3072dbl6',1,0,'',204,0,0),(10374,2428,6,305,0,'200.121.32.92',1143583741,1,0,1,1,1,0,'','Problema con fGet','Estimado Antonio Linares \n\nA ver si puedes ayudarme con este problema.  (Uso FW27 feb + xHb 09951)\n\nHe estado probando el ejemplo de FW  testfg2.prg y encuentro un problema solo con Win xP/ Win 2000 (no aparece con win 9x)\n\nSi modificas la linea para añadirle el scroll horizontal asi:\n   @ -1024, -1024 FORMAT GET oFget VAR oWndChild:Cargo OF oWndChild ;\n                  FONT oFont [b:25ivoass]HSCROLL[/b:25ivoass]\n\n\nPodras ver que cuando escribes y te vas con el cursor a la derecha mas alla del ancho de la ventana, desaparece todo el texto ( solo es un efecto visual)\n\nSe agradece de antemano cualquier solucion a este problema.\n\n\nRalph','',0,'QA==','25ivoass',1,0,'',305,0,0),(10375,2422,6,73,0,'201.145.74.184',1143585823,1,0,1,1,1,0,'','','ai van \"27,112,0,60,240\"\nsalu2\nPaco','',0,'QA==','3p4jyohx',1,0,'',73,0,0),(10376,2418,4,2,0,'87.218.146.177',1143587781,1,0,1,1,1,1,'','','Eugeniusz,\n\nWe are going to do some tests to check it.','',0,'QA==','74m3v48l',1,0,'',2,0,0),(10377,2394,6,100,0,'201.16.38.61',1143592929,1,0,1,1,1,0,'','','Gracias Antonio\n\nMais uma modificação que poderias colocar no proximo BUILD <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nOtra que poderias modificar na CLASSE TFOLDER seria a DelItem( nPrompt, cFolder ), isto é só uma ideia <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nJackson Douglas C. Brito\nBoa Vista - RR\nBrasil','',0,'QA==','17ms562b',1,0,'',100,0,0),(10378,2427,6,138,0,'201.154.236.81',1143599224,1,0,1,1,1,1,'','','Hummm esa info va a estar dificil de sacar, porque no la tiene la computadora que estas usando, esa info la tiene el modem (cable o adsl) por lo tanto la compu no le puede preguntar al modem cual es la IP.\n\nUna chapuza que se me ocurre asi al vuelo, es utilizar el webclient de FiveWin para llamar a la pagina <!-- w --><a class=\"postlink\" href=\"http://www.whatismyip.com\">www.whatismyip.com</a><!-- w -->, y luego con un memoread buscar la IP en el texto devuelto dentro.\n\nFfuncky tiene un componente que te devuelve todas las direcciones IP que tiene el equipo, pero no se si se incluye la publica de internet\n[code:2fm8thtx]\noFuncky &#58;= TOLEAUTO&#40;&#41;&#58;NEW&#40;&quot;funcky&quot;&#41;\n\naIP &#58;= &#123;&#125;\nx &#58;= 1\nDO WHILE ! EMPTY&#40;oFuncky&#58;IpAddress&#40;x&#41;&#41;\n   AADD&#40;aIP,oFuncky&#58;IpAddress&#40;x&#41;&#41;\n   x++\nENDDO\nMsgList&#40;aIP&#41;[/code:2fm8thtx]','',0,'AIA=','2fm8thtx',1,0,'',138,0,0),(10379,2222,3,379,0,'59.167.100.149',1143606641,1,0,1,1,1,0,'','','Use SET SCOPE its faster and you can use ranges.','',0,'AIA=','ll3qbqc7',1,0,'',379,0,0),(10380,2418,4,2,0,'87.218.146.177',1143618039,1,0,1,1,1,1,'','','Eugeniusz,\n\nYes, it is available <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe have performed this little test and it returns a valid value under Windows Mobile 5 and return zero under Windows Mobile 2003:\n\nWe are going to modify FWPPC to automatically use it if the app is running under Windows Mobile 5 <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[code:1wkdx0np]\n#include &quot;FWCE&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   MsgInfo&#40; Test&#40;&#41; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\n#define UNDER_CE\n\n#include &lt;windows&#46;h&gt;\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\nHB_FUNC&#40; TEST &#41;\n&#123;\n   LPWSTR pW1 = AnsiToWide&#40; &quot;coredll&#46;dll&quot; &#41;;\n   LPWSTR pW2 = AnsiToWide&#40; &quot;LockFileEx&quot; &#41;;\n   HINSTANCE hDLL = LoadLibrary&#40; pW1 &#41;;\n   \n   hb_retnl&#40; &#40; LONG &#41; GetProcAddress&#40; hDLL, pW2 &#41; &#41;;\n   \n   hb_xfree&#40; pW1 &#41;;\n   hb_xfree&#40; pW2 &#41;;\n   \n   FreeLibrary&#40; hDLL &#41;;\n&#125;   \n\n#pragma ENDDUMP\n[/code:1wkdx0np]','',0,'AIA=','1wkdx0np',1,0,'',2,0,0),(10381,2418,4,19,0,'217.153.83.2',1143620519,1,0,1,1,1,0,'','','Antonio,\nthis is a very good news. I wait for next build of FWPPC.\n\nThank You\n\nEugeniusz','',0,'AIA=','1jgjke1s',1,0,'',19,0,0),(10382,2429,7,456,0,'217.127.39.57',1143627024,1,0,1,1,1,1,'','Can\'t create dialog Box','Al ejecutar mas de una vez la opción del menu, me aparece el mensaje \"Can\'t create dialog Box\".  \nEl programa sigue la siguiente estructura, abro una ventana, desde esta ventana on init abre un dialogo con opciones de menu(botones), al pulsar el boton ventas pido la fecha mediante la funcion MsGet, y despues abro otra ventana para visualizar el resultado. La primera vez todo ok, el resto no puede abrir el dialogo de MsgGet.\n\n[code:1w912ja0]\n# INCLUDE &quot;FwCE&#46;ch&quot;\nSTATIC oWnd\nFUNCTION MAIN&#40;&#41;\n  //--------DEFINICION DE VARIABLES-------\n    LOCAL nOpcSel, oBmp\n    PRIVATE oWnd\n    DEFINE WINDOW oWnd TITLE \'Crmbl\'\n    ACTIVATE WINDOW oWnd ;\n        ON INIT MnuPri&#40;&#41;\nRETURN NIL\n//------------------\nFUNCTION MnuPri&#40;&#41;\n//------------------\n   LOCAL oDlg,oBtnVta,oBtnEnd,dFecha&#58;=Date&#40;&#41;\n   DEFINE DIALOG oDlg RESOURCE &quot;MNUPRI&quot; OF oWnd\n   REDEFINE BUTTON oBtnVta ID 4001 OF oDlg ACTION &#40;IF&#40;MsgGet&#40;\'Fecha\',\'Fecha\',@dFecha&#41;,Algo&#40;&#41;,nil&#41;&#41;\n   REDEFINE BUTTON oBtnEnd ID 4006 OF oDlg ACTION &#40;oWnd&#58;END&#40;&#41;&#41;\n   ACTIVATE DIALOG oDlg CENTERED\nRETURN NIL\n//---------------------\nSTATIC FUNCTION Algo&#40;&#41;\n//---------------------\n    LOCAL oWnd,oBtn\n    DEFINE WINDOW oWnd TITLE &quot;Algo&quot;\n    oBtn&#58;=tButton&#40;&#41;&#58;New&#40;14,01,\'&amp;oK\',oWnd,&#123;||oWnd&#58;End&#40;&#41;&#125;,50,20&#41;\n    ACTIVATE WINDOW oWnd\nRETURN NIL\n[/code:1w912ja0]\nEl fichero RC tal cual sigue.\n[code:1w912ja0]\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n\nLANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US\n\nMNUPRI DIALOG DISCARDABLE 36, 32, 138, 180\nSTYLE WS_POPUP|DS_MODALFRAME|WS_SYSMENU|WS_VISIBLE\nFONT 8, &quot;System&quot;\nBEGIN\n  CONTROL &quot;V E N T A S&quot;, 4001, &quot;Button&quot;, WS_TABSTOP, 12, 28, 48, 16\n  CONTROL &quot;S A L I R&quot;, 4006, &quot;Button&quot;, WS_TABSTOP, 72, 80, 48, 16\n 15\nEND\n[/code:1w912ja0]\nGracias anticipadas.','',0,'AIA=','1w912ja0',1,0,'',456,0,0),(10383,2287,1,193,0,'195.212.29.187',1143628711,1,0,1,1,1,0,'','','oFileSeek:lTouched is very interesting! The only reason I prefer oFileSeek:used as word *used* is usual xBase word while touched is a rear word in xBase. I am a traditionalist. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','q0lcmyl2',1,0,'',193,0,0),(10384,2429,7,449,0,'212.64.224.249',1143629619,1,0,1,1,1,0,'','','Biel,\n\nCoge el fichero MsgGet.prg y cambia la linea\n\n[code:1l90h8o2]DEFINE DIALOG oDlg FROM 10, 20 TO 18, 59&#46;5 TITLE cTitle[/code:1l90h8o2]\n\npor\n\n[code:1l90h8o2]DEFINE DIALOG oDlg FROM 10, 20 TO 18, 59&#46;5 TITLE cTitle OF GetWndDefault&#40;&#41;[/code:1l90h8o2]\n\ny prueba. Si no va, prueba cambiar GetWndDefault() por WndMain()\n\nSaludos.\nC.','',0,'AIA=','1l90h8o2',1,0,'',449,0,0),(10385,2430,4,51,0,'80.122.88.242',1143631192,1,0,1,1,1,0,'','errsysw','Best practice to  prevent a zero divisor error?\n\nThanks in advance\nOtto','',0,'AIA=','3cmqe4hz',1,0,'',51,0,0),(10386,2431,3,52,0,'200.127.195.89',1143633145,1,0,1,1,1,1,'','transfer var type Hexadecimal','Hello all,\n\nI need make one function in FWH that transfer one data of type Hexadecimal to one function in xHarbour,\n\nI traid it:\n\n[code:3igudgir]HB_FUNC &#40; COMANDOCEM &#41;&#123;\n   char *mensaje = hb_parcx&#40; 01 &#41;; [/code:3igudgir]\n\nthen... COMANDOCEM(\"65\")\n\nMy question is: \"65\" when i send to function COMANDOCEM is type string?\n                       what i do to send \"65\" like Hexadecimal?','',0,'AIA=','3igudgir',1,0,'',52,0,0),(10387,2418,4,2,0,'87.218.146.177',1143634424,1,0,1,1,1,1,'','','Eugeniusz, \n\nOk, there is a new FWPPC build with records/files lock/unlock support for Windows Mobile 5. It automatically detects if Windows Mobile 5 is used.\n\nPlease try it and let us know how it works for you, thanks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','323q0nbr',1,0,'',2,0,0),(10388,2432,16,2,0,'87.218.146.177',1143634584,1,0,1,1,1,1,'','New FWPPC build with locks support for Windows Mobile 5','There is a new FWPPC build with records/files lock/unlock support for Windows Mobile 5. It automatically detects if Windows Mobile 5 is used.','',0,'AIA=','18kqy7lv',1,0,'',2,0,0),(10389,2433,7,2,0,'87.218.146.177',1143634677,1,0,1,1,1,1,'','Nuevo build de FWPPC con soporte de bloqueos!','Ya hay disponible un nuevo build de FWPPC con soporte de bloqueos para ficheros y registros, y que funciona si detecta que la aplicación esta ejecutándose en Windows Mobile 5 <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','9l7qp0c5',1,0,'',2,0,0),(10390,2434,2,146,0,'200.82.113.48',1143635055,1,0,1,1,1,0,'','caracteres de largo de pagina para epson','Hola a Todos:\n\nEstoy trabajando con la clase Tdosprn una serie de informes, envio caracteres de control a impresoras matriz de punto como condensado, negrita, ancho sin problemas pero los caracteres que corresponden al largo de pagina me los ignora. \nEstoy usando\n oPrn:= TdosPrn():New(\\\\pc1\\epson) para abrir el puerto de la impresora\n oPrn:Command(\'27,67,36\').\nAlguien sabe como puedo solucionarlo. Gracias.\nLeonor.\n<!-- e --><a href=\"mailto:leonorgonz@yahoo.com.ar\">leonorgonz@yahoo.com.ar</a><!-- e -->','',0,'AIA=','7uodbf8d',1,0,'',146,0,0),(10391,2435,4,19,0,'217.153.83.2',1143635248,1,0,1,1,1,0,'','Socket on Windows Server 2000','I have some program written in eVC++ communicating with socket server running on WServer 2000 and all works properly. \nSocket server is based on FWH 2.6.\n\nThe next program is on FWPPC and it cannot communicate with this socket server but it have made connection to any other socket server running on WinXP or Windows Serwer 2003.\n\nHere is e piece of eVC++ code\n\n\n[code:7a505ap3]\nBOOL OpenConnectionBtn&#40;HWND hDlg&#41;\n&#123;\n	BOOL nRet=FALSE;\n	if&#40;WSAStartup&#40;MAKEWORD&#40;2,2&#41;, &amp;wsaData&#41;&#41;\n		&#123;\n			return nRet;\n		&#125;\n\n		strncpy&#40;szRemoteName, &quot;192&#46;168&#46;0&#46;1&quot;, sizeof&#40;szRemoteName&#41;&#41;;\n\n		memset&#40;&amp;Hints, 0, sizeof&#40;Hints&#41;&#41;;\n		Hints&#46;ai_family = nFamily;\n		Hints&#46;ai_socktype = nSockType;\n\n		if&#40;getaddrinfo&#40;szRemoteName, szPort, &amp;Hints, &amp;AddrInfo&#41;&#41;\n		&#123;\n			MessageBox&#40;hDlg,L&quot;serwer not found!&quot;,L&quot;Error&quot;,MB_OK&#41;;\n			\n			return nRet;\n		&#125;\n\n		for&#40;AI = AddrInfo; AI != NULL; AI = AI-&gt;ai_next&#41; \n		&#123;\n			if&#40;&#40;AI-&gt;ai_family == AF_INET&#41; || &#40;AI-&gt;ai_family == PF_INET6&#41;&#41; \n			&#123;\n				sock = socket&#40;AI-&gt;ai_family, AI-&gt;ai_socktype, AI-&gt;ai_protocol&#41;;\n				if &#40;sock != INVALID_SOCKET&#41;\n				&#123;\n					if &#40;AI-&gt;ai_socktype == SOCK_STREAM&#41;\n					&#123;\n						if&#40;connect&#40;sock, AI-&gt;ai_addr, AI-&gt;ai_addrlen&#41; == SOCKET_ERROR&#41;\n						&#123;\n							closesocket&#40;sock&#41;;\n							continue;\n						&#125;\n						nRet = TRUE;\n					&#125;\n\n					break;\n				&#125;\n			&#125;\n		&#125;\n\n		if &#40;AI == NULL&#41; \n			MessageBox&#40;hDlg,L&quot;I cannot connect to any server&quot;,L&quot;Error&quot;,MB_OK&#41;;\n		\n		\n	\n	return nRet;\n\n&#125;\n[/code:7a505ap3]\n\nWSAStartup in FWPPC have different parameter (x0101) - maby this is a problem.\nRegards \nEugeniusz','',0,'AIA=','7a505ap3',1,0,'',19,0,0),(10392,2387,6,362,0,'200.168.52.156',1143635629,1,0,1,1,1,1,'','','Antonio, necesito autorización, orden, permiso, licencia, consentimiento, para enviar un  DEMO de mi programa para usted testar con el FIVEWIN 2.7 release de marzo de 2006.\n\nPuedo?? \n\nGracias. Saludos','',0,'AIA=','1fslhhd6',1,0,'',362,0,0),(10393,2322,7,150,0,'212.106.243.152',1143635922,1,0,1,1,1,1,'','','Hola \n\nPara imprimir en impresoras matriciales con bluetooth no hay problema. Lo que no se (y aún no he necesitado) es imprimir en impresoras windows. ¿Alguna experiencia?\n\nCarles: Lo del mail para enviar un fichero a la central lo veo muy interesante. Avisanos si lo consigues.','',0,'AIA=','3q7emyd3',1,0,'',150,0,0),(10394,2418,4,89,0,'213.21.136.60',1143637271,1,0,1,1,1,0,'','','Hello Antonio\nIs is possible to have this on WindowsCE ?\n\nRegards Maurizio','',0,'AIA=','lhroq4ob',1,0,'',89,0,0),(10395,2322,7,262,0,'83.97.168.22',1143637593,1,0,1,1,1,1,'','','A usar el ingenio muchachos....... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nComo tip ( con un poco de trampa ) .\nResulta que los señores usuarios de las pda usan con la central un sistema de mail de vodafone llamado algo asi como PUSH ¿¿ <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nEste sistema instala unas carpetas en el programa Tmail de microsoft de la pda para funcionar ( y nada de protocolos smtp y similar ). \nSolucion .... usar el Tmail \n\n[code:r7zg72it]\n\n cTexto&#58;=  &quot;Envio pedidos dia &quot;+dtoc&#40;date&#40;&#41;&#41;+&quot;a las &quot; + Time&#40;&#41;  +&quot; del Vendedor &quot;+cVend\n eSubject&#58;=&quot;?Subject=&quot;+ cTexto\n eBody&#58;=&quot;&amp;body=&quot; + cTexto\n eTo&#58;=&quot;mailto&#58;&quot;+ cDestino \n\n eAttachment&#58;=&quot;&amp;attach=&quot;+ oApli&#58;cCurdir+cdirsal+&quot;\\&quot;+cfile\n\nCmdLine = eto+eSubject+ebody+eAttachment\n\nShellexecute&#40;ownd&#58;hWnd,&quot;open&quot;,&quot;Tmail&#46;exe&quot; ,cMdLine &#41;\n[/code:r7zg72it]\n\nParece facil verdad ?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nPues no tanto aqui nos encontramos con microsoft que tiene un bug en su tmail.exe .\nSi ponemos archivo adjunto nos borra el destinatario y el body del mensaje .\nTenemos que decidir entre que el usuario busque el archivo a adjuntar , y los textos aparezcan escritos , o que ya vaya el archivo adjunto , pero el usuario añada de la agenda el destinatario ( para eso está ) y escriba el texto .\nYo cogui esta segunda .\n\nPara los que usan mail normal por gprs una muy buena opcion es instalar un programa mail free llamado \"npop\"  que a diferencia del tmail NO TIENE EL BUG , y el proceso es mas sencillo (usar el mismo codigo de antes pero sustituye tmail.exe por npop.exe )\nEspero os sirva , a mi me salva la vida .\nSaludso.','',0,'AIA=','r7zg72it',1,0,'',262,0,0),(10396,2436,6,97,0,'200.23.84.231',1143637739,1,0,1,1,1,1,'','MySqlib o TmySql para xhabour','Quien tiene la mysql.lib o TmySql   para xharbour quien la tiene ya que al compilarla me marcar un error HB_FUN(SQLCONNET) en el mysql.c .\n\n\nsaludos y gracias.\nfernando sandoval ruiz','',0,'AIA=','2xxvgzlv',1,0,'',97,0,0),(10397,2322,7,449,0,'212.64.224.249',1143637936,1,0,1,1,1,0,'','','Jose Luis,\n\n\nMuy bueeeeeno.\n\n[code:kdd7uldw]A usar el ingenio muchachos&#46;&#46;&#46;&#46;&#46;&#46;&#46;   [/code:kdd7uldw]\n\nSiempre estamos con los tip y las trampas, jejeje. Lo importante es llegar al objetivo.\n\nThanks por el tip.\nC.','',0,'AIA=','kdd7uldw',1,0,'',449,0,0),(10398,2437,6,97,0,'200.23.84.231',1143638105,1,0,1,1,1,1,'','Crear Base de Datos (mySql) desde Ado','Es posible validar si existe una base de datos en mysql de desde ado y si no existe crearla.\n\n\nsaludos\nfernando sandoval ruiz','',0,'AIA=','2rt16dgi',1,0,'',97,0,0),(10399,2422,6,495,0,'200.104.0.108',1143638551,1,0,1,1,1,0,'','','Hola Paco\nGracias por tu ayuda, esa codificación \"27,112,0,60,240\" la envias a traves de alguna instrucción?? ..... chr(\"27,112,0,60,240\") por ejemplo?\n\nsalu2\n\nMauro','',0,'AIA=','1anzxr68',1,0,'',495,0,0),(10400,702,2,146,0,'200.82.113.48',1143638997,1,0,1,1,1,0,'','','Me sumo a los que quieren esa clase, yo estoy usando una TdosPrn pero no tiene previsualizacion. \nSi me la pueden enviar a <!-- e --><a href=\"mailto:leonorgonz@yahoo.com.ar\">leonorgonz@yahoo.com.ar</a><!-- e --> se los agradecería.','',0,'AIA=','3lu063pp',1,0,'',146,0,0),(10401,2429,7,456,0,'217.127.39.57',1143639715,1,0,1,1,1,1,'','','Gracias Carles,\n he añadido msgget.prg al proyecto, y antes de hacer el cambio que sujieres, he compilado. \nSin cambiar nada funciona bien, bueno relativamente, porque los tamaños del dialogo no caben en la pantalla del PPC, parece como si fueran los fuentes de la version para PC. \nVisto que funciona bien, he ajustado los tamaños de dialogo y posiciones de los controles y todo a quedado funcional.','',0,'AIA=','312fvp79',1,1143665889,'',456,1,0),(10402,2186,2,495,0,'200.104.0.108',1143640472,1,0,1,1,1,0,'','','Hola, podrian adjuntarme esa clase por favor\n\n<!-- e --><a href=\"mailto:un_jeepero@hotmail.com\">un_jeepero@hotmail.com</a><!-- e -->\n\nsalu2','',0,'AIA=','3m3qcdko',1,0,'',495,0,0),(10403,2436,6,43,0,'201.127.19.39',1143642234,1,0,1,1,1,0,'','','Hola\n\n    te la acabo de enviar a tu correo.\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'AIA=','yl97a5fd',1,0,'',43,0,0),(10404,2427,6,43,0,'201.127.19.39',1143642468,1,0,1,1,1,0,'','','mmm, me imaginaba algo por el estilo, pero bueno seguire buscando\n\nGracias por la respuesta Rene\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'AIA=','1akz08u9',1,0,'',43,0,0),(10405,2418,4,19,0,'83.18.178.178',1143645545,1,0,1,1,1,0,'','','Antonio,\nThanks for Your great work - but effects are not optimistic.\nWhen I try lock record on local \'drive\' it works ok. I cannot do this on server  -  wd-&gt;(rLock()) return .F. - don\'t know why.\n\nregards,\nEugeniusz','',0,'AIA=','1img6a6j',1,0,'',19,0,0),(10406,2438,1,504,0,'66.46.74.26',1143649073,1,0,1,0,1,0,'','Using JPEG','I am using BMP picture in an application, i would like to switch to jpeg any idea how to achieve this\n\nThank in advance\n\nMarc','',0,'AIA=','1yx7ke1x',1,0,'',504,0,0),(10407,2430,4,2,0,'87.218.146.177',1143649525,1,0,1,1,1,1,'','','Otto,\n\nWe have just published a new FWPPC build that properly manages the zero divisor error:\n[code:8urr1uo4]\n   if oError&#58;GenCode == EG_ZERODIV\n      return 0\n   end\n[/code:8urr1uo4]','',0,'AIA=','8urr1uo4',1,0,'',2,0,0),(10408,2418,4,2,0,'87.218.146.177',1143649618,1,0,1,1,1,1,'','','Mauricio,\n\nYes, it is automatic. Just try it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','zfyxtg85',1,0,'',2,0,0),(10409,2418,4,2,0,'87.218.146.177',1143649849,1,0,1,1,1,1,'','','Eugeniusz,\n\nWe are uploading a new FWPPC build right now. Please download it and try it again, thanks.','',0,'AIA=','2vayt6jv',1,0,'',2,0,0),(10410,2429,7,498,0,'213.97.9.239',1143649887,1,0,1,1,1,1,'','','Perdon por la intromision, pero cuando dices \n\n\"he añadido msgget.prg al proyecto\"\n\n¿ a que te refieres exactamente ?\n\nUna saludo y gracias.','',0,'AIA=','2iyayudt',1,0,'',498,0,0),(10411,2402,6,292,0,'200.82.144.42',1143650252,1,0,1,1,1,1,'','Puedes enviarme la clase?','José Luis\nPuedes enviarme la clase hacia <!-- e --><a href=\"mailto:ventas@datapronet.com\">ventas@datapronet.com</a><!-- e -->','',0,'AIA=','3f1clo6f',1,0,'',292,0,0),(10412,2439,2,510,0,'200.84.81.53',1143650406,1,0,1,1,1,0,'','Problemas con el TBrowse (LISTBOX)','[b:b6ruq2a8]\n&gt; estaria muy agradecido si me puediesen ayudar con algun ejemplo\n&gt; \n&gt; \n&gt;            la pregunta en cuestion, 1. como puedo hacer en el tbrowse\n&gt; (LISTBOX) para que la cabecera HEADERS  me salga de un color \n&gt; distinto al definido para todo el LISTBOX\n&gt; \n&gt; \n&gt;                                               2. la barra de \n&gt; desplasamiento sale completa, como se hace para que cubra \n&gt; solo el campo donde estoy y sea de un color diferente EN EL LISTBOX\n&gt; \n&gt; \n&gt;                                               3. he visto en \n&gt; algunas aplicaciones de ejemplo que cuando estas subiendo o \n&gt; bajando en el browse, tienen campos fijos fuera del mismo y \n&gt; muestra los datos del registro donde esta situado el browse A \n&gt; MEDIDA QUE SE MUEVE YA SEA HACIA ARRIBA O HACIA ABAJO\n&gt; \n&gt;                                                   con clipper \n&gt; y el dbedit y browse se como hacerlo pero ignoro como hacerlo \n&gt; en oop de fw\n&gt; \n&gt;                                               4. como alineo \n&gt; campos numericos en el LISTBOX,y que se\n&gt; presenten com mascara ej.     1500000.00 asi sale           \n&gt; 1.500.000,00  \n&gt; asi seria mas visible\n&gt;                                                 150.00        \n&gt;                \n&gt;          150,00\n[b][/b:b6ruq2a8][/b]','',0,'Qg==','b6ruq2a8',1,0,'',510,0,0),(10413,2429,7,2,0,'87.218.146.177',1143650583,1,0,1,1,1,1,'','','Biel,\n\nMsgGet() ya está incluido en FWPPC (source\\function\\fwppc.prg). Estás usando el build más reciente de FWPPC ?\n\nJose, Javier,\n\nEn principio no haría falta añadirlo, ya que FWPPC lo proporciona.','',0,'Qg==','3gwre045',1,0,'',2,0,0),(10414,2438,1,6,0,'87.3.212.19',1143650599,1,0,1,1,1,1,'','Re: Using JPEG','Try TImage class instead of TBitmap.\n\nEMG','',0,'Qg==','2s2beki7',1,0,'',6,0,0),(10415,2402,6,2,0,'87.218.146.177',1143650745,1,0,1,1,1,1,'','','Jose Luis,\n\nSi eres tan amable, súbela a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y publica aquí el enlace que te proporciona para descargalo. Gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Qg==','1ntejt8x',1,0,'',2,0,0),(10417,2429,7,498,0,'213.97.9.239',1143651387,1,0,1,1,1,1,'','','Si pero, cuando dicen lo del \"proyecto\", es que hay alguna forma de incluir varios \"prg\" en un mismo exe , o se refieren a incluir el codigo en el archivo \".rc\" ?','',0,'Qg==','izmk7ylv',1,0,'',498,0,0),(10418,2440,3,34,0,'68.4.154.81',1143651724,1,0,1,1,1,1,'','Fivewin','23 years ago when I started my software business, my competitors asked potential clients \"What happens if he dies tomorrow ?\".  Well the competitors are all gone and I\'m still in business.\n\nMy point is simple, and I do not represent Antonio on this.  If the tool is valuable to you today, and it works, then buy it and use it.  If you worry about what will happen tomorrow you will miss the benefit of what exists today !\n\nI develop with xHarbour / Fivewin.  Today I provide my clients with a software solution.  Hundreds of my clients still use the old Clipper DOS version of my software.  Do any of them care about the tools I use, or if they have a \"future \" ?   Not at all.  They only care if I provide them with the solution that runs their business today !\n\nTim','',0,'Qg==','9wr0eu9t',1,0,'',34,0,0),(10419,2439,2,2,0,'87.218.146.177',1143652105,1,0,1,1,1,1,'','','&gt; la pregunta en cuestion, 1. como puedo hacer en el tbrowse \n&gt; (LISTBOX) para que la cabecera HEADERS me salga de un color \n&gt; distinto al definido para todo el LISTBOX\n\nAsumiendo que estás usando un control TWBrowse, puedes cambiar el color de las cabeceras cambiando estos valores:\n\noBrowse:nClrBackHead  = nRGBColor // nRGB( nRed, nGreen, nBlue )   \noBrowse:nClrForeHead  = nRGBColor // nRGB( nRed, nGreen, nBlue )','',0,'Qg==','1456knbg',1,0,'',2,0,0),(10420,2439,2,2,0,'87.218.146.177',1143652395,1,0,1,1,1,1,'','','&gt; 2. la barra de \n&gt; desplasamiento sale completa, como se hace para que cubra \n&gt; solo el campo donde estoy y sea de un color diferente EN EL LISTBOX\n\nEl color de la barra de desplazamiento no se puede cambiar. Es un color propio de Windows. Y cubre todo el alto del browse.','',0,'Qg==','pl218yh9',1,0,'',2,0,0),(10421,2387,6,362,0,'200.168.52.156',1143652458,1,0,1,1,1,1,'','','Antonio, el mayor problema, és cuando uso este comando:\n\n//-&gt; Colores en el Group Box\n//-&gt; Si lo retiro, funciona cuasi perfecto, ahi me da problemas en los RADIOS.\n\nREDEFINE GROUP oGroup ID 501 COLOR CLR_RED, CLR_YELLOW OF oDlg      ;\n         FONT oFont TRANSPARENT\n\n\nAntonio, en la CLASSE RADIO, esto esta correcto???\n\nPues mis RADIOs, estan retornado ERRORES. Entran en LOOPING...\n\n#ifndef __CLIPPER__\n\nMETHOD EraseBkGnd( hDC ) CLASS TRadio\n\n   if IsAppThemed() .and. ! ::lTransparent\n      return 1\n   endif   \n\nreturn Super:EraseBkGnd( hDC )\n\nMETHOD LostFocus( hCtl ) CLASS TRadio\n\n   if IsAppThemed()\n      // CheckFocus( ::hWnd, hCtl )\n   endif\n\nreturn Super:LostFocus( hCtl )\n\n#endif','',0,'Qg==','1h2g85vw',1,0,'',362,0,0),(10422,2439,2,2,0,'87.218.146.177',1143652489,1,0,1,1,1,1,'','','&gt; 3. he visto en \n&gt; algunas aplicaciones de ejemplo que cuando estas subiendo o \n&gt; bajando en el browse, tienen campos fijos fuera del mismo y \n&gt; muestra los datos del registro donde esta situado el browse A \n&gt; MEDIDA QUE SE MUEVE YA SEA HACIA ARRIBA O HACIA ABAJO\n\nTienes un ejemplo en samples\\gallery\\onemany.prg','',0,'Qg==','28ps9h03',1,0,'',2,0,0),(10423,2439,2,2,0,'87.218.146.177',1143652645,1,0,1,1,1,1,'','','&gt; 4. como alineo \n&gt; campos numericos en el LISTBOX,y que se \n&gt; presenten com mascara ej. 1500000.00 asi sale \n&gt; 1.500.000,00 asi seria mas visible 150.00\n\npara aplicar un determinado PICTURE usa la función Transform() en vez de indicar el valor numérico directamente. Para alinear los números a la derecha puedes usar el array aJustify que contiene un valor lógico para cada columna:\n\noBrowse:aJustify = { .f., .t., .t., ... }','',0,'Qg==','nzuddvxm',1,0,'',2,0,0),(10424,2429,7,2,0,'87.218.146.177',1143652773,1,0,1,1,1,1,'','','Jose, Javier,\n\nSí, claro, puedes usar tantos PRGs como necesites. samples\\buildce.bat sólo usa uno, pero para más de uno puedes usar por el make para Microsoft que se encuentra en makes\\fwcemake.zip','',0,'Qg==','2x8h2b0j',1,0,'',2,0,0),(10425,2440,3,2,0,'87.218.146.177',1143653052,1,0,1,1,1,1,'','','Tim,\n\nDon\'t care about this person posts. He is just a troll that does not reveals his name or true email and just want to be picky all the time. It is not the first msg that we have to delete from him.','',0,'Qg==','3mrtmkb3',1,0,'',2,0,0),(10426,2441,6,439,0,'200.125.10.11',1143653210,1,0,1,1,1,0,'','Problemas con un Pentium 4','He cambiado mi equipo, reemplazandolo de un AMD duron a un P4 2.4Ghz, siempre usando Windows XP Sp2 y FWH 2.7 Marzo 2006.\nCuriosamente, cuando compilo mis ejecutables en la p4, los compila sin darme errores de compilacion pero cuando los ejecuto, me dan errores de que variables establecidas publicas no existen (siendo que estan establecidas publicas y me da error en la sentencia Public xvariable=0)\ntomo el mismo código y lo compilo en la AMD y anda al pelo.\n\n¿que puede ser?','',0,'Qg==','345j35bt',1,0,'',439,0,0),(10427,2441,6,2,0,'87.218.146.177',1143653639,1,0,1,1,1,1,'','','Jose,\n\nNo tiene porqué haber ninguna diferencia entre el comportamiento en un AMD ó un Pentium. Asegúrate de que estás usando las mismas versiones de harbour/xharbour en ambos y de paso ten instalado un antivirus que esté actualizado por simple precaución.','',0,'Qg==','2s6pcf3s',1,0,'',2,0,0),(10428,2442,1,330,0,'217.37.54.49',1143653642,1,0,1,1,1,0,'','long file names','Hello\nI am trying to use lcreat to create long file names but each time i try i get a truncated name 8 characters long.\n\nI can use the clfn.dll and this seems to work but occassionally it writes truncated file names aswell\n\nAnybody any ideas\n\nPeter','',0,'Qg==','30vcjvce',1,0,'',330,0,0),(10429,2442,1,2,0,'87.218.146.177',1143653786,1,0,1,1,1,1,'','','Peter,\n\nPlease review samples\\LongName.prg','',0,'Qg==','1dt5wkqq',1,0,'',2,0,0),(10430,2441,6,362,0,'200.168.52.156',1143655797,1,0,1,1,1,1,'','','Public xvariable\n\nxvariable := 0','',0,'Qg==','3p0a3fcm',1,0,'',362,0,0),(10431,2437,6,2,0,'87.218.146.227',1143656790,1,0,1,1,1,1,'','','Fernando,\n\nBusca ADO en estos foros y encontrarás bastantes ejemplos.','',0,'Qg==','2v05ln57',1,0,'',2,0,0),(10432,2422,6,73,0,'201.145.74.184',1143656810,1,0,1,1,1,0,'','','jeepero, yo lo uso con tdosprn asi:\noPrn:Command(\"27,112,0,60,240\")\nsalu2\npaco','',0,'Qg==','382ayo8o',1,0,'',73,0,0),(10433,2418,4,19,0,'83.18.178.178',1143657050,1,0,1,1,1,0,'','','Antonio,\nMaby I do something wrong, result  is the same.\nrLock(), fLock() return .F.  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nHave anybody pocketPC with WM 5.0 to help us testing?\n\nregards,\nEugeniusz','',0,'Qg==','1f5atao9',1,0,'',19,0,0),(10434,2443,6,492,0,'201.127.102.230',1143657923,1,0,1,1,1,0,'','Antonio : Parpadeo Horrible de Pantallas','Hola a Todos \n\nEstoy migrando una App que tengo a 16 a 32 usando FWH2.7 Marzo y XHarbour, pero, cuando esta la pantalla de la App y si se muestra la ventanita del MSN avisando de algun contacto iniciando sesion, al momento que la misma se va \"escondiendo\" la pantalla de la App empieza a \"temblar\" de manera horrible.\nY lo mismo pasa, cuando paso el cursor sobre las Apps que estan minimizadas en la barra, al momento que muestra el tooltip de las mismas.\n\nYa intente desactivarle el pintado de \"doble buffer\" y sigue haciendo lo mismo, peor aun, cuando se lo desactivo, los browses no me los pinta correctamente.\n\nMuchas Gracias, cualquier idea, sugerencia es bienvenida !!','',0,'Qg==','wxj9oen5',1,0,'',492,0,0),(10435,2418,4,2,0,'87.218.146.227',1143658249,1,0,1,1,1,1,'','','Eugeniusz,\n\nWe may use the WM 5 emulator to test it.\n\nAlso we have asked Microsoft to know their answer regarding this lan issue.','',0,'Qg==','3ouw7q5m',1,0,'',2,0,0),(10436,2443,6,2,0,'87.218.146.227',1143658862,1,0,1,1,1,1,'','','Raymundo,\n\nA que te refieres por \"temblar\" ? Puedes capturar una imagen y publicarla aqui (usa <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> para almacenar la imagen) ?\n\nPrecisamente el pintado a doble buffer lo que hace es evitar los parpadeos. Te refieres a parpadeos ? Estás usando las clases estandard de FWH ?','',0,'Qg==','375rcjl5',1,0,'',2,0,0),(10437,2406,6,141,0,'200.88.94.203',1143659081,1,0,1,1,1,1,'','','Gracias Fernando,\n\nDos cosas nuevas en esto:\n\n- Primero, no se como pasarte la tabla en la cual tengo problemas.  Yo utilizo MySQL, y todo depende de con cual motor de BD vas a buscar reproducir el mismo error que me pasa.  Puedo enviarte la tabla en DBF a partir de la cual he creado la de MySQL (solo tiene 10 registros para probar), pero tú me diras.\n\n- \"Conversando\" con José Luis Capel por MSN, me ha sugerido que integre las pruebas con el metodo Supports(), a ver si es que los metodos ::oRs:Update() y la propiedad ::oRs:BookMark estan soportadas por el proveedor (MySQL).  El caso es que SI estan soportadas ambas.  Anexo mas abajo el metodo Save(), que es con el cual me ocurre el problema.  Se trata del mismo método Save() propuesto por JLC y que fuera publicado en su Blog..... pero muy, muy modificado, pues trato los valores en un buffer, y luego simplemente los grabo con el Update().\n\n-----------------------------------------\nMETHOD Save() CLASS tAdoRs\n\n       LOCAL oError\n       LOCAL lResult\n       LOCAL n, nFields\n       LOCAL lChange := .F.\n       LOCAL uBkMrk\n       LOCAL cType\n\n       lResult := .T.\n\n       TRY\n          if ::lNeedUpd\n             if ::lBuffer\n                for n := 1 to len( ::aBuffer )\n                    if ::oRs:Fields(n-1):value &lt;&gt; ::aBuffer[n]\n\n                       cType := ::FieldType( n )\n                       cName := ::FieldName( n )\n\n                       do case\n                         case cType = \"D\"\n                           ::oRs:Fields( cName ):value := if(::aBuffer[n]=CTOD(\"\"), NIL, DTOC( ::aBuffer[n] ) )\n\n                         otherwise\n                           ::oRs:Fields( cName ):value := ::aBuffer[n]\n\n                       endcase\n                       lChange := .T.\n                    endif\n                next\n             endif\n\n             if lChange\n                MsgInfo( \"Soporta el metodo UPDATE(): \"+IIF(::oRs:Supports( adUpdate ),\"Si\",\"No\" ) )\n                MsgInfo( \"Soporta la propiedad BOOKMARK: \"+IIF(::oRs:Supports( adBookMark ),\"Si\",\"No\" ) )\n                IF ::oRs:Status() == adRecModified\n                   ::oRs:Update()\n                   uBkMrk := ::Recno()\n                   ::oRs:Requery()\n                   ::Goto( uBkMrk )\n                ENDIF\n             endif\n             ::lNeedUpd := .F.\n          endif\n\n       CATCH oError\n          lResult := .F.\n          MsgStop(oError:Operation+CRLF+;\n                  oError:Description+CRLF+;\n                  \"Tabla: \"+::cAlias+CRLF+;\n                  \"Columna: \"+STR(n),\"Ado Recordset - Método Save()\")\n       END\n\nRETURN lResult\n\nGracias anticipadas por cualquier sugerencia...','',0,'','3e1f2nrs',1,0,'',141,0,0),(10438,2443,6,492,0,'201.127.102.230',1143661314,1,0,1,1,1,0,'','','Asi es Antonio.\n\nY cuando digo temblar es temblar !!!!  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nCasi imaginate cuando te mandan un zumbido desde el MSN\n\nY estoy usando todo lo \"normal\" que viene en el FWH\n\n[img:1c3g4vwi]http&#58;//img217&#46;imageshack&#46;us/img217/6881/scr12mh&#46;jpg[/img:1c3g4vwi]\n\n\n[img:1c3g4vwi]http&#58;//img217&#46;imageshack&#46;us/img217/8026/scr27kl&#46;jpg[/img:1c3g4vwi]\n\n\nPerdon, creo que salieron muy grandes las imagenes....\n\nGracias','',0,'CA==','1c3g4vwi',1,0,'',492,0,0),(10439,2426,6,41,0,'166.114.252.26',1143661464,1,0,1,1,1,0,'','','Holas,\n\nhe detectado el problema, la aplicacion al aumentar modulos PRG se congela al llamar un ALERT, sera que es problema de recursos, alguien ha experimentado algo similar?\n\nsaludos','',0,'CA==','1b11q7s9',1,0,'',41,0,0),(10440,2444,6,41,0,'166.114.252.26',1143661893,1,0,1,1,1,0,'','ButtonBMP de Rossini','Hola,\n\ntengo el problema que con estos botones necesito hacer mas de una vez click con el raton sobre ellos para que se ejecute lo definido en ACTION, hay alguna solucion para ello?\n\nsaludos\n\nMarcelo','',0,'CA==','37p6x3kv',1,0,'',41,0,0),(10441,2443,6,2,0,'87.218.146.18',1143662968,1,0,1,1,1,1,'','','Raymundo,\n\nGracias por las imágenes.\n\nPuedes por favor construir el ejemplo samples\\fwbrow.prg y probar a pasar el cursor por las aplicaciones minimizadas y ver si también parpadea ? Gracias. Aqui funciona bien.','',0,'CA==','2s2vy050',1,0,'',2,0,0),(10442,2443,6,492,0,'201.127.102.230',1143663081,1,0,1,1,1,0,'','','Antonio, ya probe desactivando el skin, y hace lo mismo\nInclusive con otra pc que no tiene instalado nada de manejo de los skines hace lo mismo.\n\nLo que descarta algun problema con mi HardWare, creo aun sin hacer pruebas, que podria ser algo respecto al tamaño del dialogo principal.\n\nSeguire haciendo pruebas.','',0,'CA==','g652trep',1,0,'',492,0,0),(10443,2444,6,2,0,'87.218.146.18',1143663255,1,0,1,1,1,1,'','','Marcelo,\n\nTe enviamos por email la clase de FWH, modificada compatible con la de Rossine para que la pruebes. Gracias.','',0,'CA==','3j7fd0pc',1,0,'',2,0,0),(10444,2443,6,492,0,'201.127.102.230',1143663361,1,0,1,1,1,0,'','','Antonio\n\nYa genere el archivo solicitado y es verdad, funciona correctamente\n\nHago una aclaracion al respecto a los controles/clases usadas, los browses estan usando la clase de Hernan, perdon por el descuido  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'CA==','2goyelr2',1,0,'',492,0,0),(10445,2426,6,2,0,'87.218.146.18',1143663413,1,0,1,1,1,1,'','','Marcelo,\n\nSi en vez de llamar a un Alert(), llamas a un MsgInfo(), aparece bien ?','',0,'CA==','uc9nudf0',1,0,'',2,0,0),(10446,2443,6,2,0,'87.218.146.18',1143663484,1,0,1,1,1,1,'','','Raymundo,\n\nPero parpadea solo el browse de Hernan, ó toda la caja de diálogo ?','',0,'CA==','3nc8enl6',1,0,'',2,0,0),(10447,2418,4,2,0,'87.218.146.18',1143663695,1,0,1,1,1,1,'','','Eugeniusz,\n\nWe are trying to use a DBF on a lan computer from the emulator, this way:\n\nUSE \"\\\\192.168.0.15\\share\\customer.dbf\" SHARED\n\nbut it can\'t access that network path. We have configured the pocket pc lan so we can open google from the emulator. \n\nDoes this work for you ? If yes, how you do it ? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','31f3alrw',1,0,'',2,0,0),(10448,2444,6,61,0,'201.217.166.18',1143663790,1,0,1,1,1,0,'','','Antonio:\n\nSeria tabn amable de enviarme la clase Rosine a mi\ntambien.\n\nMuchas gracias.\n\nRuben Fernandez','',0,'CA==','1hmp3pcd',1,0,'',61,0,0),(10449,2443,6,492,0,'201.127.102.230',1143664097,1,0,1,1,1,0,'','','Todo el dialogo, como podras ver en las imagenes que envio todos los controles de la pestaña se desaparecen incluyendo la barra de botones.','',0,'CA==','1ykk4p18',1,0,'',492,0,0),(10450,2418,4,19,0,'83.18.178.178',1143665780,1,0,1,1,1,0,'','','Antonio,\nOn my PocketPC I can map any path of my LAN computer.\nI use TotalCommander for PPC or simply File Explorer - it has ability do make net path mapping. So I open both exe file and dbf file from PPC on LAN.\n\nUSE (CurDir()+\"\\dbffile\") new shared alias wd\nif wd-&gt;(rLock())\n   wd-&gt;field1:=\"any value\"\nElse\n   msgInfo(\"LAN error\")\nEndIf\n\nuse (\"\\\\192.168.0.15\\share\\customer\") shared  -&gt; display \"open error\" on my PPC\n\nregards Eugeniusz','',0,'CA==','16pesait',1,0,'',19,0,0),(10451,2426,6,41,0,'166.114.252.26',1143666152,1,0,1,1,1,0,'','','Antonio,\n\nefectivamente, si cambio los Alert por msginfo()  todo funciona bien, me puedes decir que es?\n\nsaludos y gracias\n\nMarcelo','',0,'CA==','ljlwa8us',1,0,'',41,0,0),(10452,2444,6,41,0,'166.114.252.26',1143666290,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3hildpdw]Marcelo,\n\nTe enviamos por email la clase de FWH, modificada compatible con la de Rossine para que la pruebes. Gracias.[/quote:3hildpdw]\n\nGracia Antonio,\n\ncambie el prg respectivo, si bien no tengo problemas con hacer mas de un click para que se ejecute el ACTION, pero ahora ya no se muestran los BMPs del boton <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nsaludos\n\nMarcelo','',0,'gA==','3hildpdw',1,0,'',41,0,0),(10453,2429,7,456,0,'217.124.41.35',1143666654,1,0,1,1,1,1,'','','Hola Antonio, \nsi ya se que esta incluido, pero me da el problema que cito en el primer mensaje de este post. \nTras la sujerencia de Carles, he añadido \"source\\function\\fwppc.prg\"  para realizar unos cambios en el fuente. Pero no ha hecho falta, pues con la version source\\function\\fwppc.prg me funciona bien, solo he ajustado tamaño del dialogo. \nEstoy utilizando la version de marzo 06, no es la ultima pq veo q hoy has publicado una pero es la penultima.\n\nBueno Jose, Javier, ya os ha contestado el master Antonio, ya sabes tantos prgs como quieras, cambiando el bat de compilacion usando make o alguna otra herramienta. Yo utilizo xMate, lei sobre él aqui en el foro y tras probar otras soluciones, es el que mejor me va, pero para gustos colores.','',0,'gA==','395bkcl7',1,0,'',456,0,0),(10454,2356,6,104,0,'201.58.15.143',1143670973,1,0,1,1,1,0,'','','Olá Todos,\n\nAqui está um dos exemplos que preparei.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[img:2vdp9vu9]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/brw8&#46;PNG[/img:2vdp9vu9]\n\nBaixem o Fonte deste exemplo e o .EXE daqui:\n\n[url:2vdp9vu9]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/TESTBRAR&#46;ZIP[/url:2vdp9vu9]\n\nAssim que possível liberarei os fontes para todos e mais exemplos.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAbraços,\n\nRossine.  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'GA==','2vdp9vu9',1,0,'',104,0,0),(10455,2418,4,2,0,'87.218.146.18',1143672199,1,0,1,1,1,1,'','','Eugeniusz,\n\n&gt; On my PocketPC I can map any path of my LAN computer. \n\nHave you tried the same on the Windows Mobile 5 emulator ?','',0,'GA==','1lvw0701',1,0,'',2,0,0),(10456,2444,6,2,0,'87.218.146.18',1143672477,1,0,1,1,1,1,'','','Te envio fivewin.ch por email','',0,'GA==','348kzryn',1,0,'',2,0,0),(10457,2426,6,2,0,'87.218.146.18',1143672668,1,0,1,1,1,1,'','','Marcelo,\n\nAún no se que pueda ser, por eso las pruebas que estás haciendo son necesarias.\n\nSi en vez de MsgInfo() muestras un diálogo tuyo, funciona bien ?','',0,'GA==','2kgl0mhu',1,0,'',2,0,0),(10458,2443,6,2,0,'87.218.146.18',1143672747,1,0,1,1,1,1,'','','Raymundo,\n\nPuedes probar con otra caja de diálogo de tu aplicación, en la que no haya un browse ?','',0,'GA==','125pbcq0',1,0,'',2,0,0),(10459,2325,2,39,0,'201.220.111.127',1143673074,1,0,1,1,1,0,'','','¿ Esta usando windows xp ? \n\nSi es asi, entonces revisa que tu programa no este bloqueado por el firewall de windows xp sp2\n\n\natte,\nLautaro','',0,'GA==','n12u3m3p',1,0,'',39,0,0),(10460,2445,6,511,0,'201.248.65.240',1143673380,1,0,1,1,1,0,'','Multibar','Saludos al foro,\n\nRecien estoy iniciando la conversion de mis aplicaciones de Fw a Fwh y necesito crear multiples barras de botones en la ventana principal como lo hacia con una clase modificada de Alejandro Cebolido (Multibar). Existe alguna forma de hacer esto directamente con Fwh?, ya que no he encontrado nada.\n\nGracias','',0,'GA==','1r2vqqiy',1,0,'',511,0,0),(10461,2356,6,15,0,'203.73.49.202',1143674564,1,0,1,1,1,0,'','','Hi Rossine,\n\nYour sample really power and nice.\n\nRegards,\n\nRichard','',0,'GA==','1pf241ym',1,0,'',15,0,0),(10462,2422,6,495,0,'201.239.63.10',1143676650,1,0,1,1,1,0,'','','Muchas gracias Paco funciona increible  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nsalu2','',0,'GA==','30pzd5e8',1,0,'',495,0,0),(10463,2443,6,492,0,'201.127.102.230',1143678426,1,0,1,1,1,0,'','','Ya probe lo que me comentas, y sigue haciendo lo mismo   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'GA==','22rgfcny',1,0,'',492,0,0),(10464,2386,3,190,0,'202.65.134.45',1143681735,1,0,1,1,1,0,'','','Thanks to both of you Mr.Mike and Mr.Daniel.\n\nRegards,\n\n- Ramesh Babu P','',0,'GA==','2u8kav9z',1,0,'',190,0,0),(10465,808,1,190,0,'202.65.134.45',1143682152,1,0,1,1,1,0,'','','Mr. Richard\n\nCan I get a Class / LIB to control the Scanner for FWH ?.\n\nKindly send to me to my \"aksharasoft@hotmail.com\".\n\nTIA\n\nRegards,\n\n- Ramesh Babu P','',0,'GA==','2x733dc5',1,0,'',190,0,0),(10466,2430,4,51,0,'80.122.88.242',1143696068,1,0,1,1,1,0,'','','With the new FWPP I get the following errors.\nRegards\nOtto\ninventur.c\nCreating library inventur.lib and object inventur.exp\nFiveCEC.lib(DRIVES.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(CTRL2CHR.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(GETFILE.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(HARBOURC.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(MGETCREA.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(NOTIFY.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(WNDSAY.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(GETDLGIT.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(MOVETO.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(TEXT.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(WNDMOVE.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(FWBMP.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(FWCE.obj) : error LNK2019: unresolved external symbol hb_stackReturn\nItem referenced in function \"void __cdecl HB_FUN_WIDETOANSI(void)\" (?HB_FUN_WIDETOANSI@@YAXXZ)\nFiveCEC.lib(AYGSHELL.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(FONTS.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(WNDCENTE.obj) : error LNK2001: unresolved external symbol hb_stackReturnItem\nFiveCEC.lib(FWCE.obj) : error LNK2019: unresolved external symbol hb_stackBaseItem referenced in function \"void __cdecl HB_FUN_MSGINFO(void)\" (?HB_FUN_MSGINFO@@YAXXZ)\ninventur.exe : fatal error LNK1120: 2 unresolved externals','',0,'GA==','3mroupiq',1,0,'',51,0,0),(10467,2418,4,19,0,'217.153.83.2',1143698335,1,0,1,1,1,0,'','','Antonio,\nI have some trouble with instalation WM 5.0 emulator on my computer.\nI have downloaded a Windows Mobile 5.0 Pocket PC SDK.msi but at instalation time I get error.\nCan You send me USA_PPC.bin (if it is not to big )\n\nregards ,\nEugeniusz','',0,'GA==','32b0jrjj',1,0,'',19,0,0),(10468,2446,3,160,0,'210.212.142.91',1143699546,1,0,1,1,1,0,'','Left Margin differs from Printer to Printer','Hello All,\n\nI have been facing a strange problem. I am using Printer class for the reports. In which left Margin of the report differs from printer to printer. Is there any way to control this ?\n\nTIA\nMilan.','',0,'GA==','2irnil4l',1,0,'',160,0,0),(10469,2443,6,57,0,'83.39.143.140',1143700197,1,0,1,1,1,1,'','','Raymundo\n\nCuando compilas el nuevo dialogo que comenta A.Linares por casualidad estas enlazando los prg\'s o lib que contienen el wbrowse. Si es así compila el ejemplo sin incluirlos. A mi me pasó algo parecido y tambien estaba el wbrowse de hernan.\n\nSaludos','',0,'GA==','cuzi0nk0',1,0,'',57,0,0),(10470,2444,6,57,0,'83.39.143.140',1143700314,1,0,1,1,1,1,'','','Antonio\nPodrías enviarmelas a mí tambien.\n\nGracias\nToni Sales','',0,'GA==','c0o6u2qu',1,0,'',57,0,0),(10471,2430,4,2,0,'87.218.146.18',1143700479,1,0,1,1,1,1,'','','Otto,\n\nYou have to download Harbour too from the FWPPC download page and install it too.','',0,'GA==','1ogdogub',1,0,'',2,0,0),(10472,2418,4,2,0,'87.218.146.18',1143700705,1,0,1,1,1,1,'','','Eugeniusz,\n\nOpen the msi file doing this:\n\nmsiexec /a &lt;filename.msi&gt;\n\nit will force the msi to be installed <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','7yv5jzto',1,0,'',2,0,0),(10473,2435,4,2,0,'87.218.146.18',1143700890,1,0,1,1,1,1,'','','Eugeniusz,\n\nPlease review fwppc\\samples\\sockcli.prg\n\nIf you run fwh\\samples\\sockserv.prg on your PC and sockcli on the Pocket PC emulator, you will see they properly communicate.','',0,'GA==','20nd6nbx',1,0,'',2,0,0),(10474,2444,6,2,0,'87.218.146.18',1143701935,1,0,1,1,1,1,'','','Toni,\n\nEnviados,','',0,'GA==','2rsdn27k',1,0,'',2,0,0),(10475,2445,6,2,0,'87.218.146.18',1143702056,1,0,1,1,1,1,'','','Alvaro,\n\nRevisa los ejemplos samples\\ToolBar1.prg y ToolBar2.prg','',0,'GA==','2m2rp5pi',1,0,'',2,0,0),(10476,2431,3,2,0,'87.218.146.18',1143702322,1,0,1,1,1,1,'','','Comandocem( nHex( cHex ) )\n\nand from Comandocem():\n\nLONG lValue = hb_parnl( 1 );','',0,'GA==','f4vhzx93',1,0,'',2,0,0),(10477,2431,3,52,0,'200.127.195.89',1143704117,1,0,1,1,1,1,'','','Antonio, \n\nEntonces: hb_parnl( 1 ) devuelve un valor de tipo LONG? \n\nSeria entonces que un Hexadecimal se lo puede almacenar en un dato de tipo LONG?\n\n\nComo ser:\n\nComandoCEm(nhex( 101 ) )\n\n...\nAl hacer esto:\n   LONG lValue = hb_parnl( 1 );\n  \n   lValue guardaria el 65 ( que es el valor hexadecimal del decimal 101 )\n\nEs asi?','',0,'GA==','31v8z41q',1,0,'',52,0,0),(10478,2447,20,29,0,'81.174.23.40',1143705157,1,0,1,1,1,0,'','Disabilitare un radiobutton','Salve,\ncome posso disabilitare un solo radiobutton in funzione di una certa condizione ?\n\nIn pratica immaginiamo di avere\n\nREDEFINE RADIO oRad VAR nSelect ID 101,102,103 OF oDlg\n\nio vorrei disabilitare solo il pallino relativo all\'ID 102\n\nGrazie.\n\nMarco','',0,'GA==','1qrgzp7d',1,0,'',29,0,0),(10479,2406,6,123,0,'83.39.143.140',1143705167,1,0,1,1,1,0,'','','Julio,\n\nPrepara, por favor, un ejemplo autocontenido que muestre el problema que indicas.  A ver si vemos lo que te está pasando.\n\nSaludos,\nJosé Luis Capel','',0,'GA==','2lvm1xk7',1,0,'',123,0,0),(10480,2437,6,123,0,'83.39.143.140',1143705487,1,0,1,1,1,0,'','','Fernando,\n\nHasta donde yo conozco el proveedor odbc de MySql (3.51 creo) no proporciona la funcionalidad de ADOx.  Por lo tanto, lo que necesitas, lo tendrás que hacer a base de sentencias DML y llamadas a procedimientos almacenados via ADO.\n\nSaludos,\nJosé Luis Capel','',0,'GA==','1mk40j2d',1,0,'',123,0,0),(10481,2442,1,330,0,'217.37.54.49',1143705967,1,0,1,1,1,0,'','','I have used this but I just get truncated file names\n\nPeter','',0,'GA==','1f2a5abq',1,0,'',330,0,0),(10482,2406,6,123,0,'83.39.143.140',1143706082,1,0,1,1,1,0,'','','Julio:\n\na. ¿Como creas el recordset? Muéstrame el código\n\nb. ¿Como haces para modificar un registro? Muéstrame el código\n\nc. ¿Como haces para grabar el registro? Muéstrame el código.\n\nEl mensaje que te aparece:\n\n[quote:1ktva1aa]\"No se puede encontrar la fila para su actualizacion: algunos valores han cambiado desde la ultima vez que se leyo\"\n[/quote:1ktva1aa]\n\nA mi me ha aparecido cuando:\n\na. El registro que voy a grabar ya no existe en el recordset.\nb. El recordset que me he traido no tiene clave primaria.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1ktva1aa',1,0,'',123,0,0),(10483,2287,1,193,0,'195.212.29.163',1143708938,1,0,1,1,1,0,'','','Hi.\nAt last I have prepared a more interesting demo of my FILESEEK class. In whole I wrote two FILESEEK classes. The first does not provide Long File Names support in case if you need not LFN. The second class is almost the same as the first but with supporting Long File Names. With the second class you can create objects which either support LFN or don\'t support LFN. If an object of the second class does not support LFN it is in essence the same as an object of the first class. The only valuable difference that for the second class object LFN instant variable exists with value of .F..\nThough the class with LFN is fully ready my demo deals with only standard 8.3 file names. To write a demo for LFN FILESEEK class I need information about how on XP to get in DOS short date format. I\'d like to emulate XP DIR command but without correct date presentation it would not be very nice. Maybe somebody knows how to get in DOS short date format used in Windows XP?\n\nFeatures of the class\n1. It is pure Clipper class. I think it is the first FILESEEK class in Clipper. At least I did not meet similar FILESEEK classes in Clipper.\n2. You can set searching file specification up to 80 characters (max DOS file specification) instead of 64 characters as you can do in Clipper.\n3. You can display Long File Names in DOS (and consequently in FiveWin withot loading any DLL).\n4. The class provides all information to control file searching.\n5. You don\'t need to bother about saving and restoring object internal state if you use several FILESEEK objects simultaneously. The only exception if you using both DIRECTORY() and a FILESSEK object. In this case after executing DIRECTORY() to continue searching with the FILESEEK object you only specify the first seek method with a parameter\noFileSeek:seek( lRefresh := .T. ). All subsequent seek methods need not to have lRefresh parameter.\nThe demo you can see here [url:12wf2am9]http&#58;//hyperupload&#46;com/download/01b0e62972/FS_DEMO1&#46;EXE&#46;html[/url:12wf2am9]\nThe corresponding source code of the demo is here\n[url:12wf2am9]http&#58;//hyperupload&#46;com/download/0283d25183/FS_DEMO1&#46;PRG&#46;html[/url:12wf2am9]\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> [/url]','',0,'EA==','12wf2am9',1,0,'',193,0,0),(10484,2447,20,6,0,'87.3.232.167',1143709273,1,0,1,1,1,1,'','Re: Disabilitare un radiobutton','Hai provato con oRad:aItems[ 2 ]:Disable()?\n\nAltrimenti posta un esempietto su cui sperimentare.\n\nEMG','',0,'','2m9ka26j',1,0,'',6,0,0),(10485,2430,4,51,0,'80.122.88.242',1143709542,1,0,1,1,1,0,'','','Could you please check this.\n\nRegards \nOtto\n\n\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'inventur.prg\' and generating preprocessed output to \'inventur.ppo\'...\n\nLines 487, Functions/Procedures 11\nGenerating C source output to \'inventur.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\ninventur.c\n   Creating library inventur.lib and object inventur.exp\nrdd.lib(dbf1.obj) : error LNK2019: unresolved external symbol hb_sxDeCrypt refer\nenced in function hb_dbfGetRec\nrdd.lib(dbf1.obj) : error LNK2019: unresolved external symbol hb_sxPtoD referenc\ned in function hb_dbfGetValue\ndbffpt.lib(dbffpt1.obj) : error LNK2001: unresolved external symbol hb_sxPtoD\nrdd.lib(dbf1.obj) : error LNK2019: unresolved external symbol hb_sxEnCrypt refer\nenced in function hb_dbfPutRec\nrdd.lib(dbf1.obj) : error LNK2019: unresolved external symbol hb_sxDtoP referenc\ned in function hb_dbfPutValue\ndbffpt.lib(dbffpt1.obj) : error LNK2001: unresolved external symbol hb_sxDtoP\ninventur.exe : fatal error LNK1120: 4 unresolved externals','',0,'','3oczc0lf',1,0,'',51,0,0),(10486,2418,4,19,0,'217.153.83.2',1143710741,1,0,1,1,1,0,'','','Antonio,\nEmulator WM 5.0 is instaled and work perfectly. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \nI can map path of my computer thru the option \"Configure\" in menu \"File\" and open it from \"Storage Card\" like in previous version of emulator.\nBehavior of program executed this way is the same like on realy PPC - rLock return .F. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nI cannot asign any net path thru File Explorer -&gt;Menu-&gt;Open Path\n\nregards,\nEugeniusz','',0,'','19rpapn5',1,0,'',19,0,0),(10487,2430,4,2,0,'87.218.146.176',1143711649,1,0,1,1,1,1,'','','Otto,\n\nYou have to link hbsix.lib too.','',0,'','3k0o27oh',1,0,'',2,0,0),(10488,2418,4,2,0,'87.218.146.176',1143711748,1,0,1,1,1,1,'','','Eugeniousz,\n\n&gt; I cannot asign any net path thru File Explorer -&gt;Menu-&gt;Open Path\n\nThats the problem. If we can not assign it then we can not open a DBF located there <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','325tvusx',1,0,'',2,0,0),(10489,2431,3,2,0,'87.218.146.176',1143711822,1,0,1,1,1,1,'','','Gustavo,\n\nComandoCEm( nhex( \"101\" ) )','',0,'','peapyn6p',1,0,'',2,0,0),(10490,2442,1,2,0,'87.218.146.176',1143712094,1,0,1,1,1,1,'','','Peter,\n\nIt looks as a 16 bits limitation. With Harbour and FWH it works ok.','',0,'','2bql0wda',1,0,'',2,0,0),(10491,2442,1,330,0,'217.37.54.49',1143712754,1,0,1,1,1,0,'','','Yes it does work with fwh and gradually moving over to this\n\nthanks\nPeter','',0,'','1w88hppw',1,0,'',330,0,0),(10492,2418,4,19,0,'217.153.83.2',1143715503,1,0,1,1,1,0,'','','Antonio,\n\n&gt; If we can not assign it then we can not open a DBF located there \n\nBut path mapping works and I can execute exe with opening a dbf file in share mode on a \'net disk\'. This is all I want to get testing procedures with file shering\n\nregards \nEugeniusz','',0,'','1cmhi075',1,0,'',19,0,0),(10493,2447,20,29,0,'81.174.23.40',1143717098,1,0,1,1,1,0,'','','Funziona. Grazie.\n\nMarco','',0,'','2vnt692p',1,0,'',29,0,0),(10494,454,5,512,0,'202.6.138.33',1143717710,1,0,1,1,1,0,'','TSMTP Source Code Correction','Can you post the change to the source code for the TSMTP class. I need to fix it in my program.\n\nThankyou <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nAngelo','',0,'','ri75p6bp',1,0,'',512,0,0),(10495,2448,3,160,0,'210.212.142.91',1143721934,1,0,1,1,1,0,'','Error While trying to use ActiveX control','Hello All,\n\nWhile trying to use ActiveX control, I get folllowing Error :\n\nError: Unresolved external \'_hb_dynsymSymbol\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|HARBOURC\n\nMy code is as follows :\n----------------------------------------Cut---------------------------------\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oWnd, oActiveX, cSeed\n   local cEvents := \"\"\n\n   DEFINE WINDOW oWnd TITLE \"GSN Testing\"\n\n   oActiveX = TActiveX():New( oWnd, \"GSN.GSNCtrl.1\" )\n   oActiveX&#058;nWidth = 0\n   oActiveX&#058;nHeight = 0\n\n   oActiveX&#058;bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }\n\n   ACTIVATE WINDOW oWnd ;\n      VALID ( MemoEdit( cEvents ), .t. )\n\nreturn nil\n\nfunction EventInfo( event, aParams )\n\n   local cMsg := \"Event: \" + cValToChar( event ) + CRLF\n   local n\n\n   cMsg += \"Params: \"\n\n   for n = 1 to Len( aParams )\n      cMsg += cValToChar( aParams[ n ] ) + CRLF\n   next\n\nreturn cMsg + CRLF\n\n-----------------------Paste------------------------------------------\nMilan.','',0,'','1beiay08',1,0,'',160,0,0),(10496,2426,6,41,0,'166.114.252.26',1143722453,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:xx1qkrh8]Marcelo,\n\nAún no se que pueda ser, por eso las pruebas que estás haciendo son necesarias.\n\nSi en vez de MsgInfo() muestras un diálogo tuyo, funciona bien ?[/quote:xx1qkrh8]\n\nAntonio,\n\nla respuesta es si, ya que la cosa es algo asi\n\nif condicion \n   msginfo()\n   return .f.\nendif\n\ndefine dialog .....\n......\n\ny el dialogo se despliega correctamente, pero si la condicion se cumple el msginfo() funciona correctamente tambien, pero si reemplazo el msginfo() por alert(), alli se congela, y lo raro fue al aumentar el numero de prg al proyecto\n\nespero sirva de algo lo que te cuento\n\nGracias y saludos\n \nMarcelo','',0,'gA==','xx1qkrh8',1,0,'',41,0,0),(10497,2444,6,41,0,'166.114.252.26',1143722537,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1nijd9gr]Te envio fivewin.ch por email[/quote:1nijd9gr]\n\nRecibido Antonio, pero te coimento que el comportamiento sigue igual, otra idea?\n\nsaludos\n\nMarcelo','',0,'gA==','1nijd9gr',1,0,'',41,0,0),(10498,2449,6,413,0,'194.106.16.43',1143722724,1,0,1,1,1,0,'','Errores al compilar desde UEStudio....','De donde viene el erro W8056 donde encuentro la informacion. El resto de errores tampoco se de donde son. Alguien me puede dar informacion.\nSaludos\nAndrés González\n\n\n\n--------------------Configuración: prueba2 - Release--------------------\nxHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'..\\prueba2.prg\'...\nLines 14, Functions/Procedures 1\nGenerating C source output to \'prueba2.c\'...\nDone.\nBorland C++ 5.8 for Win32 Copyright (c) 1993, 2005 Borland\nprueba2.c:\nWarning W8056 G:\\FWH\\xHB09960\\INCLUDE\\hbdefs.h 407: Integer arithmetic overflow\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from G:\\FWH\\XHB09960\\LIB\\B32\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from G:\\FWH\\XHB09960\\LIB\\B32\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from G:\\FWH\\XHB09960\\LIB\\B32\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from G:\\FWH\\XHB09960\\LIB\\B32\\RDD.LIB|dbf1\nprueba2.EXE - 0 error(es), 1 advertencia(s)','',0,'gA==','2cq9ix3y',1,0,'',413,0,0),(10499,2450,6,362,0,'200.168.52.156',1143722852,1,0,1,1,1,1,'','_HB_FUN_REGENUMKEYS','xHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testreg2.prg\' and generating preprocessed output to \'testreg2.ppo\'...\n\nLines 22, Functions/Procedures 1\nGenerating C source output to \'testreg2.c\'...\nDone.\n\n_HB_FUN_REGENUMKEYS REFERENCED FROM C:\\FWH27\\SAMPLES\\TESTREG2.OBJ','',0,'gA==','rd63agkk',1,0,'',362,0,0),(10500,2445,6,511,0,'201.248.65.240',1143723506,1,0,1,0,1,0,'','','Antonio,\n\nGracias por tu respuesta, pero no veo en esos ejemplos la solucion ya que tengo una lista de 30 o mas botones que puede variar de acuerdo a cada usuario y lo que necesito es que al llenarse la primera barra automaticamente salte y cree las siguientes. Como puedo forzar la creacion de otras barras?\n\nSaludos','',0,'gA==','296ci1ds',1,0,'',511,0,0),(10501,2451,2,510,0,'201.243.26.46',1143725004,1,0,1,1,1,0,'','Inconvenientes con el Tbrowse','\n\n                ANTONIO, TE DOY LAS GRACIAS POR LAS DUDAS ACLARADAS\n\n     En los concejos que me distes anteriormente, me funcion el nClr para los colores de las cabezera, el ajustify  y el transform para mascaras numericas, pero el ejemplos onemany.prg que me sugeristes tiene lo contrario a lo que necesito, me explico mejor :\n\n\n            --------------------------------------------------------------------\n            | codigo        |         describe     |            Precio               |\n            --------------------------------------------------------------------\n            | 0930001    | PARACHOQUE    |               1,250,200.00 |\n             \n Listbox\n\n\n\n             --------------------------------------------------------------------\n\n    estos campos estan fuera del listbox (Twbrowse)\n\n          * Modelo : [                            ]              * biacion :[         ]\n\n    la pregunta en cuestiom es que cuando la barra del browse suba o baje\n    me presente los campos respectivos en los que tiene el * asi esten   afuera del browse\n\n\n        el ejemplo onemany.prg es bueno si uno quiere ir consultando un cliente y que haga un browse con las facturas que ha comprado, viene siendo en cierta forma al reves de lo que necesito\n\n         si me puediesen ayudar, lo agradeceria de antemano\n\natte: \nWilliam Gonzalez','',0,'Ag==','25rg08uf',1,0,'',510,0,0),(10502,454,5,2,0,'87.218.146.174',1143725903,1,0,1,1,1,1,'','','Angelo,\n\nHere it is:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0165891d51/tsmtp.zip.html\">http://hyperupload.com/download/0165891 ... p.zip.html</a><!-- m -->','',0,'Ag==','2q984o8s',1,0,'',2,0,0),(10503,2418,4,2,0,'87.218.146.174',1143725996,1,0,1,1,1,1,'','','Eugeniusz,\n\n&gt;\nBut path mapping works and I can execute exe with opening a dbf file in share mode on a \'net disk\'. This is all I want to get testing procedures with file shering \n&gt;\n\nDo you mean that you use the shared folder for the SD card emulation ?','',0,'Ag==','16zhxvzh',1,1143726393,'',2,1,0),(10504,2418,4,2,0,'87.218.146.174',1143726370,1,0,1,1,1,1,'','','Eugeniusz,\n\nDoes this code shows \"ok\" on the emulator ?\n[code:12wkl6ov]\n#include &quot;FWCE&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   USE &#40; CurDir&#40;&#41; + &quot;\\customer&#46;dbf&quot; &#41; SHARED\n   \n   if RLock&#40;&#41;\n      MsgInfo&#40; &quot;ok&quot; &#41;\n      UNLOCK\n   else\n      MsgInfo&#40; &quot;no&quot; &#41;\n   endif      \n   \n   USE\n\nreturn nil\n[/code:12wkl6ov]','',0,'AIA=','12wkl6ov',1,0,'',2,0,0),(10505,2448,3,2,0,'87.218.146.174',1143726578,1,0,1,1,1,1,'','','Milan,\n\nYou have to add this code to your app:\n[code:1hwe9gpo]\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \n   return pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP \n[/code:1hwe9gpo]','',0,'AIA=','1hwe9gpo',1,0,'',2,0,0),(10506,2449,6,2,0,'87.218.146.174',1143726719,1,0,1,1,1,1,'','','Tienes que añadir la librería hbsix.lib al enlazar.','',0,'AIA=','14cemn89',1,0,'',2,0,0),(10507,2444,6,2,0,'87.218.146.174',1143726861,1,0,1,1,1,1,'','','Prueba este ejemplo. Aqui funciona correctamente:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0200ce8d51/testbubm.zip.html\">http://hyperupload.com/download/0200ce8 ... m.zip.html</a><!-- m -->','',0,'AIA=','u68rojj7',1,0,'',2,0,0),(10508,2426,6,2,0,'87.218.146.174',1143727015,1,0,1,1,1,1,'','','Pon un ejemplo de como llamas al Alert(). Es con mucho texto ?','',0,'AIA=','3ixwx2q2',1,0,'',2,0,0),(10509,2418,4,89,0,'213.21.136.60',1143727091,1,0,1,1,1,0,'','','This is my test with SHARE :\n\nOn WindowsCE   \nI have this messages :\"LockFileEx() not supported in this windows mobile version\" , the same for the file on PC or in the Pocket\n\nOn Windows Mobile 2005  \nif the path  is on the Pocket the command  rlock() returns OK \nif the path is on PC  the comman USE with SHARE block the programm\nand I need a reset\n\n(without SHARE all run OK) \n\nRegards Maurizio','',0,'AIA=','3a48vejy',1,0,'',89,0,0),(10510,2450,6,2,0,'87.218.146.174',1143727369,1,0,1,1,1,1,'','','Joao,\n\nChange REGENUMKEYS() into REGENUMKEY()','',0,'AIA=','31g766jt',1,0,'',2,0,0),(10511,2418,4,2,0,'87.218.146.174',1143727661,1,0,1,1,1,1,'','','Maurizio,\n\nThanks for your feedback. Yes, here we get the same results as you. Maybe the files stored at the SD card can not be locked.\n\nWe should try this code:\nUSE \"\\\\computer_ip\\shared_directory\\customer.dbf\" SHARED\n\nbut we can\'t get it to work from the emulator.','',0,'AIA=','2lq5p1he',1,0,'',2,0,0),(10512,2445,6,2,0,'87.218.146.174',1143727883,1,0,1,1,1,1,'','','Alvaro,\n\nEn principio no es fácil lo que quieres hacer. La barra de botones de FWH sólo está diseñada para una fila de botones. Con la rebar y las toolbars puedes tener varias barras.\n\nHabría que modificar la clase TBar, bastante, para que se comportarse como quieres. Si no recuerdo mal, Patrick Fan en <!-- m --><a class=\"postlink\" href=\"http://www.geocities.com/ksfanhk/freeware.htm\">http://www.geocities.com/ksfanhk/freeware.htm</a><!-- m --> lo había implementado.','',0,'AIA=','snpqktw6',1,0,'',2,0,0),(10513,2452,6,362,0,'200.168.52.156',1143727969,1,0,1,1,1,1,'','_HB_FUN_SETIDLEACTION','xHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testidle.prg\' and generating preprocessed output to \'testidle.ppo\'...\n\nLines 36, Functions/Procedures 1\nGenerating C source output to \'testidle.c\'...\nDone.\n\n_HB_FUN_SETIDLEACTION REFERENCED FROM C:\\FWH27\\SAMPLES\\TESTIDLE.OBJ','',0,'AIA=','3mvldp1u',1,0,'',362,0,0),(10514,2452,6,2,0,'87.218.146.174',1143728101,1,0,1,1,1,1,'','','Joao,\n\nSetIdleAction() is just available for 16 bits version.','',0,'AIA=','2mg1tma3',1,0,'',2,0,0),(10515,2418,4,89,0,'213.21.136.60',1143728158,1,0,1,1,1,0,'','','Hello Antonio\n\nIf I try (with WM 2005)\n\nUSE \"\\\\computer_ip\\shared_directory\\customer.dbf\" SHARED \n\nit crash  the programm \n\nMaurizio','',0,'AIA=','2naf1lnc',1,0,'',89,0,0),(10516,2430,4,51,0,'80.122.88.242',1143728479,1,0,1,1,1,0,'','','Thank you.\nAll ok now.\n\nRegards\nOtto','',0,'AIA=','1oncikab',1,0,'',51,0,0),(10517,2450,6,362,0,'200.168.52.156',1143728518,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:n870krvz]Joao,\n\nChange REGENUMKEYS() into REGENUMKEY()[/quote:n870krvz]\n\nGracias Atonio, Perfecto.','',0,'gA==','n870krvz',1,0,'',362,0,0),(10518,2452,6,362,0,'200.168.52.156',1143728719,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2v2931f2]Joao,\n\nSetIdleAction() is just available for 16 bits version.[/quote:2v2931f2]\n\nAntonio,\n\nNo Hay compatible, conciliable, para 32 Bits??\n\nPorque estais hablando en Inglés Conmigo?? Puedes hablar en español, te comprendo perfecto.','',0,'gA==','2v2931f2',1,0,'',362,0,0),(10519,2444,6,41,0,'166.114.252.26',1143729154,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:28h5c0hk]Prueba este ejemplo. Aqui funciona correctamente:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0200ce8d51/testbubm.zip.html\">http://hyperupload.com/download/0200ce8 ... m.zip.html</a><!-- m -->[/quote:28h5c0hk]\n\nAntonio,\n\ngracias, solucionado, reemplace el fivewin.ch y quite el buttonbmp.ch, este ultimo era el problema, ahora todo esta Ok, perdon por tu tiempo\n\nsaludos\n\nMarcelo','',0,'gA==','28h5c0hk',1,0,'',41,0,0),(10520,2426,6,41,0,'166.114.252.26',1143729614,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1r0z371a]Pon un ejemplo de como llamas al Alert(). Es con mucho texto ?[/quote:1r0z371a]\n\nAntonio,\n\nalert(\"cinco palabrs nada mas aqui\",,\"Atencion\")\n\nsera el tercer parametro el problema. Por otro lado al tener la clase de rossini elimine el tsbutton de un modulo, por lo que la utilizacion cd archivos de cabecera bajo, ahora puse el alert en el mismo lugar y no trono, sera esa la causa?\n\nSi veo algo mas te comunico\n\ngracias\n\nMarcelo','',0,'gA==','1r0z371a',1,0,'',41,0,0),(10521,2453,2,509,0,'80.34.248.50',1143729960,1,0,1,0,1,0,'','Evitar el salto de página con EasyReport / TPRINTER','Tengo un formulario con EasyReport y quiero evitar que al finalizar de imprimir se avance el folio hasta el tamaño indicado por el formato de papel ya que utilizo papel contínuo. Si cambio el tamaño del papel a un formato inferior al A4 siempre me salta hasta el A4 en XP. Con Windows 98 no ocurre.','',0,'gA==','1citj6m9',1,0,'',509,0,0),(10522,2356,6,73,0,'201.145.74.184',1143731985,1,0,1,1,1,0,'','','Hola rossine,\nen alguna ocasion intente poner en la columna1 un puntero como el del xbrowse, pero no pude <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> , tu trabajop es excelente!! podrias intentar poner ese puntero? digo sino es mucho pedir <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, sino mil gracias.\nsalu2\npaco','',0,'gA==','3ehle4aj',1,0,'',73,0,0),(10523,2444,6,439,0,'201.221.43.121',1143732993,1,0,1,1,1,0,'','Interesante','Antonio, podrías enviarme la clase a mí también por favor, y de ser posible el ejemplo, que de hecho ya no está disponible en el Hiperupload?\n\nGracias desde ya','',0,'gA==','2mxx6bkh',1,0,'',439,0,0),(10524,2454,6,362,0,'200.168.52.156',1143733472,1,0,1,1,1,1,'','DONDE PUEDO BAJAR VERCE.EXE','Buenas amigos.\n\nPor favor, donde puedo bajar el Excelente VERCE.EXE??\n\nCual és el LINK de la Versión mas recente??\n\nGracias. Saludos.','',0,'gA==','wt7sge0l',1,0,'',362,0,0),(10525,2441,6,439,0,'201.221.43.121',1143733569,1,0,1,1,1,0,'','Gracias','No me creerás pero el problema era el disco, ya está resuelto y efectivamente NO HAY PROBLEMAS CON LAS P4.\n\nUn fuerte abrazo.','',0,'gA==','3ot17gdy',1,0,'',439,0,0),(10526,2418,4,19,0,'83.18.178.178',1143734510,1,0,1,1,1,0,'','','Antonio,\n\nThis piece of program on WM 5.0 (shared SD) and on my Pocket PC connected via WiFi to my computer return \'no\'. \nSo emulator work properly just like PPC.\n\nregards \nEugeniusz','',0,'gA==','3fp39jdq',1,0,'',19,0,0),(10527,2454,6,43,0,'201.127.19.39',1143735236,1,0,1,1,1,0,'','','Hola\n\n   Puedes bajarlo directamente en la pagina:  \n\n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\n\nSaludos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Marco A. Delgado.','',0,'gA==','dcf5l0lm',1,0,'',43,0,0),(10528,2455,6,439,0,'201.221.43.121',1143735970,1,0,1,1,1,0,'','Clase MultiPreview para xHarbour','Esta clase es muy útil, la he usado en Clipper.\n\nAlguien la tiene para [x]Harbour?','',0,'','3ihayndn',1,0,'',439,0,0),(10529,2443,6,255,0,'200.67.175.250',1143736045,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:272lkg3q]Asi es Antonio.\nY cuando digo temblar es temblar !!!!  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \nCasi imaginate cuando te mandan un zumbido desde el MSN\nY estoy usando todo lo \"normal\" que viene en el FWH\nPerdon, creo que salieron muy grandes las imagenes....\nGracias[/quote:272lkg3q]\n\nMe llama mucho la atención el reloj que tienes arriba a\nla derecha, es freeware? de ser asi me podrias decir de\ndonde lo descargo ?\nGracias','',0,'gA==','272lkg3q',1,0,'',255,0,0),(10530,2456,6,179,0,'200.24.221.138',1143737638,1,0,1,1,1,1,'','AUXILIO CON REPORT','Saludos compañeros\npues eso\nme salen unas hermosas paginas en blanco\nen el preview, tampoco manda nada a la impresora\npero si me sale que esta construyendo las paginas\neso me pasa desde que quiero actualizarme a la ultima version del fwh27\nantes trabajaba con la 2.4 y todo Ok\n\nAhora estoy escribiendo un nuevo proyecto desde cero solo con lo ultimo de fwh27 + xharbour( Ultimocvs)\n\naclaro que los samples de treport funcionan bien\n\naca pongo el script de compilacion en xmate\n\na ver si alguien me ayuda\nhe probado con todos los prev32.dll que tengo y nada\n\n[Version]\nType=xMate\nNumber=1.9z15\n[Info]\nType=Executable\nArchitecture=Fw27xHb\nInclude=\nDefine=\n[xMate]\nCreate Map/List File=No\n[Project]\nRun=\nParams=1\nFinal Path=%HOME%\nMaintain LNK=Yes\nDefault Type=1\n[Data Path]\nDbf=C:\\WILSON\\TEXVALLE\\TV_VENTA\n[Files]\n%HOME%\\Win_Nr_Main.prg=1,.F.,3260,37,\n%HOME%\\Win_Nr_Funciones.Prg=2,.F.,3489,20,\n%HOME%\\Win_Nr.Rc=3,.F.,1,1,\n%C_LIB_INSTALL%\\C0W32.OBJ=4,.T.,0,0,\n%HB_LIB_INSTALL%\\bcc640.lib=5,.T.,0,0,\nc:\\fwh27\\lib3\\vBox32.LIB=6,.T.,0,0,\nc:\\fwh27\\lib3\\SButtonHx.LIB=7,.T.,0,0,\nc:\\fwh27\\lib3\\TWBRWx32.LIB=8,.T.,0,0,\nc:\\fwh27\\lib3\\TBtnGet32x.LIB=9,.T.,0,0,\nc:\\fwh27\\lib3\\SBrowseHx.lib=10,.T.,0,0,\nc:\\fwh27\\lib3\\Graph3hx.LIB=11,.T.,0,0,\nc:\\fwh27\\lib3\\TrSay32x.Lib=12,.T.,0,0,\nc:\\fwh27\\lib3\\sSay32x.lib=13,.T.,0,0,\nC:\\fwh27\\LIB\\FiveHC.Lib=14,.T.,0,0,\nC:\\fwh27\\LIB\\FiveHx.Lib=15,.T.,0,0,\n%C_LIB_INSTALL%\\uuid.lib=16,.T.,0,0,\n%HB_LIB_INSTALL%\\rtl.lib=17,.T.,0,0,\n%HB_LIB_INSTALL%\\vm.lib=18,.T.,0,0,\n%HB_LIB_INSTALL%\\gtwin.lib=19,.T.,0,0,\n%HB_LIB_INSTALL%\\lang.lib=20,.T.,0,0,\n%HB_LIB_INSTALL%\\macro.lib=21,.T.,0,0,\n%HB_LIB_INSTALL%\\common.lib=22,.T.,0,0,\n%HB_LIB_INSTALL%\\pp.lib=23,.T.,0,0,\n%HB_LIB_INSTALL%\\rdd.lib=24,.T.,0,0,\n%HB_LIB_INSTALL%\\hbzip.lib=25,.T.,0,0,\n%HB_LIB_INSTALL%\\dbffpt.lib=26,.T.,0,0,\n%HB_LIB_INSTALL%\\dbfntx.lib=27,.T.,0,0,\n%HB_LIB_INSTALL%\\ace32.lib=28,.T.,0,0,\n%HB_LIB_INSTALL%\\rddads.lib=29,.T.,0,0,\n%HB_LIB_INSTALL%\\dbfcdx.lib=30,.T.,0,0,\n%HB_LIB_INSTALL%\\hbsix.lib=31,.T.,0,0,\n%HB_LIB_INSTALL%\\pcrepos.lib=32,.T.,0,0,\n%HB_LIB_INSTALL%\\hsx.lib=33,.T.,0,0,\n%C_LIB_INSTALL%\\CW32.LIB=34,.T.,0,0,\n%C_LIB_INSTALL%\\IMPORT32.LIB=35,.T.,0,0,\n[Editor]\nc:\\WILSON\\SEMAD\\NEWROL\\NRDOLAR\\Win_Nr_Main.prg=1,N,Y','',0,'','rlpxea2n',1,0,'',179,0,0),(10531,279,6,439,0,'201.221.37.11',1143737750,1,0,1,1,1,0,'','Rafa Carmona TScan32','Por favor envíenme la clase TScan32 a mí tambien y si es posible también un pequeño ejemplo, me sería de gran utilidad.\n\nQuisiera saber si Rafa tiene un sitio donde encontrar sus clases para xHarbour.\n\nGracias desde ya.\n\nUna cosa más si me envían un exe o zip o rar a mi casilla cambienle la extensión a .EEE .ZZZ o .RRR respectivamente ya que de otro modo estos archivos no me los permite recibir el servidor de Gmail.\n\nMI e-mail es <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e --> o también <!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e -->','',0,'','a7e26n9g',1,0,'',439,0,0),(10532,2457,3,160,0,'210.212.142.91',1143738123,1,0,1,1,1,0,'','ActiveX : How can I pass parameter as Address ?','Hello All,\n\nHow can I pass parameter as address ? Putting @ sign in front of variable name do not seem to work.\n\nCan anyone guide me ?\n\nTIA\nMilan.','',0,'','36nhuxa7',1,0,'',160,0,0),(10533,2437,6,97,0,'200.23.84.231',1143738338,1,0,1,1,1,1,'','Gracias Jose Luis','Bueno pues me meti compile la Tmysql y con ella creo las bases de datos que necesito asi como las tablas que requiere cada base de datos.\n\nno sera muy bueno ya que solo utilizo la libreria para eso , mas creo que el tamaño que crece el sistema lo recompensa con lo que me permitio hacer.\n\n\nsaludos y mil gracias.\nfernando sandoval ruiz','',0,'','1y7c6zfw',1,0,'',97,0,0),(10534,2436,6,97,0,'200.23.84.231',1143738794,1,0,1,1,1,1,'','Gracias marco','No he recibido el correo, pero podrias , por si las mosca tengo este otro correo <!-- e --><a href=\"mailto:fernandosando@gmail.com\">fernandosando@gmail.com</a><!-- e -->\n\npodrias enviarmelo de nuevo por favor.\n\nGracias y un saludo.','',0,'','34fndyr1',1,0,'',97,0,0),(10535,2406,6,97,0,'200.23.84.231',1143743467,1,0,1,1,1,1,'','Cual es el link del articulo','Cual es el link del articulo donde publico jcapel.\n\nsi no es muy grabde la bd puedes enviarmela.\n\ngracias.\nfernando sandoval ruiz','',0,'','1us9jsrl',1,0,'',97,0,0),(10536,2457,3,2,0,'87.218.146.174',1143743590,1,0,1,1,1,1,'','','Milan,\n\nWhat type of parameter value do you need to supply by address ?','',0,'','1x0bpnba',1,0,'',2,0,0),(10537,2426,6,2,0,'87.218.146.174',1143743952,1,0,1,1,1,1,'','','Marcelo,\n\nNo será que por alguna causa se está llamando a Alert() de xharbour en modo consola (texto) y no al Alert() de FWH ? Eso colgaría la aplicación.\n\nPrueba a poner un define en tus PRGs, algo así como:\n#define Alert FWAlert\n\ny en tu PRG principal creas una función FWAlert() que llame a Alert() de FWH.','',0,'','3ie607bb',1,0,'',2,0,0),(10538,2444,6,2,0,'87.218.146.174',1143744785,1,0,1,1,1,1,'','','Jose,\n\nEnviada por email,','',0,'','pcs691iq',1,0,'',2,0,0),(10539,2452,6,2,0,'87.218.146.174',1143744966,1,0,1,1,1,1,'','','Joao,\n\nDisculpa que te hablase en ingles, un despiste por mi parte <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nEsa función es delicada, usa los tiempos en los que Windows no hace nada para hacer cosas, es por eso que preferimos no implementarla en 32 bits.','',0,'','2ch8srpx',1,0,'',2,0,0),(10540,2458,2,172,0,'201.135.42.182',1143745991,1,0,1,1,1,1,'','como salir del olbx:lEditCol()','Hola, estoy usando la clase TWBrowse para llenar una factura, estoy utilizando \n\nolbx:LEditCol(i, @mivar, , )\n\npero tambien estoy utilizando teclas para eliminar renglones o para cancelar lo que se ha capturado, y funcionan bien, pero cómo hago para interrumpir ese lEditCol() si la tecla fue oprimida antes de que se terminara el ciclo de captura o como hago para actualizar ese editar columna, si cuando elimino por ejemplo un renglon, el get se queda en el mismo lugar, no se mueve hacia arriba como deberia??\n\nespero me puedan ayudar','',0,'','nwc9heed',1,0,'',172,0,0),(10541,2459,3,6,0,'82.58.168.156',1143746768,1,0,1,1,1,1,'','Themed app with slow refresh','There is a big difference regarding resize refresh speed if the manifest file is linked or not to the following sample. Any workaround?\n\n[code:1mxms1cr]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL oGet, cVar &#58;= REPLICATE&#40; REPLICATE&#40; &quot;This is a test&quot;, 30 &#41; + CRLF, 100 &#41;\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 GET oGet VAR cVar MEMO NOBORDER\n\n    oWnd&#58;oClient&#40; oGet &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1mxms1cr]\n\nEMG','',0,'AIA=','1mxms1cr',1,0,'',6,0,0),(10542,2452,6,362,0,'200.168.52.156',1143751480,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:v4acpkcw]Joao,\n\nDisculpa que te hablase en ingles, un despiste por mi parte <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nEsa función es delicada, usa los tiempos en los que Windows no hace nada para hacer cosas, es por eso que preferimos no implementarla en 32 bits.[/quote:v4acpkcw]\n\nGracias Antonio. Todo Resuelto. Mejor era usar DEFINE TIMER oTimer. Un gran saludo.','',0,'gA==','v4acpkcw',1,0,'',362,0,0),(10543,2356,6,104,0,'201.58.61.125',1143751718,1,0,1,1,1,0,'','','Olá Paco,\n\n\n&gt; en alguna ocasion intente poner en la columna1 un puntero como el del &gt;xbrowse, pero no pude \n\nSe você está se referindo ao registro SELECIONADO, SIM  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  \n\nVeja Abaixo tanto no visual XP/98 (32 bits), quanto no visual antigo também:\n\n[img:35bputdc]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/BRW9&#46;PNG[/img:35bputdc]\n\n&gt;, tu trabajop es excelente!!\nGracias <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n&gt; podrias intentar poner ese puntero? \n\nImplementado  !!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n&gt; digo sino es mucho pedir , sino mil gracias. \n\nComo disse acima, toda sugestão será bem vinda. As mais simples eu lançarei na primeira versão e as outras sugestões lançarei nas próximas versões ok ?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias,\n\nRossine.','',0,'CA==','35bputdc',1,0,'',104,0,0),(10544,2445,6,511,0,'201.248.65.240',1143752842,1,0,1,0,1,0,'','','Gracias Antonio, voy a revisarlo','',0,'CA==','2wjcl7ib',1,0,'',511,0,0),(10545,2443,6,492,0,'201.127.102.230',1143754793,1,0,1,1,1,0,'','','Problema solucionado !!!!\n\nEl causante del lio era la funcion que pinta el degrado, misma que baje hace un buen rato, me imagino que debe tener algun codigo que no es compatible con el FWH actual.\n\n\nMuchas Gracias a todos y a ti Antonio por darle seguimiento a este asunto  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','2kgxk2tr',1,0,'',492,0,0),(10546,2460,6,511,0,'201.248.65.240',1143757449,1,0,1,0,1,0,'','maindllp.obj','Hola a todos:\n\nAlguien me podria indicar donde encuentro este archivo que esta incluido en buildhdp.bat y es para generar dlls.\n\nGracias','',0,'CA==','11yjzeue',1,0,'',511,0,0),(10547,454,5,512,0,'202.6.138.33',1143758955,1,0,1,1,1,0,'','','Hi Antonio,\n\nThankyou for the source for the updated Tsmtp class.\n\nI have compiled it in my program and I get the following two (2) function references which can not be resolved:\n cFileNoPath(...)   ---I assume it has something to do with getting file paths\n FMimeEnc(...)     ---I assume file MIME Encoding is done here\n\nI have the following version:\n      #define FWVERSION     \"FiveWin++ 1.82 - February 2004\"\n      #define FWDESCRIPTION \"FiveWin++ for Xbase++\"\nand use Alaska XBase++ 1.82 International.\n\nI have put in dummy functions for the two above and the sending of Email text works fine.\n\nIs it possible to get the source for the two functions and put them in as Static functions into my source.\n\n\nThankyou  and Best regards,\nAngelo\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','20ollwpg',1,0,'',512,0,0),(10548,2460,6,2,0,'87.218.146.157',1143759234,1,0,1,1,1,1,'','','Alvaro,\n\nAqui lo tienes:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/015ae9e742/maindllp.obj.html\">http://hyperupload.com/download/015ae9e ... p.obj.html</a><!-- m -->','',0,'CA==','kbzew3fc',1,0,'',2,0,0),(10549,2454,6,362,0,'200.168.52.156',1143760066,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:2z4h1vaf]Hola\n\n   Puedes bajarlo directamente en la pagina:  \n\n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\n\nSaludos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n  Marco A. Delgado.[/quote:2z4h1vaf]\n\nGracias Marco.','',0,'gA==','2z4h1vaf',1,0,'',362,0,0),(10550,2460,6,511,0,'201.248.65.240',1143760199,1,0,1,0,1,0,'','','Antonio,\n\nYa lo baje pero me da dos errores: unresolved external _HB_FUN_MSGINFO y _HB_FUN_ERRORSYS. La idea es tener un dll con algunas funciones de impresion personalizadas como lo tengo actualmente con fw/blinker y que este dll utilice funciones del exe. como puedo utilizar funciones externas ya que el linker no crea el exe.\n\nGracias','',0,'gA==','2rtsqzw3',1,0,'',511,0,0);
INSERT INTO `phpbb_posts` VALUES (10551,2406,6,141,0,'200.88.94.212',1143760822,1,0,1,1,1,1,'','','Bueno, a ver si \"mato\" dos de un tiro:\n\nPrimero, dejame comenzar con el último, Fernando:\n\n- Para ver las clases originales sugeridas por jcapel, puedes visitar su blog que esta en [url:1207ic2h]http&#58;//www&#46;capelblog&#46;com[/url:1207ic2h]\n\n- La tabla que me pides puedes descargarla en este enlace [url:1207ic2h]http&#58;//www&#46;ssp&#46;com&#46;do/clientes&#46;dbf[/url:1207ic2h]\n\nAhora para lo que me pide José Luis:\n\nDebo comenzar por colocar a la disposición de todos las clases originales, propuestas por ti, modificadas por mi.  Buscaré crear en mi blog un articulo donde comentaré los cambios que le he realizado.  Por ahora, la puedes descargar de aqui [url:1207ic2h]http&#58;//www&#46;ssp&#46;com&#46;do/adoclass&#46;zip[/url:1207ic2h], el cual contiene las clases ADOCONN, ADORS y el archivo ADO.CH modificado.\n\n[quote:1207ic2h]a. ¿Como creas el recordset? muestrame el código[/quote:1207ic2h]\n\nPrimero la conexion.  Esto lo hago al momento de empezar con nuestro sistema, para conectar con ADO:\n\n\n[code:1207ic2h]\n   oConexionAdo &#58;= tAdoConn&#40;&#41;&#58;New&#40;&#41;\n   lConectado   &#58;= oConexionAdo&#58;Open&#40; MIP &#41;\n\n   CursorWait&#40;&#41;\n   oTables &#58;= oConexionAdo&#58;OpenSchema&#40; adSchemaTables &#41;\n   aFiles  &#58;= &#123;&#125;\n   DO WHILE !oTables&#58;EOF&#40;&#41;\n      AADD&#40; aFiles, oTables&#58;Fields&#40;2&#41;&#58;value &#41;\n      oTables&#58;MoveNext&#40;&#41;\n   ENDDO\n   oTables&#58;Close&#40;&#41;\n   CursorArrow&#40;&#41;\n\n   if len&#40;aFiles&#41; == 0\n      MsgAlert&#40;&quot;No existen tablas sobre esta Base de datos, retornando&#46;&#46;&#46;&quot;, &quot;Busqueda de Tablas con ADO&quot;&#41;\n      oConexionAdo&#58;Close&#40;&#41;\n      QUIT\n   endif\n[/code:1207ic2h]\n\noCOnexionAdo es una variable (objeto) pública, MIP es la cadena de conexion, que para mi caso es:\n\n[code:1207ic2h]\nMIP &#58;= &quot;DRIVER=&#123;MySQL&#125;; SERVER=localhost; DATABASE=richardcar; UID=jllinas; PWD=XXXXXXXX; OPTION=16387&quot;      \n[/code:1207ic2h]\n\nLuego, para crear el recordset, utilizo este código:\n\n[code:1207ic2h]\n   oDbf &#58;= tAdoRs&#40;&#41;&#58;New&#40;&#41;\n\n   oDbf&#58;oRs&#58;CursorLocation &#58;= adUseClient\n   oDbf&#58;oRs&#58;CursorType     &#58;= adOpenForwardOnly\n   oDbf&#58;oRs&#58;LockType       &#58;= adLockOptimistic\n\n   lReturn &#58;= oDbf&#58;Open&#40; cQuery, oConexionAdo&#58;oConnection, adOpenKeyset, adLockOptimistic, adCmdUnknown, cAlias,, cOrder &#41;\n[/code:1207ic2h]\n\n[quote:1207ic2h]b. ¿Como haces para modificar un registro? Muéstrame el código[/quote:1207ic2h]\n\nComo puedes ver, para modificar un registro, siempre lo cargo a una variable tipo DATA de la clase ADORS que se llama ::buffer, y que es un arreglo simple y sencillo del registro donde está el puntero en el recordset.  Este arreglo se accesa haciendo mencion a\n\n\"nombre del recordset\":\"nombre de la columna\"\n\nPor ejemplo, para la tabla que me da problemas, llamo \"oClientes\" al recorset, y para cambiar el valor en la columna llamada \"nombre\", simplemente hago\n\n[code:1207ic2h]oClientes&#58;Nombre &#58;= &quot;JUAN PEREZ&quot;[/code:1207ic2h]\n\nPero todo esto se hace en el buffer.  Si vez el método ON ERROR al final de la clase ADORS, podrás ver que allí se realiza este milagro (no es un truco de mi autoría... lo segui simplemente después de ver a muchos hacerlo así).\n\nLuego de esto, solo me queda grabar el registro...\n\nPara \"cargar\" el registro desde el recordset tengo la siguiente función:\n\n[code:1207ic2h]\nFUNCTION DBGET&#40; oDbf, lAgrega &#41;\nLOCAL nRecno &#58;= 1\nIF lAgrega\n      oDbf&#58;Blank&#40;&#41;\nELSE\n   oDbf&#58;Load&#40;&#41;\nENDIF\nRETURN NIL\n[/code:1207ic2h]\n\ndonde oDbf es la variable objeto del recorset (para mi ejemplo, oClientes).\n\n[quote:1207ic2h]c. ¿Como haces para grabar el registro? Muéstrame el código.[/quote:1207ic2h]\n\nLuego, para grabarlo, tengo otra función, parecida a la anterior, pero que \"coloca\" el registro en el recordset:\n\n[code:1207ic2h]\nFUNCTION DBPUT&#40; oDbf, lAgrega &#41;\nIF lAgrega\n   oDbf&#58;Append&#40;&#41;\n   oDbf&#58;Save&#40;&#41;\nELSE\n   oDbf&#58;Save&#40;&#41;\nENDIF\n\nRETURN NIL\n[/code:1207ic2h]\n\nCreo que esto es todo.  La tabla que me dá problemas la puedes descargar (en formato DBF) desde un enlace que incluí al principio de este mensaje.\n\nOjala y puedas ver algo que no este yo viendo ahora !!!\n\nGracias anticipadas,','',0,'kIA=','1207ic2h',1,0,'',141,0,0),(10552,808,1,138,0,'201.137.136.60',1143762507,1,0,1,1,1,1,'','','He he he,..... get the rid off all that stuff, things are A LOT easier....\n\nTWAIN interface will always scan saving the scaned file as BMP, however, what the most of us do under fivewin, is to use a little free tool called NCONVERT.EXE, this is dos-prompt based program that converts any graphic format to any other graphic format, to use it is a simple as:\n\nwinexec (\"nconvert file.bmp file.jpg\") \n\nand thats all, first parameter is the source image file, second is the target image file, extensions identify the graphic format.\n\npress here to get NCONVERT.ZIP\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/objeto/nconvert.zip\">http://www.google.d2g.com/objeto/nconvert.zip</a><!-- m -->','',0,'kIA=','1ks9x0go',1,0,'',138,0,0),(10553,2444,6,43,0,'201.127.19.39',1143765057,1,0,1,1,1,0,'','','Antonio\n\n   me la podria enviar tambien a mi por favor.\n\n\n\nSaludos\n\n  Marco A. Delgado.','',0,'kIA=','36g52tmq',1,0,'',43,0,0),(10554,2436,6,43,0,'201.127.19.39',1143765261,1,0,1,1,1,0,'','','Enviada nuevamente\n\n\nSaludos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nMarco A. Delgado','',0,'kIA=','34m1q5jq',1,0,'',43,0,0),(10555,2356,6,73,0,'201.132.240.43',1143778389,1,0,1,1,1,0,'','','<!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->  1000 1000 1000 gracias a nombre de todos, aunque me adelante.\nesto es como un pan para el hambriento, por cierto HDC esta trabajando sobre la ver. 18, seria bueno como sugerencia que vieras con HDC las modificaciones que le hiciste a la ver 17 para que hubiera un standard,\nFELICIDADES !!\npaco','',0,'kIA=','lmsbtjml',1,0,'',73,0,0),(10556,2457,3,160,0,'210.212.142.91',1143778729,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:16lnyize]Milan,\n\nWhat type of parameter value do you need to supply by address ?[/quote:16lnyize]\n\nI need to pass character string.\n\nMilan.','',0,'gA==','16lnyize',1,0,'',160,0,0),(10557,2461,6,61,0,'201.217.171.11',1143779594,1,0,1,1,1,0,'','Antonio...butonbmp de Rosine?','Maestro:\nSería posible me envio los archivos a mi tambien\n\nSe los pedí en el otro post, pero como hubieron\nmuchos pedidos seguro se le paso el mio.\n\nMuchas gracias y disculpe.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','2q3jxdxb',1,0,'',61,0,0),(10558,2449,6,413,0,'194.106.16.43',1143784317,1,0,1,1,1,0,'','','Tienes razon Antonio lo habia eliminado pues no lo tenia en una version anterior del harbour. En cuanto al warning a que se debe alguien lo sabe? o donde encuentro la listas de estos warning, antes los buscaba en el fichero de errores de clipper pero esto no lo encuentro.','',0,'gA==','2l77h4bk',1,0,'',413,0,0),(10559,2462,6,413,0,'194.106.16.43',1143784814,1,0,1,1,1,0,'','Es posible compilar con UEStudio con distintas FWH','Lo dicho antonio es posible tener configurado varias versiones de FWH y poder elegir con la que quieres compilar? Como hay que hacerlo? para que UEStudio te genere el EXE en la version que quieres. Hace tiempo te deje el mensaje de como poder hacer la compilacion con FWH pocket pc, tienes los fiecheros que configuran el UEStudio.','',0,'gA==','gu4jhdro',1,0,'',413,0,0),(10560,2449,6,413,0,'194.106.16.43',1143784898,1,0,1,1,1,0,'','','Conseguido ya me compila y genera el exe sin problemas. Lo unico es que sigue saliendo el warning.\n\nGracias.','',0,'gA==','1x4uwkj7',1,0,'',413,0,0),(10561,2463,6,131,0,'194.179.55.36',1143785061,1,0,1,1,1,0,'','Puedo poner un panel despues de activar una ventana','Hola:\nQuiero poner un panel en una ventana después de hacer un activate. ¿ Es posible o tengo que ponerlo antes de hacer el activate ?\n\nSaludos,','',0,'gA==','3itqu7rd',1,0,'',131,0,0),(10562,2398,1,2,0,'87.218.146.157',1143789410,1,0,1,1,1,1,'','','Manuel,\n\nIn the most recent FW version we have changed to use FreeImage.dll instead of nview.dll, to display images, as it has more features and it is more robust.','',0,'gA==','2ibbgukt',1,0,'',2,0,0),(10563,2457,3,2,0,'87.218.146.157',1143789518,1,0,1,1,1,1,'','','Milan,\n\nThere is no need to use @ as strings are passed by address (reference) always.','',0,'gA==','6llbnjza',1,0,'',2,0,0),(10564,2449,6,2,0,'87.218.146.157',1143789695,1,0,1,1,1,1,'','','Andrés,\n\nEs un warning de un fichero de cabecera que puedes ignorar. Estás usando la versión de marzo que nosotros proporcionamos ?','',0,'gA==','1cwwjbvv',1,0,'',2,0,0),(10565,2463,6,2,0,'87.218.146.157',1143789744,1,0,1,1,1,1,'','','Jose Luis,\n\nPuedes ponerlo, creándolo desde la claúsula ON INIT de la ventana.','',0,'gA==','v9nqzw7g',1,0,'',2,0,0),(10566,2464,6,102,0,'83.33.132.11',1143790092,1,0,1,1,1,1,'','Dialogos de mensajes','Hola foro.\nAlguien tiene una funcion tipo ALERT, MSGINFOO etc. en la cual se pueda darle coordenadas para que salga donde uno quiera.\n\nDe antemano\n\nGracias','',0,'gA==','2malzntl',1,0,'',102,0,0),(10567,2462,6,2,0,'87.218.146.157',1143790186,1,0,1,1,1,1,'','','Andrés,\n\nSí sólo se trata de un PRG nosotros lo hacemos así:\n[url=http&#58;//imageshack&#46;us:2hzx2erl][img:2hzx2erl]http&#58;//img97&#46;imageshack&#46;us/img97/7394/comp1ax&#46;png[/img:2hzx2erl][/url:2hzx2erl]\npara un proyecto con múltiples ficheros, tendrias que tener definidos varios tipos de compilador \"Harbour\", como Harbour1, Harbour2, etc.\n[url=http&#58;//imageshack&#46;us:2hzx2erl][img:2hzx2erl]http&#58;//img210&#46;imageshack&#46;us/img210/3839/project9ll&#46;png[/img:2hzx2erl][/url:2hzx2erl]','',0,'GA==','2hzx2erl',1,0,'',2,0,0),(10568,2464,6,2,0,'87.218.146.157',1143790321,1,0,1,1,1,1,'','','José,\n\nEl código fuente de Alert() está disponible en source\\function\\alert.prg \n\nSólo tienes que modificarlo para pasarle uns parámetros, ó directamente modificarlo para ponerlo en las coordenadas que quieras. Luego lo compilas y lo enlazas a tu aplicación como un OBJ más.','',0,'GA==','56pzmufd',1,0,'',2,0,0),(10569,2461,6,2,0,'87.218.146.157',1143790363,1,0,1,1,1,1,'','','Rubén,\n\nVamos a publicarlos en el nuevo build de Abril dentro de pocos días.','',0,'GA==','2hdg2zwn',1,0,'',2,0,0),(10570,2444,6,2,0,'87.218.146.157',1143790457,1,0,1,1,1,1,'','','Marco,\n\nVamos a publicarla dentro de pocos días en el build de Abril.','',0,'GA==','1rqec1wu',1,0,'',2,0,0),(10571,2460,6,2,0,'87.218.146.157',1143790535,1,0,1,1,1,1,'','','Alvaro,\n\nDecláralas como funciones \"dummy\":\n\nfunction MsgInfo() ; return nil\n\nfunction ErrorSys() ; return nil','',0,'GA==','3kjs2u9n',1,0,'',2,0,0),(10572,454,5,2,0,'87.218.146.157',1143790713,1,0,1,1,1,1,'','','Angelo,\n\ncFileNoPath() source code is located at source\\function\\filename.prg\n\nFMimeEnc() source code is located at source\\function\\mimeclip.prg','',0,'GA==','2yi2fufu',1,0,'',2,0,0),(10573,2465,6,490,0,'80.24.224.89',1143791445,1,0,1,1,1,0,'','Rebar y Toolbars XP','Antonio,\n\nNecesitaría como en las barras de botones, dejar pulsado un botón, me parece recordar que dijiste que todavía no está implementado, pero me hace bastante falta.\n\n¿Alguien me podría dar alguna pista de que mensaje o función del api debería buscar para conseguirlo?\n\nMi idea es provisionalmente, añadir un método que lo haga.\n\nUn Saludo,\nJoaquín','',0,'GA==','ekbpzlom',1,0,'',490,0,0),(10574,2465,6,490,0,'80.24.224.89',1143791531,1,0,1,1,1,0,'','','Perdón,\n\nEn la frase \"como en la barra de botones\", me refería a la antigua, a la que siempre ha llevado implementada fw.\n\nUn saludo,\nJoaquín','',0,'GA==','u0p4opmm',1,0,'',490,0,0),(10575,2449,6,413,0,'194.106.16.43',1143792162,1,0,1,1,1,0,'','','La de febrero....','',0,'GA==','1x7hp5vb',1,0,'',413,0,0),(10576,2462,6,413,0,'194.106.16.43',1143792804,1,0,1,1,1,0,'','','Antonio no entiendo muy bien el tema de los martillitos con 1,2,3,4, de donde sale?. Que diferencia hay entre FWH dialog y FWH Window. Lo que pretencia hacer es que cuando utilizo \"Crear proyecto usando plantillas\", poder utilizar todo lo que tengo de FWH: A modo de ejemplo tengo las diferentes versiones de FW separadas de este modo (FWH20, FWH21, FWH23... FWH27)  e igualmente tengo (HARBOUR25... HARBOUR27) o (XHB09950..XHB09960).\nOsea que cuando cree el proyecto poder utilizar la version que quiero... \n\nGracias.','',0,'GA==','17ecx048',1,0,'',413,0,0),(10577,2462,6,2,0,'87.218.146.157',1143793089,1,0,1,1,1,1,'','','Los martillos: En el menú - Advanced - Tool Configuration. Una vez los crees ahí, puedes pasarlos a la barra de botones. Es práctico para compilar un mismo PRG con distintos compiladores, versiones, etc. \n[url=http&#58;//imageshack&#46;us:2qyttdd3][img:2qyttdd3]http&#58;//img92&#46;imageshack&#46;us/img92/2042/tools9un&#46;png[/img:2qyttdd3][/url:2qyttdd3]','',0,'GA==','2qyttdd3',1,0,'',2,0,0),(10578,2465,6,2,0,'87.218.146.157',1143794222,1,0,1,1,1,1,'','','Joaquín,\n\nAñade este método a la clase TToolBar:\n\n#define TB_SETSTATE           1041\n#define TBSTATE_PRESSED        2 \n#define TBSTATE_ENABLED        4\n\nMETHOD SetPressed( nButton, lOnOff ) INLINE ;\n::SendMsg( TB_SETSTATE, nButton, If( lOnOff, TBSTATE_PRESSED, TBSTATE_ENABLED ) )','',0,'GA==','270fsris',1,0,'',2,0,0),(10579,2442,1,139,0,'87.203.119.161',1143795038,1,0,1,1,1,0,'','','REDEFINE GET oGetXls VAR cGetXls ID 102 OF oDlg ;\n           FONT oFont\n   REDEFINE  BTNBMP ID 106 FILENAME lCUR + \"\\openXls.bmp\"  OF oDlg ;\n      ACTION ( cGetXls := cGetDir32(\"Select folder\") ,  oGetXls:Refresh() )\n\n[code:1i04nb26]\n//-------------------------------------------\n//  DLGS32&#46;PRG\n//-------------------------------------------\n// 32 bits common dialogs from 16 bits apps\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define INIFILE GetWinDir&#40;&#41;+&quot;\\rundlg32&#46;ini&quot;\n\nstatic nFilterIndex &#58;= 0\n\n//----------------------------------------------------------------------------//\n\nFunction cGetFile32&#40;cFileMask, cTitle, nDefaultMask, cInitDir, lSave, nFlags&#41;\n\n   local cSection, cFile\n   local nRet\n\n   DEFAULT lSave &#58;= &#46;f&#46;\n\n   // On cGetFile&#40;&#41; that parameter is a boolean for long filenames\n\n   if nFlags != Nil &#46;and&#46; Valtype&#40;nFlags&#41; != &quot;N&quot;\n      nFlags &#58;= Nil\n   endif\n\n   if !lSave\n      cSection &#58;= &quot;GetOpenFileName&quot;\n   else\n      cSection &#58;= &quot;GetSaveFileName&quot;\n   endif\n\n   if File&#40;INIFILE&#41;\n      Ferase&#40;INIFILE&#41;\n   endif\n\n   if cFileMask != Nil\n      if &quot;|&quot;$cFileMask\n         cFileMask &#58;= StrTran&#40;cFileMask, &quot; |&quot;, &quot;|&quot;&#41;\n         cFileMask &#58;= StrTran&#40;cFileMask, &quot;| &quot;, &quot;|&quot;&#41;\n         WritePProString&#40; cSection, &quot;lpstrFilter&quot;, cFileMask, INIFILE &#41;\n      else\n         WritePProString&#40; cSection, &quot;lpstrFile&quot;, cFileMask, INIFILE &#41;\n      endif\n   endif\n\n   if cTitle != Nil\n      WritePProString&#40; cSection, &quot;lpstrTitle&quot;, cTitle, INIFILE &#41;\n   endif\n\n   if nDefaultMask != Nil\n      WritePProString&#40; cSection, &quot;nFilterIndex&quot;, ltrim&#40;Str&#40;nDefaultMask&#41;&#41;, INIFILE &#41;\n   endif\n\n   if cInitDir != Nil\n      WritePProString&#40; cSection, &quot;lpstrInitialDir&quot;, cInitDir, INIFILE &#41;\n   endif\n\n   if nFlags != Nil\n      WritePProString&#40; cSection, &quot;Flags&quot;, ltrim&#40;Str&#40;nFlags&#41;&#41;, INIFILE &#41;\n   endif\n\n   WritePProString&#40; cSection, &quot;hwndOwner&quot;, lTrim&#40;Str&#40; GetActiveWindow&#40;&#41;&#41; &#41;,;\n                    INIFILE &#41;\n   if IsWin2000&#40;&#41;\n     nRet &#58;= WinExec&#40; &quot;rundlg32 &quot;+iif&#40; lSave, &quot;2&quot;, &quot;1&quot;&#41; &#41;\n   else\n     nRet &#58;= 0\n   endif\n   if nRet &gt; 21 &#46;or&#46; nRet &lt; 0\n      StopUntil&#40; &#123;|| GetPvProfString&#40; cSection, &quot;working&quot;, &quot;0&quot;, INIFILE &#41; != &quot;1&quot;&#125; &#41;\n      /*while GetPvProfString&#40; cSection, &quot;working&quot;, &quot;0&quot;, INIFILE &#41; == &quot;1&quot;\n         SysRefresh&#40;&#41;\n      end*/\n\n      cFile        &#58;= GetPvProfString&#40; cSection, &quot;lpstrFile&quot;, &quot;&quot;, INIFILE &#41;\n      nFilterIndex &#58;= Val&#40;GetPvProfString&#40; cSection, &quot;nFilterIndex&quot;, &quot;&quot;, INIFILE &#41;&#41;\n   else\n       cFile &#58;= cGetFile&#40;cFileMask, cTitle, nDefaultMask, cInitDir, lSave,, nFlags&#41;\n   endif\n\n   Ferase&#40;INIFILE&#41;\n\nreturn cFile\n\n//----------------------------------------------------------------------------//\n\nFunction nGetFilter32&#40;&#41;\n\nReturn nFilterIndex\n\n//----------------------------------------------------------------------------//\n\nFunction cGetDir32&#40;cTitle&#41;\n\n   local cDir\n   local nRet\n\n   if File&#40;INIFILE&#41;\n      Ferase&#40;INIFILE&#41;\n   endif\n\n   if cTitle != Nil\n      WritePProString&#40; &quot;GetDirectory&quot;, &quot;lpstrTitle&quot;, cTitle, INIFILE &#41;\n   endif\n\n   WritePProString&#40; &quot;GetDirectory&quot;, &quot;hwndOwner&quot;, lTrim&#40;Str&#40; GetActiveWindow&#40;&#41;&#41; &#41;,;\n                    INIFILE &#41;\n\n   nRet &#58;= WinExec&#40; &quot;rundlg32 3&quot; &#41;\n\n   if nRet &gt; 21 &#46;or&#46; nRet &lt; 0\n      StopUntil&#40; &#123;|| GetPvProfString&#40; &quot;GetDirectory&quot;, &quot;working&quot;, &quot;0&quot;, INIFILE &#41; != &quot;1&quot;&#125; &#41;\n      /*while GetPvProfString&#40; &quot;GetDirectory&quot;, &quot;working&quot;, &quot;0&quot;, INIFILE &#41; == &quot;1&quot;\n         SysRefresh&#40;&#41;\n      end*/\n      cDir &#58;= GetPvProfString&#40; &quot;GetDirectory&quot;, &quot;lpstrDirectory&quot;, &quot;&quot;, INIFILE &#41;\n   else\n      cDir &#58;= cGetDir&#40;cTitle&#41;\n   endif\n\n   Ferase&#40;INIFILE&#41;\n\nreturn cDir\n\n//----------------------------------------------------------------------------//\n\nFUNCTION IsWin2000&#40;&#41; ; RETURN IsWinNT&#40;&#41; &#46;and&#46; GetWinVer&#40;&#41;&#91;2&#93; == 95\n\n\n&#91;quote&#93;&#91;/quote&#93;[/code:1i04nb26]','',0,'AIA=','1i04nb26',1,0,'',139,0,0),(10580,2458,2,2,0,'87.218.146.157',1143796655,1,0,1,1,1,1,'','','Maritza,\n\nEl cuarto parámetro es un codeblock con la validación:\n\n METHOD lEditCol( nCol, uVar, cPicture, bValid, ...\n\ny desde el bValid puedes controlar si le permites salir, etc.','',0,'AIA=','1d84a8mm',1,0,'',2,0,0),(10581,2466,6,63,0,'80.37.102.128',1143799294,1,0,1,1,1,0,'','Cómo recortar una imagen BMP','Alguien tiene alguna función que permita recortar una porción de imagen BMP a partir de su fichero?  Algo así:   Crop(cBmpFile, aRect).   \nNConvert.exe permite hacerlo, pero quisiera incorporarla directamente en el programa, sin necesidad de llamar a un ejecutable externo.\nGracias\nRafael','',0,'AIA=','1z9ik5sk',1,0,'',63,0,0),(10582,2462,6,413,0,'194.106.16.43',1143799923,1,0,1,1,1,0,'','','Gracias por tu ayuda, voy a intentar hacerlo. De momento no lo encuentro puesto que tengo la version castellana. Tengo dos opciones parecidas pero no se parece al dialogo que presentas. Configuarcion de heramientas y configuracion de herramientas de proyecto.\nTienes inconveniente de mandarme a mi privado el FWPPC de configuacion con el UEStudio. He intentado hacerlo modificando pero no lo consigo. \nPor cierto no seria mala idea lo que propusistes hace tiempo de componer un video para la configuracion de UEStudio.','',0,'AIA=','2fhcaxb5',1,0,'',413,0,0),(10583,2467,3,63,0,'80.37.102.128',1143800091,1,0,1,1,1,0,'','Croping a BMP image','Anybody has a function to perform croping of a rectangular section in a BMP file?  Something like this:  Crop(cBmpFile, aRect) with aRect being the coordinates in pixels.\n\nI know that it can be done using NConvert.exe, but I would like to include the function in my program, without havint to resort to an external executable\n\nThanks,\n\nRafael','',0,'AIA=','24y4ysjp',1,0,'',63,0,0),(10584,2465,6,490,0,'80.24.224.89',1143801139,1,0,1,1,1,0,'','','Antonio,\n\nGracias por darme una idea, pero ese método no hace lo deseado, aparte de que deja el botón deshabilitado.\n\nA partir de esa idea, he creado 2 métodos que Sí hacen exactamente lo que buscaba y lo que hacía la antigua toolbar.\n\nEspero que te guste la implementación.\n\n#define TB_CHECKBUTTON             (WM_USER + 2)\n#define TBSTATE_CHECKED           0x01\n#define TB_SETSTATE                    1041\n#define TBSTATE_ENABLED             4\n#define TB_ISBUTTONCHECKED      (WM_USER + 10)\n\n\nMETHOD SetChecked( nButton, lOnOff ) INLINE ;\n       If( lOnOff, ::SendMsg( TB_CHECKBUTTON, nButton,  TBSTATE_CHECKED ),;\n                   ::SendMsg( TB_SETSTATE, nButton, TBSTATE_ENABLED ) )\n\n   METHOD IsChecked( nButton ) INLINE ;\n          if(::SendMsg( TB_ISBUTTONCHECKED, nButton, 0 )==0, .F., .T. )\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','2dq6ad9k',1,0,'',490,0,0),(10585,2465,6,490,0,'80.24.224.89',1143801904,1,0,1,1,1,0,'','','Antonio,\n\nSi te ha parecido bien y vas a añadirlo a la clase, mira si sería posible este método también, lo veo bastante útil:\n\n\n//----- Pone el estado de un botón de la manera inversa a la que está \n\n METHOD lChekOnOff( nButton ) INLINE if( ::IsChecked( nButton ), ;\n                                        (  ::SetChecked( nButton, .F. ),.F.),;\n                                        (  ::SetChecked( nButton, .T. ),.T.) ) \n\n\nUn Saludo,\nJoaquín','',0,'AIA=','14xn6758',1,0,'',490,0,0),(10586,2465,6,2,0,'87.218.146.207',1143805983,1,0,1,1,1,1,'','','Joaquín,\n\nGracias,\n\nEste se puede simplificar así:\n\nMETHOD IsChecked( nButton ) INLINE ::SendMsg( TB_ISBUTTONCHECKED, nButton ) != 0','',0,'AIA=','3p0zf4hn',1,0,'',2,0,0),(10587,2465,6,2,0,'87.218.146.207',1143806147,1,0,1,1,1,1,'','','Joaquín,\n\nY lChekOnOff() queda mejor así:\n\nMETHOD ToggleCheck( nButton ) INLINE ::SetCheck( nButton, ! ::IsChecked( nButton ) )','',0,'AIA=','fklfxp18',1,0,'',2,0,0),(10588,2462,6,2,0,'87.218.146.207',1143806470,1,0,1,1,1,1,'','','Andrés,\n\n&gt;\nTienes inconveniente de mandarme a mi privado el FWPPC de configuacion con el UEStudio.\n&gt;\n\nLa opción del martillo llama directamente a buildce.bat para sólo un PRG.\n\n&gt;\nPor cierto no seria mala idea lo que propusistes hace tiempo de componer un video para la configuracion de UEStudio.\n&gt;\n\nQue utilidad podríamos usar para hacer el video ?','',0,'AIA=','jnek21gj',1,0,'',2,0,0),(10589,2465,6,490,0,'80.24.224.89',1143807533,1,0,1,1,1,0,'','','Antonio,\n\nen el método\n\nMETHOD ToggleCheck( nButton ) INLINE ::SetCheck( nButton, ! ::IsChecked( nButton ) )\n\n\n::SetCheck( nButton, ! ::IsChecked( nButton ) ) ¿que devuelve? porque se necesita que devuelva el estado en que queda el botón.\n\nQue traducción tiene la palabra Toggle ¿Cambio de estado?\n\nUn Saludo,\nJoaquín','',0,'AIA=','3tik1659',1,0,'',490,0,0),(10590,2467,3,2,0,'87.218.146.207',1143807944,1,0,1,1,1,1,'','','Rafael,\n\nIts not difficult to do it. Basically it may do:\n\n[code:i0petqb9]\nfunction Crop&#40; cBmpFile, nTop, nLeft, nWidth, nHeight &#41;\n\n   local hDC1   &#58;= GetDC&#40; 0 &#41;\n   local hBmp1 &#58;= ReadBitmap&#40; hDC, cBmpFile &#41;\n   local hDC2   &#58;= CreateCompatibleDC&#40; hDC1 &#41;\n   local hBmp2 &#58;= CreateCompatibleBitmap&#40; hDC2, nWidth, nHeight &#41;\n   local hBmpOld1 &#58;= SelectObject&#40; hDC1, hBmp1 &#41;\n   local hBmpOld2 &#58;= SelectObject&#40; hDC2, hBmp2 &#41;\n\n   BitBlt&#40; hDC2, 0, 0, nWidth, nHeight, hDC1, nLeft, nTop, SRCCOPY &#41;\n\n   &#46;&#46;&#46;\n\nAt that point, hBmp2 is a bitmap with the portion of the image that you want&#46; You may save it to disk or use it for painting&#46;     \n   \n   &#46;&#46;&#46;\n\n   SelectObject&#40; hDC1, hBmpOld1 &#41;\n   SelectObject&#40; hDC2, hBmpOld2 &#41;\n   ReleaseDC&#40; 0, hDC1 &#41;\n   DeleteDC&#40; hDC2 &#41;\n\nreturn nil   \n[/code:i0petqb9]','',0,'AIA=','i0petqb9',1,0,'',2,0,0),(10591,2444,6,104,0,'201.58.66.214',1143808121,1,0,1,1,1,0,'','','Olá Antonio,\n\nGrande notícia  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Toda comunidade será beneficiada com isto. Você pretende implementar as mudanças que eu fiz sobre a classe TFolder também ? \n\nEu realmente prefiro as próprias classe do fivewin do que as classes de terceiro, pois assim temos certeza da continuidade e evolução das mesmas.\n\nSaludos,\n\nRossine.','',0,'AIA=','ogwua1av',1,0,'',104,0,0),(10592,2444,6,2,0,'87.218.146.207',1143808285,1,0,1,1,1,1,'','','Rossine,\n\nSi, también publicaremos los cambios de TFolder. En la clase TButtonBmp hemos cambiado algunas cosas.\n\nGracias!','',0,'AIA=','1pteiotp',1,0,'',2,0,0),(10593,2465,6,2,0,'87.218.146.207',1143808396,1,0,1,1,1,1,'','','Joaquín,\n\nSí, Toggle significa conmutar, cambiar.\n\nPara que necesitas que devuelva el valor ? Lo puedes obtener con IsChecked()','',0,'AIA=','3pybi4tj',1,0,'',2,0,0),(10594,2465,6,490,0,'80.24.224.89',1143808666,1,0,1,1,1,0,'','','Antonio,\n\nes muy importante, si tengo una data que me indica un estado por ejemplo en mi caso ::lBold y la oToolbar es una variable local, que no uso en ninguna otra parte, en el action del botón pongo\n\n  ::lBold := oToolbar:ToggleCheck( 1 ) // Por ejemplo\n\n\nPor eso, te lo pasé de esa manera el INLINE, y así es como le veo más utilidad y no veo que repercuta en ninguna otra cosa.\n\nUn Saludo,\nJoaquín','',0,'AIA=','ysd65hl4',1,0,'',490,0,0),(10595,2465,6,2,0,'87.218.146.207',1143809103,1,0,1,1,1,1,'','','Joaquín,\n\nEs lo mismo que hacer:\n\noToolbar:ToggleCheck( 1 )\n::lBold := oToolbar:IsChecked( 1 )','',0,'AIA=','38bfj1gb',1,0,'',2,0,0),(10596,2465,6,490,0,'80.24.224.89',1143809224,1,0,1,1,1,0,'','','Antonio,\n\nAntes me hablabas de simplificar, y ahora quieres que use 2 métodos??\n\nYa sé que como dices funciona, pero trataba que fuera más legible el action de un botón por ejemplo.\n\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','33678lvl',1,0,'',490,0,0),(10597,2465,6,490,0,'80.24.224.89',1143809265,1,0,1,1,1,0,'','','Aparte,\n\n¿Cual es el inconveniente que le ves a que devuelva el estado en que queda?\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','33rwod0z',1,0,'',490,0,0),(10598,2460,6,511,0,'201.248.65.240',1143809342,1,0,1,0,1,0,'','','Antonio,\n\nLas declaro como tu dices pero entonces no puedo usar las funciones del EXE. En fw/blinker puedo invocar las funciones, pasar parametros del EXE al DLL y utilizar las variables publicas del EXE, como podria hacer en FWH ?\n\nGracias','',0,'AIA=','3rrk7vn5',1,0,'',511,0,0),(10599,2465,6,2,0,'87.218.146.207',1143809357,1,0,1,1,1,1,'','','Joaquín,\n\nNo hay ningún inconveniente, sencillamente son acciones distintas. Pero si te empeñas, lo dejamos como quieras <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1n1aayvg',1,0,'',2,0,0),(10600,2465,6,490,0,'80.24.224.89',1143809622,1,0,1,1,1,0,'','','Antonio gracias,\n\npero yo valoro mucho tu opinión en estos campos, por eso me gusta que no le veas nada negativo.\n\nPorque si al final va a ser más negativo que positivo el cambio, tampoco es cuestión de  encabezonarse <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSí lo ves bien, prefiero que devuelva el estado.\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','3i7d3snl',1,0,'',490,0,0),(10601,2465,6,2,0,'87.218.146.207',1143809749,1,0,1,1,1,1,'','','Joaquín,\n\nDejémoslo así:\n\nMETHOD ToggleCheck( nButton ) INLINE ;\n::SetCheck( nButton, ! ::IsChecked( nButton ) ), ::IsChecked( nButton )','',0,'AIA=','tt3iqgw9',1,0,'',2,0,0),(10602,2468,6,52,0,'200.127.195.89',1143809899,1,0,1,1,1,1,'','Que tipo de dato devuelve HB_NUMTOHEX( )','Estimados,\n\nQue tipo de dato ( valtype() ) devuelve HB_NUMTOHEX( 33 ) devuelve un string, intenger, doble?\n\nGracias.','',0,'AIA=','38yt2ext',1,0,'',52,0,0),(10603,2467,3,63,0,'80.37.102.128',1143809929,1,0,1,1,1,0,'','','Thanks a lot, Antonio. Looks quite easy...\nRafael','',0,'AIA=','1coccp1f',1,0,'',63,0,0),(10604,2468,6,2,0,'87.218.146.207',1143810091,1,0,1,1,1,1,'','','string','',0,'AIA=','2fhzswmi',1,0,'',2,0,0),(10605,2469,6,63,0,'80.37.102.128',1143810284,1,0,1,1,1,0,'','Dividir una clase en dos Prgs','Es posible incluir algunos métodos de una clase en otro prg?.  Estoy tratando de simplificar un poco cuando un prg se hace demasiado largo. Por ejemplo:\n\n[code:3uryitoy]\nProg1&#46;prg --------------\nCLASS MiClase\n   METHOD Uno\n   METHOD Dos\n   METHOD Tres\nENDCLASS\n\nMETHOD Uno&#40;&#41; CLASS MiClase\nRETURN\n\nMETHOD Dos&#40;&#41; CLASS MiClase\nRETURN\n\n\n\nProg2&#46;prg -------------\nMETHOD Tres&#40;&#41; CLASS MiClase\nRETURN\n[/code:3uryitoy]\n\nLo he intentado pero al compilar el Prog2 me da un error de \"MiClase no definida\".  ¿Alguien me puede decir si es posible hacerlo y cómo?\nGracias,\nRafael','',0,'AIA=','3uryitoy',1,0,'',63,0,0),(10606,2466,6,63,0,'80.37.102.128',1143810348,1,0,1,1,1,0,'','','Contestado por Antonio en el forum en inglés.  Gracias, Antonio\nRafael','',0,'AIA=','2vhewsgz',1,0,'',63,0,0),(10607,2470,6,105,0,'200.72.140.34',1143810959,1,0,1,1,1,1,'','ZOOM de Window.. Como?','Hola a todos...\n\nTengo una ventana diseñada bajo 800*600 pero deseo que al cambiar de resolucion a 1024 * 768 los componentes se escalen para llenar de nuevo la ventana,  algo que me permita aumentar el tamaño de la Font, los gets, say etc.. y que no se generen espacios vacios a la derecha y abajo.\n\nEn estos momentos la tengo diseñada dentro de un RC, pero si hay que hacerla por codigo no tengo problema.\n\nAlgo como una factor,  de preferencia que solo se pueda aplicar en una sola instancia de la generacion de la ventana.\n\nCualquier sugerencia sera muy bienvenida...\n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  Espero no pedir mucho.. ji ji','',0,'AIA=','1m6tzwtr',1,0,'',105,0,0),(10608,2461,6,61,0,'201.217.168.178',1143811333,1,0,1,1,1,0,'','','Gracias Maestro\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','2lnrugy6',1,0,'',61,0,0),(10609,2468,6,52,0,'200.127.195.89',1143811790,1,0,1,1,1,1,'','','Perfecto y gracias,\n\nAhora, si yo mando asi Comando( hb_numtohex( 101 ) ), me decis que la funcion comando recibiria un string con el correspondiente valor hexadecimal.\n\nSi envio asi: Comando( 0x65 ) que tipo de dato recibe Comando? sigue siendo string?','',0,'AIA=','ses5ijs9',1,0,'',52,0,0),(10610,2444,6,104,0,'201.58.66.214',1143813666,1,0,1,1,1,0,'','','OK Maestro  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias, Saludos.\n\nRossine.','',0,'AIA=','ztinvqmr',1,0,'',104,0,0),(10611,454,5,512,0,'202.6.138.33',1143814968,1,0,1,1,1,0,'','','Hi Antonio\n\nThanks. That was easy. I should have looked in there before I asked the question.  So much for working late and being so tired you don\'t think straight.\n\nMy program compiles and links OK now.\n\nThanks again,\nAngelo','',0,'AIA=','3o1wbyyr',1,0,'',512,0,0),(10612,2454,6,255,0,'200.67.175.250',1143815612,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:xqnpjvjp]Hola  Puedes bajarlo directamente en la pagina:  \n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\nSaludos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n  Marco A. Delgado.[/quote:xqnpjvjp]\n\n\nMarco, tu usas verce ???','',0,'gA==','xqnpjvjp',1,0,'',255,0,0),(10613,2465,6,490,0,'83.61.75.157',1143815876,1,0,1,1,1,0,'','','antonio,\n\nok, me parece perfecto.\n\n\nUn saludo,\njoaquin','',0,'gA==','3rt5sfv6',1,0,'',490,0,0),(10614,2468,6,255,0,'200.67.175.250',1143815943,1,0,1,1,1,1,'','','[quote=&quot;goosfancito&quot;:nonzyr55]Perfecto y gracias,\nAhora, si yo mando asi Comando( hb_numtohex( 101 ) ), me decis que la funcion comando recibiria un string con el correspondiente valor hexadecimal.\nSi envio asi: Comando( 0x65 ) que tipo de dato recibe Comando? sigue siendo string?[/quote:nonzyr55]\n\n\nAhi ya no es String, ya es un valor hexadecimal.','',0,'gA==','nonzyr55',1,0,'',255,0,0),(10616,2454,6,43,0,'201.127.19.39',1143817052,1,0,1,1,1,0,'','','por supuesto   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nSaludos\n\n  Marco A. Delgado.','',0,'gA==','2e119ojv',1,0,'',43,0,0),(10617,2284,7,150,0,'212.106.243.152',1143818210,1,0,1,1,1,1,'','','Hola:\n\nNos puedes decir que se explicará en el curso.\n\nQuienes lo impartiran.\n\nDonde será.\n\nJose Manuel','',0,'gA==','1q6k20dn',1,0,'',150,0,0),(10618,2471,2,248,0,'212.145.179.68',1143818383,1,0,1,1,1,0,'','Browse con Dialog','Al maximizar un dialog que contiene un browse se puede redimensionar automaticamente o de alguna manera el Browse para que me ocupe todo el dialog.\n\nGraicas','',0,'gA==','2bwl0dkh',1,0,'',248,0,0),(10619,2472,3,497,0,'212.127.159.218',1143819560,1,0,1,0,1,0,'','Vertical Scroll in TsBrowse not working well','In all my apps the VScroll is not working as one should expect.\nMoving it downwards it jumps all the way down.\n\nScrolling with the mouse is OK.\n\nAny idea to improve this?\n\nJules de Pierre','',0,'gA==','36rd16ui',1,0,'',497,0,0),(10620,2473,6,509,0,'80.34.248.50',1143821385,1,0,1,0,1,0,'','Evitar avance de página','Tengo un formulario con EasyReport y quiero evitar que al finalizar de imprimir se avance el folio hasta el tamaño indicado por el formato de papel ya que utilizo papel contínuo. Si cambio el tamaño del papel a un formato inferior al A4 siempre me salta hasta el A4 en XP. Con Windows 98 no ocurre.','',0,'gA==','2q8uqh7d',1,0,'',509,0,0),(10621,2471,2,248,0,'212.145.179.68',1143821699,1,0,1,1,1,0,'','','o como sabes si un dialog se ha maximizado para cambian de resoure','',0,'gA==','2xa32h85',1,0,'',248,0,0),(10622,454,5,2,0,'87.218.146.207',1143822546,1,0,1,1,1,1,'','','Fine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3kwtk8aq',1,0,'',2,0,0),(10623,2376,20,125,0,'213.140.6.105',1143822628,1,0,1,1,1,0,'','','Pare impossibile ma ho trovato cosa cercavo.\nVolevo sapere la colonna su cui ero posizionato e questa e\' l\'istruzione:\n\noBrw:nColAct\n\nsfuttando l\'istruzione:\noBrw:bLClicked     = { | nRow, nCol | mia_funzione( nRow, nCol, oBrw, oDlg ) }\n\nLa mia nuova domanda e\':\n1) per sapere il nColAt mi devo spostare con il mouse o freccie sulla   relativa cella ma se clicco con tasto  destro su un\'altra cella: come faccio per sapere su che riga/colonna sono ?\n\n2) e\' possibile avere qualcosa tipo: oBrw:bLClicked:Colonna[i] ={ ... }\n ossia x riga o colonna ?\n\nGrazie\nPisciceli /Zingoni','',0,'','obs5yvyt',1,0,'',125,0,0),(10624,2468,6,2,0,'87.218.146.207',1143822733,1,0,1,1,1,1,'','','&gt; Ahi ya no es String, ya es un valor hexadecimal.\n\nCierto, un número.','',0,'','830jy4jj',1,0,'',2,0,0),(10625,2470,6,2,0,'87.218.146.207',1143822936,1,0,1,1,1,1,'','','Adolfo,\n\nUna solución es tener dos cajas de diálogo en recursos, cada una para una determinada resolución, y en tiempo de ejecución comprobar en que resolución se está trabajando y así escoger una u otra.','',0,'','29ofzzcg',1,0,'',2,0,0),(10626,2469,6,2,0,'87.218.146.207',1143823068,1,0,1,1,1,1,'','','Rafael,\n\nPuedes usar un include, al final, desde dentro del primer PRG:\n\n#include \"Prog2.prg\"','',0,'','3dsyn4xn',1,0,'',2,0,0),(10627,2471,2,2,0,'87.218.146.207',1143823292,1,0,1,1,1,1,'','','Garbi,\n\noDlg:SetClient( oBrowse )','',0,'','t9ilnyf0',1,0,'',2,0,0),(10628,2406,6,97,0,'201.161.133.18',1143823590,1,0,1,1,1,1,'','Estos son los cambios','Julio no se que problema haya, luego de hacer varias pruebas , el cambio el siguiente, oRs:Fields(\"Nombre\"):= alltrim(cNombre) , no se harbour o xharbour agrege algun caracter al terminar de capturar o lo espacion en blanco no sean aceptados por ado.\n\nde echo tambien tengo el mismo problema con una tabla, que ya estaba funcionando bien.\n\na el link donde esta la aplicacion no funciona, pero mandamelo a <!-- e --><a href=\"mailto:fernandosando@gmail.com\">fernandosando@gmail.com</a><!-- e -->\n\nsaludos.\nfernando sandoval ruiz','',0,'','1l4ra8hn',1,0,'',97,0,0),(10629,2376,20,6,0,'82.55.208.145',1143823824,1,0,1,1,1,1,'','','[quote=&quot;Piscicelli Zingoni&quot;:1bmz9lpw]Pare impossibile ma ho trovato cosa cercavo.\nVolevo sapere la colonna su cui ero posizionato e questa e\' l\'istruzione:\n\noBrw:nColAct[/quote:1bmz9lpw]\n\nEvidentemente ti sei rifiutato di esaminare il mio esempio che conteneva, appunto, quell\'istruzione. Come mai?\n\n[quote=&quot;Piscicelli Zingoni&quot;:1bmz9lpw]La mia nuova domanda e\':\n1) per sapere il nColAt mi devo spostare con il mouse o freccie sulla   relativa cella ma se clicco con tasto  destro su un\'altra cella: come faccio per sapere su che riga/colonna sono ?[/quote:1bmz9lpw]\n\nEccoti il solito esempio, ancora modificato. E speriamo che stavolta tu lo prenda in considerazione:\n\n[code:1bmz9lpw]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, oCol\n\n    LOCAL hBmp1 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkon&#46;bmp&quot; &#41;\n    LOCAL hBmp2 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkoff&#46;bmp&quot; &#41;\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    @ 0, 0 BROWSE oBrw;\n           ON CLICK MSGINFO&#40; oBrw&#58;nColAct &#41;;\n           ON RIGHT CLICK &#40; MSGINFO&#40; NWROW&#40; oBrw&#58;hWnd, oBrw&#58;hDC, nRow, IF&#40; oBrw&#58;oFont != nil, oBrw&#58;oFont&#58;hFont, 0 &#41; &#41; &#41;,;\n                            MSGINFO&#40; oBrw&#58;nAtCol&#40; nCol &#41; &#41; &#41;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; last;\n               HEADER &quot;LAST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA IF&#40; TEST -&gt; last = &quot;S&quot;, hBmp1, hBmp2 &#41;;\n               BITMAP\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n    oBrw&#58;lMChange = &#46;F&#46;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:1bmz9lpw]\n\n[quote=&quot;Piscicelli Zingoni&quot;:1bmz9lpw]2) e\' possibile avere qualcosa tipo: oBrw:bLClicked:Colonna[i] ={ ... }\n ossia x riga o colonna ?[/quote:1bmz9lpw]\n\nNon che io sappia.\n\nEMG','',0,'gIA=','1bmz9lpw',1,0,'',6,0,0),(10630,2471,2,248,0,'212.145.179.68',1143824406,1,0,1,1,1,0,'','','Me da el siguiente error:  \nError description: Error Objects/6  No Exp. Method: TDIALOG:SETCLIENT\n\nCodigo fuente:\nDEFINE DIALOG oDlg RESOURCE \"HOJA\" TITLE IIF( lNuevo,\"AGREGAR\" ,;\n     oemtoansi(\"MODIFICACION / CONSULTA Presupuesto n§ \")+alltrim(transform(vnumero,\"999,999\")) )\n\n   REDEFINE GET gvfecha   Var vfecha  ID 102 OF oDlg\n   REDEFINE say gvnombre  Var vnombre ID 114 OF oDlg\n   REDEFINE say gvref     Var vref ID 116 OF oDlg\n\n\n   REDEFINE BROWSE oBrwt ID 103 of oDlg\n\n   oDlg:SetClient( oBrwt )\n\n   oBrwT:bKeyChar   = { | nKey, nFlags | (lineas(nkey),oBrwt:refresh(),ftotal(),gvtotal:refresh())}\n\n   ADD COLUMN to oBrwt DATA (ctemporal)-&gt;cantidad  HEADER \"Ctd\" size 40 picture \"99,999\"\n   ADD COLUMN to oBrwt DATA (ctemporal)-&gt;concepto  HEADER \"Articulo\" size 500\n   ADD COLUMN to oBrwt DATA (ctemporal)-&gt;unitario    HEADER \"Precio\" size 100 Picture \"9,999,999.99\" RIGHT\n   ADD COLUMN to oBrwt DATA (ctemporal)-&gt;importe HEADER \"Total\" size 100 Picture \"9,999,999.99\" RIGHT\n\n   REDEFINE say gvtotal   Var vtotal  ID 105 OF oDlg picture(\"9,999,999.99\")\n   REDEFINE get gvtdto    Var vtdto   ID 108 OF oDlg picture(\"999.99\") valid ftotal()\n   REDEFINE say gvdto     Var vdto    ID 109 OF oDlg picture(\"9,999,999.99\")\n   REDEFINE say gvbase    Var vbase   ID 110 OF oDlg picture(\"9,999,999.99\")\n   REDEFINE say gvtiva    Var vtiva   ID 111 OF oDlg picture(\"999.99\")\n   REDEFINE say gviva     Var viva    ID 112 OF oDlg picture(\"999,999.99\")\n   REDEFINE say gvttotal  Var vttotal ID 104 OF oDlg picture(\"9,999,999.99\")\n\n   REDEFINE BTNBMP aBoton[1] ID 113  RESOURCE \"DATOS\" OF oDlg;\n                  tooltip oemtoansi(\"Datos Adicionales\");\n                  action (datosadicionales(),gvnombre:refresh())\n\n   REDEFINE BTNBMP aBoton[2] ID 504  RESOURCE \"sumar\" OF oDlg;\n                  tooltip oemtoansi(\"A¤adir Linea\");\n                  action (lineas(1),oBrwt:refresh())\n\n   REDEFINE BTNBMP aBoton[8] ID 107  RESOURCE \"pgup\" OF oDlg;\n                  tooltip oemtoansi(\"Insertar Linea\");\n                  action (lineas(19),oBrwt:refresh())\n\n   REDEFINE BTNBMP aBoton[3] ID 505  RESOURCE \"restar\" OF oDlg;\n                  tooltip oemtoansi(\"Borar Linea\");\n                  action (lineas(2),oBrwt:Refresh())\n\n  REDEFINE BTNBMP aBoton[4] ID 506  RESOURCE \"cambIar\" OF oDlg;\n                  tooltip oemtoansi(\"Modificar Linea\");\n                  action (lineas(13),oBrwt:Refresh())\n\n  REDEFINE BTNBMP aBoton[7] ID 106  RESOURCE \"TEXTO\" OF oDlg;\n                  tooltip oemtoansi(\"Nuevo\");\n                  action (lineas(14),oBrwt:Refresh())\n\n  REDEFINE BTNBMP aBoton[9] ID 117  RESOURCE \"TARIFA\" OF oDlg;\n                  tooltip oemtoansi(\"Acceso Tarifa\");\n                  action (ftarifas(1),ftotal(),oBrwt:gotop(),oBrwt:Refresh())\n*                  action (lineas(14),oBrwt:Refresh())\n\n\n  REDEFINE COMBOBOX getvfpago Var vfpago ID 115 items tfpago OF odlg\n\n  REDEFINE BTNBMP aBoton[5] ID 501  RESOURCE \"ACEPTAR\" OF oDlg ;\n                  ACTION ( aVret:= ActAcepta( aVars ) , lSalva := aVret[1] ,;\n                           IIF( lSalva , oDlg:End() , Obj(aVret[2]):SetFocus() ));\n                  MESSAGE \"Guardar cambios y salir del catalogo\" ;\n                  WHEN ( Acceso(oApp:aUsuarios,\"PPTO\", nActua ) )\n\n  REDEFINE BTNBMP aBoton[6] ID 502  RESOURCE \"SALIR\" OF oDlg ACTION (lSalva := falso, oDlg:End()) ;\n                  MESSAGE \"Salir del catalogo\"\n\n  ACTIVATE DIALOG oDlg CENTER on init ftotal()','',0,'','1erbzu61',1,0,'',248,0,0),(10631,2376,20,125,0,'213.140.6.105',1143824940,1,0,1,1,1,0,'','','riesco almeno a sapere la riga/colonna dove mi trovo sfruttando  l\'struzione:\n oBrw:bRClicked     = { | nRow, nCol | ShowPopup( nRow, nCol, oBrw ) } ?\n\nGrazie','',0,'','2rtogr3d',1,0,'',125,0,0),(10632,2471,2,2,0,'87.218.146.207',1143825273,1,0,1,1,1,1,'','','Prueba con:\n\noDlg:oClient = oBrowse','',0,'','2vxbtd18',1,0,'',2,0,0),(10633,2005,2,248,0,'212.145.179.68',1143825374,1,0,1,1,1,0,'','','Prueba con esto:\n\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/140036/es\">http://support.microsoft.com/kb/140036/es</a><!-- m -->\n\nYa me cuentas','',0,'','raxwcewj',1,0,'',248,0,0),(10634,2471,2,248,0,'212.145.179.68',1143825538,1,0,1,1,1,0,'','','Funciona. Se maximiza la ventana, pero que hago con los botones, los says y demas.\n\nGracias','',0,'','3shgyjjg',1,0,'',248,0,0),(10635,2469,6,63,0,'80.37.102.128',1143826570,1,0,1,1,1,0,'','','¡¡¡Claro!!!   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nMuchas gracias otra vez, Antonio\nRafael','',0,'','k7u8a4wf',1,0,'',63,0,0),(10636,2471,2,2,0,'87.218.146.207',1143826994,1,0,1,1,1,1,'','','Garbi,\n\nSi quieres reajustar las posiciones de todos los controles, has de hacerlo desde el codeblock bResized:\n\n[code:1xymoxdv]\noDlg&#58;bResized = &#123; || CalculaNuevasPosiciones&#40; oDlg, oButton1, &#46;&#46;&#46; &#41; &#125;\n\nfunction CalculaNuevasPosiciones&#40; oDlg, oButton1, &#46;&#46;&#46; &#41;\n\n   oButton1&#58;nTop = &#46;&#46;&#46;\n   oButton2&#58;nLeft = &#46;&#46;&#46;\n   &#46;&#46;&#46;\n[/code:1xymoxdv]','',0,'AIA=','1xymoxdv',1,0,'',2,0,0),(10637,2471,2,248,0,'212.145.179.68',1143827699,1,0,1,1,1,0,'','','Lo probare. \nPuedes poner un sample un poco más completo. Gracias\nPor ejemplo que pongo despues ntop:=','',0,'AIA=','3bxmalui',1,0,'',248,0,0),(10638,2426,6,41,0,'200.87.67.10',1143828998,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:27nym4wi]Marcelo,\n\nNo será que por alguna causa se está llamando a Alert() de xharbour en modo consola (texto) y no al Alert() de FWH ? Eso colgaría la aplicación.\n\nPrueba a poner un define en tus PRGs, algo así como:\n#define Alert FWAlert\n\ny en tu PRG principal creas una función FWAlert() que llame a Alert() de FWH.[/quote:27nym4wi]\n\nAntonio,\n\ntodo esta funcionando bien, me parece raro que se pueda saltar la llamada al Alert() FW y se llame al de xHb.\n\nmuchas\n\nGracias','',0,'gA==','27nym4wi',1,0,'',41,0,0),(10639,2467,3,6,0,'82.55.208.145',1143829164,1,0,1,1,1,1,'','','It doesn\'t work (I get a black bitmap). What am I doing wrong?\n\n[code:1mbc5ve8]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL hBmp &#58;= CROP&#40; &quot;c&#58;\\fwharbour\\bitmaps\\magic&#46;bmp&quot;, 100, 100, 100, 50 &#41;\n\n    DEFINE DIALOG oDlg\n\n    ACTIVATE DIALOG oDlg;\n             ON PAINT PALBMPDRAW&#40; hDC, 0, 0, hBmp &#41;;\n             CENTER\n\n    RETURN NIL\n\n\n#define SRCCOPY 13369376\n\n\nFUNCTION CROP&#40; cBmpFile, nTop, nLeft, nWidth, nHeight &#41;\n\n    LOCAL hDC1  &#58;= GETDC&#40; 0 &#41;\n    LOCAL hBmp1 &#58;= READBITMAP&#40; hDC1, cBmpFile &#41;\n    LOCAL hDC2  &#58;= CREATECOMPATIBLEDC&#40; hDC1 &#41;\n    LOCAL hBmp2 &#58;= CREATECOMPATIBLEBITMAP&#40; hDC2, nWidth, nHeight &#41;\n\n    LOCAL hBmpOld1 &#58;= SELECTOBJECT&#40; hDC1, hBmp1 &#41;\n    LOCAL hBmpOld2 &#58;= SELECTOBJECT&#40; hDC2, hBmp2 &#41;\n\n    BITBLT&#40; hDC2, 0, 0, nWidth, nHeight, hDC1, nLeft, nTop, SRCCOPY &#41;\n\n    SELECTOBJECT&#40; hDC1, hBmpOld1 &#41;\n    SELECTOBJECT&#40; hDC2, hBmpOld2 &#41;\n    RELEASEDC&#40; 0, hDC1 &#41;\n    DELETEDC&#40; hDC2 &#41;\n\n    RETURN hBmp2\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; CREATECOMPATIBLEDC &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; CreateCompatibleDC&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; CREATECOMPATIBLEBITMAP &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; CreateCompatibleBitmap&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:1mbc5ve8]\n\nEMG','',0,'AIA=','1mbc5ve8',1,0,'',6,0,0),(10640,2467,3,2,0,'87.218.146.207',1143831196,1,0,1,1,1,1,'','','Enrico,\n\nWe may be missing something...','',0,'AIA=','2w5qm5g2',1,0,'',2,0,0),(10641,2471,2,2,0,'87.218.146.207',1143831251,1,0,1,1,1,1,'','','El valor de la nueva posición de cada control.','',0,'AIA=','3bd2yumn',1,0,'',2,0,0),(10642,2474,3,226,0,'200.162.111.226',1143831354,1,0,1,1,1,1,'','erro na compilacao do SAMPLE\\TESTOLE.PRG','estou tentando compilar o programa TESTOLE.PRG da versao 2.7 com o xHarbour 0.99.60 free e estou tendo estes erros:\n\n[code:3eo27dng]\nHarbour&#46;Exe testole&#46;prg /m /n0 /w0 /a /es2 /ie&#58;\\fwh_27\\include;e&#58;\\xh\\include /iE&#58;\\xH_09960\\Include /dDBF /d__HARBOUR__ /oObj\\testole&#46;c\nxHarbour Compiler build 0&#46;99&#46;60 &#40;SimpLex&#41;\nCopyright 1999-2005, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'testole&#46;prg\'&#46;&#46;&#46;\nLines 37, Functions/Procedures 1\nGenerating C source output to \'Obj\\testole&#46;c\'&#46;&#46;&#46;\nDone&#46;\nBcc32&#46;Exe -c -5 -6 -OS -a8  -DHB_FM_STATISTICS_OFF;__HARBOUR__ -Ie&#58;\\fwh_27\\include;e&#58;\\xh\\include -IE&#58;\\xH_09960\\Include;E&#58;\\BCC55\\Include  -nObj Obj\\testole&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nObj\\testole&#46;c&#58;\nError E2451 Obj\\testole&#46;c 26&#58; Undefined symbol \'HB_FS_LOCAL\'\nError E2141 Obj\\testole&#46;c 26&#58; Declaration syntax error\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2040 Obj\\testole&#46;c 26&#58; Declaration terminated incorrectly\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2040 Obj\\testole&#46;c 26&#58; Declaration terminated incorrectly\nError E2190 Obj\\testole&#46;c 33&#58; Unexpected &#125;\nError E2190 Obj\\testole&#46;c 33&#58; Unexpected &#125;\nError E2109 Obj\\testole&#46;c 33&#58; Not an allowed type in function hb_vm_SymbolInit_TESTOLE\n*** 11 errors in Compile ***\n[/code:3eo27dng]\n\nalguem tem ideia do que pode ser?\n\nobrigado','',0,'AIA=','3eo27dng',1,0,'',226,0,0),(10643,2475,6,226,0,'200.162.111.226',1143831550,1,0,1,1,1,1,'','erro na compilacao do SAMPLES\\TESTOLE.PRG','por favor, estou tentando compilar o programa TESTOLE.PRG da versao 2.7 com o xHarbour 0.99.60 free e estou tendo estes erros:\n\n[code:185ueoj5]\nHarbour&#46;Exe testole&#46;prg /m /n0 /w0 /a /es2 /ie&#58;\\fwh_27\\include;e&#58;\\xh\\include /iE&#58;\\xH_09960\\Include /dDBF /d__HARBOUR__ /oObj\\testole&#46;c\nxHarbour Compiler build 0&#46;99&#46;60 &#40;SimpLex&#41;\nCopyright 1999-2005, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'testole&#46;prg\'&#46;&#46;&#46;\nLines 37, Functions/Procedures 1\nGenerating C source output to \'Obj\\testole&#46;c\'&#46;&#46;&#46;\nDone&#46;\nBcc32&#46;Exe -c -5 -6 -OS -a8  -DHB_FM_STATISTICS_OFF;__HARBOUR__ -Ie&#58;\\fwh_27\\include;e&#58;\\xh\\include -IE&#58;\\xH_09960\\Include;E&#58;\\BCC55\\Include  -nObj Obj\\testole&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nObj\\testole&#46;c&#58;\nError E2451 Obj\\testole&#46;c 26&#58; Undefined symbol \'HB_FS_LOCAL\'\nError E2141 Obj\\testole&#46;c 26&#58; Declaration syntax error\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2040 Obj\\testole&#46;c 26&#58; Declaration terminated incorrectly\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2190 Obj\\testole&#46;c 26&#58; Unexpected &#125;\nError E2040 Obj\\testole&#46;c 26&#58; Declaration terminated incorrectly\nError E2190 Obj\\testole&#46;c 33&#58; Unexpected &#125;\nError E2190 Obj\\testole&#46;c 33&#58; Unexpected &#125;\nError E2109 Obj\\testole&#46;c 33&#58; Not an allowed type in function hb_vm_SymbolInit_TESTOLE\n*** 11 errors in Compile ***\n[/code:185ueoj5]\n\nalguem tem ideia do que pode ser?\n\nobrigado','',0,'AIA=','185ueoj5',1,0,'',226,0,0),(10644,2474,3,2,0,'87.218.146.207',1143832561,1,0,1,1,1,1,'','','Marllon,\n\nChange this:\n-Ie:\\fwh_27\\include;e:\\xh\\include -IE:\\xH_09960\n\ninto this:\n-Ie:\\fwh_27\\include -IE:\\xH_09960\\include','',0,'AIA=','vexarn5b',1,0,'',2,0,0),(10645,2475,6,2,0,'87.218.146.207',1143832624,1,0,1,1,1,1,'','','Marllon, \n\nChange this: \n-Ie:\\fwh_27\\include;e:\\xh\\include -IE:\\xH_09960 \n\ninto this: \n-Ie:\\fwh_27\\include -IE:\\xH_09960\\include','',0,'AIA=','1y6g1zdg',1,0,'',2,0,0),(10646,2470,6,255,0,'200.67.175.250',1143834036,1,0,1,1,1,1,'','Re: ZOOM de Window.. Como?','[quote=&quot;Adolfo&quot;:386cabbz]Hola a todos...\nTengo una ventana diseñada bajo 800*600 pero deseo que al cambiar de resolucion a 1024 * 768 los componentes se escalen para llenar de nuevo la ventana,  algo que me permita aumentar el tamaño de la Font, los gets, say etc.. y que no se generen espacios vacios a la derecha y abajo.\nEn estos momentos la tengo diseñada dentro de un RC, pero si hay que hacerla por codigo no tengo problema.\nAlgo como una factor,  de preferencia que solo se pueda aplicar en una sola instancia de la generacion de la ventana.\nCualquier sugerencia sera muy bienvenida...\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  Espero no pedir mucho.. ji ji[/quote:386cabbz]\n\n\nCreo que EasyDialog hace lo que quieres.\nSaludos','',0,'gA==','386cabbz',1,0,'',255,0,0),(10647,2476,2,409,0,'200.90.199.68',1143840339,1,0,1,1,1,0,'','Imprimir con la Classe TPrinter','Bueno amigos mi consulta es la siguiente como puedo imprimir con la classe TPrinter en un boleta de venta de 7 cm ancho y 15 largo el problema q me salta una pagina\nSaludos','',0,'gA==','pcop7v4d',1,0,'',409,0,0),(10648,2477,3,394,0,'207.219.124.134',1143843488,1,0,1,1,1,0,'','&quot;Digital Persona&quot; Finger Print Id\'s Interface?','I have purchased the \"Digital Persona\" and libraries \"Platinum SDK\", has anyone made an interface using xharbour?\n\nIf so I would like to purchase an interface for xharbour with code.\n\nMike S. Buckler','',0,'gA==','1mxrlabo',1,0,'',394,0,0),(10649,2478,6,97,0,'201.128.239.127',1143846514,1,0,1,1,1,1,'','ADO record fantasma','cuando esta la tabla vacia ado marca error , sera que ado no maneja el record fantasma como se le llama.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'gA==','mo4pu9zy',1,0,'',97,0,0),(10650,2479,20,49,0,'87.11.183.237',1143848185,1,0,1,1,1,1,'','Errore di compilazione  UUID.lib','ho formattato tutto il disco fisso inserendo winxp professional\nho inserito nella cartella c:\\work queste cartelle \nbcc55\nfwh\nxharbour\nxmate\nprg\n\nadesso quando vado a compilare un programma con xmate  mi chiede che non trova uuid.lib eppure il file env di xmate è lostesso di quelo che usavo prima che ripulivo il pc ed avevo la stessa configurazione e le stesse cartelle\n\nsecondo voi ?','',0,'gA==','2c9lnteh',1,0,'',49,0,0),(10651,2442,1,312,0,'24.150.179.34',1143851247,1,0,1,1,1,0,'','','You could create it with a temp file name using 8.3 convention, and use the movefile api call to move it to a long file  name. \n\nMovefile ( \"c:\\temp\\temp.fil\" +chr(0) , \"c:\\folder\\long file name.fil\" +chr(0)) \nDLL32 FUNCTION MOVEFILE( cOldName AS LPSTR, cNewName AS LPSTR ) AS BOOL;\nPASCAL FROM \"MoveFileA\" LIB \"kernel32.dll\"','',0,'gA==','75rkq2rf',1,0,'',312,0,0),(10652,2467,3,190,0,'202.65.134.27',1143859676,1,0,1,1,1,0,'','','Mr.Rafael\n\nThis is the working sample to Crop a Bitmap to the required size.\nThis program is simplified version of \"TESTBMP.PRG\" to demonstrate\nyour particular requirement.\n\nRegards,\n\n- Ramesh Babu P\n\n\n#include \"Fivewin.ch\"\n\nstatic bmpFish, aCoors := {10,10,135,240} // Your Coordinates \n\nFUNCTION main()\n\n   local oDlg\n   local n := 1\n\n   #ifndef __CLIPPER__\n       SET RESOURCES TO \"Fishes32.dll\"    // 32 bits DLL version\n   #else\n       SET RESOURCES TO \"Fishes16.dll\"    // 16 bits DLL version for Clipper users\n   #endif\n\n   DEFINE DIALOG oDlg RESOURCE \"Fish\"\n\n   REDEFINE BITMAP bmpFish ID 110 OF oDlg NAME \"Fish1\"\n\n   *bmpFish:bLDblClick = { | nRow, nCol, nFlags | ;\n   *                       MsgInfo( \"DblClick on the bitmap\" ) }\n \n   bmpFish:bLDblClick = { ||Crop(bmpfish, aCoors)}\n\n   REDEFINE BUTTON ID 120 OF oDlg ;\n      ACTION If( n &gt; 1, bmpFish:SetBMP( \"Fish\" + AllTrim( Str( --n ) ) ), ;\n                        Tone( 956, 2 ) )\n\n   REDEFINE BUTTON ID 130 OF oDlg ;\n      ACTION If( n &lt; 6, bmpFish:SetBMP( \"Fish\" + AllTrim( Str( ++n ) ) ), ;\n                        Tone( 956, 2 ) )\n\n   ACTIVATE DIALOG oDlg CENTERED\n \n\nreturn nil\n\n*******************************************************************************\n*** FUNCTION Crop(oBmp,aCoors) to Crop the Bitmap to the required Coordinates   ***\n*******************************************************************************\n\nFUNCTION Crop(oBmp, aCoors)\n\noBmp:nTop    := aCoors[1]\noBmp:nLeft   := aCoors[2]\noBmp:nBottom := aCoors[3]\noBmp:nRight := aCoors[4]\n\noBmp:Box(oBmp:nTop, oBmp:nLeft, oBmp:nBottom, oBmp:nRight)\n\nDibWrite( \"crop.bmp\", DibFromBitmap( wnd_bitmap( oBmp:hWnd,;\n          oBmp:nTop, oBmp:nLeft, oBmp:nBottom+1, oBmp:nRight+1 ) ) )\n\noBmp:LoadBMP(\"crop.bmp\")\n\noBmp:Refresh()\n\n// ERASE crop.bmp\n\nRETURN nil\n\n**********','',0,'','tq5468dy',1,0,'',190,0,0),(10653,2480,6,307,0,'201.143.97.65',1143860452,1,0,1,1,1,0,'','impresoras matriciales','Saludos , como puedo mandar la impresion directamente a una impresora matricial?\n\nen fwh, hay algo como tdosprn??\n\nsaludos\n\narnulfo','',0,'','zxjfryxg',1,0,'',307,0,0),(10654,2480,6,138,0,'201.137.136.60',1143862465,1,0,1,1,1,1,'','','si, claro, la misma clase TDOSPRN te funciona en FWH sin cambio alguno','',0,'','308a2l2v',1,0,'',138,0,0),(10655,2478,6,138,0,'201.137.136.60',1143862766,1,0,1,1,1,1,'','','Que yo sepa, las tablas SQL no tienen \"registro fantasma\" como los DBFs, si en un EXECUTE() de ADO no te regresa ningun dato, es simplemente que la tabla esta vacia','',0,'','3sp4qmpg',1,0,'',138,0,0),(10656,2473,6,2,0,'87.218.146.52',1143875397,1,0,1,1,1,1,'','','Ricardo,\n\nhas probado ha definir el tamaño de página que vas a usar con PrnSetSize( nAncho, nAlto ) ?','',0,'','xjqawxi2',1,0,'',2,0,0),(10657,2467,3,2,0,'87.218.146.52',1143879786,1,0,1,1,1,1,'','','Enrico,\n\nJust pure curiosity, but we should discover whats wrong with the code <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nThis little sample works ok and paints a portion of the bitmap. So we may probably need to use one more hDC:\n[code:jr7tulgz]\n#include &quot;Fivewin&#46;ch&quot; \n\n#define SRCCOPY 13369376 \n\nfunction Main&#40;&#41; \n\n   local oDlg, hBmp &#58;= ReadBitmap&#40; 0, &quot;&#46;&#46;\\bitmaps\\magic&#46;bmp&quot; &#41;\n    \n   DEFINE DIALOG oDlg \n\n   ACTIVATE DIALOG oDlg; \n      ON PAINT DrawBitmap&#40; hDC, hBmp, 0, 0, 100, 100 &#41; ;\n      CENTER\n\nreturn nil\n\nstatic function DrawBitmap&#40; hDC, hBmp, nTop, nLeft, nWidth, nHeight &#41; \n\n   local hDC1     &#58;= CreateCompatibleDC&#40; hDC &#41;\n   local hBmpOld1 &#58;= SelectObject&#40; hDC1, hBmp &#41; \n\n   BitBlt&#40; hDC, 0, 0, nWidth, nHeight, hDC1, nLeft, nTop, SRCCOPY &#41;\n\n   SelectObject&#40; hDC1, hBmpOld1 &#41; \n   DeleteDC&#40; hDC1 &#41; \n\nreturn nil\n\n#pragma BEGINDUMP \n\n#include &quot;windows&#46;h&quot; \n#include &quot;hbapi&#46;h&quot; \n\nHB_FUNC&#40; CREATECOMPATIBLEDC &#41; \n&#123; \n   hb_retnl&#40; &#40; LONG &#41; CreateCompatibleDC&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; &#41; &#41;; \n&#125; \n\n#pragma ENDDUMP\n[/code:jr7tulgz]\n[url=http&#58;//imageshack&#46;us:jr7tulgz][img:jr7tulgz]http&#58;//img81&#46;imageshack&#46;us/img81/2333/image18lh&#46;png[/img:jr7tulgz][/url:jr7tulgz]','',0,'GIA=','jr7tulgz',1,0,'',2,0,0),(10658,2459,3,2,0,'87.218.146.52',1143882090,1,0,1,1,1,1,'','','Enrico,\n\nFWH does not do anything regarding the XP manifest. Its a Windows standard built-in behavior.','',0,'GIA=','3rpfafhp',1,0,'',2,0,0),(10659,2459,3,6,0,'87.6.210.118',1143885895,1,0,1,1,1,1,'','','Ok, but I\'m looking for a workaround to speed up the refresh...\n\nEMG','',0,'GIA=','2dzuacs0',1,0,'',6,0,0),(10660,2481,2,9,0,'85.59.186.173',1143887119,1,0,1,1,1,0,'','STYLE WS_NOCAPTION','En la barra superior de la ventana principal de una aplicación, quiero que aparezca lo siguiente:\n\nIcono + Título + icono minimizar + icono maximizar y el icono \"x\" (cerrar) deshabilitado.\n\nCasi lo consigo, definiendo la ventana asi:\n\nDEFINE WINDOW oWnd TITLE cTitle MENU fMenu ICON oico ;\n   STYLE (WS_CAPTION, WS_MINIMIZEBOX, WS_MAXIMIZEBOX)\n\nTodo correcto, pero desaparece el icono. \n\n¿Alguna idea?\n\nUn saludo y feliz fin de semana.','',0,'GIA=','1jvur4pk',1,0,'',9,0,0),(10661,2467,3,63,0,'80.37.102.128',1143887212,1,0,1,1,1,0,'','','Antonio\'s sample is working fine.  Now, to round it up: how to save the cropped image to disk?  Sorry for such a dumb question, but I still have to come to terms with all this stuff of Device Contexts and so on...\nThanks\nRafael','',0,'GIA=','20hn59u5',1,0,'',63,0,0),(10662,2481,2,2,0,'87.218.146.52',1143894460,1,0,1,1,1,1,'','','Manuel,\n\nPosiblemente tengas que añadir WS_POPUP','',0,'GIA=','7yptr1xu',1,0,'',2,0,0),(10663,1136,6,439,0,'201.221.39.62',1143896595,1,0,1,1,1,0,'','Viktor, podrías enviarme Tword','Podrías enviarme TWord o decirme de donde bajarlo por favor, me sería muy útil.','',0,'GIA=','1sexxrz9',1,0,'',439,0,0),(10664,2474,3,226,0,'201.22.211.242',1143897121,1,0,1,1,1,1,'','erro na compilacao do SAMPLE\\TESTOLE.PRG','Antonio,\n\nobrigado, a resposta está no forum em espanhol.','',0,'GIA=','1df2ur8z',1,0,'',226,0,0),(10665,2475,6,226,0,'201.22.211.242',1143897557,1,0,1,1,1,1,'','erro na compilacao do SAMPLES\\TESTOLE.PRG','Antonio,\n\nfiz o ajuste para a compilacao conforme voce sujeriu.\n\ndesta vez compilou sem nenhum erro, más ao executar o programa o mesmo gera erro fatal e aborta sem gerar o error.log\n\n[url=http&#58;//www&#46;mh2img&#46;net:3mljroy5][img:3mljroy5]http&#58;//www&#46;mh2img&#46;net/fotos/0406/1/error_ole&#46;JPG[/img:3mljroy5][/url:3mljroy5]\n\nminha plataforma é Windows XP SP2 e Office 2003\n\nobrigado','',0,'GA==','3mljroy5',1,0,'',226,0,0),(10666,2482,6,511,0,'201.248.65.240',1143897866,1,0,1,0,1,0,'','PCode DLL','Hola amigos del foro,\n\nRecien me estoy iniciando con FWH y estoy tratando de crear una dll como en mis actuales programas con fw/blinker donde coloco impresiones de facturas personalizadas en los DLLs, invocando las funciones del EXE, utilizando las variables publicas del EXE y pasando parametros del EXE a la DLL. He tratado y no he podido, primero me indicaba que las funciones invocadas desde el DLL no estan definidas y al crearlas como funciones \"dummy\" no invoca las del EXE. Alguien me podria ayudar con esto ?.\n\nGracias','',0,'GA==','1hprxb8m',1,0,'',511,0,0),(10669,2393,3,487,0,'151.42.116.190',1143905734,1,0,1,1,1,0,'','','[quote=&quot;Davide&quot;:2oic8w5n]Antonio,\nit works. [/quote:2oic8w5n]\nI\'ve just found that in the NextPage() PrevPage() (etc.) functions, the oPage (say) is updated with the new page value, and the background is lost.\nIf I FixSays() as soon as oPage is updated, when clicking the \"Next\" button, the program ends without any error log.\n\nEventually, is it possible to put those says into a buttonbar instead of using an oSay object ?\n\nHi,\nDavide.','',0,'gA==','2oic8w5n',1,0,'',487,0,0),(10671,2475,6,2,0,'87.218.146.52',1143909194,1,0,1,1,1,1,'','','Marllon,\n\nSí, por lo visto la propiedad \"VBE\" no es accesible ahora.','',0,'gA==','w16j2t0a',1,0,'',2,0,0),(10672,2482,6,2,0,'87.218.146.52',1143909646,1,0,1,1,1,1,'','','Alvaro,\n\nAqui tienes unos ejemplos que en su día preparamos para un usuario de FWH:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e6f67551/ejemplo.zip.html\">http://hyperupload.com/download/02e6f67 ... o.zip.html</a><!-- m -->','',0,'gA==','2a5wenei',1,0,'',2,0,0),(10673,2393,3,2,0,'87.218.146.52',1143909867,1,0,1,1,1,1,'','','Davide, \n\nYou can call FixSays() just once.','',0,'gA==','epi6m4b1',1,0,'',2,0,0),(10674,2477,3,15,0,'203.73.91.145',1143910553,1,0,1,1,1,0,'','','Hello\n\nI have a solution for it. Include Hardware and Library file.\nIt\'s working within MySQL and ADS database.\nBut my hardware factory in the Korea.\n\nRegards,\n\nRichard','',0,'gA==','27o6x1b6',1,0,'',15,0,0),(10675,2393,3,2,0,'87.218.146.52',1143912255,1,0,1,1,1,1,'','','Davide,\n\nWe sent you an enhanced rpreview.prg by email, so you can test it.','',0,'gA==','19i3htb5',1,0,'',2,0,0),(10676,2475,6,226,0,'201.22.211.242',1143913642,1,0,1,1,1,1,'','','Antonio,\n\no que eu devo fazer para solucionar isto.?\n\nminha intenção é a partir da minha app abrir o Word na minha propria janela, abrir um documento e fazer as alterações necessarias no mesmo... tudo automaticamente..\n\nMarllon','',0,'gA==','jul1g40r',1,0,'',226,0,0),(10677,2482,6,511,0,'201.248.65.240',1143913935,1,0,1,0,1,0,'','','Antonio,\n\nCon el ejemplo me funciona pero si utilizo EMPTY( algo ) el compilador me muestra: Error: Unresolved external \'_HB_FUN_EMPTY\' y si creo la funcion dummy FUNCTION EMPTY(); RETURN NIL el linker me muestra Error E0008  Redefinition of predefined function EMPTY: \'EMPTY\'. Como puedo solucionar esto, gracias\n\nSaludos','',0,'gA==','262ixwo8',1,0,'',511,0,0),(10678,2475,6,2,0,'87.218.146.52',1143916385,1,0,1,1,1,1,'','','Marllon,\n\nVikthor tiene desarrollada la clase TWord. Vamos a pedírsela para publicarla aqui y que sea accesible a todos los usuarios.','',0,'gA==','24dt3g7z',1,0,'',2,0,0),(10679,2475,6,2,0,'87.218.146.52',1143916868,1,0,1,1,1,1,'','','Marllon,\n\nEsta es la clase TWord, aunque no se si es la versión más reciente:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0255fbc124/tword.zip.html\">http://hyperupload.com/download/0255fbc ... d.zip.html</a><!-- m -->','',0,'gA==','zz69v6mg',1,0,'',2,0,0),(10680,2482,6,2,0,'87.218.146.52',1143917220,1,0,1,1,1,1,'','','Alvaro,\n\nPrueba a añadir esto a tu PRG a ver si te sirve:\n[code:71shxz4r]\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; EMPTY &#41;\n&#123;\n&#125;\n\n#pragma ENDDUMP\n[/code:71shxz4r]','',0,'AIA=','71shxz4r',1,0,'',2,0,0),(10681,2481,2,9,0,'85.59.186.173',1143919487,1,0,1,1,1,0,'','','Antonio, \n\nEn primer lugar, muchas gracias por contestar. \n\nHe realizado el cambio que me indicas y no funciona. Te acompaño el módulo de samples teststyl.prg, con las modificaciones que he hecho y que no pita:\n\n// Using alternatives window styles sample\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oWnd, oIco\n\n DEFINE ICON oIco FILENAME \"..\\icons\\Customer.ico\"\n\n DEFINE WINDOW oWnd FROM 8, 8 TO 20, 40 ;\n      TITLE \"Testing Style Clause in Dialogs\" ;\n      ICON oIco ;\n      STYLE nor (WS_POPUP,    WS_CAPTION,WS_MINIMIZEBOX,WS_MAXIMIZEBOX)\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\nreturn nil\n\nUn saludo','',0,'AIA=','1h7q2hki',1,0,'',9,0,0),(10682,2482,6,511,0,'201.248.65.240',1143920092,1,0,1,0,1,0,'','','Antonio,\n\nSi funciona!, gracias, pero tuve que incuir todas las funciones internas que invoca el DLL (dbselectarea, dbgotop, eof, memoline, space, etc,) en BEGINDUMP, es esto normal o estoy haciendo algo mal. Sea como sea ya esta funcionando, gracias.\n\nSaludos','',0,'AIA=','1bwomok5',1,0,'',511,0,0),(10683,2482,6,2,0,'87.218.146.52',1143925718,1,0,1,1,1,1,'','','Alvaro,\n\nEs correcto y me alegro de que funcione bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1rlauf6z',1,0,'',2,0,0),(10684,2481,2,2,0,'87.218.146.52',1143926200,1,0,1,1,1,1,'','','Manuel,\n\nEs WS_SYSMENU en vez de WS_POPUP. Mi error <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1nv6bru0',1,0,'',2,0,0),(10685,2445,6,2,0,'87.218.146.52',1143926875,1,0,1,1,1,1,'','','Alvaro,\n\nEsta clase permite múltiples barras de botones:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0191b6fb90/multibar.zip.html\">http://hyperupload.com/download/0191b6f ... r.zip.html</a><!-- m -->','',0,'AIA=','2ib8r81k',1,0,'',2,0,0),(10686,2484,3,49,0,'87.6.179.205',1143927355,1,0,1,1,1,1,'','ask me UUID.lib ???','I formatted my hard disk \nI installed windows xp professional and an antivirus\nthen I installed on a directory ( work) fivewin for harbour(fwh) xharbour and xmate , and bcc55 \nNow when I try to compiled my programs the Ilink32 ask me UUId .lib \nWhy ?\n[code:2ep3btt8]iLink32&#46;Exe -Gn -aa -Tpe -s @maga32&#46;bcl\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nFatal&#58; Unable to open file \'UUID&#46;LIB\'\n[/code:2ep3btt8]\nHow I can make to resolve it ?','',0,'AIA=','2ep3btt8',1,0,'',49,0,0),(10687,2484,3,2,0,'87.218.146.52',1143928128,1,0,1,1,1,1,'','','Silvio,\n\nHere you have it:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0283449122/uuid.lib.html\">http://hyperupload.com/download/0283449 ... d.lib.html</a><!-- m -->','',0,'AIA=','x6vuaebv',1,0,'',2,0,0),(10688,2485,17,2,0,'87.218.146.52',1143928306,1,0,1,1,1,1,'','dbwide.com.ar files / ficheros','Excelente reemplazo de la clase original de FiveWin, sin dudas uno de los más rápidos browsers para visualizar grandes cantidades de registros. Ahora 100% compatible con Clipper y [x]Harbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0275445310/twbrowse.zip.html\">http://hyperupload.com/download/0275445 ... e.zip.html</a><!-- m --> 153.2 KB 16/04/2003','',0,'','3ozkfvh0',1,0,'',2,0,0),(10689,2485,17,2,0,'87.218.146.52',1143928535,1,0,1,1,1,1,'','CLASS TsBrowse() - VER 6.0','Cuando necesites presentar o editar datos con muy buena calidad visual, sin dudas utilizarás este browse, implementando columnas individuales como su antecesor, el TcBrowse() (incluye los BugFix). Incluye las librerías generadas para Harbour y xHarbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/013a256b18/tsbrowse.zip.html\">http://hyperupload.com/download/013a256 ... e.zip.html</a><!-- m --> 478.8 KB 16/04/2003','',0,'','e3fvlcu0',1,1143928833,'',2,1,0),(10690,2485,17,2,0,'87.218.146.52',1143928695,1,0,1,1,1,1,'','CLASS TsButton() - VER 4.0','Varios tipos de Buttons en una sola Clase que permiten obtener excelentes resultados visuales en nuestras aplicaciones. Incluye las librerías generadas para Harbour y xHarbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ddb7b291/tsbutton.zip.html\">http://hyperupload.com/download/02ddb7b ... n.zip.html</a><!-- m --> 230.7 KB 16/04/2003','',0,'','2xcd2kbt',1,0,'',2,0,0),(10691,2485,17,2,0,'87.218.146.52',1143929671,1,0,1,1,1,1,'','CLASS TBtnGet() - VER 1.4.6','Esta excelente Clase de Buttons es sin dudas una de las librerías de terceros más utilizadas por los desarrolladores.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d5c48924/btnget-1-4-6.zip.html\">http://hyperupload.com/download/01d5c48 ... 6.zip.html</a><!-- m -->','',0,'','3q0et7q8',1,0,'',2,0,0),(10692,2485,17,2,0,'87.218.146.52',1143929890,1,0,1,1,1,1,'','LIB TDbf() - VER 12k','La más potente y segura librería para la manipulación de Bases de Datos, Indices, Campos y Registros. Con soporte para la mayoría de los drivers del mercado. Funciona en Clipper, Harbour, xHarbour con o sin FW/FWH. Ahora con soporte para TxBrowse.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e698e729/tdbf.zip.html\">http://hyperupload.com/download/02e698e ... f.zip.html</a><!-- m --> 248.9 KB 16/04/2003','',0,'','3upxswr7',1,0,'',2,0,0),(10693,2481,2,9,0,'85.59.186.173',1143930004,1,0,1,1,1,0,'','','Antonio, sigue sin funcionar.- Ahora sale el icono, pero no desactiva la \"x\" de cerrar. Es como si no pusiera ningun Style. Este es el código:\n\n// Using alternatives window styles sample \n\n#include \"FiveWin.ch\" \n\nfunction Main() \n\nlocal oWnd, oIco \n\nDEFINE ICON oIco FILENAME \"..\\icons\\Customer.ico\" \n\nDEFINE WINDOW oWnd FROM 8, 8 TO 20, 40 ; \nTITLE \"Testing Style Clause in Dialogs\" ; \nICON oIco ; \nSTYLE nor (WS_SYSMENU, WS_CAPTION,WS_MINIMIZEBOX,WS_MAXIMIZEBOX) \n\nACTIVATE WINDOW oWnd MAXIMIZED \nreturn nil','',0,'','2wgwe6gu',1,0,'',9,0,0),(10694,2486,16,2,0,'87.218.146.52',1143930333,1,0,1,1,1,1,'','Harbour &amp; xHarbour builds','March 2006 (same as february 2006)\n\nHarbour - Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/016ece0f64/harbour.EXE.html\">http://hyperupload.com/download/016ece0 ... r.EXE.html</a><!-- m -->\n\nHarbour - Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028519d287/harbourm.EXE.html\">http://hyperupload.com/download/028519d ... m.EXE.html</a><!-- m -->\n\nxHarbour - Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0141caf078/xharbour.EXE.html\">http://hyperupload.com/download/0141caf ... r.EXE.html</a><!-- m -->\n\nxHarbour - Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/020293b480/xharbourm.EXE.html\">http://hyperupload.com/download/020293b ... m.EXE.html</a><!-- m -->','',0,'','3byequ03',1,0,'',2,0,0),(10695,2481,2,2,0,'87.218.146.52',1143931080,1,0,1,1,1,1,'','','Manuel,\n\nPuedes desactivar la \"X\" usando un WHEN .f.\n\nComo prevees que salga el usuario de esa ventana ?','',0,'','5xfmdbli',1,0,'',2,0,0),(10696,2485,17,2,0,'87.218.146.52',1143931330,1,0,1,1,1,1,'','DLL FwCtrls - VER 1.14.0.1','Es la DLL que todo desarrollador que utiliza Borland Resource Worshop debe tener instalada. Al instalarla se agregan al RWS las clases más utilizadas en dbwide.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02faad3f67/fwctrls-1-14-0-1.zip.html\">http://hyperupload.com/download/02faad3 ... 1.zip.html</a><!-- m --> 19.5 KB','',0,'','2x1k47ia',1,0,'',2,0,0),(10697,2485,17,2,0,'87.218.146.52',1143931453,1,0,1,1,1,1,'','CLASS TMutex()','Simple y sencilla clase que permite entre otras cosas, avisarle a programas instaladores si una versión anterior de la aplicación a instalar está corriendo en ese momento. Ahora funciona también en FWH, gracias a la modificación realizada por Gerry Baerken.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0162bf9f37/tmutex.zip.html\">http://hyperupload.com/download/0162bf9 ... x.zip.html</a><!-- m --> 3.7 KB  24/09/2002','',0,'','2y7h6n0r',1,0,'',2,0,0),(10698,2485,17,2,0,'87.218.146.52',1143931624,1,0,1,1,1,1,'','CLASS TSLines() - VER 1.0','Esta clase permite dibujar líneas o rectangulos en la pantalla con mucha facilidad, hasta podemos redondear los vertices de los rectangulos.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028b347499/tslines.zip.html\">http://hyperupload.com/download/028b347 ... s.zip.html</a><!-- m --> 27.2 KB','',0,'','qvd66uqg',1,0,'',2,0,0),(10699,2485,17,2,0,'87.218.146.52',1143931715,1,0,1,1,1,1,'','CLASS TWCapture() - VER 1.0','Necesitas capturar la ventana de una aplicación externa ?, pues bien utiliza esta Clase y controla la aplicación externa como si de tu programa se tratara.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/012fe51f35/wcapture.zip.html\">http://hyperupload.com/download/012fe51 ... e.zip.html</a><!-- m --> 2.9 KB','',0,'','2ogj832v',1,0,'',2,0,0),(10700,2485,17,2,0,'87.218.146.52',1143931800,1,0,1,1,1,1,'','DLL/FUNCTIONS FWShell()','Tres super funciones: GetSpecPath() para obtener el Path de una carpeta especial de Windows, CreateLink() para crear un Link en Windows, y CreateFolder() para crear un Folder en Windows.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0159e21295/fwshell.zip.html\">http://hyperupload.com/download/0159e21 ... l.zip.html</a><!-- m --> 24.3 KB','',0,'','1l2rbhvi',1,0,'',2,0,0),(10701,2485,17,2,0,'87.218.146.52',1143931883,1,0,1,1,1,1,'','CLASS TPublic() - VER 2.2b','Clase para reemplazar las variables PUBLIC\'s usando un objeto definido como STATIC.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b3895339/tpublic.zip.html\">http://hyperupload.com/download/01b3895 ... c.zip.html</a><!-- m --> 2.6 KB','',0,'','181okwqi',1,0,'',2,0,0),(10702,2485,17,2,0,'87.218.146.52',1143931990,1,0,1,1,1,1,'','FUNCTION FlashWinTimer() - VER 1.0','Esta función nos permite hacer que una Window o Dialog titile (flash), muy util para cuando nuestra aplicación queda cubierta por otra ventana.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d631a033/flashwindow.zip.html\">http://hyperupload.com/download/02d631a ... w.zip.html</a><!-- m --> 1.8 KB','',0,'','1gowr975',1,0,'',2,0,0),(10703,2445,6,511,0,'201.248.65.240',1143938826,1,0,1,0,1,0,'','','Antonio,\n\nYa hice pruebas con esta clase de Alejandro Cebolido pero no funciona a la primera con FWH. Alejandro utiliza las clases TBar y TBtnBmp y crea dos clases TBTN y TBTNBAR. Yo la utilizo con Fw/Blinker y funciona de maravilla pero no la he podido poner a funcionar con FWH por eso queria saber si ya existia algo, de lo contrario me voy a dedicar a adaptarla y luego te aviso, gracias.\n\nSaludos','',0,'','1o2l2hvc',1,0,'',511,0,0),(10704,2487,6,492,0,'201.127.102.230',1143942376,1,0,1,1,1,0,'','Error en CheckBox con el metodo SetText','Antonio, al usar el metodo SetText en un CheckBox, manda un mensaje de error, lo bueno del asunto es que checando otros post, encontre uno parecido que FGONDI expresaba, y que el compañero BIEL EA6DD comentaba incluir la linea : DEFAULT ::lTransparent := .f.\n\ny se arregla, lo comento, por si a alguien tambien le pasa.','',0,'','1nyz6u1x',1,0,'',492,0,0),(10705,2487,6,492,0,'201.127.102.230',1143942477,1,0,1,1,1,0,'','','Perdon, se me paso anexar que sucede con el FWH27 de Marzo 2006  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'','2o3qkqbz',1,0,'',492,0,0),(10706,2488,7,78,0,'200.121.182.130',1143949929,1,0,1,1,1,0,'','FWPocket en red,,,,','Hola Antonio...\nTengo la posibilidad de hacer un software en FWPocket, pero debo aclarar algunas dudas,,,\n1.- Es posible FWP pueda acceder a un servidor via IP o Infrarojos?\n2.- De ser posible, que modelo de equipo es recomendable?\nLa idea, es hacer un software que permita hacer los pedidos dentro de una area cerrada,,,\nGracias por tu respuesta\nSalu2','',0,'','1t53ptwn',1,0,'',78,0,0),(10707,2481,2,9,0,'85.59.186.173',1143954171,1,0,1,1,1,0,'','','Antonio, \n\nFuncionó con IF VALID.-\n\nMuchas gracias.','',0,'','12yeva9w',1,0,'',9,0,0),(10708,2488,7,2,0,'87.218.146.52',1143958742,1,0,1,1,1,1,'','','Willy,\n\n&gt; 1.- Es posible FWP pueda acceder a un servidor via IP o Infrarojos? \n\nSí, via IP es lo habitual, por wifi. \n\n&gt; 2.- De ser posible, que modelo de equipo es recomendable? \n\nLos más recomendables son los que lleven un micro intel PXA... u otro que sea compatible con arquitectura ARM.','',0,'','3g0niabu',1,0,'',2,0,0),(10709,2487,6,2,0,'87.218.146.52',1143959062,1,0,1,1,1,1,'','','Ray,\n\nArreglado. Gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3258z3sf',1,0,'',2,0,0),(10710,2485,17,2,0,'87.218.146.52',1143959260,1,0,1,1,1,1,'','FUNC Mg_Widx() - v2.03','Práctico y funcional procedimiento para la reindexación de las Bases de datos de un sistema.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01f59d6b52/mgidx.zip.html\">http://hyperupload.com/download/01f59d6 ... x.zip.html</a><!-- m --> 377.8 KB','',0,'','22yxmvjv',1,0,'',2,0,0),(10711,2485,17,2,0,'87.218.146.52',1143959358,1,0,1,1,1,1,'','FUNC AnimBmp()','Función para generar una animación de Bmp\'s en la Barra de Mensajes.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0280c81587/anibmp.zip.html\">http://hyperupload.com/download/0280c81 ... p.zip.html</a><!-- m --> 9.0 KB','',0,'','33vl7g4l',1,0,'',2,0,0),(10712,2485,17,2,0,'87.218.146.52',1143959452,1,0,1,1,1,1,'','CLASS TBorlBtn()','Clase para la implementación de Botones con estilo Borland.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0163183651/borlbtn.zip.html\">http://hyperupload.com/download/0163183 ... n.zip.html</a><!-- m --> 19.4 KB','',0,'','32ud7alh',1,0,'',2,0,0),(10713,2485,17,2,0,'87.218.146.52',1143959529,1,0,1,1,1,1,'','APP Chat for FW/FWH - Beta 1','Completa implementación de un Chat Cliente/Servidor para redes locales usando la clase TSocket.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01a9d77080/chat.zip.html\">http://hyperupload.com/download/01a9d77 ... t.zip.html</a><!-- m --> 41.1 KB','',0,'','tqizhzul',1,0,'',2,0,0),(10714,2485,17,2,0,'87.218.146.52',1143959605,1,0,1,1,1,1,'','PROC CtrlAltDel()','Util función para activar/desactivar el uso de  CTRL + ALT + DEL.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b1279518/ctrlaltdel.zip.html\">http://hyperupload.com/download/01b1279 ... l.zip.html</a><!-- m --> 0.8 KB','',0,'','1v183iox',1,0,'',2,0,0),(10715,2485,17,2,0,'87.218.146.52',1143959731,1,0,1,1,1,1,'','LIB dbLFN - v0.05','Librería para soporte de Nombres Largos en aplicaciones Clipper Nativas y FiveWin 1.9.2. No funciona bajo NT/2K/XP.\n    Incluido en el ZIP una modificación en un C/OBJ para poder habilitar/deshabilitar el soporte de nombres largos.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c6ddd527/dblfn005.zip.html\">http://hyperupload.com/download/02c6ddd ... 5.zip.html</a><!-- m --> 35.1 KB','',0,'','16jockvd',1,0,'',2,0,0),(10716,2485,17,2,0,'87.218.146.52',1143959860,1,0,1,1,1,1,'','LIB DButtons (TBtnBmp)','Librería para la implementación de botones del estilo Delphi. Versión original y también versiones para FW hasta la versión 2.0 y para la 2.1 en adelante, debido al cambio en una función interna de FiveWin.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/013c0e0d97/delfibtn.zip.html\">http://hyperupload.com/download/013c0e0 ... n.zip.html</a><!-- m --> 13.3 KB','',0,'','1o60zrno',1,0,'',2,0,0),(10717,2485,17,2,0,'87.218.146.52',1143959974,1,0,1,1,1,1,'','CLASS TDSay() - Dynamic Say Controls','Clase que implementa un Control SAY Dinamico.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01690c4b86/dsay.zip.html\">http://hyperupload.com/download/01690c4 ... y.zip.html</a><!-- m --> 5.9 KB\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/019cc58952/dsay_fw192.zip.html\">http://hyperupload.com/download/019cc58 ... 2.zip.html</a><!-- m --> 5.4 KB','',0,'','21sxvzzd',1,0,'',2,0,0),(10718,2485,17,2,0,'87.218.146.52',1143960073,1,0,1,1,1,1,'','FUNC GetLocalDrives() / GetDriveType()','Dos muy buenas funciones utilizando las API\'s de Windows. GetLocalDrives() devuelve un arreglo con los drives presentes, y GetDriveType() no retorna el tipo de drive consultado.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/016e521c60/getdrive.zip.html\">http://hyperupload.com/download/016e521 ... e.zip.html</a><!-- m --> 1.1 KB','',0,'','3p8mx66e',1,0,'',2,0,0),(10719,2485,17,2,0,'87.218.146.52',1143960158,1,0,1,1,1,1,'','FUNC Random Bmp / Random Texture','Dos muy buenas funciones para crear al azar bitmaps o texturas para nuestra aplicación.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/019d9dd773/randombmp.zip.html\">http://hyperupload.com/download/019d9dd ... p.zip.html</a><!-- m --> 1.8 KB','',0,'','2uqtkaws',1,0,'',2,0,0),(10720,2485,17,2,0,'87.218.146.52',1143960259,1,0,1,1,1,1,'','CLASS TSSay() - Sensitive Say Control','El SAY trasparente para Dialogs/Windows con Bitmap de fondo. Una excelente clase que te brinda una variedad de efectos.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0240ae3b37/ssay.zip.html\">http://hyperupload.com/download/0240ae3 ... y.zip.html</a><!-- m --> 373.0 KB','',0,'','21hgndk3',1,0,'',2,0,0),(10721,2485,17,2,0,'87.218.146.52',1143960338,1,0,1,1,1,1,'','CLASS TArray(hDC)','Una clase que te permite manipular los arreglos de CA-Clipper. Contiene las modificaciones realizadas por Enrique Guerra (Quique).\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01636c9525/tarray.zip.html\">http://hyperupload.com/download/01636c9 ... y.zip.html</a><!-- m --> 8.9 KB','',0,'','22ezuntf',1,0,'',2,0,0),(10722,2485,17,2,0,'87.218.146.52',1143960409,1,0,1,1,1,1,'','CLASS TPif()','Clase que te permite crear desde FiveWin archivos PIF de Windows.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02a4f76d79/tpif.zip.html\">http://hyperupload.com/download/02a4f76 ... f.zip.html</a><!-- m --> 3.2 KB','',0,'','2i5spzyq',1,0,'',2,0,0),(10723,2485,17,2,0,'87.218.146.52',1143960497,1,0,1,1,1,1,'','CLASS TSeekInc() - v2.3','Clase para busquedas incrementales en Browsers. Basado en la función SeekInc() del Ing. Mario González.\n    Implementada búsqueda en multiples indices/columnas (Mario González).\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018d36a714/tseekinc.zip.html\">http://hyperupload.com/download/018d36a ... c.zip.html</a><!-- m --> 244.3 KB','',0,'','18aind61',1,0,'',2,0,0),(10724,2489,17,2,0,'87.218.146.52',1143960670,1,0,1,1,1,1,'','Utilidades tipo DBU','PROMETHEUS Release 2.00.32 - 01/12/2002\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0150de4a98/dbwsetup.zip.html\">http://hyperupload.com/download/0150de4 ... p.zip.html</a><!-- m --> 1165.0 KB','',0,'','1s5g5n6k',1,0,'',2,0,0),(10726,2490,3,160,0,'210.212.142.91',1143961182,1,0,1,1,1,0,'','what are possible Pen styles and their numbers for Pen Obj ?','Hello All,\n\nwhat are the possible Pen styles and their numbers TO be Used WITH Pen OBJECT ?\n\nTIA\nMilan.','',0,'','20ujom8j',1,0,'',160,0,0),(10727,2491,2,375,0,'84.122.119.188',1143971221,1,0,1,1,1,1,'','Barra de Titulos Windows','Tengo un pequeño problema que no sé si se puede solucionar.\nResulta que programo con Windows Me, pero mi ultima aplicación tiene que correr en XP. Claro, como es FW 16 Bits los windows/dialogs tienen aspecto de windows 95/98/Me con una pequeña pega, la barra de títulos, en Xp, aparece más gruesa que en los demás Windows con lo que me descuadra toda la visualización (la parte de abajo del windows se pierde detrás de la barra de estado). \n¿Hay forma de variar el tamaño de la barra de títulos?\nMe dirán: cambia la disposición de los controles de la pantalla. Pero el cliente también trabaja con Windows 98 en otro ordenador, y entonces sobra espacio por abajo. Lo ideal es establecer el \'nHeight\' de la barra de títulos en una cantidad concreta, si fuese posible.\n\nGracias','',0,'','39faf1eg',1,0,'',375,0,0),(10728,2492,6,23,0,'62.87.127.9',1143973397,1,0,1,1,1,1,'','TDosPrint y detectar estado de la impresora','Buenasssss gente.\nVereis uso tdosprint para imprimir en impresoras de tiquets, el tema es que cuando la impresora no responde (apagada, sin papel, etc...) se me cuelga la aplicación.\nHay forma de averiguar el estado de la impresora antes de lanzar el tdosprint?, generalmente la impresora esta conectada por el puerto paralelo.\n\nGracias.\nUn saludo\nAngel Salom\n<!-- e --><a href=\"mailto:angel@sigev.com\">angel@sigev.com</a><!-- e -->\n\nFWH2.7+Harbour+BCC','',0,'','2hyoj9ym',1,0,'',23,0,0),(10729,2393,3,487,0,'151.42.228.135',1143973978,1,0,1,1,1,0,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:3gvdkehr]We sent you an enhanced rpreview.prg by email, so you can test it.[/quote:3gvdkehr]\nok, it works. Basically, FixSays() is needed only once, after all the says has been defined, while only oBar:Refresh() should be applied each time an oSay object is redefined.\nFor the future FWH version, please note that your rpreview.prg is still doing a SetBrush() after the first oSay definition, which I think it should be no more needed.\n\nThank you.\nDavide.\n\nP.S.: BTW, is it possible to put a text inside a buttonbar instead/in addition to the image ?','',0,'gA==','3gvdkehr',1,0,'',487,0,0),(10730,2393,3,2,0,'87.218.146.52',1143976046,1,0,1,1,1,1,'','','Davide,\n\n&gt;\nBTW, is it possible to put a text inside a buttonbar instead/in addition to the image ?\n&gt;\n\nYes, but the problem is that Windows automatically calculates the width required for the text and assigns the same width to all the buttons.','',0,'gA==','208wpner',1,0,'',2,0,0),(10731,2490,3,2,0,'87.218.146.52',1143976200,1,0,1,1,1,1,'','','Milan,\n\nFrom the Window API docs: (search for these defines at bcc55\\include)\n\nThe CreatePen function creates a logical pen that has the specified style, width, and color. The pen can subsequently be selected into a device context and used to draw lines and curves. \n\nHPEN CreatePen(\n\n    int fnPenStyle,	// pen style \n    int nWidth,	// pen width  \n    COLORREF crColor 	// pen color \n   );	\n\nParameters\n\nfnPenStyle\n\nSpecifies the pen style. It can be any one of the following values: \n\nStyle	Description\nPS_SOLID	Pen is solid.\nPS_DASH	Pen is dashed. This style is valid only when the pen width is one or less in device units.\nPS_DOT	Pen is dotted. This style is valid only when the pen width is one or less in device units.\nPS_DASHDOT	Pen has alternating dashes and dots. This style is valid only when the pen width is one or less in device units.\nPS_DASHDOTDOT	Pen has alternating dashes and double dots. This style is valid only when the pen width is one or less in device units.\nPS_NULL	Pen is invisible.\nPS_INSIDEFRAME	Pen is solid. When this pen is used in any graphics device interface (GDI) drawing function that takes a bounding rectangle, the dimensions of the figure are shrunk so that it fits entirely in the bounding rectangle, taking into account the width of the pen. This applies only to geometric pens.\n \nnWidth\n\nSpecifies the width of the pen, in logical units. If nWidth is zero, the pen is a single pixel wide, regardless of the current transformation. \n\ncrColor\n\nSpecifies a color reference for the pen color.','',0,'gA==','32l27jaw',1,0,'',2,0,0),(10732,2491,2,2,0,'87.218.146.52',1143976548,1,0,1,1,1,1,'','','Manu,\n\nLa altura del \'caption\' puedes obtenerla con la función GetSystemMetrics(), pasándole el parámetro adecuado.\n\nPara cambiar dicha altura en principio no hay ninguna función (no existe una función SetSystemMetrics), sino que se hace pulsando el botón derecho en el escritorio, propiedades, etc. Tal vez el valor esté guardado en un valor del registro y ahí si pueda cambiarse directamente, pero lo cambiarías para todas las ventanas de Windows.','',0,'gA==','2b9g59pc',1,0,'',2,0,0),(10733,2393,3,487,0,'151.42.228.135',1143976580,1,0,1,1,1,0,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:yh7hb81w]Davide,\n\n&gt;\nBTW, is it possible to put a text inside a buttonbar instead/in addition to the image ?\n&gt;\n\nYes, but the problem is that Windows automatically calculates the width required for the text and assigns the same width to all the buttons.[/quote:yh7hb81w]\nUhm, I understand. And what about placing those buttons into an additional toolbar on the same Window ?\nBTW, is there any sample about a button with text ?','',0,'gA==','yh7hb81w',1,0,'',487,0,0),(10734,2393,3,2,0,'87.218.146.52',1143976781,1,0,1,1,1,1,'','','Davide,\n\nThe solution would be to use a TReBar and use several toolbars. One with the combobox, and another with one single button with the text and no image.\n\nYou may review samples\\ToolBar1.prg and ToolBar2.prg.','',0,'gA==','afgoccry',1,0,'',2,0,0),(10735,2393,3,487,0,'151.42.228.135',1143977895,1,0,1,1,1,0,'','','Antonio,\n\n&gt; You may review samples\\ToolBar1.prg and ToolBar2.prg.\n\nthank you. I don\'t know why I didn\'t find them before!.\n\nHi,\nDavide.','',0,'gA==','2m097grh',1,0,'',487,0,0),(10736,133,1,190,0,'202.65.134.45',1143983358,1,0,1,1,1,0,'','','Mr.Dutch\n\nCan I get a copy of DMTwain.dll.\n\nPlease send it to:  [u:22cym44d]aksharasoft@hotmail.com[/u:22cym44d]\n\nTIA\n\n- Ramesh Babu P','',0,'AQ==','22cym44d',1,0,'',190,0,0),(10737,2492,6,511,0,'201.248.65.240',1143985366,1,0,1,0,1,0,'','','Hola Angel,\n\nYo utilizo en fw/blinker prnstat, pero en fwh no funciona, te anexo el fuente yo no conozco C, si lo puedes poner a funcionar por favor me lo envias. El uso es muy simple unicamente enlazas el OBJ y antes de imprimir e invocas PRNSTAT( 1 ) y te devuelve .T./.F.\n\nSaludos','',0,'AQ==','37j3kffe',1,0,'',511,0,0),(10738,2493,3,281,0,'219.251.175.150',1143985704,1,0,1,1,1,1,'','How we must do if we see the dvd.','Hi all.\n\nHow do you see a MPEG file which the DVD increases even though it goes well ?\n\n\nDVD Control method ?\n\n\n\n\n/*--------------MPEG Player----------*/\nFUNCTION MAIN()\n\npubl oDlg, oVideo, oTimer\n\nDEFINE DIALOG oDlg\n\n    @ 1, 0 VIDEO oVideo FILE \"d:\\test.mpg\" MPG\n\n    @0, 0 SAY oSay Prompt oVideo:Position()\n\n    DEFINE TIMER oTimer;\n           INTERVAL 100;\n           ACTION IF( oVideo:Position() = oVideo:Length(), oDlg:End()  )\n\n    oDlg:bStart = { || oTimer:hWndOwner := oDlg:hWnd, oTimer:Activate(), oVideo:PlayFull() }\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    oTimer:End()\n\n    RETURN NIL','',0,'AQ==','a384kcos',1,1144000368,'',281,1,0),(10739,2494,3,497,0,'212.127.159.218',1143985776,1,0,1,0,1,0,'','Trying to compile Testrtf.prg','I compiled \\Fwh\\Samples\\Testrtf.prg with xHarbour Builder and got messages of \nMacro redefinitions out of xRc: \\Fwh\\Include\\Winapi.ch\n\ndeleting #include \"\\Fwh\\include\\winapi.ch\" in Testrtf.rc gives no result at all after compiling.\n\nWhat can be wrong?\n\nJules de Pierre','',0,'AQ==','1fnrjlpb',1,0,'',497,0,0),(10740,2492,6,511,0,'201.248.65.240',1143987113,1,0,1,0,1,0,'','','ooopsss, no lo puse\n\n#include &lt;ClipApi.h&gt;\n\nCLIPPER PRNSTATUS() // nPort (LPT1 = 1, LPT2 = 2, ...)\n{\n   int Port = IF( PCOUNT() == 0, 0, _parni( 1 ) - 1);\n   unsigned char iRetVal = 0;\n\n   asm {\n         mov   ah, 02h\n         mov   dx, Port\n         int   17h\n         mov   iRetVal, ah\n       }\n\n   _retl( iRetVal == 0x90 );\n}\n\nSaludos','',0,'AQ==','3da2u5zw',1,0,'',511,0,0),(10741,2492,6,2,0,'87.218.146.52',1143987490,1,0,1,1,1,1,'','','Alvaro,\n\n&gt; int 17h\n\nLas interrupciones (int) no se pueden usar en 32 bits.','',0,'AQ==','1t5fhfum',1,0,'',2,0,0),(10742,2492,6,511,0,'201.248.65.240',1143989647,1,0,1,0,1,0,'','','Antonio,\n\nNo conozco C, podrias por favor modificarla y generar un OBJ, o existe algo en FWH que funcione parecido, gracias.\n\nSaludos','',0,'AQ==','2ssedczv',1,0,'',511,0,0),(10743,2492,6,2,0,'87.218.146.52',1143990449,1,0,1,1,1,1,'','','Alvaro,\n\nTal vez esta pueda servir:\n[code:253xfc72]\nCLIPPER PRNSTATUS&#40; PARAMS &#41; // cPrinter or cPrinterServer --&gt; nStatus\n&#123;\n	 HANDLE hPrinter = NULL;\n	 DWORD cBytesNeeded = 0, cBytesUsed = 0, status = 0;\n   PRINTER_INFO_2 * pPrinterInfo = NULL;   	\n   \n   if&#40; OpenPrinter&#40; _parc&#40; 1 &#41;, &amp;hPrinter, NULL &#41; &#41;\n   &#123;\n      GetPrinter&#40; hPrinter, 2, NULL, 0, &amp;cBytesNeeded &#41;;\n      pPrinterInfo = &#40; PRINTER_INFO_2 * &#41; _xgrab&#40; cBytesNeeded &#41;;   		\n   	  GetPrinter&#40; hPrinter, 2, &#40; unsigned char * &#41; pPrinterInfo, cBytesNeeded, &amp;cBytesUsed &#41;;\n   	  _retnl&#40; pPrinterInfo-&gt;Status &#41;;\n   	  _xfree&#40; pPrinterInfo &#41;;\n      ClosePrinter&#40; hPrinter &#41;;\n   &#125;\n   else\n      _retnl&#40; PRINTER_STATUS_NOT_AVAILABLE &#41;;\n&#125;      		  \n[/code:253xfc72]\nEste es un ejemplo de uso:\n[code:253xfc72]\n#define PRINTER_STATUS_OK                       0\n#define PRINTER_STATUS_PAUSED                   1\n#define PRINTER_STATUS_ERROR                    2\n#define PRINTER_STATUS_PENDING_DELETION         4\n#define PRINTER_STATUS_PAPER_JAM                8\n#define PRINTER_STATUS_PAPER_OUT               16\n#define PRINTER_STATUS_MANUAL_FEED             32\n#define PRINTER_STATUS_PAPER_PROBLEM           64\n#define PRINTER_STATUS_OFFLINE                128\n#define PRINTER_STATUS_IO_ACTIVE              256\n#define PRINTER_STATUS_BUSY                   512\n#define PRINTER_STATUS_PRINTING              1024\n#define PRINTER_STATUS_OUTPUT_BIN_FULL       2048\n#define PRINTER_STATUS_NOT_AVAILABLE         4096\n#define PRINTER_STATUS_WAITING               8192\n#define PRINTER_STATUS_PROCESSING           16384\n#define PRINTER_STATUS_INITIALIZING         32768\n#define PRINTER_STATUS_WARMING_UP           65536\n#define PRINTER_STATUS_TONER_LOW           131072\n#define PRINTER_STATUS_NO_TONER            262144\n#define PRINTER_STATUS_PAGE_PUNT           524288\n#define PRINTER_STATUS_USER_INTERVENTION  1048576\n#define PRINTER_STATUS_OUT_OF_MEMORY      2097152\n#define PRINTER_STATUS_DOOR_OPEN          4194304\n#define PRINTER_STATUS_SERVER_UNKNOWN     8388608\n#define PRINTER_STATUS_POWER_SAVE        16777216\n\nfunction Main&#40;&#41;\n\n   local nStatus &#58;= PrnStatus&#40; &quot;LPT1&#58;&quot; &#41;\n\n   MsgInfo&#40; nStatus &#41;\n\nreturn nil\n[/code:253xfc72]\nY este es el OBJ a reemplazar en FiveHC.lib:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b93ba312/PRINTDC.obj.html\">http://hyperupload.com/download/01b93ba ... C.obj.html</a><!-- m -->','',0,'AIA=','253xfc72',1,0,'',2,0,0),(10744,2376,20,125,0,'213.140.6.112',1143990750,1,0,1,1,1,0,'','','Oooops!!\nNon so perche\' ma non avevo visto la differenza tra i vari esempi.\nScusa ci guardo subito\nCiao','',0,'AIA=','27svpvrl',1,0,'',125,0,0),(10745,2494,3,2,0,'87.218.146.52',1143991014,1,0,1,1,1,1,'','','Jules,\n\nPlease notice that xHB also provides a winapi.ch. You may rename xHB  winapi.ch into _winapi.ch.','',0,'AIA=','33rjq6al',1,0,'',2,0,0),(10746,2493,3,2,0,'87.218.146.52',1143991314,1,0,1,1,1,1,'','','Are you testing it on FWPPC ?','',0,'AIA=','25r04ibe',1,0,'',2,0,0),(10747,133,1,2,0,'87.218.146.52',1143991378,1,0,1,1,1,1,'','','Please use <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> to attach files here. Thanks.','',0,'AIA=','1340zm1q',1,0,'',2,0,0),(10748,2376,20,6,0,'87.10.10.157',1143991550,1,0,1,1,1,1,'','','Finalmente!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','2gk1x3d8',1,0,'',6,0,0),(10749,2492,6,23,0,'212.166.228.13',1143992985,1,0,1,1,1,1,'','','Fantástico maestro. Funcionó perfecto.','',0,'AIA=','2nm1q5lh',1,0,'',23,0,0),(10750,2492,6,511,0,'201.248.65.240',1143994954,1,0,1,0,1,0,'','','Antonio,\n\nFunciona perfecto, muchas gracias. Una pregunta, en un futuro esta funcion puede incluirse en FWH ?\n\nSaludos','',0,'AIA=','3jfsihop',1,0,'',511,0,0),(10751,2495,3,487,0,'151.38.75.66',1143994966,1,0,1,1,1,0,'','oPrn:ImportWMF()','Antonio,\n\nafter the last modification to ImportWMF() introduced with the March build, the function works ok in XP, either with WMF or with EMF files, but in Windows 98 both the file types are loaded incorrectly.\n\nPlease have a look at the modified corel.prg sample I\'ve sent to your private mailbox.\n\nThank you,\nDavide.','',0,'AIA=','3ooa11i8',1,0,'',487,0,0),(10752,2496,3,148,0,'82.201.237.163',1143996183,1,0,1,1,1,0,'','Scroll at Dialog Box','What can I do if my dialog window is not sufficient to read all variables. How can I add scroll to give it enough space to carry out the rest of my variables to be read ?','',0,'AIA=','1u7kjwpl',1,0,'',148,0,0),(10753,2492,6,23,0,'212.166.228.13',1143996640,1,0,1,1,1,1,'','','Parece que me precipité. Siempre me devuelve 4096, impresora no lista.\nEstaré haciendo algo mal o hay algun problema con la función???\nEs una impresora de tiquets conectada directamente al pc por lpt1','',0,'AIA=','d560h88j',1,0,'',23,0,0),(10754,2493,3,281,0,'219.251.175.150',1143997463,1,0,1,1,1,1,'','','No,\n\nI\'m FWH March version user and FWPPC user.\n\nThe FWH comes and is the user to use at the same time.\n\nFWH testing.....\n\nThe question is a FWH thing.','',0,'AIA=','39ancmrk',1,0,'',281,0,0),(10755,2497,4,289,0,'212.138.64.180',1143997698,1,0,1,1,1,0,'','the use camera with fwppc','To all \nI want the use camera with fwppc\ni testing with function SHCameraCapture \nBut lib aygshell.lib Not Good With ARM\ni Found aygshell.lib from Windows Mobile 5_0 SDK\nI would like Export aygshell.lib from aygshell.dll\nBut aygshell.dll Not Found with Any system ( evc &amp; Windows Mobile 5_0 SDK )\nregards, hathal','',0,'AIA=','ney826t4',1,0,'',289,0,0),(10757,2496,3,2,0,'87.218.146.52',1144003344,1,0,1,1,1,1,'','','Ehab,\n\nYou may use a folder. Please review samples\\TestFold.prg.\n\nScroll capability for dialogs is not implemented yet.','',0,'AIA=','2x123k45',1,0,'',2,0,0),(10759,2497,4,2,0,'87.218.146.52',1144003698,1,0,1,1,1,1,'','','Hathal,\n\nThe problem is that you can\'t copy a system DLL out of the Pocket PC in order to do an implib.exe aygshell.lib aygshell.dll. Its blocked by Windows Mobile API.\n\nPlease post here your code and we may try to help you.','',0,'AIA=','kix5p39b',1,0,'',2,0,0),(10760,2492,6,2,0,'87.218.146.52',1144003854,1,0,1,1,1,1,'','','Angel,\n\nEs una función nueva en pruebas, probablemente haya que modificarla.','',0,'AIA=','1qffc4g0',1,0,'',2,0,0),(10761,2495,3,2,0,'87.218.146.52',1144004277,1,0,1,1,1,1,'','','Davide,\n\nIn Class TPrinter Method ImportWMF() try these two possibilities:\n\n[code:37030bbl]\n   &#58;&#58;SetIsoTropicMode&#40;&#41;\n   &#58;&#58;SetWindowExt&#40; GetDeviceCaps&#40; &#58;&#58;hDC, HORZRES &#41;,;\n                   GetDeviceCaps&#40; &#58;&#58;hDC, VERTRES &#41; &#41;\n   &#58;&#58;SetViewPortExt&#40; GetDeviceCaps&#40; &#58;&#58;hDC, HORZRES &#41;,; \n                     GetDeviceCaps&#40; &#58;&#58;hDC, VERTRES &#41; &#41;\n[/code:37030bbl]\nor\n[code:37030bbl]\n   &#58;&#58;SetIsoTropicMode&#40;&#41;\n   &#58;&#58;SetWindowExt&#40; aData&#91; 1 &#93;, aData&#91; 2 &#93; &#41;\n   &#58;&#58;SetViewPortExt&#40; aData&#91; 1 &#93;, aData&#91; 2 &#93; &#41;\n[/code:37030bbl]','',0,'AIA=','37030bbl',1,0,'',2,0,0),(10762,2495,3,2,0,'87.218.146.52',1144004559,1,0,1,1,1,1,'','','Davide,\n\nIn XP if you double click on the EMF file, the XP graphics viewer reports that there is an error on the EMF file. Paint Shop Pro also refuses to open it.','',0,'AIA=','1w1t5d3d',1,0,'',2,0,0),(10763,2499,1,418,0,'83.153.45.143',1144004852,1,0,1,1,1,0,'','msginfo on network','Hi Fivewin experts\nI need to send a message and a beep  to an network user, which will open on his screen \nex: msginfo( \"Your next rendezvous is arrived\")\nHow can i make that?\nThanks for your help','',0,'AIA=','3cmuld83',1,0,'',418,0,0),(10764,2491,2,375,0,'84.122.119.188',1144006744,1,0,1,1,1,1,'','','Gracias Antonio, nos aguantaremos con lo que hay. Por ahora.','',0,'AIA=','1uvkfemh',1,0,'',375,0,0),(10765,2500,3,497,0,'212.127.159.218',1144008153,1,0,1,0,1,0,'','Error after installing FWH 2.7','After using FWH 2.7 for the first time I get an missing external error:\n\nhb_dynsymSymbol\n\nIs that due to FWH or maybe xHB which also is a new vesrsion (March)\n\nJules de Pierre','',0,'AIA=','2lprb5kr',1,0,'',497,0,0),(10766,353,6,439,0,'201.221.45.30',1144010686,1,0,1,1,1,0,'','Re: Clases TSCAN32, TVIDEO, TMCI, TCAPTURE','[quote=&quot;thefull&quot;:2yd25hpm]Hoy he hablado con Antonio Linares sobre estas clases, y desde aqui notifico que permito y hasta le aliento a Antonio Linares a incluir las clases que realice, ponerlas en Fivewin.\n\nDichas clases las realice para mi, y las done para toda la comunidad de Fivewin, asi , que me alegro si son incluidas en Fivewin, y si con ello \nlogramos ayudar a la gente, pues mucho mejor <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->[/quote:2yd25hpm]\n\n\nAntonio,\n\nMe encantaría poder acceder a estas clases pero no se a que dirección dirigirme, no están incluídas en FWH 2.7\n\nCrees que tu o TheFull puedan guiarme a la dirección para bajar estas clases?','',0,'gA==','2yd25hpm',1,0,'',439,0,0),(10767,2495,3,487,0,'151.38.116.249',1144010696,1,0,1,1,1,0,'','','Antonio,\n[quote:2dj6fiqi]In XP if you double click on the EMF file, the XP graphics viewer reports that there is an error on the EMF file. Paint Shop Pro also refuses to open it.[/quote:2dj6fiqi]\nI\'ve seen it. I\'ve created the EMF with OpenOffice, starting from the WMF one. In W98 they are both opened correctly with ACDSee.\nAnyway, I\'m particularly worried about the WMF, for backward compatibility. I\'ll try your suggestions and I\'ll let you know.\n\nThanks,\nDavide.','',0,'gA==','2dj6fiqi',1,0,'',487,0,0),(10768,2497,4,289,0,'212.138.64.174',1144010748,1,0,1,1,1,0,'','','OK this FULL SOURCE\n \n#include \"FWCE.ch\"\n //----------------------------------------------------------------------------//\nfunction Main()\n   local oWnd\n      DEFINE WINDOW oWnd TITLE \"TEST Cam \" \n  @5, 10 BUTTON \"TEST 1\" SIZE 80, 25 ACTION;\n  CAM_CE(oWnd,5)\n      ACTIVATE WINDOW oWnd\n  return nil\n  ********************************************************\n#pragma BEGINDUMP\n#include \"windows.h\"\n#include \"mmsystem.h\" \n#include \"hbapi.h\"\n#include \"uniqueid.h\"\n#include \"AYGSHELL.h\" // New Command With Windows Mobile 5_0 SDK\n// i Testing this to cam.obj ok\nLPWSTR AnsiToWide( LPSTR );\n HB_FUNC( CAM_CE )\n{\n// CameraCaptureExample(NULL,12);\n//}\n//  HRESULT\n//int CameraCaptureExample(HWND hwndOwner, LPTSTR pszFilename)\n// {\n    HRESULT         hResult;\n    SHCAMERACAPTURE shcc;\n    // Set the SHCAMERACAPTURE structure.\n    ZeroMemory(&amp;shcc, sizeof(shcc));\n    shcc.cbSize             = sizeof(shcc);\n//   shcc.hwndOwner          = hwndOwner;\n    shcc.hwndOwner          = ( HWND ) hb_parnl( 1 );\n    shcc.pszInitialDir      = TEXT(\"\\\\My Documents\");\n    shcc.pszDefaultFileName = TEXT(\"test.3gp\");\n    shcc.pszTitle           = TEXT(\"Camera Demo\");\n    shcc.VideoTypes         = CAMERACAPTURE_VIDEOTYPE_MESSAGING;\n    shcc.nResolutionWidth   = 176;\n    shcc.nResolutionHeight  = 144;\n    shcc.nVideoTimeLimit    = 15;\n    shcc.Mode               = CAMERACAPTURE_MODE_VIDEOWITHAUDIO;\n\n    // Display the Camera Capture dialog.\n    hResult = SHCameraCapture(&amp;shcc);\n\n    // The next statements will execute only after the user takes\n    // a picture or video, or closes the Camera Capture dialog.\n    if (S_OK == hResult)\n    {\n        // StringCchCopy(pszFilename, MAX_PATH, shcc.szFile);\n        StringCchCopy(AnsiToWide(hb_parc( 2 )), MAX_PATH, shcc.szFile);\n  // return TRUE;\n    }\n//    return TRUE;//hResult;\n}\n #pragma ENDDUMP','',0,'gA==','3mazvt5m',1,0,'',289,0,0),(10770,2484,3,49,0,'87.10.181.71',1144012705,1,0,1,1,1,1,'','','Antonio thanks but the UUId.lib is on bcc55\\lib directory and  xmate must found it there  but xmate not found it  why ?\nI try to compile with buildx ( buildx atree ) and the procedyre make error not found uuid.lib','',0,'gA==','27rj2u1p',1,0,'',49,0,0),(10771,2495,3,487,0,'151.38.116.249',1144014193,1,0,1,1,1,0,'','','Antonio,\n[code:2et0moer]\n   &#58;&#58;SetIsoTropicMode&#40;&#41;\n   &#58;&#58;SetWindowExt&#40; GetDeviceCaps&#40; &#58;&#58;hDC, HORZRES &#41;,;\n                   GetDeviceCaps&#40; &#58;&#58;hDC, VERTRES &#41; &#41;\n   &#58;&#58;SetViewPortExt&#40; GetDeviceCaps&#40; &#58;&#58;hDC, HORZRES &#41;,; \n                     GetDeviceCaps&#40; &#58;&#58;hDC, VERTRES &#41; &#41;\n[/code:2et0moer]\nSame behaviour. Anyway, it doesn\'t seem related to the size of printer object because the image itself is \"mixed\", as you can see in the screenshot I\'ve sent you.\n[code:2et0moer]\n   &#58;&#58;SetIsoTropicMode&#40;&#41;\n   &#58;&#58;SetWindowExt&#40; aData&#91; 1 &#93;, aData&#91; 2 &#93; &#41;\n   &#58;&#58;SetViewPortExt&#40; aData&#91; 1 &#93;, aData&#91; 2 &#93; &#41;\n[/code:2et0moer]\nIt\'s already implemented this way, anyway I recompiled and relinked printer.prg, but nothing changes.\n\nIt seems that I\'ve found a strange image however, because I tried other old WMF\'s and they works ok in Windows98 too.\nThe funny thing is that this image is working ok with XP and always worked well with previous FWH and FW versions in 98 too.\n\nThank you,\nDavide.','',0,'AIA=','2et0moer',1,0,'',487,0,0),(10772,2486,16,2,0,'87.218.146.52',1144015757,1,0,1,1,1,1,'','','April 2006\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0223f5f196/harbour.exe.html\">http://hyperupload.com/download/0223f5f ... r.exe.html</a><!-- m -->\n\nHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b8d94572/harbourm.exe.html\">http://hyperupload.com/download/01b8d94 ... m.exe.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0158c66130/xharbour.exe.html\">http://hyperupload.com/download/0158c66 ... r.exe.html</a><!-- m -->\n\nxHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0187db2b81/xharbourm.exe.html\">http://hyperupload.com/download/0187db2 ... m.exe.html</a><!-- m -->','',0,'AIA=','2e8vqr26',1,0,'',2,0,0),(10773,2484,3,2,0,'87.218.146.52',1144015850,1,0,1,1,1,1,'','','Silvio,\n\nYou may ask xMate developer or users.','',0,'AIA=','2gjry4ms',1,0,'',2,0,0),(10774,2495,3,2,0,'87.218.146.52',1144015938,1,0,1,1,1,1,'','','Davide,\n\nYou may try to rebuild that file again to see if it gets fixed.','',0,'AIA=','3gl98dpl',1,0,'',2,0,0),(10775,2500,3,2,0,'87.218.146.52',1144016023,1,0,1,1,1,1,'','','Jules,\n\nIts a missing xharbour symbol. You have to add this to the PRG:\n[code:22v3bm8j]\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \n   return pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n[/code:22v3bm8j]','',0,'AIA=','22v3bm8j',1,0,'',2,0,0),(10776,2499,1,2,0,'87.218.146.52',1144016798,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.lantalk.net/net-send-command/\">http://www.lantalk.net/net-send-command/</a><!-- m -->','',0,'AIA=','384dur57',1,0,'',2,0,0),(10777,2501,17,2,0,'87.218.146.52',1144017360,1,0,1,1,1,1,'','TheFull - Clases de Rafa Carmona','Aquí estan las clases que Rafa amablemente ha cedido para distribuir:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=353&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\nClase TScan32:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018667af97/Tscan32.zip.html\">http://hyperupload.com/download/018667a ... 2.zip.html</a><!-- m -->\n\nClase TVideo:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01c795bc14/TVideo.zip.html\">http://hyperupload.com/download/01c795b ... o.zip.html</a><!-- m -->\n\nClase TCapture:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/011f3afb85/TCapture.zip.html\">http://hyperupload.com/download/011f3af ... e.zip.html</a><!-- m -->','',0,'AIA=','3iph8156',1,0,'',2,0,0),(10778,353,6,2,0,'87.218.146.52',1144017398,1,0,1,1,1,1,'','','Jose,\n\nAqui están:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2501&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'AIA=','2w9jpaw5',1,0,'',2,0,0),(10779,2497,4,2,0,'87.218.146.52',1144017539,1,0,1,1,1,1,'','','Now we need to find a Pocket PC with camera to test it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','p5spklzf',1,0,'',2,0,0),(10780,2484,3,49,0,'87.10.181.71',1144017792,1,0,1,1,1,1,'','','Dear Antonio,\nI saved an old version of my hard disk on my pc \nIt seem run ok now\n\nthanks for all\n\nsilvio','',0,'AIA=','2elvmdc3',1,0,'',49,0,0),(10781,2484,3,2,0,'87.218.146.52',1144018160,1,0,1,1,1,1,'','','good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','cib1u1w0',1,0,'',2,0,0),(10782,2500,3,497,0,'212.127.159.218',1144018715,1,0,1,0,1,0,'','','It is working OK now.\n\nThanks Antonio\n\nJules','',0,'AIA=','328jvrsm',1,0,'',497,0,0),(10783,2484,3,49,0,'87.10.181.71',1144020790,1,0,1,1,1,1,'','','good but I need all old class ..now... I lose it..\ncan you help me to send wbrowse class ( hernan)\n\nregards','',0,'AIA=','1jsulc0c',1,0,'',49,0,0),(10784,2502,17,2,0,'87.218.146.52',1144021096,1,0,1,1,1,1,'','Hernan Browse - files','Hernan Browse\n\nHarbour version:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/38d8b378/twbrosw.zip.html\">http://hyperupload.com/download/38d8b37 ... w.zip.html</a><!-- m -->\n\nxHarbour version:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/38d8b367/twbrosw.zip.html\">http://hyperupload.com/download/38d8b36 ... w.zip.html</a><!-- m -->','',0,'AIA=','3dx2tofg',1,0,'',2,0,0),(10785,2484,3,2,0,'87.218.146.52',1144021129,1,0,1,1,1,1,'','','Silvio,\n\nHernan Browse:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2502&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'AIA=','1undceze',1,0,'',2,0,0),(10786,2325,2,501,0,'200.32.103.31',1144023949,1,0,1,1,1,0,'','','El problema se presenta en cualquier windows, y lo que he notado es que en esta problematica siempre las conexiones son via USB, cuando es banda ancha por placa de red el problema no existe. Estoy pensando en que tiene que ver mas con el hardware que con el software.\n\nGracias.','',0,'AIA=','nbfrwe55',1,0,'',501,0,0),(10788,2499,1,312,0,'24.150.179.34',1144032801,1,0,1,1,1,0,'','','Here is a working simple sample of how to net send.\n\n[code:3331fmlx]\n#include &quot;Fivewin&#46;ch&quot;\n\nstatic odlg\nFUNCTION MAIN&#40;&#41;\n  LOCAL msg &#58;= SPACE&#40; 20 &#41;\n  LOCAL muser &#58;= SPACE&#40; 20 &#41;\n\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET msg OF oDlg\n\n    @ 2, 1 GET muser OF oDlg\n\n    @ 4, 5  BUTTON &quot;&amp;Ok&quot; ACTION sendnetmsg&#40;msg,muser&#41;\n    @ 4, 15 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41; CANCEL\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\nfunction sendnetmsg&#40;msg,muser&#41;\nlocal U_ser\n\nif empty&#40;alltrim&#40;msg&#41;&#41;\n  return&#40;NIL&#41;\nendif\n\n\nif empty&#40;alltrim&#40;muser&#41;&#41;\n  U_ser&#58;= &quot;*&quot;\n else \n  u_ser&#58;= muser\nendif\n\nShellexecute&#40;gethwnd32&#40;odlg&#58;hwnd&#41;,&quot;open&quot;,&quot;Net&#46;exe&quot;, &quot; Send &quot; + u_ser + &quot; &quot; + MSG,,,0&#41;\n\n\nreturn&#40;NIL&#41;\n[/code:3331fmlx]','',0,'AIA=','3331fmlx',1,0,'',312,0,0),(10789,353,6,439,0,'201.221.40.56',1144041555,1,0,1,1,1,0,'','','Antonio, \nComo siempre, gracias por tu ayuda.','',0,'AIA=','286ljkoz',1,0,'',439,0,0),(10790,2325,2,2,0,'87.218.146.52',1144042036,1,0,1,1,1,1,'','','Carlos,\n\nMuéstranos cómo estás usando el código de FTP ? gracias.','',0,'AIA=','8i58csw0',1,0,'',2,0,0),(10792,2485,17,2,0,'87.218.146.52',1144044057,1,0,1,1,1,1,'','FUNC xMsgBox() - VER 1.0','Una sola función para todo tipo de dialogs de confirmación, info u error.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0169bb4276/xmsgbox.zip.html\">http://hyperupload.com/download/0169bb4 ... x.zip.html</a><!-- m --> 2.2 KB','',0,'AIA=','1i61kga9',1,0,'',2,0,0),(10793,2503,17,2,0,'87.218.146.52',1144044391,1,0,1,1,1,1,'','Vikthor - Class TWord','Clase TWord desarrollada por Vikthor (originalmente escrita por Pedro \nArribas Lopez):\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0155fbc123/tword.zip.html\">http://hyperupload.com/download/0155fbc ... d.zip.html</a><!-- m -->\n\nCon modificaciones por Andrés González:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02013f4441/Twordhb.zip.html\">http://hyperupload.com/download/02013f4 ... b.zip.html</a><!-- m -->\n\ndocumentación:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/019673e364/TWordxx.zip.html\">http://hyperupload.com/download/019673e ... x.zip.html</a><!-- m -->','',0,'AIA=','196iymeh',1,1144050729,'',2,2,0),(10794,2475,6,2,0,'87.218.146.52',1144044423,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2503&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'AIA=','2406z5fy',1,0,'',2,0,0),(10795,2485,17,2,0,'87.218.146.52',1144044745,1,0,1,1,1,1,'','FUNC GlobalMemStatus() - VER 1.0','Función para obtener valores extras de la memoría, usando las API\'s de Windows. Por Daniel Andrade.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b6173278/globalmemory.zip.html\">http://hyperupload.com/download/01b6173 ... y.zip.html</a><!-- m --> 1.6 KB','',0,'AIA=','8m0opoaj',1,0,'',2,0,0),(10796,2485,17,2,0,'87.218.146.52',1144044847,1,0,1,1,1,1,'','CLASS TVMeter() - VER 1.3','Muy buena clase para generar Meters Horizontales y Verticales con un aspecto muy original. Por Vagner Wirts.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0232c26552/vmeter.zip.html\">http://hyperupload.com/download/0232c26 ... r.zip.html</a><!-- m --> 4.0 KB','',0,'AIA=','1prhekup',1,0,'',2,0,0),(10797,2485,17,2,0,'87.218.146.52',1144044985,1,0,1,1,1,1,'','FUNC DriveFormat() - VER 1.0','Función que activa el Dialog de Windows para formatear unidades. Soporta recibir parámetros. Otra función de las API\'s de Windows. Por Daniel Andrade\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01a42f4d85/dlgfd.zip.html\">http://hyperupload.com/download/01a42f4 ... d.zip.html</a><!-- m --> 0.7 KB','',0,'AIA=','lnissiie',1,0,'',2,0,0),(10798,2485,17,2,0,'87.218.146.52',1144045106,1,0,1,1,1,1,'','LIB OsLib - VER 1.06','Librería para CA-Clipper que permite entre otras cosas eliminar el consumo del 100% del procesador en tiempos muertos. Por Dave Pearson\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b79b7a84/oslib106.zip.html\">http://hyperupload.com/download/02b79b7 ... 6.zip.html</a><!-- m --> 32.4 KB','',0,'AIA=','zj0hn9qu',1,0,'',2,0,0),(10799,2485,17,2,0,'87.218.146.52',1144045441,1,0,1,1,1,1,'','CLASS TSysInfo() - VER 1.6','Excelente clase que te devuelve toda la información necesaria sobre el SO en que estamos ejecutando nuestra aplicación. Muy util para configurar nuestro sistema dependiendo de la configuración que esté presente en la PC del usuario. Por Patrick Mast.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01428ce528/tsysinfo.zip.html\">http://hyperupload.com/download/01428ce ... o.zip.html</a><!-- m --> 434.0 KB','',0,'AIA=','2nb9wcfm',1,0,'',2,0,0),(10800,2485,17,2,0,'87.218.146.52',1144045575,1,0,1,1,1,1,'','CLASS TList() - VER 1.0','TList es una clase para el manejo facil de ARRAY que funciona con Clipper, FiveWin, Harbour (en todas las plataformas) y FiveWin para Harbour. Por Manuel Expósito Suárez.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/011d1a6d94/tlist.zip.html\">http://hyperupload.com/download/011d1a6 ... t.zip.html</a><!-- m --> 9.4 KB','',0,'AIA=','3boqtqdx',1,0,'',2,0,0),(10801,2485,17,2,0,'87.218.146.52',1144045707,1,0,1,1,1,1,'','FUNC DlgOnTop() - VER 1.0','Función para poner un Dialog siempre visible sobre las demás aplicaciones Windows. (on Top). Por Antonio Carlos Pantaglione.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01c250ee82/dlgontop.zip.html\">http://hyperupload.com/download/01c250e ... p.zip.html</a><!-- m --> 1.0 KB','',0,'AIA=','9018gnur',1,0,'',2,0,0),(10802,2503,17,2,0,'87.218.146.52',1144045944,1,0,1,1,1,1,'','','Ejemplos de uso:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018763bc84/Tword.zip.html\">http://hyperupload.com/download/018763b ... d.zip.html</a><!-- m -->','',0,'AIA=','3k8j14cb',1,0,'',2,0,0),(10803,2497,4,289,0,'212.138.64.175',1144047724,1,0,1,1,1,0,'','','if you link file to exe ok\nsend me copy \nregards, hathal','',0,'AIA=','s3kmdxy4',1,0,'',289,0,0),(10804,2442,1,330,0,'217.37.54.49',1144050705,1,0,1,1,1,0,'','','I have found a tfln on Patrick Mast old pages which works very well. Only needs an extra obj linked in and very simple\n\nPeter','',0,'AIA=','3n3zbz7m',1,0,'',330,0,0),(10805,2478,6,123,0,'83.39.143.140',1144050861,1,0,1,1,1,0,'','','Fernando,\n\n[quote:2402dxpz]cuando esta la tabla vacia ado marca error , sera que ado no maneja el record fantasma como se le llama.[/quote:2402dxpz]\n\nADO te marcará siempre error cuando intentas hacer alguna operación y en esa operación no hay registro activo.  Como buena costumbre, verifica si hay registros de dos maneras: con la propiedad recordcount y mirando si oRs:BOF() .AND. oRs:EOF() se cumple.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2402dxpz',1,0,'',123,0,0),(10806,2406,6,123,0,'83.39.143.140',1144050948,1,0,1,1,1,0,'','','Julio,\n\nMándame, por favor, un ejemplo autocontenido donde se pueda reproducir ese error que comentas.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2m2fep8p',1,0,'',123,0,0),(10807,2499,1,418,0,'83.153.45.143',1144051949,1,0,1,1,1,0,'','','Thanks U2\n\nAntonio i\'ve test the net send on my lan under XP Pro and it work fine but  i am not sure that my secretary will be able to use a Dos box correctly\n\nMdandrea, i use FW 21 and this function \"Shellexecute\" seems to exist in it.\nWhen i test it with your exemple i have no compiler or linker error  only runtime error \" Variable does not exist\",   but i have no documentation about  it in my NG \nThe Ng guide attached to FW 2.1 is about FW 1.95 and nothing about Shellexecute and his parameters\nCan you explain it for me.','',0,'gA==','1qntzgke',1,0,'',418,0,0),(10808,2504,16,2,0,'87.218.146.52',1144054770,1,0,1,1,1,1,'','FTDN new April 2006 build / nuevo build de Abril 2006','April 2006 build \n===========\n\n* IMPORTANT: FWH and FWHX have been compiled with the new Harbour and xHarbour April builds. You must recompile all your PRGs and PRG libraries!\n\n * Enhancement: Class TRichEdit, Method PrintBox( hDC, nTop, nLeft, nRight, nBottom, nFrom ) now may use an extra parameter nFrom, to select which position to print from. By default is zero (first character). The method returns the new nFrom position too.\n \nNew Method GetLineFromChar( nChar ), it returns the line number, given a character position. i.e.: \n\nnFrom := REPrintBox( oRTF:hWnd, nTop, nLeft, nRight, nBottom, nFrom ) \n\nnLine := oRTF:GetLineFromChar( nFrom ), will return the last printed line.\n\n * Enhancement: Class TPrinter uses random names for the metafiles temporary file names, used by the preview, instead of naming them tmp0001, tmp0002, etc. This way, several previews may be shown at the same time.\n   \n * New: FWPPC, function SerialNumber() returns the Pocket PC serial number if available.  Thanks to Hathal.\n   \n * New: FWPPC, Class TTabControl, please review samples\\TestTab.prg. This class will be involved in folders implementation. Warning: Folders are not available yet.\n   \n * Enhancement: FWPPC, function MsgInfo(), MsgAlert() and MsgStop() automatically convert parameters into strings, like FWH does it.    \n   \n * New: FWPPC, MsgGet() already available. Please review samples\\TestMGet.prg\n  \n * Fix: Minor fix on Class TCBrowse.\n   \n * Fix: Class TGet minor fix on spinner use.\n   \n * New: FWPPC, Non modal dialogboxes support. Please review samples\\TestDMod.prg\n   \n * Fix: Minor fixes on Class TWindow, TControl and TDatePick.\n \n * New: FWPPC, Folders from source code are ready! Please review samples\\TestFold.prg\n \n * New: Class TListView Methods HScroll() and VScroll().\n \n * New: FWPPC, Class TDatePicker already implemented. Please review samples\\TestDtp.prg. Please notice that lib\\commctrl.lib has to be linked now.\n  \n * Enhancement: Minor on changes on Class TWBrowse.\n  \n * Fix: FWPPC Click() bug fixed on buttons, checkboxes and radios.\n  \n * New: FWPPC, Folders created from source code that use resources dialogs. Please review samples\\TestFld.prg. This technique is new to FiveWin, and it is designed to use folders on windows but using the folder dialogboxes from resources.\n    \n * New: FWPPC, folders created entirely from resources are working ok. Please review samples\\TestFld2.prg. Thanks to Carles!\n   \n * Fix: FWPPC, Class TDatePicker is properly working from resources. Please review samples\\TestDtpR.prg  \n    \n * Enhancement: Class TGet Method KeyChar(), ::bChanged is evaluated once the key has been processed, so it gets included into the related GET buffer.\n   \n * Enhancement: DEFAULT command has been improved in performance! Thanks to Maurilio.\n  \n * Enhancement: Class TMultiGet several improvements.\n    \n * New: Class TButtonBmp clause: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT. It modifies the bitmap drawing location, so you can use text in the button too. Please review samples\\TestBuBm.prg\n   \n * New: FWPPC, a Microsoft make sample is provided at fwppc\\makes\\fwcemake.zip to build an EXE using several PRGs. \n          \n * Enhancement: Class TToolbar Method ChangeBitmap( nButton, nImage ) uses nImage values from 1 on.\n          \n * Enhancement: Class TReg32 has been modified to allow read access when there are now enough user privileges to allow full access (i.e. using a guest account).\n            \n * Enhancement: Class TReBar minor change to properly display on dialogs.\n \n * Enhancement: Class TRichEdit, some new methods added, that previously were inherited from Class TMultiGet.\n \n * Fix: WndTop() and WndLeft() were not properly managing negative values. Now you can do oControl:nLeft -= nValue and the control is properly displayed, no matter if the result is negative.\n\n * Enhancement: FWPPC, Class TComboBox processes VK_RETURN to go to next control.\n \n * Enhancement: Class TFolder Method AddItem( cItem [,cResName] ) now accepts an optional dialog resource name cResName to be used for the new folder added dialog.\n   \n * New: FWPPC, records/files locks/unlocks support for Windows Mobile 5. It automatically detects if Windows Mobile 5 is used.\n \n * Enhancement: FWPPC, errorsys modified to control the zero divisor error.\n \n * New: Class TToolBar Methods SetPressed( nButton, lOnOff ), SetChecked( nButton, lOnOff ), IsChecked( nButton ) and ToggleCheck( nButton ). Please review samples\\toolbar1.prg for a working sample of use.\n     \n * Enhancement: The Printing Preview shows the page number with a transparent background.\n     \n * Fix: Minor fix on Class TCheckBox and TRadio.\n \n * Enhancement: Class TDbCombo, improved bChanged and the UPDATE clause used together. Thanks to James Bott.\n \n * Enhancement: Class TRichEdit, some enhancements.\n \n * New: function PrnStatus() --&gt; nStatus. Please review samples\\PrnStat.prg for a working sample. This function is still under testing.','',0,'','32xa8szr',1,1144056949,'',2,1,0),(10809,2408,6,21,0,'80.58.49.235',1144054909,1,0,1,1,1,1,'','','Hola,\n\nSigo a vueltas con el error y no consigo localizarlo\n\nAlguno sabe porque se produce este error?\n\n[code:gh5euboh]   Error BASE/1&#46;004  Mensaje sin definir&#58; ENDPAGE\n   Argumentos&#58; Llamadas al Stack\n_______________________________________________________________________________\n   Called from ENDPAGE&#40;0&#41;\n   Called from PAGEEND&#40;0&#41;\n   Called from TPRN&#58;SETPRINT&#40;1057&#41;\n   Called from TPRN&#58;SETPRINT&#40;1075&#41;\n   Called from TGBUSQ&#58;REPORT&#40;770&#41;\n   Called from &#40;b&#41;TGBUSQ&#58;BUILDCONTROLS&#40;449&#41;\n   Called from TBTNBMP&#58;CLICK&#40;0&#41;\n   Called from TBTNBMP&#58;LBUTTONUP&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TBTNBMP&#58;HANDLEEVENT&#40;1349&#41;\n   Called from _FWH&#40;3136&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TMDIFRAME&#58;ACTIVATE&#40;882&#41;\n   Called from MAIN&#40;62&#41;[/code:gh5euboh]\n\nGracias por vuestro tiempo','',0,'AIA=','gh5euboh',1,0,'',21,0,0),(10810,2408,6,2,0,'87.218.146.52',1144055450,1,0,1,1,1,1,'','','Fernando,\n\nEstás usando un errorsys modificado. Por favor haz que muestre la clase del objeto que está recibiendo ese mensaje. Gracias.\n\nO usa el errorsys de FWH, que te lo indicará, y luego cambia al tuyo.','',0,'AIA=','2dlfcszk',1,0,'',2,0,0),(10813,2504,16,2,0,'87.218.146.52',1144056827,1,0,1,1,1,1,'','FWH build abril 2006','Construcción Abril 2006\n=================\n\n* IMPORTANTE * Fivewin para [x]Harbour ha sido construido con las últimas construcciones de Abril de Harbour/xHarbour. Debes reconstruir todos tus PRGs y librerias.\n\n* Mejora: En la clase TRichEdit, el método PrintBox( hDC, nTop, nLeft, nRight, nBottom, nFrom ), ahora puede usar un parámetro extra \"nFrom\", para seleccionar desde la cual imprimir. Por defecto es cero (primer caracter). El método también devuelve la nueva posición.\n\nNuevo método GetLineFromChar( nChar ), devuelve el número de línea dada la posición del caracter. Por ejemplo:\n\nnFrom := REPrintBox( oRTF:hWnd, nTop, nLeft, nRight, nBottom, nFrom )\n\nnLine := oRTF:GetLineFromChar( nFrom ), devolverá la última línea impresa.\n\n* Mejora: La clase TPrinter, usa nombres aleatorios para los ficheros temporales, usados para las vistas previas, en lugar de usar tmp0001, tmp0002, etc. De esta forma se pueden visualizar varias vistas previas al mismo tiempo.\n\n* Nuevo: En FWPPC, función SerialNumber(), que devuelve el número de serie del Pocket PC si este está disponible. Gracias a Hathal.\n\n* Nuevo: En FWPPC, clase TTabControl, por favor revise el ejemplo samples\\TestTab.prg. Esta clase se implicará en la implentación de los \"folders\".\n\n* Mejora: En FWPPC, las funciónes MsgInfo(), MsgAlert() and MsgStop(), automáticamente convierten los parámetros en \"cadenas de caracteres\", como lo hace FWH.\n\n* Nuevo: En FWPPC, disponible la función MsgGet(). Por favor, revise samples\\TestMGet.prg.\n\n* Corrección: Pequeñas correcciones en la clase TCBrowse.\n\n* Corrección: Pequeña corrección en la clase TGet usando \"Spinners\".\n\n* Nuevo: En FWPPC, soporte de \"cajas de diálogo\" no modales. Por favor, revise samples\\TestDMod.prg.\n\n* Corrección: Pequeñas correcciones en las clases TWindow, TControl y TDatePick.\n\n* Nuevo: En FWPPC, los \"folders\" desde codigo fuente son una realidad. Por favor, revise samples\\TestFold.prg.\n\n* Nuevo: En la clase TListView, los métodos HScroll() y VScroll().\n\n* Nuevo: En FWPPC, se ha implementado la clase TDatePicker. Por favor, revise samples\\TestDtp.prg. Daros cuenta que hay que enlazar lib\\commctrl.lib.\n\n* Mejora: Pequeños cambios en la clase TWBrowse.\n\n* Corrección: En FWPPC, en la función Click() se ha corregido un pequeño error en botones, cajas de validación y radios.\n\n* Nuevo: En FWPPC, los \"folder\" creados desde código fuente usan dialogos de recursos. Por favor, revise samples\\TestFld.prg. Esta técnica es nueva en Fivewin, y ha sido diseñada para usar \"folders\" en Windows, pero usando cajas de diálogo desde recursos.\n\n* Nuevo: En FWPPC, los \"folders\" creados desde recursos funcionan. Por favor, revise samples\\TestFld2.prg. Gracias a Carles!\n\n* Corrección: En FWPPC, la clase TDatePicker funciona desde recursos. Por favor, revise samples\\TestDtpR.prg.\n\n* Mejora: En la clase TGet, en el método KeyChar(), ::bChanged es evaluado una vez que la tecla ha sido procesada., por lo que es incluida en el buffer del GET asociado.\n\n* Mejora: Se ha mejorado el rendimiento del comando DEFAULT ! Gracias a Maurilio.\n\n* Mejora: Varias mejoras en la clase TMultiGet.\n\n* Nuevo: En la clase TButtonBmp, claúsulas: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT. Se ha modificado la posición de dibujado del \"bitmap\", así que también puede usar texto en el botón. Por favor revise, samples\\TestBuBm.prg.\n\n* Nuevo: En FWPPC, se porporciona un ejemplo se uso del Microsoft make para la construcción de un ejecutable usando varios PRGs. Por favor, revise fwppc\\makes\\fwcemake.zip.\n\n*Mejora: En la clase TToolBar, el método ChangeBitmap( nButton, nImage ) usa valores para nImage desde 1.\n\n*Mejora: La clase TReg32 ha sido modificada para permitir acceso de lectura cuando el usuario no tiene suficientes privilegios para un acceso total (por ejemplo, usando una cuenta de \"invitado\").\n\n* Mejora: Pequeños cambios en la clase TReRar para que se visualice en diálogos.\n\n* Mejora: Se han añadido algunos métodos nuevos en la clase TRichEdit, han sido heredados de la clase TMultiGet.\n\n* Corrección: Las funciones WndTop() y WndLeft() no estaban manejando correctamente valores negativos. Ahora puedes hacer oControl:nLeft -= nValue y el control se visualizará correctamente, incluso si el resultado es negativo.\n\n*Mejora: En FWPPC, la clase TComboBox procesa VK_RETURN para saltar al siguiente control.\n\n*Mejora: En la clase TFolder, el método AddItem( cItem [,cResName] ) acepta opcionalmente un diálogo cResName para usarlo al crear el folder.\n\n* Nuevo: En FWPPC, soporte de bloqueo/desbloqueo a nivel de fichero/registro en Windows Mobile 5. Se detecta automáticamente si se está usando Windows Mobile 5.\n\n* Mejora: En FWPPC, se ha modificado \"errorsys\" para controlar el error de división por cero.\n\n* Nuevo: En la clase TToolBar, métodos SetPressed( nButton, lOnOff ),  SetChecked( nButton, lOnOff ), IsChecked( nButton ) y ToggleCheck( nButton ). Por favor, revise samples\\toolbar1.prg para un ejemplo de su uso.\n\n* Mejora: La vista previa de impresión muestra el número de página con fondo transparente.\n\n* Corrección: Pequeña corrección en las clases TCheckBox y TRadio.\n\n* Mejora: En la clase TDbCombo, se ha mejorado bChanged y la clausla UPDATE para usarlas conjuntamente. Gracias a James Bott !\n\n* Mejora: Algunas mejoras en la clase TRichEdit.\n\n* Nuevo: Función PrnStatus() --&gt; nstatus. Por favor, revise samples\\PrnStat.prg para un ejemplo funcional. Esta función todavía se está probando.','',0,'','3ni35csh',1,0,'',2,0,0),(10814,2499,1,266,0,'219.95.66.226',1144059432,1,0,1,1,1,1,'','','you can do it this way :-\n\n1. save your text into a field in dbf\n\n2. ACTIVATE WINDOWS ON INIT fTimer()\n\n3. in fTimer() : set a timer to read/display the field when text not blank','',0,'','tvdobf8a',1,0,'',266,0,0),(10815,2408,6,21,0,'80.58.49.235',1144060301,1,0,1,1,1,1,'','','Hola Antonio,\n\nYa he dado con el problema. Estaba llamando a ENDPAGE sin haber llamado antes a PAGE\n\nGracias por tu tiempo y perdona por hacertelo perder en una bobada.','',0,'','3ccya0e5',1,0,'',21,0,0),(10816,2507,7,449,0,'212.64.224.244',1144060706,1,0,1,1,1,0,'','Conoceis algun unzip freeware con linea de comando ?','Hola,\n\nConoceis algun unzip freeware con linea de comando ?\n\nSaludos.\nC.','',0,'','7xlb3g53',1,0,'',449,0,0),(10817,2507,7,262,0,'87.235.159.190',1144061958,1,0,1,1,1,1,'','','si es para un Windows CE , mira a ver esto ( yo no lo he mirado)[url:145iks91]http&#58;//stevemiller&#46;net/punzip/[/url:145iks91]\nperdon , la linea de comando no está aun implementada , pero está en ello.','',0,'EA==','145iks91',1,0,'',262,0,0),(10818,2495,3,487,0,'151.38.45.250',1144062906,1,0,1,1,1,0,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:39s7wu3c]You may try to rebuild that file again to see if it gets fixed.[/quote:39s7wu3c]\nI tried the WMF on another W98 machine. Same behaviour.\nI reopened the WMF with CorelDraw (which displays it correctly) and reexported it as a WMF file. Same behaviour.\nThe original WMF worked well in past, and it works ok in XP even now, with FWH27-3, so I guess it may be related to the changes made in FWH to use EMF files instead of WMF. I\'m going to make a test with FWH25 anyway. I\'ll let you know.\n\nThank you,\nDavide.','',0,'gA==','39s7wu3c',1,0,'',487,0,0),(10819,2473,6,509,0,'80.34.248.50',1144063707,1,0,1,0,1,0,'','','He cambiado esto en la VRD.PRG para cuando quiero que se tenga en cuenta el largo de página del reporte creado con EasyReport y así si funciona. Mantengo en mi programa dos campos para el ancho y el largo y una variable (oApp:ImpDoc) para indicar a la clase que se ejecute de esta forma.\n\nMETHOD SetPaperSize( aSize ) CLASS VRD\n\n   LOCAL aSizes\n\n   IF empre2-&gt;ancho#0 .and. empre2-&gt;largo#0 .and. oApp:ImpDoc\n    [color=red:3mfzwpx6]   ::oPrn:SetSize( empre2-&gt;ancho*10, empre2-&gt;largo*10)[/color:3mfzwpx6]  \n ELSE\n      IF aSize &lt;&gt; NIL\n         ::oPrn:SetSize( aSize[1], aSize[2] )\n      ELSE\n\n         IF ::nPaperSize = 42\n            ::oPrn:SetSize( ::nPaperWidth, ::nPaperHeight )\n         ELSE\n            ::oPrn:SetPage( ::nPaperSize )\n         ENDIF\n\n      ENDIF\n	 \n    ENDIF\n\nRETURN ( NIL )','',0,'Ag==','3mfzwpx6',1,0,'',509,0,0),(10820,2495,3,2,0,'87.218.146.52',1144065251,1,0,1,1,1,1,'','','thanks,','',0,'Ag==','2d8wvbcv',1,0,'',2,0,0),(10821,2473,6,2,0,'87.218.146.52',1144065485,1,0,1,1,1,1,'','','bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Ag==','1fgppdva',1,0,'',2,0,0),(10822,2408,6,2,0,'87.218.146.52',1144065549,1,0,1,1,1,1,'','','Fernando,\n\nmejor que sea una bobada que algo más dificil <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\ntodos nos equivocamos. Somos humanos...','',0,'Ag==','2jtc3iuk',1,0,'',2,0,0),(10823,2507,7,449,0,'212.64.224.244',1144065801,1,0,1,1,1,0,'','','Jose Luis,\n\nVoy a mirarlo, gracias.\n\nC.','',0,'Ag==','19u8lzak',1,0,'',449,0,0),(10824,2494,3,497,0,'212.127.159.218',1144065853,1,0,1,0,1,0,'','','Antonio,\nAfter renaming Winapi.ch in xHB and having Winapi.ch in the RC file I still get all these redefinition errors.\n\nAny other idea ?\n\nI work with FWH 2.7 and xHB March 2006.\n\nJules','',0,'Ag==','1oo0yzyi',1,0,'',497,0,0),(10825,2495,3,487,0,'151.38.72.236',1144066098,1,0,1,1,1,0,'','','Antonio,\n\nI confirm you the original WMF works ok with FWH25 in Windows98.\nThe problem may be related to the WMF2EMF() function in 98.\n\nHi,\nDavide.','',0,'Ag==','11pz91og',1,0,'',487,0,0),(10826,2494,3,2,0,'87.218.146.52',1144066121,1,0,1,1,1,1,'','','Jules,\n\nWe have been able to build samples\\TestRtf.prg with xHB on first try. Lets see if we can find the way to help you.','',0,'Ag==','1f1k3xi1',1,0,'',2,0,0),(10827,2495,3,2,0,'87.218.146.52',1144066196,1,0,1,1,1,1,'','','Davide,\n\nWe just use standard Win32 functions for WMF2EMF().','',0,'Ag==','3snqpmkp',1,0,'',2,0,0),(10828,2406,6,141,0,'200.88.94.154',1144067249,1,0,1,1,1,1,'','','Gracias José Luis,\n\nVoy a construirlo, incluyendo la creación de la tabla y cuando lo tenga te lo envío.\n\nSolo te enviaré el ejemplo, pues el resto de las clases modificadas por mi ya las tienes.\n\nGracias de nuevo,','',0,'Ag==','36zr76oi',1,0,'',141,0,0),(10829,2475,6,226,0,'200.162.111.226',1144071174,1,0,1,1,1,1,'','','obrigado Antonio.','',0,'Ag==','3qubc36u',1,0,'',226,0,0),(10830,2508,3,52,0,'200.127.195.89',1144071976,1,0,1,1,1,1,'','CallNamedPipe','Hi friends,\n\nI need make one function with \"CallNamedPipe\", in C is:\n\n[code:3cbflxxw]   TCHAR chReadBuf&#91;BUFSIZE&#93;;\n   BOOL fSuccess;\n   DWORD cbRead, cbWritten, dwMode;\n   LPTSTR lpszPipename = TEXT&#40;&quot;\\\\\\\\&#46;\\\\pipe\\\\myPIPE&quot;&#41;;\n   LPTSTR lpszWrite = TEXT&#40;&quot;no llego nada&quot;&#41;;\n\n   fSuccess = CallNamedPipe&#40;\n      lpszPipename,\n      lpszWrite,\n      &#40;lstrlen&#40;lpszWrite&#41;+1&#41;*sizeof&#40;TCHAR&#41;,\n      chReadBuf,\n      BUFSIZE*sizeof&#40;TCHAR&#41;,\n      &amp;cbRead,\n      20000&#41;;\n\n   if &#40;fSuccess || GetLastError&#40;&#41; == ERROR_MORE_DATA&#41;[/code:3cbflxxw]\n\nWhat i need for make this function in xHarbour?\n\nTank´s','',0,'AIA=','3cbflxxw',1,0,'',52,0,0),(10831,2325,2,177,0,'194.30.62.6',1144073299,1,0,1,1,1,0,'','','Buenas tardes Carlos,\n\nutiliza el programa fport de Foundstone, lo puedes descargar desde aquí:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.foundstone.com/index.htm?subnav=resources/navigation.htm&amp;subcontent=/resources/freetools.htm\">http://www.foundstone.com/index.htm?sub ... etools.htm</a><!-- m -->\n\nSaludos,\n\nFélix','',0,'AIA=','3azt50c7',1,0,'',177,0,0),(10832,2509,6,228,0,'201.245.222.85',1144073683,1,0,1,1,1,1,'','Otra vez necesito su ayuda con tres cosas?','Amigos del foro como estan todos, de nuevo necesitando una ayudita, con tres preguntas?\n\n1- Como hago para generar un reporte desde un array, usando la clase treport? \n\n2- Como hago para generar un archivo a excel desde un array, con la clase de victor?\n\n3- Como creo el menu para manejo de ventanas mdi?\n\nSi tienen ejemplos se los agradeceria.','',0,'AIA=','3hmwlwbm',1,0,'',228,0,0),(10833,2325,2,501,0,'200.32.103.177',1144073764,1,0,1,1,1,0,'','Porcion del programa.','// Antonio saco todo por que es un prg bastante complejo, \n// dejo solo las llamadas inherentes al tema\n\ndefine dial...\n   // ---------------------------------------------------------------------\n   // ---------------------------------------------------------------------\n   redefine sbutton ID 101 OF oPrivate:oPags:aDialogs[2] \n   FONToVentPrinc:oFont file m-&gt;cpatbmp+\"_conecta.bmp\";\n   prompt \"Ingresar al servidor\" action busftp() text 4\nactivate dial...\nreturn .t.\n\n// --------\nfunc busftp()\n// --------\nlocal oFTP\noPrivate:oInternet:=TInternet():New()\nif !internetSt()\n   internetDi()\n   if !internetSt()\n      oPrivate:oInternet:End()\n      return .f.\n   endif\nendif\n\n// Antonio, aca hace la llamada con LEVFTP\nmsgrun(\"Ingresando al servidor...\",\"\",{|oDlg|levftp(oPrivate:oInternet,oDlg,oFTP)},\"_insitio\")\n\noPrivate:oInternet:End()\nreturn nil\n\n//------------------------\nfunc levftp(oInternet,oDlg,oFTP)\n//------------------------\nlocal aFiles, nItem, recorre, aFiltro:=array(9)\nlocal ncannuevos\noFTP:=TFTP():New( \"209.99.228.215\", oInternet, \"dbfarma\", \"farmacia\")\nif empty( oFTP:hFTP )\n   oDlg:end()\n   // Antonio, sale por este error y por ende no puedo levantar \n   // los datos del servidor\n   msgstop(\"No se pudo establecer la conexión.\")\n   return .f.\nendif\n\nsysrefresh()\n\noDlg:settext(\"Buscando actualizaciones...\")\nsysrefresh()\n\n\n// Levanto todo el directorio ftp del dbfarma\naFilesFtp = oFTP:Directory(\"*.*\")','',0,'','2p91qszm',1,0,'',501,0,0),(10834,2475,6,226,0,'200.162.111.226',1144074299,1,0,1,1,1,1,'','','baixei a classe TWord más não consegui compilar com xHarbour.. apenas com Clipper!\n\nlendo o manual que acompanha a classe eu vi o seguinte:\n\n[quote:3a3mdjto]\nRequisitos.\n\nEn caso de FW 16 bits:\nLIB OLE2, FiveC, Five, etc.\n\nEn caso de Harbour:\nEnlazar la librería HBOle antes de las de FW, dependerá del método que utilices para enlazar.\n[/quote:3a3mdjto]\n\n\na OLE2.LIB veio no pacote que eu baixei nos links enviados acima...  más esta HBOLE.LIB não está em lugar nenhum!!!  Onde poso encontra-la? Ou devo gera-la a partir dos fontes baixados? \n\nMarllon','',0,'gA==','3a3mdjto',1,0,'',226,0,0),(10835,2497,4,3,0,'82.124.247.99',1144075263,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2utmfbn1]Now we need to find a Pocket PC with camera to test it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:2utmfbn1]\n\nAntonio\n\nMy HP Ipaq 6515 has a camera\n\nIf you need some testing let me know.\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2utmfbn1',1,0,'',3,0,0),(10836,2495,3,487,0,'151.38.45.250',1144075678,1,0,1,1,1,0,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:3m72jp1s]We just use standard Win32 functions for WMF2EMF().[/quote:3m72jp1s]\nwell, I really don\'t know why it worked before and it does not work well now. It was only a guess/suggestion based on the tests I\'ve made so far.\n\nThank you,\nDavide.','',0,'gA==','3m72jp1s',1,0,'',487,0,0),(10837,2445,6,237,0,'200.68.70.89',1144075871,1,0,1,1,1,0,'','Multibar','En estos dias voy a ver si puedo terminar de modificar esta clase para que funcione con fwh.\nSalu2!','',0,'gA==','j43uyzz2',1,0,'',237,0,0),(10838,2510,6,409,0,'201.246.67.167',1144080582,1,0,1,1,1,0,'','Classe TPrinter','Bueno amigos mi consulta es la siguiente como puedo imprimir con la classe TPrinter en un boleta de venta de 7 cm ancho y 15 largo. yo en clipper lo haci asi:\n\nSetPrc(0,0) \nDo While .Not. Eof()\n  @ fila,5 Say ....\n  @ fila,10 say ...\n  skip\nenddo\ncomo lo hago con la clase TPrinter','',0,'gA==','3twezcm1',1,0,'',409,0,0),(10839,2511,2,404,0,'85.155.213.18',1144084970,1,0,1,1,1,0,'','¿Error en la clave del Indice?','Estimados compañeros:\n\nNo se por que no funciona, el Indice, de mi aplicación:\n\n[code:27wly745]\nINDEX FILE PFMesFac                                          ;\n          TAG    MesFactu                                    ;\n          ON     UPPER&#40; CMONTH&#40; fechafactu &#41; &#41; + codigo    + ;\n                 numfactura                                  ;\n          UNIQUE                                             ;\n          EVAL   &#40; lPrimerVez &#58;= TRUE                      , ;\n                    PorcentInd&#40; oDbfFactP, aoMeter&#91; 5 &#93; &#41; &#41;  ;\n          OF     oDbfFactP\n[/code:27wly745]\n\nComo podreis ver, lo que me interesa, es localizar las facturas del mes, para cada proveedor. \n\nPero, solo me incluye la primera de cada proveedor. Supongamos que hay tres facturas:\n\n[code:27wly745]\nCODIGO   NUMFACTURA      FECHAFACTU\n0000001  36              02/20/2006\n0000001  5160/1          01/31/2005\n0000001  999999          02/28/2006\n0000001  LFF2            02/20/2006\n[/code:27wly745]\n\nAl crear el indice, solo introduce la factura 36. ¿Por que?\n\nSaludos, José Mª','',0,'AIA=','27wly745',1,1145042685,'',404,1,0),(10840,2497,4,2,0,'87.218.146.169',1144085532,1,0,1,1,1,1,'','','Richard,\n\nThanks. The idea is to test Hathal code and see what it does.','',0,'AIA=','2vekgnqs',1,0,'',2,0,0),(10841,2475,6,2,0,'87.218.146.169',1144085613,1,0,1,1,1,1,'','','Marllon,\n\nEsa librería no es necesaria, ya que FWH proporciona las funciones equivalentes.','',0,'AIA=','2gcygxhc',1,0,'',2,0,0),(10842,2325,2,2,0,'87.218.146.169',1144085803,1,0,1,1,1,1,'','','Carlos,\n\nEstas usando las clases estandard de Windows, debería funcionar.\n\nHas probado el ejemplo samples\\FTPDir.prg ?','',0,'AIA=','2fo5usje',1,0,'',2,0,0),(10843,2476,2,409,0,'201.246.66.146',1144086853,1,0,1,1,1,0,'','Re: Imprimir con la Classe TPrinter','[quote=&quot;jbrita&quot;:159cs8ag]Bueno amigos mi consulta es la siguiente como puedo imprimir con la classe TPrinter en un boleta de venta de 7 cm ancho y 15 largo el problema q me salta una pagina, sera posible controlar el salto de pagina en una matriz de punto con esta classe\nSaludos[/quote:159cs8ag]','',0,'gA==','159cs8ag',1,0,'',409,0,0),(10844,2510,6,73,0,'201.145.74.184',1144088717,1,0,1,1,1,0,'','','tienes que crear el objeto de la tprinter\ndefine printer oprn bla bla bla\ny en lugar del @ te recomiendo imprimas en centimetros\npage\ndo while .t.\n oprn:cmsay(2,2,\"mi impresion\")\n skip\nenddo\nendpage\nendprint\nnomas que asi te brinca como si fuera hoja tamaño carta\nsi tu largo es menos, no recuerdo la forma de configurar a ese largo exactamente prueba con PrnSetSize( 25000, 11500 ) que es Ancho,Alto.\nPero tiene varios formatos definidos, por si alguno te sirve por ejemplo\n\nSETPAGE(9)  es formato A4\n\nDMPAPER_LETTER 1 // Letter 8 1/2 x 11 in \nDMPAPER_LETTERSMALL 2 // Letter Small 8 1/2 x 11 in \nDMPAPER_TABLOID 3 // Tabloid 11 x 17 in \nDMPAPER_LEDGER 4 // Ledger 17 x 11 in \nDMPAPER_LEGAL 5 // Legal 8 1/2 x 14 in \nDMPAPER_STATEMENT 6 // Statement 5 1/2 x 8 1/2 in \nDMPAPER_EXECUTIVE 7 // Executive 7 1/4 x 10 1/2 in \nDMPAPER_A3 8 // A3 297 x 420 mm \nDMPAPER_A4 9 // A4 210 x 297 mm \nDMPAPER_A4SMALL 10 // A4 Small 210 x 297 mm \nDMPAPER_A5 11 // A5 148 x 210 mm \nDMPAPER_B4 12 // B4 250 x 354 \nDMPAPER_B5 13 // B5 182 x 257 mm \nDMPAPER_FOLIO 14 // Folio 8 1/2 x 13 in \nDMPAPER_QUARTO 15 // Quarto 215 x 275 mm \nDMPAPER_10X14 16 // 10x14 in \nDMPAPER_11X17 17 // 11x17 in \nDMPAPER_NOTE 18 // Note 8 1/2 x 11 in \nDMPAPER_ENV_9 19 // Envelope #9 3 7/8 x 8 7/8 \nDMPAPER_ENV_10 20 // Envelope #10 4 1/8 x 9 1/2 \nDMPAPER_ENV_11 21 // Envelope #11 4 1/2 x 10 3/8 \nDMPAPER_ENV_12 22 // Envelope #12 4 \\276 x 11 \nDMPAPER_ENV_14 23 // Envelope #14 5 x 11 1/2 \nDMPAPER_CSHEET 24 // C size sheet \nDMPAPER_DSHEET 25 // D size sheet \nDMPAPER_ESHEET 26 // E size sheet \nDMPAPER_ENV_DL 27 // Envelope DL 110 x 220mm \nDMPAPER_ENV_C5 28 // Envelope C5 162 x 229 mm \nDMPAPER_ENV_C3 29 // Envelope C3 324 x 458 mm \nDMPAPER_ENV_C4 30 // Envelope C4 229 x 324 mm \nDMPAPER_ENV_C6 31 // Envelope C6 114 x 162 mm \nDMPAPER_ENV_C65 32 // Envelope C65 114 x 229 mm \nDMPAPER_ENV_B4 33 // Envelope B4 250 x 353 mm \nDMPAPER_ENV_B5 34 // Envelope B5 176 x 250 mm \nDMPAPER_ENV_B6 35 // Envelope B6 176 x 125 mm \nDMPAPER_ENV_ITALY 36 // Envelope 110 x 230 mm \nDMPAPER_ENV_MONARCH 37 // Envelope Monarch 3.875 x 7.5 in \nDMPAPER_ENV_PERSONAL 38 // 6 3/4 Envelope 3 5/8 x 6 1/2 in \nDMPAPER_FANFOLD_US 39 // US Std Fanfold 14 7/8 x 11 in \nDMPAPER_FANFOLD_STD_GERMAN 40 // German Std Fanfold 8 1/2 x 12 in \nDMPAPER_FANFOLD_LGL_GERMAN 41 // German Legal Fanfold 8 1/2 x 13 in \n\nsaludos\npaco','',0,'gA==','2puivrpn',1,0,'',73,0,0),(10845,2512,3,394,0,'207.219.124.134',1144089269,1,0,1,1,1,0,'','Need to get events with activex to work.','I downloaded the latest fwh today.\n\nI try to see events with activex the following is example program. With error generated following.\nWhat am I doing wrong.\nThanks Mike. \n\n[code:126ufeko]#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \n   return pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP \n\n#include &quot;fivewin&#46;ch&quot;\nstatic oWnd, oActiveX,cEvents&#58;=&quot;&quot;\n\n\nfunction Main&#40;&#41;\n\n\n\n   DEFINE WINDOW oWnd TITLE &quot;Test ActiveX&quot;\noActiveX &#58;=TActiveX&#40;&#41;&#58;New&#40; oWnd,&quot;DpSdkOps&#46;FPRegisterTemplateX&#46;1&quot; &#41;\n\n oActiveX&#58;bOnEvent = &#123; | event, aParams | cEvents += EventInfo&#40; event, aParams &#41; &#125; \n   oWnd&#58;oClient = oActiveX \noActiveX&#58;do&#40;&quot;RUN&quot;&#41;\n   ACTIVATE WINDOW oWnd maximized  VALID &#40; MemoEdit&#40; cEvents &#41;, &#46;t&#46; &#41;  \n\nRETURN NIL\n\n\n\n\n\nfunction EventInfo&#40; event, aParams &#41; \n\n   local cMsg &#58;= &quot;Event&#58; &quot; + cValToChar&#40; event &#41; + CRLF \n   local n \n    \n   cMsg += &quot;Params&#58; &quot; \n    \n   for n = 1 to Len&#40; aParams &#41; \n      cMsg += cValToChar&#40; aParams&#91; n &#93; &#41; + CRLF \n   next \n\nreturn cMsg + CRLF [/code:126ufeko]\nApplication\n===========\n   Path and name: C:\\Program Files\\DigitalPersona\\Bin\\activex2.exe (32 bits)\n   Size: 1,494,528 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04/03/06, 14:10:50\n   Error description: Error DpSdkOps.FPRegisterTemplateX.1/16389  E_FAIL: _BONEVENT\n   Args:\n     [   1] = B   {|| ... }\n\nStack Calls\n===========\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;_BONEVENT(0)\n   Called from: activex2.prg =&gt; MAIN(25)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 3.20GHz 3200 Mhz\n   Hardware memory: 1023 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2','',0,'AIA=','126ufeko',1,0,'',394,0,0),(10846,2512,3,2,0,'87.218.146.169',1144090289,1,0,1,1,1,1,'','','Mike,\n\nPlease rename xhb\\lib\\activex.lib as _activex.lib and copy this lib to that directory:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d7a0b615/ActiveX.lib.html\">http://hyperupload.com/download/02d7a0b ... X.lib.html</a><!-- m -->','',0,'AIA=','3j8rom2c',1,0,'',2,0,0),(10847,2497,4,3,0,'82.65.132.238',1144091540,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:o2qe3o71]Richard,\n\nThanks. The idea is to test Hathal code and see what it does.[/quote:o2qe3o71]\n\nCompile generates errors here is the log.\n\nNote : My Ipaq runs win 2003 OS\n\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Pocket PC - June 2005                Harbour development power ³Ü\n³ (c) FiveTech, 1993-2005                    for Microsoft Windows Pocket PC ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'hathal.prg\' and generating preprocessed output to \'hathal.ppo\'...\n\nLines 57, Functions/Procedures 1\nGenerating C source output to \'hathal.c\'... Done.\nhathal.c\nhathal.prg(26) : error C2065: \'SHCAMERACAPTURE\' : undeclared identifier\nhathal.prg(26) : error C2146: syntax error : missing \';\' before identifier \'shcc\'\nhathal.prg(26) : error C2065: \'shcc\' : undeclared identifier\nhathal.prg(29) : error C2228: left of \'.cbSize\' must have class/struct/union type\nhathal.prg(31) : error C2228: left of \'.hwndOwner\' must have class/struct/union type\nhathal.prg(32) : error C2228: left of \'.pszInitialDir\' must have class/struct/union type\nhathal.prg(33) : error C2228: left of \'.pszDefaultFileName\' must have class/struct/union type\nhathal.prg(34) : error C2228: left of \'.pszTitle\' must have class/struct/union type\nhathal.prg(35) : error C2228: left of \'.VideoTypes\' must have class/struct/union type\nhathal.prg(35) : error C2065: \'CAMERACAPTURE_VIDEOTYPE_MESSAGING\' : undeclared identifier\nhathal.prg(36) : error C2228: left of \'.nResolutionWidth\' must have class/struct/union type\nhathal.prg(37) : error C2228: left of \'.nResolutionHeight\' must have class/struct/union type\nhathal.prg(38) : error C2228: left of \'.nVideoTimeLimit\' must have class/struct/union type\nhathal.prg(39) : error C2228: left of \'.Mode\' must have class/struct/union type\nhathal.prg(39) : error C2065: \'CAMERACAPTURE_MODE_VIDEOWITHAUDIO\' : undeclared identifier\nhathal.prg(42) : error C2065: \'SHCameraCapture\' : undeclared identifier\nhathal.prg(49) : error C2065: \'StringCchCopy\' : undeclared identifier\nhathal.prg(49) : error C2228: left of \'.szFile\' must have class/struct/union type\nLINK : fatal error LNK1181: cannot open input file \'hathal.obj\'','',0,'gA==','o2qe3o71',1,0,'',3,0,0),(10848,2406,6,97,0,'201.161.135.165',1144092230,1,0,1,1,1,1,'','Julio como el link roto','Julio como el link de las classes esta roto, no puedo hacer pruebas directas lo que te mande fue con la conversion de la tabla, por lo que comento que la tabla esta bien.\n\n\npuedes subirlo a: <!-- m --><a class=\"postlink\" href=\"ftp://proyectos.ita.mx\">ftp://proyectos.ita.mx</a><!-- m -->\n   usuario:fer\n   pasword:fer\n\no enviamela por correo. \n\nsaludos\nfernando snadoval ruiz','',0,'gA==','2jgv0gsp',1,0,'',97,0,0),(10849,2444,6,97,0,'201.161.135.165',1144092478,1,0,1,1,1,1,'','Podrias enviarme la clase ppor favor','Rossini podrias enviarme la clase a mi tambien por favor.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'gA==','2rsiek32',1,0,'',97,0,0),(10850,2356,6,97,0,'201.161.135.165',1144092763,1,0,1,1,1,1,'','Podrias enviarme la clase ppor favor','Rossini podrias enviarm esta clase por favor a mi tambien.\n\n\nsaludos\nfernando sandoval ruiz','',0,'gA==','2gmtf6ae',1,0,'',97,0,0),(10851,2497,4,2,0,'87.218.146.169',1144093484,1,0,1,1,1,1,'','','Hathal,\n\nPlease provide us the \"AYGSHELL.h\" that you are using. \n\nUse <!-- w --><a class=\"postlink\" href=\"http://www.hyperload.com\">www.hyperload.com</a><!-- w --> to upload it and provide its download link. Thanks.\n\nRichard, thanks for your help <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3l7wpxd5',1,0,'',2,0,0),(10852,2356,6,2,0,'87.218.146.169',1144093572,1,0,1,1,1,1,'','','Rossine,\n\nPuedes alojarla en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y poner aqui el enlace de descarga ? gracias.','',0,'gA==','318j0n5c',1,0,'',2,0,0),(10853,2406,6,2,0,'87.218.146.169',1144093674,1,0,1,1,1,1,'','','Por favor, los ficheros que intercambieis alojadlos en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y publicar aqui el enlace de descarga para que asi otros usuarios puedan acceder a ellos. gracias.','',0,'gA==','2zchbtom',1,0,'',2,0,0),(10854,2356,6,104,0,'201.58.40.162',1144093909,1,0,1,1,1,0,'','','Olá Antonio,\n\nEstou fazendo uns ultimos ajuste aqui e assim que possível postarei a primeira versão ok ?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAbraços, Saludos,\n\nRossine.','',0,'gA==','2pycpigv',1,0,'',104,0,0),(10856,2478,6,97,0,'201.161.135.165',1144094910,1,0,1,1,1,1,'','Gracias Rene y Jose Lui','Gracias, me lo sospeche, pero bueno hay trucos para bricar estas cosas.\n\n\n\nsaludos.\nfernando sandoval ruiz','',0,'gA==','2fe69aef',1,0,'',97,0,0),(10857,2513,19,2,0,'87.218.146.169',1144095299,1,0,1,1,1,1,'','Virtual Server 2005 R2 - Enterprise Edition - free!','<!-- m --><a class=\"postlink\" href=\"http://go.microsoft.com/fwlink/?LinkId=63997\">http://go.microsoft.com/fwlink/?LinkId=63997</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://news.com.com/Microsoft+to+host+Linux+virtually/2100-7346_3-6056683.html?tag=nl\">http://news.com.com/Microsoft+to+host+L ... tml?tag=nl</a><!-- m -->','',0,'gA==','lwqu1tcf',1,0,'',2,0,0),(10858,2497,4,289,0,'212.138.64.172',1144095920,1,0,1,1,1,0,'','','Antonio \nAYGSHELL.h And AYGSHELL.lib \nWith Windows Mobile 5.0 Pocket PC SDK \nsay dir ( Include&amp; lib ) \n-- \nfrom dir up \nCompile \nwith this file \n------ \n@ set hdir=%1harbour_CE \n@ set vcdir=%1vce \n@ set fwppc=%1fwppc \n@ set include=\"inclode_NEW_dir\";%vcdir%\\include\\arm;%hdir%\\include;%fwppc%\\include;%include% \n@ set lib=%vcdir%\\lib;%hdir%\\lib;%lib% \n@SET PATH=%PATH%;%vcdir%\\bin;%hdir%\\bin \n----- \nregards, hathal','',0,'gA==','3nnetxgz',1,0,'',289,0,0),(10859,702,2,401,0,'201.215.45.57',1144096162,1,0,1,1,1,0,'','por favor, agradeceria que la compartieras','amigo tambien uso tdosprn, y si puedes comparte el preview\n<!-- e --><a href=\"mailto:luiscortesm_67@hotmail.com\">luiscortesm_67@hotmail.com</a><!-- e -->\n\nGracias','',0,'gA==','2yq2m661',1,0,'',401,0,0),(10860,2514,2,401,0,'201.215.45.57',1144096823,1,0,1,1,1,0,'','Como hacer que en tsbrowse, me salga el texto de 2 colores','amigos mi problema es que tengo un browse (tsbrowse), con celdas de fondo amarillo y letras azules, pero mi intencion es que segun una condicion los mayores a cero, salgan Azul/Amarillo y de lo contrario Rojo/Amarillo, lo he intentado, y es mas me han ayudado (A.A.), y no lo consigo, que estoy haciendo mal...\n\noLbx1:SetColor( {1, 2}, {|| If( Tot_Fac &gt; 0, {C_FONDO,C_TEXTA},{C_FONDO,C_TEXTR})},)\n\nc_fondo=amarillo\nc_texta=azul\nc_textr=rojo\n\nes mas ni funciona ahora','',0,'gA==','261i9ntw',1,0,'',401,0,0),(10861,702,2,2,0,'87.218.146.169',1144097429,1,0,1,1,1,1,'','','Leandro,\n\nPor favor ponla en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y publica aqui la dirección de descarga. Gracias.','',0,'gA==','c4gxusna',1,0,'',2,0,0),(10862,2514,2,2,0,'87.218.146.169',1144097572,1,0,1,1,1,1,'','','Luis,\n\nPruébalo así:\n\noLbx1:SetColor( {|| If( Tot_Fac &gt; 0, {C_FONDO,C_TEXTA},{C_FONDO,C_TEXTR})} )','',0,'gA==','3jwo4587',1,0,'',2,0,0),(10863,2514,2,401,0,'201.215.45.57',1144102524,1,0,1,1,1,0,'','lo intente y salio esto','Application\n===========\n   Path and name: C:\\SIST02\\GESTION.dwd\n   Size:         0 bytes\n   Max files handles permited: ( SetHandleCount() ) 100\n   Error ocurred at: 03/04/2006, 18:12:23\n   Error description: Error BASE/1068  Argument error: array access\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from TSBROWSE:SETCOLOR(6857)\n   Called from VIS_258(1812)\n   Called from (b)PRG258(1526)\n   Called from TBUTTON:CLICK(148)\n   Called from TBUTTON:HANDLEEVEN(0)\n   Called from SENDMESSAG(0)\n   Called from TDIALOG:COMMAND(0)\n   Called from TDIALOG:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PRG258(1531)\n   Called from (b)BUILDMENU(352)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(106)','',0,'','3mjd64cs',1,0,'',401,0,0),(10864,2484,3,49,0,'87.3.181.129',1144102824,1,0,1,1,1,1,'','','good\nmr  antonio!!!','',0,'','2robvdt5',1,0,'',49,0,0),(10865,2510,6,511,0,'201.248.65.240',1144103002,1,0,1,0,1,0,'','','Utiliza la clase tDosPrn que puedes manipular las lineas y columnas como en clipper (si usas impresoras de matriz), yo utilizo esta clase para los formatos preimpresos y uso la clase Tprinter para los otros reportes.\n\nSaludos','',0,'','1cee7ar3',1,0,'',511,0,0),(10866,2499,1,418,0,'83.153.41.154',1144103752,1,0,1,1,1,0,'','','Hi\nwith your help i have found  something that work great:\n\nWinexec( \"net send [i:1i5nsld8]User[/i:1i5nsld8]  [i:1i5nsld8]Msg[/i:1i5nsld8]\")','',0,'IA==','1i5nsld8',1,0,'',418,0,0),(10867,2479,20,49,0,'87.3.181.129',1144103826,1,0,1,1,1,1,'','','tutto a posto !!!!!!!\ncome non detto','',0,'IA==','3kod65eo',1,0,'',49,0,0),(10868,2356,6,255,0,'200.67.175.250',1144105599,1,0,1,1,1,1,'','','[quote=&quot;Rossine&quot;:6dbzbixu]Olá Antonio,\nEstou fazendo uns ultimos ajuste aqui e assim que possível postarei a primeira versão ok ?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nAbraços, Saludos,\nRossine.[/quote:6dbzbixu]\n\nAntonio, sería excelente que fusionaras el trabajo de\nHernan y Rossine en el build de FiveWin.','',0,'gA==','6dbzbixu',1,0,'',255,0,0),(10869,2499,1,312,0,'24.150.179.34',1144106303,1,0,1,1,1,0,'','','Glad to hear you got it working , winexec and shellexecute are very similar in what they do.','',0,'gA==','1kt87xb7',1,0,'',312,0,0),(10870,2317,6,445,0,'201.43.22.225',1144107380,1,0,1,1,1,0,'','','Vou provar ...\n\nObrigado a todos,\n\nEdnaldo Rolim\nS.Bernardo do Campo - Brasil','',0,'gA==','zaq9g9q3',1,0,'',445,0,0),(10871,2325,2,501,0,'200.32.103.201',1144108672,1,0,1,1,1,0,'','','Estoy usando las classes estandar, de hecho agregue un mensaje en TInternet y TFtp, las compile y las agregue en el LNK para ver si surtia algun cambio y nada sigue igual.\n\nTambien probe los ejemplos pelados sin nada de proceso solo apertura y nada.\nProbe tambien esta funcion que esta en los Samples\\SylInt.prg\n\n// Working with Internet Classes\n/*\n  I tried to do my best to give you all necessary information to gain the perfect control over all internet function that can be manage with Fivewin for sure we  can add some more (http function) but we don\'t have any control to display HTML  text so that\'s why I didn\'t test it.\n\n  Must of internet function that open session dial automaticaly the internet if you set the parameter for, but a better practice to AVOID GPF is to:\n\n    1- Check with InternetSt() if a connection is already establish\n    2- If not Establish connect with InternetDi() or InternetAu()\n    3- Do your work\n    4- Hangup with InternetHa() or InterautHa()\n\n  Hope it will help Fivewin user\n\n*/\n\n#include \"FiveWin.ch\"\n#include \"menu.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n   etc, etc, ...\nreturn nil\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n   etc, etc, ...\n   MENUITEM \"Get archivo\" ACTION FTPGET()\nreturn oMenu\nFunction Flushdenet()\n\nFunction FTPGET() // mise a jour des constantes de salaire\n  Local hftp\n  Local n1:=0,message:=space(500),n2:=500\n  if (hftp:=InternetConnect(onet,\"209.99.228.215\",21,\"dbfarma\",\"farmacia\",1,2,0)) == 0\n       msginfo(\"Sorry can\'t connect to FTP site:\"+str(getlasterror()))\n       if Intrespinf(@n1,message,@n2)\n         msginfo(\"message:=\"+message)\n       endif\n  else\n    // Change the filename by the one you want to get from the FTP site\n    if ! Ftpgetfile(hftp,\"aviso.MEM\",\"c:\\tmp\\aviso.mem\",1,128,2,0)\n      msginfo(\"Getlat:=\"+str(getlasterror()))\n      if Intrespinf(@n1,message,@n2)\n        msginfo(\"message:=\"+message)\n      endif\n    endif\n    msginfo(\"Done!\")\n    Internetclosehandle(hftp)\n  endif\n\n  return .t.\n\n\n\nProbe Qftp aunque con problemas con el .ch que no era el correcto, compile como pude y nada.\n\nAcabo de venir del cliente y estuve probando un exe pelado y aparentemente a la conexion la detecta bien InternetSt() retorna conectado, el problema esta en la definicion del objeto\noFTP:=TFTP():New( \"209.99.228.215\", oInternet, \"dbfarma\", \"farmacia\")\nesto devuelve vacio.\n\nTambien estuve chequeando los puertos para ver si habia algo (troyano/espia/virus) que lo tuviere abierto, lo hice on line desde <!-- m --><a class=\"postlink\" href=\"http://www.upseros.com/portscan.php\">http://www.upseros.com/portscan.php</a><!-- m --> y nada estaba cerrado, en un XP me dió INVISIBLE pero bueno ahi anda.\n\nLes copie mi WinInet.dll de mi pc a la de los clientes y nada, le puse el cable modem por medio de una placa de red y nada, lo que me esta quedando es formatear el equipo pero no tengo muchas ganas de meterme en un lio mas grande sobre todo con la infinidad de giladas que tiene este tio en la pc.\n\nEn fin Antonio he probado casi todo lo que esta a mi alcance antes de molestar en el foro, aunque se que no es molestia y estoy muy agradecido por la ayuda que todos brindan a esta comunidad. Muchas gracias a ustedes y seguire probando cosas.\n\nPD: En algunos clientes que tienen esta porqueria de aparato no les anda el Messenger por ejemplo. ( Motorola SBoard 5101 USB ), lo que si en todos los casos el FTP.exe por DOS anda bien.','',0,'gA==','qo3wuw68',1,0,'',501,0,0),(10872,2514,2,501,0,'200.32.103.201',1144109231,1,0,1,1,1,0,'','Color en renglon','Me parecio o tenias una coma de mas al final.\n\nProba con algo similar a lo de abajo. Espero te sirva.\n\n// Defino el color del registro según el estado.\noBrwTurnos:SetColor( { 1}, { { | | if( turnos-&gt;status=\"A\",rgb(0,128,64), if( turnos-&gt;status=\"D\", rgb(85,85,85), if(turnos-&gt;status=\"C\",rgb(200,0,0),rgb(0,0,0)) ) ) } } )\n\nSalu2.\nQue version de tsbrowse usas?','',0,'gA==','3ecml8dx',1,0,'',501,0,0),(10873,2471,2,501,0,'200.32.103.201',1144109764,1,0,1,1,1,0,'','Paneles','Antonio se pueden definir \"paneles\" cosa de poder separar por un lado los controles, botones, trees, etc, de la parte que uno quiera que ocupe el browse, por ejemplo menu en tree y botones sobre la izquierda en forma vertical, sobre la derecha desde la mitad y hasta el final un browse en otro panel, y que al redimensionar el dialogo se redimensione solo el panel que uno quiera, por ejemplo el sector del browse.\n\nEs solo estético nada importante, de hecho ahora meto todos los botones en una barra de botones y que se redimensione todo el resto, pero a veces hacen falta otras cosas en el dialogo.\n\nGracias.','',0,'gA==','nfvho7lb',1,0,'',501,0,0),(10874,935,2,501,0,'200.32.103.201',1144110543,1,0,1,1,1,0,'','Posición de la celda','Espero te sirva...\n\n// -----\nfunc opcturnos(nombre,objeto)\n// -----\nlocal omenu\n// nombre trae oBtn o oBrw por si presiona un boton o boton derecho sobre el browse()\n// objeto trae el nombre en si del objeto definido en la ventana, podria ser un solo parametro tambien.\n\nif upper(nombre)$\"OBTN\"\n   aRect:=GetClientRect(objeto:hWnd)\n  elseif upper(nombre)$\"OBRW\"\n   aRect:=GetCursorPost()\n   // Esto deberia ser lo que te de la posic.\nendif\n\nmenu omenu popup\n   menuitem \"Modificar\"             action editarturno(\"O\")\n   menuitem \"Desocupar\"          action editarturno(\"D\")\n   menuitem \"Mover\"                 action moverturno()\nendmenu\nif upper(nombre)$\"OBTN\"\n   activate popup omenu at aRect[3], aRect[2]-1 of objeto\n  elseif upper(nombre)$\"OBRW\"\n   activate popup omenu at aRect[1]-140, aRect[2]-270 of objeto\nendif\nreturn nil\n\nSalu2.','',0,'','ifnrsi34',1,0,'',501,0,0),(10875,2515,2,501,0,'200.32.103.201',1144112336,1,0,1,1,1,0,'','Alquién uso/usa TopConnect 4.0','Apollo 6.\nCodeBase 6.5\n\nComentarios de alguno de los mismos, tengo que mudar mi DOS y FiveWin completo a un cliente servidor.\n\nGracias.','',0,'','29yqp86l',1,0,'',501,0,0),(10876,2516,7,150,0,'212.106.243.152',1144115285,1,0,1,1,1,1,'','Copiar imagenes del emulador','Hola:\n\nSabeis como puedo copiar una imagen del emulador. Me parece que es la única aplicacion que no permite &lt;alt&gt;-&lt;impr pa&gt;','',0,'','pfu3o8ep',1,1144115560,'',150,1,0),(10878,2517,6,383,0,'200.106.103.184',1144116096,1,0,1,1,1,0,'','HBZIP.LIB','Por favor alguien tiene HBZIP.LIB para xHarbour 0.99.2. Uso fivewin for Harbour 2.5','',0,'','2lu9pjor',1,0,'',383,0,0),(10879,2518,6,292,0,'200.84.204.76',1144119537,1,0,1,1,1,1,'','DTR, CTS , DTR ,   MCR en Puerto Serial','Colegas,\n\nNecesito activar estas características en  puerto Serial\nComunicación Serial Protocolo\n  DTR, CTS , DTR ,   MCR\n\n\nOpenComm( \"COM1\", 1024, 128 )\nBuildCommDcb( \"COM1:9600,e,8,1\", @cDcb )','',0,'','1ejoi9r5',1,0,'',292,0,0),(10880,2516,7,2,0,'87.218.146.169',1144131572,1,0,1,1,1,1,'','','Jose,\n\nTen el solamente el emulador en el escritorio de Windows. Haz click en el escritorio de Windows y pulsa imprimir pantalla. Te copiará todo el escritorio incluido el emulador, luego con un programa de dibujo recortas la imagen del emulador.','',0,'','1zylou83',1,0,'',2,0,0),(10881,2317,6,2,0,'87.218.146.169',1144131825,1,0,1,1,1,1,'','','Ednaldo,\n\nLa clase TWord está aquí:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2503\">http://fivetechsoft.com/forums/viewtopic.php?t=2503</a><!-- m -->\n\nLa clase TFileXLS está aquí:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2519\">http://fivetechsoft.com/forums/viewtopic.php?t=2519</a><!-- m -->','',0,'','skrilbs3',1,0,'',2,0,0),(10882,2519,17,2,0,'87.218.146.169',1144131974,1,0,1,1,1,1,'','Ramón Avendaño - Clase TFileXLS','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0127133784/TFILEXLS.zip.html\">http://hyperupload.com/download/0127133 ... S.zip.html</a><!-- m -->','',0,'','6fbzjvul',1,0,'',2,0,0),(10883,2356,6,2,0,'87.218.146.169',1144132198,1,0,1,1,1,1,'','','Juan Carlos,\n\nLo estamos haciendo, lo que ocurre es que lo revisamos, lo probamos, etc. Posiblemente para el próximo build de Mayo, ó antes, esté todo incorporado.','',0,'','1419b0jz',1,0,'',2,0,0),(10884,2520,4,13,0,'213.76.252.200',1144136014,1,0,1,1,1,0,'','Duplicate database and field name','Antonio,\n\nI create this code. When I try create browse object for database with field name like database error is generated (data width).\n\n[code:1rve7hpe]\nFunction TestDFN &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oLst &#58;= Nil\n   Local aStr &#58;= &#123;&#125;\n   Local i &#58;= 0\n\n   AAdd &#40;aStr, &#123;\'TestDfn\', \'C\', 30, 0&#125;&#41;\n   AAdd &#40;aStr, &#123;\'F2\',      \'N\',  5, 0&#125;&#41;\n   DbCreate &#40;\'TestDfn\', aStr&#41;\n   Use TestDFN New\n   For i &#58;= 1 To 50\n       TestDFN-&gt;&#40;DbAppend &#40;&#41;&#41;\n       TestDFN-&gt;TestDFN &#58;= \'Field&#58;\' + PadL &#40;i, 2&#41;\n       TestDFN-&gt;F2      &#58;= i\n   Next\n   TestDFN-&gt;&#40;DbGoTop &#40;&#41;&#41;\n\n   Define Window oWnd Title \'Test DFN\'\n\n   @ 20, 0 ListBox oLst ;\n   Alias TestDFN ;\n   Fields ;\n   TestDFN-&gt;TestDFN, ;\n   TransForm &#40;TestDFN-&gt;F2, \'99\'&#41; ;\n   FieldSizes 100, 30 ;\n   Headers \'TestDFN\', \'F2\' ;\n   Size 240, 200 ;\n   Pixel\n\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n[/code:1rve7hpe]\n\nRegards\nPawel','',0,'AIA=','1rve7hpe',1,0,'',13,0,0),(10885,2520,4,2,0,'87.218.146.169',1144139119,1,0,1,1,1,1,'','','Pawel,\n[code:1h6ganvv]\n   local cAlias &#58;= &quot;TestDFN&quot;\n\n   &#46;&#46;&#46;\n\n   @ 20, 0 ListBox oLst ; \n   Alias cAlias ; \n   &#46;&#46;&#46;\n[/code:1h6ganvv]\nor simply remove this line:\n[code:1h6ganvv]\n   Alias TestDFN ;\n[/code:1h6ganvv]','',0,'AIA=','1h6ganvv',1,0,'',2,0,0),(10886,2520,4,2,0,'87.218.146.169',1144142687,1,0,1,1,1,1,'','','Pawel,\n\nThis is the right fix:\n[code:1axgy7jx]\n   @ 20, 0 ListBox oLst ; \n   Fields ; \n   TestDFN-&gt;TestDFN, ; \n   TransForm &#40;TestDFN-&gt;F2, \'99\'&#41; ; \n   Alias &quot;TestDFN&quot; ; \n   &#46;&#46;&#46;\n[/code:1axgy7jx]','',0,'AIA=','1axgy7jx',1,0,'',2,0,0),(10887,2521,3,29,0,'81.174.23.40',1144150119,1,0,1,1,1,0,'','Bin problems with the FWH27 printer class','Hi,\nwith the new FWH27 EMF printer class \nthe print output go always on the same bin scheet \ninstead the default bin scheet.\n\nThere is no problem with the old WMF printer class.\n\nAny solutions ?\n\nThanks in advance\n\nMarco Turco','',0,'AIA=','3pufr3l4',1,0,'',29,0,0),(10888,2356,6,104,0,'201.58.64.74',1144152925,1,0,1,1,1,0,'','','Olá Antonio,\n\nComo faço para saber a altura (nHeight) deste objeto ?\n\n::hBmpRecSel   := FwRArrow()\n\nGracias,\n\nRossine.','',0,'AIA=','3t593yqg',1,0,'',104,0,0),(10889,2522,2,510,0,'201.243.26.46',1144156851,1,0,1,1,1,0,'','CAJAS DE DIALOGOS','Estimados amigos, como puedo hacer si usando el tbrowse (LISTBOX) ya estoy en una cja de dialogo y dentro de la misma con un bottom (Buscar) pido una funcion que tiene otra caja de dialogo, lo estoy intentanto y me presenta la caja de dialogo y desaparece alli mismo sin dejarme pedir los datos y cuando regresa me bloque la caja anterior lo unico que puedo es saLIR DE ESA CAJA ANTERIOR, SI ME PUEDEN AYUDAR SE LOS AGRADECERIA','',0,'AIA=','21mquk2q',1,0,'',510,0,0),(10890,2523,6,23,0,'212.166.227.198',1144157604,1,0,1,1,1,1,'','C5Menu adaptado por Juan Carlos Salinas','Buenassss, vengo usando esta clase que queda muy bonita pero tengo un pequeño problema que no se como solucionar.\nCuando abro una ventana en entorno MDI maximizada, se me pone el icono de la ventana justo a la izquierda del menu y todas las teclas de acceso directo a los menus quedan como \"desplazadas\".\nMe explico\nPor ejemplo :\n\n&amp;Fichas  &amp;Ventas  &amp;Cartera &amp;Utilidades.\n\nPulsado Alt+F, Alt+V, pues se despliegan los menús correspondientes.\nAhora abro una ventana maximizada y aparece\n\n[] &amp;Fichas &amp;Ventas &amp;Cartera &amp;Utilidades\n\nDonde [] es el menú de manejo de la ventana que se ha abierto.\nPulsando Alt+F, se abre ese Menú, Alt+V se abre Fichas, Alt+C Se abre ventas ... etc, etc.\n\nEs solucionable?\nMe explico?\n\nGracias.\n\nAngel Salom\n<!-- e --><a href=\"mailto:angel@sigev.com\">angel@sigev.com</a><!-- e -->','',0,'','35qdt4l1',1,0,'',23,0,0),(10891,2523,6,23,0,'212.166.227.198',1144159052,1,0,1,1,1,1,'','','Bueh! ya está claro\nAl definir la ventana principal le pongo un NOSYSMENU y así ya no me crea el icono al lado del menu.\n\n\nValeeee.','',0,'','a6dgemz5',1,0,'',23,0,0),(10892,2356,6,2,0,'87.218.146.148',1144160382,1,0,1,1,1,1,'','','Rossine,\n\nnBmpHeight( ::hBmpRecSel )','',0,'','1aszi1n3',1,0,'',2,0,0),(10893,2522,2,2,0,'87.218.146.148',1144160534,1,0,1,1,1,1,'','','Revisa el ejemplo samples\\fwbrow.prg. \n\nDesde el browse de clientes puedes abrir una caja de diálogo con los detalles del cliente y luego regresas al browse.','',0,'','2v5eil1t',1,0,'',2,0,0),(10894,2523,6,255,0,'200.67.175.250',1144160544,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:3o8uu00p]Bueh! ya está claro\nAl definir la ventana principal le pongo un NOSYSMENU y así ya no me crea el icono al lado del menu.\nValeeee.[/quote:3o8uu00p]\n\nJustamente !!!\n\nJEJE, hemos sido varios que a veces contestamos nuestros propios posts.\nSaludos','',0,'gA==','3o8uu00p',1,0,'',255,0,0),(10895,2356,6,104,0,'201.58.64.74',1144162864,1,0,1,1,1,0,'','','Gracias Maestro  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRossine.','',0,'gA==','7taw648a',1,0,'',104,0,0),(10896,2524,20,29,0,'81.174.23.40',1144163502,1,0,1,1,1,0,'','Altezza font di stampa','Ciao a tutti,\nho la necessità di aumentare le dimensioni di un font barcode perché alcuni lettori attualmente non lo leggono,\nvorrei però aumentarne le dimensioni senza aumentarne l\'altezza.\n\nPer esempio vorrei una dimensione di 32 lasciando l\'altezza di 20\n\ncon il comando \n\nDEFINE FONT OFONT NAME \"BARCODE39\" SIZE 0,-32 OF OPRN\n\nperò il font mi si ingrandisce sia in larghezza che in altezza.\n\nQualche idea ?\n\nGrazie in anticipo\n\nMarco Turco','',0,'gA==','2p3nkgav',1,0,'',29,0,0),(10897,2516,7,150,0,'212.106.243.152',1144165271,1,0,1,1,1,1,'','','Gracias Antonio.\n\nHe visto un mensaje de Otto y ActiveSync_Remote_Display es la herramienta perfecta para hacer el manual.','',0,'gA==','19lozrtv',1,0,'',150,0,0),(10898,2525,6,511,0,'201.248.65.240',1144165981,1,0,1,0,1,0,'','Indice condicional','Saludos al foro,\n\nTengo un programa que tiene un comportamiento distinto en FW y FWH, es referente a indices condicionales. Anexo un ejemplo:\n\n\n#include \"FiveWin.ch\"\n#include \"ord.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n    local cNumero\n    local aCampos := {{ \'NUMERO\', \'C\', 6, 0 }}\n\n    REQUEST DBFCDX\n    RDDSETDEFAULT( \"DBFCDX\" )\n\n    SET DATE FRENCH\n    SET CENT ON\n\n    dbcreate( \'PRUEBA\', aCampos )\n\n    use PRUEBA alias PRUEBA\n    APPEND BLANK\n    prueba-&gt;NUMERO := \"100000\"\n\n    APPEND BLANK\n    prueba-&gt;NUMERO := \"200000\"\n\n// CASO 1: Con este indice funcion bien lee unicamente el numero \"100000\"\n//    INDEX ON prueba-&gt;NUMERO TAG prueba1 TO prueba\n\n// CASO 2: Con este indice lee todos los registros\n    INDEX ON prueba-&gt;NUMERO TAG prueba1 TO prueba FOR !DELETED()\n\n    cNumero := \"100000\"\n\n    SET SCOPE TO cNumero\n    GO TOP\n    DO WHILE !eof()\n        msginfo( prueba-&gt;NUMERO )\n\n        DELETE\n        SKIP\n    ENDDO\n\n    CLOSE ALL\n\nreturn nil\n\nEsta aplicacion debe eliminar registros dentro de un rango utilizando un indice condicional.\n\nSi creamos la aplicacion con el primer indice funciona ok, pero si lo creamos con el segundo indice el scope no se queda en el valor indicado y sigue hasta el final del archivo. Esto funciona bien en FW. Alguien podria darme una mano con esto ?.\n\nGracias.','',0,'gA==','29a6xsku',1,0,'',511,0,0),(10899,2524,20,6,0,'82.59.188.165',1144166852,1,0,1,1,1,1,'','Re: Altezza font di stampa','Hai provato con\n\nDEFINE FONT OFONT NAME \"BARCODE39\" SIZE 32, 20 OF OPRN\n\nEMG','',0,'gA==','gh6mb6n5',1,0,'',6,0,0),(10900,2376,20,125,0,'213.140.6.105',1144167157,1,0,1,1,1,0,'','','Grande Enrico, chiaramente funziona bene.......l\'ho modificata e volevo che cliccando a destra con il mouse mi si evidenziasse tale cella, a tale scopo passo i parametri  (x,y) ad una mia funzione e riesco a settare con :\n\nfunction miafunc\nparam _y,_x,oBrw\noBrw:nColAct:=_x  &amp;&amp; e funziona nel senso che si evidenzia la cella X\noBrw:refresh()\n\n* non riesco pero\' ad evidenziare la cella Y\n* ho provato con\noBrw:vsetpos(_y)\noBrw:refresh()    &amp;&amp; ma non succede niente\n......\n\nCome faccio per evidenziare la cella dove ho fatto RIGHT CLICK ??\n\nGrazie\nPiscicelli/Zingoni','',0,'gA==','2vfurxcb',1,0,'',125,0,0),(10901,2376,20,6,0,'82.59.188.165',1144168628,1,0,1,1,1,1,'','','[code:1vt3wurp]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, oCol\n\n    LOCAL hBmp1 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkon&#46;bmp&quot; &#41;\n    LOCAL hBmp2 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkoff&#46;bmp&quot; &#41;\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    @ 0, 0 BROWSE oBrw;\n           ON RIGHT CLICK oBrw&#58;LButtonDown&#40; nRow, nCol, nFlags &#41;\n\n//           ON CLICK MSGINFO&#40; oBrw&#58;nColAct &#41;;\n//           ON RIGHT CLICK &#40; MSGINFO&#40; NWROW&#40; oBrw&#58;hWnd, oBrw&#58;hDC, nRow, IF&#40; oBrw&#58;oFont != nil, oBrw&#58;oFont&#58;hFont, 0 &#41; &#41; &#41;,;\n//                            MSGINFO&#40; oBrw&#58;nAtCol&#40; nCol &#41; &#41; &#41;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; last;\n               HEADER &quot;LAST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA IF&#40; TEST -&gt; last = &quot;S&quot;, hBmp1, hBmp2 &#41;;\n               BITMAP\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n    oBrw&#58;lMChange = &#46;F&#46;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:1vt3wurp]\n\nEMG','',0,'AIA=','1vt3wurp',1,0,'',6,0,0),(10902,2376,20,125,0,'213.140.6.105',1144169038,1,0,1,1,1,0,'','','Incredibile semplicita\'\n\nNon sparire per i prossimi 2000 anni\n\nGrazie','',0,'AIA=','3v0er825',1,0,'',125,0,0),(10903,2526,6,23,0,'212.166.227.198',1144169282,1,0,1,1,1,1,'','Problemas linkando HBZIP.LIB','Hola foro, estoy intentando echar a correr HBZIP.LIB en mi aplicación y al incluirlo en mi fichero de linkado, me arroja los siguientes errores :\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_Wild2RegEx\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_fsDirectory\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|zip\nError: Unresolved external \'_inflateEnd\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflate\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_get_crc_table\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateEnd\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateInit2_\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_crc32\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_fsCurDirBuffEx\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|zipnew\nError: Unresolved external \'_inflateInit2_\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_inflate\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_arraySetForward\' referenced from C:\\SI\\TRABAJO\\FWH\\SICLASES\\HBZIP\\HBZIP.LIB|zipnew\n\nMe falta algo????\n\nGracias\nAngel Salom\n<!-- e --><a href=\"mailto:angel@sigev.com\">angel@sigev.com</a><!-- e -->','',0,'AIA=','1b0bfp6b',1,0,'',23,0,0),(10904,2527,6,228,0,'200.119.104.14',1144169403,1,0,1,1,1,1,'','Impresion reporte desde array?','Como el dice en el encabezado como hago para imprimir un reporte desde un array?, de casualidad alguien sabe como hacer esto?\n\nde antemano gracias','',0,'AIA=','11iyvjli',1,0,'',228,0,0),(10905,702,2,228,0,'200.119.104.13',1144170748,1,0,1,1,1,1,'','quedo pubclida en ?','aqui esta publica para que la descarguen...\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b9dff370/88290-TDOSPRN.ZIP.html\">http://hyperupload.com/download/01b9dff ... N.ZIP.html</a><!-- m -->\n\nespero les sirva','',0,'AIA=','14h549zf',1,0,'',228,0,0),(10910,2526,6,2,0,'87.218.146.100',1144181269,1,0,1,1,1,1,'','','Angel,\n\nSi no me equivoco, esa librería es para xharbour solamente.','',0,'AIA=','2wq2ja0f',1,0,'',2,0,0),(10911,2527,6,2,0,'87.218.146.100',1144181379,1,0,1,1,1,1,'','','Leandro,\n\nRevisa samples\\report\\rep15.prg','',0,'AIA=','1eosljdw',1,0,'',2,0,0),(10912,702,2,2,0,'87.218.146.100',1144181460,1,0,1,1,1,1,'','','gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1y3xwi7v',1,0,'',2,0,0),(10913,2440,3,34,0,'68.4.154.81',1144182618,1,0,1,1,1,1,'','Future of Five Win','Antonio,\n\nThat person may be a troll, but lots of people are curious about the future of products they use.  My point is that they should really focus on today.  No one knows what tomorrow will bring.  I\'ve worked in one vertical market for 24 + years ( since dbase II runtime for CP/M ) and I\'ve seen a lot of competitors come and go.  I\'ve also seen companies promise features in their software that they never deliver.  \n\nMy point is simple.  Evaluate the product as it exists RIGHT NOW, and if it provides the solution you need today, that is the only point that matters.\n\nObviously, many people have found that Five Win works for them in developing the applications their clients need today.  No one knows what those needs will be in the future, but we can certainly assume that as the needs are presented, solutions may well be found with our existing tools ( Five Win, xHarbour/Harbour, and others ) as they are enhanced over time.\n\nBorland announced they were uniting their programs into a studio ( Delphi, C++ Builder, etc ) and then when it came time to ship, they couldn\'t get the C++ Builder to work properly.   The idea was great, but the reality wasn\'t realized.  Apparently they hadn\'t cleaned up old bugs in Delphi either, so it will be awhile before that software can be used for applications reliably.\n\nAnyway, my point is that the product works for us today and we don\'t need to worry about the future !\n\nHeck the majority of my clients are still running the old Clipper DOS application, and I released the windows version 6 years ago ...\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nTim','',0,'AIA=','1366go7b',1,0,'',34,0,0),(10914,2440,3,2,0,'87.218.146.100',1144184084,1,0,1,1,1,1,'','','Tim,\n\nI fully agree with you <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1ns0zlnn',1,0,'',2,0,0),(10915,2528,3,486,0,'200.184.85.3',1144185025,1,0,1,1,1,0,'','SOAP message','Would he like to connect a server, and possible Fwh?  \n  \n<!-- m --><a class=\"postlink\" href=\"https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS\">https://200.214.130.41:9443/farmaciahom ... icitacaoWS</a><!-- m -->  \n  \nin the manual he says:    \n    \n  The requests will be made under the form of services web (Web Services), being used of the protocol HTTPS goes     \n  transmission of the dates and SOAP 1.2 (Simple Object Acess available Protocol in the ranch - <!-- w --><a class=\"postlink\" href=\"http://www.w3.org/TR/soap\">www.w3.org/TR/soap</a><!-- w --> /) the     \n  I record of change of dates among the applications. These services will be described under the form of cribs her     \n  electronic in the format WSDL 1.1 (Web Service Description Language version 1.1 available in the ranch     \n  <!-- m --><a class=\"postlink\" href=\"http://www.w3.org/TR/wsdl\">http://www.w3.org/TR/wsdl</a><!-- m -->). \n\nClemerson','',0,'AIA=','owsixrox',1,0,'',486,0,0),(10916,2477,3,486,0,'200.184.85.3',1144186959,1,0,1,1,1,0,'','','I began to set up some tests with this lib, more the variable ret always this null one, I didn\'t discover as solving still.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.griaule.com/page/pt-br/downloads\">http://www.griaule.com/page/pt-br/downloads</a><!-- m -->\n\n#include \"FiveWin.ch\"\n\nSTATIC xLib\n\nfunction Main()\nLocal contextId,Ret\nlChDir(\"C:\\Arquivos de programas\\Griaule\\GrFinger 4.1 FREE\\bin\")\n\n  xLib:=LoadLib32(\"GrFinger.dll\")\n\n   Ret:=GrInitialize()\n? ret\n   contextId:=0\n   Ret:=GrCreateContext(@contextId)\n   Ret:=GrFinalize()\n\n   FreeLib32(xLib)\n\n\nRETURN nil\n*****************************\n\nDLL32 FUNCTION GrInitialize() AS _INT PASCAL LIB xLib\nDLL32 FUNCTION GrFinalize()   AS _INT PASCAL LIB xLib\nDLL32 FUNCTION GrCreateContext(@contextId As _INT) AS _INT PASCAL LIB xLib','',0,'AIA=','2ne393sx',1,0,'',486,0,0),(10917,2511,2,53,0,'201.137.48.242',1144187801,1,0,1,1,1,1,'','','José María:\n\nY si quitas la claúsula UNIQUE ?\n\nSaludos, Armando','',0,'AIA=','sj1ps9be',1,0,'',53,0,0),(10918,2529,3,349,0,'201.135.100.54',1144188709,1,0,1,1,1,0,'','(FW 2.7) en PreVer El Factor No Se Inicializa siempre al 1','Al prever un reporte en pantalla, pongo el factor en 3, doy doble click sobre el reporte para reducir otro doble click para agrandar, el factor se pone en el valor 1.\n\nNo Conserva el Valor del Factor.','',0,'AIA=','ba0j49dd',1,0,'',349,0,0),(10919,2530,2,401,0,'201.215.45.57',1144189151,1,0,1,1,1,0,'','Alguien sabe porque, cuando se imprime con Tdosprn....pausa','amigos, uso la clase tdosprn, y funciona bien, salvo, que cuando pincho el boton de imprimir, comienza estam y en un momento imprime hasta +/- la mitad de la impresion y de ahi hace pausas de +/- 5 sgdos y luego continua con la impresion.\n\nTengo Fw. 2.1, clipper 5.3e, blinker 5.0, workshop 4.0, y trabajo con windows Xp. profesional... alguna idea...','',0,'AIA=','e11fky9e',1,0,'',401,0,0),(10920,2514,2,401,0,'201.215.45.57',1144189532,1,0,1,1,1,0,'','Asunto resuelto, gracias','el problema quedo resuelto, gracias...\nrespuesta:\n\noLbx1:SetColor( { 1}, {{ || if( tot_fac&gt;0,rgb(0,0,255),if(tot_fac&lt;0,rgb(255,0,0),rgb(0,0,0)))}})','',0,'AIA=','29aewv2e',1,0,'',401,0,0),(10921,2525,6,255,0,'200.67.175.250',1144191113,1,0,1,1,1,1,'','','Que tal si intentas esto?\n\nPRUEBA-&gt;(OrdScope( 0, cNumero ) )\nPRUEBA-&gt;(OrdScope( 1, cNumero ) )\nPRUEBA-&gt;(DBGoTop())\n\ny para quitar el filtro\n\nPRUEBA-&gt;(OrdScope( 0, NIL ) )\nPRUEBA-&gt;(OrdScope( 1, NIL ) )\n\nEspero te sirva','',0,'AIA=','3lfbr4p1',1,0,'',255,0,0),(10922,2526,6,255,0,'200.67.175.250',1144191217,1,0,1,1,1,1,'','','Antonio, se necesitarían los fuentes para\npoder usarla con HARBOUR y compilarla.\n\nSabes donde tomar los fuentes ?','',0,'AIA=','1d7r5pj9',1,0,'',255,0,0),(10923,2526,6,2,0,'87.218.146.13',1144192900,1,0,1,1,1,1,'','','Juan Carlos,\n\nLos fuentes están en el directorio hbzlib de contribuciones de xharbour. Puedes conseguirlos desde el cvs en sourceforge, ó si quieres puedo copiarlos a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y poner un enlace de descarga aqui.\n\nTe aviso que los fuentes están en C++ y que habrá que revisar que referencias externas usa y si estan disponibles esas referencias en Harbour.','',0,'AIA=','38dvjgle',1,0,'',2,0,0),(10924,2525,6,511,0,'201.248.65.240',1144193236,1,0,1,0,1,0,'','','Gracias por la respuesta, hice la prueba y funciona igual, el problema es con el indice condicional y recuerdo haber leido en un foro de xHarbour algo respecto a un bug del INDEX, es posible que eso suceda aqui. Cuando se usan indices condicionales (!DELETED()) y defines un rango se rompe este rango al eliminar algun registro dentro del rango.\n\nSaludos','',0,'AIA=','3fwa2s82',1,0,'',511,0,0),(10925,2531,3,339,0,'200.217.87.56',1144194714,1,0,1,1,1,0,'','how print JPEG via TPRINT','Hi Friends , someone knows print JPEG with TPRINT or Other Class ?\n\n\nthanks mauricio','',0,'AIA=','1lcyqivq',1,0,'',339,0,0),(10926,2532,6,203,0,'200.107.2.145',1144197388,1,0,1,1,1,1,'','goosfancito ?','Disculpa, a lo mejor resolviste la edición de un campo memo en twbrowse\nsi es asi porfa me podrías ayudar o si alguien del foro sabe se lo agradecere\n\n\n\nSaludos\n\n\nOscar','',0,'AIA=','2mw9rsuv',1,0,'',203,0,0),(10927,2455,6,439,0,'201.221.38.186',1144201167,1,0,1,1,1,1,'','Preview de impresión en Build Abril 2006','Antonio,\n\n\nEl cambio del preview de impresión en este build logra un efecto parecido al que se obtenía con MultiPreview?','',0,'AIA=','28q8lg0m',1,0,'',439,0,0),(10928,2402,6,439,0,'201.221.38.186',1144201932,1,0,1,1,1,1,'','QFTP (Clipper Harbour) mejorado','Antonio,\n\nAquí lo tienes:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b22cee64/qftp2.zip.html\">http://hyperupload.com/download/02b22ce ... 2.zip.html</a><!-- m -->','',0,'AIA=','1n9urqz1',1,0,'',439,0,0),(10929,2533,1,320,0,'201.151.75.180',1144202391,1,0,1,1,1,0,'','oPrn:SayBitMap','Hi,  I\'m having a problem with the instruction:\n oPrn:SayBitmap(x,y,cFile,nWidth,nHight,nScale)\n\nThe Bitmap I\'m trying to print is a 250,70 pixels BMP. It displays it fine in the preview (oPrn:SayBitmap(1,1,cFile)) but in the printer is very small (about .5 x .5 cms.).\nI calculate the horizontal and vertical resolution for 80 cols and 60 rows.\n\nI had a routine in FW 1.9 that worked fine but now with FW 2.4 it is not working.\nAs a matter of fact it works fine with oReport:SayBitmap.\n\nI haven\'t found any reference on how to use the nHight,nWidth and nScale parameters.   Any suggestion ?\n\nAdvanced thanks for your attention.\nAndres','',0,'AIA=','33wttemy',1,0,'',320,0,0),(10930,2534,3,239,0,'218.19.75.233',1144204329,1,0,1,1,1,0,'','about private var','Hi,\n   \nfunction  main()\n  private var1,var2,var3\n   \n   var1:=123\n   fun1()\n   ...\n  var2:=oserver:query(\"select ..\")\n   fun2()\n    ...\n  var3:= TXBrowse():New( odlg )\n   fun3()\nreturn \n\n\nfunction  fun1()\nprivate var1\n     var1:=0.1\n     ...\nreturn \n\nfunction  fun2()\nprivate  var2\nvar2:=oserver:query(\"select ..\")\n  ...\nvar2:end()\nreturn\n\nfunction fun3()\nprivate var3\n  var3:= TXBrowse():New( odlg )\n  ...\nreturn \n\n\nIt seems , date,number,string variables like var1 does not cause prolems\nbut objects like var2,var3 cause problems.\n  Are these right ?\n\nBest regards\nShuming  Wang','',0,'AIA=','zwvpajgl',1,0,'',239,0,0),(10932,2533,1,15,0,'203.73.91.81',1144208465,1,0,1,1,1,0,'','','Hi\n\nyou can use new Image.prg within FreeImage to modify your Printer.prg.\n\nRegards,\n\nRichard','',0,'AIA=','26jhxz2x',1,0,'',15,0,0),(10933,2531,3,15,0,'203.73.91.81',1144209236,1,0,1,1,1,0,'','','Hi\n\nyou can use new Image within Freeimage to modify your Tprinter.prg code. Very Nice.\n\n[img]\n&lt;img src=\"http://img91.imageshack.us/img91/8131/clip12wh.th.jpg\" border=\"0\"&gt;[/img]\n\n\nRegards,\n\nRichard','',0,'','26cvpz4l',1,0,'',15,0,0),(10934,2531,3,15,0,'203.73.91.81',1144209311,1,0,1,1,1,0,'','','Sorry.\n&lt;a href=\"http://img91.imageshack.us/my.php?image=clip12wh.jpg\" target=\"_blank\"&gt;&lt;img src=\"http://img91.imageshack.us/img91/8131/clip12wh.th.jpg\" border=\"0\" alt=\"Free Image Hosting at <!-- w --><a class=\"postlink\" href=\"http://www.ImageShack.us\">www.ImageShack.us</a><!-- w -->\" /&gt;&lt;/a&gt;','',0,'','23tj6qrw',1,0,'',15,0,0),(10935,2330,6,18,0,'201.135.238.81',1144212453,1,0,1,1,1,1,'','','Si , claro que sí.\n\n\nLa clase TExcel tiene un metodo que se llama así Formula y puedes incluir cualquier formula en tu hoja de Excel, y además respetando la configuración local de tu PC.','',0,'','3ose4uwi',1,0,'',18,0,0),(10936,2330,6,18,0,'201.135.238.81',1144212519,1,0,1,1,1,1,'','','Aquí te dejo el método :\n\n[code:yfoi0a94]\nMETHOD Formula&#40; nRow , nCol , cValue &#41; CLASS TExcelScript // &#91; Vikthor &#93;\n   #IFDEF __XHARBOUR__\n      TRY\n         &#58;&#58;oSheet&#58;Cells&#40; nRow , nCol &#41;&#58;FormulaLocal&#58;=cValue\n      CATCH\n         MsgStop&#40; &quot;La formula no es correcta &quot;+cValue , &quot;Aviso al usuario&quot;&#41;\n      END\n	#ELSE\n       &#58;&#58;oSheet&#58;Cells&#40; nRow , nCol &#41;&#58;FormulaLocal&#58;=cValue\n	#ENDIF\nRETURN&#40; Nil &#41;\n[/code:yfoi0a94]','',0,'AIA=','yfoi0a94',1,0,'',18,0,0),(10939,2535,6,449,0,'212.64.224.244',1144224244,1,0,1,1,1,0,'','Cristal Reports','Hola,\n\nAlguien me puede enviar alguna clase de CRP o decirme de donde la puedo bajar ? Y si no es mucho pedir, algun ejemplillo de su uso  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nGracias a todos\n\nSaludos.\nC.','',0,'AIA=','3fyw4g5m',1,0,'',449,0,0),(10941,2536,1,161,0,'81.164.212.146',1144225535,1,0,1,1,1,0,'','Copy File to USB slow??','Hello,\n\nIf I copy a file of 1.6Mb using COPY FILE to a USB-stick is takes 45seconds.\nThe same file to the local disk take only 0.05s!!!!\n\nIs there an other function I can use to copy the file?\n\nThanks,\nMarc','',0,'AIA=','j7el99b8',1,0,'',161,0,0),(10942,2536,1,2,0,'87.218.146.126',1144226416,1,0,1,1,1,1,'','','Marc,\n\nThat uses to be a USB-stick hardware limitation, unless you get a faster one.','',0,'AIA=','1oxvvy4n',1,0,'',2,0,0),(10943,2521,3,3,0,'86.205.63.163',1144227151,1,0,1,1,1,1,'','Re: Bin problems with the FWH27 printer class','[quote=&quot;Marco Turco&quot;:2o6gdceg]Hi,\nwith the new FWH27 EMF printer class \nthe print output go always on the same bin scheet \ninstead the default bin scheet.\n\nThere is no problem with the old WMF printer class.\n\nAny solutions ?\n\nThanks in advance\n\nMarco Turco[/quote:2o6gdceg]\n\nAntonio\n\nI confirm the same problem\n\nRichard','',0,'gA==','2o6gdceg',1,0,'',3,0,0),(10944,2526,6,23,0,'62.87.127.89',1144227718,1,0,1,1,1,1,'','','Entonces, no hay forma posible de manejar ficheros comprimidos con harbour????','',0,'gA==','2qhdxwfk',1,0,'',23,0,0),(10945,2536,1,161,0,'81.164.212.146',1144228780,1,0,1,1,1,0,'','','Antonio,\n\nIf I copy it with explorer , it\'s much faster. I have also a routine that use fopen() and fwrite(), and this is also faster <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nMarc','',0,'gA==','396eelyb',1,0,'',161,0,0),(10946,2521,3,2,0,'87.218.146.128',1144233066,1,0,1,1,1,1,'','','Marco, Richard,\n\nWe have tested it here on a Canon Pixma MP750 and it works ok (samples\\TestPrn2.prg).\n\nWhat you can\'t do is to change the printer bin once you have initialized the printer in your application, unless you directly call the function PrinterEnd() that will force FWH to initialize again the printer object with the new default printer settings values.','',0,'gA==','hmg7yckj',1,0,'',2,0,0),(10947,2536,1,193,0,'195.212.29.187',1144233521,1,0,1,1,1,0,'','','I don\'t remember exactly but COPY FILE (or strictly speaking the corresponding function from EXTEND.LIB) uses a small buffer. By using fread() and fwrite() you can define a buffer as large as the maximum Clipper virtual segment size i.e. 0FFECh.\nVladimir Grigoriev','',0,'gA==','1amsvo0g',1,0,'',193,0,0),(10948,2536,1,6,0,'87.6.213.133',1144233584,1,0,1,1,1,1,'','','Try\n\nCOPYFILE( cSource, cDest )\n\nEMG','',0,'gA==','y63ukh2q',1,0,'',6,0,0),(10949,2531,3,339,0,'200.217.87.56',1144233828,1,0,1,1,1,0,'','','thanks , my friend\n\n   i will test OK\n\nthanks again','',0,'gA==','uiwmf0vq',1,0,'',339,0,0),(10950,2537,7,517,0,'200.195.2.246',1144233876,1,0,1,1,1,0,'','Emulador para FiveWin para Pocket PC','Onde posso baixar um emulador para FiveWin  Pocket PC\nPor Favor Postem o LINK','',0,'gA==','1eagl5s0',1,0,'',517,0,0),(10951,2537,7,2,0,'87.218.146.184',1144235048,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=57265402-47a8-4ce4-9aa7-5fe85b95de72&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->','',0,'gA==','3vfp0tue',1,0,'',2,0,0),(10952,2526,6,2,0,'87.218.146.184',1144235192,1,0,1,1,1,1,'','','Angel,\n\nHabría que ver si se puede construir la librería hbzip.lib para Harbour. Vamos a intentarlo en cuanto tengamos tiempo.','',0,'gA==','2yfopplg',1,0,'',2,0,0),(10953,2330,6,439,0,'201.221.34.199',1144235657,1,0,1,1,1,1,'','','Muchas Gracias Maestro! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3ajd2dcx',1,0,'',439,0,0),(10954,2536,1,193,0,'195.212.29.179',1144235943,1,0,1,1,1,0,'','','Enrico, I thought that there is function __COPYFILE() in Clipper that is used in COPY FILE command.\nMentioned by you COPYFILE() function is a pure FiveWin function?','',0,'gA==','2vbutdyp',1,0,'',193,0,0),(10955,2538,6,490,0,'80.24.224.89',1144235991,1,0,1,1,1,0,'','Error detectado en TRichEdit','Antonio,\n\nAl usar el METHOD SetFont2RTF( nSize ) salta un error :\n\n Error description: Error BASE/1083  Error de argumento: *\n   Args:\n     [   1] = L   .T.\n     [   2] = N   20\n\nParece ser que la función Font2RTF( nSize ) devuelve logico en vez de numérico.\n\nEstoy necesitando la forma de decirle al objecto RTF escribe en font 14 y tome perfectamente ese tamaño, y no he encontardo la forma.\n\n\n\nUn Saludo,\nJoaquín','',0,'','236frxvz',1,0,'',490,0,0),(10956,2536,1,161,0,'81.164.212.146',1144236487,1,0,1,1,1,0,'','','Enrico, \nI can\'t find the copyfile() function.\n\nVladimir, I have tried it with the fread()/fwrite() functions.\nIt\'s much faster (4.7sec) than COPY FILE (45sec), but increasing the buffer doesn\'t help. It even makes it slower. With a buffer of 1024bytes it takes 4.7sec, a buffer of 20000bytes result in 11.5sec\n\nRegards,\nMarc','',0,'','28eru0tm',1,0,'',161,0,0),(10957,2536,1,193,0,'195.212.29.187',1144237397,1,0,1,1,1,0,'','','It is very strange! As I know __COPYFILE() uses a buffer of size 1024 bytes also (or almost the same). The situation needs investigation. What does grab the time in this case?','',0,'','hqfqsn7q',1,0,'',193,0,0),(10958,2536,1,6,0,'87.6.213.133',1144237423,1,0,1,1,1,1,'','','[code:2d5ovof7]DLL32 FUNCTION COPYFILE&#40; cExistingFileName AS LPSTR, cNewFileName AS LPSTR, lFailIfExists AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;CopyFileA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:2d5ovof7]\n\nEMG','',0,'AIA=','2d5ovof7',1,0,'',6,0,0),(10959,2538,6,2,0,'87.218.146.184',1144237630,1,0,1,1,1,1,'','','Joaquín,\n\nEstá función devuelve un número:\n[code:38600o8h]\nSTATIC FUNCTION Font2RTF&#40; nSize &#41;\n\nreturn Int&#40; nSize * 10/13 &#41;\n[/code:38600o8h]\nsalvo que se le esté suministrando un valor lógico. No le estarás pasando un valor lógico en vez de uno numérico ?','',0,'AIA=','38600o8h',1,0,'',2,0,0),(10960,2538,6,490,0,'80.24.224.89',1144238308,1,0,1,1,1,0,'','','Antonio,\n\nEsa función ya la había visto, \"debe\" si no existe otra que la intercepte devolver un número.\n\nSeguro que le mando un número porque además lo pinto en la msgbar y sí lo es.\n\nNo obstante, no me preocupa excesivamente.\n\nRealmente lo que ando buscando y no encuentro nada claro en la TRichEdit es lo siguiente:\n\n\n- Selecciono un texto del oRTF y quiero que muestre un tamaño 14. Este número es el que selecciona el usuario.\n\n- Ahora vuelvo a seleccionarlo otra vez y llamo al método oRTF:SetCharFormat() y que esté posicionado el tamaño en 14.\n\n- Una vez seleccionado pulsando aceptar , que alguna función me devuelva que el texto seleccionado es tamaño 14.\n\n\n¿Que funciones uso para convertir el 14 entre las distintas opciones ?\n\nUn Saludo,\nJoaquín','',0,'AIA=','1hcilq9z',1,0,'',490,0,0),(10961,2539,18,511,0,'201.209.232.124',1144238618,1,0,1,0,1,0,'','Bug en indice conditional ?','Saludos al foro, \n\nTengo un programa que tiene un comportamiento distinto en FW y FWH, es referente a indices condicionales. Anexo un ejemplo: \n\nEsta aplicacion debe eliminar registros dentro de un rango utilizando un indice condicional, si creamos el archivo sin la condicion !NOT DELETED()funciona bien, pero si lo creamos con la condicion !NOT DELETED() el scope no se queda en el rango indicado y sigue hasta el final del archivo. \n\nEsto funciona bien en FW. Será un bug de FWH ?, recuerdo que en un foro de xHarbour encontre un reporte similar.\n\nSaludos\n\n#include \"FiveWin.ch\" \n#include \"ord.ch\" \n\n//----------------------------------------------------------------------------// \n\nfunction Main() \nlocal cNumero \nlocal aCampos := {{ \'NUMERO\', \'C\', 6, 0 }} \n\nREQUEST DBFCDX \nRDDSETDEFAULT( \"DBFCDX\" ) \n\nSET DATE FRENCH \nSET CENT ON \n\ndbcreate( \'PRUEBA\', aCampos ) \n\nuse PRUEBA alias PRUEBA \nAPPEND BLANK \nprueba-&gt;NUMERO := \"100000\" \n\nAPPEND BLANK \nprueba-&gt;NUMERO := \"200000\" \n\n// CASO 1: Con este indice funcion bien lee unicamente el numero \"100000\" \n// INDEX ON prueba-&gt;NUMERO TAG prueba1 TO prueba \n\n// CASO 2: Con este indice lee todos los registros \nINDEX ON prueba-&gt;NUMERO TAG prueba1 TO prueba FOR !DELETED() \n\ncNumero := \"100000\" \n\nSET SCOPE TO cNumero \nGO TOP \nDO WHILE !eof() \nmsginfo( prueba-&gt;NUMERO ) \n\nDELETE \nSKIP \nENDDO \n\nCLOSE ALL \n\nreturn nil \n\n\nGracias.','',0,'AIA=','k0iady5f',1,0,'',511,0,0),(10962,2536,1,161,0,'81.164.212.146',1144238912,1,0,1,1,1,0,'','','Vladimir, With a buffer of 1024 it takes 4.5sec, With a buffer of 20000 it takes 11.(sec.\n\nEnrico, I have tried the COPYFILE() it and it\'s faster.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  It takes 3.7sec to copy the file..\n\n\nMarc','',0,'AIA=','33e6pbqu',1,0,'',161,0,0),(10963,2536,1,193,0,'195.212.29.163',1144239656,1,0,1,1,1,0,'','','[quote:14q8i8sh]Vladimir, With a buffer of 1024 it takes 4.5sec, With a buffer of 20000 it takes 11.(sec.[/quote:14q8i8sh] \nI can explain this only the following way. Maybe your program uses a swap file for its virtual memory system. If you request a small block of memory then there is not any need to dwap memory on disk. If you request a large memory block a swap on disk occurs.\nIt is interesting do you use EMM memory? Try to use EMM memory for your Clipper program and check times anew.\nAs for Win API function FILECOPY() it does not use Clipper virtual memory. It allocates its own memory for copy operations. So it may be faster. On the other hand I don\'t know can you use ERROR object with WIN API FILECOPY() function? The Clipper function __FILECOPY() builds ERROR object inside itself.\n\nVladimir Grigoriev','',0,'gA==','14q8i8sh',1,0,'',193,0,0),(10964,2536,1,161,0,'81.164.212.146',1144240623,1,0,1,1,1,0,'','','[quote:1kjz7ox7]It is interesting do you use EMM memory? Try to use EMM memory for your Clipper program and check times anew. [/quote:1kjz7ox7]\n\nWhere do I specify this?\n\nMarc','',0,'gA==','1kjz7ox7',1,0,'',161,0,0),(10965,2536,1,193,0,'195.212.29.179',1144241145,1,0,1,1,1,0,'','','Open your program PROPERTIES by right mouse clicing on the shortcut. On a panel Memory (I am speaking about XP though the same should be in Win 98) there is a dropdown field Expanded (EMS) memory. Change its value from None to 8192.\nThen enlarge your buffer, for example,  from 1024 to 10240 and repeat testings. One for the 1024 buffer and another for the 10240 buffer.\n\nVladimir Grigoriev','',0,'gA==','2oxdm4wv',1,0,'',193,0,0),(10966,2536,1,161,0,'81.164.212.146',1144242059,1,0,1,1,1,0,'','','I\'m using XP-professional SP2.\nIf I right-click the shortcut and open the properties, I can\'t see the memory panel. I only can check the \'run in separate memory\' checkbox.\n\nMarc','',0,'gA==','2ehcrzxz',1,0,'',161,0,0),(10967,2540,6,413,0,'194.106.16.43',1144242864,1,0,1,1,1,0,'','Como hago un get especial de los dias de la semana...','Como hago un get de los dias de la semana como aparece en la siguiente imagen....\n\n[url=http&#58;//imageshack&#46;us:19ytf6qa][img:19ytf6qa]http&#58;//img156&#46;imageshack&#46;us/img156/9213/screenshot0015qd&#46;jpg[/img:19ytf6qa][/url:19ytf6qa]\n\nEsto está tomado desde el emulador de pocket pc pero quiero que realizar esto mismo desde fwh. La cuestion es com hacer que se oscurezca cada dia cuando se pulsa encima y poder controlar asi los dias.\n\nUn Saludo','',0,'GA==','19ytf6qa',1,0,'',413,0,0),(10968,2536,1,193,0,'195.212.29.187',1144242980,1,0,1,1,1,0,'','','O\'k Marc. I was speaking about DOS program all this time  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  but FiveWin program is a Windows program so shortcuts are different for this two types of programs.\nUnfortunately I don\'t know what Virtual Memory Manager is used in FiveWin program. This question should be addressed to Antonio Linares.\nAnyway you can write a simple DOS Clipper test program and perform the same operaions for the sake of interest. In this case you will be able to set on or set off EMS memory option on the corresponding shortcut.','',0,'GA==','eve29jpo',1,0,'',193,0,0),(10969,2536,1,193,0,'195.212.29.187',1144243574,1,0,1,1,1,0,'','','I have remembered that you can start your program with //E:value parameter! If Fivewin program uses EMS this can help. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','y7ldrgza',1,0,'',193,0,0),(10970,2521,3,29,0,'81.174.24.57',1144244043,1,0,1,1,1,0,'','','Hi Antonio,\nI don\'t want to change the bin from my app,\nI want only that my app will print on the default bin as set on the printer panel.\n\nThe tprinter class has to check which the default bin is\nand print on this bin.\n\nMarco','',0,'GA==','18i9z193',1,0,'',29,0,0),(10971,2541,6,362,0,'200.168.52.156',1144246012,1,0,1,1,1,1,'','TECLAS DE FUNCIÓN','//-&gt; Para Accionar Las Teclas Ctrl+F10 Para Llamar la Calculadora\noDlg:bKeyDown := { | nKey | TECLAS_PRESS( nKey ) }\n\nSTATIC FUNCTION TECLAS_PRESS( nKey )\n\n    DO CASE\n\n       CASE ( nKey == VK_F10 .AND. GetKeyState( VK_CONTROL ) )\n\n       ? \'Control+F10-For Windows\'\n\n       // ACTION...\n\n    ENDCASE\n           \nRETURN( .T. )\n\nAntonio, ke estoy haciendo errado??\n\nNecesito Teclar CONTROL + F10 y Hacer Una Accion...','',0,'GA==','19eelk5o',1,0,'',362,0,0),(10972,2542,6,104,0,'201.58.1.167',1144246135,1,0,1,1,1,0,'','Novo Wbrowse 1.7a de Rossine','Olá a todos,\n\nAqui esta a primeira versão contendo as modificações feitas por mim na classe wbrowse 1.7 de Hernan utilizando a classe THEADER.\n\nEu batizei esta versão como: \"WBROWSE 1.7a\"\n\nVejam as mudanças feitas por mim dentro do arquivo \"WBRW_17a.TXT\"\n\nRecursos acrescentados por mim:\n=====================\n\n- Titulo/cabecalho/Rodape podem usar o Theader ou a versão nativa (Antiga).\n\n  Obs: Para usar o novo Header é só acrescentar: oLbx:lTheader := .T.\n\n- Ordenação das colunas Crescente/Descendente.\n\nOs exemplos  são:\n============\n\nbrw.prg      - Sample criado por mim\ntestbrw.prg  - Sample de \\fwh\\samples\ntestbrw2.prg - Sample de \\fwh\\samples utilizando arquivo\ntestbrar.prg - Sample de \\fwh\\samples utilizando array\nsample01.prg - sample de Hernan\nsample02.prg - sample de Hernan\nsample03.prg - sample de Hernan\nsample04.prg - sample de Hernan utilizando REDEFINES\nsample06.prg - sample de Hernan\nsample07.prg - sample de Hernan\n\nOs erros que vocês acharem, favor postar aqui ok ?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->\n\nPeço aos  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> GURUS <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  deste forum a ajuda para podermos, quem sabe, tornar este browse, nativo e definitivo do FWH. Se vocês discordarem de algum método ou ajuste feito por mim ou se puderem melhorar o código, por favor nos ajudem. Toda ajuda será bem vinda  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nPeço também a juda de alguém que saiba Inglês e Espanhol para traduzir \neste Tópico e também o arquivo \"WBRW_17a.TXT\". Conto com a colaboração de Todos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPara gerar o wbrowse.lib vejam o conteúdo do arquivo: \"wbrowse.exe.xbp\"\n\nA lib e os exemplos foram compilados e testados com fwh 2.7 + xharbour (comercial).\n\nPara gerar o wbrowse.lib existe o fluxo: xhblib.bat\nPara gerar os exemplos existe o fluxo: c.bat    Ex: c SAMPLE01\n\nVocês podem baixar esta versão daqui: \n\n[url:2tafgopu]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/WBRW_17A&#46;ZIP[/url:2tafgopu]\n\nObrigados a todos,\n\nRossine.','',0,'EA==','2tafgopu',1,0,'',104,0,0),(10973,2440,3,193,0,'195.212.29.171',1144246374,1,0,1,1,1,0,'','','Tim you have mentioned Borland just in time. And what should programmers wrinting on Borland C++ Builder do? Should they bother about their future and the future of the Borland C++ Builder? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','34sbbawj',1,0,'',193,0,0),(10974,2521,3,3,0,'86.205.34.63',1144246433,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:ov530mpq]Hi Antonio,\nI don\'t want to change the bin from my app,\nI want only that my app will print on the default bin as set on the printer panel.\n\nThe tprinter class has to check which the default bin is\nand print on this bin.\n\nMarco[/quote:ov530mpq]\n\nMarco\n\nWe need both. The print panel must show the default bin as set on the printer panel and we need to be able to change this bin. This is the standard windows behaviour. This was working before.\n\nRichard','',0,'gA==','ov530mpq',1,0,'',3,0,0),(10975,2543,6,52,0,'200.127.195.89',1144246820,1,0,1,1,1,1,'','Cómo obtengo valores de la VERSIONINFO','Estimados, \n   Tengo esta informacion metida en una DLL, \n\n[code:1ev7z1zq]1 VERSIONINFO \nFILEVERSION 1, 0, 0, 0\nPRODUCTVERSION 1, 0, 0, 0\nFILEOS VOS_NT_WINDOWS32\nFILETYPE VFT_APP\n&#123;\n BLOCK &quot;StringFileInfo&quot;\n &#123;\n  BLOCK &quot;040904E4&quot;\n  &#123;\n   VALUE &quot;CompanyName&quot;, &quot;My Company\\000\\000&quot;\n   VALUE &quot;FileDescription&quot;, &quot;Description from &#46;def file here\\000&quot;\n   VALUE &quot;FileVersion&quot;, &quot;1&#46;00\\000\\000&quot;\n   VALUE &quot;InternalName&quot;, &quot;Application name\\000&quot;\n   VALUE &quot;LegalCopyright&quot;, &quot;Copyright © My Company 1993\\000\\000&quot;\n   VALUE &quot;OriginalFilename&quot;, &quot;&#46;exe file name here\\000&quot;\n  &#125;\n\n &#125;\n\n BLOCK &quot;VarFileInfo&quot;\n &#123;\n  VALUE &quot;Translation&quot;, 0x409, 1252\n &#125;\n\n&#125;[/code:1ev7z1zq]\n\nComo hago para poder obtener los datos, como ser version, nombre del programa, etc. desde codigo FWH o FW?','',0,'AIA=','1ev7z1zq',1,0,'',52,0,0),(10976,2526,6,255,0,'200.67.175.250',1144246887,1,0,1,1,1,1,'','','Esperemos a que tengas tiempo Antonio\nGracias','',0,'AIA=','adtunx76',1,0,'',255,0,0),(10977,2535,6,255,0,'200.67.175.250',1144247289,1,0,1,1,1,1,'','Re: Cristal Reports','[quote=&quot;Carles&quot;:33yywmci]Hola,\nAlguien me puede enviar alguna clase de CRP o decirme de donde la puedo bajar ? Y si no es mucho pedir, algun ejemplillo de su uso  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nGracias a todos\nSaludos.\nC.[/quote:33yywmci]\n\n\nA que dir te envio lo que pides ?','',0,'gA==','33yywmci',1,0,'',255,0,0),(10978,2542,6,105,0,'200.72.140.34',1144247692,1,0,1,1,1,1,'','','Thanks a lot Rossine.\n\nI\'m gonna try it right away...','',0,'gA==','o9kelsma',1,0,'',105,0,0),(10979,2445,6,237,0,'200.68.70.89',1144247959,1,0,1,1,1,0,'','Clase adaptada para fwh','Espero que te sirva, es la clase vieja adaptada para fwh. La probé con fwh23 que es de lo que dispongo y me funcionó a la primera.\n\nMucha suerte!\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01c35fec58/MultiBar.zip.html\">http://hyperupload.com/download/01c35fe ... r.zip.html</a><!-- m -->','',0,'gA==','1jr50ixl',1,0,'',237,0,0),(10980,2538,6,2,0,'87.218.146.74',1144248105,1,0,1,1,1,1,'','','Joaquín,\n\nEs un tema que ya hemos tratado anteriormente en el foro. Puedes revisarlo aqui: <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=901&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=font+point\">http://fivetechsoft.com/forums/viewtopi ... font+point</a><!-- m -->','',0,'gA==','cna8dz15',1,0,'',2,0,0),(10981,2515,2,138,0,'70.147.13.70',1144248210,1,0,1,1,1,1,'','','Ni uno ni otro... tu solucion:\n\nAdvantage Database Server (<!-- w --><a class=\"postlink\" href=\"http://www.google.com/ads.htm\">www.google.com/ads.htm</a><!-- w -->)','',0,'gA==','18fg2sxi',1,0,'',138,0,0),(10982,2440,3,2,0,'87.218.146.155',1144248292,1,0,1,1,1,1,'','','Vladimir,\n\nAccording to Borland explanations, those products will be acquired by another company that will continue their development.','',0,'gA==','xcwomxj2',1,0,'',2,0,0),(10983,2521,3,2,0,'87.218.146.155',1144248471,1,0,1,1,1,1,'','','Marco,\n\nWhat I mean is that if you change the default bin _meanwhile_ your app is running, then FWH will not respect it unless you do a PrinterEnd() and a PrinterInit(), so the print values used by FWH get properly intialized again.','',0,'gA==','qn4ajtdt',1,0,'',2,0,0),(10984,2521,3,3,0,'86.205.34.63',1144248738,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2ae4772g]Marco,\n\nWhat I mean is that if you change the default bin _meanwhile_ your app is running, then FWH will not respect it unless you do a PrinterEnd() and a PrinterInit(), so the print values used by FWH get properly intialized again.[/quote:2ae4772g]\n\nAntonio <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nThe initialisation should happen every time we call printersetup, all printer params must be reinitialized at that moment.\n\nRichard','',0,'gA==','2ae4772g',1,0,'',3,0,0),(10985,2440,3,193,0,'195.212.29.179',1144249027,1,0,1,1,1,0,'','','And where is this company? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  By the way is this company CA? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  Or Borland is searching another killer?','',0,'gA==','7742zcnv',1,0,'',193,0,0),(10986,2544,20,125,0,'213.140.6.105',1144249136,1,0,1,1,1,0,'','FTP read/copy file','Ho cambiato PC e non mi ritrovo un piccolo ma utile esempio di download/upoload di un file con FTP che avevo scaricato dal forum di fwin.\n\nRicordo che era stato fatto utilizzando la classe TFTPFILE.PRG\n\nQualcuno se lo ritrova in giro ?\n\nGrazie\nPiscicelli/Zingoni','',0,'gA==','3g20z0ai',1,0,'',125,0,0),(10987,2484,3,138,0,'70.147.13.70',1144249187,1,0,1,1,1,1,'','','Silvio:\n\nThe problem with UUID.LIB it\'s due to your BCC configuration files.\n\nWhenever you install a fresh new copy of the Borland C++ compiler you MUST have two configuration files, BCC32.CFG and ILINK32.CFG files, these files point to the correct INCLUDE and LIB directories used by the BCC compiler..\n\nThese files must be placed in the BCC32.EXE directory','',0,'gA==','z34mrd5o',1,0,'',138,0,0),(10988,2542,6,22,0,'213.82.231.129',1144251372,1,0,1,1,1,0,'','','I\'d like to try it but there is something wrong. \nTHEADER.PRG is missing.\nZip is without  path information. \n\nthank in advance.\nGianni','',0,'gA==','34gosjc9',1,0,'',22,0,0),(10989,2545,19,26,0,'84.255.245.173',1144252311,1,0,1,1,1,1,'','Windows and Mac Intel','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.apple.com/macosx/bootcamp/\">http://www.apple.com/macosx/bootcamp/</a><!-- m -->\n[quote:3pz09dto]Boot Camp allows users with a Microsoft Windows XP installation disc to install Windows XP on an Intel-based Mac, and once installation is complete, users can restart their computer to run either Mac OS X or Windows XP. Boot Camp will be a feature in \"Leopard,\" Apple\'s next major release of Mac OS X, that will be previewed at Apple\'s Worldwide Developer Conference in August.[/quote:3pz09dto]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.techworld.com/news/index.cfm?newsID=5712&amp;printerfriendly=1\">http://www.techworld.com/news/index.cfm ... friendly=1</a><!-- m -->\n[quote:3pz09dto]\nVirtualisation software company Parallels said it will announce a virtualisation product for Intel-powered Macs, with more details becoming available later this week. \n\nAccording to spokesman Ben Rudolph: \"We will enable users to run multiple operating systems (like Linux and Windows) simultaneously with Mac OS X. This is not simply a \"dual-boot\" but instead gives our users the ability to use Windows or any other operating system at the same time as Mac OS X, enabling users to enjoy the comfort of their Mac OS X desktop while still being able to use critical applications from other OSes.\" \n\nParallels is a privately held, US-based software company that launched its first virtualisation tool, Parallels Workstation, last year. The Russian-developed software competes directly with VMware Workstation and Microsoft Virtual PC, albeit -- at the time of launch - -at a lower price. \n[/quote:3pz09dto]\n\nCheers, Roman','',0,'gA==','3pz09dto',1,0,'',26,0,0),(10990,2544,20,6,0,'87.6.213.133',1144252413,1,0,1,1,1,1,'','Re: FTP read/copy file','Questo usa direttamente le API:\n\n[code:1s2bywxn]#include &quot;Fivewin&#46;ch&quot;\n\n\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\nSTATIC hLib\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hInternet, hConnect\n\n    hLib = LOADLIB32&#40; &quot;wininet&#46;dll&quot; &#41;\n\n    hInternet = INETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INETCONNECT&#40; hInternet, &quot;ftp address&quot;, INTERNET_INVALID_PORT_NUMBER, &quot;userid&quot;, &quot;password&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n    ? FTPGETFILE&#40; hConnect, &quot;remote file&quot;, &quot;local file&quot;, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n\n//    ? FTPPUTFILE&#40; hConnect, &quot;local file&quot;, &quot;remote file&quot;, 0, 0 &#41;\n\n    INETCLOSEHANDLE&#40; hConnect &#41;\n\n    INETCLOSEHANDLE&#40; hInternet &#41;\n\n    FREELIB32&#40; hLib &#41;\n\n    RETURN NIL\n\n\nDLL32 FUNCTION INETOPEN&#40; cAgent AS LPSTR, nAccessType AS DWORD, cProxyName AS LPSTR, cProxyBypass AS LPSTR, nFlags AS DWORD &#41; AS LONG;\n      PASCAL FROM &quot;InternetOpenA&quot; LIB hLib\n\nDLL32 FUNCTION INETCLOSEHANDLE&#40; hInternet AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;InternetCloseHandle&quot; LIB hLib\n\nDLL32 FUNCTION INETCONNECT&#40; hInternet AS LONG, cServerName AS LPSTR, nServerPort AS LONG, cUserName AS LPSTR, cPassword AS LPSTR, nService AS DWORD, nFlags AS DWORD, @nContext AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;InternetConnectA&quot; LIB hLib\n\nDLL32 FUNCTION FTPGETFILE&#40; hConnect AS LONG, cRemoteFile AS LPSTR, cNewFile AS LPSTR, nFailIfExists AS LONG, nFlagsAndAttribs AS DWORD, nFlags AS DWORD, @nContext AS PTR &#41; AS BOOL;\n      PASCAL FROM &quot;FtpGetFileA&quot; LIB hLib\n\nDLL32 FUNCTION FTPPUTFILE&#40; hConnect AS LONG, cLocalFile AS LPSTR, cNewRemoteFile AS LPSTR, nFlags AS DWORD, @nContext AS PTR &#41; AS BOOL;\n      PASCAL FROM &quot;FtpPutFileA&quot; LIB hLib[/code:1s2bywxn]\n\nEMG','',0,'AIA=','1s2bywxn',1,0,'',6,0,0),(10991,2544,20,125,0,'213.140.6.105',1144252734,1,0,1,1,1,0,'','','Grazie,\nma questo me lo avevi gia\' postato a suo tempo e non mi va bene poiche\' nel trasferimento di file grossi (2 mega circa) con modem vecchio non riesco a visualizzare lo scorrimento del down/up load.\nC\'e\' mica niente in quel  senso ?\n\nCiao','',0,'AIA=','whej5s0y',1,0,'',125,0,0),(10992,2542,6,104,0,'201.58.1.167',1144252940,1,0,1,1,1,0,'','','Olá Gianni,\n\nAnexado <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  \n\nFaça novamente o Download ok ?\n\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/WBRW_17A.ZIP\">http://geocities.yahoo.com.br/qiinforma ... RW_17A.ZIP</a><!-- m --> \n\nObs: Para vocês verem as mudanças que eu fiz, é só procurarem pelo\nmeu nome dentro dos programas \".PRG\" e \".C\" ok ?\n\nObrigado,\n\nRossine.\n[/url]','',0,'','28fryn9i',1,0,'',104,0,0),(10993,2544,20,6,0,'87.6.213.133',1144252987,1,0,1,1,1,1,'','','Potresti utilizzare un trucco: una progressbar che avanza con il tempo e ricomincia una volta che è arrivata in fondo. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAltrimenti sei costretto ad utilizzare le funzioni analoghe alla FOpen() e compagnia. Ho questo esempio ma non l\'ho scritto io e non so neanche se funziona:\n\n[code:g39qdn7m]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Struct&#46;ch&quot;\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct tonet\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n#define GENERIC_READ     2147483648  // 0x80000000\n#define GENERIC_WRITE    1073741824  // 0x40000000\n\n#define FTP_TRANSFER_TYPE_ASCII    1\n#define FTP_TRANSFER_TYPE_BINARY   2\n\n#define FILE_BEGIN                 0\n#define FILE_CURRENT               1\n#define FILE_END                   2\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n#define FILE_ATTRIBUTE_ARCHIVE 0\n\n\nSTATIC hLib\n\nFunction Main\n\n\n   local nActual &#58;= 0, oMeter,oDlg\n    local cText&#58;=&quot;n&#46;1&quot;\n    local osay1\n\n    FERASE&#40;&quot;FTP&#46;LOG&quot;&#41;\n\n   DEFINE DIALOG oDlg FROM 1, 1 TO 20, 44 ;\n      TITLE &quot;Testing Ftp with meter&quot;\n\n   @ 1, 1 SAY oSay1 prompt cText OF oDlg\n\n   @ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 135, 40\n\n   @ 5, 12 BUTTON &quot;&amp;Start transfer&quot;   OF oDlg size 80,40;\n        action&#40;StartTransfer&#40;oMeter,oSay1&#41;&#41;\n\n\n   ACTIVATE WINDOW oDlg\n\nreturn nil\n\nFUNCTION STARTTRANSFER&#40;oMeter,osay1&#41;\n\n\n    local cFsrv&#58;=&quot;www&#46;softwarexp&#46;co&#46;uk&quot;\n    local cFusr&#58;=&quot;ftpbackup&quot;\n    local cFpsw&#58;=&quot;backservice&quot;\n\n    local cFpth&#58;=&quot;/pigc/&quot;\n\n    local cFlocal&#58;=&quot;ftptest&#46;prg&quot;\n    local cFremote&#58;=&quot;ftptest&#46;prg&quot;\n\n    LOCAL I\n\n    FOR I&#58;=1 TO 50\n        oSay1&#58;SetText&#40;str&#40;i,4&#41;&#41;\n        FtpWriteFile&#40;cFsrv,cFusr,cFpsw,cFlocal,cFpth+cFremote,oMeter,1,100&#41;\n    NEXT\n    return nil\n\nFUNCTION FtpWriteFile&#40;cFtpSite,cFtpUser,cFtpPassword,cFtpLocal,cFtpRemote,oFtpMeter,nMeterStart,nMeterEnd&#41;\n\n    LOCAL hInternet, hConnect,lReturn, i\n    local cBuffer&#58;=space&#40;128&#41;\n    local nBufSize&#58;=128\n    local handle\n    local nSize\n    local nProgress\n    local nWritten&#58;=0\n    local lValue\n    local nRange\n    local hFile\n    local nBytes\n\n    nSize&#58;=fsize&#40;cFTPlocal&#41;\n\n    if oFTPMeter&lt;&gt;NIL\n        nRange&#58;=nMeterEnd-nMeterStart\n    endif\n\n    ftplog&#40;&quot;&quot;&#41;\n    ftplog&#40;&quot;Session FTPWRITEFILE - Site&#58; &quot;+cFtpRemote+&quot; Local file&#58;&quot;+cFtpLocal+&quot; Remote file&#58; &quot;+cFtpRemote&#41;\n\n    ftplog&#40;&quot;Loading Wininet&#46;dll&quot;&#41;\n    hLib = LOADLIB32&#40; &quot;wininet&#46;dll&quot; &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hLib,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling InetOpen&quot;&#41;\n    hInternet = INETOPEN&#40; &quot;Anystring&quot;, 0, 0, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hInternet,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling hConnect&quot;&#41;\n    hConnect = INETCONNECT&#40; hInternet, cFtpSite, 21, cFtpUser, cFtpPassword,INTERNET_SERVICE_FTP, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hConnect,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling FtpOpenFile&quot;&#41;\n    hFile &#58;= FtpOpenFile&#40; hConnect, cFtpRemote, GENERIC_WRITE, FTP_TRANSFER_TYPE_BINARY, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hFile,10&#41;&#41;\n\n    nProgress&#58;=0\n    handle&#58;=fopen&#40;cFtpLocal&#41;\n        while &#40; nBytes &#58;= FRead&#40; handle, @cBuffer, nBufSize &#41; &#41; &gt; 0\n            lReturn&#58;=InternetWriteFile&#40;hFile, cBuffer, nBytes, @nWritten &#41;\n            if lReturn=&#46;f&#46;\n                msginfo&#40;&quot;Write error&#46;&quot;&#41;\n            endif\n\n            nProgress&#58;=nProgress+nWritten\n            ftplog&#40;&quot;Wrote &quot;+alltrim&#40;str&#40;nProgress,10&#41;&#41;+&quot; of &quot;+alltrim&#40;str&#40;nSize,10&#41;&#41;&#41;\n            if oFTPMeter&lt;&gt;NIL\n                oFTPMeter&#58;Set&#40;nMeterStart+&#40;nProgress*nRange&#41;/nSize&#41;\n            endif\n        end\n       FClose&#40; handle &#41;\n\n    lValue&#58;=INETCLOSE&#40; hFile &#41;\n    if lValue\n        ftplog&#40;&quot;Closing FtpOpenFile&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing FtpOpenFile&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;=INETCLOSE&#40; hConnect &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HCONNECT&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HCONNECT&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;=INETCLOSE&#40; hInternet &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HINTERNET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HINTERNET&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;=FREELIB32&#40; hLib &#41;\n    if lValue&lt;&gt;0\n        ftplog&#40;&quot;Closing WININET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing WININET&#46; Error&#46;&quot;&#41;\n    endif\n    RETURN lReturn\n\nFUNCTION FtpReadFile&#40;cFtpSite,cFtpUser,cFtpPassword,cFtpLocal,cFtpRemote,oFTPmeter,nMeterStart,nMeterEnd&#41;\n\n    LOCAL hInternet, hConnect,lReturn, i\n    LOCAL nBytes&#58;=128\n    LOCAL cBuffer\n    LOCAL nRead\n    LOCAL nRange\n    LOCAL nSize\n    LOCAL nProgress&#58;=0\n    local handle\n    local lValue\n    local hFile\n\n\n    if oFTPMeter&lt;&gt;NIL\n        nRange&#58;=nMeterEnd-nMeterStart\n    endif\n\n    ftplog&#40;&quot;&quot;&#41;\n    ftplog&#40;&quot;Session FTPREADFILE - Site&#58; &quot;+cFtpRemote+&quot; Local file&#58;&quot;+cFtpLocal+&quot; Remote file&#58; &quot;+cFtpRemote&#41;\n    ftplog&#40;&quot;Loading Wininet&#46;dll&quot;&#41;\n\n    hLib = LOADLIB32&#40; &quot;wininet&#46;dll&quot; &#41;\n\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hLib,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling InetOpen&quot;&#41;\n    hInternet = INETOPEN&#40; &quot;Anystring&quot;, 0, 0, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hInternet,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling hConnect&quot;&#41;\n    hConnect = INETCONNECT&#40; hInternet, cFtpSite, 21, cFtpUser, cFtpPassword,INTERNET_SERVICE_FTP, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hConnect,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling FTPFILESIZE&quot;&#41;\n    nSize&#58;=FtpFileSize&#40;cFtpRemote,hConnect&#41;\n    ftplog&#40;&quot;Done&#46; File size is &quot;+str&#40;nSize,10&#41;&#41;\n\n    ferase&#40;cFtpLocal&#41;\n    if nSize=0\n        ftplog&#40;&quot;Remote file did not find&#46; Bypass reading and return &#46;f&#46;&quot;&#41;\n        lReturn&#58;=&#46;f&#46;\n    else\n        ftplog&#40;&quot;Calling FTPOPENFILE&quot;&#41;\n        hFile &#58;= FtpOpenFile&#40; hConnect, cFtpRemote, GENERIC_READ, FTP_TRANSFER_TYPE_BINARY, 0 &#41;\n\n        if hFile=0\n            ftplog&#40;&quot;Error&#46; Handle&#58;&quot;+str&#40;hFile,10&#41;&#41;\n            lReturn&#58;=&#46;f&#46;\n        else\n            ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hFile,10&#41;&#41;\n\n            cBuffer = Space&#40; nBytes &#41;\n\n            handle&#58;=fcreate&#40;cFtpLocal&#41;\n            if handle=-1\n                msginfo&#40;&quot;Unable to create dest file &quot;+cFtpLocal&#41;\n                return&#40;&#46;f&#46;&#41;\n            endif\n\n            do while &#46;t&#46;\n            lReturn&#58;=InternetReadFile&#40;hFile,cBuffer,nBytes,@nRead&#41;\n            if lReturn=&#46;f&#46;\n                msginfo&#40;&quot;errore&quot;&#41;\n                exit\n            endif\n            fwrite&#40;handle,cBuffer,nRead&#41;\n            nProgress&#58;=nProgress+nRead\n            ftplog&#40;&quot;Read &quot;+alltrim&#40;str&#40;nProgress,10&#41;&#41;+&quot; of &quot;+alltrim&#40;str&#40;nSize,10&#41;&#41;&#41;\n            if nProgress=nSize\n                exit\n            endif\n\n            if oFTPMeter&lt;&gt;NIL\n                oFTPMeter&#58;SetPos&#40;nMeterStart+&#40;nProgress*nRange&#41;/nSize&#41;\n            endif\n            enddo\n            fclose&#40;handle&#41;\n\n            lValue&#58;=INETCLOSE&#40; hFile &#41;\n            if lValue\n                ftplog&#40;&quot;Closing FTPOPENFILE&#46; Ok&#46;&quot;&#41;\n            else\n                ftplog&#40;&quot;Closing FTPOPENFILE&#46; Error&#46;&quot;&#41;\n            endif\n        endif\n    endif\n\n    lValue&#58;=INETCLOSE&#40; hConnect &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HCONNECT&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HCONNECT&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;=INETCLOSE&#40; hInternet &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HINTERNET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HINTERNET&#46; Error&#46;&quot;&#41;\n    endif\n\n\n    lValue&#58;=FREELIB32&#40; hLib &#41;\n    if lValue&lt;&gt;0\n        ftplog&#40;&quot;Closing WININET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing WININET&#46; Error&#46;&quot;&#41;\n    endif\n\n    RETURN lReturn\n\n\nFUNCTION FTPDIR&#40; cFtpSite,cFtpUser,cFtpPassword,cMask &#41;\n\n    local hFTPDir, aFiles &#58;= &#123;&#125;\n    local oWin32FindData, cBuffer\n    LOCAL hInternet, hConnect,lReturn, i\n    LOCAL nBytes&#58;=2000\n    LOCAL nRead\n    LOCAL nRange\n    LOCAL nSize\n    LOCAL nProgress&#58;=0\n    local handle\n    local npos\n    local lValue\n\n   DEFAULT cMask &#58;= &quot;*&#46;*&quot;\n\n\n    ftplog&#40;&quot;&quot;&#41;\n    ftplog&#40;&quot;Function FTPDIR &quot;+cMask&#41;\n\n    ftplog&#40;&quot;Loading Wininet&#46;dll&quot;&#41;\n    hLib = LOADLIB32&#40; &quot;wininet&#46;dll&quot; &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hLib,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling InetOpen&quot;&#41;\n    hInternet = INETOPEN&#40; &quot;Anystring&quot;, 0, 0, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hInternet,10&#41;&#41;\n\n\n    ftplog&#40;&quot;Calling hConnect&quot;&#41;\n    hConnect = INETCONNECT&#40; hInternet, cFtpSite, 21, cFtpUser, cFtpPassword,INTERNET_SERVICE_FTP, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hConnect,10&#41;&#41;\n\n\n\n   STRUCT oWin32FindData\n      MEMBER nFileAttributes  AS DWORD\n      MEMBER nCreationTime    AS STRING LEN 8\n      MEMBER nLastReadAccess  AS STRING LEN 8\n      MEMBER nLastWriteAccess AS STRING LEN 8\n      MEMBER nSizeHight       AS DWORD\n      MEMBER nSizeLow         AS DWORD\n      MEMBER nReserved0       AS DWORD\n      MEMBER nReserved1       AS DWORD\n      MEMBER cFileName        AS STRING LEN 260\n      MEMBER cAltName         AS STRING LEN  18\n   ENDSTRUCT\n\n      cBuffer = oWin32FindData&#58;cBuffer\n      ftplog&#40;&quot;Calling FtpFindFirstFile&quot;&#41;\n      hFTPDir = FtpFindFirstFile&#40; hconnect, cMask, @cBuffer, 0, 0 &#41;\n      ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hFtpDir,10&#41;&#41;\n\n      oWin32FindData&#58;cBuffer = cBuffer\n      if ! Empty&#40; oWin32FindData&#58;cFileName &#41;\n         AAdd&#40; aFiles, &#123; oWin32FindData&#58;cFileName,;\n                         oWin32FindData&#58;nSizeLow &#125; &#41;\n         while InternetFindNextFile&#40; hFTPDir, @cBuffer &#41;\n            oWin32FindData&#58;cBuffer = cBuffer\n            AAdd&#40; aFiles, &#123; oWin32FindData&#58;cFileName,;\n                            oWin32FindData&#58;nSizeLow &#125; &#41;\n         end\n      endif\n\n    lValue&#58;=INETCLOSE&#40; hFTPDir &#41;\n    if lValue\n        ftplog&#40;&quot;Closing FtpFindFirstFile&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing FtpFindFirstFile&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;=INETCLOSE&#40; hConnect &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HCONNECT&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HCONNECT&#46; Error&#46;&quot;&#41;\n    endif\n\n\n    lValue&#58;=INETCLOSE&#40; hInternet &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HINTERNET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HINTERNET&#46; Error&#46;&quot;&#41;\n    endif\n\n\n    lValue&#58;=FREELIB32&#40; hLib &#41;\n    if lValue&lt;&gt;0\n        ftplog&#40;&quot;Closing WININET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing WININET&#46; Error&#46;&quot;&#41;\n    endif\n\n\n    for i&#58;=1 to len&#40;aFiles&#41;\n        nPos&#58;=at&#40;chr&#40;0&#41;,afiles&#91;i,1&#93;&#41;\n        if nPos&gt;0\n            aFiles&#91;i,1&#93;&#58;=substr&#40;aFiles&#91;i,1&#93;,1,nPos-1&#41;\n        endif\n    next\n    RETURN aFiles\n\nreturn aFiles\n\nFUNCTION FTPFILESIZE&#40; cFTPRemote, hConnect &#41;\n\n    local hFTPDir, aFiles &#58;= &#123;&#125;\n    local oWin32FindData, cBuffer\n    local lValue\n\n    STRUCT oWin32FindData\n        MEMBER nFileAttributes  AS DWORD\n        MEMBER nCreationTime    AS STRING LEN 8\n        MEMBER nLastReadAccess  AS STRING LEN 8\n        MEMBER nLastWriteAccess AS STRING LEN 8\n        MEMBER nSizeHight       AS DWORD\n        MEMBER nSizeLow         AS DWORD\n        MEMBER nReserved0       AS DWORD\n        MEMBER nReserved1       AS DWORD\n        MEMBER cFileName        AS STRING LEN 260\n        MEMBER cAltName         AS STRING LEN  18\n    ENDSTRUCT\n\n    cBuffer = oWin32FindData&#58;cBuffer\n\n    ftplog&#40;&quot;Calling FtpFindFirstFile&quot;&#41;\n    hFTPDir = FtpFindFirstFile&#40; hConnect, cFTPRemote, @cBuffer, 0, 0 &#41;\n    if hFTPDir=0\n        ftplog&#40;&quot;Error&#46; Handle not valid&#58;&quot;+str&#40;hftpDIR,10&#41;&#41;\n    else\n        ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hftpDIR,10&#41;&#41;\n\n\n        oWin32FindData&#58;cBuffer = cBuffer\n        if ! Empty&#40; oWin32FindData&#58;cFileName &#41;\n            AAdd&#40; aFiles, &#123; oWin32FindData&#58;cFileName,;\n                        oWin32FindData&#58;nSizeLow &#125; &#41;\n        endif\n        lValue&#58;=INETCLOSE&#40; hFTPDir &#41;\n        if lValue\n            ftplog&#40;&quot;Closing FtpFindFirstFile&#46; Ok&#46;&quot;&#41;\n        else\n            ftplog&#40;&quot;Closing FtpFindFirstFile&#46; Error&#46;&quot;&#41;\n        endif\n    endif\n\n    if len&#40;aFiles&#41;&gt;0\n        return&#40;aFiles&#91;1,2&#93;&#41;\n    endif\n    return&#40;0&#41;\n\nfunction FTPlog&#40;cFtpVar&#41;\nlocal ftphandle\n\n    if &#46;not&#46; file&#40;&quot;ftp&#46;log&quot;&#41;\n        ftpHandle&#58;=fcreate&#40;&quot;ftp&#46;log&quot;&#41;\n    else\n        ftpHandle&#58;=fopen&#40;&quot;ftp&#46;log&quot;,2&#41;\n        fseek&#40;FTPhandle,0,2&#41;\n    endif\n\nfwrite&#40;ftphandle,dtoc&#40;date&#40;&#41;&#41;+&quot; &quot;+time&#40;&#41;+&quot; &quot;+cFtpVar+chr&#40;13&#41;+chr&#40;10&#41;&#41;\nfclose&#40;ftphandle&#41;\nreturn nil\n\nfunction inetclose&#40;hInternet&#41;\nif hInternet&lt;&gt;NIL\n    return&#40;inetclosehandle&#40;hInternet&#41;&#41;\nendif\n\nreturn&#40;0&#41;\n\nDLL32 FUNCTION FtpFindFirstFile&#40; hFTP AS LONG, cMask AS LPSTR,;\n                                 @cWin32DataInfo AS LPSTR, n1 AS LONG, n2 AS LONG &#41; ;\n                                 AS LONG PASCAL FROM &quot;FtpFindFirstFileA&quot; LIB hLib\n\nDLL32 FUNCTION InternetFindNextFile&#40; hFTPDir AS LONG, @cWin32DataInfo AS LPSTR &#41; ;\n                             AS BOOL PASCAL FROM &quot;InternetFindNextFileA&quot; LIB hLib\n\nDLL32 FUNCTION INETOPEN&#40; cAgent AS LPSTR, nAccessType AS DWORD, cProxyName AS LPSTR, cProxyBypass AS LPSTR, nFlags AS DWORD &#41; AS LONG;\n      PASCAL FROM &quot;InternetOpenA&quot; LIB hLib\n\nDLL32 FUNCTION INETCLOSEHANDLE&#40; hInternet AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;InternetCloseHandle&quot; LIB hLib\n\nDLL32 FUNCTION INETCONNECT&#40; hInternet AS LONG, cServerName AS LPSTR, nServerPort AS LONG, cUserName AS LPSTR, cPassword AS LPSTR, nService AS DWORD, nFlags AS DWORD, @nContext AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;InternetConnectA&quot; LIB hLib\n\nDLL32 FUNCTION FTPGETFILE&#40; hConnect AS LONG, cRemoteFile AS LPSTR,cNewFile AS LPSTR, nFailIfExists AS LONG, nFlagsAndAttribs AS DWORD,nFlags AS DWORD, @nContext AS PTR &#41; AS BOOL;\n      PASCAL FROM &quot;FtpGetFileA&quot; LIB hLib\n\nDLL32 FUNCTION FTPPUTFILE&#40; hConnect AS LONG, cLocalFile AS LPSTR,cNewRemoteFile AS LPSTR, nFlags AS DWORD, @nContext AS PTR &#41; AS BOOL;\n      PASCAL FROM &quot;FtpPutFileA&quot; LIB hLib\n\nDLL32 FUNCTION InternetWriteFile&#40; hFile AS LONG, cBuffer AS LPSTR, lSize AS LONG,;\n                                  @nSize AS PTR &#41; AS BOOL PASCAL LIB hLib\n\nDLL32 FUNCTION FtpOpenFile&#40; hFTP AS LONG, cRemoteFile AS LPSTR, n1 AS LONG,;\n                            n2 AS LONG, n3 AS LONG &#41; AS LONG PASCAL ;\n                            FROM &quot;FtpOpenFileA&quot; LIB hLib\n\nDLL32 FUNCTION InternetReadFile&#40; hFile AS LONG, cBuffer AS LPSTR, lSize AS LONG,;\n                                  @nSize AS PTR &#41; AS BOOL PASCAL LIB hLib\n\nDLL32 FUNCTION InternetSetFilePointer&#40; hFile AS LONG, nDistanceToMove AS LONG, nReserved AS LPSTR, nSeekMethod AS LONG,;\n                                  @nContext AS PTR &#41; AS BOOL PASCAL LIB hLib[/code:g39qdn7m]\n\nEMG','',0,'AIA=','g39qdn7m',1,0,'',6,0,0),(10995,2547,3,190,0,'202.65.134.45',1144253355,1,0,1,1,1,0,'','TPrinter Class','Hi All\n\nI am a TDosPrn user and I am new to Windows Printing.  I wrote a small \ncustomised report using TPrinter Class and the output in the preivew is \ngood and exactly as per my requirement.\n\nI changed the default printer to another printer.  And the output is not in \na readable position. The rows, and columns are displaced.\n\nI found the difference is just bause of their individual printer\'s resolution.\n\nCan anybody suggest me what is the procedure that I should adopt \nto get a constant output in preview/on paper, even the user selects \ndifferent printers ( with the different printer resolutions ).\n\n\nThanks in advance\n\n\n- Ramesh Babu P','',0,'AIA=','q7ct8qp4',1,0,'',190,0,0),(10996,2544,20,125,0,'213.140.6.105',1144253396,1,0,1,1,1,0,'','','Come faccio con il trucco se, dai miei test, nel momento che parto con FTPGEFILE(...) con un file di 2 mega e vecchio modem,il programma non mi da piu\' retta se non alla fine del download (anche utilizzando un timer) e quindi al cliente sembra che si sia inchiodato. \nHai forse qualche trucco super!\nTengo comunque da parte l\'altro prg che mi ha dato.\n\nGrazie\nPiscicelli/Zingoni','',0,'AIA=','17c6i7rc',1,0,'',125,0,0),(10997,2547,3,110,0,'165.98.151.243',1144254674,1,0,1,1,1,1,'','','Ramesh \n\nI you use oPrint:Say() method, youl have this problem. (this is resolution depend of printer)\n\nuse oPrint:cmSay() method for avod the problem.\n\nsorry for my very bad english.','',0,'AIA=','39cdl6hx',1,0,'',110,0,0),(10998,2526,6,23,0,'212.166.227.232',1144255424,1,0,1,1,1,1,'','','Eso, eso. Animo con ese tiempo tan escaso que tenemos en estos tiempos que corren que todos vamos con tantísima prisaaaaaaaaaa.','',0,'AIA=','2e2e7dfz',1,0,'',23,0,0),(10999,2542,6,73,0,'201.145.74.184',1144255480,1,0,1,1,1,0,'','','Gracias Rossine <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nenseguida lo probare...\nsalu2\npaco','',0,'AIA=','2tzc3si0',1,0,'',73,0,0),(11000,2544,20,6,0,'87.6.213.133',1144255653,1,0,1,1,1,1,'','','Purtroppo no. Se neanche il timer funziona allora non ci puoi fare nulla, temo.\n\nEMG','',0,'AIA=','2gmb4p0d',1,0,'',6,0,0),(11001,2547,3,190,0,'202.65.134.45',1144255891,1,0,1,1,1,0,'','','Hi carlos\n\nThank you for quick reply.\n\nI will try it and come back.\n\nRegards\n\n- Ramesh Babu P','',0,'AIA=','36vnzhvb',1,0,'',190,0,0),(11002,2544,20,125,0,'213.140.6.105',1144256256,1,0,1,1,1,0,'','','Grrrrrr!!\n\nVabbe posso sempre utilizzare la classe tftpfile.prg  e farmelo io.....tanto se ho problemi...so che c\'e\' qualcuno su cui posso contare  (1,2,3,...9999999)\n\nCiao','',0,'AIA=','398g1f1p',1,0,'',125,0,0),(11003,2542,6,300,0,'201.14.93.47',1144256798,1,0,1,1,1,0,'','Erro ao criar a lib','[quote=&quot;Rossine&quot;:2kmypoq9]Olá Gianni,\n\nAnexado <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  \n\nFaça novamente o Download ok ?\n\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/WBRW_17A.ZIP\">http://geocities.yahoo.com.br/qiinforma ... RW_17A.ZIP</a><!-- m --> \n\nObs: Para vocês verem as mudanças que eu fiz, é só procurarem pelo\nmeu nome dentro dos programas \".PRG\" e \".C\" ok ?\n\nObrigado,\n\nRossine.\n[/url][/quote:2kmypoq9]\n\n\nRossine mé dá o seguinte erro:\n\nError: Unresolved external \'_HB_FUN_FILEDELETE\' referenced from C:\\TESTE\\WBROWSE\\OBJ\\WBROWSE.OBJ','',0,'gA==','2kmypoq9',1,0,'',300,0,0),(11004,2542,6,22,0,'213.82.231.129',1144257393,1,0,1,1,1,0,'','','Ciao, Rossine\nA first little error:\nwhen I resize a column from header or footer nothing appen on data rows. You can see this from brw.exe sample.\n\nCiao\nGianni','',0,'gA==','jhk2tvy8',1,0,'',22,0,0),(11005,2548,3,167,0,'207.119.126.13',1144257755,1,0,1,1,1,1,'','printing from .exe running as a service','I have an exe loaded as a service on NT.  Many thanks to the help received from this forum in creating exe\'s to run as a service.\n\nNow, I need this application to print to the default printer.  My application uses the tprinter class and the Fivewin report class.\n\nDuring the print attempt I receive the following message.\n\n      MsgStop( \"There are no printers installed!\"  + CRLF + ;\n               \"Please exit this application and install a printer.\" )\n\nThis comes from the printer.prg (tprinter class) from the following lines of code.\n\n   if ::hDC != 0\n      aOffset    := PrnOffset( ::hDC )\n      ::nXOffset := aOffset[1]\n      ::nYOffset := aOffset[2]\n      ::nOrient  := ::GetOrientation()\n   elseif ComDlgXErr() != 0\n      MsgStop( \"There are no printers installed!\"  + CRLF + ;\n               \"Please exit this application and install a printer.\" )\n      ::nXOffset := 0\n      ::nYOffset := 0\n   else                        \n      ::nXOffset := 0    \n      ::nYOffset := 0    \n      ::nOrient  := DMORIENT_PORTRAIT     \n   endif\n\nMy question is, how can I utilize the printer class from an application running as a service?  Or, how can I \"install\" a printer which will be available to services that are running?\n\nThanks in advance.','',0,'','uar7fpvz',1,0,'',167,0,0),(11006,2440,3,2,0,'87.218.146.172',1144257802,1,0,1,1,1,1,'','','Vladimir,\n\nWell, something similar happened with Visual dBase before. Where is Visual dBase these days ? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> On the other hand, Delphi and C++ builders have a much wider users base, will this make a difference ? Time will tell <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','y4xljb2k',1,0,'',2,0,0),(11007,2547,3,335,0,'68.193.88.53',1144257878,1,0,1,1,1,0,'','','Download a zip file from my website that contains source code to deal with your printer problems.  The URL is below.\n\nThe problem is usually caused by the workstation printer using a different DPI than the printer that you used when you created the report. My program code executes a test printout that shows what adjustments need top be made for the particular printer, and writes the adjustment codes to an ini file on the workstation for future automatic reference by the report programs.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/support/prntadj.zip\">http://www.leadersoft.com/support/prntadj.zip</a><!-- m -->\n\nThis zip contains:\n\n- 2 PRG files: PrntAdj.prg and TRept23.prg\n\n- a PrntAdj.rc file containg the resource for the dialog used by PrntAdj.prg\n\n- a PrinTest.txt file to be used for the test of the printers internal settings\n\n- a PrntAdj.txt Help text file to explain things to the end user\n\nGood luck!\n\n- Roger','',0,'','1e4iqr1l',1,0,'',335,0,0),(11008,2521,3,29,0,'81.174.24.57',1144259781,1,0,1,1,1,0,'','','Antonio,\nI never set the bin from my app.\n\nI try to explain me better:\nimagine that the printer has two bins: the bin1 and the bin2,\nthe customer set as default bin the bin2 (he make this setting into the Printer control panel calling Start/Printers and fax).\n\nAfter, the customer execute my app, and try a print. \nWell the print output will not start on bin2 (the print default bin) but on bin1.\n\nThis is the biggest problem.\n\nMarco','',0,'','1uocxop2',1,0,'',29,0,0),(11009,2521,3,2,0,'87.218.146.115',1144260117,1,0,1,1,1,1,'','','Richard,\n\nYes, we should initialize the low level structure everytime PrinterSetup() is used. \n\nBut what happens if the user sets a different bin manually, from Windows printer settings ? In that case, the application is not aware of such change.','',0,'','2hct1w24',1,0,'',2,0,0),(11010,2521,3,2,0,'87.218.146.115',1144260294,1,0,1,1,1,1,'','','Marco,\n\n&gt;\nAfter, the customer execute my app, and try a print. \nWell the print output will not start on bin2 (the print default bin) but on bin1. \n&gt;\n\nWe have tried that exactly this morning and it worked ok. We started the app after the bin was manually changed. All ok.\n\nWhat we are checking now is how to detect such bin change if it is performed meanwhile the app is running.','',0,'','1kheoteq',1,0,'',2,0,0),(11011,2521,3,2,0,'87.218.146.115',1144260433,1,0,1,1,1,1,'','','Marco,\n\nOur tests were done with samples\\TestPrn2.prg and they worked ok. The printing was properly done on the control-panel-printer selected bin.','',0,'','1w4rld43',1,0,'',2,0,0),(11012,2547,3,2,0,'87.218.146.115',1144260626,1,0,1,1,1,1,'','','Roger,\n\nThanks!','',0,'','2np2l677',1,0,'',2,0,0),(11013,2539,18,2,0,'87.218.146.115',1144260870,1,0,1,1,1,1,'','','Alvaro,\n\nFWH no hace nada en absoluto sobre los RDDs, DBFs e índices. Debe de tratarse de una cuestión propia de Harbour/xharbour. \n\nUsas Harbour ó xharbour ?','',0,'','1gterug5',1,0,'',2,0,0),(11014,2542,6,104,0,'201.58.1.167',1144261042,1,0,1,1,1,0,'','','Wanderson,\n\nFiledelete faz parte do xharbour comercial, não sei se ele existe no Free.\n\nIrei rever isto ok ?\n\nGianni,\n\nVocê está usando o xharbour.org + bcc ? Se for o Free, me passe o fluxo de compilação para eu testar aqui.\n\nAbraços,\n\nRossine.','',0,'','rew5f0nq',1,0,'',104,0,0),(11015,2539,18,511,0,'201.248.65.240',1144261320,1,0,1,0,1,0,'','','Antonio,\n\nUso fwh/harbour de marzo/2006. Pudistes hacer la prueba con el PRG del ejemplo y asi saber si unicamente me pasa a mi?, gracias\n\nSaludos','',0,'','2xgopyt1',1,0,'',511,0,0),(11016,2528,3,486,0,'200.184.85.3',1144261368,1,0,1,1,1,0,'','','Hi,\n\nI got to set up this way below, I think and the road...  \n  \nThis giving this mistake in the return of the function GetLastError () =12007:  \n   If HttpSendRequest(hRequest, \"\",0,sBuffer,Alltrim(Str(Len(sBuffer)))) == 0  \n      ? \"error3\",GetLastError ()  \n   Endif  \n  \nERROR_INTERNET_NAME_NOT_RESOLVED   \n12007  \nThe server name could not be resolved. \n\nexample:\n\n\n   sBuffer:=\"\"\n   oTxt:=tTxtFile():New(\"c:\\Autorizador.wsdl\")\n   For x=1 to oTxt:Reccount()\n       sBuffer:=sBuffer+Alltrim(oTxt:readline())+chr(13)+chr(10)\n       otxt:Skip()\n   Next\n   oTxt:END()\n\n   xError :=LoadLib32(\"Kernel32.dll\")\n   xdllnet:=LoadLib32(\"WinINet.Dll\")\n\n   hOpen:=InternetOpen(\"Sysfar\", INTERNET_OPEN_TYPE_DIRECT,\"\",\"\",0)\n\n   if (hConect:=InternetConnect(hOpen,\"https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS\";\n      ,4,\"\",\"\",3,0,0)) == 0\n       msginfo(\"Não consegue conectar com servidor, conectar Internet e executar novamente o envio do arquivo ...\"+str(Getlasterror()))\n   endif\n\n   hRequest:=HttpOpenRequest(hConect,\"POST\",\"\",\"\",\"\",\"\",\"INTERNET_FLAG_SECURE\",0)\n   If hRequest==0\n      ? \"error1\",GetLastError()\n   Endif\n\n   If HttpSendRequest(hRequest,\"\",0,sBuffer,Alltrim(Str(Len(sBuffer)))) == 0\n      ? \"error3\",GetLastError()\n   Endif\n\n   hFile:=InternetOpenUrl(hOpen,\"https://200.214.130.41:9443/farmaciahomologa/services/ServicoSolicitacaoWS\",,0,,0)\n\n   If empty(hFile)\n      ? \"Não foi possivel conectar.\"\n   else\n      //InternetWriteFile(hFile, @sBuffer, 3200, @Ret)\n\n      sBuffer:= Space(3200)\n      InternetReadFile(hFile, @sBuffer, 3200, @Ret)\n\n      InternetCloseHandle(hFile)\n      InternetCloseHandle(hOpen)\n\n      If Empty(sBuffer)\n         MsgStop(\"Erro conectar servidor ...\",\"Informação !!!\")\n      else\n         MsgInfo(\"Retorno recebito com Sucesso, em desenvolvimento ...\",\"Informação\")\n         ? sBuffer\n      Endif\n   Endif\n\n   FreeLib32(xdllnet)\n   FreeLib32(xError)\n\n---------------------\nDll32 Function InternetReadFile(hFile As 7, @sBuffer As 8, lNumBytesToRead As 7, @lNumberOfBytesRead As 7) As 7 PASCAL Lib xdllnet\nDll32 Function InternetWriteFile(hFile As 7, @sBuffer As 8, lNumBytesToWrite As 7, @lNumberOfBytesWrite As 7) As 7 PASCAL Lib xdllnet\nDll32 Function InternetOpenUrl(hInternetSession As 7, lpszUrl As 8, lpszHeaders As 8, dwHeadersLength As 7, dwFlags As 7, dwContext As 7) As 7 FROM \"InternetOpenUrlA\" PASCAL Lib xdllnet\nDLL32 FUNCTION InternetOpen( cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,n4 AS DWORD ) AS LONG PASCAL FROM \"InternetOpenA\" LIB xDllNet\nDLL32 FUNCTION HttpSendRequest(hRequest As 7,@lpszHeaders as LPSTR,dwHeadersLength as DWORD,@lpOptional as VOID,dwOptionalLength as DWORD) AS LONG FROM \"HttpSendRequestA\" PASCAL LIB xDllNet\nDLL32 FUNCTION HttpOpenRequest(hConnect As 7,lpszVerb as LPSTR,lpszObjectName as LPSTR,lpszVersion as LPSTR,lpszReferer as LPSTR,lpszAcceptTypes as LPSTR,dwFlags as DWORD,dwContext as DWORD) AS LONG FROM \"HttpOpenRequestA\" PASCAL LIB xDllNet\nDLL32 FUNCTION InternetConnect( hSession AS LONG, cHost AS LPSTR, nPort AS LONG,cUserName AS LPSTR, cPassword AS LPSTR, n4 AS DWORD, n5 AS DWORD,n6 AS DWORD ) AS LONG PASCAL FROM \"InternetConnectA\" LIB xDllNet\nDLL32 FUNCTION GetLastError() AS LONG PASCAL LIB xError\nDLL32 FUNCTION HttpAddRequestHeaders(HINTERNET as 7,lpszHeaders AS LPSTR,dwHeadersLength as DWORD,dwModifiers as DWORD)  AS LONG PASCAL FROM \"HttpAddRequestHeadersA\" LIB xDllNet\n\n\nClemerson','',0,'','2ll2464j',1,0,'',486,0,0),(11017,2445,6,511,0,'201.248.65.240',1144261460,1,0,1,0,1,0,'','','Alejandro, \n\nGracias, lo pruebo y te aviso.\n\nSaludos','',0,'','2p3p6tbz',1,0,'',511,0,0),(11018,2542,6,300,0,'201.14.93.47',1144262411,1,0,1,1,1,0,'','Ok','Sim obrigado Rossine, poderei usar com o xharbour free?','',0,'','ab94vrar',1,0,'',300,0,0),(11019,2549,17,2,0,'87.218.146.94',1144262708,1,0,1,1,1,1,'','Tom Groeger - Class Crystal Reports','Class to manage Crystal Reports:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0154e43710/tcrw.prg.html\">http://hyperupload.com/download/0154e43 ... w.prg.html</a><!-- m -->','',0,'','2lowxytp',1,0,'',2,0,0),(11020,2535,6,2,0,'87.218.146.94',1144262767,1,0,1,1,1,1,'','','Carles,\n\nAqui la tienes:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2549\">http://fivetechsoft.com/forums/viewtopic.php?t=2549</a><!-- m -->','',0,'','288yg7lh',1,0,'',2,0,0),(11021,2535,6,2,0,'87.218.146.94',1144262829,1,0,1,1,1,1,'','','Juan Carlos,\n\nPuedes comprobar si es la misma ? gracias','',0,'','f4kob29d',1,0,'',2,0,0),(11022,2511,2,404,0,'85.155.215.207',1144264217,1,0,1,1,1,0,'','Gracias. Seguire haciendo pruebas.','¡GARCIAS!, Armando.\n\nProbe a quitar el UNIQUE. Y lo que sucede es que me incluye todos los registros. \n\n¿No se supone, que con UNIQUE, en el indice solo se incluyen, la primera aparición, de lo que indique la clave?\n\nSaludos. José Mª','',0,'','1bgkdxg3',1,0,'',404,0,0),(11023,2535,6,255,0,'200.67.175.250',1144265831,1,0,1,1,1,1,'','','Antonio:\n\nEs la misma <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nSaludos','',0,'','fq78259x',1,0,'',255,0,0),(11024,2550,6,255,0,'200.67.175.250',1144265908,1,0,1,1,1,1,'','TDBOdbcDirect()','A que se debe este mensaje ???\nComo evitarlo ???\n\nSome record fields (3) have change since the last retrieve operation.\nUpdate aborted.\n\n\nGracias','',0,'','1uo4k1je',1,0,'',255,0,0),(11025,2323,1,170,0,'80.170.154.27',1144269858,1,0,1,1,1,1,'','','Type() return the type of an expression by evaluate the expression.\n\nYou want to know if a function is linked in your executable ?\nIn this case, you can use Error system to intercept the error\nreturned if you do something like this :\n\n************\nfunction Test()\n************\nlocal cFunction := \"MyFunc\"\nbegin sequence\n  &amp;(cFunction)()\nend\n\n\nWhen a function is not present in the exe, the error number\nis always the same...\n\n\nRegards,','',0,'','q5z1k7zk',1,0,'',170,0,0),(11026,2542,6,104,0,'201.58.1.167',1144270760,1,0,1,1,1,0,'','','Olá Wanderson,\n\nMe falaram lá no forum do xharbour que você tem que linkar a CT.LIB junto  com seu fluxo ok ?\n\nAbraços,\n\nRossine.','',0,'','1f4x045f',1,0,'',104,0,0),(11027,2542,6,300,0,'201.14.93.47',1144273011,1,0,1,1,1,0,'','','[quote=&quot;Rossine&quot;:2ia3rcnb]Olá Wanderson,\n\nMe falaram lá no forum do xharbour que você tem que linkar a CT.LIB junto  com seu fluxo ok ?\n\nAbraços,\n\nRossine.[/quote:2ia3rcnb]\n\nOk, linkei a ct.lib e funcionou mas tem um porém está dando aquele erro de pcode quando vc chama o executável. Engraçado foi que eu recriei a lib com o mesmo xharbour e fivewin for harbour que estou compilando o exemplo. tem algum outro fonte ou .c que precisa ser recompilado? Já adicionei todos os .prg e .c necessários para criar a lib.\n\nValeu.','',0,'gA==','2ia3rcnb',1,0,'',300,0,0),(11028,2542,6,104,0,'201.58.1.167',1144273703,1,0,1,1,1,0,'','','Olá Wanderson,\n\n[code:lhkvkvpm]&gt;tem algum outro fonte ou &#46;c que precisa ser recompilado&#46;&#46;&#46;[/code:lhkvkvpm]\n\nSão somente estes:\n\nWBRWLINE.C\nGETBTN.C\ntheaders.c\n\nMe passe o seu fluxo de compilação para eu testar aqui com o xharbour free também, pois eu uso o comercial e eu não sei montar o fluxo para o Free ok ?\n\nObrigado e abraços,\n\nRossine.','',0,'AIA=','lhkvkvpm',1,0,'',104,0,0),(11029,2537,7,517,0,'201.18.107.90',1144273797,1,0,1,1,1,0,'','','Baixei o Emulador, mas não consegui Fazer ele Funcionar\nTeria como me passar umas Dicas (ajuda)','',0,'AIA=','12vn9c13',1,0,'',517,0,0),(11030,2542,6,300,0,'201.14.93.47',1144273902,1,0,1,1,1,0,'','','[quote=&quot;Rossine&quot;:1fyg032m]Olá Wanderson,\n\n[code:1fyg032m]&gt;tem algum outro fonte ou &#46;c que precisa ser recompilado&#46;&#46;&#46;[/code:1fyg032m]\n\nSão somente estes:\n\nWBRWLINE.C\nGETBTN.C\ntheaders.c\n\nMe passe o seu fluxo de compilação para eu testar aqui com o xharbour free também, pois eu uso o comercial e eu não sei montar o fluxo para o Free ok ?\n\nObrigado e abraços,\n\nRossine.[/quote:1fyg032m]\n\nOlá Rossine, estou usando verce para recriar a lib com o xh09960 free e também compilar os exemplos.','',0,'gIA=','1fyg032m',1,0,'',300,0,0),(11031,2542,6,300,0,'201.14.93.47',1144274113,1,0,1,1,1,0,'','','[quote=&quot;Wanderson&quot;:2mqcs9qz][quote=&quot;Rossine&quot;:2mqcs9qz]Olá Wanderson,\n\n[code:2mqcs9qz]&gt;tem algum outro fonte ou &#46;c que precisa ser recompilado&#46;&#46;&#46;[/code:2mqcs9qz]\n\nSão somente estes:\n\nWBRWLINE.C\nGETBTN.C\ntheaders.c\n\nMe passe o seu fluxo de compilação para eu testar aqui com o xharbour free também, pois eu uso o comercial e eu não sei montar o fluxo para o Free ok ?\n\nObrigado e abraços,\n\nRossine.[/quote:2mqcs9qz]\n\nOlá Rossine, estou usando verce para recriar a lib com o xh09960 free e também compilar os exemplos.[/quote:2mqcs9qz]\n\nRossine consegui, tonteira minha estava selecionando no verce harbour ao invés de xharbour. obrigado. Teria como vc disponibilizar a buttonbmp que você alterou. Muito obrigado.','',0,'gIA=','2mqcs9qz',1,0,'',300,0,0),(11032,2551,6,52,0,'200.127.195.89',1144274169,1,0,1,1,1,1,'','BtnGet &amp; insert','Estimados,\n\nComo hago para que el BTNGET cuando tome el foco entre con el INSERT y no con no-insert?','',0,'gIA=','s444gcwl',1,0,'',52,0,0),(11033,2537,7,2,0,'87.218.146.94',1144274668,1,0,1,1,1,1,'','','deviceemulator ppc_2003_se_wwe_armv4.bin /skin Pocketpc_2003_skin.xml /memsize 128','',0,'gIA=','tt8vbbg8',1,0,'',2,0,0),(11034,2542,6,519,0,'81.39.224.130',1144275675,1,0,1,1,1,0,'','','Hola Rossine\n\n\n  Cuando pongo oBrw:lCellStyle    := .f.  me da este error\n\nApplication\n===========\n   Path and name: C:\\aTest\\TESTBRAR.exe (32 bits)\n   Size: 1,516,544 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04/06/06, 00:16:24\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: SETWIDTH\n   Args:\n     [   1] = N   2\n     [   2] = N   0\n\nStack Calls\n===========\n   Called from SETWIDTH(0)\n   Called from TWBROWSE:GORIGHT(1539)\n   Called from TWBROWSE:GOTOCOL(3514)\n   Called from IDXCOL(4693)\n   Called from TWBROWSE:DRAWHEADERS(3403)\n   Called from TWBROWSE:PAINT(1139)\n   Called from TWBROWSE:DISPLAY(3186)\n\n  un saludo','',0,'','25os5yv6',1,0,'',519,0,0),(11035,2552,18,300,0,'201.14.93.47',1144275832,1,0,1,1,1,0,'','Question about fwh 2.7 April build','Hi Antonio,\n\nFwh2.7 april build fix the cancel clause with acelerator in button?\n\nExample: ALT+C in button ignores cancel clause.\n\nThanks.','',0,'','28ck0rpp',1,0,'',300,0,0),(11036,2553,3,207,0,'148.233.32.162',1144276065,1,0,1,1,1,0,'','Leer puerto COMM','Que tal a Todos: \n \n En clipper tengo  funcionando lo siguiente:\n \n.....\n    DO WHILE .T.\n                nTrab := nChars := nInicio := 0\n                cStatus:=\"\"\n                /* Limpiar el buffer para una nueva lectura*/\n                COM_FLUSH(nPuerto)\n \n                DO WHILE (nChars := COM_COUNT(nPuerto)) &lt;= 6 // Asegura\n                   @ 18,17 SAY \"Leyendo el peso...\"          // al menos haya 7\n                                                                          // car cteres en\n                   IF INKEY() = K_ESC                        // el Buffers.\n                      RESTSCREEN (16,15,21,36,cVentana)\n                      SETCOLOR(cColorAnt)\n                      RETURN(-1)\n                   ENDIF\n                ENDDO                \n                @ 18,17 SAY SPACE(18)\n                \n                /* Toma la cadena de car cteres del buffer */\n                cDato := COM_READ(nPuerto)\n                \n                nInicio := at(chr(2) , cDato)  // B£sca el carater STX (inicio)\n                \n                nTrab := val( substr ( cDato, nInicio+2, 7 ) )\n                \n                cStatus := substr( cDato, nInicio+11, 1 )\n                \n                @ 19,25 SAY  nTrab PICT \"9999999\"\n \n                GrabaEntrada(nTrab)\n                DO CASE\n   CASE cStatus == \" \"\n                                EXIT    /* El TRAB es correcto */\n    ENDCASE\n \n                EXIT\n ENDDO\n \nY NECESITO PASARLO A FIVEWIN, PARA ESO PUSE LO SIGUIENTE:\n \nfunction entrada()\nlocal cDcb, nBytes,nError,cDataRead\nlocal nComm := OpenComm( \"COM2\", 1024, 128 )\n\nif ! BuildCommDcb( \"COM2:9600,n,8,1\", @cDcb )\nnError = GetCommError( nComm )\nMsgInfo( \"BuildCommDcb Error: \" + Str( nError ) )\nendif\n \nif ! SetCommState( cDcb )\nnError = GetCommError( nComm )\nMsgInfo( \"SetCommState Error: \" + Str( nError ) )\nendif\n \n***Read Comm Port here\nDO WHILE .t.\n   nBytes := ReadComm( nComm , @cDataRead)\n   msginfo(nBytes)    //  &lt;----- AQUI SOLO MUESTRA  -1\nif nBytes  &gt; 6 \n   msginfo(cDataRead)\n   exit\nendif\nenddo\nmsginfo(cDataRead)\n \n***Close Comm Port\nif FlushComm( nComm, 0 ) != 0\nnError = GetCommError( nComm )\nMsgInfo( \"FlushComm Error: \" + Str( nError ) )\nendif\n \nif ! CloseComm( nComm )\nnError = GetCommError( nComm )\nMsgInfo( \"CloseComm Error: \" + Str( nError ) )\nendif\n \nPodrian ayudarme en lo que me falta, por favor, de antemano muchas gracias\n \nAtte Miguel Salas','',0,'','20a7zoie',1,0,'',207,0,0),(11037,2550,6,123,0,'83.53.71.90',1144276135,1,0,1,1,1,0,'','','Juan Carlos,\n\nLa clase tOdbcDirect utiliza la misma técnica que ADO: hace una consulta de acción para verificar si los datos que vas a actualizar son \'consistentes\'.  En caso que hayan sido modificados por otro terminal mientras tu estabas editando los mismos datos la clase te avisa con el mensaje que citas.\n\nSaludos,\nJosé Luis Capel','',0,'','27qv6o3y',1,0,'',123,0,0),(11038,2537,7,517,0,'201.18.107.90',1144276155,1,0,1,1,1,0,'','','Descupla pela minha falta de Experiencia, mas não deu certo !\nMeu sistema Operacional \nWINDOWS 98\n\nFoi instalado na pasta \nC:\\Arquivos de programas\\Windows CE Tools\\wce420\\POCKET PC 2003\n\nDesde já obrigado pela atenção','',0,'','3s1bv93i',1,0,'',517,0,0),(11039,2440,3,35,0,'65.188.6.143',1144276617,1,0,1,1,1,0,'','','Just my 2 cents on Borland\'s IDE potential buyer ..  Bill Gates. If I recall he just bought the \'open source\' OfficeOffice.org .. His explaination ..  Saying he \"was sick and tired of open-source eating away at his profits,\" \n\n\n<!-- m --><a class=\"postlink\" href=\"http://slashdot.org/article.pl?sid=06/04/01/1439207\">http://slashdot.org/article.pl?sid=06/04/01/1439207</a><!-- m -->\n\nRick Lipkin','',0,'','2ksud082',1,0,'',35,0,0),(11040,2551,6,362,0,'200.168.52.156',1144278283,1,0,1,1,1,1,'','','GetKeyToggle( VK_INSERT, .T. )\n    GetKeyToggle( VK_INSERT )\n    KeyToggle( VK_INSERT )\n\n    O...\n\n    Set( _SET_INSERT, ! Set( _SET_INSERT ) )','',0,'','31xfj41w',1,0,'',362,0,0),(11041,2554,2,501,0,'200.32.103.42',1144280087,1,0,1,1,1,0,'','Se pueden definir paneles en un dialog?','Se pueden definir \"paneles\" cosa de poder separar por un lado los controles, botones, trees, etc, de la parte que uno quiera que ocupe el browse, por ejemplo menu en tree y botones sobre la izquierda en forma vertical, sobre la derecha desde la mitad y hasta el final un browse en otro panel, y que al redimensionar el dialogo se redimensione solo el panel que uno quiera, por ejemplo el sector del browse. \n\nEs solo estético nada importante, de hecho ahora meto todos los botones en una barra de botones y que se redimensione todo el resto, pero a veces hacen falta otras cosas en el dialogo. \n\nGracias.','',0,'','2e3hbh8v',1,0,'',501,0,0),(11042,2542,6,73,0,'201.145.74.184',1144281366,1,0,1,1,1,0,'','','Rossine, este version es funcional para Harbour?\nsalu2\npaco','',0,'','1yarz28d',1,0,'',73,0,0),(11043,2551,6,52,0,'200.127.195.89',1144282091,1,0,1,1,1,1,'','','Gracias','',0,'','6e9yqzev',1,0,'',52,0,0),(11044,2555,3,234,0,'210.177.12.129',1144282743,1,0,1,1,1,1,'','Excel and FWH (Save As, Font Color, Cell shading)','Hello,\n\nI am using the great example provided by Milan and I need add the following functionality.\n\n1) Perform Save As without dialog box\n2) Change font color\n3) Change cell shading\n\nCan anyone help?\n\nSincerely,','',0,'','1qtuz5zw',1,0,'',234,0,0),(11045,2542,6,439,0,'201.221.39.96',1144283719,1,0,1,1,1,1,'','CT.lib para xHarbour .99.60','En mi versión de xHarbour no tengo CT.lib, donde la puedo conseguir?','',0,'','19zdl9sa',1,0,'',439,0,0),(11046,2556,6,439,0,'201.221.39.96',1144283784,1,0,1,1,1,1,'','CT.lib para xHarbour','Existe una CT.lib para xharbour 0.99.60 y subsiguientes?\n\nMe podrían facilitar el link para bajarlo?','',0,'','19v01vc2',1,0,'',439,0,0),(11048,2557,7,215,0,'200.95.48.189',1144289751,1,0,1,1,1,0,'','Compra del FiveWin para Pocket PC','Don Antonio,\nHe visto en la página la opción de compra del producto, pero ¿No hay la opción de actualizaciones?.\n\nSaludos\nFernando Leal','',0,'','35st060u',1,0,'',215,0,0),(11049,2542,6,45,0,'200.117.235.168',1144290935,1,0,1,1,1,0,'','Re: Novo Wbrowse 1.7a de Rossine','Hola,\n   Regreso al foro despues de un merecido mini descanso y me encuentro con esto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n   El problema es que yo le estoy haciendo modificaciones a la clase wbrowse que tenia ganas de publicarla este sabado 05/04, pero bueno, ahora se suman estas modificaciones que son bienvenidas, pero que tendria que ponerme a ver que tal funcionan sobre TWBrowse 18 y si afectan o no el \"rendimiento\" y la estabilidad de la clase. TWbrowse se basa en el pilar del rendimiento, no es que no este de acuerdo con los add ons, sino que habria que ver cuanto afectan los tiempos. \n\nSalu2\nHernan <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','3a5ju3ck',1,0,'',45,0,0),(11050,2542,6,439,0,'201.221.38.122',1144291548,1,0,1,1,1,1,'','TWBrowse 18','Hernán,\n\nPublica tus modificaciones para quienes estamos usando tu clase TWBrowse 17, luego habrá tiempo para ver estos otros cambios.\n\nVeo los cambios de Rossine muy positivos, pero de momento no he utilizado su clase, y las mejoras que introduce no se implementarán en lo inmediato en mis aplicaciones.\n\nLuego habrá tiempo y será muy interesante poder complementar la nueva TWBrowse 18 con los cambios que Rossine incorpora, lo que seguramente requerirá que ambos coordinen esfuerzos.\n\nDisfruto mucho de la clase TWBrowse!! y su permanente crecimiento.\n\nEspero pronto noticias del link para bajar la nueva version!!!!!!','',0,'','32rvut3c',1,0,'',439,0,0),(11051,2547,3,190,0,'202.65.134.27',1144302442,1,0,1,1,1,0,'','','Mr.Roger\n\nThank you very much for your help.\n\nI could understand your logic and I feel that it is a work around process. \nAnd I can\'t bother my user to test every report supplying with different \nParameters untill they get correct output for every printer they deal with.\n\nI am in search of an automatic mechanism which can convert row, col \nco-ordinates of customised reports when they are printed on any windows\nprinter, having different resolutions.\n\nI don\'t know how all other\'s are printing these customised reports on\ndifferent Windows Printers having different resolutions using FWH <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \n\nRegards to you\n\n- Ramesh Babu P','',0,'','1tqdzfaz',1,0,'',190,0,0),(11052,2557,7,2,0,'87.218.146.94',1144304512,1,0,1,1,1,1,'','','Fernando,\n\nDe momento las actualizaciones son gratuitas, hasta que oficialmente se publique la versión 1.0. A partir de ese momento, habrá actualizaciones de pago por dos meses, como con los demás productos.','',0,'','1lts5kaj',1,0,'',2,0,0),(11053,2535,6,449,0,'212.64.224.249',1144305762,1,0,1,1,1,0,'','','Antonio, Juan Carlos,\n\n\nGracias. Voy a estudiarla. Un par de detalles:\n\n- Funciona a partir de alguna version en especial ?\n- El runtime es un producto con o sin royalties ?\n- Algun ejemplo de como funciona la clase ?  \n\nSaludos.\n\nCarles\n\nmail: carles.aubia arroba zprog.net','',0,'','3je0dpka',1,0,'',449,0,0),(11054,2537,7,2,0,'87.218.146.94',1144306098,1,0,1,1,1,1,'','','Please download this file:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/?get=956QJW73\">http://www.uploading.com/?get=956QJW73</a><!-- m -->','',0,'','13nxymzr',1,0,'',2,0,0),(11055,2440,3,2,0,'87.218.146.94',1144306553,1,0,1,1,1,1,'','','Rick,\n\nIt was an April 1st joke. An open source project can\'t be bought <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','32nla3lr',1,0,'',2,0,0),(11056,2535,6,2,0,'87.218.146.94',1144306774,1,0,1,1,1,1,'','','Juan Carlos,\n\nSabes si hay ejemplos de uso disponibles ? gracias.','',0,'','dm1rxl0n',1,0,'',2,0,0),(11057,2558,17,2,0,'87.218.146.94',1144306963,1,0,1,1,1,1,'','Manuel Mercado - Class TSBrowse','Clase TSBrowse:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e675c175/TSBROWSE.rar.html\">http://hyperupload.com/download/02e675c ... E.rar.html</a><!-- m -->\n\nEjemplos de uso:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/014acf9331/samples.rar.html\">http://hyperupload.com/download/014acf9 ... s.rar.html</a><!-- m -->','',0,'','37fju1ok',1,0,'',2,0,0),(11058,2542,6,22,0,'213.82.231.129',1144307693,1,0,1,1,1,0,'','','Ciao, Rossine\nA first little error:\nwhen I resize a column from header or footer nothing appen on data rows. You can see this from brw.exe sample.\n\nI\'m using xHarbour.com march 2006 + fivewin 2.7\n\nCiao\nGianni','',0,'','17i937yk',1,0,'',22,0,0),(11059,2556,6,2,0,'87.218.146.94',1144307855,1,0,1,1,1,1,'','','Jose,\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b847c869/ct.zip.html\">http://hyperupload.com/download/02b847c869/ct.zip.html</a><!-- m -->','',0,'','1snf9g6n',1,0,'',2,0,0),(11060,2559,3,80,0,'202.72.164.124',1144313011,1,0,1,1,1,0,'','Print Preview','To All \n\nI have the latest build of Fivewin but I cant seem to get the \nupdated Print Preview - I have copied prev32.dll into my application \ndirectory (file dated 12.05.2005 ) - I also have a manifest file also\nin that directory but it still is the old print preview.\n\nRegards\n\nColin','',0,'','4j7o2jzy',1,0,'',80,0,0),(11061,2323,1,193,0,'195.212.29.171',1144313903,1,0,1,1,1,0,'','','I did not test but can be a such situation that BEGIN SEQUENCE will intercept an error which occured inside MyFunc() and wil be difficult to distinguish if the error is generated by the absence of the function or by the function itself?','',0,'','1itjkyjq',1,0,'',193,0,0),(11062,2559,3,2,0,'87.218.146.94',1144314283,1,0,1,1,1,1,'','','Colin,\n\nPlease test samples\\TestPrn2.prg and let us know how it looks. Thanks.','',0,'','2x1f5vev',1,0,'',2,0,0),(11063,2323,1,2,0,'87.218.146.94',1144314448,1,0,1,1,1,1,'','','Vladimir,\n\nYou may also modify Clipper errorsys and check for \"undefined function\" error.','',0,'','39vysl2t',1,0,'',2,0,0),(11064,2440,3,193,0,'195.212.29.179',1144314581,1,0,1,1,1,0,'','','In fact can be bought! For example what about xHarbour \"professional\" or some releases of Linux published, for example, by Red Hat? If you have enough capital you can buy a project and turn buissness such away that you program will reduce to zero all efforts of open source project!  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'','20jsg1li',1,0,'',193,0,0),(11065,2323,1,193,0,'195.212.29.179',1144314774,1,0,1,1,1,0,'','','This is an idea! It need to be tested.','',0,'','2ij5p9au',1,0,'',193,0,0),(11066,2559,3,80,0,'202.72.164.124',1144315043,1,0,1,1,1,0,'','Print Preview','Antonio\n\nI tested that program and it is still the old \nprint preview.\n\nCheers\n\nColin','',0,'','29keeplj',1,0,'',80,0,0),(11067,2552,18,2,0,'87.218.146.94',1144316492,1,0,1,1,1,1,'','','Wanderson,\n\nThis code is properly working with FWH april build:\n[code:122ldxli]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cTest &#58;= Space&#40; 20 &#41;\n   \n   DEFINE DIALOG oDlg \n   \n   @ 1, 2 GET cTest VALID ! Empty&#40; cTest &#41;\n   \n   @ 3, 5 BUTTON &quot;&amp;Cancel&quot; ACTION oDlg&#58;End&#40;&#41; CANCEL\n   \n   ACTIVATE DIALOG oDlg CENTER\n   \nreturn nil   \n[/code:122ldxli]','',0,'AIA=','122ldxli',1,0,'',2,0,0),(11068,2440,3,2,0,'87.218.146.94',1144316634,1,0,1,1,1,1,'','','Vladimir,\n\nYou can create a company to deliver an open source product, and sell added value and/or services. But the product remains open source and free cause GPL licence.','',0,'AIA=','3ba9dh34',1,0,'',2,0,0),(11069,2559,3,2,0,'87.218.146.94',1144316721,1,0,1,1,1,1,'','','Colin,\n\nWhat do you mean as the \"old\" one ? \n\nCould you please post a screenshot here ? Place it at <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the provided link. Thanks.','',0,'AIA=','49g1gpsm',1,0,'',2,0,0),(11070,2560,3,131,0,'194.179.55.36',1144319291,1,0,1,1,1,0,'','sending mail trought Lotus Notes','Hello:\nHas anybody a sample of sending mail trought Lotus Notes ? It has to be done using OLE and I don\'t find how to do it.\n\nRegards,','',0,'AIA=','3msy38dd',1,0,'',131,0,0),(11071,2561,6,131,0,'194.179.55.36',1144319382,1,0,1,1,1,0,'','Enviar correo con Lotus Notes','Hola:\nAlguien tiene un ejemplo de como enviar correo a través de Lotus Notes ? Se tiene que hacer usando OLE, pero no doy con la secuencia correcta de mandatos para hacerlo.\n\nSaludos,','',0,'AIA=','1w98wgt6',1,0,'',131,0,0),(11072,2560,3,2,0,'87.218.146.94',1144320083,1,0,1,1,1,1,'','','Jose Luis,\n\nDo you have Lotus Notes installed on your computer ?','',0,'AIA=','ay0y059x',1,0,'',2,0,0),(11073,2561,6,2,0,'87.218.146.94',1144320169,1,0,1,1,1,1,'','','Jose Luis,\n\nExiste un software cliente de Lotus Notes que se pueda instalar libremente ? O un demo ?','',0,'AIA=','2zy8wmg0',1,0,'',2,0,0),(11074,2561,6,2,0,'87.218.146.94',1144320226,1,0,1,1,1,1,'','','Jose Luis,\n\nSabes cual es la cadena de descripción de OLE ?','',0,'AIA=','61emwf0v',1,0,'',2,0,0),(11075,2560,3,131,0,'194.179.55.36',1144320625,1,0,1,1,1,0,'','','Yes, I\'ve Notes.\n\nThis is a sample with VB:\n\n    Set session = CreateObject(\"Notes.NotesSession\")\n    Set db = session.GetDatabase(\"\", \"\")\n    Set doc = db.CreateDocument()\n\n    doc.Form = \"Main Topic\"\n    doc.Subject = Form1.Text3.Text\n    doc.Body = Form1.Text2.Text\n    Call doc.Save(True, False)\n\nRegards,','',0,'AIA=','1uwn5u3j',1,0,'',131,0,0),(11076,2561,6,131,0,'194.179.55.36',1144320836,1,0,1,1,1,0,'','','No se si hay demo de Notes, creo que no porque va asociado al servidor Domino de IBM.\n\nUn ejemplo con VB de lo que quiero hacer sería este:\n\n    Set session = CreateObject(\"Notes.NotesSession\")\n    Set db = session.GetDatabase(\"\", \"\")\n    Set doc = db.CreateDocument()\n\n    doc.Form = \"Main Topic\"\n    doc.Subject = Form1.Text3.Text\n    doc.Body = Form1.Text2.Text\n    Call doc.Save(True, False)\n\nLo que no tengo claro con OLE es cuando tengo que crear un objeto con CreateDocument y como llamar a un método del objeto. Por ejemplo, si hago esto:\n\n   oNotesSession  := CreateObject( \"Notes.Notessession\" )\n   oNotesDb       := oNotesSession:GetDatabase( \"\",\"\" )\n   oNotesDb:Invoke(\"CreateDocument\")\n\nme pega un truene tremendo al crear el documento.\n\nSaludos,','',0,'AIA=','33dq1hcj',1,0,'',131,0,0),(11077,2560,3,2,0,'87.218.146.43',1144321074,1,0,1,1,1,1,'','','Jose Luis,\n\nOk, have you tried the same logic with xharbour TOleAuto ?','',0,'AIA=','14dmq5cr',1,0,'',2,0,0),(11078,2559,3,80,0,'202.72.164.124',1144321521,1,0,1,1,1,0,'','Print Preview','Antonio\n\nI have uploaded an image preview.jpg , I hope it worked okay,\nthe current print preview does not have xp themes or the new\nrebar - which it states in the whatsnew.txt\n\nCheers\n\nColin','',0,'AIA=','3c1v742k',1,0,'',80,0,0),(11079,2555,3,6,0,'87.1.225.4',1144322020,1,0,1,1,1,1,'','Re: Excel and FWH (Save As, Font Color, Cell shading)','This is a working sample:\n\n[code:2rvphxeo]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel &#58;= CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    LOCAL oWorkBook &#58;= oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    LOCAL oSheet &#58;= oExcel&#58;ActiveSheet\n\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Value = &quot;This is a test&quot;\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Font&#58;Color = 255\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Interior&#58;Color = 11184810\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Font&#58;Shadow = &#46;T&#46;\n\n    oWorkBook&#58;SaveAs&#40; &quot;c&#58;\\xharbour\\newfile&#46;xls&quot; &#41;\n\n    oExcel&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:2rvphxeo]\n\nEMG','',0,'AIA=','2rvphxeo',1,0,'',6,0,0),(11080,2559,3,2,0,'87.218.146.43',1144322106,1,0,1,1,1,1,'','','Colin,\n\nYou have to post here the URL link to review the image.','',0,'AIA=','322tf35b',1,0,'',2,0,0),(11081,2561,6,2,0,'87.218.146.43',1144322351,1,0,1,1,1,1,'','','Jose Luis,\n\nTe refieres a un GPF, si ? \n\nSabes si Lotus Notes es un Activex ó un servicio OLE solamente ?\n\nTienes acceso al IDE de C3 ?','',0,'AIA=','1zp3s2y1',1,0,'',2,0,0),(11082,2561,6,131,0,'194.179.55.36',1144322567,1,0,1,1,1,0,'','','El error que me da no es un GPF, es este:\n   ...\n   Error description: Error Notes.Notessession:GETDATABASE/16389  E_FAIL: CREATEDOCUMENT\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:CREATEDOCUMENT(0)\n   Called from:  =&gt; HB_EXECFROMARRAY(0)\n   Called from: win32ole.prg =&gt; TOLEAUTO:INVOKE(403)\n   Called from: punidade.prg =&gt; UNNOTES(656)\n   Called from: punidade.prg =&gt; (b)UNIDADES(154)\n   ...\n\n¿ Como puedo saber si es un ActiveX o un servicio OLE ? Yo creo que es un servicio OLE solamente, pero no te lo puedo asegurar.\n\nSaludos,','',0,'AIA=','3rz7fdm3',1,0,'',131,0,0),(11083,2560,3,131,0,'194.179.55.36',1144322691,1,0,1,1,1,0,'','','Yes, this is the code:\n\n  oNotesSession  := CreateObject( \"Notes.Notessession\" )\n   oNotesDb       := oNotesSession:GetDatabase( \"\",\"\" )\n   oNotesDb:Invoke(\"CreateDocument\")\n\nbut I get the error that I\'ve posted in the spanish forum.\n\nRegards,','',0,'AIA=','rkt1dqp1',1,0,'',131,0,0),(11084,2557,7,215,0,'201.133.72.138',1144322956,1,0,1,1,1,0,'','entonces....','Entonces comenzaré a documentarme acerca del tema. \n¿Algún resumen de lo que hace el producto actualmente?\n\nGracias\nFernando','',0,'AIA=','1rjpx2sq',1,0,'',215,0,0),(11085,2557,7,449,0,'212.64.224.249',1144323220,1,0,1,1,1,1,'','','Hola,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.zprog.net/ppcscren.htm\">http://www.zprog.net/ppcscren.htm</a><!-- m -->','',0,'AIA=','xkqjv9pb',1,0,'',449,0,0),(11086,2556,6,439,0,'201.221.45.199',1144323868,1,0,1,1,1,1,'','','Gracias Antonio <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nAl Compilar con esta lib me da este error:\n\nError: \"C:\\xHarbour\\lib\\CT.LIB\" contains invalid OMF record, type 0x21 (Possibly COFF)\n\nQue puede ser?','',0,'AIA=','2wffi2eb',1,0,'',439,0,0),(11087,2541,6,362,0,'200.168.52.156',1144323942,1,0,1,1,1,1,'','','Antonio, Socorro... Gracias.\n\nAntonio, en FiveWin 2.7 for [x]Harbour, esta Funcion HB_SETKEYGET(), Funciona?\n\nCual és la sintaxis ??','',0,'','284yqksx',1,0,'',362,0,0),(11088,2559,3,80,0,'202.72.164.124',1144324248,1,0,1,1,1,0,'','Print Preview','<!-- m --><a class=\"postlink\" href=\"http://img92.imageshack.us/img92/5536/preview1im.jpg\">http://img92.imageshack.us/img92/5536/preview1im.jpg</a><!-- m -->','',0,'','215mj0n3',1,0,'',80,0,0),(11089,2440,3,35,0,'167.7.140.254',1144324936,1,0,1,1,1,0,'','','well ... now I feel really stupid about the April fools thing .. took that one \'hook. line and sinker\'  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nAnyway .. consenses here is that Microsoft will prob crush the competative IDE commercial business .. Borland just can\'t stay profitable in that market.\n\nRick Lipkin','',0,'','3i5mpoa9',1,0,'',35,0,0),(11090,2542,6,104,0,'201.58.6.233',1144325441,1,0,1,1,1,0,'','','Olá Wanderson,\n\nEste é o link para a classe buttonbmp:\n\n[url:t4fpxhvd]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/BUTTON&#46;ZIP[/url:t4fpxhvd]\n\n\nOlá Gianni,\n\nAqui está funcionando corretamente o resize das colunas. Me envie o BRW.EXE\nque voce gerou para eu ver o resultado aqui, ok ? Meu email é: <!-- e --><a href=\"mailto:qiinfo@ig.com.br\">qiinfo@ig.com.br</a><!-- e -->\n\n\nOlá frafive (all),\n\nFaçam novamente o download que corrige o problema que o Frafive citou:\n\n[url:t4fpxhvd]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/WBRW_17A&#46;ZIP[/url:t4fpxhvd]\n\n[code:t4fpxhvd]\nCuando pongo oBrw&#58;lCellStyle &#58;= &#46;f&#46; me da este error \n\nApplication \n=========== \nPath and name&#58; C&#58;\\aTest\\TESTBRAR&#46;exe &#40;32 bits&#41; \nSize&#58; 1,516,544 bytes \nTime from start&#58; 0 hours 0 mins 0 secs \nError occurred at&#58; 04/06/06, 00&#58;16&#58;24 \nError description&#58; Error BASE/1004 Class&#58; \'NIL\' has no exported method&#58; SETWIDTH \n[/code:t4fpxhvd]\n\nOlá Paco,\n\nOs testes que fiz foram com a versão do xbarbour 0.99.60.\n\nOlá jose_murugosa,\n\nTalvez o nome possa ver ct3.lib\n\nOlá Oskar,\n\nUso a versão xbarbour 0.99.60 (comercial). Eu irei te enviar o email ok ? Gracias.\n\nOlá Maestro Hernan,\n\nAguardamos Ansiosos pela versão 1.8, por isto batizei esta versão que fiz de 1.7a   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Na minha opinião o wbrowse sempre foi o melhor browse para o fivewin. Muito estável e rápido, por isso esdolhi ele para fazer tais mudanças. Um grande abraço  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nObrigado a todos,\n\nRossine.','',0,'EIA=','t4fpxhvd',1,0,'',104,0,0),(11091,2542,6,519,0,'83.33.9.18',1144326784,1,0,1,1,1,0,'','','Hola Rosine\n\n\n    Me da el mismo error \n\n\nApplication\n===========\n   Path and name: C:\\aTest\\TESTBRAR.exe (32 bits)\n   Size: 1,516,544 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04/06/06, 14:27:35\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: SETWIDTH\n   Args:\n     [   1] = N   2\n     [   2] = N   0\n\nStack Calls\n===========\n   Called from SETWIDTH(0)\n   Called from TWBROWSE:GORIGHT(1539)\n   Called from TWBROWSE:GOTOCOL(3514)','',0,'','11cczcv5',1,0,'',519,0,0),(11092,2562,3,497,0,'212.127.159.218',1144328714,1,0,1,0,1,0,'','Excel file in TsBrowse','I tried to use the fExcel function as described in TsBrwose V70 notes.\n\nIt buils up a Dialog but fails in the part:\n\n   @ 66, 36 BUTTON aCtl[ 7 ] PROMPT \"&amp;Accept\" OF oDlg ;\n            ACTION ( If( nVer == 2, ;\n               oBrw:ExcelOle( cFile, lActivate, aCtl[ 9 ], cTitle,, lSave ), ;\n               oBrw:Excel2( cFile, lActivate, aCtl[ 9 ], cTitle, lSave ) ), ;\n               oDlg:End(), oBrw:SetFocus() ) ;\n            FONT oFont SIZE 38, 12 PIXEL\n\nError message is:\n  Class: \'ARRAY\' has no exported method: EXCELOLE\n   Args:\n     [   1] = C   Excelfile\n     [   2] = L   .T.\n     [   3] = O   Object\n     [   4] = C   No Title                                                    \n     [   5] = U   \n     [   6] = L   .F.\n\nOr:\n\n Class: \'ARRAY\' has no exported method: EXCELOLE\n   Args:\n     [   1] = C   Excelfile\n     [   2] = L   .T.\n     [   3] = O   Object\n     [   4] = C   No Title                                                    \n     [   5] = U   \n     [   6] = L   .F.\n\ndepending on selecting Excel2 or ExcelOle\n\nI included all the mentioned #Defines\n\nCan anyone give some support?\nThanks,\n\nJules de Pierre','',0,'','3w31677m',1,0,'',497,0,0),(11093,2559,3,335,0,'68.193.88.53',1144330466,1,0,1,1,1,0,'','','Check your app directory to see if you have a copy of Rpreview.prg there. (You might have made some special mods to Rpreview.) If so, it might be an old version that doesn\'t include the new code to handle XP buttons.','',0,'','60s0yuo8',1,0,'',335,0,0),(11094,2542,6,104,0,'201.58.6.233',1144332172,1,0,1,1,1,0,'','','Olá Frafive,\n\nVocê está usando o xharbour free ? Se for me passe o seu arquivo .bat\npara eu compilar aqui ok ?\n\nAbraços,\n\nRossine.','',0,'','16yoe90j',1,0,'',104,0,0),(11095,2542,6,519,0,'83.40.40.103',1144333184,1,0,1,1,1,0,'','','Hola\n\n  Estoy utilizando    xHarbour build 0.99.50  Free + fwh 2.6\n\n\n  Un saludo','',0,'','2brzrs3c',1,0,'',519,0,0),(11096,2539,18,511,0,'201.248.65.240',1144333242,1,0,1,0,1,0,'','','Antonio, \n\nTienes alguna respuesta de este tema, gracias,\n\nSaludos','',0,'','tqwx7863',1,0,'',511,0,0),(11097,2563,6,207,0,'148.233.32.162',1144333412,1,0,1,1,1,0,'','Lectura de puerto COMM','Que tal a Todos: \n\nEn clipper tengo funcionando lo siguiente: \n\n..... \nDO WHILE .T. \nnTrab := nChars := nInicio := 0 \ncStatus:=\"\" \n/* Limpiar el buffer para una nueva lectura*/ \nCOM_FLUSH(nPuerto) \n\nDO WHILE (nChars := COM_COUNT(nPuerto)) &lt;= 6 // Asegura \n@ 18,17 SAY \"Leyendo el peso...\" // al menos haya 7 \n// car cteres en \nIF INKEY() = K_ESC // el Buffers. \nRESTSCREEN (16,15,21,36,cVentana) \nSETCOLOR(cColorAnt) \nRETURN(-1) \nENDIF \nENDDO \n@ 18,17 SAY SPACE(1 \n\n/* Toma la cadena de car cteres del buffer */ \ncDato := COM_READ(nPuerto) \n\nnInicio := at(chr(2) , cDato) // B£sca el carater STX (inicio) \n\nnTrab := val( substr ( cDato, nInicio+2, 7 ) ) \n\ncStatus := substr( cDato, nInicio+11, 1 ) \n\n@ 19,25 SAY nTrab PICT \"9999999\" \n\nGrabaEntrada(nTrab) \nDO CASE \nCASE cStatus == \" \" \nEXIT /* El TRAB es correcto */ \nENDCASE \n\nEXIT \nENDDO \n\nY NECESITO PASARLO A FIVEWIN, PARA ESO PUSE LO SIGUIENTE: \n\nfunction entrada() \nlocal cDcb, nBytes,nError,cDataRead \nlocal nComm := OpenComm( \"COM2\", 1024, 128 ) \n\nif ! BuildCommDcb( \"COM2:9600,n,8,1\", @cDcb ) \nnError = GetCommError( nComm ) \nMsgInfo( \"BuildCommDcb Error: \" + Str( nError ) ) \nendif \n\nif ! SetCommState( cDcb ) \nnError = GetCommError( nComm ) \nMsgInfo( \"SetCommState Error: \" + Str( nError ) ) \nendif \n\n***Read Comm Port here \nDO WHILE .t. \nnBytes := ReadComm( nComm , @cDataRead) \nmsginfo(nBytes) // &lt;----- AQUI SOLO MUESTRA -1 SIEMPRE\nif nBytes &gt; 6 \nmsginfo(cDataRead) \nexit \nendif \nenddo \nmsginfo(cDataRead) \n\n***Close Comm Port \nif FlushComm( nComm, 0 ) != 0 \nnError = GetCommError( nComm ) \nMsgInfo( \"FlushComm Error: \" + Str( nError ) ) \nendif \n\nif ! CloseComm( nComm ) \nnError = GetCommError( nComm ) \nMsgInfo( \"CloseComm Error: \" + Str( nError ) ) \nendif \n\nPodrian ayudarme en lo que me falta, por favor, de antemano muchas gracias \n\nAtte Miguel Salas','',0,'','22pmzgev',1,0,'',207,0,0),(11098,2559,3,80,0,'202.72.164.124',1144333786,1,0,1,1,1,0,'','Print Preview','Roger\n\nI did not have rpreview.prg in the directory but I copied it from \nthe fivewin classes directory - (prg dated \'01.04.06\') and compiled into my app - but still the same - I checked in the rpreview program and\ntested - it appears that AppThemed returns false even though I have\na manifest file in the directory.\n\nI use a .res file for my resources should I add the manifest details \nin there - if so how.\n\nCheers\n\nColin','',0,'','rrkk24m9',1,0,'',80,0,0),(11099,2550,6,255,0,'200.67.175.250',1144335032,1,0,1,1,1,1,'','','Es decir que cada vez que dos terminales modifiquen los\ndatos del mismo registro, el último que intente actualizar\nlos datos obtendrá ese error. Es correcto ???','',0,'','37ry14m6',1,0,'',255,0,0),(11100,2559,3,247,0,'87.202.21.160',1144335076,1,0,1,1,1,0,'','Re: Print Preview','You have to include xp manifest . Copy testprn2.rc to &lt;yourprogramname&gt;.rc and use the new prev32.dll .\n\n\nRegards \n\nA.S.K\n\n\n[quote=&quot;Colin Haig&quot;:sgly1659]To All \n\nI have the latest build of Fivewin but I cant seem to get the \nupdated Print Preview - I have copied prev32.dll into my application \ndirectory (file dated 12.05.2005 ) - I also have a manifest file also\nin that directory but it still is the old print preview.\n\nRegards\n\nColin[/quote:sgly1659]','',0,'gA==','sgly1659',1,0,'',247,0,0),(11101,2535,6,255,0,'200.67.175.250',1144335236,1,0,1,1,1,1,'','','Tengo ejemplo en casa, mañana publicaré uno.\nEstán basados en un ejemplo publicado por RF\nhace ya un buen rato.\n\nSaludos','',0,'gA==','2f3tz9uu',1,0,'',255,0,0),(11102,2562,3,247,0,'87.202.21.160',1144335587,1,0,1,1,1,0,'','Re: Excel file in TsBrowse','I would use createobject .It\'s better than the included function . \neg:\nlocal v_Excel:=createobject(\"excel.application\")\nv_Excel:Workbooks:Open(\"c:\\temp\\a.xls\")\nv_Excel:Visible:=.t.\n\nRegards\n\nA.S.K\n\n\n[quote=&quot;Jules de Pierre&quot;:ziazloe2]I tried to use the fExcel function as described in TsBrwose V70 notes.\n\nIt buils up a Dialog but fails in the part:\n\n   @ 66, 36 BUTTON aCtl[ 7 ] PROMPT \"&amp;Accept\" OF oDlg ;\n            ACTION ( If( nVer == 2, ;\n               oBrw:ExcelOle( cFile, lActivate, aCtl[ 9 ], cTitle,, lSave ), ;\n               oBrw:Excel2( cFile, lActivate, aCtl[ 9 ], cTitle, lSave ) ), ;\n               oDlg:End(), oBrw:SetFocus() ) ;\n            FONT oFont SIZE 38, 12 PIXEL\n\nError message is:\n  Class: \'ARRAY\' has no exported method: EXCELOLE\n   Args:\n     [   1] = C   Excelfile\n     [   2] = L   .T.\n     [   3] = O   Object\n     [   4] = C   No Title                                                    \n     [   5] = U   \n     [   6] = L   .F.\n\nOr:\n\n Class: \'ARRAY\' has no exported method: EXCELOLE\n   Args:\n     [   1] = C   Excelfile\n     [   2] = L   .T.\n     [   3] = O   Object\n     [   4] = C   No Title                                                    \n     [   5] = U   \n     [   6] = L   .F.\n\ndepending on selecting Excel2 or ExcelOle\n\nI included all the mentioned #Defines\n\nCan anyone give some support?\nThanks,\n\nJules de Pierre[/quote:ziazloe2]','',0,'gA==','ziazloe2',1,0,'',247,0,0),(11103,2559,3,80,0,'202.72.164.124',1144335659,1,0,1,1,1,0,'','Print Preview','A.S.K.\n\ntestprn2.rc does not have anything in it.\n\n\nCheers\n\nColin','',0,'gA==','3ezw0708',1,0,'',80,0,0),(11104,2559,3,247,0,'87.202.21.160',1144335748,1,0,1,1,1,0,'','Re: Print Preview','My testprn2.rc :\n\n// Add this to your resources RC file\n\n#ifdef __FLAT__\n   1 24 \"WinXP/WindowsXP.Manifest\" \n#endif\n\n#ifdef __64__\n   1 24 \"WinXP/WindowsXP.Manifest64\"\n#endif \n\n\nRegards \nA.S.K\n\n\n[quote=&quot;Colin Haig&quot;:k4qcg67g]A.S.K.\n\ntestprn2.rc does not have anything in it.\n\n\nCheers\n\nColin[/quote:k4qcg67g]','',0,'gA==','k4qcg67g',1,0,'',247,0,0),(11105,2559,3,80,0,'202.72.164.124',1144336004,1,0,1,1,1,0,'','Print Preview','A.S.K.\n\nI dont use an .rc but .res how do insert the code into a res file\n\nColin','',0,'gA==','mnppdnvp',1,0,'',80,0,0),(11106,2555,3,234,0,'210.177.12.129',1144336667,1,0,1,1,1,1,'','','Thank you Enrico. Where can I find a table with the numerical values of the colors?\n\nSincerely,','',0,'gA==','3dptde2d',1,0,'',234,0,0),(11107,2170,3,486,0,'200.184.85.3',1144337046,1,0,1,1,1,0,'','Re: Read XML page','[quote=&quot;E. Bartzokas&quot;:1s6mvmo1]I have done XML (SOAP and other TAGs - both create and read) for Paysoft Inc., used to submit payroll returns to the IRS.\n\nI can give you some clues here, and more info through private email.\n\nIn general, you\'ll have to download the web page (XML document), \nand then read it partially (FOPEN-FREAD/FREAD/etc/FCLOSE)\n\nIf this is something you can do, then I can tell you how you may deal with this subject (how to read the TAG(s) you want).\n\nKind regards\nEvans[/quote:1s6mvmo1]\n\nDoes he work with https?  \n  \nif yes and it can order help in my email: <!-- e --><a href=\"mailto:clemerson@sysfar.com.br\">clemerson@sysfar.com.br</a><!-- e -->\n\nClemerson','',0,'gA==','1s6mvmo1',1,0,'',486,0,0),(11108,2534,3,303,0,'72.199.41.171',1144337402,1,0,1,1,1,0,'','','My suggestion is to never, ever, use privates.\n\nJames','',0,'gA==','1c2jdfvx',1,0,'',303,0,0),(11109,2542,6,61,0,'201.217.161.45',1144337543,1,0,1,1,1,0,'','','Hernán - Rossine:\n\nGracias por los aportes a la comunidad fivewinera.\n\nSaludos\n\nRuben','',0,'gA==','o4wfd1ty',1,0,'',61,0,0),(11110,2555,3,6,0,'82.61.69.144',1144339341,1,0,1,1,1,1,'','','Paint, Colors, Modify colors, Custom colors. Then look at the three color numeric components.\n\nEMG','',0,'gA==','3i2yu71m',1,0,'',6,0,0),(11111,2440,3,34,0,'68.4.154.81',1144340409,1,0,1,1,1,1,'','Borland','I ordered the \"pre-release\" before I did my research.  It was Borland\'s 2006 product.  When I got the letter from Borland that they couldn\'t accomplish the integration \"on time\" of the C++ Builder I started doing a lot of research, and then cancelled my order for the new studio product.\n\nWhat I learned was that Delphi 5 was \"as good as it gets\" and all later releases, especially the 2005 version, were full of problems that made them unuseable for production.  Apparently many of the major concerns were not addressed in the 2006 version, so people were putting upgrades on hold.\n\nThen I found out Builder 6 was \"as good as it gets\" and since there were problems integrating it into the suite, people wondered if it would happen successfully even in the future.\n\nThe problem is that Borland started selling the product before it was finished or released ...\n\nAnyway, I have Delphi 5 and C++ Builder 6, and aparently money won\'t buy anything better that works ....\n\nOf course, my needs are met with xHarbour and FWH ...\n\nTim','',0,'gA==','j59b72bb',1,0,'',34,0,0),(11112,2563,6,362,0,'200.168.52.156',1144341558,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=606\">http://www.fivewin.com.br/exibedicas.asp?id=606</a><!-- m -->','',0,'gA==','es50k75d',1,0,'',362,0,0),(11113,2550,6,123,0,'83.39.143.140',1144342484,1,0,1,1,1,0,'','','Juan Carlos,\n\n[quote:xl72hozk]Es decir que cada vez que dos terminales modifiquen los\ndatos del mismo registro, el último que intente actualizar\nlos datos obtendrá ese error. Es correcto ???[/quote:xl72hozk]\n\nSi... ese es el comportamiento por defecto.  Si quieres evitarlo puedes poner la data ::lNoCompare a .T.\n\nNo obstante, puedes modificar directamente el método UPDATE y marcar lo siguiente:\n\n[code:xl72hozk] /*\n     if &#58;&#58;RecordHasChanged&#40;@aChanged&#41;\n         if aChanged&#91;1&#93; == 0\n            &#58;&#58;SQLAlert&#40;&quot;Record has been deleted since the last retrieve operation, Update aborted&quot;&#41;\n         else\n            cFields &#58;= &quot;&quot;\n            Aeval&#40;aChanged, &#123;|v,e| cFields += ltrim&#40;str&#40;v&#41;&#41; + iif&#40; e &lt; len&#40;aChanged&#41;,&quot;, &quot; ,&quot;&quot; &#41;&#125;&#41;\n            &#58;&#58;SQLAlert&#40;&quot;Some record fields &#40;&quot;+cFields+;\n                       &quot;&#41; have change since the last retrieve operation, Update aborted&quot;&#41;\n         endif\n         return &#46;f&#46;\n      endif\n*/\n[/code:xl72hozk]\n\nSaludos,\nJosé Luis Capel','',0,'gIA=','xl72hozk',1,0,'',123,0,0),(11114,2535,6,123,0,'83.39.143.140',1144342683,1,0,1,1,1,0,'','','Hola,\n\nHe instalado el CrystalReports y ejecutando el ejemplo que trae me da el siguiente error:\n\n[quote:2zhaejs0]Could not start Report!\nError Code: 534:\nLa DLL de base de datos ha detectado un error[/quote:2zhaejs0]\n\nEstoy usando CR 8 contra un SqlServer via ADO.\n\n¿A alguien le ha pasado algo similar?\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2zhaejs0',1,0,'',123,0,0),(11115,2535,6,123,0,'83.39.143.140',1144342757,1,0,1,1,1,0,'','','Ups...\n\n[quote:3hbodc58]He instalado el CrystalReports y ejecutando el ejemplo que trae me da el siguiente error:[/quote:3hbodc58]\n\nMe refiero a que he ejecutado el ejemplo que viene con la clase de Tom en FWH.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','3hbodc58',1,0,'',123,0,0),(11116,2440,3,35,0,'167.7.140.254',1144343178,1,0,1,1,1,0,'','','Tim\n\nLike YOU !!  I prefer xHarbour and FiveWin .. not much of and IDE person here .. too complecated for me.\n\nJust give me a good editor and a Make file .. I will be happy.\n\nRick Lipkin','',0,'gA==','1pp2bcsu',1,0,'',35,0,0),(11117,2564,3,35,0,'167.7.140.254',1144343387,1,0,1,1,1,0,'','FiveWin WEB ??','Antonio\n\nJust thought I would stur up your imagination and see if you have thought about creating some sort of Web class library ??\n\nSeriously thinking about creating some web apps .. not too crazy about static HTML editors or limited database connectivity solutions like Dreamweaver.\n\nAny thoughts ??\n\nRick Lipkin','',0,'gA==','n8jir4yx',1,0,'',35,0,0),(11118,2565,6,23,0,'62.87.127.44',1144345514,1,0,1,1,1,1,'','De harbour a xharbour','Estoy considerando pasar de harbour a xharbour, pero no tengo ni idea la repercusión que puede tener esto en mi código.\nSabeis si hay que tocar mucho código o hay un nivel de compatibilidad bastante aceptable?\n\nGracias.','',0,'gA==','14gykjw7',1,0,'',23,0,0),(11119,2530,2,248,0,'212.145.179.68',1144346447,1,0,1,1,1,0,'','','Comprueba que en el sistema no tengas definida una impresora que este usando el mismo puerto que tu desde el programa.','',0,'gA==','33ohqoc3',1,0,'',248,0,0),(11120,2557,7,2,0,'87.218.146.27',1144346463,1,0,1,1,1,1,'','','Carles,\n\nEn dos palabras: Im-presionante <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nEn serio, no sabes lo satisfechos que nos haces al ver aplicaciones así <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Gracias','',0,'gA==','2ybd3q50',1,0,'',2,0,0),(11121,2566,17,2,0,'87.218.146.27',1144348002,1,0,1,1,1,1,'','FiveWin.info - files','Flamenco is a Web Server for Windows (like IIS, Apache, or other) that is fully written in FiveWin. It also supports WinCGI. FULL source code is included! Thanks Giovi!\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02a906e374/flamenco-32bits.zip.html\">http://hyperupload.com/download/02a906e ... s.zip.html</a><!-- m -->','',0,'gA==','2t7a9tbp',1,0,'',2,0,0),(11122,2564,3,2,0,'87.218.146.27',1144348034,1,0,1,1,1,1,'','','Rick,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2566\">http://fivetechsoft.com/forums/viewtopic.php?t=2566</a><!-- m -->','',0,'gA==','36gwoxau',1,0,'',2,0,0),(11123,2170,3,455,0,'195.97.105.161',1144349126,1,0,1,1,1,0,'','Re: Read XML page','Does he work with https?  \n  \nif yes and it can order help in my email: <!-- e --><a href=\"mailto:clemerson@sysfar.com.br\">clemerson@sysfar.com.br</a><!-- e -->\n\nClemerson\n\n\n\nCheck your private email please.\nKind regards\nEvans','',0,'gA==','3pxrvfzk',1,0,'',455,0,0),(11124,2564,3,35,0,'167.7.140.254',1144351369,1,0,1,1,1,0,'','','Antonio\n\nNot quite sure what I am looking at yet .. looks like an IIS server setup .. that will run a CGI app ?? \n\nHaven\'t really got into the code yet .. But basically what I was looking for was a library that will give you the flexability to CREATE the CGI application with controls .. ie dialogs, listboxes, buttons in a web browser.\n\nI will look at the code more in detail.\n\nRick','',0,'gA==','3eq813xv',1,0,'',35,0,0),(11125,2567,2,301,0,'201.121.43.57',1144351408,1,0,1,1,1,0,'','Abrir un DBF de visual fox','Hola,\n\nTengo que entrar a un dbf de un sistema que usa Visuafox. Anteriormente a ese sistema ( es comercial ) entraba sin problemas a sus dbf y actualizaba lo que tenia que actualizar.\n\nPero ahorta cada vez que quiero entrar a un DBF me marca corrupcion. Baje el odbc de VFP y puedo entrar por excell despues de hacer algunos pasos.\n\nPero al tratar de entrar con FW me marca errores la conexcion. Alguien sabe como hacerlo ? o algun otro metodo ?\n\nGracias\n\n.p.d.\n\nme falto agregar lo siguiente:\n\nsi me puedo conectar a la bd por odbc:\n\ncuando hago esta sentencia :\n\nfunction cargaSQL()\n\n  public oRdd:= Trddodbc():New(\"adm\")\n  public oODBC:= oRdd:oOdbc\n\n\nIf oOdbc:lSuccess\n  MSGINFO(\"Sistema inicializado correctamente\")\n\nelse\n\n  MSGSTOP (\"El sistema no pudo inicializarse, cerrando aplicacion...\")\n  oOdbc:showerrorlist()\n  oRDD:OOdbc:end()\n  quit\n\nEndif\n\nreturn(.t.)\n ( ADM ES EL NOMBRE DEL ORIGNEN DE DATOS DE VFP )\n\nME APARECE QUE EL SISTEMA ESTA BIEN.\n\nPERO AL QUERER DARLE UN BROWSE A LA BD HACEINDO ESTA SENTENCIA :\n\ncquery:=\"select * from MGW10005\" ( MGW10005 ES EL NOMBRE DEL ARCHIVO DBF)\n\n   USE (cQUERY) VIA \"ODBC\" NEW ALIAS \"SISTEMA\"\n\n   if oRdd:oOdbc:IsError()\n      oRdd:oOdbc:ShowErrorList()\n      oRdd:oOdbc:aErrors := {}\n      DbCloseArea()\n      return nil\n   endif\n\nALLI ES DONDE TRUENA CON EL SIG ERROR:\n\npplication\n===========\n   Path and name: C:\\FW20\\TAPIA\\MIGUEL\\precios.exe\n   Size:   963,712 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Error ocurred at: 06/04/2006, 12:29:02\n   Error description: Error FWERROR/0/0  [Microsoft][ODBC Visual FoxPro Driver]Driver not capable: SQLSetStmt(SQL_CONCUR_LOCK) on AllocStatement() Method\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from TODBC:GENRTERROR(0)\n   Called from TODBC:NEWERROR(0)\n   Called from TODBC:STMTERROR(0)\n   Called from (b)TDBODBC(0)\n   Called from TDBODBC:ALLOCSTATE(0)\n   Called from TDBODBC:EXECUTE(0)\n   Called from TDBODBC:NEW(0)\n   Called from TRDDODBC:OPEN(0)\n   Called from OSEND(0)\n   Called from RDDEVENT(0)\n   Called from DBUSEAREA(0)\n   Called from BRW2CLIENT(90)\n   Called from (b)BUILDMENU(106)\n   Called from TMENU:COMMAND(0)\n   Called from TWINDOW:COMMAND(886)\n   Called from TWINDOW:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(835)\n   Called from MAIN(69)\n\nSystem\n======\n   CPU type: 486\n   Hardware memory: 16128 (15 megas)\n\n   Free System resources: % 90\n        GDI    resources: % 90\n        User   resources: % 90\n\n   Windows and MsDos versions:  3.95,  5. 0\n   Windows total applications running:   2\n      1 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      2 MSOFFICE.EXE\n      3 explorer.exe\n      4 C:\\FW20\\TAPIA\\MIGUEL\\precios.exe\n      5 med.exe\n      6 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n      7 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   TODBC:GENRTERROR\n     Param   1:    C    \"SQLSetStmt(SQL_CONCUR_LOCK) on AllocStatement() Method\"\n     Local   1:    O    Class: TODBC\n     Local   2:    O    Class: ERROR\n   TODBC:NEWERROR\n     Param   1:    C    \"[Microsoft][ODBC Visual FoxPro Driver]Driver not capable\"\n     Param   2:    N    0\n     Param   3:    C    \"S1C00                                                                                                                                                                                                                                                           \"\n     Param   4:    C    \"SQLSetStmt(SQL_CONCUR_LOCK) on AllocStatement() Method\"\n     Param   5:    L    .T.\n     Local   1:    O    Class: TODBC\n     Local   2:    N    1\n   TODBC:STMTERROR\n     Param   1:    N    46472608\n     Param   2:    C    \"SQLSetStmt(SQL_CONCUR_LOCK) on AllocStatement() Method\"\n     Param   3:    L    .T.\n     Local   1:    O    Class: TODBC\n     Local   2:    C    \"S1C00                                                                                                                                                                                                                                                           \"\n     Local   3:    N    0\n     Local   4:    C    \"[Microsoft][ODBC Visual FoxPro Driver]Driver not capable\"\n     Local   5:    N    0\n   (b)TDBODBC\n     Param   1:    O    Class: TDBODBC\n     Param   2:    N    46472608\n     Param   3:    C    \"SQLSetStmt(SQL_CONCUR_LOCK) on AllocStatement() Method\"\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TDBODBC\n   TDBODBC:ALLOCSTATE\n     Local   1:    O    Class: TDBODBC\n     Local   2:    N    46472608\n     Local   3:    N    -1\n   TDBODBC:EXECUTE\n     Param   1:    C    \"select * from MGW10005\"\n     Local   1:    O    Class: TDBODBC\n     Local   2:    N    -1\n   TDBODBC:NEW\n     Param   1:    C    \"select * from MGW10005\"\n     Param   2:    O    Class: TODBC\n     Param   3:    N    1\n     Param   4:    C    \"SISTEMA\"\n     Param   5:    L    .F.\n     Param   6:    L    .F.\n     Local   1:    O    Class: TDBODBC\n     Local   2:    U    \n   TRDDODBC:OPEN\n     Param   1:    N    376399214\n     Param   2:    N    1\n     Param   3:    C    \"select * from MGW10005\"\n     Param   4:    C    \"SISTEMA\"\n     Param   5:    L    .F.\n     Param   6:    L    .F.\n     Param   7:    O    Class: TRDDODBC\n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n   OSEND\n     Param   1:    O    Class: TRDDODBC\n     Param   2:    C    \"OPEN\"\n     Param   3:    N    376399214\n     Param   4:    N    1\n     Param   5:    C    \"select * from MGW10005\"\n     Param   6:    C    \"SISTEMA\"\n     Param   7:    L    .F.\n     Param   8:    L    .F.\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n   RDDEVENT\n     Param   1:    C    \"OPEN\"\n     Param   2:    N    376399214\n     Param   3:    N    1\n     Param   4:    C    \"select * from MGW10005\"\n     Param   5:    C    \"SISTEMA\"\n     Param   6:    L    .F.\n     Param   7:    L    .F.\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n   DBUSEAREA\n     Param   1:    L    .T.\n     Param   2:    C    \"ODBC\"\n     Param   3:    C    \"select * from MGW10005\"\n     Param   4:    C    \"SISTEMA\"\n     Param   5:    U    \n     Param   6:    L    .F.\n   BRW2CLIENT\n     Local   1:    U    \n     Local   2:    O    Class: TDIALOG\n     Local   3:    U    \n     Local   4:    C    \"                \"\n     Local   5:    C    \"select * from MGW10005\"\n   (b)BUILDMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20006\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20006\n     Param   2:    N    0\n     Local   1:    O    Class: TWINDOW\n     Local   2:    N    0\n     Local   3:    N    20006\n     Local   4:    N    0\n   TWINDOW:HANDLEEVEN\n     Param   1:    N    273\n     Param   2:    N    20006\n     Param   3:    N    0\n   WINRUN\n     Param   1:    N    622\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    { || ... } CodeBlock\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TBRUSH\n     Local   2:    O    Class: TICON\n     Local   3:    U    \n     Local   4:    O    Class: TBAR\n     Local   5:    O    Class: TBTNBMP\n     Local   6:    O    Class: TFONT\n\nLinked RDDs\n===========\n   DBFNTX\n   _DBFCDX\n   DBFCDX\n   DBF\n   ODBC\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 TRDD\n     2 TFONT\n     3 TBRUSH\n     4 TWINDOW\n     5 TCONTROL\n     6 TICON\n     7 TMENU\n     8 TMENUITEM\n     9 TRDDODBC\n    10 TODBC\n    11 TDIALOG\n    12 TBAR\n    13 TRECT\n    14 TBTNBMP\n    15 TMSGBAR\n    16 TMSGITEM\n    17 TTIMER\n    18 TDBODBC\n    19 ERROR\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       42528 bytes  (SYMP=656, Stack=17500, Heap=2060)\n      Clipper Stack:      21285 bytes\n      123 Static variables: 1722 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     348462 bytes\n      Highest Value:     421166 bytes\n\Z\n\n\nGRACIAS POR SU AYUDA','',0,'','14ibv04c',1,0,'',301,0,0),(11126,2550,6,255,0,'200.67.175.250',1144352368,1,0,1,1,1,1,'','','Que consecuencias tendría si comento esas lineas que\nme estás sugiriendo ???','',0,'','2pvo6ph3',1,0,'',255,0,0),(11127,2535,6,255,0,'200.67.175.250',1144352466,1,0,1,1,1,1,'','','[quote=&quot;jlcapel&quot;:289ooak3]\nMe refiero a que he ejecutado el ejemplo que viene con la clase de Tom en FWH.\nSaludos,\nJosé Luis Capel[/quote:289ooak3]\n\nmmmmmm ni idea, solamente he usado CR 8.5 con DBF.','',0,'gA==','289ooak3',1,0,'',255,0,0),(11128,2565,6,255,0,'200.67.175.250',1144352598,1,0,1,1,1,1,'','Re: De harbour a xharbour','[quote=&quot;AngelSalom&quot;:pxgghfzg]Estoy considerando pasar de harbour a xharbour, pero no tengo ni idea la repercusión que puede tener esto en mi código.\nSabeis si hay que tocar mucho código o hay un nivel de compatibilidad bastante aceptable?\nGracias.[/quote:pxgghfzg]\n\nEn teoria, xHarbour debe tragarse todo el código de harbour.\nSi fuera de xharb a harb ahi si tendrias problemas.\n\nSaludos','',0,'gA==','pxgghfzg',1,0,'',255,0,0),(11129,2559,3,3,0,'82.253.150.104',1144353224,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2506rzx1]Colin,\n\nPlease test samples\\TestPrn2.prg and let us know how it looks. Thanks.[/quote:2506rzx1]\n\nAntonio <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPrint Preview is much better looking now, is there a chance we can get an email feature with pdf saving from the preview ? \n\nHas anyone succeeded in this from fwh preview direct (without easypreview.. or apdf printer etc ?\n\nRichard','',0,'gA==','2506rzx1',1,0,'',3,0,0),(11130,2562,3,497,0,'212.127.159.218',1144354720,1,0,1,0,1,0,'','','O.K.\nThanks A.S.K.\n\nJules','',0,'gA==','38dy407x',1,0,'',497,0,0),(11131,2568,2,401,0,'201.215.45.57',1144354992,1,0,1,1,1,0,'','Que Clase es mejor para pasar una base a xls','Amigos que clase me puede servir para pasar una base de datos.dbf a una hoja xls, \nfw. 2.1, clip 5.3, blinker 5.0','',0,'gA==','2hhuuc32',1,0,'',401,0,0),(11132,2569,2,265,0,'80.59.225.15',1144356007,1,0,1,1,1,0,'','Cambio en Registro de Windows','Hola Amigos:\nHace algún tiempo puse el siguiente post \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1104\">http://fivetechsoft.com/forums/viewtopic.php?t=1104</a><!-- m -->\n\ny después de muchas pruebas, ya que es de esas cosas que tenía que funcionar porque estaba todo bien estructurado, y no funcionaba, he visto la solución de casualidad aunque de manera muy chunga.\nLa cuestión era la siguiente:\nEscribo en el registro el directorio y el nombre del pdf.\n	     oReg:=TReg32():New(HKEY_CURRENT_USER,\"SOFTWARE\\PDFCreator\\Program\")\n	     oReg:Set(\"AutosaveDirectory\",\"c:\\pruebas\")\n	     oReg:Set(\"AutosaveFilename\",ccodpro+\"-\"+cliqui)\n	     oReg:Close()\nSi ahora abro el controlador de impresora\n	     PRINT oPrn TO \"PDFCreator\" \n                    .................. etc\nPues no funciona.\nPero si justo después de oReg:Close() pongo msginfo(\'Espera\'), pues ya si funciona. Esto quiere decir que necesita tiempo para grabar en el registro antes de utilizar la impresora ?.\nVoy a sustituir el msginfo() por un Timer a ver si funciona.\n\nComentadme algo sobre éste tema.\n\nSaludos\n\nJose Luis','',0,'gA==','1blxleq7',1,0,'',265,0,0),(11134,2565,6,2,0,'87.218.146.27',1144357111,1,0,1,1,1,1,'','','cierto <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3f21tkqw',1,0,'',2,0,0),(11135,2571,6,228,0,'200.119.104.6',1144358493,1,0,1,1,1,1,'','Error de reporte?','Amigos del foro como estan, el problema es el siguiente, al momento de generar un reporte y decirle que lo coloque en archivo de texto. Me arroja el siguiente error:\n\nError description: Error BASE/1005  Message not found: TRFILE:_LPRVMODAL\n\ny el codigo es el siquiente:\n\n[code:2cessyrj]\n**************************\n*IMPRESION REPORTE WINDOWS\n**************************\nPROC pRewiMed&#40;&#41;\n\n       LOCAL oFont1,oFont2,oFont3,oReport\n       LOCAL oPen1,oPen2\n       LOCAL cEmpresa,cTitle,nBrinco &#58;= 1,x,cWeb\n       cWeb     &#58;= &quot;http&#58;//incos&#46;sytes&#46;net&quot;\n       cEmpresa &#58;= &quot;Ingeniería en Comunicaciones y Sistemas&quot;\n       cTitle   &#58;= &quot;Estadisticas 1&#46;1&#46;0&quot;\n         DEFINE FONT oFont1 NAME &quot;Tahoma&quot; SIZE 0,-08\n         DEFINE FONT oFont2 NAME &quot;ARIAL&quot; SIZE 0,-08 BOLD\n         DEFINE FONT oFont3 NAME &quot;ARIAL&quot; SIZE 0,-12 BOLD\n         DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HBLUE\n         DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA\n       REPORT oReport TO FILE &quot;C&#58;\\estaditi&#46;txt&quot; CAPTION cTitle+&quot;  -  INCOS &#40;c&#41; 2006&quot; ;\n              HEADER cEmpresa,&quot; &quot;,cTitle,&quot;Fecha&#58; &quot;+DTOC&#40;date&#40;&#41;&#41;,&quot;Hora&#58; &quot;+time&#40;&#41;,&quot; &quot; CENTER ;\n              FOOTER cWeb+&quot; | INCOS &#40;c&#41; 2006 | Pagina&#58; &quot;+str&#40;oReport&#58;nPage,3&#41; CENTER ;\n              FONT oFont1,oFont2,oFont3 ;\n              PEN open1,oPen2\n              COLUMN TITLE &quot;Medida&quot; DATA aBrw&#91;nBrinco,01&#93; SIZE 30\n              COLUMN TITLE &quot;Nombre&quot; DATA aBrw&#91;nBrinco,02&#93; SIZE 70\n              COLUMN TITLE &quot;Siglas&quot; DATA aBrw&#91;nBrinco,03&#93; SIZE 30\n              oReport&#58;oDevice&#58;lPrvModal &#58;= &#46;f&#46;\n              oReport&#58;oDevice&#58;SetCopies&#40;1&#41;\n              oReport&#58;nTitleUpLine      &#58;= RPT_SINGLELINE\n              oReport&#58;nTotalLine        &#58;= RPT_SINGLELINE\n              oReport&#58;bSkip             &#58;= &#123;|| &#40;nBrinco++,SYSREFRESH&#40;&#41;&#41; &#125;\n\n       END REPORT\n\n       ACTIVATE REPORT oReport WHILE nBrinco &lt;= LEN&#40; aBrw &#41;\n       oFont1&#58;End&#40;&#41;\n       oFont2&#58;End&#40;&#41;\n       oFont3&#58;End&#40;&#41;\n       oPen1&#58;End&#40;&#41;\n       oPen2&#58;End&#40;&#41;\nRETURN &#46;t&#46;\n\n[/code:2cessyrj]\n\nDe antemano gracias','',0,'AIA=','2cessyrj',1,0,'',228,0,0),(11136,2542,6,49,0,'82.53.118.237',1144360799,1,0,1,1,1,1,'','','ASK ME FILEDELETE HB FUNC ...\nhOW CA i RESOLVE IT ?\n\nREGARDS','',0,'AIA=','1133xm67',1,0,'',49,0,0),(11137,2571,6,415,0,'200.119.99.52',1144361958,1,0,1,1,1,0,'','','Leandro:\n\nREPORT Repo TO FILE (Archiv)  REPORT Repo TO FILE (Archiv) TITLE FecRep+STR(Repo:nPage,3) LEFT HEADER Empres,Identi,Report,Filtro CENTER FONT Letra\n\n\nMauricio Arevalo','',0,'AIA=','1m32o9ej',1,0,'',415,0,0),(11138,2563,6,207,0,'148.233.32.162',1144363610,1,0,1,1,1,0,'','leer puertos comm','Gracias Joao\n\nVeo que usa el fwh27  \n\nfuncionará con fw24?\nde ser asi me faltan una lib de xharbour: stlp.lib, tip.lib y hbxsix.lib ,\nquizas puedas facilitarmelas?','',0,'AIA=','2af3tn1u',1,0,'',207,0,0),(11139,2563,6,362,0,'200.168.52.156',1144364260,1,0,1,1,1,1,'','Re: leer puertos comm','[quote=&quot;Miguel Salas&quot;:1rptmrnp]Gracias Joao\n\nVeo que usa el fwh27  \n\nfuncionará con fw24?\nde ser asi me faltan una lib de xharbour: stlp.lib, tip.lib y hbxsix.lib ,\nquizas puedas facilitarmelas?[/quote:1rptmrnp]\n\n\nEl mas recomendable, aconsejable, estimable, és ke usted trueque tu versión.\n\nFiveWin 2.7 for [x]Harbour 0.99.60, impresionante, emocionante. Electrizante, alucinante.\n\njejeje.\n\nSaludos.','',0,'gA==','1rptmrnp',1,0,'',362,0,0),(11140,2542,6,300,0,'201.2.52.197',1144364809,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:20ink1bt]ASK ME FILEDELETE HB FUNC ...\nhOW CA i RESOLVE IT ?\n\nREGARDS[/quote:20ink1bt]\n\nSilvio link ct.lib.','',0,'gA==','20ink1bt',1,0,'',300,0,0),(11141,2572,6,349,0,'201.110.19.21',1144365972,1,0,1,1,1,0,'','FW 2.7 Error Preview Report','Al prever un reporte en pantalla, pongo el factor en 3, doy doble click sobre el reporte para reducir otro doble click para agrandar, el factor se pone en el valor 1. \n\nNo Conserva el Valor del Factor.','',0,'gA==','29a3mgkz',1,0,'',349,0,0),(11142,2552,18,300,0,'201.2.52.197',1144366448,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1pyspr23]Wanderson,\n\nThis code is properly working with FWH april build:\n[code:1pyspr23]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cTest &#58;= Space&#40; 20 &#41;\n   \n   DEFINE DIALOG oDlg \n   \n   @ 1, 2 GET cTest VALID ! Empty&#40; cTest &#41;\n   \n   @ 3, 5 BUTTON &quot;&amp;Cancel&quot; ACTION oDlg&#58;End&#40;&#41; CANCEL\n   \n   ACTIVATE DIALOG oDlg CENTER\n   \nreturn nil   \n[/code:1pyspr23][/quote:1pyspr23]\n\nLinares try this please:\n\nfunction Main()\n\n   local oDlg, cTest := Space( 20 )\n   \n   DEFINE DIALOG oDlg \n   \n   @ 1, 2 GET cTest VALID Mostra()\n   \n   @ 3, 5 BUTTON \"&amp;Cancel\" ACTION oDlg:End() CANCEL\n   \n   ACTIVATE DIALOG oDlg CENTER\n   \nreturn nil   \n\nStatic Function Mostra()\nMsgInfo(\"Wrong\")\nReturn .t.\n\n\nIf i click in button cancel function mostra dont execut and the dialog finish, thats ok. But if i press ALT+C function mostra execute.\n\nRegards.','',0,'gIA=','1pyspr23',1,0,'',300,0,0),(11144,3,3,190,0,'202.65.134.45',1144374818,1,0,1,1,1,0,'','Counter increment of \'Views\' of a particular post','Dear Mr.Antonio \n\nA small suggestion. \n\nThe icrement of the Views of a particular post should be made only when \nthe members/viewers, other than the author of that post have viewed it. \n\nRegards \n\n- Ramesh Babu P','',0,'gIA=','29szpyx3',1,0,'',190,0,0),(11145,2557,7,95,0,'201.123.96.74',1144375817,1,0,1,1,1,0,'','','Charles ...\n\nWow, la verdad mis respetos, he quedado boca abierta ... estan muy bien...\n\nSaludos\nOsvaldo Ramirez\n\nP.S. He visto que tienes un programa de Medicos, y me gustaria saber si tienes un demo. Te comento, que tengo un Cuñado que es Medico, y me pidio que le desarrollara algo, y me gustaria saber o ver pantallas de otros programas como lo manejan.','',0,'gIA=','mwcz3t9c',1,0,'',95,0,0),(11146,2574,6,307,0,'200.38.29.81',1144380251,1,0,1,1,1,0,'','Crtistal Report y EMF\'s','Se podra mandar la impresion sobre un EMF en crystal como se hace con IMPORTWMF() ???\n\nsaludos\n\nArnulfo','',0,'gIA=','237wu1a8',1,0,'',307,0,0),(11147,2557,7,449,0,'212.64.224.249',1144391234,1,0,1,1,1,1,'','','Hola,\n\nEn <!-- m --><a class=\"postlink\" href=\"http://www.zprog.net\">http://www.zprog.net</a><!-- m --> encontraras un enlace para bajarte una demo completamente funcional del producto, asi como de la version para Pocket PC. La version para Pocket, de momento ofrece una manera muy rapida y sencilla de llevar todas las fichas que deseemos para su posterior consulta.','',0,'gIA=','eecim5le',1,0,'',449,0,0),(11148,2542,6,49,0,'213.82.134.66',1144394815,1,0,1,1,1,1,'','','sorry I haven\'t ct.lib  for my xharbour version  where i can found the sources ? I not use and I cannot use CVS remote control.\nSomeone can help me ?','',0,'gIA=','czay7o2w',1,0,'',49,0,0),(11149,2557,7,262,0,'87.235.159.190',1144394860,1,0,1,1,1,1,'','','Carles, muy bueno el programa . <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \nEso demuestra que nuestra tecnologia , arcaica segun algunos ( eso me dijeron hace poquito ) , compite con las grandes tecnologias Visualpuñetas   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  , en muchos casos con ventajas ( sencillez de instalacion , rapidez de trabajo con datos , uso reducidisimo de espacio en disco , ESTABILIDAD , etc, etc ) y tan digno como el que más , a demas quien puede negarnos que el programa está hecho en C ?  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> .\nAl final , te das cuenta que lo importante no es con que está hecho , sino quien lo ha hecho ....\nEn este caso CARLES y ANTONIO , Equipo Ganador ...\nFelicidades .','',0,'gIA=','xw17es2t',1,0,'',262,0,0),(11150,2552,18,2,0,'87.218.146.27',1144395130,1,0,1,1,1,1,'','','Wanderson,\n\nWith FWH april build it works ok.','',0,'gIA=','2ygikkj3',1,0,'',2,0,0),(11151,2557,7,2,0,'87.218.146.27',1144395233,1,0,1,1,1,1,'','','Jose Luis,\n\nTienes mucha razón <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','rm61yfuz',1,0,'',2,0,0),(11152,2549,17,2,0,'87.218.146.27',1144397481,1,0,1,1,1,1,'','Samples','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01ac80c422/samples.zip.html\">http://hyperupload.com/download/01ac80c ... s.zip.html</a><!-- m -->','',0,'gIA=','wsxj03bi',1,0,'',2,0,0),(11153,2572,6,2,0,'87.218.146.27',1144397576,1,0,1,1,1,1,'','','Sí, está programado así. Tendriamos que modificarlo para conservar el factor de zoom.','',0,'gIA=','3s5dzsfe',1,0,'',2,0,0),(11154,2569,2,2,0,'87.218.146.85',1144401714,1,0,1,1,1,1,'','','Jose Luis,\n\nUsa SysRefresh() en vez de MsgInfo(). Posiblemente Windows necesite procesar algunos mensajes antes de que esté disponible.','',0,'gIA=','hds22hjb',1,0,'',2,0,0),(11155,2568,2,2,0,'87.218.146.85',1144401770,1,0,1,1,1,1,'','','Luis,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2519\">http://fivetechsoft.com/forums/viewtopic.php?t=2519</a><!-- m -->','',0,'gIA=','2a9j4ybj',1,0,'',2,0,0),(11156,2567,2,2,0,'87.218.146.85',1144401921,1,0,1,1,1,1,'','','Rene,\n\nPuedes publicar aqui la DBF para que la probemos con Harbour ?\n\nUsa <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> para alojarla y publica aqui el link de descarga. Gracias.','',0,'gIA=','36szvxar',1,0,'',2,0,0),(11157,2554,2,2,0,'87.218.146.85',1144402052,1,0,1,1,1,1,'','','Carlos,\n\nSí. Prueba a crearlos desde la claúsula ON INIT del diálogo:\n\nACTIVATE DIALOG oDlg ON INIT CreaPaneles( oDlg )\n\nfunction CreaPaneles( oDlg )\n\n...','',0,'gIA=','q9tss8yo',1,0,'',2,0,0),(11158,2559,3,2,0,'87.218.146.85',1144404106,1,0,1,1,1,1,'','','Colin,\n\nYou may edit your RES file with PellesC IDE:\n<!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m -->','',0,'gIA=','2usijpv9',1,0,'',2,0,0),(11159,2559,3,2,0,'87.218.146.85',1144404212,1,0,1,1,1,1,'','','Richard,\n\nWe are considering it, but there are excellent free tools like PdfCreator, that may be easily used as a printer driver:\n<!-- m --><a class=\"postlink\" href=\"http://sector7g.wurzel6.de/pdfcreator/index_en.htm\">http://sector7g.wurzel6.de/pdfcreator/index_en.htm</a><!-- m -->','',0,'gIA=','zdwr4fo5',1,0,'',2,0,0),(11160,2543,6,2,0,'87.218.146.14',1144405132,1,0,1,1,1,1,'','','Gustavo,\n\nTienes que usar la función del API de Windows, GetFileVersionInfo()','',0,'gIA=','1pftrbhw',1,0,'',2,0,0),(11161,2543,6,52,0,'200.127.195.89',1144407069,1,0,1,1,1,1,'','','ok','',0,'gIA=','22xs8fud',1,0,'',52,0,0),(11162,2542,6,104,0,'201.58.35.116',1144407232,1,0,1,1,1,0,'','','Olá Silvio,\n\nTente linkar CT3.LIB\n\nAbraços,\n\nRossine.','',0,'gIA=','3rs6z2ir',1,0,'',104,0,0),(11163,2170,3,15,0,'203.73.66.217',1144407297,1,0,1,1,1,0,'','','Hello\n\nCould you send to me again?\n\nThank you.\n\nRegards,\n\nRichard','',0,'gIA=','3o137yr4',1,0,'',15,0,0),(11164,2542,6,2,0,'87.218.146.14',1144407376,1,0,1,1,1,1,'','','Silvio,\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b847c869/ct.zip.html\">http://hyperupload.com/download/02b847c869/ct.zip.html</a><!-- m -->','',0,'gIA=','3f0yxw3f',1,0,'',2,0,0),(11165,2170,3,2,0,'87.218.146.14',1144407465,1,0,1,1,1,1,'','','Evans,\n\nPlease upload it to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and publish the download link here. Thanks.','',0,'gIA=','1vw7ilu0',1,0,'',2,0,0),(11166,2406,6,141,0,'200.88.94.5',1144407736,1,0,1,1,1,1,'','','Bueno, este es el final de este capitulo de la trilogía \"ADO y yo\" !\n\nEl asunto esta solucionado.  Son tantas las consideraciones y aprendizajes con esto que me paso, que creo que estaré escribiendo algo mas amplio en mi recién abierto blog.  Intentaré resumir aquí algunos puntos importantes para los \"foronautas\":\n\n- Despues de buscar mucho entre las opciones para hacer el OPEN en el RS y en la conexion, confirmo que las mejores son las que aparecen en el ejemplo de JLC.  \n\n- El asunto estaba en la forma de \"grabar\" el registro en el recordset, que para los fines de la clase ADORS se trata de errores cometidos por mi en el método SAVE().  El grabar en el recordset es uno de los aspectos mas delicados que he encontrado en ADO.\n\n- El mensaje que aparecia era consecuencia de que el RS se \"cerraba\" cuando se hacia una sustitucion que no le gustaba.  Mucha luz me trajo a esto el nuevo amigo Fernando Sandoval, cuando me invitó a verificar el tipo de datos que quiero \"grabar\" y el tipo de datos de la columna que quiero que los acepte.\n\n- El problema se concentraba en los campos tipo fecha.  Intentaba escribir una fecha en un campo que el ADO lo interpretó como de tipo \"indefinido\".  Lo descubrí haciendo VALTYPE( ::oRs:Fields(\"Fecha\"):value ) sobre una fecha en blanco, pues me devolvía \"U\", mientras que cuando el registro tenía una fecha correcta, me devolvía \"D\".  Fue entonces que, por sugerencia de FS evité realizar esta sustitución.  Aun me falta probar un poco mas con este caso, pero ya está controlado.\n\n- La otra cosa, fue la pregunta clave: \"¿UPDATE o no UPDATE?\".... pues cuando el registro no ha sido cambiado, no debe hacerse.  JLC me sugirió en otra parte del foro una manera de realizarlo, pero no me funcionó, así que lo implementé localmente dentro del método SAVE(), y funciona perfectamente.\n\nEstaré probando otras cosas durante la Semana Santa:\n\n- manejo de campos MEMO (BLOB?, TEXT?)\n- Generacion de reportes\n- manejo de ADO por internet, etc.\n\nAsi que por ahora, este capítulo lo considero cerrado.  Estaré también publicando las clases modificadas de JLC en mi blog ([url:27i3ejgs]http&#58;//mangucybernetico&#46;blogspot&#46;com/[/url:27i3ejgs]) para los que estén interesados, mas un ejemplo realizado por mi para demostrarme a mi mismo la potencia maravillosa del uso de ADO en todo esto.\n\nGracias a todos, en especial a JLC y FS por su paciencia, y sera hasta otro capítulo.\n\n.... Y LA SAGA CONTINUA !!!!','',0,'EA==','27i3ejgs',1,0,'',141,0,0),(11167,2521,3,29,0,'81.174.24.57',1144407883,1,0,1,1,1,0,'','','Antonio,\nI have found the problem.\n\nI have in my app a button to give the possibility to the customers to change the printer parameters (eg. the bin scheet).\n\nThis button call the shprnproperty() function you introduced with these latest FWH\'s releases. Well, when I change the bin using this function, the change doesn\'t applies to my app. I replaced now the button action calling the old PrinterSetup() function that runs fine.\n\n\nMarco','',0,'EA==','2waxyd8r',1,0,'',29,0,0),(11168,2521,3,2,0,'87.218.146.14',1144408967,1,0,1,1,1,1,'','','Marco,\n\nThanks for the feedback,','',0,'EA==','o6qq3ziy',1,0,'',2,0,0),(11169,2559,3,80,0,'202.72.164.124',1144412601,1,0,1,1,1,0,'','Print Preview','Antonio \n\nThanks - finally all working okay.\n\nCheers\n\nColin','',0,'EA==','1p6buirc',1,0,'',80,0,0),(11170,2543,6,52,0,'200.127.195.89',1144415253,1,0,1,1,1,1,'','','He intentado hacer esto:\n\n[code:1ibcsgwm]FUNCTION main&#40;&#41;\n   LOCAL lpData\n\n   getfiveina&#40;&quot;c&#58;\\WINDOWS\\SYSTEM\\WINASPI&#46;DLL&quot;,,, lpData &#41;\n\n   ? lpdata\n\n   RETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\nDLL32 FUNCTION GetFiVeInA;\n      &#40; lptstrFilename AS STRING, ;\n        dwHandle AS LONG, ;\n        dwLen AS LONG, ;\n        @lpData AS LPSTR &#41; ;\n   AS LONG PASCAL;\n   FROM &quot;GetFileVersionInfoA&quot; LIB &quot;VERSION&quot;[/code:1ibcsgwm]\n\n\nY recibo un BRUTO cero, como no estoy acostumbrado al uso de estas DLL32, alguien podría darme una mano?','',0,'AIA=','1ibcsgwm',1,0,'',52,0,0),(11171,2542,6,439,0,'201.221.37.41',1144416771,1,0,1,1,1,1,'','CT.lib','Antonio CT.lib me da errores, sirve para xHarbour?','',0,'AIA=','3u7yhyz3',1,0,'',439,0,0),(11172,2564,3,247,0,'87.202.21.160',1144418697,1,0,1,1,1,0,'','Re: FiveWin WEB ??','You can use is2wcgi.dll (search google ).It is a microsoft dll .I don\'t know how it works but i know that if you have exe file named the same with this dll then by calling the exe file from explorer your exe runs and get results (somehow) .If you search the net you will see that a company that i don\'t know if still \"working\" made a clipper 16bit compatible library for the web\n\nRegards \nA.S.K\n\n\n[quote=&quot;Rick Lipkin&quot;:2uzn8vef]Antonio\n\nJust thought I would stur up your imagination and see if you have thought about creating some sort of Web class library ??\n\nSeriously thinking about creating some web apps .. not too crazy about static HTML editors or limited database connectivity solutions like Dreamweaver.\n\nAny thoughts ??\n\nRick Lipkin[/quote:2uzn8vef]','',0,'gA==','2uzn8vef',1,0,'',247,0,0),(11173,2554,2,501,0,'200.32.103.46',1144419045,1,0,1,1,1,0,'','','Gracias antonio.\n\nProbe un par de cosas y desde una ventana anduvo, desde un dialog nop, seguire probando.','',0,'gA==','1tlbz6ap',1,0,'',501,0,0),(11174,2575,2,348,0,'201.230.65.83',1144422714,1,0,1,1,1,0,'','Como saber ubicacion de mi Exe que estoy ejecutando','Buen Dia con el todo el foro,\n\nMe gustaria que me den una mano en algo aparentemente facil: , Estoy interesado en saber cual es el Path,Ruta o Ubicacion completa de mi  aplicacion  (MiAplica.Exe)  que estoy usando.  esto debe ser independientemente del lugar (disco o ruta ) de donde se activa el programa:  \n\nPor ejemplo ....\n\n   Estoy en la siguiente Ubicacion : C:\\Windows&gt;\n\n   y de ahi activo mi aplicacion que esta en  D:\\MiSoftware\\Win16Bit  de la siguiente manera : \n                     \n       D:\\MiSoftware\\Win16Bit\\MiAplicacion.exe   (enter)\n\nSi se usa la Funcion CurDrive() da \"C:\"   y  Curdir() resulta   \"\\Windows\\\" \n\nLo deseable de la funcion seria  que me retorne  \"D:\\MiSoftware\\Win16bit\" que es el lugar donde se encuentra el ejecutable.\n\n\nMuchas Gracias  por sus respuestas..\n\nLubin','',0,'gA==','26dgubng',1,0,'',348,0,0),(11175,2542,6,2,0,'87.218.146.244',1144423601,1,0,1,1,1,1,'','','Jose,\n\nQue errores te da ?','',0,'gA==','23ikeaic',1,0,'',2,0,0),(11176,2552,18,300,0,'201.3.21.47',1144423900,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2nz2ucng]Wanderson,\n\nWith FWH april build it works ok.[/quote:2nz2ucng]\n\nThanks Antonio, my fwh version is older that april build.\nHave many modifications to fix this problem? If simple post here please.\n\nRegards.','',0,'gA==','2nz2ucng',1,0,'',300,0,0),(11177,2576,6,127,0,'83.61.87.177',1144425431,1,0,1,1,1,0,'','prev32.dll para FiveWin 2.7 en español','A ver si alguien sabe y medice donde puedo encontrar una prev32.dll para FWH 2.7 en español, la que tengo vieja en WinXp no muestra los iconos, y la nueva que me han mnadado con FWH 2.7 está en inglés.\n\nGracias','',0,'gA==','18blp62h',1,0,'',127,0,0),(11178,2576,6,2,0,'87.218.146.223',1144426095,1,0,1,1,1,1,'','','Julio,\n\nAquí la tienes:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0186065f14/prev32sp.dll.html\">http://hyperupload.com/download/0186065 ... p.dll.html</a><!-- m -->\n\nYa la hemos añadido al setup de FWH para futuros builds. Gracias.','',0,'gA==','3hkofo9g',1,0,'',2,0,0),(11179,2575,2,2,0,'87.218.146.223',1144426357,1,0,1,1,1,1,'','','Lubin,\n\ncFilePath( Arg( 0 ) )','',0,'gA==','2y0yyd7f',1,0,'',2,0,0),(11180,2575,2,348,0,'201.230.65.83',1144428142,1,0,1,1,1,0,'','ok','Muchas gracias Antonio,  Funciono correctamente\n\nsi no es molestia, podrias comentar respecto a este parametro Arg(0)  el cual incluyes en la funcion cFilePath ??  Existen algun otro mas??\n \nLubin\n[quote=&quot;Antonio Linares&quot;:3cx113u5]Lubin,\n\ncFilePath( Arg( 0 ) )[/quote:3cx113u5]','',0,'gA==','3cx113u5',1,0,'',348,0,0),(11181,2575,2,2,0,'87.218.146.223',1144428982,1,0,1,1,1,1,'','','Lubin,\n\nDe la documentación de FiveWin:\n\nArg()      To recover on-line given parameters of commands \n\nSyntax:  Arg(&lt;nCmdLineOrder&gt; )  --&gt; cExeCommandLineParam  \n \nParameters: \n &lt;nCmdLineOrder&gt; Number of parameter that we want to recover  \n\nReturns: \n &lt;cExeCmdLParam&gt; Recovered parameter  \n\nSample: \nSAMPLES\\FIVEDIT.PRG  \nSAMPLES\\TESTARGS.PRG  \n \nSource Code: \nSOURCE\\FUNCTION\\ARG.C','',0,'gA==','17diflpu',1,0,'',2,0,0),(11182,2542,6,439,0,'201.221.42.30',1144429049,1,0,1,1,1,1,'','error','Me da el siguiente error\n\nC:\\XHARBOUR\\LIB\\CT.LIB contains invalid OMF record, type 0x21 (Possibly COFF)  \n\nGracias desde ya por tu ayuda.','',0,'gA==','7luk2680',1,0,'',439,0,0),(11183,2542,6,2,0,'87.218.146.223',1144429812,1,0,1,1,1,1,'','','Jose,\n\nUsa esta:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b847c841/ct.zip.html\">http://hyperupload.com/download/01b847c841/ct.zip.html</a><!-- m -->','',0,'gA==','23edmuz5',1,0,'',2,0,0),(11184,2577,6,61,0,'201.217.166.210',1144429983,1,0,1,1,1,0,'','Texto tipo word?','Amigos:\nHay alguna forma de hacer un get de un texto (tipo memo) com\nnegritas, dif. tamaños de letra, etc.; guardarlo en una campo memo\ny despues imprimirlo en un lugar determinado de una hoja.\n\nEste texto es parte de un encabezado que puede variar su tamaño\nen el largo de la hoja, por lo que el texto del memo debo manejarlo\npara saber donde hago el cambio de pagina.\n\nSaludos y gracias.\n\nRuben Ferndnez','',0,'gA==','1xybskdi',1,0,'',61,0,0),(11185,2542,6,439,0,'201.221.42.30',1144431249,1,0,1,1,1,1,'','Rossine tengo este error','El error es el siguiente:\n\n   Called from:  =&gt; TWBROWSE:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TWBROWSE:MSGNOTFOUND(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:_LVSCROLL(167)\n   Called from: brw.prg =&gt; MAIN(32)','',0,'gA==','fgaetvzv',1,1144433518,'',439,1,0),(11186,2578,3,37,0,'200.121.162.141',1144431858,1,0,1,1,1,0,'','Compilador C para 64 Bits','Antonio o quien me pueda ayudar, digamos que ya tengo la PC con procesador de 64 Bits (AMD Athlon), digamos que le instalo el WinXP 64 Bits que tambien tengo, adicionalmente cuento tambien con los Harbour y xHarbour de 64 Bits que Fivetech crea para sus clientes, salvo que me equivoque lo unico que me falta es el compilador C de 64 Bits ????\nO algo mas ??? (Quizas un ambiente de compilacion como Verce, xMate o xDev compilado en 64 Bits o los actuales sirven) ???\nVarias dudas, espero me iluminen, gracias','',0,'gA==','2uh60q5u',1,0,'',37,0,0),(11187,2579,6,37,0,'200.121.162.141',1144432090,1,0,1,1,1,0,'','Compilador C para 64 Bits','Lo puse primero por error en el foro de Ingles <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nAntonio o quien me pueda ayudar, digamos que ya tengo la PC con procesador de 64 Bits (AMD Athlon), digamos que le instalo el WinXP 64 Bits que tambien tengo, adicionalmente cuento tambien con los Harbour y xHarbour de 64 Bits que Fivetech crea para sus clientes, salvo que me equivoque lo unico que me falta es el compilador C de 64 Bits ???? \nO algo mas ??? (Quizas un ambiente de compilacion como Verce, xMate o xDev compilado en 64 Bits o los actuales sirven) ??? \nVarias dudas, espero me iluminen, gracias','',0,'gA==','1lzdeaae',1,0,'',37,0,0),(11188,2542,6,2,0,'87.218.146.223',1144433386,1,0,1,1,1,1,'','','Jose,\n\nSi, debes consultarlo a Rossine. Gracias.','',0,'gA==','59jkrz9o',1,0,'',2,0,0),(11189,2578,3,2,0,'87.218.146.223',1144433543,1,0,1,1,1,1,'','','Enrique,\n\nEl compilador de Microsoft C 64 bits es gratuito y puedes descargarlo desde:\n\nWeb Install:\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=a55b6b43-e24f-4ea3-a93e-40c0ec4f68e5&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->\n\nFull Install:\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=EBA0128F-A770-45F1-86F3-7AB010B398A3&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\nISO Install:\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=D8EECD75-1FC4-49E5-BC66-9DA2B03D9B92&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->','',0,'gA==','1dk82fim',1,0,'',2,0,0),(11190,2577,6,2,0,'87.218.146.223',1144433624,1,0,1,1,1,1,'','','Ruben,\n\nSí. Usa un control TRichEdit.\n\nRevisa los ejemplos samples\\TestRtf.prg y TestRich.prg','',0,'gA==','2tfo8a8r',1,0,'',2,0,0),(11191,2579,6,2,0,'87.218.146.223',1144433697,1,0,1,1,1,1,'','','Enrique, \n\nEl compilador de Microsoft C 64 bits es gratuito y puedes descargarlo desde: \n\nWeb Install: \n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=a55b6b43-e24f-4ea3-a93e-40c0ec4f68e5&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m --> \n\nFull Install: \n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=EBA0128F-A770-45F1-86F3-7AB010B398A3&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m --> \n\nISO Install: \n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=D8EECD75-1FC4-49E5-BC66-9DA2B03D9B92&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->','',0,'gA==','1ilszrt5',1,0,'',2,0,0),(11192,2568,2,228,0,'200.119.104.224',1144436495,1,0,1,1,1,1,'','Tenes un ejemplito?','Antonio que pena molestar....\n\npero no tienes un ejemplito?  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nde nuevo gracias  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','28lp1h2k',1,0,'',228,0,0),(11193,2564,3,303,0,'72.199.41.171',1144436778,1,0,1,1,1,0,'','','Rick,\n\nYou might want to consider a thick client instead--meaning an application written in FWH that runs on the local PC but accesses data on a server. ADS supports this. The advantage is that the user can have a much more sophisticated program with a better response than a browser based application. Also, you (the developer) can write the application in a language you already know.\n\nJames','',0,'gA==','3flg9jep',1,0,'',303,0,0),(11194,2567,2,301,0,'201.121.43.57',1144436871,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/013e62c040/mgw.zip.html\">http://hyperupload.com/download/013e62c040/mgw.zip.html</a><!-- m -->\n\ngracias Antonio,\n\nAqui la tienes. No estoy seguro que sea de VFP pero al parecer asi es. Tambien me comentaron que posiblemente el dbf le cambiaron el primer byte como seguridad pero no sé como hacer ese movimiento... espero me puedas ayudar  gracias','',0,'gA==','278h316g',1,0,'',301,0,0),(11195,2560,3,303,0,'72.199.41.171',1144437195,1,0,1,1,1,0,'','','Jose,\n\nI believe Lotus Notes supports MAPI. Have you tried it?\n\nJames','',0,'gA==','2e2lywug',1,0,'',303,0,0),(11196,2576,6,127,0,'83.61.87.177',1144438581,1,0,1,1,1,0,'','','Muchas gracias Antonio','',0,'gA==','1y1wtau5',1,0,'',127,0,0),(11197,2569,2,265,0,'80.59.225.15',1144440035,1,0,1,1,1,0,'','','Hola Antonio\n\nNada, le pongo SysRefresh(), For..Next, MsgWait(), etc. y sólo me funciona cuando pongo un mensaje que detenga y que haya que pulsar para seguir msgalert(), msginfo() etc.\nNo habrá algo que sustituya a ésto para que no tenga que estar dándole a la teclita cada vez que me imprima una factura ?\n\nSaludos\n\nJose Luis','',0,'gA==','2oojlq3n',1,0,'',265,0,0),(11199,2435,4,19,0,'62.89.101.138',1144443471,1,0,1,1,1,0,'','','Antonio,\nIt works properly when socketserver is located on PC and socketclient is on PPC.\nI just rewrite my socket client aplication and execute on PC connected via LAN to Win 2000 serwer with socket server program - it connect properly as I expect.\n\nI cannot understand why it dont work in pair PPC -&gt; Win 2000 serwer.\n\nRegards Eugeniusz','',0,'gA==','1lz5an7f',1,0,'',19,0,0),(11200,2580,18,37,0,'200.121.162.141',1144446525,1,0,1,1,1,0,'','Sobre archivo TesfGet2 de la carpeta FWH27\\Samples','Saludos Antonio, no se si sea un error o algo parecido pero al ejecutar este ejemplo, al darle File, New y comenzar a escribir, obvio se ve lo que uno esta escribiendo, hasta el final del Dialogo al lado derecho, todo lo que se escribe despues no aparece ?????\nHay alguna explicacion.\nMuchas gracias','',0,'gA==','c1yltx8g',1,0,'',37,0,0),(11201,2435,4,2,0,'87.218.146.223',1144451442,1,0,1,1,1,1,'','','Eugeniusz,\n\nCould it be a server permissions issue ?','',0,'gA==','1wkno9kt',1,0,'',2,0,0),(11202,2564,3,35,0,'65.188.6.143',1144451589,1,0,1,1,1,0,'','','James\n\nI use ADS .. very successfully. However, in my environment ( over 5000 pc\'s ) with over 500+ servers ... Health and Environmental missions ... it has become obvious that traditional client\\server has some limitations.\n\nFor example .. we have our MAJOR Patient Health system that is a Delphi client\\server application  that runs on a DB2 back end. We have found that in order to get the proper responce with this application we have had to deploy the program with Citrix and thin\\client.\n\nWe have a 50 server ( central office ) Citrix farm .. just to handle the client requests. The farm sits just behind our main router next to our firewall to get maximum thruput to our database.\n\nWhat makes this such an expensive proposition is that we are in the process of rolling out a new module that will be run from local Doctors offices ( outside our firewall ) prompting us to purchase several more servers to handle the additional thin client sessions.\n\nWith all of that said .... it makes sense to look at client\\server in a little different lite in that you can have a ( single ) web server dishing an application making all the connectivity to our DB2 back end. Can you imagine the dollars we could possiblely save in hardware and in dealing with the Citrix licenses and not to mention the Domain headaches.\n\nWe also have the Oracle Financial package that runs in a Web ( java ) environment. When I look at that deployment, desktop requirements, infrastructure requirements .. web technology is an obvious winner.\n\nGranted .. not everyone will have this kind of infrastructure nor near the scope of the deployment. \n\nI am on the Agency\'s technical committee and my personal development within the Agency is no where near the scale of the above mentioned enterprise endevours.\n\nWhen you look at the two above mentioned deployments from purely a business decision .. just in the hardware requirements alone .. it begs of a Web solution.\n\nChoices .. asp, asp.net, c#, cold fusion, dreamweaver, java, Oracle web forms .. but what about the mid-range applications ?? \n\nMy personal question .. is how can I leverage xHarbour, FiveWin and the web to create \'robust\' data driven applications. When you look at the lowest common denominator .. every desktop has a browser and an IP connection ( windows and mac ) ... How can I leverage that with Web development.\n\nI don\'t plan on ditching ADS nor client\\server .. just want to see what it is going to take to get into Web development and how it may possibly fit in my portfolio.\n\nRick Lipkin','',0,'gA==','2teqj5wq',1,0,'',35,0,0),(11203,2560,3,2,0,'87.218.146.223',1144451835,1,0,1,1,1,1,'','','Jose Luis,\n\nPrueba lo siguiente:\n\nMsgInfo( oNotesSession:hObj )\noNotesDb := OleInvoke( oNotesSession:hObj, \"GetDatabase\", \"\", \"\" ) \nMsgInfo( oNotesDb )\n\ny dinos que valores te aparecen.','',0,'gA==','2t2r5piy',1,0,'',2,0,0),(11204,2581,6,179,0,'200.24.221.138',1144451944,1,0,1,1,1,1,'','ot: script compilacion Fwh - xHarbour - xMate','Buenas tardes compañeros\n\npor favor alguien puede compartir un script de compilacion de lo indicado antes\n\nme parece que el que tengo esta de alguna manera interfiriendo y no me funciona la clase report, lo posteo aca\n\n///////////////////inicio///////////////////////////\n\n[Version]\nType=xMate\nNumber=1.9z15\n[Info]\nType=Executable\nArchitecture=Fw27xHb\nInclude=\nDefine=\n[xMate]\nCreate Map/List File=No\n[Project]\nRun=\nParams=1\nFinal Path=%HOME%\nMaintain LNK=Yes\nDefault Type=1\n[Data Path]\nDbf=\\WILSON\\TEXVALLE\\TV_VENTA\n[Files]\n%HOME%\\Win_Nr_Main.prg=1,.F.,1,1,\n%HOME%\\Win_Nr_Funciones.Prg=2,.F.,5160,40,\n%HOME%\\Win_Nr_Repo.Prg=3,.F.,1043,12,\n%HOME%\\Win_Nr.Rc=4,.F.,588,23,\n%HOME%\\Win_Nr_Clases.prg=5,.F.,45,1,\n%C_LIB_INSTALL%\\C0W32.OBJ=6,.T.,0,0,\n%HB_LIB_INSTALL%\\bcc640.lib=7,.T.,0,0,\n\\fwh27\\lib3\\vBox32.LIB=8,.T.,0,0,\n\\fwh27\\lib3\\SButtonHx.LIB=9,.T.,0,0,\n\\fwh27\\lib3\\TWBRWx32.LIB=10,.T.,0,0,\n\\fwh27\\lib3\\TBtnGet32x.LIB=11,.T.,0,0,\n\\fwh27\\lib3\\SBrowseHx.lib=12,.T.,0,0,\n\\fwh27\\lib3\\Graph3hx.LIB=13,.T.,0,0,\n\\fwh27\\lib3\\TrSay32x.Lib=14,.T.,0,0,\n\\fwh27\\lib3\\sSay32x.lib=15,.T.,0,0,\n\\fwh27\\LIB\\FiveHC.Lib=16,.T.,0,0,\n\\fwh27\\LIB\\FiveHx.Lib=17,.T.,0,0,\n%C_LIB_INSTALL%\\uuid.lib=18,.T.,0,0,\n%HB_LIB_INSTALL%\\rtl.lib=19,.T.,0,0,\n%HB_LIB_INSTALL%\\vm.lib=20,.T.,0,0,\n%HB_LIB_INSTALL%\\gtwin.lib=21,.T.,0,0,\n%HB_LIB_INSTALL%\\lang.lib=22,.T.,0,0,\n%HB_LIB_INSTALL%\\macro.lib=23,.T.,0,0,\n%HB_LIB_INSTALL%\\common.lib=24,.T.,0,0,\n%HB_LIB_INSTALL%\\pp.lib=25,.T.,0,0,\n%HB_LIB_INSTALL%\\rdd.lib=26,.T.,0,0,\n%HB_LIB_INSTALL%\\hbzip.lib=27,.T.,0,0,\n%HB_LIB_INSTALL%\\dbffpt.lib=28,.T.,0,0,\n%HB_LIB_INSTALL%\\dbfntx.lib=29,.T.,0,0,\n%HB_LIB_INSTALL%\\ace32.lib=30,.T.,0,0,\n%HB_LIB_INSTALL%\\rddads.lib=31,.T.,0,0,\n%HB_LIB_INSTALL%\\dbfcdx.lib=32,.T.,0,0,\n%HB_LIB_INSTALL%\\hbsix.lib=33,.T.,0,0,\n%HB_LIB_INSTALL%\\pcrepos.lib=34,.T.,0,0,\n%HB_LIB_INSTALL%\\hsx.lib=35,.T.,0,0,\n%C_LIB_INSTALL%\\CW32.LIB=36,.T.,0,0,\n%C_LIB_INSTALL%\\IMPORT32.LIB=37,.T.,0,0,\n[Editor]\nE:\\WILSON\\SEMAD\\NEWROL\\NRDOLAR\\Win_Nr_Clases.prg=1,N,Y\n\n//////////////////final//////////////////////////////\n\nUtilizo Fwh 2.7 Ultima version xHarbor (Ultimo Cvs) y xMate\n\nGracias x Todo','',0,'','3n6015wb',1,0,'',179,0,0),(11205,2435,4,19,0,'83.18.178.178',1144452341,1,0,1,1,1,0,'','','Antonio,\nThe same socket server on Win 2000 server, 2 different client program:\n1. eVC++   -&gt; works\n2. FW PPC   -&gt; I get no connection\n\nRegards\nEugeniusz\n\nPS I must have something to digg in winsock2 to understand how it work.','',0,'','115vdqen',1,0,'',19,0,0),(11206,2542,6,49,0,'87.6.176.206',1144452971,1,0,1,1,1,1,'','','Now run but the header not are on 32 bit ..... with light bar as the folder 32 bit','',0,'','3eyotvdc',1,0,'',49,0,0),(11207,2564,3,303,0,'72.199.41.171',1144454402,1,0,1,1,1,0,'','','Rick,\n\nWell, I don\'t deal with anything on the scale that you do, so I am not real clear what you are saying. But I\'m am not sure you understood what I was mentioning either. What I was talking about was not client/server on a network or even running an app under Citrix over the web, but running the application on a local PC and connecting to ADS across the Internet. So, instead of being limited to the capabilites of a browser based application, you have the capabilities (and speed) of a FWH app. Both are getting the data across the Internet.\n\nRF is the expert on this so perhaps he will jump in. Renaldo Crespo-Bazan is also doing this and he is working in the medical industry too. I believe he is deploying apps in doctor\'s offices also.\n\nHowever, if you have to deploy application upgrades to 5000 PCs I can see that a browser based web app is attractive in that sense.\n\nJames','',0,'','69fz8m5n',1,0,'',303,0,0),(11208,2564,3,35,0,'65.188.6.143',1144454777,1,0,1,1,1,0,'','','James\n\nThanks .. I would like to hear what Rene has to say .. I have seen posts where he has successfully created ADS web apps .. FiveTitles if I recall.\n\nJust at a crossroads here .. I need to expand and the Web is very much an emerging technology .. no right or wrong answers here.\n\nRick Lipkin','',0,'','2dwltgoo',1,0,'',35,0,0),(11209,2582,6,492,0,'201.154.128.197',1144459186,1,0,1,1,1,0,'','Ajustar font en edicion con TWBROWSE de Hernan','Hola a todos\n\nAl momento de estar editando una celda en el Browse, el font se muestra mas pequeño que los demas, aparte de lo \"feito\" que se ve, no se aprecia el dato correctamente al momento de introducirlo, hay alguna manera de corregirlo ?\n\n[img:13xc23av]http&#58;//img142&#46;imageshack&#46;us/img142/9500/brwfntx0zv&#46;jpg[/img:13xc23av]\n\n\nEstuve viendo el codigo de la clase, pero no le encuentro el lugar exacto para tal correccion.\n\nAlguien que lo haya hecho, le agradeceria mucho la ayuda\n\n\nGracias por anticipado','',0,'CA==','13xc23av',1,0,'',492,0,0),(11210,2583,3,190,0,'202.65.134.45',1144465586,1,0,1,1,1,0,'','How to Store Images in MDB Table using FWH ?','Hi \n\nCan anybody guide me: How to store images in MS Access Table\nFields like the way we store images in .FPT file using FWH ?\n\nThanks in advance\n\n- Ramesh Babu P','',0,'CA==','2bxv6nah',1,0,'',190,0,0),(11211,2581,6,53,0,'201.135.193.207',1144466441,1,0,1,1,1,1,'','','Wilson:\n\nTe recomiendo usar VERCE\n\n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\nSaludos, Armando','',0,'CA==','6m2fcdbj',1,0,'',53,0,0),(11212,2542,6,295,0,'201.222.145.133',1144468229,1,0,1,1,1,1,'','','Rossine,\nEstou testando a sua classe, mas quando ao compilar um exemplo aparece a mensagem a seguir:\n\nCompiling...\nxHarbour Compiler build 0.99.51 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sample01.prg\' and generating preprocessed output to \'sample01.ppo\'...\n\nLines 98, Functions/Procedures 2\nGenerating C source output to \'sample01.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nsample01.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'ACE32.LIB\'\n\nja procurei a ace32.lib e nao acho\n\nobrigado\num xhabraço','',0,'CA==','3kxt7kjw',1,0,'',295,0,0),(11213,2577,6,61,0,'201.217.162.34',1144470489,1,0,1,1,1,0,'','','Gracias Maestro.\n\nSaludos\n\nRuben Fernandez','',0,'CA==','xehma7jn',1,0,'',61,0,0),(11214,2584,2,9,0,'85.60.6.77',1144474091,1,0,1,1,1,0,'','MIGRACION A FWH','Amigos, \n\nLlevaba tiempo dándole vueltas a la cabeza, para pasarme a 32bit. El cambio casi siempre produce vértigo y aquella máxima que leí en un libro de Basic \"Si funciona, no lo toques\"  me ha influenciado bastante (ademas de los 290 euros del coste).  Pero por fin me decidí y tras enviar un email a Fivetech, el jueves recibí la versión de FWH 2.7\n\nHe pasado las primeras aplicaciones (las mas sencillas) sin ningún tipo de problema. (Me imagino que cuando empiece con las grandes aparecerán algunos). Lo mas doloroso ha sido la parte sentimental (\"abandonar\" mi Clipper). \n\nSimplemente quiero animar a los rezagados que la cosa es mas fácil de lo que parece. \n\n\nUn saludo y gracias a todos los que me ayudaron hasta aquí. \n\nManuel','',0,'CA==','20zg158m',1,0,'',9,0,0),(11215,2580,18,2,0,'87.218.146.223',1144483971,1,0,1,1,1,1,'','','Enrique,\n\nAcabamos de probarlo con FWH abril 2006 y funciona correctamente:\n[url=http&#58;//imageshack&#46;us:wm8eucix][img:wm8eucix]http&#58;//img80&#46;imageshack&#46;us/img80/8900/tesfget29to&#46;png[/img:wm8eucix][/url:wm8eucix]','',0,'GA==','wm8eucix',1,0,'',2,0,0),(11216,2584,2,2,0,'87.218.146.223',1144484256,1,0,1,1,1,1,'','','Manuel,\n\nYa verás como te vas sintiendo más y más satisfecho con Harbour <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nClipper ya es cosa del pasado, larga vida a Harbour  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->','',0,'GA==','4pwiyndf',1,0,'',2,0,0),(11217,2486,16,2,0,'87.218.146.223',1144486225,1,0,1,1,1,1,'','','April 2006 update\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f40/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\nHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018519d265/harbourm.EXE.html\">http://hyperupload.com/download/018519d ... m.EXE.html</a><!-- m -->','',0,'GA==','1rvbqr8a',1,0,'',2,0,0),(11218,1502,6,9,0,'85.60.6.77',1144486472,1,0,1,1,1,0,'','','Antonio,\n\nEse curso es de Clipper + Fivewin y aunque es mejor eso que nada, lo suyo es que contaramos con uno actualizado a Harbour + FiveWin.\n\nYo me introduje en Clipper +  FW gracias a un curso estupendo de Andres Romero. El problema es que está en Pdf con password. Quizás sería una buena idea actualizar dicho curso, pilotandolo FiveTech, pero con con la colaboración de todos.','',0,'GA==','1fzpzxqh',1,0,'',9,0,0),(11219,1502,6,2,0,'87.218.146.50',1144487810,1,0,1,1,1,1,'','','Manuel,\n\nPuedes alojarlo en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y publicar aqui el link de descarga ? gracias.','',0,'GA==','64az3hra',1,0,'',2,0,0),(11220,2585,6,9,0,'85.60.6.77',1144489389,1,0,1,1,1,0,'','Varios problemas','Al iniciarme en FWH me han surgido los primeros problemas de principiante:\n\na) No funciona tema XP, a pesar de incluir en el RC 1 24 \"wxp.man\"\n    Si en el programa pongo #ifdef__THEMAXP__ me devuelve .f.\n\nb) En todos los ACTIVATE DIALOG tengo (oDlg:lHelpIcon:=.f.) que funcionaba en Clipper+FW23.- Pero en FWH 2.7 sale el icono ?\n\nc) Al compilar en samples\\testfold.prg me da Error ID 790.- Testfold RC 17 19:Expecting class name or ID\n\nd) Al compilar samples\\win32  error VARIABLE DOES NOT EXIST: IDOK que es el recurso.\n\n\nAlguna ayuda?\n\nUn saludo desde Málaga\n\nManuel','',0,'GA==','mc5ys28h',1,0,'',9,0,0),(11221,1502,6,9,0,'85.60.6.77',1144490311,1,0,1,1,1,0,'','','Este es el link:\n\n <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/013f15ae69/FW_ROMERO.PDF.html\">http://hyperupload.com/download/013f15a ... O.PDF.html</a><!-- m --> \n\n\nLo importante, (creo) es que, con la colaboración de todos, lo modificaramos. Hace tiempo le envie un email a Andres Romero y el estaba de acuerdo.\n\nUn saludo desde Málaga\n\nManuel','',0,'GA==','1aps64af',1,0,'',9,0,0),(11222,2586,17,2,0,'87.218.146.50',1144492641,1,0,1,1,1,1,'','Manual de FiveWin en Español','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/013f15ae69/FW_ROMERO.PDF.html\">http://hyperupload.com/download/013f15a ... O.PDF.html</a><!-- m -->','',0,'GA==','1484ayja',1,0,'',2,0,0),(11223,2585,6,2,0,'87.218.146.50',1144492999,1,0,1,1,1,1,'','','Manuel,\n\n&gt; a) No funciona tema XP, a pesar de incluir en el RC 1 24 \"wxp.man\" \n&gt; Si en el programa pongo #ifdef__THEMAXP__ me devuelve .f. \n\nDesde el programa debes llamar a la función IsAppThemed(), una vez tengas construida la ventana principal, y te devolverá .T. si el fichero de temas del RC ha sido incluido en el EXE.\n\nLa forma idónea de incluirlo en el fichero RC es esta, para que el editor de recursos no intente abrirlo:\n[code:2pzah29h]\n#ifdef __FLAT__\n   1 24 &quot;c&#58;/fwh/samples/WinXP/WindowsXP&#46;Manifest&quot; \n#endif\n[/code:2pzah29h]','',0,'AIA=','2pzah29h',1,0,'',2,0,0),(11224,2585,6,2,0,'87.218.146.50',1144493759,1,0,1,1,1,1,'','','Manuel,\n\n&gt; b) En todos los ACTIVATE DIALOG tengo (oDlg:lHelpIcon:=.f.) que \n&gt; funcionaba en Clipper+FW23.- Pero en FWH 2.7 sale el icono ? \n\nTe enviamos por email una corrección en las librerías.','',0,'AIA=','2e8qh57n',1,0,'',2,0,0),(11225,2585,6,2,0,'87.218.146.50',1144494195,1,0,1,1,1,1,'','','Manuel,\n\n&gt; c) Al compilar en samples\\testfold.prg me da Error ID 790.- Testfold \n&gt; RC 17 19:Expecting class name or ID\n\nAqui compila bien. Estás usando el brc32.exe de Borland ?\n\nAsegúrate de que estás usando los ficheros de cabecera correctos de FWH y no otros antiguos. Esa línea en concreto usa el define FOLDER32 que en winapi.ch está declarado como #define FOLDER32 \"SysTabControl32\"','',0,'AIA=','41mgjn0p',1,0,'',2,0,0),(11226,2585,6,2,0,'87.218.146.50',1144494341,1,0,1,1,1,1,'','','Manuel,\n\n&gt; d) Al compilar samples\\win32 error VARIABLE DOES NOT EXIST: IDOK &gt; que es el recurso. \n\nIDOK está definido en winapi.ch. Comprueba que estás usando el correcto.\n\nEn caso de que estés usando xharbour.com, ojo que suministran un fichero de cabecera que se llama igual, winapi.ch, y puede ser que no estés usando el correcto de FWH.','',0,'AIA=','240qmszd',1,0,'',2,0,0),(11227,2564,3,6,0,'87.16.238.227',1144496466,1,0,1,1,1,1,'','','Personally I have successfully developed some CGI apps using xHarbour and DBFs without problems. As an alternative to CGI you can try XbScript.dll.\n\nEMG','',0,'AIA=','xr5hwy9m',1,0,'',6,0,0),(11228,2585,6,9,0,'85.60.6.77',1144498615,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3nsh6s1o]Manuel,\nDesde el programa debes llamar a la función IsAppThemed(), una vez tengas construida la ventana principal, y te devolverá .T. si el fichero de temas del RC ha sido incluido en el EXE.\n\nLa forma idónea de incluirlo en el fichero RC es esta, para que el editor de recursos no intente abrirlo:\n[code:3nsh6s1o]\n#ifdef __FLAT__\n   1 24 &quot;c&#58;/fwh/samples/WinXP/WindowsXP&#46;Manifest&quot; \n#endif\n[/code:3nsh6s1o][/quote:3nsh6s1o]\n\nAntonio, no me funciona\n\nHe intentado en el RC poner:\n\n1)\n#ifdef __FLAT__\n   1 24 \"c:/fwh/samples/WinXP/WindowsXP.Manifest\" \n#endif\n2) Renombrando el fichero en samples\\winxp\n#ifdef __FLAT__\n   1 24 \"c:/fwh/samples/WinXP/WXP.Man\" \n#endif\n\nEn el programa, me sigue devolviendo .f. En cambio, el resto de los recursos del RC me los toma bien.','',0,'gIA=','3nsh6s1o',1,0,'',9,0,0),(11229,2585,6,9,0,'85.60.6.77',1144498671,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3vexvjmh]Manuel,\nTe enviamos por email una corrección en las librerías.[/quote:3vexvjmh]\n\nCORRECTO. Ahora funciona perfectamente con las nuevas librerias.','',0,'gA==','3vexvjmh',1,0,'',9,0,0),(11230,2585,6,9,0,'85.60.6.77',1144498918,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2ui7e3sa]Manuel,\nAsegúrate de que estás usando los ficheros de cabecera correctos de FWH y no otros antiguos. Esa línea en concreto usa el define FOLDER32 que en winapi.ch está declarado como #define FOLDER32 \"SysTabControl32\"[/quote:2ui7e3sa]\n\nAhora funciona correcto','',0,'gA==','2ui7e3sa',1,0,'',9,0,0),(11231,2585,6,9,0,'85.60.6.77',1144499255,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3fj1a5hd]Manuel,\nIDOK está definido en winapi.ch. Comprueba que estás usando el correcto.\n[/quote:3fj1a5hd]\n\nFuncionando correcto. Era el fichero Winapi.ch\n\nSolo me queda sin resolver el Tema XP\n\nGracias por todo','',0,'gA==','3fj1a5hd',1,1144509963,'',9,1,0),(11233,2588,7,527,0,'88.11.5.207',1144503176,1,0,1,1,1,0,'','Mi primera vez en este foro y en este lenguaje.','Hola soy programador de VISUAL FOXPRO desde hace muchos años, y me interesa conocer este lenguaje. He leido la documentacion del foro y la documentacion de vuestra pagina, pero no lo entiendo.\n\n¿ Que software necesito comprar para realizar programas en este lenguaje ?. Ademas quiero incluir DBF para realizar mantenimientos\n\n¿ Que software tengo que tener instalado ?\nComo puedo compilar un programa\nComo puedo linkar el programa realizado.\n\nLo siento, son muchas pregutas, pero no se por donde empezar a trabajar.\nMuchas gracias.','',0,'gA==','30othic8',1,0,'',527,0,0),(11234,2586,17,2,0,'87.218.146.50',1144507047,1,0,1,1,1,1,'','Curso de iniciación','Curso de iniciación de FiveWin:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01df3ba481/curso.zip.html\">http://hyperupload.com/download/01df3ba ... o.zip.html</a><!-- m -->','',0,'gA==','3gwp0ioh',1,0,'',2,0,0),(11235,2580,18,37,0,'201.230.106.83',1144508081,1,0,1,1,1,0,'','','Gracias Antonio por Responder, nosotros tenemos FW 2.7 de Febrero, en mi casa donde estoy ahora, funciona igual que como tu mencionas, osea pasa automaticamente a la linea siguiente cuando se completa la linea del dialogo.\nPero en la oficina, no salta de linea, continua la misma linea y es ahi donde se pone en blanco (osea se termina lo que aparece en el dialogo y lo que se sigue digitando ya no se ve).\nAhora la idea, no es que salte, ahi esta claro que funciona, la idea es que se siga escribiendo en la misma linea, pero que aparezca lo que se escribe, no que no se vea.\nMas tarde que voy a la oficina te envio un mail con la pantalla y el ejemplo.\nGracias nuevamente','',0,'gA==','37yasqju',1,0,'',37,0,0),(11236,2588,7,2,0,'87.218.146.50',1144508495,1,0,1,1,1,1,'','','Manuel,\n\nYa te hemos enviado el producto con las instrucciones necesarias para que comiences a trabajar con él.\n\nDescarga todos los ficheros, instálalos, ve al directorio samples y escribe buildce.bat tutor01  Debe construirse un tutor01.exe que podrás ejecutar en el emulador de Pocket PC de Microsoft, ó en la Pocket PC directamente.\n\nAsí con los demás ejemplos del directorio samples. Verás que es realmente fácil usar FWPPC y aprender a programarlo, y que los resultados son realmente profesionales <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nBienvenido!','',0,'gA==','npf4egol',1,0,'',2,0,0),(11237,2585,6,2,0,'87.218.146.50',1144508786,1,0,1,1,1,1,'','','Manuel,\n\nAbre tu EXE con el editor de recursos de Borland ó con el PellesC y deberías ver una entrada tipo 24 y de nombre 1.\n\nObserva la salida en pantalla del brc32.exe por si te está dando algún error.','',0,'gA==','1r2lrdtn',1,0,'',2,0,0),(11238,1502,6,2,0,'87.218.146.50',1144508898,1,0,1,1,1,1,'','','Manuel,\n\nQuizá lo idóneo, como ya se apuntó anteriormente, es la creación de un wiki (al estilo de la wikipedia) con toda la documentación de FiveWin, para que todos podamos aportar material.\n\nVamos a ver la forma de organizarlo.','',0,'gA==','16eq7ovm',1,0,'',2,0,0),(11239,2589,6,307,0,'200.38.29.81',1144510860,1,0,1,1,1,0,'','para antonio linares','antonio como bajo lo que ponen en l siguiente liga:\n\nsolo aparece el nombre y la descripcion asi como su tamaño del archivo en cuestion pero no hay una liga donde hacer click para bajar el archivo..\nal menos ami me parece eso..\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0186065f14/prev32sp.dll.html\">http://hyperupload.com/download/0186065 ... p.dll.html</a><!-- m --> \n\n\nFile: prev32sp.dll\nFile size: 60Kb\nDescription: Preview 32 bits en Español \nme aparece asi:\n\nsorry pero no encuentro donde bajarlos..\n\nsaludos','',0,'gA==','1uix20va',1,0,'',307,0,0),(11240,2585,6,9,0,'85.60.6.77',1144510872,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:41tfbsm0]\nAbre tu EXE con el editor de recursos de Borland ó con el PellesC y deberías ver una entrada tipo 24 y de nombre 1.\nObserva la salida en pantalla del brc32.exe por si te está dando algún error.[/quote:41tfbsm0]\n\n1) He abierto el EXE con WorkShop y aparece una entrada de tipo 24 y de nombre 1\n\n2) Cuando compilo y enlazo, no me da ningun error. Editando el  b32.bc aparece al final el RES.\n\n3) He probado en samples browse, testbubm, combos, juan y roberto (todos con xptheme) y dos correctos pero se ven con estilo Windows-98.\nMi ordenador tiene XP-home y creo que debería funcionar bien.','',0,'gA==','41tfbsm0',1,0,'',9,0,0),(11241,2590,3,3,0,'82.248.54.164',1144511352,1,0,1,1,1,1,'','preview zoom at init','In Rpreview.prg when issuing a zoom(.t.)  before activating the window, the result is very bad. The meta coors have to be changed in that case.\n\nI basically want to show the preview zoomed at init. \n\nAny idea ?\n\nThanks\n\nRichard','',0,'gA==','1nhi2sa3',1,0,'',3,0,0),(11242,2589,6,307,0,'200.38.29.81',1144511406,1,0,1,1,1,0,'','disculpa .....','perdon. disculpa.. ya .. perdon..\n\narnulfo','',0,'gA==','70dvizgl',1,0,'',307,0,0),(11243,2591,6,439,0,'201.221.40.27',1144512579,1,0,1,1,1,1,'','TWBrowse de Hernán','Está Disponible en algún link la revision 18?','',0,'gA==','33xss4gv',1,0,'',439,0,0),(11244,2592,4,527,0,'88.11.5.207',1144515269,1,0,1,1,1,0,'','Hola soy novato totalmente','Alguien puede decirme como usar el emulador\nTengo una POKECT HX2700\nAlguien podria decirme si existe algun emulador para poder diseñar las cajas de dialogo las pantallas, ectc.\n\ngracias.','',0,'gA==','1gblb7cn',1,0,'',527,0,0),(11245,2574,6,138,0,'209.145.198.177',1144515492,1,0,1,1,1,1,'','Re: Crtistal Report y EMF\'s','No creo.\n\nLo que si se puede hacer es diseñar el formato de fondo con el mismo diseñador de crystal.\n\nOtra cosa que se me ocurre es crear un bmp, jpg u otro grafico y ponerlo como fondo del reporte crystal, esto que te comento esto seguro a un 90% que se puede hacer, es cuestion de mirar el diseñador de Crystal.','',0,'gA==','1qfnhphp',1,0,'',138,0,0),(11246,2564,3,138,0,'209.145.198.177',1144516632,1,0,1,1,1,1,'','','I already have my own TCGI class library, including some stuff like direct HTML export, reading of enviroment variables, TWebBrowse and other stuff.\n\nI use it every day in my WebBased projects, WebTilus, the FW knowledge base is written with my classes.','',0,'gA==','lo1gd65p',1,0,'',138,0,0),(11247,2593,7,527,0,'88.11.5.207',1144518025,1,0,1,1,1,0,'','Resource Studio de Symantec(MJCC)','Me he bajado este programa para poder diseñas las pantallas para la PDA, esto me genera una extension RC. ¿ Como puedo compilar este programa para generar un EXE ?','',0,'gA==','2e77gy4j',1,0,'',527,0,0),(11248,2594,7,527,0,'88.11.5.207',1144518902,1,0,1,1,1,0,'','Tutor ejemplo1.prg(mjcc)','#include “FiveWin.ch”\n\nSTATIC oWnd\n\nFUNCTION Main()\n\n	DEFINE WINDOW oWnd TITLE “Mi primer programa” ;\n	  MENU BuildMenu()\n  \n   SET MESSAGE OF oWnd TO “Mi nombre” CENTERED\n\n   ACTIVATE WINDOW oWnd VALID MsgYesNO(“¿Desea salir?”)\n\nreturn nil\n\n//-----------------------------------------------------//\n\nFunction BuildMenu()\n\n	local oMenu\n\n	MENU oMenu\n      MENUITEM “Fin” ACTION oWnd:End()\n	ENDMENU\n\nReturn oMenu\n\n\n\n\n\nHe recogido el ejemplo uno al intentar compilarlo me da los siguientes errores\n\n\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'mjcc.prg\' and generating preprocessed output to \'mjcc.ppo\'...\nLines 28, Functions/Procedures 2\nGenerating C source output to \'mjcc.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nmjcc.c\n   Creating library mjcc.lib and object mjcc.exp\nmjcc.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_MENUEN\nD(void)\" (?HB_FUN_MENUEND@@YAXXZ)\nmjcc.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_MENUAD\nDITEM(void)\" (?HB_FUN_MENUADDITEM@@YAXXZ)\nmjcc.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_MENUBE\nGIN(void)\" (?HB_FUN_MENUBEGIN@@YAXXZ)\nmjcc.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_TMSGBA\nR(void)\" (?HB_FUN_TMSGBAR@@YAXXZ)\nmjcc.exe : fatal error LNK1120: 4 unresolved externals\n* Application successfully built\n\nC:\\manolo&gt;','',0,'gA==','2wv2kuig',1,0,'',527,0,0),(11249,2594,7,2,0,'87.218.146.50',1144524313,1,0,1,1,1,1,'','','Manuel,\n\nLos menús en FWPPC no pueden crearse desde código fuente, sino desde recursos. De momento, prueba a construir el ejemplo samples\\tutor03 haciendo: buildce.bat tutor03\n\nSi tienes todo bien instalado, debe crearte tutor03.exe','',0,'gA==','1bx3pxq3',1,0,'',2,0,0),(11250,2593,7,2,0,'87.218.146.50',1144524481,1,0,1,1,1,1,'','','Manuel,\n\nel fichero samples\\buildce.bat automaticamente llama al RC.exe de Microsoft que lo convierte en RES y lo introduce dentro del EXE.\n\nRevisa el ejemplo samples\\tutor03.prg y mira como es su fichero tutor03.rc. Lo más sencillo es ir aprendiendo revisando los ejemplos que proporcionamos que son muy simples.','',0,'gA==','2b561b65',1,0,'',2,0,0),(11251,2592,4,2,0,'87.218.146.50',1144524727,1,0,1,1,1,1,'','','Manuel,\n\nUna vez hallas instalado el emulador de Pocket PC de Microsoft, ve al directorio c:\\Archivos de Programa\\Microsoft\\Device Emulator Preview\\PPC_2003_SE y crea el siguiente fichero go.bat:\n\n..\\deviceemulator ppc_2003_se_wwe_armv4.bin /skin Pocketpc_2003_skin.xml /memsize 128\n\nAl ejecutarlo, debe cargar el emulador en pantalla. Ahora desde la opción del menu del emulador \"file\"-\"configure\", selecciona \"shared folder\" que es la carpeta de tu PC que el emulador compartira como si fuese tu tarjeta SD de memoria.','',0,'gA==','376hjzlh',1,0,'',2,0,0),(11252,2590,3,2,0,'87.218.146.50',1144524827,1,0,1,1,1,1,'','','Richard,\n\nCould you please provide a small and self contained sample of what you are doing ? Thanks.','',0,'gA==','2de7geyg',1,0,'',2,0,0),(11253,2589,6,2,0,'87.218.146.50',1144525008,1,0,1,1,1,1,'','','bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','xmvo0jo1',1,0,'',2,0,0),(11254,2595,3,307,0,'200.38.29.81',1144525046,1,0,1,1,1,0,'','depurador de FWh','Hola, fwh algun dia podra tener un debuger en tiempo de ejecucion como otros lenguajes (VB)\n\nsaludos','',0,'gA==','3nltahdu',1,0,'',307,0,0),(11255,2592,4,527,0,'88.11.5.207',1144527594,1,0,1,1,1,0,'','OK ME HA SERVIDO PERFECTAMENTE','OK ME HA SERVIDO PERFECTAMENTE','',0,'gA==','168cjh21',1,0,'',527,0,0),(11256,2594,7,527,0,'88.11.5.207',1144528258,1,0,1,1,1,0,'','tutor 03','He probado el tutor03 y me funciona pero al terminar la compilacion me da un error.\n\n Compiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor03.prg\' and generating preprocessed output to \'tutor03.ppo\'...\nLines 35, Functions/Procedures 2\nGenerating C source output to \'tutor03.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\ntutor03.c\n   Creating library tutor03.lib and object tutor03.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=\n0x00031028\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rv\na=0x000874B0\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x000010\n00, rva=0x00094EFC\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x000010\n00, rva=0x000AA9D8\n* Application successfully built\n\nC:\\FWPPC\\SAMPLES&gt;','',0,'gA==','1brw5un0',1,0,'',527,0,0),(11257,2594,7,527,0,'88.11.5.207',1144528579,1,0,1,1,1,0,'','Lo siento que sea tan burro','Pero no entiendo la correlacion que existe entre el tutor03.prg y el tutor03.rc.\n\nUno tiene un codigo y otro tiene otro codigo. Yo he modificado el codigo del tutor03.prg y me funciona con el codigo modificado. No entiendo para que sirve el tutor03.rc\n\nSiento mucho las molestias.','',0,'gA==','264zzk92',1,0,'',527,0,0),(11258,2596,18,2,0,'87.218.146.50',1144528737,1,0,1,1,1,1,'','Much faster cTempFile() function','FWH April users may change this function to get much faster printing previews:\n[code:1t88jdbu]\nfunction cTempFile&#40; cPath, cExtension &#41;        // returns a temporary filename\n\n   local cFileName\n\n   static cOldName\n\n   DEFAULT cPath &#58;= &quot;&quot;, cExtension &#58;= &quot;&quot;\n   \n   if ! &quot;&#46;&quot; $ cExtension\n      cExtension = &quot;&#46;&quot; + cExtension\n   endif   \n\n   while File&#40; cFileName &#58;= &#40; cPath + LTrim&#40; Str&#40; GetTickCount&#40;&#41; &#41; &#41; + cExtension &#41; &#41; &#46;or&#46; ;\n         cFileName == cOldName\n   end\n\n   cOldName = cFileName\n\nreturn cFileName\n[/code:1t88jdbu]','',0,'AIA=','1t88jdbu',1,0,'',2,0,0),(11259,2594,7,2,0,'87.218.146.50',1144528930,1,0,1,1,1,1,'','','Manuel,\n\nEsos cuatro \"warnings\" (avisos) que dá al construir los EXEs son conocidos y no afectan para nada el funcionamiento del programa. Siempre salen y no hay que preocuparse por ellos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3tduhte4',1,0,'',2,0,0),(11260,2594,7,2,0,'87.218.146.50',1144529062,1,0,1,1,1,1,'','','Manuel,\n\nEn tutor03.rc están los literales que usa el menu en tutor03.prg.\n\nSi cambias esos literales, por otras palabras, verás que el menú cambia. También estan definidos unos números que son los códigos que esos menuitems generan al ser seleccionados, y que se encarga de gestionar tutor03.prg.','',0,'AIA=','1o59fss6',1,0,'',2,0,0),(11261,2564,3,35,0,'65.188.6.143',1144529341,1,0,1,1,1,0,'','','Rene\n\nAs I look at the various web options .. I increasingly dis-like what I have seen ... hense the start of this thread.\n\nI like to be able to have listboxs, dialogs without having to spawn off new browsers. \n\nI would like the opportunity to use database controls, data validation, business rules with \'valids\' for triggers. Be able to take a table and use arrays or varibles and work with those values instead of directly writing to a database .. I control the locks .. I control the table update logic.\n\nI would very much like to see your web-browse listbox class .. James and I have been talking privately about what you have acomplished.\n\nI hope I would not be imposing by asking for some of your samples..\n\nThanks\nRick Lipkin\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'AIA=','9bplx2w3',1,0,'',35,0,0),(11262,2594,7,527,0,'88.11.5.207',1144529755,1,0,1,1,1,0,'','En tutor03.rc están los literales que usa el menu en tutor03','OK voy a estudiarlo a fondo para ver si consigo enterdelo\nsiento molestarte tanto  pero hasta que no entienda la estructura de funcionamiento no puedo realizar ninguna prueba para datos reales\n\ngracias, por todas tus respuestas y tan rapido.','',0,'AIA=','32vsrm97',1,0,'',527,0,0),(11263,2597,3,148,0,'82.201.206.43',1144530812,1,0,1,1,1,0,'','SET SCOPE  sample','I searched over all samples for the syntax for set scope and I could not find any . \nPls tell me How can I use SET SCOPE ? especially with variable conditions &amp;(conditions) .\nThanks','',0,'AIA=','35kh2qjj',1,0,'',148,0,0),(11264,2594,7,2,0,'87.218.146.50',1144530954,1,0,1,1,1,1,'','','Manuel,\n\nEres bienvenido y estamos aqui para ayudarte <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1snk7lne',1,0,'',2,0,0),(11265,2595,3,2,0,'87.218.146.50',1144531043,1,0,1,1,1,1,'','','Harbour tiene su propio debugger. Sólo tienes que compilar los PRGs con la opción /b y el debugger aparecerá en una ventana de consola (32 bits modo texto).','',0,'AIA=','z6p1tyqu',1,0,'',2,0,0),(11266,2598,6,265,0,'80.59.225.15',1144532525,1,0,1,1,1,0,'','Primeros pasos en harbour','Hola amigos\nNo consigo realizar la primera compilación en harbour. Utilizo VeRCE, y cuando intento compilar una aplicación sencillita que tengo me da el siguiente error\n\n*************************\nCompilado y Enlazado de: [C:\\fuentes\\fuentesf\\envio\\envio.Exe]                                                                    \nEjecución No. 2                                                                                                                   \nEjecutada a las: 23:32:03                                                                                                         \n============================================================                                                                      \nHarbour Compiler Alpha build 45.0 (Flex)                                                                                          \nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->                                                                              \nCompiling \'C:\\fuentes\\fuentesf\\envio\\envio.prg\'...                                                                                \nC:\\fuentes\\fuentesf\\envio\\envio.prg(39) Warning W0001  Ambiguous reference: \'CCODU\'                                               \nC:\\fuentes\\fuentesf\\envio\\envio.prg(40) Warning W0001  Ambiguous reference: \'DFETRA\'                                              \nC:\\fuentes\\fuentesf\\envio\\envio.prg(41) Warning W0001  Ambiguous reference: \'CTITULO\'                                             \nC:\\fuentes\\fuentesf\\envio\\envio.prg(42) Warning W0001  Ambiguous reference: \'CUNIDAD\'                                             \nC:\\fuentes\\fuentesf\\envio\\envio.prg(61) Warning W0001  Ambiguous reference: \'CTITULO\'                                             \n                                       \nNo code generated.                                                                                                                \nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland                                                                                \n** error 1 ** deleting C:\\fuentes\\fuentesf\\envio\\envio.hrb                                                                        \nHa habido ERRORES al intentar Generar la Aplicacion                                                                               \n============================================================                                                                      \nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3                                                                       \nJuan Carlos Salinas Ojeda                                                                                                         \n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->                                                                                                \nMinatitlán, Veracruz. MEXICO                                                                                                      \nY Solo Veracruz es bello !!!                                                                                                      \nFiveWin for Harbour!!          \n************************************************\nLos warning son variables declaradas private al comienzo de la aplicación, ésta aplicación me la compila sin problemas fivewin + clipper.\n\nUn saludo\n\nJose Luis','',0,'','2ptjx2c8',1,0,'',265,0,0),(11267,2580,18,37,0,'200.121.153.236',1144538814,1,0,1,1,1,0,'','El mismo ejemplo pero con HSCROLL','Antonio, ya revise y el problema existe cuando colocamos HSCROLL, te envie un mail con el .PRG de ejemplo, con Clipper funciona Ok pero con (x)Harbour no, esto nos pasa con WinXP, xHb 0.99.60 - Hb 0.45 y FW 2.7.\nPero recuerdo que con Win98 no sucede ????\nAlguna idea, gracias','',0,'','398dg8y8',1,0,'',37,0,0),(11268,2582,6,73,0,'201.132.242.216',1144540406,1,0,1,1,1,0,'','','Raymundo,\nle tienes especificado el tipo de font al browse?\npudieras poner algo de codigo para verlo?\nyo tengo un browse que tome del ejemplo que tiene el browse y no me cambia el tipo de letra\n\nsalu2\npaco','',0,'','3veg3tk9',1,0,'',73,0,0),(11269,2582,6,73,0,'201.132.242.216',1144542436,1,0,1,1,1,0,'','','raymundo,\nsi le defino la font lo hago asi:\n   oLbx:SetFont(oFont)\n   oLbx:bFont:={|nRow,nCol,nStyleLine| ;\n                     IF(nStyleLine==3,oFont:hFont,0) }\ny asi me respeta el tipo de letra en la edicion\nsalu2\npaco','',0,'','17rqgjz7',1,0,'',73,0,0),(11270,2597,3,394,0,'207.219.124.134',1144543695,1,0,1,1,1,0,'','','[code:2t4nn7m0]#IFDEF _setads\nordscope&#40;0,&#40;da1&#41;&#41;\n#else\nset scopetop to &#40;da1&#41;\n#endif\n\n#IFDEF _setads\nordscope&#40;1,&#40;da2&#41;&#41;\n#else\nset scopebottom to &#40;da2&#41;\n#endif[/code:2t4nn7m0]\nThis is how I do it \nThe file is indexed on date field.\nads uses 0 to scope top and 1 for scope bottom.\nnon ads uses 1 to scope top and 2 for scope bottom.','',0,'AIA=','2t4nn7m0',1,0,'',394,0,0),(11271,2580,18,2,0,'87.218.146.50',1144559351,1,0,1,1,1,1,'','','Enrique,\n\nNo debeis usar HSCROLL porque entonces le estás diciendo a la ventana que se desplace en horizontal todo lo que necesite. Si quereis que salte a la siguiente línea automaticamente, no useis HSCROLL.','',0,'AIA=','3vkc8duc',1,0,'',2,0,0),(11272,2598,6,2,0,'87.218.146.50',1144559659,1,0,1,1,1,1,'','','Jose Luis,\n\nPrueba a poner al principio de tu PRG lo siguiente:\n\nmemvar CCODU, DFETRA, CTITULO, CUNIDAD, CTITULO','',0,'AIA=','2txxffvq',1,0,'',2,0,0),(11274,1601,4,51,0,'80.122.88.242',1144576127,1,0,1,1,1,0,'','','Hello Antonio,\n\nwhen will be VALID ready for WINDOWS?\n\nIf I change to DIALOG SIZE is not the same as on WINDOWS.\n\nRegards\nOtto','',0,'AIA=','12w3mzro',1,0,'',51,0,0),(11275,2600,6,9,0,'85.60.6.77',1144576404,1,0,1,1,1,1,'','Font en Folder','Al utilizar en un Folder un Font &gt; 12, se pierde la línea bajo los títulos de las pestañas. Acompaño una imagen y el código (modificado) de samples\\testfld3:\n\n[url=http&#58;//img128&#46;imageshack&#46;us/my&#46;php?image=testfld36hv&#46;jpg:1qlr02rw][img:1qlr02rw]http&#58;//img128&#46;imageshack&#46;us/img128/1743/testfld36hv&#46;th&#46;jpg[/img:1qlr02rw][/url:1qlr02rw]\n\n\n#include \"FiveWin.ch\"\nfunction Main()\n   local oDlg, oFld, oFon\n\n   DEFINE FONT oFon NAME \"MS Sans Serif\" SIZE 0, -14 BOLD\n\n   DEFINE DIALOG oDlg TITLE \"FiveWin Dynamic folders\" ;\n      FROM 5, 5 TO 20, 50 FONT oFon\n\n   @ 0.5, 1 FOLDER oFld PROMPT \"&amp;xBase\", \"&amp;And OOP\", \"&amp;Power\" ;\n      OF oDlg SIZE 160, 90 \n\n   @ 1, 1 BUTTON \"&amp;Hola\" OF oFld:aDialogs[ 1 ] ;\n     ACTION MsgInfo( \"Hola a todos\" )\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil','',0,'GA==','1qlr02rw',1,0,'',9,0,0),(11276,2580,18,37,0,'201.230.106.83',1144578735,1,0,1,1,1,0,'','','Eso es precisamente lo que quiero, que se desplace en horizontal !!!\nY como podras ver con Clipper y FW si funciona Ok en WinXP (con el ejemplo que te envie).\nMi pregunta puntual es porque no funciona bien con (x)Harbour y FWH ??? con WinXP','',0,'GA==','3scqd22d',1,0,'',37,0,0),(11277,2593,7,527,0,'88.11.5.207',1144581972,1,0,1,1,1,0,'','INCLUIR BMPS PARA LLAMAR A OTRAS PANTALLAS','COMO PUEDO INCLUIR BMPS EN LA PANTALLA PRINCIPAL PARA QUE ESTOS BMPS CUANDO PULSAN EL BOTON ENCIMA LLAMEN A OTRO PROGRAMA, POR EJEMPLO UN MANTENIMIENTO DE CLIENTES.\n\nLO QUE PRETENDO HACER ES ALGO PARECIDO A UNA PANTALLA DE TPV PARA RESTAURANTES.\n\nTIENES ALGUN TUTOR YA HECHO PARA VER ESTA OPERACION.\n\nGRACIAS.','',0,'GA==','2zq9kowf',1,0,'',527,0,0),(11278,2601,7,527,0,'88.11.5.207',1144582131,1,0,1,1,1,0,'','BUILDCE','NECESITO COPIAR EL BUILDCE A OTRO DIRECTORIO PARA GENERAR UNA APLICACION DE EJEMPLO, QUE DATOS TENGO QUE TOCAR EN EL BAT PARA QUE SE EJECUTE DIRECTAMENTE DESDE EL DIRECTORIO EN DONDE TENGO MI APLICACION.\n\nGRACIAS.','',0,'GA==','5t62rdc6',1,0,'',527,0,0),(11279,2590,3,3,0,'82.255.214.112',1144584396,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:24tcravl]Richard,\n\nCould you please provide a small and self contained sample of what you are doing ? Thanks.[/quote:24tcravl]\n\nproblem Fixed\n\nOn init zoom(.t.)  does the trick \n\nRichard','',0,'gA==','24tcravl',1,0,'',3,0,0),(11280,2593,7,262,0,'83.97.168.22',1144590818,1,0,1,1,1,1,'','','bienvenido , el tutor12 hace lo que pides , creo...\nSaludso.','',0,'gA==','2tehem8a',1,0,'',262,0,0),(11281,2601,7,262,0,'83.97.168.22',1144591082,1,0,1,1,1,1,'','','depende donde coloques el directorio , si el subdirectorio esta colgando de fwpcc ( \"c:\\fwpcc\\programa1\" , por ejemplo ) , no tienes que tocar ni una linea , si cuenga del raiz , ode otro lado cambia la linea \n\necho ..\\lib\\FiveCE.lib ..\\lib\\FiveCEC.lib  &gt;&gt; msvc.tmp\npor algo como c:\\fwpcc\\lib\\FiveCE.lib c:\\fwpcc\\lib\\FiveCEC.lib &gt;&gt; msvc.tmp\n\ny creo que nada mas .\nSaludso.','',0,'gA==','3qqo96oa',1,0,'',262,0,0),(11282,2580,18,2,0,'87.218.146.50',1144596305,1,0,1,1,1,1,'','','Enrique,\n\nTe hemos enviado una modificación de la clase por email.\n\nNuestro consejo es que useis la clase TRichEdit que es nativa de Windows 32 bits, está probada sobradamente y os sirve perfectamente para el mismo objetivo.','',0,'gA==','wnvaoze9',1,0,'',2,0,0),(11283,2593,7,2,0,'87.218.146.50',1144596404,1,0,1,1,1,1,'','','Manuel,\n\nUsa el ejemplo samples\\clients\\client.zip como modelo. Es un muy buen ejemplo desarrollado por Carles.','',0,'gA==','20aj9bnm',1,0,'',2,0,0),(11284,1601,4,2,0,'87.218.146.50',1144596503,1,0,1,1,1,1,'','','Otto,\n\nWe can not say a date. We will offer it as soon as possible.','',0,'gA==','34t6r0me',1,0,'',2,0,0),(11285,2597,3,148,0,'82.201.207.166',1144597974,1,0,1,1,1,0,'','','where can I put my condition eg. date &gt; 31/12/2006','',0,'gA==','35ifgiex',1,0,'',148,0,0),(11286,2590,3,2,0,'87.218.146.50',1144598050,1,0,1,1,1,1,'','','Richard,\n\nVery good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','199v5new',1,0,'',2,0,0),(11287,2602,3,148,0,'82.201.207.166',1144598321,1,0,1,1,1,0,'','I need your advice PLS....get/read and combo box','I need to add an combo box to get/read variable as a help to entry . The combo box will read from a file a previously entered value or get/read new value not entered in the file .\nI need your experience about the best way for doing this ?','',0,'gA==','1tmkc4dv',1,0,'',148,0,0),(11288,2539,18,2,0,'87.218.146.50',1144606127,1,0,1,1,1,1,'','','Alvaro,\n\nHemos publicado tu ejemplo en la lista de desarrollo de Harbour y efectivamente se trataba de un bug que ya ha sido corregido.\n\nPuedes descargar el nuevo build de Harbour desde aqui:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/016ece0f69/harbour.EXE.html\">http://hyperupload.com/download/016ece0 ... r.EXE.html</a><!-- m -->\n\nPor cierto, que nos comentan que es mejor práctica hacer:\n[code:31nayib6]\n   GO TOP \n   WHILE !eof&#40;&#41; \n      DELETE \n      GO TOP \n   ENDDO \n[/code:31nayib6]\nen vez de:\n[code:31nayib6]\n   GO TOP \n   WHILE !eof&#40;&#41; \n      DELETE \n      SKIP\n   ENDDO \n[/code:31nayib6]\nYa que otros RDDs podrian no soportar la segunda opción. \n\nDe todas formas tu ejemplo ya funciona correctamente <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','31nayib6',1,0,'',2,0,0),(11289,2486,16,2,0,'87.218.146.50',1144606180,1,0,1,1,1,1,'','','April 09 2006 update\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/016ece0f69/harbour.EXE.html\">http://hyperupload.com/download/016ece0 ... r.EXE.html</a><!-- m -->','',0,'AIA=','3etlq2uo',1,0,'',2,0,0),(11290,2597,3,307,0,'200.38.30.173',1144606411,1,0,1,1,1,0,'','ordscope','Sample: \nindex: tienda + Dtos(fecha)\n\nmy var\'s\"\nctienda\ndFecha\n\nfrom tienda x , fecha y\nTo  tienda n , fecha  z\n\n DbSelectArea(\"VentaSuc\") ; VentaSuc-&gt;(ORDSETFOCUS(\"TIENDAFEC\")) ; VentaSuc-&gt;(DbGotop())\n        VentaSuc-&gt;(OrdScope(0, ctienda+ Dtos(dFecha ) ) )\n        VentaSuc-&gt;(OrdScope(1,  ctienda + Dtos(dFecha ) ) ) ; VentaSuc-&gt;(DbGotop())\n\nformat:\n\nORDSCOPE(0,yourFirstRecord)   //topscope\nORDSCOPE(1,yourEndRecord)  //bottomscope\nyourDBf-&gt;(DbGotop())','',0,'AIA=','1iexe5vi',1,0,'',307,0,0),(11291,2603,6,307,0,'200.38.30.173',1144606755,1,0,1,1,1,0,'','vtaskbar','como se puede definir dentro del workshop una vtaskbar?...\nes posible o solo desde codigo?.\n\n\nsaludos\n\narnulfo','',0,'AIA=','28vuotl3',1,0,'',307,0,0),(11292,2603,6,2,0,'87.218.146.50',1144606967,1,0,1,1,1,1,'','','Arnulfo,\n\nPuedes poner una imagen de ejemplo de lo que quieres hacer ? A que te refieres con vtaskbar ? A un icono en la zona derecha de la barra de mensajes ?\n\nPuedes usar <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> para alojar imágenes y poner aqui el enlace a ellas para verlas.','',0,'AIA=','37j3xem1',1,0,'',2,0,0),(11293,2604,7,527,0,'88.1.226.217',1144607318,1,0,1,1,1,0,'','RESOLUCION POKECT','podeis decirme como en tamaño de la pantalla de la poket para poder adaptar mis programas a la resolucion de la pantalla de la poket\n\nademas tambien me gustaria saber si todas las pokets y palm tienen el mismo tamaño de pantalla.\n\ngracias.','',0,'AIA=','2ry4y0s9',1,0,'',527,0,0),(11294,2597,3,148,0,'82.201.207.166',1144608652,1,0,1,1,1,0,'','','I am sorry some English is better than some Spanish I am Very Sorry I can not understand this . Also I have multiple variable conditions . May I have to index my DBF according the multiple variable conditions .\n\nfilter ==\"upper(Name)=\"EHAB\" .AND. age &lt; 30 \n.and. (4-&gt;me_date) &gt; (dtos date_from) .and. ;\n(4-&gt;me_date) &lt;  dtos(date_to) \"\n\n..\nset filter to &amp;(filter)\n..\netc','',0,'AIA=','aw637hsy',1,0,'',148,0,0),(11295,2511,2,404,0,'85.155.211.98',1144614581,1,0,1,1,1,0,'','No hay forma.','¿En que estoy equivocado?.\n\nEn una Base de Datos, pequeña, no influye. Pero si encima el ordenador es lento.\n\nMi intención, es barrer solo las facturas de un cierto mes, o meses seleccionados, de un proveedor.\n\nApreciaré cualquier ayuda. ¡ GRACIAS!, anticipadas.\n\nJosé Mª','',0,'AIA=','3oojnpcl',1,0,'',404,0,0),(11296,2603,6,49,0,'87.7.176.189',1144618611,1,0,1,1,1,1,'','','you must ask to paco ( canalfive.com)','',0,'AIA=','3vjo5irg',1,0,'',49,0,0),(11297,2602,3,266,0,'60.50.60.122',1144618733,1,0,1,1,1,1,'','','Sandeep\'s TDD class can shows data from dbf on GET changed.\n\nYou can download it from Patrick\'s site : \n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/downloads.php?aktie=all&amp;category=FiveWin%20users%20contributions&amp;sort=dlDate%20desc\">http://www.fivewin.info/html/downloads. ... ate%20desc</a><!-- m -->','',0,'AIA=','4idyk1ij',1,0,'',266,0,0),(11298,2605,6,203,0,'200.107.17.160',1144624557,1,0,1,1,1,1,'','Generar archivos XML','Hola a todos\nPor favor sabe alguien si puedo generar archivos XML \ncon Fwh 2.6 de Junio del 2005\ny donde pudeo encontrar un ejemplo?\n\n\nGracias\n\nSaludos\nOscar','',0,'AIA=','1n2j07n6',1,0,'',203,0,0),(11299,2606,6,141,0,'200.88.94.231',1144633312,1,0,1,1,1,1,'','No entiendo este error...','Vamos a ver si \"ven\" algo que yo no,\n\nEn el código\n\n[code:2b3167u8]\n&#46;&#46;&#46;&#46;&#46;\n   REDEFINE GET oGet         VAR oCoagif&#58;Var      ID 107 OF oDlg PICTURE \'@!\'\n&#46;&#46;&#46;&#46;&#46;\n[/code:2b3167u8]\n\n\nxHabour me reporta el error:\n\n Error E0030  Syntax error: \"syntax error at \'GET\'\"\n\n¿Que es eso?..... si cambio la variable a oCoagif:Var2 el error desaparece.... ¿Que rayos pasa?\n\nGracias,','',0,'AIA=','2b3167u8',1,0,'',141,0,0),(11300,2607,6,215,0,'201.129.19.65',1144635068,1,0,1,1,1,0,'','Horas y no se deja...','Como último recurso acudo a ustedes... llevo horas con esto y simplemente no me sale.\n\nIntento copiar una hoja del libro de excel al final del libro.\nTengo un libro con 3 hojas\n\nPrimero selecciono la hoja que voy a copiar\noExcel:ActiveWorkbook:Sheets(\"Hoja1\"):Select()\n\nAhora intento copiarla al final \noExcel:ActiveWorkbook:Sheets(\"Hoja1\"):Copy(\"After\")\n\nSegún VB se hace asi, pero no tengo idea de como implementar lo último\nSheets(\"Hoja1\").Copy After:=Sheets(3)\n\n¿Alguna alma caritativa que pueda ayudarme?\nFivewin 2.7 + Harbour\n\nGracias\nFernando Leal','',0,'AIA=','29uwaj6m',1,0,'',215,0,0),(11301,2608,6,52,0,'200.127.195.89',1144636433,1,0,1,1,1,1,'','msgWait no admite varias lineas?','Estimados,\n\nEl msgWait no admite varias lineas?\ntales como:\n\n[code:5ybl37rc]msgWait&#40; &quot;esto&quot; + chr&#40; 13 &#41; +&quot; es una prueba&quot;, &quot;atencion&quot;, 2 &#41;[/code:5ybl37rc]','',0,'AIA=','5ybl37rc',1,0,'',52,0,0),(11302,2606,6,53,0,'201.138.37.127',1144638581,1,0,1,1,1,1,'','','Julio:\n\nSeguramente el error se produce porque en el nombre de la variable estas usando una palabra reservada (VAR).\n\nSaludos, Armando','',0,'AIA=','5hvjioui',1,0,'',53,0,0),(11303,2609,1,51,0,'80.122.88.242',1144642365,1,0,1,1,1,0,'','From COMIX to Advantage','Is it possible to change from COMIX to Advantage and if yes is there much source to change?\n\nThanks in advance\nOtto','',0,'AIA=','45fr2y9y',1,0,'',51,0,0),(11304,2581,6,179,0,'200.69.181.39',1144644559,1,0,1,1,1,1,'','','Gracias lo voy a probar\n\nSaludos','',0,'AIA=','1vlrbttx',1,0,'',179,0,0),(11305,2607,6,215,0,'201.102.247.39',1144650377,1,0,1,1,1,0,'','y otras horas más tarde','Si a alguien le sirve lo he resuelto asi:\n\nActivar la hoja que necesito, en este caso se llama \"A\"\noExcel:ActiveWorkbook:Sheets(\"A\"):Select()\n\nAgrego las hojas que necesito en el libro\nRESUVD-&gt;( dbgotop() )\nFOR i := 1 TO RESUVD-&gt;( lastrec() -1 )\n      oExcel:ActiveWorkbook:Sheets(\"A\"):Invoke(\"Copy\",oHoja)\nNEXT\n\nAhora las renombro como yo quiero \nnRows := RESUVD-&gt;( lastrec() )\n\nwhile RESUVD-&gt;( !eof() )\n   if nRows == 1\n          oExcel:ActiveWorkbook:Sheets(\"A\"):Select()\n          oExcel:ActiveWorkbook:Sheets(\"A\"):Name := alltrim( RESUVD-&gt;FOLIBNX )\n\n       else\n          oExcel:ActiveWorkbook:Sheets(\"A (\"+alltrim( cValToChar( nRows ) )+\")\"):Select()\n          oExcel:ActiveWorkbook:Sheets(\"A (\"+alltrim( cValToChar( nRows ) )+\")\"):Name := alltrim( RESUVD-&gt;FOLIBNX )\n\n       endif\n\n      Activo la hoja para meterle los datos\n       oHoja  := oExcel:Get( \"ActiveSheet\" )\n            if VD-&gt;( dbseek( RESUVD-&gt;FOLSICRE ) )\n               Le meto los datos que necesito...\n               oHoja:Cells( 8, 6 ):Value := VD-&gt;CNOMVISITA\n               oHoja:Cells( 8, 25 ):Value := VD-&gt;FOLIBNX\n\n\nIngo a su male el problema... vamonos con lo que sigue que es para hoy.','',0,'AIA=','1re5yqk7',1,0,'',215,0,0),(11306,2604,7,262,0,'87.235.159.190',1144652565,1,0,1,1,1,1,'','','Tienes dos tipos de pantalla ( que yo sepa) , una es la de las hp6515 que es de 240*240   , la otra ( la alargada ) es de 320*240 \nsaludos.','',0,'AIA=','2siftwsu',1,0,'',262,0,0),(11307,2581,6,456,0,'217.127.39.57',1144652940,1,0,1,1,1,1,'','','En directorio xMate \nBorlandWinH.Env\n[list:tbi95t1y][Harbour]\nHB_INSTALL=c:\\HARBOUR\nHB_COMMAND=%HB_BIN_INSTALL%\\Harbour.Exe %PRG% /m /n /gc0 /es2 /i%HB_INC_INSTALL% /dHB_API_MACROS /dHB_FM_STATISTICS_OFF /dHB_STACK_MACROS\nOption prefix=/\n\n[C]\nC_INSTALL=C:\\Borland\\BCC55\nC_COMP_COMMAND=%C_BIN_INSTALL%\\Bcc32.Exe -DHB_API_MACROS -M -c -O2 -e  -tWM %CRLF%-DHB_STACK_MACROS -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -I%HB_INC_INSTALL%;%C_INC_INSTALL%  -n%HOME%\\Obj %C%\nC_LIB_COMMAND=%C_BIN_INSTALL%\\TLib.Exe %LIB% /P512 @%RSP% , %LST%\nC_LINK_COMMAND=%C_BIN_INSTALL%\\iLink32.Exe -Gn -aa -Tpe -s @%LNK%\nC_RC_COMMAND=C:\\archiv~1\\PellesC\\Bin\\PORC.EXE  %RC%  /I c:\\archiv~1\\pellesc\\include /I c:\\archiv~1\\pellesc\\include\\win\nC_DLL_COMMAND=\nOption prefix=-\n\n[User]\nPOSTEXE_COMMAND=\nPOSTLIB_COMMAND=\nPOSTDLL_COMMAND=\n\n[Advanced]\nCommand types=1,1,1,1,1,1,1,1,1\n\n[Environment]\nDescription 1=FiveWin+Harbour para Bccc\nDescription 2=\nDescription 3=\nPRG Compiler ver=\nC compiler ver=5.5\nSubsystem=\nAuthor=Biel\nLast update=\n\n[Files]\nC:\\FWH\\LIB\\Fivehc.lib=1\nC:\\FWH\\LIB\\Fiveh.lib=2\n%C_LIB_INSTALL%\\C0W32.OBJ=3\n%HB_LIB_INSTALL%\\rtl.lib=4\n%HB_LIB_INSTALL%\\vm.lib=5\n%HB_LIB_INSTALL%\\gtwin.lib=6\n%HB_LIB_INSTALL%\\lang.lib=7\n%HB_LIB_INSTALL%\\macro.lib=8\n%HB_LIB_INSTALL%\\rdd.lib=9\n%HB_LIB_INSTALL%\\dbfcdx.lib=10\n%HB_LIB_INSTALL%\\dbfntx.lib=11\n%HB_LIB_INSTALL%\\dbffpt.lib=12\n%HB_LIB_INSTALL%\\hbsix.lib=13\n%HB_LIB_INSTALL%\\debug.lib=14\n%HB_LIB_INSTALL%\\common.lib=15\n%HB_LIB_INSTALL%\\pp.lib=16\n%C_LIB_INSTALL%\\CW32.LIB=17\n%HB_LIB_INSTALL%\\codepage.lib=18\n%C_LIB_INSTALL%\\IMPORT32.LIB=19\n%C_LIB_INSTALL%\\WS2_32.LIB=20\n%C_LIB_INSTALL%\\PSDK\\odbc32.lib=21\n%C_LIB_INSTALL%\\PSDK\\nddeapi.lib=22\n%C_LIB_INSTALL%\\PSDK\\iphlpapi.lib=23\n%C_LIB_INSTALL%\\PSDK\\rassapi.lib=24\n[/list:u:tbi95t1y]\nscript  proyecto.\n[list:tbi95t1y][Version]\nType=xMate\nNumber=1.10\n\n[Info]\nType=Executable\nArchitecture=BorlandWinH\nInclude=C:\\FWH\\INCLUDE\nDefine=\n\n[xMate]\nCreate Map/List File=No\n\n[Project]\nRun=\nParams=\nFinal Path=%HOME%\nMaintain LNK=Yes\nDefault Type=1\n\n[Data Path]\n[Editor]\n[Files]\n%HOME%\\Source\\Seriec.prg=1,.F.,55,28,\nC:\\FWH\\LIB\\Fivehc.lib=17,.T.,0,0,\nC:\\FWH\\LIB\\Fiveh.lib=18,.T.,0,0,\n%C_LIB_INSTALL%\\C0W32.OBJ=19,.T.,0,0,\n%HB_LIB_INSTALL%\\rtl.lib=20,.T.,0,0,\n%HB_LIB_INSTALL%\\vm.lib=21,.T.,0,0,\n%HB_LIB_INSTALL%\\gtwin.lib=22,.T.,0,0,\n%HB_LIB_INSTALL%\\lang.lib=23,.T.,0,0,\n%HB_LIB_INSTALL%\\macro.lib=24,.T.,0,0,\n%HB_LIB_INSTALL%\\rdd.lib=25,.T.,0,0,\n%HB_LIB_INSTALL%\\dbfcdx.lib=26,.T.,0,0,\n%HB_LIB_INSTALL%\\dbfntx.lib=27,.T.,0,0,\n%HB_LIB_INSTALL%\\dbffpt.lib=28,.T.,0,0,\n%HB_LIB_INSTALL%\\hbsix.lib=29,.T.,0,0,\n%HB_LIB_INSTALL%\\debug.lib=30,.T.,0,0,\n%HB_LIB_INSTALL%\\common.lib=31,.T.,0,0,\n%HB_LIB_INSTALL%\\pp.lib=32,.T.,0,0,\n%C_LIB_INSTALL%\\CW32.LIB=33,.T.,0,0,\n%HB_LIB_INSTALL%\\codepage.lib=34,.T.,0,0,\n%C_LIB_INSTALL%\\IMPORT32.LIB=35,.T.,0,0,\n%C_LIB_INSTALL%\\WS2_32.LIB=36,.T.,0,0,\n%C_LIB_INSTALL%\\PSDK\\odbc32.lib=37,.T.,0,0,\n%C_LIB_INSTALL%\\PSDK\\nddeapi.lib=38,.T.,0,0,\n%C_LIB_INSTALL%\\PSDK\\iphlpapi.lib=39,.T.,0,0,\n%C_LIB_INSTALL%\\PSDK\\rassapi.lib=40,.T.,0,0,\n[/list:u:tbi95t1y]','',0,'AEA=','tbi95t1y',1,0,'',456,0,0),(11308,2610,6,215,0,'201.102.247.39',1144655308,1,0,1,1,1,0,'','OT: ¿Qué le pertenece a la empresa?. EXE, Fuentes, FiveWin.','Hola Gente.\nHe decidio renunciar a la empresa para la cual he venido desarrollando durante 2 años.\n\nHace un par de años llegamos al acuerdo de que me incluyeran en la nómina pero yo estaría en mi casa desarrollando. Con la libertad de trabajar en otros proyectos para tener más ingresos ya que la empresa no podía pagar un buen sueldo. La empresa ha crecido y paso mucho tiempo modificando unos 9 programas en operación.\nEl hecho es que en este momento mi actual jefe quiere\n\n1) No puedo ni debo desarrollar para otra empresa. Ya no.\n2) Quiere registrar los fuentes de los programas como propios\n3) Quiere que si yo renuncio le firme un contrato de confidencialidad en donde me comprometa a no usar MIS CONOCIMIENTOS ADQUIRIDOS para otra empresa (Se nota que está enojado). Por ejemplo, nosotros usamos el Código de Barra en algunos procesos. Eso es confidencial de la empresa. Nadie más lo debe tener  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \nPor ahí tenemos la base de códigos postales de Sepomex, pues nada. Fué idea suya y no quiere que yo la use para otra empresa.\n4) Quiere que le termine los pendientes antes de irme <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n5) Una copia de fivewin para continuar el desarrollo. Los últimos dos builds los he comprado yo. Asi que le he pasado el link de FiveTech para que se consiga el suyo.\n\nEste desacuerdo a raiz de que quiere que yo programe un par de programas para una empresa externa... hey!, ahora resulta que debo hacerla de outsourcing y de a gratis. No hay paga por ello.\n\nAhi nomás pa contar historias. \n\nSaludos\nFernando Leal','',0,'AEA=','38ly1824',1,0,'',215,0,0),(11309,2604,7,527,0,'88.11.4.198',1144656348,1,0,1,1,1,0,'','Gracias','Gracias nuevamente.','',0,'AEA=','2jtoddcy',1,0,'',527,0,0),(11310,2435,4,19,0,'217.153.83.2',1144659818,1,0,1,1,1,0,'','','Antonio,\nI think I found a reason.\nCan You recompile winsock.c with some changes?\n[code:wlksf6ki]\n//----------------------------------------------------------------------------//\n\nCLIPPER WSASTARTUP&#40; PARAMS &#41;\n&#123;\n   WSADATA wsa;\n\n   _retni&#40; WSAStartup&#40; 0x202, &amp;wsa &#41; &#41;;  //was 0x101\n&#125;\n[/code:wlksf6ki]\n\nWSAStartup(0x101,&amp;wsa) -&gt; call winsock.dll\nWSAStartup(0x202,&amp;wsa) -&gt; call ws2.dll\n\nPPC winsock.dll is bugly and it cannot make connection with winsock on server 2000. \nPPC ws2.dll works ok ( I call this library from eVC++ and connection works)\nRegards, \nEugeniusz\n\nPS You can make this changes in FWH too (I think)','',0,'AIA=','wlksf6ki',1,0,'',19,0,0),(11311,2611,3,6,0,'82.59.51.223',1144660295,1,0,1,1,1,1,'','TDialog ON CLICK bug','This is the sample (click has no effect):\n\n[code:29p60lrx]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    ACTIVATE DIALOG oDlg;\n             ON CLICK MSGINFO&#40; &quot;Test&quot; &#41;;\n             CENTER\n\n    RETURN NIL[/code:29p60lrx]\n\nAnd this is a possible solution:\n\n[code:29p60lrx]METHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TDialog\n\n   do case\n      case nMsg == WM_INITDIALOG\n           return &#58;&#58;Initiate&#40; nWParam, nLParam &#41;\n\n      case nMsg == WM_PAINT\n           return &#58;&#58;Display&#40;&#41;\n\n      case nMsg == WM_PRINTCLIENT\n           return &#58;&#58;PrintClient&#40; nWParam &#41;\n\n      case nMsg == WM_LBUTTONDOWN\n           if &#58;&#58;lHelpIcon\n              &#58;&#58;Help&#40;&#41;\n           endif        \n\n           return Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41; // EMG\n           \n      otherwise\n           return Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n   endcase\n\nreturn nil[/code:29p60lrx]\n\nEMG','',0,'AIA=','29p60lrx',1,0,'',6,0,0),(11312,2612,6,23,0,'62.87.126.19',1144660712,1,0,1,1,1,1,'','Error con Gets','A ver gente, una cosa que parece bastante simple, pero que no consigo hacer que funcione.\n\nREDEFINE GET oGetFin1 VAR cTeclaFin1 ID 4004 OF oDlg\nREDEFINE GET oGetFin2 VAR cTeclaFin2 ID 4005 OF oDlg\nREDEFINE GET oGetFin3 VAR cTeclaFin3 ID 4006 OF oDlg\n              \noGetFin2:bChange:={|nKey| Iif (nKey=13, oGetFin3:SetFocus(),oGetFin1:SetFocus())}\n\nEn teoria si se pulsa cualquier tecla que no sea el enter en oGetFin2, debe dar el foco a ogetfin1, no? Pues bueno, esto produce el siguiente error :\n\nApplication\n===========\n   Path and name: C:\\si\\Trabajo\\fwh\\sifac2\\fac.exe (32 bits)\n   Size: 6,020,096 bytes\n   Time from start: 0 hours 0 mins 28 secs \n   Error occurred at: 10/04/2006, 11:15:27\n   Error description: Error BASE/1075  Argument error: &gt;\n   Args:\n     [   1] = U   \n     [   2] = N   5\n\nStack Calls\n===========\n   Called from:  =&gt; GET:OVERSTRIKE(747)\n   Called from:  =&gt; TWINDOW:KEYCHAR(853)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; TPVFINALIZAR(915)\n\nUn cable, please!!!\nGracias.','',0,'','2u3i8pb8',1,0,'',23,0,0),(11313,2613,3,6,0,'82.59.51.223',1144660848,1,0,1,1,1,1,'','TDialog bKeyChar and bKeyDown bugs','This is the sample. Try to hit ESC. Is it expected?\n\n[code:2neqkdjq]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;bKeyChar = &#123; || MsgInfo&#40; &quot;bKeyChar&quot; &#41; &#125;\n    oDlg&#58;bKeyDown = &#123; || MsgInfo&#40; &quot;bKeyDown&quot; &#41; &#125;\n\n    @ 1, 1 GET cVar\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2neqkdjq]\n\nThis is a possible solution:\n\n[code:2neqkdjq]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TDialog\n\n   if nKey == VK_ESCAPE\n//      if ! Empty&#40; &#58;&#58;bKeyChar &#41;\n//         Eval&#40; &#58;&#58;bKeyChar, nKey, nFlags, Self &#41;\n//      endif   \n\n&#46;&#46;&#46;\n\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TDialog\n\n   if nKey == VK_ESCAPE\n//      if ! Empty&#40; &#58;&#58;bKeyDown &#41;\n//         Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41;\n//      endif   \n//      if ! Empty&#40; &#58;&#58;bKeyDown &#41;\n//         Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41;\n//      endif   \n\n&#46;&#46;&#46;[/code:2neqkdjq]\n\nEMG','',0,'AIA=','2neqkdjq',1,0,'',6,0,0),(11314,2614,3,6,0,'82.59.51.223',1144661172,1,0,1,1,1,1,'','TDialog:lHelpIcon bug','This is the sample (the helpicon doesn\'t go away):\n\n[code:1px6wfpa]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;lHelpIcon = &#46;F&#46;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1px6wfpa]\n\nEMG','',0,'AIA=','1px6wfpa',1,0,'',6,0,0),(11315,2435,4,2,0,'87.218.146.50',1144662189,1,0,1,1,1,1,'','','Eugeniusz,\n\nWe have changed it and there is a new build ready to be downloaded. Please try it and let us know how it goes. Thanks!','',0,'AIA=','3acbv2ym',1,0,'',2,0,0),(11316,2614,3,2,0,'87.218.146.50',1144662300,1,0,1,1,1,1,'','','Enrico,\n\nIts already fixed. We email you dialog.prg with the required changes.','',0,'AIA=','3lrn7ylb',1,0,'',2,0,0),(11317,2611,3,2,0,'87.218.146.50',1144662659,1,0,1,1,1,1,'','','Enrico,\n\nmany thanks for your fix. This code looks like a better one:\n[code:mobem6wm]\n      case nMsg == WM_LBUTTONDOWN\n           if &#58;&#58;lHelpIcon\n              &#58;&#58;Help&#40;&#41;\n           else        \n              return Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n           endif   \n[/code:mobem6wm]\nAnyhow if you test it with the dialog.prg that we have sent you (not modified yet) you will see we help a help msg that should not happen.','',0,'AIA=','mobem6wm',1,0,'',2,0,0),(11318,2613,3,2,0,'87.218.146.50',1144662837,1,0,1,1,1,1,'','','Enrico,\n\nIMO the bKeyDown and bKeyChar events should be processed even if ESC is pressed. What do you think ?','',0,'AIA=','3lp8kptc',1,0,'',2,0,0),(11319,2610,6,2,0,'87.218.146.50',1144662978,1,0,1,1,1,1,'','','Fernando,\n\nLo importante es tener un contrato por escrito en donde se especifiquen claramente todos esos puntos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','8fln1dg2',1,0,'',2,0,0),(11320,2607,6,2,0,'87.218.146.50',1144663091,1,0,1,1,1,1,'','','Fernando,\n\ngracias por compartirlo con todos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','25v4oy3w',1,0,'',2,0,0),(11321,2612,6,2,0,'87.218.146.50',1144663279,1,0,1,1,1,1,'','','Angel,\n\nla primera parte no te hace falta, porque ENTER (13) saltará al siguiente control. Para que con otra letra salte al primero, lo suyo sería ponerle una validación tipo VALID ( oGet2:oJump := oGet1, .t. )','',0,'AIA=','10hu6vv8',1,0,'',2,0,0),(11322,2611,3,6,0,'82.59.51.223',1144663284,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3c6yay8c]Enrico,\n\nmany thanks for your fix. This code looks like a better one:\n[code:3c6yay8c]\n      case nMsg == WM_LBUTTONDOWN\n           if &#58;&#58;lHelpIcon\n              &#58;&#58;Help&#40;&#41;\n           else        \n              return Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n           endif   \n[/code:3c6yay8c][/quote:3c6yay8c]\n\nYes, definitely.\n\n[quote=&quot;Antonio Linares&quot;:3c6yay8c]Anyhow if you test it with the dialog.prg that we have sent you (not modified yet) you will see we help a help msg that should not happen.[/quote:3c6yay8c]\n\nYes, confirmed. It shoud not happen.\n\nEMG','',0,'gIA=','3c6yay8c',1,0,'',6,0,0),(11323,2613,3,6,0,'82.59.51.223',1144663420,1,0,1,1,1,1,'','','Decision is yours (of course) but I think this would cause a serious backward compatibility problem.\n\nEMG','',0,'gIA=','1m3b5df9',1,0,'',6,0,0),(11324,2614,3,6,0,'82.59.51.223',1144663447,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'gIA=','27fezgwd',1,0,'',6,0,0),(11325,2560,3,131,0,'194.179.55.36',1144663593,1,0,1,1,1,0,'','','Antonio:\nLos dos mensajes me devuelven valores númericos de 7 digitos y no me dan error. \n\nSaludos,','',0,'gIA=','15i28j4v',1,0,'',131,0,0),(11326,2612,6,23,0,'62.87.126.19',1144664111,1,0,1,1,1,1,'','','Puedes ser un poco más concreto?\nNo consigo hacer que funcione. Poniendo ese valid, igual salta al tercer get.\n\nGracias.','',0,'gIA=','282q79it',1,0,'',23,0,0),(11327,2560,3,2,0,'87.218.146.50',1144664958,1,0,1,1,1,1,'','','Jose Luis,\n\nIntenta ahora esto:\n\nOleInvoke( oNotesDb, \"CreateDocument\" )','',0,'gIA=','zt14bq8o',1,0,'',2,0,0),(11328,2613,3,2,0,'87.218.146.50',1144665012,1,0,1,1,1,1,'','','Enrico,\n\nYes, you are right <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','v0g1swpp',1,0,'',2,0,0),(11329,2612,6,2,0,'87.218.146.50',1144667156,1,0,1,1,1,1,'','','Angel,\n\nEn este ejemplo verás como al pulsar enter en el segundo GET se salta al primero. Yo he usado un If( .t., ... Tu deberás poner ahi la condición que quieras para que salte al primero ó no:\n[code:2fipho6k]\n#include &quot;Fivewin&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n   local oDlg, oGet1, oGet2, oGet3\n   local cVar1 &#58;= Space&#40; 10 &#41;, cVar2 &#58;= Space&#40; 10 &#41;, cVar3 &#58;= Space&#40; 10 &#41; \n\n   DEFINE DIALOG oDlg \n\n   @ 1, 1 GET oGet1 VAR cVar1 \n   @ 2, 1 GET oGet2 VAR cVar2 VALID&#40; If&#40; &#46;t&#46;, oGet2&#58;oJump &#58;= oGet1,&#41;, &#46;t&#46; &#41;\n   @ 3, 1 GET oGet3 VAR cVar3 \n\n   ACTIVATE DIALOG oDlg; \n             CENTER \n\nRETURN NIL\n[/code:2fipho6k]','',0,'AIA=','2fipho6k',1,0,'',2,0,0),(11330,2614,3,490,0,'80.24.224.89',1144667988,1,0,1,1,1,0,'','','Antonio,\n\nTengo el mismo problema, ¿me lo podrías enviar a mi e-mail?\n\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','37jggmao',1,0,'',490,0,0),(11331,2608,6,49,0,'213.82.134.66',1144668696,1,0,1,1,1,1,'','','try to use :\n\n TEXT+CRLF+TEXT+CRLF+TEXT\n\n\nREGARDS','',0,'AIA=','3v5jgwf0',1,0,'',49,0,0),(11332,2615,3,32,0,'168.209.98.35',1144669104,1,0,1,1,1,0,'','TTabControl from source','Hi,\n\nI\'m trying to get a ttabcontrol on a child dialog of a mdi child window. I\'ve basically replaced the call to ttabs():New with TTabControl():New(), but keep getting cannot create dialog box errors. \n\nCan it be used like this? Also, is it similar to the \"old\" tab control or folder control?\n\nAlex','',0,'AIA=','ut6st3e0',1,0,'',32,0,0),(11333,2435,4,19,0,'217.153.83.2',1144670283,1,0,1,1,1,0,'','','Antonio,\n\nWSAStartup() return 0 -&gt; ok\nsocket(2,1,0) return 1 -&gt; ok\noSocket:connect(\'192.168.1.2\') hang up PPC (20 sec) and terminate with no message.\n\nIn winsock.c is #include &lt;WinSock.h&gt; maby it should be &lt;WinSock2.h&gt;\n\nBTW can You send me how can I compile winsock.c to obj \nI have several errors\n\nRegards,\nEugeniusz \nmy mail eowsiak_at_pkwsa.pl','',0,'AIA=','1r26s074',1,0,'',19,0,0),(11334,2608,6,52,0,'200.127.195.89',1144673267,1,0,1,1,1,1,'','','i try, but  not.','',0,'AIA=','1298jdx6',1,0,'',52,0,0),(11335,2542,6,104,0,'201.58.62.220',1144673275,1,0,1,1,1,0,'','','Olá Luiz,\n\nAce32.lib  - Se eu não estou enganado esta lib faz parte do ADS, se você\nnão está usando o ADS pode tirar ela ok ?\n\nOlá Silvio,\n\nMe mostre como a sua tela está aparecendo. A light bar só aparece com windows XP , com o 98 não ok ?\n\nAbraços,\n\nRossine.','',0,'AIA=','1tgq3fwq',1,0,'',104,0,0),(11336,2607,6,18,0,'200.67.188.236',1144673373,1,0,1,1,1,1,'','','Mi estimado Fer :\n\nTe puedes ahorrar muchos tiempo si revisas el código fuente de la clase TExcel :\n\n[code:3bv94n1x]\n  /*\n   * Metodos para las propiedades de la hoja\n   */\n  METHOD AddSheet&#40;&#41;         INLINE &#58;&#58;oExcel&#58;Sheets&#58;Add&#40;&#41;\n  METHOD CopySheet&#40;&#41;        INLINE &#58;&#58;oExcel&#58;Sheets&#58;Copy&#40;&#41;\n  METHOD DelSheet&#40;cSheet&#41;   INLINE &#58;&#58;oExcel&#58;Sheets&#40;cSheet&#41;&#58;Delete&#40;&#41;\n\n  // cPos -&gt; &quot;After&quot; | &quot;Before&quot;\n  METHOD MoveSheet&#40;cSheet,cPos,nSheet&#41;  INLINE &#58;&#58;oExcel&#58;Sheets&#40;cSheet&#41;&#58;Move&#40;cPos,nSheet&#41;\n*   oSheet &#58;= oExcel&#58;Sheets&#40;“oSheet1”&#41;                              //move sheet position&#46; This example will move\n*   oExcel&#58;Sheets&#40; &quot;oSheet2” &#41;&#58;Move&#40; oSheet &#41;\n\n  METHOD SetSheet&#40;cSheet&#41;               INLINE &#58;&#58;oExcel&#58;Sheets&#40;cSheet&#41;&#58;Select&#40;&#41; , &#58;&#58;oSheet &#58;= &#58;&#58;oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n  METHOD NameSheet&#40;cSheet,cName&#41;        INLINE &#58;&#58;oExcel&#58;Sheets&#40;cSheet&#41;&#58;Name &#58;= cName\n[/code:3bv94n1x]','',0,'AIA=','3bv94n1x',1,0,'',18,0,0),(11337,2616,6,196,0,'201.250.97.247',1144675234,1,0,1,1,1,0,'','SET DEFAULT TO con ADS Local','Hola a todos.\n\nComo podre hacer para que me funcione SET DEFAULT TO cuando uso el ADS local?\n\nDesde ya, muchas gracias.\n\nJorge Jaurena','',0,'AIA=','468lo6ns',1,0,'',196,0,0),(11338,2617,6,292,0,'200.82.144.216',1144678786,1,0,1,1,1,1,'','CT.LIB código COFF, Necesito para FW','Colegas\nNecesito linkar CT.LIB en mi aplicacion\n\nError: \'CT.LIB\' contains invalid OMF record, type 0x21 (possibly COFF\n\nNecesito convertirla.','',0,'AIA=','6d3sa2nj',1,0,'',292,0,0),(11339,2603,6,255,0,'200.67.175.250',1144678818,1,0,1,1,1,1,'','','ARVISNET :\n\nNecesitas poner el control como TVMenu\n\n\nANTONIO:\n\nvTaskBar es un control de CanalFive con el que se\npueden crear menús espectaculares.\n\nSaludos','',0,'AIA=','fotjon9g',1,0,'',255,0,0),(11340,2605,6,292,0,'200.82.144.216',1144678977,1,0,1,1,1,1,'','Aqui tienes un Ejemplo','LOCAL oRs := CREATEOBJECT( \"ADODB.Recordset\" )\n    LOCAL cCon\n\n    DEFAULT cSql    :=\"SELECT * FROM DPINV\",;\n            cFileXml:=\"DPINV.XML\",;\n            lOpen   :=.T.\n\n    FERASE(cFileXml)\n\n    cCon:=\"Driver={MySQL ODBC 3.51 Driver}; Server=\"+oDp:cIp+\"; Port=3306; Database=\"+oDp:cDsnData+\"; Uid=\"+oDp:cLogin+\"; Pwd=\"+oDp:cPass+\";\"\n\n    oRs:Open( cSql ,;\n              cCon ,;\n              adOpenForwardOnly, adLockReadOnly )\n\n    oRs:Save( cFileXml , adPersistXML )\n\n    oRs:Close()\n\n    IF lOpen\n      ShellExecute( 0, \"open\", cFileXml)\n    ENDIF','',0,'AIA=','38jslep0',1,0,'',292,0,0),(11341,2544,20,29,0,'81.174.24.57',1144679385,1,0,1,1,1,0,'','','Piscitelli,\npuoi utilizzare l\'esempio di Emg.\nL\'ho realizzato io e funziona egregiamente.\n\nCiao\n\nMarco','',0,'AIA=','239kup9a',1,0,'',29,0,0),(11342,2610,6,255,0,'200.67.175.250',1144679651,1,0,1,1,1,1,'','','Desde mi punto de vista, creo que a la empresa\nle pertenecen tanto los fuentes como los binarios (EXES,DLL,etc)\nTodo esto debido a que te pagaban por desarrollarlo, ahora bien\nal abandonar la empresa, ellos conservarán todo lo mencionado\ncon anterioridad pero bajo ninguna circunstancia pueden obli-\ngarte a NO desarrollar para otra empresa con los conocimientos\nque hayas adquirido a lo largo de tu relación laboral con ellos.\nEso se me hace un poco tonto. Ahora bien, con respecto al \ncontrato de confidencialidad, creo que es justo, tu obtuviste\nde ellos cierta información que para ellos es confidencial y que\ntal vez piensen que vas a sacar provecho de ella (la base de datos)\npor ello quieren esa exclusividad, YO si se las daria.\n\nConclusión: (y que conste que es bajo mi punto de vista)\n\n1.- Binarios y fuentes pertenecen a la empresa\n2.- Tu podrás desarrollar para quien tu quieras y como quieras\n3.- Debes darles la confianza de que no traficarás con su información\n4.- Si tu compraste el FiveWin, ese te pertenece a ti, ellos deberán\n     adquirir su propia licencia.\n\ny ya para teminar, QUIERO CONOCER A TUS MODELOS \n(JEJE TU SABES DE QUE HABLO) !!\n\nSaludos y espero que te haya servido de algo.','',0,'AIA=','39fk8oi0',1,0,'',255,0,0),(11343,2606,6,255,0,'200.67.175.250',1144679779,1,0,1,1,1,1,'','','En Efecto !!! es por la variable llamada VAR.\nPonle otro nombre y funcionará.\n\nSaludos','',0,'AIA=','3lz18l3h',1,0,'',255,0,0),(11344,2518,6,292,0,'200.82.144.216',1144679981,1,0,1,1,1,1,'','','Econtradas\nEstan disponibles en CT.LIB','',0,'AIA=','2r0p5qto',1,0,'',292,0,0),(11345,2618,7,488,0,'217.127.135.134',1144682409,1,0,1,1,1,0,'','Curso de Iniciacion de FWPPC en Mayo-2006','Hola Amigos.\n\nSi quieres aprender a desarrollar para Pocket-PC\nEstamos organizando unos cursos de FWPPC.\n\nEl producto  Fivewin for Pocket-Pc   permite a todo desarrollador del mundo xbase (clipper, Fivewin, Foxpro, Alasaka, etc), desarrolar rapidamente aplicaciones para Pocket-PC (tanto si usa Windows CE como Windows Mobile).\nEsta es una excelente oportunidad para entrar en este mundillo de las PDAs y abrir nuestros horizontes comerciales en software.\n\nAsi como el resto de cursillos de Fivewin que impartimos son ya unos veteranos (llevamos ya 8 años impartiendolos), este año estamos recibiendo solicitudes para impartir uno de Fivewin for Pocket Pc (FWPPC), y antes de convocarlo definitivamente queremos conocer el interes de la comunidad, asi que os solicitamos (a quien este interesado), que nos indiquen su grado de interes. Ya que en funcion del interes que veamos convocaremos ó no estos cursos.\nEste curso de realizarse seria de dia y medio. (ó bien en fechas 17 y 18 de Mayo ó bien  27 y 28 de Mayo, y su coste de 400 euros + IVA).\nEl temario del curso lo teneis en:\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/TEMARIO_%20CURSO_DE_%20FWPPC.pdf\">http://geroa-informatica.com/fivewin/TE ... 0FWPPC.pdf</a><!-- m -->\n\ny el resto de cursos de Fw estan anunciados en:\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://www.geroa-informatica.com/fivewi ... o-2006.htm</a><!-- m -->\n\nPerdonad las molestias a todos.\nSaludos','',0,'AIA=','2qah6ezb',1,0,'',488,0,0),(11346,2619,3,488,0,'217.127.135.134',1144682472,1,0,1,1,1,0,'','Cursos de Programacion para FWPPC y avanzados de Fivewin','Hola Amigos.\n\nSi quieres aprender a desarrollar para Pocket-PC\nEstamos organizando unos cursos de FWPPC.\n\nEl producto  Fivewin for Pocket-Pc   permite a todo desarrollador del mundo xbase (clipper, Fivewin, Foxpro, Alasaka, etc), desarrolar rapidamente aplicaciones para Pocket-PC (tanto si usa Windows CE como Windows Mobile).\nEsta es una excelente oportunidad para entrar en este mundillo de las PDAs y abrir nuestros horizontes comerciales en software.\n\nAsi como el resto de cursillos de Fivewin que impartimos son ya unos veteranos (llevamos ya 8 años impartiendolos), este año estamos recibiendo solicitudes para impartir uno de Fivewin for Pocket Pc (FWPPC), y antes de convocarlo definitivamente queremos conocer el interes de la comunidad, asi que os solicitamos (a quien este interesado), que nos indiquen su grado de interes. Ya que en funcion del interes que veamos convocaremos ó no estos cursos.\nEste curso de realizarse seria de dia y medio. (ó bien en fechas 17 y 18 de Mayo ó bien  27 y 28 de Mayo, y su coste de 400 euros + IVA).\nEl temario del curso lo teneis en:\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/TEMARIO_%20CURSO_DE_%20FWPPC.pdf\">http://geroa-informatica.com/fivewin/TE ... 0FWPPC.pdf</a><!-- m -->\n\ny el resto de cursos de Fw estan anunciados en:\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://www.geroa-informatica.com/fivewi ... o-2006.htm</a><!-- m -->\n\nPerdonad las molestias a todos.\nSaludos','',0,'AIA=','equkvnq7',1,0,'',488,0,0),(11347,2575,2,348,0,'201.230.65.83',1144682595,1,0,1,1,1,0,'','','Gracias Antonio\n\n[quote=&quot;Antonio Linares&quot;:224pk6i2]Lubin,\n\nDe la documentación de FiveWin:\n\nArg()      To recover on-line given parameters of commands \n\nSyntax:  Arg(&lt;nCmdLineOrder&gt; )  --&gt; cExeCommandLineParam  \n \nParameters: \n &lt;nCmdLineOrder&gt; Number of parameter that we want to recover  \n\nReturns: \n &lt;cExeCmdLParam&gt; Recovered parameter  \n\nSample: \nSAMPLES\\FIVEDIT.PRG  \nSAMPLES\\TESTARGS.PRG  \n \nSource Code: \nSOURCE\\FUNCTION\\ARG.C[/quote:224pk6i2]','',0,'gA==','224pk6i2',1,0,'',348,0,0),(11348,1945,7,456,0,'217.127.39.57',1144682712,1,0,1,1,1,1,'','','Hasta ahora no habia notado el bajo rendimiento al trabajar sobre SD, pero con procesos masivos (importar los ficheros maestros, precios, etc) la verdad es el rendimiento es muy pobre. Nada que ver cuando los datos estan en ROM que es rapido. \nClaro q un HardReset, o quedarse sin bateria implica perdida de datos. \nNo tengo claro donde dejar los DBF, aunque creo que sera mejor lento pero seguro.','',0,'gA==','1jh2aug4',1,0,'',456,0,0),(11349,2620,3,264,0,'64.116.212.96',1144683109,1,0,1,1,1,0,'','WindowsXP.Manifest en RC','Tengo un problema a la hora de querer modificar un RC con WorkShop.\nPara compilar la RC a DLL de 32bits, no falla, pero al intentar modificar la RC con el WS, me dice \"cannot open file WindowsXP.Manifest\", el archivo esta en la misma carpeta que mi RC.\nAlguna idea ?','',0,'gA==','3idrnvnb',1,0,'',264,0,0),(11350,2621,3,264,0,'64.116.212.96',1144683388,1,0,1,1,1,0,'','TImage:Hbmppal  error','Quiero imprimir una imagen o mostarla en pantalla ( centrada en lo posible ) pero lo unico que obtengo en ese error en impresion y en pantalla no muestra nada ( esta pegada al EXE ).\nRevise los ejemplos pero no logro imprimir.\nAgradecido de antemano.','',0,'gA==','3l6devji',1,0,'',264,0,0),(11351,2582,6,492,0,'201.154.128.197',1144685262,1,0,1,1,1,1,'','','Hola Paco\n\nGracias por contestar, fijate que cambie como lo indicas y me sigue haciendo lo mismo, anexo un poco de codigo :\n\nEste es el codigo \"Original\", normalmente asi declaro todos mis Browses :\n\nREDEFINE LISTBOX lbCapDcs ;\n    FIELDS DtoC( CAPDOCS-&gt;CFEC ), ;\n    Str( CAPDOCS-&gt;CAGT, 3 ), ;\n    CAPDOCS-&gt;CFOL, ;\n    TransForm( CAPDOCS-&gt;CIMP, \"999,999.99\" ), ;\n    TransForm( CAPDOCS-&gt;CDSC1, \"99.99\" ), ;\n    TransForm( CAPDOCS-&gt;CDSC2, \"99.99\" ), ;\n    TransForm( CAPDOCS-&gt;CDSC3, \"99.99\" ), ;\n    TransForm( CAPDOCS-&gt;CDSC4, \"99.99\" ), ;\n    TransForm( CAPDOCS-&gt;CDSC5, \"99.99\" ), ;\n    Str( CAPDOCS-&gt;CDYS, 2 ), ;\n    TransForm( CAPDOCS-&gt;CTOTAL, \"999,999.99\" ) ;\n    HEAD \"FECHA\",\"AGT\",\"FOLIO\",\"IMPORTE\",\"DCT1\", ;\n    \"DCT2\",\"DCT3\",\"DCT4\",\"DCT5\",\"DIAS\",\"TOTAL\" ;\n    FIELDSIZES 85,30,90,100,60,60,60,60,60,60,100 ;\n    ALIAS \"CAPDOCS\" ;\n    FONT oFntBrw  ;\n    ID 103 ;\n    OF oFldOprs:aDialogs[1]\n\n\n    lbCapDcs:nLineStyle  := 2\n    lbCapDcs:nLineHeight := 18\n    lbCapDcs:lDrawFocusRect := .F.\n    lbCapDcs:nClrLine    := CLR_WHITE\n    lbCapDcs:bKeyDown  := { | nKey | CAPDOCSKEY( nKey ) }\n    lbCapDcs:AJUSTIFY  := { .F.,.T.,.F.,.T.,.T.,.T.,.T.,.T.,.T.,.T. }\n    lbCapDcs:nClrPane  := { || IIF( CAPDOCS-&gt;(OrdKeyNo() )%2 = 0, CLR_A, CLR_B ) }\n\n\nDespues, le quite la declaracion del font : FONT oFntBrw y le agregue lo que indicas :\n    lbCapDcs:SetFont( oFntBrw )\n    lbCapDcs:bFont := { |nRow,nCol,nStyleLine| IF( nStyleLine == 2,; oFntBrw:hFont, 0 ) }\n\nPero, desafortunadamente sigue mostrando una font mas pequeña al editar.  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nGracias y Saludos','',0,'','199zvsku',1,0,'',492,0,0),(11352,1945,7,262,0,'87.235.159.190',1144686091,1,0,1,1,1,1,'','','Biel , engaña al usuario ...\nCuando tengas que hacer procesos largos y lentos , crea en rom un directorio temporal , copia la dbf a este directorio ( eso es rapido ) , ejecuta el proceso con las bases de datos en rom , y luego cuando termine el proceso , copia la dbf resultante a la sd de nuevo .\nSaludso.','',0,'','fsw3kmod',1,0,'',262,0,0),(11353,2435,4,2,0,'87.218.146.50',1144686116,1,0,1,1,1,1,'','','Eugeniusz,\n\nWe are uploading a new build. You may download it in a few minutes. Thanks for your feedback.\n\nYou may compile a C module doing this:\n\ntools\\clp2harb module.c temp\\module.c\necho -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -TP -Ic:\\harbour_ce\\include &gt; tmp\necho -Ic:\\vce\\include\\arm -I.\\include &gt;&gt; tmp\nc:\\vce\\bin\\clarm @tmp -Fobjce\\module.obj temp\\module.c','',0,'','fn54sdxl',1,0,'',2,0,0),(11354,2617,6,2,0,'87.218.146.50',1144686576,1,0,1,1,1,1,'','','Juan,\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b847c852/ct.zip.html\">http://hyperupload.com/download/01b847c852/ct.zip.html</a><!-- m -->','',0,'','182fbh31',1,0,'',2,0,0),(11355,2621,3,2,0,'87.218.146.50',1144686668,1,0,1,1,1,1,'','','Ya no se usa hBmpPal. Ahora se usa hBitmap (por razones de 32 bits).','',0,'','22y6opp1',1,0,'',2,0,0),(11356,2620,3,264,0,'64.116.212.96',1144686704,1,0,1,1,1,0,'','gracias, ya lo resolvi','en el rc2dll32 cree dos compilaciones la del RC principal y un RC en el cual solo tiene la linea del XP.manifiest.\ny \"santo remedio\" !!\nsaludos\n\nc:\\bcc55\\bin\\bcc32 -c screen32.c\nc:\\bcc55\\bin\\brc32 -r %1.rc\nc:\\bcc55\\bin\\brc32 -r TemaXP.rc\nc:\\bcc55\\bin\\ilink32 /Tpd c:\\bcc55\\lib\\c0d32.obj screen32.obj, %1.dll,,c:\\bc55\\lib\\cw32.lib c:\\bcc55\\lib\\import32.lib,, %1.res TemaXp.res\ndel *.i*\ndel *.map\ndel *.obj\ndel *.res\ndel *.tds\necho done!','',0,'','1f4o1hpc',1,0,'',264,0,0),(11357,2544,20,106,0,'85.34.123.169',1144686746,1,0,0,1,1,0,'','','Piscicelli: hai provato con la class qftp?\n\n\nPedro','',0,'','f8aoylil',1,0,'',106,0,0),(11358,2614,3,2,0,'87.218.146.50',1144686787,1,0,1,1,1,1,'','','Joaquín,\n\nEnviado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','1cup0sdn',1,0,'',2,0,0),(11359,2619,3,2,0,'87.218.146.50',1144686850,1,0,1,1,1,1,'','','Nicolas,\n\nPlease post in English here, thanks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2uuj49me',1,0,'',2,0,0),(11360,2604,7,123,0,'83.39.143.140',1144687362,1,0,1,1,1,0,'','','mjcc,\n\nAdemás de las dos resoluciones que te ha indicado José Luis, he visto que la Dell Axim X51 tiene resolución VGA: 640x480 (o más bien a la inversa).\n\nSaludos,\nJosé Luis Capel','',0,'','i0yy4utu',1,0,'',123,0,0),(11361,2542,6,49,0,'213.82.134.66',1144687773,1,0,1,1,1,1,'','','dear Rossine,\n\nI use windows XP PRO SP2\nthe listbox  have the headers and the footers but there is  not the light bar as windows xp ( folder, button ecc) \nPerhaps I have an old versione of Your wbrowse ?\n\nRegards\nsilvio','',0,'','3qp5q6ro',1,0,'',49,0,0),(11362,2621,3,264,0,'64.116.212.96',1144688489,1,0,1,1,1,0,'','','Sip, ya me entere. Pero no logro dar en el clavo, pues este es mi codigo para desplegar una imagen centrada en mi ventana principal\n\noWnd:bPainted = { | hDC | PalBmpDraw( hDC,;\n                                             (oWnd:nTop()-50)+((oWnd:nHeight()-nBmpHeight( oBmp:hBitmap ))/2),;\n                                              oWnd:nLeft()+((oWnd:nWidth()-nBmpWidth( oBmp:hBitmap ))/2),;\n                                              oBmp:hBitmap ) }\n\nACTIVATE WINDOW oWnd ;\n         ON INIT ( If( controlar, control( oWnd, intervalo ), NIL ),;\n                   oWndPrincipal := oWnd )  ;\n         MAXIMIZED\n\nPero no muestra nada en la pantalla.\nEl EXE tiene el BMP que quiero mostrar ( incrustado, lo revisé )\nDefiní el objeto antes de iniciar la ventana asi :\n\nDEFINE BITMAP oBmp RESOURCE \"RANDOM\"\n\nNo se en que fallo.\nDe todas formas ando buscando.\nGracias de antemano.','',0,'','228gvt4a',1,0,'',264,0,0),(11363,2542,6,104,0,'201.58.62.220',1144692582,1,0,1,1,1,0,'','','Olá Silvio,\n\n&gt;I use windows XP PRO SP2 \n&gt;the listbox have the headers and the footers but there is not the light &gt;bar as windows xp ( folder, button ecc)\n\nTeria como você me mostrar como a sua tela está aparecendo ??\nIt would have as you show me like to your screen is appearing ?\n\nAqui está funcionando normalmente.\n\n&gt; Perhaps I have an old versione of Your wbrowse ?\n\nNos tópicos acima tem o link para download.\n\nAbraços,\n\nRossine.','',0,'','33aq9tcr',1,0,'',104,0,0),(11364,2606,6,141,0,'200.88.94.231',1144693483,1,0,1,1,1,1,'','','Gracisa a todos,\n\nEra eso.  Lo arregle de otro modo.\n\nNo se adonde podría encontrar entonces una lista de variables \"reservadas\" que no pueda utilizar.  \n\n¿Alguien se anima a escribirlas?\n\nABrazos,','',0,'','1t0u2omk',1,0,'',141,0,0),(11365,2606,6,255,0,'200.67.175.250',1144694554,1,0,1,1,1,1,'','','No es tan complicado, solo intenta evitar poner nombres\nde variables/funciones que sean idénticos a algún tipo\nde dato, declaración, constante, función etc que ya exista\nen HARBOUR/XHARBOUR/C3/CLIPPER o lo que estés usando.\n\nSaludos','',0,'','2dtrbku5',1,0,'',255,0,0),(11366,2622,6,255,0,'200.67.175.250',1144694739,1,0,1,1,1,1,'','OT: Oferta de trabajo','Que tal amigos, en la empresa donde estoy laborando actualmente\nnecesitamos a alguien que tenga conocimientos de ASTERISK.\n\nPor favor, si alguien le interesa envieme su CV a\nsalinasj @ geainternacional.com\n\nEs para MEXICO . D.F.\n\nSaludos','',0,'','1i43hzf0',1,0,'',255,0,0),(11367,2542,6,104,0,'201.58.62.220',1144695295,1,0,1,1,1,0,'','','Olá Silvio,\n\nVoce linkou o arquivo MANIFEST.RC ?\n\nNele eu coloco o tema manifest do XP.\n\nTente isto ok ?\n\nAbraços,\n\nRossine.','',0,'','231lvrpz',1,0,'',104,0,0),(11368,2582,6,228,0,'201.245.222.85',1144695702,1,0,1,1,1,1,'','Amigo como haces ese folder?','Raymundo como estas que pena meterme en tu conversión, pero seria posible que me indicaras como haces el folder?, me parace genial el diseño.  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','1o7k840t',1,0,'',228,0,0),(11369,2621,3,2,0,'87.218.146.50',1144696073,1,0,1,1,1,1,'','','Es una ventana MDI ?','',0,'','2h5ekt25',1,0,'',2,0,0),(11370,2317,6,228,0,'201.245.222.85',1144696157,1,0,1,1,1,1,'','Ejemplo','Buenas tardes a todos alguien me puede indicar como funciona la clase texcels o si tienen un pequeño ejemplo de como funciona se los agradeceria de verdad.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'','2rxv054m',1,0,'',228,0,0),(11371,2621,3,264,0,'64.116.212.96',1144696346,1,0,1,1,1,0,'','','No es solo mi ventana principal, desde alli solo se gatillan llamadas a dialogs.\nPor eso me parece que es raro el comportamiento.','',0,'','1ee2zmpf',1,0,'',264,0,0),(11372,2317,6,18,0,'200.67.188.236',1144698185,1,0,1,1,1,1,'','','Aqui puedes encontrar mucho ejemplos:\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/download/excel/\">http://vikthor.com.mx/download/excel/</a><!-- m -->','',0,'','1swx7h79',1,0,'',18,0,0),(11373,2610,6,18,0,'200.67.188.236',1144698309,1,0,1,1,1,1,'','','Me solidarizo con la petición de Juan Carlos .... ¡¡¡¡ presenta a las modelos !!!!','',0,'','u8dknarg',1,0,'',18,0,0),(11374,2582,6,39,0,'216.155.88.167',1144701097,1,0,1,1,1,0,'','','Hola,\n\nDisculpen por meterme, pero una pregunta para poder ayudar, ¿ Como estas editando el browse, con el bloque bedit y una funcion tuya o con los bloques por defecto de wbrowse ??.\n\nSi estas editando con los bloques por defecto del wbrowse debes ir al metodo leditcol y ahí empezar a picar, ya que si te fijas para la edicion el wbrowse crea un dialogo con un get, al que tendrias que agregarle el font que deseas.\n\n\nAtte,\nLautaro','',0,'','2b7uixwf',1,0,'',39,0,0),(11375,2582,6,492,0,'201.154.128.197',1144702059,1,0,1,1,1,1,'','','Que tal Leandro, realmente todos son controles \"normales\" y nativos de FWH, el StarDock es el que se encarga de darle la \"manita de gato\" a las pantallas.\n\nHola Lautaro, en efecto, uso una funcion que se llama desde el metodo :\nlbCapDcs:bKeyDown := { | nKey | [color=red:3psrl3s7]CAPDOCSKEY[/color:3psrl3s7]( nKey ) }\ny despues aplico el lEditCol por cada celda :\n\nxVal := IIF( Empty( aDetPay[pDP,nQ] ), 0, ChgStr2Num( aDetPay[pDP,nQ] ) )\nIF lbDetPay:lEditCol( nQ, @xVal, aPicArr[nQ], , CLR_YELLOW, CLR_CYAN )\n    aDetPay[pDP,nQ] := TransForm( xVal, \"999,999.99\" )\nENDIF\n\n\nSaludos y Gracias','',0,'Ag==','3psrl3s7',1,0,'',492,0,0),(11376,2511,2,78,0,'201.230.73.230',1144702436,1,0,1,1,1,0,'','','Hola,,, talvez asi?\nINDEX FILE PFMesFac   ; \n          TAG    MesFactu  ; \n          ON     DTOS(fechafactu )                    ; \n          EVAL   ( lPrimerVez := TRUE                      , ; \n                    PorcentInd( oDbfFactP, aoMeter[ 5 ] ) )  ; \n          OF     oDbfFactP \n...\n...\n..\nSETSCOPE(cFecha1,cFecha2)\nbrowse()..............//   aqui solo te aparecen las facturas que estan entre las fechas','',0,'','15sd2n1r',1,0,'',78,0,0),(11377,2511,2,78,0,'201.230.73.230',1144702456,1,0,1,1,1,0,'','','Hola,,, talvez asi?\nINDEX FILE PFMesFac   ; \n          TAG    MesFactu  ; \n          ON     DTOS(fechafactu )                    ; \n          EVAL   ( lPrimerVez := TRUE                      , ; \n                    PorcentInd( oDbfFactP, aoMeter[ 5 ] ) )  ; \n          OF     oDbfFactP \n...\n...\n..\nSETSCOPE(cFecha1,cFecha2)\nbrowse()..............//   aqui solo te aparecen las facturas que estan entre las fechas cFecha1  y cFecha2\n\nSalu2','',0,'','3t16dfl3',1,0,'',78,0,0),(11378,2511,2,78,0,'201.230.73.230',1144702632,1,0,1,1,1,0,'','','Ups,,, olvide esto:\n\nFunction SetScope(vCodi,vCodi2)\nDEFAULT vCodi := Nil\nDEFAULT vCodi2 := Nil\nORDSCOPE(0,Nil)    // SET SCOPE TO\nORDSCOPE(1,Nil)\nDo Case\n  Case vCodi = Nil .AND. vCodi2 = Nil\n    Return nil\n  Case vCodi2 = Nil .AND. vCodi &lt;&gt; Nil\n    ORDSCOPE(0,vCodi)   // SET SCOPETOP TO vCodi\n  Case vCodi = Nil .AND. vCodi2 &lt;&gt; Nil\n    ORDSCOPE(1,vCodi2)   //SET SCOPEBOTTOM TO vCodi2\n  Other\n    ORDSCOPE(0,vCodi)   //SET SCOPE TO vCodi,vCodi2\n    ORDSCOPE(1,vCodi2)\nEndCase\nDbGoTop()\nReturn nil\n//------------------------------------------------','',0,'','3s2s456n',1,0,'',78,0,0),(11379,2623,7,527,0,'83.35.173.166',1144703043,1,0,1,1,1,0,'','BMP DE FONDO','Como puedo colocar un BMP de fondo para mi aplicacion de Pokect\nExiste algun tutor para ver el ejemplo\ngracias a todos por vuestra ayuda.','',0,'','1de0m00x',1,0,'',527,0,0),(11380,2610,6,492,0,'201.154.128.197',1144703590,1,0,1,1,1,1,'','','Hola\n\nEstoy de acuerdo con los puntos 1,2,3,4 expuestos por JC.\n\nY acerca de lo otro, me apunto con mis paisanas !!!  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'','bavxrhxp',1,0,'',492,0,0),(11381,2435,4,19,0,'83.18.178.178',1144704090,1,0,1,1,1,0,'','','Antonio,\nWe are a little piece closer to final.\nThe next stop is [code:2ucuufdo]\n  &#58;&#58;cIPAddr  = GetHostByName&#40; GetHostName&#40;&#41; &#41;\n[/code:2ucuufdo]\n\nWhen I make this    ::cIPAddr := \'192.168.1.146\'\nthe program works\n\nBTW to compile winsock.c I need fwce.h\n\nRegards Eugeniusz\n\nPS My probe is doing on pair PC (WinXP) and iPaq hx2790','',0,'AIA=','2ucuufdo',1,0,'',19,0,0),(11382,2617,6,292,0,'200.82.144.216',1144704281,1,0,1,1,1,1,'','','Antonio,\nUn millon de gracias, prefiero la caña de pezcar.\nPor favor si puedes indicame los pasos para convertirla.','',0,'AIA=','1keip20n',1,0,'',292,0,0),(11383,2624,6,292,0,'200.82.144.216',1144704943,1,0,1,1,1,1,'','CT.NG o Documentacion de ct.lib','Colegas,\nnecesito información de CT.LIB\n\nAlgunas funciones que usaba en DOS parece no ser soportadas\n\nREQUEST COM_READ,COM_NUM,COM_OPEN,COM_INIT,COM_COUNT,COM_CLOSE,COM_FLUSH,ISBIT,COM_SMODE,COM_SEND,COM_DTR,COM_MCR,COM_CTS','',0,'AIA=','j66esurq',1,0,'',292,0,0),(11384,2625,3,497,0,'212.127.159.218',1144705318,1,0,1,0,1,0,'','Combobox problem','I have a combobox working OK\n\nThe next one in a different Dialog will not show its Array after clicking on it.\n\nFirst example:\nFunction Minpunten(cAlias, oDlwBew )\nLocal oDlp,  oRadmenu, oCbx\nLocal MyArrMinJn    := {\"J\",\"N\"}\nLocal oMyComb\n\nDEFINE DIALOG oDlp RESOURCE \"Minpunten\"\n\n REDEFINE  COMBOBOX oMyComb  VAR cMinjn  Items MyArrMinJn  ID 101 OF oDlp\n\nACTIVATE DIALOG oDlp\n\n\nSecond example:\nFunction AnderDomein( cDomein )\nLocal oDlg, oRadmenu, oCbx\nLocal MyArrDom := {\"A\",\"C\"}\nLocal oMyComb\nDEFINE DIALOG oDlg RESOURCE \"Domeinen\"\n\n REDEFINE  COMBOBOX oMyComb  VAR cDomeinX  Items MyArrDom  ID 104 OF oDlg\n\nACTIVATE DIALOG oDlg\n\nI don\'t see the difference, but the second one will not show its Array and consequently I cannot select an Item.\n\nAny suggestion?\n\nThanks,\n\nJules de Pierre','',0,'AIA=','16pv5msm',1,0,'',497,0,0),(11385,2626,6,255,0,'200.67.175.250',1144707822,1,0,1,1,1,1,'','OT:  pagina fuera de linea','Por algunos dias mi sitio web estará fuera de línea.\nEstamos cambiando de servidor / hosting\n\nSaludos\n\n----------------------------------------------------------\nOFF LINE: <!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n----------------------------------------------------------','',0,'AIA=','57rhplib',1,0,'',255,0,0),(11386,2627,3,255,0,'200.67.175.250',1144707883,1,0,1,1,1,1,'','OT: Homepage OFF LINE','For a couple days, my homepage will be off line\nbecause we\'re changing server/hosting.\n\n----------------------------------------------------------\nOFF LINE: <!-- w --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">www.esm.com.mx/fivewin/index.htm</a><!-- w -->\n----------------------------------------------------------\n\nRegards','',0,'AIA=','3bxcu4rd',1,0,'',255,0,0),(11387,2605,6,203,0,'200.107.2.86',1144714463,1,0,1,1,1,1,'','','Muchas Gracias Juan\n\nVoy a probar\n\n\n\nSaludos\n\nOscar','',0,'AIA=','bsmbkrk9',1,0,'',203,0,0),(11388,2628,6,295,0,'201.222.144.127',1144721658,1,0,1,1,1,1,'','como dar apariencia XP a mi aplicacion?','Amigos,\ncomo puedo darle apariencia XP a mi aplicación?\nsegún vi en los samples de FWH ahi dice que debo agregar la siguiente linea a mi RC: 1 24 \"WindowsXP.Manifest\",, pero como lo hago? \nestoy usando WorkShop  para mantener mis recursos\n\n\nde antemano muchas gracias por sus respuestas\n\nSALUDOS','',0,'AIA=','zdhfocex',1,0,'',295,0,0),(11389,2605,6,54,0,'201.152.195.59',1144724852,1,0,1,1,1,1,'','Re: Aqui tienes un Ejemplo','[quote=&quot;jnavas&quot;:n1y5bil8]LOCAL oRs := CREATEOBJECT( \"ADODB.Recordset\" )\n    LOCAL cCon\n\n    DEFAULT cSql    :=\"SELECT * FROM DPINV\",;\n            cFileXml:=\"DPINV.XML\",;\n            lOpen   :=.T.\n\n    FERASE(cFileXml)\n\n    cCon:=\"Driver={MySQL ODBC 3.51 Driver}; Server=\"+oDp:cIp+\"; Port=3306; Database=\"+oDp:cDsnData+\"; Uid=\"+oDp:cLogin+\"; Pwd=\"+oDp:cPass+\";\"\n\n    oRs:Open( cSql ,;\n              cCon ,;\n              adOpenForwardOnly, adLockReadOnly )\n\n    oRs:Save( cFileXml , adPersistXML )\n\n    oRs:Close()\n\n    IF lOpen\n      ShellExecute( 0, \"open\", cFileXml)\n    ENDIF[/quote:n1y5bil8]\n\nJuan,\n\ny si fuera por ejemplo un documento de facturación, sin ADO, por ejemplo DBF?\n\nAlgun ejemplillo que tengas a la mano?\n\nSaludos\n\nGracias de antemano','',0,'gA==','n1y5bil8',1,0,'',54,0,0),(11390,2628,6,54,0,'201.152.195.59',1144724995,1,0,1,1,1,1,'','Re: como dar apariencia XP a mi aplicacion?','[quote=&quot;lafug&quot;:3fxjmf9z]Amigos,\ncomo puedo darle apariencia XP a mi aplicación?\nsegún vi en los samples de FWH ahi dice que debo agregar la siguiente linea a mi RC: 1 24 \"WindowsXP.Manifest\",, pero como lo hago? \nestoy usando WorkShop  para mantener mis recursos\n\n\nde antemano muchas gracias por sus respuestas\n\nSALUDOS[/quote:3fxjmf9z]\n\nAsi es LAFUG\n\nCon ese archivo se consiguen la apariencia WinXP, solo sugeriría que le renombraras el archivo como themed.man, pues tuve problemas con el nombre del archivo y por otro lado, el archivo Manifest en la misma carpeta del recurso RC/RES\n\nSaludos','',0,'gA==','3fxjmf9z',1,0,'',54,0,0),(11391,2628,6,492,0,'201.154.128.197',1144725946,1,0,1,1,1,1,'','','Asi es LAFUG, es necesario incluir esa linea en tu archivo RC.\n\nYo, en mi caso hice lo siguiente :\n\nAbri mis DLL y las salve como RC (desde el propio WS), despues, fui \"ajustando\" dialogo por dialogo poniendoles el STYLE 0x4L a cada uno,\ny en su caso, quitarles el atributo : LOADONCALL, MOVEABLE, DISCARDABLE, y asignandoles el font TAHOMA ( al parecer, con otros fonts no te muestra correctamente algunos caracteres, como los puntos en algun GET que tenga mascara de password )\ndespues cambie los controles FOLDER a SysTabControl32 ( que uso varios  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> ) y fui eliminando los controles Borland.\n\nDespues genere un archivo llamado : APPTHM.RC que contiene la sola instruccion : 1 24 \"winxp.man\" para evitar ponerselo a mis otros RC.\n\nAl usar el gestor de aplicaciones, tienes que \"linkar\" tus archivos RC resultante y el archivo mencionado ( APPTHM.RC ) y listo !!!\n\nEn lo particular me funciona bastante bien  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEspero te sirva \n\nSaludos','',0,'gA==','2hgzm09x',1,0,'',492,0,0),(11392,2628,6,295,0,'201.222.144.127',1144726067,1,0,1,1,1,1,'','','AMIGOS \nGRACIAS POR SUS RESPUESTAS  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , PERO COMO COLOCO ESTO EN MI RC?\nPORQUE NO VEO POR DONDE ADICIONARLO EN WORKSHOP\n\nSALUDOS','',0,'gA==','1l2gzu71',1,0,'',295,0,0),(11393,2628,6,492,0,'201.154.128.197',1144726650,1,0,1,1,1,1,'','','Hola, es tan solo una linea comun de texto \n\nno es ningun control u objeto.\n\n/************************\n\namigos.rc\n\n\n************************/\n\n1 24 \"winxp.man\"\n\ny listo !!!','',0,'gA==','1mjfhjeg',1,0,'',492,0,0),(11394,2628,6,492,0,'201.154.128.197',1144726849,1,0,1,1,1,1,'','','Se me paso este comentario :\n\nYa que lo convertiste a RC, lo puedes editar con cualquier editor de texto que manejes !!!\n\nlo puedes manejar cual si fuera un autoexec.bat\n\nsi gustas, te puedo enviar alguno mio, para que le heches un ojo....\n\n\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','lks6e9r3',1,0,'',492,0,0),(11395,2628,6,295,0,'201.222.144.127',1144727212,1,0,1,1,1,1,'','','Raimundo,\n\nabrí mi RC con el block de notas y agregué asi\n\n/****************************************************************************\n\n\nsofnut.rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n\n1 24 \"winxp.man\" \n\n\n#define IDC_RTEXT31	162\n#define IDC_RTEXT32	163\n#define IDC_RTEXT33	164\n\npero al compilar me da el error:\n\nError SOFNUTR.rc 11 6: Cannot open file: winxp.man <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','1cnkikt1',1,0,'',295,0,0),(11396,2628,6,492,0,'201.154.128.197',1144727485,1,0,1,1,1,1,'','','Asi es\n\nprueba a copiar tu archivo manifest al mismo directorio de tu aplicacion, yo en mi caso lo renombre a \"winxp.man\".\n\ny es por eso tambien, que yo genero otro archivo XXX.RC con solo la instruccion descrita, y asi puede editar libremente mis archivos RC\n\nsaludos','',0,'gA==','3ta3izdn',1,0,'',492,0,0),(11397,2628,6,295,0,'201.222.144.127',1144728022,1,0,1,1,1,1,'','','MIL GRACIAS RAYMUNDO  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  FUNCIONO IMPECABLE!\n\nAHORA SOLO ME RESTA UNA DUDA LOS BOTONES CON BITMAPS SIGUEN IGUAL , PARA ESTO ES NECESARIO USAR ALGUNA CLASE ESPECIAL ?\n\nSALUDOS','',0,'gA==','n1m8hr67',1,0,'',295,0,0),(11398,2628,6,492,0,'201.154.128.197',1144728393,1,0,1,1,1,1,'','','Que bien que todo salio OK !!!!\n\nmira, anteriormente usaba la clase TSBUTTON de Mercado que esta Excelente !!!, pero he tenido problemas al querer generar la nueva lib, asi que por el momento estoy usando los botones \"normalitos\" por asi llamarlos, pero hay una clase que te permite poner texto e imagen en el mismo boton : BUTTONBMP que tambien esta Excelente.\n\n\nSaludos','',0,'gA==','159n1c9x',1,0,'',492,0,0),(11399,2628,6,295,0,'201.222.144.127',1144729007,1,0,1,1,1,1,'','','GRACIAS DENUEVO RAYMUNDO <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSEGUIRÉ INVESTIGANDO ESTAS CLASES\n\n\nSaludos y\nxHabrazos','',0,'gA==','39sx6nxx',1,0,'',295,0,0),(11400,2628,6,492,0,'201.154.128.197',1144729247,1,0,1,1,1,1,'','','Ok LAFUG, por nada !!\n\nSaludos','',0,'gA==','2a1jo6iz',1,0,'',492,0,0),(11401,2623,7,262,0,'87.235.159.190',1144737856,1,0,1,1,1,1,'','','Creo que es el tutor11\nSaludso.','',0,'gA==','2b3enebz',1,0,'',262,0,0),(11402,2623,7,527,0,'88.11.4.198',1144738818,1,0,1,1,1,0,'','ok','Gracias voy a probarlo.\nUna pregunta mas por favor ¿ Estareis alguno de vosotros en el foro esta semana santa?\nGRACIAS.','',0,'gA==','3e10ygws',1,0,'',527,0,0),(11403,2625,3,6,0,'87.6.210.206',1144739318,1,0,1,1,1,1,'','Re: Combobox problem','Is the combo tall enough? Check also what really is in the array.\n\nEMG','',0,'gA==','2bqo049s',1,0,'',6,0,0),(11404,2629,6,75,0,'83.52.12.163',1144741702,1,0,1,1,1,0,'','menu popup?','Necesito que al hacer click derecho con el ratón me aparezca un menu con las opciones para editar el registro. ¿Cómo se hace?.\n\nSaludos.','',0,'gA==','2evfj6bu',1,0,'',75,0,0),(11405,2609,1,170,0,'213.103.245.216',1144741997,1,0,1,1,1,1,'','','I have not tested the last version of Advantage.\n\nWith DOS applications, this work.\nWith Fivewin 16 bits, this seems to work also\nbut you need make fews changes in some functions.\n\nSample : change DBSEEK(), DBGOTO(), DBGOTOP(), DBGOBOTTOM()\nby others function who ask to this functions with add SysRefresh()\nlike this :\n\n****************\nFUNCTION SeekDb(uVar, lSoftSeek )\n****************\nLOCAL lReturn\nSysRefresh()\nlReturn := DBSEEK(uVar, lSoftSeek)\nSysRefresh()\nRETURN lReturn\n\n\nI am testing this on network and this seem to be better\nthan call directly DBSEEK(), independently of the use of Advantage.\n\nI think it\'s good to create your owns generic functions\nto be able to interchange easily yours RDDs.\n\nRegards,','',0,'gA==','18vo10lz',1,0,'',170,0,0),(11406,2435,4,2,0,'87.218.146.50',1144742326,1,0,1,1,1,1,'','','Eugeniusz,\n\n&gt; ::cIPAddr  = GetHostByName( GetHostName() )\n\nHave you checked what GetHostName() returns ? And what GetHostByName() returns ?\n\nThere is no a fwce.h file. We just use the ones from FWH for PC.','',0,'gA==','1qvayu1u',1,0,'',2,0,0),(11407,2435,4,2,0,'87.218.146.50',1144742869,1,0,1,1,1,1,'','','Eugeniusz,\n\nGetHostName() on the emulator returns \"Pocket_PC\" which seems ok.\n\nIt looks as GetHostByName() is the one that fails.','',0,'gA==','aas9lwyb',1,0,'',2,0,0),(11408,2435,4,19,0,'217.153.83.2',1144743223,1,0,1,1,1,0,'','','Antonio,\non PPC is the same result\nGetHostName() -&gt; WM_Administr2 -&gt; ok\nGetHostByName(\'WM_Administr2\') hung up PPC\n\nRegards Eugeniusz','',0,'gA==','2g9hbqa1',1,0,'',19,0,0),(11409,2435,4,2,0,'87.218.146.50',1144743457,1,0,1,1,1,1,'','','Eugeniusz,\n\nFixed <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> There was a bug at GetHostByName(). Now it is ok.\n\nWe are uploading a new FWPPC build that you may download in some minutes. Thanks!','',0,'gA==','12l0mw1x',1,0,'',2,0,0),(11410,2623,7,2,0,'87.218.146.50',1144743595,1,0,1,1,1,1,'','','Manuel,\n\nSi <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','36pfotb1',1,0,'',2,0,0),(11411,2621,3,2,0,'87.218.146.50',1144743854,1,0,1,1,1,1,'','','Revisa samples\\ImgTest.prg','',0,'gA==','35lbdr8h',1,0,'',2,0,0),(11412,2617,6,2,0,'87.218.146.50',1144743975,1,0,1,1,1,1,'','','Juan,\n\nNo la hemos convertido. Se trata de descargar los ficheros del CVS de xharbour y luego construirlo.\n\nHas usado el cvs.exe anteriormente ?','',0,'gA==','2b2m1pww',1,0,'',2,0,0),(11413,2624,6,2,0,'87.218.146.50',1144744023,1,0,1,1,1,1,'','','Juan,\n\nPosiblemente tengas que usar la librería hbcomm.lib','',0,'gA==','1xs4erob',1,0,'',2,0,0),(11414,2629,6,2,0,'87.218.146.50',1144744312,1,0,1,1,1,1,'','','Revisa el ejemplo samples\\TestPop.prg \n\nFunciona con el click izquierdo del ratón, pero facilmente se puede hacer igual con el derecho.','',0,'gA==','3kavj3mv',1,0,'',2,0,0),(11415,2628,6,2,0,'87.218.146.50',1144744406,1,0,1,1,1,1,'','','Luis,\n\nUsa la clase TButtonBmp. \n\nRevisa el ejemplo samples\\TestBuBm.prg','',0,'gA==','1a0j48yo',1,0,'',2,0,0),(11416,2615,3,2,0,'87.218.146.50',1144744726,1,0,1,1,1,1,'','','Alex,\n\nThere is a working sample of a TabControl on a dialog at samples\\Win32.prg and Win32.rc','',0,'gA==','11y6na69',1,0,'',2,0,0),(11417,2615,3,32,0,'168.209.98.35',1144745568,1,0,1,1,1,0,'','TTabControl','I know, but that\'s from a resource.\n\nAlex','',0,'gA==','v6xudy4b',1,0,'',32,0,0),(11418,2623,7,527,0,'88.11.4.198',1144746996,1,0,1,1,1,0,'','Gracias','Esta semana santa voy a realizar mi primera aplicacion y necesitare de vosotros para poder realizar esta operacion.\n\nmuchas gracias por estar ahi siempre que os necesitamos.','',0,'gA==','1e3g25jn',1,0,'',527,0,0),(11419,2435,4,19,0,'217.153.83.2',1144747285,1,0,1,1,1,0,'','','Antonio,\nNothing better\nProgram stop at resolving GetHostByName()\n\nAt emulator it works and I get number \'127....\'\n\nRegards\nEugeniusz','',0,'gA==','22d9gayo',1,0,'',19,0,0),(11420,1945,7,456,0,'217.127.39.57',1144747498,1,0,1,1,1,1,'','','José Luis, \n  gracias por la sujerencia, lo he probado copiando los dbf a ROM y una vez terminada la importacion volverlos a mover a SD, y funciona perfecto, la importacion es rapida, y la copia de ficheros casi no se nota.\nGracias.','',0,'gA==','1r4hqjtg',1,0,'',456,0,0),(11421,2625,3,497,0,'212.127.159.218',1144751590,1,0,1,0,1,0,'','','Dear Enrico,\n\nThat\'s it.\n\nI did not paint the Combobox tall enough in the Workshop.\n\nThank you.\n\nJules','',0,'gA==','2py5e5wj',1,0,'',497,0,0),(11422,2541,6,362,0,'200.168.52.156',1144756186,1,0,1,1,1,1,'','','Antonio... Puedes ayudarme???','',0,'gA==','1wuthber',1,0,'',362,0,0),(11423,2630,3,247,0,'87.203.106.137',1144758069,1,0,1,1,1,0,'','Memowrit Question','How can i exclude chr(26) (ESC character) from the end when i use memowrit?\n\nRegards\nA.S.K','',0,'gA==','9uu52ee2',1,0,'',247,0,0),(11424,2624,6,292,0,'200.82.144.216',1144761803,1,0,1,1,1,1,'','','Antonio,\nGracias\nNecesito Activar los modos\n\nEn clipper  funciona OK con CT.LIB\n\nCOM_DTR,COM_MCR,COM_CTS\n\nPase el programa a HB con FW y no devuelve la misma respuesta.','',0,'gA==','2udoz8oz',1,0,'',292,0,0),(11425,2583,3,247,0,'87.203.106.137',1144762449,1,0,1,1,1,0,'','Re: How to Store Images in MDB Table using FWH ?','[quote=&quot;RAMESHBABU&quot;:5m8o4wz1]Hi \n\nCan anybody guide me: How to store images in MS Access Table\nFields like the way we store images in .FPT file using FWH ?\n\nThanks in advance\n\n- Ramesh Babu P[/quote:5m8o4wz1]\n\nAs i know, the problem is that you can do this only with DAO and not ADO.With ADO you can store large amount of array byte inside an OLE field but access will not recognize it as Image.\n\nRegards\nA.S.K','',0,'gA==','5m8o4wz1',1,0,'',247,0,0),(11426,2631,6,23,0,'62.87.127.37',1144763817,1,0,1,1,1,1,'','CLASS TToolBar FROM TControl','Buenasss, en esta clase la TToolbar como puedo saber cual es el botón que se ha pulsado??\nMe explico es para desactivarlo hasta que el usuario salga de la opción y entonces volver a activarlo.\nGraciassss.','',0,'gA==','3l6nv2gh',1,0,'',23,0,0),(11427,2541,6,23,0,'212.166.228.215',1144764145,1,0,1,1,1,1,'','','Has Probado con SetKey() ?\nSetKey (K_CTRL_F10, {|| Funcion()})\n\n// Control-function keys\n// Añadido por Victor 10/04/2003 15:13\n#define K_CTRL_F1       -20   //   Ctrl-F1\n#define K_CTRL_F2       -21   //   Ctrl-F2\n#define K_CTRL_F3       -22   //   Ctrl-F4\n#define K_CTRL_F4       -23   //   Ctrl-F3\n#define K_CTRL_F5       -24   //   Ctrl-F5\n#define K_CTRL_F6       -25   //   Ctrl-F6\n#define K_CTRL_F7       -26   //   Ctrl-F7\n#define K_CTRL_F8       -27   //   Ctrl-F8\n#define K_CTRL_F9       -28   //   Ctrl-F9\n#define K_CTRL_F10      -29   //   Ctrl-F10\n#define K_CTRL_F11      -44   // * Ctrl-F11\n#define K_CTRL_F12      -45   // * Ctrl-F12\n\nA mi me va muy bien.','',0,'gA==','1mlnz1it',1,0,'',23,0,0),(11428,2583,3,264,0,'64.116.212.96',1144769596,1,0,1,1,1,0,'','','( sorry for my english )\nI use a neanderthal tecnique:\n1. read the bitmap ( or other format )\n2. transform to text with base64\n3. in base64, is text; simple to store in any field of varchar o variable length.\n\nFor display, the process is the same but in inverse order.\n\nI hope serve to you\nBye.','',0,'gA==','3bdlqiut',1,0,'',264,0,0),(11429,2609,1,51,0,'80.122.88.242',1144770537,1,0,1,1,1,0,'','','Thank you for your answer.\n\nMay I ask you an other question.\n\nToday I tried to access a dbf-file from an application with ADS-localServer. And then with a FW program. \n\nDoes this mean ADS-localServer does not \"import\" the dbf-files into a \nserver and that you can access a dbf-file from FW with COMIX and at the otherhand with an other program with ADS?\n\nRegards\nOtto','',0,'gA==','30o4lxw3',1,0,'',51,0,0),(11430,2632,2,301,0,'201.138.198.52',1144770693,1,0,1,1,1,0,'','AAAUXXXILIO !!!! necesito abrir este DBF','Hola, necesito abrir este dbf , segun esto es de visual fox pro, pero no estoy seguro.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/013e62c040/mgw.zip.html\">http://hyperupload.com/download/013e62c040/mgw.zip.html</a><!-- m --> \n\nsi alguien me puede ayudar se los agradeceria mucho ya que estoy atorrado en un proyecto desde hace una semana y no puedo continuar...\n\nmil gracias\n\nRene','',0,'gA==','ppb3jnvs',1,0,'',301,0,0),(11431,2630,3,193,0,'195.212.29.171',1144771319,1,0,1,1,1,0,'','','In Clipper MEMOWRITE() is nothing more than sequence of the functions fopen(), fwrite(), fclose(). The only thing MEMOWRITE() does itself is appending EOF character. Though I don\'t use Harbour but I think the same is justly for Harbour. So you can use fopen(), fwrite(), fclose() functions by youself instead of MEMOWRITE(). Though it is better to know what will say Harbour guru. <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'gA==','p6z9cyug',1,0,'',193,0,0),(11432,2628,6,110,0,'165.98.151.243',1144772277,1,0,1,1,1,1,'','','Antonio ya que hablamos de tbuttonbmp, has notado que cuando el cursor del raton se encuentra sobre el boton, da la apariencia que el bitmap es pintando en forma constante dando un efecto de parpadedo, este parpadeo como te comente solo afecta al boton que tiene el cursor del raton encima.\n\nme inmagino que hay un evento que se dispara constantemente cuando esto sucede.\n\nsalu2\ncarlos vargas','',0,'gA==','xwus22nq',1,0,'',110,0,0),(11433,2602,3,148,0,'196.205.181.90',1144773246,1,0,1,1,1,0,'','','missing twbrw32.lib ? From where can I bring that library ?','',0,'gA==','155h8wdm',1,0,'',148,0,0),(11434,2632,2,248,0,'212.145.179.68',1144773449,1,0,1,1,1,0,'','AAAUXXXILIO !!!! necesito abrir este DBF','Estoy intentando descargar el fichero pero se abre la pagina y no descarga nada automaticamente ni se ve nada donde decirle que lo descarge.','',0,'gA==','ccf2v3b8',1,0,'',248,0,0),(11435,2632,2,301,0,'201.138.198.52',1144773923,1,0,1,1,1,0,'','','garbi, te lo cabao de mandar a tu mail y tambien lo puse en este otro link\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mundodemotos.com/mgm.zip\">http://www.mundodemotos.com/mgm.zip</a><!-- m -->\n\ngracias','',0,'gA==','3bu1v02a',1,0,'',301,0,0),(11436,2633,3,264,0,'64.116.212.96',1144774329,1,0,1,1,1,0,'','WindowsXP.Manifest no se visualiza en XP HOME','Existe algun problema reportado para desplegar los temas de WindowsXP.Manifest en XP Home Edition ( sp2 ), pues en maquinas con XP Profesional se ve sin problemas.\n\nAnybody knows a problem of visualisation in XP Home Edition (sp2 ). In machines with XP Prof i have wonderful results, but no in other ones','',0,'gA==','1l5ee2x3',1,0,'',264,0,0),(11437,2435,4,2,0,'87.218.146.50',1144774694,1,0,1,1,1,1,'','','Eugeniusz,\n\nAre you using the same Windows Mobile version on the emulator and on the real Pocket PC ?','',0,'gA==','rzayj3oy',1,0,'',2,0,0),(11439,2541,6,362,0,'200.168.52.156',1144775363,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:15uesqg1]Has Probado con SetKey() ?\nSetKey (K_CTRL_F10, {|| Funcion()})\n\n// Control-function keys\n// Añadido por Victor 10/04/2003 15:13\n#define K_CTRL_F1       -20   //   Ctrl-F1\n#define K_CTRL_F2       -21   //   Ctrl-F2\n#define K_CTRL_F3       -22   //   Ctrl-F4\n#define K_CTRL_F4       -23   //   Ctrl-F3\n#define K_CTRL_F5       -24   //   Ctrl-F5\n#define K_CTRL_F6       -25   //   Ctrl-F6\n#define K_CTRL_F7       -26   //   Ctrl-F7\n#define K_CTRL_F8       -27   //   Ctrl-F8\n#define K_CTRL_F9       -28   //   Ctrl-F9\n#define K_CTRL_F10      -29   //   Ctrl-F10\n#define K_CTRL_F11      -44   // * Ctrl-F11\n#define K_CTRL_F12      -45   // * Ctrl-F12\n\nA mi me va muy bien.[/quote:15uesqg1]\n\nGracias Angel, Voy Probar.\n\nUsted és mui inteligente, sabio, instruido.\n\nSaludos','',0,'gA==','15uesqg1',1,0,'',362,0,0),(11440,2635,6,9,0,'85.60.6.77',1144776960,1,0,1,1,1,1,'','Toleauto + Word','Al pasar una aplicación que funciona perfectamente, desde Clipper+FW23 a xHarbour + FWH 2.7, tengo los siguientes problemas:\n\n1) Me daba un error por oWord:End().- He suprimido esta línea y la he sustituido por OleUninitialize().- Parece que funciona pero queria que me confirmarais que es correcto. ¿No es necesario cerrar el objeto?\n\n2) Utilizo oWord:Set( \"WindowState\", 1) para que WordOffice se abrá maximizado. Pero en FWH no funciona. ¿Alguna idea?\n\n3) Al usar xHarbour + FWH 2.7,  como ya no es necesario enlazar con ole2.lib, desconozco si estoy usando Ole nativo (xHarbour)  o Toleauto (interno de FW).\n\n\n\nUn saludo para todos','',0,'gA==','2romi18k',1,0,'',9,0,0),(11441,2636,6,9,0,'85.60.6.77',1144777595,1,0,1,1,1,1,'','Help con ficheros chm','En mis aplicaciones, uso el sistema de ayuda de Windows CHM y no el antiguo HLP.- En cada una de las pantallas, tengo situado un botón de ayuda, pero lo suyo sería suprimirlo y sustituirlo por &lt;F1&gt;. \n\nEn las versiones de Clipper + FW era posible programar un HelpTopic si los ficheros era HLP.\n\n¿En xHarbour +  FWH es posible utilizar Helptopic con ficheros CHM?\n\nUn saludo para todos','',0,'gA==','nlmvpvm1',1,0,'',9,0,0),(11442,2544,20,125,0,'213.140.6.105',1144777908,1,0,1,1,1,0,'','','Ho provato a compilare l\'esempio di EMG con fwh e mi da i seg. errori:\n\nError E2449 ftp-news.c 150: Size of \'hb_vm_SymbolInit_FTP\' is unknown or zero\nError E2141 ftp-news.c 150: Declaration syntax error\nError E2109 ftp-news.c 162: Not an allowed type\n\nPer me e\' Arabo puro. \nChe roba e\'\n\nForse quell\'esempio postato e\' da rivedere.\n\nCiao','',0,'gA==','1ai5k7lc',1,0,'',125,0,0),(11443,2637,6,409,0,'201.246.67.128',1144778054,1,0,1,1,1,0,'','Ayuda con la Clase TPRINTER por Favor','Bueno amigos, necesito su ayuda, como hago para q la clase TPrinter no haga el salto de pagina, ya q estoy imprimiendo en un formato de hoja continua de 7 cms de ancho y 15 de largo.\nles agradeceria su ayuda\nSaludos','',0,'gA==','e7a168j4',1,0,'',409,0,0),(11444,2544,20,6,0,'87.6.210.206',1144778329,1,0,1,1,1,1,'','','C\'è qualcosa che non va nel tuo compilatore.\n\nEMG','',0,'gA==','3guokrda',1,0,'',6,0,0),(11445,2638,3,529,0,'200.159.199.16',1144778554,1,0,1,1,1,0,'','folders in fwh27','Hi, someone test in fwh27 an folder inside another folder, this dont work, i already try put winapi in rc file and change the name to FOLDER32, the folder dont diplayed.','',0,'gA==','249s9kre',1,0,'',529,0,0),(11446,2435,4,19,0,'62.89.101.138',1144779105,1,0,1,1,1,0,'','','Antonio,\n\nYes, the same version \n\nNow I\'m testing program on Win Server 2000. PPC is making connection, resolving GetHostByName but terminate with message:\n\"Internal error\" at sending data to socket server oSocket:SendData(\"Data\") \n\nI cannot trace why.\n\nRegards \nEugeniusz','',0,'gA==','169t2kgq',1,0,'',19,0,0),(11449,2435,4,2,0,'87.218.146.50',1144782856,1,0,1,1,1,1,'','','Eugeniusz, \n\nDoes the internal error provide its description ? (it should)','',0,'gA==','n0iz5kmv',1,0,'',2,0,0),(11450,2638,3,2,0,'87.218.146.50',1144782946,1,0,1,1,1,1,'','','Norberto,\n\nYou can not place a folder into a folder using a RC file (it is not allowed).\n\nYou place place the child folder from the ON INIT clause of the dialogbox, build it with @ ..., ... FOLDER ...','',0,'gA==','2i75bypm',1,0,'',2,0,0),(11451,2635,6,2,0,'87.218.146.50',1144783341,1,0,1,1,1,1,'','','Manuel,\n\n&gt;\n1) Me daba un error por oWord:End().- He suprimido esta línea y la he sustituido por OleUninitialize().- Parece que funciona pero queria que me confirmarais que es correcto. ¿No es necesario cerrar el objeto? \n&gt;\n\nHas comprobado en el administrador de tareal (Ctrl+Alt+Del) si la aplicación Word se cierra ?\n\n&gt;\n2) Utilizo oWord:Set( \"WindowState\", 1) para que WordOffice se abrá maximizado. Pero en FWH no funciona. ¿Alguna idea? \n&gt;\n\nHas probado con oWord:Set( \"WindowState\", .t. ) ?\n\n&gt;\n3) Al usar xHarbour + FWH 2.7, como ya no es necesario enlazar con ole2.lib, desconozco si estoy usando Ole nativo (xHarbour) o Toleauto (interno de FW). \n&gt;\n\nxHarbour proprociona la Clase TOleAuto. FWH proporciona las funciones básicas de OLE, sin proporcionar una clase para tal fín. Las funciones son:\nCreateOleObject() --&gt; hOle\nOleInvoke( hOle, cMethodName, uParam1, ..., uParamN ) --&gt; uResult          \nOleSetProperty( hOle, cPropertyName, uParam1, ..., uParamN )\nOleGetProperty( hOle, cPropertyName ) --&gt; uValue','',0,'gA==','15617zb5',1,0,'',2,0,0),(11454,2637,6,2,0,'87.218.146.50',1144783640,1,0,1,1,1,1,'','','Antes de crear el objeto PRINTER, con PRINTER oPrn ..., llama a la función PrnSetSize( nAncho, nAlto ) para establecer las dimensiones de la hoja.','',0,'gA==','32lafzbd',1,0,'',2,0,0),(11455,2631,6,2,0,'87.218.146.50',1144783853,1,0,1,1,1,1,'','','Angel,\n\nDesde la propia acción del botón, desactívalo por la posición del boton:\n\n... ACTION oToolBar:EnableButton( &lt;nButton&gt;, .f. ), ...codigo..., oToolBar:EnableButton( &lt;nButton&gt;, .t. )','',0,'gA==','271o1z33',1,0,'',2,0,0),(11456,2541,6,2,0,'87.218.146.50',1144783994,1,0,1,1,1,1,'','','Joao,\n\nSetKey(), como te ha indicado Angel, es la opción idónea porque así no dependes de en que control esté el foco.','',0,'gA==','36x4kpae',1,0,'',2,0,0),(11458,2638,3,9,0,'85.60.6.77',1144785861,1,0,1,1,1,1,'','','You can do from code:\n\n  @  6.0,  9 SAY oSay[4] PROMPT \"NOMBRE COMERCIAL:\" OF oFol1:aDialogs[2] PIXEL\n  @ 21, 9 GET oGet[36] VAR oDbf:COMER     OF oFol1:aDialogs[2] ;\n                   PIXEL SIZE 170,10\n\n  @ 35, 9 CHECKBOX oChk2 VAR oDbf:COM_BOLD ;\n             PROMPT \" Negrita\"  OF oFol1:aDialogs[2] PIXEL \n\n  @  6,189 SAY oSay[7] PROMPT \"Fila:\" OF oFol1:aDialogs[2] PIXEL\n  @  6,235 GET oGet[37] VAR oDbf:COM_FILA     OF oFol1:aDialogs[2] PIXEL SIZE 30,10 RIGHT\n\n. . . . . . . . . . . \n\n[url=http&#58;//img376&#46;imageshack&#46;us/my&#46;php?image=pepe9lx&#46;jpg:2e0bnc62][img:2e0bnc62]http&#58;//img376&#46;imageshack&#46;us/img376/427/pepe9lx&#46;th&#46;jpg[/img:2e0bnc62][/url:2e0bnc62]','',0,'GA==','2e0bnc62',1,0,'',9,0,0),(11459,2541,6,362,0,'200.168.52.156',1144786212,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:20u3helo]Joao,\n\nSetKey(), como te ha indicado Angel, es la opción idónea porque así no dependes de en que control esté el foco.[/quote:20u3helo]\n\n\nAntonio, Angel...\n\nTambién no funciona... ???????','',0,'gA==','20u3helo',1,0,'',362,0,0),(11460,2633,3,9,0,'85.60.6.77',1144786419,1,0,1,1,1,1,'','','Funciona en XP Home. ¿Has comprobado si Panel de Control + Apariencia y Temas  + Cambiar el Tema del Equipo, se ve en modo XP?','',0,'gA==','1lsk1y7x',1,0,'',9,0,0),(11461,2633,3,264,0,'64.116.212.96',1144786560,1,0,1,1,1,0,'','','Era exactamente eso.\nMil gracias.','',0,'gA==','3rc96wyg',1,0,'',264,0,0),(11462,2635,6,9,0,'85.60.6.77',1144787376,1,0,1,1,1,1,'','','Antonio\n\n\n[quote=&quot;Antonio Linares&quot;:36rcbswv]\nHas comprobado en el administrador de tareal (Ctrl+Alt+Del) si la aplicación Word se cierra ?[/quote:36rcbswv]\n\nSi se cierra.\n\n[quote=&quot;Antonio Linares&quot;:36rcbswv]\nHas probado con oWord:Set( \"WindowState\", .t. ) \n[/quote:36rcbswv]\n\nLo acabo de probar y tampoco funciona','',0,'gA==','36rcbswv',1,0,'',9,0,0),(11463,2638,3,529,0,'200.159.199.16',1144787801,1,0,1,1,1,0,'','in fw work','hi, in fw (16 bits works...), in last versions of fwh works too. ( fwh24);','',0,'gA==','2hn7rgzq',1,0,'',529,0,0),(11464,2602,3,266,0,'60.50.94.124',1144788820,1,0,1,1,1,1,'','','I use it in fw195 but no luck with fwh21/harbour.\n\nSandeep tests with xHarbour only. \n\nIt shows many errors on METOHD in class prgs.\n\nI do not know how to compile class prgs eg: tdd, tget, etc. using harbour.\n\nMay be someone can tell me.\n\nAnyway I send the jpg and error to your gmail.','',0,'gA==','1ukfnyn7',1,0,'',266,0,0),(11465,2640,7,527,0,'81.36.114.187',1144789283,1,0,1,1,1,0,'','Como seguir con mi aplicacion','He realizado la siguiente aplicacion.\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, oBmp\n   \n   DEFINE BITMAP oBmp FILE CurDir() + \"\\inicio.bmp\"\n   DEFINE WINDOW oWnd TITLE \"MJCC\"\n\n   @  25,  20 BTNBMP FILE CurDir() + \"\\users.bmp\"   SIZE 60, 60 \n   @  25,  90 BTNBMP FILE CurDir() + \"\\open.bmp\"    SIZE 60, 60\n   @  25, 160 BTNBMP FILE CurDir() + \"\\search.bmp\"  SIZE 60, 60\n   @  96,  20 BTNBMP FILE CurDir() + \"\\print.bmp\"   SIZE 60, 60\n   @  96,  90 BTNBMP FILE CurDir() + \"\\setup.bmp\"   SIZE 60, 60\n   @  96, 160 BTNBMP FILE CurDir() + \"\\star.bmp\"    SIZE 60, 60\n   @ 171,  20 BTNBMP FILE CurDir() + \"\\print.bmp\"   SIZE 60, 60\n   @ 171,  90 BTNBMP FILE CurDir() + \"\\setup.bmp\"   SIZE 60, 60\n   @ 171, 160 BTNBMP FILE CurDir() + \"\\star.bmp\"    SIZE 60, 60\n   \n   ACTIVATE WINDOW oWnd ;\n      ON PAINT oWnd:SayBitmap( 10, 10, oBmp ) ;\n      ON CLICK MsgInfo(\"MJCC\" + CHR(13) + \"Bembibre\" + chr(13) +;\n                       \"La Coru¤a\"+ chr(13)+;\n                       \"Telefono 902234568\")\n      \n   oBmp:End()   \n\n\nreturn 0\n*************************************************************\nComo puedo hacer ahora para haciendo un click en un boton me salga por ejemplo una pantalla de clientes, para cubrir los datos del cliente, o para mostrame un listado con los datos de los clientes para seleccionar uno y que directamente se vaya a la pantalla de ver ficha de cliente.\nTeneis algun tutor de ejemplo.\nGracias por vuestra colaboracion.\n[/b]','',0,'','2c9oupe2',1,0,'',527,0,0),(11466,2641,6,228,0,'200.119.65.49',1144794115,1,0,1,1,1,1,'','enviar un reporte por fax?','Amigo del foro como siempre yo molestando con mis preguntas....\n\nComo dice el encabezado, existe alguna clase o alguna forma de enviar un reporte por fax?, si es posible?','',0,'','6ilcqdlu',1,0,'',228,0,0),(11467,2610,6,215,0,'201.155.50.205',1144796573,1,0,1,1,1,0,'','Gracias a todos','Gracias colegas,\nde momento ya estoy de vacaciones forzadas y regreso los primeros dias de mayo para el finiquito.\nYa hize entrega de todo y la carta confidencial la revisaré cuidadosamente para ver de que se trata.\nEfectivamente, los puntos ya fueron aclarados con el ex jefe. Todo las cosas le pertenecen excepto la licencia de fivewin.\n\nSaludos','',0,'','33ohec40',1,0,'',215,0,0),(11468,2640,7,2,0,'87.218.146.50',1144798192,1,0,1,1,1,1,'','','Manuel,\n\nRevisa el ejemplo samples\\clients\\client.zip \n\nUsalo como modelo sobre el que construir tu aplicación.','',0,'','3ct3b8nj',1,0,'',2,0,0),(11469,2642,6,52,0,'200.127.195.89',1144800685,1,0,1,1,1,1,'','tsbrowser y tReport','Amigos,\n\nporque si a mi proyecto para mostrar un listado de clientes utilizando REPORT le inserto la libreria TSBROWSER, el preview del reporte no muestra nada?\n\nSi saco la TSBROWSER el preview trabaja perfectamente.\n\nAlguna idea?','',0,'','29nynw4l',1,0,'',52,0,0),(11470,2638,3,529,0,'200.159.199.16',1144803509,1,0,1,1,1,0,'','windows or fw/fwh limitation?','This is a windows or fw/fwh limitation??? why in previsions versions of fw/fwh this work?? i have this working in old versions of fw, using REDEFINE FOLDER ... OF OFLD:aDialogs[1].\nthanks','',0,'','2fsyi248',1,0,'',529,0,0),(11471,2642,6,121,0,'201.137.74.69',1144805435,1,0,1,1,1,1,'','','lo que sucede es que la libreria sbrowseh.lib contiene\nrpreview.prg  y Tmetafil, debes eliminarlas y recompilar\nsbrowseh','',0,'','179iyvj0',1,0,'',121,0,0),(11472,2643,6,295,0,'201.222.155.29',1144805906,1,0,1,1,1,1,'','redefine BUTTONBMP ... tooltip no funciona','Amigos ,\n\nEstoy implementando los botones con bitmaps para apariencia XP y funcionan y lucen perfectos pero ya no funciona el tooltip para indicar lo que el botón hace cuando posicionamos el puntero del ratón sobre el;\n\nredefine BUTTONBMP ob103 ID 103  of ODLGINI BITMAP \"CALENDARIO\" action ABREANO() tooltip \"Abre Nuevo Año\"\n\nal compilar el programa se cae y me da:\n\nC:\\SISTEMAS\\SOFREMxh\\sofremxh.prg(121) Error E0022  Invalid lvalue: \'String\'\n\nGracias de antemano\nsalu2','',0,'','2ap896tm',1,0,'',295,0,0),(11473,2583,3,190,0,'202.65.134.45',1144806769,1,0,1,1,1,0,'','','Hi dbzap\n\n[quote:28pbrlmz]\n1. read the bitmap ( or other format ) \n2. transform to text with base64 \n3. in base64, is text; simple to store in any field of varchar o variable length. \n\nFor display, the process is the same but in inverse order. \n[/quote:28pbrlmz]\n\nCan I get a small working sample please.\n\nThanks to ask and dbzap\n\n- Ramesh Babu P','',0,'gA==','28pbrlmz',1,1144854239,'',190,1,0),(11474,2643,6,78,0,'201.230.51.253',1144808687,1,0,1,1,1,0,'','','Hola LaFug\nPrueba asi:\nREDEFINE BUTTONBMP ob103 ;\nID 103 of ODLGINI ;\nBITMAP \"CALENDARIO\" ;\nACTION ABREANO() \n..\n..\n\nob103:cTooltip := \"Abre Nuevo Año\" \n\nSalu2','',0,'gA==','wae4qqdd',1,0,'',78,0,0),(11475,2643,6,295,0,'201.222.155.29',1144810308,1,0,1,1,1,1,'','','GRACIAS WILLI  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->   FUNCIONÓ PERFECTO\n\nUN xHabrazo','',0,'gA==','irv1qvi2',1,0,'',295,0,0),(11476,2632,2,74,0,'190.48.236.83',1144811416,1,0,1,1,1,1,'','','Rene:\n\n         Te lo envie a tu correo, pesan 549 k entre la dbf, el campo memo en fpt y el cdx.\n\nSaludos,','',0,'gA==','1v7usr2r',1,0,'',74,0,0),(11477,2642,6,52,0,'200.127.195.89',1144811814,1,0,1,1,1,1,'','','Gracias,.\n\nFunciono a medias, ya que aora los iconos no existen en el preview. mira este pic-.\n\nPregunta: yo ocupo una .res dentro de mi proyecto, el prev32.dll debe estar contenido dentro del mismo?\n\n[url=http&#58;//imageshack&#46;us:1kjfjl6p][img:1kjfjl6p]http&#58;//img59&#46;imageshack&#46;us/img59/3972/untitled24zl&#46;jpg[/img:1kjfjl6p][/url:1kjfjl6p]','',0,'GA==','1kjfjl6p',1,0,'',52,0,0),(11478,2644,6,295,0,'201.222.155.29',1144815932,1,0,1,1,1,1,'','buttonbar y menu estilo XP...?','Amigos,\n\nSigo dandole aspecto XP a mi aplicación pero no se como aplicarlo a la buttonbar de la ventana principal y al menu\n\nGracias de antemano por vuestra ayuda\n\nSalu2','',0,'GA==','3otjrttw',1,0,'',295,0,0),(11479,2435,4,19,0,'217.153.83.2',1144818545,1,0,1,1,1,0,'','','Antonio,\nThere was nothing in description. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nRegards\nEugeniusz','',0,'GA==','3mdq9hxg',1,0,'',19,0,0),(11480,2636,6,2,0,'87.218.146.50',1144824804,1,0,1,1,1,1,'','','Manuel,\n\nNo lo hemos probado. Posiblemente otros usuarios puedan ayudar aqui.','',0,'GA==','8dtowjam',1,0,'',2,0,0),(11481,2638,3,2,0,'87.218.146.50',1144825060,1,0,1,1,1,1,'','','Norberto,\n\nPlease provide a small and self contained sample to test it here. Thanks.','',0,'GA==','f3312h3d',1,0,'',2,0,0),(11482,2640,7,262,0,'87.235.159.190',1144825714,1,0,1,1,1,1,'','','en resumen seria :\n\n[code:14cmwc1j] @ 25, 20 BTNBMP FILE CurDir&#40;&#41; + &quot;\\users&#46;bmp&quot; SIZE 60, 60 ACTION misclientes&#40;&#41;\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;\n\n\nFunction misclientes&#40;&#41;\n &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;la pantalla de datos de clientes&#46;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nReturn \n\n[/code:14cmwc1j]\n\n\nDe todas maneras lo mas faciles mirar el ejemplo que Antonio te indica','',0,'AIA=','14cmwc1j',1,0,'',262,0,0),(11483,2630,3,247,0,'62.1.237.32',1144830349,1,0,1,1,1,0,'','Memowrit','[quote=&quot;Vladimir Grigoriev&quot;:2ttierkk]In Clipper MEMOWRITE() is nothing more than sequence of the functions fopen(), fwrite(), fclose(). The only thing MEMOWRITE() does itself is appending EOF character. Though I don\'t use Harbour but I think the same is justly for Harbour. So you can use fopen(), fwrite(), fclose() functions by youself instead of MEMOWRITE(). Though it is better to know what will say Harbour guru. <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:2ttierkk]\n\nThank you for your answer but as i can see inside the memofile.c (witch create memowrit) the code:\n       #if ! defined(OS_UNIX_COMPATIBLE)\n         {\n            if( bWriteEof )  /* if true, then write EOF */\n            {\n               BYTE byEOF = HB_CHAR_EOF;\n\n               hb_fsWrite( fhnd, &amp;byEOF, sizeof( BYTE ) );\n            }\n         }\n         #endif\n\n\ndoes something about the problem but i can understand what .If someone can explain please\n\nRegards\nA.S.K','',0,'gA==','2ttierkk',1,0,'',247,0,0),(11484,2645,7,527,0,'88.11.4.198',1144832321,1,0,1,1,1,0,'','Boton para cerrar aplicacion','Que codigo tendo que teclear dentro de un boton para que me cierra la aplicacion de la pokect i volver a windows, como si fuese una aplicacion de PC.\n\nOtra preguna mas por favor. Existe algun manual en donde todo este codigo que estoy usando este documentado, para no tener que haceros tantas preguntas.\n\ngracias.','',0,'gA==','3rjwsi83',1,0,'',527,0,0),(11485,2641,6,106,0,'85.34.123.169',1144834505,1,0,0,1,1,1,'','','leandro: te bastaría tener instalado el fax en Impresoras y Fax de Windows, y desde tu programa enviar la \"impresión\" al fax.\n\nEspero te sirva.','',0,'gA==','ye6j01vn',1,0,'',106,0,0),(11486,2630,3,193,0,'195.212.29.171',1144835266,1,0,1,1,1,0,'','','As I have understood the new function MEMOWRITE() has three parameters. The third parameter of type Logical specifies either to write EOF character ( .T. by default) or not (.F.).\nSo you should specify MEMOWRITE() function with three parameters and the third parameter should be specified as .F..','',0,'gA==','2q88q7fk',1,0,'',193,0,0),(11487,2646,20,29,0,'81.174.24.57',1144835850,1,0,1,1,1,0,'','Calcolare il CIN di un conto corrente','Salve,\nqualcuno di voi ha l\'algoritmo per calcolare il CIN di un conto corrente ?\n\nGrazie\n\nMarco','',0,'gA==','1apwb9tq',1,0,'',29,0,0),(11488,2645,7,262,0,'87.235.159.190',1144836191,1,0,1,1,1,1,'','','supon que el objeto ventana es ownd\n\n .... ACTION ownd:end() \n\nSaludso.','',0,'gA==','2wgghsg3',1,0,'',262,0,0),(11489,2630,3,247,0,'62.1.237.32',1144836400,1,0,1,1,1,0,'','','[quote=&quot;Vladimir Grigoriev&quot;:1dtzhcwe]As I have understood the new function MEMOWRITE() has three parameters. The third parameter of type Logical specifies either to write EOF character ( .T. by default) or not (.F.).\nSo you should specify MEMOWRITE() function with three parameters and the third parameter should be specified as .F..[/quote:1dtzhcwe]\n\nI think you mean this code :\nif( hb_parinfo(0) == 3 &amp;&amp; ISLOG( 3 ) )\n       bWriteEof = hb_parl( 3 );\n\nBut i have xharbour 0.99.60 and fhw 2.7 and \nmemowrit(&lt;file&gt;,&lt;text&gt;,.f.) still writes ESC character at the end\n\nRegards \nA.S.K','',0,'gA==','1dtzhcwe',1,0,'',247,0,0),(11490,2583,3,247,0,'62.1.237.32',1144836676,1,0,1,1,1,0,'','','[quote=&quot;dbzap&quot;:3210bcjv]( sorry for my english )\nI use a neanderthal tecnique:\n1. read the bitmap ( or other format )\n2. transform to text with base64\n3. in base64, is text; simple to store in any field of varchar o variable length.\n\nFor display, the process is the same but in inverse order.\n\nI hope serve to you\nBye.[/quote:3210bcjv]\n\nThis is the know way BUT you can not see the image from ACCESS.If this does not bother you then you don\'t have any problems.\n\nRegards\nA.S.K','',0,'gA==','3210bcjv',1,0,'',247,0,0),(11491,2630,3,193,0,'195.212.29.171',1144836957,1,0,1,1,1,0,'','','[quote:2zqh49vp]I think you mean this code : \nif( hb_parinfo(0) == 3 &amp;&amp; ISLOG( 3 ) ) \nbWriteEof = hb_parl( 3 ); [/quote:2zqh49vp]\nYes  I have meant this code above. So maybe there is a bug in your Harbour build or there is another idea. What about your string data &lt;text&gt; contains EOF character itself? Can you test last character of your data before you will write on a disk it with MEMOWRITE()?','',0,'gA==','2zqh49vp',1,0,'',193,0,0),(11492,2630,3,247,0,'62.1.237.32',1144837180,1,0,1,1,1,0,'','','[quote=&quot;Vladimir Grigoriev&quot;:2wwvqlxj][quote:2wwvqlxj]I think you mean this code : \nif( hb_parinfo(0) == 3 &amp;&amp; ISLOG( 3 ) ) \nbWriteEof = hb_parl( 3 ); [/quote:2wwvqlxj]\nYes  I have meant this code above. So maybe there is a bug in your Harbour build or there is another idea. What about your string data &lt;text&gt; contains EOF character itself? Can you test last character of your data before you will write on a disk it with MEMOWRITE()?[/quote:2wwvqlxj]\n\nAs you can see bellow the sample is simple but still ...\n\nThank you anyway\nRegards\nA.S.K\n\n\n#include \"fivewin.ch\"\n\n\nfunction main()\nmemowrit(\"cc.txt\",\"ask\",.f.)\nreturn \"\"','',0,'gA==','2wwvqlxj',1,0,'',247,0,0),(11493,2630,3,193,0,'195.212.29.187',1144837813,1,0,1,1,1,0,'','','Unfortunately I can not test your code as I have not Harbour. From the source code of  memofile.c one should conclude that MEMOWRITE() will work correctly i.e. it will write into file without EOF character if the third parameter will be set to .F..\nBy the way how do you determine that EOF character does present in you file? What is the file size of cc.txt?','',0,'gA==','3i9y0owc',1,0,'',193,0,0),(11494,2630,3,247,0,'62.1.237.32',1144838205,1,0,1,1,1,0,'','','[quote=&quot;Vladimir Grigoriev&quot;:34ktkqap]Unfortunately I can not test your code as I have not Harbour. From the source code of  memofile.c one should conclude that MEMOWRITE() will work correctly i.e. it will write into file without EOF character if the third parameter will be set to .F..\nBy the way how do you determine that EOF character does present in you file? What is the file size of cc.txt?[/quote:34ktkqap]\n\nThe file is 4bytes .I use edit from dos to see it too. I don\'t know why it does not working .\n\nRegards\nA.S.K','',0,'gA==','34ktkqap',1,0,'',247,0,0),(11495,2630,3,247,0,'62.1.237.32',1144838874,1,0,1,1,1,0,'','','I changed my code to the bellow code and now works perfectly.This means that i probably have old xharbour \n\nRegards\nA.S.K\n\n\n#include \"fivewin.ch\"\n\n\nfunction main()\nmemowrit(\"cc.txt\",\"ask\",.f.)\nreturn \"\"\n\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n#include &lt;hbapiitm.h&gt;\n#include \"hbapifs.h\"\n\nHB_FUNC( MEMOWRIT )\n{\n   PHB_ITEM pFileName = hb_param( 1, HB_IT_STRING );\n   PHB_ITEM pString   = hb_param( 2, HB_IT_STRING );\n   BOOL bWriteEof     = TRUE;      /* write Eof !, by default is .T. */\n   BOOL bRetVal       = FALSE;\n\n   if( hb_parinfo(0) == 3 &amp;&amp; ISLOG( 3 ) )\n       bWriteEof = hb_parl( 3 );\n\n   if( pFileName &amp;&amp; pString )\n   {\n      FHANDLE fhnd = hb_fsCreate( ( BYTE * ) hb_itemGetCPtr( pFileName ), FC_NORMAL );\n\n      if( fhnd != FS_ERROR )\n      {\n         ULONG ulSize = hb_itemGetCLen( pString );\n\n         bRetVal = ( hb_fsWriteLarge( fhnd, ( BYTE * ) hb_itemGetCPtr( pString ), ulSize ) == ulSize );\n\n         /* NOTE: CA-Clipper will add the EOF even if the write failed. [vszakats] */\n         /* NOTE: CA-Clipper will not return .F. when the EOF could not be written. [vszakats] */\n         #if ! defined(OS_UNIX_COMPATIBLE)\n         {\n            if( bWriteEof )  /* if true, then write EOF */\n            {\n               BYTE byEOF = HB_CHAR_EOF;\n\n               hb_fsWrite( fhnd, &amp;byEOF, sizeof( BYTE ) );\n            }\n         }\n         #endif\n\n         hb_fsClose( fhnd );\n      }\n   }\n\n   hb_retl( bRetVal );\n}\n\n#pragma ENDDUMP','',0,'','22mxoguv',1,0,'',247,0,0),(11496,2646,20,29,0,'81.174.24.57',1144839016,1,0,1,1,1,0,'','','Ho trovato questa funzione in visual basic ma ho difficoltà nel convertirla in harbour. Qualcuno di voi conosce visual basic e riesce a convertirla ?\n\nGrazie in anticipo \n\nMarco\n\npublic string CalcolaCin()\n      {\n          // costanti e variabili per calcolo pesi\n          const string numeri = \"0123456789\";\n          const string lettere = \"ABCDEFGHIJKLMNOPQRSTUVWXYZ-. \";\n          const int DIVISORE = 26;\n          int[] listaPari = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28};\n          int[] listaDispari = {1,0,5,7,9,13,15,17,19,21,2,4,18,20,11,3,6,8,12,14,16,10,22,25,24,23,27,28,26};\n\n\n          // normalizzazione dati\n          if (this.Abi.Length != L_ABI)\n               mAbi = NormalizzaDati(mAbi,L_ABI);\n          if (this.Cab.Length != L_CAB)\n               mCab = NormalizzaDati(mCab,L_CAB);\n          if (this.NormalizzaConto)\n               this.ContoCorrente = NormalizzaContoCorrente(this.ContoCorrente);\n\n          if (this.ContoCorrente.Length != L_CONTO)\n                    this.ContoCorrente = this.ContoCorrente.PadRight(L_CONTO);\n\n\n          // codice normalizzato\n          string codice = this.Abi + this.Cab + this.ContoCorrente;\n\n\n          // calcolo valori caratteri\n          int somma = 0;\n          char[] c = codice.ToUpper().ToCharArray();\n\n           for (int k = 0; k &lt; (L_CONTO + L_ABI + L_CAB); k++)\n           {\n                   int i = numeri.IndexOf(c[k]);\n                   if (i &lt; 0)\n                       i = lettere.IndexOf(c[k]);\n\n                   // se ci sono caratteri errati usciamo con un valore\n                   // impossibile da trovare sul cin\n\n                   if (i &lt; 0)\n                         return Environment.NewLine;\n\n\n                   if ((k % 2) == 0)\n                   {\n                           // valore dispari\n                           somma += listaDispari[i];\n                    }\n                    else\n                   {\n                           // valore pari\n                           somma += listaPari[i];\n                    }\n\n           }\n           return lettere.Substring(somma % DIVISORE,1);\n       }  \n   }\n}','',0,'','2h0psa7d',1,0,'',29,0,0),(11497,2645,7,2,0,'87.218.146.50',1144839903,1,0,1,1,1,1,'','','Manuel,\n\nNosotros proporcionamos un manual de referencia y otro de guia de programación, pero son tantos los conceptos que es preferible ir de lo más sencillo a lo más complejo. Por eso lo idóneo es comenzar revisando los ejemplos y haciendo tantas preguntas como necesites <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2vetvb2f',1,0,'',2,0,0),(11498,2644,6,2,0,'87.218.146.50',1144839979,1,0,1,1,1,1,'','','Luis,\n\nRevisa los ejemplos samples\\ToolBar1.prg y ToolBar2.prg','',0,'','2r4if5s0',1,0,'',2,0,0),(11499,2630,3,193,0,'195.212.29.187',1144840186,1,0,1,1,1,0,'','','Ops! You are writing about [b:100o87aa]xHarbour[/b:100o87aa] but the code for MEMOWRITE() discussed is from [b:100o87aa]Harbour[/b:100o87aa]!\nI have looked through xHarbour source code for MEMOWRITE() and indeed it has not the third parameter. So xHarbour MEMOWRITE() always writes EOF character! The code from xHarbour is below\n\nHB_FUNC( MEMOWRIT )\n{\n   PHB_ITEM pFileName = hb_param( 1, HB_IT_STRING );\n   PHB_ITEM pString = hb_param( 2, HB_IT_STRING );\n   BOOL bRetVal = FALSE;\n\n   if( pFileName &amp;&amp; pString )\n   {\n      FHANDLE fhnd = hb_fsCreate( ( BYTE * ) pFileName-&gt;item.asString.value, FC_NORMAL );\n\n      if( fhnd != FS_ERROR )\n      {\n         ULONG ulSize = pString-&gt;item.asString.length;\n\n         bRetVal = ( hb_fsWriteLarge( fhnd, ( BYTE * ) pString-&gt;item.asString.value, ulSize ) == ulSize );\n\n         /* NOTE: CA-Clipper will add the EOF even if the write failed. [vszakats] */\n         /* NOTE: CA-Clipper will not return .F. when the EOF could not be written. [vszakats] */\n         #if ! defined(OS_UNIX_COMPATIBLE)\n         {\n            BYTE byEOF = HB_CHAR_EOF;\n\n            hb_fsWrite( fhnd, &amp;byEOF, sizeof( BYTE ) );\n         }\n         #endif\n\n         hb_fsClose( fhnd );\n      }\n   }\n\n   hb_retl( bRetVal );\n}','',0,'QA==','100o87aa',1,0,'',193,0,0),(11500,2630,3,193,0,'195.212.29.179',1144841549,1,0,1,1,1,0,'','','I have pointed out incompatibility of MEMOWRITE() functions between Harbour and xHarbour on xHarbour forum. <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'QA==','tt2rrufz',1,0,'',193,0,0),(11501,2646,20,6,0,'82.59.188.98',1144844908,1,0,1,1,1,1,'','','Il sorgente è incompleto.\n\nEMG','',0,'QA==','2q2a8eae',1,0,'',6,0,0),(11502,2647,6,400,0,'200.205.49.5',1144845522,1,0,1,1,1,1,'','Trocar de Bitmap, ao acessar Funçao, Sbutton ??','Bom dia Amigos,\n\nComo eu faço p/trocar o Bitmap de um Botao com a SButton; ao aciona-lo com uma funçao e ao fechar a funçao retornar o Bitmap original ???\n\nEu de uma olhada no metodo LoadBitmaps(aResource,aFile), mas devo estar fazendo algo errado, pq ao aciona-lo ele deixa o Botao sem imagem, e finalizando a funçao tb fica branco, pode ser q eu nao esteja sabendo usar o metodo certo, alguem teria algum exemplo ou uma dica ???\n\n\n@braços Ale','',0,'QA==','3ckbxseo',1,0,'',400,0,0),(11503,2630,3,247,0,'87.203.106.137',1144847938,1,0,1,1,1,0,'','','[quote=&quot;Vladimir Grigoriev&quot;:2wlj5bvm]I have pointed out incompatibility of MEMOWRITE() functions between Harbour and xHarbour on xHarbour forum. <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:2wlj5bvm]\n\nThank you very much for all your help Vladimir\n\nRegards\n\nA.S.K','',0,'gA==','2wlj5bvm',1,0,'',247,0,0),(11504,2648,6,264,0,'64.116.212.96',1144850049,1,0,1,1,1,0,'','Color de Headers','Me gustaria poner un color distinto al browse cuando este enfocado, esta era mi tecnica:   ( i would like paint a diferent color the headers from the browse, this was my tecnique : )\n\ndesde el browse: ( from the browse() )\n\n   ta:bLostFocus := {|| DejaFoco(ta) }\n   ta:bgotfocus  := {|| TomaFoco(ta) }\n\ny mis funciones:  ( and in my functions )\n\n//---------------------------------------\nFUNCTION tomafoco(ta)\nta:nclrbackhead = CLR_RED\nta:nclrFOREhead = CLR_WHITE\nta:refresh()\nreturn nil\n//---------------------------------------\nFUNCTION dejafoco(ta)\nta:nclrbackhead = GetSysColor( COLOR_BTNFACE ) // CLR_LIGHTGRAY\nta:nclrFOREhead = GetSysColor( COLOR_BTNTEXT ) // CLR_BLACK\nta:refresh()\nreturn nil\n\nPero ahora no logro que ocurra. ( but now d\'nst happens )\nCualquier ayuda sera bien recibida.','',0,'gA==','36xv4s0u',1,0,'',264,0,0),(11505,2649,7,274,0,'200.161.114.186',1144850410,1,0,1,1,1,0,'','Quais versões de WinCE compativeis com FWPPC?','Olá a todos,\n\nestou começando a distribuir um sistema em FWPPC e para alguns clientes o mesmo não funciona.\nO windows diz que falta alguma biblioteca.\nNeste caso é um windows ce 3.0\n\nÉ conhecido quais versões de winCE não poderemos rodar aplicação em FWPPC?\n\nSe quiserem ver o sistema que está em desenvolvimento, tem uma cópia em <!-- m --><a class=\"postlink\" href=\"http://softservice.com/pub/cpp.zip\">http://softservice.com/pub/cpp.zip</a><!-- m -->\n\nFunciona por enquanto Cadastro - Clientes\n\n[]\'s\n\nRogerio','',0,'','23i96jz1',1,0,'',274,0,0),(11506,2650,3,264,0,'64.116.212.96',1144851057,1,0,1,1,1,0,'','blClicked no nos funciona...','Al parecer este codigo ( blClicked referido al dialogo ) no esta funcionando en fwh27, pero en versiones anteriores si funconaba y nos permitia realizar algunas funciones.\n\nDEFINE DIALOG oDlg RESNAME \"CADENADOC\" Of oWnd\n\nodlg:blClicked := {|x,y| msginfo(\"hola\" ) }\nodlg:brclicked := {|| msginfo( \"chao\" ) }\n\nACTIVATE DIALOG.....','',0,'','1ec5umic',1,0,'',264,0,0),(11507,2650,3,264,0,'64.116.212.96',1144851428,1,0,1,1,1,0,'','','compilamos en programa de testmous y solo funciona un DOBLE CLICK IZQUIERDO....\nestara malo ?','',0,'','1x15htil',1,0,'',264,0,0),(11508,2633,3,372,0,'195.193.90.14',1144851608,1,0,1,1,1,0,'','','dbzap: SET ENGLISH ON?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','2yg3e6th',1,0,'',372,0,0),(11509,2646,20,29,0,'81.174.24.57',1144852522,1,0,1,1,1,0,'','','Hai ragione, scusa.\nQuesto è la routine completa.\n\n----\n\nLa classe di controllo e calcolo CIN\n\nHo messo di default che il conto sia calcolato \"normalizzato\" a 12 caratteri con zeri a sinistra.\nVisto che è una funzione poco utilizzata si limita ad eliminare gli spazi dal codice e a formattare il conto a 12 caratteri.\nIl suo utilizzo deve essere pertanto limitato a: \"consentimi di inserire il conto corrente senza zeri davanti, gli zeri che mancano aggiungili tu\".\nSe NON si vuole vengano aggiunti gli zeri sul conto si deve porre a false il campo \"NormalizzaConto\" (bool) prima del calcolo.\n\nEsempio di utilizzo:\n\nClsBancari cls = new ClsBancari();\ncls.Abi = this.txtAbi.Text\ncls.Cab = this.txtCab.Text;\ncls.Cin = this.txtCin.Text;\ncls.ContoCorrente = this.txtCc.Text;\nif (cls.VerificaCin()) \n   MessageBox.Show(\"Corretto\");\nelse\n  MessageBox.Show(\"Cin Calcolato: -\" + cls.CalcolaCin() + \"-\");\n\n---------------------------------------------\n\n\nusing System;\nusing System.Data;\n\nnamespace ProvaModuliCs\n\n{\n\n     /// &lt;summary&gt;\n     /// Description of ClsBancari.\n    /// &lt;/summary&gt;\n\n    public class ClsBancari\n   {\n      public ClsBancari()\n     {\n         mAbi = String.Empty;\n         mCab = String.Empty;\n         mContoCorrente = String.Empty;\n         mCin = String.Empty;\n         mNormalizzaConto = true;\n      }\n      private string mAbi;\n      private string mCab;\n      private string mContoCorrente;\n      private string mCin;\n      private const int L_CONTO = 12;\n      private const int L_ABI = 5;\n      private const int L_CAB = 5;\n      private bool mNormalizzaConto;\n\n\n      public string Abi\n      {\n          get\n        {\n                return mAbi;\n           }\n           set\n           {\n                mAbi = NormalizzaDati(value,L_ABI);\n           }\n      }\n      \n      public string Cab\n      {\n            get\n            {\n                 return mCab;\n            }\n            set\n           {\n                 mCab = NormalizzaDati(value,L_CAB);\n           }\n      }\n\n\n      public string ContoCorrente\n      {\n             get\n             {\n                  return mContoCorrente;\n             }\n             set\n             {\n                 mContoCorrente = value;\n             }\n       }\n\n\n       public string Cin\n       {\n               get\n               {\n                    return mCin;\n               }\n               set\n               {\n                    mCin = value;\n               }\n       }\n\n\n      public bool NormalizzaConto\n      {\n             get\n             {\n                   return mNormalizzaConto;\n             }\n             set\n            {\n                  mNormalizzaConto = value;\n             }\n      }\n\n\n     private string NormalizzaDati(string codice, int lunghezza)\n      {\n            codice = codice.Trim();\n            int k = codice.Length;\n            if (k &lt; lunghezza)\n            {\n                  codice = \"\".PadLeft(lunghezza,\'0\') + codice;\n                  k += lunghezza;\n            }\n            k -= lunghezza;\n            if (k &lt; 0)\n                  k = 0;\n            codice = codice.Substring(k);\n            return codice;\n      }\n\n\n      public string NormalizzaContoCorrente(string contoCorrenteValue)\n      {\n           contoCorrenteValue = contoCorrenteValue.Trim();\n           int k = contoCorrenteValue.IndexOf(\' \');\n           while (k &gt;= 0)\n           {\n                   contoCorrenteValue = contoCorrenteValue.Remove(k,1);\n                   k = contoCorrenteValue.IndexOf(\' \');\n            }\n            return NormalizzaDati(contoCorrenteValue,L_CONTO);\n      }\n\n\n      public bool VerificaCin(string cinCode)\n      {\n             return (cinCode == CalcolaCin());\n       }\n\n\n      public string CalcolaCin()\n      {\n          // costanti e variabili per calcolo pesi\n          const string numeri = \"0123456789\";\n          const string lettere = \"ABCDEFGHIJKLMNOPQRSTUVWXYZ-. \";\n          const int DIVISORE = 26;\n          int[] listaPari = {0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28};\n          int[] listaDispari = {1,0,5,7,9,13,15,17,19,21,2,4,18,20,11,3,6,8,12,14,16,10,22,25,24,23,27,28,26};\n\n\n          // normalizzazione dati\n          if (this.Abi.Length != L_ABI)\n               mAbi = NormalizzaDati(mAbi,L_ABI);\n          if (this.Cab.Length != L_CAB)\n               mCab = NormalizzaDati(mCab,L_CAB);\n          if (this.NormalizzaConto)\n               this.ContoCorrente = NormalizzaContoCorrente(this.ContoCorrente);\n\n          if (this.ContoCorrente.Length != L_CONTO)\n                    this.ContoCorrente = this.ContoCorrente.PadRight(L_CONTO);\n\n\n          // codice normalizzato\n          string codice = this.Abi + this.Cab + this.ContoCorrente;\n\n\n          // calcolo valori caratteri\n          int somma = 0;\n          char[] c = codice.ToUpper().ToCharArray();\n\n           for (int k = 0; k &lt; (L_CONTO + L_ABI + L_CAB); k++)\n           {\n                   int i = numeri.IndexOf(c[k]);\n                   if (i &lt; 0)\n                       i = lettere.IndexOf(c[k]);\n\n                   // se ci sono caratteri errati usciamo con un valore\n                   // impossibile da trovare sul cin\n\n                   if (i &lt; 0)\n                         return Environment.NewLine;\n\n\n                   if ((k % 2) == 0)\n                   {\n                           // valore dispari\n                           somma += listaDispari[i];\n                    }\n                    else\n                   {\n                           // valore pari\n                           somma += listaPari[i];\n                    }\n\n           }\n           return lettere.Substring(somma % DIVISORE,1);\n       }  \n   }\n}','',0,'','1cknf2mm',1,0,'',29,0,0),(11510,2651,6,52,0,'200.127.195.89',1144853104,1,0,1,1,1,1,'','Fuente en GROUP de la REPORT','Estimados,\n\nComo hago para cambiarle la fuente al GROUP de la report?','',0,'','3rdsu6kf',1,0,'',52,0,0),(11511,2652,6,9,0,'85.60.6.77',1144853828,1,0,1,1,1,1,'','fwh y Tutilprn y Timprime TheFull','En mis aplicacion en Clipper + FW, venia utilizando la clases de TheFull para imprimir TUTILPRN y TIMPRIME.- Al pasar la aplicación a 32 bit no funciona. ¿Alguien se ha encontrado con este problema?\n\nMuchas gracias','',0,'','312vnx7i',1,0,'',9,0,0),(11512,2651,6,103,0,'200.164.92.242',1144853834,1,0,1,1,1,0,'','','Goosfancito,\n\n     DEFINE FONT oFont1 NAME \"Courier New\" SIZE 0,-10\n     DEFINE FONT oFont2 NAME \"Arial\"       SIZE 0,-12 BOLD\n     DEFINE FONT oFont3 NAME \"Courier New\" SIZE 0,-10\n\n     REPORT oReport NAME \"Relatório Geral do Estoque\" ;\n          TITLE  cEmpres,;\n                 \"Relatório Geral do Estoque\",;\n                 \"\",;\n                 \"\" ;\n          FONT   oFont1,;\n                 oFont2,;\n                 oFont3 ;\n          PEN    oPen1,;\n                 oPen2 ;\n          HEADER \"Página.: \"+str(oReport:nPage,3), ;\n                 \"Data: \"+dtoc(date()), ;\n                 \"Hora: \"+time()  RIGHT ;\n          PREVIEW\n     \n     .....\n     .....\n\n     GROUP ON left(PRO-&gt;codi,2) ;\n          HEADER \"Grupo..: \"+GRU-&gt;codg+\" - \"+GRU-&gt;nome ;\n          FOOTER \"Total..: \"+str(oReport:aGroups[1]:nCounter) ;\n          FONT 2\n\n\nSaludos,','',0,'','16butcln',1,0,'',103,0,0),(11513,2633,3,264,0,'64.116.212.96',1144853915,1,0,0,0,1,0,'','','sorry for my english....\nneed some translations ?  :lol:','',0,'','gmmg4ync',1,0,'',264,0,0),(11514,2651,6,52,0,'200.127.195.89',1144853942,1,0,1,1,1,1,'','','Graciosqui (Gracias che)','',0,'','27yexgw8',1,0,'',52,0,0),(11515,2632,2,301,0,'201.138.198.52',1144854657,1,0,1,1,1,0,'','','Gracias Daniel,\n\nNO me ha llegado tu correo pero yo creo que no me explique bien. Yo La necesito poder abrir la BD con FW y manupularla... en otras palabras necesito saber como le puedo hacer para trabajar con ella. Yo la puedo abriar y ver su contenido con execel y ODBC y con otro programa que se llama dbfviewer2000. Pero la necesito abrirr con un programa hehco con FW para poder trabajar con ella en el proyecto que estoy.\n\nGracias por tu ayuda\n\nSaludos\nRene','',0,'','2lu7pobk',1,0,'',301,0,0),(11516,2646,20,6,0,'82.59.188.98',1144856764,1,0,1,1,1,1,'','','Prova questo e fammi sapere se funziona:\n\n[code:18yqrqal]FUNCTION MAIN&#40;&#41;\n\n    LOCAL cAbi &#58;= &quot;12345&quot;\n    LOCAL cCab &#58;= &quot;67890&quot;\n    LOCAL cCon &#58;= &quot;000000012345&quot;\n\n    ? CALCOLACIN&#40; cAbi, cCab, cCon &#41;\n\n    RETURN NIL\n\n\nFUNCTION CALCOLACIN&#40; cAbi, cCab, cCon &#41;\n\n    LOCAL aPari &#58;= &#123; 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28 &#125;\n    LOCAL aDisp &#58;= &#123; 1, 0, 5, 7, 9, 13, 15, 17, 19, 21, 2, 4, 18, 20, 11, 3, 6, 8, 12, 14, 16, 10, 22, 25, 24, 23, 27, 28, 26 &#125;\n\n    LOCAL cNume &#58;= &quot;0123456789&quot;\n    LOCAL cLett &#58;= &quot;ABCDEFGHIJKLMNOPQRSTUVWXYZ-&#46; &quot;\n\n    LOCAL cCod &#58;= UPPER&#40; cAbi + cCab + cCon &#41;\n\n    LOCAL nSomma &#58;= 0\n\n    LOCAL i, n\n\n    FOR i = 1 TO LEN&#40; cCod &#41;\n        n = AT&#40; SUBSTR&#40; cCod, i, 1 &#41;, cNume &#41;\n\n        IF n = 0\n            n = AT&#40; SUBSTR&#40; cCod, i, 1 &#41;, cLett &#41;\n        ENDIF\n\n        IF i % 2 = 0\n            nSomma += aPari&#91; n &#93;\n        ELSE\n            nSomma += aDisp&#91; n &#93;\n        ENDIF\n    NEXT\n\n    RETURN SUBSTR&#40; cLett, &#40; nSomma + 1 &#41; % 26, 1 &#41;[/code:18yqrqal]\n\nEMG','',0,'AIA=','18yqrqal',1,0,'',6,0,0),(11517,2653,3,264,0,'64.116.212.96',1144858087,1,0,1,1,1,0,'','Ventana en negro bajo mi app 32Bits','Tengo mi aplicacion en 32bits y en windows 98 aparece una pantalla negra bajo mi aplicacion ?.\nAlguna idea para eliminarla ?\nGracias.\n\nMy 32bits app, works fine, but in w98 appers a black window, anybody knows why ? and how makes disapears ?\n\ntnks\n(sorry...english !!)','',0,'AIA=','22r59cv3',1,0,'',264,0,0),(11518,2633,3,9,0,'85.60.6.77',1144859807,1,0,1,1,1,1,'','','Apologize John. It has been my fall. \n\nRegards','',0,'AIA=','sgs8uioh',1,0,'',9,0,0),(11519,2650,3,9,0,'85.60.6.77',1144860564,1,0,1,1,1,1,'','','I believe will be better if you insert your messages in the spanish forum. \n\nspanish translate:\nCreo que es mejor que publiques tus mensajes en el Foro en Español. Está un poco mas abajo.','',0,'AIA=','dppd5zi0',1,0,'',9,0,0),(11520,2654,6,492,0,'201.154.128.197',1144860804,1,0,1,1,1,1,'','Diferentes degrados de color en ToolBar y dialogo','Antonio :\n\nSigo con mis degrados  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  (no lo puedo evitar, me fascinan )\n\nQuisiera aplicar un color diferente a la ToolBar y otro al Dialogo, pero como el dialogo es contenedor de la barra de botones les aplica a los 2 el mismo degrado tanto en color como en tamaño, hay alguna forma de separar esto ?\n\nEste es el degrado a la ToolBar :\n[img:19my4gir]http&#58;//img403&#46;imageshack&#46;us/img403/8789/degrbar0jx&#46;jpg[/img:19my4gir]\n\nY asi sale cuando le aplico el degrado al dialogo :\nAun cuando le defino diferentes colores y tamaño\n[img:19my4gir]http&#58;//img137&#46;imageshack&#46;us/img137/5362/degrdlg9cy&#46;jpg[/img:19my4gir]\n\n\nMuchas Gracias y Saludos','',0,'CA==','19my4gir',1,0,'',492,0,0),(11521,2652,6,492,0,'201.154.128.197',1144861157,1,0,1,1,1,1,'','','Hola Manuel\n\nEstas exactamente en la misma situacion que tu servidor, no he podido echar andar esas estupendas clases en 32 bits, ojala un guru o el propio TheFull, nos apoyara en ese punto.\n\nSaludos','',0,'CA==','3p9azgs3',1,0,'',492,0,0),(11522,2649,7,2,0,'87.218.146.223',1144861203,1,0,1,1,1,1,'','','Rogerio,\n\nPara que te funcione en WinCE, incluye estas funciones en tu PRG:\n\nfunction CeSetmenu() ; return nil\nfunction GetMenu() ; return nil\nfunction ReadBitmap() ; return nil\nfunction PalBmpRead() ; return nil','',0,'CA==','1qz0ttum',1,0,'',2,0,0),(11523,2652,6,9,0,'85.60.6.77',1144861991,1,0,1,1,1,1,'','','Raymundo,\n\nA mi me da error los Box.- Me dice \"La aplicación GDI.EXE no es una imagen válida\".\n\n¿Que error te da a tí?.\n\nLe he enviado un email a Rafa Carmona, por si pudiera echarnos una mano.','',0,'CA==','1x69vu0z',1,0,'',9,0,0),(11524,2649,7,274,0,'200.161.114.186',1144862529,1,0,1,1,1,0,'','','Antonio\n\ncom essas funções, o menu não é desenhado.\n\n\n[]\'s\n\nRogerio','',0,'','2b08jceh',1,0,'',274,0,0),(11525,2655,6,264,0,'64.116.212.96',1144862738,1,0,0,0,1,0,'','blClicked en DIALOG no funciona...','Al parecer este codigo ( blClicked referido al dialogo ) no esta funcionando en fwh27, pero en versiones anteriores si funcionaba y nos permitia realizar algunas funciones. \n\nDEFINE DIALOG oDlg RESNAME \"CADENADOC\" Of oWnd \n\nodlg:blClicked := {|x,y| msginfo(\"hola\" ) } \nodlg:brclicked := {|| msginfo( \"chao\" ) } \n\nACTIVATE DIALOG.....','',0,'','cwvovdrm',1,0,'',264,0,0),(11526,2653,3,2,0,'87.218.146.223',1144862940,1,0,1,1,1,1,'','','Please add this code to your app: Añade este código a tu aplicación,\n[code:dfe2rbqi]\n#ifdef __XHARBOUR__\nproc GTSYS&#40;&#41;\nreturn\n#else\nproc HB_GTSYS&#40;&#41;\nreturn\n#endif\nproc HB_GT_DEFAULT_NUL&#40;&#41;\nreturn\n[/code:dfe2rbqi]','',0,'AIA=','dfe2rbqi',1,0,'',2,0,0),(11527,2650,3,2,0,'87.218.146.223',1144863368,1,0,1,1,1,1,'','','Con FWH 2.7 build abril funciona ok.','',0,'AIA=','3hqgjgrp',1,0,'',2,0,0),(11528,2649,7,2,0,'87.218.146.223',1144863436,1,0,1,1,1,1,'','','Rogerio,\n\nSí, no puedes usar el menu del Pocket PC. \n\nTenemos que probar si podemos usar otro tipo de menús en WinCE.','',0,'AIA=','2czq64wf',1,0,'',2,0,0),(11529,2655,6,2,0,'87.218.146.223',1144863467,1,0,1,1,1,1,'','','Funciona correctamente con FWH 2.7 build abril 2006','',0,'AIA=','3d3446cn',1,0,'',2,0,0),(11530,2650,3,264,0,'64.116.212.96',1144864065,1,0,1,1,1,0,'','','Antonio, i modify the testmous.prg, ( i need a dialog )\nBut doens\'t work \nAny Worng\n\n(Antonio, modifique el codigo, (necesito un dialogo ), pero no funciono. )\n\n\n// Testing the Mouse events\n#include \"FiveWin.ch\"\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   * DEFINE WINDOW oWnd TITLE \"Testing the Mouse\"\n   DEFINE DIALOG oWnd FROM 5,10 TO 24, 55 TITLE \"dialog\"\n\n   oWnd:bLClicked    = { | nRow, nCol, nFlags |  oWnd:Say( 2, 2,  \"oWnd:bLClicked\" ) }\n   oWnd:bLButtonUp   = { | nRow, nCol, nFl8ags | oWnd:Say( 3, 2, \"LButtonUp    \" ) }\n   oWnd:bMButtonDown = { | nRow, nCol, nFlags |  oWnd:Say( 4, 2,  \"MButtonDown\" ) }\n   oWnd:bMButtonUp   = { | nRow, nCol, nFl8ags | oWnd:Say( 5, 2, \"MButtonUp    \" ) }\n   oWnd:bRClicked    = { | nRow, nCol, nFlags |  oWnd:Say( 6, 2,  \"RButtonDown\" ) }\n   oWnd:bRButtonUp   = { | nRow, nCol, nFlags |  oWnd:Say( 7, 2,  \"RButtonUp    \" ) }\n   oWnd:bMMoved      = { | nRow, nCol, nFlags |  MsgBeep() }\n   oWnd:bLDblClick   = { | nRow, nCol, nFlags |  MsgInfo( \"Left Doble Click\" ) }\n\n   *SET MESSAGE OF oWnd TO \"Press any mouse button\" CENTERED\n\n   ACTIVATE DIALOG oWnd\n   *ACTIVATE WINDOW oWnd\n\nreturn nil','',0,'AIA=','3hg7cgna',1,0,'',264,0,0),(11531,2652,6,492,0,'201.154.128.197',1144864197,1,0,1,1,1,1,'','','Sip, parecido, al parecer se topa con alguna otra funcion RoundRect que existe en algun otro archivo y el que manda llamar al GDI.EXE, y entra en conflicto.','',0,'AIA=','1carlc54',1,0,'',492,0,0),(11532,2649,7,274,0,'200.161.114.186',1144864197,1,0,1,1,1,0,'','','Antonio\n\nou então poderíamos restringir às versões do windows em que o sistema rodaria sem problemas.\n\nEntão voltamos à pergunta inicial: quais versões do windows não são recomendáveis? Qual o requisito mínimo para que um sistema em FWPPC rode sem problemas?\n\n[]\'s\n\nRogerio','',0,'','1carlc54',1,0,'',274,0,0),(11533,2656,3,148,0,'196.205.181.90',1144865272,1,0,1,1,1,0,'','set scope','Please send english samples of set scope to my gmail.\nThis my scope : set filter to &amp;(cfilter)\n\n\n[code:343773uf]\na_fields&#91;1&#93;&#58;=&quot;4-&gt;me_mc_serl&quot;\na_fields&#91;2&#93;&#58;=&quot;4-&gt;me_mc_brn&quot;\n\n\na_vars&#91;1&#93;&#58;=V_me_SERIAL\na_vars&#91;2&#93;&#58;=V_mc_brn\n\n\n cValue &#58;= &quot;&quot;\n cFilter &#58;= &quot;&quot;\n\n For i &#58;= 1 to 2\n\n     IF Empty&#40;a_Vars&#91;i&#93;&#41;     &amp;&amp; Don\'t process empty variables\n         LOOP\n     ENDIF\n\n     DO CASE            &amp;&amp; Create char value\n         CASE &#40;VALTYPE&#40;a_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;and&#46; a_vars&#91;i&#93;==V_me_START_D&#41;;\n         &#46;or&#46; &#40;VALTYPE&#40;a_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;and&#46; a_vars&#91;i&#93;==V_me_in_d&#41;\n                 cValue &#58;= \'DTOS&#40;\' + a_Fields&#91;i&#93; + \'&#41; == &quot;\' + DTOS&#40;a_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==5\n                 cValue &#58;= \'DTOS&#40;\' + a_Fields&#91;i&#93; + \'&#41; &gt;= &quot;\' + DTOS&#40;a_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==6\n                 cValue &#58;= \'DTOS&#40;\' + a_Fields&#91;i&#93; + \'&#41; &lt;= &quot;\' + DTOS&#40;a_Vars&#91;i&#93;&#41; + \'&quot;\'\n\n         CASE VALTYPE&#40;a_vars&#91;i&#93;&#41; == &quot;N&quot;\n             cValue &#58;= \'STR&#40;\' + a_Fields&#91;i&#93; + \'&#41; == &quot;\' + STR&#40;a_vars&#91;i&#93;&#41; + \'&quot;\'       &amp;&amp; or\n* some other NUM-&gt;Chr conversion\n         CASE VALTYPE&#40;a_vars&#91;i&#93;&#41; == &quot;C&quot;\n             cValue &#58;=&quot;alltrim&#40;upper&#40;&quot;+ a_Fields&#91;i&#93;+&quot;&#41;&#41;&quot; + \'==&quot;\' + alltrim&#40;upper&#40;a_Vars&#91;i&#93;&#41;&#41; + \'&quot;\'\n     ENDCASE\n     IF Empty&#40;cFilter&#41;     &amp;&amp; this is the first element\n         cFilter &#58;=  cValue\n     ELSE\n         cFilter += &quot; &#46;AND&#46; &quot; + cValue\n     ENDIF\n NEXT\n\n\nset filter to &amp;&#40;cfilter&#41;\n[/code:343773uf]','',0,'AIA=','343773uf',1,0,'',148,0,0),(11534,2644,6,295,0,'200.112.82.204',1144865614,1,0,1,1,1,1,'','','Antonio,\n\nPor qué la toolbar solo permite los bitmaps que estan definidos en la RC de los ejemplos que me indicaste? si trato de colocar uno definido dentro de la RC de mi aplicacion este no aparece y además los bitmaps de los ejemplos no se pueden editar con workshop, aparece el mensaje:\nunknow bitmap format\n\nGRACIAS DE ANTEMANO POR TU AYUDA','',0,'AIA=','1zgye6ua',1,0,'',295,0,0),(11535,2657,6,212,0,'200.125.2.47',1144866368,1,0,1,1,1,0,'','Error PCODE 5','Colegas del foro, estoy intentando pasarme a xHarbour 0.99.51 y FWH26, uso wbrowse,tsbrowse,tsbutton y btnget, estas clases fueron recompiladas nuevamente para esta versión de fwh y xharbour, la única que da errores es tsbutton pero la genera, recompilé todo el proyecto sin errores, pero al ejecutarlo tengo el error:\n\n[url=http&#58;//imageshack&#46;us:2yq4q8n9][img:2yq4q8n9]http&#58;//img459&#46;imageshack&#46;us/img459/3858/compila17cg&#46;jpg[/img:2yq4q8n9][/url:2yq4q8n9]\n\nTengo en mi proyecto otras clases también las que recompilo junto con mis fuente ya que las tengo como parte del proyecto, estas son Dialog.prg, Printer.prg,Report.prg, Tget.prg,Window.prg, a estas las uso porque le he hecho pequeñas modificaciones.\nLos path estan bien, c:\\xHarbour (0.99.51) y c:\\FWH26, esto está más que revisado.\n\n[url=http&#58;//img459&#46;imageshack&#46;us/my&#46;php?image=compila3ky&#46;jpg:2yq4q8n9][img:2yq4q8n9]http&#58;//img459&#46;imageshack&#46;us/img459/8266/compila3ky&#46;th&#46;jpg[/img:2yq4q8n9][/url:2yq4q8n9]\n\nTodo esto comenzó cuando intenté recompilar los fuente spara generar rddads.lib y seguí para adelante así cambiaba todo, pero por ahora pretendo que al menos funcione con FWH26 y xHarbour 0.99.51.\nAgrazco mucho su ayuda.','',0,'GA==','2yq4q8n9',1,0,'',212,0,0),(11536,2658,3,529,0,'200.159.199.16',1144873960,1,0,1,1,1,0,'','twbrowse last version','where i found the last version of twbrowse (hernan), is fwh27 come with this??? i dont understand, fwh incorporated twbrowse or not??\nthanks','',0,'GA==','309p6r3s',1,0,'',529,0,0),(11537,2659,6,519,0,'83.33.8.15',1144874340,1,0,1,1,1,0,'','Impresoras Multifucion ?','Hola\n\n   Tengo una impresora HP 7300 Multifuncion y no hay forma de poder imprimir,  la mayoria de las veces no hace nada y otras te lo va envias por fax, alguien tiene alguna idea de como se puede solucionar esto  ? fwh da problemas en este tipo de impresoras  ?, todos los programas funcionan perfectamente menos el mio que esta desarrolado en fwh.\n\n\n un saludo y gracias\n\n Fwh 2.6 + xharbour','',0,'GA==','3bfl7tzp',1,0,'',519,0,0),(11538,2660,3,530,0,'201.114.224.202',1144877299,1,0,1,1,1,0,'','Update to New FWH and ActiveX','I have fwh 2.4 (xHarbour.org) and I want to use ActiveX events (Fingerprint recognition), What do I need? Just Latest FWH for xHarbour, Do I need xHarbour.COM ?\n\n I have a runnig sample with VB 6 with events using finger print recognition, How many chances are to translate that code with latest FWH with events?\n\nThanks in advance and Regards\nFco Gamboa <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'GA==','1cblju96',1,0,'',530,0,0),(11539,2649,7,2,0,'87.218.146.223',1144877816,1,0,1,1,1,1,'','','Rogerio,\n\nExisten dos tipos distintos de máquinas: WinCE (PDAs) y Windows Mobile (Pocket PCs).\n\nWinCE suele ser usada en máquinas industriales (PDAs), mientras que los Pocket PCs son más orientados a todo tipo de usuarios. Desafortunadamente Microsoft no los ha hecho totalmente compatibles. \n\nAl desarrollar una aplicación debes tener en cuenta si va a ser usada por WinCE ó en Pocket PCs, ó en ambas.','',0,'GA==','35eufm5e',1,0,'',2,0,0),(11540,2644,6,2,0,'87.218.146.223',1144877956,1,0,1,1,1,1,'','','Luis,\n\nEsos ejemplos usan bitmaps externos que has de editar directamente, abriéndolos como bitmaps. No desde el RC.','',0,'GA==','przmmrbv',1,0,'',2,0,0),(11541,2649,7,274,0,'200.161.114.186',1144878295,1,0,1,1,1,0,'','','Ok, Antonio\n\nporém como saber quais recursos de FWPPC podem ser usados com winCE e quais podem ser usados com WinMobile?\n\nPelo visto, winCE é mais antigo e nos novos equipamentos é disponível WinMobile, certo?\n\nEntão, talvez não seja interessante criar um aplicativo para hardware antigo.\n\n[]\'s\n\nRogerio','',0,'','2gkyw3j0',1,0,'',274,0,0),(11542,2661,7,527,0,'88.11.7.7',1144878683,1,0,1,1,1,0,'','Ventana para mostrar clientes e impresiones.','Como puedo abrir una ventana nueva dentro de otra ventana para mostrar una lista de clientes por ejemplo.\n\nPor otro lado alguien ha probado que se puede imprimir en una impresora un documento desde la pokect.\n\nGracias por vuestras contestaciones.','',0,'','p05z12k3',1,0,'',527,0,0),(11543,2644,6,295,0,'200.112.87.116',1144878952,1,0,1,1,1,1,'','','Antonio,\n\nsolucionado, los bitmaps de mi RC que uso para la toolbar los deje de 32X32 todos por igual y ahora aparecen todos, no asi si hay uno menor o mayor a los 32x32 definidos en el prg.. ahi no funciona\n\nGracias anyway por tu atención <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nSALUDOS\nxHabrazos','',0,'','3p4h6bnh',1,0,'',295,0,0),(11544,2656,3,266,0,'60.50.53.238',1144879626,1,0,1,1,1,1,'','','i think this is the correct one :-\n\nset filter to &amp;cfilter\n\nor\n\nset filter to (cfilter)','',0,'','2awajgd0',1,0,'',266,0,0),(11545,2651,6,52,0,'200.127.195.89',1144879889,1,0,1,1,1,1,'','','Estimados, de nuevo yo con la REPORT\n\nComo hago para que el espacio entre linea y linea del cuerpo del report sea mas grande? sin cambiar el tipo de letra.\n\nnecesito ( hablando crudo ) un espacio interlineal mas grande.','',0,'','1f7eyshv',1,0,'',52,0,0),(11546,2652,6,9,0,'85.60.6.77',1144902831,1,0,1,1,1,1,'','','Raymundo,\n\nGDI (Graphic Device Interface) lo utiliza Windows para aplicaciones de 16 bit. Simplemente tiene que sustituir en la clase GDI.EXE por  GDI32.DLL\n\nA mi, ya me funciona aunque ahora estoy peleando con SAYIMAGE.','',0,'','dni0g1su',1,0,'',9,0,0),(11547,2649,7,2,0,'87.218.146.223',1144909111,1,0,1,1,1,1,'','','Rogerio,\n\nLa diferencia más importante es que WinCE no dispone de aygshell.dll, por lo que se trataría de construir una aplicación con FWPPC que no enlazase aygshell.lib. Por lo menos hasta hace poco. Con Microsoft los cambios son constantes <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSi, WinCE es más antiguo que Windows Mobile para Pocket PCs.','',0,'','jpzcr706',1,0,'',2,0,0),(11548,2661,7,2,0,'87.218.146.223',1144909310,1,0,1,1,1,1,'','','Manuel,\n\nTienes un ejemplo de ventanas anidadas en samples\\nested.prg\n\nAunque te sería más fácil usar cajas de diálogo desde la ventana principal (como se hace en el ejemplo samples\\clients\\client.zip), en vez de abrir nuevas ventanas.','',0,'','70felwb6',1,0,'',2,0,0),(11549,2661,7,2,0,'87.218.146.223',1144909453,1,0,1,1,1,1,'','','Manuel,\n\nSi, se puede imprimir correctamente. Lo único es que necesitas un adaptador bluetooth para la impresora a usar y establecer la conexión bluetooth entre el Pocket PC y la impresora.\n\nBusca la palabra \"imprimir\" en la sección de FWPPC de estos foros y lee lo que se ha hablado de este tema.','',0,'','2nko83z7',1,0,'',2,0,0),(11550,2652,6,2,0,'87.218.146.223',1144909589,1,0,1,1,1,1,'','','Manuel,\n\nPuedes alojar esas clases en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y proporcionar aqui el enlace de descarga ? gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','6snuyvy9',1,0,'',2,0,0),(11551,2660,3,2,0,'87.218.146.223',1144909767,1,0,1,1,1,1,'','','Fco,\n\n&gt;\nI have fwh 2.4 (xHarbour.org) and I want to use ActiveX events (Fingerprint recognition), What do I need? Just Latest FWH for xHarbour, \n&gt;\n\nYes,\n\n&gt; Do I need xHarbour.COM ? \n\nNo, not for this reason.\n\n&gt;\nI have a runnig sample with VB 6 with events using finger print recognition, How many chances are to translate that code with latest FWH with events?\n&gt;\n\nMany <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','onhdfj5u',1,0,'',2,0,0),(11552,2658,3,2,0,'87.218.146.223',1144909863,1,0,1,1,1,1,'','','Norberto,\n\nYou may download it from these forums at <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2502\">http://fivetechsoft.com/forums/viewtopic.php?t=2502</a><!-- m -->\n\nNo, Hernan\'s browse is not included in FWH (yet).','',0,'','fklptra0',1,0,'',2,0,0),(11553,2657,6,2,0,'87.218.146.223',1144909996,1,0,1,1,1,1,'','','Ese error te aparece porque tienes algún OBJ compilado con una versión de xHarbour distinta. Borra todos los OBJ y LIBs que contengan OBJs de PRGs y vuelve a compilarlos.','',0,'','242mx5su',1,0,'',2,0,0),(11554,2648,6,2,0,'87.218.146.223',1144910137,1,0,1,1,1,1,'','','Los \"headers\" se estan dibujando ahora usando los temas de XP, por lo que de momento no les puedes cambiar el color.','',0,'','vdn3ttb8',1,0,'',2,0,0),(11555,2644,6,2,0,'87.218.146.223',1144910198,1,0,1,1,1,1,'','','Luis, \n\nSi, cierto, esa es una restricción que impone el uso de ImageLists.','',0,'','3czvhdlx',1,0,'',2,0,0),(11556,2659,6,2,0,'87.218.146.223',1144910281,1,0,1,1,1,1,'','','Prueba un ejemplo como samples\\TestPrn2.prg. Te debería funcionar correctamente. Aqui lo usamos en impresoras multifunción (canon) y funciona correctamente.','',0,'','1pku017n',1,0,'',2,0,0),(11557,2654,6,2,0,'87.218.146.223',1144910415,1,0,1,1,1,1,'','','Raymundo,\n\nPuedes publicar el código de un ejemplo pequeño y autocontenido (completo!) para que podamos probarlo ? gracias.','',0,'','39evy7z3',1,0,'',2,0,0),(11558,2609,1,170,0,'213.103.217.123',1144913651,1,0,1,1,1,1,'','','If you keep the same memo block size than ADS, the dbf files\nare the same between ADS and Comix. But i have read this in ADS\ndocumentation : the system locking is different, and because this\nyou can not use at the same time ADS RDD with an application\nand Comix in other application, for the same database.\n\n\nRegards,','',0,'','1dx4zzu6',1,0,'',170,0,0),(11559,2660,3,15,0,'203.73.7.52',1144915094,1,0,1,1,1,0,'','','Hi\n\nI have Fingerprint hardware and LIB support FWH.\nNow, running in my application within MySQL.\n\nRegards,\n\nRichard\nFivetech.net Taiwan\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'','2ghdhih0',1,0,'',15,0,0),(11560,2646,20,29,0,'81.174.24.57',1144916923,1,0,1,1,1,0,'','','Grazie. Funziona perfettamente.\n\nSaluti\n\nMarco Turco','',0,'','2lq9x5ad',1,0,'',29,0,0),(11561,2649,7,490,0,'81.44.195.149',1144920000,1,0,1,1,1,0,'','','Antonio,\n\nNosotros linkamos aygshell.lib y funcionan en Mobile y CE indistintamente.\n\nLo que sí, puede ser debido a que usan WinCE 5.0, que es el que están trayendo actualmente las PDA´s industriales y MS lo ha implementado.\n\n\nUn Saludo,\nJoaquín','',0,'','3eifbbma',1,0,'',490,0,0),(11562,2662,6,490,0,'81.44.195.149',1144920750,1,0,1,1,1,0,'','Varios problemas con la migración a 32b','Antonio,\n\nExisten unos detallitos, que no nos permiten tener toda la aplicación al 100% en xHB, creo que no son de muy difícil solución, pero ahí están.\n\n1) Nos ocurre que un ButtonBmp, el texto sale encima del Bmp, por lo que después de leer en el foro y ver el fuente de TButtonBmp , ponemos nLeft a 5 por ejemplo, todo parece que va bien, pero ahora al pulsar la tecla ALT desaparece cualquier contenido de dicho botón. Esto parece ser que fue un bug solucionado antes de adquirir la librería, pero parece que el fuente es antiguo y no corresponde con la lib.\n\n2) Los diálogos volvían a no quitar la ? de la ayuda, nos enviastes un dialog.prg que solucionaba el problema, pero ahora ha surgido otro.\nArrancas el diálogo y pinchas en cualquier parte y sale el msginfo() de windows diciendo no Help File... ¿Como desactivamos ese mensaje?\n\n\nUn Saludo,\nJoaquín','',0,'','2qto1urw',1,0,'',490,0,0),(11563,2660,3,266,0,'60.50.48.151',1144920950,1,0,1,1,1,1,'','','Richard,\n\nCan you mail me the Fingerprint hardware relevant info and price list ?\n\nHow long distance (in meters) it can extend to ? \neg: from factory maingate to admin office\n\n\nAlso do you have palm/pocket pc mobile printer (for printing 2\" or 3\" receipt) ? plz send me info too.\n \n\nRegards\nHoe','',0,'','139ugt5a',1,0,'',266,0,0),(11564,2652,6,24,0,'80.37.55.44',1144923194,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:31mkpiod]Raymundo,\n\nA mi me da error los Box.- Me dice \"La aplicación GDI.EXE no es una imagen válida\".\n\n¿Que error te da a tí?.\n\nLe he enviado un email a Rafa Carmona, por si pudiera echarnos una mano.[/quote:31mkpiod]\n\nYa te envie las clases <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> para 32 bits.\nSeria cojonudo que Mister Antonio las incluyera como contrib en Fivewin,\n¿Antonio ?, tienes mi total consentimiento, como siempre <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->, en coger lo que done a la comunidad y ponerlo en Fivewin.\n\nLa solucion es la siguiente, en la clase TUtilPrn , poneis esto:\n******************************************************************************\n******************************************************************************\n#IFDEF __HARBOUR__\n   DLL FUNCTION RoundRect( hDC AS LONG, ;\n              iLeft AS _INT , iTop AS _INT, ;\n              iRight AS _INT, iBottom AS _INT, ;\n              iWidth AS _INT, iHeight AS _INT ) AS BOOL PASCAL LIB \"GDI32.DLL\"\n#ELSE\n   DLL FUNCTION RoundRect( hDC AS WORD, ;\n              iLeft AS _INT , iTop AS _INT, ;\n              iRight AS _INT, iBottom AS _INT, ;\n              iWidth AS _INT, iHeight AS _INT ) AS BOOL PASCAL LIB \"GDI.EXE\"\n#ENDIF\n\nSeria interesante que Fivewin imlemente esta funcion, si no lo hace ya, porque de esto hace muchisimo tiempo <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos\nRafa Carmona','',0,'gA==','31mkpiod',1,0,'',24,0,0),(11565,2652,6,9,0,'85.60.6.77',1144925869,1,0,1,1,1,1,'','','Muchas gracias Rafa. Aquí va el link para bajar las clases:\n\n\n <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02744eda18/timprime.rar.html\">http://hyperupload.com/download/02744ed ... e.rar.html</a><!-- m -->','',0,'gA==','2skiqnpw',1,0,'',9,0,0),(11566,2663,7,527,0,'83.55.39.172',1144926509,1,0,1,1,1,0,'','ERROR EN UNA FUNCION','Por que me da error esta linea esta funcion cuando coloco en la \ndefinicion de la ventana la clausula FROM\nFUNCTION browse_clientes()\n   DEFINE WINDOW oclie TITLE \"Clientes\" FROM 2,0 TO 24,240\n   SELECT CLIENTE                                         \n   @ 2,0 LISTBOX oBrw FIELDS FIRST, LAST COLSIZES 180,180; \n   HEADERS \"Nombre\",\"Teléfono\" SIZE 240,175\n   *FONT ofont\n   *ON DBLCLICK Eligefichacli(); \n   ACTIVATE WINDOW oclie\nRETURN 0','',0,'gA==','14mbz7sx',1,0,'',527,0,0),(11567,2572,6,349,0,'200.56.201.208',1144927448,1,0,1,1,1,0,'','como tengo que programar ?','xHarbour, e el conpilador,  FW27 son las LIB, BCC55 es linker\n\nQue tengo que cambiar ?','',0,'gA==','tkm1hvw6',1,0,'',349,0,0),(11568,2572,6,349,0,'200.56.201.208',1144928482,1,0,1,1,1,0,'','Como tengo que Programar ?','[quote=&quot;Antonio Linares&quot;:1683ae18]Sí, está programado así. Tendriamos que modificarlo para conservar el factor de zoom.[/quote:1683ae18]','',0,'gA==','1683ae18',1,0,'',349,0,0),(11569,2654,6,362,0,'200.168.52.156',1144928666,1,0,1,1,1,1,'','','// COLOR DEGRADADO EN WINDOWS\n\n#include \"Fivewin.ch\"\n\nstatic oWnd\n\n/* Degradado en una ambiente MDI. Ventana Padre.\n    Fijate como en un Ambiente MDI,la padre ,debemos pasarle a la\n    funcion del degradado , oWnd:oWndClient.\n*/\nFunction Main()\n  Local nColor := 73647364737\n\n  DEFINE WINDOW oWnd MDI TITLE \"Pasate por <!-- m --><a class=\"postlink\" href=\"http://www.getex.net/gentefive\">http://www.getex.net/gentefive</a><!-- m -->\";\n             MENU BuildMenu( )\n\n  ACTIVATE WINDOW oWnd ;\n  ON PAINT FillWnd( oWnd:oWndClient, nColor )\n\nReturn Nil\n\nStatic Func BuildMenu( )\n  Local oMenu\n  MENU oMenu\n    MENUITEM \"Muestras de Degradado\"\n    MENU\n     MENUITEM \"Sobre una MDI\" ACTION ( WndMdi( ) )\n     MENUITEM \"Sobre un Dialogo Dialog\" ACTION ( Dial( ) )\n     MENUITEM \"Sobre una MDI con Folder\" ACTION ( Folders( ) )\n   ENDMENU\n  ENDMENU\nreturn oMenu\n\n/* Degradado en una Ventana hija MDI\n    Usamos el evento ON PAINT para este menester.\n    No me dirás que no tiene nada de complicado y que\n    más simple imposible\n    Si pulsas el boton izquiedo del mouse puedes cambiar\n    el color en tiempo de ejecucion\n*/\nFunction WndMdi( )\n  Local oWndChild\n  Static nColor := 342342342\n\n  DEFINE WINDOW oWndChild MDICHILD TITLE \" Queda majo,la cosa ? \" OF oWnd ;\n    ACTIVATE WINDOW oWndChild ;\n    ON PAINT FillWnd( oWndChild , nColor ,,2 ) ;\n    ON LEFT CLICK ( nColor := ChooseColor() ,;\n    FillWnd( oWndChild , nColor,,2 ) )\n\nreturn nil\n\n\n/* Degradado en un Dialog normal y corriente */\nFunction Dial()\n  Local oDlg\n  Static nColor := 160002999\n\n  DEFINE DIALOG oDlg TITLE \"The GenteFive\" OF oWnd\n\n  ACTIVATE DIALOG oDlg CENTER ;\n    ON PAINT FillWnd( oDlg , nColor ,,1 ) ;\n    ON LEFT CLICK ( nColor := ChooseColor() ,;\n    FillWnd( oDlg , nColor,,1 ) )\n\nreturn nil\n\n/* Degradados en un Folder.\n    Atentos. Aqui debemos de hacer dos trampas <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n    Primero el Folder debe de coger el color que vayamos a degradar y\n    segundo , debemos de modificar el evento ON PAINT de todos los\n    dialogos que componen el Folder\n*/\nFunction Folders()\n  Local oWndChild,oFld\n  Local nColor := 4545454543\n\n  DEFINE WINDOW oWndChild MDICHILD TITLE \"Folders en MDI \" OF oWnd\n\n/*1 Truco. Ya que el pintado del Folder es una funcion en C\n   y ha mi no me gusta tocar nada, le pasamos el color escogido para\n   que la cabecera pase disimulada y veamos que \'casi\' forma parte\n   del degradado <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) --> Mira , una ilusion optica\n*/\n  @ 1, 1 FOLDER oFld ITEMS \"&amp;TheFull\", \"&amp;Joaquim\", \"The Best of Fivewin\" ;\n     OF oWndChild COLOR 0,nColor\n\n/*2 Truco.\n   Como sabras , los folders no son mas que dialogos creados en tiempo de\n   ejecucion. Hay que modificar el evento ON PAINT por cada dialogo.\n*/\n  oFld:aDialogs[1]:bPainted := { || FillWnd (oFld:aDialogs[1],nColor ) }\n  oFld:aDialogs[2]:bPainted := { || FillWnd (oFld:aDialogs[2],nColor ) }\n\n/* a Este le pasamos otro color XD */\n  oFld:aDialogs[3]:bPainted := { || FillWnd (oFld:aDialogs[3],(nColor+3312312), , 1.5 ) }\n\n  ACTIVATE WINDOW oWndChild ;\n    ON RESIZE FoldResize( oWndChild, oFld ) ;\n    ON PAINT FillWnd( oWndChild , nColor )\nreturn nil\n\nfunction FoldResize( oWnd, oFld )\n local oRect := oWnd:GetCliRect()\n\n oFld:Move( 0, 0, oRect:nRight - oRect:nLeft ,;\n oRect:nBottom - oRect:nTop , .t. )\n\nreturn nil\n\n/* Funcion de degradado de control cualquiera.\n Basada en el Install.prg de Fivewin, pero con\n descomposicion de los colores primarios y\n centrado de un Bitmap.\n\nMejoras:\n Ahora, en equipos menos potentes el pintado de un\n degradado la velocidad de apertura y el evento PAINT\n se nos muere y vemos hasta como pinta Windows,\n Por lo tanto el color puro significa que no\n hara caso al evento ON PAINT.\n\n oWnd := Ventana, Dialog o Control.\n nColor := Color para hacer el Degradado\n oBmp := Objeto Bitmap o Image para centrar en Wnd o Dlg\n nSaltos := Oscuridad. Cuanto más pequño , mas oscuro.\n Si quieres ver cuando se produce un eveto ON PAINT\n pasale un 0.1 y SORPRESA!!!!\n*/\nFunction FillWnd( oWnd ,nColor, oBmp , nSaltos )\n local hWnd := oWnd:hWnd\n local aRect := GetClientRect( hWnd )\n local oBrush, n\n local nTop := aRect[ 1 ]\n local nBottom := aRect[ 3 ]\n local nSteps\n Local nBlue,nRed,nGreen\n Local lPuro := .F. // LoadIniPure() // Si es puro no hay degradado\n\n // Color de degradado\n DEFAULT nColor := 123123122 // LoadIni(\"MADRE\",\"DegraDialog\")\n\n IF !Empty( oBmp )\n IF UPPER(oWnd:ClassName()) == \'TDIALOG\' // Si es un Dialogo\n oWnd:GetDC()\n PalBmpDraw( oWnd:hDC, 0, 0, oBmp:hBmpPal )\n oWnd:ReleaseDC()\n ENDIF\n WndCenter( oBmp:hWnd, oWnd:hWnd )\n ENDIF\n\n if lPuro == .T.\n oWnd:SetColor( 0, nColor )\n oWnd:Refresh()\n else\n lPuro := .F.\n endif\n\n if !lPuro // El color no es puro, entonces degradado\n nBlue := nRGBBlue( nColor )\n nRed := nRGBRed( nColor )\n nGreen := nRGBGreen( nColor)\n\n DEFAULT nSaltos := 3\n nSteps := ( aRect[ 3 ] - aRect[ 1 ] ) / nSaltos\n\n oWnd:GetDC()\n\n aRect[ 3 ] = 0\n\n for n = 1 to nSteps\n aRect[ 3 ] += nSaltos\n DEFINE BRUSH oBrush COLOR RGB(nRed,nGreen,nBlue)\n FillRect( oWnd:hDC, aRect, oBrush:hBrush )\n RELEASE BRUSH oBrush\n\n aRect[ 1 ] += nSaltos\n nBlue -= 1\n nRed -= 1\n nGreen -= 1\n\n if nBlue &lt; 0 ; nBlue += 1 ; endif\n if nRed &lt; 0 ; nRed += 1 ; endif\n if nGreen &lt; 0 ; nGreen += 1 ; endif\n next\n oWnd:ReleaseDC()\n //oWnd:Refresh()\n endif\nreturn nil','',0,'','1cmjj1tu',1,0,'',362,0,0),(11570,2663,7,2,0,'87.218.146.215',1144930781,1,0,1,1,1,1,'','','Manuel,\n\nNo uses FROM ... en la definición de la ventana. En FWPPC no es preciso, ya que por defecto se usa toda el area disponible del Pocket PC.','',0,'','3phynj2c',1,0,'',2,0,0),(11571,2654,6,362,0,'200.168.52.156',1144931641,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=642\">http://www.fivewin.com.br/exibedicas.asp?id=642</a><!-- m -->','',0,'','j6k7twcw',1,0,'',362,0,0),(11572,2648,6,264,0,'64.116.212.96',1144933172,1,0,1,1,1,0,'','','Antonio, entonces la TCBrowse() no se comporta igual que todos, pues esa sí cambia de color.\nAhora no se podrá ?','',0,'','9oltu3xz',1,0,'',264,0,0),(11573,2663,7,527,0,'83.49.29.112',1144933556,1,0,1,1,1,0,'','Ventana para mostrar clientes e impresiones.','Como puedo definir de otra forma una ventana para mostrar un browser de clientes y que empieza en la posicion x,y que a mi me interese, existe alguna otra funcion para poder definir otro tipo de ventana para que empieze por ejemplo en la posicion 2,5\n\ngracias','',0,'','1m1zt3y9',1,0,'',527,0,0),(11574,2658,3,35,0,'167.7.140.254',1144934283,1,0,1,1,1,0,'','','Antonio\n\nBe nice if you and Hernan could work a \'deal\' to include his work in your libraries  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRick Lipkin','',0,'','q9icckhi',1,0,'',35,0,0),(11575,2572,6,349,0,'200.56.201.208',1144936543,1,0,1,1,1,0,'','que esto haciendo diferente ?','Saludos y Gracias ----','',0,'','2wdljrtu',1,0,'',349,0,0),(11576,2664,7,527,0,'83.39.2.72',1144937466,1,0,1,1,1,0,'','Indexar ficheros','Como puedo abrir un fichero con un ficheros de indices asociado.\nPor ejemplo el fichero clientes tiene un indice asociado, llamado clientes.ntx\n\ncomo puedo abrir el fichero clientes y que me asocie el indice automaticamente.','',0,'','3dal7jvk',1,0,'',527,0,0),(11577,2665,7,527,0,'83.39.2.72',1144937566,1,0,1,1,1,0,'','DEFINE DIALOG','He descubierto DEFINE DIALOG como puedo hacer que me empieze en la filay columna que a mi me interesa, que no aparezca centrado, sino en la fila y columna que a mi me interese por ejemplo 2.2\n\ngracias','',0,'','39hdtj0h',1,0,'',527,0,0),(11578,2572,6,349,0,'200.56.201.208',1144938759,1,0,1,1,1,0,'','En fin.... tengo que modicar la funcion, y TREPORT','Se lo que tengo que hacer \nLe comente a RF de este Asunto\n\nLa solucion XYZ,  no ME LA PROPORCIONAN EN FW  ver 2.7 El cual Compre en ENERO.\n\nEn Fin Ya Solucione muchas cosas, de 16 a 32.\n\nGracias y Saludos .....\n\nSi se puede, Si Se puede !!!!!!!\n\nAver como Amanece el Macho ?','',0,'','1lc8ptmd',1,0,'',349,0,0),(11579,2658,3,529,0,'200.159.199.16',1144944639,1,0,1,1,1,0,'','conflict','antonio, thanks, but two browses works fine , how fw /fwh know if i use fw/fwh or hernam browse´s ???','',0,'','371z5n5m',1,0,'',529,0,0),(11580,2666,6,295,0,'200.112.85.3',1144947084,1,0,1,1,1,1,'','al generar preview se cae &quot;...\\windows\\temp&quot; bloqu','Amigos, \n\nAl generar un preview en un equipo sin privilegios de administrador, el preview se cae indicando este problema (Windows\\temp...), entonces mi pregunta es: si es posible cambiar este camino para la preview, ya que ante esta situación hay que solicitarle al administrador de la RED que permita estos privilegios al usuario del equipo en cuestión, generándose polémica por la seguridad de la Red por parte de él.\n\nPor sus Respuestas Gracias de Antemano\n\nSaludos','',0,'','3vuomv5o',1,0,'',295,0,0),(11581,2667,3,148,0,'82.201.206.182',1144947835,1,0,1,1,1,0,'','filtering using set scope..pls help','I need to adjust the program below to be used with set scope instead of set filter .\n\n\n[code:1txty6p6]\n\nSTATIC FUNCTION mete&#40; oWnd &#41;\n*--------------------------\n   local oChild, oBrw\n   local nFor\n   local bFilter &#58;= &quot;&quot;\n   local cFilter &#58;= &quot;&quot; \n   local x &#58;= &quot;&quot;\n \nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\nselect 4 \nUSE METE \n\nx &#58;= &quot;\'9855564\'&quot; \n\ncFilter &#58;= &quot;me_mc_serl = &quot;+ x \n\nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot; \n\nDBSETFILTER&#40;bFilter,cFilter&#41; \nDBGOTOP&#40;&#41; \n\n \n\n   DEFINE WINDOW oChild FROM 4, 4 TO 25, 75 ;\n   TITLE &quot;Meter Works&quot; \n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oChild &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1 \n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 2\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n\n \n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n   if nFor=20\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41; \n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n \n\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild MAXIMIZED ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n[/code:1txty6p6]','',0,'AIA=','1txty6p6',1,0,'',148,0,0),(11582,2664,7,262,0,'83.97.168.205',1144948901,1,0,1,1,1,1,'','','pasate mejor a los indices cdx de foxpro\nSaudso.','',0,'AIA=','2ubaa12m',1,0,'',262,0,0),(11583,2668,3,29,0,'81.174.24.57',1144949250,1,0,1,1,1,0,'','New EMF printer class and Windows 95','Hi,\na customer reported me a problem after installed my app with the new EMF printer class (March build).\n\nMy app crash at startup and this problem appairs only on a Windows 95 OS.\n\nThe error is \"Application started with error\" SHELL32.DLL:SHINVOKEPRINTERCOMMANDA link not found.\n\nThen another error \"A device is not connected\"\n\nSee the error image at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/error.gif\">www.softwarexp.co.uk/beta/error.gif</a><!-- w -->\n\nI think this api call is not supported on Windows 95 \nbut I can\'t make any test because I haven\'t a Windows 95 OS to check it.\n\nAny ideas ?\n\nThanks in advance.\n\nBest Regards,\n\nMarco Turco','',0,'AIA=','3nv9hgd5',1,0,'',29,0,0),(11585,2654,6,492,0,'201.154.128.197',1144949739,1,0,1,1,1,1,'','','Muchas Gracias Joao\n\nLo voy a probar !\n\n\nSaludos','',0,'AIA=','1o9vdhlg',1,0,'',492,0,0),(11586,2652,6,492,0,'201.154.128.197',1144949991,1,0,1,1,1,1,'','','Muchas Gracias TheFull\n\nAgradezco mucho tu apoyo.\n\nSaludos','',0,'AIA=','1sfd3ixm',1,0,'',492,0,0),(11587,2652,6,61,0,'201.217.174.66',1144950902,1,0,1,1,1,0,'','','Gracias, Gracias:\n\nEstaba esperando esta clñase para 32 bits.\n\nGracias TheFull\n\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','1hbvbs0u',1,0,'',61,0,0),(11588,2652,6,295,0,'200.112.83.122',1144953603,1,0,1,1,1,1,'','','Amigos :\n\nPeron la intromision y curiosidad, para que sirven estas clases?\n\nSALUDOS\nxHabrazos <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','3a9p88do',1,0,'',295,0,0),(11589,2652,6,492,0,'201.154.128.197',1144954182,1,0,1,1,1,1,'','','Hola LAFUG\n\nEstas clases son para impresion, pero tiene algunas \"cositas\" extras muy, pero muy buenas  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nTe permite darle una apariencia diferente a tus reportes facil y rapido y sobre todo muy flexible !!\n\nSaludos','',0,'AIA=','ia6ijx1v',1,0,'',492,0,0),(11590,2669,6,215,0,'201.144.205.2',1144955865,1,0,1,1,1,0,'','Progress además de horizontal en vertical','Sería bueno tener la opción de ponerlo en vertical\n\nSaludos\nFernando','',0,'AIA=','x4ru1nw9',1,0,'',215,0,0),(11591,2670,7,527,0,'81.44.14.178',1144958782,1,0,1,1,1,0,'','base de datos abierta','Como puedo comprobar si una dbf ya esta abierta con el comando USE\ngracias.','',0,'AIA=','23vn4bgt',1,0,'',527,0,0),(11592,2652,6,295,0,'200.112.83.122',1144958925,1,0,1,1,1,1,'','','HOLA RAYMUNDO\n\nGRACIAS POR TU RESPUESTA VOY A PROBARLA <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSALUDOS','',0,'AIA=','silyr4p4',1,0,'',295,0,0),(11593,2663,7,2,0,'87.218.146.210',1144961713,1,0,1,1,1,1,'','','Manuel,\n\nDel ejemplo client.prg del directorio samples\\client:\n[code:39t5grlh]\n*---------------------------\nSTATIC FUNCTION Sel_Client&#40;&#41;\n*---------------------------\n    LOCAL oDlg, oFont, oLbx\n    LOCAL nRecno  &#58;= 0\n    LOCAL cAlias  &#58;= aDbf&#91; DBF_CUSTOMER &#93;\n\n    HideKeyboard&#40;&#41;\n\n    DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -12\n\n    DEFINE DIALOG oDlg RESOURCE &quot;Sel_Client&quot;\n\n        REDEFINE LISTBOX oLbx ;\n           FIELDS &#40;cAlias&#41;-&gt;first, &#40;cAlias&#41;-&gt;last ;\n           HEADERS &quot;First&quot;, &quot;Last&quot;  ;\n           ID 500 OF oDlg ALIAS cAlias\n\n           oLbx&#58;aColSizes  &#58;= &#123; 100, 100 &#125;\n           oLbx&#58;blDblClick &#58;= &#123;|| &#40; nRecno &#58;= &#40;cAlias&#41;-&gt;&#40; Recno&#40;&#41; &#41;,;\n                                    oDlg&#58;End&#40;&#41; &#41; &#125;\n\n       REDEFINE BUTTON  ID 100 OF oDlg ACTION oDlg&#58;End&#40;&#41;\n       REDEFINE BUTTON  ID 110 OF oDlg ;\n                ACTION &#40; nRecno &#58;= &#40;cAlias&#41;-&gt;&#40; Recno&#40;&#41; &#41; , oDlg&#58;End&#40;&#41; &#41;\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    ShowKeyboard&#40;&#41;\n\nRETU nRecno\n[/code:39t5grlh]\nUsa ese ejemplo como modelo a seguir.','',0,'AIA=','39t5grlh',1,0,'',2,0,0),(11594,2670,7,2,0,'87.218.146.210',1144961909,1,0,1,1,1,1,'','','Manuel,\n\nUsa la función Select():\n[code:3ijo7d8u]\nUSE Test\n\nMsgInfo&#40; Select&#40; &quot;Test&quot; &#41; &#41;   // Muestra el número de area de trabajo\n[/code:3ijo7d8u]\nSi muestra cero, es que la DBF no está en uso con ese alias.','',0,'AIA=','3ijo7d8u',1,0,'',2,0,0),(11595,2665,7,2,0,'87.218.146.210',1144961979,1,0,1,1,1,1,'','','Manuel,\n\nCon los diálogos si puedes usar FROM ..., ... TO ..., ...','',0,'AIA=','2jhtefch',1,0,'',2,0,0),(11596,2652,6,2,0,'87.218.146.210',1144962082,1,0,1,1,1,1,'','','Rafa,\n\nTodas las clases de contribuciones de usuarios las estamos poniendo en la sección \"Utilities / Utilidades\" de estos foros.','',0,'AIA=','13mzyqky',1,0,'',2,0,0),(11597,2501,17,2,0,'87.218.146.210',1144962182,1,0,1,1,1,1,'','Clases Tutilprn y Timprime','Clases TUtilprn y TImprime:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02744eda18/timprime.rar.html\">http://hyperupload.com/download/02744ed ... e.rar.html</a><!-- m -->','',0,'AIA=','2s0juf59',1,0,'',2,0,0),(11598,2652,6,2,0,'87.218.146.210',1144962219,1,0,1,1,1,1,'','','Manuel,\n\nGracias!','',0,'AIA=','x2fds5z2',1,0,'',2,0,0),(11599,2652,6,2,0,'87.218.146.210',1144963082,1,0,1,1,1,1,'','','Rafa,\n\nFWH proporciona la función RoundRect() en el modulo source\\winapi\\rects.c <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1kgaq14o',1,0,'',2,0,0),(11600,2662,6,2,0,'87.218.146.210',1144963219,1,0,1,1,1,1,'','','Joaquín,\n\nUsa la clase TButtonBmp que te enviamos por email.\n\nEl detalle 2 está pendiente de solucionar. Nos dimos cuenta de ese error hace dos dias.','',0,'AIA=','2m4gr3px',1,0,'',2,0,0),(11601,2666,6,2,0,'87.218.146.210',1144963674,1,0,1,1,1,1,'','','Luis,\n\nEn la clase TPrinter, la DATA ::cDir está definida como GetEnv( \"TEMP\" ), ó como GetEnv( \"TMP\" ), ó como GetWinDir().\n\nPosiblemente lo más sencillo y con menos problemas sería definirla como CurDir().','',0,'AIA=','2fw0sqa2',1,0,'',2,0,0),(11602,2648,6,2,0,'87.218.146.210',1144964135,1,0,1,1,1,1,'','','La TCBrowse de momento sigue usando las cabeceras dibujadas por la propia clase, no la de los temas de XP.','',0,'AIA=','3jnd5p9s',1,0,'',2,0,0),(11603,2671,6,9,0,'85.60.6.77',1144964772,1,0,1,1,1,1,'','VERCE','Juan Carlos,\n\n¿Es posible que al compilar con Verce te genere ficheros .ppo? En caso afirmativo, como tengo que hacerlo.\n\nAprovecho para darte la enhorabuena por Verce.','',0,'AIA=','1gawx94n',1,0,'',9,0,0),(11604,2669,6,2,0,'87.218.146.210',1144965566,1,0,1,1,1,1,'','','Fernando,\n\nImplementado. Te lo enviamos por email para que lo pruebes. A que email te lo enviamos ?\n\nAqui puedes ver como queda:\n[url=http&#58;//imageshack&#46;us:39lsg3af][img:39lsg3af]http&#58;//img309&#46;imageshack&#46;us/img309/8584/progress2oi&#46;png[/img:39lsg3af][/url:39lsg3af]\n\nDesde código fuente se usa la nueva cláusula VERTICAL, y desde recurso hay que especificar el estilo #define PBS_VERTICAL 4','',0,'GA==','39lsg3af',1,0,'',2,0,0),(11605,2672,7,527,0,'80.39.248.160',1144965614,1,0,1,1,1,0,'','AYUDA POR FAVOR. TODAVIA ESTOY APRENDIENTO','Te envio el programa y tendo el siguiente problema\nDefino una ventana principal en donde coloco los botones de la ventana\nCuando llaman al boton clientes, muestro del fichero de clientes\nTendo un boton de busqueda para realizar un filtro sobre el fichero. El problema que me ocurre es que cuando el programa vuelve hacia atras no me refresca la lista con los clientes que yo he seleccionado sino que la lista sigue igual. Muevo la lista con el raton y automaticamente me refresca los clientes.\n\n*************************************************************\n*   DEFINE FONT   oFont NAME \"Arial\" SIZE 0, -10\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, oBmp\n   \n  * MsgInfo(SerialNumber())  * Numero de serie del documento para que no se copia el software de la PALM\n  ctext = space(20)\n  Config()\n  abrir_ficheros()\n\n   DEFINE BITMAP oBmp FILE CurDir() + \"\\bmp\\inicio.bmp\"\n   DEFINE WINDOW oWnd TITLE \"MJCC\"\n\n   @  25,  20 BTNBMP FILE CurDir() + \"\\bmp\\cliente.bmp\"     SIZE 60, 60 ACTION BROWSE_CLIENTES(oWnd,\"cliente\",0)\n   @  25,  90 BTNBMP FILE CurDir() + \"\\bmp\\articulo.bmp\"    SIZE 60, 60\n   @  25, 160 BTNBMP FILE CurDir() + \"\\bmp\\agenda.bmp\"      SIZE 60, 60\n   @  96,  20 BTNBMP FILE CurDir() + \"\\bmp\\planning.bmp\"    SIZE 60, 60\n   @  96,  90 BTNBMP FILE CurDir() + \"\\bmp\\albav.bmp\"       SIZE 60, 60\n   @  96, 160 BTNBMP FILE CurDir() + \"\\bmp\\pedido.bmp\"      SIZE 60, 60\n   @ 171,  20 BTNBMP FILE CurDir() + \"\\bmp\\salir.bmp\"       SIZE 60, 60\n   @ 171,  90 BTNBMP FILE CurDir() + \"\\bmp\\salir.bmp\"       SIZE 60, 60 ACTION indexa_ficheros()\n   @ 171, 160 BTNBMP FILE CurDir() + \"\\bmp\\salir.bmp\"       SIZE 60, 60 ACTION IF( MsgYesNo( \'¿ Salir del sistema ?\', \"Gestion\" ), oWnd:End(), )\n   \n   ACTIVATE WINDOW oWnd ;\n      ON PAINT oWnd:SayBitmap( 0, 0, oBmp ) ;\n      ON CLICK MsgInfo(\"MJCC\" + CHR(13) + \"Bembibre\" + chr(13) +;\n                       \"La Coruña\"+ chr(13)+;\n                       \"Telefono 902234568\", \"Gestión\")\n      \n  DbCloseAll()\n  oBmp:End()\nreturn 0\n*************************************************************************\n* Muestra un Browser de la ficha del cliente para seleccionar un cliente\n**************************************************************************\nFUNCTION browse_clientes(oWnd,sel_dbf,estado)\n   SELECT (sel_dbf)\n   SET FILTER TO\n   SET ORDER TO 1\n   DEFINE BITMAP oBmp  FILE CurDir() + \"\\bmp\\menus.bmp\"\n   DEFINE DIALOG oDlg  TITLE \'Gestion de clientes\'           SIZE 230,240 OF oWnd\n   @  1,0 LISTBOX oBrw FIELDS nombrec,telefono COLSIZES 135,13  HEADERS \"Nombre Comercial\",\"Teléfono\" SIZE 116,114\n   *ON DBLCLICK Eligefichacli();\n   * Botones superiores de acceso al sistema\n   @  0,  0  BTNBMP FILE CurDir() + \"\\bmp\\nuevo.bmp\"        SIZE 18, 15\n   @  0,  18 BTNBMP FILE CurDir() + \"\\bmp\\buscar.bmp\"       SIZE 18, 15 ACTION buscar_columna(odlg,\"CLIENTE\",oWnd)\n   @  0,  36 BTNBMP FILE CurDir() + \"\\bmp\\imprimir.bmp\"     SIZE 18, 15\n   @  0,  54 BTNBMP FILE CurDir() + \"\\bmp\\delete.bmp\"       SIZE 18, 15\n   @  0,  98 BTNBMP FILE CurDir() + \"\\bmp\\cerrar.bmp\"       SIZE 18, 15 ACTION odlg:End()\n   ACTIVATE DIALOG oDlg CENTERED ON PAINT odlg:SayBitmap( 0, 0, oBmp )\nRETURN 0\n**************************************************************************\n* Pantalla de busqueda de datos sea de clientes o de proveedores           \n**************************************************************************\nFUNCTION buscar_columna(odlg,dbf_buscar,oWnd)\n   DEFINE DIALOG   ofind TITLE \'Buscar nombre comercial\'SIZE 220,22 OF odlg\n   @  0,  0 GET cText SIZE 98, 12\n   @  0, 98 BTNBMP FILE CurDir() + \"\\bmp\\bf2.bmp\" SIZE 14, 12 ;\n            ACTION(iif(.NOT. EMPTY(ctext),buscar(ctext,dbf_buscar,ofind,odlg,oWnd),msginfo(\"Debe teclear un valor\",\"Gestión\")))\n   ACTIVATE DIALOG ofind CENTERED ON PAINT ofind:SayBitmap( 0, 0, oBmp )\n   * Refresco de pantalla\n   odlg:refresh()\nRETURN 0\n*************************************************************************\n* Busqueda de datos en un fichero por nombre                               \n**************************************************************************\nFUNCTION buscar(ctext,dbf_buscar,ofind,odlg,oWnd)\nIF UPPER(ALLTRIM(dbf_buscar)) = \"CLIENTE\"\n   SELECT cliente\n   ctext = UPPER(ALLTRIM(ctext))\n   SET FILTER TO ctext$cliente-&gt;nombrec\n   GO TOP\n   ofind:end()\nENDIF\nRETURN 0\n*************************************************************************\n* Indexa los ficheros de la aplicacion por los campos que a mi me interesan\n**************************************************************************\nFunction indexa_ficheros () \n   Request DbfCdx \n   Request DbfFpt \n   RddSetDefault (\'DbfCdx\') \n   Request Hb_Lang_PLWIN \n   Request Hb_CodePage_PLWIN \n   * Clientes\n   Index On nombrec Tag inombrec TO ( CurDir() + \"\\dat\\cliente.cdx\" )\n   Index On codigo  Tag icodigo  TO ( CurDir() + \"\\dat\\cliente.cdx\" )\nReturn 0\n**********************************************************\n* Funcion de inicio del sistema para gestionar los SETS\n**********************************************************\nSTATIC FUNCTION Config()\n    HB_LANGSELECT( \"ESWIN\" )\n    SET DELETED ON\n    SET DATE TO ITALIAN\n    SET SOFTSEEK ON\n    SET CENTURY ON\n    SET EPOCH TO 2000\n    Hb_LangSelect (\'PL\') \n    Hb_SetCodePage (\'PLWIN\') \nRETU 0\n*********************************************************\n* Abrir ficheros de datos\n**********************************************************\nFUNCTION abrir_ficheros\n   IF .NOT. USED(\"CLIENTE\")\n       USE ( CurDir() + \"\\dat\\cliente.dbf\" ) NEW\n   ENDIF\n   * Fichero temporal de datos de clientes\n   *DbCreate(CurDir() + \"\\tmp\\result.dbf\",{{ \"codigo\", \"n\", 10, 0 },{ \"nombrec\", \"c\", 45, 0 },{ \"telefono\", \"c\", 20, 0 }})\n   *USE ( CurDir() + \"\\tmp\\result.dbf\" ) NEW\n   *Index On nombrec Tag inombrec TO ( CurDir() + \"\\tmp\\result.cdx\" )\n   *Index On nombrec Tag icodigo  TO ( CurDir() + \"\\tmp\\result.cdx\" )\nRETURN 0','',0,'GA==','3mqlyw77',1,0,'',527,0,0),(11606,2673,6,490,0,'83.61.77.96',1144965827,1,0,1,1,1,0,'','Folders e Imágenes','Antonio,\n\nHe visto en algunas aplicaciones las pestañas con una imágen aparte del texto \n\n¿Se podría hacer esto con FWH ?\n\nUn Saludo,\nJoaquín','',0,'GA==','3ogwwk84',1,0,'',490,0,0),(11607,2672,7,2,0,'87.218.146.210',1144965894,1,0,1,1,1,1,'','','Manuel,\n\nHaz un ZIP con todos los ficheros de tu aplicación (PRGs, DBFs, etc) y lo alojas en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y publica aqui el link de descarga que se te proporciona en ese sitio. Gracias.','',0,'GA==','3tf7aulw',1,0,'',2,0,0),(11608,2673,6,2,0,'87.218.146.210',1144966047,1,0,1,1,1,1,'','','Joaquín,\n\nAún no está implementado.','',0,'GA==','2i2i6b8x',1,0,'',2,0,0),(11609,2668,3,2,0,'87.218.146.210',1144966344,1,0,1,1,1,1,'','','Marco,\n\nAs a workaround you may define these functions in your PRG:\n\nfunction SHFILE() ; return nil\nfunction SHEXITWINDOWS() ; return nil\nfunction SHABOUT() ; return nil\nfunction SHFILEPROPERTY() ; return nil\nfunction SHPRNPROPERTY() ; return nil','',0,'GA==','2xylx931',1,1144999775,'',2,1,0),(11610,2669,6,215,0,'201.144.103.34',1144971806,1,0,1,1,1,0,'','A este mail','Barbaro,\nustéd siempre trabajando. \n\nEste es mi correo electronico\n<!-- e --><a href=\"mailto:flealg@prodigy.net.mx\">flealg@prodigy.net.mx</a><!-- e -->\n\nGracias\nFernando Leal\n\n\n\n\n[quote=&quot;Antonio Linares&quot;:2nistwwc]Fernando,\n\nImplementado. Te lo enviamos por email para que lo pruebes. A que email te lo enviamos ?\n\nAqui puedes ver como queda:\n[url=http&#58;//imageshack&#46;us:2nistwwc][img:2nistwwc]http&#58;//img309&#46;imageshack&#46;us/img309/8584/progress2oi&#46;png[/img:2nistwwc][/url:2nistwwc]\n\nDesde código fuente se usa la nueva cláusula VERTICAL, y desde recurso hay que especificar el estilo #define PBS_VERTICAL 4[/quote:2nistwwc]','',0,'mA==','2nistwwc',1,0,'',215,0,0),(11611,2674,6,215,0,'201.155.51.118',1144980336,1,0,1,1,1,0,'','Darle el foco a otra pestaña de un folder','Colegas,\nestoy probando a meter datos en un folder. Por medio de un BUTTON intento darle el foco al siguiente dialogo pero no funciona.\n\n   REDEFINE FOLDER oFld ID 110 OF oDlg ;\n      PROMPT \"&amp;Uno\",\"&amp;Dos\" ;\n      DIALOGS \"DlgUno\",\"DlgDos\"\n\n   REDEFINE BUTTON aBtnsDlg[1] ID 501  OF oFld:aDialogs[1] ;   \n      ACTION ( oFld:nOption:=2 )\n\nLo anterior no funciona, ¿Cómo le tengo que hacer para que muestre el DlgDos\n\nGracias','',0,'','170vc1gw',1,0,'',215,0,0),(11612,2674,6,215,0,'201.129.19.167',1144985547,1,0,1,1,1,0,'','Así se hace','Mirando las tripas de la clase lo he logrado. Para mostrar el segundo dialogo se hace así:\n\n   REDEFINE BUTTON aBtnsDlg[1] ID 501  OF oFld:aDialogs[1] ;   \n      ACTION ( oFld:aDialogs[2]:Show() )\n\nTodo es más simple cuando se halla la solución.','',0,'','1hp1dh1v',1,0,'',215,0,0),(11613,2669,6,439,0,'201.221.38.60',1144986525,1,0,1,1,1,1,'','','Antonio,\n\nMuy interesante variante.\n\nSerá posible que me la envíes también a mí?\n\nGracias desde ya.','',0,'','1ld44d1q',1,0,'',439,0,0),(11614,2675,3,51,0,'80.122.88.242',1144998718,1,0,1,1,1,0,'','OT: Happy Easter','A Very Happy Easter to All from \n\nOtto','',0,'','264dnsa2',1,0,'',51,0,0),(11615,2668,3,29,0,'81.174.24.57',1144999472,1,0,1,1,1,0,'','','Hi Antonio,\nwhich is the fwh module where you call these functions ?\nI need to deactivate them only if a Win95 OS is running.\n\nMarco','',0,'','38pkl7eo',1,0,'',29,0,0),(11616,2669,6,2,0,'87.218.146.210',1144999719,1,0,1,1,1,1,'','','Jose, \n\nLo publicaremos en en build de Mayo.','',0,'','39i3p1yy',1,0,'',2,0,0),(11617,2668,3,2,0,'87.218.146.210',1144999889,1,0,1,1,1,1,'','','Marco,\n\nThe module is shfile.obj but its source code is not provided.\n\nWe will fix it here <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2cip5xb7',1,0,'',2,0,0),(11618,2435,4,2,0,'87.218.146.210',1145000006,1,0,1,1,1,1,'','','Eugeniusz,\n\nIs there a way to reproduce it on the Pocket PC emulator ?','',0,'','1abdgvx2',1,0,'',2,0,0),(11619,2435,4,19,0,'217.153.83.2',1145004996,1,0,1,1,1,0,'','','Antonio,\nI tray but I cannot get this error on emulator.\n\nBTW I ask on msnews.microsoft.com microsoft.public.pocketpc.developer\nfor file and record locking.\n\nBest regards\nEugeniusz','',0,'','j5luln42',1,0,'',19,0,0),(11620,2672,7,527,0,'83.61.181.192',1145005485,1,0,1,1,1,0,'','Gracias','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0121804d85/link.zip.html\">http://hyperupload.com/download/0121804 ... k.zip.html</a><!-- m -->\nLo haria con el conversor que teneis de borlan pero me cuesta mucho entenderlo.\n\nmuchisimas gracias.','',0,'','135t2rrr',1,0,'',527,0,0),(11621,2675,3,6,0,'87.3.212.234',1145007362,1,0,1,1,1,1,'','Re: OT: Happy Easter','Happy Easter!\n\nEMG','',0,'','16tjpvjf',1,0,'',6,0,0),(11623,2676,3,446,0,'82.59.175.194',1145009849,1,0,1,1,1,0,'','Using PdfCreator','Has anybody used the com interface of pdfcreator ?\nI would use it to create a pdf and email directly from within Fwh, without the dialogbox of pdfcreator prompting for email address\n\nThe documentation found in pdfcreator directory is not very clear to me\nI would really appreciate any working sample\nsomething like:\n\noPdf := createobject(\"Pdfcreator.Application\")\nhow to print ?\noPdf:cSendMail( OutputFilename , Recipients )\n\nbest regards\nRoberto Chiaiese','',0,'','1m8f9q4z',1,0,'',446,0,0),(11624,2677,6,9,0,'85.60.6.77',1145010727,1,0,1,1,1,1,'','REPORT','Probando los ejemplos de Samples\\report compruebo que antes de salir el preview, sale una ventana (FiveWin Report/Building Page xx). Eso no ocurre en mis aplicaciones. \n\nA veces es conveniente que salga esta ventana, porque cuando tiene que preparar muchas páginas el programa se queda \"esperando\". \n\n¿Que tengo que hacer para que me salga esta ventana de Building Page?.','',0,'','ms7xe3df',1,1145041099,'',9,1,0),(11625,2678,6,9,0,'85.60.6.77',1145010977,1,0,1,1,1,1,'','ROUNDBOX','Probando ROUNDBOX() y BOX() con una determinadas coordenadas, compruebo que RoundBox escribe mucho mas abajo. ¿Cual es el problema?\n\n///////////////////////////////////////////\nFunc RCaja(nArriba,nIzq,nAbajo,nDerecha,nAncho,nAlto,oPen, oPrn)\nLocal xCor := {} , yCor := {}\n\n// Pasamos coordenadas de cms a pixel\nxCor := oPrn:Cmtr2Pix(nArriba,nIzq)\nyCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)\n\noPrn:RoundBox(xCor[1],xCor[2],yCor[1],yCor[2],nAncho,nAlto,oPen)\noPrn:Box     (xCor[1],xCor[2],yCor[1],yCor[2],oPen)\n\nreturn NIL\n//////////////////////////////////////////////','',0,'','o8wt0vr7',1,0,'',9,0,0),(11626,2652,6,9,0,'85.60.6.77',1145011503,1,0,1,1,1,1,'','','Recordar que la clase Tutilprn usa Nview32lib y FHW usa, ahora, Freeimage. Por tanto, en 32 bit, da error al utilizar SayImage y PrintImage. \n\nSalvo Box (cajas redondeadas) que estoy intentando sustituir por RoundBox(), creo que la mayoria de las funciones de la clase Tutilprn, ya lo recoge FWH en las nuevas versiones.','',0,'','3hn6o79c',1,0,'',9,0,0),(11627,2675,3,19,0,'217.153.83.2',1145013835,1,0,1,1,1,0,'','','And from me too.\n\nBTW at saturday I have tested big Easter Promotion for Windows 2006. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \nMy wife is happy for clear windows but I\'m still ill and use medicine <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nbest regards\nEugeniusz','',0,'','3e62q5et',1,0,'',19,0,0),(11628,2679,6,439,0,'201.221.45.221',1145021368,1,0,1,1,1,1,'','Pasar Dialogs en recursos a código','Hola,\n\nHe desarrollado algunas funciones que quiero poner en libs sin usar los archivos RC donde se almacenan las dialogs que utilizan, ¿Hay alguna aplicación (con ayudas) que permita pasar estas dialogs del rc (hecho con Workshop) a código (un prg)?\n\nApreciaré toda ayuda al respecto.','',0,'','1avet0ew',1,0,'',439,0,0),(11629,2668,3,26,0,'84.255.245.173',1145023803,1,0,1,1,1,1,'','','Hello!\n\nIMHO another solution is to install Internet Explorer 4  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  or greater,\nwhich updates shell32.dll (and other important system files)\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/programmersguide/versions.asp\">http://msdn.microsoft.com/library/defau ... rsions.asp</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://members.ozemail.com.au/~geoffch@ozemail.com.au/samples/win32/shell/shell32/versions.htm\">http://members.ozemail.com.au/~geoffch@ ... rsions.htm</a><!-- m -->\n\nRegards, Roman','',0,'','fmi078ua',1,0,'',26,0,0),(11630,2679,6,54,0,'201.152.195.59',1145026925,1,0,1,1,1,1,'','Re: Pasar Dialogs en recursos a código','[quote=&quot;jose_murugosa&quot;:120umx0v]Hola,\n\nHe desarrollado algunas funciones que quiero poner en libs sin usar los archivos RC donde se almacenan las dialogs que utilizan, ¿Hay alguna aplicación (con ayudas) que permita pasar estas dialogs del rc (hecho con Workshop) a código (un prg)?\n\nApreciaré toda ayuda al respecto.[/quote:120umx0v]\n\nJosé,\n\nEn la carpeta samples viene el archivo rc2prg.prg, creo que puede servirte.','',0,'gA==','120umx0v',1,0,'',54,0,0),(11631,2669,6,295,0,'201.222.144.58',1145026985,1,0,1,1,1,1,'','','Antonio, \n\nPerdon la intromisión, pero donde encuentro esta clase?\n\nSALUDOS GRACIAS DE ANTEMANO <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','287w07q8',1,0,'',295,0,0),(11632,2669,6,295,0,'201.222.144.58',1145029124,1,0,1,1,1,1,'','','encontre la clase\n\nalgun ejemplito? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1ivfgqvb',1,0,'',295,0,0),(11633,2679,6,439,0,'201.221.45.221',1145029227,1,0,1,1,1,1,'','rc2prg','No se que estoy haciendo mal,\nCompilé con xharbour rc2prg usando el buildx.bat, cuando lo corro, selecciono la rc (uso una que tiene solo una simple dialog con dos botones) y lo único que logor es un .prg que solo dice :\n\n#include \"FiveWin.Ch\"\n\ny eso es todo!!\n\nAlguien me podrá ayudar en esto?','',0,'gA==','2woftxz7',1,0,'',439,0,0),(11634,2680,7,527,0,'83.35.173.243',1145033468,1,0,1,1,1,0,'','Impresiones. Me estoy volviendo loco.','Estoy intentando imprimir un documento y no se por donde empezar. Me podeis facilitar ayuda para saber como puedo empezar. He leido todos los ejemplos del foro pero no consigo entender nada.\n\nTe cuento todo mi problema desde el principio para ver si puedes ayudarme en algo.\n\nTengo unos clientes que necesitar realizar albaranes desde la ipokect al final del dia estos albaranes tiene que recibirlos en un ordenador, asi como los clientes nuevos que hayan modificado o dado de alta. Al mismo tiempo los clientes necesitan tener una copia de los albaranes generados. en la pokect con lo cual tengo que imprimirlos.  Cuando salen al dia siguiente de ruta de nuevo tiene que cargar la pokect con los nuevos articulos datos de alta en la oficina y con los nuevos clientes que se han dado de alta en la oficina mientras los vendedores han estado fuera de la oficina.\n\n\nPuedes comentarme como puedo realizar estos tipos de conexiones para poder empezar a diseñar mi aplicacion.\n\nSi puedes enviarme ejemplos te lo agradeceria mas todavia.\n\n(Gracias)','',0,'gA==','13k805kr',1,0,'',527,0,0),(11635,2668,3,2,0,'87.218.146.210',1145039263,1,0,1,1,1,1,'','','Marco,\n\nCould you try Roman\'s proposal ?','',0,'gA==','1eub9p7c',1,0,'',2,0,0),(11636,2435,4,2,0,'87.218.146.210',1145039357,1,0,1,1,1,1,'','','Eugeniusz,\n\n&gt;\nBTW I ask on msnews.microsoft.com microsoft.public.pocketpc.developer \nfor file and record locking.\n&gt;\n\nDid you get an answer ?','',0,'gA==','2xs2o7pb',1,0,'',2,0,0),(11637,2669,6,2,0,'87.218.146.210',1145039459,1,0,1,1,1,1,'','','Luis,\n\n[code:ikrr8h9w]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oProg, nValue &#58;= 30, oProg2, nValue2 &#58;= 20 \n   \n   DEFINE DIALOG oDlg TITLE &quot;Progress Bars&quot;\n   \n   @ 1, 1 PROGRESS oProg POSITION nValue SIZE 80, 12\n\n   @ 1, 20 PROGRESS oProg2 POSITION nValue2 SIZE 12, 50 VERTICAL\n   \n   @ 3,  9 BUTTON &quot;Ok&quot; ACTION oDlg&#58;End&#40;&#41;\n   \n   ACTIVATE DIALOG oDlg CENTER ;\n      ON INIT &#40; oProg&#58;nPosition &#58;= nValue,;\n                oProg2&#58;nPosition &#58;= 50 &#41;\n   \nreturn nil\n[/code:ikrr8h9w]','',0,'AIA=','ikrr8h9w',1,0,'',2,0,0),(11638,2650,3,264,0,'200.113.63.163',1145039513,1,0,1,1,1,0,'','','Antonio.\nNuestras versiones son nuevas ( no mas de 1 semana de FTDN )\nel fw es 2.7 y el harbour (no xharbour) es del 8 de abril.\n\nGracias','',0,'AIA=','2rgtixwj',1,0,'',264,0,0),(11639,2674,6,2,0,'87.218.146.210',1145039567,1,0,1,1,1,1,'','','Fernando,\n\noFolder:SetOption( nOption )','',0,'AIA=','cbcbpyjs',1,0,'',2,0,0),(11640,2680,7,262,0,'83.97.168.205',1145039630,1,0,1,1,1,1,'','','como tienes pensado realizar la impresion ? .\nen una impresora del cliente   ? , una portatil en el coche del vendedor ? , que la manden desde la oficina por fax ? .\nLo primero que tienes que hacer es un estudio de los problemas una planificación del proceso a realizar . \n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nUna vez decidido que tipo de proceso productivo vas a hacer , se buscan las soluciones posibles ...\nPara imprimir ..,si es insitu , en la tienda del cliente , creo que lo mejor son los pocket con impresora ... , busca en este foro por \"flamagas\" , yo publique unos enlaces con maquinas apropiadas para esto .','',0,'AIA=','2vchos8v',1,0,'',262,0,0),(11641,2681,20,532,0,'84.222.81.35',1145039748,1,0,1,1,1,0,'','Chi mi può aiutare?','Ciao a tutti.\n\nSto creando un programma con Fivewin, in una prima pagina\nho una trentina di GET, passando in una seconda pagina ho\naltre 5 GET.\n\nCon il 98 tutto ok, quando uso XP si pianta alla seconda pagina,\nse disattivo anche un solo GET funziona.\n\nSono un pò alle prime armi con questo tipo di programmazzione,\nnon so se sia un problema di File aperti, visto che XP non usa\npiù autoexec e config, o qualcos\'altro.\n\nQualcuno può aiutarmi?\n\nGrazie.','',0,'AIA=','35pps2r8',1,0,'',532,0,0),(11642,2677,6,2,0,'87.218.146.210',1145039893,1,0,1,1,1,1,'','','Manuel,\n\nSi pruebas el siguiente ejemplo (desde el directorio samples):\n[code:318bfafe]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   USE Customer\n   Browse&#40;&#41;\n   USE\n   \nreturn nil   \n[/code:318bfafe]\ny pulsas el botón \"print\", verás que se construye un reporte y sale la caja de diálogo que comentas. \n\nNo tendrás modificado prev32.dll y tal vez no esté esa caja de diálogo disponible ?','',0,'AIA=','318bfafe',1,0,'',2,0,0),(11643,2678,6,2,0,'87.218.146.210',1145040475,1,0,1,1,1,1,'','','Manuel,\n\nEn este ejemplo, salen en la misma posición:\n[code:73x51z87]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oPrn\n   \n   PRINTER oPrn PREVIEW\n      PAGE\n         oPrn&#58;RoundBox&#40; 10, 10, 500, 500 &#41;\n         oPrn&#58;Box&#40; 10, 10, 500, 500 &#41;\n      ENDPAGE\n   ENDPRINTER\n   \nreturn nil   \n[/code:73x51z87]','',0,'AIA=','73x51z87',1,0,'',2,0,0),(11644,2679,6,2,0,'87.218.146.210',1145041233,1,0,1,1,1,1,'','','Jose,\n\nPrueba con esta versión de rc2prg.prg:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/019e501862/rc2prg.prg.html\">http://hyperupload.com/download/019e501 ... g.prg.html</a><!-- m -->','',0,'AIA=','12z6pn2o',1,0,'',2,0,0),(11645,2672,7,2,0,'87.218.146.210',1145042085,1,0,1,1,1,1,'','','Manuel,\n\nEl programa está quedando muy bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nLo que te falta es repintar el browse haciendo oBrw:Refresh() despues de hacer la búsqueda.\n\nComo estás haciendo un SET FILTER, preferiblemente haz un oBrw:GoTop() tambien ó en vez del oBrw:Refresh()','',0,'AIA=','2iu8zns4',1,0,'',2,0,0),(11646,2511,2,404,0,'85.155.209.29',1145042180,1,0,1,1,1,0,'','¡Conseguido!','¡Gracias!, Armando,  Willi Quintana, y a todos los que están hay detrás.\n\nCon vuestras respuestas, y bastantes puebas, se ha logrado lo que se perseguía, al menos eso parece:\n\n[code:29swsj3c]\nINDEX FILE PFMesFac                                          ;\n          TAG    MesFactu                                    ;\n          ON     UPPER&#40; CMONTH&#40; fechafactu &#41; &#41; + codigo    + ;\n                 numfactura + DTOS&#40; fechafactu &#41;             ;\n          UNIQUE                                             ;\n          EVAL   &#40; lPrimerVez &#58;= TRUE                      , ;\n                    PorcentInd&#40; oDbfFactP, aoMeter&#91; 5 &#93; &#41; &#41;  ;\n          OF     oDbfFactP\n[/code:29swsj3c]\n\nSaludos, José Mª','',0,'AIA=','29swsj3c',1,0,'',404,0,0),(11647,2677,6,9,0,'85.54.232.128',1145042204,1,0,1,1,1,1,'','','Antonio,\n\nLa \"cosa\" ocurre cuando la página tiene alguna imagen. Me imagino que habrá algun conflicto entre freeimage.dll y preview.dll.  Cuando es un listado sin imagenes no hay problemas.','',0,'AIA=','gk1puaf5',1,0,'',9,0,0),(11648,2677,6,2,0,'87.218.146.210',1145042291,1,0,1,1,1,1,'','','Manuel,\n\nCuantas páginas tiene el listado ? En principio no tiene porque haber ningún conflicto entre esas DLLs.','',0,'AIA=','1moo8kyh',1,0,'',2,0,0),(11649,2632,2,2,0,'87.218.146.210',1145042392,1,0,1,1,1,1,'','','Rene,\n\nComo te he indicado por email, tu DBF se abre bien con Harbour/xharbour.','',0,'AIA=','2fy495u2',1,0,'',2,0,0),(11650,2681,20,6,0,'87.3.212.234',1145045473,1,0,1,1,1,1,'','Re: Chi mi può aiutare?','C\'è bisogno di ulteriori indizi. Sarebbe molto più facile se fornissi un programma [b:162pmy8c]minimale[/b:162pmy8c] ma completo di tutto il necessario per compilarlo ed eseguirlo e che mostri chiaramente il problema.\n\nEMG','',0,'QA==','162pmy8c',1,0,'',6,0,0),(11651,2678,6,9,0,'85.54.232.128',1145045649,1,0,1,1,1,1,'','','Antonio,\n\nAqui tienes el código de los samples testprn4 y testprn3, incluyendo dos lineas de codigo con Box y RoundBox.- Las cajas salen en diferentes sitios.\n\n///////////////////////////////////////////////////////////////////////////\n// Printing images\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oPrn\n\n   PRINT oPrn PREVIEW\n      PAGE\n         oPrn:SayBitmap( 1, 1, \"..\\bitmaps\\fivewin.bmp\" )\n[b:3ff9cpeb]         oPrn:Box     (657, 3329,1816, 4581 )\n         oPrn:RoundBox(657, 3329,1816, 4581 )[/b:3ff9cpeb]      \n     ENDPAGE\n   ENDPRINT\n\nreturn nil\n/////////////////////////////////////////////////////////////////////////\n\n// Printing in portrait and in landscape\n\n#include \"fivewin.ch\"\n\n#define PAD_LEFT            0\n#define PAD_RIGHT           1\n#define PAD_CENTER          2\n\nfunction Main()\n   local oPrn, oFont, oPen\n   Local nLinI, nColI, nLinF, nColF\n \n\n   PRINT oPrn NAME \"Impresión en Vertical..\" PREVIEW\n      DEFINE FONT oFont NAME \"Arial\" SIZE 0, -10 BOLD OF oPrn\n      DEFINE PEN oPen WIDTH  2                        OF oPrn\n \n      oPrn:SetPage(9)  // A4\n      oPrn:SetPortrait() //Vertical\n      PAGE\n         nLinI :=  0.90\n         nColI :=  0.90\n         nLinF := 28.6\n         nColF := 20.0\n         oPrn:Cmtr2Pix(@nLinI, @nColI)\n         oPrn:cmtr2Pix(@nLinF, @nColF)\n         oPrn:Box(nLinI, nColI, nLinF, nColF, oPen  )\n         oPrn:cmSay( 1.0,  1.0, \"Superior Izquierda\", oFont,,CLR_BLACK,,PAD_LEFT  )\n         oPrn:cmSay( 1.0, 10.5, \"Superior Centro\",    oFont,,CLR_BLACK,,PAD_CENTER )\n         oPrn:cmSay( 1.0, 20.0, \"Superior Derecha\",   oFont,,CLR_BLACK,,PAD_RIGHT )\n         oPrn:cmSay(28.0,  1.0, \"Inferior Izquierda\", oFont,,CLR_BLACK,,PAD_LEFT  )\n         oPrn:cmSay(28.0, 10.5, \"Inferior Centro\",    oFont,,CLR_BLACK,,PAD_CENTER )\n         oPrn:cmSay(28.0, 20.0, \"Inferior Derecha\",   oFont,,CLR_BLACK,,PAD_RIGHT )\n[b:3ff9cpeb]         oPrn:Box     (657, 3329,1816, 4581 )\n         oPrn:RoundBox(657, 3329,1816, 4581 )[/b:3ff9cpeb]\n      ENDPAGE\n   ENDPRINT\n \n\n   PRINT oPrn NAME \"Impresion Horizontal...\" PREVIEW\n      DEFINE FONT oFont NAME \"Arial\" SIZE 0, -10 BOLD OF oPrn\n      DEFINE PEN oPen WIDTH  2                        OF oPrn\n      oPrn:SetPage(9)  //a4\n      oPrn:SetLandscape() // HORIZONTAL\n      PAGE\n         nLinI :=  0.90\n         nColI :=  0.90\n         nLinF := 20.1\n         nColF := 28.6\n         oPrn:Cmtr2Pix(@nLinI, @nColI)\n         oPrn:cmtr2Pix(@nLinF, @nColF)\n         oPrn:Box(nLinI, nColI, nLinF, nColF, oPen  )\n         oPrn:cmSay( 1.0,  1.0, \"Superior Izquierda\", oFont,,CLR_BLACK,,PAD_LEFT  )\n         oPrn:cmSay( 1.0, 14.8, \"Superior Centro\",    oFont,,CLR_BLACK,,PAD_CENTER )\n         oPrn:cmSay( 1.0, 28.0, \"Superior Derecha\",   oFont,,CLR_BLACK,,PAD_RIGHT )\n         oPrn:cmSay(19.5,  1.0, \"Inferior Izquierda\", oFont,,CLR_BLACK,,PAD_LEFT  )\n         oPrn:cmSay(19.5, 14.8, \"Inferior Centro\",    oFont,,CLR_BLACK,,PAD_CENTER )\n         oPrn:cmSay(19.5, 28.0, \"Inferior Derecha\",   oFont,,CLR_BLACK,,PAD_RIGHT )\n      ENDPAGE\n   ENDPRINT\n \nreturn nil','',0,'QA==','3ff9cpeb',1,0,'',9,0,0),(11652,2677,6,9,0,'85.54.232.128',1145045969,1,0,1,1,1,1,'','','Antonio,\n\nTiene 28 páginas (pero pueden ser muchas mas). Se trata de listar las facturas entre dos fechas. Cada factura tiene su correspondiente imagen. Tarda un minuto en cargar (el disco duro tirita) y luego sale el preview sin salir la ventanita de \"building page\".','',0,'QA==','3ugvp5g0',1,0,'',9,0,0),(11653,2680,7,527,0,'81.38.143.66',1145046365,1,0,1,1,1,0,'','Ok con impresora','La impresion es in situ, pero con las impresoras que llevan los comerciales de la empresa. No con las impresoras del cliente\n\n\n¿ Cual es la mejor solucion ?\n\nGracias','',0,'QA==','ijbbpbwe',1,0,'',527,0,0),(11654,2672,7,527,0,'81.38.143.66',1145046724,1,0,1,1,1,0,'','OK muchas gracias','Dime algo sobre como puedo enviar los datos que generan los comerciales desde la Pokect al ordenador y viceversa, recuerda que todos los clientes hay que empezar pensando que son unos burros y practicamente tienes que hacer que solo pulsado un boton realice el proceso.\n\nGracias','',0,'QA==','329c3ylg',1,0,'',527,0,0),(11655,2682,3,148,0,'82.201.250.215',1145052817,1,0,1,1,1,0,'','provide help for get from combo box','can get read directly from combo box as below ?\n\n[code:3p4jxpe0]\n   @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n   @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 45,60 GET V_cu_coun OF oDlg PIXEL\n   @ 45,200 COMBOBOX V_cu_coun ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41; size 80,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;v_cu_coun&#58;=cust-&gt;cu_coun&#41;;\n[/code:3p4jxpe0]\n\nbut this syntax does not bring the value to get ?','',0,'AIA=','3p4jxpe0',1,0,'',148,0,0),(11656,2683,20,49,0,'87.3.181.228',1145054329,1,0,1,1,1,1,'','Due problemini','1) Qualcuno di voi sa dirmi se è possibile premere su un\'immagine con il mouse e la procedura mi restituisce le coordinate esatte dove ha \"puntato\" il mouse ?\n\n2)E\' possibile creare un piccolo cerchio rosso nel punto dove ha cliccato il mouse sempre sull\'immagine per determinare appunto l\'area interessata ?','',0,'AIA=','oh7knktw',1,0,'',49,0,0),(11657,2684,6,49,0,'87.3.181.228',1145054637,1,0,1,1,1,1,'','Progress bar','How I can show one bar in order to show a passed time? and to play each second a sound ?\n \nExample : 2 minutes','',0,'AIA=','1rxixgq6',1,0,'',49,0,0),(11658,2685,3,148,0,'82.201.250.215',1145055530,1,0,1,1,1,0,'','seek and string searching','I can not find seek works probably with strings !!\n\n[code:1zy7nbis]\n   if MsgGet&#40; &quot;Search&quot;, &quot;Customer Appreviation&quot;, @V_CU_appr,;\n              &quot;&#46;&#46;\\bitmaps\\lupa&#46;bmp&quot; &#41;\n      select 1\n      use cust\n      set index to cust10\n      if ! DbSeek&#40; alltrim&#40;upper&#40;V_CU_Appr &#41;&#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that customer&quot; &#41;\n         GO nRecNo\n      else\n         oLbx&#58;UpStable&#40;&#41;           // Corrects same page stabilizing Bug\n         oLbx&#58;Refresh&#40;&#41;            // Repaint the ListBox\n      endif\n   endif\n\n[/code:1zy7nbis]','',0,'AIA=','1zy7nbis',1,0,'',148,0,0),(11659,2678,6,2,0,'87.218.146.108',1145058712,1,0,1,1,1,1,'','','Manuel,\n\nEl método Box() usa los parámetros en un orden distinto, por lo que has de llamarlos así:\n\noPrn:Box (3329, 657, 4581, 1816 )  // cambian 1-2, 3-4 \noPrn:RoundBox(657, 3329,1816, 4581 )\n\nPodriamos hacer que los usasen de igual forma, pero a estas alturas podriamos romper el código de muchos usuarios.','',0,'AIA=','1lm80toq',1,0,'',2,0,0),(11660,2684,6,2,0,'87.218.146.108',1145058790,1,0,1,1,1,1,'','','Silvio,\n\nUse a timer','',0,'AIA=','2xun49j2',1,0,'',2,0,0),(11661,2677,6,2,0,'87.218.146.108',1145059071,1,0,1,1,1,1,'','','Manuel,\n\nEn el build de Abril hemos usado la función cTempFile() para asignarle los nombres a los ficheros temporales usados por los metafiles para el preview, pero esta función cTemFile() consume mucho tiempo por su diseño. Hay que cambiarla de esta forma en source\\function\\filename.prg:\n[code:1grcrhd2]\nfunction cTempFile&#40; cPath, cExtension &#41;        // returns a temporary filename\n\n   local cFileName\n\n   static cOldName\n\n   DEFAULT cPath &#58;= &quot;&quot;, cExtension &#58;= &quot;&quot;\n   \n   if ! &quot;&#46;&quot; $ cExtension\n      cExtension = &quot;&#46;&quot; + cExtension\n   endif   \n\n   while File&#40; cFileName &#58;= &#40; cPath + LTrim&#40; Str&#40; GetTickCount&#40;&#41; &#41; &#41; + cExtension &#41; &#41; &#46;or&#46; ;\n      cFileName == cOldName\n   end\n\n   cOldName = cFileName\n\nreturn cFileName\n[/code:1grcrhd2]\nPor favor cámbiala y eso debería reducir mucho el tiempo de generación del preview. Veamos si eso afecta tambien a la ventana que muestra como se crean las páginas.','',0,'AIA=','1grcrhd2',1,0,'',2,0,0),(11662,2679,6,439,0,'201.221.40.40',1145062275,1,0,1,1,1,1,'','','Gracias Antonio,\n\nAhora funciona perfectamente. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','3bmnc9hz',1,0,'',439,0,0),(11663,2686,6,295,0,'201.222.144.58',1145064292,1,0,1,1,1,1,'','Antonio,error al compilar ej. de progress','Antonio el ejemplo que me posteaste me da este error\nC:\\sistema\\progres.prg(9) Error E0030  Syntax error: \"parse error at \'@\'\"\n\neste es el ejemplo :\n\n#include \"fivewin.ch\"\n\nfunction Mainp()\n\n   local oDlg, oProg, nValue := 30, oProg2, nValue2 := 20\n\n   DEFINE DIALOG oDlg resource \"ODLG_browali\" TITLE \"Progress Bars\"\n\nlinea 9   @ 1, 1 PROGRESS oProg POSITION nValue SIZE 80, 12\n\n   @ 1, 20 PROGRESS oProg2 POSITION nValue2 SIZE 12, 50 VERTICAL\n\n   @ 3,  9 BUTTON \"Ok\" ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTER ;\n      ON INIT ( oProg:nPosition := nValue,;\n                oProg2:nPosition := 50 )\n\nreturn nil\n\n¿ Esta clase viene con FWH2.7 o tengo que conseguirla aparte?\n\nGRACIAS DE ANTEMANO POR LOS COMENTARIOS\n\nSALUDOS','',0,'AIA=','1tlocq2z',1,0,'',295,0,0),(11664,2687,3,305,0,'200.121.81.92',1145066077,1,0,1,1,1,0,'','Help with fGet','I have posted this problem in the spanish forum, but no one has responded.  The author of the excelent class fGet (Ramon Avendaño) seems to be out of our world.  Any help will be welcome\n\nPlease try this little test program :\n\n[code:1vyl2i7m]#include &quot;FiveWin&#46;ch&quot;\n#include &quot;FGet&#46;ch&quot;\n\nstatic oWnd\nfunction Main&#40;&#41;\n   DEFINE WINDOW oWnd FROM 1, 1 TO 400, 400 PIXEL;\n      MDI TITLE &quot;Test fGet&quot;\n   ACTIVATE WINDOW oWnd ON INIT new&#40;&#41;\nreturn nil\n\n//----------------------------------------------------------------------------//\nFunction New&#40;&#41;\n   local oWndChild, oFGet\n   static nChild &#58;= 0\n   DEFINE WINDOW oWndChild OF oWnd ;\n             MDICHILD ;\n             TITLE &quot;FGet &quot; + LTrim&#40; Str&#40; ++nChild &#41; &#41;\n   oWndChild&#58;Cargo &#58;= &quot;THIS IS A LONT TEXT AND WILL DISSAPEAR WHEN YOU SCROLL HORIZONTALLY, TRY TO CORRECT THIS PROBLEM&quot;\n\n   @ -1024, -1024 FORMAT GET oFget VAR oWndChild&#58;Cargo OF oWndChild  HSCROLL\n\n   oWndChild&#58;SetControl&#40; oFGet &#41;\n   oWndChild&#58;oControl&#58;SetFocus&#40;&#41;\nreturn nil[/code:1vyl2i7m]\nWhen you run the program in Windows Xp/ 2000 and you scroll the text horizontally, the text disappears.  It seems to be a problem with the function DrawfGetLine(), but my knowledge of \"C\" is poor .\n\nPlease send me a help!   (I use FWH 2.7 jan + xHb 0995)\n\n\nRalph','',0,'AIA=','1vyl2i7m',1,0,'',305,0,0),(11665,2668,3,29,0,'81.174.24.57',1145080512,1,0,1,1,1,0,'','','Antonio,\nI can\'t try it because I haven\'t a Win95 installed,\nI will send the Roman\'s tip to my customer.\n\nHowever a tipical user with (still) Windows 95 often neither hasn\'t a internet connection to download an update so I think a built-in solution into the Fwh libs (if possible) could be prefereble.\n\nThanks Roman and Antonio.\n\nBest Regards,\n\nMarco','',0,'AIA=','tqzsd31p',1,0,'',29,0,0),(11666,2688,20,29,0,'81.174.24.57',1145081820,1,0,1,1,1,0,'','Codice fiscale/ partita IVA','Salve a tutti,\nqualcuno di voi ha una routine di controllo/generazione codice fiscale e controllo partita iva ?\n\nGrazie.\n\nMarco','',0,'AIA=','b9e3nxcr',1,0,'',29,0,0),(11667,2678,6,9,0,'85.54.232.128',1145083220,1,0,1,1,1,1,'','','Antonio, [b:36cduoja]ahora si funciona[/b:36cduoja]. Sería conveniente modificar el fichero de ayuda de la clase Tprinter, y aprovechar para darle una nueva redacción (tanto a RoundBox como a Box) un poco mas clara.\n\nPor si alguien lo necesita, a continuación indico las funciones que utilizo para Box y RoundBox en centímetros y que tengo en mi librería personal:\n\n\n//////////////////////////////////////////////////\n///\n/// Box en centimetros para imprimir\n/// NCaja (oPrn, nArriba, nIzq, nAbajo, nDerecha, [oPen], [oBrush])\n///\n///////////////////////////////////////////////////\nFunc NCaja(oPrn, nArriba,nIzq,nAbajo,nDerecha,oPen,oBrush)\nLocal xCor := {} , yCor := {}\nxCor := oPrn:Cmtr2Pix(nArriba,nIzq)\nyCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)\nIF oBrush = nil \n   oPrn:Box(xCor[1],xCor[2],yCor[1],yCor[2],oPen)\nELSE\n   oPrn:FillRect({xCor[1],xCor[2],yCor[1],yCor[2]},oBrush)\nENDI\nreturn NIL\n\n\n//////////////////////////////////////////////////\n///\n/// Box redondeada en centímetros para imprimir\n/// RCaja (oPrn, nArriba, nIzq, nAbajo, nDerecha, nAncho, nAlto, [oPen], [nColor])\n/// nAncho y nAlto  ancho y alto del arco, por ejemplo 150,150\n/// nColor rellena con ese color la caja\n///////////////////////////////////////////////////\nFunc RCaja(oPrn, nArriba, nIzq, nAbajo, nDerecha, nAncho, nAlto, oPen, nColor )\nLocal xCor := {} , yCor := {}\nxCor := oPrn:Cmtr2Pix(nArriba,nIzq)\nyCor := oPrn:Cmtr2Pix(nAbajo,nDerecha)\noPrn:RoundBox(xCor[2],xCor[1],yCor[2],yCor[1],nAncho,nAlto,oPen, nColor )\nreturn NIL','',0,'QA==','36cduoja',1,0,'',9,0,0),(11668,2677,6,9,0,'85.54.232.128',1145083470,1,0,1,1,1,1,'','','Antonio, [b:2nfuavj8]estamos en las mismas[/b:2nfuavj8].\n\nDe momento, he puesto en la función cTempFile un [b:2nfuavj8]msgwait[/b:2nfuavj8] para darle vidilla. Pero sigue tardando demasiado y la ventana del \'building page\' sigue \'missing\'.','',0,'QA==','2nfuavj8',1,0,'',9,0,0),(11669,2688,20,6,0,'87.3.232.122',1145092983,1,0,1,1,1,1,'','Re: Codice fiscale/ partita IVA','Controllo Codice Fiscale:\n\n[code:3a3ntsvp]FUNCTION ISCOD&#40; cCod &#41;\n\n    LOCAL aCod &#58;= &#123; 1, 0, 5, 7, 9, 13, 15, 17, 19, 21, 2, 4, 18, 20, 11, 3, 6, 8, 12, 14, 16, 10, 22, 25, 24, 23 &#125;\n    LOCAL nChr, cChr, nPos, nCod &#58;= 0\n\n    IF LEN&#40; ALLTRIM&#40; cCod &#41; &#41; != 16; RETURN &#46;F&#46;; ENDIF\n\n    FOR nChr = 1 TO 15\n        cChr = SUBSTR&#40; cCod, nChr, 1 &#41;\n        IF !ISALPHA&#40; cChr &#41; &#46;AND&#46; !ISDIGIT&#40; cChr &#41;; RETURN &#46;F&#46;; ENDIF\n        nPos = ASC&#40; cChr &#41; - IF&#40; ISALPHA&#40; cChr &#41;, ASC&#40; &quot;A&quot; &#41;, ASC&#40; &quot;0&quot; &#41; &#41;\n        nCod += IF&#40; nChr % 2 = 0, nPos, aCod&#91; nPos + 1 &#93; &#41;\n    NEXT\n\n    RETURN nCod % 26 = ASC&#40; SUBSTR&#40; cCod, nChr, 1 &#41; &#41; - ASC&#40; &quot;A&quot; &#41;[/code:3a3ntsvp]\n\nControllo Partita IVA:\n\n[code:3a3ntsvp]FUNCTION ISIVA&#40; cCod &#41;\n\n    LOCAL nChr, nPos, nCod &#58;= 0\n\n    IF LEN&#40; RTRIM&#40; cCod &#41; &#41; != 11 &#46;OR&#46; cCod = &quot;00000000000&quot;; RETURN &#46;F&#46;; ENDIF\n\n    FOR nChr = 1 TO 10\n        nPos = ASC&#40; SUBSTR&#40; cCod, nChr, 1 &#41; &#41; - ASC&#40; &quot;0&quot; &#41;\n        nCod += IF&#40; nChr % 2 = 0, INT&#40; nPos * 2 / 10 + &#40; nPos * 2 &#41; % 10 &#41;, nPos &#41;\n    NEXT\n\n    RETURN &#40; 10 - nCod % 10 &#41; % 10 = ASC&#40; SUBSTR&#40; cCod, nChr, 1 &#41; &#41; - ASC&#40; &quot;0&quot; &#41;[/code:3a3ntsvp]\n\nPer quanto riguarda la generazione, avrei quella per il Codice Fiscale ma richiede anche il database aggiornato dei codici dei comuni.\n\nSe ti serve dimmelo (ma il mio DBF dei codici dei comuni non so quanto sia aggiornato).\n\nEMG','',0,'AIA=','3a3ntsvp',1,0,'',6,0,0),(11670,2683,20,6,0,'87.3.232.122',1145093209,1,0,1,1,1,1,'','Re: Due problemini','[quote=&quot;Silvio&quot;:y8a900gj]1) Qualcuno di voi sa dirmi se è possibile premere su un\'immagine con il mouse e la procedura mi restituisce le coordinate esatte dove ha \"puntato\" il mouse ?[/quote:y8a900gj]\n\nAl codeblock bLClicked vengono passate automaticamente tali coordinate:\n\noImg:bLClicked = { | nRow, nCol | MyFunc( nRow, nCol ) }\n\n[quote=&quot;Silvio&quot;:y8a900gj]2)E\' possibile creare un piccolo cerchio rosso nel punto dove ha cliccato il mouse sempre sull\'immagine per determinare appunto l\'area interessata ?[/quote:y8a900gj]\n\nUsa il codeblock di cui sopra unito ai vari esempi di cerchi che ti ho preparato in passato.\n\nEMG','',0,'gA==','y8a900gj',1,0,'',6,0,0),(11671,2682,3,6,0,'87.3.232.122',1145093280,1,0,1,1,1,1,'','Re: provide help for get from combo box','You can\'t use the same variable for the GET and the COMBOBOX.\n\nEMG','',0,'gA==','1y4awj8q',1,0,'',6,0,0),(11672,2677,6,2,0,'87.218.146.108',1145094316,1,0,1,1,1,1,'','','Manuel,\n\nPuedes proporcionar un ejemplo pequeño y autocontenido que lo reproduzca ? gracias','',0,'gA==','2olg2t6b',1,0,'',2,0,0),(11673,2650,3,2,0,'87.218.146.108',1145095139,1,0,1,1,1,1,'','','Julio,\n\nSolucionado. Os hemos enviado una librería modificada, por email.','',0,'gA==','301ovvcm',1,0,'',2,0,0),(11674,2676,3,2,0,'87.218.146.108',1145095457,1,0,1,1,1,1,'','','Roberto,\n\n&gt; The documentation found in pdfcreator directory\n\nWhere have you located such documentation ? Just installing the pdfcreator software ?','',0,'gA==','1milnvap',1,0,'',2,0,0),(11675,2686,6,2,0,'87.218.146.108',1145095707,1,0,1,1,1,1,'','','Luis,\n\nEsa clase viene con FWH, pero la claúsula VERTICAL es nueva y no estará en el FWH que tienes.','',0,'gA==','2fb831le',1,0,'',2,0,0),(11676,2687,3,2,0,'87.218.146.108',1145095850,1,0,1,1,1,1,'','','Ralph,\n\nYou may use the Class TRichEdit which it is Win32 standard and offers much more possibilities. Please review samples\\TestRtf.prg and TestRich.prg','',0,'gA==','tg6y9ruk',1,0,'',2,0,0),(11677,2689,7,527,0,'83.55.38.232',1145096705,1,0,1,1,1,0,'','ESTADO','Hola soy Manolo, enviame un mensaje a foro si trabajas hoy, tengo un par de preguntas sobre el RC para hacerte. Gracias.','',0,'gA==','303ewxt8',1,0,'',527,0,0),(11678,2689,7,2,0,'87.218.146.108',1145103002,1,0,1,1,1,1,'','','Manuel,\n\nTu dirás <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','khyk6l3u',1,0,'',2,0,0),(11679,2689,7,527,0,'83.49.29.240',1145105274,1,0,1,1,1,0,'','FICHERO RC. (No se puede crear la caja de dialogo)','* Al intentar incorporar este codigo del .PRG me da un error, me lo compila perfectamente pero al ejecutarlo me da el error No se puede crear la caja de dialog y me esta volviendo loco.\n\n* FUNCTION que incorporo en el programa\n\nFUNCTION ficha_cliente(oWnd,sel_dbf,registro)\n* Estado 1 (Borrado) 2 (Cambiado) 3 (Nuevo)\nSELECT (sel_dbf)\nDEFINE   DIALOG maecli RESOURCE \"ocliente\"\nACTIVATE DIALOG maecli\nRETURN 0         \n\n* Fichero RC\n//\n// Symantec ResourceStudio generated header file\n//\n// This file is intended for use with Windows 3.1\n//\n\n#define APSTUDIO_READONLY_SYMBOLS\n#include &lt;afxres.h&gt;\n#include &lt;ver.h&gt;\n#undef APSTUDIO_READONLY_SYMBOLS\n\n#include \"resource.k\"\n\nocliente DIALOG MOVEABLE IMPURE LOADONCALL DISCARDABLE	10, 10, 186, 70\nSTYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU | WS_VISIBLE | WS_POPUP\nCAPTION \"Clientes\"\nFONT 8, \"MS Sans Serif\"\nBEGIN\nEND','',0,'gA==','3at3ti43',1,0,'',527,0,0),(11680,2684,6,49,0,'62.13.172.78',1145105484,1,0,1,1,1,1,'','','I must show Meter line  because I must make a test for my boys at school\n\nRegards','',0,'gA==','85m02xec',1,0,'',49,0,0),(11681,2683,20,49,0,'62.13.172.78',1145105682,1,0,1,1,1,1,'','','Grazie Emg\ncmq tu credi che si possa fare su un immagine  jpg?','',0,'gA==','3iqad0le',1,0,'',49,0,0),(11682,2683,20,6,0,'87.3.232.122',1145106744,1,0,1,1,1,1,'','','Certo, basta utilizzare la classe TImage.\n\nEMG','',0,'gA==','pcgexqmg',1,0,'',6,0,0),(11683,2677,6,9,0,'85.54.232.128',1145106949,1,0,1,1,1,1,'','','Antonio, te acompaño un pequeño ejemplo (te lo envio por email para que lo compruebes):\n\n///////////////////////////////////////////////////////////////////////////////\n\n#include \"FiveWin.ch\"\n#include \"Image.ch\"\n\nfunction Main()\nLOCAL oDlg, oImage\n\nDEFINE DIALOG oDlg FROM 0, 0 TO 10, 50 ;\n      TITLE \"IMPRESION LENTA Y SIN BUILDING PAGES\"\n\n   @ 0, 0 IMAGE oImage SIZE 0, 0 OF oDlg \n   oImage:Progress( .f. )\n   @ 2, 12 BUTTON \"Imprimir\" SIZE 50,10 OF oDlg ;\n           ACTION PrintImage( oImage )\n   ACTIVATE DIALOG oDlg CENTER\n   oDlg:End()\nreturn nil\n\nstatic func PrintImage( oImage )\n\n   local oPrn, nVeces\n\n   oImage:LoadBmp(\"eva.jpg\")\n   PRINT oPrn NAME \"Image Printing\" PREVIEW\n      FOR nVeces = 0 TO 10\n      PAGE\n         oPrn:SayImage( 0, 0, oImage, 2000, 3000 )\n      ENDPAGE\n      NEXT\n   ENDPRINT\nreturn nil','',0,'gA==','2j4k1y9c',1,0,'',9,0,0),(11684,2683,20,49,0,'62.13.172.78',1145107033,1,0,1,1,1,1,'','','mi da errore non trova hdc\n\n[code:z4ny286o]\nError occurred at&#58; 08/01/03, 14&#58;08&#58;12\n   Error description&#58; Error BASE/1003  Variable does not exist&#58; HDC\n[/code:z4ny286o]\n\n\n[code:z4ny286o]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Image&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg \n    Local oImg\n\n    LOCAL nX &#58;= 100 \n    LOCAL nY &#58;= 100 \n\n    LOCAL nMinRad &#58;= 20 \n    LOCAL nMaxRad &#58;= 100 \n\n    LOCAL nStep &#58;= 10 \n\n    DEFINE DIALOG oDlg; \n           SIZE 600, 400\n           @ 0, 0 IMAGE oImg SIZE 150, 150 OF oDlg  ADJUST\n             oImg&#58;Progress&#40; &#46;f&#46; &#41;\n           oImg&#58;bLClicked = &#123; | nRow, nCol | CIRCLES&#40; oDlg, hDC, nRow, nCol, nMinRad, nMaxRad, nStep &#41; &#125;\n          @ 1, 28 BUTTON &quot;Select Image&quot; SIZE 50,10 OF oDlg ACTION GetImage&#40; oImg &#41;\n    ACTIVATE DIALOG oDlg CENTER\n             // ON PAINT CIRCLES&#40; oDlg, hDC, nX, nY, nMinRad, nMaxRad, nStep &#41;;\n    RETURN NIL\n\n#define BRUSH_NULL 5\n\nSTATIC FUNCTION CIRCLES&#40; oDlg, hDC, nX, nY, nMinRad, nMaxRad, nStep &#41; \n\n    LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41; \n\n    LOCAL i \n\n    FOR i = nMinRad TO nMaxRad STEP nStep \n        oDlg&#58;Circle&#40; nX - i, nY - i, i * 2 &#41; \n    NEXT \n\n    SELECTOBJECT&#40; hDC, hOldBrush &#41; \n\n    RETURN NIL\n\n//----------------------------------------------------------------------------//\n\nfunction GetImage&#40; oImg &#41;\n\n   local gcFile &#58;= cGetFile&#40; &quot;Bitmap &#40;*&#46;bmp&#41;| *&#46;bmp|&quot; +         ;\n                             &quot;DIB   &#40;*&#46;dib&#41;| *&#46;dib|&quot; +          ;\n                             &quot;PCX   &#40;*&#46;pcx&#41;| *&#46;pcx|&quot;  +         ;\n                             &quot;JPEG  &#40;*&#46;jpg&#41;| *&#46;jpg|&quot; +          ;\n                             &quot;GIF   &#40;*&#46;gif&#41;| *&#46;gif|&quot;  +         ;\n                             &quot;TARGA &#40;*&#46;tga&#41;| *&#46;tga|&quot; +          ;\n                             &quot;RLE   &#40;*&#46;rle&#41;| *&#46;rle|&quot; +          ;\n                             &quot;All Files &#40;*&#46;*&#41;| *&#46;*&quot;             ;\n                            ,&quot;Please select a image file&quot;, 4 &#41;\n\n   if ! Empty&#40; gcFile &#41; &#46;and&#46; File&#40; gcFile &#41;\n      oImg&#58;LoadBmp&#40; gcFile &#41;\n   endif\n\nreturn nil\n[/code:z4ny286o]\n\n\n\n[/code]','',0,'AIA=','z4ny286o',1,0,'',49,0,0),(11685,2683,20,6,0,'87.3.232.122',1145107604,1,0,1,1,1,1,'','','Devi utilizzare i metodi\n\nhDC = oDlg:GetDC()\n\ne alla fine\n\noDlg:ReleaseDC()\n\nEMG','',0,'AIA=','28jsgx8b',1,0,'',6,0,0),(11686,2683,20,49,0,'62.13.172.78',1145108030,1,0,1,1,1,1,'','','ma dentro alla funzione circle ?\no in main \n\nma perchè non se lo prende da solo ?','',0,'AIA=','mdog6y1e',1,0,'',49,0,0),(11687,2683,20,6,0,'87.3.232.122',1145109613,1,0,1,1,1,1,'','','Dentro la funzione Circle(). Non se la prende da solo perché non sei nella ON PAINT. Guardati le classi. Ci sono quanti esempi vuoi di questa tecnica.\n\nEMG','',0,'AIA=','12934vw2',1,0,'',6,0,0),(11688,2683,20,49,0,'62.13.172.78',1145109917,1,0,1,1,1,1,'','','SCUSAMI MA \nl\'avevo già messa dentro circle ma mi dava errore lo stesso \ncmq dopo il caffè riprovo....\n\ncmq BUONA PASQUA A TE E ALLA TUA FAMIGLIA','',0,'AIA=','1q56729b',1,0,'',49,0,0),(11689,2683,20,6,0,'82.57.160.24',1145110330,1,0,1,1,1,1,'','','Così funziona:\n\n[code:2aasy8zj]#include &quot;Fivewin&#46;ch&quot; \n#include &quot;Image&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg \n    Local oImg \n\n    LOCAL nX &#58;= 100 \n    LOCAL nY &#58;= 100 \n\n    LOCAL nMinRad &#58;= 20 \n    LOCAL nMaxRad &#58;= 100 \n\n    LOCAL nStep &#58;= 10 \n\n    DEFINE DIALOG oDlg; \n           SIZE 600, 400 \n           @ 0, 0 IMAGE oImg SIZE 150, 150 OF oDlg  ADJUST \n             oImg&#58;Progress&#40; &#46;f&#46; &#41; \n           oImg&#58;bLClicked = &#123; | nRow, nCol | CIRCLES&#40; oDlg, nRow, nCol, nMinRad, nMaxRad, nStep &#41; &#125; \n          @ 1, 28 BUTTON &quot;Select Image&quot; SIZE 50,10 OF oDlg ACTION GetImage&#40; oImg &#41; \n    ACTIVATE DIALOG oDlg CENTER \n             // ON PAINT CIRCLES&#40; oDlg, hDC, nX, nY, nMinRad, nMaxRad, nStep &#41;; \n    RETURN NIL \n\n#define BRUSH_NULL 5 \n\nSTATIC FUNCTION CIRCLES&#40; oDlg, nX, nY, nMinRad, nMaxRad, nStep &#41; \n\n    LOCAL hDC &#58;= oDlg&#58;GetDC&#40;&#41;\n\n    LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41; \n\n    LOCAL i \n\n    FOR i = nMinRad TO nMaxRad STEP nStep \n        oDlg&#58;Circle&#40; nX - i, nY - i, i * 2 &#41; \n    NEXT \n\n    SELECTOBJECT&#40; hDC, hOldBrush &#41; \n\n    oDlg&#58;ReleaseDC&#40;&#41;\n\n    RETURN NIL \n\n//----------------------------------------------------------------------------// \n\nfunction GetImage&#40; oImg &#41; \n\n   local gcFile &#58;= cGetFile&#40; &quot;Bitmap &#40;*&#46;bmp&#41;| *&#46;bmp|&quot; +         ; \n                             &quot;DIB   &#40;*&#46;dib&#41;| *&#46;dib|&quot; +          ; \n                             &quot;PCX   &#40;*&#46;pcx&#41;| *&#46;pcx|&quot;  +         ; \n                             &quot;JPEG  &#40;*&#46;jpg&#41;| *&#46;jpg|&quot; +          ; \n                             &quot;GIF   &#40;*&#46;gif&#41;| *&#46;gif|&quot;  +         ; \n                             &quot;TARGA &#40;*&#46;tga&#41;| *&#46;tga|&quot; +          ; \n                             &quot;RLE   &#40;*&#46;rle&#41;| *&#46;rle|&quot; +          ; \n                             &quot;All Files &#40;*&#46;*&#41;| *&#46;*&quot;             ; \n                            ,&quot;Please select a image file&quot;, 4 &#41; \n\n   if ! Empty&#40; gcFile &#41; &#46;and&#46; File&#40; gcFile &#41; \n      oImg&#58;LoadBmp&#40; gcFile &#41; \n   endif \n\nreturn nil[/code:2aasy8zj]\n\nEMG','',0,'AIA=','2aasy8zj',1,0,'',6,0,0),(11690,2689,7,527,0,'83.45.97.185',1145111041,1,0,1,1,1,0,'','Hola !!!!. Has podido leer mi mensaje anterior','Gracias.','',0,'AIA=','bhf3jb7c',1,0,'',527,0,0),(11691,2682,3,148,0,'82.201.237.35',1145112280,1,0,1,1,1,0,'','','Yes that is already done all of them are :V_cu_coun\nBut that does not bring the value from the combp box to the get variable What should I do to bring the value chosen from the combo box into get box ?\n\n\n[code:azkc4g6o]\n@ 45,60 GET V_cu_coun OF oDlg PIXEL \n@ 45,200 COMBOBOX V_cu_coun ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41; size 80,80 ; \n   OF oDlg PIXEL; \n   ON CHANGE &#40;v_cu_coun&#58;=cust-&gt;cu_coun&#41;; \n[/code:azkc4g6o]','',0,'AIA=','azkc4g6o',1,0,'',148,0,0),(11692,2690,7,527,0,'83.45.97.185',1145112421,1,0,1,1,1,0,'','AYUDA POR FAVOR. ESTOY BLOQUEADO','* Al intentar incorporar este codigo del .RC me da un error, me lo compila perfectamente pero al ejecutarlo me da el error No se puede crear la caja de dialog y me esta volviendo loco. \n\n* FUNCTION que incorporo en el programa \n\nFUNCTION ficha_cliente(oWnd,sel_dbf,registro) \n* Estado 1 (Borrado) 2 (Cambiado) 3 (Nuevo) \nSELECT (sel_dbf) \nDEFINE DIALOG maecli RESOURCE \"ocliente\" \nACTIVATE DIALOG maecli \nRETURN 0 \n\n* Fichero RC \n// \n// Symantec ResourceStudio generated header file \n// \n// This file is intended for use with Windows 3.1 \n// \n\n#define APSTUDIO_READONLY_SYMBOLS \n#include &lt;afxres.h&gt; \n#include &lt;ver.h&gt; \n#undef APSTUDIO_READONLY_SYMBOLS \n\n#include \"resource.k\" \n\nocliente DIALOG MOVEABLE IMPURE LOADONCALL DISCARDABLE 10, 10, 186, 70 \nSTYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU | WS_VISIBLE | WS_POPUP \nCAPTION \"Clientes\" \nFONT 8, \"MS Sans Serif\" \nBEGIN \nEND','',0,'AIA=','20vw114b',1,0,'',527,0,0),(11693,2686,6,295,0,'201.222.145.21',1145114428,1,0,1,1,1,1,'','','Antonio,\n\nAl comentar la linea con la cláusula \"VERTICAL\" me da el mismo error,\n Error E0030  Syntax error: \"parse error at \'@\'\"\n\nHabrá algun ejemplo mas desarrollado en EL build que yo tengo?\nGRACIAS DE ANTEMANO\nSALUDOS <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','38pwh79p',1,0,'',295,0,0),(11694,2683,20,49,0,'62.13.172.78',1145114777,1,0,1,1,1,1,'','','si c\'ero gia arrivato \nMa...\nhai visto cosa fa ?\n\nse io premo in 145,145  lui crea il cerchio [b:28x7zqol]a 137 circa[/b:28x7zqol]\n\nio ho inserito per vedere se crea il cerchio nelle cordinate giuste :\nprima :\n\n oImg:bLClicked = { | nRow, nCol |( NMSGBOX(NrOW,NcOL),CIRCLES( oDlg,  nRow, nCol, nMinRad, nMaxRad, nStep )) }\n\ne poi nella funzione circle\n\n // PER FARE UN CERCHIETTO\n       oDlg:Circle( nX , nY , 50 )\n       ? NX\n       ?NY\n\nho levato i cerchi concentrici in questo programma mi serve un solo cerchio( rosso/verde)  max 50/60 di diametro\n\n','',0,'QA==','28x7zqol',1,0,'',49,0,0),(11695,2691,4,13,0,'213.76.252.200',1145114808,1,0,1,1,1,0,'','Comm port init','Antonio,\n\nIt\'s possible in FWPPC initiate comm port eg. baud=9600, parity=e, data=8, stop=1 before send data to port ?\n\nThanks\nPawel','',0,'QA==','19j6pxbf',1,0,'',13,0,0),(11696,2683,20,49,0,'62.13.172.78',1145114891,1,0,1,1,1,1,'','','la funzione circle è stata moificata cosi :\n\n[code:1bh1w45y]STATIC FUNCTION CIRCLES&#40; oDlg, nX, nY, nMinRad, nMaxRad, nStep &#41;\n    LOCAL   hDC &#58;= oDlg&#58;GetDC&#40;&#41;\n    LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41;\n\n \n\n\n         // PER FARE UN CERCHIETTO\n       oDlg&#58;Circle&#40; nX , nY , 50 &#41;\n       ? NX\n       ?NY\n    SELECTOBJECT&#40; hDC, hOldBrush &#41;\n             oDlg&#58;ReleaseDC&#40;&#41;\n    RETURN NIL[/code:1bh1w45y]','',0,'AIA=','1bh1w45y',1,0,'',49,0,0),(11697,2689,7,2,0,'87.218.146.108',1145115486,1,0,1,1,1,1,'','','Manuel,\n\nAñade esta línea al comienzo de tu fichero RC:\n\n#include \"c:\\fwh\\include\\winapi.ch\"','',0,'AIA=','2q0f7xjm',1,0,'',2,0,0),(11698,2688,20,49,0,'62.13.172.78',1145115507,1,0,1,1,1,1,'','','io avrei tutto un programma che genera i codici fiscali :sarebbe troppo grande da mettere qui.\n\nPoi ci vuole l\'archivio comuni che potrebbe essere reperibile in giro','',0,'AIA=','1y9syd29',1,0,'',49,0,0),(11699,2688,20,49,0,'62.13.172.78',1145115937,1,0,1,1,1,1,'','','Per il controllo dell\'iva io uso \n[code:3a7j8by6]\n/***************************\n\n  function OKIVA&#40; PI, obbligo &#41;\n\n//***************************\n// Syntax&#58;  OKIVA&#40; &lt;ExpC&gt;, &#91;&lt;ExpL&gt;&#93; &#41;\n// &lt;ExpC&gt; Š il n&#46; di partita iva &#40;Š una stringa!&#41;\n// &lt;ExpL&gt; se Š &#46;T&#46; la partita IVA Š obbligatoria &#40;default&#41;, altrimenti pu• essere vuota\n// Restituisce &#46;t&#46;=tutto ok ; &#46;f&#46;= errata\n\nlocal  s &#58;= 0, i, t, pi1, pi2, ok &#58;= &#46;f&#46;\n\nIF pcount&#40;&#41; = 1\n    obbligo = &#46;f&#46;    // default non obbligatoria\nENDIF\n\ns &#58;= 0\n\nIF empty&#40; pi &#41;\n    return&#40; if&#40; obbligo, &#46;f&#46;, &#46;t&#46; &#41; &#41;  // se obbligatoria ritorna &#46;F&#46;\nENDIF\n\nIF len&#40; alltrim&#40; pi &#41; &#41; != 11\n    return&#40;&#46;f&#46;&#41;  // &#46;f&#46;\nENDIF\n\n// non vengono controllati gli uffici iva, tanto c\'Š il cecksum&#46;&#46;&#46;\n//IF val&#40;subst&#40;pi,8,3&#41;&#41;&lt;1 &#46;or&#46; val&#40;substr&#40;pi,8,3&#41;&#41;&gt;100\n//    * uffici iva &#40;il 100 esiste - Firenze&#41;\n//    return&#40;ok&#41;  // &#46;f&#46;\n//ENDIF\n\ni &#58;= 1\nWHILE i &lt; 11\n    pi1 &#58;= val&#40;substr&#40;pi,i,1&#41;&#41;\n    pi2 &#58;= val&#40;substr&#40;pi,i+1,1&#41;&#41;\n    s &#58;= s+pi1+2*pi2-9*int&#40;pi2/5&#41;\n    i &#58;= i+2\nENDDO\n\nt &#58;= 10-&#40;s-int&#40;s/10&#41;*10&#41;\nIF t = 10\n    t &#58;= 0\nENDIF\n\nIF t # val&#40;substr&#40;pi,11,1&#41;&#41;\n    return&#40; ok &#41;  // &#46;f&#46;\nENDIF\n\nok &#58;= &#46;t&#46;\nreturn&#40; ok &#41;  // &#46;T&#46;\n\n[/code:3a7j8by6]','',0,'AIA=','3a7j8by6',1,0,'',49,0,0),(11700,2691,4,2,0,'87.218.146.108',1145116095,1,0,1,1,1,1,'','','Pawel,\n\nYou have to use the Windows API SetCommState() function.','',0,'AIA=','258t3kaa',1,0,'',2,0,0),(11701,2688,20,49,0,'62.13.172.78',1145116101,1,0,1,1,1,1,'','','Per il controllo del CF io uso :\n[code:168pcct0]\n*ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n  FUNCTION CFISC&#40; CF, obbligo, CfNasc, CfSex &#41;\n*ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\n\n// controllo codice fiscale\n\n// Syntax&#58; cfisc&#40;&lt;ExpC&gt;, &#91;&lt;ExpL&gt;&#93;&#41;\n// dove &lt;ExpC&gt; èil numero di codice fiscale da controllare\n//      &lt;ExpL&gt; indica se si accetta anche il CF vuoto &#40;default&#41; =&#46;f&#46;\n//                                    oppure se è obbligatorio = &#46;t&#46;\n// Restituisce&#58; se errato restituisce  &#46;F&#46;\n//              se corretto restituisce &#46;T&#46;\n//\n// Se esistono il 3&#46; e 4&#46; parametro &#40;passati per referenza&#41; \n// vi vengono scritti   CFNasc  &#40;Data di nascita&#41;   tutti formati europei\n//                      CFSex   &#40;Sesso  = M F&#41;\n//\n// per il GET sul Codice Fiscale si consiglia questa Picture&#58;\n// @ 10,10 get cod pict &quot;@! AAAAAA99A99A999A&quot;\n//                      es&#58; TNLMRZ56C15L552S\n\nlocal td &#58;= &quot;0100050709131517192102041820110306081214161022252423&quot;\nlocal mn &#58;= &quot;ABCDEHLMPRST&quot;\nlocal f4 &#58;= 0, pp &#58;= 0, p &#58;= 1\nlocal i, p1, j, CfDataNascita, CfSesso, sep &#58;= &quot;&quot;, DataVuota\n\nIF obbligo == NIL\n    obbligo &#58;= &#46;f&#46;  // accetta anche CF vuoto\nENDIF\n\nif CfNasc != NIL\n    // Separatori data &#40;formato europeo&#41; possibili&#58;   / - &#46;\n    sep &#58;= substr&#40;dtoc&#40;date&#40;&#41;&#41;,3,1&#41;\n    // Default\n    CfNasc &#58;= ctod&#40;&quot;  &quot;+sep+&quot;  &quot;+sep+&quot;  &quot;&#41;\n    CfSex &#58;= &quot; &quot;\nendif\n\nCF &#58;= upper&#40; alltrim&#40;CF&#41; &#41;\nIF LEN&#40;CF&#41; = 0\n    // accetta anche Cod fisc&#46; vuoto\n    return&#40; !obbligo &#41;   // se CF obbligatorio non passato controllo\nENDIF\n\nIF len&#40;CF&#41; &lt; 16\n    return&#40; &#46;f&#46; &#41;  // errore!\nENDIF\n\nFOR I &#58;= 1 TO 15\n    P1 &#58;= ASC&#40; substr&#40; CF, I, 1 &#41; &#41;\n    \n    IF P1 &gt; 47 &#46;and&#46; P1 &lt; 58\n        P1 -= 48\n    ENDIF\n    \n    IF P1 &gt; 64 &#46;and&#46; P1 &lt; 91\n        P1 -= 65\n    ENDIF\n    \n    IF P = 0\n        PP += P1\n        P &#58;= 1\n    ELSE\n        PP += VAL&#40; substr&#40; TD, &#40;P1*2+1&#41;, 2 &#41; &#41;\n        P &#58;= 0\n    ENDIF\nNEXT\n\nPP &#58;= &#40;PP - &#40;INT &#40;PP/26&#41; &#41; * 26&#41; + 65\n\nif chr&#40;pp&#41; != right&#40;cf, 1&#41;\n    // codice fiscale errato\n    return&#40;&#46;f&#46;&#41;\nENDIF\n\nP1 &#58;= VAL&#40; substr&#40; Cf, 10, 2 &#41; &#41;\nCfSesso &#58;= &quot;M&quot;\nIF P1 &gt; 40\n    P1 -= 40\n    CfSesso &#58;= &quot;F&quot;\nENDIF\n\nIF P1 &lt; 10\n    CfDataNascita &#58;= &quot;0&quot; + RIGHT&#40; STR&#40; P1, 2 &#41;, 1 &#41;\n    J &#58;= 0\nELSE\n    CfDataNascita &#58;= RIGHT&#40; STR&#40; P1, 2 &#41;, 2 &#41;\n    J &#58;= 0\nENDIF\n\nFOR I &#58;= 1 TO 12\n    IF substr&#40; Cf, 9, 1&#41; == substr&#40; MN, I, 1 &#41;\n        J &#58;= I\n        I &#58;= 12\n    ENDIF\nNEXT\n\nIF J = 0\n    // codice fiscale errato\n    return&#40;&#46;f&#46;&#41;\nENDIF\n\nIF J &lt; 10\n    CfDataNascita += sep + &quot;0&quot; + RIGHT&#40; STR&#40; J, 2 &#41;, 1 &#41;\nELSE\n    CfDataNascita += sep + RIGHT&#40; STR&#40; J, 2 &#41;, 2 &#41;\nENDIF\n\nCfDataNascita += sep + substr&#40; Cf, 7, 2 &#41;\n\nCfNasc &#58;= ctod&#40; CfDataNasc &#41;\nCfSex &#58;= Cfsesso\n\nreturn&#40;&#46;t&#46;&#41;\n\n[/code:168pcct0]\n\neh..spero che ti serva e .....Buona Pasqua!!!!!!!!','',0,'AIA=','168pcct0',1,0,'',49,0,0),(11702,2690,7,2,0,'87.218.146.108',1145116160,1,0,1,1,1,1,'','','Manuel,\n\nAñade a tu fichero RC, como primera línea:\n\n#include \"c:\\fwce\\include\\winapi.ch\"','',0,'AIA=','2qkeqyuu',1,0,'',2,0,0),(11703,2686,6,2,0,'87.218.146.108',1145117042,1,0,1,1,1,1,'','','Luis,\n\nBusca PROGRESS en tu FiveWin.ch.','',0,'AIA=','2svwwydf',1,0,'',2,0,0),(11704,2684,6,2,0,'87.218.146.108',1145117117,1,0,1,1,1,1,'','','Silvio,\n\nI meant: use a timer to update the meter value.','',0,'AIA=','1kppz6w8',1,0,'',2,0,0),(11705,2677,6,2,0,'87.218.146.108',1145117915,1,0,1,1,1,1,'','','Manuel,\n\nLa caja de diálogo de \"building page...\" es sólo usada en la Clase TReport, no en una impresión normal. Podríamos ver la forma de que la clase TPrinter también la usase, de forma parametrizable.\n\nEn cuanto a la velocidad, si has modificado cTempFile() como te hemos indicado, es totalmente correcta. Aqui hemos modificado el ejemplo para crear 100 hojas y las crea muy rápido.','',0,'AIA=','lmhzzo7z',1,0,'',2,0,0),(11706,2686,6,295,0,'201.222.145.21',1145118316,1,0,1,1,1,1,'','','Antonio,\n\nBusqué Progress en mi FIVEWIN.CH y no está <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','2emrkw8r',1,0,'',295,0,0),(11707,2677,6,2,0,'87.218.146.108',1145118382,1,0,1,1,1,1,'','','Manuel,\n\nAqui tienes tu ejemplo modificado para que muestre la hoja que va creando:\n[code:139xfukz]\nstatic func PrintImage&#40; oImage &#41;\n\n   local oPrn, nVeces, oDlg, oSay\n\n   DEFINE DIALOG oDlg TITLE &quot;Generando la impresión&quot; SIZE 200, 100\n   \n   @ 1, 1 SAY oSay PROMPT &quot;Página número 0&quot;\n   \n   ACTIVATE DIALOG oDlg NOWAIT CENTER\n\n   oImage&#58;LoadBmp&#40;&quot;eva&#46;jpg&quot;&#41;\n\n   PRINT oPrn NAME &quot;Image Printing&quot; PREVIEW\n      FOR nVeces = 0 TO 100\n         oSay&#58;SetText&#40; &quot;Página número &quot; + AllTrim&#40; Str&#40; nVeces + 1 &#41; &#41; &#41;\n      PAGE\n         oPrn&#58;SayImage&#40; 0, 0, oImage, 2000, 3000 &#41;\n      ENDPAGE\n      NEXT\n      oDlg&#58;End&#40;&#41;\n   ENDPRINT\n\nreturn nil\n[/code:139xfukz]','',0,'AIA=','139xfukz',1,0,'',2,0,0),(11708,2692,3,49,0,'62.13.172.78',1145118443,1,0,1,1,1,1,'','random with a dbf','I have a dbf where there is a field ( codice)\nhow  I can load an random number to load a record \n\n\nRegards','',0,'AIA=','1uxmcnxo',1,0,'',49,0,0),(11709,2684,6,49,0,'62.13.172.78',1145118530,1,0,1,1,1,1,'','','can YOu write a small sample to see How I can make it ?\n\nRegards','',0,'AIA=','2tqnt7nl',1,0,'',49,0,0),(11710,2677,6,2,0,'87.218.146.108',1145119400,1,0,1,1,1,1,'','','Manuel,\n\nY aqui tienes un video para que veas a la velocidad a la que se generan las 100 páginas:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b3a94f23/impresion.zip.html\">http://hyperupload.com/download/02b3a94 ... n.zip.html</a><!-- m -->','',0,'AIA=','2tc1u0zo',1,0,'',2,0,0),(11711,2684,6,2,0,'87.218.146.108',1145120349,1,0,1,1,1,1,'','','Silvio,\n[code:2x1gw4if]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oProg\n   \n   DEFINE DIALOG oDlg TITLE &quot;Progress and timer&quot;\n\n   @ 1, 3 PROGRESS oProg POSITION 0 SIZE 120, 10\n   \n   @ 2&#46;5, 10 BUTTON &quot;End&quot; ACTION oDlg&#58;End&#40;&#41;\n   \n   ACTIVATE DIALOG oDlg CENTER ;\n      ON INIT Timer&#40; oDlg, oProg &#41;\n   \nreturn nil   \n\nfunction Timer&#40; oDlg, oProg &#41;\n   \n   local oTmr\n   \n   DEFINE TIMER oTmr INTERVAL 1000 ;\n      ACTION &#40; oProg&#58;nPosition += 5, MsgBeep&#40;&#41;,;\n             If&#40; oProg&#58;nPosition == 100, oTmr&#58;End&#40;&#41;,&#41; &#41; OF oDlg\n\n   ACTIVATE TIMER oTmr\n\nreturn nil   \n[/code:2x1gw4if]','',0,'AIA=','2x1gw4if',1,0,'',2,0,0),(11712,2692,3,2,0,'87.218.146.108',1145120546,1,0,1,1,1,1,'','','You may use nRandom( &lt;nRange&gt; ) --&gt; nValue to create random numbers.','',0,'AIA=','2ifmftix',1,0,'',2,0,0),(11713,2686,6,2,0,'87.218.146.108',1145120610,1,0,1,1,1,1,'','','Luis,\n\nNecesitas una versión más actualizada de FWH.','',0,'AIA=','1nwte9sc',1,0,'',2,0,0),(11714,2682,3,2,0,'87.218.146.108',1145120747,1,0,1,1,1,1,'','','@ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n\n...\nON CHANGE (v_cu_coun:=cust-&gt;cu_coun, oGet:Refresh() ) \n\nYou should not use the same variable name for diferent controls as Enrico has explained you.','',0,'AIA=','1n42t4mr',1,0,'',2,0,0),(11715,2687,3,305,0,'201.240.74.199',1145120891,1,0,1,1,1,0,'','','Hi Antonio:\n\nIt would be a pity to have to abandone this class, just by lack of maintenance, but anyway.\n\nI will try to modify my preview program to use Richedit class.   I read that were many bugs corrected since the version I use (FWH 2.7 january), so I will thank you a lot if you send me the last version of this class to my private email (<!-- e --><a href=\"mailto:rdelcastillo@consorcioinformatico.com\">rdelcastillo@consorcioinformatico.com</a><!-- e -->)\n\n\nRalph','',0,'AIA=','2dpmky82',1,0,'',305,0,0),(11716,2690,7,527,0,'83.45.97.185',1145123502,1,0,1,1,1,0,'','No funciona','Me da un monto de warning de variables ya definidas, me compila el exe pero no funciona.\nel directorio era otro en lugar del que me has dado C:\\FWPPC\\INCLUDE\\....\n\nGRACIAS','',0,'AIA=','115kyher',1,0,'',527,0,0),(11717,2690,7,2,0,'87.218.146.108',1145124508,1,0,1,1,1,1,'','','Manuel,\n\nUsa el resource workshop de Borland en vez de el de Symantec. \n\nComprueba que errores te da en pantalla el brc32.exe al compilar el RC. Copia aqui el resultado completo de llamar a buildce.bat ...','',0,'AIA=','18tnh7us',1,0,'',2,0,0),(11718,2687,3,2,0,'87.218.146.108',1145124610,1,0,1,1,1,1,'','','Ralph,\n\nThere have been many enhancements with new features on Class TRichEdit but the actual one that you have samples\\TestRtf.prg should work ok.','',0,'AIA=','u4v35z7q',1,0,'',2,0,0),(11719,2693,6,471,0,'201.240.49.2',1145124847,1,0,1,1,1,1,'','copy to file.txt  sdf   recorta 0 de adelant de campo tipo c','AMigos \nTengo una base de datos q debo pasar a archivo de texto \ntengo un campo nume_orden caractre de 6\ntengo un dato  01079\n\nal momento de pasar al archivo de texto pasa\n\n1079\n\nosea no pasa el 0 de adelante y clipper si lo hacia \n\n\ncopy to file.txt  sdf   recorta 0 de adelante de campo tipo caracter\nen le archivo de texto q genera\n\nla funcion _dbsdf(   que tendra algun parametro para evitar esto\n\no alguien sabe de como hacer esto  \n\n\nGracias por la ayuda\n\nVladimir Zorrilla Llerena','',0,'AIA=','15w65wu5',1,0,'',471,0,0),(11720,2690,7,527,0,'83.45.97.185',1145124986,1,0,1,1,1,0,'','Te copio el error de toda la compilacion','ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Pocket PC - March 2006               Harbour development power ³Ü\n³ (c) FiveTech, 1993-2006                    for Microsoft Windows Pocket PC ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'inicio.prg\' and generating preprocessed output to \'inicio.ppo\'...\n\nLines 170, Functions/Procedures 9\nGenerating C source output to \'inicio.c\'... Done.\ninicio.c\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(198) : warning RC4005: \'WM_NULL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(200) : warning RC4005: \'WM_DESTROY\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(201) : warning RC4005: \'WM_MOVE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(202) : warning RC4005: \'WM_SIZE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(212) : warning RC4005: \'WM_SETFOCUS\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(213) : warning RC4005: \'WM_KILLFOCUS\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(219) : warning RC4005: \'WM_PAINT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(220) : warning RC4005: \'WM_CLOSE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(221) : warning RC4005: \'WM_QUERYENDSESSION\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(222) : warning RC4005: \'WM_QUIT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(225) : warning RC4005: \'WM_SYSCOLORCHANGE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(226) : warning RC4005: \'WM_ENDSESSION\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(228) : warning RC4005: \'WM_WININICHANGE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(234) : warning RC4005: \'WM_DEVMODECHANGE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(236) : warning RC4005: \'WM_FONTCHANGE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(237) : warning RC4005: \'WM_TIMECHANGE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(248) : warning RC4005: \'WM_SPOOLERSTATUS\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(263) : warning RC4005: \'WM_COMPACTING\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(310) : warning RC4005: \'WM_GETDLGCODE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(324) : warning RC4005: \'WM_KEYDOWN\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(325) : warning RC4005: \'WM_KEYUP\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(326) : warning RC4005: \'WM_CHAR\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(341) : warning RC4005: \'WM_INITDIALOG\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(342) : warning RC4005: \'WM_COMMAND\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(344) : warning RC4005: \'WM_TIMER\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(345) : warning RC4005: \'WM_HSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(346) : warning RC4005: \'WM_VSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(371) : warning RC4005: \'WM_MOUSEMOVE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(372) : warning RC4005: \'WM_LBUTTONDOWN\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(373) : warning RC4005: \'WM_LBUTTONUP\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(375) : warning RC4005: \'WM_RBUTTONDOWN\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(376) : warning RC4005: \'WM_RBUTTONUP\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(466) : warning RC4005: \'WM_QUERYNEWPALETTE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(467) : warning RC4005: \'WM_PALETTEISCHANGING\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(468) : warning RC4005: \'WM_PALETTECHANGED\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(496) : warning RC4005: \'WM_USER\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(638) : warning RC4005: \'WS_OVERLAPPED\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(639) : warning RC4005: \'WS_POPUP\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(640) : warning RC4005: \'WS_CHILD\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(641) : warning RC4005: \'WS_MINIMIZE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(642) : warning RC4005: \'WS_VISIBLE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(643) : warning RC4005: \'WS_DISABLED\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(644) : warning RC4005: \'WS_CLIPSIBLINGS\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(645) : warning RC4005: \'WS_CLIPCHILDREN\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(646) : warning RC4005: \'WS_MAXIMIZE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(647) : warning RC4005: \'WS_CAPTION\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(648) : warning RC4005: \'WS_BORDER\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(649) : warning RC4005: \'WS_DLGFRAME\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(650) : warning RC4005: \'WS_VSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(651) : warning RC4005: \'WS_HSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(652) : warning RC4005: \'WS_SYSMENU\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(653) : warning RC4005: \'WS_THICKFRAME\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(654) : warning RC4005: \'WS_GROUP\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(655) : warning RC4005: \'WS_TABSTOP\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(657) : warning RC4005: \'WS_MINIMIZEBOX\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(658) : warning RC4005: \'WS_MAXIMIZEBOX\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(674) : warning RC4005: \'WS_OVERLAPPEDWINDOW\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(678) : warning RC4005: \'WS_POPUPWINDOW\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(718) : warning RC4005: \'CS_VREDRAW\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(719) : warning RC4005: \'CS_HREDRAW\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(721) : warning RC4005: \'CS_OWNDC\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(722) : warning RC4005: \'CS_CLASSDC\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(723) : warning RC4005: \'CS_PARENTDC\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(726) : warning RC4005: \'CS_BYTEALIGNCLIENT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(727) : warning RC4005: \'CS_BYTEALIGNWINDOW\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(728) : warning RC4005: \'CS_GLOBALCLASS\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1012) : warning RC4005: \'ES_LEFT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1014) : warning RC4005: \'ES_RIGHT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1015) : warning RC4005: \'ES_MULTILINE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1020) : warning RC4005: \'ES_AUTOHSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1023) : warning RC4005: \'ES_READONLY\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1024) : warning RC4005: \'ES_WANTRETURN\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1083) : warning RC4005: \'BS_PUSHBUTTON\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1084) : warning RC4005: \'BS_DEFPUSHBUTTON\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1085) : warning RC4005: \'BS_CHECKBOX\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1086) : warning RC4005: \'BS_AUTOCHECKBOX\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1090) : warning RC4005: \'BS_GROUPBOX\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1092) : warning RC4005: \'BS_AUTORADIOBUTTON\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1152) : warning RC4005: \'SS_LEFT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1156) : warning RC4005: \'SS_BLACKRECT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1158) : warning RC4005: \'SS_WHITERECT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1161) : warning RC4005: \'SS_WHITEFRAME\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1163) : warning RC4005: \'SS_SIMPLE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1192) : warning RC4005: \'DS_SYSMODAL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1195) : warning RC4005: \'DS_MODALFRAME\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1215) : warning RC4005: \'LBS_NOTIFY\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1216) : warning RC4005: \'LBS_SORT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1218) : warning RC4005: \'LBS_MULTIPLESEL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1219) : warning RC4005: \'LBS_OWNERDRAWFIXED\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1222) : warning RC4005: \'LBS_USETABSTOPS\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1223) : warning RC4005: \'LBS_NOINTEGRALHEIGHT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1225) : warning RC4005: \'LBS_WANTKEYBOARDINPUT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1227) : warning RC4005: \'LBS_DISABLENOSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1232) : warning RC4005: \'LBS_STANDARD\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1238) : warning RC4005: \'CBS_SIMPLE\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1239) : warning RC4005: \'CBS_DROPDOWN\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1240) : warning RC4005: \'CBS_DROPDOWNLIST\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1241) : warning RC4005: \'CBS_OWNERDRAWFIXED\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1243) : warning RC4005: \'CBS_AUTOHSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1244) : warning RC4005: \'CBS_OEMCONVERT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1245) : warning RC4005: \'CBS_SORT\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1248) : warning RC4005: \'CBS_DISABLENOSCROLL\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1258) : warning RC4005: \'SBS_HORZ\' : redefinition\nC:\\Archivos de programa\\Microsoft Visual Studio\\VC98\\include/winuser.rh(1259) : warning RC4005: \'SBS_VERT\' : redefinition\n   Creating library inicio.lib and object inicio.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00036A18\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0008C5BC\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0009A014\ndbfcdx.lib(dbfcdx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000AFAF0\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000C99F0\n* Application successfully built','',0,'AIA=','1ohhjy1a',1,0,'',527,0,0),(11721,2677,6,9,0,'85.54.232.128',1145125917,1,0,1,1,1,1,'','','Antonio, \n\nAhora si funciona correctamente. El problema estaba en cTempFile.\n\nMuchas gracias por todo.','',0,'AIA=','3dj43rl1',1,0,'',9,0,0),(11722,2680,7,150,0,'83.43.140.89',1145126574,1,0,1,1,1,1,'','','Hola.\n\nYo usé una impresora matricial star que llevaban en el vehiculo y se comunicaba por bluetooth. Mira el programa bluetooth.prg','',0,'AIA=','3d0y5qkx',1,0,'',150,0,0),(11723,2680,7,527,0,'83.45.97.185',1145126700,1,0,1,1,1,0,'','OK lo comprobare','Pero en mi caso las impresoras seguron que seran de chorro de tienta. No se si habra algun problema.','',0,'AIA=','gw0buyj5',1,0,'',527,0,0),(11724,2672,7,150,0,'83.43.140.89',1145126848,1,0,1,1,1,1,'','','Hola:\n\nSi los clientes pasan por la empresa puedes usar Activesync.\n\nSi no los puedes enviar por email. Pero esto no se si éstá implementado.','',0,'AIA=','ejllypgv',1,0,'',150,0,0),(11725,2672,7,527,0,'83.45.97.185',1145126987,1,0,1,1,1,0,'','Como puedo recoger automaticamente los datos de la pokect','Como puedo recoger automaticamente los datos de la pokect de la carpeta de la SD CAR y colocarlos automaticamente en el disco duro para su reproceso y viceversa, ya que despues tengo que volver a copiar a la pokect los clientes nuevos.\n\ngracias.','',0,'AIA=','31o56chv',1,0,'',527,0,0),(11726,2693,6,9,0,'85.54.232.128',1145127061,1,0,1,1,1,1,'','','Vlademir,\n\nA mi me funciona perfectamente:\n\nUSE CLIENTES\nCOPY TO PEPE SDF\nCLOSE','',0,'AIA=','224qx0ua',1,0,'',9,0,0),(11727,2672,7,150,0,'83.43.140.89',1145127115,1,0,1,1,1,1,'','','Sacando la sd de la pda y poniendola en el pc?','',0,'AIA=','1dl30tqa',1,0,'',150,0,0),(11728,2694,6,228,0,'200.119.75.13',1145127195,1,0,1,1,1,1,'','Generar ejecutable modo consola','Amigos del foro como estan, en este momento necesito generar un pequeño ejecutable en modo consola... logro compilar y no me genera errores pero cuando lo ejecuto no logro ver nada en pantalla... ¿Estoy Haciendo algo mal?\n\nuna parte del codigo \n\n[code:r7u9zdhf]\nSET DEVICE TO SCREEN\n\nmain&#40;&#41;\n\nfunction Main&#40;&#41;\n\n@ 0,0 SAY &quot;tratando de mostrar los say en pantalla&quot;\n\n[/code:r7u9zdhf]\n\nme hace falta agregar algo?\n\nDe antemano Gracias','',0,'AIA=','r7u9zdhf',1,0,'',228,0,0),(11729,2672,7,527,0,'83.45.97.185',1145127213,1,0,1,1,1,0,'','No tengo ni idea de lo que me dices','Me lo puedes explicar por favor.\ngracias.','',0,'AIA=','2tp38828',1,0,'',527,0,0),(11731,2672,7,150,0,'83.43.140.89',1145128104,1,0,1,1,1,1,'','','Yo tambien soy novato con las pda, solo he hecho una aplicación y muy simple.\n\nDe las 3 pda que he usado, en la Hp y en la Airys se puede sacar la tarjeta Sd y ponerla en el pc. Si el pc no tiene lector de tarjetas puedes ponerle uno, creo que son muy baratos.\n\nLa pda Symbol no tiene ( o no se puede sacar ) la Sd. Pero se pone en una cuna y se pueden copiar archivos de la pda al pc. Hay un mensaje en el foro sobre \"Total Commander\" pero yo los copio con copiar y pegar. La que está en el Pc sabe hacer estas cosas.','',0,'AIA=','3hw5cwgh',1,0,'',150,0,0),(11732,2672,7,527,0,'83.45.97.185',1145128239,1,0,1,1,1,0,'','Gracias por todo','Gracias por todo.','',0,'AIA=','rzmlpqap',1,0,'',527,0,0),(11733,2696,7,527,0,'83.45.97.185',1145128871,1,0,1,1,1,0,'','Alguien puede ayudarme','Estoy usando el Symantec Resources Studio, he diseñado una caja de dialogo, ahora estoy intentado arrancarla desde el PRV y me de un mensaje de error, no se puede arrancar la caja de dialogo, alguien de este foro tiene alguna idea de porque puede estar pasando esto.','',0,'AIA=','2x1omazm',1,0,'',527,0,0),(11734,2690,7,527,0,'83.45.97.185',1145128963,1,0,1,1,1,0,'','has conseguido averiguar algo de este problema.','gracias.','',0,'AIA=','1wz5xg6w',1,0,'',527,0,0),(11735,2696,7,2,0,'87.218.146.108',1145128983,1,0,1,1,1,1,'','','Manuel,\n\nEs el mismo fichero RC que has publicado en otro mensaje ?','',0,'AIA=','53xr4cmq',1,0,'',2,0,0),(11736,2680,7,2,0,'87.218.146.108',1145129052,1,0,1,1,1,1,'','','Manuel,\n\nLo importante es la conexión bluetooth entre la impresora y el Pocket PC.','',0,'AIA=','zb8w4k3x',1,0,'',2,0,0),(11737,2696,7,527,0,'83.45.97.185',1145129115,1,0,1,1,1,0,'','ok','Si quieres te envio de nuevo todo el codigo fuente para que lo veas.\nEstoy desesperado, ya que no puedo seguir probando las cosas y necesito decirle a mi cliente si las cosas que el me pide se pueden realizar o no se pueden realizar.\n\nGracias.','',0,'AIA=','1w1bc2a6',1,0,'',527,0,0),(11738,2690,7,2,0,'87.218.146.108',1145129202,1,0,1,1,1,1,'','','Manuel,\n\nQuítale esto al fichero RC:\n\n#define APSTUDIO_READONLY_SYMBOLS \n#include &lt;afxres.h&gt; \n#include &lt;ver.h&gt; \n#undef APSTUDIO_READONLY_SYMBOLS \n\n#include \"resource.k\" \n\nSólo tienes que incluirle el fichero winapi.ch de FWPPC.','',0,'AIA=','32y2idj2',1,0,'',2,0,0),(11739,2680,7,527,0,'83.45.97.185',1145129221,1,0,1,1,1,0,'','Vale, pero como puedo conseguir todos estos pasos','Vale, pero como puedo conseguir todos estos pasos, donde puedo tener documentacion, ya que me necesito algo de ayuda de como realizar esta operacion.','',0,'AIA=','k5vcxlae',1,0,'',527,0,0),(11740,2696,7,2,0,'87.218.146.108',1145129233,1,0,1,1,1,1,'','','Manuel,\n\nEnvíame todo en un ZIP por email.','',0,'AIA=','1bjggdc1',1,0,'',2,0,0),(11741,2696,7,527,0,'83.45.97.185',1145129357,1,0,1,1,1,0,'','OK. Dime el email a donde te lo envio.','Dime el email a donde te lo envio.','',0,'AIA=','1yqn6ie4',1,0,'',527,0,0),(11742,2694,6,2,0,'87.218.146.108',1145129419,1,0,1,1,1,1,'','','Leandro,\n\nSitúate en el directorio Tests de Harbour y escribe esto:\n\nbuild.bat hello\n\nDebería construirte hello.exe y debe verse correctamente. Ajusta los paths dentro de build.bat','',0,'AIA=','909w572n',1,0,'',2,0,0),(11743,2696,7,2,0,'87.218.146.108',1145129449,1,0,1,1,1,1,'','','<!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->','',0,'AIA=','1j5l8644',1,0,'',2,0,0),(11744,2680,7,2,0,'87.218.146.108',1145129521,1,0,1,1,1,1,'','','Manuel,\n\nLo primero es que tengas la impresora con el adaptador bluetooth y que puedas establecer la conexión manualmente entre el Pocket PC y la impresora. El resto es fácil <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2oqju59u',1,0,'',2,0,0),(11745,2696,7,527,0,'83.45.97.185',1145129752,1,0,1,1,1,0,'','Lo tienes en tu correo.','Lo tienes en tu correo.','',0,'AIA=','12zpw3qc',1,0,'',527,0,0),(11746,2694,6,228,0,'200.119.75.13',1145133709,1,0,1,1,1,1,'','nada..','Antonio el build que dices no lo encuentro... de igual manera intente generarlo con verce... pero tampoco. compila perfecto, genera el ejecutable, pero no muestra nada en pantalla... ¿tiene esto algo que ver con el windows xp?...','',0,'AIA=','v2lurjmg',1,0,'',228,0,0),(11747,2697,6,492,0,'201.154.127.16',1145135416,1,0,1,1,1,1,'','Antonio, Usando PreView en reportes finaliza la App ......','Hola Antonio y foro :\n\nNo me habia percatado de ese detalle, hasta ahora que estuve checando algunos reportes, al usar el preview me muestra todo OK, pero al salir del mismo y querer seguir trabajando, pum !!! cierra la aplicacion de un solo golpe y sin ningun tipo de aviso.\n\n- Ya estuve haciendo pruebas, si mando imprimir directo, todo OK, no termina la App.\n\n- Ya desactive la clase UtilPrn que tambien uso en los reportes, la clase de Menu5C que entra en un \"pequeño conflicto\" con el menu del preview y nada, con y sin estas clases hace lo mismo.\n\n- Ya cheque la documentacion de la clase, y no encuentro nada raro contra el codigo.\n\n- Ya susitui el archivo prev32.dll que tenia, con el que trae el build de Abril 06 y nada.... igual  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nComento que estos reportes, tal cual estan, trabajaban a la perfeccion con 16bits.\n\n\nAnexo links para ver unos video de lo que sucede :\n\nNOTA : En los video aparece \"basurita\" debido a la calidad de los mismos, pero en pantalla todo se ve OK.\n\nCaso 1 :\nDesde una pestaña de un folder, al generar el preview, me permite seguir usando las otras pestañas,pero al querer seleccionar alguna del folder \"padre\" ....... zas !!!\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/015f535b49/Caso1.avi.html\">http://hyperupload.com/download/015f535 ... 1.avi.html</a><!-- m -->\n\nCaso 2 :\nDesde un dialogo, que es donde permito configurar la impresion de los documentos del cliente, usando la opcion de prueba..... zas !!!\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02cc1fa427/Caso2.avi.html\">http://hyperupload.com/download/02cc1fa ... 2.avi.html</a><!-- m -->\n\n\nY aqui esta un poco de codigo :\n\nFunction PRNCRTGRP( nMode, aPrntrDts, cKurUsr, cCrtTxt, lVwDts, lOrdX )\nLOCAL oPrn, nLine := 7.5, nQ, nRw, nCl, oFntH, oFntD, oFntF, oBrush, oUtil, cLX\nLOCAL cEmpHdr, cStrF, aHdrX := { \"RELACION DE VENTAS  [ORDEN] \", ;\n\"CONCENTRADO DE VENTAS AGRUPADAS POR PRODUCTO\", \"CONCENTRADO DE VENTAS POR USUARIO\", ;\n\"RELACION DE VENTAS COSTEADAS\" }\nLOCAL nPags := 1, cL1, cL2, cLH, cStrLine, cLY, oCorteX, aRepObj, aRepVrs, aHdrDts\ncEmpHdr := AllTrim( DeCrypt( AllTrim( EMPDTSP-&gt;ENC ), GnMyXDts(7) ) )\nIF nMode == 1\n	aHdrX[1] += IIF( lOrdX, \"DOCUMENTO \", \"CAPTURA \" )\n	IF lVwDts\n		aHdrX[1] += \" [OTROS DATOS]\"\n	ENDIF\nENDIF\ncL1 := PadC( \"IMPRESION DEL CORTE DEL DIA : \" + ChgDat2Str( Date() ), 78 )\ncL2 := PadC( aHdrX[nMode], 78 )\ncStrF := \" IMPRESO POR : \" + cKurUsr + Space(10) + \"EL : \" + ChgDat2Str( Date() ) + ;\n	Space(10) + \"A LAS : \" + Time() + Space(10) + \"PAG : \" + AllTrim( Str( nPags ) )\nDO CASE\n	CASE nMode == 1\n		cLH := \" FOLIO   No. PARTE        DESCRIPCION                  UNITARIO UNS    IMPORTE\"\n	CASE nMode == 2\n		cLH := \" GRUPO  No. PARTE        DESCRIPCION                            UNS    IMPORTE\"\n	CASE nMode == 3\n		cLH := \" FOLIO    NOMBRE DEL CLIENTE                       TIPO    HORA        IMPORTE\"\n	CASE nMode == 4\n		cLH := \" FOLIO     UNS   IMPORTE FACTURA   UNS   IMPORTE FECHA      PROVEEDOR\"\nENDCASE\nIF aPrntrDts[8]\n	PRINT oPrn TITLE \"CORTE DEL DIA\" PREVIEW TO aPrntrDts[6]\nELSE\n	PRINT oPrn TO aPrntrDts[6]\nENDIF\nDEFINE FONT oFntH NAME \"Arial\"       SIZE 0,-16 BOLD OF oPrn\nDEFINE FONT oFntD NAME \"Courier New\" SIZE 0,-12      OF oPrn\nDEFINE FONT oFntF NAME \"Arial\"       SIZE 0,-8       OF oPrn\nDEFINE BRUSH oBrush COLOR CLR_WHITE\n//DEFINE UTILPRN oUtil OF oPrn\n\noPrn:SetPortrait()\nnRw := oPrn:nVertRes() / 66\nnCl := oPrn:nHorzRes() / 80\n\noCorteX := TTxtFile():New( cCrtTxt )\naHdrDts := { cL1, cL2, cLH }\naRepObj := { oUtil, oFntH, oFntD, oFntF, oBrush }		// Objetos Del Reporte\naRepVrs := { cEmpHdr, aHdrDts }							// Varibles NO Modificables\nPRNREPHDR( 0, aRepObj, aRepVrs, @cStrF, @nLine, @nPags )\nFOR nQ := 1 TO oCorteX:RecCount()\n	IF nQ &gt; 5\n		cStrLine := oCorteX:ReadLine()\n		oPrn:Say( nRw*nLine, nCl*01, cStrLine, oFntD )\n		nLine ++\n		IF nLine &gt;= 61\n			PRNREPHDR( 1, aRepObj, aRepVrs, @cStrF, @nLine, @nPags )\n		ENDIF\n	ENDIF\n	oCorteX:Skip()\nNEXT\noCorteX:Close()\nENDPAGE\nENDPRINT\nRELEASE FONT oFntH, oFntD, oFntF\nRELEASE BRUSH oBrush\n\n//oFntH:END()\n//oFntD:END()\n//oFntF:END()\n//oBrush:END()\n//oUtil:Reset()\nReturn NIL\n*-----*\n\n\nOjala y no sea algo grave......\n\n\nGracias y Saludos','',0,'','15p01yvz',1,0,'',492,0,0),(11748,2697,6,9,0,'85.54.232.128',1145136380,1,0,1,1,1,1,'','Re: Antonio, Usando PreView en reportes finaliza la App ....','[quote=&quot;Raymundo Islas M.&quot;:13ghghi9]Hola Antonio y foro :\n\naRepObj:= { oUtil, oFntH, oFntD, oFntF, oBrush }		// \n[/quote:13ghghi9]\n\n\n¿Está bien el oUtil o seróa oPrn?','',0,'gA==','13ghghi9',1,0,'',9,0,0),(11749,2697,6,492,0,'201.154.127.16',1145136571,1,0,1,1,1,1,'','','Hola Manuel\n\nPues ya ni se  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nYa desactive todo lo que implica la UtilPrn y sigue igual !!!\n\nPero la clase, cuando la activo, si me muestra correctamente lo que debe mostrar !!!\n\n\nSaludos','',0,'gA==','3jjbg9ir',1,0,'',492,0,0),(11750,2694,6,9,0,'85.54.232.128',1145138919,1,0,1,1,1,1,'','','Leandro, te envio a tu correo un fichero para que puedas hacerlo.','',0,'gA==','2wyo0g2b',1,0,'',9,0,0),(11751,2697,6,9,0,'85.54.232.128',1145139298,1,0,1,1,1,1,'','','Pero en la línea que te señalo, figura el objeto oUtil. ¿Es correcto?','',0,'gA==','5tq9odt2',1,0,'',9,0,0),(11752,2697,6,492,0,'201.154.127.16',1145140285,1,0,1,1,1,1,'','','Asi es Manuel, pero la clase en si esta totalmente desactivada, en esa linea no tiene ningun valor (NIL) y aunque la mando a otra funcion que es la que me pinta el cuadro de encabezado y footer del reporte, no se usa.\n\nGracias y Saludos','',0,'gA==','33tvejm3',1,0,'',492,0,0),(11753,2692,3,49,0,'87.6.182.124',1145140461,1,0,1,1,1,1,'','','thanks antonio\nbut this func is of fw or harbour ?','',0,'gA==','2zro45o5',1,0,'',49,0,0),(11754,2684,6,49,0,'87.6.182.124',1145140816,1,0,1,1,1,1,'','','thanks','',0,'gA==','1gxgawb8',1,0,'',49,0,0),(11755,2692,3,2,0,'87.218.146.108',1145142913,1,0,1,1,1,1,'','','FW/FWH','',0,'gA==','3uf5s2sl',1,0,'',2,0,0),(11756,2694,6,2,0,'87.218.146.108',1145143054,1,0,1,1,1,1,'','','Leandro,\n\nAqui tienes el build.bat:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0112de9b79/build.bat.html\">http://hyperupload.com/download/0112de9 ... d.bat.html</a><!-- m -->','',0,'gA==','1oscjy58',1,0,'',2,0,0),(11757,2697,6,2,0,'87.218.146.108',1145143222,1,0,1,1,1,1,'','','Raymundo,\n\nPuedes probar samples\\TestPrn2.prg y comprobar si te funciona bien ? gracias','',0,'gA==','271m77dw',1,0,'',2,0,0),(11758,2697,6,492,0,'201.154.127.16',1145143627,1,0,1,1,1,1,'','','Antonio\n\nEl ejemplo que indicas funciona OK al igual que los preview de la App, en si, el problema no es el mostrar los datos, sino que al cerrar el preview, me cierra la App tambien !!.\n\n\nGracias y Saludos','',0,'gA==','2zwbo9dy',1,0,'',492,0,0),(11759,2696,7,2,0,'87.218.146.108',1145144230,1,0,1,1,1,1,'','','Manuel,\n\nFunciona correctamente. Solo tienes que cambiar el fichero RC de esta forma:\n[code:5loy0nj5]\n#include &quot;winapi&#46;ch&quot;\n\nmcliente DIALOG MOVEABLE LOADONCALL DISCARDABLE	10, 10, 186, 70\nSTYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU | WS_VISIBLE | WS_POPUP\nCAPTION &quot;Clientes&quot;\nFONT 8, &quot;MS Sans Serif&quot;\nBEGIN\nEND\n[/code:5loy0nj5]\nY modifica buildce.bat en esta línea:\nIF EXIST %1.rc %vcdir%\\bin\\rc -r -d_CE -ic:\\fwce\\include %1\n\nAqui lo ves funcionando:\n[url=http&#58;//imageshack&#46;us:5loy0nj5][img:5loy0nj5]http&#58;//img69&#46;imageshack&#46;us/img69/2546/manuel9cs&#46;png[/img:5loy0nj5][/url:5loy0nj5]','',0,'GIA=','5loy0nj5',1,0,'',2,0,0),(11760,2694,6,228,0,'200.119.74.6',1145144372,1,0,1,1,1,1,'','ok gracias...','Listo muchas gracias problema solucionado....  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nde nuevo gracias a todos por la ayuda...','',0,'GIA=','mq4ji8t7',1,0,'',228,0,0),(11761,2697,6,2,0,'87.218.146.108',1145144555,1,0,1,1,1,1,'','','Raymundo,\n\nTienes un VALID en la ventana principal de tu aplicación ? Se activa el VALID ?\n\nO la aplicación se cierra totalmente y sin errores ? De ser así, Windows solo cierra una aplicación cuando esta entra en un bucle recursivo que desestabilizaría todo el sistema. Por ejemplo, una función que se llama a si misma: la pila crecería hasta un punto en que el sistema operativo decide cerrar la aplicación por seguridad.','',0,'GIA=','1n15jaui',1,0,'',2,0,0),(11762,2697,6,2,0,'87.218.146.108',1145144602,1,0,1,1,1,1,'','','Tambien prueba a ejecutar la aplicación desde una ventana de consola y mira a ver si al terminar escribe algún mensaje de error en la ventana de consola.','',0,'GIA=','cnazfg60',1,0,'',2,0,0),(11763,2697,6,492,0,'201.154.127.16',1145146186,1,0,1,1,1,1,'','','Antonio, la App se cierra de golpe en cuanto cierro la pantalla del Preview, en el 1er post, puse un par de links de unos videos donde se aprecia lo que comento, si tuviste oportunidad de verlos ?\n\nVoy a probar lo que me comentas ..\n\nGracias','',0,'GIA=','1ar46a3s',1,0,'',492,0,0),(11764,2698,6,215,0,'201.154.237.249',1145149762,1,0,1,1,1,0,'','Message en la barra no aparecen en el build de Abril','Hola gente,\nacabo de notar que los mensajes no aparecen en la barra de mensaje, esto a partir de compilar con la nueva versión FWH 2.7 del build de Abril\n\n  REDEFINE GET oGet  VAR dFecha  ID 102 OF oFld:aDialogs[1]       PICTURE \"@D\" ; \n        MESSAGE \"La fecha debe ser &lt;= \" + cValToChar( Date() )\n\nSi uso una versión diferente para compilar los mensajes regresan a la barra de mensajes.\n\nSaludos','',0,'','28qd7ppy',1,0,'',215,0,0),(11765,2698,6,492,0,'201.154.127.16',1145150787,1,0,1,1,1,1,'','','Hola Fernando\n\nVi tu post, acabo de checar y si salen, estoy usando tambien el build Abril.\n\nA de ser algun detalle que se escapo por ahi... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos','',0,'','3q2wr6kr',1,0,'',492,0,0),(11766,2698,6,215,0,'201.154.237.249',1145152180,1,0,1,1,1,0,'','FUNCIONA BIEN, No hacer caso al mensaje','Hola, de nuevo yo.\nTodo funciona bien. \n\nPara que los mensajes aparezcan en la barra de mensaje STATUSBAR hay que poner primero el \n\n   SET MESSAGE OF oWnd ;\n      TO \"\" CENTERED\n\nDespués el \n\nDEFINE STATUSBAR  OF oWnd PROMPT \"\"\n\nTodo ok.','',0,'','3pt5obp5',1,0,'',215,0,0),(11767,2692,3,195,0,'62.38.80.137',1145155108,1,0,1,1,1,0,'','','Silvio \n\nTry the folowing:\n\n[code:28n4g6lo]\n\nFUNCTION  Unique&#40;&#41;\n\nLOCAL cNumeric&#58;=   STR &#40;HB_RANDOMINT&#40;1,10000&#41; ,5&#41; \n\n// You may use any number instand of 10000\n\ncNumeric &#58;= STRTRAN &#40;cNumeric ,&quot; &quot;,&quot;0&quot;&#41;\n\nRETURN&#40; cNumeric&#41;\n\n [/code:28n4g6lo]\n\nRegards\nDionisis','',0,'AIA=','28n4g6lo',1,0,'',195,0,0),(11768,2686,6,295,0,'201.222.145.21',1145155953,1,0,1,1,1,1,'','','Antonio, \nLa versión de FWH que tengo es de DIC 2005.. la progress bar no está implementada aquí?\n\nVerás, lo que necesito es dar aspecto XP a una aplicacion que estoy desarrollando y lo único que falta es el \"meter\" ..y bueno si no está, me matriculo con el último build.','',0,'AIA=','3w1vcy35',1,0,'',295,0,0),(11769,2686,6,2,0,'87.218.146.108',1145171498,1,0,1,1,1,1,'','','Luis,\n\nEn ese build no está implementada totalmente.','',0,'AIA=','3csgfnbh',1,0,'',2,0,0),(11770,2699,6,535,0,'84.121.16.39',1145174550,1,0,1,1,1,0,'','Error en Resource Workshop','Hola...\ndespues de haber intentado abrir un rc de ejemplo en xp. el workshop me da error diciendo que se requiere el BWCC.DLL  2.0 o superior, he probado a borrar todo, y dejar en la carpeta del workshop y/o  en windows/system el fichero (que he comprobado que es superior a la version 2) y sigue sin funcionar, no puedo editar los rc y no entiendo porque...\n\nme podeis ayudar por favor\n\nmil gracias','',0,'AIA=','vozfqlhr',1,0,'',535,0,0),(11771,2699,6,2,0,'87.218.146.108',1145175657,1,0,1,1,1,1,'','','Carlos,\n\nCopia esta DLL en donde tengas el Resource Workshop:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0130f35842/BWCC.ZIP.html\">http://hyperupload.com/download/0130f35 ... C.ZIP.html</a><!-- m -->','',0,'AIA=','1zi8bfc8',1,0,'',2,0,0),(11772,2671,6,534,0,'80.103.171.213',1145178974,1,0,1,1,1,0,'','','menu opciones -&gt; configurar flag (de [x]harbour)\nojo  poner en minuscula\n\nlo que no te puedo decir es que si lo puede guarda en otro lugar que no sea el directorio del programa verce.','',0,'','za8ao5d5',1,0,'',534,0,0),(11773,2700,7,215,0,'201.137.38.84',1145196703,1,0,1,1,1,0,'','Probando los ejemplos para el pocket','He enviado un par de ejemplos a un posible cliente y me dice que al ejecutarlos en su pocket le aparece el siguiente mensaje.\n\n\"No se puede encontrar el programa o uno de sus componentes. Compruebe ruta de acceso y que todas las bibliotecas necesarias esten disponibles\" \n\nLos ejemplos los baje de:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwppc.html\">http://www.fivetechsoft.com/spanish/fwppc.html</a><!-- m -->\n\nExactamente los\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce10.zip\">http://www.fivetechsoft.com/files/fwce10.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce6.zip\">http://www.fivetechsoft.com/files/fwce6.zip</a><!-- m -->\n\n\nGracias\nFernando','',0,'','2sh8qsjd',1,0,'',215,0,0),(11774,2700,7,2,0,'87.218.146.108',1145197781,1,0,1,1,1,1,'','','Fernando,\n\nPuede ser que esté usando WinCE en cuyo caso algunas funciones no estan soportadas, en concreto las de uso de menus desde recursos. Pregúntale si el botón del menú principal de windows está abajo a la izquierda ó arriba a la izquierda.\n\nTambien hay que comprobar que el Pocket PC sea compatible ARM. Que modelo de Pocket PC es ?','',0,'','1fklo651',1,0,'',2,0,0),(11775,2671,6,9,0,'85.54.232.128',1145199501,1,0,1,1,1,1,'','','Muchas gracias.  El archivo lo crea en el mismo directorio donde están los PRG.','',0,'','13pk8mh8',1,0,'',9,0,0),(11776,2699,6,535,0,'84.121.16.39',1145199976,1,0,1,1,1,0,'','','Gracias Antonio..\n\nYa me baje la libreria, pero he tenido que reiniciar el sistema porque aun asi el error persisitia, ya esta bien\n\nnuevamente gracias','',0,'','vhwutdeb',1,0,'',535,0,0),(11777,2701,6,61,0,'201.217.164.28',1145200582,1,0,1,1,1,0,'','Felices Pascuas','Amigos:\n\nFelices Pascuas para todos.\n\nUn cordial saludo desde Uruguay.\n\nRuben Fernandez','',0,'','22xu03do',1,0,'',61,0,0),(11778,2702,6,61,0,'201.217.164.28',1145200859,1,0,1,1,1,0,'','Microsoft SQL Server?','Amigos:\n\nTengo una aplicacion que usa DBF (los de siempre) pero ademas\nme pidieron que debo acceder a 2 bases de datos de Ms. Sql Server.\nDe estas tablas debo seleccionar Empleados segun un nombre o apellido que\ningresare a una DBF mia e igual para Clientes.\n\nNecesito una idea de como hacerlo?\n\nSaludos y Gracias\n\nRuben Fernandez','',0,'','ea7rm1fe',1,0,'',61,0,0),(11779,2692,3,49,0,'62.13.172.78',1145205171,1,0,1,1,1,1,'','','thanks but I must create a random number from a file dbf \non the file dbf i have a numeric field ( codice) :\n\nuse IMG alias IMG\ntotale:= img-&gt;(reccount())\nNumber:=nRnadom(totale)\nGo Number\n\nhave you another idea ?','',0,'','32tpwh17',1,0,'',49,0,0),(11780,2696,7,527,0,'83.55.37.194',1145208447,1,0,1,1,1,0,'','OK. Todo perfecto, muchas gracias','Otra pregunta mas por favor, tendo la ventana diseñada, pero ahora necesito asignarle a cada uno de los campos y botones las acciones y valores que mi interesan, como hago este proceso, te envio el fichero RC para que me hagas un ejemplo con un boton y un campo, como cargarle valores y como actualizar un dbf despues con los valores de este campo\nGracias.\n#include \"..\\include\\winapi.ch\"\n#include \"inicio.rh\"\nMCLIENTE DIALOG 7, 3, 146, 142\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME\nCAPTION \"Añadir modificar clientes\"\nFONT 8, \"MS Sans Serif\"\n{\n CTEXT \"Código\", -1, -1, 1, 33, 8\n CTEXT \"Fecha Alta\", -1, 34, 1, 54, 8\n CTEXT \"CIF/NIF\", -1, 87, 1, 54, 8\n EDITTEXT IDC_EDIT1, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER\n EDITTEXT IDC_EDIT2, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT IDC_EDIT3, 91, 10, 52, 12, WS_BORDER | WS_TABSTOP\n LTEXT \"Nombre, Calle, CP, Población, Provincia\", -1, 2, 23, 135, 8\n EDITTEXT IDC_EDIT4, 3, 32, 140, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT IDC_EDIT5, 3, 43, 140, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT IDC_EDIT6, 3, 54, 28, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT IDC_EDIT7, 30, 54, 113, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT IDC_EDIT8, 3, 65, 140, 12, WS_BORDER | WS_TABSTOP\n CTEXT \"Teléfono\", -1, 2, 78, 41, 8\n EDITTEXT IDC_EDIT9, 3, 86, 43, 12, WS_BORDER | WS_TABSTOP\n CTEXT \"Fax\", -1, 48, 78, 41, 8\n EDITTEXT IDC_EDIT10, 50, 86, 43, 12, WS_BORDER | WS_TABSTOP\n CTEXT \"Movil\", -1, 98, 78, 41, 8\n EDITTEXT IDC_EDIT11, 99, 86, 43, 12, WS_BORDER | WS_TABSTOP\n CTEXT \"Otros comentarios y notas 70(x)\", -1, 3, 100, 135, 8\n EDITTEXT IDC_EDIT12, 4, 108, 137, 12, WS_BORDER | WS_TABSTOP\n DEFPUSHBUTTON \"Grabar\", IDC_PUSHBUTTON1, 4, 127, 50, 14\n DEFPUSHBUTTON \"Salir\", IDC_PUSHBUTTON2, 91, 127, 50, 14\n}\ngracias\nEres un fenomeno en este lenguaje, muchas gracias.','',0,'','1anx5fog',1,0,'',527,0,0),(11781,2702,6,2,0,'87.218.146.194',1145210848,1,0,1,1,1,1,'','','Ruben,\n\nUsa ADO. Busca en estos foros por ADO.','',0,'','1ae2g1ak',1,0,'',2,0,0),(11782,2696,7,2,0,'87.218.146.194',1145210903,1,0,1,1,1,1,'','','Hace falta \"inicio.rh\"','',0,'','3lek8blf',1,0,'',2,0,0),(11783,2696,7,527,0,'83.55.37.194',1145211056,1,0,1,1,1,0,'','No esta totalmente vacio, no tiene nada','Lo que pasa es que el editor de pantalla, lo incluye y lo he dejado.','',0,'','mkoxftmw',1,0,'',527,0,0),(11784,2692,3,195,0,'62.38.80.137',1145212797,1,0,1,1,1,0,'','','Hello Silvio again \n\nTry the following :\n\n[code:1wzjs16i]\n\nFUNCTION Unique&#40;nTotale&#41;\n\nRETURN&#40; HB_RANDOMINT&#40;1,nTotale&#41;&#41;\n\n[/code:1wzjs16i]\n\nRegards\nDionisis','',0,'AIA=','1wzjs16i',1,0,'',195,0,0),(11785,2435,4,19,0,'83.18.178.178',1145213108,1,0,1,1,1,0,'','','&gt;&gt;&gt; Can You tell me it is posible to lock xBase record on LAN server from \n&gt;&gt;&gt; aplication running on Pocket PC with WM 5.0? Have WM 5.0 any file \n&gt;&gt;&gt; sharing function?\n\n&gt;&gt; Eugeniusz,\n&gt;&gt;\n&gt;&gt; WM 5.0 has the LockFileEx function that could be used for that purpose, \n&gt;&gt; but there\'s no native support for reading DBF files. There is a 3rd party \n&gt;&gt; solution available from <!-- w --><a class=\"postlink\" href=\"http://www.codebase.com\">www.codebase.com</a><!-- w -->, but I don\'t know if they \n&gt;&gt; support the scenario you want.\n&gt;&gt;\n&gt;&gt; -- \n&gt;&gt; Ginny Caughey\n&gt;&gt; .NET Compact Framework MVP\n&gt;&gt;\n&gt; Thank You Ginny\n&gt;\n&gt; I use insteed of Codebase solution from FiveTech Software FiveWin for \n&gt; Pocket PC. This product is based on Harbour. I cannot get record locking \n&gt; on my iPaq with WM 5.0. This is some strange for me because the same \n&gt; program rewriten in desktop WinXP environment work properly.\n&gt; I am sure Harbour have good solution for menage file and record sharing, \n&gt; locking etc.\n&gt;\n&gt; regards\n&gt; Eugeniusz\n&gt;\n&gt; BTW Codebase is only for single user.\n&gt;\nEugeniusz,\n\nIt\'s entirely possible that Harbour does not provide file and record locking \non Windows CE platforms. Support for LockFileEx was only added in CE 5.0, \nand in fact CF 2.0 doesn\'t provide a wrapper for it in the current version.\n\n-- \nGinny Caughey\n.NET Compact Framework MVP','',0,'AIA=','2sm4giew',1,0,'',19,0,0),(11786,2696,7,527,0,'83.55.37.194',1145215251,1,0,1,1,1,0,'','Ayudame con el siguiente codigo del fichero RC','[b:2fyzmyx9]Dime como puedo declarar el REDEFINE dentro del PRG para que una de estas variables contenga el valor de un fichero, y despues como puedeo actualizarla[/b:2fyzmyx9]\n\n#include \"..\\include\\winapi.ch\" \nMCLIENTE DIALOG 7, 3, 146, 142 \nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME \nCAPTION \"Añadir modificar clientes\" \nFONT 8, \"MS Sans Serif\" \n{ \nCTEXT \"Código\", -1, -1, 1, 33, 8 \nCTEXT \"Fecha Alta\", -1, 34, 1, 54, 8 \nCTEXT \"CIF/NIF\", -1, 87, 1, 54, 8 \nEDITTEXT IDC_EDIT1, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER \nEDITTEXT IDC_EDIT2, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT IDC_EDIT3, 91, 10, 52, 12, WS_BORDER | WS_TABSTOP \nLTEXT \"Nombre, Calle, CP, Población, Provincia\", -1, 2, 23, 135, 8 \nEDITTEXT IDC_EDIT4, 3, 32, 140, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT IDC_EDIT5, 3, 43, 140, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT IDC_EDIT6, 3, 54, 28, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT IDC_EDIT7, 30, 54, 113, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT IDC_EDIT8, 3, 65, 140, 12, WS_BORDER | WS_TABSTOP \nCTEXT \"Teléfono\", -1, 2, 78, 41, 8 \nEDITTEXT IDC_EDIT9, 3, 86, 43, 12, WS_BORDER | WS_TABSTOP \nCTEXT \"Fax\", -1, 48, 78, 41, 8 \nEDITTEXT IDC_EDIT10, 50, 86, 43, 12, WS_BORDER | WS_TABSTOP \nCTEXT \"Movil\", -1, 98, 78, 41, 8 \nEDITTEXT IDC_EDIT11, 99, 86, 43, 12, WS_BORDER | WS_TABSTOP \nCTEXT \"Otros comentarios y notas 70(x)\", -1, 3, 100, 135, 8 \nEDITTEXT IDC_EDIT12, 4, 108, 137, 12, WS_BORDER | WS_TABSTOP \nDEFPUSHBUTTON \"Grabar\", IDC_PUSHBUTTON1, 4, 127, 50, 14 \nDEFPUSHBUTTON \"Salir\", IDC_PUSHBUTTON2, 91, 127, 50, 14 \n} \n','',0,'QA==','2fyzmyx9',1,0,'',527,0,0),(11787,2694,6,141,0,'200.88.94.19',1145217046,1,0,1,1,1,1,'','','¿Funciona igaul para xHarbour?\n\nGracias adelantadas,','',0,'QA==','uv8r66xl',1,0,'',141,0,0),(11788,2657,6,212,0,'200.125.13.19',1145219454,1,0,1,1,1,0,'','_ADS FUNCTION NOT FOUND','Error: Unresolved external \'_HB_FUN__ADS\' referenced from C:\\TEMP\\OBJ\\DOS.OBJ\n\nDonde se encuentra esta función ?','',0,'QA==','11owqr9a',1,0,'',212,0,0),(11789,2692,3,49,0,'82.59.140.173',1145221066,1,0,1,1,1,1,'','','thanks to all','',0,'QA==','2z2rgkce',1,0,'',49,0,0),(11790,2684,6,49,0,'82.59.140.173',1145221592,1,0,1,1,1,1,'','','Dear Antonio,\n\nfirst problem \nHow I can to set the timer ?\non your example U use interval 1000 \nit is egual to one minute ?\n\nsecond problem\nHow I can to show on progress bar  the time remaining ( with number) ?\n\n\nthird problem\nI made a game at school\nwhen a boy does not answer well to a question in the test the procedure must remove the remaining time.\nIt is possible ? \nHow I can make to call a func to remove time to progress bar ?\n\n\nBest Regards','',0,'QA==','q1zdy7kl',1,0,'',49,0,0),(11791,2703,3,49,0,'82.59.140.173',1145225716,1,0,1,1,1,1,'','iMAGE WITDH AND hEIGHT','if I have an 377x314 image I must put on a dialog this image but\nif I write  \n@ 2,5 IMAGE oImg SIZE 377,314  OF oDlg\n\nthe image is too big \n\nwhy ?','',0,'QA==','3a9gsalg',1,0,'',49,0,0),(11792,2704,3,49,0,'82.59.140.173',1145227315,1,0,1,1,1,1,'','Cannot create Dialog Box','ON PROGRAM \n\n[code:10p7tylw] DEFINE DIALOG oDlg RESOURCE &quot;MAIN&quot;\n ACTIVATE DIALOG oDlg CENTER[/code:10p7tylw]\n\n\nIT MAKE THIS ERROR \n\n   Path and name: C:\\Work\\PRG\\img\\Immagine.Exe (32 bits)\n   Size:   434,688 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04/17/06, 00:39:02\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: MAIN\n\n\nTHE RESOURCE \n\n[code:10p7tylw]\n#ifdef __FLAT__\n   1 24 &quot;WindowsXP&#46;Manifest&quot;\n#endif\n\n#ifdef __64__\n   1 24 &quot;WinXP/WindowsXP&#46;Manifest64&quot;\n#endif\n\n\n\n\n\n\n#define DIALOG_1   1\n\nMAIN DIALOG 13, 50, 770, 332\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;PHOTO HUNT&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;TBitMap&quot;, 100, &quot;TBitMap&quot;, 0 | WS_CHILD | WS_VISIBLE, 5, 7, 377, 314\n CONTROL &quot;TBitMap&quot;, 200, &quot;TBitMap&quot;, 0 | WS_CHILD | WS_VISIBLE, 388, 7, 377, 314\n&#125;\n\n[/code:10p7tylw]\n\n\n\nWHY ?','',0,'AIA=','10p7tylw',1,0,'',49,0,0),(11793,2435,4,2,0,'87.218.146.194',1145228725,1,0,1,1,1,1,'','','Eugeniusz,\n\nHarbour uses LockFileEx() and it is available from FWPPC. Another issue is if WM 5.0 properly supports it. We may do a test in pure C to build a sample we may provide to Microsoft guys.','',0,'AIA=','3ds6g4da',1,0,'',2,0,0),(11794,2657,6,2,0,'87.218.146.194',1145228797,1,0,1,1,1,1,'','','Usa REQUEST ADS en vez de _ADS. Por favor usa el foro en Español para preguntar en Español. Gracias.','',0,'AIA=','30ybsr8m',1,0,'',2,0,0),(11795,2704,3,2,0,'87.218.146.194',1145228865,1,0,1,1,1,1,'','','Because you need to redefine those two TBitmap controls that you have placed in the dialog.','',0,'AIA=','1ky1pqr7',1,0,'',2,0,0),(11796,2684,6,2,0,'87.218.146.194',1145229093,1,0,1,1,1,1,'','','Silvio,\n\n1. milliseconds\n\n2. Use a TMeter instead of a progress bar.\n\n3. Simply set the meter to 100%.','',0,'AIA=','2hgmp175',1,0,'',2,0,0),(11797,2703,3,2,0,'87.218.146.194',1145229203,1,0,1,1,1,1,'','','Please provide the used image. Place it at <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and provide the download link.','',0,'AIA=','1096fgnk',1,0,'',2,0,0),(11798,2694,6,2,0,'87.218.146.194',1145229255,1,0,1,1,1,1,'','','Julio,\n\nSí.','',0,'AIA=','3p32vtw6',1,0,'',2,0,0),(11799,2703,3,49,0,'82.59.140.173',1145230420,1,0,1,1,1,1,'','','THIS IS FILE IMAGE \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0115f62e17/1_mod.jpg.html\">http://hyperupload.com/download/0115f62 ... d.jpg.html</a><!-- m -->','',0,'AIA=','29dhodnh',1,0,'',49,0,0),(11800,2704,3,49,0,'82.59.140.173',1145231310,1,0,1,1,1,1,'','','SORRY u ARE RIGHT','',0,'AIA=','l9rt9w7i',1,0,'',49,0,0),(11801,2705,6,439,0,'201.221.45.37',1145249729,1,0,1,1,1,1,'','Pregunta sobre la clase nueva ButtonBmp','he estado tratando de trabajar con esta nueva clase, <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> el 30 de marzo, bajé unas modificaciones hechas a la clase recibidas de Antonio (los archivos Fivewin.ch y Buttonb.prg) Copié el primero en mi directorio .\\fwh\\include reemplazando el anterior y luego compilé mi aplicación incluyendo el segundo en la lista de archivos.\n\nMe da el siguiente problema:\nTengo una dialog en una dll que tiene un grupo de botones (definidos como button tal como lo pide la clase.\n\n[b:3tsqbumg]Los íconos inactivos (disable) se ven en blanco y negro, pero los activos no se ven.[/b:3tsqbumg]\n\n[b:3tsqbumg]Al pulsar el botón, si mantengo el botón del mouse pulsado puedo ver la imagen en colores del botón (el bitmap) pero si no no puedo ver el bitmap, solo veo el botón, que se comporta como un botón xp (con los cambios de tonalidades).[/b:3tsqbumg] <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nQue puede ser el problema?\nAlguien me puede tirar una idea? <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->','',0,'QA==','3tsqbumg',1,0,'',439,0,0),(11802,2706,6,141,0,'200.88.94.19',1145251115,1,0,1,1,1,1,'','Impresion en forma continua con TPrinter','Bueno.... vamos a ver con esto, pues Antonio ya dice  como hacerlo en otra parte del foro, pero no me funciona:\n\n- Impresion en forma continua, impresor de matrices\n\n- Uso de la clase TPrinter (....si, ya se, deberia utilizar la tDosPrn, pero es necesario en este caso, pues hay impresion de unos aspectos gráficos).\n\nEl lío ocurre con el salto de papel, pues el formulario de impresion no es tamaño carta (es más pequeño), y al hacer un ENDPAGE se sale una pagina tamaño carta.\n\nEn otra pregunta ya realizada a este respecto, Antonio sugiere utilizar la funcion PrnSetSize() antes de declarar el objeto TPrinter..... pero no me funciona!!!\n\nAlguien que lo haya conseguido, por favor que me heche una mano!\n\nAbrazos,','',0,'QA==','3ssdba68',1,0,'',141,0,0),(11803,2701,6,439,0,'201.221.32.233',1145254250,1,0,1,1,1,1,'','','Gracias Compatriota <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QA==','n68uy3t6',1,0,'',439,0,0),(11804,2705,6,2,0,'87.218.146.194',1145254466,1,0,1,1,1,1,'','','Jose,\n\nPuedes proporcionar un ejemplo pequeño y autocontenido que lo reproduzca ? gracias','',0,'QA==','3ljoh9io',1,0,'',2,0,0),(11805,2705,6,439,0,'201.221.32.233',1145258837,1,0,1,1,1,1,'','','Antonio, \nYa descubrí el problema, no creo sea un defecto sino un erro mío.\n\nEste defecto que mencioné se produce si el botón es más pequeño que el bitmap (en mi caso 1/2 milímetro en el ancho), corregido dicho error el bitmap se ve perfectamente en todos los estados.\n\nLo que me confundía es que se viera cuando está deshabilitado.\n\nSe los comento pensando en que pueda ser de utilidad para otros colegas.\n\nGracias de todos modos por tu buena voluntad de ayudarme......y a propósito ¿Nunca duermes?....\n\nUn fuerte abrazo. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','to3mp73n',1,0,'',439,0,0),(11806,2705,6,439,0,'201.221.32.233',1145261050,1,0,1,1,1,1,'','','Una nueva consulta:\n\nNecesito que uno de los botones (buttonbmp) cambie de bitmap, es un botón que puede borrar y recuperar un registro, al borrar cambia el bitmap indicando que al presionarlo recupera el registro y al recuperar vuelve al estado anterior (indicando que borra), yo lo tenía instrumentado con btnbmp con el método Loadbitmap pero no me funciona con esta nueva clase.\n\nComo puedo hacerlo? <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'QA==','1ym88hwc',1,0,'',439,0,0),(11807,2703,3,6,0,'87.3.184.190',1145265514,1,0,1,1,1,1,'','','I confirm the problem. It seems a bug in TBitmap. This is a sample:\n\n[code:1hcq2zaf]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBmp\n\n    DEFINE DIALOG oDlg;\n           SIZE 700, 500\n\n    @ 1, 1 BITMAP oBmp FILE &quot;c&#58;\\fwharbour\\bitmaps\\magic&#46;bmp&quot; SIZE 320, 200\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1hcq2zaf]\n\nEMG','',0,'AIA=','1hcq2zaf',1,0,'',6,0,0),(11808,2705,6,2,0,'87.218.146.200',1145265683,1,0,1,1,1,1,'','','Jose,\n\nAñádele este método a la clase TButtonBmp:\n[code:3s591y8f]\nMETHOD LoadBitmap&#40; cBmpName &#41; CLASS TButtonBmp\n\n   if ! Empty&#40; &#58;&#58;hBitmap &#41;\n      DeleteObject&#40; &#58;&#58;hBitmap &#41;\n      &#58;&#58;hBitmap = nil\n   endif\n   \n   &#58;&#58;cBitmap = cBmpName\n   \n   if File&#40; cBmpName &#41;\n      &#58;&#58;hBitmap = ReadBitmap&#40; 0, cBmpName &#41;\n   else\n      &#58;&#58;hBitmap = LoadBitmap&#40; GetResources&#40;&#41;, cBmpName &#41;\n   endif\n   \nreturn nil      \n[/code:3s591y8f]\nNo, nunca duermo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3s591y8f',1,0,'',2,0,0),(11809,2707,3,92,0,'62.151.92.14',1145266413,1,0,1,1,1,0,'','Excel y FWH','Hola a todos,\n\ntengo al necesidad de capturar información de un fichero Excel de Office 2003¿?.\n\n¿Alguién tiene algun ejemplo y de donde puedo bajar lo que necesitaría para acceder al fichero?\n\nHe buscado en este site pero encuentro varias respuestas que parecen soluciones no definitivas o en proceso de modificación, así como soluciones para [x]Harbour, y tengo dudas de que no coja lo que funcione adecuadamente.\n\nEstoy usando Harbour y FWH del septiembre\'05.\n\nSaludos y gracias.\nCarlos G.','',0,'','2mg7imat',1,0,'',92,0,0),(11810,2667,3,67,0,'62.235.25.216',1145267425,1,0,1,1,1,0,'','','cFilter := \"me_mc_serl = \"+ x \n\nbFilter = \"{||\"+cFilter+\"}\" \n\nDBSETFILTER(bFilter,cFilter) \n\nbFilter isn\'t a codeblock , macro expansion ?????????????\n\n\nFrank','',0,'','18b00v07',1,0,'',67,0,0),(11811,2708,2,536,0,'200.43.134.229',1145270569,1,0,1,1,1,0,'','problemas blinker 7','Soy nuevo en el grupo, ante todo buenos dias:\nEl problema que tengo es que despues de compliar y blinkear, cuando ejecuto la aplicacion me abre el depurador automaticamente. Alguien me puede explicar que es lo que esta pasando.\n\nSaludos','',0,'','2p6rxw7m',1,0,'',536,0,0),(11812,2703,3,2,0,'87.218.146.15',1145273534,1,0,1,1,1,1,'','','Silvio, Enrico,\n\nAs a temporary workaround you may do:\n[code:gst444o7]\n    ACTIVATE DIALOG oDlg; \n             CENTER ;\n             ON INIT oBmp&#58;SetSize&#40; 320, 200 &#41; \n[/code:gst444o7]','',0,'AIA=','gst444o7',1,0,'',2,0,0),(11813,2708,2,2,0,'87.218.146.15',1145273610,1,0,1,1,1,1,'','','Carlos,\n\nDebes estar compilando algún PRG usando /b. \n\nNo uses /b.','',0,'AIA=','3fp1w7df',1,0,'',2,0,0),(11814,2703,3,2,0,'87.218.146.15',1145273824,1,0,1,1,1,1,'','','If I am not wrong, its not a bug, as when using a DIALOG and specifying SIZE clause, we are managing dialogs units, not pixels.','',0,'AIA=','34b2o45w',1,0,'',2,0,0),(11815,2708,2,536,0,'200.43.134.229',1145274613,1,0,1,1,1,0,'','depurador','Gracias por la respuesta, te paso la linea de compilacion:\n\nc:\\clip53\\bin\\clipper %1 /n/a/v/w/ic:\\fw24\\include;c:\\clip53\\include %2 %3 &gt; clip.log\n\nEs la que esta en \"BUILD.BAT\" en el directorio SAMPLES','',0,'AIA=','1zokdhb4',1,0,'',536,0,0),(11816,2696,7,2,0,'87.218.146.138',1145278430,1,0,1,1,1,1,'','','Manuel,\n[code:36pdbyju]\nFUNCTION ocliente&#40;oWnd,sel_dbf,registro&#41;\n* Estado 1 &#40;Borrado&#41; 2 &#40;Cambiado&#41; 3 &#40;Nuevo&#41;\n\nlocal oDbf\n\nSELECT &#40;sel_dbf&#41;\nDATABASE oDbf\n\nDEFINE DIALOG maecli RESOURCE &quot;mcliente&quot;\n\nREDEFINE GET oDbf&#58;Codigo    ID  10 OF maecli\nREDEFINE GET oDbf&#58;CifNif    ID  30 OF maecli\nREDEFINE GET oDbf&#58;NombreC   ID  40 OF maecli\nREDEFINE GET oDbf&#58;Direccion ID  50 OF maecli\nREDEFINE GET oDbf&#58;CP        ID  60 OF maecli\nREDEFINE GET oDbf&#58;Poblacion ID  70 OF maecli\nREDEFINE GET oDbf&#58;Provincia ID  80 OF maecli\nREDEFINE GET oDbf&#58;Telefono  ID  90 OF maecli\nREDEFINE GET oDbf&#58;Fax       ID 100 OF maecli\nREDEFINE GET oDbf&#58;Movil     ID 110 OF maecli\nREDEFINE GET oDbf&#58;Notas     ID 120 OF maecli\n\nREDEFINE BUTTON ID 130 OF maecli ACTION oDbf&#58;Save&#40;&#41;, maecli&#58;End&#40;&#41;\nREDEFINE BUTTON ID 140 OF maecli ACTION maecli&#58;End&#40;&#41;\n\nACTIVATE DIALOG maecli\nRETURN 0         \n[/code:36pdbyju]\nAsí se ve:\n[url=http&#58;//imageshack&#46;us:36pdbyju][img:36pdbyju]http&#58;//img61&#46;imageshack&#46;us/img61/9539/manuel4ak&#46;png[/img:36pdbyju][/url:36pdbyju]\nY el RC se ha modificado asi para identificar cada control por su ID:\n[code:36pdbyju]\n#include &quot;winapi&#46;ch&quot;\n\nMCLIENTE DIALOG 7, 3, 146, 142 \nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME \nCAPTION &quot;Añadir modificar clientes&quot; \nFONT 8, &quot;MS Sans Serif&quot; \n&#123; \nCTEXT &quot;Código&quot;, -1, -1, 1, 33, 8 \nCTEXT &quot;Fecha Alta&quot;, -1, 34, 1, 54, 8 \nCTEXT &quot;CIF/NIF&quot;, -1, 87, 1, 54, 8 \nEDITTEXT 10, 2, 10, 28, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER \nEDITTEXT 20, 39, 10, 48, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT 30, 91, 10, 52, 12, WS_BORDER | WS_TABSTOP \nLTEXT &quot;Nombre, Calle, CP, Población, Provincia&quot;, -1, 2, 23, 135, 8 \nEDITTEXT 40, 3, 32, 140, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT 50, 3, 43, 140, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT 60, 3, 54, 28, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT 70, 30, 54, 113, 12, WS_BORDER | WS_TABSTOP \nEDITTEXT 80, 3, 65, 140, 12, WS_BORDER | WS_TABSTOP \nCTEXT &quot;Teléfono&quot;, -1, 2, 78, 41, 8 \nEDITTEXT 90, 3, 86, 43, 12, WS_BORDER | WS_TABSTOP \nCTEXT &quot;Fax&quot;, -1, 48, 78, 41, 8 \nEDITTEXT 100, 50, 86, 43, 12, WS_BORDER | WS_TABSTOP \nCTEXT &quot;Movil&quot;, -1, 98, 78, 41, 8 \nEDITTEXT 110, 99, 86, 43, 12, WS_BORDER | WS_TABSTOP \nCTEXT &quot;Otros comentarios y notas 70&#40;x&#41;&quot;, -1, 3, 100, 135, 8 \nEDITTEXT 120, 4, 108, 137, 12, WS_BORDER | WS_TABSTOP \nDEFPUSHBUTTON &quot;Grabar&quot;, 130, 4, 127, 50, 14 \nDEFPUSHBUTTON &quot;Salir&quot;, 140, 91, 127, 50, 14 \n&#125;\n[/code:36pdbyju]','',0,'GIA=','36pdbyju',1,0,'',2,0,0),(11817,2696,7,527,0,'83.43.154.92',1145278619,1,0,1,1,1,0,'','Ok','Muchas gracias.','',0,'GIA=','xgq250mg',1,0,'',527,0,0),(11818,2708,2,2,0,'87.218.146.138',1145278655,1,0,1,1,1,1,'','','Borra todos los OBJs y las librerías que contengan OBJs que puedan haber sido compilados con /b. Y vuelve a compilarlos todos.','',0,'GIA=','2i772pmo',1,0,'',2,0,0),(11819,2703,3,6,0,'82.57.161.88',1145279351,1,0,1,1,1,1,'','','I agree. TBitmap behavior is consistent with the other controls.\n\nEMG','',0,'GIA=','3w17g9qq',1,0,'',6,0,0),(11820,2709,6,203,0,'200.107.17.132',1145284387,1,0,1,1,1,1,'','IMPRIMIR DESDE PORGRAMAS DOS EN XP','Buenos días a todos\n\nEn este momento me encuentro todavia en la migración de clipper 5.2 \na FWH 2.6\n\nPero en la version actual que tengo funcionando basada en DOS tengo problemas al imprimir en maquinas con XP, se demora mucho tiempo no se si alguien sabe como solicionar este problema\n\nde antemano muchas gracias\n\n\n\nSaludos\n\nOscar','',0,'GIA=','2r3yj4fh',1,0,'',203,0,0),(11821,2710,6,264,0,'64.116.212.96',1145285399,1,0,1,1,1,0,'','Tone() no funciona','Antonio.\nExiste algun problema con la funcion Tone(), o ya no funcionara?.\nExiste, por otra parte, alguna alternativa a esta si dejara de funcionar.\n\nTone(120,1) ; Tone(220,1) ; Tone(320,1)\n\nSaludos\n\nFTDN/07/ab/2006','',0,'GIA=','2toqxjst',1,0,'',264,0,0),(11822,2708,2,536,0,'200.43.134.229',1145286601,1,0,1,1,1,0,'','sigue sin andar','borre los obj del directorio SAMPLES y sigue sin funcionar, con respecto a la libreria te paso la linea de FIVEWIN.lnk\n\n// BLINKER EXECUTABLE COMPRESS\nMAP A,S\n\nBLINKER LINK VERSION 7.0\n\nPACKCODE\nPACKDATA\n\n// If you use Mr. Debug for Windows product\n// search c:\\mrdebug\\lib\\mrd4win.lib\n\nDEFBEGIN\n   name        FiveWin\n   description \'Clipper for Windows library\'\n   exetype     Windows 3.1\n   code        moveable discardable\n   data        preload moveable\n   stacksize   9500\n   heapsize    2048\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nNOBELL\n\nSEARCH  c:\\fw24\\lib\\Five, c:\\fw24\\lib\\FiveC, c:\\fw24\\lib\\Objects\nLIB     c:\\fw24\\lib\\WinApi, Clipper, Extend, DbfNtx, Terminal\n// LIB   fixclp51.lib   \n// for Clipper 5.1 users\n\nSaludos','',0,'GIA=','1jkrf3f8',1,0,'',536,0,0),(11823,2705,6,439,0,'201.221.40.72',1145286689,1,0,1,1,1,1,'','','Gracias, lo acabo de implementar y funcionó perfecto!!!','',0,'GIA=','2o8mzfh3',1,0,'',439,0,0),(11824,2709,6,40,0,'200.92.16.190',1145289401,1,0,1,1,1,0,'','','Oscar, es necesario que modifiques la variable LPT_timeout del registro de windows, cambia su valor a 2.\n\nEsta varible esta ubicada en:( o bien buscala. Menú Edición-&gt;Buscar CTL+B)\n\nHKEY_LOCAL_MACHINE\n   SYSTEM\n       ControlSet001\n            Control\n               WOW\n\nEspero te Sirva\nSaludos\nJoel Andujo','',0,'GIA=','3mjnpcxu',1,0,'',40,0,0),(11825,2711,2,124,0,'200.117.225.216',1145290874,1,0,1,1,1,0,'','SECUENCIAS DE EVENTOS','Amigos:\n\nNecesito saber dónde está la documentación donde indique precisamente la secuencia de eventos tanto de creación como de destrucción de los objetos ( forms, gets, etc. ) dentro de fivewin y el detalle de qué evento (perdón la redundancia) o condiciones deben cumplirse para que estos ocurran.\n\nMil Gracias.\nRicardo.-','',0,'GIA=','n3vpucv7',1,0,'',124,0,0),(11826,2671,6,255,0,'200.67.175.250',1145291240,1,0,1,1,1,1,'','','Respuesta dada...... JEJE <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nGracias por tus comentarios.','',0,'GIA=','wy648tul',1,0,'',255,0,0),(11827,2710,6,255,0,'200.67.175.250',1145292066,1,0,1,1,1,1,'','','mmmmmmm con todas las bondades de fivewin y windows\nporque no usas:\n\nSndPlayRes( &lt;cSndName&gt;, &lt;nMode&gt; )\n&lt;&lt; Ejecutar sonido desde recursos &gt;&gt;\n\no bien:\n\nSndPlaySound( &lt;cSndName&gt;, &lt;nMode&gt; )\n&lt;&lt; Ejecutar sonido desde archivo &gt;&gt;\n\nSaludos','',0,'GIA=','3s1iy052',1,0,'',255,0,0),(11828,2708,2,2,0,'87.218.146.209',1145294753,1,0,1,1,1,1,'','','Carlos,\n\nLa librería Five.lib que estás usando no debe ser la correcta.','',0,'GIA=','2u7iilf1',1,0,'',2,0,0),(11829,2711,2,2,0,'87.218.146.209',1145295077,1,0,1,1,1,1,'','','Ricardo,\n\nExisten cientos de eventos en Windows. Windows es un entorno basado en eventos.\n\nEn la documentación de FW se explica como se crean los objetos con DEFINE ..., con REDEFINE ..., con @ ..., se activan si es preciso con ACTIVATE ... y finalmente se destruyen con :End() aunque FW automatiza la destrucción de los controles, muchos objetos GDI, etc.\n\nPor último el recolector de basura de Clipper se encarga de liberar la memoria asignada a un objeto cuando este termina de ser usado, aunque no lo hace de forma inmediata.','',0,'GIA=','1mw1psul',1,0,'',2,0,0),(11830,2671,6,9,0,'85.54.232.128',1145297803,1,0,1,1,1,1,'','','Juan Carlos,\n\nTe envié hace dias, un correo a ti dirección jcso arroba hotmail, comentándote algunas mejoras sobre Verce. ¿Lo has recibido?','',0,'GIA=','3m0vkapd',1,0,'',9,0,0),(11831,2667,3,148,0,'82.201.234.113',1145298199,1,0,1,1,1,0,'','','believe me was macro also filter does not work with RDD server . pls if you know the syntax of set scope tell me ?','',0,'GIA=','245j2zok',1,0,'',148,0,0),(11832,2667,3,138,0,'201.152.98.24',1145298293,1,0,1,1,1,1,'','','DBSETFILTER (&amp;bFilter,cFilter)..... you forgot the \"&amp;\" in the macro expression','',0,'GIA=','1hyaxysl',1,0,'',138,0,0),(11833,2712,7,428,0,'200.55.19.126',1145300661,1,0,1,1,1,0,'','IRDA como puerto comm','No se como configurar mi Pocket Pc para  relacionar un puerto COMx con el puerto Infrarrojo, es que necesito hacer un programa para que lea el puerto COMx del Pocket Pc, alguien puede darme alguna idea al respecto ?.\n\nDesde ya muy agradecido.','',0,'GIA=','qguk3k1z',1,0,'',428,0,0),(11834,2709,6,203,0,'200.107.17.141',1145301470,1,0,1,1,1,1,'','','Funciona perfecto Joel\n\nMuchas Gracias\n\n\n\nSaludos\n\n\nOscar','',0,'GIA=','2bp9k044',1,0,'',203,0,0),(11835,2712,7,2,0,'87.218.146.228',1145301798,1,0,1,1,1,1,'','','# The Infrared Port \n Windows CE devices almost always have an infrared IrDA-compatible serial port. In fact, all H/PC and Pocket PC systems are guaranteed to have one. The IR ports on Windows CE devices are IrDA (Infrared Data Association) compliant. The IrDA standard specifies everything from the physical implementation, such as the frequency of light used, to the handshaking between devices and how remote systems find each other and converse. \n The IR port can be used in a variety of ways. At the most basic level, the port can be accessed as a serial port with an IR transmitter and receiver attached. This method is known as raw IR . When you\'re using raw IR, the port isn\'t IrDA compliant because the IrDA standard requires the proper handshaking for the link. However, raw IR gives you the most control over the IR link. A word of warning: While all Windows CE devices I know currently support raw IR, some might not in the future. \n You can also use the IR port in IrComm mode. In this mode, the IR link looks like a serial port. However, under the covers, Windows CE works to hide the differences between a standard serial port and the IR link. This is perhaps the easiest way to link two custom applications because the applications can use the rather simple Comm API, while Windows CE uses the IrDA stack to handle the IR link. \n The most robust and complex method of using the IR port is to use IrSock. In this mode, the IR link appears to be just another socket. IrSock is an extension of WinSock, the Windows version of the socket interface used by applications communicating with TCP/IP. I\'ll cover WinSock in Chapter 10, so I\'ll defer any talk of IrSock until then. #  Raw IR \n As I mentioned previously, when you use raw IR you\'re mainly on your own. You essentially have a serial port with an IR transceiver attached to it. Since both the transmitter and the receiver use the same ether (the air), collisions occur if you transmit at the same time that you\'re receiving a stream of data from another device. This doesn\'t happen when a serial cable connects two serial ports because the cable gives you separate transmit and receive wires that can be used at the same time. # Finding the Raw IR Port \n To use raw IR, you must first find the serial port attached to the IR transceiver. On some Windows CE units, the serial port and the IR port use the same serial hardware. This means you can\'t use the serial port at the same time you use the IR port. Other Windows CE devices have separate serial hardware for the IR port. Regardless of how a device is configured, Windows CE gives you a separate instance of a COM driver for the IR port that\'s used for raw IR mode. \n There is no official method of determining the COM port used for raw IR. However, the following technique works for current devices. To find the COM port used for raw IR, look in the registry in the \\Comm\\IrDA key under HKEY_LOCAL_MACHINE. There you should find the Port value that contains the COM port number for the raw IR device. \n If the Port value isn\'t there, check for a Parms  subkey. If that is present, look for the Port value under it. If not, check for a Linkage  subkey. If the Linkage  subkey is present, check for a Bind value. If present, it will contain the name of another key under [HKEY_LOCAL_MACHINE]\\Comm that you can open and repeat the process. Following are two routines, GetRawIrDeviceName  and a recursive helper routine, that return the device name of the raw IR port.  \n[code:2hy0i1ix]\n//----------------------------------------------------------------------\n// GetRawIrDeviceName - Returns the device name for the RawIR COM port\n//\nINT GetRawIrDeviceName &#40;LPTSTR lpszDevName&#41; &#123;\n    \n    *lpszDevName = TEXT &#40;`\\0\'&#41;;\n    return QueryIrKey &#40;TEXT &#40;&quot;IrDA&quot;&#41;, lpszDevName&#41;;\n&#125;\n//\n// Helper routine that walks the linkage chain\n//\nINT QueryIrKey &#40;LPTSTR lpszSubkeyName, LPTSTR lpszDevName&#41; &#123;\n    DWORD dwSize, dwType, dwData;\n    HKEY hKey, hSubkey;\n    TCHAR szBind&#91;64&#93;;\n    int rc;\n    \n    // Open the IrDA key&#46;\n    lstrcpy &#40;szBind, TEXT &#40;&quot;\\\\Comm\\\\&quot;&#41;&#41;;\n    lstrcat &#40;szBind, lpszSubkeyName&#41;;\n    rc = RegOpenKeyEx &#40;HKEY_LOCAL_MACHINE, szBind, 0, 0, &amp;hKey&#41;;\n    if &#40;rc == ERROR_SUCCESS&#41; &#123;\n \n        // Query the device number&#46;\n        dwSize = sizeof &#40;dwData&#41;;\n        rc = RegQueryValueEx &#40;hKey, TEXT &#40;&quot;Port&quot;&#41;, 0, &amp;dwType, \n                              &#40;PBYTE&#41;&amp;dwData, &amp;dwSize&#41;;\n        if &#40;rc == ERROR_SUCCESS&#41; &#123;\n \n            // Check for valid port number&#46; Assume buffer &gt; 5 chars&#46;\n            if &#40;dwData &lt; 10&#41;\n                wsprintf &#40;lpszDevName, TEXT &#40;&quot;COM%d&#58;&quot;&#41;, dwData&#41;;\n        &#125; else &#123;\n            // The key doesn\'t have a port value&#46; Check to see if \n            // there is a Parms subkey, and query it&#46;\n            lstrcpy &#40;szBind, lpszSubkeyName&#41;;\n            lstrcat &#40;szBind, TEXT &#40;&quot;\\\\parms&quot;&#41;&#41;;\n            rc = QueryIrKey &#40;szBind, lpszDevName&#41;;\n            if &#40;rc&#41;\n                return rc;\n            \n            // The key doesn\'t have a port value or Parms subkey&#46; \n            // Check to see if there is a linkage to another reg key&#46;\n            rc = RegOpenKeyEx &#40;hKey, TEXT &#40;&quot;linkage&quot;&#41;, 0, 0, &amp;hSubkey&#41;;\n            if &#40;rc == ERROR_SUCCESS&#41; &#123;\n                // Yes, get the name of the key to check&#46;\n                dwSize = sizeof &#40;szBind&#41;;\n                rc = RegQueryValueEx &#40;hSubkey, TEXT &#40;&quot;Bind&quot;&#41;, 0, &amp;dwType, \n                                      &#40;PBYTE&#41;&amp;szBind, &amp;dwSize&#41;;\n \n                // Recurse to examine the linked reg key&#46;\n                QueryIrKey &#40;szBind, lpszDevName&#41;;\n                RegCloseKey &#40;hSubkey&#41;;\n            &#125;\n        &#125;\n        RegCloseKey &#40;hKey&#41;;\n    &#125;\n    return lstrlen &#40;lpszDevName&#41;;\n&#125; \n[/code:2hy0i1ix]\n# Using Raw IR \n Once you have the port name, you must perform one more task before you can use the port. If the COM port hardware is being shared by the serial port and the IR port, you must tell the driver to direct the serial stream through the IR transceiver. You do this by first opening the device and calling EscapeCommFunction . The command passed to the device is SETIR. When you\'ve finished using the IR port, you should call EscapeCommFunction  again with the command CLRIR to return the port back to its original serial function. \n Once the port is set up, there\'s one main difference between raw IR and standard serial communication. You have to be careful when using raw IR, not  to transmit while another device is also transmitting. The two transmissions will collide, corrupting both data streams. With raw IR, you\'re also responsible for detecting the other device and handling the dropped bytes that will occur as the infrared beam between the two devices is occasionally broken. \n#  IrComm \n Using IrComm is much easier than using raw IR. IrComm takes care of remote device detection, collision detection, and data buffering while communication with the other device is temporally interrupted. The disadvantage of IrComm is that it\'s a point-to-point protocolonly two devices can be connected. In most instances, however, this is sufficient. # Finding the IrComm Port \n Here again, there\'s no official method for determining the IrComm port. But you should be able to find the IrComm port by looking in the registry under the Drivers\\builtin\\IrCOMM key under HKEY_LOCAL_MACHINE. The item to query is the Index  value, which is the COM device number for the IrComm port. Following is a routine that returns the device name of the IrComm port.  \n[code:2hy0i1ix]\n//----------------------------------------------------------------------\n// GetIrCommDeviceName - Returns the device name for the IrComm port\n//\nINT GetIrCommDeviceName &#40;LPTSTR pDevName&#41; &#123;\n    DWORD dwSize, dwType, dwData;\n    HKEY hKey;\n \n    *pDevName = TEXT &#40;`\\0\'&#41;;\n    // Open the IrDA key&#46;\n    if &#40;RegOpenKeyEx &#40;HKEY_LOCAL_MACHINE,\n                      TEXT &#40;&quot;Drivers\\\\BuiltIn\\\\IrCOMM&quot;&#41;, 0,\n                      0, &amp;hKey&#41; == ERROR_SUCCESS&#41; &#123;\n \n        // Query the device number&#46;\n        dwSize = sizeof &#40;dwData&#41;;\n        if &#40;RegQueryValueEx &#40;hKey, TEXT &#40;&quot;Index&quot;&#41;, 0, &amp;dwType,\n                             &#40;PBYTE&#41;&amp;dwData, &amp;dwSize&#41; == ERROR_SUCCESS&#41;\n \n            // Check for valid port number&#46; Assume buffer &gt; 5 chars&#46;\n            if &#40;dwData &lt; 10&#41;\n                wsprintf &#40;pDevName, TEXT &#40;&quot;COM%d&#58;&quot;&#41;, dwData&#41;;\n \n        RegCloseKey &#40;hKey&#41;;\n    &#125;\n    return lstrlen &#40;pDevName&#41;;\n&#125; \n[/code:2hy0i1ix]\n The IrComm port is different in a number of ways from the serial port and the raw IR port. These differences arise from the fact that the IrComm port is a simulated port, not a real device. The IrComm driver uses IrSock to manage the IR link. The driver is then responsible only for reflecting the data stream and a few control characters to simulate the serial connection. If you try to query the communication settings for the IrComm port using GetCommState , the DCB returned is all zeros. If you try to set a baud rate or some of the other parameters, and later call GetCommState  again, the DCB will still be 0. IrSock manages the speed and the handshaking protocol, so IrComm simply ignores your configuration requests. \n On the other hand, the IrComm driver happily queues up pending writes waiting on another IrComm device to come within range. After the IrComm driver automatically establishes a link, it transmits the pending bytes to the other device. This assistance is a far cry from raw IR and is what makes using IrComm so easy.','',0,'AIA=','2hy0i1ix',1,0,'',2,0,0),(11836,2682,3,148,0,'82.201.234.113',1145302064,1,0,1,1,1,0,'','','I did what you told me . The Get is not being refereshed until the cursor goes into the get box \n[code:29jqe6s4]\n@ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n   @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n   @ 45,200 COMBOBOX V_cu_coun ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41; size 80,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;V_cu_coun&#58;=cust-&gt;cu_coun,oGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n[/code:29jqe6s4]','',0,'AIA=','29jqe6s4',1,0,'',148,0,0),(11837,2713,6,492,0,'201.154.125.82',1145303973,1,0,1,1,1,1,'','Clase PreView no compatible con Temas Visuales de XP ???','Antonio, despues de varios dias probando, quitando, poniendo, etc.\nHe descubierto que si le quito a la App el look XP, ya no me cierra y sigue todo trabajando OK, lo activo y empiezan los problemas.....\n\nEste es el contenido de mi archivo, por si tiene algo raro o erroneo :\n\n&lt;?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?&gt;\n&lt;assembly \n  xmlns=\"urn:schemas-microsoft-com:asm.v1\"\n  manifestVersion=\"1.0\"&gt;\n&lt;assemblyIdentity\n    name=\"MiniGUI\"\n    processorArchitecture=\"x86\"\n    version=\"5.1.0.0\"\n    type=\"win32\"/&gt;\n&lt;description&gt;Windows Shell&lt;/description&gt;\n&lt;dependency&gt;\n    &lt;dependentAssembly&gt;\n        &lt;assemblyIdentity\n            type=\"win32\"\n            name=\"Microsoft.Windows.Common-Controls\"\n            version=\"6.0.0.0\"\n            processorArchitecture=\"x86\"\n            publicKeyToken=\"6595b64144ccf1df\"\n            language=\"*\"\n        /&gt;\n    &lt;/dependentAssembly&gt;\n&lt;/dependency&gt;\n&lt;/assembly&gt;\n\n\nSaludos a todos','',0,'AIA=','oqy8wdwh',1,0,'',492,0,0),(11838,2714,6,490,0,'80.24.224.89',1145304423,1,0,1,1,1,0,'','Problema con ajuste en pixels de controles','Antonio,\n\nMe estoy volviendo loco con el tema de los pixels y debe haber algo raro.\nMe explico:\n\n\nCreo desde código: DEFINE DIALOG oDlg FROM 0,0 TO 400,300 PIXEL\n\ny ahora necesito ajustar un control TGRoup, la manera más natural que se me ocurre es\n\n@1, 1 GROUP oG1 TO oDlg:nHeight-10, oDlg:nWidth-10 PIXEL OF oDlg\n\nPor ejemplo, eso debería funcionar, pero, no funciona, o los pixels de ancho y alto que dice tener el Diálogo son incorrectos, o el TGroup se pinta como le da la gana, pero para nada toma bien el tamaño.\n\nAparte, no sé seguir, porque si es el diálogo el que no es capaz de decir cuanto mide en pixels, ¿como coloco el resto de controles??\n\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','8kb0ipil',1,0,'',490,0,0),(11839,2713,6,2,0,'87.218.146.228',1145305234,1,0,1,1,1,1,'','','Ray,\n\nUsa el que proporcionamos en samples\\winxp','',0,'AIA=','2phfec1e',1,0,'',2,0,0),(11840,2714,6,2,0,'87.218.146.228',1145305305,1,0,1,1,1,1,'','','Joaquín,\n\nCréalo desde la claúsula ON INIT del diálogo, ya que antes son \"dialog units\" y no pixeles.','',0,'AIA=','20eaweot',1,0,'',2,0,0),(11841,2714,6,490,0,'80.24.224.89',1145306111,1,0,1,1,1,0,'','','Antonio,\n\nEstoy peor que antes, pongo como me dices lo siguiente:\n\nFunction InitDlgPideDat( oDlg )\n  \n  @1, 1 GROUP oG1 TO oDlg:nHeight-50,;\n                                    oDlg:nWidth-10;\n         PROMPT \"Seleccione datos\" TRANSPARENT;\n          PIXEl OF oDlg\n\nReturn Nil\n\n\nY antes del ACTIVATE:\n\n::oDlglist:bInit := {|| InitDlgPideDat( ::oDlglist ) }\n\n\nY ni siquiera me aparece el Tgroup, ha desaparecido del diálogo!!.\n\n¿Podrías ponerme un pequeñísimo ejemplo autocontenido de un Diálogo y un Tgroup ajustado a él quitando algunos pixels por cada lado desde código fuente ??\n\nTe lo agradecería muchísimo, gracias\nJoaquín','',0,'AIA=','3arkltxd',1,0,'',490,0,0),(11842,2713,6,492,0,'201.154.125.82',1145306316,1,0,1,1,1,1,'','','Ya lo hice Antonio, con resultados identicos :\n\nLo activo, hay problemas, lo desactivo, se van, pero queda la apariencia de la App, pues.... simplemente simplona  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nSaludos','',0,'AIA=','3ofclz1r',1,0,'',492,0,0),(11843,2682,3,6,0,'82.57.161.88',1145306896,1,0,1,1,1,1,'','','[quote=&quot;Ehab Samir Aziz&quot;:1w68h4ux]@ 45,60 GET oGet VAR V_cu_coun\n@ 45,200 COMBOBOX V_cu_coun[/quote:1w68h4ux]\n\nYou are still using V_cu_coun for both GET and COMBOBOX.\n\nEMG','',0,'gA==','1w68h4ux',1,0,'',6,0,0),(11844,2652,6,24,0,'80.102.194.147',1145308296,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:yti7k8qg]Recordar que la clase Tutilprn usa Nview32lib y FHW usa, ahora, Freeimage. Por tanto, en 32 bit, da error al utilizar SayImage y PrintImage. \n\nSalvo Box (cajas redondeadas) que estoy intentando sustituir por RoundBox(), creo que la mayoria de las funciones de la clase Tutilprn, ya lo recoge FWH en las nuevas versiones.[/quote:yti7k8qg]\n\nJoe, ¿ desde cuando Fivewin da soporte a Freeimage ?\nMe tengo que actualizar, pero no he visto que se haya echo dicho cambio,\nsi asi fuese COJONUDO!!! Freeimage le da mil patadas a la nview32, que\ndamos un monton de problemas.( imagenes grandes )\n\nSi fuese asi, mirare de actualizarme mi version de Fivewin y como usa\ndichas clases para mi reportes, pues me tocara arreglar esa parte y no ROMPER el codigo con versiones antiguas de Fivewin que puedan usar Timprime/TUtilPrn','',0,'gA==','yti7k8qg',1,0,'',24,0,0),(11845,2715,7,527,0,'81.36.169.95',1145308621,1,0,1,1,1,0,'','Impresiones','Alguien puede darme una ayuda para poder empezar a imprimir documentos. Esta semana voy a empezar a realizar pruebas de impresion y no tengo ni idea por donde empezar. Ya me he comprado el adaptador bluetooh para la impresora, pero ya no se como seguir\n\nNecesito un ejemplo desde cero, ya que no tengo ni idea de como empezar.\n\ngracias.','',0,'gA==','3iksn431',1,0,'',527,0,0),(11846,2716,6,439,0,'201.221.46.54',1145311817,1,0,1,1,1,1,'','La clase para Crystal Reports','Para utilizar la Clase de Crystal Reports TCRW, que crystal reports de los que ofrecen necesito el Standard? o cual.\n\nEs seguro que funcione con la función XI?\n\nAlguien lo ha probado con alguna versión y le ha funcionado?','',0,'gA==','39o1yykb',1,0,'',439,0,0),(11847,2717,6,362,0,'200.168.52.156',1145312271,1,0,1,1,1,1,'','DOS BUTTONBAR','Antonio, Como Hacer Para Poner dos(2) BUTTONBAR en una ventana MDI??\n\nLOCAL oBar, oBar2\n\nDEFINE BUTTONBAR oBar  _3D SIZE 26, 27 OF oWnd TOP\n\nDEFINE BUTTONBAR oBar2 _3D SIZE 26, 27 OF oWnd TOP','',0,'gA==','1e77rbr7',1,0,'',362,0,0),(11848,2705,6,439,0,'201.221.43.252',1145314759,1,0,1,1,1,1,'','Otra consulta','Es posible implementar como en los toolbars que se pueda ver un texto debajo del bitmap con Buttonbmp?\n\nIntenté hacerlo y no tuve resultados, el texto aparece pero centrado detrás del bmp y no lo pude acomodar abajo con \"textbottom\"\n\nApreciaré cualquier ayuda.....','',0,'gA==','2u0rtgwb',1,0,'',439,0,0),(11849,2671,6,255,0,'200.67.175.250',1145315473,1,0,1,1,1,1,'','','Negativo, esa cuenta se me satura mucho, por\neso pido que solo la usen para estar en contacto\npor Messenger.\n\nSugerencias y/o comentarios mejor envíamelos\na la siguiente dirección:\n\n jcso @ esm.com.mx\n\n\nSaludos','',0,'gA==','2i29yz80',1,0,'',255,0,0),(11850,2716,6,255,0,'200.67.175.250',1145315828,1,0,1,1,1,1,'','','Probada con la version 8.5 de CR\nIgnoro si funcione con otras versiones.','',0,'gA==','27nid8cq',1,0,'',255,0,0),(11851,2703,3,49,0,'87.1.182.85',1145317076,1,0,1,1,1,1,'','','thanks to all','',0,'gA==','1c090rj0',1,0,'',49,0,0),(11852,2718,2,10,0,'85.155.149.235',1145317549,1,0,1,1,1,0,'','Cómo quitar mensaje de &quot;Stop!&quot; X,&quot;End of file','Saludos a tod@os:\nCómo puedo quitar el mensaje de\nStop!  X\n End of file \n-&gt;Aceptar&lt;-\nque me sale una vez finaliza la construcción de las páginas en un report?\nUna vez pulso aceptar ya sale el preview, pero el efecto es fatal.\n\nGracias si pueden orientarme.','',0,'gA==','1skn1vtm',1,0,'',10,0,0),(11853,2719,20,49,0,'87.1.182.85',1145318564,1,0,1,1,1,1,'','Quando si usa clienttoscreen e screentoclient','se io clicco su un immagine al punto ( x,y) mettiamo 282,282 \n\n[code:6tnegxs2]\n\n // prima immagine modificata\n            @ 0,15 SAY &quot;MODIFICATA&quot;  OF oDlg\n            @ 2,0 IMAGE oImg   SIZE 150,150 OF oDlg\n\n            oImg&#58;Progress&#40; &#46;f&#46; &#41;\n\n            //Disegno il cerchietto dove premo\n            oImg&#58;bLClicked = &#123; | nRow, nCol | &#40;NMSGBOX&#40;NROW,NCOL&#41;,DRAWCIRCLE&#40; oDLG,  nRow, nCol, 100, CLR_HRED &#41;&#41;  &#125;\n\n[/code:6tnegxs2]\n\n\n\n io voglio far disegnare in quel punto un cerchietto rosso la funzione qui sotto me lo disegna un po spostato..\n\n[code:6tnegxs2]\n STATIC FUNCTION DRAWCIRCLE&#40; oDLG,  nTop, nLeft, nWidth, nColor &#41;\n             LOCAL   hDC &#58;= oDlg&#58;GetDC&#40;&#41;\n             LOCAL hPen &#58;= CREATEPEN&#40; PS_SOLID, 2, nColor &#41;\n             LOCAL hOldPen   &#58;= SELECTOBJECT&#40; hDC, hPen &#41;\n             LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41;\n\n              oDlg&#58;Circle&#40; nTop, nLeft, nWidth &#41;\n\n              SELECTOBJECT&#40; hDC, hOldPen &#41;\n              SELECTOBJECT&#40; hDC, hOldBrush &#41;\n\n              DELETEOBJECT&#40; hPen &#41;\n\n    RETURN NIL[/code:6tnegxs2]\n\n\n\nquando invece io carico la stessa dialog con la stessa immagine e gli faccio disegnare manualmente un cerchio a quelle coordinate \n\n[code:6tnegxs2]  DRAWCIRCLE&#40; oDLG,39, 282, 23, CLR_HGREEN &#41;[/code:6tnegxs2]\n\nla procedura mi disegna ilcerchietto addirittura fuori del dialog in uno spazio dello schermo in alto \n\ncome è possibile ?\n\nQualche idea ?','',0,'AIA=','6tnegxs2',1,0,'',49,0,0),(11854,2657,6,212,0,'200.125.0.95',1145330857,1,0,1,1,1,0,'','Disculpas','Disculpas Antonio.\nGracias por responder igual.','',0,'AIA=','3a7kn07w',1,0,'',212,0,0),(11855,2720,6,212,0,'200.125.0.95',1145333920,1,0,1,1,1,0,'','AYUDA CON ADS','Les agradezco ayuda para resolver esto..\n\nError: Unresolved external \'_HB_FUN_ADSSETSERVERTYPE\' referenced from E:\\PROGRAMA\\DATASOL\\XHARBOUR\\OBJ\\GEST.OBJ\nError: Unresolved external \'_HB_FUN_ADSSETFILETYPE\' referenced from E:\\PROGRAMA\\DATASOL\\XHARBOUR\\OBJ\\GEST.OBJ\n\nEstoy usandolo así:\n----Código---------\n\nANNOUNCE ADS\nRequest Hb_lang_es\nRequest Dbfcdx, Dbffpt\nrddRegister ( \"ADS\", 1 )\nrddsetdefault( \"ADS\" )\nSET SERVER REMOTE\nSET FILETYPE to CDX\n\nEstoy compilando RDDADS.LIB y ACE32.LIB, fwh26 y xHarbour 2.6\n\nSaludos a todos y gracias de antemano.\n\nRicardo.','',0,'AIA=','1pkod52q',1,0,'',212,0,0),(11856,2721,3,160,0,'210.212.142.91',1145343474,1,0,1,1,1,0,'','ActiveX Control : Developer Licensing.','Hello Antonio,\n\nI want to use an ActiveX control which has developer licensing; on the basis of developer license, it has free runtime license.\n\nIt ask for Runtime License at the compile time by using CtrlFactory:GetLicenseKey COM method. (As its document states).\n\nHow can I achieve it ?\n\nEagerly awaiting your reply,\n\nMilan.','',0,'AIA=','2r0qtbzj',1,0,'',160,0,0),(11857,2719,20,6,0,'82.61.144.69',1145344802,1,0,1,1,1,1,'','Re: Quando si usa clienttoscreen e screentoclient','Con il seguente esempio non noto alcuno spostamento anomalo sia con il posizionamento automatico (che ho abbinato al tasto sinistro) che con quello manuale (che ho abbinato al tasto destro):\n\n[code:19abl0o3]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define BRUSH_NULL 5\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oImg\n\n    DEFINE DIALOG oDlg;\n           SIZE 700, 500\n\n    @ 0, 0 IMAGE oImg;\n           FILE &quot;\\fwharbour\\bitmaps\\magic&#46;bmp&quot;;\n           ADJUST\n\n    oImg&#58;bLClicked = &#123; | nRow, nCol | DrawCircle&#40; oDlg, nRow, nCol, 100, CLR_HRED &#41; &#125;\n\n    oImg&#58;bRClicked = &#123; || DrawCircle&#40; oDlg, 50, 50, 100, CLR_HRED &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oImg &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DRAWCIRCLE&#40; oDlg, nTop, nLeft, nWidth, nColor &#41;\n\n    LOCAL hDC &#58;= oDlg&#58;GetDC&#40;&#41;\n\n    LOCAL hPen &#58;= CREATEPEN&#40; PS_SOLID, 1, nColor &#41;\n\n    LOCAL hOldPen   &#58;= SELECTOBJECT&#40; hDC, hPen &#41;\n    LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41;\n\n    oDlg&#58;Circle&#40; nTop - nWidth / 2, nLeft - nWidth / 2, nWidth &#41;\n\n    SELECTOBJECT&#40; hDC, hOldPen &#41;\n    SELECTOBJECT&#40; hDC, hOldBrush &#41;\n\n    DELETEOBJECT&#40; hPen &#41;\n\n    oDlg&#58;ReleaseDC&#40;&#41;\n\n    RETURN NIL[/code:19abl0o3]\n\nEMG','',0,'AIA=','19abl0o3',1,0,'',6,0,0),(11858,2719,20,6,0,'82.61.144.69',1145345008,1,0,1,1,1,1,'','Re: Quando si usa clienttoscreen e screentoclient','Ma credo di aver capito il tuo problema. Probabilmente dimenticavi di aggiungere lo spostamento dell\'immagine rispetto alla dialog. Eccoti un altro esempio modificato rispetto al precedente:\n\n[code:3glic3j8]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define BRUSH_NULL 5\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oImg\n\n    DEFINE DIALOG oDlg;\n           SIZE 700, 500\n\n    @ 2, 0 IMAGE oImg;\n           FILE &quot;\\fwharbour\\bitmaps\\magic&#46;bmp&quot;;\n           ADJUST\n\n    oImg&#58;bLClicked = &#123; | nRow, nCol | DrawCircle&#40; oDlg, oImg, nRow, nCol, 100, CLR_HRED &#41; &#125;\n\n    oImg&#58;bRClicked = &#123; || DrawCircle&#40; oDlg, oImg, 50, 50, 100, CLR_HRED &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oImg&#58;SetSize&#40; 320, 200 &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DRAWCIRCLE&#40; oDlg, oImg, nTop, nLeft, nWidth, nColor &#41;\n\n    LOCAL hDC &#58;= oDlg&#58;GetDC&#40;&#41;\n\n    LOCAL hPen &#58;= CREATEPEN&#40; PS_SOLID, 1, nColor &#41;\n\n    LOCAL hOldPen   &#58;= SELECTOBJECT&#40; hDC, hPen &#41;\n    LOCAL hOldBrush &#58;= SELECTOBJECT&#40; hDC, GETSTOCKOBJECT&#40; BRUSH_NULL &#41; &#41;\n\n    oDlg&#58;Circle&#40; nTop - nWidth / 2 + oImg&#58;nTop, nLeft - nWidth / 2 + oImg&#58;nLeft, nWidth &#41;\n\n    SELECTOBJECT&#40; hDC, hOldPen &#41;\n    SELECTOBJECT&#40; hDC, hOldBrush &#41;\n\n    DELETEOBJECT&#40; hPen &#41;\n\n    oDlg&#58;ReleaseDC&#40;&#41;\n\n    RETURN NIL[/code:3glic3j8]\n\nEMG','',0,'AIA=','3glic3j8',1,0,'',6,0,0),(11859,2707,3,92,0,'213.96.45.9',1145345702,1,0,1,1,1,0,'','Excel y FWH','Después de leer varios mensajes y mezclarlos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->, ya encontré la manera de acceder al Excel de Office 2003 y leer los datos.\n\nSaludos.\nCarlos G.','',0,'AIA=','2czqwqpr',1,0,'',92,0,0),(11860,2668,3,26,0,'84.255.245.173',1145351139,1,0,1,1,1,1,'','','Hello!\n\nIt\'s nice (and rare) to see that your company still supports Windows 95 users.\nBTW, here is an interesting recent post in delphi newsgroup:\n[url=http&#58;//groups&#46;google&#46;com/group/borland&#46;public&#46;delphi&#46;non-technical/browse_thread/thread/588029881085a3fd/cba7b862a9d6c056?tvc=2#cba7b862a9d6c056:3cpy2rgw]End of support Windows Playstation[/url:3cpy2rgw] <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> \n[quote:3cpy2rgw]&gt; Anyone still supporting Win 98, 98SE, Me apps? \n\nSome statistics for your amusement: \n\nWin 95     -     163 active customers \nWin 98     -     11074 active customers \nWin ME     -     531 active customers \nWin 2000   -     3105 active customers \nWin XP      -    15230 active customers \nWin XP-SP2??  -  255 active customers \n\nActive customers are mainly small and medium size business in Brazil.\n[/quote:3cpy2rgw]\nAnd recent news: <!-- m --><a class=\"postlink\" href=\"http://www.woodtv.com/global/story.asp?s=4771988\">http://www.woodtv.com/global/story.asp?s=4771988</a><!-- m -->\n[quote:3cpy2rgw]\nThe radar helped the meteorologists at the Weather Service issue the warnings and track the progress of the historic storm. But now, that same radar is 11 years old and the technology attached to it is dated.\n\n\"The computers that are really from the early &#8216;90s, and we will be upgrading and switching out old DOS and Windows 95 with Red Hat and Linux computers,&#8221; said Mike Heathfield of the National Weather Service in Grand Rapids.\n\nThe upgrade is unprecedented and comes at a time notorious for severe weather in West Michigan. The National Weather Service will be shutting down one of its largest eyes on the sky for five days; five days with little to no radar.\n[/quote:3cpy2rgw]\n<!-- m --><a class=\"postlink\" href=\"http://www.geek.com/news/geeknews/2006Apr/gee20060417035851.htm\">http://www.geek.com/news/geeknews/2006A ... 035851.htm</a><!-- m -->\n[quote:3cpy2rgw]This is intresting, for I know of many small businesses (that employ less then 250 people total) that are still using windows 95/8 along with NT 4.0 as the server OS.\n\nAll these businesses choose to stay with these antiquated operating systems because it saves them money. \n\nThe question is how namy are there through out the US, or the world for that matter, and will they choose Security over profits?\n[/quote:3cpy2rgw]\nAnyhow, I recommend to all Win95 users to apply the following recipe:\n<!-- m --><a class=\"postlink\" href=\"http://johnhaller.com/jh/mozilla/windows_95/\">http://johnhaller.com/jh/mozilla/windows_95/</a><!-- m -->\n\nBut, there is one caveat, as described at \n<!-- m --><a class=\"postlink\" href=\"http://www.screencalendar.com/faq.html#f16\">http://www.screencalendar.com/faq.html#f16</a><!-- m -->\n[quote:3cpy2rgw][b:3cpy2rgw]Question 16:[/b:3cpy2rgw] The program does not start and the following message shows up on my desktop: \"The procedure entry point SHGetSettings could not be located in the dynamic link library shell32.dll\" What should I do? \n\n[b:3cpy2rgw]Answer:[/b:3cpy2rgw] I\'m sorry, but probably your Windows or Internet Explorer versions are old. The Microsoft recommendation is below:\nSHGetSettings\nVersion 4.71 and later of Shell32.dll\nWindows 95/98: Requires Windows 98 (or Windows 95 with Internet Explorer 4.0 or later).\nAll systems with Internet Explorer 4.0 or 4.01 will have the associated version of Comctl32.dll and Shlwapi.dll (4.71 or 4.72, respectively). However, for systems prior to Windows 98, Internet Explorer 4.0 and 4.01 can be installed with or without the integrated shell. If they are installed with the integrated shell, the associated version of Shell32.dll will be installed. If they are installed without the integrated shell, Shell32.dll is not updated. In other words, the presence of version 4.71 or 4.72 of Comctl32.dll or Shlwapi.dll on a system does not guarantee that Shell32.dll has the same version number. All Windows 98 systems have version 4.72 of Shell32.dll.[/quote:3cpy2rgw]\nSo, according to the icons on desktop, in your case IE 4 or newer is\n already installed, but it was [i:3cpy2rgw]not[/i:3cpy2rgw] integrated into shell, so shell32.dll remained\nold. You can update it as described here:\n<!-- m --><a class=\"postlink\" href=\"http://oldfiles.org.uk/lightspeed/Active_Desktop.html\">http://oldfiles.org.uk/lightspeed/Active_Desktop.html</a><!-- m -->\nIn the page above, there is a link to English version of Ie4shl95.cab:\n(which includes explorer.exe and shell32.dll version 4.72.3612.1700)\n<!-- m --><a class=\"postlink\" href=\"http://www.download.windowsupdate.com/msdownload/update/v3/static/ie55sp2/x86/en/IE4SHL95.CAB\">http://www.download.windowsupdate.com/m ... 4SHL95.CAB</a><!-- m -->\n\nIt is easy to guess locations to other language versions (for example Slovenian, Italian and Portuguese, respectively):\n<!-- m --><a class=\"postlink\" href=\"http://www.download.windowsupdate.com/msdownload/update/v3/static/ie55sp2/x86/sl/IE4SHL95.CAB\">http://www.download.windowsupdate.com/m ... 4SHL95.CAB</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.download.windowsupdate.com/msdownload/update/v3/static/ie55sp2/x86/it/IE4SHL95.CAB\">http://www.download.windowsupdate.com/m ... 4SHL95.CAB</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.download.windowsupdate.com/msdownload/update/v3/static/ie55sp2/x86/pt/IE4SHL95.CAB\">http://www.download.windowsupdate.com/m ... 4SHL95.CAB</a><!-- m -->\n\nAfter install, do not enable (e.g. disable) Active Desktop and set folder \noptions to classic view! Good feature of this update is Quichk Launch toolbar.\n\nFinally, you can update shell32.dll to version 4.72.3812.600\n(IMHO this is the same version as on Windows 98SE+IE6SP1)\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/ntserver/nts/downloads/security/q313829/default.asp\">http://www.microsoft.com/ntserver/nts/d ... efault.asp</a><!-- m -->\n\nP.S. How many Win95/3.11 customers do you have?\n\nBest regards, Roman','',0,'8A==','3cpy2rgw',1,0,'',26,0,0),(11861,2719,20,49,0,'213.82.134.66',1145354099,1,0,1,1,1,1,'','','grazie EMG\noggi provo le tue idee ma ierisera avevo modificato drawcircle inserendo alposto di oDlg  oImg e stranamente tutti i punti ( cerchietti) mi si visualizavano correttamente .\n\nPerò non mi piace parlare di una cosa senza sapere qual\'è lo scopo :\n\nTi spiego :\n\nio avevo fatto in PHP  un gioco che è il semplice gioco delle differenze\ndato che non loposso usare perchè il server ( vecchio Netfinity3000) mi da problemi hopensato di trasformato il game in fw e xharbour con molte difficoltà\n\nHo  due immagini (377, 314) una originale e l\'altra modificata : lo scopo del gioco è di riuscire in minor tempo di trovare le differenze \n\nquindi io avrei fatto un archivio ( dbf) con l\'elenco delle immagini ( ori,Mod) e poi le coordinate degli errori (x,y) in PHP uso anche un terzo paramentro per il diametro del cerchietto ma in fw posso anche ometterlo.\n \nQuindi adesso con l\'aiuto di Linares e il TUO siamo arrivati a prendere ( random) un record e visualizzare le immagini(377,314) su una dialog , sull\'immagine modificata posso cliccare e creare un cerchietto rosso \n\nA questo punto il programma dovrebbe riconoscere che cliccando sull\'immagine mopdificata nel punto x,y  clicca sulle coordinate esatte di un errore e accettare il \"cliccamento\"  e visualizzare con un cerchietto verde nell\'altra immagine quella oroginale  altrimenti non fa niente.\n\nDomandina semplice  se carico le coordinate in un array aIMG[5]  come gliele carico dato che sono 2 parametri (x,y) per ogni errore ?\n\ne poi quando l\'utente clicca come posso vedere se le coordinate sono giuste?\n\n\np.s. questa è un \'idea semplice e carina per  far capire a quelli che programmano in Delphi e VB che (clipper) harbour e xharbour non servono solo a fare gestionali!!!!!!!!!!!\n\n\ngrazie','',0,'','17cmafu8',1,0,'',49,0,0),(11862,2722,7,527,0,'83.61.180.14',1145356261,1,0,1,1,1,0,'','Borrado de ficheros','Como puedo borrar un fichero de la SD CARD a traves de FWPPC\ngracias.','',0,'','3ay7759f',1,0,'',527,0,0),(11863,2702,6,123,0,'83.39.143.140',1145357259,1,0,1,1,1,0,'','','Rubén,\n\n\nMira en <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> \n\nAllí dejé unas clases para acceder, mediante ADO, a cualquier origen de datos oleDb y algunos ejemplos.\n\nSaludos,\nJosé Luis Capel','',0,'','1xlko4ni',1,0,'',123,0,0),(11864,2714,6,490,0,'80.24.224.89',1145358263,1,0,1,1,1,0,'','','Antonio,\n\n\nparece que oDLg:binit := {|| MiInit() } no lo ejecuta, hay que llamarla en es ON INIT, por eso no me iba.\n\nLo que no veo muy correcto es que necesite crear una nueva función sólo para definir los controles, si no, no va en pixels.\n\n\nUn Saludo,\nJoaquín','',0,'','1pbbjqds',1,0,'',490,0,0),(11865,2719,20,6,0,'82.59.188.92',1145358667,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3qfaujll]Domandina semplice  se carico le coordinate in un array aIMG[5]  come gliele carico dato che sono 2 parametri (x,y) per ogni errore ?[/quote:3qfaujll]\n\nPer ogni elemento dell\'array memorizza un array di due elementi. Es.:\n\naImg = { { 1, 2 }, { 3, 4 }, ... }\n\n[quote=&quot;Silvio&quot;:3qfaujll]e poi quando l\'utente clicca come posso vedere se le coordinate sono giuste?[/quote:3qfaujll]\n\nConfronta quelle (nRow, nCol) che ti passa il codeblock con quelle memorizzate nell\'array.\n\nEMG','',0,'gA==','3qfaujll',1,0,'',6,0,0),(11866,2714,6,490,0,'80.24.224.89',1145359814,1,0,1,1,1,0,'','','Antonio,\n\nLa clase TIcon no tiene la clausula PIXEL ni la Data lPixel, por lo que no se puede trabajar en pixels, siempre en coordenadas simulando el sistema de filas y columnas del DOS.\n\nPor lo que situarlos, se hace bastante complicado.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','bwf2y2jk',1,0,'',490,0,0),(11867,2722,7,2,0,'87.218.146.131',1145360969,1,0,1,1,1,1,'','','FErase( &lt;cFileName&gt; )','',0,'gA==','173eguju',1,0,'',2,0,0),(11868,2722,7,527,0,'83.61.180.14',1145361093,1,0,1,1,1,0,'','Gracias','Gracias','',0,'gA==','1gwec3zh',1,0,'',527,0,0),(11869,2714,6,2,0,'87.218.146.131',1145361170,1,0,1,1,1,1,'','','Joaquín,\n\nPuedes usar números decimales en @ ..., ... con lo que puedes ajustarlo a la posición que quieras.','',0,'gA==','2fqxkts7',1,0,'',2,0,0),(11870,2714,6,490,0,'80.24.224.89',1145362936,1,0,1,1,1,0,'','','Antonio,\n\n\nLo de trabajar con decimales lo sabía y usar ICO_CHARPIX_H y ICO_CHARPIX_W para convertirlos también, lo que quería decir, es que para que fwh funcionara todo igual y no llevarara a confusiones, esa clase TIcon está a falta de la clausula PIXEL.\n\nAdemás, creo que es un poco chapucero, y aparte desde que el usuario ve que no encuentra donde ha posicionado el icono, hasta que descubre que es lo que está pasando y como solucionarlo son una gran pérdida de tiempo.\n\nUn Saludo y gracias,\nJoaquín','',0,'gA==','3dtum3uw',1,0,'',490,0,0),(11871,2714,6,2,0,'87.218.146.131',1145364221,1,0,1,1,1,1,'','','Joaquín,\n\nPara eso estan los recursos, para no tener que posicionarlos a mano.','',0,'gA==','5y4empeg',1,0,'',2,0,0),(11872,2676,3,446,0,'87.7.219.251',1145364397,1,0,1,1,1,0,'','PDF creator','Antonio,\nYes, take a look to: PDFCreator_english.chm, it is located in the PDFCreator 9.0 install directory\n\nregards\nRoberto','',0,'gA==','r010d2pf',1,0,'',446,0,0),(11873,2723,6,409,0,'201.246.66.44',1145366259,1,0,1,1,1,0,'','PARECE QUE NADIEN TRABAJA CON TPRINTER','CREO Q NADIEN EN ESTE FORO TRABAJA CON TPRINTER COMO NO HAY RESPUESTA PARA TRABAJAR CON PAPEL,CONTINUO EN IMPRESORA MATRICIALES. EL PROBLEMA ES EL SALTO DE PAPEL COMO LO COMENTA OTRO COLEGA EN EL FORO.\nESTO LO COMECTO OTRO COLEGA TAMBIEN:\n\nImpresion en forma continua, impresor de matrices \n\n- Uso de la clase TPrinter (....si, ya se, deberia utilizar la tDosPrn, pero es necesario en este caso, pues hay impresion de unos aspectos gráficos). \n\nEl lío ocurre con el salto de papel, pues el formulario de impresion no es tamaño carta (es más pequeño), y al hacer un ENDPAGE se sale una pagina tamaño carta. \n\nEn otra pregunta ya realizada a este respecto, Antonio sugiere utilizar la funcion PrnSetSize() antes de declarar el objeto TPrinter..... pero no me funciona!!! \n\nSALUDOS','',0,'gA==','9dencdg1',1,0,'',409,0,0),(11874,2724,6,97,0,'200.23.84.231',1145367149,1,0,1,1,1,1,'','indices de la tabla en ado','Como puedo saber los indices que tiene una tabla en ado y seleccionar unos de esos indices para las busquedas.\n\n\nsaludos.\nfernando sandoval ruiz','',0,'gA==','32lw82zw',1,0,'',97,0,0),(11875,2725,6,97,0,'200.23.84.231',1145367426,1,0,1,1,1,1,'','porque la mysqllib no es funciona la browser de fw.','alguien que sea tan amable de explicarme porque la mysqllib no trabaja con los browses de fw, he echo pruebas todo funciona ok, pero en los browses no.\n\nsaludos.\nfernando sandoval ruiz','',0,'gA==','113tfhqm',1,0,'',97,0,0),(11876,2726,7,456,0,'217.127.39.57',1145367881,1,0,1,1,1,1,'','Border en GET','Hola Foro, q tal las fiestas de Pascua. Espero q bien.\n\nAl tema, tengo un GET que dependindo de un valor boolenao, debe estar activo o no. Esto es facil usando WHEN o o con Disable(), pero en ambos casos sigue visualizando el recuadro del GET. El GET esta definido desde recursos, veo que si fuera desde codigo existe NOBORDER, pero como puedo hacerlo para que cuando no se edite, tambien desaparezca el borde con el get definido en recursos. Evidentemente cuando deba editarse si quiero el borde, no me vale quitar el borde en el RC.\n\nGracias anticipadas.','',0,'gA==','3btblwrx',1,0,'',456,0,0),(11877,2659,6,519,0,'83.33.10.159',1145368340,1,0,1,1,1,0,'','','Hola Antonio\n\n  El TestPrn2.prg  funciona perfectamente, el problema lo tengo con la clase report y el  EasyReport, no imprime nada o me sale para enviar por fax, alguna idea de por donde puede estar el fallo  ? \n\n Un saludo y gracias \n\n Gabriel','',0,'gA==','dlmjm0px',1,0,'',519,0,0),(11878,2717,6,23,0,'212.166.227.103',1145368960,1,0,1,1,1,1,'','','Has probado a usar las nuevas ToolBar(), van muy bien.\n\noBar:=TReBar():New(oWndMdi)\n    \n    DEFINE TOOLBAR oBarMdi [b:25psmpgq]OF oBar [/b:25psmpgq]SIZE nSize, nSize+14 ;\n      IMAGELIST oImgList BALLOON // tooltips balloon style\n\nDe esta forma puedes crear varias toolbar y asignarlas a la Clase TReBar.\nPara que te muestre los iconos tendras que crear una ImageList :\n  \n    nSize:=32\n    oImgList:=TimageList():New(nSize,nSize)\n// Y aqui ir añadiendo todos los bitmaps\n    oImgList:AddMasked( TBitmap():Define( ,cBmp,      oWndMdi), nRGB(    192, 192, 192 ) )    \n\nMira los samples de fwh que hay dos o tres con los que lo verás super-claro.\n\nUn saludo.','',0,'QA==','25psmpgq',1,0,'',23,0,0),(11879,2727,3,537,0,'84.92.207.225',1145369238,1,0,1,1,1,0,'','What\'s the best practice for reindexing?','I use a Blank Record function instead of Delete/Pack in a multi-user environment, plus a ReUse Blank Record if one exists when creating new records. There is a need to Pack/Reindex from time to time, requiring exclusive access, but every now and again some files are locked, even when all the users have logged out. Suggestions/solutions appreciated ... many thanks in advance.','',0,'QA==','17e56li3',1,0,'',537,0,0),(11880,2728,3,23,0,'212.166.227.103',1145369749,1,0,1,1,1,1,'','La clase Tsmtp funciona?','Estoy tratando de probar el ejemplo testsmtp.prg de samples de fwh pero no consigo que envie el correo.\nDice que lo envia pero se \"pierde\" en el vacio.\n\nGraciass','',0,'QA==','2gqk5ezy',1,0,'',23,0,0),(11881,2728,3,23,0,'212.166.227.103',1145369917,1,0,1,1,1,1,'','','Este es el registro que queda en el servidor de correo : \n\nTue 2006-04-18 16:12:52: ----------\nTue 2006-04-18 16:13:09: Session 462; child 1; thread 356\nTue 2006-04-18 16:13:09: Aceptando SMTP conección desde [192.168.0.200 : 1998]\nTue 2006-04-18 16:13:09: --&gt; 220 sigev.com  ESMTP MDaemon 7.2.3; Tue, 18 Apr 2006 16:13:09 +0200\nTue 2006-04-18 16:13:09: &lt;-- HELO <!-- e --><a href=\"mailto:servidor@sigev.com\">servidor@sigev.com</a><!-- e -->\nTue 2006-04-18 16:13:09: --&gt; 250 sigev.com saluda a <!-- e --><a href=\"mailto:servidor@sigev.com\">servidor@sigev.com</a><!-- e -->, encantado de conocerlo\nTue 2006-04-18 16:13:09: &lt;-- MAIL FROM:&lt;servidor@sigev.com&gt;\nTue 2006-04-18 16:13:09: --&gt; 550 &lt;servidor@sigev.com&gt;, Remitente desconocido\nTue 2006-04-18 16:13:09: &lt;-- RCPT TO:&lt;angelsalom1@sigev.ccom&gt;\nTue 2006-04-18 16:13:09: --&gt; 503Comando o secuencia de comandos inesperados\nTue 2006-04-18 16:13:09: &lt;-- DATA\nTue 2006-04-18 16:13:09: --&gt; 503Comando o secuencia de comandos inesperados\nTue 2006-04-18 16:13:09: &lt;-- From: <!-- e --><a href=\"mailto:servidor@sigev.com\">servidor@sigev.com</a><!-- e -->\nTue 2006-04-18 16:13:09: --&gt; 500 ¿Qué? No lo entiendo\nTue 2006-04-18 16:13:09: &lt;-- To: <!-- e --><a href=\"mailto:angelsalom1@sigev.ccom\">angelsalom1@sigev.ccom</a><!-- e -->\nTue 2006-04-18 16:13:09: --&gt; 500 ¿Qué? No lo entiendo\nTue 2006-04-18 16:13:09: &lt;-- Cc: \nTue 2006-04-18 16:13:09: --&gt; 500 ¿Qué? No lo entiendo\nTue 2006-04-18 16:13:09: &lt;-- Subject: Testing FiveWin Class TSmtp enhancements\nTue 2006-04-18 16:13:09: Se encontraron demasiados errores\nTue 2006-04-18 16:13:09: La sesión de SMTP finalizó anormalmente (Bytes entrados/salidos: 2921/359)\nTue 2006-04-18 16:13:09: ----------','',0,'','1zup4vxo',1,0,'',23,0,0),(11882,2652,6,61,0,'201.217.166.227',1145371680,1,0,1,1,1,0,'','','TheFull:\n\nDesde FWH 2.7 build de Marzo la FreeImage.Dll esta funcionado.\n\n\nSaludos\n\nRuben Fernandez','',0,'','3l7omnq5',1,0,'',61,0,0),(11883,2719,20,49,0,'62.13.172.78',1145372165,1,0,1,1,1,1,'','','grazie \nio normalmente per caricare un array ad una dimensione  faccio \n\n          AAdd(aErr,\"\")\n          AAdd(aErr,img-&gt;errx)\n\nma essendo due paramentri (x,y)  non saprei farlo dove posso andare a vedere un esempio ?','',0,'','2mq8sn8s',1,0,'',49,0,0),(11884,2719,20,49,0,'62.13.172.78',1145372386,1,0,1,1,1,1,'','','cmq ho provato e funzia bene :adesso dove clicco disegna il cerchietto!!!','',0,'','3kbs8e12',1,0,'',49,0,0),(11885,2718,2,10,0,'195.76.89.43',1145373249,1,0,1,1,1,0,'','','Resuelto!!\nEl tema estaba en la clase DATABASE que tanto al situarse en el primer registro como en el último daba ese mensaje.\n\nGracias.\nUn saludo','',0,'','2vyfega2',1,0,'',10,0,0),(11886,2729,2,350,0,'80.32.243.219',1145375550,1,0,1,1,1,0,'','Tamaño del EXE','Hola a todos.\n\nTengo una aplicación en FW16 que el ejecutable ha llegado a su límite de tamaño (4 Gb + las DLLs de recursos). No puedo dividirla en dos partes por varios motivos, así que le he planteado al cliente pasarla a 32 Bits.\n\nMis preguntas son las siguientes: ¿Esto soluciona por si solo el problema?. Es decir, ¿con harbour no existe este límite?. ¿Cual es el límite en 32 Bits? ¿Alguien tiene una aplicación que el ejecutable ocupe mas de 4 Gb?\n\nLo digo porque tengo que tenerlo claro antes de comenzar el trabajo, ya que tendré que reescribir algunas partes, modificar dialogos, etc. y es una aplicación en la que llevo trabajando 8 años.\n\nSaludos','',0,'','un0dkgd2',1,0,'',350,0,0),(11887,2713,6,110,0,'165.98.151.243',1145376563,1,0,1,1,1,1,'','','Prueba los siguiente:\n\nComenta la linea en el archivo rc\n\n[code:hqlnv557]\n//1   24 &quot;winxp&#46;man&quot;\n[/code:hqlnv557]\n\nluego, en el directorio de tu aplicación, toma el archivo winxp.man y renombralo a:\n\n[code:hqlnv557]\nnombredemiaplicacion&#46;exe&#46;manifest\n[/code:hqlnv557]\n\nsi tu app se llama ray.exe, renombra el archivo manifest a \n\n[code:hqlnv557]\nray&#46;exe&#46;manifest\n[/code:hqlnv557]\n\ncuando el programa finaliza, te crea un archivo error.log?\n\notra situacion se da cuando usas la  libreria tsbrowse, esa libreria usa un preview.prg y un metafil.prg modificado, ademas de ser versiones algo antiguas.\n\nel caso es que normalmente nosotros agregamos esas tsbrowse.lib antes de las lib de fwh por lo que estariamos usando esas clases antiguas y no las nuevas.\n\nde ser asi lo adecuado es extraer los modulos antiguos de la lib tsbwrowse\npara evitar usarlos\n\n[code:hqlnv557]\ntlib tsbrowse&#46;lib *-rpreview&#46;obj *-tmetafil&#46;obj\n[/code:hqlnv557]\n\nsalu2\ncarlos vargas','',0,'AIA=','hqlnv557',1,0,'',110,0,0),(11888,2719,20,6,0,'82.59.188.92',1145377233,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:25a8sdn2]grazie \nio normalmente per caricare un array ad una dimensione  faccio \n\n          AAdd(aErr,\"\")\n          AAdd(aErr,img-&gt;errx)\n\nma essendo due paramentri (x,y)  non saprei farlo dove posso andare a vedere un esempio ?[/quote:25a8sdn2]\n\nAAdd( aErr, { valore1, valore2 } )\n\nEMG','',0,'gA==','25a8sdn2',1,0,'',6,0,0),(11889,2714,6,490,0,'80.24.224.89',1145377650,1,0,1,1,1,0,'','','Antonio,\n\nNo sé si se habrá malinterpretado o no me he expresado bien, el término \"chapucero\" no iba referido a que la librería en sí fuera chapucera, sino que el TIcon queda incompleto sin la clausula pixel y que para que tenga ese comportamiento, el usuario tiene que dar muchas vueltas. He visto el código y pienso que no sería muy complicado de implementar. ¿Como lo ves?\n\nUn Saludo \nJoaquín\n\nPD: Muchas veces escribiendo, al no escucharse la entonación, puede parecer que se dicen cosas con otras intenciones o en forma de desprecio, de ahí esta aclaración.','',0,'gA==','1f36eccv',1,0,'',490,0,0),(11890,2708,2,536,0,'200.43.134.229',1145377833,1,0,1,1,1,0,'','cual es la correcta','Gracias por la respuesta, pero como se si es la correcta\n\nSaludos Carlos','',0,'gA==','2hvolyht',1,0,'',536,0,0),(11891,2660,3,530,0,'201.114.224.202',1145378356,1,0,1,1,1,0,'','Thank You All for your answers','Thank You All for your answers\n\nRegards\nFco Gamboa','',0,'gA==','1xb4wnim',1,0,'',530,0,0),(11892,2717,6,362,0,'200.168.52.156',1145378835,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:i33low3f]Has probado a usar las nuevas ToolBar(), van muy bien.\n\noBar:=TReBar():New(oWndMdi)\n    \n    DEFINE TOOLBAR oBarMdi [b:i33low3f]OF oBar [/b:i33low3f]SIZE nSize, nSize+14 ;\n      IMAGELIST oImgList BALLOON // tooltips balloon style\n\nDe esta forma puedes crear varias toolbar y asignarlas a la Clase TReBar.\nPara que te muestre los iconos tendras que crear una ImageList :\n  \n    nSize:=32\n    oImgList:=TimageList():New(nSize,nSize)\n// Y aqui ir añadiendo todos los bitmaps\n    oImgList:AddMasked( TBitmap():Define( ,cBmp,      oWndMdi), nRGB(    192, 192, 192 ) )    \n\nMira los samples de fwh que hay dos o tres con los que lo verás super-claro.\n\nUn saludo.[/quote:i33low3f]\n\nGracias Angel...\n\nAngel, porque con la otra BUTTONBAR nativa del fivewin, no funciona??\n\nSaludos y muchas gracias.','',0,'wA==','i33low3f',1,0,'',362,0,0),(11893,2715,7,2,0,'87.218.146.131',1145380083,1,0,1,1,1,1,'','','Manuel,\n\nLee esto:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2322&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=writebyte\">http://fivetechsoft.com/forums/viewtopi ... =writebyte</a><!-- m -->','',0,'wA==','35xdqodt',1,0,'',2,0,0),(11894,2724,6,138,0,'201.152.98.24',1145380126,1,0,1,1,1,1,'','','Fernando:\n\nCon perdon.... estas a 10 cuadras del desfile..... los indices en tablas SQL no se utilizan para ordenar las columnas, como en DBFs, se utilizan para acelerar las busquedas cuando realizas un query, en SQL los datos se ordenan desde que realizas el query, y los indices en nada influyen con resultado obtenido:\n\nSELECT clave, nombre, direccion FROM clientes ORDER by nombre\n\nEsto te devuelve un recordset con los datos ordenados por nombre, si lo quieres ordenado por clave, pues cambias el criterio de ordenacion\n\nSELECT clave, nombre, direccion FROM clientes ORDER by clave\n\nLos indices solo se utilizan para acelerar las busquedas de datos cuanto tienes una clausula WHERE en el query.','',0,'wA==','39zd6c8f',1,0,'',138,0,0),(11895,2717,6,2,0,'87.218.146.131',1145380226,1,0,1,1,1,1,'','','João,\n\nPorque no han sido diseñadas para trabajar con múltiples filas. Las rebars y toolbars, si.','',0,'wA==','296oa49x',1,0,'',2,0,0),(11896,2725,6,138,0,'201.152.98.24',1145380367,1,0,1,1,1,1,'','','Es por la forma en que esta consturido el browse de FW.\n\nSi quieres hacer que funcione, tienes que cambiar varias cosas:\n\n1) definicion de las columnas o datos a mostrar\n2) bloques de codigo de longitud de datos (blogiclen y blogicpos)\n3) Metodo \"skipper\" tienes que modficiarlo para que se mueva sobre el cursor.\n\nMi recomendacion:\n\nDeja de intentar trabajar con tablas SQL como si fueran DBFs, eso no funciona, el modelo es diametralmente opuesto y utiliza mejor ADO.','',0,'wA==','376k19pf',1,0,'',138,0,0),(11897,2708,2,2,0,'87.218.146.131',1145380410,1,0,1,1,1,1,'','','Carlos,\n\nLo idóneo es que te actualices a la versión más reciente de FW desde <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m --> Es muy económico.\n\nSi tuvieses los OBJs bien y la las librerías correctas, no te saldría el debugger.','',0,'wA==','2pryuanl',1,0,'',2,0,0),(11898,2723,6,2,0,'87.218.146.131',1145380523,1,0,1,1,1,1,'','','Que versión y build de FWH usas ?','',0,'wA==','2pyak283',1,0,'',2,0,0),(11899,2725,6,97,0,'200.23.84.231',1145383117,1,0,1,1,1,1,'','Gracias Maestro Rene,','La prueba que hice fue abrir una tabla con ado y mysqllib y por desgracia la myslqlib es mas rapida. por lo que me quede pensando si no era mucho problema adaptar el wbrowse para que tome los datos hacerlo.\n\nDe momento no tengo mucho tiempo para hacer los cambio pero si lo voy considerar para mas delante.\n\nsaludos y mil gracias.','',0,'wA==','7d63iy70',1,0,'',97,0,0),(11900,2724,6,97,0,'200.23.84.231',1145383321,1,0,1,1,1,1,'','ok, aclaro gracias maestro.','Gracias Maestro , veo que la tole tiene el metodo foun y el metodo seek pero no logro hacerlos funcionar tienes algun ejemplo de como hacerlo.\n\n\ngracias.\nfernando sandoval ruiz','',0,'wA==','2iintpdf',1,0,'',97,0,0),(11901,2729,2,138,0,'201.152.98.24',1145383655,1,0,1,1,1,1,'','','Sebastian.....\n\nTengo una pregunta...... como es posible que tu EXE mida 4Gbytes ????.... \n\nel Word solo mide 16 megas !!!!!!  y el Excel andara por lo mismo.... es mas ni todo el sistema opertivo Windows XP COMPLETO ocupa 4 gigas ????\n\nNo seran 4 megas ?????','',0,'wA==','2xc5jtus',1,0,'',138,0,0),(11902,2730,6,471,0,'201.240.100.206',1145385611,1,0,1,1,1,1,'','Como se convierte font de Twindows a FONT DE TPRINTER','Amigos\n \n\n Trato de pulir un diseñador visual en tiempo de ejecucion  como hago para convertir los fonts de gets q tengo en un TWINDOWS  a FONTS de\nla clase TPRINTER la idea es q se imprima lo q se tiene en la \nTWINDOWS que simula al papel en la respectiva proporcion en \nla vista previa con la clase tPRINTER\n\nADJUNTO EL CODIGO A QUIEN ESTUVIERA INTERESADO\n\n#include \'fivewin.ch\'\n#include \'filexls.ch\'\n\n#define  TAB   chr(9)\n#define  ENTER chr(13)\n\n#define  ALI_LEFT    0\n#define  ALI_CENTER  1\n#define  ALI_RIGHT   2\n#define  ALI_JUSTIFY 3\n\n#define  LOGPIXELSX  88\n#define  LOGPIXELSY  90\n\n// Registros y delimitadores de campos de la estructura GTF\n#define SP_REG    Chr( 5 )\n#define SP_FIELD  Chr( 7 )\n#define TP_FONT  Chr( 15 )\n#define TP_COLOR  Chr( 16 )\n#define TP_ALIGN  Chr( 17 )\n\n// Identificador y versión de las ficheros GTF\n#define FORMAT_TEXT_TYPE       \"GTF\"\n#define FORMAT_TEXT_VERSION      \"1\"\n\n// todo lo anterior son define de LA CLASE TWORD\n\n#define FW_NORMAL          400\n#define FW_BOLD            700\n\nStatic oWndr,hayGroup,aSelGroup,oGroup,laclase,letrapixel\nStatic oReglav,oReglah,arrto,arrbusto,aAdic,NOaltfila\nStatic lBoxDraw,nBoxTop,nBoxLeft,nBoxBottom,nBoxRight,aSelCtrls,anClrpane\nStatic _fila,_colu,TRACE,expanterior\n//// 24/08/2004  - METODO PARA GRABAR UNA LINEA POR CONTROL COMPATIBLE CON ANTERIOR\n////             -\n////\n///  20/01/2004\n////////////////////////////////////////////////////////////////////////////////////\n///////////////////////////////////////////////////////////////////////////////////\n///   VISUAL REPORT DESIGNER EN RUN TIME\n//// TIEMPO DE EJECUCION\n///////////////////////////////////////////////////////////////////////////////////\n////////////////////////////////////////////////////////////////////////////////////\n//             1    2    3    4         5       6    7\nFUNC VZLABEL(fmtos,TITI,bmp,Funcparam,Dblclick,posi,ntimp,arrayAdic,lnoaltefila,cValid)//posicion de inicio de repeticon de expresion por todo el cursor\n//Testing how to scroll a window with its contents//ntimp = 1 que se imprima directo\nLOCAL oScrWnd,obmpfon,aGets:={},oScroll\nif empty(lnoaltefila);NOaltfila:=.F.\nelse              ;NOaltfila:=.T.\nendif\nlBoxDraw:=.f.\naAdic:=arrayAdic\n//?\" QUE VALE aAdic \",aAdic,valtype(aAdic)\n//?\"decuelta a 29\"\nletrapixel:=GetTextWidth( 0,\"|\" )\nIF EMPTY(bmp);bmp:=\"\";END\nDEFINE CURSOR oCursor HAND\nhayGroup:=.f.\naSelGroup:={}\nif empty(titi);TITI:=\"Visual Report Designer\";end\nif file(rclipper()+\"BITMAP\\\"+BMP+\".BMP\")\n DEFINE BITMAP obmpfon FILE rclipper()+\"BITMAP\\\"+BMP+\".BMP\"\nENDIF\nsetgridsize(1,1)\n//drawgrid(10)\nif empty(ntimp)\n   define window oWndr from 0, 0 TO 25, 70  title TITI vscroll hscroll\nelse\n   define window oWndr from -1,-1 TO -2, -2  title TITI vscroll hscroll\nendif\n  if file(rclipper()+\"BITMAP\\\"+BMP+\".BMP\")\n   oWndr:bpainted = { ||  oWndr:SayBitmap(0,0,obmpfon) }\n  ENDIF\n\n\n  oWndr:bLButtonUp   = { | nRow, nCol, nFlags | MyrLButtonUp( nRow, nCol, nFlags,oWndr )  }\n  oWndr:bMButtonDown = { | nRow, nCol, nFlags | myrLButtonDown( nRow, nCol, nFlags,oWndr ) }\n  oWndr:bMMoved   = { | nRow, nCol, nFlags | myrMouseMove( nRow, nCol, nFlags,oWndr ) }\n\n\n   //oWndr:bMMoved      = { | nRow, nCol, nFlags | oWndr:SetText( \"Fila=\"+ltrim(str( nRow ))+\" Colu=\"+ltrim(str( nCol ))+\"  \" )  }\n\n   oWndr:bRClicked    =  { | nRow, nCol, nFlags | ShowPopupVR( nRow, nCol, oWndr,aGets ) }\n\n   oWndr:bLDblClick   = { | nRow, nCol, nFlags | GraoWnd(oWndr,fmtos,oScroll) }\n   //oWndr:bRButtonUp   = { | nRow, nCol, nFlags | adigrupo(  nRow, nCol ) }\n   //oWndr:bLDblClick   = { | nRow, nCol, nFlags | oWndr:cGenPRG( \"C:\\Code.prg\" ),WAITRUN(\"NOTEPAD C:\\Code.prg\")  }\n\n//?\"cuanto vale ntimp\",ntimp\n\n      oWndr:bLclicked:= {| nRow, nCol, nFlags |  danrClrpane() , MyrLButtonDown( nRow, nCol, nFlags,oWndr ) }\n      oWndr:bGotFocus:= { ||  lBoxDraw:=.f., danrClrpane() }\n     If !empty(cValid)\n      oWndr:bValid:= &amp;(\" { || \"+cValid+\" } \")\n     Endif\nif empty(ntimp)\n   ACTIVATE WINDOW oWndr    ;\n      ON INIT ( oScroll:=VZTScrWnd():New(oWndr,1,40,1,25) , CargaoWnd(oWndr,fmtos,@aGets,Dblclick) ,ToolR(aGets,Funcparam,TITI,oScroll,Dblclick,posi),oWndr:Maximize(),reglas(oWndr) )\nelse\n   ACTIVATE WINDOW oWndr    ;\n      ON INIT ( oScroll:=VZTScrWnd():New(oWndr,1,40,1,25) , CargaoWnd(oWndr,fmtos,@aGets,Dblclick) ,oWndr:Hide(),implabel(oWndr,Funcparam,TITI,oScroll,posi,ntimp),oWndr:End() )\nendif\n//obmpfon:END()\nRETURN( NIL )\n\n\nFunc reglas(oWndr)\nLOCAL oFont,oPen\nDEFINE FONT oFont NAME \"Ms Sans Serif\" SIZE 0, -8\nDEFINE PEN  oPen WIDTH 0.1\n\n oReglah := TRegla():New( oWndr, 0,0,oWndr:nWidth, 30, .t.,0, 100, ;\n       .t.,  oFont ,oPen , .t.,CLR_BLACK, 12171705 ,3.5,3.5 )\n\n oReglav := TRegla():New( oWndr, 0,660, 1300 , 6000 , .t.,0, 500, ;\n       .f.,  oFont ,oPen , .t.,CLR_BLACK,  12171705 ,3.5,3.5 )\n //oReglah:Hide()//;oReglav:Hide()\n oPen:End();oFont:End()\n retu .t.\n\n//----------------------------------------------------------------------------//\n\nfunction ShowPopupVR( nRow, nCol , oWnd ,aGets)\n  local oMenu\n   MENU oMenu POPUP\n      MENUITEM \"Cambiar fuente \"  ACTION cambiafuente(oWnd)\n      MENUITEM \"Cambiar Color  \"  ACTION cambiacolor(oWnd)\n      MENUITEM \"Texto a la izquierda \" ACTION cambiaalin(oWnd,0)\n      MENUITEM \"Texto a la Derecha\"    ACTION cambiaalin(oWnd,1)\n      MENUITEM \"Texto al Centro   \"    ACTION cambiaalin(oWnd,2)\n      MENUITEM \"Multiplicar Vertical\"   ACTION multipctrl(oWnd,aGets,\"V\")\n      MENUITEM \"Multiplicar Horizontal\" ACTION multipctrl(oWnd,aGets,\"H\")\n\n      MENUITEM \"Ver Datos  \" ACTION EditaoWnd(oWnd)\n      MENUITEM \"Eliminar Texto \"    ACTION eliminactrl(oWnd)\n      SEPARATOR\n      MENUITEM \"Texto Normal\"         ACTION pontooltip(oWnd,\"Texto Normal\")\n      MENUITEM \"Expresion xbase \"     ACTION pontooltip(oWnd,\"Expresion xbase\")\n      MENUITEM \"Parametro de Funcion\" ACTION pontooltip(oWnd,\"Parametro de Funcion\")\n      MENUITEM \"Expresion xbase cabecera\"     ACTION pontooltip(oWnd,\"Expresion xbase cabecera\")\n      MENUITEM \"xbase a repetirse en todo el cursor\" ACTION pontooltip(oWnd,\"xbase a repetirse en todo el cursor\")\n      MENUITEM \"Expresion xbase pies\" ACTION pontooltip(oWnd,\"Expresion xbase pies\")\n      MENUITEM \"xbase a repetirse en todo el array\" ACTION pontooltip(oWnd,\"xbase a repetirse en todo el array\")\n      MENUITEM \"xbase con SANGRIA a 60 caracteres\"  ACTION pontooltip(oWnd,\"SANGRIA 60\")\n      MENUITEM \"Cambiar fuente a todo \"  ACTION todocambiafuente(oWnd)\n   ENDMENU\n   ACTIVATE POPUP oMenu OF oWnd AT nRow, nCol\nreturn nil\n\nFUNC CargaoWnd(oWnd,fmtos,aGets,Dblclick)\nLocal cmd,j6:=1,n,acos,j:=1,control,aRect,oGets,letras,MCRUT\nLocal cFont,ofont,aFont,lRight:=.f.,lCenter:=.f.,njustyf\nLocal cTYpe:=Upper(\"GBOX\"),nBottom :=100,nRight  :=100,nClrLite:= 0,nClrDark:= 0\n\n\nIF EMPTY(FMTOS);fmtos:=\"PRUEBA\";ENDIF\nIF FILE(rclipper()+\"fmtos\\\"+FMTOS+\".fmt\")\n    cmd:=memoread(rclipper()+\"fmtos\\\"+FMTOS+\".fmt\")\n    IF (n:=AT(CHR(13),cmd))&gt;0 ;cmd:=SUBS(cmd,1,n-1);ENDIF\n    IF (n:=AT(CHR(10),cmd))&gt;0 ;cmd:=SUBS(cmd,1,n-1);ENDIF\n    cmd:=alltrim(cmd);acos:=llenarray(cmd,0,\"|\")\n    aGets:=Array(len(acos)/9) ;oGets:=Array(len(acos)/9)\n    //msgalert(len(acos),\"acos\")\n    //msgalert(len(agets),\"aget\")\n    while j6&lt;=len(acos)\n     //?letrapixel,acos[j6+2]\n\n       IF alltrim(acos[j6+4])=\"__BOX__\"\n            aGets[j]:=\"  \"\n            // oGrp :=TGroup():New( nRow         , nCol          , nRow+100                    , nCol+100                       , cCaption, oForm, nClrText, nClrPane, .T.   ,lDesign , oFont, .t. )\n            //oGets[j]:= TGroup():New( val(acos[j6]),val(acos[j6+1]),val(acos[j6])+val(acos[j6+3]),val(acos[j6+1])+val(acos[j6+2]) , \"\"      , oWndr,         ,         , .T.   , .T.    , NIL  , .t. )\n            //  oLin:=TSLines():New( nRow         , nCol          , nBottom                     , nRight                         , cType, oForm, nClrLite, nClrDark, nClrText, .t.   ,  .F.   , .t.     ,           , oFont,        , lDesign     )\n            //?val(acos[j6]),val(acos[j6+1]),val(acos[j6+3]), val(acos[j6+2])\n            oGets[j]:=TSLines():New( val(acos[j6]),val(acos[j6+1]),val(acos[j6])+val(acos[j6+2]), val(acos[j6+1])+val(acos[j6+3]), cType, oWndr, nClrLite, nClrDark, 0       , .t.   ,  .F.   , .t.     ,           ,      ,        , .t.         )\n            //oGets[j]:=TSLines():New( val(acos[j6]),val(acos[j6+1]),val(acos[j6])+val(acos[j6+3]), val(acos[j6+1])+val(acos[j6+2]), cType, oWndr, nClrLite, nClrDark, 0       , .t.   ,  .F.   , .t.     ,           ,      ,        , .t.         )\n            oGets[j]:SetSize(val(acos[j6+2]),val(acos[j6+3]) )\n            oGets[j]:CAFONTS:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\"\n            oGets[j]:cTooltip:=\"__BOX__\"\n            oGets[j]:NIDFOLDER:=0   // alinead a la izq\n            oGets[j]:NPAGINA:=0     // color negro\n            oGets[j]:lRounded:=.F.\n            oGets[j]:Refresh()\n       ELSE\n          letras:=int(val(acos[j6+2])/letrapixel)\n          // depende de la justificacion\n          njustyf:= val(acos[j6+8])\n         Do case\n            case njustyf=0  // Izquierda\n                 aGets[j] :=acos[j6+5]+space(letras-len(acos[j6+5]) )\n                 lCenter:=.f. ;lRight:=.f.\n            case njustyf=1  // Derecha\n                 aGets[j] :=space(letras-len(acos[j6+5]) )+acos[j6+5]\n                 lCenter:=.f. ;lRight:=.t.\n            case njustyf=2  // Centro\n                 aGets[j] :=acos[j6+5]+space(letras-len(acos[j6+5]) )\n                 lCenter:=.t. ;lRight:=.f.\n         Endcase\n          // njustyf:=0  // no nos engañemos el align del cmsay no se que hace justif izq y transform\n          //             TGet():New( nRow         , nCol           , bSETGET(&lt;uVar&gt;)            , oWnd, nWidth         , nHeight        , cPict  , {ValidFunc}, nClrFore, nClrBack,oFont, .design., oCursor, .pixel., cMsg, .update., {uWhen},.lCenter., .lRight.,{|nKey, nFlags, Self| &lt;uChange&gt;\\}, .readonly., .pass., .lNoBorder., nHelpId )\n                 oGets[j] := TGet():New( val(acos[j6]), val(acos[j6+1]), GynLocalBlock( aGets, j )  ,oWndr, val(acos[j6+2]), val(acos[j6+3]),        ,            ,         ,         ,     , .T.     ,        , .T.    ,     , .T.     ,        , lCenter , lRight  ,                                 , .F.       , .F.   , .t.        ,        , .F.,,,, )\n               //oGets[j]:bResized:={ || oGet[:Varput( oget\n                 oGets[j]:npagina  := val(acos[j6+8])\n                 oGets[j]:cToolTip:= alltrim(acos[j6+4])\n                 oGets[j]:caFonts := acos[j6+6]\n                 oGets[j]:nidFolder:= val(acos[j6+7])\n                 // ?j,oGets[j]:cToolTip\n                 if !empty(oGets[j]:nidFolder)\n                    oGets[j]:SetColor( val(oGets[j]:nidFolder),  16777215 )\n                    oGets[j]:Refresh()\n                 endif\n                 //oGets[j]:nStyle  := nOR( WS_CHILD, WS_VISIBLE, ES_AUTOHSCROLL , NOT_WS_BORDER , WS_TABSTOP, WS_CLIPSIBLINGS )\n                 // Preparado para la ultima alienamiento\n                 //control:bGotFocus:=&amp;(\"{ || alignDEL( \"+chr(34)+cnomoDlg+\"_\"+ltrim(str(control:nId))+chr(34)+\") }\" )\n                 cFont:=oGets[j]:caFonts\n                 aFont:=llenarray(cFont,0)\n                if !EMPTY(cFont); aFont:=llenarray(cFont,0)\n                  IF LEN(aFont)&gt;=14\n                      //ALERT( , aFont ,)\n                      //? \"1\",aFont[ LF_FACENAME ],\"2\",aFont[ LF_HEIGHT ],\"3\",aFont[ LF_WEIGHT ],\"4\",aFont[ LF_ESCAPEMENT ],\"5\",aFont[ LF_ORIENTATION ],\"6\",aFont[ LF_WEIGHT ],\"7\",aFont[ LF_ITALIC ],\"8\",aFont[ LF_UNDERLINE ],\"9\",aFont[ LF_STRIKEOUT ],\"10\",aFont[ LF_CHARSET ],\"11\",aFont[ LF_OUTPRECISION ],\"12\",aFont[ LF_CLIPPRECISION ],\"13\",aFont[ LF_QUALITY ],\"14\",aFont[ LF_PITCHANDFAMILY ]\n                     oFont = TFont():New( aFont[ 14 ],val(aFont[ 2 ]), val(aFont[ 1 ]), .f.,;\n                                 ! ( val(aFont[ 5 ]) == FW_NORMAL ),;\n                                 val(aFont[ 3 ]), VAL(aFont[ 4 ]),;\n                                 val(aFont[ 5 ]), IF(aFont[ 6 ]=\"T\",.T.,.F.),;\n                                 IF(aFont[ 7 ]=\"T\",.T.,.F.), IF(aFont[ 8 ]=\"T\",.T.,.F.),;\n                                 val(aFont[ 9 ]), val(aFont[ 10 ]),;\n                                 val(aFont[ 11 ]), val(aFont[ 12 ]),,;\n                                 val(aFont[ 13 ]) )\n                     oGets[j]:SetFont( oFont )\n                     oGets[j]:Refresh()\n                     oFont:End()\n                  ENDIF\n                endif\n                if !empty(Dblclick) .AND. oGets[j]:cToolTip=\"Parametro de Funcion\"// hay funcion para prog dobleclick\n                    mcrut:=\"{ || \"+Dblclick+\"(\"+chr(34)+acos[j6+5]+chr(34)+\") }\"\n                    if vcerror(mcrut)\n                       oGets[j]:blDblclick:=&amp;mcrut\n                    endif\n                endif\n       ENDIF\n//////////////////////\n      j++\n      j6+=9\n    Enddo\nENDIF\nRETU .T.\n\nFunc ToolR(aGets,Funcparam,TITI,oScroll,Dblclick,posi)\nLocal oDlgT,oBtn_1,oBtn_2,oBtn_3,oBtn_4,oBtn_5,oBtn_6,oBtn_7,oBtn_8,oBtn21,oBtn22,oBtn15,oBtn16,oBtn17,oBtn18\nlocal oBtn115,oBtn116,oBtn117,oBtn118\n\n // mostrarr el tools\n\n   DEFINE DIALOG oDlgT SIZE 50,295 TITLE \"Tools\"\n\n     @ 0, 0   BTNBMP oBtn_1 NAME \"FLECHA\"  NOBORDER  SIZE 11, 11 ACTION ( llenalDrag(.t.,oWndr),oWndr:Refresh() )  OF oDlgT   ;oBtn_1:cTOOLTIP:= \"Tiempo de Diseño  \"\n     @ 0, 15  BTNBMP oBtn_2 NAME \"ALTO\"    NOBORDER  SIZE 11, 11 ACTION ( LlenalDrag(.f.,oWndr),oWndr:Refresh() )  OF oDlgT   ;oBtn_2:cTOOLTIP:= \"Tiempo Ejecucion \"\n\n     @ 0+12,0  BTNBMP oBtn_3 NAME \"grilla\"  NOBORDER  SIZE 11, 11 ACTION ponergrilla(oWndr) OF oDlgT   ;oBtn_3:cTOOLTIP:= \"Poner Grilla\"\n     @ 0+12,15  BTNBMP oBtn_4 NAME \"nogrilla\"  NOBORDER  SIZE 11, 11 ACTION quitargrilla(oWndr) OF oDlgT   ;oBtn_4:cTOOLTIP:= \"Quitar Grilla\"\n\n\n     @ 0+12+12, 0   BTNBMP oBtn_5 NAME \"reglah\"  NOBORDER  SIZE 11, 11 ACTION if(oReglah:lVisible,oReglah:Hide(),oReglah:Show()) OF oDlgT   ;oBtn_5:cTOOLTIP:= \"Regla Horizontal  \"\n     @ 0+12+12, 15  BTNBMP oBtn_6 NAME \"reglav\"  NOBORDER  SIZE 11, 11 ACTION if(oReglav:lVisible,oReglav:Hide(),oReglav:Show()) OF oDlgT   ;oBtn_6:cTOOLTIP:= \"Regla Vertical \"\n  /*\n     @ 0+12+12 , 0 BTNBMP oBtn_5  NAME \"IZQUIERDA\" NOBORDER  SIZE 11, 11 ACTION  cambiaalin(oWndr,0) OF oDlgT  ;oBtn_5:cTOOLTIP:= \"Texto a la izquierda \"\n     @ 0+12+12 ,15 BTNBMP oBtn_6  NAME \"DERECHA\" NOBORDER  SIZE 11, 11 ACTION  cambiaalin(oWndr,1) OF oDlgT  ;oBtn_6:cTOOLTIP:= \"Texto a la Derecha\"\n  */\n     @ 12+12+12, 0 BTNBMP oBtn_7  NAME \"WORD\"  NOBORDER  SIZE 11, 11 ACTION   imp2word(oWndr,Funcparam,TITI,oScroll,posi) OF oDlgT   ;oBtn_7:cTOOLTIP:= \"Importar a Word\"\n     @ 12+12+12,15 BTNBMP oBtn_8  NAME \"EXCEL\"  NOBORDER  SIZE 11, 11 ACTION  imp2excel(oWndr,Funcparam,TITI,oScroll,posi) OF oDlgT   ;oBtn_8:cTOOLTIP:= \"Importar a Excel\"\n\n\n     @ 0+12+12+24 , 0 BTNBMP oBtn1  NAME \"impo\" NOBORDER  SIZE 11, 11 ACTION  implabel(oWndr,Funcparam,TITI,oScroll,posi) OF oDlgT  ;oBtn1:cTOOLTIP:= \"Impresion Directa \" //),condicion,evacondi\n     @ 0+12+12+24 ,15 BTNBMP oBtn2  NAME \"SETUP\" NOBORDER  SIZE 11, 11 ACTION PRINTERSETUP()  OF oDlgT  ;oBtn2:cTOOLTIP:= \"Configuración de Impresion \"\n\n     @ 12+12+12+24, 0 BTNBMP oBtn3  NAME \"GET\"    NOBORDER  SIZE 11, 11 OF oDlgT   ;oBtn3:cTOOLTIP:= \"Jalar una expresion \"   ;oBtn3:oDragCursor = oCursor\n     @ 12+12+12+24,15 BTNBMP oBtn4  NAME \"grOup\"    NOBORDER  SIZE 11, 11 OF oDlgT   ;oBtn4:cTOOLTIP:= \"Jalar una Caja (Box)\" ;oBtn4:oDragCursor = oCursor\n   /*\n         @ 48+12+12+24 , 0  BTNBMP oBtn21  NAME \"ALFIL\"  NOBORDER  SIZE 11, 11 ACTION alinealo(\"F\")  OF oDlgT   ;oBtn21:cTOOLTIP:= \"Alinea Filas \"  // ;oBtn1:oDragCursor = oCursor\n    @ 48+12+12+24 , 15 BTNBMP oBtn22  NAME \"ALCOL\"  NOBORDER  SIZE 11, 11 ACTION alinealo(\"C\")  OF oDlgT   ;oBtn22:cTOOLTIP:= \"Alinea Columnas \"  // ;oBtn1:oDragCursor = oCursor\n   */\n\n    @ 24+12+12+24 , 0  BTNBMP oBtn15  NAME \"VZL1\" NOBORDER  SIZE 11, 11 ACTION vzrllalinea(1)  OF oDlgT   ;oBtn15:cTOOLTIP:= \"Alinea arriba\"\n    @ 24+12+12+24 , 15 BTNBMP oBtn16  NAME \"VZL2\" NOBORDER  SIZE 11, 11 ACTION vzrllalinea(2)  OF oDlgT   ;oBtn16:cTOOLTIP:= \"Alinea abajo \"\n    @ 36+12+12+24 , 0  BTNBMP oBtn17  NAME \"VZL3\" NOBORDER  SIZE 11, 11 ACTION vzrllalinea(3)  OF oDlgT   ;oBtn17:cTOOLTIP:= \"Alinea Izquierda\"\n    @ 36+12+12+24 , 15 BTNBMP oBtn18  NAME \"VZL4\" NOBORDER  SIZE 11, 11 ACTION vzrllalinea(4)  OF oDlgT   ;oBtn18:cTOOLTIP:= \"Alinea Derecha\"\n    @ 48+12+12+24 , 0  BTNBMP oBtn21  NAME \"VZL5\" NOBORDER  SIZE 11, 11 ACTION vzrllalinea(5)  OF oDlgT   ;oBtn21:cTOOLTIP:= \"Uniformiza maximo ancho\"\n    @ 48+12+12+24 , 15 BTNBMP oBtn22  NAME \"VZL6\" NOBORDER  SIZE 11, 11 ACTION vzrllalinea(6)  OF oDlgT   ;oBtn22:cTOOLTIP:= \"Uniformiza maximo alto\"\n\n\n     @ 24+12+12+24+12+24 , 0  BTNBMP oBtn115  NAME \"ARR\"  NOBORDER  SIZE 11, 11 ACTION muevelo(\"V\",-1)  OF oDlgT   ;oBtn115:cTOOLTIP:= \"Bloque arriba\"  // ;oBtn1:oDragCursor = oCursor\n     @ 24+12+12+24+12+24 , 15 BTNBMP oBtn116  NAME \"ABJ\"  NOBORDER  SIZE 11, 11 ACTION muevelo(\"V\",1 )  OF oDlgT   ;oBtn116:cTOOLTIP:= \"Bloque abajo \"  // ;oBtn1:oDragCursor = oCursor\n     @ 36+12+12+24+12+24 , 0  BTNBMP oBtn117  NAME \"IZQ\"  NOBORDER  SIZE 11, 11 ACTION muevelo(\"H\",-1)  OF oDlgT   ;oBtn117:cTOOLTIP:= \"Bloque izquierda \"  // ;oBtn1:oDragCursor = oCursor\n     @ 36+12+12+24+12+24 , 15 BTNBMP oBtn118  NAME \"DER\"  NOBORDER  SIZE 11, 11 ACTION muevelo(\"H\",1 )  OF oDlgT   ;oBtn118:cTOOLTIP:= \"Bloque derecha \"  // ;oBtn1:oDragCursor = oCursor\n\n\n   // @ 60 , 0  BTNBMP oBtn23  FILE \"vclon\\browse.bmp\"  NOBORDER  SIZE 11, 11 ACTION camnalign(0)  OF oDlgT   ;oBtn23:cTOOLTIP:= \"Jalar Campos de una Tabla \"  // ;oBtn1:oDragCursor = oCursor\n   // @ 60 , 15 BTNBMP oBtn24  FILE \"vclon\\CAMFO.bmp\"  NOBORDER  SIZE 11, 11  ACTION (camnalign(0),vzcambfon()) OF oDlgT   ;oBtn24:cTOOLTIP:= \"Cambiar Fondo \"  // ;oBtn1:oDragCursor = oCursor\n\n// @ 72 , 0  BTNBMP oBtn19  FILE \"vclon\\say.bmp\"  NOBORDER  SIZE 11, 11 ACTION (camnalign(0),ponldrag(oDlg))  OF oDlgT   ;oBtn19:cTOOLTIP:= \"Traer controles de Tablas \"  // ;oBtn1:oDragCursor = oCursor\n// @ 72 , 15 BTNBMP oBtn20  FILE \"vclon\\ELIM.bmp\"  NOBORDER  SIZE 11, 11 ACTION (ponldrag(oDlg),camnalign(3))  OF oDlgT   ;oBtn20:cTOOLTIP:= \"Eliminar Control \"  // ;oBtn1:oDragCursor = oCursor\n\n\n     //oBtn2:bDragBegin  = { ||   laclase := \"DATA\" }   //msginfo(\"TBUTTON\") }   //\n     oBtn3:bDragBegin  = { ||   laclase := \"GET\" }      //msginfo(\"TGET\") }      //\n     oBtn4:bDragBegin  = { ||   laclase := \"GROUP\" }     //msginfo(\"TSSAY\") }     //\n\n        ACTIVATE DIALOG oDlgt NOWAIT\n   // oBar1:Float()\n  oWndr:bDropOver = { || AddGet(aGets,Dblclick) }\n\nFunc GraoWnd(oWnd,donde,oScroll)\nLocal j,control,aRect,coor:=\"\"\n//oScroll:HScrollTrack(0) ;oScroll:VScrollTrack(0)\n// se baja una linea la porqueria esta\n//For j=1 to len(oWnd:aControls) ;control:=oWnd:aControls[j]\n//  aRect:=GetCoors( Control:hWnd )\n//  oWnd:aControls[j]:Move(  aRect[1]-(oWnd:aControls[j]:nHeight/4),aRect[2] )\n//Next j\n//oWnd:Refresh()\noScroll:HScrollPgUp();oScroll:HScrollPgUp();oScroll:HScrollPgUp();oScroll:HScrollPgUp()\noScroll:VScrollPgUp();oScroll:VScrollPgUp();oScroll:VScrollPgUp();oScroll:VScrollPgUp()\nif empty(donde);donde:=\"prueba\";end\noWnd:Gotop()\nIf hayGroup\n  oGroup:Hide();oGroup:End() ;hayGroup:=.f.;aSelgroup:={}\nendif\n// TODOS ESTOS DATOS NECESITO  EN EL GET PARA TRASLADARLO AL CMSAY\n//   METHOD CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad );\nFor j=1 to len(oWnd:aControls); control:=oWnd:aControls[j]\n  aRect:=GetCoors( control:hWnd )\n  //msgalert(valtype( control:Varget() ) ,\"tipo del varget\")\n  //msgalert(valtype( control:ctooltip ) ,\"tipo del ctooltip\")\n  if valtype(control:ctooltip)=\"U\" ;control:ctooltip:=\"\";end\n  if valtype(control:caFonts)=\"U\"  ;control:caFonts:=SPACE(4);end\n  if valtype(control:nidfolder)=\"U\";control:nidfolder:=space(3);end\n  if valtype(control:npagina)=\"U\"  ;control:npagina:=space(1);end\n\n //?\" QUE VALE control:caFonts\",control:caFonts,VALTYPE(control:caFonts)\n/*\n ?j,control:Varget(),\"1\",valtype(aRect[1]),;\n  \"2\",valtype(aRect[2]),;\n  \"3nWidth    \",valtype(control:nWidth) ,;\n  \"4nHeight   \",valtype(control:nHeight),;\n  \"5cTooltip  \",valtype(control:cTooltip),;\n  \"6Varget    \",valtype(control:Varget()),;\n  \"7CAFONTS   \",valtype(control:CAFONTS),;\n  \"8NIDFOLDER \",valtype(control:NIDFOLDER),;\n  \"9NPAGINA   \",valtype(control:NPAGINA)\n*/\nif control:ClassName()=\"TGET\"\n     if valtype(control:Varget())=\"U\"//;control:VarPut(space(20));end\n     //            1                     2                                3                                 4                       5                                        6                         7                    8                             9\n     //          nRow             |    nCol                |           nWidth               |            nHeight              |  SEGMENTO            |                cText          |          CAFONTS             | nBkMode/NIDFOLDER   |  nPad/NPAGINA\n    //?\"GRABANDO...\",J,aRect[1],aRect[2],control:nWidth,control:nHeight ))+\"|\"+ control:cTooltip +\"|\"+alltrim( control:Varget() )+\"|\"+alltrim( control:CAFONTS )+\"|\"+control:NIDFOLDER+\"|\"+control:NPAGINA+\"|\"\n    ///  coor+=ltrim(str(aRect[1]))+\"|\"+ltrim(str(aRect[2]))+\"|\"+ltrim(str( control:nWidth ))+\"|\"+ltrim(str( control:nHeight ))+\"|\"+ control:cTooltip +\"|\"+alltrim( control:Varget() )+\"|\"+alltrim( control:CAFONTS )+\"|\"+control:NIDFOLDER+\"|\"+control:NPAGINA+\"|\"\n     else\n      if empty(control:nWidth);control:nWidth:=0;end\n      if empty(control:nHeight);control:nHeight:=0;end\n      if empty(control:cTooltip);control:cTooltip:=\"Texto Normal\";end\n      if empty(control:CAFONTS);control:CAFONTS:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\";END\n      if empty(control:NIDFOLDER);control:NIDFOLDER:=0;END\n      if empty(control:NPAGINA);control:NPAGINA:=0;END\n      if valtype(control:NPAGINA)=\"C\";control:NPAGINA:=val(control:NPAGINA);end\n      coor+=ltrim(str(aRect[1]))+\"|\"+ltrim(str(aRect[2]))+\"|\"+ltrim(str( control:nWidth ))+\"|\"+ltrim(str( control:nHeight ))+\"|\"+ control:cTooltip +\"|\"+alltrim( control:Varget() )+\"|\"+alltrim( control:CAFONTS )+\"|\"+ltrim(str(control:NIDFOLDER))+\"|\"+ltrim(str(control:NPAGINA))+\"|\"\n     endif\nelseif control:ClassName()=\"TSLINES\"\n//?control:nWidth,control:nHeight\n      if empty(control:nWidth);control:nWidth:=0;end\n      if empty(control:nHeight);control:nHeight:=0;end\n      if empty(control:cTooltip);control:cTooltip:=\"__BOX__\";end\n      if empty(control:CAFONTS);control:CAFONTS:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\";END\n      if empty(control:NIDFOLDER);control:NIDFOLDER:=0;END\n      if empty(control:NPAGINA);control:NPAGINA:=0;END\n      if valtype(control:NPAGINA)=\"C\";control:NPAGINA:=val(control:NPAGINA);end\n      coor+=ltrim(str(aRect[1]))+\"|\"+ltrim(str(aRect[2]))+\"|\"+ltrim(str( control:nWidth ))+\"|\"+ltrim(str( control:nHeight ))+\"|\"+ control:cTooltip +\"|  |\"+alltrim( control:CAFONTS )+\"|\"+ltrim(str(control:NIDFOLDER))+\"|\"+ltrim(str(control:NPAGINA))+\"|\"\nendif\nnext j\ncoor:=subs(coor,1,len(coor)-1)\nFERASE(rclipper()+\"fmtos\\\"+donde+\".fmt\")\nMEMOWRIT(rclipper()+\"fmtos\\\"+donde+\".fmt\",COOR)\n//waitrun(\"NOTEPAD C:\\\"+CURDIR()+\"\\fmtos\\\"+donde+\".fmt\")\nRETU .T.\n\n\n// Agrega control en tiempo de ejecucion\nFunc AddGet(aGets,Dblclick)\nlocal oGet, cText := Space( 120 ),n\nLocal coor:=GetCursorPos(oWndr:hWnd ),j:=1,control\nLocal cTYpe:=Upper(\"GBOX\"),nBottom :=100,nRight  :=100,nClrLite:= 0,nClrDark:= 0\n\nIf hayGroup\n  oGroup:Hide();oGroup:End();hayGroup:=.f.;aSelgroup:={}\nendif\n//local aRect:=GetCoors( oDlg:hWnd )\n//COOR[1]:=COOR[1]-aRect[1] ;COOR[2]:=COOR[2]-aRect[2]\n//oWndr:Settext(\"FILA \"+LTRIM(STR(COOR[1]))+\" COLUMNA \"+LTRIM(STR(COOR[2])) )\n//?\"laclase\",laclase\n\nIF laclase=\"GROUP\"// .and. !hayGroup\n    aadd(aGets,space(120)) ;n:=len(aGets)\n   oGet:=TSLines():New( coor[1],coor[2],coor[1]+100,coor[2]+100 , cType   , oWndr, nClrLite, nClrDark, 0       , .t.   ,  .F.   , .t.     ,           ,      ,        , .t.         )\n   oGet :CAFONTS:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\"\n   oGet:cTooltip:=\"__BOX__\"\n   oGet:NIDFOLDER:=0   // alinead a la izq\n   oGet:NPAGINA:=0     // color negro\n   oGet:lRounded:=.F.\n   oGet:Refresh()\nELSEif laclase=\"GET\"\n     aadd(aGets,space(120)) ;n:=len(aGets)\n     oGet := TGet():New(coor[1],coor[2] , GynLocalBlock( aGets, n )  ,oWndr, 120, 20,        ,            ,         ,         ,     , .T.     ,        , .T.    ,     , .T.     ,        , .F.     , .F.      ,                                , .F.       , .F.    , .F.        ,, .F.,,,, )\n     oGet :CAFONTS:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\"\n     oGet:cTooltip:=\"Texto Normal\"\n     oGet:NIDFOLDER:=0   // alinead a la izq\n     oGet:NPAGINA:=0     // color negro\n      //oGet:cVarName  = ::GetVarName( oGet, \"oGet\" )\n    //oGet:l3D = .t.\nENDIF\n//oWndr:Refresh()\n//::RestoreStatus( oGet )\nreturn nil\n\n// Edita las propiedades ctooltip putGet , del Get y los guarda en el objeto\nFunc EditaoWnd(oWnd)\nLocal nAt := AScan( oWnd:aControls, { | oCtrl | oCtrl:lFocused } ),oDlg,lExit:=.F.\nLocal cSgm:=oWnd:aControls[nAt]:cTooltip\nLocal cExp:=oWnd:aControls[nAt]:Varget()\nLocal caFonts:=oWnd:aControls[nAt]:caFonts\nLocal nBkMode:=oWnd:aControls[nAt]:nidfolder\nLocal nPad   :=oWnd:aControls[nAt]:npagina\nLocal oGetC,oGetF\nIf hayGroup\n  oGroup:Hide();oGroup:End();hayGroup:=.f.;aSelgroup:={}\nendif\nIf  EMPTY(cSgm) ; cSgm:=SPACE(4)\nelse;cSgm:=cSgm+sPACE(4)\nENDIF\nIF EMPTY( cExp ); cExp:=SPACE(200)\nelse ;cExp:=cExp+SPACE(80)\nENDIF\nIF EMPTY(caFonts);caFonts:=SPACE(24);end\nIF EMPTY(nBkMode);nBkMode:=space(3);end\nIF EMPTY(nPad   );nPad:=space(1);end\n\n   DEFINE DIALOG oDlg from 20,12 to 35,95  TITLE \"Propiedades\" //COLOR \"W+/B\" SIZE 50,295\n   @ 1, 3 SAY \"Sgm   \" of oDlg\n   @ 1,8 GET cSgm of oDlg\n   @ 2, 3 SAY \"Exp   \" of oDlg\n   @ 2,8 GET cExp of oDlg\n   @ 3, 3 SAY \"Fonts \" of oDlg\n   @ 3,8 GET oGetF VAR caFonts of oDlg\n    ogetf:bLDblClick:={ || ogetf:VarPut( cadfnt(oWnd:aControls[nAt]) ) }\n   @ 4, 3 SAY \"nClrText \" of oDlg\n   @ 4,8 GET oGetC VAR nBkMode of oDlg\n    ogetC:bLDblClick:={ || ogetC:VarPut( ltrim(str( ChooseColor() ))  ) ,oWnd:aControls[nAt]:SetColor( ogetC:VarGet(), 16777215  ) }\n   @ 5, 3 SAY \"nPad \" of oDlg\n   @ 5,8 GET nPad of oDlg\n   @ 5, 5 BUTTON \"&amp;Ok\"     SIZE 40, 12  ACTION (lExit:=.T.,oDlg:End()) of oDlg\n   @ 5, 16 BUTTON \"&amp;Cancel\" SIZE 40, 12 ACTION oDlg:End() of oDlg\n   ACTIVATE DIALOG oDlg //NOWAIT\n\nIF lExit\n  oWnd:aControls[nAt]:cTooltip:=cSgm\n  oWnd:aControls[nAt]:varPut( cExp )\n  oWnd:aControls[nAt]:caFonts =caFonts\n  oWnd:aControls[nAt]:nidfolder=nBkMode\n  oWnd:aControls[nAt]:nPagina=nPad\n  oWnd:aControls[nAt]:Refresh()\nENDIF\n//MsgInfo( nAt )\nretu .t.\n\nfunc cadfnt(oCtrl)\nlocal cFont:=CADFONT(CHOOSEFONT())\nlocal ofont,aFont:=llenarray(cFont,0)\n   if valtype(cFont)!=\"U\"; aFont:=llenarray(cFont,0)\n              //? \"1\",aFont[ LF_FACENAME ],\"2\",aFont[ LF_HEIGHT ],\"3\",aFont[ LF_WEIGHT ],\"4\",aFont[ LF_ESCAPEMENT ],\"5\",aFont[ LF_ORIENTATION ],\"6\",aFont[ LF_WEIGHT ],\"7\",aFont[ LF_ITALIC ],\"8\",aFont[ LF_UNDERLINE ],\"9\",aFont[ LF_STRIKEOUT ],\"10\",aFont[ LF_CHARSET ],\"11\",aFont[ LF_OUTPRECISION ],\"12\",aFont[ LF_CLIPPRECISION ],\"13\",aFont[ LF_QUALITY ],\"14\",aFont[ LF_PITCHANDFAMILY ]\n              oFont = TFont():New( aFont[ LF_FACENAME ],val(aFont[LF_WIDTH]), val(aFont[ LF_HEIGHT ]), .f.,;\n                           ! ( val(aFont[ LF_WEIGHT ]) == FW_NORMAL ),;\n                           val(aFont[ LF_ESCAPEMENT ]), VAL(aFont[ LF_ORIENTATION ]),;\n                           val(aFont[ LF_WEIGHT ]), IF(aFont[ LF_ITALIC ]=\"T\",.T.,.F.),;\n                           IF(aFont[ LF_UNDERLINE ]=\"T\",.T.,.F.), IF(aFont[ LF_STRIKEOUT ]=\"T\",.T.,.F.),;\n                           val(aFont[ LF_CHARSET ]), val(aFont[ LF_OUTPRECISION ]),;\n                           val(aFont[ LF_CLIPPRECISION ]), val(aFont[ LF_QUALITY ]),,;\n                           val(aFont[ LF_PITCHANDFAMILY ]) )\n              oCtrl:SetFont( oFont )\n              //?\" oFont:nWidth \",oFont:nWidth,\"oFont:nHeight\",oFont:nHeight\n              oCtrl:Refresh()\n              oFont:End()\n   endif\nretu( cFont )\n\n\nfunc cambiafuente(oWnd)\nLocal nAt := AScan( oWnd:aControls, { | oCtrl | oCtrl:lFocused } )\nif nAt=0;retu;end\noWnd:aControls[nAt]:caFonts := cadfnt(oWnd:aControls[nAt])\nretu .t.\n\nfunc cambiacolor(oWnd)\nLocal nAt := AScan( oWnd:aControls, { | oCtrl | oCtrl:lFocused } )\nif nAt=0;retu;end\noWnd:aControls[nAt]:nIdFolder:=ltrim(str( ChooseColor() ))\noWnd:aControls[nAt]:SetColor( val(oWnd:aControls[nAt]:nIdFolder), 16777215  )\nretu .t.\n\nfunc cambiaalin(oWnd,n)\nLocal nAt := AScan( oWnd:aControls, { | oCtrl | oCtrl:lFocused } )\nif nAt=0;retu;end\noWnd:aControls[nAt]:nPagina:=ltrim(str(n))\nDo case\n   case n=1  // Izquierda\n     oWnd:aControls[nAt]:llCenter:=.f. ;oWnd:aControls[nAt]:llRight:=.f.\n   case n=2  // Derecha\n     oWnd:aControls[nAt]:llCenter:=.f. ;oWnd:aControls[nAt]:llRight:=.t.\n   case n=1  // Centro\n     oWnd:aControls[nAt]:llCenter:=.t. ;oWnd:aControls[nAt]:llRight:=.f.\nEndcase\noWnd:aControls[nAt]:Refresh()\nretu .t.\n\nFunc multipctrl(oWnd,aGets,vh)\nlocal oGet, cText := Space( 120 ),n\nLocal nAt := AScan( oWnd:aControls, { | oCtrl | oCtrl:lFocused } ),oDlg,lExit:=.F.\nLocal cSgm:=oWnd:aControls[nAt]:cTooltip\nLocal cExp:=oWnd:aControls[nAt]:Varget()\nLocal caFonts:=oWnd:aControls[nAt]:caFonts\nLocal nBkMode:=oWnd:aControls[nAt]:nidfolder\nLocal nPad   :=oWnd:aControls[nAt]:npagina\nLocal nVeces:=2,j,fila:=oWnd:aControls[nAt]:nTop,colu:=oWnd:aControls[nAt]:nLeft\nLocal cTYpe:=Upper(\"GBOX\"),nClrLite:= 0,nClrDark:= 0\nif vh=\"V\"\n fila:=oWnd:aControls[nAt]:nTop+oWnd:aControls[nAt]:nHeight\nelse\n colu:=oWnd:aControls[nAt]:nLeft+oWnd:aControls[nAt]:nWidth\nendif\nMsgGet(\"Multiplica\",\"Cuantas veces\",@nVeces)\nFor j=1 to nVeces\n     aadd(aGets,space(120)) ;n:=len(aGets)\n   if oWnd:aControls[nAt]:ClassName()=\"TGET\"\n     oGet := TGet():New(fila,colu , GynLocalBlock( aGets, n )  ,oWnd, oWnd:aControls[nAt]:nWidth, oWnd:aControls[nAt]:nHeight,        ,            ,         ,         ,     , .T.     ,        , .T.    ,     , .T.     ,        , .F.     , .F.      ,                                , .F.       , .F.    , .F.        ,, .F.,,,, )\n   else\n     oGet:=TSLines():New( fila,colu,fila+oWnd:aControls[nAt]:nHeight,colu+oWnd:aControls[nAt]:nWidth, cType, oWnd, nClrLite, nClrDark, 0       , .t.   ,  .F.   , .t.     ,           ,      ,        , .t.         )\n     oGet:SetSize(oWnd:aControls[nAt]:nWidth,oWnd:aControls[nAt]:nHeight )\n     oGet:CAFONTS:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\"\n     oGet:cTooltip:=\"__BOX__\"\n     oGet:NIDFOLDER:=0   // alinead a la izq\n     oGet:NPAGINA:=0     // color negro\n     oGet:lRounded:=.F.\n     oGet:Refresh()\n   endif\n   if vh=\"V\"\n     fila+=oWnd:aControls[nAt]:nHeight\n   else\n     colu+=oWnd:aControls[nAt]:nWidth\n   endif\nnext j\n//oWnd:Refresh()\n//::RestoreStatus( oGet )\nreturn nil\n\n\nFunc eliminactrl(oWnd)\nLocal nAt:=AScan( oWnd:aControls, { | oCtrl | oCtrl:lFocused } )\nif nAt=0;retu;end\noWnd:aControls[nAt]:Hide()\noWnd:aControls[nAt]:End()\n     if Len( oWnd:aControls ) == 0\n         ASend( oWnd:aDots, \"Hide()\" )\n     endif\nretu .t.\n\nFunc pontooltip(oWnd,Texto)\nLocal nAt:=AScan( oWnd:aControls, { | oCtrl | oCtrl:lFocused } )\nif nAt=0;retu;end\noWnd:aControls[nAt]:cTooltip:= Texto\noWnd:aControls[nAt]:Refresh()\nretu .t.\n\n\nFunc implabel(oWnd,Funcparam,TITI,oScroll,posi,nTimp)//,condicion,evacondi)\nLocal t,j,j_,control,aRect,coor:=\"\",exp,pdzo,mcrut,fila,colu,oFont,aFont,oFnt,nClrText\nLocal oPrn ,aImp:={},aCa,tip,aumfila:=0,incfila:=0,objsql,io,arrfonts:={},arrcol:={},myoFont\nLocal FAncho,FAlto\nif empty(posi);posi:=1;end\narrto:={};arrbusto:={}\noScroll:HScrollPgUp();oScroll:HScrollPgUp();oScroll:HScrollPgUp();oScroll:HScrollPgUp()\noScroll:VScrollPgUp();oScroll:VScrollPgUp();oScroll:VScrollPgUp();oScroll:VScrollPgUp()\n//oScroll:HScrollTrack(0) ;oScroll:VScrollTrack(0)\n//oWnd:Refresh()\n//if empty(nTimp)\n// MSGSTOP(\"QUE PASA 580\",\"POR FAVOR\")\n// tip:=Alert(\"de impresión \",{\" Vista Previa  \",\"  D O S   \",\" Archivo de Texto  o \",\"Impresión Directa\"},\"Defina el tipo \")\n//else\n// MSGSTOP(\"QUE PASA 583\",\"POR FAVOR\")\n tip:=nTimp\n//endif\n// MSGSTOP(\"QUE PASA 586\",\"POR FAVOR\")\nIf valtype(nTimp)=\"U\"\n   tip:=1\nEndif\n\nif tip&lt;4\n tip:=1\nendif\nDo case\n   case tip=2  ;  oPrn := TDosPrn():New(\"LPT1\")        ;oPrn:StartPage()\n   case tip=3  ;  oPrn := TDosPrn():New(\"TEMP\\P1.TXT\");oPrn:StartPage()\n   case tip=4\n    PRINT oPrn TITLE TITI //PREVIEW MODAL\n      oPrn:SetPortrait()\n      PageBegin()\n    TIP:=1 // ESTA SALIDA ES UN CHALACASO\n   otherwise\n    PRINT oPrn TITLE TITI PREVIEW MODAL\n      //oPrn:SetSize(2100,2950) //359\n      FAncho = oPrn:nHorzRes() / 142\n      FAlto  = oPrn:nVertRes() / 83\n\n      oPrn:SetPortrait()\n      PageBegin()\n\nEndcase\nIf hayGroup;oGroup:Hide();oGroup:End();hayGroup:=.f.;aSelgroup:={};endif\nIF TIP&gt;1  // IMPRESION DOS\n          For j=1 to len(oWnd:aControls); control:=oWnd:aControls[j];aRect:=GetCoors( control:hWnd )\n          // if valtype(control:ctooltip)=\"U\";control:ctooltip:=\"\";end\n             exp:=Control:Varget()\n             Do case\n                case oWnd:aControls[j]:cToolTip==\"Expresion xbase\"\n                  if vcerror(exp); exp:=&amp;exp ; endif\n                case oWnd:aControls[j]:cToolTip==\"Parametro de Funcion\"\n                  exp:=Funcparam+\"(\"+chr(34)+exp+chr(34)+\")\"\n                 if vcerror(exp); exp:=&amp;exp ; endif\n             Endcase\n             if valtype(exp)=\"N\" ;  exp:=alltrim(str(exp)) ; endif\n             pdzo:=int(control:nWidth/GetTextWidth( 0,\"|\" ) )\n             aadd( aImp ,{ int(aRect[1]/10)*1000+int(aRect[2]/6),;  // Order\n               int(aRect[1]/10),int(aRect[2]/6),exp,pdzo })\n          next j\n          aCa:=aSort( aImp,,,{ |x,y| x[1]&lt;y[1] } )\n          // ACA RECIEN EMPIEZA LA IMPRESION\n            For j=1 to len(aca)\n             //? \"FILA \",aca[j,2],\"COLU\",aca[j,3],\"EXPRESION\",subs(aca[j,4],1,aca[j,5]),\" CARACTERES QUE TOMA \",aca[j,5]\n              oPrn:Say(aca[j,2],aca[j,3],subs(aca[j,4],1,aca[j,5]) )\n            next j\n            oPrn:EndPage()                                      // optional\n            oPrn:End()\n           if alltrim(upper(puerto))=\"LPT1\"\n           else\n             WaitRun(\"NOTEPAD TEMP\\P1.TXT\")\n           endif\n ELSE\n        // es necesario ordenar acontrols antes de imprimirlo\n          For j=1 to len(oWnd:aControls); control:=oWnd:aControls[j];aRect:=GetCoors( control:hWnd )\n             aadd( aImp ,{ int(aRect[1]/10)*1000+int(aRect[2]/6),oWnd:aControls[j]})\n          next j\n          aCa:=aSort( aImp,,,{ |x,y| x[1]&lt;y[1] } )\n          For j=1 to len(aCa)\n             oWnd:aControls[j]:=aCa[j,2]\n          next j\n          For j=1 to len(oWnd:aControls); control:=oWnd:aControls[j];aRect:=GetCoors( control:hWnd )\n          if oWnd:aControls[j]:ClassName()=\"TREGLA\"\n           loop\n          endif\n          if valtype(oWnd:aControls[j]:Varget())=\"U\" .and. oWnd:aControls[j]:ClassName()=\"TGET\"\n           loop\n          end\n\n          //?oWnd:aControls[j]:ClassName(),oWnd:aControls[j]:cToolTip,aRect[1]\n          if aRect[1]&gt;=0 // no imprime negativos  solucion para YAris\n          //?\"area\",select(),oWnd:aControls[j]:cToolTip,oWnd:aControls[j]:Varget(),oWnd:aControls[j]:cToolTip==\"xbase a repetirse en todo el cursor\"\n\n\n\n             IF oWnd:aControls[j]:ClassName()=\"TSLINES\"\n\n                fila:= filcm2pix( aRect[1]/36, oPrn )  // /12.0*FALTO // 36 pixeles es una pulgada de alto\n                colu:= colcm2pix( aRect[2]/29, oPrn )  // /4.5*FANCHO // 29 pixeles es una pulgada de ancho\n                oPrn:Box( fila, Colu , fila + ((oWnd:aControls[j]:nHeight)/10.8*FALTO ) , Colu + ((oWnd:aControls[j]:nWidth)/4.0*FANCHO )  )\n\n             ELSEif oWnd:aControls[j]:cToolTip==\"xbase a repetirse en todo el cursor\"\n                objsql:=dameobjsql() ;arrto:=array(len(oWnd:aControls))\n                arrfonts:=array(len(oWnd:aControls))\n                arrcol:=array(len(oWnd:aControls))\n                arrbusto:=array(len(oWnd:aControls))\n                For t=1 to len(arrto);arrto[t]:=0;next t\n                aumfila:=0 ;j_:=j\n                VZMYBROW()\n                ?\"sgementos empiezan en \",j\n                For io=posi to len(objsql:aDbf) // objsql:Goto(io);objsql:Load()\n                  objsql:nAt:=io\n                   ?\"entro al bucle j_\",j_\n                   j_:=j\n                   while j_&lt;=len(oWnd:aControls) .and. oWnd:aControls[j_]:cToolTip==\"xbase a repetirse en todo el cursor\"\n                    control:=oWnd:aControls[j_];aRect:=GetCoors( control:hWnd )\n                                       exp:=Control:Varget()\n                                       if vcerror(exp); exp:=&amp;exp ; endif\n                                       if valtype(exp)=\"N\" ;  exp:=alltrim(str(exp))\n                                           arrto[j_]+=val(exp)\n                                         //?\"incrementado arrto j_ \",j_,\"con \",val(exp)\n                                       endif\n                                       pdzo:=int(control:nWidth/GetTextWidth( 0,\"|\" ) )\n                                       fila:=  aRect[1]/36   // 36 pixeles es una pulgada de alto\n                                       colu:=  aRect[2]/29 // 29 pixeles es una pulgada de ancho\n                                       if empty(oWnd:aControls[j_]:caFonts);oWnd:aControls[j_]:caFonts:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\";end\n                                       IF EMPTY(oWnd:aControls[j_]:nidfolder);oWnd:aControls[j_]:nidfolder:=0;END\n                                       IF EMPTY(oWnd:aControls[j_]:npagina);oWnd:aControls[j_]:npagina:=0;END\n                                       aFont:=llenarray(oWnd:aControls[j_]:caFonts,0)\n                                //      oFn2 := TFont():New( cFont               , 0                   , - 8                    ,    , .T.                                      ,                           ,                             ,                       ,                                   ,                                      ,                                      ,                         ,                              ,                               ,                         ,oPrn )\n                                        oFont = TFont():New( aFont[ LF_FACENAME ],val(aFont[ LF_WIDTH]), val(aFont[ LF_HEIGHT ]), .f.,! ( val(aFont[ LF_WEIGHT ]) == FW_NORMAL ),val(aFont[ LF_ESCAPEMENT ]), VAL(aFont[ LF_ORIENTATION ]),val(aFont[ LF_WEIGHT ]), IF(aFont[ LF_ITALIC ]=\"T\",.T.,.F.), IF(aFont[ LF_UNDERLINE ]=\"T\",.T.,.F.), IF(aFont[ LF_STRIKEOUT ]=\"T\",.T.,.F.), val(aFont[ LF_CHARSET ]), val(aFont[ LF_OUTPRECISION ]), val(aFont[ LF_CLIPPRECISION ]), val(aFont[ LF_QUALITY ]),oPrn , val(aFont[ LF_PITCHANDFAMILY ]) )\n                                        nClrText:=oWnd:aControls[j_]:nidfolder\n                                        myoFont:=oFont\n                                        if !empty(arrto[j_])\n                                           //?\"dentro del bucle \",j_,\"fila\", fila+aumfila,\"colu\",colu+2,exp ,\"color\",oWnd:aControls[j_]:nidfolder\n                                           arrfonts[j_]:=oFont ;arrcol[j_]:=colu\n                                           arrbusto[j_]:=Control:Varget()\n                                        endif\n                                        //?fila,aumfila,incfila                                  //CmSay( nRow        , nCol  , cText, oFont, nWidth, nClrText                    , nBkMode, nPad )  // en centímetros\n                                        if oWnd:aControls[j_]:npagina=1; oPrn:CmSay( fila+aumfila+incfila,colu+2 , exp  ,oFont ,       ,oWnd:aControls[j_]:nidfolder ,        , oWnd:aControls[j_]:npagina )\n                                        else                          ; oPrn:CmSay( fila+aumfila+incfila,colu , exp  ,oFont ,       ,oWnd:aControls[j_]:nidfolder ,        , oWnd:aControls[j_]:npagina )\n                                        endif\n                                        oFont:End() ; oFont:=NIL\n                   //?\"j_ cuanto vale \",j_\n                    j_++\n                   enddo\n                    aumfila:=aumfila+0.5\n                next io\n                objsql:nAt:=1\n                // imprime totales\n               // ?\"qu emide len(arrto)\",len(arrto)\n               //\n               // ESTOS TOTALES NO SE QUIEREN IMPRIMIR NUNCA\n                For t=1 to len(arrto)\n                 if !empty(arrto[t])\n                   //?t,arrto[t],empty(arrto[t]),\"fila\", fila+aumfila,\"colu\",arrcol[t]+2,nClrText,\" oFont \",myofont,myofont:ClassName()\n                                                                               //, nWidth, nClrText                    , nBkMode, nPad\n                      //CmSay( nRow        , nCol       , cText     , oFont      , nWidth, nClrText                    , nBkMode, nPad )  // en centímetros\n                   oPrn:CmSay( fila+aumfila+incfila,arrcol[t]+2 , arrto[t]  ,myoFont     ,       , 0                           ,        , 1 )\n                 endif\n                next t\n                //\n                 IF NOaltfila ; aumfila:=0 ; ENDIF\n                  j:=j_-1\n               // ?\"sgementos terminan en \",j\n             elseif oWnd:aControls[j]:cToolTip==\"xbase a repetirse en todo el array\"\n                j_:=j\n             // ?\"entro a array aAdic \",aAdic,len(aAdic)\n               // ?\"sgementos empiezan en \",j\n                For io=1 to len(aAdic) // objsql:Goto(io);objsql:Load()\n                 //  ?\"entro al bucle j_\",j_\n                   j_:=j\n                   while j_&lt;=len(oWnd:aControls) .and. oWnd:aControls[j_]:cToolTip==\"xbase a repetirse en todo el array\"\n                    control:=oWnd:aControls[j_];aRect:=GetCoors( control:hWnd )\n                                       exp:=Control:Varget()\n                                       if valtype(exp)=\"C\" ;exp:=val(exp);endif\n                                       exp:=aAdic[io,exp]\n                                       If valtype(exp)=\"N\"\n                                         exp:=transform(exp,\"999999999.99\")\n                                       Endif\n                                       pdzo:=int(control:nWidth/GetTextWidth( 0,\"|\" ) )\n                                       fila:=  aRect[1]/36   // 36 pixeles es una pulgada de alto\n                                       colu:=  aRect[2]/29 // 29 pixeles es una pulgada de ancho\n                                       if empty(oWnd:aControls[j_]:caFonts);oWnd:aControls[j_]:caFonts:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\";end\n                                       IF EMPTY(oWnd:aControls[j_]:nidfolder);oWnd:aControls[j_]:nidfolder:=0;END\n                                       IF EMPTY(oWnd:aControls[j_]:npagina);oWnd:aControls[j_]:npagina:=0;END\n                                       aFont:=llenarray(oWnd:aControls[j_]:caFonts,0)\n                                //      oFn2 := TFont():New( cFont               , 0                   , - 8                    ,    , .T.                                      ,                           ,                             ,                       ,                                   ,                                      ,                                      ,                         ,                              ,                               ,                         ,oPrn )\n                                        oFont = TFont():New( aFont[ LF_FACENAME ],val(aFont[ LF_WIDTH]), val(aFont[ LF_HEIGHT ]), .f.,! ( val(aFont[ LF_WEIGHT ]) == FW_NORMAL ),val(aFont[ LF_ESCAPEMENT ]), VAL(aFont[ LF_ORIENTATION ]),val(aFont[ LF_WEIGHT ]), IF(aFont[ LF_ITALIC ]=\"T\",.T.,.F.), IF(aFont[ LF_UNDERLINE ]=\"T\",.T.,.F.), IF(aFont[ LF_STRIKEOUT ]=\"T\",.T.,.F.), val(aFont[ LF_CHARSET ]), val(aFont[ LF_OUTPRECISION ]), val(aFont[ LF_CLIPPRECISION ]), val(aFont[ LF_QUALITY ]),oPrn , val(aFont[ LF_PITCHANDFAMILY ]) )\n                                        nClrText:=oWnd:aControls[j_]:nidfolder\n                                        //?\"608\",fila+aumfila+incfila,colu+2 , exp\n                                                                            //CmSay( nRow        , nCol  , cText, oFont, nWidth, nClrText                    , nBkMode, nPad )  // en centímetros\n                                        if oWnd:aControls[j_]:npagina=1; oPrn:CmSay( fila+aumfila+incfila,colu+2 , exp  ,oFont ,       ,oWnd:aControls[j_]:nidfolder ,        , oWnd:aControls[j_]:npagina )\n                                        else                          ; oPrn:CmSay( fila+aumfila+incfila,colu , exp  ,oFont ,       ,oWnd:aControls[j_]:nidfolder ,        , oWnd:aControls[j_]:npagina )\n                                        endif\n                                        oFont:End() ; oFont:=NIL\n                   //?\"j_ cuanto vale \",j_\n                    j_++\n                   enddo\n                   incfila++\n                next io\n                //\n                IF NOaltfila ;incfila:=0;Endif\n                  j:=j_\n               // ?\"sgementos terminan en \",j                    1234567\n             elseif UPPE(SUBS(oWnd:aControls[j]:cToolTip,1,7))==\"SANGRIA\"\n               exp:=Control:Varget()\n               if vcerror(exp); exp:=&amp;exp ; endif\n               aParrafo:=sangria(exp,SUBS(oWnd:aControls[j]:cToolTip,8) ) // devuelve arreglo parrafo con la sangria respectiva\n                                       pdzo:=int(control:nWidth/GetTextWidth( 0,\"|\" ) )\n                                       fila:=  aRect[1]/36   // 36 pixeles es una pulgada de alto\n                                       colu:=  aRect[2]/29 // 29 pixeles es una pulgada de ancho\n                                       if empty(oWnd:aControls[j]:caFonts);oWnd:aControls[j]:caFonts:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\";end\n                                       IF EMPTY(oWnd:aControls[j]:nidfolder);oWnd:aControls[j]:nidfolder:=0;END\n                                       IF EMPTY(oWnd:aControls[j]:npagina);oWnd:aControls[j]:npagina:=0;END\n                                       aFont:=llenarray(oWnd:aControls[j]:caFonts,0)\n                                        oFont = TFont():New( aFont[ LF_FACENAME ],val(aFont[ LF_WIDTH]), val(aFont[ LF_HEIGHT ]), .f.,! ( val(aFont[ LF_WEIGHT ]) == FW_NORMAL ),val(aFont[ LF_ESCAPEMENT ]), VAL(aFont[ LF_ORIENTATION ]),val(aFont[ LF_WEIGHT ]), IF(aFont[ LF_ITALIC ]=\"T\",.T.,.F.), IF(aFont[ LF_UNDERLINE ]=\"T\",.T.,.F.), IF(aFont[ LF_STRIKEOUT ]=\"T\",.T.,.F.), val(aFont[ LF_CHARSET ]), val(aFont[ LF_OUTPRECISION ]), val(aFont[ LF_CLIPPRECISION ]), val(aFont[ LF_QUALITY ]),oPrn , val(aFont[ LF_PITCHANDFAMILY ]) )\n                For io=1 to len(aParrafo);exp:=aParrafo[io]\n                                       if valtype(exp)=\"N\" ;  exp:=alltrim(str(exp)) ; endif\n                                        if oWnd:aControls[j]:npagina=1; oPrn:CmSay( fila+aumfila+incfila,colu+2 , exp  ,oFont ,       ,oWnd:aControls[j]:nidfolder ,        , oWnd:aControls[j]:npagina )\n                                        else                          ; oPrn:CmSay( fila+aumfila+incfila,colu , exp  ,oFont ,       ,oWnd:aControls[j]:nidfolder ,        , oWnd:aControls[j]:npagina )\n                                        endif\n                                        incfila++\n                next io\n                                        oFont:End() ; oFont:=NIL\n             else\n                                       exp:=Control:Varget()\n                                       Do case\n                                          case oWnd:aControls[j]:cToolTip==\"Expresion xbase\" .OR. UPPE(oWnd:aControls[j]:cToolTip)==\"EXPRESION XBASE PIES\" .OR. UPPE(oWnd:aControls[j]:cToolTip)==\"EXPRESION XBASE CABECERA\"\n                                            //MSGSTOP(exp,\"EXPRESION\")\n                                            //vzmybrow()\n                                            if vcerror(exp); exp:=&amp;exp ; endif\n                                            //MSGSTOP(exp,\"lugo EXPRESION es \")\n                                          case oWnd:aControls[j]:cToolTip==\"Parametro de Funcion\"\n                                           // ?\" cual es esa expresion que viota \",exp\n                                            exp:=Funcparam+\"(\"+chr(34)+exp+chr(34)+\")\"\n                                           if vcerror(exp); exp:=&amp;exp ; endif\n                                       Endcase\n                                       if valtype(exp)=\"N\" ;  exp:=alltrim(str(exp)) ; endif\n                                       pdzo:=int(control:nWidth/GetTextWidth( 0,\"|\" ) )\n                                       fila:=  aRect[1]/36   // 36 pixeles es una pulgada de alto\n                                       colu:=  aRect[2]/29 // 29 pixeles es una pulgada de ancho\n                                       if empty(oWnd:aControls[j]:caFonts);oWnd:aControls[j]:caFonts:=\"-11,0,0,0,400,F,F,F,0,3,2,1,34,Tahoma\";end\n                                       IF EMPTY(oWnd:aControls[j]:nidfolder);oWnd:aControls[j]:nidfolder:=0;END\n                                       IF EMPTY(oWnd:aControls[j]:npagina);oWnd:aControls[j]:npagina:=0;END\n\n\n                                       aFont:=llenarray(oWnd:aControls[j]:caFonts,0)\n                                //      oFn2 := TFont():New( cFont               , 0                   , - 8                    ,    , .T.                                      ,                           ,                             ,                       ,                                   ,                                      ,                                      ,                         ,                              ,                               ,                         ,oPrn )\n                                IF len(aFont)&gt;=14\n                                        oFont = TFont():New( aFont[ LF_FACENAME ],val(aFont[ LF_WIDTH]), val(aFont[ LF_HEIGHT ]), .f.,! ( val(aFont[ LF_WEIGHT ]) == FW_NORMAL ),val(aFont[ LF_ESCAPEMENT ]), VAL(aFont[ LF_ORIENTATION ]),val(aFont[ LF_WEIGHT ]), IF(aFont[ LF_ITALIC ]=\"T\",.T.,.F.), IF(aFont[ LF_UNDERLINE ]=\"T\",.T.,.F.), IF(aFont[ LF_STRIKEOUT ]=\"T\",.T.,.F.), val(aFont[ LF_CHARSET ]), val(aFont[ LF_OUTPRECISION ]), val(aFont[ LF_CLIPPRECISION ]), val(aFont[ LF_QUALITY ]),oPrn , val(aFont[ LF_PITCHANDFAMILY ]) )\n                                           //CmSay( nRow, nCol, cText, oFont, nWidth, nClrText                   , nBkMode, nPad )  // en centímetros\n                                Endif\n\n                                        if oWnd:aControls[j]:npagina=1; oPrn:CmSay( fila+aumfila+incfila,colu+2 , exp  ,oFont ,       ,oWnd:aControls[j]:nidfolder ,        , oWnd:aControls[j]:npagina )\n                                        else                          ; oPrn:CmSay( fila+aumfila+incfila,colu , exp  ,oFont ,       ,oWnd:aControls[j]:nidfolder ,        , oWnd:aControls[j]:npagina )\n                                        endif\n                                        if valtype(oFont)=\"O\";oFont:End();end\n                                        oFont:=NIL\n             endif\n          endif\n          next j\n      PageEnd()\n   ENDPRINT\nENDIF\nRETU .T.\n\n\n\n/*\nIf nWidth &gt; 0 .and. oFont != nil\n     cText:=Alltrim(cText)\n     DO WHILE ::GetTextWidth( cText, oFont ) &gt; nWidth\n        cText:=Substr(cText,1,Len(cText)-1)\n     ENDDO\nEndif\n\nSi deseamos obtener una presentación vistosa o elegante podemos usar de:\n\nLine( nTop, nLeft, nBottom, nRight, oPen )    // líneas\nBox( nRow, nCol, nBottom, nRight, oPen )    // cajas\nFillRect( aRect, oBrush )       // relleno\n\n*/\n\n\n\n/*\n        colu                           col\n\nfila 1    50                                    51    1*1000+51    1051\n\nfila 2              30                          32    2*1000+30    2030\n*/\n\nFunc muevelo(HV,n)\n//aSelCtrls\nLocal j,control,aRect\nIf valtype(aSelCtrls)=\"A\"\n  For j=1 to len(aSelCtrls);control:=aSelCtrls[j]\n    aRect:=GetCoors( control:hWnd )\n   If HV=\"V\"  ; control:Move(aRect[1]+(n*10),aRect[2])\n   else       ; control:Move(aRect[1],aRect[2]+(n*10))\n   endif\n   control:Refresh()\n  next j\n  oWndr:Refresh()\nendif\nretu .t.\n\nFunc alinealo(q)\nLocal coGroup:=GetCoors( oGroup:hWnd ),aRect,j\nLocal filsup:=coGroup[1],filinf:=coGroup[3]\nLocal colsup:=coGroup[2],colinf:=coGroup[4]\nIf hayGroup\n  if len(aSelgroup)=0 // Captura los objetos del grupo por coordenadas\n    For j=1 to len(oWndr:aControls) ;control:=oWndr:aControls[j]\n      aRect:=GetCoors( control:hWnd )\n      if (aRect[1]&gt;=filsup .and. aRect[3]&lt;=filinf) .and. (aRect[2]&gt;=colsup .and. aRect[4]&lt;=colinf)\n        aadd(aSelgroup,control)\n      endif\n    next j\n  endif\n //?\"largo de aSelgroup \",len(aSelgroup)\n For j=1 to len(aSelgroup);control:=aSelgroup[j]\n    aRect:=GetCoors( control:hWnd )\n   If q=\"F\"  ; control:Move(filsup,aRect[2])\n   else      ; control:Move(aRect[1],colsup)\n   endif\n   control:Refresh()\n next j\n oWndr:Refresh()\nelse\n  MsgAlert(\"Arrastre y seleccione un grupo\",\"Por Favor\")\nendif\nretu .t.\n\nfunc lleselGroup()\nLocal coGroup:=GetCoors( oGroup:hWnd )\nLocal j,control,arect\nLocal filsup:=coGroup[1],filinf:=coGroup[3]\nLocal colsup:=coGroup[2],colinf:=coGroup[4]\naSelgroup:={}\n    For j=1 to len(oWndr:aControls) ;control:=oWndr:aControls[j]\n      aRect:=GetCoors( control:hWnd )\n      if (aRect[1]&gt;=filsup .and. aRect[3]&lt;=filinf) .and. (aRect[2]&gt;=colsup .and. aRect[4]&lt;=colinf)\n        aadd(aSelgroup,control)\n      endif\n    next j\nretu .t.\n\nstatic Func vrSUM(xbase)\nLocal j:=1,n:=0\n//?\"analizando dentro de vrsum \",xbase\nWhile j&lt;=len(arrbusto)\n if valtype(arrbusto[j])=\"C\"\n  //?uppe(alltrim(arrbusto[j]))==uppe(alltrim(xbase)),arrbusto[j],xbase\n  if uppe(alltrim(arrbusto[j]))==uppe(alltrim(xbase)) ; n:=j\n   exit\n  endif\n endif\n j++\nEnddo\nif n&gt;0\n retu( arrto[n] )\nelse\n retu(0)\nendif\n\n//FUNC MUEVETODO\n//For j=1 to len(oWnd:aControls) ;control:=oWnd:aControls[j]\n//  aRect:=GetCoors( Control:hWnd )\n//  oWnd:aControls[j]:Move(  aRect[1]-(oWnd:aControls[j]:nHeight/4),aRect[2] )\n//Next j\n\nFunc todocambiafuente(oWnd)\nlocal cFont:=CADFONT(CHOOSEFONT()),n\nlocal ofont,aFont:=llenarray(cFont,0)\nif valtype(cFont)!=\"U\"; aFont:=llenarray(cFont,0)\n              //? \"1\",aFont[ LF_FACENAME ],\"2\",aFont[ LF_HEIGHT ],\"3\",aFont[ LF_WEIGHT ],\"4\",aFont[ LF_ESCAPEMENT ],\"5\",aFont[ LF_ORIENTATION ],\"6\",aFont[ LF_WEIGHT ],\"7\",aFont[ LF_ITALIC ],\"8\",aFont[ LF_UNDERLINE ],\"9\",aFont[ LF_STRIKEOUT ],\"10\",aFont[ LF_CHARSET ],\"11\",aFont[ LF_OUTPRECISION ],\"12\",aFont[ LF_CLIPPRECISION ],\"13\",aFont[ LF_QUALITY ],\"14\",aFont[ LF_PITCHANDFAMILY ]\n              oFont = TFont():New( aFont[ LF_FACENAME ],val(aFont[LF_WIDTH]), val(aFont[ LF_HEIGHT ]), .f.,;\n                           ! ( val(aFont[ LF_WEIGHT ]) == FW_NORMAL ),;\n                           val(aFont[ LF_ESCAPEMENT ]), VAL(aFont[ LF_ORIENTATION ]),;\n                           val(aFont[ LF_WEIGHT ]), IF(aFont[ LF_ITALIC ]=\"T\",.T.,.F.),;\n                           IF(aFont[ LF_UNDERLINE ]=\"T\",.T.,.F.), IF(aFont[ LF_STRIKEOUT ]=\"T\",.T.,.F.),;\n                           val(aFont[ LF_CHARSET ]), val(aFont[ LF_OUTPRECISION ]),;\n                           val(aFont[ LF_CLIPPRECISION ]), val(aFont[ LF_QUALITY ]),,;\n                           val(aFont[ LF_PITCHANDFAMILY ]) )\nendif\nFor n=1 to len(oWnd:aControls)\n oWnd:aControls[n]:caFonts :=cFont\n oWnd:aControls[n]:SetFont( oFont )\n oWnd:aControls[n]:nHeight:=oFont:nHeight\n oWnd:aControls[n]:Refresh()\nnext n\noFont:End()\nretu .t.\n\n\nFunction myrLButtonDown( nRow, nCol, nFlags,oForm )\nnBoxTop    :=nRow ;nBoxLeft   :=nCol ;nBoxBottom :=nRow ;nBoxRight  :=nCol\noForm:Capture() ;MyrDrawBox(oForm:hwnd);lBoxDraw:=.T.\nRETU .T.\n\nFunction myrMouseMove( nRow, nCol, nFlags,oForm )\n   If !nFlags==1 ; lBoxDraw:=.f. ; Endif// LBUTTON is DOWN !!!\n// Bug in Not Getting WM_LButtonUp before WM_MOUSEMOVE !!!!\n   if lBoxDraw;  MyrDrawBox(oForm:hWnd)\n      nBoxBottom = nRow ;  nBoxRight  = nCol ; MyrDrawBox(oForm:hWnd)\n      Return 0\n   endif\nretu .t.\n\nFunction MyrLButtonUp( nRow, nCol, nFlags,oForm )\nLocal n,o\nif lBoxDraw ;MyrDrawBox(oForm:hWnd);lBoxDraw = .f.\n      ReleaseCapture(); aSelCtrls:={} ;anClrpane:={}\n\n   For n=1 to len(oForm:aControls);o:=oForm:aControls[n];o:CoorsUpdate()\n   // ?\"top\",o:nTop,nBoxTop,\"Left\",o:nLeft,nBoxLeft,\"Bottom \",o:nTop+o:nHeight,nBoxBottom,\"Right\",o:nLeft+o:nWidth,nBoxRight , o:nTop&gt;nBoxTop .and. o:nLeft&gt;nBoxLeft .and. o:nTop+o:nHeight&lt;nBoxBottom .and. o:nLeft+o:nWidth&lt;nBoxRight\n\n     If o:nTop&gt;nBoxTop .and. o:nLeft&gt;nBoxLeft .and. o:nTop+o:nHeight&lt;nBoxBottom .and.;\n                 o:nLeft+o:nWidth&lt;nBoxRight\n               AADD(aSelCtrls,o)  ;AADD(anClrpane,o:nClrPane)\n       o:bDragBloq:=\"movxmouse\"\n       o:SetColor(0, 12632256) ;o:Refresh()\n     endif\n   Next n\nendif\nRETU .T.\n\n///  funciones de alineacion decentes por fin\n\nFunction vzrllalinea(dire)  // dire   1  arr   2 abjo    3  izq     4  der  5  width  6  height\nLocal j,vnTop:=0,vnLeft:=0,vnWidth:=0,vnHeight:=0\nif dire=1;vnTop:=9999;end\nif dire=3;vnLeft:=9999;end\nIf valtype(aSelCtrls)=\"A\"\n For j=1 to len(aSelCtrls)\n   Do case\n      case dire=1 // buscando el objeto que tengo la menor fila\n        if aSelCtrls[j]:nTop&lt;vntop;vntop:=aSelCtrls[j]:nTop;end\n      case dire=2 // buscando el objeto que tenga la mayor fila\n        if aSelCtrls[j]:nTop&gt;vntop;vntop:=aSelCtrls[j]:nTop;end\n      case dire=3 // buscando el objeto que tengo la menor colu\n        //? j,aSelCtrls[j]:nLeft,vnLeft\n        if aSelCtrls[j]:nLeft&lt;vnLeft;vnLeft:=aSelCtrls[j]:nLeft;end\n      case dire=4 // buscando el objeto que tenga la mayor colu\n        if aSelCtrls[j]:nLeft&gt;vnLeft;vnLeft:=aSelCtrls[j]:nLeft;end\n      case dire=5 // buscando el objeto que tenga la mayor ancho\n        if aSelCtrls[j]:nWidth&gt;vnWidth;vnWidth:=aSelCtrls[j]:nWidth;end\n      case dire=6 // buscando el objeto que tenga la mayor altura\n        if aSelCtrls[j]:nHeight&gt;vnHeight;vnHeight:=aSelCtrls[j]:nHeight;end\n   Endcase\n Next j\n For j=1 to len(aSelCtrls)\n  if dire=1 .or. dire=2     ;aSelCtrls[j]:nTop :=vnTop\n  elseif dire=3 .or. dire=4 ;aSelCtrls[j]:nLeft:=vnLeft\n  elseif dire=5 ;aSelCtrls[j]:nWidth :=vnWidth\n  elseif dire=6 ;aSelCtrls[j]:nHeight:=vnHeight\n  endif\n  aSelCtrls[j]:Refresh()\n Next j\nEndif\nretu .t.\n\nFunc danrClrpane\nLocal j\nIf valtype(anClrpane)=\"A\"\n   For j=1 to len(anClrpane)\n     aSelCtrls[j]:SetColor(aSelCtrls[j]:nClrText,anClrpane[j]);aSelCtrls[j]:Refresh()\n     aSelCtrls[j]:bDragBloq:=NIL\n   next j\n   aSelCtrls:={} ;anClrpane:={}\nEndif\nretu .t.\n\nFunction MyrDrawBox(hWnd )\nRectDotted( hWnd, nBoxTop, nBoxLeft , nBoxBottom, nBoxRight )\nretu .t.\n\n\nFunction sangria(linea,ancho)\nLocal aParrafo:={},palablin,ksep:=1\nLocal aPalabras,separa,j:=1,k\nlinea:=alltrim(linea);ancho:=val(ancho)\nif empty(ancho);ancho:=60;end\naPalabras:=palabras(linea)//\n//?\"cuantas palabras hay en la linea\",linea,len(aPalabras)\nIf len(linea)==ancho;aadd(aParrafo,linea)\nelseif len(linea)&lt;ancho // hay que repartir los blancos\n   separa:=space(      int(   (ancho-len(linea)) / len(aPalabras)   )  )\n   linea:=\"\"\n   For j=1 to len(aPalabras)\n      linea+=alltrim(aPalabras[j])+separa\n   next j\n   linea:=subs(linea,1,ancho) ;aadd(aParrafo,linea)\nelse  // hay que armar un hermoso parrafo con sangria\n   linea:=\"\";j:=1\n   while j&lt;=len(aPalabras)\n      if len(linea+alltrim(aPalabras[j]))=ancho   // incluye la palabra\n       aadd(aParrafo,linea+alltrim(aPalabras[j]) );linea:=\"\"\n      elseif len(linea+alltrim(aPalabras[j]))&gt;ancho  // descarta la palabra ponlo en la otra linea\n       linea:=alltrim(linea); palablin:=palabras(linea)\n       //?\"linea\",linea,\"ancho\",ancho,\"len(linea)\",len(linea),\"len(palablin)\",len(palablin)\n       separa:=ancho-len(linea)\n       //?\"LEN(SEPARA)\",LEN(SEPARA)\n       linea:=\"\";ksep:=1\n       For k=1 to len(palablin)\n        linea+=alltrim(palablin[k])+\" \"+space(ksep)\n        if k&gt;separa;ksep:=0;endif\n        //?linea+\"********\"\n       next j\n       //linea:=subs(linea,1,ancho);\n       //?\"linea\",linea,len(linea)\n       aadd(aParrafo,linea);linea:=\"\"\n       loop\n      else\n       linea+=alltrim(aPalabras[j])+\" \"\n       //?linea+\"********\"\n      endif\n     j++\n   enddo\nendif\nretu( aParrafo )\n\nFunc palabras(linea)\nLocal aPalabras:={},n\nIf at(\" \",linea)&gt;0\n while at(\" \",linea)&gt;0\n  n:=at(\" \",linea)\n  aadd(aPalabras,subs(linea,1,n-1) )\n  linea:=alltrim(subs(linea,n+1))\n enddo\n aadd(aPalabras,linea)\nelse\n aadd(aPalabras,linea)\nendif\nretu(aPalabras)\n\n\n Func filcm2pix( nRow ,oPrn )\n   nRow := Max( 0, ( nRow * 10 * oPrn:nVertRes() / oPrn:nVertSize() ) - oPrn:nYoffset )\n retu(nRow)\n\n Func colcm2pix( nCol ,oPrn )\n   nCol := Max( 0, ( nCol * 10 * oPrn:nHorzRes() / oPrn:nHorzSize() ) - oPrn:nXoffset )\n retu(nCol)\n\n\n\n\n//////////////////////////////////////////////////////////////////////////\n// Mover grupo de controles con el mouse\n////////////////////////////////////////////////////////////////////////\nFunc movxmouse( enfila,encolu )\nLocal oForm:=oWndr\nLocal j,control,aRect\nIf valtype(aSelCtrls)=\"A\"\n  oLastForm:=oForm\n  For j=1 to len(aSelCtrls);control:=aSelCtrls[j]\n    aRect:=GetCoors( control:hWnd )\n    control:Move(aRect[1]+enfila,aRect[2]+encolu)\n    control:Refresh()\n  next j\n  oForm:Refresh()\nendif\nretu .t.\n\n// LA CLASE TWORD\n\nCLASS TWord\n		DATA oWord\n		DATA oDocs\n		DATA oActiveDoc\n		DATA oTexto\n    DATA oSelection\n		DATA cNombreDoc\n		DATA nLinea,nCol, nPage\n		DATA nYoffset, nXoffset\n		DATA lstartpag\n		DATA oLastSay\n		DATA lOverflowing\n		DATA nlastrow\n		DATA cTextOverflow\n		DATA lSetCm\n\n    DATA oOptions           // Objeto Options                  [ Vikthor ]\n    DATA oMailMerge         // Combinar correspondencia        [ Vikthor ]\n    DATA oDataSource        // Objeto MailMergeDataSource      [ Vikthor ]\n    DATA oDataFields        // Objeto MailMergeDataFields      [ Vikthor ]\n    DATA oFields            // Objeto MailMergeFields          [ Vikthor ]\n    DATA oTables            // Objeto Tables                   [ Vikthor ]\n\n		METHOD AddImagen( nTop, nLeft, nBottom, nRight, cImagen, alinea, ntipo, nrotacion )\n		METHOD addtabulador(npos, ocuadrotext)\n		METHOD Box( nTop, nLeft, nBottom, nRight, afondo, alinea, ntipo, nrotation, lsimple )\n		METHOD close()\n		METHOD CmSay( nLin,nCol,cTexto,oFuente,nSizeHorz,nClrText,nBkMode,nPad, naltura, nColorIndex, lVertAdjust )\n		METHOD CheckSpelling()\n		METHOD End()\n		METHOD EndPage()\n		METHOD FillRect( aRect, oBrush )\n		METHOD GetTextHeight( oFont )\n		METHOD GetTextWidth(cText, oFont)\n		METHOD GoBottom() INLINE ::oTexto:Invoke( \'EndKey\', 6)\n		METHOD GoTop() INLINE ::oTexto:Invoke( \'HomeKey\', 6)\n		METHOD JustificaDoc( nJustify, otext )\n		METHOD Line( nTop, nLeft, nBottom, nRight, oPen, nColor, nStyle )\n		METHOD New()\n		METHOD NewDoc( cNombreDoc )\n		METHOD nLogPixelX() INLINE 55.38\n		METHOD nLogPixelY() INLINE 55.38\n		METHOD OpenDoc( cNombreDoc )\n		METHOD Preview()\n		METHOD PrintDoc(lbackground, lappend, nRange, cOutputFile, nfrom, nto, nitem, ncopias, cpages)\n		METHOD Protect(cpassword,nmodo)\n		METHOD Replace( cOld, cNew )\n		METHOD Save(cnombredoc)\n		METHOD Say( nLin,nCol,cTexto,oFuente,nSizeHorz,nClrText,nBkMode,nPad, naltura, nColorIndex, lvertadjust )\n		METHOD Say2( nLin,nCol,cTexto,oFuente, nSize, lBold, lShadow, nColor )\n		METHOD SayGTF( nTop,nLeft, cTextFormat, nBottom,nRight )\n		METHOD SetCm()\n		METHOD SetHeader()\n		METHOD SetLandScape()\n		METHOD SetMainDoc()\n		METHOD SetPortrait()\n		METHOD SetUl()\n		METHOD StartPage()\n		METHOD TabClearAll(ocuadrotext)\n		METHOD TabPredeterminado(ncada)\n		METHOD TextBox( nTop, nLeft, nBottom, nRight, cTexto, oFuente, nclrtext, nClrBack, nJustify, afondo, alinea, lvertadjust, norientacion)\n		METHOD UnProtect(cpassword)\n		METHOD VistaCompleta()\n		METHOD Visualizar INLINE ::oWord:Visible := .T.\n    METHOD Write( cTexto, cFuente, cSize, lBold, lShadow, nColor )\n    METHOD Sendmail( lAttach ) // [ Vikthor ]\n    METHOD HeaderFooter( nOption )  // [ Vikthor ]\n    METHOD OpenDataSource( cFile )  // [ Vikthor ]\n    METHOD AddField( cField )  // [ Vikthor ]\n    METHOD WebPagePreview() INLINE ::oActiveDoc:Get(\"WebPagePreview\") // [ Vikthor ] Genera una vista en HTML del libro.\n    METHOD AddTables( nRows , nCols , aDatos ) // [ Vikthor ]\n    METHOD View( nView )  // [ Vikthor ]\n    METHOD Zoom(nPercent)\nENDCLASS\n\n\nMETHOD AddImagen( nTop, nLeft, nBottom, nRight, cImagen, alinea, ntipo, nrotacion ) CLASS TWord\n\n		 ::Box(nTop, nLeft, nBottom, nRight, {,,,,,,,cImagen}, alinea, ntipo, nrotacion, .t.)','',0,'','1ccaa91d',1,0,'',471,0,0),(11903,2725,6,228,0,'200.119.74.60',1145386589,1,0,1,1,1,1,'','Yo lo hago así:','Amigo mira yo trabajo con clase nativa de sql y estamos con un amigo tranto de crear una pequeña clase que lea el cursor y lo tome directamente sin necesidad de crear un array previamente y mostrarlo directo.\n\npor ahora yo lo hago de la siguiente manera:\n\n[code:1kg4kyqi]\n**********************************************\n*actualiza el array cada vez que hay un cambio\n**********************************************\nPROC pArCiud&#40;&#41;\n\noTable &#58;= oLamcla&#58;oServer&#58;Query&#40; &quot;SELECT * from &quot; + oLamcla&#58;tCiud + &quot; ORDER BY &quot;+vOrden &#41;\noTable&#58;GoTop&#40;&#41;\nnReg   &#58;= oTable&#58;Reccount&#40;&#41;\nnLen   &#58;= 0\nnMax   &#58;= nReg\nIF Empty&#40;nReg&#41;\n  aBrw &#58;= Array&#40;1&#41;\n  nLen++\n  aBrw&#91;nLen&#93; &#58;= &#40;&#123; 0,&quot;&quot;,&quot;&quot;,&quot;&quot;,0&#125;&#41;\n  Asize&#40; aBrw, nLen &#41;\nELSE\n  aBrw &#58;= Array&#40;nReg&#41;\n  DO WHILE !oTable&#58;Eof&#40;&#41;\n    oTable&#58;GetRow&#40;&#41;\n    nLen++\n    IF nLen &gt; nMax\n      aSize&#40; aBrw, &#40;nMax += K_Ajuste&#41;&#41;\n    ENDIF\n    aBrw&#91;nLen&#93; &#58;= &#40;&#123; oTable&#58;FieldGet&#40;\'d_Ciudad\'&#41;,oTable&#58;FieldGet&#40;\'d_Nombre\'&#41;,;\n    		     oTable&#58;FieldGet&#40;\'Usuari\'&#41;,oTable&#58;FieldGet&#40;\'Ufecha\'&#41;,oTable&#58;FieldGet&#40;\'Uhoras\'&#41; &#125;&#41;\n    oTable&#58;Skip&#40;&#41;\n  ENDDO\n  Asize&#40; aBrw, nLen &#41;\nENDIF\noTable&#58;Destroy&#40;&#41;\nCursorArrow&#40;&#41;\n\noBrw&#58;aArrayData &#58;= ACLONE&#40;aBrw&#41;\noBrw&#58;refresh&#40;&#41;\n[/code:1kg4kyqi]\n\nespero te sirva.\n\nPTA: Yo hice la misma prueba y opino lo mismo que tu.','',0,'AIA=','1kg4kyqi',1,0,'',228,0,0),(11904,2715,7,527,0,'88.11.3.195',1145386737,1,0,1,1,1,0,'','OK, lo voy a estudiar para ver si lo entiendo.','De todas formas no existe nigun diseñador de impresos para poder enlazar con la pokect.\n\ngracias.','',0,'AIA=','2lkknwmp',1,0,'',527,0,0),(11905,2730,6,255,0,'200.67.175.250',1145389313,1,0,1,1,1,1,'','','Perdona, no me lo tomes a mal pero creo que era mas fácil \npara todos si hubieras publicado este codigo para descargar.\n\nSaludos','',0,'AIA=','3543kg9h',1,0,'',255,0,0),(11906,2715,7,2,0,'87.218.146.137',1145389792,1,0,1,1,1,1,'','','De momento, no.','',0,'AIA=','1u63uema',1,0,'',2,0,0),(11907,2723,6,39,0,'216.155.88.137',1145389929,1,0,1,1,1,0,'','','Hola,\n\nLo que pasa es que es el windows el que controla el salto de pagina segun el tamaño de hoja que tengas informado en la configuracion de la impresora, a menos que le digas que tiene otro tamaño del pagina y eso lo haces con el PrnSetSize() que si no me equivoco es un metodo de tprinter.\n\n\nAtte,\nLautaro','',0,'AIA=','2ylj9y8n',1,0,'',39,0,0),(11908,2715,7,527,0,'88.11.3.195',1145389977,1,0,1,1,1,0,'','Pero entonces','Si uso varios tipos de letra dentro del la impresion de una de chorro de tinta por ejemplo, como puedo calcular las posiciones manualmente de cada una de las columnas que quiero imprimir\n\nGracias.','',0,'AIA=','ybtp5pg7',1,0,'',527,0,0),(11909,2731,3,6,0,'82.59.188.92',1145396428,1,0,1,1,1,1,'','TGet bug','This is the sample. Try to input 1.25 and you\'ll get 1.30 on lost focus (xHarbour, BCC55):\n\n[code:35zy20dt]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL nVar &#58;= 0\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET nVar;\n           PICTURE &quot;@EZ 99,999&#46;99&quot;;\n           RIGHT\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    ? nVar\n\n    RETURN NIL[/code:35zy20dt]\n\nEMG','',0,'AIA=','35zy20dt',1,0,'',6,0,0),(11910,2719,20,49,0,'87.3.179.200',1145399881,1,0,1,1,1,1,'','','Dapprima volevo usare un dbf ma poi ho pensato che dato che ho gia per ogni immagine un file ascii con le coordinate potrei usare quello e allora ho pensato :\n\n[code:2swydhrv]\nfunction GetImage&#40; oImg, oImg1,aErr &#41;\n   LOCAL gcFile,gcFile, cScelto\n   LOCAL aJPGs &#58;= Directory&#40; &quot;generale/*&#46;jpg&quot; &#41;\n\n       if Len&#40; aJPGs &#41; &gt; 0\n\n         cScelto&#58;=  nRandom&#40; Len&#40; aJPGs &#41; &#41;\n         ?  cScelto\n\n   else\n      MsgAlert&#40; &quot;No JPGs images found!&quot; &#41;\n   endif\n\n\n\n\n\n    //prendo le immagini\n      gcFile&#58;=&quot;generale/&quot;+AllTrim&#40;Str&#40;cScelto&#41;+&quot;_ORI&#46;JPG&quot;\n      gcFile1&#58;=&quot;generale/&quot;+AllTrim&#40;Str&#40;cScelto&#41;+&quot;_MOD&#46;JPG&quot;\n\n      // E LE CARICO\n      oImg&#58;LoadBmp&#40; gcFile&#41;\n      oImg1&#58;LoadBmp&#40; gcFile1&#41;\n\n     // prendo il file\n        cFile &#58;= AllTrim&#40;Str&#40;cScelto&#41;+&quot;&#46;pl&quot;&#41;\n        cData &#58;= MEMOREAD&#40; &quot;generale/&quot;+cFile&#41;\n[/code:2swydhrv]\n\n\n quindi secondo il mio ragionamento tra tutti i file che sono nella cartella generale prendo un file \n\ncarico l\'originale e quello modificato\n\npoi voglio leggere il file ascii corrispondente a quel file xx.pl\n\na questo punto dovrei caricare dentro l\'array i valori delle coordinate degli errori :\n\n[code:2swydhrv]\naAdd&#40; aErr,ALLTRIM&#40;StrToken&#40;cdata,1,&quot;,&quot; &#41;&#41;&#41;\n[/code:2swydhrv]\n\npremesso che ho dichiarato l\'array \n[code:2swydhrv]LOCAL aErr&#58;= &#123;&#125;[/code:2swydhrv]\n\nanche se io so già che sono sempre 5 errori \n\n\npoi ritornando al programma main quando  l\'utente ha la possibilità di cliccare sull\'immagine per segnare la parte errata dell\'immagine :\n\n [code:2swydhrv] oImg&#58;bLClicked = &#123; | nRow, nCol | MyControl&#40;oDlg, oImg, nRow, nCol,oImg1,aErr&#41; &#125;[/code:2swydhrv]\n\n\nil codeblock va a chiamare la mia funzioncina di controllo :\n\n[code:2swydhrv] \n\nFUNCTION MyControl&#40;oDlg, oImg, nRow, nCol,oImg1,aErr&#41;\n\n                   LOCAL cRow &#58;= ALLTRIM&#40;STR&#40;nRow&#41;&#41;\n                   LOCAL cCol &#58;= ALLTRIM&#40;STR&#40;nCol&#41;&#41;\n                   LOCAL cFind &#58;= cCol + &quot;,&quot; + cRow\n\n                     IF aScan&#40; aErr, cFind &#41; # 0\n                         // it\'s in the array!!\n                               // se le coordinate sono uguali\n                                // scrivo i cerchietti\n\n                       DrawCircle&#40; oDlg, oImg, nRow, nCol, 50, CLR_HRED&#41;\n                       DrawCircle&#40; oDlg, oImg1, nRow, nCol, 50, CLR_HGREEN&#41;\n                               ELSE\n\n                         // it\'s not in the array\n                 // Altrimenti levo un po di tempo e suono un rumore strano\n                // avvertendo l\'utente che ha sbagliato\n                       EndIF\n\n\n         RETURN NIL\n[/code:2swydhrv]\n\n\nma purtroppo non funziona ....\ndove sta l\'inghippo ?\n\nil file xx.pl è un normale file ascii per esempio 1.pl contenente:\n\n\n[code:2swydhrv]\n129,342\n39,282\n254,73\n188,108\n107,113\n[/code:2swydhrv]\n\n\nqualche idea ? \nse vuoi posso postare il file','',0,'AIA=','2swydhrv',1,0,'',49,0,0),(11911,2732,6,519,0,'81.39.225.221',1145400693,1,0,1,1,1,0,'','Twbrowse de Hernan','Para cuando la nueva versión 18   ?\n\n\n   un saludo','',0,'AIA=','2anqvnt6',1,0,'',519,0,0),(11912,2711,2,124,0,'200.82.59.198',1145402543,1,0,1,1,1,0,'','','Antonio:\n\nNo entiendo algo: eventos como el \"unload\" que están en VB, VFoxPro, etc cómo se manejan entonces desde FiveWin ya que no los encuentro dentro de los fuentes.\n\nRicardo.-','',0,'AIA=','1depwhg7',1,0,'',124,0,0),(11913,2733,6,49,0,'87.1.182.146',1145403964,1,0,1,1,1,1,'','Play sound ( midi.mp3)','How can I make to play a midi file on a program ?','',0,'AIA=','297dkjk3',1,0,'',49,0,0),(11914,2734,3,34,0,'68.4.154.81',1145404761,1,0,1,1,1,1,'','Window Background','I have a .bmp that I created for a window background.  The problem is that it will tile, and I only want it to be shown once.  \n\nCan we set a background any other way than with a brush ?\n\nTim','',0,'AIA=','2tlpt48p',1,0,'',34,0,0),(11915,2734,3,303,0,'72.199.41.171',1145407368,1,0,1,1,1,0,'','','Tim,\n\nTry this:\n\n     define bitmap oBmp file \"logo.bmp\"\n\n     define window oWnd...;\n      on paint PalBmpDraw( oWnd:oWndClient:hDC, (oWnd:nHeight/2-oBmp:nHeight/2)-50,(oWnd:nWidth/2-oBmp:nWidth/2), oBmp:hBitmap, oBmp:hPalette )\n\nJames','',0,'AIA=','1q931da9',1,0,'',303,0,0),(11916,2735,2,501,0,'200.32.103.82',1145409185,1,0,1,1,1,0,'','Hay algún ComboBox para tablas grandes.','Aparte del que viene con FW o el QComBrow.prg que estuve probando y me tira bastantes errores, estoy tratando de hacer uno y pregunto por las dudas si hay algo hecho.\n\nEl que estoy haciendo funciona a medias y además sería bueno tenerlo como classe y no como valid de un BtnGet, lo unico que tienen de raro y que me resulta comodo es que la definicion de lo que muestro y como lo muestro lo tengo fuera del prg, utilizo una base de datos que tiene definido los campos a mostrar, por ende cada cliente puede tener para el mismo combo una presentacion distinta de los campos a mostrar el largo alineacion titulos etc que de hecho me hace falta para un sistema muy particular.\n\nGracias\nSalu2 desde Argentina.','',0,'AIA=','1ffe4f9f',1,0,'',501,0,0),(11917,2731,3,9,0,'85.54.232.128',1145412156,1,0,1,1,1,1,'','','Not error for me.','',0,'AIA=','3po1v2vu',1,0,'',9,0,0),(11918,2732,6,439,0,'201.221.44.139',1145416750,1,0,1,1,1,1,'','TwBrowse 18','Lo mismo digo,\n\nQue llegue pronto <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> \n\nAbrazo y Saludos','',0,'AIA=','rikh7e47',1,0,'',439,0,0),(11919,2731,3,6,0,'87.16.213.72',1145428257,1,0,1,1,1,1,'','','What FWH build are you using? I\'m using April 2006 build.\n\nEMG','',0,'AIA=','31v5ygh3',1,0,'',6,0,0),(11920,2731,3,6,0,'87.16.213.72',1145428627,1,0,1,1,1,1,'','','And what xHarbour release? I\'m using the latest from CVS. I suspect the problem is there...\n\nEMG','',0,'AIA=','2i389ppc',1,0,'',6,0,0),(11921,2731,3,6,0,'87.16.213.72',1145430116,1,0,1,1,1,1,'','','Ok, I found the problem in xHarbour and just reported it to the xHarbour developers mailing list.\n\n[quote:bsthsx4z]This is the sample. Try to input 1.25 and then press F2 twice. You will get \n1.30 instead of 1.25.\n\n[code:bsthsx4z]#include &quot;Inkey&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL nVar &#58;= 0\n\n    PUBLIC GetList &#58;= &#123;&#125;\n\n    SET CONFIRM ON\n\n    SET KEY K_F2 TO CHANGEPICTURE\n\n    CLS\n\n    @ 10, 10 GET nVar;\n             PICTURE &quot;@EZ 99,999&#46;99&quot;\n\n    READ\n\n    RETURN NIL\n\n\nSTATIC FUNCTION CHANGEPICTURE&#40;&#41;\n\n    IF M -&gt; GetList&#91; 1 &#93;&#58;Picture = &quot;@EZ 99,999&#46;99&quot;\n        M -&gt; GetList&#91; 1 &#93;&#58;Picture = &quot;@EZ 99999&#46;99&quot;\n    ELSE\n        M -&gt; GetList&#91; 1 &#93;&#58;Picture = &quot;@EZ 99,999&#46;99&quot;\n    ENDIF\n\n    RETURN NIL[/code:bsthsx4z][/quote:bsthsx4z]\n\nEMG','',0,'gIA=','bsthsx4z',1,0,'',6,0,0),(11922,2729,2,350,0,'80.32.243.219',1145432056,1,0,1,1,1,0,'','','Hola René, evidentemente se me fué la pinza, son 4 Mb.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gIA=','30rpta8g',1,0,'',350,0,0),(11923,2727,3,372,0,'195.193.90.14',1145433450,1,0,1,1,1,0,'','','It is my experience that in Novell networks sometimes the server keeps files locked, don´t know why. Rebooting the server always works in that case, but of course that´s not a decent solution! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','3d5avkgi',1,0,'',372,0,0),(11924,2723,6,375,0,'84.122.107.208',1145435462,1,0,1,1,1,1,'','','Quizá tengas que averiguar cuales son las secuencias de escape de tu impresora y mandarselas, vía PrinterEsc(), nada más definir el TPRINTER.\n\nIntenta mandar, primero, la secuencia de inicialización. Muchas veces es CHR(27)+\"@\"  o algo así. Después, la de tamaño de pagina. Algo similar a  CHR(27)+CHR(67)+CHR(\'cantidad de líneas\'). En la documentacion de tu impresora debería venir.\n\nAntes de terminar la impresión, deberás recuperar el tamaño de página: CHR(27)+CHR(67)+CHR(\'cantidad original de líneas\'). \n\nPor intentarlo no pierdes nada.','',0,'gIA=','3upxglwt',1,0,'',375,0,0),(11925,2730,6,2,0,'87.218.146.104',1145436455,1,0,1,1,1,1,'','','Vladimir,\n\nTe digo lo mismo que Juan Carlos. Por favor la próxima vez usa <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y pon sólo el link de descarga del fichero con el código. gracias.','',0,'gIA=','134z83v6',1,0,'',2,0,0),(11926,2735,2,2,0,'87.218.146.81',1145440388,1,0,1,1,1,1,'','','Carlos,\n\nPuedes usar un browse ó un DbCombo.','',0,'gIA=','1hx93ppu',1,0,'',2,0,0),(11927,2711,2,2,0,'87.218.146.81',1145440493,1,0,1,1,1,1,'','','Esos eventos no son estandard de Windows, sino implementaciones propias de cada uno de esos lenguajes. \n\nPor ejemplo el equivalente de \"unload\" podria ser el VALID de un diálogo, ó lo que hagas antes de llamar a :End().','',0,'gIA=','2avigspy',1,0,'',2,0,0),(11928,2729,2,2,0,'87.218.146.81',1145441163,1,0,1,1,1,1,'','','Sebastián,\n\nLo más recomendable es pasar la aplicación a 32 bits con FWH. En menos de una semana puedes tenerla funcionando en 32 bits.','',0,'gIA=','qcdk0gm7',1,0,'',2,0,0),(11929,2729,2,350,0,'80.32.243.219',1145443237,1,0,1,1,1,0,'','','Gracias Antonio.\n\nLo de que en una semana lo puedo tener en 32 bits es algo más que optimista. Al menos intentos anteriores me han llevado más tiempo y al final tuve que desistir, espero que esta vez sea la buena, me daría por contento si lo consigo en dos o tres meses.\n\nSaludos','',0,'gIA=','1vttajpm',1,0,'',350,0,0),(11930,2727,3,537,0,'84.92.207.225',1145448709,1,0,1,1,1,0,'','Releasing locked files','Thank you for your response John. There is another, but equally not very practical, way to release locked files, i.e. close off open sessions on the server when logged in with administrator rights ... not a good solution to give to the client though. Surely somebody somewhere must have come across this situation and devised a more practical approach?','',0,'gIA=','39zbhitl',1,0,'',537,0,0),(11931,2715,7,150,0,'62.15.60.66',1145450048,1,0,1,1,1,1,'','','Por lo que he visto hasta ahora desde la pocket hemos de imprimir tipo ms-dos, enviando texto y caracteres de control al puerto COMM (bluetooth o lo que sea).\n\nSeguro que hay (o habrá) un sistema para imprimir en un driver pero yo esto aún no lo he visto en este foro.','',0,'gIA=','2nniqugc',1,0,'',150,0,0),(11932,2736,6,490,0,'80.24.224.89',1145450220,1,0,1,1,1,0,'','Problema TGet y Temas XP','Hola,\n\nLos Tget con temas XP se pintan con un borde azul intenso y ya no se pintan en 3D como antiguamente, pero se me da un caso en el que el TGet no coge el estilo XP. Todo desde código, sin usar WS:\n\n  DEFINE DIALOG oDlg FROM 0,0 TO 200,200 PIXEL TITLE \"Con XP\" ;\n                     OF oWnd TRANSPARENT\n\n  @1, 5 GROUP oG1 TO 150,150 PROMPT \"Group\" TRANSPARENT;\n             PIXEl OF oDlg\n\n  @ 10,10 GET oGet VAR uVar OF ( si pongo oDlg sale en 3D sin temas, si pongo oG1 sale bien con temas)\n\n  Se podría usar OF oG1, pero como existen más controles fuera del groupbox, ya no se puede navegar a través de ellos con flecha, Tab o Return.\n\n\nUn Saludo,\nJoaquín','',0,'gIA=','1qse3t7x',1,0,'',490,0,0),(11933,2714,6,91,0,'213.96.45.9',1145451429,1,0,1,1,1,0,'','','También podemos decir que:\n\nPara eso existe FiveWiDi, para no tener que posicionarlos a mano.\n\nYa que lo he mencionado.\n\nAlguién recuerda que es FiveWiDi? Saben para que sirve?\n\nAlguién quiere continuar el desarrollo?\n\nActualmente la versión es del 2002 y bajo Fivewin 2.1c.\n\nSaludos\nCarlos G.','',0,'gIA=','3613fiko',1,0,'',91,0,0),(11934,2715,7,456,0,'217.127.39.57',1145452543,1,0,1,1,1,1,'','','Como dice Jose, por ahora el tema de imprimir es tipo MS-DOS, enviando las secuencias de escape correspondientes, segun la impresora que usemos. \n\nHe visto que existe algo para imprimir tipo driver, [url:1wczkhqj]http&#58;//www&#46;fieldsoftware&#46;com/PrinterCE&#46;htm[/url:1wczkhqj] , funciona con eVC por tanto supongo q debiera funcionar con harbour. Exite una demo funcional de 60 dias, yo no lo he probado(esta en mi lista de tareas pendientes), ando algo liado ahora mismo, pero no tiene mala pinta.','',0,'EA==','1wczkhqj',1,0,'',456,0,0),(11935,2737,6,215,0,'201.144.63.42',1145453876,1,0,1,1,1,0,'','OT ¿Alguien usa el firewall de Zona Labs?','Buen dia colegas.\nHace algún tiempo tuve instalado el firewall de Zona Labs y funciona de maravilla. Después cambie a Norton Internet Security por que trae todo integrado. Ahora veo en la página\n<!-- m --><a class=\"postlink\" href=\"http://www.zonelabs.com/store/content/home.jsp\">http://www.zonelabs.com/store/content/home.jsp</a><!-- m -->\nque existe una solución integrada tambien.\n\n¿Alguien la tiene instalada?\nMe pueden dar sus comentarios por favor\n\nGracias','',0,'EA==','10r9l594',1,0,'',215,0,0),(11936,2738,7,527,0,'83.49.146.19',1145454950,1,0,1,1,1,0,'','Como puedo crear un fichero de texto','Como puedo crear un fichero de texto dentro de la pokect con unos determinados valores.\n\ngracias.','',0,'EA==','34qjpmse',1,0,'',527,0,0),(11937,2727,3,303,0,'72.199.41.171',1145457033,1,0,1,1,1,0,'','','On Novell there is a timeout period of around 10 minutes. Usually, the files will be unlocked automatically by the OS after that. I also found that if you log back in as the user that has them locked, then out again, the files get unlocked.\n\nOf course, neither of these is good solution, but they are the only ones I found.\n\nJames','',0,'EA==','u346tm58',1,0,'',303,0,0),(11938,2725,6,97,0,'200.23.84.231',1145457437,1,0,1,1,1,1,'','Gracias Leandro me interesa el proyecto','Me gustari colaborar con ustedes para desarrollar ese proyecto, si ustedes lo apruban desde luego.\n\n\n\nsaludos.\nfernando sandoval ruiz','',0,'EA==','311bx866',1,0,'',97,0,0),(11939,2738,7,2,0,'87.218.146.141',1145458846,1,0,1,1,1,1,'','','MemoWrit( &lt;cFileName&gt;, &lt;cText&gt; )','',0,'EA==','2kq1bcus',1,0,'',2,0,0),(11940,2739,3,475,0,'62.77.173.100',1145469997,1,0,1,1,1,0,'','Outlook 2000 &amp; 2003','I am using TOle to read the inbox and I have two problems.\n\nFirstly, oOutLookItem:ReceivedTime returns a date variable only although the VBAOL11.CHM states that it returns both date &amp; time.\n\nSecondly, when setting a variable e.g. cBody := oOutlookItem:body when using 2003 instead of 2000 this causes an alert/warning from Outlook. When I lookup VBAOL11.CHM it refers to \'OnConnection\' where it can be overidden. Has anyone tried this?\n\nAny help or code snippets appreciated.\n\nCheers\nDavid','',0,'EA==','2joxo915',1,0,'',475,0,0),(11941,2735,2,501,0,'200.32.103.201',1145472965,1,0,1,1,1,0,'','Gracias Antonio','pero DbCombo con tablas grandes no me anda, tengo FW 2.1 / Clipper 5.2 y se cuelga  con muchos registros (Algo similar a los errores de los array con muchos elementos en DOS)\n\nSobre el que estoy haciendo es con TsBrowse y anda a medias y encima no es una clase, pero bueno me pondre a leer sobre como construir una CLASSE cosa de que sea mas práctico su uso.\n\nSalu2.','',0,'EA==','1kxbyk4h',1,0,'',501,0,0),(11942,2738,7,527,0,'83.61.181.43',1145475380,1,0,1,1,1,0,'','Lo siento, me he explicado mal','Necesito grabar un fichero de texto con varias lineas. Por otro lado necesito leer ese mismo fichero de datos.\n¿ como puedo realizar estas operaciones ?\ngracias.\n\nOtra pregunta mas por favor, he visto la siguiente instruccion en la ayuda de fwppc, PARA QUE SIRVE\n\noReport ...\n\nCOLUMN ...\n\nCOLUMN ...\n\nEND REPORT\n\nGROUP ON …\n\nGROUP ON …\n\nACTIVATE REPORT oReport ...\n\ne incluso la posibilidad de impresion !!!!!!\n\nGracias','',0,'EA==','25x4bhoy',1,0,'',527,0,0),(11943,2740,6,61,0,'201.217.161.102',1145477483,1,0,1,1,1,0,'','Desplegar browse debajo de un get','Amigos:\n\nTengo un Get nombre y un boton que me muestra los\nnombres en un browse. Como hago para que el browse\nse desplegue debajo del get?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'EA==','355jv74g',1,0,'',61,0,0),(11944,2741,6,471,0,'201.240.58.172',1145479125,1,0,1,1,1,1,'','AUXILIO PROBLEMA CON HP-DETJET 54440 HP INYECCION USB','AMIGOS\n \nTENGO UNA APLICACION A 16 BITS Y CUANDO INTENTO \nIMPRIMIR  CON HP-DETJET 54440 HP INYECCION USB\nSIMPLEMMENTE NO IMPRIME. \n\nCAMBIO A OTRO DRIVER DER OTRA IMPRESORA Y TRABAJA NORMAL\nSOLO ES CON ESTA IMPRESORA EL PROBLEMA\n\n\n\nGRACIAS POR EL SALVAVIDAS','',0,'EA==','2882ylsg',1,0,'',471,0,0),(11945,2730,6,471,0,'201.240.58.172',1145479376,1,0,1,1,1,1,'','','mil disculpas desconocia del procedimiento.\n\nDe todos modos agradeceria si alguien me absuelve la consulta.\n\n\n\nGracias','',0,'EA==','213r94w9',1,0,'',471,0,0),(11946,2740,6,471,0,'201.240.58.172',1145479731,1,0,1,1,1,1,'','','oLBX := TWBrowse():New( oGet:nTop+oGet:nHeigth,oGet:nLeft, 310, 67, bLIne , aHead , aSize  , oDlg,,,,,,,,,0,  16499381,, .F.,, .F.,, .F.,,, )','',0,'EA==','tq7nqjq7',1,0,'',471,0,0),(11947,2714,6,18,0,'200.67.188.236',1145481711,1,0,1,1,1,1,'','','Un problema similar tenía yo con todos los controles al crearlos desde código, resultaba que no siempre la coordenada :\n\n@ 10 , 10 , era la misma para todos los controles.\n\nY había que ajustarlos a mano limpia.\n\nAsí que le hice una pequeñisma modificación a la clase TDialog y ahora ya puedo pintar todos los controles en la coordenadas que yo le indico.\n\n[code:1yv55ti2]\n	 // Vikthor 21-Sep-2005\n   AEVAL&#40; &#58;&#58;aControls, &#123; | o , n | IF&#40; o&#58;ClassName&#40;&#41;==&quot;TIMAGE&quot; &#46;OR&#46; o&#58;ClassName&#40;&#41;==&quot;TBITMAP&quot; , ;\n	                                                o&#58;Move&#40; o&#58;nTop/2 , o&#58;nLeft/2 , 0 , 0 , &#46;T&#46; &#41; , ;\n																									o&#58;Move&#40; o&#58;nTop/2 , o&#58;nLeft/2 , o&#58;nWidth/2 , o&#58;nHeight/2,&#46;T&#46; &#41; &#41; &#125; &#41;\n[/code:1yv55ti2]\n\ny listo el pollo.','',0,'AIA=','1yv55ti2',1,0,'',18,0,0),(11948,2742,3,264,0,'200.91.3.10',1145488442,1,0,1,1,1,0,'','REDEFINE Radio en FOlder','Antonio.\nNos pasa algo raro con esta instruccion sacada de la TESTFOLD.prg\n\n[b:3007pc36]   REDEFINE RADIO nValue ID 110, 120, 130 OF oFld:aDialogs[ 2 ] ;\n      ON CHANGE MSGINFO(\"Hello ?\")[/b:3007pc36]\n\nTenemos varios PRGs que funcionan con una decision luego del click ( o el change ) y en casi todas llama dos veces a la accion señalada.\n\nModica el TestFold.PRG para que revises este comportamiento.\n\nSaludos.','',0,'QA==','3007pc36',1,0,'',264,0,0),(11949,2712,7,428,0,'201.238.249.42',1145489696,1,0,1,1,1,0,'','','Gracias Antonio por tu valiosa Informacion.\n\nTe comento que detecte que el puerto IRDA esta asignado en el COM3 de las Pocket HP Ipaq, por lo tanto pude crear el puerto virtual en mi notebook asignando el canal de IRDA y mediante un pequeno programa en FWPPC, puedo enviar datos con Hyperterminal desde el notebook  y recibirlos con el programa en el Pocket con excelentes resultados.\n\nSaludos\nMiguel','',0,'QA==','3ssl68yz',1,0,'',428,0,0),(11950,2742,3,264,0,'200.91.3.10',1145490932,1,0,1,1,1,0,'','','Solucionamos el problema \"momentaneamente\" haciendo disable() el dialogo mientras se ejecuta la accion del ON CLICK. \nFunciona, pero no creo que sea lo correcto.\n\n[b:bzwvwhgk]   REDEFINE RADIO nValue ID 110, 120, 130 OF oFld:aDialogs[ 2 ] ;\n      ON CHANGE ( oDlg:Disable(), MSGINFO(\"Hello ?\"), oDlg:Enable() )[/b:bzwvwhgk]\n\nEspero tus comentarios.','',0,'QA==','bzwvwhgk',1,0,'',264,0,0),(11951,2743,3,324,0,'212.62.61.22',1145491234,1,0,1,1,1,0,'','GET WITH &quot;ON CHANGE&quot; PROBLEM','We are using:\nxHarbour built 01/24/06\nAll FWH libraries from 03/15/06\n\nWe have GET problem (simplified, it looks like this):\nAt the entering to dialog:\nnSalary := 7,500.00\ncText := \"SOME TEXT\"\n....\nREDEFINE GET oGet1 VAR nSalary ID 101 OF oDlg ;\n	ON CHANGE (cText := \"CHANGED\",oget2:SetText(cText),oget2:refresh()) UPDATE\n	\nREDEFINE GET oget2 VAR cText ID 102 OF oDlg UPDATE\n....\n\nNow, if we click into the oGet1 GET field and just hit enter to continue, \nthe cText becomes \"CHANGED\" and oGet2 is refreshed with this content. \nEven if we DID NOT CHANGE the content of oGet1 VAR nSalary !!\n\nBasicaly what happens is that no mater if the \"nSalary\" variable IS changed or NOT\nafter we leave it by hitting ENTER or TAB, the \"ON CHANGE\" clause evaluates \nas TRUE	and because of this, the rest of code \nis evaluated (changes variable cText to \"CHANGED\") \nand oGet2 GET shows \"CHANGED\" on dialog!\n\nIs there a fix for this, or there is something which was changed either in xHArbour\nor FWH?\n\nThanks for any help or advice','',0,'QA==','3l93hicf',1,0,'',324,0,0),(11952,2744,2,510,0,'200.82.230.113',1145492391,1,0,1,1,1,0,'','get en cajas de dialogos','ESTIMADOS COLEGAS TENGO EL SIGUIENTE INCONVENIENTE\n\n            EN ESTE EJEMPLO:\n\n           REDEFINE COD ID 108 OF CINV ;\n                          VALID ( VE_RPTO( lDevuelve, Cod ), ;\n                                    IIF ( lDevuelve = .T., !Emphy(Cod), Cod == Nil ) )\n\n           me funciona bien, si el cod esta en blanco no avanza, si lo busca en la base de datos existe lo rechza blanqueando para evitar duplicidad de datos. ahora bien cuando lo blanquea y regresa para introducir el cod nuevamente por medio del GET. Si el cod es de 20 caracteres y el dato anterior tenia 9 asi lo blanquee comienza en el caracter 10 y tengo que retroceder de forma manual, como hago para que comienze el GET en el caracter numero 1 automaticamente','',0,'QA==','3dybrrtd',1,0,'',510,0,0),(11953,2740,6,61,0,'201.217.163.10',1145495156,1,0,1,1,1,0,'','','Gracias Vladinir\n\nSaludos\n\nRuben Fernandez','',0,'QA==','3qb3bc3f',1,0,'',61,0,0),(11954,2745,6,215,0,'201.133.72.246',1145498024,1,0,1,1,1,0,'','¿En que control estaba el foco?','Buenas... \nSi le doy click a un botón, supongo que se botón ahora tiene el foco  ¿Cierto?.  Pero, ¿ hay forma de saber quien tenía el foco ?\n\nGracias\nFernando','',0,'QA==','2g34v79c',1,0,'',215,0,0),(11955,2746,4,89,0,'213.21.136.60',1145518296,1,0,1,1,1,0,'','Problem with REDEFINE  BTNBMP','I have this error \nMessage non found TBTNBMP:CTOOLTIP \n\n//----------------------------------------\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oDlg, oFld, cValue ,oB\n   DEFINE DIALOG oDlg NAME \'TestFld\'\n\n     REDEFINE FOLDER oFld ID 800 OF oDlg;\n              PROMPTS \"One\", \"Two\" ;\n              DIALOGS \"sub1\", \"sub2\"\n\n     REDEFINE COMBOBOX cValue ID 100 OF oFld:aDialogs[ 1 ] ;\n        ITEMS { \"Red\", \"Green\", \"Blue\" }\n\n     REDEFINE BUTTON ID 110 OF oFld:aDialogs[ 1 ] ACTION oFld:SetOption(2)\n\n	  REDEFINE BTNBMP oB ID 111 OF  oFld:aDialogs[2] ;\n			RESOURCE   \"users\"\n   ACTIVATE DIALOG oDlg CENTERED ;\n            ON INIT oFld:InitDialogs() // required to initialize the resources dialogs !\n\nreturn nil','',0,'','1sk1ka56',1,0,'',89,0,0),(11956,1808,2,500,0,'80.34.50.127',1145523909,1,0,1,1,1,0,'','','[quote=&quot;devwin2004&quot;:xns5gfg5]Estimados Colegas\n\nPueden descargar  una demo  que contiene un browse para facturacion\ncon tsbrowse (clipper) desde <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->\nal que le interese le puedo enviar los fuentes del modulo de facturacion\n\nGracias\nDEvwin2004[/quote:xns5gfg5]\n\nPodrías enviarme un ejemplo de como haces el diálogo y el browse en la misma caja a mi dirección?  <!-- e --><a href=\"mailto:algafiq@terra.es\">algafiq@terra.es</a><!-- e -->\n\ngracias anticipadas','',0,'gA==','xns5gfg5',1,0,'',500,0,0),(11957,2712,7,2,0,'87.218.146.109',1145526023,1,0,1,1,1,1,'','','Miguel,\n\nbien! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1510nrxq',1,0,'',2,0,0),(11958,2738,7,2,0,'87.218.146.109',1145526803,1,0,1,1,1,1,'','','Manuel,\n\nPuedes grabar varias líneas usando Chr( 13 ) + Chr( 10 ):\n\nlocal cTexto := \"Hola\" + Chr( 13 ) + Chr( 10 ) + \"mundo\" + Chr( 13 ) + Chr( 10 ) + \"Test\"\n\nMemoWrit( \"test.txt\", cTexto )\n\nRespecto a los reportes y a la impresión, los comandos y clases que has visto son para la versión de FiveWin para PC. No están disponibles aún para FiveWin para Pocket PC.','',0,'gA==','2obnx0np',1,0,'',2,0,0),(11959,2746,4,2,0,'87.218.146.109',1145527545,1,0,1,1,1,1,'','','Maurizio,\n\nWe have just published a new FWPPC build that should solve it.','',0,'gA==','15d2ugnz',1,0,'',2,0,0),(11960,2747,6,456,0,'217.127.39.57',1145527703,1,0,1,1,1,1,'','Color de tButton','Hola foro,\n Tengo una pantalla con varios botones de opciones, y desearia cambiar el color del boton que tiene el foco(tanto me da el color del texto o el de fondo). \nHe intentado cambiarlo en  el codeblock de bGotFocus, con SetColor, pero no he conseguido nada.\n\nGracias anticipadas.','',0,'gA==','1n38v67d',1,0,'',456,0,0),(11961,2742,3,2,0,'87.218.146.109',1145528708,1,0,1,1,1,1,'','','Julio,\n\nvamos a revisarlo. \n\nPor favor, usad el foro en Español para mensajes en Español. Gracias.','',0,'gA==','1g0z7jbi',1,0,'',2,0,0),(11962,2227,21,384,0,'201.8.110.31',1145528814,1,0,1,1,1,1,'','','Tente proceder o seguinte:\n\n[b:1i1wm3yq]local lBotao:=.f.[/b:1i1wm3yq]\n\n\nREDEFINE VGET oGetCodCli  VAR CLIENCOD2   ID 4003 PICTURE IF(CADPARAM-&gt;FLAG_CGC_C,\"999999999999\",\"99999\") OF oFol:aDialogs[1] VALID [b:1i1wm3yq]( SitBotao( @lBotao) .and. PESQCLIEN()  )[/b:1i1wm3yq]\n\n\nRedefine BUTTONBMP oBtnSai ID 4029 of oDlg;   BITMAP \"SAIR\";   ACTION[b:1i1wm3yq](lBotao:=.t., lSair:=.t.,ENCERRADLG()) [/b:1i1wm3yq]CANCEL \n\n\n[b:1i1wm3yq]function SitBotao( lBotao )\n\nlocal retorno:=.t.\n\nif lBotao\n        retorno:=.f.\nendif\nlBotao:=.f.\n\nreturn retorno[/b:1i1wm3yq]','',0,'QA==','1i1wm3yq',1,0,'',384,0,0),(11963,2747,6,2,0,'87.218.146.109',1145528992,1,0,1,1,1,1,'','','Biel,\n\nUsa controles TBtnBmp en vez de TButton. A los TButton no les puedes cambiar el color.','',0,'QA==','2c6aeb1v',1,0,'',2,0,0),(11964,2736,6,490,0,'80.24.224.89',1145530133,1,0,1,1,1,0,'','','Antonio,\n\nHe encontrado el problema mucho más simplificado, un diálogo y un get desde código, el get toma el borde azul de XP pero además el efecto 3D antiguo.\n\n\n//----------- Esto se ve mal, en 3D como en antiguos windows ------------\n//---------------------------------------------------------------------------------\nDEFINE DIALOG oDlg FROM 0,0 TO 200,200 PIXEL TITLE \"Con XP\" OF oWnd TRANSPARENT \n\nACTIVATE DIALOG oDlg ON INIT CreaGet(oDlg)\n\nFunction CreaGet(oDlg)\n  Local  uVar := Date()\n  @ 20,20 GET oGet VAR uVar SIZE 100,24 PIXEL OF oDlg\n  \nReturn Nil\n\n//----------- \n\n\n//----------- Esto se ve bien en XP, pero las medidas no son pixeles sino\n//---- unidades de diálogo, por lo cual no me sirve ------------------------\nLocal  uVar := Date()\n\nDEFINE DIALOG oDlg FROM 0,0 TO 200,200 PIXEL TITLE \"Con XP\" OF oWnd TRANSPARENT \n\n\n@ 20,20 GET oGet VAR uVar SIZE 100,24 PIXEL OF oDlg\n\n\nACTIVATE DIALOG oDlg\n//----------- \n\n¿ Cual es la solución? ¿Pintar desde código en pixeles y que los Gets se vean estilo moderno XP ?\n\n\nUn Saludo,\nJoaquín','',0,'QA==','32tnxt52',1,0,'',490,0,0),(11965,2736,6,2,0,'87.218.146.11',1145530328,1,0,1,1,1,1,'','','Joaquín,\n\nNo uses la claúsula TRANSPARENT. Solo debe usarse si se va a usar un brush con bitmap de fondo.','',0,'QA==','2ths6lim',1,0,'',2,0,0),(11966,1808,2,77,0,'217.126.90.142',1145530757,1,0,1,1,1,0,'','','[quote=&quot;devwin2004&quot;:3909459h]Estimados Colegas\n\nPueden descargar  una demo  que contiene un browse para facturacion\ncon tsbrowse (clipper) desde <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->\nal que le interese le puedo enviar los fuentes del modulo de facturacion\n\nGracias\nDEvwin2004[/quote:3909459h]\n\nhola podrias enviarme los fuentes a mi email: \n\n<!-- e --><a href=\"mailto:francesport@telefonica.net\">francesport@telefonica.net</a><!-- e -->\n\ngracias.','',0,'gA==','3909459h',1,0,'',77,0,0),(11967,2736,6,490,0,'80.24.224.89',1145531684,1,0,1,1,1,0,'','','Antonio,\n\nComprobado, con o sin clausula TRANSPARENT, se pintan mal los TGet\'s.\n\nUn Saludo,\nJoaquín','',0,'gA==','3qa2nffz',1,0,'',490,0,0),(11968,2748,3,266,0,'60.50.61.75',1145534153,1,0,1,1,1,1,'','visual report designer','Hi,\n\nIn response to Julian\'s mail, I make an VisualFoxpro exe to be called from Fivewin, for visual report design, it supports dbf/cdx only.\n\nJust edit report.dbf &amp; reportdb.dbf will do, refer to readme.txt\n\nI upload it to :-\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01dc58db72/report.zip.html\">http://hyperupload.com/download/01dc58d ... t.zip.html</a><!-- m -->\n\nrequire VFP7 runtimes dll (roaylty free distributed) :-\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/022a635381/vfp7.zip.html\">http://hyperupload.com/download/022a635 ... 7.zip.html</a><!-- m -->','',0,'gA==','1wmv06l9',1,0,'',266,0,0),(11969,2749,3,313,0,'82.88.53.27',1145536381,1,0,1,1,1,0,'','txbrowse problem','I have some problems with txbrowse, when I insert, modify or delete a record, refresh don\'t work correctly...also forcing the refresh...\nMoreover when I use incremental seek the header desappear...\nKindly someone can help me?\nThanks\n\nI use FiveWin 2.7 - xHarbour - dbf database - ntx index','',0,'gA==','1x207o7k',1,0,'',313,0,0),(11970,2742,3,264,0,'200.91.3.10',1145536910,1,0,1,1,1,0,'','','Oops, i will.','',0,'gA==','1rob6bxm',1,0,'',264,0,0),(11971,2750,7,262,0,'83.97.168.75',1145538249,1,0,1,1,1,1,'','nueva propiedad para folders','Antonio, Seria muy interesante el poder poner las pestañas de los folders en la parte de abajo ( lo he visto en varios programas para pocket) .\nEn las pantallas de 240*240 , ganariamos espacio para poder escribir datos y eso es importante .\ny de paso otra cosa :\nEsta previsto automatizar los dialogos para que cambien de tamaño al desplegar el teclado , o corre de nuestra cuenta ? \nSaludso. y Gracias .','',0,'gA==','2ss5rf7a',1,0,'',262,0,0),(11972,2746,4,89,0,'213.21.136.60',1145540467,1,0,1,1,1,0,'','','Hello Antonio\n\nnow is ok , but ther are other problem  .\n\nThe proprite RESNAME, FONT, PROMPT ecc. dont work .\n\nMaurizio','',0,'gA==','pjelv9yg',1,0,'',89,0,0),(11973,2751,6,203,0,'200.107.2.18',1145540786,1,0,1,1,1,1,'','TSBROWSE Y ARREGLOS','Hola a todos\n\nUtilizo tsbrowse con arreglos para facturar, en la columna de donde despliago la descripción del producto  es no editable y a pesar de eso cuando presiono enter se edita no asi dando click con el mouse\n\nComo puedo corregir esto \n\nGracias de antemano\n\n\nSaludos\n\n\nOscar','',0,'gA==','2xnndrx0',1,0,'',203,0,0),(11974,2744,2,248,0,'212.145.179.68',1145541308,1,0,1,1,1,0,'','get en cajas de dialogos','Prueba con algo asi:\nREDFINE OCOD VAR COD ID 108 OD CINV;\n......\nPONER AL PRINCIPIO\nCOD:=SPACE(20),OCOD:SETPOS(1),OCOD:REFRESH()','',0,'gA==','1582cmno',1,0,'',248,0,0),(11975,2750,7,449,0,'212.64.224.241',1145541953,1,0,1,1,1,1,'','','Hola Jose Luis,\n\nDespues de mucho tiempo sin vacaciones, me he podido oxigenar un poco y vuelvo con ganas. (No quiero dar envidias a nadie, eh !  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> )\n\nTe paso un ejemplo que hice un dia que te servira de base para gestionar el teclado. A partir de aqui, lo puedes sofisticar tanto como quieras. Para no poner todo el rollo que uso yo, este ejemplo creo q te servira:\n\n[code:oobuj04v]\n/*\n   Programa    &#58;= TestSip&#46;prg\n   Autor       &#58;= Carles Aubia\n   Fecha       &#58;= 02&#46;03&#46;2006\n   Descripcion &#58;= Ejemplo sencillo de gestion de eventos\n*/\n\n#include &quot;FWCE&#46;ch&quot;\n\n#define EVENT_SIP      224\n\nSTATIC oDlg\n\n*--------------\nFUNCTION Main&#40;&#41;\n*--------------\n\n   DEFINE DIALOG oDlg TITLE &quot;Test Sip&#40;&#41;&quot;\n\n       @2, 2 SAY \'Hola maco&#46;&#46;&#46;\' OF oDlg\n\n       oDlg&#58;bSettingChange &#58;= &#123;|uVal| PocketEvent&#40; uVal &#41; &#125;\n\n   ACTIVATE DIALOG oDlg ON INIT Dimensiona&#40;&#41;\n\nRETU NIL\n\n*----------------------------------\nSTATIC FUNCTION PocketEvent&#40; uVal &#41;\n*----------------------------------\n\n   DO CASE\n      CASE uVal == EVENT_SIP ; Dimensiona&#40;&#41;\n   ENDCASE\n\nRETU NIL\n\n*---------------------------\nSTATIC FUNCTION Dimensiona&#40;&#41;\n*---------------------------\n\n    IF SipInfo&#40;&#41;\n        MoveWindow&#40; oDlg&#58;hWnd, 28, 10, 220, 180 &#41;\n       ELSE\n        MoveWindow&#40; oDlg&#58;hWnd, 28, 10, 220, 260 &#41;\n    ENDIF\n\n    oDlg&#58;Refresh&#40;&#41;\n\nRETU NIL\n[/code:oobuj04v]','',0,'AIA=','oobuj04v',1,0,'',449,0,0),(11976,2738,7,527,0,'88.11.4.198',1145542003,1,0,1,1,1,0,'','Y como puedo leer este fichero posteriormente.','Y como puedo leer este fichero posteriormente.\nGracias.','',0,'AIA=','305w66da',1,0,'',527,0,0),(11977,2738,7,449,0,'212.64.224.241',1145542068,1,0,1,1,1,1,'','','Manuel,\n\nMsgInfo( MemoRead( \'test.txt\' ) )','',0,'AIA=','32jhwbs5',1,0,'',449,0,0),(11978,2738,7,527,0,'88.11.4.198',1145542209,1,0,1,1,1,0,'','OK, pero si quiero leer linea a linea','OK, pero si quiero leer linea a linea','',0,'AIA=','2cw9ke9u',1,0,'',527,0,0),(11979,2752,6,305,0,'201.230.82.82',1145542737,1,0,1,1,1,0,'','Problema con Escape en folder','Tengo un problema que aparece solo al compilar con FWH (2.7) y xHb (0995).  En mi aplicacion con Clipper 5.3b funciona normal:\n\nTengo un Dialogo con un folder de 2 pestañas, en la primera pestaña tengo un browse, en la que defino que al presionar la tecla escape, se cierre el dialogo.   Todo normal en Clipper, pero con xHb no se cierra el dialogo.  Les paso una porcion del codigo para ver si alguien me puede explicar que puede estar pasando?\n\n[code:2gqvlncw]\n    DEFINE DIALOG oDlg RESOURCE &quot;Regvent&quot; FONT oFont ;\n           TITLE &quot;Registro de Ventas&quot; OF oWndMain&#58;oWndclient\n\n    REDEFINE FOLDER oFld ID 5000 OF oDlg     ;\n      PROMPT &#40;&quot;Relacion de Comprobantes&quot;,&quot;Detalle del Comprobante&quot;&#41; ;\n      DIALOGS &quot;regvent0&quot;,&quot;regvent1&quot;\n  \n    &#46;&#46;&#46;&#46;&#46;&#46;\n\n    REDEFINE BROWSE oBrwVenta GRID ;\n           ID 301 OF oFld&#58;aDialogs&#91;1&#93; ALIAS &quot;REGV&quot;\n\n    ADD COLUMN TO oBrwVenta ;\n        DATA REGV-&gt;CODVEN ;\n        HEAD \'#Operac\' SIZE 65\n     &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\n\n    oBrwVenta&#58;bKeyDown  &#58;= &#123; | nKey | CaptKey1&#40;nKey, oBrwVenta&#41; &#125;\n\n  &#46;&#46;&#46;&#46;\n\n       ACTIVATE DIALOG oDlg \n\nreturn nil\n\nStatic Function CaptKey1&#40;nKey, oBrw&#41;\nlocal nRegistro, InsArchivo, wCuenta\n\nDO CASE\n   CASE nKey == VK_INSERT\n        zIsNuevo &#58;= &#46;T&#46;\n        oFld&#58;SetOption&#40;2&#41;\n   CASE nKey==VK_RETURN\n        zIsNuevo &#58;= &#46;F&#46;\n        oFld&#58;SetOption&#40;2&#41;\n   CASE nKey==VK_ESCAPE\n        tone&#40;500,1&#41;  // esto si se ejecuta\n        oBrw&#58;oWnd&#58;End&#40;&#41;  //  &lt;-------------esto no se ejecuta \nENDCASE\nReturn NIL\n\n\n[/code:2gqvlncw]\n\nAgradezco su ayuda\n\nRalph','',0,'AIA=','2gqvlncw',1,0,'',305,0,0),(11980,2738,7,449,0,'212.64.224.241',1145543614,1,0,1,1,1,1,'','','Hola, \n\nNo he probado las funciones de bajo nivel de gestion de ficheros, pero en principio algo asi tyendria de funcionar.\n\n[code:1rve0fhb]\n   nLineas &#58;= MLCOUNT&#40; x &#41;\n\n   FOR nI &#58;= 1 TO nLineas\n        msginfo&#40; MEMOLINE&#40; x, , nI &#41; &#41;\n   NEXT\n[/code:1rve0fhb]\n\nClipper/Harbour puro !','',0,'AIA=','1rve0fhb',1,0,'',449,0,0),(11981,2750,7,262,0,'87.235.159.190',1145545557,1,0,1,1,1,1,'','','Que tal Carles ? , yo he tomado unos dias tambien ,   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nHabía visto este comportamiento ya  en tu programa ( cuando lo estuve desmenuzando para ver todas las cosas buenas que llevaba   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  ) , y fué cuando se me ocurrió la idea de copiarte , por eso la pregunta de si lo debemos implementar nosotros .\nHe mirado , y algunos lenguajes para pocket traen este Extra \"De serie\"\ny pense ¿ Porque nosotros vamos a ser menos... ? \nAntonio ? , esta previsto ? \nDe todas maneras muchas gracias por el ejemplo , lo miraré y lo implementaré en mis programas a ver que tal .\nSaludso.y Gracias.','',0,'AIA=','1wilty91',1,0,'',262,0,0),(11982,2752,6,215,0,'201.154.237.133',1145545802,1,0,1,1,1,0,'','Re: Problema con Escape en folder','Ralph,\n\nprueba a pasar el oDlg a la función:\n\noBrwVenta:bKeyDown  := { | nKey | CaptKey1(nKey, oBrwVenta, oDlg) } \n\n\n\nCASE nKey==VK_ESCAPE \n        tone(500,1)  // esto si se ejecuta \n        //oBrw:oWnd:End() \n       oDlg:End()','',0,'AIA=','3sbbckwi',1,0,'',215,0,0),(11983,2747,6,456,0,'217.127.39.57',1145545958,1,0,1,1,1,1,'','','Gracias Antonio,\n con TBtnBmp consigo el efecto que deseaba.','',0,'AIA=','1b3zywi9',1,0,'',456,0,0),(11984,2752,6,305,0,'201.230.82.82',1145545991,1,0,1,1,1,0,'','','Probando encontre que si sustituyo \n        oBrw:oWnd:End()\n\ncon esta linea:\n        oBrw:oWnd:oWnd:oWnd:End()\n\nya se cierra el dialogo.    Pero creo que mejor paso el oDlg como parametro.  Gracias por tu respuesta.\n\nRalph','',0,'AIA=','1jypumry',1,0,'',305,0,0),(11985,2745,6,215,0,'201.154.237.133',1145546285,1,0,1,1,1,0,'','Se puede con bLostFocus','Por si a alguien le sirve.\n\nstatic nFoco := 0\n\n\n   REDEFINE GET aGets[5]  VAR aCampos[5]  ID 105 OF oFld:aDialogs[1] UPDATE PICTURE \"@9\" ;  // IdenNumero\n\nEn cada get actualizar nFoco\n\n   aGets[5]:BLostFocus :={|| nFoco := 5 }\n\ndonde nFoco es una static que guarda el número de get. Después en el botón para avanzar al siguiente registro..\n\n   REDEFINE BUTTON aBtns[2] ID 502 OF oDlg CANCEL ;  // Adelante\n            ACTION ( Adelante( aGets, @aCampos, aSays ) )\n\n\nstatic function Adelante( aGets, aCampos, aSays )\n    EMPLEADO-&gt;( dbskip() )\n.... leo los datos, los asigno a aCampos, regresco los gets y al final de mi función...\n\n   aGets[nFoco]:setfocus()\n\n   Asi es como regreso el foco a la misma posición donde estaba antes de dar click al botón.\n\nreturn nil\n\n\nDesde luego, tiene un defecto. Si ustéd usa un color de fondo en el Get... este ya no funcionará por que estamos usando justamente  BLostFocus.\nPara eso hay que tocar el TGet.prg pero me ocuparé de eso más al rato.','',0,'','19qwws7n',1,0,'',215,0,0),(11986,2675,3,455,0,'195.97.105.161',1145546740,1,0,1,1,1,0,'','Re: OT: Happy Easter','[quote=&quot;Otto&quot;:3tzpvu90]A Very Happy Easter to All from \n\nOtto[/quote:3tzpvu90]\n\nHappy Easter to all Orthodox Christians\nEvans','',0,'gA==','3tzpvu90',1,0,'',455,0,0),(11987,1808,2,228,0,'201.245.232.184',1145548164,1,0,1,1,1,1,'','Amigo si me las puedes enviar te lo agradeceria.','Amigo si me las puedes enviar tambien, te lo agradeceria.\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->','',0,'gA==','11bf2hf4',1,0,'',228,0,0),(11988,2746,4,2,0,'87.218.146.78',1145549973,1,0,1,1,1,1,'','','Maurizio,\n\nPlease provide a sample to reproduce the error. Thanks,','',0,'gA==','1g151d71',1,0,'',2,0,0),(11989,2749,3,2,0,'87.218.146.78',1145550079,1,0,1,1,1,1,'','','Could you please provide a small and self contained sample to reproduce the problem ? Thanks,','',0,'gA==','1q4amrzm',1,0,'',2,0,0),(11990,2750,7,2,0,'87.218.146.78',1145550425,1,0,1,1,1,1,'','','Carles,\n\nBuen ejemplo, lo vamos a incluir en los ejemplos de FWPPC con tu permiso, gracias.\n\nJose Luis, nosotros no podemos automatizar ese comportamiento, porque puede haber usuarios que no quieran que sus diálogos se redimensionen sólos.','',0,'gA==','1uzbyvlp',1,0,'',2,0,0),(11991,2749,3,313,0,'82.88.53.27',1145550876,1,0,1,1,1,0,'','','Dear Antonio,\ndo you want a little exe with the database or only the .prg file??\nI will send you it tomorrow...by mail??\nThanks \nRegards','',0,'gA==','1dbwyqt3',1,0,'',313,0,0),(11992,2753,20,532,0,'84.222.125.17',1145551920,1,0,1,1,1,0,'','Alcune domande.','Ciao a tutti.\n\nPremetto che ho \"scoperto\" Fivewin da un mese.\n\"Quindi l\'ignoranza è molta!\"\n\n\n1. In fase di stampa, è possibile dopo il PREVIEW, la stampa su carta,\n    salvare la stampa su un file .Doc? \n    Se possibile qual\'è il comando?\n\n2. Sempre in fase di stampa, vorrei sostituire la scritta \"EURO\" col\n    il simbolo dell\'euro, usando Alt+128 mi viene questo carattere Ç,\n    Cosa si può fare?\n\n3. Vorrei passare a FWH, per adesso solo a scopo di studio,  cosa mi        serve?  E\' possibile provare una demo?  Dove la posso scaricare?\n\nGrazie per eventuali risposte.\n\nMarco.\n\nCavour (To).','',0,'gA==','2sip64zr',1,0,'',532,0,0),(11993,2753,20,6,0,'82.57.162.230',1145552431,1,0,1,1,1,1,'','Re: Alcune domande.','[quote=&quot;ik1mtt&quot;:26ibv3fj]1. In fase di stampa, è possibile dopo il PREVIEW, la stampa su carta,\n    salvare la stampa su un file .Doc?[/quote:26ibv3fj]\n\nNo. Il pilotaggio di Word lo devi fare tramite OLE.\n\n[quote=&quot;ik1mtt&quot;:26ibv3fj]2. Sempre in fase di stampa, vorrei sostituire la scritta \"EURO\" col\n    il simbolo dell\'euro, usando Alt+128 mi viene questo carattere Ç,\n    Cosa si può fare?[/quote:26ibv3fj]\n\nAnche se nell\'editor vedi Ç poi in stampa dovresti vedere il carattere corretto. Se è così dipende dal fatto che usi un editor per DOS.\n\n[quote=&quot;ik1mtt&quot;:26ibv3fj]3. Vorrei passare a FWH, per adesso solo a scopo di studio,  cosa mi        serve?  E\' possibile provare una demo?  Dove la posso scaricare?[/quote:26ibv3fj]\n\nNo, non ci sono demo di FWH.\n\nEMG','',0,'gA==','26ibv3fj',1,0,'',6,0,0),(11994,2668,3,29,0,'81.174.24.57',1145552731,1,0,1,1,1,0,'','','&gt;P.S. How many Win95/3.11 customers do you have? \n\nI don\'t support Win3.11 anymore but 40-50 customers (on about 5000) still have a Win 95 OS.\n\nI spoke with a Win95 customer just today and all runs fine after I removed these functions. \n\nI will try now to make my company the leader as Win95 software supplier <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n\nBest Regards.\n\nMarco Turco','',0,'gA==','2htc6q7v',1,0,'',29,0,0),(11995,2750,7,262,0,'87.235.159.190',1145553360,1,0,1,1,1,1,'','','De acuerdo .\nDe todas maneras se podria poner una propiedad lautoajust para poner si se desea o no \n\nCarles , si el say esta fuera del area visible , realiza scroll ? , seria interesante ...\n\nAntonio , respecto a la primera pregunta , (los folder con pestañas abajo), que nos puedes decir ?','',0,'gA==','2d8y5zrg',1,0,'',262,0,0),(11996,2747,6,9,0,'85.54.232.128',1145553551,1,0,1,1,1,1,'','','No veo en BTNBMP la claúsula COLORS.-  ¿Como se puede cambiar el color entonces?.','',0,'gA==','t376p5m6',1,0,'',9,0,0),(11997,2747,6,228,0,'201.245.234.101',1145553932,1,0,1,1,1,1,'','QUIERO SABER COMO LO HACES','Ami tambien me gustaria saber como lo haces...','',0,'gA==','1x2p9oi8',1,0,'',228,0,0),(11998,2754,6,9,0,'85.54.232.128',1145553933,1,0,1,1,1,1,'','FWH y config.nt','Utilizando una aplicación con xHarbour +  FWH sigue siendo necesario indicar en en el fichero config.nt  FILE=XXX ?  ó solo es necesario en aplicaciones a 16 bits?','',0,'gA==','3vqhqqil',1,0,'',9,0,0),(11999,2755,17,2,0,'87.218.146.78',1145554220,1,0,1,1,1,1,'','Bar codes 128C y 2-5, códigos de barras','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02647baf63/bcode128.ttf.html\">http://hyperupload.com/download/02647ba ... 8.ttf.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0231e4f341/i2of5nt.ttf.html\">http://hyperupload.com/download/0231e4f ... t.ttf.html</a><!-- m -->','',0,'gA==','1l4bkb6j',1,0,'',2,0,0),(12000,2750,7,2,0,'87.218.146.78',1145554290,1,0,1,1,1,1,'','','Jose Luis,\n\nHay que buscar el estilo correspondiente e implementar un método que le asigne ese valor al estilo. Vamos a buscarlo.','',0,'gA==','14s0rnxe',1,0,'',2,0,0),(12001,2754,6,2,0,'87.218.146.78',1145554387,1,0,1,1,1,1,'','','Manuel,\n\nNo es necesario.','',0,'gA==','1rrb8ww3',1,0,'',2,0,0),(12002,2745,6,490,0,'80.24.224.89',1145555378,1,0,1,1,1,0,'','','Fernando,\n\nSi no me equivoco, creo que se puede hacer mucho más fácil.\n\nSi tienes un botón oBtn1 que al hacer click quieres saber el control que tenía el foco, sería:\n\n\n  oBtn1:bGotFocus := { | oBtn1, hAnteriorControl| Mifunc(hAnteriorControl ) }\n\n\nFunction Mifunc(hAnteriorControl )\n\n  haces lo que quieras\n  ......\n \n // Te posicionas en el que estabas antes del click \n SetFocus( hAnteriorControl )\n\nReturn Nil\n\n\nUn Saludo y ya me cuentas si te funciona,\nJoaquín','',0,'gA==','1tnabc5n',1,0,'',490,0,0),(12003,2745,6,490,0,'80.24.224.89',1145555600,1,0,1,1,1,0,'','','Perdón,\n\nEse ejemplo es cada vez que coja el foco el Botón, al hacer click sería:\n\n\noBtn1:bGotFocus := { | oBtn1, hAnteriorControl| oBtn1:cargo :=hAnteriorControl } \n\nY el la función del click:\n\nSetFocus( oBtn1:cargo )\n\nUn Saludo y así están las 2 posibilidades,\nJoaquín','',0,'gA==','1bbeci4j',1,0,'',490,0,0),(12004,2743,3,455,0,'195.97.105.161',1145557129,1,0,1,1,1,0,'','Re: GET WITH &quot;ON CHANGE&quot; PROBLEM','[quote=&quot;Boris&quot;:15qqilg7]...\nBasicaly what happens is that no mater if the \"nSalary\" variable IS changed or NOT\nafter we leave it by hitting ENTER or TAB, the \"ON CHANGE\" clause evaluates \nas TRUE	and because of this, the rest of code \nis evaluated (changes variable cText to \"CHANGED\") \nand oGet2 GET shows \"CHANGED\" on dialog!\n\nIs there a fix for this, or there is something which was changed either in xHArbour\nor FWH?\n\nThanks for any help or advice[/quote:15qqilg7]\n\nBoris,\nI do not expect any response, due to the fact that it\'s too hard to find out why this is happening.\nI have solved the problem, and have sent you an updated TGET.PRG though your private email.\n\nIf any one cares to know how I solved it, then here\'s a brief description....\nIn Method KeyChar of TGET.PRG, I evaluate the code blocks for ON CHANGE, only if the original content of the variable is changed.\nI use:\n IF (::oGet:changed .or. ::oGet:unTransform() &lt;&gt; ::oGet:original)\n    lAccept = Eval( ::bChange, nKey, nFlags, Self )\n   ...\n ENDIF\n\nThis IF-ENDIF has been added in both \n   case nKey == VK_TAB .and. GetKeyState( VK_SHIFT )\nand in\n   case nKey == VK_TAB .or. nKey == VK_RETURN\n\nRegards to all and Happy Easter to the Orthodox Christians.\n\nEvans Bartzokas\n\nps. Yes, we create a PDF from inside our modified RPREVIEW.PRG, and  Yes, we e-mail this PDF as an attachment.\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','15qqilg7',1,0,'',455,0,0),(12005,2685,3,455,0,'195.97.105.161',1145558345,1,0,1,1,1,0,'','Re: seek and string searching','[quote=&quot;Ehab Samir Aziz&quot;:qqfe19b4]I can not find seek works probably with strings !!\n\n[code:qqfe19b4]\n   if MsgGet&#40; &quot;Search&quot;, &quot;Customer Appreviation&quot;, @V_CU_appr,;\n              &quot;&#46;&#46;\\bitmaps\\lupa&#46;bmp&quot; &#41;\n      select 1\n      use cust\n      set index to cust10\n      if ! DbSeek&#40; alltrim&#40;upper&#40;V_CU_Appr &#41;&#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that customer&quot; &#41;\n         GO nRecNo\n      else\n         oLbx&#58;UpStable&#40;&#41;           // Corrects same page stabilizing Bug\n         oLbx&#58;Refresh&#40;&#41;            // Repaint the ListBox\n      endif\n   endif\n\n[/code:qqfe19b4][/quote:qqfe19b4]\n\nMy best guess is that you are searching for a string using an index which is of some different key value.\n\nYou may try to insert a line for debugging, for example:\nMSGINFO(IndexKey()) right after  the line  set index to cust10\nand see if the primary key of the index is of how you want it to be.\n(In my opinion, the primary key must be the Customer Code, and your current index is probably based on the Customer Name).\n\nPlease let me know if you solved your problem.\n\nKind regards\nEvans Bartzokas','',0,'gIA=','qqfe19b4',1,0,'',455,0,0),(12006,2697,6,2,0,'87.218.146.78',1145558974,1,0,1,1,1,1,'','','Raymundo,\n\nComprueba si en source\\classes\\rpreview.prg tienes estas líneas:\n[code:68cq5nb9]\n     if IsAppThemed&#40;&#41;\n        FixSays&#40; oBar&#58;hWnd &#41;\n     endif   \n[/code:68cq5nb9]','',0,'AIA=','68cq5nb9',1,0,'',2,0,0),(12007,2743,3,2,0,'87.218.146.78',1145559456,1,0,1,1,1,1,'','','Boris,\n\nAs Evans has pointed, this may be the required fix in Class TGet:\n[code:35ezdmjj]\n      case nKey == VK_TAB &#46;or&#46; nKey == VK_RETURN\n           if &#58;&#58;bChange != nil &#46;and&#46; &#40; &#58;&#58;oGet&#58;Changed &#46;or&#46; &#58;&#58;oGet&#58;UnTransform&#40;&#41; != &#58;&#58;oGet&#58;Original &#41;\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; lAccept\n                 &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n              endif\n           else\n              &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n           endif\n[/code:35ezdmjj]','',0,'AIA=','35ezdmjj',1,0,'',2,0,0),(12008,2756,6,37,0,'201.240.130.191',1145566383,1,0,1,1,1,0,'','Error al escribir con TsBrowse version 7 y 7.1','Saludos, un gran favor, alguien me puede indicar porque al escribir en un Tsbrowse no salen bien las letras, hay algo que arreglar, en este JPG he guardado la imagen :\n<!-- w --><a class=\"postlink\" href=\"http://www.consorcioinformatico.com/tsbrowse-error1.jpg\">www.consorcioinformatico.com/tsbrowse-error1.jpg</a><!-- w -->\nMuchas gracias por su apoyo.\n\nEnrrique Vertiz Pitta\n\nWinXP, xHarbour 0.99.6, FWH 2.7, SQLLIB 1.2c','',0,'AIA=','2orfniud',1,0,'',37,0,0),(12009,2757,3,213,0,'72.177.228.25',1145567464,1,0,1,1,1,0,'','FWH &amp; ActiveX','All,\n\nI\'m trying to use ActiveX with Mappoint and get the following error:\n\n Error description: Error MapPoint.Control/16389  E_FAIL: NEWMAP\n   Args:\n     [   1] = N   1\n\nHow can I debug this?  The following is my code:\n\nDEFINE WINDOW oWndMap OF oWnd ;\n      FROM 0,0 TO 0,0  ;\n      MDICHILD             ;\n      MENU MapMenu(oWndMap) ;\n      TITLE \"Map Point\"\n\n      oMapPoint = TActiveX():New( oWndMap, \"MapPoint.Control\" ) \n\n      oWndMap:oClient = oMapPoint // To fill the entire window surface\n\n      // Get an error here!\n      oMapPoint:NewMap(1)\n \n   ACTIVATE WINDOW oWndMap  ;\n        ON INIT ( oWndMap:Move(0,0,640,390,.t.) ) ;\n        ON PAINT oWndMap:SetFocus()               ;\n        VALID ( oMapPoint:Close(), .T. )              \n\nUsing FWH March 2006 and xBuilder latest version.  I removed ole.obj from fivehc.lib per the whatsnew instructions.  What am I doing wrong?\n\nThanks,\nRandal Ferguson','',0,'','4mo5gayt',1,0,'',213,0,0),(12010,2747,6,54,0,'201.137.108.73',1145567548,1,0,1,1,1,1,'','Re: QUIERO SABER COMO LO HACES','[quote=&quot;leandro&quot;:ddul6lfj]Ami tambien me gustaria saber como lo haces...[/quote:ddul6lfj]\n\nAmigo,\n\nREDEFINE BTNBMP oBtn ID 101 OF oDlg\n oBtn:nClrPane  = RGB(250,150,250)\n\nAhi\'ta.','',0,'gA==','ddul6lfj',1,0,'',54,0,0),(12011,2745,6,215,0,'201.144.103.1',1145567760,1,0,1,1,1,0,'','Gracias Joaquin','Joaquin,\neliminé lo que había hecho y lo deje asi:\n\n\n   REDEFINE BUTTON aBtns[2] ID 502 OF oDlg CANCEL ;  // Adelante\n            ACTION ( Adelante( aGets, @aCampos, aSays ) )\n\n            aBtns[2]:bGotFocus := { | oBtn, oFld| oBtn:cargo := oFld }\n\nSiempre será mejor una linea a poner una por cada get como yo lo tenía.\nDentro de la función coloco.\n\nstatic function Adelante( aGets, aCampos, aSays )\n... bla, bla, ..\n\n   SetFocus( aBtns[2]:cargo )\n\nreturn nil\n\nGracias, quedo más legible y me ha ahorrado mucho código.','',0,'','dr0ysovk',1,0,'',215,0,0),(12012,2757,3,255,0,'200.67.175.250',1145567899,1,0,1,1,1,1,'','','You must try :\n\n\noMapPoint:Do( \"NewMap\", 1 )','',0,'','1aaf3gq5',1,0,'',255,0,0),(12013,2758,6,228,0,'190.24.65.90',1145567995,1,0,1,1,1,1,'','Colocar un Combobox dentro de un browse?','amigos del foro buenas tardes.. como dice el encabezado.\n\nSe puede colocar un combobox dentro de on browse?... \n\nDe nuevo gracias','',0,'','35it2tgp',1,0,'',228,0,0),(12014,2745,6,490,0,'81.44.199.194',1145569543,1,0,1,1,1,0,'','','Fernando,\n\nme alegro que te haya funcionado, yo no lo había probado.\n\nPero, creo que te ha quedado un concepto erróneo:\n\n   aBtns[2]:bGotFocus := { | oBtn, oFld| oBtn:cargo := oFld } \n\n\n  oFld creo entender que te ha parecido es el objeto que tuvo el foco, pero es que no es un objeto, es el Handle de un objeto. Normalmente es la data hWnd de cualquier control en Fwh. Así que, sólo esa apreciación, para que no intentes hacer con el handle lo que se hace con un objeto.\n\nUn Saludo,\nJoaquín','',0,'','txjzwdda',1,0,'',490,0,0),(12015,2758,6,439,0,'190.0.132.134',1145587274,1,0,1,1,1,1,'','','Leandro,\n\nSi es posible.\n\nPuedes hacerlo con TSBrowse (lo encontrarás en utilidades).\n\nTambién puedes lograr algo parecido con la clase TXBrowse, valiéndote de un botón y de otras maneras, los campos lógicos se presentan como combobox, en fin puedes consultar la documentación que viene para ambas clases, una está en el manual de Fivewin  (fivewin_es) para el caso de TXbrowse y tienes ejemplo en fwh\\samples\\testxbrw.prg y la otra está en los documento txt y el directorio \\doc en el zip que podrás bajar del foro \"Utilities/Utilidades\"\n\nPara el caso de TSBrowse, encontrarás en el zip varios ejemplos donde fijarte.\n\nEspero que te haya ayudado, adelante!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nFWH es lo mejor que me ha pasado!!','',0,'','3j4ri7m5',1,0,'',439,0,0),(12016,2759,6,511,0,'201.248.66.187',1145588108,1,0,1,0,1,0,'','TCBrowse dentro de un Folder','Saludos al Foro,\n\nTengo problemas con modulo que funciona bien en fw/blinker pero en fwh no!, es un dialogo que contiene un folder con varias pestañas y en una de ellas tiene un browse (TCBrowse) y arroja el mensaje \"cannot create dialog fivewin/3\", quito el browse y funciona ok, he probado con FOLDER32, \"SysTabControl32\", \"Tcbrowse.ch\" y mas pero no hay manera. ¿alguien ha tenido un problema como este?\n\nGracias por la atencion','',0,'','2my80h79',1,0,'',511,0,0),(12017,2747,6,9,0,'85.54.232.128',1145597095,1,0,1,1,1,1,'','','William\n\nMuchas gracias','',0,'','6gwclftm',1,0,'',9,0,0),(12018,2746,4,89,0,'213.21.136.60',1145602119,1,0,1,1,1,0,'','','Now I solve\nThank','',0,'','2wmq2qit',1,0,'',89,0,0),(12019,2760,4,89,0,'213.21.136.60',1145602657,1,0,1,1,1,0,'','Browse with lCellStyle and Setcolor','Hello Antonio\n\nThere are problem with SetColor and lCellStyle , the row focused is \nalways black and white \n\nMaurizio\n\n\n#include \"FWCE.ch\"\nREQUEST DBFCDX\n//----------------------------------------------------------------------------//\nfunction Main()\n\n   local oWnd, oBrw, hBmp := ReadBitmap( CurDir() + \"\\go.bmp\" )\n\n   USE ( CurDir() + \"\\Customer\" ) VIA \"DBFCDX\"\n   DEFINE WINDOW oWnd TITLE \"Tutor10\"\n   @ 1, 1 LISTBOX oBrw ;\n      FIELDS hBmp, Customer-&gt;Last, Customer-&gt;First,Customer-&gt;City ;\n	   SIZES 15,65,65 ,65 ;\n      HEADERS \"\", \"Last\", \"First\" ;\n      SIZE 280, 190\n\n      oBrw:lCellStyle := .t.\n      oBrw:SetColor(  CLR_HRED,CLR_YELLOW )\n\n   @ 12, 2 BUTTON \"Done\" SIZE 80, 30 ;\n      ACTION oWnd:End()\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo( \"Click!\" )\n\nreturn nil\n//----------------------------------------------------------------------------//','',0,'','329uhtzw',1,0,'',89,0,0),(12020,2750,7,449,0,'212.64.224.241',1145602833,1,0,1,1,1,1,'','','Jose Luis,\n\nYo creo q tendriamos de hacer una reflexion sobre el tipo de aplicacion q hacemos. En principio, es de tipo gestion, y entraremos bastantes datos via teclado. Esto implica q nuestra pantalla la \'capamos\' constantemente. A partir de aqui, q preferimos: Un sistema con scroll y buscar los datos para editar o mas bien un acceso rapido \'clicando\' una solapa de un folder, un boton a otra pantalla, otra pagina.... Yo creo q este, segundo ejemplo es mas practico para el usuario.\n\nAhora este tipo de control de redimensionar, puede irnos bien por ejemplo en otros casos, por ejemplo un browse con un get de busqueda, en el q el browse se redimensiona cuando se activa el teclado, pero en el que el get siempre lo tenemos visible, no hace falta que lo busquemos. \n\n[img][url=http&#58;//imageshack&#46;us:2sguvs67][img]http://img159.imageshack.us/img159/778/dim1wl.jpg[/img][/url:2sguvs67]\n\nNo se, algo genérico, lo veo complicado. Ahora recuerdo q Antonio puso un dia un ejemplo de ventana con scroll. Se podria probar, pero yo prefiero mas la opcion de que los datos me vengan a mi y no que yo tenga de ir a los datos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','2sguvs67',1,0,'',449,0,0),(12021,2747,6,456,0,'217.127.39.57',1145604649,1,0,1,1,1,1,'','','oBtnBmp:SetColor( nClrText, nClrPane )\n\no tal cual dice el amigo William.','',0,'GA==','177xde6l',1,0,'',456,0,0),(12022,2761,3,148,0,'82.201.235.220',1145612204,1,0,1,1,1,0,'','Dialogs with Txbrowse','The dimesions of dialog with txbrowse do not fit with the buttons.\n[code:45w08gkq]\n//------------------------------------------------------------------\nSTATIC FUNCTION mete&#40; oWnd &#41;\n*--------------------------\n   local oChild, oBrw\n   Local oDlgn, oDbfc, oBrwc\n\n   local nRecNo  &#58;= RecNo&#40;&#41;\n   local new_rec  &#58;= 0\n   local oGet\n   local i&#58;=0\n   local oCombo1&#58;= Space&#40; 10 &#41;\n   local oCombo2&#58;= Space&#40; 8 &#41;\n   local oCombo3&#58;= Space&#40; 6 &#41;\n   local oCombo4&#58;= Space&#40; 20 &#41;\n   local oCombo5&#58;= Space&#40; 8 &#41;\n   local V_MC_serial&#58;= Space&#40; 7 &#41;\n\n   local nFor\n   local bFilter &#58;= &quot;&quot;\n   local cFilter &#58;= &quot;&quot;\n   local x &#58;= &quot;&quot;\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n\n\n\n*x &#58;= &quot;\'9855564\'&quot; \n*cFilter &#58;= &quot;me_mc_serl = &quot;+ x \n*bFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n\n\nSELECT 4\nuse mete index mete2\nGO TOP\n\n\nDEFINE DIALOG oDlgn  FROM 1,1 TO 30,120 TITLE &quot;Dialog Meter Works&quot; \n\n\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlgn &#41;\n\n   *oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n   if nFor=20\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n\n\n\n\n   @ 9,   1 BUTTON &quot;&amp;New&quot;    OF oDlgn SIZE 40, 12 //ACTION Editmach&#40; oLbx, &#46;t&#46; &#41;\n   @ 9,  8 BUTTON &quot;&amp;Modify&quot; OF oDlgn SIZE 40, 12  //ACTION Editmach&#40; oLbx, &#46;f&#46; &#41; \n   @ 9, 15 BUTTON &quot;&amp;Delete&quot; OF oDlgn  SIZE 40, 12  //ACTION Delrecord&#40; oLbx &#41;\n   @ 9, 22 BUTTON &quot;&amp;Search&quot; OF oDlgn SIZE 40, 12 //ACTION Seekmach&#40; oLbx &#41; \n   @ 9, 29 BUTTON &quot;&amp;Print&quot;  OF oDlgn ;\n      SIZE 40, 12;\n      ACTION oBrw&#58;Report&#40; &quot;Machines Report&quot;, &#46;t&#46; &#41; ;  // &#46;t&#46; --&gt; wants preview\n\n\n   @ 9, 36 BUTTON &quot;&amp;Exit&quot;   OF oDlgn ACTION oDlgn&#58;End&#40;&#41; SIZE 40, 12\n\n   @ 10,  1 BUTTON &quot;&amp;Order&quot;    OF oDlgn SIZE 40, 12 //ACTION ordermach&#40;oLbx&#41; \n   @ 10,  8 BUTTON &quot;&amp;Filter&quot;    OF oDlgn SIZE 40, 12 //ACTION metefilter&#40;oLbx&#41; \n   @ 10,  15 BUTTON &quot;&amp;Unfilter&quot; OF oDlgn SIZE 40, 12 //ACTION filtermachNotOk&#40;oLbx&#41; \n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oDlgn&#58;oClient &#58;= oBrw\n\n\n\n   ACTIVATE DIALOG oDlgn \n\nRETURN NIL\n[/code:45w08gkq]\n\n[img]\n[/img]','',0,'AIA=','45w08gkq',1,0,'',148,0,0),(12023,2750,7,262,0,'87.235.159.190',1145614385,1,0,1,1,1,1,'','','Totalmente de acuerdo, mejor los folders.\n\nRespecto al ejemplo de scroll ,usa un say para simular el scroll , es una cosa momentanea , no definitiva , esta dentro de los pendientes de Antonio , dejemosle que nos sorprenda , pero sin prisas  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\nEl ejemplo esta en una ventana , yo intente el ejemplo en un dialogo , y no funciono , la verdad que fue un intento rapido y no investige demasiado (tenia mas trabajo ) y de todas las maneras soy muy torpe...\nsaludos.','',0,'AIA=','164n1eed',1,0,'',262,0,0),(12024,2757,3,2,0,'87.218.146.78',1145615852,1,0,1,1,1,1,'','','Randal,\n\nPlease replace xHB ActiveX.lib with this one:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d7a0b619/ActiveX.lib.html\">http://hyperupload.com/download/02d7a0b ... X.lib.html</a><!-- m -->\n\nand do as Juan Carlos has told you.','',0,'AIA=','grp2xt33',1,0,'',2,0,0),(12025,2761,3,2,0,'87.218.146.78',1145615987,1,0,1,1,1,1,'','','Ehab,\n\nYou can not do this: \n\noDlgn:oClient := oBrw\n\nbecause then you are giving all the client area to the browse. Use oBrw:SetSize( nWidth, nHeight )','',0,'AIA=','2wsbqn0w',1,0,'',2,0,0),(12026,2759,6,2,0,'87.218.146.78',1145616262,1,0,1,1,1,1,'','','Alvaro,\n\nNo tendrás algún control de Borland  en el RC ?\n\nSi quieres pon tu RC en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w -->, indica aqui el link de descarga y lo revisamos.','',0,'AIA=','37pmchr5',1,0,'',2,0,0),(12027,2762,6,488,0,'217.127.135.134',1145616510,1,0,1,1,1,0,'','CURSOS DE FIVEWIN AVANZADOS Y DE FWPPC','Hola amigos.\nTodavia quedan plazas para los proximos cursos avanzados de Fivewin del proximo mes de mayo.\nAdemas hemos añadido un interesantisimo curso de FWPPC.\nTeneis toda la informacion como siempre en nuestra WEB\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://www.geroa-informatica.com/fivewi ... o-2006.htm</a><!-- m -->\n\nSaludos','',0,'AIA=','1s9rqyz9',1,0,'',488,0,0),(12028,2763,7,488,0,'217.127.135.134',1145616559,1,0,1,1,1,0,'','Curso de FWPPC en MAyo','Hola amigos.\nTodavia quedan plazas para los proximos cursos avanzados de Fivewin del proximo mes de mayo.\nAdemas hemos añadido un interesantisimo curso de FWPPC.\nTeneis toda la informacion como siempre en nuestra WEB\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://www.geroa-informatica.com/fivewi ... o-2006.htm</a><!-- m -->\n\nSaludos','',0,'AIA=','2fq4fge0',1,0,'',488,0,0),(12029,2764,6,52,0,'200.127.195.89',1145620593,1,0,1,1,1,1,'','Auto Ejecutar app.','Estimados,\n\nSi quiero que una applicacion cuando presione un boton se cierre y vuelva a ejecutarse ( por ejemplo para tomar nuevos parámetros ) como debo hacer?','',0,'AIA=','14unrqyu',1,0,'',52,0,0),(12030,2765,17,439,0,'190.0.133.123',1145621928,1,0,1,1,1,1,'','Clase TXLS - Genera planillas excel ver 2.1','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029ac77980/TXLS.zip.html\">http://hyperupload.com/download/029ac77 ... S.zip.html</a><!-- m -->\n\nEsta clase genera planillas excel sin necesidad de dicho programa en el equipo, es parecida a FileXls y funciona para Harbour y xHarbour.\nDentro de la clase hay un ejemplo contenido que pueden probar.\nen el zip va un xbuild.bat que compila la clase en xHarbour.\n\nFue probada y funcionó perfectamente con FWH2.7 Marzo 2006 Harbour y xHarbour 0.99.60\n\nSaludos a todos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1v46co83',1,0,'',439,0,0),(12031,2766,6,196,0,'201.250.104.60',1145623244,1,0,1,1,1,0,'','Saber si la aplicacion ya esta corriendo','Hoal a todos.\n\nEstoy tratando de determinar si mi aplicacion ya esta corriendo y utilizo la funcion GetTasks(), pero noto que siempre detecta una sola vez la aplicacion a pesar de que la ejecuto varias veces.\n\nDesde ya, muchas gracias.\nJorge Jaurena\n\np.d. Si alguien sabe como hacer para que funcione el SET DEFAULT TO cuando uso ADS local, me haria un gran favor.','',0,'AIA=','1nmobjlx',1,0,'',196,0,0),(12032,2767,4,538,0,'81.120.59.34',1145624974,1,0,1,1,1,0,'','FTP on Pocket PC','I have translate my application with FWPPC. Thanks!. FWPPC is a really good application!. It only take somes hours and this is the first time that I use fivewin.\nNow I have to ftp data from the smartphone (Vodafone v1640) to a ftp server. How I have to operate ? \nOn XP I use wininet.dll but I think this is not working on Win Mobile.\nI await your idea.\nThanks a lot.','',0,'AIA=','ek7vvb8h',1,0,'',538,0,0),(12033,2757,3,213,0,'72.177.228.25',1145626300,1,0,1,1,1,0,'','','Antonio,\n\nI replaced ActiveX.lib now I get a linker error:\n\nxLINK: error: Unresolved external symbol \'??2@YAPAXI@Z\'.\n\nxLINK: error: Unresolved external symbol \'??3@YAXPAX@Z\'.\n\nxLINK: fatal error: 2 unresolved external(s).\n\nI\'m using xBuilder w/xcc.  \n\nThanks,\nRandal Ferguson','',0,'AIA=','2fwe24pw',1,0,'',213,0,0),(12034,2768,6,237,0,'200.68.70.89',1145627240,1,0,1,1,1,0,'','Error con el debugger','Antonio:\n\nAl compilar con /B cualquier prg me da siempre este error:\n\nApplication\n===========\n   Path and name: P:\\FWH\\SAMPLES\\TESTMSG3.EXE (32 bits)\n   Size: 1,471,488 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04/21/06, 10:45:23\n   Error description: Error BASE/1131  Bound error: array dimension\n   Args:\n     [   1] = N   -8\n\nStack Calls\n===========\n   Called from:  =&gt; ARRAY(0)\n   Called from: tbrowse.prg =&gt; TDATACACHE:NEW(212)\n   Called from: tbrowse.prg =&gt; TBROWSE:NEW(743)\n   Called from: tbrowse.prg =&gt; TBROWSENEW(3371)\n   Called from: debugger.prg =&gt; TDEBUGGER:BUILDBROWSESTACK(471)\n   Called from: debugger.prg =&gt; TDEBUGGER:NEW(399)\n   Called from: debugger.prg =&gt; __DBGENTRY(152)\n   Called from: testmsg3.prg =&gt; MAIN(37)\n\nMuchos salu2 y gracias!','',0,'','2p8rdyd7',1,0,'',237,0,0),(12035,2764,6,292,0,'200.82.146.6',1145628915,1,0,1,1,1,1,'','','Gustavo,\n\nPrueba creando un nuevo exe que llame a tu aplicacion.\nAl cerrar el exe1 llame al exe2 y el exe2 llame al exe1','',0,'','3iuejqzg',1,0,'',292,0,0),(12036,2766,6,63,0,'80.37.102.128',1145629994,1,0,1,1,1,0,'','','Yo lo hago así:\n\nIF IsExeRunning(cFileName(HB_ARGV(0)))\n   MsgInfo(\"Aplicación en marcha\")\nENDIF\n\nSaludos,\nRafael','',0,'','2jlls57l',1,0,'',63,0,0),(12037,2203,17,242,0,'81.45.227.110',1145633571,1,0,1,1,1,0,'','Diálogo con sombra.','Hola, he estado probando el código que publicabas en el mensaje pero no logro ver la sombra, si bien estoy siguiendo tus indicaciones. ¿Tiene que ver la versión de Fivewin que se utilice?\n\nUn saludo,\nFernando','',0,'','3uxgs1a9',1,0,'',242,0,0),(12038,2764,6,52,0,'200.127.195.89',1145633677,1,0,1,1,1,1,'','','Estimado,\n\nLo ideal seria que el mismo programa se auto-recargue.','',0,'','2jwanrrg',1,0,'',52,0,0),(12039,2745,6,215,0,'201.133.72.61',1145637004,1,0,1,1,1,0,'','Gracias','Joaquin,\nGracias por la aclaración.','',0,'','38bkgsks',1,0,'',215,0,0),(12040,2669,6,215,0,'201.133.72.61',1145637539,1,0,1,1,1,0,'','Gracias, funciona muy bien en código.','¿Cómo lo pinto en el Workshop?\n\nhe intentando solo arrastrarlo y compactarlo hasta dejarlo vertical pero el meter sigue apareciendo en horizontal.\n\nEsto fué lo que hice:\n\n1) Cambiar mi fivewin.ch por el nuevo fivewin.ch\n\n2) Recompilar el tprogres.prg y agregar el obj resultante a mi compilación\n\n3) Editar mi archivo RC y al principio agregar #define PBS_VERTICAL 4\n\nEntonces en el PRG para usarlo hago \n\n      REDEFINE PROGRESS oProgress ID 331 OF oDlg VERTICAL\n\nAl compilar me aparece un\nwarning W0001  Ambiguous reference: \'VERTICAL\' \n\nPregunta. ¿En que la he regado?\n\n\n\nGracias','',0,'','362ue7xc',1,0,'',215,0,0),(12041,2767,4,6,0,'87.3.184.70',1145637577,1,0,1,1,1,1,'','Re: FTP on Pocket PC','This is a sample:\n\n[code:mgccj3bs]#include &quot;Fwce&#46;ch&quot;\n\n\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hInternet, hConnect\n\n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INTERNETCONNECT&#40; hInternet, &quot;Your ftp address&quot;, INTERNET_INVALID_PORT_NUMBER, &quot;userid&quot;, &quot;password&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n//    ? FTPGETFILE&#40; hConnect, &quot;Your remote file&quot;, &quot;Your local file&quot;, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n\n    ? FTPPUTFILE&#40; hConnect, &quot;Your local file&quot;, &quot;Your remote file&quot;, 0, 0 &#41;\n\n    INTERNETCLOSEHANDLE&#40; hConnect &#41;\n\n    INTERNETCLOSEHANDLE&#40; hInternet &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\n\nHB_FUNC&#40; INTERNETOPEN &#41;\n&#123;\n    LPWSTR cAgent = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;;\n    LPWSTR cProxyName = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n    LPWSTR cProxyBypass = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;;\n\n    HINTERNET hInternet = InternetOpen&#40; cAgent, hb_parnl&#40; 2 &#41;, cProxyName, cProxyBypass, hb_parnl&#40; 5 &#41; &#41;;\n\n    hb_xfree&#40; cAgent &#41;;\n    hb_xfree&#40; cProxyName &#41;;\n    hb_xfree&#40; cProxyBypass &#41;;\n\n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41;\n&#123;\n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCONNECT &#41;\n&#123;\n    LPWSTR cServerName = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n    LPWSTR cUserName = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;;\n    LPWSTR cPassword = AnsiToWide&#40; hb_parc&#40; 5 &#41; &#41;;\n\n    HINTERNET hInternet = InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cServerName, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, cUserName, cPassword, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41;;\n\n    hb_xfree&#40; cServerName &#41;;\n    hb_xfree&#40; cUserName &#41;;\n    hb_xfree&#40; cPassword &#41;;\n\n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPGETFILE &#41;\n&#123;\n    LPWSTR cRemoteFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n    LPWSTR cNewFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n\n    hb_retl&#40; FtpGetFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cRemoteFile, cNewFile, hb_parl&#40; 4 &#41;, hb_parnl&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41; &#41; &#41;;\n\n    hb_xfree&#40; cRemoteFile &#41;;\n    hb_xfree&#40; cNewFile &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPPUTFILE &#41;\n&#123;\n    LPWSTR cLocalFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n    LPWSTR cNewRemoteFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n\n    hb_retl&#40; FtpPutFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cLocalFile, cNewRemoteFile, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n\n    hb_xfree&#40; cLocalFile &#41;;\n    hb_xfree&#40; cNewRemoteFile &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:mgccj3bs]','',0,'AIA=','mgccj3bs',1,0,'',6,0,0),(12042,2765,17,2,0,'87.218.146.58',1145638379,1,0,1,1,1,1,'','','José,\n\nMuchas gracias!','',0,'AIA=','1gjr2tnj',1,0,'',2,0,0),(12043,2736,6,490,0,'80.24.224.89',1145638509,1,0,1,1,1,0,'','','Antonio,\n\n¿ Está en mi mano algún método para solucionarlo?\n\nUn Saludo,\nJoaquín','',0,'AIA=','1z13hjvu',1,0,'',490,0,0),(12044,2767,4,2,0,'87.218.146.58',1145638613,1,0,1,1,1,1,'','','Enrico,\n\nMany thanks for your sample. We include it in FWPPC samples if you don\'t mind it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','uv84tq36',1,0,'',2,0,0),(12045,2757,3,213,0,'72.177.228.25',1145638626,1,0,1,1,1,0,'','','Antonio,\n\nIs the problem link problem because Fwh+ActiveX does not work with xBuilder/Xcc?\n\nThanks,\nRandal Ferguson','',0,'AIA=','1sb4mvot',1,0,'',213,0,0),(12046,2757,3,2,0,'87.218.146.58',1145638743,1,0,1,1,1,1,'','','Randal,\n\nWe email you the FWH libs with a little recent change we implemented.\n\nFwh+ActiveX properly works with xBuilder/Xcc <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','30aro7d3',1,0,'',2,0,0),(12047,2669,6,215,0,'201.133.72.61',1145638782,1,0,1,1,1,0,'','Ya funciona en recursos','Solo había que darle doble click al control en el Workshop y agregar en\nstyle   | PBS_VERTICAL\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','b1yjn62t',1,0,'',215,0,0),(12048,2769,6,9,0,'85.54.232.128',1145639048,1,0,1,1,1,1,'','COLOR EN SAY NO FUNCIONA EN XP-THEME','En un folder tengo:\n\n  @ 87,180 SAY oSay18 VAR oDbf:TOTAL  OF oFol:aDialogs[1] ;\n                PICTURE (cPic9) UPDATE  ;\n                PIXEL SIZE 50,10 COLORS AZUL, AMARILLO  RIGHT BORDER\n\n\nEn apariencia \"Windows clásico\" funciona perfectamente. Aparece un\ncuadro con fondo amarillo y el texto en azul. Pero cuando cambio la\napariencia a Windows-XP, aparece el cuadro con un fondo gris oscuro y las letras en azul. Es decir, no toma correctamente el color del fondo. Sea cual sea el color que le ponga (negro, rojo, etc) siempre me aparece el fondo un poco mas oscuro (el clásico gris de la ventana no folder).\n¿Alguna idea?','',0,'','3gu8lzyd',1,0,'',9,0,0),(12049,2770,3,299,0,'69.65.86.182',1145639135,1,0,1,0,1,0,'','ActiveX with eN-Touch 1000','Hi.\n\nI need help interfacing to a signature capture device.  The device has an lcd where you can display text using an activex component and another activex to capture a signature.  My objective is to display contract information and then gather someone\'s signature.  Store the form and the signature for later printing.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ingenico-us.com/products/pdfs/tch1000.pdf\">http://www.ingenico-us.com/products/pdfs/tch1000.pdf</a><!-- m -->\n\nI simply have no idea how to get started on this.  I can email all the documentation and ocxs.  Can someone help?\n\nThank you,\n\n\nReinaldo Crespo-Bazán.','',0,'','mhys6d3f',1,0,'',299,0,0),(12050,2769,6,2,0,'87.218.146.58',1145639220,1,0,1,1,1,1,'','','Manuel,\n\nDesde la claúsula ON INIT de tu diálogo principal haz esto:\n\nFixSays( oFol:aDialogs[1]:hWnd )','',0,'','2ee93dul',1,0,'',2,0,0),(12051,2768,6,2,0,'87.218.146.58',1145639341,1,0,1,1,1,1,'','','Parece un error de harbour/xharbour. Usas xharbour ?','',0,'','3bl4ie5o',1,0,'',2,0,0),(12052,2768,6,237,0,'200.68.70.89',1145640051,1,0,1,1,1,0,'','error','Usé xharbour, el proporcionado por fivetech.\n\nSi quisiera usar xharbour del cvs, tendría que recompilar la lib fivehx ?\nExiste algún .mak preparado para ello?\n\nMuchos salu2!','',0,'','3v8zd67m',1,0,'',237,0,0),(12053,2769,6,9,0,'85.54.232.128',1145640760,1,0,1,1,1,1,'','','Antonio,\n\nNo funciona. Además, al poner está claúsula y cambiar la apariencia a \"Windows Clásico\", entonces tampoco se ve.','',0,'','1q916yp0',1,0,'',9,0,0),(12055,2765,17,439,0,'190.0.135.66',1145641324,1,0,1,1,1,1,'','La Clase TXLS','Creo que he omitido un importante dato, esta clase es software libre, podemos usarla libremente y su autor manifiesta que la única condición para tenerla es compartirla, cosa que he hecho por este foro, pero omití decir (aunque figura en el source de la clase) que su autor es  Santiago Pérez y tiene modificaciones posteriores de Miguel Angel Cortés Marchant.','',0,'','349g7ylv',1,0,'',439,0,0),(12056,2771,19,141,0,'200.88.94.228',1145641753,1,0,1,1,1,1,'','Antiguas News de FW','Hola (creo que para Antonio es esto),\n\nQuisiera saber si es posible accesar a las antiguas News de FW que existian antes de este foro, pues es una \"base de conocimiento\" muy amplio, que me gustaría consultar.\n\nMuchas veces, he realizado una consulta - en el pasado - que me fue contestada en esas news, pero ya no tengo mas acceso, o lo estoy haciendo de manera incorrecta.\n\nLa ultima vez intenté accesando a una IP fija 80.32.22.38, pero ya no me da mas acceso....\n\nE\n¿Está en otro sitio?  ¿Me podrían dar la dirección?\n\nGracias anticipadas,\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','7kwg3uzh',1,0,'',141,0,0),(12057,2736,6,9,0,'85.54.232.128',1145642627,1,0,1,1,1,1,'','','Antonio,\n\nA mi me ocurre lo mismo. No sólo se pierde el efecto 3D en los Get, sino tambien en los folders.','',0,'','2ak38b58',1,0,'',9,0,0),(12058,2767,4,6,0,'87.3.184.70',1145643695,1,0,1,1,1,1,'','','Sure!\n\nEMG','',0,'','r6roi30x',1,0,'',6,0,0),(12059,2736,6,2,0,'87.218.146.58',1145643949,1,0,1,1,1,1,'','','Vamos a revisarlo,','',0,'','2dv5v04k',1,0,'',2,0,0),(12060,2768,6,2,0,'87.218.146.58',1145644099,1,0,1,1,1,1,'','','El que nosotros proporcionamos es el del CVS, muy reciente. No, no tendrías que recompilar la libreria.\n\nLo idóneo es que reportes ese error en las news de xharbour ya que se trata de un problema de xharbour. FWH se limita a usar el debugger estandard de Harbour/xharbour. Gracias.','',0,'','3o6x41x5',1,0,'',2,0,0),(12061,2771,19,2,0,'87.218.146.58',1145644256,1,0,1,1,1,1,'','','Julio,\n\nYa no están accesibles. Yannis nos hizo el favor de pasarlas a DBFs, con lo que podríamos alojar las DBFs en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y permitir su descarga para quien quiera consultarlas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3e892xhz',1,0,'',2,0,0),(12062,2767,4,538,0,'151.42.87.53',1145644278,1,0,1,1,1,0,'','Grazie per l\'aiuto ma ho un problema....','ho inserito il tuo codice ma quando linko il programma ho questi errori:\n---------------------------------------\nmenu.obj : error LNK2001: unresolved external symbol \"void __cdecl \nHB_FUN_FTPSETCURRENTDIRECTORY(void)\" (?HB_FUN_FTPSETCURRENTDIRECTORY@@YAXXZ)\nmenu.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_INETCONNECT(void)\" (?HB_FUN_INETCONNECT@@YAXXZ)\nmenu.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_INETOPEN(void)\" (?HB_FUN_INETOPEN@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol InternetOpenW referenced in function \"void __cdecl HB_FUN_INTERNETOPEN(void)\" (?HB_FUN_INTERNETOPEN@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol InternetCloseHandle referenced in function \"void __cdecl HB_FUN_INTERNETCLOSEHANDLE(void)\" (?HB_FUN_INTERNETCLOSEHANDLE@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol InternetConnectW referenced in function \"void __cdecl HB_FUN_INTERNETCONNECT(void)\" (?HB_FUN_INTERNETCONNECT@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol FtpGetFileW referenced in function \"void __cdecl HB_FUN_FTPGETFILE(void)\" (?HB_FUN_FTPGETFILE@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol FtpPutFileW referenced in function \"void __cdecl HB_FUN_FTPPUTFILE(void)\" (?HB_FUN_FTPPUTFILE@@YAXXZ)\nmenu.exe : fatal error LNK1120: 8 unresolved externals\n-----------------------------\nDove ho sbagliato ?\nGrazie Ciao','',0,'','f6nko2gr',1,0,'',538,0,0),(12063,2767,4,6,0,'87.3.184.70',1145644691,1,0,1,1,1,1,'','Re: Grazie per l\'aiuto ma ho un problema....','menu.obj : error LNK2001: unresolved external symbol \"void __cdecl \nHB_FUN_FTPSETCURRENTDIRECTORY(void)\"\n\nThe above (and other) is not from my sample.\n\nEMG','',0,'','2tvethqe',1,0,'',6,0,0),(12064,2767,4,538,0,'151.44.136.27',1145646356,1,0,1,1,1,0,'','Sorry. I mixed from 2 source','this is the result with your code:\nmenu.obj : error LNK2019: unresolved external symbol InternetOpenW referenced in function \"void __cdecl HB_FUN_INTERNETOPEN(void)\" (?HB_FUN_INTERNETOPEN@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol InternetCloseHandle referenced in function \"void __cdecl HB_FUN_INTERNETCLOSEHANDLE(void)\" (?HB_FUN_INTERNETCLOSEHANDLE@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol InternetConnectW referenced in function \"void __cdecl HB_FUN_INTERNETCONNECT(void)\" (?HB_FUN_INTERNETCONNECT@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol FtpGetFileW referenced in function \"void __cdecl HB_FUN_FTPGETFILE(void)\" (?HB_FUN_FTPGETFILE@@YAXXZ)\nmenu.obj : error LNK2019: unresolved external symbol FtpPutFileW referenced in function \"void __cdecl HB_FUN_FTPPUTFILE(void)\" (?HB_FUN_FTPPUTFILE@@YAXXZ)\nmenu.exe : fatal error LNK1120: 5 unresolved externals\n-------------------\nWhere I failed.\nThanks\nAlfredo','',0,'','1imh53l6',1,0,'',538,0,0),(12065,2767,4,6,0,'87.3.184.70',1145647906,1,0,1,1,1,1,'','Re: Sorry. I mixed from 2 source','You have to link wininet.lib.\n\nEMG','',0,'','2d5y4nn2',1,0,'',6,0,0),(12066,2767,4,538,0,'151.42.84.108',1145648063,1,0,1,1,1,0,'','missing wininet.lib in buildce.bat','I found my error. no wininet.lib declared in buildce.bat.\nStop for this evening. link is ok tomorrow I will test to transfer data.\nCiao.\nAlfredo','',0,'','2ylaejq0',1,0,'',538,0,0),(12067,2772,6,295,0,'201.246.202.181',1145648776,1,0,1,1,1,1,'','Limitación de accesos a un sistema','Amigos,\n\nNecesito definir perfiles de acceso por usuario a mi App (denegado, solo ver y no modificar , y total )..\n\n¿Existe algun recurso en FWH para esto?\n\nSALUDOS\nxHabrazos','',0,'','2rq6e9ld',1,0,'',295,0,0),(12068,2770,3,255,0,'200.67.175.250',1145651520,1,0,1,1,1,1,'','','You can send me the info if you want and i will check it\nthis weekend.\n\ni\'ve work with many OCX, so maybe i can help you.\n\nRegards.\n\n\n<!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->','',0,'','30gw45wr',1,0,'',255,0,0),(12069,2773,7,527,0,'83.37.160.94',1145652171,1,0,1,1,1,0,'','Problema con mas de una instruccion en una sola linea','Tengo el siguiente codigo\n        IF RECC() &gt; 0\n           GO TOP\n           DEFINE DIALOG  oDlg  TITLE \'Clientes encontrados\' FROM 1,1 TO 16, 30\n           @  0,0 LISTBOX oBrw  FIELDS nombrec COLSIZES 155  HEADERS \"Nombre comercial\" SIZE 116,114 UPDATE OF odlg ON DBLCLICK IIF(estado&lt;&gt;-2,ver_ficha(oWnd,\"CLIENTE\",puntero,\"rescli\"),vv[3]=rescli-&gt;codigo)\n           ACTIVATE DIALOG oDlg CENTERED\n        ELSE\n           MSGINFO(\"No existen datos con los filtros seleccionados\",\"Gestion\")\n        ENDIF\n\nNecesito que cuando hagan el doble click, asignar a una variable un valor, pero al mismo tiempo necesito refrescar esta variable y posteriormente cerrar esta ventana, como puedo encadenar todos estos comandos en la instruccion anterior.\n\nGracias.','',0,'','2vdohbmy',1,0,'',527,0,0),(12070,2770,3,299,0,'69.65.86.182',1145652253,1,0,1,0,1,0,'','','Verce!\n\nThank you very much. \n\nI\'ve just emailed you the zipped file with documentation and ocxs.   The zipped file is 10mb.  If it doesn\'t reach you, please let me know.  ok?\n\nYou can write to me at:\nreinaldocrespo arroba structuredsystems punto com\n\nReinaldo.','',0,'','xfmaheze',1,0,'',299,0,0),(12071,2774,2,510,0,'201.242.172.228',1145653677,1,0,1,1,1,0,'','GET NO VALIDO','Estimado colegas disculpen la molestia nuevamente, necesito saber lo siguiente:\n\n          si ponge REDEFINE GET EXI ID 108 ;\n                                       COLOR RBG(0,0,0) RBG(128,130,255) ;\n                                      WHEN .F.\n           \n          COMO HAGO PARA QUE LOS COLORES APLIQUEN AL GET NO SALGA EN BLANCO Y NEGRO SEA EL GOLOR QUE SEA, AHORA SI QUITO EL WHEN .F. ME ACEPTA EL COLOR PERO ENTRA EN MODE DE EDICION Y NO ES LO QUE NESECITO. SI ME PUEDEN AYUDAR SE LO AGRADESCO EN EL ALMA\n\nGRACIAS\n\nNOTA : Garbi gracias por el concejo anterior, aplico bien (al pelo)','',0,'','3orndkxd',1,0,'',510,0,0),(12072,1808,2,510,0,'201.242.172.228',1145653801,1,0,1,1,1,0,'','Re: disculpa si me las puedes enviar te lo agradeceria.','[quote=&quot;William&quot;:3fmh46gp]Amigo si me las puedes enviar tambien, te lo agradeceria.\n\n<!-- e --><a href=\"mailto:Wneskers@hotmail.com\">Wneskers@hotmail.com</a><!-- e -->[/quote:3fmh46gp]','',0,'gA==','3fmh46gp',1,0,'',510,0,0),(12073,2730,6,305,0,'201.230.82.82',1145654434,1,0,1,1,1,0,'','','trate de compilar tu codigo, pero parece que paso incompleto.   Si puedes enviamelo a mi email.  <!-- e --><a href=\"mailto:rdelcastillo@consorcioinformatico.com\">rdelcastillo@consorcioinformatico.com</a><!-- e -->\n\n\nRalph','',0,'gA==','zdf49ifp',1,0,'',305,0,0),(12074,2775,6,36,0,'200.113.56.235',1145654446,1,0,1,1,1,0,'','ADS error 5159','Estimados,  estoy cambiando de base de dato de (dbf) a (adt), pero me esta arrojando este error que no lo he podido decifrar\nADSADT/5159 error de apertura\n\nEN CAMBIO CON DBF/CDX ME ABRE BIEN\n\n\nlo que hago es lo siguiente\n[code:1hxlwryq]\n\n__rddSetDefault&#40; &quot;ADS&quot; &#41;\nrddRegister&#40; &quot;ADS&quot;, 1 &#41;\nAdsSetFileType&#40;ADS_ADT&#41; //ADS_CDX\nIF !AdsConnect60&#40; &quot;\\\\SERVERCARMONA\\ADT\\DATOS\\ADTBASES&#46;ADD&quot;, 2, &quot;adssys&quot;, &quot;1234&quot; &#41;\n   ALERT&#40; &quot;ERROR&#46;&#46;&#46;&quot; &#41;\n   RETURN\nendif\nSELE 0 ; USE &quot;\\\\SERVERCARMONA\\ADT\\DATOS\\USUARIOS&quot; VIA &quot;ADS&quot;\n//aqui sale el error ADSADT 5159\nBROWSE&#40;&#41;\n\n[/code:1hxlwryq]\n\ncualquier ayuda bienvenida\n\natte\nPatricio','',0,'AIA=','1hxlwryq',1,0,'',36,0,0),(12075,2757,3,213,0,'72.177.228.25',1145655749,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the email.  I\'m getting the windows message \"yourapp.exe has encountered a problem and needs to close\".\n\nIn an effort to track this down I simply modifed the webexp.prg sample and compiled using harbour and borland.  When I try to run the program nothing happens.  I\'m beginning to wonder if there is something wrong with my installation of MapPoint 2004 (I tried reinstalling it).  I\'m going to try installing MapPoint 2002 this weekend and I\'ll let you know how I make out.  Thanks for all your help.\n\nBest Regards,\nRandal Ferguson','',0,'AIA=','nrrof18i',1,0,'',213,0,0),(12076,2761,3,148,0,'62.135.92.46',1145660090,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://img60.imageshack.us/img60/8303/txbrowse1ee.jpg\">http://img60.imageshack.us/img60/8303/txbrowse1ee.jpg</a><!-- m -->\n\nI did not find any effect of that sentence to the code !!!\n\n[code:11sclq72]\nSTATIC FUNCTION mete&#40; oWnd &#41;\n*--------------------------\n   local oChild, oBrw\n   Local oDlgn, oDbfc, oBrwc\n\n   local nRecNo  &#58;= RecNo&#40;&#41;\n   local new_rec  &#58;= 0\n   local oGet\n   local i&#58;=0\n   local oCombo1&#58;= Space&#40; 10 &#41;\n   local oCombo2&#58;= Space&#40; 8 &#41;\n   local oCombo3&#58;= Space&#40; 6 &#41;\n   local oCombo4&#58;= Space&#40; 20 &#41;\n   local oCombo5&#58;= Space&#40; 8 &#41;\n   local V_MC_serial&#58;= Space&#40; 7 &#41;\n\n   local nFor\n   local bFilter &#58;= &quot;&quot;\n   local cFilter &#58;= &quot;&quot;\n   local x &#58;= &quot;&quot;\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\nSELECT 4\nuse mete index mete2\nGO TOP\n\n\nDEFINE DIALOG oDlgn  FROM 1,1 TO 30,120 TITLE &quot;Dialog Meter Works&quot; \n\n\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlgn &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n   if nFor=20\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n\n   @ 9, 1 BUTTON &quot;&amp;New&quot;    OF oDlgn SIZE 40, 12 //ACTION Editmach&#40; oLbx, &#46;t&#46; &#41;\n   @ 9, 8 BUTTON &quot;&amp;Modify&quot; OF oDlgn SIZE 40, 12  //ACTION Editmach&#40; oLbx, &#46;f&#46; &#41; \n   @ 9, 15 BUTTON &quot;&amp;Delete&quot; OF oDlgn  SIZE 40, 12  //ACTION Delrecord&#40; oLbx &#41;\n   @ 9, 22 BUTTON &quot;&amp;Search&quot; OF oDlgn SIZE 40, 12 //ACTION Seekmach&#40; oLbx &#41; \n   @ 9, 29 BUTTON &quot;&amp;Print&quot;  OF oDlgn ;\n      SIZE 40, 12;\n      ACTION oBrw&#58;Report&#40; &quot;Machines Report&quot;, &#46;t&#46; &#41; ;  // &#46;t&#46; --&gt; wants preview\n\n\n   @ 9, 36 BUTTON &quot;&amp;Exit&quot;   OF oDlgn ACTION oDlgn&#58;End&#40;&#41; SIZE 40, 12\n\n   @ 10,  1 BUTTON &quot;&amp;Order&quot;    OF oDlgn SIZE 40, 12 //ACTION ordermach&#40;oLbx&#41; \n   @ 10,  8 BUTTON &quot;&amp;Filter&quot;    OF oDlgn SIZE 40, 12 //ACTION metefilter&#40;oLbx&#41; \n   @ 10,  15 BUTTON &quot;&amp;Unfilter&quot; OF oDlgn SIZE 40, 12 //ACTION filtermachNotOk&#40;oLbx&#41; \n\n\n\n   oBrw&#58;SetSize&#40; 20, 20 &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n\n   *oDlgn&#58;oClient &#58;= oBrw\n\n\n\n   ACTIVATE DIALOG oDlgn \n\nRETURN NIL\n[/code:11sclq72]','',0,'AIA=','11sclq72',1,0,'',148,0,0),(12077,2771,19,141,0,'200.88.94.228',1145663719,1,0,1,1,1,1,'','','Gracias Antonio,\n\nNo sabía que Yannis había hecho esto.  Me gustaría entonces tener acceso a esa(s) DBF, pues como menciono, la participación de todos es un material invaluable como base de conocimiento.\n\nEstaré entonces a la espera de que lo suban a hyperload...\n\nGracias adelantadas,','',0,'AIA=','n0oamvjb',1,0,'',141,0,0),(12078,2758,6,228,0,'200.119.74.21',1145667508,1,0,1,1,1,1,'','Gracias','Claro amigo muchas gracias por tu respuesta lo voy a poner el práctica.','',0,'AIA=','3ucd0rv1',1,0,'',228,0,0),(12079,2775,6,138,0,'201.152.98.24',1145673190,1,0,1,1,1,1,'','','Me surgen algunas preguntas....\n\n1) ¿ para que estas usando un diccionario de datos si vas a utilizar la tabla como tabla libre ?\n\n2) Estas usando un servidor remoto ?\n\n3) Tienes la tabla ADT registrada en el diccionario de datos ?\n\nNo es necesario hacer una conexion a un diccionario de datos con tablas ADT, funcionan igual que los DBFs, es decir,como tablas libres.','',0,'AIA=','2he6zqeh',1,0,'',138,0,0),(12080,2776,6,102,0,'83.52.50.240',1145684397,1,0,1,1,1,1,'','CANCEL EN BTNBMP','Antonio en BTNBMP la clausula CANCEL no funciona.\nHay alguna forma de arreglarlo?.\n\nGracias','',0,'AIA=','73yhrgz7',1,0,'',102,0,0),(12081,1963,6,52,0,'200.127.195.89',1145687204,1,0,1,1,1,1,'','','Con respecto a este tema, lo solucionaron, o simplemente sacamos la linea del CATH?','',0,'AIA=','2rxza456',1,0,'',52,0,0),(12082,2777,6,52,0,'200.127.195.89',1145688118,1,0,1,1,1,1,'','tExcelScript &amp; dbf','Estimados,\n\nNecesito hacer la exportacion a excel de una DBF, dicha DBF esta ordenada por tipo y cuando cambia el tipo  necesito que la celda sea de color rojo, como muestro en este pic, podría alguien darme una mano.\n\nYa vi los ejemplos de viktor, pero solo existe un ejemplo con el uso de una DBF cCliente, pero no se como se cambian los colores y todo eso...\n\nGracias de antemano.\n\n[url=http&#58;//img89&#46;imageshack&#46;us/my&#46;php?image=dibujo1tu&#46;jpg:3s9z1vld][img:3s9z1vld]http&#58;//img89&#46;imageshack&#46;us/img89/2858/dibujo1tu&#46;th&#46;jpg[/img:3s9z1vld][/url:3s9z1vld]','',0,'GA==','3s9z1vld',1,0,'',52,0,0),(12083,2778,6,228,0,'200.119.74.139',1145690032,1,0,1,1,1,1,'','Nombres de los meses en español?','Amigos del foro tengan muy buenos dias...\n\nAl utilizar esta funcion cMONTH(date()) me arroja el nombre del mes, pero me lo arroja en Ingles, como hago para que lo mande en Español?','',0,'GA==','64gi21vw',1,0,'',228,0,0),(12084,2779,7,527,0,'83.49.146.202',1145692661,1,0,1,1,1,0,'','Problema con el siguiente codigo','[b:p8spjinw]Tengo el siguiente codigo \nIF RECC() &gt; 0 \nGO TOP \nDEFINE DIALOG oDlg TITLE \'Clientes encontrados\' FROM 1,1 TO 16, 30 \n@ 0,0 LISTBOX oBrw FIELDS nombrec COLSIZES 155 HEADERS \"Nombre comercial\" SIZE 116,114 UPDATE OF odlg ON DBLCLICK IIF(estado&lt;&gt;-2,ver_ficha(oWnd,\"CLIENTE\",puntero,\"rescli\"),vv[3]=rescli-&gt;codigo) \nACTIVATE DIALOG oDlg CENTERED \nELSE \nMSGINFO(\"No existen datos con los filtros seleccionados\",\"Gestion\") \nENDIF \n\nNecesito que cuando hagan el doble click, asignar a una variable un valor, pero al mismo tiempo necesito refrescar esta variable y posteriormente cerrar esta ventana, como puedo encadenar todos estos comandos en la instruccion anterior. \n\nGracias.[/b:p8spjinw]','',0,'QA==','p8spjinw',1,0,'',527,0,0),(12085,2682,3,148,0,'62.135.92.46',1145693077,1,0,1,1,1,0,'','','I used different names for the different controls and Still the get is not being refereshed \n\n[code:2hq9mug5]\n   @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n   @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n   @ 45,200 COMBOBOX V_cu_counc ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41; size 80,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;V_cu_counc&#58;=cust-&gt;cu_coun,V_cu_coun&#58;=V_cu_counc,oGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n[/code:2hq9mug5]','',0,'AIA=','2hq9mug5',1,0,'',148,0,0),(12086,2778,6,9,0,'85.59.70.106',1145693775,1,0,1,1,1,1,'','','Leandro,\n\nYo uso una libreria personal, para todas mis aplicaciones, donde una de las funciones es la que te pongo a continuación. Tu puedes incluirla en tu\nlibrería personal, o bien ponerla directamente en tu programa.\n\n/////////////////////////////////\n// MES ( dFecha ) \n//  cMes := MES ( DATE() )\n/////////////////////////////////\nFUNCTION MES (dFecha)\nlocal cMes, nMes := MONTH (dFecha)\n   DO CASE\n    CASE nMes= 1  \n     cMes:=\"Enero\"\n    CASE nMes= 2 \n     cMes:=\"Febrero\"\n    CASE nMes= 3 \n     cMes:=\"Marzo\"\n    CASE nMes= 4 \n     cMes:=\"Abril\"\n    CASE nMes= 5 \n     cMes:=\"Mayo\"\n    CASE nMes= 6 \n     cMes:= \"Junio\"\n    CASE nMes= 7 \n     cMes:=\"Julio\"\n    CASE nMes= 8 \n     cMes:=\"Agosto\"\n    CASE nMes= 9 \n     cMes:=\"Septiembre\"\n    CASE nMes= 10 \n     cMes:=\"Octubre\"\n    CASE nMes= 11 \n     cMes:=\"Noviembre\"\n    CASE nMes= 12 \n     cMes:=\"Diciembre\"\n    ENDC\nRETURN cMes','',0,'AIA=','2zx1zuw4',1,0,'',9,0,0),(12087,2772,6,9,0,'85.59.70.106',1145694128,1,0,1,1,1,1,'','','Luis, \n\nYo lo tengo deshabilitando (disable)  los botones \"Alta\" y \"Editar\" segun el perfil del usuario.','',0,'AIA=','1pqgl0m0',1,0,'',9,0,0),(12088,2780,6,9,0,'85.59.70.106',1145694585,1,0,1,1,1,1,'','Error acento en checkbox','Me imagino que es un error de XHarbour. Cuando en un CHECKBOX el PROMPT lleva una palabra acentuada, sale mal despues en pantalla. Lo he solucionado modificando la clase CHECKBOX, cambiado en el método New de la siguiente línea:\n\n   ::cCaption = AnsiToOem(cCaption)','',0,'AIA=','2l79l0kd',1,0,'',9,0,0),(12089,2685,3,148,0,'62.135.92.46',1145695181,1,0,1,1,1,0,'','','Problem did not solved . I do not know ?\nThe function you suggessted gave the apropraite key.\n\n[code:28g2eyfc]\n      select 1\n      use cust\n      set index to cust10\n      MSGINFO&#40;IndexKey&#40;&#41;&#41; \n      if ! DbSeek&#40; alltrim&#40;upper&#40;V_CU_Appr &#41;&#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that customer&quot; &#41;\n         GO nRecNo\n      else\n         oLbx&#58;UpStable&#40;&#41;           // Corrects same page stabilizing Bug\n         oLbx&#58;Refresh&#40;&#41;            // Repaint the ListBox\n      endif\n   endif\n[/code:28g2eyfc]','',0,'AIA=','28g2eyfc',1,0,'',148,0,0),(12090,2773,7,2,0,'87.218.146.58',1145695421,1,0,1,1,1,1,'','','Manuel,\n\nLlama a una función y que la función haga todo:\n\n... ON DBLCLICK Acciones() ...\n\n...\n\nfunction Acciones()\n\n...\n\nreturn nil','',0,'AIA=','1wly8vbc',1,0,'',2,0,0),(12091,2779,7,2,0,'87.218.146.58',1145695460,1,0,1,1,1,1,'','','Manuel, \n\nLlama a una función y que la función haga todo: \n\n... ON DBLCLICK Acciones() ... \n\n... \n\nfunction Acciones() \n\n... \n\nreturn nil','',0,'AIA=','1lwduxil',1,0,'',2,0,0),(12092,2780,6,2,0,'87.218.146.58',1145695574,1,0,1,1,1,1,'','','Manuel,\n\nUsas un editor de código en Windows, ó de MsDos ?','',0,'AIA=','23cm0gv3',1,0,'',2,0,0),(12093,2780,6,9,0,'85.59.70.106',1145698321,1,0,1,1,1,1,'','','Antonio,\n\nUn editor de Windows (Notepad). Lo he editado ahora en WordOffice y sale correcto (con acento).','',0,'AIA=','gvptqsea',1,0,'',9,0,0),(12094,2682,3,6,0,'82.59.197.144',1145700913,1,0,1,1,1,1,'','','[quote=&quot;Ehab Samir Aziz&quot;:qqtluvtj][code:qqtluvtj]ON CHANGE &#40;V_cu_counc&#58;=cust-&gt;cu_coun,V_cu_coun&#58;=V_cu_counc,oGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n[/code:qqtluvtj][/quote:qqtluvtj]\n\nTry\n\n[code:qqtluvtj]ON CHANGE &#40;V_cu_coun&#58;=cust-&gt;cu_coun,oGet&#58;Refresh&#40;&#41;&#41;\n[/code:qqtluvtj]\n\nIf this doesn\'t work then please provide a reduced and self-contained sample of the problem.\n\nEMG','',0,'gIA=','qqtluvtj',1,0,'',6,0,0),(12095,2682,3,148,0,'62.135.92.46',1145703639,1,0,1,1,1,0,'','','Not instantly refreshing for the get I should go to by cursor to the get box so the frefresh will be made . Please focus on the country variable and I will do the rest .\n\n[code:xu4fgsim]\nstatic function editcust&#40; oLbx, lAppend &#41;\n*-------------------------------------------\nlocal oDlg\nlocal h&#58;=0\nlocal V_CU_ACCT\nlocal V_CU_NAME\nlocal V_cu_stre\nlocal V_cu_gove\nlocal V_cu_city&#58;=space&#40;30&#41;\nlocal V_cu_coun&#58;=space&#40;30&#41;\nlocal V_cu_counc&#58;=space&#40;30&#41;\n\nlocal V_CU_phon\nlocal V_CU_fax\nlocal V_CU_MAN\nlocal V_CU_mobi\nlocal V_CU_appr\nlocal oGet\nlocal lSave &#58;= &#46;f&#46;\nlocal nOldRec &#58;= RecNo&#40;&#41;\nDEFAULT lAppend &#58;= &#46;f&#46;\n\n\n   if lAppend\n      GOTO BOTTOM\n      SKIP\n   endif\n\n*? nOldRec\nV_CU_ACCT&#58;=cust-&gt;CU_ACCT\nV_CU_NAME&#58;=cust-&gt;CU_NAME\nV_CU_coun&#58;=cust-&gt;CU_coun\nV_CU_city&#58;=cust-&gt;CU_city\nV_CU_gove&#58;=cust-&gt;CU_gove\nV_CU_stre&#58;=cust-&gt;CU_stre\nV_CU_phon&#58;=cust-&gt;CU_phon\nV_CU_fax&#58;=cust-&gt;CU_fax\nV_CU_MAN&#58;=cust-&gt;CU_MAN\nV_CU_mobi&#58;=cust-&gt;CU_mobi\nV_CU_appr&#58;=cust-&gt;CU_appr\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 500, 700 PIXEL ;\nTITLE If&#40; lAppend, &quot;New Customer&quot;, &quot;Customer Update&quot; &#41;\n\n\n   @ 1,2 SAY &quot;&amp;Account No&#46;&quot; OF oDlg PIXEL \n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 GET V_CU_ACCT OF oDlg PIXEL \n\n   @ 15,1 SAY &quot;&amp;Name&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET V_CU_NAME OF oDlg PIXEL\n\n   @ 30,2 SAY &quot;&amp;Street&quot; OF oDlg PIXEL\n   @ 30,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 30,60 GET V_cu_stre OF oDlg PIXEL\n\n   @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n   @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n   @ 45,200 COMBOBOX V_cu_counc ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41; size 80,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;V_cu_coun&#58;=cust-&gt;cu_coun,oGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n \n   @ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL\n   @ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 60,60 GET oGet VAR V_cu_city OF oDlg PIXEL\n   @ 60,200 COMBOBOX V_cu_city ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_city&quot;&#41; size 80,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;v_cu_city&#58;=cust-&gt;cu_city,oGet&#58;Refresh&#40;&#41;&#41;;\n\n \n   select 1\n   use cust\n   set filter to &#40;upper&#40;v_cu_city&#41;==upper&#40;cust-&gt;cu_city&#41;&#41;\n   @ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL\n   @ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 75,60 GET V_cu_gove OF oDlg PIXEL\n   @ 75,200 COMBOBOX V_cu_gove ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_gove&quot;&#41; size 80,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;v_cu_gove&#58;=cust-&gt;cu_gove&#41;;\n\n   select 1\n   use cust\n   set filter to \n\n   @ 90,2 SAY &quot;&amp;Phone&quot; OF oDlg PIXEL\n   @ 90,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 90,60 GET V_CU_phon OF oDlg PIXEL\n\n   @ 105,2 SAY &quot;&amp;Fax&quot; OF oDlg PIXEL\n   @ 105,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 105,60 GET V_CU_fax OF oDlg PIXEL\n\n   @ 120,2 SAY &quot;Man&quot; OF oDlg PIXEL\n   @ 120,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 120,60 GET V_CU_MAN OF oDlg PIXEL\n\n   @ 135,2 SAY &quot;Mobile&quot; OF oDlg PIXEL\n   @ 135,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 135,60 GET V_CU_mobi OF oDlg PIXEL\n\n   @ 150,2 SAY &quot;Account Name&quot; OF oDlg PIXEL\n   @ 150,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 150,60 GET V_CU_appr OF oDlg PIXEL\n\n   @ 170,  9 BUTTON &quot;&amp;Save&quot;  OF oDlg PIXEL SIZE 50, 12 ACTION &#40; lSave &#58;= &#46;t&#46; , oDlg&#58;End&#40;&#41; &#41;\n   @ 170, 100 BUTTON &quot;&amp;Cancel&quot; OF oDlg PIXEL SIZE 50, 12 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n      if Empty&#40; V_CU_Acct &#41; &#46;and&#46; lSave\n         MsgAlert&#40; &quot;Please write a name&quot; &#41;\n      endif\n\n\n   if lSave &#46;and&#46; !empty&#40; V_CU_ACCT &#41;\n\n      if lAppend\nselect 1\nuse cust\nAPPEND BLANK\nnOldRec&#58;=recno&#40;&#41;\n*? nOldRec\nendif\n\nselect 1\nuse cust\nGOTO nOldRec\ncust-&gt;CU_ACCT &#58;=V_CU_ACCT\ncust-&gt;CU_NAME &#58;=V_CU_NAME\ncust-&gt;cu_coun &#58;=V_cu_coun\ncust-&gt;cu_city &#58;=V_cu_city\ncust-&gt;cu_gove &#58;=V_cu_gove\ncust-&gt;cu_stre &#58;=V_cu_stre\ncust-&gt;CU_phon &#58;=V_CU_phon\ncust-&gt;CU_fax &#58;=V_CU_fax\ncust-&gt;CU_MAN &#58;=V_CU_MAN\ncust-&gt;CU_mobi &#58;=V_CU_mobi\ncust-&gt;CU_appr &#58;=V_CU_appr\n      select 1\n      use cust\n      go top\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n   else\n      select 1\n      use cust\nendif\n\nselect 1\nuse cust\n\nINDEX ON upper&#40;cust-&gt;cu_acct&#41; TO cust\ngo top\nreindex\n\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\ngo top\nreindex\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\ngo top\nreindex\n\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON alltrim&#40;upper&#40;cust-&gt;cu_appr&#41;&#41; TO cust10\ngo top\nreindex\n\nuse cust index cust\n\n\nreturn nil\n[/code:xu4fgsim]','',0,'AIA=','xu4fgsim',1,0,'',148,0,0),(12096,2781,3,148,0,'62.135.92.46',1145704021,1,0,1,1,1,0,'','Image posting','How can I load image into my thread ?','',0,'AIA=','31rv8365',1,0,'',148,0,0),(12097,2682,3,6,0,'82.59.197.144',1145704062,1,0,1,1,1,1,'','','Without a [b:3gcovvkz]reduced[/b:3gcovvkz] and [b:3gcovvkz]self-contained[/b:3gcovvkz] sample of the problem I can\'t help you, sorry.\n\nEMG','',0,'QA==','3gcovvkz',1,0,'',6,0,0),(12098,2781,3,6,0,'82.59.197.144',1145704140,1,0,1,1,1,1,'','Re: Image posting','Have a look at @ BITMAP and @ IMAGE commands.\n\nEMG','',0,'QA==','rk2i9fv3',1,0,'',6,0,0),(12099,2682,3,148,0,'62.135.92.46',1145704481,1,0,1,1,1,0,'','','Do you want sample of data and prg syntax ? Oka I will send to you by mail','',0,'QA==','1rqcv0ha',1,0,'',148,0,0),(12100,2781,3,148,0,'62.135.92.46',1145704894,1,0,1,1,1,0,'','','Not in .prg but in my posting to the forum how can I load images to my questions to FiveWin for Harbour/xHarbour Forum ?','',0,'QA==','bexae5vd',1,0,'',148,0,0),(12101,1963,6,439,0,'190.0.130.171',1145705826,1,0,1,1,1,1,'','','No se produce ese error si se tiene una ventana abierta como en los ejemplos.','',0,'QA==','3s69szbr',1,0,'',439,0,0),(12102,2558,17,439,0,'190.0.130.171',1145706542,1,0,1,1,1,1,'','TSBrowse 7.01','En este link encontrarán TSBrowse Ver. 7.01\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0183e06f56/TSBrowse701.rar.html\">http://hyperupload.com/download/0183e06 ... 1.rar.html</a><!-- m -->\n\nEs la última versión conocida del popular browse y tiene muchas mejoras que encontrarán en el archivo WhatsNew.v70\n\nLa he revisado y acomodado un poco los archivos para simplificar su compilación, encontrarán todos los archivos verce, tanto para compilar la lib como los ejemplos (en xharbour) si desean hacerlo en Harbour también anda y solo hay que modificar levemente los archivos vrc.\n\nTodos los ejemplos funcionan muy bien, solo he encontrado un error en la creación de planillas excel via Ole, pero las crea perfectamente al estilo de FileXls (planillas ver 2.1).\n\nEspero que la disfruten.......','',0,'QA==','19vqcorf',1,0,'',439,0,0),(12103,2781,3,6,0,'82.59.197.144',1145708593,1,0,1,1,1,1,'','','Ops, sorry.\n\nEMG','',0,'QA==','l1n1qxkd',1,0,'',6,0,0),(12104,2682,3,6,0,'82.59.197.144',1145708898,1,0,1,1,1,1,'','','I need of a [b:nz515lyk]reduced[/b:nz515lyk] sample. You have to take the time to [b:nz515lyk]reduce[/b:nz515lyk] your sample to the minimum that is still enough to demonstrate the problem.\n\nIf you don\'t have this time then sorry but I can\'t help you.\n\nEMG','',0,'QA==','nz515lyk',1,0,'',6,0,0),(12105,2782,2,500,0,'80.34.50.127',1145708929,1,0,1,1,1,0,'','Lineas descuadradas en oPrn:CmSay','Hola a todos\n\nAlguien me podría decir por qué estas tres líneas salen descuadradas en la impresora....\n\n oPrn:cmSay( nRow,18.5, Transf(CFAC-&gt;bruto,\"@E 999,999.99\"), aoFont[2])\noPrn:cmSay( nRow,18.5, Transf(CFAC-&gt;cuota,\"@E 999,999.99\"), aoFont[2])\noPrn:cmSay( nRow,18.5, Transf(CFAC-&gt;total,\"@E 999,999.99\"), aoFont[2])\n\nHay algun parametro mas a parte de (Row, Col, Texto, Font) en la clase tprinter?   ya que no la veo bien documentada por ningun sitio.\nMás que nada es por saber si se pueden colocar los números cuadrados unos debajo de otros.\n\nGracias a todos y un saludo\n\nPedro','',0,'','2s23zmyd',1,0,'',500,0,0),(12106,2759,6,511,0,'201.248.66.187',1145709150,1,0,1,0,1,0,'','','Antonio,\n\nPuedes descargar el ejemplo de <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/025aa5cd83/FLD-BRW.ZIP.html\">http://hyperupload.com/download/025aa5c ... W.ZIP.html</a><!-- m --> en este zip tienes un pequeño PRG y el RC, dentro del PRG te explico el problema, gracias\n\nSaludos','',0,'','3bnjr7xk',1,0,'',511,0,0),(12107,2783,3,6,0,'82.54.221.91',1145715875,1,0,1,1,1,1,'','WinFax OLE','Dear friends, I\'m searching for samples on how to drive WinFax via OLE.\n\nThank you.\n\nEMG','',0,'','2rblojel',1,0,'',6,0,0),(12108,2775,6,36,0,'200.113.56.235',1145716154,1,0,1,1,1,0,'','','Hola Rene\n \n  Gracias por responder \n\n1) ¿ para que estas usando un diccionario de datos si vas a utilizar la tabla como tabla libre ? \nR:no entiendo?\n\n2)Estas usando un servidor remoto ?\nR: SI\n\n3) Tienes la tabla ADT registrada en el diccionario de datos ?\nR: SI\n\ncon tablas dbf/cdx lo tengo igual y me funciona muy bien tanto remoto, internet, pero ahora que estoy probando con tablas adt me sale este error, pero si le sacos las tablas al diccionario funciona bien?\n\nyo entiendo:\nlocal=sin servidor ADS\nremoto=con servidor ADS instalado en win2k3, etc\ninternet= igual remoto + diccionario de datos\n\natte\nPatricio\n\nnota: Lo ideal es tener las tablas en el diccionario de datos y asi poder verlas, usar las consulta SQL, etc','',0,'','3645p9w2',1,0,'',36,0,0),(12109,2782,2,422,0,'217.168.114.209',1145717414,1,0,1,1,1,0,'','cmsay..','Pedro...\n\noPrn:oRpt:cmSay(nLin+13.8,19.5, transform(d,\"9,999,999.99\"), oPrn:aFonts[6],,,,1 )\n\nSaludos.\nRicardo','',0,'','101eyjkk',1,0,'',422,0,0),(12110,2784,6,37,0,'200.121.250.80',1145719284,1,0,1,1,1,0,'','Error antes del preview con clase tPrinter','Saludos, alguien me puede indicar como se soluciona este error, debo mencionar que con Clipper no sucede.\nEl dialogo muestra lo siguiente :\n\nError\nError (6) deleting enhanced metafile\nError description.\nOk\n\nDebo mencionar que al dar Ok, sale el preview correctamente ???\nAlguna idea, gracias\n\nEnrrique Vertiz Pitta\nWinXP, xHarbour 0.99.6, Harbour 0.45, Clipper 5.3, Fwh 2.7, SQLLIB 1.2c','',0,'','lgxre6py',1,0,'',37,0,0),(12111,2785,6,93,0,'201.138.114.177',1145725456,1,0,1,1,1,0,'','Ole y componente AX','Hola amigos, tengo el siguiente problema:\n\nTengo un componente AX el cual acceso vía OLE. Todo bien, los métodos trabajan correctamente, pero cuando invoco un método, el cual acepta dos parámetros pasados por referencia, no me devuelve lo que en teoría debería devolver.\n\nlret := oObj:Metodo(nVar1xValor, nVar2xValor, nVar3xRef, nVar4xRef )\n\nSe supone (por favor corríjanme si me equivoco) que el tercer y cuarto parámetro son devueltos con un nuevo valor, pero cuando los visualizo tienen el mismo valor que con el que entraron. Este comportamiento se repite en cada método que tiene un parámetro por referencia.\n\nAlguna idea? Agradezco mucho cualquier ayuda o tip\n\nFernando Castro','',0,'','1x05x7uw',1,0,'',93,0,0),(12112,2783,3,6,0,'87.6.210.167',1145725469,1,0,1,1,1,1,'','Re: WinFax OLE','I answer myself. This is a working sample:\n\n[code:2pdxzzcb]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIAlOG oDlg\n\n    @ 1, 1 BUTTON &quot;Send fax&quot;;\n           ACTION SENDFAX&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDFAX&#40;&#41;\n\n    LOCAL oFax &#58;= CREATEOBJECT&#40; &quot;WinFax&#46;SDKSend&quot; &#41;\n\n    oFax&#58;LeaveRunning&#40;&#41;\n\n    oFax&#58;SetCoverText&#40; &quot;This is the fax cover&#46;&quot; &#41;\n\n    IF FILE&#40; CURDRIVE&#40;&#41; + &quot;\\&quot; + CURDIR&#40;&#41; + &quot;\\TEST&#46;DOC&quot; &#41;\n        oFax&#58;AddAttachmentFile&#40; CURDRIVE&#40;&#41; + &quot;\\&quot; + CURDIR&#40;&#41; + &quot;\\TEST&#46;DOC&quot; &#41;\n    ENDIF\n\n    oFax&#58;SetNumber&#40; &quot;your fax number&quot; &#41;\n    oFax&#58;AddRecipient&#40;&#41;\n    oFax&#58;Send&#40; 0 &#41;\n\n    RETURN NIL[/code:2pdxzzcb]\n\nEMG','',0,'AIA=','2pdxzzcb',1,0,'',6,0,0),(12113,2778,6,138,0,'201.152.98.24',1145727698,1,0,1,1,1,1,'','','Hay una fomra de linkear una lib con los mensajes del sistema en Español.\n\nHace tiempo hice una chapuza para salir del paso rapidamente:\n\n\n[code:16mx1lg3]aMeses &#58;= &#123;&quot;Enero&quot;,&quot;Febrero&quot;,&quot;Marzo&quot;,&quot;Abril&quot;,;\n                  &quot;Mayo&quot;,&quot;Junio&quot;,&quot;Julio&quot;,&quot;Agosto&quot;,;\n                  &quot;Septiembre&quot;,&quot;Octubre&quot;,&quot;Noviembre&quot;,&quot;Diciembre&quot;&#125;\n\ncMes &#58;= aMeses&#91;MONTH&#40;&#41;&#93;[/code:16mx1lg3]','',0,'AIA=','16mx1lg3',1,0,'',138,0,0),(12114,2786,6,73,0,'201.129.96.191',1145729116,1,0,1,1,1,0,'','leer mensajes','alguien sabe de donde puedo leer los mensaje posteados en el foro que habia de fivetechsoft?\ngracias\nPaco','',0,'AIA=','2kxxv0aw',1,0,'',73,0,0),(12115,2787,7,527,0,'88.1.227.84',1145729635,1,0,1,1,1,0,'','Llamar a otro programa','Como puedo llamar a otro .PRG desde un programa general\nPor ejemplo\nFUNCTION main()\n  do cliente.prg\nRETURN 0\n* Al ejecutarlo de este modo me da error, como puedo solucionarlo.','',0,'AIA=','24jvq1n1',1,0,'',527,0,0),(12116,2787,7,2,0,'87.218.146.58',1145733298,1,0,1,1,1,1,'','','Manuel,\n\nDentro de cliente.prg creas una función que se llame Cliente() y la llamas desde tu PRG principal:\n\nFUNCTION main() \nCliente() \nRETURN 0\n\nOjo que hay que modificar samples\\buildce.bat para que compile y enlace más de un PRG. Es fácil, si no puedes, coméntalo y te ayudamos.','',0,'AIA=','23nawglt',1,0,'',2,0,0),(12117,2781,3,2,0,'87.218.146.58',1145733356,1,0,1,1,1,1,'','','Ehab,\n\nPlace the images at <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and provide here the URL link.','',0,'AIA=','3ss5s5ud',1,0,'',2,0,0),(12118,2783,3,2,0,'87.218.146.58',1145733416,1,0,1,1,1,1,'','','Enrico,\n\nVery good, master <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','35rtrw37',1,0,'',2,0,0),(12119,2786,6,2,0,'87.218.146.58',1145733538,1,0,1,1,1,1,'','','Paco,\n\nLos tenemos en DBFs. Podemos subirlos a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> para que quien quiera los descargue.','',0,'AIA=','19hkweck',1,0,'',2,0,0),(12120,2784,6,2,0,'87.218.146.58',1145733598,1,0,1,1,1,1,'','','Enrique,\n\nComprueba que no tengas un ENDPAGE de más.','',0,'AIA=','1p1e65lc',1,0,'',2,0,0),(12121,2787,7,527,0,'88.1.227.84',1145733629,1,0,1,1,1,0,'','Gracias','Gracias','',0,'AIA=','2hz26qjt',1,0,'',527,0,0),(12122,2785,6,2,0,'87.218.146.58',1145733666,1,0,1,1,1,1,'','','Fernando,\n\nLos estás pasando con @ delante ó sin @ ?','',0,'AIA=','2f1gc3ni',1,0,'',2,0,0),(12123,2778,6,2,0,'87.218.146.58',1145733892,1,0,1,1,1,1,'','','Leandro,\n\n REQUEST HB_Lang_ES  // Para establecer idioma de Mensajes, fechas, etc.. \n  REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..) \n  // Idioma por defecto: Español... \n  HB_LangSelect(\"ES\")     // Para mensajes, fechas, etc.. \n  HB_SetCodePage(\"ESWIN\") // Para ordenación (arrays, cadenas, etc..) *Requiere CodePage.lib','',0,'AIA=','335ywynz',1,0,'',2,0,0),(12124,2787,7,527,0,'88.1.227.84',1145734200,1,0,1,1,1,0,'','Dime como modifico el BAT','Dime como modifico el BAT para enlazar varios programas, perdona, es que no habia leido el texto final de tu comentario.\n\ngracias.','',0,'AIA=','2mt2umzk',1,0,'',527,0,0),(12125,2788,17,2,0,'87.218.146.58',1145734536,1,0,1,1,1,1,'','FiveTech News as/en DBFs','local.fivewin.harbour.english:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d1e78220/lfHeng.zip.html\">http://hyperupload.com/download/01d1e78 ... g.zip.html</a><!-- m -->\n\nlocal.fivewin.harbour.spanish:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0127159244/lfHspa.zip.html\">http://hyperupload.com/download/0127159 ... a.zip.html</a><!-- m -->\n\nlocal.fivewin.english:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01518e1e72/lfeng.zip.html\">http://hyperupload.com/download/01518e1 ... g.zip.html</a><!-- m -->\n\nlocal.fivewin.spanish:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0115a48438/lfSpa.zip.html\">http://hyperupload.com/download/0115a48 ... a.zip.html</a><!-- m -->\n\nMany thanks to Yannis Yannas! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1epoz642',1,0,'',2,0,0),(12126,2771,19,2,0,'87.218.146.58',1145735016,1,0,1,1,1,1,'','','Julio,\n\nAquí están:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2788\">http://fivetechsoft.com/forums/viewtopic.php?t=2788</a><!-- m -->','',0,'AIA=','1ahnclck',1,0,'',2,0,0),(12127,2786,6,2,0,'87.218.146.58',1145735081,1,0,1,1,1,1,'','','Paco,\n\nAquí estan:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2788\">http://fivetechsoft.com/forums/viewtopic.php?t=2788</a><!-- m -->','',0,'AIA=','1meb2xmw',1,0,'',2,0,0),(12128,2787,7,2,0,'87.218.146.58',1145735292,1,0,1,1,1,1,'','','Manuel,\n\nEstas son las modificaciones a hacer en buildce.bat para añadir cliente.prg, asi puedes añadir todos los PRGs más que quieras. Tambien puedes revisar makes\\fwcemake.zip si quieres usar un fichero make de Microsoft en vez de un fichero BAT:\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\n%vcdir%\\bin\\clarm -TP -W3 -c /DARM /DUNICODE /I%hdir%\\include /I..\\include %1.c\n:ENDCOMPILE\n\n%hdir%\\bin\\harbour cliente.prg /n /i..\\include;%hdir%\\include /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\n%vcdir%\\bin\\clarm -TP -W3 -c /DARM /DUNICODE /I%hdir%\\include /I..\\include cliente.c\n:ENDCOMPILE\n\nIF EXIST %1.rc %vcdir%\\bin\\rc -r -d_CE %1\n\necho %1.obj  cliente.obj &gt; msvc.tmp','',0,'AIA=','3k4zv404',1,0,'',2,0,0),(12129,2783,3,6,0,'87.6.210.167',1145736693,1,0,1,1,1,1,'','','<!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','3k43uoyg',1,0,'',6,0,0),(12130,2787,7,527,0,'88.1.227.84',1145738806,1,0,1,1,1,0,'','Gracias','Todo perfecto.','',0,'AIA=','b2eu6ie2',1,0,'',527,0,0),(12131,2787,7,527,0,'88.1.227.84',1145740749,1,0,1,1,1,0,'','Color de textos y variables','Como puedo colocar un texto con fondo transparente, y otra mas por favor, como puedo colocarle un color al fondo de un campo, por ejemplo azul y negrilla, o solo negrilla.\n\nGracias.','',0,'AIA=','2x45wzhj',1,0,'',527,0,0),(12132,2789,6,471,0,'201.240.98.206',1145750397,1,0,1,1,1,1,'','AYUDA CON CONVERSION DE FONTS WINDOWS A FONTS DE TPRINTER','AMIGOS  SIGO EN LAPELEA CON ESTO DE DISENAR UN REPORTE \nA PRINTER  USANDO UN WINDOW PARA DISENARLO \n\nTENGO UNA  VENTANA CON GETS Q REPRESNTAN LOS TEXTOS A \nIMPRIMIR\n\n1. CAPTURO LAS COORDENADAS DEL  CONTROL GET OSEA DEL TEXTO \n  A IMPRIMIR\n\naRect:=GetCoors( control:hWnd )\n\n2.Calculo la fila y columna  en cm aprox \n\n                                       fila:=  aRect[1]/36   \n                                       colu:=  aRect[2]/29 \n\n3.Imprimo en centimeros\n\noPrn:CmSay( fila,colu, oget:Varget()  ,oFont ,  ,oWnd:aControls )\n\nEsto funciona con el Font  SMALL FONTS  lo que se pone en la windows\naparece a escala en la vista previa del tprinter\n\n\npero si se usa una FONT ARIAL de 10 lo que se pone al centro en \nla windows en la vista previa aparece pegado a la izquierda.\n\n\nLa pregunta es como convietro un \nFONTS WINDOWS A FONTS DE TPRINTER\n\nque se proporcione a bien escala como el SMALL FONTS\n\n\n\nGracias por la Ayuda','',0,'','3khkn7sz',1,0,'',471,0,0),(12133,2783,3,190,0,'202.65.134.45',1145757398,1,0,1,1,1,0,'','','Hi Mr.Enrico\n\n[quote:2zsml998]LOCAL oFax := CREATEOBJECT( \"WinFax.SDKSend\" ) \n[/quote:2zsml998]\n\nHow do I get this object.  Should I link any library like WINFAX.LIB\nsupplied with BCC55\\LIB\\PSDK or any DLL ?\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','2zsml998',1,0,'',190,0,0),(12134,2789,6,72,0,'201.154.204.96',1145758262,1,0,1,1,1,0,'','','Desconozco el porque y la proporción exacta pero con quitar dos puntos a la fuente definida es muy aproximada la presentación.\n\nSi encuentras el motivo o proporción más de un colega te estaremos agradecidos.','',0,'gA==','3endabc9',1,0,'',72,0,0),(12135,2783,3,15,0,'203.73.91.145',1145759074,1,0,1,1,1,0,'','','Hello RAMESHBABU,\n\nI think no. Because You should be install WinFax software.\nIt\'s include ActiveX DLL or OCX ....file and start itself.\n\nRegards,\n\nRichard','',0,'gA==','2yondnfd',1,0,'',15,0,0),(12136,2790,6,54,0,'201.137.108.73',1145767941,1,0,1,1,1,1,'','Texto vertical','[url=http&#58;//img225&#46;imageshack&#46;us/my&#46;php?image=vertical4ts&#46;jpg:3l97sifa][img=http://img225.imageshack.us/img225/2315/vertical4ts.th.jpg][/url:3l97sifa]\n\nAmigos, necesito generar un texto VERTICAL desde recursos, lo estoy intentando con la clase TSay y el Font con NESCAPEMENT, se ve como la imagen.\n\nAlguna sugerencia y/o comentario?\n\nMil gracias de antemano','',0,'EA==','3l97sifa',1,0,'',54,0,0),(12137,1808,2,9,0,'85.59.70.106',1145777762,1,0,1,1,1,1,'','Si me las puedes enviar te lo agradeceria.','Si me las puedes enviar, te lo agradeceria.\n\n<!-- e --><a href=\"mailto:lebsoft@mixmail.com\">lebsoft@mixmail.com</a><!-- e -->','',0,'EA==','1hgrg4ab',1,0,'',9,0,0),(12138,2729,2,9,0,'85.59.70.106',1145777986,1,0,1,1,1,1,'','','Sebastián,\n\nEn menos de una semana funcionando.','',0,'EA==','2tlm6kri',1,0,'',9,0,0),(12139,2787,7,2,0,'87.218.146.58',1145783203,1,0,1,1,1,1,'','','Manuel,\n\n&gt; Como puedo colocar un texto con fondo transparente\n\nEs para escribir sobre una imagen ?\n\n&gt;\ny otra mas por favor, como puedo colocarle un color al fondo de un campo, por ejemplo azul y negrilla, o solo negrilla. \n&gt;\n\nUsa la cláusula COLOR ...:\n\n@ ..., ... GET ... COLOR \"N/B\"\n\nó\n\n@ ..., ... GET ... COLOR COLOR_BLACK, COLOR_BLUE','',0,'EA==','3qyga5kk',1,0,'',2,0,0),(12140,2787,7,527,0,'83.35.20.201',1145785053,1,0,1,1,1,0,'','Tengo el siguiente codigo para activar menu y no lo consigo','FICHERO .PRG\n#include \"FWCE.ch\"\nfunction Main()\n  local oWnd, oBmp\n  DbCloseAll()\n  Config()\n  MsgInfo(SerialNumber())\n  DEFINE BITMAP oBmp FILE CurDir() + \"\\bmp\\inicio.bmp\"\n  DEFINE WINDOW oWnd TITLE \"MJCC\" MENU menu_systema()\n  ACTIVATE WINDOW oWnd ;\n           ON PAINT oWnd:SayBitmap(0, 0, oBmp ) ;\n           ON CLICK MsgInfo(\"MJCC\" + CHR(13) + \"Bembibre\" + chr(13) +;\n                            \"La Coruña\"+ chr(13)+;\n                            \"Telefono 902234568\", \"Gestión\")\n      \n  DbCloseAll()\n  oBmp:End()\nreturn 0\n******************************************************\n* Define el menu de acceso al sistema\n******************************************************\nFUNCTION menu_systema()\n   LOCAL omenu\n   DEFINE MENU oMenu RESOURCE 102\n   REDEFINE MENUITEM ID 100 OF oMenu ACTION MsgInfo( \"First\" )\n   REDEFINE MENUITEM ID 200 OF oMenu ACTION MsgInfo( \"Second\" )\nRETURN omenu\n******************************************************\n* Configuracion del sistema por defecto para arrancar *\n******************************************************\nSTATIC FUNCTION Config()\n    HB_LANGSELECT(\"ESWIN\")\n    SET DELETED ON\n    SET DATE TO ITALIAN\n    SET SOFTSEEK ON\n    SET CENTURY ON\n    SET EPOCH TO 2000\n    Hb_LangSelect (\'PL\') \n    Hb_SetCodePage (\'PLWIN\') \nRETURN 0\n\n\nFICHERO RC\n\n/****************************************************************************\n\n\nclases.rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n#define MENU_2	2\n#define CM_POPUPITEM5	106\n#define CM_POPUPITEM4	105\n#define CM_POPUPITEM3	104\n#define CM_POPUPITEM2	103\n#define CM_POPUPITEM1	102\n#define CM_POPUPITE1	101\n#define CM_MAESTROSITEM2	104\n#define CM_MAESTROSITEM1	103\n#define CM_MAESTROSITEM	102\n#define DIALOG_1	1\nDIALOG_1 DIALOG 9, 24, 172, 139\nSTYLE DS_ABSALIGN | WS_CHILD | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Inicio del sistema\"\nFONT 8, \"MS Sans Serif\"\n{\n}\n102 MENU \n{\n MENUITEM \"Hola 1\", 100\n MENUITEM \"Hola 2\", 200\n}\n\n\nGRACIAS. PUEDES SOLUCIONARME EL PROBLEMA\nNO SE POR DONDE REALIZARLO, ES LA PRIMERA VEZ QUE HAGO UN MENU.','',0,'EA==','xsejohyt',1,0,'',527,0,0),(12141,2783,3,6,0,'82.57.160.4',1145786030,1,0,1,1,1,1,'','','[quote=&quot;Taiwan&quot;:33wo2dqi]Hello RAMESHBABU,\n\nI think no. Because You should be install WinFax software.\nIt\'s include ActiveX DLL or OCX ....file and start itself.\n\nRegards,\n\nRichard[/quote:33wo2dqi]\n\nExactly.\n\nEMG','',0,'gA==','33wo2dqi',1,0,'',6,0,0),(12142,2791,3,473,0,'213.119.222.114',1145787624,1,0,1,1,1,0,'','Change te picture of a get according the contents','Hello,\n\nA Belgium bank nr always have the same picture.\n999-9999999-99\n\nSometimes the client is from another country and has a bank nr with another picture.\n\nHow can I change the picture of the field when the window is running.\n\nThe idea is to start all nrs with \"BE\" \n\nSo the picture will be :\n\n\"!!-999-9999999-99\"\n\nwhere the first 2 characters will be by default \"BE\"\n\nWhen the get got focus the position of the cursor should be 4.\n\nWhen the content of the first 2 characters is \"BE\" the picture should have to be \"!!-999-9999999-99\"\nOtherwise the picture should be \"!!-xxxxxxxxxxxxxxx\"\n\nDoes anybody have an idea how to fix this.\n\nThanks\n\nWilly Hermans.\n\nThanks,\n\nWilly','',0,'gA==','1zv0eqaj',1,0,'',473,0,0),(12143,2676,3,75,0,'83.36.141.134',1145790233,1,0,1,1,1,0,'','','Por fin he dado con la mejor solución para generar archivos pdf desde mi programa de forma automática.  \n\nBajar pdfcreator que es gratuito de [color=blue:z9g9cax8]http://sourceforge.net/projects/pdfcreator/ [/color:z9g9cax8]\nInstalarlo. \n\nModificar el registro de windows de la aplicación: \n[color=green:z9g9cax8]HKEY_CURRENT_USER \nSoftware \npdfcreator \nprogram [/color:z9g9cax8]\n\nLos valores de las variables que se deben cambiar para que guarde los ficheros pdf que se van mandando, con el mismo título que le damos al objeto PRINT de nuestro programa (con lo que de esta forma elegimos nosotros el nombre del fichero) son: \n\n[color=green:z9g9cax8]Autosavedirectory[/color:z9g9cax8] [color=blue:z9g9cax8]C:\\KK [/color:z9g9cax8]( o el que más nos guste ) \n[color=green:z9g9cax8]Autosavefilename[/color:z9g9cax8] cambiar el que trae &lt;DateTime&gt; por [color=blue:z9g9cax8]&lt;Title&gt;[/color:z9g9cax8] \n[color=green:z9g9cax8]Autosaveformat[/color:z9g9cax8] [color=blue:z9g9cax8]pdf [/color:z9g9cax8]\n. \n. \n. \n[color=green:z9g9cax8]useautosave[/color:z9g9cax8] [color=blue:z9g9cax8]1 [/color:z9g9cax8]\n\n\nEs muy bueno este programa.','',0,'Ag==','z9g9cax8',1,0,'',75,0,0),(12144,2790,6,53,0,'201.135.241.177',1145800926,1,0,1,1,1,1,'','','William:\n\nA menos de que se trate de un texto variable te sugiero utilices una imágen creada con PaintShop o Corel.\n\nSi es obligatorio el texto, \"Juega\" con la alineación (Izquierda, Centrado, Derecho, Ajustado) del texto en WS.\n\nSaludos, Armando','',0,'Ag==','1axsvila',1,0,'',53,0,0),(12145,2782,2,53,0,'201.135.241.177',1145801712,1,0,1,1,1,1,'','','Pedro:\n\nLa sintáxis es\n\n&lt;oPrn&gt;:CMSAY(nRow,nCol,cText,oFont,nWidth,nClrText,nBkMode,nPad)\n\nCasi todo esta muy claro a excepción de nBkMode y nPad\n\nnBkMode es un valor numerico que indica la forma en que se mezcla el texto con lel fondo:\n\n1 = Transparente\n2 = Opaco\n\nnPad es un valor numerico indicando como se alinea el texto a imprimir, por omision se usa PAD_LEFT\n\n#Define PAD_LEFT       0\n#Define PAD_RIGHT    1\n#Define PAD_CENTER  2\n\nEjemplo:\n\noPrn:cmSay( nRow,18.5, Transf(CFAC-&gt;bruto,\"@E 999,999.99\"),aoFont[2],,,,2)\n\nSaludos, Armando','',0,'','2f5j93tf',1,0,'',53,0,0),(12146,2792,6,52,0,'200.127.195.89',1145802632,1,0,1,1,1,1,'','Copy TO &quot;temp.dbf&quot; FOR ....','Estimados,\n\n  [code:1kpwxkda]       Copy TO &quot;temp&#46;dbf&quot; FOR CLIENTE-&gt;CLIENTE = &quot;SUPER&quot;[/code:1kpwxkda]\nMe funciona perfectamente, ahora quiero hacer esto: está mal, por eso quiero saber como deberia hacerlo.\n\n[code:1kpwxkda]function filtrame&#40;&#41;\n   local cPor&#58;= &quot;CLIENTE-&gt;CLIENTE = &quot;SUPER&quot;&quot;\n\n   Copy TO &#40; aSetVars&#91; 03 &#93; &#41; FOR cPor\n\n    &#46;&#46;&#46;[/code:1kpwxkda]\n\nQuiero saber como es la forma de correcta de hacer el segundo, porque necesito luego hacer que busque tanto por ese campo CLIENTE como tambien por otro LOCALIDAD, por ejemplo.','',0,'AIA=','1kpwxkda',1,0,'',52,0,0),(12147,2790,6,52,0,'200.127.195.89',1145803132,1,0,1,1,1,1,'','','Si mal no recuerdo la clase del señor MERCADO no hacia texto en cualquier angulo? Tsay creo o algo asi.\n\nSaludos','',0,'AIA=','1rj866kf',1,0,'',52,0,0),(12148,2778,6,228,0,'200.119.74.5',1145804483,1,0,1,1,1,1,'','En este momento lo estoy haciendo de esta manera','En este momento lo solucione como dice Rene y quedara asi en la aplicación.\n\n[code:315hbawf]\n   &#58;&#58;vMese     &#58;= &#123;&quot;Enero&quot;,&quot;Febrero&quot;,&quot;Marzo&quot;,&quot;Abril&quot;,&quot;Mayo&quot;,&quot;Junio&quot;,&quot;Julio&quot;,&quot;Agosto&quot;,&quot;Septiembre&quot;,&quot;Octubre&quot;,&quot;Noviembre&quot;,&quot;Diciembre&quot;,&quot;Cierre&quot;&#125;\n\n\n oT1vc3&#58;=EVAL&#40;b&#58;=&#123;||oLamcla&#58;vMese&#91;MONTH&#40;DATE&#40;&#41;&#41;&#93;&#125;&#41;\n\n[/code:315hbawf]\n\nPero de todas formas voy a usar los mensajes en español como dice Antonio.\n\nA todos muchas gracias por sus respuestas','',0,'AIA=','315hbawf',1,0,'',228,0,0),(12149,2793,2,542,0,'88.9.142.100',1145811498,1,0,1,1,1,0,'','error de proteccion general','Hola que tal:\nTengo una aplicacion en Fivewin de contabilidad y en el apartado de compras existe una utilidad que realiza un traspaso automatico del fichero de compras al fichero del diario de apuntes y la opcion funciona bien siempre que no supere un cierto numero de registros, y cuando llega ese punto sale un mensaje de error que dice\n\nError en la aplicación.\nSi escoje Omitir, tendrá que guardar sus datos en un archivo nuevo.\nSi escoje Cerrar su aplicación terminará.\n\ny dos botones Omitir y Cerrar.\n\ncuando pulsamos cualquiera de los dos botones aparece otro mensaje que pone:\n\nCYEWIN ha causado un error de protección general en el \nmodulo CYEWIN.EXE en 002B:D273.\n\nEscoja Cerrar. CYEWIN se cerrará.\n\ny un boton Cerrar.\n\nSi alguien puede ayudarme y explicarme porque puede pasar se lo agraecería.\n\nUn saludo.\n\nCarlos','',0,'AIA=','2igajt07',1,0,'',542,0,0),(12150,2794,4,538,0,'151.44.141.194',1145815541,1,0,1,1,1,0,'','How to insert my FWPPC application in Today or program menu','Thanks for Help in FTP. Now always run very well. Only a little question. How can I insert link to my application in Today Menu or in Programm Menu?\nThanks.\nCiao\nAlfredo','',0,'AIA=','1rii8s3a',1,0,'',538,0,0),(12151,2682,3,148,0,'62.135.92.46',1145817244,1,0,1,1,1,0,'','','I reduced a sample you can compile it direct. Pls my problem is the the value of of the combobox is not being transfered to the get box .\n[code:3b91t3vc]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;colors&#46;ch&quot;\n#include &quot;Folder&#46;ch&quot;\n#include &quot;InKey&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n#include &quot;ads&#46;ch&quot; \n\nstatic oWnd\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\nlocal oDlg\nlocal V_cu_city&#58;=space&#40;30&#41;\nlocal V_cu_coun&#58;=space&#40;30&#41;\nlocal V_cu_counc&#58;=space&#40;30&#41;\nlocal oGet\n\n\nselect 1\nUSE cust\n\n\n\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 500, 700 PIXEL \n\n\n\n   @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n   @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n   @ 45,200 COMBOBOX V_cu_counc ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41; size 80,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;V_cu_coun&#58;=cust-&gt;cu_coun,oGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n \n   ACTIVATE DIALOG oDlg CENTERED\n\n\nreturn nil\n\n\nFUNCTION aBase&#40;workarea,dbf_na,arr_size,fld_na&#41;\n//-------------------------------------\nLOCAL arr&#58;=&#123;&#125;,nAreaActiv&#58;=Select&#40;&#41;\nLOCAL y&#58;=0\n\naAdd&#40;arr,space&#40;arr_size&#41;&#41; //Put First element empty\n\nselect &#40;workarea&#41;\nuse &#40;dbf_na&#41;\nSELE &#40;dbf_na&#41;\ndbGoTop&#40;&#41;\n\n\nWHILE!Eof&#40;&#41;\ny&#58;=ASCAN&#40;arr,&#40;dbf_na&#41;-&gt;&amp;fld_na&#41;                      \nif y==0\naAdd&#40;arr,&#40;dbf_na&#41;-&gt;&amp;fld_na&#41;\ndbSkip&#40;&#41;\nelse\ndbSkip&#40;&#41;\nendif\nENDDO\n\nSELE &#40;nAreaActiv&#41;\n\nRETURN&#40;arr&#41;\n\n[/code:3b91t3vc]','',0,'AIA=','3b91t3vc',1,0,'',148,0,0),(12152,2792,6,121,0,'201.154.73.172',1145822579,1,0,1,1,1,1,'','','PRUEBA CON \n\nCOPY TO ... FOR &amp;cpor','',0,'AIA=','1ac89nik',1,0,'',121,0,0),(12153,2682,3,6,0,'87.17.213.108',1145827478,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:179hcn4a]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oCbx, oGet\n\n    LOCAL cVar1 &#58;= &quot;&quot;\n    LOCAL cVar2 &#58;= SPACE&#40; 30 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 COMBOBOX oCbx VAR cVar1;\n           ITEMS &#123; &quot;First&quot;, &quot;Second&quot;, &quot;Third&quot; &#125;;\n           ON CHANGE &#40; oGet&#58;VarPut&#40; PADR&#40; cVar1, LEN&#40; cVar2 &#41; &#41; &#41;,;\n                       oGet&#58;Refresh&#40;&#41; &#41;\n\n    @ 3, 1 GET oGet VAR cVar2\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:179hcn4a]\n\nEMG','',0,'AIA=','179hcn4a',1,0,'',6,0,0),(12154,2790,6,492,0,'201.154.126.17',1145831617,1,0,1,1,1,1,'','','William :\n\nEsta funcion te puede ayudar, pertenece a Cesar Lozada.\n\n******************************************************************************\n* Function SayRotated(oWnd,Y,X,cPrompt,oFont,nClrText,nClrPane,l3D)\n* Dibuja un texto rotado\n*   oWnd: Ventana / diálogo\n*   Y,X: coordenadas en pixels del inicio del texto (nTop, nLeft)\n*   oFont: Fuente (definir antes) // debe ser True Type\n*   nClrText,nClrPane: Colores de texto y fondo. Si éste ultimo es nil se\n*                      pinta transparente\n*   l3D: Con efecto 3D\n*\n* César E. Lozada   (<!-- e --><a href=\"mailto:cesarlozada@hotmail.com\">cesarlozada@hotmail.com</a><!-- e -->)\n* Los Teques, Venezuela       Marzo 25, 2003\n*\n******************************************************************************\n#include \"Fivewin.ch\"\n******************************************************************************\nFunction Test\n  Local oDlg, oFont1, oFont2\n  DEFINE FONT oFont1 NAME \"Arial\" SIZE 0,-36 NESCAPEMENT 90*10\n  DEFINE FONT oFont2 NAME \"Arial\" SIZE 0,-24 BOLD NESCAPEMENT 45*10\n\n  DEFINE DIALOG oDlg FROM 0,0 TO 20,40 COLOR CLR_BLACK,CLR_WHITE;\n    TITLE \"Textos rotados\"\n\n  ACTIVATE DIALOG oDLg CENTERED;\n    ON PAINT( SayRotated(oDlg,235,0,\"90 grados 3D\",oFont1,,,.t.),;\n              SayRotated(oDlg,125,50,\"45 grados\",oFont2,CLR_HRED,CLR_YELLOW,.f.))\n\n  RELEASE FONT oFont1\n  RELEASE FONT oFont2\nreturn\n******************************************************************************\nFunction SayRotated(oWnd,Y,X,cPrompt,oFont,nClrText,nClrPane,l3D)\n  Local hDC:=oWnd:hDC\n  DEFAULT nClrText:=CLR_BLUE, l3D:=.T.\n  \n  IF l3D\n    DrawRotated(hdc, cPrompt, Y + 1, X + 1, CLR_BLACK,nClrPane,oFont)\n    DrawRotated(hdc, cPrompt, Y - 1, X - 1, nClrText,nClrPane,oFont)\n  ENDIF\n  DrawRotated(hdc, cPrompt, Y , X , nClrText,nClrPane,oFont)\n\nreturn\n******************************************************************************\nStatic Function DrawRotated(hDC,cPrompt,Y,X,nClrText,nClrPane,oFont)\n  Local hOldFont, nOldMode, nOldClrText, nOldClrPane\n\n  nOldClrText:=SetTextColor(hDC,nClrText)\n  if nClrPane&lt;&gt;nil\n    nOldClrPane:=SetBkColor(hDC,nClrPane)\n  else\n    nOldBkMode:=SetBkMode(hDC,1)\n  endif\n  hOldFont:=SelectObject(hDC,oFont:hFont)\n  TextOut(hDC,Y,X,cPrompt,Len(cPrompt))\n  SelectObject(hDC,hOldFont)\n  if nClrPane&lt;&gt;nil\n    SetBkColor(hDC,nOldClrPane)\n  else\n    SetBkMode(hDC,nOldBkMode)\n  endif\n  SetTextColor(hDC,nOldClrText)\nreturn\n******************************************************************************\n\nYa la he probado y funciona muy bien.\n\nEspero te sirva.\n\nSaludos','',0,'AIA=','2j289rnh',1,0,'',492,0,0),(12155,2772,6,492,0,'201.154.126.17',1145832447,1,0,1,1,1,1,'','','Hola Luis\n\nEs posible que cada uno de nosotros maneje de manera particular esa funcion, en mi caso, creo un archivo donde asigno a cada usuario si puede accesar o no a X accion de la App, si puede aplicar o no X operacion, etc.\n\nY ya es asunto del jefe de personal o del propio dueño, dicha asignacion de privilegios.\n\n[img:q8xg31oe]http&#58;//img225&#46;imageshack&#46;us/img225/2927/usrs10mk&#46;jpg[/img:q8xg31oe]\n\n[img:q8xg31oe]http&#58;//img225&#46;imageshack&#46;us/img225/8231/usrs20qd&#46;jpg[/img:q8xg31oe]\n\n\n\nSaludos','',0,'CA==','q8xg31oe',1,0,'',492,0,0),(12156,2793,2,74,0,'190.48.210.108',1145832545,1,0,1,1,1,1,'','','Carlos:\n\n-Fijate que los indices esten bien\n\n-Que tengas stacksize y heapsize suficientes\n\n-Pone un sysrefresh cada 100 registros procesados\n\n-Compila con MAP A,S y pegale una miradita a la direccion de la gpf\n\nSaludos,','',0,'CA==','24m78pa6',1,0,'',74,0,0),(12157,2795,2,74,0,'190.48.210.108',1145832854,1,0,1,1,1,1,'','Enviar teclas a una ventana','Compañeros:\n\n                    Desde mi aplicacion fw ejecuto un programa externo con winexec, lugo capturo la ventana con twcapture(), pero no consigo enviarle a la ventana las teclas CTRL+C para salir de ese programa, he intentado:\n\n								oWndCapt:keydown( 67,VK_CONTROL )\n								oWndCapt:keydown( CHR(67),VK_CONTROL )\noWndCapt:keydown(CHR(67) , CHR(17) )\n\ny lo mismo con <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->OSTMSG(), :__keyboard() y :KeyToggle() sin resultados.\n\n                     Alguien me puede dar una mano.\n\nSaludos,','',0,'CA==','f4sqd9zi',1,0,'',74,0,0),(12158,2766,6,492,0,'201.154.126.17',1145832971,1,0,1,1,1,1,'','','Gracias Rafael\n\nEstaba tambien peleando con el GetTask() y no me funcionaba bien, tu repuesta me cayo como caida del cielo  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->    <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos','',0,'CA==','36h3131v',1,0,'',492,0,0),(12159,2697,6,492,0,'201.154.126.17',1145833240,1,0,1,1,1,1,'','','Antonio\n\nEl PreView si contiene la instruccion como lo indicas, e inclusive, cambie el nombre de la toolbar que manejo ya que tambien se llamaba - oBar -, pero sigue con el mismo resultado   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'CA==','66dmvkf8',1,0,'',492,0,0),(12160,2713,6,492,0,'201.154.126.17',1145833783,1,0,1,1,1,1,'','','WWOOOOWWW  !!!!!!!!\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->    <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->    <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->    <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nCarlos, eres un genio !!!!\n\n\nYa no me cerro la App, hay algunos detalles en algunas pantallas, pero creo que seran faciles de arreglar.\n\nGracias amigo, te veo por privado mañana lunes   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'CA==','399ffmxv',1,0,'',492,0,0),(12161,2796,6,252,0,'201.140.19.171',1145842413,1,0,1,1,1,0,'','Como evito que se cierre un dialogo al presionar &lt;Escape&','Hola colegas.\n\n     Necesito desactivar el cierre de un dialogo cuando se presiona la tecla &lt;Escape&gt;. ¿Alguien sabe como hacerlo?.\n\n     Uso FWH 2.4 y Xharbour 0.99.3.\n\n\n    De antemano muchas gracias.\n\n    Jose Ríos.','',0,'CA==','3t5an5wy',1,0,'',252,0,0),(12162,2784,6,37,0,'200.121.250.80',1145847216,1,0,1,1,1,1,'','','Antonio, gracias, efectivamente era un ENDPAGE de mas\nGracias nuevamente, saludos','',0,'CA==','13pt8p71',1,0,'',37,0,0),(12163,2796,6,295,0,'201.222.150.149',1145847490,1,0,1,1,1,1,'','','José, condiciona la salida del dialogo con una variable  \n\n\nlocal lSale :=.f.\nlocal oDlg\nDEFINE DIALOG oDlg RESOURCE \"ODLG_FACTURA\" TITLE \"mi dialogo\"\n\n REDEFINE BTNBMP oB311 ID 311 RESOURCE \"SALIR\" OF oDlg ACTION (lSale:=.t., oDlg:end());\nACTIVATE DIALOG oDlg  VALID lSale','',0,'CA==','kjmwkdip',1,0,'',295,0,0),(12164,2772,6,295,0,'201.222.150.149',1145847734,1,0,1,1,1,1,'','','Gracias Amigos por sus respuestas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nYa lo tengo resuelto, hay que armar un programa para esto\n\n\nSaludos','',0,'CA==','1hf0n28j',1,0,'',295,0,0),(12165,2790,6,54,0,'201.137.108.73',1145853656,1,0,1,1,1,1,'','','Gracias a todos por contestar, haré las pruebas.\n\nSiempre es bueno saber que contamos con ustedes, gracias por estar.','',0,'CA==','1540ys61',1,0,'',54,0,0),(12166,2797,6,81,0,'80.28.244.140',1145867161,1,0,1,1,1,0,'','Acceso CVS anonimo de Harbour','Poseso,\nalguien puede acceder ??\nLlevo 10 dias con este problema y no hay forma. \nSaludos','',0,'CA==','2ij3r3el',1,0,'',81,0,0),(12167,2797,6,2,0,'87.218.146.58',1145868975,1,0,1,1,1,1,'','','Rafa, \n\nParece que está caido el servidor con logín anónimo. \n\nCon identificación si accede bien, porque accede a otro servidor.','',0,'CA==','nvflnjh4',1,0,'',2,0,0),(12168,2797,6,2,0,'87.218.146.58',1145869250,1,0,1,1,1,1,'','','Rafa,\n\nAqui lo tienes construido a fecha de hoy 24 Abril 2006:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/016ece0f31/harbour.EXE.html\">http://hyperupload.com/download/016ece0 ... r.EXE.html</a><!-- m -->','',0,'CA==','iie28ata',1,0,'',2,0,0),(12169,2668,3,26,0,'84.255.245.173',1145869958,1,0,1,1,1,1,'','','Hello!\n[quote=&quot;Marco Turco&quot;:31brs9vc]&gt;P.S. How many Win95/3.11 customers do you have? \n\nI don\'t support Win3.11 anymore but 40-50 customers (on about 5000) still have a Win 95 OS.\n\nI spoke with a Win95 customer just today and all runs fine after I removed these functions. \n\nI will try now to make my company the leader as Win95 software supplier <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n[/quote:31brs9vc]\n\nLong live Windows 95!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nBTW, here are two cool pages about Win95:\n\"Thoughts of a Windows Purist\"\n<!-- m --><a class=\"postlink\" href=\"http://home.pacbell.net/drakcap/Purist1.htm\">http://home.pacbell.net/drakcap/Purist1.htm</a><!-- m -->\n\"ERPMan\'s Windows 95 SP1 &amp; OSR2.x System Updates Page\"\n<!-- m --><a class=\"postlink\" href=\"http://erpman1.tripod.com/win95upd.html\">http://erpman1.tripod.com/win95upd.html</a><!-- m -->\n\nBest regards, Roman','',0,'gA==','31brs9vc',1,0,'',26,0,0),(12170,2726,7,456,0,'217.127.39.57',1145873198,1,0,1,1,1,1,'','','A falta de respuestas, imagino que no puede hacerse. Entonces el planteamiento es el siguiente, el GET en el recurso sin caja. Y dibujar una caja alrededor del GET cuando proceda. Lo he intentado con WndBox(), pero no lo he conseguido, alguna idea.\n\nGracias.','',0,'gA==','3o9jsvjx',1,0,'',456,0,0),(12171,2798,6,439,0,'190.0.135.172',1145878908,1,0,1,1,1,1,'','Otras Clases de Vikthor y The Full','He oído que ambos han desarrollado clases muy interesantes, algunas de ellas se venden, otras (creo que las que han sido puestas ya en el foro) gratuitas. <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> \n\nMe interesaría saber de las primeras, ya que en particular vi una clase ChartFX muy interesante por allí.\n\nSi estos amigos están por allí y quisieran ponerme al tanto de cuales son sus clases disponibles para xHarbour.  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nEspero sus mails a: <!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e --> <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','26oqz07g',1,0,'',439,0,0),(12172,2766,6,196,0,'201.250.112.237',1145881292,1,0,1,1,1,0,'','','Gracias por la respuesta. De todas maneras se me ocurrio modificar la funcion GetTasks() y asi obtengo las aplicaciones corriendo en el numero en que se repitan. Aca va mi GetTasks()\n\n//----------------------------------------------------------------------------//\nFunction GetTask()\n   local hWnd   := GetWindow( GetActiveWindow(), GHW_HWNDFIRST )\n   local aTasks := {}\n   local cTask\n\n   while hWnd != 0\n      #ifdef __CLIPPER__\n         cTask = GetModuleFileName( GetWindowWord( hWnd, GWW_HINSTANCE ) )\n      #else\n         cTask = GetWindowText( hWnd ) // The above does now work <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n      #endif\n\n      AAdd( aTasks, cTask )\n      hWnd = GetWindow( hWnd, GHW_HWNDNEXT )\n   end\nReturn aTasks\n//----------------------------------------------------------------------------//','',0,'gA==','148vj5dc',1,0,'',196,0,0),(12173,2792,6,196,0,'201.250.112.237',1145882439,1,0,1,1,1,0,'','','Para usar un &amp; tenes que declarar la variable como Private, pero si queres filtrar algo o buscar Yo haria un indice y asi podria usar un seek.\n\nSaludos\nJorge Jaurena','',0,'gA==','3p0qornb',1,0,'',196,0,0),(12174,2799,17,242,0,'81.45.227.110',1145882895,1,0,1,1,1,0,'','Para Manu Ramos (diálogo con sombra)','Hola, he estado probando el código que publicabas en el mensaje pero no logro ver la sombra, si bien estoy siguiendo tus indicaciones. ¿Tiene que ver la versión de Fivewin que se utilice? \n\nUn saludo, \nFernando','',0,'gA==','31bnv25b',1,0,'',242,0,0),(12175,2800,1,242,0,'81.45.227.110',1145882976,1,0,1,1,1,0,'','Para Manu Ramos (diálogo con sombra)','Hola,\nHe estado probando el código que publicabas en el mensaje pero no logro ver la sombra, si bien estoy siguiendo tus indicaciones. ¿Tiene que ver la versión de Fivewin que se utilice? \n\nUn saludo, \nFernando','',0,'gA==','4a4cod27',1,0,'',242,0,0),(12176,2801,2,242,0,'81.45.227.110',1145883061,1,0,1,1,1,0,'','Para Manu Ramos (diálogo con sombra)','Hola, \nHe estado probando el código que publicabas en el mensaje pero no logro ver la sombra, si bien estoy siguiendo tus indicaciones. ¿Tiene que ver la versión de Fivewin que se utilice? \n\nUn saludo, \nFernando','',0,'gA==','2okj4wmf',1,0,'',242,0,0),(12177,2768,6,237,0,'200.68.70.89',1145883119,1,0,1,1,1,0,'','Error con el debugger','Antonio\n\nYa informé del error a xHarbour. \n\nGracias\nSalu2','',0,'gA==','wc7tuzqx',1,0,'',237,0,0),(12178,2726,7,262,0,'83.97.168.182',1145884142,1,0,1,1,1,1,'','','asi a primeras miraste dos get superpuestos uno con caja y otro sin ella y ocultar el que no se desea ? ( o tambien un get y un say ) .\nAtención ten en cuenta que se apilan en recursos al reves de como lo ves en el programa , de tal manera que si pones en recursos delante el say , te quedará detras al ejecutar .\nNo se si sirve pero ....\nSaludso.','',0,'gA==','l02gqe4s',1,0,'',262,0,0),(12179,2771,19,141,0,'200.88.94.228',1145885173,1,0,1,1,1,1,'','','Gracias Antonio,\n\nAbrazos,','',0,'gA==','373nas9f',1,0,'',141,0,0),(12180,2802,6,203,0,'200.107.17.15',1145886557,1,0,1,1,1,1,'','DBFS CON NOMBRES DE CAMPOS LARGOS','Hola a todos\n\nAmigos necesito crear archivos dbfs con nombres de campos superiores a 10 caracters, no se si existe alguna herramienta que me lo permita \nagradeceria su ayuda\n\nAtentamente;\n\n\nOscar','',0,'gA==','1uj46z0c',1,0,'',203,0,0),(12181,2803,3,217,0,'201.26.21.188',1145887822,1,0,1,1,1,0,'','Use [?] button in dialogs NoModal','Antonio and all:\n\nIs possible to use the \"?\" button with dialogs NoModal?\nWith \'normal\'  dialogs it work fine, I click \"?\" button and in any control and it display the help. But in NoModal dialogs I click \"?\" and it do nothing <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nBest regards\nMaurilio','',0,'gA==','vxpd9bsa',1,0,'',217,0,0),(12182,2778,6,255,0,'200.67.175.250',1145888308,1,0,1,1,1,1,'','','Lo mas optimo es la solucion que \nofrece Linares, ya que no solo te cambiarán\nlos mensajes de los meses, sino que todos\nlos demas mensajes serán cambiados a\nespañol.\n\nSaludos','',0,'gA==','1yumns8t',1,0,'',255,0,0),(12183,2804,6,52,0,'200.127.195.89',1145888754,1,0,1,1,1,1,'','BtnGet sin BORDE','Estimados,\n\nNEcesito hacer que el BTNGET no tenga ese bordecito de color. Como se hace?\n\nGratoski.','',0,'gA==','1yu8vbd1',1,0,'',52,0,0),(12184,2726,7,456,0,'217.127.39.57',1145888795,1,0,1,1,1,1,'','','Gracias Jose Luis por la respuesta. Tus comentarios siempre son de ayuda. \n\nAl final persevere con el tema de WndBox, y consegui que se comportase tal cual queria. \n\nEs un get en el detalle de albaranes en el que se introduce el nº de lote para trazabilidat. Este Get depende de un buleano definido en un fichero de configuracion. \nAl final lo hago así:\n[code:1eym0qni] &#46;&#46;&#46;\n   REDEFINE GET oGetLot VAR DetVtaTmp-&gt;Lote   ID 604 OF oDlg PICTURE &quot;@K&quot; VALID &#123;|oGet|Ajusta&#40;oGet&#41;&#125;\n\n   IF Cfg-&gt;Lotes //&lt;====\n      REDEFINE SAY oSayLote PROMPT \'Lote\' ID 4002 OF oDlg COLOR CLR_BLACK, CLR_WHITE\n   ELSE\n      oGetLot&#58;Disable&#40;&#41; //Podria hacerse en el WHEN del GET\n   ENDIF\n   //--\n   &#46;&#46;&#46;\n   //-\n   ACTIVATE DIALOG oDlg ;\n            ON INIT IF&#40;!SipInfo&#40;&#41;&#46;AND&#46;Cfg-&gt;lSip,ShowKeyboard&#40;&#41;,NIL&#41; ;\n            ON PAINT IF&#40;Cfg-&gt;Lotes,WndBox&#40;hDc,103,117,83,200&#41;,&#41; //Dibujo box cuando Lotes &#46;t&#46;\n&#46;&#46;&#46;\n[/code:1eym0qni]','',0,'AIA=','1eym0qni',1,0,'',456,0,0),(12185,2805,6,228,0,'200.119.74.124',1145891055,1,0,1,1,1,1,'','Como refrescar un combobox en tiempo de ejecucción','Amigos del foro necesito refrescar el array de combobox en tiempo de ejeccución.. lo estoy haciendo de la siguiente manera pero no me funciona....\n\n[code:19b81lah]\noCombo&#58;aItems &#58;= &#123;&#125;\noCombo&#58;aItems &#58;= ACLONE&#40;oComlis&#41;\noCombo&#58;Refresh&#40;&#46;t&#46;&#41;\n[/code:19b81lah]','',0,'AIA=','19b81lah',1,0,'',228,0,0),(12186,2805,6,41,0,'200.87.67.10',1145891718,1,0,1,1,1,0,'','','Hola,\n\noCombo:setItems(  oComlis )  \n\nsaludos\n\nMarcelo[/quote]','',0,'','2787wqyq',1,0,'',41,0,0),(12187,2785,6,93,0,'201.138.114.177',1145892558,1,0,1,1,1,0,'','','Hola Antonio:\n\nCorregido con xharbour, muchas gracias. \n\nFernando Castro','',0,'','2xyplcbi',1,0,'',93,0,0),(12188,2804,6,362,0,'200.168.52.156',1145897544,1,0,1,1,1,1,'','','NOBORDER','',0,'','bdiqzofl',1,0,'',362,0,0),(12189,2668,3,303,0,'72.199.41.171',1145898432,1,0,1,1,1,0,'','','In my experience Windows 95 has terrible memory management. I had lots of crashes with my FW apps (16bit) under Windows 95 which caused me a lot of tech support. I never had the same problems under NT, 2000, or XP.\n\nJames','',0,'','2d2828am',1,0,'',303,0,0),(12190,2806,2,510,0,'201.243.182.44',1145899000,1,0,1,1,1,0,'','CAMBIOS EN EL FOLDER','Esimados compañeros quisiera saber si alguien me puede decir,\ntengo un folder con tres carpetas, como hago cuando introduzco el ultimo get de la primera carpeta esta pase automaticamente a la seguda carpeta\ny al introducir el ultimo de la segunda pase para la tercera\n\n          de antemano muchas gracias\n          William Neskers (Venezuela)','',0,'','tq07irfe',1,0,'',510,0,0),(12191,2791,3,303,0,'72.199.41.171',1145899558,1,0,1,1,1,0,'','','You could try using ON CHANGE and changing the picture (oGet:oGet:cPicture). \n\nBut I would just let the user type in whatever they want, then post process it to put it in the correct format and put it back into the GET. If it doesn\'t appear to be valid data, then you can turn the background a different color to signify that the data is invalid.\n\nJames','',0,'','3auo1j2m',1,0,'',303,0,0),(12192,2807,6,104,0,'201.58.63.61',1145901720,1,0,1,1,1,0,'','Para Antonio - Combobox + bkeydown','Olá Antonio,\n\nVeja no exemplo abaixo quando eu teclo \"ESC\" no GET ele me retorna a tecla pressionada. Já no COMBOBOX isto não está funcionando. Como fazer isto funcionar ?\n\n[code:14o4cmun]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n\n   local oDlg, cCombo &#58;= &quot;2&quot;, oCombo, oGet, cGet &#58;= space&#40;10&#41;\n   local aItems &#58;= &#123; &quot;1&quot;, &quot;2&quot;, &quot;3&quot; &#125;\n\n   DEFINE DIALOG oDlg FROM 2, 2 TO 18, 60 TITLE &quot;Test&quot; ;\n      STYLE nOr&#40; DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 &#41;\n\n   @ 1, 1 get      oGet   var cGet   SIZE 50, 12\n\n   oGet&#58;bkeydown &#58;= &#123; |nKey| msgstop&#40; nKey &#41; &#125;\n\n   @ 2, 2 COMBOBOX oCombo var cCombo ITEMS aItems SIZE 200, 100\n\n   oCombo&#58;bkeydown &#58;= &#123; |nKey| msgstop&#40; nKey &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n[/code:14o4cmun]\n\nObrigado,\n\nRossine.','',0,'AIA=','14o4cmun',1,0,'',104,0,0),(12193,2804,6,52,0,'200.127.195.89',1145901808,1,0,1,1,1,1,'','','JUA, \n\nGracias, la ovbiedad oviedo, la oviedad.','',0,'AIA=','34288eya',1,0,'',52,0,0),(12194,2801,2,375,0,'84.122.107.146',1145903825,1,0,1,1,1,1,'','','No se que versión tienes de la clase TDIAG, que como la he cambiado ligeramente, te la vuelvo a pegar a continuación. Después te explico como la uitlizo: \n\n#Include \"FiveWin.ch\" \n\n#define GWL_STYLE -16 \n#define GWL_EXSTYLE -20 \n#define WS_EX_TRANSPARENT 32 \n\nCLASS TDIAG OF TDIALOG \n\nCLASSDATA lRegistered AS LOGICAL \n\nDATA lSomb AS LOGICAL INIT .F. \nDATA hFond,hPen,nDif \n\nMETHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) \nMETHOD Initiate( hWndFocus, hWnd ) \nMETHOD Paint() \nMETHOD StartPaint() \nMETHOD PintSombra() \nMETHOD Destroy() \n\nENDCLASS \n\n\nMETHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) CLASS TDIAG \nIF nClrShadow # NIL \n::lSomb := .T. \n::hPen := CreatePen( 0,1,nClrShadow ) \nENDIF \nDEFINE BRUSH ::oBrush NULL \nRETURN Super:Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen ) \n\nMETHOD Initiate( hWndFocus, hWnd ) CLASS TDIAG \nLOCAL lFocus := Super:Initiate( hWndFocus, hWnd ) \n* \n::nDif := IF(lAnd(GetWindowLong(::hWnd,GWL_STYLE),WS_BORDER),1,0) \n::bStart := { || ::StartPaint() } \n* SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) ) \nRETURN lFocus \n\nMETHOD Paint() CLASS TDIAG \nDrawBitmap( ::hDc, ::hFond, -::nDif, -::nDif ) \nIF ::bPainted # NIL \nEVAL(::bPainted,::hDc) \nENDIF \nRETURN NIL \n* \nMETHOD StartPaint() CLASS TDIAG \nIF ::lSomb \n::GetDc() \n::PintSombra(::hDc) \n::ReleaseDc() \nENDIF \nIF ::bPainted # NIL \nEVAL(::bPainted,::hDc) \nENDIF \n::hFond := WndBitmap(::hWnd) \nRETURN NIL \n* \nMETHOD PintSombra(hDc) CLASS TDIAG \nLOCAL hOldP := SelectObject( hDc,::hPen ) \nLOCAL nCont1,nCont2 := 0 \nLOCAL nDesde := 2 \nLOCAL nHasta := ::nWidth+::nHeight-2 \n* \nFOR nCont1 = nDesde TO nHasta STEP 2 \nnCont2 := nCont1 - ::nHeight \nMoveTo(hDc,nCont1,0) \nLineTo(hDc,nCont2,::nHeight) \nMoveTo(hDc,nCont2,0) \nLineTo(hDc,nCont1,::nHeight) \nNEXT \nSelectObject( hDc,hOldP ) \nRETURN NIL \n\nMETHOD Destroy() CLASS TDIAG \nDeleteObject(::hFond) \nDeleteObject(::hPen) \nRETURN NIL \n\nNo tienes más que copiar y pegar en tu editor, es muy cortita.\n\nCrea un fichero de  cabecera con.\n\n#xcommand DEFINE TRANSPDIAG &lt;oDlg&gt; ; \n[ &lt;resource: NAME, RESNAME, RESOURCE&gt; &lt;cResName&gt; ] ; \n[ TITLE &lt;cTitle&gt; ] ; \n[ FROM &lt;nTop&gt;, &lt;nLeft&gt; TO &lt;nBottom&gt;, &lt;nRight&gt; ] ; \n[ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ; \n[ &lt;lib: LIBRARY, DLL&gt; &lt;hResources&gt; ] ; \n[ &lt;vbx: VBX&gt; ] ; \n[ STYLE &lt;nStyle&gt; ] ; \n[ &lt;color: COLOR, COLORS&gt; &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ; \n[ BRUSH &lt;oBrush&gt; ] ; \n[ &lt;of: WINDOW, DIALOG, OF&gt; &lt;oWnd&gt; ] ; \n[ &lt;pixel: PIXEL&gt; ] ; \n[ ICON &lt;oIco&gt; ] ; \n[ FONT &lt;oFont&gt; ] ; \n[ &lt;help: HELP, HELPID&gt; &lt;nHelpId&gt; ] ; \n=&gt; ; \n&lt;oDlg&gt; = TDIAG():New( &lt;nTop&gt;, &lt;nLeft&gt;, &lt;nBottom&gt;, &lt;nRight&gt;,; \n&lt;cTitle&gt;, &lt;cResName&gt;, &lt;hResources&gt;, &lt;.vbx.&gt;, &lt;nStyle&gt;,; \n&lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;oBrush&gt;, &lt;oWnd&gt;, &lt;.pixel.&gt;,; \n&lt;oIco&gt;, &lt;oFont&gt;, &lt;nHelpId&gt;, &lt;nWidth&gt;, &lt;nHeight&gt; ) \n\n#xcommand ACTIVATE TRANSPDIAG &lt;oDlg&gt; ; \n[ &lt;center: CENTER, CENTERED&gt; ] ; \n[ &lt;NonModal: NOWAIT, NOMODAL&gt; ] ; \n[ WHEN &lt;uWhen&gt; ] ; \n[ VALID &lt;uValid&gt; ] ; \n[ ON [ LEFT ] CLICK &lt;uClick&gt; ] ; \n[ ON INIT &lt;uInit&gt; ] ; \n[ ON MOVE &lt;uMoved&gt; ] ; \n[ ON PAINT &lt;uPaint&gt; ] ; \n[ ON RIGHT CLICK &lt;uRClicked&gt; ] ; \n[ &lt;color: COLORSOMBRA&gt; &lt;nClrShadow&gt;] ; \n=&gt; ; \n&lt;oDlg&gt;:Activate( &lt;oDlg&gt;:bLClicked [ := {|nRow,nCol,nFlags|&lt;uClick&gt;}], ; \n&lt;oDlg&gt;:bMoved [ := &lt;{uMoved}&gt; ], ; \n&lt;oDlg&gt;:bPainted [ := {|hDC,cPS|&lt;uPaint&gt;}],; \n&lt;.center.&gt;, [{|Self|&lt;uValid&gt;}],; \n[ ! &lt;.NonModal.&gt; ], [{|Self|&lt;uInit&gt;}],; \n&lt;oDlg&gt;:bRClicked [ := {|nRow,nCol,nFlags|&lt;uRClicked&gt;}],; \n[{|Self|&lt;uWhen&gt;}],&lt;nClrShadow&gt; ) \n\nComo verás es muy similar a DIALOG.CH \n\n¿Cómo la empleo yo?, muy fácil: \n\n1) creo la funcion que va a pintar la sombra: \n\nFUNCTION SombWin(oWin,nDesp,nClr) \nLOCAL oDls,aPt1[2],aPt2[2] // nDesp ES EL DESPLAZAMIENTO RESPECTO DEL DIALOGO \nLOCAL hSom,hWin // nClr ES EL COLOR DE LA SOMBRA \nLOCAL lTop := .F. \n\nDEFAULT nDesp := 10 , ; \nnClr := RGB(80,80,80) \n* \noWin:CoorsUpdate() \nhWin := GetWindow( oWin:hWnd,4 ) \nSysRefresh() \naPt1[1] := oWin:nTop + ( nDesp * 1.33 ) \naPt2[1] := oWin:nBottom+ nDesp \naPt1[2] := oWin:nLeft + ( nDesp * 1.33 ) \naPt2[2] := oWin:nRight + nDesp \nIF hWin = 0 \naPt1[1] := -2 \naPt1[2] := -1 \naPt2[1] := -2 \naPt2[2] := -1 \nELSE \nSetActiveWindow(hWin) \nENDIF \nClientToScreen( hWin, aPt1) \nClientToScreen( hWin, aPt2) \nnDesp:= nDesp * 9 \nDEFINE TRANSPDIAG oDls FROM aPt1[1],aPt1[2] TO aPt2[1],aPt2[2] PIXEL STYLE nOR(WS_POPUP,WS_VISIBLE,WS_CHILD ) // (este dialogo es la sombra en sí)\nACTIVATE TRANSPDIAG oDls NOWAIT COLORSOMBRA nClr \nSysRefresh() \nShowWindow(oWin:hWnd, 8 ) \nRETURN oDlS \n\n2) Llamada a la función: \n\nLOCAL oDlg,oSbr \n* \n... \nDEFINE DIALOG oDlg .... // (este es el dialogo que tendrá sombra)\n... \n... \nACTIVATE DIALOG oDlg ON INI oSbr := SombWin(oDlg,10) VALID (oSbr:End(),.T.) \n\nComo verás, es un Dialogo debajo de otro Dialogo.\n_________________\nNos Gusta Programar','',0,'','3fw052fg',1,0,'',375,0,0),(12195,2808,6,52,0,'200.127.195.89',1145904164,1,0,1,1,1,1,'','BTNGET y la enie mayúscula','Estimados,\n\nMiren este código:\n\n[code:3lx9kfot]REDEFINE BTNGET oDatos&#91; 01 &#93; VAR vDatos&#91; 01 &#93;;\n         PICTURE &quot;@!&quot;;\n         ID 118 OF oDlg[/code:3lx9kfot]\n\nOvbiedo ( yo ) dice que cuando corre su app, y quiere escribir la Ñ aparece ñ, y eso que esta todo en mayúsculas. \n\nPorque ocurre esto?','',0,'AIA=','3lx9kfot',1,0,'',52,0,0),(12196,2782,2,375,0,'84.122.107.146',1145904406,1,0,1,1,1,1,'','','No sé exactamente por donde se te descuandran los digitos. Por la derecha o por la izquierda. \nEn teoría, según tu código, deberían salir alineados a la derecha, pues seguramente enviaras menos dígitos que \"9\" tiene la máscara (picture). Si quieres que salgan justificados a la izquierda, a pesar de la máscara, utiliza el parámetro \"B\" dentro de ésta: osea \"@EB 999,999.99\"','',0,'AIA=','3ddesptl',1,0,'',375,0,0),(12197,2774,2,375,0,'84.122.107.146',1145904617,1,0,1,1,1,1,'','','Intenta EXI:SetColor( RBG(0,0,0) RBG(128,130,255) ).\nPrueba primero poniéndolo antes del ACTIVATE del Dialogo o, sino, prueba: ON INIT EXI:SetColor( RBG(0,0,0) RBG(128,130,255) ).\nDebería funcionar.','',0,'AIA=','2b0zswmt',1,0,'',375,0,0),(12198,2711,2,375,0,'84.122.107.146',1145905308,1,0,1,1,1,1,'','','No sé si estoy en lo cierto o no, pero creo que lo que RBECARES confunde eventos con mmensajes a clases, y lo que progunta, es una cosa que a mí también me interesaría saber con exactitud; y es: en qué secuencia ejecuta el Windows los METHOD\'s de las clases. \n\nPersonalmente, creo que es, al principio:\n\n1)  NEW() o REDEFINE()\n2)  INITIATE()\n3)  DISPLAY() / PAINT()\n\ny al cerrar el Windows/Dialogo\n\nDESTROY() / END()\n\nLo que no sé, es si son dos métodos equivalentes o secuenciales, es decir si un DESTROY() implica un END() o viceversa, o si uno se ejecuta antes que el otro.','',0,'AIA=','k2h3j9zl',1,0,'',375,0,0),(12199,2796,6,375,0,'84.122.107.146',1145905663,1,0,1,1,1,1,'','','Yo personalmente utilizo la funcion:\n\nFUNCTION NoScape()\nRETURN !( GetKeyStat( 27 ) )\n\nY la llamo desde un valid del dialogo:\n\nDEFINE DIALOG oDlg .....\n...\n...\nACTIVATE oDlg VALID NoScape()\n\nObserva que la función devuelve .T. cuando no se ha pulsado Escape. Por si quieres utilizarlo en conjunción con otras funciones. Por ejemplo\n\nVALID NoScape() .AND. MiFuncion(...)','',0,'AIA=','3v6tf7gx',1,0,'',375,0,0),(12200,2806,2,54,0,'201.137.108.73',1145908151,1,0,1,1,1,1,'','Re: CAMBIOS EN EL FOLDER','[quote=&quot;Wneskers&quot;:12x1s6at]Esimados compañeros quisiera saber si alguien me puede decir,\ntengo un folder con tres carpetas, como hago cuando introduzco el ultimo get de la primera carpeta esta pase automaticamente a la seguda carpeta\ny al introducir el ultimo de la segunda pase para la tercera\n\n          de antemano muchas gracias\n          William Neskers (Venezuela)[/quote:12x1s6at]\n\noGet:bValid := {|| oFld:Setoption( 2) }\n\nEspero te sirva.','',0,'gA==','12x1s6at',1,0,'',54,0,0),(12201,2782,2,500,0,'83.38.185.134',1145908152,1,0,1,1,1,0,'','','Gracias a los tres por sus respuestas.\n\nManuramos la idea es que queden alineados a la derecha, y no a la izquierda. Efectivamente como tu dices, a pesar de la máscara, si envío menos números que ella se desalinean, precisamente por ahí, por ejemplo\n100,00 ,  7,00  y 107,00   de aqui el primero y el último quedan bien alineados, pero el segundo se queda una posición menos a la derecha que los otros dos. \nProbaré con la secuencia descrita por Ricardo y Armando.\n\nSaludos a todos','',0,'gA==','32fk093z',1,0,'',500,0,0),(12202,2809,2,510,0,'201.243.171.227',1145910208,1,0,1,1,1,0,'','PARA MANU RAMOS','Colega disculpa la molestia, te hago la sigiente pregunta CUANDO DICEN CAMBIA LA CLASSE \"XXX\" POR EJEMPLO LA CLASE tget al alterarla como se hace en los programas, se compila aparte?, la libreria la tiene? y como hago para poder aprovechar lo que cambie dentro del programa que refiera a esa clase. Te hago esta pregunta por que soy nuevo con el fivewin 2.7 ademas he trabajado con clipper por 10 años pero nunca en OOP\n         Si me puedieces orientar te lo agradeceria enormemente\n         Atte: William Neskers','',0,'gA==','3uduw4l9',1,0,'',510,0,0),(12203,2726,7,2,0,'80.32.22.38',1145912122,1,0,1,1,1,1,'','','Biel,\n\n&gt; Al final persevere con el tema de WndBox, y consegui que se comportase tal cual queria. \n\nBien. Otra solución sería cambiar el estilo del GET dinamicamente usando SetWindowLong( oGet:hWnd, GWL_STYLE, &lt;estilo previo, excepto borde&gt;).\n\nEl estilo previo se consigue llamando a GetWindowLong() de similar manera, y luego con un nAnd() seleccionar todo excepto el borde.','',0,'gA==','2m3dlsv1',1,0,'',2,0,0),(12204,2803,3,2,0,'80.32.22.38',1145912198,1,0,1,1,1,1,'','','Maurilio,\n\nWe are going to review it.','',0,'gA==','3v33f0bg',1,0,'',2,0,0),(12205,2793,2,542,0,'83.61.52.3',1145912612,1,0,1,1,1,0,'','','Hola Daniel:\n\nGracias por tu interés, he probado todo lo que me has dicho ya que los indices estanbien en stacksice y heapsize tengo 10240, le he puesto 4096 y varios numero y siempre me da en el mismo registro, hoy le he puesto un sysrefresh cada cien registros y cada uno y sigue dando en el mismo sitio, tambien he quitado el registro y me da en el siguiente, he compilado con MAP y con A, lo unico que no se que me dices es lo de mirar la gpf, me podrías indicar como se hace o que es.\n\nUn saludo\n\nCarlos','',0,'gA==','19ph7sza',1,0,'',542,0,0),(12206,2775,6,36,0,'164.77.81.210',1145913172,1,0,1,1,1,0,'','','Estimados\n\nalguien tiene un ejemplo de como abrir una base de datos ADT y que este en el diccionario de datos\n\ndesde ya gracias\nPatricio','',0,'gA==','2kqzo8bs',1,0,'',36,0,0),(12207,2793,2,74,0,'190.48.236.250',1145918634,1,0,1,1,1,1,'','','Carlos:\n\n           En tu .lnk agregas:\n\nMAP A,S\n\n           Y despues de linkear en el directorio del exe se te generara un archivo con el mismo nombre del exe y extension .MAP, ahi veras algo como esto:\n\n Start     Length     Name                   Class                  Group\n 0001:0000 0BB31H     $$$KRNLDR              CODE                   BLIKRNLDR\n 0002:0000 0186FH     SMINEROS               CODE \n 0002:1870 00A19H     BUILDMENU              CODE \n 0002:228A 004F5H     BUILDMENU              CODE \n 0002:2780 00239H     BUILDMENU              CODE \n 0002:29BA 000AAH     SETBRUSH               CODE \n 0002:2A64 000B0H     SOLIDO                 CODE \n 0002:2B14 0009EH     SELCOLOR               CODE \n 0002:2BB2 000B2H     BMPBRUSH               CODE \n 0002:2C64 000EEH     PONEFONDO              CODE \n 0002:2D52 000EAH     ACERCA_DE              CODE \n 0002:2E3C 0010EH     MUESTRAUSU             CODE \n 0002:2F4A 00133H     VAL_EXI                CODE \n 0002:307E 00064H     VPREVIA                CODE \n 0002:30E2 0031CH     MENUPOP1               CODE \n 0002:33FE 0019BH     MENUPOP2               CODE \n 0002:359A 002AEH     MENUPOP3               CODE \n 0002:3848 001A9H     MENUPOP5               CODE \n 0002:39F2 001C8H     ACER                   CODE \n 0002:3BBA 000EFH     CAMBIO                 CODE \n 0002:3CAA 0007EH     CAMBIO                 CODE \n 0002:3D28 001FEH     MENUANUL               CODE \n 0002:3F26 00100H     MENUCONSUL             CODE \n\n           Siguiendo las direcciones y comparando con la de tu gpf (puede no estar la dir exacta, te fijas entre cual y cual queda) sabras cual es la funcion que causa la gpf.\n\n           Y proba ir cambiando los valores de stacksize desde 9000 hasta 14500 aumentando de a 500 y heapsize desde  2048 hasta 4096.\n\n \nSaludos,','',0,'gA==','3kp9prxy',1,0,'',74,0,0),(12208,790,3,15,0,'203.73.91.145',1145919732,1,0,1,1,1,0,'','','Hello\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02bfd94186/FINGERIN.rar.html\">http://hyperupload.com/download/02bfd94 ... N.rar.html</a><!-- m -->\n\nI attach file include Fingerprint picture and sample code.\nyou can buy Fingerprint package for developer.\nOne small Fingerprint + One Fingerprint LIB file\n\nRegards,\n\nRichard','',0,'gA==','31es3dyt',1,0,'',15,0,0),(12209,2660,3,15,0,'203.73.91.145',1145919873,1,0,1,1,1,0,'','','Hello\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02bfd94186/FINGERIN.rar.html\">http://hyperupload.com/download/02bfd94 ... N.rar.html</a><!-- m -->\n\nI attach file include Fingerprint picture and sample code.\nyou can buy Fingerprint package for developer.\nOne small Fingerprint + One Fingerprint LIB file\n\nRegards,\n\nRichard','',0,'gA==','2bhxpdy2',1,0,'',15,0,0),(12210,2477,3,15,0,'203.73.91.145',1145919915,1,0,1,1,1,0,'','','Hello\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02bfd94186/FINGERIN.rar.html\">http://hyperupload.com/download/02bfd94 ... N.rar.html</a><!-- m -->\n\nI attach file include Fingerprint picture and sample code.\nyou can buy Fingerprint package for developer.\nOne small Fingerprint + One Fingerprint LIB file\n\nRegards,\n\nRichard','',0,'gA==','3pwk7iv6',1,0,'',15,0,0),(12211,791,6,15,0,'203.73.91.145',1145919961,1,0,1,1,1,0,'','','Hello\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02bfd94186/FINGERIN.rar.html\">http://hyperupload.com/download/02bfd94 ... N.rar.html</a><!-- m -->\n\nI attach file include Fingerprint picture and sample code.\nyou can buy Fingerprint package for developer.\nOne small Fingerprint + One Fingerprint LIB file\n\nRegards,\n\nRichard','',0,'gA==','90panbmf',1,0,'',15,0,0),(12212,2810,3,292,0,'200.84.204.76',1145924481,1,0,1,1,1,1,'','hbcomm actualizada','Colegas,\nNecesito HBLIB Actualizada\n\nInit_Port( cCom, nBaudios , nBits , cParidad , nStops , 1024  )  devuelve .T. o .F. \n\nLos ejemplos dicen que envian valores numéricos.\n\n\nEn este sitio no  está  : <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/hbcomm.zip\">www.fivetechsoft.com/files/hbcomm.zip</a><!-- w -->','',0,'gA==','1l7k24q1',1,0,'',292,0,0),(12213,2811,18,511,0,'201.248.69.94',1145927819,1,0,1,0,1,0,'','Otro bug con indice condicional','Antonio,\n\n- este caso unicamente sucede cuando el archivo tiene un (1) registro activo,  ( puede tener 10 registros pero 9 borrados )\n- se utiliza un indice condicional !DELETED()\n- un DO WHILE lee todo el archivo y borra el unico registro activo\n- al finalizar DO WHILE ordkeycount() devuelve 1 en lugar de 0\n- si invoco ordkeycount() inmediatamente despues de DELETE funciona bien,   me parece que despues de un DELETE se pierde el eof() y un ordkeycount()   lo restablece\n- no puedo utilizar GO TOP como me recomendastes en lugar de SKIP porque puede haber condiciones para eliminar el registro\n\n\n\n#include \"FiveWin.ch\"\n#include \"ord.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n    local cNumero, nAlgo\n    local aCampos := {{ \'NUMERO\', \'C\', 6, 0 }}\n\n    set delete on\n\n    REQUEST DBFCDX\n    RDDSETDEFAULT( \"DBFCDX\" )\n\n    dbcreate( \'PRUEBA\', aCampos )\n\n    select 1\n    use PRUEBA alias PRUEBA\n\n    APPEND BLANK\n    prueba-&gt;NUMERO := \"1\"\n\n    INDEX ON prueba-&gt;NUMERO TAG prueba1 TO prueba FOR !DELETED()\n    GO TOP\n\n    DO WHILE !eof()\n        IF prueba-&gt;NUMERO = \"1\"\n            DELETE\n        ENDIF\n\n//si comento la siguiente linea funciona mal ( el mensaje abajo muestra 1 )\n//si no lo comento funciona bien ( el mensaje abajo muestra 0 )\n\n//      nAlgo := ordkeycount()\n\n        SKIP\n    ENDDO\n\nmsginfo( ordkeycount() )\n\n    CLOSE ALL\n\nreturn nil\n\nSaludos','',0,'gA==','19vgol4c',1,0,'',511,0,0),(12214,2809,2,74,0,'190.48.236.250',1145935835,1,0,1,1,1,1,'','','William:\n\n            Si modificas una clase de fivewin lo que tenes que haces es incluir el prg correspondiente, x ej. c:\\fwxx\\source\\clases\\tget.prg modificado en tu lista de prg como un prg mas y listo.\n\nSaludos,','',0,'gA==','2ql2yg7e',1,0,'',74,0,0),(12215,2812,6,54,0,'201.137.108.73',1145942098,1,0,1,1,1,1,'','OT. CVS de xHarbour','Saludos,\n\nAlguien podría decir como actualizo desde el CVS de xHarbour, pues hace unas semanas me dice que no hay actualizaciones, lo cual no creo.\n\nUtilizo el usuario anónimo.\n\nMil gracias de antemano','',0,'gA==','2cqhwwn1',1,0,'',54,0,0),(12216,2813,6,52,0,'200.127.195.89',1145942113,1,0,1,1,1,1,'','Exit procedure?','Estimados, \n\nViendo los ejemplos de la clase tExcelScript, me vi con este codigo:\n\n\n[code:2gjvwbvi]FUNCTION Test&#40;&#41;\n  LOCAL cOrigen &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41;&#41; + &quot;browse&#46;xls&quot;\n  LOCAL i\n  oExcel &#58;= TExcelScript&#40;&#41;&#58;New&#40;&#41;\n  oExcel&#58;Open&#40; cOrigen &#41;\n\n  oExcel&#58;visualizar&#40;&#46;T&#46;&#41;\n  FOR i &#58;= 1 TO 4\n      oExcel&#58;AutoFit&#40; i &#41;\n  NEXT\n  oExcel&#58;SetPrintArea&#40;&quot;A1&#58;D20&quot;&#41;\n  oExcel&#58;Margins&#40; 0 , 50 &#41;\n  oExcel&#58;Headers&#40; 1 , &quot;Titulo Superior&quot; &#41;\n  oExcel&#58;Footers&#40; 2 , &quot;Footer Izquiedo con numero de paginas&#46;&#46;&#46;&quot;+&quot;&amp;P&quot; &#41;\n  oExcel&#58;Zoom&#40; 110 &#41;  // Ajuste al 110% de tamaño de la Hoja\n  oExcel&#58;lCenterH&#40; &#46;T&#46; &#41;\n  oExcel&#58;lCenterV&#40; &#46;T&#46; &#41;\n  oExcel&#58;SetLandScape&#40;&#41;\n  oExcel&#58;SetPage&#40; 1 &#41;  // Papel Tamaño Carta\n\nRETURN &#40; &#46;T&#46; &#41;\n\nEXIT PROCEDURE Cerrar&#40;&#41;\n  oExcel&#58;End&#40;&#46;F&#46;&#41; ; oExcel &#58;= NIL\nRETURN[/code:2gjvwbvi]\n\nAhora bien que hace \"exit procedure\" cuando se ejecuta si no se la llama desde ningun lado? es automatico? \n\nGracias','',0,'AIA=','2gjvwbvi',1,0,'',52,0,0),(12217,2810,3,2,0,'80.32.22.38',1145948490,1,0,1,1,1,1,'','','Juan,\n\nLo idóneo es que la pidas en news.xharbour.org y a ver si así descubrimos donde está alojada y cómo conseguir la versión más reciente. Por lo que se ve, no está en el CVS de xharbour en la sección de contribuciones.','',0,'AIA=','26pou0ea',1,0,'',2,0,0),(12218,2813,6,54,0,'201.137.108.73',1145949057,1,0,1,1,1,1,'','Re: Exit procedure?','[quote=&quot;goosfancito&quot;:3dvxrb97]Estimados, \n\nViendo los ejemplos de la clase tExcelScript, me vi con este codigo:\n\n\n[code:3dvxrb97]FUNCTION Test&#40;&#41;\n  LOCAL cOrigen &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41;&#41; + &quot;browse&#46;xls&quot;\n  LOCAL i\n  oExcel &#58;= TExcelScript&#40;&#41;&#58;New&#40;&#41;\n  oExcel&#58;Open&#40; cOrigen &#41;\n\n  oExcel&#58;visualizar&#40;&#46;T&#46;&#41;\n  FOR i &#58;= 1 TO 4\n      oExcel&#58;AutoFit&#40; i &#41;\n  NEXT\n  oExcel&#58;SetPrintArea&#40;&quot;A1&#58;D20&quot;&#41;\n  oExcel&#58;Margins&#40; 0 , 50 &#41;\n  oExcel&#58;Headers&#40; 1 , &quot;Titulo Superior&quot; &#41;\n  oExcel&#58;Footers&#40; 2 , &quot;Footer Izquiedo con numero de paginas&#46;&#46;&#46;&quot;+&quot;&amp;P&quot; &#41;\n  oExcel&#58;Zoom&#40; 110 &#41;  // Ajuste al 110% de tamaño de la Hoja\n  oExcel&#58;lCenterH&#40; &#46;T&#46; &#41;\n  oExcel&#58;lCenterV&#40; &#46;T&#46; &#41;\n  oExcel&#58;SetLandScape&#40;&#41;\n  oExcel&#58;SetPage&#40; 1 &#41;  // Papel Tamaño Carta\n\nRETURN &#40; &#46;T&#46; &#41;\n\nEXIT PROCEDURE Cerrar&#40;&#41;\n  oExcel&#58;End&#40;&#46;F&#46;&#41; ; oExcel &#58;= NIL\nRETURN[/code:3dvxrb97]\n\nAhora bien que hace \"exit procedure\" cuando se ejecuta si no se la llama desde ningun lado? es automatico? \n\nGracias[/quote:3dvxrb97]\n\nGoos,\n\nINIT procedure, se lanzan en automático, quiere decir que lo lanza en cuanto la aplicación da por iniciada, antes de cualquier función principal.\n\nEXIT procedure, de igual manera se lanza en automático, y quiere decir que es la ultima función en ejecutarse.\n\nTodo lo incluído en esas funciones se ejecuta antes o despues, seguna la función en cuestión.\n\nQue lo lanza o como está la cuestión, pues no la se, pero a groso modo asi es la cosa.\n\nEspero haber ayudado.\n\nSino ayudo, confundo, pero igual no te quedas.\n\njjejjejje','',0,'gIA=','3dvxrb97',1,0,'',54,0,0),(12219,2809,2,242,0,'81.45.227.110',1145950099,1,0,1,1,1,0,'','Respuesta.','Bueno, lo que yo hago es compilar la nueva clase (por ejemplo TDIAG.PRG) y la añado a la librería FIVE.LIB. Otra opción sería compilar la clase y convertirla en librería, luego sólo tienes que incluir dicha librería en tu archivo .LNK.\n\nUn saludo,\nFernando','',0,'gIA=','1wq95p9f',1,0,'',242,0,0),(12220,2760,4,2,0,'80.32.22.38',1145951511,1,0,1,1,1,1,'','','Maurizio,\n\nFixed. In a few minutes a new FWPPC build will be available for download. Thanks for your feedback,','',0,'gIA=','1ovcpolr',1,0,'',2,0,0),(12221,2812,6,2,0,'80.32.22.38',1145951796,1,0,1,1,1,1,'','','William,\n\nPor lo visto el servidor anónimo de sourceforge está temporalmente caido. Suponemos que en breve volverá a estar disponible. Con el de Harbour pasa igual, con identificación funciona correctamente, pero se debe a que es otro servidor, no el mismo que al acceder anonimamente.','',0,'gIA=','er3ez96a',1,0,'',2,0,0),(12222,2811,18,2,0,'80.32.22.38',1145952875,1,0,1,1,1,1,'','','Alvaro,\n\nLo hemos reportado en la lista de desarrollo de Harbour a ver que nos dice Przemek, que es el gurú de los RDDs <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','13j9379j',1,0,'',2,0,0),(12223,2795,2,2,0,'80.32.22.38',1145953799,1,0,1,1,1,1,'','','Daniel,\n\nPrueba a usar SendMessage( hWnd, WM_KEY..., nKey, ... )','',0,'gIA=','1gm69h0a',1,0,'',2,0,0),(12224,2802,6,2,0,'80.32.22.38',1145953914,1,0,1,1,1,1,'','','Oscar,\n\nQue sepamos no hay forma por el momento. Para qué necesitas esos nombres largos ? No puedes abreviarlos ?','',0,'gIA=','3cw9g5q1',1,0,'',2,0,0),(12225,2797,6,81,0,'80.28.244.140',1145954237,1,0,1,1,1,0,'','','Gracias Antonio. \nYa lo he bajado.\nMe he dado de alta en sourceforge y voy a intentar conectarme con usuario.\n\nSaludos','',0,'gIA=','2xy4zjxt',1,0,'',81,0,0),(12226,2814,20,49,0,'87.3.179.144',1145957893,1,0,1,1,1,1,'','drag and drop','come posso inserire un disegnin posto come bottone sulla barra ( button bar) e inserirla immagine posta a sinistra dello schermo  e salvare l\'immagine modificata ?','',0,'gIA=','1u6pilux',1,0,'',49,0,0),(12227,2776,6,2,0,'80.32.22.38',1145958096,1,0,1,1,1,1,'','','José Martin,\n\nTienes que asignar el dato lCancel del TBtnBmp, aquí tienes un ejemplo funcionando correctamente:\n[code:36lv9qws]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cText &#58;= Space&#40; 10 &#41;, oBtn\n   \n   DEFINE DIALOG oDlg TITLE &quot;Test&quot;\n   \n   @ 1, 1 GET cText VALID ! Empty&#40; cText &#41;\n   \n   @ 40, 25 BTNBMP oBtn FILE &quot;exit2&#46;bmp&quot; SIZE 15, 15 ACTION oDlg&#58;End&#40;&#41;\n   \n   oBtn&#58;lCancel = &#46;t&#46;\n   \n   ACTIVATE DIALOG oDlg CENTER\n   \nreturn nil   \n[/code:36lv9qws]','',0,'AIA=','36lv9qws',1,0,'',2,0,0),(12228,2815,3,49,0,'87.3.179.144',1145958127,1,0,1,1,1,1,'','Drag and  drop and save','How  I can insert an bitmap on an image and save the image modified ?','',0,'AIA=','1bvy6303',1,0,'',49,0,0),(12229,2721,3,2,0,'80.32.22.38',1145958250,1,0,1,1,1,1,'','','Milan,\n\nSorry, its not supported yet.','',0,'AIA=','3ahb9p3s',1,0,'',2,0,0),(12230,2517,6,2,0,'80.32.22.38',1145958426,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02aca05399/hbzip.zip.html\">http://hyperupload.com/download/02aca05 ... p.zip.html</a><!-- m -->','',0,'AIA=','2fzzr20w',1,0,'',2,0,0),(12231,2816,6,292,0,'200.84.204.76',1145958521,1,0,1,1,1,1,'','HBCOMM.LIB','Colegas,\n\nNecesito la libreria hbcomm.','',0,'AIA=','3eek5oq1',1,0,'',292,0,0),(12232,2810,3,292,0,'200.84.204.76',1145959507,1,0,1,1,1,1,'','','Antonio\nMuchas gracias,\nnecesito cualquiera más reciente, la que poseo tiene como cuatro años y no la he actualizado.','',0,'AIA=','zamuxl9d',1,0,'',292,0,0),(12233,2817,6,488,0,'217.127.135.134',1145963044,1,0,1,1,1,0,'','descuentos en la adquisión de FiveWin para asistentes curso','Hola amigos.\n\n[b:2t0dq0qj]Geroa Informatica, SL  y  Fivetech Software[/b:2t0dq0qj] en su afan de seguir promocionando el Fivewin y su formación en la comunidad han llegado a un acuerdo.\nEl presente acuerdo contempla que todo alumno que asista a los cursos de Formación de Fivewin que vamos a impartir el proximo mes de Mayo en San Sebastian gozaran de [b:2t0dq0qj]un descuento del 15%[/b:2t0dq0qj] en la compra de la libreria Fivewin (en cualquiera de sus versiones y actualizaciones).\n\nLa información de los cursos la teneis en esta URL\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://www.geroa-informatica.com/fivewi ... o-2006.htm</a><!-- m -->','',0,'QA==','2t0dq0qj',1,0,'',488,0,0),(12234,2818,7,488,0,'217.127.135.134',1145963278,1,0,1,1,1,0,'','Descuentos en la compra del Fivewin','Hola amigos.\n\n[b:1i4iace5]Geroa Informatica, SL y Fivetech Software[/b:1i4iace5] en su afan de seguir promocionando el Fivewin y su formación en la comunidad han llegado a un acuerdo.\nEl presente acuerdo contempla que todo alumno que asista a los cursos de Formación de Fivewin que vamos a impartir el proximo mes de Mayo en San Sebastian gozaran de [b:1i4iace5]un descuento del 15%[/b:1i4iace5] en la compra de la libreria Fivewin (en cualquiera de sus versiones y actualizaciones).\n\nLa información de los cursos la teneis en esta URL\n<!-- m --><a class=\"postlink\" href=\"http://www.geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://www.geroa-informatica.com/fivewi ... o-2006.htm</a><!-- m -->','',0,'QA==','1i4iace5',1,0,'',488,0,0),(12235,2811,18,511,0,'201.248.69.94',1145964491,1,0,1,0,1,0,'','','Antonio,\n\nGracias por la respuesta, otra cosa, has tenido tiempo de revisar el ejemplo de browse en folder?\n\nSaludos','',0,'QA==','269mctl1',1,0,'',511,0,0),(12236,2802,6,203,0,'200.107.2.71',1145964943,1,0,1,1,1,1,'','','El servicio de rentas de mi pais ha pedido que se le envie información \nen archivos de formato XML, tengo ya el programa que pasa de DBF a XML, pero al revisar el la ficha tecnica de esta información me encuentro que tambien envian como requisito el nombre del campo a parte de longitud y tipo, no se si existe alguna otra solución como trabajar com MySql o algo parecido\n\n\n\nSaludos\n\n\nOscar','',0,'QA==','f8jfg36e',1,0,'',203,0,0),(12237,2812,6,54,0,'201.137.108.73',1145966996,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2bi63dx4]William,\n\nPor lo visto el servidor anónimo de sourceforge está temporalmente caido. Suponemos que en breve volverá a estar disponible. Con el de Harbour pasa igual, con identificación funciona correctamente, pero se debe a que es otro servidor, no el mismo que al acceder anonimamente.[/quote:2bi63dx4]\n\nAntonio,\n\nAntes que nada, gracias por tomarte el tiempo para responder.\n\nCrees que pueda hacerse lo mismo con el CVS de xHarbour?','',0,'gA==','2bi63dx4',1,0,'',54,0,0),(12238,2802,6,41,0,'166.114.252.26',1145967648,1,0,1,1,1,0,'','','Hola,\n\ndos alternativas se me ocurren\n\n1.- usar tablas ADT de ADS\n2.- Crear un diccionario de datos para hacer el paso a XML\n\nsaludos\n\nMarcelo','',0,'gA==','ep29bvp6',1,0,'',41,0,0),(12239,2813,6,52,0,'200.127.195.89',1145972650,1,0,1,1,1,1,'','','Gracias,\n\npor ende cada .prg o módulo de programa debe contener un solo EXIT y un solo INIT.\n\nExplicado... y entendido.\n\nGracias de nuevo.','',0,'gA==','1x6esu1w',1,0,'',52,0,0),(12240,2807,6,104,0,'201.58.17.225',1145973102,1,0,1,1,1,0,'','','Olá Antonio,\n\nEu fiz estas mudanças em COMBOBOX.PRG e funcionou  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n[code:35yncwb4]\n&#46;&#46;&#46;\n   METHOD KeyDown&#40; nKey, nFlags &#41;\n\n   METHOD GetDlgCode&#40; nLastKey &#41;\n&#46;&#46;&#46;\n\n//----------------------------------------------------------------------------//\n\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TComboBox\n\n   if &#58;&#58;bChange != nil\n      Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n   endif\n\nreturn Super&#58;KeyDown&#40; nKey, nFlags &#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD GetDlgCode&#40; nLastKey &#41; CLASS TComboBox\n\n   if Len&#40; &#58;&#58;oWnd&#58;aControls &#41; == 1\n      return DLGC_WANTALLKEYS\n   endif\n\n  &#58;&#58;oWnd&#58;nLastKey = nLastKey\n\nreturn DLGC_WANTALLKEYS\n\n//----------------------------------------------------------------------------//\n[/code:35yncwb4]\n\nSe isto estiver correto, seria possível incluir esta mudanças em FWH ?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nObrigado e abraços,\n\nRossine.','',0,'AIA=','35yncwb4',1,0,'',104,0,0),(12241,791,6,171,0,'71.232.193.197',1145976932,1,0,1,1,1,0,'','','Hi Richard\n\nCan you tell me the price for the Fingerprint reader and the LIB?\n\nRegards\n\n\nGeorge','',0,'AIA=','1bm3eica',1,0,'',171,0,0),(12242,2819,6,171,0,'71.232.193.197',1145977096,1,0,1,1,1,0,'','Ftp Class','Hola\n\nExiste una clase *PROBADA* que trabaje con xHarbour y Fivewin para tansferecia de archivos (ficheros) vias FTP. algun ejemplo disponibe?\n\nSaludos\n\n\nGeorge','',0,'AIA=','1ew6vzgg',1,0,'',171,0,0),(12243,1182,6,171,0,'71.232.193.197',1145977898,1,0,1,1,1,0,'','','Rene\n\nPodrias decirnos como se usa Funcky con FWH para la transferencia de archivos via FTP, un ejemplo de codigo seria muy util <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nHe tratado de usarlo, siguiendo el ejemplo que viene en Funcky  pero consigo un error cuando trato de leer el archivo para download o upload\n\n         Error:Description:Error/Funcky6\n         DISP_E_UNKNOWNAME:BACKUP.RES\n\n\"BACKUP.RES\" es el archivo que deseo transferir. He verificado que esta en el directorio indicado. No se porque dice que es desconocido\n\nSaludos\n\n\nGeorge','',0,'AIA=','3pbwv00n',1,0,'',171,0,0),(12244,791,6,215,0,'201.102.208.194',1145977970,1,0,1,1,1,0,'','¿Cuanto?','Intento decirle en inglés a Richard lo siguiente.\n\n¿Cuanto cuesta la lib?\n¿Es para harbour o xharbour?\n¿La licencia es para uso comercial o personal?\n\nLo que sigue ya abajo no es para Richard, es info que he recopilado en internet.\n\nSegún lo que he leido no puedes usar el lector de microsoft para hacer un programa de control de accesos, el lector de microsoft viene con el software para instalar y al iniciar pide el registro de dos huellas por cada usuario de la pc. Sirve para sustituir el uso de password en XP, pero no le veo pinta de poder usarlo de otra manera. Ahora bien, el lector de l a marca hamster, digital persona y otros. Son más caros en cuanto al costo y tambien existe un kit de desarrollo... obviamente ese kit tiene un costo elevado. El digital persona tiene un costo de 1,800 dolares. \n\nAhora, mi inglés es muy malo pero con ayuda del traductor del google encontré este link que al parecer está en Brasil donde se puede descargar una librería para programar varios lectores de huella digital. Incluyendo el Microsoft Fingerprint reader, Digital Persona y otros que no conozco.  Incluso hay una edición del kit de desarrollo gratis.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.griaule.com/page/en-us/index\">http://www.griaule.com/page/en-us/index</a><!-- m -->\n\nPara aquellos que tienen la fortuna de saber Visual Basic hay ejemplos de como programarlos. Para el resto de los mortales nos queda la opción de aprender Visual Basic o aprender como hacer wraper para usar las dll. Cosa que veo difícil cuando no se tiene la más mínima idea de son las clases, objetos, metodos y otras chunches.  Algunos lectores vienen con Active X para hacer la comparación de la huella digital 1 a 1. Eso si es una buena noticia pues fivewin ya tiene soporte completo para Active X. Asi que ha seguir investigando. \n\nDesde luego el camino más fácil es el que ofrece Richard. Richard ya se curro todo el esfuerzo de como usar el lector de microsoft. Vean el código y verán que es muuuuy sencillo de implementar en sus programas fivewin. \n\nSaludos','',0,'AIA=','2hxjfxty',1,0,'',215,0,0),(12245,2820,1,529,0,'200.159.198.16',1145978677,1,0,1,1,1,0,'','commctrl again','hi, in march build, in whatsnew, says commctrl.dll is not more needed, but in april build is need again, this is right??\n\nthanks','',0,'AIA=','3ooh3olh',1,0,'',529,0,0),(12246,2821,3,529,0,'200.159.198.16',1145978807,1,0,1,1,1,0,'','parameters to build (x)harbour and fwh from cvs updated','Hi to all, someone has an updated .mak to build fwh from cvs? and \nparameters, i use this :\n\nSET CFLAGS = -tWM -a8 -O2 -OS -5 -6 -D__HARBOUR__ -D__WIN32__ -DHB_FM_STATISTICS_OFF -DHB_NO_PROFILER \n -DHB_COMPAT_C53 -DHB_GUI -DHB_WIN32_IO -DHB_NO_TRACE -DHB_API_MACROS -DHB_INCLUDE_WINEXCHANDLER \n -DADS_REQUIRE_VERSION=5\n\nthis is all need ???\n\nthanks','',0,'AIA=','a2z2l59q',1,0,'',529,0,0),(12247,2822,3,258,0,'139.165.96.129',1145979625,1,0,1,1,1,0,'','MySql and Fivewin','I have to establish a connection\nwith files locate on a web server running mysql and php.\nWhat have i to do ? .\nWhere can i find some samples :\nconnection,browse,insert modify , delete\nThanks a lot .\nPh Jacquet .','',0,'AIA=','35d4gk6g',1,0,'',258,0,0),(12248,2823,3,213,0,'72.177.228.25',1145980318,1,0,1,1,1,0,'','TGet Problem','All,\n\nIf I right click in a get field and select Cut. when the get loses focus (when clicking in another get field for instance) the text is automatically pasted back into the get field.  Or if I cut then start typing in the same get the original text is pasted back into the field.  If I highlight the text and use Alt+X this does not happen.  \n\nIs this correct?\n\nYou can compile the testget2 sample to see what I mean.\n\nUsing FWH Apr 2006.\n\nThanks,\nRandal Ferguson','',0,'AIA=','1indhndv',1,0,'',213,0,0),(12249,1808,2,221,0,'200.109.236.123',1145980573,1,0,1,1,1,0,'','','a mi tanbien gracias, <!-- e --><a href=\"mailto:alex_patino74@hotmail.com\">alex_patino74@hotmail.com</a><!-- e -->','',0,'AIA=','2vxi9fvy',1,0,'',221,0,0),(12250,2795,2,74,0,'190.48.234.152',1145982224,1,0,1,1,1,1,'','','Antonio:\n\n             Ante todo muchisimas gracias por responder.\n\n             Parece que no funciono. He mirado con detenimiento la funcion SendMessage( &lt;hWnd&gt;, &lt;nMsg&gt;, &lt;nWParam&gt;, &lt;nLParam&gt;), y el metodo de window.prg:\n\n::SendMsg( nMsg, nWParam, nLParam )\n\n             Esta bien esta sintaxis para enviar CTRL + C  ?:\n\noWndCapt:SendMsg( WM_KEYDOWN, VK_CONTROL , 67 )\n\n             Por otro lado la ventana a enviar el ctrl c es una ventana dos, un programa externo ejecutado con:\n\nwinexec( (wPathB)+\"\\WSPOOLER.EXE -p\"+TRANS(PARAM-&gt;IFCOM,\'9\')+\" -s C:\\HSPOOL\",1), sera eso lo que impide que llegue ?.\n\nSaludos,','',0,'AIA=','2yfiuc4t',1,0,'',74,0,0),(12251,2822,3,74,0,'190.48.234.152',1145983475,1,0,1,1,1,1,'','','jacquet:\n\n            You have to use mysqls classes or libs, por example Manuel Explosito\'s eagle1 (not free, 50 euros), or the mysql libs for harbour / xharbour.\n\n             You will find information in:\n\nEagle1:\n\n-  <!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/eagle1/\">http://es.groups.yahoo.com/group/eagle1/</a><!-- m -->\n-  80.59.9.216  (news server for outlook express)\n\n              And in harbour/xharbour.org contribs.\n\n              Sample code for eagle1:\n[code:5akd3f4c]\noMySql &#58;= TMSConnect&#40;&#41;&#58;New&#40;&#41;\noMySql&#58;Connect&#40; cHost, cUser, cPassword &#41;\n\n	SELE 1\n	cTabla&#58;=\'cores_usuarios\'\n	oTabla1 &#58;= TMsTable&#40;&#41;&#58;New&#40; oDataBase, cTabla &#41;\n        oTabla1&#58;Open&#40;&#41;\n\n	SELE 1\n  REDEFINE LISTBOX oBCli;\n					 FIELDS	TRANSFORM&#40;oTabla1&#58;xFieldGet&#40; 1 &#41;,\'99999\'&#41;, ;\n            		  oTabla1&#58;xFieldGet&#40; 2 &#41;, ;\n            		  oTabla1&#58;xFieldGet&#40; 3 &#41;, ;\n            		  oTabla1&#58;xFieldGet&#40; 4 &#41;, ;\n            		  TRANSFORM&#40;oTabla1&#58;xFieldGet&#40; 5 &#41;,\'9999\'&#41;, ;\n\n        &#46;&#46;&#46;&#46;&#46; etc, etc, as usual\n\nREDEFINE GET oCOD     VAR wCOD       ID 113 OF oDlg PICTURE &quot;@Z 9999&quot; VALID Q_COD&#40; wCOD,&quot;ALT_USU&quot;&#41;\n\n        &#46;&#46;&#46;&#46;&#46;&#46; all the controls as usual\n\n       Then, for inserting&#58;\n\n			oSql &#58;= TMsQuery&#40;&#41;&#58;Query&#40; oDatabase, &quot;INSERT INTO cores_usuarios &#40;nomcli,usuario,pass,nro_cliente,nivel_acceso&#41; &quot;+;\n			                                     &quot;VALUES &#40;\'&quot;+wDes+&quot;\',\'&quot;+wUsuario+&quot;\',\'&quot;+wClave+&quot;\',\'&quot;+PADL&#40;wCod,4,\'0\'&#41;+&quot;\',\'&quot;+PADL&#40;wCodnivel,1,\'0\'&#41;+&quot;\'&#41;&quot;&#41;\n\nif !oSql&#58;Open&#40;&#41;\noSql&#58;oError&#58;Say&#40;&#41;\nendif\n\noSql&#58;Close&#40;&#41;\n\n	 oTabla1&#58;setorder&#40;2&#41;\n	 oTabla1&#58;GoTop&#40;&#41;&#58;Read&#40;&#41;\n	 oBcli&#58;Setfocus&#40;&#41;\n	 oBcli&#58;Refresh&#40;&#41;\n	 oBcli&#58;Upstable&#40;&#41;\n\n[/code:5akd3f4c]\n          \nRegards,','',0,'AIA=','5akd3f4c',1,0,'',74,0,0),(12252,2815,3,41,0,'166.114.252.26',1145988437,1,0,1,1,1,0,'','','Hello,\n\nyou can use \n\n   hDib := Dibfrombitmap( hBmp )\n   \nthen\n\n   DibWrite( \"filename.bmp\", hDib )\n\nread de FW manual for more information about parameters\n\nregards\n\nMarcelo','',0,'AIA=','8v8nvqt1',1,0,'',41,0,0),(12253,2805,6,228,0,'201.244.249.191',1145989700,1,0,1,1,1,1,'','Voy a probar','Amigo voy a probar y te aviso...','',0,'AIA=','17xouze3',1,0,'',228,0,0),(12254,2824,6,264,0,'200.91.3.10',1145991037,1,0,1,1,1,0,'','Evitar cargar + de una vez la aplicación','En 16bits se hacia con SET MULTPLE...\nPero en 32... como se evita la segunda carga del EXE ?\nSaludos','',0,'AIA=','3eqvfump',1,0,'',264,0,0),(12255,2822,3,258,0,'80.201.210.51',1145992676,1,0,1,1,1,0,'','','Thanks for this answer .\nWhy not using the fiveodbc ?\n\nPh Jacquet.','',0,'AIA=','3cudf667',1,0,'',258,0,0),(12256,2824,6,54,0,'201.137.108.73',1145993405,1,0,1,1,1,1,'','Re: Evitar cargar + de una vez la aplicación','[quote=&quot;dbzap&quot;:1ery2xn6]En 16bits se hacia con SET MULTPLE...\nPero en 32... como se evita la segunda carga del EXE ?\nSaludos[/quote:1ery2xn6]\n\nlRunning := IsExeRunning( \"FACTURACION\" )\n\nRegresa un lRunning','',0,'gA==','1ery2xn6',1,0,'',54,0,0),(12257,2824,6,264,0,'200.91.3.10',1145994123,1,0,1,1,1,0,'','','Gracias !!','',0,'gA==','1jtee9bc',1,0,'',264,0,0),(12258,2822,3,74,0,'190.48.234.226',1145994167,1,0,1,1,1,1,'','','jacquet:\n\n             You can use odbc if you want, but if you use the mysql api directly it should go faster.\n\nRegards','',0,'gA==','9ulqd3r4',1,0,'',74,0,0),(12259,2796,6,252,0,'201.140.17.30',1145995297,1,0,1,1,1,0,'','','Muchas gracias por los tips, me han sido muy utiles.\n\n\n    Saludos.\n\n    Jose Rios.','',0,'gA==','15qvftfo',1,0,'',252,0,0),(12260,2802,6,203,0,'200.107.17.54',1145997205,1,0,1,1,1,1,'','','Gracias por la respuesta Marcelo\n\nVoy a tratar con ADS\n\n\n\nSaludos\n\nOscar','',0,'gA==','29u92f6a',1,0,'',203,0,0),(12261,2825,6,519,0,'83.33.9.2',1146006004,1,0,1,1,1,0,'','Scroll Horizontal en Get','Hola\n\n   Que picture se utiliza para  hacer un scroll horizontal en un Get ? lo estoy haciendo de esta forma y no funciona : PICTURE \"@S100\"\n\n\n\n  Un saludo y gracias \n\n  Gabriel','',0,'gA==','1fk91tse',1,0,'',519,0,0),(12262,2822,3,15,0,'203.73.91.248',1146006302,1,0,1,1,1,0,'','','jacquet,\n\nI use DrMySQL library to connect mysql server.\n\nSample code below:\n\nMETHOD ReBrowse() CLASS TA_Acc_Cust\n\n   ::oMainDb:Query( \"select * from a_cust_code order by name1 limit 100\" )\n\n   REDEFINE BROWSE ::oBrw ID 301 OF ::oDlg\n\n      ::oBrw:SetODBF( ::oMainDb )\n      ::oBrw:bKeyDown   := {| nKey | ::BrwKeyDown ( nKey ) }\n      ::oBrw:bChange    := {|| ::DisplayData() }\n      ::oBrw:lCellStyle := .t.\n      BrwGrade( ::oBrw )\n\n      ADD TO ::oBrw DATA ::oMainDb:CODE ;\n          TITLE \"CODE\"                  ;\n          SIZE 49\n\nMETHOD ReGet() CLASS TA_Acc_Cust\n\n   REDEFINE GET ::oMainDb:oNAME       VAR ::oMainDb:NAME     ID 101  OF ::oDlg\n   REDEFINE GET ::oMainDb:oCODE       VAR ::oMainDb:CODE     ID 102  OF ::oDlg\n\nMETHOD IsSave() CLASS TA_Acc_Cust\n\n   IF ::lNew\n      ::oMainDb:Insert()\n   ELSE\n      ::oMainDb:Update()\n   ENDIF\n\n\nRegards,\n\nRichard\nFivetech.net Taiwan\n<!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->','',0,'gA==','1nrnvjvq',1,0,'',15,0,0),(12263,791,6,15,0,'203.73.91.248',1146006588,1,0,1,1,1,0,'','','Hi George\n\nPlease give me your EMail address.\n\nRichard','',0,'gA==','15u0ecmp',1,0,'',15,0,0),(12264,2825,6,61,0,'201.217.173.108',1146006721,1,0,1,1,1,0,'','','Gabriel:\n\nSi el get lo defines en recursos debes de agregarle\nla propiedad Scroll Horizontal o algo asi.\nEsto se hace en el mismo editor de recursos.\n\nPrueba y me dices.\n\nsaludos\n\nRuben Fernandez','',0,'gA==','3jirubpy',1,0,'',61,0,0),(12265,2826,6,471,0,'201.240.199.134',1146007560,1,0,1,1,1,1,'','Error Fivewin   y se va usando ChartFx2','Amigos\n\nuso el vbx del chartf2x y en una aplicaion de 16 bits\ny simplemente entro a la opcion y sale \n\n\nError de Fivewin\n\n\nCual puede ser la solucion\na este problema\n\n\nAgradecido por la ayuda\n\n\nVladimir Zorrilla Llerena','',0,'gA==','25pzh69l',1,0,'',471,0,0),(12266,2786,6,73,0,'201.129.96.191',1146008973,1,0,1,1,1,0,'','','Gracias Antonio <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\ninmejorable experiencia\nsalu2\nPaco','',0,'gA==','2oijk6rb',1,0,'',73,0,0),(12267,2827,6,61,0,'201.217.173.108',1146011576,1,0,1,1,1,0,'','ADS local o Driver de Harbour','Amigos:\n\nSerá posible que con ADS local un reindexado (borro y creo los CDX\nnuevamente), demore mas del doble que el RDD de Harbour?\nO estoy haciendo algo mal?\n\nSaludos y gracias.\n\nRuben Fernandez','',0,'gA==','1ie848ee',1,0,'',61,0,0),(12268,2477,3,190,0,'202.65.134.45',1146014475,1,0,1,1,1,0,'','','Hi Richard\n\nWho are the suppliers of this Fingerprint Scanner and LIB?. Can you \nplease provide their URL.\n\nThanks\n\n- Ramesh Babu P','',0,'gA==','yp45uy9k',1,0,'',190,0,0),(12269,1182,6,439,0,'190.0.143.179',1146015400,1,0,1,1,1,1,'','Clase QFtp','[quote=&quot;Vikthor&quot;:8xkv0nup]Mi estimado Paco :\n\nPuede usar la clase QFtp con las modificaciones que le hizo Luis Krause, la clase funciona muy bien, tanto para subir, como para bajar archivos.[/quote:8xkv0nup]\n\n\nVikthor:\n\n1. De dónde se puede bajar esta clase\n\n2. Se que tienes clases \"con costo\", me interesaría que me mandaras e-mail sobre ChartFX y otras que pudieras tener y precios.','',0,'gA==','8xkv0nup',1,0,'',439,0,0),(12270,2828,3,171,0,'71.232.193.197',1146019292,1,0,1,1,1,0,'','Function At( cSearch, cFile, nOffset )','Aguien sabe cual  version de xHarbour permite el uso del tercer parametro en la Function At( cSearch, cFile, nOffset ). Estoy usando xHarbour (xBuilder feb 2005) + FWH 2.5 pero no funciona el tercer parametro nOffset que se usa para indicar la posicion a partir de la cual se debe iniciar la busqueda del caracter (cSearch) en el texto (cFile).\n\nGeorge','',0,'gA==','22o7ky3g',1,0,'',171,0,0),(12271,2829,6,171,0,'71.232.193.197',1146019459,1,0,1,1,1,0,'','Function At( cSearch, cFile, nOffset )','Aguien sabe cual version de xHarbour permite el uso del tercer parametro en la Function At( cSearch, cFile, nOffset ). Estoy usando xHarbour (xBuilder feb 2005) + FWH 2.5 pero no funciona el tercer parametro nOffset que se usa para indicar la posicion a partir de la cual se debe iniciar la busqueda del caracter (cSearch) en el texto (cFile). \n\nGeorge','',0,'gA==','3ta0rvla',1,0,'',171,0,0),(12272,2828,3,54,0,'201.137.108.73',1146020323,1,0,1,1,1,1,'','Re: Function At( cSearch, cFile, nOffset )','[quote=&quot;George&quot;:7024o32i]Aguien sabe cual  version de xHarbour permite el uso del tercer parametro en la Function At( cSearch, cFile, nOffset ). Estoy usando xHarbour (xBuilder feb 2005) + FWH 2.5 pero no funciona el tercer parametro nOffset que se usa para indicar la posicion a partir de la cual se debe iniciar la busqueda del caracter (cSearch) en el texto (cFile).\n\nGeorge[/quote:7024o32i]\n\nGeorge,\n\nNo se exactamente desde que version, pero en xHarbour se usa de la siguiente manera:\n\nAt( &lt;cSearch&gt;, &lt;cString&gt;, [&lt;nStart&gt;], [&lt;nEnd&gt;] )','',0,'gA==','7024o32i',1,0,'',54,0,0),(12273,2721,3,160,0,'210.212.142.91',1146025866,1,0,1,1,1,0,'','','Dear Antonio,\n\nAny plan to implement it in near future ? It will help me to use the third party ActiveX Control.\n\nMilan.\n\n[quote=&quot;Antonio Linares&quot;:sj1ig7pd]Milan,\n\nSorry, its not supported yet.[/quote:sj1ig7pd]','',0,'gA==','sj1ig7pd',1,0,'',160,0,0),(12274,2830,3,314,0,'125.92.249.84',1146031419,1,0,1,1,1,0,'','height of taskbar','Can I use getsysmetrics() to retrive the height of the windows taskbar?','',0,'gA==','1bul7b3s',1,0,'',314,0,0),(12275,2830,3,6,0,'82.53.175.89',1146034262,1,0,1,1,1,1,'','Re: height of taskbar','Yes, but you have to subtract the value returned by the API SystemParametersInfo() with the argument SPI_GETWORKAREA.\n\nEMG','',0,'gA==','1rss46sp',1,0,'',6,0,0),(12276,2477,3,15,0,'203.73.91.248',1146034336,1,0,1,1,1,0,'','','Hi RAMESHBABU,\n\nThat\'s me.\n\nI\'m able to offer small Fingerprint hardware, device, CD and LIB file within xHarbour.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gA==','y0tk4vlu',1,0,'',15,0,0),(12277,2791,3,473,0,'213.119.222.114',1146038921,1,0,1,1,1,0,'','','Thanks James,\n\nI have tried it this way, and indeed this is a better way.\n\nThanks for the advice.\n\nWilly.','',0,'gA==','27azxflk',1,0,'',473,0,0),(12278,2831,6,52,0,'200.127.195.89',1146040748,1,0,1,1,1,1,'','nRgb( 204, 255, 204 ) con tExcelScript','Estimados,\n\nYo hago esto:\n\n[code:1dcpoln7]#define CLR_FONDO_CELDA nRgb&#40; 204, 255, 204 &#41; //GoosFancito[/code:1dcpoln7]\n\nLuego quiero utilizarlo aca:\n\n[code:1dcpoln7]oExcel&#58;say&#40;01, 01, &quot;PESQUERA&quot;, , CLR_FONDO_CELDA,,,,,&#41;[/code:1dcpoln7]\nY me da error. En que le estoy pifiando? ( lease pifiando = errando )\n\nGracias.','',0,'AIA=','1dcpoln7',1,0,'',52,0,0),(12279,2829,6,2,0,'80.32.22.38',1146040819,1,0,1,1,1,1,'','','George,\n\nxharbour al igual que Harbour son productos de código abierto y libre, por lo que puedes tomar el código fuente actual de At() y reemplazarlo en la versión que usas.','',0,'AIA=','lc2xgbqt',1,0,'',2,0,0),(12280,2820,1,2,0,'80.32.22.38',1146041096,1,0,1,1,1,1,'','','Norberto,\n\nDo you have a sample that shows that it is required again ? thanks,','',0,'AIA=','2qr0hch7',1,0,'',2,0,0),(12281,2721,3,2,0,'80.32.22.38',1146041392,1,0,1,1,1,1,'','','Milan,\n\nWe can\'t say a date. We do know there is an API to do it, but we need to do some more research.','',0,'AIA=','2j85tpx2',1,0,'',2,0,0),(12282,2832,20,29,0,'81.174.24.57',1146041639,1,0,1,1,1,0,'','Cambiare data ed ora di un file','Salve, devo apportare delle modifiche ad un file in determinate situazioni,\nvorrei però lasciare inviariate la data e l\'ora del file.\n\nPosso ottenere la data e l\'ora del file prima di apportare modifiche utilizzando le funzioni filedate e filetime,\ncome posso però riassegnarle al file una volta modificato ?\n\nGrazie in anticipo\n\nSaluti\n\nMarco Turco','',0,'AIA=','tcl2d8w9',1,0,'',29,0,0),(12283,2688,20,29,0,'81.174.24.57',1146041680,1,0,1,1,1,0,'','','Grazie EMG e Silvio.\n\nMarco','',0,'AIA=','ugtx0xur',1,0,'',29,0,0),(12284,2823,3,2,0,'80.32.22.38',1146042183,1,0,1,1,1,1,'','','Randal,\n\nAre you using a modified Class TGet ?\n\nWe have just tested samples\\TestGet2.prg and done what you describe and it behaves ok.','',0,'AIA=','3qtjxfli',1,0,'',2,0,0),(12285,2816,6,2,0,'80.32.22.38',1146042338,1,0,1,1,1,1,'','','Juan,\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e2d2c498/hbcomm.zip.html\">http://hyperupload.com/download/02e2d2c ... m.zip.html</a><!-- m -->','',0,'AIA=','ue6caujr',1,0,'',2,0,0),(12286,2807,6,2,0,'80.32.22.38',1146042607,1,0,1,1,1,1,'','','Rossine,\n\nLa tecla ESC se ruta al contenedor, es decir, a la caja de diálogo.\n\nSi cambias GetDlgCode() entonces si se la das al control, pero no es un comportamiento estandard.','',0,'AIA=','hkdficqr',1,0,'',2,0,0),(12287,2831,6,2,0,'80.32.22.38',1146042690,1,0,1,1,1,1,'','','Gustavo,\n\nQue error ?','',0,'AIA=','rg1siiom',1,0,'',2,0,0),(12288,2831,6,52,0,'200.127.195.89',1146042863,1,0,1,1,1,1,'','','Antonio,\n\nEl editor que estoy usando me tiraba que en esa posicion iba el color de fondo. cambiando la estructura ya no tengo el mismo error.\n\nGracias.','',0,'AIA=','1lcohe0p',1,0,'',52,0,0),(12289,2833,3,29,0,'81.174.24.57',1146042896,1,0,1,1,1,0,'','Change file time and date','Hi,\nI need to change the date and time of a file.\n\nI tried with the SetFdate() FW\'s function but an \"not implemented yet for 32 bit\" error message appairs.\n\nIs there any tourn-around available ?\n\nThanks in advance\n\nRegards,\n\nMarco Turco','',0,'AIA=','3bwolru0',1,0,'',29,0,0),(12290,2566,17,2,0,'80.32.22.38',1146045254,1,0,1,1,1,1,'','TSmtp, TSocket, qFTPClient et al','The attached file contains modifications to TSmtp, TSocket, TPop3, qFTPClient &amp; TProxy classes, with samples for all of them. Other programmers also contributed to these enhancements and they are mentioned in the source code. Make sure you adjust the test.bat (16 bit) and testH.bat (32 bit) batch files to match your environment before attempting to build the samples. Enjoy! Version 1.6 fixes problems when attaching multiple files (thanks to Ignacio Vizcaíno Tapia) and minor tweaking for [x]Harbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0233d56969/smtplkm16.zip.html\">http://hyperupload.com/download/0233d56 ... 6.zip.html</a><!-- m -->','',0,'','ulm9y0vi',1,0,'',2,0,0),(12291,2819,6,2,0,'80.32.22.38',1146045360,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=12290#12290\">http://fivetechsoft.com/forums/viewtopi ... 2290#12290</a><!-- m -->','',0,'','39aoy4su',1,0,'',2,0,0),(12292,2759,6,2,0,'80.32.22.38',1146046321,1,0,1,1,1,1,'','','Alvaro,\n\nAqui funciona correctamente. Ojo, si haces:\n[code:1fr6y0me]\n    REDEFINE BROWSE oBrw ;\n       ID 801 OF oFld&#58;aDialogs&#91; 1 &#93;\n[/code:1fr6y0me]\nEntonces en el RC tienes que tener:\n[code:1fr6y0me]\n  CONTROL &quot;&quot;, 801, &quot;TCBrowse&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 10, 9, 116, 55\n[/code:1fr6y0me]','',0,'AIA=','1fr6y0me',1,0,'',2,0,0),(12293,2811,18,2,0,'80.32.22.38',1146046378,1,0,1,1,1,1,'','','Alvaro,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=12292#12292\">http://fivetechsoft.com/forums/viewtopi ... 2292#12292</a><!-- m -->','',0,'AIA=','2vhgqudm',1,0,'',2,0,0),(12294,2795,2,2,0,'80.32.22.38',1146046570,1,0,1,1,1,1,'','','Daniel,\n\n&gt; Por otro lado la ventana a enviar el ctrl c es una ventana dos\n\nEse es el problema. Las ventanas de consola no admiten comunicación con mensajes. Solo se puede acceder al clipboard y nada más.','',0,'AIA=','2n6dkp6j',1,0,'',2,0,0),(12295,2821,3,2,0,'80.32.22.38',1146046764,1,0,1,1,1,1,'','','To build Harbour from CVS we do:\n\nbuildb32.bat:\nSET CFLAGS=-D__EXPORT__ -DHB_GUI -tWM -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -d -a8 -OS -O2 -5 -6  \nmake_b32.bat','',0,'AIA=','2b5hp06c',1,0,'',2,0,0),(12296,2826,6,2,0,'80.32.22.38',1146046904,1,0,1,1,1,1,'','','Genera el fichero MAP, con MAP A,S desde el fichero LNK y luego busca la dirección del GPF dentro del fichero MAP.','',0,'AIA=','22oqf2w2',1,0,'',2,0,0),(12297,2833,3,6,0,'82.53.175.89',1146047174,1,0,1,1,1,1,'','Re: Change file time and date','Try SetDate( nDay, nMonth, nYear )\n\nEMG','',0,'AIA=','1pb0l2az',1,0,'',6,0,0),(12298,2791,3,193,0,'195.212.29.171',1146047341,1,0,1,1,1,0,'','','Maybe you should use ComboBox (or other control) to let a user select approciated picture format himself?\n\nVladimir Grigoriev','',0,'AIA=','1jsrmeg3',1,0,'',193,0,0),(12299,2809,2,375,0,'84.122.107.146',1146047710,1,0,1,1,1,1,'','','Efectivamente, eso es lo que yo hago también. Compilo el PRG para crear el OBJ y este lo añado a la lista de OBJ\'s del LNK.\nHay que compilarlo cada vez que lo modificas. Como un PRG cualquiera de tu aplicación.','',0,'AIA=','2swa74b4',1,0,'',375,0,0),(12300,2834,2,500,0,'80.34.50.127',1146047912,1,0,1,1,1,0,'','Manejo de impresora con Tprinter','Hola a todos\n\nMe gustaría saber si se puede enviar a la impresora el tamaño del papel que se quiere, la bandeja de la que se va a sacar el papel, y el numero de copias a imprimir.\nCreo que para el tamaño del papel es oPrn:SetSize(ancho_mm, alto_mm)\npero no sé para bandejas ni copias.\nSi alguno quisiera tirarme un cable que no ahogue....\n\nUn saludo a todos','',0,'AIA=','2k4j75gh',1,0,'',500,0,0),(12301,2668,3,26,0,'84.255.245.173',1146049046,1,0,1,1,1,1,'','','Hello!\n\nVery true! There are two problems with 9x: Limited memory\nfor system resources and:\n<!-- m --><a class=\"postlink\" href=\"http://www.apptools.com/rants/resources.php\">http://www.apptools.com/rants/resources.php</a><!-- m -->\n[quote:hzwab5k1]Some applications, however, do not behave correctly. They may not free all the resources they allocate. This is called resource leakage. In this case, a block of memory is marked by the operating system as being in use and it cannot be used by the operating system, or any other application. When this happens, the only way to recover that area of memory is to reboot the computer.\n[/quote:hzwab5k1]\n[quote:hzwab5k1]While Windows 95, Windows 98 and Windows Me operating systems improved memory management immensely over Windows 3.1, they were still designed for the home user. They were never intended to be a serious development platform. Encountering errors is a part of software development. An operating system that is not fault tolerant has no place in the software development environment. If you develop software, or web sites using a serious development tool, you should be using Windows NT, Windows 2000, or Windows XP.[/quote:hzwab5k1]\n\nRoman','',0,'gA==','hzwab5k1',1,0,'',26,0,0),(12302,2821,3,529,0,'200.159.198.16',1146050243,1,0,1,1,1,0,'','fwh','Antonio, thanks, fwh is the same ok?','',0,'gA==','9nef80ty',1,0,'',529,0,0),(12303,2755,17,49,0,'213.82.134.66',1146050317,1,0,1,1,1,1,'','','when I can found circular barcode ?','',0,'gA==','a7ivujvy',1,0,'',49,0,0),(12304,2820,1,529,0,'200.159.198.16',1146050446,1,0,1,1,1,0,'','whatnew','Antonio, i only see in whatsnew this, and confused me...\n\napril build\n\n * New: FWPPC, Class TDatePicker already implemented. Please review samples\\TestDtp.prg.\n   Please notice that lib\\commctrl.lib has to be linked now.\n\nfebruary build\n\n * Enhancement: FiveWin for CA-Clipper (16 bits) no longer needs COMMCTRL.DLL. If you\n   plan to use ImageLists, then you should have it available, though the EXE will start\n   normally even if it is not present.','',0,'gA==','2rwz93jy',1,0,'',529,0,0),(12305,2835,20,49,0,'213.82.134.66',1146050603,1,0,1,1,1,1,'','CREAZIONE RADAR PER RALLY','Cari amici fwuser,\ndevo creare un editor per creare un Radar ..\nSe nessuno ha im mente che cosa è un radar ve lo spiego :\nIn realtà il radar è un Roadbook dove sono segnati tutti i percorsi che un pilota di Rally deve eseguire \nogni riga del roadbook è divisa minimo in tre parti :\nKm totali e Parziali \nPercorso ( con frecce e simboli)\nNote\n\nil problema a mio avviso è come fare visualizzare i simboli e le frecce ( percorsi) \n\nqualcuno ha qualche idea ?\n\nPer meglio capire come deve essere fatto ogni riga guardate qui un\'immagine ...\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/011ac2f727/esempio-roadbook.jpg.html\">http://hyperupload.com/download/011ac2f ... k.jpg.html</a><!-- m -->\n\nHo segnato con i numeri le principali parti descritte sopra\n\nGrazie in anticipo','',0,'gA==','2qd02ath',1,1146670637,'',49,1,0),(12306,2821,3,2,0,'80.32.22.38',1146050629,1,0,1,1,1,1,'','','bcc32 -c -D__HARBOUR__ -D__FLAT__ -TP ...','',0,'gA==','2946eygj',1,0,'',2,0,0),(12307,2807,6,104,0,'201.58.60.153',1146050747,1,0,1,1,1,0,'','','OK Antonio  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nGracias,\n\nRossine.','',0,'gA==','ca77uirm',1,0,'',104,0,0),(12308,2820,1,2,0,'80.32.22.38',1146050962,1,0,1,1,1,1,'','','Norberto,\n\n&gt;\n* New: FWPPC, Class TDatePicker already implemented. Please review samples\\TestDtp.prg. \nPlease notice that lib\\commctrl.lib has to be linked now. \n&gt;\n\nThe above is just for FWPPC: FiveWin for Pocket PC.','',0,'gA==','3v4noqwg',1,0,'',2,0,0),(12309,2836,6,203,0,'200.107.2.114',1146051386,1,0,1,1,1,1,'','Que archivos necesito bajar para probra ADS LOCAL','Hola foro\n\nPor favor quisiera empezar a probar ADS y necesito saber los archivos que necesito bajar.\n\nGracias\n\n\n\nOscar','',0,'gA==','3qrld84p',1,0,'',203,0,0),(12310,2834,2,2,0,'80.32.22.38',1146051404,1,0,1,1,1,1,'','','Tamaño papel: PRNSETSIZE( nWidth, nHeight )\n\nNúmero de copias: PRNSETCOPIES( nCopies )\n\nLa bandeja a usar: PRNBINSOURCE( nBin )','',0,'gA==','2egvcdnp',1,0,'',2,0,0),(12311,2809,2,510,0,'200.93.30.37',1146054052,1,0,1,1,1,0,'','OTRA REPETICION DE LOS CONCEJOS, DANIEL, MANU, FERNANDO','[quote=&quot;DanielPuente&quot;:2gj4sjb4]William:\n\n            Si modificas una clase de fivewin lo que tenes que haces es incluir el prg correspondiente, x ej. c:\\fwxx\\source\\clases\\tget.prg modificado en tu lista de prg como un prg mas y listo.\n\nSaludos,[/quote:2gj4sjb4]\n \n\n           Gracias por el concejo entiendo lo de compilar y agregar, siendo mas especifico les comento lo siguiente\n\n           Antonio dice que com modificar DATA lDiscolor a .F. puedo poner el color que quiera a los get desabilitados la pregunta es como hago para que aplique sera que se pone en el programa que lo necesito LOCAL lDiscolor=.F. ? se hace una funcion aparte que lo verifique? si me pueden ayudar en esto, y disculpen tanto fastidio por no entender, otra cosa  daniel en un ejemplo que vi con una recomendacion tuya dice asi\n\n\n        statil function cambia (ofld)\n                ofld:setoption(2)\n                ofld:noption:2\n                olfd:refresch()\n\n        lo aplique en el programa para que cambie automaticamente a la carpeta del folder, lo hace bien, pero no se me ubica automaticamente en el primer get de ese folder ¿como haria para que se ubique?\n\n      de antemano muchas gracias por los concejos dados anterior mente\natte: william neskers','',0,'gA==','2gj4sjb4',1,0,'',510,0,0),(12312,2837,6,449,0,'212.64.224.250',1146055065,1,0,1,1,1,1,'','ADS -&gt; AdsRegCallBack()','Hola, \n\nAlguien usa con exito esta funcion ( ADSRegCallBack() )? \n\n\nSaludos.\nC.','',0,'gA==','m7r8bnk5',1,0,'',449,0,0),(12313,2823,3,213,0,'72.177.228.25',1146056245,1,0,1,1,1,0,'','','Antonio,\n\nNo, I simply compiled the testget2 sample in the \\fwh\\samples folder.  I am using xHarbour and Borland compiler.\n\nThe lostfocus method of tget has the following code:\n\n   if ! ::lPassword\n      if ::oGet:buffer != GetWindowText( ::hWnd )  // right click popup action\n         ::oGet:buffer  = GetWindowText( ::hWnd )\n         ::oGet:Assign()\n      endif\n   endif\n\nIs the original text being assigned back to the get buffer?\n\nI highlight the text \"Testing\" in the first field then right click and select Cut from the popup menu.   I press Tab to move to the next field and \"Testing\" appears back in the first field.\n\nRandal Ferguson','',0,'gA==','3tglu1ta',1,0,'',213,0,0),(12314,2349,4,240,0,'85.201.105.227',1146060233,1,0,1,1,1,1,'','','Hello Paul,\n\nI have the same request. \nHave you found something to solve this problem?\nCan you share your experience ?\n\nThanks,\nRaymond','',0,'gA==','2e4v67sf',1,0,'',240,0,0),(12315,2838,6,264,0,'200.91.3.10',1146060247,1,0,1,1,1,0,'','error en setfocus dentro del folder','No he podifo hacer que el foco a la entrada de mi folder quede en el primer control que es un GET.\nHice setfocus, acontrols dentro del dialogo, refresh, etc. pero nada funciona, pero si lo hago con un combobox en lugar de un get queda posicionado de inmediato en el.\nQue hago ? \nAlguna sugerencia ?','',0,'gA==','14iwitvk',1,0,'',264,0,0),(12316,2828,3,171,0,'71.232.193.197',1146060288,1,0,1,1,1,0,'','','Gracias por tu respuesta. \n\nYa solucione el problema. era que estaba usando la posicion del record como nStart','',0,'gA==','zswby748',1,0,'',171,0,0),(12317,2829,6,171,0,'71.232.193.197',1146060731,1,0,1,1,1,0,'','','Antonio\n\nGracias por responder. \n\nYa solucione el problema. Era que estaba usando nOffset como la posicion del record + 1 y por eso volvia de nuevo al mismo record siempre. \n\nAntonio ya que tu tienes experiencia en esta area aprovecho para preguntarte como puedo hacer para leer un archivo GRANDE, cientos de miles de records, que no puede ser cargado por memoread()?\n\nSi uso FOPEN(), que me limita el tamaño del archivo?\nEs posible calcular esta limitacion?\nComo se calcularia la posicion del record al usar  FOPEN()?\n\nSaludos\n\n\nGeorge','',0,'gA==','3b2azjqw',1,0,'',171,0,0),(12318,2819,6,171,0,'71.232.193.197',1146061428,1,0,1,1,1,0,'','','Antonio\n\nUse la clase y trabaja bien en apariencia. Solo que los ficheros transferidos llegan con 0 bytes. Investigare un poco mas a ver donde tengo el problema.\n\nSaludos\n\n\nGeorge','',0,'gA==','2s4e2ys5',1,0,'',171,0,0),(12319,2349,4,27,0,'62.174.195.220',1146061537,1,0,1,1,1,1,'','','No solution todate \n\nI think you have to try and read the COMM ports of the PDA','',0,'gA==','dyckd73h',1,0,'',27,0,0),(12320,2721,3,255,0,'200.67.175.250',1146062278,1,0,1,1,1,1,'','','Antonio..\n\nBy the way.... is there some other stuffs missed in ActiveX support ??','',0,'gA==','mc7tvrbf',1,0,'',255,0,0),(12321,2839,6,264,0,'200.91.3.10',1146062374,1,0,1,1,1,0,'','Nro. serial de la tarjeta de red.','Existe alguna forma de leer esta identificacion, pues el serialdisk() cambia luego de ser formateado el PC o si se usa como clave, puede ser duplicado el disco y se pierde el control.\nAlguna idea respecto de tarjetas fisicas del PC ( tj. madre, tj de red, etc )\nGracias.','',0,'gA==','qibqkltw',1,0,'',264,0,0),(12322,2840,6,75,0,'83.34.193.195',1146063630,1,0,1,1,1,0,'','indices cdx','Quiero pasarme a trabajar con índices CDX en vez de los NTX pero necesito que alguien me de algunas recomendaciones previas y si existe algún manual al respecto.\n\nUtilizo xHarbour de PuertoSur para fw 2.4\n\nGracias.','',0,'gA==','1dgsxcvt',1,0,'',75,0,0),(12323,2841,3,213,0,'72.177.228.25',1146064791,1,0,1,1,1,0,'','ActiveX &amp; xHarbour','Antonio,\n\nI received your email with the updated libs.  When I try to set the the event block I get an error on:\n\noMapPoint:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }\n\nThis line generates the error:\n\nError MapPoint.Control/16389  E_FAIL: _BONEVENT\n\nI also tried replacing the ActiveX lib with the one you posted here for someone else recently.  When I use this lib I get an error \"yourapp.exe has encountered a problem and needs to close\".\n\nIf I comment out the bOnEvent code the control works ok, at least the map is opened in a window.\n\nUsing FWH March 2006 and xBuilder 2006 w/xcc.\n\nThe other problem I reported seemed to be a problem with the MapPoint 2004 install, I was using the MSDN version.  I uninstalled that version and installed MapPoint 2002 and this seems to be working.\n\nIs there anyone else using MapPoint with ActiveX?\n\nIf your interested I could email you the mappoint setup and run discs.\n\nThanks,\nRandal Ferguson','',0,'gA==','jm6mao4t',1,0,'',213,0,0),(12324,2721,3,2,0,'80.32.22.38',1146065829,1,0,1,1,1,1,'','','Juan Carlos,\n\nNo, that we may know about.','',0,'gA==','2969p56i',1,0,'',2,0,0),(12325,2841,3,2,0,'80.32.22.38',1146066010,1,0,1,1,1,1,'','','Randal,\n\n&gt; I also tried replacing the ActiveX lib with the one you posted here\n\nYou must use the library I posted here or then you are using xHB ActiveX instead of FWH one.\n\nPlease show your code to see why you may get an error.','',0,'gA==','34duf2q9',1,0,'',2,0,0),(12326,2842,3,49,0,'87.6.179.43',1146066418,1,0,1,1,1,1,'','Road Book creation','I must create a program to create a roadbook page for Rallye\nTo understand my problem I can give You a picture\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/011ac2f727/esempio-roadbook.jpg.html\">http://hyperupload.com/download/011ac2f ... k.jpg.html</a><!-- m -->\n\nOn First column thereis the total ans partial  km \nOn Second column  there are some symbol and the direction to follow \nOn third column there are notes\n\nSomeone have an Idea to make it ?','',0,'gA==','1mx550z4',1,0,'',49,0,0),(12327,2823,3,2,0,'80.32.22.38',1146066842,1,0,1,1,1,1,'','','Randal,\n\nWe email you our most recent Class TGet just to be sure we are using the same one. Here it works ok.','',0,'gA==','1k2m7oyx',1,0,'',2,0,0),(12328,2842,3,2,0,'80.32.22.38',1146066965,1,0,1,1,1,1,'','','Silvio,\n\nPlease post the images (jpg,etc) at <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the provided url. Thanks.','',0,'gA==','zvshl2pu',1,0,'',2,0,0),(12329,2839,6,2,0,'80.32.22.38',1146067076,1,0,1,1,1,1,'','','Julio,\n\nGETNETCARDID() --&gt; nSerieTarjetaRed','',0,'gA==','lglsa18l',1,0,'',2,0,0),(12330,2837,6,138,0,'201.152.98.24',1146067093,1,0,1,1,1,1,'','','Haz probado asi ???:\n\n\nFUNCTION Main()\n   ...\n   AdsRegCallBack( {|nPercent| outputstuff(nPercent)}  )\n   INDEX ON First+LAST+LABEL1+LABEL2 TAG First\n   AdsClrCallBack()\nRETURN nil\n\nFUNCTION outputstuff(nPercent)  /* funcion \"callback\"  */\n   ? \"Porcentaje de avance:\", nPercent\nRETURN inkey() == 27','',0,'gA==','1thw0q87',1,0,'',138,0,0),(12331,2829,6,2,0,'80.32.22.38',1146067230,1,0,1,1,1,1,'','','George,\n\nNo tienes porque tener ningún problema usando MemoRead(), recuerda que estamos en 32 bits y puedes direccionar hasta 4 gigas de memoria de una vez.\n\nSi es superior a 4 gigas, puedes ir leyendo bloques con FOpen(), FRead(), etc.','',0,'gA==','1hs1ss3t',1,0,'',2,0,0),(12332,2839,6,264,0,'200.91.3.10',1146067385,1,0,1,1,1,0,'','','Gracias, lo revisaré !!','',0,'gA==','3audi4nb',1,0,'',264,0,0),(12333,2838,6,2,0,'80.32.22.38',1146067414,1,0,1,1,1,1,'','','Julio,\n\nDesde el ON INIT de la caja de diálogo haz:\n( oGet:SetFocus(), .f. )\n\nObserva que se devuelve .f., esto es necesario para que Windows admita darle el foco a otro control que no sea el que lo tomase por defecto.','',0,'gA==','11wsdumz',1,1146070981,'',2,1,0),(12334,2809,2,2,0,'80.32.22.38',1146067515,1,0,1,1,1,1,'','','oGet:lDisColor = .f.','',0,'gA==','7nz9did1',1,0,'',2,0,0),(12335,2836,6,138,0,'201.152.98.24',1146067641,1,0,1,1,1,1,'','','Necesitas descargar el Advantage Data Architech,  esta herramienta es un DBU para tablas DBF y ADTs.\n\nLo puedes bajar de aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/ver7/arc32.exe\">http://www.google.d2g.com/ads/ver7/arc32.exe</a><!-- m -->\n\nEsta herramienta te va a proporcionar 3 DLLs que vas a necesitar para implementar ADS que son:\n\nADSLOC32.DLL\nACE32.DLL\nAXWCS32.DLL\n\nEstas DLLs estan en la misma carpeta donde instalaste el Architech, copialas a la carpeta donde esta tu programa FiveWin.\n\nLuego necesitas convertir la ACE32.DLL en una lib compatible con Borland C++, asi que tienes que hacer:\n\nimplib ace32.lib ace32.dll\n\nIMPLIB es una herramienta que viene incluida con el C++ de Borland.\n\nEsto creara una lib llamada ACE32.LIB, que tendras que linkear a tu programa FWH.\n\nTambien vas a necesitar el RDDADS.LIB, esta lib no viene con (x)Harbour, tendras que descargala desde las seccion de contribuciones y  linkear la lib RDDADS.LIB a tus programas.\n\nLuego tienes que hacer las modificaciones correspondientes al codigo fuente y listo.','',0,'gA==','1r2q6fft',1,0,'',138,0,0),(12336,2821,3,529,0,'200.159.198.16',1146067779,1,0,1,1,1,0,'','and to build 3rd party libs and my aplication??','Antonio, thanks, only to confirme and to another users too:\n\n(x)harbour :\n-D__EXPORT__ -DHB_GUI -tWM -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -d -a8 -OS -O2 -5 -6 -DADS_REQUIRE_VERSION=5 &lt;&lt;&lt; this last is for me too, i use ads 5\n\nFWH\n-c -D__HARBOUR__ -D__FLAT__ -TP -D__EXPORT__ -DHB_GUI -tWM -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -d -a8 -OS -O2 -5 -6 -DADS_REQUIRE_VERSION=5 &lt;&lt;&lt; read above\n\nAnd to build my application i use above too??? or is not need?\n\nthanks again','',0,'gA==','1msew1sx',1,0,'',529,0,0),(12337,2827,6,138,0,'201.152.98.24',1146067804,1,0,1,1,1,1,'','','Si es posible, dependiendo de como estes definiendo tus llaves de los indices, recuerda que no puedes usar ni alias ni funciones definidas por el usuario, usualmente la generacion de indices via ADS es miles de veces mas rapida que con CDX.','',0,'gA==','gy9bendt',1,0,'',138,0,0),(12338,2821,3,529,0,'200.159.198.16',1146067890,1,0,1,1,1,0,'','one more thing...','Antonio, only more this, to xharbour and harbour, the parameters is the same????\n\nthanks','',0,'gA==','1fjfsuyp',1,0,'',529,0,0),(12339,2826,6,138,0,'201.152.98.24',1146067900,1,0,1,1,1,1,'','','Si es 16 bits, necesitaria saber cual es el tamaño de tu stacksize y tu heapsize, esos valores afectan el funcionamiento del uso de VBX.','',0,'gA==','2ttcnwav',1,0,'',138,0,0),(12340,2841,3,213,0,'72.177.228.25',1146067918,1,0,1,1,1,0,'','','Antonio,\n\nThe following is a sample of my code.\n\n   DEFINE WINDOW oWndMap OF oWnd ;\n      FROM 0,0 TO 0,0  ;\n      MDICHILD             ;\n      MENU MapMenu(oWndMap) ;\n      TITLE \"Map Point\"\n\n      oMapPoint = TActiveX():New( oWndMap, \"MapPoint.Control\" ) \n\n      oWndMap:oClient = oMapPoint // To fill the entire window surface\n\n      oMapPoint:Do(\"NewMap\", 1)\n\n      // Generates an error on this line.  If I comment out the window opens\n      oMapPoint:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }\n \n   ACTIVATE WINDOW oWndMap  ;\n        ON INIT ( oWndMap:Move(0,0,640,390,.t.) ) ;\n        ON PAINT oWndMap:SetFocus()               ;\n        VALID ( oMapPoint:Do(\"CloseMap\"), .T. )          \n\nRETURN NIL\n\nfunction EventInfo( event, aParams )\n\n   local cMsg := \"Event: \" + cValToChar( event ) + CRLF\n   local n\n   \n   cMsg += \"Params: \" \n   \n   for n = 1 to Len( aParams )\n      cMsg += cValToChar( aParams[ n ] ) + CRLF\n   next\n\nreturn cMsg + CRLF\n\n\nThis is a list of the libs in the \\fwh\\lib folder.  Using the Apr 2006 Build.  I extracted ole.obj from the fivehc.lib.  I also updated the Fivehcm and fivemx libs you sent me.\n\n04/04/06  10:50 AM         1,400,320 Fiveh.lib\n04/03/06  10:41 AM           346,112 fivehc.BAK\n04/26/06  10:58 AM           339,968 fivehc.lib\n04/17/06  11:18 AM           630,194 Fivehcm.lib\n04/04/06  10:50 AM         2,353,354 Fivehm.lib\n04/20/06  09:00 PM         2,382,536 Fivehmx.lib\n04/04/06  10:50 AM         1,420,288 Fivehx.lib\n04/21/06  01:33 PM           863,030 libs.zip\n\nI\'m also linking the ActiveX.lib you posted here recently.\n\n04/21/06  08:23 AM             4,172 ActiveX.lib\n\nUsing xHarbour/xBuilder March 2006 w/xcc.\n\nThanks,\nRandal Ferguson','',0,'','5ycpu5g5',1,0,'',213,0,0),(12341,2843,6,52,0,'200.127.195.89',1146067949,1,0,1,1,1,1,'','enviar cadenas a la tExcelScript','Estimados,\n\nTengo una cadena, que al enviarlo por medio de:\n[code:3vb2l09k]      oExcel&#58; say&#40; nCol, 02, PRODUCTO-&gt;DESC, &quot;ARIAL&quot;, 10, &#46;T&#46;,,, 01 &#41;[/code:3vb2l09k]\nMe quita los ceros de adelante y lo toma como su fueses números, como hago para que no quite los ceros y tome como cadena?\n\nPRODUCTO-&gt;DESC esta declarado como character \n\nGracias,.','',0,'AIA=','3vb2l09k',1,0,'',52,0,0),(12342,2838,6,264,0,'200.91.3.10',1146068277,1,0,1,1,1,0,'','','Gracias, funcionó como señalas.','',0,'AIA=','q2jzx2z4',1,0,'',264,0,0),(12343,1182,6,138,0,'201.152.98.24',1146068419,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:1r00ge2o]Rene\n\nPodrias decirnos como se usa Funcky con FWH para la transferencia de archivos via FTP, un ejemplo de codigo seria muy util <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[/quote:1r00ge2o]\n\nYo lo hago asi:\n\n[code:1r00ge2o]\noFtp &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Funckyftp&quot;&#41;\noFtp&#58;Connect&#40;&quot;ftp&#46;google&#46;d2g&#46;com&quot;,&quot;usuario&quot;,&quot;password&quot;&#41;\noFtp&#58;ChangeDir &#40;&quot;\\downloads\\ads&quot;&#41;\noFtp&#58;Get&#40;&quot;adsdemo&#46;exe&quot;, &quot;c&#58;\\adsdemo&#46;exe&quot;,0&#41; \noFtp&#58;Disconnect&#40;&#41;[/code:1r00ge2o]','',0,'gIA=','1r00ge2o',1,0,'',138,0,0),(12344,2668,3,138,0,'201.152.98.24',1146068789,1,0,1,1,1,1,'','','PMFJI:\n\nAs Far as I know, and correct me if I\'m wrong, 32 bits apps will not work under Win95 or they will work in a defective way. \n\nIn my experience the (x)Harbour programs fails a lot under Win95, that\'s why we encorage our customers to use Win98 SE or higher.','',0,'gIA=','24vdyumo',1,0,'',138,0,0),(12345,2827,6,61,0,'201.217.170.115',1146069484,1,0,1,1,1,0,'','','Gracias Rene\n\nSaludos\n\nRuben Fernandez','',0,'gIA=','2lhzaqia',1,0,'',61,0,0),(12346,2844,6,228,0,'201.245.222.85',1146069978,1,0,1,1,1,1,'','Cambiar color a los get desabilitados....','Yo se que esto ya lo han preguntado muchas veces, pero se que Antonio hizo unos cambios para no tener que modificar la clase... y los incluyo en el buil de marzo. Alguien me puede indicar como se hace....\n\nAl mismo tiempo he notado que en algunos get se coloca al final del objeto unas flechitas que aumentan o disminuyen el numero que hay en el get... como se hace esto?\n\nDe antemano gracias...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','ljgamypi',1,0,'',228,0,0),(12347,2840,6,228,0,'201.245.222.85',1146070316,1,0,1,1,1,1,'','lo hago asi...','al inicio de tu programa colocas lo siguiente...\n\n[code:3k8tkyja]\nREQUEST DBFCDX\nRddSetDefault&#40;&quot;DBFCDX&quot;&#41;\n[/code:3k8tkyja]\n\ny los indices los genero de la siguiente manera...\n\n[code:3k8tkyja]\nUSE &#40;oLamcla&#58;tPrem&#41; ALIAS tPrem EXCLUSIVE NEW\nIF !NETERR&#40;&#41;\n  oProgress&#58;nPosition += 1\n  FERASE&#40;oLamcla&#58;tPrem+&quot;&#46;CDX&quot;&#41;\n  IF FILE&#40;oLamcla&#58;tPrem+&quot;&#46;CDX&quot;&#41;\n   ELSE\n    INDEX ON Articulo TAG nTcod\n    INDEX ON nombre   TAG nTnom\n   ENDIF\n ELSE\n  MSGINFO&#40;oLamcla&#58;tPrem&#41;\nENDI\ntPrem-&gt;&#40;dbclosearea&#40;&#41;&#41;\n[/code:3k8tkyja]\n\nEspero te sirva...\n\nah: nunca me han fallado hasta el momento....','',0,'AIA=','3k8tkyja',1,0,'',228,0,0),(12348,2841,3,2,0,'80.32.22.38',1146070360,1,0,1,1,1,1,'','','Randal,\n\n&gt; I extracted ole.obj from the fivehc.lib.\n\nDon\'t extract it. Please try with it.','',0,'AIA=','y3onclje',1,0,'',2,0,0),(12349,2821,3,2,0,'80.32.22.38',1146070431,1,0,1,1,1,1,'','','yes','',0,'AIA=','33met220',1,0,'',2,0,0),(12350,2844,6,2,0,'80.32.22.38',1146070932,1,0,1,1,1,1,'','','Leandro,\n\noGet:lDisColor = .f.\n\nAsí, cuando el GET esté deshabilitado, se segirá viendo con los colores que le hayas dado al GET y no los que usa Windows.\n\nPara los GETs con \"spinner\", revisa samples\\TestGet.prg','',0,'AIA=','3kfke4kw',1,0,'',2,0,0),(12351,2842,3,49,0,'87.11.183.245',1146071249,1,0,1,1,1,1,'','','[url=http&#58;//img278&#46;imageshack&#46;us/my&#46;php?image=esempioroadbook0da&#46;jpg:3q5k0tes][img:3q5k0tes]http&#58;//img278&#46;imageshack&#46;us/img278/4537/esempioroadbook0da&#46;th&#46;jpg[/img:3q5k0tes][/url:3q5k0tes]','',0,'GA==','3q5k0tes',1,0,'',49,0,0),(12352,2821,3,529,0,'200.159.198.16',1146072887,1,0,1,1,1,0,'','harbour','Antonio, thanks, and to harbour i use:\n\n-n -m -w -es2 -gc0\n\nthis is correct? missing something??\n\nthanks for your support... this is very handefull to me , and i guess to another users too.','',0,'GA==','ht1hrsie',1,0,'',529,0,0),(12353,2845,3,529,0,'200.159.198.16',1146073233,1,0,1,1,1,0,'','Folder inside another folder - issue??','some days ago I put one doubt on the theme folder inside of another folder, and  I receive an answer of Antonio that was not possible, after doing several tests, same because in fw16 it works well, I discovered that if the folder (2-  child ) it is not inside of a groupbox he appears, but if it is inside of a groupbox doesn\'t he appear, that and some mistake??\nin fw16 this dont work. i only delete the groupbox and works fine...\n\nthanks','',0,'GA==','2g728dh0',1,0,'',529,0,0),(12354,2845,3,529,0,'200.159.198.16',1146073313,1,0,1,1,1,0,'','write wrong','OPS, i write wrong, in fw 16 this is works... with groupbox or without groupbox.','',0,'GA==','a6klhfuh',1,0,'',529,0,0),(12355,2821,3,2,0,'80.32.22.38',1146073924,1,0,1,1,1,1,'','','/L /N /W is enough','',0,'GA==','1gc6j7if',1,0,'',2,0,0),(12356,2822,3,97,0,'200.23.84.231',1146074100,1,0,1,1,1,1,'','Tmysql, mysql.lib','jac, I use mysql of contrib, with some change made, why mysql.lib is more speed of ado and odbc, and more important you can made change of your need.\n\n\n\nregards.\nfernando sandoval','',0,'GA==','34r5y4zs',1,0,'',97,0,0),(12357,2842,3,2,0,'80.32.22.38',1146074125,1,0,1,1,1,1,'','','Silvio,\n\nYou have to create a user defined control where on the Method Paint() you do all that painting.','',0,'GA==','acmyi7sy',1,0,'',2,0,0),(12358,2842,3,49,0,'87.11.183.245',1146075993,1,0,1,1,1,1,'','','Can You make an small sample ?','',0,'GA==','31kw9yvm',1,0,'',49,0,0),(12359,2841,3,213,0,'72.177.228.25',1146079425,1,0,1,1,1,0,'','','Antonio,\n\nWhen using the original fivehc.lib dated 4/3/06 I get the message \"yourapp has encountered a problem and needs to close\" at this line:\n\noMapPoint = TActiveX():New( oWndMap, \"MapPoint.Control\" ) \n\nThanks,\nRandal Ferguson','',0,'GA==','134yrwg6',1,0,'',213,0,0),(12360,2795,2,74,0,'190.48.234.226',1146079556,1,0,1,1,1,1,'','','Antonio:\n\n            Gracias por tu respuesta, lastima, me rompe todo el esquema, pero algo vamos a inventar.\n\n            Gracias de nuevo.\n\nSaludos,','',0,'GA==','2nfc747o',1,0,'',74,0,0);
INSERT INTO `phpbb_posts` VALUES (12361,2841,3,2,0,'80.32.22.38',1146082987,1,0,1,1,1,1,'','','Randal,\n\nCould you please try samples\\webexp.prg and check if it works ok for you ? thanks.','',0,'GA==','3avfal3s',1,0,'',2,0,0),(12362,2842,3,2,0,'80.32.22.38',1146083511,1,0,1,1,1,1,'','','Silvio,\n\nClass TTabS is a sample of a user defined class. You just need to change its Method Paint() to get it painted as you need it, and add the required DATAs to hold the info you are going to manage.','',0,'GA==','2znh8lbl',1,0,'',2,0,0),(12363,2755,17,2,0,'80.32.22.38',1146083648,1,0,1,1,1,1,'','','google is your friend:\n<!-- m --><a class=\"postlink\" href=\"http://www.zanella-hifi.com/szp/bcg_eng.html\">http://www.zanella-hifi.com/szp/bcg_eng.html</a><!-- m -->','',0,'GA==','11lidyln',1,0,'',2,0,0),(12364,2775,6,36,0,'164.77.81.210',1146083850,1,0,1,1,1,0,'','','Solucionado gracias a [b:3vj7mlwd]Marcelo Via Giglio[/b:3vj7mlwd]\n\nPara los que le interese:\n\n[code:3vj7mlwd]rddRegister&#40; &quot;ADS&quot;, 1 &#41;\nRddSetDefault&#40;&quot;ADS&quot;&#41;\nSET FILETYPE TO ADT\nSET SERVER REMOTE\nAdsUseDictionary&#40; &#46;T&#46; &#41;\nAdsRightsCheck&#40; &#46;F&#46; &#41;\n\nIF !AdsConnect60&#40; &quot;\\\\server\\sistema\\dicc&#46;add&quot;, 7, &quot;adssys&quot;, &quot;pass&quot; &#41;\n   MsgInfo&#40; &quot;Error&#46;&#46;&quot; &#41;\n   Quit\nendif\n\nAdsUseDictionary&#40; &#46;T&#46; &#41;\nAdsRightsCheck&#40; &#46;F&#46; &#41;\n\nuse articu shared new\nbrowse&#40;&#41;\nbla&#46;&#46;&#46;\nbla&#46;&#46;\n//ahora a probar &#58;-&#41;\n\n[/code:3vj7mlwd]\n\nSaludos\nPatricio','',0,'QIA=','3vj7mlwd',1,0,'',36,0,0),(12365,2825,6,519,0,'83.38.241.67',1146084494,1,0,1,1,1,0,'','','Gracias Rufer funciona perfectamente\n\n\n   Un saludo','',0,'QIA=','3qi63mme',1,0,'',519,0,0),(12366,2846,6,547,0,'200.95.15.78',1146084583,1,0,1,1,1,0,'','VBX en 32 Bits','La Clase TVBControl() para manejar VBX en 32 Bits esta casi lista, faltan por corregir algunos detalles pero es funcional en diálogos y ventanas, la he probado con diferentes controles incluido el Chart2Fx, realizando algunos cambios en el manejo de eventos y propiedades funciona sin problemas\n\nUna vez lista será enviada a Antonio Linares para su publicación.\n\nSaludos.\n\nAlgunos ejemplos:\n\n[img:doyypq4b]http&#58;//alfasistemas&#46;net/Chartfx_1&#46;jpg[/img:doyypq4b]\n\n[img:doyypq4b]http&#58;//alfasistemas&#46;net/Chartfx_2&#46;jpg[/img:doyypq4b]\n\n[img:doyypq4b]http&#58;//alfasistemas&#46;net/masvbx&#46;jpg[/img:doyypq4b]','',0,'CA==','doyypq4b',1,0,'',547,0,0),(12367,2847,6,519,0,'83.38.241.67',1146085787,1,0,1,1,1,0,'','Twbrowse de Rossine','Hola \n\n   Que le pasa al twbrowse de Rossine que  desde recursos el twbrowse lo pinta siempre en TOP y no lo muestra como se ha creado ? viendo un poco las modificaciones  el error me parece que esta a la hora de calcular las coordenadas en el metodo DEFAULT()\n\n\n if ::nWidth = NIL     &amp;&amp; Somente para REDEFINES   &amp;&amp; By Rossine\n      ::nTop       := aRect[1]                                          &amp;&amp; By Rossine\n      ::nLeft      := aRect[2]                                          &amp;&amp; By Rossine\n      ::nHeigth    := ( aRect[3] - aRect[1] ) / 2                       &amp;&amp; By Rossine\n      ::nWidth     := (( aRect[4] - aRect[2] ) / 2 ) + VSCROLL_WIDTH    &amp;&amp; By Rossine\n      ::nBottom    := aRect[3]                                          &amp;&amp; By Rossine\n      ::nRight     := aRect[4]                                          &amp;&amp; By Rossine\n   endif\n\n\nUn saludo \n\n[/img]','',0,'','3g89xxkw',1,0,'',519,0,0),(12368,2840,6,439,0,'190.0.136.60',1146086921,1,0,1,1,1,1,'','Un detalle importante','Un detalle importante como habrás visto en el ejemplo anterior es que los índices cdx no se reindexan (aunque se puede hacer) sino que se borran y se vuelven a crear, esto se debe a un bug de estos índices que hace que la información anterior quede dentro del archivo aunque \"desconectada\" con lo cual cada vez que reindexas el archivo aumenta de tamaño sustancialmente.\n\nDebes tener en cuenta que si usas la cláusula SET AUTOPEN ON debes ponerla en OFF antes de indizar, de otro modo el archivo CDX se abrirá junto con la base y no podrás borrarlos luego de recrear los índices la volverás a poner en ON.\n\nTe adjunto un par de documentos del Rafa Carmona sobre DBFCDX ( no te asustes son unas 5 páginas) a mí me ayudaron sustancialmente en el uso de estos índices. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nbajalo en:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d627c128/dbfcdx.exe.html\">http://hyperupload.com/download/01d627c ... x.exe.html</a><!-- m -->\n(son dos pdf en un archivo self stracting de Rar)\n\nVerás que trabajando con SET AUTOPEN ON y e INDICES BAG ESTRUCTURALES te ahorrarás cientos de líneas de código e índices corruptos. <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nUn fuerte abrazo.','',0,'','1qhd1oef',1,0,'',439,0,0),(12369,2533,1,320,0,'201.151.75.180',1146087059,1,0,1,1,1,0,'','oPrn:oSayBitMap','After several tests  I found out that the parameters on the oSayBitmap work this way:\n\nI have an bmp image 250,70 pixels, if I print it with oPrn:SayBitmap(1,1,\'Image.bmp\') it will be barely visible (about 1 cm).\n\nYou should play with these numbers to adjust the size you want.  A 500,140 would show a decent logo.\n\nOn the oReport:SayBitmap() instruction, it works entirely different.','',0,'','2rr7q5jd',1,0,'',320,0,0),(12370,2846,6,439,0,'190.0.136.60',1146087862,1,0,1,1,1,1,'','','Excelente trabajo, felicitaciones.\nSerá incorporada a próximos builds de Fivewin o como podremos obtenerla? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1rtdben5',1,0,'',439,0,0),(12371,2848,6,439,0,'190.0.136.60',1146087910,1,0,1,1,1,1,'','CHARTFX2 Como obtenerla?','Esa es mi pregunta....... <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'','112wa0vq',1,0,'',439,0,0),(12372,2755,17,49,0,'82.57.119.146',1146089396,1,0,1,1,1,1,'','','it is possible with xh &amp;fw ?','',0,'','bfejnpkg',1,0,'',49,0,0),(12373,2848,6,138,0,'201.152.98.24',1146093841,1,0,1,1,1,1,'','','Es un control de paga que puedes obtener de:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarefx.com\">www.softwarefx.com</a><!-- w -->','',0,'','181vi6kh',1,0,'',138,0,0),(12374,2848,6,439,0,'190.0.143.66',1146102817,1,0,1,1,1,1,'','','Gracias René por contestar.\n\nNo sabía que era tan costosa <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nPor ahora no es para mí.\n\nUn abrazo','',0,'','3el9h58k',1,0,'',439,0,0),(12375,2849,6,547,0,'201.102.36.97',1146104319,1,0,1,1,1,0,'','ChartFX 3.0','Hola José:\n\nSegún tengo entendido la versión 3.0 del Chartfx es libre debido a que ya es un producto descontinuado, con gusto puedo enviarla a tu mail privado.\n\nAnteriormente este control era muy utilizado para crear graficas pero debido a la limitante de la tecnología VBX solo estaba disponible en FW de 16 bits, ahora con esta nueva revisión que realice de la clase TVBControl() de FWH, estará disponible para 32 Bits.\n\nSaludos.','',0,'','2nfru502',1,0,'',547,0,0),(12376,2849,6,292,0,'200.84.204.76',1146104661,1,0,1,1,1,1,'','','José puedes enviarme dicha herramienta.','',0,'','5c0xk6qm',1,0,'',292,0,0),(12377,2477,3,190,0,'202.65.134.27',1146106926,1,0,1,1,1,0,'','','Hi Richard\n\nWhat is the price for \"Fingerprint hardware, device, CD and LIB file within \nxHarbour\" including the cost of handling charges to INDIA and what is the\nmode of Payment ?\n\nRegards\n\n- Ramesh Babu P','',0,'','3e9zaqrs',1,0,'',190,0,0),(12378,2846,6,215,0,'201.144.205.4',1146107882,1,0,1,1,1,0,'','IMPRESIONANTE','Felicidades, un trabajo impresionante.\n\nSaludos\nFernando Leal','',0,'','2n2p6tt9',1,0,'',215,0,0),(12379,2849,6,54,0,'201.137.108.73',1146108049,1,0,1,1,1,1,'','Re: ChartFX 3.0','[quote=&quot;Alberto Juárez&quot;:dl1v3ln9]Hola José:\n\nSegún tengo entendido la versión 3.0 del Chartfx es libre debido a que ya es un producto descontinuado, con gusto puedo enviarla a tu mail privado.\n\nAnteriormente este control era muy utilizado para crear graficas pero debido a la limitante de la tecnología VBX solo estaba disponible en FW de 16 bits, ahora con esta nueva revisión que realice de la clase TVBControl() de FWH, estará disponible para 32 Bits.\n\nSaludos.[/quote:dl1v3ln9]\n\nPodrias colgarla en algun site, para poderla descargar?\n\neste es mi correo:\n\n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->\n\nGracias anticipadas','',0,'gA==','dl1v3ln9',1,0,'',54,0,0),(12380,2477,3,15,0,'203.73.69.28',1146108867,1,0,1,1,1,0,'','','Hi RAMESHBABU,\n\nI will EMail to you. Please check your mail box.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gA==','1kiumplg',1,0,'',15,0,0),(12381,2477,3,9,0,'85.60.10.217',1146112192,1,0,1,1,1,1,'','','Richard\n\nPlease, send it to me also.\n\nRegards','',0,'gA==','3qo3qod0',1,0,'',9,0,0),(12382,2850,3,530,0,'201.114.224.202',1146115016,1,0,1,1,1,0,'','from VB6 to FWH','Hi Everybody:\n\nCan You Help Me to transalate this code from VB6 to FWH\n\nPublic Type MyType\n  var as Variant  //Wich is the FWH Type fro variant\n  a() as Byte      //what does this mean ?\nEnd Type\n\nPublic uType as MyType\nReDim uType.a(20) As Byte\n\n\nThanks in advance\nFco Gamboa','',0,'gA==','1w9lgj4s',1,0,'',530,0,0),(12383,2851,3,281,0,'219.251.175.150',1146119959,1,0,1,1,1,1,'','Hi all Bitmap TEXT COLOR ?','Hi all.\n\nHow the bitmap a text color at the at.\n\n[code:dxjwg3zb]\n\nFUNC main&#40;&#41;\n   local oBmp\n\n   DEFINE WINDOW oWnd TITLE &quot;Text on a bitmap&quot;\n\n   @ 1, 1 BITMAP oBmp FILENAME &quot;&#46;&#46;\\bitmaps\\fw&#46;bmp&quot; OF oWnd\n\n   oBmp&#58;bPainted = &#123; || SetBkMode&#40; oBmp&#58;hDC, TRANSPARENT &#41;,;\n                        TextOut&#40; oBmp&#58;hDC, 5, 5, &quot;Hello&quot; &#41; &#125;\n\n   //TEXT COLOR ?\n\n   ACTIVATE WINDOW oWnd\n\nRETU NIL\n\n[/code:dxjwg3zb]\n\nFWH USER....................','',0,'AIA=','dxjwg3zb',1,0,'',281,0,0),(12384,2755,17,2,0,'80.32.22.38',1146121140,1,0,1,1,1,1,'','','Silvio,\n\nWe don\'t know it. Its your homework.','',0,'AIA=','139ehb7j',1,0,'',2,0,0),(12385,2850,3,2,0,'80.32.22.38',1146121278,1,0,1,1,1,1,'','','Fco\n\nClipper/Harbour variables are equivalent to VB variants. They are variables that can hold different types of values.\n\nYou may use a FWH STRUCT ... ENDSTRUCT. But the main question is: what do you need it for ?','',0,'AIA=','c6j2kn94',1,0,'',2,0,0),(12386,2851,3,2,0,'80.32.22.38',1146121603,1,0,1,1,1,1,'','','[code:6eubw9mk]\n   oBmp&#58;bPainted = &#123; || SetBkMode&#40; oBmp&#58;hDC, 1 &#41;,; \n                        SetTextColor&#40; oBmp&#58;hDC, CLR_HRED &#41;,;\n                        TextOut&#40; oBmp&#58;hDC, 5, 5, &quot;Hello&quot; &#41; &#125; \n[/code:6eubw9mk]','',0,'AIA=','6eubw9mk',1,0,'',2,0,0),(12387,2846,6,2,0,'80.32.22.38',1146121769,1,0,1,1,1,1,'','','Alberto,\n\nEnhorabuena y gracias,','',0,'AIA=','2mf88xn4',1,0,'',2,0,0),(12389,2837,6,449,0,'212.64.224.250',1146124113,1,0,1,1,1,1,'','','Hi Rene,\n\nTenia una construccion similar a la tuya y no me funcionaba y llevaba 3 dias con ello, pero... te explico. Yo queria usar esta funcionalidad con la funcion ADSCopyTableContents(). La funcion en si va como un torpedo y segun su help:\n\n[quote:267fhw1s]\n Note  This function is capable of utilizing registered callback functions \n[/quote:267fhw1s]\n\nY un  codigo sencillo a probar podria ser\n\n[code:267fhw1s]\nFUNCTION Main&#40;&#41; \n&#46;&#46;&#46; \nUSE ORIGEN SHARED NEW\ncAliasOrigen &#58;= Alias&#40;&#41;\n\nUSE DESTINO SHARED NEW\ncAliasDestino &#58;= Alias&#40;&#41;\n\nAdsRegCallBack&#40; &#123;|nPercent| outputstuff&#40;nPercent&#41;&#125; &#41; \n\n&#40;cAliasOrigen&#41;-&gt;&#40; AdsCopyTableContents&#40; cAliasDestino &#41; &#41;\n\nAdsClrCallBack&#40;&#41; \n\nRETURN nil \n[/code:267fhw1s]\n\n\nY venga a probar q probar y nada. En cambio lo pruebas en un ejemplo con indexados y funciona Ok. En fin, desisto ya perder mas tiempo. Sera un error del Help de ADS.\n\nBueno, gracias por tu feedback. \n\nNota: Nos tomamos prontito unas cervezas en Barcelona ?  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nUn abrazo','',0,'gIA=','267fhw1s',1,0,'',449,0,0),(12390,2477,3,15,0,'203.79.155.24',1146126896,1,0,1,1,1,0,'','','Hi Manuel, \n\nI will EMail to you. Please check your mail box. \n\nRegards, \n\nRichard \nFivetech.net Taiwan','',0,'gIA=','1ijmf85f',1,0,'',15,0,0),(12391,2852,3,281,0,'219.251.175.150',1146128361,1,0,1,1,1,1,'','BTNBMP Text Color ?','Thanks you. Antonio \n\nHow are you the low which the BTNBMP increases then? \n\n[code:angoe7xj]\n@ 170, 31 BTNBMP oBut RESOURCE &quot;button&quot; CENTER PROMPT &quot;00&#58;00&#58;00&quot; FONT oFont2 SIZE 136, 130 ; \nACTION oWnd&#58;End&#40;&#41; OF oWnd NOBORDER \n\n// ? TextColor\n// ? Font\n\n[/code:angoe7xj]\n\nFWH USer...........','',0,'AIA=','angoe7xj',1,0,'',281,0,0),(12392,2850,3,6,0,'87.3.212.172',1146130631,1,0,1,1,1,1,'','Re: from VB6 to FWH','[quote=&quot;FGamboa&quot;:15s8vedb]a() as Byte      //what does this mean ?[/quote:15s8vedb]\n\nArray of Bytes.\n\nEMG','',0,'gA==','15s8vedb',1,0,'',6,0,0),(12393,2852,3,2,0,'80.32.22.38',1146130717,1,0,1,1,1,1,'','','Sorry, I don\'t understand what you mean.\n\nDo you want to show the running time on the button ?','',0,'gA==','11spb9yu',1,0,'',2,0,0),(12394,2852,3,281,0,'219.251.175.150',1146139409,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1lje5ec7]Sorry, I don\'t understand what you mean.\n\nDo you want to show the running time on the button ?[/quote:1lje5ec7]\n\n[code:1lje5ec7]\n@ 0,0 BTNBMP oBut RESOURCE &quot;start&quot;  CENTER PROMPT &quot;Text Caption &quot; SIZE 101, 39 ACTION start&#40;&#41; OF oWnd NOBORDER\n[/code:1lje5ec7]\n\nWe change \'Text Caption\' Color.','',0,'gIA=','1lje5ec7',1,0,'',281,0,0),(12395,2852,3,2,0,'80.32.22.38',1146140329,1,0,1,1,1,1,'','','oBut:SetColor( \"GR+/B\" ) or\n\noBut:SetColor( CLR_..., CLR_... ) or\n\noBut:SetColor( nRGB( ..., ..., ... ), nRGB( ..., ..., ... ) )','',0,'gIA=','224tw8dz',1,0,'',2,0,0),(12396,2853,6,171,0,'71.232.193.197',1146140534,1,0,1,1,1,0,'','&quot;Pegar&quot; DIALOGO a MAIN WINDOW','Para \"pegar\" un dialogo al MAIN WINDOW al iniciar mi programa, uso la clausula ON INIT, asi como oDlg:Move(x,y) para posicionar dicho dialogo dentro del WINDOW; al dialogo le quito el CAPTION  asi este no se puede mover. \n\nEl problema lo tengo que el MAIN WINDOW si se puede mover y maximizar. Lo que quisiera es que cuando se mueva el MAIN WINDOW tambien se mueva con el el dialogo y que el MAIN WINDOW no se pueda MAXIMIZAR. Alguna sugerencia?\n\nGeorge','',0,'gIA=','27q42ytk',1,0,'',171,0,0),(12397,2854,2,108,0,'200.47.124.103',1146142425,1,0,1,1,1,0,'','Detectar Nro de copia','Hola Foro...\nCual es la forma de que en un listado usando la clase Tprinter, en el cual seteando por setcopies(3), pueda detectar que nro de copia se esta imprimiendo, para por ejemplo poder poner Original, Duplicado, Triplicado Etc.... Eso si sin hacer un For Next .... Muchas Gracias ...\n\nCarlos Marucco','',0,'gIA=','21hk93jf',1,0,'',108,0,0),(12398,2840,6,53,0,'201.138.16.100',1146142741,1,0,1,1,1,1,'','','Verhoven, Leandro y José:\n\nCon la función ORDLISTREBUILD()  y no he tenido problemas.\ndenle una mirada.\n\n\nSaludos, Armando','',0,'gIA=','2eqp5rpk',1,0,'',53,0,0),(12399,2841,3,213,0,'72.177.228.25',1146144051,1,0,1,1,1,0,'','','Antonio,\n\nIf I build webexp sample using xharbour and bcc it works fine.  If I build using xBuilder and xcc, linking ActiveX.lib from xHabour I get the same error message.\n\nError description: Error Shell.Explorer/16389  E_FAIL: _BONEVENT\n\nIf I build with xBuilder and do not link xHarbour ActiveX.lib I get the error\n\nError description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: HWND\n\nThanks,\nRandal Ferguson','',0,'gIA=','rtolrahk',1,0,'',213,0,0),(12400,2849,6,439,0,'190.0.136.105',1146145753,1,0,1,1,1,1,'','','Podrías enviárme esa herramienta a mí también? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\na: <!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e -->','',0,'gIA=','15zunjus',1,0,'',439,0,0),(12401,2841,3,2,0,'80.32.22.38',1146146173,1,0,1,1,1,1,'','','Randal,\n\n&gt; Error description: Error BASE/1004 Class: \'NUMERIC\' has no exported method: HWND \n\nWhat source code generates that error ?','',0,'gIA=','ayqi3wnp',1,0,'',2,0,0),(12402,2853,6,2,0,'80.32.22.38',1146146297,1,0,1,1,1,1,'','','George,\n\nPara que el diálogo sea \"child\" de la ventana, usa la claúsula OF:\n\nDEFINE DIALOG ... OF oWnd\n\nAsí se moverá a la vez que se mueva la ventana.','',0,'gIA=','1orgdpag',1,0,'',2,0,0),(12403,2841,3,213,0,'72.177.228.25',1146146789,1,0,1,1,1,0,'','','Antonio,\n\nThe line that generates that error is:\n\noActiveX = TActiveX():New( oWnd, \"Shell.Explorer\" )\n\nHere is the error log:\n\nApplication\n===========\n   Path and name: D:\\xHB\\bin\\webexp.exe (32 bits)\n   Size: 1,504,768 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 04/27/06, 09:03:38\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: TActiveX.prg =&gt; CREATEACTIVEX(184)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: webexp.prg =&gt; MAIN(11)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 3.20GHz 3200 Mhz\n   Hardware memory: 1023 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 35\n      1 \n      2 SysFader\n      3 Start Menu\n      4 DirectDBNotifyWndProc\n      5 Outlook Express FolderSync Window Class\n      6 Outlook Express NewsStore\n      7 DirectDBListenWndProc\n      8 Norton AntiVirus\n      9 FiveWin ActiveX Support\n     10 xBuild - D:\\xHB\\bin\\webexp.exe.xbp\n     11 Multi-Edit - [D:\\FWH\\SAMPLES\\webexp.prg]\n     12 MCI command handling window\n     13 DDE Server Window\n     14 ThorConnWndClass\n     15 Identity Mgr Notify\n     16 WAB Notification Window\n     17 WOWExec\n     18 Microsoft ActiveSync\n     19 DefAlert_Window_29DABAC8-AB93-43f3-926D-1DDE0C909FDF\n     20 WCES Manager Thunk Window\n     21 DirectCD\n     22 DccMan\n     23 SigmatelSysTray\n     24 Connections Tray\n     25 ccApp\n     26 Power Meter\n     27 MS_WebcheckMonitor\n     28 UnErase Process\n     29 ATI video bios poller\n     30 ACT!\n     31 VCERuntime\n     32 <!-- w --><a class=\"postlink\" href=\"http://www.FiveTechSoft.com\">www.FiveTechSoft.com</a><!-- w --> :: View topic - ActiveX &amp; xHarbour - Microsoft Internet Explorer\n     33 Command Prompt\n     34 xHarbour - Outlook Express\n     35 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   HWND\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    N    0\n   TACTIVEX&#058;NEW\n     Param   1:    N    1312076\n     Param   2:    C    \"Shell.Explorer\"\n     Param   3:    O    Class: TACTIVEX\n     Param   4:    U    \n     Local   1:    U    \n     Local   2:    U    \n   CREATEACTIVEX\n     Param   1:    N    1312076\n     Param   2:    C    \"Shell.Explorer\"\n     Param   3:    O    Class: TACTIVEX\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    C    \"Shell.Explorer\"\n     Local   4:    N    0\n     Local   5:    O    Class: ERROR\n     Local   6:    O    Class: SHELL.EXPLORER.1\n     Local   7:    N    1330792\n     Local   8:    N    1406416\n     Local   9:    O    Class: TYPELIB\n     Local  10:    C    \"{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}\"\n   TACTIVEX&#058;NEW\n     Param   1:    O    Class: TWINDOW\n     Param   2:    C    \"Shell.Explorer\"\n     Local   1:    O    Class: TACTIVEX\n     Local   2:    U    \n     Local   3:    O    Class: TACTIVEX\n   MAIN\n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    C    \"\"\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TBRUSH\n     5 TFONT\n     6 TCONTROL\n     7 TACTIVEX\n     8 TYPELIB\n     9 ENUMTYPEINFO\n    10 CONSTANTTYPEINFO\n    11 OBJECTTYPEINFO\n    12 INTERFACETYPEINFO\n    13 METHODTYPEINFO\n    14 ARGUMENTTYPEINFO\n    15 PROPERTYTYPEINFO\n    16 TOLEAUTO\n    17 OLEWRAPPER\n    18 OLEXWRAPPER\n    19 SHELL.EXPLORER.1\n    20 {EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}\n    21 {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}\n    22 SHELL.EXPLORER.2\n    23 {8856F961-340A-11D0-A96B-00C04FD705A2}\n    24 {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}.IWEBBROWSER2\n    25 {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}.IWEBBROWSER\n    26 {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}\n    27 ERROR\n    28 TREG32\n\nMemory Analysis\n===============\n      126 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','3ayjzv69',1,0,'',213,0,0),(12404,2477,3,266,0,'60.50.92.163',1146149357,1,0,1,1,1,1,'','','Richard,\n\nI would like to know the price too. Plz send it to me.','',0,'','d40asamd',1,0,'',266,0,0),(12405,2837,6,138,0,'201.152.98.24',1146153941,1,0,1,1,1,1,'','','Carles:\n\nNop, no es un error del Help ADS, es simplemente que el \"Callback\" solo esta implementado para los índices en el RDDADS, no fuciona en ninguna otra función....  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nVoy a ponerme en contacto con Bryan Hayes, a ver si es posible implementar llamadas callback en toras funciones.','',0,'','1sul4gka',1,0,'',138,0,0),(12406,2855,2,375,0,'84.122.107.146',1146154179,1,0,1,1,1,1,'','EXCEL Y OFFICE','Bueno me lo temía, tengo que utilizar Excel y Office. Concretamente, tengo que abrir ficheros modelo cambiando previamente, unos comnodines por su correspondiente dato DBF.\n\nPara Excel, he ojeado TFileXLS de Ramón Avendaño y TExcelScript de Vikthor. Cúal me aconsejais.\nEn cuanto a Office no he tenido timpo de mirar nada aún. Si me aconsejais algo en concreto, tiempo que me ahorro.\n\nMuchas Gracias de antemano.','',0,'','fnsssc8i',1,0,'',375,0,0),(12407,2841,3,2,0,'80.32.22.38',1146155788,1,0,1,1,1,1,'','','Randal,\n\n&gt; Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n\nYou are using xHB TActiveX.prg. You need to use the ActiveX.lib we provided here that is an empty lib.\n\nFWH\'s one is named ActiveX.prg.','',0,'','3lpm2wj7',1,0,'',2,0,0),(12408,2856,3,439,0,'190.0.139.221',1146157370,1,0,1,1,1,1,'','Consulta sobre la clase TExcel','Estoy teniendo problemas para generar una función paramétrica que genere planillas con la clase TExcels,  [i:en3o8z9j][b:en3o8z9j]la razón naturalmente no es un bug de la clase sino falta de ingenio.[/b:en3o8z9j][/i:en3o8z9j]\nUtilizo un array que contiene un block de código con los datos que deben colocarse en cada celda, cuando cargo la celda, si es una fórmula de excel no me funciona el block de código, creo porque no es una expresión válida para el block.\n\nAlguien me puede sugerir como resolverlo?\nAqui va el código:\n\n..........\naTitulo[1]:=\"KGS.PIE\"\naTitulo[2]:=\"PROM.\"\n\naDato[1]:={||LINCVH-&gt;PESO}\naDato[2]:={||+( _CELL(nRow,19)/_CELL( nRow, 18) )}\n\naAlign[1]:=3\naAlign[2]:=3\n\naAncho[1]:=13\naAncho[2]:=10\n\naPicture[1]:=\"#,##0\"\naPicture[2]:=\"#,##0\"\n\naFormula[1]:=.F.\naFormula[2]:=.T.\n\naTotal[1]:=.T.\naTotal[2]:=.T.\n	\nFOR i= 1 to len(aDato)\n     DEFINE XLS FORMAT aFormat[i] PICTURE aPicture[i]\nNEXT\n//Creo objeto XLS\nXLS oXLS FILE &amp;cNomFile AUTOEXEC\n//establezco ancho de columnas\nFOR i=1 TO len(aDato)\n     XLS COL i WIDTH aAncho[i] OF oXLS\nNEXT\n//Escribo titulos en la primera Fila\nnRow=1\nFOR i = 1 to LEN(aDato)\n     @ nRow, i XLS SAY aTitulo[i] FONT aFnt[2] SHADED;\n          BORDER 64 ALIGNAMENT 2 OF oXLS\nNEXT\nGO TOP\nDO WHILE !Eof()\n     nRow++\n     FOR i to len(aDato)\n          IF !aFormula[i]\n               @ nRow, i XLS SAY EVAL(aDato[i]) FONT aFnt[3] FORMAT ; \n                     aFormat[i] ALIGNAMENT aAlign[i] OF oXls\n          ELSE\n                // aca da error\n                <!-- s:arrow: --><img src=\"{SMILIES_PATH}/icon_arrow.gif\" alt=\":arrow:\" title=\"Arrow\" /><!-- s:arrow: -->@ nRow, 20 XLS FORMULA aDato[i] FONT aFnt[3] FORMAT ;\n                     aFormat[20] ALIGNAMENT aAlign[20] OF oXls  \n          ENDIF\n     NEXT\n     SKIP\nENDDO\nnRow++\nFOR I=1 TO len(aDato) //Pongo los totales\n     @ nRow, i XLS FORMULA _SUM(2,i,nRow,i) FONT aFnt[2] FORMAT ; \n          aFormat[i] ALIGNAMENT 3 BORDER 32 OF oXLS\nNEXT\nENDXLS oXLS     //Fin de la XLS\n.......','',0,'YA==','en3o8z9j',1,0,'',439,0,0),(12409,2857,6,141,0,'200.88.94.69',1146157943,1,0,1,1,1,1,'','POS con monitor tipo TouchScreen','Hola a todos,\n\nA ver si me hechan una mano.  Un cliente nuevo necesita que \"convierta\" nuestro POS para manejo con monitores touchscreen.\n\nEsta desarrollado en FW24, pero necesito si alguien me encamina un poco:\n\n- Que tengo que tomar en cuenta?\n- Alguna consideracion para este tipo de equipos que deba tomar en FW?\n- Que otra cosa debo tomar en cuenta para esto?\n\nGracias adelantadas, y aprecio para quienes hayan desarrollado en este ambiente (FW) combinado con este dispositivo....\n\nAbrazos,','',0,'YA==','1psryro0',1,0,'',141,0,0),(12410,2849,6,37,0,'201.230.158.75',1146159411,1,0,1,1,1,1,'','','Alberto me uno al pedido, seria muy util poder utilizarlo desde (x)Harbour por favor dime de donde lo puedo descargar o si no es molestia me puedes pasar la Clase a este correo :\n\n<!-- e --><a href=\"mailto:evertiz@consorcioinformatico.com\">evertiz@consorcioinformatico.com</a><!-- e -->\n\nMuchas gracias','',0,'YA==','3oa0edfc',1,0,'',37,0,0),(12411,2850,3,530,0,'201.114.224.202',1146162277,1,0,1,1,1,0,'','','Hi Antonio &amp; Enrico:\nThank You, por Your Answers.\nI\'m trying to use Fingerprint ActiveX control, I need to get the image and other information from it (like resolution, etc), and I face this types of data.\n\nI\'m still making some test, now.\nBTW this is a Non Visual Control, and I haven\'t see an example of that. And I can\'t create ActiveX():New() in a Dialog without a Control with 101 as ID.\nDo you have and example with this features.\nMy Dialog shows and image that only should be in design time (VB)\n\nRegards\nFco Gamboa','',0,'YA==','1rg5jaag',1,0,'',530,0,0),(12412,2849,6,228,0,'201.245.222.85',1146162520,1,0,1,1,1,1,'','A mi tambien..','Lo mismo que todos...\n\nmi correo es\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->','',0,'YA==','132sj8el',1,0,'',228,0,0),(12413,2850,3,2,0,'80.32.22.38',1146165034,1,0,1,1,1,1,'','','Fco,\n\nYou may use FWH CreateOleObject() or xharbour Class TOleAuto.','',0,'YA==','d5pcomez',1,0,'',2,0,0),(12414,2858,6,52,0,'200.127.195.89',1146171057,1,0,1,1,1,1,'','DDBBUUUU.TMP','Estimados,\n\nHay veces que tengo este archivo en mi pc, pero no se si es cuando salgo de la DBU o de las aplicaciones que usan DBF, \n\nque podria ser?\n\nGracias.','',0,'YA==','1zfh42jf',1,0,'',52,0,0),(12415,2842,3,49,0,'87.6.176.180',1146173461,1,0,1,1,1,1,'','','thanks','',0,'YA==','14kc05p3',1,0,'',49,0,0),(12416,2859,3,217,0,'200.204.97.49',1146175962,1,0,1,1,1,0,'','Sniffer (COM ports)','Is possible scan COM1 / COM2 ports with FW or xHarbour and create a log of scanned data thart these ports receive?\n\nIf isn´t possible, does anybody know any program that scan com ports and generate a log file?\n\nThanks a lot\nMaurilio','',0,'YA==','3a7y66l0',1,0,'',217,0,0),(12417,2853,6,171,0,'71.232.193.197',1146177745,1,0,1,1,1,0,'','','Antonio\n\nAsi es que lo tengo desde el principio, debe ser otra cosa que me falta.\n\nAbajo esta el codigo simplificado a ver si tu puedes ver algo que yo estoy pasando por alto\n\n&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;\nFUNCTION Main()\n   BWCCRegister(GetResources())\n\nPUBLIC oWnd\n\n   DEFINE FONT oFont  NAME \"MS SANS SERIF\"  SIZE 0,-8 //BOLD\n   DEFINE FONT oFont01 NAME \"VERDANA\" SIZE 0,-11 BOLD\n\n\n   Inicio()\n\n   cAppliDir := SFN2LFN(cAppliDir)\n\n   DEFINE BRUSH oBrush COLOR CLR_WHITE\n   DEFINE WINDOW oWnd MDI;\n		FROM 4,10 TO 45.70, 140;\n   TITLE (\"Customer\'s Verification Software\");\n	BRUSH oBrush\n	\n   oWnd:SetFont(oFont)\n\n   FrameBar()\n   oWnd:SetMenu(MainMenu())\n\n \n   ACTIVATE WINDOW oWnd  ON INIT ( Seguridad(), ActivateDialog() )\n \nRETURN (.T.)\n\n\nFUNCTION ActivateDialog()\n\n DEFINE DIALOG oDlg RESOURCE \"DIALOG_4\" of oWnd ;\n\n.......\n........\n.........\n\n   ACTIVATE DIALOG oDlg  NOWAIT ON INIT oDlg:Move(155, 85)\n\nRETURN .T.\n\n&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;\nAsi como esta me permite trabajar bien. Solo que al mover el MAIN WINDOWS  el dialogo no se mueve con el. Si quito la clausula NOWAIT entonces no puedo acceder al menu en el MAIN WIDOWS\n\nGracias por todo\n\nGeorge','',0,'YA==','2jzcyxyu',1,0,'',171,0,0),(12418,2860,3,148,0,'82.201.235.63',1146181709,1,0,1,1,1,0,'','Customer Request','can I put listbox and its data in Excel sheet direct ? Can I remark certain records appeared in listbox and put it as copy,paste in Excel sheet ?','',0,'YA==','2ldebc5j',1,0,'',148,0,0),(12419,2857,6,215,0,'200.95.48.43',1146188255,1,0,1,1,1,0,'','Re: POS con monitor tipo TouchScreen','Hay 3 tipos.\n\n1) La malla que cubre un monitor. La única que he visto es de la marca 3M y tiene un costo de 320 dolares apróximadamente. Pero con esta conviertes cualquier monitor en touchscreen. Desde luego, la malla viene en pulgadas igual que un monitor. La standar es de 15 pulgadas.\n\n2) Monitores touchscreen, desde los 620 dolares en adelante. Estos ya vienen con la malla integrada.\n\n3) Monitores touchscreen con pen (Lapiz). Asi podrás usar el dedo y un lapiz. Cualquiera de los dos para interactuar con el programa. \n\nOk, en esencia lo que hacen es simular la hación del puntero del ratón sobre un botón por ejemplo. Lo único que debes tomar en cuenta es el tamaño de tus botones... que como podrás ver tendrán que ser GRANDES para poder ser activados por el dedo.\n\nLa principal utilidad que tienen es en los kioskos interactivos, algunos se pueden encontrar en los centros comerciales grandes, tambien se usan en cajeros automaticos... para puntos de ventas yo no lo veo practico.\n\nSaludos\nFernando Leal','',0,'YA==','289fzjzz',1,0,'',215,0,0),(12420,2858,6,54,0,'201.137.90.226',1146190360,1,0,1,1,1,1,'','Re: DDBBUUUU.TMP','[quote=&quot;goosfancito&quot;:moshnhm6]Estimados,\n\nHay veces que tengo este archivo en mi pc, pero no se si es cuando salgo de la DBU o de las aplicaciones que usan DBF, \n\nque podria ser?\n\nGracias.[/quote:moshnhm6]\n\nMi estimado, esto pasa cuando no termina de cerrar DBU.\n\nNo pasa con otras aplicaciones, solo es el DBU y es un temporal que se crea cuando modificas la estructura de una DBF.','',0,'gA==','moshnhm6',1,0,'',54,0,0),(12421,2858,6,52,0,'200.127.195.89',1146193241,1,0,1,1,1,1,'','','Gracias che!','',0,'gA==','8glusjxf',1,0,'',52,0,0),(12422,2849,6,138,0,'201.152.98.24',1146194694,1,0,1,1,1,1,'','Re: ChartFX 3.0','[quote=&quot;Alberto Juárez&quot;:2we6cu7l]Hola José:\n\nSegún tengo entendido la versión 3.0 del Chartfx es libre debido a que ya es un producto descontinuado, con gusto puedo enviarla a tu mail privado.\n\nSaludos.[/quote:2we6cu7l]\n\nNeeeegativo mi estimado alberto, lo mismo pensaba y para quitarme de la duda les envie un correo hace poco mas de 2 años y la respuesta que recibi  de Software FX para aclarar dicho mal entendido fue esta:\n\n[i:2we6cu7l]I\'m very sorry to inform you that we have not longer the 16 bits version available for sale, however the product is still under the copyrigth law and the intellectual property belongs to Software-FX inc.\n\nAs a registered owner of a licence of ChartFX VBX, you are free to distribute a copy of our VBX [b:2we6cu7l]in your final product[/b:2we6cu7l], however, and no matter if the the product is not longer sold by us, you are not allowed to distribute or share the VBX or any other component of the 16 bits version, including documentation or any other file for developing propouses, this means, you are not allowed to share the product with other developers to use it for developing propouses.\n\nI encourage you to take a look into our new CharFX Activex product, I\'m sure you will find far superior to the 16 bits version.[/i:2we6cu7l]\n\nTraduccion:\n\nLamento informate que la version de 16 bits ya no esta disponible para venta, sin embargo el producto sigue protegido por las leyes de derecho de autor y la propiedad intelectual pertenece a Software FX Inc.\n\nComo dueño registrado de una licencia del VBX CharFX, eres libre de distribuir una copia de nuestro VBX en TU PRODUCTO FINAL, sin embargo y sin importar si el producto ya no es vendido pro nosotros, no te es permitido compartir ni el VBX, ni ningun otro componente de la version de 16 bits, incluyendo la documentación ni ningun otro archivo con fines de desarrollo, esto significa que no puedes compartir el producto con ningun otro desarrollador para usarlo para crear aplicaciones.\n\nTe recomiendo que le eches un vistazo a nuestro ChartFX Activex, estoy seguro que lo encontrarás bastante mas superior que la version de 16 bits.','',0,'4A==','2we6cu7l',1,0,'',138,0,0),(12423,2859,3,266,0,'60.50.53.119',1146197646,1,0,1,1,1,1,'','','// modified fivewn sample to read  continuos data from laser diameter reader, you can use a timer to call it .\n\nfunction fReadPort\n\n   local cDcb, lError, nError\n\n   cErrCode := space( 16 )\n\n   if !( gnComm := OpenComm( \'COM1\', 1024, 10 ) ) == 0\n     if !(BuildCommDcb( \"COM1:2400,N,8,1\", @cDcb ) .and. SetCommState( @cDcb ) )\n       nError := GetCommError( gnComm, @cErrCode )\n       MsgAlert( \"Error \"+ str( nError ) + CRLF + cErrCode)\n       RETURN( .f. )\n     endif\n   endif\n\n   cBlock=space(1024)\n   nTry=0\n   do while nTry&lt;50          // can remove this nTry if not applicable\n     if ( nBytes := readComm( gnComm, @cBlock) ) &gt; 0\n       msgwait(\'Got it ... \'+str(nTry,5),\'\',1)\n       exit\n     else\n       nTry++\n       msgwait(\'Reading ... \'+str(nTry,5),\'\',1)\n     endif\n   enddo\n\n   msginfo(cBlock) // can append data into dbf or text log (fwrite) here\n\n   if FlushComm( gnComm, 0 ) != 0\n      nError = GetCommError( gnComm )\n      Msgwait( \'FlushComm Error:\' ,\'\',.01 )\n   endif\n\n   if ! CloseComm( gnComm )\n      nError = GetCommError( gnComm )\n      Msgwait( \'CloseComm Error: \' ,\'\',.01 )\n   endif\n\nRETURN( .t. )','',0,'4A==','2og2ukbw',1,0,'',266,0,0),(12424,2861,6,492,0,'201.154.126.17',1146201553,1,0,1,1,1,1,'','asignar focus a un browse de una pestaña, desde otra pestaña','Hola a todos\n\nYa le busque y probe de todo y no se deja......\n\nLa situacion es esta :\n\nEn la 1a pestaña tengo un get donde se introduce una clave X, busco X clave \"completa\" en el archivo y si no se encuentra, pregunto si se desea realizar una busqueda usando como valor \"parcial\" el texto introducido, en caso que asi sea, genero la busqueda y muestro el resultado en un browse que se encuentra en la 3a pestaña, pero necesito que tal browse reciba el focus al momento de pasar a dicha pestaña y es lo que no consigo hacer.\n\nYa probe con :\n\nGOAPLFLTX(3)      // &lt;------ Funcion de genera los resultados\noFold:aDialogs[3]:UPDATE()\noFold:SetOption(3)\na) oFold:aDialogs[3]:bInit := {|| ( lbItmRsl:SetFocus(), .f. ) }\nb) lbItmRsl:SetFocus()\nc) oFold:aDialogs[3]:aControls[3]:SetFocus()\n\ny ninguna me deja asignarlo   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nSugerencias son bienvenidas !!!\n\n\nSaludos','',0,'','977betdl',1,0,'',492,0,0),(12425,2830,3,314,0,'125.92.199.134',1146202133,1,0,1,1,1,0,'','','Enrico,\n\nCan you please show me how to do it. What value to use for getsysmetrics()?','',0,'','2t7kfh1x',1,0,'',314,0,0),(12426,2855,2,9,0,'85.60.10.217',1146202172,1,0,1,1,1,1,'','','Manu,\n\nPara Word, utilizo la clase TOLEAUTO para abrir y reemplazar las\nvariables. Si te viene bien, te envio a tu correo el código.','',0,'','39l9607a',1,0,'',9,0,0),(12427,2862,1,550,0,'203.187.209.46',1146203669,1,0,1,0,1,0,'','downloading files from internet','Hi\nI need to download files from internet.Can anyone pls suggest a method how it can be done ?\nThanks','',0,'','1th2e65x',1,0,'',550,0,0),(12428,2849,6,547,0,'201.102.228.137',1146207775,1,0,1,1,1,0,'','Re: ChartFX 3.0','Correcto Rene, gracias por la aclaración\n\nSaludos','',0,'','2nwv1jqe',1,0,'',547,0,0),(12429,2862,1,2,0,'80.32.22.38',1146212874,1,0,1,1,1,1,'','','If the files are located on a FTP server you may use samples\\gallery\\icopyfil\\icopyfil.prg','',0,'','1xulfwsk',1,0,'',2,0,0),(12430,2853,6,2,0,'80.32.22.38',1146213018,1,0,1,1,1,1,'','','George,\n\nEs preciso que muestres como está definido \"DIALOG_4\" en tu fichero RC.','',0,'','11oiuvgl',1,0,'',2,0,0),(12431,2857,6,2,0,'80.32.22.38',1146213116,1,0,1,1,1,1,'','','Julio,\n\nDesde un punto de vista de programación no hay que cambiar nada ya que el dedo actua como si fuese un ratón. Tan sólo usar controles lo suficientemente grandes para que se tenga precisión con el dedo.','',0,'','1248p0iw',1,0,'',2,0,0),(12432,2861,6,2,0,'80.32.22.38',1146213321,1,0,1,1,1,1,'','','Raymundo,\n\nPrueba asi:\noFold:aDialogs[3]:bGotFocus := {|| lbItmRsl:SetFocus() } \noFold:SetOption(3)','',0,'','3olp6q6c',1,0,'',2,0,0),(12433,2855,2,2,0,'80.32.22.38',1146213489,1,0,1,1,1,1,'','','Manuel,\n\nGracias por tu ayuda a otros usuarios. \n\nPor favor en la medida de lo posible alojad el código como ZIP en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> para que asi otros usuarios puedan acceder a él y así les sea de utilidad a otros también. Gracias.','',0,'','2vnj4e0l',1,0,'',2,0,0),(12434,2863,6,350,0,'80.32.243.219',1146216335,1,0,1,1,1,0,'','ButtonBMP','Hola a todos.\n\nEstoy empezando a pasar mi primera aplicación a 32 bits- así que a partir de ahora os daré un poco la lata- y tengo algunos problemas con los botones:\n\nQuiero eliminar de los diálogos los botones Borland y sustituirlos por otra clase, he probado con ButtonBMP, pero me encuentro que si los defino como Button (Custom Control) me aparecen como pulsados y si los defino como PushButton al pulsar con el ratón y sin soltarlo sitúo el cursor fuera del botón se queda como pulsado y ya no vuelve a verse bien. En cualquier caso quiero evitar el efecto de que cambie de color.\n\nLa declaración la hago así de simple:\nREDEFINE BUTTONBMP oBtn1 ID 781 OF oDlg BITMAP \"BMP_SI\"\n\nLos diálogos los tengo en DLLs, estoy usando PellesC \n\nSaludos','',0,'','2dojc45e',1,0,'',350,0,0),(12435,2860,3,2,0,'80.32.22.38',1146216744,1,0,1,1,1,1,'','','Ehab,\n\nYou may review:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2519\">http://fivetechsoft.com/forums/viewtopic.php?t=2519</a><!-- m -->\n\nand:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2765\">http://fivetechsoft.com/forums/viewtopic.php?t=2765</a><!-- m -->','',0,'','2rta3hl5',1,0,'',2,0,0),(12436,2830,3,6,0,'87.1.232.92',1146217055,1,0,1,1,1,1,'','','This should be a working sample:\n\n[code:hdpjx4vr]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    ? GETTASKBARHEIGHT&#40;&#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; GETTASKBARHEIGHT &#41;\n&#123;\n    RECT rct;\n\n    LONG nHDiff, nVDiff;\n\n    SystemParametersInfo&#40; SPI_GETWORKAREA, 0, &amp;rct, 0 &#41;;\n\n    nHDiff = GetSystemMetrics&#40; SM_CXSCREEN &#41; - &#40; rct&#46;right - rct&#46;left &#41;;\n    nVDiff = GetSystemMetrics&#40; SM_CYSCREEN &#41; - &#40; rct&#46;bottom - rct&#46;top &#41;;\n\n    if &#40; nHDiff &gt; 0 &#41;\n        hb_retnl&#40; nHDiff &#41;;\n    else\n        hb_retnl&#40; nVDiff &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:hdpjx4vr]\n\nEMG','',0,'AIA=','hdpjx4vr',1,0,'',6,0,0),(12437,2863,6,2,0,'80.32.22.38',1146217552,1,0,1,1,1,1,'','','Sebastián,\n\nRevisa el ejemplo samples\\TestBuBm.prg','',0,'AIA=','17v98ogq',1,0,'',2,0,0),(12438,2864,4,354,0,'84.255.203.174',1146219968,1,0,1,1,1,0,'','COMBOBOX refresh','How can I Refresh() Combobox with function Inv_Nasta2()\n\nTnx, Darjo\n\n[code:37oearjs]#include &quot;FWCE&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\nPRIVATE ocbNah\n\n   arrNahaja&#58;=&#123;\'1a\',\'1b\',\'1c\'&#125;\n   STORE 1 TO cIzbPe,cIzbNah\n   \n   DEFINE WINDOW owInv\n   @  93,0 SAY \'Main&#58;\' PIXEL\n   @ 108,0 COMBOBOX cIzbPe ITEMS &#123;\'001\',\'002\'&#125; PIXEL SIZE 240,200 ON CHANGE Inv_Nasta2&#40;&#41;\n   @ 135,0 SAY \'Sub&#58;\' PIXEL\n   @ 150,0 COMBOBOX ocbNah VAR cIzbNah ITEMS arrNahaja PIXEL SIZE 240,200\n   ACTIVATE WINDOW owInv\nreturn nil\n\n\n********************************\nFUNCTION Inv_Nasta2&#40;&#41;\n********************************\narrNahaja&#58;=array&#40;0&#41;\narrNahaja&#58;=&#123;\'2a\',\'2b\'&#125;\nocbNah&#58;Refresh&#40;&#41;   &amp;&amp; why does it not work ???\nRETURN &#40;&#46;t&#46;&#41;\n\n[/code:37oearjs]','',0,'AIA=','37oearjs',1,0,'',354,0,0),(12439,2865,4,89,0,'213.21.136.60',1146220376,1,0,1,1,1,0,'','Problem with SockCli.prg compile with nmake','If I compile  SockCli.prg with Buildce.bat it works ok .\nIf I complie  SockCli with  nMake I have a GPF .\nI add in the mak \n   echo c:\\vce\\lib\\arm\\wininet.lib &gt;&gt; msvc.tmp\nbut the GPF remain \n\nRegards Maurizio','',0,'AIA=','2yhkitrs',1,0,'',89,0,0),(12440,2864,4,2,0,'80.32.22.38',1146223350,1,0,1,1,1,1,'','','Darjo,\n\n******************************** \nFUNCTION Inv_Nasta2() \n******************************** \narrNahaja:=array(0) \narrNahaja:={\'2a\',\'2b\'} \nocb:SetItems( arrNahaja )\nocbNah:Refresh()\nRETURN (.t.)','',0,'AIA=','14d8are4',1,0,'',2,0,0),(12441,2865,4,2,0,'80.32.22.38',1146223416,1,0,1,1,1,1,'','','Maurizio,\n\nWhat calls stack list do you get at the GPF ?','',0,'AIA=','2t5o8sss',1,0,'',2,0,0),(12442,2863,6,350,0,'80.32.243.219',1146223798,1,0,1,1,1,0,'','','Antonio, eso fué lo primero que miré.\n\nHe comprobado que si el BMP del botón está en un fichero sale bien, pero si está en la librería de recursos, aun siendo el mismo dibujo, sale como si estuviera pulsado.\n\nEs decir\n  REDEFINE BUTTONBMP oBtn1 ID 781 OF oDlg BITMAP \"BMP_SI.BMP\" //Se ve bien\nno se ve igual que:\n  REDEFINE BUTTONBMP oBtn1 ID 781 OF oDlg BITMAP \"BMP_SI\" //Se ve como pulsado\n\n¿ Estoy haciendo algo mal ?','',0,'AIA=','dxlvv6n2',1,0,'',350,0,0),(12443,2863,6,2,0,'87.218.146.249',1146224870,1,0,1,1,1,1,'','','Sebastian,\n\nAqui tienes un ejemplo funcionando correctamente usando un bitmap desde recurso:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018caba742/test.zip.html\">http://hyperupload.com/download/018caba ... t.zip.html</a><!-- m -->','',0,'AIA=','1je4fjl9',1,0,'',2,0,0),(12444,2726,7,2,0,'87.218.146.249',1146225018,1,0,1,1,1,1,'','','Lo probastes ?','',0,'AIA=','cv8df85z',1,0,'',2,0,0),(12445,2855,2,375,0,'84.122.100.169',1146226072,1,0,1,1,1,1,'','','Gracias Manuel por tu ayuda. Mi e-mail es:\n<!-- e --><a href=\"mailto:ramosframit@ono.com\">ramosframit@ono.com</a><!-- e -->\nLa verdad es que viene muy biene ese código.','',0,'AIA=','x53vve6y',1,0,'',375,0,0),(12446,2866,3,137,0,'151.38.8.195',1146226108,1,0,1,1,1,0,'','FWH and List &amp; Label','i\'m unsuccesfully trying with this:\n\nfunction main()\n  local oObj, oWnd\n  define window oWnd from 0,0 to 800, 800 pixel\n  oObj := CreateObject( \"L11.List-Label11_Ctrl_32.1\" )\n  @0,0 button \"Test\" action oObj:Desing(0, oWnd:hWnd, \'Design reports\', 2, \'simple.lst\', 1)\n  activate window oWnd\nreturn\n\nIt reports a memory error.\n\nRegards,\nRoberto Parisi','',0,'AIA=','3c8s3zb7',1,0,'',137,0,0),(12447,2853,6,171,0,'71.232.193.197',1146227512,1,0,1,1,1,0,'','','Antonio,\n\nEl DIALOG_4 no lo estoy definiendo como CHILD. El problema es que si lo defino como CHILD entonces, aunque se mueve bien con  el WINDOW MAIN, el DIALOG_4 no se dibuja completo y algunos controle ni siquieran funcionan, los say no se dibujan, etc.  Seguire investigando, pues es la primera vez que intento esto de iniciar mi programa en modo MDI con un DIALOG abierto. Quizas me puedas hacer alguna sugerencia.\n\nSaludos\n\n\nGeorge','',0,'AIA=','1ppxomx8',1,0,'',171,0,0),(12448,2867,6,52,0,'200.127.195.89',1146227670,1,0,1,1,1,1,'','Como es mejor usar el  dbUseArea()','Estimados,\n\nTengo una app, que comienza llamando a 2 timer, cuando el 2º llega a tu tiempo necesito consultar una DBF, y aca viene mi pregunta:\n\n1) el  dbUseArea() y el dbSetIndex() es mejor abrirlo al principio de la app y cerrarlo al final de la misma\n\n2) mejor abrirla en la funcion que necesito y cerrarla en la misma funcion?\n\nGracias.','',0,'AIA=','1rw0rh2u',1,0,'',52,0,0),(12449,2866,3,6,0,'87.1.232.92',1146228785,1,0,1,1,1,1,'','Re: FWH and List &amp; Label','[quote=&quot;Roberto Parisi&quot;:3b00wid1]oObj:Desing[/quote:3b00wid1]\n\nAre you sure Desing is the correct syntax?\n\n[quote=&quot;Roberto Parisi&quot;:3b00wid1]It reports a memory error.[/quote:3b00wid1]\n\nWhat is the statement that bombs out?\n\nEMG','',0,'gA==','3b00wid1',1,0,'',6,0,0),(12450,2866,3,137,0,'151.38.8.195',1146229399,1,0,1,1,1,0,'','','Ok, the memory error has gone away. Now I get another error.\n\nThis is the code:\n\n#include \"fivewin.ch\"\n\nfunction main() \n	local oObj, oWnd \n	define window oWnd from 0,0 to 800, 800 pixel \n	oObj := CreateObject( \"L11.List-Label11_Ctrl_32.1\" ) \n	@0,0 button \"Test\" action oObj:Design(0, oWnd:hWnd, \'Design reports\', 2, \'simple.lst\', 1) \n	activate window oWnd \nreturn \n\nand this is the error:\n\nApplication\n===========\n   Path and name: I:\\work\\Test\\Test.exe (32 bits)\n   Size: 1,229,312 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 04/28/06, 14:55:55\n   Error description: Error L11.List-Label11_Ctrl_32.1/16389  E_FAIL: DESIGN\n   Args:\n     [   1] = N   0\n     [   2] = N   264122\n     [   3] = C   Design reports\n     [   4] = N   2\n     [   5] = C   simple.lst\n     [   6] = N   1\n\nStack Calls\n===========\n   Called from TOLEAUTO:DESIGN(0)\n   Called from (b)MAIN(7)\n   Called from TBUTTON:CLICK(161)\n   Called from TBUTTON:HANDLEEVENT(1293)\n   Called from _FWH(3124)\n   Called from SENDMESSAGE(0)\n   Called from TWINDOW:COMMAND(939)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3124)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(880)\n   Called from MAIN(8)\n\nRegards,\nRoberto Parisi[/img]','',0,'','2cffy8wl',1,0,'',137,0,0),(12451,2866,3,6,0,'87.1.232.92',1146229562,1,0,1,1,1,1,'','','[quote=&quot;Roberto Parisi&quot;:2na3ic4i]Error description: Error L11.List-Label11_Ctrl_32.1/16389  E_FAIL: DESIGN[/quote:2na3ic4i]\n\nProbably you are passing wrong parameters to Design() method. Check the related docs.\n\nEMG','',0,'gA==','2na3ic4i',1,0,'',6,0,0),(12452,2866,3,137,0,'151.38.8.195',1146231020,1,0,1,1,1,0,'','','Thx Enrico,\n\nI modified the sample according to L&amp;L VB calling docs.\n\nDOCS ON\nCalling the Designer\nOnce the data link is made, a single call is enough to bring up the Designer. The Design method takes a number of parameters which enable you to customize its behavior. These are described in detail in the OCX online help. A call, such as:\n\n ListLabel1.Design 0, hWnd, \"Design reports\", PROJECT_LIST, \"simple.lst\", 1\n\nDOCS OFF\n\nThis is the source:\n\n#include \"fivewin.ch\"\n\n#define LL_PROJECT_LIST 2\n\nfunction main() \n	local oObj, oWnd \n	define window oWnd from 0,0 to 800, 800 pixel \n	oObj := CreateObject( \"L11.List-Label11_Ctrl_32.1\" ) \n	@0,0 button \"Test\" action oObj:Design(0, oWnd:hWnd, \"Design reports\", LL_PROJECT_LIST, \"simple.lst\", 1) \n	activate window oWnd \nreturn \n\nRegards','',0,'gA==','yvvca75s',1,0,'',137,0,0),(12453,2841,3,213,0,'72.177.228.25',1146232110,1,0,1,1,1,0,'','','Antonio,\n\nIf I link the small activex.lib you posted here and not the activex.lib that comes with xHarbour I get the msg \"yourapp.exe has encountered a problem and needs to close\" on this line:\n\n      oMapPoint = TActiveX():New( oWndMap, \"MapPoint.Control\" ) \n\nThanks,\nRandal Ferguson','',0,'gA==','2n8d2uig',1,0,'',213,0,0),(12454,2726,7,456,0,'217.127.39.57',1146232490,1,0,1,1,1,1,'','','Hola Antonio, \npues no, lo he dejado en tareas to do( to try), voy un poco retrasado, y ya me enrede mas de la cuenta. Cuando lo pruebe  ya comentare en el hilo.','',0,'gA==','tybeb06g',1,0,'',456,0,0),(12455,2853,6,46,0,'217.168.114.137',1146233797,1,0,1,1,1,0,'','','Esto quiza te pueda servir\n\n[code:2y8fvhcj]/*\n  &#9556;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9559;\n  &#9553; Program&#46;&#46;&#46;&#46;&#46;&#46;&#58; DlgChild&#46;prg                                            &#9553;\n  &#9553; Date&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#58; 07-01-2004                                              &#9553;\n  &#9553; Author&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#58; Renzo A&#46; Balboa Flores                                  &#9553;\n  &#9553; Compiler&#46;&#46;&#46;&#46;&#46;&#58; Clipper Ver 5&#46;3                                         &#9553;\n  &#9553; Description&#46;&#46;&#58; Clase TDlgChild hereda de TMDIChild                     &#9553;\n  &#9553;                Child con dialogo inscrustado                           &#9553;\n  &#9568;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9571;\n  &#9553; Modificación &#58; Mon  - 14/Feb/2005  ---  01&#58;27 AM                       &#9553;\n  &#9562;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9552;&#9565;\n*/\n\n#Include \'Fivewin&#46;ch\'\n\nCLASS TDlgChild FROM TMDIChild\n\n     DATA oDlg\n     DATA lModal  AS LOGICAL INIT &#46;T&#46;\n\n     METHOD New&#40;&#41;    CONSTRUCTOR\n     METHOD Activate&#40;&#41;\n     METHOD DefControl&#40; oCtrl &#41;  INLINE &#58;&#58;oDlg&#58;DefControl&#40; oCtrl &#41;\n     METHOD End&#40;&#41;\n     METHOD Update&#40;&#41;             INLINE &#58;&#58;oDlg&#58;Update&#40;&#41;\n     METHOD ClassName&#40;&#41;          INLINE \'TDIALOG\'   //para tsbrowse\n\n   ENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; cTitle, cResource, nTop, nLeft, nBottom, nRight, lPixel &#41; CLASS TDlgChild\n   DEFAULT lPixel &#58;= &#46;F&#46;\n\n   &#58;&#58;bEnd   &#58;= &#123; || Nil &#125;\n\n   Super&#58;New&#40; &#58;&#58;nTop, &#58;&#58;nLeft, &#58;&#58;nBottom, &#58;&#58;nRight, cTitle, Nil, Nil, Nil, ;\n              oApp&#58;oWnd&#58;oIcon, &#46;F&#46;, Nil, Nil, Nil, Nil, &#46;T&#46;, &#46;F&#46;, Nil, Nil, &#46;T&#46;, ;\n              &#46;T&#46;, &#46;T&#46;, &#46;F&#46; &#41;  //No Maximize\n\n   If Empty&#40; cResource &#41;\n      If lPixel\n         DEFINE DIALOG &#58;&#58;oDlg FROM nTop, nLeft TO nBottom, nRight PIXEL OF Self STYLE WS_CHILD\n         &#58;&#58;hWnd &#58;= 0\n      Else\n         DEFINE DIALOG &#58;&#58;oDlg FROM nTop, nLeft TO nBottom, nRight OF Self STYLE WS_CHILD\n         &#58;&#58;hWnd &#58;= 0\n      EndIf\n   Else\n      DEFINE DIALOG &#58;&#58;oDlg RESOURCE cResource OF Self\n   EndIf\n\n   Return Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD Activate&#40; bInit &#41; CLASS TDlgChild\n   Local nW &#58;= If&#40; IsWinNT&#40;&#41;,  8, 8 &#41;\n   Local nH &#58;= If&#40; IsWinNT&#40;&#41;,33, 27 &#41;\n   Local oChild &#58;= Self\n\n   ACTIVATE DIALOG &#58;&#58;oDlg NOWAIT VALID &#40; oChild&#58;End&#40;&#41;, &#46;T&#46; &#41;\n\n   &#58;&#58;oDlg&#58;Move&#40; 0,0 &#41;\n\n   &#58;&#58;nWidth &#58;= &#58;&#58;oDlg&#58;nWidth + nW\n   &#58;&#58;nHeight &#58;= &#58;&#58;oDlg&#58;nHeight + nH\n\n   Super&#58;Activate&#40;,,,,,,, bInit, &#41;\n/*&#40; cShow, bLClicked, bRClicked, bMoved, bResized, bPainted,;\n                 bKeyDown, bInit, bUp, bDown, bPgUp, bPgDn, bLeft, bRight,;\n                 bPgLeft, bPgRight, bValid &#41; */\n   Return Self\n\n//----------------------------------------------------------------------------// [/code:2y8fvhcj]\n\nMode de uso:\n[code:2y8fvhcj]\n\n  oDlg &#58;= TDlgChild&#40; &quot;Tu Titulo&quot;, &quot;DLGRECURSO&quot; &#41;\n\n\n[/code:2y8fvhcj]\n\nPara los controles los declaras normal','',0,'AIA=','2y8fvhcj',1,0,'',46,0,0),(12456,2862,1,550,0,'219.91.208.164',1146235054,1,0,1,0,1,0,'','','Hi\nThanks Antonio.I am not sure whether they are on ftp server.I have to paste the complete path in URL address bar and the file gets downloaded.I have to provide the date for which the file is required and the file should be downloaded.Pls advice how this can be done\nThanks','',0,'AIA=','2eusmx4l',1,0,'',550,0,0),(12457,2868,6,52,0,'200.127.195.89',1146235275,1,0,1,1,1,1,'','icono en tooltips','Estimados,\n\nSe puede agregar un icono en el tooltips?\nComo?\n\nGracias.','',0,'AIA=','3e9wb7a2',1,0,'',52,0,0),(12458,2869,6,449,0,'212.64.224.250',1146236236,1,0,1,1,1,1,'','ADS -&gt; Optimizacion de consultas SQL','Hola, \n\nEl siguiente codigo es ejecutado con FWH y funciona perfecto, pero si ejecuto una query con ARC32 ( Tools-&gt;Native SQL) el resultado es muchiiisimo mas rapido. Mi Pregunta es: Se puede optimizar la ejecucion de las funciones de SQL en ADS ?\n\n\n[code:3try73pm]\n#include &quot;ads&#46;ch&quot;\n#include &quot;fivewin&#46;ch&quot;	  \n\n*--------------\nFUNCTION main&#40;&#41;\n*--------------\n    LOCAL cServer  &#58;= &quot;\\\\BSD001\\Test&quot;\n    LOCAL consulta &#58;= &quot;Select * from Test where age &gt; 90&quot;\n    LOCAL cTxt     &#58;= \'\'\n\n    RddRegister&#40;&quot;ADS&quot;,1&#41;\n    RddSetDefault&#40;&quot;ADS&quot;&#41;\n    AdsSetServerType &#40; 2 &#41;\n    SET FILETYPE TO CDX\n\n\n    AdsConnect&#40; cServer , 2 &#41;\n\n    IF ! ADSCreateSQLStatement&#40;&quot;SQLarea&quot;,2&#41;  // 2 == ADS_CDX\n       MsgAlert&#40; &quot;ADSCreateSQLStatement&#40;\'SQLarea\',2&#41;&quot; &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    IF ADSExecuteSQLDirect&#40; consulta &#41;\n\n       FOR nI &#58;= 1 TO 20\n\n           cTxt += sqlarea-&gt;first + \' \' + sqlarea-&gt;last + \' \' + sqlarea-&gt;street + \' \' + str&#40; sqlarea-&gt;age &#41; + CRLF\n                   sqlarea-&gt;&#40; DbSkip&#40;&#41; &#41;\n\n       NEXT\n\n       msgInfo&#40; cTxt &#41;\n\n    ENDIF\n\n    AdsDisconnect&#40;AdsGetConnectionHandle&#40;&#41;&#41;\n\n    sqlarea -&gt; &#40; DBCLOSEAREA&#40;&#41; &#41;\n\nRETU NIL\n[/code:3try73pm]\n\nMuchas gracias\nCarlos.','',0,'AIA=','3try73pm',1,0,'',449,0,0),(12459,2862,1,2,0,'87.218.146.9',1146239224,1,0,1,1,1,1,'','','Rajeev,\n\nPlease show a URL sample like the ones that you are using.','',0,'AIA=','23zu4mef',1,0,'',2,0,0),(12460,2841,3,2,0,'87.218.146.9',1146239318,1,0,1,1,1,1,'','','Randal,\n\nWhere we may download a demo version of such mappoint activex ?','',0,'AIA=','2aig7b6y',1,0,'',2,0,0),(12461,2868,6,2,0,'87.218.146.9',1146239402,1,0,1,1,1,1,'','','Gustavo,\n\nSí. si se puede. Vamos a elaborar un ejemplo que lo muestre.','',0,'AIA=','2xqs8vmn',1,0,'',2,0,0),(12462,2726,7,2,0,'87.218.146.9',1146239432,1,0,1,1,1,1,'','','ok <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3dzssyi3',1,0,'',2,0,0),(12463,2870,4,552,0,'200.103.242.198',1146240832,1,0,1,1,1,1,'','No logro hacer funcionar mi pocket','Buen Dia, \n\nPues esto, estoy con un pocket pc HP jornada série 520 y no consigo hacer que funcione los exemplos, qui hago de mal?\n\ngracias de antemano, \n\n[]´s','',0,'','9e1ddado',1,0,'',552,0,0),(12464,2870,4,2,0,'87.218.146.9',1146241534,1,0,1,1,1,1,'','','Luiz,\n\nQue versión de Windows Mobile usa ? Sabes que microprocesador tiene ?\n\nTienes un link a la página del fabricante en donde vengan las especificaciones de esa Pocket PC ?','',0,'','3ts7p6rv',1,0,'',2,0,0),(12465,2869,6,264,0,'200.91.3.10',1146242449,1,0,1,1,1,0,'','','El server que tu indicas en una carpeta de tablas DBF ?','',0,'','fr9wdhu6',1,0,'',264,0,0),(12466,2871,19,61,0,'201.217.162.220',1146243912,1,0,1,1,1,0,'','Para los amantes de las protecciones','Amigos:\n\nAqui les dejo una dirección de proteccion de software.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.strongbit.com/\">http://www.strongbit.com/</a><!-- m -->\n\nSaludos\n\nRuben Fernandez','',0,'','2hldmwfj',1,0,'',61,0,0),(12467,2865,4,89,0,'213.21.136.60',1146244229,1,0,1,1,1,0,'','','Hello Antonio \n\nI have noted that the problem is when I use the socket not in the first windows , but in a  window call form the menu of the main window , when \nI close this windows to return to the main window  I have this error \n\n\"Internal error\" \n\nYour help would be of great assistens \n\nRegards Maurizio','',0,'','h7jcqwb1',1,0,'',89,0,0),(12468,2865,4,2,0,'87.218.146.9',1146244343,1,0,1,1,1,1,'','','Maurizio,\n\nPlease provide a small and self contained sample to reproduce it here. Thanks.','',0,'','6fukkcpm',1,0,'',2,0,0),(12469,2870,4,552,0,'200.103.242.198',1146244650,1,0,1,1,1,1,'','','Antonio, \n\nTiene Microsoft Windows CE, Versão 3.0.9348(Compilação 9616)\nProcessador : Shx SH3\nMemoria : 15.87\n\nGracias por sua resposta.','',0,'','ojojlz41',1,0,'',552,0,0),(12470,2870,4,2,0,'87.218.146.9',1146244826,1,0,1,1,1,1,'','','Que error te dan los ejemplos ?','',0,'','30qz3d6d',1,0,'',2,0,0),(12471,2872,6,264,0,'200.91.3.10',1146245106,1,0,1,1,1,0,'','ComboBox + Get ?','He visto en varias app la opcion escribir al interior de un ComboBox.\nExiste ese tipo de control en FWH ?\nEs decir, no es una especie de seek incremental dentro de un combobox, sino una especie de hibrido entre ambos.\nGracias de antemano.','',0,'','bzp9qoeh',1,0,'',264,0,0),(12472,2855,2,9,0,'85.60.10.217',1146245409,1,0,1,1,1,1,'','','Directamente de un módulo que utilizo, lo he adaptado un poco para\nque pueda comprenderse mejor y lo he subido a hyperupload. Me imagino que saldrá algún fallo y una que otra duda porque el tema es complicado. Pero a través del foro, encantado de poder ayudar y de aprender.  \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0167295252/WORDMCN.PRG.html\">http://hyperupload.com/download/0167295 ... N.PRG.html</a><!-- m -->\n\nLos que utilicen 32 bits, observad que al final hay que anular una línea.','',0,'','3fyzeff0',1,0,'',9,0,0),(12473,2870,4,552,0,'200.103.242.198',1146247843,1,0,1,1,1,1,'','','Antonio, \n\nEstou testando el ejemplo CLIENT.EXE  e me retorna o seguinte:\n\nNão é possivel localizar  \'CLIENT\' ( ou um dos seus componentes ), certifique-se de que o caminho e o nome do arquivo estejam corretos e se todas as bibliotecas necessarias disponiveis.\n\ngracias, \n\n[]´s','',0,'','2xosvhk8',1,0,'',552,0,0),(12474,2870,4,2,0,'87.218.146.9',1146250131,1,0,1,1,1,1,'','','Posiblemente se debe a que usa WinCE en vez de Windows Mobile.\n\nPrueba este EXE, debería funcionar bien:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ca1f9064/tutor02.zip.html\">http://hyperupload.com/download/02ca1f9 ... 2.zip.html</a><!-- m -->','',0,'','3jj9ngx3',1,0,'',2,0,0),(12475,2870,4,552,0,'200.103.242.198',1146250750,1,0,1,1,1,1,'','','Antonio, \n\nSi, es esto, copie Client.exe para raiz del pocket e al ejecutar me da esta mensagem: \'CLIENT\' não é um aplicativo valido do windows - CE.\n\nahora yo pregunto, no es possible usar fwppc com windows CE, tenho que cambiar al windows Mobile??\n\ngracias,\n\n[]´s','',0,'','3g9dw3n5',1,0,'',552,0,0),(12476,2850,3,530,0,'201.114.224.202',1146251543,1,0,1,1,1,0,'','','Antonio:\n\nCreateOleObject() Doesn\'t have bOnEvent method. Do You have an Example ?\nI\'m putting a fake control to use activex&#058;new() but I have toubles:\nParams from events doesn\'t match the documentation order, they are moved for 1 or 5 positions to the rigth, and the first parameters are all NILs.\nwhen the parameter is Numeric I recive it good, but ithe image parameter is NIL.\n\nHow can I call a ActiveX&#058;Do() Method with By reference parameters ?\n\nThank You and Regards\nFco Gamboa','',0,'','2sg77edj',1,0,'',530,0,0),(12477,2870,4,2,0,'87.218.146.9',1146252501,1,0,1,1,1,1,'','','Luiz,\n\nPrueba el ejemplo que te hemos proporcionado. Gracias.','',0,'','21uwelui',1,0,'',2,0,0),(12478,2850,3,2,0,'87.218.146.9',1146252582,1,0,1,1,1,1,'','','Fco,\n\nPlease show the documentation you have for that activex control and your source code. Thanks,','',0,'','1xxj1tu2',1,0,'',2,0,0),(12479,2855,2,375,0,'84.122.123.179',1146253649,1,0,1,1,1,1,'','','Gracias Manuel.\nLe he mirado así por encima y no parece muy complicado. Pero ahora, por lo que veo, necesito la clase TOLEAUTO. ¿la Tienes?','',0,'','124g0b5v',1,0,'',375,0,0),(12480,2867,6,362,0,'200.168.52.156',1146257546,1,0,1,1,1,1,'','','SI, PERFECTO!','',0,'','1his2tru',1,0,'',362,0,0),(12481,2859,3,217,0,'201.42.91.102',1146257962,1,0,1,1,1,0,'','','I´ll try it!\n\nThanks a lot!!!\n\nRegards\nMaurilio','',0,'','1ilrjzgf',1,0,'',217,0,0),(12482,2823,3,213,0,'72.177.228.25',1146261087,1,0,1,1,1,0,'','','Antonio,\n\nI tried with the tget.prg you sent, with both Harbour and xHarbour with the same results.  The tget.prg you sent was only slightly different than the one in the \\fwh\\source\\classes for FWH 2.7 Apr 2006.  I cannot imagine why I would be getting different results.  Should I email you the source, map, ppo files?  Anything else I can do?\n\nThanks,\nRandal Ferguson','',0,'','1v61di8o',1,0,'',213,0,0),(12483,2866,3,213,0,'72.177.228.25',1146261219,1,0,1,1,1,0,'','','Roberto,\n\nAre you using Harbour or xHarbour?\n\nRegards,\nRandal Ferguson','',0,'','3lu4s3m9',1,0,'',213,0,0),(12484,2870,4,552,0,'200.103.242.198',1146262015,1,0,1,1,1,1,'','','Antonio\n\nBaixe el exemplo, mas me da la mesma mensagem de erro:\n\n Tutor02.exe no es um aplicativo para windows ce.\n\nNo se mas como hacer.\n\n[]´s','',0,'','3t1iiybi',1,0,'',552,0,0),(12485,2855,2,9,0,'85.60.10.217',1146262386,1,0,1,1,1,1,'','','Para 16 bit tienes que incorporar la libreria Ole2.lib','',0,'','3ep89hd3',1,0,'',9,0,0),(12486,2867,6,52,0,'200.127.195.89',1146263980,1,0,1,1,1,1,'','','Lo siento,\n\nno entendí','',0,'','1k537trc',1,0,'',52,0,0),(12487,2873,6,43,0,'201.127.49.224',1146272266,1,0,1,1,1,0,'','Splitter y xBrowse','Hola\n\n   Tengo un pequeño problema en una ventana mdichild, no logro que el xbrowse se ajuste con el splitter\n\neste es mi codigo\n\n[code:2026wb0h]\n      DEFINE WINDOW aWChild&#91;1&#93; MDICHILD OF oWndPrinc ;\n             TITLE &quot;Listado de Recaudaciones&quot;        ;\n				 FONT oWndPrinc&#58;oFont                    ;\n				 ICON oIconReca                          ;\n				 COLOR CLR_BLACK, CLR_NBLUE       \n\n         @ -1, -1 OUTLOOK oOut ;\n                SIZE 100, aWChild&#91;1&#93;&#58;nHeight&#40;&#41; ;\n                FONT aWChild&#91;1&#93;&#58;oFont ;\n                PIXEL ;\n                OF aWChild&#91;1&#93;\n\n                DEFINE GROUP OF OUTLOOK oOut PROMPT &quot;&amp;Departamentos&quot;\n\n                DEFINE BITMAP OF OUTLOOK oOut ;\n                       GROUP 1 RESOURCE &quot;Recauda&quot;    ;\n                       PROMPT &quot;Recaudación&quot; ;\n                       TOOLTIP &quot;Recaudaciones de Unidades&quot;\n\n			    WITH OBJECT oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; aWChild&#91;1&#93; &#41;\n						 &#58;SetMySQL&#40;@oTable&#41;\n             		&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n             		&#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n             		&#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n             		&#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n	                &#58;nFreeze             &#58;= 4\n             		&#58;nHeaderLines        &#58;= 2\n             		&#58;lColDividerComplete &#58;= &#46;t&#46;\n					\n\n	               WITH OBJECT &#58;AddCol&#40;&#41;\n	               	  &#58;bStrData      &#58;= &#123; || FormFec&#40;\'&#91;DDD&#93;/&#91;MMM&#93;/&#91;AA&#93;\', oTable&#58;Fecha&#41; &#125;\n	               	  &#58;cHeader       &#58;= &quot;Fecha de&quot; + CRLF + &quot;Recaudación&quot;\n                       &#58;nHeadStrAlign &#58;= AL_CENTER\n                       &#58;nDataStrAlign &#58;= AL_CENTER\n                       &#58;nWidth        &#58;= 80\n						END\n\n	               WITH OBJECT &#58;AddCol&#40;&#41;\n	               	  &#58;bStrData      &#58;= &#123; || oTable&#58;Recaudador &#125;\n	               	  &#58;cHeader       &#58;= &quot;Nombre de&quot; + CRLF + &quot;Recaudadora&quot;\n                       &#58;nHeadStrAlign &#58;= AL_CENTER\n                       &#58;nDataStrAlign &#58;= AL_LEFT\n                       &#58;nWidth        &#58;= 150\n						END\n\n				 END\n\n             @  0, 100 SPLITTER oSpl1       ;\n                   VERTICAL                 ;\n                   PREVIOUS CONTROLS oOut   ;\n						 HINDS CONTROLS oBrw      ;\n                   LEFT MARGIN 70           ;\n                   RIGHT MARGIN 200         ;\n                   SIZE 4, 1000 PIXEL        ;\n                   OF aWChild&#91;1&#93;            ;\n                   _3DLOOK UPDATE\n\n				 oBrw&#58;CreateFromCode&#40;&#41;\n				 aWChild&#91;1&#93;&#58;oLeft&#40;&#41;  &#58;= oOut\n             //aWChild&#91;1&#93;&#58;oRight&#40;&#41;  &#58;= oBrw\n				 aWChild&#91;1&#93;&#58;oClient   &#58;= oBrw\n\n\n      ACTIVATE WINDOW aWChild&#91;1&#93; MAXIMIZED ;\n					ON RESIZE &#40; oSpl1&#58;AdjRight&#40;&#41;&#41;    ;\n               VALID &#40;&#40;aWChild&#91;1&#93; &#58;= Nil, SalirC&#40;oIni&#41;&#41;, &#46;T&#46; &#41;\n[/code:2026wb0h]\n\ny esto es lo que obtengo\n[img]\n[url=http&#58;//imageshack&#46;us:2026wb0h][img:2026wb0h]http&#58;//img146&#46;imageshack&#46;us/img146/3861/error3wy&#46;png[/img:2026wb0h][/url:2026wb0h][/img]\n\nen la figura no se ve bien el splitter, he probado con:\n ospl1:Adjust(.f., .f., .t., .t.)\n ospl1:AdjRight()\n ospl1:adjLeft()\n\ny nada he visto que en otras aplicaciones si se ajusta, que es lo que estoy haciendo mal, alguien me podria orientar\n\nDe antemano muchas gracias\n\nSaludos\nMarco A. Delgado','',0,'GIA=','2026wb0h',1,0,'',43,0,0),(12488,2874,3,239,0,'218.19.63.165',1146276119,1,0,1,1,1,0,'','ways to save report to  a file and easily open','Hi, \n  One of our customers asked me if fwh app can offer a way to save a report  to a file, email it to his customers and his customers can open the file and print it in a easily way. \n  Now they print out then send a fax to his customer, but fax not 100% reliable.\n\nBest regard!\n\nShuming Wang','',0,'GIA=','s4xu96xe',1,0,'',239,0,0),(12489,2875,3,553,0,'150.101.221.213',1146278401,1,0,1,1,1,0,'','New to FWH27 - Executing TESTBRAR.EXE Error','Just started testing and have encountered several application error eg.\n\nAny help appreciated\n\nThanks\n\nApplication\n===========\n   Path and name: C:\\FWH\\SAMPLES\\TESTBRAR.EXE (32 bits)\n   Size: 1,296,384 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04/29/06, 12:40:02\n   Error description: Error BASE/1002  Alias does not exist\n\nStack Calls\n===========\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:DEFAULT(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:TWBROWSE(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: testbrar.prg =&gt; MAIN(28)\n\nSystem\n======\n   CPU type:  1666 Mhz\n   Hardware memory: 256 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n   Windows version: 4.10, Build 67766446 B\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TWBROWSE:DEFAULT\n     Local   1:    O    Class: TWBROWSE\n     Local   2:    N    1\n     Local   3:    U    \n     Local   4:    C    \"\"\n     Local   5:    N    4\n     Local   6:    N    0\n     Local   7:    N    1\n     Local   8:    C    \"\"\n     Local   9:    U    \n     Local  10:    N    0\n   (b)TWBROWSE:TWBROWSE\n     Param   1:    O    Class: TWBROWSE\n     Param   2:    N    4080\n   TWBROWSE:INITIATE\n     Param   1:    N    4080\n   __OBJSENDMSG\n     Param   1:    O    Class: TWBROWSE\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    4080\n   OSEND\n     Param   1:    O    Class: TWBROWSE\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    4080\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    U    \n   ASEND\n     Param   1:    A    Len:    2\n     Param   2:    C    \"INITIATE()\"\n     Param   3:    N    4080\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    N    1\n   TDIALOG:INITIATE\n     Param   1:    N    4084\n     Param   2:    N    4080\n     Local   1:    O    Class: TDIALOG\n     Local   2:    L    .T.\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    L    .F.\n     Local   6:    U    \n   TDIALOG:HANDLEEVENT\n     Param   1:    N    272\n     Param   2:    N    4084\n     Param   3:    N    4080\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOXINDIRECT\n     Param   1:    N    4194304\n     Param   2:    C    \"€ È€       ¿ ‰         ±P      – d e T W B R O W S E         P    6 ´   f B U T T O N   &amp; E n d     \"\n     Param   3:    N    0\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    0\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   MAIN\n     Local   1:    O    Class: TDIALOG\n     Local   2:    O    Class: TWBROWSE\n     Local   3:    A    Len:    3\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TDIALOG\n     5 TBRUSH\n     6 TCONTROL\n     7 TWBROWSE\n     8 TBUTTON\n     9 TFONT\n    10 ERROR\n    11 TREG32\n\nMemory Analysis\n===============\n      129 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'GIA=','7s0dosux',1,0,'',553,0,0),(12490,2853,6,171,0,'71.232.193.197',1146279068,1,0,1,1,1,0,'','','Renomas\n\nGracias por tu ayuda\nPero al tratar de compilar la clase que me enviaste se me genera un error: Unresolved external symbol HB_FUN_TDLGCHILD_END.\nParece que  no existe el metodo END.\n\nSaludos\n\n\nGeorge','',0,'GIA=','c2xrfp24',1,0,'',171,0,0),(12491,2874,3,61,0,'201.217.172.239',1146287233,1,0,1,1,1,0,'','','Shuming:\n\nTry EasyPreview from \n<!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->\n\nYou can save the report in JPG, BMP, WMF, EMF, PNG\nand you can send it by mail.\nIf you have more than 1 page you can save it and compress it and \nsend the file.zip by mail too.\n\nRegards. \n\nRuben Fernandez','',0,'GIA=','28e8lvcb',1,0,'',61,0,0),(12492,2862,1,550,0,'219.91.208.144',1146291381,1,0,1,1,1,0,'','','Hi Antonio\nThe URL below will download EOD prices of shares \n<!-- m --><a class=\"postlink\" href=\"http://www.nseindia.com/content/historical/EQUITIES/2006/APR/cm24APR2006bhav.csv\">http://www.nseindia.com/content/histori ... 06bhav.csv</a><!-- m -->','',0,'GIA=','uoqwqty2',1,0,'',550,0,0),(12493,2870,4,2,0,'87.218.146.9',1146291731,1,0,1,1,1,1,'','','Luiz,\n\nPosiblemente tu Pocket PC no es compatible con la arquitectura ARM, con lo que de momento no puedes usar FiveWin para Pocket PC.','',0,'GIA=','2xvyp4d2',1,0,'',2,0,0),(12494,2875,3,2,0,'87.218.146.9',1146292674,1,0,1,1,1,1,'','','George,\n\nPlease modify samples\\TestBrar.prg this way:\n[code:29ucuj1m]\n   @ 1, 1 LISTBOX oBrw FIELDS aData&#91; oBrw&#58;nAt &#93;&#91; 1 &#93;,;\n                              aData&#91; oBrw&#58;nAt &#93;&#91; 2 &#93;,;\n                              aData&#91; oBrw&#58;nAt &#93;&#91; 3 &#93;,;\n                              aData&#91; oBrw&#58;nAt &#93;&#91; 4 &#93; OF oDlg ;\n     SIZE 150, 100 HEADERS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot;\n[/code:29ucuj1m]','',0,'AIA=','29ucuj1m',1,0,'',2,0,0),(12495,2853,6,2,0,'87.218.146.9',1146292827,1,0,1,1,1,1,'','','George,\n\nPor favor revisa el ejemplo samples\\TestMdi4.prg','',0,'AIA=','183xjejn',1,0,'',2,0,0),(12496,2867,6,439,0,'190.0.133.25',1146293369,1,0,1,1,1,1,'','','Si estás usando ADS, conviene siempre abrir todas las bases al abrir la aplicación, ya que en el manejo de bases estilo cliente-servidor, la apertura de las mismas es más lenta y de este modo puedes obtener mejores resultados en rapidez de acceso.\n\nSi se trata de DBFCDX no se logran diferencias muy notables. Hay quienes prefieren abrirlas especificamente cuando se modifican argumentando que \"disminuye el riesgo de corrupcion\" y otros que prefieren abrirlas todas al comenzar a aplicación, en lo que me es personal, pienso que para el caso de DBFCDX da lo mismo, pero seguramente encontrarás al respecto 100 opiniones diferentes y contradictorias.\n\nPara el caso de bases manejadas por driver local ADS es casi unánime la opinion de que deben abrirse todas al comenzar la aplicación (casi).','',0,'AIA=','35092h3p',1,0,'',439,0,0),(12498,2823,3,2,0,'87.218.146.9',1146294863,1,0,1,1,1,1,'','','Randal,\n\nWe email you samples\\TestGet2.exe. Please try it there, thanks.','',0,'AIA=','7zodslsy',1,0,'',2,0,0),(12499,2876,6,75,0,'83.34.43.130',1146297475,1,0,1,1,1,0,'','indices CDX - ordkeycount no definida','Me sale el error :\n\n             Error BASE/1001 Funcion no definida: ordkeycount(0)\n\nal intertar presentar en pantalla un listbox (browse de Hernan) de una dbf que no tiene índices. \nEstoy empezando a usar el DBFCDX y no se a que se debe este error y no soy capaz de solucionarlo.\n\nuso fw 2.3 y xHarbour de PuertoSur.','',0,'AIA=','31wzci9z',1,0,'',75,0,0),(12500,2876,6,180,0,'83.61.170.90',1146303912,1,0,1,1,1,0,'','','Para usar índices CDX debes enlazar las lib dbfcdx y _dbfcdx. También en el prg principal de tu aplicación tienes que tener \nREQUEST DBFCDX\nRDDSETDEFAULT(\"DBFCDX\")\n\nPara usar las funciones asociadas a los índices CDX, en cada prg tienes que incluir:\n#include \"ORD.CH\"\n\nY eso es todo.\n\nUn saludo,\nManuel','',0,'AIA=','qieddfdr',1,0,'',180,0,0),(12501,2860,3,148,0,'82.201.235.63',1146311695,1,0,1,1,1,0,'','Listbox and copy/paste to Excel sheet','Can I remark (shift+cursor down) certain listbox records and copy them and paster them to Excel sheet  ? URL of Antonio did not help me . They have rather help to get records from dbf direct but my question how to get them from listbox ?','',0,'AIA=','3qf4exog',1,0,'',148,0,0),(12502,2875,3,553,0,'150.101.221.213',1146318198,1,0,1,1,1,0,'','','Thanks for that, works as required. Sorry to be a pest; however, when executing TESTBRWA I get the distant below error:\nThe reason I am running these tests is because I have a Fivewin/Clipper app which works fine with 16-bit Fw27; however, I am getting and can create similar listbox array errors with FWH which I am having difficulty tracking. It is:\n\nFWH Our App error: If necessary I will try to post a reduced sample.\n\nApplicationApplication\n===========\n   Path and name: C:\\FWH\\SAMPLES\\ROSSOS.EXE (32 bits)\n   Size: 1,605,632 bytes\n   Time from start: 0 hours 0 mins 7 secs \n   Error occurred at: 29/04/2006, 23:44:03\n   Error description: Error BASE/1002  Alias does not exist: ARRAY\n\nStack Calls\n===========\n   Called from: WBROWSE.PRG =&gt; _AFIELDS(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:DEFAULT(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:DEFAULT(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:TWBROWSE(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; CREATEDLG(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: rossos.prg =&gt; ADDORDER(2247)\n   Called from: rossos.prg =&gt; (b)MAIN2(343)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: rossos.prg =&gt; MAIN2(392)\n   Called from: rossos.prg =&gt; MAIN3(254)\n   Called from: rossos.prg =&gt; (b)MAIN(218)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: rossos.prg =&gt; MAIN(218)\n\n\nFWH Testbrwa error:\n\n\n===========\n   Path and name: C:\\FWH\\SAMPLES\\TESTBRWA.EXE (32 bits)\n   Size: 1,303,552 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 29/04/06, 23:37:46\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Resource: Brw_Fechas\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: testbrwa.prg =&gt; MAIN(62)\n\nSystem\n======\n   CPU type:  1666 Mhz\n   Hardware memory: 256 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n   Windows version: 4.10, Build 67766446 B\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   CREATEDLGERROR\n     Param   1:    O    Class: TDIALOG\n     Local   1:    C    \"Brw_Fechas\"\n     Local   2:    C    \"                      \"\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    0\n     Local   3:    U    \n     Local   4:    U    \n   MAIN\n     Local   1:    O    Class: TDIALOG\n     Local   2:    O    Class: TWBROWSE\n     Local   3:    B    {|| ... }\n     Local   4:    B    {|| ... }\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    L    .F.\n     Local   8:    U    \n     Local   9:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TDIALOG\n     5 TBRUSH\n     6 TCONTROL\n     7 TCHECKBOX\n     8 TWBROWSE\n     9 TBUTTON\n    10 ERROR\n    11 TREG32\n\nMemory Analysis\n===============\n      131 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'AIA=','17hizxwd',1,0,'',553,0,0),(12503,2877,6,9,0,'85.60.10.217',1146328192,1,0,1,1,1,1,'','Cambiar Message en Diálogo al activar Folder','Acostumbro a la mayoría de los diálogos, colocarle una barra de mensajes y queda bastante curioso. Lo hago llamando a la siguiente función:\n\nFUNCTION PONBARRA ( oDlg, cProm )\nDEFINE MESSAGE OF oDlg PROMPT cProm\nRETURN nil\n\nLa duda ahora es que tengo un dialogo con un folder. Y queria, que a medida que se eligiera cualquiera de las carpetas, se modificara la barra de mensajes. ¿Como podría llamar, al activarse cada pestaña a la función PONBARRA con un cProm diferente correspondiente a dicha pestaña?.','',0,'AIA=','38elgvsu',1,0,'',9,0,0),(12504,2878,6,63,0,'80.37.102.128',1146329300,1,0,1,1,1,0,'','Colorear celdas de TxBrowse()','Tengo un TxBrowse() con unas 60 columnas y 30 líneas.  Los campos de la DBf se llaman \"D01012006\", \"D02012006\" etc... Como se ve, esos nombres se derivan de fechas, o sea, que son variables.  La próxima vez que corra el programa pueden ser \"D01042006\", \"D02042006\", etc...\n\nMe gustaría colorear el fondo de ciertas casillas de rojo o azul, según cumplan ciertas condiciones.  Por ejemplo, las casillas &gt; 1000 en rojo y las demás, en azul...  El problema es que el no saber de antemano los nombres de las columnas, no puedo leer el campo directamente, sino utilizando (alias())-&gt;(Fieldget())\n\nLo mejor que he conseguido hasta ahora es:\n\n[code:3beem6fz]   \n   FOR i &#58;= 1 TO 60\n          oBrw&#58;aCols&#91;i&#93;&#58;bClrStd &#58;= &#123;|| &#123;CLR_WHITE, iif&#40;fieldget&#40;i&#41; &lt; 1000, CLR_BLUE, CLR_RED&#125;\n   NEXT\n[/code:3beem6fz]\n\nPero esto me pone en color rojo o azul TODA la columna, no sólo la casilla que quiero.  ¿Alguien podría darme un ejemplo de cómo hacerlo, por favor?\n\nGracias,\n\nRafael','',0,'AIA=','3beem6fz',1,0,'',63,0,0),(12505,2879,2,510,0,'200.93.24.184',1146334478,1,0,1,1,1,0,'','Para Daniel, manu y fernando GET........','Estimados amigos tengo lo siguiente \n\nstatil function cambia (ofld) \nofld:setoption(2) \nofld:noption:2 \nolfd:refresch() \n\nlo aplique en el programa para que cambie automaticamente a la carpeta del folder, lo hace bien, pero no se me ubica automaticamente en el primer get de ese folder ¿como haria para que se ubique? \n\ny lo siguiente: como hago para que un get tenga un color diferente mientras tenga el foco, apesar que ya lo he definido por ejemplo:\n\n   REDEFINE GET oCod ID 110 ;\n               COLOR Rgb(128,128,128) (255,255,0).\n\n   EN ESTE EJEMPLO YA DEFINE EL COLOR QUE TENDRA PERO QUIERO ES QUE EL COLOR LO TENGA DESPUES QUE PIERDA EL FOCO Y MIENTRAS LO TIENE QUE SEA POR EJEMPLO DE AMARILLO Y NEGRO,\n\nde antemano muchas gracias por los concejos dados anterior mente','',0,'AIA=','21p4kygf',1,0,'',510,0,0),(12507,2878,6,63,0,'80.37.102.128',1146341296,1,0,1,1,1,0,'','','Oskar: \nFunciona!  Muchas gracias!  \nSaludos,\nRafael','',0,'AIA=','1xqikn5s',1,0,'',63,0,0),(12508,2880,3,148,0,'82.201.235.63',1146341372,1,0,1,1,1,0,'','copy/paste from listbox to Excel sheet','Can I remark (shift+cursor down) certain listbox records and copy them and paste them to Excel sheet  ? Adviced URLs of Antonio did not help me . They have rather help to get records from dbf direct but my question how to get them from listbox and paste them to Excel sheet?','',0,'AIA=','aqrsykpi',1,0,'',148,0,0),(12509,2533,1,190,0,'202.65.134.45',1146359597,1,0,1,1,1,0,'','','Hi Asito\n\nHave you tried the output on different printers with the same nWidth\nand nHeight ?\n\nI found the output is varying from printer to printer.\n\nCan anybody suggest me what is the common mechanism to get a\nconstant output on any windows printer with the same program.\n\n- Ramesh Babu P','',0,'AIA=','2kvmxfx4',1,0,'',190,0,0),(12510,2870,4,552,0,'200.138.35.7',1146360058,1,0,1,1,1,1,'','','Antonio, \n\nGracias por las respostas, vou usar otra ferramenta para programar para el pocket.\n\nSaludos,','',0,'AIA=','r7mgwe0h',1,0,'',552,0,0),(12511,2881,6,121,0,'201.138.26.170',1146364618,1,0,1,1,1,1,'','GetKeyStat( 27)','Al utilizar esta funcion me manda error al compilar\n\n_hb_fun_getkeystat unresolved external\n\nme hara falta alguna libreria ?\n\nuso : fwh 2.7  xharbour 0.99.51\n\ngracias','',0,'AIA=','3ftr5e8b',1,0,'',121,0,0),(12512,2791,3,74,0,'190.48.235.119',1146382266,1,0,1,1,1,1,'','','Vladimir:\n\n              You can change the get picture whenever you want with:\n\n	 IF CRUB==1\n	    oPuni:oGet:Picture:=\'999,999.9999\'\n			oPuni:Refresh()\n	 ELSE\n	    oPuni:oGet:Picture:=\'999,999.99\'\n			oPuni:Refresh()\n	 ENDIF\n\nRegards,','',0,'AIA=','3sjj9g7c',1,0,'',74,0,0),(12513,2879,2,74,0,'190.48.235.119',1146382905,1,0,1,1,1,1,'','','Wneskers:\n\n                Respecto al foco en el get del folder:\n\noFld:aDialogs[2]:bGotFocus:={ || oCodPro:SetFocus() }\n\n                Respecto al color del get podes modificar la clase tget de fivewin:\n\n-En METHOD GotFocus() CLASS TGet al final agregas:\n\n::SetColor(nRgb(15,15,15),nRgb(208,218,242)) // agregado daniel\n\nantes de:\n\n   Super:GotFocus()\n\nreturn 0\n\n\n-Y en METHOD LostFocus() CLASS TGet, al final:\n\n   ::SetColor(nRgb(15,15,15),nRgb(255,255,255)) // agregado daniel\n\nreturn nil\n\n\n         Sino en cada get:\n\noGet:bGotFocus:={|| oGet:SetColor(nRgb(15,15,15),nRgb(208,218,242))}\noGet:bLostFocus:={|| oGet:SetColor(nRgb(15,15,15),nRgb(255,255,255))}\n\nSaludos,','',0,'','iut3rmp3',1,0,'',74,0,0),(12514,2881,6,74,0,'190.48.235.119',1146383469,1,0,1,1,1,1,'','','Marco:\n\n          Simplemente te falta la e final, recuerda que en 32 bits los nombres de funciones ya no se truncan en 10 caracteres y la funcion completa es Getkeystate().\n\nSaludos,','',0,'','19rxmxxw',1,0,'',74,0,0),(12515,2869,6,449,0,'81.42.142.242',1146383924,1,0,1,1,1,1,'','','Hola,\n\nNo entiendo tu pregunta. Se pretende trabajar contra servidor, no en modo local.\n\nSaludos.\nC.','',0,'','3rgj634k',1,0,'',449,0,0),(12516,2533,1,6,0,'82.59.51.116',1146391195,1,0,1,1,1,1,'','','Image sizes are in pixel but pixel sizes change from printer to printer. You have to calculate how many pixels are needed to cover a specific paper area:\n\noPrn:SayBitmap( 0, 0, \"IMAGE.BMP\", oPrn:nHorzRes() / 4, oPrn:nVertRes() / 8 )\n\nEMG','',0,'','2q4s2wmt',1,0,'',6,0,0),(12517,2882,3,553,0,'150.101.221.213',1146399018,1,0,1,1,1,0,'','Browsing empty arrays','The below works as required; however, when aData is an empty array it comes up with 1132 Error, Bound error:array access. This doesn\'t happen with the 16-bit FW27.  Advice would be appreciated as to how this is dealt with using FWH\n\nThanks\n\n\n// Browsing a two dimensions array with FiveWin powerfull TWBrowse\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg, oBrw\n   local aData := { { \"1\", \"Cliente\",   \"=\", \"123456\" },;\n                    { \"2\", \"Direccion\", \"$\", \"Spain\" },;\n                    { \"3\", \"Telefono\",  \"&lt;&gt;\", \"889977665\" } }\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg FROM 2, 2 TO 20, 50\n   @ 1, 1 LISTBOX oBrw FIELDS aData[ oBrw:nAt ][ 1 ],; \n                              aData[ oBrw:nAt ][ 2 ],; \n                              aData[ oBrw:nAt ][ 3 ],; \n                              aData[ oBrw:nAt ][ 4 ] OF oDlg ; \n     SIZE 150, 100 HEADERS \"One\", \"Two\", \"Three\", \"Four\" \n\n   oBrw:SetArray( aData )\n\n   @ 10, 9 BUTTON \"&amp;End\" OF oDlg ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//','',0,'','3e43cu41',1,0,'',553,0,0),(12518,2883,3,435,0,'200.155.206.74',1146402566,1,0,1,1,1,0,'','TOLE with MSN Messenger','é possivel conectar com MSN Messenger usando o TOle ?\n\nTOle with MSN !','',0,'','e90h74ld',1,0,'',435,0,0),(12519,2884,3,281,0,'219.251.175.150',1146403065,1,0,1,1,1,1,'','WM_USER wrong value ?','Hi Antonio.\n\nWe see a downside sample.\n\nSee a WindowProc Function.\n\nWM_USER to be defined at the include.\n\nIt comes out so that (Msg) edge is wrong.\n\nMsg result is 1026, 1027, 1028 this toe.\n\nBut.. Different value comes out.\n\nWe have probably wrong value.\n\nHow is the Receive Normal numerical value.\n \n\nYun jin Song\n\nFWH USER -------------------------------------','',0,'','tj1k76hm',1,1147072236,'',281,1,0),(12520,2876,6,75,0,'81.39.172.32',1146403670,1,0,1,1,1,0,'','Sigue sin funcionar indices CDX','[b:1nvobw0w]ordKeyCount().[/b:1nvobw0w] No se encuentra.\nUtilizo el xHarbour 0.99.3 de PuertoSur.\n\nEn el make le he puesto las librerias de xHarbour:\n\n[color=darkblue:1nvobw0w]rtl.lib\nvm.lib\ngtwin.lib\nlang.lib\nmacro.lib\n\nrdd.lib\ndbfcdx.lib\ncbffpt.lib\ndbfntx.lib\ncbfdbt.lib\n\ndebug.lib\ncommon.lib\npp.lib\ncw32.lib\nimport32.lib[/color:1nvobw0w]\n\nDe modo que no se que libreria me falta incluir para incorporar esa funcion que me da error porque no existe.\n\nSaludos.','',0,'Qg==','1nvobw0w',1,0,'',75,0,0),(12521,2853,6,171,0,'71.232.193.197',1146406095,1,0,1,1,1,0,'','','Antonio,\n\nSolucionado gracias al ejemplo testmdi4.prg\n\nGracias\n\n\nGeorge','',0,'Qg==','lxzm9a04',1,0,'',171,0,0),(12522,2668,3,26,0,'84.255.245.173',1146406823,1,0,1,1,1,1,'','','Hello!\n\nOf course 32-bit apps are working OK in Windows 95. But you are absolutely correct about upgrading Windows 95 to Windows 98/SE/ME:\n<!-- m --><a class=\"postlink\" href=\"http://aumha.org/win4/a/memmgmt.php\">http://aumha.org/win4/a/memmgmt.php</a><!-- m -->\n[quote:1vccw4xp]Memory management in Windows 98 and Windows Millennium Edition (WinME) is dramatically improved over what existed in Windows 95. It is so much improved that, for nearly everyone, nearly all the time, the best recommendations on how best to optimize memory usage in Win98 is: Let Windows handle it.[/quote:1vccw4xp]\n[quote:1vccw4xp]One improvement in VCache management in Win98/ME over Win95 is that Win95 had a bug that kept VCache from releasing RAM when it was needed. VCache would just keep growing sometimes, and the amount of available RAM would diminish accordingly, forcing more swap file activity (using the hard drive as a substitute for RAM). [i:1vccw4xp]This is the famous “memory leak” of Win95.[/i:1vccw4xp] The user’s solution in Win95 was to put MinFileCache and MaxFileCache lines in the [vcache] section of the SYSTEM.INI file to control the size of VCache. This was sometimes a great help (especially on the 12 MB, 16MB, and 32MB systems which were the vogue in Win95’s heyday). But, in Win98, this problem was fixed (with further improvements in Windows 98 Second Edition, that carried over into WinME), and these [vcache] lines are not needed. Not only are they not needed, they actually get in the way in Win98/ME. In Win95 they improved performance, but in Win98/ME they decrease performance, because of a second improvement that was made in memory management for Win98 — to be discussed in a moment.[/quote:1vccw4xp]\nBTW, I run successfully µTorrent client in my virtual Windows 95B machine:\n<!-- m --><a class=\"postlink\" href=\"http://www.utorrent.com/faq.php#Does_.C2.B5Torrent_work_on_a_486_with_Windows_95_and_14MiB_of_RAM.3F\">http://www.utorrent.com/faq.php#Does_.C ... _of_RAM.3F</a><!-- m -->\n[quote:1vccw4xp][b:1vccw4xp]Q:[/b:1vccw4xp]Does µTorrent work on a 486 with Windows 95 and 14MiB of RAM?\n[b:1vccw4xp]A:[/b:1vccw4xp]Yes, so long as you apply the Winsock2 update. You may have to raise the GUI update period, and generally run the client with the UI closed, though. [/quote:1vccw4xp]\n<!-- m --><a class=\"postlink\" href=\"http://www.p2pnet.net/story/8158\">http://www.p2pnet.net/story/8158</a><!-- m -->\n[quote:1vccw4xp]* Unicode support: The same executable can be used both in Unicode mode (windows 2000 or later) or in ANSI compability mode (windows ME or earlier). This is a quite unique feature for native Win32 programs. Unicode is a relatively new universal way of representing characters inside the computer, which means that µTorrent is compatible with foreign torrents (such as those with chinese filenames), while still being able to run properly on old platforms.[i:1vccw4xp] Support for old platforms like Windows 95 is an important goal for us, not because the user base is there, but it shows that we care about how the application performs for all users.[/i:1vccw4xp][/quote:1vccw4xp]\n\nand eMule 0.45b client:\n<!-- m --><a class=\"postlink\" href=\"http://oldfiles.org.uk/lightspeed/eDonkey.html\">http://oldfiles.org.uk/lightspeed/eDonkey.html</a><!-- m -->\n[quote:1vccw4xp]The backbone of the eDonkey network is a group of servers disseminated around the world that are running a software called Lugdunum. These servers keep track of what files are shared by which clients and allow each individual client to search the network and connect to each other to transfer files. The current version of this software is 17.10. This version implements new protocols that will cause older eDonkey clients to receive the following message: Your client is too old, please upgrade it to last version. If the server your client is connected to gives you this message, all further request from you will be ignored resulting in no traffic and no search results from the eDonkey network. For most people the solution is to simply upgrade to the latest version of the client they use, but for Windows 95 users, this is a problem since the latest version of their client simply will not run on their system. [i:1vccw4xp]The newest version W95 users can run are eMule 0.45b or Shareaza 2.1.0.0[/i:1vccw4xp] (i won\'t cover other possible clients here at this time). [/quote:1vccw4xp]\n\nCheers, Roman','',0,'4A==','1vccw4xp',1,0,'',26,0,0),(12523,2882,3,6,0,'82.59.51.116',1146406933,1,0,1,1,1,1,'','Re: Browsing empty arrays','[quote=&quot;George Trojan&quot;:2u434x06]@ 1, 1 LISTBOX oBrw FIELDS aData[ oBrw:nAt ][ 1 ],;[/quote:2u434x06]\n\n@ 1, 1 LISTBOX oBrw FIELDS IF( EMPTY( aData ), \"\", aData[ oBrw:nAt ][ 1 ] ),;\n\nAnd so on.\n\nEMG','',0,'gA==','2u434x06',1,0,'',6,0,0),(12524,2876,6,439,0,'190.0.136.78',1146410653,1,0,1,1,1,1,'','','Lo único necesario (lo verías en los ejemplos de TWBrowse) es colocar inmediatamente después de las definiciones y antes de la primera función\nla siguiente línea:\n\nexternal dbfcdx, ordkeyno, ordkeycount','',0,'gA==','7xykeu82',1,0,'',439,0,0),(12525,2885,17,383,0,'201.240.199.156',1146417883,1,0,1,1,1,0,'','CLASE TXLS 2.1','Alguien por favor puede enviarme la clase TXLS Version 2.1 para xHarbour. Es urgente por favor. Muchas Gracias.','',0,'gA==','144nna4k',1,0,'',383,0,0),(12526,2869,6,264,0,'200.113.61.53',1146421157,1,0,1,1,1,0,'','','no importa que sea un server ADS, la pregunta es si las tablas son archivos DBF o si es un server SQL, por ejemplo Microsoft SQL Server.\nEso.','',0,'gA==','3u4av3oc',1,0,'',264,0,0),(12527,2886,3,264,0,'200.113.61.53',1146421392,1,0,1,1,1,0,'','Easydialog updated ?','Exists any version of Easydialog for FWH ?\nThe version in site of Tod is very old. ( 2002 !! )\nAny new ?','',0,'gA==','2t6ocoo1',1,0,'',264,0,0),(12528,791,6,264,0,'200.113.61.53',1146421675,1,0,1,1,1,0,'','','Hi Richard,\ncan you send a copy for test ?\n\n<!-- e --><a href=\"mailto:jgv@random.cl\">jgv@random.cl</a><!-- e -->\n\nthanks!','',0,'gA==','32da0hrt',1,0,'',264,0,0),(12529,2887,6,496,0,'200.107.36.176',1146422871,1,0,1,1,1,0,'','variables públicas y memvar','Hola \n\nHe comenzado a pasar una de mis aplicaciones a 32 bits, para ello estoy usando Harbour (45.0), FWH 2.7 build de marzo, bcc 5.5.1 y VERCE 4.3 .\n\nMe encuentro en un problema por el que casi todos han pasado, y ya lo han resuleto, pero yo no puedo. Anteriormente declaraba en un PRG (generalmente del menú) como PUBLIC las variables que usaría en muchas funciones que se encontraban en diversos PRGs, hasta incluso alguna las declaraba en donde la necesitaba, y todo funcionaba bien. Pero hoy eso ya no funciona (creo que me toca ser más ordenado). Revisando el foro, encontré qe se debe cambiar public por memvar, hize todos esos cambios y funcionó pero sólo dentro del primer prg . Al seguir la compilación del siguiente prg cuyas funciones usan las variables públicas declaradas ya en el primer prg como memvar, estas no son reconocidas y se obtiene nuevamente el famoso Warning:\nAmbiguos Reference:\'variable\'\n\nDe qué otra forma se puede solucionar esto, para que las variables se declaren una sola vez en el prg inicial y estén disponibles para todos los prgs de la aplicación.\n\nLes recuerdo que ya he declarado las variables como memvar en el prg principal, pero no funciona.\n\nGracias de antemano cualquier ayuda.\n\nMarcelo Jingo','',0,'gA==','ffa6iqp6',1,0,'',496,0,0),(12530,2887,6,9,0,'85.54.254.184',1146424867,1,0,1,1,1,1,'','','Marcelo,\n\nTe cuento como lo hago yo:\n1) En el prg principal, declaro por este orden las variables:\nlocales, static, Memvar, Field, Public. private\nTodas las variables PUBLIC las declaro en este módulo tambien como MEMVAR.\n\n2) En los otros módulo, en el caso de que vaya a utilizar en él alguna\nvariable pública, ya declarada en el prg principal, las declaro aqui PERO SOLO COMO MEMVAR.\n\nEspero que te sirva.','',0,'gA==','3g9zhvjf',1,0,'',9,0,0),(12531,2888,6,9,0,'85.54.254.184',1146426319,1,0,1,1,1,1,'','Excel y Ole2','Despues de probar tres clases sobre Excel, he probado directamente Ole2 (incluida en xHarbour) y me ha sorprendido la rapidez y la facilidad para su aprendizaje. Para fijar el ancho de las columnas estoy utilizando AUTOFIX() satisfactoriamente. Pero quiero que el ancho de la columna 1 quiero prefijarlo, independientemente del ancho del contenido. ¿Cual es el parámetro para fijarlo?. He probado oHoja:Columns(1):SetWidth:= xxx, pero da error al aperturar la hoja.\n\nMe imagino que en la ayuda de VB de MS_Excel debe explicarse el parámetro, pero no tengo instalada dicha ayuda.','',0,'gA==','1ablcyz6',1,0,'',9,0,0),(12532,2887,6,496,0,'200.107.36.176',1146433006,1,0,1,1,1,0,'','','Gracias Manuel por la respuesta.\n\nEs como si empezara de nuevo, estoy un poco despistado. \n\nSe me volvió pesado este cambio, pues tengo varios prgs y un montón de variables públicas. \n\nSeguiré tu consejo y ya les contaré cómo me fue.\n\nSaludos a todos','',0,'gA==','3l2tgsm5',1,0,'',496,0,0),(12534,2889,3,171,0,'71.232.193.197',1146440904,1,0,1,1,1,0,'','Google function','Using <!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w --> when you mispelled a word, by example: \'algorithmm\'\nyou receive the following message:\nDid you mean: algorithm  \n\nDo you have any Idea, Sugestion, or maye some algorithm <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> to be implemented in a xHarbour program like that google function ?\n\n\nRegards \n\n\nGeorge','',0,'gA==','1tb2x320',1,0,'',171,0,0),(12535,2888,6,496,0,'200.107.36.176',1146441487,1,0,1,1,1,0,'','','Así lo hago (en 16 bits )\n\noHoja:Range(\"A:A\"):Set(\"ColumnWidth\",32)\n\nEspero que eso no haya cambiado en 32 bits. Caso contrario me espera más dolores de cabeza.\n\nUn saludo\n\nMarcelo Jingo','',0,'gA==','obmb4ldg',1,0,'',496,0,0),(12536,2890,6,171,0,'71.232.193.197',1146441627,1,0,1,1,1,0,'','Funcion google','Al usar <!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w -->, cuando escribimos mal una palabra, por ejemplo\n\nalgorithmm, recibimos el siguiente mensaje:\n\ndid you mean: algorithm\n\nAlgun compañero del foro tendra alguna idea, sugerencia o quizas un algorithmo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> que se pueda implementar en xHarbour para hacer una funcion que haga lo mismo  que esa de google.\n\nSaludos\n\n\nGeorge','',0,'gA==','19rqmyob',1,0,'',171,0,0),(12537,2869,6,54,0,'201.98.176.226',1146448145,1,0,1,1,1,1,'','','[quote=&quot;dbzap&quot;:3rgk4mf8]no importa que sea un server ADS, la pregunta es si las tablas son archivos DBF o si es un server SQL, por ejemplo Microsoft SQL Server.\nEso.[/quote:3rgk4mf8]\n\nSi es Advantage, son base de datos DBF, advantage te da la ventaja SQL.','',0,'gA==','3rgk4mf8',1,0,'',54,0,0),(12538,2887,6,54,0,'201.98.176.226',1146448550,1,0,1,1,1,1,'','','[quote=&quot;sjingo&quot;:26tfx7cm]Gracias Manuel por la respuesta.\n\nEs como si empezara de nuevo, estoy un poco despistado. \n\nSe me volvió pesado este cambio, pues tengo varios prgs y un montón de variables públicas. \n\nSeguiré tu consejo y ya les contaré cómo me fue.\n\nSaludos a todos[/quote:26tfx7cm]\n\nAlgunos sugieren lo siguiente:\n\n[code:26tfx7cm]MEMVAR oGlobal\nFUNCTION main&#40;&#41;\n  PUBLIC oGlobal\n  oGlobal &#58;= myClass&#40;&#41;\nRETURN NIL\n\n\nCLASS myClass\n  DATA dFecha\n  DATA cHora\n  DATA cTitulo\n  DATA oWnd\nENDCLASS\n[/code:26tfx7cm]\n\nEn los otros PRG\'s:\n\n[code:26tfx7cm]MEMVAR oGlobal\nFUNCTION otrafuncion&#40;&#41;\n  ? oGlobal&#58;cHora\nRETURN NIL\n[/code:26tfx7cm]\n\nSolo teniendo una variable pública, esto es para que el consumo de memoria no sea demasiado.\n\nEspero haber ayudado','',0,'gIA=','26tfx7cm',1,0,'',54,0,0),(12539,791,6,15,0,'203.73.7.92',1146451045,1,0,1,1,1,0,'','','Hi dbzap,\n\nThis LIB file only support my Fingerprint device.\nSo I think you can\'t use it for any Fingerprint device.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gIA=','28596hyy',1,0,'',15,0,0),(12540,2887,6,496,0,'200.107.36.176',1146452740,1,0,1,1,1,0,'','','Vaya, cada día se aprende más.\n\nGracias William por el tip, ya mismo lo pongo en práctica. \n\nEstoy ya en el tercer PRG de 15, arreglando esto de las variables.\n\nUn saludo \n\nMarcelo Jingo','',0,'gIA=','1o1gstfh',1,0,'',496,0,0),(12541,2891,6,496,0,'200.107.36.176',1146453520,1,0,1,1,1,0,'','Warning W0027, ayuda please','A qué se refiere este Error :\n\nWarning W0027 Meaningless use of expression:\':\'\n\nEn la línea que marca el error tengo:\n\n@ top,left+=vancho+2 btnbmp BotonDel size vancho,valto resource \"Cutblue\" of Dialog_o noborder action (if(marcar_del(),(olist:gotop(),olist:gobottom,olist:setfocus()),olist:setfocus()))\n\nSegún consulto en el diccionario, entiendo que dice que no tiene sentido usar la expresión \':\'.   Antes no tuve ese error. Qué está mal?\n\nNuevamente gracias \nSaludos\n\nMarcelo Jingo','',0,'gIA=','3ym6z628',1,0,'',496,0,0),(12542,2875,3,2,0,'87.218.146.71',1146460258,1,0,1,1,1,1,'','','George,\n\nsamples\\TestBrwA.prg is working fine with these changes:\n\n1. Add this TestBrwA.rc to samples directory:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d41fd662/testbrwa.rc.html\">http://hyperupload.com/download/01d41fd ... wa.rc.html</a><!-- m -->\n\n2. Make this change in samples\\TestBrwA.prg:\n[code:1aj5g26k]\n   #ifndef __HARBOUR__\n      SET RESOURCES TO &quot;BrwArr&#46;dll&quot;\n   #endif\n[/code:1aj5g26k]','',0,'AIA=','1aj5g26k',1,0,'',2,0,0),(12543,2891,6,54,0,'201.98.176.226',1146461834,1,0,1,1,1,1,'','Re: Warning W0027, ayuda please','[quote=&quot;sjingo&quot;:3dt9ty44]A qué se refiere este Error :\n\nWarning W0027 Meaningless use of expression:\':\'\n\nEn la línea que marca el error tengo:\n\n@ top,left+=vancho+2 btnbmp BotonDel size vancho,valto resource \"Cutblue\" of Dialog_o noborder action (if(marcar_del(),(olist:gotop(),olist:gobottom,olist:setfocus()),olist:setfocus()))\n\nSegún consulto en el diccionario, entiendo que dice que no tiene sentido usar la expresión \':\'.   Antes no tuve ese error. Qué está mal?\n\nNuevamente gracias \nSaludos\n\nMarcelo Jingo[/quote:3dt9ty44]\n\nMi estimado,\n\ncheca esta parte\n\n[code:3dt9ty44]&#40;olist&#58;gotop&#40;&#41;,olist&#58;gobottom,olist&#58;setfocus&#40;&#41;&#41;[/code:3dt9ty44]\n\nAquí, el gotop tiene parentesis y el gobottom no los tienes, por ahi puede ser.','',0,'gIA=','3dt9ty44',1,0,'',54,0,0),(12544,2890,6,52,0,'200.127.195.89',1146462189,1,0,1,1,1,1,'','Idea','Estimado,\n\nSe me ocurre:\n\n1) conseguir una base de datos con todas las palabras en castellano.\n2) ir buscando caracter por caracter a partir de la izquierda y comparando con la palabras de esta DBF, cuando no encuentra una, avisar la ultima que encontró.\n\nHe Dicho.','',0,'gIA=','3632to1a',1,0,'',52,0,0),(12545,2892,6,52,0,'200.127.195.89',1146462234,1,0,1,1,1,1,'','Tooltips &amp; Icon','Antonio,\n\nExiste ya el ejemplo?\n\nGracias.','',0,'gIA=','28y1mj8z',1,0,'',52,0,0),(12546,2893,6,52,0,'200.127.195.89',1146462363,1,0,1,1,1,1,'','Agrandar un ARRAY bidireccional','Estimados,\n\nTengo esto:\n[code:1ghkei5w]Local aMatriz&#58;=&#123; &#123;&#125; &#125;[/code:1ghkei5w]\n\nAhora bien, quiero hacer que dicha matriz tome 10 x 10 pisiciones.\n\nHe visto en las NG \n[code:1ghkei5w]aSize&#40; aMatriz, &#123;10, 10 &#125; &#41; [/code:1ghkei5w]\n\npero en este caso pondría dos valores, yo necesito simplemente agrandar la matriz.\n\nAlguna Idea?\n\nHe dicho.','',0,'AIA=','1ghkei5w',1,0,'',52,0,0),(12547,2888,6,9,0,'85.54.254.184',1146462364,1,0,1,1,1,1,'','','Marcelo, muchas gracias. Ha funcionado perfectamente.\n\nEn cuando al cambio entre 16 y 32 bits, no te preocupe. En unos dias lo tiene todo funcionando y con la satisfacción de que no nos estamos quedando atrás. Lo que ocurre es que, aprovechando el cambio, empezamos a cambiar cosas (por ejemplo, apariencia XP, botones con imagenes, etc) y la cosa se pone divertida.','',0,'AIA=','2ay6yynl',1,0,'',9,0,0),(12548,2740,6,52,0,'200.127.195.89',1146462682,1,0,1,1,1,1,'','','Con la tsbrowser? como sería?\n\nGracias.','',0,'AIA=','2prwt40s',1,0,'',52,0,0),(12549,2893,6,54,0,'201.98.176.226',1146474976,1,0,1,1,1,1,'','Re: Agrandar un ARRAY bidireccional','[quote=&quot;goosfancito&quot;:2rm7lh4v]Estimados,\n\nTengo esto:\n[code:2rm7lh4v]Local aMatriz&#58;=&#123; &#123;&#125; &#125;[/code:2rm7lh4v]\n\nAhora bien, quiero hacer que dicha matriz tome 10 x 10 pisiciones.\n\nHe visto en las NG \n[code:2rm7lh4v]aSize&#40; aMatriz, &#123;10, 10 &#125; &#41; [/code:2rm7lh4v]\n\npero en este caso pondría dos valores, yo necesito simplemente agrandar la matriz.\n\nAlguna Idea?\n\nHe dicho.[/quote:2rm7lh4v]\n\nGoos,\n\nCreo que es multidimensional.\n\n[code:2rm7lh4v]Asize&#40; aMatriz, 10 &#41;\naMatriz&#91;10&#93; &#58;= ARRAY&#40;10&#41;\n   o\nAEVAL&#40; aMatriz,&#123;|aItem| aItem &#58;= ARRAY&#40;10&#41; &#125; &#41;[/code:2rm7lh4v]\n\nEspero haber ayudado','',0,'gIA=','2rm7lh4v',1,0,'',54,0,0),(12550,2855,2,375,0,'84.122.123.130',1146475920,1,0,1,1,1,1,'','','Vale, Manuel.\nTOLEAUTO está en OLE2.LIB\nAhora solo me falta saber como se utiliza. ¿Hay algún manual por ahí?\n\nMuchas gracias','',0,'gIA=','vdqc4mg6',1,0,'',375,0,0),(12551,2882,3,553,0,'150.101.221.213',1146484267,1,0,1,1,1,0,'','','Thanks for your response. That works in the sample; howevere, it doesn\'t work in the below:\n\n    REDEFINE LISTBOX oBrwOrdr   ;\n      FIELDS aOrder[oBrwOrdr:nAt][1],aOrder[oBrwOrdr:nAt][2],;\n             aOrder[oBrwOrdr:nAt][3],aOrder[oBrwOrdr:nAt][4],aOrder[oBrwOrdr:nAt][5],aOrder[oBrwOrdr:nAt][6]   ;\n      ID 110 OF oAddOrder        ;\n      COLSIZES 415,47,60,60,60,60 HEADERS \"Product Description\",\"Qty\",\"Price\",\"Sub-Total\",\"Sub-GST\",\"Total\"     ;\n      COLOR CLR_BLUE,CLR_WHITE ;\n      FONT oFont    ;\n      UPDATE\n\nIf when the array is empty, I can assign {\'\'} to aOrder ie.\n\naOrder:={\'\'} but we get a blank line in the browse and we start with an element in the array. Declaring aOrder:={} and the above works in 16bit FW. I have tried various combinations of ...FIELDS IIF(empty(aOrder),... as below:\n\n      FIELDS IIF(!empty(aOrder),(aOrder[oBrwOrdr:nAt][1],aOrder[oBrwOrdr:nAt][2],;\n             aOrder[oBrwOrdr:nAt][3],aOrder[oBrwOrdr:nAt][4],aOrder[oBrwOrdr:nAt][5],aOrder[oBrwOrdr:nAt][6]),\'\')   ;\n\nI always get the \"bound error, array access\". Thanks for your asistance/advice.\n\nRegards','',0,'','2gku03w9',1,0,'',553,0,0),(12552,2875,3,553,0,'150.101.221.213',1146484443,1,0,1,1,1,0,'','','Thanks for your time. Attempted to download the RC files - its says it is unavailabe.\n\nThanks again.','',0,'','2uhcd608',1,0,'',553,0,0),(12553,2875,3,2,0,'87.218.146.71',1146484618,1,0,1,1,1,1,'','','George,\n\nLook in that URL page for \n\nHyperupload :: Download\nDownload link:\n...running time...\n\nyou have to wait some seconds, then you can download it.','',0,'','34a32iv2',1,0,'',2,0,0),(12554,2891,6,496,0,'200.107.36.176',1146485352,1,0,1,1,1,0,'','','Efectivamente, ese era el problema.  \nLo que sucede es que antes no me daba ese error por eso no me he percatado.\n\nGracias Mil\n\nSaludos\nMarcelo Jingo','',0,'','2g0rn5du',1,0,'',496,0,0),(12555,2855,2,9,0,'85.54.254.184',1146485571,1,0,1,1,1,1,'','','[quote=&quot;manuramos&quot;:1il30j3p]\nAhora solo me falta saber como se utiliza. ¿Hay algún manual por ahí?\n[/quote:1il30j3p]\n\nManu, \nLlevo varios varios años utilizando Ole2 (antes con FW+Clipper y ahora con FWH+xHarbour) satisfactoriamente. Pero lo he aprendido, como tantas cosas en FW, a base de \"porrazos\" y picoteando aqui y alli.\n\n1) Puedes utilizar Ole2 directamente (es lo que yo hago) o bien usar algunas de las clases que hay disponibles TWord y Texcel (las tienes en Utilidades).\n\n2) Subo a Hyperload lo siguiente:\n    a) La libreria Ole2 junto con algunos ejemplos.- La libreria es para\n        Clipper+FW, no para 32 bit donde ya viene incorporada en xHarbour.\n        Los ejemplos, con algunas modificaciones, funcionan en 32 bit.\n\n    <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0194932657/ole2.zip.html\">http://hyperupload.com/download/0194932 ... 2.zip.html</a><!-- m -->\n\n    b) Unos comentarios de Bingen:\n\n     <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0228ffd349/olewordfw.zip.html\">http://hyperupload.com/download/0228ffd ... w.zip.html</a><!-- m --> \n\n    c) El código de win32ole.prg (xHarbour):\n\n     <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0216413c73/win32ole.prg.html\">http://hyperupload.com/download/0216413 ... e.prg.html</a><!-- m --> \n\nRecordar, porque es de justicia, que esta clase fue creada por José Giménez.','',0,'gA==','1il30j3p',1,0,'',9,0,0),(12556,2891,6,9,0,'85.54.254.184',1146486577,1,0,1,1,1,1,'','','Marcelo,\n\nxHarbour es mas exigente que Clipper con nuestroe errores. Por ejemplo, cuando para justificar las celdas en un listbox usamos:\n\n         oLbx:aJustify={.f.,.t.,.f.,.t.}\n\nSi hay cinco campos, en Clipper no da error, pero en xHarbour, al ejecutarlo, te dará un error base/1132 y revisarás 20 veces el código hasta dar con esa tontería.','',0,'gA==','2vzheeut',1,0,'',9,0,0),(12557,2894,6,63,0,'80.37.102.128',1146486953,1,0,1,1,1,0,'','Leer una celda en un TxBrowse()','Estoy intentando hacer que al mover el ratón sobre un TxBrowse un campo Say me indique el contenido de las celdas sobre las que pasa el ratón, sin necesidad de clicar en ninguna de ellas.  Hasta ahora he llegado aquí:\n[code:2gc217a0]\n     @ 1,1 SAY &#58;&#58;oSay &#46;&#46;&#46;&#46;&#46;   // Para ver el contenido de cada celda\n     oBrw&#58;bMMoved &#58;= &#123;|nR,nC| &#58;&#58;LeerCelda&#40;nR, nC&#41;&#125;   // esto va Ok\n&#46;&#46;&#46;&#46;&#46;&#46;\n\nMETHOD LeerCelda&#40;nR,nC&#41;\nnRow  &#58;= &#58;&#58;oBrw&#58;MouseRowPos&#40;nR&#41;\nnCol  &#58;= &#58;&#58;oBrw&#58;MouseColPos&#40;nC&#41;\ncData &#58;= ?????\n&#58;&#58;oSay&#58;VarPut&#40;STR&#40;nRow&#41;+STR&#40;nCol&#41; +&quot;  &quot;+ cData&#41;\nRETURN NIL\n[/code:2gc217a0]\nLa pregunta, obviamente, es ¿cómo hago para obtener cData, o sea, el contenido de cada celda en nRow, nCol sin clicar en ella?  ¿Alguien podría echarme una mano? Gracias\nRafael','',0,'AIA=','2gc217a0',1,0,'',63,0,0),(12558,2882,3,6,0,'82.57.159.45',1146487437,1,0,1,1,1,1,'','','[quote=&quot;George Trojan&quot;:1kngukef]FIELDS IIF(!empty(aOrder),(aOrder[oBrwOrdr:nAt][1],aOrder[oBrwOrdr:nAt][2],;\n             aOrder[oBrwOrdr:nAt][3],aOrder[oBrwOrdr:nAt][4],aOrder[oBrwOrdr:nAt][5],aOrder[oBrwOrdr:nAt][6]),\'\')   ;[/quote:1kngukef]\n\nYou have to put an IF() for each browse column:\n\n[code:1kngukef]FIELDS IIF&#40;!empty&#40;aOrder&#41;, &quot;&quot;, aOrder&#91;oBrwOrdr&#58;nAt&#93;&#91;1&#93;&#41;,;\n       IIF&#40;!empty&#40;aOrder&#41;, &quot;&quot;, aOrder&#91;oBrwOrdr&#58;nAt&#93;&#91;2&#93;&#41;,;\n       IIF&#40;!empty&#40;aOrder&#41;, &quot;&quot;, aOrder&#91;oBrwOrdr&#58;nAt&#93;&#91;3&#93;&#41;,;\n       IIF&#40;!empty&#40;aOrder&#41;, &quot;&quot;, aOrder&#91;oBrwOrdr&#58;nAt&#93;&#91;4&#93;&#41;,;\n       IIF&#40;!empty&#40;aOrder&#41;, &quot;&quot;, aOrder&#91;oBrwOrdr&#58;nAt&#93;&#91;5&#93;&#41;,;\n       IIF&#40;!empty&#40;aOrder&#41;, &quot;&quot;, aOrder&#91;oBrwOrdr&#58;nAt&#93;&#91;6&#93;&#41; ;[/code:1kngukef]\n\nOr something similar.\n\nEMG','',0,'gIA=','1kngukef',1,0,'',6,0,0),(12559,2875,3,553,0,'150.101.221.213',1146488112,1,0,1,1,1,0,'','','Hi Antonio,\n\nHave used the download site before, it just says:\n\nFile: testbrwa.rc\nFile size: 1.74Kb\nDescription: not available \n\nWaited several minutes - nothing happens - sorry','',0,'gIA=','3qv4ejx7',1,0,'',553,0,0),(12560,2882,3,553,0,'150.101.221.213',1146488655,1,0,1,1,1,0,'','','Tried\n\nFIELDS IIF(!empty(aOrder),aOrder[oBrwOrdr:nAt][1],\'\'),IIF(!empty(aOrder),aOrder[oBrwOrdr:nAt][2],\'\'),;\n             IIF(!empty(aOrder),aOrder[oBrwOrdr:nAt][3],\'\'),IIF(!empty(aOrder),aOrder[oBrwOrdr:nAt][4],\'\'),;\n			 IIF(!empty(aOrder),aOrder[oBrwOrdr:nAt][5],\'\'),IIF(!empty(aOrder),aOrder[oBrwOrdr:nAt][6],\'\')   ;\n\nstill get the same error, the only way I can get it to work is to have a \'blank\' element in the array ie. aOrder:={\'\',\'\',\'\',\'\',\'\',\'\'}\n\nThanks','',0,'','cjl84k41',1,0,'',553,0,0),(12561,2882,3,372,0,'195.193.90.14',1146490628,1,0,1,1,1,0,'','','George,\n\ni had the same problem and just added an empty array to the browser if there is no data present.\n\nSomething like: aadd(aData, { \"\", \"\", \"\", \"\" })\n\nRegards,\n\nJohn.','',0,'','2qhtxo4j',1,0,'',372,0,0),(12562,2882,3,6,0,'82.57.159.45',1146490833,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:11g7m09t]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBrw\n\n    LOCAL aArray &#58;= &#123; &#123; &quot;Test1_1&quot;, &quot;Test1_2&quot; &#125;,;\n                      &#123; &quot;Test2_1&quot;, &quot;Test2_2&quot; &#125;,;\n                      &#123; &quot;Test3_1&quot;, &quot;Test3_2&quot; &#125; &#125;\n\n    LOCAL nCur &#58;= 1\n\n    aArray = &#123;&#125;\n\n    DEFINE WINDOW oWnd;\n           TITLE &quot;Browsing array&quot;\n\n    @ 0, 0 LISTBOX oBrw FIELDS IF&#40; EMPTY&#40; aArray &#41;, &quot;&quot;, aArray&#91; nCur, 1 &#93; &#41;,;\n                               IF&#40; EMPTY&#40; aArray &#41;, &quot;&quot;, aArray&#91; nCur, 2 &#93; &#41;;\n           SIZE 200, 200;\n           HEADERS &quot;Test1&quot;, &quot;Test2&quot;\n\n    oBrw&#58;bLogicLen = &#123; || Len&#40; aArray &#41; &#125;\n    oBrw&#58;bGoTop    = &#123; || nCur &#58;= 1 &#125;\n    oBrw&#58;bGoBottom = &#123; || nCur &#58;= Len&#40; aArray &#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; aArray, @nCur, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    oBrw&#58;SetFocus&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SKIPPER&#40; aArray, nCur, nSkip &#41;\n\n    LOCAL nOld &#58;= nCur\n\n    nCur += nSkip\n\n    IF nCur &gt; LEN&#40; aArray &#41;; nCur = LEN&#40; aArray &#41;; ENDIF\n    IF nCur &lt; 1; nCur = 1; ENDIF\n\n    RETURN nCur - nOld[/code:11g7m09t]\n\nEMG','',0,'AIA=','11g7m09t',1,0,'',6,0,0),(12563,2895,3,190,0,'202.65.134.45',1146490989,1,0,1,1,1,0,'','Which is \'Set Filter\' equavalent in Advantage RDD','Hi \n\nI was testing to find the fastest way to access records from a filtered\nlarge database, using ADS RDD.\n\nSo fare I could find that the DbSetFilter() is 100 times faster than the\ntraditional SET FILTER TO ... command.\n\nI was trying to filter the records with AdsSetAOF() funciton.  But I found\nno effect of this funciton and total records are appearing.\n\nI give below the code.  Can anybody advise me the usage of  ADS\nfunctions  AdsSetFilter(), AdsSetAOF() which are related to filtering \ndatabases.\n\n\n#include \"FiveWin.ch\"\n#include \"ads.ch\"\n\nFUNCTION main()\n\nLOCAL cFiltCond\nFIELD salary, state\n\n********\n\nREQUEST _ADS\nRddRegister( \"ADS\", 1 )\nRddSetDefault( \"ADS\" )\nAdsSetDeleted(.T.)\nSET SERVER LOCAL\nSET FILETYPE TO CDX\nSET DELETED ON\n\n*********\n\nUSE c:\\fwh\\samples\\customer.dbf ALIAS customer\nINDEX ON state TAG state TO customer\nOrdSetFocus(\"state\")\n\ncFiltCond := \"customer-&gt;salary &gt;10000 .AND. state = \'ME\'\"\nbFilter   := \"{||\"+cFiltCond+\"}\"\n\n* Method 1\nSET FILTER TO customer-&gt;salary &gt;10000 .AND. state = \'ME\'\nGO TOP\nBROWSE()\n\nDbSetFilter()\nDbGoTop()\n\n* Method 2\nDbSetFilter(&amp;bFilter, cFiltCond)\nDbGoTop()\nBROWSE()\n\nDbSetFilter()\nDbGoTop()\n\n* Method 3\nAdsSetAOF(\"c:\\fwh\\samples\\customer.dbf\",&amp;cFiltCond)\n*AdsGotoTop()\nBROWSE()\n\nRETURN nil\n\n**********\n\nThanks in advance\n\n- Ramesh Babu P','',0,'AIA=','3epvhpr2',1,0,'',190,0,0),(12564,2882,3,553,0,'150.101.221.213',1146491072,1,0,1,1,1,0,'','','Thanks John, I was trying to avoid having an element in the array at the beginning. Think I may have a solution, do as you suggest and then:\n\n    oAddOrder:bStart:={| |aSize(aOrder,0)}\n\nthis avoids the array error and starts the browse with an empty array. I was trying to maintain code compatibility between FW and FWH.\n\nThanks','',0,'AIA=','25ywp4kk',1,0,'',553,0,0),(12565,2881,6,121,0,'201.138.26.170',1146492831,1,0,1,1,1,1,'','GRACIAS','MUCHAS GRACIAS','',0,'AIA=','3s2r555i',1,0,'',121,0,0),(12566,2875,3,2,0,'87.218.146.21',1146493049,1,0,1,1,1,1,'','','George,\n\nPlease notice this in the page (enclosed in an ellipse):\n[url=http&#58;//imageshack&#46;us:2mo50riu][img:2mo50riu]http&#58;//img508&#46;imageshack&#46;us/img508/5391/image32fn&#46;png[/img:2mo50riu][/url:2mo50riu]\nWhen the wait is over, THERE you have the link to download it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','2mo50riu',1,0,'',2,0,0),(12567,2884,3,2,0,'87.218.146.21',1146493274,1,0,1,1,1,1,'','','The following code returns 1024 which it is the right value for WM_USER:\n[code:m5qmj9ws]\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION main&#40;&#41; \n\n   MsgInfo&#40; WM_USER &#41;\n    \nRETURN NIL \n[/code:m5qmj9ws]\n\nBesides that, you code is wrong as you are just calling your PRG function on this specific value:\n[code:m5qmj9ws]\n   if &#40;Msg == WM_USER + 2 &#41;  //1024 + 2 \n   &#123; \n      hb_vmPushSymbol&#40; hb_dynsymSymbol&#40; hb_dynsymFindName&#40; &quot;CHANNELCODE&quot; &#41; &#41; &#41;; \n[/code:m5qmj9ws]\nYou should change it to:\n[code:m5qmj9ws]\n   if &#40;Msg == WM_USER + 2 &#41;  // 1026 \n   &#123; \n      &#46;&#46;&#46;\n   &#125;\n   else if&#40; Msg == WM_USER + 3 &#41; // 1027\n   &#123;\n      &#46;&#46;&#46;\n   &#125;\n   else if&#40; Msg == WM_USER + 4 &#41; // 1028\n   &#123; \n      &#46;&#46;&#46;\n   &#125;\n[/code:m5qmj9ws]\nOr change it into:\n[code:m5qmj9ws]\n   if&#40; Msg &gt;= WM_USER + 2 &amp;&amp; Msg &lt;= WM_USER + 4 &#41;\n   &#123;\n      &#46;&#46;&#46;\n   &#125;\n[/code:m5qmj9ws]','',0,'AIA=','m5qmj9ws',1,0,'',2,0,0),(12568,2896,20,125,0,'151.81.7.243',1146497396,1,0,1,1,1,0,'','Cambiare tipo carattere in messaggio di posta (TMAIL)','Salve a tutti,\nutilizzo la classe tmail per mandare i msg di posta e volevo cambiare il font del carattere nel corpo del messaggio (in autimatico).\nSi puo fare questa cosa ?\n\nGrazie\n\nPiscicelli/Zingoni\n\ndefine mail omail ;\n   subject  \"oggetto\" ;\n   to \"mio cliente email\";\n   text \"corpo del messaggio a cui  voglio  cambiare il font\" ;\n.....\n...\nactivate mail omail','',0,'AIA=','1xoijk7g',1,0,'',125,0,0),(12569,2897,6,413,0,'194.106.16.43',1146498023,1,0,1,1,1,0,'','Too many MAP file names.....','Antonio a que es debido este error, compila perfectamente pero luego a la hora de linkar las librerias de fivewin me da este error.\n\n[code:36ahrjs9]\nG&#58;\\Programacion en xBase\\Mi Documentacion\\Fivewin\\Fivewin\\FWH\\Contribuciones\\Cla\nses\\tScan32\\SAMPLES&gt;G&#58;\\BCC55\\bin\\ilink32 -Gn -aa -Tpe -s @b32&#46;bc\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nFatal&#58; Too many MAP file names&#58; G&#58;\\FWH\\FWH25\\lib\\FiveH&#46;lib\n[/code:36ahrjs9]\n\nme ocurre al intentar linkar la clase de Rafa Carmona, tScan32. El obj lo genera sin problemas pero luego me da ese error al linkar el FiveH.lib, si mal no recuerdo creo que no la he todacado para nada.\n\nSaludos-','',0,'AIA=','36ahrjs9',1,0,'',413,0,0),(12570,2890,6,171,0,'71.232.193.197',1146499463,1,0,1,1,1,0,'','','Gossfancito,\n\nEs correcto lo que tu plantea. seria una forma de ir afinando un algorithmo que no parece ser complicado.\n\nSaludos\n\n\nGeorge','',0,'AIA=','6gidq81q',1,0,'',171,0,0),(12571,2897,6,413,0,'194.106.16.43',1146500187,1,0,1,1,1,0,'','','Al parecer antonio me olvide poner una coma despues del primer obj y por eso me daba ese error. Perdon por las molestias.\n\n[code:342l7qq6]\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj + &gt;&gt; b32&#46;bc    &lt;&lt;&lt;&lt;&lt;aqui el error\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho %fwhdir%\\lib\\FiveH&#46;lib %fwhdir%\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho &#46;&#46;\\lib\\twain&#46;lib + &gt;&gt; b32&#46;\n\nesto es lo correcto&#58;\n\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho %fwhdir%\\lib\\FiveH&#46;lib %fwhdir%\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho &#46;&#46;\\lib\\twain&#46;lib + &gt;&gt; b32&#46;\n[/code:342l7qq6]','',0,'AIA=','342l7qq6',1,0,'',413,0,0),(12572,2889,3,171,0,'71.232.193.197',1146500826,1,0,1,1,1,0,'','','Soundex() is interesting. But is not the solution\n\nThe real problem is that I am talking about names.  I want to implement the function in a database name with ten of thousands of names, no only  english name (maybe  spanish, arabs, and asians names). If I search for \"RAMIREZ\" and I write \"RSMIREX\",  I would like that the function return a list with a few names close to RSMIREX.\n\n\nGeorge','',0,'AIA=','1tuss02m',1,0,'',171,0,0),(12573,2890,6,171,0,'71.232.193.197',1146501227,1,0,1,1,1,0,'','','El problema que hay con usar un diccionario es que esta funcion la quiero implementar con nombres de personas, no con palabras. La base de datos (tabla) de los nombres pudiera incluir nombres en español, ingles, y asiaticos entre otros. No se si la function soundex() pudiera ayudar en algo en este caso. Por ejemplo si yo escribo \"lunares\"  me gustaria generar una lista con apellidos cercanos a \"lunares\", lo cual me traeria \"linares\" si este esta en esa base de datos.\n\n\nGeorge','',0,'AIA=','l4b4vf7d',1,0,'',171,0,0),(12574,2890,6,52,0,'200.127.195.89',1146501309,1,0,1,1,1,1,'','','Para las entradas con letras que esten consecutivamente duplicadas:\n\nYo iria a medida que tomo una letra tomo ademas la de adelante, si son iguales podría ser duplicacion, en tal caso 1 iria al diccionario para ver si esa palabra existe, (por las dudas de multiples idiomas vio?) si no existe entonces volver a la palabra \"semilla\" y seguir adelante sin tener en cuenta esa duplicacion, esto lo haria para luego decirle al usuario - suponiendo que ingreso en la semilla: aahora \"señor estimado amigo mio, usted no habra querido ingresar &gt;&gt;ahora&lt;&lt;\"? \n\nY bueno... asi seguiria, pero lo importante es encontrar una secretaria que comience a pasar las palabras desde el diccionario a una DBF o salir a buscar por ahi, como te decia antes, una DBF con el diccionario de \"la real academia\".\n\nHe dicho.','',0,'AIA=','3aia1fua',1,0,'',52,0,0),(12575,2893,6,52,0,'200.127.195.89',1146502631,1,0,1,1,1,1,'','','Estimado,\n\nNo se si es validero, pero a medida que resuelvo los problemas los voy respondiendo.\n\nObjetivo: crear una matriz multidimensional (palabra larga esta che!) cuyo contenido es un vector de diferentes dimensiones.\n\n[code:1fb0djdq]STATIC aMatriz&#58;=&#123; &#125;\n\nFUNCTION main&#40;&#41;\n   LOCAL aVector&#58;=&#123;&#125;\n\n   ASize&#40; aVector, 10 &#41;\n   AAdd&#40; aMatriz, aVector &#41;\n\n   aVector&#58;=&#123;&#125;\n   ASize&#40; aVector, 04 &#41;\n   AADD&#40; aMatriz, aVector &#41;\n\n   // Prueba\n   ? &quot;Tamaño aMatriz&quot;, Len&#40; aMatriz &#41;\n   ? &quot;posicion 1 10 de aMatriz&quot;, aMatriz&#91; 01 &#93;&#91; 10 &#93;\n  \n   // el siguiente daria error porque la posicion 2 de aMatriz tiene ahora 5 posiciones\n   ? &quot;posicion 2 10 de aMatriz&quot;, aMatriz&#91; 02 &#93;&#91; 10 &#93; \n\n   // En cambio la siguiente linea no daria error\n   ? &quot;posicion 2 5 de aMatriz&quot;, aMatriz&#91; 02 &#93;&#91; 05 &#93; \n\n   RETURN &#40; NIL &#41;[/code:1fb0djdq]\n\nHe dicho.','',0,'AIA=','1fb0djdq',1,0,'',52,0,0),(12576,2898,3,209,0,'209.217.64.30',1146502637,1,0,1,1,1,0,'','Re: Multi file selection','Hi All,\n\nI have been using cGetFile() to get user file selection.  How do I go about allowing a user to select multiple files using the &lt;Shift&gt; and &lt;Ctrl&gt; keys?  My search did not find anything perhaps I was not using the proper key words.   Any guidance is appreciated.\n\nVytas','',0,'AIA=','2kevhtqr',1,0,'',209,0,0),(12577,2899,3,455,0,'195.97.105.161',1146506273,1,0,1,1,1,0,'','Delay in PREVIEW dialog in REPORT.PRG','Hi all,\n\nI have noticed a very significant delay in the 32-bit Fivewin REPORT.PRG, which poped up the dialog, but took over one second to draw on a 3.7 GHZ PC.\n\nWhoever wants to fix this problem, please perform the following change to the REPORT.PRG provided by FWH.  To be sure you are performing the change to the correct point, please search for the following (in the code) string in spanish language, then change the ::oRptWnd:bPainted line (two times).\n\n(I wish all comments were at least bilingual, but alas, such is the world today)  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[code:2p1byfb4]\n\n   /*\n   Creaci¢n de la ventana de impresi¢n\n   */\n\n   IF !&#58;&#58;lScreen\n\n      DEFINE DIALOG &#58;&#58;oRptWnd TITLE &#58;&#58;cName RESOURCE &quot;PRINT_PROC&quot;\n\n      REDEFINE BUTTON ID IDCANCEL OF &#58;&#58;oRptWnd ;\n         ACTION &#40;&#58;&#58;lBreak &#58;= &#46;T&#46;, &#58;&#58;oRptWnd&#58;End&#40;&#41;&#41; ;\n         WHEN &#40;!&#58;&#58;lNoCancel&#41;\n\n      REDEFINE SAY oPagina VAR &#58;&#58;nPage ID 101 OF &#58;&#58;oRptWnd\n\n      &#58;&#58;oRptWnd&#58;bPainted &#58;= &#123;|| iif&#40;&#58;&#58;nPage&gt;=0, oPagina&#58;Refresh&#40;&#41;, &#41;&#125;  // added &gt;= vs&#46; &gt;  28/apr/2006 EVANS\n\n      &#58;&#58;oRptWnd&#58;bStart &#58;= &#123;|| &#58;&#58;Play&#40;&#41;,&#58;&#58;oRptWnd&#58;End&#40;&#41;&#125;\n\n      ACTIVATE DIALOG &#58;&#58;oRptWnd CENTER\n\n   ELSE\n\n      DEFINE DIALOG &#58;&#58;oRptWnd TITLE &#58;&#58;cName RESOURCE &quot;PREVIEW_PROC&quot;\n\n      REDEFINE BUTTON ID IDCANCEL OF &#58;&#58;oRptWnd ;\n         ACTION &#40;&#58;&#58;lBreak &#58;= &#46;T&#46;, &#58;&#58;oRptWnd&#58;End&#40;&#41;&#41; ;\n         WHEN &#40;!&#58;&#58;lNoCancel&#41;\n\n      REDEFINE SAY oPagina VAR &#58;&#58;nPage ID 101 OF &#58;&#58;oRptWnd\n\n      &#58;&#58;oRptWnd&#58;bPainted &#58;= &#123;|| iif&#40;&#58;&#58;nPage&gt;=0, oPagina&#58;Refresh&#40;&#41;, &#41;&#125;  // added &gt;= vs&#46; &gt;  28/apr/2006 EVANS\n\n      &#58;&#58;oRptWnd&#58;bStart &#58;= &#123;|| &#58;&#58;Play&#40;&#41;,&#58;&#58;oRptWnd&#58;End&#40;&#41;&#125;\n\n      ACTIVATE DIALOG &#58;&#58;oRptWnd CENTER\n\n      Eval&#40; &#58;&#58;bPreview, &#58;&#58;oDevice &#41;\n\n   ENDIF\n\nRETURN NIL\n[/code:2p1byfb4]','',0,'AIA=','2p1byfb4',1,0,'',455,0,0),(12578,2900,3,497,0,'212.127.159.218',1146506943,1,0,1,0,1,0,'','How can I show an empty numeric field without a zero','Hi All,\nIn an app I have numeric fields in which no result of earlier actions are known yet.\nIn an TsBrowse presentation I want no \"zero\" in the field but an empty field presentation.\nDbases tend to put a zero in a numeric field, but in certain cases there is no value available yet.\n\nHow can I force that field into an empty field.\n\nThanks,\n\nJules','',0,'AIA=','33k2vgc0',1,0,'',497,0,0),(12579,747,4,240,0,'85.201.105.227',1146510377,1,0,1,1,1,1,'','','[quote=&quot;Jon Munro&quot;:2cvf4v0i]\nI\'ve grafted fragments of FWPPC \'comm.c\' into parts of Harbour Telepathy (port by Luiz Rafael Culik Guimaraes) and have a working FWPPC test program that reads from a barcode scanner and can send acks, etc. Nearly there...\nRegards and happy and successful 2006 to all <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2cvf4v0i]\n\nHello Jon,\n\nI need to read a bluetooth GPS receiver from a pocket PC.\nHaving used the sample code that you posteed earlier, i reach the same point as you were : I get a handle but cannot receive any message.\n\nCould you please share your experience and tell me what I still need to do. A code snippet would be greatly appreciated.\n\nMany thanks in advance.','',0,'gA==','2cvf4v0i',1,0,'',240,0,0),(12580,2900,3,6,0,'82.57.159.45',1146510976,1,0,1,1,1,1,'','Re: How can I show an empty numeric field without a zero','Just use\n\nTRANSFORM( \"@Z ...\", FIELD -&gt; number )\n\nas browse column expression or directly\n\nPICTURE \"@Z ...\"\n\nif your browse supports it.\n\nEMG','',0,'gA==','5ncgvghg',1,0,'',6,0,0),(12581,2899,3,6,0,'82.57.159.45',1146511284,1,0,1,1,1,1,'','Re: Delay in PREVIEW dialog in REPORT.PRG','It is already there in the latest FWH release as\n\n::oRptWnd:bPainted := {|| If( ::nPage &gt; 0,oPagina:Refresh(), ) }\n\nEMG','',0,'gA==','x3ec2kcn',1,0,'',6,0,0),(12582,2855,2,375,0,'84.122.103.36',1146512016,1,0,1,1,1,1,'','','Pues muchas gracias tocayo, y a José Gimenez por supuesto.','',0,'gA==','2amzbgp1',1,0,'',375,0,0),(12583,2896,20,6,0,'82.57.159.45',1146512025,1,0,1,1,1,1,'','Re: Cambiare tipo carattere in messaggio di posta (TMAIL)','Per cambiare il font dovresti mandare il messaggio email come HTML, cosa che ti sconsiglio caldamente.\n\nEMG','',0,'gA==','1uzkmyu1',1,0,'',6,0,0),(12584,2873,6,43,0,'201.127.49.224',1146512153,1,0,1,1,1,0,'','','Resuelto...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos\n \n Marco A. Delgado.','',0,'gA==','m6x57ijs',1,0,'',43,0,0),(12585,2889,3,2,0,'87.218.146.21',1146512715,1,0,1,1,1,1,'','','George,\n\nSame as Google uses \"page rank\" to provide each page a specific importance or weight, you may need to keep a \"word rank\" so you can locate what are the most commonly used words based on their ranks.','',0,'gA==','fku6wd38',1,0,'',2,0,0),(12586,2890,6,2,0,'87.218.146.21',1146512939,1,0,1,1,1,1,'','','George,\n\nComo te he comentado en el foro en ingés, es preciso implementar un \"word rank\" del mismo modo que Google usa un \"page rank\". Así cada palabra tendría un peso que le daría un determinada importancia, y así la propuesta sería válida y no algo sin sentido.\n\nLos mismos usuarios alimentarían el \"word rank\", como en Google todos lo alimentamos con nuestras búsquedas, selecciones, etc.','',0,'gA==','crqu8rmv',1,0,'',2,0,0),(12587,2897,6,2,0,'87.218.146.21',1146513083,1,0,1,1,1,1,'','','Andrés,\n\nEs un error típico por un número incorrecto de comas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2frk3061',1,0,'',2,0,0),(12588,2899,3,455,0,'195.97.105.161',1146513273,1,0,1,1,1,0,'','Re: Delay in PREVIEW dialog in REPORT.PRG','[quote=&quot;EnricoMaria&quot;:qb5lds90]It is already there in the latest FWH release as\n\n::oRptWnd:bPainted := {|| If( ::nPage &gt; 0,oPagina:Refresh(), ) }\n\nEMG[/quote:qb5lds90]\n\nEnrico, \nYou probably did not notice my change to ::nPage [b:qb5lds90]&gt;= [/b:qb5lds90]0 versus ::nPage [b:qb5lds90]&gt;[/b:qb5lds90] 0\n\nKind regards\nEvans','',0,'wA==','qb5lds90',1,0,'',455,0,0),(12589,2890,6,52,0,'200.127.195.89',1146513319,1,0,1,1,1,1,'','','Concuerdo con vos Antonio,\n\nMe parece mas correcto darle un rango a las palabras, o nombres. En tal caso dicho rango al inicio no tendría validez, a no ser que: por ejemplo, se le de un rango a los nombres mas usado en un determinado idioma.\n\nEsto yo lo vengo queriendo hacer hace tiempo luego que vi el tema de los diccionarios que traen incorporado los CELULARES. \n\nY el uso lo daria ovbiamente en campos como ser: descripcion de productos, pero por el momento tengo una VAGA idea de hacerlo, nada puesto en práctica aún.\n\nHe dicho.','',0,'wA==','30ukzlt3',1,0,'',52,0,0),(12590,2899,3,2,0,'87.218.146.21',1146513412,1,0,1,1,1,1,'','','Evans,\n\nPlease change cTempFile() function source code as explained here:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2596&amp;highlight=ctempfile\">http://fivetechsoft.com/forums/viewtopi ... =ctempfile</a><!-- m -->','',0,'wA==','1o1q4vyz',1,0,'',2,0,0),(12591,2899,3,6,0,'82.57.159.45',1146513513,1,0,1,1,1,1,'','Re: Delay in PREVIEW dialog in REPORT.PRG','[quote=&quot;E. Bartzokas&quot;:3qtomriq][quote=&quot;EnricoMaria&quot;:3qtomriq]It is already there in the latest FWH release as\n\n::oRptWnd:bPainted := {|| If( ::nPage &gt; 0,oPagina:Refresh(), ) }\n\nEMG[/quote:3qtomriq]\n\nEnrico, \nYou probably did not notice my change to ::nPage [b:3qtomriq]&gt;= [/b:3qtomriq]0 versus ::nPage [b:3qtomriq]&gt;[/b:3qtomriq] 0\n\nKind regards\nEvans[/quote:3qtomriq]\n\nSorry.\n\nEMG','',0,'wA==','3qtomriq',1,0,'',6,0,0),(12592,2896,20,125,0,'213.140.6.112',1146515147,1,0,1,1,1,0,'','','Brutta notizia, grazie cmq.','',0,'wA==','7renwkon',1,0,'',125,0,0),(12593,2896,20,6,0,'82.57.159.45',1146515262,1,0,1,1,1,1,'','','Comunque tieni presente che non è una limitazione della classe TMail ma una specifica del protocollo SMTP.\n\nEMG','',0,'wA==','3pd8pxm7',1,0,'',6,0,0),(12594,2901,3,63,0,'80.37.102.128',1146516417,1,0,1,1,1,0,'','How to read a cell in a TxBrowse()','I am just begining to use TxBrowse(). I am trying the accomplish the following:  When moving the cursor over the cells, I would like the contens of each cell to appear in a Say field, without clicking on the cell.  Until now, I have been able to arrive here: \n\n [code:1p0lvce3]\ncSay &#58;= SPACE&#40;40&#41;\n@ 1,1 SAY &#58;&#58;oSay VAR cSay SIZE 100,20 PIXEL   // Here will be shown the cell data \noBrw&#58;bMMoved &#58;= &#123;|nR,nC| &#58;&#58;ReadCell&#40;nR, nC&#41;&#125;    // Capture cursor movement\n&#46;&#46;&#46;&#46;&#46;&#46; \n\nMETHOD ReadCell&#40;nR,nC&#41; \nnRow  &#58;= &#58;&#58;oBrw&#58;MouseRowPos&#40;nR&#41; \nnCol  &#58;= &#58;&#58;oBrw&#58;MouseColPos&#40;nC&#41; \ncData &#58;= ????? \n&#58;&#58;oSay&#58;VarPut&#40;STR&#40;nRow&#41;+STR&#40;nCol&#41; +&quot;&#58;  &quot;+ cData&#41; \nRETURN NIL \n [/code:1p0lvce3]\nObviouslyly, my question is how to obtain cData, that is, the cell contens based on its row and col within the TxBrowse.  Could anybody help?\nThanks\nRafael','',0,'AIA=','1p0lvce3',1,0,'',63,0,0),(12595,2900,3,497,0,'212.127.159.218',1146517329,1,0,1,0,1,0,'','','Enrico,\nThanks for advising me.\nI am not able to do the right thing with it.\nI will give some more specific info.\nI use TsBrowse with Add Column  \n\n      ADD COLUMN TO oBrw[ 1 ];\n          HEADER \"Runs2\" ;\n          SIZE 50 PIXELS ;\n          DATA FieldWblock(\"Uitslag2\", Select()); \n          COLORS CLR_YELLOW,CLR_BLUE;\n          ALIGN DT_CENTER\n\nWhen nUitslag2 == 0 it should display a blank field.\n\nIs that possible or should I change the next line in a Resource?\n\n REDEFINE  GET onUitslag2    VAR nUitslag2  ID 105 OF oDlwBew   UPDATE  Picture \"999\"\n\nThanks,\n\nJules','',0,'','3rnlpufc',1,0,'',497,0,0),(12596,2898,3,303,0,'72.199.41.171',1146520110,1,0,1,1,1,0,'','','Vytas,\n\nI found the messages below in my notes. I have not tried it so I don\'t know if it works. Let us know. \n\nJames\n\n[code:37o7upfo]From&#58; &quot;Dicky Low&quot; &lt;dicky@hartalega-bb&#46;com&#46;my&gt;\nSubject&#58; Re&#58; cGetFile&#40;&#41;\nDate&#58; Wednesday, April 09, 2003 8&#58;34 PM\n\nHi,\n\nFound a solution&#46; The 7th parameter of cGetFile&#40;&#41; is the flags to control\nthe multiple files selection&#46; But the cGetFile have a little bug which\nignore your previous flag if you pass in the 7th parameter&#46;\n\nTo correct the cGetFile&#40;&#41;, refer to line 164\n   if&#40; dwFlags &#41;\n      ofn&#46;Flags = dwFlags;\n\nJust change it to\n   if&#40; dwFlags &#41;\n      ofn&#46;Flags |= dwFlags;\n\nAnd everything will work perfectly well&#46;\n\nLastly, the 7th parameter to pass in is hex 200 which is decimal 512\n\nRegards\nDicky\n\n&quot;Marcelo Via Giglio&quot; &lt;via@dicyt&#46;umss&#46;edu&#46;bo&gt; wrote in message\nnews&#58;3E93E70B&#46;61D25D91@dicyt&#46;umss&#46;edu&#46;bo&#46;&#46;&#46;\n&gt; Hello,\n&gt;\n&gt; you can put the result of directory into Multisel Browse\n&gt; &#40;Hernan\'s Browse&#41;\n&gt;\n&gt; Regards\n&gt;\n&gt; Marcelo\n&gt;\n&gt; Dicky Low wrote&#58;\n&gt;\n&gt; &gt; Steve,\n&gt; &gt;\n&gt; &gt; I mean getting multiple files in the return&#46; Your example below show\ncPath,\n&gt; &gt; and I assume it is single file selected and not multiple files like what\nwe\n&gt; &gt; can do with windows explorer when you can select multiple files to\ndelete,\n&gt; &gt; etc, etc&#46;&#46;&#46;\n&gt; &gt;\n&gt; &gt; Regards\n&gt; &gt; Dicky\n&gt; &gt;\n&gt; &gt; &quot;Aberdeen IT&quot; &lt;operations@aberdeenit&#46;com&gt; wrote in message\n&gt; &gt; news&#58;3e93ddf8$1@oznt1&#46;ozlan&#46;local&#46;&#46;&#46;\n&gt; &gt; &gt; Dicky\n&gt; &gt; &gt;\n&gt; &gt; &gt; This code works with FW2&#46;1 &#46;&#46;&#46;\n&gt; &gt; &gt;\n&gt; &gt; &gt; cPath &#58;= cGetFile32&#40;&quot;MS Word &#40;*&#46;doc&#41; | *&#46;doc |&quot; + ;\n&gt; &gt; &gt;                                 &quot;MS Excel &#40;*&#46;xls&#41; | *&#46;xls |&quot; + ;\n&gt; &gt; &gt;                                 &quot;Acrobat Reader &#40;*&#46;pdf&#41; | *&#46;pdf&quot;,\n&quot;Select\n&gt; &gt; a\n&gt; &gt; &gt; file&quot;, 1&#41;\n&gt; &gt; &gt;\n&gt; &gt; &gt; I cannot remember exactly what the last parameter does, but I think\nit\'s\n&gt; &gt; to\n&gt; &gt; &gt; highlight the starting element, i&#46;e&#46; the first element in the above\n&gt; &gt; example&#46;\n&gt; &gt; &gt;\n&gt; &gt; &gt; Regards\n&gt; &gt; &gt; Steve Lai\n&gt; &gt; &gt;\n&gt; &gt; &gt;\n&gt; &gt; &gt; &quot;Dicky Low&quot; &lt;dicky@hartalega-bb&#46;com&#46;my&gt; wrote in message\n&gt; &gt; &gt; news&#58;3e93c98f@oznt1&#46;ozlan&#46;local&#46;&#46;&#46;\n&gt; &gt; &gt; &gt; Hi,\n&gt; &gt; &gt; &gt;\n&gt; &gt; &gt; &gt; Anyone has any ideas how can we select multiple files in cGetFile&#40;&#41;\nor\n&gt; &gt; is\n&gt; &gt; &gt; &gt; there any alternative function?\n&gt; &gt; &gt; &gt;\n&gt; &gt; &gt; &gt; Regards\n&gt; &gt; &gt; &gt; Dicky Low\n&gt; &gt; &gt; &gt;\n&gt; &gt; &gt; &gt;\n&gt; &gt; &gt;\n&gt; &gt; &gt;\n&gt;[/code:37o7upfo]','',0,'AIA=','37o7upfo',1,0,'',303,0,0),(12597,2899,3,455,0,'195.97.105.161',1146520660,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2iefogka]Evans,\n\nPlease change cTempFile() function source code as explained here:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2596&amp;highlight=ctempfile\">http://fivetechsoft.com/forums/viewtopi ... =ctempfile</a><!-- m -->[/quote:2iefogka]\n\nAntonio,\nThanks for the advise, which is excellent, however, I have already developed a similar system based on a similar approach in our source code a long time ago now.\n\nI still like to thank you for taking the time to send me your good advise.\nKind regards / saludos\n\nEvans','',0,'gA==','2iefogka',1,0,'',455,0,0),(12598,2884,3,281,0,'219.251.175.150',1146531896,1,0,1,1,1,1,'','','Hi Antonio.\n\nI thank for having the concern.\nBut.. \n\nA next code.\nOver 1024 which Msg increases obviously comes over.\nMsg = 1026 or 1027, 1028\n\nBut we do not exist properly the value.\nDo you have probably the problem different?\n\nWM_ACTIVATE and send 1026, 1027, 1028 firsts.\nWe VISUAL_BASIC well.\n\nI Thank.\n\nyun jin song.....\n\n[','',0,'','1jlkn7gp',1,1147072279,'',281,1,0),(12599,2890,6,171,0,'71.232.193.197',1146532888,1,0,1,1,1,0,'','','En el siguiente link hay informacion interesante de como resolver el problema\n\n<!-- m --><a class=\"postlink\" href=\"http://www.merriampark.com/ld.htm\">http://www.merriampark.com/ld.htm</a><!-- m -->\n\n\nGeorge','',0,'','3d14u5ab',1,0,'',171,0,0),(12600,2902,6,52,0,'200.127.195.89',1146533151,1,0,1,1,1,1,'','Tooltips &amp; Icon','Antonio,\n\nExiste ya el sample?\n\ngracias.','',0,'','w7wcpg81',1,0,'',52,0,0),(12601,2890,6,52,0,'200.127.195.89',1146534531,1,0,1,1,1,1,'','','Lei los dos metodos, pero si no me estoy confundiendo te diria que solo \nestaría informando cuantos cambios habria que hacer para conseguir \nigualar las cadenas, y en realidad lo que estaría buscando es la similitud\nde cadenas.\n\nPara mi las cadenas: CASA y Rampa no tienen nada que ver, para esos\nalgoritmos dirian, para el H ERROR! las cadenas deben ser iguales de longitud \n\ny para L daría ( siendo CASA la semilla ) 4... en sí. no le encuentro utilidad a lo que estaria, tanto yo con mi proyecto, como tampco el tuyo.\n\nHe dicho.','',0,'','24ftfj6y',1,0,'',52,0,0),(12602,2903,6,171,0,'71.232.193.197',1146539749,1,0,1,1,1,0,'','&quot;MDI Child Menu&quot; aparece en menu MDI  de forma aut','La opcion \"1.  MDI Child 1 \" aparece de manera automatica en el menu de mi programa MDI.\n\nParece que esta relacionado con el titulo de la ventana Window Child; si dejo en blanco el titulo me coloca \"1.  MDI Child 1\" en el menu, si hago TITLE \"\"  me coloca en el menu la opcion \"1\"\n\nAlguien sabe como hacer para que no aparezca esa opcion en menu?\n\n\n\nGeorge','',0,'','25hzpq7n',1,0,'',171,0,0),(12603,2900,3,6,0,'82.61.144.158',1146551889,1,0,1,1,1,1,'','','Try\n      ADD COLUMN TO oBrw[ 1 ];\n          HEADER \"Runs2\" ;\n          SIZE 50 PIXELS ;\n          DATA FieldWblock(\"Uitslag2\", Select()); \n          COLORS CLR_YELLOW,CLR_BLUE;\n          ALIGN DT_CENTER;\n          PICTURE \"@Z 999\"\n\nor, if that command doesn\'t support PICTURE clause\n\nDATA TRANSFORM( \"@Z 999\", FIELD -&gt; Uitslag2 );\n\nEMG','',0,'','3v1bgwdg',1,0,'',6,0,0),(12604,2869,6,449,0,'212.64.224.244',1146551889,1,0,1,1,1,1,'','','Hola,\n\nNo me explicado bien. Voy a intentarlo de nuevo   <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nQuiero saber si contra un server ADS, y usando las funciones propias de ADS, como ADSExecuteSqlDirect(), se puede alcanzar la velocidad de ejecucion del ACE32 cuando se realizan las querys. \n\nA modo de ejemplo, el test de arriba se me ejecuta en aproximadamente 6 segundos con la base test.dbf y 100000 registros, mientras que con Ace32 esta 0.7 seg. Partiendo de la base, que Ace32 no utiliza ni ODBC ni otros componentes de acceso a datos, (q yo sepa), me gustaria saber la diferencia.\n\nNo lo he probado via ODBC, pero la idea es usar solo las funciones ACE.\n\nGracias por vuestro soporte.','',0,'','3v1bgwdg',1,0,'',449,0,0),(12605,2901,3,6,0,'82.61.144.158',1146552142,1,0,1,1,1,1,'','Re: How to read a cell in a TxBrowse()','Can you build a minimal and self-contained sample to experiment with?\n\nEMG','',0,'','lvoncwiz',1,0,'',6,0,0),(12606,2903,6,2,0,'87.218.146.21',1146553341,1,0,1,1,1,1,'','','George,\n\nEs un comportamiento automático de las ventanas MDI. Se le puede indicar que aparezca en otra opción del menú, pero no que no aparezca.','',0,'','1aykg96c',1,0,'',2,0,0),(12607,2884,3,2,0,'87.218.146.21',1146553551,1,0,1,1,1,1,'','','yun jin song,\n\nSorry, I don\'t understand what you mean.','',0,'','27mq3ikv',1,0,'',2,0,0),(12608,2902,6,2,0,'87.218.146.21',1146553682,1,0,1,1,1,1,'','','Gustavo,\n\nNo, no existe. Intentaremos construirlo en cuanto podamos.','',0,'','24r2tg7y',1,0,'',2,0,0),(12609,2901,3,63,0,'80.37.102.128',1146558241,1,0,1,1,1,0,'','','Enrico:\nI just sent the sample to your private mail\nThanks\nRafael','',0,'','2hk9kdhi',1,0,'',63,0,0),(12610,2830,3,314,0,'203.186.238.225',1146561482,1,0,1,1,1,0,'','','Enrico,\n\nAs always you been a great help, thanks.','',0,'','3o3j4s6f',1,0,'',314,0,0),(12611,2875,3,553,0,'150.101.221.213',1146562015,1,0,1,1,1,0,'','','Apologies - working and thank you.\n\nRegards','',0,'','1h5r8fn1',1,0,'',553,0,0),(12612,2875,3,2,0,'87.218.146.21',1146563136,1,0,1,1,1,1,'','','George,\n\nYou are welcome, never mind <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','21riark7',1,0,'',2,0,0),(12614,2874,3,239,0,'218.19.74.178',1146569114,1,0,1,1,1,0,'','','Ruben,\n  If I purchase easypreview,could I intergrade zip,sendmail(hbzlib.dll,mail.dll,nconvert.exe ,epreview.exe,epreview.dbf ) into  my app (  link a lib or dll file)? now there are too many files.\n\nRegards!\nShuming Wang','',0,'','uoyd3yy7',1,0,'',239,0,0),(12615,2904,4,13,0,'213.76.252.200',1146571005,1,0,1,1,1,0,'','TWbrowse resize','Hello\n\nHow to change TWBrowse control size in program code ? I found Resize method in wbrowse source but method call produce error \"Message not found TWBrowse : ReSize\".\n\nThanks,\nPawel\n\n[code:3uzes5fn]\n#Include \'FwCe&#46;Ch\'\n\n#Define EVENT_SIP 224\n\nFunction TestMove &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oBrw &#58;= Nil\n   Local aStr &#58;= &#123;&#125;\n   Local i &#58;= 0\n\n   AAdd &#40;aStr, &#123;\'F1\', \'C\', 10, 0&#125;&#41;\n   AAdd &#40;aStr, &#123;\'F2\', \'N\',  5, 0&#125;&#41;\n   DbCreate &#40;\'TestMove\', aStr&#41;\n   Use TestMove New\n   For i &#58;= 1 To 20\n       TestMove-&gt;&#40;DbAppend &#40;&#41;&#41;\n       TestMove-&gt;F1 &#58;= PadL &#40;i, 2&#41;\n       TestMove-&gt;F2 &#58;= i\n   Next\n   TestMove-&gt;&#40;DbGoTop &#40;&#41;&#41;\n\n   Define Window oWnd Title \'Test Move\'\n   @ 2, 0 ListBox oBrw ;\n   Fields ;\n   TestMove-&gt;F1, ;\n   TransForm &#40;TestMove-&gt;F2, \'99999\'&#41; ;\n   Alias \'TestMove\' ;\n   FieldSizes 150, 50 ;\n   Header \'Col&#46;1\', \'Col&#46;2\' ;\n   Size 240, 141 ;\n   Pixel\n\n   oWnd &#58; bSettingChange &#58;= &#123;|xVal| WmEvent &#40;xVal, oBrw&#41;&#125;\n   Activate Window oWnd\n\n   TestMove-&gt;&#40;DbCloseArea &#40;&#41;&#41;\n   FErase &#40;\'TestMove&#46;Dbf\'&#41;\n\nReturn &#46;T&#46;\n\nFunction WmEvent &#40;xVal, oBrw&#41;\n\n   Do Case\n      Case xVal == EVENT_SIP\n         WbrResize &#40;oBrw&#41;\n   EndCase\n\nReturn &#46;T&#46;\n\nFunction WbrResize &#40;oBrw&#41;\n\n   // first parameter value in Resize &#40;&#41; ?\n   If SipInfo &#40;&#41;\n      oBrw &#58; ReSize &#40;0, 240, 127&#41;\n   Else\n      oBrw &#58; ReSize &#40;0, 240, 141&#41;\n   Endif\n\nReturn &#46;T&#46;\n[/code:3uzes5fn]','',0,'AIA=','3uzes5fn',1,0,'',13,0,0),(12616,2874,3,41,0,'166.114.252.26',1146571308,1,0,1,1,1,0,'','','Hello,\n\nyou can add easely the option to save the EMF to another graph format using nconvert.exe\n\nregards\n\nMarcelo','',0,'AIA=','1jjhex20',1,0,'',41,0,0),(12617,2869,6,41,0,'166.114.252.26',1146571835,1,0,1,1,1,0,'','','Hola,\n\nprobaste con utilizar otro formato para el resultado\n\n  ADSCreateSQLStatement(\"SQLarea\",n) 1,2,3 \n\nseria interesante ver como cambia esto, por otra parte el tiempo que das, lo 6 segundos es tomando en cuenta el tiempo de conexion previa a la consulta o solo la consulta\n\nsaludos\n\nMarcelo','',0,'AIA=','3jr25eys',1,0,'',41,0,0),(12618,2904,4,6,0,'82.61.144.158',1146571841,1,0,1,1,1,1,'','Re: TWbrowse resize','Try oBrw:SetSize() method.\n\nEMG','',0,'AIA=','h261xfnk',1,0,'',6,0,0),(12619,2869,6,449,0,'212.64.224.244',1146572446,1,0,1,1,1,1,'','','Hola Marcelo,\n\n1.- El 2º parametro es el tipo de tabla, siendo 2 == DBF_CDX (eso creo, ahora me haces dudar)\n\n2.- El tiempo aprox. lo calculo sencillamente\n\n[code:2iwmvvhi]nInicio &#58;= Seconds&#40;&#41;\nADSExecuteSQLDirect&#40; consulta &#41;\nMsgInfo&#40; Seconds&#40;&#41; - nInicio &#41;\n[/code:2iwmvvhi]\n\nNo se si la gente esta usando esta funcion contra servidor que va de maravilla, pero es q jode ver como en el ARC32 vuela, al lado de la tuya. Pensaba que ARC32 usaba las mismas funciones del ACE.\n\nGracias por tu ayuda.','',0,'AIA=','2iwmvvhi',1,0,'',449,0,0),(12620,2901,3,6,0,'82.61.144.158',1146572777,1,0,1,1,1,1,'','','You may calculate the correct record knowing the first record of the browse and adding to it the cursor row number.\n\nSorry but I have no time to build a working sample.\n\nEMG','',0,'AIA=','1dyzjw7w',1,0,'',6,0,0),(12621,2901,3,63,0,'80.37.102.128',1146573877,1,0,1,1,1,0,'','','Enrico:\n[quote:2odw0ex9]You may calculate the correct record knowing the first record of the browse and adding to it the cursor row number. \n[/quote:2odw0ex9]\nI think that would work only if the database is not indexed...\n\nAnyway, I can not believe that there is not a simple way to obtain the value al cell(Row, Col).  After all, it is the same value that is is being displayed in the Browse itself... The only reason I want to retrieve it is to be able to show it in a larger size than the cell itself permits... \n\nThanks for your interest; I\'ll keep trying...\nRafael','',0,'gA==','2odw0ex9',1,0,'',63,0,0),(12622,747,4,68,0,'203.45.161.80',1146574223,1,0,1,1,1,1,'','','Raymond,\nThe FWPPC comms functions work well, for example:\n\n#define GENERIC_READ    0x80000000\n#define GENERIC_WRITE   0x40000000 \n#define GENERIC_REWRITE 0xC0000000 \n#define OPEN_EXISTING   3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n...\n...\n...\nSTATIC FUNCTION OPENCOMM( nPort )\n// Open port for read/write\nlocal hPort\nhPort := CreateFile( \"COM\"+ltrim(str(nPort))+\":\",;\n  GENERIC_REWRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\nif hPort == -1\n   MSGALERT(\"Cannot open port\")\n   return -1\nendif\nReturn hPort\n\n...\n...\n// Read a character from comm port handle hPort\ncChr  := Chr(ReadByte( hPort ))\n\n...\n...\n// Write a character to comm port handle hPort \nWriteByte( hPort, Asc(cChr))\n\nPlease see my other posts on related issues with available ports via the emulator and faults with PPC2003 emulator.  Antonio\'s code is the best!  I use it to read and talk to a bluetooth barcode and possibly RFID scanners.\nJust one character at a time.\nhth','',0,'gA==','30ljgs9o',1,0,'',68,0,0),(12624,2901,3,6,0,'82.61.144.158',1146574450,1,0,1,1,1,1,'','','[quote=&quot;Rafael Clemente&quot;:e41j80cc]I think that would work only if the database is not indexed...[/quote:e41j80cc]\n\nNo, it will also work with indexes. Just use OrdKeyNo() instead of RecNo().\n\nEMG','',0,'gA==','e41j80cc',1,0,'',6,0,0),(12625,2901,3,63,0,'80.37.102.128',1146575330,1,0,1,1,1,0,'','','Ok, Enrico.  I\'ll try and I\'ll let you know further progress\nRafael','',0,'gA==','lik9tsnh',1,0,'',63,0,0),(12626,2905,6,362,0,'200.168.52.156',1146575493,1,0,1,1,1,1,'','Transformar/Convertir Código em C para [x]Harbour','Buenos Dias, Buenas Amigos...\n\nMe gusta saber, como Transformar/Convertir este CODIGO EN C para [x]HARBOUR.\n\nDes Ya, Muchas Gracias a Todos...\n\n#include &lt;WinTen.h&gt;\n#include &lt;Windows.h&gt;\n#include &lt;ClipApi.h&gt;\n\n#define FD_HEIGHT    22\n#define FD_BORDER     4\n\n#define FLD_BMP      26\n\n#define CLR_BLACK           0\n#define CLR_GRAY      8421504\n\n#define SETBLACKPEN( hDC )  SelectObject( hDC, GetStockObject( BLACK_PEN ) )\n#define SETWHITEPEN( hDC )  SelectObject( hDC, hWhitePen )\n\n#ifdef __FLAT__\n   ULONG __paralen( void *, ULONG ulIndex, ... );\n#endif\n\nvoid DrawMasked( HDC, HBITMAP, WORD, WORD );\nvoid DrawGray( HDC, HBITMAP, WORD, WORD );\nvoid FrameDot( HDC, LPRECT rct );\n\n//----------------------------------------------------------------------------//\n\nCLIPPER FLDPAINT( PARAMS ) // ( hWnd, hDC, aPrompts, hFont1, hFont2,\n                           //   nClrPane, nOption, aEnable, nSize, lWin95,\n                           //   aBmps, nDir, nTabClr, nFocusClr,\n                           //   nAlign, nOffset ) --&gt; nil\n{\n   HWND hWnd      = ( HWND ) _parni( 1 );\n   HDC hDC        = ( HDC ) _parni( 2 );\n   HPEN hDarkPen  = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNSHADOW ) );\n   HPEN hWhitePen = CreatePen( PS_SOLID, 1, GetSysColor( COLOR_BTNHIGHLIGHT ) ); // RGB( 128, 128, 128 ) );\n   HPEN hPen;\n\n   #ifndef __FLAT__\n   WORD wPrompts  = _VARRAYLEN( _param( 3, -1 ) );\n   #else\n   WORD wPrompts = __paralen( params, 3, 0 );\n   #endif\n\n   #ifndef __FLAT__\n   WORD wBmps = _VARRAYLEN( _param( 11, -1 ) );\n   #else\n   WORD wBmps = __paralen( params, 11, 0 );\n   #endif\n\n   HFONT hFont1   = ( HFONT ) _parni( 4 );\n   HFONT hFont2   = ( HFONT ) _parni( 5 );\n   LONG rgbPane   = _parnl( 6 );\n   WORD wOption   = _parni( 7 );\n   WORD wSize     = _parni( 9 );\n   BOOL bWin95    = _parl( 10 );\n   WORD wWidth, wHeight, wLeft, w, t ;\n   RECT rct;\n   SIZE pt;\n   HBITMAP hBmp;\n   WORD wInc      = 10;\n\n   LONG lTabClr   = _parnl( 13 );\n   LONG lFocusClr = _parnl( 14 );\n   WORD wAlign    = _parnl( 15 );\n   WORD wOffset   = _parnl( 16 );\n\n   if( ! wPrompts )\n      return;\n\n   if( wBmps )\n      wInc = FLD_BMP;\n\n   #ifdef __XPP__\n      SysRefresh();   // process pending msgs\n   #endif\n\n   GetWindowRect( hWnd, &amp;rct );\n   wHeight = rct.bottom - rct.top;\n   wWidth  = rct.right - rct.left;\n\n   if( ! wWidth )\n      return;\n\n   if( ! wSize )\n      wSize = wWidth / wPrompts;\n\n   /* Not used. Keep the compiler silent */\n   bWin95 = bWin95;\n\n   SelectObject( hDC, hFont1 );\n\n   #ifdef __FLAT__\n   #define _parc( x, y )    PARC( x, params, y )\n   #define _parl( x, y )    PARL( x, params, y )\n   #define _parclen( x, y ) PARCLEN( x, params, y )\n   #endif\n\n   #ifndef __FLAT__\n      wSize = GetTextExtent( hDC, _parc( 3, 1 ), _parclen( 3, 1 ) ) + wInc;\n   #else\n      GetTextExtentPoint( hDC, _parc( 3, 1 ),\n        _parclen( 3, 1 ), &amp;pt );\n        wSize = pt.cx + wInc;\n   #endif\n\n   SETWHITEPEN( hDC );\n   MoveTo( hDC, 0, wHeight - 1 );\n   LineTo( hDC, 0, 2 + IF( wOption != 1, 2, 0 ) +\n                       IF( wOffset, FD_HEIGHT - IF( wOption != 1, 4, 2 ), 0 ) );\n\n   SETBLACKPEN( hDC );\n   MoveTo( hDC, 0, wHeight - 1 );\n   LineTo( hDC, wWidth, wHeight - 1 );\n\n   SETBLACKPEN( hDC );\n   MoveTo( hDC, wWidth - 1, wHeight - 1 );\n   LineTo( hDC, wWidth - 1, FD_HEIGHT - 1 );\n\n   SelectObject( hDC, hDarkPen );\n   MoveTo( hDC, 1, wHeight - 2 );\n   LineTo( hDC, wWidth - 2, wHeight - 2 );\n   MoveTo( hDC, wWidth - 2, wHeight - 2 );\n   LineTo( hDC, wWidth - 2, FD_HEIGHT - 1 );\n\n   SETWHITEPEN( hDC );\n   MoveTo( hDC, 0, FD_HEIGHT );\n   LineTo( hDC, wOffset + 1, FD_HEIGHT );\n\n   wLeft = wOffset;\n\n   for( w = 0; w &lt; wPrompts; w++ )\n   {\n      SETWHITEPEN( hDC );\n      if( ( w + 1 != wOption + 1 ) )\n      {\n         MoveTo( hDC, wLeft, FD_HEIGHT - 1 );\n         LineTo( hDC, wLeft, 3 + IF( w + 1 != wOption, 2, 0 ) );\n         LineTo( hDC, wLeft + 2, 1 + IF( w + 1 != wOption, 2, 0 ) );\n      }\n\n      MoveTo( hDC, wLeft + 2 - IF( ( w + 1 == wOption + 1 ), 2, 0 ),\n                   1 + IF( w + 1 != wOption, 2, 0 ) );\n      LineTo( hDC, wLeft + wSize - 1 + IF( w + 1 == wOption - 1, 2, 0 ),\n                   1 + IF( w + 1 != wOption, 2, 0 ) );\n\n      if( ( w + 1 != wOption - 1 ) || ( w + 1 == wOption ) )\n      {\n         SETBLACKPEN( hDC );\n         MoveTo( hDC, wLeft + wSize - 1, 2 + IF( w + 1 != wOption, 2, 0 ) );\n         LineTo( hDC, wLeft + wSize, 3 + IF( w + 1 != wOption, 2, 0 ) );\n         LineTo( hDC, wLeft + wSize, FD_HEIGHT + 1 );\n\n         SelectObject( hDC, hDarkPen );\n         MoveTo( hDC, wLeft + wSize - 1, 3 + IF( w + 1 != wOption, 2, 0 ) );\n         LineTo( hDC, wLeft + wSize - 1, FD_HEIGHT );\n      }\n\n      if( w + 1 != wOption )\n      {\n         SETWHITEPEN( hDC );\n         MoveTo( hDC, wLeft - 1 + IF( w == 0, 2, 0 ), FD_HEIGHT );\n         LineTo( hDC, wLeft + wSize + IF( ( w + 1 ) &lt; wPrompts, 2, -1 ), FD_HEIGHT );\n      }\n      else\n      {\n         SelectObject( hDC, hDarkPen );\n         MoveTo( hDC, wLeft + wSize - 1, 3 );\n         LineTo( hDC, wLeft + wSize - 1, FD_HEIGHT + 1 );\n      }\n\n      rct.top    = 5 + IF( w + 1 != wOption, 2, 0 );\n      rct.left   = wLeft + FD_BORDER - 1;\n      rct.bottom = FD_HEIGHT - 3 + IF( w + 1 != wOption, 2, 0 );\n      rct.right  = wLeft + wSize - FD_BORDER + IF( wBmps, wInc / 2, 2 );\n\n      hBmp  = ( HBITMAP ) _parnl( 11, w + 1 );\n      if( hBmp )\n      {\n        if( _parl( 8, w + 1 ) )\n           DrawMasked( hDC, hBmp, rct.top - 1, rct.left + IF( _parclen( 3, w + 1 ), 0, 2 ) );\n        else\n           DrawGray( hDC, hBmp, rct.top - 1, rct.left + IF( _parclen( 3, w + 1 ), 0, 2 ) );\n      }\n\n      if( _parl( 8, w + 1 ) )\n      {\n         if( w == wOption - 1 )\n         {\n            SelectObject( hDC, hFont2 );\n            SetTextColor( hDC, lFocusClr );\n         }\n         else\n         {\n            SelectObject( hDC, hFont1 );\n            SetTextColor( hDC, lTabClr );\n         }\n      }\n      else\n      {\n         SetTextColor( hDC, CLR_GRAY );\n         SelectObject( hDC, hFont1 );\n      }\n\n      SetBkColor( hDC, rgbPane );\n      DrawText( hDC, _parc( 3, w + 1 ), _parclen( 3, w + 1 ),\n                &amp;rct, DT_CENTER );\n\n      if( w == wOption - 1 )\n      {\n         SetTextColor( hDC, CLR_BLACK );\n         t = rct.right;\n         rct.right -= IF( wBmps, wInc / 2, 2 );\n         --rct.top;\n         FrameDot( hDC, &amp;rct );\n         rct.right = t;\n         ++rct.top;\n      }\n\n      wLeft += wSize + 1;\n\n      #ifndef __FLAT__\n         wSize = GetTextExtent( hDC, _parc( 3, w + 2 ),\n                                _parclen( 3, w + 2 ) ) + wInc;\n      #else\n         GetTextExtentPoint( hDC, _parc( 3, w + 2 ),\n                             _parclen( 3, w + 2 ), &amp;pt );\n         wSize = pt.cx + wInc;\n      #endif\n\n      if( ( wLeft + wSize + 2 ) &gt; wWidth )\n         wSize = wWidth - wLeft - 2;\n\n      if( w + 2 == wPrompts &amp;&amp; wAlign == 2 ) //Right\n         wSize = wWidth - wLeft - 1;\n   }\n\n   if( wAlign == 1 || wAlign == 3 )  //Right\n   {\n      SETWHITEPEN( hDC );\n      MoveTo( hDC, wLeft - 1 - ( wOption != wPrompts ), FD_HEIGHT );\n      LineTo( hDC, wWidth - 2, FD_HEIGHT );\n   }\n\n   SelectObject( hDC, hPen );\n   DeleteObject( hDarkPen );\n   DeleteObject( hWhitePen );\n\n   SetBkColor( hDC, rgbPane );\n   ReleaseDC( hWnd, hDC );\n}\n\n//----------------------------------------------------------------------------//','',0,'','2gm7xeyk',1,0,'',362,0,0),(12627,2903,6,171,0,'71.232.193.197',1146575935,1,0,1,1,1,0,'','','Antonio,\n\nYo defino mi propio menu pero aun asi se añade automaticamente esa molesta opcion, veo que en los ejemplos MDI tambien sucede lo mismo\n\nExistira una forma de borrar esa opcion luego de que se crea? \n\n\nSaludos\n\n\n\nGeorge','',0,'','1adz6rk6',1,0,'',171,0,0),(12628,747,4,240,0,'85.201.105.227',1146577256,1,0,1,1,1,1,'','','Many thanks, I will give it a try.\nI need to read complete messages but I am sure this is not a problem as long as I can read a character.\n\n\nBest Regards,\nRaymond','',0,'','3qxfe1nl',1,0,'',240,0,0),(12629,2874,3,61,0,'201.217.173.75',1146577949,1,0,1,1,1,0,'','','Shuming:\n\nI belive that you can´t, but you can ask to \nEasyPreview developpers.\n\nSorry for my English.\n\nRegards.\nRuben Fernandez.','',0,'','30ta18r1',1,0,'',61,0,0),(12630,2874,3,61,0,'201.217.173.75',1146578009,1,0,1,1,1,0,'','','Marcelo:\n\nHow can I do that?\n\nThank tou.\n\nRuben Fernandez','',0,'','1cs12eio',1,0,'',61,0,0),(12631,2898,3,209,0,'209.217.64.30',1146578850,1,0,1,1,1,0,'','','Hi James,\n\nThanks for the lead.  I have confirmed that the seventh parameter set to 512 does in fact evoke the multi file selection option.  However it also causes the file names to be displayed in short name format even if the lLongNames parameter is set to true.  How to fix this problem is beyond my abilities.\n\nMy application can live with 8 character names however in this day and age others may not.  If the revised code still returned the selected files in a space delimited string the parsing out of filenames containing spaces may present a bit of a challenge assuming that the item separator remains a space character.\n\nTanks,\n\nVytas\n\nLOCAL ErrorFileDir := CurrentDrive + \":\\\" + \"b4\\AML\"\nLOCAL Files := cGetFile(\"AML File|*.txt|\" + \"DataBase | *.dbf |\",\"Multi Select\",1,ErrorFileDir,.f.,.t.,512)\nLOCAL File  := cGetFile(\"Txt File|*.txt|\" + \"DataBase | *.dbf |\",\"Select One \",1,ErrorFileDir,.f.,.t.)\n? Files,File\n\nOutput from first Multi select cGetFile\nZ:\\b4\\AML\\ BatName.txt CPM9PN~M.TXT\n\nOutput from first Single file select cGetFile\nZ:\\b4\\AML\\Copy (2) of AddProjection.txt','',0,'','3fxczm8h',1,0,'',209,0,0),(12632,2874,3,41,0,'166.114.252.26',1146582661,1,0,1,1,1,0,'','','Ruben\n\nyou can use nconvert a tools part of xnview.\n\n1.- you can get all the EMF generated for report or print class\n     by default windows files temporal directory but you can change this\n     in the tprint data cDir from the resport oReport:oDevice:cDir\n    \n     This is for FWH previus last 2.7 because I read that the last version generate the  EMF with randon prefix name \n\n2.- with nconvert you can export every EMF from the FW report to another format\n    \n      Shellexecute(, \"open\",\"nconvert.exe\",\"-out jpeg .....\") you can read the manual\n      for the best option for you. There are batch option with automatic enumerate\n\n      -out jpeg -n 1 10  l -o prefijo #.jpg  c:\\windows\\temp\\tmp####.emf\n   \n      There are another nicer posibility, that is use directly DLL from xnview, I try but whitout  entire success, mybe I will try again in the future, I sure that another people here like Enrico can help us with this\n\nAnd the end, you can add a button or menu option in the preview to define the export operation.\n\nregards\n\nMarcelo','',0,'','281nh7bx',1,0,'',41,0,0),(12633,2869,6,41,0,'166.114.252.26',1146583325,1,0,1,1,1,0,'','','[quote=&quot;Carles&quot;:2t8yj4vd]Hola Marcelo,\n\n1.- El 2º parametro es el tipo de tabla, siendo 2 == DBF_CDX (eso creo, ahora me haces dudar)\n[/quote:2t8yj4vd]\n\nEra para saber si afectava en que formato recibes el resultado, pueda que alli esta algo de la respuesta\n\n[quote:2t8yj4vd]\nNo se si la gente esta usando esta funcion contra servidor que va de maravilla, pero es q jode ver como en el ARC32 vuela, al lado de la tuya. Pensaba que ARC32 usaba las mismas funciones del ACE.\n[/quote:2t8yj4vd]\n\nYo, utilizo SQL de manera nativa con ADS, es realmente comodo y muy potente.\n\nHaber que resultados sacas de tu investigacion, por otra parte estaria analizar el codigo fuente de ARC y/o hacer un peque~no ejemplo con Delphi que haga la misma consulta para ver si se optiene o no la misma velocidad del ARC, si es asi, significaria que el problema esta en la implementacion del API de ADS en xHarbour o Harbour o que falta algun parametro u opcion en la aplicacion, quien sabe RF pueda darnos ideas\n\nsaludos\n\nMarcelo','',0,'gA==','2t8yj4vd',1,0,'',41,0,0),(12634,2869,6,138,0,'201.152.98.24',1146583833,1,0,1,1,1,1,'','','Carles:\n\nUna pregunta.... y creo que tiene que ver con la forma en que estas trabajando.... ¿tienes indice asignado para esa tabla DBF ?','',0,'gA==','112nhyip',1,0,'',138,0,0),(12635,2898,3,303,0,'72.199.41.171',1146586580,1,0,1,1,1,0,'','','Vytas,\n\nPerhaps this will help.\n\nJames\n\n[code:35njwqhe]From&#58; &quot;Enrico Maria Giordano&quot; &lt;e&#46;m&#46;giordano@emagsoftware&#46;it&gt;\nSubject&#58; Re&#58; Long file names\nDate&#58; Friday, November 29, 2002 3&#58;52 AM\n\nRandal Ferguson wrote&#58;\n&gt; \n&gt; All,\n&gt; \n&gt; I\'m using cGetFile32 but the file name returned is the short file name&#46;  How\n&gt; do I get the long file name?\n\nA working sample follows&#58;\n\n#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    ? CGETFILE32&#40; &quot;*&#46;*&quot;, &quot;Test&quot;, , , , 2060 &#41;\n\n    RETURN NIL\n\nEMG[/code:35njwqhe]','',0,'AIA=','35njwqhe',1,0,'',303,0,0),(12636,2865,4,89,0,'213.21.136.60',1146587919,1,0,1,1,1,0,'','','Hello Antonio\n\nhave you recived my sample ? \n\nMaurizio','',0,'AIA=','1yqjq9ej',1,0,'',89,0,0),(12637,2874,3,303,0,'72.199.41.171',1146588317,1,0,1,1,1,0,'','','Shuming,\n\nOne issue to keep in mind is that fax is secure and email isn\'t. \n\nYou can get a PDF print driver that can be controlled by via code so that it doesn\'t prompt the user for a filename. Some are capable of being password protected. It is also possible to add a digital signature to a PDF.\n\nAnother option is to zip the report and password protect the zip file.\n\nI have not done either one of these yet, so I can\'t offer any specific recommendations.\n\nJames','',0,'AIA=','3pauvqb7',1,0,'',303,0,0),(12638,2906,2,375,0,'84.122.113.189',1146590057,1,0,1,1,1,1,'','Tamaño de Imagenes','Pregunta: ¿Tiene algo que ver el tamaño de una imagen para que TIMAGE la lea o no la lea?.\nMe explico. Estoy haciendo un módulo de presentación de fotografías, para poder visualizar diversos formatos de mapas de bits. Utilizo para ello la clase TIMAGE como es lógico (con NViewLib32), pero resulta que los ficheros JPG de más de un mega no los lee ( me da: nWidth=0 y nHeight=0 ). Sin embargo si la achico con un programa de edición de fotos hasta ocupe 700k o por ahí si la lee. Lo mismo ocurre con BMP de más de 5 megas.\n¿Hay forma de solventar ese inconveniente (terrible para mi programa por cierto)?','',0,'AIA=','jymnlfic',1,0,'',375,0,0),(12639,2906,2,375,0,'84.122.113.189',1146590504,1,0,1,1,1,1,'','','Por cierto, alguien tiene un ejemplo de cómo se utiliza la clase TIMAGLIST, o al menos que me diga que hace o que aspecto presenta en pantalla.','',0,'AIA=','2taug75b',1,0,'',375,0,0),(12640,2894,6,46,0,'217.168.114.27',1146590545,1,0,1,1,1,0,'','','cData := Eval( oBrw:aCols[ nCol ]:bStrData, oBrw )','',0,'','36zc54va',1,0,'',46,0,0),(12641,2907,3,435,0,'200.155.207.144',1146590881,1,0,1,1,1,0,'','MSFax do Visual Basic','Achei no link abaixo como se conectar com o MSFax, seria possivel conectar usando TOle()  ? \n\n\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fax/faxlegacyvb_836n.asp\">http://msdn.microsoft.com/library/defau ... b_836n.asp</a><!-- m -->\n\nAri','',0,'','9hka0h2v',1,0,'',435,0,0),(12642,2903,6,228,0,'200.119.75.97',1146591300,1,0,1,1,1,1,'','me indicas como','George...\n\nSera que me puedes indicar como defino mi propio Menu....','',0,'','3b8vhoov',1,0,'',228,0,0),(12643,2906,2,375,0,'84.122.113.189',1146591414,1,0,1,1,1,1,'','','Por último. ¿Es obligatorio el uso de PALBMPNEW?.\nPues lo utilize o no lo utilize, el resultado en pantalla es el mismo. Y PALBMPFREE no me da error.','',0,'','10q27jf2',1,0,'',375,0,0),(12644,2894,6,63,0,'80.37.102.128',1146591481,1,0,1,1,1,0,'','','Pues casi, pero no...\n\nEfectivamente, tu solución lee el valor de la celda CUANDO SE CLICA EN ELLA.  Creo que lo que yo necesito es una función más o menos así:\n\ncData := MiFunción(nR, nC), que se llamaría desde oBrw:bMMoved\n\nLa idea es que devuelve cData al pasar el ratón sobre la celda, no al clicar.\n\nDe todas formas, muchas gracias\n\nRafael','',0,'','1x4l7un3',1,0,'',63,0,0),(12645,2908,6,40,0,'200.92.17.74',1146591499,1,0,1,1,1,0,'','Crear tablas dínamicas desde FW[x]H','Buenos días foro, alguien ha hecho tablas dínamicas desde FWH\nya sea directamente OLE, TExcel, FileXLS.\n\nSe puede ?\nalgún ejemplo ?\n\nSaludos y gracias de antemano\nJoel Andujo','',0,'','1a0iifjj',1,0,'',40,0,0),(12646,2908,6,40,0,'200.92.17.74',1146591914,1,0,1,1,1,0,'','','Perdon se me paso, Tablas Dínamicas en Excel\n\nAver si alguien a hecho algo por ahi.\n\nResaludos y regracias\nJoel Andujo','',0,'','11ek7v6c',1,0,'',40,0,0),(12647,2898,3,209,0,'209.217.64.30',1146592086,1,0,1,1,1,0,'','','Hi James,\n\nIt does display the files in long name format.  However using either 512 or 2060 as a WinAPI flag did not let me select more than one file.  Either there is a magic number required that I do not know,  or I am again on the wrong track to solving this issue.\n\nThanks again,\n\nVytas','',0,'','2oib8wov',1,0,'',209,0,0),(12648,2894,6,46,0,'217.168.114.27',1146592297,1,0,1,1,1,0,'','','revisando la clase twindow . esta evalua bMMoved.. deberias poner un flag para poder trazar si es que efectivamentente llama a este bloque dentro del metodo MouseMove().\n\nTambien intenta devolver 0 en tu funcion... es decir Return 0\n\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'','irq6sl4d',1,0,'',46,0,0),(12649,2903,6,46,0,'217.168.114.27',1146592666,1,0,1,1,1,0,'','','Experimenta\n\noWnd:SetMenu( oMenu, [b:2iwufmjt]0[/b:2iwufmjt] )','',0,'QA==','2iwufmjt',1,0,'',46,0,0),(12650,2898,3,6,0,'82.61.144.158',1146592676,1,0,1,1,1,1,'','','This is a better sample. But unfortunately it doesn\'t return the selected filename. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n[code=fw:ewxdt2nz]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"><span style=\"color: #00D7D7;\">#include</span> <span style=\"color: #ff0000;\">&quot;Fivewin.ch&quot;</span><br /><br /><br /><span style=\"color: #00D7D7;\">#define</span> OFN_ALLOWMULTISELECT 0x200<br /><span style=\"color: #00D7D7;\">#define</span> OFN_EXPLORER &nbsp; &nbsp; &nbsp; &nbsp; 0x80000<br /><br /><br /><span style=\"color: #00C800;\">FUNCTION</span> MAIN<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span><br /><br />&nbsp; &nbsp; ? CGETFILE<span style=\"color: #000000;\">&#40;</span> <span style=\"color: #ff0000;\">&quot;*.*&quot;</span>, <span style=\"color: #ff0000;\">&quot;Test&quot;</span>, , , , , NOR<span style=\"color: #000000;\">&#40;</span> OFN_ALLOWMULTISELECT, OFN_EXPLORER <span style=\"color: #000000;\">&#41;</span> <span style=\"color: #000000;\">&#41;</span><br /><br />&nbsp; &nbsp; <span style=\"color: #00C800;\">RETURN</span> <span style=\"color: #00C800;\">NIL</span></div>[/code:ewxdt2nz]\n\nEMG','06cab6db59e97af50ee8b7b7fae2f5d9',0,'AIA=','ewxdt2nz',1,0,'',6,0,0),(12651,2894,6,63,0,'80.37.102.128',1146592779,1,0,1,1,1,0,'','','Si. Mi método se evalúa al mover el ratón.  Es solamente esto:\n [code:3p9sigbs]\n&#58;&#58;oBrw&#58;bMMoved &#58;= &#123;|y,x| &#58;&#58;LeerCelda&#40;x,y&#41;&#125;\n\nMETHOD LeerCelda&#40;x,y&#41; CLASS TWorkLoad\nLOCAL nCol  &#58;= &#58;&#58;oBrw&#58;MouseColPos&#40;x&#41;\nLOCAL nRow  &#58;= &#58;&#58;oBrw&#58;MouseRowPos&#40;y&#41;\nLOCAL cData\nIF nCol &gt; 0\n   cData &#58;= Eval&#40;&#58;&#58;oBrw&#58;aCols&#91; nCol &#93;&#58;bStrData, &#58;&#58;oBrw &#41;\n   &#58;&#58;oSay&#58;VarPut&#40;STR&#40;nCol,3,0&#41; + STR&#40;nRow,3,0&#41; + &quot;  &quot; + cData&#41;\n   &#58;&#58;oSay&#58;Refresh&#40;&#41;\nENDIF\nRETURN 0\n[/code:3p9sigbs]\nSé que se evalúa porque al mover el ratón, nCol y nRow se actualizan en pantalla.  ¿Es esto a lo que te referías?','',0,'AIA=','3p9sigbs',1,0,'',63,0,0),(12652,2850,3,530,0,'201.114.224.202',1146593818,1,0,1,1,1,0,'','','Antonio:\n\nThis is the web link:\n<!-- m --><a class=\"postlink\" href=\"http://www.griaule.com/public_download/GrFinger_4.1_FREE_Installer.exe\">http://www.griaule.com/public_download/ ... taller.exe</a><!-- m -->\n\nI\'m just trying to emulate the VB6 ActiveX Sample.\n\n(How can I attach files in this newsgroup format?)\n\nRegards\n\nFco Gamboa','',0,'AIA=','70adpxmw',1,0,'',530,0,0),(12653,2794,4,213,0,'72.177.228.25',1146594942,1,0,1,1,1,0,'','','Alfredo,\n\nThe only way I know is to create an entry in the pocket pc registry.  Sorry, but I only know how to do this when using a .cab file for install.  You could probably find the answer in msdn and if fwpc allows you to create a registry key on the pocketpc you could create it yourself.\n\nRegards,\nRandal Ferguson','',0,'AIA=','1vt9ygp3',1,0,'',213,0,0),(12654,2874,3,3,0,'82.248.5.227',1146596212,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3fo2dh5g]Shuming,\n\nOne issue to keep in mind is that fax is secure and email isn\'t. \n\nYou can get a PDF print driver that can be controlled by via code so that it doesn\'t prompt the user for a filename. Some are capable of being password protected. It is also possible to add a digital signature to a PDF.\n\nAnother option is to zip the report and password protect the zip file.\n\nI have not done either one of these yet, so I can\'t offer any specific recommendations.\n\nJames[/quote:3fo2dh5g]\n\nJames \n\nWe have purchased a product \"imagetopdf\" that allows silently to generate a pdf from emf files. This is done without any pdf printer, no installation, Just a file to ship with your app and a set of commands.\n\nThe product cost is 250 Us Dollars for unlimited users and i can say it is a great tool.\n\nIt took me 5 minutes to get it working. Now my preview generates pdf files and emails them. \n\nIt can also code in avery clever way the pdf (no print, signature ...etc)\n\nFor those who may be interested check : <!-- w --><a class=\"postlink\" href=\"http://www.UtilityWarrior.com\">www.UtilityWarrior.com</a><!-- w -->\n\nSupport is excellent.\n\nRichard','',0,'gA==','3fo2dh5g',1,0,'',3,0,0),(12655,2909,19,375,0,'84.122.113.189',1146597547,1,0,1,1,1,1,'','PinEdit','Alguien ha probado PinEdit con FW. PinEdit es un editor de texto presuntamente incorporable a programación. Lo que no se es si se puede incorporar a FiveWin como un control más. Pero tiene muy buena pinta.','',0,'gA==','2zev95fm',1,0,'',375,0,0),(12656,2898,3,303,0,'72.199.41.171',1146601149,1,0,1,1,1,0,'','','Enrico,\n\nWhat does it return? It should be returning an array, right?\n\nJames','',0,'gA==','d8bxt58q',1,0,'',303,0,0),(12657,2874,3,303,0,'72.199.41.171',1146601576,1,0,1,1,1,0,'','','Richard,\n\nI note that the website does not mention supporting EMF files, but I suppose that must be a mistake on their part.\n\nAlso, it appears that the licensing requires that you purchase one copy (at US$250) for each copy of your application. I know that there are royalty free libraries that you can get to generate PDF\'s.\n\nJames','',0,'gA==','198jcdvl',1,0,'',303,0,0),(12658,2910,3,148,0,'82.201.235.63',1146601956,1,0,1,1,1,0,'','oBrw:SetSize() has no effect at all in TXBROWSE..please help','That statement oBrw:SetSize( 20, 20 ) Antonio suggested to resize the dialog box has no effect at all on resizing the dialog . You can test it your self .\n [code:2ivkemqd]\n\nSTATIC FUNCTION mete&#40; oWnd &#41;\n*-----------------------------------------------\n   local oChild, oBrw\n   Local oDlgn, oDbfc, oBrwc\n   local nRecNo  &#58;= RecNo&#40;&#41;\n   local new_rec  &#58;= 0\n   local oGet\n   local i&#58;=0\n   local oCombo1&#58;= Space&#40; 10 &#41;\n   local oCombo2&#58;= Space&#40; 8 &#41;\n   local oCombo3&#58;= Space&#40; 6 &#41;\n   local oCombo4&#58;= Space&#40; 20 &#41; \n   local oCombo5&#58;= Space&#40; 8 &#41;\n   local V_MC_serial&#58;= Space&#40; 7 &#41;\n\n   local nFor\n   local bFilter &#58;= &quot;&quot;\n   local cFilter &#58;= &quot;&quot;\n   local x &#58;= &quot;&quot;\n*local nWidth&#58;=120\n*local nHeight&#58;=40\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n \n\n\nx &#58;= &quot;\'9855564\'&quot; \ncFilter &#58;= &quot;me_mc_serl = &quot;+ x \nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n\n\nSELECT 4\nuse mete index mete2\nGO TOP\n\n\nDEFINE DIALOG oDlgn  FROM 1,1 TO 30,120 TITLE &quot;Dialog Meter Works&quot; \n\n \n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlgn &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46; \n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;SetSize&#40; 20, 20 &#41;\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n   if nFor=20\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n \n\n \n\n   @ 9, 1 BUTTON &quot;&amp;New&quot;    OF oDlgn SIZE 40, 12 //ACTION Editmach&#40; oLbx, &#46;t&#46; &#41;\n   @ 9, 8 BUTTON &quot;&amp;Modify&quot; OF oDlgn SIZE 40, 12  //ACTION Editmach&#40; oLbx, &#46;f&#46; &#41; \n   @ 9, 15 BUTTON &quot;&amp;Delete&quot; OF oDlgn  SIZE 40, 12  //ACTION Delrecord&#40; oLbx &#41; \n   @ 9, 22 BUTTON &quot;&amp;Search&quot; OF oDlgn SIZE 40, 12 //ACTION Seekmach&#40; oLbx &#41; \n   @ 9, 29 BUTTON &quot;&amp;Print&quot;  OF oDlgn ;\n      SIZE 40, 12;\n      ACTION oBrw&#58;Report&#40; &quot;Machines Report&quot;, &#46;t&#46; &#41; ;  // &#46;t&#46; --&gt; wants preview \n\n\n   @ 9, 36 BUTTON &quot;&amp;Exit&quot;   OF oDlgn ACTION oDlgn&#58;End&#40;&#41; SIZE 40, 12\n\n   @ 10,  1 BUTTON &quot;&amp;Order&quot;    OF oDlgn SIZE 40, 12 //ACTION ordermach&#40;oLbx&#41; \n   @ 10,  8 BUTTON &quot;&amp;Filter&quot;    OF oDlgn SIZE 40, 12 //ACTION metefilter&#40;oLbx&#41; \n   @ 10,  15 BUTTON &quot;&amp;Unfilter&quot; OF oDlgn SIZE 40, 12 //ACTION filtermachNotOk&#40;oLbx&#41; \n\n \n\n   oBrw&#58;SetSize&#40; 20, 20 &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n\n   *oDlgn&#58;oClient &#58;= oBrw\n\n \n\n   ACTIVATE DIALOG oDlgn \n\nRETURN NIL\n\n[/code:2ivkemqd]','',0,'AIA=','2ivkemqd',1,0,'',148,0,0),(12659,2898,3,6,0,'82.61.144.158',1146601964,1,0,1,1,1,1,'','','It should return the selected path name followed by the selected file names, each of them NULL separated with an extra NULL at the end. What I instead see is only the path name. I think that the cause is the _retc() API used inside CGETFILE() function.\n\nEMG','',0,'AIA=','1jedifcf',1,0,'',6,0,0),(12660,2910,3,6,0,'82.61.144.158',1146602106,1,0,1,1,1,1,'','Re: oBrw:SetSize() has no effect at all in TXBROWSE..please','Try\n\n[code:3qpp1zye]ACTIVATE DIALOG oDlgn;\n         ON INIToBrw&#58;SetSize&#40; 20, 20 &#41;[/code:3qpp1zye]\n\nEMG','',0,'AIA=','3qpp1zye',1,0,'',6,0,0),(12661,2874,3,26,0,'84.255.245.173',1146607871,1,0,1,1,1,1,'','','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/Image-to-PDF-Dynamic-Link-Library.htm\">http://www.utilitywarrior.com/Image-to- ... ibrary.htm</a><!-- m -->\n[quote:29dg02ge]Pricing: \nPer Product $59.99     \nUnlimited Development   $249.99 [/quote:29dg02ge]\n<!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/TermsDLL.htm\">http://www.utilitywarrior.com/TermsDLL.htm</a><!-- m -->\n[quote:29dg02ge]To keep the pricing structure for Utility Warrior products simple, we have adopted a low cost policy that breaks down the pricing by usage:\n\nPer Product: Each item of software developed (no matter what it\'s use - personal, used within a company or distributed in any form outside of a company - whether free or charged for) which uses the DLL must have a Product license.\n\nUnlimited Development: Allows an unlimited number of software products (no matter what their use - see above) which use the DLL to be developed.\n\nImportantly, these licenses are ROYALTY FREE - once you have bought the license there are no other costs or payments to make and the DLL can be included with your product. [/quote:29dg02ge]\n\nBut, it seems that according to documentation there is no support for EMF files (only bitmap images are supported: \"Converts JPEG, JPG, TIFF, TIF, PNG, GIF, BMP, PCX and TGA images\"). Probably they haven\'t updated it yet?\n\nRoman','',0,'gA==','29dg02ge',1,0,'',26,0,0),(12662,2911,6,171,0,'71.232.193.197',1146609769,1,0,1,1,1,0,'','Abrir dialogo NO-MODAL  al iniciar el programa','El caso que tengo es que quiero que al iniciar mi programa se abra un dialogo no-modal que a la vez me permita usar el menu del main windows. \n\nSe me prentan las siguientes situaciones\n\nA) Si trato de abrir el dialogo desde el main window (oWnd), usando la clausula ON INIT  no funciona a menos que el dialogo sea modal; pero entonces no puedo acceder al menu del main windows.\n\nB) Si lo hago como esta en el ejemplo \"TestMDI4.prg\" creando una ventana hija (oWndChild of oWnd)  del main window (oWnd), me funciona perfecto *PERO* se le añade al menu principal una *MOLESTA* opcion que dice \"1. MDI Child 1\"\n\nMi pregunta es como puedo quitar ese molesto \"1. MDI Child 1\" del menu?\n\nAntonio dice que eso se añade automaticamente, pero en ningun software comercial he visto eso. Asi que debe ser que yo estoy haciendo algo incorrecto o talvez habra una forma de borrar \"1. MDI Child 1\" del menu despues de que este se crea.\n\nAlguna sugerencias?\n\nSaludos\n\n\n\nGeorge','',0,'gA==','126kh2ee',1,0,'',171,0,0),(12663,2874,3,303,0,'72.199.41.171',1146612059,1,0,1,1,1,0,'','','Roman,\n\nThanks for pointing out the terms of the DLL. I was apparently looking at the command line (exe) utility.\n\nJames','',0,'gA==','m7gmqo9n',1,0,'',303,0,0),(12664,2873,6,255,0,'200.67.175.250',1146612110,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:1elpxyll]Resuelto...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos\n \n Marco A. Delgado.[/quote:1elpxyll]\n\nComo lo resolviste ???\nyo no lo he podido hacer funcionar.\nMe puedes enviar un ejemplo ???\nGracias\n\njcso @ esm.com.mx\n\nSaludos','',0,'gA==','1elpxyll',1,0,'',255,0,0),(12665,2900,3,497,0,'212.127.159.218',1146612604,1,0,1,0,1,0,'','','Enrico,\nThis works OK:\n\nADD COLUMN TO oBrw[ 1 ]; \nHEADER \"Runs2\" ; \nSIZE 50 PIXELS ; \nDATA FieldWblock(\"Uitslag2\", Select()); \nCOLORS CLR_YELLOW,CLR_BLUE; \nALIGN DT_CENTER; \nPICTURE \"@Z 999\" \n\n\nTsBrowse does not recognize Transform in this place\n\nDATA TRANSFORM( \"@Z 999\", FIELD -&gt; Uitslag2 ); \n\nHowever in my database I have to differentiate between certain records with a different field content to show zero\'s or blanks.\n\nIt does not work when I use :\nIf Gesp == \"J\"\n  Add Column etc\n  Picture \"@Z 999\"\nElse\n  Add Column etc\nEndif\n\nSo it is all blanks or zero\'s.\nI need both depending on field Gesp\n\nJules','',0,'','4q1xnowp',1,0,'',497,0,0),(12666,2873,6,43,0,'201.127.49.224',1146613693,1,0,1,1,1,0,'','','Hola Carlos\n\n viendo la clase hice esto\n\n[code:3w55a92q]\n      DEFINE WINDOW aWChild&#91;1&#93; MDICHILD OF oWndPrinc ;\n             TITLE &quot;Listado de Recaudaciones&quot;        ;\n	     ICON oIconReca                          ;\n	     COLOR CLR_BLACK, CLR_NBLUE\n\n	     WITH OBJECT oBrwRec &#58;= TXBrowse&#40;&#41;&#58;New&#40; aWChild&#91;1&#93; &#41;\n						&#58;SetMySQL&#40;@oTable&#41;\n             		&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n             		&#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n             		&#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n             		&#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n	                &#58;nFreeze             &#58;= 4\n             		&#58;nHeaderLines        &#58;= 2\n             		&#58;lColDividerComplete &#58;= &#46;t&#46;\n                        &#58;nLeft               &#58;= 230  &lt;&lt;---- esto ****\n\n	               WITH OBJECT &#58;AddCol&#40;&#41;\n	               	  &#58;bStrData      &#58;= &#123; || FormFec&#40;\'&#91;DDD&#93;/&#91;MMM&#93;/&#91;AA&#93;\', oTable&#58;Fecha&#41; &#125;\n	               	  &#58;cHeader       &#58;= &quot;Fecha de&quot; + CRLF + &quot;Recaudación&quot;\n                          &#58;nHeadStrAlign &#58;= AL_CENTER\n                          &#58;nDataStrAlign &#58;= AL_CENTER\n                          &#58;nWidth        &#58;= 80\n		       END\n\n	               WITH OBJECT &#58;AddCol&#40;&#41;\n	               	  &#58;bStrData      &#58;= &#123; || oTable&#58;Recaudador &#125;\n	               	  &#58;cHeader       &#58;= &quot;Nombre de&quot; + CRLF + &quot;Recaudadora&quot;\n                          &#58;nHeadStrAlign &#58;= AL_CENTER\n                          &#58;nDataStrAlign &#58;= AL_LEFT\n                          &#58;nWidth        &#58;= 150\n		       END\n       	     END\n\n             @  0, 225 SPLITTER oSpl       ;\n                   VERTICAL _3DLOOK         ;\n		   HINDS CONTROLS oBrwRec   ;\n                   SIZE 4, 4 PIXEL          ;\n                   OF aWChild&#91;1&#93; UPDATE\n\n		   oBrwRec&#58;CreateFromCode&#40;&#41;\n		   aWChild&#91;1&#93;&#58;bResized &#58;= &#123;|| oSpl&#58;AdjClient&#40;&#41;, oSpl&#58;Adjust&#40;&#41;  &#125;\n\n      ACTIVATE WINDOW aWChild&#91;1&#93; MAXIMIZED ;\n		   ON INIT oBrwRec&#58;SetFocus&#40;&#41;  ;\n		   VALID &#40;SalirRec&#40; oIni &#41;, &#46;T&#46; &#41;\n[/code:3w55a92q]\n\nsegun la txbrowse, tiene los parametros de:\n\n   ::nTop     := 0\n   ::nLeft    := 0\n   ::nBottom  := 100\n   ::nRight   := 100\n \npor default en el metodo new, solo hay que modificarlos para poder usarlo con CreateFromCode()\n\nEspero te sirva\n\nSaludos\n \nMarco A. Delgado.\n\npost. gracias por VERCE','',0,'AIA=','3w55a92q',1,0,'',43,0,0),(12667,2906,2,138,0,'201.152.98.24',1146620618,1,0,1,1,1,1,'','','Efectivamente, el NViewlib tiene problemas con algunos tipos de ficheros JPG, lo mejor que puedes hacer es utilizar la clase FREEIMAGE, que utiliza el DLL del mismo nombre (FREEIMAGE) y que no requiere ningun cambio en tu codig fuente, solo agregar el PRG de la FREEIMAGE','',0,'AIA=','2a87l11x',1,0,'',138,0,0),(12668,2874,3,3,0,'82.248.5.227',1146633622,1,0,1,1,1,1,'','','[quote=&quot;modicr&quot;:103yidfp]Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/Image-to-PDF-Dynamic-Link-Library.htm\">http://www.utilitywarrior.com/Image-to- ... ibrary.htm</a><!-- m -->\n[quote:103yidfp]Pricing: \nPer Product $59.99     \nUnlimited Development   $249.99 [/quote:103yidfp]\n<!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/TermsDLL.htm\">http://www.utilitywarrior.com/TermsDLL.htm</a><!-- m -->\n[quote:103yidfp]To keep the pricing structure for Utility Warrior products simple, we have adopted a low cost policy that breaks down the pricing by usage:\n\nPer Product: Each item of software developed (no matter what it\'s use - personal, used within a company or distributed in any form outside of a company - whether free or charged for) which uses the DLL must have a Product license.\n\nUnlimited Development: Allows an unlimited number of software products (no matter what their use - see above) which use the DLL to be developed.\n\nImportantly, these licenses are ROYALTY FREE - once you have bought the license there are no other costs or payments to make and the DLL can be included with your product. [/quote:103yidfp]\n\nBut, it seems that according to documentation there is no support for EMF files (only bitmap images are supported: \"Converts JPEG, JPG, TIFF, TIF, PNG, GIF, BMP, PCX and TGA images\"). Probably they haven\'t updated it yet?\n\nRoman[/quote:103yidfp]\n\nRoman\n\nInitially they did not have support for EMF\n\nWhen i purchased the product, i asked them to add the support for EMF (it was a condition) and they did it in 2 days. So now they have the support for EMF (My app uses it) but they have not yet updated the web page.\n\nI prefer the command line utility over the dll (i tested both), command line utility is much easier to use with fwh and xharbour. It takes 5 minutes to make it work.\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','103yidfp',1,0,'',3,0,0),(12669,2874,3,3,0,'82.248.5.227',1146633679,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:86fh4nmf]Roman,\n\nThanks for pointing out the terms of the DLL. I was apparently looking at the command line (exe) utility.\n\nJames[/quote:86fh4nmf]\n\nJames\n\nThe same licensing applies to Command line utility\n\nRichard','',0,'gA==','86fh4nmf',1,0,'',3,0,0),(12670,2904,4,13,0,'213.76.252.200',1146636140,1,0,1,1,1,0,'','','Enrico,\n\nEffect still this same ... message not found.\n\nPawel','',0,'gA==','3t8xezmv',1,0,'',13,0,0),(12671,2912,7,533,0,'81.32.116.244',1146636181,1,0,1,1,1,0,'','FWPPC de pruebas','Buenos Días Foro:\n\nEstoy tanteando la posibilidad de adquirir fivewin para Pocket Pc, ya que \nnecesito alguna herramienta para programar en Pocket Pc, y por compatibilidad con Fivewin para Harbour he pensado primeramente en ello. ¿Existe alguna versión de prueba? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','w3xdb0um',1,0,'',533,0,0),(12672,2913,6,533,0,'81.32.116.244',1146636879,1,0,1,1,1,0,'','Nº de objetos por recursos','Buenos Días foro:\n\n   Ante todo muchas gracias de antemano. Quisiera saber si alguien sabe como aumentar el nº de objetos en un recurso, os comento, uso microsoft c++ con Harbour Compiler Alpha build 43.0 (Flex) y se me ha dado el caso que en un recurso tenía que  incluir aprox mas de 170 objetos (Get\'s + botones + labels). Lo necesito para plantear una pantalla táctil. ¿Álguien sabe como poder aumentar este nº de objetos?. En el recurso yo puedo introducir los que quiera, pero al compilar y ejecutar la aplicación no, sólo me reconoce aprox 160. Antes de usar las PAGES, quisiera saber si hay alguna otra solución. \n\nUN  SALUDO y muchas gracias.','',0,'gA==','yzige69s',1,0,'',533,0,0),(12673,2904,4,6,0,'87.16.238.162',1146637897,1,0,1,1,1,1,'','','Then it should mean that SetSize() method is still not implemented, at least for TWBrowse.\n\nAntonio?\n\nEMG','',0,'gA==','2yq48m7j',1,0,'',6,0,0),(12674,2869,6,449,0,'212.64.224.249',1146642132,1,0,1,1,1,1,'','','Hola a todos,\n\nMarcelo:\n\n1.- He probado en ADSCreateSQLStatement(\"SQLarea\",2), todos los parametros posibles, y realmente solo funciona con el 2 (ADS_CDX)\n\n[quote:o4kpfoyz]Yo, utilizo SQL de manera nativa con ADS, es realmente comodo y muy potente.[/quote:o4kpfoyz]\n\nPero de manera nativa, te refieres instalando el driver ODBC, no ?. Justamente, quiero evitar q el cliente se tenga de instalar y parametrizar el Odbc. \n\nQuizas otra manera seria probar la coña del ADO, pero me parece q tambien implica instalar en cada cliente algun componente, no se , no experimentado. Habeis hecho alguna prueba con ADO con reultado satisfactorio ? (siempre hablamos de ADS, eh   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> )\n\nRene:\n\nEl ejemplo de arriba tanto si lo ejecutas con una tabla con indice como sin indice, tarda lo mismo. Uhmm no se. Quizas me estoy metiendo en un tema q no tiene solución.\n\nTodo parte de la idea que desde un solo exe, obtener esta potente funcionalidad como hace el ARC32. Tendre obsesion con este tipo  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nGracias por vuestras ideas.','',0,'gA==','o4kpfoyz',1,0,'',449,0,0),(12675,2914,6,449,0,'212.64.224.249',1146642246,1,0,1,1,1,1,'','%systemroot%','Hola,\n\nEs posible desde FWH obtener el directorio donde se encuentra %systemroot%, %programfiles% y %userprofile% ?\n\nGracias.','',0,'gA==','8qbdlfw9',1,0,'',449,0,0),(12676,2901,3,63,0,'80.37.102.128',1146642254,1,0,1,1,1,0,'','','Enrico:\nYou were right: After a bit of database skiping up and down I got the problem solved.  The trick was reading the data directly off the Dbf, rather than the browse.\nThanks a lot once more\nRafael','',0,'gA==','2hhcvuot',1,0,'',63,0,0),(12677,2914,6,54,0,'201.98.176.226',1146648313,1,0,1,1,1,1,'','Re: %systemroot%','[quote=&quot;Carles&quot;:230abbya]Hola,\n\nEs posible desde FWH obtener el directorio donde se encuentra %systemroot%, %programfiles% y %userprofile% ?\n\nGracias.[/quote:230abbya]\n\nEspero sea lo que buscas\n\ncPath := GETENV(\"PATH\")\nSET PATH TO (cPath)','',0,'gA==','230abbya',1,0,'',54,0,0),(12678,2914,6,449,0,'212.64.224.249',1146648527,1,0,1,1,1,1,'','','Hola William,\n\nGetenv() nos da las variables de entorno, pero no es exactamente lo q busco. Quiero %systemroot%, %programfiles% y %userprofile%.\n\nGracias.','',0,'gA==','1f3wla71',1,0,'',449,0,0),(12679,2869,6,449,0,'212.64.224.249',1146651013,1,0,1,1,1,1,'','','Hola,\n\nHe instalado el ODBC de ADS para realizar test. El resultado sobre 100000 registros es para la Sql  \"Select first, last, age from test where age &gt; 90\"\n\n1.- Si quiero los una pagina de 30 registros -&gt; 0.2 seg.\n2.- Si selecciono todos los registros de la condicion (11.000 +-) -&gt; 2.5 seg.\n\nEl driver de ADS realmente va muy rapido, pero se sale del objetivo de jugar con las funciones nativas.','',0,'gA==','2lrhjly7',1,0,'',449,0,0),(12680,2914,6,24,0,'80.37.55.44',1146651681,1,0,1,1,1,1,'','','[quote=&quot;Carles&quot;:skhhkymt]Hola William,\n\nGetenv() nos da las variables de entorno, pero no es exactamente lo q busco. Quiero %systemroot%, %programfiles% y %userprofile%.\n\nGracias.[/quote:skhhkymt]\n\nGetEnv( \"SYSTEMROOT\" )\nGetEnv(\"PROGRAMFILES\")\nGetEnv(\"USERPROFILE\" )\n\nVamos....creo que son variables de entorno, por lo tanto, puedes cogerlas asi.\n\nSi no, ¿ que es lo que buscas ?','',0,'gA==','skhhkymt',1,0,'',24,0,0),(12681,2914,6,449,0,'212.64.224.249',1146652061,1,0,1,1,1,1,'','','Rafa,\n\nQuiero juestamente esto y se me ha ido la olla. Hacia GetEnv( \'%systemroot%\' ) en lugar de GetEnv( \'SYSTEMROOT\' ) <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nMe voy a comer q estoy demasiado espeso. Demasiadas horas. Esto nos va a matar \n\nPerdon a todos. Rafa -&gt; Gracias. William -&gt; Tenias razon\n\nCiao.','',0,'gA==','2z9zp10y',1,0,'',449,0,0),(12682,2915,20,29,0,'88.149.161.209',1146653914,1,0,1,1,1,0,'','Conversione di un file SQL (con estensione ldf e mdf) in mdb','Salve,\nqualche idea a riguardo ?\n\nGrazie\n\nMArco','',0,'gA==','3b9z4sca',1,0,'',29,0,0),(12683,2916,2,517,0,'200.195.2.246',1146654192,1,0,1,1,1,0,'','Exibir Graficos de Barras / Pizza / linhas etc..','Amigos \nSerá que alguem poderia por Favor me enviar um exemplo de como fazer graficos Barras / Pizza / linhas etc.. \n\n\nObrigado','',0,'gA==','1ui4vd27',1,0,'',517,0,0),(12684,2869,6,21,0,'80.58.49.235',1146655593,1,0,1,1,1,1,'','','Hola Carles,\n\nPor dos motivos va mas rapido ARC32 que el programa.\n\n1. La consultas SQL \"Select * from Test where age &gt; 90\" no necesita hacer una sql. Lo que hace es abrir la tabla ADT con un filtro. Se puede comprobar si hace esto, porque los nombres de los campos aparecen en mayúscula. En caso contrario, necesita ejecutar la SQL, se ven en minúscula \n\n2. y mas importante. En caso de tener que hacer la SQL devuelve sólo los primeros 20 +- registros. Al dar Ctrl+Fin calcularía toda la sql y se vería el tiempo real que tarda.\n\nRecuerda que al ejecutarlo con ADSExecuteSQLDirect, lo que tiene que hacer es ejecutar toda la sql, no sólo los 20 primeros registros y introducirlos en un tabla temporal para poder usarlo en el programa.','',0,'gA==','80enq732',1,0,'',21,0,0),(12686,2915,20,6,0,'87.16.238.162',1146656770,1,0,1,1,1,1,'','Re: Conversione di un file SQL (con estensione ldf e mdf) in','Con questo puoi convertire un DBF in una tabella dentro un MDB. Cambiando la stringa di connessione (parametro passato al metodo Open()) puoi farlo con un tabella di qualsiasi SQL:\n\n[code:3ff2kjso]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oCat, oCn\n\n    FERASE&#40; &quot;new&#46;mdb&quot; &#41;\n\n    oCat = CREATEOBJECT&#40; &quot;ADOX&#46;Catalog&quot; &#41;\n\n    oCat&#58;Create&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=new&#46;mdb&quot; &#41;\n\n    oCn = CREATEOBJECT&#40; &quot;ADODB&#46;Connection&quot; &#41;\n\n    oCn&#58;Open&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0; Data Source=c&#58;\\xharbour; Extended Properties=DBASE III&quot; &#41;\n\n    oCn&#58;Execute&#40; &quot;SELECT * INTO NewTable IN \'new&#46;mdb\' FROM Clienti&quot; &#41;\n\n    oCn&#58;Close&#40;&#41;\n\n    RETURN NIL[/code:3ff2kjso]\n\nEMG','',0,'AIA=','3ff2kjso',1,0,'',6,0,0),(12687,2869,6,449,0,'212.64.224.249',1146657396,1,0,1,1,1,1,'','','Hola Fernando,\n\n[quote:1hj17352]Por dos motivos va mas rapido ARC32 que el programa. \n\n1. La consultas SQL \"Select * from Test where age &gt; 90\" no necesita hacer una sql. Lo que hace es abrir la tabla ADT con un filtro...[/quote:1hj17352]\n\nEntiendo q ARC32 abre una tabla en formato ADT ? Como puede ser si la tabla es una dbf normal y corriente ? No se si me explico. Cuando tu haces una query normal...\n\n[url=http&#58;//imageshack&#46;us:1hj17352][img:1hj17352]http&#58;//img104&#46;imageshack&#46;us/img104/6255/arc326xb&#46;jpg[/img:1hj17352][/url:1hj17352]\n\narc32 no creo q abra la dbf y le pone un filtro. O si ? Tampoco creo q abra usando ODBC porque si no tienes el driver instalado funciona igual. Mi pregunta es, como poder emular la velocidad de arc32 sin tener q usar ODBC y ADO. Crees q se puede ?\n\nGracias por tu opinion','',0,'mA==','1hj17352',1,0,'',449,0,0),(12688,2911,6,171,0,'71.232.193.197',1146661877,1,0,1,1,1,0,'','','SOLUCIONADO!!! gracias a Enrico M. Giordano\n\n\n\nSolo tenia que añadir MENUINFO 0\n\n\nGeorge','',0,'mA==','3m8dwm0y',1,0,'',171,0,0),(12689,2903,6,171,0,'71.232.193.197',1146661906,1,0,1,1,1,0,'','','SOLUCIONADO!!! gracias a Enrico M. Giordano\n\n\nSolo tenia que añadir MENUINFO 0\n\n\nGeorge','',0,'mA==','1ea32do0',1,0,'',171,0,0),(12690,2898,3,209,0,'209.217.64.30',1146663199,1,0,1,1,1,0,'','','Hi Enrico,\n\nI get the same results as you.  Is this a bug in FiveWin?  \n\nIt seems that the only way to implement multi file select is by getting an array of files and then creating a multi item pick list.  Or is there a better way?\n\nThanks,\n\nVytas','',0,'mA==','js5us86w',1,0,'',209,0,0),(12691,2898,3,6,0,'87.16.238.162',1146663511,1,0,1,1,1,1,'','','[quote=&quot;Vytas&quot;:693q17jr]I get the same results as you.  Is this a bug in FiveWin?[/quote:693q17jr]\n\nI would not call it a bug. Simply, multifile selection is not yet implemented in cGetFile().\n\nLet\'s hope it will be. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','693q17jr',1,0,'',6,0,0),(12692,2900,3,266,0,'60.50.56.53',1146664463,1,0,1,1,1,1,'','','ADD COLUMN ...\n:\n:\nPICTURE if(Gesp=\'J\',\'@Z 999\',\'999\')','',0,'gA==','3ozr3xma',1,0,'',266,0,0),(12693,2873,6,255,0,'200.67.175.250',1146665142,1,0,1,1,1,1,'','','Gracias <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nProbaré y veremos que pasa','',0,'gA==','3l4u7yrb',1,0,'',255,0,0),(12694,2835,20,49,0,'213.82.134.66',1146670571,1,0,1,1,1,1,'','','proprio non c\'è nessuno che mi puo\' aiutare ?\navete capito il problema ?','',0,'gA==','209l9vbv',1,0,'',49,0,0),(12695,2835,20,6,0,'87.16.238.162',1146670939,1,0,1,1,1,1,'','Re: CREAZIONE RADAR PER RALLY','[quote=&quot;Silvio&quot;:10baz5w0]il problema a mio avviso è come fare visualizzare i simboli e le frecce ( percorsi) \n\nqualcuno ha qualche idea ?[/quote:10baz5w0]\n\nIn generale per visualizzare delle immagini basta avere le relative bitmaps ed utilizzare la funzione PalBmpDraw().\n\nEMG','',0,'gA==','10baz5w0',1,0,'',6,0,0),(12696,2898,3,110,0,'165.98.151.243',1146671601,1,0,1,1,1,1,'','','sorry for my bad english\n\nEnrico\n\nPlase search in hwgui or minigui functions for open files, this functions in both library permit select multi file and return a array with the file select. the sources with minimal change work in fwh.\n\n\nsalu2\ncarlos vargas.','',0,'gA==','2hcb11q1',1,0,'',110,0,0),(12697,2835,20,49,0,'213.82.134.66',1146672062,1,0,1,1,1,1,'','','scusa ma questo non è il problema\nMi spiego \nnella prima colonna ci sono due get numerici  e vanno bene !!\n\nnella seconda colonna c\'è un grafico :  \nnel grafico devo avere la possibilità di inserire piu di un disegno cioè devo per esempio raffigurare la strada ( il percorso da seguire) questo generalemnte è formato da una linea nera con sopra una freccia e sotto un tondino per far capire il punto dove l\'auto si trova in quel momento\npoi a fianco di questo disegno o ( a seconda del paesaggio da raffigurare) sopra lo stesso disegno il programma mi deve far inserire un altro disegnino che so per esempio per raffigurare i binari del treno oppure una casa ecc.\n\n\nnella terza colonna ci sono le note \n\nora se io riuscissi a creare il grafico complesso cosa che ancora non ho \ncapito come farlo ( trascinare da una barra bottoni al grafico un disegnino)  come potrei salvare il tutto ?\n\ntieni presente che quello che abbiamo detto finora è solo una riga tu immagina che in un radar ci sono migliia di righe.... dovrei costruire una specie di browse che ogni riga avesse i KM parziali e totali , il grafico e le note\n\n\nmi rendo conto che non è facile \n\nLinares mi ha suggerito di creare un user control ma non ho trovato nessuna classe che mi potesse aiutare a capire come fare \n\nnon dico che me lo dovete fare VOi  ma certamente voi avete piu\' fantasia ed esperienza in questo campo quindi io volevo solo un inizio, un idea da  cui iniziare...un piccolo esempio ....tutto qui\n\nGRAZIE','',0,'gA==','snqhb98f',1,0,'',49,0,0),(12698,2842,3,49,0,'213.82.134.66',1146673793,1,0,1,1,1,1,'','','I tried to use ttabs class but I NOt Know how can I make it\n\nCan you create,please, a small sample ?','',0,'gA==','2pfat51c',1,0,'',49,0,0),(12699,2906,2,375,0,'84.122.98.105',1146673824,1,0,1,1,1,1,'','','Gracias René, lo probaré.\n¿Sirve para todo tipo de gráficos, o sólo para JPG?\n\nUn saludo...','',0,'gA==','6czan67m',1,0,'',375,0,0),(12700,2874,3,303,0,'72.199.41.171',1146674357,1,0,1,1,1,0,'','','Richard,\n\n[quote:1g074bsf]The same licensing applies to the command line utility.[/quote:1g074bsf]\n\nWell perhaps it does, but here is what their website says:\n\n[quote:1g074bsf]Per Workstation: For use by a single user on a single PC.\n\nPer Server: For use by multiple users on a single PC, whether through a client/server structure or through the use of resource shares within a LAN environment.\n\nUnlimited/Internet: For use by multiple users on multiple PCs within a LAN/WAN environment or by users over the Internet.[/quote:1g074bsf]\n\nIt sounds like you need one license for each LAN/WAN.\n\nJames','',0,'gA==','1g074bsf',1,0,'',303,0,0),(12701,2842,3,375,0,'84.122.98.105',1146674965,1,0,1,1,1,1,'','','Silvio. I think you can build a dialog with some SAY\'s and painting lines via oDlg:bPainted. And with some empty BITMAP\'s.\n\nAfter, you must draw all the symbols in BMP format  and, for exemple, save them in a DLL. (In the same DLL where you could save the Dialog).\nRunning the aplcaction you have to RELOAD bitmap\'s depending the SAY\'s contents and what you want to represent. The realtionship between bitmaps and say\'s content coud be saved in a DBF file.\n\nFor exemple:\n\nDBF STRUCTURE -&gt; fileds:  TITLE, COMMENT, SYMBOL, BITMAPNAME, POSITION, ETC...\n\nRunning the Program: fill SAY\'s with TITLE, COMMENT, ETC, and RELOAD BITMAP with the BITMAPNANE bitmap represnting SYMBOL symbol. Or some think like this.\n\nIt\' s an idea. I hope you could anderstand me. (excuse my english)\n\nRegards','',0,'gA==','2a0s46l1',1,0,'',375,0,0),(12702,2869,6,21,0,'80.58.49.235',1146675117,1,0,1,1,1,1,'','','Hola,\n\nAunque lo que abras sea una dbf, lo que abres es la DBF, no una consulta sobre la DBF. Esto lo hace si trabajas en modo Server, no en modo local.\n\nComprueba como, por ejemplo, te deja cambiar los valores que te ha devuelto. Si fuera una SQL no permitiría cambiar los valores.\n\nPrueba ejecutando:\n\"Select {STATIC}  frist, last, street, age FROM test WHERE age&gt;90\".\no cualquier consulta que unas tablas, esas no se dejan editar.\n\n[code:b2xyrry6]Mi pregunta es, como poder emular la velocidad de arc32 sin tener q usar ODBC y ADO&#46; Crees q se puede ?[/code:b2xyrry6]\nYo no conseguí lograrlo. \n\nDe todas formas, recuerda que tiene que generar una DBF temporal para devolverto en el alias que indicas, y ahí es donde esta el tiempo. Cuando mas campos pidas y mas registros tenga de devolver mas lento irá.\n\nMi consejo:\nPide los campos indices, única y exclusivamente en la consulta. Luego el resto de los datos optenlos a traves de buscarlos en la DBF original\n[code:b2xyrry6]LOCAL consulta &#58;= &quot;Select frist from Test where age &gt; 90&quot;[/code:b2xyrry6][code:b2xyrry6]FOR nI &#58;= 1 TO 20 \n     Test-&gt;&#40; DbSeek&#40;SqlArea-&gt;Frist&#41; &#41;\n     cTxt += sqlarea-&gt;first + \' \' + Test-&gt;last + \' \' + Test-&gt;street + \' \' + str&#40; Test-&gt;age &#41; + CRLF \n     sqlarea-&gt;&#40; DbSkip&#40;&#41; &#41; \nNEXT [/code:b2xyrry6]\nSiendo \"Test\" el alias de la dbf previamente abierta sin ningun tipo de filtro aplicado y \"frist\" el campo indice de la misma','',0,'AIA=','b2xyrry6',1,0,'',21,0,0),(12703,2917,6,376,0,'201.240.112.167',1146678412,1,0,1,1,1,0,'','Bug en Clase Printer?','Amigos\n\nAcabo de fijarme que al utilizar la clase tprinter tanto en FW2.0d así como en FW24 (modificado para correr con xHarbour 0.99.6 - gracias a Patrick Fan) en la confección de un listado se \"come\" los primeros registros de la DBF y envia el siguiente mensaje \"the temporal metafile could not be created\". Después sigue y crea las páginas siguientes pero a partir de la No. 1 normalmente.\n\nNo se a qué se debe este comportamiento, pero me hace pensar que debe ser un bug. \n\nAgradeceré muchissssimo a quien me oriente a cómo solucionar la falla ya que es urgente!!! <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nPor si las moscas... envió mi codigo:\n\n/* Listar la base de datos del padron */\n#include \"fivewin.ch\"\n#include \"report.ch\"\n\nPROCEDURE listar( oDlg )\n   LOCAL nReg   := 1\n   LOCAL Fil    := 5\n   LOCAL Col    := 0\n   LOCAL nCol   := 115  // columnas que tiene el papel\n   LOCAL nFil   := 64   // filas que tiene el papel\n   LOCAL LstCol := 112  // ultima columna a utilizar\n   LOCAL LstFil := 59   // ultima fila para datos\n   LOCAL nFil1  := 0\n   LOCAL c, f, cMedio\n   LOCAL oFnt1, oFnt2, oFnt3, oPen1\n   *\n   LOCAL nPag   := 0\n   LOCAL oPrn\n   LOCAL cDate := STR( DAY(    DATE() )) + \" de \" + ;\n                       sp_mes( MONTH( DATE() ) )  + \" del \" +;\n                       str(Year(DATE()))\n   LOCAL TITULO:=\"LISTADO GENERAL DE REPUESTOS\"\n   LOCAL nLongTit, nMedio\n   LOCAL aPagos //:= {}\n\n   DBSELECTAREA(\"STOCK\")\n   nReg := RECNO()\n\n   PRINTER oPrn PrEVIEW MODAL\n\n      oPrn:setup()\n\n      IF EMPTY(oPrn:hDC)\n         MsgStop(\"Impresora no lista\",\"ATENTO\")\n         RETURN NIL\n      ENDIF\n\n      * características del papel\n      oPrn:SetPage( 10 )     // Papel A4==&gt;10\n      oPrn:SetLandScape()   // Orientacion echada\n\n      * Factor de resolución para columnas y filas\n      c:= oPrn:nHorzRes()/nCol\n      f:= oPrn:nVertRes()/nFil\n      cMedio := INT(LstCol / 2) + 1\n\n      DEFINE FONT oFnt1 NAME \"Sans Serif\" SIZE 0,-16 OF oPrn\n      DEFINE FONT oFnt2 NAME \"Sans Serif\" SIZE 0,-12 OF oPrn\n      DEFINE FONT oFnt3 NAME \"Sans Serif\" SIZE 0,-9 OF oPrn\n\n      DBGOTOP()\n      DO WHILE !EOF()\n\n         DO CASE\n\n            CASE Fil == 0\n\n               oPrn:Startpage()\n               Fil++\n               Fil++\n               Fil++\n               Fil++\n               nPag := oPrn:nPage\n               oPrn:Say(Fil*f, (cMedio - ( LEN(TITULO)/2 ))*c, TITULO, oFnt2)\n               Fil++\n               Fil++\n               oPrn:Say(Fil*f, (cMedio - ( LEN(oApp:membrete)/2 ))*c, oApp:membrete, oFnt2)\n               Fil++\n               Fil++\n               * Linea separador de titulo - encabezados\n               oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n               nFil1 := Fil\n               Fil++\n               * cabecera de columnas\n               oPrn:Say(Fil*f,  001*c, \"ANDM\"      , oFnt3 )  // ANDAMIO\n               oPrn:Say(Fil*f,  005*c, \"CASL\"      , oFnt3 )  // CASILLA\n               oPrn:Say(Fil*f,  011*c, \"CODIGO\"    , oFnt3 )  // CODIGO\n               oPrn:Say(Fil*f,  024*c, \"PROC\"      , oFnt3 )  // PROCEDENCIA\n               oPrn:Say(Fil*f,  030*c, \"NOMBRE\"    , oFnt3 )  // NOMBRE\n               oPrn:Say(Fil*f,  061*c, \"UNIDAD\"    , oFnt3 )  // UNIDAD DE MEDIDA\n               oPrn:Say(Fil*f,  069*c, \"PREC.VTA\"  , oFnt3 )  // PRECIO DE VENTA\n               oPrn:Say(Fil*f,  079*c, \"DSCTO\"     , oFnt3 )  // DESCUENTO EN VALOR\n               oPrn:Say(Fil*f,  089*c, \"IGV\"       , oFnt3 )  // IGV DE PRECIO-DCTO\n               oPrn:Say(Fil*f,  099*c, \"PREC.PUBLICO.\", oFnt3 )  // PRECIO FACTURADO\n               Fil++\n               oPrn:Say(Fil*f,  069*c, \" US$    \"  , oFnt3 )  // PRECIO DE VENTA\n               oPrn:Say(Fil*f,  079*c, \" US$ \"     , oFnt3 )  // DESCUENTO EN VALOR\n               oPrn:Say(Fil*f,  089*c, \"US$\"       , oFnt3 )  // IGV DE PRECIO-DCTO\n               oPrn:Say(Fil*f,  099*c, \"  US$     \", oFnt3 )  // PRECIO FACTURADO\n               Fil++\n               Fil++\n               * Linea separadora entre encabezados e impresion de datos\n               oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n               Fil++\n\n            CASE Fil &gt; LstFil\n               Fil++\n               * Linea de cierre de impresion de datos\n               oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n\n               * Linea verticales de impresion de datos\n               oPrn:Line(nFil1*f,000*c, Fil*f,000*c)\n               oPrn:Line(nFil1*f,005*c, Fil*f,005*c)\n               oPrn:Line(nFil1*f,009*c, Fil*f,009*c)\n               oPrn:Line(nFil1*f,022*c, Fil*f,022*c)\n               oPrn:Line(nFil1*f,028*c, Fil*f,028*c)\n               oPrn:Line(nFil1*f,059*c, Fil*f,059*c)\n               oPrn:Line(nFil1*f,067*c, Fil*f,067*c)\n               oPrn:Line(nFil1*f,077*c, Fil*f,077*c)\n               oPrn:Line(nFil1*f,087*c, Fil*f,087*c)\n               oPrn:Line(nFil1*f,097*c, Fil*f,097*c)\n               oPrn:Line(nFil1*f,LstCol*c, Fil*f,LstCol*c)\n\n               * Fin cuadro de impresion de datos\n               Fil++\n               oPrn:Say(Fil*f,  002*c, \"Pag. No. : \", oFnt3 )\n               oPrn:Say(Fil*f,  014*c, ALLTRIM(STR(nPag,10,0)), oFnt3 )\n               Fil++\n               oPrn:endpage()\n               Fil := 0\n\n            OTHER\n                oPrn:Say(Fil*f,  002*c, STOCK-&gt;ANDAMIO, oFnt3 )\n                oPrn:Say(Fil*f,  006*c, STOCK-&gt;CASILLA, oFnt3 )\n                oPrn:Say(Fil*f,  010*c, STOCK-&gt;CODIGO , oFnt3 )\n                oPrn:Say(Fil*f,  023*c, STOCK-&gt;ORIG   , oFnt3 )\n                oPrn:Say(Fil*f,  029*c, STOCK-&gt;NOMBRE , oFnt3 )\n                oPrn:Say(Fil*f,  060*c, STOCK-&gt;UNIDAD , oFnt3 )\n                oPrn:Say(Fil*f,  075*c, TRANSFORM(STOCK-&gt;XPRECIOV,\"@ 99,999.999\"), oFnt3,,,,1 )  // PRECIO DE VENTA\n                oPrn:Say(Fil*f,  085*c, TRANSFORM(STOCK-&gt;XDCTO   ,\"@ 99,999.999\"), oFnt3,,,,1 )  // DESCUENTO EN VALOR\n                oPrn:Say(Fil*f,  095*c, TRANSFORM(STOCK-&gt;XIGV    ,\"@ 99,999.999\"), oFnt3,,,,1 )  // IGV DE PRECIO-DCTO\n                oPrn:Say(Fil*f,  105*c, TRANSFORM(STOCK-&gt;XPRECIOF,\"@ 999,999.99\"), oFnt3,,,,1 )  // PRECIO FACTURADO\n\n                Fil++\n                SKIP\n\n         ENDCASE\n\n      ENDDO\n      *\n      Fil++\n      * Linea de cierre de impresion de datos\n      oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n\n      * Linea verticales de impresion de datos\n      oPrn:Line(nFil1*f,000*c, Fil*f,000*c)\n      oPrn:Line(nFil1*f,005*c, Fil*f,005*c)\n      oPrn:Line(nFil1*f,009*c, Fil*f,009*c)\n      oPrn:Line(nFil1*f,022*c, Fil*f,022*c)\n      oPrn:Line(nFil1*f,028*c, Fil*f,028*c)\n      oPrn:Line(nFil1*f,059*c, Fil*f,059*c)\n      oPrn:Line(nFil1*f,067*c, Fil*f,067*c)\n      oPrn:Line(nFil1*f,077*c, Fil*f,077*c)\n      oPrn:Line(nFil1*f,087*c, Fil*f,087*c)\n      oPrn:Line(nFil1*f,097*c, Fil*f,097*c)\n      oPrn:Line(nFil1*f,LstCol*c, Fil*f,LstCol*c)\n      * Fin cuadro de impresion de datos\n      Fil++\n      oPrn:Say(Fil*f,  002*c, \"Pag. No. : \", oFnt3 )\n      oPrn:Say(Fil*f,  014*c, ALLTRIM(STR(nPag,10,0)), oFnt3 )\n      oPrn:endpage()\n\n   ENDPRINT\n\n\n   oFnt1:End()\n   oFnt2:End()\n   oFnt3:End()\n   oPrn:SetPortrait()   // Orientacion parada\n   oPrn:End()\n\n   DBGOTOP()\n   DBGOTO( nReg )\n\nRETURN\n*\n\n/*\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄ¿\n³ANDM CASL CODIGO       PROC  NOMBRE                         UNIDAD  PREC.VTA  DSCTO     IGV       PREC.FACT.³³\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÙ\n  12  123 123456789012 12345 123456789012345678901234567890 1234567 12345.789 12345.789 12345.789 123457.89\n01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012\n          1         2         3         4         5         6         7         8         9         0         1\n*/\n/*\n01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012\n          1         2         3         4         5         6         7         8         9         0         1\n   ------------------------------------------------------------------------\n     ITEMS        DATOS\n   ------------------------------------------------------------------------\n    Cliente----: 12345678901 123456789012345678901234567890123456789012345\n    Dirección--: 123456789012345678901234567890123456789012345\n                 123456789012345678901234567890123456789012345\n                 123456789012345678901234567890123456789012345\n    Teléfono---: 123456789012\n\n    Loc.Entrega: 123456789012345678901234567890123456789012345\n    Dirección--: 123456789012345678901234567890123456789012345\n    Teléfono---: 123456789012\n   ------------------------------------------------------------------------\nNOM_CLIENT\" ,\"C\", 45,0},;   // nombre del cliente\nDIR_CLIENT\" ,\"C\", 45,0},;   // direccion1 del cliente\nDIR_CLIEN2\" ,\"C\", 45,0},;   // direccion2 del cliente\nDIR_CLIEN3\" ,\"C\", 45,0},;   // direccion3 del cliente\nLOC_CLIENT\" ,\"C\", 45,0},;   // local de entrega\nLOC_DIRCLI\" ,\"C\", 45,0},;   // direc. local de entrega\nTF1_CLIENT\" ,\"C\", 12,0},;   // telefono cliente\nTF2_CLIENT\" ,\"C\", 12,0} ;   // telefono local de entrega\n\n*/','',0,'AIA=','d4kjxc5o',1,0,'',376,0,0),(12704,2898,3,6,0,'87.16.238.162',1146679605,1,0,1,1,1,1,'','','Thank you, I will have a look at it.\n\nEMG','',0,'AIA=','qj0zwunf',1,0,'',6,0,0),(12705,2915,20,29,0,'88.149.161.209',1146680758,1,0,1,1,1,0,'','','Il problema però è che non ho sql server installato.\nGli archivi in questione mi sono stati forniti da uno studio.\n\nMarco','',0,'AIA=','19543e3r',1,0,'',29,0,0),(12706,2723,6,376,0,'201.240.112.167',1146680809,1,0,1,1,1,0,'','','En la clase printer tipo DOS, no hay problema de utilizar el COMMAND para setear el tamaño del papel en lineas, etc.\n\nEn tPrinter tambien se puede definir el papel con SetPage(). Yo lo utilizo constantemente y no he tenido problemas (excepto uno que acabo de consultar en el foro con el titulo de \"Bug en la calse Printer?\".\n\nSaludos\n\nArmando','',0,'AIA=','34nhglsk',1,0,'',376,0,0),(12707,2723,6,376,0,'201.240.112.167',1146680856,1,0,1,1,1,0,'','','En la clase printer tipo DOS, no hay problema de utilizar el COMMAND para setear el tamaño del papel en lineas, etc.\n\nEn tPrinter tambien se puede definir el papel con SetPage(). Yo lo utilizo constantemente y no he tenido problemas (excepto uno que acabo de consultar en el foro con el titulo de \"Bug en la clase Printer?\".\n\nSaludos\n\nArmando','',0,'AIA=','2umr542m',1,0,'',376,0,0),(12708,2706,6,376,0,'201.240.112.167',1146681344,1,0,1,1,1,0,'','Re: Impresion en forma continua con TPrinter','Mira yo utilizo SetPage() para setear el tamaño de papel.  Funciona correctamente con los tamaños de papel normalizados como A4, A5, A..., etc.\n\nAl usar tprinter creo que me ha aparecido un bug que ya he posteado al foro bajo el titulo de \"Bug en la clase Printer?\n\n\n[quote=&quot;jllinas&quot;:1n8mvrjq]Bueno.... vamos a ver con esto, pues Antonio ya dice  como hacerlo en otra parte del foro, pero no me funciona:\n\n- Impresion en forma continua, impresor de matrices\n\n- Uso de la clase TPrinter (....si, ya se, deberia utilizar la tDosPrn, pero es necesario en este caso, pues hay impresion de unos aspectos gráficos).\n\nEl lío ocurre con el salto de papel, pues el formulario de impresion no es tamaño carta (es más pequeño), y al hacer un ENDPAGE se sale una pagina tamaño carta.\n\nEn otra pregunta ya realizada a este respecto, Antonio sugiere utilizar la funcion PrnSetSize() antes de declarar el objeto TPrinter..... pero no me funciona!!!\n\nAlguien que lo haya conseguido, por favor que me heche una mano!\n\nAbrazos,[/quote:1n8mvrjq]','',0,'gA==','1n8mvrjq',1,0,'',376,0,0),(12709,2637,6,376,0,'201.240.112.167',1146681728,1,0,1,1,1,0,'','Re: Ayuda con la Clase TPRINTER por Favor','Como dice Antonio debes usar el comando que te ha indicado o, digo yo, utilizar la clase de impresión tipo DOS en el cual puede definir mediante COMMAND las ineas de impresión en pulgadas o milimetros que quieras.\n\n[quote=&quot;jbrita&quot;:1hxxykns]Bueno amigos, necesito su ayuda, como hago para q la clase TPrinter no haga el salto de pagina, ya q estoy imprimiendo en un formato de hoja continua de 7 cms de ancho y 15 de largo.\nles agradeceria su ayuda\nSaludos[/quote:1hxxykns]','',0,'gA==','1hxxykns',1,0,'',376,0,0),(12710,2835,20,6,0,'87.16.238.162',1146683525,1,0,1,1,1,1,'','','Devi disegnare i bitmaps all\'interno delle coordinate della cella, coordinate che puoi tranquillamente ricavare come fa il metodo oBrw:lEditCol().\n\nPer disegnare un bitmap sull\'altro basta che li disegni in modo trasparente.\n\nEMG','',0,'gA==','2yi8jsl6',1,0,'',6,0,0),(12711,2915,20,6,0,'87.16.238.162',1146683609,1,0,1,1,1,1,'','','Allora installa MSDE. Altrimenti temo non ci sia niente da fare.\n\nEMG','',0,'gA==','2qcfvgy5',1,0,'',6,0,0),(12712,2835,20,49,0,'62.13.172.78',1146687589,1,0,1,1,1,1,'','','sto iniziando a creare qualcosa :\na sinistra della finestra volevo mettere una barra bottoni oppure usare la classe outlook ma come fare per visualizzare i bottoni corrispondenti alle figure che ho in una cartella ?\nQuesti poi diventeranno dei pulsanti da fare cliccarci sopra e inserire nel bitmap come hai detto tu sopra ....','',0,'gA==','2847itfh',1,0,'',49,0,0),(12713,2842,3,49,0,'62.13.172.78',1146687694,1,0,1,1,1,1,'','','I wanted create it in visual mode','',0,'gA==','16jkm5rz',1,0,'',49,0,0),(12714,2869,6,41,0,'200.87.67.10',1146688821,1,0,1,1,1,0,'','','Holas,\n\nbueno segun se, si haces una consulta sobre una tabla sin realizar un join, es decir sin que intervenga otra tabla, lo que ADS nos devuelve es un cursor dinamico y por eso que ARC te da las cabeceras en mayusculas, pero en tu aplicacion xHarbour tu optienes ese cursor dinamico en la tabla temporal, aqui lo interesante, podriamos probar de realizar modificaciones sobre ese cursor (resultado) y deberiamos ver que las modifiacciones seran reflejadas en la tabla original, no pasara esto cuando la consulta se haga sobre mas de una tabla donde el resultado sera un cursor estatico.\n\nCon esto da que pensar que si ADS con una consulta estatica tan solo aplica un filtro sobre la tabla objeto ( Como lo dice fernando )\n\nCreo que deberia ayudarnos algun guru de ADS\n\nsaludos\n\nMarcelo','',0,'gA==','2fn0938r',1,0,'',41,0,0),(12715,2835,20,6,0,'87.16.238.162',1146690484,1,0,1,1,1,1,'','','Il comando DEFINE BITMAP OF OUTLOOK supporta la clausola BITMAP che ti consente di specificare il file BMP da visualizzare sul pulsante.\n\nAltrimenti puoi utilizzare dei BTNBMP con la clausola FILE.\n\nEMG','',0,'gA==','3plwd0cw',1,0,'',6,0,0),(12716,2898,3,6,0,'87.16.238.162',1146690594,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:2068golv]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define OFN_HIDEREADONLY     0x4\n#define OFN_ALLOWMULTISELECT 0x200\n#define OFN_EXPLORER         0x80000\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL cFile &#58;= CGETFILE&#40; &quot;*&#46;*&quot;, &quot;Test&quot;, , , , , NOR&#40; OFN_ALLOWMULTISELECT, OFN_EXPLORER, OFN_HIDEREADONLY &#41; &#41;\n\n    LOCAL aFile &#58;= &#123;&#125;\n\n    LOCAL cPath\n\n    IF !EMPTY&#40; cFile &#41;\n        cPath = LEFT&#40; cFile, AT&#40; CHR&#40; 0 &#41;, cFile &#41; - 1 &#41;\n\n        IF RIGHT&#40; cPath, 1 &#41; != &quot;\\&quot;; cPath += &quot;\\&quot;; ENDIF\n\n        WHILE &#46;T&#46;\n            cFile = SUBSTR&#40; cFile, AT&#40; CHR&#40; 0 &#41;, cFile &#41; + 1 &#41;\n            IF LEFT&#40; cFile, 1 &#41; = CHR&#40; 0 &#41;; EXIT; ENDIF\n            AADD&#40; aFile, cPath + LEFT&#40; cFile, AT&#40; CHR&#40; 0 &#41;, cFile &#41; - 1 &#41; &#41;\n        ENDDO\n\n        IF LEN&#40; aFile &#41; = 1\n            aFile&#91; 1 &#93; = LEFT&#40; aFile&#91; 1 &#93;, LEN&#40; aFile&#91; 1 &#93; &#41; - 1 &#41;\n        ENDIF\n    ENDIF\n\n    WQOUT&#40; aFile &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &lt;Windows&#46;h&gt;\n#include &lt;CommDlg&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n#include &lt;HbApi&#46;h&gt;\n\nstatic far WORD wIndex;\nstatic far char Title&#91;&#93; = &quot;Select the file&quot;;\n\n\nHB_FUNC&#40; CGETFILE &#41;          // &#40; cFileMask, cTitle, nDefaultMask, ;\n                             // cInitDir, lSave, lLongNames, nFlags, ;\n                             // cIniFile &#41;  --&gt; cFileName\n&#123;\n   OPENFILENAME ofn;\n   LPSTR pFile, pFilter, pDir, pTitle;\n   WORD w = 0, wLen;\n   BYTE bIndex = &#40; BYTE &#41; hb_parni&#40; 3 &#41;;\n   BOOL bSave = IF&#40; PCOUNT&#40;&#41; &gt; 4 &amp;&amp; ISLOGICAL&#40; 5 &#41;, hb_parl&#40; 5 &#41;, FALSE &#41;;\n   BOOL bLongNames = hb_parl&#40; 6 &#41;;\n   DWORD dwFlags = IF&#40; PCOUNT&#40;&#41; &gt; 6 &amp;&amp; ISNUM&#40; 7 &#41;, hb_parnl&#40; 7 &#41;, 2060 &#41;;   \n\n   if&#40; PCOUNT&#40;&#41; &lt; 1 &#41;\n   &#123;\n      hb_retc&#40; &quot;&quot; &#41;;\n       return;\n   &#125;\n\n   // alloc for title\n\n   pTitle = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; PCOUNT&#40;&#41; &gt; 1 &amp;&amp; ISCHAR&#40; 2 &#41; &#41;\n   &#123;\n      wLen   = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 2 &#41; &#41;;\n      _bcopy&#40; pTitle, hb_parc&#40; 2 &#41;, wLen &#41;;\n      * &#40; pTitle + wLen &#41; = 0;\n\n   &#125;\n   else\n   &#123;\n      pTitle  = Title;\n   &#125;\n\n   // alloc for initial dir\n\n   pDir = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; PCOUNT&#40;&#41; &gt; 3 &amp;&amp; ISCHAR&#40; 4 &#41; &#41;\n   &#123;\n      wLen  = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 4 &#41; &#41;;\n      _bcopy&#40; pDir, hb_parc&#40; 4 &#41;, wLen &#41;;\n      * &#40; pDir + wLen &#41; = 0;\n   &#125;\n   else\n   &#123;\n      * &#40; pDir &#41; = 0;\n   &#125;\n\n   // alloc for file\n\n   if &#40; dwFlags &amp; OFN_ALLOWMULTISELECT &#41;\n      pFile = &#40; LPSTR &#41; hb_xgrab&#40; 32768 &#41;;\n   else\n      pFile = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; PCOUNT&#40;&#41; &gt; 7 &amp;&amp; ISCHAR&#40; 8 &#41; &#41;\n   &#123;\n      wLen = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 8 &#41; &#41;;\n      _bcopy&#40; pFile, hb_parc&#40; 8 &#41;, wLen &#41;;\n   &#125;\n   else\n   &#123;\n      wLen = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 1 &#41; &#41;;\n      _bcopy&#40; pFile, hb_parc&#40; 1 &#41;, wLen &#41;;\n   &#125;\n   * &#40; pFile + wLen &#41; = 0;\n\n   // alloc for mask\n\n   pFilter = &#40; LPSTR &#41; hb_xgrab&#40; 400 &#41;;\n   wLen    = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 398, hb_parclen&#40; 1 &#41; &#41;;\n   _bcopy&#40; pFilter, hb_parc&#40; 1 &#41;, wLen &#41;;\n   * &#40; pFilter + wLen &#41; = 0;\n\n   while&#40; * &#40; pFilter + w &#41; &#41;\n   &#123;\n      if&#40; * &#40; pFilter + w &#41; == \'|\' &#41;\n      &#123;\n         * &#40; pFilter + w &#41; = 0;\n         if &#40; PCOUNT&#40;&#41; &lt; 8 &#41;\n            * &#40;pFile&#41; = 0;\n      &#125;\n      w++;\n   &#125;\n\n   * &#40; pFilter + wLen  &#41; = 0;\n   * &#40; pFilter + wLen + 1 &#41; = 0;\n\n   _bset&#40; &#40; char * &#41; &amp;ofn, 0, sizeof&#40; OPENFILENAME &#41; &#41;;\n\n   ofn&#46;lStructSize     = sizeof&#40; OPENFILENAME &#41;;\n   ofn&#46;hwndOwner       = GetActiveWindow&#40;&#41;;\n   ofn&#46;lpstrFilter     = pFilter;\n   ofn&#46;lpstrFile       = pFile;\n   ofn&#46;lpstrInitialDir = pDir;\n   ofn&#46;lpstrTitle      = pTitle;\n   ofn&#46;lpstrCustomFilter = 0; // NIL;\n   ofn&#46;nFilterIndex    = bIndex ? bIndex&#58; 1;\n   ofn&#46;nMaxFile        = dwFlags &amp; OFN_ALLOWMULTISELECT ? 32768 &#58; 128;\n   ofn&#46;lpstrFileTitle  = 0; // NIL;\n   ofn&#46;Flags           = OFN_PATHMUSTEXIST | OFN_NOCHANGEDIR |\n                        IF&#40; bSave, OFN_HIDEREADONLY, 0 &#41; |\n                        IF&#40; bLongNames, OFN_LONGNAMES, 0 &#41;;\n\n   if&#40; dwFlags &#41;\n      ofn&#46;Flags = dwFlags;\n\n   wIndex = 0;\n\n   if&#40; bSave &#41;\n   &#123;\n      if&#40; GetSaveFileName&#40; &amp;ofn &#41; &#41;\n         hb_retc&#40; pFile &#41;;\n      else\n         hb_retc&#40; &quot;&quot; &#41;;\n   &#125;\n   else\n   &#123;\n      if&#40; GetOpenFileName&#40; &amp;ofn &#41; &#41;\n         if &#40; dwFlags &amp; OFN_ALLOWMULTISELECT &#41;\n            hb_retclen&#40; pFile, 32768 &#41;;\n         else\n            hb_retc&#40; pFile &#41;;\n      else\n         hb_retc&#40; &quot;&quot; &#41;;\n   &#125;\n\n   wIndex = &#40; WORD &#41; ofn&#46;nFilterIndex;\n\n   hb_xfree&#40; pFilter &#41;;\n   hb_xfree&#40; pFile &#41;;\n   hb_xfree&#40; pDir &#41;;\n   hb_xfree&#40; pTitle &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:2068golv]\n\nEMG','',0,'AIA=','2068golv',1,0,'',6,0,0),(12717,2835,20,49,0,'62.13.172.78',1146692934,1,0,1,1,1,1,'','','ecco perchè non mi funzionava io ho tuttii simboli in gif o png','',0,'AIA=','30oi63u1',1,0,'',49,0,0),(12718,2900,3,497,0,'212.127.159.218',1146697635,1,0,1,0,1,0,'','','Great TNHOE,\n\nIt works perfectly.\nThanks,\n\nJules','',0,'AIA=','3c1gbtk1',1,0,'',497,0,0),(12719,2918,4,557,0,'222.166.160.85',1146697758,1,0,1,1,1,0,'','Newbie, how to start?','Hi,\n\nI have just found FWPPC and Harbour.  It looks cool. <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nI know VFP and I want to start writing PPC program by FWPPC.\n\nI could not find any trial version of FWPPC.\n\nHow can I start doing FWPPC?  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nThanks,\n\nlaiyilam','',0,'AIA=','3jjrgo7u',1,0,'',557,0,0),(12720,2918,4,2,0,'87.218.146.130',1146723409,1,0,1,1,1,1,'','','Laiyilam,\n\nWe don\'t provide a trial version of FWPPC. You may download several samples we provide from <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwppc.html\">http://www.fivetechsoft.com/english/fwppc.html</a><!-- m -->. Also here we send you a clients management with full source code:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0204f05014/Client.zip.html\">http://hyperupload.com/download/0204f05 ... t.zip.html</a><!-- m -->\n\nFWPPC is being a great success because its very easy to use and the results are very professional.\n\nThanks for your interest in our products,','',0,'AIA=','o9kuzo9s',1,0,'',2,0,0),(12721,2912,7,2,0,'87.218.146.130',1146723946,1,0,1,1,1,1,'','','Hola Mike,\n\nNo, no hay una versión de prueba de FWPPC, sin embargo puedes descargar ejemplos ya construidos desde <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwppc.html\">http://www.fivetechsoft.com/english/fwppc.html</a><!-- m -->. Desde aqui puedes descargar una gestión de clientes, con código fuente incluida, desarrollada por Carles Aubia: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0204f05014/Client.zip.html\">http://hyperupload.com/download/0204f05 ... t.zip.html</a><!-- m --> \n\nFWPPC está siendo un gran éxito por su facilidad de uso y por lo resultados profesionales y muy rápidos que se consiguen.\n\nGracias por tu interés en nuestros productos,','',0,'AIA=','1vb8mmfc',1,0,'',2,0,0),(12722,2919,3,551,0,'82.90.89.191',1146724613,1,0,1,1,1,0,'','Folder XP aspect with FWH 2.7','Hi, \n\nI have noticed that if you use a folder with WindowsXP.manifest, the folder dialogs get a white background color.\n\nTo test it, it\'s enough to add the sentence\n\n1 24 \"XP.man\"\n\nto the original fwh\\samples\\testfld7.rc  and then compile testfld7.prg.\n\n(\"xp.man\" is the file WindowsXP.manifest renamed into XP.man, I need to do it for some other reasons).\n\nIf you don\'t use the .manifest file, the folder is gray but however there are some labels (i.e. radio group labels) that remains black on white.\n\nHowever, I need folders with the normal aspect (gray background).\n\nIs there anyway to make it work? I tried to patch the tfolder class, without success <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nbest regards,\nGiovi Verrua','',0,'AIA=','2d81cygj',1,0,'',551,0,0),(12723,2919,3,6,0,'82.57.159.130',1146724961,1,0,1,1,1,1,'','Re: Folder XP aspect with FWH 2.7','[quote=&quot;giobbi&quot;:28crt0z6]However, I need folders with the normal aspect (gray background).[/quote:28crt0z6]\n\nThis *is* the standard appearence of a themed folder. Please check the one in the desktop properties.\n\nEMG','',0,'gA==','28crt0z6',1,0,'',6,0,0),(12724,2850,3,2,0,'87.218.146.130',1146726234,1,0,1,1,1,1,'','','Fco,\n\n&gt; (How can I attach files in this newsgroup format?) \n\nYou may upload the files to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and then copy here the link they provide you.','',0,'gA==','2ach8ake',1,0,'',2,0,0),(12725,2913,6,2,0,'87.218.146.130',1146727001,1,0,1,1,1,1,'','','Mike,\n\nSupongo que el error te lo dá el compilador de recursos de Microsoft. Que error te da ? Has probado a compilarlo con el compilador de recursos de Borland ?','',0,'gA==','1yy2dha6',1,0,'',2,0,0),(12726,2916,2,2,0,'87.218.146.130',1146727347,1,0,1,1,1,1,'','','Puedes revisar los ejemplos que hay en samples\\chart2fx\\...\n\nTambien tienes más ejemplos en samples\\tgraph (en este caso sin tener que usar un VBX).\n\n[url=http&#58;//imageshack&#46;us:5e9rqula][img:5e9rqula]http&#58;//img111&#46;imageshack&#46;us/img111/5446/graphs6qg&#46;jpg[/img:5e9rqula][/url:5e9rqula]','',0,'GA==','5e9rqula',1,0,'',2,0,0),(12727,2920,3,15,0,'203.79.155.24',1146729690,1,0,1,1,1,0,'','TSButton problem within xHarbour 0.99.61','Hello All,\n\nI use xHarbour 0.99.4 and recompile TSButton v5.0 to LIB within FWH26 SEP version work find.\n\nNow, I use xHarbour 0.99.61 recompile LIB file to link same code of my AP. I got error message below:\nError BASE/1132 Bound error: array access\n\nDo you have any suggestion or idea?\n\nThank you.\n\nRegards,\n\nRichard','',0,'GA==','2cp2vxwr',1,0,'',15,0,0),(12728,2915,20,29,0,'88.149.161.209',1146732776,1,0,1,1,1,0,'','','Sai se esiste una versione Free di MSDE e dove scaricarla ?\nHo cercato su google ma mi esce di tutto.\n\nMarco','',0,'GA==','1g0xaw0l',1,0,'',29,0,0),(12729,2921,20,532,0,'84.222.124.131',1146734119,1,0,1,1,1,0,'','Radio','Ciao a tutti.  \n\nAvrei bisogno di cambiare Font e dimensione delle scritte\n\"Uno\" e \"Due\".\n\nSembra che RADIO non accetti Font, mi da subito errore...  \n\n@ 6.5, 28 RADIO oRbx VAR nRbx OF oDlg;\n             PROMPT \"Uno\", \"Due\";\n             SIZE 46,13.5 \n\nGrazie.','',0,'GA==','2zz700lg',1,0,'',532,0,0),(12730,2921,20,6,0,'82.57.159.130',1146734530,1,0,1,1,1,1,'','Re: Radio','Eccoti un esempio funzionante:\n\n[code:3mls8ski]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oFnt, oRad, nRad\n\n    LOCAL i\n\n    DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -20\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 RADIO oRad VAR nRad;\n           PROMPT &quot;One   &quot;, &quot;Two   &quot;\n\n    FOR i = 1 TO LEN&#40; oRad&#58;aItems &#41;\n        oRad&#58;aItems&#91; i &#93;&#58;oFont = oFnt\n    NEXT\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RELEASE FONT oFnt\n\n    RETURN NIL[/code:3mls8ski]\n\nEMG','',0,'AIA=','3mls8ski',1,0,'',6,0,0),(12731,2915,20,6,0,'82.57.159.130',1146734686,1,0,1,1,1,1,'','','[url:3rlpjvtw]http&#58;//www&#46;microsoft&#46;com/downloads/details&#46;aspx?FamilyId=413744D1-A0BC-479F-BAFA-E4B278EB9147&amp;displaylang=it[/url:3rlpjvtw]\n\nEMG','',0,'EA==','3rlpjvtw',1,0,'',6,0,0),(12732,2922,3,6,0,'82.57.159.130',1146737843,1,0,1,1,1,1,'','TGet PICTURE bug','This is the sample. The value 10 is not showed:\n\n[code:22ti1ybh]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL nVar &#58;= 10\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET nVar;\n           PICTURE &quot;@E 999&#46;99 %&quot;;\n           RIGHT\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:22ti1ybh]\n\nEMG','',0,'AIA=','22ti1ybh',1,0,'',6,0,0),(12733,2916,2,517,0,'200.195.2.246',1146739363,1,0,1,1,1,0,'','','Teria Como Mandar Exemplos, ou manual, pois não sei como Passar os Valores','',0,'AIA=','2p8ys0ry',1,0,'',517,0,0),(12734,2922,3,6,0,'82.57.159.130',1146741897,1,0,1,1,1,1,'','Re: TGet PICTURE bug','Once again, it is a xHarbour problem, not a FWH one. Already reported to the xHarbour developers mailing-list.\n\nEMG','',0,'AIA=','26v8fvne',1,0,'',6,0,0),(12735,2916,2,2,0,'87.218.146.153',1146744280,1,0,1,1,1,1,'','','Si vais a usar el VBX chartfx, entonces podeis encontrar documentación den Delphi, en sus primeras versiones.','',0,'AIA=','q7nffe3l',1,0,'',2,0,0),(12736,2911,6,52,0,'200.127.195.89',1146746297,1,0,1,1,1,1,'','','Podrías poner la solución?\n\nGracias.','',0,'AIA=','2eukhkct',1,0,'',52,0,0),(12737,2923,6,52,0,'200.127.195.89',1146746780,1,0,1,1,1,1,'','Array y NIL','Estimados, \n\n[code:2laj13z7]function main&#40;&#41;\n   LOCAL aVector&#58;= &#123;&#125;\n   LOCAL nFila&#58;= 0\n   LOCAL nColumna&#58;= 0\n\n   PUBLIC aMatriz&#58;= &#123;&#125;\n\n   FOR nFila&#58;= 1 TO 10\n      aVector&#58;=&#123;&#125;\n      ASize&#40; aVector, 4&#41;\n      AAdd&#40; aMatriz, aVector &#41;\n   NEXT nFila\n\n   for nFila&#58;= 1 to 10\n\n       for nColumna&#58;= 1 to 4\n          if aMatriz&#91; nFila &#93;&#91; nColumna &#93; == NIL\n             ? &quot;es nil&quot;, nFila, nColumna                         // Renglon A\n          else\n             ? &quot;Fila&quot;, nFila, ;\n                &quot;Columna&quot;, nColumna,;\n                &quot;valor&quot;,  aMatriz&#91; nFila &#93;&#91; nColumna &#93;\n          endif\n   next nFila\n\nreturn &#40; nil &#41;[/code:2laj13z7]\nBueno, aca va mi pregunta, porque el código de arriba, cuando nFila = 1 y nColumna = 1 el valor el NIL ( renglon A ) y en cambio todos los demas valores son diferentes a nil?\n\nGracias.','',0,'AIA=','2laj13z7',1,0,'',52,0,0),(12738,2923,6,492,0,'201.127.103.202',1146751585,1,0,1,1,1,1,'','','Hola, que valor te devuelve ?\n\nOye, no veo el next de nColumna     <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nDe rapido hice esto, y todos me devuelven NIL :\n\nLOCAL nQ, nW, aDmArrX := {}\n\nFOR nQ := 1 TO 10\n	AaDd( aDmArrX, Array(4) )\nNEXT\nFOR nQ := 1 TO Len( aDmArrX )\n	FOR nW := 1 TO Len( aDmArrX[nQ] )\n		? IIF( aDmArrX[nQ,nW] == NIL, \"es nil\", \"no es nil\" )\n	NEXT\nNEXT\n\n\nSaludos','',0,'','199vozuz',1,0,'',492,0,0),(12739,2923,6,52,0,'200.127.195.89',1146751989,1,0,1,1,1,1,'','','Amigo,\n\nTenes razon con respecto al Next de columna.\n\nAsi como pones el ejemplo si funciona, pero fijate que es diferente al mio, ya que uso un vector redimencionado, de ultima si me haces el favor, copia este codigo ( ahora le pongo el next que faltaba) y probalo. \n\nGracias.\n\n[code:2a7c5tdh]function main&#40;&#41; \n   LOCAL aVector&#58;= &#123;&#125; \n   LOCAL nFila&#58;= 0 \n   LOCAL nColumna&#58;= 0 \n\n   PUBLIC aMatriz&#58;= &#123;&#125; \n\n   FOR nFila&#58;= 1 TO 10 \n      aVector&#58;=&#123;&#125; \n      ASize&#40; aVector, 4&#41; \n      AAdd&#40; aMatriz, aVector &#41; \n   NEXT nFila \n\n   for nFila&#58;= 1 to 10 \n\n       for nColumna&#58;= 1 to 4 \n          if aMatriz&#91; nFila &#93;&#91; nColumna &#93; == NIL \n             ? &quot;es nil&quot;, nFila, nColumna                         // Renglon A \n          else \n             ? &quot;Fila&quot;, nFila, ; \n                &quot;Columna&quot;, nColumna,; \n                &quot;valor&quot;,  aMatriz&#91; nFila &#93;&#91; nColumna &#93; \n          endif \n      nColumna\n   next nFila \n\nreturn &#40; nil &#41;[/code:2a7c5tdh]','',0,'AIA=','2a7c5tdh',1,0,'',52,0,0),(12740,2776,6,102,0,'80.39.181.141',1146752464,1,0,1,1,1,1,'','CANCEL EN BTNBMP','Antonio,\nFunciona bien muchas gracias.\nAhora me gustaria saber como puedo asignar una tecla aceleradora al mismo tBTNBMP\nUn saludo\n\n[quote=&quot;Antonio Linares&quot;:379xmlgd]José Martin,\n\nTienes que asignar el dato lCancel del TBtnBmp, aquí tienes un ejemplo funcionando correctamente:\n[code:379xmlgd]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cText &#58;= Space&#40; 10 &#41;, oBtn\n   \n   DEFINE DIALOG oDlg TITLE &quot;Test&quot;\n   \n   @ 1, 1 GET cText VALID ! Empty&#40; cText &#41;\n   \n   @ 40, 25 BTNBMP oBtn FILE &quot;exit2&#46;bmp&quot; SIZE 15, 15 ACTION oDlg&#58;End&#40;&#41;\n   \n   oBtn&#58;lCancel = &#46;t&#46;\n   \n   ACTIVATE DIALOG oDlg CENTER\n   \nreturn nil   \n[/code:379xmlgd][/quote:379xmlgd]','',0,'gIA=','379xmlgd',1,0,'',102,0,0),(12741,2776,6,2,0,'87.218.146.153',1146754366,1,0,1,1,1,1,'','','José,\n\nLa clase TBtnBmp no admite aceleradores. En su lugar puedes usar un botón TButtonBmp que si los soporta. Resisa samples\\TestBuBm.prg','',0,'gIA=','3pn32f4g',1,0,'',2,0,0),(12742,2564,3,167,0,'207.119.126.13',1146754771,1,0,1,1,1,1,'','','Rick,\n\nI have created a pure xharbour / FWH application on the web.\n\nYou may view it at\n\n<!-- m --><a class=\"postlink\" href=\"https://207.119.126.13\">https://207.119.126.13</a><!-- m -->\n\nlogin as \"dutto\" or \"sunri\" with a password of \"x\"\n\nThis is a combination of HTML / Java Script which was developed by artists and a back end MS-Sql server database, an xHarbour/FWH application, and a very simple .net request / response handler which handles the web requests and deliveries.\n\nOriginally I build the application as a pure cgi program (very easy to do - I\'m using the same code that I build into libraries which I used in 1995 with CA-Clipper ).  But, the process was too slow by having the cgi application constantly load, connect to the database, then unload.\n\nNow, the application runs as an NT service and is constantly connected to the database - 1 connection.  Each web request takes a second to service.  If too many connections are hitting this single threaded application, then I simply invoke a 2nd instance of my harbour application, thus, doubling the throughput.\n\nFinally, security is impeckable, because there is no connection from the DMZ .net application to the sql server database, or anywhere else ( this is a banking application ).  The harbour application looks for a request - then goes to sleep for 100 milliseconds, over and over.\n\nHope this invokes some ideas for you.','',0,'gIA=','3bq38i7i',1,0,'',167,0,0),(12743,2564,3,26,0,'84.255.245.173',1146757603,1,0,1,1,1,1,'','','Groovy!\n\nI noticed that you use pdfFactory - is this Enterprise version?\nAre PDF files indeed generated in real-time?\n\nI also like your idea of running another instance of same app in\ncase of high-load.\nIf not secret, what kind of HW is your server?\n\nRoman','',0,'gIA=','2v85xv2e',1,0,'',26,0,0),(12744,2841,3,213,0,'72.177.228.25',1146757734,1,0,1,1,1,0,'','','Antonio,\n\nI don\'t know of anywhere you can download a trial version.  Is there somewhere I can send you my version for you to review?  I can zip up the setup and run disks, they are about 600mb &amp; 300mb (zipped).\n\nThanks,\nRandal Ferguson','',0,'gIA=','3s7atope',1,0,'',213,0,0),(12745,2841,3,2,0,'87.218.146.153',1146757916,1,0,1,1,1,1,'','','Yes, you may email them to me as ZIP files. Thanks,','',0,'gIA=','vaimpdjr',1,0,'',2,0,0),(12746,2924,6,49,0,'213.82.134.66',1146758166,1,0,1,1,1,1,'','Drag and drop with images','Someone can send me an example to how make a bitmap where I can insert another images ( drag and drop) move  the images and save the bitmap..\n\nThanks','',0,'gIA=','1lvuz269',1,0,'',49,0,0),(12747,2776,6,228,0,'201.245.222.85',1146759725,1,0,1,1,1,1,'','Yo lo hago asi...','Amigo no se si sea lo que estas buscando... Pero si creas tus dialogos con recursos lo puedes hacer anteponiendo un &amp; antes de la letra de cada boton.... y cuando haces alt+laletra, toma el foco el boton respectivo luego presionas la tecla Enter. \n\nEspero te sirva','',0,'gIA=','2t5wyh06',1,0,'',228,0,0),(12748,2925,3,29,0,'88.149.161.209',1146760078,1,0,1,1,1,0,'','Has anyone the fwcalendar or tcalendar class source code ?','As subject.\n\nCould anyone send me it to my private mail (<!-- e --><a href=\"mailto:m.turco@softwarexp.co.uk\">m.turco@softwarexp.co.uk</a><!-- e -->) ?\n\nThanks in advance\n\nBest Regards,\n\nMarco','',0,'gIA=','2ob1mq85',1,0,'',29,0,0),(12749,2564,3,167,0,'207.119.126.13',1146762498,1,0,1,1,1,1,'','','The server is a Pentium II - about 600 mhz, NT Windows 2000 Server, IIS 5.0.\n\nThe pdf-factory is a demo version which I use in my demo site.  The actual clients must purchase a 1 user version.\n\nThe service is running under a user account with proper NT security, and the user\'s default printer is pdf-factory.  That seemed like the only way I could figure out how to print from a service.\n\nThe \"normal\" service loads as \"LOCAL SYSTEM\" user and I could not figure out how to set a default printer for the loca system account.','',0,'gIA=','3bxayb6s',1,0,'',167,0,0),(12750,2926,2,248,0,'212.145.179.68',1146765934,1,0,1,1,1,0,'','Terminar Proceso.','Hola, ¿Sabeis alguna forma de terminar un proceso que se esta ejecutando en windows desde fivewin?','',0,'gIA=','2tgv4krv',1,0,'',248,0,0),(12751,2927,3,213,0,'72.177.228.25',1146767111,1,0,1,1,1,0,'','TGet Error','All,\n\nI have a customer that is getting a strange error message for no apparent reason.  The following is some text from the error.log.  Using FWH 2.7 Apr 2006 and xHarbour.  The user is using a new Acer Laptop with XP Home SP2.  They are getting this message several times a day.  Any idea what could be causing this?\n\n\nApplication\n===========\n   Path and name: C:\\CARC\\carcwin.exe (32 bits)\n   Size: 4,004,864 bytes\n   Time from start: 0 hours 16 mins 6 secs \n   Error occurred at: 05/04/06, 12:19:42\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: GOUP\n   Args:\n\nStack Calls\n===========\n   Called from GOUP(0)\n   Called from TGET:HSCROLL(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TGET:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(276)\n\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   GOUP\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    N    0\n   TGET:HSCROLL\n     Param   1:    N    0\n     Param   2:    N    0\n     Local   1:    O    Class: TGET\n     Local   2:    N    0\n     Local   3:    N    0\n     Local   4:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    276\n     Param   2:    N    0\n     Param   3:    N    0\n   TGET:HANDLEEVENT\n     Param   1:    N    276\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TGET\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    276\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    104\n     Local   1:    O    Class: TGET\n   WINRUN\n     Param   1:    N    394166\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    O    Class: TICON\n     Local   3:    O    Class: TBAR\n     Local   4:    A    Len:   21','',0,'gIA=','bf36zlpd',1,0,'',213,0,0),(12752,2927,3,2,0,'87.218.146.153',1146767282,1,0,1,1,1,1,'','','Randal,\n\nDoes the Get has scrollbars ?','',0,'gIA=','7hi414bl',1,0,'',2,0,0),(12753,2926,2,248,0,'212.145.179.68',1146767522,1,0,1,1,1,0,'','Terminar Proceso.','Ya lo tengo con la utilidad de windows:\n   TASKKILL /F /IM nombreprocesoaterminar','',0,'gIA=','d0h0kcm5',1,0,'',248,0,0),(12754,2927,3,213,0,'72.177.228.25',1146767797,1,0,1,1,1,0,'','','Antonio,\n\nNo.  There are several gets on a folder in a mdi child window.\n\nThanks,\nRandal Ferguson','',0,'gIA=','3ooy0m5a',1,0,'',213,0,0),(12755,2928,6,9,0,'85.59.64.38',1146770553,1,0,1,1,1,1,'','nSerialHD','Vengo utilizando esta función para leer la serie del disco duro. Mi sorpresa ha sido, cuando ha cambiado el número de un dia para otro.\nAyer me daba 4589615  y  hoy  4589639.- ¿Hay alguna razón lógica?','',0,'gIA=','2v28st4v',1,0,'',9,0,0),(12756,2923,6,492,0,'201.127.103.202',1146771415,1,0,1,1,1,1,'','','Probado !!!\n\nAsi como lo enviaste, ya salen todos los elementos en NIL !!!!\n\n\nAcerca de lo otro, es igual, puedes cambiar el numero de elementos de cada nivel, segun lo necesites, el detalle seria, si lo vas a definir desde el inicio o sobre la marcha.\n\nTe comento, por que yo uso en muchos browses, la informacion desde arrays y en algunos casos desde las dbfs, aplicando arreglos de varios niveles.\n\nSaludos','',0,'gIA=','1oxlicnk',1,0,'',492,0,0),(12757,2923,6,52,0,'200.127.195.89',1146771665,1,0,1,1,1,1,'','','ok, gracias pibe.\n\nNo me da a mi, voy a ver que pasa.','',0,'gIA=','3v51fx8h',1,0,'',52,0,0),(12758,2928,6,362,0,'200.168.52.156',1146773390,1,0,1,1,1,1,'','','LOCAL nSerie, cClave\n \nnSerie    := ALLTRIM( STR( nSerialHD( \"C:\\\" ) ) )\ncClave    := ENCRYPT( nSerie,\"HD\" )','',0,'gIA=','ydbwdoin',1,0,'',362,0,0),(12759,2929,6,492,0,'201.127.103.202',1146773465,1,0,1,1,1,1,'','Ejecutar Flash en Pestaña, cuando èsta se genere.','Hola a todos\n\nHe logrado ejecutar archivos flash en dialogos y pestañas, pero al momento de agregar una pestaña extra al folder, no se deja.\n\nYa probe con oFold:AddItem( \"nuevo\", cRscNm ), y en tal dialogo esta definido el control, pero no, me manda error.\n\nAlguna sugerencia ?\n\nSaludos y Gracias','',0,'gIA=','yqspdm5b',1,0,'',492,0,0),(12760,2905,6,362,0,'200.168.52.156',1146773793,1,0,1,1,1,1,'','','Copyright 2000 José Lalin Ferreiro\n\nAlguién tiene el Sitio de el?\n\no su correo?\n\nGracias.','',0,'gIA=','2plvqm12',1,0,'',362,0,0),(12761,2930,2,341,0,'200.127.97.186',1146776431,1,0,1,1,1,0,'','Error en FW24 o superior  (pbmpwith)','Estimados Colegas\n\nTengo unos controles  de canalfive que me funcionan perfectos con Fw22,\npero me tiran error con FW24  error pbmpwith, se puede solucionar\nde alguna manera.\n\nDesde ya muchas gracias\nDante \n<!-- e --><a href=\"mailto:Devwin2004@yahoo.com.ar\">Devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gIA=','39vbzzmv',1,0,'',341,0,0),(12762,2931,6,341,0,'200.127.97.186',1146776692,1,0,1,1,1,0,'','Como puedo poner el reloj analogico de windows en dialogo','Estimados Colegas\n\nHay alguna manera de insertar el reloj anlalogico de Windows (agujas)\ndesde ya muchas gracias\n\nDante\n<!-- e --><a href=\"mailto:Devwin2004@yahoo.com.ar\">Devwin2004@yahoo.com.ar</a><!-- e -->','',0,'gIA=','3p2ftk4a',1,0,'',341,0,0),(12763,2911,6,171,0,'71.232.193.197',1146777273,1,0,1,1,1,0,'','','Goosfancito, \ncomo dije en el post anterior, solo tenia que añadir MENUINFO 0\n\nDEFINE WINDOW oWndChild MDICHILD OF oWnd;\n      NOBORDER NOCAPTION ;\n		FROM 0,0 TO 47.80, 120;\n		MENU MainMenu() ;\n		MENUINFO 0  // Esto era lo que faltaba','',0,'gIA=','389gtvhu',1,0,'',171,0,0),(12764,2932,2,203,0,'200.107.2.21',1146791167,1,0,1,1,1,1,'','AYUDA CON TSBROWSE','Hola amigos del foro\n\nTengo un Dialogo para facturar en el cual utilizo tsbrowse, el primer campo del dialogo es el cliente el el cual valido la existencia del mismo\nluego otros campos y voy al tsbrowse, al validar cualquier campo del browse al regresar siempre pasa por el campo de cliente y su respectiva validación, a pesar de poner el focus al browse.\n\nDesde ya gracias...\n\n\n\n\nSaludos\n\n\nOscar','',0,'gIA=','mjbc9hmg',1,0,'',203,0,0),(12765,10,6,376,0,'190.40.12.116',1146792790,1,0,1,1,1,0,'','Re: Bienvenidos a los foros de FiveTech Software','Agradecido por este tipo de foro, Antonio. \n\nPor lo general no hago uso de un solo equipo sino que por la naturaleza de mis ocupaciones debo estar en constante movimiento en diversos lugares y mediante este tipo de foro no tengo que estar configurando el Outlook en en el equipo que en ese momento tengo que utilizar.\n\nPor mi parte; recibe congratulaciones al haber decidido poner las news aca.\n\nUn abrazo.\n\nArmando\n\n[quote=&quot;Antonio Linares&quot;:as520w8l]Hola a todos, \n\nConfiamos en que estos nuevos foros proporcionarán un mejor servicio a la comunidad de usuarios de FiveWin. \n\nsaludos, \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->[/quote:as520w8l]','',0,'gA==','as520w8l',1,0,'',376,0,0),(12766,2933,1,560,0,'70.247.66.87',1146793427,1,0,1,1,1,0,'','Leer Librerias de 32bits','Hola, a todos !\n\nTengo una duda, dudota......\n\n\nTengo una Aplicación en Clipper 5.2e  la cual requiere de  mandar llamar 2 Funciones que se encuentran en una Libreria de 32 Bits, la libreria esta en forma estatica (.LIB) y en Forma Dinamica (.DLL).\n\nTengo Fivewin para Clipper y en los Ejemplos vi el siguiente ejemplo:\n\n// This sample shows how to make a Dynamic Linking at RunTime!\n// Using Borland BWCC.DLL DLLs\n\n#include \"FiveWin.ch\"\n\n#ifdef __CLIPPER__\n   #define BORLAND \"bwcc.dll\"\n#else\n   #define BORLAND \"bwcc32.dll\"\n#endif\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   BWCCMessageBox( 0, OemToAnsi( \"Using Borland\'s BWCC DLL\" ),;\n                   OemToAnsi(  \"Hello World!\" ), 0 )\n\n   BWCCMessageBox( 0, OemToAnsi( FWCOPYRIGHT ), FWVERSION, 2 )\n\n   SndPlaySound( \"Ahhhhh.wav\", 0 )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nDLL FUNCTION BWCCMessageBox( hWnd AS WORD, cText AS LPSTR, cTitle AS LPSTR,;\n                             nType AS WORD ) AS WORD PASCAL LIB BORLAND\n\nDLL FUNCTION SndPlaySound( cFile AS LPSTR, nType AS WORD ) AS BOOL ;\n                             PASCAL LIB \"MMSYSTEM.DLL\"\n\nDLL32 FUNCTION AllocConsole() AS BOOL PASCAL LIB \"KERNEL32.DLL\"\n\n------------------------------------------------------------------------------------\n[color=red]La  libreria que quiero llamar se llama   SGENC32.DLL  y SGENC32.LIB\n\n\nLa Documentación para Accesar a dicha libreria es el siguiente:\n\n\n/* Definiciones en \"C\" */\n\n/* Estructura Anterior */\ntypedef struct struct_curps\n{\n	char 	curp[19],\n		archivokey[256],\n		password[256];\n} struct_curps;\n\n\n/* Estructura Actual (Generica) */\ntypedef struct struct_curps_g\n{\n	char 	curp[19], 	 /* CURP AA o Apoderado que firma */\n		archivokey[256], /* Nombre y RUta del archivo KEY del AA o Apoderado */\n		archivocer[256], /* Nombre y RUta del archivo CER del AA o Apoderado */\n		password[256];   /* Contraseña para apertura de la llave privada     */\n} struct_curps_g;\n\n\n/* Funciones anteriores */\nint BuscaCurps(char *archivoOrig, struct struct_curps *CURPS);\nint GeneraFirmaDigital(char *archivoOrig, struct struct_curps *CURPS);\nint BuscaCurps_std(char *archivoOrig, struct struct_curps *CURPS);\nint GeneraFirmaDigital_std(char *archivoOrig, struct struct_curps *CURPS);\n\n/* Funciones Actuales (Genericas) */\nint BuscaCurpsG(char *archivoOrig, int tipo, struct struct_curps_g *CURPS);\nint GeneraFirmaDigitalG(char *archivoOrig, int tipo, struct struct_curps_g *CURPS);\nint BuscaCurpsG_std(char *archivoOrig, int tipo, struct struct_curps_g *CURPS);\nint GeneraFirmaDigitalG_std(char *archivoOrig, int tipo, struct struct_curps_g *CURPS);\n\n/*\n   Donde tipo = Tipo de documento a firmar\n\n	     0 (cero) = PEDIMENTOS\n	     1        = ENCARGOS\n	     2        = AVISOs DE TRANSFERENCIA\n*/\n\n\n\n\' Definiciones VB\n\' Estructura anterior\nPublic Type registro_CURP\n    curp As String * 19\n    archivokey As String * 256\n    password As String * 256\nEnd Type\n\n\' Estructura actual (Generica)\nPublic Type registro_CURPG\n    curp As String * 19\n    archivokey As String * 256\n    archivocer As String * 256\n    password As String * 256\nEnd Type\n\n\' Funciones anteriores\nDeclare Function BuscaCurps Lib \"sgenc32\" Alias \"_BuscaCurps@8\" (ByVal strArchOrig As String, ByRef CURPS() As registro_CURP) As Long\nDeclare Function GeneraFirmaDigital Lib \"sgenc32\" Alias \"_GeneraFirmaDigital@8\" (ByVal strArchOrig As String, ByRef CURPS() As registro_CURP) As Long\n\n\' Funciones actuales (Genericas) \nDeclare Function BuscaCurpsG Lib \"sgenc32\" Alias \"_BuscaCurpsG@12\" (ByVal strArchOrig As String, ByVal tipo As Long, ByRef CURPS() As registro_CURPG) As Long\nDeclare Function GeneraFirmaDigitalG Lib \"sgenc32\" Alias \"_GeneraFirmaDigitalG@12\" (ByVal strArchOrig As String, ByVal tipo As Long, ByRef CURPS() As registro_CURPG) As Long\n\n\nNuevos Códigos de Error:\n\n	10 = Tipo de documento a firmar no valido\n	11 = No se pudo leer el certificado\n	12 = Certificado caduco.\n	13 = El archivo contiene más de un registro 201.\n\n\n\n\nLa Pregunta  es ?\n\nComo lo implemento para Clipper y Fivewin ?\n\n\n\nGracias a todos , se los agredecere infinitamente.\n[/i]','',0,'','2tr8ds5w',1,0,'',560,0,0),(12767,2934,6,496,0,'200.107.36.176',1146802339,1,0,1,1,1,0,'','Errores en cambio de 16 a 32 bits, Ayuda por favor','Por fín he terminado de revisar y corregir los errores de declaración de variables, pero ahora estoy atorado en otros problemas durante la compilación y enlazado, estos son:\n\n1. No se puede compilar la librería HBOLE.LIB, me da el siguiente error:\n\nError: \'C:\\FWH\\LIB\\HBOLE.LIB\' contains invalid OMF record, type 0x21 (possibly COFF)\n\n2. Al compilar la librería tbtnget32.lib da el error\n\nError: Unresolved external \'_HB_FUN_TCLASS\' referenced from C:\\FWH\\LIB\\TBTNGET32.LIB|btnget\n\n3. Cómo transformo mi archivo de recursos .RES de 16 bits (generado en workshop) en uno de 32 bits?.\n\n\nUn saludo a todos y Gracias','',0,'','14off6nr',1,0,'',496,0,0),(12768,2935,3,530,0,'201.114.224.202',1146802727,1,0,1,1,1,0,'','fingerprint sample uploaded','Antonio:\n\nthis is the link \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d1f85d62/HUELLA.ZIP.html\">http://hyperupload.com/download/01d1f85 ... A.ZIP.html</a><!-- m -->\n\nI hope this can help, Please consider It\'s not a really reduced sample, but take a look at the aParams Array (line 90) where are shifted and doesn\'t work as expected.\n\nIn the Ocx docs exist a lot af ocx:methods with by Reference parameters, especially:\nExtract( byRef rawImage as Variant, ...)\nand I haven\'t a known way to call a Method with byReference parameters\n\n uRet = ActXInvoke( ActXPdisp( ::hActiveX ), cMethodName, uParam1,... )\n\nDoesn\'t do the job for me at this moment.\n\nI will thank any answer.\nRegards\nFco Gamboa','',0,'','1o3cxu90',1,0,'',530,0,0),(12769,2934,6,496,0,'200.107.36.176',1146802770,1,0,1,1,1,0,'','','Perdón, olvidé indicar que trabajo con\n\nFWH 2.7 de marzo, Harbour 45.0 (flex)\n\nAtentamente\n\nMarcelo Jingo','',0,'','2vux3tfw',1,0,'',496,0,0),(12771,2934,6,439,0,'190.0.128.136',1146803266,1,0,1,1,1,1,'','','Has recompilado las libs de estas clases con tu versión de xHarbour?\nRecuerda que las libs pueden estar compiladas con versiones anteriores.','',0,'','2gks1l61',1,0,'',439,0,0),(12773,2934,6,496,0,'200.107.36.176',1146805051,1,0,1,1,1,0,'','','cómo lo hago, si no tengo los fuentes. Hay alguién que las tenga compiladas para Harbour (la que viene con el build de Marzo).  Gracias José y a quien pueda ayudarme.\n\n\nMarcelo Jingo','',0,'','3jm25506',1,0,'',496,0,0),(12774,2928,6,9,0,'85.59.64.38',1146805397,1,0,1,1,1,1,'','','Gracias Joao','',0,'','3ub2hwm2',1,0,'',9,0,0),(12775,2934,6,9,0,'85.59.64.38',1146805606,1,0,1,1,1,1,'','','Marcelo,\n\n¿Que herramientas estás utilizando para compilar y enlazar? ¿Estás utilizando Verces?','',0,'','1isg0ask',1,0,'',9,0,0),(12776,2776,6,102,0,'80.39.181.141',1146810283,1,0,1,1,1,1,'','','he probado el tButtonBmp y no de deja utilzar Bitmaps desde recursos, solo desde ficheros externos, no se si hare algo mal pero es lo que me pasa.\nEsto no me interesa pues no quiero utilizar nada externo a la aplicación.\nEn Cuanto a lo que dice Leandro alfonso, esta bien pero ya son tres teclas las que hay que pulsar y solo quiero que al pulsar Alt+Tecla ejecute la accion.\n\nSaludos','',0,'','wl8eu148',1,0,'',102,0,0),(12777,2933,1,2,0,'87.218.146.34',1146811355,1,0,1,1,1,1,'','','Martín,\n\nSe puede hacer, pero la pregunta es ¿ por qué no pasas toda la aplicación a 32 bits usando FWH con lo que se facilitaría mucho el trabajo ?','',0,'','141uzr6x',1,0,'',2,0,0),(12778,2776,6,102,0,'80.39.181.141',1146811835,1,0,1,1,1,1,'','','Me corrijo, si funciona con recursos solo cambie la palabra RESOURCE por  BITMAP.\n\nSaludos','',0,'','35nsah7q',1,0,'',102,0,0),(12779,2927,3,2,0,'87.218.146.34',1146814436,1,0,1,1,1,1,'','','Randal,\n\nWe have emailed you a fix for it.','',0,'','2zujpf93',1,0,'',2,0,0),(12780,2925,3,130,0,'141.51.32.24',1146814996,1,0,1,1,1,0,'','','Marco,\n\nI just sent you the class, hope it´s the right one\n\nStefan','',0,'','2u20duna',1,0,'',130,0,0),(12781,2936,3,51,0,'80.122.88.242',1146817552,1,0,1,1,1,0,'','Office 2007 new user interface RIBBON','Is Fivetech working on that new interface?\n\nRegards\nOtto\n\n\nLINK:\n\n<!-- m --><a class=\"postlink\" href=\"http://blogs.msdn.com/jensenh/archive/2005/09/14/467126.aspx\">http://blogs.msdn.com/jensenh/archive/2 ... 67126.aspx</a><!-- m -->','',0,'','x59n706f',1,0,'',51,0,0),(12782,2937,20,29,0,'88.149.161.209',1146817598,1,0,1,1,1,0,'','Colore di sfondo in una dialog','Salve,\nnon ricordo la funzione per ottenere il colore di sfondo di una dialog.\n\nQualche idea ?\n\nGrazie\n\n\nMarco','',0,'','2p9pa8e9',1,0,'',29,0,0),(12783,2938,3,15,0,'203.79.155.24',1146819265,1,0,1,1,1,0,'','hb_xfree() error message','Hello Users,\n\nI found when I input data into TGet again, again\nI got error message below:\nhb_xfree() Pointer Overflow \'xxx\'\n\n[url:xnf2tatu]http&#58;//img205&#46;imageshack&#46;us/img205/271/image27xh&#46;jpg[/url:xnf2tatu]\n\nI use xHarbour 0.99.4+BCC55+FWH26 SEP version\n\nAny idea or suggestion for it?\n\nThank you.\n\nRichard','',0,'EA==','xnf2tatu',1,0,'',15,0,0),(12784,2925,3,29,0,'88.149.161.209',1146821254,1,0,1,1,1,0,'','','Thanks Stefan,\n\nthe only problem is the year selection.\nThe spinner doesn\'t refresh the year get - see image at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/calendar.gif\">www.softwarexp.co.uk/beta/calendar.gif</a><!-- w -->\n\nIs there anyone that has a solution for this small problem ?\n\nMarco','',0,'EA==','nlngczwg',1,0,'',29,0,0),(12785,2939,1,161,0,'213.119.247.49',1146824296,1,0,1,1,1,0,'','Frame in tsbrowse','I\'m using tsbrowse.\n\nI want to add frames. Is this possible with tsbrowse?\n\nThis is what I want:\n<!-- m --><a class=\"postlink\" href=\"http://www.vms.be/FWTest/tsbrowse.bmp\">http://www.vms.be/FWTest/tsbrowse.bmp</a><!-- m -->\n\nThanks,\nMarc','',0,'EA==','3511cbm2',1,0,'',161,0,0),(12786,2940,20,29,0,'88.149.161.209',1146825377,1,0,1,1,1,0,'','Problema FWH release di Aprile','Salve,\nmi sembra ci siano problemi nel visualizzare bitmap trasparenti con l\'ultima versione di FWH (Aprile).\n\nEcco un esempio che mostra il problema.\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oWndEdit, oBar, oIcon, oImage\n   local cName := \"FiveWin power\"\n\n   DEFINE WINDOW oWnd TITLE \"I am the MDI Frame\" ;\n      COLOR NIL, NRGB(192,192,192);\n      MDI\n\n\n   @50,50 BITMAP oBmp file \"48ASSEMB.BMP\" OF oWnd PIXEL NOBORDER\n   oBmp:nClrPane:=nRgb(192,192,192)\n   oBmp:lTransparent:=.t.\n\n   SET MESSAGE OF oWnd TO \"Main Window\"\n\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\nQualche idea ?\n\nGrazie in anticipo\n\nMarco Turco','',0,'EA==','2ilmcp50',1,0,'',29,0,0),(12787,2910,3,148,0,'82.201.235.63',1146825993,1,0,1,1,1,0,'','','Thanks EnricoMaria It works','',0,'EA==','88db5h0f',1,0,'',148,0,0),(12788,2941,6,413,0,'194.106.16.43',1146826426,1,0,1,1,1,0,'','TcBrowse, no puedo mostrar combinacion de campos.....','Intento mostrar una columna que es una convinacion de varias, a modo de ejemplo: La columna la llamo Articulo, y luego quiero mostrar en la misma columna distintos campos separados por \"/\" a modo de ejemplo: ART+\"/\"+APART+\"/\"+OPC. El resultado es que me muestra la columna en blanco, por el contrario si lo reparto en tres campos individuales va bien, pero si alguno de ellos le aplico una funcion de debase ej.: SubStr(art, 1,5) tampoco funciona. Se puede solucionar con tcBrowse o debo utilizar otro browse. Os dejo al trozo de codigo por si os sirve de refencia. Como es un procedimiento automatico lo tengo dividido en varios arrays que carga en el momento de ejecucion.\n\n[code:knz946y2]\n@ -1, 16 COLUMN BROWSE oBrw OF oWndEdit ;\n             FONT oFont ;\n             SIZE oWnd&#58;nWidth&#40;&#41;,oWnd&#58;nHeight&#40;&#41;;  //Ancho y lago posilbe               COLOR CLR_BLACK, 14481663;\n             ON CHANGE &#40; aMantStack&#91;nLen, 4&#93; &#58;= str&#40;recno&#40;&#41;&#41;, oMsgRecNo&#58;SetText&#40;&quot;Registro&#58; &quot;+ alltrim&#40; str&#40;recno&#40;&#41;&#41;&#41; + &quot;/&quot; + alltrim&#40;str&#40;lastrec&#40;&#41;&#41;&#41; &#41;, oWndEdit&#58;Update&#40;&#41; &#41;\n\n     \n\n     //Añado columna si esta borrado el registro para eliminacion\n     ADD COLUMN TO BROWSE oBrw ;\n         HEADER &quot;D&#46;&quot; OEM ;\n         DATA  iif&#40;deleted&#40;&#41;,\'&gt;&gt;\',\'\'&#41;;\n         NOBAR CENTER ;\n         COLORS CLR_WHITE , 9129488  ;  //nRGB&#40; 190, 215, 190 &#41;\n         SIZE 15\n\n   \n/*\n     // los datos los cojo de un fichero ini donde esta definido el nombre y el campo de todos los que intervienen en el browse\n     f_nomd&#58; nombre o literal que quiero que aparezca\n\n  \n     */\n    //Añado una columna por cada campo de la base de datos\n    for nPos &#58;= 1 to Len&#40;f_expd&#41;                         // Array con NOMBRE DE CAMPOS\n      ADD COLUMN TO BROWSE oBrw;                         //\n          HEADER f_nomd&#91;nPos&#93; OEM ;                      // Array con TITULOS DE LAS COLUMNAS\n          DATA FieldWBlock&#40; &#40;f_expd&#91;nPos&#93;&#41; , Select&#40;&#41;&#41;     // Aca se genera el CodeBlock para el CAMPO\n    next\n\n\n[/code:knz946y2]','',0,'AIA=','knz946y2',1,0,'',413,0,0),(12789,2940,20,6,0,'82.57.160.83',1146826839,1,0,1,1,1,1,'','Re: Problema FWH release di Aprile','[code:1e80pblu]@50,50 BITMAP oBmp file &quot;48ASSEMB&#46;BMP&quot; OF oWnd&#58;oWndClient PIXEL NOBORDER[/code:1e80pblu] \n\nEMG','',0,'AIA=','1e80pblu',1,0,'',6,0,0),(12790,2937,20,6,0,'82.57.160.83',1146827095,1,0,1,1,1,1,'','Re: Colore di sfondo in una dialog','oDlg:nClrPane\n\nEMG','',0,'AIA=','1wk7qbc3',1,0,'',6,0,0),(12791,2942,6,488,0,'217.127.135.134',1146827367,1,0,1,1,1,0,'','Ultimas 2 semanas para apuntarse a los cursos de Fivewin','Hola amigos.\n\nYa solo quedan 2 semanas  para el comienzo de los cursos de Fivewin\nEstupendos cursos que seran impartidos una vez mas por \"el maestro-guru\", RF. \nAdemas os recuerdo  que todos los asistentes al los mismos se beneficiaran de un 15% de Dto en la adquisicion de los productos y actualizaciones de FIVEWIN.\n\nPara mas informacion visten nuestra pagina\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://geroa-informatica.com/fivewin/cu ... o-2006.htm</a><!-- m -->\n\nUn saludo para todos.','',0,'AIA=','34t5m5c1',1,0,'',488,0,0),(12792,2943,2,488,0,'217.127.135.134',1146827507,1,0,1,1,1,0,'','Ultimas 2 semanas para apuntarse a los cursos de Fivewin','Hola amigos.\n\nYa solo quedan 2 semanas para el comienzo de los cursos de Fivewin\nEstupendos cursos que seran impartidos una vez mas por \"el maestro-guru\", RF.\nAdemas os recuerdo que todos los asistentes al los mismos se beneficiaran de un 15% de Dto en la adquisicion de los productos y actualizaciones de FIVEWIN.\n\nPara mas informacion visten nuestra pagina\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/cursos-fivewin-Mayo-2006.htm\">http://geroa-informatica.com/fivewin/cu ... o-2006.htm</a><!-- m -->','',0,'AIA=','jresxkye',1,0,'',488,0,0),(12793,2869,6,449,0,'212.64.224.244',1146828569,1,0,1,1,1,1,'','','Marcelo, Fernando,\n\nGracias por vuestras opiniones. Intentare realizar ejemplos de testeo si puedo este fin de semana, aplicando filtros AOF, consultas dinamicas y estaticas, a ver q conclusion puedo sacar. Cuando termine, intentare publicarlo aqu. \n\nGracias.','',0,'AIA=','2r33120x',1,0,'',449,0,0),(12794,2477,3,511,0,'201.248.69.98',1146830528,1,0,1,0,1,0,'','','Richard,\n\nI have SONY-FIU-500 and U.ARE.U digital-persona, your LIB work with this readers?. please send me information about this and others readers.\n\nRegards\n\nAlvaro Urdaneta','',0,'AIA=','1lw7bnhq',1,0,'',511,0,0),(12795,2869,6,41,0,'200.87.67.10',1146831373,1,0,1,1,1,0,'','','Carles,\n\nes como te digo una consulta sobre una sola tabla te genera un cursor dinamico cuya modificacion la hace ne la tabla original, eso significa que el resultado es la tabla original con un filtro aplicado sobre ella, como lo dijo Fernando.\n\nHaber pero esperemos que pasa el fin de semana con tus pruebas\n\nsaludos\n\nMarcelo','',0,'AIA=','672p7twv',1,0,'',41,0,0),(12796,2934,6,496,0,'200.107.36.176',1146831943,1,0,1,1,1,0,'','','si estoy utilizando VERCE 4.3','',0,'AIA=','3i6forag',1,0,'',496,0,0),(12797,2869,6,449,0,'212.64.224.244',1146832541,1,0,1,1,1,1,'','','Hola Marcelo,\n\n\n\nSi, si..., esta claro pero entonces por lo que estoy experimentando, una consulta sobre una sola tabla es muuuucho mas lento, que aplicar un DBSetFilter(). Si yo creo una consulta sobre una tabla de 1 millon de registros, con esta select \"Select {static} first, last, state, age form test where age &gt; 90 and state = \'DE\' \", usando la funcion ADSExecuteSqlDirect(), el sistema demora aprox. 4.5 seg. En cambio si uso DBSetFilter( bCode, cCode ), el sistema va como una bala 0.02 seg., y con la diferencia que puedes actualizar la tabla. \n\nUhmmm, tiene que haber algo mas que diferencie la aplicacion del filtro (segun el help un live cursor) y un static cursor. La pregunta seria: Que se puede hacer o que ventajas tiene un filtro frente a un static cursor. \n\nEn fin, vamos a ver...\n\nBuen fin de semana.','',0,'AIA=','1hksbbot',1,0,'',449,0,0),(12798,2944,4,89,0,'213.21.136.60',1146833354,1,0,1,1,1,0,'','how use ShFullScreen','Hello Antonio \n  how use ShFullScreen() for hide TaskBAr ? \n\nThank in anticipation \nMaurizio \nPS any news about socket ?','',0,'AIA=','23natwob',1,0,'',89,0,0),(12799,2931,6,362,0,'200.168.52.156',1146833617,1,0,1,1,1,1,'','','LOCAL oTimerRelog\n\n    DEFINE TIMER oTimerRelog                                                  ;\n           ACTION oDlg:Say( 31, 103.2, Time(),                                ;\n           CLR_YELLOW, CLR_BLACK,, .F. )\n\n    ACTIVATE TIMER  oTimerRelog','',0,'AIA=','14vavd21',1,0,'',362,0,0),(12800,2933,1,560,0,'70.247.66.87',1146834263,1,0,1,1,1,0,'','Librerias de 32Bits','Gracias por la atención\n\n\nVoy a entrar a detalle:\n\n\nSoy de Mexico  y  tengo una aplicación para elaborar Pedimentos  de Importación y Exportación  , La Aduana de Mexico Publico unas Reformas el 10 de Abril sobre los Formatos de los mismos, las reformas entraron en Vigor el 2 de Mayo, por lo cual era muy tiempo para implementar todos los cambios en el Sistema, hemos estado trabajando casi 20 hrs diarias y ahorita La de Aduana de Mexico dio una prorroga que termina Hoy 5 de Mayo, entros esos cambios hay que imprimir una Firma Digital Avanzada.\n\nPara eso el Sat de Mexico puso en su pagina una libreria  para generar dicha Firma.\n\nlo que deseo hacer es una pequeña aplicación en FW  , la cual sea llamada  desde  Clipper.\n\nSi pudo ver en el Post, Necesito definir una Estructura y los parametros de las Funciones.\n\nNecesito saber como declaro una estructura usando FW y los parametros de las Funciones donde hay estructuras.\n\nSi hay una equivalencia de las estructuras o No. ?\n\n\n\nMIgrar esta aplicación   tardaria mas de 6 meses.\n\n\n\nGracias..','',0,'AIA=','10sankkt',1,0,'',560,0,0),(12801,2945,2,147,0,'200.45.54.133',1146837621,1,0,1,0,1,1,'','Problema con FileXLS en winXP','Colegas; me pasa lo siguiente:\nAl ejecutar el envio a Excel pasa que en algunas ocasiones lo carga, a Excel, y en otras no.\nLa unica diferencia que noto es que, no carga en PCs que ejecutan XP skp2\nA alguien le pasa?, alguna sugerencia?\n\nSaludos y gracias','',0,'AIA=','2q5pb7pf',1,0,'',147,0,0),(12802,2934,6,9,0,'85.59.64.38',1146838807,1,0,1,1,1,1,'','','¿Que librerias has añadido en Verces?','',0,'AIA=','2utb9la8',1,0,'',9,0,0),(12803,2906,2,375,0,'84.122.114.112',1146838937,1,0,1,1,1,1,'','','No se si lo estroy haciendo mal, pero me da la impresión de que FreeImage está pensada para programar en 32 bits. O al menos, con el XP me da error.\n\nConsigo abrir la librería \"manualmente\" pero después me da error en la librería GDI32.dll (.Por cierto, FreeImage tiene más de 8 carácteres y no se abre en XP con LoadLibrary ni a tiros. (A 16 bits con ese nombre).\n\nEl caso es que tengo un problema de cuidado. Pues con Windows 95,98 y WinMe se pueden abrir la mayoría de gráficos con nViewLib, pero en XP TImage utiliza nViewl16 (16 bits), en lugar de  nViewlib (32 bits), pues pasa por la zona:\n\n          if ! ( IsWin95() )\n             ::hBitmap = NViewLibLoad( AllTrim( cBmpFile ), ::nProgress )\n          else\n             ::hBitmap = NViewLib32( AllTrim( cBmpFile ), ::nProgress )\n          endif\n\ny como no es W95 pues abre nViewl16.\n\nEl problema es que con XP, si fuerzo la apertura de nViewlib, estás devuelve handles de más de 10 dígitos, algunos incluso, negativos. He intentado acortarlo con nLowWord(), nHiWord(), con una mezcla de ambos o restando 65536 antes o después de aplicar las funciones. Pero nada de nada. Por fortuna FreeImage me dió la idea de utilizar:\nhBmp = nLoWord( WOWHandle16(hBmp, 8 ) ) ¡Y funciona!\n\nEl problema es que no lee ni la mitad de gráficos que con nViewl16. Utilizaría nViewl16, el problema es que con esa librería si un gráfico no lo puede leer te saca un mensaje de advertencia. Como mi programa ya tiene su propio sistema de mensajes (muy elaborado) y durante la lectura del albúm muestra un \"Espere un momento, Por favor...\" pues el programa se queda colgado hasta que se cierre el mensaje de la librería (que casualmente aparece por debajo del mío.).\n\nY si utilizo nViewlib, no da error si no lee un fichero, pero no lee tantos como con nViewl16. Por ahora he programado una solución de compromiso. Abro lo que puedo con nViewlib y lo demás si no es muy grande con nViewl16 rezando para que no se cuelgue. Será cuestión de advertir al cliente. No deja de ser una solución a medias.\n\nSi alguién tiene alguna idea, le agradecería la ayuda.\n\nUn saludo','',0,'AIA=','3m9oeyhx',1,0,'',375,0,0),(12804,2946,2,375,0,'84.122.114.112',1146840763,1,0,1,1,1,1,'','KEYDOWN','Con oDlg:bKeydown se pueden controlar prácticamente todas las teclas de un dialogo, salvo las flechas (teclas de cursor) ¿hay alguna forma de controlarlas ? a lo mejor con algún Style especial del dialog. ¿alguna idea?\nGracias.','',0,'AIA=','qm0yb9vp',1,0,'',375,0,0),(12805,2930,2,375,0,'84.122.114.112',1146841227,1,0,1,1,1,1,'','','Según leo en el \"whatsnew\" del fw23, a aprtir de FW22B se cambió la clase BITMAP sustituyendo el Data ::hBmpPal por otros dos ::hBitmap y ::hPalette.\nEs posible que tu utilices el sistema antiguo (FW22 anterior a FW22B) y CanalFive el nuevo. Si es así tendrás que redefinir los Method\'s de tu clase BITMAP para adecuarlos a los de CanalFive.','',0,'AIA=','11gysdnz',1,0,'',375,0,0),(12806,2930,2,375,0,'84.122.114.112',1146841302,1,0,1,1,1,1,'','','De todas formas, si has comprado ese software a CanalFive, ellos deberían de solucionarte el problema de alguna manera.','',0,'AIA=','7vphksdv',1,0,'',375,0,0),(12807,2934,6,264,0,'200.91.3.10',1146842189,1,0,1,1,1,0,'','','sjingo:\nyo tb tuve varios problemas por los tamaños de nuestras aplicaciones al pasarlas de 16 a 32 bits ahora en abril recien pasado.\nsi quieres te envio por correo, los script de compilado y esas cosas.\nsaludos','',0,'AIA=','1zedjkgr',1,0,'',264,0,0),(12808,2947,6,264,0,'200.91.3.10',1146842335,1,0,1,1,1,0,'','como entrar con una columna ordena en txbrowse','tengo una lista de campos y quiero que sea ordena por fecha o numero de documento, y siempre el txbrowse me ordena el primero de los campos y no el 4 ó 5 de mi lista.\nalguna idea ?','',0,'AIA=','3gxwsk7u',1,0,'',264,0,0),(12809,2898,3,209,0,'209.217.64.30',1146843958,1,0,1,1,1,0,'','','Hi Enrico,\n\nThanks for taking the time to solve the issue.  I hope you will forgive me for asking how do I go about compiling and linking your sample code?  I run a make file (listed below) and get the following errors.  I suspect it has go something to do wil paths but I am not sure what I should be modifing.\n\nVytas\n\nZ:\\CTIPrg&gt;D:\\Borland\\bcc55\\bin\\make -fvytas01.rmk\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n        d:\\harbour\\bin\\harbour .\\VYTAS01.PRG /N /W /Oobj\\ /Id:\\fwh\\include;d:\\ha\nrbour\\include &gt;&gt; vjclip.log\n        d:\\Borland\\bcc55\\bin\\bcc32 -c -tWM -Id:\\harbour\\include -oobj\\VYTAS01 ob\nj\\VYTAS01.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nobj\\VYTAS01.c:\nError E2209 .\\VYTAS01.PRG 41: Unable to open include file \'ClipApi.h\'\nWarning W8065 .\\VYTAS01.PRG 57: Call to function \'PCOUNT\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 57: Call to function \'ISLOGICAL\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 57: Call to function \'IF\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 59: Call to function \'PCOUNT\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 59: Call to function \'IF\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 61: Call to function \'PCOUNT\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 71: Call to function \'PCOUNT\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 74: Call to function \'_bcopy\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 87: Call to function \'PCOUNT\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 90: Call to function \'_bcopy\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 105: Call to function \'PCOUNT\' with no prototype infunction HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 108: Call to function \'_bcopy\' with no prototype infunction HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 113: Call to function \'_bcopy\' with no prototype infunction HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 121: Call to function \'_bcopy\' with no prototype infunction HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 129: Call to function \'PCOUNT\' with no prototype infunction HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 138: Call to function \'_bset\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 151: Call to function \'IF\' with no prototype in function HB_FUN_CGETFILE\nWarning W8065 .\\VYTAS01.PRG 152: Call to function \'IF\' with no prototype in function HB_FUN_CGETFILE\n*** 1 errors in Compile ***\n\n** error 1 ** deleting VYTAS01.OBJ\n\n*RMK file \n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=d:\\harbour\nBCDIR=d:\\Borland\\bcc55\nFWDIR=d:\\fwh\n\n#change these paths as needed\n.path.PRG = .\\\n.path.OBJ = .\\obj\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\nPRG =       \\\nVYTAS01.PRG    \\\n# invdata.PRG \\\n# compile.PRG \\\n# reports.PRG \\\n# testit.PRG  \\\n# param.PRG   \\\n# xbrowse.PRG\n# one.PRG\n\n# C =          \\\n# two.C\n\nPROJECT    : Vytas01.exe\n\nVytas01.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) Vytas01.res\n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n   echo obj\\Vytas01.obj, + &gt;&gt; b32.bc\n   echo Vytas01.exe, + &gt;&gt; b32.bc\n   echo Vytas01.map, + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveH.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\gtwin.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\hbzip.lib + &gt;&gt; b32.bc\n\n   echo $(HBDIR)\\lib\\hbsix.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\pcrepos.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\n   IF EXIST Vytas01.res echo Vytas01.res &gt;&gt; b32.bc\n    $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n#    del b32.bc\n\n.PRG.OBJ:\n  $(HBDIR)\\bin\\harbour $&lt; /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include &gt;&gt; vjclip.log\n  $(BCDIR)\\bin\\bcc32  -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n#   del tmp\n\n Vytas01.res : Vytas01.rc\n  $(BCDIR)\\bin\\brc32.exe -r Vytas01.rc\n\n\n#   echo obj\\CMX52.obj + &gt;&gt; b32.bc\n#   echo C:\\comix\\52\\cmx52.lib + &gt;&gt; b32.bc','',0,'AIA=','2rywbc4w',1,0,'',209,0,0),(12810,2948,6,203,0,'200.107.2.221',1146844213,1,0,1,1,1,1,'','AYUDA CON TSBROWSE','Hola amigos del foro \n\nTengo un Dialogo para facturar en el cual utilizo tsbrowse, el primer campo del dialogo es el cliente el el cual valido la existencia del mismo \nluego otros campos y voy al tsbrowse, al validar cualquier campo del browse al regresar siempre pasa por el campo de cliente y su respectiva validación, a pesar de poner el focus al browse, me aparecen los mensajes de validacion de los campos anteriores\n\nDesde ya gracias... \n\n\n\n\nSaludos \n\n\nOscar\n_________________','',0,'AIA=','1x8rmod1',1,0,'',203,0,0),(12811,1984,4,428,0,'200.55.19.126',1146844681,1,0,1,1,1,0,'','','Antonio, excelente el control de Scroll, yo necesito aplicar el mismo para mostrar una imagen en donde el scroll Horizontal y Vertical son muy necesarios, podrias mostrarme algun codigo de ejemplo ?\n\nGracias','',0,'AIA=','28idlh1h',1,0,'',428,0,0),(12812,2898,3,6,0,'82.57.160.83',1146846007,1,0,1,1,1,1,'','','[quote=&quot;Vytas&quot;:770z5krx]Error E2209 .\\VYTAS01.PRG 41: Unable to open include file \'ClipApi.h\'[/quote:770z5krx]\n\nClipApi.h is in your fwh\\include directory. If not then you have a FWH installation problem.\n\nEMG','',0,'gA==','770z5krx',1,0,'',6,0,0),(12813,2944,4,89,0,'213.21.136.60',1146847653,1,0,1,1,1,0,'','','I solve \n\nShFullScreen(oWnd:hwnd,0x0020 )\n\nOn Windows Mobile works but not in Windows CE \n\n\n*#define SHFS_SHOWTASKBAR            0x0001\n*#define SHFS_HIDETASKBAR            0x0002\n*#define SHFS_SHOWSIPBUTTON          0x0004\n*#define SHFS_HIDESIPBUTTON          0x0008\n*#define SHFS_SHOWSTARTICON          0x0010\n*#define SHFS_HIDESTARTICON          0x0020','',0,'gA==','7ev7pdbm',1,0,'',89,0,0),(12814,2934,6,496,0,'157.100.180.226',1146850676,1,0,1,1,1,0,'','','Las librerias que he añadido a VERCE son:\n\nHBOLE.LIB, btnbmp32.LIB Y LA twbrowse de Hernán, todos estos los he bajado de los links que aquí en el foro encontré. La Twbrowse de Hernán no me dio ningún problema.\n\nSerá que debo usar xHarbour que según tengo entendido ya viene por ejemplo con la clase olé incluída.\n\nCon respecto al archivo de recurso .RES, qué opción pueden sugerirme para cambiarlo de 16 a 32 bits. Cómo lo hago?.\n\nMi correo es [url]sjingo@andinanet.net[/url] o [url]mjingo@hotmail.com[/url], les agradecería a todos que me puedan enviar cualquier ayuda.\n\nAtentamente\n\nMarcelo Jingo','',0,'EA==','207dz1e5',1,0,'',496,0,0),(12815,2949,3,148,0,'82.201.235.63',1146852712,1,0,1,1,1,0,'','refresh a filtered TXbrowse','Listbox is refreshed after set filter command by :\n[code:oizl0s3p]\n\noLbx&#58;upstable&#40;&#41;         \noLbx&#58;Refresh&#40;&#41;\n[/code:oizl0s3p]\n\n\nTXBROWSE is not refreshed after filter command by the same way :\n[code:oizl0s3p]\nACTIVATE DIALOG oDlgn ON INIT &#40;oBrw&#58;SetSize&#40; 800, \n600 &#41;,oBrw&#58;Refresh&#40;&#41;&#41;\n[/code:oizl0s3p]','',0,'AIA=','oizl0s3p',1,0,'',148,0,0),(12816,2950,7,428,0,'200.55.19.126',1146852811,1,0,1,1,1,0,'','scroll Horizonta y Vertical en una Window','Necesito mostrar una imagen en formato bmp cuyo tamano es mayor que la capacidad de la pantalla del Pocket Pc. Mi idea es mediante una Window con barras de desplazamiento vertical y horizontal, pero no logro que la imagen se desplace al mover las barras, alguien tiene algun ejemplo o alguna idea sobre este tema?\n\nGracias\nMiguel','',0,'AIA=','1cmicfss',1,0,'',428,0,0),(12817,2934,6,9,0,'85.59.64.38',1146855779,1,0,1,1,1,1,'','','Marcelo,\n\nYo utilizo xHarbour (la versión que viene con el propio FWH) y no incluyo la librería HBOLE.LIB.- Creo que el propio FWH ya la incluye.- Prueba a quitar esa libreria del Verces y mira que pasa.\n\n\nYo sigo trabajando con WorkShop y archivos .RC (el mismo que a 16 bits).\nSolamente he copiado dicho archivo .RC al directorio donde tengo los módulos a 32 bits. Solo en el caso de que quieras apariencia XP, hay que hacer un pequeño cambio, pero primero pon a funcionar la aplicación y despues empezamos a mejorarla.','',0,'AIA=','3jlpw3sq',1,0,'',9,0,0),(12818,2934,6,496,0,'157.100.180.226',1146857132,1,0,1,1,1,0,'','','Ya lo probado quitándolo, pero da errores. Porque  tengo entendido que harbour viene sólo con funciones básicas, así que hay que usar la librería externa de HBOLE.\n\nMejor voy a tener que optar por usar xHarbour.\n\nCon respecto al archivo .RES, debo indicar que el enlazador me da un error de que el archivo es incompatible. Voy a probar grabándolo como archivo .RC con el  workshop.\n\n\nMarcelo Jingo','',0,'AIA=','3t52hjlz',1,0,'',496,0,0),(12819,2934,6,110,0,'165.98.151.243',1146859131,1,0,1,1,1,1,'','','Ok. vayamos por parte como jack <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;1. No se puede compilar la librería HBOLE.LIB, me da el siguiente error:\n\n&gt;Error: \'C:\\FWH\\LIB\\HBOLE.LIB\' contains invalid OMF record, type 0x21 &gt;(possibly COFF) \n\nEsto se debe a que para generar el EXE de tu aplicacion estas un compilador C diferente con el que fue creada la libreria.\n\nDeberas recompilar la libreria HBOLE con el compialdor C que usas.\n\n2. Al compilar la librería tbtnget32.lib da el error\n\nError: Unresolved external \'_HB_FUN_TCLASS\' referenced from C:\\FWH\\LIB\\TBTNGET32.LIB|btnget \n\nEsto se debe a que en alguna parte del codigo de esta lib se hace una llamado a TCLASS que en harbour no existe, ya que se llama HBClass, no deberia aparecer pero algunas veces algunas clase tiene codigo que el clipper simplemente obvio y en harbour no pasa por ser un poco mas restrictivo.\n\npor ejemplo en algunas clases de terceros se define un metodo\n\nCREATE CLASS miclase\n    ...\n    METHOD MiMetodo()\n   ...\nENDCLASS\n...\nMETHOD MIMetodo() CLASS TClass  \n//aca en clipper pasa pero en harbour no, por que lo correcto es que deberia de decer \n//METHOD MiMetodo() CLASS MiClase\nRETURN \n\ndeberas revisar el codigo.\n\n\n3. Cómo transformo mi archivo de recursos .RES de 16 bits (generado en workshop) en uno de 32 bits?. \n\ndeberas abrir tu .RES con workshop y deberas usar el menu archivo -&gt; guardar como -&gt; seleccionar RC, para que tus recursos queden guardados en texto plano RC y no en binario RES.\n\n\notra cosa, en una seccion de este foro encontraras todas las clases que necesites para que las recompiles y las puedas usar para tu fwh.\n\nlo ideal es que tengas a manos los fuentes de todos los controles de terceros que uses para que los puedas recompilar.\n\nSeccion: Utilities / Utilidades\n\nsalu2\ncarlos vargas\n..','',0,'AIA=','2b9okede',1,0,'',110,0,0),(12820,2934,6,496,0,'157.100.180.226',1146862521,1,0,1,1,1,0,'','','Gracias Carlos por los Tips, ya mismo los pruebo. \n\nUn saludo\n\nMarcelo Jingo','',0,'AIA=','isnp8t4j',1,0,'',496,0,0),(12821,2917,6,376,0,'200.121.189.214',1146866964,1,0,1,1,1,0,'','Re: Bug en Clase Printer?','Amigos, pido perdón por la falsa alarma. No es un bug sino un error mio (no inicializé correctamente la variable \"Fil\").\n\nEl codigo puede ser utilizado como plantilla ejemplo cuando tengan que elaborar una lista de productos, con formato utilizando la clase tprinter.\n\n/* Listar la base de datos del padron de productos\n   Autor: Econ. Armando Picón S., Lima, Perú\n*/\n#include \"fivewin.ch\"\n#include \"report.ch\"\n\nPROCEDURE listar( oDlg )\n   LOCAL nReg   := 1\n   LOCAL Fil       := 0    // aqui estuvo el error\n   LOCAL Col    := 0\n   LOCAL nCol   := 115  // columnas que tiene el papel\n   LOCAL nFil   := 64   // filas que tiene el papel\n   LOCAL LstCol := 112  // ultima columna a utilizar\n   LOCAL LstFil := 59   // ultima fila para datos\n   LOCAL nFil1  := 0\n   LOCAL c, f, cMedio\n   LOCAL oFnt1, oFnt2, oFnt3, oPen1\n   *\n   LOCAL nPag   := 0\n   LOCAL oPrn\n   LOCAL cDate := STR( DAY(    DATE() )) + \" de \" + ;\n                       sp_mes( MONTH( DATE() ) )  + \" del \" +;\n                       str(Year(DATE()))\n   LOCAL TITULO:=\"LISTADO GENERAL DE REPUESTOS\"\n   LOCAL nLongTit, nMedio\n   //LOCAL aPagos //:= {}  // esto también fue error, no se utiliza\n\n   DBSELECTAREA(\"STOCK\")\n   nReg := RECNO()\n\n   PRINTER oPrn PrEVIEW MODAL\n\n      oPrn:setup()\n\n      IF EMPTY(oPrn:hDC)\n         MsgStop(\"Impresora no lista\",\"ATENTO\")\n         RETURN NIL\n      ENDIF\n\n      * características del papel\n      oPrn:SetPage( 10 )     // Papel A4==&gt;10\n      oPrn:SetLandScape()   // Orientacion echada\n\n      * Factor de resolución para columnas y filas\n      c:= oPrn:nHorzRes()/nCol\n      f:= oPrn:nVertRes()/nFil\n      cMedio := INT(LstCol / 2) + 1\n\n      DEFINE FONT oFnt1 NAME \"Sans Serif\" SIZE 0,-16 OF oPrn\n      DEFINE FONT oFnt2 NAME \"Sans Serif\" SIZE 0,-12 OF oPrn\n      DEFINE FONT oFnt3 NAME \"Sans Serif\" SIZE 0,-9 OF oPrn\n\n      DBGOTOP()\n      DO WHILE !EOF()\n\n         DO CASE\n\n            CASE Fil == 0\n\n               oPrn:Startpage()\n               Fil++\n               Fil++\n               Fil++\n               Fil++\n               nPag := oPrn:nPage\n               oPrn:Say(Fil*f, (cMedio - ( LEN(TITULO)/2 ))*c, TITULO, oFnt2)\n               Fil++\n               Fil++\n               oPrn:Say(Fil*f, (cMedio - ( LEN(oApp:membrete)/2 ))*c, oApp:membrete, oFnt2)\n               Fil++\n               Fil++\n               * Linea separador de titulo - encabezados\n               oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n               nFil1 := Fil\n               Fil++\n               * cabecera de columnas\n               oPrn:Say(Fil*f,  001*c, \"ANDM\"      , oFnt3 )  // ANDAMIO\n               oPrn:Say(Fil*f,  005*c, \"CASL\"      , oFnt3 )  // CASILLA\n               oPrn:Say(Fil*f,  011*c, \"CODIGO\"    , oFnt3 )  // CODIGO\n               oPrn:Say(Fil*f,  024*c, \"PROC\"      , oFnt3 )  // PROCEDENCIA\n               oPrn:Say(Fil*f,  030*c, \"NOMBRE\"    , oFnt3 )  // NOMBRE\n               oPrn:Say(Fil*f,  061*c, \"UNIDAD\"    , oFnt3 )  // UNIDAD DE MEDIDA\n               oPrn:Say(Fil*f,  069*c, \"PREC.VTA\"  , oFnt3 )  // PRECIO DE VENTA\n               oPrn:Say(Fil*f,  079*c, \"DSCTO\"     , oFnt3 )  // DESCUENTO EN VALOR\n               oPrn:Say(Fil*f,  089*c, \"IGV\"       , oFnt3 )  // IGV DE PRECIO-DCTO\n               oPrn:Say(Fil*f,  099*c, \"PREC.PUBLICO.\", oFnt3 )  // PRECIO FACTURADO\n               Fil++\n               oPrn:Say(Fil*f,  069*c, \" US$    \"  , oFnt3 )  // PRECIO DE VENTA\n               oPrn:Say(Fil*f,  079*c, \" US$ \"     , oFnt3 )  // DESCUENTO EN VALOR\n               oPrn:Say(Fil*f,  089*c, \"US$\"       , oFnt3 )  // IGV DE PRECIO-DCTO\n               oPrn:Say(Fil*f,  099*c, \"  US$     \", oFnt3 )  // PRECIO FACTURADO\n               Fil++\n               Fil++\n               * Linea separadora entre encabezados e impresion de datos\n               oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n               Fil++\n\n            CASE Fil &gt; LstFil\n               Fil++\n               * Linea de cierre de impresion de datos\n               oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n\n               * Linea verticales de impresion de datos\n               oPrn:Line(nFil1*f,000*c, Fil*f,000*c)\n               oPrn:Line(nFil1*f,005*c, Fil*f,005*c)\n               oPrn:Line(nFil1*f,009*c, Fil*f,009*c)\n               oPrn:Line(nFil1*f,022*c, Fil*f,022*c)\n               oPrn:Line(nFil1*f,028*c, Fil*f,028*c)\n               oPrn:Line(nFil1*f,059*c, Fil*f,059*c)\n               oPrn:Line(nFil1*f,067*c, Fil*f,067*c)\n               oPrn:Line(nFil1*f,077*c, Fil*f,077*c)\n               oPrn:Line(nFil1*f,087*c, Fil*f,087*c)\n               oPrn:Line(nFil1*f,097*c, Fil*f,097*c)\n               oPrn:Line(nFil1*f,LstCol*c, Fil*f,LstCol*c)\n\n               * Fin cuadro de impresion de datos\n               Fil++\n               oPrn:Say(Fil*f,  002*c, \"Pag. No. : \", oFnt3 )\n               oPrn:Say(Fil*f,  014*c, ALLTRIM(STR(nPag,10,0)), oFnt3 )\n               Fil++\n               oPrn:endpage()\n               Fil := 0\n\n            OTHER\n                oPrn:Say(Fil*f,  002*c, STOCK-&gt;ANDAMIO, oFnt3 )\n                oPrn:Say(Fil*f,  006*c, STOCK-&gt;CASILLA, oFnt3 )\n                oPrn:Say(Fil*f,  010*c, STOCK-&gt;CODIGO , oFnt3 )\n                oPrn:Say(Fil*f,  023*c, STOCK-&gt;ORIG   , oFnt3 )\n                oPrn:Say(Fil*f,  029*c, STOCK-&gt;NOMBRE , oFnt3 )\n                oPrn:Say(Fil*f,  060*c, STOCK-&gt;UNIDAD , oFnt3 )\n                oPrn:Say(Fil*f,  075*c, TRANSFORM(STOCK-&gt;XPRECIOV,\"@ 99,999.999\"), oFnt3,,,,1 )  // PRECIO DE VENTA\n                oPrn:Say(Fil*f,  085*c, TRANSFORM(STOCK-&gt;XDCTO   ,\"@ 99,999.999\"), oFnt3,,,,1 )  // DESCUENTO EN VALOR\n                oPrn:Say(Fil*f,  095*c, TRANSFORM(STOCK-&gt;XIGV    ,\"@ 99,999.999\"), oFnt3,,,,1 )  // IGV DE PRECIO-DCTO\n                oPrn:Say(Fil*f,  105*c, TRANSFORM(STOCK-&gt;XPRECIOF,\"@ 999,999.99\"), oFnt3,,,,1 )  // PRECIO FACTURADO\n\n                Fil++\n                SKIP\n\n         ENDCASE\n\n      ENDDO\n      *\n      Fil++\n      * Linea de cierre de impresion de datos\n      oPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n\n      * Linea verticales de impresion de datos\n      oPrn:Line(nFil1*f,000*c, Fil*f,000*c)\n      oPrn:Line(nFil1*f,005*c, Fil*f,005*c)\n      oPrn:Line(nFil1*f,009*c, Fil*f,009*c)\n      oPrn:Line(nFil1*f,022*c, Fil*f,022*c)\n      oPrn:Line(nFil1*f,028*c, Fil*f,028*c)\n      oPrn:Line(nFil1*f,059*c, Fil*f,059*c)\n      oPrn:Line(nFil1*f,067*c, Fil*f,067*c)\n      oPrn:Line(nFil1*f,077*c, Fil*f,077*c)\n      oPrn:Line(nFil1*f,087*c, Fil*f,087*c)\n      oPrn:Line(nFil1*f,097*c, Fil*f,097*c)\n      oPrn:Line(nFil1*f,LstCol*c, Fil*f,LstCol*c)\n      * Fin cuadro de impresion de datos\n      Fil++\n      oPrn:Say(Fil*f,  002*c, \"Pag. No. : \", oFnt3 )\n      oPrn:Say(Fil*f,  014*c, ALLTRIM(STR(nPag,10,0)), oFnt3 )\n      oPrn:endpage()\n\n   ENDPRINT\n\n\n   oFnt1:End()\n   oFnt2:End()\n   oFnt3:End()\n   oPrn:SetPortrait()   // Orientacion parada\n   oPrn:End()\n\n   DBGOTOP()\n   DBGOTO( nReg )\n\nRETURN\n*\n\n/*\nFormulario de la lista Productos\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄ¿\n³ANDM CASL CODIGO       PROC  NOMBRE                         UNIDAD  PREC.VTA  DSCTO     IGV       PREC.FACT.³³\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÙ\n  12  123 123456789012 12345 123456789012345678901234567890 1234567 12345.789 12345.789 12345.789 123457.89\n01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012\n          1         2         3         4         5         6         7         8         9         0         1\n\nCaracteristicas de la base de datos\n=======================\n    Cliente----: 12345678901 123456789012345678901234567890123456789012345\n    Dirección--: 123456789012345678901234567890123456789012345\n                 123456789012345678901234567890123456789012345\n                 123456789012345678901234567890123456789012345\n    Teléfono---: 123456789012\n\n    Loc.Entrega: 123456789012345678901234567890123456789012345\n    Dirección--: 123456789012345678901234567890123456789012345\n    Teléfono---: 123456789012\n   ------------------------------------------------------------------------\nNOM_CLIENT\" ,\"C\", 45,0},;   // nombre del cliente\nDIR_CLIENT\" ,\"C\", 45,0},;   // direccion1 del cliente\nDIR_CLIEN2\" ,\"C\", 45,0},;   // direccion2 del cliente\nDIR_CLIEN3\" ,\"C\", 45,0},;   // direccion3 del cliente\nLOC_CLIENT\" ,\"C\", 45,0},;   // local de entrega\nLOC_DIRCLI\" ,\"C\", 45,0},;   // direc. local de entrega\nTF1_CLIENT\" ,\"C\", 12,0},;   // telefono cliente\nTF2_CLIENT\" ,\"C\", 12,0} ;   // telefono local de entrega\n\n*/','',0,'AIA=','1ptzc97i',1,0,'',376,0,0),(12822,2477,3,215,0,'201.155.51.81',1146873593,1,0,1,1,1,0,'','Para Clemerson','CLEMERSON\n\n¿Qué lector estás usando?\nPlease, tell me the brand fingerprint reader. I am have a U. ARE. U Digital Persona.\n\nThanks\nFernando','',0,'AIA=','17g1x1a9',1,0,'',215,0,0),(12823,2935,3,215,0,'201.155.51.81',1146873818,1,0,1,1,1,0,'','Re: fingerprint sample uploaded','Francisco\n\n¿Qué lector tienes?\n\nSaludos\nFernando','',0,'AIA=','1hfcnhxx',1,0,'',215,0,0),(12824,2885,17,439,0,'190.0.128.212',1146875337,1,0,1,1,1,1,'','Txls','Si observas, la encontrarás en este mismo foro.\n\nSería bueno además que si solicitas algo no lo hagas en el foro de utilidades sino de consultas porque aquí están las utilidades para bajar. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPero lo mas importante, si observas en este foro hallarás lo que buscas.','',0,'AIA=','eqy97dtx',1,0,'',439,0,0),(12825,2942,6,52,0,'200.127.195.89',1146876161,1,0,1,1,1,1,'','','Amigos,\n\nVan a transmitirlos online? si es asi estaría bueno.\n\nGracias.','',0,'AIA=','vqnsxgz4',1,0,'',52,0,0),(12826,2951,6,52,0,'200.127.195.89',1146876412,1,0,1,1,1,1,'','Ayuda a optimizar...','Estimados, \n\nEstoy queriendo ver si esta funcion me dan una idea de optimizacion,\nyo no tengo la facilidad que tienen otros de optimizar ya que no\nconozco bien el lenguaje. alguien podría darme una mano.\nQue quede claro algo, esta funcion no está completamente terminada\nvan a ver que hay variables declaradas pero aun no las uso.\nlo que me interesa es ver si lo que esta dentro del DO WHILE se puede optimizar.\n\n[code:1kvlstlh]FUNCTION STATUS&#40;&#41;\n\n   LOCAL cRespuesta &#58;= &quot;&quot;\n\n   LOCAL nItem      &#58;= 1\n   LOCAL cSurtidor  &#58;= Space&#40; 02 &#41;\n   LOCAL nSurtidor  &#58;= 1\n   LOCAL nManguera  &#58;= 1\n   LOCAL alCambio   &#58;= Array&#40; Len&#40; aEstados &#41; &#41;\n\n   AFill&#40; alCambio, &#46;f&#46; &#41;\n\n   oTimer&#58;deactivate&#40;&#41;\n\n\n   DBSelectArea&#40; &quot;CARGAS&quot; &#41;\n\n   CARGAS-&gt;&#40; DBGoTop&#40;&#41; &#41;\n   nItem&#58;= 1\n\n   DO WHILE !eof&#40;&#41;\n      IF cSurtidor != CARGAS-&gt;SURTIDOR\n         nItem     &#58;= 1\n         cSurtidor &#58;= CARGAS-&gt;SURTIDOR\n      ENDIF\n\n      IF &#40; aEstados&#91; Val&#40; CARGAS-&gt; SURTIDOR &#41; &#93;&#91; nItem &#93;!= CARGAS-&gt;ULT_ST &#41;\n         alCambio&#91; Val&#40; CARGAS-&gt;SURTIDOR &#41; &#93;&#58;= &#46;T&#46;\n      ENDIF\n\n      aEstados&#91; Val&#40; CARGAS-&gt; SURTIDOR &#41; &#93;&#91; nItem &#93; &#58;= CARGAS-&gt;ULT_ST\n\n      nItem++\n\n      CARGAS-&gt;&#40; DBSkip&#40;&#41; &#41;\n   ENDDO\n\n   cRespuesta&#58;= AllTrim&#40; cRespuesta &#41;\n   grabarlogdbf&#40; 99, cRespuesta &#41;\n\n   oTimer&#58;activate&#40;&#41;\n\n   RETURN &#40; cRespuesta &#41;[/code:1kvlstlh]\n\nGracias.','',0,'AIA=','1kvlstlh',1,0,'',52,0,0),(12827,2949,3,239,0,'218.19.62.209',1146879786,1,0,1,1,1,0,'','','Try refresh(.t.)\n\nShuming Wang','',0,'AIA=','363b3nmg',1,0,'',239,0,0),(12828,2949,3,148,0,'82.201.235.63',1146916206,1,0,1,1,1,0,'','','refresh(.t.) does not do any difference . My problem is :\nOnly the first Record appeared in the Txbrowse does not belong to the condition of set filter and when I do through the records using the cursor the non-belong record disappeared .','',0,'AIA=','2a9sbgvn',1,0,'',148,0,0),(12829,2869,6,21,0,'81.172.120.154',1146920843,1,0,1,1,1,1,'','','Hola,\n\nEs normal que ADSExecuteSqlDirect() tarde mas que DbSetFilter para la sql que indicas (Select {static} first, last, state, age form test where age &gt; 90 and state = \'DE\'). Pero ojo depende del número de registros que cumplan la condición.\n\nSi son muchos los que cumplen, es mejor usar DbSetFilter, ya que ADSExecuteSqlDirect() tiene que crear un DBF temporal con todos los registros, osea, uno a uno ir añadiendo registros en una DBF. Sin embargo con DbSetFilter lo único que haces es aplicar un filtro sobre una tabla ya abierta.\n\nSin son pocos los que cumplen, es mejor usar ADSExecuteSqlDirect(), ya que no va a tardar en añadirlos a la DBF temporal que crea y sin embargo DbSetFilter te puede dar problemas si vas a usar un browse, porque problamente para saltar de un registro a otro tarde, al tener que validar si los registros intermedios cumplen la condición indicada.','',0,'AIA=','27ppymkm',1,0,'',21,0,0),(12830,2952,6,147,0,'200.110.140.189',1146928122,1,0,1,0,1,1,'','Problema con FileXLS en winXP','Colegas; me pasa lo siguiente:\nTengo una aplicación clipper+fw que usa esta libreria. Al ejecutar el envio, pasa que en algunas ocasiones carga Excel, y en otras no.\nLa unica diferencia que noto es que, [b:2pltolxo]no[/b:2pltolxo] carga en PCs que ejecutan XP spk2\nA alguien le pasa?, alguna sugerencia?\n\nSaludos y gracias\n\nP.D.: pongo el mensaje acá por si no andan por el foro clipper :-), porque allí, hasta hora nadie contesto... o solo me pasa a mi :-(','',0,'QA==','2pltolxo',1,0,'',147,0,0),(12831,2953,4,149,0,'62.104.189.254',1146929696,1,0,1,1,1,0,'','TWBrowse in folderdialog','Hello,\n\nis it possible, does this is not working?\ncan´t create dialogBox\n\nregards\nThomas\n\n[code:2hl80ner]\n#include &quot;fwce&#46;ch&quot;\n\n#define oFD oFld&#58;aDialogs\n\nstatic oWnd,oBrw\nstatic cSuch\nstatic nIdx\nstatic aHeader&#58;=&#123;&quot;Rufnummer&quot;,&quot;Name&quot;&#125;\n\nfunction main\nlocal oGet,oFld\n\ncSuch&#58;=space&#40;20&#41;\nuse &#40;CurDir&#40;&#41;+&quot;\\name&quot;&#41; excl new alias isdn via &quot;dbfcdx&quot;\nselect isdn\ndbsetindex&#40;CurDir&#40;&#41;+&quot;\\name&quot;&#41;\nnIdx&#58;=1\n\ndefine window oWnd title &quot;ISDN&quot;\n@ 0&#46;5, 1 FOLDER oFld PROMPTS &quot;Namen&quot;, &quot;Anrufliste&quot; ;\n   DIALOGS &quot;isdn1&quot;, &quot;isdn2&quot; ;\n   SIZE 225, 245\n\nredefine GET oGet var cSuch id 101 of oFD&#91;1&#93;\nredefine button id 102 of oFD&#91;1&#93; action &#40;cSuch&#58;=space&#40;20&#41;,oGet&#58;Refresh&#40;&#41;,oGet&#58;SetFocus&#40;&#41;&#41;\nredefine button id 103 of oFD&#91;1&#93; action Such&#40;&#46;t&#46;&#41;\nredefine button id 104 of oFD&#91;1&#93; action Such&#40;&#46;f&#46;&#41;\n\nredefine LISTBOX oBrw fields &quot;&quot;,&quot;&quot;  ;\n                   fieldsizes 100,100 ;\n                   headers &quot;Rufnummer&quot;,&quot;Name *&quot; ;\n                   id 105 of oFD&#91;1&#93; \n\noBrw&#58;bLine&#58;=&#123;|| &#123;isdn-&gt;rufnr,isdn-&gt;Name &#125; &#125;\noBrw&#58;aActions&#58;=&#123;;\n                &#123;|| SetIdx&#40;0&#41; &#125;,;\n                &#123;|| SetIdx&#40;1&#41; &#125;;\n               &#125;\n               \noFld&#58;InitDialogs&#40;&#41;               \nactivate window oWnd \nclose isdn\nreturn nil\n\nisdn1 DIALOG 18, 18, 129, 128\nSTYLE WS_CHILD | 4\n&#123;\n EDITTEXT 101, 0, 0, 66, 12\n PUSHBUTTON &quot;C&quot;, 102, 69, 0, 15, 12\n PUSHBUTTON &quot;Suchen&quot;, 103, 87, 0, 27, 12\n PUSHBUTTON &quot;&gt;&quot;, 104, 117, 0, 12, 12\n CONTROL &quot;&quot;, 105, &quot;TWBrowse&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 0, 15, 126, 111\n&#125;[/code:2hl80ner][/code]','',0,'AIA=','2hl80ner',1,0,'',149,0,0),(12832,2952,6,37,0,'201.230.17.29',1146930294,1,0,1,1,1,1,'','','Mario, a mi me pasaba avaces cuando la ruta donde apuntaba el XLS no existia, tambien aveces cargaba el Excel y me botaba del Sistema Clipper+FW, de todas formas, nada de esto volvio a pasar con xHarbour+FWH, siempre hablando de maquinas con WinXP SP2\nSaludos','',0,'AIA=','27r4ksu0',1,0,'',37,0,0),(12833,2905,6,64,0,'200.216.19.92',1146931051,1,0,1,1,1,1,'','','Mira aqui!\n[url:xx3zuzw1]http&#58;//sourceforge&#46;net/users/jlalin/[/url:xx3zuzw1]\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','xx3zuzw1',1,0,'',64,0,0),(12834,2953,4,2,0,'87.218.146.34',1146933127,1,0,1,1,1,1,'','','Thomas,\n\nWhere is isdn2 dialog in the RC file ?','',0,'EA==','2vfv89va',1,0,'',2,0,0),(12835,2949,3,6,0,'87.6.213.5',1146933741,1,0,1,1,1,1,'','','Try GO TOP just after SET FILTER command.\n\nEMG','',0,'EA==','jz1x7zdt',1,0,'',6,0,0),(12836,2905,6,362,0,'200.168.52.156',1146933783,1,0,1,1,1,1,'','','[quote=&quot;syda&quot;:1ns7yuse]Mira aqui!\n[url:1ns7yuse]http&#58;//sourceforge&#46;net/users/jlalin/[/url:1ns7yuse]\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:1ns7yuse]\n\n\n\n????????\n\n<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/sendmessage.php?touser=2587\">http://sourceforge.net/sendmessage.php?touser=2587</a><!-- m -->','',0,'kA==','1ns7yuse',1,0,'',362,0,0),(12837,2953,4,149,0,'62.104.188.67',1146938450,1,0,1,1,1,0,'','','Antonio,\n\nisdn2 is okay, is from testfld.rc\nIf i remove control 105, the programm runs.\n\nRegards\nThomas','',0,'kA==','2oo5k08g',1,0,'',149,0,0),(12838,2952,6,40,0,'200.92.21.67',1146938605,1,0,1,1,1,0,'','','Mario, Yo la utilizo y sin ningun problema asi :\n\n // Defino el Archivo XLS y su ruta\n cfilexls:=\'.\\XLS\\Estado de Cuenta Cliente.XLS\'\n\n // Borro (si ya existe el archivo)\n delete file cFileXLS\n \n // Desactivo el Autoexec que abre excel por que aveces lo abre o no\n XLS oFileXLS FILE &amp;cfilexls             // AUTOEXEC\n\n // Una vez generado el XLS lo abro de esta manera\n ShellExecute(NIL,\'Open\',cfilexls,,,1)   // 1=Excel Maximizado\n\nSaludos espero te funcione','',0,'kA==','38ge1u45',1,0,'',40,0,0),(12839,2934,6,496,0,'200.107.36.176',1146939128,1,0,1,1,1,0,'','GRACIAS!!!!!','Gracias a Julio, Carlos, Manuel , en general a este foro . \n\nSolucionado el tema del HBOLE, la he obtenido del Tmsagent de Juan Carlos Salinas y ya no dio errores. \n\nAsí mismo obtuve del foro una nueva versión del BTNGET y solucionado.\n\nPasé el RES a RC y todo bien.\n\nLuego de unos cuantos días de  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> , Al fin pude crear el executable de mi aplicación y estoy felíz  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> . De aquí en adelante ya la cosa se hace más fácil, para ir optimizandolo por cada módulo.\n\nNo me canso de agradecerles, y continuaré aquí con mis preguntas. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nMarcelo Jingo','',0,'kA==','3besvbb1',1,0,'',496,0,0),(12840,2954,6,104,0,'201.58.68.211',1146943891,1,0,1,1,1,0,'','AevalWhen de WINDOW.PRG','Olá Antonio,\n\nSeria possível mudar o método \"Aevalwhen\" de WINDOW.PRG para trabalhar com FOR EACH de xharbour ? Veja um exemplo abaixo:\n\n[code:35xwhpax]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cName &#58;= Space&#40; 10 &#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Testing ForEach for speed&quot;\n\n   @ 1,  2 SAY &quot;Name&#58;&quot;\n\n   @ 1,  7 GET cName\n\n   @ 2,  5 BUTTON &quot;AEvalWhen&#40;&#41; of FWH&quot; ACTION FWH_EVAL&#40; oDlg &#41;\n\n   @ 3,  5 BUTTON &quot;My AEvalWhen&#40;&#41;&quot; ACTION MY_EVAL&#40; oDlg &#41;\n\n   ACTIVATE DIALOG oDlg\n\nreturn nil\n\nfunction FWH_EVAL&#40; oDlg &#41;\n\n   local x, nStart\n\n   nStart &#58;= Seconds&#40;&#41;\n\n   for X = 1 to 100000\n       oDlg&#58;AEvalWhen&#40;&#41;\n   next\n\n   msgstop&#40; Seconds&#40;&#41; - nStart &#41;\n\nreturn NIL\n\n//----------------------------------------------------------------------------//\n\nfunction MY_EVAL&#40; oDlg &#41;\n\n   local n\n   local aControls &#58;= oDlg&#58;aControls, aVarray\n   local x, nStart\n\n   nStart &#58;= Seconds&#40;&#41;\n\n   for X = 1 to 100000\n       if aControls != nil &#46;and&#46; ! Empty&#40; aControls &#41;\n          for each aVarray IN oDlg&#58;aControls\n              if aVarray != nil &#46;and&#46; aVarray&#58;bWhen != nil\n                 if Eval&#40; aVarray&#58;bWhen &#41;\n                    aVarray&#58;Enable&#40;&#41;   // keep this as &#58;&#58;\n                 else\n                    aVarray&#58;Disable&#40;&#41;  // keep this as &#58;&#58;\n                 endif\n             endif\n          next\n       endif\n   next\n\n   msgstop&#40; Seconds&#40;&#41; - nStart &#41;\n\nreturn NIL\n\n* Extract from WINDOW&#46;PRG\n*METHOD AEvalWhen&#40;&#41; CLASS TWindow\n*  local n\n*  local aControls &#58;= &#58;&#58;aControls, aVarray\n*\n*  if aControls != nil &#46;and&#46; ! Empty&#40; aControls &#41;\n*     for each aVarray IN &#58;&#58;aControls\n*         if aVarray != nil &#46;and&#46; aVarray&#58;bWhen != nil\n*            if Eval&#40; aVarray&#58;bWhen &#41;\n*               aVarray&#58;Enable&#40;&#41;   // keep this as &#58;&#58;\n*            else\n*               aVarray&#58;Disable&#40;&#41;  // keep this as &#58;&#58;\n*            endif\n*        endif\n*     next\n**     for n = 1 to Len&#40; aControls &#41;\n**         if aControls&#91; n &#93; != nil &#46;and&#46; aControls&#91; n &#93;&#58;bWhen != nil\n**            if Eval&#40; aControls&#91; n &#93;&#58;bWhen &#41;\n**               &#58;&#58;aControls&#91; n &#93;&#58;Enable&#40;&#41;   // keep this as &#58;&#58;\n**            else\n**               &#58;&#58;aControls&#91; n &#93;&#58;Disable&#40;&#41;  // keep this as &#58;&#58;\n**            endif\n**        endif\n**     next\n*  endif\n*return nil\n[/code:35xwhpax]\n\nExecutando o exemplo acima em meu computador o tempo fica assim:\n\nClicando em \"AEvalWhen() of FWH\" gasta o tempo de 1.203 segundos\nClicando em \"My AEvalWhen()\" gasta o tempo de  0.625 segundos,  ou seja quase a metade do tempo  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nObrigado,\n\nRossine.','',0,'AIA=','35xwhpax',1,0,'',104,0,0),(12841,2862,1,303,0,'72.199.41.171',1146953047,1,0,1,1,1,0,'','','Rajeev,\n\nBecause IE recognizes the CSV extension, it displays the data in the browser rather than prompting the user for a download filename, then saving the data to a file.\n\nAssuming you are not the one putting the data up on the net, then you have to find another way to collect the data. FW had a web client class you can use to read a web page. Below is the code to read the data into a varialble (cHTML). The data will come in with some header lines which you will then have to strip off, then you can just save cHTML to a file.\n\nThis code was tested with Harbour. I don\'t know if it will work with Clipper.\n\nRegards,\nJames\n\n[code:hlxn1tev]/*\nPurpose&#58; Example of how to get the HTML code for a web page\nDate   &#58; 01/04/05\nNotes  &#58; You must create a main window to use a socket&#46;\n\n         I had to fix a bug in the TWebClient class, new method&#46; It was returning nil\n         instead of self&#46; TWEBCLIE&#46;PRG was dated 11/11/1999 &#40;came with FWH 2&#46;4 July 2003&#41;&#46;\n\n         The function ProcessPage does not return the code since it is collected in a socket\n         which may still be running when the function exits&#46; You have to process the code\n         by assigning a function call to oWeb&#58;oSocket&#58;bClose\n\n         James Bott, jbott@compuserve&#46;com\n*/\n\n#include &quot;fivewin&#46;ch&quot;\n\n\n#define FALSE &#46;F&#46;\n#define TRUE  &#46;T&#46;\n\n\nfunction main&#40;&#41;\n   local oWnd\n   define window oWnd\n   activate window oWnd ;\n      on init ProcessPage&#40;&quot;http&#58;//www&#46;nseindia&#46;com/content/historical/EQUITIES/2006/APR/cm24APR2006bhav&#46;csv&quot;&#41;\nreturn nil\n\n\nfunction ProcessPage&#40;cURL&#41;\n   local oWeb\n   local cHTML&#58;=&quot;&quot;  // contains HTML code\n   local cSite&#58;=&quot;&quot;\n   local cPage&#58;=&quot;&quot;\n\n   if left&#40;upper&#40;cURL&#41;,7&#41; = &quot;HTTP&#58;//&quot;\n      cURL&#58;= right&#40;cURL,len&#40;cURL&#41;-7&#41;\n   endif\n\n   cSite&#58;= left&#40;cURL, at&#40;&quot;/&quot;,cURL&#41;-1 &#41;\n   cPage&#58;= right&#40;cURL,len&#40;cURL&#41;-at&#40;&quot;/&quot;,cURL&#41;&#41;\n\n   //msgInfo&#40;cSite,&quot;cSite&quot;&#41;\n   //msgInfo&#40;cPage,&quot;cPage&quot;&#41;\n\n   oWeb &#58;= TWebClient&#40;&#41;&#58;New&#40;&#41;\n\n   oWeb&#58;oSocket&#58;Cargo &#58;= FALSE\n   oWeb&#58;bOnConnect = &#123;|oWClient| oWClient&#58;oSocket&#58;Cargo &#58;= TRUE&#125;\n   oWeb&#58;bOnRead    = &#123;|cData| if&#40;valtype&#40;cData&#41; == &quot;C&quot;, cHTML += cData, &#41;&#125;\n\n   oWeb&#58;Connect&#40;cSite&#41;\n\n   //msgInfo&#40;cHTML&#41;\n\n   // Keep trying to connect\n   while ! oWeb&#58;oSocket&#58;Cargo\n      WaitMessage&#40;&#41;\n      SysRefresh&#40;&#41;\n   enddo\n\n  // msgInfo&#40;&quot;Connected to site&quot;&#41;\n\n   oWeb&#58;GetPage&#40; cPage &#41;\n\n   // Assign function to process code\n   oWeb&#58;oSocket&#58;bClose = &#123;|self| &#58;&#58;end&#40;&#41;, self&#58;=Nil, Process&#40;cHTML&#41; &#125;\n\n   //oWeb&#58;oSocket&#58;close&#40;&#41;\n\n   sysrefresh&#40;&#41;\n\n   //msgInfo&#40;&quot;page collected&quot;&#41;\n   //msgInfo&#40;cHTML&#41;\n\nreturn nil\n\n\n// Process the HTML code\nfunction Process&#40;cHTML&#41;\n   msgInfo&#40;cHTML,&quot;HTML code&quot;&#41; // for testing only\n   // Process the code here--save to file, extract data, etc&#46;\nreturn nil\n\n// eof\n//----------------------------------------------------------------------------//[/code:hlxn1tev]','',0,'AIA=','hlxn1tev',1,0,'',303,0,0),(12842,2954,6,519,0,'81.38.0.31',1146956864,1,0,1,1,1,0,'','','Rossine \n\n  Para cuando el twbrowse para xharbour free  ?\n\n\n  Un saludo','',0,'AIA=','390vyusi',1,0,'',519,0,0),(12843,2952,6,138,0,'201.152.98.24',1146966858,1,0,1,1,1,1,'','','El problema es que FileXLS utiliza un WinEXEC para lanzar excel cuando pones la clausual AUTOPEN al crear la hoja, el problema se soluciona cambiando ese WinEXEC por shellexecute en el codigo fuente de la clase.','',0,'AIA=','29byhe90',1,0,'',138,0,0),(12844,2955,6,53,0,'201.128.125.230',1146970490,1,0,1,1,1,1,'','Ventanas MDI','Amigos del foro:\n\nEn una aplicación donde uso ventanas MDI cuyo código muestro a continuación:\n\nDEFINE WINDOW oWnd MDICHILD OF oWindow FROM 0,0 TO 30,54\n     oWnd:bGotFocus  = { || oDlg:SetFocus() }\n     DEFINE DIALOG oDlg RESOURCE \"BrwFac\" OF oWnd FONT oFont\n\n     ACTIVATE DIALOG oDlg NOWAIT ON INIT oDlg:MOVE(0,0) VALID ! GetASyncKey(VK_ESCAPE)\n\nACTIVATE WINDOW oWnd ON INIT (oWnd:SETSIZE(oDlg:nWidth,oDlg:nHeight+29));\nON RESIZE (oWnd:SETSIZE(oDlg:nWidth,oDlg:nHeight+29));\nMAXIMIZED VALID (oWnd:=NIL,Cierra(oFac,oDlg))\n\n\nSe me presenta un caso muy curioso, tal como esta el código cuando abro dos o mas ventanas y despues cierro una de ellas me tira el error\n\nERROR OBJECTS/8 NO OBJECTS MSG UNDEFINED SETSIZE\n\nEl error apunta a la línea donde esta la clausula MXIMIZED \n\nObviamente si quito la clausula MAXIMIZED el error no se presenta sin embargo necesito que al abrir la ventana esta se maximize.\n\nAlguien que me indique como abrir las ventanas MDI correctamente ?\n\nSaludos a todos','',0,'AIA=','22vguem1',1,0,'',53,0,0),(12845,2956,6,196,0,'190.48.193.237',1147010291,1,0,1,1,1,0,'','Algo rarisimo con el preview','Hola a todos.\nEsto es algo que me llama mucho la atencion.\n\nTengo escrito este reporte (algo muy basico):\n\nREPORT oReport TITLE Titulo CENTER;\n       HEADER Empresa;\n       FOOTER \"Fecha:\"+DTOC(Date())+\" Hora:\"+Time()+\" Pagina:\"+STR(oReport:nPage,3) RIGHT;\n       FONT oFont0,oFont1,oFont2,oFont3;\n       PREVIEW;\n       CAPTION \"Vista previa del listado\"\n\n   COLUMN TITLE \"Codigo\"            DATA \"\" SIZE 6  CENTER SHADOW\n   COLUMN TITLE \"Razon social\"      DATA \"\" SIZE 40 CENTER SHADOW\n   COLUMN TITLE \"Saldo\"             DATA \"\" SIZE 12 CENTER SHADOW\n\nACTIVATE REPORT oReport ON STARTLINE PintoLinea(oReport)\n\nLa funcion que esta en STARTLINE es esta:\n\nFunction PintoLinea(oReport)\nIF MOD(oReport:nRow,2)=0\n   oReport:lShadow:=.f.\nELSE\n   oReport:lShadow:=.t.\nENDIF\nReturn nil\n\nSimplemente pretendo que me haga un shadow linea de por medio en cada numero de linea impar.\nLo raro es que en mi maquina funciona bastante bien con reportes cortos, pero en cualquier otra maquina me hace el shadow en todas las lineas, a pesar que tuve la precaucion de copiar ademas del exe la prev32.dll\nSi esto funcionara bien seria muy util, ya que para seguir una linea en el preview es bastante confuso.\n\nDesde ya muchas gracias.\nJorge Jaurena','',0,'AIA=','2f1fo5fh',1,0,'',196,0,0),(12846,2957,4,557,0,'222.166.160.209',1147012536,1,0,1,1,1,0,'','Create FWPPC program with Visual FiveWin?','Hi,\n\nI have just order FWPPC. FWPPC samples works great on my PDA Phone.\n\nI worked on Visual Objects a lot on VFP.\n\nFor FWPPC, there are many help files from the installation.  \nWhich help file should I get start first?\n\nThe first unknow command from client sample is \"Request\".\nI could not find any clue from all the help files. Please help.\n\nWhen I browsed FiveWin forum, I found Visual FiveWin.\n\nCan I use it to produce FWPPC program?\n\nThanks,\n\nlaiyilam','',0,'AIA=','zawt7uni',1,0,'',557,0,0),(12848,2958,6,496,0,'200.107.36.176',1147026587,1,0,1,1,1,0,'','Clase TWORD','Saludos Foro:\n\nAlguien podría por favor indicarne la forma correcta de añadir la TWORD a mi aplicación.\n\nEstoy trabajando con VERCE 4.3, FWH 2.7, Harbour 45.0 (flex), bcc 5.5.1 y el link de Borland. \n\nTengo el TWORD.PRG bajado de la sección Utilidades de este foro y la intenté compilarla añadiendo como un PRG más en el VERCE, pero obtuve errores de variables de memoria no definidas, así que añadí al inicio del tword.prg todas la varibles solicitadas declarándolas con memvar, compiló y enlzó sin errores; pero al ejecutar detro de mi aplicación el módulo que llama a la tword, la aplicación simplemente se cierra sin decir nada.\n\nDebo indicar que he añadido la clase HBOLE, y corre sin problemas cuando genero archivos de excel.\n\nHe oído que se debe enlazar la librería HBOLE antes de las de FW, cómo se hace eso con VERCE?. Yo simplemente la he añadido en la parte de \"librerías de Terceros\".\n\nQué es lo que hago mal?, o alguien tiene la TWORD que funcione correctamente?.\n\nGracias anticipadas.\n\nMarcelo Jingo','',0,'AIA=','2x92o3n7',1,0,'',496,0,0),(12849,2957,4,2,0,'87.218.146.34',1147028906,1,0,1,1,1,1,'','','Laiyilam,\n\nPlease review all the PRG files provided at samples directory. They are very small, and easy to understand and will help you to get the right FWPPC understanding.','',0,'AIA=','26wmdc7m',1,0,'',2,0,0),(12850,2949,3,148,0,'196.205.179.48',1147029632,1,0,1,1,1,0,'','','I already aware of that point but no effects\n[code:1xm6m34n]\nSELECT 4\nuse mete\nSET index TO mete2\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\n4-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n[/code:1xm6m34n]','',0,'AIA=','1xm6m34n',1,0,'',148,0,0),(12851,2958,6,9,0,'85.59.64.38',1147030756,1,0,1,1,1,1,'','','Marcelo,\n\nEn este topic del Foro Fivewin para Clipper, tienes unos comentarios y ficheros de como utilizo MS-Office:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2855\">http://fivetechsoft.com/forums/viewtopic.php?t=2855</a><!-- m -->\n\nNo es complicado utilizar directamente la clase Toleauto para usar Word (y Excel).\n\nEn este caso NO ES NECESARIO AÑADIR NINGUNA LIBRERIA ADICIONAL.','',0,'AIA=','x7t7aue6',1,0,'',9,0,0),(12852,2958,6,496,0,'200.107.36.176',1147040103,1,0,1,1,1,0,'','','Gracias Manuel, pretendía no realizar cambios al módulo que lo tengo hecho con TWORD de 16 bits; pero si no hay otra forma creo que voy a tener que darme un tiempo para modificar el código y  usar word con OLE.  \n\nAunque ya me había acostumbrado a usar TWORD por su facilidad. Esperaré un poco más a ver si alguien tiene esa clase funcional para Harbour.\n\n\nMarcelo Jingo','',0,'AIA=','8h9fcf8x',1,0,'',496,0,0),(12853,2959,6,228,0,'200.119.74.56',1147045222,1,0,1,1,1,1,'','ejecutar un exe externo?','Amigo del foro buenas noches:-).\n\n\nNecesito ejecutar un exe externo... y al mismo tiempo que al terminar la ejecución continue con una funcion de mi ejecutable. alguie sabe como hacer esto?','',0,'AIA=','1bgf5ppc',1,0,'',228,0,0),(12854,2959,6,496,0,'200.107.36.176',1147048177,1,0,1,1,1,0,'','','Prueba esto:\n\n\n\n   if iswinnt()\n      winExec(\"rundll32.exe url.dll, FileProtocolHandler \" + exe_externo, 0 )\n   else\n      winexec(\"start \"+exe_externo,0)\n   endif\n\n\nDonde exe_externo es el nombre de la aplicación. Si está en otro directorio hay que colocar con la ruta completa.\n\n\n\nUn saludo\n\nMarcelo Jingo','',0,'AIA=','iaxzls1f',1,0,'',496,0,0),(12855,2949,3,266,0,'60.50.48.120',1147054290,1,0,1,1,1,1,'','','Try this :-\n\nselect(\'youralias\')\nset filter to &amp;cYourFilter\ngo top\n\noLbx:gotop()\noLbx:upstable()\noLbx:refresh()','',0,'AIA=','pywjlz1h',1,0,'',266,0,0),(12856,2874,3,239,0,'218.19.75.29',1147055823,1,0,1,1,1,0,'','','Thanks for so many replies!\n\nShuming Wang','',0,'AIA=','jskw8c3m',1,0,'',239,0,0),(12857,2960,6,496,0,'200.107.36.176',1147059386,1,0,1,1,1,0,'','Wbrowse de Hernán, BTNBMP y Apariencia XP','Un saludo de nuevo\n\nCómo puedo hacer para que el Wbrowse de Hernán tome la apariencia XP. Ya le he colocado el nombre del archivo .manifest en el RC, y funciona bien, excepto con el wbrowse y los botones  BTNBMP \n\nGracias foro\n\n\nMarcelo Jingo','',0,'AIA=','3dylk4kp',1,0,'',496,0,0),(12858,2935,3,530,0,'201.114.225.6',1147059628,1,0,1,1,1,0,'','','Hola Fernando:\n\nTengo Digital Persona U.areU.400B Reader\n\nGracias por tu atención y Saludos\n\nFco Gamboa','',0,'AIA=','24abj132',1,0,'',530,0,0),(12859,2884,3,281,0,'219.251.175.150',1147072314,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1pkl4ix0]yun jin song,\n\nSorry, I don\'t understand what you mean.[/quote:1pkl4ix0]\n\nThank you. Antonio.','',0,'gA==','1pkl4ix0',1,0,'',281,0,0),(12860,2959,6,2,0,'87.218.146.34',1147075806,1,0,1,1,1,1,'','','Leandro, Marcelo,\n\nHay que usar WaitRun() en vez de WinExec(), ya que WaitRun() espera a que la aplicación llamada termine, para continuar la ejecución de nuestra aplicación. La sintaxis es igual.','',0,'gA==','tymxid1o',1,0,'',2,0,0),(12861,2961,6,490,0,'80.24.224.89',1147087032,1,0,1,1,1,0,'','Problema Wbrowse al cambiar a 32bits','Hola,\n\nEstamos intentando pasar desde fw16 a fwh32 y nos hemos encontrado un problema que no sabemos solucionar.\n\nEn un wbrowse, justificamos a la derecha los números con la data aJustify, pero si usamos temas XP y es la cabecera, hace caso omiso, siempre justifica  a la izquierda.\n\n¿Cómo podemos solucionarlo? En 16b lo hacía correctamente.\n\nUn Saludo,\nJoaquín\nFWH+xHB','',0,'gA==','27z8qdrr',1,0,'',490,0,0),(12862,2961,6,490,0,'80.24.224.89',1147087827,1,0,1,1,1,0,'','','Hola,\n\nEn la función wBrwline() si anulamos esto:\n\n* if nRowPos == 0 .and. IsAppThemed()\n            *   DrawHeader( hWnd, hDC, nTop - 1, nLeft, nBottom, nRight, AnsiToOem( aValues[ n ] ) )\n*else\n\n\nFunciona perfectamente, como antes en 16b, incluyendo colores.\n\n¿Habría manera de que se usara el original según un Data ? Y si no, al menos que la función DrawHeader pinte bien la justificación.\n\nUn Saludo,\nJoaquín','',0,'','5svbzzew',1,0,'',490,0,0),(12863,2869,6,449,0,'212.64.224.244',1147093267,1,0,1,1,1,1,'','','Hola,\n\nFinalmente pude realizar mis testeos y aquí os mando un resumen. Si alguien cree q estoy errado o quiere ampliar en algo, le agradeceria q lo posteara.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n\nUn cursor es el controlador de una tabla que se ha producido como consecuencia de realizar una consulta via SQL. Estos cursores los podemos diferenciar como dinamicos o estaticos. Dichos cursores los podemos gestionar como los controladores de una tabla y su funcionalidad es la misma.\n\nEl hecho de usar la funcion AdsExecuteSqlDirect(), hace que ADS trabaje de 2 posibles maneras.\n\na.- Cursor dinamico. Si puede aplicar un filtro a la tabla, crea una vista con los campos implicados y devuelve el cursor. Es posible la modificacion del registro. \n\nb.- Cursor estatico. Se crea una tabla con los campos implicados y rellena los registros con los que cumplen la sql. No es posible su modificacion.\n\nEs posible en algun caso forzar un cursor estatico poniendo la clausula {estatic}. Mas adelante describo un caso en que es aconsejable su uso\n\nQue diferencias, sin embargo, existen entre un tipo de cursor y otro., El cursor estatico es mas lento de crearse porque se crea la tabla y se rellena con los registros resultantes pero en la consulta podemos usar (sacado del help de ads): \n\n•	DISTINCT in the SELECT clause\n\n•	Joins (inner, outer, self, or UNION)\n\n•	Any aggregate function\n\n•	GROUP BY or HAVING clauses\n\n•	Subqueries\n\n•	Certain scalar functions (see Scalar Functions in a WHERE Clause)\n\n•	If a memo field is used in a WHERE clause (e.g., WHERE memo is null)\n\n•	LIKE operator is used in a WHERE clause (e.g.,. WHERE lastname LIKE \'Smith%)\n\n•	Expressions or scalar functions in the select list (e.g., select UCASE(lastname) … )\n\n•	TOP in the SELECT clause\n\nEs logico pensar que si no usamos una de estas clausulas, crear un filtro en la tabla via DbSetFilter(), es lo mejor, pero tenemos de analizar los caso en que aplicar un sistema u otro en funcion del tamaño de la tabla,  el numero de aciertos conseguidos y el tipo de consulta:\n\nLos test realizados son a partir de la tabla Test.dbf con 1 millon de registros. En el test, se intenta:\n\n1.- Aplicar un DbSetFilter() y AdsExecuteSqlDirect()  (en algun caso forzar la consulta statica). \n2.- Consulta sobre un campo normal y con indice\n3.- En el caso en que hay 3 registros de resultado se han insertado previamente en el registro 1, 500000 y 1000000.\n\nLos resultados los tengo en una hoja excel y los he intentado plasmar en un fichero txt. Espero que se entienda. \n\n[code:3k9qezv6]\n****\nTest\n****\n\nId Reg\n   aprox Index  Funcion                Consulta\n-- ----- -----  ---------------------  -----------------------------------------------------------------------------------\n1   2200        AdsExecuteSQLDirect&#40;&#41;  Select first, last,state, age from test where age &gt; 90\n2               AdsExecuteSQLDirect&#40;&#41;  Select &#123;static&#125; first, last,state, age from test where age &gt; 90\n3               DbSetFilter&#40;&#41;          age &gt; 90\n\n4  80000  first AdsExecuteSQLDirect&#40;&#41;  Select first,last,state, age form test where first &gt;= \'A\' and first &lt;= \'B\'\n5               AdsExecuteSQLDirect&#40;&#41;  Select &#123;static&#125; first,last,state, age form test where first &gt;= \'A\' and first &lt;= \'B\'\n6               DbSetFilter&#40;&#41;          first &gt;= \'A\' &#46;and&#46; First &lt;= \'B\'\n\n7               AdsExecuteSQLDirect&#40;&#41;  Select first,last,state, age form test where last &gt;= \'A\' and last &lt;= \'B\'\n8               AdsExecuteSQLDirect&#40;&#41;  Select &#123;static&#125; first,last,state, age form test where last &gt;= \'A\' and last &lt;= \'B\'\n9               DbSetFilter&#40;&#41;          last &gt;= \'A\' &#46;and&#46; last &lt;= \'B\'\n\n10     3  first AdsExecuteSQLDirect&#40;&#41;  select first, last, state, age from test where first = \'Dummy\'\n11              AdsExecuteSQLDirect&#40;&#41;  select &#123;static&#125; first, last, state, age from test where first = \'Dummy\'\n12              DbSetFilter&#40;&#41;          first = \'Dummy\'\n\n13              AdsExecuteSQLDirect&#40;&#41;  select first, last, state, age from test where last = \'Dummy\'\n14              AdsExecuteSQLDirect&#40;&#41;  select &#123;static&#125; first, last, state, age from test where last = \'Dummy\'\n15              DbSetFilter&#40;&#41;          last = \'Dummy\'\n\n16  8648  first AdsExecuteSQLDirect&#40;&#41;  Select * from test where first like \'Fra%\'\n17              AdsExecuteSQLDirect&#40;&#41;  Select &#123;static&#125; * from test where first like \'Fra%\'\n18              DbSetFilter&#40;&#41;          ***\n\n19              AdsExecuteSQLDirect&#40;&#41;  Select * from test where last like \'Fra%\'\n20              AdsExecuteSQLDirect&#40;&#41;  Select &#123;static&#125; * from test where last like \'Fra%\'\n21              DbSetFilter&#40;&#41;          ***\n\n22     3  first AdsExecuteSQLDirect&#40;&#41;  Select * from test where first like \'Fra%\'\n23              AdsExecuteSQLDirect&#40;&#41;  Select * from test where last like \'Fra%\'\n24              DbSetFilter&#40;&#41;          ***\n\n**********\nResultados\n**********\n\nId  Tiempo  Listar\n    Funcion 100 reg&#46; Browse&#40;&#41;  Update Trafico\n--  ------- -------- --------  ------ -------\n1    38,72    0,03   Muy Lento   Si      Si\n2     8,34    0,03    Rapido\n3     0,02    0,01    Rapido     Si\n\n4    26,99    0,03   Muy Lento   Si      Si\n5        3    0,03    Rapido\n6     0,02    0,02    Rapido     Si\n\n7     9,31    0,03   Muy Lento   Si      Si\n8     3,88    0,03    Rapido\n9        0    0,02    Rapido     Si\n\n10    0,03    0,09    Lento      Si      Si\n11    0,01    0       Rapido\n12    0,01    1,59    Lento      Si\n\n13    1,73    0,09    Lento      Si      Si\n14   12,88    0       Rapido\n15    0,03    8,63    Lento      Si\n\n16    0,05    0,03    Rapido\n17    2,91    0,03    Rapido\n18\n\n19   16,33    0,03    Rapido\n20   17,92    0,03    Rapido\n21\n\n22    0,03    0,02    Rapido\n23   16,34    0,02    Rapido\n24\n[/code:3k9qezv6]\n\nEs curioso al final, como mi principal obsesion, que era la de ir ‘rapido’ como Arc32 se ha cumplido. \n\n[code:3k9qezv6]\n1&#46;- En el caso de la busqueda last = ‘Dummy’ &#40;3 registros&#41;&#58;\n\n	Arc32		 		9&#46;2 \n	DbSetFilter&#40;&#41;	 		8&#46;63\n\n2&#46;- En el caso de la busqueda first = ‘Dummy’ &#40;3 registros con indice&#41;\n\n	Arc32				0&#46;33	\n	AdsExecuteSqlDirect&#40;&#41;		0&#46;32\n\n3&#46;-    En el caso first = ‘Fra%’	&#40;indice&#41;	\n\n	Arc32				0&#46;04\n	AdsExecuteSqlDirect&#40;&#41;		0&#46;05\n\n4&#46;-    En el caso last = ‘Fra%’		\n\n	Arc32				17&#46;78\n	AdsExecuteSqlDirect&#40;&#41;		16&#46;33\n\n\n[/code:3k9qezv6]\n\nTodo depende de q funcion usar y para que (si queremos porcesar en tablas internas, en browse,…). Gracias Fernando y Marcelo por vuestra ayuda. Si alguien quiere el programa de test para ampliar sus testeos, que me lo pida que se lo mandare.\n\nNota: No queria dormir a nadie, pero es lo q hay...  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'AIA=','3k9qezv6',1,0,'',449,0,0),(12864,2962,2,510,0,'201.242.172.66',1147093654,1,0,1,1,1,0,'','Get, Get, y Mas Gets','1. Estimados amigos, como hago en un cuardo de dialogo o en un folder para que el sistema le indique al usuario que dejo campos sin rellenar, por ejemplo: SI EN LA PRIMERA CARPETA LE FALTO EL NOMBRE EN LA SEGUNDA LE FALTO UN PORCENTAJE EL SISTEMA LE INDIQUE QUE NO PUEDE GRABAR CON UN MENSAJES QUE DIGA \"El nombre no puede estar vacio\" etc... e indicarme en que parte del programa ponerlo,\n\n             2. Por otra parte en la siguiente intruccion:\n\n             oFld:aDialogs[2]:bGotFocus:={ || oCodPro:SetFocus() }\n\n            cuando la aplico en unos casos la ingnora en otros me dice QUE ES NUMERIC  y el programa da error. en que parte del programa deberia palicar esta intruccion, en el get afectado?, en el get que esta antes de primere get del segundo folder? si alguien me puede ayudar,\n\n\n            Otra cosa los concejos que me han dado han sido muy utiles, y agradezco la ayuda\n\nAtte:\nWilliam Neskers\nVenezuela','',0,'','3pxk0e4j',1,0,'',510,0,0),(12865,2954,6,104,0,'201.58.75.64',1147097209,1,0,1,1,1,0,'','','Olá Frafive,\n\nAqui eu gerei o WBROWSE.LIB para bcc 5.5 sem nenhum problema. Qual erro está aparecendo para você ?\n\nAbraços,\n\nRossine.','',0,'','35f6zfo1',1,0,'',104,0,0),(12866,2954,6,519,0,'83.54.15.60',1147097762,1,0,1,1,1,0,'','','Hola Rossine\n\n   Desde Recusos no funciona el twbrowse.\n\n   Un saludo','',0,'','kq318d8d',1,0,'',519,0,0),(12867,2963,6,492,0,'201.127.103.202',1147099626,1,0,1,1,1,1,'','Texto de varias lineas en ButtonBmp, es posible ?','Hola amigos\n\nEs posible poner un texto con varias lineas en un ButtonBmp ??\n\nPor que le he puesto \"Texto 1\" + CRLF + \"Texto 2\" y no sale como debiera.\n\nREDEFINE aBts[1] ID 101 OF oDlg PROMPT \"FANTA\" + CRLF + \"NARANJA\" ACTION msginfo( \"hola\" )\n\ny el texto sale en una sola linea, tomando el CRLF como 2 caracteres.\n\nSaludos','',0,'','1iq737au',1,0,'',492,0,0),(12868,2939,1,266,0,'60.50.50.178',1147102404,1,0,1,1,1,1,'','','not sure for frame.\n\nBut you can group rows by different colors base on key field value :-\n\noBrw:nClrPane:={|| ...}','',0,'','3f7jwkiv',1,0,'',266,0,0),(12869,2935,3,215,0,'201.154.100.225',1147103162,1,0,1,1,1,0,'','Contactame.','Francisco,\ndame de alta en el messanger o envíame un mail a.\n\n<!-- e --><a href=\"mailto:visitante32@hotmail.com\">visitante32@hotmail.com</a><!-- e -->\n\nGracias\nFernando Leal\nMéxico, DF','',0,'','2amgmxii',1,0,'',215,0,0),(12870,2939,1,161,0,'81.164.212.146',1147103876,1,0,1,1,1,0,'','','I already do that.\nThe customer want to add a status to the cell with colors. When it\'s red, it is not done, yellow is process en green is done. I already have implement that, but when there are to groups with the same status, they are the same <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nI was thinking maybe to change the colors vor each group a little bit by changing the RGD-values, but it would be nicer to have a frame..\n\nMarc','',0,'','3tnwm0dx',1,0,'',161,0,0),(12871,2954,6,104,0,'201.58.49.62',1147105528,1,0,1,1,1,0,'','','Olá Frafive,\n\nCompilei o programa abaixo que usa recursos, e funcionou 100%.\n\n[code:ndnfh4jz]\n#include &quot;fivewin&#46;ch&quot;\n\nexternal dbfcdx, ordkeyno, ordkeygoto, ordkeycount\n\n// Sample by Carlos Vargas\n\nfunction main&#40;&#41;\n    local oDlg\n\n   #ifdef __CLIPPER__\n      local hBorl &#58;= LoadLibrary&#40; &quot;BWCC&#46;dll&quot; &#41;\n   #else   \n      local hBorl &#58;= LoadLibrary&#40; &quot;BWCC32&#46;dll&quot; &#41;\n      BWCCRegister&#40;GetResources&#40;&#41;&#41;\n   #endif      \n\n    private cCodigo &#58;= space&#40;7&#41;\n    rddsetdefault&#40; &quot;DBFCDX&quot; &#41;\n\n    use cuentas alias TEST\n    index on codcta tag codigo\n    index on nombre tag nombre\n    ordsetfocus&#40;&quot;codigo&quot;&#41;\n\n    define dialog odlg name &quot;DLG_TEST&quot; title &quot;Pruba de DBSearch&#40;&#41; com REDEFINES&quot;\n\n        redefine get cCodigo;\n            id 101 of odlg;\n            update\n\n        redefine btnbmp;\n            id 102 of odlg;\n            action &#40; TEST-&gt;&#40; DBSearch&#40; &quot;Catalogo de cuentas&quot;,; //Titulo\n                &#123;||&#123; TEST-&gt;codcta, TEST-&gt;nombre &#125; &#125;,;          //Campos\n                 &#123;&quot;Codigo&quot;       ,&quot;Nombre&quot;&#125;,;                  //Headers\n                &#123;&#123;&quot;Codigo cuenta&quot;,&quot;Nombre Cuenta&quot;&#125;,;           //Array Index &quot;campos&quot;\n                 &#123;&quot;codigo&quot;       ,&quot;nombre&quot;&#125;&#125; &#41; &#41;,;             //            &quot;Titulos&quot;\n                cCodigo &#58;= TEST-&gt;codcta,;\n                odlg&#58;update&#40;&#41; &#41;\n    redefine button id 201 of odlg action odlg&#58;end&#40;&#41;\n    redefine button id 202 of odlg action odlg&#58;end&#40;&#41; cancel\n\n    activate dialog odlg center\n\n    close all\n\n    FreeLibrary&#40; hBorl &#41;\n\nreturn\n\n//============================================================================//\n\n*DLL32 FUNCTION BWCCRegister&#40; hInst AS LONG&#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot;\n\n//============================================================================//\n\n#define TRUE  &#46;t&#46;\n#define FALSE &#46;f&#46;\n\n\nFUNCTION DBSearch&#40; cTitle, aFields, aHeaders, aOrders, oWnd &#41;\n\n    PRIVATE oDlgS ,;\n            oBrw  ,;\n            oCombo,;\n            oSayRec,;\n            oSaySeek,;\n            cOldOrder &#58;= ordsetfocus&#40;&#41;,;\n            lOk       &#58;= FALSE,;            \n            nOrden &#58;= 1\n    \n    DEFAULT oWnd &#58;= GetWndDefault&#40;&#41;\n\n    //salta al inicio de la tabla    \n    dbgotop&#40;&#41;\n\n    //define dialogo\n    DEFINE DIALOG oDlgS NAME &quot;DLG_LISTA&quot;;\n         TITLE cTitle;\n         OF oWnd\n   \n    REDEFINE LISTBOX oBrw ;\n        FIELDS;\n        ID 102;\n        OF oDlgS;\n        UPDATE;\n        ON DBLCLICK &#40; lOk&#58;=TRUE, oDlgS&#58;end&#40;&#41; &#41;;\n        ON CHANGE ShowPos&#40; recno&#40;&#41;, ordkeycount&#40;&#41;, oSayRec&#41;\n\n        oBrw&#58;Set3DStyle&#40;&#41;\n        oBrw&#58;nHeaderHeight &#58;= 18\n        oBrw&#58;nLineHeight   &#58;= 15\n        oBrw&#58;cAlias        &#58;= alias&#40;&#41;\n        oBrw&#58;bLine         &#58;= aFields\n        oBrw&#58;aHeaders      &#58;= aHeaders\n        oBrw&#58;aJustify      &#58;= &#123;2,0&#125;\n        oBrw&#58;bSeek         &#58;= &#123;|lRet| oBrw&#58;DbfSeek&#40; &#46;F&#46; ,&#123;|| Tone&#40;500,3&#41; &#125;&#41; &#125;\n        oBrw&#58;bUpdateBuffer &#58;= &#123;|| UpdateBuffer&#40; oSaySeek, oBrw&#58;cBuffer &#41; &#125;\n\n      oBrw&#58;lRecSel       &#58;= &#46;t&#46;\n      oBrw&#58;lTheader      &#58;= &#46;t&#46;\n      oBrw&#58;lDrawTitle    &#58;= &#46;t&#46;\n      oBrw&#58;cHeaderTitle  &#58;= &quot;Tabela do Cadastro de Clientes&quot;\n      oBrw&#58;nTitleHeight  &#58;= 30\n      oBrw&#58;aHeaderSort   &#58;= &#123; 1, &quot;BOTTOM&quot;, &quot;TOP&#46;BMP&quot;, &quot;BOTTOM&#46;BMP&quot; &#125;\n      oBrw&#58;HeaderTImg    &#58;= &#123; &quot;\\fwh\\icons\\chart&#46;ico&quot; &#125;\n      oBrw&#58;HeaderHImg    &#58;= &#123; &quot;\\fwh\\bitmaps\\16x16\\explorer&#46;bmp&quot;, ;\n                              &quot;\\fwh\\icons\\dialog2&#46;ico&quot; , ;\n                              &quot;\\fwh\\icons\\msdos&#46;ico&quot;   , ;\n                              &quot;\\fwh\\icons\\summer&#46;ico&quot;  , ;\n                              &quot;\\fwh\\icons\\contar&#46;ico&quot;  &#125;\n*     oBrw&#58;HeaderFImg     &#58;= oBrw&#58;HeaderHImg\n\n    REDEFINE SAY oSayRec ;\n        ID 103 OF oDlgS COLOR CLR_BLUE\n\n    REDEFINE SAY oSaySeek PROMPT &quot;&quot; ;\n        ID 104 OF oDlgS COLOR CLR_BLUE\n\n    REDEFINE BUTTON ;\n        ID 201      ;\n        OF oDlgS     ;\n        ACTION &#40; lOk &#58;= TRUE, oDlgS&#58;end&#40;&#41; &#41;\n\n    REDEFINE BUTTON ;\n        ID 202      ;\n        OF oDlgS    ;\n        ACTION &#40; lOk &#58;= FALSE, oDlgS&#58;end&#40;&#41; &#41;    \n    \n    ACTIVATE DIALOG oDlgS ;\n        CENTER ;\n        ON INIT &#40; ToolBar&#40;aOrders&#41;  ,;\n                  oBrw&#58;nHeight -= 85 &#41;\n\n    ordsetfocus&#40; cOldOrder &#41;\n\nRETURN &#40; lOk &#41;\n\nSTATIC PROCEDURE ToolBar&#40;aOrders&#41;\n    LOCAL oToolBar\n\n    //define la barra de herramientas con el combobox de tag\'s\n    DEFINE BUTTONBAR oToolBar OF oDlgS SIZE 30,30 3D\n\n        @ 5, oToolBar&#58;GetBtnLeft&#40;&#41; + 3;\n             COMBOBOX oCombo VAR nOrden ;\n             ITEMS aOrders&#91;1&#93;;\n             SIZE oDlgs&#58;nWidth - 25, 200;\n             OF oToolBar PIXEL FONT oDlgS&#58;oFont;\n             ON CHANGE &#40; ordsetfocus&#40; aOrders&#91;2, nOrden &#93; &#41;,;\n                         oBrw&#58;refresh&#40;TRUE&#41;,;\n                         oBrw&#58;setfocus&#40;&#41;, Tone&#40;650,3&#41; &#41;\n\n    oDlgS&#58;SetControl&#40;oBrw&#41;\n\nRETURN\n\nSTATIC PROCEDURE ShowPos&#40;nActual, nTotal, oSay&#41;\n    oSay&#58;SetText&#40; alltrim&#40; str&#40;nActual&#41; &#41;+&quot;/&quot;+alltrim&#40;str&#40;nTotal&#41;&#41; &#41;\n    oSay&#58;refresh&#40;&#41;\nRETURN\n\n\nSTATIC FUNCTION UpdateBuffer&#40; oSay, cBuffer &#41;\n    LOCAL cMsg\n\n    IF len&#40; cBuffer &#41; &gt; 0\n        cMsg &#58;= cBuffer\n    ELSE\n        cMsg &#58;= &quot;&quot;\n    ENDIF\n    oSay&#58;SetText&#40;cMsg&#41;\n\nRETURN Nil\n\n\n//----------------------------------------------------------------------------//\n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG  &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot;\n\n//----------------------------------------------------------------------------//\n\n[/code:ndnfh4jz]\n\n[img:ndnfh4jz]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/wbrwrec&#46;PNG[/img:ndnfh4jz]\n\nVeja se você consegue gerar e executar este exemplo, ok ? Ele se chama SAMPLE04.PRG que se encontra junto com os fontes de wbrowse que eu modifiquei.\n\nAbraços,\n\nRossine.','',0,'CIA=','ndnfh4jz',1,0,'',104,0,0),(12872,2477,3,486,0,'200.184.85.3',1147106527,1,0,1,1,1,0,'','','Richard \n\nPlease, send it to me also. \n\nRegards\n\n<!-- e --><a href=\"mailto:clemerson@sysfar.com.br\">clemerson@sysfar.com.br</a><!-- e -->','',0,'CIA=','1em71buv',1,1147106863,'',486,1,0),(12873,2477,3,486,0,'200.184.85.3',1147106625,1,0,1,1,1,0,'','Re: Para Clemerson','[quote=&quot;fleal&quot;:39jhkc5v]CLEMERSON\n\n¿Qué lector estás usando?\nPlease, tell me the brand fingerprint reader. I am have a U. ARE. U Digital Persona.\n\nThanks\nFernando[/quote:39jhkc5v]\n\nMicrosoft Figerprint Reader (Usb) model 1033\n\nClemerson','',0,'gA==','39jhkc5v',1,0,'',486,0,0),(12874,2955,6,362,0,'200.168.52.156',1147108517,1,0,1,1,1,1,'','','Necesitas CERRAR las FONTS al Salir.','',0,'gA==','3i6jcm1k',1,0,'',362,0,0),(12875,2964,6,49,0,'62.13.172.78',1147109011,1,0,1,1,1,1,'','where is Paco ?','where is canalfive ?\nI must sent a message to paco, where is he ?\n\n\nregards','',0,'gA==','wli9i4sm',1,0,'',49,0,0),(12876,2965,6,49,0,'62.13.172.78',1147109055,1,0,1,1,1,1,'','Vtaskbar class','Someone use this class ?\ni need a help to create a sample','',0,'gA==','28hud5tq',1,0,'',49,0,0),(12877,2966,20,49,0,'62.13.172.78',1147109507,1,0,1,1,1,1,'','Vtaskbar class','Qualcuno di voi sta usando questa classe ?\nIo l\'ho acquistata da Paco ma mi resta difficile creare una finestra diversa dagli esempi  della classe \nPer esempio volevo costruire una finestra tipo il programma di alanit\n\n[img:12rfhcoj]http&#58;//www&#46;alanit&#46;com/programas/btc6&#46;jpg[/img:12rfhcoj]\n\nl\'autore ( alanit) mi ha inviato che usa vtaskbar con Tfsdi\nprobabilmente sbaglio qualcosa ma a me non mi viene niente anzi mi disegna una finestra un po stretta e lunga diversa da come è nella figura \n\nil codice della finesta d\'esempio inviata da alanit è la seguente \n\n[code:12rfhcoj]\n\nFunction Dialogo1&#40;&#41;\n\n\n\n    oApp&#40;&#41;&#58;oDlg &#58;= TFsdi&#40;&#41;&#58;New&#40; oApp&#40;&#41;&#58;oWndMain &#41;\n    oApp&#40;&#41;&#58;oDlg&#58;cTitle &#58;= i18n&#40; &quot;Gestión de Idiomas&quot; &#41;\n\n    oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oApp&#40;&#41;&#58;oDlg &#41;\n\noBrw&#58;nTop    &#58;= 00\noBrw&#58;nLeft   &#58;= nBrwSplit+2\noBrw&#58;nBottom &#58;= &#40; oApp&#40;&#41;&#58;oDlg&#58;nHeight&#40;&#41; - 22 &#41; / 2\noBrw&#58;nRight  &#58;= &#40; oApp&#40;&#41;&#58;oDlg&#58;nWidth&#40;&#41; &#41; / 2\n\nsetBrwConfig&#40; oBrw &#41;\n\noBrw&#58;cAlias &#58;= &quot;ID&quot;\n\n    oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n    oCol&#58;bStrData &#58;= &#123; || ID-&gt;Idioma &#125;\n    oCol&#58;cHeader  &#58;= i18n&#40; &quot;Idioma&quot; &#41;\n    oCol&#58;nWidth   &#58;= 479\n\n    aEval&#40; oBrw&#58;aCols, &#123; |oCol| oCol&#58;bLDClickData &#58;= &#123; || IdForm&#40; oBrw,&quot;edt&quot;, oCont &#41; &#125; &#125; &#41;\n\n    oBrw&#58;SetRDD&#40;&#41;\n    oBrw&#58;CreateFromCode&#40;&#41;\n\n    oApp&#40;&#41;&#58;oDlg&#58;oClient &#58;= oBrw\n\noBrw&#58;RestoreState&#40; cBrwState &#41;\noBrw&#58;bChange    &#58;= &#123; || RefreshCont&#40; oCont, &quot;ID&quot; &#41; &#125;\noBrw&#58;bKeyDown   &#58;= &#123; |nKey| IdTecla&#40; nKey, oBrw, oCont, oApp&#40;&#41;&#58;oDlg &#41; &#125;\noBrw&#58;nRowHeight &#58;= 21\n\n    @ 05, 05 VMENU oCont SIZE nBrwSplit-10, 18 OF oApp&#40;&#41;&#58;oDlg  ;\nCOLOR CLR_BLACK, GetSysColor&#40;15&#41; ;\nCOLORBORDE RGB&#40; 0, 0, 0 &#41; ;\n      FILLED UNDERLINE   ;  // BORDER\n      COLORSELECT 0, CLR_WHITE ;\n      HEIGHT ITEM 22 BORDER\n\n   DEFINE TITLE OF oCont ;\n      CAPTION strZero&#40; ID-&gt;&#40; ordKeyCount&#40;&#41; &#41;, 6 &#41; ;\n      HEIGHT 25 ;\n      COLOR GetSysColor&#40;9&#41;, GetSysColor&#40;2&#41; ;\n      IMAGE &quot;BB_IDIOMAS&quot; ;\n       RADIOBTN 15 ROUNDSQUARE FONT oFont\n\n    @ 27, 05 VMENU oBar SIZE nBrwSplit-10, 125 OF oApp&#40;&#41;&#58;oDlg  ;\nCOLOR CLR_BLACK, GetSysColor&#40;15&#41; ;\nCOLORBORDE RGB&#40; 0, 0, 0 &#41; ;\n      FILLED UNDERLINE   ;  // BORDER\n      COLORSELECT 0, CLR_WHITE ;\n      HEIGHT ITEM 22 BORDER\n\n   DEFINE TITLE OF oBar ;\n      CAPTION i18n&#40; &quot;idiomas&quot; &#41; ;\n      HEIGHT 25 ;\n      COLOR GetSysColor&#40;9&#41;, GetSysColor&#40;2&#41; ;\n       OPENCLOSE RADIOBTN 15 ROUNDSQUARE\n\n   DEFINE VMENUITEM OF obar         ;\n       HEIGHT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n      CAPTION &quot;Nuevo&quot;              ;\n       IMAGE &quot;SH_NUEVO&quot;             ;\n       ACTION &#40; IdForm&#40; oBrw, &quot;add&quot;, oCont, &#41; &#41; ;\n       LEFT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n      CAPTION &quot;Modificar&quot;          ;\n       IMAGE &quot;SH_MODIF&quot;             ;\n       ACTION &#40; IdForm&#40; oBrw, &quot;edt&quot;, oCont &#41; &#41; ;\n       LEFT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n     CAPTION &quot;Duplicar&quot;           ;\n       IMAGE &quot;SH_DUPLICA&quot;           ;\n       ACTION &#40; IdForm&#40; oBrw, &quot;dup&quot;, oCont &#41; &#41; ;\n       LEFT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n     CAPTION &quot;Borrar&quot;             ;\n       IMAGE &quot;SH_BORRAR&quot;            ;\n       ACTION &#40; IdDel&#40; oBrw, oCont &#41; &#41; ;\n       LEFT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n     CAPTION &quot;Buscar&quot;             ;\n       IMAGE &quot;SH_BUSCA&quot;             ;\n       ACTION &#40; IdSeek&#40; oBrw, oCont, &#41; &#41; ;\n       LEFT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n      CAPTION &quot;Imprimir&quot;           ;\n       IMAGE &quot;SH_IMPRIMIR&quot;          ;\n       ACTION &#40; IdPrint&#40; oBrw &#41; &#41; ;\n       LEFT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n     INSET HEIGHT 15\n\n   DEFINE VMENUITEM OF oBar        ;\n     CAPTION &quot;Configurar rejilla&quot; ;\n       IMAGE &quot;SH_GRID&quot;              ;\n       ACTION &#40; CfgRejilla&#40; oBrw, &quot;IdState&quot; &#41;, oBrw&#58;setFocus&#40;&#41; &#41; ;\n       LEFT 10\n\n   DEFINE VMENUITEM OF oBar        ;\n    CAPTION &quot;Salir&quot;              ;\n       IMAGE &quot;SH_SALIR&quot;             ;\n       ACTION &#40; oApp&#40;&#41;&#58;oDlg&#58;End&#40;&#41; &#41; ;\n       LEFT 10\n\n    @ &#40; oApp&#40;&#41;&#58;oDlg&#58;nHeight / 2 &#41; - 11, nBrwSplit+2 TABS oTab ;\n    OPTION nBrwOrder ;\n    SIZE oApp&#40;&#41;&#58;oWndMain&#58;nWidth&#40;&#41; - 80, 12 ;\n    PIXEL ;\n    OF oApp&#40;&#41;&#58;oDlg ;\n    ITEMS &quot; Idioma &quot; ;\n   COLOR CLR_BLACK, GetSysColor&#40;15&#41; - rgb&#40; 30, 30, 30 &#41; ;// 13362404\n   ACTION &#40; IdTabs&#40; oBrw, nBrwOrder, oCont &#41; &#41;\n\n    @ 00, nBrwSplit SPLITTER oSplit ;\nVERTICAL ;\n       PREVIOUS CONTROLS oCont, oBar ;\n       HINDS CONTROLS oBrw, oTab ;\n       SIZE 1, &#40;oApp&#40;&#41;&#58;oDlg&#58;nHeight/2&#41;+1  PIXEL ;\n       OF oApp&#40;&#41;&#58;oDlg ;\n       _3DLOOK ;\n       UPDATE\n\nIF nBrwRecno &lt;= ID-&gt;&#40; ordKeyCount&#40;&#41; &#41;\nID-&gt;&#40; dbGoTo&#40; nBrwRecno &#41; &#41;\nENDIF\n\n    ACTIVATE DIALOG oApp&#40;&#41;&#58;oDlg NOWAIT ;\nON INIT &#40; oApp&#40;&#41;&#58;oDlg&#58;Move&#40; oApp&#40;&#41;&#58;oWndMain&#58;nTop + oApp&#40;&#41;&#58;oDlg&#58;nYMove,\noApp&#40;&#41;&#58;oWndMain&#58;nLeft + 3 &#41;,;\noTab&#58;setOption&#40; nBrwOrder &#41;,;\n  oBrw&#58;Refresh&#40;&#41;, oBrw&#58;SetFocus&#40;&#41; &#41; ;\n   VALID &#40; SetIni&#40; , &quot;Browse&quot;, &quot;IdState&quot;, oBrw&#58;SaveState&#40;&#41; &#41;,;\n     SetIni&#40; , &quot;Browse&quot;, &quot;IdOrder&quot;, ID-&gt;&#40; ordNumber&#40;&#41; &#41; &#41;,;\n     SetIni&#40; , &quot;Browse&quot;, &quot;IdRecno&quot;, ID-&gt;&#40; recNo&#40;&#41; &#41; &#41;,;\n     SetIni&#40; , &quot;Browse&quot;, &quot;IdSplit&quot;, lTrim&#40; str&#40; oSplit&#58;nleft / 2 &#41; &#41; &#41;,;\n    oBar&#58;End&#40;&#41;,;\n    oFont&#58;End&#40;&#41;,;\n    dbCloseAll&#40;&#41;,;\n    &#46;t&#46; &#41;\n[/code:12rfhcoj]','',0,'CIA=','12rfhcoj',1,0,'',49,0,0),(12878,2967,20,49,0,'62.13.172.78',1147109806,1,0,1,1,1,1,'','fancies class','ho trovato un errore nella classe TRFANDLG\n\niLink32.Exe -Gn -aa -Tpe -s @TESTFANC.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_RELEASECAP\' referenced from C:\\WORK\\LIB_32\\FANCIES\\OBJ\\TRFANDLG.OBJ\n\ndove posso trovare questa funzione RELEASECAP ?','',0,'CIA=','23d0msqt',1,0,'',49,0,0),(12879,2942,6,430,0,'157.100.146.2',1147110146,1,0,1,1,1,0,'','','Me sumo a esa idea, creo que un curso online seria algo muy buen.\n\nSaludos desde Ecuador\n\nFernando Espinoza','',0,'CIA=','jny7pmtd',1,0,'',430,0,0),(12880,2968,6,75,0,'83.52.14.67',1147114170,1,0,1,1,1,0,'','Pantalla Modo Consola de 80 x 25','¿Cómo consigo que la consola del win XP me la pinte como la de MS-Dos de siempre, esto es, de 80 columnas de ancho por 25 líneas?\n\nNo  encuentro la manera de hacerlo, me la pinta de 80 columnas por 50 líneas.\n\nSaludos.','',0,'CIA=','3pk1r3vg',1,0,'',75,0,0),(12881,2955,6,53,0,'200.95.2.165',1147114780,1,0,1,1,1,1,'','','Joao:\n\nTe agradezco el interes, las FONT se estan cerrando en la funcion Cierra()\n\nSTATIC FUNCTION Cierra()\n  oFont1:END()\n  oFont2:END()\n  oIcono:END()\n  FOR nVez := 1 TO LEN(aAlias)\n      (aAlias[nVez])-&gt;(DBCLOSEAREA())\n NEXT\nRETURN (.T.)\n\nPero aún asi tira el error.\n\nSaludos, Armando','',0,'','2jxm8khd',1,0,'',53,0,0),(12882,2967,20,6,0,'87.17.223.232',1147116964,1,0,1,1,1,1,'','Re: fancies class','Prova a sostituire nella classe (che comunque non fa parte delle FWH) ReleaseCap() con ReleaseCapture().\n\nEMG','',0,'','1n9f0oxd',1,0,'',6,0,0),(12883,2933,1,2,0,'87.218.146.34',1147118043,1,0,1,1,1,1,'','','Martín,\n\nBusca por \"STRUCT \" en los PRGs de los fuentes de FiveWin y encontrarás bastantes ejemplos.\n\nTambien busca por \"DLL32\"','',0,'','h0wneh5g',1,0,'',2,0,0),(12884,2955,6,362,0,'200.168.52.156',1147122834,1,0,1,1,1,1,'','','Intente en el MENU PRINCIPAL en el Inicio:\n\n#Include \"Objects.Ch\"','',0,'','3g8d93nf',1,0,'',362,0,0),(12885,2952,6,147,0,'200.68.215.107',1147122838,1,0,1,0,1,1,'','','Joel, Rene; muchas gracias es lo que necesitaba\n\nEnrrique, gracias, tambien, por responder','',0,'','3qm5tugh',1,0,'',147,0,0),(12886,2967,20,49,0,'87.6.176.69',1147126044,1,0,1,1,1,1,'','','grazie \nma adesso fi fa un altro errore strano\n\n[code:zrqp5s0p]Application\n===========\n   Path and name&#58; C&#58;\\Work\\LIB_32\\FANCIES\\TESTFANC&#46;Exe &#40;32 bits&#41;\n   Size&#58;   443,392 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 08/01/03, 04&#58;52&#58;50\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; ACONTROLS\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58;  =&gt; ACONTROLS&#40;0&#41;\n   Called from&#58; TRFANDLG&#46;PRG =&gt; DLGCNTRTRANSP&#40;66&#41;[/code:zrqp5s0p]','',0,'AIA=','zrqp5s0p',1,0,'',49,0,0),(12887,2967,20,49,0,'87.6.176.69',1147126115,1,0,1,1,1,1,'','','cmq ho chiesto all\'autore sperando che mi risponda','',0,'AIA=','3a17gc2l',1,0,'',49,0,0),(12888,2955,6,21,0,'81.172.120.154',1147127399,1,0,1,1,1,1,'','','Hola Armando\n\nEl problema viene de la clausula ON RESIZE. En ella llamas al evento oWnd:SetSize.\n\nCuando cierras una ventana, se llama en algun momento a Resize. No se donde se llama ni porque se llama, creo que debería estar controlado esa ejecución para que no se produjera.\n\nDe todas formas prueba a incluir la validación de si oWnd&lt;&gt;NIL para saber si tienes que ejecutar oWnd:SetSize:\n[code:2xtkquun]ACTIVATE WINDOW oWnd ON INIT &#40;oWnd&#58;SETSIZE&#40;oDlg&#58;nWidth,oDlg&#58;nHeight+29&#41;&#41;; \nON RESIZE &#40; if&#40; oWnd&lt;&gt;NIL, oWnd&#58;SETSIZE&#40;oDlg&#58;nWidth,oDlg&#58;nHeight+29&#41;, &#41;&#41;; \nMAXIMIZED VALID &#40;oWnd&#58;=NIL,Cierra&#40;oFac,oDlg&#41;&#41; [/code:2xtkquun]','',0,'AIA=','2xtkquun',1,0,'',21,0,0),(12889,2968,6,138,0,'201.152.98.24',1147129996,1,0,1,1,1,1,'','','Tienes que crear un acceso directo a tu programa, luego, dar click con el boton derecho del mouse, seleccionar propiedades, y luego seleccionar la pestaña \"DISEÑO\" y ahi se configura el tamaño de la pantalla para la aplicacion:\n\n[img:29qkcxd8]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/pantdos&#46;png[/img:29qkcxd8]','',0,'CA==','29qkcxd8',1,0,'',138,0,0),(12890,2969,6,121,0,'201.144.40.57',1147131764,1,0,1,1,1,1,'','TDOSPRN','Alguien me podria indicar donde consigo\nla clase TDOSPRN que funcione con FWH 2.7\n\nGraciasx','',0,'CA==','1obglzg3',1,0,'',121,0,0),(12891,2955,6,53,0,'200.95.2.165',1147134848,1,0,1,1,1,1,'','','João y Fernando:\n\nHabia yo brincado el problema sacando la claúsula MAXIMIZED\npero con el IF que sugirió FGondi el problema se ha solucionado\ndefinitivamente aún si abro la ventana MAXIMIZADA.\n\nMuchas gracias a ambos por su tiempo y sapiencia.\n\nSaludos, Armando','',0,'CA==','1eu05ig1',1,0,'',53,0,0),(12892,2960,6,496,0,'200.107.36.176',1147147287,1,0,1,1,1,0,'','','A lo mejor es una mala apreciación de mi parte. Lo revisé con calma y veo que el problema es que le falta al control el borde externo, o a lo mejor esté pintado de color blanco, pero que en definitiva hace que no lusca bien. Vean la imagen:\n\n[img:3a9qzbxn]http&#58;//img60&#46;imageshack&#46;us/img60/7958/wbrows3wm&#46;jpg[/img:3a9qzbxn]\n\nEs un pequeño detalle que quisiera solucionar, se podrá de alguna forma?\n\nGracias, y un saludo\n\n\nMarcelo Jingo','',0,'CA==','3a9qzbxn',1,0,'',496,0,0),(12893,2960,6,492,0,'201.127.103.202',1147157090,1,0,1,1,1,1,'','','Hola Marcelo\n\nActivale el borde al Browse y ya no se vera de esa manera.\n\nSi lo haces desde el WS es mas facil, y si no, desde tu archivo RC escribe WS_BORDER\n\ny listo !\n\n\nSaludos','',0,'CA==','xgo2u12s',1,0,'',492,0,0),(12894,2969,6,492,0,'201.127.103.202',1147157554,1,0,1,1,1,1,'','','Hola Marco\n\nLa clase en si, se encuentra en FWH\\SOURCE\\CLASSES\n\nAhora que si quieres una mas completa, me atrevo a recomendarte la de J. Mason.\n\nY por ahi, en algun post del foro ( no tengo a la mano el link, seria cuestion de buscarle un poco ), existe una modificada para que puedas tener PreView de tus impresiones en modo texto.\n\nSaludos','',0,'CA==','27xmw0cj',1,0,'',492,0,0),(12895,2862,1,550,0,'219.91.208.123',1147158880,1,0,1,1,1,0,'','','Hi James\nThanks for the program supplied for downloading the info from web page.When I ran  that program I got the info displayed in a window.When I clicked the close button of the window I got following error message \"Error BASE/1209 String Overflow: + from Errorsys,line:0\".Pls advice how to overcome this problem.Is it occuring because info is more than 65K . I have noticed the CSV file size is between 65K-68K.If this is the case pls advice how to overcome this.\nDigressing from the subject.A few years back when I had posted my first query on fivewin newsgroup you had answered it and introduced me to the concept of \"Paying it forward\".Eventhough I have not contributed anything to fivewin I try to reply to posts on other forums which I visit.It does give mental satisfaction when you help other people.\nWith Best Wishes\nRajeev Chavan','',0,'CA==','1rpeyeju',1,0,'',550,0,0),(12896,2970,3,160,0,'210.212.142.91',1147160245,1,0,1,1,1,0,'','How can I print after Grand Total in Report ?','Hello All,\n\nI want to print a few lines after Grand Total using Report Class. I tried using POSTEND clause but without success. I know that postend should work, but I am missing something.\n\nCan somebody give me an example to print following two lines after Grand Total :\nLine-1 Details...........\nLine-2 Details...........\n\nTIA\nMilan.','',0,'CA==','wekn35cb',1,0,'',160,0,0),(12897,2862,1,2,0,'87.218.146.34',1147162915,1,0,1,1,1,1,'','','Rajeev,\n\nYou need to migrate your application to FiveWin for Harbour (32 bits) where you can manage files as large as needed. In a week or less you may have it working with FWH.','',0,'CA==','hzoqc3zp',1,0,'',2,0,0),(12898,2971,20,29,0,'88.149.161.209',1147167816,1,0,1,1,1,0,'','Problema per passare il focus','Salve, ho una dialog per l\'inserimento di un codice numerico digitato il quale devo fare apparire la lista di movimenti corrispondente al codice. \n\nPer fare questo utilizzo oGet1:bLostFocus così quando il campo che contiene il codice perde il controllo, letto i records corrispondenti al codice ed aggiorno una tabella browse. Fatto questo dovrei passare il controllo al campo oData1 per l\'inserimento di una data ma non riesco e il controllo mi va sempre sul bottone oBtn. Qualche idea ?\n\nInoltre vorrei leggere i record corrispondenti al codice solo quando si perde il focus su oGet1 e l\'ultimo tasto premuto è Enter. Come posso fare ? Esiste un lastkey() tipo clipper ?\n\nEcco un estratto del codice che ha il problema.\n\n        DEFINE DIALOG oDlg2 FONT oGenFont RESOURCE \"DIALOG_055\" title \"Registrazione con codice a barre o codifica numerica\"\n    \n           REDEFINE GET oGet1 VAR codific ID 102 of oDlg2 picture \"!!!!!!!\"\n\n          oGet1:bLostFocus={|| (oGet1:Assign(),CodeToList(codific),oBrw:SetArray(listpaga,1),oDlg2:Update(),oGet1:oJump=oData1)}\n\n        redefine BROWSE oBrw id 104 FONT oGenFont OF oDlg2 update\n\n        oBrw:SetArray( listpaga,1 )\n        oBrw:nClrForeHead := CLR_WHITE\n        oBrw:nClrBackHead := CLR_BLUE\n\n        ADD COLUMN TO oBrw DATA ARRAY ELEM 1 ;     // array element # 1\n          HEADER \"Anno\"  SIZE 30\n\n        ADD TO oBrw ARRAY ELEM 2 ;\n          HEADER  \"Rata\" SIZE 30\n\n        ADD TO oBrw ARRAY ELEM 3 ;\n          HEADER  \"Scadenza\" SIZE 70\n\n        ADD TO oBrw ARRAY ELEM 4 ;\n          HEADER  \"Descrizione\" SIZE 130\n\n        ADD TO oBrw ARRAY ELEM 5 ;\n          HEADER  \"Importo\" SIZE 60 RIGHT\n\n        REDEFINE SAY oSay3 prompt cBollStatus ID 105 of oDlg2 update\n\n        REDEFINE GET oData1 VAR datareg ID 106 OF oDlg2 PICTURE \"99/99/9999\" UPDATE\n    \n        ** conferma **\n        REDEFINE BUTTON OBTN ID 120 OF oDlg2 UPDATE    ;\n            ACTION ( RegPag(),retcode:=1            , ;\n            oDlg2:End() );\n            WHEN (TOTBOL&lt;&gt;0 .AND. .NOT. LINCASSATO)\n\n       \n    ACTIVATE DIALOG oDlg2 centered   \n\n\nGrazie in anticipo\nSaluti\n\nMArco Turco','',0,'CA==','33tw4gor',1,0,'',29,0,0),(12899,2970,3,455,0,'195.97.105.161',1147168739,1,0,1,1,1,0,'','Re: How can I print after Grand Total in Report ?','[quote=&quot;Milan Mehta&quot;:2wdkkoa4]Hello All,\n\nI want to print a few lines after Grand Total using Report Class. I tried using POSTEND clause but without success. I know that postend should work, but I am missing something.\n\nCan somebody give me an example to print following two lines after Grand Total :\nLine-1 Details...........\nLine-2 Details...........\n\nTIA\nMilan.[/quote:2wdkkoa4]\n\nMilan hi,\n\n[code:2wdkkoa4]\n     ACTIVATE REPORT oReport WHILE &#40;nPt &lt;= len&#40;uArray&#41;&#41; ;\n        ON END &#40;oreport&#58;ltotal&#58;= &#46;T&#46;, LastDaTable&#40;&#41;&#41; \n\n// &#40;You may skip the report totals by changing &#46;T&#46; to &#46;F&#46; above&#41;\n// The above is extracted from printing an multidimentional array,\n// but can be used for regular database fields&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\n\nFunction LASTDATABLE&#40;&#41;\n*---------------------\nLOCAL nAlign &#58;= 2    // 2= right, 1= left, 0= center\n\noReport&#58;Separator&#40;1, oReport&#58;nRow&#41;\n\n   // Syntax&#58;  Col&#46;No&#46;, String,     font, align\n   oReport&#58;Say&#40;1,   &quot;Details&quot;&#41; , 2,      1&#41;    // Column 1 &#40;Align left&#41;\n   oReport&#58;Say&#40;2,       &quot;   &quot;     , 2,      0&#41;    // Column 2 &#40;Align center&#41;\n\n   oReport&#58;Say&#40;7, str&#40;nTtlCharge,12,2&#41;, 2, nAlign&#41; \n   oReport&#58;Say&#40;8, str&#40;nTtlGTotal,12,2&#41;,  2, nAlign&#41; \n   oReport&#58;Say&#40;9, str&#40;nTtlRateKg,12,2&#41;, 2, nAlign&#41;\n\noReport&#58;NewLine&#40;&#41;\n\nReturn NIL\n[/code:2wdkkoa4]\n\nI hope the above will help you...\nKind regards\nEvans','',0,'gIA=','2wdkkoa4',1,0,'',455,0,0),(12900,2972,3,455,0,'195.97.105.161',1147169251,1,0,1,1,1,0,'','Packaging Print Jobs','Hi all,\nOnce upon a time in MS-DOS we could do multiple print jobs to get inside one file in append mode with SET PRINTER TO myfile.txt ADDITIVE.\n\nToday, with all the bells and whistles of windows, it seems that we cannot directly apply the above, and rather create all the nice graphics with different fonts and images, etc.\n\nOur problem is this:\nOur reports consist of several print jobs (e.g. COVER PAGE, SUMMARY, DETAILED REPORT, etc), each sent to the printer as one print job.\nThere is no real problem with single users, but it when it comes to printing to a network printer, it appears that everything is messed up somehow.\n\nFor example PC A, sends its COVER PAGE to the printer, and at the same time, PC B sends its own COVER PAGE (for another company).\nRight after that, PC A send the SUMMARY PAGES (it can be between 1 page to several pages), and PC B sends its own SUMMARY PAGES....\n\nOn the printer paper tray, we end up most of the time, with mixed pages from PC A and PC B, and need someone to spend several minutes puting an order to the mess and separate each page.\n\nI wonder if there is any way to \"que\" our print jobs without going to the printer, and send it when we\'re done with printing of all reports from one workstation, so the print job will be printed in whole, without printing other pages in between.\n\nI hope that some other fellow programmers have ran/run into this problem, and perhaps someone has found a solution to it.\nLike I said, it\'s the network printer that creates the above problem, and not printers connected locally to a non-network PC.\n\nI would like to thank everyone who would like to shed some light to our problem.\n\nKind regards to all\n\nEvans','',0,'gIA=','a7vh8q5z',1,0,'',455,0,0),(12901,2874,3,455,0,'195.97.105.161',1147170022,1,0,1,1,1,0,'','','[quote=&quot;ShumingWang&quot;:24se3r0p]Thanks for so many replies!\n\nShuming Wang[/quote:24se3r0p]\n\nOne more from me...\n\nYou may use PDF995.\n\nThis is a printer driver which allows you to do something more than any other PDF driver that I have seen, which is to create a pagkage of all print jobs, in one file (called Combined).\nIt automatically captures the print job names from your programs, and all you have to do is to change the PDF995.INI file to work either on combine mode, or single document mode.\nIt offers another tool that allows you to encrypt files from inside your Clipper FW or FWH xHarbour, and set the rights (Print, copy, passwords,etc).\nI consider it as an excellent tool and it\'s very reliable.\n\nThe PDF995 is freeware, and the license for some minor splash screens can be removed by purchasing a 10.00$ license key to register it.\n\nFor more info try: [url:24se3r0p]http&#58;//www&#46;pdf995&#46;com/[/url:24se3r0p]\n\nKind regards\nEvans','',0,'kA==','24se3r0p',1,0,'',455,0,0),(12902,2477,3,15,0,'203.73.91.90',1147171369,1,0,1,1,1,0,'','','Hi clemerson,\n\nMy solution not support any Fingerprint hardware.\nMy LIB file only support my Fingerprint hardware and drvice.\nIt\'s different of hardware/device.\n\nRegards,\n\nRichard','',0,'kA==','3pq3yvd2',1,0,'',15,0,0),(12903,2965,6,15,0,'203.73.91.90',1147171513,1,0,1,1,1,0,'','','Hello Silvio,\n\nI have this CLASS sample code.\n\nIf you want sample files, I can send to you.\n\nRegards,\n\nRichard','',0,'kA==','2fiasiax',1,0,'',15,0,0),(12904,2973,6,24,0,'80.37.55.44',1147173585,1,0,1,1,1,1,'','Quien tiene las Clipper Tools para xHarbour','¿ Alguien me puede enviar la libreria de las clipper tools para xHarbour , version 0.99.60, compiladas para Fwh27 ?\n\nJodo, que por esto no puedo continuar... y no tengo ahora para montarme el xHarbour desde el CVS.\n\nAntonio, seria interesante meter esta libreria en la distribuccion de Fivetech de xHarbour, al igual que se mete la hbzlib y creo que se genera automaticamente, asi que no te supondria esfuerzo adicional.\n\nGracias.','',0,'kA==','36dgbhba',1,0,'',24,0,0),(12905,2971,20,6,0,'87.17.218.29',1147175833,1,0,1,1,1,1,'','Re: Problema per passare il focus','[quote=&quot;Marco Turco&quot;:2smga3zf]Per fare questo utilizzo oGet1:bLostFocus così quando il campo che contiene il codice perde il controllo, letto i records corrispondenti al codice ed aggiorno una tabella browse. Fatto questo dovrei passare il controllo al campo oData1 per l\'inserimento di una data ma non riesco e il controllo mi va sempre sul bottone oBtn. Qualche idea ?[/quote:2smga3zf]\n\nLa richiesta è la solita: potresti costruire un programmino minimale ma compilabile che mostri il problema?\n\n[quote=&quot;Marco Turco&quot;:2smga3zf]Inoltre vorrei leggere i record corrispondenti al codice solo quando si perde il focus su oGet1 e l\'ultimo tasto premuto è Enter. Come posso fare ? Esiste un lastkey() tipo clipper ?[/quote:2smga3zf]\n\n[code:2smga3zf]IF GETKEYSTATE&#40; VK_RETURN &#41;\n    &#46;&#46;&#46;\nENDIF[/code:2smga3zf]\n\nEMG','',0,'gIA=','2smga3zf',1,0,'',6,0,0),(12906,2963,6,57,0,'83.42.116.183',1147175890,1,0,1,1,1,1,'','','Raymundo\nDebes indicar en las propiedades del boton del editor de recursos que utilices la opción Multilinea o editando el RC indicando BS_MULTILINE\n\nSaludos','',0,'gIA=','2fnmak0l',1,0,'',57,0,0),(12907,2965,6,439,0,'190.0.136.142',1147177071,1,0,1,1,1,1,'','','Please Taiwan\n\nSend this sample to me too.\n\n<!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e -->','',0,'gIA=','1szn39pu',1,0,'',439,0,0),(12908,2974,7,179,0,'200.69.181.39',1147177333,1,0,1,1,1,1,'','Ot: Red Gsm','Buenos dias compañeros\nPueden nustras aplicaciones trabajar usando esta red ??\nse podrian digamos accesar tablas Ads Server desde la pocket usando esta Red ??\n\nalguien sabe algo ??\n\nGracias x Todo','',0,'gIA=','2qcf79gp',1,0,'',179,0,0),(12909,2969,6,121,0,'201.152.96.105',1147177723,1,0,1,1,1,1,'','','muchas gracias','',0,'gIA=','3jkbbxpz',1,0,'',121,0,0),(12910,2975,20,532,0,'84.222.80.238',1147179221,1,0,1,1,1,0,'','METER...','Ciao a tutti.\n\nDevo aggiornare i dati di un magazzino, visto la quantità di\ndati, l\'operazione è molto lunga, per evitare che nell\'attesa\nqualcuno \"resetti\" il computer è possibile usare la funzione\nMETER durante l\'aggiornamento?\n\nEsempio: \n\nSelect 1\nUse magazzino\n\nSelect 2 \nUse aggiornamento\n\n\nDo While !(eof())\n\n//condizioni varie\n\n\nSelect 1\n\nReplace ....\n\nSelect 2\n\nskip\n\nEnddo\n\n\nGrazie mille!','',0,'gIA=','1rykusy4',1,0,'',532,0,0),(12911,2960,6,496,0,'157.100.180.226',1147180540,1,0,1,1,1,0,'','','Y desde código cómo sería: <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nSaludos\n\n\nMarcelo Jingo','',0,'gIA=','2kwaw144',1,0,'',496,0,0),(12912,2975,20,6,0,'87.17.218.29',1147183687,1,0,1,1,1,1,'','Re: METER...','Guardati la funzione MsgRun()\n\nEMG','',0,'gIA=','3fdq6nft',1,0,'',6,0,0),(12913,2963,6,110,0,'165.98.151.243',1147183836,1,0,1,1,1,1,'','','Ray\n\ndebes incluir esta linea al incio del archivo rc. (editandolo desde un editor de texto)\n[code:39wf4o0v]\n#define BS_MULTILINE        0x00002000L \n[/code:39wf4o0v]\nluego en el WS define Style y le indicas esa constante\nBS_MULTILINE (verifica luego del cambio que el boton tenga asignado el WS_TABSTOP ya que algunas veces cuando haces un cambio manual se lo quita)\n\nla otra forma es definir esta constante en tu prg\n[code:39wf4o0v]\n#define BS_MULTILINE        1024\n[/code:39wf4o0v]\ny al objeto boton aplicarle ese estilo.\n[code:39wf4o0v]\nREDEFINE BUTTOMBMP oBtn1 ID &#46;&#46;&#46;&#46;&#46;\n\noBtn1&#58;nStyle &#58;= nOR&#40;oBtn1&#58;nStyle,BS_MULTILINE&#41;\n[/code:39wf4o0v]\n\ncualquiera de las dos formas te funcionaran. \nahora esto lo he probado en botones normales, pero en botones con bmp no. habria que verificar en el metodo paint si el texto no es dibujado a mano.\n\nsalu2\ncarlos vargas','',0,'AIA=','39wf4o0v',1,0,'',110,0,0),(12914,2968,6,110,0,'165.98.151.243',1147184102,1,0,1,1,1,1,'','','Debes abrir la ventana de consola, luego das click en el icono de la parte superior izquierda para que aparezca el menu, seleccionas la opcion predetermiandos, aparece una ventana que contiene un folder, seleccionas la pestaña diseño y estableces en las secciones \"Tamaño del buffer de la pantalla\" y \"Tamaño de la ventana\" en valores de 20x80, y listo, esto afectara a todas y cada una de las ventanas de consolas que abras.\n\n\nsalu2\ncarlos vargas','',0,'AIA=','1t8necnn',1,0,'',110,0,0),(12915,2564,3,261,0,'63.197.46.139',1147184935,1,0,1,1,1,1,'','Thick client w/Web Services','I have messed around with Web Services utilizing the Microsoft Web Services Toolkit and they seem to work very well.  This allows you to comunicate with a web app from a FiveWin app.  There are several public web services available, and you can write them with .net easily.  I would like to see a native FiveWin class to handle web services on the client and server.  This seems to be the best of both worlds, you have all the speed and control of a winforms application, communicating just as you were a web app.\n\nThanks, \n\nByron...','',0,'AIA=','wokc0q40',1,0,'',261,0,0),(12916,2477,3,486,0,'200.184.85.3',1147185080,1,0,1,1,1,0,'','','I understood,  \n  \ndoes he have the possibility of me to buy his harware for me to resell for my customers?  \n  \nI am of Brazil.\n\nClemerson','',0,'AIA=','2im2mpu9',1,0,'',486,0,0),(12917,2973,6,24,0,'80.37.55.44',1147185190,1,0,1,1,1,1,'','Re: Quien tiene las Clipper Tools para xHarbour','Ya las tengo, gracias a Antonio Ortega.','',0,'AIA=','1r09lwke',1,0,'',24,0,0),(12918,2976,6,24,0,'80.37.55.44',1147185419,1,0,1,1,1,1,'','Funcion IsThemed()','Bueno, no se si le sera interesante a la gente, pero aqui tienen el \ncodigo fuente en C de una funcion similar.\nCreo que arregla un fallo que se da en el Windows XP sp2, pero no estoy\nmuy seguro.\n\nPero seguro que a Antonio le da mas provecho <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/tips/DetectTheme.asp\">http://www.codeproject.com/tips/DetectTheme.asp</a><!-- m -->\n\nSaludos\nRafa Carmona','',0,'AIA=','1d7u3150',1,0,'',24,0,0),(12919,2528,3,261,0,'63.197.46.139',1147185492,1,0,1,1,1,1,'','Soap','Have you gotten this to work?  How do you pass parameters in the soap message?\n\nByron...','',0,'AIA=','3tehqha1',1,0,'',261,0,0),(12920,2960,6,24,0,'80.37.55.44',1147185549,1,0,1,1,1,1,'','','[quote=&quot;sjingo&quot;:28s38uvd]Y desde código cómo sería: <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nSaludos\n\n\nMarcelo Jingo[/quote:28s38uvd]\nNo lo se, porque viendo el codigo ya tienes puesto el WS_BORDER, y obtengo o me pasa exactamente lo mismo que a ti.\n\nSaludos\nRafa Carmona','',0,'gA==','28s38uvd',1,0,'',24,0,0),(12921,2528,3,486,0,'200.184.85.3',1147185922,1,0,1,1,1,0,'','Re: Soap','[quote=&quot;byron.hopp&quot;:2c0u7cx2]Have you gotten this to work?  How do you pass parameters in the soap message?\n\nByron...[/quote:2c0u7cx2]\n\nIt would be the content of the otxt that I would order and to receive the return, more it ties today didn\'t still get to work.\n\nClemerson','',0,'gA==','2c0u7cx2',1,0,'',486,0,0),(12922,2963,6,492,0,'201.127.103.202',1147187888,1,0,1,1,1,1,'','','Ok, enterado Amigos     <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nLo pruebo y les comento.\n\n\nMuchas Gracias y Saludos a todos','',0,'gA==','2ab0gsdi',1,0,'',492,0,0),(12923,2874,3,303,0,'72.199.41.171',1147189135,1,0,1,1,1,0,'','','Evans,\n\nI have a few questions about PDF995. If I remember correctly it also requires installing Ghostscript too? If so, then your application installation has to install the app, PDF995, and Ghostscript, right?\n\nAlso, to prevent the splash screens, you would need to pay the license fee for each copy of PDF995 that you install with a copy of your application, correct?\n\nCan you print to a PDF without user interaction (no dialogs)?\n\nJames','',0,'gA==','30htleor',1,0,'',303,0,0),(12924,2874,3,6,0,'87.17.218.29',1147192242,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3s6qq46o]Can you print to a PDF without user interaction (no dialogs)?[/quote:3s6qq46o]\n\nYes, using PDFCreator.\n\nEMG','',0,'gA==','3s6qq46o',1,0,'',6,0,0),(12925,2977,6,157,0,'83.46.58.2',1147192399,1,0,1,1,1,0,'','Libreria libmisc.lib','Hola a todo el foro:\n\nDonde puedo conseguir la libreria libmisc.lib. Ha cambiado de nombre ?\nSi es asi como se llama ahora y donde conseguirla\n\nGracias a todos','',0,'gA==','2vxsz4ms',1,0,'',157,0,0),(12926,2978,6,439,0,'190.0.143.126',1147195885,1,0,1,1,1,1,'','Asociar teclas de función a funciones específicas','Colegas, espero puedan ayudarme en esta dificultad.... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nNecesito asociar a los botones de una dialog que manipula los registros\nde una base de datos (botones: nuevo, modificar, eliminar, anterior, siguiente, ultimo, primero, etc) teclas de función de modo que cuando se presiona por ejemplo la tecla F7 equivalga a presionar el botón eliminar.\n\nLo hice así:\n.....\n#include \"inkey.ch\"\n......\n\n   SetKey(K_F2   , {|| Nuevo( oDbf, oBtn, oDlg, oPage:aDialogs[1], ;\n              oSay, oGet, cNom_Dbf, cAlias ) })\n   SetKey(K_F8   , {|| Modificar(oPage:aDialogs[1], oBtn) })\n   SetKey(K_F7   , {|| Borrec( oDbf, oBtn, oDlg, oPage:aDialogs[1], ;\n               oSay ) })  .......\n\nDEFINE DIALOG .......\n.....\nACTIVATE DIALOG .......\n     SetKey(K_F2   )\n     SetKey(K_F8   )\n     SetKey(K_F7   )\n......\nRETURN NIL\n\nPero al presionar las teclas de función no pasa nada, aunque con los botones las funciones andan perfecto.\n\nque está mal?:shock: \nHay una forma mejor o más correcta de hacerlo?  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nGracias desde ya por la ayuda que me puedan brindar. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','2my9egx6',1,0,'',439,0,0),(12927,2974,7,138,0,'201.152.98.24',1147196027,1,0,1,1,1,1,'','','hummmm\n\nTeoricamente se podria con el Advantage Internet Server.\n\nSin embargo, estoy seguro que los DLLs clientes de ADS no funcionnan en Pocket PC\n\nSin embargo , en una LAN tu puedes usar un DBF remoto conectado por la red WiFi, siempre y cuando este sea pequeño.\n\nPor internet dudo mucho que se pueda hacer en este momento porque no hay lciente ADS para PPC','',0,'','2tq95l6q',1,0,'',138,0,0),(12928,2979,6,439,0,'190.0.129.138',1147199310,1,0,1,1,1,1,'','Problemas de Barra de Menú','Hola a todos,\n\nOtra vez pidiendo socorro...\nAquí pueden ver el menú de mi aplicación al iniciar:\n\n[url=http&#58;//imageshack&#46;us:2ym5n10j][img:2ym5n10j]http&#58;//img451&#46;imageshack&#46;us/img451/4420/antes7gq&#46;png[/img:2ym5n10j][/url:2ym5n10j]\n\nAhora observen que sucede cuando hago clic sobre la opción documentos y cuando simplemente paso el mouse sobre la opción deudores...\n\n[url=http&#58;//imageshack&#46;us:2ym5n10j][img:2ym5n10j]http&#58;//img438&#46;imageshack&#46;us/img438/8154/despues0bi&#46;png[/img:2ym5n10j][/url:2ym5n10j]\n\nEs posible evitar este efecto?\n\nCualquier ayuda será apreciada.','',0,'GA==','2ym5n10j',1,0,'',439,0,0),(12929,2874,3,3,0,'82.253.160.108',1147200189,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:5p8bzmm6][quote=&quot;James Bott&quot;:5p8bzmm6]Can you print to a PDF without user interaction (no dialogs)?[/quote:5p8bzmm6]\n\nYes, using PDFCreator.\n\nEMG[/quote:5p8bzmm6]\n\nEnrico\n\nYou still need to install a pdf printer with PDF creator\n\nRichard','',0,'gA==','5p8bzmm6',1,0,'',3,0,0),(12930,2978,6,431,0,'200.84.7.170',1147202981,1,0,1,1,1,1,'','Asociar teclas de función a funciones específicas','Oye Jose,\n\nyo lo hago asi como son botones los que quieres activar yo uso\n\nCASE nKey==VK_F2\n        o123:SetFocus()   \n        o123:Click()\n   \nsiendo o123 \n\n    REDEFINE BUTTON o123 ID 123 OF oDlgLot                   ;\n         PROMPT \"&amp;Buscar Ticket\"  Action (::BuscarTicket(::oComboSigno))\n\nespero me entiendas y te funcione \n\nSuerte','',0,'gA==','3rgyro71',1,0,'',431,0,0),(12931,2964,6,28,0,'87.218.47.114',1147204777,1,0,1,1,1,0,'','aqui estoy','<!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->\n\nEa.','',0,'gA==','2r7lkaiq',1,0,'',28,0,0),(12932,2965,6,28,0,'87.218.47.114',1147204849,1,0,1,1,1,0,'','','que quieres saber, Silvio?','',0,'gA==','22k0q4ss',1,0,'',28,0,0),(12933,2974,7,179,0,'206.231.70.211',1147205471,1,0,1,1,1,1,'','','gracias Maestro, como siempre dando en el clavo\nSaludos desde el Ecuador','',0,'gA==','1wu4z4qp',1,0,'',179,0,0),(12934,2874,3,6,0,'87.17.218.29',1147206231,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:1murk0eq]You still need to install a pdf printer with PDF creator[/quote:1murk0eq]\n\nYes, but it is free.\n\nEMG','',0,'gA==','1murk0eq',1,0,'',6,0,0),(12935,2967,20,49,0,'87.16.178.111',1147211584,1,0,1,1,1,1,'','','è come inviare email al muro :\nPaco non esiste\ncesada non esiste \n\nmi arrendo...','',0,'gA==','ow1b6wrf',1,0,'',49,0,0),(12936,2954,6,519,0,'83.38.241.170',1147212246,1,0,1,1,1,0,'','','Hoa Rossine\n\n   Desde recursos no funciona el twbrowse, si creas el twbrowse en unas coordenadas en archivo de RC, despues no te lo pinta bien, lo pinta siempre en TOP.\n\nun saludo y gracias','',0,'gA==','3v7u4tu3',1,0,'',519,0,0),(12937,2965,6,49,0,'87.16.178.111',1147212330,1,0,1,1,1,1,'','','Paco I sent you a message in private email','',0,'gA==','2gcj0m55',1,0,'',49,0,0),(12938,2962,2,228,0,'200.119.52.21',1147213565,1,0,1,1,1,1,'','','Amigo que pena no te pude enviar el correo ayer, pero aqui esta la respuesta.\n\n1. Esta es para saber que get esta blanco.\n\n[code:oachnxjo]\nIF Empty&#40;oGet1&#41;\n  MSGINFO&#40;&quot;Digite Nombre&quot;&#41;\nELSE\n  &#46;&#46;&#46;&#46;&#46; ejecutas el proceso\nENDIF\n[/code:oachnxjo]\n\n\n2. Si estas en una pestaña diferente en el get para que pase el foco a la otroa haces lo siguiente:\n\nofld:Setoption(1)\n\n3. para que tome el foco hazlo de la siguiente manera:\n\noget1:setfocus(.t.)\n\nEn resumidas cuentas lo que creo que quieres hacer es lo siguiente:\n\n[code:oachnxjo]\nIF Empty&#40;oGet1&#41;   //Si el get se encuentra vacio\n  MSGINFO&#40;&quot;Digite Nombre&quot;&#41;\n  ofld&#58;setoption&#40;1&#41; //selecionas la pestaña que debe tomar el foco\n  oget1&#58;setfocus&#40;&#46;t&#46;&#41; //tomas el foco del objeto seleccionado\nELSE   //Si el valor el correcto\n  &#46;&#46;&#46;&#46;&#46; ejecutas el proceso\nENDIF\n[/code:oachnxjo]\n\n\n\nEspero te sirva..','',0,'AIA=','oachnxjo',1,0,'',228,0,0),(12939,2874,3,455,0,'195.97.105.161',1147214198,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1zeifx5l]Evans,\n\nI have a few questions about PDF995. If I remember correctly it also requires installing Ghostscript too? If so, then your application installation has to install the app, PDF995, and Ghostscript, right?\n\nAlso, to prevent the splash screens, you would need to pay the license fee for each copy of PDF995 that you install with a copy of your application, correct?\n\nCan you print to a PDF without user interaction (no dialogs)?\n\nJames[/quote:1zeifx5l]\n\nJames,\nPDF995 is a freeware tool, requiring no fees to use, unless you want to get rid of the splash screens.  According to its creators (<!-- w --><a class=\"postlink\" href=\"http://www.pdf995.com\">www.pdf995.com</a><!-- w -->), the license key costs 9.95 USD, and it\'s really worth to pay for this.\nObtaining THINSETUP.EXE with the license, stops the splash screens.\n\nHow do we use it...\nWe install it as a regular printer. It does not require ANY OTHER software drivers, other than those provided by PDF995.\n\nWe simply create a PDF995.INI file in C:\\PDF995\\RES folder (which is used for the PDF995 program) and tell the PDF995 drivers to use the current document\'s filename to create a PDF.\nWe may alterntaviely create one big file called COMBINED.PDF (or any filename of your choice), by writing this PDF995.INI file.\nExample of non combined pdf (single document that will be created with any filename we assign it with PRINT oprn to (cPrinter) name \"Summary Report of May_10_2006\n\n[code:1zeifx5l]&#91;Parameters&#93;\nOutput File=SAMEASDOCUMENT\nOutput Folder=C&#58;\\PDF995\\OUTPUT\nCombine Documents=0\nCombine Last=0\nSize=letter\nAutolaunch=0\n[/code:1zeifx5l]\n\nExample of combined pdf created with printing multiple documents, for example, print the cover page as one document, then the Summary report, then the detailed report, then the Taxes report, etc. all in one and only single pdf document.\n\n[code:1zeifx5l]\n&#91;Parameters&#93;\nOutput File=C&#58;\\PDF995\\OUTPUT\\Combined&#46;pdf\nOutput Folder=C&#58;\\PDF995\\OUTPUT\nCombine Documents=1\nCombine Last=0\nSize=letter\nAutolaunch=0\n[/code:1zeifx5l]\n\nBy saving either one of the above text into C:\\PDF995\\RES folder, we tell the pdf driver how to handle the printouts.\nBelieve it or not, it does a great job.\nThere is also another tool provided by PDF995.  It\'s called \"pdf995 Standard Encryption.exe\".  This accepts parameters to open any file, encrypt it with password, 64-128 bit algorithm, set properties for printing, copying, where to save the encrypted file and even under what filename, etc., all by passing parameters through our xHB/FWH program!\n\nThe price for obtaining a license key is at least affordable, and it\'s the least I can say about it.\n\nWhat PDF995 offers, is really something else.\n\n\nSpeaking of how to send the created file by email...\nI believe that any one who can email something, can also attach this file to an email. It\'s not so difficult at all.  Simply attach the created file to the email and you\'re done.\n\nFor any further (programming) issues, please don\'t hesitate to ask me.\nAll and all, we use PDF995 as any other printer driver (we can set the page size also and the resolution of the pdf, through the above PDF995.INI file!)\n\nKind regards\nEvans\n\nps. Yes, there are no dialogs displayed by PDF995 when we print through it.  Everything that we do and that is not much we do, is send our document to the printer (report or print makes no difference)\n\nFinally, I forgot to tell you that you can open the produced file directly from your XHB/FWH program by calling the Adobe Reader as follows:\n[code:1zeifx5l]Shellexecute&#40;NIL, &quot;OPEN&quot;, Chr&#40;34&#41; + xoRepFile + Chr&#40;34&#41;, NIL, NIL, 1&#41;[/code:1zeifx5l]\nOf course, xoRepFile should be the filename that your document was created, and contain the full path.\ne.g. xoRepFile := \"C:\\PDF995\\OUTPUT\\COMBINED.PDF\"\n\nSorry for the long post <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gIA=','1zeifx5l',1,0,'',455,0,0),(12940,2969,6,228,0,'200.119.52.21',1147214728,1,0,1,1,1,1,'','amigo..','amigo si quieres dame tu correo y te envio una clase para que previsualizar antes de enviar a la impresora...','',0,'gIA=','3ekrcruf',1,0,'',228,0,0),(12941,2980,6,295,0,'200.112.87.30',1147221141,1,0,1,1,1,1,'','APLCIACION WEB CON FIVE WIN XHARBOUR?','Amigos,\n\nEs posible implementar una aplicación para la web con FWxHarbour, a través de la cual poder consultar, agregar, eliminar registros, ya sea en SQL, o MySql, la idea es que se ejecute en el Explorer\n\nGracias de antemano por sus comentarios\n\nSALUDOS \nxHabrazos','',0,'gIA=','2dqtmc83',1,0,'',295,0,0),(12942,2980,6,138,0,'148.221.197.200',1147224181,1,0,1,1,1,1,'','','Claro que se puede:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/webtilus32.htm\">www.google.d2g.com/webtilus32.htm</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/sicarta/\">www.google.d2g.com/sicarta/</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/usrs.htm\">www.google.d2g.com/usrs.htm</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/cdreg.htm\">www.google.d2g.com/cdreg.htm</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.google.com/adsfree.htm\">www.google.com/adsfree.htm</a><!-- w -->\n\nHay varias formas de hacerlo, con CGIs, con ASP, etc','',0,'gIA=','1dgtj63y',1,0,'',138,0,0),(12943,2874,3,303,0,'72.199.41.171',1147225644,1,0,1,1,1,0,'','','Evans,\n\nThanks for all the detailed info.\n\n[quote:304lnlwy]PDF995 is a freeware tool, requiring no fees to use, unless you want to get rid of the splash screens.[/quote:304lnlwy]\n\nWell, of course, for a commercial application (that you are selling) you do not want splash screens from another application showing up. So you need the license.\n\n[quote:304lnlwy]We install it as a regular printer. It does not require ANY OTHER software drivers, other than those provided by PDF995.[/quote:304lnlwy] \n\nOK, so you need a copy for each user. This creates a problem. You now have to license your commercial application for x number of users, because you need to purchase x number of licenses for the PDF driver to go with the application. So, for instance, if you sell your application for $300 and the customer wants it for 10 users, you will need to add on another $100 to your price for the PDF driver licenses. This is also going to be hard to control, because the customer could then install it on any number of machines I would think (unless PDF995 has some sort of protection against this).\n\nAccording to their website it DOES require a Postscript \"converter:\"\n\n[quote:304lnlwy]Pdf995 is a printer driver that works with any Postscript to PDF converter. The pdf995 printer driver and a free Converter are available for easy download. [/quote:304lnlwy]\n\nGranted the Postscript converter is free, but it is also 5MB and it has to be installed on each PC that the application is run from along with the PDF995. Right?\n\nSo, as before, my concerns are two, 1) You have to install both the PDF995 print driver and the Postscript converter on every PC and 2) you have to add on the cost of all the licenses--one for each user.\n\nI am only talking about including it with a commerical application. Of couse, if one is using it in-house, then that is simpler. But, I know you are selling a commericial application, so I wonder how you handle these issues? Or, maybe you are only using it in-house?\n\nA better solution would seem to be a PDF library that could be compiled into the application or distributed as a DLL. This way you would not need to install a copy on each PC and there would only be one developer license required. So even if the license was several hundred dollars, you could distibute any number of applications for any number of users without any additional fees.\n\nJames','',0,'gA==','304lnlwy',1,0,'',303,0,0),(12944,2981,3,35,0,'65.188.6.143',1147226646,1,0,1,1,1,0,'','Hernan\'s Twbrowse 1.8 ??','Any word from anyone when Hernan will release ( or has released ) his TwBrowse class 1.8 ??\n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','1pcffdgi',1,0,'',35,0,0),(12945,2980,6,295,0,'201.222.147.32',1147228310,1,0,1,1,1,1,'','','Rene,\n\nque bién!, pero como tu dices hay varias formas, ¿ eso significa que las paginas de los links que me indicas están hechas con asp php o .. con FW? \n\nsaludos\ny gracias por tu respuestas','',0,'gA==','3lhuhlub',1,0,'',295,0,0),(12946,2963,6,492,0,'201.154.125.229',1147229215,1,0,1,1,1,1,'','','Perfecto !!!!\n\nFunciono al 1000%, de momento no le estoy incrustando una imagen, pero la idea es que mas adelante se la ponga, en su momento veremos si brinca algo mas.\n\nMuchas Gracias a ambos     <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos','',0,'gA==','2772n61l',1,0,'',492,0,0),(12947,2960,6,496,0,'200.107.36.176',1147231320,1,0,1,1,1,0,'','','Por si a alguien le sirve:\n\nLogre solucionarlo colocando en el código lo siguiente:\n\nolbx:nstyle:=nOr( olbx:nstyle, WS_BORDER) \n\n\n\n\nUn saludo\n\nMarcelo Jingo','',0,'gA==','3f4o8kxb',1,0,'',496,0,0),(12948,2978,6,78,0,'201.230.102.22',1147231342,1,0,1,1,1,0,'','HOla,,, Debe funcionar','Hola Sr...\ndebe funcionar,, yo oo hago asi\n\nSetKey(VK_F12,{||AbreCajonDinero(aSerieNumero)})  \n\n\nSalu2','',0,'gA==','2ls3i68o',1,0,'',78,0,0),(12949,2978,6,439,0,'190.0.140.98',1147232371,1,0,1,1,1,1,'','Gracias','Gracias amigos por su ayuda, verdaderamente la mayoría de las veces este foro me saca de un apuro.\n\nEl error, (que se desprende de vuestros amables mensajes) es que estaba escribiendo mal la variable k_f2 en lugar de vk_f2 y así susesivamente, al reemplazar esto ya me anda, aunque tengo ahora unos errores que creo que deriban del caracter local de las variables que utilizo en el programa, pero veré como lo soluciono.\n\nLo importante:   MUCHAS GRACIAS A TODOS!!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1i1uxyp2',1,0,'',439,0,0),(12950,2978,6,89,0,'213.21.136.60',1147241671,1,0,1,1,1,0,'','','I use this \n\nMaurizio \n\n//---------------------------------\nDEFINE BUTTON oBtn RESOURCE \"TEST\" OF oBar ACTION Msginfo(\"PRESS F2\")\n     oBtn[1]:cargo := VK_F2\n     oDlg:bKeyDown = { | nKey | CheckKey(nKey,oBar)}\n//----------------------------------\n Function CheckKey(nKey,oBar)\n Local nX,nY\n IF nKey &gt;= VK_F2 .AND. nKey &lt;= VK_F9\n    IF oBar:lActive\n       FOR ny := 1 TO len(oBar:aControls)\n          IF oBar:aControls[ny]:cargo # nil .AND.  oBar:aControls[ny]:lActive\n             if oBar:aControls[nY]:cargo == nKey\n                oBar:setfocus()\n                oBar:aControls[nY]:Click()\n             endif\n          ENDIF\n       NEXT\n    ENDIF\n ENDIF\nReturn nil\n\n\n\n[/code]','',0,'','1m4oz3ah',1,0,'',89,0,0),(12951,2969,6,456,0,'217.127.39.57',1147244325,1,0,1,1,1,1,'','','Lenadro, please mandamenla a mi tambien. Gracias.\n\n<!-- e --><a href=\"mailto:bmaimo@piema.info\">bmaimo@piema.info</a><!-- e -->','',0,'','3hrajld2',1,0,'',456,0,0),(12952,2982,6,81,0,'80.28.244.140',1147247772,1,0,1,1,1,0,'','Harbour Error F0018  Input buffer overflow','Despues de actualizar harbour en  el cvs me da este error\n\nG:\\pry0019\\prog\\viaind.prg(1853) Error F0018  Input buffer overflow\nSe corresponde con  la definicion aadd de un array para crear un DBF con \nmuchos campos.\nHarbour tiene problema de limites de cadena?? Hay que cambiar algo en el \ncompilador??\nGracias\nSaludos','',0,'','27rh5vta',1,0,'',81,0,0),(12953,2980,6,81,0,'80.28.244.140',1147247901,1,0,1,1,1,0,'','','Luis Alfonso otra opcion es clipxnet\nSaludos\nRafa','',0,'','20z6fj3v',1,0,'',81,0,0),(12954,2874,3,130,0,'141.51.32.24',1147247986,1,0,1,1,1,0,'','','James,\n\nfor printing to pdf I prefer CutePdf. It´s free and installs as a normal windows printer. CutePdf supports more pageformats than pdf995. And the quality of the createtd pdf is very good.\n\nStefan','',0,'','1f8f63kh',1,0,'',130,0,0),(12955,2982,6,2,0,'87.218.146.203',1147248345,1,0,1,1,1,1,'','','Rafa,\n\nQue fecha tienes como última modificación en el fichero changelog de harbour ?','',0,'','qy12cf54',1,0,'',2,0,0),(12956,2954,6,2,0,'87.218.146.203',1147248444,1,0,1,1,1,1,'','','Rossine,\n\nNo podemos usar FOR EACH ya que no lo soporta ni Clipper, ni Xbase++ ni C3.','',0,'','xmmkra6o',1,0,'',2,0,0),(12957,2950,7,2,0,'87.218.146.203',1147248505,1,0,1,1,1,1,'','','Miguel,\n\nVamos a intentar proporcionarte un ejemplo lo antes posible. Disculpa nuestro retraso en responderte. Gracias.','',0,'','2yjohdbc',1,0,'',2,0,0),(12958,2982,6,81,0,'80.28.244.140',1147249218,1,0,1,1,1,0,'','','29 de Marzo. \nEsta claro que lo que se dice actualizado no esta muy actualizado.\nSaludos y gracias. Vuelvo a la version estable que tengo.','',0,'','6k07bwl9',1,0,'',81,0,0),(12959,2915,20,29,0,'88.149.161.209',1147250632,1,0,1,1,1,0,'','','Grazie.\nHo però un problema,\nquando cerco di aprire il file ottengo l\'errore \"MS SQL Server DB provider not found\" e \"MS SQL Server odbc drive not found\" probabilmente non vengono installati con l\'installazione MSDE standard.\n\nTi sono già capitati questi problemi e sai che driver scaricare ?\n\n\nGrazie\n\nMarco','',0,'','oun1uxoy',1,0,'',29,0,0),(12960,2983,6,24,0,'80.37.55.44',1147251031,1,0,1,1,1,1,'','Porque se cae...','Llevo sufriendo esto desde la 2.6, y no se porque ocurre.\nSi digo que tengo un boton con un tooltip, \'a veces\', y eso es lo que mas me jode, casca, por ejemplo,  aqui teneis :\n\nError description: Error FiveWin/6  Cannot create window or control: \nClass: TWINDOW\nCaption: \nSystem Error: No se ha encontrado la clase de ventana.\n\nCalled from: WINDOW.PRG =&gt; WNDCREATEERROR(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:CREATE(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:NEW(0)\n   Called from: WINDOW.PRG =&gt; TBUTTON:SHOWTOOLTIP(0)\n   Called from: WINDOW.PRG =&gt; TBUTTON:CHECKTOOLTIP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:MOUSEMOVE(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:MOUSEMOVE(0)\n   Called from: BUTTON.PRG =&gt; (b)TBUTTON:TBUTTON(0)\n   Called from: BUTTON.PRG =&gt; TBUTTON:MOUSEMOVE(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SYSREFRESH(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:END(0)\n\nTambien, usando ChartFX98, es IMPOSIBLE que no se caiga aleatoriamente, estoy ya rendido de decir que realmente no funciona este control en Fivewin, porque ALEATORIAMENTE, casca cuando menos te lo piensas, y he puesto el sysrefresh, el syswait, antes , despues, sin , con, etc..., dando error de Fivewin 3/Cannot not .... \n\nNO QUE ??? si tienes ahi el dialog, hombre.... \n\nEn fin....haber si alguien se a encontrado con esto....','',0,'','1urv7dx9',1,0,'',24,0,0),(12961,2960,6,24,0,'80.37.55.44',1147251758,1,0,1,1,1,1,'','','[quote=&quot;sjingo&quot;:1sld7fz0]Por si a alguien le sirve:\n\nLogre solucionarlo colocando en el código lo siguiente:\n\nolbx:nstyle:=nOr( olbx:nstyle, WS_BORDER) \n\nMarcelo Jingo[/quote:1sld7fz0]\nUmm... Marcelo, ahora desde ese browse, llama a crear un dialogo, y ese\ndialogo pasalo por encima de las cabeceras...\n\n¿ Te sigue pintanto bien las cabeceras ?','',0,'gA==','1sld7fz0',1,0,'',24,0,0),(12962,2984,6,566,0,'212.145.65.52',1147252162,1,0,1,1,1,0,'','Problemas con TWBrowse','Tengo un Twbrowse que compilado con fivewin funciona bien: puede editar las celdillas,etc; pero cuando el programa está compilado con Harbour no puedo editar las celdillas. ¿Alguien sabe por qué sucede esto?\nGracias.','',0,'gA==','12aufri1',1,0,'',566,0,0),(12963,2985,4,240,0,'85.201.103.52',1147252418,1,0,1,1,1,1,'','How to call a DLL ?','Hello,\n\nI have to interface a DLL within a FWPPC program. Here follows the VB call to the function:\n\n[code:1yoagrry]Public Declare Sub LatLon_WGS84_2_LT1 Lib &quot;wdgps&#46;dll&quot; &#40;ByVal dLat As Double, ByVal dLon As Double, ByRef dX As Double, ByRef dY As Double&#41;[/code:1yoagrry]\n\nI have never done it so I don\'t know how to translate this into FWPPC.\n\nCan someone help me ?\n\nThanks','',0,'AIA=','1yoagrry',1,0,'',240,0,0),(12964,2985,4,6,0,'87.11.229.25',1147253901,1,0,1,1,1,1,'','Re: How to call a DLL ?','Have a look at DLL command.\n\nEMG','',0,'AIA=','2xfus085',1,0,'',6,0,0),(12965,2915,20,6,0,'87.11.229.25',1147253986,1,0,1,1,1,1,'','','Io ho installato l\'MSDE che ti ho detto e non ho avuto problemi.\n\nEMG','',0,'AIA=','3vamktgh',1,0,'',6,0,0),(12966,747,4,240,0,'85.201.103.52',1147254128,1,0,1,1,1,1,'','','Thanks for the info. \nBased on it I have been able to get the data from a Btooth GPS.\n\nI still have a problem to get the data from a serial one. I can read the serial GPS but I only get invalid data.\n\nHere is my com port opening :\n[code:3rzbjec3]STATIC FUNCTION OPENCOMM&#40;nPort&#41;\n// Ouvrir le port en lecture\nLOCAL hPort\n\nhPort &#58;= CreateFile&#40; &quot;COM&quot;+ltrim&#40;str&#40;nPort&#41;&#41;+&quot;&#58;&quot;,;\n            GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL &#41;\nIF hPort == -1\n   MSGALERT&#40;&quot;Impossible d\'ouvrir le port&quot;&#41;\nENDIF\n\nRETURN hPort[/code:3rzbjec3]\n\nnPort comtains 8 for a Btooth and 1 or 2 for the serial port.\n\nI wonder if the problem is not due to a bad com port setting (like a bad baud rate). \n\nI could not find the documentation of the \"CreateFile\" function. Can you tell me where to look ?\n\nMany thanks,','',0,'AIA=','3rzbjec3',1,0,'',240,0,0),(12967,747,4,6,0,'87.11.229.25',1147254260,1,0,1,1,1,1,'','','[quote=&quot;Raymond Fischbach&quot;:1vo0i2hi]I could not find the documentation of the \"CreateFile\" function. Can you tell me where to look ?[/quote:1vo0i2hi]\n\nOn the MSDN.\n\nEMG','',0,'gA==','1vo0i2hi',1,0,'',6,0,0),(12968,2985,4,2,0,'87.218.146.203',1147254856,1,0,1,1,1,1,'','','Raymond,\n\nYou need to build a wrapper using C language as the parameters suply using DLL command is not ready yet. Please do a search on these forums for #pragma BEGINDUMP and you will find many samples.','',0,'gA==','2vhp8q8x',1,0,'',2,0,0),(12969,2691,4,240,0,'85.201.103.52',1147254953,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1d74a39a]Pawel,\n\nYou have to use the Windows API SetCommState() function.[/quote:1d74a39a]\n\nHello Antonio,\n\nCould you please give us a small example on how to do it?\nWhere can I find doc on these functions?\n\nSorry for these basic questions but this is my first approach to Api and Dll calls.\n\nBest regards,','',0,'gA==','1d74a39a',1,0,'',240,0,0),(12970,2983,6,2,0,'87.218.146.203',1147255271,1,0,1,1,1,1,'','','Rafa,\n\nParece que el error se produce aqui:\n[code:3nvle3r1]\n      DEFINE WINDOW oToolTip FROM 0, 0 TO 1, 5 ;    AQUI!\n         STYLE nOr&#40; WS_POPUP, WS_BORDER &#41; ;\n         COLOR 0, RGB&#40; 255, 255, 225 &#41; OF Self\n\n      oTemp = oToolTip\n\n      #ifndef __CLIPPER__\n         DestroyWindow&#40; oToolTip&#58;hWnd &#41;\n         hWnd = CreateToolTip&#40; Self&#58;hWnd, cToolTip &#41;\n[/code:3nvle3r1]\nTe agradecería si pudieses poner un LogFile() antes y después de ese DEFINE WINDOW para ver si es ahí donde se produce el error. Otra opción es compilar window.prg con números de línea para que nos diga la línea exacta del error. Gracias.','',0,'AIA=','3nvle3r1',1,0,'',2,0,0),(12971,2986,6,24,0,'80.37.55.44',1147255402,1,0,1,1,1,1,'','DtPicker , say fantasma en Fwh 2.7','Antonio, estoy experimentando problemas con un DTPICKER....\n\nEs curioso , pero tengo un comportamiento realmente raro, raro.\n\nSi declaro el DTPICKER antes del browse:\n\nREDEFINE DTP...\nREDEFINE TSBROW....\n\nObtengo un \'ALGO\' que muestra la fecha del datapicker, como una especie de SAY fantantas por ahi pululando FUERA del dialog... te juro que no he bebido ni he vuelto del botellon....\n\nEn cambio si declaro al reves....\nREDEFINE TSBROWSE\nREDEFINE DTPIC....\n\nCoñe, ahora, ya no aparece....\nEsto no pasaba con la fw 2.6 pero si me pasa con la 2.7.. Es raro, raro ,raro....\n\nSi quieres te envio una imagen, no tengo ni idea de como colocar aqui imagenes....\n\n¿ A alguien mas le a pasado algo similar ?','',0,'AIA=','1ewy3hps',1,0,'',24,0,0),(12972,2987,6,24,0,'80.37.55.44',1147255435,1,0,1,1,1,1,'','DtPicker , say fantasma en Fwh 2.7','Antonio, estoy experimentando problemas con un DTPICKER....\n\nEs curioso , pero tengo un comportamiento realmente raro, raro.\n\nSi declaro el DTPICKER antes del browse:\n\nREDEFINE DTP...\nREDEFINE TSBROW....\n\nObtengo un \'ALGO\' que muestra la fecha del datapicker, como una especie de SAY fantantas por ahi pululando FUERA del dialog... te juro que no he bebido ni he vuelto del botellon....\n\nEn cambio si declaro al reves....\nREDEFINE TSBROWSE\nREDEFINE DTPIC....\n\nCoñe, ahora, ya no aparece....\nEsto no pasaba con la fw 2.6 pero si me pasa con la 2.7.. Es raro, raro ,raro....\n\nSi quieres te envio una imagen, no tengo ni idea de como colocar aqui imagenes....\n\n¿ A alguien mas le a pasado algo similar ?','',0,'AIA=','1c4qik5y',1,0,'',24,0,0),(12973,2983,6,24,0,'80.37.55.44',1147255887,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1qvk3ond]Rafa,\n\nParece que el error se produce aqui:\n[code:1qvk3ond]\n      DEFINE WINDOW oToolTip FROM 0, 0 TO 1, 5 ;    AQUI!\n         STYLE nOr&#40; WS_POPUP, WS_BORDER &#41; ;\n         COLOR 0, RGB&#40; 255, 255, 225 &#41; OF Self\n\n      oTemp = oToolTip\n\n      #ifndef __CLIPPER__\n         DestroyWindow&#40; oToolTip&#58;hWnd &#41;\n         hWnd = CreateToolTip&#40; Self&#58;hWnd, cToolTip &#41;\n[/code:1qvk3ond]\nTe agradecería si pudieses poner un LogFile() antes y después de ese DEFINE WINDOW para ver si es ahí donde se produce el error. Otra opción es compilar window.prg con números de línea para que nos diga la línea exacta del error. Gracias.[/quote:1qvk3ond]\n\nAhora mismo lo prueboo... peroo... ahora me a salido esto:\n Error occurred at: 10/05/06, 12:07:24\n Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: graf_2\n\nCalled from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: folder.PRG =&gt; TFOLDER:DEFAULT(0)\n   Called from: folder.PRG =&gt; TFOLDER:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: grafica.prg =&gt; MENUGRAF(137)\n\n137--&gt;  ACTIVATE DIALOG oDlg CENTER ON INIT ( oChartFx:Create())\n\nAntonio, yo creo que a veces, como el ocx lo tengo metido en un folder , no en un dialog,  puede estar por ahi el problema...\n¿ Como podria hacer el ON INIT, pero para el folder, no para el dialog ?\nSeria : oDlg:aDialogs[2]:binit := {||oChartFx:Create() }.... \nVoy a ver...','',0,'gIA=','1qvk3ond',1,0,'',24,0,0),(12974,2983,6,24,0,'80.37.55.44',1147256392,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2gvb8ufu]Rafa,\n\nParece que el error se produce aqui:\n[code:2gvb8ufu]\n      DEFINE WINDOW oToolTip FROM 0, 0 TO 1, 5 ;    AQUI!\n         STYLE nOr&#40; WS_POPUP, WS_BORDER &#41; ;\n         COLOR 0, RGB&#40; 255, 255, 225 &#41; OF Self\n\n      oTemp = oToolTip\n\n      #ifndef __CLIPPER__\n         DestroyWindow&#40; oToolTip&#58;hWnd &#41;\n         hWnd = CreateToolTip&#40; Self&#58;hWnd, cToolTip &#41;\n[/code:2gvb8ufu]\nTe agradecería si pudieses poner un LogFile() antes y después de ese DEFINE WINDOW para ver si es ahí donde se produce el error. Otra opción es compilar window.prg con números de línea para que nos diga la línea exacta del error. Gracias.[/quote:2gvb8ufu]\nAntonio,\nCalled from: window.prg =&gt; WNDCREATEERROR(680)\n   Called from: window.prg =&gt; TWINDOW:CREATE(661)\n   Called from: window.prg =&gt; TWINDOW:NEW(744)\n   Called from: window.prg =&gt; TBUTTON:SHOWTOOLTIP(2811)\n   Called from: window.prg =&gt; TBUTTON:CHECKTOOLTIP(2781)\n   Called from: window.prg =&gt; TWINDOW:MOUSEMOVE(2717)\n   Called from: CONTROL.PRG =&gt; TCONTROL:MOUSEMOVE(0)\n\nPero no tengo ni idea que me dices eso del LogFile, \n¿ que se supone que tengo que poner ?','',0,'gIA=','2gvb8ufu',1,0,'',24,0,0),(12975,2985,4,240,0,'85.201.103.52',1147257266,1,0,1,1,1,1,'','','Thank you.\n\nI have never done it. I have never programmed in C either.\nAnyway, I will have to try it.','',0,'gIA=','1ufuckci',1,0,'',240,0,0),(12976,2835,20,49,0,'213.82.134.66',1147258726,1,0,1,1,1,1,'','','per la parte grafica ho fatto una prova \nadesso posso inserire un disegno in una bitmap e lo posso postare con la clausola DESIGN \n\nAdesso però dovrei salvare tutto tenendo presente anche i simboli inseriti  nella bitmap come devo fare? \n\ncioè come si fa a salvare una bitmap \n e poi mi conviene salvare il tutto in un file bitmap oppure salvarmi solo le ccordinate dei simbolini dato che l\'utente se sbaglia deve ritornarci sopra a modificarla ?\n\nPerò questa soluzione mi sembra un po arcaica....meglio di niente dato che in Fw exh  non è possibile fare cose come in java...','',0,'gIA=','1ge2alf9',1,0,'',49,0,0),(12977,2835,20,6,0,'87.11.229.25',1147258923,1,0,1,1,1,1,'','','Io direi la seconda, che non è affatto arcaica ma l\'unica possibile, secondo me.\n\nEMG','',0,'gIA=','242u2iio',1,0,'',6,0,0),(12978,2988,23,49,0,'213.82.134.66',1147258952,1,0,1,1,1,1,'','Help for ROADBOOK','I wanted create a roadbook as roadbook assistant 1.0 ( create in germany) \nSomeone can help me ?\n\nRegards','',0,'gIA=','3hf0qfeh',1,0,'',49,0,0),(12979,2835,20,49,0,'213.82.134.66',1147259513,1,0,1,1,1,1,'','','il problema è che in ogni grafico l\'utente mette anche fino a 5 /6 simboli\ne secondo te dove li salvo le coordinate intendo?\nprevedo una marea di campi in archivio cosi si ingrossa l\'archivio ?\n\nNum ( numero di linea)\nParziale (km)\nTotale(km)\nNote1\nNote2\nNote3\n\nper ogni simbolo  tre campi ( nome del BMP, x e y)\n\n\nNon lo so ....che dici ?','',0,'gIA=','2s0vnq5i',1,0,'',49,0,0),(12980,2983,6,2,0,'87.218.146.203',1147259965,1,0,1,1,1,1,'','','Rafa,\n\nCon los números de línea está perfecto, gracias. \n\nEl texto de esos tooltips tiene algún caracter especial en particular ? Es realmente extraño que Windows no pueda crearlos.','',0,'gIA=','vqjqg5li',1,0,'',2,0,0),(12981,2477,3,15,0,'203.73.91.55',1147261260,1,0,1,1,1,0,'','','Hi\n\nYes, this hardware support any PC/NB and no problem.\n\nRegards,\n\nRichard','',0,'gIA=','1o79ju26',1,0,'',15,0,0),(12982,2835,20,6,0,'87.11.229.25',1147261674,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3b3o1wtv]il problema è che in ogni grafico l\'utente mette anche fino a 5 /6 simboli\ne secondo te dove li salvo le coordinate intendo?[/quote:3b3o1wtv]\n\nIn una tabella così fatta:\n\n- Codice grafico\n- Codice simbolo\n- Coordinata X\n- Coordinata Y\n\nE quando devi disegnare un grafico non fai altro che uno scope su quella tabella che ti faccia vedere solo i simboli di quel grafico e poi ne scorri i record disegnandone i relativi simboli.\n\nEMG','',0,'gA==','3b3o1wtv',1,0,'',6,0,0),(12983,2983,6,24,0,'80.37.55.44',1147261917,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2c7nw7dj]Rafa,\n\nCon los números de línea está perfecto, gracias. \n\nEl texto de esos tooltips tiene algún caracter especial en particular ? Es realmente extraño que Windows no pueda crearlos.[/quote:2c7nw7dj]\noBtn:cToolTip := \"ESC-Salir\"\noBtn:cToolTip := \"F11\"  y los  F1, f2, f3, etc.., nada de especial.\n\nSaludos\nRafa Carmona','',0,'gA==','2c7nw7dj',1,0,'',24,0,0),(12984,2954,6,104,0,'201.58.70.70',1147262189,1,0,1,1,1,0,'','','OK Antonio  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nun saludo y gracias\n\nRossine.','',0,'gA==','2g1364fc',1,0,'',104,0,0),(12985,2874,3,3,0,'86.205.63.184',1147264863,1,0,1,1,1,1,'','','[quote=&quot;StefanHaupt&quot;:2uhjnjqm]James,\n\nfor printing to pdf I prefer CutePdf. It´s free and installs as a normal windows printer. CutePdf supports more pageformats than pdf995. And the quality of the createtd pdf is very good.\n\nStefan[/quote:2uhjnjqm]\n\nStefan and others\n\nI guess you should be very careful about licensing if you are distributing software. None of the above stated programs is \"free for commercial use\". You need a license for all of them. I have spent quite a time on the subject and emailed all the authors including cutepdf, pdf95 ...etc and many others. If you use inhouse, no problem. But we all sell \"commercial software\" outside .\n\nThe only product i have found at a \"fairly reasonable price\" for unlimited licensing is image2pdf that installs either a dll file or a executable run time. No special printer needs to be installed and the price is 250 Us dollars for unlimited users. \n\nMy 2 cents,\n\nRichard','',0,'gA==','2uhjnjqm',1,0,'',3,0,0),(12986,2984,6,492,0,'201.154.125.229',1147267483,1,0,1,1,1,1,'','','Hola\n\nA mi me paso al similar, y la solucion fue esta en mi caso :\n\nEn fw tenia este codigo :\n\nREDEFINE LISTBOX lbActCst ;\n	FIELDS aActCst[pAC,1],aActCst[pAC,2],aActCst[pAC,3],aActCst[pAC,4] ;\n	HEAD \"No. PARTE\",\"DESCRIPCION\",\"ACTUAL\",\"NUEVO\" ;\n	ID 101 ;\n	ON DBLCLICK ( SetItmXSld( @aActCst, pAC ), lbActCst:ReFresh() ) ;\n	FONT oFntBrw ;\n	FIELDSIZES 120,310,80,80 ;\n	OF dbActCst\n\n	lbActCst:nLineStyle  := 2\n	lbActCst:lDrawFocusRect := .F.\n	lbActCst:nClrLine    := CLR_WHITE\n	lbActCst:nClrBackHead := 13425898\n	lbActCst:BGOTOP    := { || pAC :=1}\n  	lbActCst:BGOBOTTOM := { || pAC := eval( lbActCst:bLogicLen ) }\n  	lbActCst:BSKIP     := { | nwant, nold | nold := pAC , pAC += nwant,;\n	pAC := max( 1, min( pAC, eval( lbActCst:bLogicLen ) ) ), pAC - nOld }\n	lbActCst:BLOGICLEN := { || Len( aActCst ) }\n	lbActCst:CALIAS    := \"ARRAY\"\n	lbActCst:AJUSTIFY  := { .F.,.F.,.T.,.T. }\n	lbActCst:nClrPane  := { || IIF( aActCst[pAC,5] &lt; 2, CLR_A, CLR_B ) }\n	lbActCst:nClrText  := { || IIF( aActCst[pAC,6] == 1, CLR_HRED, CLR_BLACK ) }\n\nY al querer usarlo en fwh, me tronaba, cuando en 16 trabajaba correctamente, la solucion ?\n\nQuitar la linea : lbActCst:CALIAS    := \"ARRAY\"\n\ny cambiarla por : lbActCst:SetArray( aActCst )\n\ny ya no tuve ningun problema.\n\nEspero te sirva.\n\n\nSaludos','',0,'','38uws57z',1,0,'',492,0,0),(12987,2980,6,228,0,'201.245.235.223',1147269045,1,0,1,1,1,1,'','Compañeros...','A mi tambien me gustaria tener información sobre este tema o si saben de algun ejemplo o algo así.....','',0,'','1l0zql9s',1,0,'',228,0,0),(12988,2874,3,67,0,'62.235.24.3',1147270859,1,0,1,1,1,0,'','','Richard,\n\nI suppose when we distribute a aplication , we have no control which printers the user installs , or downloads.\n\nSo , i give the user only \'the information\' that such tools can be usefull , he has to install it himself , it has nothing to do with mine distribution. \n\nIt is not mine responbility , but from the user !\n\nFrank','',0,'','q6kdn2cd',1,0,'',67,0,0),(12989,2989,3,264,0,'200.91.3.10',1147273810,1,0,1,1,1,0,'','DTPICKER with EMPTY Dates','I\'m using DTPICKER CONTROL, it\'s right, but i need display an empty date format. Exist? \nHow can make it ?\n\nThanks.\n\n( sorry my english ! )','',0,'','1nie4bzb',1,0,'',264,0,0),(12990,2987,6,264,0,'200.91.3.10',1147273947,1,0,1,1,1,0,'','','tf.\nTengo la necesidad de mostrar la fecha del DTPICKER en blanco.\nComo estas trabajando con ella, sabes tu si se puede ?\n\nGracias de antemano.','',0,'','26w0u02g',1,0,'',264,0,0),(12991,2874,3,3,0,'86.205.63.184',1147274462,1,0,1,1,1,1,'','','[quote=&quot;Frank Demont&quot;:2z2xkdjb]Richard,\n\nI suppose when we distribute a aplication , we have no control which printers the user installs , or downloads.\n\nSo , i give the user only \'the information\' that such tools can be usefull , he has to install it himself , it has nothing to do with mine distribution. \n\nIt is not mine responbility , but from the user !\n\nFrank[/quote:2z2xkdjb]\n\nFrank\n\nAre you serious ?\n\nExample : If you want to email a report from your applicatin , then you have to print it on a \"specific\" printer first (the pdf one) and then email it. Thus you have changed your software for this purpose and this is covered by the licensing issue. You should read the GPL license of these products .\n\nRichard','',0,'gA==','2z2xkdjb',1,0,'',3,0,0),(12992,2949,3,148,0,'62.135.92.108',1147277518,1,0,1,1,1,0,'','','Sorry I using Txbrowse so I am using RDD server . so no syntax for set filter but my code must be the following :\n[code:3b7tm9tf]\n\nSELECT 4 \nuse mete \nSET index TO mete2 \nDBSETFILTER&#40;&amp;bFilter,cFilter&#41; \n4-&gt;&#40;DBGOTOP&#40;&#41;&#41; \n\n[/code:3b7tm9tf]','',0,'AIA=','3b7tm9tf',1,0,'',148,0,0),(12993,2874,3,303,0,'72.199.41.171',1147277800,1,0,1,1,1,0,'','','Richard,\n\n[quote:dibt9whj]If you want to email a report from your application , then you have to print it on a \"specific\" printer first (the pdf one) and then email it. Thus you have changed your software for this purpose and this is covered by the licensing issue. You should read the GPL license of these products. [/quote:dibt9whj]\n\nAre you saying that if your application is designed to look for a specific print driver, that you have to pay for a license for the driver? I don\'t see how that could be--you don\'t have to purchase a MS Word license if your app looks for it. Still print drivers are not a good solution.\n\nI think Frank was saying that he does nothing to his application. He just tells the customer that they can get PDF print drivers if they want to. Personally, I don\'t think this is a good solution. Customers want this capability built-in and simple to use. Add-on print drivers will prompt the user for a filename, then they have to open a new email and find the file to attach it. If one is going to send 100 invoices, this would be really tedious and error prone. I think sooner or later we HAVE to provide email capability for all documents output by our applications. The sooner the better.\n\nIt is incredible that the PC industry has been around for over 25 years now, and we still do not have online document generation and delivery built into Windows. I think Apple just did add PDF generation to their OS. Actually, XML documents are a much better solution since you can then get the data back out of the document. \n\nJames','',0,'gA==','dibt9whj',1,0,'',303,0,0),(12994,2874,3,303,0,'72.199.41.171',1147278490,1,0,1,1,1,0,'','','Richard,\n\n[quote:1xithkat]The only product i have found at a \"fairly reasonable price\" for unlimited licensing is image2pdf that installs either a dll file or a executable run time. No special printer needs to be installed and the price is 250 Us dollars for unlimited users. [/quote:1xithkat]\n\nIt seems the price for a developer license has gone up. The lowest price license I could find on their site is US$799.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.verypdf.com/tif2pdf/tif2pdf.htm\">http://www.verypdf.com/tif2pdf/tif2pdf.htm</a><!-- m -->\n\nJames','',0,'gA==','1xithkat',1,0,'',303,0,0),(12995,2980,6,138,0,'201.152.98.24',1147278867,1,0,1,1,1,1,'','','OK, asi es como funciona:\n\nTenemos muuuuchas opciones para hacer aplicaciones ocn FW o con xHarbour puro y duro que trabajan sobre internet.\n\nLo primero que tenemos que tomar en cuenta es sobre que servidor web va a correr la aplicacion.\n\nLas opciones son : Apache, Samba, IIE, o WebSite, si vamos a utilizar algun estandar de internet\n\nO bien, un servidor que integre en un solo producto tanto servidor Web, como \"servidor de aplicaciones\" como WinASP de Jorge Mason (muy bueno, ampliamente recomendado) y el ClipXNet.\n\nVamos a suponer que nos decantamos por la primera opcion, si trabajamos con Apache, Samba o WebSite, tendremos que ir por el camino del CGI.\n\n¿ Que es CGI ?, bueno es un estandar de internet que nos permite ejecutar un programa escrito ENCUALQUIER LENGUJAE DE PROGRAMACION dentro de un servidor WEB, es decir, desde una pantalla del Explorer nosotros ordenamos que se ejecute un programa que esta instalado en el servidor WEB, ese programa recibe como parametro una lista de variables y luego hace lo que tiene que hacer, y genera como salida un archivo HTML, mismo que es devuelto de manera automatica al equipo que hizo la peticion.\n\nDe donde salen las variables.... de un formulario web, cuando ustedes rellenan un formulario en la WEB, dentro de la etiqueta &lt; form....&gt; estan indicando el nombre del programa que ustedes desean ejecutar, cada \"GET\" del formulario esta vinculado a un nombre de variable y aun valor y el boton de \"Enviar\", hace se que el programa especificado se ejecute.\n\nCuando le dan al boton de enviar en la barra de navegacion se puede ver algo como esto:\n\n/cgi-win/nombredelexe?variable=valor&amp;variable=valor&amp;otra=otrovalor\n\nNuestro programa EXE recobra la cadena variable=Valro, mediante el dispositivo de entrada estandar  FOPEN(0) o un archivo .INI (dependiendo del servidor que se maneje) y luego el programa lo tiene muy facil, \"desarma\" la cadena, ejecuta una rutina. Dentro de esos valores se envia tambien el nombre de un archivo de Salida que el servidor esta esperando que aparezca, nuestro programa lo unico que tiene que hacer es generar un archivo HTML con el nombre indicado, y una vez que le archivo HTML este generado, este es enviado de vuelta a equipo que hizo la peticion. Asi de facil, asi de rapido.\n\nEl IIS server tambien puede utilizar CGI, pero lo mas comun es utilizar ASP, si van a trabajar con xHarbour, se pueden bajar un juguetito llamado XHbScript, que es un motor ASP que soporta instrucciones de xHarbour, si tienen IIS , simplemetne cambien el motor de ASP estandar (Visual Basic) por el de xHbScritp y listo, es un simple cambio de un DLL\n\nUn ASP es un archivo que contiene codigo html con codigo xHarbour incrustado dentro por ejemplo algo como esto\n\n&lt;B&gt; Los datos resultantes son: &lt;/B&gt;\n&lt;% Use clientes\nGotop\nDo while ! EOF()\n....\n....\n...\nENDDO %&gt;\n&lt;h1&gt; al dia : &lt;/ht1&gt;&lt;% date() %&gt; \n\nEl motor ASP tomara todo lo que se encuentre entre &lt;% %&gt; interpretara el codigo y el resultado sera colocado como parte de la misma pagina web, luego sera retornado al equipo que hizo la peticion.\n\nEso nos lleva a los servidores web con soporte nativo de lenguaje XBase. Como el WinASP de Jorge Mason, que es el que yo he probado.\n\nComo funciona... muy facil, en vez de instalar cualquier servidor WEB, instalas WinASP, que esta escrito en FiveWin y que es un servidor web con capacidades ASP, que ademas es muy rapido y super economico. A patir de ese momento, tu puedes comenzar a meter tus paginas dinamicas programadas como si fueran ASP y el servidor se encarga del resto.\n\nLo bonito de esta tecnologia es que no neceistas tener una IP publica, ni estar con los caprichos del hosting que si te permite o no te permite ejecutar nada, en nuestro caso tenemos 2 servidores:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w --> \ny\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com\">www.google.d2g.com</a><!-- w -->\n\nD2g o Dns To Go (<!-- w --><a class=\"postlink\" href=\"http://www.dns2go.com\">www.dns2go.com</a><!-- w -->) es un servicio que utilizamos para hacer publica nuestra IP de ADSL, con lo cual todos nuestros desarrollos CGI se encuentran en un servidor dentro de nuestras oficinas y nosotros le podemos meter mano, sin depender de nuestro proveedor de hosting.\n\nActualmente la tecnologia es super economica, no te gastas mas de 100 USD, porque el servidor no necesita ser un servidor potente, cualquier maquina que tengas ahi descontinuada puede ser tu servidor web, nosotros ademas utilizamos esta tecnologia para hacer aplicaciones para pocket PC y Palm, usando los navegadores que traen integrados estos aparatos y la red Wifi o GSM.','',0,'gA==','3nqy5twd',1,0,'',138,0,0),(12996,2874,3,6,0,'87.11.229.25',1147278912,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3ct3fsmk]I think Frank was saying that he does nothing to his application. He just tells the customer that they can get PDF print drivers if they want to. Personally, I don\'t think this is a good solution. Customers want this capability built-in and simple to use. Add-on print drivers will prompt the user for a filename, then they have to open a new email and find the file to attach it. If one is going to send 100 invoices, this would be really tedious and error prone.[/quote:3ct3fsmk]\n\nUsing PDFCreator and SndMail.dll I created a system that sends any email you want without user intervention.\n\nEMG','',0,'gA==','3ct3fsmk',1,0,'',6,0,0),(12997,2990,20,125,0,'194.243.7.199',1147279912,1,0,1,1,1,0,'','Cambiare Colore a una Browse','Salve non riesco a cambiare il colore della riga di browse (classe wbrowse) dove sono posizionato. Risco a cambiare il colore delle altre righe ma non quella dove sono posizionato, coda devo usare ?\nGrazie\nPiscicelli/Zingoni','',0,'gA==','rid85mtc',1,0,'',125,0,0),(12998,2987,6,2,0,'87.218.146.203',1147280201,1,0,1,1,1,1,'','','Rafa,\n\nSi pudieses proporcionar un ejemplo pequeño y completo, te lo agradeceríamos.','',0,'gA==','5odznk04',1,0,'',2,0,0),(12999,2991,3,343,0,'204.57.111.194',1147281958,1,0,1,1,1,0,'','GetActiveObject + FWH = Windows Exception','I just upgraded to FWH 2.7 and March 2006 xHarbour Builder.\nMost everything works ok except for a couple of things.\nI have narrowed it down to the sample below that creates the windows exception error.\nIf you remove the section with GetActiveObject() function there is no exception error.\n\n#INCLUDE \"FIVEWIN.CH\"\nfunction main\n   local oExcel\n   TRY\n      oExcel := GetActiveObject( \"Excel.Application\" )\n   CATCH\n      TRY\n         oExcel := CreateObject( \"Excel.Application\" )\n      CATCH\n         Alert( \"ERROR! Excel not avialable. [\" + Ole2TxtError()+ \"]\" )\n         RETU(.f.)\n      END\n   END\n   oExcel:WorkBooks:Add()\n   oExcel:Visible := .t.\nreturn nil','',0,'','2ty8ywu2',1,0,'',343,0,0),(13000,2874,3,303,0,'72.199.41.171',1147282945,1,0,1,1,1,0,'','','Enrico,\n\nIf you are referring to PDF Creator by Amyuni, the developer\'s license (the one that includes encryption and digital signature capability) is US$920. Kind of expensive.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.amyuni.com/en/products/pdf_creator/pricing.php\">http://www.amyuni.com/en/products/pdf_c ... ricing.php</a><!-- m -->\n\nIs that the one you are using?\n\nJames','',0,'','gq2remv6',1,0,'',303,0,0),(13001,2874,3,3,0,'82.64.198.73',1147283555,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2l7tbrn7]Richard,\n\n[quote:2l7tbrn7]The only product i have found at a \"fairly reasonable price\" for unlimited licensing is image2pdf that installs either a dll file or a executable run time. No special printer needs to be installed and the price is 250 Us dollars for unlimited users. [/quote:2l7tbrn7]\n\nIt seems the price for a developer license has gone up. The lowest price license I could find on their site is US$799.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.verypdf.com/tif2pdf/tif2pdf.htm\">http://www.verypdf.com/tif2pdf/tif2pdf.htm</a><!-- m -->\n\nJames[/quote:2l7tbrn7]\n\nJames\n\nThe correct link\n\n<!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/Image-to-PDF-Dynamic-Link-Library.htm\">http://www.utilitywarrior.com/Image-to- ... ibrary.htm</a><!-- m -->\n\nPrice still the same Unlimited Development   $249.99','',0,'gA==','2l7tbrn7',1,0,'',3,0,0),(13002,2874,3,303,0,'72.199.41.171',1147283785,1,0,1,1,1,0,'','','Enrico,\n\nOK, now I see from a previous message that you said PDFCreator was free, so I am assuming you meant this one on Source Forge:\n\n<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/pdfcreator/\">http://sourceforge.net/projects/pdfcreator/</a><!-- m -->\n\nThe thing about Source Forge is that I never can find any documentation about the product like a simple description of it and it\'s features. It seems you have to install the application in the hope that the feature list will be in the install.\n\nIs there a feature list somewhere?\n\nIt also seems to be a print driver and also requires Postscript. So, don\'t both of these have to be installed on every PC? How do you do this with a commercial application? Wouldn\'t it be a support headache since each time a new PC was added, users would be wanting to know why they can\'t create PDF documents.\n\nJames','',0,'gA==','3peyro37',1,0,'',303,0,0),(13003,2874,3,303,0,'72.199.41.171',1147284610,1,0,1,1,1,0,'','','Richard,\n\n[quote:1pp7dkub]http://www.utilitywarrior.com/Image-to-PDF-Dynamic-Link-Library.htm [/quote:1pp7dkub]\n\nOK. Now doesn\'t this just put the EMF files into a PDF? Isn\'t a EMF file an image? Therefore you have a graphic image in a PDF rather than text, so the viewer (person) would not be able to copy text out of the PDF. Also, the PDF file size would be much larger than one containing text.\n\nAfter thinking about this some more, it seems that we have to use a print driver to get report output (from TReport and/or TPrinter) from a FW app into a PDF file as text. But that is compilcated by all the installation and licensing issues previously discussed.\n\nThere is a PDF class but the reports have to be built using that class which is very tedious, so I don\'t think that is a good solution either.\n\nJames','',0,'gA==','1pp7dkub',1,0,'',303,0,0),(13004,2874,3,6,0,'87.11.229.25',1147284710,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2n2maqbl]Enrico,\n\nOK, now I see from a previous message that you said PDFCreator was free, so I am assuming you meant this one on Source Forge:\n\n<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/pdfcreator/\">http://sourceforge.net/projects/pdfcreator/</a><!-- m -->[/quote:2n2maqbl]\n\nExactly.\n\n[quote=&quot;James Bott&quot;:2n2maqbl]The thing about Source Forge is that I never can find any documentation about the product like a simple description of it and it\'s features. It seems you have to install the application in the hope that the feature list will be in the install.\n\nIs there a feature list somewhere?[/quote:2n2maqbl]\n\nYes, there is a help file that comes installed with the package.\n\n[quote=&quot;James Bott&quot;:2n2maqbl]It also seems to be a print driver and also requires Postscript. So, don\'t both of these have to be installed on every PC?[/quote:2n2maqbl]\n\nYes, but it is a single auto-installing package.\n\n[quote=&quot;James Bott&quot;:2n2maqbl]How do you do this with a commercial application? Wouldn\'t it be a support headache since each time a new PC was added, users would be wanting to know why they can\'t create PDF documents.[/quote:2n2maqbl]\n\nIf your user wants to open PDF documents then he will have to install Acrobat Reader, right? PDF is currently an external component and most users can install the needed software without problem.\n\nEMG','',0,'gA==','2n2maqbl',1,0,'',6,0,0),(13005,2874,3,6,0,'87.11.229.25',1147285265,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2ezapr8i]After thinking about this some more, it seems that we have to use a print driver to get report output (from TReport and/or TPrinter) from a FW app into a PDF file as text. But that is compilcated by all the installation and licensing issues previously discussed.\n\nThere is a PDF class but the reports have to be built using that class which is very tedious, so I don\'t think that is a good solution either.[/quote:2ezapr8i]\n\nRight, but a virtual printer driver is the less-invasive alternative.\n\nEMG','',0,'gA==','2ezapr8i',1,0,'',6,0,0),(13006,2874,3,303,0,'72.199.41.171',1147285381,1,0,1,1,1,0,'','','Enrico,\n\n[quote:2yqghsjo]PDF is currently an external component and most users can install the needed software without problem. [/quote:2yqghsjo]\n\nMy point is that for a new application the customer has to install the app on a server, then the print driver on every PC. Six months later, when a new PC is added the print driver will not be on that PC. I quess you could have the app to look for the diver and if it doesn\'t find it to tell the user that it needs to be installed. Perhaps that could be done from an install program that was in the app\'s directory on the server. However, this still  does add complication, but it may be the only solution (see my previous message about print drivers and FW reports). Ideally, it would be nice to have the PDF generation capability built into the app so print driver installation wouldn\'t be an issue. Then it would just be one install and that\'s it.\n\nJames','',0,'gA==','2yqghsjo',1,0,'',303,0,0),(13007,2874,3,3,0,'82.64.198.73',1147285430,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2ffd5f26]Richard,\n\n[quote:2ffd5f26]http://www.utilitywarrior.com/Image-to-PDF-Dynamic-Link-Library.htm [/quote:2ffd5f26]\n\nOK. Now doesn\'t this just put the EMF files into a PDF? Isn\'t a EMF file an image? Therefore you have a graphic image in a PDF rather than text, so the viewer (person) would not be able to copy text out of the PDF. Also, the PDF file size would be much larger than one containing text.\n\nAfter thinking about this some more, it seems that we have to use a print driver to get report output (from TReport and/or TPrinter) from a FW app into a PDF file as text. But that is compilcated by all the installation and licensing issues previously discussed.\n\n\nThere is a PDF class but the reports have to be built using that class which is very tedious, so I don\'t think that is a good solution either.\n\nJames[/quote:2ffd5f26]\n\nJames\n\nBasically the EMF file is converted to PDF through PNG conversion as far as i know (i may be wrong), this is due to compression factors.\n\nUsually when we save a report to a PDF, we do not want users to retreive data from it and most users do not have the tool to retreive from pdf,  they just have acrobat readers.  Besides this, Image2pdf allows editing data fom a pdf just like accrobat does (accrobat distiller reader and writer). So there is no difference. You can also allow a lot of security issues.  The size of a pdf produced with image2pdf is a bit higher that the one obtained with a true pdf printer. I tested it with big reports.  \nOf course printer driver is excellent but too problematic when you have too many users. You have to worry about their installation anyway.\nWe have replaced easypreview with fwh\'s preview + imge2pdf and shipped lots of updates . The result is excellent and we are quite happy about it.\n\nRichard','',0,'gA==','2ffd5f26',1,0,'',3,0,0),(13008,2990,20,6,0,'87.11.229.25',1147285459,1,0,1,1,1,1,'','Re: Cambiare Colore a una Browse','Prova con\n\n[code:3mfbww6m]oBrw&#58;nClrBackFocus = CLR_GREEN\noBrw&#58;nClrForeFocus = CLR_RED[/code:3mfbww6m]\n\nEMG','',0,'AIA=','3mfbww6m',1,0,'',6,0,0),(13009,2874,3,6,0,'87.11.229.25',1147285769,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3on7awhc]Ideally, it would be nice to have the PDF generation capability built into the app so print driver installation wouldn\'t be an issue. Then it would just be one install and that\'s it.[/quote:3on7awhc]\n\nI agree, but I can\'t see how to get this now.\n\nEMG','',0,'gA==','3on7awhc',1,0,'',6,0,0),(13010,2874,3,303,0,'72.199.41.171',1147285937,1,0,1,1,1,0,'','','Richard,\n\n[quote:lz534uqo]Usually when we save a report to a PDF, we do not want users to retreive data from it...[/quote:lz534uqo]\n\nOK, good in some situations.\n\n[quote:lz534uqo]...and most users do not have the tool to retreive from pdf, they just have acrobat readers.[/quote:lz534uqo]\n\nPerhaps you didn\'t know you can copy from Acrobat Reader? There is a Text Select button on the toolbar (T with small dotted line box next to it). Select the text, then on the right-click menu select Copy.\n\nJames','',0,'gA==','lz534uqo',1,0,'',303,0,0),(13011,2874,3,3,0,'82.64.198.73',1147285959,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:3fzjbfj7][quote=&quot;James Bott&quot;:3fzjbfj7]Enrico,\n\nOK, now I see from a previous message that you said PDFCreator was free, so I am assuming you meant this one on Source Forge:\n\n<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/pdfcreator/\">http://sourceforge.net/projects/pdfcreator/</a><!-- m -->[/quote:3fzjbfj7]\n\nExactly.\n\n[quote=&quot;James Bott&quot;:3fzjbfj7]The thing about Source Forge is that I never can find any documentation about the product like a simple description of it and it\'s features. It seems you have to install the application in the hope that the feature list will be in the install.\n\nIs there a feature list somewhere?[/quote:3fzjbfj7]\n\nYes, there is a help file that comes installed with the package.\n\n[quote=&quot;James Bott&quot;:3fzjbfj7]It also seems to be a print driver and also requires Postscript. So, don\'t both of these have to be installed on every PC?[/quote:3fzjbfj7]\n\nYes, but it is a single auto-installing package.\n\n[quote=&quot;James Bott&quot;:3fzjbfj7]How do you do this with a commercial application? Wouldn\'t it be a support headache since each time a new PC was added, users would be wanting to know why they can\'t create PDF documents.[/quote:3fzjbfj7]\n\nIf your user wants to open PDF documents then he will have to install Acrobat Reader, right? PDF is currently an external component and most users can install the needed software without problem.\n\nEMG[/quote:3fzjbfj7]\n\nEnrico\n\nAlmost all new computers sold today (since quite a while) have acrobat reader built in. Most of users do not have to install it, they have it.\n\nRichard','',0,'gA==','3fzjbfj7',1,0,'',3,0,0),(13012,2874,3,3,0,'82.64.198.73',1147286116,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3sa8piu1]Richard,\n\n[quote:3sa8piu1]Usually when we save a report to a PDF, we do not want users to retreive data from it...[/quote:3sa8piu1]\n\nOK, good in some situations.\n\n[quote:3sa8piu1]...and most users do not have the tool to retreive from pdf, they just have acrobat readers.[/quote:3sa8piu1]\n\nPerhaps you didn\'t know you can copy from Acrobat Reader? There is a Text Select button on the toolbar (T with small dotted line box next to it). Select the text, then on the right-click menu select Copy.\n\nJames[/quote:3sa8piu1]\n\nJames \n\nI know you can copy from Acrobat reader but this is an option you can forbid in any tool creating a pdf file. \n\nRichard','',0,'gA==','3sa8piu1',1,0,'',3,0,0),(13013,2874,3,303,0,'72.199.41.171',1147286447,1,0,1,1,1,0,'','','Richard,\n\n[quote:pviirjy6]I know you can copy from Acrobat reader but this is an option you can forbid in any tool creating a pdf file. [/quote:pviirjy6]\n\nUnderstood. My point is that if you create PDFs from EMFs users cannot copy the text out even if you want to give them that capability.\n\nJames','',0,'gA==','pviirjy6',1,0,'',303,0,0),(13014,2992,2,375,0,'84.122.103.105',1147286790,1,0,1,1,1,1,'','Ayuda Graficos','El caso es que tengo un problema de cuidado con la clase  TImage y similares (utilizo FW 2.3 y Clipper 5.3 en XP). Pues con Windows 95,98 y WinMe se pueden abrir la mayoría de gráficos/imágenes con nViewLib, pero con XP TImage utiliza nViewl16 (16 bits), en lugar de nViewlib (32 bits), pues pasa por la zona: \n\nif ! ( IsWin95() ) \n::hBitmap = NViewLibLoad( AllTrim( cBmpFile ), ::nProgress ) \nelse \n::hBitmap = NViewLib32( AllTrim( cBmpFile ), ::nProgress ) \nendif \n\ny como no es W95 pues abre nViewl16. \n\nPuedo forzar la apertura de nViewlib en XP, pero me devuelve handles de más de 10 dígitos, algunos incluso, negativos. He intentado acortarlos con nLowWord(), nHiWord(), con una mezcla de ambos o restando 65536 antes o después de aplicar las funciones. Pero nada de nada. Por fortuna FreeImage me dió la idea de utilizar:\n\nhBmp = nLoWord( WOWHandle16(hBmp, 8 ) ) ¡Y funciona! \n\nEl problema es que no lee ni la mitad de gráficos que con nViewl16. Utilizaría nViewl16, lo que pasa es que con esa librería si un gráfico no lo puede leer te saca un mensaje de advertencia. Como mi programa ya tiene su propio sistema de mensajes (muy elaborado) y durante la lectura del albúm muestra un \"Espere un momento, Por favor...\" pues el programa se queda colgado hasta que se cierre el mensaje de la librería (que casualmente aparece por debajo del mío y no se puede cerrar de forma convencional.). \n\nY si utilizo nViewlib, no da error si no lee un fichero, pero no lee tantos como con nViewl16. Por ahora he programado una solución de compromiso. Abro lo que puedo con nViewlib y lo demás si no es muy grande con nViewl16 rezando para que no se cuelgue. Será cuestión de advertir al cliente. No deja de ser una solución a medias. \n\nLo he intentado con FreeImage, pero no se si lo estroy haciendo mal, pero me da la impresión de que FreeImage está pensada para programar en 32 bits. O al menos, con el XP me da error. \n\nConsigo abrir la librería \"manualmente\" pero después me da error en la librería GDI32.dll (.Por cierto, FreeImage tiene más de 8 carácteres y no se abre en XP con LoadLibrary ni a tiros (a 16 bits). \n\nSi alguién tiene alguna idea, le agradecería la ayuda. \n\nUn saludo','',0,'gA==','1twih2ny',1,0,'',375,0,0),(13015,2874,3,3,0,'82.64.198.73',1147286945,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:sbl55oo4]Richard,\n\n[quote:sbl55oo4]I know you can copy from Acrobat reader but this is an option you can forbid in any tool creating a pdf file. [/quote:sbl55oo4]\n\nUnderstood. My point is that if you create PDFs from EMFs users cannot copy the text out even if you want to give them that capability.\n\nJames[/quote:sbl55oo4]\n\nSure  i agree, it is handled by the pdf like an image.\n\nRichard','',0,'gA==','sbl55oo4',1,0,'',3,0,0),(13016,2991,3,3,0,'82.64.198.73',1147287094,1,0,1,1,1,1,'','Re: GetActiveObject + FWH = Windows Exception','[quote=&quot;Gale FORd&quot;:xbcs8f16]I just upgraded to FWH 2.7 and March 2006 xHarbour Builder.\nMost everything works ok except for a couple of things.\nI have narrowed it down to the sample below that creates the windows exception error.\nIf you remove the section with GetActiveObject() function there is no exception error.\n\n#INCLUDE \"FIVEWIN.CH\"\nfunction main\n   local oExcel\n   TRY\n      oExcel := GetActiveObject( \"Excel.Application\" )\n   CATCH\n      TRY\n         oExcel := CreateObject( \"Excel.Application\" )\n      CATCH\n         Alert( \"ERROR! Excel not avialable. [\" + Ole2TxtError()+ \"]\" )\n         RETU(.f.)\n      END\n   END\n   oExcel:WorkBooks:Add()\n   oExcel:Visible := .t.\nreturn nil[/quote:xbcs8f16]\n\nGale\n\ntry it this way\n\nTRY\n   oExcel := CREATEOBJECT( \"Excel.Application\" )\nCATCH\n   TRY\n      oExcel := CREATEOBJECT( \"Excel.Application\" )\n   CATCH\n      MSGSTOP(\"L\'Application Microsoft Excel n\'est pas installée sur cet Ordinateur !\" )\n      RETURN NIL\n   END\nEND\n\nRichard','',0,'gA==','xbcs8f16',1,0,'',3,0,0),(13017,2991,3,343,0,'204.57.111.194',1147288437,1,0,1,1,1,0,'','Re: GetActiveObject + FWH = Windows Exception','CreateObject() works ok.\nGetActiveObject() does not work ok with FWH?\n\nIf I compile without #include \"fivewin.ch\" it works ok.\n\nIs there a reason not to use it?','',0,'gA==','3hziy2gu',1,0,'',343,0,0),(13018,2993,6,52,0,'200.127.195.89',1147288937,1,0,1,1,1,1,'','Comparar 2 array','Estimados,\n\n[code:3lzi7pc0]For nItem&#58;= 1 to 10\n    for nItem2&#58;= 1 to 10\n       if aMatriz&#91; nItem &#93;&#91; nItem2 &#93; == aMatriz2&#91; nItem &#93; &#91; nItem2 &#93;\n           ? &quot;son iguales&quot;\n       endif\n    next nItem2\nnext nItem[/code:3lzi7pc0]\n\nEse código puede reemplazarse por algo mejor? usando bloque de codigo o algo parecido?\n\nPodrían indicarme como?\n\nGracias.','',0,'AIA=','3lzi7pc0',1,0,'',52,0,0),(13019,2991,3,3,0,'82.64.198.73',1147289149,1,0,1,1,1,1,'','Re: GetActiveObject + FWH = Windows Exception','[quote=&quot;Gale FORd&quot;:171td6ci]CreateObject() works ok.\nGetActiveObject() does not work ok with FWH?\n\nIf I compile without #include \"fivewin.ch\" it works ok.\n\nIs there a reason not to use it?[/quote:171td6ci]\n\nThe result should be the same with or without #include \"fivewin.ch\" as you are calling xharbour\'s OLE native library in both cases. \n\nFrom my experience Getactiveobject() will work OK if the object is always active (like Internet explorer) ,  but will also fail and gpfs in certain cases. \n\nI have decided not to use it and replace with Createobject() that always works either for excel, word or Internet explorer.\n\nRichard','',0,'gA==','171td6ci',1,0,'',3,0,0),(13020,2991,3,343,0,'204.57.111.194',1147290048,1,0,1,1,1,0,'','Re: GetActiveObject + FWH = Windows Exception','No problem.\n\nBut just FYI it does not error when it is native xHarbour. With fivewin linked in it errors.\n\nThanks,','',0,'gA==','3k9jk26a',1,0,'',343,0,0),(13021,2994,3,343,0,'204.57.111.194',1147291138,1,0,1,1,1,0,'','Plans for popup on ttoolbar()?','I would like to use rebar and ttoolbar but there is not dropdown (popup) menu.\n\nAny plans for adding this feature?\n\nThanks,','',0,'gA==','1k46sh4s',1,0,'',343,0,0),(13022,2990,20,125,0,'194.243.7.199',1147294058,1,0,1,1,1,0,'','','Ok, funziona per il record selezionato\n\noBrw:nClrBackFocus = CLR_GREEN \noBrw:nClrForeFocus = CLR_RED \n\nVolevo anche sapere anche il sistema x colorare i record non selezionati,\nho usato :\n  oBrw:nClrText      =  CLR_YELLOW e funziona per il testo ma non so cosa usare per il BACK del record non selezionato.\n\nGrazie 1000000\n\nPiscicelli','',0,'gA==','k660v34v',1,0,'',125,0,0),(13023,2991,3,213,0,'72.177.228.25',1147295444,1,0,1,1,1,0,'','','Gale,\n\nI have the same problem.   I think there is some problem or conflict between xBuilder and FWH activex/ole features.  Are you using xcc?\n\nIf you include fivewin.ch try removing the call to Ole2TxtError() in the Alert function and see if that works.  Be interested to know your results.\n\nThanks,\nRandal Ferguson','',0,'gA==','142b5hnq',1,0,'',213,0,0),(13024,2990,20,6,0,'87.11.229.25',1147295821,1,0,1,1,1,1,'','','[quote=&quot;Piscicelli Zingoni&quot;:1s3g4giz]Volevo anche sapere anche il sistema x colorare i record non selezionati,\nho usato :\n  oBrw:nClrText      =  CLR_YELLOW e funziona per il testo ma non so cosa usare per il BACK del record non selezionato.[/quote:1s3g4giz]\n\n[code:1s3g4giz]oBrw&#58;nClrPane[/code:1s3g4giz]\n\nE tieni presente che entrambi possono essere dei codeblocks che vengono valutati record per record in base alle condizioni desiderate.\n\nEMG','',0,'gIA=','1s3g4giz',1,0,'',6,0,0),(13025,2980,6,295,0,'200.112.82.124',1147295824,1,0,1,1,1,1,'','','Gracias! Rene por tu repuesta, ahora vamos entendiendo mejor <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSALUDOS','',0,'gIA=','3spv2e1x',1,0,'',295,0,0),(13026,2835,20,49,0,'82.59.141.192',1147296635,1,0,1,1,1,1,'','','Ma scusa ti rendi conto che noi stiamo parlando di un grafico per una soa linea mentre in un road book ci sono centinaia e centinaia di linee ?\nLo hai visto mai un roadbook ?','',0,'gIA=','3p4vqse8',1,0,'',49,0,0),(13027,2991,3,343,0,'204.57.111.194',1147298049,1,0,1,1,1,0,'','','[quote=&quot;Randal Ferguson&quot;:265ksovb]Gale,\n\nI have the same problem.   I think there is some problem or conflict between xBuilder and FWH activex/ole features.  Are you using xcc?\n\nIf you include fivewin.ch try removing the call to Ole2TxtError() in the Alert function and see if that works.  Be interested to know your results.\n\nThanks,\nRandal Ferguson[/quote:265ksovb]\n\nYes, it is works when Ole2TxtError() is removed.\nYes, I am using xHarbour Builder (xcc)','',0,'gA==','265ksovb',1,0,'',343,0,0),(13028,2835,20,6,0,'87.11.229.25',1147300461,1,0,1,1,1,1,'','','Guarda che con la tecnica di cui sopra puoi disegnare quante immagini vuoi.\n\nEMG','',0,'gA==','3l6d0xv6',1,0,'',6,0,0),(13029,2995,6,436,0,'200.82.87.194',1147301057,1,0,1,1,1,0,'','Usando ADS con archivos ADT','Siguiendo diversas instrucciones, fundamentalmente del maestro René en este foro y en su blog, logré hacer funcionar Servidor ADS Remoto con tablas ADT.\nCon la salvedad que se me presentan errores con el uso de la clase tDbf.\nAclaro que utilizando DBF-CDX no se presenta el error (también con ADS remoto).\nSaludos\n\n\n\nEl error.log me queda así.\n\nApplication\n===========\n   Path and name: C:\\SIMEDHB\\SIMEDHB.exe (32 bits)\n   Size: 1,905,152 bytes\n   Time from start: 0 hours 0 mins 19 secs \n   Error occurred at: 10/05/2006, 19:51:16\n   Error description: Error BASE/1102  Error de argumento: UPPER\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; UPPER(0)\n   Called from:  =&gt; TFIELD:NEW(55)\n   Called from:  =&gt; TDBF:AUTOFIELD(0)\n   Called from:  =&gt; TDBF:ACTIVATE(0)\n   Called from:  =&gt; TDBF:USE(0)\n   Called from:  =&gt; ALTAPROC(0)\n   Called from:  =&gt; (b)PROCESOS(0)\n   Called from:  =&gt; TBTNBMP:CLICK(0)\n   Called from:  =&gt; TWINDOW:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; PROCESOS(0)\n   Called from:  =&gt; (b)MENUBASE(0)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(0)','',0,'','1612n96p',1,0,'',436,0,0),(13030,2972,3,303,0,'72.199.41.171',1147301380,1,0,1,1,1,0,'','','Evans,\n\nI think the key is that you can\'t call ENDPRINT before you are done with all the \"reports.\" Ending the print device signals the Windows print spooler that the print job is done.\n\nBelow is an example using TPrinter that prints two \"reports\" in one print job. If you need to use TReport, you can try not calling ENDREPORT.\n\nJames\n\n[code:1234dzxg]// Purpose&#58; Showing Multiple reports in one print job&#46;\n// Date   &#58; 5/10/2006 3&#58;37PM\n// Author &#58; James Bott, jbott@compuserve&#46;com\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oPrn, oFontm, nRow&#58;= 20, nCol&#58;= 40, i&#58;=0\n\n   PRINT oPrn NAME &quot;Testing the printer object&quot;  PREVIEW\n\n      DEFINE FONT oFont NAME &quot;ARIAL&quot; SIZE 0, -10 OF oPrn\n\n      oPrn&#58;setFont&#40;oFont&#41;\n\n      // Print the cover page\n\n      PAGE\n\n          oPrn&#58;say&#40; nRow, nCol, &quot;Cover Page&quot;&#41;\n\n      ENDPAGE\n\n      // Print the detail pages\n\n      for i&#58;= 1 to 3\n\n         PAGE\n\n            oPrn&#58;say&#40; nRow, nCol, &quot;Detail Page&#58; &quot;+ alltrim&#40;str&#40;i&#41;&#41;&#41;\n\n         ENDPAGE\n\n      next\n\n   ENDPRINT\n\n   oFont&#58;End&#40;&#41;\n\nreturn nil[/code:1234dzxg]','',0,'AIA=','1234dzxg',1,0,'',303,0,0),(13031,2995,6,36,0,'200.113.56.235',1147303090,1,0,1,1,1,0,'','','IVAN\n\nYo tb tuve problemas, pero lo solucione asi\n\n[code:yikluiy5]local oMa\nDEFINE DATABASE oMa FILE &#40; &quot;PATENTE&#46;ADT&quot; &#41; PATH &quot;&quot; VIA &quot;ADS&quot;\n	FIELD NAME &quot;NUM_PAT&quot;    TYPE &quot;C&quot; LEN 007 DEC 00 OF oMa\n	FIELD NAME &quot;NUM_STOCK&quot;  TYPE &quot;N&quot; LEN 010 DEC 00 OF oMa\n	FIELD NAME &quot;MARCA&quot;      TYPE &quot;C&quot; LEN 020 DEC 00 OF oMa\n	FIELD NAME &quot;MODELO&quot;     TYPE &quot;C&quot; LEN 020 DEC 00 OF oMa\n	FIELD NAME &quot;VIN&quot;        TYPE &quot;C&quot; LEN 020 DEC 00 OF oMa\n	FIELD NAME &quot;COLOR&quot;      TYPE &quot;C&quot; LEN 015 DEC 00 OF oMa\n	FIELD NAME &quot;USUARIO&quot;    TYPE &quot;C&quot; LEN 013 DEC 00 OF oMa\n\n\nACTIVATE DATABASE oMa NORECYCLE SHARED\n[/code:yikluiy5]\n\nSaludos\nPatricio','',0,'AIA=','yikluiy5',1,0,'',36,0,0),(13032,2996,6,519,0,'83.33.9.98',1147303900,1,0,1,1,1,0,'','Twbrowse Rossine','Hola Rossine\n\n  El Twbrowse no funciona bien con recursos, fijate en las dos imagenes, no te mantiene las coordenadas como se creado el twbrowse en el RC \n\n\nUn saludo  \n\n\n[url=http&#58;//img151&#46;imageshack&#46;us/my&#46;php?image=browse6xb&#46;jpg:2s185nc8][img:2s185nc8]http&#58;//img151&#46;imageshack&#46;us/img151/800/browse6xb&#46;th&#46;jpg[/img:2s185nc8][/url:2s185nc8]\n\n\n[url=http&#58;//img50&#46;imageshack&#46;us/my&#46;php?image=browse12xc&#46;jpg:2s185nc8][img:2s185nc8]http&#58;//img50&#46;imageshack&#46;us/img50/1640/browse12xc&#46;th&#46;jpg[/img:2s185nc8][/url:2s185nc8]','',0,'GA==','2s185nc8',1,0,'',519,0,0),(13033,2960,6,496,0,'200.107.36.176',1147308012,1,0,1,1,1,0,'','','Tengo varios Diálogos que llamo desde botones que están en el mismo folder del wbrowse, los muevo sobro los headers y todo va normal, e incluso mandé a generar un diálogo de alert() desde dentro del browse, moví el diálogo, y no pasa nada anormal.\n\nUn saludo \n\nMarcelo Jingo','',0,'GA==','1ogma4no',1,0,'',496,0,0),(13034,2962,2,54,0,'201.98.88.168',1147312187,1,0,1,1,1,1,'','Re: Get, Get, y Mas Gets','[quote=&quot;Wneskers&quot;:3hew6hol]1. Estimados amigos, como hago en un cuardo de dialogo o en un folder para que el sistema le indique al usuario que dejo campos sin rellenar, por ejemplo: SI EN LA PRIMERA CARPETA LE FALTO EL NOMBRE EN LA SEGUNDA LE FALTO UN PORCENTAJE EL SISTEMA LE INDIQUE QUE NO PUEDE GRABAR CON UN MENSAJES QUE DIGA \"El nombre no puede estar vacio\" etc... e indicarme en que parte del programa ponerlo,\n\n             2. Por otra parte en la siguiente intruccion:\n\n             oFld:aDialogs[2]:bGotFocus:={ || oCodPro:SetFocus() }\n\n            cuando la aplico en unos casos la ingnora en otros me dice QUE ES NUMERIC  y el programa da error. en que parte del programa deberia palicar esta intruccion, en el get afectado?, en el get que esta antes de primere get del segundo folder? si alguien me puede ayudar,\n\n\n            Otra cosa los concejos que me han dado han sido muy utiles, y agradezco la ayuda\n\nAtte:\nWilliam Neskers\nVenezuela[/quote:3hew6hol]\n\nWilliam (o como decimos en México, tocayo),\n\n[code:3hew6hol]FUNCTION main&#40;&#41;\nDEFINE DIALOG oDlg &#46;&#46;&#46;&#46;\n  @ 10,10 SAY &quot;Nombre&quot; OF oDlg\n  @ 11,10 SAY &quot;Edad&quot; OF oDlg\n  @ 10,20 GET oGet&#91;1&#93; VAR cNombre PICTURE &quot;@k!&quot; OF oDlg\n  @ 11,20 GET oGet&#91;2&#93; VAR nEdad PICTURE &quot;999&quot; OF oDlg\n  @ 13,10 BUTTON oBtn SIZE 100,50 ACTION grabar&#40;cNombre,nEdad&#41;\nACTIVATE DIALOG oDlg\nRETURN NIL\n//**\nFUNCTION grabar&#40;cNombre,nEdad&#41;\n  IF EMPTY&#40;cNombre&#41;\n      MSGINFO&#40;&quot;Debe de agregar el nombre&#46;&#46;&#46;&quot;,&quot;Información&quot;&#41;\n      RETURN NIL\n  ENDIF\n  IF nEdad &lt;= 0\n      MSGINFO&#40;&quot;La edad debe ser mayor que 0 &#40;cero&#41;&quot;,&quot;Información&quot;&#41;\n      RETURN NIL\n  ENDIF\n  * Aqui se graba\nRETURN NIL\n[/code:3hew6hol]\n\nBueno, espero haber ayudado','',0,'gIA=','3hew6hol',1,0,'',54,0,0),(13035,2969,6,54,0,'201.98.88.168',1147313337,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:2odufxn4]Lenadro, please mandamenla a mi tambien. Gracias.\n\n<!-- e --><a href=\"mailto:bmaimo@piema.info\">bmaimo@piema.info</a><!-- e -->[/quote:2odufxn4]\n\nAqui esta mi estimado.\nCon preview\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fwh/tdosprn.zip\">http://incos.sytes.net/fwh/tdosprn.zip</a><!-- m -->','',0,'gA==','2odufxn4',1,0,'',54,0,0),(13036,2989,3,67,0,'62.235.24.35',1147329247,1,0,1,1,1,0,'','','REDEFINE DTPICKER Obj VAR Van ID 10 OF oDlg\n\nwith :\n\n\n CONTROL \"\", 10 , \"SysDateTimePick32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP | DTS_SHOWNONE , 205 , 9 , 60, 12','',0,'gA==','1069ylmu',1,0,'',67,0,0),(13037,2835,20,49,0,'213.82.134.66',1147331236,1,0,1,1,1,1,'','','si ci avevo già pensato di faren altro archivio dove inserire indicizzati i simboli per ogni immagini  ma credo che se calcoliamo un normale numero di 5 simbolini per ogni grafico il dbf si svilupperà moltissimo :\nper esempio ho contato un piccolo roadbook per una sezione :\nVarano( località di partenza)  =  557 linee vale a dire 557 grafici \n557x5 = [b:c4k234nv]2785[/b:c4k234nv] record\n\nDato che le prove speciali normalmente da noi sono 5 e poi ci sono le sezioni per il trasferimento piu\' altre cazzatine l\'archivio supererebbe di gran molto i 10000 record per un roadbook \n\nDato tutte le esperienze di archivi con grandi quantità di dati , esperienze che ogni tanto leggo in questo forum e nel vecchio sono molto preoccupato che ciò può funzionare senza intoppi','',0,'QA==','c4k234nv',1,0,'',49,0,0),(13038,2965,6,49,0,'213.82.134.66',1147331526,1,0,1,1,1,1,'','','Paco I wanted create an windows MDI with Tfsdi and Vtaskbar alanit\'s program \nHave one sample to build it ?','',0,'QA==','ql5531z6',1,0,'',49,0,0),(13039,2835,20,6,0,'82.57.160.104',1147331807,1,0,1,1,1,1,'','','Quantità di record intorno ai 10000 sono assolutamente tranquilli per un DBF. Ma anche con 100000 non avresti problemi. C\'è gente che usa DBF con milioni di record senza alcun problema.\n\nEMG','',0,'QA==','3fyg80ht',1,1147415934,'',6,1,0),(13040,2969,6,456,0,'217.127.39.57',1147334045,1,0,1,1,1,1,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Descargado, gracias William.','',0,'QA==','tkgnj1xg',1,0,'',456,0,0),(13041,2991,3,2,0,'87.218.146.127',1147334738,1,0,1,1,1,1,'','','FWH provides a Ole2TxtError() and it seems that xHB does it too.\n\nWe may rename FWH functions to avoid these conflicts.','',0,'QA==','3n02gxue',1,0,'',2,0,0),(13042,2994,3,2,0,'87.218.146.127',1147334846,1,0,1,1,1,1,'','','Gale,\n\nIts on our todo list.','',0,'QA==','1t1ew5v7',1,0,'',2,0,0),(13043,2993,6,2,0,'87.218.146.127',1147334972,1,0,1,1,1,1,'','','Gustavo,\n\nPrueba con:\n[code:8t1bkchw]\nif ! aMatriz == aMatriz2\n   MsgInfo&#40; &quot;distintos&quot; &#41;\nelse\n   MsgInfo&#40; &quot;iguales&quot; &#41;\nendif\n[/code:8t1bkchw]','',0,'AIA=','8t1bkchw',1,0,'',2,0,0),(13044,2987,6,24,0,'80.37.55.44',1147336235,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2997foi8]Rafa,\n\nSi pudieses proporcionar un ejemplo pequeño y completo, te lo agradeceríamos.[/quote:2997foi8]\n\nAntonio, sabes que si puedo, intento reproducirlo....pero....\neste llama desde un tsbrowse a otro tsbrowse , dialgos en recursos...\n\nHaber si saco tiempo para realizar un test , donde se muestre ese comportamiento.','',0,'gA==','2997foi8',1,0,'',24,0,0),(13045,2993,6,24,0,'80.37.55.44',1147336324,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:23pyotl3]Gustavo,\n\nPrueba con:\n[code:23pyotl3]\nif ! aMatriz == aMatriz2\n   MsgInfo&#40; &quot;distintos&quot; &#41;\nelse\n   MsgInfo&#40; &quot;iguales&quot; &#41;\nendif\n[/code:23pyotl3][/quote:23pyotl3]\n\nUmmm... seria interesante aplicar algun tipo de algoritmo de ordenacion\nantes, ¿ no ?','',0,'gIA=','23pyotl3',1,0,'',24,0,0),(13046,2874,3,130,0,'141.51.32.24',1147337490,1,0,1,1,1,0,'','','[quote=&quot;Richard Chidiak&quot;:22lr63et]\n\nI guess you should be very careful about licensing if you are distributing software. None of the above stated programs is \"free for commercial use\". You need a license for all of them. I have spent quite a time on the subject and emailed all the authors including cutepdf, pdf95 ...etc and many others. If you use inhouse, no problem. But we all sell \"commercial software\" outside \n\nRichard[/quote:22lr63et]\n\nRichard,\n\nI never distribute software I have no license to do it. If you can download from internet, the users can download itself, if they need it.\nThese additional tools are just mentioned in the docs and the users can decide what they want to do.\n\nStefan','',0,'gA==','22lr63et',1,0,'',130,0,0),(13047,2972,3,455,0,'195.97.105.161',1147340434,1,0,1,1,1,0,'','','James,\nThanks for the reply.\nOur problem seems to be more compilcated than this...\nHere\'s what we have...\n\nPRINT OPRN TO (CPRINTER) NAME \"COVER_PAGE\"\n ...\nENDPRINT\n\nCalculations for Summary Report\n\nPRINT OPRN TO (CPRINTER) NAME \"SUMMARY_REPORT\"\n...\nENDPRINT\n\nCalculations for Detailed Report\n\nPRINT OPRN TO (CPRINTER) NAME \"DETAILED_REPORT\"\n...\nENDPRINT\n\nCalculations for Job Costing\n\nREPORT OREPORT NAME \"JOB_COSTING\"\n...\nENDREPORT\n\nCalculations for Workers\' Compensation Report\n\nREPORT OREPORT NAME \"W_C_REPORT\"\n...\nENDREPORT\n\nCalculations for Month End...\n\nPRINT OPRN TO (CPRINTER) NAME \"MONTH_END_REPORT\"\n...\nENDPRINT\n\netc, etc.\n\nEach print job above is spread into several functions in our PRG\'s.\nIt\'s not easy to start a print job (although your thought is correct, and we also thought about it already), due to some factors that might or might not end the print jobs above at the right point.\n\nEspecially the transition between PRINT OPRN and REPORT OREPORT is the worst part...\n\nAnyway, a though could be to create a PDF with all print jobs combined into one document and when done, send it to Adobe for printing.\n\nThanks again for your reply.\n\nPerhaps, if we have the time, to start digging among our PRG\'s and see if we can manage to create a complete job, including all subsequent jobs for one company (individual company reports).\n\nI am obliged that you have responded.\n\nKind regards\nEvans\nFor Paysoft, Inc.','',0,'gA==','26fzowh2',1,0,'',455,0,0),(13048,2993,6,52,0,'200.127.195.89',1147340688,1,0,1,1,1,1,'','','Antonio, TheFull\n\n   Gracias. Pero la Idea es comparar cada item del array o sea cada aMatriz[ Nitem][ nItem2 ], como no se utilizar bien los bBlock{||} pensé que se podría hacer algo con bBlcok{||} para minimizar algo el código.\n\n   Esto lo estoy haciendo porque quiero ponerme a escribir código mas pensado en mis app.\n\nGracias nuevamente.\nAlguna Idea...','',0,'','1zjua74p',1,0,'',52,0,0),(13049,2997,4,89,0,'213.21.136.60',1147341485,1,0,1,1,1,0,'','Anomaly  with BTNBMP','Hello antonio\n\nThe button turns black when I do a double click on it ,with yust one click\nit works ok .\n\nRegards Maurizio\n//----------------------------------------------------------------------------//\n// SAMPLE\n//----------------------------------------------------------------------------//\n#include \"FWCE.ch\"\nStatic  oBtn\nStatic nC\nfunction Main()\n   local oDlg\n   Local nC := 1\n   DEFINE DIALOG oDlg RESOURCE \"test\"\n	REDEFINE BTNBMP oBtn  ID 103  OF oDlg PROMPT \"Color\" ACTION Color()\n   oBtn:SetColor( CLR_BLUE ,CLR_HRED)\n   ACTIVATE DIALOG oDlg CENTERED\nreturn nil\nFunction Color()\n IF nC == 1\n	 nC := 2\n    oBtn:SetColor( CLR_BLUE ,CLR_YELLOW)\n ELSE\n    oBtn:SetColor( CLR_BLUE ,CLR_HRED)\n	 nC := 1\n ENDIF\nReturn nil\n//======================================\n//----------------------------------------------------------------------------//\n// RC FILE\n//----------------------------------------------------------------------------//\n\n#ifdef _CE\n   #include \"c:\\vce\\include\\arm\\windows.h\"\n   #include \"c:\\vce\\include\\arm\\commctrl.h\"\n#endif\n\ntest DIALOG 10, 35, 139, 89\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"DialogBox Test\"\nFONT 8, \"system\"\n{\n PUSHBUTTON \"Test\", 103, 89, 12, 37, 29\n}','',0,'','1uvgv6p5',1,0,'',89,0,0),(13050,2989,3,264,0,'200.91.3.10',1147346988,1,0,1,1,1,0,'','','DTS_SHOWNONE value ?','',0,'','39fffph1',1,0,'',264,0,0),(13051,2998,6,54,0,'201.98.88.168',1147347226,1,0,1,1,1,1,'','Copiar texto','Amigos saludos,\n\nHay alguna manera de poder copiar texto (CTRL-V) en campos de solo lectura, en los campos normales o editables si se puede.\n\nEspero comentarios y gracias de antemano','',0,'','1igckm7n',1,0,'',54,0,0),(13052,2999,3,15,0,'203.73.91.92',1147348514,1,0,1,1,1,0,'','How to use Advantage Database AIS?','Hello\n\nHow to use AIS solution? or any sample let me read it.\n\nRegards,\n\nRichard','',0,'','1u3tzq0z',1,0,'',15,0,0),(13053,3000,6,409,0,'201.246.66.238',1147354263,1,0,1,1,1,0,'','Problema con el BUTTONBMP','Bueno amigos el poblema es el siguiente esta classe me sale error:\n REDEFINE BUTTONBMP aGet[ 15 ] ID 101 OF oDlg;\n     BITMAP \"New\" PROMPT \"Grabar\" TEXTRIGHT  ACTION  ( lAceptar := .T., oDlg:End() )\n y el error es el siguiente\nWarning W0001  Ambiguous reference: \'TEXTRIGHT\'\n\npor favor una ayudita\nSaludos','',0,'','1vumtt6h',1,0,'',409,0,0),(13054,2990,20,125,0,'194.243.7.199',1147355145,1,0,1,1,1,0,'','','Incredibilmente, semplice!!\n\nNon mi dire che si puo\' anche colorare addirittura ogni singola cella ?\n(Non ci credo)\n\nGrazie','',0,'','28c6snl5',1,0,'',125,0,0),(13055,2999,3,41,0,'200.87.67.10',1147355823,1,0,1,1,1,0,'','','Richard,\n\nif you are working with ADS Datadictionary, this will be ease, you only need to enable  INTERNET ACCESS, this can be done from ARC and you need to define a TCP port to the service (AIS), see your ADS.INI for this, then to connect you only add the port number in your server path\n\n      //serverpat( or ip ):PORT////../datadictionary.add \n\nand type connection 4\n\nI tested this with ADS on Linux and work very well, I think this will be similar with ADS on Windows.\n\nregards\n\nMarcelo','',0,'','12r5b6b2',1,0,'',41,0,0),(13056,3001,3,343,0,'204.57.111.194',1147355991,1,0,1,1,1,0,'','ttxtfile():new() return nil if error opening file.','If there is a file error, method new() returns nil, but should return self.\n\nMETHOD New( cFileName, nMode ) CLASS TTxtFile\n\n     Super:New( cFileName, nMode )\n\n     IF ::hFile &lt; 0\n          RETU NIL\n// RETU NIL above \n// gives an error with xHarbour builder\n// I changed this to RETU self\n// and now to check for open error\n// I check oFile:hFile for &lt; 0\n     ENDIF\n\n     ::nMaxLineLength := 1024\n     ::nLine          := 1\n     ::nTLines        := ::Count( CRLF )\n     ::nOffset        := 0\n     ::ReadLine()\n\nRETURN Self','',0,'','3gwnov36',1,0,'',343,0,0),(13057,2989,3,343,0,'204.57.111.194',1147356723,1,0,1,1,1,0,'','','[quote=&quot;dbzap&quot;:3fvdc7ke]DTS_SHOWNONE value ?[/quote:3fvdc7ke]\n\nI don\'t know what all of these are for but?\n\n// begin_r_commctrl\n\n#define DTS_UPDOWN  0x0001 // use UPDOWN instead of MONTHCAL\n#define DTS_SHOWNONE  0x0002 // allow a NONE selection\n#define DTS_SHORTDATEFORMAT 0x0000 // use the short date format (app must forward WM_WININICHANGE messages)\n#define DTS_LONGDATEFORMAT  0x0004 // use the long date format (app must forward WM_WININICHANGE messages)\n#if (_WIN32_IE &gt;= 0x500)\n#define DTS_SHORTDATECENTURYFORMAT 0x000C// short date format with century (app must forward WM_WININICHANGE messages)\n#endif // (_WIN32_IE &gt;= 0x500)\n#define DTS_TIMEFORMAT      0x0009 // use the time format (app must forward WM_WININICHANGE messages)\n#define DTS_APPCANPARSE     0x0010 // allow user entered strings (app MUST respond to DTN_USERSTRING)\n#define DTS_RIGHTALIGN      0x0020 // right-align popup instead of left-align it\n\n// end_r_commctrl','',0,'gA==','3fvdc7ke',1,0,'',343,0,0),(13058,3002,6,41,0,'200.87.67.10',1147356989,1,0,1,1,1,0,'','Actualizar un SAY al estar modificando un GET','Holas,\n\ntengo un problemita, tengo definido un GET\n\n   REDEFINE GET oGet VAR cNota ID 101 OF oDlg\n   REDEFINE SAY oSay VAR cLen ID 102 OF oDlg\n\n   oGet:bChange := {||  cLne := STR( 300 - LEN( ALLTRIM( cNota ))), oSay:refresh() }\n \n   he probado oSay:setText( cLen ) mas sysrefresh() tambien say:paint() todo en el bloque\n   bChange del GET pero el SAY no se actualiza, pero si pongo un msginfo() dentro el    bloque recien se actualiza, alguna sugerencia para que funcione esto\n\n saludos\n\nMarcelo','',0,'gA==','d51sp38u',1,0,'',41,0,0),(13059,3000,6,9,0,'80.103.166.81',1147357102,1,0,1,1,1,1,'','','Intenta esto:\n\nREDEFINE BUTTONBMP aGet[ 15 ] ID 101 OF oDlg; \nACTION ( lAceptar := .T., oDlg:End() ) ;\nPROMPT \"Grabar\" TEXTRIGHT  ;\nBITMAP \"New\"','',0,'','27u6nreu',1,0,'',9,0,0),(13060,3002,6,9,0,'80.103.166.81',1147357687,1,0,1,1,1,1,'','','Marcelo, \n\nLa clase TGET (creo) actualiza un Get despues del siguiente GET.- Si te parece, prueba a ponerle un Get a continuación de prueba. Si te actualiza el SAY una vez pasado este Get de prueba, hemos dado en el clavo. En este caso tienes que modificar la clase TGET. \n\nSi este fuera el caso, dímelo y comentamos que lineas hay que modificar en el TGET.','',0,'','1lh8brn1',1,0,'',9,0,0),(13061,2991,3,213,0,'72.177.228.25',1147358978,1,0,1,1,1,0,'','','Gale,\n\nCan you get the webexp.prg sample in \\fwh\\samples to work using xBuilder?\n\nAntonio posted a link here recently for a new activex.lib we should link instead of the one that comes with xHarbour.  I cannot get it to work which makes me think there is some incompatibilities using FWH ActiveX with xBuilder.  If I build the webexp sample using harbour or xharbour with bcc it works fine.\n\nUsing xBuilder/xcc with the activex lib Antonio posted I get:\n\nApplication\n===========\n   Path and name: D:\\xHB\\bin\\webexp.exe (32 bits)\n   Size: 1,504,768 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 05/11/06, 09:42:34\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: TActiveX.prg =&gt; CREATEACTIVEX(184)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: webexp.prg =&gt; MAIN(11)\n\nThanks,\nRandal Ferguson','',0,'','3gz5rdkb',1,0,'',213,0,0),(13062,3002,6,41,0,'200.87.67.10',1147359548,1,0,1,1,1,0,'','','Manuel,\n\ngracias por responder, pero mi problema es de actualizacion del SAY en el momento que escribo en el GET, lo que especificamente deseo hacer es que mientras escriben en el GET se informe cuantos caracteres quedan libres para escribir en la variable asociada al GET.\n\nsaludos\n\nMarcelo\n\n[quote=&quot;Manuel Valdenebro&quot;:3arw1mpq]Marcelo, \n\nLa clase TGET (creo) actualiza un Get despues del siguiente GET.- Si te parece, prueba a ponerle un Get a continuación de prueba. Si te actualiza el SAY una vez pasado este Get de prueba, hemos dado en el clavo. En este caso tienes que modificar la clase TGET. \n\nSi este fuera el caso, dímelo y comentamos que lineas hay que modificar en el TGET.[/quote:3arw1mpq]','',0,'gA==','3arw1mpq',1,0,'',41,0,0),(13063,2991,3,343,0,'204.57.111.194',1147359834,1,0,1,1,1,0,'','','[quote=&quot;Randal Ferguson&quot;:3cvlk97r]Gale,\n\nCan you get the webexp.prg sample in \\fwh\\samples to work using xBuilder?\n\nAntonio posted a link here recently for a new activex.lib we should link instead of the one that comes with xHarbour.  I cannot get it to work which makes me think there is some incompatibilities using FWH ActiveX with xBuilder.  If I build the webexp sample using harbour or xharbour with bcc it works fine.\n\nUsing xBuilder/xcc with the activex lib Antonio posted I get:\n\nApplication\n===========\n   Path and name: D:\\xHB\\bin\\webexp.exe (32 bits)\n   Size: 1,504,768 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 05/11/06, 09:42:34\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: TActiveX.prg =&gt; CREATEACTIVEX(184)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: webexp.prg =&gt; MAIN(11)\n\nThanks,\nRandal Ferguson[/quote:3cvlk97r]\n\nI don\'t know about replacing the activex lib but when I compile and run webexp.prg I get the following error.\n\nApplication\n===========\n   Path and name: c:\\FWH\\SAMPLES\\webexp.exe (32 bits)\n   Size: 1,531,904 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 05/11/06, 09:56:21\n   Error description: Error Shell.Explorer/16389  E_FAIL: _BONEVENT\n   Args:\n     [   1] = B   {|| ... }\n\nStack Calls\n===========\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;_BONEVENT(0)\n   Called from: webexp.prg =&gt; MAIN(20)','',0,'gA==','3cvlk97r',1,0,'',343,0,0),(13064,2990,20,6,0,'87.1.232.99',1147363548,1,0,1,1,1,1,'','','Temo di no. Si può fare però con la TCBrowse.\n\nEMG','',0,'gA==','3tqfn1uj',1,0,'',6,0,0),(13065,2990,20,125,0,'194.243.7.199',1147363657,1,0,1,1,1,0,'','','Bene a saperlo, se mi serve so che esiste!\nGrazie','',0,'gA==','c7o1v2e9',1,0,'',125,0,0),(13066,2972,3,303,0,'72.199.41.171',1147364985,1,0,1,1,1,0,'','','Evans,\n\nThe below example with both TPrinter and TReport reports also works, so I think it can be done. You may still have to modify TReport if you want to do multiple TReports in the same print job, since I think it forces and endprint.\n\nYou can also do all your calculations upfront before any of the reports. In fact, doing your calculations during the printing may be the problem. Network spoolers generally have a timeout when they consider the print job done. If you are printing then calculating, the calculation time may be longer than the timeout for the spooler, causing the end of a \"print job.\" If you did all the calculations up front, then all the reports in quick succession, you may not have the problem you are now having. It might still be possible with heavy multiple users, however.\n\nThe best solution would still be a single print job.\n\nIn case you don\'t already know this, I have done work for Chris before (I am in San Diego). If you and/or he wants me to look into this, I will be glad to do so, but I will charge for my time.\n\nRegards,\nJames\n \n\n[code:1ol8ds3c]// Purpose&#58; Showing Multiple reports in one print job&#46;\n// Date   &#58; 5/10/2006 3&#58;37PM\n// Author &#58; James Bott, jbott@compuserve&#46;com\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;report&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oPrn, oFontm, nRow&#58;= 20, nCol&#58;= 40, i&#58;=0\n\n   PRINT oPrn NAME &quot;Testing the printer object&quot; PREVIEW\n\n      DEFINE FONT oFont NAME &quot;ARIAL&quot; SIZE 0, -10 OF oPrn\n\n      oPrn&#58;setFont&#40;oFont&#41;\n\n      PAGE\n\n          oPrn&#58;say&#40; nRow, nCol, &quot;Cover Page&quot;&#41;\n\n      ENDPAGE\n\n\n      for i&#58;= 1 to 3\n\n         PAGE\n\n            oPrn&#58;say&#40; nRow, nCol, &quot;Detail Page&#58; &quot;+ alltrim&#40;str&#40;i&#41;&#41;&#41;\n\n         ENDPAGE\n\n      next\n\n      use employee\n\n      report oReport title &quot;Summary Report&quot; to device oPrn\n\n      COLUMN TITLE &quot;Name&quot; DATA name\n\n      endreport\n\n      activate report oReport\n      use\n\n   //ENDPRINT\n\n   oFont&#58;End&#40;&#41;\n\nreturn nil[/code:1ol8ds3c]','',0,'AIA=','1ol8ds3c',1,0,'',303,0,0),(13067,2972,3,343,0,'204.57.111.194',1147365660,1,0,1,1,1,0,'','','Don\'t forget the printer properties settings in Windows also.\nThey relate to spooling and whether you want to \n1. start spooling after last page\n2. start printing immediately\n3. print directly to printer','',0,'AIA=','2np22xv4',1,0,'',343,0,0),(13068,2999,3,138,0,'201.152.98.24',1147366143,1,0,1,1,1,1,'','','Richard:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/aiswin32.zip\">www.google.d2g.com/ads/demos/aiswin32.zip</a><!-- w -->\n\nThe main problem is configuring software, open your router port, and forward it to the ADS Server, also configure the remote server to \"listen\" to the port assigned.\n\nTake in account that you should always open your detabases using UNC and thats all.','',0,'AIA=','1s3xvmc6',1,0,'',138,0,0),(13069,2980,6,53,0,'201.144.170.46',1147368577,1,0,1,1,1,1,'','','René:\n\nComo siempre, breve pero sustancioso !\ny que dejaste para el curso sobre CGI ? <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nSaludos, Armando','',0,'AIA=','3q44pwsw',1,0,'',53,0,0),(13070,3002,6,9,0,'80.103.166.81',1147368810,1,0,1,1,1,1,'','','Marcelo,\nEl siguiente código lo he probado y funciona perfectamente. A medida que voy escribiendo el GET simultaneamente me dice en el SAY cuantos caracteres quedan. Si a tí no te funciona, tienes que cambiar la clase TGET:\n\n\n@ 0.8, 1.0 SAY \"TITULAR 1:\"\n@ 1.0, 8.0 GET oGet1 VAR cNombre OF oDlg  ;\n              ON CHANGE (cLen := STR (300-LEN(ALLTRIM(cNombre))),  ;   oDlg:UPDATE())\n              \n@ 2.0, 1.0 SAY cLen OF oDlg SIZE 40,10 UPDATE','',0,'AIA=','2558dlub',1,0,'',9,0,0),(13071,2972,3,455,0,'195.97.105.161',1147370276,1,0,1,1,1,0,'','','James,\nThanks for all the advises.\nThe calculations are indeed performed before starting eacg print job.\n\nI understand that REPORT.PRG needs to be modified to suit our needs, and it\'s already been modified to do other things.\n\nI know you have worked for Chris...  I have spent time in El Cajon and work with Chris for the last 6 years, however, we never had the opportunity to meet each other at San Diego, due to my heavy schedule.\n\nI lived at Chris\' mother\'s house with my wife while there, and would probably stay in the US \'till now, however, my wife has a health problem since 2002, and she can\'t travel longer than 2-3 hours without relaxing, so we are stuck in Greece (my country).  I work through net meeting with Chris (Pacific working hours), and for long periods of time, Chris stays here in Greece at the same city where I live, thus we also have a close cooperation.  Also, Boris Pekic works with us from Belgrade.\n\nTo get back to the subject...\nI am completely aware of the functionality of the printers (setup), and also, of the internals of the REPORT class and PRINT class.\n\nThe way our program is structured, it\'s really hard to allow for room to leave a PRINT job open, or a REPORT open... the reason is simple...\nMany of our print jobs and reports, might be printed (if it\'s time to print them), or not printed, thus we need a big PRINT - ENDPRINT, and to be honest with you, sometimes it\'s hard to know where a print package ends.\nAnother thing is that the users have the ability to print single print jobs (and even preview them before sending to the printer)... That\'s another if-end situation here, as to closing the print job when printing as individual print job, or leave it open \'till the whole package has been completed.\n\nThe best approach, was to use PDF995\'s ability to create Combined.pdf (or with any name), which is controllable through our software (when to start spooling to one single file, and when to end).\n\nSome of our clients, have found this option as handy, and have already started using it, so, when 2-3 PC\'s send their \"Combined.pdf\" to the very same network printer, it has resulted as a way to go.\nTheir print jobs come as a complete package, because they practically print one and only one file to the printer, and not multiple print jobs.\n\nThis way, the client\'s packages of reports are no longer mixed up, and it seems that it is the solution we need.  There are minor details to fix now, and that is speeding up the process, by allowing the users to skip the pdf encryption which takes some seconds to be done.  If we skip the encryption of this single pdf file, then the time needed to create the file Combined.pdf, is the same as sending the printouts directly to the printer.\n\nThe PDF995 is part of our application. We have built our application based on the PDF995 abilities.  It\'s up to our clients to avoid having the splash screens (popups), by purchasing their licenses for 9.95$ each PC.\nNot a big deal I guess, and it helps us create the \"package\" of reports, name it to any name we want when done, and attach it to emails.\n\nThanks again.\nThis is why I like Fivewin programming... There will always be someone to be on our side when we need help.\n\nGreetings from Corinth Greece\n\nEvans Bartzokas','',0,'AIA=','3tz57xkv',1,0,'',455,0,0),(13072,2972,3,6,0,'87.1.232.99',1147370542,1,0,1,1,1,1,'','','[quote=&quot;E. Bartzokas&quot;:15cotqpb]The way our program is structured, it\'s really hard to allow for room to leave a PRINT job open, or a REPORT open... the reason is simple...\nMany of our print jobs and reports, might be printed (if it\'s time to print them), or not printed, thus we need a big PRINT - ENDPRINT, and to be honest with you, sometimes it\'s hard to know where a print package ends.[/quote:15cotqpb]\n\nCan\'t you just remove any PRINT/ENDPRINT (even those inside the classes) and issue it manually at the very start and very end of your printing PRG?\n\nEMG','',0,'gA==','15cotqpb',1,0,'',6,0,0),(13073,2972,3,303,0,'72.199.41.171',1147371230,1,0,1,1,1,0,'','','Evans,\n\nGlad to hear the PDFs are working for you. In your situation that does seem like the better solution.\n\nThe discussion has forced to me think about the issue, and I can now see a solution to some of the multiple report previewing problems I was having. I was just doing multiple previews (somewhat annoying), but now I can force them all into one preview. Thanks for that.\n\nSorry to hear about your wife\'s health issues. I hope she is improving. I guess it is a good excuse to travel by cruise ship--nice and relaxing.\n\nSay \"Hi,\" to Chris and Boris for me.\n\nRegards,\nJames','',0,'gA==','2eipj55g',1,0,'',303,0,0),(13074,3003,17,2,0,'87.218.146.78',1147371702,1,0,1,1,1,1,'','xHB dummy ActiveX.lib','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d7a0b682/ActiveX.lib.html\">http://hyperupload.com/download/02d7a0b ... X.lib.html</a><!-- m -->','',0,'gA==','2ev285qs',1,0,'',2,0,0),(13075,2991,3,2,0,'87.218.146.78',1147371760,1,0,1,1,1,1,'','','Gale,\n\nPlease use this ActiveX.lib:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3003\">http://fivetechsoft.com/forums/viewtopic.php?t=3003</a><!-- m -->\ninstead of the one provided with xHB.','',0,'gA==','1fp3tle6',1,0,'',2,0,0),(13076,2997,4,2,0,'87.218.146.78',1147372716,1,0,1,1,1,1,'','','Maurizio,\n\nInstead of:\n[code:d49zyfh7]\nPUSHBUTTON &quot;Test&quot;, 103, 89, 12, 37, 29 \n[/code:d49zyfh7]\nYou should use\n[code:d49zyfh7]\n   CONTROL &quot;&quot;, 103, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 89, 12, 37, 29 \n[/code:d49zyfh7]','',0,'AIA=','d49zyfh7',1,0,'',2,0,0),(13077,2991,3,343,0,'204.57.111.194',1147372801,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:oum6n42l]Gale,\n\nPlease use this ActiveX.lib:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3003\">http://fivetechsoft.com/forums/viewtopic.php?t=3003</a><!-- m -->\ninstead of the one provided with xHB.[/quote:oum6n42l]\n\nI renamed c:\\xhb\\lib\\activex.lib\nI downloaded activex.lib\n\nNow I get a unresolved external symbal _hb_fun_tactivex','',0,'gA==','oum6n42l',1,0,'',343,0,0),(13078,2991,3,2,0,'87.218.146.78',1147372919,1,0,1,1,1,1,'','','Gale,\n\nTActiveX is provided in FiveHMX.lib. Have you rebuilt it ?','',0,'gA==','3d1c2u11',1,0,'',2,0,0),(13079,2991,3,2,0,'87.218.146.78',1147373106,1,0,1,1,1,1,'','','Gale,\n\nPlease use FiveHMX.lib, the one we provide, without rebuild it.','',0,'gA==','1mkv6trk',1,0,'',2,0,0),(13080,2991,3,343,0,'204.57.111.194',1147373727,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2ldjm958]Gale,\n\nPlease use FiveHMX.lib, the one we provide, without rebuild it.[/quote:2ldjm958]\n\nI added fwh\\source\\classes\\activex.prg to fivehmx.lib.xbp\nAfter rebuilding FiveHMX.lib the sample works fine.','',0,'gA==','2ldjm958',1,0,'',343,0,0),(13081,2972,3,455,0,'195.97.105.161',1147375045,1,0,1,1,1,0,'','','James,\nYou can have multiple previews with FWH, if you change slightly the RPREVIEW.PRG.\n\nMore or less, you need to know:\n1. If a preview is running already, and if so, you should append to the array of files in the preview, and,\n2. Add to oPrvDevice the files that were created.\n\nThe \"catch\" here, is that unfortunatelly, you cannot display landscape and prortait nicely at the same time &lt;g&gt;\n\nHere\'s more or less the code...\n[code:3n9rxbjb]\n   if ! lMultiRep \n      &#46;&#46;&#46;  code for non-multiple document preview\n\n   else\n              oWnd&#58;SetFocus&#40;&#41;\n              aPrvFiles     &#58;= aClone&#40;aMultiPage&#41;\n              oPrvDevice    &#58;= aClone&#40;aMultiPage&#41;\n              oDevice&#58;aMeta &#58;= aClone&#40;aMultiPage&#41;\n              oWnd&#58;cargo    &#58;= oDevice\n              nPage &#58;= -1  // The function TopPage&#40;&#41; will fix the number !  \n              TopPage&#40;&#41;\n              PaintMeta&#40;&#41;\n              oPage&#58;SetText&#40;TXT_PAGENUM+ltrim&#40;str&#40;nPage,4,0&#41;&#41;+&quot; / &quot;+ltrim&#40;str&#40;len&#40;aPrvFiles&#41;&#41;&#41;&#41;\n              // ? \'DEBUG line 188\', \'New Pages added to multiple preview\'\n              Return NIL\n[/code:3n9rxbjb]\n\naMultipage holds an array of the files created per each preview, and of course, you\'d need to modify the numbering of the created .EMF\'s.\n\nIf you need more code, I\'m here.\n\nAdobe reader is much smarter of course... it can display and print correctly, both landscape and portait pages... \n\n-On the personal level...\nMy wife has the Lupus disease.  This is a life-time problem which we fight with chemotherapies, madicines, etc.  Unfortunately, it\'s going to be like this for the rest of her life... No travelling for many hours.\nIt\'s Ok to travel by car, if we make frequent stops, eg every couple of hundred of Km\'s.... So be it... Life is a bitch sometimes...\n\nKind regards\nEvans','',0,'AIA=','3n9rxbjb',1,0,'',455,0,0),(13082,2972,3,455,0,'195.97.105.161',1147375313,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:xvt9g0ia]\nCan\'t you just remove any PRINT/ENDPRINT (even those inside the classes) and issue it manually at the very start and very end of your printing PRG?\n\nEMG[/quote:xvt9g0ia]\nEnrico,\nSorry but I didn\'t see your reply earlier... Indeed, we could take out the PRINT/ENDPRINT from inside the classes, but it\'s more complicated, because some of the print jobs, are printed individually (see my message to James Bott).... \nI wish there was another way of spooling everything, even to suspend the printer\'s printing untill all of my print jobs are done, but even so, when the printer driver starts printing again, it will still send individual print jobs to the printer...\n\nThanks again and my best regards to bella Italia\nEvans','',0,'gA==','xvt9g0ia',1,0,'',455,0,0),(13083,2972,3,6,0,'87.1.232.99',1147376318,1,0,1,1,1,1,'','','[quote=&quot;E. Bartzokas&quot;:2v6g3c2h]Thanks again and my best regards to bella Italia[/quote:2v6g3c2h]\n\nAs far as I know, Greece is not less \"bella\". <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','2v6g3c2h',1,0,'',6,0,0),(13084,2972,3,303,0,'72.199.41.171',1147376611,1,0,1,1,1,0,'','','Evans,\n\n&gt;You can have multiple previews with FWH, if you change slightly the RPREVIEW.PRG. \n\nThanks for the tip. I am going to look into it.\n\n&gt;Adobe reader is much smarter of course... it can display and print correctly, both landscape and portait pages...\n\nAnother good point I hadn\'t thought of.\n\n&gt;My wife has the Lupus disease.\n\nAh, yes, I know about Lupus. A nasty disease. My empathies.\n\n&gt;It\'s Ok to travel by car, if we make frequent stops, eg every couple of hundred of Km\'s....\n\nWe have a motor home. It makes long trips much more bearable.  \n\n&gt;So be it... Life is a bitch sometimes...\n\nThank goodness sometimes it isn\'t too!\n\n&gt;Enrico, \n&gt;Sorry but I didn\'t see your reply earlier... Indeed, we could take out the \n&gt;PRINT/ENDPRINT from inside the classes, but it\'s more complicated, \n&gt;because some of the print jobs, are printed individually \n\nStill you could deal with that by either modifying the class so you could set a flag to call endprint or just calling it separately when you print only one report like this:\n\n[code:3f11g5w2]PRINT\n   report1&#40;&#41;\n   report2&#40;&#41;\n   report3&#40;&#41;\nENDPRINT\n\nOr,\n\nPRINT\n   report2&#40;&#41;\nENDPRINT[/code:3f11g5w2]\n\nHowever, your PDF solution may be simpler for your situation\n\nJames','',0,'AIA=','3f11g5w2',1,0,'',303,0,0),(13085,3001,3,2,0,'87.218.146.78',1147377180,1,0,1,1,1,1,'','','Gale,\n\nFixed. Thanks!','',0,'AIA=','2byr60k0',1,0,'',2,0,0),(13086,1601,4,240,0,'85.201.103.52',1147378016,1,0,1,1,1,1,'','','Hello Antonio,\n\nAny idea on when this feature will be available in windows?\nA question of days, weeks, months?\n\nIf it takes too long, is it possible to implement the \"NOSYSMENU\" style?\nOr to disable the \"X\"?\n\nMany thanks,\nRaymond','',0,'AIA=','2p85g090',1,0,'',240,0,0),(13087,3004,6,203,0,'200.107.2.202',1147378785,1,0,1,1,1,1,'','TSBROWSE vs CDX','Hola amigos del Foro\n\nEstuve tebajando con Tsbwrose y Ntx normalmente , pero a raiz de cambiarme a cdx EL INDICE que utilizo en en una de las columnas con lSeek ya no me funciona no se que puede pasar, si aluguno d ustedes me ayuda gracias..\n\n es parte del código\n\nREDEFINE COLUMN BROWSE oBrwp  ALIAS \"BODEGA\" ID 15 OF oDlgperb  CELLED;\nON DBLCLICK ( lOk := .T., odlgperb:End() ) \n\nADD COLUMN TO oBrwp;\n    HEADER \"Descripci¢n\" ;\n    SIZE 150 ;\n    DATA FieldWBlock( \"in_dsc\", Select() ) ;\n    ALIGN DT_LEFT, DT_CENTER ;\n    3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n    order \"2\"\n\nSaludos\n\n\nOscar','',0,'AIA=','2bvie2h6',1,0,'',203,0,0),(13088,3004,6,203,0,'200.107.2.192',1147379558,1,0,1,1,1,1,'','','Listo Amigos me faltaba el ALIAS que no necesitaba con NTX\n\n\nGracias','',0,'AIA=','o1dyck0w',1,0,'',203,0,0),(13089,3005,2,568,0,'200.121.64.61',1147379871,1,0,0,0,1,0,'','Como cierro el TAG de un indice','Por favor, alguien me puede indicar como cierro un TAG en un archivo indice...\n\nLo que sucede es que uso un archivo CDX temporal el cual me sirve para varias indexaciones y deseo eliminar o cerrar el TAG inicial','',0,'AIA=','1fmp6i3n',1,0,'',568,0,0),(13090,3006,6,124,0,'200.117.34.253',1147383275,1,0,1,1,1,0,'','PROBLEMA PARA DEFINIR UN BLOQUE DE CODIGO','Amigos:\n\nla siguiente línea de código me da un problema de excepcion en harbour ( fivewin 2.7x , borland C5++ )\n\ndummy1 := \'codigocli\'\ndummy2 :=  {||\'11111111\'+\'222222222\'+\'3222222222\'+\'4444444444\'+\'555555555\'+\'6\'}\nPRIVATE &amp;dummy1 := &amp;dummy2\n\nsi sacamos uno de los \"+\" funciona, es decir parece haber un límite en la cantidad de concatenaciones que pude haber en harbour dentro de la defincion de un bloque. Esto en clipper está corriendo perfectamente.\n\nAlguna idea?\n\nDesde ya mil gracias.\n\nRicardo Bécares\nRosario \nArgentina.','',0,'AIA=','3kg6ur59',1,0,'',124,0,0),(13091,3002,6,41,0,'200.87.67.10',1147384841,1,0,1,1,1,0,'','','Manuel,\n\ngracias, pero tu ejemplo no funciona aqui, seguro mi problema es la version de FWH que estoy utilizando, la mia es la version 2.6 de abril de 2005.\n\nBueno ni modo, vere que puedo encontrar en el codigo fuente\n\ngracias\n\nMarcelo\n\n[quote=&quot;Manuel Valdenebro&quot;:2fdouf9x]Marcelo,\nEl siguiente código lo he probado y funciona perfectamente. A medida que voy escribiendo el GET simultaneamente me dice en el SAY cuantos caracteres quedan. Si a tí no te funciona, tienes que cambiar la clase TGET:\n\n\n@ 0.8, 1.0 SAY \"TITULAR 1:\"\n@ 1.0, 8.0 GET oGet1 VAR cNombre OF oDlg  ;\n              ON CHANGE (cLen := STR (300-LEN(ALLTRIM(cNombre))),  ;   oDlg:UPDATE())\n              \n@ 2.0, 1.0 SAY cLen OF oDlg SIZE 40,10 UPDATE[/quote:2fdouf9x]','',0,'gA==','2fdouf9x',1,0,'',41,0,0),(13092,2995,6,436,0,'200.45.229.111',1147386931,1,0,1,1,1,0,'','','OK Gracias Patricio, lo probé y aparentemente así funciona.\nPero no hay alguna otra forma que defina automáticamente los Fields?\nCuál es la última versión que hay de TDbf? la que yo tengo tuvo su últ. actualización el 12/03/2003 (según el arch. historia.txt que lo acompaña).\nBueno.... cualquier sugerencia es bienvenida.\n\nSaludos. Iván','',0,'gA==','99wpvrr6',1,0,'',436,0,0),(13093,2862,1,303,0,'72.199.41.171',1147388730,1,0,1,1,1,0,'','','Rajeev,\n\n[quote:1d1luiwn]Thanks for the program supplied for downloading the info from web page.When I ran that program I got the info displayed in a window.When I clicked the close button of the window I got following error message \"Error BASE/1209 String Overflow: + from Errorsys,line:0\".Pls advice how to overcome this problem.Is it occuring because info is more than 65K . I have noticed the CSV file size is between 65K-68K.If this is the case pls advice how to overcome this. [/quote:1d1luiwn]\n\nWell, the best answer is like Antonio says, upgrade to 32bit. You are going to have to do this sooner or later.\n\nOtherwise, you can try processing the data one line at a time and saving it to a file, instead of pasting it all together into one large string. Oh, and you don\'t need to display the data, I just put that in there for testing.\n\nTake a look at the TTxtFile class for ideas how to write the data to a file as it is being read.\n\nI\'m glad you have been paying it forward.\n\nJames','',0,'gA==','1d1luiwn',1,0,'',303,0,0),(13094,2980,6,138,0,'201.152.98.24',1147390155,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:33ur4kkk]René:\n\nComo siempre, breve pero sustancioso !\ny que dejaste para el curso sobre CGI ? <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nSaludos, Armando[/quote:33ur4kkk]\n\nJejeje, te dije el [b:33ur4kkk]QUE HACE[/b:33ur4kkk]....\n\nel [b:33ur4kkk]COMO LO HACE[/b:33ur4kkk].... aaaahh esa es otra historia  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->\n\nSi no nadie viene al curso ....','',0,'wA==','33ur4kkk',1,0,'',138,0,0),(13095,2835,20,49,0,'82.53.119.247',1147394569,1,0,1,1,1,1,'','','OK\nRritornando alle linee del roadbook vorrei sapere come posso disegnare\nun BMP ad una certa posizione cioè se guardi questa figura puoi capire \n\n[url=http&#58;//img118&#46;imageshack&#46;us/my&#46;php?image=provarb8rs&#46;jpg:1uhznzow][img:1uhznzow]http&#58;//img118&#46;imageshack&#46;us/img118/7703/provarb8rs&#46;th&#46;jpg[/img:1uhznzow][/url:1uhznzow]\n\nOvviamente ho disegnato come vorrei costruirlo\n\nSopra c\'è un MEMO e va bene dove inseriro il titolo del roadbook ed altre informazioni tecniche\n \nSotto c\'è la prima linea del roadbook a sinistra i km totali e parziali \nin mezzo il bmp dove posso inserire i simbolini  e a destra altri get \n\nCome posso fare per disegnare un rettangolo nero in una Wndchild ?\nper i get ok ma non riesco ad inserire il bmp nel mezzo\nho provato a vedere con la clusola design dove si collocava ma mi si crea grandissimo \nio ho fatto cosi :\n [code:1uhznzow]function NuovoRB&#40;&#41;\n\n   local oWndChild, oBar, oBmp\n\n   LOCAL KMTotali,KMParziali,Titolo,Note1,Note2\n   LOCAL oGet1\n\n   DEFINE WINDOW oWndChild MDICHILD COLOR &quot;N/W&quot;  of    oWnd;\n   title &quot;Nuovo RoadBook&quot;\n\n   DEFINE BUTTONBAR oBar 3D SIZE 25, 25 OF oWndChild\n\n   DEFINE BUTTON OF oBar ACTION PutLabel&#40; oBmp &#41; TOOLTIP &quot;Testo&quot;\n   DEFINE BUTTON OF oBar ACTION PutBitmap&#40; oBmp &#41; TOOLTIP &quot;Simboli&quot;\n   DEFINE BUTTON OF oBar ACTION PreView&#40; oBmp &#41; TOOLTIP &quot;Anteprima di stampa&quot;\n\n\n\n\n    // titolo\n   @ 2,0 get oGet1 VAR Note1 MEMO SIZE 700, 100 OF oWndChild\n\n\n   //Linea\n   @ 10,2 say &quot;KM TOTALI&quot;   SIZE 80, 50 OF oWndChild\n   @ 14,2 say &quot;KM PARZIALI&quot; SIZE 80, 50   OF oWndChild\n\n   @ 10,10 get oGet2 VAR KMTotali SIZE 80, 50  OF oWndChild\n   @ 14,10 get oGet2 VAR KMParziali SIZE 80, 50 OF oWndChild\n\n   @ 10,20 BITMAP oBmp SIZE 200, 100  OF oWndChild   \n\n   oBmp&#58;bPainted = &#123; | hDC | DrawSections&#40; hDC &#41; &#125;\n\n  * oBmp&#58;oHScroll&#58;SetRange&#40; 1, 1200 &#41;\n  * oBmp&#58;oHScroll&#58;nPgStep = 20\n\n   oWndChild&#58;SetControl&#40; oBmp &#41;\n\n   ACTIVATE WINDOW oWndChild[/code:1uhznzow]\n\n[b:1uhznzow]@ 10,20 BITMAP oBmp SIZE 200, 100  OF oWndChild   [/b:1uhznzow] \nquesta bmp mi si crea grandissima come mai \' io la volevo al massimo 200x100 : tieni presente che io in questa bmp ci metto i simbolini ecco cosa mi serve quindi deve essere bianca con un rettangolo giallo intorno per delimitare ilperimetro dove inserire i simbolini\n\n\n\n\nPoi con questa funzione dovrei costruire il perimetro che ti ho detto pocanzi ma davvero non capisco a quali coordinate si riferisce il fillrect ...\nmi dai una dritta per favore?\n\n[code:1uhznzow]function DrawSections&#40; hDC &#41;\n\n   local oBrWhite, oBrCyan\n\n   DEFINE BRUSH oBrWhite COLOR CLR_WHITE\n   DEFINE BRUSH oBrCyan  COLOR CLR_YELLOW\n\n  * FillRect&#40; hDC, &#123;   10, 20, 100, 641 &#125;, oBrWhite&#58;hBrush &#41;\n   *FillRect&#40; hDC, &#123; 100, 50, 150, 641 &#125;, oBrCyan&#58;hBrush &#41;\n  * FillRect&#40; hDC, &#123; 150, 0, 200, 641 &#125;, oBrWhite&#58;hBrush &#41;\n\n   oBrWhite&#58;End&#40;&#41;\n   oBrCyan&#58;End&#40;&#41;\n[/code:1uhznzow]','',0,'WIA=','1uhznzow',1,0,'',49,0,0),(13096,2999,3,15,0,'203.73.69.187',1147403462,1,0,1,1,1,0,'','','Hello\n\nOk. I will try it again.\nI think problem maybe config value.\n\nThank you so much\n\nRegards,\n\nRichard','',0,'WIA=','3oongtnh',1,0,'',15,0,0),(13097,3003,17,15,0,'203.73.69.187',1147403651,1,0,1,1,1,0,'','','Hello Antonio,\n\nMay I use this LIB file?\nI use xHarbour 0.99.61+FWH26 SEP version and BCC55\n\nRichard','',0,'WIA=','17y2a64m',1,0,'',15,0,0),(13098,3002,6,9,0,'80.103.166.81',1147410544,1,0,1,1,1,1,'','','Marcelo,\n\nSi el código anterior no funciona, estoy casi seguro, que el problema está en la clase TGET. Yo lo tuve hace tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate():\n\nMETHOD EditUpdate() CLASS TGet\n\n   if ::oGet:HasFocus\n      ::DispText()\n      [b:3kjijdsc]::oGet:Assign()  //LKM actualiza buffer actual[/b:3kjijdsc]\n   endif\n\n   ::SetPos( ::oGet:Pos )\n\nreturn nil','',0,'QA==','3kjijdsc',1,0,'',9,0,0),(13099,1601,4,89,0,'213.21.136.60',1147415094,1,0,1,1,1,0,'','','This is a sample for disable \"X\"\n\n[url=http&#58;//imageshack&#46;us:csy2kotz][img:csy2kotz]http&#58;//img197&#46;imageshack&#46;us/img197/3543/noexit6ld&#46;gif[/img:csy2kotz][/url:csy2kotz]\n\n\n#include \"FWCE.ch\"\n\n#DEFINE TRUE     .T.\n#DEFINE FALSE    .F.\n\n#define SHFS_SHOWTASKBAR        1 //    0x0001\n#define SHFS_HIDETASKBAR        2 //    0x0002  //2\n#define SHFS_SHOWSIPBUTTON      4 //    0x0004\n#define SHFS_HIDESIPBUTTON      8 //    0x0008  //8\n#define SHFS_SHOWSTARTICON     16 //    0x0010\n#define SHFS_HIDESTARTICON     20 //    0x0020   //32\n\n\n//----------------------------------------------------------------------------//\nfunction Main()\n\n  Local  oSay ,oBmp ,oWnd\n  DEFINE WINDOW oWnd //TITLE \"Risto 2000\"\n\n  @ 14.6,28.5 BUTTON oBmp PROMPT \"EXIT\" ;\n      ACTION oWnd:End() SIZE 60, 20\n\n  @ 0, 0 BTNBMP FILE CurDir() + \"\\RistoCe.bmp\" SIZE 240,320\n\n 	ShFullScreen(oWnd:hwnd,SHFS_HIDESTARTICON )\n 	ShFullScreen(oWnd:hwnd,SHFS_HIDETASKBAR  )\n 	ShFullScreen(oWnd:hwnd,SHFS_HIDESIPBUTTON )\n\n   ACTIVATE WINDOW oWnd   ON INIT MoveWindow(oWnd:hWnd,0,0,240,320)\n\nreturn .T.','',0,'GA==','csy2kotz',1,0,'',89,0,0),(13100,2862,1,550,0,'219.91.208.184',1147415942,1,0,1,1,1,0,'','','Hi Jeff\nWill do as suggested by you.I am really getting confused should I go for Harbor or xHarbor ? Pls advice\nThanks\nRajeev Chavan','',0,'GA==','xagc8l9h',1,0,'',550,0,0),(13101,2835,20,6,0,'82.59.188.141',1147416112,1,0,1,1,1,1,'','','Ti posso aiutare solo se:\n\n1. Mi sottoponi un problema alla volta e me lo descrivi in modo sintetico e preciso.\n\n2. Prepari un esempio minimale che lo mostri e che io possa poi restituirti corretto e funzionante.\n\nEMG','',0,'GA==','14ybmjam',1,0,'',6,0,0),(13102,3007,6,81,0,'80.28.244.140',1147419134,1,0,1,1,1,0,'','CVS Cambios','Bueno esto ha dejado Phil en la lista de harbour.\nAlguien sabe como configurar el tortoise cvs con estos cambios??\nSaludos\n\n==============================================\nSubject: SUBJECT: SourceForge.net: CVS service offering changes\nDate: Thursday 11 May 2006 19:12\nFrom: \"SourceForge.net Team\" &lt;noreply@sourceforge.net&gt;\n\nGreetings,\n\nYou are receiving this mail because you are a project admin for\na SourceForge.net-hosted project. One of our primary services,\nCVS, suffered a series of interrelated, critical hardware failures\nin recent weeks. We understand how frustrating this CVS outage\nmust be to you and your users; however, our top priority remains\npreservation of the integrity of your data.\n\nThe series of CVS hardware failures prompted us to expedite the\ndeployment of planed improvements to our CVS infrastructure,\ndrawing upon much of the knowledge that we gained from our\nSubversion deployment. Our improved CVS service architecture,\nwhich we plan to deploy tomorrow afternoon (2006-05-12), will\noffer greater performance and stability and will eliminate several\nsingle points of failure.\n\nThe Site Status page (<!-- m --><a class=\"postlink\" href=\"https://www.sf.net/docs/A04\">https://www.sf.net/docs/A04</a><!-- m -->) will be\nupdated as soon as the new infrastructure is rolled out. In the\ninterim, please read the important information provided below\nto learn about how these changes will affect your project.\n\n\nSummary of changes, effective 2006-05-12:\n\n\n1. Hostname for CVS service\n\nOld: cvs.sourceforge.net\n\nNew: PROJECT_UNIX_NAME.cvs.sourceforge.net\n\nThis change will require new working copies to be checked out of all\nrepositories (so control files in the working copy will point to the\nright place). We will be updating the instructions we supply, but\ninstructions that your team has written within documentation, etc. will\nneed to be updated.\n\ncvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/gaim co gaim\n\nwould be changed to\n\ncvs -d:pserver:anonymous@gaim.cvs.sourceforge.net:/cvsroot/gaim co gaim\n\n\n\n2. ViewCVS\n\nWe are moving from ViewCVS to its successor, ViewVC. ViewVC is\ncurrently in use for our Subversion service.\n\n\n\n3. Sync delay\n\nOld: CVS pserver, tarballs and ViewCVS provided against a separate\nserver which is a minimum of three hours behind developer CVS.\n\nNew: ViewVC will be provided against developer CVS (it will be current).\nCVS pserver will be provided against a secondary server (not developer\nserver) with a maximum expected delay of two hours.\n\nFollow-up work is planned (this infrastructure takes us 80% of the way)\nto essentially eliminate the sync delay.\n\n\n\n4. Read-only rsync service\n\nAs a new service offering, we are now providing read-only rsync access\nagainst developer CVS. This allows projects to efficiently make\non-demand backups of their entire CVS repository.\n\nAll projects should be making regular backups of their CVS repository\ncontents using this service.\n\n\n\n5. Nightly tarball service\n\nNightly tarball service is being dropped in lieu of read-only rsync\nservice. Projects which currently depend on nightly tarballs for\nrepository backups will need to begin using rsync to make a backup copy\nof their repository contents.\n\nWe see this as a major functional improvement. For a number of reasons,\ntarballs have fallen out of sync with the data in the repository at\ntimes in the past few years. Tarballs required a substantial amount of\nadditional disk, and I/O to generate. The move to read-only rsync\nallows backups to be produced on-demand, with an update frequency chosen\nby the project.\n\n\n\n6. Points of failure\n\nIn the past, developer CVS service for all projects was provided from a\nsingle host. CVS pserver service was provided from individual backend\nheads based on a split of the data.\n\nUnder our new design, developer CVS and most of our CVS-related services\nare provided from one of ten CVS hosts (count subject to increase with\ngrowth). Each host is independent, and makes a backup copy of the\nrepository data of another host (which is used to provide the pserver\nCVS service).\n\nFailure of a single host will impact only the availability of data on\nthat host. Since the data is split among a larger number of hosts, the\nsize of data impacted by an individual host outage is substantially\nsmaller, and the time required for us to restore service will be\nsubstantially shorter.\n\nThis rapid architecture change has been made possible specifically using\nthe research we performed for our recent launch of Subversion service.\nWe\'ve applied our best practices, produced a substantial amount of\ninternal documentation, and kept an eye toward maintainability.\nThis effort has allowed us to deploy this new architecture quickly\nonce hardware was received, and will permit us to quickly scale\nthis service horizontally as growth and demand requires.\n\n\n\nMany other minor improvements have also been made to improve the service\noffering and make it less trouble-prone. The most important of which are\nlisted above. For a full description of the new service offering, and\nfor information on how to use the services described above, please refer\nto the site documentation for the CVS service after the service has been\nlaunched: <!-- m --><a class=\"postlink\" href=\"https://www.sf.net/docs/E04\">https://www.sf.net/docs/E04</a><!-- m -->\n\n\nThank you,','',0,'GA==','23o20qdl',1,0,'',81,0,0),(13103,3003,17,2,0,'87.218.146.222',1147420267,1,0,1,1,1,1,'','','Richard,\n\nIt is only needed for xHB (xharbour builder).','',0,'GA==','2i9i6wq6',1,0,'',2,0,0),(13104,2862,1,2,0,'87.218.146.222',1147420406,1,0,1,1,1,1,'','','Rajeev,\n\nxharbour is more popular, but both Harbour and xharbour work very well.\n\nIf you don\'t use xharbour extensions, then you may be able to build your application with both compilers and decide for yourself which one to use.','',0,'GA==','25h9zdhc',1,0,'',2,0,0),(13105,2835,20,49,0,'213.82.134.66',1147424635,1,0,1,1,1,1,'','','ok te lo preparo dopo xchè adesso sono a scuola.\npoi lo metto qui il test ?','',0,'GA==','3jkntm6t',1,0,'',49,0,0),(13106,2988,23,130,0,'141.51.32.24',1147425407,1,0,1,1,1,0,'','Re: Help for ROADBOOK','[quote=&quot;Silvio&quot;:3bya1z0s]I wanted create a roadbook as roadbook assistant 1.0 ( create in germany) \nSomeone can help me ?\n\nRegards[/quote:3bya1z0s]\n\nMay be, what do you need ?\n\nStefan','',0,'gA==','3bya1z0s',1,0,'',130,0,0),(13107,2835,20,6,0,'82.59.188.141',1147426770,1,0,1,1,1,1,'','','Sì (oppure lo mandi direttamente alla mia email, come ti pare), ma è essernziale che sia piccolo e compilabile altrimenti non credo che potrò dedicarmici. Sei tu che devi fare lo sforzo iniziale per ridurlo ai minimi termini.\n\nEMG','',0,'gA==','3nrgwi0n',1,0,'',6,0,0),(13108,2985,4,2,0,'87.218.146.222',1147427722,1,0,1,1,1,1,'','','Raymond,\n\nFirst of all, you have to create an import library from \"wdgps.dll\", in two steps:\n\n(impdef.exe is provided with free Borland C++, you may get it from <!-- m --><a class=\"postlink\" href=\"ftp://ftpd.borland.com/download/bcppbuilder/freecommandLinetools.exe\">ftp://ftpd.borland.com/download/bcppbui ... etools.exe</a><!-- m -->)\n\n1. impdef.exe wdgps.def wdgps.dll\n\nthat will create a wdgps.def file\n\n2. lib.exe /OUT:wdgps.lib /DEF:wdgps.def\n\nthat will create a wdgps.lib\n\nPlease try it and check if you get the lib file.','',0,'gA==','stv66bjd',1,0,'',2,0,0),(13109,2988,23,49,0,'213.82.134.66',1147428571,1,0,1,1,1,1,'','','I need to create in with fivewin because it not is on italian language and I cannot talk with the author\n\nI italy this roadbook is much different from germany because we use many our simbols.\n\nI can explain you\n\nI must create a program to create a roadbook page for Rallye \nTo understand my problem I can give You a picture \n\n\n[url=http&#58;//img278&#46;imageshack&#46;us/my&#46;php?image=esempioroadbook0da&#46;jpg:d1hmj91f][img:d1hmj91f]http&#58;//img278&#46;imageshack&#46;us/img278/4537/esempioroadbook0da&#46;th&#46;jpg[/img:d1hmj91f][/url:d1hmj91f]\n\nOn First column thereis the total ans partial km \nOn Second column there are some symbol and the direction to follow \nOn third column there are notes \n\nI  search  an small sample to develop \n\nif you can help You are greate','',0,'GA==','d1hmj91f',1,0,'',49,0,0),(13110,3008,6,533,0,'80.32.177.143',1147435742,1,0,1,1,1,0,'','Secuencias de Escape','Muy buenas foro:\n\n   Me gustaría saber cómo puedo enviar secuencias de escape hacia una impresora de tickets (ejecutar el corte de papel, cambiar cinta de color...). Ahora mismo me genero un programita pequeño en clipper y me funciona correctamente, pero me gustaría que alguien me indicase alguna manera de hacerlo directamente en fivewin for harbour.  Muchas gracias de antemano <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nP.D.: Agradecería si puede ser un código de ejemplo <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'GA==','kz7b1hak',1,0,'',533,0,0),(13111,1601,4,240,0,'85.201.104.194',1147435791,1,0,1,1,1,1,'','','Thank you Maurizio,','',0,'GA==','onxiyb5p',1,0,'',240,0,0),(13112,2985,4,240,0,'85.201.104.194',1147435956,1,0,1,1,1,1,'','','Thank you Antonio,\n\nI will do it','',0,'GA==','onnv6wox',1,0,'',240,0,0),(13113,3009,3,148,0,'196.205.178.155',1147436924,1,0,1,1,1,0,'','filtering combo box according to entered variable','I am filtering a combo box of cities related to the country and filtering the govereners according to cities entered but there is a value must be refreshed to make that filtering active in the recent run . The filter is active in the next run of the module. My question what is missing in my code to make the filtering affected in active run .\nHere is the code :\n\n\n[code:2m4zb09h]\n   cFilter &#58;=&quot;&quot;\n   @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n   @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;,cfilter&#41; size 110,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;oGet&#58;VarPut&#40;PADR&#40;v_co_cocmbo,30&#41;&#41;,oGet&#58;Refresh&#40;&#41;&#41;\n   @ 45,60 GET oGet VAR cu_coun OF oDlg PIXEL\n\n   cFilter &#58;=&quot;alltrim&#40;upper&#40;&quot;+&quot;cust-&gt;cu_coun&quot;+&quot; &#41;&#41;&quot; + \'==&quot;\' + alltrim&#40;upper&#40;cu_coun&#41;&#41; + \'&quot;\'\n\n\n\n\n   @ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL\n   @ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_city&quot;,cfilter&#41; size 110,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;oGet2&#58;VarPut&#40;PADR&#40;v_ci_cocmbo,30&#41;&#41;,oGet2&#58;Refresh&#40;&#41;&#41;\n   @ 60,60 GET oGet2 VAR cu_city OF oDlg PIXEL\n\n   cFilter &#58;=&quot;alltrim&#40;upper&#40;&quot;+&quot;cust-&gt;cu_city&quot;+&quot;&#41;&#41;&quot; + \'==&quot;\' + alltrim&#40;upper&#40;cu_city&#41;&#41; + \'&quot;\'\n   \n\n\n \n   @ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL\n   @ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_gove&quot;,cFilter&#41; size 110,80 ;\n   OF oDlg PIXEL;\n   ON CHANGE &#40;oGet3&#58;VarPut&#40;PADR&#40;v_go_cocmbo,30&#41;&#41;,oGet3&#58;Refresh&#40;&#41;&#41;\n   @ 75,60 GET oGet3 VAR cu_gove OF oDlg PIXEL\n\n\nFUNCTION aBase&#40;workarea,dbf_na,arr_size,fld_na,cFilter&#41;\n//-------------------------------------\nLOCAL arr&#58;=&#123;&#125;,nAreaActiv&#58;=Select&#40;&#41;\nLOCAL y&#58;=0\nlocal bFilter&#58;=&quot;&quot;\n\naAdd&#40;arr,space&#40;arr_size&#41;&#41; //Put First element empty\n\n\nselect &#40;workarea&#41;\nuse &#40;dbf_na&#41;\nSELE &#40;dbf_na&#41;\nDBGOTOP&#40;&#41;\n\nset filter to &amp;&#40;cFilter&#41;\nDBGOTOP&#40;&#41;\ngo top\n\n\nWHILE!Eof&#40;&#41;\n\n\ny&#58;=ASCAN&#40;arr,&#40;dbf_na&#41;-&gt;&amp;fld_na&#41;                      \nif y==0\naAdd&#40;arr,&#40;dbf_na&#41;-&gt;&amp;fld_na&#41;\ndbSkip&#40;&#41;\nelse\ndbSkip&#40;&#41;\nendif\nENDDO\n\nSELE &#40;nAreaActiv&#41;\n\nRETURN&#40;arr&#41;\n[/code:2m4zb09h]','',0,'AIA=','2m4zb09h',1,0,'',148,0,0),(13114,3009,3,6,0,'82.59.188.141',1147437491,1,0,1,1,1,1,'','Re: filtering combo box according to entered variable','Try using oCbx:SetItem() method.\n\nEMG','',0,'AIA=','2lqft4x4',1,0,'',6,0,0),(13115,3010,6,41,0,'200.87.67.10',1147442074,1,0,1,1,1,0,'','FW Report to XLS','Holas,\n\nhay alguna version de la Clase FW report que grabe el reporte en un archivo XLS?\n\nYo me puse hacer algi sencillo, esta en\n\n[url:2xl4isdy]http&#58;//hyperupload&#46;com/download/02409fd731/repxls&#46;zip&#46;html[/url:2xl4isdy]\n\nsi alguien tiene algo mas elaborado talvez lo pueda compartir.\n\nEsta transformacion de la clase report, crea un archivo temp.xls en el directorio de la aplicacion, claro que se puede hacer mil maravillas mas, falta aumentar al preview el boton para exportacion, etc, pero todo eso es sencillo, haber si sacamos algo entre todos.\n\nMe cuentan si prueban esta modificacion\n\nsaludos\n\nMarcelo','',0,'EA==','2xl4isdy',1,0,'',41,0,0),(13116,3011,3,264,0,'200.91.3.10',1147442242,1,0,1,1,1,0,'','Help with EPSON TM600 ( fiscal printer )','Need help with fiscal printer EPSON, i have dll\'s and OCX controls\nHas anybody work with this ?\nExamples or any.\n\nthanks.\n\n\n( spanish on ) \nNecesito ayuda con una impresora fiscal epcom TM6000 tengo los DLL\'s y OCX\'s, pero no se como usarlos\nAlguien ha trabajado con esto ?\nCualquier ejemplo es bienvenido\nGracias','',0,'EA==','2qx3pdi8',1,0,'',264,0,0),(13117,3012,6,264,0,'200.91.3.10',1147442275,1,0,1,1,1,0,'','Impresora Fiscal Epson TM6000','Necesito ayuda con una impresora fiscal epcom TM6000 tengo los DLL\'s y OCX\'s, pero no se como usarlos\nAlguien ha trabajado con esto ?\nCualquier ejemplo es bienvenido\nGracias','',0,'EA==','2iyvp1e2',1,0,'',264,0,0),(13118,3013,3,26,0,'84.255.245.173',1147443116,1,0,1,1,1,1,'','Border around focused line in browse?','Hello!\n\nHow to draw a box - border around \ncurrent/focused line in TWBrowse.\n\nThanks, Roman','',0,'EA==','1r4ivegb',1,0,'',26,0,0),(13119,3007,6,2,0,'87.218.146.240',1147448957,1,0,1,1,1,1,'','','Rafa,\n\nEn principio este cambio es sólo el importante, pero nosotros no usamos el tortoise sino el cvs.exe directamente:\n\ncvs -d:pserver:anonymous@cvs.sourceforge.net:/cvsroot/gaim co gaim \n\ncambiaría a:\n\ncvs -d:pserver:anonymous@gaim.cvs.sourceforge.net:/cvsroot/gaim co gaim','',0,'EA==','2a66s32o',1,0,'',2,0,0),(13120,3010,6,2,0,'87.218.146.240',1147449057,1,0,1,1,1,1,'','','Marcelo,\n\nGracias por tu aportación,','',0,'EA==','2jbrs7o9',1,0,'',2,0,0),(13121,2835,20,49,0,'62.13.172.78',1147449721,1,0,1,1,1,1,'','','MA LA CLASSE :TMetaFile() COME SI USA ?\ncioè io voglio creare un BMP oBMP con la metafile alla linea 14,30  e la dimensione deve essere 200x100 \nNon so mi crea un immagine grandiisima...\n\nvabbe faccio il test intanto','',0,'EA==','brhnspqq',1,0,'',49,0,0),(13122,3007,6,24,0,'80.37.55.44',1147450222,1,0,1,1,1,1,'','Re: CVS Cambios','[quote=&quot;rrgaona&quot;:gtu28g6q]Bueno esto ha dejado Phil en la lista de harbour.\nAlguien sabe como configurar el tortoise cvs con estos cambios??\nSaludos\n\n[/quote:gtu28g6q]\nRafa, mi consejo es que vuelvas a realizar un nuevo checkout y punto con el nuevo formato.\n\nEn el tortuise , tiene en cuenta los directorios CVS y de ahi extrae la informacion para ir haciendo UPDATES.\n\nTe sera mas sencillo, por experiencia, bajartelo de nuevo que intentar aprovechar el reposito antiguo en tu disco local.','',0,'gA==','gtu28g6q',1,0,'',24,0,0),(13123,3014,7,456,0,'217.127.39.57',1147450833,1,0,1,1,1,1,'','Boton de teclado virtual','Hola amigos, necesito hacer aparecer el boton del teclado virtual, os explico:\nHe creado un acceso directo a un programa (tutor 12), si lo ejecuto desde el file explorer, todo ok. Aparece abajo a la derecha el boton del teclado virtual.\n\n[url=http&#58;//imageshack&#46;us:2usjmy1w][img:2usjmy1w]http&#58;//img228&#46;imageshack&#46;us/img228/9973/uno8uz&#46;jpg[/img:2usjmy1w][/url:2usjmy1w][url=http&#58;//imageshack&#46;us:2usjmy1w][img:2usjmy1w]http&#58;//img129&#46;imageshack&#46;us/img129/774/dos3yk&#46;jpg[/img:2usjmy1w][/url:2usjmy1w]\n\nPero si ejectuto desde el menu start, no aparece el boton del teclado.\n [url=http&#58;//imageshack&#46;us:2usjmy1w][img:2usjmy1w]http&#58;//img129&#46;imageshack&#46;us/img129/7036/tres3ar&#46;jpg[/img:2usjmy1w][/url:2usjmy1w][url=http&#58;//imageshack&#46;us:2usjmy1w][img:2usjmy1w]http&#58;//img129&#46;imageshack&#46;us/img129/2835/cuatro7hv&#46;jpg[/img:2usjmy1w][/url:2usjmy1w]\n\nGracias anticipadas.','',0,'GA==','2usjmy1w',1,0,'',456,0,0),(13124,3013,3,303,0,'72.199.41.171',1147454027,1,0,1,1,1,0,'','','You can\'t.','',0,'GA==','2ya6ag9o',1,0,'',303,0,0),(13125,2691,4,2,0,'87.218.146.240',1147454339,1,0,1,1,1,1,'','','This is a sample:\n[code:3aqj1k6i]\n#include &quot;FWCE&#46;ch&quot;\n\n#define GENERIC_WRITE   0x40000000 \n#define OPEN_EXISTING   3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n\nfunction Main&#40;&#41;\n\n   local hComm &#58;= CreateFile&#40; &quot;COM1&#58;&quot;,; // change the number as needed \n                              GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL &#41;\n\n   // baud=1200 parity=N data=8 stop=1\n   MsgInfo&#40; SetComm&#40; hComm, 1200, &#46;f&#46;, 8, 1 &#41; &#41;\n\n   CloseHandle&#40; hComm &#41;\n   \nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; SETCOMM &#41;\n&#123;\n   DCB dcb;\n   \n   GetCommState&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &amp;dcb &#41;;\n   \n   dcb&#46;BaudRate = hb_parnl&#40; 2 &#41;;\n   dcb&#46;Parity = hb_parl&#40; 3 &#41;;\n   dcb&#46;ByteSize = hb_parnl&#40; 4 &#41;;\n   dcb&#46;StopBits = hb_parnl&#40; 5 &#41;;\n   \n   hb_retl&#40; SetCommState&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &amp;dcb &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP   \n[/code:3aqj1k6i]','',0,'AIA=','3aqj1k6i',1,0,'',2,0,0),(13126,3013,3,2,0,'87.218.146.240',1147454669,1,0,1,1,1,1,'','','Roman, James,\n\nClass TWBrowse Method Paint() can be easily modified to paint a dotted line or similar around the focused line.','',0,'AIA=','3n5z8a0k',1,0,'',2,0,0),(13127,2835,20,6,0,'82.59.188.141',1147457086,1,0,1,1,1,1,'','','Forse intendevi dire la classe TBitmap? Comunque ti sconsiglio di utilizzare classi per questo lavoro di \"rendering\" dei bitmap. Semplicemente disegnali alle giuste coordinate usando la funzione PalBmpDraw() all\'interno dell\'evento ON PAINT.\n\nEMG','',0,'AIA=','298opt48',1,0,'',6,0,0),(13128,2691,4,240,0,'85.201.104.194',1147457121,1,0,1,1,1,1,'','','Many thanks Antonio, \n\nI will try it tomorrow.\n\nBest Regards','',0,'AIA=','1f69tov4',1,0,'',240,0,0),(13129,2965,6,28,0,'87.218.47.114',1147459644,1,0,1,1,1,0,'','','this is the solution Silvio:\n\n[code:3eaj5wzl]\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;&#46;&#46;\\include\\vmenu&#46;ch&quot;\n#include &quot;splitter&#46;ch&quot;\n\nstatic oFont\n\nfunction main&#40;&#41;\n\nlocal oWnd\nlocal oMenu\n\nMENU oMenu\n   MENUITEM &quot;Nueva hija&quot; ACTION NuevaHija&#40; oWnd &#41;\nENDMENU\n\nDEFINE WINDOW oWnd TITLE &quot;Prueba de vTaskBar en MDI&quot; MDI MENU oMenu\n\nACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\n\nfunction NuevaHija&#40; oMadre &#41;\n\nlocal oWnd\n\nlocal oVMenu, oVMenu2, oItem, oVMenu3, oVMenu4\nlocal oSplit\n\n\n\nDEFINE FONT oFont NAME &quot;Ms Sans Serif&quot;  SIZE 0, -10 BOLD\n\nDEFINE WINDOW oWnd OF oMadre MDICHILD COLOR 0, CLR_GRAY\n\n\n\n   @ 10, 10 VMENU oVMenu SIZE 215, 151 OF oWnd ;\n            COLOR RGB&#40;86,102,45&#41;, RGB&#40;246,246,236&#41; ;\n            BORDER COLORBORDE CLR_WHITE ; //RGB&#40; 252, 252, 236&#41; ;\n            COLORSELECT 0 ;\n            UNDERLINE  ;\n            HEIGHT ITEM 25\n\n   DEFINE TITLE OF oVMenu ;\n          CAPTION &quot;Tareas de Red&quot; ;\n          HEIGHT 25 ;\n          COLOR RGB&#40;86,102,45&#41;, RGB&#40;252, 252, 236 &#41;, RGB&#40; 224, 231, 184 &#41; ;\n          CENTER RADIOSQUARE 4;\n          IMGBTN &quot;bmps\\upgreen&#46;bmp&quot;,&quot;bmps\\downgreen&#46;bmp&quot; ;\n          OPENCLOSE ;\n          FONT oFont ROUNDSQUARE\n\n       DEFINE VMENUITEM OF oVMenu           ;\n	  CAPTION &quot;Agregar un sitio de red&quot; ;\n          IMAGE &quot;bmps\\red&#46;bmp&quot; ACTION MsgInfo&#40; &quot;Primero&quot; &#41;\n\n       DEFINE VMENUITEM OF oVMenu           ;\n	  CAPTION &quot;Ver conexiones de red&quot; ;\n          IMAGE &quot;bmps\\verred&#46;bmp&quot; ACTION MsgInfo&#40; &quot;Segundo&quot; &#41;\n\n       DEFINE VMENUITEM OF oVMenu           ;\n	  CAPTION &quot;Configurar una red domestica o para oficina pequeña&quot; ;\n	  MULTILINE ;\n          IMAGE &quot;bmps\\casared&#46;bmp&quot; ACTION MsgInfo&#40; &quot;Tercero&quot; &#41;\n\n       DEFINE VMENUITEM OF oVMenu           ;\n	  CAPTION &quot;Ver equipos del grupo de trabajo&quot; ;\n          IMAGE &quot;bmps\\grupored&#46;bmp&quot; ACTION MsgInfo&#40; &quot;Cuarto&quot; &#41;\n\n\n  oVMenu2 &#58;= Menu&#40; oWnd, oVMenu,  171 &#41;\n  oVMenu3 &#58;= Menu&#40; oWnd, oVMenu2, 171 + 160 &#41;\n  oVMenu4 &#58;= Menu&#40; oWnd, oVMenu3, 171 + 160 + 160 &#41;\n\n\n  @ 0, 260 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS  oVMenu, oVMenu2;\n      SIZE 4, 1300 PIXEL ;\n      OF oWnd   UPDATE\n\n\nACTIVATE WINDOW oWnd MAXIMIZED ON INIT oVMenu2&#58;Switch&#40;&#41;\n\n\nreturn nil\n\n\nfunction menu&#40; oWnd, oVMenu, nTOp &#41;\n\nlocal oVMenu2\n\n   @ nTop, 10 VMENU oVMenu2 SIZE 215, 151 OF oWnd ;\n             COLOR RGB&#40;86,102,45&#41;, RGB&#40;246,246,236&#41; ;\n             BORDER COLORBORDE RGB&#40; 252, 252, 236&#41; ;\n             UNDERLINE  ;\n             COLORSELECT 0 ;\n             HEIGHT ITEM 25 ATTACH TO oVMenu\n\n   DEFINE TITLE OF oVMenu2 ;\n          CAPTION &quot;Otros sitios&quot; ;\n          HEIGHT 25 ;\n          COLOR RGB&#40;86,102,45&#41;, RGB&#40;252, 252, 236 &#41;, RGB&#40; 224, 231, 184 &#41; ;\n          CENTER RADIOSQUARE 4;\n          IMGBTN &quot;bmps\\upgreen&#46;bmp&quot;,&quot;bmps\\downgreen&#46;bmp&quot; ;\n          OPENCLOSE ;\n          FONT oFont ROUNDSQUARE\n\n       DEFINE VMENUITEM OF oVMenu2           ;\n	  CAPTION &quot;Escritorio&quot; ;\n          IMAGE &quot;bmps\\escritorio&#46;bmp&quot;\n\n       DEFINE VMENUITEM OF oVMenu           ;\n	  CAPTION &quot;Mi PC&quot; ;\n          IMAGE &quot;bmps\\mipc&#46;bmp&quot;\n\n       DEFINE VMENUITEM OF oVMenu2           ;\n	  CAPTION &quot;Mis Documentos&quot; ;\n          IMAGE &quot;bmps\\misdoc&#46;bmp&quot;\n\n       DEFINE VMENUITEM OF oVMenu2           ;\n	  CAPTION &quot;Documentos compartidos&quot; ;\n          IMAGE &quot;bmps\\shared&#46;bmp&quot;\n\n       DEFINE VMENUITEM OF oVMenu2           ;\n	  CAPTION &quot;Impresoras y faxes&quot; ;\n          IMAGE &quot;bmps\\imprefax&#46;bmp&quot;\n\nreturn oVMenu2\n\n[/code:3eaj5wzl]','',0,'AIA=','3eaj5wzl',1,0,'',28,0,0),(13130,3010,6,46,0,'217.168.114.216',1147462550,1,0,1,1,1,0,'','','Puedes ver esto\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/files/sources/repexcel.zip\">http://www.vikthor.com.mx/fivewin/files ... pexcel.zip</a><!-- m -->\n\nSalu2','',0,'AIA=','m0fpblkx',1,0,'',46,0,0),(13131,3013,3,303,0,'72.199.41.171',1147463262,1,0,1,1,1,0,'','','Antonio,\n\nWell, easy for you probably, but I remember spending quite some time trying to get it working without success. I think part of the problem was that the cells are kind of still 3d from the old days. There are actually two lines around each cell. Maybe one is drawn in the background color. I don\'t remember exactly, but there were issues.\n\nI\'d be happy if someone proved me wrong.\n\nJames','',0,'AIA=','euec0u1l',1,0,'',303,0,0),(13132,3015,3,284,0,'200.158.234.237',1147463266,1,0,1,0,1,0,'','Classes inheritance.  How to ?','Where can I find a tutorial and/or documentation about how to create and inherit FWH classes ?\nIs there one around ?\nI am triing to inherit a class from another because I need to add a method.\nI am getting an error that I don´t have if I use the original class.\nThe object seems not ot be created at all...\nThe code is something like this:\n  \nClass CL2 from CL1\n   METHOD PrintCl()\nENDCLASS\n\nMETHOD PrintCl() class CL2\n  alert(\"CL2\")\nreturn NIL\n \nQuestions:\nAl the CL1 methods are avaiable in CL2 ?\nDo I need a constructor/destructor method or the CL1 one is used ?\n\n[[]] Maurício Faria','',0,'','2tza99hx',1,0,'',284,0,0),(13133,3016,3,34,0,'68.4.154.81',1147465958,1,0,1,1,1,1,'','Disappearing text with themes','I have several clients who are running my theme aware package with backgrounds on the dialog, and they report that checkboxes lose the text when the OS is Win 2000.\n\nI don\'t have a win 2000 machine to check this but I\'m wondering if this can be confirmed and if there is a fix.\n\nTim  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'','1ao74zzw',1,0,'',34,0,0),(13134,3015,3,343,0,'204.57.111.194',1147467840,1,0,1,1,1,0,'','Re: Classes inheritance.  How to ?','[quote=&quot;concentra&quot;:1su26fex]Where can I find a tutorial and/or documentation about how to create and inherit FWH classes ?\nIs there one around ?\nI am triing to inherit a class from another because I need to add a method.\nI am getting an error that I don´t have if I use the original class.\nThe object seems not ot be created at all...\nThe code is something like this:\n  \nClass CL2 from CL1\n   METHOD PrintCl()\nENDCLASS\n\nMETHOD PrintCl() class CL2\n  alert(\"CL2\")\n\nreturn NIL\n \nQuestions:\nAl the CL1 methods are avaiable in CL2 ?\nDo I need a constructor/destructor method or the CL1 one is used ?\n\n[[]] Maurício Faria[/quote:1su26fex]\n\nDon\'t forget to add:\n\nCLASSDATA lRegistered AS LOGICAL','',0,'gA==','1su26fex',1,0,'',343,0,0),(13135,3017,3,264,0,'200.91.3.10',1147470636,1,0,1,1,1,0,'','from vb tu hb','any translation for MyField in fw+h ?\n\n** from VB\nDim MyField As String\nMyField = Chr$(&amp;h0A)\nMyEpsonFPControl.AddDataField MyField','',0,'gA==','3ti699oi',1,0,'',264,0,0),(13136,3018,6,264,0,'200.91.3.10',1147470747,1,0,1,1,1,0,'','Transformar desde VB a Hb ?','Como se traduce esta instruccion para la variable MyField en fw+h ?\n\n** from VB\nDim MyField As String\n[b:aui75e1n]MyField = Chr$(&amp;h0A)[/b:aui75e1n]\nMyEpsonFPControl.AddDataField MyField','',0,'QA==','aui75e1n',1,0,'',264,0,0),(13137,3010,6,41,0,'200.87.67.10',1147471425,1,0,1,1,1,0,'','','Sin duda una solucion mas elegante, gracias\n\n[quote=&quot;RenOmaS&quot;:ek0za728]Puedes ver esto\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/files/sources/repexcel.zip\">http://www.vikthor.com.mx/fivewin/files ... pexcel.zip</a><!-- m -->\n\nSalu2[/quote:ek0za728]','',0,'gA==','ek0za728',1,0,'',41,0,0),(13138,3017,3,6,0,'82.59.188.141',1147472664,1,0,1,1,1,1,'','Re: from vb tu hb','MyField = Chr(10)\n\nEMG','',0,'gA==','3vlbglq7',1,0,'',6,0,0),(13139,3015,3,6,0,'82.59.188.141',1147473042,1,0,1,1,1,1,'','Re: Classes inheritance.  How to ?','[quote=&quot;concentra&quot;:lm3v8q3z]Where can I find a tutorial and/or documentation about how to create and inherit FWH classes ?[/quote:lm3v8q3z]\n\nBest documentation is FWH source code.\n\n[quote=&quot;concentra&quot;:lm3v8q3z]I am triing to inherit a class from another because I need to add a method.\nI am getting an error that I don´t have if I use the original class.\nThe object seems not ot be created at all...\nThe code is something like this:\n  \nClass CL2 from CL1\n   METHOD PrintCl()\nENDCLASS\n\nMETHOD PrintCl() class CL2\n  alert(\"CL2\")\nreturn NIL[/quote:lm3v8q3z]\n\nCan you build a little real (compilable) sample of the problem?\n \n[quote=&quot;concentra&quot;:lm3v8q3z]Questions:\nAl the CL1 methods are avaiable in CL2 ?[/quote:lm3v8q3z]\n\nYes.\n\n[quote=&quot;concentra&quot;:lm3v8q3z]Do I need a constructor/destructor method or the CL1 one is used ?[/quote:lm3v8q3z]\n\nYes, you need of a constructor.\n\nEMG','',0,'gA==','lm3v8q3z',1,0,'',6,0,0),(13140,2835,20,49,0,'87.3.183.46',1147473048,1,0,1,1,1,1,'','','si ma Linares mi ha detto di creare un user control \nAnche a me mi sembra la soluzione giusta\nLinares inoltre mi ha detto di iniziare a disegnare  una linea del roadbook prendendo in esame il paint della classe Ttabs come riferimento\n\ncioè dovrei disegnare  questo inizialmente \n\n[url=http&#58;//imageshack&#46;us:1c2s2vhk][img:1c2s2vhk]http&#58;//img387&#46;imageshack&#46;us/img387/1993/linearoadb2ah&#46;png[/img:1c2s2vhk][/url:1c2s2vhk]\n\n\n\n\n\n\n\nil rettangolo mi sembra facile a crearlo ma poi davanti alla classe TTbs ovviamente rimodificata in Rbook mi perdo \nEppure devo solo fare un rettangolo diviso in tre parti \ninserire due prompt per i say,una bitmap al centro,e altri prompt per altri tre say\nquesto è il metodo Paint \n\n\n [code:1c2s2vhk]\nMETHOD Paint&#40;&#41; CLASS TTabs\n\n   local aInfo &#58;= &#58;&#58;DispBegin&#40;&#41;\n   local hDarkPen  &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_BTNSHADOW &#41; &#41;\n   local hGrayPen  &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_BTNFACE &#41; &#41;\n   local hLightPen &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_BTNHIGHLIGHT &#41; &#41;\n   local n, nCol &#58;= 5, nHeight &#58;= 15\n   local hOldFont, hOldBrush, hOldPen\n   local hDC &#58;= &#58;&#58;hDC\n   local hGrayBrush &#58;= CreateSolidBrush&#40; &#58;&#58;nClrPane &#41;\n   local hDarkBrush &#58;= CreateSolidBrush&#40; GetSysColor&#40; COLOR_INACTIVECAPTION &#41; &#41;\n   local lNeedButtons &#58;= &#46;f&#46;\n\n   if LargeFonts&#40;&#41;\n      nHeight += 3\n   endif\n\n   FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41;\n\n   hOldFont  = SelectObject&#40; hDC, &#58;&#58;oFont&#58;hFont &#41;\n   hOldPen   = SelectObject&#40; hDC, hDarkPen &#41;\n   hOldBrush = SelectObject&#40; hDC, hDarkBrush &#41;\n\n   MoveTo&#40; hDC, 0, 0 &#41;\n   LineTo&#40; hDC, &#58;&#58;nWidth&#40;&#41;, 0 &#41;\n\n   SetBlackPen&#40; hDC &#41;\n   MoveTo&#40; hDC, 0, 1 &#41;\n   LineTo&#40; hDC, &#58;&#58;nWidth&#40;&#41;, 1 &#41;\n\n   SetTextColor&#40; hDC, CLR_WHITE &#41;\n\n   if Len&#40; &#58;&#58;aSizes &#41; &lt; Len&#40; &#58;&#58;aPrompts &#41;\n      &#58;&#58;Default&#40;&#41;\n   endif\n\n   DEFAULT &#58;&#58;nOffset &#58;= 1\n\n   for n = &#58;&#58;nOffset to Len&#40; &#58;&#58;aPrompts &#41;\n\n      SelectObject&#40; hDC, If&#40; n == &#58;&#58;nOption, hGrayBrush, hDarkBrush &#41; &#41;\n      SetBlackPen&#40; hDC &#41;\n\n      if n == &#58;&#58;nOffset &#46;or&#46; n == &#58;&#58;nOption\n         PolyPolygon&#40; hDC, &#123; &#123; nCol, 1 &#125;,;\n                               &#123; nCol + 5, nHeight &#125;,;\n                               &#123; nCol + 9 + &#58;&#58;aSizes&#91; n &#93;, nHeight &#125;,;\n                               &#123; nCol + 14 + &#58;&#58;aSizes&#91; n &#93;, 1 &#125;,;\n                               &#123; nCol, 1 &#125; &#125; &#41;\n      else\n         PolyPolygon&#40; hDC, &#123; &#123; nCol + 2, 7 &#125;,;\n                               &#123; nCol + 5, nHeight &#125;,;\n                               &#123; nCol + 9 + &#58;&#58;aSizes&#91; n &#93;, nHeight &#125;,;\n                               &#123; nCol + 14 + &#58;&#58;aSizes&#91; n &#93;, 1 &#125;,;\n                               &#123; nCol + 4, 1 &#125;,;\n                               &#123; nCol + 2, 7 &#125; &#125; &#41;\n      endif\n\n      if n == &#58;&#58;nOption\n         SelectObject&#40; hDC, hGrayPen &#41;\n         MoveTo&#40; hDC, nCol, 0 &#41;\n         LineTo&#40; hDC, nCol + 14 + &#58;&#58;aSizes&#91; n &#93;, 0 &#41;\n         MoveTo&#40; hDC, nCol + 1, 1 &#41;\n         LineTo&#40; hDC, nCol + 14 + &#58;&#58;aSizes&#91; n &#93;, 1 &#41;\n\n         SelectObject&#40; hDC, hLightPen &#41;\n         MoveTo&#40; hDC, nCol + 1,  2 &#41;\n         LineTo&#40; hDC, nCol + 6, nHeight - 1 &#41;\n\n         SelectObject&#40; hDC, hDarkPen &#41;\n         LineTo&#40; hDC, nCol + &#58;&#58;aSizes&#91; n &#93; +  8, nHeight - 1 &#41;\n         LineTo&#40; hDC, nCol + &#58;&#58;aSizes&#91; n &#93; + 13,  0 &#41;\n\n         SetTextColor&#40; hDC, &#58;&#58;nClrText &#41;\n         SetBkColor&#40; hDC, &#58;&#58;nClrPane &#41;\n         DrawText&#40; hDC, &#58;&#58;aPrompts&#91; n &#93;,;\n                   &#123; 1, nCol + 4, 15, nCol + 5 + &#58;&#58;aSizes&#91; n &#93; + 5 &#125;,;\n                   nOr&#40; DT_CENTER, DT_VCENTER &#41; &#41;\n      else\n         SetTextColor&#40; hDC, GetSysColor&#40; COLOR_INACTIVECAPTIONTEXT &#41; &#41;\n         SetBkColor&#40; hDC, GetSysColor&#40; COLOR_INACTIVECAPTION &#41; &#41;\n         DrawText&#40; hDC, &#58;&#58;aPrompts&#91; n &#93;,;\n                   &#123; 2, nCol + 3, 19, nCol + 5 + &#58;&#58;aSizes&#91; n &#93; + 6 &#125;,;\n                   nOr&#40; DT_CENTER, DT_VCENTER &#41; &#41;\n      endif\n      nCol += &#58;&#58;aSizes&#91; n &#93; + 4 + 6\n\n      if &#40; nCol &#41; &gt; &#58;&#58;nWidth\n         lNeedButtons &#58;= &#46;t&#46;\n         exit\n      endif\n\n   next\n\n   if ! Empty&#40; &#58;&#58;oBtnLeft &#41;\n      if &#58;&#58;nOffset &gt; 1 &#46;or&#46; lNeedButtons\n         &#58;&#58;oBtnLeft&#58;Move&#40; 4, &#58;&#58;nWidth - 24, 11, 15, &#46;t&#46; &#41;\n         &#58;&#58;oBtnRight&#58;Move&#40; 4, &#58;&#58;nWidth - 25 + 12, 11, 15, &#46;t&#46; &#41;\n         &#58;&#58;oBtnLeft&#58;Show&#40;&#41;\n         &#58;&#58;oBtnRight&#58;Show&#40;&#41;\n         &#58;&#58;oBtnLeft&#58;Paint&#40;&#41;\n         &#58;&#58;oBtnRight&#58;Paint&#40;&#41;\n         if &#58;&#58;nOffset &gt; 1\n            &#58;&#58;oBtnLeft&#58;Enable&#40;&#41;\n         else\n            &#58;&#58;oBtnLeft&#58;Disable&#40;&#41;\n         endif\n         if ! lNeedButtons\n            &#58;&#58;oBtnRight&#58;Disable&#40;&#41;\n         else\n            &#58;&#58;oBtnRight&#58;Enable&#40;&#41;\n         endif\n      else\n         &#58;&#58;oBtnLeft&#58;Hide&#40;&#41;\n         &#58;&#58;oBtnRight&#58;Hide&#40;&#41;\n      endif\n   endif\n\n   SelectObject&#40; hDC, hOldPen &#41;\n   SelectObject&#40; hDC, hOldFont &#41;\n   SelectObject&#40; hDC, hOldBrush &#41;\n\n   DeleteObject&#40; hDarkPen &#41;\n   DeleteObject&#40; hGrayPen &#41;\n   DeleteObject&#40; hLightPen &#41;\n   DeleteObject&#40; hDarkBrush &#41;\n   DeleteObject&#40; hGrayBrush &#41;\n\n   &#58;&#58;DispEnd&#40; aInfo &#41;\n\nreturn nil\n[/code:1c2s2vhk]\n\n\nmi daresti solo una dritta a disegnare il rettangolo , e il bitmap  in mezzo poi i prompt non dovrebbero essere difficili ...\n\n\ngrazie','',0,'GIA=','1c2s2vhk',1,0,'',49,0,0),(13141,2835,20,6,0,'82.59.188.141',1147473509,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:26q4lrts]si ma Linares mi ha detto di creare un user control \nAnche a me mi sembra la soluzione giusta[/quote:26q4lrts]\n\nNon mi sono spiegato bene: intendevo dire di non utilizzare oggetti per disegnare i bitmaps ma farlo direttamente con la funzione PalBmpDraw() nell\'evento ON PAINT di una finestra o di un tuo controllo.\n\n[quote=&quot;Silvio&quot;:26q4lrts]cioè dovrei disegnare  questo inizialmente \n[url=http&#58;//imageshack&#46;us:26q4lrts][img=http://img387.imageshack.us/img387/1993/linearoadb2ah.png][/url:26q4lrts][/quote:26q4lrts]\n\nNon riesco a vedere nessuna immagine.\n\n[quote=&quot;Silvio&quot;:26q4lrts]mi daresti solo una dritta a disegnare il rettangolo , e il bitmap  in mezzo[/quote:26q4lrts]\n\nPer il rettangolo usa le API MoveTo() e LineTo() mentre per il bitmap la funzione PalBmpDraw().\n\nEMG','',0,'kA==','26q4lrts',1,0,'',6,0,0),(13142,2835,20,6,0,'82.59.188.141',1147473570,1,0,1,1,1,1,'','','Ora l\'immagine la vedo.\n\nEMG','',0,'kA==','kzzvar4r',1,0,'',6,0,0),(13143,3017,3,264,0,'200.91.3.10',1147473904,1,0,1,1,1,0,'','','thanks enrico','',0,'kA==','jrcoev8i',1,0,'',264,0,0),(13144,2835,20,49,0,'87.3.183.46',1147475882,1,0,1,1,1,1,'','','bene mi sono creato una funzione per disegnare le linee\n[code:1p1yvf13]  \nFunction DrawLine&#40; hDC, x, y , high, widht, color&#41;\n   LOCAL n, hPen, hOldPen\n   hPen &#58;= CreatePen&#40; 0, 2, color &#41;\n   hOldPen &#58;= SelectObject&#40; hDc, hPen &#41;\n   MoveTo&#40; hDC, y, x &#41;\n   LineTo&#40; hDC, widht, high&#41;\n   SelectObject&#40; hDc, hOldPen &#41;\n   DeleteObject&#40; hPen &#41;\n   return NIL\n[/code:1p1yvf13]\ncon questo metodo sarebbe più facile  a disegnare ste linee \n DrawLine( hDC, 0, 0 , 0,100,CLR_BLACK) peresempio\n\nAdesso però ho un problema \nper intenderci la classe tab disegna il suo controllo in fondo mentre io voglio disegnarlo sopra  dove è l\'istruzione che fa questo ?','',0,'AIA=','1p1yvf13',1,0,'',49,0,0),(13145,2835,20,49,0,'87.3.183.46',1147480620,1,0,1,1,1,1,'','','hO CREATO IL RETTANGOLO CON TUTTI GLI INTRAMEZZI \nPERO ADESSO IL CONTROLLO ME LO CREA CON UNO SPAZIO SOPRA CHE NON RIESCO A TOGLIERE \n\nHO SEGNATO DI ROSSO LO SPAZIO DA TOGLIERE\n\n[url=http&#58;//img98&#46;imageshack&#46;us/my&#46;php?image=lineamia1hd&#46;jpg:32inlht2][img:32inlht2]http&#58;//img98&#46;imageshack&#46;us/img98/2808/lineamia1hd&#46;th&#46;jpg[/img:32inlht2][/url:32inlht2]\n\nHAI RICEVUTO I FILES ?[/img]','',0,'GA==','32inlht2',1,0,'',49,0,0),(13146,3018,6,138,0,'201.152.98.24',1147481938,1,0,1,1,1,1,'','','Si estas utilizando xHarbour:\n\nMyField := CHR(0x0A) // xHB maneja valores Hexa nativamente\n\nSi estas utilizando harbour (no se si maneje Hexas nativos)\n\nMyField := CHR(10) // \"A\" en Hexadecimal','',0,'GA==','3k8ngsbi',1,0,'',138,0,0),(13147,3015,3,303,0,'72.199.41.171',1147487584,1,0,1,1,1,0,'','','Maurício,\n\nThere are a couple of articles that I wrote on this available on my website here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nThe article, \"Introduction to Object-Oriented Programming Using FiveWin\" is in two parts.\n\n&gt;I am getting an error that I don´t have if I use the original class. \n\nI see nothing wrong with the code you show so the problem must be in the code you didn\'t show us. Can you provide us with a small REAL example. Which FW class are trying to inherit from? What is the error you are getting? What version of FW are you using?\n\nJames','',0,'GA==','3b8hupfd',1,0,'',303,0,0),(13148,3010,6,439,0,'190.0.139.238',1147491073,1,0,1,1,1,1,'','','RenOmaS\nQue interesante clase!!!!\nMuchas gracias por ponerla en el foro, y como es de orden el agradecimiento a Ramón Avedaño por hacerla posible.\n\nYo tuve unas pequeñas dificultades para hacerla andar en xHarbour pero luego de unas pocas modificaciones quedó al pelo!!! la estoy usando con el FileXls de 32 bits que está en el foro \"utilidades/utilities\".\n\nEs muy bueno que todos aportemos buen código para mejorar nuestras aplicaciones. GRACIAS!!!!!!!!!!!\n\nPongo a disposición la versión con dichas modificaciones (super pequeñas por cierto)\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/012a95eb50/REPEXCEL.rar.html\">http://hyperupload.com/download/012a95e ... L.rar.html</a><!-- m -->','',0,'GA==','gcxuloe1',1,0,'',439,0,0),(13149,3019,7,150,0,'62.15.127.107',1147495596,1,0,1,1,1,1,'','OT: Upx comprime ejecutables','Upx comprime ejecutables hasta dejarlos en un 30% del tamaño original','',0,'GA==','3in4dgha',1,0,'',150,0,0),(13150,3020,6,141,0,'200.88.94.103',1147496526,1,0,1,1,1,1,'','Control tipo &quot;Configuracion Avanzada&quot;','Quisera saber si alguien a implementado algo como esto:\n\nEn cualquier ventana de Windows (pe. abriendo \"Mi PC\"), seleccionas \"Herramientas\" y luego \"Opciones de Carpeta\".  Luego haces click en la pestaña \"Ver\"...\n\n... ¿Es posible realizar en FW un control, dentro de una ventana o de un dialogo, al estilo donde dice \"Configuración Avanzada\" ?\n\nNotar que es un control tipo tree, que no es \"colapsable\", que tiene BMP, y que ademas contiene RADIO y CHECKBOX en las \"ramas\" del arbol !\n\n¿Alguien a tomado en consideracion o ha tenido experiencia en este sentido?  \n\n¿Podrían agregar un pequeño código (si es \"pequeño\")?\n\nGracias anticipadas,','',0,'GA==','2mtl809l',1,0,'',141,0,0),(13151,2850,3,530,0,'201.114.230.2',1147504779,1,0,1,1,1,0,'','The sample in this thread','Antonio: \n\nthis is the link \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d1f85d62/HUELLA.ZIP.html\">http://hyperupload.com/download/01d1f85 ... A.ZIP.html</a><!-- m --> \n\nI hope this can help, Please consider It\'s not a really reduced sample, but take a look at the aParams Array (line 90) where are shifted and doesn\'t work as expected. \n\nIn the Ocx docs exist a lot af ocx:methods with by Reference parameters, especially: \nExtract( byRef rawImage as Variant, ...) \nand I haven\'t a known way to call a Method with byReference parameters \n\nuRet = ActXInvoke( ActXPdisp( ::hActiveX ), cMethodName, uParam1,... ) \n\nDoesn\'t do the job for me at this moment. \n\nI will thank any answer. \nRegards \nFco Gamboa\n\nPD.- I\'ve put erroneosly this message in a new thread','',0,'GA==','1hd5mvj7',1,0,'',530,0,0),(13152,3019,7,2,0,'87.218.146.247',1147505014,1,0,1,1,1,1,'','','Jose,\n\nPero hay versión para Pocket PC ?','',0,'GA==','3a1d5x0k',1,0,'',2,0,0),(13153,3016,3,2,0,'87.218.146.247',1147505128,1,0,1,1,1,1,'','','Tim,\n\nAre the checkboxes inside groupboxes ?','',0,'GA==','neybq5ve',1,0,'',2,0,0),(13154,2850,3,2,0,'87.218.146.247',1147508147,1,0,1,1,1,1,'','','Fco,\n\nAre you using harbour or xharbour ?','',0,'GA==','1e2motgz',1,0,'',2,0,0),(13155,3018,6,2,0,'87.218.146.247',1147508242,1,0,1,1,1,1,'','','Harbour tambien maneja valores hexadecimales nativamente <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','2ynbr62j',1,0,'',2,0,0),(13156,3021,20,532,0,'84.222.124.139',1147516190,1,0,1,1,1,0,'','Stampa label.','Ciao a tutti.\n\nDevo stampare delle etichette su una stampante ad aghi,\nsu una sola colonna.\nIl listato sottostante, funziona abbastanza bene, il\nproblema è che quando finiscono i dati da stampare \nvorrei che la stampante si fermasse, invece butta\nfuori parecchie etichette, è come se avesse un EJECT.\n\nCi sono altri metodi per questo tipo di stampa?\n\"intendo dire, senza foglo a4\"\n\nAltro problemino, prima di stampare mi viene la scritta\n\"inserire il foglio\", solo con stampante ad aghi.\n\nGrazie in anticipo.\n\n\n*------------------------\nFunction Stampa_lbl( oLbx )\n\n   local oPrinter, oFont\n   local nWidth, nHeight, nMargin, nLblWidth, nLblHeight\n   local n, m, nRow := 5 , nCol := 5\n\n\nHORZ_LABELS:=1\nVERT_LABELS:=8\n\n\n   PRINTER oPrinter FROM USER ;\n      NAME \"Fivewin Labels\" PREVIEW\n\n\n     DEFINE FONT oFont NAME \"ARIAL\" SIZE 0,-10 OF oPrinter\n     DEFINE FONT oFont1 NAME \"ARIAL\" SIZE 0,-10 BOLD OF oPrinter\n\n\n   nLblWidth  = oPrinter:nHorzRes() / HORZ_LABELS\n   nLblHeight = oPrinter:nVertRes() / VERT_LABELS\n\n\nnLblWid := 06 // 2\nnLblHei := 15 // 6\n\n\nnWidth := oPrinter:nHorzRes()/nLblWid\nnHeight := oPrinter:nVertRes()/nLblHei\nnMargin := Int(oPrinter:nLogPixelX()*0.1) // * 0.2\n\npCount:=0\n\n   CursorWait()\n\n   oPrinter:StartPage()\n\n\n   for n = 1 to VERT_LABELS\n      for m = 1 to HORZ_LABELS\n\n\n   pCount++\n\n\n    oPrinter:Box( nRow, nCol, nRow + nLblHeight - 40, nCol + nLblWidth - 1050)\n\n    oPrinter:SayBitmap( nRow + nLblHeight / 5 - 150,;\n                         nCol + ( nLblWidth / 2 ) - 300,;\n                         \"..\\bitmaps\\FiveWin.bmp\", nLblWidth / 3,;\n                         nLblHeight / 1.8 )\n\n\n          nOldRow := nRow\n\n\n          oPrinter:Say( nRow + 05, nCol + 5, Trim( nomi ), oFont1 )\nnRow+=oFont:nHeight\n          oPrinter:Say( nRow + 05, nCol + 5, Trim( nome ), oFont )\nnRow+=oFont:nHeight\n          oPrinter:Say( nRow + 05, nCol + 5, indi, oFont )\nnRow+=oFont:nHeight\n\n\n          nRow := nOldRow\n\n         nCol += nLblWidth\n\n      next\n      nRow += nLblHeight\n      nCol  = 5\n   next\n\n   oPrinter:EndPage()\n\n   CursorArrow()\n\n   oPrinter:Preview()\n   oFont:End()\n   oFont1:End()\n\n\noLbx:UpStable()           // Corrects same page stabilizing Bug\noLbx:GotFocus()            // Repaint the ListBox\noLbx:Refresh()            // Repaint the ListBox\n\nreturn nil','',0,'GA==','7tu4q09c',1,0,'',532,0,0),(13157,3021,20,6,0,'87.3.232.178',1147519773,1,0,1,1,1,1,'','Re: Stampa label.','[quote=&quot;ik1mtt&quot;:1kwqbt0q]Il listato sottostante, funziona abbastanza bene, il\nproblema è che quando finiscono i dati da stampare \nvorrei che la stampante si fermasse, invece butta\nfuori parecchie etichette, è come se avesse un EJECT.[/quote:1kwqbt0q]\n\nDevi impostare il formato della carta con il metodo oPrn:SetPage() o con la funzione PrnSetPage(). Oppure vedi se è possibile impostarlo dalla stampante stessa (pannellino) o dalle sue proprietà sul pannello di controllo stampanti.\n\n[quote=&quot;ik1mtt&quot;:1kwqbt0q]Altro problemino, prima di stampare mi viene la scritta\n\"inserire il foglio\", solo con stampante ad aghi.[/quote:1kwqbt0q]\n\nDipende dal driver della stampante.\n\nEMG','',0,'gA==','1kwqbt0q',1,0,'',6,0,0),(13158,2835,20,6,0,'87.3.232.178',1147520052,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:36zezhd5]con questo metodo sarebbe più facile  a disegnare ste linee \n DrawLine( hDC, 0, 0 , 0,100,CLR_BLACK) peresempio[/quote:36zezhd5]\n\nCosa ti impedisce di creartelo?\n\n[quote=&quot;Silvio&quot;:36zezhd5]Adesso però ho un problema \nper intenderci la classe tab disegna il suo controllo in fondo mentre io voglio disegnarlo sopra  dove è l\'istruzione che fa questo ?[/quote:36zezhd5]\n\nImmagino sia solo una questione di coordinate.\n\nEMG','',0,'gA==','36zezhd5',1,0,'',6,0,0),(13159,2835,20,6,0,'87.3.232.178',1147520126,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1m9geilw]HAI RICEVUTO I FILES ?[/quote:1m9geilw]\n\nSì, ma non sono l\'esempio minimale del problema che ti avevo chiesto. Mi dispiace ma non posso fare il lavoro al posto tuo.\n\nEMG','',0,'gA==','1m9geilw',1,0,'',6,0,0),(13160,3022,6,147,0,'200.110.141.141',1147527244,1,0,1,0,1,1,'','Acerca de Controles WS','Colegas; vieja ignorancia:\nTengo un Dlg que, por ej., contiene varaidos tipos de controles: descriptivos, combos, radios, gets y botones.\nAl pulsar la tecla Tab lo lógico sería que pase por todos los de tipos, [b:2d8wftoj]excepto,[/b:2d8wftoj] por los descriptivos. Como lo logro?\n\nmuchas gracias\n\nP.D.: \"Si lo preguntas, serás tonto por un segundo...si no, lo serás por siempre\"; mi maestra de la primaria :-)[/b]','',0,'QA==','2d8wftoj',1,0,'',147,0,0),(13161,3023,17,439,0,'190.0.133.90',1147527274,1,0,1,1,1,1,'','REPEXCEL Dirigir reportes (clase tReport) a Planillas Excel','Excelente clase que utiliza FileXls de Ramón Avedaño para crear las planillas excel\n\nYo tuve unas pequeñas dificultades para hacerla andar en xHarbour pero luego de unas pocas modificaciones quedó al pelo!!! la estoy usando con el FileXls de 32 bits que está en este mismo foro.\n\nGracias a RenOmaS y Vikthor quienes hicieron posible que llegaran al foro.\n\nPongo a disposición la versión totalmente operativa en [x]Harbour con dichas modificaciones (super pequeñas por cierto) \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/012a95eb50/REPEXCEL.rar.html\">http://hyperupload.com/download/012a95e ... L.rar.html</a><!-- m -->','',0,'','2kmb34ti',1,1152793188,'',439,1,0),(13162,3018,6,264,0,'201.236.52.42',1147529495,1,0,1,1,1,0,'','','antonio, cual seria la expresion para harbour normal  de la expresion en hexadecimal ? la misma que indica rene ?','',0,'','yrfz8ka8',1,0,'',264,0,0),(13163,2835,20,49,0,'62.13.172.78',1147530206,1,0,1,1,1,1,'','','ok \nho trovato l\'errore c\'era scritto ownd:bottom() o qualcosa di simile e quindi adesso va ok\n\nho inserito anche la bitmap al centro : se vedi il metodo new per intenderci \n\nQuindi adesso la classe disegna la linea bene o male e cmq fno a qui ci siamo ( poi la potrei modificare alla fine) \nio la richiamo semplicemente con \n\n@ 0,0 Rbook oRB of oWnd   \nniente di piu\' facile\n\nadesso devo mettere i get\n\ne dove li metto ? \ncioè se li metto in metodo Paint poi li posso editare ?\noppure li devo inserire nel metodo New/redefine?','',0,'','351n5ivw',1,0,'',49,0,0),(13164,2835,20,49,0,'62.13.172.78',1147530797,1,0,1,1,1,1,'','','poi un altra cosa \nio ho i simbolini in una directory \nHo fatto una buton bar a sinistra \ncome fare per creare dei btnbmp allineati per tre o 4  automaticamente\ncosì l\'utente premendo un pulsante prende il simbolino che si posiziona subito ( e solo) sul bitmap della linea cosi uno poi puo\' spostare ...\ncioè\n\n\n[code:2tghf8ge]\nLOCAL aSymboli &#58;= Directory&#40; &quot;Sym/*&#46;gif&quot; &#41;\nDEFINE BUTTONBAR oBar 3D SIZE 25, 25 OF oWndChild LEFT\nFor n= 1 to  Len&#40; aSymboli &#41;\nDEFINE BUTTON filename aSymboli &#91;n&#93; OF oBar ACTION PutBitmap&#40; oTRb &#41; TOOLTIP &quot;Simboli&quot;\nNext\n\n[/code:2tghf8ge]\ngrazie\n\ndove sta l\'errore ?','',0,'AIA=','2tghf8ge',1,0,'',49,0,0),(13165,3022,6,36,0,'200.113.56.235',1147530968,1,0,1,1,1,0,'','','MarioG\n\nEn el recurso (pellesC o workshop) la propiedad TAB INDEX, le pones -1 y listo\n\nespero que te sirva\n\nSaludos\nPatricio','',0,'AIA=','a22skvv7',1,0,'',36,0,0),(13166,3019,7,150,0,'62.15.127.107',1147531009,1,0,1,1,1,1,'','','Si Antonio.\n\nUso el mismo programa que para comprimir los ejecutables de windows, copio el comprimido a la pda y funciona.\n\nLo probé porque vi en su página web que también servía para procesadores Arm desde la versión 1.90.','',0,'AIA=','2ewsq0io',1,0,'',150,0,0),(13167,3022,6,36,0,'200.113.56.235',1147531086,1,0,1,1,1,0,'','','Perdon\n\nLa propiedad Name  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nSaludos\n\nPatricio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1jsdscis',1,0,'',36,0,0),(13168,3022,6,36,0,'200.113.56.235',1147531359,1,0,1,1,1,0,'','','la propiedad [b:25sjk7vk]Tabstop[/b:25sjk7vk]\n\nno en que andaba pensando , es q añoche me fui de carrete jiji <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> \n\nsaludos','',0,'QA==','25sjk7vk',1,0,'',36,0,0),(13169,3024,3,49,0,'62.13.172.78',1147531553,1,0,1,1,1,1,'','Creation Button bar','I want create a button bar at left  with many btnbmp \nbut I have the bitmap on a directory \nExample  \n LOCAL aSymboli := Directory( \"Pat/*.bmp\" )\n\nHow I can create this button bar  with btnbmp as this ? :\n\n[url=http&#58;//imageshack&#46;us:28nf13kn][img:28nf13kn]http&#58;//img476&#46;imageshack&#46;us/img476/451/predefiniti5me&#46;png[/img:28nf13kn][/url:28nf13kn]','',0,'GA==','28nf13kn',1,0,'',49,0,0),(13170,2835,20,49,0,'62.13.172.78',1147531779,1,0,1,1,1,1,'','','cioè volevo fare una cosa così se era possibile \n[url=http&#58;//imageshack&#46;us:3ifdbyhz][img:3ifdbyhz]http&#58;//img476&#46;imageshack&#46;us/img476/451/predefiniti5me&#46;png[/img:3ifdbyhz][/url:3ifdbyhz]\n\nma mi da errore di un metodo che non esiste getbtn...','',0,'GA==','3ifdbyhz',1,0,'',49,0,0),(13171,3025,4,6,0,'87.3.232.178',1147533443,1,0,1,1,1,1,'','Popup menus','MENU command is not implemented. How can I get a right click popup menu?\n\nEMG','',0,'GA==','3gj5ubvw',1,0,'',6,0,0),(13172,3026,4,6,0,'87.3.232.178',1147533518,1,0,1,1,1,1,'','TWBrowse right click','ON RIGHT CLICK clause doesn\'t work.\n\nEMG','',0,'GA==','3biri0za',1,0,'',6,0,0),(13173,2835,20,6,0,'87.3.232.178',1147533586,1,0,1,1,1,1,'','','Ovviamente non li puoi mettere nell\'evento paint.\n\nParlo delle GET.\n\nEMG','',0,'GA==','1ihzzryo',1,0,'',6,0,0),(13174,2835,20,49,0,'62.13.172.78',1147533742,1,0,1,1,1,1,'','','No questi pulsanti sono nella window child che creo quando apro un nuovo roadbook\n\naaaah tu ti riferivi ai get ???\nnon li posso mettere e come posso fare per...cavolo lo sapevo che non si poteva fare ....mi sono illuso di poterlo fare con fw','',0,'GA==','3sq0pg8g',1,0,'',49,0,0),(13175,2835,20,6,0,'87.3.232.178',1147533828,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:34bzmjby]aaaah tu ti riferivi ai get ???\nnon li posso mettere e come posso fare per...cavolo lo sapevo che non si poteva fare ....mi sono illuso di poterlo fare con fw[/quote:34bzmjby]\n\nNon è questione di FW. E\' che, semplicemente, non puoi ricreare le GET ad ogni ridisegno della finestra, non ti pare? Non ha senso.\n\nEMG','',0,'gA==','34bzmjby',1,0,'',6,0,0),(13176,2835,20,49,0,'62.13.172.78',1147535293,1,0,1,1,1,1,'','','SCUSAMI PER IL MIO SFOGO ....\n\nSI OK ADESSO LE HO MESSE NEL METODO NEW E PARE CHE FUNZIONICCHANO MA NON RIESCO A FARE DUE COSE :\n\n[code:1ron0lf6]\nDEFINE FONT oFont2 NAME &quot;Ms Sans Serif&quot; SIZE 10, 8\n   DEFINE FONT oFont3 NAME &quot;Arial&quot; SIZE 20, 20\n @ 0,2 say &quot;KM TOTALI&quot;  OF Self Font  oFont2  size 80,50\n    @ 2,2 Get &#58;&#58;oGet1 OF Self Font  oFont3 size 80,40 NOBORDER\n\n    @ 8,2 say &quot;KM PARZIALI&quot;  OF Self Font  oFont2  size 80,50\n    @ 12,2 Get &#58;&#58;oGet2 OF Self Font  oFont3  size 80,40   NOBORDER\n[/code:1ron0lf6]\n\n\n1. I GET UANDO CERCO DI SCRIVERE NON MI SCRIVONO NULLA  SE PREMO I TASTI CURSORI MI FA ERRORE TCLIPGET...\n\n2.  LA DIMENSIONE DEI GET ( PARLO DEIFONT ) è SEMPRE LO STESSO \n\nTI DEVO FARE UN PICCOLO PROGRAMMINO I TEST ?','',0,'AIA=','1ron0lf6',1,0,'',49,0,0),(13177,2835,20,49,0,'62.13.172.78',1147535735,1,0,1,1,1,1,'','','ECCOLO !!!!!!!!!!\n\n[code:j6uv7ps5] \n#include &quot;FIVEWIN&#46;CH&quot;\n\nfUNCTION mAIN&#40;&#41;\nlOCAL OgET1,OGET2,OFONT1,OFONT3\nlOCAL OWND\n\n   DEFINE FONT oFont2 NAME &quot;Ms Sans Serif&quot; SIZE 10, 8\n   DEFINE FONT oFont3 NAME &quot;Arial&quot; SIZE 20, 20 \n\n\n   DEFINE WINDOW oWnd   COLOR &quot;N/W&quot;  ;\n   title &quot;Nuovo RoadBook&quot;\n\n\n   @ 0,2 say &quot;KM TOTALI&quot;  OF oWnd Font  oFont2  size 80,50\n    @ 2,2 Get oGet1 OF oWnd Font  oFont3 size 80,40 NOBORDER\n\n    @ 8,2 say &quot;KM PARZIALI&quot;  OF oWnd Font  oFont2  size 80,50\n    @ 12,2 Get oGet2 OF oWnd Font  oFont3  size 80,40   NOBORDER\n\n    ACTIVATE WINDOW oWnd MAXIMIZED\n    RETURN NIL[/code:j6uv7ps5]','',0,'AIA=','j6uv7ps5',1,0,'',49,0,0),(13178,3020,6,492,0,'201.154.125.229',1147536786,1,0,1,1,1,1,'','','Hola\n\nTanto como lo indicas, no.\n\nPero si uso lo siguiente, para que el usuario pueda definir algunos parametros a usar dentro en la App.\n\n[img:1g6eni62]http&#58;//img523&#46;imageshack&#46;us/img523/1052/configu0xr&#46;jpg[/img:1g6eni62]\n\n\n\nSaludos','',0,'CA==','1g6eni62',1,0,'',492,0,0),(13179,3019,7,2,0,'87.218.146.139',1147537029,1,0,1,1,1,1,'','','bien! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','1yt0lgtz',1,0,'',2,0,0),(13180,2835,20,6,0,'87.3.232.178',1147538225,1,0,1,1,1,1,'','','Mancano le variabili delle GET.\n\nEMG','',0,'CA==','1o7rds1i',1,0,'',6,0,0),(13181,2835,20,6,0,'87.3.232.178',1147538363,1,0,1,1,1,1,'','','E mancano le PICTURE, obbligatorie dato che trattasi di variabili numeriche.\n\nEMG','',0,'CA==','3tgey7zy',1,0,'',6,0,0),(13182,3010,6,103,0,'200.164.92.242',1147540671,1,0,1,1,1,0,'','','Hola Jose,\n\n    Realmente esta muy bueno tu aporte. Solo una pregunta: me podria decir donde obtengo la lib FileXLS? \n\nGracias de antemano,\n\nKleyber Derick','',0,'CA==','10bo7p55',1,0,'',103,0,0),(13183,3027,6,519,0,'88.1.106.71',1147542623,1,0,1,1,1,0,'','Freimage  ?','Hola amigos\n\n   Alguien tiene idea si con la clase freimage se podria reducir el tamaño  alto y ancho de una imagen   y crear una imagen mas pequeña  ?\n\n\n  Un saludo y gracias desde ya','',0,'CA==','2lrjgwg5',1,0,'',519,0,0),(13184,2835,20,49,0,'62.13.172.78',1147543827,1,0,1,1,1,1,'','','ooppss...\n\ncalma calma mi sono sfuggite...\nil problema è che ogni 5 minuti mi telefonano....\nsorry...','',0,'CA==','a4ifvyc3',1,0,'',49,0,0),(13185,2835,20,49,0,'62.13.172.78',1147544131,1,0,1,1,1,1,'','','Scusami eccolo \nho corretto ma non funziona  cioè adesso le get funzionano ma\nio volevo che scrivessero i font grandi e che le get erano trasparenti\n\n\n[code:39enb9b9] #include &quot;FIVEWIN&#46;CH&quot;\n\nFUNCTION Main&#40;&#41;\n   lOCAL oGET1,oGET2\n   LOCAL OFONT1,OFONT3\n   LOCAL KMTOT&#58;=0\n   LOCAL KMpARZ&#58;=0\n   Local OWND\n\n   DEFINE FONT oFont2 NAME &quot;Ms Sans Serif&quot; SIZE 10, 8\n   DEFINE FONT oFont3 NAME &quot;Arial&quot; SIZE 20, 20\n\n\n   DEFINE WINDOW oWnd   COLOR &quot;N/W&quot;  ;\n   title &quot;Nuovo RoadBook&quot;\n\n\n   @ 0,2 say &quot;KM TOTALI&quot;  OF oWnd Font  oFont2  size 80,50\n    @ 2,2 Get oGet1 VAR KMTOT OF oWnd Font  oFont3 size 80,40  NOBORDER  PICTURE &quot;999999&quot;\n\n    @ 8,2 say &quot;KM PARZIALI&quot;  OF oWnd Font  oFont2  size 80,50\n    @ 12,2 Get oGet2 VAR KMPARZ OF oWnd Font  oFont3  size 80,40   NOBORDER PICTURE &quot;999999&quot; \n    ACTIVATE WINDOW oWnd MAXIMIZED\n    RETURN NIL[/code:39enb9b9]','',0,'AIA=','39enb9b9',1,0,'',49,0,0),(13186,3010,6,103,0,'200.164.92.242',1147544597,1,0,1,1,1,0,'','','Ups,\n\n    Me olvidé de leer mejor tu mensaje. Ya lo encontré.  Gracias.\n\nsaludos,\n\nKleyber Derick','',0,'AIA=','25hameeb',1,0,'',103,0,0),(13187,2835,20,6,0,'87.3.232.178',1147544808,1,0,1,1,1,1,'','','A me i font delle GET risultano grandi. E non ho capito cosa intendi con \"trasparenti\". Se vuoi che lo sfondo delle GET sia uguale a quello della finestra basta che usi in entrambi (finestra e  GET) la stessa clausola COLOR.\n\nEMG','',0,'AIA=','249r0jxx',1,0,'',6,0,0),(13188,2519,17,103,0,'200.164.92.242',1147545380,1,0,1,1,1,0,'','','Antonio,\n\n   he bajado el TFileXLS, pero me falta algunos includes. ¿Donde puedo cogerlos?\n\nGracias de antemano,\n\nKleyber Derick','',0,'AIA=','20rnvs4b',1,0,'',103,0,0),(13189,3016,3,34,0,'68.4.154.81',1147548499,1,0,1,1,1,1,'','Checkboxes','No.  One report said one is missing in a dialog window, and the others reported are in folders.\n\nI haven\'t seen the problem but apparently it started when I added the BRUSH to the dialogs and folders with the last release I received.','',0,'AIA=','3ph4qqqc',1,0,'',34,0,0),(13190,3020,6,141,0,'200.88.94.54',1147556208,1,0,1,1,1,1,'','','Gracias Amigo,\n\nAsí ya lo he estado haciendo desde hace años.  El problema es que ya son muchas las opciones para configurar la aplicación, y muchas las pestañas de los folder, y he estado considerando que ya debería tener una especie de \"browse de RADIOS y CHECKBOXes\", pero no se como !!!\n\nGracias de nuevo,','',0,'AIA=','3570yfvh',1,0,'',141,0,0),(13191,2835,20,49,0,'87.3.181.68',1147558657,1,0,1,1,1,1,'','','A me no \nallora ho problemi di grafica...','',0,'AIA=','1m05kjr1',1,0,'',49,0,0),(13192,2835,20,49,0,'87.3.181.68',1147559023,1,0,1,1,1,1,'','','Vabbe poi lo risolvo \n\nc\'è una cosa che ti volevo chiederti : \nQuando chiamo la classe la procedura costruisce una riga e lo fa bene \nma se è la prima riga cioè se sto iniziando a creare la prima riga la procedura mi deve disegnare la testata ....\ndove la metto la testata nel mtetodo paint ?\nio la devo disegnare solo una volta e non la devo disegnare piu\' ( solo ovviamente in stampa ad ogni pagina) \nCome fare allora ?','',0,'AIA=','2vmtwcse',1,0,'',49,0,0),(13193,3026,4,2,0,'87.218.146.128',1147590883,1,0,1,1,1,1,'','','Enrico,\n\nHow a Pocket PC user can right click ?','',0,'AIA=','2kbmpj4q',1,0,'',2,0,0),(13194,3026,4,6,0,'82.61.28.188',1147594300,1,0,1,1,1,1,'','','Clicking on a spot and keep pressing the pen for a while. Try to do so on a file in Explorer.\n\nEMG','',0,'AIA=','1vmru03l',1,0,'',6,0,0),(13195,2835,20,6,0,'82.61.28.188',1147594579,1,0,1,1,1,1,'','','Il discorso della programmazione Windows è questo:\n\n1. Ogni elemento presente sulla dialog deve sapersi ridisegnare all\'occorrenza (e questo lo sanno fare i controlli tipo TSay, TGet, TCombobox, TWBrowse, etc. grazie al fatto che sono controlli standard oppure grazie al loro metodo Paint()).\n\n2. Gli elementi che non fanno parte del punto 1 (come ad esempio le tue linee) devono essere ridisegnati nell\'evento ON PAINT della DIALOG o di qualche controllo.\n\nEMG','',0,'AIA=','19yqf278',1,0,'',6,0,0),(13196,3026,4,2,0,'87.218.146.128',1147600302,1,0,1,1,1,1,'','','Yes, you are right <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2mhz2k7t',1,0,'',2,0,0),(13197,3026,4,2,0,'87.218.146.128',1147601447,1,0,1,1,1,1,'','','Enrico,\n\nIt looks as WM_RBUTTONDOWN msg is never sent to a window. We need to find which msg is sent for that event.\n\nI have placed a LogFile( \"msgs.txt\", { nMsg, nWParam, nLParam } ) at Class TWindow Method HandleEvent() but I can\'t find it, by now.','',0,'AIA=','1j8xncvy',1,0,'',2,0,0),(13198,3026,4,2,0,'87.218.146.128',1147602387,1,0,1,1,1,1,'','','Enrico,\n\nIt looks as we never get such message. So a solution may be to count the ellapsed time since the left button is clicked, and on a certain amount, then fire the method.\n\nWhat ellapsed time amount should we check ?','',0,'AIA=','q6uk5pz5',1,0,'',2,0,0),(13199,3026,4,6,0,'87.16.238.106',1147606574,1,0,1,1,1,1,'','','Sorry, I don\'t have a real device to test it here. But your solution seems the right one.\n\nEMG','',0,'AIA=','370mo2sv',1,0,'',6,0,0),(13200,3014,7,262,0,'83.97.168.33',1147620155,1,0,1,1,1,1,'','','en este foro hace tiempo postee lo mismo , y ya esta solucionado , es simple \nen la ventana inicial\n[code:211pn212]\n  &#46;&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;&#46;&#46;\n  ON INIT  ShowSIP&#40;&#41;\n\n[/code:211pn212]','',0,'AIA=','211pn212',1,0,'',262,0,0),(13201,3027,6,138,0,'200.95.76.39',1147638628,1,0,1,1,1,1,'','','Jaime Iruzun hizo una clase ZOOM basada en la FreeImage que hace lo que quieres.','',0,'AIA=','1ouerj7i',1,0,'',138,0,0),(13202,3027,6,519,0,'81.38.4.123',1147640369,1,0,1,1,1,0,'','','Gracias Rene, pero la clase de Jaime lo que hace es hacer un zoom a la imagen lo que quiero es poder modificar las dimensiones de la imagen alto x ancho  y crear una nueva imagen con las nuevas dimensiones.\n\n\n  un saludo y gracias','',0,'AIA=','1uzbnzxf',1,0,'',519,0,0),(13203,2835,20,49,0,'87.16.178.185',1147645716,1,0,1,1,1,1,'','','ok ho risolto almeno credo  ho aggiunto un parametro alla classe LTestata\nse c\'è lo aggiunge altrimenti no \nho un altro problema da chiederti \nNella mia famosa linea ho inserito la bitmap:\n[code:3hq9477b]\n @ 0,15  BITMAP &#58;&#58;oBmp  SIZE 360,200 OF Self   ;\n    ON CLICK DrawSections&#40; &#58;&#58;oBmp,&#46;t&#46; &#41;\n[/code:3hq9477b]\n\ncome vedi ho messo un controllo cioè se ci clicco sopra si attiva la funzione drawsections che non è altro che dei fillrect che disegnano una cornice gialla \n\nIl problema è questo : se io ho due linee io clicco su una e mi disegna la cornice  se ci clicco sull\'altra mi disegna la cornice ma come faccio a dirgli di cancellare la cornice alla prima  linea ?\n\nqui sotto la funzione :\n\n[code:3hq9477b]\n function DrawSections&#40;obmp,lattivo &#41;\n   LOCAL hDC &#58;= obmp&#58;GetDC&#40;&#41;\n   local oBrWhite, oBrCyan\n\n\n   DEFINE BRUSH oBrWhite COLOR CLR_WHITE\n   DEFINE BRUSH oBrCyan  COLOR CLR_YELLOW\n\n   IF lattivo\n    // SE è SELEZIONATO\n    FillRect&#40; hDC, &#123; 0, 0, 200, 641 &#125;, oBrCyan&#58;hBrush &#41;\n    FillRect&#40; hDC, &#123; 10, 10, 190, 350 &#125;, oBrWhite&#58;hBrush &#41;\n    else\n    //ALTRIMENTI\n    //  FillRect&#40; hDC, &#123; 10, 10, 190, 350 &#125;, oBrWhite&#58;hBrush &#41;\n    ENDIF\n\n   oBrWhite&#58;End&#40;&#41;\n   oBrCyan&#58;End&#40;&#41;\n\nreturn lattivo\n[/code:3hq9477b]','',0,'AIA=','3hq9477b',1,0,'',49,0,0),(13204,3028,6,52,0,'200.127.195.89',1147664742,1,0,1,1,1,1,'','Volviendo al FW21','Amigos,\n\nActualmente estoy trabajando con el xHarbour, pero me veo en la obligacion de retomar el FW21, como estoy usando xMate, quisiera saber si podrían detallarme que lib y adicionales tendria que incluir en el compilador para que un simple programa:\n\n[code:26td5f8v]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   ? &quot;hola&quot;\nreturn &#40; nil &#41;[/code:26td5f8v]Lo pueda hacer andar. \ngracias.','',0,'AIA=','26td5f8v',1,0,'',52,0,0),(13205,3029,6,52,0,'200.127.195.89',1147670370,1,0,1,1,1,1,'','bData en TSbrowse','Estimados,\nComo hago para que solo se muestre el dato en la columna si \nCARGAS-&gt;SURTIDOR es != a \"1\"\n\n[code:1bvbly7i]         ADD COLUMN to oBrw&#91; 01 &#93; header &quot;Surt&#46;&quot; size 45 data CARGAS-&gt;SURTIDOR ;\n            align DT_CENTER, DT_CENTER, DT_CENTER[/code:1bvbly7i]\n\n\nGracias.','',0,'AIA=','1bvbly7i',1,0,'',52,0,0),(13206,3026,4,89,0,'213.21.136.60',1147674889,1,0,1,1,1,0,'','','I solve with a work around : \n\nthis is a sample for the wbrowse.prg but it is possible to use in every control :\n\n     oBrwArt:bTimer    := {|| MsgInfo(\"Hello\") }\n\n\n\n\n\n//-------------------------------------------------------\n//1 - ADD this variable \n DATA   oTimer\n DATA   nTimer\n DATA   bTimer\n// ------------------------------------------------------\n// 2 Method LButtonDown\nMETHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TWBrowse\n\n   local nClickRow, nSkipped\n   local nColPos := 0, nColInit := ::nColPos - 1\n   local nAtCol\n\n   //----- my_modi\n   IF ::bTimer != nil\n       ::nTimer := 1\n       ::oTimer := TTimer():New( 1000, ;\n                        {||(::nTimer++,;\n	         IIF( ::nTimer &gt; 1 , ( ::nTimer := 0 ,::oTimer:End() , eval(::bTimer) ), ) )})\n       ::oTimer:Activate()\nENDIF\n// -----------------------------------------------------\n// 2 Method LButtonUp\nMETHOD LButtonUp( nRow, nCol, nFlags ) CLASS TWBrowse\n  //----- my_modi\n  IF ::bTimer != nil\n      IF ::nTimer &gt; 0\n          ::oTimer:End()\n      ENDIF\n      ::nTimer := 0\n   ENDIF','',0,'AIA=','16dryxwv',1,0,'',89,0,0),(13207,2835,20,6,0,'87.3.212.73',1147675522,1,0,1,1,1,1,'','','Prova con un Refresh() prima di disegnare la seconda linea. Dovrebbe cancellare tutto quello che è stato disegnato direttamente.\n\nEMG','',0,'AIA=','2xuopb0i',1,0,'',6,0,0),(13208,3026,4,2,0,'87.218.146.128',1147677059,1,0,1,1,1,1,'','','Maurizio,\n\nI thought about the same solution, to use a timer. But to create a timer everytime the mouse is clicked it seems a big overload to the application. \n\nWhats your opinion ?','',0,'AIA=','36cigotq',1,0,'',2,0,0),(13209,3026,4,6,0,'87.3.212.73',1147679871,1,0,1,1,1,1,'','','Definitely.\n\nEMG','',0,'AIA=','ug575dtv',1,0,'',6,0,0),(13210,2988,23,130,0,'141.51.32.24',1147680377,1,0,1,1,1,0,'','','Sylvio,\n\nI have no code sample from a roadbook application, sorry. Maybe you can simulate the colums with scrollable dialogs, or better, modify one of the browse classes which supports multiple lines per row.\n\nI can assist you, if you need help in translation into german language.\n\nStefan','',0,'AIA=','dre74exv',1,0,'',130,0,0),(13211,3026,4,89,0,'213.21.136.60',1147682353,1,0,1,1,1,0,'','','Yes it is true , but  I use this trick in VBE from 4 years  without problem .\nMy application  in FWPPC is still in beta  , antil now it works ok  .\nBetter  if we found another solution  .\n\nMaurizio','',0,'AIA=','257tpcag',1,0,'',89,0,0),(13212,3016,3,2,0,'87.218.146.128',1147684948,1,0,1,1,1,1,'','','Tim,\n\nCould you post the RC of that dialog, or better a small and self contained sample that reproduces the error on your client computer ? thanks,','',0,'AIA=','31d99hsa',1,0,'',2,0,0),(13213,3028,6,2,0,'87.218.146.128',1147685060,1,0,1,1,1,1,'','','fivehx.lib y fivehc.lib','',0,'AIA=','2y6z9i7v',1,0,'',2,0,0),(13214,2835,20,49,0,'213.82.134.66',1147690217,1,0,1,1,1,1,'','','no niente da fare \nma forse non mi sono spiegato cerco di spiegartelo meglio...\n\n\nio creo ad esempio un controllo  rbook:\n\n@ 2,0 rbook oRb  \n\ne poi un altro\n\n@15,0 rbook orb2 \n\npoi clicco sul bitmap del primo controllo  e mi crea la cornice\npoi clicco sul bitmap del secondo controllo e mi crea la cornice  ma non mi toglie la cornice al primo controllo \n\n\nmagari è una fesseria ma sembra che sono attivi tutti e due però se io provo ad inserire un simbolino me lo crea sul secondo controllo come se è veramente attivo quel  secondo controllo e non è attivo il primo infatti se dopop clicco sul primo  controllo e provo ad inserire un simbolo m elo fa vedere sul orimo controllo anzichè sul secondo . quindi il programma funziona bene ma forse come dici tu c\'è qualcosa di grafica che non funziona \n\n\naaah mi sono ricordato una cosa  \n\nQuando inserisco un simbolino io uso  il comando DESIGN per spostare il simbolo nel bitmap ma si vedono tutte le coordinate e potrei allargarlo o restringerlo : Io non voglio che l\'utente allarghi o restringa il simbolino perchè gli do già io le dimensioni quindi come faccio ad non usare la clausola design  e spostare lo stesso il simbolino all\'interno del bitmap senza farmi vedere i puntini neri che delineano la forma dell\'immagine inserita ?','',0,'AIA=','172u9lzw',1,0,'',49,0,0),(13215,2988,23,49,0,'213.82.134.66',1147690641,1,0,1,1,1,1,'','','I trying to create a new class : TRoadBook\n\nCan you help me ?','',0,'AIA=','j7mkkpqh',1,0,'',49,0,0),(13216,3015,3,284,0,'200.158.234.237',1147693376,1,0,1,0,1,0,'','Re: Classes inheritance.  How to ?','[quote=&quot;Gale FORd&quot;:13cm3mck][quote=&quot;concentra&quot;:13cm3mck]Where can I find a tutorial and/or documentation about how to create and inherit FWH classes ?\nIs there one around ?\nI am triing to inherit a class from another because I need to add a method.\nI am getting an error that I don´t have if I use the original class.\nThe object seems not ot be created at all...\nThe code is something like this:\n  \nClass CL2 from CL1\n   METHOD PrintCl()\nENDCLASS\n\nMETHOD PrintCl() class CL2\n  alert(\"CL2\")\n\nreturn NIL\n \nQuestions:\nAl the CL1 methods are avaiable in CL2 ?\nDo I need a constructor/destructor method or the CL1 one is used ?\n\n[[]] Maurício Faria[/quote:13cm3mck]\n\nDon\'t forget to add:\n\nCLASSDATA lRegistered AS LOGICAL[/quote:13cm3mck]\n\nWhy ? \nWhat is \"lRegistered\" ?\n  \n[[]] Maurício Faria','',0,'gA==','13cm3mck',1,0,'',284,0,0),(13217,3015,3,284,0,'200.158.234.237',1147693498,1,0,1,0,1,0,'','','[quote=&quot;James Bott&quot;:146i9z3b]Maurício,\n\nThere are a couple of articles that I wrote on this available on my website here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nThe article, \"Introduction to Object-Oriented Programming Using FiveWin\" is in two parts.\n\n&gt;I am getting an error that I don´t have if I use the original class. \n\nI see nothing wrong with the code you show so the problem must be in the code you didn\'t show us. Can you provide us with a small REAL example. Which FW class are trying to inherit from? What is the error you are getting? What version of FW are you using?\n\nJames[/quote:146i9z3b]\n \nThanks James.\nI am reading it and it seems very usefull for a beginning.\nCan I translate to Portuguese ?\n \n[[]] Maurício Faria','',0,'gA==','146i9z3b',1,0,'',284,0,0),(13218,3022,6,147,0,'200.45.54.133',1147693597,1,0,1,0,1,1,'','','bue... menos mal que lo leí recien hoy lunes jejejejeje\nMuchas gracias','',0,'gA==','1hq5ucrv',1,0,'',147,0,0),(13219,3015,3,439,0,'190.0.134.124',1147693712,1,0,1,1,1,1,'','Article about OOP in fivewin','James,\n\nYour articles are very interesting, I´m studying them.\n\nI will translate them to spanish and send to your e-mail.','',0,'gA==','1uzff4rf',1,0,'',439,0,0),(13220,3015,3,284,0,'200.158.234.237',1147693983,1,0,1,0,1,0,'','Re: Classes inheritance.  How to ?','[quote=&quot;EnricoMaria&quot;:2hofg2ae][quote=&quot;concentra&quot;:2hofg2ae]Where can I find a tutorial and/or documentation about how to create and inherit FWH classes ?[/quote:2hofg2ae]\n\nBest documentation is FWH source code.\n[/quote:2hofg2ae]\n \nI tried but could not figure out what is wrong with my code.\nI thought I needed to study a little if some docs are avaiable.\n \n[quote=&quot;EnricoMaria&quot;:2hofg2ae]\n\n[quote=&quot;concentra&quot;:2hofg2ae]I am triing to inherit a class from another because I need to add a method.\nI am getting an error that I don´t have if I use the original class.\nThe object seems not ot be created at all...\nThe code is something like this:\n  \nClass CL2 from CL1\n   METHOD PrintCl()\nENDCLASS\n\nMETHOD PrintCl() class CL2\n  alert(\"CL2\")\nreturn NIL[/quote:2hofg2ae]\n\nCan you build a little real (compilable) sample of the problem?\n\n[/quote:2hofg2ae]\n \nI am triing to add some methods to the SuperBrowse class without modifiing it, and so I tried to inherit it, creating a particular class.\nI will try to find what is wrong with the code with the help you gave me and if I can´t I will try to post complete code.\n  \n[quote=&quot;EnricoMaria&quot;:2hofg2ae] \n[quote=&quot;concentra&quot;:2hofg2ae]Questions:\nAl the CL1 methods are avaiable in CL2 ?[/quote:2hofg2ae]\n\nYes.\n\n[quote=&quot;concentra&quot;:2hofg2ae]Do I need a constructor/destructor method or the CL1 one is used ?[/quote:2hofg2ae]\n\nYes, you need of a constructor.\n\nEMG[/quote:2hofg2ae]\n  \n[[]] Maurício Faria','',0,'gA==','2hofg2ae',1,0,'',284,0,0),(13221,3027,6,49,0,'213.82.134.66',1147694040,1,0,1,1,1,1,'','','RENE,\ncan U make a test oprigram where i can use zoom  of Jaime Iruzun \nI tryed i t but it not run ok','',0,'gA==','1hg62fbz',1,0,'',49,0,0),(13222,3029,6,278,0,'164.77.219.42',1147701930,1,0,1,1,1,1,'','Prueba esto.','Goosfancito:\n\nCambia el data por  Data  IIF( Cargas-&gt;Surtidor &lt;&gt; \"1\", Cargas-&gt;Surtidor , \"   \" )   y listo.\n\n\nAsumo que el dato es de caracter, sino lo cambias por un numerico.\nSaludos,\n\nJuan','',0,'gA==','1l4x4wib',1,0,'',278,0,0),(13223,3020,6,110,0,'165.98.147.118',1147703573,1,0,1,1,1,1,'','','Umm\n\npudieras implemetar un tsbrowse con dos columnas\nuna de descripion de la configuracion y otra columna con los checkbox o listbox con las opciones posible.\n\n\nsalu2\ncarlos vargas','',0,'gA==','1068vutc',1,0,'',110,0,0),(13224,2835,20,6,0,'87.16.213.218',1147703660,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1e0ul9b0]poi clicco sul bitmap del primo controllo  e mi crea la cornice\npoi clicco sul bitmap del secondo controllo e mi crea la cornice  ma non mi toglie la cornice al primo controllo[/quote:1e0ul9b0]\n\nQuindi stai parlando dell\'indicatore di focus. Devi disegnarlo nell\'evento bGotFocus e cancellarlo nell\'evento bLostFocus di ogni controllo. Guardati nei sorgenti delle FWH la funzione DrawFocusRect().\n\n[quote=&quot;Silvio&quot;:1e0ul9b0]Quando inserisco un simbolino io uso  il comando DESIGN per spostare il simbolo nel bitmap ma si vedono tutte le coordinate e potrei allargarlo o restringerlo : Io non voglio che l\'utente allarghi o restringa il simbolino perchè gli do già io le dimensioni quindi come faccio ad non usare la clausola design  e spostare lo stesso il simbolino all\'interno del bitmap senza farmi vedere i puntini neri che delineano la forma dell\'immagine inserita ?[/quote:1e0ul9b0]\n\nPrendi i metodi CheckDots() e compagnia di TControl e modificali a tuo piacimento.\n\nEMG','',0,'gA==','1e0ul9b0',1,0,'',6,0,0),(13225,3030,6,385,0,'85.155.38.197',1147705509,1,0,1,1,1,0,'','FiveScript en Harbour','Hola\n\nFiveScript se puede usar con Harbour???\n\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'gA==','wt99ia8z',1,0,'',385,0,0),(13226,3031,7,556,0,'212.170.23.125',1147705756,1,0,1,1,1,0,'','Algunas dudas sobre la capacidad de desarrollo con FiveWin','Hola a todos.\n\nEstoy interesado en adquirir FiveWin para Pocket PC si resuelvo algunas dudas. \n\nMi necesidad en estos momentos es la desarrollar una aplicación cliente en la PPC que sea capaz a través WiFi de atacar BBDD de FoxPro. ¿Es posible?\n\n¿Puedo crear cursores como en FoxPro sobre datos remotos que están en un servidor a través de la WiFi?\n\nYa que no es posible evaluar una versión de FiveWin, ¿tienen alguna aplicación Cliente (PPC) Servidor (PC) en el cual se puedan realizar por ejemplo una consulta a los datos remotos y estos que sean mostrados en tiempo real en la PPC?\n\nMuchas gracias de antemano.\n\nSergio Moreno','',0,'gA==','39y3brml',1,0,'',556,0,0),(13227,3032,3,570,0,'200.117.30.144',1147706090,1,0,1,1,1,1,'','resize16 dentro de un dialog en un folder','Estoy iniciando la migracion de una aplicación de 16 a 32 bits, dentro de los problemas que me han sucedido y viendo las respuestas en el foro, hasta ahora va todo relativamente bien, el tema es que los tamaños de los dialogs junto con los controles incluidos en los mismos se achican en la aplicacion de 32 bits, pero usando el resize16 en los dialogs pude solucionarlo parcialmente ya que tengo el mismo problema con los dialogs dentro de un folder y no se donde como usar el resize aqui ??, alguna sugerencia ??, espero no tener de redimensionar todos los dialogs del RC...saludos','',0,'gA==','2872lbjf',1,0,'',570,0,0),(13228,3015,3,303,0,'72.199.41.171',1147707532,1,0,1,1,1,0,'','','Maurício,\n\n&gt;Can I translate to Portuguese?\n\nSure. Please send me a copy and I will put it up on my site.\n\nJames','',0,'gA==','2iyapzdg',1,0,'',303,0,0),(13229,2850,3,530,0,'201.114.230.2',1147707558,1,0,1,1,1,0,'','Using Xharbour','Hi Antonio:\n\nI\'m using xHarbour from fivetech site\n\nregards\n\nFco Gamboa','',0,'gA==','nj7vr3s5',1,0,'',530,0,0),(13230,3015,3,303,0,'72.199.41.171',1147707630,1,0,1,1,1,0,'','','José,\n \n&gt;I will translate them to spanish and send to your e-mail.\n\nGreat. I will put that version on my site too.\n\nJames','',0,'gA==','3auws6ae',1,0,'',303,0,0),(13231,3024,3,303,0,'72.199.41.171',1147707839,1,0,1,1,1,0,'','','Create it as a dialog. You can change nStyle to remove the caption and system buttons or not (if you wish to make it a floating bar).','',0,'gA==','1rr16hcu',1,0,'',303,0,0),(13232,3014,7,456,0,'217.127.39.57',1147708227,1,0,1,1,1,1,'','','Gracias Jose Luis, al final tendre que enviarte una ensaimada, siempre me sacas de los apuros. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nShowSip(), no esta implementado como tal, pero me pusiste sobre la pista, [code:27jm6ias]ShFullScreen&#40;oWnd&#58;hwnd,SHFS_SHOWSIPBUTTON &#41;[/code:27jm6ias]\nmuchas gracias.','',0,'AIA=','27jm6ias',1,0,'',456,0,0),(13233,3031,7,2,0,'87.218.146.128',1147711655,1,0,1,1,1,1,'','','Sergio,\n\n&gt;\nMi necesidad en estos momentos es la desarrollar una aplicación cliente en la PPC que sea capaz a través WiFi de atacar BBDD de FoxPro. ¿Es posible?\n&gt;\n\nSí, perfectamente.\n\n&gt;\n¿Puedo crear cursores como en FoxPro sobre datos remotos que están en un servidor a través de la WiFi?\n&gt;\n\nSi, tienes acceso a las bases de datos como si estuvieses en un PC. La única diferencia es que Pocket PC no te permite hacer bloqueos.','',0,'AIA=','1vn8m6e0',1,0,'',2,0,0),(13234,3015,3,284,0,'200.158.234.237',1147715503,1,0,1,0,1,0,'','Re: Classes inheritance.  How to ?','[quote=&quot;Gale FORd&quot;:3ksgky21]Don\'t forget to add:\nCLASSDATA lRegistered AS LOGICAL\n[/quote:3ksgky21]\nBingo !!!!!\nAdded this single line and my inherited class worked like a charm...\nThanks Gale, but what the hell is \"lRegistered\" ?\n \n[[]] Maurício Faria','',0,'gA==','3ksgky21',1,0,'',284,0,0),(13235,3033,3,435,0,'200.155.204.137',1147716806,1,0,1,1,1,0,'','Value negative in TGet','- Minha TGet nao aceita valor negativo\n\n - 10,00 \n\n quando grava ou se sai do get volta a ficar positivo\n\nAri','',0,'gA==','7niyl44g',1,0,'',435,0,0),(13236,3015,3,6,0,'87.16.213.218',1147717582,1,0,1,1,1,1,'','Re: Classes inheritance.  How to ?','It is a flag that allows a one-time registration of a control class. It is needed to get Windows aware of the new control.\n\nEMG','',0,'gA==','135tpnxd',1,0,'',6,0,0),(13237,3015,3,284,0,'200.158.234.237',1147718999,1,0,1,0,1,0,'','Re: Classes inheritance.  How to ?','[quote=&quot;EnricoMaria&quot;:2fjmxmot]It is a flag that allows a one-time registration of a control class. It is needed to get Windows aware of the new control.\nEMG[/quote:2fjmxmot]\n \nOk, but could you tell me when I need it and when I do not ?\n \n[[]] Maurício Faria','',0,'gA==','2fjmxmot',1,0,'',284,0,0),(13238,3015,3,343,0,'204.57.111.194',1147720362,1,0,1,1,1,0,'','Re: Classes inheritance.  How to ?','[quote=&quot;concentra&quot;:f321ppg5][quote=&quot;EnricoMaria&quot;:f321ppg5]It is a flag that allows a one-time registration of a control class. It is needed to get Windows aware of the new control.\nEMG[/quote:f321ppg5]\n \nOk, but could you tell me when I need it and when I do not ?\n \n[[]] Maurício Faria[/quote:f321ppg5]\n\nIf you are creating a temporary stand alone class from scratch and you will not inherit from it then it is not required\n\nIf you plan on inheriting from your class or your class is inheriting from another,  then you will need to add it.','',0,'gA==','f321ppg5',1,0,'',343,0,0),(13239,3034,20,125,0,'194.243.7.199',1147722936,1,0,1,1,1,0,'','Bug in piccolo testar.prg 32/bit','Vi allego questo piccolo test che mi va in 16bit ma non mi va in 32bit (harbour):\n\n*------------------\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\nfunction Main()\n\n   local oDlg, oBrw\n   local aData := { { \"1\", \"Cliente\",   \"=\", \"123456\" },;\n                    { \"2\", \"Direccion\", \"$\", \"Spain\" },;\n                    { \"3\", \"Telefono\",  \"&lt;&gt;\", \"889977665\" } }\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 30, 100\n\n   @ 1, 1 LISTBOX oBrw FIELDS aData[ oBrw:nAt ][ 1 ],;\n                              aData[ oBrw:nAt ][ 2 ],;\n                              aData[ oBrw:nAt ][ 3 ],;\n                              aData[ oBrw:nAt ][ 4 ] OF oDlg ;\n     SIZE 150, 100\n\n   oBrw:SetArray( aData )\n\n   @ 9 , 9 BUTTON \"&amp;End\" OF oDlg ACTION oDlg:End()\n\n\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n\n\nreturn nil\n\n*-------\n\nIn 32 bit mi da questo errore:\nApplication\n===========\n   Path and name: C:\\FWH24\\SAMPLES\\testar.exe (32 bits)\n   Size:   951,296 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 05/15/06, 21:54:07\n   Error description: Error BASE/1002  Alias does not exist\n\nMentre in fw24 tutto ok!\n\nGrazie \nPiscicelli/Zingoni','',0,'','3aukd8fa',1,0,'',125,0,0),(13240,3034,20,6,0,'87.16.213.218',1147725205,1,0,1,1,1,1,'','Re: Bug in piccolo testar.prg 32/bit','Confermato. Se vuoi segnala il problema ad Antonio nel forum in inglese.\n\nEMG','',0,'','yi0fq4cf',1,0,'',6,0,0),(13241,3015,3,6,0,'87.16.213.218',1147725352,1,0,1,1,1,1,'','Re: Classes inheritance.  How to ?','[quote=&quot;Gale FORd&quot;:2u6qcjwc]If you are creating a temporary stand alone class from scratch and you will not inherit from it then it is not required\n\nIf you plan on inheriting from your class or your class is inheriting from another,  then you will need to add it.[/quote:2u6qcjwc]\n\nNo, you will only need it if you are going to make a control. Not all classes are controls.\n\nEMG','',0,'gA==','2u6qcjwc',1,0,'',6,0,0),(13242,3015,3,303,0,'72.199.41.171',1147729368,1,0,1,1,1,0,'','','Enrico,\n\n&gt;No, you will only need it if you are going to make a control.\n\nAnd apparently you need it only sometimes when it is a control. For instance, the DBCombo class inherits from the TCombobox class but doesn\'t have lRegistered (and it works fine). Perhaps lRegistered should be added, but one wonders why it works without it.\n\nJames','',0,'gA==','1przwo0x',1,0,'',303,0,0),(13243,3024,3,49,0,'87.16.183.242',1147729709,1,0,1,1,1,1,'','','yes I have understand but i have the images into a directory How I can make to  make buttons in automatic ?','',0,'gA==','1tk1w1kb',1,0,'',49,0,0),(13244,2835,20,49,0,'87.16.183.242',1147729760,1,0,1,1,1,1,'','','grazie era quello che cercavo','',0,'gA==','27b37sxw',1,0,'',49,0,0),(13245,3015,3,6,0,'87.16.213.218',1147730148,1,0,1,1,1,1,'','','Because you are inheriting from a standard Windows control and not creating a new custom control.\n\nEMG','',0,'gA==','29najxav',1,0,'',6,0,0),(13246,3015,3,303,0,'72.199.41.171',1147734539,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Because you are inheriting from a standard Windows control and not creating a new custom control. \n\nThanks for clarifying that.\n\nJames','',0,'gA==','1ycst3gg',1,0,'',303,0,0),(13247,3024,3,303,0,'72.199.41.171',1147736016,1,0,1,1,1,0,'','','Silvio,\n\n&gt;yes I have understand but i have the images into a directory How I can make to make buttons in automatic ?\n\nI\'m not sure I understand your question. If you are asking how to define the buttons when you don\'t know how many there are, and the number might be changing? Or, is the number of buttons going to remain fixed just like the picture you showed?\n\nIf the number of buttons is fixed, then I would layout the dialog using a resource editor and then compile all the bitmaps into the EXE. \n\nIf the number is changing, then you are going to have to write some code to figure out the size of the dialog and the placement of the buttons depending on the number of buttons found.\n\nJames','',0,'gA==','15bs1omv',1,0,'',303,0,0),(13248,3035,6,52,0,'200.127.195.89',1147752394,1,0,1,1,1,1,'','Objetos...','Estimados,\n\n    Quiero incursionar en el tema objetos, creacion especificamente, alguien tiene algun tutorial al respecto?\n\nGracias.','',0,'gA==','1a614qoa',1,0,'',52,0,0),(13249,2862,1,550,0,'219.91.208.217',1147755349,1,0,1,1,1,0,'','','Hi Jeff\nThanks for the guidance.The problem I am getting is the variable would\'nt hold more than 65K.Does TTxtFile class contain a way to overcome the 65K limit ? Pls advice.\nThanks\nHi antonio\nThanks for the info.I will try it\nRajeev Chavan','',0,'gA==','rxrp50ae',1,0,'',550,0,0),(13250,2862,1,303,0,'72.199.41.171',1147762363,1,0,1,1,1,0,'','','Rajeev,\n\n&gt;The problem I am getting is the variable would\'nt hold more than 65K.Does TTxtFile class contain a way to overcome the 65K limit ?\n\nOnly by going to 32bit. 65K is the 16bit limit.\n\nJames','',0,'gA==','ft1onfjy',1,0,'',303,0,0),(13251,2988,23,130,0,'141.51.32.24',1147766666,1,0,1,1,1,0,'','','CLASS TRoadBook\n\nCLASSDATA lRegistered  // only, if the class is a control\n\nDATA ....\nDATA ....\n\nMETHOD New (&lt;Parameter&gt;) CONSTRUCTOR\nMETHOD End ()\nMETHOD ....\n\nENDCLASS\n\nand you call it from your app:\n\noRoadBook := TRoadBook():New (&lt;Parameter&gt;)\n\nThere are some interesting articles about it from James Bott\n\n[url:27i22pzo]http&#58;//ourworld&#46;compuserve&#46;com/homepages/jbott/program&#46;htm[/url:27i22pzo]\n\nStefan','',0,'EA==','27i22pzo',1,0,'',130,0,0),(13252,3014,7,262,0,'87.235.159.190',1147766694,1,0,1,1,1,1,'','','perdón se me olvido la funcion , yo la tengo asi :\n\n[code:3r8gz6gy]\nHB_FUNC&#40;SHOWSIP&#41;\n  &#123;\nSHFullScreen&#40;GetActiveWindow&#40;&#41;, SHFS_SHOWSIPBUTTON&#41;;\n&#125;\n[/code:3r8gz6gy]\n\nBiel , en este foro estamos para ayudarnos \n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nAlguna duda me surgirá , y ya te cobrare la ensaimada  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3r8gz6gy',1,0,'',262,0,0),(13253,3036,6,490,0,'80.24.224.89',1147770926,1,0,1,1,1,0,'','Errores aleatorios en CDX xHB','Hola,\n\nHaciendo unas pruebas de pasar una aplicación de 16 a 32 bits con CDX´s nativos de xHB (fwh2.7), me ha saltado aleatoriamente una ventana con un botón \"aceptar\" y se sale de la aplicación.\n\nPresenta 2 tipos de mensajes, algunas veces uno y otras otro:\n\nUNRECOVER ERROR 9108 HB_CDXBNEXTUNLOCK READ UNLOCK ERROR\n\ny \n\nUNRECOVERABLE ERROR 9201 HB_CDXPAGESEEKEY WRONG PARENT KEY\n\n\n¿Dónde puedo encontrar ayuda sobre estos errores, para intentar localizar el motivo que los genera?\n\nUn Saludo,\nJoaquín','',0,'AIA=','1e09493d',1,0,'',490,0,0),(13254,3037,7,262,0,'87.235.159.190',1147773511,1,0,1,1,1,1,'','problema en el ejemplo de make ?','me he decidido a usar el make de microsoft , y para empezar e ejecutado el ejemplo que se adjunta en la distribucion .\nNo lo he mirado mucho pero :\nel resultado es este \n[code:dxnxc6o5]\n\nC&#58;\\FWPPC\\makes\\fwcemake&gt;c&#58;\\vce\\bin\\nmake -ftest&#46;mak\n\nMicrosoft &#40;R&#41; Program Maintenance Utility   Version 6&#46;00&#46;8168&#46;0\nCopyright &#40;C&#41; Microsoft Corp 1988-1998&#46; All rights reserved&#46;\n\n        echo test&#46;obj one&#46;obj &gt; msvc&#46;tmp\n        echo c&#58;\\fwppc\\lib\\FiveCE&#46;lib c&#58;\\fwppc\\lib\\FiveCEC&#46;lib &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\rtl&#46;lib      &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\vm&#46;lib       &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\gtwin&#46;lib    &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\lang&#46;lib     &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\macro&#46;lib    &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\rdd&#46;lib      &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\dbfntx&#46;lib   &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\dbfcdx&#46;lib   &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\dbffpt&#46;lib   &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\hbsix&#46;lib    &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\debug&#46;lib    &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\common&#46;lib   &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\pp&#46;lib       &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\harbour_ce\\lib\\vc\\codepage&#46;lib &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\coredll&#46;lib  &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\corelibc&#46;lib &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\aygshell&#46;lib &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\ws2&#46;lib      &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\mfcce400&#46;lib &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\ole32&#46;lib    &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\ceshell&#46;lib  &gt;&gt; msvc&#46;tmp\n        echo c&#58;\\vce\\lib\\arm\\commctrl&#46;lib &gt;&gt; msvc&#46;tmp\n        IF EXIST test&#46;res echo test&#46;res &gt;&gt; msvc&#46;tmp\n        SET LIB=c&#58;\\vce\\lib\n        c&#58;\\vce\\bin\\link @msvc&#46;tmp /nologo /SUBSYSTEM&#58;WINDOWSCE,4&#46;20 /MACHINE&#58;ARM\n &gt; link&#46;log\nNMAKE &#58; fatal error U1077&#58; \'c&#58;\\vce\\bin\\link\' &#58; return code \'0x49d\'\nStop&#46;\n\nC&#58;\\FWPPC\\makes\\fwcemake&gt;\n\n\n[/code:dxnxc6o5]\n\n\ny me dice que leches .......\nSaludso.','',0,'AIA=','dxnxc6o5',1,0,'',262,0,0),(13255,3036,6,2,0,'87.218.146.128',1147775708,1,0,1,1,1,1,'','','Joaquín,\n\nHas probado a reindexar y ver si sigue apareciendo el error ?','',0,'AIA=','1nhx1dy8',1,0,'',2,0,0),(13256,3036,6,490,0,'80.24.224.89',1147776086,1,0,1,1,1,0,'','','Antonio,\n\nSe reindexa y empieza todo a funcionar bien, pero aleatoriamente durante el día de trabajo vuelve a dar el error.\n\n¿Donde viene la descripción de esos errores de xHB ? Me gustaría investigar la causa.\n\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','3vuab6kj',1,0,'',490,0,0),(13257,3037,7,2,0,'87.218.146.128',1147776718,1,0,1,1,1,1,'','','Jose Luis,\n\nSe debe a que el enlazador (link.exe) no encuentra un determinado archivo. Mira en link.log y verás cual es.','',0,'AIA=','3jkysku0',1,0,'',2,0,0),(13258,3036,6,2,0,'87.218.146.128',1147776850,1,0,1,1,1,1,'','','Joaquín,\n\nSería conveniente que lo probases con Borland, para ver si tambien falla.\n\nEn cuanto a los errores de xHB tendrás que contactar con sus desarrolladores.','',0,'AIA=','1eo8t3pg',1,0,'',2,0,0),(13259,3033,3,2,0,'87.218.146.128',1147777049,1,0,1,1,1,1,'','','Arí,\n\nSi pruebas samples\\TestGet2.prg y añades al final:\n\n   MsgInfo( nNum )\n\nverás que puedes intruducir un número negativo y que respeta bien el signo.','',0,'AIA=','1v4fyaue',1,0,'',2,0,0),(13260,3005,2,248,0,'212.145.179.68',1147778993,1,0,1,1,1,0,'','Como cierro el TAG de un indice','Mirar a ver si te sirve:\n\nDBCLEARINDEX() cierra los índices activos en al área de trabajo actual.\n     Se escriben las actualizaciones y se cierran los ficheros de índice.','',0,'AIA=','3cgseps2',1,0,'',248,0,0),(13261,3036,6,490,0,'80.24.224.89',1147781074,1,0,1,1,1,0,'','','Antonio,\n\nLa compilación siempre la hemos hecho con Borland. ¿A que te refieres?\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','3m01wizm',1,0,'',490,0,0),(13262,3037,7,262,0,'83.97.168.142',1147783573,1,0,1,1,1,1,'','','encontrado  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nLINK :fatal error LNK1181: cannot open input file \'c:\\harbour_ce\\lib\\vc\\rtl.lib\'\n\nel problema esta en el mak \n\n\n[code:3tycpjsy] \n    &#46;&#46;&#46;\n    &#46;&#46;&#46;&#46;\n   echo $&#40;HBDIR&#41;\\lib\\vc\\rtl&#46;lib      &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\vc\\vm&#46;lib       &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\vc\\gtwin&#46;lib    &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\vc\\lang&#46;lib     &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\vc\\macro&#46;lib    &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\vc\\rdd&#46;lib      &gt;&gt; msvc&#46;tmp\n&#46;&#46;&#46;&#46;\n\n\n[/code:3tycpjsy]\n\nsi se tiene instalado el paquete por defecto ( la distribucion de fwpcc )\n\ndeberia ser \n[code:3tycpjsy]\n &#46;&#46;&#46;&#46;\n   echo $&#40;HBDIR&#41;\\lib\\rtl&#46;lib      &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\vm&#46;lib       &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\gtwin&#46;lib    &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\lang&#46;lib     &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\macro&#46;lib    &gt;&gt; msvc&#46;tmp\n   echo $&#40;HBDIR&#41;\\lib\\rdd&#46;lib      &gt;&gt; msvc&#46;tmp\n&#46;&#46;&#46;&#46;\n\n[/code:3tycpjsy]\n\nCreo que se debería corregir en la distribucion ...\n\n[/code]','',0,'AIA=','3tycpjsy',1,0,'',262,0,0),(13263,3038,3,264,0,'200.91.3.10',1147787509,1,0,1,1,1,0,'','How create a dll to return values ?','I need create a dll to return a value \nHow must be created ?\nThanks.\n\n( fw+h last version mar/07 )\n\n------spanish on------------\nNecesito crear un dll para retornar un valor a otra aplicacion.\nComo se hace la dll para que esto ocurra ?\n\nGracias de antemano.\n\n(No se siquiera como crear la DLL)','',0,'AIA=','mmdag0ir',1,0,'',264,0,0),(13264,3039,1,204,0,'87.203.70.238',1147787663,1,0,1,1,1,0,'','Catching errorlevel from old dos app','Hello all\nHow can I determine what error code a dos app returns. I’m using the blat command line mailer. When the email doesn’t get sent the app returns an non zero errorlevel code. Is there a way to get that code without writing a second app to trap it and pass it along to the main app through a file or something. For exaple\n\n[code:3l9f57k3]\nnError &#58;= WaitRun&#40;‘BLAT&#46;EXE &#46;\\BODY&#46;HTM –s “Test email 11” –t dummy@dummy&#46;dum –html  -noh2 –try 3’&#41;\n[/code:3l9f57k3]\n\nAlso can the command be passed to WaitRun through a var.\nThank you','',0,'AIA=','3l9f57k3',1,0,'',204,0,0),(13265,3040,6,449,0,'212.64.224.249',1147787848,1,0,1,1,1,1,'','ADS -&gt; AdsGetFieldType y AdsGetMemoDataType','Hola,\n\nAlguien tiene codificadas las funciones AdsGetMemoDataType() y/o AdsGetFieldType() ?. No consigo afinarlas  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nAdsGetFieldType()\n[code:38xrvykf]Syntax\n\nUNSIGNED32 AdsGetFieldType &#40;ADSHANDLE hTable, UNSIGNED8 *pucFldName, UNSIGNED16 *pusType&#41;;\n\nParameters\n\nhTable  &#40;I&#41; Handle of table or cursor&#46;\n\npucFldName  &#40;I&#41; Name of field&#46;\n\npusType  &#40;O&#41; Retrieves the type of the field &#40;ADS_LOGICAL, ADS_NUMERIC, ADS_DATE, ADS_STRING, ADS_CISTRING, ADS_MEMO, ADS_VARCHAR, ADS_COMPACTDATE, ADS_DOUBLE, ADS_INTEGER, ADS_IMAGE, ADS_BINARY; ADS_SHORTINT; ADS_TIME; ADS_TIMESTAMP; ADS_AUTOINC; ADS_RAW; ADS_CURDOUBLE, ADS_MONEY&#41;[/code:38xrvykf]\n\nAdsGetMemoDataType()\n\n[code:38xrvykf]Syntax\n\nUNSIGNED32 AdsGetMemoDataType &#40;ADSHANDLE hTable,  UNSIGNED8 *pucFldName, UNSIGNED16 *pusType&#41;; \n\nParameters\n\nhTable  &#40;I&#41;	Handle of table or cursor&#46;\n\npucFldName  &#40;I&#41;	Name of the field to check memo type&#46;\n\npusType  &#40;I&#41;	Buffer in which to return the type of memo&#46; This will be one of the following&#58; ADS_MEMO, ADS_BINARY, or ADS_IMAGE&#46;[/code:38xrvykf]\n\n\nGracias por el cable.','',0,'AIA=','38xrvykf',1,0,'',449,0,0),(13266,3041,3,6,0,'82.57.159.249',1147788820,1,0,1,1,1,1,'','Bug in cGetFile()','This is a sample (try to select text.txt):\n\n[code:3mn2i1xt]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL cDir &#58;= REPLICATE&#40; &quot;X&quot;, 128 &#41;\n\n    LMKDIR&#40; cDir &#41;\n\n    MEMOWRIT&#40; cDir + &quot;\\&quot; + &quot;test&#46;txt&quot;, &quot;This is a test&quot; &#41;\n\n    ? CGETFILE32&#40; &quot;All files &#40;*&#46;*&#41;|*&#46;*&quot;, &quot;Select a file&quot;, , CURDRIVE&#40;&#41; + &quot;&#58;\\&quot; + CURDIR&#40;&#41; + &quot;\\&quot; + cDir &#41;\n\n    RETURN NIL[/code:3mn2i1xt]\n\nThe problem seems to be that the memory allocated for the selected path+filename is limited to 128 bytes while the maximum length allowed by the file system is 256.\n\nEMG','',0,'AIA=','3mn2i1xt',1,0,'',6,0,0),(13267,3039,1,6,0,'82.57.159.249',1147788927,1,0,1,1,1,1,'','Re: Catching errorlevel from old dos app','Try ErrorLevel() function.\n\nEMG','',0,'AIA=','9ayz3eba',1,0,'',6,0,0),(13268,3038,3,6,0,'82.57.159.249',1147789079,1,0,1,1,1,1,'','Re: How create a dll to return values ?','Are you asking how to create a DLL or just how to return a value? You can use C language to create a DLL and return statement to return a value.\n\nEMG','',0,'AIA=','2kswf7jx',1,0,'',6,0,0),(13269,3042,6,278,0,'164.77.219.42',1147789379,1,0,1,1,1,1,'','Como evitar el uso de la dll prev32.dll','Hola a todos:\n\nNecesito una ayuda, cuales son los prg que debo modificar para poder dejar de usar el preview prev32.dll y poder llamar a los recursos de mi propio rc ? \n\nQuiero que quede integrada en la aplicación , sin necesidad de llamar a una dll externa.  Gracias por cualquier ayuda.','',0,'AIA=','2mf0v6cx',1,0,'',278,0,0),(13270,3043,1,569,0,'201.248.249.192',1147789907,1,0,1,0,1,0,'','coordenadas en DOS','Saludos y disculpen mi ignorancia, pero es que soy demasiado nuevo o \nmejor dicho un recien llegado al maravilloso mundo del FIVEWIN.\nTengo varios buenos programas en clipper-DOS como puedo hacer para\nconvertir las coordenadas del DOS a FIVEWIN sin perder la posicion relativa que tenia en el DOS, gracias anticipadamente.\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','3b40adux',1,0,'',569,0,0),(13271,3039,1,204,0,'87.203.70.238',1147790186,1,0,1,1,1,0,'','','Here is a beeter example.\n\n[code:1dkofsb2]\n// erelvl&#46;prg\n#include &quot;fivewin&#46;ch&quot;\n\nPROCEDURE Main&#40;&#41;\n  LOCAL nErr\n\n  nErr &#58;= WaitRun&#40;&quot;tst2&#46;exe&quot;&#41;\n  MSGInfo&#40;nErr&#41;\n  MSGInfo&#40;errorlevel&#40;&#41;&#41; // returns 0\nRETURN\n\n// tst2&#46;prg\n? &quot;hello to you&quot;\nerrorlevel&#40;1&#41;\ninkey&#40;3&#41;\n[/code:1dkofsb2]','',0,'AIA=','1dkofsb2',1,0,'',204,0,0),(13272,3044,1,569,0,'201.248.249.192',1147790298,1,0,1,0,1,0,'','diferencias entre el HARBOUR y el XHARBOUR','SALUDOS: favor indicarme las diferencias mas importantes entre los dos\nproductos antes mencionados, pienso que si recien ingreso a este mundo \ny ya que tengo algo de experiencia en CLIPPER, porque no hacerlo directamente con el HHARBOUR, i disculpen mi INMODESTIA\nSaludos y Gracias\nRODOLFO SILVA \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','1rhfkq4n',1,0,'',569,0,0),(13273,2862,1,550,0,'203.187.209.43',1147791123,1,0,1,1,1,0,'','','Hi Jeff\nWhat is the limit for 32bit ? In case the file I am downloading is huge \nThanks\nRajeev chavan','',0,'AIA=','d3g9fcdw',1,0,'',550,0,0),(13274,2862,1,6,0,'82.57.159.249',1147791189,1,0,1,1,1,1,'','','The limit is the available memory.\n\nEMG','',0,'AIA=','2cj76m7d',1,0,'',6,0,0),(13275,3039,1,6,0,'82.57.159.249',1147791299,1,0,1,1,1,1,'','','Sorry, I don\'t think that ErrorLevel() function can help you.\n\nEMG','',0,'AIA=','19kyb2tv',1,0,'',6,0,0),(13276,3041,3,26,0,'84.255.245.173',1147792211,1,0,1,1,1,1,'','','I confirm:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1843&amp;highlight=cgetfile\">http://fivetechsoft.com/forums/viewtopi ... t=cgetfile</a><!-- m -->\n\nBTW, in your source you use cGetFile32.\n\nRoman','',0,'AIA=','1ilwqo48',1,0,'',26,0,0),(13277,3045,3,125,0,'194.243.7.199',1147792896,1,0,1,1,1,0,'','Bug report on listbox','I cannot run this example in fwh:\n\n#include \"FiveWin.ch\" \n\n//----------------------------------------------------------------------------// \nfunction Main() \n\nlocal oDlg, oBrw \nlocal aData := { { \"1\", \"Cliente\", \"=\", \"123456\" },; \n{ \"2\", \"Direccion\", \"$\", \"Spain\" },; \n{ \"3\", \"Telefono\", \"&lt;&gt;\", \"889977665\" } } \n\nDEFINE DIALOG oDlg FROM 0, 0 TO 30, 100 \n\n@ 1, 1 LISTBOX oBrw FIELDS aData[ oBrw:nAt ][ 1 ],; \naData[ oBrw:nAt ][ 2 ],; \naData[ oBrw:nAt ][ 3 ],; \naData[ oBrw:nAt ][ 4 ] OF oDlg ; \nSIZE 150, 100 \n\noBrw:SetArray( aData ) \n\n@ 9 , 9 BUTTON \"&amp;End\" OF oDlg ACTION oDlg:End() \n\n\n\nACTIVATE DIALOG oDlg CENTERED \n\n\nany help?\nPiscicelli/Zingoni','',0,'','1pz42x5h',1,0,'',125,0,0),(13278,3046,19,26,0,'84.255.245.173',1147793357,1,0,1,1,1,1,'','Slovenia wins euro (€) green light','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.rte.ie/business/2006/0516/euro.html\">http://www.rte.ie/business/2006/0516/euro.html</a><!-- m -->\n[quote:7et9b4sl]The EU executive\'s recommendation opens the way for Slovenia to  become the first former communist country to join the currently 12-nation currency club on January 1, 2007. [/quote:7et9b4sl]\n\n\"EU Vetoes Lithuanian Euro Entry, Endorses Slovene Bid\"\n<!-- m --><a class=\"postlink\" href=\"http://www.bloomberg.com/apps/news?pid=10000085&amp;sid=aMdtYISF.ucE&amp;refer=europe\">http://www.bloomberg.com/apps/news?pid= ... fer=europe</a><!-- m -->\n[quote:7et9b4sl]Lithuania\'s macro-economic performance is one of the best in present Europe including budget, interest rates and growth,\'\' said Gitanas Nauseda, chief analyst with SEB Vilniaus Bankas. ``It\'s a shame the EU didn\'t appreciate it.\'\' [/quote:7et9b4sl]\n\nRoman','',0,'gA==','7et9b4sl',1,0,'',26,0,0),(13279,3041,3,6,0,'82.57.159.249',1147793705,1,0,1,1,1,1,'','','Ops, sorry. Anyway, same behaviour.\n\nEMG','',0,'gA==','174p0um2',1,0,'',6,0,0),(13280,3044,1,9,0,'80.103.166.81',1147794951,1,0,1,1,1,1,'','','Rodolfo,\n\nEn primer lugar indicarte que está utilizando el foro en INGLES. Si te fijas en la página inicial del foro, existe un FIVEWIN PARA HARBOUR/XHARBOUR que es en español.\n\nA lo que preguntas, Harbour es un compilador clónico de Clipper a 32 bit. xHarbour (la x es de extended) es una derivación de Harbour y contiene, además,  comandos y funciones que no contiene el viejo y querido Clipper.\n\nMi opinión personal es que entre los dos, me quedo con xHarbour.','',0,'gA==','190tusut',1,0,'',9,0,0),(13281,3042,6,41,0,'200.87.67.10',1147795257,1,0,1,1,1,0,'','','Hola,\n\nsolo en el rpreview.prg  quita los SET RESOURCE TO\n\nsaludos\n\nMarcelo','',0,'gA==','34dn5vmg',1,0,'',41,0,0),(13282,3041,3,26,0,'84.255.245.173',1147795447,1,0,1,1,1,1,'','','Hello!\n\n[quote:3dyd4cu3]... while the maximum length allowed by the file system is 256.[/quote:3dyd4cu3]\n\n\"How can I use path names longer than 255 characters?\"\n<!-- m --><a class=\"postlink\" href=\"http://www.windowsitpro.com/Article/ArticleID/14607/14607.html\">http://www.windowsitpro.com/Article/Art ... 14607.html</a><!-- m -->\n[quote:3dyd4cu3]A. Windows NT has a maximum path size defined as MAX_PATH which is 255 characters. It is possible to use more characters by calling the wide (W) version of CreateFile and prefixing \"\\\\?\\\" to the path. The \"\\\\?\\\" tells the function to turn off path parsing. This lets you use paths that are nearly 32,000 Unicode characters long. You must use fully-qualified paths with this technique. This also works with UNC names.\n\nThe \"\\\\?\\\" is ignored as part of the path.\n\nFor example, \"\\\\?\\D:\\documents\\faq.txt\" is seen as \"D:\\documents\\faq.txt\".\n\nPrograms expecting to find legal file lengths may fall over attempting to open a file with a long path. If, for example the buffer they are putting the path into expects a legal file length.[/quote:3dyd4cu3]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.osronline.com/showThread.CFM?link=91868\">http://www.osronline.com/showThread.CFM?link=91868</a><!-- m -->\n[quote:3dyd4cu3]The maximum length of a file/folder is a problem.  Almost everything in\nWindows uses a MAXIMUM_FILENAME_LENGTH of 256 and MAX_PATH of 260.  But\nthere is also a MAXPATHLEN parameter which is 1024.  Any single element of\nthe path is limited to 255 characters.\n\nBut the Unicode versions of several functions permit a maximum path length\nof 32,767 characters, composed of components up to 255 characters in length.\nTo specify such a path, use the \"\\\\?\\\" prefix.  For example,\n\"\\\\?\\D:\\&lt;path&gt;\".  But many functions don\'t handle this.\n\nSo 260 *usually* works, but 32K is guaranteed to work.  (Note that this is\ncharacters, not bytes -- each Unicode character is 2 bytes.)[/quote:3dyd4cu3]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.cygwin.com/ml/cygwin/2004-10/msg01330.html\">http://www.cygwin.com/ml/cygwin/2004-10/msg01330.html</a><!-- m -->\n[quote:3dyd4cu3]CreateFileA on an nt-based system just converts all strings from MBCS to \nUnicode via the current locale\'s code page, and then calls CreateFileW. \nCreateFileA is always limited to MAX_PATH.\n\nOn Win98/WinME, it works differently.   There is no routine called \nNtCreateFile.\n\nCreateFileW is a dummy routine that always returns an error, unless you \nlink with the Microsoft Layer for Unicode (Unicows.dll).  Unicows.dll \ntranslates all UNICODE argument strings to the current code page, and \ncalls CreateFileA.\n\nSo you can always link with CreateFileW, since it always exists, but it \nmay not be functional.\n\nThe special \\\\?\\ prefix doesn\'t do what you want on Win9x systems, as you \nalways go through CreateFileA, so paths are always limited to MAX_PATH.[/quote:3dyd4cu3]\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/naming_a_file.asp\">http://msdn.microsoft.com/library/defau ... a_file.asp</a><!-- m -->\n\nRoman','',0,'gA==','3dyd4cu3',1,0,'',26,0,0),(13283,3038,3,264,0,'200.91.3.10',1147795633,1,0,1,1,1,0,'','','enrico, really both !!\ni dont know how it makes.\nsorry\ncan\'t u help my ?','',0,'gA==','r5a6ala5',1,0,'',264,0,0),(13284,3038,3,6,0,'82.57.159.249',1147796887,1,0,1,1,1,1,'','','This is a sample:\n\n[code:2xujw5rh]#define STRICT\n#define WIN32_LEAN_AND_MEAN\n\n\n#include &lt;windows&#46;h&gt;\n\n\nBOOL APIENTRY DllMain&#40; HINSTANCE hinstDLL, DWORD dwReason, LPVOID lpvReserved &#41;\n&#123;\n    return TRUE;\n&#125;\n\n\nHENHMETAFILE APIENTRY __declspec&#40; dllexport &#41; Wmf2Emf&#40; LPCTSTR cWMF &#41;\n&#123;\n    HMETAFILE hWMF = GetMetaFile&#40; cWMF &#41;;\n\n    UINT nSize = GetMetaFileBitsEx&#40; hWMF, 0, NULL &#41;;\n\n    LPVOID lpvData = HeapAlloc&#40; GetProcessHeap&#40;&#41;, 0, nSize &#41;;\n\n    HENHMETAFILE hEMF;\n\n    GetMetaFileBitsEx&#40; hWMF, nSize, lpvData &#41;;\n\n    hEMF = SetWinMetaFileBits&#40; nSize, lpvData, 0, NULL &#41;;\n\n    HeapFree&#40; GetProcessHeap&#40;&#41;, 0, lpvData &#41;;\n\n    DeleteMetaFile&#40; hWMF &#41;;\n\n    return hEMF;\n&#125;\n\n/*\nHENHMETAFILE APIENTRY __declspec&#40; dllexport &#41; hWmf2Emf&#40; HDC hDC, HMETAFILE hWMF &#41;\n&#123;\n    UINT nSize = GetMetaFileBitsEx&#40; hWMF, 0, NULL &#41;;\n\n    LPVOID lpvData = HeapAlloc&#40; GetProcessHeap&#40;&#41;, 0, nSize &#41;;\n\n    HENHMETAFILE hEMF;\n\n    GetMetaFileBitsEx&#40; hWMF, nSize, lpvData &#41;;\n\n    hEMF = SetWinMetaFileBits&#40; nSize, lpvData, hDC, NULL &#41;;\n\n    HeapFree&#40; GetProcessHeap&#40;&#41;, 0, lpvData &#41;;\n\n    return hEMF;\n&#125;\n*/\n\nBOOL APIENTRY __declspec&#40; dllexport &#41; PlayEMF&#40; HDC hDC, HENHMETAFILE hEMF &#41;\n&#123;\n    ENHMETAHEADER emh;\n\n    if &#40; !GetEnhMetaFileHeader&#40; hEMF, sizeof&#40; emh &#41;, &amp;emh &#41; &#41;\n        return FALSE;\n\n    return PlayEnhMetaFile&#40; hDC, hEMF, &#40; CONST RECT * &#41; &amp;emh&#46;rclBounds &#41;;\n&#125;\n\n/*\nBOOL APIENTRY __declspec&#40; dllexport &#41; PlayEMF2&#40; HDC hDC, HENHMETAFILE hEMF &#41;\n&#123;\n    ENHMETAHEADER emh;\n\n    if &#40; !GetEnhMetaFileHeader&#40; hEMF, sizeof&#40; emh &#41;, &amp;emh &#41; &#41;\n        return FALSE;\n\n    return PlayEnhMetaFile&#40; hDC, hEMF, &#40; CONST RECT * &#41; &amp;emh&#46;rclFrame &#41;;\n&#125;\n*/\n\nBOOL APIENTRY __declspec&#40; dllexport &#41; DeleteEMF&#40; HENHMETAFILE hEMF &#41;\n&#123;\n    return DeleteEnhMetaFile&#40; hEMF &#41;;\n&#125;[/code:2xujw5rh]\n\nLet me know if you have any question on this code.\n\nEMG','',0,'AIA=','2xujw5rh',1,0,'',6,0,0),(13285,3038,3,264,0,'200.91.3.10',1147798128,1,0,1,1,1,0,'','','Enrico.\nI want create a DLL via fw + Harbour.\nThats is my question. Is Harbour prepared to create a DLL not like \"RC container\", like \"function container\".\nThat is the right question.\nSorry for my english.\n\n------spanish on-------------\nEnrico\nQuiero crear una DLL via fw+h. \nEsa es mi pregunta. Esta Harbour preparado para crear DLL no como \"contenedor de RC\" sino como \"contenedor de funcinoes\".\nEsa es la pregunta correcta.\nGracias de antemano.','',0,'AIA=','27twz02r',1,0,'',264,0,0),(13286,3047,6,264,0,'200.91.3.10',1147798273,1,0,1,1,1,0,'','Como crear una DLL de funciones con FW+H','Quiero crear una DLL via fw+h. \nEsta Harbour preparado para crear DLL no como \"contenedor de RC\" sino como \"contenedor de funciones\".\nGracias de antemano.\nSi tienen algun ejemplo quedaria agradecido.','',0,'AIA=','7sfbmpkv',1,0,'',264,0,0),(13287,3037,7,2,0,'87.218.146.219',1147799731,1,0,1,1,1,1,'','','Jose Luis,\n\nCorregido. Gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','19hzmkxm',1,0,'',2,0,0),(13288,3036,6,2,0,'87.218.146.219',1147799849,1,0,1,1,1,1,'','','Joaquín,\n\nUsamos las siglas xHB para xHarbour Builder que usa el Pelles C. Entiendo que tu te referías a xharbour.\n\nIntenta reproducir el problema en un ejemplo y se lo enviamos a Przemek que seguro te lo agradecerá.','',0,'AIA=','14vifzbw',1,0,'',2,0,0),(13289,3046,19,2,0,'87.218.146.219',1147799923,1,0,1,1,1,1,'','','Congratulations <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','37ewqs8d',1,0,'',2,0,0),(13290,10,6,579,0,'148.223.141.242',1147800047,1,0,1,1,1,1,'','En hora buena!!!','Me parece GENIAL esta idea. Tenía mucho tiempo de no poder entrar a este foro ya que en la empresa en la que trabajo no se puede entrar a las NEWS.\n\nSuerte!!','',0,'AIA=','1hr4boiv',1,0,'',579,0,0),(13291,3048,1,312,0,'207.236.106.238',1147801416,1,0,1,1,1,0,'','Adding/Removing  tabstop','I was wondering if there was a way to add or remove the WS_TABSTOP from a get on a dialog ? The dialog is from an RC file and could also be from a dll file','',0,'AIA=','1kdjmq8r',1,0,'',312,0,0),(13292,3048,1,6,0,'82.57.159.249',1147802129,1,0,1,1,1,1,'','Re: Adding/Removing  tabstop','Can\'t you just disable the control you don\'t want to have tabstop?\n\nEMG','',0,'AIA=','1yeilixr',1,0,'',6,0,0),(13293,3038,3,6,0,'82.57.159.249',1147802249,1,0,1,1,1,1,'','','I think you can\'t.\n\nEMG','',0,'AIA=','3d9yiyjd',1,0,'',6,0,0),(13294,3049,2,180,0,'83.35.123.69',1147802714,1,0,1,1,1,0,'','Filtrado de registros en LISTBOX con CDX','En un LISTBOX muestro los registros que cumplen una condición elegida desde un COMBOBOX. Según la opción elegida cambio el índice activo y con TOPSCOPE Y BOTTOMSCOPE filtro los registro a mostrar. Todo funciona perfectamente menos cuando no existen registros según la condición especificada. En este caso se produce un cuelgue del programa.\nAlguna explicación ?\n\nUso fivewin 2.3 y blinker 6.0','',0,'AIA=','ud64350y',1,0,'',180,0,0),(13295,3050,6,579,0,'148.223.141.242',1147802942,1,0,1,1,1,1,'','DBase para XP','El dbwide es una excelente herramienta para trabajar archivos DBF pero no puede sustituir el dBase o el Fox para poder trabajar los archivos.\n\nAlguien sabe de algun equivalente de dBase o Fox que trabaje bajo Windows XP?\n\n\'chas gracias','',0,'AIA=','3h0x7d8q',1,0,'',579,0,0),(13296,3038,3,264,0,'200.91.3.10',1147804817,1,0,1,1,1,0,'','','ok, thanks again.','',0,'AIA=','3nvwwkqy',1,0,'',264,0,0),(13297,2998,6,579,0,'148.223.141.242',1147805670,1,0,1,1,1,1,'','','Si te posicionas al inicio del campo y oprimes [Shift-Flecha derecha] para marcar el texto y despues [Ctrl-C] se copia. Luego [Ctrl-V] para pegarlo donde quieras. Espero que te sirva. Salu2','',0,'','dp4stfu7',1,0,'',579,0,0),(13298,3036,6,362,0,'200.168.52.156',1147806455,1,0,1,1,1,1,'','','Compara por favor -&gt; Estoy Usando [x]Harbour 0.99.61 y Usted??\n\n\\FwH27\\lib\\FiveHX.lib                   +\n\\FwH27\\lib\\FiveHC.lib                   +\n\\xHarbour\\Lib\\Ace32.Lib                 +\n\\xHarbour\\Lib\\RddAds.Lib		+\n\\xHarbour\\lib\\hbzip.lib                 +\n\\xHarbour\\lib\\rtl.lib			+\n\\xHarbour\\lib\\vm.lib                    +\n\\xHarbour\\lib\\gtwin.lib			+\n\\xHarbour\\lib\\lang.lib			+\n\\xHarbour\\lib\\macro.lib			+\n\\xHarbour\\lib\\rdd.lib			+\n\\xHarbour\\lib\\dbfntx.lib		+\n\\xHarbour\\lib\\dbfcdx.lib		+\n\\xHarbour\\lib\\dbfdbt.lib		+\n\\xHarbour\\lib\\debug.lib			+\n\\xHarbour\\lib\\common.lib                +\n\\xHarbour\\lib\\tip.lib                   +\n\\xHarbour\\lib\\pp.lib			+\n\\xHarbour\\lib\\dbffpt.lib                +\n\\xHarbour\\lib\\codepage.lib              +\n\\xHarbour\\lib\\libmisc.lib               +\n\\xHarbour\\lib\\HbCt.lib                  +\n\\xHarbour\\lib\\HbSix.lib                 +\n\\xHarbour\\lib\\HbComm.lib                +\n\\Borland\\Bcc55\\lib\\cw32.lib             +\n\\Borland\\Bcc55\\lib\\psdk\\msimg32.lib     +\n\\Borland\\Bcc55\\lib\\psdk\\odbc32.lib      +\n\\Borland\\Bcc55\\lib\\psdk\\rasapi32.lib    +\n\\Borland\\Bcc55\\lib\\psdk\\nddeapi.lib     +\n\\Borland\\Bcc55\\lib\\psdk\\iphlpapi.lib    +\n\\Borland\\Bcc55\\lib\\import32.lib\n\nAl Re-indexar...\n\n#Include \"Directry.Ch\"\n\n    AEVAL(DIRECTORY( \"CLIENTES.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"FORNECE.cdx\"  ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"VENDEDOW.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"ORCAME.cdx\"   ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"ARECEBER.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"APAGAR.cdx\"   ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"COLETA.cdx\"   ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"PRODUCAO.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"AGENDA.cdx\"   ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"CWAGENDA.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n    AEVAL(DIRECTORY( \"RETIRADA.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } )\n\nTienes ke EXCLUIR, todos los indices CDX ...','',0,'','iuhhuu6s',1,0,'',362,0,0),(13299,3050,6,362,0,'200.168.52.156',1147806896,1,0,1,1,1,1,'','','//-&gt; Puedes continuar usando FOX BASE normalmente en WINDOWS XP, te basta\n//-&gt; Crear um ARCHIVO.BAT com el nombre FOX.BAT y copiar para C:\\WINDOWS\n\nREM FOX.BAT\n\n@ECHO OFF\nMODE 80,25\nMODE CON LINES=25\nSET ALLUSERSPROFILE=\nSET APPDATA=\nSET CLIENTNAME=\nSET CommonProgramFiles=\nSET COMPUTERNAME=\nSET ComSpec=\nSET FP_NO_HOST_CHECK=\nSET HOMEDRIVE=\nSET HOMEPATH=\nSET LOGONSERVER=\nSET NUMBER_OF_PROCESSORS=\nSET OS=\nSET Path=\nSET PATHEXT=\nSET PROCESSOR_ARCHITECTURE=\nSET PROCESSOR_IDENTIFIER=\nSET PROCESSOR_LEVEL=\nSET PROCESSOR_REVISION=\nSET ProgramFiles=\nSET PROMPT=\nSET SESSIONNAME=\nSET SystemDrive=\nSET SystemRoot=\nSET TEMP=\nSET TMP=\nSET USERDOMAIN=\nSET USERNAME=\nSET USERPROFILE=\nSET windir=\n\\FOXBASE\\FOX.EXE\nSET ALLUSERSPROFILE=C:\\Documents and Settings\\All Users\nSET APPDATA=C:\\Documents and Settings\\micro\\Dados de aplicativos\nSET CLIENTNAME=Console\nSET CommonProgramFiles=C:\\Arquivos de programas\\Arquivos comuns\nSET COMPUTERNAME=ESCRITORIO\nSET BComSpec=C:\\WINDOWS\\system32\\cmd.exe\nSET FP_NO_HOST_CHECK=NO\nSET HOMEDRIVE=C:\nSET HOMEPATH=\\Documents and Settings\\micro\nSET LOGONSERVER=\\\\ESCRITORIO\nSET NUMBER_OF_PROCESSORS=1\nSET OS=Windows_NT\nSET Path=C:\\WINDOWS\\system32;C:\\WINDOWS;C:\\WINDOWS\\System32\\Wbem\nSET PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH\nSET PROCESSOR_ARCHITECTURE=x86\nSET PROCESSOR_IDENTIFIER=x86 Family 15 Model 2 Stepping 9, GenuineIntel\nSET PROCESSOR_LEVEL=15\nSET PROCESSOR_REVISION=0209\nSET ProgramFiles=C:\\Arquivos de programas\nSET PROMPT=$P$G\nSET SESSIONNAME=Console\nSET SystemDrive=C:\nSET SystemRoot=C:\\WINDOWS\nSET TEMP=C:\\DOCUME~1\\micro\\CONFIG~1\\Temp\nSET TMP=C:\\DOCUME~1\\micro\\CONFIG~1\\Temp\nSET USERDOMAIN=ESCRITORIO\nSET USERNAME=micro\nSET USERPROFILE=C:\\Documents and Settings\\micro\nSET windir=C:\\WINDOWS','',0,'','268nlyyi',1,0,'',362,0,0),(13300,3035,6,362,0,'200.168.52.156',1147806998,1,0,1,1,1,1,'','Re: Objetos...','[quote=&quot;goosfancito&quot;:3q5if1bi]Estimados,\n\n    Quiero incursionar en el tema objetos, creacion especificamente, alguien tiene algun tutorial al respecto?\n\nGracias.[/quote:3q5if1bi]\n\nNO TE COMPRENDO... EXPLICA MEJOR... Gracias.','',0,'gA==','3q5if1bi',1,0,'',362,0,0),(13301,3038,3,2,0,'87.218.146.219',1147807939,1,0,1,1,1,1,'','','Este documento explica como crear DLLs con Harbour/xHarbour:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01cdd50783/windll.txt.html\">http://hyperupload.com/download/01cdd50 ... l.txt.html</a><!-- m -->','',0,'gA==','3t1te1ab',1,0,'',2,0,0),(13302,3035,6,2,0,'87.218.146.219',1147808153,1,0,1,1,1,1,'','','Gustavo,\n\nEl código fuente de las clases de FWH son un muy buen ejemplo de creación y uso de objetos.','',0,'gA==','285f1d1r',1,0,'',2,0,0),(13303,3047,6,2,0,'87.218.146.219',1147808223,1,0,1,1,1,1,'','','Sí se puede. Existen tres formas. Lee el siguiente documento:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01cdd50783/windll.txt.html\">http://hyperupload.com/download/01cdd50 ... l.txt.html</a><!-- m -->','',0,'gA==','sbl3j7r7',1,0,'',2,0,0),(13304,3038,3,6,0,'82.57.159.249',1147808855,1,0,1,1,1,1,'','','Ok, but it seems too limited, in my opinion. Or am I wrong?\n\nEMG','',0,'gA==','3nq7rl53',1,0,'',6,0,0),(13305,3038,3,264,0,'200.91.3.10',1147808856,1,0,1,1,1,0,'','','Antonio. Mi SpyWare indica:\n\n[b:3o56lfnm]\"PC Tools Spyware Doctor le ha impedido el acceso a este sitio sospechoso de contenido dañino.\"[/b:3o56lfnm]\n\nPodrias enviarlo por correo ?\n<!-- e --><a href=\"mailto:jgv@random.cl\">jgv@random.cl</a><!-- e -->','',0,'QA==','3o56lfnm',1,0,'',264,0,0),(13306,2824,6,579,0,'148.223.141.242',1147814100,1,0,1,1,1,1,'','','Si tengo el mismo EXE en 2 o mas carpetas diferentes, como le hago para que se pueda correr el mismo EXE de otra carpeta pero que no se corra mas de una vez el de la misma carpeta?','',0,'QA==','3ged6szh',1,0,'',579,0,0),(13307,2824,6,264,0,'200.91.3.10',1147814576,1,0,1,1,1,0,'','','Tas mu shiko pa\'preguntar esas kosas...','',0,'QA==','pryn22tt',1,0,'',264,0,0),(13308,2824,6,579,0,'148.223.141.242',1147814963,1,0,1,1,1,1,'','','No has oido hablar de los niños genios?  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> jajaja, solo agregale bigote y barba y soy yo (bueno, eso dice mi esposa).\n\nYa te burlaste de mi pero .... la respues es....?','',0,'QA==','2ll81dcm',1,0,'',579,0,0),(13309,1319,1,569,0,'201.248.249.192',1147815964,1,0,1,0,1,0,'','Re: migracion de ca clipper a fivewin','Anabel:\nCreo que ya respondieron a tu pregunta:\nSi puedo ayudarte en algo; tengo el BLINEKER 7, y el clipper 5.3b, que creo es el ultimo y mejor de los que han salido, yo tambien soy \"NUEVON\"\nen esta excelente herramienta que es el FIVEWIN, y estoy pasando los mismos apuros, que tu para la migracion.\nTrabajo con una herramienta adicional GENIFER que es un excelente generador de aplicaciones para CLIPPER.\nSi te interesan hazme llegar un email y te los hare llegar con mucho gusto.\nRODOLFO SILVA \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'QA==','95xecsd5',1,0,'',569,0,0),(13310,2824,6,264,0,'200.91.3.10',1147816233,1,0,1,1,1,0,'','','No tengo la respuesta, mi pregunta era debido a que nuestro sistema es re-grande entonces los tipos abrian por aqui y por alla y queria evitar el problema con mis archivos temporales.\nSolo Eso.\nSuerte','',0,'QA==','1ftlbj82',1,0,'',264,0,0),(13311,3050,6,579,0,'148.223.141.242',1147817822,1,0,1,1,1,1,'','','Gracias Juan, pero me sigue saliendo el siguiente error:\n\nerror 2009: Not enough space for environment\n\nAlguna sugerencia?','',0,'QA==','yrqlh8ky',1,0,'',579,0,0),(13312,3050,6,362,0,'200.168.52.156',1147818361,1,0,1,1,1,1,'','','Mira:\n\n\\FOXBASE\\FOX.EXE \n\nY los camiños del Windows en Español... Tienes ke Cambiar... Este ejemplo és para Windows en Portugues... Pregunta al algun amigo como cambiar este ejemplo para español. Saludos.','',0,'QA==','33r1nf34',1,1147818579,'',362,1,0),(13313,3050,6,579,0,'148.223.141.242',1147818527,1,0,1,1,1,1,'','','Gracias de nuevo Juan.\n\nEl problema es que EXEs para 16bits no trabajan en Windows 32bits, me marca falta de memoria, eso es lo que no he podido solucionar.','',0,'QA==','a386bp9j',1,0,'',579,0,0),(13314,3050,6,362,0,'200.168.52.156',1147818667,1,0,1,1,1,1,'','','[quote=&quot;RodolfoRBG&quot;:1pxbxlva]Gracias de nuevo Juan.\n\nEl problema es que EXEs para 16bits no trabajan en Windows 32bits, me marca falta de memoria, eso es lo que no he podido solucionar.[/quote:1pxbxlva]\n\nEn Windows 98 te ocorri también??','',0,'gA==','1pxbxlva',1,0,'',362,0,0),(13315,3050,6,362,0,'200.168.52.156',1147818764,1,0,1,1,1,1,'','','Cual tu correo?? \n\nTe envio el FOX BASE ke jo uso por aká... Saludos.','',0,'gA==','2rmzgr24',1,0,'',362,0,0),(13316,3050,6,579,0,'148.223.141.242',1147818963,1,0,1,1,1,1,'','','Gracias Juan. En Windows\'98 trabajaba bien.\n\nMi correo es:\n\n<!-- e --><a href=\"mailto:rborjas@diconsa.gob.mx\">rborjas@diconsa.gob.mx</a><!-- e -->','',0,'gA==','2fbt63rk',1,0,'',579,0,0),(13317,3050,6,362,0,'200.168.52.156',1147819214,1,0,1,1,1,1,'','','[quote=&quot;RodolfoRBG&quot;:2p85f01v]Gracias Juan. En Windows\'98 trabajaba bien.\n\nMi correo es:\n\n<!-- e --><a href=\"mailto:rborjas@diconsa.gob.mx\">rborjas@diconsa.gob.mx</a><!-- e -->[/quote:2p85f01v]\n\n\nOK, Friend, usted necesitas de la Version:\n\nFOX BASE+ 2.10 (c)  1988 - FOX SOFTWARE...\n\nEsta Versión, és para Windows XP, con el Archivo.Bat Arriba.\n\nAmañana envio a usted, pues aká ya és noche, tengo ke ir-me. Saludos','',0,'gA==','2p85f01v',1,0,'',362,0,0),(13318,3050,6,579,0,'148.223.141.242',1147819423,1,0,1,1,1,1,'','','Mil gracias, lo estaré esperando.','',0,'gA==','ptu6ai0u',1,0,'',579,0,0),(13319,2824,6,492,0,'201.154.125.229',1147823428,1,0,1,1,1,1,'','','Hola\n\nEn este momento no tengo a la mano el nombre del colega del foro, que nos posteo esto :\n\nIF IsExeRunning( cFileName( HB_ARGV(0) ) ) \n	MsgInfo( 1, \"NO ES POSIBLE EJECUTAR EL MODULO ADM DEL SISTEMA\" + CRLF + ;\n	\"YA QUE ESTA ACTUALMENTE EN OPERACION.\",,,, )\n	QUIT\nENDIF\n\n\nY de esta manera, me ha funcionado barbaro !!\n\n\nSaludos','',0,'gA==','3nlr0djj',1,0,'',492,0,0),(13320,3050,6,492,0,'201.154.125.229',1147823766,1,0,1,1,1,1,'','','Hola Rodolfo\n\nHechale un ojo al DbfViewer2000, quizas es lo que necesites.\n\n\nSaludos','',0,'gA==','204jbqyd',1,0,'',492,0,0),(13321,2824,6,579,0,'148.223.141.242',1147824094,1,0,1,1,1,1,'','','Ray, gracias por tu observación, el problema es que, con esta instruccion, si en la misma computadora se trabajan 2 empresas diferentes (una en cada carpeta independiente con un exe en cada carpeta) no las pueden trabajar al mismo tiempo y yo lo que quiciera es que solo no abran (por error) el mismo exe de la misma carpeta.\n\nAlguna otra sugerencia?','',0,'gA==','1l9ikj02',1,0,'',579,0,0),(13322,3050,6,579,0,'148.223.141.242',1147825040,1,0,1,1,1,1,'','','De nuevo gracias Ray, veras, soy medio latoso pero lo que pasa es que el DBFViewer es similar a dbwide, o sea que es un visualizador de dbase y yo lo que quiero es manipular los datos, por ejemplo hacer un \n\nREPLACE ALL MiVar WITH \"ESTO\" FOR MiVar=\"LO OTRO\"\n\ny ese tipo de manipulacion, o sea, todo lo que se podia hacer desde dBase antes de que existiera Clipper y FW\n\nSalu2','',0,'gA==','3t9f47h0',1,0,'',579,0,0),(13323,3050,6,61,0,'201.217.169.59',1147828296,1,0,1,1,1,0,'','','Rodolfo:\n\nLo que puedes hacer es bajarte el Advantage Data Architecture\n(Arc32) desde la pagina \n<!-- m --><a class=\"postlink\" href=\"http://devzone.advantagedatabase.com/as/advantage_solutions.dll\">http://devzone.advantagedatabase.com/as ... utions.dll</a><!-- m -->\n\ndesde aca bajas Arc32 (version 7.1) que esta mejor que la 8\npara mi. Este es un manejador de Bases de datos.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','18knxylz',1,0,'',61,0,0),(13324,3050,6,492,0,'201.154.125.229',1147830373,1,0,1,1,1,1,'','','Rodolfo\n\nSi es posible hacer lo que quieres con el DbWide, puedes hacer uso de funciones : alltrim, strtran, str, etc, etc y aplicar criterios en los replaces : for, while, etc.\n\nQuizas no sea como el viejo  dot  del Clipper o el propio engine del dBase que nos dejaba escribir la instruccion de manera directa, pero si te permite hacer muuuchas cositas.\n\nSaludos','',0,'gA==','2stl1gfh',1,0,'',492,0,0),(13325,3051,6,305,0,'201.240.74.228',1147838791,1,0,1,1,1,0,'','Problema raro con impresion TdosPrn()','Amigos:\n\nDos clientes me han reportado un problema raro que solo aparece con mi aplicacion con FWH 2.7+xHb 0995.\n\nNormalmente imprimo facturas sin problemas desde mi aplicacion al puerto LPT1 con una impresora local Epson LX300+ , pero desde que migre la aplicacion a xHb el puerto falla luego de imprimir 7 u 8 facturas.   \nEs como si el puerto se desactivara, ya no se puede enviar nada a imprimir ( solo en modo DOS, porque las aplicaciones windows imprimen normal)\nTengo que salir de la aplicacion y volver a entrar para poder seguir imprimiendo, y el problema se repite nuevamente.\n\nAqui es donde falla la aplicacion:\n\n[code:tterkttj]\n    &#58;&#58;cDevice &#58;= &quot;LPT1&#58;&quot;\n    &#46;&#46;&#46;&#46;&#46;&#46;&#46;\n    if &#40; &#58;&#58;hDC &#58;= fCreate&#40;&#58;&#58;cDevice&#41; &#41; &lt; 0          // &lt;----------Aqui falla \n       &#58;&#58;nLastError &#58;= fError&#40;&#41;\n       MsgInfo&#40; &quot;Error &#91;&quot; + str&#40;&#58;&#58;nLastError&#41; + &quot;&#93; &#58; Impresion Cancelada&quot;+;\n                &quot;No se pudo crear &quot;+ &#58;&#58;cDevice, &quot;Error&quot; &#41;\n    endif[/code:tterkttj]\n\nCon mi aplicacion en Clipper + FW no sucede este problema.  La PC es un P4 con Windows 2000 Prof y 256MB de RAM.\n\nA alguien le pasa lo mismo ?\n\nRalph','',0,'AIA=','tterkttj',1,0,'',305,0,0),(13326,2998,6,54,0,'201.98.190.68',1147842106,1,0,1,1,1,1,'','','[quote=&quot;RodolfoRBG&quot;:2ho2cp7g]Si te posicionas al inicio del campo y oprimes [Shift-Flecha derecha] para marcar el texto y despues [Ctrl-C] se copia. Luego [Ctrl-V] para pegarlo donde quieras. Espero que te sirva. Salu2[/quote:2ho2cp7g]\n\nEs correcto lo que mencionas, pero funciona de esa manera en campos normales, pero en los READONLY no pasa lo mismo.\n\nGracias por responder','',0,'gA==','2ho2cp7g',1,0,'',54,0,0),(13327,2862,1,550,0,'203.187.209.146',1147843688,1,0,1,1,1,0,'','','Hi Enrico\nNice to hear from you, <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .Is there step by guide available for Harbor or xHarbor ?\nwith best wishes\nRajeev Chavan','',0,'gA==','gvrvjg7m',1,0,'',550,0,0),(13328,3052,3,67,0,'62.235.25.152',1147848348,1,0,1,1,1,0,'','Value negative in get','Hello,\n\nIntering a negative value in a get (big main aplication) changed in a positive number when the get looses focus.\n\nI tryed samples testget2 , and it gives no problems.\n\nWorking with xbuild i checked :\n\nboth points to the same xhb root folder (xharbour + c compiler)\n         Last build (march)\n\nboth points to same fwh folder (februar build)\n\nThe main aplication has a changed tget.prg , but when this is linked in testget2 it gives no problems , or when i omit it from the main aplication the result is the same\n\nI have no idea what else can be checked , but i hope to find a solution. The aplication can not be used when no negative values can be entered.\n\nFrank','',0,'gA==','2j1cvf0v',1,0,'',67,0,0),(13329,2824,6,2,0,'87.218.146.219',1147852631,1,0,1,1,1,1,'','','Rodolfo,\n\nHB_ARGV(0) devuelve tambien el path del EXE.','',0,'gA==','2hicja5c',1,0,'',2,0,0),(13330,2984,6,566,0,'212.145.65.52',1147854783,1,0,1,1,1,0,'','','Raymundo, muchas gracias por responder. Te voy a poner parte del código fuente a ver si tú o alguien me puede echar una mano. De que es lo que está mal para que en Fivewin funcione bien y pueda editar las celdillas y sin embargo en Harbour no pueda hacerlo. Gracias:\n[code:2bczirqu]DEFINE DIALOG oDlgBrowse RESOURCE &quot;DBEDIT3&quot;;\n       TITLE OA&#40;cTitulo&#41;+&quot; &#40;&quot;+cPosSer+&quot;&#41;&quot;+OA&#40;&quot; Zona&#58; &quot;&#41;+STRZERO&#40;NZZONA,2&#41;\n\n       REDEFINE BROWSE oBrw ID 999 OF oDlgBrowse GRID;\n                MESSAGE &quot;Tarifas de Carga &#40;F6 para copia zonas F7 para borrarlas&#41;&quot;;\n                SELECT PROD2006-&gt;POSSERV + ;\n                       STRZERO&#40;PROD2006-&gt;TARIFA,5&#41;+STRZERO&#40;PROD2006-&gt;ZONA,2&#41;+STRZERO&#40;PROD2006-&gt;KGS&#41;;\n                       FOR cSelect\n\n       oBrw&#58;oFont         &#58;= TFont&#40;&#41;&#58;New&#40;&quot;MS Sans Serif&quot;,0,-11,,&#46;T&#46;&#41;\n       oBrw&#58;cargo         &#58;= &#123;nSum,0,0&#125;\n       #ifndef _FWH\n       oBrw&#58;nClrBFoot     &#58;= RGB&#40;101,100,155&#41;\n       #endif\n       oBrw&#58;nFreeze       &#58;= 1\n       oBrw&#58;nClrBackFocus &#58;= RGB&#40;22,245,84&#41;\n       oBrw&#58;nClrForeFocus &#58;= CLR_BLACK\n\n     cPicture&#58;=&quot;99999&#46;9999&quot;\n     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock&#40;&quot;KGS&quot;,Select&#40;&quot;PROD2006&quot;&#41;&#41; ;\n              HEAD &quot;Kgs&quot;;\n              EDITABLE ;\n              MESSAGE &quot;F6 para copia zonas F7 para borrar&quot;;\n              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo\n              ALIGN RIGHT;\n              PICTURE &quot;999999&quot;;\n              VALID actkg&#40;oBrw&#41;;\n              POST EDIT CreoBrowse&#40;oBrw&#41;\n\n              //PRE EDIT oBrw&#58;cargo&#91;2&#93; &#58;= &quot;KGS&quot; ;\n\n     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock&#40;&quot;FAC&quot;,Select&#40;&quot;PROD2006&quot;&#41;&#41; ;\n              HEAD &quot;Fac&#46;&quot;;\n              PICTURE &quot;999&quot;;\n              EDITABLE ;\n              MESSAGE &quot;F6 para copia zonas F7 para borrar&quot;;\n              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo\n              ALIGN RIGHT;\n              POST EDIT CreoBrowse&#40;oBrw&#41;\n\n             // PRE EDIT oBrw&#58;cargo&#91;2&#93; &#58;= &quot;FAC&quot;  ;\n\n\n     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock&#40;&quot;PORTES&quot;,Select&#40;&quot;PROD2006&quot;&#41;&#41; ;\n              HEAD &quot;Portes&quot;;\n              SIZE 80;\n              PICTURE cPicture;\n              EDITABLE ;\n              MESSAGE &quot;F6 para copia zonas F7 para borrar&quot;;\n              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo\n              ALIGN RIGHT;\n              POST EDIT CreoBrowse&#40;oBrw&#41;\n\n              //PRE EDIT oBrw&#58;cargo&#91;2&#93; &#58;= &quot;PORTES&quot; ;\n\n     ADD COLUMN TO BROWSE oBrw DATA FieldWBlock&#40;&quot;REX&quot;,Select&#40;&quot;PROD2006&quot;&#41;&#41; ;\n              HEAD &quot;Reex&quot;;\n              PICTURE cPicture;\n              EDITABLE ;\n              MESSAGE &quot;F6 para copia zonas F7 para borrar&quot;;\n              SHIFT DT_MOVE_DOWN ;      // DOWN = Abajo\n              ALIGN RIGHT;\n              POST EDIT CreoBrowse&#40;oBrw&#41;\n\n              //PRE EDIT oBrw&#58;cargo&#91;2&#93; &#58;= &quot;REX&quot;  ;\n\n\nACTIVATE DIALOG oDlgBrowse CENTERED[/code:2bczirqu]','',0,'AIA=','2bczirqu',1,0,'',566,0,0),(13331,2691,4,240,0,'85.201.103.53',1147859792,1,0,1,1,1,1,'','','Hi Antonio,\n\nI tried it and it works like a charm <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMany thanks again.\nRaymond','',0,'AIA=','zm4jr48s',1,0,'',240,0,0),(13332,3053,3,497,0,'212.127.159.218',1147861089,1,0,1,0,1,0,'','Clipper appl with faster processor fails','Dear Friends,\n\nSome years ago Clipper apps failed with newer faster processors.\nAt that time a solution became available that solved the problem.\nI beleive a kind of  WAIT programme.\nThat was implemented in the Clipper programs and the problem was gone.\n\nMy question is, do we have a similar problem today and if so is there a new solution.\n\nI have a cusomer that bought new P.C.\'s with XP PRO and only two MS-DOS apps running from a server fail intermittently on the new P.C.\'s.\nSame programs work OK on the older PC\'s.\n\nAny suggestion is welcomed.\n\nJules de Pierre','',0,'AIA=','23hflkof',1,0,'',497,0,0),(13333,3013,3,26,0,'84.255.245.173',1147863884,1,0,1,1,1,1,'','','Hello!\n\nI try to draw a box around the line and there are problems when I\nmove to the next line - the previous one is not redrawn correctly.\n\nIMHO there is a (optimization) bug in static function WBrwLine (which is called from Paint method), because only left (gray) and bottom edge of each cell are redrawn:\n[code:rfnt7dwz]               case nLineStyle == LINES_GRAY\n                    hPen = CreatePen&#40; PS_SOLID, 1, CLR_GRAY &#41;\n                    hOld = SelectObject&#40; hDC, hPen &#41;\n                    MoveTo&#40; hDC, nLeft - 2, nTop - 2 &#41;\n                    LineTo&#40; hDC, nLeft - 2, nBottom &#41;\n                    LineTo&#40; hDC, nRight , nBottom &#41;\n                    SelectObject&#40; hDC, hOld &#41;\n                    DeleteObject&#40; hPen &#41;\n[/code:rfnt7dwz]\n\nOne solution is to create subclass of TWBrowse, copy WBrwLine and all methods which are calling WBrwLine (DrawLine, DrawSelect, Paint and LButtonDown) and then change WBrwLine to something like that:\n[code:rfnt7dwz]               case nLineStyle == LINES_GRAY\n                    hPen = CreatePen&#40; PS_SOLID, 1, CLR_GRAY &#41;\n                    hOld = SelectObject&#40; hDC, hPen &#41;\n                    MoveTo&#40; hDC, nLeft - 2, nTop - 1 &#41;\n                    LineTo&#40; hDC, nLeft - 2, nBottom &#41;\n                    LineTo&#40; hDC, nRight , nBottom &#41;\n                    MoveTo&#40; hDC, nLeft - 2, nTop - 1 &#41;\n                    LineTo&#40; hDC, nRight , nTop - 1 &#41;\n                    SelectObject&#40; hDC, hOld &#41;\n                    DeleteObject&#40; hPen &#41;\n\n                    hPen = CreatePen&#40; PS_SOLID, 1, CLR_WHITE &#41;\n                    hOld = SelectObject&#40; hDC, hPen &#41;\n                    MoveTo&#40; hDC, nLeft - 1, nTop  &#41;\n                    LineTo&#40; hDC, nLeft - 1, nBottom &#41;\n                    SelectObject&#40; hDC, hOld &#41;\n                    DeleteObject&#40; hPen &#41;[/code:rfnt7dwz]\n\nThe next step is to create function based on wBrwLine that draws frame around selected line, which is to be called after wBrwLine in DrawSelect method:\n\n[code:rfnt7dwz]**************************************************************************\nstatic function wBrwSimple&#40; hWnd, hDC, nRowPos, aValues, aColSizes,;\n                          nColPos, nClrText, nClrPane,;\n                          hFont, lTree, aJustify, nPressed, nLineStyle,;\n                          nColAct, lFocused, oVScroll, bLogicLen &#41;\n**************************************************************************\n\n   local nTxtHeight, hOldFont\n   local nColStart  &#58;= -1\n   local nWidth     &#58;= WndWidth&#40; hWnd &#41; - If&#40; oVScroll != nil &#46;and&#46; ;\n                       Eval&#40; bLogicLen &#41; &gt; 1,;\n                       GetSysMetrics&#40; SM_CYHSCROLL &#41; + 3, 0 &#41;\n   local nRow &#58;= nRowPos, nTop, nBottom, nLeft, nRight, n\n   local lReleaseDC &#58;= &#46;f&#46;\n   local nForeColor, nBackColor\n   local  hPen, hOld, hBrush\n\n   DEFAULT lTree &#58;= &#46;f&#46;\n\n   if Empty&#40; hDC &#41;\n      hDC = GetDC&#40; hWnd &#41;\n      lReleaseDC = &#46;t&#46;\n   endif\n\n   hOldFont   = SelectObject&#40; hDC, hFont &#41;\n   nTxtHeight = GetTextHeight&#40; hWnd, hDC &#41; + 1\n\n   nTop    = nTxtHeight * nRow\n   nBottom = nTop + nTxtHeight - 1\n   for n &#58;= nColPos to Len&#40; aValues &#41;\n      nLeft   = nColStart + 1\n      nRight  = Min&#40; nColStart &#58;= &#40; nLeft + aColSizes&#91; n &#93; - 1 &#41;, nWidth &#41;\n      if nLeft &gt; nWidth\n         exit\n      endif\n      if n == Len&#40; aValues &#41;\n         nRight = nWidth\n      endif\n            if lFocused\n                    hPen = CreatePen&#40; PS_SOLID, 1, CLR_BLACK &#41;\n                    hOld = SelectObject&#40; hDC, hPen &#41;\n                    MoveTo&#40; hDC, nLeft-1 , nBottom-1 &#41;\n                    LineTo&#40; hDC, nRight, nBottom-1 &#41;\n                    MoveTo&#40; hDC, nRight-1, nTop &#41;\n                    LineTo&#40; hDC, nLeft-2 , nTop &#41;\n                    SelectObject&#40; hDC, hOld &#41;\n                    DeleteObject&#40; hPen &#41;\n             else\n                    hPen = CreatePen&#40; PS_DOT, 1, CLR_BLACK &#41;\n                    hOld = SelectObject&#40; hDC, hPen &#41;\n                    MoveTo&#40; hDC, nLeft-1 , nBottom &#41;\n                    LineTo&#40; hDC, nRight, nBottom &#41;\n                    MoveTo&#40; hDC, nRight-1, nTop-1 &#41;\n                    LineTo&#40; hDC, nLeft-2 , nTop-1 &#41;\n                    SelectObject&#40; hDC, hOld &#41;\n                    DeleteObject&#40; hPen &#41;\n            endif\n      if nColPos &gt; nWidth\n         exit\n      endif\n   next\nreturn NIL   // wBrwSimple\n[/code:rfnt7dwz]\n\nHere is the result:  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n[img:rfnt7dwz]http&#58;//www&#46;astral-it&#46;com/img/box1&#46;png[/img:rfnt7dwz]\n\nRegards, Roman','',0,'CIA=','rfnt7dwz',1,0,'',26,0,0),(13334,3053,3,26,0,'84.255.245.173',1147865721,1,0,1,1,1,1,'','','Hello!\n\nSome suggestions:\n1. Disable DEP:\n<!-- m --><a class=\"postlink\" href=\"http://www.sysinternals.com/Information/bootini.html\">http://www.sysinternals.com/Information/bootini.html</a><!-- m -->\n(Use /execute instead of /noexecute=OPTIN)\n\n2. Disable hyper-threading in BIOS\n\n3. If CPU has two cores, this might me helpful:\n<!-- m --><a class=\"postlink\" href=\"http://www.markwilson.co.uk/blog/2005/01/troubleshooting-ms-dos-application.htm\">http://www.markwilson.co.uk/blog/2005/0 ... cation.htm</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.informit.com/articles/article.asp?p=465310&amp;seqNum=2&amp;rl=1\">http://www.informit.com/articles/articl ... Num=2&amp;rl=1</a><!-- m -->\n[quote:1crbd4ov]By default, the Windows operating systems set processes to run on all available processors. If you have multiple processors or one or more dual-core processors in your system, you can control the processor(s) on which an application runs.[/quote:1crbd4ov]\n<!-- m --><a class=\"postlink\" href=\"http://www.hardforum.com/showthread.php?t=983781\">http://www.hardforum.com/showthread.php?t=983781</a><!-- m -->\n\n4. Is your application running with  administrator or limited user rights?\n\nCheers, Roman','',0,'gA==','1crbd4ov',1,0,'',26,0,0),(13335,3013,3,6,0,'82.59.188.61',1147866231,1,0,1,1,1,1,'','','Great, Roman!\n\nEMG','',0,'gA==','3375dqcg',1,0,'',6,0,0),(13336,3048,1,312,0,'24.150.179.34',1147866823,1,0,1,1,1,0,'','','Disabling isn\'t going to work in the situation.\n\nbecause sometimes control 100 ( for example ) will be a say, and sometimes it will be a get  and  control 200 etc \n\nso rathert than having duplicates of each control in the rc I have everything working except for removing the tabstop when its a say, or conversely adding a tabstop when its a get.','',0,'gA==','2vafewp2',1,0,'',312,0,0),(13337,3048,1,6,0,'82.59.188.61',1147867022,1,0,1,1,1,1,'','','SAYs can\'t have tabstop, as far as I know. What am I missing?\n\nEMG','',0,'gA==','ips6i4uj',1,0,'',6,0,0),(13338,3050,6,362,0,'200.168.52.156',1147868740,1,0,1,1,1,1,'','','Hy Friends...\n\nFOX BASE+ 2.10 ya esta disponible a todos...\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/485fox21.ZIP\">http://www.fivewin.com.br/Dicas/485fox21.ZIP</a><!-- m -->','',0,'gA==','3h8q0xg5',1,0,'',362,0,0),(13339,3041,3,6,0,'82.59.188.61',1147868928,1,0,1,1,1,1,'','Re: Bug in cGetFile()','[quote=&quot;EnricoMaria&quot;:2mvwg39g]The problem seems to be that the memory allocated for the selected path+filename is limited to 128 bytes while the maximum length allowed by the file system is 256.[/quote:2mvwg39g]\n\nReplacing all 128 to 256 and all 127 to 255 in getfile.c solves the problem.\n\nEMG','',0,'gA==','2mvwg39g',1,0,'',6,0,0),(13340,3053,3,497,0,'212.127.159.218',1147872448,1,0,1,0,1,0,'','','Thanks Roman,\nVery interesting but I did not see a problem related to a Clipper app.\nSince Antonio is not responding I think that Clipper does not have this problem.\n\nQuestions:\nWhat is NTDVM and DEP\n\nJules de Pierre','',0,'gA==','36rvnpok',1,0,'',497,0,0),(13341,2984,6,492,0,'201.154.125.229',1147874901,1,0,1,1,1,1,'','','Hola Veranito\n\nUna pequeña pregunta : Que libreria estas usando para el Browse ?\nAl parecer por ahi pueden estar los tiros.....\n\n\nSaludos','',0,'gA==','uvex92n1',1,0,'',492,0,0),(13342,3053,3,6,0,'82.59.188.61',1147876900,1,0,1,1,1,1,'','','NTVDM is the Windows NT Virtual Dos Machine, a program that allows 16 bit apps to run under Windows NT-2000-XP.\n\nEMG','',0,'gA==','3hg4v15w',1,0,'',6,0,0),(13343,3036,6,138,0,'80.37.11.90',1147877089,1,0,1,1,1,1,'','','Pregunta.... ¿ tienes campos memo en los DBF/CDX ?','',0,'gA==','enutly4t',1,0,'',138,0,0),(13344,3036,6,59,0,'217.125.68.162',1147878244,1,0,1,1,1,0,'','','Para karinha\n\nAEVAL(DIRECTORY( \"*.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } ) \nBorrara todos los cdx\n\nSaludos','',0,'','2c9stf0n',1,0,'',59,0,0),(13345,1808,2,221,0,'200.109.236.123',1147879026,1,0,1,1,1,0,'','no lo ha podido bajar','no he podido bajar el archivo <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->  me dice not available, podrias volver a mandarlo y mandarme el prg donde esta el browse, gracias y disculpa la molestia','',0,'','yopq7xla',1,0,'',221,0,0),(13346,3013,3,303,0,'72.199.41.171',1147881150,1,0,1,1,1,0,'','','Good work Roman.\n\nOne question. Why a static function rather than a method?\n\nJames','',0,'','29ivsc9h',1,0,'',303,0,0),(13347,3036,6,490,0,'80.24.224.89',1147881819,1,0,1,1,1,0,'','','René,\n\nNo, no lleva campos memo.\n\n\nUn Saludo,\nJoaquín','',0,'','33afpqbi',1,0,'',490,0,0),(13348,3036,6,362,0,'200.168.52.156',1147882337,1,0,1,1,1,1,'','','[quote=&quot;pablinux&quot;:38dx2jqw]Para karinha\n\nAEVAL(DIRECTORY( \"*.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } ) \nBorrara todos los cdx\n\nSaludos[/quote:38dx2jqw]\n\nHola...\n\nTienes ke BORRAR uno por uno... Como en el ejemplo arriba. \n\nMismo porque, si si usas asi: *.CDX,  BORRARIA el EXE de tu aplicacion en Windows XP...\n\nSaludos.','',0,'gA==','38dx2jqw',1,0,'',362,0,0),(13349,3036,6,490,0,'80.24.224.89',1147883371,1,0,1,1,1,0,'','','Karinha,\n\nNo sé si estás de coña, o la barrera del idioma es grande o de veras piensas que la máscara *.cdx borra el ejecutable.\n\nPerdona, pero es que me suena a broma.\n\n\nSi no es broma y tú te lo estás tomando en serio, por favor, revisa la documentación de clipper y verás como funciona aDirectory.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','de8gzl12',1,0,'',490,0,0),(13350,3036,6,362,0,'200.168.52.156',1147884627,1,0,1,1,1,1,'','','La barrera del idioma es grande, y és el mas probable... perdón...\n\nA mi, me sucede, ke en windows XP, borra todo si uso asi: *.CDX... \n\nSi te funciona perfecto, bién!! Gracias y Saludos.','',0,'gA==','1xahaw5f',1,0,'',362,0,0),(13351,3054,4,289,0,'212.138.64.180',1147885592,1,0,1,1,1,0,'','New  News For Camera With Fwppc','To all \nI Am linking Camera Source With Fwpp Not Any  Error .\nBut He is Not Shooting Any Picture\nplease From all  Testing This   code And View Problem In Shooting  Picture\n------ This is Full Source \"hathal.prg\"  ------\n  #include \"FWCE.ch\"\n //----------------------------------------------------------------------------//\nfunction Main()\n   local oWnd\n      DEFINE WINDOW oWnd TITLE \"TEST Cam \" \n  @5, 10 BUTTON \"TEST 1\" SIZE 80, 25 ACTION;\n   CAM_CE(Ownd)\n      ACTIVATE WINDOW oWnd\n  return nil\n  ********************************************************\n#pragma BEGINDUMP\n#include \"hbapi.h\"\n#define UNDER_CE\n#include \"windows.h\"\n //////////////////////////////////////////////////////////////////////////////\n//\n// Flags for camera capture UI\n\ntypedef enum {\n    CAMERACAPTURE_MODE_STILL = 0,\n    CAMERACAPTURE_MODE_VIDEOONLY,\n    CAMERACAPTURE_MODE_VIDEOWITHAUDIO,\n} CAMERACAPTURE_MODE;\n\ntypedef enum {\n    CAMERACAPTURE_STILLQUALITY_DEFAULT = 0,\n    CAMERACAPTURE_STILLQUALITY_LOW,\n    CAMERACAPTURE_STILLQUALITY_NORMAL,\n    CAMERACAPTURE_STILLQUALITY_HIGH,\n} CAMERACAPTURE_STILLQUALITY;\n\ntypedef enum {\n    CAMERACAPTURE_VIDEOTYPE_ALL = 0xFFFF,\n    CAMERACAPTURE_VIDEOTYPE_STANDARD = 1,\n    CAMERACAPTURE_VIDEOTYPE_MESSAGING = 2,\n} CAMERACAPTURE_VIDEOTYPES;\n\ntypedef struct tagSHCAMERACAPTURE\n{\n    DWORD                       cbSize;\n    HWND                        hwndOwner;\n    TCHAR                       szFile[MAX_PATH];   \n    LPCTSTR                     pszInitialDir;\n    LPCTSTR                     pszDefaultFileName;\n    LPCTSTR                     pszTitle;\n    CAMERACAPTURE_STILLQUALITY  StillQuality;\n    CAMERACAPTURE_VIDEOTYPES    VideoTypes;\n    DWORD                       nResolutionWidth;\n    DWORD                       nResolutionHeight;\n    DWORD                       nVideoTimeLimit;\n    CAMERACAPTURE_MODE          Mode;\n}SHCAMERACAPTURE, *PSHCAMERACAPTURE;\n//\n// end of flags for camera capture UI\n//\n//////////////////////////////////////////////////////////////////////////////\nLPWSTR AnsiToWide( LPSTR ); \n typedef DWORD ( FAR PASCAL * _XSHCameraCapture ) ( PSHCAMERACAPTURE );\n static far _XSHCameraCapture XSHCameraCapture = 0;\n  HB_FUNC( CAM_CE )\n{\n    SHCAMERACAPTURE shcc;\n   HRESULT         hResult;\n   LPWSTR CE_LIB = AnsiToWide( \"AYGSHELL.DLL\" ); \n   LPWSTR CE_FUNC = AnsiToWide( \"SHCameraCapture\" ); \n   HINSTANCE hDLL = LoadLibrary( CE_LIB );\n     // Set the SHCAMERACAPTURE structure.\n     ZeroMemory(&amp;shcc, sizeof(shcc));\n    shcc.cbSize             = sizeof(shcc);\n//   shcc.hwndOwner          = hwndOwner;\n    shcc.hwndOwner          = ( HWND ) hb_parnl( 1 );\n    shcc.pszInitialDir      = TEXT(\"\\\\My Documents\");\n    shcc.pszDefaultFileName = TEXT(\"test.3gp\");\n    shcc.pszTitle           = TEXT(\"Camera Demo\");\n    shcc.VideoTypes         = CAMERACAPTURE_VIDEOTYPE_MESSAGING;\n    shcc.nResolutionWidth   = 176;\n    shcc.nResolutionHeight  = 144;\n    shcc.nVideoTimeLimit    = 15;\n    shcc.Mode               = CAMERACAPTURE_MODE_VIDEOWITHAUDIO;\n    XSHCameraCapture = (  _XSHCameraCapture ) GetProcAddress( hDLL,CE_FUNC );\n   hResult = XSHCameraCapture(&amp;shcc);        \n         // StringCchCopy(pszFilename, MAX_PATH, shcc.szFile);\n//        StringCchCopy(AnsiToWide(hb_parc( 2 )), MAX_PATH, shcc.szFile);\n   hb_xfree( CE_LIB ); \n   hb_xfree( CE_FUNC ); \n       FreeLibrary( hDLL ); \n}\n #pragma ENDDUMP \n -----------------------------------------\nregards,\nhathal\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','3c2p7lu4',1,0,'',289,0,0),(13352,3053,3,266,0,'60.50.49.41',1147895126,1,0,1,1,1,1,'','','2 steps to avoid runtime error for Clipper exe in high performance processor pc :\n\n- link this obj : <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/022a123e17/_wait_b.obj.html\">http://hyperupload.com/download/022a123 ... b.obj.html</a><!-- m -->\n\n- upgrade to Blinker v7.0','',0,'','sa8inc6d',1,0,'',266,0,0),(13353,3045,3,266,0,'60.50.49.41',1147896048,1,0,1,1,1,1,'','','you forget this :\n\nheaders \"header1\',\"header2\",\"header3\",\"header4\" ;','',0,'','cs6ng2fe',1,0,'',266,0,0),(13354,3055,6,228,0,'206.231.78.207',1147896435,1,0,1,1,1,1,'','Preguntonta sobre ruta?','Amigos del foro como siempre dando lora con mi pregunticas..\n\nResulta y pasa que en algunas ocaciones me ha tocado enviarles a los clienes archivos comprimidos para actualizar el programa y resulta y pasa que aparte de explicarles como descomprimir me toca decirles que corte y copie en una carpeta especicifa por que si no el programa no corre. en este momento enruto las bases de datos de la siguiente manera:\n\nc:\\lymainv\\lamdbfs\\clientes.dbf\n\nme gustaria que el sistema tome la carpeta en donde este descargado automaticamente ose que tome\n\n....\\lamdbf\\clientes.dbf\n\ny anterior a esto no importe en que carpeta este...\n\nEspero me alla hecho entender...\n\nDe antemando GRACIAS','',0,'','3dlzpgen',1,0,'',228,0,0),(13355,3055,6,9,0,'85.60.39.158',1147897453,1,0,1,1,1,1,'','','¿No te vale InnoSetup?.- Te comprime los archivos que quieras y los descarga en el directorio que tu le pongas.','',0,'','36vh8kj7',1,0,'',9,0,0),(13356,3056,6,436,0,'200.45.229.47',1147899294,1,0,1,1,1,0,'','Tablas ADT y campos Vacíos','Hola a todos.\n\nEstoy teniendo algunas dificultades en la migración de un sistema que utilice tablas ADT.\nSin inconvenientes, con el utilitario ARC pasé los DBF con índices CDX a tablas .ADT, generandome sin problemas los índices (.ADI) y memos (.ADM).\nEl problema me surge con un índice compuesto en el cual uno de los campos de la clave puede estar vacío. Investigando un documento del maestro René (\"Crónica de una....\") de su blog advierte sobre esto indicando que en realidad en un archivo ADT un campo vacío tiene valor NULL y que para solucionar esto debemos llenar estos campos con cadenas de caracteres vacías o bien ceros en campos numéricos.\nBueno, mediante el editor le ingreso al campo los 10 espacios vacíos del campo, pero no hace nada, queda cómo antes. Ahora bien, si le ingreso algún valor diferente a \" \" anda perfecto.Espero que se entienda y espero sus comentarios.','',0,'','2me8qtyu',1,0,'',436,0,0),(13357,3045,3,125,0,'194.243.7.199',1147900683,1,0,1,1,1,0,'','','Many tanks!','',0,'','3svi7qv7',1,0,'',125,0,0),(13358,2824,6,579,0,'148.223.141.242',1147902904,1,0,1,1,1,1,'','','Gracias Antonio, pero...\n\nSi uso:\n\nIF IsExeRunning(HB_ARGV(0))\n ? \"El ejecutable ya esta en uso, Se aborta el sistema.\"\n RETURN(NIL)\nENDIF\n\nme permite continuar trabajando con el mismo EXE en la misma carpeta y en este caso deseo que me avise y no lo haga.','',0,'','1604hlvz',1,0,'',579,0,0),(13359,3055,6,579,0,'148.223.141.242',1147903480,1,0,1,1,1,1,'','','Con las funciones:\n\nCURDRIVE()+\":\\\"+CURDIR(CURDRIVE())\n\nTe regresa la ruta en la que esta corriendo el EXE, por ejemplo:\n\n\"C:\\TOROS\\SISTEMA\"\n\nno se si esto te sirva. Salu2','',0,'','2f53s4re',1,0,'',579,0,0),(13360,3057,6,519,0,'83.54.15.226',1147906909,1,0,1,1,1,0,'','Visualizar imagenes en el preview','Hola amigos\n\n   Quiero visualizar una imagen en el preview y se ve deformada  las imagenes se ven  con una densidad de color similar a 256 colores, indico link descarga del samples Testprn4\n \n Se ven mal utilizando el metodo  SayBitmap y Sayimage de la clase tprinter\n\n\n Alguna idea ?\n\n \n  <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02fbc3a513/Tesprn4.zip.html\">http://hyperupload.com/download/02fbc3a ... 4.zip.html</a><!-- m -->\n\n\n  un saludo y gracias desde ya\n\n Gabri\n\n Granada','',0,'','b66n7vfa',1,0,'',519,0,0),(13361,3055,6,492,0,'201.154.125.229',1147908495,1,0,1,1,1,1,'','','Hola Leandro\n\nMe uno a la sugerencia de Manuel, por que no usas algun programa para generar un instalador ? ahi le especificas que archivos, en donde se deben copiar, etc, etc.\n\nHay muchos por la red, algunos son gratis y claro, otros con costo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEn lo personal, yo uso el Astrum I.W. desde hace varios años y anda muy bien, con ese genero instalaciones y actualizaciones para los clientes.\n\nSaludos','',0,'','7kqxti7x',1,0,'',492,0,0),(13362,3058,1,52,0,'200.127.195.89',1147909141,1,0,1,1,1,1,'','Entorno / Environment para/to CLIPPER + FIVEWIN + xMate','Amigos,\n\n[quote:2g21tvbt][b:2g21tvbt]Antonio, disculpame si no es aca donde tengo que poner esto[/b:2g21tvbt]. Con ayuda del creador del xMate, ya está creado un entorno para FiveWin para trabajarlo con xMate.\n\nLes dejo el link de donde bajarlo.\n\nGracias.[/quote:2g21tvbt]\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01cec36e66/Five_xM.rar.html\">http://hyperupload.com/download/01cec36 ... M.rar.html</a><!-- m -->','',0,'wA==','2g21tvbt',1,0,'',52,0,0),(13363,1808,2,54,0,'201.98.190.68',1147911733,1,0,1,1,1,1,'','Re: no lo ha podido bajar','[quote=&quot;QAZWSX2K&quot;:25zwpmwc]no he podido bajar el archivo <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->  me dice not available, podrias volver a mandarlo y mandarme el prg donde esta el browse, gracias y disculpa la molestia[/quote:25zwpmwc]\n\nMi estimado, he checado le Link y funciona correctamente.\n\nHay un apartado donde comenta del link disponible, además aparece un contador, es cuestion de checar','',0,'gA==','25zwpmwc',1,0,'',54,0,0),(13364,3055,6,579,0,'148.223.141.242',1147912224,1,0,1,1,1,1,'','','Mi caso es similar al de Leandro, mis clientes tienen pocos conocimientos en Windows y es un gran problema mandarles actualizaciones:\n\n* Si les mandas un EXE, ya casi todos los servidores rechazan este tipo de archivos adjuntos.\n* Si les mandas el EXE con la extensión modificada, es dificil explicarles que deben copiarlo a una carpeta temporal, cambiarle el nombre y después copiarlo a la carpeta definitiva para que sustituya al EXE original.\n* Si lo mandas dentro de un ZIP, algunos servidores (gmail por ejemplo) rechazan archivos adjuntos ZIP que contengan EXEs además de que no siempre tienen un PKZIP para descomprimirlo y de que también hay que explicarles como y donde lo deben descomprimir.\n\nEstoy pensando seriamente en facilitarles todo esto a mis clientes en la siguiente versón poniendo en el sistema un modulo que se llame \"Actualizar versión\" y que lo que haga es correr otro EXE también creado por mi y que este se encarge de buscar dentro de su maquina un archivo \"X\", lo descomprima, lo renombre y lo copie a la carpeta en donde esta el sistema.\n\nSi alguien tiene una mejor idea, ahorita es cuando.','',0,'gA==','1nwhw3ej',1,0,'',579,0,0),(13365,3059,6,579,0,'148.223.141.242',1147913588,1,0,1,1,1,1,'','Se esta volviendo viejo el foro?','Tenía mas de un año de no entrar al foro debido a que en la empresa en la que trabajo me era imposible entrar a las NEWS, felizmente ahora y gracias a la idea de Antonio, no solo puedo entrar sino que conocerlos fisicamente y me doy cuenta que la mayoría somos ya \"Viejos lobos de bar\" .... \"de mar\" quise decir, Pelones y/o Canosos y/o Gordos, etc. Aunque me veo muy joven en la foto, estoy por cumplir 48.\n\nAntonio, ya que tienes la herramienta, porque no haces una encuesta sobre las edades de quienes aqui participamos? Saldriamos de dudas sobre si está o no envejeciendo el foro no?\n\nEn fin, parafaseando un dicho: \"No somos chicos pero somo muchos\" y creo que aún falta tiempo para convertirnos en el foro del \"minuto de silencio\" en donde habría que guaradar un minuto de silencio por alguien que ya no nos acompañe cada vez que entremos al foro.\n\nComo en este foro hay de todo, espero no herir sentimientos, pues esto es mas en broma que en serio.\n\nSalu2 y \"Larga vida FiveWin\"','',0,'gA==','3ty6g4c9',1,0,'',579,0,0),(13366,3060,3,190,0,'202.65.134.45',1147916011,1,0,1,1,1,0,'','How to create a shortcut of a program on desktop with FWH','Hi \n\nIs there a way to create a shortcut for an application on Desktop \nand an entry in the Programes menu of Windows, using FWH.\n\nThanks in advance\n\n- Ramesh Babu P','',0,'gA==','h0vflfkb',1,0,'',190,0,0),(13367,3059,6,18,0,'201.138.70.14',1147920511,1,0,1,1,1,1,'','','Rodolfo :\n\nHola soy Vikthor, tengo 32 años, llevo 6 años programando con FiveWin','',0,'gA==','1umop3hq',1,0,'',18,0,0),(13368,3055,6,18,0,'201.138.70.14',1147920684,1,0,1,1,1,1,'','','Leandro :\n\nPuedes usar lo siguiente :\n\ncOrigen := cFilePath( GetModuleFileName( GetInstance() ))\n\nDonde cOrigen te devolverá la ruta exacta donde está tu aplicación','',0,'gA==','jlelan9o',1,0,'',18,0,0),(13369,2824,6,18,0,'201.138.70.14',1147920825,1,0,1,1,1,1,'','','DbZap :\n\nPuedes usar la clase TwCapture y la puedes descargar de <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin\">http://vikthor.com.mx/fivewin</a><!-- m -->\n\n[code:2kw6z8jv]\n /*\n    Verifica si ya se está ejecutando una instancia de la misma aplicación&#46;\n   */\n   oWnd &#58;= TWCapture&#40;&#41;&#58;New&#40;&#41;\n   oWnd&#58;WCapture&#40; &quot;Sistema de Registro y Control de Eventos&quot; &#41;\n   IF oWnd&#58;lCaptured      // La aplicación ya está corriendo\n      MsgStop&#40;&quot;El sistema ya está cargado&quot;,&quot;Aviso del sistema&quot;&#41;\n      RETURN&#40; Nil &#41;\n   ENDIF\n[/code:2kw6z8jv]','',0,'AIA=','2kw6z8jv',1,0,'',18,0,0),(13370,3059,6,141,0,'200.88.94.157',1147925885,1,0,1,1,1,1,'','','Rodolfo,\n\nSegún me dijo mi madre, tengo 49, caminando a la mitad de mi siglo.  Uso FW desde la versión 1.8 (Hijole !!!).\n\nAbrazos,','',0,'AIA=','2k7nxx7w',1,0,'',141,0,0),(13371,2824,6,9,0,'85.60.39.158',1147927211,1,0,1,1,1,1,'','','Yo utilizo la misma solución (artesana) desde hace muchos años (Clipper 87) con excelente resultado:\n\nAl inicio del programa abro un dbf en EXCLUSIVE donde generalmente  guardo información de la estación (por ejemplo, el path del servidor) y del propio usuario, pero igualmente podría ser una dbf vacia. Si el dbf ya esta abierto, aborta el programa.\n\n\nUSE IMPRESOR EXCLUSIVE NEW        \n\nIF NETERR()\n   ALERT(\" ¡¡¡ El programa está ya abierto\")\n   QUIT\nENDI\n\nDe esta manera, duplicar el exe en la misma carpeta, pero te permite aperturarlo desde otra.','',0,'AIA=','3ov3bdz5',1,0,'',9,0,0),(13372,3060,3,3,0,'82.249.56.83',1147931972,1,0,1,1,1,1,'','Re: How to create a shortcut of a program on desktop with FW','[quote=&quot;RAMESHBABU&quot;:132lpbii]Hi \n\nIs there a way to create a shortcut for an application on Desktop \nand an entry in the Programes menu of Windows, using FWH.\n\nThanks in advance\n\n- Ramesh Babu P[/quote:132lpbii]\n\nYou have to use the registry to retreive the windows desktop and write to it.\n\nThis is a sample\n\n#define HKEY_CURRENT_USER  2147483649\n#define HKEY_LOCAL_MACHINE 2147483650\n\n#define KEY_ALL_ACCESS 983103\n\n    LOCAL hKey := 0\n\n    LOCAL nType := 0\n\n    LOCAL cData := SPACE( 256 )\n\n    LOCAL nSize := LEN( cData )\n\n    REGOPENKEY( HKEY_CURRENT_USER, \"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\", 0, KEY_ALL_ACCESS, @hKey )\n\n    REGQUERYVALUE( hKey, \"Desktop\", 0, @nType, @cData, @nSize )\n\n    REGCLOSEKEY( hKey )\n\nRETURN LEFT( cData, AT( CHR( 0 ), cData ) - 1 )\n\n\nJust curious, why not use an automatic installer that does all this . I use a n excellent free installer for this, INNOSETUP <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nHTH \n\nRichard','',0,'gA==','132lpbii',1,0,'',3,0,0),(13373,3053,3,26,0,'84.255.245.173',1147939768,1,0,1,1,1,1,'','','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://h10025.www1.hp.com/ewfrf/wc/genericDocument?lc=pt&amp;cc=br&amp;dlc=pt&amp;docname=c00223284\">http://h10025.www1.hp.com/ewfrf/wc/gene ... =c00223284</a><!-- m -->\n[quote:1j0iter2]The Data Execution Prevention (DEP) feature in the Windows operating system is designed to help prevent damage from viruses and from other security threats. DEP works alone or with compatible microprocessors to mark some memory locations as \"non-executable.\" If a program tries to run code from a protected location, DEP closes the program and displays a message.[/quote:1j0iter2]\n\nJules, are your two DOS apps working in Windows XP SP2 on older computers?\n\nRegards, Roman','',0,'gA==','1j0iter2',1,0,'',26,0,0),(13374,3013,3,26,0,'84.255.245.173',1147945164,1,0,1,1,1,1,'','','Hello!\n\nBecause that\'s the way how wBrwLine is implemented in WBROWSE.PRG and I just copied code from it.\n\nBTW, I created three more \"skins\":   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n[img:9cosusgr]http&#58;//www&#46;astral-it&#46;com/img/box_cells&#46;png[/img:9cosusgr]\n\n[quote:9cosusgr][img:9cosusgr]http&#58;//www&#46;astral-it&#46;com/img/box_triangles&#46;png[/img:9cosusgr][/quote:9cosusgr]\n\n[img:9cosusgr]http&#58;//www&#46;astral-it&#46;com/img/box_fancy&#46;png[/img:9cosusgr]\n\n\nCheers, Roman','',0,'iA==','9cosusgr',1,0,'',26,0,0),(13375,3013,3,2,0,'87.218.146.79',1147946304,1,0,1,1,1,1,'','','Roman,\n\nExcellent <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'iA==','1wf3ng1n',1,0,'',2,0,0),(13376,3041,3,2,0,'87.218.146.79',1147946463,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'iA==','3ns57g97',1,0,'',2,0,0),(13377,3052,3,2,0,'87.218.146.79',1147946530,1,0,1,1,1,1,'','','Frank,\n\nAre you using some specific PICTURE ?','',0,'iA==','38w2invw',1,0,'',2,0,0),(13378,3059,6,2,0,'87.218.146.79',1147946731,1,0,1,1,1,1,'','','Rodolfo,\n\nA más mayores, más sabios <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'iA==','dr4uwhbq',1,0,'',2,0,0),(13379,3057,6,2,0,'87.218.146.79',1147946933,1,0,1,1,1,1,'','','Gabri,\n\nNosotros nos limitamos a reproducir ficheros metafiles de 32 bits. Es el propio Windows el que los muestra así.','',0,'iA==','1vpikml5',1,0,'',2,0,0),(13380,3059,6,61,0,'201.217.164.170',1147949093,1,0,1,1,1,0,'','','Rodolfo:\n\nSoy Ruben Fernandez de Uruguay y con 49 recien cumplidos (08 de Mayo) \no sea que comence a vivir mis 50.\n\nSaludos desde Uruguay.\n\nRuben Fernandez.','',0,'iA==','10b0luzn',1,0,'',61,0,0),(13381,3059,6,21,0,'80.58.49.235',1147949499,1,0,1,1,1,1,'','','Hola\n\nSoy Fernando González de Palencia. Tengo 29 recien cumplidos (27-04). Creo que soy de los mas jovencitos\n\nLlevo 6 años dedicandome profesionalmente a programar con clipper/xharbour/harbour y fivewin.\n\nAunque ya vengo de mas atras ya que estudie programación cuando todavía enseñaban con clipper.','',0,'iA==','2oldgscu',1,0,'',21,0,0),(13382,3061,3,160,0,'210.212.142.91',1147951761,1,0,1,1,1,0,'','Ini Class Problem','Hello All,\n\nIn order to open the file using Ini class, I need to mention, the complete path of the file, which I do with curdrive() and curdir() function. But when I run the application from network however, above two function do not return me the complete network path, hence I am not able to open the same properly when used in network.\n\nIs there any way out ?\n\nTIA\nMilan.','',0,'iA==','vjd44nmg',1,0,'',160,0,0),(13383,3062,6,490,0,'80.24.224.89',1147953847,1,0,1,1,1,0,'','Duda y problema con TButtonBmp','Hola,\n\nViendo el código de esta clase (TButtonBmp), he visto que la data ::hBitmap no se destruye en ningún momento. ¿Se destruye en otro lugar de FWH o pierde recursos?\n\nY otra cosa que se me plantea es cambiar el bitmap por otro en tiempo de ejecución, pero no he visto un método que lo haga, tipo ChangeBitMap(cNewBmp)\n\n¿Forma de implementarlo? ¿existe algo para hacerlo?\n\nUn Saludo,\nJoaquín','',0,'iA==','2f0t7pb5',1,0,'',490,0,0),(13384,3059,6,36,0,'200.113.56.235',1147958263,1,0,1,1,1,0,'','','Hola \n\nSoy Patricio Avalos Aguirre, de La Serena Chile con 36 añitos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> y programando desde el dBase, Summer87,Clipper5,FW,xharbour \n\nSaludos\nPatricio','',0,'iA==','3mbwnrjs',1,0,'',36,0,0),(13385,3063,3,227,0,'200.148.67.157',1147959681,1,0,1,1,1,1,'','Files XML','Amigos...\n\nPreciso criar e ler um arquivo XML.\n\nComo devo proceder??\n\nObrigado','',0,'iA==','2vomfh3d',1,0,'',227,0,0),(13386,3061,3,303,0,'72.199.41.171',1147964132,1,0,1,1,1,0,'','','Milan,\n\nWhere are you putting the INI file? If it is in the application directory, then you don\'t need the path. If it is in a subdirectory of the application, then use something like \"..\\data\\\" as the path.\n\nOr, maybe this will help:\n\nHere is how to find the path to the application you are running. It handles long file/path names by returning the short ones. Trailing slash is included.\n\ncPath:= (cFilePath( GetModuleFileName( GetInstance() ) ))\n\nJames','',0,'iA==','3afbhi2c',1,0,'',303,0,0),(13387,3059,6,579,0,'148.223.141.242',1147966997,1,0,1,1,1,1,'','','Antonio, estoy de acuerdo con lo que dices, pero.... y tu edad? No le saque!\n\n y respecto a la encuesta? No podrias hacerla con los siguientes datos?\n\nQue edad tienes?\n\nMenos de 20\n21 a 30\n31 a 40\n41 a 50\nmas de 50','',0,'iA==','5va2zift',1,0,'',579,0,0),(13388,3062,6,40,0,'201.132.139.117',1147967889,1,0,1,1,1,0,'','','Joaquín Yo lo hago de esta manera\n\noBtn:SetBmp(\'Borr1\')\noBtn:cToolTip:=\'Borrar\'\noBtn:refresh()\n\ny a la clase le agregale el siguiente método :\n\nMETHOD SetBMP()           // Jaam\n\nSaludos y espero te ayude\nJoel Andujo\n\n\n[code:14465kry]\n*----------------------------*\nMETHOD SetBMP&#40; cBitMap &#41;  CLASS TButtonBmp\n local hBitMap\n if valtype&#40; cBitMap &#41;== \'C\'\n    hBitMap&#58;=if&#40; file&#40;cBitMap&#41;,ReadBitmap&#40; 0, cBitMap&#41;, LoadBitmap&#40; GetResources&#40;&#41;, cBitmap&#41;&#41;\n\n    &#58;&#58;hBitmap&#58;=&#123;hBitmap, hBitmap, hBitmap, hBitmap&#125;\n else\n    for i=1 to 4\n       if valtype&#40;cBitMap&#91;i&#93;&#41;=\'U\'; cBitMap&#91;i&#93;&#58;=cBitMap&#91;1&#93; ; endif\n       &#58;&#58;cBitmap&#91;i&#93;&#58;=cBitMap&#91;i&#93;\n       &#58;&#58;hBitmap&#91;i&#93;&#58;=if&#40; file&#40;cBitMap&#91;i&#93;&#41;, ReadBitmap&#40;0, cBitmap&#91;i&#93;&#41;, LoadBitmap&#40; GetResources&#40;&#41;, cBitmap&#91;i&#93; &#41; &#41;\n    next\n endi\n\n &#58;&#58;Refresh&#40;&#41;\nreturn Nil[/code:14465kry]','',0,'AIA=','14465kry',1,0,'',40,0,0),(13389,3064,6,533,0,'80.32.177.143',1147968273,1,0,1,1,1,0,'','Ayuda con TOLEAUTO','Hola Foro <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n   Os comento, tengo una aplicación en la cual estoy interactuando con word y excell, despues de leer en el foro y en varios artículos relacionados creo que el problema esta en la librería hbole.lib que tengo enlazada en mi fichero .bc (por supuesto, antes que las de fwh). El problema es que cada vez que invoco a cualquiera de las 2 clases me sale un gpf: \n\nCALLED FROM HBCLASS:NEW(0)\nCALLED FROM TOLEAUTO:(0)\nCALLED FROM TEXCEL....\n\n   No se si el problema puede venir de que uso Microsoft Office 2003. Muchas gracias de antemano por esta y mis dudas anteriormente resueltas.\n\nharbour build 43.0 flex\nbcc32\nilink32 (microsoft c++)','',0,'AIA=','3c7v7zrw',1,0,'',533,0,0),(13390,3059,6,40,0,'201.132.139.117',1147968298,1,0,1,1,1,0,'','','Hola estimados, el próximo 24 de este mes acumulo 32 años de vida\ny 16 desarrollando, empece con clipper summer´87 y actualmente\nFWxH + ADO + MS-SQL y la verdad sigo aprendiendo, no hay nada que no haya podido hacer con nuesto FWH y ahora con FW para PocketPC\n!!! Impresionante  ¡¡¡.\n\nSaludos a todos\nJoel Andujo','',0,'AIA=','2hwlu6ls',1,0,'',40,0,0),(13391,2980,6,40,0,'201.132.139.117',1147968704,1,0,1,1,1,0,'','','Master, una pregunta este curso esta orientado unicamente a CGI o tambien se se algo de ASP ?\no es un curso aparte de ASP ?\n\nla pregunta es por que estoy interesado tanto en CGI como en ASP\n\nSaludos\nJoel Andujo','',0,'AIA=','2goft5pk',1,0,'',40,0,0),(13392,3059,6,110,0,'165.98.147.118',1147969552,1,0,1,1,1,1,'','','Carlos Vargas, 32 años(nov,2,1973), Nicaragua, con seis años de fw[h], pero de antes 4 años con clipper, o sea sumando unos 10 en etas cosas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, y si, es cierto, cada dia aprendo mas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'','18m9jl38',1,0,'',110,0,0),(13393,3059,6,106,0,'85.34.123.169',1147970285,1,0,0,1,1,0,'','','37 jovenes años <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  , de los cuales unos 18 programando desde el dBase, luego Clipper S.87/5, FW desde hace 6 años, y desde hace 3 con xHarbour.','',0,'','2584uht4',1,0,'',106,0,0),(13394,3059,6,228,0,'201.245.222.85',1147970576,1,0,1,1,1,1,'','yo tengo 28','Tengo 28 años recien cumplidos, como ya todos saben soy de Colombia y he pasado mas o menos cuatro felices años programando solo en fivewin, hasta ahora solo habia hecho cosas pequeñas en fox... pero en este momento pienso que fivewin es lo mejor..  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','jg5fcxps',1,0,'',228,0,0),(13395,3055,6,228,0,'201.245.222.85',1147970971,1,0,1,1,1,1,'','gracias','Gracias a todos por las respuestas... las probe todas pero la de victor se adapata mas a lo que necesito en el momento... \n\nLo de los instaladores es bueno.. pero no se ajusta a lo que necesito en el momento...','',0,'','2amstjci',1,0,'',228,0,0),(13396,3062,6,490,0,'80.24.224.89',1147971951,1,0,1,1,1,0,'','','Joel,\n\nCreo que te estás equivocando, has puesto:\n\n::hBitmap:={hBitmap, hBitmap, hBitmap, hBitmap}\n\ny ::hBitmap es un número no un array de números, me parece que eso era la clase TbtnBmp , yo estoy preguntando por la nueva clase que tiene estilo XP.\n\n\nGracias de todas formas,\nJoaquín','',0,'','36lcwmwf',1,0,'',490,0,0),(13397,3062,6,40,0,'201.132.139.117',1147974486,1,0,1,1,1,0,'','','Si Joaquín, de ahi lo tome como ejemplo y me funciona bien, con la \nButtonB.prg de Rossine apariencia XP\n\nsaludos\nJoel Andujo','',0,'','3l9g6fvv',1,0,'',40,0,0),(13398,3055,6,228,0,'201.245.222.85',1147975725,1,0,1,1,1,1,'','Esto sirve?','Mirando por ahi varios de los ejemplos de five win me encontre con esta otra opcion.. creo que tambien sirve...\n\ncIni := \".\\inicioser.ini\"\n\nalguien me puede indicar realmente como funciona?','',0,'','7gr9mfl9',1,0,'',228,0,0),(13399,2980,6,228,0,'201.245.222.85',1147976010,1,0,1,1,1,1,'','Quiero ir al curso pero...','Rene me interesa el curso pero como sabes ando por aqui en Colombia.. que se puede hacer para esto?','',0,'','w07bwmme',1,0,'',228,0,0),(13400,3063,3,69,0,'206.210.97.138',1147976154,1,0,1,1,1,0,'','','Hi,\n\nI was sent these files awhile back ... hope it helps.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01c0163f34/xml.rar.html\">http://hyperupload.com/download/01c0163f34/xml.rar.html</a><!-- m -->\n\n\n\nJeff','',0,'','39g8icwf',1,0,'',69,0,0),(13401,2985,4,240,0,'85.201.103.53',1147976619,1,0,1,1,1,1,'','','Hello Antonio,\n\nI used Borland impdef.exe and then VCE lib.exe.\nAll seems to be ok and i have the wdgps_ce.lib file.\n\nWhat should I do now ?\n\nThanks for your help,\nRaymond','',0,'','ouenr1qw',1,0,'',240,0,0),(13402,3065,7,533,0,'80.32.177.143',1147978666,1,0,1,1,1,0,'','Como ejecutar los ejemplos','Hola foro:\n\n   Acabamos de adquirir el paquete de fwppc, y disculpar mi ignorancia, pero me gustaria saber como puedo ejecutar los ejemplos en el emulador. Muchas gracias de antemano.','',0,'','zoxpxdu8',1,0,'',533,0,0),(13403,3066,4,213,0,'72.177.228.25',1147979186,1,0,1,1,1,0,'','Printing from Handhelds','All,\n\nI haven\'t found many posts here related to printing from handhelds and would like to clarify what options are available.  Is printing only available through bluetooth or can you use IRDA?  How do you print to the device, by writing to a COM port?  Any way to control font/pitch size?\n\nI have a lot of customers using Citizens CMP-10 portable printers, some with IR and others with Bluetooth.  Some users are using HP\'s and other portable printers.  I need something generic that will work with any ir or bluetooth enabled portable printer.\n\nHas anyone considered implementing something that would work with a 3rd party printer SDK like what\'s available at?:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fieldsoftware.com\">www.fieldsoftware.com</a><!-- w -->\n\nThanks,\nRandal Ferguson','',0,'','19y2zs9a',1,0,'',213,0,0),(13404,3010,6,439,0,'190.0.140.117',1147979324,1,0,1,1,1,1,'','RepExcel con temas XP','Ahora la clase para enviar a excel los reportes de la clase TReport en español y con los temas de XP!!!\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02261e3839/REPEXCEL.exe.html\">http://hyperupload.com/download/02261e3 ... L.exe.html</a><!-- m -->\n\nRecuerden que se usa con la clase FileXLS que está en este mismo foro.\n\nNuevamente gracias a todos los que con su aporte la hacen posible. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','sypqb7f1',1,0,'',439,0,0),(13406,3059,6,295,0,'200.112.86.59',1147983682,1,0,1,1,1,1,'','','Hola Amigos !\n\nYo ya con 43 , empecé por el 83 con Cobol, Basic, Dbase III y despues la maravilla para esa época Clipper Summer 87 y luego CA clipper 5.3,  hasta que conocí la maravilla  de FW 1.9 el 2002 y ahora con FWxHarbour. Creo que no hay nada que no se pueda hacer con esta estupenda herramienta..  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos y un Abrazo a todos los FiveWinners','',0,'','yb8od6h8',1,0,'',295,0,0),(13407,3065,7,2,0,'87.218.146.79',1147984227,1,0,1,1,1,1,'','','Mike,\n\nEn el emulador, selecciona en el menú arriba File-Configure-Shared_folder y selecciona un directorio del PC en donde copiar los ejemplos.\n\nLuego en el emulador dale al botón central del \"File Explorer\" que es la emulación de la tarjeta de memoria. Ahí estarán los ejemplos, del directorio compartido, y los puedes ejecutar.\n[url=http&#58;//imageshack&#46;us:lp9vfjah][img:lp9vfjah]http&#58;//img519&#46;imageshack&#46;us/img519/3903/files7ys&#46;png[/img:lp9vfjah][/url:lp9vfjah]','',0,'GA==','lp9vfjah',1,0,'',2,0,0),(13408,2980,6,295,0,'200.112.86.59',1147984235,1,0,1,1,1,1,'','','me sumo a la inquietud de LEANDRO ALFONSO, que tal unos cursos a distancia e-learning? para todos los fivewineros del mundo?, si los precios son razonables podría ser muy beneficioso para toda nuestra comunidad.\n\nSALUDOS','',0,'GA==','2ztawju3',1,0,'',295,0,0),(13409,3067,7,533,0,'88.1.66.214',1147986383,1,0,1,1,1,0,'','Todo ok!!','Gracias Antonio, ahora ya puedo empezar  a hacer algo.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','393kgacb',1,0,'',533,0,0),(13410,3002,6,41,0,'200.87.67.10',1147987658,1,0,1,1,1,0,'','','Manuel,\n\ngracias, esta modifcacion al la clase qet soluciono mi problema, seguro que en las versiones mas actuales de FW, ya esta solucionado\n\nsaludos\n\nMarcelo\n\n[quote=&quot;Manuel Valdenebro&quot;:3frmggbp]Marcelo,\n\nSi el código anterior no funciona, estoy casi seguro, que el problema está en la clase TGET. Yo lo tuve hace tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate():\n\nMETHOD EditUpdate() CLASS TGet\n\n   if ::oGet:HasFocus\n      ::DispText()\n      [b:3frmggbp]::oGet:Assign()  //LKM actualiza buffer actual[/b:3frmggbp]\n   endif\n\n   ::SetPos( ::oGet:Pos )\n\nreturn nil[/quote:3frmggbp]','',0,'wA==','3frmggbp',1,0,'',41,0,0),(13411,3059,6,78,0,'201.230.73.222',1147987659,1,0,1,1,1,0,'','','Hola amigos, me sumo a la barra, con mis 43 lozanos añitos, trabajando  20 de ellos en sistemas... y espero 20 mas y otros 20 más.... en lo mismo  (salvo otra opinion del supremo)...\nSalu2 a todos y larga vida a FW...\nWilli','',0,'wA==','1lhl1lda',1,0,'',78,0,0),(13412,3057,6,519,0,'83.37.1.152',1147988866,1,0,1,1,1,0,'','','Antonio\n\n  Esos ficheros metafiles no se pueden mejorar para que las imagenes se vean mejor ?, es que se ven faltal.\n\n  un saludo y gracias desde ya\n\n Gabri','',0,'wA==','2v6gv9vs',1,0,'',519,0,0),(13413,3059,6,73,0,'201.133.255.58',1147998067,1,0,1,1,1,0,'','','pues ya con mi añiotes, 40 y estoy pelon, asi que me sumo a uds. y decirles que llevo programando desde clipper 87 y con fwh como 4 años\nsaludos y largaaaaaaaaaa vidaaaaaaaaaaaaaaa','',0,'wA==','3inpe9yd',1,0,'',73,0,0),(13414,2980,6,439,0,'190.0.129.114',1148000598,1,0,1,1,1,1,'','Cursos a distancia','Lo mismo digo René,\n\nRecordarás que te escribí consultándote al respecto (sin respuesta).','',0,'wA==','37vaw2xf',1,0,'',439,0,0),(13415,3023,17,439,0,'190.0.129.114',1148001307,1,0,1,1,1,1,'','REPEXCEL con los temas XP','Ahora la clase para enviar a excel los reportes de la clase TReport en sepañol y con los temas de XP!!! \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02261e3839/REPEXCEL.exe.html\">http://hyperupload.com/download/02261e3 ... L.exe.html</a><!-- m --> \n\nRecuerden que se usa con la clase FileXLS que está en este mismo foro. \n\nNuevamente gracias a todos los que con su aporte la hacen posible.\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'wA==','eddtozsq',1,0,'',439,0,0),(13416,2980,6,171,0,'71.232.193.197',1148003770,1,0,1,1,1,0,'','','Rene,\n\nEstoy en Boston y tambien me interesaria participar en unos de tus cursos via Internet.\n\nSaludos\n\n\nGeorge','',0,'wA==','3mbtqjv5',1,0,'',171,0,0),(13417,3059,6,431,0,'200.8.89.136',1148006489,1,0,1,1,1,1,'','35','Tengo 35 años y como 10 en clipper + fw + fwh + + + +.\ncomo 10 años intentando hacer cosas en clipper asi empezo todo \ndesde venezuela estamos a la orden.','',0,'wA==','14733gal',1,0,'',431,0,0),(13418,3055,6,54,0,'201.98.190.68',1148012772,1,0,1,1,1,1,'','Re: Esto sirve?','[quote=&quot;leandro&quot;:1l7thxoh]Mirando por ahi varios de los ejemplos de five win me encontre con esta otra opcion.. creo que tambien sirve...\n\ncIni := \".\\inicioser.ini\"\n\nalguien me puede indicar realmente como funciona?[/quote:1l7thxoh]\n\nMi estimado, los INI es un archivo de texto donde guardas parámetros.\nEj.\n\n[AUTOR]\n  Empresa=INCOS (c) 2006\n  Sistema=Marcajes personalizadas - INCOS (c) 2006\n  eMail=soporte.tecnico@incos.com.mx\n  WEB=www.incos.com.mx\n  Teléfono=(937) 322-5044\n\nY rescatarlos desde tu aplicación.\n\n[code:1l7thxoh]\ncIniFile &#58;= &quot;&#46;\\leandro&#46;ini&quot;\nWritePProString&#40; &quot;AUTOR&quot; , &quot;Copyright  &quot;, &quot;Incos &#40;c&#41; 2006&quot;, cIniFile &#41;\n[/code:1l7thxoh]\nAUTOR es digamos el item PADRE y Copyright será el item HIJO, el código anterior es para guardar un valor en el ini\n\n[code:1l7thxoh]\ncIniFile    &#58;= &quot;&#46;\\leandro&#46;ini&quot;\ncCopyR   &#58;= GetPvProfString&#40; &quot;AUTOR&quot;, &quot;Copyright&quot;, &quot;0&quot;, cIniFile &#41;\n[/code:1l7thxoh]\n\nEn este último código, es para rescatar el valor guardado con anterioridad, te comento que los valores pasados son de tipo caracter, eso quiere decir que hay que convertir los valores de tipo diferente.\n\nEspero haber sido claro, o por lo menos un poco menos confuso\n\njjejjejje','',0,'gIA=','1l7thxoh',1,0,'',54,0,0),(13419,3049,2,74,0,'190.49.69.65',1148016539,1,0,1,1,1,1,'','','Manuel:\n\n            Yo hago eso bastante seguido y no tengo problemas. Lo uso para dos browses uno debajo del otro, el de arriba con los encabezados de facturas y el de abajo scopeado con el detalle de articulos o para filtrar la cuenta corriendo de un cliente, etc, etc.\n\n             Con lo que tenes que tener cuidado con los scopes es con no errarle al indice que corresponde activar para el scope o a los datos que mandas a filtrar, si no coinciden ahi es donde se producen cuelgues del programa o gpfs.\n\n[code:2philh3v]\n\n\n  REDEFINE LISTBOX oBrw Fields DTOC&#40;CCCLI-&gt;FECHA&#41;,;\n															 CCCLI-&gt;DETALLE,;\n															 TRANS&#40;CCCLI-&gt;DEBE,&quot;@E 999,999&#46;99&quot;&#41;,;\n															 TRANS&#40;CCCLI-&gt;HABER,&quot;@E 999,999&#46;99&quot;&#41;,;\n															 TRANS&#40;CCCLI-&gt;SALDO,&quot;@E 999,999&#46;99&quot;&#41;;\n															 ID 110  OF oDlg;\n  HEADERS &quot;Fecha&quot;,&quot;Detalle&quot;,&quot;Debe &quot;,&quot;Haber&quot;,&quot;Saldo &quot;;\n  FIELDSIZES 80, 290, 90, 90, 90;\n  COLOR CLR_BLACK, RGB&#40;202, 197, 192&#41;\n\n	REDEFINE BTNGET oDesde VAR cDesde ID 113 OF oDlg ;\n      RESOURCE &quot;B_Cld&quot; PICTURE &quot;@D&quot; VALID ValDesde&#40;oBrw,vCodigo,@cDesde,oDesde,@vSaldo,oSaldo&#41; ;\n			FONT oFont3;\n      ACTION &#40;aRec &#58;=GetCoors&#40;oDesde&#58;hWnd&#41;,;\n              cDesde&#58;=Calend&#40;cDesde,aRec&#91;1&#93;,aRec&#91;4&#93;,oDlg&#41;,;\n              oDesde&#58;Refresh&#40;&#41;,oDesde&#58;SetFocus&#40;&#41;&#41;\n\n	REDEFINE BTNGET oHasta VAR cHasta ID 114 OF oDlg ;\n      RESOURCE &quot;B_Cld&quot; PICTURE &quot;@D&quot; VALID ValHasta&#40;oBrw,vCodigo,@cHasta,oHasta,@vSaldo,oSaldo&#41; ;\n			FONT oFont3;\n      ACTION &#40;aRec &#58;=GetCoors&#40;oHasta&#58;hWnd&#41;,       ;\n              cHasta&#58;=Calend&#40;cHasta,aRec&#91;1&#93;,aRec&#91;4&#93;,oDlg&#41;,;\n              oHasta&#58;Refresh&#40;&#41;,oHasta&#58;SetFocus&#40;&#41;&#41;\n\nFUNCTION ValDesde&#40;oBrw,vCodigo,wFecdsd,oFecent,vSaldo,oSaldo&#41;\n	 vSaldo&#58;=0\n   IF EMPTY&#40;WFECDSD&#41;\n		  CCCLI-&gt;&#40;ORDSCOPE&#40;0,PADL&#40;vCodigo,4,\'0\'&#41;+&quot;19900101&quot;&#41;&#41;\n			CCCLI-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n      wfecdsd&#58;=CCCLI-&gt;FECHA\n      oFecent&#58;Refresh&#40;&#41;\n   ENDIF\n	CCCLI-&gt;&#40;ORDSCOPE&#40;0,PADL&#40;vCodigo,4,\'0\'&#41;+DTOS&#40;wFecdsd&#41;&#41;&#41;\n	CCCLI-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n	CCCLI-&gt;&#40;DbEval&#40; &#123; || vSaldo+= CCCLI-&gt;DEBE - CCCLI-&gt;HABER,IF&#40;CCCLI-&gt;&#40;DBRLOCK&#40;&#41;&#41;,&#40;CCCLI-&gt;SALDO&#58;=vSaldo,;\n	                     CCCLI-&gt;&#40;DBUNLOCK&#40;&#41;&#41;&#41;,&#41;&#125; &#41;&#41;\n	CCCLI-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n	oBrw&#58;Refresh&#40;&#41;\n	oSaldo&#58;Refresh&#40;&#41;\n\nRETURN &#46;T&#46;\n\nFUNCTION ValHasta&#40;oBrw,vCodigo,wFecHST,oFecent,vSaldo,oSaldo&#41;\nvSaldo&#58;=0\n   IF EMPTY&#40;WFECHST&#41;\n      wfecHST&#58;=DATE&#40;&#41;\n      oFecent&#58;Refresh&#40;&#41;\n   ENDIF\n	CCCLI-&gt;&#40;ORDSCOPE&#40;1,PADL&#40;vCodigo,4,\'0\'&#41;+DTOS&#40;wFecHST&#41;&#41;&#41;\n	CCCLI-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n	CCCLI-&gt;&#40;DbEval&#40; &#123; || vSaldo+= CCCLI-&gt;DEBE - CCCLI-&gt;HABER,IF&#40;CCCLI-&gt;&#40;DBRLOCK&#40;&#41;&#41;,&#40;CCCLI-&gt;SALDO&#58;=vSaldo,;\n	                     CCCLI-&gt;&#40;DBUNLOCK&#40;&#41;&#41;&#41;,&#41;&#125; &#41;&#41;\n	CCCLI-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n	LLOCLIEN-&gt;&#40;DBSETORDER&#40;1&#41;&#41;\n	IF LLOCLIEN-&gt;&#40;DBSEEK&#40;PADL&#40;vCodigo,4,\'0\'&#41;,&#46;F&#46;&#41;&#41;\n		IF LLOCLIEN-&gt;&#40;DBRLOCK&#40;&#41;&#41;\n			REPLACE LLOCLIEN-&gt;SALDOM WITH vSaldo\n			REPLACE LLOCLIEN-&gt;SALDOD WITH DATE&#40;&#41;\n			LLOCLIEN-&gt;&#40;DBUNLOCK&#40;&#41;&#41;\n		ENDIF\n	ENDIF\n	LLOCLIEN-&gt;&#40;DBCOMMIT&#40;&#41;&#41;\n\n	oBrw&#58;Refresh&#40;&#41;\n	oSaldo&#58;Refresh&#40;&#41;\n\nRETURN &#46;T&#46;\n\n\n[/code:2philh3v]\n\nSaludos,','',0,'AIA=','2philh3v',1,0,'',74,0,0),(13420,3048,1,312,0,'24.150.179.34',1148018077,1,0,1,1,1,0,'','','You\'re right ... but you can use the same edit text box control in an rc or dll file, for a get or a say, with the read only property. when it\'s redefined as a \"Say\" , i have to set the colors to look like a normal \"say\". the only problem is the tab stop. I would like to remove it when i use the text box control as a \"say\" , or conversely add it when its used as a get.','',0,'AIA=','e5jjyo6s',1,0,'',312,0,0),(13421,3068,20,154,0,'151.21.58.8',1148020430,1,0,1,1,1,1,'','segreteria telefonica','Ciao a tutti,\nè possibile fare una segreteria telefonica con xHarbour o Fivewin?\nesiste qualche esempio o qualcuno ha già fatto qualcosa?\n\nGrazie per le risposte.\nUgo','',0,'AIA=','11up5st9',1,0,'',154,0,0),(13423,3048,1,6,0,'87.6.213.155',1148022090,1,0,1,1,1,1,'','','You can disable the GET and change its default disabled-color (oGet:lDisColors) to CLR_BLACK.\n\nEMG','',0,'AIA=','2ou2zli2',1,0,'',6,0,0),(13425,3070,3,239,0,'219.137.198.234',1148024950,1,0,1,1,1,0,'','2 txbrowse in 1 dialog, bdblclick cause browse display wrong','Hi,\n   If I put 2 txbrowse into 1 dialog,  after dblclick on one txbrowse, click each of the 2 txbrowses ,the 2 txbrowse will cause worng refresh/display/confused.\n  Any suggestion ?\nBest regard!\nShuming Wang','',0,'AIA=','40gw92t9',1,0,'',239,0,0),(13426,3071,20,135,0,'82.91.87.23',1148026075,1,0,1,1,1,0,'','Generare PDF da anteprima stampa','Salve a tutti,\nqualcuno di voi ha modificato il modulo preview inserendo l\'esportazione della stampa in PDF','',0,'AIA=','2t3wqcd6',1,0,'',135,0,0),(13427,3045,3,154,0,'151.21.58.8',1148026368,1,0,1,1,1,1,'','','For Antonio:\nThis problem is for the incorrect initialization of ::aHeaders into WBrowse Class! \nI suggest this:\n\nat line 1184:\n[code:uzwkepl4]   if Len&#40; &#58;&#58;aHeaders &#41; &lt; nElements\n      if &#58;&#58;Cargo == nil\n         &#58;&#58;aHeaders = Array&#40; nElements &#41;\n         IF Upper&#40; &#58;&#58;cAlias &#41; != &quot;ARRAY&quot;       \n            for n = 1 to nElements\n               &#58;&#58;aHeaders&#91; n &#93; = &#40; cAlias &#41;-&gt;&#40; FieldName&#40; n &#41; &#41;\n            next\n         ELSE\n            &#58;&#58;aHeaders &#58;= AFill&#40; &#58;&#58;aHeaders, &quot;&quot; &#41;\n         ENDIF\n      else\n         &#58;&#58;aHeaders = &#123; &quot;&quot; &#125;\n      endif\n   endif[/code:uzwkepl4]\n\nand at line 1824:\n[code:uzwkepl4]   if ! Empty&#40; &#58;&#58;cAlias &#41; &#46;and&#46; Upper&#40; &#58;&#58;cAlias &#41; != &quot;ARRAY&quot;  // aggiunto da Ugo il 22/03/04\n\n      &#58;&#58;bGoTop     = If&#40; uVal1 != nil, &#123; || &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbSeek&#40; uVal1, &#46;t&#46; &#41; &#41; &#125;,;\n                                    &#123; || &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbGoTop&#40;&#41; &#41; &#125; &#41;\n\n      &#58;&#58;bGoBottom  = If&#40; uVal2 != nil, &#123; || &#40; &#58;&#58;cAlias &#41;-&gt;&#40; BrwGoBottom&#40; uVal2 &#41; &#41; &#125;,;\n                                    &#123; || &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbGoBottom&#40;&#41; &#41; &#125; &#41;\n\n      &#58;&#58;bSkip      = If&#40; uVal1 != nil, BuildSkip&#40; &#58;&#58;cAlias, cField, uVal1, uVal2 &#41;,;\n                      &#123; | n | &#40; &#58;&#58;cAlias &#41;-&gt;&#40; _DbSkipper&#40; n &#41; &#41; &#125; &#41;\n\n      &#58;&#58;bLogicLen  = If&#40; uVal1 != nil,;\n                      &#123; || &#40; &#58;&#58;cAlias &#41;-&gt;&#40; Self&#58;RecCount&#40; uVal1 &#41; &#41; &#125;,;\n                      &#123; || &#40; &#58;&#58;cAlias &#41;-&gt;&#40; RecCount&#40;&#41; &#41; &#125; &#41;\n\n      &#58;&#58;nLen       = Eval&#40; &#58;&#58;bLogicLen, Self &#41;\n\n      &#58;&#58;lHitTop    = &#46;f&#46;\n      &#58;&#58;lHitBottom = &#46;f&#46;\n\n      if uVal1 != nil\n         Eval&#40; &#58;&#58;bGoTop, Self &#41;\n      endif\n   else\n      &#58;&#58;bLogiclen = &#123; || 0 &#125;\n   endif[/code:uzwkepl4]','',0,'AIA=','uzwkepl4',1,0,'',154,0,0),(13428,3072,4,89,0,'213.21.136.60',1148027786,1,0,1,1,1,0,'','Detect  signal  wireless','It is possible detect the level of wireless signal ? \n\nRegards  Maurizio','',0,'AIA=','2cnshj79',1,0,'',89,0,0),(13429,3073,20,532,0,'84.222.125.78',1148030778,1,0,1,1,1,0,'','c 3001 MEMORY OVERBOOKED','Ho avuto molti problemi (C 3001 MEMORY OVERBOOKED) durante la\ncompilazione, leggendo sui forum ho visto che a molti succede\nla stessa cosa, io ho risolto tutto compilando nel seguente modo,\nnon so perchè, evidentemente compilavo in modo errato!\n\n\n*------------------\nComp.BAT\n\n@ECHO OFF\nECHO Compiling...\n\nclipper TEST   /ES2/M/N..@\\fw24\\include %2 %3\nclipper UNO    /ES2/M/N..@\\fw24\\include %2 %3\nclipper DUE    /ES2/M/N..@\\fw24\\include %2 %3\nclipper TRE    /ES2/M/N..@\\fw24\\include %2 %3\n\nECHO Linking...\n\nblinker fi test,uno,due,tre @test.lnk\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\nECHO.\n\nGOTO EXIT\n\n:LINKERROR\nPAUSE * Linking errors *\nGOTO EXIT\n\n:EXIT\n\nTEST\n\n*-----------------------------\n\nTest.LNK\n\nblinker incremental OFF\nblinker clipper symbol OFF\n\nPACKCODE\nDEFBEGIN\n        name            Fivewin\n        description     \'Clipper for Windows library\'\n   	exetype     	Windows 3.1\n   	code        	moveable discardable preload\n   	data       		preload moveable\n        stacksize       9500\n        heapsize        8520\n   	segment    	\'PLANKTON_TEXT\' 	nondiscardable\n   	segment     	\'EXTEND_TEXT\'   	nondiscardable\n   	segment     	\'OM_TEXT\'       		nondiscardable\n   	segment     	\'OSMEM_TEXT\'    	nondiscardable\n   	segment     	\'SORTOF_TEXT\'   	nondiscardable\n   	segment     	\'STACK_TEXT\'    	nondiscardable\nDEFEND\nNOBELL\n\nSEARCH  Five, FiveC, Objects\nLIB     WinApi, Clipper, Extend, DbfNtx, Terminal','',0,'AIA=','3ui8sc7a',1,0,'',532,0,0),(13430,3071,20,6,0,'87.6.213.155',1148031579,1,0,1,1,1,1,'','Re: Generare PDF da anteprima stampa','Sarebbe interessante sapere come...\n\nEMG','',0,'AIA=','30v5vmgd',1,0,'',6,0,0),(13431,2985,4,2,0,'87.218.146.180',1148032290,1,0,1,1,1,1,'','','Raymond,\n[code:3n3w8tf5]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; CNVDEGTOXY &#41;\n&#123;\n   double dX = hb_parnd&#40; 3 &#41;, dY = hb_parnd&#40; 4 &#41;;\n\n   LatLon_WGS84_2_LT1&#40; hb_parnd&#40; 1 &#41;, hb_parnd&#40; 2 &#41;, &amp;dX, &amp;dY &#41;;\n\n   hb_stornd&#40; dX, 3 &#41;;\n   hb_stornd&#40; dY, 4 &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:3n3w8tf5]\nRemember to link the library that you have created.','',0,'AIA=','3n3w8tf5',1,0,'',2,0,0),(13432,3066,4,2,0,'87.218.146.180',1148032686,1,0,1,1,1,1,'','','Randal,\n\n&gt; Is printing only available through bluetooth or can you use IRDA?\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2712&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\n&gt; How do you print to the device, by writing to a COM port?\nYes\n\n&gt; Any way to control font/pitch size?\nAs done on msdos printers (?)','',0,'AIA=','14czyldx',1,0,'',2,0,0),(13433,2486,16,2,0,'87.218.146.180',1148034600,1,0,1,1,1,1,'','','May 19 2006 builds:\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0123f5f135/harbour.exe.html\">http://hyperupload.com/download/0123f5f ... r.exe.html</a><!-- m -->\n\nHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b8d94560/harbourm.exe.html\">http://hyperupload.com/download/02b8d94 ... m.exe.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0258c66126/xharbour.exe.html\">http://hyperupload.com/download/0258c66 ... r.exe.html</a><!-- m -->\n\nxHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0187db2b77/xharbourm.exe.html\">http://hyperupload.com/download/0187db2 ... m.exe.html</a><!-- m -->','',0,'AIA=','2kmsjiym',1,0,'',2,0,0),(13434,3074,3,460,0,'217.37.54.49',1148034663,1,0,1,1,1,0,'','Picture/Get Question','Hi,\n\nIn my 16-bit FW app, I had a conditional picture and a numeric field in the following format:\n\n\'@B XXXXXX.XX\'\n\nin the 16-bit app, the field always displayed XXXXXX.XX which was perfect as i could hide values for certain users.\n\nHowever, in my xharbour version, the field has no values and it resets the memory variables to 0\n\nis there an alternative picture i could use or should i be using a diferent method (oGet:...())?\n\nThanks in advance\n\nPete','',0,'AIA=','2vdy8ivn',1,0,'',460,0,0),(13435,3041,3,193,0,'195.212.29.171',1148036464,1,0,1,1,1,0,'','','The maximum number of characters in a full path, including the drive letter, colon, leading backslash, file name, and terminating null character, is 260.','',0,'AIA=','189erfjm',1,0,'',193,0,0),(13436,3045,3,2,0,'87.218.146.180',1148036615,1,0,1,1,1,1,'','','Ugo,\n\nThis way we have a number for each column:\n[code:13wuln2w]\n   if Len&#40; &#58;&#58;aHeaders &#41; &lt; nElements\n      if &#58;&#58;Cargo == nil\n         &#58;&#58;aHeaders = Array&#40; nElements &#41;\n         for n = 1 to nElements\n             if ! Empty&#40; cAlias &#41; &#46;and&#46; Upper&#40; cAlias &#41; != &quot;ARRAY&quot;\n                &#58;&#58;aHeaders&#91; n &#93; = &#40; cAlias &#41;-&gt;&#40; FieldName&#40; n &#41; &#41;\n             else\n                &#58;&#58;aHeaders&#91; n &#93; = AllTrim&#40; Str&#40; n &#41; &#41;\n             endif   \n         next\n      else\n         &#58;&#58;aHeaders = &#123; &quot;&quot; &#125;\n      endif\n   endif\n[/code:13wuln2w]','',0,'AIA=','13wuln2w',1,0,'',2,0,0),(13437,3041,3,6,0,'87.6.213.155',1148036730,1,0,1,1,1,1,'','','I confirm, you are right.\n\nEMG','',0,'AIA=','1rnnx8ah',1,0,'',6,0,0),(13438,3074,3,6,0,'87.6.213.155',1148036879,1,0,1,1,1,1,'','Re: Picture/Get Question','Can I see a little self-contained sample of the problem?\n\nEMG','',0,'AIA=','27wyevjs',1,0,'',6,0,0),(13439,3045,3,154,0,'151.21.58.69',1148037199,1,0,1,1,1,1,'','','Good solution!  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nCan you insert in next release?','',0,'AIA=','1kecnyi2',1,0,'',154,0,0),(13440,2985,4,240,0,'85.201.97.136',1148037208,1,0,1,1,1,1,'','','Many thanks,\n\nI will post the results after my tests.\n\nRegards, Saludos,\nRaymond','',0,'AIA=','301f0cun',1,0,'',240,0,0),(13441,3053,3,497,0,'212.127.159.218',1148037965,1,0,1,0,1,0,'','','Dear Roman,\n\nIt are new PC\'s with WIN XP PRO Inclusive SP2\nI do not have the processor specs yet.\nBut it are new computers.\n\nDear Who,\nI included _Wair_B already in 1996.\n\nI think I come to the conclusion that the problems my customer has is not because of Clipper apps.\nI heard that they had frequently Corruption Errors on an index file.\n\nI believe that that can only be a hardware probblem.\n\n\nDear Antonio,\n\nDo you have any experience on problems with Clipper apps in XP\n\n\nThanks to all,\n\nJules de Pierre','',0,'AIA=','3r5czmp0',1,0,'',497,0,0),(13442,3075,19,26,0,'84.255.245.173',1148038161,1,0,1,1,1,1,'','Standalone Device Emulator 1.0 with Windows Mobile OS Images','Hello!\n\nWorks only on XP.SP2 and 2003.SP1!\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=c62d54a5-183a-4a1e-a7e2-cc500ed1f19a&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->\n[quote:b3ofnd4d]\nThe Microsoft Device Emulator 1.0 is a standalone version of the same ARM based Device Emulator that ships as part of Visual Studio 2005. The standalone emulator is intended for situations when you want to demonstrate or test your application on a computer that does not have Visual Studio 2005 installed. In addition, we are offering the Windows Mobile 5.0 MSFP operating system images that you can use with the Device Emulator.\n\nDevice Emulator 1.0 has a number of features that make it significantly better than its predecessor (the x86 emulator). You will find that it: \n\nRuns code compiled for ARM processors rather than for x86 processors. In most cases, you can run the same binaries on the emulator as you do on the device.\n\nSupports synchronizing with ActiveSync. You can use the Device Emulator with a full ActiveSync partnership. This feature allows you to debug applications that are syncing, or be able to use real synchronized data from within the Device Emulator. \n\nProvides support for more development environments. The emulator has been tested for developing and debugging applications with Visual Studio 2005, Visual Studio .NET 2003, and with eMbedded Visual C++ 4.0 (eVC4) SP4, all using ActiveSync. No crossover serial cable is required.\n\nThe Device Emulator supports GAPI. You can write and debug GAPI games on the Device Emulator and expect them to work.\n[/quote:b3ofnd4d]\n\nBTW, size is 57 MB ...\n\nCheers, Roman','',0,'gA==','b3ofnd4d',1,0,'',26,0,0),(13443,3059,6,439,0,'190.0.140.121',1148038537,1,0,1,1,1,1,'','','Hola a todos yo 44 años recién cumplidos (13/05) y con ganas de más, comencé programando con summer87 y ahora con FWH + xHarbour','',0,'gA==','23gpih0m',1,0,'',439,0,0),(13444,3076,16,2,0,'87.218.146.180',1148038878,1,0,1,1,1,1,'','FTDN new May 2006 build / nuevo build de Mayo 2006','May 2006 build\n===========\n \n * Fix: Minor fix on Class TDialog to avoid to show the \"?\" help button when doing:\n        ACTIVATE DIALOG oDlg ON INIT oDlg:lHelpIcon := .f.\n        \n * Enhancement: function cTempFile() has been greatly improved in speed. This function is now used from the printing preview, so building the pages is much faster now.\n          \n * Enhancement: Class TGraph() New Methods GetDC() and ReleaseDC() to properly print ON print previews.\n            \n * Enhancement: FWPPC, WsaStartup() now uses 0x202 instead of 0x101. Suposedly this fixes the W2K connectivity.\n   \n * Fix: FWPPC, there was a bug in GetHostByName(), now it is ok.\n \n * Enhancement: New VERTICAL clause for Win32 Progress Bars. You may use the VERTICAL clause if you create them from source code, or the style #define PBS_VERTICAL 4 if you create them from resources. Please review samples\\Progres1.prg for a working sample.\n   \n * Enhancement: Class TDialog, DATA lHelpIcon improved behavior.\n \n * New: Class TButtonBmp Method End(), Method LoadBitmap( cBmpName ).\n \n * Enhancement: Class TGet, now ::oGet contents is checked for change before evaluating ::bChange, if defined, when pressing VK_TAB or VK_RETURN.\n   \n * Enhancement: FWPPC, wininet.lib has been added to samples\\buildce.bat.\n \n * New: FWPPC, samples\\ftp.prg great FTP sample for Pocket PC developed by Enrico.\n \n * New: Added high resolution icons and bitmaps (as PNGs).\n \n * Fix: FWH/FW++/FWC3 and FWPPC, Class TWBrowse properly paints the selected row colors if lCellStyle is used.\n \n * Enhancement: function FixSays() was causing some troubles on some Windows versions. now it is ok.\n\n * Enhancement: Class TWBrowse automatically generates headers contents if they are not provided and no workarea is in use (i.e. when using an array with it ). \n   \n * Enhancement: Improved Class TGet behavior when using system popup \"Cut\" option.\n   \n * Enhancement: Class TTxtFile returns Self even if the handle of the file is not valid.\n \n * Enhancement: FWPPC, minor change on used paths.\n \n * Enhancement: cGetFile() now manages 255 chars for paths and filenames.\n \n * New: FW++ has been successfully rebuilt and tested with Xbase++ 1.9 final release.','',0,'gA==','2682ekvs',1,0,'',2,0,0),(13447,3075,19,2,0,'87.218.146.180',1148039311,1,0,1,1,1,1,'','','Thanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2v4sewlm',1,0,'',2,0,0),(13448,3053,3,26,0,'84.255.245.173',1148040739,1,0,1,1,1,1,'','','Jules!\n\nWe have a DOS Clipper app running in Windows XP SP2 on several PC-s\nwith Pentium 6xx CPU-s without problems. They are linked with Blinker\n(extended mode). Which version of Clipper is used in your case? \nWhat linker? Are DBF-s located on server or on local disk?\n\nIf your Clipper app directly access hardware (like COM \nports), this might be a problem!\n<!-- m --><a class=\"postlink\" href=\"http://www.beyondlogic.org/porttalk/porttalk.htm\">http://www.beyondlogic.org/porttalk/porttalk.htm</a><!-- m -->\nMaybe this thread can help:\n<!-- m --><a class=\"postlink\" href=\"http://forums.wugnet.com/NTVDM-100-CPU-Utilization-ftopict410387.html\">http://forums.wugnet.com/NTVDM-100-CPU- ... 10387.html</a><!-- m -->\n\nLast three questions:\nIs this pure Clipper app? Do you use Nanfor library?\nHow do you set FILES= and CLIPPER= ?\n\nRegards, Roman','',0,'gA==','3shnebgb',1,0,'',26,0,0),(13449,1808,2,341,0,'200.127.97.186',1148042874,1,0,1,1,1,0,'','','Estimados Colegas\n\nA quien le interese adquirir los fuentes del sistema de Facturacion(completo) mandarme un email a <!-- e --><a href=\"mailto:devwin2004@yahoo.ar\">devwin2004@yahoo.ar</a><!-- e -->\n\nGracias\nDante','',0,'gA==','cyeufvzq',1,0,'',341,0,0),(13450,3053,3,2,0,'87.218.146.84',1148042942,1,0,1,1,1,1,'','','Jules,\n\nWe use just one Clipper app in msdos and works ok on XP <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1qppaeon',1,0,'',2,0,0),(13451,3074,3,460,0,'217.37.54.49',1148043580,1,0,1,1,1,0,'','','It\'s OK - i think i\'ve solved it now','',0,'gA==','2p96n7r5',1,0,'',460,0,0),(13452,3059,6,43,0,'201.127.19.100',1148045651,1,0,1,1,1,0,'','','bueno pues....  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  ya que estamos sacando los trapitos\n\ntengo 35 años y llevo 6 años programando iniciando desde clipper 5.3 y dbf, actualmente programo con fwh, xHarbour y mysql, les dire he aprendido mucho desde los ultimos cursos que tome con RF.\n\nhaaa y ahora ya se programar con fw y C (xHarbour)... jejeje <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos\n\n Marco A. Delgado.\n\npost. larga vida a FiveWin y [x]Harbour','',0,'','1z27mtyv',1,0,'',43,0,0),(13453,2519,17,439,0,'190.0.140.121',1148046427,1,0,1,1,1,1,'','Archivos Header de la clase FileXLS','Aquí van los archvos .CH faltantes\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02dffbe563/INCLUDE.exe.html\">http://hyperupload.com/download/02dffbe ... E.exe.html</a><!-- m -->','',0,'','2tn87vkt',1,0,'',439,0,0),(13454,3059,6,456,0,'217.127.39.57',1148048489,1,0,1,1,1,1,'','','Tengo 37, llevo unos 16 años programando, empece con dBaseIII, clipper summer87 hasta clipper 5.2, ahora hace 3 meses que me he reencontrado con el mundo xBase de la mano de FWH y FWPPC. Durante mi alejamiento de xBase he trabajo con otros lenguajes (Ada, C, Delphi, VB, RPG, PL-SQL) y con herramientas Case (Synon2E, Genexus, V Velazquez) pero donde mas comodo me siento es en xBase, por lo que me alegra el poder volver a desarrollar con FWPPC y FWH.','',0,'','coz6qc3a',1,1148056011,'',456,1,0),(13455,3059,6,179,0,'200.125.135.241',1148050490,1,0,1,1,1,1,'','','Compañeros\ntengo 42 años \nconozco Fw desde 1998 y hasta ahora me considero un novato\nSaludos desde Ecuador','',0,'','241gunob',1,0,'',179,0,0),(13456,3053,3,190,0,'202.65.134.45',1148053407,1,0,1,1,1,0,'','','Go through the OPTEDIT.EXE commands  and try to link your applicaiton\nwith protected mode linker EXOSPACE.  \n\nWe have several applications compiled with Clipper 5.3b and linked with\nEXOSPACE and subsequently using OPTEDIT.EXE commands to change\nthe behaviour of the Executable to suit to your requirements.  They are \nall working OK with latest hi-speed processors also without any problem. \n\n- Ramesh Babu P','',0,'','putzffuk',1,0,'',190,0,0),(13458,3049,2,180,0,'88.3.195.89',1148053879,1,0,1,1,1,0,'','','Gracias Daniel por tu respuesta. Yo también lo uso como tú y no me da problemas. Pero en el caso que describo se produce un cuelgue cuando no se encuentran registros a mostrar. No lo entiendo. Pero como hay más de un camino para llegar a Roma, lo he solucionado haciendo, antes de establecer el SCOPE, un Datos-&gt;(DbSeek(condicion)) y funciona perfectamente.\n\nUn saludo,\nManuel Aranda','',0,'','foovmesr',1,0,'',180,0,0),(13461,3079,2,581,0,'80.81.126.99',1148059244,1,0,1,1,1,1,'','Windows 2003 R2 Standard edition','Buenas:\n\nA ver si alguien sabe algo de esto... Resulta que hemos detectado que sobre el nuevo \"Windows 2003 R2 Standard edition\", las aplicaciones de 16 bits no funcionan. Al menos a nosotros. Es un server recién isntalado con todos los parches del Windows Update, etc. He buscado info en la web y hay alguna gente que tiene problemas parecidos con XP y 2003, pero se solucionan cde forma bastane sencilla restaurando el autoexec.nt, config.nt, command.com, etc. No es la versión de 64 bits (en esa ya se sabe que no van las apps de 16 bits). Curiosamente un programa clipper normal (DOS) sí que va, pero no los de FiveWin 16. Eso indica que la ntvdm sí que va bién (arranca perfectamente) e includo se puede ver que el wowexec también arranca, pero no el programa 16 bits. No dçá absolutamente ningún error. Lo he probado con otros programas de 16 bits no fivewin y tampovo van... Lo necesito para poder ejecutar en sesiones de terminal server 2003 unas aplicaciones fivewin. El no puedoporner 2000 por que el cliente me fuerza a utilizar ese sistema por que es el que él tiene. Cagonlaleche....\n\nLlevo más de 8 horas haciendo pruebas, buscando en internet, tocando el registro, etc... Estoy perdido. De todas formas, algún día tenía que pasar que no funcionen las apps de 16 y tendré que pasar forzosamente a 32 bits...\n\nSé que es dificil y que es un tema de sistemas (no de programación), pero... Alguien sabe algo?','',0,'','11wz4jdo',1,0,'',581,0,0),(13462,3080,4,213,0,'72.177.228.25',1148060992,1,0,1,1,1,0,'','Signatures','Antonio,\n\nA while back I asked about capturing signatures on the handheld.  You suggested it may be easy to do using mouse events and setpixel().  I put together a little program using FWH to see if I could make it work on the desktop.  The problem is when dragging the mouse the pixels set are too far apart unless you move the mouse very slowly.  The following is a sample.  Should I be doing something different or doing this a different way?\n\n// Capture Signature\n#include \"FiveWin.ch\"\n\nstatic oWnd, lDown, hDC\n\nfunction Main()\n\n   lDown := .F. \n   \n   DEFINE WINDOW oWnd FROM 1, 1 TO 30, 50 ;\n      TITLE OemToAnsi( \"Signature Capture with the mouse\" ) ;\n      MENU BuildMenu()\n\n   oWnd:bLClicked  := { || lDown := .T. }\n   oWnd:bLButtonUp := { || lDown := .F. }\n   oWnd:OnMouseMove:= { | obj, x, y, flags| DrawL(y,x) }\n   \n   hDC := oWnd:GetDC()\n\n   ACTIVATE WINDOW oWnd\n\nreturn 0\n\n\nSTATIC FUNCTION DrawL(y,x)\n\n   IF lDown\n      SetPixel(hDC, y, x, RGB(0,0,0) )\n   ENDIF\n\nRETURN NIL\n\nfunction BuildMenu()\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM \"&amp;File\"\n      MENU\n         MENUITEM \"&amp;Clear\"    ACTION oWnd:Refresh()\n      ENDMENU\n\n      MENUITEM \"&amp;End\"         ACTION oWnd:End()\n\n   ENDMENU\n\nreturn oMenu','',0,'','a4xvdgoj',1,0,'',213,0,0),(13463,3066,4,213,0,'72.177.228.25',1148062201,1,0,1,1,1,0,'','','Antonio,\n\nIs there anyway to print a bitmap image?\n\nThanks,\nRandal Ferguson','',0,'','29mupj15',1,0,'',213,0,0),(13464,3059,6,72,0,'201.137.84.65',1148063631,1,0,1,1,1,0,'','','Mi abuelita me comenta que mi papá se fue de casa en el 54 pero yo nací tres años despues, durante un gran movimiento telúrico, dedusco que fue en el 57, por lo que debo andar sobre los 49. Aunte me siento de 18.\n\nSaludos.','',0,'','3tas1167',1,0,'',72,0,0),(13465,3081,7,150,0,'80.58.18.107',1148064328,1,0,1,1,1,1,'','Manual Harbour','Hola:\n\n¿Sabeis donde puedo encontrar un manual de Harbour?','',0,'','25kscc8i',1,0,'',150,0,0),(13466,2558,17,439,0,'190.0.136.24',1148069081,1,0,1,1,1,1,'','TSBrowse 7.01 modificado con Preview y temas XP de FWH','Una de las molestias de TSBrowse 7.01 es que usa una dll para el preview vieja al usar la nueva no se ven los botones y los menúes no respetan el lenguaje siempre salen en Inglés.\n\nOtra de las molestias es que el preview de impresión no considera los temas de XP. <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nPues bien, ahora les dejo la clase modificada para usar los Temas XP y usarse con la misma DLL de preview (Prev32.dll) que viene con FWH, de modo que tendréis los botones estilo XP cuando estéis usando temas del mismo y además respetará el idioma que seleccionéis. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01c5faba39/TSBROWSE701.exe.html\">http://hyperupload.com/download/01c5fab ... 1.exe.html</a><!-- m -->\n\nGracias a todos los que han hecho posible esta clase  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','12tz0lv2',1,0,'',439,0,0),(13467,3059,6,111,0,'200.67.147.201',1148076030,1,0,1,1,1,0,'','','\"Yo pido que me muestren el lugar de los de 37 años, pelones y gustosos del xBase, y ocupo mi lugar entre ellos\" <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n\nSaludos a todos, \n\n\nRodolfo MG','',0,'','1rj2915j',1,0,'',111,0,0),(13468,1808,2,341,0,'200.127.97.186',1148081446,1,0,1,1,1,0,'','','Tengo problemas con mi  direccion de correo <!-- e --><a href=\"mailto:devwin2004@yahoo.com.ar\">devwin2004@yahoo.com.ar</a><!-- e -->\nCuaquier duda o consulta sobre  browse de facturacion y/o sistema\nde facturacion   hacerla a <!-- e --><a href=\"mailto:devclipfw@yahoo.com.ar\">devclipfw@yahoo.com.ar</a><!-- e -->\n\nGracias\nDante','',0,'','3sowqag6',1,0,'',341,0,0),(13469,3060,3,190,0,'202.65.134.45',1148084106,1,0,1,1,1,0,'','','Mr.Richard\n\nThanks for your reply.\n\nI needed this functionality to create a shortcut on the desktop and an \nentry in the programs menu automatically without user intervention.\n\nWhen the user runs year end process, the programe is supposed to take \ne a back-up of current year as it is and create a short-cut automatically \non desktop like 2005-06.  Then prepare the data for new year keeping the \nexisting shortcut intact.\n\nCan you please make it little more clear with an example using \nSHORTCUT.EXE as an application which should be placed on the desktop \nand programs menu.\n\nBy the way INNOSETUP is my favourate installer and I am using it already\nfor all my applications SETUP.\n\nRegards and thanks in advance\n\n- Ramesh Babu P','',0,'','png6bgdj',1,0,'',190,0,0),(13470,3081,7,2,0,'87.218.146.84',1148084311,1,0,1,1,1,1,'','','Jose,\n\nHarbour es practicamente 100% compatible con Clipper, por lo que te serviría cualquier manual de Clipper.\n\nAqui tienes mucha documentación de Clipper:\n<!-- m --><a class=\"postlink\" href=\"http://www.whitetown.com/ng/index.php3?lang=0&amp;what=3\">http://www.whitetown.com/ng/index.php3?lang=0&amp;what=3</a><!-- m -->','',0,'','z22dp3g6',1,0,'',2,0,0),(13471,3081,7,150,0,'80.58.18.107',1148084937,1,0,1,1,1,1,'','','Gracias Antonio.','',0,'','pt0yo2eu',1,0,'',150,0,0),(13472,3059,6,54,0,'201.98.190.68',1148087754,1,0,1,1,1,1,'','','Bueno, heme aqui\n\n\nYa con 35 años de vida, que por cierto, considero que bien vividos.\n\nY con Clipper aprox. 15 añitos.\n\nY FWH, pues bueno, soy novato, muy novato.\n\nPero eso si, con muchas ganas.','',0,'','1sd1q39j',1,0,'',54,0,0),(13473,3064,6,496,0,'200.107.36.176',1148087815,1,0,1,1,1,0,'','','Hola Mike\n\nNo sé si te pueda servir, pero te comento que tuve algunos problemas , aunque no los mismos, pero que se resolvieron usando la HBOLE, que viene con el TMsAgent, y lo puedes bajar de la siguiente página: [url:178yyija]http&#58;//www&#46;esm&#46;com&#46;mx/fivewin/index&#46;htm[/url:178yyija]\n\nLo uso con Office 2003 sin ningún problema.\n\nPara la compilación y linkeo, uso VERCE, el que te facilita enormemente el trabajo. Aquí no me he preocupado de saber si va o no antes o despues de las Lib de FHW.\n\nUn Saludo\n\nMarcelo Jingo','',0,'EA==','178yyija',1,0,'',496,0,0),(13474,3082,6,492,0,'201.154.125.229',1148092132,1,0,1,1,1,1,'','Dialogos con Brush o Themed, definirlos...','Hola a todos\n\nEstoy probando opciones para dar XX apariencia a una App, y ya sea que, si se usa algun programa como StarDock, XpStyle, etc o ya sea que se aplique un brush de bitmap como fondo, las 2 se ven super !!, pero quiero que el usuario tome la decision con cual se queda, asi que le ofrezco las 2 opciones, la pregunta a todo esto seria :\n\nSi ya tengo lApplyTheme := .T. por si desea conservar el tema establecido, como seria lo mas correcto para definir los dialogos ??\n\nActualmente estoy haciendo esto :\n\nIF !lApplyTheme\nDEFINE DIALOG dbMainSuite RESOURCE \"MAIN\" BRUSH oDlgsBrshX TRANSPARENT\nELSE\n	DEFINE DIALOG dbMainSuite RESOURCE \"MAIN\" TRANSPARENT\nENDIF\n\nesta bien, o existe alguna otra forma mejor ?\n\n\nGracias y Saludos','',0,'EA==','3v26hya9',1,0,'',492,0,0),(13475,3030,6,54,0,'201.98.190.68',1148101067,1,0,1,1,1,1,'','Re: FiveScript en Harbour','[quote=&quot;josei&quot;:g3iuxhcp]Hola\n\nFiveScript se puede usar con Harbour???\n\n\nAtentamente\nJose Ignacio Jimenez Alarcon[/quote:g3iuxhcp]\n\nMi estimado,\n\nSe puede usar sin problemas con Harbour, solo hay que hacer unas minimas modificaciones\n\nTodo se puede, es cuestión de la perspectiva','',0,'gA==','g3iuxhcp',1,0,'',54,0,0),(13476,3083,6,54,0,'201.98.190.68',1148101750,1,0,1,1,1,1,'','BUTTON','Amigos,\n\nTengo un detalle, cuando ejecuto un button con ENTER no me respeta el oGet:setfocus(), si lo hago con CLICK funciona sin problemas.\n\nEsto quiere decir que cuando le tecleo enter me envia al siguiente control por el orden, mas no es eso lo que quiero, pues tengo que ir a un número de control específico.\n\nGracias de antemano','',0,'gA==','3kxatufe',1,0,'',54,0,0),(13477,3083,6,61,0,'201.217.166.187',1148104235,1,0,1,1,1,0,'','','Willi:\n\nPrueba esto y me cuentas:\n\nLocal tuBoton,TuGet,cDato:=\"\",oDlg\n\nREDEFINE TuGet VAR cDato ID 110 of oDlg\n\nREDEFINE Button TuBoton BLA,BLA,BLA ID 120 of oDlg,\nAction(TuBoton:oJump:=TuGet,TuGet:SetFocus() )\n\nSaludos.\n\nRuben Fernandez','',0,'gA==','2c737tv4',1,0,'',61,0,0),(13478,3064,6,533,0,'88.1.66.214',1148105049,1,0,1,1,1,0,'','','Hola Marcelo:\n\n   Ante todo gracias por contestar, pero el problema es que en esa página, da error a la hora de bajarme el tmsagent, ¿tienes otro sitio web?, si no, te agradecería que me lo enviaras (hbole.lib), a mi correo personal (<!-- e --><a href=\"mailto:mserracat@terra.es\">mserracat@terra.es</a><!-- e -->)\n\n   SALUDOS','',0,'gA==','1850rtt2',1,0,'',533,0,0),(13479,3059,6,375,0,'84.122.112.70',1148114014,1,0,1,1,1,1,'','','Saludos amigos. Por mi parte tengo 47, casi medio siglo. La mitad de la juventud.\nEmpecé con Summer 87, como muchos y aqui estoy con 4 o 5 años de FW. El próximo paso a Harbour. En cuanto acabe lo que llevo entre manos, que como no me dedico a esto profesionalmente, tardo una eternidad en acabar. Lo mismo cuando acabe esto hay un Harbour 64 en la calle...\nMis mejores deseoa a todos.','',0,'gA==','2nqf4mwd',1,0,'',375,0,0),(13480,3002,6,375,0,'84.122.112.70',1148114504,1,0,1,1,1,1,'','','Yo creo que el problema está en que evaluas cNote. Prueba a evaluar [b:3emo39ok]oGet:cText[/b:3emo39ok]. O sea:\n\noGet:bChange := {|| cLne := STR( 300 - LEN( ALLTRIM( [u:3emo39ok][b:3emo39ok]oGet:cText[/b:3emo39ok][/u:3emo39ok] ))) }\n\nEn cuanto a \"oSay:refresh()\", creo que no es necesario, no lo he probado, pero nunca me ha hecho falta cuando he actualizado algún SAY.','',0,'QQ==','3emo39ok',1,0,'',375,0,0),(13481,3066,4,2,0,'87.218.146.84',1148117034,1,0,1,1,1,1,'','','Randal,\n\nWe don\'t know how to do it yet,','',0,'QQ==','1uq315dc',1,0,'',2,0,0),(13482,3084,6,75,0,'83.45.230.168',1148131798,1,0,1,1,1,0,'','Impresora de Tikets EPSON TM 60 en modo consola','Cómo consigo que la impresora Epson TM 60 para tikets me la detecte el programa hecho en modo consola sin tener que instalar ningún driver en windows(porque no viene con la impresora) y funcionando por puerto paralelo.\n\nPara la version XP de güindous.\n\nEs muy urgente.\n\nSaludos.','',0,'QQ==','23kjphh7',1,0,'',75,0,0),(13483,3083,6,54,0,'201.98.190.68',1148139679,1,0,1,1,1,1,'','','[quote=&quot;RuFer&quot;:zq3i48i5]Willi:\n\nPrueba esto y me cuentas:\n\nLocal tuBoton,TuGet,cDato:=\"\",oDlg\n\nREDEFINE TuGet VAR cDato ID 110 of oDlg\n\nREDEFINE Button TuBoton BLA,BLA,BLA ID 120 of oDlg,\nAction(TuBoton:oJump:=TuGet,TuGet:SetFocus() )\n\nSaludos.\n\nRuben Fernandez[/quote:zq3i48i5]\n\nExcelente, Gracias RUFER,\n\nEsperemos que ALinares lo corrija desde FWH y no haya que estar haciendo estos remedios.','',0,'gA==','zq3i48i5',1,0,'',54,0,0),(13484,3048,1,303,0,'72.199.41.171',1148145316,1,0,1,1,1,0,'','','Why not just use a normal disabled GET? This is variable data that you are displaying--either editable or not. If you display non-editable data in a disabled GET (with the disabled colors) then everyone knows what it is. This is standard behavior. If you deviate from the standard then you confuse people.','',0,'gA==','3ox2mvzk',1,0,'',303,0,0),(13485,3085,6,492,0,'201.154.125.229',1148148978,1,0,1,1,1,1,'','Para visualizar datos/estructura de Dbfs sin abrirlos.....','Hola a todos\n\nMe tope con esta pequeña utileria, creo que a muchos nos puede servir.\n\nSirve para poder ver el contenido y la estructura de archivos Dbf sin necesidad de abrirlo con DbWide, Dbu, WinDbu, etc\n\nLo mas practico, es poder copiar la estructura al ClipBoard ya que a veces tenemos que hacer uso de los nombres de los campos y en ocaciones no nos acordamos del nombre completo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nBasta con Instalarlo, seleccionar un Dbf, click derecho, propiedades, y nos aparece una pestaña con su informacion.\n\n\n[img:a2ldt97h]http&#58;//img296&#46;imageshack&#46;us/img296/6581/prop14lr&#46;jpg[/img:a2ldt97h]\n\n\n\nLink para bajarlo :\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026a404544/cdbfshell.exe.html\">http://hyperupload.com/download/026a404 ... l.exe.html</a><!-- m -->\n\n\nEspero les sirva.\n\n\nSaludos','',0,'CA==','a2ldt97h',1,0,'',492,0,0),(13486,3009,3,148,0,'82.201.234.71',1148158642,1,0,1,1,1,0,'','','I tried very hard to filter a combo box based on a get value but with no result . Recently I fixed my values from dbf and also I tried to filter cities belongs to their countries as following but do no work .\n[code:qpum2typ]\n\nselect 5\nuse coun\nindex on upper&#40;coun-&gt;coun_name&#41; to coun\ndatabase oCoun\n\n   @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n   @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 45,180 dbcombo oCbx var v_co_cocmbo;\n      alias oCoun&#58;cAlias;\n      size 100,200 pixel;\n      itemfield &quot;COUN_CODE&quot;;\n      listfield &quot;COUN_NAME&quot;;\n      of oDlg;\n      UPDATE\n\nselect 6\nuse city\nindex on upper&#40;city-&gt;city_name&#41; to city\ndatabase oCity\nset filter to upper&#40;city-&gt;coun_name&#41;==upper&#40;v_co_cocmbo&#41;\ncity-&gt;&#40;dbgotop&#40;&#41;&#41;\n\n   @ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL\n   @ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 60,180 dbcombo oCbx2 var v_ci_cocmbo;\n      alias oCity&#58;cAlias;\n      size 100,200 pixel;\n      itemfield &quot;CITY_CODE&quot;;\n      listfield &quot;CITY_NAME&quot;;\n      of oDlg;\n      UPDATE\n[/code:qpum2typ]','',0,'AIA=','qpum2typ',1,0,'',148,0,0),(13487,3009,3,6,0,'82.61.157.184',1148159405,1,0,1,1,1,1,'','','You have to set the filter in the ON CHANGE clause of the first DBCOMBO and then refresh (or refill?) the second DBCOMBO.\n\nEMG','',0,'AIA=','190h8cfc',1,0,'',6,0,0),(13488,3085,6,54,0,'201.98.190.68',1148169228,1,0,1,1,1,1,'','Re: Para visualizar datos/estructura de Dbfs sin abrirlos...','[quote=&quot;Raymundo Islas M.&quot;:p7v19xbm]Hola a todos\n\nMe tope con esta pequeña utileria, creo que a muchos nos puede servir.\n\nSirve para poder ver el contenido y la estructura de archivos Dbf sin necesidad de abrirlo con DbWide, Dbu, WinDbu, etc\n\nLo mas practico, es poder copiar la estructura al ClipBoard ya que a veces tenemos que hacer uso de los nombres de los campos y en ocaciones no nos acordamos del nombre completo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nBasta con Instalarlo, seleccionar un Dbf, click derecho, propiedades, y nos aparece una pestaña con su informacion.\n\n\n[img:p7v19xbm]http&#58;//img296&#46;imageshack&#46;us/img296/6581/prop14lr&#46;jpg[/img:p7v19xbm]\n\n\n\nLink para bajarlo :\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026a404544/cdbfshell.exe.html\">http://hyperupload.com/download/026a404 ... l.exe.html</a><!-- m -->\n\n\nEspero les sirva.\n\n\nSaludos[/quote:p7v19xbm]\n\nMuy bueno.\n\nGracias','',0,'iA==','p7v19xbm',1,0,'',54,0,0),(13489,3086,3,15,0,'203.73.90.14',1148170510,1,0,1,1,1,0,'','How to stop appear FM.log when my AP start','Hello FWH users,\n\nI make a AP+database into DVD for show DEMO database.\nBut I got Error 7040 File creation error ADS error message.\nI think maybe it want to create FM.log into DVD.\nBecause I run my AP in HDD and appear FM.log file\nHow to disappear or not create this file?\n\nAny idea or suggestion for it?\n\nThank you so much.\n\nRegards,\n\nRichard','',0,'iA==','30fki9lu',1,0,'',15,0,0),(13490,3076,16,2,0,'87.218.146.84',1148199332,1,0,1,1,1,1,'','','Construcción Mayo 2006 \n==================\n\n* Corrección: Pequeñas correcciones en la clase TDialog para evitar mostrar el botón de ayuda \"?\" cuando hacemos:\n  ACTIVATE DIALOG oDlg ON INIT oDlg:lHelpIcon := .f.\n\n* Mejora: Se ha mejorado muchísimo la velocidad de la función cTempFile(). Esta función se usa ahora desde la previsualización de la impresión, así que la construcción de las páginas es mucho más rápida ahora.\n\n* Mejora: Nuevos métodos en la clase TGraph, GetDC() y ReleaseDC() para imprimir correctamente en las previsualizaciones de impresión. \n\n* Mejora: En FWPPC, la función WsaStartup() ahora usa el valor 0x202 en lugar de 0x101. Supuestamente corrige un problema de conectividad de W2K. \n\n* Corrección: En FWPPC, había un error en GetHostByName() que se ha corregido. \n\n* Mejora: Nueva clausula VERTICAL para el control de barra de progreso (Win32 Progress Bar). Puedes usar la clausula VERTICAL si lo creas desde código fuente (el control), ó el estilo #define PBS_VERTICAL 4 si lo creas desde recursos. Por favor revise samples\\Progres1.prg para un ejemplo funcionando. \n\n* Mejora: Mejoras en el comportamiento de la DATA lHelpIcon de la clase TDialog.\n\n* Nuevo: Métodos End() y LoadBitmap( cBmpName ) en la clase TButtonBmp. \n\n* Mejora: En la clase TGet, el contenido de ::oGet es comprobado por si cambia antes de la evaluación de ::bChange, si está definido, cuando se pulsa VK_TAB ó VK_RETURN.  \n\n* Mejora: En FWPPC, ha sido añadida la librería wininet.lib a samples\\buildce.bat. \n\n* Nuevo: En FWPPC, un gran ejemplo de FTP para Pocket PC desarrollado por Enrico, está ubicado en samples\\ftp.prg. \n\n* Nuevo: Añadidos iconos y bitmaps de alta resolución (como PNGs). \n\n* Corrección: En FWH/FW++/FWC3 y FWPPC, la clase TWBrowse pinta correctamente los colores de fila seleccionados, si\n  lCellStyle es usado. \n\n* Mejora: La función FixSays() estaba causando problemas en algunas versiones de Windows. Ahora está correcta. \n\n* Mejora: La clase TWBrowse genera automáticamente contenido de las cabeceras si no se han proporcionado y si no se está en uso un area de trabajo (por ejemplo, cuando se usa un array con él). \n\n* Mejora: Mejorado el comportamiento de la clase TGet cuando use la opción \"Cut\" del menu popup. \n\n* Mejora: La clase TTxFile devuelve \"Self\" incluso si el manejador del fichero no es valido.\n\n* Mejora: En FWPPC, cambios menores en las trayectorias (paths) usadas.\n\n* Mejora: La función cGetFile() ahora maneja 255 caracteres para las trayectorias y ficheros.\n\n* Nuevo: FW++ ha sido reconstruido satisfactoriamente y probado con la versión 1.9 final de Xbase++.','',0,'iA==','222nzd4q',1,0,'',2,0,0),(13491,3066,4,456,0,'217.124.40.74',1148202184,1,0,1,1,1,1,'','','With Oneil printers  you can upload bitmaps into the printer memory(using the configuration software from desktop computer, you can upload fonts and bitmaps) and invoke the bitmap using ESC commands.','',0,'iA==','2l09lvbb',1,0,'',456,0,0),(13493,3079,2,404,0,'85.155.215.41',1148214583,1,0,1,1,1,0,'','Windows 2003 R2 Standard edition. No se si te ayudara.','El 2003 Server, no lo lo conozco, supongo que será algo diferente al XP.\n\nPor lo que no se, si al picar con el boton derecho, y sacar las propiedades de la aplicación, existe la pestaña de compatibilidad (en el XP, si existe, y suele ayudar a veces).\n\nSaludos, José Mª','',0,'iA==','2pb1kpm8',1,0,'',404,0,0),(13494,3088,5,270,0,'65.27.222.17',1148217672,1,0,1,1,1,0,'','Selecting a Printer','I am wanting to set a specific printer in my program for a printer that has pre-printed forms.  I want all other printing to go to another printer.  I want to set the form printer in a configuration and all form printing will then go to this printer.  All other print outs will go to the default printer.\n\nCan someone tell me how to do this?\n\nThanks\nDan','',0,'iA==','21kldruv',1,0,'',270,0,0),(13495,3089,1,186,0,'66.130.4.121',1148220628,1,0,1,1,1,1,'','Prepocessor table overflow','Hi all,\n\n\nIs someone can tell me why I`m always getting `Preprocessor table overflow`at complie time ?\n\nIs there a work around this problem\n\nThis is very anoying... <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x -->','',0,'iA==','461jrwrg',1,0,'',186,0,0),(13496,3090,6,23,0,'85.53.82.124',1148221340,1,0,1,1,1,1,'','Comprimir con Harbour + FW ... por favor...','Hola, holita gente.\nAndo mareado de un lado a otro y no consigo entender si es posible realizar archivos comprimidos (me da igual ZIP, que cualquier otro formato) con Harbour + FW (si, ya se que xHarbour tiene la contribución HBZIP que es fabulosa y tal ... ) pero con Harbour no carbura... o soy yo que no se compilarla correctamente.\nY no me sirve usar Winexec () a programas externos, ya que tengo que controlar rigurosamente el proceso porque si falla algo debo saberlo.\nAlguien conoce algún método ???\n\nMil gracias.','',0,'iA==','1jnvvsbu',1,0,'',23,0,0),(13497,3091,1,186,0,'66.130.4.121',1148222481,1,0,1,1,1,1,'','Message Bar problems','Hi All,\n\nAt window activation I prompt `LogIn` in the message bar. So far so good\nOnce the user has entered is login name I want to display the user name in the message bar. \n\nSo I use:\n\noMsgBar:SetMsg(cUserName), oMsgBar:Refresh()\n\nI can see the user name display for a fraction of second and `LogIn` redisplays again on top.\n\nWhat am I doing wrong ? <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'iA==','1lc7cj0x',1,0,'',186,0,0),(13498,3089,1,6,0,'87.16.238.198',1148226045,1,0,1,1,1,1,'','Re: Prepocessor table overflow','Try to comment out the unneeded #include directives from fivewin.ch.\n\nEMG','',0,'iA==','1u3rjtcn',1,0,'',6,0,0),(13499,3088,5,6,0,'87.16.238.198',1148226093,1,0,1,1,1,1,'','Re: Selecting a Printer','Use TO clause of PRINTER command.\n\nEMG','',0,'iA==','1hfon26q',1,0,'',6,0,0),(13500,3092,6,52,0,'200.127.195.89',1148226664,1,0,1,1,1,1,'','VK_ESCAPE y tsbrowser','Amigos,\n\nPorque no aparece en pantalla el cartel HOLA cuando presiono la tecla ESC?\n\n[code:oz9jwc9u]   oBrw&#58; bKeyDown&#58;=   &#123; | nKey | if&#40; nKey == VK_ESCAPE , &#40; MsgInfo&#40;&quot;HOLA&quot;&#41;&#41; ,;\n                                 if&#40; nKey == VK_RETURN,;\n                                 &#40; IF &#40; lVolver != &#46;t&#46;, &#40; ABMProductos&#40; , &#46;t&#46;, PRODUCTO-&gt;CODIGO, aSetVars, &#46;f&#46; &#41;, oBrw&#58;reset&#40;&#41;, oBrw&#58; Refresh&#40;&#41; &#41;,;\n                                  oDlg&#58;END&#40;&#41; &#41; &#41; , &#41; &#41; &#125;[/code:oz9jwc9u]\n\nYa me han dicho que pruebe haciendo esto:\n\n[code:oz9jwc9u]   obrw&#58;bUserKeys  &#58;=&#123;|nKey| Tufunciondecontrol&#40;nKey&#41;&#125;\n   \n    &#46;&#46;&#46;&#46;\n\nFUNCTION Tufunciondecontrol&#40; nn &#41;\n   IF nn = VK_ESCAPE\n      ? &quot;ESCAPE&quot;\n   ELSE\n         ? &quot;CUALQUIERA&quot;\n   ENDIF\n\n   RETURN nil[/code:oz9jwc9u]\n\nPero reconoce \"CUALQUIERA DISTINTA A LA ESC\"\n\nGracias.','',0,'AIA=','oz9jwc9u',1,0,'',52,0,0),(13501,3090,6,23,0,'85.53.82.124',1148228647,1,0,1,1,1,1,'','Intentando algo ...','He encontrado una dll zip32.dll que trae ejemplos en visual basic.\nLo cierto es que es la primera vez que intento esto,  por lo tanto estoy muy \"pardillo\" en el tema, pero bueno.\n\nEsto es lo que he hecho :\n\n------ Este es el código en vb -------\n\nPublic Type ZIPUSERFUNCTIONS\nDLLPrnt As Long\nDLLPassword As Long\nDLLComment As Long\nDLLService As Long\nEnd Type\n\nPublic Type ZPOPT\nfSuffix As Long\nfEncrypt As Long\nfSystem As Long\nfVolume As Long\nfExtra As Long\nfNoDirEntries As Long\nfExcludeDate As Long\nfIncludeDate As Long\nfVerbose As Long\nfQuiet As Long\nfCRLF_LF As Long\nfLF_CRLF As Long\nfJunkDir As Long\nfRecurse As Long\nfGrow As Long\nfForce As Long\nfMove As Long\nfDeleteEntries As Long\nfUpdate As Long\nfFreshen As Long\nfJunkSFX As Long\nfLatestTime As Long\nfComment As Long\nfOffsets As Long\nfPrivilege As Long\nfEncryption As Long\nfRepair As Long\nflevel As Byte\ndate As String\nszRootDir As String\nEnd Type\n\nPublic Type ZIPnames\n    s(0 To 99) As String\nEnd Type\n\nPublic Declare Function ZpInit Lib \"zip32.dll\" (ByRef Zipfun As ZIPUSERFUNCTIONS) As Long\n\nPublic Declare Function ZpSetOptions Lib \"zip32.dll\" (ByRef Opts As ZPOPT) As Long\n\nPublic Declare Function ZpArchive Lib \"zip32.dll\" (ByVal argc As Long, ByVal funame As String, ByRef argv As ZIPnames) As Long\n\n------------------------------------------------------------------------\n\n--- Este es mi \"intento\" de traducirlo -------------\n/* -----------------------------------------------------------------------------------\n   Pruebas con archivos ZIP\n   -----------------------------------------------------------------------------------\n*/\n\n#include \"fivewin.ch\"\n#include \"struct.ch\" \n\nFunction Main()\nPrivate oZipUserFunctions, ozPopt, oZipNames, oZipFun, oOpts, nArgC, cFuName, oArgV\n\n   STRUCT oZipUserFunctions\n      MEMBER DLLPrnt          As DWORD\n      MEMBER DLLPassword      As DWORD\n      MEMBER DLLComment       As DWORD\n      MEMBER DLLService       As DWORD\n   ENDSTRUCT\n   \n   STRUCT oZpopt\n      MEMBER fSuffix          As DWORD\n      MEMBER fEncrypt         As DWORD\n      MEMBER fSystem          As DWORD\n      MEMBER fVolume          As DWORD\n      MEMBER fExtra           As DWORD \n      MEMBER fNoDirEntries    As DWORD\n      MEMBER fExcludeDate     As DWORD\n      MEMBER fIncludeDate     As DWORD\n      MEMBER fVerbose         As DWORD\n      MEMBER fQuiet           As DWORD\n      MEMBER fCRLF_LF         As DWORD\n      MEMBER fLF_CRLF         As DWORD\n      MEMBER fJunkDir         As DWORD\n      MEMBER fRecurse         As DWORD\n      MEMBER fGrow            As DWORD\n      MEMBER fForce           As DWORD\n      MEMBER fMove            As DWORD\n      MEMBER fDeleteEntries   As DWORD\n      MEMBER fUpdate          As DWORD\n      MEMBER fFreshen         As DWORD\n      MEMBER fJunkSFX         As DWORD\n      MEMBER fLatestTime      As DWORD\n      MEMBER fComment         As DWORD\n      MEMBER fOffsets         As DWORD\n      MEMBER fPrivilege       As DWORD\n      MEMBER fEncryption      As DWORD\n      MEMBER fRepair          As DWORD\n      MEMBER flevel           As DWORD\n      MEMBER date             As STRING LEN 10\n      MEMBER szRootDir        As STRING LEN 100\n   ENDSTRUCT\n   \n   STRUCT oZipNames\n      MEMBER S                As STRING\n   ENDSTRUCT\n   \n\n   msginfo (ZpInit())\n   msginfo (ZpSetOptions())\n   msginfo (ZpArchive(1,\"test.zip\",{\"test.obj\"}))\nReturn (nil)\n\n// Declaración de DLL32\n\nDLL32 Function ZpInit       (@oZipFun AS oZipUserFunctions) As DWORD PASCAL LIB \"zip32.dll\"\nDLL32 Function ZpSetOptions (@oOpts   AS oZpOpt)            As DWORD PASCAL LIB \"zip32.dll\"\nDLL32 Function ZpArchive    (@nArgc   AS DWORD,;\n                             @cFuName AS STRING,;\n                             @oArgV   AS oZipNames)         As DWORD PASCAL LIB \"zip32.dll\"\n--------------------------------------------------------\nbueno, tras esto la funcion zpinit y la funcion zpsetoptions se ejecutan sin problemas pero la zparchive me da un error harbour exception error, y supongo que habre definido mal alguno de los parámetros, pero ya os digo que ando muy verde ....\nAlguien con experiencia puede hecharme una mano??? \n\nGracias.','',0,'AIA=','vocd5rf1',1,0,'',23,0,0),(13502,3089,1,2,0,'87.218.146.84',1148233229,1,0,1,1,1,1,'','','Gilbert,\n\nYou may compile using Clipper 5.2 that has more preprocessor capability that Clipper 5.3. Later on you may link with Clipper 5.3 libraries, they are compatible.\n\nAlso, if you are using rmake.exe, you may switch to use Borland maker.exe as it frees all used memory, so Clipper has more memory to preprocess.','',0,'AIA=','mon4xgyq',1,0,'',2,0,0),(13503,3091,1,2,0,'87.218.146.84',1148233376,1,0,1,1,1,1,'','','Gilbert,\n\nDo you have a menuitem that uses ... MESSAGE \"Login\" ?','',0,'AIA=','3ipj66hc',1,0,'',2,0,0),(13504,3090,6,2,0,'87.218.146.84',1148233611,1,0,1,1,1,1,'','','Angel,\n\nEn vez de:\nDLL32 Function ZpInit (@oZipFun AS oZipUserFunctions) ...\n\nusa:\nDLL Function ZpInit (oZipFun AS LPSTR) ...\n\ny antes de llamarla haces:\nlocal cBuffer := oZipUserFunctions:cBuffer\nZpInit( cBuffer )\noZipUserFunctions:cBuffer = cBuffer\n \nigual con la otra','',0,'AIA=','1vseb2pt',1,0,'',2,0,0),(13505,3090,6,23,0,'85.53.82.124',1148237517,1,0,1,1,1,1,'','','Gracias por tu pronta respuesta, Antonio.\nPero parece que no va por ahi la cosa.\nEl tema es que creo que le tengo que pasar de alguna manera toda la estructura, porque de esta forma tan solo le paso un valor y sigue \"petando\" el programita.\n\n  STRUCT oZipUserFunctions\n      MEMBER DLLPrnt          As DWORD\n      MEMBER DLLPassword      As DWORD\n      MEMBER DLLComment       As DWORD\n      MEMBER DLLService       As DWORD\n   ENDSTRUCT\n\nFijate que la oZipUserFunctions tiene varias variables y no se como narices pasarlo para que no reviente.\n\nGracias.','',0,'AIA=','1qq59hkq',1,0,'',23,0,0),(13506,3090,6,23,0,'85.53.82.124',1148240103,1,0,1,1,1,1,'','','Vaaaaaale, creo que lo voy pillando.\nDe la forma que me has dicho las dos primeras funciones van correctamente : \n\n cBuffer:=oZipUserFunctions:cBuffer\n   msginfo (ZpInit (cBuffer))\n   oZipUserFunctions:cBuffer=cBuffer\n   \n   cBuffer:=oZPopt:cBuffer\n   msginfo (ZpInit (cBuffer))\n   oZPopt:cBuffer=cBuffer\n\nPero en la funcion ZpArchive es donde peta y yo creo que es porque no se como declarar en la STRUCT oZipNames el formato del campo, en VisualBasic aparece asi :\n\nPublic Type ZIPnames\n    s(0 To 99) As String\nEnd Type\n\nSabes como puedo traducirlo correctamente????\n\nGracias.','',0,'AIA=','gtkyv4ul',1,0,'',23,0,0),(13507,3090,6,2,0,'87.218.146.84',1148250188,1,0,1,1,1,1,'','','Angel,\n\n&gt; s(0 To 99) As String\n\nEso parece un array de cadenas. De ser así, se podría declarar como:\n\nMEMBER s1 AS LPSTR\nMEMBER s2 AS LPSTR\nMEMBER s3 AS LPSTR\n...\n\nasí hasta 100. \n\nHay que confirmar que s(0 To 99) signifique eso. Igual quiere decir que es una cadena de 100 bytes, en cuyo caso, sería:\n\nMEMBER s AS STRING LEN 100','',0,'AIA=','xc1i315j',1,0,'',2,0,0),(13508,3090,6,215,0,'201.102.248.6',1148263350,1,0,1,1,1,0,'','Es un array','Public Type ZIPnames\n    s(0 To 99) As String\nEnd Type\n\n\ns(0 To 99) As String\n\nEs un array .NET usado en Visual Basic 2005. En Visual Basic 6 el indice inferior es 1, en la versión de VB 2005 el indice inferior es 0, por lo tanto indica valores de 0 a 99 dando un total de 100 elementos.\n\nSaludos\nFernando Leal','',0,'AIA=','32xuxj0n',1,0,'',215,0,0),(13509,3090,6,23,0,'213.96.85.49',1148276974,1,0,1,1,1,1,'','','Naaada, que no hay forma.\nProbaré con otra DLL a ver si tengo más suerte.\n\nYa os contare.\nUn saludo.','',0,'AIA=','l4frk78j',1,0,'',23,0,0),(13510,3079,2,581,0,'80.81.126.99',1148282842,1,0,1,1,1,1,'','','Gracias. Ya lo probé y no hace absolutamente nada. Con compatilbilidad Win 95, 98, 2000... Ná de ná ...\n\nAlguien tiene apps 16 bits corriendo sobre Windows 2003 server ?? Ha tenido problemas ??','',0,'AIA=','150a2ns8',1,0,'',581,0,0),(13511,3090,6,2,0,'87.218.146.84',1148286807,1,0,1,1,1,1,'','','Angel,\n\nSi no consigues hacerlo funcionar desde PRG, entonces la solución es escribir la función en C directamente.','',0,'AIA=','3bfmcay1',1,0,'',2,0,0),(13512,3082,6,2,0,'87.218.146.84',1148286931,1,0,1,1,1,1,'','','La claúsula TRANSPARENT solo debe especificarse si tambien se usa un BRUSH ...','',0,'AIA=','23rbusjh',1,0,'',2,0,0),(13513,3093,12,584,0,'85.91.80.132',1148300301,1,0,1,1,1,0,'','Alguna aplicación de ejemplo','Holasss..\n\nMe gustaría saber si hay alguna aplicación hecha para verla correr en algún linux, bien sea una mini facturación etec.\n\nun saludo.\nxPepe','',0,'AIA=','286cerwv',1,0,'',584,0,0),(13514,3053,3,497,0,'212.127.159.218',1148300794,1,0,1,0,1,0,'','','Dear collegues,\n\nThanks for your cooperation.\nI am convinced now that my customer has no Ckipper XP PRO problem.\nI used Blinker and Clipper 5.3b\nDatabases are on the server.\nFiles and Buffers are OK.\n\nSo I advised my customer to look at his installation of XP PRO workstations in a Windows 2000 server environment.\nThere is a rumour that that is the problem.\n\nFor me the case is closed.\n\nThanks everybody ofr your help.\n\nFriendly regards,\n\nJules de Pierre','',0,'AIA=','3eqjqqjb',1,0,'',497,0,0),(13515,2519,17,103,0,'200.164.92.242',1148302589,1,0,1,1,1,0,'','','José,\n\n     Muchisimas gracias  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos,','',0,'AIA=','32oz6iw8',1,0,'',103,0,0),(13516,3059,6,579,0,'148.223.141.242',1148310038,1,0,1,1,1,1,'','1er resumen','Amigos, gracias a todos por participar.\nDespues de un breve conteo de los 23 que a la fecha hemos participado, nuestro foro está así por rango de edades:\n\nEdad    FiveWineros\n21-30:   3\n31-35:   6\n36-40:   5\n41-45:   4\n46-50:   5\n\nEdad promedio: 38.5\n\nSaquen sus conclusiones.','',0,'AIA=','epprs8c5',1,0,'',579,0,0),(13517,3059,6,255,0,'200.67.175.250',1148314210,1,0,1,1,1,1,'','','Que tal amigos\nCuento con 31 años, recien cumplidos (Mayo 15) y \nprogramando con FiveWin tengo 6, anteriormente\ntrabajaba en otros lenguajes.\nSaludos','',0,'AIA=','1soefg11',1,0,'',255,0,0),(13518,3090,6,61,0,'201.217.174.46',1148316621,1,0,1,1,1,0,'','','Angel:\n\nDisculpa me entrometa en lo que estas haciendo:\n\nHay una utilidad hecha en xHarbour que se llama \nxBLite y viene con PRG y todo, quizás sea mas\nfacil pasar esta a Harbour.\n\nEsta muy completa, yo no la uso porque intente pasarla\na Harbour y realmente no pude.\n\nSaludos.\n\nRuben Fernandez.','',0,'AIA=','wur3b2la',1,0,'',61,0,0),(13519,3090,6,23,0,'213.96.85.49',1148317216,1,0,1,1,1,1,'','','Te agradeceria que me indicaras desde donde descargarla, gracias.','',0,'AIA=','yz88cxrp',1,0,'',23,0,0),(13520,3079,2,248,0,'212.145.179.68',1148317581,1,0,1,1,1,0,'','Windows 2003 R2 Standard edition','A ver, yo he tenido problemas con aplicacion de 16 bits (incluso con el edit de windows) al ejecutarlos me daba error de ntvdm pero seguian trabajando bien. Yo tengo aplicaciones de fivewin 16 bits en windows 2003 server entreprise edition con terminal server y funcionan perfectamente.\n\nPara solucionarlo, he copiado los ficheros config.nt,autoexec.nt y command.com de c:\\windows\\system32 de otro windows 2003 server que si funcionaban bien y ahora funciona perfectamente.\n\nExplica un poco más lo que quieres decir con que no funcionan: Ten dan algun error, se cuelgan, no se abren...... ¿has visto el visor de sucesos?','',0,'AIA=','op4uyzcd',1,0,'',248,0,0),(13521,3090,6,362,0,'200.168.52.156',1148319606,1,0,1,1,1,1,'','','[quote=&quot;AngelSalom&quot;:2rcegxep]Te agradeceria que me indicaras desde donde descargarla, gracias.[/quote:2rcegxep]\n\n\n<!-- m --><a class=\"postlink\" href=\"http://busca.uol.com.br/www/index.html?ref=hb&amp;q=xbackuplite\">http://busca.uol.com.br/www/index.html? ... backuplite</a><!-- m -->','',0,'gA==','2rcegxep',1,0,'',362,0,0),(13522,3094,6,121,0,'201.154.2.31',1148319832,1,0,1,1,1,1,'','UNA DE EXCEL','Alguien podria indicarme como hacerle para\nsumar celdas, utilizo la clase tole de la siguiente forma:\n\n\n oXls:=TOLEAUTO():NEW(\"EXCEL.APPLICATION\")\n oXls:WORKBOOKS:ADD()\n oBOOK:=oXLS:GET(\"ActiveWorkBook\")\n oSHEET:=oXLS:GET(\"ActiveSheet\")\n  *\n oSHEET:CELLS(4,2):VALUE=\"SALDO INICIAL\"\n oSHEET:CELLS(4,3):VALUE=\"ENERO\"\n oSHEET:CELLS(4,4):VALUE=\"FEBRERO\"\n oSHEET:CELLS(4,5):VALUE=\"MARZO\"\n oSHEET:CELLS(4,6):VALUE=\"ABRIL\"\n oSHEET:CELLS(4,7):VALUE=\"MAYO\"\n oSHEET:CELLS(4,8):VALUE=\"JUNIO\"\n oSHEET:CELLS(4,9):VALUE=\"JULIO\"\n oSHEET:CELLS(4,10):VALUE=\"AGOSTO\"\n oSHEET:CELLS(4,11):VALUE=\"SEPTIEMBRE\"\n oSHEET:CELLS(4,12):VALUE=\"OCTUBRE\"\n oSHEET:CELLS(4,13):VALUE=\"NOVIEMBRE\"\n oSHEET:CELLS(4,14):VALUE=\"DICIEMBRE\"\n oSHEET:CELLS(4,15):VALUE=\"TOTAL\"\n *\n FOR N=1 TO 15\n  oSHEET:CELLS(4,N):Font:Name:=\"ARIAL\"\n  oSHEET:CELLS(4,N):Font:Size:=12\n  oSHEET:CELLS(4,N):Font:bold:=.t.\n  oSHEET:CELLS(4,N):BORDERS():LINESTYLE:=1\n NEXT N\n *\n  oSHEET:CELLS(REN,3):VALUE=TRANS(N01,\"999,999,999.99\")\n  oSHEET:CELLS(REN,4):VALUE=TRANS(N02,\"999,999,999.99\")\n  oSHEET:CELLS(REN,5):VALUE=TRANS(N03,\"999,999,999.99\")\n  oSHEET:CELLS(REN,6):VALUE=TRANS(N04,\"999,999,999.99\")\n  oSHEET:CELLS(REN,7):VALUE=TRANS(N05,\"999,999,999.99\")\n  oSHEET:CELLS(REN,8):VALUE=TRANS(N06,\"999,999,999.99\")\n  oSHEET:CELLS(REN,9):VALUE=TRANS(N07,\"999,999,999.99\")\n  oSHEET:CELLS(REN,10):VALUE=TRANS(N08,\"999,999,999.99\")\n  oSHEET:CELLS(REN,11):VALUE=TRANS(N09,\"999,999,999.99\")\n  oSHEET:CELLS(REN,12):VALUE=TRANS(N10,\"999,999,999.99\")\n  oSHEET:CELLS(REN,13):VALUE=TRANS(N11,\"999,999,999.99\")\n  oSHEET:CELLS(REN,14):VALUE=TRANS(N12,\"999,999,999.99\")\n *\n\n\n  y quisiera crear una nueva celda con la suma de las anteriores\noSHEET:CELL(REN,15):value:=????????\n\nSaludos y gracias de antemano','',0,'gA==','xtawvxkl',1,0,'',121,0,0),(13523,3082,6,492,0,'201.154.125.229',1148322002,1,0,1,1,1,1,'','','OK Enterado Antonio\n\n\nGracias y Saludos\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','2hnmfh6i',1,0,'',492,0,0),(13524,3085,6,492,0,'201.154.125.229',1148322148,1,0,1,1,1,1,'','','A ti William...\n\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos','',0,'gA==','2gs7l2gj',1,0,'',492,0,0),(13525,3085,6,295,0,'201.222.151.12',1148328510,1,0,1,1,1,1,'','','Muy bueno Raymundo!\n\nGRACIAS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3ojc229h',1,0,'',295,0,0),(13526,1801,19,569,0,'201.248.249.192',1148328965,1,0,1,1,1,0,'','documentacion harbour/xharbour','Compañero: creo estar en las mismas condiciones que tu y con las mismas inquietudes en cuanto a la migracion del CLIPPER a otra cosa, si se le puede llamar asi, igual parecida o mejor que el CLIPPER.\nSi encuentras algun buen manual, *.ng o documento que se pueda bajar de la red para leerlo mas tranquilamente, por favor hazmelo saber, para poder bajarlo yo tambien.\nSaludos:\nRODOLFO SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','1x8d2pfg',1,0,'',569,0,0),(13527,3093,12,2,0,'87.218.146.84',1148331847,1,0,1,1,1,1,'','','Pepe,\n\nAplicaciones completas, no. Pero ejemplos fáciles de entender y simples, si tenemos bastantes.','',0,'gA==','2r84zcgu',1,0,'',2,0,0),(13528,3095,3,300,0,'201.14.120.126',1148334263,1,0,1,1,1,0,'','Twbrowse and vertical scrollbar','Hi, vertical scrollbar don\'t work fine if a file/twbrowse have deleted records. Any sugestions? Thanks in advance.','',0,'gA==','dliw5c91',1,0,'',300,0,0),(13529,3096,3,261,0,'63.197.46.139',1148336971,1,0,1,1,1,1,'','Scrolling Text','I am attemption on displaying scrolling text (horizontally) on my window.  When I do it, the text seems to flash sometimes.  Is there a way to do this in a very smooth way, more appealing?','',0,'gA==','3ltg0032',1,0,'',261,0,0),(13530,3096,3,2,0,'87.218.146.84',1148340282,1,0,1,1,1,1,'','','Byron,\n\nHow are you doing it ? Please show us the code.','',0,'gA==','1yoa595f',1,0,'',2,0,0),(13532,3097,3,148,0,'82.201.237.52',1148342760,1,0,1,1,1,0,'','Memory Overbooked','I recently compiled the onemany program I had the message .\nFiveWin.ch(238) FatalC3001 Memory Overbooked','',0,'gA==','1s1sw572',1,0,'',148,0,0),(13533,3098,3,148,0,'82.201.237.52',1148343071,1,0,1,1,1,0,'','buildhd tst error','Compiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tst.prg\' and generating preprocessed output to \'tst.ppo\'...\ntst.prg(15) Warning W0001  Ambiguous reference: \'NVALOR\'\nLines 208, Functions/Procedures 8\nGenerating C source output to \'tst.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntst.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_RDDSETFIELDEXTENT\' referenced from E:\\PROGRA\nMS\\CLIPPER\\CLPFWH\\SITEX\\TST.OBJ\nError: Unresolved external \'_HB_FUN_RDDADDFIELD\' referenced from E:\\PROGRAMS\\CLI\nPPER\\CLPFWH\\SITEX\\TST.OBJ\nError: Unresolved external \'_HB_FUN__TRDD\' referenced from E:\\PROGRAMS\\CLIPPER\\C\nLPFWH\\SITEX\\TST.OBJ\n* There are errors','',0,'gA==','2h6y519y',1,0,'',148,0,0),(13534,3099,6,179,0,'200.24.221.138',1148343600,1,0,1,1,1,1,'','Ot / Win Xp no ejecuta programas .com o .exe de 16 bist','Buenas noches compañeros\nen una red con win300 server y terminales WinXp Prof Sp2\nno me esta ejecutando los archivos .exe y .com de 16 bits, nunca he tenido este problema\nTalvez alguien sabe como resolverlo \nAclaro que esto estba funcionando hasta hace una semana Ok en la misma red, el administrador dice que no ha hecho ningun cambio importante\nque podra ser ?\nsi alguien me puede dar luces cobre esto le agradeceria\nSaludos','',0,'gA==','1g5y7dzj',1,0,'',179,0,0),(13535,3096,3,261,0,'63.197.46.139',1148344198,1,0,1,1,1,1,'','Scrolling Text','Antonio,\n\nI just pulled this out of the much larger program.  You can at least see how we are doing it.  If there is a better way, please let us know. \n\nThanks, \n\nByron...\n\nSource Below\n\nFUNCTION SAVEYESADVERTISE(lENABLE)\n   LOCAL oINI\n   LOCAL cINIFILE:=MCS_ININAME()\n   LOCAL cENABLE:=IIF(lENABLE,\"YES\",\"NO\")\n   //\n   INI oIni FILE cIniFile\n      SET SECTION \"Advertisements\" ENTRY \"EnableAdvertise\" TO cENABLE OF oINI\n   ENDINI\nRETURN NIL\n\nFUNCTION GETYESADVERTISE()\n  LOCAL cINIFILE:=MCS_ININAME()\n  LOCAL oINI\n  LOCAL cRV\n  LOCAL lRV:=.F.\n\n  INI oIni FILE cIniFile\n     GET cRV SECTION \"Advertisements\" ENTRY \"EnableAdvertise\" DEFAULT \"NO\" OF oIni\n  ENDINI\n  lRV:=IIF(cRV==\"YES\",.T.,.F.)\n RETURN lRV\n\nFUNCTION CHKADVERTISE()\n  IF lADVERTISE\n     SCROLLNOW()\n  ENDIF\nRETURN NIL\n\nFUNCTION SCROLLMESSAGE(cMESSAGE)\n  LOCAL hDC\n  LOCAL nOldFont\n  LOCAL hPen\n  LOCAL hOldPen\n IF lADVERTISE\n   * hDC:=oSCROLLBMP:hDC\n   * SetBkMode(hDC, TRANSPARENT)\n   * TextOut(hDC, 5, 100,cMESSAGE)\n\n    nSCROLLCOL+=5\n    IF nSCROLLCOL &gt; 1300\n       nSCROLLCOL:=-500\n    ENDIF\n    hDC      := oSCROLLBMP:hDC\n    nOldFont := SelectObject(hDC,oSCROLLFont:hFont)\n    hPen     := CreatePen(0,0,CLR_RED)\n    hOldPen  := SelectObject(hDC,hPen)\n    SETTEXTCOLOR(hDC,CLR_RED)\n    SetBkMode(hDC, TRANSPARENT )\n    TextOut(hDC,8,nSCROLLCOL,cMESSAGE,Len(cMESSAGE))\n    //\n    SelectObject(hDC,nOldFont)\n    SelectObject(hDC,hOldPen)\n    DeleteObject(hPen)\n ENDIF\nRETURN NIL\n\nFUNCTION SCROLLNOW()\n  IF lADVERTISE\n  //  oSCROLLBMP:REFRESH(.F.)\n   IF oSCROLLSAY &lt;&gt; NIL\n      nSCROLLCOL-=4\n      IF nSCROLLCOL &lt; nSTARTCOL\n         nSCROLLCOL:=1280\n      ENDIF\n      oSCROLLSAY:Move(980,nSCROLLCOL,1280,50,.F.)\n      oSCROLLSAY:REFRESH(.F.)\n   ENDIF\n  ENDIF\nRETURN NIL\n\nFUNCTION SCROLLTIMER()\n   nSCROLLCTR:=0\n   DEFINE TIMER oSCROLLTIMER OF oWND ;\n     INTERVAL 60 ;\n     ACTION (nSCROLLCTR++,CHKADVERTISE())\n   ACTIVATE TIMER oSCROLLTIMER\nRETURN NIL\n\nFUNCTION GETSTARTCOL(cMESSAGE)\n  LOCAL nRV :=0\n  nRV       :=GETTEXTWIDTH(0,cMESSAGE,oSCROLLFONT:hFONT)\nRETURN nRV','',0,'gA==','2vh3rqsl',1,0,'',261,0,0),(13536,3096,3,261,0,'63.197.46.139',1148344533,1,0,1,1,1,1,'','Scrolling Text','Antonio,\n\nI will post a small working example in a few minutes.\n\nThanks, \n\nByron...','',0,'gA==','2zq1fe03',1,0,'',261,0,0),(13537,3100,6,54,0,'201.98.190.68',1148349303,1,0,1,1,1,1,'','Toolbar','Saludos,\n\nSeria posible cambiar el color a la barra, pues tengo color en mi dialogo y la barra sale en otro color.\n\nLa inquietud es cambiar el color.\n\nGracias de antemano','',0,'gA==','3811kbxm',1,0,'',54,0,0),(13538,3096,3,431,0,'200.8.89.136',1148350783,1,0,1,1,1,1,'','','if what you want he is to do scroll of a dinamicos text uses the class of says already exists and I use :\n\nREDEFINE DYNAMIC  SAY ::oSayDinamic VAR AllTrim(oLoterWin:cMensajeBanner) ID 393 OF oDlgLot;\n         HORIZONTAL SCROLL WRAP;\n         RIGHT SHADED;\n         COLOR CLR_WHITE, CLR_BLUE FONT oFont3\n\nthis class Dsay is of Ramon Avendaño.','',0,'gA==','15kimlly',1,0,'',431,0,0),(13539,3094,6,9,0,'85.60.39.158',1148359829,1,0,1,1,1,1,'','','Marcos,\n\nTodas las fórmulas se ponen entrecomilladas:\n\n\noSHEET:CELL(REN,15):value:=\"=@SUMA( B5:B\" + LTRIM(STR(REN)) + \")\"','',0,'gA==','15swmrro',1,0,'',9,0,0),(13540,3095,3,6,0,'87.3.232.253',1148365101,1,0,1,1,1,1,'','Re: Twbrowse and vertical scrollbar','Index the table FOR !DELETED().\n\nEMG','',0,'gA==','ybyhiuic',1,0,'',6,0,0),(13541,3097,3,6,0,'87.3.232.253',1148365163,1,0,1,1,1,1,'','Re: Memory Overbooked','Try to comment out some of the unneeded #include from fivewin.ch.\n\nEMG','',0,'gA==','254qz2jf',1,0,'',6,0,0),(13542,3100,6,2,0,'87.218.146.84',1148365885,1,0,1,1,1,1,'','','William,\n\nSi usas temas de XP, entonces la barra usa los colores de los temas.','',0,'gA==','2hew2l9i',1,0,'',2,0,0),(13543,3097,3,2,0,'87.218.146.84',1148365979,1,0,1,1,1,1,'','','Ehab,\n\nThats a Clipper issue, not Harbour. Isn\'t it ?','',0,'gA==','kppctrqo',1,0,'',2,0,0),(13544,3098,3,2,0,'87.218.146.84',1148366038,1,0,1,1,1,1,'','','Ehab,\n\nClass TRdd is only available for 16 bits (Clipper).','',0,'gA==','2dxk2dwu',1,0,'',2,0,0),(13545,3100,6,54,0,'201.98.190.68',1148366080,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2ku4j7ec]William,\n\nSi usas temas de XP, entonces la barra usa los colores de los temas.[/quote:2ku4j7ec]\n\nGracias por contestar','',0,'gA==','2ku4j7ec',1,0,'',54,0,0),(13546,3062,6,490,0,'80.24.224.89',1148371142,1,0,1,1,1,0,'','','Antonio,\n\nConfirmado, la clase TButtonb no destruye el bitmap, me gustaría saber cuales son los pasos para no perder recursos.\n\nHe probado a añadir estos métodos, pero no sé si son correctos, aunque creo que funcionan:\n\nMETHOD UnLoadBmp() INLINE If(::hBitmap != 0, DeleteObject( ::hBitmap ),),::hBitmap:=0\n\n   METHOD Destroy() INLINE ::UnLoadBmp(),Super:Destroy()\n   METHOD End()     INLINE ::Destroy() , Super:End()\n \n\nUn Saludo,\nJoaquín','',0,'gA==','14emc1pl',1,0,'',490,0,0),(13547,3101,6,490,0,'80.24.224.89',1148372693,1,0,1,1,1,0,'','Problema de refresco en ventana principal','Hola,\n\n\nEn la ventana principal de la aplicación, ponemos un Bitmap y un Say, la ventana la definimos así:\n\nDEFINE WINDOW oWnd MDI FROM 1,5 TO 20,75 MENU CreaMnu(aMenu) ;\n         TITLE \"Titulo\" ICON oIcon;\n         COLOR CLR_BLACK,CLR_WHITE\n\nY para que cuando abramos un diálogo modal, no se nos borre ni el say ni el bitmap ponemos lo siguiente:\n\noWnd:bPainted  := {||If(oSayTitWnd&lt;&gt;nil,(BmpCenter( oBmp ,oWnd),;\n                          oSayTitWnd:refresh(.T.) ),nil) }\n\n\nEn 16b iba perfecto, al salir de un diálogo modal lo repintaba todo, pero en 32b repinta perfectamente el bitmap pero el say lo deja borrado en la parte que lo haya cubierto el diálogo hasta que cambiemos de pantalla o hagamos algo con el ratón que lo provoque. Una solución provisional sería un timer, pero lo veo poco elegante.\n\nUn Saludo,\nJoaquín','',0,'gA==','3rv2t4yc',1,0,'',490,0,0),(13548,2835,20,49,0,'213.82.134.66',1148378621,1,0,1,1,1,1,'','','scusami sono tornato solo oggi dal wrc mondiale di Rally in sardegna.\n\nper il focus intendi di crear eun nuovo metodo e ridisegnare il controllo e richiamre il metodo paint ?\n\n\npoi per il checkdots non ho trovato niente  o meglio volevo solo togliere i puntini per non far allargare l\'immagine ...ma poi ho la possibilità di spostare comunque  il controllo ?\n\nse disegno un controllo e poi devo ridisegnare un altro me lo disegna sopar alla\'altro , ho provato a creare il controllo con nriga e ncol ma non ho avuto nessun effetto \n\nnel metodo additem delle tabs lui crea una nuova linguetta io devo creare una nuova linea  : è difficile ottenere questo in automatico  ?\n\ngrazie','',0,'gA==','2351uz3e',1,0,'',49,0,0),(13549,3068,20,49,0,'213.82.134.66',1148378822,1,0,1,1,1,1,'','','mi ricordo che c\'era qualcosa una classe tphone e /o simile su \ninfatti...\n\n[url][url]http://www.fivewin.info/ulfiles/TPHDIAL1.zip[/url][/url]','',0,'EA==','1sxnkwia',1,0,'',49,0,0),(13550,3068,20,49,0,'213.82.134.66',1148378930,1,0,1,1,1,1,'','','poi potresti usare la classe per voiceplay per far parlare il tuo modem \naltrimenti non saprei come fare','',0,'EA==','3nzd5r3u',1,0,'',49,0,0),(13551,3099,6,147,0,'200.68.215.107',1148380913,1,0,1,0,1,1,'','','Tuve ese problema, ejecutando en CP con XP-Spk2 y disco formateado en NTFS. Lo primero que se me presentaba de distinto era que lo tenía instalado y funcionando en XP-Spk1 y FAT32.\nHago un check-list de lo que repasé\n1) Verifiqué que en las Propiedades Avanzadas de la App esté tildada \"Ejecutar en otro espacio de memoria\"\n2) Que config.nt tenga establecido files y buffers\n3) Que el autoexec.nt tenga establecido set clipper\n...\nFinalmente lo vuelvo a ejectutar y me dio error porque faltaba wizzip16.dll\n\nAhora funciona Ok','',0,'EA==','bhuwi3sa',1,0,'',147,0,0),(13552,3050,6,336,0,'213.97.245.163',1148381719,1,0,0,1,1,0,'','Alternativa','Para reemplazar el foxbase prueba el xbscript.exe que esta en xharbour.org. Es un buen reemplazo, ya que maneja todos los rdds, lo usas en modo comando, lo unico que le falta es \"modi stru\", pero el resto anda muy bien. Y es gratuito y libre, más legal que el foxbase.exe\n\nSaludos','',0,'EA==','30uveuto',1,0,'',336,0,0),(13553,3053,3,26,0,'84.255.245.173',1148382307,1,0,1,1,1,1,'','','Hello!\n\n[quote=&quot;Jules de Pierre&quot;:2ty2lxsk]\nSo I advised my customer to look at his installation of XP PRO workstations in a Windows 2000 server environment.\nThere is a rumour that that is the problem.\n[/quote:2ty2lxsk]\n\nIn our case DBF-s are on Netware 4.2 server, which is more Clipper friendly. Anyhow, when dealing with Windows server environments, I use\nthis two utilities: NetSafe and RedrTest\n<!-- m --><a class=\"postlink\" href=\"http://www.datafastsoftware.com/download.htm\">http://www.datafastsoftware.com/download.htm</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.support.tabs3.com/main/R10200.htm\">http://www.support.tabs3.com/main/R10200.htm</a><!-- m -->\n\nOT, but here is another link for Samba 3 and 2.2 servers:\n<!-- m --><a class=\"postlink\" href=\"http://www.drouillard.ca/Tips&amp;Tricks/Samba/Oplocks.htm\">http://www.drouillard.ca/Tips&amp;Tricks/Samba/Oplocks.htm</a><!-- m -->\n\nCheers, Roman','',0,'gA==','2ty2lxsk',1,0,'',26,0,0),(13554,3066,4,213,0,'72.177.228.25',1148385156,1,0,1,1,1,0,'','','Biel,\n\nThanks for the information.  Our customers use a wide variety of printers, we need something that will work with any mobile printer.\n\nBest Regards,\nRandal Ferguson','',0,'gA==','gmqah3yg',1,0,'',213,0,0),(13555,3097,3,148,0,'196.205.180.163',1148387404,1,0,1,1,1,0,'','','Yes','',0,'gA==','24ejxwja',1,0,'',148,0,0),(13556,3102,6,64,0,'200.216.85.4',1148391778,1,0,1,1,1,1,'','FHW Maio - erro','Antonio,\n\n     Com a versão de fevereiro tenho a seguinte tela:\n\n[img:2u2h0bh4]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/TSISPROD&#46;PNG[/img:2u2h0bh4]\n\n     Após atualizar para a versão de maio ocorre erro, não houve nenhuma alteração nos fontes:\n\n[img:2u2h0bh4]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/TSISPROD2&#46;PNG[/img:2u2h0bh4]\n\n     Uso a versão comercial do xHarbour e os sistemas operacionais Win2000 Professional e Win XP Professional.\n\n     Que fazer?\n\n    Abraços.','',0,'CA==','2u2h0bh4',1,0,'',64,0,0),(13557,3099,6,179,0,'64.46.80.210',1148392176,1,0,1,1,1,1,'','','Gracias Mario, las tres cosas ya las tengo chequeadas\nalguna otra idea ?\nSaludos','',0,'CA==','1vwcz1lx',1,0,'',179,0,0),(13558,3103,7,43,0,'201.127.19.100',1148394129,1,0,1,1,1,0,'','Dudas con sistema operativo y procesador','Hola:\n\nEstoy en la posibilidad de usar FWPC, pero tengo mis dudas sobre que sistema operativo y procesador es neceario para poder iniciar con la programación.\n\ntengo una pocket IPAQ HP RX1950 con un procesador Samsung SC32 y un sistema operativo Microsoft Windows Mobile Version 5.0.\n\nesto es suficiente para poder inicar.\n\n\nSaludo.\n Marco A. Delgado','',0,'CA==','e2yqq7or',1,0,'',43,0,0),(13559,3002,6,41,0,'200.87.67.10',1148399421,1,0,1,1,1,0,'','','Manuramos,\n\nlo que dices es cierto, pero tambien esta bien para mi la correccion de LKM que especifico Manuel\n\ngracias\n\nMarcelo\n\n[quote=&quot;manuramos&quot;:189ftmmw]Yo creo que el problema está en que evaluas cNote. Prueba a evaluar [b:189ftmmw]oGet:cText[/b:189ftmmw]. O sea:\n\noGet:bChange := {|| cLne := STR( 300 - LEN( ALLTRIM( [u:189ftmmw][b:189ftmmw]oGet:cText[/b:189ftmmw][/u:189ftmmw] ))) }\n\nEn cuanto a \"oSay:refresh()\", creo que no es necesario, no lo he probado, pero nunca me ha hecho falta cuando he actualizado algún SAY.[/quote:189ftmmw]','',0,'wQ==','189ftmmw',1,0,'',41,0,0),(13560,3104,7,579,0,'148.223.141.242',1148399521,1,0,1,1,1,1,'','Cursos de FWPPC en Mexico','No se emocionen, no es un aviso de pronto tendremos aqui cursos de FWPPC, es mas bien una petición a Rene sobre cuando nos hará el honor de \"visitarnos\" en la ciudad de México (ya parece que vive en la madre patria) para programar un curso.','',0,'wQ==','3ga3ybjc',1,0,'',579,0,0),(13561,3086,3,41,0,'200.87.67.10',1148399743,1,0,1,1,1,0,'','','Hello,\n\nI don\'t remember what lib you need to link to eliminate fm.log creation, optlib maybe, I think you can get more help in the xharbour forum\n\nregards\n\nMarcelo','',0,'wQ==','3vvax2j8',1,0,'',41,0,0),(13562,3105,6,490,0,'80.24.224.89',1148403502,1,0,1,1,1,0,'','Problema con TImage','Hola,\n\nMe gustaría saber si existe algún bug en la clase Timage por lo que no pueda mostrar un GIF desde recursos.\n\nEjemplo:\n\nFunciona Bien:\n\nREDEFINE IMAGE oImg  ID 114 OF oDlg RESOURCE \"TPV\"\n\nSiendo TPV un recurso en un rc de la siguiente forma: \nTPV BITMAP \"MiTpv.bmp\"\n\nNO Funciona si el recurso es un Gif:\nTPV GIF \"MiTpv.gif\"\n\nY Sí funciona si el GIF se toma desde el Disco:\n\nREDEFINE IMAGE oImg  ID 114 OF oDlg FILE \"TPV.GIF\"\n\n¿Algún ejemplo de cargar un Gif desde recursos ? ¿No se puede?\n\nUn Saludo,\nJoaquín','',0,'wQ==','3ka9jg0b',1,0,'',490,0,0),(13563,3106,3,278,0,'200.72.195.197',1148404836,1,0,1,1,1,1,'','Fm error','Taiwan :\n\nYou need to link the optgui.lib in your app. \n\nI used this in my programs and run OK. The FM not appear again.\n\nRegards ,','',0,'wQ==','1x9poce9',1,0,'',278,0,0),(13564,3107,4,13,0,'213.76.252.200',1148408399,1,0,1,1,1,0,'','External keyboard','Antonio,\n\nHow to process key code when PocketPc work with external keyboard. I think about use special key codes eg. function key or other key (like clipper Set Key statements). \nIn this moment Enter key work as Tab key - in browse control Enter key should work as double pen click ?\n\nThanks\nPawel','',0,'wQ==','2eqhz5ne',1,0,'',13,0,0),(13565,2980,6,228,0,'201.245.222.85',1148410381,1,0,1,1,1,1,'','Rene...','Rene amigo que dices sobre el curso.. se puede o no abrir un curso para las personas que estamos fuera de Mexico. Me gustaria tener una respuesta sobre este tema.','',0,'wQ==','33wi03mf',1,0,'',228,0,0),(13566,3108,11,26,0,'84.255.245.173',1148411890,1,0,1,1,1,1,'','May 2006 Harbour Source &amp; Debian Linux (Kanotix)','Hello!\n\nI want to create harbour binary for Kanotix distribution from latest sources. I try to connect to harbour CVS with Tortoise but it is not working.\n\nWhere I can download sources that you use \nfor May 2006 Harbour binaries?\n\nThanks, Roman\n\nP.S. Do you plan to release trial version of FLH?','',0,'wQ==','2mgbvdmh',1,0,'',26,0,0),(13567,3109,6,228,0,'201.245.222.85',1148415817,1,0,1,1,1,1,'','De nuevo yo?... folder..','Amigos del foro alguien sabe si se puede.... En un folder colocar las pestañas en la parte inferior o a un lado...\n\nDe antemano gracias','',0,'wQ==','1g6vrkhs',1,0,'',228,0,0),(13568,3110,2,301,0,'201.124.177.102',1148417339,1,0,1,1,1,0,'','Browse con celdas de colores','Hola,\n\nComo puedo hacer que mi browse ,dependiendo de ciertas condiciones, en cada fila o registro se vea de un color espeficico.\n\nSegun yo estoy usando el twbrowse. Por lo menos eso dice en el resource workshop cada vez que hago un browse.\n\ny para el codigo utilizo la instruccion : \n redefine LISTBOX olbx  FIELDS ........\n\nSi hay que cambiar de browse donde se cambia ?  y como gracias','',0,'wQ==','v5andipk',1,0,'',301,0,0),(13569,3103,7,2,0,'87.218.146.84',1148422018,1,0,1,1,1,1,'','','Marco,\n\nDebería funcionarte perfectamente, de todas formas puedes descargar algunos ejemplos desde <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwppc.html\">http://www.fivetechsoft.com/spanish/fwppc.html</a><!-- m --> y probarlos en tu Pocket PC.','',0,'wQ==','1lo3t7iu',1,0,'',2,0,0),(13570,3102,6,2,0,'87.218.146.84',1148422537,1,0,1,1,1,1,'','','Syda,\n\nNuestros tests con xHB (xharbour builder) y FWH Mayo funcionan bien. De todas formas, por favor, envíanos por email el fichero MAP y la dirección que Windows reporta del GPF. Gracias.\n\nTambien, intenta comentar partes de la aplicación, para intentar localizar en donde ó por qué se produce el GPF.','',0,'wQ==','2mdjmg9s',1,0,'',2,0,0),(13571,3057,6,519,0,'83.38.241.31',1148426999,1,0,1,1,1,0,'','','Hola Antonio \n\n\n   Los metafiles se crean bien, el problema esta a visualizar en el preview, algo pasa que deforma la imagen.\n\n Estoy utilizando fwh 2.6, no sera que en esta versión esta mal ? lo mismo en la 2.7 de mayo funciona bien \n  \n   un saludo y gracias desde ya\n\n   Gabri','',0,'wQ==','1djyp5dd',1,0,'',519,0,0),(13572,3094,6,121,0,'201.127.105.156',1148430088,1,0,1,1,1,1,'','','MUCHAS GRACIAS\nFUNCIONO PERFECTO','',0,'wQ==','7o72pjkm',1,0,'',121,0,0),(13573,3109,6,492,0,'201.154.125.229',1148430486,1,0,1,1,1,1,'','','Hola Leandro\n\nHasta donde se, eso se puede o podia hacer con las libs de Canal5.\n\nAhora que, con un poco de ingenio las puedes realizar usando algunos TPages + botones + TTabs y quedarian casi igual.   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos','',0,'wQ==','k7ktkc5i',1,0,'',492,0,0),(13574,3088,5,270,0,'65.27.222.17',1148433737,1,0,1,1,1,0,'','','That\'s not exactly what I had in mind.\n\nI use the FW Report system to generate reports and print outs.  What I want to do is change the printer for one print out which is a pre-printed form that will be loaded in a printer dedicated for this purpose and have all the other reports print on the default printer.\n\nI want to do this:\n- Use the default printer for all reports but one.\n- I want to programmatically set a specific printer for one form print out and then go back to the default printer.\n- I don\'t want to have the operator select a printer each time they do this one particular report.\n\nDan','',0,'wQ==','1gx8qzk0',1,0,'',270,0,0),(13575,3106,3,15,0,'203.73.6.5',1148441145,1,0,1,1,1,0,'','','Hello Jcaro,\n\nThank you. I will try it.\n\nRegards,\n\nRichard','',0,'wQ==','35jnd4p5',1,0,'',15,0,0),(13576,3110,2,54,0,'201.98.190.68',1148447067,1,0,1,1,1,1,'','Re: Browse con celdas de colores','[quote=&quot;renemontano&quot;:1gdzsioj]Hola,\n\nComo puedo hacer que mi browse ,dependiendo de ciertas condiciones, en cada fila o registro se vea de un color espeficico.\n\nSegun yo estoy usando el twbrowse. Por lo menos eso dice en el resource workshop cada vez que hago un browse.\n\ny para el codigo utilizo la instruccion : \n redefine LISTBOX olbx  FIELDS ........\n\nSi hay que cambiar de browse donde se cambia ?  y como gracias[/quote:1gdzsioj]\n\nRene,\n\n[url:1gdzsioj]http&#58;//incos&#46;sytes&#46;net/fwh/twbrowse17&#46;rar[/url:1gdzsioj]\n\nViene con ejemplos, espero te ayude','',0,'kA==','1gdzsioj',1,0,'',54,0,0),(13577,3088,5,6,0,'82.55.208.1',1148452700,1,0,1,1,1,1,'','','Using TO clause you can specify the exact printer name to use. This is completely transparent for the user.\n\nEMG','',0,'kA==','3tin357x',1,0,'',6,0,0),(13578,3108,11,26,0,'84.255.245.173',1148455811,1,0,1,1,1,1,'','','Hello!\n\nCVS is working! It had to change CVSROOT to \n:pserver:anonymous@harbour-project.cvs.sourceforge.net:/cvsroot/harbour-project\n\nRoman','',0,'kA==','f0cbl1jc',1,0,'',26,0,0),(13579,3110,2,74,0,'190.49.93.23',1148459535,1,0,1,1,1,1,'','','Rene:\n\n         Mirate el funcionamiento de estas variables / codigos de bloque:\n\noBrf:bTextColor:={|nRow,nCol| IF(nCol=1,CLR_HRED,)}\noBrw:nClrPane:={|| Detcol()}\n\noBrw3:bBkColor:= {|nRow,nCol,nStyle| If( nStyle==0 .and. (nCol==5.OR.ncol==7), ;\n                                              CLR_YELLOW, ) }\n\n\nSTATIC Function Detcol()\n\nLocal cColor\n///DO CASE\n///CASE ENCAPEDI-&gt;ESTADO == 0   // SIN MOVIMIENTOS\n	cColor:=RGB(251,249,215)//CLR_YELLOW\n///CASE ENCAPEDI-&gt;ESTADO == 1   // CON RECEPCIONES PARCIALES\n///	cColor:=CLR_LBLUE\n///CASE ENCAPEDI-&gt;ESTADO == 2    // recibida totalmente\n///	cColor:=CLR_LGRAY\n///CASE ENCAPEDI-&gt;ESTADO == 3    // fecha entrega vencida -rojo-\n///	cColor:=RGB(255,130,130)\n///ENDCASE\n\nRETURN cColor\n\n//10) Nuevas variables ::bTextColor y ::bBkColor. Son bloques de codigo que\n//    se eval£an en tiempo de pintado. Pueden devolver una valor NUMERICO,\n//    que representa el color RGB con el cual se pintar  el texto o fondo,\n//    segun el bloque. Si devuelve otro valor, los colores ser n los especi-\n//    ficados en las respectivas varialbes de instancia de la clase.\n//    Se env¡an 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n//    nStyleLine, puede asumir los siguientes valores:\n//              0 -&gt; Celda standard normal\n//              1 -&gt; Celda Header\n//              2 -&gt; Celda Footer\n//              3 -&gt; Celda standard normal seleccionada\n//    Ver Pto. 41)\n//11) Nueva variable ::nClrLine. Especifica un color especifico para las lineas\n//    separadoras de celdas. Por defecto se utilizan los colores de linea\n//    especificos, segun el valor de ::nLineSyle. (Jose Gimenez)\n//      ::nClrFFore y ::nClrFBack -&gt; Color RGB de texto y fondo respectiva-\n//                    mente de los (Pies) Footers. Son analogas a las\n//                    variables ::nClrForeHead y ::nClrBackHead, usadas en\n//                    las Cabeceras (Headers).\n//17) Nuevas variables ::nClrNFFore y ::nClrNFBack. NF (no focus). Indican\n//    el color RGB de Texto y Fondo respectivamente de la(s) Celda(s)\n//    seleccionada(s) cuando NO HAY FOCO sobre el control. Ambas son analogas\n//    a las variables ::nClrForeFocus y ::nClrBackFocus.\n//    Resumiendo Color(es) de Celda(s) Seleccionada(s):\n//    +-------------------------+--------------+-----------------+\n//    | Color celda seleccionada|   CON FOCO   |     SIN FOCO    |\n//    +-------------------------+--------------+-----------------+\n//    | Colores de Texto (Fore) | ::nClrNFFore | ::nClrForeFocus |\n//    | Colores de Fondo (Back) | ::nClrNFBack | ::nClrBackFocus |\n//    +-------------------------+--------------+-----------------+\n//40) Nueva variable: ::bFont. Es un bloque de codigo opcional, que se ejecuta\n//    en tiempo de pintado, y envia 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n//    nStyleLine, puede asumir los siguientes valores:\n//              0 -&gt; Celda standard normal\n//              1 -&gt; Celda Header\n//              2 -&gt; Celda Footer\n//              3 -&gt; Celda standard normal seleccionada\n//    Este bloque puede devolver un valor NUMERICO, que representa el handle o\n//    manejador de una fuente de Windows (HFONT). Cualquier otro valor que no\n//    sea numerico ser  rechazado, y se asumir  que debe usarse la fuente del\n//    control standard. Como vemos esto trae una altisima flexibilidad en cuanto\n//    a las fuentes del grid, la cual si quisieramos, cada celda podr¡a asumir\n//    fuentes de distinto tipo, tama¤o y estilo.\n\n       Con eso podes manipular a tu gusto, fuentes, y colores de lineas completas, columnas completas o celdas.\n\nSaludos,','',0,'kA==','18k68oik',1,0,'',74,0,0),(13580,3108,11,2,0,'87.218.146.33',1148468566,1,0,1,1,1,1,'','','Roman,\n\nGlad to know you got it working. Yes, Sourceforge announce such change some weeks ago.\n\n&gt; P.S. Do you plan to release trial version of FLH?\n\nNo, not by now.','',0,'kA==','ere1n21t',1,0,'',2,0,0),(13581,3057,6,2,0,'87.218.146.33',1148468716,1,0,1,1,1,1,'','','Gabri,\n\nWindows proporciona la función PlayEnhancedMetafile() que es la que hace todo el trabajo.\n\nSi tomas el fichero EMF y lo visualizas, con cualquier utilidad, se debería ver igual, salvo que no use esa función estandard, y hayan desarrollado una propia.','',0,'kA==','1bg89vnj',1,0,'',2,0,0),(13582,3108,11,26,0,'84.255.245.173',1148472125,1,0,1,1,1,1,'','','Hello!\n\nSomebody/something removed me from harbour mailing list\nso I missed that sourceforge announcement. I re-subscribed today!\n\nBTW, is there a simple tutorial how to build harbour from source\nin Linux (Debian: kernel 2.6.16.16, gcc 4.0.3-3)? Where do I \nstart?\n\nThanks, Roman','',0,'kA==','246s6e9z',1,0,'',26,0,0),(13583,3108,11,2,0,'87.218.146.33',1148472522,1,0,1,1,1,1,'','','Roman,\n\nYes, there have been some problems with the mailing list.\n\nUse make_rpm.sh, it works fine.','',0,'kA==','be63iv1t',1,0,'',2,0,0),(13584,3107,4,2,0,'87.218.146.33',1148472622,1,0,1,1,1,1,'','','Pawel,\n\nHave you tried &lt;oWnd&gt;:bKeyDown and &lt;oWnd&gt;:bKeyChar codeblocks ?\n\nor &lt;oControl&gt; instead of &lt;oWnd&gt;.','',0,'kA==','1jhvggvs',1,0,'',2,0,0),(13585,3057,6,519,0,'83.38.240.248',1148473680,1,0,1,1,1,0,'','','Hola Antonio\n\n   El emf  que se crea  se ve perfecto con cualquier programa, cuando se ve mal es en el preview, algo falla por ahi, por favor revisalo.\n\n\n\n\n Un saludo y gracias desde ya\n\n Gabri','',0,'kA==','1n6l3oiq',1,0,'',519,0,0),(13586,3108,11,26,0,'84.255.245.173',1148475607,1,0,1,1,1,1,'','','Hello!\n\nAre you sure that make_rpm.sh should work fine in Debian, \nwhich is not RPM based?\n\n\nThanks, Roman','',0,'kA==','thziklim',1,0,'',26,0,0),(13587,3103,7,43,0,'201.127.19.100',1148476598,1,0,1,1,1,0,'','','Gracias Antonio.\n\nLo probare...\n\n\nSaludos\n\n Marco A. Delgado','',0,'kA==','311tygsd',1,0,'',43,0,0),(13588,2980,6,237,0,'200.68.70.89',1148480370,1,0,1,1,1,0,'','Me interesa el curso','Soy de Argentina y me interesaría hacer algún curso por la web.\n\nMuchos salu2!','',0,'kA==','f4k6oici',1,0,'',237,0,0),(13589,3068,20,154,0,'151.21.58.126',1148482735,1,0,1,1,1,1,'','','Grazie Silvio,\ncomincio da qui! \nE\' pur sempre meglio di niente <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'kA==','3cfqv7ss',1,0,'',154,0,0),(13590,3111,2,221,0,'200.109.236.123',1148486665,1,0,1,1,1,0,'','se puede leer un archivo de excel desde fivewin','lo que pasa es que el usuario va a usar la hoja de excel a manera de base de datos y no la quiere estar grabando como texto o dbf por eso quiero saber si puede leer dos columna directamente desde fivewin y porocesarlas con la clase tfilexls, gracias','',0,'kA==','1buovfm6',1,0,'',221,0,0),(13591,3094,6,18,0,'200.67.172.249',1148487273,1,0,1,1,1,1,'','','Solo para rizar el rizo, puedes usar la configuración local del Excel que tenga instalado.\n\n[code:280ecir6]\nMETHOD Formula&#40; nRow , nCol , cValue &#41; CLASS TExcelScript // &#91; Vikthor &#93;\n   #IFDEF __XHARBOUR__\n      TRY\n      // &#58;&#58;oSheet&#58;Cells&#40; nRow , nCol &#41;&#58;Formula&#58;=cValue\n         &#58;&#58;oSheet&#58;Cells&#40; nRow , nCol &#41;&#58;FormulaLocal&#58;=cValue\n      CATCH\n         MsgStop&#40; &quot;La formula no es correcta &quot;+cValue , &quot;Aviso al usuario&quot;&#41;\n      END\n	#ELSE\n       &#58;&#58;oSheet&#58;Cells&#40; nRow , nCol &#41;&#58;FormulaLocal&#58;=cValue\n	#ENDIF\nRETURN&#40; Nil &#41;\n[/code:280ecir6]','',0,'AIA=','280ecir6',1,0,'',18,0,0),(13592,702,2,221,0,'200.109.236.123',1148487474,1,0,1,1,1,0,'','me sumo a que me la manden','gracias <!-- e --><a href=\"mailto:alex_patino74@hotmail.com\">alex_patino74@hotmail.com</a><!-- e -->','',0,'AIA=','ovt85crk',1,0,'',221,0,0),(13593,2980,6,61,0,'201.217.175.35',1148489454,1,0,1,1,1,0,'','','Hola amigos:\n\nMe anoto.\nCGI y ASP es muy interesante \n\nSaludos desde Uruguay\n\nRuben Fernandez.','',0,'AIA=','m0a9atsx',1,0,'',61,0,0),(13594,3108,11,2,0,'87.218.146.200',1148489964,1,0,1,1,1,1,'','','Roman,\n\nHave you tried it ?','',0,'AIA=','2bpr4iw7',1,0,'',2,0,0),(13595,3108,11,26,0,'84.255.245.173',1148491456,1,0,1,1,1,1,'','','Hello!\n\nYep! It stops with message\n[code:292u6y1r]If you want to build Harbour compiler\nyou have to install the folowing RPM files&#58;\nmake gcc binutils bison flex bash ncurses ncurses-devel[/code:292u6y1r]\n\nAnyhow, I installed missing parts using apt-get, created Harbour using ./make_tgz.sh ét voila - here is my first Linux app:  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n[img:292u6y1r]http&#58;//static&#46;flickr&#46;com/44/152567753_095dfe695a_o_d&#46;png[/img:292u6y1r]\nRegards, Roman','',0,'CIA=','292u6y1r',1,0,'',26,0,0),(13596,3112,3,305,0,'201.230.54.213',1148493886,1,0,1,1,1,0,'','Error with PrnGetPort()','I use this function in my program  (FWH 2.7 + xHb 09950)\n\ncPort       :=  PrnGetPort()\n\nbut when the printer is off or there is no printer installed i got an Harbour exception error and the aplication is closed.  Does any one has solved this problem ?\n\nRalph','',0,'CIA=','36pxpke4',1,0,'',305,0,0),(13597,3108,11,2,0,'87.218.146.213',1148497367,1,0,1,1,1,1,'','','Roman,\n\nVery good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CIA=','9mof472g',1,0,'',2,0,0),(13598,3113,4,213,0,'72.177.228.25',1148497757,1,0,1,1,1,0,'','Windows CE Object Store','All,\n\nIs there anyway to get data from a .dbf into a Windows CE Object Store?  Or is there anyway to use ADOCE on the Pocket PC?  (Object Store is where Windows Mobile stores database files)\n\nIf I can get data from the .dbf into the object store I can use a 3rd party report writer for the handheld that will work with any ir or bluetooth enabled printer. \n\nThanks,\nRandal Ferguson','',0,'CIA=','6fpbthb4',1,0,'',213,0,0),(13599,2980,6,9,0,'80.103.165.76',1148498338,1,0,1,1,1,1,'','','Maestro Rene,\n\nEn varios ocasiones he estado tentado a inscribirme en los cursos que has impartido en España. Pero cuestiones de agenda, la paliza (mil kilometros) y el coste me han desanimado. Comprendo que desplazarte desde México a España (o a otro pais hispano) es costoso y si ese coste hay que repercutirlo entre 5/10 alumnos, el resultado es alto. Por otra parte, la gran dispersión de Fivewineros y las diferentes ocupaciones de cada uno, hace dificil concentrarnos en un lugar unos dias determinados.\n\nPero hoy en dia tenemos herramientas en la web (multiconferencias) que hace innecesario un desplazamiento tan enorme de profesor y alumnos. No se trata de que \"redactes\" un curso para internet, eso seria un trabajo enorme. Simplemente de utilizar internet (msn, Skype, Videos, WebCam, etc) para que nos sintamos en una clase virtual. Tampoco hace falta un palizón de 72 horas intensivas. Podriamos tener un dia a la semana con 2/3 horas.\n\nY claro,  siempre estoy hablando de curso/cursos de pago.\n\n\n\nCreo que si lo organizamos un poquito, podria salir adelante.','',0,'CIA=','1jacpn3n',1,0,'',9,0,0),(13600,3112,3,6,0,'82.55.208.1',1148500171,1,0,1,1,1,1,'','Re: Error with PrnGetPort()','Try this:\n\n[code:12g0px46]cPort   &#58;= StrToken&#40; GetProfString&#40; &quot;Devices&quot;, cModel, &quot;&quot; &#41;, 2, &quot;,&quot; &#41;[/code:12g0px46]\n\nEMG','',0,'AIA=','12g0px46',1,0,'',6,0,0),(13601,3112,3,305,0,'201.230.54.213',1148502183,1,0,1,1,1,0,'','','there is no such \"Devices\" in my win.ini.\n\nI use windows 2000 profesional.\n\nI wonder if there is a way to know if there is a printer installed, or the printer status.   All the functions PrnGetname(), PrnGetport(), etc. fails if the printer is unavailable.\n\nRalph','',0,'AIA=','18uu0rwx',1,1148504760,'',305,1,0),(13602,3114,3,222,0,'200.11.242.33',1148503477,1,0,1,1,1,0,'','Move excel sheets','Hi, \n\nAnybody knows what\'s the traduction of this macro from VB to xH/FWH? \n\n\n    Sheets(\"Sheet1\").Select \n    Sheets(\"Sheet1\").Move After:=Sheets(3) \n\n\nThanks a lot.','',0,'AIA=','2kcpcxm4',1,0,'',222,0,0),(13603,3114,3,6,0,'82.55.208.1',1148504358,1,0,1,1,1,1,'','Re: Move excel sheets','[quote=&quot;César E. Lozada&quot;:1ujpomdk]Hi, \n\nAnybody knows what\'s the traduction of this macro from VB to xH/FWH? \n\n\n    Sheets(\"Sheet1\").Select \n    Sheets(\"Sheet1\").Move After:=Sheets(3) \n\n\nThanks a lot.[/quote:1ujpomdk]\n\nTry\n\n[code:1ujpomdk]oExcel&#58;Sheets&#40; &quot;Sheet1&quot; &#41;&#58;Select&#40;&#41;\noExcel&#58;Sheets&#40; &quot;Sheet1&quot; &#41;&#58;Move&#40; , oExcel&#58;Sheets&#40; 3 &#41; &#41;[/code:1ujpomdk]\n\nEMG','',0,'gIA=','1ujpomdk',1,0,'',6,0,0),(13604,3112,3,6,0,'82.55.208.1',1148504442,1,0,1,1,1,1,'','','Windows NT/2000/XP automatically redirect it to the registry. Try to believe. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gIA=','27qkimta',1,0,'',6,0,0),(13605,3112,3,305,0,'201.230.54.213',1148507256,1,0,1,1,1,0,'','','thank\'s Enrico for your sugestion.    But my problem persist, as in your code you need to know the printer name.\n\nI would like to send a message to the user like \"There is no printer installed or printer is not available\"\n\nBut i can\'t use PrnGetName(), as in xHb (not in Clipper) the aplication crashes if the printer is unavailable.','',0,'gIA=','hvosa1du',1,0,'',305,0,0),(13606,3070,3,239,0,'218.19.60.2',1148521915,1,0,1,1,1,0,'','','I change into below, porblem still,\n\n\nobrow1\n\nobrow2\n\n obrow2:BLDBLClick:={||msginfo(\"aaa\")}\n\n\nMETHOD LDblClick( nRow, nCol, nKeyFlags ) CLASS TXBrowse\n\n   local oCol\n   local nColPos, nRowPos\n   \n   // add\n   if ::BLDBLClick&lt;&gt;nil\n      return Super:LDblClick( nRow, nCol, nKeyFlags )\n   end\n   //add        \n     \n   ::CancelEdit()\n   ::Seek()\n\nBest regard!   \nShuming Wang','',0,'gIA=','1j72tx9w',1,0,'',239,0,0),(13607,3115,3,160,0,'210.212.142.91',1148536361,1,0,1,1,1,0,'','TPrinter:SayBitMap() problem.','Dear All,\n\nAs part of Invoice printing I am printing logo (BMP file) of the company on the invoice using SayBitMap() method of printer class. The problem is it prints in diff sizes on different printer as the resolution of the printer differs.\n\nIs there anyway by way of which I can define height and width in Inches so that it prints in the same area irrespective of printer.\n\nTIA\nMilan.','',0,'gIA=','zs2kh9bl',1,0,'',160,0,0),(13608,3111,2,9,0,'80.103.165.76',1148537245,1,0,1,1,1,1,'','','Puedes abrir un archivo Excel con fivewin (libreria Ole2) y actualizar los datos de la hoja con la información del programa.','',0,'gIA=','m1dmwenz',1,0,'',9,0,0),(13609,3115,3,6,0,'87.17.218.81',1148539832,1,0,1,1,1,1,'','Re: TPrinter:SayBitMap() problem.','Yes. Use oPrn:Inch2Pix() method to calculate pixel from inches.\n\nEMG','',0,'gIA=','pn510zee',1,0,'',6,0,0),(13610,3112,3,6,0,'87.17.218.81',1148539988,1,0,1,1,1,1,'','','Try\n\n[code:1pvtj7wt]PRINT oPrn\n    IF oPrn&#58;hDC = 0\n        // Error\n    ENDIF\nENDPRINT[/code:1pvtj7wt]\n\nEMG','',0,'AIA=','1pvtj7wt',1,0,'',6,0,0),(13611,3057,6,2,0,'87.218.146.78',1148544079,1,0,1,1,1,1,'','','A que \"cualquier programa\" te refieres ? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1ga4s804',1,0,'',2,0,0),(13612,3113,4,2,0,'87.218.146.78',1148544223,1,0,1,1,1,1,'','','Randal,\n\nDo you have more info about the \"Object store\" ?','',0,'AIA=','3v9zuclu',1,0,'',2,0,0),(13613,3105,6,2,0,'87.218.146.78',1148544300,1,0,1,1,1,1,'','','Joaquín,\n\nSi no me equivoco, los GIFs no son recursos estandard de Windows.','',0,'AIA=','1cdgv1xi',1,0,'',2,0,0),(13614,3101,6,2,0,'87.218.146.78',1148544398,1,0,1,1,1,1,'','','Joaquín,\n\nPrueba a llamar a SysRefresh() despues de llamar a BmpCenter().','',0,'AIA=','17iyw21n',1,0,'',2,0,0),(13615,2992,2,2,0,'87.218.146.78',1148544633,1,0,1,1,1,1,'','','Manu,\n\nEstás tardando en pasarte a 32 bits <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2af6hh2m',1,0,'',2,0,0),(13616,3105,6,490,0,'80.24.224.89',1148550339,1,0,1,1,1,0,'','','Antonio,\n\nPero introduciéndolo en el RC como:\n\nTPV GIF \"MiTpv.gif\"\n\nse incrustan en el exe, por lo que debe haber alguna función desde freeimage para leerlos.\n\nPero bueno, ya lo estudiaré, si ves alguna posibilidad me lo comentas, yo seguiré buscando.\n\nGracias,\nJoaquín','',0,'AIA=','1d4ox70b',1,0,'',490,0,0),(13617,3104,7,138,0,'80.37.11.90',1148552656,1,0,1,1,1,1,'','','Estoy terminando hoy justamente el curso de FWPPC aqui en Donosti.\n\nEl material esta hecho\nLos ejemplos estan hechos\nLe hemos dado una repasada a los ejemplos para dejarlos finos.\n\nY bueno, voy de regreso el dia 3 de Junio, esa semana tengo otro curso y para finales de Junio seguramente ya tendre fecha para el curso de FWPPC.','',0,'AIA=','3re2k8cq',1,0,'',138,0,0),(13618,3101,6,490,0,'80.24.224.89',1148552896,1,0,1,1,1,0,'','','Antonio,\n\nLo he probado de todas las maneras posibles, incluso sin el bitmap, sólo pintando un say, y te explico lo que ocurre.\n\nSi uso en bPainted := { || oSay:Refresh() } no refresca bien el say, otros controles como un bitmap sí.\n\nY Si destruyo el oSay y luego lo vuelvo a crear en el evento bPainted, sí funciona bien, lo único que lo veo una sobrecarga el destruir y crear el oSay cada vez que se repinte la pantalla.\n\nSi hubiese otra solución al refresh de un say en una ventana sería lo ideal. \n\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','16hghf4s',1,0,'',490,0,0),(13619,3103,7,138,0,'80.37.11.90',1148553220,1,0,1,1,1,1,'','','Estamos terminando el curso de FWPPC en Donosti.\n\nLos ejemplos y los ejercicios del curso los hemos probado en:\n\nEmulador Windows\nWindows Mobile 5\nWindows CE 4.0\n\nLos procesadores que hemos probado son:\n\nIntel Xcale \nInter ARM-SA1110\nSamsung 500\n\nY en todos ha funcionado sin problemas','',0,'AIA=','1x7ebekk',1,0,'',138,0,0),(13620,3103,7,2,0,'87.218.146.78',1148556666,1,0,1,1,1,1,'','','René,\n\nBien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Gracias por la información.','',0,'AIA=','12eynh35',1,0,'',2,0,0),(13621,3101,6,2,0,'87.218.146.78',1148556799,1,0,1,1,1,1,'','','Joaquín,\n\nDebe tratarse de una diferencia de proceso de mensajes entre 16 y 32 bits. Windows es muy compatible entre 16 y 32, pero existen pequeñas diferencias.','',0,'AIA=','2z31op41',1,0,'',2,0,0),(13622,3105,6,2,0,'87.218.146.78',1148556895,1,0,1,1,1,1,'','','Joaquín,\n\nTal vez puedas cargarlo con LoadResource() y luego salvarlo a disco y desde ahí leerlo como un fichero. Windows no proporciona un LoadGIF().','',0,'AIA=','18fykpou',1,0,'',2,0,0),(13623,3113,4,26,0,'84.255.245.173',1148562080,1,0,1,1,1,1,'','','Hello!\n\nI found this information:\n<!-- m --><a class=\"postlink\" href=\"http://blogs.msdn.com/ce_base/archive/2006/02/02/CEDB_vs_EDB.aspx\">http://blogs.msdn.com/ce_base/archive/2 ... s_EDB.aspx</a><!-- m -->\n[quote:1e0kfobs]\nCEDB was created as a lightweight database API for Windows CE.  A long time back, before I started at Microsoft, maybe the CE 2.0 days or even earlier.  It originally ONLY stored its data in the object store.  But then as flash got cheaper and people started building more devices with persistent storage, we needed a database that could store its data in other places.  So some APIs were added to CEDB, to let it store its databases inside a \"volume\" (file) on any store.  However CEDB was really built to operate on a RAM-based store, does not work efficiently for storing data in slower media like flash.  It can end up writing to flash much more than you\'d really want.\n\nAs CEDB started showing its age, the SQL team took up the challenge of providing a better database engine for Windows CE.  We had SQL-CE but that was much heavier weight than CEDB.  The SQL team built a lighter engine, and put an API on top of it that closely mimicked the CEDB APIs.  That makes it easier to migrate existing applications that use CEDB over to use EDB.  EDB is much more efficient about storing its data (and it better be, considering it was written by database experts instead of device hacks like myself).\n\nFor now Windows CE and Windows Mobile support both CEDB and EDB, but over time we\'d like to get rid of CEDB.\n\nUnfortunately there aren\'t any tools to convert your code from using CEDB APIs to using EDB APIs, or to convert your existing CEDB databases to EDB.  Maybe someone could update our database conversion wizard (<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/windowsmobile/downloads/powertoys.mspx\">http://www.microsoft.com/windowsmobile/ ... rtoys.mspx</a><!-- m -->) to do that.  But to be honest I\'m not aware of any effort to do that.\n[/quote:1e0kfobs]\n\nRoman','',0,'gA==','1e0kfobs',1,0,'',26,0,0),(13624,3113,4,213,0,'72.177.228.25',1148563740,1,0,1,1,1,0,'','','Antonio,\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wceobjst/html/ceconobjectstoreregistry.asp\">http://msdn.microsoft.com/library/defau ... gistry.asp</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wceobjst/html/cecondatabasefunctions.asp\">http://msdn.microsoft.com/library/defau ... ctions.asp</a><!-- m -->\n\nThanks,\nRandal Ferguson','',0,'gA==','ths6dttk',1,0,'',213,0,0),(13625,3103,7,43,0,'201.127.19.100',1148564192,1,0,1,1,1,0,'','','Gracias Rene \n\nSaludos...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMarco A. Delgado','',0,'gA==','1dr0p0gj',1,0,'',43,0,0),(13626,3057,6,519,0,'83.45.248.159',1148566928,1,0,1,1,1,0,'','','Antonio,\n\n  Cuando muestro  una imagen en el preview se crea un metafile emf ?  este se guarda en una carpeta temporal, bueno pues este metafile se puede abrir con cualquier programa de dibujo, como puede ser el visor de imagenes del xp, pues se ve perfecto pero en el preview se ve mal, puede que falle algo en el preview ?\n\n\n Un saludo y gracias desde ya\n\n Gabri','',0,'gA==','151io1jm',1,0,'',519,0,0),(13627,3116,2,221,0,'200.109.236.123',1148567546,1,0,1,1,1,0,'','VENEZUELA, alguien tendra una rutina para imprimir cheques','saludos compañeros, alguien tendra por alli una rutinita para imprimir cheques, de venezuela, gracias de antemano','',0,'gA==','1xnu3s5v',1,0,'',221,0,0),(13628,3085,6,221,0,'200.109.236.123',1148568588,1,0,1,1,1,0,'','demasiado bueno y util','amigo gracias por compatir esta herramienta con todos, esta demasiado bueno y muy util, agradeciendo tambien a quien lo haya hecho','',0,'gA==','ebukf7hp',1,0,'',221,0,0),(13629,3117,6,179,0,'64.46.80.210',1148580361,1,0,1,1,1,1,'','ot/ citrix','Buenas tardes compañeros\nAlguien ha trabajado con Citrix via internet\nquisiera tener una idea de lo que se necesita, costos aproximados\nGracias x Todo\n\nQueremos trabajar una palicacion que es en modo consola con xHarbour + Ads Server\n\n\nSaludos','',0,'gA==','20y414dd',1,0,'',179,0,0),(13630,3118,6,9,0,'80.103.165.76',1148580670,1,0,1,1,1,1,'','PREVIEW + SELECCION IMPRESORA','Normalmente realizo las impresiones CON PREVIEW y con la impresora determinada. Me gustaria seguir asi, pero incorporar a la cabecera del preview un combobox, con las impresoras instaladas, al fin de que, si lo desea el usuario, cambie la impresora a imprimir.  ¿Alquien tiene hecho algo sobre esto?','',0,'gA==','2ojpk6r3',1,0,'',9,0,0),(13631,3119,6,439,0,'190.0.129.11',1148582742,1,0,1,1,1,1,'','Uso de VBX y nDbl2Flt()','Hola, estoy revisando algunos ejemplos que aparecen en FWH, uno de ellos en la carpeta chart2fx,  me da error <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  por no tener la función nDbl2Flt, una función que aparentemente pasa a Float unos valores.\n\n¿Está esta función en FWH o donde?\n\nAlguien me puede ayudar? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2q682bo9',1,0,'',439,0,0),(13632,3120,7,274,0,'200.171.101.83',1148585404,1,0,1,1,1,0,'','Tooltip em botão bitmap não funciona?','Olá a todos\n\nUtilizo botões bitmap, porém não me apresenta o tooltip, é possível?\n\n\nREDEFINE BITMAP ID 137 OF owcli FILE CurDir() +\"\\selec.bmp\" ON CLICK busca_cli() TOOLTIP Seleciona\n\n\n[]\'s\n\nRogerio','',0,'','3koyt3or',1,0,'',274,0,0),(13633,3120,7,2,0,'87.218.146.58',1148587631,1,0,1,1,1,1,'','','Rogerio,\n\nLos tooltips aún no están disponibles.','',0,'','3imghbkv',1,0,'',2,0,0),(13634,3119,6,2,0,'87.218.146.58',1148587828,1,0,1,1,1,1,'','','Jose,\n\nLos VBXs sólo funcionan en 16 bits. \n\nExiste una DLL que permite usarlos en 32 bits, pero no es muy recomendable usar 16 bits desde 32.','',0,'','21n03e0a',1,0,'',2,0,0),(13635,3057,6,2,0,'87.218.146.58',1148587992,1,0,1,1,1,1,'','','Gabri,\n\nEs que a eso precisamente me refiero. El visor de Windows no usa la función estandard de Windows PlayEnhancedMetafile() y es una labor titánica desarrollar una función equivalente a PlayEnhancedMetafile() que es lo que Microsoft habrá hecho.\n\nLo mismo se aplica a otros programas que visualizan EMFs. Si quieres te envio documentación de la estructura de los ficheros EMFs y verás que susto <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','9sys3in3',1,0,'',2,0,0),(13636,3119,6,439,0,'190.0.129.11',1148588062,1,0,1,1,1,1,'','Gracias','Gracias Antonio,\n\nCuales serían los que se utilizan en 32 bits\n\nHay ejemplos?','',0,'','2geffc8y',1,0,'',439,0,0),(13637,3062,6,2,0,'87.218.146.58',1148588121,1,0,1,1,1,1,'','','Joaquín,\n\nCon esto debe ser suficiente:\n\n   METHOD End() INLINE DeleteObject( ::hBitmap ), Super:End()','',0,'','183erhmp',1,0,'',2,0,0),(13638,3059,6,39,0,'201.220.111.107',1148588617,1,0,1,1,1,0,'','','Hola, desde Osorno, Chile les cuento que tengo 32 años y programa con clipper desde el 5.0 y con fivewin desde la 2.3c, soy contador de profesion y por esas cosas de la vida comenze a programar con clipper hace como 7 años y ahora solo eso hago.\n\n\nLarga vida al xbase. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nLautaro','',0,'','2apfz43z',1,0,'',39,0,0),(13639,3062,6,490,0,'81.44.204.84',1148592470,1,0,1,1,1,0,'','','Antonio,\n\nYa hice eso pero con un msginfo() y nunca lo mostraba, sin embargo poniendo el msginfo() en el DESTROY lo mostraba perfectamente.\n\n\nPruebaló y me dices, me da la impresión que sólo en el End(), se pierden recursos.\n\nMETHOD End() INLINE msginfo( \"End no se muestra\"), DeleteObject( ::hBitmap ), Super:End()\n\n\nMETHOD Destroy() INLINE msginfo( \"Destroy SÍ se muestra\"), DeleteObject( ::hBitmap ), Super:Destroy()\n\n\nUn Saludo y gracias,\nJoaquín','',0,'','13xsb72m',1,0,'',490,0,0),(13640,3112,3,170,0,'83.179.236.255',1148592918,1,0,1,1,1,1,'','','[quote=&quot;ralph&quot;:218henh0]there is no such \"Devices\" in my win.ini.\n\nI use windows 2000 profesional.\n\nI wonder if there is a way to know if there is a printer installed, or the printer status.   All the functions PrnGetname(), PrnGetport(), etc. fails if the printer is unavailable.\n\nRalph[/quote:218henh0]\n\nI have found the same problem : GPF, with FW 2.5.\n\nSo, i have rewritted these functions : PrnGetName() and PrnGetPort().\nThis work ok under 98 and XP. Tell me if you have a problem please.\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n******************\nFUNCTION WinDefPrn()\n******************\n* To replace PrnGetName(), failed function of Fivewin 2.5\n* Return the name of the default Windows printer\n* by take it directly in the Windows registry\n\n* Pour remplacer la fonction défaillante PrnGetName() de Fivewin 2.5\n* Retourne le nom de l\'imprimante par défaut\n* en le prenant directement dans le registre Windows\n\nLOCAL cDefPrn := \"\"\nLOCAL oReg := TReg32():New(HKEY_CURRENT_CONFIG, \"System\\CurrentControlSet\\Control\\Print\\Printers\")\nIF oReg:nError = 0\n  cDefPrn := oReg:Get(\"Default\", \"\")\nENDIF\noReg:Close()\noReg := NIL\nRETURN cDefPrn','',0,'gA==','218henh0',1,0,'',170,0,0),(13641,3121,6,295,0,'201.246.206.87',1148594081,1,0,1,1,1,1,'','tDosPrn con impresora en RED..?','Amigos,\n\nSiempre usé la TdosPrn con una impresora conectada a la Lpt1, o sea, una impresora local , ahora tengo que imprimir en una impresora conectada a otro equipo dentro de la Red y no pasa nada..ya puse dicha impresora como predeterminada en la estación de trabajo y nada\n\nDe antemano gracias por sus comentarios\n\nSALUDOS\nxHabrazos','',0,'gA==','3joliz2k',1,0,'',295,0,0),(13642,3089,1,170,0,'83.179.236.255',1148594549,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:27o7sjl0]Gilbert,\n\nYou may compile using Clipper 5.2 that has more preprocessor capability that Clipper 5.3. Later on you may link with Clipper 5.3 libraries, they are compatible.\n\nAlso, if you are using rmake.exe, you may switch to use Borland maker.exe as it frees all used memory, so Clipper has more memory to preprocess.[/quote:27o7sjl0]\n\nAntonio,\n\nIf i compile with Clipper 5.2 and after i link with Clipper 5.3b libraries,\ni get GPF directly when the program start.\n\nRegards,','',0,'gA==','27o7sjl0',1,0,'',170,0,0),(13643,3114,3,69,0,'70.50.72.6',1148596488,1,0,1,1,1,0,'','','You should also be able to do this:\n\noSheet := oExcel:Sheets(“oSheet1”)			\noExcel:Sheets( \"oSheet2” ):Move( oSheet )		\n\nThis example will move sheet2 infront of sheet1\n\n\nJeff','',0,'gA==','19ttotj1',1,0,'',69,0,0),(13644,2988,23,49,0,'87.6.183.129',1148597908,1,0,1,1,1,1,'','','I have modified ttabs class to troadbook class \nI draw a line  and I call it as\n \n@ 5,5 roadbook of odlg\n\nbut how can I make to insert a new line ?\ncan I send you this project ?','',0,'gA==','3702tikv',1,0,'',49,0,0),(13645,3062,6,2,0,'87.218.146.58',1148598089,1,0,1,1,1,1,'','','Joaquín,\n\nCierto, tienes razón, ha sido un lapsus por mi parte:\n\nMETHOD Destroy() INLINE DeleteObject( ::hBitmap ), Super:Destroy()','',0,'gA==','1ylbircf',1,0,'',2,0,0),(13646,3122,3,217,0,'200.178.178.150',1148599776,1,0,1,1,1,0,'',':Click() error when TButton is disabled','Antonio, I found a little bug in TButton class using bWhen clause and Click method:\nIf bWhen clause is invalid but I do oBtn:Click() the bAction referred to oBtn is executed, a little sample:\n\nredefine button oBtn ... of oDlg action AnyAction()\noBtn:bWhen := {|| .F. }\n\noDlg:bKeyDown := {|k| if(k=VK_F9, oBtn:Click(),) }   // F9 fire action\n\nfunction AnyAction()\n ? \"oBtn was clicked\"\nreturn( Nil )\n\nTo solve I did: (In TButton.prg)\n\n\nMETHOD Click() CLASS TButton\n if ! ::lProcessing\n    if ::bWhen # Nil .and. ! eval( ::bWhen )\n       return( Nil )\n    endif\n    (...)\n\n--------------\n\n*** I don\'t tested if it occur in other button controls like TBtnBmp, etc.\n\nRegards,\nMaurilio','',0,'gA==','i8t4ful2',1,0,'',217,0,0),(13647,3118,6,492,0,'201.154.125.229',1148603122,1,0,1,1,1,1,'','','Hola Manuel\n\nAsi como lo comentas, no.\n\nLo que tengo es poquito alrevez  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , selecciono una impresora en un combobox de todas las impresoras ya instaladas en la Pc y a cada reporte se le puede asignar X impresora, ya sea local o de red.\n\nAunque, lo que comentas, suena muy bien.   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos','',0,'gA==','2xjyci8x',1,0,'',492,0,0),(13648,702,2,228,0,'200.119.75.13',1148603664,1,0,1,1,1,1,'','De nada','De nada...\n\nEspero les sirva...','',0,'gA==','3uhylug9',1,0,'',228,0,0),(13649,3121,6,78,0,'200.121.237.231',1148603863,1,0,1,1,1,0,'','','Hola...\nNada mas facil que pellizcar un vidrio....\nen la PC donde esta la impresora (servidor), simplemente compartes la impresora en mencion,,,  luego en la estacion viene el detalle:\n1.- WIN98,   instalas una impresora de red, y simplemente capturas el puerto LPT1 al nombre de impresora de la red y listo...\n2.- WIN2K / WINXP,  alli no se puede capturar un impresora de red mediante el instaldor de impresoras de red... tienes que incluir estas lineas en al AUTOEXEC.NT que se encuentra en WINN\\SYSTEM32\\\n\nnet use LPT1 \\\\servidor\\nombre_de_impresora_compartida\n\ny listo,,\n(reiniciar la PC).\n\nSalu2\nWilli','',0,'gA==','15y8nldb',1,0,'',78,0,0),(13650,3112,3,305,0,'201.240.112.223',1148606545,1,0,1,1,1,0,'','','thanks to all, I will try your suggestions.\n\nRalph','',0,'gA==','120yf1ud',1,0,'',305,0,0),(13651,3115,3,303,0,'72.199.41.171',1148609609,1,0,1,1,1,0,'','','Milan,\n\nHave you tried the nWidth and nHeight parameters of sayBitmap()?\n\nSayBitmap( nRow, nCol, xBitmap, nWidth, nHeight, nRaster )\n\nJames','',0,'gA==','1z9tkml5',1,0,'',303,0,0),(13652,3121,6,295,0,'201.222.148.230',1148612007,1,0,1,1,1,1,'','','Gracias! Willi por tu respuesta lo voy a probar\n\nSALUDOS y\nxharbrazos','',0,'gA==','slx6r4b3',1,0,'',295,0,0),(13653,3050,6,582,0,'200.117.166.13',1148615826,1,0,1,1,1,0,'','','Te recomiendo el CDbf de White Town Software <!-- m --><a class=\"postlink\" href=\"http://www.whitetown.com/\">http://www.whitetown.com/</a><!-- m -->.\nNo es gratuito, pero de todos los que pude probar es el mejorcito.','',0,'gA==','1f9xstg7',1,0,'',582,0,0),(13654,3122,3,2,0,'87.218.146.58',1148624162,1,0,1,1,1,1,'','','Maurilio,\n\nThanks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThis way seems a little better:\n[code:2lbjgxgf]\n   if ! &#58;&#58;lProcessing\n   \n      &#58;&#58;lProcessing = &#46;t&#46;\n      \n      if &#58;&#58;bWhen != nil &#46;and&#46; ! Eval&#40; &#58;&#58;bWhen &#41; \n         &#58;&#58;lProcessing = &#46;f&#46;\n         return nil \n      endif    \n      &#46;&#46;&#46;\n[/code:2lbjgxgf]','',0,'AIA=','2lbjgxgf',1,0,'',2,0,0),(13655,702,2,2,0,'87.218.146.58',1148624405,1,0,1,1,1,1,'','','&gt;\nLo ideal sería que en este foro hubiera algún lugar donde ir dejando lo que cada usuario ha desarrollado y funciona para actuales/futuros fivener@os que pudieran precisarla.\n&gt;\n\nAsí lo estamos haciendo en la sección Utilities/Utilidades de este foro.','',0,'AIA=','2djive2h',1,0,'',2,0,0),(13656,3123,17,2,0,'87.218.146.58',1148624460,1,0,1,1,1,1,'','Leandro - Class TDosPrn con previsual','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b9dff370/88290-TDOSPRN.ZIP.html\">http://hyperupload.com/download/01b9dff ... N.ZIP.html</a><!-- m -->','',0,'AIA=','3uxyqryd',1,0,'',2,0,0),(13657,3073,20,2,0,'87.218.146.58',1148624607,1,0,1,1,1,1,'','','There are several solutions:\n\n* Compile using Clipper 5.2 and link Clipper 5.3 libraries.\n\n* Remove unused CH files from FiveWin.ch\n\n* Use Borland maker.exe instead of rmake.exe','',0,'AIA=','mp0a3jgc',1,0,'',2,0,0),(13658,3080,4,2,0,'87.218.146.58',1148625234,1,0,1,1,1,1,'','','Randal,\n\nYou may try to fine tune the mouse speed using SystemParametersInfo() and the SPI_SETMOUSE flag. Also check mouse_event().','',0,'AIA=','xw8ixp4r',1,0,'',2,0,0),(13659,3124,6,77,0,'80.224.221.86',1148648250,1,0,1,1,1,0,'','error al compilar harbour','Hola estoy compilando una aplicación con harbour, utilizo el verce, y hasta ahora todo va bien, pero he cambiado el fichero .rc ya que he hecho algunas modificaciones, y al linkar en el último paso me aparece el siguiente mensaje de error:\n\naccess violation.Link terminated\n\n¿ A alguien le ha pasado o sabe porque sucede esto ?\n\n\nP.D. He probado a compilar con el xmate y me da el mismo error,  el rc en particular lo extraigo de una dll de 16 bits que funciona perfectamente.\n\nsaludos.','',0,'AIA=','3dk1kmsd',1,0,'',77,0,0),(13660,3125,6,264,0,'200.91.3.10',1148650821,1,0,1,1,1,0,'','Control DTPICKER','Existe alguna posibilidad de manejar el control DTPICKER de la misma forma que el default de fechas actual?, es decir, digitar toda una fecha sin\"cambiarse\" al mes o al año con flechas?\n\nLo pregunto pues me gusta la apariencia del control pero es muy engorroso para los usuarios el manejo independiente de dia+mes+año.\n\nAgradecido de antemano','',0,'AIA=','yxugkweg',1,0,'',264,0,0),(13661,3050,6,131,0,'83.42.52.45',1148653111,1,0,1,1,1,0,'','','Pues yo creo que los he probado todos, incluido DbfDesktop, y el mejor manejador de DBF sigue siendo WinDbu de OZS aunque OurXdbu se le está acercando.\n\nSaludos,','',0,'AIA=','2lixmwcs',1,0,'',131,0,0),(13662,2558,17,439,0,'190.0.142.216',1148658042,1,0,1,1,1,1,'','TSBrowse 7.01 con temas XP y corregido bug de excel con Ole','Bueno, finalmente la versión ahora con la corrección de vikthor en la generación de la planilla via OLE.\n\nGracias Vikthor!!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAhora la clase está totalmente operativa.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e9fab658/TSBrowse_7.01.exe.html\">http://hyperupload.com/download/02e9fab ... 1.exe.html</a><!-- m -->','',0,'AIA=','2hf7gpja',1,0,'',439,0,0),(13663,3124,6,362,0,'200.168.52.156',1148660356,1,0,1,1,1,1,'','','Hola...\n\nÉs necesario: dividir/fraccionar/desmembrar tu Archivo.Rc en dos(2) y incorporar nuevamente.\n\n\nSaludos.','',0,'AIA=','273ibb5q',1,0,'',362,0,0),(13664,3124,6,77,0,'217.126.90.142',1148661478,1,0,1,1,1,0,'','','[quote=&quot;karinha&quot;:vvttdtpz]Hola...\n\nÉs necesario: dividir/fraccionar/desmembrar tu Archivo.Rc en dos(2) y incorporar nuevamente.\n\n\nSaludos.[/quote:vvttdtpz]\n\nPerdon por la ignorancia, pero como hago esto con el verce.\n\ngracias\n\nmanolo','',0,'gA==','vvttdtpz',1,0,'',77,0,0),(13665,3124,6,36,0,'200.113.56.235',1148662247,1,0,1,1,1,0,'','','Manolo\n     \n     Revisa ese link\n\n\n[url:a44te3ek]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1761&amp;highlight=access+violation[/url:a44te3ek]\n\nSaludos\nPatricio','',0,'EA==','a44te3ek',1,0,'',36,0,0),(13666,3124,6,77,0,'217.126.90.142',1148664556,1,0,1,1,1,0,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:29d2f09r]Manolo\n     \n     Revisa ese link\n\n\n[url:29d2f09r]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1761&amp;highlight=access+violation[/url:29d2f09r]\n\nSaludos\nPatricio[/quote:29d2f09r]\n\nGracias patricio.\n\nSaludos\nmanolo','',0,'kA==','29d2f09r',1,0,'',77,0,0),(13667,3126,6,492,0,'201.154.125.229',1148672939,1,0,1,1,1,1,'','Pequeña pregunta acerca TGraph','Hola a todos\n\nEstoy probando la clase TGraph de Arteaga, y todo va bien, el unico detalle que no puedo resolver, es como le hago para inicializar el arreglo de las series ??, ya le anduve buscando y nop  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  no le encuentro.\n\nMe explico, cuando defino la grafica le aplico una serie en cero, al procesar X funcio, y deseo actualizar la grafica, me aparece el valor de cero mas los nuevos valores, y si lo vuelvo a procesar, pues se van acumulando.\n\n\n- Aqui esta en cero\n[img:37fxcuht]http&#58;//img372&#46;imageshack&#46;us/img372/2818/grph13fa&#46;jpg[/img:37fxcuht]\n\n- Aqui con un proceso\n[img:37fxcuht]http&#58;//img372&#46;imageshack&#46;us/img372/4903/grph26ad&#46;jpg[/img:37fxcuht]\n\ny aqui si sigo repitiendo el proceso\n[img:37fxcuht]http&#58;//img96&#46;imageshack&#46;us/img96/9861/grph30ta&#46;jpg[/img:37fxcuht]\n\nEl unico detalle es como inicializar los valores contenidos anteriormente, osease, vaciar la serie y volver a llenarla.\n\nMuchas Gracias y Saludos','',0,'CA==','37fxcuht',1,0,'',492,0,0),(13668,3091,1,303,0,'72.199.41.171',1148674179,1,0,1,1,1,0,'','','I had fits with this too. It may be a bug. Here is a workaround.\n\n   oWnd:oMsgBar:cMsgDef:=cUserName\n   oWnd:oMsgBar:setMsg(\"\")\n\ncMsgDef is the message that gets displayed.\n\nThis works for me.\n\nJames','',0,'CA==','x8v2908i',1,0,'',303,0,0),(13669,3080,4,213,0,'72.177.228.25',1148675930,1,0,1,1,1,0,'','','Antonio,\n\nWhen I slow the mouse speed down to slowest possible it draws the lines better but on the desktop it is very hard to draw with the mouse moving so slow.  I don\'t know what the behaviour would be on the handheld.\n\nMaybe someone could compile the simple sample I posted and see how it works on the handheld?\n\nThanks,\nRandal Ferguson','',0,'CA==','1qrf4yr2',1,0,'',213,0,0),(13670,3127,3,343,0,'204.57.111.194',1148679422,1,0,1,1,1,0,'','oWnd:bKeydown does not trigger when DEL key pressed','I want to have a save button activate when changes are made to fields on window.\n\nThe line below works for most keys, but the Delete and Back keys are ignored.\n\n::oWnd:bKeyDown = { | nKey | if( ! self:lSave .and. (( nKey &gt; 31 .and. nKey &lt; 223) .or. nKey = VK_BACK .or. nKey = VK_DELETE), self:togglesave(), ) }\n\nIs there another (easier) way to detirmine if control changes?','',0,'CA==','rfmxdzqf',1,0,'',343,0,0),(13671,3128,3,213,0,'72.177.228.25',1148680124,1,0,1,1,1,0,'','Tget Problem','Antonio,\n\nI have a problem with latest tget (source dated 5/4/06).\n\nUsing the testget2 sample, right clicking the mouse, if you Cut or Copy the contents of field one and then right click and Paste into the same field you can past more information into the field than should fit.  The size of the get field increases each time you right click and paste.\n\nSame is true if you Cut/Copy from one field and Paste into another.\n\nIs there a later version of tget.prg?\n\nThanks,\nRandal Ferguson','',0,'CA==','18bl5xhw',1,0,'',213,0,0),(13672,3059,6,376,0,'201.240.97.4',1148682042,1,0,1,1,1,0,'','','Ya que decimos la edad, me considero el abuelo con mis 60 añotes. Vengo desde la programación con tarjetas en una viejiiiiiiisima IBM 1130 con disco duro de 16Mbs. por alla en los años 60. Me inicié con Fortran y anduve por casi todos los lenguajes, hasta que por los 80 recale con DBase debido a la naturaleza de mi trabajo (soy economista de profesión)\n\nPor esos años adopte al Clipper como mi herramienta básica y recien hace pocos años (creo que no mas de 6) estoy utilizando el FW cuando salió la versión 2.0. Ahora utilizo FWH2.4 y sigo....!!! hasta no sé cuando.\n\nDesde Perú\n\nUn Saludo grato a los miembros jovencitos.\n\nArmando Picón.','',0,'CA==','107qw4f0',1,0,'',376,0,0),(13673,3126,6,492,0,'201.154.125.229',1148683375,1,0,1,1,1,1,'','','Corregido !!\n\noGraph:aData := {}\noGraph:aSeries := {}\n\ny Listo !!!!\n\n\nSaludos','',0,'CA==','24ji56h2',1,0,'',492,0,0),(13674,3122,3,217,0,'200.178.178.150',1148683464,1,0,1,1,1,0,'','','Thanks, Antonio!\n\nRegards,\nMaurilio','',0,'CA==','1s4gyrgm',1,0,'',217,0,0),(13675,3129,6,61,0,'201.217.173.204',1148712665,1,0,1,1,1,0,'','Get con clausula WHEN .F.','Amigos:\n\nUn get deshabilitado con WHEN .F. al actualizarlo\nse ve feo y diferente.\ncVAr:=\"Ruben\"\n\nRedefine Get oGet VAR cVar ID 120 of oDlg WHEN .F. UPDATE\nRedefine Button oBoton BLA,BLA,;\n            Action(......, cVar:=\"Pepe\", oGet:Refresh())\n\nAl refrescarse el GET deshabilitado se pinta mas grande,\nsi le saco el WHEN funciona bien\n\nMuchas gracias\n\nFWH2.7 Abril y Harbour.\n\nSaludos\n\nRuben Fernandez','',0,'CA==','2iec5t7e',1,0,'',61,0,0),(13676,3127,3,6,0,'87.17.223.196',1148720416,1,0,1,1,1,1,'','Re: oWnd:bKeydown does not trigger when DEL key pressed','Try assigning\n\noGet:bChange\n\ncodeblock.\n\nEMG','',0,'CA==','11ga91ml',1,0,'',6,0,0),(13677,3118,6,9,0,'80.103.165.76',1148726960,1,0,1,1,1,1,'','','Raymundo,\n\nGracias por tu respuesta. \n\nLo que busco es que por defecto, al usuario le salga el previo sin tener que seleccionar la impresora.- Solo en el caso de que lo necesite, tener un combobox, en el propio preview, para seleccionar otra impresora que la prederminada (por ejemplo, para imprimir en una impresora PDF y mandarla por email).\n\nYa lo he conseguido, pero a medias:\n\n1) Con aGetPrinters(), consigo la lista de impresoras y la pongo en un  ComboBox en la barra del preview. \n\n2) Si cambio este Combo (ON CHANGE) me funciona con oDevice:hDC:=GetPrintDC(), pero claro, sale el cuadro de Windows para elegir de nuevo la impresora, y me gustaria evitarlo. Todos los intentos que he hecho para que al cambiar el ComboBox tome como activa la nueva impresora, han sido inutiles. ¿Alguien podría echarme una ayudita?\n¿Que tengo que poner para que al elegir una impresora en el Combo, el programa tome como activa dicha impresora?.','',0,'CA==','2ojh1qut',1,0,'',9,0,0),(13678,3059,6,103,0,'200.164.92.242',1148737743,1,0,1,1,1,0,'','','Bueno, me uno a ustedes y les dijo que estoy con 40... creo que en la mejor parte de la vida.\n\nSaludos,\n\nKleyber Derick','',0,'CA==','1lbayro4',1,0,'',103,0,0),(13679,3118,6,9,0,'80.103.165.76',1148739547,1,0,1,1,1,1,'','','Solucionado:\n\n\n//------------------------------------------------------------------------\n// función para cambiar la impresora desde previo (mcn)\n//------------------------------------------------------------------------\nfunc f_CamImpre (oDevice, cCbx )\nlocal cPrinter\n\n    cPrinter := GetProfString( \"windows\", \"device\" , \"\" )\n    WriteProfString( \"windows\", \"device\", cCbx )\n    SysRefresh()\n    PrinterInit()\n    oDevice:hDC := GetPrintDefault( GetActiveWindow() )\n    SysRefresh()\n    WriteProfString( \"windows\", \"device\", cPrinter  )\n\nRETURN nil','',0,'CA==','257fg7qk',1,0,'',9,0,0),(13680,1808,2,588,0,'200.58.160.146',1148741347,1,0,1,1,1,0,'','','[quote=&quot;devwin2004&quot;:oz2280nn]Estimados Colegas\n\nPueden descargar  una demo  que contiene un browse para facturacion\ncon tsbrowse (clipper) desde <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->\nal que le interese le puedo enviar los fuentes del modulo de facturacion\n\nGracias\nDEvwin2004[/quote:oz2280nn]\n\nPor favor pueder enviarme el modulo de facturación a mi correo:\n<!-- e --><a href=\"mailto:cypbol@yahoo.com\">cypbol@yahoo.com</a><!-- e -->\n\natte,\nRubens Salazar','',0,'gA==','oz2280nn',1,0,'',588,0,0),(13681,3059,6,23,0,'85.59.44.185',1148747010,1,0,1,1,1,1,'','','Bueno, uniéndome a esta fiebre de los años....\nCuento 33 por el momento.\nAndo con clipper desde .... buffff ¿hace ya tanto?, desde el summer 87, empecé con 18 añitos a liarme en este mundillo, previamente habia hecho pinitos con Pascal y desarrolle un proyecto de fin de curso en C y con unas librerias que habia en aquel entonces que se llamaban ProC. Toda una aventura!!\nFivewin? Desde la 1.92, la compre en una compañia que vendía software por correo, que no consigo recordar su nombre ...\nEn fin, ahora FWH, Harbour, etc, etc ... y por muchos años!!!\n\nUn saludo a todos, amigos!!','',0,'gA==','d3pi1d8h',1,0,'',23,0,0),(13682,3118,6,54,0,'201.98.178.155',1148747674,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:1oqa2oom]Solucionado:\n\n\n//------------------------------------------------------------------------\n// función para cambiar la impresora desde previo (mcn)\n//------------------------------------------------------------------------\nfunc f_CamImpre (oDevice, cCbx )\nlocal cPrinter\n\n    cPrinter := GetProfString( \"windows\", \"device\" , \"\" )\n    WriteProfString( \"windows\", \"device\", cCbx )\n    SysRefresh()\n    PrinterInit()\n    oDevice:hDC := GetPrintDefault( GetActiveWindow() )\n    SysRefresh()\n    WriteProfString( \"windows\", \"device\", cPrinter  )\n\nRETURN nil[/quote:1oqa2oom]\n\nManuel,\n\nHaz concemplado el cambio de resolucion por eltipo de impresora seleccionado, tengo entendido que cada impresora tiene su propia resolución y al generar la impresión lo hace de acuerdo a la impresora seleccionada al momento de generar la impresión?','',0,'gA==','1oqa2oom',1,0,'',54,0,0),(13683,3130,6,54,0,'201.98.178.155',1148747834,1,0,1,1,1,1,'','TRebar, TPanel en dialogos','Hola,\n\nEs posible?\n\nY si tuvieran un ejemplillo les estaría agredecido infinitamente.\n\nGracias de antemano','',0,'gA==','3jj6eitl',1,0,'',54,0,0),(13684,3008,6,23,0,'85.59.44.185',1148747970,1,0,1,1,1,1,'','','Usa la clase TDosPrn. A mi me sirve perfectamente para esto.','',0,'gA==','1sbwlocx',1,0,'',23,0,0),(13685,3130,6,439,0,'190.0.129.2',1148751032,1,0,1,1,1,1,'','Ejemplo TRebar','Lo tienes en el directorio de ejemplos de FWH :\nc:\\FWH\\SAMPLES\\rebars.prg\n\n\nSolo por si no lo tienes bájalo de:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028bd4eb29/rebars.prg.html\">http://hyperupload.com/download/028bd4e ... s.prg.html</a><!-- m -->','',0,'gA==','3nczradr',1,0,'',439,0,0),(13686,3118,6,9,0,'85.60.56.29',1148752042,1,0,1,1,1,1,'','','William,\n\nEn las impresoras que utilizo (HP laser) me funciona. Intentaré probar en otras para comprobarlo.','',0,'gA==','37m4dhm6',1,0,'',9,0,0),(13687,702,2,568,0,'200.121.64.61',1148752551,1,0,1,1,1,0,'','Previsualizacion TDOSPRN','Estimado Luis\npodrias enviarme tambien a mi esta clase, por favor\n\nMi correo es:\n<!-- e --><a href=\"mailto:wchavezn@hotmail.com\">wchavezn@hotmail.com</a><!-- e -->\n\ngracias\n\nWilliam Chavez Noriega','',0,'gA==','1j19sria',1,0,'',568,0,0),(13688,3005,2,568,0,'200.121.64.61',1148752812,1,0,1,1,1,0,'','Re: Como cierro el TAG de un indice','Gracias mi estimado Garbi\n\nWilliam Chavez','',0,'gA==','lrw4oxb1',1,0,'',568,0,0),(13689,3131,3,303,0,'72.199.41.171',1148754944,1,0,1,1,1,0,'','Possible bug in TGet w/ @k picture','Antonio,\n\nThere may be a bug in either the TGet class or the GET class object within the TGet class (TGet:oGet). If you are using the @k picture (which erases the rest of a field when a new character is entered in the first position) and if you call oDlg:update() just prior to entering the field, the picture fails to work. In the sample code below, the first field calls oDlg:update() from it\'s VALID clause. Then next field\'s picture clause does not work as expected. If you then move to the third field (which doesn\'t call oDlg:update()), then back to the second field, the picture clause works as expected. \n\nI cannot figure out why this is happening. It doesn\'t seem logical that calling oDlg:update() (which calls the control\'s refresh() method) would cause a problem with the picture clause. I can\'t find any reference to this particular picture clause in TGet so I am guessing the problem lies within the GET class in Harbour, but I am not sure.\n\nI have also confirmed that if you just call oGet2:refresh() instead of oDlg:update() the same problem occurs.\n\nI am using the FWH May 2006 release with Harbour. The problem also existed with the May 2005 version so it is not a new problem.\n\nJames\n\n\n[code:32samep7]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg, oGet2, cVar1&#58;=&quot;AAAAAA&quot;, cVar2&#58;=&quot;BBBBBB&quot;, cVar3&#58;=&quot;CCCCCC&quot;\n   define dialog oDlg title &quot;Test Get&quot;\n   @ 1,1 get cVar1 picture &quot;@!@k&quot; of oDlg update valid &#40;oDlg&#58;update&#40;&#41;, &#46;t&#46;&#41;\n   @ 2,1 get oGet2 var cVar2 picture &quot;@!@k&quot; of oDlg update\n   oGet2&#58;bGotFocus&#58;=&#123;|| oGet2&#58;setPos&#40;1&#41; &#125;\n   @ 3,1 get cVar3 picture &quot;@!@k&quot; of oDlg update\n   activate dialog oDlg centered\nreturn nil[/code:32samep7]','',0,'AIA=','32samep7',1,0,'',303,0,0),(13690,3131,3,303,0,'72.199.41.171',1148755231,1,0,1,1,1,0,'','','I just checked and the problem does NOT occur with FW2.1 and Clipper so it looks like it may be a Harbour problem.\n\nJames','',0,'AIA=','2hz73b2k',1,0,'',303,0,0),(13691,702,2,228,0,'201.216.15.73',1148760088,1,0,1,1,1,1,'','vinculo','Amigo en la parte superior de esta pagina esta el vinculo para que la descargues......\n\nEspera unos segundos en pagina de hiperdownload para la descarga....','',0,'AIA=','6xlt53fi',1,0,'',228,0,0),(13692,3116,2,228,0,'201.216.15.73',1148760169,1,0,1,1,1,1,'','te envio....','Amigo yo tengo una rutina.... sio quieres te la envio....\npero necesitas Easy Report... Si te sirve escribeme a mi correo.\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->','',0,'AIA=','1giak8pl',1,0,'',228,0,0),(13693,3130,6,54,0,'201.98.178.155',1148775355,1,0,1,1,1,1,'','Re: Ejemplo TRebar','[quote=&quot;jose_murugosa&quot;:2sr2dibq]Lo tienes en el directorio de ejemplos de FWH :\nc:\\FWH\\SAMPLES\\rebars.prg\n\n\nSolo por si no lo tienes bájalo de:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028bd4eb29/rebars.prg.html\">http://hyperupload.com/download/028bd4e ... s.prg.html</a><!-- m -->[/quote:2sr2dibq]\n\nJosé,\n\nGracias por responder, antes que nada.\n\nY el ejemplo que comentas efectivamente está, pero, es utilizado en un WINDOW y necesito en un DIALOG\n\nsaludos','',0,'gA==','2sr2dibq',1,0,'',54,0,0),(13694,2996,6,519,0,'81.38.58.154',1148781991,1,0,1,1,1,0,'','','Rossine  has podido ver el error que da el browse desde rc  ?\n\n  Un saludo y gracias desde ya','',0,'gA==','22gxjjbl',1,0,'',519,0,0),(13695,3132,3,6,0,'87.6.213.231',1148801157,1,0,1,1,1,1,'','A TActiveX working sample using Acrobat Reader 7','Here it is:\n\n[code:3tewp2y7]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oPdf\n\n    DEFINE WINDOW oWnd\n\n    oPdf = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;&#123;CA8A9780-280D-11CF-A24D-444553540000&#125;&quot; &#41;\n\n    oPdf&#58;Do&#40; &quot;LoadFile&quot;, &quot;filename&quot; &#41;\n\n    oWnd&#58;oClient = oPdf\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:3tewp2y7]\n\nEMG','',0,'AIA=','3tewp2y7',1,0,'',6,0,0),(13696,3132,3,6,0,'82.57.159.180',1148820617,1,0,1,1,1,1,'','Re: A TActiveX working sample using Acrobat Reader 7','This is an alternative:\n\n[code:3ctg68pp]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oPdf\n\n    DEFINE WINDOW oWnd\n\n    oPdf = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;AcroPDF&#46;PDF&quot; &#41;\n\n    oPdf&#58;Do&#40; &quot;LoadFile&quot;, &quot;filename&quot; &#41;\n\n    oWnd&#58;oClient = oPdf\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:3ctg68pp]\n\nBut they have a problem: the process AcroRd32.exe remains active after the end of the sample execution. Is there any way to unload it? I already tried various options without success: oPdf:End(), oPdf:Do( \"Close\" ), DeleteObject( oPdf:hActiveX ), etc.\n\nEMG','',0,'AIA=','3ctg68pp',1,0,'',6,0,0),(13697,3133,2,542,0,'88.9.143.14',1148831207,1,0,1,1,1,0,'','Actualizacion','Hola amigos:\nTengo un problema en mi aplicacion y es el siguiente: \nTengo una ventana con muchos datos, es la pantalla de un diario de contabilidad y escribe veintidos lineas con ocho datos por linea, todo funciona bien si le da tiempo a realizar las operaciones, pero si por ejemplo estamos en la última linea y pulsamos abajo nos presenta la siguiente moviendo todas hacia arriba. Pero si pulsamos muchas veces y de seguido, al programa no le da tiempo a procesar todo el codigo y se descuadra. Podriais decirme como puedo hacer para que el programa espere hasta que se realicen todas las operaciones. todos los datos son says y hay uno que es un GET y este es el que se descuadra poniendo el dato de otra línea.\n\nGracias\nCarlos','',0,'AIA=','3715q924',1,0,'',542,0,0),(13698,1808,2,569,0,'200.84.5.101',1148842524,1,0,1,1,1,0,'','','Si puedes enviarme las fuentes del browse de facturacion  a mi correo <!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->.\nGracias anticipadamente RODOLFO SILVA','',0,'AIA=','1rj68gtj',1,0,'',569,0,0),(13699,3134,3,105,0,'200.104.123.80',1148861669,1,0,1,1,1,1,'','Help with CHR(0)','Hi everybody..\nNeed to know what\'s the difference between VB\'s 6.0 CHR and Clipper/Harbour/xHabour\'s one\n\nI have a VB sample which comunicates with an OCX\n\nEx. \n\ndata= chr(0)\nfe.addDataField data\n\nIn harbour/xHarbour\n\ndata:= Chr(0)\nEf:Do(\"addDataField\",data)\n\nBoth are supposed to add some data to a string which is sent to a Com port. \n\nBUT.......\nIf I use PortMon to monitor the com port, I can see that in VB the field is added with \"00\" in the string sent to the port, but in xHarbour sample, this part is missing, so It fails.\nI read about Chr(0) in the NG\'s and I understand that it is equivalent to a null character, but I need to know the ASCII character code for 0 ( cero )\n\nAny way to do it\n\nThanks in advance...','',0,'AIA=','3w2euntg',1,0,'',105,0,0),(13700,3059,6,295,0,'201.222.147.9',1148866794,1,0,1,1,1,1,'','','Un Gran saludo para todos ..y para armando, que me merece el mayor de los respetos a su estupenda edad, esto, porque al contrario de pensar que con la edad nos vamos poniendo \"viejos\" creo que es al contrario, si la salud nos acompaña y tratamos bien nuestra carcaza, (que es nuestro cuerpo, que muchas veces  sometemos a todo tipo de malos tratos) podemos llegar muy lejos.. por eso les deseo larga vida a todos los FiveWinneros del mundo y que sigamos unidos por este estupendo foro..\n\nSALUDOS Y MUCHOS ABRAZOS!!','',0,'AIA=','3ttfg16g',1,0,'',295,0,0),(13701,3059,6,102,0,'83.33.135.104',1148882417,1,0,1,1,1,1,'','','Hola soy José Martin uriarte.\n\nCreo que yo os gano a todos en edad me caeran en septiembre 57 y llevo trabajando con Clipper y Fw desque salio la version de autom de no se que año, luego compre a SOFT MAIL (creo) en Barcelona la primera versión Fw y desde entonces estoy dandole.\n\nUn saludo\n\nJosé Martin Uriarte','',0,'AIA=','3a9w6j71',1,0,'',102,0,0),(13702,3135,6,102,0,'83.33.135.104',1148883148,1,0,1,1,1,1,'','Centrar texto en un informe','Hola chicos(as)\nEsto haciendo un informe con TPRINTER y utilizo Cmsay para presentar los datos. Pero tengon problema no consiguo centrar un texto en el centro dle informe\n\nHago esto\nPRINT oPrn PREVIEW\n oPrn:SetPortrait()                   //Ponemos la impresion en vertical\n   PrnSetSize( 2100, 2970 )             //Tamaño de la pagina\n\n   DEFINE FONT oFnt1 NAME \"Arial\" SIZE 0,-7  BOLD   OF oPrn\n   DEFINE FONT oFnt2 NAME \"Arial\" SIZE 0,-13 BOLD   OF oPrn\n   DEFINE FONT oFnt3 NAME \"Arial\" SIZE 0,-15 BOLD   OF oPrn\n   DEFINE FONT oFnt4 NAME \"Arial\" SIZE 0,-24 BOLD   OF oPrn\n   DEFINE FONT oFnt5 NAME \"Arial\" SIZE 0,-10 ITALIC OF oPrn\n   DEFINE FONT oFnt6 NAME \"Arial\" SIZE 0,-10 BOLD   OF oPrn\n   DEFINE FONT oFnt7 NAME \"Arial\" SIZE 0,-7         OF oPrn\n   DEFINE FONT oFnt8 NAME \"Courier New\" SIZE 0,-14 ITALIC BOLD OF oPrn\noPrn:Startpage()\noPrn:CmSay(27.50,10.50,Dtoc(date())   ,oFnt7 )\noPrn:CmSay(27.50,14.30,Reparto-&gt;NOMORI ,oFnt7 )\noPrn:CmSay(28.00,03.00,Substr(Agenc-&gt;CODTER,1,2)+\' \'+SubStr(Agenc-&gt;NOMAGE,1,21),oFnt7 )\noPrn:CmSay(28.00,09.80,Agenc-&gt;DIRECC ,oFnt7 )\n\n\n.................\n\n[b:1vsl1ggd]oPrn:CmSay(29.00,09.80,Reparto-&gt;NOMDES,oFnt8,,,,TA_CENTER )[/b:1vsl1ggd]\nAqui quiero al final de la pagina centrar un texto pero no se como\n\n\n\n.................\nEndpage \nEnd Print\n\nAlguien pued decirme como lo hago?\n\nGracias','',0,'QA==','1vsl1ggd',1,0,'',102,0,0),(13703,3135,6,102,0,'83.33.135.104',1148885136,1,0,1,1,1,1,'','','Solucionado, en lugar de utilzat PAD_CENTER lo hacia con TA_CENTER\n\nGracias a todos','',0,'QA==','3uvvdxal',1,0,'',102,0,0),(13704,3134,3,266,0,'60.50.59.176',1148885724,1,0,1,1,1,1,'','','\'0\'  = chr(asc(\'0\'))','',0,'QA==','sqnfhl2n',1,0,'',266,0,0),(13705,3136,3,247,0,'62.1.106.11',1148893193,1,0,1,1,1,0,'','Setfilter TWBrowse','Hi,\n\nI think that the setfilter method is wrong when you try filter a field that has a combined index .\n\ne.g:\n\n1) the field is te01 and is number, there is also a field te02 character\n2) the index of te01 is str(te01,4)+te02\n\nTry to use the setfilter method and you will se the error . I think the error is at this line:\n\n   if uVal1 != nil\n      cIndexType := ( ::cAlias )-&gt;( ValType( &amp;( IndexKey() ) ) )\n      if ( ::cAlias )-&gt;( ValType( &amp;cField ) ) != cIndexType .or. ;\n         ValType( uVal1 ) != cIndexType .or. ;\n         ValType( uVal2 ) != cIndexType\n         MsgAlert( \"TWBrowse SetFilter() types don\'t match with current Index Key type!\" )\n\n\nI think that buildskip is worg too when using the above example at line :\nstatic function BuildSkip( cAlias, cField, uValue1, uValue2 )\n\n   local bSkipBlock\n   local cType := ValType( uVal1 )\n\n\nregards,\n\nA.S.K','',0,'QA==','2sl7hkk1',1,0,'',247,0,0),(13706,3132,3,2,0,'87.218.146.137',1148900481,1,0,1,1,1,1,'','','Enrico,\n\nHave you checked if after some time it gets unloaded ? Sometimes the activex remains loaded for some time and later on it gets closed.','',0,'QA==','2qnsdylm',1,0,'',2,0,0),(13707,3132,3,6,0,'87.17.223.8',1148901584,1,0,1,1,1,1,'','','No, I will check it, thank you.\n\nEMG','',0,'QA==','2giktj11',1,0,'',6,0,0),(13708,3126,6,24,0,'80.37.55.44',1148901696,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:fvtmxrvm]Corregido !!\n\noGraph:aData := {}\noGraph:aSeries := {}\n\ny Listo !!!!\n\n\nSaludos[/quote:fvtmxrvm]\nBueno, segun que grafica este intentado poner, te va a cascar.\nMi consejo es que metas un method :\n\nMETHOD DelSerie( nSerie ) CLASS TGraph\n   \n   ADEL( ::aSeries, nSerie )\n   ASIZE( ::aSeries, ( Len( ::aSeries ) - 1) )\n\n   ADEL( ::aData, nSerie )\n   ASIZE( ::aData, ( Len( ::aData ) - 1) )\n   \n   ADEL( ::aSTemp, nSerie )\n   ASIZE( ::aSTemp, ( Len( ::aSTemp ) - 1) )\n   \n   ADEL( ::aDTemp, nSerie )\n   ASIZE( ::aDTemp, ( Len( ::aDTemp ) - 1) )\n\n   ADEL( ::aYVals, nSerie )\n   ASIZE( ::aYVals, ( Len( ::aYVals ) - 1) )\n   \n   ADEL( ::aYTemp, nSerie )\n   ASIZE( ::aYTemp, ( Len( ::aYTemp ) - 1) )\n\nRETURN Len( ::aSeries )\n\nDe esta manera, puedes cargarte una serie sin afectar a las demas.\noGraph:DelSerie( 1 )\n// Y añado otra.\noGraph:AddSerie( aSerie )\n\nLo que estoy viendo es que las leyendas las recorta y no sale correctamente , cuando es mayor de 7 caracteres.\n\nEs que recien estoy luchando con esta <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->, y por eso te cuento, ejejej','',0,'gA==','fvtmxrvm',1,0,'',24,0,0),(13709,2996,6,104,0,'201.58.38.122',1148903697,1,0,1,1,1,0,'','','Olá frafive,\n\nMe passe os seus exemplos para eu testar aqui. Você está usando qual xharbour e qual versão ?\n\nAbraços,\n\nRossine.','',0,'gA==','3046g5r6',1,0,'',104,0,0),(13710,3137,6,490,0,'80.24.224.89',1148904446,1,0,1,1,1,0,'','Pequeño problema con 32b','Hola,\n\nTeniendo una ventana y sobre ella abierto un diálogo en modal, en la taskbar me muestra una aplicación abierta, pero si ahora abro otro diálogo desde código:\n\nDEFINE DIALOG ::oDlg FROM 0,0 ;\n                TO ::nMaxHeightDlg , Max(::nMaxWidthFila+60,::nMaxWidthDlg) PIXEL;\n             TITLE ::cTitle FONT oFnt OF GetWndDefault()\n\nEn la taskbar veo 2 veces el icono del programa y puedo pasar de uno a otro, antes en 16b, el 2º diálogo estaba pegado al 1º y sólo había 1 icono abierto en la barra.\n\nComo \"pego\" un diálogo a otro en modo modal y que hasta no salir del 1º no pueda seleccionar el 2º.\n\nUn Saludo,\nJoaquín','',0,'gA==','2r3b1dsv',1,0,'',490,0,0),(13711,3138,6,428,0,'200.55.19.126',1148905448,1,0,1,1,1,0,'','PROBLEMAS CON FTP','Estimados amigos, he tratado infructuosamente de crear una aplicacion que suba archivos y baje archivos de un sitio FTP, he utilizado la clase QFTP. Bajarlos me es imposible, lee el directorio del FTP y los archivos, pero cuando comienzo la descarga de cada uno, tambien queda como en un LOOP.\n\nHay alguna otra clase de Harbour o Fivewin para realizar este proceso ??\n\n\nGracias','',0,'gA==','3mwv0leb',1,0,'',428,0,0),(13712,3132,3,105,0,'200.72.140.34',1148907400,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ytxrthbg]Enrico,\n\nHave you checked if after some time it gets unloaded ? Sometimes the activex remains loaded for some time and later on it gets closed.[/quote:ytxrthbg]\n\n\nAntonio, is there a way to know if the Activex Control is already loaded on memory, and a way to unloaded it if is true.\n\nWhile doing some tests with an epson ocx, I got plenty of problems, I needed to reboot to make things work, so I think it was because it get loaded...\n\nAny idea','',0,'gA==','ytxrthbg',1,0,'',105,0,0),(13713,3059,6,121,0,'201.154.72.52',1148907776,1,0,1,1,1,1,'','','Hola soy Marco Augusto\ny estoy por llegar a mis primeros 47 años\ntambién utilizo clipper desde la version 95','',0,'gA==','2ckonecs',1,0,'',121,0,0),(13714,3059,6,121,0,'201.154.72.52',1148907831,1,0,1,1,1,1,'','correccion ( 10 años no es nada )','perdon quise decir desde la version 85','',0,'gA==','m9u5j4rn',1,0,'',121,0,0),(13715,3132,3,2,0,'87.218.146.137',1148911643,1,0,1,1,1,1,'','','Adolfo,\n\nWith some OCXs, like Acrobat Reader, if you press Ctrl+Alt+Del you can see AcroRd32.exe is loaded.\n\nOn some other OCXs where EXEs are not used, it may be more difficult to know it.','',0,'gA==','kpsw4zj0',1,0,'',2,0,0),(13716,3137,6,2,0,'87.218.146.137',1148911730,1,0,1,1,1,1,'','','Joaquín,\n\nPrueba a usar DEFINE DIALOG ... OF &lt;oDlgAnterior&gt; en vez de GetWndDefault().','',0,'gA==','2yvf8ml7',1,0,'',2,0,0),(13717,702,2,568,0,'200.121.64.61',1148913360,1,0,1,1,1,0,'','Re: vinculo','Gracias Maestro, voy a estudiarlo un poco y ponerlo en practica\n\nWilliam Chavez','',0,'gA==','17vyodpb',1,0,'',568,0,0),(13718,3137,6,490,0,'80.24.224.89',1148917902,1,0,1,1,1,0,'','','Antonio,\n\nGracias, efectivamente por ahí iban los tiros, pero es que me había saltado un paso, era un oDlg Modal, luego una Window , que era la que abría el 2º icono en la taskbar y a continuación un oDlg modal.\n\nQuitando la 2ª Window (usada para hacer un efecto transparencia) se quita el problema, estudiaré como hacer esa especie de sombra sin una ventana.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','2qh6qwsm',1,0,'',490,0,0),(13719,3138,6,431,0,'200.8.68.171',1148918307,1,0,1,1,1,1,'','','Yo he usado con exito la clase tFtp partiendo de un ejemplo que esta en FWH\n\n\\FWH\\SAMPLES\\GALLERY\\ICOPYFIL\n\nVerifica ese directorio','',0,'gA==','1835i3l5',1,0,'',431,0,0),(13720,3131,3,213,0,'72.177.228.25',1148919484,1,0,1,1,1,0,'','','James,\n\nI confirm the problem is the same using xHarbour.  I don\'t know if they share the same underlying get class.\n\nTget class in FWH has changed considerably since FW 2.1.\n\nRegards,\nRandal Ferguson','',0,'gA==','1l0t2k6d',1,0,'',213,0,0),(13721,3138,6,428,0,'200.55.19.126',1148919528,1,0,1,1,1,0,'','','Gracias Mario, no lo habia visto, lo probare.','',0,'gA==','b0t8k5ye',1,0,'',428,0,0),(13722,3128,3,213,0,'72.177.228.25',1148927373,1,0,1,1,1,0,'','','Tget problem continued...\n\nThe other problem is if you right click and Copy or Cut and then right click and Paste, if you type in the field you\'ve pasted into the text is deleted as if the text was selected.\n\nRegards,\nRandal Ferguson','',0,'gA==','2leh24wq',1,0,'',213,0,0),(13723,3009,3,148,0,'82.201.237.42',1148930401,1,0,1,1,1,0,'','','Still now I can not state the correct syntax for set filter with dbCombo ? Could you help me more ?','',0,'gA==','3gin5x9k',1,0,'',148,0,0),(13724,2996,6,519,0,'83.35.123.119',1148933401,1,0,1,1,1,0,'','','Hola Rossine\n\n  Estoy utilizando xHarbour build 0.99.50 + fwh 2.6, donde falla es con el samples4  que viene con twbrowse.\n\n\n  Un saludo  y gracias desde ya','',0,'gA==','15v8x7qc',1,0,'',519,0,0),(13725,3138,6,23,0,'85.59.84.83',1148935113,1,0,1,1,1,1,'','','Con  las clases nativas de FWH funciona muy bien.\n\n/* ==========================================================================================\n   Func_Ftp\n   --------\n   \n   Funciones para el manejo de FTP\n   Revisión : 04/04/2006 19:27\n   Revisado por : Angel\n   ==========================================================================================\n*/\n\n#include \"fivewin.ch\"\n\nFunction Main()\nLocal oInternet, oFtp, cServFtp:=\"server\",cUserFTp:=\"user\",cPassFtp:=\"pass\"\n\n      oInternet := TInternet():New()\n      oFTP      := TFTP():New( Alltrim(cServFtp), oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp) ) \n          \n      If ! Empty( oFTP:hFTP )\n        FtpSendFiles ({\"file1.txt\",\"file2.txt\",\"file3.txt\"},{\"destfile1.txt\",\"destfile2.txt\",\"destfile3.txt\"},oFtp)\n    \n      Endif\n      oInternet:End()\n\nReturn (nil)\n\nFunction FTPSendFiles   ( aSource, aTarget, oFTP )\n   Local nBufSize:=4096\n   local n\n   local hSource\n   local cBuffer := Space( nBufSize )\n   local nBytes, nFile := 0, nTotal := 0\n   local nTotSize := 0\n   local oFile\n    \n\n   for n = 1 to Len( aSource )\n      if ! File( aSource[ n ] )\n         MsgStop( \"Fichero no encontrado: \" + aSource[ n ] )\n         exit\n      endif\n      hSource = FOpen( aSource[ n ] )\n      nTotSize += FSeek( hSource, 0, 2 )\n      FClose( hSource )\n      SysRefresh()\n   next\n\n   for n = 1 to Len( aSource )\n      hSource = FOpen( aSource[ n ] )\n\n      oFile = TFtpFile():New( aTarget[ n ], oFTP )\n      oFile:OpenWrite()\n      \n      FSeek( hSource, 0, 0 )\n      nFile := 0\n      SysRefresh()\n      while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) &gt; 0 \n         oFile:Write( SubStr( cBuffer, 1, nBytes ) )\n         SysRefresh()\n      end\n      FClose( hSource )\n      oFile:End()\n   next\nreturn nil\n\n\nFunction FtpGetFiles( aSource, aTarget, oFTP, oSay )\n   Local nBufSize:=4096\n   local n\n   local hTarget\n   local cBuffer := Space( nBufSize )\n   local nBytes, nFile := 0, nTotal := 0\n   local nTotSize := 0\n   local oFile, aFiles, aSizes := {}\n\n   for n = 1 to Len( aSource )\n      aFiles = oFTP:Directory( aSource[ n ] )\n      if Len( aFiles ) &gt; 0\n         AAdd( aSizes, aFiles[ 1 ][ 2 ] ) // first file, size\n         nTotSize += ATail( aSizes )\n      else\n         AAdd( aSizes, 0 )\n      endif\n      SysRefresh()\n   next\n\n   nFile := 0\n   for n = 1 to Len( aSource )\n      \n      hTarget = FCreate( aTarget[ n ] )\n\n      oFile = TFtpFile():New( aSource[ n ], oFTP )\n      oFile:OpenRead()\n\n      \n      SysRefresh()\n      while ( nBytes := Len( cBuffer := oFile:Read( nBufSize ) ) ) &gt; 0\n         FWrite( hTarget, cBuffer, nBytes )\n         If oSay&lt;&gt;NIL\n           oSay:SetText (\"- Recibiendo :\"+Str(nFile+=nBytes)+\" de \"+Str(nTotSize))\n         Endif\n         SysRefresh()\n      end\n      FClose( hTarget )\n      oFile:End()\n   next\n\nreturn nil\n\nNo deberias tener problemas.','',0,'','x8otwci5',1,0,'',23,0,0),(13726,3059,6,376,0,'201.240.133.34',1148935238,1,0,1,1,1,0,'','','Vaya hombre!!!\n\nPor lo menos creo que nuestras profesiones se relacionan. Conocemos cómo se manejan las empresas y qué es lo que necesitan. \n\nComo parte de mi hobby (la informática) recientemente he realizado una pequeña aplicación que permite visualizar las existencias de productos que se almacenan en anaqueles y casillas. Mira no tiene costo y si deseas te envío el ejecutable y las bases de datos con contenido real. Originalmente realicé una versión determinada para una empresa de repuestos así que solamente le dí mejores presentaciones y un mejorr tratamiento a los datos.\n\nEs posible te sirva como ejemplo apara tus desarrollos en Chile.\n\nAtentamente\n\nArmando\n\nquote=\"Lautaro\"]Hola, desde Osorno, Chile les cuento que tengo 32 años y programa con clipper desde el 5.0 y con fivewin desde la 2.3c, soy contador de profesion y por esas cosas de la vida comenze a programar con clipper hace como 7 años y ahora solo eso hago.\n\n\nLarga vida al xbase. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nLautaro[/quote]','',0,'','1r08x3dt',1,0,'',376,0,0),(13727,3139,20,49,0,'82.57.119.5',1148940663,1,0,1,1,1,1,'','Bottoni dalla cartella','avendo una cartella ad esempio Usr vorrei far costruire al programma tanti bottoni quanti sono i file immagine contenute nella cartella.\nQualche esempio ?\n\ngrazie','',0,'','9ekon8vb',1,0,'',49,0,0),(13728,3068,20,49,0,'82.57.119.5',1148940832,1,0,1,1,1,1,'','','Mi è venuto in mente qualcosa ...\nPer caso ti serve una procedura tipo :\nAlbergo:\nad una certa ora bisogna svegliare il cliente alla camera XXX  e  chiama il cliente con il telefono ?','',0,'','j3kae4i4',1,0,'',49,0,0),(13729,3131,3,303,0,'72.199.41.171',1148941460,1,0,1,1,1,0,'','','Randal,\n\nThanks for checking it with xHarbour.\n\nI realize the FW TGet class has changed a lot since FW2.1, but I had that version installed and I wanted to see what the Clipper GET class\'s behavior was. If the picture clauses are handled by the GET class in Clipper then one can assume that they are also handled by the GET class in Harbour/xHarbour. Since Clipper\'s GET class was handling it correctly, I think we can assume that there is a bug in the Harbour/xHarbour GET class.\n\nJames','',0,'','1ih5hlo4',1,0,'',303,0,0),(13730,3112,3,170,0,'80.170.82.185',1148941759,1,0,1,1,1,1,'','','Hello my friends,\n\nAll is right ??\nok...\n\nCan you also test this, please ?\n\nThis function return an array containing\nthe list of all of the printers the user can use...\n\nRegards,\n\n******************\nFUNCTION WINGETPRN()\n******************\n* Recherche les imprimantes installées sous windows\n* dans le registre de Windows (remplace le WIN.INI\n* qui est obsolète sous Windows 2000 et suivants)\n* Auteur Badara Thiam\n\nLOCAL TIMP := {}\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL nok\nLOCAL nLen\nLOCAL cSubkeys\nLOCAL aHKey := HKEY_LOCAL_MACHINE\n\ncSubKeys := \"System\\CurrentControlSet\\Control\\Print\\Printers\"\n\nIF RegOpenKey( aHKey,  cSubKeys,  @nHandle ) == 0\n    n1 := 0\n    DO WHILE .T.\n      cValue := \"\"\n      n2 := RegEnumKey( nHandle, n1,  @cvalue  )\n      IF n2 = 0\n        IF ASCAN(TIMP, STRTRAN(cValue, \",\" , \"\\\")) = 0\n          AADD(TIMP, STRTRAN(cValue, \",\" , \"\\\"))\n        ENDIF\n      ELSE\n        EXIT\n      ENDIF\n      n1 ++\n    ENDDO\n    RegCloseKey( nHandle )\nENDIF\nRETURN ACLONE(TIMP)','',0,'','1d3mpre4',1,0,'',170,0,0),(13731,3053,3,170,0,'80.170.82.185',1148943261,1,0,1,1,1,1,'','Re: Clipper appl with faster processor fails','[quote=&quot;Jules de Pierre&quot;:3w1p61gp]Dear Friends,\n\nSome years ago Clipper apps failed with newer faster processors.\nAt that time a solution became available that solved the problem.\nI beleive a kind of  WAIT programme.\nThat was implemented in the Clipper programs and the problem was gone.\n\nMy question is, do we have a similar problem today and if so is there a new solution.\n\nI have a cusomer that bought new P.C.\'s with XP PRO and only two MS-DOS apps running from a server fail intermittently on the new P.C.\'s.\nSame programs work OK on the older PC\'s.\n\nAny suggestion is welcomed.\n\nJules de Pierre[/quote:3w1p61gp]\n\n\nSee my posts very useful for wait state (CPU time used by Clipper\nwith Fivewin) here :\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1103\">http://fivetechsoft.com/forums/viewtopic.php?t=1103</a><!-- m -->\n\nIf you want reduce your 100 % CPU time to 3 % !\n\nRegards,','',0,'gA==','3w1p61gp',1,0,'',170,0,0),(13732,3009,3,303,0,'72.199.41.171',1148943353,1,0,1,1,1,0,'','','First, I don\'t understand why you have a GET in addition to the combobox. The combobox already contains a GET which in turn contains the selection of the user. I can\'t see any use for the additional GET containing the same information.\n\nAfter a selection is made, you need to set a filter and then reload the next combobox. So for the first combobox you need something like the code below. I would not use ON CHANGE because that is going to reload the next combobox each time the selection is changed (when the combobox is scrolled it will reload for each record). You only want it reloaded after the control is exited, so I would use the VALID clause.\n\n   cFilter :=\"\" \n   @ 45,2 SAY \"&amp;Country\" OF oDlg PIXEL \n   @ 45,50 SAY \":\" OF oDlg PIXEL \n   @ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase(1,\"cust\",256,\"cu_coun\",cfilter);\n   SIZE 110,80 ; \n   OF oDlg PIXEL; \n   VALID (reset( v_co_cocmbo, oCbx2, \"cust\" ), .t.)\n\n\nfunction reset( cItem, oCbx, cFile )\n   local aItems:={}\n   local nArea:= select()\n   select 0\n   use (cFile)\n   set filter to cItem == cu_coun\n   go top\n   do while ! eof()\n      add(aItems,cu_coun)\n      skip\n   enddo\n   use\n   select( nArea )\n   oCbx:setItems( aItems )\n   oCbx:refresh()\nreturn nil','',0,'gA==','3hstmcvd',1,0,'',303,0,0),(13733,3140,6,171,0,'71.232.193.197',1148947662,1,0,1,1,1,0,'','Mi Primer MySQL','// My First MySQL Program\n\n#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n\n\nFUNCTION Main()\n	LOCAL cQuery := \"SELECT * FROM MyTable\",;\n	cConnection := \"DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=localhost;DATABASE=zoo;USER=root;PASSWORD=abc123\"\n\n	oCon:=toleauto():new(\"adodb.connection\")\n	oRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\n	oRs:Open( cQuery , cConnection, adOpenKeyset, adLockOptimistic )\n\n\n   /* ¿ cuantas Columnas trajo de regreso el query ? */\n    ? STR(oRs:Fields:Count())  // Este trabaja bien; devuelve el numero de columnas correcto = 3\n\n	/* ¿ cuantos renglones trajo de regreso el query ?*/\n	? STR(oRs:RecordCount())    // ESTE NO FUNCIONA; SIEMPRE DEVUELVE -1\n\n\nRETURN TRUE\n\n\nAlgun compañero del foro que me pueda dar una idea por donde anda el problema?\n\n\nGeorge','',0,'gA==','1srn6ny0',1,0,'',171,0,0),(13734,3141,6,52,0,'200.127.195.89',1148957274,1,0,1,1,1,1,'','.res error al abrir con pellesC','Amigos,\n\nCuando quiero abrir un .res con el pellesC el cual lo he usado para crear dicho .res me sale un error:\n\n[quote:2pk0oul9]Error al leer desde el archivo [xx].res. Formato del archivo no valido o inválido.[/quote:2pk0oul9]\n\nAlguna idea?\ngracias.','',0,'gA==','2pk0oul9',1,0,'',52,0,0),(13735,3141,6,54,0,'201.98.184.28',1148968690,1,0,1,1,1,1,'','Re: .res error al abrir con pellesC','[quote=&quot;goosfancito&quot;:2ksgsa1y]Amigos,\n\nCuando quiero abrir un .res con el pellesC el cual lo he usado para crear dicho .res me sale un error:\n\n[quote:2ksgsa1y]Error al leer desde el archivo [xx].res. Formato del archivo no valido o inválido.[/quote:2ksgsa1y]\n\nAlguna idea?\ngracias.[/quote:2ksgsa1y]\n\nNo entendi, sorry','',0,'gA==','2ksgsa1y',1,0,'',54,0,0),(13736,3139,20,6,0,'87.1.198.185',1148971169,1,0,1,1,1,1,'','Re: Bottoni dalla cartella','Qualcosa tipo\n\n[code:2joxlwac]aDir = DIRECTORY&#40; &quot;*&#46;bmp&quot; &#41;\n\nFOR i = 1 TO LEN&#40; aDir &#41;\n    @ riga + i, colonna BTNBMP FILE aDir&#91; i, F_NAME &#93;\nNEXT[/code:2joxlwac]\n\nEMG','',0,'AIA=','2joxlwac',1,0,'',6,0,0),(13737,3068,20,154,0,'151.81.10.86',1148972352,1,0,1,1,1,1,'','','Ciao Silvio,\nin effetti volevo fare proprio una segreteria telefonica ma ho trovato un buon software che già lo fa e per il momento ho tamponato...\nL\'idea è quella di rispondere e riconoscere chi chiama per dargli dei servizi personalizzati.\n\nCiao,\nUgo','',0,'AIA=','2thzobqd',1,0,'',154,0,0),(13738,3142,4,135,0,'82.91.87.23',1148973964,1,0,1,1,1,0,'','RLOCK() return .F.','I have the problem when i use a dbf to shared mode,\nthe RLOCK() return always .F.\ninstead i open the dbf to EXCLUSIVE mode, the RLOCK() it\'s OK\n\nan error messagge on pocket display:\nLockFileEx() not supported in this Windows Mobile version\n\nsomeone can help me','',0,'AIA=','3gvpjkz7',1,0,'',135,0,0),(13739,3142,4,2,0,'87.218.146.32',1148974704,1,0,1,1,1,1,'','','Santo,\n\nRLock() is only available from Windows Mobile 2005 version on. Its a Microsoft limitation, not FWPPC.','',0,'AIA=','w1aj5ay4',1,0,'',2,0,0),(13740,3143,1,170,0,'80.170.82.185',1148975352,1,0,1,1,1,1,'','Print system functions','[code:1w1b451l]\n*******************\nFUNCTION WinGetPrnD&#40;cNomDriver&#41;\n*******************\n* Return the driver filename without his extension\n\n* Recherche le driver d\'une imprimante installée sous windows\n* dans le registre de Windows &#40;remplace le WIN&#46;INI\n* qui est obsolète sous Windows 2000 et suivants&#41;\n* Auteur Badara THIAM\n\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL nok\nLOCAL nLen\nLOCAL cSubkeys\nLOCAL cSubkeys2\nLOCAL X, X2\nLOCAL TENV &#58;= &#123;&#125;\nLOCAL TENVDRIVER &#58;= &#123;&#125;\nLOCAL oReg\nLOCAL cDriver &#58;= &quot;&quot;\n\ncSubKeys &#58;= &quot;System\\CurrentControlSet\\Control\\Print\\Environments&quot;\n\nIF RegOpenKey&#40; HKEY_LOCAL_MACHINE,  cSubKeys,  @nHandle &#41; == 0\n  SysRefresh&#40;&#41;\n  n1 &#58;= 0\n  DO WHILE &#46;T&#46;\n    cValue &#58;= &quot;&quot;\n    n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n    IF n2 = 0\n      IF ASCAN&#40;TENV, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n        AADD&#40;TENV, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n      ENDIF\n    ELSE\n      EXIT\n    ENDIF\n    n1 ++\n    SysRefresh&#40;&#41;\n  ENDDO\n  RegCloseKey&#40; nHandle &#41;\n  SysRefresh&#40;&#41;\n\n  FOR X &#58;= 1 TO LEN&#40;TENV&#41;\n    cSubKeys2 &#58;= cSubKeys + &quot;\\&quot; + TENV&#91;X&#93; + &quot;\\Drivers&quot;\n\n    oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, cSubKeys2 + &quot;\\&quot; + cNomDriver&#41;\n\n    IF oReg&#58;nError = 0\n      cDriver &#58;= oReg&#58;Get&#40;&quot;Driver&quot;, &quot;&quot;&#41;\n      oReg&#58;Close&#40;&#41;\n      oReg &#58;= NIL\n      IF !EMPTY&#40;cDriver&#41;\n        cDriver &#58;= IIF&#40;&quot;&#46;&quot; $ cDriver, LEFT&#40;cDriver, AT&#40;&quot;&#46;&quot;, cDriver&#41; - 1&#41;, cDriver&#41;\n        EXIT\n      ENDIF\n    ELSE\n      oReg&#58;Close&#40;&#41;\n      oReg &#58;= NIL\n      IF RegOpenKey&#40; HKEY_LOCAL_MACHINE,  cSubKeys2,  @nHandle &#41; == 0\n        n1 &#58;= 0\n        TENVDRIVER &#58;= &#123;&#125;\n        DO WHILE &#46;T&#46;\n          cValue &#58;= &quot;&quot;\n          n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n          IF n2 = 0\n            IF ASCAN&#40;TENVDRIVER, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n              AADD&#40;TENVDRIVER, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n            ENDIF\n          ELSE\n            EXIT\n          ENDIF\n          SysRefresh&#40;&#41;\n          n1 ++\n        ENDDO\n        RegCloseKey&#40; nHandle &#41;\n        SysRefresh&#40;&#41;\n\n        FOR X2 &#58;= 1 TO LEN&#40;TENVDRIVER&#41;\n\n          oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, cSubKeys2 + &quot;\\&quot; + TENVDRIVER&#91;X2&#93; + &quot;\\&quot; + cNomDriver&#41;\n          IF oReg&#58;nError = 0\n            cDriver &#58;= oReg&#58;Get&#40;&quot;Driver&quot;, &quot;&quot;&#41;\n            oReg&#58;Close&#40;&#41;\n            oReg &#58;= NIL\n            IF !EMPTY&#40;cDriver&#41;\n              cDriver &#58;= IIF&#40;&quot;&#46;&quot; $ cDriver, LEFT&#40;cDriver, AT&#40;&quot;&#46;&quot;, cDriver&#41; - 1&#41;, cDriver&#41;\n              EXIT\n            ENDIF\n          ELSE\n            oReg&#58;Close&#40;&#41;\n            oReg &#58;= NIL\n          ENDIF\n          SysRefresh&#40;&#41;\n\n        NEXT X2\n        IF !EMPTY&#40;cDriver&#41;\n          EXIT\n        ENDIF\n      ENDIF\n    ENDIF\n    SysRefresh&#40;&#41;\n  NEXT X\nENDIF\nSysRefresh&#40;&#41;\nRETURN cDriver\n\n\n*******************\nFUNCTION WinGetPrnP&#40;cNomImpr&#41;\n*******************\n\n* Return the driver filename and the port of any printer\n\n* Renvoie le &#40;nom du fichier&#41; Driver et le Port de l\'imprimante\n* dont le nom est le contenu de cNomImpr&#46;\n* Le Driver et le Port sont renvoyés dans une chaine,\n* séparés par une virgule&#46;\n* Auteur Badara THIAM\n\nLOCAL cDriver &#58;= &quot;&quot;\nLOCAL cNomDriver &#58;= &quot;&quot;\nLOCAL cPort &#58;= &quot;&quot;\nLOCAL oReg\nLOCAL X\nLOCAL TIMP &#58;= WINGETPRN&#40;&#41;\n\n* Recherche l\'imprimante Windows ayant le même nom,\n* en convertissant en minuscule et en supprimant les espaces\nFOR X &#58;= 1 TO LEN&#40;TIMP&#41;\n  IF MEMEIMPRIM&#40;@cNomImpr, TIMP&#91;X&#93;&#41;\n  * Si c\'est la même imprimante\n    EXIT\n  ENDIF\nNEXT X\n\nIF X &lt;= LEN&#40;TIMP&#41;\n\n  oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE,;\n  &quot;System\\CurrentControlSet\\Control\\Print\\Printers\\&quot; + STRTRAN&#40;TIMP&#91;X&#93;,&quot;\\&quot;,&quot;,&quot;&#41;&#41;\n\n\n  IF oReg&#58;nError = 0\n    cPort &#58;= oReg&#58;Get&#40;&quot;Port&quot;, &quot;&quot;&#41;\n    cNomDriver &#58;= oReg&#58;Get&#40;&quot;Printer Driver&quot;, &quot;&quot;&#41;\n  ENDIF\n  oReg&#58;Close&#40;&#41;\n  oReg &#58;= NIL\n\n  IF cNomDriver != &quot;&quot;\n    cDriver &#58;= WINGETPRND&#40;@cNomDriver&#41;\n  ENDIF\nENDIF\nRETURN cDriver + &quot;,&quot; + cPort\n[/code:1w1b451l]','',0,'AIA=','1w1b451l',1,0,'',170,0,0),(13741,3144,3,32,0,'196.25.159.159',1148975568,1,0,1,1,1,0,'','Set Windows (Alt-Tab) icon when app only has a dialog','Hi,\n\nWhen defining an application with only a dialog and the dialog has an icon, the windows alt-tab icon stays the default. How do I change this\n\nThanks,\nAlex','',0,'AIA=','1msskgsg',1,0,'',32,0,0),(13742,3139,20,49,0,'213.82.134.66',1148975713,1,0,1,1,1,1,'','','questo lo sapevo  e l\'avevo già impiantato senza aver successo.\n\nscusa ma forse mi sono spiegato male: hai ragione!!\nio non posso usare BMP ma PNG o addirittura JPG o GIF\ncioè immagini ad alte risoluzioni.\n\nQuali classi tipo button supportano tali immagini ?','',0,'AIA=','25e5rvtn',1,0,'',49,0,0),(13743,3112,3,170,0,'80.170.82.185',1148975775,1,0,1,1,1,1,'','','Go to Fivewin for Clipper forum, there is news printing functions.\n\nor click here :\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3143\">http://fivetechsoft.com/forums/viewtopic.php?t=3143</a><!-- m -->\n\nRegards,','',0,'AIA=','1vnlzgyb',1,0,'',170,0,0),(13744,3143,1,170,0,'80.170.82.185',1148976641,1,0,1,1,1,1,'','','[code:1u6sskhk]\n*******************\nFUNCTION MEMEIMPRIM&#40;cImp1, cImp2&#41;\n*******************\n* Return &#46;T&#46; if the two printers names are the sames\n* when we delete the spaces and upper &lt;-&gt; lower\n* and changing &quot;/&quot; by &quot;,&quot; if &quot;/&quot; is in the printer name\n\n* Renvoie &#46;T&#46; si les deux noms d\'imprimantes\n* correspondent à la même imprimante,\n* en ignorant les espaces et la casse\n* et en remplaçant &quot;/&quot; par &quot;,&quot; si présent dans le nom de l\'imprimante\n\nRETURN &#40; LOWER&#40;STRTRAN&#40;STRTRAN&#40;cImp1, &quot;\\&quot;, &quot;,&quot;&#41;, &quot; &quot;, &quot;&quot;&#41;&#41; == LOWER&#40;STRTRAN&#40;STRTRAN&#40;cImp2, &quot;\\&quot;, &quot;,&quot;&#41;, &quot; &quot;,&quot;&quot;&#41;&#41; &#41;\n[/code:1u6sskhk]','',0,'AIA=','1u6sskhk',1,0,'',170,0,0),(13745,3143,1,170,0,'80.170.82.185',1148976906,1,0,1,1,1,1,'','','[code:3spevyyr]\n****************** \nFUNCTION WinDefPrn&#40;&#41; \n****************** \n* To replace PrnGetName&#40;&#41;, failed function of Fivewin 2&#46;5 \n* Return the name of the default Windows printer \n* by take it directly in the Windows registry \n\n* Pour remplacer la fonction défaillante PrnGetName&#40;&#41; de Fivewin 2&#46;5 \n* Retourne le nom de l\'imprimante par défaut \n* en le prenant directement dans le registre Windows \n* Auteur Badara Thiam\n\nLOCAL cDefPrn &#58;= &quot;&quot; \nLOCAL oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_CONFIG, &quot;System\\CurrentControlSet\\Control\\Print\\Printers&quot;&#41; \nIF oReg&#58;nError = 0 \n  cDefPrn &#58;= oReg&#58;Get&#40;&quot;Default&quot;, &quot;&quot;&#41; \nENDIF \noReg&#58;Close&#40;&#41; \noReg &#58;= NIL \nRETURN cDefPrn\n[/code:3spevyyr]','',0,'AIA=','3spevyyr',1,0,'',170,0,0),(13746,3143,1,170,0,'80.170.82.185',1148977349,1,0,1,1,1,1,'','','[code:1h3enbmc]\n****************** \nFUNCTION WINGETPRN&#40;&#41; \n******************\n\n* Return all printers the user can access under Windows\n\n* Recherche les imprimantes installées sous windows \n* dans le registre de Windows &#40;remplace le WIN&#46;INI \n* qui est obsolète sous Windows 2000 et suivants&#41; \n* Auteur Badara Thiam \n\nLOCAL TIMP &#58;= &#123;&#125; \nLOCAL nHandle \nLOCAL cValue \nLOCAL n1 \nLOCAL n2 \nLOCAL nok \nLOCAL nLen \nLOCAL cSubkeys \nLOCAL aHKey &#58;= HKEY_LOCAL_MACHINE \n\ncSubKeys &#58;= &quot;System\\CurrentControlSet\\Control\\Print\\Printers&quot; \n\nIF RegOpenKey&#40; aHKey, cSubKeys, @nHandle &#41; == 0 \n  n1 &#58;= 0 \n  DO WHILE &#46;T&#46; \n    cValue &#58;= &quot;&quot; \n    n2 &#58;= RegEnumKey&#40; nHandle, n1, @cvalue &#41; \n    IF n2 = 0 \n      IF ASCAN&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0 \n        AADD&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; \n      ENDIF \n    ELSE \n      EXIT \n    ENDIF \n    n1 ++ \n  ENDDO \n  RegCloseKey&#40; nHandle &#41; \nENDIF \nRETURN ACLONE&#40;TIMP&#41;\n\n[/code:1h3enbmc]','',0,'AIA=','1h3enbmc',1,0,'',170,0,0),(13747,3145,6,28,0,'213.27.201.254',1148979612,1,0,1,1,1,0,'','Contrib harbour','Hola,\n\nLlevo ya mas de un día intentando encontrar en algún sitio la última versión de harbour y sus contribuciones.\n\nEn la pagina, el ftp esta... , vamos no esta. El cvs es un infierno, si entras por http te lo tienes que descargar de uno en uno. Si entras con el cvs.exe a descargartelos por el nombre del módulo... con Tortoise no es mucho mejor.\n\n¿Que puedo hacer para tener el último Harbour montado y las contribuciones con sus librerias montadas. Porque tambien es otro infierno el intentar construir hbzip.lib...\n\n\n <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nUn saludo','',0,'AIA=','fk9dmb9e',1,0,'',28,0,0),(13748,3141,6,52,0,'200.127.195.89',1148982464,1,0,1,1,1,1,'','Vamos de nuevo.... Ja','Amigo,\n\nEl tema es asi, hasta el dia de ayer podía abrir mi archivo .res con el pellesC sin ningun problema, ya es la 2º vez que me pasa, pero la anterior tenia hecha una copia backup ( malo lo mio, ahora no la tengo ).\n\nCuando quiero edicar mi archivo .res con el pelles me manda el error:\n\n[quote:7izu9eel]Error al leer desde el archivo [xx].res. Formato del archivo no valido o inválido.[/quote:7izu9eel]\n\nSiendo xx el archivo: por ejemplo goosfancito.res\n\nQuería saber porque se produce estoy como resolverlo, ya que al no poder acceder al .res no puedo ni siquiera convertirlo a .rc para editarlo manualmente.\n\nGracias.','',0,'gA==','7izu9eel',1,0,'',52,0,0),(13749,3139,20,6,0,'82.53.175.120',1148984462,1,0,1,1,1,1,'','','Nessuna, che io sappia. Ti conviene convertire le immagini in BMP.\n\nEMG','',0,'gA==','pkowvorg',1,0,'',6,0,0),(13750,3144,3,6,0,'82.53.175.120',1148984596,1,0,1,1,1,1,'','Re: Set Windows (Alt-Tab) icon when app only has a dialog','Try\n\n[code:2ppfea8k]ACTIVATE DIALOG oDlg;\n         ON INIT SETCLASSLONG&#40; oDlg&#58;hWnd, GCL_HICON, LOADICON&#40; GETINSTANCE&#40;&#41;, &quot;ICONNAMEINRESOURCE&quot; &#41; &#41;;[/code:2ppfea8k]\n\n[code:2ppfea8k]#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; SETCLASSLONG &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; SetClassLong&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parnl&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:2ppfea8k]\n\nEMG','',0,'AIA=','2ppfea8k',1,0,'',6,0,0),(13751,3144,3,32,0,'196.36.8.34',1148984937,1,0,1,1,1,0,'','Icon','Thanks, that worked','',0,'AIA=','r5belgn6',1,0,'',32,0,0),(13752,3139,20,49,0,'213.82.134.66',1148986985,1,0,1,1,1,1,'','','ma mi era stato detto che Linares aveva fatto qualcosa usando i Png o sbaglio ?','',0,'AIA=','u8twmwl2',1,0,'',49,0,0),(13753,3146,6,413,0,'194.106.16.43',1148987383,1,0,1,1,1,0,'','Configuracion del CVS atraves de un firewall....','Alguien sabe si hay que activar algun puerto, para que un usuario de una red corporativa pueda descargarse mediante el CVS las actualizaciones de xHarbour o Harbour. Desde casa puedo sin problemas pero desde mi puesto de trabajo no puedo. Los que llevan el control del Firewall no han oido hablar del CVS y yo no se que decirles para activar la transferencia, simpre me sale el error xharbour.cvs.sourceforge.net:2401 failed: No se ha podido establecer conexión ya que el equipo de destino ha denegado activamente dicha conexión. No se si el servidor que se refiere es el propio nuestro o es el de destino que me deniega por algun motivo, pero creo que es algo que nuestro firewall bloquea. Alguna idea ? Gracias.\n\nSaludos.','',0,'AIA=','331guewj',1,0,'',413,0,0),(13754,3139,20,6,0,'82.53.175.120',1148987548,1,0,1,1,1,1,'','','La classe TImage, grazie alla libreria FreeImage, è in grado di caricare i file PNG ma nessuna classe button usa attualmente la classe TImage o la libreria FreeImage, che io sappia.\n\nEMG','',0,'AIA=','1qkpplz5',1,0,'',6,0,0),(13755,3139,20,49,0,'213.82.134.66',1148987737,1,0,1,1,1,1,'','','dall\'aggiornamento di Maggio :\n\nNew: Added high resolution icons and bitmaps (as PNGs). \n\na che cosa si riferisce ?','',0,'AIA=','1cy9owmt',1,0,'',49,0,0),(13756,3139,20,6,0,'82.53.175.120',1148987896,1,0,1,1,1,1,'','','Al fatto che nella cartella BITMAPS è stata aggiunta una sottocartella HIRES contenente delle immagini PNG.\n\nEMG','',0,'AIA=','39fcrvm3',1,0,'',6,0,0),(13757,3139,20,49,0,'213.82.134.66',1148988495,1,0,1,1,1,1,'','','ok mi sono illuso \npazienza','',0,'AIA=','3sihi7kj',1,0,'',49,0,0),(13758,3139,20,6,0,'82.53.175.120',1148988743,1,0,1,1,1,1,'','','Comunque potresti ereditare una classe tua dalla TBtnBmp e farle utilizzare la FreeImage per caricare le PNG.\n\nEMG','',0,'AIA=','1y3m8wmn',1,0,'',6,0,0),(13759,3147,18,24,0,'80.37.55.44',1148989613,1,0,1,1,1,1,'','Pequeña mejora en metafi32.c','Antonio, creo que esto es incorrecto:\n\n   _retl( ( LONG ) lRet  );\n\nDeberia ser;\n\n   _retl( ( BOOL ) lRet  );\n\nes mas,  el cast aqui es rebundante, ya que tanto la variable lRet, es inicializar a bool , y ademas, previamente ya realizas el cast en el \nretorno de la funcion, asi que quedaria mas elegante :\n\n   _retl( lRet  );\n\nSaludos\nRafa Carmona','',0,'AIA=','35cio73l',1,0,'',24,0,0),(13760,3140,6,53,0,'201.138.16.49',1148991805,1,0,1,1,1,1,'','','George:\n\n? STR(oRs:Fields:Count()) // Este trabaja bien\n? STR(oRs:RecordCount()) // ESTE NO FUNCIONA\n\nY si cambias el segundo a ?\n\n? STR(oRs:Records:Count())  o Record \n\nSaludos, Armando','',0,'AIA=','3kr3rbby',1,0,'',53,0,0),(13761,3140,6,171,0,'71.232.193.197',1148995209,1,0,1,1,1,0,'','','Armando\n\nGracias por tu sugerencia, pero si uso ? STR(oRs:Records:Count()) me da el siguiente error:\n\n\"Error description: Error ADODB.Recordset/6  DISP_E_UNKNOWNNAME: RECORDS\"\n\nSi uso RECORD en vez de RECORDS, tambien me da error.\n\n\n\nGeorge','',0,'AIA=','2c1ko2iv',1,0,'',171,0,0),(13762,3131,3,193,0,'195.212.29.163',1148998144,1,0,1,1,1,0,'','','By the way I think (though I might be wrong) the expression \"@!@k\" is not valid for PICTURE clause though it  may have no any serious consequence. IMO it is better to use @!K before either right quatation mark or a space.','',0,'AIA=','12g93ah7',1,0,'',193,0,0),(13763,3127,3,343,0,'204.57.111.194',1148998196,1,0,1,1,1,0,'','','I was hoping that I did not need to do that on every get, but if I must I must.','',0,'AIA=','2vdzvxjn',1,0,'',343,0,0),(13764,3127,3,6,0,'82.53.175.120',1148998989,1,0,1,1,1,1,'','','Then try assigning\n\noGet:bLostFocus\n\ncodeblock.\n\nEMG','',0,'AIA=','2bfe9ldx',1,0,'',6,0,0),(13765,3127,3,343,0,'204.57.111.194',1149000054,1,0,1,1,1,0,'','','I\'m sorry, but that seems like a similar issue. Every get will need to be touched with some routing to check for changes.','',0,'AIA=','187wa2o1',1,0,'',343,0,0),(13766,3127,3,6,0,'82.53.175.120',1149001479,1,0,1,1,1,1,'','','In both cases you can do something similar to this:\n\n[code:29n1ni4h]FOR i = 1 TO LEN&#40; oDlg&#58;aControls &#41;\n    IF oDlg&#58;aControls&#91; i &#93;&#58;ClassName&#40;&#41; = &quot;TGET&quot;\n        oDlg&#58;aControls&#91; i &#93;&#58;bLostFocus = &#46;&#46;&#46;\n    ENDIF\nNEXT[/code:29n1ni4h]\n\nEMG','',0,'AIA=','29n1ni4h',1,0,'',6,0,0),(13767,3131,3,303,0,'72.199.41.171',1149005464,1,0,1,1,1,0,'','','Vladimir,\n\nThanks, you are right, \"@!K\" is correct. The code I am testing is someone else\'s and I didn\'t think to check the syntax. I does work either way under Clipper however. And it doesn\'t work either way under FWH/Harbour. I also tried \"@K!\" without success.\n\nJames','',0,'AIA=','94rft0zs',1,0,'',303,0,0),(13768,3127,3,303,0,'72.199.41.171',1149005876,1,0,1,1,1,0,'','','Gale,\n\nIf you are using TDatabase (or TData) there is a method Modified() that checks the buffer data (in aBuffer) against the data on the disk to see if there have been any changes.\n\nIf you are not using TDatabase, then you can store a copy of all the data in the dialog in an array before the edit, then check it against the array after. This, of course, requires more hand coding which may not be feasible if you have a lot of controls and/or a lot of dialogs.\n\nThis is one very good reason (of many) to be using database objects.\n\nJames','',0,'AIA=','ilv8vpel',1,0,'',303,0,0),(13769,3127,3,343,0,'204.57.111.194',1149006183,1,0,1,1,1,0,'','','using bChange does not work either. When backspace or delete key pressed the bChange is not getting fired.\n\nHere is routine I use\n   FOR nCounter := 1 TO LEN( oDlg:aControls )\n       IF oDlg:aControls[ nCounter ]:ClassName() = \"TGET\" .or. oDlg:aControls[ nCounter ]:ClassName() = \"TCHECKBOX\"\n         if oDlg:aControls[ nCounter ]:bChange == nil\n           // tracelog( oDlg:aControls[ nCounter ]:ClassName() )\n           oDlg:aControls[ nCounter ]:bChange = { || ::togglesaveon() }\n         endif\n       ENDIF\n   NEXT\n\nI verified with tracelog that proper controls were getting bChange assigned.','',0,'','3p5f74b4',1,0,'',343,0,0),(13770,3127,3,343,0,'204.57.111.194',1149006655,1,0,1,1,1,0,'','','James,\n\nI am trying to add a save button that shows when a change is made. \nI use tdatabase but that only works when you check it.\n\nIf you change a get then tab to next get there is no visable indication  data has changed. I was just wanting a button that would activate showing the user that changes have been made and a save is necessary.','',0,'','1t3rv38r',1,0,'',343,0,0),(13771,3127,3,303,0,'72.199.41.171',1149006807,1,0,1,1,1,0,'','','Gale,\n\nI just had an idea how you can test for changes without much code even if you are not using TDatabase.\n\nAt the start of the dialog using the ON INIT clause call something like this:\n\n[code:35v3mfa0]  &#46;&#46;&#46;on init originalData&#40; oDlg &#41;\n\nfunction originalData&#40; oDlg &#41;\n   local i&#58;=0, aBuffer&#58;=&#123;&#125;\n   for i = 1 to len&#40; oDlg&#58;aControls &#41;\n       aadd&#40; aBuffer, oDlg&#58;aControls&#91;i&#93; &#41;\n   next\nreturn aBuffer[/code:35v3mfa0]\n\nThen at the end, use something similar to check for changes.\n\nJames','',0,'AIA=','35v3mfa0',1,0,'',303,0,0),(13772,3127,3,343,0,'204.57.111.194',1149007548,1,0,1,1,1,0,'','','Sorry, I forgot to add my folders on a for next loop\n\n   FOR nCounter := 1 TO LEN( oFld:aDialogs[ 1 ]:aControls )\n       IF oFld:aDialogs[ 1 ]:aControls[ nCounter ]:ClassName() = \"TGET\" .or. oFld:aDialogs[ 1 ]:aControls[ nCounter ]:ClassName() = \"TCHECKBOX\"\n         if oFld:aDialogs[ 1 ]:aControls[ nCounter ]:bChange == nil\n            tracelog( oFld:aDialogs[ 1 ]:aControls[ nCounter ]:ClassName() )\n           oFld:aDialogs[ 1 ]:aControls[ nCounter ]:bChange = { || ::togglesaveon() }\n         endif\n       ENDIF\n   NEXT\n\nIt is working generally. I may have to change it to your suggestion using bLostFocus and adding a check for oDbf:modified().\n\nSometimes the backspace or delete keys trigger bChange even though nothing is changed.','',0,'','3rcoi858',1,0,'',343,0,0),(13773,3127,3,303,0,'72.199.41.171',1149007602,1,0,1,1,1,0,'','','Gale,\n\nApparently you posted your last message while I was writing my previous reply.\n\nYou can just check the oDBF:modified() method in the valid clause of each control.\n\n    ...VALID if( oDBF:modified(), oSave:enable(),)\n\nJames','',0,'','1bdn19i7',1,0,'',303,0,0),(13775,3149,6,53,0,'201.138.16.49',1149012493,1,0,1,1,1,1,'','Reconocer llamadas telefonicas','Amigos:\n\nEn una aplicación para una tienda de comida rápida es imprescindible reconecer el número telefónico desde el que el cliente llama.\n\nQue necesito para lograr esto ?, alguien que me de una idea de como hacerlo, o mejor un pequeño ejemplo ?\n\nMuchas gracias por su apoyo y un saludo a todos.\n\nFWH 2.5 y Harbour 45','',0,'','h0s3fyk2',1,0,'',53,0,0),(13776,3131,3,303,0,'72.199.41.171',1149012734,1,0,1,1,1,0,'','','This seems to be a possible fix. Change one line in the TGet:GoHome() method.\n\n[code:1yiop2t1]METHOD GoHome&#40;&#41; CLASS TGet\n\n   &#58;&#58;oGet&#58;Home&#40;&#41;\n   // if &#58;&#58;oGet&#58;Type == &quot;N&quot;  // original\n   if &#58;&#58;oGet&#58;Type == &quot;N&quot; &#46;or&#46; &quot;K&quot; $ UPPER&#40;&#58;&#58;oGet&#58;cPicture&#41; // modified\n      &#58;&#58;oGet&#58;Clear &#58;= &#46;t&#46; // flag to clear buffer if typing is detected\n   endif\n   &#58;&#58;SetPos&#40; &#58;&#58;oGet&#58;Pos &#41;\n\nreturn Self[/code:1yiop2t1]\n\nJames','',0,'AIA=','1yiop2t1',1,0,'',303,0,0),(13777,3149,6,171,0,'71.232.193.197',1149013531,1,0,1,1,1,0,'','','Armando \nDe una respuesta de Walter Negro en Diciembre 7, 2000 en el foro viejo:\n\n\"Antes que nada necesitas tener contratado el servicio de identificacion del llamadas (Caller ID) con la empresa telefonica. Luego necesitas tener un Modem que detecte CID (preferiblemente NO WinModem).\nEl Modem debe estar conectado directo a la linea entrante sin pasar por ninguna centralita. La deteccion del numero llamante es entre el primer y el segundo RING (con mayuscula porque es lo que devueleve el Modem).\nLo otro que necesita saber es configurar el Modem para que te informe esos datos. Hay que enviar estos parametros de configuracion:\nAT S0=0 X4\nAT #CID=1\n\nCuando ingrese una llamada el Modem envia al programa los siguientes datos:\nDATE=AAMMDD\nTIME=HHMM\nNMBR=1141234567 (para el numero 011-4123-4567 en Bs.As. Argentina)\no NMBR=P (PRIVADO, por bloqueo de CID u otros motivos)\n\nLa fecha es un numero, por lo que los 0 (ceros) a la izquierda se eliminan por lo tanto, para la fecha de hoy 7/12/2000 en DATE te aparece DATE=1207 y el 1/1/2001 sera DATE=10101\"\n\nGeorge','',0,'AIA=','2y3h67i3',1,0,'',171,0,0),(13778,3150,6,132,0,'83.213.45.32',1149014191,1,0,1,1,1,1,'','WBrowse de Hernan','Hola amigos:\n\n Queria hacer algo nuevo, con el fabuloso wbrowse de Hernan, pero no se si sera posible.\n He creado un browse de ARRAY, y quiero a traves de codigo, buscar una linea en concreto dentro del browse, pense que podria ser algo asi como oBrw:Goto(nLinea), pero esta funcion no existe.\n Despues pense en usar oBrw:Skip(1), para ir recorriendo el browse hasta que la linea coincidiera con la deseada, y me funciona siempre que la linea deseada este en pantalla en el momento de la busqueda, es decir que sea visible, si no lo es, aunque me la encuentra, no la muestra, ya que no hace ningun scroll automatico.\n Lo que realmente busco es poder simular el oBrw:BSeek, que funciona para tablas DBFs, pero por lo que se no con ARRAYs.\n\n Asi pues mi pregunta, es:\n 1) Existe una funcion que haga algo parecido a oBrw:Goto(nLinea) y se posicione automaticamente en esa linea.\n 2) En el caso de que lo pueda hacer con oBrw:Skip(1), como hago para visualizar la linea, si esta no se encuentra visible en el momento de la busqueda.\n\n Gracias de antemano por vuestra ayuda.','',0,'AIA=','3ub5fvjh',1,0,'',132,0,0),(13779,3151,6,228,0,'201.245.222.85',1149014311,1,0,1,1,1,1,'','Comandos de Bajo Nivel?','Amigos del foro... mirando por ahi algunos prg me encontre con estos comandos, que sirven segun creo para crear otros tipos de archivos...\nAlguien me puede indicar como se usan? y se hay mas de estas instrucciones.\n\nFCreate( )\nFWrite()\n\nDe antemano gracias...','',0,'AIA=','fswigudq',1,0,'',228,0,0),(13780,3138,6,132,0,'83.213.45.32',1149014910,1,0,1,1,1,1,'','Porblemas FTP','Angel:\n\nHe probado el codigo que pones en el post, y me genera el siguiente error\n\nCannot Load WinINet.dll\n\nHe comprobado esta libreria y se encuentra tanto en: \\WINDOWS\\SYSTEM, como en \\WINDOWS\\SYSTEM32\n\n¿Sabes que sucede?\n\nGracias de antemano','',0,'AIA=','1ty5w1ak',1,0,'',132,0,0),(13781,3150,6,492,0,'201.154.132.163',1149016502,1,0,1,1,1,1,'','','Hola TXon\n\nEn tu Browse agregas esto :\n\nlbPrds2Fab:bKeyDown  := { | nKey | PRD2FABKEY( nKey, @aPrdsX, @pMX, lbPrds2Fab ) }\n\ny la Funcion hace algo como esto :\n\nFunction PRD2FABKEY( nKey, aPrdsX, pMX, lbPrds2Fab )\nLOCAL nLenStr, nEle\nIF nKey == VK_SPACE\n...\nELSE\n	cStr2Seek := Upper( Chr( nKey ) )\n	nLenStr := Len( cStr2Seek )\n	nEle := Ascan( aPrdsX, { |aEle| SubStr( aEle[1], 1, nLenStr ) == cStr2Seek } )\n	IF nEle &gt; 0\n		pMX := nEle\n		lbPrds2Fab:REFRESH()\n	ENDIF\nENDIF\nReturn NIL\n*-----*\n\nAsi lo he usado y me funciona OK\n\nEspero te sirva\n\nSALUDOS','',0,'','2l3kswpj',1,0,'',492,0,0),(13782,3151,6,492,0,'201.154.132.163',1149016975,1,0,1,1,1,1,'','','Hola Leandro\n\nDe momento, el resto de las demas funciones asi como su sintaxis y ejemplos, las tengo en el Norton Guides para Clipper, pero estan en Ingles, ( no se donde quedaron las que estan es español ) si gustas te las podria enviar a tu correo o subirlas por el hyperupload.\n\nSALUDOS','',0,'','2o4mbt79',1,0,'',492,0,0),(13783,3150,6,132,0,'83.213.45.32',1149017959,1,0,1,1,1,1,'','WBROSE de HERNAN','Perfecto, he hecho unos retoques y me funciona perfectamente.\n\nMuchas gracias','',0,'','1fmqnhfn',1,0,'',132,0,0),(13784,3152,6,36,0,'200.113.56.235',1149019751,1,0,1,1,1,0,'','FileXls de Ramon Avendaño','Estimados\n\n   Estoy utilizando esta estupenda librería y quiero saber si  se puede\n   combinar dos o mas celdas y si me pueden dar un ejemplo\n\n\ndesde ya muchas gracias\nSaludos Patricio','',0,'','2sf1lw4h',1,0,'',36,0,0),(13785,3151,6,228,0,'201.245.222.85',1149019943,1,0,1,1,1,1,'','Claro que si amigo...','Claro que si amigo en cualquiera de las dos partes me sirve y de nuevo gracias por tu ayuda...','',0,'','1az6ph7k',1,0,'',228,0,0),(13786,3151,6,492,0,'201.154.132.163',1149021884,1,0,1,1,1,1,'','','Listo...\n\n\nEnviados a tu correo.\n\n\nSALUDOS','',0,'','13mzadfd',1,0,'',492,0,0),(13787,3149,6,53,0,'201.138.16.49',1149023483,1,0,1,1,1,1,'','','George:\n\nTe agradezco la aportación.\n\nA ver si alguien más se anima a compartir sus experiencias.\n\nSaludos, Armando','',0,'','51i9bo83',1,0,'',53,0,0),(13788,3153,2,78,0,'201.230.190.111',1149025294,1,0,1,1,1,0,'','Problemas con PellesC','Hola Amigos..\nYa van dos ocaciones en las inexplicablemente, PellesC malogra los archivos .res, y on hay modo de recuperarlos.,.,,  alguien sabe algo de ello?, y ademas si se puediera abrir los archivos .res  desde el RWS (los hechos con PellesC)\n\nSalu2\nWilli','',0,'','4f05uyrz',1,0,'',78,0,0),(13789,3133,2,39,0,'201.220.111.107',1149027306,1,0,1,1,1,0,'','','Hola,\n\n Como sugerencia puedes declarar en la rutina que no alcanza a terminar una variable que sera verdadera si estas haciendo un proceso y falsa al terminar , algo asi , ( es solo un ejemplo, no se como esta tu codigo )\n\n\n  rutina1()\n\n   ...\n  ....\n  local ltrabajando := .f.\n\n      .....\n      rutinalenta(@ltrabajando)\n      do while ltrabajando\n          // Depende de lo largo que sea el codigo\n           ////sysrefresh()\n          ///////////////////////\n      enddo\n\nreturn\n\nprocedure rutinalenta(ltrabajando)\n\n   ltrabajando:=.t.\n   sysrefresh()\n   acciones \n   ....\n   .....\n   .....\n   ltrabajando:=.f.\n  sysrefresh()\nreturn\n\n\natte, \nlautaro','',0,'','3g8tzq0z',1,0,'',39,0,0),(13790,3154,3,261,0,'63.197.46.139',1149037140,1,0,1,1,1,1,'','Bitmap Zoom Method','How do I zoom a specific area of a bitmap.  It seems the Zoom method only has a single parameter nZoom.\n\nThanks,\n\nByron...','',0,'','10wom9zp',1,0,'',261,0,0),(13791,3151,6,456,0,'217.127.39.57',1149060490,1,0,1,1,1,1,'','','fCreate [url:1imhdv38]http&#58;//clipper&#46;ecofor&#46;cl/C52G01B/ng39377&#46;html[/url:1imhdv38]\nfWrite [url:1imhdv38]http&#58;//clipper&#46;ecofor&#46;cl/C52G01B/ng43f9f&#46;html[/url:1imhdv38]\nRevisa otras funciones que tienes para el manejo a bajo nivel de ficheros, fOpen,fClose, fError, fSeek,fRead,fReadStr.\n\nEn este link estan todas las funciones de clipper [url:1imhdv38]http&#58;//clipper&#46;ecofor&#46;cl/C52G01B/ng3f4&#46;html[/url:1imhdv38]','',0,'EA==','1imhdv38',1,0,'',456,0,0),(13792,3155,4,13,0,'213.76.252.200',1149061554,1,0,1,1,1,0,'','Harbour','Antonio,\n\nDo you plan update harbour for Pocket PC with latest CVS source ? New version come with gc3 switch - app run little fast.\n\nThanks\nPawel','',0,'EA==','2e6sqdx6',1,0,'',13,0,0),(13793,3145,6,28,0,'213.27.201.254',1149062030,1,0,1,1,1,0,'','','al final vamos a tener que tener en consideración el pasarnos a xHarbour, enfin...','',0,'EA==','7jwsbsx9',1,0,'',28,0,0),(13794,3146,6,2,0,'80.32.22.38',1149067507,1,0,1,1,1,1,'','','Andrés,\n\nNo será el 2401 ?','',0,'EA==','3765f1e2',1,0,'',2,0,0),(13795,3145,6,2,0,'80.32.22.38',1149067609,1,0,1,1,1,1,'','','Paco,\n\nEn <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m --> (sección \"whatsnew\" de estos foros) nosotros vamos publicando las versiones más recientes, probadas y estables.','',0,'EA==','3o7cofrn',1,0,'',2,0,0),(13796,3147,18,2,0,'80.32.22.38',1149067708,1,0,1,1,1,1,'','','Rafa,\n\nTienes razón, aunque el compilador traduce cero a falso y distinto de cero a verdadero.','',0,'EA==','1sukt857',1,0,'',2,0,0),(13797,3130,6,2,0,'80.32.22.38',1149068164,1,0,1,1,1,1,'','','William,\n\nAquí tienes un ejemplo en diálogo:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01dba93849/toolbar4.prg.html\">http://hyperupload.com/download/01dba93 ... 4.prg.html</a><!-- m -->','',0,'EA==','2vq2xfoe',1,0,'',2,0,0),(13798,3155,4,2,0,'80.32.22.38',1149068239,1,0,1,1,1,1,'','','Pawel,\n\nYes, we may use Harbour 0.46 once it is published and tested.','',0,'EA==','2cxc1i4s',1,0,'',2,0,0),(13799,3145,6,28,0,'213.27.201.254',1149068822,1,0,1,1,1,0,'','','¿incluye las contribuciones?\n\nTe lo digo porque no puedo comprobarlo desde el trabajo. No permiten descargar de hiperupload, no se porque','',0,'EA==','8yq12ec4',1,0,'',28,0,0),(13800,3145,6,28,0,'213.27.201.254',1149069016,1,0,1,1,1,0,'','','Gracias por estos enlaces pero lo que realmente necesito es hbzip.lib que esta en las contribuciones.','',0,'EA==','2wdlzeu4',1,0,'',28,0,0),(13801,3156,6,77,0,'217.126.90.142',1149078152,1,0,1,1,1,0,'','PROBLEMA CON FOCO','Hola tengo un sitema de facturación que estoy pasado a 32 bits con fwh 2.5 y harbour 44, mi problema es el siguiente, en clipper + fw funciona perfecto pero al compilar con harbour no pasa el foco al siguiente trazo, me explico:\n\n\ntengo un browse con twbrose que redefino el get focus de la siguiente forma:\n\noBPar:bGotFocus :={|| IF(oT:aTot[1]=0 .AND. oT:lFst,Captura(.T.),)}\n\ndiciendole que si no hay datos para editar o es el primer registro de una factura, me pase directamente a la captura de datos que la que presento más abajo, pues, hace el salto, pero cuando valido el primer get ot:apar[01] la primera vez, no salta al siguiente get, me ejecuta el valid, devolviendo .t. en el valid, pero no pasa al siguiente get. que sería el ot:apar[02]\n\n[code:2rhb3wvt]\n\nEstos son los gets de la captura&#58;\n\n   REDEFINE GET oT&#58;oPar&#91;01&#93; VAR oT&#58;aPar&#91;01&#93; ID 110 OF oDlg PICTURE &quot;@K!&quot;   VALID iif&#40;lretro&#40;odlg&#41;,&#46;f&#46;,Val_Prd&#40;oT&#58;aPar&#91;1&#93;&#41;&#41; // CODIGO\n   REDEFINE GET oT&#58;oPar&#91;02&#93; VAR oT&#58;aPar&#91;02&#93; ID 111 OF oDlg PICTURE &quot;@K!&quot;  valid val_per&#40;&#41; // PERTENECE\n   REDEFINE GET oT&#58;oPar&#91;03&#93; VAR oT&#58;aPar&#91;03&#93; ID 112 OF oDlg PICTURE &quot;@K!&quot;  // DESC&#46;\n   REDEFINE GET oT&#58;oPar&#91;04&#93; VAR oT&#58;aPar&#91;04&#93; ID 113 OF oDlg PICTURE &quot;99&quot; VALID Val_Cap&#40;&#41; // IVA\n   REDEFINE GET oT&#58;oPar&#91;05&#93; VAR oT&#58;aPar&#91;05&#93; ID 114 OF oDlg PICTURE &quot;9999999&#46;9&quot; valid val_can&#40;&#41; // cantidad\n   REDEFINE GET oT&#58;oPar&#91;06&#93; VAR oT&#58;aPar&#91;06&#93; ID 115 OF oDlg PICTURE PICGEN\n   REDEFINE GET oT&#58;oPar&#91;07&#93; VAR oT&#58;aPar&#91;07&#93; ID 116 OF oDlg PICTURE &quot;99&#46;9&quot;\n   REDEFINE GET oT&#58;oPar&#91;08&#93; VAR oT&#58;aPar&#91;08&#93; ID 117 OF oDlg PICTURE &quot;99&#46;9&quot;\n[/code:2rhb3wvt]\n\nEsta es la funcion captura\ndonde como véis lo que hace es activar los get de la captura y al final hace un setfocus sobre el primer get ot:apar[01]\n\n[code:2rhb3wvt]\nSTATIC FUNCTION Captura&#40;Sw&#41;\n   oT&#58;lFst&#58;=&#46;F&#46;\n   oT&#58;lAdd&#58;=Sw\n   IF Sw\n      oT&#58;aPar&#91;01&#93;&#58;=Space&#40;10&#41;\n      oT&#58;aPar&#91;02&#93;&#58;=Space&#40;10&#41;\n      oT&#58;aPar&#91;03&#93;&#58;=Space&#40;30&#41;\n      oT&#58;aPar&#91;04&#93;&#58;=2\n      oT&#58;aPar&#91;05&#93;&#58;=0\n      oT&#58;aPar&#91;06&#93;&#58;=0\n      oT&#58;aPar&#91;07&#93;&#58;=0\n      oT&#58;aPar&#91;08&#93;&#58;=0\n      ot&#58;APAR&#91;09&#93;&#58;=0\n   ELSE\n      IF &#40;oDtemp&#41;-&gt;estadolped\n         msgalert&#40;&quot;Imposible modificar, Articulo ya servido&#46;&#46;&#46;&quot;&#41;\n         Return &#40;NIL&#41;\n      endif\n      oT&#58;aPar&#91;01&#93;&#58;=&#40;oDtemp&#41;-&gt;articulped\n      oT&#58;aPar&#91;02&#93;&#58;=&#40;oDtemp&#41;-&gt;pertenlped\n      oT&#58;aPar&#91;03&#93;&#58;=&#40;oDtemp&#41;-&gt;descrilped\n      oT&#58;aPar&#91;04&#93;&#58;=&#40;oDtemp&#41;-&gt;tipivalped\n      oT&#58;aPar&#91;05&#93;&#58;=&#40;oDtemp&#41;-&gt;cantidlped\n      oT&#58;aPar&#91;06&#93;&#58;=SI_EURO&#40;OdTEMP,&#40;oDtemp&#41;-&gt;preciolped&#41;\n      oT&#58;aPar&#91;07&#93;&#58;=&#40;oDtemp&#41;-&gt;descuelped\n      oT&#58;aPar&#91;08&#93;&#58;=&#40;oDtemp&#41;-&gt;comisilped\n      ot&#58;apar&#91;09&#93;&#58;=&#40;oDtemp&#41;-&gt;cajon__ped\n      ot&#58;estado&#58;=&#40;oDtemp&#41;-&gt;Estadolped\n   ENDIF\n   HabD_Cap&#40;&#46;T&#46;&#41;\n   oBPar&#58;Disable&#40;&#41;\n   oT&#58;oPar&#91;1&#93;&#58;SetFocus&#40;&#41;\nRETURN &#40;NIL&#41;\n[/code:2rhb3wvt]','',0,'AIA=','2rhb3wvt',1,0,'',77,0,0),(13802,3079,2,581,0,'80.81.126.99',1149082916,1,0,1,1,1,1,'','','Perdón por tardar en la respuesta... Intentaré explicarme mejor:\n\nNo dán ningún error de ningún tipo. Ni en pantalla ni en el visor de sucesos... Si miras en el Administrador de Tareas, está abierto el ntvdm y el wowexec, pero la aplicación de 16 bits, que normalmente se abre junto al wowexec, no está. No he encontrado ninguún error en ningún log. Sencillamente no se abren. Lo he probado con apps 16 bits que no son de fivewin y tampoco hace nada. Sin embargo, una aplicación clipper DOS sí que se ejecuta. Por lo tanto el ntvdm sí que funciona, pero el WOW para 16 bits no funciona bién. He tocado valores del registro, he hecho las mil y una perrerías, he mirado mil informaciones en internet... Nada. He reinstalado el server. Nada. Ya copié el autoexec.nt y el config.nt y el command.com de otro W2003 y tampoco. Intenté copiar otros ficheros (wowexec.exe, wow32.dll, ntvdm.exe, etc) desde otro Win2003SP1 sin \"R2\" pero como Windows controla que no cambies de versión ficheros críticos del sistema para mantener el server \"estable\" ante intrusos, etc, te restaura enseguida el fichero original (te indica en el registro que lo ha restaurado...). Así que no puedo copiar dterminados ficheros de un  Wind 2003 que no es R2 y que sí que me funciona... El nuevo \"DEP\" del 2003 tampoco tiene nada que ver...\n\nPor cierto, cada vez me están llegando más voces desde diversos técnicos de la empesa en la que trabajo, de que las apps de 16 bits dan problemas (a veces no funcionan, a veces dan error, etc) sobre Windows 2003 R2... Esto tiene mala pinta por que no parece un error esporádico...','',0,'AIA=','anw1kv7h',1,0,'',581,0,0),(13803,3154,3,261,0,'63.197.46.139',1149088397,1,0,1,1,1,1,'','Zoom Zoom Zoom','Anybody?','',0,'AIA=','28h33p68',1,0,'',261,0,0),(13804,3157,2,600,0,'84.123.222.86',1149090234,1,0,1,1,1,0,'','Says sobre Bitmaps','Buenas, necesito hacer lo siguiente:\nQuisiera colocar un bitmap en un dialogo mediante recursos, por esto no hay problema, pero luego quisiera poner says en distintos lugares del BMP. Esto no me funciona\nHago esto:\n\n      REDEFINE BITMAP oBmpA FILE rtrim( oQuery:FieldGet(1) ) + \"\\RECIBO\"+str((cAlias)-&gt;nEstado,1)+\".BMP\" ID 61 OF oFld:aDialogs[1] UPDATE\n\n       @ 10,10 say oSay PROMPT \"Hola\" OF oBmpA\n \nMe da un error de TBITMAP:DEFCONTROL\n¿Podriais decirme como se hace?\n\nUn saludo\nJuan José','',0,'','1l9yvozf',1,0,'',600,0,0),(13805,3158,18,24,0,'80.37.55.44',1149090333,1,0,1,1,1,1,'','Clase TTreeview.','Antonio, he visto que la version 2.7 Mayo, has cambiado el color de fondo\nde esta clase, para que sea igual a la ventana;\n \n nClrBack := oWnd:nClrPane\n\nAntes;\n GetSysColor( COLOR_WINDOW )\n\nLo que hace, que si mi ventana padre, oWnd, el fondo es de color negro,\nel treeview va a tener un color negro, pero el fondo de las elementos que\ncontiene NO, asi que queda asquerosamente, hablando, como un mal de ojo realizado por Paco Porras.\n\nAsi, si tenia este codigo:\n oTree = TTreeView():New( 2, 0, oWndChild,,,.T.,,200,355 )\n\nme fuerza ahora a usar;\n oTree = TTreeView():New( 2, 0, oWndChild,,GetSysColor( COLOR_WINDOW ),.T.,,200,355 )\n\nSi , ya se que es poca cosa, pero jode un mazo <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> y lo posteo por si a alguien le pasa lo mismo.\n\nSaludos\nRafa Carmona','',0,'','12c96jf8',1,0,'',24,0,0),(13806,3159,3,343,0,'204.57.111.194',1149091145,1,0,1,1,1,0,'','cTempFile() -&gt; bad alias','if you use cTempFile( cPath, \'DBF\') to create temporary dbf file then the all numeric tempfile will cause an \"illegal characters in alias\" error when used. \nI would use cNewFileName() but I need to create temp file using path.\n\nAlso I found that if you need a couple of temp files then you need to run cTempFile(), then create the actual file before you can get another temporary file with cTempFile(). \nThis is especially true with cNewFileName()\n\nI would like to change cTempFile so that it adds an alpha to the beginning of filename, or add path option to cNewFileName()\n\n\nSomething like:\n\nfunction cTempFile( cPath, cExtension )        // returns a temporary filename\n\n   local cFileName\n\n   static cOldName\n\n   DEFAULT cPath := \"\", cExtension := \"\"\n\n   if ! \".\" $ cExtension .and. .not. empty( cExtension )\n      cExtension = \".\" + cExtension\n   endif\n   // Added \'A\' to filename but we could pass a cRootName also\n   while File( cFileName := ( cPath + \'A\'+StrTran( Time(), \":\", \"\" ) + cExtension ) ) .or. ;\n         cFileName == cOldName\n   end\n\n   cOldName = cFileName\n\nreturn cFileName\n\n// and / or\n\n//---------------------------------------------------------------------------//\n\nfunction cNewFileName( cRootName, cExt, cPath )\n\n   local cFileName := cRootName + \"1\"\n   local nId := 1\n   static cOldName\n   DEFAULT cPath := \"\"\n\n   if ! \".\" $ cExtension .and. .not. empty( cExtension )\n      cExtension = \".\" + cExtension\n   endif\n   cFileName += cExtension\n\n   while File( cPath+cFileName ) .or. ;\n         cFileName == cOldName\n      cFileName = cRootName + ;\n                  StrZero( ++nId, If( nId &lt; 10, 1,;\n                           If( nId &lt; 100, 2, 3 ) ) ) + ;\n                  cExt\n   end\n\n   cOldName = cFileName\n\nreturn cFileName','',0,'','2zcn9gut',1,0,'',343,0,0),(13807,3159,3,303,0,'72.199.41.171',1149093692,1,0,1,1,1,0,'','','Gale,\n\nThe use of the static cOldName is of limited value. It only enables you to create 2 filenames before you have to open them. If you want to open 3 or more you still have the same problem. I think it is best to open each file before getting a new filename.\n\nI suppose you could force the cTempFile() to wait one second at the end. This way you couldn\'t get the same filename for another 24hrs.\n\nOr, you could just wait one second between calls to cTempFile().\n\ncFile1:= cTempFile(...)\nwaitSeconds(1)\ncFile2:= cTempFile(...)\n\nJames','',0,'','jcuus5dr',1,0,'',303,0,0),(13808,3160,3,69,0,'206.210.97.138',1149095356,1,0,1,1,1,0,'','Auto insert data','Hi Everybody,\n\nI am trying to find a way to create a macro for the end user of my application.\n\nI would like to have them do someting like press F5 and have the text \"HELLO\" inserted into a get.\n\nAny Ideas?\n\nThanks,\nJeff','',0,'','1mkv0jlh',1,0,'',69,0,0),(13809,3161,3,261,0,'63.196.154.4',1149096124,1,0,1,1,1,1,'','Using Bitmaps','Is there any more information on how to utilize bitmaps in Fivewin.  When we zoom we seem to have no control.  We would like to zoom in the area where a user clicks there mouse.  Like center the mouse click in the zoomed area.  Anybody have any experience with this?\n\nThanks, \n\nByron...','',0,'','2lyrab27',1,0,'',261,0,0),(13810,3079,2,404,0,'213.231.100.74',1149096209,1,0,1,1,1,0,'','Espero que te ayude.','Si lo que le reproduzco, le sirve, me alegrará. Mi entorno es XP SP2 a tope de actualizaciones.\n\nLo más que he tenido que hacer, es cambiar el STACKSIZE y el HEAPSIZE. Tengo: \n\n1. CLIPPER 5.2e, BLINKER 3.30, y FiveWin 2.3c \n\n2. STACKSIZE 10100 \nHEAPSIZE 1024 \n\nLe reproduzco, el AUTOEXEC.NET y el CONFIG.NET, tal como están en este momento, creo que lo unico que añadí, para poder trabajar, fue el SET CLIPPER=F30: \n\nAUTOEXEC.NET \n\n@echo off \n\nREM AUTOEXEC.BAT no se utiliza para inicializar el entorno de MS-DOS. \nREM AUTOEXEC.NT se usa para inicializar el entorno de MS-DOS a no ser \nREM que se especifique un archivo de inicio diferente en el archivo de \nREM informaci¢n de programa (PIF) de la aplicaci¢n. \n\nREM Instalar las extensiones de CD-ROM \nlh %SystemRoot%\\system32\\mscdexnt.exe \n\nREM Instalar el redirector de red (cargar antes que dosx.exe) \nlh %SystemRoot%\\system32\\redir \n\nREM Instalar la compatibilidad con DPMI \nlh %SystemRoot%\\system32\\dosx \n\nREM La siguiente l¡nea habilita Sound Blaster 2.0 para su compatibilidad en NTVDM. \nREM El comando para configurar el entorno BLASTER es como sigue a continuaci¢n: \nREM SET BLASTER=A220 I5 D1 P330 \nREM donde: \nREM A especifica el puerto de E/S de la base de sound blaster \nREM I especifica la l¡nea de petici¢n de interrupciones \nREM D especifica el canal DMA de 8-bits \nREM P especifica el puerto de E/S de la base MPU-401 \nREM T especifica el tipo de tarjeta Sound Blaster \nREM 1 - Sound Blaster 1.5 \nREM 2 - Sound Blaster Pro I \nREM 3 - Sound Blaster 2.0 \nREM 4 - Sound Blaster Pro II \nREM 6 - SOund Blaster 16/AWE 32/32/64 \nREM \nREM El valor predeterminado es A220 I5 D1 T3 y P330. Si no se especifica algunos \nREM de los modificadores, se usar  el valor predeterminado. (NOTA: puesto que todos \nREM puertos est n virtualizados, la informaci¢n proporcionada aqu¡ no tiene que \nREM coincidir con la configuraci¢n de hardware real.) NTVDM es compatible s¢lo con Sound Blaster 2.0. \nREM El modificador T se debe establecer a 3, si se especifica. \nSET BLASTER=A220 I5 D1 P330 T3 \n\nREM Para deshabilitar la compatibilidad de sound blaster 2.0 en NTVDM, especifique una direcci¢n de \nREM puerto E/S de base SB. Por ejemplo: \nREM SET BLASTER=A0 \n\nSET CLIPPER=F30 \n\nCONFIG.NET \n\nREM Archivo de inicio de MS-DOS de Windows \nREM \nREM CONFIG.SYS contra CONFIG.NT \nREM CONFIG.SYS no se usa para inicializar el entorno de MS-DOS. \nREM CONFIG.NT se usa para inicializar el entorno de MS-DOS a menos \nREM que se especifique un archivo de inicio diferente en el PIF de \nREM una aplicaci¢n. \nREM \nREM ECHOCONFIG \nREM De forma predeterminada, no se muestra informaci¢n cuando se \nREM inicializa el entorno de MS-DOS. Para mostrar informaci¢n de \nREM CONFIG.NT/AUTOEXEC.NT, agregue el comando echoconfig a \nREM CONFIG.NT u otro archivo de inicio. \nREM \nREM NTCMDPROMPT \nREM Cuando regrese a la l¡nea de comandos de un TSR o mientras se \nREM ejecuta una aplicaci¢n basada en MS-DOS, Windows ejecuta \nREM COMMAND.COM. Esto permite al TSR permanecer activo. Para \nREM ejecutar CMD.EXE, la l¡nea de comandos de Windows, en vez de \nREM COMMAND.COM, agrefue el comando ntcmdprompt a CONFIG.NT u \nREM otro archivo de inicio. \nREM \nREM DOSONLY \nREM De forma predeterminada, puede iniciar cualquier aplicaci¢n \nREM al ejecutar COMMAND.COM. Si inicia una aplicaci¢n no basada \nREM en MS-DOS, se puede interrumpir cualquier TSR en ejecuci¢n. \nREM Para garantizar que s¢lo se puedan iniciar aplicaciones \nREM basadas en MS-DOS, agregue el comando dosonly a CONFIG.NT u \nREM otro archivo de inicio. \nREM \nREM EMM \nREM Puede usar la l¡nea de comando EMM para configurar EMM \nREM (Expanded Memory Manager, Administrador de memoria expandida). \nREM La sintaxis es: \nREM \nREM EMM = [A=AltRegSets] [B=BaseSegment] [RAM] \nREM \nREM AltRegSets \nREM especifica el total de conjuntos de registro de \nREM asignaci¢n alternativos que desee que el sistema admita. \nREM 1 &lt;= AltRegSets &lt;= 255. El valor predeterminado es 8. \nREM BaseSegment \nREM especifica la direcci¢n de segmento inicial en la \nREM memoria convencional de DOS que desee que el sistema \nREM asigne para las tramas de p ginas de EMM. \nREM El valor se debe dar en Hexdecimal. \nREM 0x1000 &lt;= BaseSegment &lt;= 0x4000. El valor se redondea \nREAM al l¡mite de 16 KB. El valor predeterminado es 0x4000. \nREM RAM \nREM especifica que el sistema s¢lo debe asignar 64 KB de \nREM espacio de direcciones del  rea del bloque de memoria \nREM superior (UMB) para las tramas de p ginas de EMM y \nREM dejar el resto (si lo hay) para ser usado por DOS \nREM para compatibilidad con los comandos loadhigh y \nREM devicehigh. De forma predeterminada, el sistema \nREM asignar¡a todo el UMB posible y disponible para \nREM tramas de p ginas. \nREM \nREM El tama¤o de la EMM lo determina el archivo PIF (aquel \nREM asociado con su aplicaci¢n o _default.pif). Si el tama¤o \nREM del archivo PIF es cero, EMM se deshabilitar  y se \nREM omitir  la l¡nea EMM. \nREM \ndos=high, umb \ndevice=%SystemRoot%\\system32\\himem.sys \n\nFILES=30 \n\nAdemás para que me sea más comodo. Me creo en el directorio raiz, un fichero.BAT (primera letra del nombre, del directorio de la aplicación.BAT), por cada aplicación, con la siguientes lineas: \n\nA.BAT \n\n@ECHO OFF \n\nPath=C:\\;C:\\WINDOWS;C:\\WINDOWS\\system32;C:\\WINDOWS\\System32\\Wbem \nPATH=%PATH%;C:\\ARCHIV~1\\BLINKER3;C:\\ARCHIV~1\\BORLANDC\\BIN;C:\\ARCHIV~1\\QED \nPATH=%PATH%;C:\\ARCHIV~1\\CLIPPER5\\5.2e\\BIN;C:\\ARCHIV~1\\UtilProg \n\nSET INCLUDE=C:\\ARCHIV~1\\CLIPPER5\\5.2e\\INCLUDE;C:\\ARCHIV~1\\FIVELIB\\FW23\\INCLUDE \nSET INCLUDE=%INCLUDE%;C:\\ARCHIV~1\\TDBF12\\INCLUDE \nSET LIB=C:\\ARCHIV~1\\CLIPPER5\\5.2e\\LIB;C:\\ARCHIV~1\\FIVELIB\\FW23\\LIB \nSET LIB=%LIB%;C:\\ARCHIV~1\\TDBF12\\LIB \n\nSET CLIPPER=F30 \n\nCD Aplicacion \n\nDentro del directorio, suelo poner un S.BAT, que lo utilizo para dejar el entorno, en las condiciones, en que estaba antes de entrar: \n\n@ECHO OFF \n\nCD \\ \n\nSET INCLUDE= \nSET LIB= \n\nPATH=C:\\;C:\\WINDOWS;C:\\WINDOWS\\system32;C:\\WINDOWS\\System32\\Wbem \n\nEspero que te sirva de orientación. Estaré pendiente de lo que indique. \n\nSaludos, José Mª','',0,'','1jfko9wb',1,0,'',404,0,0),(13811,3162,2,568,0,'200.121.64.61',1149098985,1,0,1,1,1,0,'','Tooltips en tsbrowse','Hola amigos,\nalguien me puede ayudar?... necesito colocar tooltips en los titulos (Cabecera) de mi tsbrowse, puede alguien recomendarme algun metodo?\n\nGracias\n\nWilliam Chavez \nLima - Peru','',0,'','5k0rpo6q',1,0,'',568,0,0),(13812,3159,3,343,0,'204.57.111.194',1149099121,1,0,1,1,1,0,'','','James,\nYes, the static was part of a mod I did in the past, but is not the real stopper.\n\nAfter upgrading to latest xHarbour builder and FWH, I started getting alias errors. I remember a problem with clipper and alias names that were numeric.\nSo my real concern here is to return a filename that does not start with a number.\n\nI would use cNewFileName() but it does not handle paths. So the mods to filename.prg could be made without the static but handle the issues concerning cTempFile and numeric filename and/or cNewFileName() and paths.\n\nThanks, Gale','',0,'','27r5ou8h',1,0,'',343,0,0),(13813,3159,3,303,0,'72.199.41.171',1149100074,1,0,1,1,1,0,'','','Gale,\n\n&gt;So the mods to filename.prg could be made without the static but handle the issues concerning cTempFile and numeric filename and/or cNewFileName() and paths.&lt;\n\nAgreed.\n\nI have been using my own tempfile() function for many years. It has  leading characters in the name.\n\nJames\n\n[code:29avms2b]* Function   &#58; TEMPFILE&#40;&#41;\n* Purpose    &#58; To generate a unique name for a temporary file\n*              &#40;needed on networks so you don\'t overwite someone\n*               else\'s temporary file&#41;&#46;\n* Comments   &#58; Generates name, checks for existance of file with\n*              generated name, if found generates a another name&#46;\n* Assumes    &#58; file is to go into current directory\n* Syntax     &#58; TEMPFILE&#40;expC1&#41;\n* Parameters &#58; expC1 - extension of file &#40;without the dot&#41;\n* Example    &#58; findex=tempfile&#40;&quot;ntx&quot;&#41;\n* Returns    &#58; unique file name\n* Author     &#58; James Bott, CIS 71706,551\n* History    &#58; 09/27/93 Changed leading 3 chars from 000 to AAA\n*              because Clip 5&#46;2 gave &quot;Illegal characters in alias&quot; mess\n*              10/05/93 Found that between hours of 00&#58;00 &amp; 01&#58;00 was\n*              getting spaces in name which also gave illegal char mess&#46;\n*              Fixed this&#46;\n*              10/7/2004 Added optional cDir\n\nfunction tempFile&#40;extension,cDir&#41;\n   local cFile\n   default cDir&#58;=&quot;&#46;\\&quot;\n   cDir&#58;= if&#40;right&#40;cDir,1&#41;!=&quot;\\&quot;,cDir+&quot;\\&quot;,cDir&#41;\n   // loop until you find a name that doesn\'t exist\n   do while &#46;t&#46;\n      cFile&#58;=&quot;AAA&quot;+trim&#40;str&#40;seconds&#40;&#41;,5,0&#41;&#41;+&quot;&#46;&quot;+upper&#40;extension&#41;\n      cFile&#58;=strtran&#40;cFile,&quot; &quot;,&quot;0&quot;&#41; // fix for hours between 00&#58;00 &amp; 01&#58;00\n      if &#46;not&#46; file&#40; cDir + cFile &#41;\n         exit\n      endif\n   enddo\nreturn cFile[/code:29avms2b]','',0,'AIA=','29avms2b',1,0,'',303,0,0),(13814,3156,6,492,0,'201.154.132.163',1149102569,1,0,1,1,1,1,'','','Hola Manolo\n\nNo te estara afectando el orden de tus controles en el dialogo ??\n\nQuizas por ahi vayan los tiros... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos','',0,'AIA=','1izk1hnw',1,0,'',492,0,0),(13815,3009,3,148,0,'82.201.206.141',1149102787,1,0,1,1,1,0,'','','Sir I tried the code I could not find the error,it does not work . Sir Let my explain again:\n\nI am not filtering the combobox of countires (just no redundancy) (chosen firstly). \n \nI am filtering the combobox of Cities in the cust file according to their countries(chosen secondly). \n\nI am filtering the combobox of governers in the cust file  according to their cities(chosen thirdly). \n\nThe file cust has all those data that may be in redundancy .\n\n[code:1zmyem54]\n\n\n@ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL \n@ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n@ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41;; \nSIZE 110,80 ; \nOF oDlg PIXEL\n\n\n@ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL\n@ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n@ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_city&quot;&#41; size 110,80 ;\nOF oDlg PIXEL;\nVALID &#40;reset&#40; v_ci_cocmbo, oCbx2, &quot;cust&quot;,1,&quot;cu_city&quot;,&quot;cu_coun&quot; &#41;, &#46;t&#46;&#41; \n\n   @ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL\n   @ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_gove&quot;&#41;  size 110,80 ;\n   OF oDlg PIXEL;\nVALID &#40;reset&#40; v_go_cocmbo, oCbx3, &quot;cust&quot;,1,&quot;cu_gove&quot;,&quot;cu_city&quot; &#41;, &#46;t&#46;&#41; \n\n\nFUNCTION aBase&#40;workarea,dbf_na,arr_size,fld_na&#41;\n//-------------------------------------\nLOCAL arr&#58;=&#123;&#125;,nAreaActiv&#58;=Select&#40;&#41;\nLOCAL y&#58;=0\nlocal bFilter&#58;=&quot;&quot;\n\naAdd&#40;arr,space&#40;arr_size&#41;&#41; //Put First element empty\n\n\nselect &#40;workarea&#41;\nuse &#40;dbf_na&#41;\nSELE &#40;dbf_na&#41;\nDBGOTOP&#40;&#41;\n\n\nWHILE!Eof&#40;&#41;\n\n\ny&#58;=ASCAN&#40;arr,&#40;dbf_na&#41;-&gt;&amp;fld_na&#41;                      \nif y==0\naAdd&#40;arr,&#40;dbf_na&#41;-&gt;&amp;fld_na&#41;\ndbSkip&#40;&#41;\nelse\ndbSkip&#40;&#41;\nendif\nENDDO\n\nSELE &#40;nAreaActiv&#41;\n\nRETURN&#40;arr&#41;\n\nfunction reset&#40; cItem, oCbx, cFile ,workarea,fld_na,filtered_fld&#41;\n//--------------------------------------------------------------\nlocal aItems&#58;=&#123;&#125; \nlocal nArea&#58;= select&#40;&#41;\nlocal y&#58;=0\nselect &#40;workarea&#41;\nuse &#40;cFile&#41; \nset filter to cItem == &#40;workarea&#41;-&gt;filtered_fld\ngo top \ndo while ! eof&#40;&#41; \ny&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\nif y==0\naAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\ndbSkip&#40;&#41;\nelse\ndbSkip&#40;&#41;\nendif\nenddo \nuse \nselect&#40; nArea &#41; \noCbx&#58;setItems&#40; aItems &#41; \noCbx&#58;refresh&#40;&#41; \nreturn nil[/code:1zmyem54]','',0,'AIA=','1zmyem54',1,0,'',148,0,0),(13816,3160,3,6,0,'87.1.198.68',1149103991,1,0,1,1,1,1,'','Re: Auto insert data','Try something like this\n\nPOSTSTRING( oGet:hWnd, \"HELLO\" )\n\nwhere POSTSTRING() is:\n\n[code:2hjme3vv]FUNCTION POSTSTRING&#40; hWnd, cString &#41;\n\n    LOCAL i, c\n\n    DEFAULT hWnd &#58;= GETACTIVEWINDOW&#40;&#41;\n\n    FOR i = 1 TO LEN&#40; cString &#41;\n        c = SUBSTR&#40; cString, i, 1 &#41;\n\n        IF c &gt; &quot; &quot;\n            POSTMESSAGE&#40; hWnd, WM_CHAR, ASC&#40; c &#41; &#41;\n        ELSE\n            POSTMESSAGE&#40; hWnd, WM_KEYDOWN, ASC&#40; c &#41; &#41;\n        ENDIF\n\n        SYSREFRESH&#40;&#41;\n    NEXT\n\n    RETURN NIL[/code:2hjme3vv]\n\nEMG','',0,'AIA=','2hjme3vv',1,0,'',6,0,0),(13817,3140,6,171,0,'71.232.193.197',1149104819,1,0,1,1,1,0,'','','Problema Solucionado\n\nHay que añadir los siguientes DEFINE:\n\n#define adUseServer 2\n#define adUseClient 3\n\nY antes del oRs:Open() se debe colocar la siguiente funcion:\n\noRs:CursorLocation = adUseClient\n\n\nGeorge','',0,'AIA=','2fke1o3t',1,0,'',171,0,0),(13818,2996,6,104,0,'201.58.11.5',1149104892,1,0,1,1,1,0,'','','Olá frafive,\n\nOs testes que fiz aqui com o sample4.prg funcionaram 100%. Eu compilei com fwh 2.7 e xhb 0.99.60 ou posterior, talvez só funcione com estas versões  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSinto muito,\n\nAbraços,\n\nRossine.','',0,'AIA=','1lcqz2u0',1,0,'',104,0,0),(13819,3009,3,303,0,'72.199.41.171',1149105427,1,0,1,1,1,0,'','','Please explain what you mean when you say \"it does not work.\" What, exactly is the problem?\n\nI suggest a different approach than scanning the array for each record. If you index the file by the field being searched with the UNIQUE clause, then it will be much faster than scanning the array.\n\nAh, I just spotted a problem. You have the VALIDs on the wrong controls. You want the next control to be reset when the current control is exited (thus the VALID). So the first VALID resets the next control, and the second VALID resets the last control. They should be like this:\n\n[code:17jzfavv]@ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL \n@ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n@ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41;; \nSIZE 110,80 ; \nOF oDlg PIXEL ;\nVALID &#40;reset&#40; v_co_cocmbo, oCbx2, &quot;cust&quot;,1,&quot;cu_city&quot;,&quot;cu_coun&quot; &#41;, &#46;t&#46;&#41; \n\n@ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL \n@ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n@ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_city&quot;&#41; size 110,80 ; \nOF oDlg PIXEL;\nVALID &#40;reset&#40; v_ci_cocmbo, oCbx3, &quot;cust&quot;,1,&quot;cu_gove&quot;,&quot;cu_city&quot; &#41;, &#46;t&#46;&#41; \n\n   @ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL \n   @ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_gove&quot;&#41;  size 110,80 ; \n   OF oDlg PIXEL[/code:17jzfavv]\n\nThere is also another problem. What if the user does all three selections, then goes back to the first, or second, and makes a change. All the following controls need to be reset to blank. Also, what if the user makes the country selection then tries to make a governor selection? Is the last combobox empty?\n\nHere is another issue. What if the database is incomplete? When there are no records in the file, then there is nothing to choose from. I think you would have to keep the choices separate from the customer database. How is the user going to enter something that is not yet in the database?\n\nAll things to think about...\n\nJames','',0,'AIA=','17jzfavv',1,0,'',303,0,0),(13820,3163,6,41,0,'200.87.67.10',1149105590,1,0,1,1,1,0,'','Convertir los reportes a otro formato grafico','Holas,\n\nya se discutio esto, pero queria saber algunas alternativas, he utilizado el nconvert para pasar el resultado de un reporte (EMF) a otro formato como JPG, pero el resultado es muy pobre en cuanto a la visualizacion.\n\nAlguien utiliza otra herramienta o talvez alguna parametrizacion del nconvert para tener un resultado de mejor calidad\n\nsaludos\n\nMarcelo','',0,'AIA=','1yw8oc9c',1,0,'',41,0,0),(13821,3009,3,303,0,'72.199.41.171',1149105682,1,0,1,1,1,0,'','','Also, there is no need to pass a workarea. Select(0) gets you the next available workarea. Hardcoding workareas is something to be avoided. It is possible--I never do it.\n\nJames','',0,'AIA=','2x1v3k9i',1,0,'',303,0,0),(13822,3164,3,41,0,'200.87.67.10',1149105795,1,0,1,1,1,0,'','convert report to other graph format','Hello,\n\nI \'m using nconvert to transfor the report results (EMF) to JPG file, but the result is not legible, some body know another method to have good result or maybe some nconvert parameters to do that\n\nregards\n\nMarcelo','',0,'AIA=','34g1qdn9',1,0,'',41,0,0),(13823,3160,3,303,0,'72.199.41.171',1149106168,1,0,1,1,1,0,'','','Or, you can try oGet:paste(\"Hello\")','',0,'AIA=','39ykc6k5',1,0,'',303,0,0),(13824,3165,3,230,0,'64.12.116.201',1149107746,1,0,1,1,1,0,'','How to Create a browse/Shadow with UEStudio','I am trying to create a Dialog with the UeStudio and have two questions\n\n1. how do you define the TWBrowse Control?\n\n2. How do you create a Box (Draw a box around some Controls.)\n\n\nthank you \nJim','',0,'AIA=','3jw2u79e',1,0,'',230,0,0),(13825,3160,3,6,0,'87.1.198.68',1149108260,1,0,1,1,1,1,'','','Much simpler. The only drawback is that it alters the clipboard, if I\'m not wrong.\n\nEMG','',0,'AIA=','32lhabcg',1,0,'',6,0,0),(13826,3156,6,77,0,'80.224.215.21',1149111192,1,0,1,1,1,0,'','','[quote=&quot;Raymundo Islas M.&quot;:3wh3o9b5]Hola Manolo\n\nNo te estara afectando el orden de tus controles en el dialogo ??\n\nQuizas por ahi vayan los tiros... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos[/quote:3wh3o9b5]\n\ngRACIAS raimundo, pero es lo primero que mire y el browse es el tab 20 siendo el apar[01] el 21 y asi consecutivamente, lo bueno es que una vez pasas por el apar[01] y sigues insertando lineas, ya no pasa, solo la primera vez que pasa de browse al  get.\n\nsaludos.','',0,'gA==','3wh3o9b5',1,0,'',77,0,0),(13827,2996,6,519,0,'81.39.227.161',1149114777,1,0,1,1,1,0,'','Twbrowse','Hola Rossine\n\n  Te indico link descarga para que revises el samples, fijate como esta creado el twbrowse en el rc y como lo muestra despues de compilar.\n\n \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/017e6b6263/aBrowse.zip.html\">http://hyperupload.com/download/017e6b6 ... e.zip.html</a><!-- m -->\n\n\n  Me puedes volver a enviar el samples compilado con  fwh 2.7 y xhb 0.99.60 ?\n\n  un saludo y gracias','',0,'gA==','1rzvkzdx',1,0,'',519,0,0),(13828,3166,6,116,0,'201.2.73.148',1149114963,1,0,0,1,1,0,'','Preciso gravar uma window ou dialog para um bitmap???','Olá\n\nEstou desenvolvendo um modulo de auditoria no meu software, e preciso gravar a janela em execução em um bitmap. Gostaria de saber se existe alguma função que possa copiar a janela e grava-la em bitmap.\n\n[]´s\n\n\nJoão Cezar\n<!-- e --><a href=\"mailto:joao.cezar@cultura.com.br\">joao.cezar@cultura.com.br</a><!-- e -->','',0,'gA==','212tlgrv',1,0,'',116,0,0),(13829,3139,20,49,0,'87.7.176.159',1149115620,1,0,1,1,1,1,'','','si ci stavo pensando già... però forse ho trovato in Vtaskbar supporta i jpg e png','',0,'gA==','29zm4op8',1,0,'',49,0,0),(13830,3068,20,49,0,'87.7.176.159',1149115821,1,0,1,1,1,1,'','','potresti comunque usare la classe Tevent e attaccarci la chiamata del telefono..la classe la puoi trovare in canalfive clock ---fammi un fischio se non l\'hai...\nQuesta classe suona ad una certa data e ora insomma fa da allarme....','',0,'gA==','1mskummy',1,0,'',49,0,0),(13831,3164,3,49,0,'87.7.176.159',1149115893,1,0,1,1,1,1,'','','use freeimage you can save to jpg or gif or another format','',0,'gA==','2qp9hdyz',1,0,'',49,0,0),(13832,3160,3,303,0,'72.199.41.171',1149116695,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Much simpler. The only drawback is that it alters the clipboard, if I\'m not wrong. \n\nI don\'t believe so. If cText is NOT passed then it pastes from the clipboard, but if cText is passed, then cText is used instead. Either way the clipboard is left as is.\n\nIt also handles numeric and date types in addition to string.\n\nJames','',0,'gA==','vnww2hai',1,0,'',303,0,0),(13833,3160,3,6,0,'87.1.198.68',1149116849,1,0,1,1,1,1,'','','Ops, you are right!\n\nEMG','',0,'gA==','3icwjrf6',1,0,'',6,0,0),(13834,3165,3,303,0,'72.199.41.171',1149116863,1,0,1,1,1,0,'','','I haven\'t used UE Studio, but with Workshop you create a custom control for TWBrowse.\n\nFor a box I would use the Group control. I presume UE Studio has that also.\n\nJames','',0,'gA==','2qfc5isj',1,0,'',303,0,0),(13835,3138,6,428,0,'200.45.74.34',1149118869,1,0,1,1,1,0,'','','Gracias por las Recomendaciones, efectivamente use la clase TFTP y me resulta excelente, pude resolver mi problema\n\nGracias a todos por la ayuda','',0,'gA==','3lef5c4e',1,0,'',428,0,0),(13836,2950,7,428,0,'200.45.74.34',1149119232,1,0,1,1,1,0,'','','Antonio, Gracias de todos modos ya logre resolverlo.\n\nSaludos\n\nMiguel','',0,'gA==','3pc4z55j',1,0,'',428,0,0),(13837,3167,6,203,0,'200.107.17.74',1149126814,1,0,1,1,1,1,'','ADS no reconoce estas instrucciones  AdsUseDictionary(.T.)','Estoy probando ADS con diccionario de datos y me da error en las funciones marcadas con *\n\n  rddRegister( \"ADS\", 1 ) //RRG 3.5.2001\n   rddsetdefault( \"ADS_CDX\" )  //RRG 3.5.2001\n   SET FILETYPE TO ADT \n   SET SERVER LOCAL\n   AdsLocking(.T.)\n*   AdsUseDictionary( .T. )\n   AdsRightsCheck( .F. ) \n* IF !AdsConnect60( \"\\FWH\\PRUEADS\\easysoft.add\", 7, \"adssys\", \"\" ) \n   MsgInfo( \"Error..\" ) \n   Quit \nendif \nporfa si alguien me da una mano\n\nAh. y que ventaja obtengo al utilizar ADS con .add\n\nGracias\n\n\nOscar','',0,'gA==','3i038lkj',1,0,'',203,0,0),(13838,3160,3,69,0,'70.50.138.239',1149128038,1,0,1,1,1,0,'','','Thanks James and Enrico.','',0,'gA==','i7515hn1',1,0,'',69,0,0),(13839,2950,7,2,0,'80.32.22.38',1149144563,1,0,1,1,1,1,'','','Miguel,\n\nTe importaría mostrarnos el código en un pequeño ejemplo para que le sirva así a otros usuarios ? Gracias.','',0,'gA==','1lk7m76z',1,0,'',2,0,0),(13840,2988,23,130,0,'141.51.32.24',1149149035,1,0,1,1,1,0,'','','Sylvio,\n\nlate answer, sorry, I was on holiday.\n\nI don´t understand what you want to do, what do you mean with \"line\" ? A graphical line or a browse line, or ... ?\n\ntabs are similar to folders or pages, you have normally to put other controls in it.\n\nYou can send me the project, I will try to help you\n\nStefan','',0,'gA==','3heew3qi',1,0,'',130,0,0),(13841,2988,23,49,0,'213.82.134.66',1149152539,1,0,1,1,1,1,'','','thanks\nI made something but I have many perplexities...\nI made a class on this i can insert symbols or images but i not know how i can save all into an one file...\nI must create many line as Browse lines \nif you go at  you can see what I wanted to create..\n\n<!-- m --><a class=\"postlink\" href=\"http://rbeditor.valleyfield.se/en/\">http://rbeditor.valleyfield.se/en/</a><!-- m -->\n\nbut tnhe author cannot translate it on italian language and in italy i must creare another roadbook with many symbols and this program not permise to add symbols','',0,'gA==','1nefs3ja',1,0,'',49,0,0),(13842,3168,7,292,0,'200.82.146.6',1149158670,1,0,1,1,1,1,'','Dudas','Antonio,\nColegas\n\nEs posible trabajar con controles en forma declarativa sin necesidad de utilizar recursos?\n\nMenu,Dialogos, Folders, Get, Say, Combobox, Meter, etc?\n\nejemplo: \n\n@ 0,0 say \" FiveWin\" OF oDlg\n\nExiste MDI?','',0,'gA==','3jo9e9j0',1,0,'',292,0,0),(13843,2985,4,240,0,'85.201.103.77',1149159218,1,0,1,1,1,1,'','','It still doesn\'t work  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nHere is what i did:\n- converted the DLL into a LIB following the directives from Antonio.\n- added the wrapper into my code\n\n- modified the Buildce.bat file to include the lib:\n              echo c:\\FWPPC\\GPS\\UTM\\wdgps_ce.lib  &gt;&gt; msvc.tmp\n  The resulting msvc.tmp file contains the line:\n              c:\\FWPPC\\GPS\\UTM\\wdgps_ce.lib  \n\n- compile and link\nI get the following errors:\n   Gps.prg(637) : error C2065: \'LatLon_WGS84_2_LT72\' : undeclared identifier\n   Gps.prg(671) : error C2065: \'LatLon_WGS84_2_UTM_NAD83\' : undeclared identifier\n\nI found that I probably did the DLL - LIB conversion badly as I did not specified the processor type. Then I changed the call by adding the /MACHINE:ARM parameter to it.\n\nBut I get the same result.\n\nWhat did I mis ?\n\nThanks for any help','',0,'gA==','1h4uo66g',1,0,'',240,0,0),(13844,3164,3,41,0,'200.87.67.10',1149164379,1,0,1,1,1,0,'','','Silvio\n\ndo you have some sample how I can use freeimage?\n\nregards\n\nMarcelo\n\n[quote=&quot;Silvio&quot;:3w104mtp]use freeimage you can save to jpg or gif or another format[/quote:3w104mtp]','',0,'gA==','3w104mtp',1,0,'',41,0,0),(13845,3169,6,586,0,'201.252.198.58',1149169789,1,0,1,1,1,1,'','BARLIB','Estoy utilizando desde hace tiempo BARLIB.\nMe surgio un pequeño problema al querer utilizar Impresora Laser, antes usaba a Injet (chorro tinta).\n\n	xCor := ::oPrn:Cmtr2Pix(nArriba,nIzq)\n	yCor := ::oPrn:Cmtr2Pix(nAbajo,nDerecha)\n\n	nLen := ::oPrn:Cmtr2Pix( 4, 4 )[1]\n\n	@ xCor[1], xCor[2] + (nLen/5) ean8 cCod of ::oPrn banner\n\nEl problema es que cuando imprime no el codigo de barra sino el codigo, los numero que se encuentran abaja, con Laser usa un FONT un poco mas grande.\nCreo que el codigo es este: linea 114 de BANNER.PRG\n\n    define font oFont name cFont of oPrInt size nWidth*5.6 , nLen*0.04 ;\n                nescapement if(lHorz,0,13500)\n\nAlguien resolvio esto??\n\nMuchas gracias','',0,'','3c5dnm5g',1,0,'',586,0,0),(13846,3170,6,171,0,'71.232.193.197',1149171098,1,0,1,1,1,0,'','Deberiamos de dejar de usar DBF?','Como hicimos con clipper, creen ustedes que ya es tiempo de dejar de usar el formato DBF y comenzar a usar el formato SQL en todas nuestras nuevas aplicaciones?\n\nQue futuro tiene DBF?\n\nPara nosotros, que no conocemos SQL, cual  seria nuestra mejor opcion\nA) Eagle\nB) Ado\nC) Mediator\nD) FscODBC\nE) TMySQL\nF) xHarbour Enterprise\n\nSaludos\n\n\n\nGeorge','',0,'','vifx3g6u',1,0,'',171,0,0),(13847,3171,3,171,0,'71.232.193.197',1149171214,1,0,1,1,1,0,'','Should us to STOP using DBF?','Dear forum\n\nAs we did with clipper, do you think that is time to stop using DBF database format and begin to use SQL Database format in our new applications?\n\nWhat future does have DBF?\n\nFor us the DBF users without SQL  knowledge, which is our best choice to use SQL?\nA) Eagle\nB) Ado\nC) Mediator\nD) FscODBC\nE) TMySQL\nF) xHarbour Enterprise\n\nRegards\n\n\n\nGeorge','',0,'','1pbaurjh',1,0,'',171,0,0),(13848,3171,3,343,0,'204.57.111.194',1149171814,1,0,1,1,1,0,'','','Personally I see at least a couple of reasons for continuing with some dbf implementations.\n\n1. Simple installs. Some programs do not need the extra setup involved for external data engines.\n\n2. I cannot see all of my users adding client server. \nIt is so much cheeper and easier for small companies to maintain dbf file setup.','',0,'','2t028ipv',1,0,'',343,0,0),(13849,3170,6,255,0,'200.67.175.250',1149172142,1,0,1,1,1,1,'','Re: Deberiamos de dejar de usar DBF?','[quote=&quot;George&quot;:39gj9ew9]Como hicimos con clipper, creen ustedes que ya es tiempo de dejar de usar el formato DBF y comenzar a usar el formato SQL en todas nuestras nuevas aplicaciones?\nQue futuro tiene DBF?\nPara nosotros, que no conocemos SQL, cual  seria nuestra mejor opcion\nA) Eagle\nB) Ado\nC) Mediator\nD) FscODBC\nE) TMySQL\nF) xHarbour Enterprise\nSaludos\nGeorge[/quote:39gj9ew9]\n\nDepende de que tipo de sistema vayas a desarrollar.\nPor ejemplo, yo tengo un sistema para consultas médicas, el cual\nse vende en caja y no requiere de mayor cosa mas que de .DBF,\nel implementarle tecnología MySQL sería \"complicarle\" un poco\nla existencia al cliente final (un doctor), ya que tendría que \nverificar varias cosas para el buen funcionamiento del sistema.\nEjemplo: que esté corriendo el servidor MySQL antes de iniciar\nel sistema, si por alguna razón se llega a caer tendria que revisar\neso mismo, etc etc etc\n\nAhora bien, si vas a desarrollar un sistema específico para una\nempresa en particular, yo optaria por MySQL, pero ahi ya tienes\ncontacto directo con el cliente, le das soporte y estas en constante\ncomunicación con ellos, incluso, puedes ponerte de acuerdo \nincluso con su gente de sistemas para afinar esa clase de detalles.\n\nEn fin, es solo mi punto de vista, espero haberte aclarado algunas\ncositas.\n\nPor cierto, dentro de tu lista de utilerias para accesar a SQL\nte faltó poner ODBC (nativo de windows) que es lo que yo\nuso.\n\nSaludos','',0,'gA==','39gj9ew9',1,0,'',255,0,0),(13850,3141,6,255,0,'200.67.175.250',1149172565,1,0,1,1,1,1,'','','Esto es sumamente extraño, hasta dondde yo sabia\nlos .RES era muy difícil que se corrompieran, dime\nhas intentado abrir ese .RES con el workshop???\no con el Visual C++ 6.0 ???\n\nSi no tienes el visual c++ 6.0 contáctame por \nmessenger.\n\nSaludos\n\njcso @ hotmail.com','',0,'gA==','3q09wukr',1,0,'',255,0,0),(13851,3125,6,255,0,'200.67.175.250',1149173200,1,0,1,1,1,1,'','Re: Control DTPICKER','[quote=&quot;dbzap&quot;:2hvnn4z4]Existe alguna posibilidad de manejar el control DTPICKER de la misma forma que el default de fechas actual?, es decir, digitar toda una fecha sin\"cambiarse\" al mes o al año con flechas?\nLo pregunto pues me gusta la apariencia del control pero es muy engorroso para los usuarios el manejo independiente de dia+mes+año.\nAgradecido de antemano[/quote:2hvnn4z4]\n\nDTPICKER tiene una propiedad que permite hacer el control\neditable, no la tengo a la mano, pero estoy seguro que alguien\nsabrá cual es.\nVeré si la encuentro.','',0,'gA==','2hvnn4z4',1,0,'',255,0,0),(13852,3138,6,586,0,'201.252.198.58',1149176015,1,0,1,1,1,1,'','','Yo estoy usando tFTP pero encontre problemas con versiones mas nuevas de FWH o xHarbour no pude identificar quien ocaciona el problema.\nAsi que todo lo que consierne a tFTP utilizo las versiones:\n\nC:\\eduardo\\fwh\\ftp&gt;make.exe -fmakex.dat\nMAKE Version 5.2  Copyright   1987, 2000 Borland\n        c:\\xHarfw24\\bin\\harbour.exe -p -n -m -es2 -gc0 -i.;c:\\fw24h\\include;c:\\x\nHarfw24\\include -d__HARBOUR__ -dSYSTEMA .\\SendFtp.prg -o.\\SendFtp.c\nxHarbour Compiler build 0.73.0 (SimpLex)\nCopyright 1999-2002, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'.\\SendFtp.prg\' and generating preprocessed output to \'.\\SendFtp.ppo\'.\n..\nLines 752, Functions/Procedures 27\nGenerating C source output to \'.\\SendFtp.c\'... Done.\n        c:\\bcc55\\bin\\bcc32.exe -c -O2 -Ic:\\xHarfw24\\include;c:\\bcc55\\include -oo\nbj\\SendFtp.obj .\\SendFtp.c\nBorland C++ 5.5.1 for Win32 Copyright   1993, 2000 Borland\n.\\SendFtp.c:\n        c:\\bcc55\\bin\\ilink32.exe -Gn -aa -Tpe -s \n\nEspero te sea util','',0,'gA==','o6xxp4e6',1,0,'',586,0,0),(13853,3172,3,34,0,'68.4.154.81',1149177913,1,0,1,1,1,1,'','ADSCDX 9006: HB-xgrab memory allocation error','Two of my clients have suddenly started experiencing a problem that generates an ADS error 9006 ( cannot allocate memory ) with HB_xgrab.\n\nI cannot replicate, nor can I create a small code sample.  The problem does not create an error.log file with this problem so I don\'t know what code triggers it.\n\nI do know that it happens across two different versions of xBuilder ( March 06, and October 05 ) , and their appropriate versions of FWH.\n\nThe software on the October release has been running since December without a problem and suddenly this error started occuring this morning.  \n\nThe installation with the March release actually started having problems last week with memory related issues using the older release, then upgraded to the newer version and the problem increased.\n\nThe problem will occur when trying to run an area of the program where multiple files are opened and data is stored in memory for display on a series of folder pages ( FWH ).\n\nThe software uses ADS, but one system uses LOCAL server and the other is using CLIENT SERVER.\n\nOther clients with the same versions do not yet experience any problems.\n\nIt is my guess that either a piece of intrusive software is at play, but nothing shows up in testing, or a new security patch from Microsoft auto installed that may now conflict with xHarbour memory management.\n\nHas anyone seen any evidence of this error recently, and does anyone have any clues.\n\nTim','',0,'gA==','wrl8uf14',1,0,'',34,0,0),(13854,3170,6,586,0,'201.252.198.58',1149178108,1,0,1,1,1,1,'','','Si vas a trabajar en red de area local creo que la mejor opcion es continuar con DBF.\nAhora bien, si tenes pensado que tu sistema sea para varias sucursales, es una muy buena opcion MySQL.\n\nTodo depende de lo que tengas pensado para el futuro.\nDe ultima armas un server MySQL en la intranet. \nTe va a llevar un mes, que es lo que me llevo a mi armar todo. Recopilacion de datos.Lectura de un buen manual de administracion.\nEjercitarte y bueno, aplicar lo aprendido.\nPodras mantener un server MySQL en tu red LOCAL.\n\nY cuando tengas las implementacion del server en la Internet, es solamente cambiar IP, usuario y Pass.\n\nEsto es si vas a armar un sistema nuevo.\n\nAun asi, yo estoy usando un mix.\nNo creo en la necesidad de tener la ultima tecnologia a un costo innesesario.\nA lo que ya tengo adapto y uso las nuevas tecnologias aplicadas a Internet, sin la necesidad de pasar por tirar todo el trabajo de años.\n\nEn mi caso particular solo tengo una DBF conflictiva para el manejo entre casas. ARTICULOs\n\nArme con FWH+xHar 0.99.3 una aplicacion ABM.\nAsi puedo ingresar desde cada casa a modificar.\nSigo con los sistemas de facturacion clipper dos puro y duro.\nAsi que la misma aplicacion FWH corre un proceso de sincronizacion para las DBFs de las casas.\nLo unico que agrego un campo para cada casa ej.:\nCampo a1, para la suc1 y le coloco un 1, cuando el articulo es modificado\nLuego la sucursal consulta (corte SQL) de los articulo que tengan a1=1.\nLo bajo y actulizo la DBF a nivel registro. \nSimple y nada complicado.\nUtilizo tMySQL nativa provista por xHarbour, anda de lujo!!\n\nAun asi, te comento que incursione en el manejo de HTML DINAMICO por medio de server WEB que lo instalas en una maquina tuya, con NO-IP.\nUsando CLIXNET de David Macias de Mexico, una excelente alternativa. \n\nPuedo generar una pagina Web y mostrar el contenido de Cuentas Corrientes de Clientes, que estan en DBF con CDX cargadas y modificadas con Clipper DOS. \nEntras con cualquier Browse (navegador) Web y listas la cuenta corriente.\nTrabaja contra la seguridad de mi sistema y con las mismas claves de usuarios locales. Le paso al EXE los parametros con Usuario y Pass, luego de hacer la validacion pertinente contra las claves locales, encriptadas en DBFs. Si no corresponde, genera una salida HTML con un mensaje de ERROR, con nada de informacion.\nLo que hago es ejecutar mi EXE desde el server Web, y en vez de generar la salida impresora/pantalla nomales, genero una salida con texto HTML, el cual mostrara al usuario, solo con las cosas que deceo mostrar y nada mas que eso.\nNecesitaras aprender HTML. \n\nBueno en definitiva hay muchas cosas para hacer y no hace falta tirar nuestro trabajo de años.\n\nEspero te sean utiles estos comentarios.\n\nUn abrazo','',0,'gA==','1n1b9pf6',1,0,'',586,0,0),(13855,3173,7,428,0,'200.45.74.34',1149178224,1,0,1,1,1,0,'','Graficos en FWPPC','Hola amigos del foro,\n\nNecesito mostrar un simple grafico X/Y para graficar puntos unidos por lineas y que ademas grafique una linea de tendencia.\n\nQue recursos de FWPPC puedo utilizar para realizar este tipo de grafico ?\n\nCualquier sugerencia sera bienvenida.\n\nGracias\n\nMiguel','',0,'gA==','3pfk3szw',1,0,'',428,0,0),(13856,3174,7,428,0,'200.45.74.34',1149178904,1,0,1,1,1,0,'','COMUNICACION POR PUERTO INFRAROJO','Hola amigos,\nQuiero comentarles sobre una aplicacion que estoy desarrollando, en la cual utilizo un Pocket Pc que captura datos enviados por un instrumento via puerto serial RS-232, el problema es que los pocket actuales no traen ningun conector que permita unir por cable un puerto RS232 de un instrumento con el Pocket, una de las formas que logre hacerlo es utilizando un dispositivo intermedio que se conecte via puerto serial RS232 con dicho instrumento y luego retransmite los datos capturados mediante el protocolo IRDA (puerto infrarojo) al pocket quien lo captura sin problema por su puerto homologo y logro administrar los datos capturados, con FW. La tarjeta de comunciaciones que convierte RS232 a IRDA la fabricamos nosotros mismo y funciona de maravillas. \nEl problema que estoy teniendo es que el Pocket actua como CLIENTE y la tarjeta de comunicaciones tambien actua como CLIENTE lo que impide el reconocimiento de los dispositivos para entablar el vinculo, esto no pasa cuando enfrento el pocket al puerto IRDA de un Notebook o Pc ya que este ultimo actua como Master y establece el vinculo para luego poder comunicarse.\nLo interesante de esto es que encontre una informacion que indica como lograr el reconocimiendo de hardware y que el pocket actue como master detectando otros dispositivos clientes, pero me encuentro con el problema que esta en lenguaje C y ademas de los fuentes tiene un ejemplo compilado, y yo de C se poco y nada, por lo tanto consulto si alguien puede ayudarme a que el programita C pueda desglocarlo y anexarlo a un programa FIVEWIN.\n\nSi alguien esta interesado puedo enviar la informacion y los fuentes.\n\nSaludos\nMiguel','',0,'gA==','37yp16dj',1,0,'',428,0,0),(13858,2950,7,428,0,'200.45.74.34',1149180050,1,0,1,1,1,0,'','','Si Antonio, disculpa, es que se me paso.\n\nEl codigo es  mas simple de lo que parece y resulta de maravillas.\n\n#include \"FWCE.ch\"\n#include \"WINAPI.ch\"\n\nStatic oWnd\n\nFunction Main()\nlocal oBmp\n\nDEFINE WINDOW oWnd TITLE \"GRILLA DE PERFORACION\"; \n         MENU BuildMenu()\n\n@ 1, 1 BITMAP oBmp  FILENAME Curdir() + \"\\malla.bmp\" SIZE 230,255 SCROLL of oWnd\n\nACTIVATE WINDOW oWnd\n\noBmp:End()\n\nReturn Nil\n\n//------------------------------------------\nFunction BuildMenu()\n//------------------------------------------\n\nLocal oMenu\n\nDEFINE oMenu RESOURCE 102\n  REDEFINE MENUITEM ID 100 of oMenu ACTION .....\n  REDEFINE MENUITEM ID 110 of oMenu ACTION oWnd:End()\n\nReturn oMenu\n\n\n\nEspero que les sirva\n\nSaludos','',0,'gA==','3o0szr35',1,0,'',428,0,0),(13859,3159,3,264,0,'200.91.3.10',1149182249,1,0,1,1,1,0,'','','Here is my litle contribution, same like James its come with my from years ago.\nThe diferencie....mmmm...create the file when found a file-name who doenst exists.\n\n[code:3l3pj8ab]\n//-------------------------------------\nFunction TEMPFILE&#40; lInicio, cDefa &#41;\nLocal file_name, counter, extension\nLocal hFile\nStatic cDirectorio\nDEFAULT lInicio &#58;= &#46;F&#46;            // inicializa dir temporal?\nIf lInicio\n   cDirectorio &#58;= cDefa          // establece directorio temporal\n   Return NIL                     // retornar sin crear\nElse\n   file_name &#58;= \'\'\n   extension &#58;= \'DBF\'\n\n   For counter &#58;= 1 TO 9999\n       file_name &#58;= \'TEMP\' + PADL&#40;counter, 4, \'0\'&#41; + \'&#46;\' + extension\n       If !File&#40; file_name &#41;\n          If &#40; hFile &#58;= fCreate&#40; cDirectorio+&quot;\\&quot;+file_name &#41; &#41; &lt;&gt; -1\n             FClose&#40; hFile &#41;\n             EXIT\n          EndIf\n       EndIf\n   Next\n\n   Return Left&#40; file_name, 8 &#41;\n\nEndIf\nReturn NIL\n[/code:3l3pj8ab]','',0,'AIA=','3l3pj8ab',1,0,'',264,0,0),(13860,3169,6,264,0,'200.91.3.10',1149183280,1,0,1,1,1,0,'','','Eduardo.\nSerias tan amable de facilitarme algun ejemplo ( prg chiquito ) para imprimir codigos de barra?\nYo uso en la actualidad fwh+hb y requiero imprimir un codigo de barras en una nota de venta y no he tenido tiempo para probar e investigar ( esa es la verdad ).\nPodrias ayudarme con esto.\nSaludos\n\nJulio Gonzalez V.\n\nPD:intenté contactarte por msn pero no parecias conectado.','',0,'AIA=','c3eclmix',1,0,'',264,0,0),(13861,3170,6,171,0,'71.232.193.197',1149185464,1,0,1,1,1,0,'','','Yo creo que los DBF  son rapidosy economicos y que se puede hacer con los DBF  todo lo que se puede hacer con los otros formatos que usan el SQL.\n\nMi preocupacion es que los DBF carecen de una tecnologia Client/Server nativa o suplido por una tercera parte que no sea tan costosa como la de Advantage Database Server.\n\nTomemos por ejemplo aplicaciones que tenemos en uso por mas de 5 año, para negocios pequeños que no pueden pagar por tecnologia Client/Server como la de Advantage, y que tienen cientos de miles de records ( o quizas millones) y que esta en una red local con tres computadoras conectadas \"peer to peer\". Si hacemo un Browse todos esos records van a ser cargados a la terminal que lo llama y manipulados directamente en la base de datos que esta en una de las computadoras de la red local. Ademas de la lentitud tambien existe el problema de la posible corrupcion de indices o peor del archivo que contiene los cientos de miles  de records.\n\nLa unica solucion economica que veo por el momento es pasarnos a SQL.\nDe ahi mi pregunta de si no es tiempo de que no olvidemos de los DBF de una vez por toda y empezemos a trabajar con SQL, que nos permite usar la tecnologia CLIENT/SERVER de forma economica.\n\n\nGeorge','',0,'AIA=','199i0sf3',1,0,'',171,0,0),(13862,3170,6,37,0,'201.240.88.166',1149190245,1,0,1,1,1,1,'','','Mencionas varias herramientas para conectar con Bases de Datos, te menciono una adicional que es la que usamos aca y va muy bien, cambiando poquisimo codigo ya tienes acceso total a MySQL (inclusive te permite crear Store Procedures y demas) :\nProducto : SQLLIB\n<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->\nTiene version Free, Lite y Advanced\nSaludos\n\nEnrrique Vertiz Pitta','',0,'AIA=','26r9a7zj',1,0,'',37,0,0),(13863,3170,6,171,0,'71.232.193.197',1149191470,1,0,1,1,1,0,'','','Veo que tenemos mas opciones para usar SQL que la que yo pense en principio, a ver:\n\nA) Eagle \nB) Ado \nC) Mediator \nD) FscODBC \nE) TMySQL \nF) xHarbour Enterprise \nG) ODBC\nH) SQLLIB\n\nPero mi primer interes no es usar SQL, sino disponer de una tecnologia CLIENT/SERVER nativa o de tercera parte y que no se costosa como la de advantage, que nos ayude con la integridad de la data. Hasta ahora solo usando SQL conseguimos eso.\n\nEsta pregunta, de que si deberiamos dejar de usar DBF, la escribi tambien en el foro xHarbour y recibi una respuesta muy interesante de parte del guru de la programacion  y creador de los indices cdx de [x]Harbour el señor Przemyslaw Czerpak. El dice que esta trabajando en NETRDD, (pero en su tiempo libre y que no sabe cuando lo terminara) que parece le dara la funcionalidad CLIENT/SERVER de forma nativa a [x]Harbour + DBF, si estoy en lo cierto y Przemyslaw termina el NETRDD, con esto se  solucionara el ultimo obstaculo que tiene los DBF para convertirse euna base de datos respetada.\n\nSaludos\n\n\nGeorge','',0,'','234smo47',1,0,'',171,0,0),(13864,3130,6,54,0,'201.98.189.175',1149194878,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:19pl4m19]William,\n\nAquí tienes un ejemplo en diálogo:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01dba93849/toolbar4.prg.html\">http://hyperupload.com/download/01dba93 ... 4.prg.html</a><!-- m -->[/quote:19pl4m19]\n\nAntonio,\n\nGracias por contestar.\n\nY gracias por el ejemplo\n\nSaludos','',0,'gA==','19pl4m19',1,0,'',54,0,0),(13865,2950,7,2,0,'80.32.22.38',1149195696,1,0,1,1,1,1,'','','gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2sx1nih5',1,0,'',2,0,0),(13866,3171,3,171,0,'71.232.193.197',1149195808,1,0,1,1,1,0,'','','Gale\n\nMy first concern is about DATA INTEGRITY. We can get this using CLIENT/SERVER technology only,  and in order to get CLIENT/SERVER we need to use SQL (Advantage DB is too expensive for small business to afford)\n\nIn the xHarbour forum I receive the following post from Przemyslaw, the programmer xHarbour guru.\n\n\n&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;\nOn Thu, 1 Jun 2006 13:55:54 -0400,\nGeorge Abinader &lt;georgeabinader@msn.com&gt; wrote:\n&gt; Przemyslaw\n&gt; I like DBF. I am using it from clipper 87.\n&gt; My first concern is when I have to do a  Browse in a 500,000 records file.\n&gt; I learned that SQL only return a few rows, but DBF return the 500,000 \n&gt; RECORDS.\n\nThe result of SQL query can be few records but RDBMS have to collect\nit first from 500\'000. It can uses some optimizations technics to\navoid linear scanning of 500\'000. The most common optimization\nused by RDBMS is parsing the filter expression and for the subexpressions\nwhich are indexed and using indexes to reduce size of the set with possible\nvalid records and then making linear checking only for the records\nwhich still exists in record set. Exactly the same is done by MachSix,\nClipMore, xHarbour RMDBFCDX/RMDBFNTX (they support all MachSix m6_*()\nand ClipMore cm*()/rl*() functions) and ADS when you are setting\nfilter to table or when you call explicitly call a function to create\nsuch record set, f.e.: rlNewQuery( cFilter ). You do not need RDBMS\nwith SQL for it.\n\n&gt; Also we have the problem with possible index and file corruption \n&gt; because the DBF is working directly with the database instead of a copy like \n&gt; SQL.\n\nNot SQL but some [R]DBMS which may use SQL or not - it doesn\'t matter.\nFarther not all [R]DBMS have to do that. It depends on implemented\ntransaction model and transaction isolation level. Only few [R]DBMS\n(usually using some additional OS/hardware support) can cleanly revert\ntransactions when the server crashes. Most of them can cleanly revert\nonly transactions not committed by clients f.e. due to client computer\ncrash.\nYou can reach the same functionality porting your xHarbour application\nto Linux and running them remotely inside \'screen\' like tool. Even if\nyour station crash you can connect to the server from other computer\nand continue your job on the same instance of program you were working\nbefore.\nYou do not not need [R]DBMS for that.\nThere is yet another reason to use transactions. Bugs in application\nwhich which may interrupt execution during update so logical data\nstructures can not be updated correctly and probably I will think\nabout adding some transaction mechanism to native RDDs.\n\n&gt; I think that the advantage that SQL have over DBF is the CLIENT/SERVER \n&gt; technology.\n\nNot SQL. SQL is a language to access data stored in database not\ndatabase format or database motor system.\n\n&gt; But the problem is that we don\'t have a Client/Server for DBF. I \n&gt; know about the ADVANTAGE DATABASE SERVER but it is too expensive for an \n&gt; apllicaction with only two or three computers in a local network\n&gt; What other options do we have?\n\nPort it to Linux. Your whole application will run on the server side.\n\n&gt; Are there any Client/Server for DBF other than Advantage?\n\nI do not know. Maybe in this year I\'ll finish NETRDD which should\nhave such functionality but it strictly depend on spare time I will\nhave. I cannot promise any terms or deadlines. It\'s even possible\nthat I\'ll never finish it.\nBut I created USRRDD which allows to create RDDs at .prg level.\nI should commit it in few days. Maybe someone implement RDD with\nremote data access using RPC or other network communication methods\nwhich exists in xHarbour.\n\nbest regards,\nPrzemek\n\nps. I do not want to say that [R]DBMS are wrong or not worth to use\n    because it will not be true. Just simply people expects some\n    amazing functionality from [R]DBMS basing on some myths about\n    them which are very often far from true.\n\n&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;&gt;\n\nRegadrs\n\n\nGeorge','',0,'','3prarkbl',1,0,'',171,0,0),(13867,3059,6,579,0,'148.223.141.242',1149196684,1,0,1,1,1,1,'','Resumen al 01/Junio/2006','Amigos, actualizando el censo que se me ocurrio hacer gracias a sus respuestas, al 31 de Mayo del 2006 estamos así: \n\nHemos participado: 31 FiveWineros.\nEl bebe tiene: 27 años y el abuelo: 60\nSegún el rango de edades estamos así:\n\nEdad:  FiveWineros \n21-30:  3 \n31-35: 10 \n36-40:  6 \n41-45:  4 \n46-50:  6\n51&gt;&gt;:  2\n\nEdad promedio: 39.2','',0,'','guevet1c',1,0,'',579,0,0),(13868,3059,6,171,0,'71.232.193.197',1149197141,1,0,1,1,1,0,'','','Rodolfo\n\nYo tengo 52 años, pero no me doy por enterado.\n\nDe todos modo sube la edad promedio mas de 40 <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSaludos\n\n\nGeorge','',0,'','8e9cdb1b',1,0,'',171,0,0),(13869,3130,6,54,0,'201.98.189.12',1149198670,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:14ns75tp]William,\n\nAquí tienes un ejemplo en diálogo:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01dba93849/toolbar4.prg.html\">http://hyperupload.com/download/01dba93 ... 4.prg.html</a><!-- m -->[/quote:14ns75tp]\n\nAntonio,\n\nNo logro hacerlo funcionar.\n\nHe creado el recurso de los botones de 32x32 y el dialogo, se lanza el ejecutable, pero sin crear la toolbar.\n\nPor otro lado, el panel no viene incluído, se podrá?\n\nSaludos','',0,'gA==','14ns75tp',1,0,'',54,0,0),(13870,3176,6,383,0,'201.230.247.211',1149221913,1,0,1,1,1,0,'','TReBar','He codificado, según el ejemplo.\n\n\n   local oWnd, oReBar, oToolBar, oPanel, oBtn1, oFolder, oToolBar2\n   local oImageList\n\n   DEFINE WINDOW oWnd TITLE \"Testing rebars and toolbars\" ;\n      MENU BuildMenu()\n\n   oReBar = TReBar():New( oWnd )\n\n   oPanel := TPanel():New( 0, 0, 75, 300, oReBar )\n\n   oImageList = TImageList():New()\n\n   oImageList:AddMasked( TBitmap():Define( , \"new2.bmp\", oWnd ),;\n                         nRGB( 255, 0, 255 ) )    \n   oImageList:AddMasked( TBitmap():Define( , \"open2.bmp\", oWnd ),;\n                         nRGB( 255, 0, 255 ) )    \n   \n   oImageList:Add( TBitmap():Define( , \"icon.bmp\", oWnd ),;\n                   TBitmap():Define( , \"icoMask.bmp\", oWnd ) )\n\n   oToolBar = TToolBar():New( oPanel, 33, 33, oImageList )\n   oToolBar:nLeft = 5\n   oToolBar:AddButton( { || MsgInfo( \"New\" ) }, \"New\" ) // , \"new file\" )\n   oToolBar:AddButton( { || MsgInfo( \"Open\" ) }, \"Open\" )\n   oToolBar:AddButton( { || MsgInfo( \"three\" ) }, \"three\" )\n   oToolBar:AddSeparator()\n   oToolBar:AddButton( { || MsgInfo( \"four\" ) }, \"four\" )\n\n   oReBar:InsertBand( oPanel )\n\n   @ 10, 2 FOLDER oFolder PROMPTS \"One\", \"Two\", \"Three\" SIZE 400, 62\n\n   oToolBar2 = TToolBar():New( oFolder:aDialogs[ 1 ],,, oImageList )\n   oToolBar2:AddButton( { || MsgInfo( \"pointer\" ) }, \"pointer\" )\n   oToolBar2:AddSeparator()\n   oToolBar2:AddButton( ,\"label\" )\n   oToolBar2:AddButton( ,\"button\" )\n\n   oReBar:InsertBand( oFolder )\n\n   DEFINE STATUSBAR OF oWnd PROMPT \"Rebars and Toolbars test\"\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n   \n   oImageList:End()\n\nPero no se visualizan los Bitmaps a pesar que dichos archivos existen. Gracias por su respueta\n\nFwh 2.5 Noviembre for Xharbour 0.99.2','',0,'','29otzjsj',1,0,'',383,0,0),(13871,3170,6,72,0,'201.114.201.45',1149225739,1,0,1,1,1,0,'','','Intentando seguir el hilo creo que el problema siempre sera el costo y finalmente alguién lo pagará, el cliente o nosotros como desarrolladores (por poner opciones).\n\nHe visto que nosotros como desarrolladores tenemos una gran capacidad de análisis para resolver problemas o dirigir proyectos, pero no sabemos cobrar (ese es mi caso).\n\nSi el cliente tiene capacidad de pago para cubrir Cliente/Servidor que lo pague y con gusto le hago el desarrollo (aunque yo no meta las manos); sino, le seguire ofreciendo mis sistemas que con pocos requerimientos pueden ejecutarse prácticamente en cualquier equipo.','',0,'','2ujla6dm',1,0,'',72,0,0),(13872,3130,6,2,0,'87.218.146.120',1149228095,1,0,1,1,1,1,'','','William,\n\nQue build de FWH estás usando ?','',0,'','1r3dmwwn',1,0,'',2,0,0),(13873,3176,6,2,0,'87.218.146.120',1149228222,1,0,1,1,1,1,'','','Antonio,\n\nAl crear el objeto ImageList te falta especificar el tamaño de los bitmaps:\n\noImageList = TImageList():New( 32, 32 )\n\ny los bitmaps tienen que tener ese tamaño.','',0,'','5cp4dw69',1,0,'',2,0,0),(13874,3172,3,2,0,'87.218.146.120',1149228551,1,0,1,1,1,1,'','','Tim,\n\nThe problem you describe is very specific and it looks as a xharbour ADS RDD issue.\n\n&gt; ADS error 9006 ( cannot allocate memory ) with HB_xgrab. \n\nYou could create a log file from such ADS call, so when the error happens then you will know what memory amount is requested to be allocated.','',0,'','2x34n1rd',1,0,'',2,0,0),(13875,3177,3,160,0,'210.212.142.6',1149228954,1,0,1,1,1,0,'','How to suppress Grand Total in Report Class ?','Dear All,\n\nI want to page Pagewise Total but not Grand Total ? How can I achieve it ?\n\nI am printing Report - Groupwise Pagewise. So printing Grand total on last group has no meaning.\n\nHow can I suppress Grand Total only ?\n\nTIA\nMilan.','',0,'','xtgpsryn',1,0,'',160,0,0),(13876,3171,3,239,0,'219.136.111.209',1149231033,1,0,1,1,1,0,'','','DBF:\n 1. cdx/ntx often corrupted,dbf often damaged .\n 2.exe and dbf file place in same visialble drivers, dbf files can be easily deleted by mistake.\n 3. not direct support internet/ADSL\n 4. no forerign key , basic data setting may be modified by  mistake.\n\nTmysql +mysql5.0  , direct TCP/IP/C++ API support \n\n  1. 3 years ,there is 0 damaged record.\n  2. no longer worry of cdx/ntx/dbf damaged .no longer need reindex !\n  3. support internet/ADSL as lan , without extra files nor settting.especially for remote use and maintian.\n  4. easy to  install, backup/resotre data ,build in app exe\n  5. great reduce prg code programe under SQL(a large report may be replaced by  a SQL ).also with xbase dbf use ,odb:qty:=10,odb:save(),odb:skip(1)\n  6.nerver worry of no index key create, set order to / where failure.\n  7.add index/ modify table column(width/type), backup without dbf must every user close.\n  \n   sampes: <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sampel1.prg\">http://www.xtech.com.cn/down/sampel1.prg</a><!-- m -->\n                <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sample2.prg\">http://www.xtech.com.cn/down/sample2.prg</a><!-- m -->\n      enhanced tmysql:  <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/mysql.c\">http://www.xtech.com.cn/down/mysql.c</a><!-- m -->\n                                 <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/mysql.ch\">http://www.xtech.com.cn/down/mysql.ch</a><!-- m -->\n                                 <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/tmysql.prg\">http://www.xtech.com.cn/down/tmysql.prg</a><!-- m -->\n\nShuming Wang','',0,'','nqn13yh3',1,0,'',239,0,0),(13877,2988,23,130,0,'141.51.32.24',1149235959,1,0,1,1,1,0,'','','It´s a quite difficult task you have to do.\n\nOne solution could be to adapt an existings browse class to fit your needs. \n\nMaybe TsBrowse sis the most suitable class for this. You have the lines alreeady there and you can change the height of the lines, two colums, on the left side you put a memoedit for the text and on the right side you can insert the images.\n\nIt´s just a first idea, there surely are other solutions, eg. scrollable diaglogs with static controls, to simulate a browse.\n\nStefan','',0,'','2q321qq7',1,0,'',130,0,0),(13878,3168,7,138,0,'212.145.203.73',1149238667,1,0,1,1,1,1,'','','Juan:\n\nLas aplicaciones para pocket son tremendamente simples, como les explique en el curso, no esperen meter toda la gestion contable en un PPC porque no fue diseñado para eso.\n\nTodas las aplicaciones en PPC puede hacerse como MDI sin embargo dado el tamaño de la pantalla, una SDI facilita muchisimo las cosas.\n\nPor otro lado, claro que se pueden hacer los controles con @ renglon, columna.','',0,'','2hv2af14',1,0,'',138,0,0),(13879,3174,7,2,0,'87.218.146.120',1149239036,1,0,1,1,1,1,'','','Miguel,\n\nPon los fuentes en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y copia aqui el link de descarga, y las revisaremos. gracias.','',0,'','1rk46u5e',1,0,'',2,0,0),(13880,3172,3,138,0,'212.145.203.73',1149239087,1,0,1,1,1,1,'','','Tim:\n\nThat problem happends with DBF with memofields created with Clipper, SixDriver or Comix.\n\nThe problem is with the memosize block, which is not totally compatible with DBFCDX original format.\n\nThe 3rd. parties create the memo field with a size of 16 bytes, however, with the \"REAL\" FoxPro DBFCDX, the memo field should always been a 64 bytes long.\n\nHow to solve the problem:\n\nYou will need to create a brand new structure using the ARC tool.\n\nCreate a fresh structure with memofields with a memoblock size of 64 (default).\n\nAfter creating the new empty dbf, using CLIPPER, (you read it, CLIPPER) open the new created DBF, Clipper will open it without any problem, and then, using an APPEND FROM, import the data from the old database into the new created structure.\n\nIs very important that you create the new structre with ARC or using a xHarboour program.','',0,'','2gs3ldym',1,0,'',138,0,0),(13881,3172,3,2,0,'87.218.146.120',1149239233,1,0,1,1,1,1,'','','Rene,\n\nYou should report this issue to Przemek as many users may face the same problem. Thanks.','',0,'','2xlxas37',1,0,'',2,0,0),(13882,3170,6,24,0,'80.37.55.44',1149243139,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:2eom06gw]Veo que tenemos mas opciones para usar SQL que la que yo pense en principio, a ver:\n\nA) Eagle \nB) Ado \nC) Mediator \nD) FscODBC \nE) TMySQL \nF) xHarbour Enterprise \nG) ODBC\nH) SQLLIB\nGeorge[/quote:2eom06gw]\n\nBueno, lo que tu estas viendo es para uno en concreto, MySql.\nDependiendo que motor quieras usar, tendras mas o menos.\nPor ejemplo, Condor1, de Manu Exposito, te permite \'abstraer\' sobre\nque motor de bases de datos vas a usar, y pordras con las mismas\nclases, acceder al que tu quieras.\n\n\n[quote=&quot;George&quot;:2eom06gw]\nPero mi primer interes no es usar SQL, sino disponer de una tecnologia CLIENT/SERVER nativa o de tercera parte y que no se costosa como la de advantage, que nos ayude con la integridad de la data. Hasta ahora solo usando SQL conseguimos eso.\nGeorge[/quote:2eom06gw]\n\nAparte de ADS, dime otra que no sea SQL.\nUsando SQL, vas a tener acceso y/o vas a poder acceder a cualquier cosa\npor la RED.\nDime que Proveedor de Hosting , te ofrece ADS, ninguno.\nO te lo montas tu o nada, pues para eso puedes hacer CGI, sin mayores\nproblemas contra DBFs.\n\n\n[quote=&quot;George&quot;:2eom06gw]\nEsta pregunta, de que si deberiamos dejar de usar DBF, la escribi tambien en el foro xHarbour y recibi una respuesta muy interesante de parte del guru de la programacion  y creador de los indices cdx de [x]Harbour el señor Przemyslaw Czerpak. El dice que esta trabajando en NETRDD, (pero en su tiempo libre y que no sabe cuando lo terminara) que parece le dara la funcionalidad CLIENT/SERVER de forma nativa a [x]Harbour + DBF, si estoy en lo cierto y Przemyslaw termina el NETRDD, con esto se  solucionara el ultimo obstaculo que tiene los DBF para convertirse euna base de datos respetada.\nGeorge[/quote:2eom06gw]\nTendras el mismo problema, que te tendras que montar servidores por\ntu cuenta.\nLa verdad, si tenemos ya soluciones probadas, como SqlServer, PostGree, FireBird, MySql, Oracle, etc.... el intentar usar algo como NETRDD, que me parece cojonudo que existe, pero creo que si quieres CLIENTE/SERVIDOR, usar cualquiera que te menciono, saldras ganando.\n\nYo recien empiezo tambien a usar SQL, y lastima de no haber empezado hace años con ello, la verdad, es otra manera de pensar y programar, pero eso si, si eres de esos que piensa que un Browse se tiene que comer 500.000 registros, pues mal vamos. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nQue los browses de clipper, NO SE TRAEN los 500.000 como he oido por ahi, no señor, se pinta a medida que se mueve el puntero, por eso es rapido, nada mas.\n\nEso si, creo mas aceptado APRENDER de verdad a usar SQL, no medio parches tipo RDDSLQ, que si bien cumplen su funcion para que no retoques codigo, el optimizar y preguntar al server, es un arte, y no lo\npuedes hacer que \'algo\' lo haga por ti.\n\nSuerte, y ya iras contando.','',0,'gA==','2eom06gw',1,0,'',24,0,0),(13883,3178,6,24,0,'80.37.55.44',1149243368,1,0,1,1,1,1,'','Wikipedia de xHarbour','Amigos, no se si sabran que hace tiempo empece a publicar informacion \nsobre xHarbour en una wikipedia.\n\nRecien he publicado un articulo de Sebastian sobre las tablas de dispersion y su uso en xHarbour.\n\n[url:31i56n1k]http&#58;//xharbour&#46;wiki&#46;mailxmail&#46;com/hash[/url:31i56n1k]\n\nRecordad que TODOS estais invitados a publicar, y entre todos podemos\nesforzarnos para que los que vienen por detras tengan mas informacion de la que tuvismos nosotros.','',0,'EA==','31i56n1k',1,0,'',24,0,0),(13884,3168,7,292,0,'200.82.146.6',1149243803,1,0,1,1,1,1,'','','René,\n\nMuchas gracias por tu sabia respuesta.\nLa próxima Semana estare tramitando la compra de la licencia para iniciar el desarrollo del sistema de pedidos. \n\nPosiblemente será con dialogos.\n\nPD: Luis me comentó lo productivo y agradable de su viaje.','',0,'EA==','1g8piubx',1,0,'',292,0,0),(13885,3145,6,24,0,'80.37.55.44',1149243809,1,0,1,1,1,1,'','','[quote=&quot;Paco Garcia&quot;:1nrcuzpx]Gracias por estos enlaces pero lo que realmente necesito es hbzip.lib que esta en las contribuciones.[/quote:1nrcuzpx]\n\nPaco, no estoy seguro, pero me parece que hbzlib solamente existe en xHarbour, y ademas, es una puta locura usar esta libreria fuera\nde los compiladores de MSV o Borland C.\n\nNo se, pero seria interesante dotarse de otra libreria, como zlib, que creo que es LGPL.\n\nYo estoy parado tambien por la culpa de esta libreria con Mingw, que dicen que funciona, pero yo he sido INCAPAZ de que funcione.\n\nAdemas, los de xHarbour.com, le da por cambiar el nombre a las cosas , y aunque COMERCIALMENTE se llama ziparchive, tiene los nombres diferentes, pero no deja de ser la hbzlib, alucinante, pero cierto.\n\nEl motivo lo desconozco, pero... de momento...\n\nY si, yo me pase a xHarbour por el tema de que hay mas contribuciones y soluciones a nuestros problemas, porque , no solamente del compilador vive la gente, hay muchas cosas alrededor que hace que valga la pena \nusar xHarbour, con Harbour, eso si, tendras un bonito compilador, pero nada mas. ( y mira que hasta hace muy poquito usaba Harbour ), pero\nme meti con sockets y demas historias, y el unico que me lo proporciona es xHarbour DIRECTAMENTE y multiplataforma, que era lo que necesitaba.','',0,'gA==','1nrcuzpx',1,0,'',24,0,0),(13886,3179,7,470,0,'80.58.45.107',1149246046,1,0,1,1,1,0,'','mamartin','Hola,\n\nMe gustaría saber si puedo trabajar con folders a partir de dialogos creados desde el fuente (no los tengo en el .rc)\n\nOtra cuestión, ¿Se pueden añadir barras de scroll vertical en una ventana o en un dialogo ?En caso de que se pueda, ¿me podrían mostrar como se haría?\n\nMuchas gracias.','',0,'gA==','7a9tzxkk',1,0,'',470,0,0),(13887,3180,6,383,0,'201.230.247.211',1149246697,1,0,1,1,1,0,'','TReBar','Corregi lo mencionado pero sigue sin presentar los bitmaps de 32 x 32.','',0,'gA==','hkqqn87y',1,0,'',383,0,0),(13888,3170,6,383,0,'201.230.247.211',1149248456,1,0,1,1,1,0,'','DE DBF A SQL','Es muy imporante el tema mencionado. Actualmente muchas empresas \ndesean sus aplicaciones dbf corriendo en internet ya que han crecido en volumen de datos y comercialmente. Sin embargo, solicitan que las migraciones a Sql sean rapidas y muchas veces no tan caras.\n\nPor esta razón, los que trabajamos con Xharbour o Harbour y Fivewin debemos contar con mayor información al respecto.\n\nPero existe alguna pagina oficial de Condor para tener informacion de esta clase. En caso de usar Ado, ejemplos, requerimientos de versión xharbour o fivewin, etc.\n\nSI empezamos a desarrollar nuevos proyectos con Sql o realizar modificaciones a los que tenemos en dbf, cual es el browse recomendable a usar: Tsbrowse, Twbrowse, Txbrowse, etc.\nPorque particularmente siempre use el Tsbrowse y ahora en la version 7.1 que descargue de este foro va muy bien en Dbf.\n\nSaludos\n\nAntonio Crisóstomo','',0,'gA==','h93hcpky',1,0,'',383,0,0),(13889,3174,7,428,0,'200.45.74.34',1149250433,1,0,1,1,1,0,'','','Antonio,\n\nno puedo subirlo ahora mismo, ya que donde estoy en este momento hay un firewall que me bloque el acceso, asi que cuando llegue a mi ofice lo subo, no obstante si te parece podria acelerar el envio via e-mail\n\nSaludos\nMiguel','',0,'gA==','2hfk9g8n',1,0,'',428,0,0),(13890,3154,3,159,0,'210.243.203.20',1149257916,1,0,1,1,1,0,'','Re: Zoom Zoom Zoom','[quote=&quot;byron.hopp&quot;:s1b5g98v]Anybody?[/quote:s1b5g98v]\nPalBmpDraw( hDC, nX, nY, oBmp:hBitMap, oBmp:hPalette, nHPixel, nVPixel )','',0,'gA==','s1b5g98v',1,0,'',159,0,0),(13891,2996,6,104,0,'201.50.247.149',1149259384,1,0,1,1,1,0,'','','Olá, \n\nAqui lo tienes.\n\n[url:2o3z912u]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/SAMPLE04&#46;ZIP[/url:2o3z912u]\n\nSaludos,\n\nRossine.','',0,'EA==','2o3z912u',1,0,'',104,0,0),(13892,3157,2,228,0,'201.245.222.85',1149259681,1,0,1,1,1,1,'','yo lo hago asi..','Amigo yo lo hago de la siguiente manera y me funciona bien...\n\n[code:3rklr2xq]\n\nDEFINE BRUSH oBrush RESOURCE &quot;INICIO&quot;\nDEFINE DIALOG oDlg RESOURCE &quot;Plano10&quot; TRANSPARENT BRUSH oBrush OF oWinp\n oProgress = TProgress&#40;&#41;&#58;Redefine&#40; 4001, oDlg &#41;\n REDEFINE SAY oT1os1 ID 15 OF oDlg UPDATE\n\n REDEFINE SAY oT1os2 ID 4002 OF oDlg\n REDEFINE SAY oT1os3 ID 4004 OF oDlg\n REDEFINE SAY oT1os4 ID 4005 OF oDlg\n\n REDEFINE SAY oT1os5 ID 4003 OF oDlg\n REDEFINE SAY oT1os6 ID 4006 OF oDlg\n\n REDEFINE GET oT1og1 VAR oT1vg1 ID 4007 OF oDlg\n REDEFINE GET oT1og2 VAR oT1vg2 ID 4008 OF oDlg\n\n REDEFINE BUTTONBMP BtnE ID 4009 OF oDlg ACTION pVerUsu&#40;&#41;\n REDEFINE BUTTONBMP BtnS ID 4010 OF oDlg ACTION &#40;oWinp&#58;End&#40;&#41;&#41;\n\n\nACTIVATE DIALOG oDlg CENTERED VALID&#40;oLamcla&#58;vPPexit&#41;\n\n[/code:3rklr2xq]\n\nEspero te sirva...','',0,'AIA=','3rklr2xq',1,0,'',228,0,0),(13893,3026,4,224,0,'162.83.94.176',1149262978,1,0,1,1,1,1,'','Does this help?','Hi, I too am interested in \"right click\" support in WBrowse. I found this article in the MSDN knowledgebase. Perhaps this can help. Unfortaunately, I am not talented enough to understand the \"SHRecognizeGesture function\".\n [url:24vxhaia]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/guide_ppc/html/ppc_programming_pocket_pc_2002_noxa&#46;asp[/url:24vxhaia]\n\nMy specific interest is in popping up a menu. This example on MSDN shows specifics...\n[url:24vxhaia]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/guide_ppc/html/ppc_ht_displayshortcutexisting&#46;asp[/url:24vxhaia]\n\nThanks for any help!','',0,'EA==','24vxhaia',1,0,'',224,0,0),(13894,3177,3,41,0,'200.87.67.10',1149265542,1,0,1,1,1,0,'','Re: How to suppress Grand Total in Report Class ?','Hello,\n\nyou can try with some of the follow code blocks\n \n    bpostgroup, bend, bpostend\n\nand define data :ltotal := .F. or :lpagetotal := .F.\n\nI hope this can help you \n\nregards\n\nMarcelo \n  \n\n[quote=&quot;Milan Mehta&quot;:3a2qjkdd]Dear All,\n\nI want to page Pagewise Total but not Grand Total ? How can I achieve it ?\n\nI am printing Report - Groupwise Pagewise. So printing Grand total on last group has no meaning.\n\nHow can I suppress Grand Total only ?\n\nTIA\nMilan.[/quote:3a2qjkdd]','',0,'gA==','3a2qjkdd',1,0,'',41,0,0),(13895,3171,3,31,0,'84.15.27.93',1149270899,1,0,1,1,1,0,'','','[quote=&quot;ShumingWang&quot;:1jdo9qht]DBF:\n 1. cdx/ntx often corrupted,dbf often damaged .\n 2.exe and dbf file place in same visialble drivers, dbf files can be easily deleted by mistake.\n 3. not direct support internet/ADSL\n 4. no forerign key , basic data setting may be modified by  mistake.\n\nTmysql +mysql5.0  , direct TCP/IP/C++ API support \n\n  1. 3 years ,there is 0 damaged record.\n  2. no longer worry of cdx/ntx/dbf damaged .no longer need reindex !\n  3. support internet/ADSL as lan , without extra files nor settting.especially for remote use and maintian.\n  4. easy to  install, backup/resotre data ,build in app exe\n  5. great reduce prg code programe under SQL(a large report may be replaced by  a SQL ).also with xbase dbf use ,odb:qty:=10,odb:save(),odb:skip(1)\n  6.nerver worry of no index key create, set order to / where failure.\n  7.add index/ modify table column(width/type), backup without dbf must every user close.\n  \n[/quote:1jdo9qht]\n\n   Hello , <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)\n\n   Shuming I can\'t agree with you :\n\n 1.  If application well writed , it doesn\'t exist any coruptions . My applications with DBF\'s alreday are running without any corruptions for some years . \n 2.  I\'m using subdirectories in which are stored DBF\'s . Also the paths are directed fully , without mapping - \\\\servername\\shareddir\\applic_dbfs\\ for sample . And applications are working in all workday/worktime , so any deletion of file or subdirectory is denied , because if the files are opened any careless deletion will be unsucesfull . The deletion of SQL database can be done in the time as with DBF - then nothing is working with applicattion . So backup and for DBFs and for SQL dbs it\'s necessary .\n  3. With this option we can discuss too . It\'s alreday writed a good things such xBScript , ClipWEB ... \n   \n   All other options are something missleading . The DBFs are very stables and very flexibles , not need complicated instalations of client/server configurations . I can it to say from mine experience . I can only to recognize that DBFs have one shortcomming - security . If something want to do secure system - then with DBFs it\'s more hard to do that . With SQL dbs it\'s more easy to create secure system . That\'s all in my opinion .\n\n  With best regards ! Rimantas','',0,'gA==','1jdo9qht',1,0,'',31,0,0),(13896,3181,3,31,0,'84.15.27.93',1149271288,1,0,1,1,1,1,'','Empty date with DTPicker','Hi ,\n\nHow we can pass an empty date to DTPicker control ? I found the one advice in this forum for that , but that was for control from resources . I want to do that in runtime .\n\n  With best regards !','',0,'gA==','2pjluuv6',1,0,'',31,0,0),(13897,3182,3,63,0,'80.37.102.128',1149277428,1,0,1,1,1,0,'','Need to write a character directly to LPT1 port','I have been asked to write a simple program to handle an external 8-relays board that can be controled through the standard parallel port.\n\nI need just to send one ASCII character to LPT1 to activate the desired relay.  The problem is that I can not find how to do it:\n\nI\'ve tried the TDosPrn() command() method but it seems to go through the Windows printer driver and keeps answering \"Printer does not repond\".\nI\'ve tried also OutportByte (888, 64) and get a GPF.  \n\nI\'m pretty sure there must be a rather simple way of doing it, but at present I am just lost.  Any ideas?\n\nRafael','',0,'gA==','p4kwknqr',1,0,'',63,0,0),(13898,3151,6,228,0,'201.245.222.85',1149277442,1,0,1,1,1,1,'','ahi voy..','Amigo del foro de nuevo yo...\n\nYa logre crear un fichero de bajo nivel... pero.. como siempre surgen dudas.\n\nAlguien me puede indicar como hago para escribir en el archivo\nen el segundo reglon, en este momento lo esta haciendo asi\n\nnombre1 nombre2 nombre3 nombre4\n\npero lo que necesito es hacer esto.\n\nnombre1\nnombre2\nnombre3\nnombre4\n\nel codigo es el siguiente:\n\n\n[code:3s2t9swr]\n\n\nnmanejador&#58;=FCREATE&#40;&quot;C&#58;\\Fichpru4&#46;xml&quot;, FC_NORMAL&#41;\n\nbufer&#58;=\'&lt;?xml version=&quot;1&#46;0&quot; encoding=&quot;ISO-8859-1&quot;?&gt;\'\nbufer+=\'&lt;mas xmlns&#58;xsi=&quot;http&#58;//www&#46;w3&#46;org/2001/XMLSchema-instance&quot; xsi&#58;noNamespaceSchemaLocation=&quot;&#46;&#46;/xsd/1009&#46;xsd&quot;&gt;\'\n\nFWRITE&#40;nManejador, alltrim&#40;bufer&#41;&#41;\nFCLOSE&#40;nManejador&#41;\n\n[/code:3s2t9swr]\n\nDe nuevo gracias','',0,'AIA=','3s2t9swr',1,0,'',228,0,0),(13899,3183,6,63,0,'80.37.102.128',1149277678,1,0,1,1,1,0,'','Como controlar una placa de relés a través de LPT1','Me han pedido escribir un programa para controlar una placa de relés externa, a través del puerto paralelo.\n\nBasta con enviar a LPT1 un caracter ASCII para activar un relé u otro.\nEl problema es que he intentato hacerlo mediante TDorPrn() y su método Command() pero Windows me responde con un mensaje de que la impresora no responde.  Lo te intentado también atacando el puerto 378h mediante OutportByte(888, nAscii)  (888 es el decimal de 378h) y me da un GPF.\n\nAlguien podría echarme una mano? Muchas gracias\nRafael','',0,'AIA=','1xomd865',1,0,'',63,0,0),(13900,3184,6,52,0,'200.127.195.89',1149278652,1,0,1,1,1,1,'','Tipos de variables... y declaraciones','Amigos,\n\nMe estoy metiendo en un embrollo, que necesito aclaraciones para despejar mis dudas.\n\nYo quiero enviar un dato a traves de diferentes funciones, y alguna de ellas está creada en Visual Basic. La función en visual basic debe si o si \"recibir un dato de 2 byte de longitud y en formato HEXADECIMAL\":\n\nEl dato a enviar es una composición del 81 y el 7F, por ende yo pensaría que dicho dato seria asi: 817F lo que para mi entender al enviarlo de la forma 0x817F es lo mismo.\n\nAhora bien, ese dato enviado de esa forma ( 0x817F ) es tomado como:\n\n1) Caracteres?\n2) Numerico?\n\nAlguien podría explicarme esto por favor, mas aún si ya alguien que utilice o halla utilizado VISUAL BASIC se haya encontrado con esta situación.\n\nGracias.','',0,'AIA=','2b5edht3',1,0,'',52,0,0),(13901,3182,3,213,0,'72.177.228.25',1149279183,1,0,1,1,1,0,'','','Rafael,\n\nThis is how I write directly to the LPT port.\n\n   nFp := fopen( (cPort), 2)\n   IF nFp = -1\n      MsgInfo(\"Error opening \"+cPort+\".  Error Code: \"+alltrim(str(ferror())) )\n      RETURN NIL\n   ENDIF \n\n   cBuffer := space(1) // or some character\n\n   fwrite( nFp, cBuffer )\n\n   fclose(nFp)\n\nRegards,\nRandal','',0,'AIA=','2hcufrbh',1,0,'',213,0,0),(13902,3182,3,213,0,'72.177.228.25',1149279247,1,0,1,1,1,0,'','','Oops, cPort would be equal to \"LPT1\"\n\nRegards,\nRandal','',0,'AIA=','2zzusu60',1,0,'',213,0,0),(13903,3009,3,148,0,'82.201.251.97',1149280624,1,0,1,1,1,0,'','','\"It does not work \" Oka the country combobox have no problem . the city appeared for seconds and disappeared also the governers disappeared immediately . select (0) got error message no workarea.\nHere down the code I used :\n\n[code:1rtmskzl]\n\n@ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL \n@ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n@ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41;; \nSIZE 110,80 ; \nOF oDlg PIXEL ; \nVALID &#40;reset&#40; v_co_cocmbo, oCbx2, &quot;cust&quot;,&quot;cu_city&quot;,&quot;cu_coun&quot; &#41;, &#46;t&#46;&#41; \n\n@ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL \n@ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n@ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_city&quot;&#41; size 110,80 ; \nOF oDlg PIXEL; \nVALID &#40;reset&#40; v_ci_cocmbo, oCbx3, &quot;cust&quot;,&quot;cu_gove&quot;,&quot;cu_city&quot; &#41;, &#46;t&#46;&#41; \n\n@ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL \n@ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n@ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_gove&quot;&#41;  size 110,80 ; \n   OF oDlg PIXEL\n\n\nfunction reset&#40; cItem,oCbx,cFile,fld_na,filter_name&#41;\n//---------------------------------------------------------\n\nlocal aItems&#58;=&#123;&#125; \nlocal nArea&#58;= select&#40;&#41;\nlocal y&#58;=0\n\n*select &#40;0&#41;\nuse &#40;cFile&#41; new\nset filter to cItem == filter_name\ngo top\n\ndo while ! eof&#40;&#41;\ny&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\nif y==0\naAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\ndbSkip&#40;&#41;\nelse\ndbSkip&#40;&#41;\nendif\n\nENDDO\n\nuse \nselect&#40; nArea &#41; \noCbx&#58;setItems&#40; aItems &#41; \noCbx&#58;refresh&#40;&#41; \nreturn nil\n[/code:1rtmskzl]','',0,'AIA=','1rtmskzl',1,0,'',148,0,0),(13904,3182,3,63,0,'80.37.102.128',1149282031,1,0,1,1,1,0,'','','Randall:\nJust tried your example on a W2000 professional.  After some waiting, I got a Windows message \"LPT1 is not connected. Retry or cancel?\"  \nWhen you try it on you system, do you get an inmediate answer or does it take a while?  What Operating System do you use?\nThanks a lot for your help\nRafael','',0,'AIA=','1w3tej1n',1,0,'',63,0,0),(13905,2996,6,519,0,'83.38.241.121',1149282367,1,0,1,1,1,0,'','','Hola Rossine\n\n    No funciona  bien el samples4.\n\n\n    [url=http&#58;//img50&#46;imageshack&#46;us/my&#46;php?image=browse12xc&#46;jpg:1a0ifvzf][img:1a0ifvzf]http&#58;//img50&#46;imageshack&#46;us/img50/1640/browse12xc&#46;th&#46;jpg[/img:1a0ifvzf][/url:1a0ifvzf]\n\n\n[url=http&#58;//img151&#46;imageshack&#46;us/my&#46;php?image=browse6xb&#46;jpg:1a0ifvzf][img:1a0ifvzf]http&#58;//img151&#46;imageshack&#46;us/img151/800/browse6xb&#46;th&#46;jpg[/img:1a0ifvzf][/url:1a0ifvzf]\n\n\n\n\n     Por favor compila el samples del link y fijate como esta creado el twbrowse  en el rc, no te mantiene las coordenadas.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/017e6b6263/aBrowse.zip.html\">http://hyperupload.com/download/017e6b6 ... e.zip.html</a><!-- m --> \n\n\n   Un saludo y gracias','',0,'GA==','1a0ifvzf',1,0,'',519,0,0),(13906,3172,3,34,0,'68.4.154.81',1149282840,1,0,1,1,1,1,'','Error with Memo Field','OK ... I hate to complicate the theory, but here are the facts:\n\n1)  The DBF and FPT were created with xHarbour / FWH and the ADS DBFCDX driver.\n\n2)  These have worked without failure now for several years.\n\n3)  The company using ADS Client Server found a virus on one workstation, disconnected it from the network, and still had the problem.  They restored to a point prior to the virus, after cleaning all of the computers, and everything works.\n\n4)  The company using ADS LOCAL SERVER reports all machines are clean.  However, apparently something occured on one computer that caused it to pass back corrupted data on two files.  They did not have a viable backup.  I tried exporting the data with ARC but that wouldn\'t work.  dBase can\'t copy it either.  dSalvage fixed a couple of small problems and says its OK.  However, what worked was when I did an export using dClip41 ... but now apparently the client can\'t do an append to the files !\n\nI have posted this on the xHarbour board.','',0,'GA==','164bogao',1,0,'',34,0,0),(13907,3151,6,168,0,'201.248.21.99',1149282856,1,0,1,1,1,0,'','','Simplemente agrega un CRLF. SI no lo tienes definido haces :\n\n#define CRLF Chr(13) + Chr(10)','',0,'GA==','2wznum21',1,0,'',168,0,0),(13908,3170,6,171,0,'71.232.193.197',1149284981,1,0,1,1,1,0,'','','Muy Interesante las respuestas recibidas, cada cual aporto algo que nos sirve para clarificar el tema de los CLIENT/SERVER y de los SQL.\nCreo que que ya todos los que trabajamos con DBF estamos consciente de que el proximo paso es pasar a CLIENT/SERVER, y nuestra opcion mas economica parece ser MySql. Esta tiene una version gratis y nos permite tener el server de forma local, es decir no necesitamos un computador solo para la database. \n \nPor otro lado por mas que queramos defender los DBF ( y yo me incluyo entre sus mas ardiente defensores) debemos reconocer la FALTA DE SEGURIDAD de la database, asi como la posible corrupcion de los indices. Tambien es sabido de que cuando abrimos una tabla DBF (archivo o fichero) en un network estamos trajando con la tabla original completa y no con una copia de records seleccionado como se hace en CLIENT/SERVER. Al trabajar con la tabla original completa en cada terminal hay mas probabilidades de que se corrompa la DATABASE, a causa de una falla en una de las terminales.\n\nMi propuesta y pedido para  el Sr. Antonio Linares es que se crea un forum de SQL para que comencemos a estudiar, y a practicar CLIENT/SERVER dentro de Harbour + Fivewin.\n\nGeorge','',0,'GA==','83zhjwug',1,0,'',171,0,0),(13909,3182,3,213,0,'72.177.228.25',1149287150,1,0,1,1,1,0,'','','Rafael,\n\nThe code I posted was a small snippet of a larger function I use to print to dot matrix printers.  I have customer\'s using every version of Windows available, including Windows 2000.\n\nIf the function cannot open LPT1 for writing it returns a low level fopen error code.  This has worked for years using FW/Clipper and FWH/xHarbour.  I\'ve never seen the error message you posted.\n\nPerhaps you should check Control Panel, System, Device Manager or check your bios and make sure the LPT port is functional.  Do you have the device you are using plugged into this port?  What if you unplug it, do you get a different error message?  Do you have any printer drivers installed that may be assigned to this port?  Does the device you are using have some kind of drivers you installed?\n\nRegards,\nRandal','',0,'GA==','2cfp1amw',1,0,'',213,0,0),(13910,3182,3,63,0,'80.37.102.128',1149288808,1,0,1,1,1,0,'','','Randall:\nHere is the error message I get:\n[img]c:\\Image1.jpg[/img]\n\nMy Windows is just an standard Windows with the usual laser and inkjet drivers installed, but nothing out of the normal. My other Clipper DOS programs write Ok to the parallel port.  The problem seems to be just with the relays board...\n\nOf course, there is also a possibility that the board is defective (although I got it as new).  I\'ll investigate that next week.\n\nMeanwhile, thank a lot again.\nRafael','',0,'CA==','1jbhfal6',1,0,'',63,0,0),(13911,3182,3,63,0,'80.37.102.128',1149289223,1,0,1,1,1,0,'','','Oops: Forgot the link to the image:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e5d67569/image1.jpg.html\">http://hyperupload.com/download/02e5d67 ... 1.jpg.html</a><!-- m -->\n\nR.','',0,'CA==','1km9w78v',1,0,'',63,0,0),(13912,3171,3,239,0,'61.144.160.46',1149301350,1,0,1,1,1,0,'','','Rimantas,\n In multi users envirenment(include Novell,Windows,samba server)  and open many dbf tables ,dbf tables opening/shareing by many users, if comeone power off his computer or windows hang, the cdx/ntx/dbf often damaged .\n  App harbour/xharbour+Tmysql , without any client/server setting just app  files +libmysql.dll.\n  If for simple use ,package the mysql main files/mysql folder with app, after install, create a short cut run mysql datatbase server  bat file contians \"mysqld-nt.exe --standalone \",a bat file contians \" mysqladmin -u root shutdown \"\nShuming Wang','',0,'CA==','62hto1q9',1,0,'',239,0,0),(13913,3026,4,2,0,'87.218.146.10',1149321562,1,0,1,1,1,1,'','','Bill,\n\nThanks for your feedback.\n\nWe have just published a new FWPPC build that includes the function SHRecognizeGesture(). Please review samples\\TapHold.prg for a working sample detecting the tap and hold event.\n\nPlease notice that on such sample we are not showing a popup menu yet, just a MsgInfo(). Also we have detected that sometimes it makes crash the application, we still don\'t know why.','',0,'CA==','2eeu39hh',1,1149327216,'',2,1,0),(13914,3026,4,2,0,'87.218.146.163',1149326372,1,0,1,1,1,1,'','','This sample already shows a POPUP, when tap &amp; hold, though the actions are not managed yet:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/017c2df972/taphold.prg.html\">http://hyperupload.com/download/017c2df ... d.prg.html</a><!-- m -->','',0,'CA==','2mxinarh',1,0,'',2,0,0),(13915,3185,7,2,0,'87.218.146.163',1149326475,1,0,1,1,1,1,'','Nuevo build disponible','Teneis disponible un nuevo build de FWPPC con un primer soporte del evento \"tap &amp; hold\" (pulsar y mantener con el puntero).\n\nAqui teneis un ejemplo que muestra un menu popup aunque de momento las acciones no se procesan:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/017c2df972/taphold.prg.html\">http://hyperupload.com/download/017c2df ... d.prg.html</a><!-- m -->','',0,'CA==','3ttl2qgw',1,0,'',2,0,0),(13916,3170,6,2,0,'87.218.146.163',1149327484,1,0,1,1,1,1,'','','George,\n\nAún no hay un volumen suficiente de mensajes que justifique crear un nuevo foro. Al contrario, es preferible de momento que sigan en estos, para que así todos los usuarios se vayan familiarizando con estos temas.','',0,'CA==','3ucrf50x',1,0,'',2,0,0),(13917,3171,3,31,0,'84.15.27.93',1149328853,1,0,1,1,1,1,'','','[quote=&quot;ShumingWang&quot;:t2mc0lz8]\n In multi users envirenment(include Novell,Windows,samba server)  and open many dbf tables ,dbf tables opening/shareing by many users, if comeone power off his computer or windows hang, the cdx/ntx/dbf often damaged .\nShuming Wang[/quote:t2mc0lz8]\n\n   Shuming , all my applications are working in multiuser enviroment . I don\'t have standalone applications . And the database of DBFs is very stable . Believe me , they are working for some years alreday . The servers are with UPS , so power problem doesn\'t exist . I never detected that hang up or other problems of users PC can damage data in server side . Only some times when electricity fault , in places where doesn\'t existed UPS for networks controlers ( swiths , hubs )  , then dissapears some lines of data . But that doesn\'t damage database in server .\n   All applications are working with Win2K servers , in one place with Novell . Sorry , but I don\'t have experience with Linux . \n   What I noticed that the problem of damaging exist inside program . Well writen with well checked variables , without globals , in 99 % with locals vars the application will be very stable . I can only say many good words for Przemek - he did giant job , very good working CDX RDD .\n\n   All records for insertion and update use this sequence :\n   ( cAlias )-&gt;( dbappend() )  or ( cAlias )-&gt;( rlock() )\n   ... new record ... / or upate \n   ( cAlias )-&gt;( dbcommit() )\n   ( cAlias )-&gt;( dbunlock() )\n\n  Maybe you didn\'t used dbcommit ? \n\n  At this time I working with Navision Axapta and Oracle . Though about Oracle database exist legends , I can\'t to say that this DB worst so big moneys for that ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->))\n\n  With best regards !','',0,'gA==','t2mc0lz8',1,0,'',31,0,0),(13918,3059,6,49,0,'87.16.176.169',1149332793,1,0,1,1,1,1,'','','I am 40 years old and I use fivewin from 1.4 - ( from 1992)','',0,'gA==','t5f602wg',1,0,'',49,0,0),(13919,3186,6,52,0,'200.127.195.89',1149334682,1,0,1,1,1,1,'','XP al GUARDAR guarda?','Amigos,\n\nLes ha ocurrido alguna vez que \"a pequeños cambios de sus prg\" el compilador no los toma, doy un ejemplo:\n\nEste sería el codigo original:\n\n[code:2ysvsru6]function main&#40;&#41;\n    ? &quot;hola&quot;\nreturn &#40; nil &#41;[/code:2ysvsru6]\n\nLo compilo, lo ejecuto y muestra \"hola\"\n\nAhora bien, hago este pequeño cambio:\n[code:2ysvsru6]\nfunction main&#40;&#41;\n   ? &quot;holanda&quot;\nreturn &#40; nil &#41;[/code:2ysvsru6]\n\nLo compilo, lo ejecuto si sigue mostrando \"hola\"\n\nporque sucede esto?','',0,'AIA=','2ysvsru6',1,0,'',52,0,0),(13920,3182,3,213,0,'72.177.228.25',1149349410,1,0,1,1,1,0,'','','Rafael,\n\nWhere in your code do you get the error, when opening the port with fopen or when trying to fwrite?\n\nBe sure you are using \"LPT1\" not \"LPT1:\".\n\nI have had some instances where USB printers will grab what is suppose to go to LPT1.  In those cases I have the user delete all the printer drivers (except the dot matrix printer) and then reinstall them.  You might try deleting all installed printers and see what happens.  It is possible that what you are fwriting is being intercepted by one of the printer drivers.\n\nThe error looks like something that would be generated from a printer driver.  Using low level functions like fopen/fwrite would not generate that kind of error.\n\nRegards,\nRandal','',0,'AIA=','39movbwu',1,0,'',213,0,0),(13921,2979,6,439,0,'190.0.134.4',1149352266,1,0,1,1,1,1,'','?','Alguien tiene una idea?','',0,'AIA=','3n3ls5u3',1,0,'',439,0,0),(13922,3182,3,2,0,'87.218.146.2',1149355944,1,0,1,1,1,1,'','','Rafael,\n\nTo post images please use <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the provided link.\n\nThanks,','',0,'AIA=','srk40dl5',1,0,'',2,0,0),(13923,3186,6,2,0,'87.218.146.2',1149356027,1,0,1,1,1,1,'','','Gustavo,\n\nQuizá no salvastes los cambios en el PRG.','',0,'AIA=','1ejjyxn8',1,0,'',2,0,0),(13924,3186,6,52,0,'200.127.195.89',1149358045,1,0,1,1,1,1,'','','Antonio,\n\nSi los salve, y es mas ya esto me ocurrio cuando usaba el fw21, por eso te digo.\n\nGracias.','',0,'AIA=','3hv9d69a',1,0,'',52,0,0),(13925,3187,4,240,0,'85.201.100.63',1149363294,1,0,1,1,1,1,'','WaitSeconds()','Hello,\n\nIs it possible to have the function WaitSeconds()?\n\nOr is there a work around to wait for a defined number of seconds?\n\nThanks','',0,'AIA=','2a06oy2d',1,0,'',240,0,0),(13926,3187,4,6,0,'87.16.223.100',1149365425,1,0,1,1,1,1,'','Re: WaitSeconds()','Try\n\n[code:247c0oug]#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; SLEEP &#41;\n&#123;\n    Sleep&#40; hb_parnl&#40; 1 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:247c0oug]\n\nEMG','',0,'AIA=','247c0oug',1,0,'',6,0,0),(13927,3187,4,240,0,'85.201.100.63',1149367923,1,0,1,1,1,1,'','','Hello EnricoMaria,\n\nMany thanks, I will give it a try.\n\nRegards','',0,'AIA=','1g74ry3x',1,0,'',240,0,0),(13928,3188,6,295,0,'201.222.146.160',1149386513,1,0,1,1,1,1,'','COMO CAZAR UN ERROR?','Hola Amigos,\n\nEstoy intentando evitar la caida de mi aplicación por algunos errores , ¿existe alguna función que permita capturar el error y evitar que el sistema se caiga?\n\npor ejemplo este: el usuario escribe una operación aritmética en el campo cFormul y luego el programa lo resuelve.. nValor:=&amp;(cFormul)\nsi el usuario escribe cualquier cosa aparecerá :\n\nError description: Error BASE/1449  Syntax error: &amp;\n\n\nGRACIAS DE ANTEMANO POR SUS COMENTARIOS\n\nSALUDOS\nxHarbrazos','',0,'AIA=','h21tqkjb',1,0,'',295,0,0),(13929,3186,6,61,0,'201.217.174.217',1149393895,1,0,1,1,1,0,'','','Goosfancito:\n\nA mi me ha pasado algo parecido, lo solucioné\nborrando el obj. No se porque a veces no lo compila,\nquiizas crea que no tiene cambios.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','28n7ruwg',1,0,'',61,0,0),(13930,3189,6,61,0,'201.217.160.137',1149396818,1,0,1,1,1,0,'','Esto es un error?','Amigos:\n\nMe genera un error al compilar con Borland Studio 2006 (en mi trabajo)\nYo en mi casa uso Borland 5.5 y no genera ese error \n\nWarning W8056 C:\\HARBOUR\\Include\\hbdefs.h 405: Integer arithmetic overflow\n\n\nArchivo:\nHarbour\\Include\\HBDEFS.H\nlinea 405\n#if HB_LONG_MAX &gt; HB_LL( 10000000000 )\n#  define HB_LONG_LENGTH( l ) ( ( (l) &lt;= -1000000000 || (l) &gt;= HB_LL( 10000000000 ) ) ? 20 : 10 )\n#else\n#  define HB_LONG_LENGTH( l ) ( ( (l) &lt;= -1000000000 ) ? 20 : 10 )\n#endif\n\nEs importante?\n\nGracias\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','vdjas7sa',1,0,'',61,0,0),(13931,3171,3,239,0,'219.136.111.209',1149403513,1,0,1,1,1,0,'','','Rimantas,   \n  Our old app by clip52e+comix+fw21+blinker, all with lock,commit() , in many cases, there are over 50 tables/alias opened  at one time.Now only several customers not upgrade to Mysql.\n\n   Our new apps  change into xharbour+fwh25+tmysql, over about 200 tables , over 40-50 users, one dtatabase with 4 years data together 300M-500M, updatet,select,report are as fast as beginning  ,even in case server/workstation power failure/windows hange, mysql can auto recover (innodb table type) without any problem, never do reindex. reindex  forget it .\n    Mysql another most important feature is foreign key .\n    There are basic info tables as customer,matrial items,currency,bom, and diarly tables like  packing list,proform invoice,purchase order, the bill tables can\'t add an  item id not exist in basic table, and basic table can\'t delete/update a item id if  exist in bill tables , Mysql database  done it auto, but dbf must self write codes in app.\n    Mysql has features  triger,view,stored procedure, 5.1 version also with event, this great reduce program works.\n   I think , dbf is proper for much smaller use, SQL/MySQL is proper for common ,performance,reliable , secure, mission-critical ,heavy task use.\n   SQL is the triend, 5 years ago , most database software products in China market used dbf, now almost all are SQL.\n  Mysql is free.\n\n  Shuming Wang','',0,'AIA=','199m3dgf',1,0,'',239,0,0),(13932,3189,6,2,0,'87.218.146.2',1149405494,1,0,1,1,1,1,'','','Ruben,\n\nLo he reportado en la lista de Harbour, ya que Przemek y Ryszard son los \"matemáticos\" <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3v0i01t2',1,0,'',2,0,0),(13933,3188,6,2,0,'87.218.146.2',1149405570,1,0,1,1,1,1,'','','Luis,\n\nUsas xHarbour ? de donde lo descargas ?','',0,'AIA=','1qwzexqa',1,0,'',2,0,0),(13934,3143,1,2,0,'87.218.146.2',1149405627,1,0,1,1,1,1,'','','Badara,\n\nThanks for your contributions,','',0,'AIA=','14idgc4c',1,0,'',2,0,0),(13935,3190,3,51,0,'80.122.88.242',1149411992,1,0,1,1,1,0,'','treeview','Is there somewhere a  template for creating a TreeView interface \nwhere nodes can be added, deleted, renamed, and moved via drag and drop.  Additionally, this template should provide methods to synchronize the node collection with a database.\n\nThanks in advance\nOtto','',0,'AIA=','26lzo11y',1,0,'',51,0,0),(13936,3171,3,31,0,'84.15.27.93',1149413935,1,0,1,1,1,1,'','','[quote=&quot;ShumingWang&quot;:fn51lj06]Rimantas,   \n  Our old app by clip52e+comix+fw21+blinker, all with lock,commit() , in many cases, there are over 50 tables/alias opened  at one time.Now only several customers not upgrade to Mysql.\n\n   Our new apps  change into xharbour+fwh25+tmysql, over about 200 tables , over 40-50 users, one dtatabase with 4 years data together 300M-500M, updatet,select,report are as fast as beginning  ,even in case \n\n    Mysql has features  triger,view,stored procedure, 5.1 version also with event, this great reduce program works.\n   I think , dbf is proper for much smaller use, SQL/MySQL is proper for common ,performance,reliable , secure, mission-critical ,heavy task use.\n\n[/quote:fn51lj06]\n\n  Shuming , I don\'t want to discuss how good is MySQL . I agree with you , that MySQL or other Cln/Srv DB it\'s a good thing and it\'s a better than DBFs . At this time I\'m playing with FireBird . I like such things then isn\'t need to think what index to use , all work is done by server <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> .\n  But I can\'t to agree that DBFs database isn\'t stable . It\'s stable . One application ( production ) is using about 80 dbfs + 75 cdxs . Work about 12-15 users at the same time . At this time is about 300 Mb data . Work without redindex 2 years . FWH 2.5 + xHarbour.org + CDX RDD . Also it\'s was working in earlier 2 years with FW 2.1 + Cliper 5.3b + Comix . With Clipper some times damage was . But that was Clipper , not xHarbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> .\n  Also I can agree that DBFs database isn\'t good for a big companies . I think that this is a choice for a small enterprises or also it\'s very good for individuals projects .\n  All types of database will find own place and utilization . So a question that DBFs must be stopped , it\'s meaningless , I think . <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n  With best regards !','',0,'gA==','fn51lj06',1,0,'',31,0,0),(13937,3189,6,61,0,'201.217.164.225',1149428801,1,0,1,1,1,0,'','','Gracias Maestro:\n\nSaludos\n\nRuben Fernandez','',0,'gA==','2pevyg76',1,0,'',61,0,0),(13939,3188,6,295,0,'201.222.146.160',1149435624,1,0,1,1,1,1,'','','Antonio, \nuso  :\nxHarbour Compiler build 0.99.51 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nSALUDOS','',0,'gA==','s5fnvfhj',1,0,'',295,0,0),(13940,3188,6,2,0,'87.218.146.81',1149452010,1,0,1,1,1,1,'','','Luis,\n\nLo construyes tu ?','',0,'gA==','1dhwunu9',1,0,'',2,0,0),(13942,3191,6,496,0,'200.107.36.176',1149453731,1,0,1,1,1,0,'','Ayuda sobre Arrays dinámicos multidimensionales','Hola Amigos.\n\nQuisiera saber cómo adicionar valores a un array multidimensional, me explico:\n\n1. Declaro el array que tendrá n líneas y n columnas\n    aprueba:=Array(1,3+LastRec())\n     \n    Para empezar el arreglo tiene 1 línea y 3 columnas fijas mas el número de registros de un dbf (que no va a ser muy grande)\n\n2. En el proceso yo voy haciendo un Add() al arreglo. Cuando el número de columnas es fijo no hay problema porque puedo hacer:\n\n Add(aprueba, {val1,val2,val3,val4,val5,val6})\n\nAquí viene mi problema: cómo hago para inicializar las columnas, porque bien pueden ser unas 5 como unas 50 columnas del arreglo.\n\nO tal vez si usara Add(aprueba,{}), se adicionan todas las columnas declaradas al principio? . Si es así  estaría resuelto el problema. Por favor confírmenme.\n\nEs la primera vez que se me presenta esta necesidad, pues antes siempre cambiaba dinámicamente las filas con columnas fijas, pero hoy tengo que cambiar dinámicamente tanto filas como columnas\n\nUn saludo y Gracias anticipadas\n\nMarcelo Jingo','',0,'gA==','2p5wd0dv',1,1149463782,'',496,1,0),(13945,3191,6,496,0,'200.107.36.176',1149463672,1,0,1,1,1,0,'','SOLUCIONADO','Ya lo he solucionado usando macrosustitución:\n\ntexto:=\"{\"+str(diafin)\n		\nfor j:=1 to numregs\n    texto+=\",0.00\"\nnext\n\ntexto+=\"}\"\n\naadd(asem,[b:1l063b5i]&amp;texto[/b:1l063b5i])\n\n\nUn saludo\n\nMarcelo Jingo','',0,'QA==','1l063b5i',1,0,'',496,0,0),(13946,3174,7,150,0,'62.15.123.106',1149465814,1,0,1,1,1,1,'','','Hola Miguel:\n\n¿Por que haceis la conversion rs232 a Irda? ¿No sería mas practico hacerlo a Bluetooth?','',0,'QA==','2anobpo8',1,0,'',150,0,0),(13947,3188,6,295,0,'201.222.155.173',1149471354,1,0,1,1,1,1,'','','Disculpa Antonio, a qué te refieres con si lo costruyo yo?\n\nSALUDOS','',0,'QA==','2gjcibhh',1,0,'',295,0,0),(13951,3193,3,32,0,'196.36.8.34',1149490757,1,0,1,1,1,0,'','Terminal server session','Hi,\n\nA while back (on the fw news groups), I asked about detecting terminal server sessions.\n\nI got an answer, which I\'ve now lost, and I can\'t seem to connect to the news server anymore (Is there a browsable backup)\n\nSo I\'m asking again: How can I detect whether I\'m in a terminal server session?\n\nAlex','',0,'QA==','2aw9m121',1,0,'',32,0,0),(13953,3195,7,57,0,'83.42.116.183',1149493329,1,0,1,1,1,1,'','Sobre el RC del .rmk','Antonio\n¿Que diferencia existe entre la llamada al compilador de recursos indicado en el buildce.bat y el indicado en el ejemplo del make?\n\nCon el buildce.bat = IF EXIST %1.rc %vcdir%\\bin\\rc -r -d_CE %1\n\nCon el make =  $(VCDIR)\\bin\\rc -r -d__FLAT__ test.rc \n\nConcrétamente con el __FLAT__.\n\nLo indico porque cambia el comportamiento de las window. Y como muestra un boton. Compila con el buildce el ejemplo testmenu y lo compilas nuevamente indicando añadiendo el __FLAT__. Si te pasa lo que a mí veras el menu de forma diferente.\n\nSaludos','',0,'QA==','3jixl4cv',1,0,'',57,0,0),(13954,3195,7,2,0,'87.218.146.238',1149494210,1,0,1,1,1,1,'','','Toni,\n\nPuedes poner unas imágenes (<!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->) de cómo se ve ? gracias','',0,'QA==','29hymqo5',1,0,'',2,0,0),(13955,3188,6,2,0,'87.218.146.238',1149494348,1,0,1,1,1,1,'','','Luis,\n\nSi tu construyes el xharbour que usas a partir de su código fuente, ó ya lo descargas desde algún sitio, ya construido.','',0,'QA==','nhstye55',1,0,'',2,0,0),(13956,3195,7,57,0,'83.42.116.183',1149499045,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:78q3zmng]Toni,\n\nPuedes poner unas imágenes (<!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->) de cómo se ve ? gracias[/quote:78q3zmng]\n\nImagen sin el __FLAT__\n\n[url:78q3zmng]http&#58;//img68&#46;imageshack&#46;us/my&#46;php?image=imagen15jk&#46;png[/url:78q3zmng]\n\nY con el __FLAT__\n\n[url:78q3zmng]http&#58;//img93&#46;imageshack&#46;us/img93/2175/imagen29kx&#46;png[/url:78q3zmng]\n\nSaludos','',0,'kA==','78q3zmng',1,0,'',57,0,0),(13957,3195,7,2,0,'87.218.146.238',1149501005,1,0,1,1,1,1,'','','Toni,\n\nPues parece que tenemos que quitar el __FLAT__ al compilar el RC <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'kA==','3vy0u4b2',1,0,'',2,0,0),(13958,3196,3,227,0,'201.26.157.137',1149509987,1,0,1,1,1,1,'','Hide() / Show()','Amigos....\n\nEstou usando a FWH 2.7 de abril e estou com um problema. Os controles HIDE() e SHOW() dos objetos não estão funcionando.\n\nTenho alguns botões usando a classe BUTTONBMP (buttonb.prg) que preciso desativa-los.\n\nComo resolvo isso ???','',0,'kA==','kxddiqg4',1,0,'',227,0,0),(13960,3174,7,428,0,'200.55.19.126',1149516627,1,0,1,1,1,0,'','','Hola Jose\nEn realidad transformo R2232 a IRDA porque el chip que necesito de Bluetooth no esta disponible todavia, en nuestro mercado, para comprarlo rapidamente, existen algunos que  se comercializan localmente pero no son de la calidad que necesitamos. Como tu dices lo mas recomendable es usar bluetooth porque no necesitamos tenerlos apuntados. Esperamos tener disponible los bluetooth en un par de meses, mientras tanto tengo que usar IRDA.\n\nSaludos\n\nMiguel','',0,'kA==','1wrdnhif',1,0,'',428,0,0),(13961,3188,6,295,0,'200.112.82.91',1149516771,1,0,1,1,1,1,'','','Ah !,  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  es el venía junto con la compra de FWH de DIC de 2005, así tal cual, sin modificarle nada.\nSALUDOS','',0,'kA==','1h9qgyn7',1,0,'',295,0,0),(13962,3198,7,57,0,'83.42.116.183',1149517352,1,0,1,1,1,1,'','Antonio TPanel y Scrolls sobre Ventanas y Dialogs','Antonio\nTienes previsto implementar los panels y los scrolls sobre dialogos y ventanas?. Si es así te rogaría me indicaras +- para cuando se podría disponer de ello. Debo iniciar un nuevo proyecto y me gustaría conocer a fecha de hoy con que controles puedo contar. Por lo que veo está muy avanzado aunque hay controles como los que indico que sería tremendamente prácticos para este tipo de aplicaciones.\n\nSaludos\nToni Sales','',0,'kA==','1c51d3tl',1,0,'',57,0,0),(13963,3199,3,343,0,'204.57.111.194',1149517567,1,0,1,1,1,0,'','Cannot use cGetFile32 in some secure networks','Because of the way cGetFile32 uses ini file in the windows directory to communicate with rundlg32 I cannot use this function.\n\nSome administrators limit the users access rights to the windows directory.\nIs there a way to use an ini in a different directory or use the registry instead?','',0,'kA==','1pani8u2',1,0,'',343,0,0),(13964,3026,4,224,0,'162.83.94.176',1149517629,1,0,1,1,1,1,'','','Antonio,\nThanks for this start. It does seem to crash often, however.\n\nBill','',0,'kA==','28aoprh4',1,0,'',224,0,0),(13965,3199,3,6,0,'87.10.2.236',1149518437,1,0,1,1,1,1,'','Re: Cannot use cGetFile32 in some secure networks','It seems that you are using the Clipper/FW version as the xHarbour/FWH one doesn\'t use rundlg32.dll at all.\n\nEMG','',0,'kA==','17sq2vnh',1,0,'',6,0,0),(13966,3199,3,343,0,'204.57.111.194',1149519091,1,0,1,1,1,0,'','','I am not sure about that.\n\nMy source file is c:\\fwh\\source\\function\\dlgs32.prg\n\nThe function cGetFile32() uses \n\n   nRet := WinExec( \"rundlg32 \" + If( lSave, \"2\", \"1\" ) )\n\n   if nRet &gt; 21 .or. nRet &lt; 0\n      StopUntil( {|| GetPvProfString( cSection, \"working\", \"0\", INIFILE ) != \"1\" } )\n      /*while GetPvProfString( cSection, \"working\", \"0\", INIFILE ) == \"1\"\n         SysRefresh()\n      end*/\n\n      cFile        := GetPvProfString( cSection, \"lpstrFile\", \"\", INIFILE )\n      nFilterIndex := Val( GetPvProfString( cSection, \"nFilterIndex\", \"\", INIFILE ) )\n   else\n       cFile := cGetFile( cFileMask, cTitle, nDefaultMask, cInitDir, lSave,, nFlags )\n   endif','',0,'kA==','15rremn5',1,0,'',343,0,0),(13967,3199,3,6,0,'87.10.2.236',1149519189,1,0,1,1,1,1,'','','That source is for FW 16 bit. The one for FWH is getfile.c.\n\nEMG','',0,'kA==','1g226nol',1,0,'',6,0,0),(13968,3199,3,343,0,'204.57.111.194',1149520019,1,0,1,1,1,0,'','','The only cGetFile function in getfile.c is cGetFile().\nThere is no cGetFile32() function located in getfile.c.\n\nBut I guess what you are saying is that I should not use cGetFile32(). I should only use cGetFile().','',0,'kA==','3lbyybnl',1,0,'',343,0,0),(13969,3188,6,110,0,'165.98.156.9',1149520098,1,0,1,1,1,1,'','','[code:23mst1lr]\n\nLOCAL oError\n\nTRY\n     //operacion que puede fallar\nCATCH oError\n     //mensaje de error\n     Alert&#40;&quot;Error&#58; &quot; + oError&#58;description &#41;\nFINALLY\n     //mensaje indicando que todo esta bien\n     Alert&#40;&quot;La operacion se realizo corrctamente&quot;&#41;\nEND\n\n\n[/code:23mst1lr]\n\nsalu2\ncarlos vargas','',0,'AIA=','23mst1lr',1,0,'',110,0,0),(13970,3199,3,6,0,'87.10.2.236',1149524538,1,0,1,1,1,1,'','','Exactly.\n\nEMG','',0,'AIA=','2gk9zn1g',1,0,'',6,0,0),(13971,3188,6,295,0,'200.112.82.63',1149525019,1,0,1,1,1,1,'','','muchas gracias Carlos!!\n\nFuncionó de maravillas, era exactamente lo que necesitaba <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSALUDOS\nABRAZOS','',0,'AIA=','rhtpijte',1,0,'',295,0,0),(13972,3026,4,2,0,'87.218.146.105',1149526620,1,0,1,1,1,1,'','','Bill,\n\nYes, we have reproduced the Microsoft sample but it crashes quite often. \n\nWe may need to search for more samples.','',0,'AIA=','dhm5tsx4',1,0,'',2,0,0),(13973,3196,3,2,0,'87.218.146.105',1149526709,1,0,1,1,1,1,'','','Christiano,\n\nPrueba con &lt;oButton&gt;:Disable() y :Enable()','',0,'AIA=','j058tfux',1,0,'',2,0,0),(13974,3174,7,428,0,'200.55.19.126',1149531019,1,0,1,1,1,0,'','','Bien pude subir los programas Fuentes, pueden descargarlos desde el siguiente vinculo:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b7699d70/sockserv.exe.html\">http://hyperupload.com/download/02b7699 ... v.exe.html</a><!-- m -->\n\nGracias','',0,'AIA=','myholthe',1,0,'',428,0,0),(13975,3200,3,261,0,'206.165.145.14',1149531328,1,0,1,1,1,1,'','Playing Flash Files','We are in the process of developting a kiosks application and the users want to incorporate flash files to sell advertising. Is it possible to play flash files with fivewin in a windows defined in fivewin?\n\nThanks, \n\nByron...','',0,'AIA=','2z9wgb5j',1,0,'',261,0,0),(13976,3157,2,375,0,'84.122.106.98',1149532553,1,0,1,1,1,1,'','','El BITMAP te da error porque está mesclando REDEFINEs con @...,... (NEWs) y eso no se puede hacer.\n\nO los configuras todos en el recursos (BITMAPs y SAYs) y los REDEFIONEs en el DIALOGO. O los pones todos a mano con \n@ ...,... BITMAP oBmp FILE \"....\" OF..... y\n@ ...,... SAY oSay PROMPT \"....\" OF ....\nEl problema es que así no te sale el SAY transparente. Para ello  mira el ejemplo BMPTEXT del directorio SAMPLES. Esa es una forma.\nOtra buscándote alguna CLASE que dibuje SAYs transparentes.\n\nUn saludo','',0,'AIA=','2e8d1hpe',1,0,'',375,0,0),(13977,3200,3,6,0,'87.1.232.54',1149534651,1,0,1,1,1,1,'','Re: Playing Flash Files','Have a look at flash.prg sample.\n\nEMG','',0,'AIA=','2ggbr3jz',1,0,'',6,0,0),(13978,3157,2,600,0,'84.123.222.86',1149535820,1,0,1,1,1,0,'','','Muchas gracias a los dos, ya me he hecho una idea del problema y como resolverlo.\n\n\nGracias\nJuan José','',0,'AIA=','6p8t3r4d',1,0,'',600,0,0),(13979,3201,6,221,0,'200.109.232.241',1149537858,1,0,1,1,1,0,'','saludos por fin di el paso a 32 pero me da un error','bueno despues de pasar un fin de semana dandome cabezazos por fin logro compilar a 32 bit pero me da el siguiente error LA LIBRERIA RDD.LIB de harbour:\n\n_DB_FUN_DBFDBT diciendo que no consigue esta funcion externa\n\nrealmente no se que sera ya que no uso campos memo en ningun lado, asimismo crea el exe pero al ejecutar me dice en una ventana DOS que solo puede ser ejecutado bajo win32\n\nde seguro le ha pasado a alguien y debe ser una tonteria, agradezco su ayuda, gracias','',0,'AIA=','2ws8tedg',1,0,'',221,0,0),(13980,3201,6,507,0,'200.67.110.120',1149539704,1,0,1,1,1,0,'','','aqui el unico problema es que no has agregado esta libreria a tu proyecto, solo agregala debe de estar en (x)harbour\\lib\n\nsaludos\n\nLuis Fernando Rubio Rubio\nTequila, Jalisco, Mexico','',0,'AIA=','2rpze38d',1,0,'',507,0,0),(13981,3181,3,264,0,'200.91.3.10',1149540069,1,0,1,1,1,0,'','','Rimantas.\nI post the message with the question... but the control start by default with a defined date.\nI change the control until new knowledge.\nIf you need a calendar control i have a litle one from my.\n\nRegards','',0,'AIA=','2m5gt2zf',1,0,'',264,0,0),(13982,3202,3,217,0,'200.159.120.34',1149540144,1,0,1,1,1,0,'','Convert hexa to decimal','I must convert a hexa string to decimal values.\nDoes anyone know how can I do it? Any function... etc\n\nI must convert strings like:\n7F 09 8B 09 98 09 A3 09 B0 09\n(it is equal to 127, 9, 139, 9, 152, 9, 163, 9, 176, 9 in decimal)\n\nRegards\nMaurilio','',0,'AIA=','1efch386',1,0,'',217,0,0),(13983,3174,7,2,0,'87.218.146.105',1149541134,1,0,1,1,1,1,'','','Gracias','',0,'AIA=','1qsdeaxz',1,0,'',2,0,0),(13984,3201,6,215,0,'201.129.19.26',1149542560,1,0,1,1,1,0,'','asi','Si no la usas... solo declarala y compila.\n\nAgrega  a tu prg la función faltante.\n\nFunction DbfDbt()\n\nreturn .T.','',0,'AIA=','ezisijeu',1,0,'',215,0,0),(13985,3202,3,6,0,'87.1.232.54',1149542750,1,0,1,1,1,1,'','Re: Convert hexa to decimal','HexToNum( cHex )\n\nEMG','',0,'AIA=','184wb1mq',1,0,'',6,0,0),(13986,3201,6,36,0,'200.113.56.235',1149544274,1,0,1,1,1,0,'','','QAZWSX2K\n\n\n[code:tyk7b6kf]\n//al pincipio de tu programa\nANNOUNCE RDDSYS\n\nprocedure main&#40;&#41;\n   blblb\nreturn\n\n\nprocedure RddInit&#40;&#41;\n   REQUEST HB_LANG_ES\n   REQUEST DBFCDX, DBFFPT\nreturn\n[/code:tyk7b6kf]\n\n\nSaludos\nPatricio','',0,'AIA=','tyk7b6kf',1,0,'',36,0,0),(13987,2988,23,49,0,'87.10.181.36',1149545914,1,0,1,1,1,1,'','','where i can send you the project ?','',0,'AIA=','3l4jvzq2',1,0,'',49,0,0),(13988,2996,6,519,0,'83.35.19.91',1149548485,1,0,1,1,1,0,'','','Rossine,\n\n  Has podido ver el sampples del  link  ?\n\n\n Un saludo','',0,'AIA=','11bskxgt',1,0,'',519,0,0),(13989,2979,6,2,0,'87.218.146.222',1149575281,1,0,1,1,1,1,'','','Jose,\n\nUsas los temas estandard de XP ó usas la uxtheme.dll modificada ?','',0,'AIA=','68ypucqa',1,0,'',2,0,0),(13990,3203,6,81,0,'80.28.244.140',1149579231,1,0,1,1,1,0,'','Harbour 0.46 de Sorceforge errores','Pues son estos\nError: Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from C:\\HARBOUR\\LIB\\RTL.LIB|gtsys\nError: Unresolved external \'_hb_objGetpMethod\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC\n\nMe he bajado hoy mismo el build de 31/5 harbour-0.46.bin.w32.bcc32.zip\n\nSaludos\nRafa','',0,'AIA=','35iga3yx',1,0,'',81,0,0),(13991,2988,23,130,0,'141.51.32.24',1149580984,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:m3fzdc2k]where i can send you the project ?[/quote:m3fzdc2k]\n\n<!-- e --><a href=\"mailto:sthaupt@uni-kassel.de\">sthaupt@uni-kassel.de</a><!-- e -->','',0,'gA==','m3fzdc2k',1,0,'',130,0,0),(13992,3182,3,63,0,'80.37.102.128',1149581181,1,0,1,1,1,0,'','','Randall:\nHere is my code:[code:3nnxgbae]\n\ncPort &#58;= &quot;LPT1&quot;\nnFp &#58;= fopen&#40;&#40;cPort&#41;,2&#41;\nIF nFp = -1\n   MsgInfo &#40;&quot;Error&quot;&#41;\n   Return Nil\nelse\n   ? nfp\nEndif\n[/code:3nnxgbae]\n\nWhen I run it, I get nFp = 3  \"Path not found()\"  ????\nI have my W2000 configured with just a generic printer on LPT1 and removed all other printer drivers.  Any idea?\n\nThanks\nRafael','',0,'AIA=','3nnxgbae',1,0,'',63,0,0),(13993,3117,6,81,0,'80.28.244.140',1149581559,1,0,1,1,1,0,'','','Debes establecer una VPN y a traves de esta VPN conectar citrix. La vpn se establece a traves de una IP que tu estableces en el servidor para que sea dinamica o fija dependiendo de necesidades.\n\nPara ello necesitas de un windows 2000 server que te haga de servidor para las conexiones de VPN y a la vez del servidor citrix. Cargalo de memoria para que vaya bien. La VPN tiene la ventaja de que todo lo que envias o recibes va encriptado. \nSaludos\nRafa','',0,'AIA=','228id3gt',1,0,'',81,0,0),(13994,3182,3,63,0,'80.37.102.128',1149581727,1,0,1,1,1,0,'','','Randall:\nSorry: I didn\'t realize nFp = 3 wasn\'t an error code but the file handle. \nBut still, the program doesn\'t work.  I\'ll continue investigating...\nR.','',0,'AIA=','23aocz0x',1,0,'',63,0,0),(13995,3187,4,240,0,'85.201.100.63',1149582527,1,0,1,1,1,1,'','','Hello EnricoMaria, \n\nI tried it and it works perfectly.\n\nMany thanks,\n\nRaymond','',0,'AIA=','3u9v5zt4',1,0,'',240,0,0),(13996,3181,3,31,0,'195.182.84.105',1149589579,1,0,1,1,1,1,'','','[quote=&quot;dbzap&quot;:12cjhvzh]\nI post the message with the question... but the control start by default with a defined date.\nI change the control until new knowledge.\nIf you need a calendar control i have a litle one from my.\n[/quote:12cjhvzh]\n\n  I did it . I found one post from which i downloaded zipped package . So I changed some lines in tdtpickr.prg . Here is my changes :\n   - add to class DATA something logical DATA   lEmptyDate ;\n   - in New( ) method describe , what you want default value for ::lEmptydate ;\n   - change Setdate Method()\n\n[code:12cjhvzh]\nMETHOD SetDate&#40; dDate &#41;  CLASS TDatePick\n   local dShow\n   local dDat &#58;= dDate\n   if empty&#40; dDate &#41;\n      dDat &#58;= if&#40; !&#58;&#58;lEmptyDate, date&#40;&#41;, dDate &#41;\n   endif\n   dShow &#58;= dDat\n   SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dShow &#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;, 0 &#41;\n   if Empty&#40;dDate&#41;\n     SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dShow &#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;, 1 &#41;\n   endif\nreturn Self\n[/code:12cjhvzh]\n\n   Now you can use in your sources , something like that, if you want that at first to set an empty date for control :\n   oDatPck:lEmptydate := .t.\n   oDatPck:SetDate( dDat ) \n\n  Works fine . <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) With best regards !\n\n Full source code :\n[code:12cjhvzh]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;constant&#46;ch&quot;\n\n#define COLOR_WINDOW         5\n#define COLOR_WINDOWTEXT     8\n\n#define CS_DBLCLKS           8\n#define DTS_SHOWNONE         0x0002\n\n#ifdef __XPP__\n   #define Super &#58;&#58;TControl\n   #define New _New\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLASS TDatePick FROM TControl\n\n   CLASSDATA lRegistered\n   DATA      lEmptyDate\n\n   METHOD New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;\n               nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;\n               bWhen, bChange, nHelpId,lEmp&#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nId, bSetGet,oWnd, nHelpId, cMsg, lUpdate, bWhen, bValid&#41; CONSTRUCTOR\n\n   METHOD cText&#40; cText &#41; SETGET\n\n   METHOD cToChar&#40;&#41; INLINE Super&#58;cToChar&#40; &quot;SysDateTimePick32&quot; &#41;\n\n   METHOD Initiate&#40; hDlg &#41;\n\n   METHOD SetDate&#40; dDate &#41;                                       // Modificado fgondi\n\n   METHOD GetDate&#40;&#41;        INLINE GetDatePick&#40; &#58;&#58;hWnd &#41;\n\n   METHOD LostFocus&#40; hCtrl &#41;\n   METHOD Change&#40;&#41;\n   METHOD Changed&#40;&#41; INLINE &#40; Eval&#40; &#58;&#58;bSetGet, &#58;&#58;GetDate&#40;&#41; &#41;, &#58;&#58;Change&#40;&#41; &#41;\n\n   METHOD Refresh&#40;&#41; INLINE &#58;&#58;SetDate&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;\n            nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;\n            bWhen, bChange, nHelpId, lEmp &#41; Class TDatePick\n\n   DEFAULT nRow     &#58;= 0, nCol &#58;= 0,;\n           oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nWidth   &#58;= 100,;\n           nHeight  &#58;= If&#40; oFont != nil, oFont&#58;nHeight, 22 &#41;,;\n           nClrFore &#58;= GetSysColor&#40; COLOR_WINDOWTEXT &#41;,;\n           nClrBack &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,;\n           oFont    &#58;= oWnd&#58;oFont,;\n           nHelpId  &#58;= 100,;\n           lDesign  &#58;= &#46;f&#46;,;\n           lPixel   &#58;= &#46;f&#46;,;\n           lUpdate  &#58;= &#46;f&#46;,;\n           lEmp     &#58;= &#46;t&#46;\n\n   &#58;&#58;cCaption  = &quot;&quot;\n   &#58;&#58;nTop      = nRow * If&#40; ! lPixel, BTN_CHARPIX_H, 1 &#41;\n   &#58;&#58;nLeft     = nCol * If&#40; ! lPixel, BTN_CHARPIX_W, 1 &#41;\n   &#58;&#58;nBottom   = &#58;&#58;nTop  + nHeight\n   &#58;&#58;nRight    = &#58;&#58;nLeft + nWidth\n   &#58;&#58;nHelpId   = nHelpId\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;oFont     = oFont\n   &#58;&#58;bSetGet   = bSetGet\n   &#58;&#58;lEmptyDate &#58;= lEmp\n   if !lEmp\n      &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP,;\n      If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41; &#41;\n     else\n      &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP, DTS_SHOWNONE,;\n      If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41; &#41;\n   endif\n\n   &#58;&#58;nId       = &#58;&#58;GetNewId&#40;&#41;\n   &#58;&#58;lDrag     = lDesign\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;cMsg      = cMsg\n   &#58;&#58;lUpdate   = lUpdate\n   &#58;&#58;bWhen     = bWhen\n   &#58;&#58;bValid    = bValid\n   &#58;&#58;bChange   = bChange\n\n   InitCommon&#40;&#41;\n\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40; &quot;SysDateTimePick32&quot; &#41;\n      oWnd&#58;AddControl&#40; Self &#41;\n      if oFont != nil\n         &#58;&#58;SetFont&#40; oFont &#41;\n      endif\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\n   if lDesign\n      &#58;&#58;CheckDots&#40;&#41;\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine&#40; nId, bSetGet, oWnd, nHelpId, nClrFore, nClrBack,;\n                 oFont, oCursor, cMsg, lUpdate, bWhen, bValid, bChanged &#41; Class TDatePick\n\n   DEFAULT oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nClrFore &#58;= GetSysColor&#40; COLOR_WINDOWTEXT &#41;,;\n           nClrBack &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,;\n           lUpdate  &#58;= &#46;f&#46;\n\n   &#58;&#58;nId       = nId\n   &#58;&#58;hWnd      = 0\n   &#58;&#58;nHelpId   = nHelpId\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;oFont     = oFont\n   &#58;&#58;oCursor   = oCursor\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;lDrag     = &#46;f&#46;\n   &#58;&#58;cMsg      = cMsg\n   &#58;&#58;lUpdate   = lUpdate\n   &#58;&#58;bWhen     = bWhen\n   &#58;&#58;bValid    = bValid\n   &#58;&#58;bSetGet   = bSetGet\n   &#58;&#58;bChange   = bChanged\n\n   InitCommon&#40;&#41;\n   &#58;&#58;Register&#40;&#41;\n   oWnd&#58;DefControl&#40; Self &#41;\nreturn Self\n\nMETHOD Initiate&#40; hDlg &#41; Class TDatePick\n   Super&#58;Initiate&#40; hDlg &#41;\n   &#58;&#58;cText = Eval&#40; &#58;&#58;bSetGet &#41;\nreturn nil\n\nMETHOD cText&#40; uVal &#41; CLASS TDatePick\n   if PCount&#40;&#41; == 1\n      Eval&#40; &#58;&#58;bSetGet, uVal &#41;\n      &#58;&#58;SetDate&#40; uVal &#41;\n      &#58;&#58;Refresh&#40;&#41;\n      &#58;&#58;Change&#40;&#41;\n   endif\nreturn &#58;&#58;GetDate&#40;&#41;\n\n//---------------------------------------------------------------------------//\n// Controlo si la fecha esta vacia para quitar la marca del checkbox incluido en el campo\n// El quinto parametro indica el estado del checkbox&#46; 0 Marcado, 1 Desmarcado&#46;\n\nMETHOD SetDate&#40; dDate &#41;  CLASS TDatePick\n   local dShow\n   local dDat &#58;= dDate\n   if empty&#40; dDate &#41;\n      dDat &#58;= if&#40; !&#58;&#58;lEmptyDate, date&#40;&#41;, dDate &#41;\n   endif\n   dShow &#58;= dDat\n   SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dShow &#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;, 0 &#41;\n   if Empty&#40;dDate&#41;\n     SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dShow &#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;, 1 &#41;\n   endif\nreturn Self\n\nMETHOD LostFocus&#40; hCtrl &#41;  CLASS TDatePick\n   Eval&#40; &#58;&#58;bSetGet, &#58;&#58;cText &#41;\nreturn Super&#58;LostFocus&#40; hCtrl &#41;\n\nMETHOD Change&#40;&#41; CLASS TDatePick\n   if &#58;&#58;bChange != nil\n      Eval&#40; &#58;&#58;bChange, Self &#41;\n   endif\nreturn nil\n[/code:12cjhvzh]','',0,'gIA=','12cjhvzh',1,0,'',31,0,0),(13997,3204,3,67,0,'62.235.24.18',1149589749,1,0,1,1,1,0,'','Entering a negative number in tGet','Hello,\n\n3 weeks ago i asked the same question , but i was on vacation for two weeks , so i try it again\n\nIn mine main aplication i have a dialog from resources , with a lot of get\'s (numeric value)\n\nEach numeric get has a picture clause  :  \n\nREDEFINE GET oGet VAR nInp ID 157 PICTURE \"@K #99\" OF Odlg\n\nEntering a value as -99 , give no problems (no reformatting is needed) \n\nBUT :\n\nentering -9 , pressing TAB or ENTER reformats the get WITHOUT \'-\' SIGN !!!\n\nTesting with testget2 , changing the get in REDEFINE GET ... to have the same situation give no problems !!!!\n\nSo i tryed to change tget.prg in METHOD KeyChar( nKey, nFlags )\n\n    case nKey == VK_TAB .or. nKey == VK_RETURN\n           trace(::oget:buffer,::varget()) // Shows -9 , 0\n\nTrace executes a msginfo , but the (wrong) reformatting is all ready executed\n\nSo it seems that something go wrong BEFORE this statement.but where ?\n\nUsing fw2.7 , march , last xhb\n\nFrank','',0,'gIA=','26vhia28',1,0,'',67,0,0),(13998,3205,6,413,0,'194.106.16.43',1149592310,1,0,1,1,1,0,'','Seleccionar Impresora en Crystal Reports... para Rene','Tengo implementado el crystal reports en mis programas y funciona perfectamente, el problema es que me coge la impresora por defecto, he mirado el codigo y no tiene una funcion Function PESelectPrinter cosa que antes en la version de 16 bits tenia: \n[code:2xh85unh]\nFunction PESelectPrinter&#40;hPrintJob,cDriver,cPrinter,cPort,cDevMode&#41;\n	local cDLL &#58;= GetProcAddress&#40;hLibCRPE, &quot;PESelectPrinter&quot;, &quot;Pascal&quot;, &quot;bool&quot;, &quot;int,str,str,str,str&quot;&#41;\nRETURN &#40;CallDLL&#40;cDLL,hPrintJob,cDriver,cPrinter,cPort,cDevMode&#41;&#41;\n\n[/code:2xh85unh]\n\nAhora sencillamente parece que hace una llamada en el objeto que la crea pero, no me aparece en el visor de impresion:\n\n[code:2xh85unh]\n    ELSE\n\n       &#58;&#58;PEOpenEngine&#40;&#41;\n\n       // Create JobInfo Class\n       //\n       STRUCT &#58;&#58;oJobInfo\n\n         MEMBER structSize   AS WORD  LEN 2\n         MEMBER NumRecords   AS DWORD LEN 4\n         MEMBER NumSelect    AS DWORD LEN 4\n         MEMBER NumPrinted   AS DWORD LEN 4\n         MEMBER DispPageN    AS WORD  LEN 2\n         MEMBER LatestPage   AS WORD  LEN 2\n         MEMBER StartPageN   AS WORD  LEN 2\n         MEMBER PrintEnded   AS BOOL  LEN 2\n\n       ENDSTRUCT\n\n       &#58;&#58;oJobInfo&#58;SetMember&#40;1, 22 &#41;\n\n       STRUCT &#58;&#58;oTabLocation\n\n         MEMBER structSize   AS WORD   LEN 2\n         MEMBER location     AS STRING LEN 256\n\n       ENDSTRUCT\n\n       &#58;&#58;oTabLocation&#58;SetMember&#40;1, 258 &#41;\n\n       // Create oWinOptions Class\n\n       STRUCT &#58;&#58;oWinOptions\n\n         MEMBER structSize             AS WORD  LEN 2\n         MEMBER hasGroupTree           AS BOOL  LEN 2\n         MEMBER CanDrillDown           AS BOOL  LEN 2\n         MEMBER hasNavigationControls  AS BOOL  LEN 2\n         MEMBER hasCancelButton        AS BOOL  LEN 2\n         MEMBER hasPrintButton         AS BOOL  LEN 2\n         MEMBER hasExportButton        AS BOOL  LEN 2\n         MEMBER hasZoomControl         AS BOOL  LEN 2\n         MEMBER hasCloseButton         AS BOOL  LEN 2\n         MEMBER hasProgressControls    AS BOOL  LEN 2 \n         MEMBER hasSearchButton        AS BOOL  LEN 2  //&lt;&lt;&lt;&lt;&lt;&lt;&lt; Desde aqui estos botones no aparecen&#46;\n         MEMBER hasPrintSetupButton    AS BOOL  LEN 2\n         MEMBER hasRefreshButton       AS BOOL  LEN 2\n\n       ENDSTRUCT\n[/code:2xh85unh]\n\nA que se debe esta anomalia, puede ser por la version CRW 8.5 en español, que la dll no tenga esos botones.\n\nGracias a todos de antemando\n\nA que se de','',0,'AIA=','2xh85unh',1,0,'',413,0,0),(13999,2979,6,439,0,'190.0.133.96',1149593398,1,0,1,1,1,1,'','Problema con Menues','Uso la de  Windows XP Sp-2 sin modificar, solo compilo las aplicaciones incluyendo en el rc: 1 24 WindowsXp.Manifest , tal como se indica en el directorio de ejemplos.','',0,'AIA=','gb1e2iy6',1,0,'',439,0,0),(14000,3059,6,81,0,'80.28.244.140',1149593524,1,0,1,1,1,0,'','','Los 39 cumplidos en Abril.  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> \nPase por dbase, otoño  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  y verano  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> .\nLuego Eidos, Pulpon, Linares etc etc. \nDesde los 18 añitos en esto. Primer pc amstrad con 2 disketeras de 5 1/4 je je.\nComo pasaba informacion de una a otra je je.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  Que descarga de adrenalina viendo cargar los 120 kb en un plis plas de una a otra ...... <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','x6f6r1c1',1,0,'',81,0,0),(14001,702,2,221,0,'200.109.232.241',1149596731,1,0,1,1,1,0,'','saludos','a mi tanbien me seria de utilidad, gracias\n\n<!-- e --><a href=\"mailto:alex_patino74@hotmail.com\">alex_patino74@hotmail.com</a><!-- e -->','',0,'AIA=','3s6ouxyw',1,0,'',221,0,0),(14002,3174,7,428,0,'200.55.19.126',1149598643,1,0,1,1,1,0,'','','ME EQUIVOQUE, les pido que por favor me disculpen, subi otro archivo que nada que ver con los programas FUENTES en C, ahora les paso el link correcto:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01d40e2f51/AN926_Source_Code.zip.html\">http://hyperupload.com/download/01d40e2 ... e.zip.html</a><!-- m -->\n\nGracias','',0,'AIA=','1dok2cr9',1,0,'',428,0,0),(14003,3204,3,67,0,'62.235.24.18',1149601146,1,0,1,1,1,0,'','','The last i found is that in method lostfocus \n\n   if ! ::oGet:BadDate .and. ! ::lReadOnly .and. ;\n      ( ::oGet:changed .or. ::oGet:unTransform() &lt;&gt; ::oGet:original )\n      ::oGet:Assign()     // for adjust numbers\n# ifdef TEST\n   if ! Empty( ::cPicture ) .and. ::oGet:type == \"N\"\n		trace(::Varget() , ::lPassword , GetWindowText( ::hWnd ) , ::oGet:buffer)\n	 end\n# endif\n   ::oGet:UpdateBuffer()\nendif\n\n::varget() is changed from negative to positive after ::oGet:Assign()\n\nWhere is this method ? In tget i see only :\n\n   METHOD Assign() INLINE ::oGet:Assign()\n\nI suppose it is a tClipGet method , but don\'t find it\n\nFrank','',0,'AIA=','2l3kr5hr',1,0,'',67,0,0),(14004,3198,7,2,0,'87.218.146.129',1149603385,1,0,1,1,1,1,'','','Toni,\n\nYa publicamos un primer prototipo y tenemos previsto implementarlo completamente en pocos dias. Posiblemente en una semana máximo.','',0,'AIA=','1uxkknx6',1,0,'',2,0,0),(14005,3204,3,2,0,'87.218.146.129',1149603518,1,0,1,1,1,1,'','','Frank,\n\nMethod VarGet() is implemented in Class TControl.\n\nWhat value has nInp before using it ?\nREDEFINE GET oGet VAR nInp ID 157 PICTURE \"@K #99\" OF Odlg','',0,'AIA=','18llto3l',1,0,'',2,0,0),(14006,3206,6,121,0,'201.152.79.118',1149607127,1,0,1,1,1,1,'','PRINTERSETUP','Como puedo saber la eleccion del usuario despues\ndel PRINTERSETUP()\n\nquisieia saber el nombre de la impresora que eligio\no el numero de copias\no el tamaño de pagina\no si cancelo la impresion\n\nSaludos','',0,'AIA=','3g70trwz',1,0,'',121,0,0),(14007,3202,3,217,0,'200.159.120.34',1149609266,1,0,1,1,1,0,'','','Thanks, Enrico!\n\nRegards!\nMaurilio','',0,'AIA=','1vcwxvln',1,0,'',217,0,0);
INSERT INTO `phpbb_posts` VALUES (14008,3207,6,612,0,'200.88.175.244',1149612640,1,0,1,1,1,1,'','Comprimir Carpetas y SubCarpetas con Zip32','Saludos.\n\nAlguien Me podria ayudar o modificar este Codigo que comprime bien los\narchivos de una carpeta pero no los Directorios y SubDirectorios.\n\nYo deseo comprimir una Carpeta en el Disco C que se llama Prueba y\ndentro de Prueba hay varias SubCarpetas las cuales se me comprimen \npero sin los archivos.\n\nFavor alguien ayudarme a comprimir esta carpeta con todas sus SubCarpetas.\n\nGracias\n\n\nOption Explicit\n\'En un Formulario...............................................\n\'---------------------------------------------------------------\n\'-- Please Do Not Remove These Comments!!!\n\'---------------------------------------------------------------\n\'-- Sample VB 5 code to drive zip32.dll\n\'-- Contributed to the Info-ZIP project by Mike Le Voi\n\'--\n\'-- Contact me at: <!-- e --><a href=\"mailto:mlevoi@modemss.brisnet.org.au\">mlevoi@modemss.brisnet.org.au</a><!-- e -->\n\'--\n\'-- Visit my home page at: <!-- m --><a class=\"postlink\" href=\"http://modemss.brisnet.org.au/~mlevoi\">http://modemss.brisnet.org.au/~mlevoi</a><!-- m -->\n\'--\n\'-- Use this code at your own risk. Nothing implied or warranted\n\'-- to work on your machine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\'---------------------------------------------------------------\n\'--\n\'-- This Source Code Is Freely Available From The Info-ZIP Project\n\'-- Web Server At:\n\'-- <!-- m --><a class=\"postlink\" href=\"ftp://ftp.info-zip.org/pub/infozip/infozip.html\">ftp://ftp.info-zip.org/pub/infozip/infozip.html</a><!-- m -->\n\'--\n\'-- A Very Special Thanks To Mr. Mike Le Voi\n\'-- And Mr. Mike White\n\'-- And The Fine People Of The Info-ZIP Group\n\'-- For Letting Me Use And Modify Their Original\n\'-- Visual Basic 5.0 Code! Thank You Mike Le Voi.\n\'---------------------------------------------------------------\n\'--\n\'-- Contributed To The Info-ZIP Project By Raymond L. King\n\'-- Modified June 21, 1998\n\'-- By Raymond L. King\n\'-- Custom Software Designers\n\'--\n\'-- Contact Me At: <!-- e --><a href=\"mailto:king@ntplx.net\">king@ntplx.net</a><!-- e -->\n\'-- ICQ 434355\n\'-- Or Visit Our Home Page At: <!-- m --><a class=\"postlink\" href=\"http://www.ntplx.net/~king\">http://www.ntplx.net/~king</a><!-- m -->\n\'--\n\'---------------------------------------------------------------\n\nPrivate Sub Form_Click()\n\n  Dim retcode As Integer  \' For Return Code From ZIP32.DLL\n\n  Cls\n\n  \'-- Set Options - Only The Common Ones Are Shown Here\n  \'-- These Must Be Set Before Calling The VBZip32 Function\n  zDate = vbNullString\n  \'zDate = \"08151998\" \' mmddyyyy\n  \'zExcludeDate = 1 \' 1 = Exclude files later than zDate\n  zTempDir = vbNullChar \' Temporary directory for use during zip process\n  \'zTempDir = \"C:\\work\"\n  zRootDir = vbNullChar\n  zJunkDir = 0     \' 1 = Throw Away Path Names\n  zRecurse = 0     \' 1 = Recurse -R 2 = Recurse -r 2 = Most Useful <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n  zUpdate = 0      \' 1 = Update Only If Newer\n  zFreshen = 0     \' 1 = Freshen - Overwrite Only\n  zLevel = Asc(9)  \' Compression Level (0 - 9)\n  zEncrypt = 1     \' Encryption = 1 For Password Else 0\n  zComment = 0     \' Comment = 1 if required\n\n  \'-- Select Some Files - Wildcards Are Supported\n  \'-- Change The Paths Here To Your Directory\n  \'-- And Files!!!\n  zArgc = 3           \' Number Of Elements Of mynames Array\n  zZipFileName = \"c:\\Prueba.zip\"\n  zZipFileNames.zFiles(0) = \"c:\\Prueba\\*.*\"\n  zZipFileNames.zFiles(1) = \"c:\\Prueba\\*.*\"\n  zZipFileNames.zFiles(2) = \"c:\\Prueba\\*.*\"\n  \' This next variable affects where Zip32 will look for files by default\n  \' AND how they are stored in the zip\n  \'zRootDir = \"E:\\wiz\"\n  \n\n  \'-- Go Zip Them Up!\n  retcode = VBZip32\n\n  \'-- Display The Returned Code Or Error!\n  Print \"Return code:\" &amp; Str(retcode)\n\nEnd Sub\n\nPrivate Sub Form_Load()\n\n  Me.Show\n\n  Print \"Click me!\"\n\nEnd Sub\n\n\n\n\n\n\n\'**************************************************\n\n\n\n\n\nOption Explicit\n\'En un Modulo...................................................\n\'---------------------------------------------------------------\n\'-- Please Do Not Remove These Comments!!!\n\'---------------------------------------------------------------\n\'-- Sample VB 5 code to drive zip32.dll\n\'-- Contributed to the Info-ZIP project by Mike Le Voi\n\'--\n\'-- Contact me at: <!-- e --><a href=\"mailto:mlevoi@modemss.brisnet.org.au\">mlevoi@modemss.brisnet.org.au</a><!-- e -->\n\'--\n\'-- Visit my home page at: <!-- m --><a class=\"postlink\" href=\"http://modemss.brisnet.org.au/~mlevoi\">http://modemss.brisnet.org.au/~mlevoi</a><!-- m -->\n\'--\n\'-- Use this code at your own risk. Nothing implied or warranted\n\'-- to work on your machine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\'---------------------------------------------------------------\n\'--\n\'-- This Source Code Is Freely Available From The Info-ZIP Project\n\'-- Web Server At:\n\'-- <!-- m --><a class=\"postlink\" href=\"ftp://ftp.info-zip.org/pub/infozip/infozip.html\">ftp://ftp.info-zip.org/pub/infozip/infozip.html</a><!-- m -->\n\'--\n\'-- A Very Special Thanks To Mr. Mike Le Voi\n\'-- And Mr. Mike White\n\'-- And The Fine People Of The Info-ZIP Group\n\'-- For Letting Me Use And Modify Their Original\n\'-- Visual Basic 5.0 Code! Thank You Mike Le Voi.\n\'---------------------------------------------------------------\n\'--\n\'-- Contributed To The Info-ZIP Project By Raymond L. King\n\'-- Modified June 21, 1998\n\'-- By Raymond L. King\n\'-- Custom Software Designers\n\'--\n\'-- Contact Me At: <!-- e --><a href=\"mailto:king@ntplx.net\">king@ntplx.net</a><!-- e -->\n\'-- ICQ 434355\n\'-- Or Visit Our Home Page At: <!-- m --><a class=\"postlink\" href=\"http://www.ntplx.net/~king\">http://www.ntplx.net/~king</a><!-- m -->\n\'--\n\'---------------------------------------------------------------\n\n\'-- C Style argv\n\'-- Holds The Zip Archive Filenames\nPublic Type ZIPnames\n  zFiles(0 To 99) As String\nEnd Type\n\n\'-- Call Back \"String\"\nPublic Type ZipCBChar\n  ch(4096) As Byte\nEnd Type\n\n\'-- Little \"String\"\nPublic Type ZipStr\n  ch(256) As Byte\nEnd Type\n\n\'-- ZPOPT Is Used To Set The Options In The ZIP32.DLL\nPublic Type ZPOPT\n  Date           As Long   \' LPSTR Date (8 Bytes Long) \"mmddyyyy\"\n  szRootDir      As Long   \' LPSTR Root Directory Pathname (Up To 256 Bytes Long)\n  szTempDir      As Long   \' LPSTR Temp Directory Pathname (Up To 256 Bytes Long)\n  fTemp          As Long   \' 1 If Temp dir Wanted, Else 0\n  fSuffix        As Long   \' Include Suffixes (Not Yet Implemented!)\n  fEncrypt       As Long   \' 1 If Encryption Wanted, Else 0\n  fSystem        As Long   \' 1 To Include System/Hidden Files, Else 0\n  fVolume        As Long   \' 1 If Storing Volume Label, Else 0\n  fExtra         As Long   \' 1 If Excluding Extra Attributes, Else 0\n  fNoDirEntries  As Long   \' 1 If Ignoring Directory Entries, Else 0\n  fExcludeDate   As Long   \' 1 If Excluding Files Earlier Than Specified Date, Else 0\n  fIncludeDate   As Long   \' 1 If Including Files Earlier Than Specified Date, Else 0\n  fVerbose       As Long   \' 1 If Full Messages Wanted, Else 0\n  fQuiet         As Long   \' 1 If Minimum Messages Wanted, Else 0\n  fCRLF_LF       As Long   \' 1 If Translate CR/LF To LF, Else 0\n  fLF_CRLF       As Long   \' 1 If Translate LF To CR/LF, Else 0\n  fJunkDir       As Long   \' 1 If Junking Directory Names, Else 0\n  fGrow          As Long   \' 1 If Allow Appending To Zip File, Else 0\n  fForce         As Long   \' 1 If Making Entries Using DOS File Names, Else 0\n  fMove          As Long   \' 1 If Deleting Files Added Or Updated, Else 0\n  fDeleteEntries As Long   \' 1 If Files Passed Have To Be Deleted, Else 0\n  fUpdate        As Long   \' 1 If Updating Zip File-Overwrite Only If Newer, Else 0\n  fFreshen       As Long   \' 1 If Freshing Zip File-Overwrite Only, Else 0\n  fJunkSFX       As Long   \' 1 If Junking SFX Prefix, Else 0\n  fLatestTime    As Long   \' 1 If Setting Zip File Time To Time Of Latest File In Archive, Else 0\n  fComment       As Long   \' 1 If Putting Comment In Zip File, Else 0\n  fOffsets       As Long   \' 1 If Updating Archive Offsets For SFX Files, Else 0\n  fPrivilege     As Long   \' 1 If Not Saving Privileges, Else 0\n  fEncryption    As Long   \' Read Only Property!!!\n  fRecurse       As Long   \' 1 (-r), 2 (-R) If Recursing Into Sub-Directories, Else 0\n  fRepair        As Long   \' 1 = Fix Archive, 2 = Try Harder To Fix, Else 0\n  flevel         As Byte   \' Compression Level - 0 = Stored 6 = Default 9 = Max\nEnd Type\n\n\'-- This Structure Is Used For The ZIP32.DLL Function Callbacks\nPublic Type ZIPUSERFUNCTIONS\n  ZDLLPrnt     As Long        \' Callback ZIP32.DLL Print Function\n  ZDLLCOMMENT  As Long        \' Callback ZIP32.DLL Comment Function\n  ZDLLPASSWORD As Long        \' Callback ZIP32.DLL Password Function\n  ZDLLSERVICE  As Long        \' Callback ZIP32.DLL Service Function\nEnd Type\n\n\'-- Local Declarations\nPublic ZOPT  As ZPOPT\nPublic ZUSER As ZIPUSERFUNCTIONS\n\n\'-- This Assumes ZIP32.DLL Is In Your \\Windows\\System Directory!\n\'-- (alternatively, a copy of ZIP32.DLL needs to be located in the program\n\'-- directory or in some other directory listed in the PATH.)\n\'Private Declare Function ZpInit Lib \"E:\\zip23\\windll\\visualc\\Debug\\app\\zip32.dll\" _\n  (ByRef Zipfun As ZIPUSERFUNCTIONS) As Long \'-- Set Zip Callbacks\nPrivate Declare Function ZpInit Lib \"zip32.dll\" _\n  (ByRef Zipfun As ZIPUSERFUNCTIONS) As Long \'-- Set Zip Callbacks\n\n\'Private Declare Function ZpSetOptions Lib \"E:\\zip23\\windll\\visualc\\Debug\\app\\zip32.dll\" _\n  (ByRef Opts As ZPOPT) As Long \'-- Set Zip Options\nPrivate Declare Function ZpSetOptions Lib \"zip32.dll\" _\n  (ByRef Opts As ZPOPT) As Long \'-- Set Zip Options\n\n\'Private Declare Function ZpGetOptions Lib \"E:\\zip23\\windll\\visualc\\Debug\\app\\zip32.dll\" _\n  () As ZPOPT \'-- Used To Check Encryption Flag Only\nPrivate Declare Function ZpGetOptions Lib \"zip32.dll\" _\n  () As ZPOPT \'-- Used To Check Encryption Flag Only\n\n\'Private Declare Function ZpArchive Lib \"E:\\zip23\\windll\\visualc\\Debug\\app\\zip32.dll\" _\n  (ByVal argc As Long, ByVal funame As String, _\n   ByRef argv As ZIPnames) As Long \'-- Real Zipping Action\nPrivate Declare Function ZpArchive Lib \"zip32.dll\" _\n  (ByVal argc As Long, ByVal funame As String, _\n   ByRef argv As ZIPnames) As Long \'-- Real Zipping Action\n\n\'-------------------------------------------------------\n\'-- Public Variables For Setting The ZPOPT Structure...\n\'-- (WARNING!!!) You Must Set The Options That You\n\'-- Want ZIP32.DLL To Do Before Calling VBZip32!\n\'--\n\'-- NOTE: See The Above ZPOPT Structure Or The VBZip32\n\'--       Function For The Meaning Of These Variables\n\'--       And How To Use And Set Them!!!\n\'-- These Parameters Must Be Set Before The Actual Call\n\'-- To The VBZip32 Function!\n\'-------------------------------------------------------\nPublic zDate         As String\nPublic zRootDir      As String\nPublic zTempDir      As String\nPublic zSuffix       As Integer\nPublic zEncrypt      As Integer\nPublic zSystem       As Integer\nPublic zVolume       As Integer\nPublic zExtra        As Integer\nPublic zNoDirEntries As Integer\nPublic zExcludeDate  As Integer\nPublic zIncludeDate  As Integer\nPublic zVerbose      As Integer\nPublic zQuiet        As Integer\nPublic zCRLF_LF      As Integer\nPublic zLF_CRLF      As Integer\nPublic zJunkDir      As Integer\nPublic zRecurse      As Integer\nPublic zGrow         As Integer\nPublic zForce        As Integer\nPublic zMove         As Integer\nPublic zDelEntries   As Integer\nPublic zUpdate       As Integer\nPublic zFreshen      As Integer\nPublic zJunkSFX      As Integer\nPublic zLatestTime   As Integer\nPublic zComment      As Integer\nPublic zOffsets      As Integer\nPublic zPrivilege    As Integer\nPublic zEncryption   As Integer\nPublic zRepair       As Integer\nPublic zLevel        As Integer\n\n\'-- Public Program Variables\nPublic zArgc         As Integer     \' Number Of Files To Zip Up\nPublic zZipFileName  As String      \' The Zip File Name ie: Myzip.zip\nPublic zZipFileNames As ZIPnames    \' File Names To Zip Up\nPublic zZipInfo      As String      \' Holds The Zip File Information\n\n\'-- Public Constants\n\'-- For Zip &amp; UnZip Error Codes!\nPublic Const ZE_OK = 0              \' Success (No Error)\nPublic Const ZE_EOF = 2             \' Unexpected End Of Zip File Error\nPublic Const ZE_FORM = 3            \' Zip File Structure Error\nPublic Const ZE_MEM = 4             \' Out Of Memory Error\nPublic Const ZE_LOGIC = 5           \' Internal Logic Error\nPublic Const ZE_BIG = 6             \' Entry Too Large To Split Error\nPublic Const ZE_NOTE = 7            \' Invalid Comment Format Error\nPublic Const ZE_TEST = 8            \' Zip Test (-T) Failed Or Out Of Memory Error\nPublic Const ZE_ABORT = 9           \' User Interrupted Or Termination Error\nPublic Const ZE_TEMP = 10           \' Error Using A Temp File\nPublic Const ZE_READ = 11           \' Read Or Seek Error\nPublic Const ZE_NONE = 12           \' Nothing To Do Error\nPublic Const ZE_NAME = 13           \' Missing Or Empty Zip File Error\nPublic Const ZE_WRITE = 14          \' Error Writing To A File\nPublic Const ZE_CREAT = 15          \' Could\'t Open To Write Error\nPublic Const ZE_PARMS = 16          \' Bad Command Line Argument Error\nPublic Const ZE_OPEN = 18           \' Could Not Open A Specified File To Read Error\n\n\'-- These Functions Are For The ZIP32.DLL\n\'--\n\'-- Puts A Function Pointer In A Structure\n\'-- For Use With Callbacks...\nPublic Function FnPtr(ByVal lp As Long) As Long\n    \n  FnPtr = lp\n\nEnd Function\n\n\'-- Callback For ZIP32.DLL - DLL Print Function\nPublic Function ZDLLPrnt(ByRef fname As ZipCBChar, ByVal x As Long) As Long\n    \n  Dim s0 As String\n  Dim xx As Long\n    \n  \'-- Always Put This In Callback Routines!\n  On Error Resume Next\n    \n  s0 = \"\"\n    \n  \'-- Get Zip32.DLL Message For processing\n  For xx = 0 To x\n    If fname.ch(xx) = 0 Then Exit For\n    s0 = s0 + Chr(fname.ch(xx))\n  Next\n    \n  \'----------------------------------------------\n  \'-- This Is Where The DLL Passes Back Messages\n  \'-- To You! You Can Change The Message Printing\n  \'-- Below Here!\n  \'----------------------------------------------\n  \n  \'-- Display Zip File Information\n  \'-- zZipInfo = zZipInfo &amp; s0\n  Form1.Print s0;\n    \n  DoEvents\n    \n  ZDLLPrnt = 0\n\nEnd Function\n\n\'-- Callback For ZIP32.DLL - DLL Service Function\nPublic Function ZDLLServ(ByRef mname As ZipCBChar, ByVal x As Long) As Long\n\n    Dim s0 As String\n    Dim xx As Long\n    \n    \'-- Always Put This In Callback Routines!\n    On Error Resume Next\n    \n    s0 = \"\"\n    \'-- Get Zip32.DLL Message For processing\n    For xx = 0 To x\n      If mname.ch(xx) = 0 Then Exit For\n      s0 = s0 + Chr(mname.ch(xx))\n    Next\n    \' At this point, s0 contains the message passed from the DLL\n    \' It is up to the developer to code something useful here <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n    ZDLLServ = 0 \' Setting this to 1 will abort the zip!\n    \nEnd Function\n\n\'-- Callback For ZIP32.DLL - DLL Password Function\nPublic Function ZDLLPass(ByRef p As ZipCBChar, _\n  ByVal n As Long, ByRef m As ZipCBChar, _\n  ByRef Name As ZipCBChar) As Integer\n  \n  Dim prompt     As String\n  Dim xx         As Integer\n  Dim szpassword As String\n  \n  \'-- Always Put This In Callback Routines!\n  On Error Resume Next\n    \n  ZDLLPass = 1\n  \n  \'-- If There Is A Password Have The User Enter It!\n  \'-- This Can Be Changed\n  szpassword = InputBox(\"Please Enter The Password!\")\n  \n  \'-- The User Did Not Enter A Password So Exit The Function\n  If szpassword = \"\" Then Exit Function\n  \n  \'-- User Entered A Password So Proccess It\n  For xx = 0 To 255\n    If m.ch(xx) = 0 Then\n      Exit For\n    Else\n      prompt = prompt &amp; Chr(m.ch(xx))\n    End If\n  Next\n  \n  For xx = 0 To n - 1\n    p.ch(xx) = 0\n  Next\n  \n  For xx = 0 To Len(szpassword) - 1\n    p.ch(xx) = Asc(Mid(szpassword, xx + 1, 1))\n  Next\n  \n  p.ch(xx) = Chr(0) \' Put Null Terminator For C\n  \n  ZDLLPass = 0\n    \nEnd Function\n\n\'-- Callback For ZIP32.DLL - DLL Comment Function\nPublic Function ZDLLComm(ByRef s1 As ZipCBChar) As Integer\n    \n    Dim xx%, szcomment$\n    \n    \'-- Always Put This In Callback Routines!\n    On Error Resume Next\n    \n    ZDLLComm = 1\n    szcomment = InputBox(\"Enter the comment\")\n    If szcomment = \"\" Then Exit Function\n    For xx = 0 To Len(szcomment) - 1\n        s1.ch(xx) = Asc(Mid$(szcomment, xx + 1, 1))\n    Next xx\n    s1.ch(xx) = Chr(0) \' Put null terminator for C\n\nEnd Function\n\n\'-- Main ZIP32.DLL Subroutine.\n\'-- This Is Where It All Happens!!!\n\'--\n\'-- (WARNING!) Do Not Change This Function!!!\n\'--\nPublic Function VBZip32() As Long\n    \n  Dim retcode As Long, xx As Integer\n  Dim RootStr As ZipStr, DateStr As ZipStr, TempStr As ZipStr\n    \n  On Error Resume Next \'-- Nothing Will Go Wrong <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n    \n  retcode = 0\n    \n  \'-- Set Address Of ZIP32.DLL Callback Functions\n  \'-- (WARNING!) Do Not Change!!!\n  ZUSER.ZDLLPrnt = FnPtr(AddressOf ZDLLPrnt)\n  ZUSER.ZDLLPASSWORD = FnPtr(AddressOf ZDLLPass)\n  ZUSER.ZDLLCOMMENT = FnPtr(AddressOf ZDLLComm)\n  ZUSER.ZDLLSERVICE = FnPtr(AddressOf ZDLLServ)\n    \n  \'-- Set ZIP32.DLL Callbacks\n  retcode = ZpInit(ZUSER)\n    \n  \'-- Setup ZIP32 Options\n  \'-- (WARNING!) Do Not Change!\n  \'\n  \' Note new code below - these are NOT strings in VB <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n  \n  \' Date in \"mmddyyyy\" format\n  For xx = 0 To Len(zDate) - 1\n    DateStr.ch(xx) = Asc(Mid$(zDate, xx + 1, 1))\n  Next xx\n  DateStr.ch(xx) = 0 \' \\0 for C++\n  ZOPT.Date = VarPtr(DateStr)\n  \n  \' Root Directory Pathname\n  For xx = 0 To Len(zRootDir) - 1\n    RootStr.ch(xx) = Asc(Mid$(zRootDir, xx + 1, 1))\n  Next xx\n  RootStr.ch(xx) = 0 \' \\0 for C++\n  ZOPT.szRootDir = VarPtr(RootStr)\n  \n  \' Temp Directory Pathname\n  For xx = 0 To Len(zTempDir) - 1\n    TempStr.ch(xx) = Asc(Mid$(zTempDir, xx + 1, 1))\n  Next xx\n  TempStr.ch(xx) = 0 \' \\0 for C++\n  ZOPT.szTempDir = VarPtr(TempStr)\n  \n  ZOPT.fSuffix = zSuffix             \' Include Suffixes (Not Yet Implemented)\n  ZOPT.fEncrypt = zEncrypt           \' 1 If Encryption Wanted\n  ZOPT.fSystem = zSystem             \' 1 To Include System/Hidden Files\n  ZOPT.fVolume = zVolume             \' 1 If Storing Volume Label\n  ZOPT.fExtra = zExtra               \' 1 If Including Extra Attributes\n  ZOPT.fNoDirEntries = zNoDirEntries \' 1 If Ignoring Directory Entries\n  ZOPT.fExcludeDate = zExcludeDate   \' 1 If Excluding Files Earlier Than A Specified Date\n  ZOPT.fIncludeDate = zIncludeDate   \' 1 If Including Files Earlier Than A Specified Date\n  ZOPT.fVerbose = zVerbose           \' 1 If Full Messages Wanted\n  ZOPT.fQuiet = zQuiet               \' 1 If Minimum Messages Wanted\n  ZOPT.fCRLF_LF = zCRLF_LF           \' 1 If Translate CR/LF To LF\n  ZOPT.fLF_CRLF = zLF_CRLF           \' 1 If Translate LF To CR/LF\n  ZOPT.fJunkDir = zJunkDir           \' 1 If Junking Directory Names\n  ZOPT.fGrow = zGrow                 \' 1 If Allow Appending To Zip File\n  ZOPT.fForce = zForce               \' 1 If Making Entries Using DOS Names\n  ZOPT.fMove = zMove                 \' 1 If Deleting Files Added Or Updated\n  ZOPT.fDeleteEntries = zDelEntries  \' 1 If Files Passed Have To Be Deleted\n  ZOPT.fUpdate = zUpdate             \' 1 If Updating Zip File-Overwrite Only If Newer\n  ZOPT.fFreshen = zFreshen           \' 1 If Freshening Zip File-Overwrite Only\n  ZOPT.fJunkSFX = zJunkSFX           \' 1 If Junking SFX Prefix\n  ZOPT.fLatestTime = zLatestTime     \' 1 If Setting Zip File Time To Time Of Latest File In Archive\n  ZOPT.fComment = zComment           \' 1 If Putting Comment In Zip File\n  ZOPT.fOffsets = zOffsets           \' 1 If Updating Archive Offsets For SFX Files\n  ZOPT.fPrivilege = zPrivilege       \' 1 If Not Saving Privelages\n  ZOPT.fEncryption = zEncryption     \' Read Only Property!\n  ZOPT.fRecurse = zRecurse           \' 1 or 2 If Recursing Into Subdirectories\n  ZOPT.fRepair = zRepair             \' 1 = Fix Archive, 2 = Try Harder To Fix\n  ZOPT.flevel = zLevel               \' Compression Level - (0 To 9) Should Be 0!!!\n    \n  \'-- Set ZIP32.DLL Options\n  retcode = ZpSetOptions(ZOPT)\n    \n  \'-- Go Zip \'em Up!\n  retcode = ZpArchive(zArgc, zZipFileName, zZipFileNames)\n  \n  \'-- Return The Function Code\n  VBZip32 = retcode\n\nEnd Function','',0,'AIA=','w73h046a',1,0,'',612,0,0),(14009,3204,3,67,0,'62.235.24.18',1149613280,1,0,1,1,1,0,'','','Antonio\n\nIt is important to me that this is fixed : my customer can\'t agree with an aplication where no negative numbers can\'t be entered.\n\nNow , i have the modifyed tget.prg i use to test , linked in testget2.prg.\n\nNow , i see a difference in  method lostfocus.\n\nIn mine aplication seems for some reason ::oGet:Baddate seems to be set on .T. . So (In method lostfocus) , the sequens :\n\n\nif ! ::oGet:BadDate .and. ! ::lReadOnly .and. ;\n      ( ::oGet:changed .or. ::oGet:unTransform() &lt;&gt; ::oGet:original )\n   ....\n\nendif\n\nis executed , and as i posted before ::oGet:Assign() changes in this case oget:varget() from negative in positive.\n\nI do not understand at this moment why and how ::oGet:baddate become .T. , but probably the get becomes a non numeric value before the get become focus\n\nFrank','',0,'AIA=','20q1ktb1',1,0,'',67,0,0),(14010,3182,3,266,0,'60.48.49.198',1149614048,1,0,1,1,1,1,'','','Try this :-\n\n\nfunction fLptSend\n \n   local cDcb, nBytes\n   local nComm := OpenComm( \'LPT1\', 1200, 128 )\n   local nError\n\n   if ! BuildCommDcb( \"LPT1:1200,n,8,1\", @cDcb )\n      nError = GetCommError( nComm )\n      Msgwait( \" BuildCommDcb Error: \" + Str( nError ),\'\',.3 )\n   endif\n\n   if ! SetCommState( cDcb )\n      nError = GetCommError( nComm )\n      Msgwait( \"SetCommState Error: \" + Str( nError ),\'\',.3 )\n      return .t.\n   endif\n\n   if ( nBytes := WriteComm( nComm, \'your ASCII string\') ) &lt; 0\n        nError = GetCommError( nComm )\n        Msgwait( \"WriteComm Error: \" + Str( nError ),\'\',.1 )\n   else\n        Msgwait(\'Sent !!!\',.1 )\n   endif\n\n   if FlushComm( nComm, 0 ) != 0\n      nError = GetCommError( nComm )\n      Msgwait( \" FlushComm Error: \" + Str( nError ),\'\',.01 )\n   endif\n\n   if ! CloseComm( nComm )\n      nError = GetCommError( nComm )\n      Msgwait( \"CloseComm Error: \" + Str( nError ),\'\',.01 )\n   endif\n\nreturn nil','',0,'AIA=','1yueniwd',1,0,'',266,0,0),(14011,3204,3,2,0,'87.218.146.67',1149615263,1,0,1,1,1,1,'','','Frank,\n\nsamples\\TestGet2.prg using PICTURE \"@K #99\" works ok. Whats the difference with your code ? Do you store a number or a string in your variable ?\n\nCould you provide a small and self contained sample to reproduce the problem ?','',0,'AIA=','2529wuyy',1,0,'',2,0,0),(14012,3154,3,49,0,'213.82.134.66',1149617154,1,0,1,1,1,1,'','','there is a class  : zoomImage of Izuru\n\nthis class run with the new Image class ( freeImage.dll) of EMG\n\nRegards\nsilvio','',0,'AIA=','2s5rbngb',1,0,'',49,0,0),(14013,3164,3,49,0,'213.82.134.66',1149617516,1,0,1,1,1,1,'','','I\'m working to modify the new preview with old my preview:\n\nI can show  4/6/8/10 page\nI can save  each page or all  on jpg,gif,bmp...\nI can send the page via email\nand other...','',0,'AIA=','3sy5mr79',1,0,'',49,0,0),(14014,2979,6,46,0,'195.8.11.249',1149618540,1,0,1,1,1,0,'','','Si experimentas otros programas ( por ejmplo el messenger ) tambien te da el mismo problema?..\nTe digo esto porque tengo una pc que tiene el mismo problema de visualizacion del menu.. .\npor cierto tiene los temas de windows modificada.','',0,'AIA=','1e7x42ra',1,0,'',46,0,0),(14015,3208,4,240,0,'85.201.100.63',1149619952,1,0,1,1,1,1,'','How to stop en endless loop ?','Hello,\n\nLet me expose the situation of what I need to do:\n\nBy pressing on a button, the user will ask the program to start to read the data from a GPS device.\n\nThe program then enters into an endless loop that will do the following:\n   - read the GPS data\n   - save the data into a file\n   - wait a few seconds\n   - loop\n\nTo stop the loop, the user will push another button.\n\nHow can this be done?\n\nThanks for any hint.\n\nBest regards, Raymond','',0,'AIA=','37aws4zr',1,0,'',240,0,0),(14016,3209,4,240,0,'85.201.100.63',1149620318,1,0,1,1,1,1,'','Drawing with FWPPC','Hi All,\n\nIs it possible to draw on a window with FWPPC?\nCan I use the LineTo() function for example?\n\nAnybody has a sample?\n\nMany thanks,\n\nRaymond','',0,'AIA=','2rwxdlxj',1,0,'',240,0,0),(14017,3210,3,227,0,'200.148.67.217',1149622033,1,0,1,1,1,1,'','TWBrowse + CheckBox','Amigos.... \n\nEstoy montando un listbox usando el TWBrowse necesario y colocar un CheckBox en cada línea para la elección.\n\n¿Alguien hace que la idea de en cuanto a haga?\n\nSoy agradecido desde ya\n\nSaludos\n\nPregunto excusas si el español es defectuoso, por lo tanto estoy utilizando un traductor','',0,'AIA=','1x3unsd1',1,0,'',227,0,0),(14018,3211,6,383,0,'201.240.68.3',1149622766,1,0,1,1,1,0,'','Dbgobottom en Tsbrowse con Scope','Tengo el siguiente problema con el Tsbrowse con Scope:\n\ncFacnum:=\"001\"\n\nDEFINE WINDOW oWndChild MDICHILD OF oWnd\n\nORDSCOPE( 0 , cFacnum ) \nORDSCOPE( 1 , cFacnum ) \n\noW:bGotFocus := { || DBSELECTAREA( oFactu:cAlias ), oB:Refresh() }\n\n@23,0 BROWSE oB;\n	OF OW;\n	COLORS \"N/W*\"\n\n.\n.\n\noWndChild:SetControl( OB )\n\nACTIVATE WINDOW oWndChild;\n	ON INIT  ( WndAdjClient( oWndChild:hWnd ) ,;\n                                oB:Gobottom(),;\n	                oB:ResetBarPos()\n	                OB:UpStable()\n                                 oB:Refresh()\n	                 oB:Setfocus() )\n\nEl problema radica que no se posiciona en el ultimo registro. Es un scope con unos 200 registros. Sin embargo, se posiciona correctamente sin Scopes.\n\nGracias por sus respuesta.\n\nSaludos','',0,'AIA=','20lx4025',1,0,'',383,0,0),(14019,3211,6,362,0,'200.168.52.156',1149623232,1,0,1,1,1,1,'','','Si el Indice estiver Correcto...\n\n\noW:bGotFocus := { || DBSELECTAREA( oFactu:cAlias ), oB:Refresh() }\n\nORDSCOPE( 0 , cFacnum ) \nORDSCOPE( 1 , cFacnum ) \nGO TOP','',0,'AIA=','3exq0j90',1,0,'',362,0,0),(14020,3208,4,6,0,'87.17.223.238',1149624984,1,0,1,1,1,1,'','Re: How to stop en endless loop ?','Just put something like\n\nIF lStop; EXIT; ENDIF\n\ninside the loop and\n\nACTION lStop := .T.\n\nin the stop button action.\n\nEMG','',0,'AIA=','5shoihzf',1,0,'',6,0,0),(14021,3212,6,152,0,'200.113.119.147',1149625041,1,0,1,1,1,0,'','Problemas al actualizarme a FWH2.7','Estoy usando XP y al ejecutar HARBOUR.EXE me da el error [quote:2s127z9w]Programa demasiado extenso para colocarlo en memoria[/quote:2s127z9w]\n\nHay que setear alguna variable de ambiente ?','',0,'gA==','2s127z9w',1,0,'',152,0,0),(14022,3213,3,6,0,'87.17.223.238',1149625277,1,0,1,1,1,1,'','Bug in SetCommState()','It seems that SetCommState() is not able to change the serial communication port baud rate.\n\nAntonio, can you look at it? If you need a sample of the problem please let me know.\n\nEMG','',0,'gA==','1mzh0c1q',1,0,'',6,0,0),(14023,3212,6,152,0,'200.113.119.147',1149627676,1,0,1,1,1,0,'','','Baje el Harbour de :\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0123f5f135/harbour.exe.html\">http://hyperupload.com/download/0123f5f ... r.exe.html</a><!-- m --> \n\nEl equipo tiene un procesador AMD 1,4GHz y 448 MB de RAM','',0,'gA==','15s4xzer',1,0,'',152,0,0),(14024,3213,3,6,0,'87.17.223.238',1149632956,1,0,1,1,1,1,'','Re: Bug in SetCommState()','Found! There are at least the following functions to fix:\n\n[code:1663zlq9]#ifdef __HARBOUR__\n   CLIPPER BUILDCOMMDCB&#40; PARAMS &#41;   //  &#40;&#41;   cInfoDef, @ cDeviceBlock  --&gt; lOk\n#else\n   CLIPPER BUILDCOMMD&#40; PARAMS &#41;   //  CB&#40;&#41;   cInfoDef, @ cDeviceBlock  --&gt; lOk\n#endif\n&#123;\n   DCB dcb;\n\n   GetCommState&#40; hCom, &amp;dcb &#41;; // EMG\n\n   #ifdef __FLAT__\n      if&#40; BuildCommDCB&#40; _parc&#40; 1 &#41;, &amp;dcb &#41; &#41;     // OK\n   #else\n      if&#40; BuildCommDCB&#40; _parc&#40; 1 &#41;, &amp;dcb &#41; == 0 &#41;     // OK\n   #endif\n   &#123;\n      _storclen&#40; &#40; char * &#41; &amp;dcb, sizeof&#40; dcb &#41;, 2 &#41;;\n      _retl&#40; TRUE &#41;;\n   &#125;\n   else                                            // Error\n   &#123;\n      _storc&#40; &quot;&quot;, 2 &#41;;\n      _retl&#40; FALSE &#41;;\n   &#125;\n&#125;[/code:1663zlq9]\n\n[code:1663zlq9]#ifdef __HARBOUR__\n   CLIPPER SETCOMMSTATE&#40; PARAMS &#41;  // &#40;&#41;\n#else\n   CLIPPER SETCOMMSTA&#40; PARAMS &#41;  // TE&#40;&#41;\n#endif\n&#123;\n   #ifdef __FLAT__\n   _retl&#40; SetCommState&#40; hCom, &#40; DCB FAR * &#41; _parc&#40; 2 &#41; &#41; != 0 &#41;; // EMG\n   #else\n   _retl&#40; SetCommState&#40; &#40; DCB FAR * &#41; _parc&#40; 1 &#41; &#41; == 0 &#41;;\n   #endif\n&#125;[/code:1663zlq9]\n\nand obviously move up nCom definition.\n\nEMG','',0,'AIA=','1663zlq9',1,0,'',6,0,0),(14025,3214,6,422,0,'195.8.13.92',1149633042,1,0,1,1,1,0,'','Buttonb','Hola Foro :\n\nComo puedo justificar  la data TButtonBmp:cCaption. ?? de manera que el .BMP quede a la derecha o a la izquierda.\n\nSaludos\nHarbour Build 45.00, bcc55, Fwh 2.7 December 2005.\n\nRicardo R','',0,'AIA=','px6obpvt',1,0,'',422,0,0),(14026,2979,6,439,0,'190.0.138.245',1149634865,1,0,1,1,1,1,'','Menu con problemas','Gracias a todos por sus comentarios.\n\nLes diré que reinstalé Windows (el mismo Windows) en la misma máquina y ahora funciona bien, por lo que pienso que se trataba de algún tipo de corrupción en algún archivo de Windows.\n\nLo importante:\n\nLos menues se visualizan muy bien.\n\nGracias a todos.','',0,'AIA=','1mirrnin',1,0,'',439,0,0),(14027,3212,6,2,0,'87.218.146.67',1149635093,1,0,1,1,1,1,'','','Gonzalo,\n\nAcabamos de descargar el setup de Harbour de esa dirección, lo hemos instalado y ejecutado harbour.exe sin ningún problema.\n\nTienes un antivirus actualizado en el ordenador ?','',0,'AIA=','1vfc3k3s',1,0,'',2,0,0),(14028,3214,6,2,0,'87.218.146.67',1149635275,1,0,1,1,1,1,'','','Ricardo,\n\nEsa capacidad está implementada en el build de abril 2006.\n\nPuedes usar la clase modificada por Rossine, que te proporciona esa capacidad.','',0,'AIA=','2c1qw22s',1,0,'',2,0,0),(14030,3164,3,439,0,'190.0.138.245',1149635491,1,0,1,1,1,1,'','Sample','Sylvio if you have an example I would like to see it too.\nPlease, send it to <!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e -->','',0,'AIA=','m2e6dzyb',1,0,'',439,0,0),(14031,3213,3,2,0,'87.218.146.67',1149635835,1,0,1,1,1,1,'','','Enrico,\n\nThanks. I guess you declare hComm as static HANDLE hComm;\n\nBut the problem I see is that you can only manage one comm port at the same time, isn\'t it ?','',0,'AIA=','j36imfyw',1,0,'',2,0,0),(14032,3213,3,6,0,'87.17.223.238',1149637398,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:zdxnbp4x]Enrico,\n\nThanks. I guess you declare hComm as static HANDLE hComm;[/quote:zdxnbp4x]\n\nNo, you declared it that way. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote=&quot;Antonio Linares&quot;:zdxnbp4x]But the problem I see is that you can only manage one comm port at the same time, isn\'t it ?[/quote:zdxnbp4x]\n\nYes, this is another problem. Why did you organize comm.c in such way?\n\nEMG','',0,'gA==','zdxnbp4x',1,0,'',6,0,0),(14033,3213,3,2,0,'87.218.146.67',1149637939,1,0,1,1,1,1,'','','Enrico,\n\n&gt; No, you declared it that way.  \n\nYou are totally right <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n&gt; Why did you organize comm.c in such way? \n\nIt has been evolving since 16 bits days: Backwards compatibity, learning and improving, changes... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','39q5fcb2',1,0,'',2,0,0),(14034,3216,6,582,0,'201.252.72.61',1149639563,1,0,1,1,1,0,'','2 pruguntas 2','Gente, quisiera saber como puedo hacer lo siguiente\n1- Que todos los controles tengan el estilo FLAT. No quiero ninguno con el  estilo 3D. Como lo puedo hacer ??? Debo modificar todas las clases ???\n\n2- Hay alguna manera de cargar un theme especifico, al margen del que tenga el Windows XP en ese momento ???\n\nDesde ya mucisimas gracias.\nUn abrazo. El Loco =&gt;))','',0,'gA==','1n0lk9pe',1,0,'',582,0,0),(14035,3217,3,105,0,'200.29.189.226',1149642512,1,0,1,1,1,1,'','Activex difference between FWH/XHB','Antonio\n\nThis piece of code works ok in Xhb.com\n\nComando:=Chr(2) + Chr(1)\nEf:AddDataField(Comando)\n\nExtension:=VtArrayWrapper(VT_UI1,(CHR(0) + CHR(0) + CHR(0) + CHR(0)))\nEf:AddDataField( Extension )\nEf:SendCommand()\n\nIt sends 13 bits to com1, like the OCX is intended to do..\n--&gt; Length 13: 02 D5 1B    02 01    1C    00 00     03 30 31 31 34 	\n\nBut....\n\nComando:=Chr(2) + Chr(1)\nEf:DO(\"AddDataField\",COMANDO)\n\nExtension:=VtArrayWrapper(VT_UI1,(CHR(0) + CHR(0) + CHR(0) + CHR(0)))\nEf:DO(\"AddDataField\", Extension)\nEf:Do(\"SendCommand\")\n\n... sends only 11\n--&gt; Length 11: 02 D5 1B     02 01      1C 03 30 31 31 34\n\n\nMy definition of the Activex is like this...\n\n   Ef:=TActiveX():New( , \"EpsonFPHostControlX.EpsonFPHostControl\")\n   Ef:nWidth = 0\n   Ef:nHeight = 0\n   Ef:Do(\"OpenPort\")\n\nQuite simple, in Xhb Works Ok but I can\'t make it work in FWH only...\n\nAny help will be appreciated.','',0,'gA==','3ubac2q2',1,0,'',105,0,0),(14036,3177,3,303,0,'72.199.41.171',1149642595,1,0,1,1,1,0,'','','ACTIVATE REPORT ... ON END oReport:lTotal := .f.','',0,'gA==','2l7g3jpw',1,0,'',303,0,0),(14037,3214,6,422,0,'195.8.13.95',1149649138,1,0,1,1,1,0,'','TButtonB','Gracias Antonio.\n\nAlguien podria subir ( <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com\">http://hyperupload.com</a><!-- m -->)  la classe tbuttonb modificada por Rossine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> ???\n\n\n\nSaludos.\n\nRicardo R.','',0,'gA==','2gaciym5',1,0,'',422,0,0),(14038,3218,3,160,0,'210.212.142.91',1149656995,1,0,1,1,1,0,'','Is there any way to use Font in DbCombo ?','Hello All,\n\nIs there any way to use Font in DbCombo ?\n\nMy problem is that I am developing an application, in which I am using Indian Language Fonts. I am able to Enter and Store data in Dbf file but when I give selection using DbCombo it goes to different font.\n\nHow can I select the font in DbCombo ?\n\nTIA\nMilan.','',0,'gA==','utjrwowy',1,0,'',160,0,0),(14039,3219,6,413,0,'194.106.16.43',1149661969,1,0,1,1,1,0,'','Compilar Wbquery.prg','He intentado compilar el programa Wbquery.prg en samples y me dice que no localiza los ficheros include: [code:23lf09bp]\n\n#include &quot;winbrow&#46;ch&quot; //&lt;&lt;&lt;&lt;&lt;Este no esta\n#include &quot;dbstruct&#46;ch&quot;\n#include &quot;filepart&#46;ch&quot;  //&lt;&lt;&lt;&lt;&lt;Este no esta\n\n\n[/code:23lf09bp]\n\nHe mirado en todos los includes y el unico que localizo es el dbstruct.ch. Antonio donde los localizo.\n\nSaludos','',0,'AIA=','23lf09bp',1,0,'',413,0,0),(14040,3220,7,57,0,'83.42.116.183',1149662139,1,0,1,1,1,1,'','Aplicación en exclusiva','Me encuentro en ocasiones con clientes que quieren bloquear que sus operarios puedan manipular libremente la pda y solo quieren que  éjecuten su aplicación en exclusiva. Para ello, esto nos puede servir.\n\nON INIT  SHFullScreen(GetActiveWindow() , 0x0020 )\n\nVálido para Pocket y WCE.\n\nSaludos\nToni Sales\n\nAdjunto imágenes con y sin la aplicacion en exclusiva. Aplicacndo lo anterior (primera imagen) ocultamos el botón de inicio Windows.\n\n<!-- m --><a class=\"postlink\" href=\"http://img112.imageshack.us/img112/355/clipboard8tm.jpg\">http://img112.imageshack.us/img112/355/clipboard8tm.jpg</a><!-- m -->','',0,'AIA=','1imfb39x',1,0,'',57,0,0),(14041,3204,3,67,0,'62.235.24.18',1149664271,1,0,1,1,1,0,'','','Antonio\n\nExecuting this code from method lostfocus give as difference :\n   if ! Empty( ::cPicture ) .and. ::oGet:type == \"N\"\n	 		//tracelog(::Varget())\n      ::oGet:Assign()               \n      ::oGet:Picture := ::cPicture\n      ::oGet:UpdateBuffer()\n      ::oGet:KillFocus()\n   endif\n\n   ::oGet:SetFocus()   // to avoid oGet:buffer be nil\n		\n# ifdef TEST                            \ntrace( ::oGet:changed , ::oGet:unTransform() , ::oGet:original)\n// Main aplication : .F. , 1 , -1\n// testget2           /.F. , -1 , -1\n # endif\n\n\n\nIn the main aplication :\n\nInputvalue 1 changed in -1 , ::oGet:untransform() gives 1 , so the next If .... then is executed\n\nIn testget2.prg\n\nInputvalue 0 is changed in -1 , ::oGet:untransform() gives -1 , so the next If .... then is NOT executed\n\nIn both aplications is the same tget linked in !\n\nPlacing the trace statement :\n\nbefore killfocus gives correct result (.T. , -1 , 1 )\nafter killfocus                                  .T. , nil , nil\n\nI am testing on get with a numeric value. This valus is not changed by other mechanism\n\nFrank\n\n\nWhere is the code from ::oget:untransform() ?????','',0,'AIA=','2w9yhxd8',1,0,'',67,0,0),(14042,3204,3,6,0,'82.53.175.95',1149670567,1,0,1,1,1,1,'','','Frank, please take the time to build a reduced and self-contained sample of the problem. Otherwise it will be very difficult to help you.\n\nEMG','',0,'AIA=','msnplr2j',1,0,'',6,0,0),(14043,3218,3,6,0,'82.53.175.95',1149670783,1,0,1,1,1,1,'','Re: Is there any way to use Font in DbCombo ?','Try using:\n\n- FONT clause of @ DBCOMBO command\n- oFont property\n- SetFont() method\n\nEMG','',0,'AIA=','222xiaa5',1,0,'',6,0,0),(14044,3213,3,6,0,'82.53.175.95',1149671082,1,0,1,1,1,1,'','','I know. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThere is one more problem: WriteComm() seems to [b:nfg0lvyw]not[/b:nfg0lvyw] stop the execution till the sending is completed. How to check if a sending is in progress or make WriteComm() to work sinchronously?\n\nEMG','',0,'QA==','nfg0lvyw',1,0,'',6,0,0),(14045,3216,6,2,0,'87.218.146.67',1149675534,1,0,1,1,1,1,'','','1. Tendrías que crear controles definidos por el usuario que reemplazasen a los estandard de Windows, ó modificar el método Paint() de todos ellos para que se dibujasen de otra forma.\n\n2. No que yo sepa <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','3qac8rj1',1,0,'',2,0,0),(14046,3204,3,2,0,'87.218.146.67',1149675787,1,0,1,1,1,1,'','','Frank,\n\n&gt; Where is the code from ::oget:untransform() ?????\n\nIts at harbour/xharbour (source code) Class Get.','',0,'QA==','cx32vup0',1,0,'',2,0,0),(14047,3216,6,582,0,'201.252.72.61',1149677281,1,0,1,1,1,0,'','','Gracias Antonio, tendre que ponerme a modificar nomas.....\nPense que podria ser mas facil. \n\nAhora otra duda Antonio, en el ejemplo FiveDemo que viene en Samples veo que los Get/Browse son FLAT, y por mas que revise el prg como la dll, no pude encontrar el truco.....\nPodrias pasarme el secreto ???\n\nUn abrazo. El Loco =&gt;))\n\n[/url]','',0,'','2aerkbup',1,0,'',582,0,0),(14048,3217,3,2,0,'87.218.146.67',1149680410,1,0,1,1,1,1,'','','Adolfo,\n\nWhere are these bytes defined ?\n\n&gt; 02 D5 1B 02 01 1C 00 00 03 30 31 31 34\n\nIt looks as the two in between zeros are the missing ones.','',0,'','3ou68zls',1,0,'',2,0,0),(14049,3216,6,2,0,'87.218.146.67',1149680740,1,0,1,1,1,1,'','','Revisa samples\\FiveDe32.rc. Posiblemente sea el estilo STYLE WS_CHILD de los diálogos.','',0,'','2mxn3kms',1,0,'',2,0,0),(14050,3213,3,6,0,'82.53.175.95',1149680871,1,0,1,1,1,1,'','','Solved:\n\n[code:49dsxbit]short int WriteComm&#40; short int idComDev, void FAR * lpvBuf, short int cbWrite &#41;\n&#123;\n   DWORD dwBytesWritten = cbWrite;\n\n   overlap&#46;hEvent = CreateEvent&#40; NULL, TRUE, FALSE, NULL &#41;; // EMG\n   dwEventsRead = WriteFile&#40; hCom, lpvBuf, cbWrite, &amp;dwBytesWritten, &amp;overlap &#41;;\n   WaitForSingleObject&#40; overlap&#46;hEvent, INFINITE &#41;; // EMG\n   GetOverlappedResult&#40; hCom, &amp;overlap, &amp;dwBytesWritten, FALSE &#41;;\n   CloseHandle&#40; overlap&#46;hEvent &#41;; // EMG\n   return &#40; &#40; short int &#41; dwBytesWritten &#41;;\n&#125;[/code:49dsxbit]\n\nEMG','',0,'AIA=','49dsxbit',1,0,'',6,0,0),(14051,3216,6,582,0,'201.252.72.61',1149681804,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:t7t0hl74]Revisa samples\\FiveDe32.rc. Posiblemente sea el estilo STYLE WS_CHILD de los diálogos.[/quote:t7t0hl74]\n\nmmmmmm...... me parece que no. Ya lo probe y creo que tampoco viene por ahi, fijate el otro ejemplo FwRes.prg llama a TestClient() con el dialogo \"client\" y este tiene el style \"Popup\" y sale con los get/browse e include un combobox con el estilo flat.\n\nSigo investigando.\nUn abrazo. El Loco =&gt;))','',0,'gA==','t7t0hl74',1,0,'',582,0,0),(14052,3208,4,68,0,'203.45.161.80',1149682224,1,0,1,1,1,1,'','','Raymond,\nMy suggestion is to use a timer function to control the polling of the GPS and read data available.  Use a suitable control to enable or disable the timer so as to stop and start the read cycle and a variable to set the timer period.\nhth','',0,'gA==','1xfk1z0e',1,0,'',68,0,0),(14053,3217,3,105,0,'200.72.140.34',1149684476,1,0,1,1,1,1,'','','Antonio.\n\nThis is just an example, because in the real string, the last 3 groups of bytes are the validation bytes, which change with each string sent to the port.\n\n--&gt; Length 13: 02 D5 1B 02 01 1C -&gt; 00 00 &lt;- 03 30 31 31 34 	\n\n--&gt; Length 11: 02 D5 1B 02 01 1C -&gt; &lt;- 03 30 31 31 34\n\nIs the problem a diferent way in which xhb and FWH send the parameters to the Method inside the activex class ? \n\nAll the other properties, errors messages are recovered without problems, and the only one which is still bothering me is this one. \n\nNext step is to control the Events, but I\'ve seen some examples which I\'m gonna look at.\n\nThanks in advance','',0,'gA==','bmiewx0k',1,0,'',105,0,0),(14054,3217,3,2,0,'87.218.146.67',1149686403,1,0,1,1,1,1,'','','Adolfo,\n\nPlease try this code:\n\nMsgInfo( Len( WideToAnsi( AnsiToWide( &lt;cData&gt; ) ) ) == Len( &lt;cData&gt; ) )\n\nwhere &lt;cData&gt; is the bytes string you send.','',0,'gA==','2cbwdcgc',1,0,'',2,0,0),(14055,3217,3,105,0,'200.72.140.34',1149687352,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2d4c2bz9]Adolfo,\n\nPlease try this code:\n\nMsgInfo( Len( WideToAnsi( AnsiToWide( &lt;cData&gt; ) ) ) == Len( &lt;cData&gt; ) )\n\nwhere &lt;cData&gt; is the bytes string you send.[/quote:2d4c2bz9]\n\nWith this code\n\n   Comando:=chr(2) + Chr(1)\n   lRes:=Ef:DO(\"AddDataField\",Comando)\n\n   MsgInfo( Len( WideToAnsi( AnsiToWide( Comando ) ) ) == Len( Comando ) )\n\n........ The result  is .T.\n\n   Extension:=VtArrayWrapper(VT_UI1,(CHR(0) + CHR(0) + CHR(0) + CHR(0)))\n   Ef:DO(\"AddDataField\", Extension)\n   Ef:Do(\"SendCommand\")\n\n   MsgInfo( Len( WideToAnsi( AnsiToWide( Extension ) ) ) == Len( Extension ) )\n\n............. I get this error..\n\nUnrecoverable error 9023\nhb_xgrab requested to allocate zero bytes\n\n\nWhat does it mean ?','',0,'gA==','2d4c2bz9',1,0,'',105,0,0),(14056,3221,3,213,0,'72.177.228.25',1149690419,1,0,1,1,1,0,'','ActiveX Properties','All,\n\nHow can I set these property using FWH ActiveX?\n\nUsing xHarbour I can do: \n\n   oMapPoint:Toolbars:Item(\"Standard\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Navigation\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Drawing\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Location and Scale\"):Visible := .T. \n\nwhere oMapPoint is the activex object.\n\nThanks,\nRandal Ferguson','',0,'gA==','z1qim657',1,0,'',213,0,0),(14057,3221,3,105,0,'200.72.140.34',1149692109,1,0,1,1,1,1,'','','Randal .. \n\nSee the excat name of the property of your activex,\nFor instance, I use an Epson OCX and the the actual name of a property is \n\ncomm.Comport\n\nSo in Xhb I use \nEf:comm.Comport:=2\n\nIn FWH I Use\n\nEf:SetProp(\"comm.ComPort\",\"2\")\n\nTry It\nBTW with OleView utility you can see all the names of the properties, methods, error messages if you don\'t have access to the activex documentation. Ican sedn it to you if you need it. Just send me a PM\n\nAdolfo','',0,'gA==','2zno2l6t',1,0,'',105,0,0),(14058,3222,6,196,0,'201.252.56.34',1149695023,1,0,1,1,1,0,'','Problema con listbox','Hola a todos.\n\nEstoy haciendo un listbox de una dbf que esta vacia, cuando agrego registros no muestra nada a pesar de que hago todos los refresh() posibles, en cambio si la dbf comienza con un registro funciona perfectamente.\n\nMuchas gracias.\nJorge Jaurena','',0,'gA==','1tlohf40',1,0,'',196,0,0),(14059,3223,6,579,0,'148.223.141.242',1149697282,1,0,1,1,1,1,'','Localizar y extraer archivo adjunto de la bandeja de entrada','Intento hacer un programita que le facilite a mis clientes actualizar los sistemas.\n\n La idea es que este programita busque en la bandeja de entrada un archivo que yo les enviaré, lo copie y descomprima a una carpeta temporal, etc., etc. \n\nExiste alguna forma de que pueda hacer lo anterior?\n\n\'chas gracias de antemano.','',0,'gA==','rkqamcw1',1,0,'',579,0,0),(14060,3208,4,240,0,'85.201.100.63',1149698265,1,0,1,1,1,1,'','','Enrico,\n\nI tried your suggestion but I cannot make it work.\nAs soon as the loop is running, the \"Stop\" button is disabled.\n\n\nJon, \n\nThank you for the idea.\nMy problem is that I am NOT\n  a clipper programmer\n  a fivewin user\nTherefore my knowledge is very poor  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nHow can I control a timer? How can I start it? How can I stop it?\nCould you please share some code to get me started?\n\nMany thanks in advance.\n\nRaymond','',0,'gA==','hl5efzzg',1,0,'',240,0,0),(14061,3221,3,213,0,'72.177.228.25',1149698577,1,0,1,1,1,0,'','','Adolfo,\n\nThanks for the reply.   I know the actual property names and as I indicated I can set the properties using xHabour/CreateActiveX.\n\nHowever, using FWH I cannot find any option that works as part of the property name is a literal string.  Any other ideas?\n\nThanks,\nRandal','',0,'gA==','apfrdy23',1,0,'',213,0,0),(14062,3209,4,240,0,'85.201.100.63',1149698623,1,0,1,1,1,1,'','','Hello,\n\nI have made a small program to test the drawing.\nI am facing a problem.\nWhen I start the program, I see the drawing flashing on the screen.\nThen the screen becomes completely white with the \"Exit\" button shown.\nHere follows the small code :\n[code:3juhpw5m]// Draw on a window\n#include &quot;Fwce&#46;ch&quot;\n#include &quot;Winapi&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\nLOCAL oWnd\nLOCAL hDC\nLOCAL hPen\n\nDEFINE WINDOW oWnd TITLE &quot;DESSIN &quot;\n\nhDC &#58;= oWnd&#58;GetDC&#40;&#41;\nhPen &#58;= CreatePen&#40;PS_SOLID,1,RGB&#40;0,0,0&#41;&#41;\n\n@ 14&#46;4, 1&#46;0 BUTTON &quot;&amp;Exit&quot;     SIZE 60, 35 ;\n               ACTION &#40;oWnd&#58;End&#40;&#41;&#41;\n\noWnd&#58;aControls&#91;1&#93;&#58;SetFocus&#40;&#41;\n\nMoveTo&#40;hDC,100,100&#41;\nLineTo&#40;hDC,150,150,hPen&#41;\nLineTo&#40;hDC,050,050,hPen&#41;\nLineTo&#40;hDC,200,200,hPen&#41;\n\nACTIVATE WINDOW oWnd\n\nRETURN nil\n[/code:3juhpw5m]\n\nAnybody has an idea of what I am missing ?\n\nThanks in advance,\nRaymond','',0,'AIA=','3juhpw5m',1,0,'',240,0,0),(14063,3221,3,105,0,'200.72.140.34',1149698970,1,0,1,1,1,1,'','','[quote=&quot;Randal Ferguson&quot;:3bqbyepn]Adolfo,\n\nThanks for the reply.   I know the actual property names and as I indicated I can set the properties using xHabour/CreateActiveX.\n\nHowever, using FWH I cannot find any option that works as part of the property name is a literal string.  Any other ideas?\n\nThanks,\nRandal[/quote:3bqbyepn]\n\nMmm that\'s something I don\'t know.. sorry\nI would\'ve done \n\n oMapPoint:SetProp(\"Toolbars:Item(\'Standard\'):Visible\",.T.)\n\nHope it Helps...','',0,'gA==','3bqbyepn',1,0,'',105,0,0),(14064,3221,3,213,0,'72.177.228.25',1149699219,1,0,1,1,1,0,'','','Adolfo,\n\n&lt;&lt;oMapPoint:SetProp(\"Toolbars:Item(\'Standard\'):Visible\",.T.) &gt;&gt;\n\nI tried this syntax and several others and could not get it to work.\n\nThanks,\nRandal','',0,'gA==','ee973hde',1,0,'',213,0,0),(14065,3217,3,2,0,'87.218.146.67',1149701811,1,0,1,1,1,1,'','','Adolfo,\n\nWhere are the docs or samples for VtArrayWrapper() ?','',0,'gA==','7t70zcak',1,0,'',2,0,0),(14066,3220,7,2,0,'87.218.146.67',1149701857,1,0,1,1,1,1,'','','Toni,\n\nGracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','jp34wfbs',1,0,'',2,0,0),(14067,3209,4,224,0,'162.83.94.176',1149705941,1,0,1,1,1,1,'','','Raymond,\nWhen the window is painted, the drawing is lost. So, you need to load a function with your drawing instructions and place this in the PAINT callback. I have modified your example below.\n[code:21ng22r5]// Draw on a window\n#include &quot;Fwce&#46;ch&quot;\n#include &quot;Winapi&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\nLOCAL oWnd\n\nDEFINE WINDOW oWnd TITLE &quot;DESSIN &quot;\n\n@ 14&#46;4, 1&#46;0 BUTTON &quot;&amp;Exit&quot;     SIZE 60, 35 ;\n               ACTION &#40;oWnd&#58;End&#40;&#41;&#41;\n\noWnd&#58;aControls&#91;1&#93;&#58;SetFocus&#40;&#41;\n\nACTIVATE WINDOW oWnd ON PAINT MyPainting&#40; oWnd &#41;\n\nRETURN nil\n\n*******************************************************************************\nFUNCTION MyPainting&#40; oWnd &#41;\n*******************************************************************************\nLOCAL hDC\nLOCAL hPen\n   hDC &#58;= oWnd&#58;GetDC&#40;&#41;\n   hPen &#58;= CreatePen&#40;PS_SOLID,1,RGB&#40;0,0,0&#41;&#41;\n\n   MoveTo&#40;hDC,100,100&#41;\n   LineTo&#40;hDC,150,150,hPen&#41;\n   LineTo&#40;hDC,150,050,hPen&#41;\n   LineTo&#40;hDC,200,050,hPen&#41;\n\nRETURN Nil[/code:21ng22r5]','',0,'AIA=','21ng22r5',1,0,'',224,0,0),(14068,3217,3,105,0,'200.29.189.226',1149707332,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:26gkgeje]Adolfo,\n\nWhere are the docs or samples for VtArrayWrapper() ?[/quote:26gkgeje]\n\nAntonio \n\nThis is what I found in the \"what\'s New\" of Xharbour.com February Release\n\n# Renamed class VT to VTWrapper, and VTArray to VTArrayWrapper.\n# Added [] and \"FOR EACH\" operator overloading for VTArrayWrapper().\n# Added auto wrapping of non VT_VARIANT arrays with VTarrayWrapper() class.\n\nNevertheless, If I don\'t Use VtArrayWrapper(), and try to do this... in FWH\n\nExtension:=Chr(0) + Chr(0)\nEf:DO(\"AddDataField\",Extension) \n\nI get the same problem... no Bytes added to the string sent to the Com port\n\nThanks..','',0,'gA==','26gkgeje',1,0,'',105,0,0),(14069,3211,6,383,0,'201.240.68.3',1149707574,1,0,1,1,1,0,'','','El problema continua no se posiciona al inicializar la ventana en el evento ON INIT al ultimo registro.\nEl indicice es condicional.\n\ncFacnum:=\"001\" \n\nDEFINE WINDOW oWndChild MDICHILD OF oWnd \n\noW:bGotFocus := { || DBSELECTAREA( oFactu:cAlias ), oB:Refresh() } \n\n@23,0 BROWSE oB; \nOF OW; \nCOLORS \"N/W*\";\nSELECT FACNUM FOR cFacnum\n\n. \n. \n\noWndChild:SetControl( OB ) \n\nACTIVATE WINDOW oWndChild; \nON INIT ( WndAdjClient( oWndChild:hWnd ) ,; \noB:Gobottom(),; \noB:ResetBarPos() \nOB:UpStable() \noB:Refresh() \noB:Setfocus() ) \n\nHe borrado la función Scope para usar el parametro SELECT &lt; Campo &gt; FOR &lt; cVar &gt; que tiene el Tsbrowse. \n\nPero no se posicionar al ultimo registro, se posiciona en cualquier registro menos en el ultimo.\n\nSaludos','',0,'gA==','3m3384os',1,0,'',383,0,0),(14070,3209,4,240,0,'85.201.100.63',1149707970,1,0,1,1,1,1,'','','Hello Bill,\n\nMany thanks, i works very well.\n\nBest Regards,\nRaymond','',0,'gA==','tksd6o3c',1,0,'',240,0,0),(14071,3224,3,58,0,'84.149.240.233',1149712151,1,0,1,1,1,0,'','BtnBmp in FwH 2.7','Hi All,\n\nyesterday i upgraded to fwH 2.7 for proper use with the latest xHarbour builder.\n\nOne of my applications has a main dialog with some BtnBmp on it, which are not placed on a ButtonBar.\n\nWhen clicking on the dialog title a dotted line is painted around every button. To make this unwanted dots disappear i have to move  the mouse cursor over all buttons.\n\nCan anybody confirm this strange behaviour?\n\nRegards,\nDetlef','',0,'gA==','290a1y0x',1,0,'',58,0,0),(14072,3224,3,6,0,'82.53.175.95',1149714429,1,0,1,1,1,1,'','Re: BtnBmp in FwH 2.7','Please take the time to build a reduced and self-contained sample of the problem.\n\nEMG','',0,'gA==','2yyh6asx',1,0,'',6,0,0),(14073,3209,4,2,0,'87.218.146.67',1149716171,1,0,1,1,1,1,'','','A ReleaseDC() method call is missing:\n[code:u5q4y4xq]\nLOCAL hDC \nLOCAL hPen \n   hDC &#58;= oWnd&#58;GetDC&#40;&#41; \n   hPen &#58;= CreatePen&#40;PS_SOLID,1,RGB&#40;0,0,0&#41;&#41; \n\n   MoveTo&#40;hDC,100,100&#41; \n   LineTo&#40;hDC,150,150,hPen&#41; \n   LineTo&#40;hDC,150,050,hPen&#41; \n   LineTo&#40;hDC,200,050,hPen&#41; \n   \n   oWnd&#58;ReleaseDC&#40;&#41;\nreturn nil\n[/code:u5q4y4xq]','',0,'AIA=','u5q4y4xq',1,0,'',2,0,0),(14074,3217,3,2,0,'87.218.146.67',1149716314,1,0,1,1,1,1,'','','Adolfo,\n\nPlease try this again without using VT... :\n\nMsgInfo( Len( WideToAnsi( AnsiToWide( Extension ) ) ) == Len( Extension ) )','',0,'AIA=','11p8kgi0',1,0,'',2,0,0),(14075,3222,6,2,0,'87.218.146.67',1149716456,1,0,1,1,1,1,'','','Jorge,\n\nPor favor muéstranos el código de cómo creas el browse (listbox).','',0,'AIA=','3ehiupee',1,0,'',2,0,0),(14076,3223,6,492,0,'201.154.132.163',1149717041,1,0,1,1,1,1,'','','Hola Rodolfo\n\n\nNo te serviria mas si implementaras algun envio/recepcion de tal archivo(s) via ftp ?\n\n\nPodrias controlar y manipular todo el proceso desde el mismo sistema.\n\nSaludos','',0,'AIA=','3vr5je0r',1,0,'',492,0,0),(14077,977,7,150,0,'62.15.123.106',1149717616,1,0,1,1,1,1,'','','Hola Osvaldo y Antonio\n\nCon la librería scnapi y el emulador se me plantea el problema de que cuando compilo para el cliente debo incluir tu función y cuando compilo para probar yo en el emulador debo quitarla (si no la quito me dice que falta parte del programa). Y claro alguna vez se la he enviado al cliente mal compilada.\n\n¿Alguna idea de como solucionarlo?','',0,'AIA=','28cko3xf',1,0,'',150,0,0),(14078,3171,3,34,0,'68.4.154.81',1149717983,1,0,1,1,1,1,'','MySQL','I have looked at MySQL, but I don\'t see why people say its cheap.  When I looked at the pricing to distribute it with an application, it didn\'t work out to be lower than ADS.\n\nI have people running 15 to 20 clients with ADS and they simply don\'t have problems with the DBF\'s.\n\nI used DBF\'s because it was easy to retain the data.\n\nAlso, I can easily restore a single file that might be corrupted and not lose a lot of data.  I maintain a slim use of drive space by using 151 data files.  If someone corrupts one, then we can restore just that file and not lose all of the other data.  \n\nI can also repair DBF files.  Are there utilities for fixing SQL files ?  Programs I use that run with SQL servers are not necessarily well behaved.\n\nTim','',0,'AIA=','rp1k86rt',1,0,'',34,0,0),(14079,3223,6,579,0,'148.223.141.242',1149718888,1,0,1,1,1,1,'','','Hola Ray, gracias x tu respuesta\n\nNo sería igual de complicado para el usuario final? Mis clientes son en su mayoria rancheros, saben mucho de toros de lidia pero muy poco de computo.\n\nIntente usar hyperupload.com pero como que esta complicado para el usuario final pues deben buscar en la pagina el sitio exacto donde picarle y luego deben lidiar con avisos de windows sobre que hay peligro de virus al correr un programa de origen desconocido.\n\nSi tu sabes de algún otro sitio o alguna otra forma, te agradeceré me lo indiques.','',0,'AIA=','3qt6i3db',1,0,'',579,0,0),(14080,3225,6,14,0,'201.144.249.182',1149722499,1,0,1,1,1,0,'','error con workshop','Instale el borland resource workshop en una laptop con [b:139m00sr]windows xp home[/b:139m00sr] y todo bien al momento de la instalacion. \n\nPero al momento de ejecutarlo marca el siguiente error:\n\n[img:139m00sr]http&#58;//www&#46;subir-imagenes&#46;com/subir-imagenes/166ffcc502&#46;jpg[/img:139m00sr]\n\n\nEspero se vea la imagen...\n\nY no me permite trabajar con ningun recurso, ya q al tratar de abrir cualquier archivo marca ese error...\n\nGracias por cualquier informacion..\n\nsaludos,\nMarcela','',0,'SA==','139m00sr',1,0,'',14,0,0),(14081,3212,6,152,0,'200.113.119.63',1149723599,1,0,1,1,1,0,'','','Antonio :\nUso el Panda Platinum actualizado, hice una revision completa y no detecto ningun virus.  \nEs posible conseguir el Harbour ya descomprimido ? \nO, tengo simplemente que agregar mas memoria a mi PC.\n\nSaludos\nGonzalo.','',0,'SA==','2jfj9wmb',1,0,'',152,0,0),(14082,3226,6,121,0,'201.133.90.108',1149723766,1,0,1,1,1,1,'','PRINTERSETUP','CREO QUE NO SE ENTENDIO  MI PREGUNTA\n\nSI UTILIZO PRINTERSETUP()\n\nPRINTERSETUP()\nEXISTE ALGUNA VARIABLE EN DONDE QUEDE LA\nIMPRESORA QUE SE ELIGIO O ALGUN ARREGLO QUE ME MUESTRE\nLOS VALORES DE LA IMPRESORA, ORIENTACION, TAMAÑO DE PAPEL \nETC...\n\nSALUDOS','',0,'SA==','b9amx2zy',1,0,'',121,0,0),(14083,3223,6,492,0,'201.154.132.163',1149724110,1,0,1,1,1,1,'','','Rodolfo\n\nExiste un programita llamado : EasyFileSharing, es una maravilla !! te facilita esos menesteres y ademas trae como plus, un modulo para montarte un foro como este que usamos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPuedes accesar via Lan o por Internet ( con algunos pequeños ajustes en tu router ) a los archivos que tu especifiques y ademas te provee validacion a los usuarios que accesen al mismo.\n\nNo es free, pero realmente vale lo que cuesta  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  (45 dls )\n\nEsto es una opcion para la cuestion de que lo reciban y la otra, pues usando un cliente FTP, hay varios muy buenos y free yo estuve usando el CommanderFTP, en tu Pc instalas uno que la haga de Server que tambien hay varios, yo uso el ServU y listo !! pueden accesar desde su maquina a la tuya y bajan o suben lo que quieras !!!\n\nEn lo que refiere a la actualizacion del sistema en si, podria ser solo archivos de la App ( EXE, INI, DLL, etc ) y bien podrian ser bases de datos que les hallas agregado/modificado campos, para eso yo estoy usando el AstrumInstallWizard que tambien es una chulada para crear archivos de instalacion mas un par de programitas que he hecho para efecto de actualizar los archivos dbfs del sistema.\n\nAsi de esta manera, el cliente por X medio ( incluyendo correo, msn, etc ) recibe el archivo y con solo ejecutarlo, se actualiza toda la aplicacion, sin rollos de descompresion, copiar X archivos, borrar X carpeta, etc.\n\n\nSaludos','',0,'SA==','1e53ehzv',1,0,'',492,0,0),(14084,3225,6,492,0,'201.154.132.163',1149724277,1,0,1,1,1,1,'','','Hola Mapeto\n\n\nSi tienes alguna copia instalada del WS en alguna maquina, basta con que te copies toda la carpeta a la nueva pc.\n\nYo tambien tuve muchas broncas al querer instalar el WS en una PC nueva, al final, copiandolo pude trabajar sin tanto rollo.\n\n\nSaludos','',0,'SA==','3pr9j3x0',1,0,'',492,0,0),(14085,3227,3,234,0,'70.131.145.92',1149724603,1,0,1,1,1,1,'','HTTP Post','Hello,\n\nI need to use http post method to post html content to a website, receive a response (html format) from the website and parse the contents of the website response. Can anyone provide an working example on how to perform this function? \n\nI would appeciate your help!\n\nThank you,','',0,'SA==','gnnz8kju',1,0,'',234,0,0),(14086,3226,6,40,0,'200.77.122.57',1149726193,1,0,1,1,1,0,'','','Marco, no se si sea esto lo que pretendes\n\n    *--// Selecciono Impresora\n    oPrinter :=TPrinter():New( cFile,.f.,.t.,oPrinter,.t.)\n    oPrinter :setup()                                          // Selecciono Impresora\n    cImpresora:=oPrinter:GetModel()                  //  Impresora que Tome\n    cPuerto:=PrnGetPort()                                  // Pueto de la Impresora\n\nEspero te Sirva Saludos\nJoel Andujo','',0,'SA==','su9x5fqg',1,0,'',40,0,0),(14087,3217,3,105,0,'200.29.189.226',1149726704,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:hc8n0wff]Adolfo,\n\nPlease try this again without using VT... :\n\nMsgInfo( Len( WideToAnsi( AnsiToWide( Extension ) ) ) == Len( Extension ) )[/quote:hc8n0wff]\n\nHere is my code and the results\n\n Extension:=CHR(0) + CHR(0)\n\nAlert(len(Extension)) -&gt; 2\nAlert(Len(AnsiToWide( Extension )))  -&gt; 1\nMsgInfo( Len( WideToAnsi(AnsiToWide(Extension))) == Len(Extension)) -&gt; .F.\n\nNow loking in some other stuff I have to do with the OCX I realize that I\'ll need to use CHR(0) + Chr(3), not only Zeroes but mixed with values between 1-15\n\nThe problem is that I need It to use with Both xHarbour Compilers, for 2 very big and different projects, that\'s why the solution found in xHb.com is not suitable for xHarbour.org, so I need it to be done with FWH.\n\nThanks again for your time','',0,'gA==','hc8n0wff',1,0,'',105,0,0),(14088,3208,4,68,0,'203.13.90.2',1149729143,1,0,1,1,1,1,'','','Raymond,\nThanks to Enrico for his suggestion! - see Enrico\'s post \'Serial Port\' of 16 January for some nice code samples.  Use \'activate\' and \'deactivate\' methods to start and stop the timer and hence the serial read function. Let me know if you need a fully working sample...\nhth','',0,'gA==','g1w3z9b6',1,0,'',68,0,0),(14089,3225,6,14,0,'201.144.249.182',1149730681,1,0,1,1,1,0,'','','Hola Raymundo,\n\nGracias por tu respuesta, ya lo intenté, copie el directorio de una compu que funciona bien, y algunos archivos dll que me reportaba q faltaban los fui copiando 1 a 1. Cuando ya porfin corrio, sucedio lo mismo al tratar de abrir un recurso, me marca el error de la imagen de arriba:\n\nerror de proteccion general en el modulo WORKLIB2.DLL....\n\nNo se, pero yo tengo el workshop funcionando en XP profesional, tendra que ver que la laptop tiene win XP HOME... Es primera vez que trabajo con el HOME, y es lo unico diferente...\n\nOjala alguien me pueda dar mas informacion...\n\nsaludos,\nMarcela','',0,'gA==','mvq7jbj9',1,0,'',14,0,0),(14090,3171,3,239,0,'218.19.155.151',1149733324,1,0,1,1,1,0,'','','Mysql can be used free fee under GPL , or you can purchase .\nData damaged/corrupted  /repair data ?  use mysql ,  forget it .\nCompare features of mysql and ADS, they not in a  grade/level.\n\nShuming Wang','',0,'gA==','eehoq1xd',1,0,'',239,0,0),(14091,3223,6,138,0,'201.98.143.4',1149734385,1,0,1,1,1,1,'','','¿ por correo electronico ?.....\n\nTa bien ca.....nijo \n\nLa \"bandeja de entrada\" de Outlook es un ENORME y gigantesco archivo de texto con algunos marcadores para delimitar los mensajes, buscar lo que quieres dentro de ese archivo esta campeon.\n\nVeamos ahora las bondades de usar xHarbour.\n\nComo bien saben, xHarbour tiene una clase IP encargada de todos los menesteres de conexion con IP.\n\nDentro de la clase IP, hay una clase llamada TURL, la cual nos permite descargar archivos que esten alojados en un servidor  web.\n\nLo primero que necesitamos es obviamente tener un servidor web donde podamos subir nuestros archivos\n\nLa mecanica que se puede utilizar es la siguiente:\n\n1) colocamos en nuestro servidor web un archivo EXE con la nueva verison del programa y un archivo TXT que contenga la version actual de nuestro software, por ejemplo:\n\n1.2\n\nEste TXT solo contiene esos 3 caracteres, llamemosle por ejemplo veract.txt\n\n2) Desde nuestro programa, vamos a descargar nuestro archivito TXT, usando la clase TURL y lo guardamos en un archivito de texto local llamado newver.txt:\n[code:wreajbh4]\n oUrl &#58;= tURL&#40;&#41;&#58;New&#40;&quot;http&#58;//www&#46;tuservidorweb&#46;com/veract&#46;txt&quot; &#41;\n oClient &#58;= tIPClient&#40;&#41;&#58;New&#40; oUrl &#41;\n oClient&#58;nConnTimeout &#58;= 20000\n oClient&#58;Open&#40; oUrl &#41;\n oClient&#58;ReadToFile&#40; &quot;newver&#46;txt&quot; &#41;\n oClient&#58;Close&#40;&#41;\n[/code:wreajbh4]\n3) Asumimos que la version instalada la tenemos guardada en una variable:\n\ncVerInstalada := \"1.0\"\n\n4) Leemos nuestro archivo descargado de internet:\n\ncVerNueva := ALLTRIM (MEMOREAD(\"newver.txt\"))\n\n5) Comparamos la version nueva con la instalada\n\n[code:wreajbh4]IF cVerNueva &gt; cVerInstalada\n    // 6&#41; Descargamos la version nueva&#58;\n     oUrl &#58;= tURL&#40;&#41;&#58;New&#40;&quot;http&#58;//www&#46;tuservidorweb&#46;com/prognuevo&#46;exe&quot; &#41;\n     oClient &#58;= tIPClient&#40;&#41;&#58;New&#40; oUrl &#41;\n     oClient&#58;nConnTimeout &#58;= 20000\n     oClient&#58;Open&#40; oUrl &#41;\n     oClient&#58;ReadToFile&#40; &quot;prognuevo&#46;exe&quot;&#41;\n     oClient&#58;Close&#40;&#41;\nENDIF[/code:wreajbh4]\n\ny luego se hace el \"Swap\" de programa. Es decir, cambiamos el programa viejo por el nuevo, acutalizamos la variable de la version, y listo.\n\nTambien podemos hacer archivos INI para manejar mejor esto.','',0,'AIA=','wreajbh4',1,0,'',138,0,0),(14092,3223,6,492,0,'201.154.132.163',1149736056,1,0,1,1,1,1,'','','Woow !!!!\n\nMucho mas practico y facil.\n\nMuchas gracias por el aporte MASTER  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos','',0,'AIA=','2q4q8g16',1,0,'',492,0,0),(14093,3208,4,68,0,'203.13.90.2',1149741239,1,0,1,1,1,1,'','','Raymond,\nThe sample program \'BlueTime\' illustrates the timer function.  This example just reads 20 chs each time - you\'ll need to work out when your GPS data message is complete.  You\'ll need the Mobile 2005 emulator for comms to work reliably...\n\n// BlueTime\n\n#include \"FWCE.ch\"\n\n#define GENERIC_READ    0x80000000\n#define GENERIC_WRITE   0x40000000 \n#define GENERIC_REWRITE 0xC0000000 \n#define OPEN_EXISTING   3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n\nfunction Main()\n\n   local oWnd, oTimer, oChk\n   local hPort\n   local nPollTime := 1000\n   local lOnOff := .T.\n   \nhPort := CreateFile( \"COM1:\",GENERIC_REWRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n\nif hPort == -1\n   MSGALERT(\"Cannot open port\")\n   return -1\nendif\n\n   \n   DEFINE WINDOW oWnd TITLE \"BlueTime\"\n\n   @ 2, 2 BUTTON \"GPS On/Off\" SIZE 80, 30 ACTION (lOnOff := OnOff( hPort, oTimer, lOnOff ), oChk:refresh)\n   \n   @ 10, 2 CHECKBOX oChk VAR lOnOff PROMPT \"On/Off\" OF oWnd SIZE 80, 20\n \n   if hPort != -1\n      DEFINE TIMER oTimer OF oWnd; \n             INTERVAL nPollTime; \n             ACTION ReadGPS(hPort, oTimer)\n   endif\n   \n   ACTIVATE WINDOW oWnd\n   \n   CloseHandle( hPort )\n   \nreturn nil   \n\nfunction ReadGPS( hPort, oTimer )\n\n   local nChr  := 1\n   local cText := \"\"\n   local n     := 1\n\n   oTimer:DeActivate()     // stops timer - waits for data\n\n   do while nChr &gt; 0 .and. n &lt; 21\n      nChr  := ReadByte( hPort ) \n      cText := cText + Chr( nChr )\n      n++\n   end do\n\n   msginfo( cText )\n\n   oTimer:Activate()      // restarts timer\n   \nreturn nil\n\nfunction OnOff( hPort, oTimer, lOnOff )\nif hPort != -1\n   if lOnOff\n      oTimer:DeActivate()       // stops timer\n   else\n      oTimer:Activate()     // starts timer\n   endif\nendif\nreturn !(lOnOff)\n\nhth\nregards','',0,'AIA=','ulmncwmm',1,0,'',68,0,0),(14094,3214,6,422,0,'195.8.13.43',1149742568,1,0,1,1,1,0,'','Buttonb','Hola Foro <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSerá que hay alguna alma caritativa  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , que tenga por ahi la tbutton modificada por Rossine. ?\n\nSaludos.\n\nRicardo R.','',0,'AIA=','2jw78f3j',1,0,'',422,0,0),(14095,977,7,2,0,'87.218.146.67',1149747799,1,0,1,1,1,1,'','','Jose,\n\nQue versión de Windows Mobile tiene el cliente y cual usas tú en el emulador ?','',0,'AIA=','phnpleto',1,0,'',2,0,0),(14096,3217,3,2,0,'87.218.146.67',1149748025,1,0,1,1,1,1,'','','Adolfo,\n\nThats what I was thinking, that FWH AnsiToWide() is not properly managing the zeroes:\n\nExtension:=CHR(0) + CHR(0) \n\nAlert(len(Extension)) -&gt; 2 \nAlert(Len(AnsiToWide( Extension ))) -&gt; 1\n\nWe are going to review it.','',0,'AIA=','ng0aqfuw',1,0,'',2,0,0),(14097,3217,3,2,0,'87.218.146.67',1149749077,1,0,1,1,1,1,'','','Adolfo,\n\nWe are emailing you a modified FiveHC.lib. Please try it. Thanks,','',0,'AIA=','2zb5u38y',1,0,'',2,0,0),(14098,3214,6,2,0,'87.218.146.67',1149749743,1,0,1,1,1,1,'','','Ricardo,\n\nAqui la tienes:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026090f048/button.zip.html\">http://hyperupload.com/download/026090f ... n.zip.html</a><!-- m -->\n\nEs bastante similar a la de FWH, pero no iguales.','',0,'AIA=','mxxuqwk8',1,0,'',2,0,0),(14099,3219,6,2,0,'87.218.146.67',1149750116,1,0,1,1,1,1,'','','Andrés,\n\nPosiblemente se trata de un ejemplo que nos envio algún usuario para revisarlo. No tenemos esos ficheros de cabecera ni el RC que usa. Lo hemos borrado del directorio samples, discúlpanos.','',0,'AIA=','32wrpjkz',1,0,'',2,0,0),(14100,3210,3,2,0,'87.218.146.67',1149750345,1,0,1,1,1,1,'','','Christiano,\n\nLa solución es simular que hay checkboxes, usando bitmaps que representen el checkbox sin seleccionar, ó seleccionado, según sea el valor a mostrar.','',0,'AIA=','1a46rocl',1,0,'',2,0,0),(14101,3203,6,2,0,'87.218.146.67',1149750477,1,0,1,1,1,1,'','','Rafa,\n\nSí, aún no hemos sincronizado FWH con los cambios recientes que han habido en Harbour. Ahora que está estable, prepararemos un nuevo build.\n\nEl sistema GT de Harbour ha cambiado, entre otras cosas.','',0,'AIA=','3q4zisre',1,0,'',2,0,0),(14102,3207,6,2,0,'87.218.146.67',1149750674,1,0,1,1,1,1,'','','Jose,\n\nEn estos foros damos soporte a Clipper y compiladores compatibles xbase, como Harbour, etc. Este no es un foro de Visual Basic. Te sugiero que busques un foro de Visual Basic.','',0,'AIA=','297ezsag',1,0,'',2,0,0),(14103,3224,3,58,0,'84.149.238.149',1149751896,1,0,1,1,1,0,'','','Thanks Enrico,\n\n\nHere you can find my example of a dialog with BtnBmp buttons:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.d-hoefner.de/files/x-po.zip\">http://www.d-hoefner.de/files/x-po.zip</a><!-- m -->\n\nI used the latest FvH 2.7 together with xHarbourBuilder of March 2006.\n\nRegards,\nDetlef','',0,'AIA=','257jolu2',1,0,'',58,0,0),(14104,3182,3,63,0,'80.37.102.128',1149752484,1,0,1,1,1,0,'','','Hoe:\nI\'ve tried your function using Xp SP2 and an standard LPT1 printer (I have sent my relay board back to factory to make sure it works).  \n\nFirst, I get \" *** BuildCommDcb Error: 0\"  Then, after a looong delay, the printer finally prints the my ASCII string.  No other errors appear.  I wonder:\n\na) Why the long delay? Can the printer be forced to write inmediately?\n\nb) It is a paralell printer.  Shouldn\'t the BuildCommDcb() function work only with serial devices?\n\nThanks very much for your help\nRafael','',0,'AIA=','23et7tjb',1,0,'',63,0,0),(14105,3224,3,6,0,'82.61.28.30',1149752639,1,0,1,1,1,1,'','','Sorry, I wasn\'t able to run your sample:\n\n[quote:3dh0k7x5]xHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nX-PO.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\n\nError X-PO.RC 23 13: Invalid bitmap format\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland[/quote:3dh0k7x5]\n\n[quote:3dh0k7x5]Error description: Error FiveWin/3  Cannot create Dialog Box: \n                   Resource: DLG_START[/quote:3dh0k7x5]\n\nEMG','',0,'gA==','3dh0k7x5',1,0,'',6,0,0),(14106,3182,3,6,0,'82.61.28.30',1149752785,1,0,1,1,1,1,'','','Try SetCommState( nComm, cDcb ).\n\nThis is a change from 16 bit syntax.\n\nEMG','',0,'gA==','1lv8ywyp',1,0,'',6,0,0),(14107,3224,3,58,0,'84.149.208.112',1149754047,1,0,1,1,1,0,'','','Enrico,\n\ni had this problem too with Borland Resource Workshop.\nBut with xHarbour Builder i use Pelles C as Resource Editor which can handle this bitmap format.\n\nI modified the 4 bitmap files to indexed 256 Windows colors.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.d-hoefner.de/files/tmp.zip\">http://www.d-hoefner.de/files/tmp.zip</a><!-- m -->\n\nNow brc can handle them. I tested this.\nBut the result is still the same.\nWhen clicking the Dialog title the dotted lines appear.\n\nThanks for your time,\nDetlef','',0,'gA==','3jwlunpu',1,0,'',58,0,0),(14108,3209,4,240,0,'85.201.100.63',1149754206,1,0,1,1,1,1,'','','Thanks for the hint.\n\nRegards,\nRaymond','',0,'gA==','1gl6glzq',1,0,'',240,0,0),(14109,3182,3,63,0,'80.37.102.128',1149754258,1,0,1,1,1,0,'','','Enrico:\n\nJust tried it but I don\'t see any difference.  The printer still takes a long time (several minutes) before it outputs the Ascii string.  I suppose it is ths Xp who flushes the printer spooler.  Is there any way to force to do it at once?\nThanks,\n\nRafael','',0,'gA==','w5wi5hii',1,0,'',63,0,0),(14110,3208,4,240,0,'85.201.100.63',1149754481,1,0,1,1,1,1,'','','Hi Jon,\n\nThank you for these info.\n\nI will git it a try and will post teh results.\n\nBest regards,\nRaymond','',0,'gA==','pny5mkw0',1,0,'',240,0,0),(14111,3203,6,81,0,'80.28.244.140',1149754929,1,0,1,1,1,0,'','','Gracias Antonio.\nSaludos','',0,'gA==','2zwhxhn9',1,0,'',81,0,0),(14112,3182,3,456,0,'217.127.39.57',1149755444,1,0,1,1,1,1,'','','Look for [b:1878morg]LPT_timeout[/b:1878morg] in the registry(HKEY_LOCAL_MACHINE,SYSTEM,ControlSet001,control,WOW). Try to set to 1 or 2, this may help in reduce the waiting time.','',0,'QA==','1878morg',1,0,'',456,0,0),(14113,3224,3,6,0,'82.61.28.30',1149755480,1,0,1,1,1,1,'','','Ok, found! Just remove WS_TABSTOP style:\n\n[code:15bxpd76]CONTROL &quot;&quot;, 201, &quot;TBtnBmp&quot;, 0, 25, 33, 27, 23\nCONTROL &quot;&quot;, 202, &quot;TBtnBmp&quot;, 0, 59, 33, 27, 23\nCONTROL &quot;&quot;, 203, &quot;TBtnBmp&quot;, 0, 108, 33, 27, 23\nCONTROL &quot;&quot;, 204, &quot;TBtnBmp&quot;, 0x00000008, 169, 33, 27, 23[/code:15bxpd76]\n\nEMG','',0,'AIA=','15bxpd76',1,0,'',6,0,0),(14114,3228,3,31,0,'195.182.84.105',1149756169,1,0,1,1,1,1,'','NetSerialNumber function','Hi !\n\n  I tried this function from sources\\winapi\\netapi32.prg . But at home my PC isn\'t connected to any LAN and then this function return \"0\" . It\'s normal ? What it\'s needful for this function ?\n\n  With best regards !','',0,'AIA=','2m7msiec',1,0,'',31,0,0),(14115,3224,3,58,0,'84.149.231.54',1149758447,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:1670edd1]Ok, found! Just remove WS_TABSTOP style:\n\n[code:1670edd1]CONTROL &quot;&quot;, 201, &quot;TBtnBmp&quot;, 0, 25, 33, 27, 23\nCONTROL &quot;&quot;, 202, &quot;TBtnBmp&quot;, 0, 59, 33, 27, 23\nCONTROL &quot;&quot;, 203, &quot;TBtnBmp&quot;, 0, 108, 33, 27, 23\nCONTROL &quot;&quot;, 204, &quot;TBtnBmp&quot;, 0x00000008, 169, 33, 27, 23[/code:1670edd1]\n\nEMG[/quote:1670edd1]\n\nHi Enrico,\n\nyou are right. <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> \n\nAnd i can can state that you\'re a real Sherlock Holmes for FiveWin internals.\n\nThanks a lot.\nDetlef','',0,'gIA=','1670edd1',1,0,'',58,0,0),(14116,3182,3,63,0,'80.37.102.128',1149761628,1,0,1,1,1,0,'','','Biel:\nHad the value 15.  Changed it to 1 but still not much difference.\nGracias por la idea!\nRafael','',0,'gIA=','zhf48ki2',1,0,'',63,0,0),(14117,3224,3,2,0,'87.218.146.136',1149762264,1,0,1,1,1,1,'','','Enrico,\n\nThanks as usual! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','22sqjdt7',1,0,'',2,0,0),(14118,3225,6,362,0,'200.168.52.156',1149770731,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/519WORKSHOP.rar\">http://www.fivewin.com.br/Dicas/519WORKSHOP.rar</a><!-- m -->','',0,'gIA=','p3b52fff',1,0,'',362,0,0),(14119,3226,6,121,0,'201.152.79.118',1149770766,1,0,1,1,1,1,'','','MUCHAS GRACIAS JOEL\n\nSABRIAS COMO ASIGNAR UNA IMPRESORA\nSIN PASAR POR EL SETUP\nNO SE SI EXISTA ALGO ASI COMO\n\noPRN:SETMODEL(\"IBM GRAPHICS\")\n\n\nGRACIAS','',0,'gIA=','1ntkt9dl',1,0,'',121,0,0),(14120,3217,3,105,0,'200.72.140.34',1149770970,1,0,1,1,1,1,'','','Antonio\n\nThanks a lot...\n\nI\'m Gonna try it, I\'ll send you any result I\'ll get\n\nAdolfo','',0,'gIA=','aabey3zm',1,0,'',105,0,0),(14121,3229,7,470,0,'80.58.45.107',1149772603,1,0,1,1,1,0,'','PROBLEMA IMPRESIÓN','Hola, \nestoy realizando una aplicación en la que tengo que imprimir vía bluetooth (cuento con una HP Ipaq con Windows movile 5.0 y una impresora con un adaptador bluetooth), la forma de imprimir es igual que la que aparece en el ejemplo bluetooth.prg.\n\nMi aplicación cuenta con un botón imprimir que llama a la siguiente función:\n\nFUNCTION WIMPALB()\n\nLocal cTexto:=\"\"\nLocal cCabeza:=\"\"\nLocal nTotal:=0\nLocal hOut\n\nUSE (cRutaFic+\"\\PARAPK\") NEW\nGO TOP\ncPuerto:=\"COM\"+str(PARAPK-&gt;PSALIDA,1)+\":\"\nCLOSE PARAPK\n\n//EL PUERTO ES EL COM8:\nhOut := CreateFile( rtrim(cPuerto),; \n                    GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n\nDO WHILE hOut &lt; 0 .AND. nVeces &lt;= 30\n  hOut := CreateFile( rtrim(cPuerto),; // Cambiamos el n£mero dependiendo del puerto de la pocket\n                      GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )  \n  nVeces++\nENDDO\n\nIF hOut &lt; 0\n  MsgInfo(OemToAnsi(\"Ha sido imposible abrir el puerto para imprimir, por favor comprueba que est  activado el bluetooth \") + ;\n          OemToAnsi(\"y que en par metros est n configurados los puertos de salida y entrada\"),;\n          OemToAnsi(\"ATENCIàN\"))          \nELSE\n\n      cCabeza:= cTabu + substr(rtrim(PARA-&gt;NOMC) + \" - \" + rtrim(PARA-&gt;CIF),1,nCaracter) + chr(10) + chr(13) \n      GHC-&gt;(DBGOTOP())\n      GHC-&gt;(DBSEEK(GCV-&gt;NUM))\n      DO WHILE GHC-&gt;NALC=GCV-&gt;NUM .AND. .NOT. GHC-&gt;(EOF())                                                                   \n        cTexto:=cTexto +  SPACE(2) + transform(GHC-&gt;UNID,\"@EZ 9,999.9\") + \" \" + substr(GHC-&gt;TEXTO,1,20) + \" \" + transform(GHC-&gt;PREC,\"@EZ 9,999.999\") + ;\n        \" \" + transform(GHC-&gt;DTO,\"@EZ 999\") + \" \" + transform(GHC-&gt;TOTAL,\"@EZ 999,999.999\") + chr(10) + chr(13) \n        GHC-&gt;(DBSKIP(1))\n      ENDDO\n\n      SendText( hOut, cCabeza )\n  \n      SendText( hOut, cTexto )\n\n       MsgInfo(\"ENVIADO A IMPRIMIR\",OemToAnsi(\"ATENCIàN\"))\n\n       CloseHandle( hOut )\n\nENDIF\nRETURN NIL\n\n\nSTATIC FUNCTION SendText( hOut, cText )\nlocal n\n   \nfor n = 1 to Len( cText )\n  WriteByte( hOut, Asc( SubStr( cText, n, 1 ) ) )\nnext   \n \nRETURN NIL\n\n**************************************************************************************************************************\n\nEl problema que tengo es que a pesar de que me abre bien el puerto (siempre me devuelve hOut &gt; -1), hay veces en las que me imprime y otras veces no (enviando a imprimir siempre los mismos datos).\n\nEs decir yo puedo pulsar una o dos veces el botón de imprimir y no imprimirme y pulsarlo una tercera vez e imprimir entonces, y a veces funciona bien a la primera.\n\nSobre todo me pasa cuando apago la pocket y la vuelvo a encender entonces la primera vez que mando imprimir no me suele funcionar, sin embargo a la segunda o tercera vez que lo intento si que funciona.\n\n¿ Se les ocurre a que puede ser debido o como puedo solucionarlo  ?\n\nMuchas gracias','',0,'gIA=','3g6zbygd',1,0,'',470,0,0),(14122,3217,3,105,0,'200.72.140.34',1149774415,1,0,1,1,1,1,'','','Antonio...\n\nI replace Fivehc.lib with the one you sent me.\nPlease Try This..... Either with xHarbour/xHarbour.com\n\n//-----------------------------------------------------------------------------------\nFunction Main()\nLocal Extension\n\n   Extension:=chr(2) + Chr(1)\n   MsgStop(len(Extension),\"Extension 1 Len()\")\n   MsgStop(Len(AnsiToWide( Extension )),\"Extension 1 Len(AnsiToWide)\")\n   MsgInfo( Len( WideToAnsi(AnsiToWide(Extension))) == Len(Extension))\n\n   Extension:=chr(0) + Chr(1)\n   MsgStop(len(Extension),\"Extension 2 Len()\")\n   MsgStop(Len(AnsiToWide( Extension )),\"Extension 2 Len(AnsiToWide)\")\n   MsgInfo( Len( WideToAnsi(AnsiToWide(Extension))) == Len(Extension))\n\n   Extension:=Chr(0) + Chr(0)\n   MsgStop(len(Extension),\"Extension 3 Len()\")\n   MsgStop(Len(AnsiToWide( Extension )),\"Extension 3 Len(AnsiToWide)\" )\n   MsgInfo( Len( WideToAnsi(AnsiToWide(Extension))) == Len(Extension))\n\nReturn Nil\n//----------------------------------------------------\n\nMy results for Chr(2) + Chr(1) \n     Len()   -&gt; 2\n     Len(AnsiToWide(ext)) -&gt; 5\n     = .T.\n\nMy results for Chr(0) + Chr(1) \n     Len()   -&gt; 2\n     Len(AnsiToWide(ext)) -&gt; 1\n     = .F.\n\nMy results for Chr(0) + Chr(0) \n     Len()   -&gt; 2\n     Len(AnsiToWide(ext)) -&gt; 1\n     = .F.\n\nThe Problems still remains with Chr(0)\n\n<!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gIA=','38ic9zco',1,0,'',105,0,0),(14123,3230,4,224,0,'162.83.94.176',1149774512,1,0,1,1,1,1,'','Manipulate Browse Scrollbars?','Is it possible to manipulate the presence of the scrollbars on WBrowse? For example, the horizontal scrollbar is always there even if there are no columns hidden. Is there a way to hide the scrollbar when it is not needed?\n\nSimilarly, the vertical scrollbar only appears when there are two or more rows on the browser. I would like to display it at all times. (I have a browser used to display an order as it is created. It starts with no records and builds as the user adds to the order. When the scrollbar appears on adding the second record, the screen layout changes which my testers find annoying.)\n\nThanks in advance.','',0,'gIA=','2k3v7fvf',1,0,'',224,0,0),(14124,3214,6,422,0,'195.8.27.42',1149775071,1,0,1,1,1,0,'','','Gracias Master <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSaludos.\n\nRicardo R.','',0,'gIA=','tefmccye',1,0,'',422,0,0),(14125,3217,3,2,0,'87.218.146.136',1149775712,1,0,1,1,1,1,'','','Adolfo,\n\nPlease try it with Harbour (not xHarbour) as xharbour provides another AnsiToWide() that probably is getting used instead of FWH\'s one.','',0,'gIA=','3iueb5p7',1,0,'',2,0,0),(14126,3182,3,266,0,'60.52.115.233',1149777239,1,0,1,1,1,1,'','','or try  BuildCommDcb( \"LPT1:\", @cDcb ) \nor try  BuildCommDcb( \"LPT1:9600,n,8,1\", @cDcb ) \n\nBy right we don\'t need the baud rate for LPT1.\n\nCheck also if the delay happens on SetCommState(), msgwait(), etc.\nTry to remove the line causes delay.\n\nCheck also if anti-virus software causes the delay.\n\nI used to print to 4\" receipt printer without problem in FW195.\nNever try with XP','',0,'gIA=','296nm8c0',1,0,'',266,0,0),(14127,3231,6,61,0,'201.217.173.171',1149781983,1,0,1,1,1,0,'','Dialogos en dialogo...','Amigos:\n\nNecesito hacer un dialogo rectangular con 5 botones, hasta\naqui no hay problema.\nCada boton llama a otro dialogo (sin caption) // Hasta aqui bien\nese dialogo que llamo debe de quedar entre el dialogo\nprimario.\n\nComo hago para que los dialogos que llamo \nqueden incrustados en el dialogo original?. \n\nSaludos y gracias.\n\nRuben Fernandez.','',0,'gIA=','1389uswe',1,0,'',61,0,0),(14128,2869,6,147,0,'200.45.54.133',1149783179,1,0,1,0,1,1,'','','Retomo este hilo debido a que estoy porbando trabajar con SQL en ADS.\nUtilizao la versión 6.2, de ADS.\nTengo lo siguiente\n\n[code:3bzgd75l]\n      cCount   &#58;= \'Select Count&#40;*&#41; FROM \'+&#58;&#58;aDbFile&#91;_LOCALIDAD&#93;+&quot; where CProv=\'&quot;+cCProv+&quot;\'&quot;, ;\n      cConsulta&#58;= \'Select * FROM \'       +&#58;&#58;aDbFile&#91;_LOCALIDAD&#93;+&quot; where CProv=\'&quot;+cCProv+&quot;\'&quot;, ;\n\n&#46;&#46;&#46;\n\n   if ADSExecuteSQLDirect&#40; cCount &#41;\n      MsgMeter&#40; &#123;|oMeter,oTxt| oMeter&#58;nTotal&#58;= SQLarea-&gt;Expr   , ;\n                               ADSExecuteSQLDirect&#40; cConsulta &#41;, ;\n                               &#58;&#58;aLocalidades&#58;= &#58;&#58;CargaArr&#40; oMeter, oTxt &#41; &#125;, &quot;&quot;, &quot;Cargando Tabla&#46;&#46;&#46;&quot; &#41;\n[/code:3bzgd75l]\nADS me responde con con un msg de error de que primero debo cerrar la primer consulta. Como lo hago?\n\nTambien de este ejemplo observo que en el sample se usa AdsDisconnect(AdsGetConnectionHandle()) donde, AdsGetConnectionHandle() parece no estar en la version 6.2 puede ser?\nEs suficiente con AdsDisconnect() ?\n\nmuchas gracias','',0,'AIA=','3bzgd75l',1,0,'',147,0,0),(14129,3222,6,196,0,'201.252.56.34',1149784818,1,0,1,1,1,0,'','','*****LIST BOX CON LOS PRODUCTOS DE LA NOTA DE PEDIDO*****\n\n   REDEFINE LISTBOX oLbx;\n   FIELD TRAN(oDbfTemp:CODIGONP,\"######\"),oDbfTemp:DESCRIP,;\n             TRAN(oDbfTemp:CANTIDAD,\"#######.####\"),;\n             TRAN(oDbfTemp:PRECIO,\"#######.####\"),;\n             TRAN ((oDbfTemp:CANTIDAD*oDbfTemp:PRECIO),\"#######.####\"),\"\";\n      HEAD \"Código Nota\",\"Descripción\",\"Cantidad\",\"Precio\",\"Total\",\"\"; \n      SIZES 100,300,120,150,150,1;\n      ID 1000 OF oDlg1;\n      COLOR Negro,Blanco\n\n   REDEFINE BTNBMP Btn7  ID 300 OF oDlg1 RESOURCE \"PRIMERO\";\n      ACTION oDbfTemp:GoTop(),oLbx:GoTop(),oLbx:Refresh();\n      TOOLTIP \"Ir a la primera fila de la lista\"\n   REDEFINE BTNBMP Btn8  ID 301 OF oDlg1 RESOURCE \"ULTIMO\";\n      ACTION oDbfTemp:GoBottom(),oLbx:GoBottom(),oLbx:Refresh();\n      TOOLTIP \"Ir a la ultima fila de la lista\"\n\n   REDEFINE BTNBMP Btn9   ID 206 OF oDlg1 RESOURCE \"NUEVO\";\n      WHEN (.f.)\n   REDEFINE BTNBMP Btn10  ID 207 OF oDlg1 RESOURCE \"EDITAR\";\n      ACTION ModificarN(oDbfTemp,oLbx);\n      TOOLTIP \"Modificar el Producto ingresado\"   \n   REDEFINE BTNBMP Btn11  ID 208 OF oDlg1 RESOURCE \"ELIMINAR\";\n      ACTION EliminarN(oDbfTemp,oLbx);\n      TOOLTIP \"Eliminar el Producto ingresado\"\n   REDEFINE BTNBMP Btn12  ID 209 OF oDlg1 RESOURCE \"MENSAJE\";\n      WHEN (.f.)\n   REDEFINE BTNBMP Btn13  ID 210 OF oDlg1 RESOURCE \"FILTROS\";\n      WHEN (.f.)\n   REDEFINE BTNBMP Btn14  ID 211 OF oDlg1 RESOURCE \"PRINTER\";\n      WHEN (.f.)\n   REDEFINE BTNBMP Btn15  ID 212 OF oDlg1 RESOURCE \"SALIR\";\n      WHEN (.f.)\n\n   oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.,.f.}\n   oLbx:bSkip   :={|nRecs|oDbfTemp:Skipper(nRecs)}\n\n  *************************************************************\n\n[b:2bz9hyi7]Yo declaro tres bases de datos:[/b:2bz9hyi7]\n-----------------------------------\n- La de la nota de pedido que es donde grabo los datos definitivamente:\n\nUSE NOTAPED INDEX NOTAPED1,NOTAPED2,NOTAPED3 NEW\nDATABASE oDbf\noDbf:bEoF=nil\noDbf:GoBottom()\n\n**Uso GoBottom porque necesito que se posicione en el ultimo lugar para despues incrementar el codigo en uno y asi obtener el codigo de la que seria la siguiente nota de pedido. \n\n-La segunda base que uso es una auxiliar que siempre esta vacia que tiene la misma estructura que \"NOTAPED\":\n\nUSE AUXNOTA INDEX AUXNOTA1,AUXNOTA2,AUXNOTA3 NEW\nDATABASE oDbfAux\noDbfAux:bEoF=nil\noDbfAux:GoTop()\n\nEsta la uso para luego dentro del .prg declarar una base temporal que es la que uso en el browse.\n\n- La tercera base (la temporal) es la siguiente:\n\nPrivate TEMPON\n\nTEMPON:=\"T\"+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+\".DBF\"\nCOPY FILE DATOS\\AUXNOTA.DBF TO &amp;TEMPON\n\nUSE &amp;TEMPON NEW\nDATABASE oDbfTemp\noDbfTemp:bEoF=nil\noDbfTemp:GoTop()\n\n- El problema es el siguiente:\n\nCuando tengo algo en la base de datos e ingreso una nueva nota de pedido me muestra correctamente en el browse los productos que voy ingresando, pero si zapeo o borro todos los registros de la base de datos de nota de pedido y quiero ingresar por primera vez una nota de pedido no me muestra los productos que voy ingresando en el listbox. Si los graba pero no los muestra, o sea los esta ingresando en la base de datos temporal pero no los muestra en el browse.\nYa probe con todos los refrescos posibles y sigue igual.\n\nLo extraño de esto es que yo estoy haciendo browse de la base temporal  y no de la de nota de pedido. Abajo le envio la funcion que uso para, al ingresar una nueva nota de pedido, buscar si existe o no.\n\n///////////////////////////////////////////////////////////////////////////////////////////////////\nFunction BuscaNota(oDbf,oDbfIva,oDbfTemp,oDbfCli,oLbx)\nLocal Nota:=vCod\n\nIniVarN()\nRefresN()\n\nvCod:=Nota\noCod:Refresh()\n\noDbfTemp:GoTop()\nDO WHILE !oDbfTemp:Eof()\n   oDbfTemp:RecLock()\n   oDbfTemp:Delete()\n   oDbfTemp:Unlock()\n   oDbfTemp:Skip()\nENDDO\n\noDbf:Seek(vCod)\nIF !oDbf:Eof()\n   oCod:Disable()\n   oCli:Disable()\n   oNroOr:Disable()\n   oNomCli:Disable()\n   oCuitcli:Disable()\n   oIvaCli:Disable()\n   oFech:Disable()\n   vCli  :=oDbf:CLIENTE\n   vNroOr:=oDbf:NROORDEN\n   oDbfCli:Seek(vCli)\n   IF !oDbfCli:Eof()\n      vNomCli:=oDbfCli:RAZONSOC\n   ELSE\n      vNomCli:=SPACE(60)\n   ENDIF\n   oDbfIva:Seek(oDbf:IVACLI)\n   IF !oDbfIva:Eof()\n      vIvaCli:=oDbfIva:DESCRIP\n   ELSE\n      vIvaCli:=SPACE(60)\n   ENDIF\n   vCuitCli:=oDbf:CUITCLI\n   vFech   :=oDbf:FECHA\n   vNet    :=oDbf:NETOGRAV\n   vIvaI   :=oDbf:IVAI\n   vTotGral:=oDbf:TOTALFAC\n\n   DO WHILE !oDbf:Eof() .AND. oDbf:CODIGONP=vCod\n      oDbfTemp:Append()\n      oDbfTemp:CODIGONP:=oDbf:CODIGONP\n      oDbfTemp:NROORDEN:=oDbf:NROORDEN\n      oDbfTemp:CLIENTE :=oDbf:CLIENTE\n      oDbfTemp:IVACLI  :=oDbf:IVACLI\n      oDbfTemp:CUITCLI :=oDbf:CUITCLI\n      oDbfTemp:FECHA   :=oDbf:FECHA\n      oDbfTemp:LETRA   :=oDbf:LETRA\n      oDbfTemp:PUNTOVTA:=oDbf:PUNTOVTA\n      oDbfTemp:NUMERO  :=oDbf:NUMERO\n      oDbfTemp:CODPROD :=oDbf:CODPROD\n      oDbfTemp:DESCRIP :=oDbf:DESCRIP\n      oDbfTemp:CANTIDAD:=oDbf:CANTIDAD\n      oDbfTemp:PRECIO  :=oDbf:PRECIO\n      oDbfTemp:TOTAL   :=oDbf:TOTAL\n      oDbfTemp:NETOGRAV:=oDbf:NETOGRAV\n      oDbfTemp:IVAI    :=oDbf:IVAI\n      oDbfTemp:TOTALFAC:=oDbf:TOTALFAC\n      oDbfTemp:TOMADA  :=oDbf:TOMADA\n      oDbfTemp:Save()\n      oDbfTemp:Unlock()\n      oDbf:Skip()\n   ENDDO\n\n   oCli:Refresh()\n   oNroOr:Refresh()\n   oNomCli:Refresh()\n   oIvaCli:Refresh()\n   oCuitCli:Refresh()\n   oFech:Refresh()\n   oNet:Refresh()\n   oIvaI:Refresh()\n   oTotGral:Refresh()\n   oDbfTemp:GoTop()\n   oLbx:GoTop()\n   oLbx:Refresh()\nENDIF\n\noDbfTemp:GoTop()\noLbx:GoTop()\noLbx:Refresh()\nReturn .T.\n///////////////////////////////////////////////////////////////////////////////////////////////////\n\nGracias por la atencion.\nSaludos! Jorge Jaurena','',0,'QA==','2bz9hyi7',1,0,'',196,0,0),(14130,2869,6,21,0,'80.58.205.42',1149785603,1,0,1,1,1,1,'','','Hola Mario,\n\n1. Antes ejecutar ADSExecuteSQLDirect tienes que ejecutar ADSCreateSQLStatement para crear el alias donde guardará el resultado de la consulta.\n\n2. Antes dejecutar ADSCreateSQLStatement si no pasas el alias de la aplicación a 0 ( DbSelectar(0) ) reutiliza el alias seleccionado en lugar de crear uno nuevo.','',0,'QA==','1s9i8eu6',1,0,'',21,0,0),(14131,3212,6,152,0,'200.113.119.63',1149787775,1,0,1,1,1,0,'','','Antonio\n\nEl Download Accelerator Plus (DAP) me bajaba el archivo con problemas. Solucionado. \n\nGracias\n\nGonzalo','',0,'QA==','1v87aq53',1,0,'',152,0,0),(14132,977,7,150,0,'62.15.123.106',1149789191,1,0,1,1,1,1,'','','Hola Antonio:\n\nen el emulador:\n\nWindows mobile 2003  ver 4.21.1088\n\nEn la pda Symbol\n\nPocket pc ver 4.20.0\n\nSupongo que en la pda hay alguna dll propia','',0,'QA==','em1kstxp',1,0,'',150,0,0),(14133,977,7,2,0,'80.32.22.38',1149790815,1,0,1,1,1,1,'','','Jose,\n\nLas funciones SH... sólo están disponibles en el Pocket PC con Windows Mobile.','',0,'QA==','1r3k8kpk',1,0,'',2,0,0),(14134,3212,6,2,0,'80.32.22.38',1149790925,1,0,1,1,1,1,'','','Gonzalo,\n\nbien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','1yktt5dy',1,0,'',2,0,0),(14135,3212,6,152,0,'200.113.119.63',1149791187,1,0,1,1,1,0,'','','Antonio : \n\nAhora tengo estos errores:\n\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from D:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from D:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from D:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from D:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFNTX\' referenced from D:\\HARBOUR\\LIB\\RDD.LIB|rddsys\nError: Unresolved external \'_HB_FUN_OUTPORTBYTE\' referenced from D:\\FWH\\OBJ\\TDOSPRN.OBJ\nError: Unresolved external \'_HB_FUN_INPORTBYTE\' referenced from D:\\FWH\\OBJ\\TDOSPRN.OBJ\nError: Unresolved external \'_HB_FUN_NVIEWLIBLOAD\' referenced from D:\\FWH\\OBJ\\UTILPRN.OBJ\nError: Unresolved external \'_HB_FUN_NVIEWLIB32\' referenced from D:\\FWH\\OBJ\\UTILPRN.OBJ\n\nHay versiones actualizadas de estas librerias ?','',0,'QA==','156c2cyn',1,0,'',152,0,0),(14136,3222,6,2,0,'80.32.22.38',1149791378,1,0,1,1,1,1,'','','Jorge,\n\nSi usas registros borrados, debes indexar usando la cláusula FOR .not. Deleted()','',0,'QA==','3pqq3ien',1,0,'',2,0,0),(14137,3212,6,2,0,'80.32.22.38',1149791769,1,0,1,1,1,1,'','','Gonzalo,\n\nTienes que enlazar la libreria hbsix.lib. Revisa samples\\buildh.bat para comprobar que enlazas las librerias correctas ya que cambiaron.\n\nOutPortByte() e InPortByte() son funciones que no existen (no se pueden implementar) en 32 bits. Para que las usas ? \n\nLa DLL nview ya no se usa. Ahora se usa la FreeImage que es mucho más completa y potente. Tendrás que localizar en la sección utilidades de estos foros versiones actualizadas de esas classes que la usan.','',0,'QA==','3hz705sw',1,0,'',2,0,0),(14138,3231,6,2,0,'80.32.22.38',1149791916,1,0,1,1,1,1,'','','Decláralos con el estilo WS_CHILD y usa OF &lt;oDlgContenedor&gt; al hacer el DEFINE DIALOG de ellos.','',0,'QA==','19m816bw',1,0,'',2,0,0),(14139,3232,2,221,0,'200.109.232.241',1149792636,1,0,1,1,1,0,'','error FW en XP','cuando defino una ventana con un fondo o brush sirve en todos los windows menos en XP, tanto como leyendolo desde dll como directamente con filename, habra una solucion que no sea que me digan \"compra la nueva version de fivewin\", sera posible mandar un pequeño patche de solo esa clase, gracias','',0,'QA==','2sr5hz6r',1,0,'',221,0,0),(14140,3133,2,221,0,'200.109.232.241',1149792759,1,0,1,1,1,0,'','','porque no pones un timer en el botos para que lo deshabilite por unos segundos si le acaban de dar','',0,'QA==','2sp6iquw',1,0,'',221,0,0),(14141,3233,6,221,0,'200.109.232.241',1149793090,1,0,1,1,1,0,'','cual es la diferencia entre harbour y xharbour','disculpen mi ignorancia pero es que me siento bombardeado con todo esto, harbour, xharbour, c3 y pica y se extiende ya ni se que es que','',0,'QA==','26dnckge',1,0,'',221,0,0),(14142,3212,6,221,0,'200.109.232.241',1149793255,1,0,1,1,1,0,'','','Tendrás que localizar en la sección utilidades de estos foros versiones actualizadas de esas classes que la usan.\n\ndonde esta esa seccion y disculpa la molestia?','',0,'QA==','17g0zrpd',1,0,'',221,0,0),(14143,3212,6,2,0,'87.218.146.136',1149800519,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewforum.php?f=17\">http://fivetechsoft.com/forums/viewforum.php?f=17</a><!-- m -->','',0,'QA==','39kvw2np',1,0,'',2,0,0),(14144,3233,6,2,0,'87.218.146.136',1149800731,1,0,1,1,1,1,'','','Harbour nació como un compilador compatible con Clipper, de 32 bits y con capacidad para funcionar en distintos sistemas operativos.\n\nxharbour apareció para añadir extensiones a Harbour, que no estaban en Clipper. xharbour es más popular que Harbour aunque ambos funcionan perfectamente.\n\nFWH es la versión de FiveWin en 32 bits para funcionar con Harbour y xHarbour.\n\nPara más información puedes visitar <!-- w --><a class=\"postlink\" href=\"http://www.harbour-project.org\">www.harbour-project.org</a><!-- w -->','',0,'QA==','1o7kjsol',1,0,'',2,0,0),(14145,3234,6,264,0,'200.91.3.10',1149803633,1,0,1,1,1,0,'','Definicion de FONT no es igual en FW y FWH','Tengo un problemazo, y he perdido mucho tiempo ya con esto de intentar definir un tipo de font que en 16bits me funciona correctamente.\nLo mas raro de todo esto, es que para definir fonts con el REPORT lo hago de la misma forma.... y funciona, pero de esta forma no he podido.\nAgradezco cualquier ayuda.\nSaludos\n\nHe aqui un trozo de codigo....\n\n[code:118s682a]\ncImpresora &#58;= MisImpresoras&#40; oWnd,, @cArchivo &#41;\nIf Empty&#40; cArchivo &#41;\n   cNewDevice &#58;= GetProfString&#40; &quot;Devices&quot;, cImpresora &#41;\nElse\n   lArchivo &#58;= &#46;T&#46;\n   lWindows &#58;= &#46;F&#46;\nEndIf\n\nbLastError &#58;= ERRORBLOCK&#40; &#123;|o| PosibleError&#40;o&#41; &#125; &#41;\nBEGIN SEQUENCE\n\nIf lWindows\n\n   oPrn &#58;= cNewDevice &#58;= PrintBegin&#40; &quot;Lista Fija&quot;, &#46;F&#46;, lPreview, cImpresora &#41;\n\n   IF empty&#40;oPrn&#58;hDC&#41;\n      BREAK\n   Endif\n\n   DEFINE FONT oFont       NAME &quot;Courier New&quot;      SIZE 0,-10      OF oPrn\n   DEFINE FONT oFontB      NAME &quot;Courier New&quot;      SIZE 0,-10 BOLD OF oPrn\n   DEFINE FONT oFontChico  NAME &quot;Courier New&quot;      SIZE 0,-8       OF oPrn\n   DEFINE FONT oFontBChico NAME &quot;Courier New&quot; BOLD SIZE 0,-8       OF oPrn\n\n   PAGE\n\n   &#40;Paso&#41;-&gt;&#40; dbGoTop&#40;&#41; &#41;\n   nPagAnt &#58;= &#40;Paso&#41;-&gt;Pagina\n\n   If lAnchoEspecial\n      nAncha &#58;= nGetAncho\n   Else\n      nAncha &#58;= If&#40; &#40;Paso&#41;-&gt;Horizontal==&quot;S&quot;, 250, 132 &#41;\n   EndIf\n\n   If &#40;Paso&#41;-&gt;Horizontal == &quot;S&quot;\n      oPrn&#58;SetLandscape&#40;&#41;\n   EndIf\n\n   While &#40;Paso&#41;-&gt;&#40; !Eof&#40;&#41; &#41;\n\n      If &#40;Paso&#41;-&gt;Pagina &lt;&gt; nPagAnt\n         ENDPAGE\n         PAGE\n         nPagAnt &#58;= &#40;Paso&#41;-&gt;Pagina\n      EndIf\n\n      If &#40;Paso&#41;-&gt;Comprimida\n         If &#40;Paso&#41;-&gt;Negrita\n            oPrn&#58;CmSay&#40; &#40;Paso&#41;-&gt;fila * &#40; 2&#46;529 / 6 &#41; , 1, Left&#40; &#40;Paso&#41;-&gt;Descripcio, nAncha &#41;, oFontBChico &#41;\n         Else\n            oPrn&#58;CmSay&#40; &#40;Paso&#41;-&gt;fila * &#40; 2&#46;529 / 6 &#41; , 1, Left&#40; &#40;Paso&#41;-&gt;Descripcio, nAncha &#41;, oFontChico &#41;\n         EndIf\n      Else\n         If &#40;Paso&#41;-&gt;Negrita\n            oPrn&#58;CmSay&#40; &#40;Paso&#41;-&gt;fila * &#40; 2&#46;529 / 6 &#41; , 1, Left&#40; &#40;Paso&#41;-&gt;Descripcio, nAncha &#41;, oFontB &#41;\n         Else\n            oPrn&#58;CmSay&#40; &#40;Paso&#41;-&gt;fila * &#40; 2&#46;529 / 6 &#41; , 1, Left&#40; &#40;Paso&#41;-&gt;Descripcio, nAncha &#41;, oFont &#41;\n         EndIf\n      EndIf\n      &#40;Paso&#41;-&gt;&#40; dbSkip&#40;&#41; &#41;\n\n   Enddo\n\n   ENDPAGE\n   ENDPRINT\n\n   oFont&#58;End&#40;&#41;\n   oFontB&#58;End&#40;&#41;\n   oFontChico&#58;End&#40;&#41;\n   oFontBChico&#58;End&#40;&#41;\n[/code:118s682a]','',0,'AIA=','118s682a',1,0,'',264,0,0),(14146,3234,6,264,0,'200.91.3.10',1149804404,1,0,1,1,1,0,'','','Este es un trozo de la imagen... fea verdad ?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.random.cl/envios/fontmalo.jpg\">http://www.random.cl/envios/fontmalo.jpg</a><!-- m -->','',0,'AIA=','3aw82cp1',1,0,'',264,0,0),(14147,977,7,150,0,'62.15.123.106',1149810900,1,0,1,1,1,1,'','','Hola Antonio:\n\nHe instalado el emulador que sugería Roman Modic.. pero no funcionaba\n \nHe encontrado el archivo:\n\nScnApi32.dll\n\nen la pda, lo he copiado al directorio que el emulador reconoce como storage card y funciona. Por supuesto no hace nada pero no da error que era de lo que se trataba.\n\nHabía buscado el archivo en la pda, pero con el file explorer no se veian las dll, buscando desde el pc (activesync) ha sido fácil.\n\nComo siempre gracias por tu ayuda, incluso en este caso que es el primero que no has solucionado (y que no era importante) seguro que si nadie responde nada tampoco yo hubiera buscado la solución.','',0,'AIA=','2gwcxx6a',1,0,'',150,0,0),(14148,977,7,95,0,'201.123.61.101',1149824637,1,0,1,1,1,0,'','','Estimado Jose\n\nBueno, lo importante es que ya tengas solucionado el problema.\n\nYo en mi caso, se la pido a mi cliente la symbol el fin de semana y trabajo en ella directamente, sin pasar por el emulador.\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','3mhn1bfu',1,0,'',95,0,0),(14149,977,7,150,0,'62.15.123.106',1149825009,1,0,1,1,1,1,'','','Hola Osvaldo.\n\nAprovecho para darte las gracias (con Hector ya he hablado) por la rutina del scanner y algunas ideas que saqué de tu programa.\n\nHasta pronto','',0,'AIA=','ieg53h44',1,0,'',150,0,0),(14150,3182,3,266,0,'203.106.130.136',1149825566,1,0,1,1,1,1,'','','may be for LPT1 we only need :-\n\nopencomm()\nwritecomm()\nclosecomm()','',0,'AIA=','yd3xzy15',1,0,'',266,0,0),(14151,3231,6,61,0,'201.217.172.141',1149825886,1,0,1,1,1,0,'','','Gracias Antonio.\n\nLo pruebo.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','13m6cktr',1,0,'',61,0,0),(14152,977,7,2,0,'87.218.146.136',1149828045,1,0,1,1,1,1,'','','Jose,\n\nMe alegro de que lo hayas solucionado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1v67c2s0',1,0,'',2,0,0),(14153,3234,6,2,0,'87.218.146.136',1149828235,1,0,1,1,1,1,'','','Has probado a cambiar un poco el tamaño de los fonts y comprobar el resultado ?','',0,'AIA=','1z6hlmqz',1,0,'',2,0,0),(14155,3230,4,2,0,'87.218.146.136',1149828886,1,0,1,1,1,1,'','','Bill,\n\nYou may remove the horizontal scrollbar this way:\n[code:1x7aa4u3]\n   oBrw&#58;oHScroll&#58;SetRange&#40; 0, 0 &#41;\n   oBrw&#58;oHScroll = nil\n[/code:1x7aa4u3]\nYou may show the vertical scrollbar this way:\n[code:1x7aa4u3]\n   oBrw&#58;oVScroll&#58;SetRange&#40; 1, 2 &#41;\n[/code:1x7aa4u3]\nThough it may not properly work in this case, as it does not match the number of shown records.','',0,'AIA=','1x7aa4u3',1,0,'',2,0,0),(14156,3236,6,52,0,'200.127.195.89',1149829639,1,0,1,1,1,1,'','MEMVAR y la r...','y la referencia ambigua.. jaja\n\nAmigos,\n\nTengo este trozo de codigo:\n\n[code:2n7twmhs]FUNCTION STATUS&#40; aSetVars &#41;\n\n   LOCAL cRespuesta       &#58;= &quot;&quot;\n   LOCAL aEstadosActuales &#58;= &#123;&#125;     // Para guardar los principales campos de CARGAS\n\n   LOCAL nItem            &#58;= 1\n   LOCAL cSurtidor        &#58;= Space&#40; 02 &#41;  // Para ver cuando cambia el surtidor\n   LOCAL lPaso            &#58;= &#46;t&#46;\n\n   DBSelectArea&#40; &quot;CARGAS&quot; &#41;\n\n   CARGAS-&gt;&#40; DBGoTop&#40;&#41; &#41;\n\n   DBEVAL&#40; &#123;|| AAdd&#40; aEstadosActuales, &#123; SURTIDOR, MANGUERA, ULT_ST, ANT_ST &#125; &#41; &#125; &#41;[/code:2n7twmhs]\n\nAl compilar con /w1 me da:\n[quote:2n7twmhs]Warning W0001  Ambiguous reference: \'SURTIDOR\'[/quote:2n7twmhs]\nPorque? ya he leido el articulo que aca presentaron sobre MEMVAR pero no entiendo \n\nGracias.','',0,'gIA=','2n7twmhs',1,0,'',52,0,0),(14157,3236,6,456,0,'217.127.39.57',1149838094,1,0,1,1,1,1,'','','SURTIDOR es un campo de Cargas, si no quieres que te aparezca el warning anteponle el alias (... {[b:2o03rpje]Cargas-&gt;Surtidor[/b:2o03rpje] ... ) o Field (... {[b:2o03rpje]Field-&gt;Surtidor[/b:2o03rpje] ... )','',0,'QA==','2o03rpje',1,0,'',456,0,0),(14158,3204,3,67,0,'62.235.24.18',1149838192,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the info , now i found it . It works as expected\n\nFrank','',0,'QA==','2ztzibbo',1,0,'',67,0,0),(14159,3204,3,6,0,'82.59.188.232',1149840571,1,0,1,1,1,1,'','','What was the problem?\n\nEMG','',0,'QA==','3avmasel',1,0,'',6,0,0),(14160,3230,4,6,0,'82.59.188.232',1149841058,1,0,1,1,1,1,'','','Vertical scrollbar can be automatically disabled using the style SIF_DISABLENOSCROLL. This is my changed SetScrollRange() that I\'m using in my apps (but this is for [b:37ezcvfv]FWH[/b:37ezcvfv]):\n\n[code:37ezcvfv]#pragma BEGINDUMP\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;HbApi&#46;h&gt;\n\nHB_FUNC&#40; SETSCROLLRANGE &#41;\n&#123;\n   typedef BOOL &#40; WINAPI * FN &#41;&#40; HWND, int, LPSCROLLINFO, BOOL &#41;;\n\n   FN p = &#40; FN &#41; GetProcAddress&#40; GetModuleHandle&#40; &quot;USER32&quot; &#41;, &quot;SetScrollInfo&quot; &#41;;\n\n   SCROLLINFO si;\n\n   si&#46;cbSize = sizeof&#40; si &#41;;\n\n   if &#40; hb_parni&#40; 2 &#41; == SB_VERT &amp;&amp; hb_parl&#40; 6 &#41; &#41;\n      si&#46;fMask  = SIF_PAGE | SIF_RANGE | SIF_DISABLENOSCROLL;\n   else\n      si&#46;fMask  = SIF_PAGE | SIF_RANGE;\n\n   si&#46;nPage = 1;\n   si&#46;nMin  = hb_parni&#40; 3 &#41;;\n   si&#46;nMax  = hb_parni&#40; 4 &#41;;\n\n   if&#40; p &#41;\n      hb_retl&#40; p&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, &amp;si, hb_parl&#40; 5 &#41; &#41; &#41;;\n   else\n      hb_retl&#40; FALSE &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:37ezcvfv]\n\nEMG','',0,'QIA=','37ezcvfv',1,0,'',6,0,0),(14161,3237,7,490,0,'80.24.224.89',1149841074,1,0,1,1,1,0,'','Quien tenía el focus??','Hola,\n\n¿Existe alguna manera de al pinchar sobre un botón saber cual era el control que tenía el foco?\n\nParece una tontería, pero no lo encuentro.\n\n\nUn Saludo,\nJoaquín','',0,'QIA=','6ebsxhkh',1,0,'',490,0,0),(14162,3237,7,490,0,'80.24.224.89',1149841412,1,0,1,1,1,0,'','','Parece mentira,\n\nPero yo mismo hace un tiempo respondí a otro usuario como hacerlo.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2745&amp;highlight=foco\">http://fivetechsoft.com/forums/viewtopi ... light=foco</a><!-- m -->\n\n\n\nUn Saludo,\nJoaquín','',0,'QIA=','q4vm8r8b',1,0,'',490,0,0),(14163,3238,7,57,0,'81.39.243.227',1149841622,1,0,1,1,1,1,'','Centrar SAY verticalmente','Amigos\nSaben como puedo centrar el texto de un SAY en vertical. Con FWH funcionaba indicando en nStyle = SS_CENTERIMAGE pero no responde con FWPPC. \n\nSaludos\nToni Sales','',0,'QIA=','637jt33c',1,0,'',57,0,0),(14164,3237,7,490,0,'80.24.224.89',1149842635,1,0,1,1,1,0,'','','Antonio,\n\nParece ser que eso funciona en FWH, pero en fwppc falla, no toma el foco el control anterior al click del Botón.\n\nLo he probado de diferentes maneras y nunca se posiciona, incluso usando el oJump del botón.\n\nUn Saludo,\nJoaquín','',0,'QIA=','23r1pgzn',1,0,'',490,0,0),(14165,3237,7,490,0,'80.24.224.89',1149845227,1,0,1,1,1,0,'','','Antonio,\n\n\nEl botón no era un TButton, sino un BtnBmp, los dos derivan de TControl, pero hay un pequeño bug en BtnBmp.\n\nAl final del Método GotFocus() de TButton pone:\n\n     return Super:GotFocus( hCtlLost )\n\nPero en la TBntBmp pone:\n\n    return Super:GotFocus()\n\nComo ves, no devuelve el control anterior hCtlLost, por lo que el usuario cuando evalía bGotFocus() no recibe el control anterior.\n\nA ver si puedieras solucionarlo.\n\n\nUn Saludo y gracias,\nJoaquín','',0,'QIA=','2y8f1g5d',1,0,'',490,0,0),(14166,3239,2,618,0,'217.216.155.90',1149846528,1,0,1,1,1,1,'','Vendo Licencia Ca Clipper 5.3B Int. completito','Pues eso, que estoy en C3 y llevo un tiempo viendo la caja en la estanteria... a ver si alguien quiere una licencia de Ca Clipper nuevecita con manuales, cajita y todo eso. Estoy en Córdoba, España.-','',0,'QIA=','24bu7yvu',1,0,'',618,0,0),(14167,3234,6,46,0,'195.8.11.146',1149847623,1,0,1,1,1,0,'','','Has visto el modo en que esta seleccionado la impresora?\nes decir si esta en Modo Economico, Normal, Alta Resolucion.\nintenta cambia esto.','',0,'QIA=','1xjjcnao',1,0,'',46,0,0),(14168,3240,6,91,0,'213.96.45.9',1149848522,1,0,1,1,1,0,'','Función multibloqueo de registros ¿DbrLock()?','Hola todos,\n\nHace unos 3 ó 4 años me dijeron que lo que pedía en Harbour no existía.\n\nEn clipper 5.2e existía una función para bloquear un registro SIN que se liberaran los bloqueos de registros exitentes, de esta manera se podía tener más de un registro bloqueado del mismo alias.\n\nCreo que la función se llamaba Dbrlock() y existía otra para obtener un array de los registros bloqueados.\n\nSabrían decirme si esto ya existe en Harbour?\n(No tengo a mano Harbour para probarlo)\n\nSaludos y gracias.','',0,'QIA=','3pdlgxa8',1,0,'',91,0,0),(14169,3240,6,91,0,'213.96.45.9',1149849657,1,0,1,1,1,0,'','Esto es:  http://clipper.ecofor.cl/C52G01B/ng106c93.html','Para mayor información en este link se explica lo que necesito:\n\n<!-- m --><a class=\"postlink\" href=\"http://clipper.ecofor.cl/C52G01B/ng106c93.html\">http://clipper.ecofor.cl/C52G01B/ng106c93.html</a><!-- m -->\n\nSaludos\nCarlos G.','',0,'QIA=','31ce31qm',1,0,'',91,0,0),(14170,3241,3,160,0,'210.212.142.91',1149849747,1,0,1,1,1,0,'','Error with Latest xHarbour CSV Update','Dear All,\n\nI am using May build. I updated latest xHarbour.\n\nSuddenly I started getting following error:\n\nError: Unresolved external \'_HB_FUN_STUFF\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|tget\nError: Unresolved external \'_HB_FUN_TIMAGELIST\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|RPREVIEW\nError: Unresolved external \'_HB_FUN_TTOOLBAR\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|RPREVIEW\nError: Unresolved external \'_HB_FUN_TSTATUSBAR\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|RPREVIEW\nError: Unresolved external \'_HB_FUN_TMETAFILE\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|RPREVIEW\nError: Unresolved external \'_HB_FUN_NUMTOHEX\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|cstr\nError: Unresolved external \'_HB_FUN_HEXTONUM\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|cstr\nError: Unresolved external \'_HB_FUN_TDBCOMBO\' referenced from D:\\BILL\\ALCOCK\\OBJ\\JWORKDEE.OBJ\n\nWhat am I doing wrong ?\n\nTIA\nMilan.','',0,'QIA=','35648k8r',1,0,'',160,0,0),(14171,3204,3,67,0,'62.235.24.18',1149850039,1,0,1,1,1,0,'','','Enrico\n\nIn mine main aplication was the xhb-function IsdIGIT(str) overwritten by isdigit(Str,count) , as in funcky .\n\nThis function gives a wrong result for str==CHR(32) , so in ::untransform ::minus wasn\'t set corectly\n\nFrank','',0,'QIA=','244gff3y',1,0,'',67,0,0),(14172,3204,3,6,0,'82.59.188.232',1149855184,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'QIA=','12egn6yb',1,0,'',6,0,0),(14173,3234,6,264,0,'200.91.3.10',1149855559,1,0,1,1,1,0,'','','Es un error mio...\nPero me costo dar con el.\nEl SetLandScape() esta despues de iniciar el \"PAGE\", y es eso lo que provoca el error.\nNo se si sea un problema, pero bastó cambiarlo justo antes de la declaracion PAGE y funcionó correctamente.\nGracias a todos por los comentarios.\nSaludos','',0,'QIA=','1stn9arr',1,0,'',264,0,0),(14174,3236,6,52,0,'200.127.195.89',1149855839,1,0,1,1,1,1,'','','Andub/vo perfectamente.\n\nGracias.','',0,'QIA=','9028c7sf',1,0,'',52,0,0),(14175,2869,6,147,0,'200.45.54.133',1149856355,1,0,1,0,1,1,'','','Fernando; disculpá la ignorancia. Pero soy principiante tanto en esto como en comandos SQL.\nMi codigo es el siguiente\n\n[code:2epczb8q]\n   CLOSE ALL   // Es una aplicación ya implementada por lo quer cierro todo\n\n   AdsConnect&#40; &#58;&#58;oMG&#58;cDirDbf, 2 &#41;\n   DbSelectAr&#40; 0 &#41;                               // Lo incluyo aquí\n\n   if !ADSCreateSQLStatement&#40; &quot;SQLarea&quot;,2 &#41;  // 2 == ADS_CDX\n      MsgAlert&#40; &quot;Fallo en la conexión SQL&quot; &#41;\n      return&#40; lOk&#41;\n   endif\n\n   if ADSExecuteSQLDirect&#40; cCount &#41;\n      MsgMeter&#40; &#123;|oMeter,oTxt| oMeter&#58;nTotal&#58;= SQLarea-&gt;Expr   , ;\n                               wqout&#40;&#123; ADSExecuteSQLDirect&#40; cConsulta &#41; &#125;&#41;, ;\n                               &#58;&#58;aLocalidades&#58;= &#58;&#58;CargaArr&#40; oMeter, oTxt &#41; &#125;, &quot;&quot;, &quot;Cargando Tabla&#46;&#46;&#46;&quot; &#41;\n   else\n      AdsDisconnect&#40;&#41;\n      SQLarea -&gt; &#40; DbCloseArea&#40;&#41; &#41;\n      return&#40; lOk &#41;\n   end\n[/code:2epczb8q]\n\nNo entiendo donde incluir DBSelectAr( 0 ); probe incluirlo previo a ADSCreateSQLStatement() y el mensaje sigue siendo el mismo: \"The cursor from the previous execute must be closed...\"\n\nLa otra pregunta es AdsDisconnect(), declarado así, es suficente?\nY por último, donde puedo leer ayuda sobre estas, y otras, funciones.\n\nmuchas gracias por tu tiempo','',0,'AIA=','2epczb8q',1,0,'',147,0,0),(14176,3242,6,52,0,'200.127.195.89',1149858606,1,0,1,1,1,1,'','Porque se usa MEMVAR','Buen Día,\n\nPorque en xHarbour se usa\n\n[code:2n4v21se]memvar nNumero\nlocal nNumero[/code:2n4v21se]\n\nDe donde puedo leer info acerca de este tema?\n\nGracias.','',0,'AIA=','2n4v21se',1,0,'',52,0,0),(14177,3182,3,303,0,'72.199.41.171',1149861071,1,0,1,1,1,0,'','','Try this. Select Start-Printers and Faxes, then right-click on the print driver and select Properties then the Advanced tab. Select \"Print directly to printer.\" This by-passes the spooler.','',0,'AIA=','1jgsd249',1,0,'',303,0,0),(14178,3230,4,224,0,'162.83.94.176',1149861568,1,0,1,1,1,1,'','','Antonio and Enrico, thank you for your replies and ideas.\n\nI wound up sub-classing TWBrowse and overloaded the NEW and VSetRange methods. In NEW() I added a switch to optionally remove the WS_HSCROLL define from ::nStyle. In VSETRANGE() I set the lower limit to {1,2}. This is working fine for me.\n\nThanks again.','',0,'AIA=','27mtk2t9',1,0,'',224,0,0),(14179,3227,3,266,0,'60.50.49.63',1149865281,1,0,1,1,1,1,'','','sound like you need a web application to update dbf/cdx\n\nTry free xScript  (clipper/xHarbour syntax) :\n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/index.asp?page=add_on_xbscript&amp;show_sub=8&amp;show_i=1\">http://www.xharbour.com/index.asp?page= ... 8&amp;show_i=1</a><!-- m -->\n\nor ActiveFoxproPage (foxpro syntax) :\n<!-- w --><a class=\"postlink\" href=\"http://www.afpages.com\">www.afpages.com</a><!-- w -->\n\n\nAll you need is :-\n- web server : IIS, Apache\n- input screen : html/javascript \n- dbf/cdx read/update : xScript/AFP\n\nSandeep did show me his xScript sample.\nI personally use AFP.','',0,'AIA=','1hbveb2o',1,0,'',266,0,0),(14180,3243,4,470,0,'80.58.45.107',1149865870,1,0,1,1,1,0,'','DUDA','Hola,\n\nMe gustaría saber si alguien tiene un problema parecido y sabe como solucionarlo.\nEstoy intentando imprimir via bluetooth, para ello cuento con mi pocket  (tengo una HP iPAQ serie hx2100 con windows mobile 5.0) y una impresora STAR DP8340 con un adaptador bluetooth conectado a ella.\n(com8: -&gt; puerto de salida de la pocket y com5:-&gt;puerto de entrada)\n\nUtilizo la forma de imprimir que aparece en el ejemplo bluetoth.prg\n\nEl problema es que al hacer:\n\n   local hOut := CreateFile( \"COM8:\",;\n      GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n\nEl valor de hOut casi siempre es negativo (-10244536370,-1046546440...)\ny entonces no me imprime, sin embargo de vez en cuando el valor del descriptor de fichero si que es positivo y si que me imprime.\n\n¿Cual puede ser la causa de que me de estos valores negativos y no me de un positivo a la primera?Sobre todo esto ocurre cuando apago la pocket y la vuelvo a encender.\n\n¿Puede ser que cambiando alguno de los atributos de la función CreateFile funcione mejor?\n\nAgradecería cualquier opinión ya que estoy un poco perdido\n\nMuchas gracias','',0,'AIA=','3u3de72g',1,0,'',470,0,0),(14181,3243,4,470,0,'80.58.45.107',1149865940,1,0,1,1,1,0,'','','perdón me he equivocado lo quería colgar en el foro de español','',0,'AIA=','19xcrio7',1,0,'',470,0,0),(14182,3244,7,470,0,'80.58.45.107',1149866057,1,0,1,1,1,0,'','DUDA','Hola, \n\nMe gustaría saber si alguien tiene un problema parecido y sabe como solucionarlo. \nEstoy intentando imprimir via bluetooth, para ello cuento con mi pocket (tengo una HP iPAQ serie hx2100 con windows mobile 5.0) y una impresora STAR DP8340 con un adaptador bluetooth conectado a ella. \n(com8: -&gt; puerto de salida de la pocket y com5:-&gt;puerto de entrada) \n\nUtilizo la forma de imprimir que aparece en el ejemplo bluetoth.prg \n\nEl problema es que al hacer: \n\nlocal hOut := CreateFile( \"COM8:\",; \nGENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL ) \n\nEl valor de hOut casi siempre es negativo (-10244536370,-1046546440...) \ny entonces no me imprime, sin embargo de vez en cuando el valor del descriptor de fichero si que es positivo y si que me imprime. \n\n¿Cual puede ser la causa de que me de estos valores negativos y no me de un positivo a la primera?Sobre todo esto ocurre cuando apago la pocket y la vuelvo a encender. \n\n¿Puede ser que cambiando alguno de los atributos de la función CreateFile funcione mejor? \n\nAgradecería cualquier opinión ya que estoy un poco perdido \n\nMuchas gracias','',0,'AIA=','1npg30wd',1,0,'',470,0,0),(14183,3245,6,61,0,'201.217.163.3',1149871686,1,0,1,1,1,0,'','Necesito ejemplo de Tree en dialogos, gracias.','Amigos:\n\nAlgun ejemplo de Tree en dialogo.?\nQue a su vez la accion abra otro dialogo?\n\nGracias.\n\nRuben Fernandez.','',0,'AIA=','25zk7au0',1,0,'',61,0,0),(14184,3244,7,456,0,'217.127.39.57',1149872450,1,0,1,1,1,1,'','','hOut := CreateFile( \"COM6:\",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\nYo lo utilizo igual que tu, y no me da problemas. Tambien uso impresora STAR DP8340 con un adaptador bluetooth (BlueTake) el pocketPC UNITECH.\nSiento no poder ayudarte, pero tal cual lo dienes debiera de funcionar. \n\nHas probado a imprimir con algun otro software para comprobar que no te de el mismo problema.','',0,'AIA=','1todpiy2',1,0,'',456,0,0),(14185,3212,6,152,0,'200.113.117.111',1149878344,1,0,1,1,1,0,'','','Antonio : \n\nBaje el Browse de Hernan de esta direccion \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0275445310/twbrowse.zip.html\">http://hyperupload.com/download/0275445 ... e.zip.html</a><!-- m -->\n\ncopie twbrw32.lib a \\FWH\\LIB, compile sin problemas,\npero al ejecutar el programa me da este error\n\nError BASE/1004  Message not found: TWBROWSE:SET3DSTYLE\n\nentonces genere nuevamente la twbrw32.lib con LIB_FWH.BAT y tuve estos errores con wbrwline.c  :\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nsource\\wbrwline.c:\nWarning W8065 source\\wbrwline.c 308: Call to function \'hb_itemArrayGet\' with no prototype in function PaintTheLine\nWarning W8069 source\\wbrwline.c 308: Nonportable pointer conversion in function PaintTheLine\nWarning W8065 source\\wbrwline.c 309: Call to function \'hb_itemType\' with no prototype in function PaintTheLine\nWarning W8065 source\\wbrwline.c 309: Call to function \'hb_itemGetL\' with no prototype in function PaintTheLine\nWarning W8065 source\\wbrwline.c 312: Call to function \'hb_itemGetNL\' with no prototype in function PaintTheLine\nWarning W8065 source\\wbrwline.c 314: Call to function \'hb_itemArrayGet\' with no prototype in function PaintTheLine\nWarning W8069 source\\wbrwline.c 314: Nonportable pointer conversion in function PaintTheLine\nWarning W8065 source\\wbrwline.c 315: Call to function \'hb_itemType\' with no prototype in function PaintTheLine\nWarning W8065 source\\wbrwline.c 317: Call to function \'hb_itemGetNL\' with no prototype in function PaintTheLine\nWarning W8065 source\\wbrwline.c 320: Call to function \'hb_itemGetC\' with no prototype in function PaintTheLine\nWarning W8069 source\\wbrwline.c 320: Nonportable pointer conversion in function PaintTheLine\nError E2288 source\\wbrwline.c 1010: Pointer to structure required on left side of -&gt; or -&gt;* in function HB_FUN_WBRWPANE\nError E2451 source\\wbrwline.c 1137: Undefined symbol \'HB_ITEM\' in function HB_FUN_WBRWPANE\nError E2379 source\\wbrwline.c 1137: Statement missing ; in function HB_FUN_WBRWPANE\nError E2451 source\\wbrwline.c 1138: Undefined symbol \'aLine\' in function HB_FUN_WBRWPANE\nWarning W8065 source\\wbrwline.c 1138: Call to function \'hb_itemCopy\' with no prototype in function HB_FUN_WBRWPANE\nError E2288 source\\wbrwline.c 1167: Pointer to structure required on left side of -&gt; or -&gt;* in function HB_FUN_WBRWPANE\n*** 5 errors in Compile ***\n\nOjala me pudieras ayudar, gracias\n\nGonzalo','',0,'AIA=','puegqz5s',1,0,'',152,0,0),(14186,3246,6,305,0,'200.121.32.35',1149885268,1,0,1,1,1,0,'','Problema con TsBrowse 7.1 y Postedit','Hola amigos:\n\nUso Tsbrowse 6.0 y estoy actualizando mi aplicacion con la ultima version 7.1 que descargue de este foro (Utilidades), pero me aparece un problema:  la clausula POSTEDIT se evalua antes de abrir el dialogo, cuando aun no se han definido algunas variables y me da error de ejecucion.  Esto no pasa con la version anterior.  \n\nEste es parte de mi codigo:\n[code:2lc4eq1j]\n    REDEFINE BROWSE oBrw FONT oFont ID 201 OF oDlg GRID;\n             COLOR CLR_BLACK, RGB&#40;255,255,240&#41; ALIAS &quot;OBLX&quot;\n\n    ADD COLUMN TO BROWSE oBrw DATA ;\n        FieldWBlock&#40;&quot;SELECT&quot;, Select&#40;&quot;OBLX&quot;&#41; &#41; ;\n        CHECKBOX SIZE 22 EDITABLE MOVE DT_MOVE_DOWN ;\n        POSTEDIT &#40; fCambios&#40;&#41; &#41;            // &lt;--- este es el problema\n\n    ADD COLUMN TO BROWSE oBrw            ;\n     DATA OBLX-&gt;CODDOC                   ;\n     HEAD &quot;Doc&quot;    OEM\n\n    ADD COLUMN TO BROWSE oBrw            ;\n     DATA OBLX-&gt;NUMDOC                   ;\n     HEAD &quot;N£mero&quot; OEM SIZE 80\n\n    &#46;&#46;&#46;&#46;&#46;&#46;\n\n    ACTIVATE DIALOG oDlg CENTER;\n        ON INIT &#40; SetBtnBar&#40; oDlg, oBrw&#41;, ;\n                  oBrw&#58;Setfocus&#40;&#41;, ;\n                  CursorArrow&#40;&#41; &#41;\n\n[/code:2lc4eq1j]\n\n[code:2lc4eq1j]\n//-------------------\nStatic Function fCambios&#40;&#41;\n//-------------------\nif lCanModify\n   zCambios &#58;= &#46;t&#46;\n   AEVAL&#40;oBtnBar&#58;aControls , &#123;|x,y| x&#58;ForWhen&#40;&#41;&#125; &#41;   \n  // aqui da el error porque oBtnBar recien se define en el INIT del  dialogo\n   oBtnBar&#58;Refresh&#40;&#41;\nendif\nReturn &#46;T&#46;\n\n[/code:2lc4eq1j]\n\n\nAlguien sabe como solucionarlo ?\n\n\nSaludos\n\nRalph','',0,'AIA=','2lc4eq1j',1,0,'',305,0,0),(14187,3230,4,2,0,'87.218.146.212',1149887916,1,0,1,1,1,1,'','','Bill,\n\nVery good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','l2vf9tpo',1,0,'',2,0,0),(14188,3247,6,422,0,'195.8.13.117',1149888363,1,0,1,1,1,0,'','xHabour','Hola foro..\n\nAl utilizar xHarbour, me arroja este error  la tsbrowse 6.0\n__HB_STACK_ REFERENCEND FROM C:\\FWH\\LIB\\SBROWSEX.LIB | SCROLL\n\nsera que me esta faltando enlazar alguna libreria?\n\nSaludos.\nRicardo Ramirez E.','',0,'AIA=','4h4rzxe0',1,0,'',422,0,0),(14189,3048,1,312,0,'24.150.179.34',1149888858,1,0,1,1,1,0,'','','That\'s kinda what I did in the end .. except I didn\'t want the disable look but i did use the button colour as the background colour for the get. I had to hide some as well. THanks for all suggestions','',0,'AIA=','10rwlg36',1,0,'',312,0,0),(14190,3247,6,422,0,'195.8.13.154',1149891028,1,0,1,1,1,0,'','xharbour','Re-compile la tsbrowse y ya no me arroja ese error.\nAhora el error es el siguiente :\n\n\'hb_stack_\' referenced from RDDADS.LIB | ads1\ndonde consigo esa lib?? para xharbour 0.99.60 ?\nSaludos.\n\nRicardo R.','',0,'AIA=','zm7dpj3z',1,0,'',422,0,0),(14191,3248,6,53,0,'201.102.185.53',1149893658,1,0,1,1,1,1,'','TReport y Groups','Amigos del foro:\n\nTengo un reporte con TReport con dos Grupos definidos\n\nGROUP gOrden ON (cDetOrd)-&gt;DET_ORD  etc, etc\nGROUP gTipo ON (cDetOrd)-&gt;DET_TIP etc etc\n\nON STARTGROUP MsgInfo(\"Hola\")\n\nPerooooooo, el mensaje \"Hola\" me lo muestra al inicio de ambos grupos, y lo que yo necesito es que se muestre solo en el primero (gOrden)\ncómo puedo diferenciarlos para enviar el mensaje solo en el primero ?\n\n\nSaludos  a todos','',0,'AIA=','1gnrund8',1,0,'',53,0,0),(14192,3249,6,582,0,'201.252.72.61',1149896622,1,0,1,1,1,0,'','TSBrowse 7.01','Gente, alguien seria tan amable de enviarme la lib de TSBrowse para Harbour (Fw Build Abril 2006). Hace mas de dos horas que trato de reconstruirla, y siempre picha por algo.\n\nDesde ya muchisimas gracias.\n\nEl Loco =&gt;))','',0,'AIA=','2s60dzt1',1,0,'',582,0,0),(14194,3249,6,439,0,'190.0.133.248',1149906293,1,0,1,1,1,1,'','TSBrowse 7.01','Si utilizas la que está en el foro de Utilidades-Utilities, verás que la misma tiene los archivos vrc para compilarla con verce. \n\nEL ARCHIVO VERCE ESTÁ EN LA CARPETA:\nTSBROWSE\\SOURCE\\CLASSES\n\nSi utilizas la versión 7.01 con las correcciones para usar la Prev32.dll  de FWH (la tercera en ese topico) tendrás los estilos XP y todo.\n\nYo la compilé con este vrc con FWH Marzo 2006 y xHarbour 0.99.60 y anduvo muy bien.\n\nCualquier cosa por favor tenme al tanto al mail <!-- e --><a href=\"mailto:jmurugosa@hotmail.com\">jmurugosa@hotmail.com</a><!-- e -->','',0,'AIA=','174wbe3k',1,0,'',439,0,0),(14195,3251,2,235,0,'200.76.211.21',1149908234,1,0,1,1,1,0,'','alguien sabe como se genera un numero de serie','y cuales son sus caracteristicas.\n\nde antemano muchas gracias','',0,'AIA=','3kcnxp9n',1,0,'',235,0,0),(14196,3252,6,439,0,'190.0.137.78',1149909258,1,0,1,1,1,1,'','TWBrowse de Hernán versión 18','Hola a todos,\n\nAlguien sabe si ya está disponible una versión superior a la 1.7 del TWBrowse de Hernán y de ser así de donde bajarlo?','',0,'AIA=','15xn4j0t',1,0,'',439,0,0),(14197,3247,6,2,0,'87.218.146.212',1149922870,1,0,1,1,1,1,'','','Ricardo,\n\nEstas usando el build de xharbour que proporciona FiveTech ?','',0,'AIA=','3jbb05wt',1,0,'',2,0,0),(14198,3245,6,2,0,'87.218.146.212',1149925530,1,0,1,1,1,1,'','','Ruben,\n\nsample\\TreeView.prg muestra como usar un TreeView en un diálogo. \n\nCombinándolo con samples\\TestPage.prg puedes conseguir lo que comentas.','',0,'AIA=','3uje1uc1',1,0,'',2,0,0),(14199,3251,2,2,0,'87.218.146.212',1149925720,1,0,1,1,1,1,'','','Gerardo,\n\nPuedes usar la función nRandom( &lt;nRango&gt; ) --&gt; nValue de FW, y luego pasar el valor a hexadecimal con DecToHex( nValue ). Si quieres luego le intercalas algún \"-\" y tendrás un número de serie bastante aceptable.','',0,'AIA=','175tu1cr',1,0,'',2,0,0),(14200,3212,6,2,0,'87.218.146.212',1149926447,1,0,1,1,1,1,'','','Gonzalo,\n\nRevisa estos mensajes. Si no te solucionan el problema, dínoslo. Gracias.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1647&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=wbrwline\">http://fivetechsoft.com/forums/viewtopi ... t=wbrwline</a><!-- m -->','',0,'AIA=','v802gl71',1,0,'',2,0,0),(14201,3212,6,2,0,'87.218.146.212',1149926836,1,0,1,1,1,1,'','','Vaya, parece que los enlaces que apuntaban a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> de esos mensajes han dejado de funcionar.\n\nVamos a preguntar en el foro principal si alguien tiene el fichero descargado, para volver a alojarlo en hyperupload.','',0,'AIA=','3mocomlp',1,0,'',2,0,0),(14202,3253,6,2,0,'87.218.146.212',1149926963,1,0,1,1,1,1,'','Browse de Hernan para FWH 2.7 Febrero y en adelante','Parece que los enlaces que publicamos en:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2502\">http://fivetechsoft.com/forums/viewtopic.php?t=2502</a><!-- m -->\n\nhan dejado de funcionar. Alguien tiene esos ficheros, y que pueda volver a alojarlos en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> ? gracias','',0,'AIA=','18b6j2z1',1,0,'',2,0,0),(14203,3241,3,2,0,'87.218.146.212',1149928421,1,0,1,1,1,1,'','','Milan,\n\nDo you use to rebuild FWH PRGs lib ? If so, please rebuild it again, something may be wrong in it.','',0,'AIA=','1bn886fv',1,0,'',2,0,0),(14204,3232,2,2,0,'87.218.146.212',1149928564,1,0,1,1,1,1,'','','Por favor proporciona un pequeño ejemplo autocontenido que reproduzca el error para que podamos probarlo.\n\nQue versión y build usas ?','',0,'AIA=','6x8n1ykz',1,0,'',2,0,0),(14205,3253,6,439,0,'190.0.137.111',1149928653,1,0,1,1,1,1,'','Browse 1.7 de Hernán','te dejo el Último que se publicó en el foro.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026cd92f26/TWBrowse_17-\">http://hyperupload.com/download/026cd92f26/TWBrowse_17-</a><!-- m -->[x]Harbour.exe.html\n\nLo uso con FWH Marzo 2006 y xHarbour 0.99.60 funciona perfecto.','',0,'','3zu0k6x8',1,0,'',439,0,0),(14206,3190,3,2,0,'87.218.146.212',1149928695,1,0,1,1,1,1,'','','Otto,\n\nWe don\'t have such a complete sample. In fact, it is quite difficult to syncronize a tree with a database. The treeview control hasn\'t been developed by Microsoft with such capability.','',0,'','3kpg6x5r',1,0,'',2,0,0),(14207,3180,6,2,0,'87.218.146.212',1149928760,1,0,1,1,1,1,'','','Asegúrate de que todos tus bitmaps tengan esas dimensiones. Los imagelists de Windows son muy estrictos en eso.','',0,'','320fm74w',1,0,'',2,0,0),(14208,3179,7,2,0,'87.218.146.212',1149928872,1,0,1,1,1,1,'','','Revisa samples\\TestFold.prg\n\nEn cuanto a las barras de scroll, vamos a publicar pronto un nuevo build de FWPPC con esa capacidad.','',0,'','15l3xr41',1,0,'',2,0,0),(14209,3173,7,2,0,'87.218.146.212',1149928978,1,0,1,1,1,1,'','','Miguel,\n\nRevisa estos mensajes:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3209&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=ownd+releasedc\">http://fivetechsoft.com/forums/viewtopi ... +releasedc</a><!-- m -->','',0,'','1p3x2g2r',1,0,'',2,0,0),(14210,3166,6,2,0,'87.218.146.212',1149929091,1,0,1,1,1,1,'','','DibWrite( \"screen.bmp\", DibFromBitmap( WndBitmap( oWnd:hWnd ) ) )','',0,'','2pdceai8',1,0,'',2,0,0),(14211,3129,6,2,0,'87.218.146.212',1149929902,1,0,1,1,1,1,'','','Ruben,\n\nEn este ejemplo se ven igual:\n[code:e0m4ao39]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oSay, oGet, cValue &#58;= &quot;Hola   &quot;, cValue2 &#58;= &quot;Mundo  &quot;\n   \n   DEFINE DIALOG oDlg TITLE &quot;Test&quot;\n   \n   @ 1, 1 SAY oSay PROMPT &quot;Contents       &quot;\n   \n   @ 3, 1 GET oGet VAR cValue ;\n      ON CHANGE &#40; oGet&#58;Assign&#40;&#41;, oSay&#58;SetText&#40; cValue &#41; &#41;\n\n   @ 4, 1 GET cValue2 WHEN &#46;f&#46;\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil   \n[/code:e0m4ao39]\n[url=http&#58;//imageshack&#46;us:e0m4ao39][img:e0m4ao39]http&#58;//img146&#46;imageshack&#46;us/img146/6044/image13wc&#46;jpg[/img:e0m4ao39][/url:e0m4ao39]','',0,'GIA=','e0m4ao39',1,0,'',2,0,0),(14212,3247,6,422,0,'195.8.13.130',1149939365,1,0,1,1,1,0,'','xHarbour','Antonio, estoy usando xHarboer que descarge de <!-- w --><a class=\"postlink\" href=\"http://www.harbour.org\">www.harbour.org</a><!-- w -->\ndonde descargo la build que proporcina FivetechSoft?\n\n\nSaludos\n\nRicardo.','',0,'GIA=','hjmbi95h',1,0,'',422,0,0),(14213,3254,5,270,0,'65.27.222.17',1149940102,1,0,1,1,1,0,'','Fatal Error in Browse','I am getting the following xBase error in Browse.  Does anyone have a solution for this?\n\n------------------------------------------------------------------------------\nERROR LOG Date: 06/10/2006 07:38:18\n\nXbase++ version     : Xbase++ (R) Version 1.90.331\nOperating system    : Windows XP 05.01 Build 02600 Service Pack 2\n------------------------------------------------------------------------------\noError:args         :\noError:canDefault   : N\noError:canRetry     : N\noError:canSubstitute: N\noError:cargo        : NIL\noError:description  : Parameter has a wrong data type\noError:filename     : \noError:genCode      :          2\noError:operation    : \noError:osCode       :          0\noError:severity     :          2\noError:subCode      :       2311\noError:subSystem    : BASE\noError:thread       :          1\noError:tries        :          0\n------------------------------------------------------------------------------\nCALLSTACK:\n------------------------------------------------------------------------------\nCalled from TWINDOW:FIRSTACTIV(3198)\nCalled from TWINDOW:GOPREVCTRL(2487)\nCalled from TBTNBMP:KEYDOWN(742)\nCalled from TWINDOW:HANDLEEVEN(3011)\nCalled from TCONTROL:HANDLEEVEN(1322)\nCalled from _XBPP(3128)\nCalled from TDIALOG:ACTIVATE(273)\nCalled from CREATEESTI(733)\nCalled from (B)BROWSESALE(192)\nCalled from TWINDOW:LDBLCLICK(1754)\nCalled from TWBROWSE:LDBLCLICK(1041)\nCalled from TWINDOW:HANDLEEVEN(3027)\nCalled from TCONTROL:HANDLEEVEN(1322)\nCalled from _XBPP(3128)\nCalled from TWINDOW:ACTIVATE(881)\nCalled from MAIN(618)','',0,'GIA=','1fns2mf7',1,0,'',270,0,0),(14214,3088,5,270,0,'65.27.222.17',1149940159,1,0,1,1,1,0,'','','I can\'t get that to work.\n\nDan','',0,'GIA=','3fn3ryby',1,0,'',270,0,0),(14215,3255,6,400,0,'200.205.49.5',1149941572,1,0,1,1,1,1,'','TxtPrev, Erro na Barra de rolagem','Saudaçoes amigos, meu problema eh o seguinte:\n\nToda vez q eu movo a barra de rolagem do preview com a TxtPrev, dá este erro, alguem tem ideia do seja:\n\n[code:14ofts0n]\nApplication\n===========\n   Path and name&#58; C&#58;\\ALEFWH\\CONTSAFR\\SAFRA&#46;EXE &#40;32 bits&#41;\n   Size&#58; 1,916,416 bytes\n   Time from start&#58; 0 hours 0 mins 7 secs \n   Error occurred at&#58; 10/06/2006, 09&#58;00&#58;36\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; ATEXT\n   Args&#58;\n\nStack Calls\n===========\n   Called from ATEXT&#40;0&#41;\n   Called from &#40;b&#41;TFGET&#40;0&#41;\n   Called from TFGET&#58;HEIGHTLINE&#40;0&#41;\n   Called from TFGET&#58;PAGE&#40;0&#41;\n   Called from &#40;b&#41;TFGET&#58;DEFAULT&#40;0&#41;\n   Called from &#40;b&#41;TSCROLLBAR&#40;0&#41;\n   Called from TSCROLLBAR&#58;THUMBTRACK&#40;0&#41;\n   Called from TWINDOW&#58;VSCROLL&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;0&#41;\n   Called from SYSREFRESH&#40;0&#41;\n   Called from SYSWAIT&#40;0&#41;\n   Called from TTXTPREVIEW&#58;ACTIVATE&#40;521&#41;\n   Called from TXTPREVIEW&#40;190&#41;\n   Called from IMPRIMIR&#40;217&#41;\n   Called from R_EXT_GERAL&#40;132&#41;\n   Called from &#40;b&#41;MENUMAIN&#40;184&#41;\n   Called from TMENU&#58;COMMAND&#40;0&#41;\n   Called from TWINDOW&#58;COMMAND&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;0&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from MAIN&#40;126&#41;\n\nSystem\n======\n   CPU type&#58; GetCPU&#40;&#41; failed! 1800 Mhz\n   Hardware memory&#58; 120 megs\n\n   Free System resources&#58; 60 %\n        GDI    resources&#58; 60 %\n        User   resources&#58; 64 %\n\n   Compiler version&#58; xHarbour build 0&#46;80&#46;0 Intl&#46; &#40;SimpLex&#41;\n   Windows version&#58; 4&#46;10, Build 67766446  A \n[/code:14ofts0n]\n\n[color=red:14ofts0n]Obs.: Eu estou compilando somente o Txtprev e TDosPrn, junto ao meu sistema, será q esta faltando alguma Classe ?[/color:14ofts0n]','',0,'AoA=','14ofts0n',1,0,'',400,0,0),(14216,3088,5,6,0,'87.18.210.88',1149942013,1,0,1,1,1,1,'','','Sorry, I can\'t test it with FW++. It works fine with FWH.\n\nEMG','',0,'AoA=','1pasc7gb',1,0,'',6,0,0),(14217,3254,5,2,0,'87.218.146.212',1149946412,1,0,1,1,1,1,'','','Dan,\n\nAre you opening a new dialog with the keyboard ?\n\nCould you provide a small and self contained sample to reproduce the error ? Thanks','',0,'AoA=','2ppxf23p',1,0,'',2,0,0),(14218,3088,5,2,0,'87.218.146.212',1149946607,1,0,1,1,1,1,'','','Dan,\n\nWe need a small and self contained sample to reproduce the problem. Thanks,','',0,'AoA=','3vf6y9km',1,0,'',2,0,0),(14219,3247,6,2,0,'87.218.146.212',1149946675,1,0,1,1,1,1,'','','Ricardo,\n\nRevisa la sección \"whatsnew/novedades\" de estos foros. Ahí encuentras los enlaces para descargarlos.','',0,'AoA=','vamijy04',1,0,'',2,0,0),(14220,3248,6,46,0,'195.8.11.121',1149948162,1,0,1,1,1,0,'','','Modifica en el Report.prg\n[code:80yswyg0]  Eval&#40; &#58;&#58;bStartGroup, &#58;&#58;aGroups&#91; nGroup&#93; &#41;\n[/code:80yswyg0]\npor\n[code:80yswyg0]  Eval&#40; &#58;&#58;bStartGroup, &#58;&#58;aGroups&#91; nGroup&#93;, nGroup &#41;\n[/code:80yswyg0]\n\nDespues ya puedes utilizar\n[code:80yswyg0]\noRpt&#58;bStartGroup &#58;= &#123;|o,n| If&#40; n==1, //grupo 1\n                               MsgInfo&#40; &quot;hola Grupo 1&quot;&#41;, ;\n                               MsgInfo&#40; &quot;hola otro Grupo&quot; &#41; &#125;[/code:80yswyg0]\n\nSaludos\n <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->','',0,'AIA=','80yswyg0',1,0,'',46,0,0),(14221,3245,6,61,0,'201.217.168.167',1149949125,1,0,1,1,1,0,'','','Gracias Antonio...\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','alcxsitf',1,0,'',61,0,0),(14222,3129,6,61,0,'201.217.163.235',1149950033,1,0,1,1,1,0,'','','Antonio:\n\nCuando el get es de recursos y ya tiene asignado\nuna variable al abrirse el dialogo Ej.: \"0001\" (numero de cliente)\nal pintarse se me pinta mal.\n\nIgualmente lo arregle asi:\nEn recursos lo defino como get y en el\nprograma lo redefino como say.\n\nMuchas gracias.\n\nRuben Fernandez.\n\nBCC55, Harbour y FWH 2.7 Abril\nWindows xp con temas modificados.','',0,'AIA=','1w8i6nir',1,0,'',61,0,0),(14223,3248,6,53,0,'201.137.106.32',1149951357,1,0,1,1,1,1,'','','RenOmaS:\n\nMuchas gracias !, funcionó de maravilla.\n\nSolo me queda pedirle a A.L. que incorpore este cambio en futuras versiones, no soy partidario de tener la LIB de FWH + otras LIBs con las modificaciones como esta.\n\nSaludos a todos.','',0,'AIA=','2hys1kwf',1,0,'',53,0,0),(14224,3253,6,36,0,'200.113.56.235',1149953070,1,0,1,1,1,0,'','','Estimados\n\n   He bajado la clase y me esta arrojando error de variable no declarada\nnElements, ahora viendo la clase el metodo NEW(..). no existe la variable nElement  \n\n    ahora que valor deviera tener nElement\n\n\n[code:1h1kozjj]\nif Len&#40; &#58;&#58;aHeaders &#41; &lt; nElements\n      if &#58;&#58;Cargo == nil\n         &#58;&#58;aHeaders = Array&#40; nElements &#41;\n         for n = 1 to nElements\n             if ! Empty&#40; cAlias &#41; &#46;and&#46; Upper&#40; cAlias &#41; != &quot;ARRAY&quot;\n                &#58;&#58;aHeaders&#91; n &#93; = &#40; cAlias &#41;-&gt;&#40; FieldName&#40; n &#41; &#41;\n             else\n                &#58;&#58;aHeaders&#91; n &#93; = AllTrim&#40; Str&#40; n &#41; &#41;\n             endif\n         next\n      else\n         &#58;&#58;aHeaders = &#123; &quot;&quot; &#125;\n      endif\n   endif\n[/code:1h1kozjj]\n\nSaludos\nPatricio','',0,'AIA=','1h1kozjj',1,0,'',36,0,0),(14225,3256,6,221,0,'200.109.232.241',1149954734,1,0,1,1,1,0,'','FWH','saludos ya pude compilar sin errores mi aplicacion a harbour y la misma se inicia correctamente lo cualme dio alegria pero me abre paralelamente un ventana de DOS la cual tengo luego que cerar manualmente, que sera?\n\ntambien me pide una libreria ACE32.lib que solo la tenia en fw2.2, para que es esta libreria, seria esta la causa?\n\ngracias','',0,'AIA=','2pt3f8bp',1,0,'',221,0,0),(14226,3253,6,36,0,'200.113.56.235',1149958378,1,0,1,1,1,0,'','','estimado\n\n estoy compilando con el siguiente archivo bat:\n\n[code:1103cjmh]\n@ECHO OFF\nCLS\nset include=&#46;\\INCLUDE;c&#58;\\fwh\\include\nset hdir=c&#58;\\harbour\nset bcdir=c&#58;\\borland\\bcc55\\bin\n\ngoto inicio\n\n&#58;error\ncls\ntype error&#46;log\ngoto end\n\n&#58;inicio\n\n%hdir%\\bin\\harbour SOURCE\\CLASSES\\WBROWSE&#46;PRG /p /n /a /w /es1 /i\\fwh\\include;%hdir%\\include /oOBJ\\WBROWSE&#46;C &gt;error&#46;log\nif errorlevel 1 goto error\n\n%hdir%\\bin\\harbour SOURCE\\CLASSES\\TMULTISE&#46;PRG /n /i\\fwh\\include;%hdir%\\include /oOBJ\\TMULTISE&#46;C &gt;&gt;error&#46;log\nif errorlevel 1 goto error\n\nrem INICIO Modulos C Generados por Harbour !!!\n\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include;c&#58;\\fwh\\include  -oOBJ\\WBRWLINE&#46;OBJ  SOURCE\\FUNCTION\\WBRWLINE&#46;C\n\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include  -oOBJ\\WBROWSE&#46;OBJ  OBJ\\WBROWSE&#46;C\n@del OBJ\\WBROWSE&#46;c\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include  -oOBJ\\TMULTISE&#46;OBJ  OBJ\\TMULTISE&#46;C\n@del OBJ\\TMULTISE&#46;c\n\nIF exist LIB\\TWBRW32&#46;LIB @del LIB\\TWBRW32&#46;LIB\n\n%bcdir%\\tlib lib\\TWBRW32&#46;LIB +OBJ\\WBROWSE&#46;OBJ + OBJ\\WBRWLINE&#46;OBJ + OBJ\\TMULTISE&#46;OBJ\n\n&#58;end\npause\n[/code:1103cjmh]\n\n\npero al compilar WBRWLINE.C  me sale el siguiente error\n\n[code:1103cjmh]Borland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nSOURCE\\FUNCTION\\WBRWLINE&#46;C&#58;\nWarning W8065 SOURCE\\FUNCTION\\WBRWLINE&#46;C 1183&#58; Call to function \'hb_dynsymSymbol\' with no prototype in function HB_FUN_WBRWPANE\nError E2342 SOURCE\\FUNCTION\\WBRWLINE&#46;C 1183&#58; Type mismatch in parameter \'pSym\' &#40;wanted \'HB_SYMB *\', got \'int\'&#41; in function HB_FUN_WBRWPANE\n*** 1 errors in Compile ***[/code:1103cjmh]\n\nAlguien sabe como compilar WBRWLINE.C\n\nxHarbour Compiler build 0.99.3, fwH(2.4) , borland C5.5\n\nsaludos\nPatricio','',0,'AIA=','1103cjmh',1,0,'',36,0,0),(14227,2502,17,2,0,'87.218.146.212',1149964096,1,0,1,1,1,1,'','','Aqui está de nuevo, ya que los enlaces anteriores dejaros de funcionar:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026cd92f26/TWBrowse_17-\">http://hyperupload.com/download/026cd92f26/TWBrowse_17-</a><!-- m -->[x]Harbour.exe.html','',0,'','1acj4ds9',1,0,'',2,0,0),(14228,3253,6,2,0,'87.218.146.212',1149964182,1,0,1,1,1,1,'','','Jose,\n\nGracias! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','313kgu9y',1,0,'',2,0,0),(14229,3164,3,49,0,'87.3.181.249',1149977110,1,0,1,1,1,1,'','','just I\'m working to translate to new rpreview of linares...\nMy rpreview not is for xp window...','',0,'','1z6egcul',1,0,'',49,0,0),(14230,2988,23,49,0,'87.3.181.249',1149980079,1,0,1,1,1,1,'','','see your email','',0,'','2eb9p3kw',1,0,'',49,0,0),(14231,3249,6,582,0,'201.252.72.61',1149980477,1,0,1,1,1,0,'','','Jose, justamente es ese el que estoy utilizando, pero no hay caso.\nLo raro es que esto ya lo hice mil veces, pero parece que esta vez no quiere lola.\n\nDesde ya muchisimas gracias.\n\nUn abrazo. El Loco =&gt;))','',0,'','nwjakdfz',1,0,'',582,0,0),(14232,3252,6,73,0,'200.92.90.132',1149982757,1,0,1,1,1,0,'','','Jose, en una ocasion hace un par de meses HDC publico que ya la tenia lista, estaba afinando detalles y hasta una imagen del mismo subio para que la vieramos, muy chido. Esperemos pronto tener una respuesta de HDC,\nsaludos\nPaco','',0,'','2wzdyy6j',1,0,'',73,0,0),(14233,3252,6,73,0,'200.92.90.132',1149984502,1,0,1,1,1,0,'','','aqui esta el comentario de HDC, perdon fue hace mas tiempo\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=151&amp;highlight=wbrowse\">http://fivetechsoft.com/forums/viewtopi ... ht=wbrowse</a><!-- m -->','',0,'','jdnu4k7y',1,0,'',73,0,0),(14234,2834,2,623,0,'201.112.65.238',1149992857,1,0,1,1,1,0,'','Re: Manejo de impresora con Tprinter','Hola:\nAlguien tiene un ejemplo de impresion de recibos de 10 cm por 5 cm\n(papel especial)\nLei en el foro que con el Set Size\n\n\nGracias mil','',0,'','38klk4ke',1,0,'',623,0,0),(14235,3257,3,141,0,'201.152.251.227',1149995822,1,0,1,1,1,1,'','TreeView desde codigo','Hola,\n\n¿Es que la clase TreeView se puede utilizar desde codigo en un dialogo?  En SAMPLES\\TREEVIEW.PRG solo aparece desde recursos, y cuando lo incluyo desde codigo me da el clásico error \"Cannot Create Dialog...\"\n\n¿Alguien tiene un ejemplo que comparta conmigo?\n\nGracias anticipadas,','',0,'','wcl7fj3a',1,0,'',141,0,0),(14236,3249,6,582,0,'201.252.72.61',1150007213,1,0,1,1,1,0,'','','Jose, ya esta pude generar la lib.\nMuchas gracias.\nUn abrazo. El Loco =&gt;))','',0,'','1rpx3971',1,0,'',582,0,0),(14237,3219,6,413,0,'194.106.16.43',1150008955,1,0,1,1,1,0,'','','Gracias Antonio, estoy buscando un ejemplo de Query que recuerdo haber visto en los ejemplos y que ahora no localizo, era un ejemplo consistia en una serie de botones que podias seleccionar los campos de la base de datos y operadores del tipo and, or y demas, e incluso habia un boton que te testeaba la formula antes de ser ejecutada. Seguro que estaba en antiguas versiones de fw, pero que ahora no localizo. Te suena de algo?....\n\nSaludos','',0,'','1zp1qssc',1,0,'',413,0,0),(14238,3258,6,385,0,'85.155.39.91',1150022604,1,0,1,1,1,0,'','Explorer como activex','Hola\n\nSe que esta ya respondido,pero no he podido encontrarlo.... como se hace para abrir el explorer como activex desde una aplicacion e ir a una pagina determinada.\n\nTengo FHW 2.5\n\nAh! y ya que estamos...para poner un menu en un dialgo que esta en una ventana hija...quiero que el menu sea del dialogo no de la ventana...\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'','2jrzhmj0',1,0,'',385,0,0),(14239,3259,7,533,0,'81.32.116.145',1150026635,1,0,1,1,1,0,'','Quitar teclado','Buenos Tardes foro:\n\n   Me gustaría saber de que manera oculto el teclado virtual, ya que tengo una ventana con un get que cuando obtiene el foco se muestra el teclado, pero si cierro la ventana me sigue el teclado abierto.\n\n  Muchas Gracias.','',0,'','174fri4w',1,0,'',533,0,0),(14240,3249,6,439,0,'190.0.138.240',1150028667,1,0,1,1,1,1,'','TSBrowse','Me alegra haber sido útil  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1lgna6w6',1,0,'',439,0,0),(14241,3260,3,281,0,'211.176.118.3',1150035084,1,0,1,1,1,1,'','How if we open at the same time  a com1 com2 ?','Hi Antonio.\n\nThe case to use the com1.\n\n[code:13dvbzzo]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, nComm &#58;= InitComm&#40;&#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Testing Comm functions&quot;\n\n   oDlg&#58;bCommNotify = &#123; | nComm, nStatus | BytesAtPort&#40; nComm, nStatus &#41; &#125;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT EnableCommNotification&#40; nComm, oDlg&#58;hWnd, 20, 20 &#41;\n\n   CloseComm&#40; nComm &#41;\n\nreturn nil\n\nfunction InitCOMM&#40;&#41;\n\n   local cDcb, nError, nBytes\n   local nComm &#58;= OpenComm&#40; &quot;COM1&quot;, 1024, 128 &#41;\n\n   if ! BuildCommDcb&#40; &quot;COM1&#58;9600,n,8,1&quot;, @cDcb &#41;\n      MsgStop&#40; &quot;Error BUILD!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\n   if ! SetCommState&#40; cDcb &#41;\n      MsgStop&#40; &quot;Error SETCOMM!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\nreturn nComm\n\nfunction BytesAtPort&#40; nComm, nStatus &#41;\n\n   local cBuffer &#58;= Space&#40;20 &#41;\n\n   Msginfo&#40; nSTATUS&#41;\n   ReadComm&#40; nComm, @cBuffer &#41;  // &lt;&lt;&lt;&lt;---- program will lock here\n   Msginfo&#40; AllTrim&#40; cBuffer &#41;&#41;\n\nreturn nil\n\n[/code:13dvbzzo]\n\nThe use a com1, com2 at the same time ?\n\nYUN JIN SONG.','',0,'AIA=','13dvbzzo',1,0,'',281,0,0),(14242,3261,4,538,0,'151.44.139.229',1150041945,1,0,1,1,1,0,'','transfer data from-to a Pocket Pc','There is a way to map a directory on a Pocket Pc from a desktop PC (or map a directory of the Desktop PC for use it from the Pocket) to transfer data without use Copy &amp; Paste with ActiveSync ?\nThanks.\nFranz','',0,'AIA=','3gj3ltoo',1,0,'',538,0,0),(14243,3260,3,6,0,'82.57.159.247',1150042719,1,0,1,1,1,1,'','Re: How if we open at the same time  a com1 com2 ?','SetCommState() requires two parameters:\n\n[code:30le2mna]if ! SetCommState&#40; nComm, cDcb &#41;[/code:30le2mna]\n\nEMG','',0,'AIA=','30le2mna',1,0,'',6,0,0),(14244,3254,5,270,0,'65.27.222.17',1150049778,1,0,1,1,1,0,'','','It\'s not easy to reproduce.  It happens infrequently when I navigate up and down with the arrow keys in the Report Preview screen.  I believe it\'s with the Up Arrow key.\n\nI am not opening a new dialog.  I just run a Report with PREVIEW and when the Preview screen is active, I move up and down with the arrow keys.\n\nDan','',0,'AIA=','10vmjt60',1,0,'',270,0,0),(14245,3251,2,228,0,'200.119.75.175',1150051330,1,0,1,1,1,1,'','lo necesito','Antonio como estas. de casualidad no tienes un ejemplo un poco mas didactico sobre como generar el numero de serie.\n\nDe antemano gracias','',0,'AIA=','3bbuoury',1,0,'',228,0,0),(14246,3261,4,150,0,'62.15.123.106',1150058895,1,0,1,1,1,1,'','','I use cecopy. I saw a reference in this news group days ago.','',0,'AIA=','3bbrpzlo',1,0,'',150,0,0),(14247,3262,6,422,0,'195.8.13.32',1150062648,1,0,1,1,1,0,'','__HBOLE__','Hola Foro...\n\nRevisando la tsbrowse 7.0 ..\n[code:hmwug32f]\n#ifdef __HARBOUR__\n   #xtranslate   _DbSkipper =&gt; DbSkipper\n   #ifdef __HBOLE__\n      #define __OLE__\n   #endif\n   EXTERN OrdKeyNo, OrdKeyCount, OrdKeyGoto\n#endif\n\n[/code:hmwug32f]\nComo defino __HBOLE__ en los flags  de Borland C.\nuso un .mak.\nLo intente de esta manera pero sin exito. \n\n-O2 -c -D__HARBOUR__;HB_API_MACROS -D__HBOLE__\n\nAlguien que me de alguna luz ?\n\nSaludos\nRicardo R.','',0,'AIA=','hmwug32f',1,0,'',422,0,0),(14248,3263,6,203,0,'200.107.2.150',1150073398,1,0,1,1,1,1,'','Error usando C5MENU Y PRINT PREVIEW','Hola amigos del foro\n\nLo dicho al usar c5menu y print preview y tratar de usar las opciones del menu del preview tengo un error, solo ocurre al usarlo con c5menu\nno se si alguien tiene una idea y me puede ayudar\n\nGracias\n\nSaludos\n\nOscar','',0,'AIA=','2eev8vzy',1,0,'',203,0,0),(14249,3259,7,449,0,'212.64.224.249',1150093378,1,0,1,1,1,1,'','','Hola Mike,\n\nYo uso esta metodologia.\n\n1.- Funcion Set/Get q te devuelve el estado del teclado\n\n\n[code:1sc7jsoh]#include &quot;FWCE&#46;ch&quot;\n\n*---------------------\nFUNCTION Sip&#40; lOnOff &#41;\n*---------------------\n    LOCAL lOldState &#58;= SipInfo&#40;&#41;\n\n    IF ValType&#40; lOnOff &#41; == \'L\'\n\n       IF&#40; lOnOff, ShowKeyboard&#40;&#41;, HideKeyboard&#40;&#41; &#41;\n\n    ENDIF\n\nRETU lOldState[/code:1sc7jsoh]\n\n2.- En el programa, cuando necesito activar el teclado, me guardo el estado anterior. Al salir del dialogo restauro el estado anterior\n\n[code:1sc7jsoh]\n*-----------------\nFUNCTION Edicion&#40;&#41;\n*-----------------\nLOCAL lSip &#58;= Sip&#40; &#46;T&#46; &#41;  // Activo teclado\n\nDEFINE DIALOG &#46;&#46;&#46;\nACTIVATE DIALOG&#46;&#46;&#46;\n\nSip&#40; lSip &#41;    // Restauro estado teclado\n\nRETU NIL\n[/code:1sc7jsoh]','',0,'AIA=','1sc7jsoh',1,0,'',449,0,0),(14250,2869,6,449,0,'212.64.224.249',1150094718,1,0,1,1,1,1,'','','Mario,\n\nAisla tu codigo con este pequeño ejemplo, y te deberia funcionar. En este ejemplo abro una tabla, muestro el browse, preparo una consulta a otra tabla, muestro resultado, y finalmente retorno al primer browse.\n\n\n[code:3n839mdj]#include &quot;ads&#46;ch&quot;\n#include &quot;fivewin&#46;ch&quot;	  \n\n*--------------\nFUNCTION main&#40;&#41;\n*--------------\n    LOCAL cServer  &#58;= &quot;\\\\BSD001\\Test&quot;\n    LOCAL consulta &#58;= &quot;Select * from tsqlcdx where age &gt; 90&quot;\n    LOCAL cTxt     &#58;= \'\'\n\n    RddRegister&#40;&quot;ADS&quot;,1&#41;\n    RddSetDefault&#40;&quot;ADS&quot;&#41;\n    AdsSetServerType &#40; 2 &#41;\n    SET FILETYPE TO CDX\n\n    IF AdsConnect&#40; cServer , 2 &#41; == &#46;F&#46;\n       MsgAlert&#40; \'Error en conexion\' &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    USE \\\\BSD001\\Test\\customer NEW SHARED\n\n    cAlias &#58;= Alias&#40;&#41;\n\n    &#40;cAlias&#41;-&gt;&#40; Browse&#40;&#41; &#41;\n\n    nArea &#58;= Select&#40;&#41;\n\n    DbSelectAr&#40; 0 &#41;\n\n    IF ! ADSCreateSQLStatement&#40;&quot;SQLarea&quot;,2&#41;  // 2 == ADS_CDX\n       MsgAlert&#40; &quot;ADSCreateSQLStatement&#40; \'SQLArea\', 2 &#41;&quot; &#41;\n       AdsDisconnect&#40;AdsGetConnectionHandle&#40;&#41;&#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    IF ADSExecuteSQLDirect&#40; consulta &#41;\n\n       FOR nI &#58;= 1 TO 20\n\n           cTxt += SQLArea-&gt;first + \' \' + SQLArea-&gt;last + \' \' + SQLArea-&gt;street + \' \' + str&#40; SQLArea-&gt;age &#41; + CRLF\n\n                   SQLArea-&gt;&#40; DbSkip&#40;&#41; &#41;\n\n       NEXT\n\n       MsgInfo&#40; cTxt &#41;\n\n    ENDIF\n\n\n    SQLArea -&gt; &#40; DBCLOSEAREA&#40;&#41; &#41;\n\n    &#40;cAlias&#41;-&gt;&#40; Browse&#40;&#41; &#41;\n    &#40;cAlias&#41;-&gt;&#40; DbCloseArea&#40;&#41; &#41;\n\n    AdsDisconnect&#40;AdsGetConnectionHandle&#40;&#41;&#41;\n\nRETU NIL\n[/code:3n839mdj]\n\nEn cuanto a la pregunta del uso del AdsDisconnect() le tienes q pasar de parametro el handle de la conexion, por eso se usa AdsDisconnect(AdsGetConnectionHandle())\n\nQ yo sepa la unica ayuda q puedes tener es ladel help de ADS en la q estan todas las funciones y/o algun anima caricativa en el foro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3n839mdj',1,0,'',449,0,0),(14251,3244,7,470,0,'80.58.45.107',1150099130,1,0,1,1,1,0,'','mamartin','Hola Biel,\n\nEl problema de que a veces no me imprima puede ser del writeByte()???\n\nLo digo porque he añadido un bucle para forzar que me devuelva un descriptor de fichero positivo:\n\nDO WHILE hOut &lt;0 .and. nVeces &lt;= 10\n   hOut:=CreateFile(......\n   nVeces++\nENDDO\n\nasí siempre me devuelve un descriptor positivo, pero aun así hay veces que tampoco me imprime, por eso pienso que el problema me lo da el WriteByte(), pero no se muy bien como solucionarlo, hay que envíar un número determinado de bytes a la impresora???hay que vaciar el buffer, como se haria???\n\nMuchas gracias!!','',0,'AIA=','14y8iaqi',1,0,'',470,0,0),(14252,3258,6,2,0,'87.218.146.212',1150102379,1,0,1,1,1,1,'','','Jose Ignacio,\n\nTienes el ejemplo samples\\webexp.prg pero require FWH 2.7.\n\nEn cuanto al menu, créalo desde la claúsula ON INIT del diálogo.','',0,'AIA=','2r0nqn8a',1,0,'',2,0,0),(14253,3219,6,2,0,'87.218.146.212',1150102641,1,0,1,1,1,1,'','','Andrés,\n\nRevisa el código de source\\function\\expbuild.prg','',0,'AIA=','1e0h86d1',1,0,'',2,0,0),(14254,3244,7,456,0,'217.127.39.57',1150102802,1,0,1,1,1,1,'','','Hola, \n   vamos por partes, el tema del descriptor de fichero positivo, veo que ya lo tienes resuelto, de todas formas me parece estraño. A mi si la impresora esta conectada simpre me devuelve numero positivo. \n\nReferente al WriteByte, yo si tuve problemas con el vaciado de buffer, parece que lo envia por bloques y hasta que no tiene un bloque completo no envia a la impresora. Y pasa que a veces me quedaba parte del listado pendiente de imprimir, probe haciendo un flush del puerto, pero no funciona, la solucion que uso es al final del listado enviarle un ascii no imprimible, para asegurarme de que el buffer se llena y lo envia a la impresora. \n\n[code:3mdmeaje]//-------------------------\nFUNCTION SendText&#40; cText &#41;\n//-------------------------\n   LOCAL i, hOut &#58;= CreateFile&#40; &quot;COM6&#58;&quot;,GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL &#41;\n   IF hOut==-1\n      MsgStop&#40;\'No pudo abrise el puerto de impresora\'&#41;\n   ELSE\n      FOR i&#58;= 1 TO Len&#40; cText &#41;\n         WriteByte&#40; hOut, Asc&#40; SubStr&#40; cText, i, 1 &#41; &#41; &#41;\n      NEXT\n      FOR i&#58;=1 TO 64\n         WriteByte&#40; hOut, 27&#41;\n      NEXT\n      CloseHandle&#40; hOut &#41;\n   ENDIF\nRETURN NIL\n[/code:3mdmeaje]','',0,'AIA=','3mdmeaje',1,0,'',456,0,0),(14255,3257,3,2,0,'87.218.146.212',1150104444,1,0,1,1,1,1,'','','Julio,\n\nTienes que añadir este método a la clase TTreeView en source\\classes\\ttreevie.prg:\n[code:p39tg9i9]\n   METHOD cToChar&#40;&#41; INLINE Super&#58;cToChar&#40; CTRL_NAME &#41;\n[/code:p39tg9i9]\nY si añades este comando a FiveWin.ch:\n[code:p39tg9i9]\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; TREEVIEW &#91;&lt;oTV&gt;&#93; ;                                           \n             &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ;\n             &#91; &lt;of&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; &lt;design&#58; DESIGN&gt; &#93; ;\n             &#91; &lt;pixel&#58; PIXEL&gt; &#93; ;\n             &#91; COLOR &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n       =&gt; ;\n          &#91; &lt;oTV&gt; &#58;= &#93; TTreeView&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, &lt;oWnd&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;,;\n                                        &#91;&lt;&#46;pixel&#46;&gt;&#93;, &#91;&lt;&#46;design&#46;&gt;&#93;, &lt;nWidth&gt;, &lt;nHeight&gt;,;\n                                        &#91;&lt;cMsg&gt;&#93; &#41; \n[/code:p39tg9i9]\nEntonces puedes probar este ejemplo:\n[code:p39tg9i9]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;WColors&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oTree\n   \n   DEFINE DIALOG oDlg TITLE &quot;TreeView from source&quot;\n   \n   @ 0&#46;5, 1 TREEVIEW oTree OF oDlg SIZE 80, 60 COLOR 0, GetSysColor&#40; COLOR_WINDOW &#41;\n   \n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT AddItems&#40; oTree &#41;\n   \nreturn nil   \n\nfunction AddItems&#40; oTree &#41;\n\n   local oItem1, oItem2, oItem3\n   \n   oItem1 = oTree&#58;Add&#40; &quot;First&quot; &#41;\n   oItem1&#58;Add&#40; &quot;One&quot; &#41;\n   oItem1&#58;Add&#40; &quot;Two&quot; &#41;\n   oItem1&#58;Add&#40; &quot;Three&quot; &#41;\n   oItem2 = oTree&#58;Add&#40; &quot;Second&quot; &#41;   \n   oItem2&#58;Add&#40; &quot;Hello&quot; &#41;\n   oItem2&#58;Add&#40; &quot;World&quot; &#41;\n   oItem3 = oTree&#58;Add&#40; &quot;Third&quot; &#41;\n   oItem3&#58;Add&#40; &quot;Last&quot; &#41;\n   oItem3&#58;Add&#40; &quot;item&quot; &#41;\n   \nreturn nil         \n[/code:p39tg9i9]\nQue se ve así:\n[url=http&#58;//imageshack&#46;us:p39tg9i9][img:p39tg9i9]http&#58;//img239&#46;imageshack&#46;us/img239/6281/image13rp&#46;gif[/img:p39tg9i9][/url:p39tg9i9]','',0,'GIA=','p39tg9i9',1,0,'',2,0,0),(14256,3254,5,2,0,'87.218.146.212',1150104791,1,0,1,1,1,1,'','','Dan,\n\nsamples\\TestPrn2.prg shows the print preview. We have been testing it here and it works ok. Could you please test it there and check if you get the error with it ? Thanks.','',0,'GIA=','3m6j9a2m',1,0,'',2,0,0),(14257,3264,6,449,0,'212.64.224.249',1150107631,1,0,1,1,1,1,'','TestDDE en XP','Hola,\n\nEl ejemplo TestDDE, os funciona correctamente en XP ?','',0,'GIA=','2kgz49fl',1,0,'',449,0,0),(14258,3265,2,542,0,'88.1.200.154',1150111388,1,0,1,1,1,0,'','ventanas en 2d','Hola amigos y gracias por los consejos que me disteis en mi última pregunta.\n\nLa presente difilcutad es la siguiente, pongo el comando set _3DLOOK on al principio de la aplicación para que aparezca en 3D. Las ventanas que aparecen con comandos MSGinfo y similares si aparecen en 3D pero las WINDOWS y los DIALOG no aparecen en 2D o planas sin ese pequeño relieve que le hace más atractivo a la vista.\nPor si os sirve las declaro asi.\n\nDEFINE WINDOW oDlgw MDICHILD OF oVentPrinc FROM 0, 0 TO 20,99 TITLE \"Gestión de Empresas\" COLOR RGB (0,0,255), RGB (225,225,225) MENU menuempr() NOICONIZE NOMAXIMIZE STYLE WS_BORDER\n\n...\n...\n\nACTIVATE WINDOW oDlgw NORMAL\n\nDEFINE DIALOG ModiCu OF oDlgw FROM 0,0 TO  8,28 TITLE titucuen COLOR RGB (255,0,0), RGB (225,225,225) STYLE WS_BORDER\n\n...\n...\n\nACTIVATE DIALOG ModiCu CENTER\n\nSi alguien puede ayudarme para que estas tambien salga en relieve les agradecería la ayuda.\n\nCarlos','',0,'GIA=','3iuyax3h',1,0,'',542,0,0),(14259,3266,2,542,0,'88.1.200.154',1150111584,1,0,1,1,1,0,'','Boton de busqueda de archivo','Hola de nuevo:\n\nEste post es para ver si me podéis ayudar de como poder hacer para que mi aplicacion tenga una utilidad más.\n\nLa pregunta es la siguiente y es como se hace para incorporar un boton para que el usuario pueda elegir un archivo del disco duro y poner la ruta y el archivo en una variable que les pido.\n\nGracias\n\nCarlos','',0,'GIA=','gf80028s',1,0,'',542,0,0),(14260,3267,6,57,0,'81.34.174.84',1150112270,1,0,1,1,1,1,'','TGET: BUG en PICTURE.','Antonio\n\nLa siguiente linea tiene un comportamiento extraño. Al perder el foco el GET si  se introduce un valor con decimales, nValue asume su valor a CERO.\n\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg, oGet\n   local nValue := 0\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg RESOURCE \"TestGet\"\n\n   REDEFINE GET oGet VAR nValue PICTURE \"9.999 €\" ID 110 OF oDlg\n\n   REDEFINE BUTTON ID 120 OF oDlg ACTION MsgInfo( nValue )\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n\nHe comprobado que esto solo sucede cuando el PICTURE tiene un único valor entero y ademas añado el signo €. Lo curioso es que si añado un espacio en la parte entera del PICTURE \" 9.999 €\", funciona correctamente.\n\n¿Alguna idea al Respecto?\n\nSaludos\nToni Sales','',0,'GIA=','yypyjoxe',1,0,'',57,0,0),(14261,3261,4,224,0,'162.83.94.176',1150116312,1,0,1,1,1,1,'','','When you install ActiveSync on the desktop computer, it creates a folder in your My Documents folder called \"Pocket_PC My Documents\". This folder automatically synchs with the My Documents folder on the Pocket PC. So, if you create a sub-folder for your app in one of these folders (either on the Pocket PC or desktop) the contents will be automatically synched when docked.','',0,'GIA=','wcnrn5mk',1,0,'',224,0,0),(14262,3219,6,413,0,'194.106.16.43',1150117499,1,0,1,1,1,0,'','','Esto es justo lo que necesito, me imagino que por algun lado estaran los recursos que utiliza .RC, estoy intentando cambiar la formula del los reportes de crystal reports, para que el usuario pueda cambiarla a su gusto en tiempo de ejecucion.\n\nMil gracias Antonio.\nSaludos.','',0,'GIA=','wa80ls33',1,0,'',413,0,0),(14263,3219,6,413,0,'194.106.16.43',1150118188,1,0,1,1,1,0,'','','Sigo con problemas con los .CH, en el codigo pide por el y no lo encuentro por ningun lado. [code:1yb1hv5d]\n// Expression Builder Dialog\n// FiveWin - Dialog tools\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;resource\\ExpBuild&#46;ch&quot;\n\n//-----------------------------------------------------[/code:1yb1hv5d]\nSaludos','',0,'AIA=','1yb1hv5d',1,0,'',413,0,0),(14264,3219,6,413,0,'194.106.16.43',1150118232,1,0,1,1,1,0,'','','Sigo con problemas con los .CH, en el codigo pide por el y no lo encuentro por ningun lado. [code:2594fuff]\n// Expression Builder Dialog\n// FiveWin - Dialog tools\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;resource\\ExpBuild&#46;ch&quot; &lt;&lt;&lt;&lt;&lt; Este no esta&#46;\n\n//-----------------------------------------------------[/code:2594fuff]\nSaludos','',0,'AIA=','2594fuff',1,0,'',413,0,0),(14265,3268,3,213,0,'72.177.228.25',1150118868,1,0,1,1,1,0,'','ActiveX &amp; Mappoint','Antonio,\n\nHow can I set these properties using ActiveX &amp; FWH?\n\nUsing xHarbour I can using the following syntax:\n\n   oMapPoint:Toolbars:Item(\"Standard\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Navigation\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Drawing\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Location and Scale\"):Visible := .T. \n\nUsing FWH I\'ve tried a variety of options but cannot find the correct syntax to set these properties.\n\nThanks,\nRandal Ferguson','',0,'AIA=','3grqe06e',1,0,'',213,0,0),(14266,3263,6,492,0,'201.154.132.163',1150120256,1,0,1,1,1,1,'','','Hola Oscar\n\nDesafortunadamente no podemos mezclar la clase C5Menu con otro tipo de menu en una App, existe cierto tipo de incompatibilidad entre ellos.\nLo unico que se puede hacer es ( hasta que alguien corriga tales problemas ) :\n\nO no usar el C5Menu si en tu app usas otros tipos de menues ( pulldown, popup, etc )   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\no Dejar de usar dichos menues y usar solo el C5Menu \n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\n\nSaludos','',0,'AIA=','1yzrx85s',1,0,'',492,0,0),(14267,3261,4,150,0,'62.15.123.106',1150120413,1,0,1,1,1,1,'','','There are two modes with ActiveSync, standar and guest. I always use guestand mode  because standar mode is only for 2 pdas (I think?)','',0,'AIA=','1vb7m0yi',1,0,'',150,0,0),(14268,3219,6,2,0,'87.218.146.212',1150121141,1,0,1,1,1,1,'','','Andrés,\n\nAquí los tienes:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02aad01380/expbuild.zip.html\">http://hyperupload.com/download/02aad01 ... d.zip.html</a><!-- m -->','',0,'AIA=','21085abc',1,0,'',2,0,0),(14269,3268,3,2,0,'87.218.146.212',1150121404,1,0,1,1,1,1,'','','Randal,\n\nThis should be the first step:\n   MsgInfo( OleGetProperty( oActiveX&#058;hActiveX, \"Toolbars\" ) )\n\nbut it is returning a nil value.','',0,'AIA=','1x1rmpp2',1,0,'',2,0,0),(14270,3264,6,2,0,'87.218.146.212',1150121621,1,0,1,1,1,1,'','','Carles,\n\nEse ejemplo usa propiedades de Windows 95/98. Parece que no son las mismas en XP.','',0,'AIA=','2334aa4i',1,0,'',2,0,0),(14271,3266,2,2,0,'87.218.146.212',1150121696,1,0,1,1,1,1,'','','Carlos,\n\nPuedes usar:\n\nlocal cFile := cGetFile( \"*.*\", \"seleccione un fichero\" ) // ó cGetFile32()\n\nMsgInfo( cFile )','',0,'AIA=','3j3irgu4',1,0,'',2,0,0),(14272,2869,6,147,0,'200.45.54.133',1150122805,1,0,1,0,1,1,'','','Carles:\nGracias por la ayuda.\n\nRespecto de AdsGetConnectionHandle()\nAl compilar me devuelve el error de abajo. Por eso aclaré que uso ADS 6.2 y preguntaba si la función no será de una version posterior\n\nGenerating C source output to \'WAT_T01.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nWAT_T01.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ADSGETCONNECTIONHANDLE\' referenced from D:\\FUEN32\\WAT5\\RELEASE\\WAT_T01.OBJ\nmgat - 0 error(es), 2 advertencia(s)\n\nPor otro lado realicé una llamada a AdsDisconnect() y me devuelve verdadero; por lo supongo que desconecta. Es así?\n\nSaludos','',0,'AIA=','17chey4t',1,0,'',147,0,0),(14273,2869,6,21,0,'80.58.205.42',1150124455,1,0,1,1,1,1,'','','Hola,\n\nEl error esta en la segunda consulta SQL. Al intentar generarla te dice que cierres la primer consulta\n\n[code:1w26sm9h]MsgMeter&#40; &#123;|oMeter,oTxt| oMeter&#58;nTotal&#58;= SQLarea-&gt;Expr   , ; \n                               wqout&#40;&#123; ADSExecuteSQLDirect&#40; cConsulta &#41; &#125;&#41;, ; \n                               &#58;&#58;aLocalidades&#58;= &#58;&#58;CargaArr&#40; oMeter, oTxt &#41; &#125;, &quot;&quot;, &quot;Cargando Tabla&#46;&#46;&#46;&quot; &#41; [/code:1w26sm9h]\n\nCada consulta SQL debe tener su propio ADSCreateSQLStatement, sino intenta reutilizar el alias anterior \"SQLarea\" que esta en uso.\nYo pondría lo siguiente:\n\n[code:1w26sm9h]MsgMeter&#40; &#123;|oMeter,oTxt| oMeter&#58;nTotal&#58;= SQLarea-&gt;Expr   , ;\n                               dbSelectar&#40;0&#41;,;\n                               ADSCreateSQLStatement&#40;&quot;SQLarea2&quot;, 2&#41;,; \n                               wqout&#40;&#123; ADSExecuteSQLDirect&#40; cConsulta &#41; &#125;&#41;, ;\n                               DbSelectar&#40;&quot;SQLarea&quot;&#41;,; \n                               &#58;&#58;aLocalidades&#58;= &#58;&#58;CargaArr&#40; oMeter, oTxt &#41; &#125;, &quot;&quot;, &quot;Cargando Tabla&#46;&#46;&#46;&quot; &#41; [/code:1w26sm9h]\n\nEl motivo del DbSelectar(0), es para que no haya una tabla activa. Ya que sino perderas los datos de la consulta inicial y las dos tablas \"SQLarea\" y \"SQLarea\" tendrán los mismo valores, apuntarán a la misma tabla.','',0,'AIA=','1w26sm9h',1,0,'',21,0,0),(14274,3263,6,203,0,'200.107.17.34',1150124612,1,0,1,1,1,1,'','','Gracias x tu respuesta\n\nVoy a ver cual es la mejor solución\n\n\nGracias\n\nSaludos\n\nOscar','',0,'AIA=','2kmn0lpf',1,0,'',203,0,0),(14275,3269,6,52,0,'200.127.195.89',1150125662,1,0,1,1,1,1,'','Class: \'NIL\' has no exported','Estimados,\n\npor que al ejecutar el programa me tira este error:\n[quote:w7fntzhu]  Error description: Error BASE/1004  Class: \'NIL\' has no exported method: SETFOCUS\n   Args:\n\nStack Calls\n===========\n   Called from SETFOCUS(0)\n   Called from (b)MAIN(118)\n   Called from TDIALOG:INITIATE(0)\n   Called from TDIALOG:HANDLEEVENT(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from MAIN(118)[/quote:w7fntzhu]\n\n[code:w7fntzhu]   oDlg&#58;= oDlgEnlace&#40; oBrw, oTextos, oBtns, oBmp, oFuentes &#41;\n\n   //----------&#40; Acción del botón &#41;----------\n\n   ACTIVATE DIALOG oDlg CENTERED ON init &#40;;\n      oBrw&#58; SetFocus&#40;&#41;,;\n      oBrw&#58; ResetBarPos&#40;&#41;,;\n      oBrw&#58; UpStable&#40;&#41;,;\n      oBrw&#58; Reset&#40;&#41;,;\n      oBrw&#58; Refresh&#40;&#41;,;\n      oBrw&#58; gobottom&#40;&#41;,;\n      BuildTimer&#40; IF &#40; aConfiguracion&#91; 01 &#93; &lt; 17, 0x64, 0xB4 &#41;,;\n      aConfiguracion, aProductos, aSurtidores, aSetVars, oDlg &#41;;\n       &#41;\n\n   DBCloseAll&#40;&#41;\n\n   AEval&#40; oFuentes, &#123; | aFuentes | aFuentes&#58;END&#40; &#41; &#125; &#41;\n\nRETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\nSTATIC FUNCTION BuildTimer&#40; nComando, aConfiguracion, aProductos, aSurtidores, aSetVars, oDlg &#41;\n   MEMVAR oTimer\n\n   DEFINE Timer oTimer Interval Val&#40; aSetVars&#91; 03 &#93; &#41;;\n      Action &#40; NuevasCargas&#40; nComando, aConfiguracion, aProductos, aSurtidores, aSetVars &#41; &#41; OF oDlg\n\n   ACTIVATE timer oTimer\n\n   RETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------[/code:w7fntzhu]\n\nGracias.','',0,'gIA=','w7fntzhu',1,0,'',52,0,0),(14276,3261,4,456,0,'217.127.39.57',1150127647,1,0,1,1,1,1,'','','I agree with Bill, i thing is the easy way, and is authomatic. About standard mode is only for  2 pdas, this is not true. I have more than 5 pdas. If I\'m not wrong I belive one PDA can only have 2 desktop computers  to sincronize, but no limitation on the other way.','',0,'gIA=','36v9e7wj',1,0,'',456,0,0),(14277,3270,7,150,0,'62.15.123.106',1150128110,1,0,1,1,1,1,'',':end()','Hojeando el foro he visto que hay que hacer :end() de los objetos al salir\nde una funcion, incluso de los objetos Locales. \n\n¿Es así?\n\nEn el ejemplo de Carles hay cuatro objetos, oBmp, oDlg, oSay, oFont\n\n¿por que solo con 2 de ellos se hace :end()?\n\n    oBmp:End()\n    oFont:End()\n\n¿Hay alguna forma de ver que objetos hay en memoria?\n\n\n*----------------------\nSTATIC FUNCTION About()\n*----------------------\n    LOCAL oBmp, oDlg, oSay, oFont\n    LOCAL cText := \'Ejemplo de uso de FWPPC\' + CRLF + CRLF + ;\n                   \'(c) Carles Aubia\'\n\n    DEFINE FONT oFont NAME \'Arial\' SIZE 0, -10\n\n    DEFINE DIALOG oDlg RESOURCE \"About\"\n\n        REDEFINE BITMAP oBmp NAME \'FWPPC\' ID 200 OF oDlg\n\n        REDEFINE SAY    oSay PROMPT cText ID 210 OF oDlg ;\n                 FONT oFont COLOR CLR_BLACK, CLR_WHITE\n\n        oDlg:blClicked := {|| oDlg:End() }\n        oBmp:blClicked := {|| oDlg:End() }\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    oBmp:End()\n    oFont:End()\n\nRETU NIL','',0,'gIA=','2zksbm7u',1,0,'',150,0,0),(14278,3268,3,213,0,'72.177.228.25',1150128893,1,0,1,1,1,0,'','','Antonio,\n\nToolbars is a collection object.  I don\'t know how OleGetProperty is suppose to work but I can do the following with the same results.\n\n// This line turns on the Legend and works properly\noActiveX&#058;SetProp(\"PaneState\", 1)  // Turn on legend for route planer\n\n// This line returns nil\nMsgInfo( OleGetProperty( oActiveX&#058;hActiveX, \"PaneState\" ) ) \n\n// This line returns 1, which is correct.\nMsgInfo( oActiveX&#058;GetProp(\"PaneState\") )\n\nSo, I don\'t know why using GetProp works and OleGetProperty does not.\n\nAdditionally, when I set the PaneState property the route planner legend is visible but does not respond to any mouse clicks.  According to the Microsoft docs the legend and toolbars should respond to mouse clicks, i.e. there are no events to process through the event handler for the legend and toolbars.\n\nJust like the Excel ActiveX displays a toolbar with default functionality, the MapPoint toolbars should behave the same way.\n\nI purchased the FWH Apr 2006 upgrade so I could get the ActiveX functionality for this project.  If I need to purchase a more recent upgrade or pay extra to get this working just let me know.  This is a major project that a I must get working and I\'m losing customers by not having this functionality.\n\nRegards,\nRandal Ferguson[/list][/quote]','',0,'','ze0acifn',1,0,'',213,0,0),(14279,3193,3,303,0,'72.199.41.171',1150129084,1,0,1,1,1,0,'','','Alex,\n\nI searched all my offline copies of the old forums for both \"terminal\" and \"Alex\" and I couldn\'t find anything. However, my copies are not complete. Sorry I couldn\'t be of any help.\n\nJames','',0,'','u50yxxym',1,0,'',303,0,0),(14280,3269,6,46,0,'217.168.114.55',1150129550,1,0,1,1,1,0,'','','porque oBrw es Nil  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\n\nSaludos  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'','39satq6z',1,0,'',46,0,0),(14281,3271,7,533,0,'80.32.177.143',1150131621,1,0,1,1,1,0,'','Urgente!!!!','Hola foro:\n\n  Tengo un problema, que tengo que resolver urgentemente ya que me hara tomar una decisión según sea la respuesta que podáis darme. Resulta que he realizado una pequeña aplicación y necesito saber si puedo abrir las bases de datos del servidor de manera compartida. La decisión a tomar es si necesito generar unas bases de datos temporales para funcionar con la aplicación o si de lo contrario ya hay un nuevo build que me permita abrirlas compartidas (shared). \n\n   Ante todo muchas gracias por la respuesta. \n\nFivece Abril/mayo','',0,'','2iewgj64',1,0,'',533,0,0),(14282,3269,6,52,0,'200.127.195.89',1150141033,1,0,1,1,1,1,'','','Gracias,\n\nPero me gustaria ver la solucion, ya que OBRW aparentemente lo estoy creando, es mas cuando ejecuto el  programa el obrw se arma:\n\n[code:lymz009h]oDlg&#58;= oDlgEnlace&#40; oBrw, oTextos, oBtns, oBmp, oFuentes&#41;[/code:lymz009h]','',0,'AIA=','lymz009h',1,0,'',52,0,0),(14283,3193,3,343,0,'204.57.111.194',1150142484,1,0,1,1,1,0,'','','In xHarbour\n\n   IF OS_ISWTSCLIENT()\n      ? \"Running as a Windows Terminal Server Client\"\n   ELSE\n      ? \"NO Windows Terminal Server Client detected\"\n   ENDIF','',0,'AIA=','d85iqidj',1,0,'',343,0,0),(14284,3269,6,46,0,'195.8.27.117',1150145075,1,0,1,1,1,0,'','','Tendrias que publicar mas codigo..\n\nSaludos','',0,'AIA=','3w3g4rdt',1,0,'',46,0,0),(14286,3268,3,2,0,'87.218.146.212',1150147327,1,0,1,1,1,1,'','','Randal,\n\nThe current ActiveX support is the same, so there is no need for the upgrade.\n\nIt looks as the MapPoint ActiveX implementation is not the standard one, or at least it is not done in the way that we use it from FWH.\n\nCan you get the right behavior and events with xHB ?','',0,'AIA=','2aw8vfam',1,0,'',2,0,0),(14287,3267,6,2,0,'87.218.146.212',1150147620,1,0,1,1,1,1,'','','Toni,\n\nHabría que probarlo con Harbour/xharbour sin FWH en modo texto para ver si se comporta igual y es un bug de Harbour/xHarbour, ya que FWH usa la Clase Get de Harbour/xHarbour. \n\nFWH no hace nada con los PICTUREs. Se limita a pasar las pulsaciones al GET y a recuperar el valor del buffer del GET.','',0,'AIA=','32cdf50b',1,0,'',2,0,0),(14288,3271,7,2,0,'87.218.146.212',1150147793,1,0,1,1,1,1,'','','Mike,\n\nEl uso de SHARED no depende de FWPPC sino de la versión de Windows Mobile que uses. Windows Mobile 2003 no soporta bloqueo de ficheros. Windows Mobile 2005, sí.\n\nSi tu aplicación va a afuncionar en ambas versiones, entonces sería preferible usar otro sistema alternativo en vez de SHARED, como por ejemplo crear un fichero temporal en el servidor que compruebes su existencia para saber si se está editando de forma exclusiva en un determinado momento.','',0,'AIA=','1gtztgha',1,0,'',2,0,0),(14289,3193,3,6,0,'87.3.212.60',1150148017,1,0,1,1,1,1,'','','Sorry but it seems that the only occurrence of OS_ISWTSCLIENT() in che current xHarbour CVS is\n\n[code:1frmw5qz]FUNCTION OS_ISWTSCLIENT&#40;&#41;\n  RETURN&#40; &#46;F&#46; &#41;[/code:1frmw5qz]\n\nEMG','',0,'AIA=','1frmw5qz',1,0,'',6,0,0),(14290,3272,3,148,0,'82.201.237.201',1150148277,1,0,1,1,1,0,'','Network requirements','My client is a dentist who wants to connect his PC with the secretary to share his appointments calender with her .\nCan you tel how and what equiments should I buy to him (router...)? \nwhat windows version should I use ?\nHow I will connect the EXE file between his PC and his secretary PC?','',0,'AIA=','cku5o865',1,0,'',148,0,0),(14291,3268,3,213,0,'72.177.228.25',1150151316,1,0,1,1,1,0,'','','Antonio,\n\nWith xHarbour I can set the properties to show the toolbars but they do not respond to any mouse clicks.  \n\nI\'ve looked at samples for .net, vb, c#, c/c++ and I don\'t see anything extra you should have to do.  You can see what events are available for Mappoint.  There are no mappoint events to process in response to clicking on the toolbars.\n\nI like the xHarbour implementation for accessing methods, properties, and objects.  I don\'t have any problem accessing any of these using xHarbour.\n\nI don\'t see anyway to access any of the many objects &amp; collections available in MapPoint using FWH/ActiveX.  \n\nAs to my original question, is there anyway to set the properties to show the toolbars?\n\nThanks,\nRandal Ferguson','',0,'AIA=','2wcuyc5d',1,0,'',213,0,0),(14292,3193,3,343,0,'204.57.111.194',1150154012,1,0,1,1,1,0,'','','Enrico,\n\nWere you responding to me?\nI am using this funcion in xHarbour Builder with and without Fivewin.\nOur configuration include Citrix and Lan users.\n\nThanks,\nGale','',0,'AIA=','ux55hck1',1,0,'',343,0,0),(14293,3273,3,148,0,'82.201.237.201',1150156177,1,0,1,1,1,0,'','sample compilation error','the sample dbf03.prg has error of missing RDD . Can any body tell me what libraries it needs to be created from the buildhd.bat\n\nError: Unresolved external \'_HB_FUN__ADS\' referenced from E:\\PROGRAMS\\CLIPPER\\CL\nPFWH\\SAMPLES\\DBF03.OBJ\n* There are errors\nE:\\programs\\clipper\\clpfwh\\SAMPLES&gt;','',0,'AIA=','4k5urhvi',1,0,'',148,0,0),(14294,3274,3,148,0,'82.201.237.201',1150156642,1,0,1,1,1,0,'','The best control','Doctor has a history for every patient . He has to enter one fixed entry for each kind of operation . one visit could have for one patient :\none entry for each operation and operations may be : check-up or surgey or others....\n\nunder the check-up operation there are fixed entries he will chose one of them.\n\nMay I do a dbf for each operation and display a list box and each field is entered via a dbcombo box for every operation OR there is a better control ?\n\nCould you please provide sample names .','',0,'AIA=','2yu9uce9',1,0,'',148,0,0),(14295,3275,3,148,0,'82.201.237.201',1150157374,1,0,1,1,1,0,'','preview class modifier','can any body provide me of modified preview.dll that can print the whole fields of DBF avoiding the message : report is too big to fit in page .','',0,'AIA=','2cuqhgv7',1,0,'',148,0,0),(14296,3276,6,496,0,'200.107.36.176',1150166643,1,0,1,1,1,0,'','Tgant, ayuda','Hola amigos del foro\n\nTengo una aplicación que la he pasado a 32 bits, la cual usa clase Tgant de Arturo Tamayo. El problema que tengo es que este último está en 16 bits, y aunque funciona bien con mi aplicación principal; pero me gustaría que el tgant también esté en 32 bits.\n\nLes explico que la aplicación principal de 32 bits llama al qgantt.exe en 16 bits.\n\nLe hecho algunos cambios al QGANTT.PRG, para poder  llamarlo desde mi aplicación pasándole parámetros, así como también le he añadido funciones para poder generar un cronograma valorado y le he dado la capacidad de imprimir el cronograma. Todos estos cambios quisiera tenerlos andando en 32 bits, pero no puedo hacerlo porque no tengo los objs en 32 bits que forman esta clase.\n\nHe tratado de comunicarme con Arturo enviándole e-mails, pero no he recibido ninguna respuesta, por eso recurro al foro, a ver si recibo alguna respuesta de él o de alguien que pueda ayudarme.\n\nDesde ya les quedo eternamente agradecido.\n\nMarcelo Jingo','',0,'AIA=','3qbwm4zo',1,0,'',496,0,0),(14297,3276,6,2,0,'87.218.146.212',1150179477,1,0,1,1,1,1,'','','Marcelo,\n\nSi pones el fichero en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y nos das el link de descarga, podremos revisarlo y ayudarte. Gracias.','',0,'AIA=','ic0nx6rs',1,0,'',2,0,0),(14298,3264,6,449,0,'212.64.224.249',1150179775,1,0,1,1,1,1,'','','Hola,\n\nConoceis alguna otra manera de crear un Grupo e iTems en el menu, q no sea via DDE en XP ?\n\n\nGracias.','',0,'AIA=','1lxrr7te',1,0,'',449,0,0),(14299,3268,3,2,0,'87.218.146.212',1150181083,1,0,1,1,1,1,'','','[quote=&quot;Randal Ferguson&quot;:2bknv2lk]\noActiveX&#058;SetProp(\"PaneState\", 1)  // Turn on legend for route planer\n\n// This line returns nil\nMsgInfo( OleGetProperty( oActiveX&#058;hActiveX, \"PaneState\" ) ) \n\n// This line returns 1, which is correct.\nMsgInfo( oActiveX&#058;GetProp(\"PaneState\") )\n\nSo, I don\'t know why using GetProp works and OleGetProperty does not.\n[/quote:2bknv2lk]\nMy mistake. The right syntax is:\nActXGetProperty( ActXPdisp( &lt;oActiveX&gt;:hActiveX ), cPropName )','',0,'gA==','2bknv2lk',1,0,'',2,0,0),(14300,3268,3,2,0,'87.218.146.212',1150184476,1,0,1,1,1,1,'','','Randal,\n\nA collection is a property that requires an extra parameter. This code is working right:\n[code:26df9xz9]\n   &#46;&#46;&#46;\n   local hToolBar, hStandard\n   &#46;&#46;&#46;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;MapPoint&#46;Control&#46;9&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   oActiveX&#58;Do&#40; &quot;Newmap&quot;, 1 &#41; \n\n   oActiveX&#58;SetProp&#40; &quot;PaneState&quot;, 1 &#41;\n   \n   hToolBar = oActiveX&#58;GetProp&#40; &quot;Toolbars&quot; &#41;\n   hStandard = OleGetProperty&#40; hToolBar, &quot;Item&quot;, &quot;Standard&quot; &#41;\n   OleSetProperty&#40; hStandard, &quot;Visible&quot;, &#46;T&#46; &#41;\n[/code:26df9xz9]\nNow we just need to properly manage the clicks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[url=http&#58;//imageshack&#46;us:26df9xz9][img:26df9xz9]http&#58;//img82&#46;imageshack&#46;us/img82/6417/map6gs&#46;gif[/img:26df9xz9][/url:26df9xz9]','',0,'GIA=','26df9xz9',1,0,'',2,0,0),(14301,3274,3,2,0,'87.218.146.212',1150184697,1,0,1,1,1,1,'','','Ehab,\n\nUsually you may need to use \"one to many\" relational DBFs, unless you want to store everything into a memo field.\n\nYou may review samples\\gallery\\onemany.prg','',0,'GIA=','690c2rg4',1,0,'',2,0,0),(14302,3273,3,2,0,'87.218.146.212',1150185498,1,0,1,1,1,1,'','','Ehab,\n\nPlease make this change into samples\\Dbf03.prg:\n[code:1zqdexeg]\n#ifndef __HARBOUR__\n   REQUEST _ADS\n#else\n   REQUEST ADS\n#endif\n[/code:1zqdexeg]','',0,'AIA=','1zqdexeg',1,0,'',2,0,0),(14303,3272,3,2,0,'87.218.146.212',1150185882,1,0,1,1,1,1,'','','Ehab,\n\nYes, you need a router. Windows XP lan is ok for the job. \n\nYou may install the EXE in the doctor computer and access it from both computers.\n\nYou may review \"network applications development\" in FiveWin documentation.','',0,'AIA=','6wcvboq5',1,0,'',2,0,0),(14304,3275,3,6,0,'87.16.238.233',1150189225,1,0,1,1,1,1,'','Re: preview class modifier','There is nothing you can do to force a report to fit in the page other than reduce the amount of data of reduce the font.\n\nI already answered to this question in the past, if I remember correctly.\n\nEMG','',0,'AIA=','ijovju9a',1,0,'',6,0,0),(14305,3193,3,6,0,'87.16.238.233',1150189391,1,0,1,1,1,1,'','','Sorry, my fault! I missed the real definition in the same source code.\n\nI apologize.\n\nEMG','',0,'AIA=','33crmjlx',1,0,'',6,0,0),(14306,3270,7,449,0,'212.64.224.249',1150197722,1,0,1,1,1,1,'','','Hola Jose,\n\nRealmente solo se tendria de aplicar el metodo End() al objeto oFont. oBmp ya lo destruye oDlg. Seguramente se quedo asi de las muchas pruebas q realize.','',0,'AIA=','3cmtf2ft',1,0,'',449,0,0),(14307,3277,4,13,0,'213.77.227.64',1150201931,1,0,1,1,1,0,'','TWbrowse and ordscope function','Antonio,\n\nI create TWbrowse control based on database with ordscope function (sample below). TWbrose have about 7 row, filtered database - 3. When user move vertical scrollbar at the end of scale current record is diplayed standalone at the end of control. How to filter database properly with ordscope function ?\n\nRegards\nPawel\n\n[code:3oq8seg7]\nFunction Brw &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oBrw &#58;= Nil\n   Local aStr &#58;= &#123;&#125;\n\n   InitEnv &#40;&#41;\n\n   FErase &#40;\'Brw\' + IndexExt &#40;&#41;&#41;\n   AAdd &#40;aStr, &#123;\'F1\', \'C\', 10, 0&#125;&#41;\n   AAdd &#40;aStr, &#123;\'F2\', \'N\',  5, 0&#125;&#41;\n   DbCreate &#40;\'Brw\', aStr&#41;\n   Use Brw New\n   Index On Brw-&gt;F1 Tag Brw To Brw\n\n   For i &#58;= 1 To 100\n       Brw-&gt;&#40;DbAppend &#40;&#41;&#41;\n       If i % 31 == 0\n          Brw-&gt;F1 &#58;= \'A\' + PadL &#40;i, 3, \'0\'&#41;\n       Else\n          Brw-&gt;F1 &#58;= \'B\' + PadL &#40;i, 3, \'0\'&#41;\n       Endif  \n       Brw-&gt;F2 &#58;= i\n   Next   \n   Brw-&gt;&#40;DbGoTop &#40;&#41;&#41;\n   Brw-&gt;&#40;OrdScope &#40;0, \'A\'&#41;&#41;\n   Brw-&gt;&#40;OrdScope &#40;1, \'A\'&#41;&#41;\n   Brw-&gt;&#40;DbSeek &#40;\'A\'&#41;&#41;\n\n   Define Window oWnd Title \'Test\'\n   @  39,  0 ListBox oBrw ;\n   Fields ;\n   Brw-&gt;F1, ;\n   TransForm &#40;Brw-&gt;F2, \'999\'&#41; ;\n   Alias \'Brw\' ;\n   FieldSizes 100, 100 ;\n   Header \'F1\', \'F2\' ;\n   Size 240, 148 ;\n   Pixel\n   Activate Window oWnd\n\n   Brw-&gt;&#40;DbCloseArea &#40;&#41;&#41; \n   FErase &#40;\'Brw\' + IndexExt &#40;&#41;&#41;\n\nReturn &#46;T&#46;\n\nFunction InitEnv &#40;&#41;\n\n   Request DbfCdx\n   Request DbfFpt\n   RddSetDefault &#40;\'DbfCdx\'&#41;\n   Request Hb_Lang_PL852\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PL852\n   Request Hb_CodePage_PLWIN\n\n   Set Century On\n   Set Epoch To 1995\n   Set Date German\n   Set Deleted On\n   Hb_LangSelect &#40;\'PL\'&#41;\n   Hb_SetCodePage &#40;\'PLWIN\'&#41;\n\nReturn &#46;T&#46;\n[/code:3oq8seg7]\n\n[url=http&#58;//img164&#46;imageshack&#46;us/my&#46;php?image=brw7md&#46;gif:3oq8seg7][img:3oq8seg7]http&#58;//img164&#46;imageshack&#46;us/img164/7356/brw7md&#46;th&#46;gif[/img:3oq8seg7][/url:3oq8seg7]','',0,'GIA=','3oq8seg7',1,0,'',13,0,0),(14308,3278,4,13,0,'213.77.227.64',1150202171,1,0,1,1,1,0,'','Get and polish nation character','Antonio,\n\nI create get field with clause picture \'@!\' (converts to upper case). When I try to use localized keyboards with polish characters (Alt+key) key char in get is displayed other than type. In get field without upper case convert everything is ok.\n\nRegards\nPawel','',0,'GIA=','possfw85',1,0,'',13,0,0),(14309,3268,3,213,0,'72.177.228.25',1150205933,1,0,1,1,1,0,'','','Antonio,\n\nThanks, this works great to turn on the different toolbars.  \n\nClicking on the legend or any of the toolbar buttons does not trigger any event.   The question now is why don\'t the toolbar buttons or legend respond to any mouse clicks?\n\nThanks,\nRandal Ferguson','',0,'GIA=','1ltghq59',1,0,'',213,0,0),(14310,3269,6,52,0,'200.127.195.89',1150207917,1,0,1,1,1,1,'','Esto seria asi como AUTO-RESPONSED','Amigos,\n\nPrimeramente quiero agradecerle a mi amigo de Williams (wmormar) porque me ayudo a solucionar el inconveniente posteado.\n\nVoy a hacerlo sencillo y me gustaría recibir alguna explicacion [i:1qfyvw00]\"Técnica\"[/i:1qfyvw00] al respecto porque realmente perdí mucho tiempo buscando solución.\n\nSi vamos a utilizar una declaracion de este tipo:\n\n[code:1qfyvw00]function main&#40;&#41;\n    local oBrw\n    &#46;&#46;&#46;[/code:1qfyvw00]\n\nAl momento de enviar oBrw como dato en una funcion se la debe pasar como [i:1qfyvw00][b:1qfyvw00]referencia.[/b:1qfyvw00][/i:1qfyvw00]\n\n[code:1qfyvw00]oDlg&#58;= CrearBrowser&#40; @oBrw &#41;[/code:1qfyvw00]\n\nEn cambio, cuando se utiliza un array de esa variable:\n\n[code:1qfyvw00]function main&#40;&#41;\n    local oBrw&#58;= array&#40; 01 &#41;\n    &#46;&#46;&#46;[/code:1qfyvw00]\n\nAl momento de enviar oBrw como dato en una funcion la cual crea el browser, tenemos que enviarlo asi:\n\n[code:1qfyvw00]oDlg&#58;= CrearBrowser&#40; oBrw &#41;[/code:1qfyvw00]\n\nAlguien podría explicarme porque? \nGracias.','',0,'YIA=','1qfyvw00',1,0,'',52,0,0),(14311,3270,7,150,0,'62.15.123.106',1150209349,1,0,1,1,1,1,'','','Ahora ya lo entiendo.\n\nNunca había usado fivewin pero con vuestra ayuda es muy fácil de utilizar.','',0,'YIA=','3gm25poi',1,0,'',150,0,0),(14313,3269,6,24,0,'80.37.55.44',1150209509,1,0,1,1,1,1,'','Re: Esto seria asi como AUTO-RESPONSED','Es muy simple.\n\nPor que , un array, SIEMPRE es pasado por referencia <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nAh!!! ¿ como se te quedo el cuerpo? ....jejeje','',0,'YIA=','11f2d1m1',1,0,'',24,0,0),(14314,3191,6,24,0,'80.37.55.44',1150210050,1,0,1,1,1,1,'','Re: SOLUCIONADO','[quote=&quot;sjingo&quot;:r4uiypio]Ya lo he solucionado usando macrosustitución:\n\ntexto:=\"{\"+str(diafin)\n		\nfor j:=1 to numregs\n    texto+=\",0.00\"\nnext\n\ntexto+=\"}\"\n\naadd(asem,[b:r4uiypio]&amp;texto[/b:r4uiypio])\n\n\nUn saludo\n\nMarcelo Jingo[/quote:r4uiypio]\n\nMarcelo, y no te es mas facil CREAR un array dinamico temporal y despues simplemente añadirlo al principal ?\n\nEs decir, aTmp := {}\n\nAADD( aTmp, mis_valores1 )\nAADD( aTmp, mis_valores2 )\nAADD( aTmp, mis_valores3 )\n\nY despues:\nAADD( asem, aTmp )\n\nPrueba, pero yo creo que seria mas rapido que la macro.\nAdemas, podrias crear el array temporal ya con las dimensiones apropiadas, aTMp := ARRAY( X )\nY en vez de usar AADD( aTmp, valor ), usar una asignacion:\naTmp[x] := valor, asi todavia sera mas rapido.\n\nNo se si sera esto lo que buscas, pero asi lo entidi yo <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'wA==','r4uiypio',1,0,'',24,0,0),(14315,3279,6,184,0,'201.222.6.66',1150211374,1,0,1,1,1,0,'','Principiante con problemas.','Estoy tratando de compilar los ejemplos de fivewin con xharbour y me da este error compilado el ejemplo TestSql1\n\nApenas estoy tratando de usar el xharbour, estoy un poco perdido, he hecho con clipper+fivewin varios desarrollos.\n\nEste es el mensaje que me muestra\n\n\n[size=75:3pgifb1y]&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for xHarbour 2.5 - June 2004            xHarbour development power &#9474;&#9604;\n&#9474; (c) FiveTech, 1993-2004      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;&#9608;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9608;\n  &#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;\nCompiling...\nxHarbour Compiler build 0.92.0 (SimpLex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testsql1.prg\' and generating preprocessed output to \'testsql1.ppo\'...\n\nLines 103, Functions/Procedures 2\nGenerating C source output to \'testsql1.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntestsql1.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_INIODBC32\' referenced from C:\\XBASE\\FWH\\LIB\\\nFIVEHX.LIB|TRDDODBC\nError: Unresolved external \'_HB_FUN_ENDODBC32\' referenced from C:\\XBASE\\FWH\\LIB\\\nFIVEHX.LIB|TRDDODBC\nError: Unresolved external \'_HB_FUN__TRDD\' referenced from C:\\XBASE\\FWH\\LIB\\FIVE\nHX.LIB|TRDDODBC\nError: Unresolved external \'_HB_FUN_RDDSETFIELDEXTENT\' referenced from C:\\XBASE\\\nFWH\\LIB\\FIVEHX.LIB|TRDD\nError: Unresolved external \'_HB_FUN_RDDADDFIELD\' referenced from C:\\XBASE\\FWH\\LI\nB\\FIVEHX.LIB|TRDD\nNo se encuentra C:\\XBASE\\FWH\\SAMPLES\\testsql1.il?\n* Application successfully built\n\"testsql1\" no se reconoce como un comando interno o externo,\nprograma o archivo por lotes ejecutable.[/size:3pgifb1y]\n\n\nMuchas gracias de antemano.','',0,'BA==','3pgifb1y',1,0,'',184,0,0),(14316,3268,3,2,0,'87.218.146.212',1150212552,1,0,1,1,1,1,'','','Randal,\n\n&gt;\nClicking on the legend or any of the toolbar buttons does not trigger any event. The question now is why don\'t the toolbar buttons or legend respond to any mouse clicks?\n&gt;\n\nVery good question <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  We are asking the same, why ? We have turned VIRTUAL LButtonDown(), LButtonUp() methods, but the activex does not process the clicks. We keep searching...','',0,'BA==','1g97kuhx',1,0,'',2,0,0),(14317,3270,7,2,0,'87.218.146.212',1150212734,1,0,1,1,1,1,'','','Jose,\n\nEl método End() lo usamos para destruir determinados valores (handles) de Windows que precisan ser liberados, ó se consumen recursos del sistema, tales como handles de ventanas, recursos GDI (fonts, bitmaps, pens,etc), timers, etc.','',0,'BA==','381i7750',1,0,'',2,0,0),(14318,3280,6,52,0,'200.127.195.89',1150221926,1,0,1,1,1,1,'','Foro sin internet','Amigos,\n\nHay alguna forma de que podamos bajar el foro de este sitio de alguna manera?\n\nPorque es posible que no continue con internet y me gustaría poder tener como apoyo de lectura las preguntas/respuestas.\n\nEs posible?\nGracias.','',0,'BA==','2d0swicb',1,0,'',52,0,0),(14319,3281,3,58,0,'84.149.200.137',1150229155,1,0,1,1,1,0,'','mapi','Hi all,\n\nWhen using tMail class as in FWH  2.7 sample james.prg with xHB Builder i get the following errors:\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_MAPILOGOFF\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_MAPISENDMAIL\'.\nxLINK: fatal error: 2 unresolved external(s).\n\nDo i miss some libraries?\n\nBest reagards,\nDetlef','',0,'BA==','j7sqv5p9',1,0,'',58,0,0),(14320,3281,3,58,0,'84.149.247.248',1150232297,1,0,1,1,1,0,'','','Sorry for bothering you all.\n\nI forgot to set the xHbBuilder to the fwh 2.7 folders and i was using my old files of fwh 2.5 <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nBut anyhow with the actual 2.7 files i got an error \nxLINK: error: Unresolved external symbol \'_hb_dynsymSymbol\'.\n\nSo i thought it might be good to build the fivehmx.lib new.\n\nAfter this i now get\nxLINK: error: Unresolved external symbol \'_hb_dynsymSymbol\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_TREBAR\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_TTOOLBAR\'.\nxLINK: fatal error: 3 unresolved external(s).\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nCould anybody give me a hint?\nThanks and regards,\nDetlef','',0,'BA==','tjveskcv',1,0,'',58,0,0),(14321,3257,3,141,0,'200.38.226.36',1150232417,1,0,1,1,1,1,'','','Gracias Antonio,\n\nFuncionó de maravillas.  Solo cambié COLOR_WINDOW por 15, y me funcionó bien.\n\nGracias de nuevo...','',0,'BA==','3cqcjsl3',1,0,'',141,0,0),(14322,3277,4,2,0,'87.218.146.212',1150233028,1,0,1,1,1,1,'','','Pawel,\n\nYou need to properly set &lt;oBrowse&gt;:bLogicLen DATA so the browse knows how many records is managing:\n\noBrw:bLogicLen = { || Brw-&gt;( OrdKeyCount() ) }','',0,'BA==','12t3jo71',1,0,'',2,0,0),(14323,3278,4,2,0,'87.218.146.212',1150233142,1,0,1,1,1,1,'','','Pawel,\n\nCould you please check if it works ok with FWH and Harbour/xHarbour ? Thanks,','',0,'BA==','1ydcj41n',1,0,'',2,0,0),(14324,3281,3,2,0,'87.218.146.212',1150233371,1,0,1,1,1,1,'','','Detlef,\n\nYou may implement this function in your code:\n[code:b0i50tph]\n#pragma BEGINDUMP \n\n#include &quot;hbapi&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \nreturn pDynSym-&gt;pSymbol; \n&#125; \n[/code:b0i50tph]\nFor TReBar and TToolBar, you need to compile and include in FWH lib source\\classes\\rebar.prg and source\\classes\\toolbar.prg','',0,'AIA=','b0i50tph',1,0,'',2,0,0),(14325,3280,6,2,0,'87.218.146.212',1150233527,1,0,1,1,1,1,'','','Gustavo,\n\nNosotros podemos hacer un backup que realiza phpBB que basicamente es ascii. Con ese backup tendrias todo en local con lo que puedes verlo abriendo ese fichero directamente y como añadido si instalases php, phpbb y mysql en tu ordenador, podrías restaurarlo y tendrias todo el foro tal cual.','',0,'AIA=','3c4ru18k',1,0,'',2,0,0),(14326,3281,3,58,0,'84.149.251.150',1150234033,1,0,1,1,1,0,'','','Antonio,\n\nthanks for your quick reply.\nIn the meanwhile i reinstalled the original fwh 2.7.\nAnd i placed the hb_dynsymSymbol code into my prg file.\n\nNow xLink doesn\'t complain but my app immediately crashes at start without showing a msginfo() which i placed at top of my code.\n\nAny help is very much appreciated.\n\nRegards,\nDetlef','',0,'AIA=','16bm4j9x',1,0,'',58,0,0),(14327,3280,6,52,0,'200.127.195.89',1150235244,1,0,1,1,1,1,'','','Perfecto,\n\nGracias, cuando puedan te lo agradecería.','',0,'AIA=','fxcvyqr9',1,0,'',52,0,0),(14328,3212,6,152,0,'200.113.116.71',1150236168,1,0,1,1,1,0,'','','Antonio :\n Con la clase que publico Jose, me funciona perfecto el Wbrowse de Hernan.\n\nEl problema que tengo ahora es que los Folders desaparecieron.\n\nHay que agregar alguna LIB adicional ??\n\nGracias \nGonzalo','',0,'AIA=','2ozllvfi',1,0,'',152,0,0),(14329,3276,6,496,0,'157.100.180.226',1150237972,1,0,1,1,1,0,'','','La clase Tgant, que fue facilitada por Arturo Tamayo viene con los siguientes archivos:\n\ngantt.obj\ngetbitma.obj \nwbrowse.obj \nwbrwline.obj \nsetrop2.obj\n\nCada uno de ellos modificado por Arturo para que funcione adecuadamente.\n\nAdicionalmente viene el archivo QGANTT.PRG, que es el que se puede modificar y ajustarlo a nuestras necesidades. Yo he realizado las modificaciones a este archivo y se enlaza con los objs anteriores y se genera la aplicación en 16 bits. \n\nEntonces para generar la aplicación en 32 bits debería tener los objs también generados en 32 bits. \n\nMi pregunta es cuál de esos archivos lo subo?\n\nFinalmente alguien sabe cómo contactarse con Arturo Tamayo?\n\nUn saludo a todos y Gracias\n\nMarcelo Jingo','',0,'AIA=','20zffyg0',1,0,'',496,0,0),(14330,3212,6,152,0,'200.113.116.71',1150239036,1,0,1,1,1,0,'','','Ya descubri que hay que cambiar en el .RC \n\"TFolder\" por FOLDER32\n\nGracias de todas maneras\n\nGonzalo','',0,'AIA=','93ui3paa',1,0,'',152,0,0),(14331,3282,6,439,0,'190.0.130.122',1150242857,1,0,1,1,1,1,'','VMenu de CanalFive','Hola a todos, estoy en procura de una clase que genera menues verticales parecidos a la barra de tareas de windows a la izquierda de los dialogs. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nCreo que se llama VMenu, o VTaskBar, no estoy seguro, lo he visto en una aplicación del maestro RF y no se donde obtenerla, puesto que la página de CanalFive no anda y encontré una que parece ser la nueva pero que no incluye este objeto. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSi alguien pudiera orientarme de como obtenerla, o si hay algo parecido en FWH 2.7 Marzo 2006 que quizá no haya visto, estaré agradecido. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','1mzab713',1,0,'',439,0,0),(14332,3282,6,492,0,'201.154.132.163',1150243520,1,0,1,1,1,1,'','','Hola Jose\n\nEl que te podria proporcionar toda la informacion que desees, es Paco Garcia.\n\n\nSaludos','',0,'AIA=','2hqo4xbq',1,0,'',492,0,0),(14333,3251,2,235,0,'200.56.66.163',1150248942,1,0,1,1,1,0,'','','gracias antonio','',0,'AIA=','2qamo9zc',1,0,'',235,0,0),(14334,3191,6,496,0,'200.107.36.176',1150249982,1,0,1,1,1,0,'','','gracias por tu interés \"TheFull\" \n\nProbé tu propuesta, que a primera vista debería haber funcionado pero no obtuve lo que quería.\n\nSegún entiendo entonces es lo mismo hacer:\n\natmp[1]:=val1\natmp[2]:=val2\natmp[3]:=val3\natmp[4]:=val4\natmp[5]:=val5\natmp[6]:=val6\n\naadd(asem,atmp)\n\n\n\nen comparación con este que es el que uso:\n\naadd(asem,{val1,val2,val3,val4,val5,val6})\n\nde esta forma estoy seguro de que estoy añadiendo una fila con todos esos valores a asem\n\nEs lo mismo usar cualquiera de las 2 formas?\n\nUn saludo\n\nMarcelo Jingo','',0,'','3l5fhb9r',1,0,'',496,0,0),(14335,3283,2,235,0,'200.56.66.163',1150250066,1,0,1,1,1,0,'','como se puede mandar un reporte a word','ya que tengo un archivo en word del tipo mail marge, pero las lineas que deseo enviar a word varian, este docto (word) tiene informacion previamente escrita.\n\nde antemano muchas gracias','',0,'','1w7n59ki',1,0,'',235,0,0),(14336,3193,3,32,0,'196.36.8.34',1150252682,1,0,1,1,1,0,'','Terminal server','Hi,\n\nThanks for that.\n\nI\'m also trying out WTSQuerySessionInformation for the client\'s ip address, but dont\' seem to come right (c is not my strong point).\n\nBelow a snippet of my attempt.\n\n#pragma begindump\n#include &lt;WinTen.h&gt;\n#include &lt;Windows.h&gt;\n#include &lt;ClipApi.h&gt;\n\n#ifdef __FLAT__\n   #include &lt;ShellApi.h&gt;\n#endif\n\n#ifdef __HARBOUR__\n   #include &lt;hbapiitm.h&gt;\n   #include &lt;hbdate.h&gt;\n   #include &lt;hbset.h&gt;\n#endif\n#include \"wtsapi32.h\"\n\nLPWSTR AnsiToWide( char * );\n\nHB_FUNC( GETIPADDRESS )\n{\n BOOL bReturn;\n WTS_CLIENT_ADDRESS *ClientAddress;\n DWORD BytesReturned;\n\n bReturn = WTSQuerySessionInformation(WTS_CURRENT_SERVER_HANDLE, WTS_CURRENT_SESSION, 16384, (char * *) ClientAddress, &amp;BytesReturned);\n\n}\n#pragma enddump','',0,'','linct6cj',1,0,'',32,0,0),(14337,3284,6,109,0,'200.77.42.69',1150263032,1,0,1,1,1,0,'','Ayuda con XBrowse','Buenas Noches\n\n   En un dialogo tengo un TREE, y un Browse (Txbrowse), dependiendo de la rama del tree, el browse sera llenado con su respectivo ARRAY, como puedo hacer esto?.\n   Necesito refrescar el BROWSE, cada que el usuario elija una rama diferente.\n\n   Gracias.\n\n  Utilizo XHARBOUR','',0,'','1vyb9ewy',1,0,'',109,0,0),(14338,3251,2,2,0,'87.218.146.185',1150268486,1,0,1,1,1,1,'','','Leandro,\n[code:38lbolm9]\nfunction Main&#40;&#41;\n\n   local nValor1 &#58;= nRandom&#40; 1000000 &#41;\n   local nValor2 &#58;= nRandom&#40; 1000000 &#41;\n   local cSerie  &#58;= DecToHex&#40; nValor1 &#41; + &quot;-&quot; + DecToHex&#40; nValor2 &#41;\n   \n   MsgInfo&#40; cSerie &#41;\n\nreturn nil\n[/code:38lbolm9]','',0,'AIA=','38lbolm9',1,0,'',2,0,0),(14339,3281,3,2,0,'87.218.146.185',1150268754,1,0,1,1,1,1,'','','Detlef,\n\nWhat xHB Builder version/build are you using ? Same question for FWH. Thanks,','',0,'AIA=','34iay8b5',1,0,'',2,0,0),(14340,3281,3,58,0,'84.149.251.13',1150269095,1,0,1,1,1,0,'','','Ok, i found it.\n\nThe file fivehmx.lib.xbp provided from xHarbour.com is a little outdated.\nYou need to add toolbar.prg and rebar.prg to the list of source files and rebuild fivehmx.lib.\n\nAfter this everything works ok.\nBut i still need to add the \'hb_dynsymSymbol\' code to my program.\n\nRegards,\nDetlef','',0,'AIA=','a5k3hbrk',1,0,'',58,0,0),(14341,3191,6,24,0,'80.37.55.44',1150270594,1,0,1,1,1,1,'','Re:','[quote=&quot;sjingo&quot;:8doav4xo]\nEs lo mismo usar cualquiera de las 2 formas?\n\nUn saludo\n\nMarcelo Jingo[/quote:8doav4xo]\n\nSi, es exactamente lo mismo, y lo mismo que:\n\naSem := {}\natmp := { }\nAADD( atmp,1)\nAADD( atmp,2)\nAADD( atmp,3)\nAADD( atmp,4)\n\nAADD( aSem, aTmp )\n\nAl final , lo que obtienes es un array multidimensional, que visto seria:\n\naSem := { { 1,2,3,4} }\n\nSi quieres mas arrays, pues repites la accion:\n\natmp := { }\nAADD( atmp,6)\nAADD( atmp,7)\n\nAADD( aSem, aTmp )\n\nY visto el array aSem, tendrias:\naSem := { { 1,2,3,4},; \n                { 6,7}  }\n\nEspero que ahora esta mas simple','',0,'gA==','8doav4xo',1,0,'',24,0,0),(14342,3281,3,2,0,'87.218.146.185',1150270647,1,0,1,1,1,1,'','','Detlef,\n\nGlad to know it is working fine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n&gt; But i still need to add the \'hb_dynsymSymbol\' code to my program.\n\nYes, it is needed, though suposedly its going to be added to xharbour soon.','',0,'gA==','16h6kfjt',1,0,'',2,0,0),(14343,3265,2,2,0,'87.218.146.185',1150270962,1,0,1,1,1,1,'','','Carlos,\n\nNo uses la cláusula STYLE WS_BORDER al crear el diálogo. Debería verse bien.\n\nSi los diálogos los creas desde recursos, añádele el valor 4 al estilo.','',0,'gA==','f4g50pzp',1,0,'',2,0,0),(14344,3276,6,2,0,'87.218.146.185',1150271022,1,0,1,1,1,1,'','','Marcelo,\n\nComprime todos esos ficheros en un ZIP y súbelo a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w -->','',0,'gA==','2mqsd0p8',1,0,'',2,0,0),(14345,3279,6,2,0,'87.218.146.185',1150271084,1,0,1,1,1,1,'','','Simón,\n\nEse ejemplo no funciona en 32 bits. Es sólo para 16 bits con Clipper.','',0,'gA==','11z4flc4',1,0,'',2,0,0),(14346,3285,20,29,0,'88.149.163.182',1150273239,1,0,1,1,1,0,'','Problema nel link di textxbrw.prg','Salve a tutti,\nvorrei provare xBrowse e sto quindi cercando di compilare l\'esempio testxbrw.prg fornito nella cartella samples di FWH.\n\nIl problema è che mi vengono richieste le librerie ace32 e rddads che non ho. Qualcuno di voi sa dove posso trovarli ?\n\nGrazie\n\nMarco Turco','',0,'gA==','3jtomzcx',1,0,'',29,0,0),(14347,3286,11,297,0,'217.57.213.130',1150274716,1,0,1,1,1,0,'','Linux &amp; Fivewin','Which kind of application can I develop using:\nxHarbour\nFivewin for Linux\ndbfcdx table\n\nClient/Server or File/Server (like in windows environment)\nThanks','',0,'gA==','14v4sgjz',1,0,'',297,0,0),(14348,3272,3,130,0,'141.51.32.24',1150274743,1,0,1,1,1,0,'','','Ehab,\n\nif there are only 2 PC´s to connect, you can use a cross-wired cable (direct connection), for more pc´s you need a switch (pc´s are connected to the switch) and for additional internet access you need an internet-router. Normally the router has also switch capabilities, so you need either a switch or a router.\n\nStefan','',0,'gA==','13n8413c',1,0,'',130,0,0),(14349,3286,11,2,0,'87.218.146.185',1150275505,1,0,1,1,1,1,'','','Marco,\n\nAs far as we know there is no ADS (Advantage Database server) for Linux, so if you use Harbour built in DBFCDX, it will behave like in Windows.\n\nYou could also consider to use MySQL, so then you could develop a client-server application.','',0,'gA==','2iowdzsw',1,0,'',2,0,0),(14350,3228,3,2,0,'87.218.146.185',1150282881,1,0,1,1,1,1,'','','Rimantas,\n\nPlease make this change in source\\winapi\\netapi32.prg:\n[code:3imhmk91]\n   oNcb&#58;command  = 51 // NCBASTAT\n   #ifdef __CLIPPER__\n      oNcb&#58;buffer = GETVDMP32&#40; StrPtr&#40; oAdapterStatus&#58;cBuffer &#41; &#41;\n   #else\n      oNcb&#58;buffer = StrPtr&#40; oAdapterStatus&#58;cBuffer &#41;\n   #endif   \n   oNcb&#58;length   = oAdapterStatus&#58;SizeOf&#40;&#41;\n[/code:3imhmk91]','',0,'AIA=','3imhmk91',1,0,'',2,0,0),(14351,3286,11,490,0,'80.24.224.89',1150285532,1,0,1,1,1,0,'','','Antonio,\n\nThere is a version of ADS for Linux.\n\n\nJoaquín','',0,'AIA=','3d59oy40',1,0,'',490,0,0),(14352,3287,6,413,0,'194.106.16.43',1150286334,1,0,1,1,1,0,'','Porque no aparece numero de linea tras error...','Antonio a que se debe que no me muestre la linea de llamada del programa/modulo tras un error y todo sale a cero.  \nParece que es algo que yo le he puesto a mi enlazador o compilador o algo por el estilo pero es la primera vez que me pasa. La aplicación corre bien pero cuando da algun error de programa no me salen los numeros de linea.\n[code:8h71z7wc]\nApplication\n===========\n   Path and name&#58; G&#58;\\FWH\\Cristal_Reports\\testcrw&#46;exe &#40;32 bits&#41;\n   Size&#58;   943,616 bytes\n   Time from start&#58; 0 hours 0 mins 4 secs \n   Error occurred at&#58; 06/14/06, 13&#58;39&#58;11\n   Error description&#58; Error BASE/1132  Bound error&#58; array access\n   Args&#58;\n     &#91;   1&#93; = A   &#123; &#46;&#46;&#46; &#125;\n     &#91;   2&#93; = N   1\n\nStack Calls\n===========\n   Called from CGETEXPRESSION&#40;0&#41; &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;Esto\n   Called from RUNREPORT&#40;0&#41;\n   Called from &#40;b&#41;CREAMENU&#40;0&#41;\n   Called from TMENU&#58;COMMAND&#40;0&#41;\n   Called from TWINDOW&#58;COMMAND&#40;0&#41;\n   Called from TWINDOW&#58;COMMAND&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;0&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from MAIN&#40;0&#41;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;\n\nSystem\n======\n   CPU type&#58; GetCPU&#40;&#41; failed! 2917 Mhz\n   Hardware memory&#58; 703 megs\n\n   Free System resources&#58; 90 %\n        GDI    resources&#58; 90 %\n        User   resources&#58; 90 %\n\n   Compiler version&#58; Harbour Alpha build 44&#46;0 Intl&#46; &#40;Flex&#41;\n   Windows version&#58; 5&#46;1, Build 2600 Service Pack 2\n\n   Windows total applications running&#58; 75\n      1 \n      2 CiceroUIWndFrame\n      3 \\\\srvpoli\\robopol\n      4 SysFader\n      5 CD-ROM\n      6 TF_FloatingLangBar_WndTitle\n      7 CL RC Engine2 Dummy Winidow\n      8 ALSMTray\n      9 Mensajes del análisis En tiempo real de VirusScan\n     10 &#91;2&#93; Total Commander 6&#46;54 - Dpt&#46; Electricité EPFL\n     11 AJ Make 0&#46;33 - g&#58;\\fwh\\cristal_reports\\testcrw&#46;ajm\n     12 MCI command handling window\n     13 Multi-Edit - &#91;G&#58;\\FWH\\FWH27\\SOURCE\\FUNCTION\\expbuild&#46;prg&#93;\n     14 Reproductor de Windows Media\n     15 iTunes\n     16 MSN Messenger\n     17 Avaxhome &#58;&#58; Home - Mozilla Firefox\n     18 Avaxhome &#58;&#58; E-Books - Mozilla Firefox\n     19 RapidShare Webhosting + Webspace - Mozilla Firefox\n     20 Total Commander 6&#46;54 - Dpt&#46; Electricité EPFL\n     21 Temp - WinRAR\n     22 NHECBeginner-Class-CD2&#46;part3&#46;rar - WinRAR\n     23 ????????????????œl????&lt;\n     24 Altavoces remotos\n     25 Ecualizador\n     26 41c\n     27 DDE Server Window\n     28  &#40;I&#41; Radio Creswin - Conversación\n     29 The page cannot be displayed - Mozilla Firefox\n     30 Antònia Font - Web Oficial - Mozilla Firefox\n     31 SHOUTcast Administrator - Mozilla Firefox\n     32 MSNUnnamedWindow\n     33 MSNMSGRAbsConnWindow\n     34 Dummy Video Parent\n     35 MSN Hoy\n     36 EchoPortManagerWnd\n     37 Replace records of ORDENES\n     38 DBU for Windows 3&#46;0b - &#91;ORDENES - S&#58;\\ORDENES&#46;DBF&#93;\n     39 Expert Guide - &#91;CA-Clipper 5&#46;2 » Guía de CA-Clipper&#93;\n     40 Expert Guide - Bookmarks\n     41 Expert Guide - Global Finder\n     42 Expert Guide - Guide Manager\n     43 Media Event Sink Window\n     44 ActiveMovie Window\n     45 Descargas\n     46 Acrobat IEHelper\n     47 WOWExec\n     48 NetscapeDispatchWnd\n     49 XPCOM&#58;EventReceiver\n     50 SnagIt\n     51 SnagIt Capture Preview\n     52 C&#58;\\Archivos de programa\\TechSmith\\SnagIt 8\\SnagIt&#46;chm\n     53 Connections Tray\n     54 SiS Utility Tray\n     55 Administrador de servicios de SQL Server\n     56 IsaTray\n     57 UnHackMe Monitor\n     58 RCScheduler\n     59 RAPIMgr\n     60 Medidor de energía\n     61 DccMan\n     62 MS_WebcheckMonitor\n     63 AutoUpdate de McAfee\n     64 Monitor del Agente de ePolicy Orchestrator\n     65 QTPlayer Tray Icon\n     66 C&#58;\\WINDOWS\\system32\\cmd&#46;exe\n     67 CamTray\n     68 Estadísticas del análisis En tiempo real de VirusScan\n     69 Estadísticas del análisis En tiempo real de VirusScan - PC537\n     70 GDI+ Window\n     71 QuickTime Handler Window\n     72 WinZip\n     73 WinZip &#40;Unregistered&#41;\n     74 Mi PC\n     75 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   CGETEXPRESSION\n     Param   1&#58;    C    &quot;IsNull&#40;&#123;ORDENES&#46;ORFCONT&#125;&#41; and\n&#123;ORDENES&#46;ORCOORDIN&#125; = &quot;M014&quot; and\n&#123;ORDENES&#46;ORCONT&#125; = &quot;S&quot; and\n&#123;ORDENES&#46;ORFECHA&#125; in Date &#40;2006, 01, 01&#41; to Date &#40;2007, 01, 01&#41;&quot;\n     Param   2&#58;    C    &quot;Ejemplo de Formula Cristal Reports&quot;\n     Local   1&#58;    U    \n     Local   2&#58;    U    \n     Local   3&#58;    U    \n     Local   4&#58;    U    \n     Local   5&#58;    C    &quot;IsNull&#40;&#123;ORDENES&#46;ORFCONT&#125;&#41; and\n&#123;ORDENES&#46;ORCOORDIN&#125; = &quot;M014&quot; and\n&#123;ORDENES&#46;ORCONT&#125; = &quot;S&quot; and\n&#123;ORDENES&#46;ORFECHA&#125; in Date &#40;2006, 01, 01&#41; to Date &#40;2007, 01, 01&#41;&quot;\n     Local   6&#58;    A    Len&#58;    1\n     Local   7&#58;    A    Len&#58;    0\n     Local   8&#58;    A    Len&#58;    0\n     Local   9&#58;    C    &quot;&quot;\n     Local  10&#58;    C    &quot;&quot;\n     Local  11&#58;    U    \n     Local  12&#58;    U    \n     Local  13&#58;    A    Len&#58;    0\n     Local  14&#58;    N    1\n   RUNREPORT\n     Local   1&#58;    O    Class&#58; TMDICHILD\n     Local   2&#58;    U    \n     Local   3&#58;    C    &quot;IsNull&#40;&#123;ORDENES&#46;ORFCONT&#125;&#41; and\n&#123;ORDENES&#46;ORCOORDIN&#125; = &quot;M014&quot; and\n&#123;ORDENES&#46;ORCONT&#125; = &quot;S&quot; and\n&#123;ORDENES&#46;ORFECHA&#125; in Date &#40;2006, 01, 01&#41; to Date &#40;2007, 01, 01&#41;&quot;\n     Local   4&#58;    N    0\n   &#40;b&#41;CREAMENU\n     Param   1&#58;    O    Class&#58; TMENUITEM\n   TMENU&#58;COMMAND\n     Param   1&#58;    N    20001\n     Local   1&#58;    O    Class&#58; TMENU\n     Local   2&#58;    O    Class&#58; TMENUITEM\n   TWINDOW&#58;COMMAND\n     Param   1&#58;    N    20001\n     Param   2&#58;    N    0\n     Local   1&#58;    O    Class&#58; TMDIFRAME\n     Local   2&#58;    N    0\n     Local   3&#58;    N    20001\n     Local   4&#58;    N    0\n   TWINDOW&#58;COMMAND\n     Param   1&#58;    N    20001\n     Param   2&#58;    N    0\n     Local   1&#58;    O    Class&#58; TMDIFRAME\n   TWINDOW&#58;HANDLEEVENT\n     Param   1&#58;    N    273\n     Param   2&#58;    N    20001\n     Param   3&#58;    N    0\n   _FWH\n     Param   1&#58;    N    0\n     Param   2&#58;    N    273\n     Param   3&#58;    N    20001\n     Param   4&#58;    N    0\n     Param   5&#58;    N    1\n     Local   1&#58;    O    Class&#58; TMDIFRAME\n   WINRUN\n     Param   1&#58;    N    7211450\n   TWINDOW&#58;ACTIVATE\n     Param   1&#58;    C    &quot;NORMAL&quot;\n     Param   2&#58;    U    \n     Param   3&#58;    U    \n     Param   4&#58;    U    \n     Param   5&#58;    U    \n     Param   6&#58;    U    \n     Param   7&#58;    U    \n     Param   8&#58;    U    \n     Param   9&#58;    U    \n     Param  10&#58;    U    \n     Param  11&#58;    U    \n     Param  12&#58;    U    \n     Param  13&#58;    U    \n     Param  14&#58;    U    \n     Param  15&#58;    U    \n     Param  16&#58;    U    \n     Param  17&#58;    B    &#123;|| &#46;&#46;&#46; &#125;\n     Param  18&#58;    U    \n     Param  19&#58;    U    \n     Local   1&#58;    O    Class&#58; TMDIFRAME\n     Local   2&#58;    U    \n     Local   3&#58;    U    \n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFDBT\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use&#58;\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TCCRPE\n     4 TSTRUCT\n     5 TWINDOW\n     6 TMDIFRAME\n     7 TMENU\n     8 TMENUITEM\n     9 TBRUSH\n    10 TMDICLIENT\n    11 TFONT\n    12 TMDICHILD\n    13 ERROR\n\nMemory Analysis\n===============\n      92 Static variables\n\n   Dynamic memory consume&#58;\n      Actual  Value&#58;          0 bytes\n      Highest Value&#58;          0 bytes\n\n[/code:8h71z7wc]','',0,'AIA=','8h71z7wc',1,0,'',413,0,0),(14353,3288,3,58,0,'84.149.253.107',1150288551,1,0,1,1,1,0,'','oGet:SetPos() and date','Hi all,\n\ni have aproblem to set the cursor of a get to the very first position.\nI tried the following\n[code:1bts64r2]oSearch&#58;bGotFocus &#58;= &#123; || oSearch&#58;PostMsg&#40; WM_KEYDOWN, VK_HOME, 0 &#41;, SysRefresh&#40;&#41; &#125;\noSearch&#58;bGotFocus &#58;= &#123; || oSearch&#58;nPos &#58;= 1, SysRefresh&#40;&#41; &#125;\noSearch&#58;bGotFocus &#58;= &#123; || oSearch&#58;SetPos&#40; 1 &#41; &#125;\n[/code:1bts64r2]\n\nAll three methods work ok if the get variable is of type character.\nBut neither of these methods work if the get variable contains a date.\n\nI put a small selfcontainted sample here\n[url:1bts64r2]http&#58;//www&#46;d-hoefner&#46;de/files/test&#46;zip[/url:1bts64r2]\n\nMay be someone knows a workaround for this?\n\nThanks and regards,\nDetlef','',0,'EIA=','1bts64r2',1,0,'',58,0,0),(14354,3191,6,496,0,'157.100.180.226',1150291764,1,0,1,1,1,0,'','','Seguramente algo hice mal, porque cambie por la forma que me indicaste y me salieron los datos en ubicaciones distintas, así que por el momento opté mantener la forma anterior, hasta darme un poquito de tiempo y revisarlo bien.\n\nDe todas formas, muchas gracias Rafa, que ahora sí lo tango más claro.\n\nUn saludo\n\nMarcelo Jingo','',0,'EIA=','35pgt3jx',1,0,'',496,0,0),(14355,3276,6,496,0,'157.100.180.226',1150293031,1,0,1,1,1,0,'','','OK, Antonio\n\nAdjunto el zip original de TGANT facilitado por arturo, a ver si pueden cambiarlo a 32 bits. Ojalá si se pueda.\n\n[url:1oqxdw1x]http&#58;//hyperupload&#46;com/download/0282e47363/gantt&#46;zip&#46;html[/url:1oqxdw1x]\n\nUn saludo\n\nMarcelo Jingo','',0,'EA==','1oqxdw1x',1,0,'',496,0,0),(14356,3288,3,266,0,'60.50.48.253',1150293195,1,0,1,1,1,1,'','','this might help :-\n\noSearch:bGotFocus := { || oSearch:selectall(), oSearch:nPos:= 1 }','',0,'EA==','3qxdlran',1,0,'',266,0,0),(14357,3288,3,58,0,'84.149.251.136',1150293693,1,0,1,1,1,0,'','','[quote=&quot;tnhoe&quot;:1q0lzb7v]this might help :-\n\noSearch:bGotFocus := { || oSearch:selectall(), oSearch:nPos:= 1 }[/quote:1q0lzb7v]\n\nHoe, \n\nmany thanks for your hint.\nUnfortunatelly it doesn\' t work.\n\nIf i click into the middle of a get with a date variable, the cursor remains at the position where i clicked.\nWith character gets its working ok.\n\nThanks for your time, Hoe.\nRegards,\nDetlef','',0,'gA==','1q0lzb7v',1,0,'',58,0,0),(14358,3288,3,6,0,'82.61.28.211',1150293898,1,0,1,1,1,1,'','','If you will build a reduced and self-contained sample of the problem then I promise to experiment with it a little. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','254dasom',1,0,'',6,0,0),(14359,3288,3,58,0,'84.149.251.136',1150294451,1,0,1,1,1,0,'','','Enrico,\n\nI already put a sample at\n\n<!-- m --><a class=\"postlink\" href=\"http://www.d-hoefner.de/files/test.zip\">http://www.d-hoefner.de/files/test.zip</a><!-- m --> \n\nthanks for jumping in.\n\nRegards,\nDetlef','',0,'gA==','tmpmhvw9',1,0,'',58,0,0),(14360,3288,3,6,0,'82.61.28.211',1150296520,1,0,1,1,1,1,'','','Try this:\n\n[code:k2lcc6k2]oSearch&#58;bGotFocus &#58;= &#123; || oSearch&#58;PostMsg&#40; WM_KEYDOWN, VK_HOME &#41; &#125;[/code:k2lcc6k2]\n\nEMG','',0,'AIA=','k2lcc6k2',1,0,'',6,0,0),(14361,3251,2,228,0,'190.24.66.189',1150299141,1,0,1,1,1,1,'','GRACIAS','Antonio muchas gracias','',0,'AIA=','n6fw4hch',1,0,'',228,0,0),(14362,3288,3,58,0,'84.149.221.31',1150299704,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:3aa98cb4]Try this:\n\n[code:3aa98cb4]oSearch&#58;bGotFocus &#58;= &#123; || oSearch&#58;PostMsg&#40; WM_KEYDOWN, VK_HOME &#41; &#125;[/code:3aa98cb4]\n\nEMG[/quote:3aa98cb4]\nEnrico,\n\nas usual, your advice is a good one.\nIt\' s working as expected now  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nThanks a lot  for your time.\nRegards,\nDetlef','',0,'gIA=','3aa98cb4',1,0,'',58,0,0),(14363,3284,6,582,0,'201.252.72.61',1150300632,1,0,1,1,1,0,'','','Ricardo, probaste con el bChange del Tree ???\n\n\nEl Loco =&gt;))','',0,'gIA=','3heh9ck2',1,0,'',582,0,0),(14364,3287,6,24,0,'80.37.55.44',1150301823,1,0,1,1,1,1,'','Re: Porque no aparece numero de linea tras error...','[quote=&quot;Andrés González&quot;:2mq2a4do]Antonio a que se debe que no me muestre la linea de llamada del programa/modulo tras un error y todo sale a cero.  \nParece que es algo que yo le he puesto a mi enlazador o compilador o algo por el estilo pero es la primera vez que me pasa. La aplicación corre bien pero cuando da algun error de programa no me salen los numeros de linea.\n[/quote:2mq2a4do]\nPues bien simple, porque la libreria se compilo, la de Fivewin, con /L, que\nelimina el numero de linea.\n\nSi quieres ver donde casca, cogete el modulo .prg y enlazalo con tu aplicacion y entonces veras por donde van los tiros.\n\nSaludos\nRafa Carmona','',0,'gA==','2mq2a4do',1,0,'',24,0,0),(14365,3239,2,24,0,'80.37.55.44',1150302109,1,0,1,1,1,1,'','Re: Vendo Licencia Ca Clipper 5.3B Int. completito','[quote=&quot;juanato&quot;:1nzfzddg]Pues eso, que estoy en C3 y llevo un tiempo viendo la caja en la estanteria... a ver si alguien quiere una licencia de Ca Clipper nuevecita con manuales, cajita y todo eso. Estoy en Córdoba, España.-[/quote:1nzfzddg]\n\nUmm.. no es por nada...pero creo que \'vender\' algo que:\n\n1.- Esta desfasado...pero como coleccionista de cosas esta bien <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n2.- En un mundo donde el compartir es el pan de cada dia....\n3.- Teniendo Harbour, quien quiere Clipper <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nEn serio, por curiosidad, falta el precio...','',0,'gA==','1nzfzddg',1,0,'',24,0,0),(14366,3289,3,343,0,'204.57.111.194',1150302863,1,0,1,1,1,0,'','TSButton 5.0 Animation','I just tried TSButton 5.0 and the animation feature doesn\'t seem to be working.\n\nCompiled testbtn.prg and the only frame that seems to work is the first one.\nThe animation shows the first frame, blanks out and then when it gets back to the first one it displays again.','',0,'gA==','322lyt67',1,0,'',343,0,0),(14367,3283,2,168,0,'201.210.80.149',1150306751,1,0,1,1,1,0,'','','Usa TOle','',0,'gA==','1vm03ank',1,0,'',168,0,0),(14368,3284,6,109,0,'200.56.166.85',1150309969,1,0,1,1,1,0,'','','Gracias por contestar\n\n   La opcion que me das funciona ok. Pero al momento que cambian los datos del browse (tomando el array que le corresponde a esa rama), al dar click sobre cualquier parte del browse, me pone los datos del array anterior. No se si me explique bien. pero el caso es que necesito \"destruir\" el browse anterior y \"construir\" el browse de la siguiente rama en ese mismo dialogo.\n\n\n   Gracias','',0,'gA==','1m9a8jzb',1,0,'',109,0,0),(14369,3182,3,63,0,'80.37.102.128',1150316936,1,0,1,1,1,0,'','','I sent the board to the factory for checking and I got it back with a note saying that it works Ok, but only under W98 and Me.  \n\nI was testing it with W2000 and Xp.  Tried all the suggestions by Enrico, Thnoe, Randal, Biel and James.  None of them worked which is not surprising after reading the note the manufacturer included.\n\nWhat I can not imagine is why a simple paralell port board should not work under Xp...  Any explanation?.\n\nI guess I will set up an old W98 and try the damn board with it.  In the meanwhile, thanks to all of you for your help and support.\n\nRafael','',0,'gA==','d6qarkd9',1,0,'',63,0,0),(14370,3290,6,217,0,'200.159.120.34',1150317949,1,0,1,1,1,0,'','TBtnBmp &amp; Multiline (is possible?)','Antonio,\n\nWhat I must do to let TBtnBmp get multiline text? \nThe original don\'t let us create it.\n\nRegards\nMaurilio','',0,'gA==','3tsofkcp',1,0,'',217,0,0),(14371,2558,17,439,0,'190.0.142.75',1150319161,1,0,1,1,1,1,'','Siempre se puede Mejorar algo','Bueno, la verdad siempre una clase puede ser mejorada, una de las cosas que aún me molestaban de la clase TSBrowse era el feo calendario que tenía asociado al botón de manejo de fechas. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nLa razón, muy simple: la función FWCalendar que usa era bastante vieja, he colocado en su lugar la última versión de FWCalendar de Manuel Mercado adaptada para [x]Harbour y ahora los calendarios aparecen bellos y multilenguaje.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEspero les guste el cambio.\n\nSolo un detalle: ahora para usarla cuando manejen fechas con botón calendario tendrán que añadir al archivo de recursos RC de sus aplicaciones la dialog FW_CALE contenida en el archivo FWCALEN.RC, no se preocupen encontrarán este RC en el directorio de funciones y en el de ejemplos. <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nPor más información lean en el directorio de documentos el archivo:\nWHATSNEW_V7.01.txt, allí encontrarán todos los detalles.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0183e06f31/TSBrowse701.rar.html\">http://hyperupload.com/download/0183e06 ... 1.rar.html</a><!-- m -->\n\nQue la disfruten.','',0,'','mjm7ek93',1,0,'',439,0,0),(14372,3289,3,49,0,'87.16.176.220',1150322897,1,0,1,1,1,1,'','','Last summer I asked Help to all because the animation of tsbutton on 32 bit not run ok \n\nIf you can see the example of bus reservation you can see the tsbutton on (x)harbour not run ok \n\nBut none help me .....and I Not could convert my application on 32 bit...\n\nRegards','',0,'','29bcp0ea',1,0,'',49,0,0),(14373,3291,2,304,0,'201.155.7.216',1150323985,1,0,1,1,1,0,'','Ultima tecla en un oGet','Hola:\nDentro de una pantalla tengo varios oGet, el caso es que necesito que cuando el usuario este sobre el ultimo oGet, si pulsa enter preguntar si Grabo los datos, si es flecha arriba o cualquier otra q no pase nada, espero haberme explicado correctamente es algo parecido al lastkey() de clipper (no importa q tenga o no datos el ultimo oGet)\nsalu2\nveracruz, mexico','',0,'','lrcbnd80',1,0,'',304,0,0),(14374,3290,6,492,0,'201.154.128.208',1150331383,1,0,1,1,1,1,'','','Hola Maurilio\n\n\nEsta misma pregunta la puse hace un poco, y varios amigos me dieron esta sulocion :\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2963&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\nQue es poner la cluasula multiline ya sea en el control o desde codigo.\n\n\nSigue el link y ahi estan las respuestas.\n\n\nSaludos','',0,'','3o4almq1',1,0,'',492,0,0),(14375,3292,6,492,0,'201.154.128.208',1150331937,1,0,1,1,1,1,'','Encriptacion de Bases de Datos desde xHarbour','Hola a todos\n\nHace dias leyendo un post, tenia un link donde se mencionan algunas funciones propias de xHarbour, y en especial me llamo mucha la atencion una que es para poder encriptar las Dbfs o algunos registros de las mismas, pregunto :\n\n- Alguien las a implementado con exito en sus Apps ?\n- Son estables ? ( no daña la informacion o tiene problemas con los indices )\n\n- tendran algun pequeño ejemplo ?\n\n- Existen algunas opciones mas para realizar esta operacion ?\n\nObviamente, todo esto es para que algunos usuarios \"curiosos\" no puedan accesar o modificar el contenido  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos a todos','',0,'','3njxgr9s',1,0,'',492,0,0),(14376,3284,6,582,0,'201.252.72.61',1150342603,1,0,1,1,1,0,'','','Ricardo, no creo que sea muy dificil hacerlo.\nYo no utilizo el txbrowse pero creo que debe tener un metodo oBrw:SetArray(aArray), entonces digo al asi:\n\noTree:bChange:= {|| FuncCargaArray(aArray) ,;\n                                oBrw:SetArray(aArray) ,;\n                                oBrw:Refresh() }\n\nIncluso podes jugar con los parametros del CodeBlock\n\nPor ahora se me ocurre esto...... y estoy medio dormido.\n\nUn abrazo. El Loco =&gt;))\nPD. Quizas si mostras algun trozo del codigo se te pueda aconsejar algo mas especifico.','',0,'','39veg2jd',1,0,'',582,0,0),(14377,3292,6,582,0,'201.252.72.61',1150343626,1,0,1,1,1,0,'','','Raymundo, yo utilizo las que vienen con FiveWin (Encrypt() Decrypt()) y funcionan barbaro.\n\nTe comento que una de mis aplicaiones, que es solo de consulta, y por la importancia de los datos no sean \"extraidos\" (por decirlo en forma amable), me vi en la necesidad de encriptar la informacion.\nAdemas te comento que si bien utilizo Dbf esta( por que solo consta de una sola dbf) tiene un solo campo de nn posiciones (para ser mas exacto 180) y contiene todos los diseños de registros necesarios, que se identifican por las dos primeras posiciones (tipo tecnica txt). O sea toda la informacion esta de corrido y encriptada, es el programa el encargado de armar dentro de ese chorizo de informacion los campos necesarios para mostrar y calcular lo que sea necesario.\nTodo este cuento va a relacion ( no se si sea tu caso) para explicarte que la hice mas complicada todavia, y pensa que contiene 24 millones de registros, y para darte un ejenplo, cuando todavia la tenia en 16bits, una consulta alfabetica de 350000 casos los mostraba sin pestañar la pantalla.\nLo unico que si no hice (pero se puede hacer) es encriptar los apellidos y nombres, porque ahi si se ponia un poco lenta.\nCon indices no tuve ningun problema, como si no estuvieran encriptado\nNo se si te sirva tanta lata, pero te muestro mi experiencia.\n\nUn abrazo. El Loco =&gt;))','',0,'','1hy132n3',1,0,'',582,0,0),(14378,3292,6,9,0,'85.54.246.6',1150347669,1,0,1,1,1,1,'','','Pero creo que con la función Encrypt, solo encripta campos de caracteres, pero no fechas/numéricos.\n\nEn xHarbour creo que el tema es diferente y que utilizan una libreria de Przemyslaw Czerpak. He visto en el foro de xHarbour una consulta de Jose Luis Sánchez Navarro que la estaba probando. Si está por este foro me gustaria su opinión, porque a mi tambien me interesa el tema.','',0,'','12b0wx0q',1,0,'',9,0,0),(14379,3293,3,47,0,'203.144.160.243',1150354060,1,0,1,1,1,0,'','How to Integrate via TCP/IP Protocal?','Dear All,\n\nI\'ve used to integrate with other software via COM port (RS232).  Now they have TCP/IP protocal integration.  I\'ve no idea how to link (integrate) with them.  Can anyone help or give me an idea?  How can I send or receive data via TCP/IP?\n\nBest regards,\nDutch','',0,'','10nfk078',1,0,'',47,0,0),(14380,3294,1,47,0,'203.144.160.243',1150354250,1,0,1,1,1,0,'','How to Integrate via TCP/IP Protocal?','Dear All, \n\nI\'ve used to integrate with other software via COM port (RS232). Now they have TCP/IP protocal integration. I\'ve no idea how to link (integrate) with them. Can anyone help or give me an idea? How can I send or receive data via TCP/IP? \n\nBest regards, \nDutch','',0,'','1ra5ij5d',1,0,'',47,0,0),(14381,3295,6,449,0,'212.64.224.249',1150357340,1,0,1,1,1,1,'','Acceso .Lnk y/o menus escritorio (XP)','Hola, \n\nAlguien sabe como crear menus de escritorio en windows XP desde FWH ? Tambien me valdria crear un acceso .lnk\n\nGracias.','',0,'','3766hwzj',1,0,'',449,0,0),(14382,3286,11,2,0,'87.218.146.185',1150358141,1,0,1,1,1,1,'','','Joaquin,\n\nThanks for the info <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2fcqno47',1,0,'',2,0,0),(14383,3287,6,413,0,'194.106.16.43',1150363631,1,0,1,1,1,0,'','','Pues va a ser que sí, esa era la razon, algun click tonto me activo el suprimir información de linea en las opciones de Harbour. \nGracias Rafa.\nPD.: Mira de contactar conmigo que ya esta listo, no te localizo nunca.','',0,'','2b7hbo9v',1,0,'',413,0,0),(14384,3293,3,2,0,'87.218.146.185',1150369011,1,0,1,1,1,1,'','','Dutch,\n\nYou have to use sockets. Please review samples\\sockcli.prg and sockserv.prg','',0,'','3hrukak6',1,0,'',2,0,0),(14385,3294,1,2,0,'87.218.146.185',1150369040,1,0,1,1,1,1,'','','Dutch,\n\nYou have to use sockets. Please review samples\\sockcli.prg and sockserv.prg','',0,'','3f2mpj6q',1,0,'',2,0,0),(14386,3291,2,2,0,'87.218.146.185',1150369575,1,0,1,1,1,1,'','','Para que un GET reconozca la pulsación de enter y haga algo específico:\n[code:hdv4zxu1]\noGet&#58;bKeyDown&#58;= &#123;|nKey| if&#40; nKey==VK_RETURN, &lt;acción&gt;, nil &#41; &#125;\n[/code:hdv4zxu1]\nSi quieres que todos los GETs reaccionen igual, puedes hacer:\n[code:hdv4zxu1]\nfor n &#58;= 1 to Len&#40; oDlg&#58;aControls &#41;\n   if Upper&#40; oDlg&#58;aControls&#91; n &#93;&#58;ClassName&#40;&#41; &#41; == &quot;TGET&quot;\n      oDlg&#58;aControls&#91; n &#93;&#58;bKeyDown&#58;= &#123;|nKey| if&#40; nKey==VK_RETURN, &lt;acción&gt;, nil &#41; &#125;\n   endif\nnext\n[/code:hdv4zxu1]','',0,'AIA=','hdv4zxu1',1,0,'',2,0,0),(14387,3262,6,2,0,'87.218.146.185',1150369704,1,0,1,1,1,1,'','','Ricardo,\n\nPrueba así:\n\n-O2 -c -D__HARBOUR__ -D__HBOLE__','',0,'AIA=','1yoxx1v1',1,0,'',2,0,0),(14388,3296,6,413,0,'194.106.16.43',1150373502,1,0,1,1,1,0,'','Diferencia entre GetProc32 y GetProcAddress ?','Antonio, estoy haciendo pruebas con dos versiones distintas de Cristal Reports (TCRW y TCRW32) en el segundo aparece GetProc32, pero me da un error en esa funcion. Parece por logica que esta funcion \"GetProc32\" sea exlusivo de 32-bit, pero me genera un error cuando lo ejecuto, en cambio si con los mismos argumentos utilizo GetProcAddress funciona a la perfección incluso veo que hace la discriminacion entre 16-bit y 32-bit (al seleccionar la libreria). ¿ A que es debido el error ?, ¿ Que funcion tengo que utilizar o falta algun argumento ?\n\nEn TCRW:\n[code:16c9sknr]\n\nMETHOD PEOPEN_&#40;&#41;\n   LOCAL cFarProc\n   LOCAL cFunc &#58;= &quot;PEOpenEngine&quot;\n   cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, cFunc, &#46;T&#46;, LONG &#41;\n   &#58;&#58;lError &#58;= &#40; CallDll&#40; cFarProc &#41; == FALSE &#41;\n   IF &#58;&#58;lError\n      MsgAlert&#40; &quot;Could not open the Print Engine!&quot; + CRLF + &#58;&#58;PeErrorText&#40;&#41;&#41;\n   ENDIF\nRETURN ! &#58;&#58;lError\n\n\n[/code:16c9sknr]\n\n\nEn TCRW32:\n[code:16c9sknr]\n\nMETHOD PEOPEN_&#40;&#41;\n LOCAL cFarProc\n LOCAL cFunc &#58;= &quot;PEOpenEngine&quot;\n\n    IF &#58;&#58;l32\n		\n       cFarProc &#58;= GetProc32&#40; &#58;&#58;hDLL, cFunc, &#46;T&#46;, LONG &#41;\n       &#58;&#58;lError &#58;= &#40; CallDll32&#40; cFarProc &#41; == FALSE &#41;\n\n    ELSE\n		\n       cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, cFunc, &#46;T&#46;, _INT &#41;\n       &#58;&#58;lError &#58;= &#40; CallDll&#40; cFarProc &#41; == FALSE &#41;\n\n    ENDIF\n\n    IF &#58;&#58;lError\n       MsgAlert&#40; &quot;No puedo abrir el reporte&#46;!&quot; + CRLF + &#58;&#58;PeErrorText&#40;&#41;&#41;\n    ENDIF\n\n RETURN ! &#58;&#58;lError\n[/code:16c9sknr]','',0,'AIA=','16c9sknr',1,0,'',413,0,0),(14389,3292,6,131,0,'194.179.55.36',1150377681,1,0,1,1,1,0,'','','Hola:\n\nComo dice Manuel, las funciones de encriptación de FWH sólo funcionan bien con caracteres, así que si quieres encriptar una DBF todos sus campos tienen que ser caracter. Y no puedes usar índices encriptado, sino que tienes que desencriptar la DBF si vas a usar índices. En fin, que es un auténtico lio.\n\nPor eso pregunté en el foro de xHB sobre la encriptación a bajo nivel. Me fio más de lo que pueda hacer Przemyslaw que lo que pueda hacer yo. Este señor ha demostrado ser un auténtico fenómeno muchas veces en público y alguna en privado. Ahora estoy probando el sistema de encriptación nativo de xHB. En cuanto tenga algo claro lo publicaré en avemundi.\n\nSaludos,','',0,'AIA=','xgcekq90',1,0,'',131,0,0),(14390,3297,3,148,0,'82.201.236.92',1150378926,1,0,1,1,1,0,'','Oracle scheme','I watched the i-flex oracle application and amazed with the controls view. Can fivewin simulate the same scheme of oracle applications.','',0,'AIA=','20evyfdr',1,0,'',148,0,0),(14391,3292,6,138,0,'201.123.96.6',1150380437,1,0,1,1,1,1,'','','Personalmente pase del tema de funciones nativas de encriptamiento, es un verdadero rollo que ralentiza el acceso a los datos y a los indices.\n\nLo que yo hago es dejar que el motor de ADS se encargue de todo el tema de bases de datos encriptadas, y la verdad funciona tremendo.\n\nEl algoritmo de encriptamiento es de 128 bits, encrypta TODO, desde la cabecera de la base de datos, pasando por campos caracter, fecha, logicos, numericos, en fin todo.\n\nLa base de datos se almacena siempre encriptada y el motor de ADS es quien hace la \"traduccion\" para que la aplicacion reciba los datos sin desencriptar.\n\nOtra cosa interesante es que puedes tener una llave de encriptacion por cada area de trabajo \n\nVamos, que el sistemas de encriptacion de ADS es super confiable en este aspecto','',0,'AIA=','2y7ozlhv',1,0,'',138,0,0),(14392,3292,6,83,0,'80.35.196.60',1150380452,1,0,1,1,1,0,'','encriptación con FWH','Perdonadme que discrepe de lo comentado sobre la encriptación con FWH, yo la utilizo desde hace años, y con cualquier tipo de campo y/o indices para guardar claves, y siempre funcionó perfectamente. \nSi alguien está interesado en algún ejemplo, estoy a su disposición.\n\nSaludos al foro <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','2qtu4k8j',1,0,'',83,0,0),(14393,3292,6,131,0,'194.179.55.36',1150381028,1,0,1,1,1,0,'','','Jose Vicente:\nA mi me gustaría mucho ver un ejemplo de la enriptación tal como la haces tu. Si me la puedes enviar por e-mail te lo agradecezco mucho.\n\nSaludos,','',0,'AIA=','2d4285lq',1,0,'',131,0,0),(14394,3296,6,138,0,'201.123.96.6',1150381239,1,0,1,1,1,1,'','','No reinventes el hilo negro, la clase Cystal ya esta lista para 32  bits, descargala de aqui:\n\n[url:2ol44fq6]http&#58;//www&#46;google&#46;d2g&#46;com/crystal&#46;zip[/url:2ol44fq6]\n\nClase y ejemplo incluido','',0,'EA==','2ol44fq6',1,0,'',138,0,0),(14395,3292,6,295,0,'200.112.87.52',1150381303,1,0,1,1,1,1,'','','José,\n\nMe inetersa este tema podrías colocar un ejemplo?\n\nDe antemano muchas Gracias\nSaludos\nxHarbrazos','',0,'EA==','2h8xscqt',1,0,'',295,0,0),(14396,3262,6,138,0,'201.123.96.6',1150381627,1,0,1,1,1,1,'','','Hummmm... si esa definicion esta en el PRG... no tendria que definirse al momento de compilar con harbour ?\n\nharbour programa.prg /D__HBOLE__ ....','',0,'EA==','1t2fiuzl',1,0,'',138,0,0),(14397,3298,3,148,0,'82.201.236.92',1150382155,1,0,1,1,1,0,'','Delayed load module','Compiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sitex.prg\' and generating preprocessed outp\nLines 2898, Functions/Procedures 42\nGenerating C source output to \'sitex.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 B\nsitex.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rig\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 B\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 B\nError: Delayed load module sitex.res was not found\n* There are errors','',0,'EA==','3078yxf5',1,0,'',148,0,0),(14398,3299,6,102,0,'81.33.140.7',1150385103,1,0,1,1,1,1,'','Pasar de Campos tipo Fecha hora de Access a Dbf','Hola chicos,\nEn una base de datos Access que me envia la direccion de la empresa tengo varios campos tipo \"Fecha Hora\". Tengo que pasarlo a una tabla DBF.\nEn mi tabla DBF tengo campos de fecha y campos de hora por separado.\nMi pregunta es:\nComo puedo hacer para pasar la fecha a mis campos de fecha y la hora a mis campos de hora\nEstoy utilizando la libreria Condor1 de Manu Exposito.\n\nGracias de antemano','',0,'EA==','sqi3qwk5',1,0,'',102,0,0),(14399,3292,6,492,0,'201.154.128.208',1150385549,1,0,1,1,1,1,'','','Me alegra ver que si existen varias opciones.\n\nEn post anteriores el MASTER Rene, ya nos habia comentado de esta caracteristica entre otras muchas bondades por parte del ADS y lo estable que lo maneja, por otro lado, tambien he usado las funciones EnCrypt()/DeCrypt() y es verdad, funcionan muy bien pero como dicen uds, solo en campos Character, sin olvidarnos el viejo truco de tocar los header files de los Dbfs para que no puedan ser \"leidos\" por X App.\n\nEn mi caso, me gustaria profundizar el punto de las funciones propias del xHarbour : \n\ndbRecordInfo( DBRI_ENCRYPTED )\ndbInfo(DBI_PASSWORD)\ndbInfo(DBI_PASSWORD, dbInfo(DBI_PASSWORD))\n\no en el trabajo del Sr. Przemyslaw\n\n\nOjala y por ahi salga alguna clase, libreria, etc que nos permite hacer esta clase de operacion.\n\nMuchas Gracias y Saludos a todos','',0,'EA==','1bcvkpx3',1,0,'',492,0,0),(14400,3294,1,47,0,'203.144.160.243',1150385602,1,0,1,1,1,0,'','I will try','Dear Antonio,\n\nThanks for your help again and I will try.\n\nBest regards,\nDutch','',0,'EA==','3eaz6xbx',1,0,'',47,0,0),(14401,3293,3,47,0,'203.144.160.243',1150385652,1,0,1,1,1,0,'','I will try','Dear Antonio,\n\nThanks for your help again and I will try.\n\nBest regards,\nDutch','',0,'EA==','32eqzhwx',1,0,'',47,0,0),(14402,3262,6,24,0,'80.58.210.47',1150388250,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2dxn0v1h]Hummmm... si esa definicion esta en el PRG... no tendria que definirse al momento de compilar con harbour ?\n\nharbour programa.prg /D__HBOLE__ ....[/quote:2dxn0v1h]\n\n3 Puntos, colega. ( Como dice chicho terremoto )\n\nLa solucion de Antonio, seria en caso que tu codigo sea C.\nPero como es prg, debes de pasarselo al compilador Harbour, en este\ncaso /D__HBOLE__','',0,'gA==','2dxn0v1h',1,0,'',24,0,0),(14403,3292,6,9,0,'85.54.246.6',1150389053,1,0,1,1,1,1,'','Re: encriptación con FWH','Jose Vicente,\n\nTe agradecería me enviaras tus ejemplos a mi email.\n\nGracias','',0,'gA==','1ct3bnvm',1,0,'',9,0,0),(14404,3300,21,267,0,'201.29.127.11',1150394862,1,0,1,1,1,1,'','Posição do texto em buttonbmp','Olá Pessoal,\n\nGostaria de usar a classe buttonbmp com o texto posicionado em uma coordenada que vou determinar. Naturalmente já vi que não existe este recurso na classe, mas o que gostaria de saber é se algum de vocês sabe em que raio de lugar é feita a exibição do texto no buttonbmp ?\n\nSds,\nVilian F. Arraes','',0,'gA==','2n7js25v',1,0,'',267,0,0),(14405,3301,3,267,0,'201.29.127.11',1150395177,1,0,1,1,1,1,'','Text position in buttonbmp','hi,\n\nButtonbmp with the text located in a coordinate would like to use the classroom that I go to determine. Of course already vi that this resource in the class does not exist, but what it would like to know are if some of vocês knows where place ray is made the exhibition of the text in buttonbmp?','',0,'gA==','18xz6gpt',1,0,'',267,0,0),(14406,3301,3,2,0,'87.218.146.185',1150396031,1,0,1,1,1,1,'','','Vilian,\n\nFrom FWH April 2006:\n\n* New: Class TButtonBmp clause: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT. It modifies the bitmap drawing location, so you can use text in the button too.','',0,'gA==','21qwj8a5',1,0,'',2,0,0),(14407,3298,3,2,0,'87.218.146.185',1150396131,1,0,1,1,1,1,'','','Ehab,\n\nDo you use a sitex.rc ? Please check if it gets properly compiled into sitex.res.','',0,'gA==','22py1207',1,0,'',2,0,0),(14408,3297,3,2,0,'87.218.146.185',1150396229,1,0,1,1,1,1,'','','Ehab,\n\nWhere can such application be downloaded ? What do those controls do ? Does it require Oracle to work ?','',0,'gA==','20cny20d',1,0,'',2,0,0),(14409,3262,6,2,0,'87.218.146.185',1150396296,1,0,1,1,1,1,'','','Completamente de acuerdo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2j0tfq6g',1,0,'',2,0,0),(14410,3296,6,2,0,'87.218.146.185',1150396461,1,0,1,1,1,1,'','','GetProc32() es una función para ser usada con Clipper, no con Harbour/xharbour.','',0,'gA==','3u3dpno7',1,0,'',2,0,0),(14411,3302,2,631,0,'201.42.195.37',1150398002,1,0,1,1,1,1,'','Perdendo valor da variavel','Esta perdendo o Objeto\nCom um Menu com poucos itens não dá o erro, mas o que estou usando tem muitos, acaba perdendo o valor.\n\nAlguém pode me ajudar a mante-la\n\nObrigado, a seguir listo o código\n\n\nError description: Error BASE/1003 Variable does not exist: OMENUTREE\n\nFUNCTION MnuOpen( )\n\nLOCAL oLbx, oMenuTree, oWndMenu\nPUBLIC cUsuario\n\ncUSUARIO=\"01\" // Criar Gets para identificar qual usuário será configurado\n\nIF ASCAN( oWnd:oWndClient:aWnd, {|x| x:cargo == \"MenuCA\"} ) == 0\n\nDEFINE WINDOW oWndMenu MDICHILD FROM 1, 1 TO 40, 300;\nTITLE \"Controle de Senha Acesso\";\nBORDER NO of oWnd\n\nIF !FILE(\"MENUS.DBF\")\nMsgStop(\"Arquivo não encotrado MENUS.DBF\")\nQUIT\nENDIF\n\nOpen_file(\"Menus\",\"Menus\",,.F.)\ngo top\n\nTREE oMenuTree BITMAPS \"MnClose.bmp\",\"MnOpen.bmp\" OPENED\nDO WHILE .NOT. Eof()\n\nDO CASE\nCASE Menus-&gt;Tipo == 0\n\nIF cUSUARIO$Menus-&gt;USUARIOS\nTREE BITMAPS \"MnClSl.bmp\", \"MnOpSl.bmp\" OPENED\nELSE\nTREE BITMAPS \"MnClose.bmp\",\"MnOpen.bmp\" OPENED\nENDIF\n\nCASE Menus-&gt;Tipo == 1\n\nbGrava = \'GravaMarca(\'+ \'\"\'+Menus-&gt;TEXTO+\'\",oMenutree)\'\nIF cUSUARIO$Menus-&gt;USUARIOS\nTREEITEM ALLTRIM( Menus-&gt;Texto ) FILENAME \"MnClSl.bmp\", \"MnOpSl.bmp\" ACTION &amp;bGrava\nELSE\nTREEITEM ALLTRIM( Menus-&gt;Texto ) FILENAME \"MnClose.bmp\",\"MnOpen.bmp\" ACTION &amp;bGrava\nENDIF\n\nCASE Menus-&gt;Tipo == 2\nTREEITEM \"--------------------------------\"\nCASE Menus-&gt;Tipo == 3\nENDTREE\nENDCASE\n\nDBSkip()\nENDDO\nENDTREE\n\n@ 0, 0 LISTBOX oLbx FIELDS \"\" ;\nHEADERS \"Arvore de Menus\" ;\nSIZE 400, 400 ;\nOF oWndMenu UPDATE\n\noLbx:nClrBackHead := CLR_VERDEAGUA // Cor do Fundo do Cabeçalho\n//oLbx:nClrForeHead := CLR_HRED // Cor nos Headers - Cabeçalhos\noLbx:SetTree( oMenuTree ) // Carrega Arvore no Listbox\n//oLbx:aHeaders := {\"\"} // Cabeçalho\noLbx:bKeyChar = { | nKey | KeyChar( oLbx, nKey ) }\n\n//******* O ERRO ACONTECE NESSA LINHA **********//\noLbx:bLDblClicked = {|| If( oLbx:Cargo:oTree != nil, ;\n( oLbx:Cargo:Toggle(), oLbx:Refresh() ),EVAL(oLbx:Cargo:Cargo) )}\n\noWndMenu:SetControl( oLbx )\noWndMenu:cargo := \"MenuCA\"\n\nENDIF\n\nACTIVATE WINDOW oWndMenu MAXIMIZED\n\nreturn nil\n\nSTATIC FUNCTION KeyChar( oLbx, nKey)\n\nDO CASE\nCASE nKey == 13\nmsginfo(\"ENTER TESTE\")\nIF oLbx:Cargo:oTree != NIL\noLbx:Cargo:Toggle()\noLbx:Refresh()\nELSE\nEVAL(oLbx:Cargo:Cargo)\nENDIF\n\nCASE nKey == 27\n\nENDCASE\nRETURN nil\n\nFUNCTION GravaMarca(cItem,oMenutree)\nmsginfo(\"Click TESTE\")\nLOCATE FOR Menus-&gt;Texto=cItem\nIF !(cUSUARIO$USUARIOS)\n// Marcar\nmsginfo(\"Gravando Usuário \" + cUSUARIO + \" Acesso a \"+cItem)\nRLock()\nrepla USUARIOS WITH Trim(USUARIOS)+\"*\"+cUSUARIO\nELSE\n// Rotina para desmarcar\nmsginfo(\"Já esta gravado Usuário \" + cUSUARIO + \" Acesso a \"+cItem)\nENDIF\n\nRETURN NIL','',0,'gA==','tniufehw',1,0,'',631,0,0),(14412,3292,6,237,0,'200.68.70.89',1150398422,1,0,1,1,1,0,'','Me anoto','Jose:\n\nMe interesa mucho ver alguno de esos ejemplos sobre encriptación.\nMi mail es <!-- e --><a href=\"mailto:tecnisoftware@yahoo.com.ar\">tecnisoftware@yahoo.com.ar</a><!-- e -->\n\nMuchos salu2!!!','',0,'gA==','2gny1u8z',1,0,'',237,0,0),(14413,3292,6,83,0,'80.35.196.60',1150398483,1,0,1,1,1,0,'','','José Luis, Manuel, Luis Alfonso, Tecnisoftware, miren su correo\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','1s0qpt8w',1,0,'',83,0,0),(14414,3303,11,178,0,'71.29.195.233',1150399064,1,0,1,1,1,1,'','Porting to other linux','Hello All,\n\nI have been working with a customer who has their own version of linux and I have been trying to get them a hello world program. I am running redhat and the programs compile and run great. When our customer runs the program he is getting a message that the libgpm.so.1 is missing. \n\nIs it possible to link this lib in to the distributed program to avoid problems like this?\n\nThanks','',0,'gA==','edje01hu',1,0,'',178,0,0),(14415,3282,6,74,0,'190.49.102.70',1150399151,1,0,1,1,1,1,'','','Jose:\n\n         El control se llama vTaskbar, hace tiempo que lo quiero comprar pero es imposible ubicarlo a paco. Si logras averiguar donde ubicarlo avisame.\n\nSaludos,','',0,'gA==','1zqnmn2c',1,0,'',74,0,0),(14416,3291,2,304,0,'201.155.7.216',1150399718,1,0,1,1,1,0,'','','HOLA ANTONIO:\nuse el metodo que me sugieres para conocer la pulsacion del oget, pero no hace nada, es decir no ejecuta ninguna accion','',0,'gA==','vf7z1gdz',1,0,'',304,0,0),(14417,3291,2,304,0,'201.155.7.216',1150400277,1,0,1,1,1,0,'','','Hola Antonio\n\nefectue el ejemplo que pusiste:\noGet5:bKeyDown:= {|nKey| if(nKey==VK_RETURN, MsgInfo(\"Accion\"), Nil )}\n\nobviamente en lugar del msginfo va un llamado de otra accion pero estoy probando..\nel caso es que no ejecuta nada, que estare haciendo mal ?\n\ngracias por tu ayuda\nsalu2','',0,'gA==','1ajxr849',1,0,'',304,0,0),(14418,3292,6,439,0,'190.0.141.71',1150401600,1,0,1,1,1,1,'','Me interesa','José Vicente,\n\nMe interesaría el ejemplo, quizá puedas enviarmelo o mejor aún subirlo a HyperUpload de manera que todo el que consulte el foro lo pueda bajar sin molestarte.\n\nMe parece muy interesante lo que planteas, todo lo que tenga que ver con no salir de FWH para lograr los objetivos me gusta.\n\nGracias desde ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','23y3s3qm',1,0,'',439,0,0),(14419,3262,6,422,0,'195.8.13.161',1150402102,1,0,1,1,1,1,'','__HBOLE__','Efectivamente  era asi .... /D__HBOLE__   <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nque cosas no???  \n\nMe quedó claro <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\n\nSaludos..\n\nRicardo R.','',0,'gA==','1vbx2lzk',1,0,'',422,0,0),(14420,3261,4,240,0,'85.201.105.5',1150402406,1,0,1,1,1,1,'','','Hello,\nI use a small program called \"Card Export\".\nIt resides on the pocket PC, nothing on the desktop.\nWhen installed, it gives you the choice between Card Export or Active Synch.\nIf you choose Card Export, it will emulate a USB drive.\nThe limitation is that you can access only the SD Card or the Pocket PC file store directory.\nThis is not a problem to me as I put everything on the SD Card. It is much bigger and secure then the Pocket PC RAM.\nThe advantage is the speed ... far much faster then Active Synch and the simplicity to use it ... from your desktop, a simple copy will work.','',0,'gA==','ztwii77v',1,0,'',240,0,0),(14421,3291,2,375,0,'84.122.123.222',1150404806,1,0,1,1,1,1,'','','En teoría, oGet:nLastKey tiene el valor de la última tecla pulsada. Puedes intentar leerla llamando a una funcciion desde el VALID del oGet, pues, en teoría también, esas teclas hacen que salgas del GET. (la funcion tiene que devolver .T.)','',0,'gA==','2yx11wdn',1,0,'',375,0,0),(14422,3133,2,375,0,'84.122.123.222',1150405147,1,0,1,1,1,1,'','','Prueba con BEGIN SEQUENCE.\nCuando pulses una tecla que haga un BREAK para que no se complete la funcion y empiece de nuevo a cada pulsacion.','',0,'gA==','26ncv53d',1,0,'',375,0,0),(14423,3265,2,375,0,'84.122.123.222',1150405245,1,0,1,1,1,1,'','','Si quieres seguir con el STYLE tiene que poner STYLE nOr(WS_BORDER)','',0,'gA==','1095mwp9',1,0,'',375,0,0),(14424,3292,6,582,0,'201.252.112.92',1150405997,1,0,1,1,1,0,'','','Jose Luis perdon que te contradiga, pero un campo o varios encriptados  funcionan perfectamente con indices.\nAhora es verdad, solo funciona con caracteres, pero si en difinitiva lo que se pretende es proteger la informacion, tranquilamente se pueden hacer las funciones necesarias para manejar campos numerico o de fecha.\n\nAhora lo que dice Rene, es totalmente cierto, con ADS es realmente simple manejar la seguridad de los datos\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','297hy29e',1,0,'',582,0,0),(14425,3292,6,228,0,'201.245.222.85',1150406067,1,0,1,1,1,1,'','me uno','Me uno a la peticion, de antemano gracias\n\n<!-- e --><a href=\"mailto:leandroalfonso@omaldy.com\">leandroalfonso@omaldy.com</a><!-- e -->\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:leandro111@etb.net.co\">leandro111@etb.net.co</a><!-- e -->','',0,'gA==','3mhdnn4a',1,0,'',228,0,0),(14426,3289,3,239,0,'219.136.110.136',1150421290,1,0,1,1,1,0,'','','Could you  post out your samples ? We used tsbutton without much problems.\n\nRegards\nShuming Wang','',0,'gA==','38nar69v',1,0,'',239,0,0),(14427,3304,4,95,0,'201.145.144.220',1150422357,1,0,1,1,1,0,'','Tone function','Long time ago ... \n\nAnyway, tomorro play mexico and hope win ...\n\nOk, lets to the topic...\n\n1.- Is tone function implement ?\n\n2.- Why when I minimize my app, it quit like if I push the button \"X\" ..\n\nBest Regards to all\nOsvaldo Ramirez','',0,'gA==','3bjisgqk',1,0,'',95,0,0),(14428,3305,3,239,0,'219.136.110.136',1150422391,1,0,1,1,1,0,'','Auto fits/sorts controls of dialog in different resolutions','Dear All,\n  Our dialog resources in dll designed to 800*600 resolution , now we write a small function( called on dialog init) to auto fit/sort  controls of dialog according different resolution as 1024*768,1280*1024, all the controls seems OK, but  -1 ids (static text, groups) seems not exists in odialog:acontrols,how to detect these -1 ids ?\n\n\n   rsl0:=getsysmetrics(0)/800\n   rsl1:=getsysmetrics(1)/600\n   for  i:=1 TO LEN(odlg:acontrols)\n       oCtrol = odlg:aControls[i]\n       aRect = GetCoors( oCtrol:hWnd )\n       oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1, (aRect[4] - aRect[2])*rsl0, (aRect[3] - aRect[1])*rsl1, .t. )        \n   next\n\nBest  regard!\nShuming Wang','',0,'','yih63beq',1,0,'',239,0,0),(14429,3306,6,141,0,'201.152.251.227',1150426247,1,0,1,1,1,1,'','ImageList en Treeview con Dialogo','Hola a todos,\n\nHe buscado agregar un ImageList a un Treeview, pero no me funciona.  Alguien sabe o ha tenido la experiencia de decirme porque no funciona este codigo?\n\n[code:1t296xmu]\n#Include &quot;FiveWin&#46;ch&quot;\n\nFunction Main&#40;&#41;\n\n   LOCAL oDlg, oTree, oImageList\n\n   DEFINE DIALOG oDlg TITLE &quot;TreeView from source&quot;\n\n   oImageList = TImageList&#40;&#41;&#58;New&#40;&#41;\n\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\folder&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\fldMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\form&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\frmMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\icon&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\icoMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\bitmap&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\bmpMask&#46;bmp&quot;, oDlg &#41; &#41;\n\n   @ 0&#46;5, 1 TREEVIEW oTree OF oDlg SIZE 80,60 COLOR 0, GetSysColor&#40; 5 &#41;\n\n   oTree&#58;SetImageList&#40; oImageList &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED ON INIT AddItems&#40; oTree &#41;\n\n\nReturn NIL\n\n********************************************************************************\nFunction AddItems&#40; oTree &#41;\n********************************************************************************\n   local oItem1, oItem2, oItem3\n\n   oItem1 = oTree&#58;Add&#40; &quot;First&quot;, 0 &#41;\n\n            oItem1&#58;Add&#40; &quot;One&quot;, 1 &#41;\n            oItem1&#58;Add&#40; &quot;Two&quot;, 1 &#41;\n            oItem1&#58;Add&#40; &quot;Three&quot;, 1 &#41;\n\n   oItem2 = oTree&#58;Add&#40; &quot;Second&quot;, 0 &#41;\n\n            oItem2&#58;Add&#40; &quot;Hello&quot; &#41;\n            oItem2&#58;Add&#40; &quot;World&quot; &#41;\n\n   oItem3 = oTree&#58;Add&#40; &quot;Third&quot;, 0 &#41;\n\n            oItem3&#58;Add&#40; &quot;Last&quot; &#41;\n            oItem3&#58;Add&#40; &quot;item&quot; &#41;\n   oTree&#58;Expand&#40;&#41;\n\nReturn NIL\n[/code:1t296xmu]\n\nGracias anticipadas,','',0,'AIA=','1t296xmu',1,0,'',141,0,0),(14430,3307,3,266,0,'219.93.77.1',1150427614,1,0,1,1,1,1,'','display animated gif','how to display animated gif in window/dialog ? \n\nI try the gif89 class and give me windows error \'general fault\'','',0,'AIA=','1uxhyf4r',1,0,'',266,0,0),(14431,3306,6,141,0,'201.152.251.227',1150428034,1,0,1,1,1,1,'','','Ok, Ok, Ok.... me contesto yo mismo:\n\nHay que pasar el oImageList a la funcion que se llama al ON INIT del dialogo, e invocar alli el metodo del treeview\n\noTree:SetImageList( oImageList )\n\n.... y listo!\n\nPerdonen, es que siempre tengo que buscar.\n\nLa pregunta ahora es:  ¿De verdad que no se puede cambiar el BMP en tiempo de ejecucion?   Deseo hacerlo para incluir una configuracion del sistema estilo arbol, pero debo cambiar los BMP en tiempo de ejecucion\n\nGracias por soportarme !','',0,'AIA=','xhw20xyk',1,0,'',141,0,0),(14432,2139,6,628,0,'200.117.8.147',1150429390,1,0,1,1,1,0,'','TopenOffice','Oskar se puede acceder a Writer con esa clase? \n\n\nAtte\nCDG','',0,'AIA=','1d0bd3tu',1,0,'',628,0,0),(14433,3304,4,2,0,'87.218.146.32',1150431868,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; 1.- Is tone function implement ? \n\nHarbour implements it but it looks as it does not sound on the Pocket PC. We will review it.\n\n&gt; 2.- Why when I minimize my app, it quit like if I push the button \"X\" .. \n\nwhen you click on the \"X\", Windows Mobile tries to iconize the application instead of closing it, so FWPPC uses such event to close it, as we understand that this way its easier for the user.','',0,'AIA=','1lbktdjh',1,0,'',2,0,0),(14434,3284,6,109,0,'200.77.22.161',1150434886,1,0,1,1,1,0,'','','Solucionado, Gracias','',0,'AIA=','1aqg98p7',1,0,'',109,0,0),(14435,3308,6,109,0,'200.77.22.161',1150435353,1,0,1,1,1,0,'','Pintado de Xbrowse','Como puedo solucionar el siguiente problemita?\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/027902a953/paintmail.bmp.html\">http://hyperupload.com/download/027902a ... l.bmp.html</a><!-- m -->\n\n[/img]','',0,'','33gzn18p',1,0,'',109,0,0),(14436,3308,6,109,0,'200.77.22.161',1150435808,1,0,1,1,1,0,'','','perdon, aqui va la direccion\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/027902a939/paintmail.bmp.html\">http://hyperupload.com/download/027902a ... l.bmp.html</a><!-- m -->','',0,'','1ltauf5u',1,0,'',109,0,0),(14437,3308,6,109,0,'200.77.22.161',1150436022,1,0,1,1,1,0,'','','Disculpen, pero no he podido enviar la imagen, para que me puedan ayudar. Pero el caso es que al estar dentro del browse:\n\n  Cuando se esta en la primer columna de la primera linea, todo ok, pero cuando en esa misma linea se oprime FLECHA DERECHA, la linea se \"COME\" parte del SCROLL VERTICAL, asi que al oprimir la FLECHA ABAJO, el SCROLL VERTICAL se ve mal.\n\n  XHARBOUR\n\n\nGracias','',0,'','396csxdc',1,0,'',109,0,0),(14438,3304,4,2,0,'87.218.146.32',1150436840,1,0,1,1,1,1,'','','Osvaldo,\n\nIt looks as Tone() doesn\'t work either on Windows XP. We have reported it to the Harbour mailing list to check it.','',0,'','2z2dhpu1',1,0,'',2,0,0),(14439,3308,6,2,0,'87.218.146.32',1150436934,1,0,1,1,1,1,'','','Ricardo,\n\nLas imágenes puedes alojarlas en <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y copiar aquí el enlace que te proporcionan.','',0,'','21rx6yv7',1,0,'',2,0,0),(14440,3296,6,413,0,'194.106.16.43',1150443986,1,0,1,1,1,0,'','','Gracias Antonio, con tus respuestas ahorro mucho tiempo, la verdad no podia imaginarme que era para clipper. \n\nRene me gusta tu apreciacion de no reinventar el hilo negro. Normalmente cuando pasa esto es que quieres sacarle mas partido a lo que tienes. He consultado la ayuda de crystal Reports y le podemos sacar mucho mas partido a la clase, añadiendole cositas y en eso estoy. Tengo una clase la TCRW32, que la verdad no se de donde me ha salido pero tiene algunas diferencias con respecto a la tuya y utilizando el visor de dll mediante (<!-- m --><a class=\"postlink\" href=\"http://www.dependencywalker.com/\">http://www.dependencywalker.com/</a><!-- m -->) - que es libre -, he podido averiguar que hay muchas cosas que se nos quedan en el tintero. Ademas en la ayuda del developer help de Crystal indica un monton de funciones muy utiles para los desarrolladores que no empleamos. Te dege un mensaje hace tiempo preguntandote cosas puesto que yo la verdad no estoy tan avanzado como tu y muchas cosas las ignoro. Estoy realizando un ejemplo de modificacion de la formula de seleccion para que asi el usuario cambie las condiciones del reporte en tiempo de ejecución y funciona perfectamente pero aun lo estoy optimizando. Creo que la gente ignora las bondades de la clase Crystal, y creo que si añadimos mas utilidades al wapper de crystal podemos ayudar a mucha gente, e indudablemete hoy por hoy este diseñador es de los mas punteros, cosa  facil ver con su integración en otros lenguajes de programación y la verdad herramientas como esta son las que necesitan nuestros programas puesto que te evitan muchas lineas de codigo. \nDesde que sacaron la clase la estoy utilizando, pero tan solo a nivel de reporte prediseñado. Esto supuso un avance en nuestra organizacion pero como siempre ahora la gente pide mas y quieren poder cambiar las condiciones de seleccion, poner un titulo, añadir un logo, que el reporte sea mas rapido, etc. En la ayuda del desarrollador crystal todo esto está y son funciones que aun no estan en la clase y por eso creo que tu apreciacion de no reinventar el hilo negro en este caso no se ajusta a la realidad. De todas maneras Rene no te tomes a mal este comentario, puesto que con gente como tu hemos y estamos aprendiendo muchos y lo unico que tengo son elogios a tu esfuerzo.\n\nUn saludo.','',0,'','3gc7o76h',1,0,'',413,0,0),(14441,3306,6,2,0,'87.218.146.32',1150448230,1,0,1,1,1,1,'','','Julio,\n\nPuede hacerse pero aún no esta implementado en FWH.','',0,'','2oj2fek9',1,0,'',2,0,0),(14442,3309,3,67,0,'62.235.24.134',1150448884,1,0,1,1,1,0,'','Problems with shellexecute()','Hello,\n\nToday , i have problems , when i try to use :\n\n? Shellexecute(GetActiveWindow(),\"open\",xlsfile) // returns 42 , not a error\n\nThe xlsfile is created with ClipWks (for xharbour) and can be launched from windows with clicking on it.\n\n\nFUNC MAIN(cFile)\nIF cFile == nil\n   cFile := \"c:\\program Files\\Microsoft Works\\wksss.exe c:\\temp\\HulpTxt4.xls\"\nEND\n? Winexec(cFile) // Ok , it works !!!!!!!\ncFile := \"c:\\temp\\HulpTxt4.xls\"\n? shellexecute(GetActiveWindow() ,\"open\" ,cFile)\n// doesn\'t work , shows only shortly the logo , return code 42\n? \"ok shellexecute\"\nRETURN\n\nAfter this shellexecute the xls-file has to be closed with the task manager\n\n\nSo far as i know , till yesterday there were no problems , i don\'t know what has changed !\n\nFrank','',0,'','2hpfguci',1,0,'',67,0,0),(14443,3310,3,413,0,'194.106.16.43',1150455581,1,0,1,1,1,0,'','Como se hace un Wrapper.','Perdon por la cuestion pero lo no se me ocurre un topic mas adecuedo para mi pregunta. He visto varias clases que hacen de envoltorio a otras dll de programas y me preguntaba es si existe algun estandar para construir estos wrapper desde Fivewin o lenguajes Xbase. He buscado en la documentación de Fivewin y no encuentro o no se como encontrar esto que pregunto. Insistiendo en el tema quiero saber si existe algun tipo de standar para traducir otros lenguajes a Fivewin, v.gr.: como se yo como transformar las variables de un lenguage a otro, como se yo si un bool en c lo pongo a Long en fivewin. Existe alguna clase TWrapper (Que no he encontrado) o alguna funcion C que haga este proceso.\n\n\nUn saludo.','',0,'','16tapfcm',1,0,'',413,0,0),(14444,3290,6,217,0,'200.159.120.34',1150455841,1,0,1,1,1,0,'','','Raymundo, muchas gracias!!!\n\nSaludos de Brasil\nMaurilio','',0,'','5wuga2bm',1,0,'',217,0,0),(14445,3306,6,46,0,'217.168.114.166',1150457419,1,0,1,1,1,0,'','','Veams si esto resulta..\nAgrega este metodo a TTVItem.prg\n\n[code:v6nzuan4]\nMETHOD Set&#40; cPrompt, nImage &#41; CLASS TTVItem\n   DEFAULT cPrompt &#58;= &#58;&#58;cPrompt, ;\n           nImage  &#58;= &#58;&#58;nImage\n\n   TVSetTextImage&#40; &#58;&#58;oTree&#58;hWnd, &#58;&#58;hItem, cPrompt, nImage &#41;\n\n   Return nil\n\n#pragma BEGINDUMP\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;CommCtrl&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\nHB_FUNC &#40; TVSETTEXTIMAGE &#41; // &#40; hWnd &#41; --&gt; cText\n&#123;\n   HWND hWnd = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n   HTREEITEM hItem = &#40; HTREEITEM &#41; _parnl&#40; 2 &#41;;\n   TV_ITEM tvi;\n   tvi&#46;hItem      = hItem;\n\n   tvi&#46;mask    = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE;\n   tvi&#46;pszText = _parc&#40; 3 &#41;;\n   tvi&#46;iImage  = _parnl&#40; 4 &#41;;\n   tvi&#46;iSelectedImage = _parnl&#40; 4 &#41;;\n   TreeView_SetItem&#40; hWnd, &amp;tvi &#41;;\n\n&#125;\n\n#pragma ENDDUMP\n\n[/code:v6nzuan4]\n\nAhora puedes utilizar\n\noItem:Set( \"MI Texto Nuevo\", 2 )\n\nten presente que 2 es el tercer elemento en tu ImagenList, porque la numeracion comienza de 0\n\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','v6nzuan4',1,0,'',46,0,0),(14446,3296,6,138,0,'201.123.96.6',1150462015,1,0,1,1,1,1,'','','Entre nosotros.... la solucion de la clase TCRPE es un pelin complicada, jejeje\nsi lo haces por OLE todo va mucho mas rapido, porque no tienes que wrappear ninguna funcion.\n\noCrystal := TOLEAUTO():New(\"Crystal.CRPE.Application\")\n\nY a partir de ahi haces todo lo que quieras.','',0,'AIA=','3d2p05t1',1,0,'',138,0,0),(14447,3310,3,2,0,'87.218.146.32',1150462669,1,0,1,1,1,1,'','','Andrés,\n\nSi revisas el código fuente de las funciones en C de FiveWin, muchas de ellas son \"wrappers\" a funciones contenidas en DLLs de Windows.\n\nDepende de lo que quieras hacer: si quieres adaptar una función en otro lenguaje a Clipper, ó si deseas acceder a una función contenida en una DLL.','',0,'AIA=','2a990rif',1,0,'',2,0,0),(14448,3311,3,632,0,'201.155.170.251',1150463940,1,0,1,1,1,0,'','Debugg in Fivewin ?','Hola mi pregunta es si existe algun debugger para five win \n&gt; donde pueda \n&gt; &gt; ver el comportamiento de las variables y las base de datos \n&gt; alojadas en \n&gt; &gt; memoria.\n&gt; \nme interesa mucho ya q no tengo manera evaluar el comportamiento del sistema. podrian darme un ejemplo docimentacion o algo q pueda orientarme se los agradeceria mucho.\ncualquier informacion podrian enviarla a este correo\n\n<!-- e --><a href=\"mailto:chiverin@hotmail.com\">chiverin@hotmail.com</a><!-- e -->','',0,'AIA=','2txa5qfq',1,0,'',632,0,0),(14449,3312,6,632,0,'201.155.170.251',1150464237,1,0,1,1,1,0,'','Debugger en Fivewin ?','Hola mi pregunta es si existe algun debugger para five win \n&gt; donde pueda \n&gt; &gt; ver el comportamiento de las variables y las base de datos \n&gt; alojadas en \n&gt; &gt; memoria.\n&gt;  yo compilo mis programas con \n&gt; el AJMAKE q viene incluido con el fivewin para xharbour.\n\n\ncualquier ayuda(documentacion,ejemplo) al repecto, se los agradeceria mucho ya q no tengo forma de evaluar el comportamiento de mis sistemas.\n\nse los agradeceria mucho.','',0,'AIA=','ha1q7o31',1,0,'',632,0,0),(14450,3313,2,328,0,'72.252.65.214',1150464352,1,0,1,1,1,0,'','TDosPrn en COM1','Hola a todos, espero me puedan ayudar con esto.\nNecesito mandar a imprimir a impresora EPSON TMU220 serial al COM1, y estoy utilizando lo mismo que hago para imprimir a la misma impresora pero en paralelo LPT1 o LPT2, y cuanod envió la impresion me da el erorr que no puede abri el puerto COM1\n\nAlquien sabe como imprimir con TDosPrn en el puerto COM1?\n\nGracias y saludos.\n\nCarlos Sincuir','',0,'AIA=','ffjkt85l',1,0,'',328,0,0),(14451,3314,6,228,0,'201.244.251.245',1150465862,1,0,1,1,1,1,'','Ejecutable 32 bits en windows 95','Alguien sabe si existe algun problema con los ejecutables de  32 bits en windows 95. No me corre un programita. Que debo hacer, sugerencias.?\n\nDe antemano gracias','',0,'AIA=','5n8ik0w9',1,0,'',228,0,0),(14452,3289,3,343,0,'204.57.111.194',1150467435,1,0,1,1,1,0,'','','The sample that comes with tsbutton does not work right.\n\nBuild testbtn.prg\nThen hover over the wheel or pig. The wheel should spin but it shows the first image and then blanks out for the other images in the movie.','',0,'AIA=','b7q6kxkv',1,0,'',343,0,0),(14453,3307,3,15,0,'203.73.98.36',1150469525,1,0,1,1,1,0,'','','Hello \n\nI\'m try ActiveX Gif component.\nIf ok, I will publish it.\n\nRegards,\n\nRichard','',0,'AIA=','2a16nvcp',1,0,'',15,0,0),(14455,3315,6,272,0,'200.27.37.2',1150471716,1,0,1,1,1,0,'','Preview con exportación a Html, Xls, Word','Estimados.\n\nEstimados como actual usuario de asp.net y ex-usuario de fivewin,  me he acostumbrado a crystal report y dentro de sus opciones está la de exportar a  html, xls, word. y me doy cuenta que es una de las opciones que más me encanta de crystal.\nahora mi pregunta. algunos del foro estarían deacuerdo en pagar por alguna herramienta que haga lo mismo pero sin tener que depender de otras herramientas ?.. me explico. el mismo report que tenemos funcionando hace mucho tiempo lo recompilamos y tengamos estas opciones incluidas en el preview... y sin tener que depender si tenemos excel, word, o PDFCreator en nuestra estación ???\n\n\nla idea sería ver el interes, y terminar lo que empecé tiempo atras.. \nel costo sería minimo (5Euros Maximo), la idea sería llegar a un limite, y despues liberarlo para toda la comunidad. \ncon esto pretendo saldar algunas cosillas que quedaron del tiempo que pasé desempleado <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->.\n\n\nSaludos\n\n\nMiguel Angel','',0,'AIA=','5i6hpr55',1,0,'',272,0,0),(14456,3274,3,148,0,'82.201.235.44',1150475218,1,0,1,1,1,0,'','','How can I make the .rmk file under harbour becuase the rmk file is written for clipper \n[code:nptff0ss]\nOneMany&#46;exe &#58; OneMany&#46;obj\n   SET LIB=&#46;&#46;\\&#46;&#46;\\&#46;&#46;\\lib;c&#58;\\clipper5\\lib\n   blinker fi OneMany @&#46;&#46;\\&#46;&#46;\\&#46;&#46;\\include\\FiveWin\n   Brc -K OneMany\n\nOneMany&#46;obj &#58; OneMany&#46;prg\n   c&#58;\\clipper5\\bin\\clipper OneMany /n/i&#46;&#46;\\&#46;&#46;\\&#46;&#46;\\include\n[/code:nptff0ss]','',0,'AIA=','nptff0ss',1,0,'',148,0,0),(14457,3283,2,235,0,'200.56.66.53',1150476092,1,0,1,1,1,0,'','','tendras algun ejemplo que me puedas proporcionar???\n\nde antemano muchas gracias.','',0,'AIA=','3f4kj9n6',1,0,'',235,0,0),(14458,3316,3,217,0,'200.159.120.34',1150476313,1,0,1,1,1,0,'','OT: Debugger to no souce code exe file','Hi!\n\nI must debug an exe file (without source). I must check step by step each instruction performed, values in memory etc.\nDoes anybody know a program to do it and were I can find?\n\nThe program was wrote in Visual C++ by a chinese company. It is used to get values from a electronic ballast analyzer and is connected in COM1 port. The program receive data from analyzer (hexadecimal values) and translate it to decimal values. We must create a software to interact with analyzer because the original program have any limitations and do any wrong calculations. We try contact the manufacturer in China but I think it don\'t exist anymore <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nThen I thinking debug the software and try understand what it do. I decompiled it with DisAsm but ASM source code don\'t aided. After I decompilded with REC (it mix ASM code with C code), it aided a bit more but isn\'t sufficient...\n\nThanks a lot.\nMaurilio','',0,'AIA=','1v0o46b8',1,0,'',217,0,0),(14459,3304,4,95,0,'201.107.19.49',1150477288,1,0,1,1,1,0,'','','The idea is :\n\nwhen the user scan a barcode it sound, and I put a say telling the status of the inventory, I mean can continue, please re-enter the inventory or barcode doesn exist.\n\nBut the user need to read the screen to what is the next steep. so I want avoid this, and If I put a tone when the inventory doesn check, the user can take more fast the inventory.\n\nAntonio, I didnt undertand you point about minimize the app ... \n\nBest Regards\nOsvaldo Ramirez','',0,'AIA=','kwtpxbr1',1,0,'',95,0,0),(14460,3311,3,2,0,'80.58.205.37',1150481643,1,0,1,1,1,1,'','','El debugger lo soporta Harbour/xHarbour automaticamente. Solo tienes que compilar los PRGs con /b y el debugger se inicia en una ventana de consola.','',0,'AIA=','38nyquln',1,0,'',2,0,0),(14461,3309,3,6,0,'87.18.215.223',1150485338,1,0,1,1,1,1,'','Re: Problems with shellexecute()','Try\n\n[code:jbtfeth4]? shellexecute&#40; 0, 0,&quot;c&#58;\\program Files\\Microsoft Works\\wksss&#46;exe&quot;, &quot;c&#58;\\temp\\HulpTxt4&#46;xls&quot;, 0, 1 &#41;[/code:jbtfeth4]\n\nEMG','',0,'AIA=','jbtfeth4',1,0,'',6,0,0),(14462,3305,3,6,0,'87.18.215.223',1150485539,1,0,1,1,1,1,'','Re: Auto fits/sorts controls of dialog in different resoluti','[quote=&quot;ShumingWang&quot;:1ecux9zv]how to detect these -1 ids ?[/quote:1ecux9zv]\n\nYou can\'t, as far as I know.\n\nEMG','',0,'gA==','1ecux9zv',1,0,'',6,0,0),(14463,3317,3,148,0,'82.201.235.44',1150493217,1,0,1,1,1,0,'','sample error','Compiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'mscomm32.prg\' and generating preprocessed output to \'mscomm32.p\n\nLines 18, Functions/Procedures 1\nGenerating C source output to \'mscomm32.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nmscomm32.c:\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_TOLEAUTO\' referenced from E:\\COMPILER\\\nR\\FWH\\SAMPLES\\MSCOMM32.OBJ','',0,'gA==','1p7smqld',1,0,'',148,0,0),(14464,3273,3,148,0,'82.201.235.44',1150493395,1,0,1,1,1,0,'','','Though the file is exist (Clients.dbf)\nApplication\n===========\n   Path and name: E:\\COMPILER\\clipper\\FWH\\SAMPLES\\dbf03.exe (32 bits)\n   Size: 1,230,848 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 06/17/06, 00:29:13\n   Error description: Error ADSCDX/5025  Open error: Clients\n\nStack Calls\n===========\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from:  =&gt; CLIENTSBROWSE(191)\n   Called from:  =&gt; (b)BUILDMENU(46)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(29)','',0,'gA==','2lg1hq9o',1,0,'',148,0,0),(14465,3311,3,632,0,'201.155.170.251',1150493974,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1mekrinu]El debugger lo soporta Harbour/xHarbour automaticamente. Solo tienes que compilar los PRGs con /b y el debugger se inicia en una ventana de consola.[/quote:1mekrinu]\n\nHola.\n\nSoy yo nuevamente y disculpa mi ignorancia pero como compilo con /b\nmis prgs si tengo un compilador q es el AJMAKE 0.30 y fw 2.4 para xharbour. ¿En donde tengo q poner la /b? ya q no se donde.\n\nY ¿como le ago para trabajar en esa venta de la consola?. q tengo q utilizar ¿El cld de clipper o cual? pasame algun link por favor donde encuentre informacion.  Gracias de antemano.','',0,'gA==','1mekrinu',1,0,'',632,0,0),(14466,3256,6,376,0,'201.230.223.64',1150494838,1,0,1,1,1,0,'','Re: FWH','Revisa el archivo buildx.bat y desactvas la línea donde aparece ACE32.LIB, si es que no vas a utilizarla. En caso contrario mira la carpeta lib del xharbour o harbour que estes utilizando para verificar su existencia. Es posible que no haya y enotnoces debes conseguirla de las distribuciones en sourceforge.\n\n\n[quote=&quot;QAZWSX2K&quot;:l7obbx99]saludos ya pude compilar sin errores mi aplicacion a harbour y la misma se inicia correctamente lo cualme dio alegria pero me abre paralelamente un ventana de DOS la cual tengo luego que cerar manualmente, que sera?\n\n\ntambien me pide una libreria ACE32.lib que solo la tenia en fw2.2, para que es esta libreria, seria esta la causa?\n\ngracias[/quote:l7obbx99]','',0,'gA==','l7obbx99',1,0,'',376,0,0),(14467,3314,6,376,0,'201.230.223.64',1150495321,1,0,1,1,1,0,'','Re: Ejecutable 32 bits en windows 95','Que se sepa, ninguno. Mis aplicaciones corren indistamente desde win95 hasta XP. Si no corren tus programas debe ser por otra cosa.\n\n[quote=&quot;leandro&quot;:9y5efkaj]Alguien sabe si existe algun problema con los ejecutables de  32 bits en windows 95. No me corre un programita. Que debo hacer, sugerencias.?\n\nDe antemano gracias[/quote:9y5efkaj]','',0,'gA==','9y5efkaj',1,0,'',376,0,0),(14468,3318,6,376,0,'201.230.223.64',1150495781,1,0,1,1,1,0,'','Enviar correos directamente desde FWH sin pasar por outlook','Amigos.\n\nAlguien tiene una rutina o ejemplo de cómo enviar correos elect´rnicos sin tener que invocar al Outlook u otro parecido.\n\nSi hubiera me pueden compartir su codigo. Ando necesitado de enviar cientos de correos para distribuir una aplicación GRATUITA referida a Control de Stocks  para todo tipo de tienda que maneje andamios y casillas donde se ubican los productos que venden.\n\nEl que quiera un ejemplar acepto peticiones en <!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e -->\n(este es un ejemplo para alguna pregunta del foro acerca si se debe continuar utilizando DBF como tablas de datos --los que conocen de MySql o PostGress u Oracle que nos digan si es posible presentar los datos como en este ejemplo y cómo se hace?\n \nSaludos a todos\n\nArmando','',0,'gA==','1r8h7wck',1,0,'',376,0,0),(14469,3315,6,49,0,'87.10.179.247',1150496042,1,0,1,1,1,1,'','','I\'m working to converte my multipreview with xp windows theme...\nIt show 2,4,6,8 page \nit converte on\njpg,bmp,jpeg,Koala,IFF,Mng,Pbm,Pbmraw,pcd,pcx,png,ras,targa,tiff,wbmp,pds,cut and other format using the freeImage.dll and the Image class Of Enrico Giordano with sme modifies.\nIt Converte on Excel file but only with Report class \nwe are working to create conversion to pdf and html\nyou can see the our project at \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029017c023/Multipreview.jpg.html\">http://hyperupload.com/download/029017c ... w.jpg.html</a><!-- m -->\n\nBest Regards\nFalconi Silvio \nFivewin Italia','',0,'gA==','nx37ufq4',1,0,'',49,0,0),(14470,3256,6,221,0,'201.248.220.147',1150498658,1,0,1,1,1,0,'','gracias','pero no busco la libreria esa ya la tengo lo que me preocupa es la ventana de DOS que me abre y la tengo que cerrar a mano, es una molestia para el cliente que abre la ventana de comandos cada vez que ejecuta el programa','',0,'gA==','3c8jq2tx',1,0,'',221,0,0),(14471,3111,2,221,0,'201.248.220.147',1150498763,1,0,1,1,1,0,'','ole32','saludos y gracias, ya probe la ole que me recominedas pero al parecer solo sirve para office 97, abra alguna para officed XP y 2003, gracias','',0,'gA==','3gpt14j8',1,0,'',221,0,0),(14472,3314,6,138,0,'200.67.30.7',1150502744,1,0,1,1,1,1,'','','Hasta donde tengo entendido, las aplicaciones Windows 32 bits hechas con (x)Harbour solo corren a partir de Windows 98 SE, aplicaciones con Windows95 quedan fuera.\n\nSolucion: cambiar el sistema operativo, acutalizarlo a 98 SE','',0,'gA==','1fin3pth',1,0,'',138,0,0),(14473,3318,6,138,0,'200.67.30.7',1150502945,1,0,1,1,1,1,'','','Mira el ejemplo TESTSMTP.PRG dentro de los ejemplos de FiveWin, eso hace lo que tu necesitas. Requieres tener una cuenta de correo SMTP compatible','',0,'gA==','nb4y4e1h',1,0,'',138,0,0),(14474,3312,6,138,0,'200.67.30.7',1150503122,1,0,1,1,1,1,'','','No existe un debugger para FW como tal.\n\nLo que puedes hacer es compilar tus programas con /B y luego introducir en algun punto de tu programa una llamada a la funcion ALTD() para activar el debugger de Harobur en una ventana de MS-DOS corriendo paralelamente a la aplicacion Windows.\n\nDepurar una aplicacion en Windows es bastante dificil por el tema del manejo de eventos.','',0,'gA==','96mxrrih',1,0,'',138,0,0),(14475,3111,2,138,0,'200.67.30.7',1150503326,1,0,1,1,1,1,'','','OLE debe de poder funcionar en todos los Office, al menos claro, que no hayas instalado todos los componentes en el disco duro.','',0,'gA==','1q3e829r',1,0,'',138,0,0),(14476,3319,2,235,0,'200.56.67.58',1150506460,1,0,1,1,1,0,'','existe alguna funcion.....','que permita checar si hay o no un disquette colocado en el drive A???\n\nde antemano muchas gracias.','',0,'gA==','2df1pg7i',1,0,'',235,0,0),(14477,3319,2,168,0,'201.249.151.234',1150513846,1,0,1,1,1,0,'','','Puedes tratar de hacer una llamada a Directory a la unidad A pero encerrandola en un Try Catch','',0,'gA==','3ji5g2i5',1,0,'',168,0,0),(14478,3320,2,328,0,'72.252.67.128',1150515551,1,0,1,1,1,0,'','Impresora Serial en COM1','Hola a todos, disculpen que siga molestando con esto, pero no encuentro la forma de poder imprimir en una impresora de Tickets Epson TMU220 en el puerto serial COM1.\nEstoy utilizando la TDosPrn, y al indicarle que utilize el puerto COM1, solo recibo el mensaje que no puede abrir el puerto.\nHice unas pruebas con la TDosPrn modificada por LKM, pero igual, no imprime nada y no me da ningun mensaje de error.\nAlguie tiene algo para imprimir en impresoras de tickets seriales que me pueda dar una ayuda.\nEstoy utilizando Clipper 5.3 y FW2.4\nGracias.\n\nCarlos Sincuir','',0,'gA==','1x7ntob9',1,0,'',328,0,0),(14479,3321,6,328,0,'72.252.67.128',1150515694,1,0,1,1,1,0,'','Impresora Serial en COM1','Hola a todos, disculpen que moleste con esto, pero no encuentro la forma de poder imprimir en una impresora de Tickets Epson TMU220 en el puerto serial COM1, y ya puse un mensaje anterior el foro de clipper pero no he recibido respuesta.\n\nEstoy utilizando la TDosPrn, y al indicarle que utilize el puerto COM1, solo recibo el mensaje que no puede abrir el puerto. \nHice unas pruebas con la TDosPrn modificada por LKM, pero igual, no imprime nada y no me da ningun mensaje de error. \nAlguie tiene algo para imprimir en impresoras de tickets seriales que me pueda dar una ayuda. \n\nEstoy utilizando Clipper 5.3 y FW2.4 \nGracias. \n\nCarlos Sincuir','',0,'gA==','20cd94rw',1,0,'',328,0,0),(14480,3283,2,9,0,'85.54.246.6',1150516848,1,0,1,1,1,1,'','','Geraro, \n\nEn este topic del Foro Fivewin para Clipper, tienes unos comentarios y ficheros de como utilizo MS-Office:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2855\">http://fivetechsoft.com/forums/viewtopic.php?t=2855</a><!-- m -->','',0,'gA==','30oqikl6',1,0,'',9,0,0),(14481,3311,3,2,0,'80.58.205.37',1150531610,1,0,1,1,1,1,'','','Nosotros no usamos el AJMAKE, pero seguramente tendrá una opción para seleccionar opciones de compilación, ó una casilla para debugger, ó información de debugger, ó /b.\n\nSi no lo encuentras, por favor envía un email al autor de AJMAKE. Gracias.','',0,'gA==','3ojsg6ti',1,0,'',2,0,0),(14482,3317,3,6,0,'87.1.198.229',1150536282,1,0,1,1,1,1,'','Re: sample error','You need of hbole.lib with Harbour. Otherwise use xHarbour which has OLE built in.\n\nEMG','',0,'gA==','2suu10ou',1,0,'',6,0,0),(14483,3273,3,2,0,'80.58.205.37',1150543335,1,0,1,1,1,1,'','','Ehab,\n\n5025 AE_INVALID_TABLETYPE\nAdvantage Error Guide\n\nAn invalid table type was specified. Valid choices are ADS_CDX, ADS_NTX or ADS_ADT. The table type must support the memo file type to be opened, if applicable. The ADS_ADT table type supports ADT tables, ADI indexes, and ADM memos. The ADS_CDX table type supports DBF tables, CDX and IDX indexes, and FPT memos. The ADS_NTX table type supports DBF tables, NTX indexes, and DBT memos.','',0,'gA==','3kjhht7a',1,0,'',2,0,0),(14484,3304,4,2,0,'80.58.205.37',1150543642,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt;\nBut the user need to read the screen to what is the next steep. so I want avoid this, and If I put a tone when the inventory doesn check, the user can take more fast the inventory. \n&gt;\n\nYou may try MsgBeep()\n\n&gt; I didnt undertand you point about minimize the app ...\n\nWindows Mobile operating system implements a different behavior for \"X\" top right button. When you click on it, the application dessapears, but in fact, has been minimized (you may access it again from the task manager or running it again). In our opinion, this is confusing for the user, as the expected behavior is that the application gets closed.\n\nSo FWPPC uses such event (click on \"X\") to close the app instead of minimize it. Thats why the Iconize msg, is closing the app too.','',0,'gA==','2b7shm8x',1,0,'',2,0,0),(14485,3322,3,148,0,'82.201.235.44',1150543672,1,0,1,1,1,0,'','onemany rmk file for harbour','How can I make the onemany.rmk file under harbour becuase the rmk file is written for clipper . What is the make syntax ?\n\n\nOneMany.exe : OneMany.obj \n   SET LIB=..\\..\\..\\lib;c:\\clipper5\\lib \n   blinker fi OneMany @..\\..\\..\\include\\FiveWin \n   Brc -K OneMany \n\nOneMany.obj : OneMany.prg \n   c:\\clipper5\\bin\\clipper OneMany /n/i..\\..\\..\\include','',0,'gA==','fqquguoi',1,0,'',148,0,0),(14486,3316,3,2,0,'80.58.205.37',1150543932,1,0,1,1,1,1,'','','Maurilio,\n\nYou may load it and execute it, (step by step) using the Microsoft debugger or other debuggers like softice. If the app has symbolic info into it, then it may help you much more.','',0,'gA==','3qbz5t00',1,0,'',2,0,0),(14487,3322,3,2,0,'80.58.205.37',1150544053,1,0,1,1,1,1,'','','Ehab,\n\nYou may copy that sample files to the samples directory and perform a buidh.bat onemany','',0,'gA==','31bdkbph',1,0,'',2,0,0),(14488,3303,11,2,0,'80.58.205.37',1150544175,1,0,1,1,1,1,'','','Dave,\n\nYes, you may link the libs to produce a self contained application. Please review FiveLinux samples\\build.sh bash file.\n\nAnyhow, that is a very typicall Linux issue: to install packages. Your customer should install the gpm package for its linux distribution.','',0,'gA==','1i6ihjuo',1,0,'',2,0,0),(14489,3256,6,2,0,'80.58.205.37',1150544496,1,0,1,1,1,1,'','','En las versiones más recientes de Harbour aparece una ventana de consola en Windows 98, pero no en Windows XP. Es un tema que está pendiente de corregirse en Harbour.','',0,'gA==','20xo6qxu',1,0,'',2,0,0),(14490,3043,1,2,0,'80.58.205.37',1150544721,1,0,1,1,1,1,'','','Rodolfo,\n\nEstamos revisando Genifer, como nos comentastes, para ver la forma de que pudiese usarse con FiveWin.','',0,'gA==','3pd7lg29',1,0,'',2,0,0),(14491,3323,3,178,0,'69.40.226.72',1150554304,1,0,1,1,1,1,'','Bitmap TextOut Font','Hello All,\n\nIs there a way to control or set the text font being used in the \nTextOut when I use it with a transparent bitmap?\n\nThanks','',0,'gA==','3ol52uj5',1,0,'',178,0,0),(14492,3323,3,6,0,'87.1.198.229',1150555899,1,0,1,1,1,1,'','Re: Bitmap TextOut Font','Try something like\n\n[code:1eovwlws]oBmp&#58;GetDC&#40;&#41;\nhOldFont = SelectObject&#40; oBmp&#58;hDC, oFont&#58;hFont &#41;\nTextOut&#40; &#46;&#46;&#46; &#41;\nSelectObject&#40; oBmp&#58;hDC, hOldFont &#41;\noBmp&#58;ReleaseDC&#40;&#41;\n[/code:1eovwlws]\n\nEMG','',0,'AIA=','1eovwlws',1,0,'',6,0,0),(14493,3318,6,72,0,'200.78.29.234',1150558399,1,0,1,1,1,0,'','','Aquí tienes un pequeño programa, se acompaña con la clase de LKM.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/email.zip\">http://www.despachoarteaga.com.mx/email.zip</a><!-- m -->','',0,'AIA=','8kj7v1qn',1,0,'',72,0,0),(14494,3323,3,178,0,'69.40.226.72',1150559107,1,0,1,1,1,1,'','','That works perfect.\n\nThanks Much for your help!!\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1yhhdue2',1,0,'',178,0,0),(14495,2139,6,439,0,'190.0.135.105',1150563296,1,0,1,1,1,1,'','TOpenOffice','[quote=&quot;oskar&quot;:3f919fp4]Verhoven\n\naqui tienes la clase\n\n[url=http&#58;//olin&#46;netfirms&#46;com/TOO&#46;zip:3f919fp4]TOpenOffice[/url:3f919fp4]\n\nen el zip va un fichero que se llama Main.Prg, es un programa de demo que te muestra lo que puedes hacer con la clase\n\nespero te sirva[/quote:3f919fp4]\n\nOskar, he tratado inutilmente de registrarme en tu sitio, podrías por favor enviarme a mi también esta clase?','',0,'kA==','3f919fp4',1,0,'',439,0,0),(14496,3324,6,327,0,'151.29.30.171',1150587944,1,0,1,1,1,0,'','ole32','could anyone send to me ole2 lib?\nmy address:eugenio.romeo@libero.it','',0,'kA==','3evu05uk',1,0,'',327,0,0),(14497,3325,20,49,0,'87.16.176.174',1150619981,1,0,1,1,1,1,'','SALVATAGGIO DI EMF CON FREEIMAGE','come si puo salvare le pagine dell\'anteprima di stampa con la funzione save di freeimage della classe Image di EMG\n\nSaveImage( cFile, nFormat, nFlag ) CLASS TImage\n   //   0 -&gt; Bmp\n   //   2 -&gt; Jpg\n   //  13 -&gt; Png\n\n\nper adesso sono riuscito a salvare ogni pagina di un report ma in emf ovviamente senza usare la freeimage\n\nSecondo Voi come potrei dire che tale pagine (EMF) la devo considerare come un Image ?\n\ngrazie','',0,'kA==','2aj2ea6f',1,0,'',49,0,0),(14498,3310,3,413,0,'217.125.9.228',1150623426,1,0,1,1,1,0,'','','Gracias Antonio, perdon por esta equivocacion y ponerlo en el foro ingles, ya me di cuenta de lo que dices y estaba revisando algunos ejemplos para ver como se hace. Solamente pensaba que alguien habia ya hecho este guiaburros para saber que pasos hay que dar, me he fijado que en otros lengujes como java ya lo tienen hecho, por eso era la pregunta. \n\nUn saludo','',0,'kA==','2fwu3dc5',1,0,'',413,0,0),(14499,3324,6,6,0,'82.59.188.80',1150623971,1,0,1,1,1,1,'','Re: ole32','Do you need ole2.lib for Clipper or hbole.lib for Harbour?\n\nEMG','',0,'kA==','1kyjhntp',1,0,'',6,0,0),(14500,3325,20,6,0,'82.59.188.80',1150624210,1,0,1,1,1,1,'','Re: SALVATAGGIO DI EMF CON FREEIMAGE','Non puoi dato che la FreeImage non gestisce né WMF né EMF. Questi formati sono gestiti dalla GFLSDK e da NConvert.\n\nEMG','',0,'kA==','oc30yund',1,0,'',6,0,0),(14501,3326,7,533,0,'88.9.153.31',1150628710,1,0,1,1,1,0,'','Valid para las Windows','Hola Foro!!\n\n     Sabéis si se ha resuelto el tema del Valid de un window. Quiero controlar la salida de mi aplicación, pero si pulso la X se va todo al garete.\n\n   Muchas gracias!!\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'kA==','1x9r6xmc',1,0,'',533,0,0),(14502,1984,4,68,0,'203.45.161.80',1150641449,1,0,1,1,1,1,'','','Antonio,\nPlease could you check the hyperupload link for the sample and resend if necessary.  I get \'bad url\'...\nThanks\nRegards','',0,'kA==','dy7pf14m',1,0,'',68,0,0),(14503,3327,3,171,0,'71.232.193.197',1150645079,1,0,1,1,1,0,'','JPG / BMP file encryption','We can encrypt DBF; but would be possible to encrypt graphics file like JPG or BMP?\n\nRegards\n\nGeorge','',0,'kA==','2hgyrain',1,0,'',171,0,0),(14504,3328,6,61,0,'201.217.172.105',1150647882,1,0,1,1,1,0,'','Antonio: Harbour y ventana DOS al iniciar en Win 98','Estimado Maestro:\n\nNo quisiera molestar\ny tampoco ser quejoso\npero la ventana DOS\nla verdad queda espantoso.\n\nHabria alguna manera\npara que esta no aparezca\no esperamos el nuevo build\npara que la cosa se esclarezca.\n\nMuchas gracias.\nSaludos\n\nRuben Fernandez\n(Hoy me levante rimerosasaso)javascript&#058;emoticon(\':lol:\')\nLaughing','',0,'kA==','244fxaoo',1,0,'',61,0,0),(14505,3317,3,148,0,'82.201.250.22',1150652996,1,0,1,1,1,0,'','','How can I use hbole.lib . I seached all the lib directories !! not found. Pls help I am not going to use xHarbour . How can I use it in buildhd.bat\nthanks','',0,'kA==','1fki2wp1',1,0,'',148,0,0),(14506,3317,3,6,0,'82.59.188.80',1150654463,1,0,1,1,1,1,'','','Sent to your private email.\n\nEMG','',0,'kA==','1h2crim4',1,0,'',6,0,0),(14507,3325,20,49,0,'82.61.128.67',1150662627,1,0,1,1,1,1,'','','sai per caso se Infarview ha rilasciato un activex perchè la mia vecchia versione usa appunto questo programma per la conversione..ehmm..la modifica la fece Marco Turco in verità....','',0,'kA==','1onqh5b1',1,0,'',49,0,0),(14508,3325,20,49,0,'82.61.128.67',1150663464,1,0,1,1,1,1,'','','Emg,\nHo trovato un sorgente ( cpp e H) per convertire EMF in BMP ma in pratica come potrei usarlo in xharbour ?','',0,'kA==','25mu3gzk',1,0,'',49,0,0),(14509,3191,6,496,0,'200.107.36.176',1150663558,1,0,1,1,1,0,'','','Finalmente, la recomendación de Rafa es la adecuada. Porque al usar macros tuve problemas cuando la expresión es demasiado grande. Hasta unos 15 valores funcionaba bien, pero cuando se me presentaban con más valores obtenía el error de expresión demasiada compleja y caía.\n\nAsí que inmediatamente tuve que buscar el tiempo que no tenía para buscar el detalle que impedía que la recomendación de Rafa no me funcionaba. Luego de romperme la cabeza por varias noches, haciendo corridas de escritorio y otras cosas más, pude encontrar la solución.\n\nTodo estaba bién, el único detalle había sido en la declaración del array temporal.\n\nA breves rasgos les explico que primero declaraba el array temporal , el aadd() se hacía dentro de un do while:\n\natmp:=array(3+nRecs)\ndo while.....\n     //aqui hago la asignación de valores a atmp\n     //para luego adicionar al array asem\n     aadd(asem,atmp)\nenddo\n\nEl resultado era que inexplicablemente (para mí), todas las filas, tanto las nuevas adcionadas como las anteriores tomaban los valores de la última asignación hecha a atmp. Osea que todas las filas de asem tenian los valores del último atmp.\n\nSin saber qué hacer, y sólo pro probar realicé la asignación del atmp dentro del do While y VOALA, funcionó. Quedando así:\n\ndo while.....\n      atmp:=array(3+nRecs)\n     //aqui hago la asignación de valores a atmp\n     //para luego adicionar al array asem\n     aadd(asem,atmp)\nenddo\n\nEsta es una de esas cosas que no logro comprender bien. Pero finalmente ha funcionado y no hay problema si son 5 , 50 o más valores.\n\nGracias nuevamente a Rafa por darme una luz en el camino\n\nUn saludo\n\nMarcelo Jingo','',0,'kA==','1kj04tjk',1,0,'',496,0,0),(14510,3325,20,49,0,'82.61.128.67',1150664051,1,0,1,1,1,1,'','','e comunque qualcuno mi disse che cio\' era possibile usando il GDi+ di windows ..sai niente ?','',0,'kA==','25ze8w90',1,0,'',49,0,0),(14511,3325,20,6,0,'82.59.188.80',1150665635,1,0,1,1,1,1,'','','L\'unica operazione che si potrebbe tentare senza librerie esterne è di fare il play di un WMF o EMF su di una finestra e poi scrivere il contenuto di quella finestra in un file BMP.\n\nPurtroppo non ho nessun esempio al riguardo ma guardati come fa rpreview.prg a fare il play di un metafile e poi salva l\'immagine con il metodo SaveToBmp() della finestra. Naturalmente la risoluzione del play deve essere adatta al risultato che vuoi ottenere.\n\nEMG','',0,'kA==','bzqzsv56',1,0,'',6,0,0),(14512,3329,20,49,0,'82.61.128.67',1150666115,1,0,1,1,1,1,'','Button ...Menu','se non c\'è attivato il manifest per windows xp  queste linee seguenti funzionano senza problemi \n\nDEFINE BUTTON RESOURCE \"XY_PAGES\" OF oBar ;\n         MESSAGE TXT_PREVIEW_ON_MULTI_PAGES\n          MENU oPop GROUP\n\nnaturalmente è stato dichiarato prima il menu :\n\n MENU oPop POPUP\n  menuitem\n...\n ENDMENU\n\n\nquando attivo il manifest nel resource mi fa errore perchè sembrerebbe che la classe TOOLBAR  che il button è associato non supporta il menu a discesa ...\n\ncome è possibile ?','',0,'kA==','nezpn7ui',1,0,'',49,0,0),(14513,3325,20,49,0,'82.61.128.67',1150668783,1,0,1,1,1,1,'','','sto proprio lavorando sulla rpreview....\nHo rimesso a posto una vecchia Utility ( visualizzazione multipagina, salvataggio pagine in formati grafici, salvataggio in excell solo se proveniente dalla classe Report, invio dei file , compressione dei file in zip )\nCmq Ho scritto all\'autore di freeimage sperando in un aiuto per la conversione da emf ai vari formati...\npurtrppo l\'uso dei programmi estermi come appunto irfanview son o troppo pesanti basti pensare che per nconvert bisogna caricare 800 kb...\nSi dovrebbepensare a qualcos\'altro di piu\' leggero e semplice...','',0,'kA==','1jemv8bi',1,0,'',49,0,0),(14514,3306,6,141,0,'201.152.251.227',1150675273,1,0,1,1,1,1,'','','Muy Bien,\n\nPues como se muestra con el ejemplo, aquí incluyo el ejemplo que desarollé, partiendo de uno que me proporcionó AL sobre un Treeview en codigo.\n\nOjala y les sirva a muchos de Ustedes.  Como recomendación, creo que las proximas ediciones de FW deben incluir los BMP de controles radio en BITMAPS\\16x16.  En este ejemplo lo hago con otros cualesquiera.\n\n[code:1kxtxqyn]\n#Include &quot;FiveWin&#46;ch&quot;\n\nFunction Main&#40;&#41;\n\n   LOCAL oDlg, oTree, oImageList\n    \n   // Sample suggested by Antonio Linares, and modified by Julio Llin s\n\n   DEFINE DIALOG oDlg TITLE &quot;TreeView from source&quot;\n\n   oImageList = TImageList&#40;&#41;&#58;New&#40;&#41;\n\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\folder&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\fldMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\form&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\frmMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\icon&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\icoMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\bitmap&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\bmpMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\folder2&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\bmpMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\checkbox&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\bmpMask&#46;bmp&quot;, oDlg &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\cancel&#46;bmp&quot;, oDlg &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\bmpMask&#46;bmp&quot;, oDlg &#41; &#41;\n\n   @ 0&#46;5, 1 TREEVIEW oTree OF oDlg SIZE 90,60 COLOR 0, GetSysColor&#40; 5 &#41;\n\n   oTree&#58;bLDblClick &#58;= &#123; | nRow, nCol, nKeyFlags | MyClick&#40; nRow, nCol, oTree &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ON INIT AddItems&#40; oTree, oImageList &#41;\n\nReturn NIL\n\n********************************************************************************\nFunction AddItems&#40; oTree, oImageList &#41;\n********************************************************************************\n   local oItem1, oItem2, oItem3\n   local oItem11, oItem12, oItem13\n   local oItem21, oItem22\n   local oItem31, oItem32, oItem33, oItem34, oItem35\n   local Mydate, Mytime\n\n   Mydate &#58;= DATE&#40;&#41;\n   Mytime &#58;= TIME&#40;&#41;\n\n   oTree&#58;SetImageList&#40; oImageList &#41;\n  \n   oItem1 = oTree&#58;Add&#40; &quot;CHECKBOX in a Tree&quot;, 0 &#41;\n\n      // &quot;Cargo&quot; set a Checkbox control\n      oItem11 = oItem1&#58;Add&#40; &quot;One&quot;,   6&#41;; oItem11&#58;Cargo&#58;=&#123;&quot;CHECKBOX&quot;&#125;\n      oItem12 = oItem1&#58;Add&#40; &quot;Two&quot;,   6&#41;; oItem12&#58;Cargo&#58;=&#123;&quot;CHECKBOX&quot;&#125;\n      oItem13 = oItem1&#58;Add&#40; &quot;Three&quot;, 6&#41;; oItem13&#58;Cargo&#58;=&#123;&quot;CHECKBOX&quot;&#125;\n\n   oItem2 = oTree&#58;Add&#40; &quot;GET in a Tree&quot;, 0 &#41; \n\n      // &quot;Cargo&quot; set a Get control, AND the variable to manage in GET\n      oItem21 = oItem2&#58;Add&#40; DTOC&#40;Mydate&#41;, 2 &#41;; oItem21&#58;Cargo&#58;=&#123;&quot;GET&quot;,Mydate&#125;\n      oItem22 = oItem2&#58;Add&#40; Mytime      , 2 &#41;; oItem22&#58;Cargo&#58;=&#123;&quot;GET&quot;,Mytime&#125;\n\n   oItem3 = oTree&#58;Add&#40; &quot;RADIO in a Tree&quot;, 0 &#41;\n\n      // &quot;Cargo&quot; set a Radio control, the selected option and &quot;parent&quot; branch\n      oItem31 = oItem3&#58;Add&#40; &quot;One&quot;, 2 &#41;; oItem31&#58;Cargo&#58;=&#123;&quot;RADIO&quot;,2,oItem3&#125;\n      oItem32 = oItem3&#58;Add&#40; &quot;Two&quot;, 1 &#41;; oItem32&#58;Cargo&#58;=&#123;&quot;RADIO&quot;,1,oItem3&#125;\n      oItem33 = oItem3&#58;Add&#40; &quot;Tree&quot;,1 &#41;; oItem33&#58;Cargo&#58;=&#123;&quot;RADIO&quot;,1,oItem3&#125;\n      oItem34 = oItem3&#58;Add&#40; &quot;Four&quot;,1 &#41;; oItem34&#58;Cargo&#58;=&#123;&quot;RADIO&quot;,1,oItem3&#125;\n      oItem35 = oItem3&#58;Add&#40; &quot;Five&quot;,1 &#41;; oItem35&#58;Cargo&#58;=&#123;&quot;RADIO&quot;,1,oItem3&#125;\n\n   oTree&#58;Expand&#40;&#41;\n\nReturn NIL\n\n********************************************************************************\nFunction Myclick&#40; nRow, nCol, oTree &#41;\n********************************************************************************\n   local oItem, array, Mydate, Mget, hItem, II, oItemRadio\n\n   oItem &#58;= oTree&#58;HitTest&#40; nRow, nCol &#41;\n\n   IF oItem != NIL\n      IF oItem&#58;Cargo != NIL      \n         array &#58;= oItem&#58;Cargo\n         DO CASE\n           // managing a checkbox control&#46;  BMP can be changed&#46;\n           CASE array&#91;1&#93; = &quot;CHECKBOX&quot;\n             IF oItem&#58;nImage = 5\n                oItem&#58;Set&#40; ,6&#41;\n                oItem&#58;nImage &#58;= 6\n             ELSE\n                oItem&#58;Set&#40; ,5&#41;\n                oItem&#58;nImage &#58;= 5\n             ENDIF\n\n           // managing a get control&#46;  BMP can be changed&#46;  \n           //   We use MsgGet and MsgDate functions&#46;\n           //   Keep in second element of &quot;Cargo&quot; the variable to edit,\n           //   VALTYPE of this element is important for correct GET manager\n           CASE array&#91;1&#93; = &quot;GET&quot;\n             DO CASE\n              CASE VALTYPE&#40; array&#91;2&#93; &#41; = &quot;D&quot;\n                Mydate &#58;= MsgDate&#40; array&#91;2&#93; &#41;\n                oItem&#58;Set&#40; DTOC&#40;Mydate&#41; &#41;\n                oItem&#58;cPrompt &#58;= DTOC&#40; Mydate &#41;\n                oItem&#58;Cargo&#91;2&#93;&#58;= Mydate\n\n              CASE VALTYPE&#40; array&#91;2&#93; &#41; = &quot;C&quot;\n                Mget &#58;= PADR&#40;oItem&#58;cPrompt,256&#41;\n                IF MsgGet&#40; &quot;Modificar&#46;&#46;&#46;&quot;, &quot;Modifique esta cadena de caracteres&quot;, @Mget &#41;\n                   Mget &#58;= ALLTRIM&#40; Mget &#41;\n                   oItem&#58;Set&#40; Mget &#41;\n                   oItem&#58;cPrompt &#58;= Mget\n                   oItem&#58;Cargo&#91;2&#93;&#58;= Mget\n                ENDIF\n\n              CASE VALTYPE&#40; array&#91;2&#93; &#41; = &quot;N&quot;\n                Mget &#58;= VAL&#40;oItem&#58;cPrompt&#41;\n                IF MsgGet&#40; &quot;Modificar&#46;&#46;&#46;&quot;, &quot;Modifique este numero&quot;, @Mget &#41;\n                   oItem&#58;Set&#40; STR&#40;Mget&#41; &#41;\n                   oItem&#58;cPrompt &#58;= STR&#40;Mget&#41;\n                   oItem&#58;Cargo&#91;2&#93;&#58;= Mget\n                ENDIF\n\n             ENDCASE\n\n           // managing a RADIO control&#46;  BMP can be changed\n           // &quot;2&quot; means choosen option, and &quot;1&quot; means NO choosen options\n           CASE array&#91;1&#93; = &quot;RADIO&quot;\n             hItem &#58;= oItem&#58;hItem\n             FOR II &#58;= 1 TO LEN&#40; array&#91;3&#93;&#58;aItems &#41;\n                oItemRadio &#58;= array&#91;3&#93;&#58;aItems&#91;II&#93;\n                IF oItemRadio&#58;hItem = hItem\n                   oItemRadio&#58;Set&#40; ,2&#41;\n                   oItemRadio&#58;Cargo&#91;2&#93;&#58;=2\n                ELSE\n                   oItemRadio&#58;Set&#40; ,1&#41;\n                   oItemRadio&#58;Cargo&#91;2&#93;&#58;=1\n                ENDIF\n             NEXT\n                   \n         ENDCASE\n      ENDIF\n   ENDIF\n\nreturn nil\n[/code:1kxtxqyn]\n\nAbrazos,','',0,'AIA=','1kxtxqyn',1,0,'',141,0,0),(14515,1790,6,637,0,'201.135.225.45',1150677005,1,0,1,1,1,0,'','Advantage con seguridad de directorios','eN TU CASO, debiado a que ADS es el único que tiene acceso a esa carpeta, y debido que -el cliente- solo puede leer -a traves de ADS- sólamente DBFs, mi recomendacion es \n\n1) En vez de guardar arreglos con las estructuras dell DBF, guarda mejor las estructuras extendidas (que son DBF´s y advantage puede leerlas)\n \nó\n\n2) En una dbf guarda los arreglos dentro de un campo memo\n\nCualquiera de las dos anteriores funciona debido a que no estas utilizando otro tipo de archivos.','',0,'AIA=','2wanz05p',1,0,'',637,0,0),(14516,1790,6,138,0,'200.66.146.127',1150685949,1,0,1,1,1,1,'','','Reynaldo:\n\nUtilizas diccionario de datos ?','',0,'AIA=','18mhr9s1',1,0,'',138,0,0),(14517,3328,6,2,0,'87.218.146.57',1150691531,1,0,1,1,1,1,'','','Ruben,\n\nCrea el siguiente PRG y enlázalo en tu aplicación, y quita la librería GTWIN.lib:\n\n/* gtnul.prg */\nANNOUNCE HB_GTSYS\nREQUEST HB_GT_NUL','',0,'AIA=','2yhrw4px',1,0,'',2,0,0),(14518,3306,6,2,0,'87.218.146.57',1150691739,1,0,1,1,1,1,'','','Julio,\n\n&gt; \nComo recomendación, creo que las proximas ediciones de FW deben incluir los BMP de controles radio en BITMAPS\\16x16.\n&gt;\n\nPor favor, podrías enviarme esos bitmaps por email ? gracias','',0,'AIA=','1yxpjn1q',1,0,'',2,0,0),(14519,1984,4,2,0,'87.218.146.57',1150695240,1,0,1,1,1,1,'','','Jon,\n\nIn this thread you have the full source code of the sample:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1985&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=scrollwindow\">http://fivetechsoft.com/forums/viewtopi ... rollwindow</a><!-- m -->','',0,'AIA=','7xs3kucs',1,0,'',2,0,0),(14520,1790,6,449,0,'212.64.224.250',1150697996,1,0,1,1,1,1,'','','Hola,\n\nSi no utlizas diccionario de datos, simplemente con tener acceso lectura/escritura, el problema ya lo tienes solucionado. Logicamente este acceso recae siempre sobre la figura de una administrador de tu sistema, no del usuario.','',0,'AIA=','3szubf12',1,0,'',449,0,0),(14521,3326,7,2,0,'87.218.146.57',1150699517,1,0,1,1,1,1,'','','Mike,\n\nAcabamos de publicar un nuevo build de FWPPC (ya se puede descargar) que implementa VALIDs en las ventanas, incluida la principal <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2sjvh7ci',1,0,'',2,0,0),(14522,3330,16,2,0,'87.218.146.57',1150699688,1,0,1,1,1,1,'','New FWPPC build with VALID support for windows','There is a new FWPPC build with VALID support for windows, including the main one. Please review samples\\Tutor02.prg\n\nYa hay un nuevo build de FWPPC con soporte de VALID para ventanas, incluyendo la principal. Por favor revisad samples\\Tutor02.prg','',0,'AIA=','qan4i357',1,0,'',2,0,0),(14523,3331,7,2,0,'87.218.146.57',1150699768,1,0,1,1,1,1,'','Nuevo build de FWPPC con soporte de VALID para ventanas','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3330&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'AIA=','35svpygu',1,0,'',2,0,0),(14524,3332,4,2,0,'87.218.146.57',1150699941,1,0,1,1,1,1,'','New FWPPC with VALID support for windows','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3330&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'AIA=','w6axbul2',1,0,'',2,0,0),(14525,3327,3,2,0,'87.218.146.57',1150702304,1,0,1,1,1,1,'','','George,\n\nMemoWrit( \"encrypted.jpg\", Encrypt( MemoRead( \"original.jpg\" ) [,&lt;cPassword&gt;] ) )\n\nMemoWrit( \"original.jpg\", Decrypt( MemoRead( \"encrypted.jpg\" ) [,&lt;cPassword&gt;] ) )','',0,'','3vj6owtr',1,0,'',2,0,0),(14526,3333,6,63,0,'80.37.102.128',1150703609,1,0,1,1,1,0,'','Repintado de headers en TxBrowse()','Utilizo un TxBrowse() con 20 columnas,barras de scroll V y H y headers clicables.  Mi FWH es 2.6\n\nCuando desplazo el browse verticalmente mediante la barra de scroll, los headers desaparecen y en su lugar queda una banda blanca.  Supongo que es un problema de repintado porque si -por ejemplo- cambio la anchura de una columna, vuelven a aparecer.  ¿Alguien tenía el mismo problema y lo ha podido solucionar?  Gracias\n\nRafael','',0,'','3i34kc1x',1,0,'',63,0,0),(14527,3320,2,248,0,'212.145.179.68',1150705864,1,0,1,1,1,0,'','Comprueba.','Hola, comprueba si tienes alguna impresora, aunque sea la propia epson, configurada en windows que este usando ese puerto, en caso de que si cambiale el puerto y estoy casi seguro que te funcionara, no tiene que existir ninguna impresora usando ese puerto. Cosas que pasan.\n\nSaludos.','',0,'','2ijkzu19',1,0,'',248,0,0),(14528,3324,6,327,0,'217.175.54.62',1150711812,1,0,1,1,1,0,'','ole','Ciao Enrico,\nio uso FW + Harbour.\nGrazie per l\'attenzione\nEugenio','',0,'','3dk3dpb6',1,0,'',327,0,0),(14529,3324,6,6,0,'87.17.186.236',1150712740,1,0,1,1,1,1,'','Re: ole','Sent to your private email.\n\nEMG','',0,'','1tqgss97',1,0,'',6,0,0),(14530,3111,2,221,0,'201.211.88.218',1150721654,1,0,1,1,1,0,'','ole','como saber si la tengo completa, me la podrias mandar, gracias','',0,'','2z3uil0k',1,0,'',221,0,0),(14531,3334,3,160,0,'210.212.142.91',1150722107,1,0,1,1,1,0,'','Any std. FWH Browse control that allows me columnwise font ?','Hello All,\n\nIs there any standard FWH Browse control that allows me to define columnwise font ?\n\nI want to use Indian Language fonts but only for a few columns of the Listbox.\n\nCan anybody guide me ?\n\nTIA\nMilan.','',0,'','1607gpsq',1,0,'',160,0,0),(14532,1984,4,68,0,'203.45.161.80',1150722169,1,0,1,1,1,1,'','','Antonio, oops, thanks for the reminder <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nregards,','',0,'','2ba0pk4h',1,0,'',68,0,0),(14533,3311,3,632,0,'201.155.170.251',1150724705,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:259xk03j]Nosotros no usamos el AJMAKE, pero seguramente tendrá una opción para seleccionar opciones de compilación, ó una casilla para debugger, ó información de debugger, ó /b.\n\nSi no lo encuentras, por favor envía un email al autor de AJMAKE. Gracias.[/quote:259xk03j]\n\nHola!!! \n\nAntonio y gracias por ser tan paciente conmigo. pero seria mucha molestia q me proporcionaras algun link para ver como compilan uds. y poder ver esa tan esperada ventana del debugger q realmente necesito.\n\nte lo agradeceria infinitamente.','',0,'gA==','259xk03j',1,0,'',632,0,0),(14534,3327,3,171,0,'71.232.193.197',1150725051,1,0,1,1,1,0,'','','Antonio,\n\nThanks. I will try it\n\n\nGeorge','',0,'gA==','23xl5hr6',1,0,'',171,0,0),(14536,3311,3,24,0,'80.58.210.47',1150726316,1,0,1,1,1,1,'','','[quote=&quot;Olguiver&quot;:1dysxfh1][quote=&quot;Antonio Linares&quot;:1dysxfh1]Nosotros no usamos el AJMAKE, pero seguramente tendrá una opción para seleccionar opciones de compilación, ó una casilla para debugger, ó información de debugger, ó /b.\n\nSi no lo encuentras, por favor envía un email al autor de AJMAKE. Gracias.[/quote:1dysxfh1]\n\nHola!!! \n\nAntonio y gracias por ser tan paciente conmigo. pero seria mucha molestia q me proporcionaras algun link para ver como compilan uds. y poder ver esa tan esperada ventana del debugger q realmente necesito.\n\nte lo agradeceria infinitamente.[/quote:1dysxfh1]\n\nAmigo, OLVIDATE de usar el DEBUG con Fivewin, puede causarte un \nderrame en el hipotalamo.\n\nEn serio, acostumbrate a usar puntos de ruptura, como MsgInfo(), volcados a ficheros, o tracear el codigo con OutputString, etc...\n\nLos GUIs, TODOS, no funciona correctamente, excepto\naquellos que incorporan uno propio, que haberlos, haylos <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nPuedes hacer la prueba, por ti mismo:\nFunction Main()\n\n        AltD( 1 )   // Enables the debugger. Press F5 to go\n        Alert( \"debugger enabled\" )\n        AltD()      // Invokes the debugger\n\n... tu codigo...\n\nReturn NIL\n\nRecuerda compilar con la opcion /B','',0,'gA==','1dysxfh1',1,0,'',24,0,0),(14537,3312,6,632,0,'201.155.170.251',1150727851,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:1fqaw2rc]No existe un debugger para FW como tal.\n\nLo que puedes hacer es compilar tus programas con /B y luego introducir en algun punto de tu programa una llamada a la funcion ALTD() para activar el debugger de Harobur en una ventana de MS-DOS corriendo paralelamente a la aplicacion Windows.\n\nDepurar una aplicacion en Windows es bastante dificil por el tema del manejo de eventos.[/quote:1fqaw2rc]\n\n\nHola !!!\n\nRene gracias por contestarme, mira un grandisimo favor, quiero compilar de la formarma q lo realizas con diagonal /d  pero no tengo documentacion de como aser eso, y me gustaria aprender. yo compilo con el AJMAKE, q no meda opcion a ponerle a mis prgs la /d.\nAsi q es muy importante  para mi poder compilar mis prgs y poder solucionar mi problema se lo agradeceria mucho, y saber con q software lo asen.  solo pido un link un tutorial un norte. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\ngracias de antemano...','',0,'gA==','1fqaw2rc',1,0,'',632,0,0),(14538,3328,6,61,0,'201.217.166.38',1150730732,1,0,1,1,1,0,'','','Gracias Maestro:\n\nquedo funcionado.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','q41hab0y',1,0,'',61,0,0),(14539,3335,6,61,0,'201.217.166.38',1150731128,1,0,1,1,1,0,'','Probando con xHarbour -Errorres','Amigos:\n\nTratando de probar xHarbour un programa que esta \ncompiladop con Harbpuir me da estos errores\n\nError E2141 C:\\xharbour\\include\\hbtrace.h 62: Declaration syntax error\nError E2451 xDoc.c 249: Undefined symbol \'hb_INITSTATICS\'\nError E2141 xDoc.c 249: Declaration syntax error\nError E2190 xDoc.c 249: Unexpected }\nError E2040 xDoc.c 249: Declaration terminated incorrectly\nError E2040 xDoc.c 249: Declaration terminated incorrectly\nError E2190 xDoc.c 251: Unexpected }\nError E2109 xDoc.c 251: Not an allowed type in function hb_vm_SymbolInit_XDOC\nWarning W8070 xDoc.c 2301: Function should return a value in function HB_FUNC_INITSTATIC\n\nGracias por algun dato.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','3novparn',1,0,'',61,0,0),(14540,3292,6,83,0,'80.35.196.60',1150731512,1,0,1,1,1,0,'','ejemplos de encrypt() y decrypt()','Para los que aún sigan interesados en el ejemplo de uso lo teneis en\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c5a3e844/ejemplo_utilizaci__n_funciones_ENCRYPT_-_DECRYPT.txt.html\">http://hyperupload.com/download/02c5a3e ... T.txt.html</a><!-- m -->\n\nsaludos','',0,'gA==','29e95dxi',1,0,'',83,0,0),(14541,3111,2,138,0,'201.154.236.107',1150732123,1,0,1,1,1,1,'','','Lo que tienes que revisar es que Office este instalado completamente en el disco duro.\n\nCuando instalas office tienes oportunidad de quitar o agregar componentes, lo que tienes que mirar es que TODO Office este instalado con la opcion, INTALAR TODO EN EL DISCO DURO que te pone al momento de hacer la instalacion.','',0,'gA==','hk97pa4p',1,0,'',138,0,0),(14542,3312,6,138,0,'201.154.236.107',1150732318,1,0,1,1,1,1,'','','PUes de hecho no creo que nadie utilice la depuracion de programas de xHarbour, yo la he probado pero realmente no es util por el tema del manejo de eventos.\n\nLo que hacemos la mayoria de nosotros es hacer MsgInfo() en puntos especificos del programa para revisar los valores que llevan las variables.','',0,'gA==','3hfqivng',1,0,'',138,0,0),(14543,3305,3,217,0,'200.159.120.34',1150733258,1,0,1,1,1,0,'','Re: Auto fits/sorts controls of dialog in different resoluti','Wang, the best way to do it is create a ID to each control. I use any like it and I create an ID to each \"say\", then I do a \"pseudo redefine\" like this:\n\nredefine say id 51 of oDlg\nredefine say id 52 of oDlg\n(...)\n\nFor while is hard to redefine each say but is only way I found. Or you can create a function and refer to say\'s IDs in an array. Any like this\n\nMyRedefineSay({51,52,52,53}, oDlg)\n...\n\nfunction MyRedefineSay(aID, oDlg)\n local n\n FOR n := 1 to len(aID)\n       TSay():Redefine(aId[n] ......... )\n NEXT\nreturn\n\n//-----------------------------------\n\nOnly a suggest <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nBast regards,\nMaurilio','',0,'','2r86oor1',1,0,'',217,0,0),(14544,2101,3,178,0,'71.29.201.144',1150733505,1,0,1,1,1,1,'','Screen Ratios','screen ratios are 4:3 or 5:4 for wide.\n \n\nI am aware that HD TV is using 16:9\n\nby using the calc\n\n480/640=.75 \n600/800=.75\n768/1024=.75\n864/1152=.75\n960/1280=.75\nThese are 4:3 ratio\n\n\n1024/1280=.8\nthis is 5:4 ratio\n\n\nI hope this helps.','',0,'','3gzwyixr',1,0,'',178,0,0),(14545,3334,3,303,0,'72.199.41.171',1150734124,1,0,1,1,1,0,'','','Milan,\n\nNo, neither TWBrowse nor TCBrowse supports individual fonts for each column.\n\nIf you are willing to use a non-standard control, then TSBrowse does support them. You can get a copy of TSBrowse on my website.\n\nJames','',0,'','15bk543b',1,0,'',303,0,0),(14546,3336,6,511,0,'201.209.236.191',1150734387,1,0,1,0,1,0,'','ADS en un servidor Novell SB5','Saludos al foro:\n\nEstoy tratando de utilizar fwh/harbour con ads en un servidor Novell y no se conecta, este es el PRG:\n\n// Harbour Advantage RDD sample\n\n#include \"FiveWin.ch\"\n#include \"ads.ch\"\n\nREQUEST ADS\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   rddsetdefault( \"ADS\", 1 )\n\n   REQUEST ADS\n   SET SERVER REMOTE //LOCAL\n   SET FILETYPE TO NTX\n\n   USE Clientes             // Open any DBF...\n\n   OrdSetFocus(\"DIRECCION\") // Second Tag on Clientes.cdx\n   go top\n\n   Browse()                 // Quick browse!!!\n\n   USE\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMis programas anteriores en clipper/fw/blinker utilizaban sin problemas:\n\nREQUEST DBFNTXAX\nRDDSETDEFAULT( \"DBFCDXAX\" )\ny los dll\'s ADSIPX16.DLL y AXCOMM16.DLL\n\nQue estoy haciendo mal ?, alguien me puede ayudar con esto?\n\nGracias\n\nAlvaro Urdaneta','',0,'','1ba0eemi',1,0,'',511,0,0),(14547,3305,3,303,0,'72.199.41.171',1150734500,1,0,1,1,1,0,'','','Shuming,\n\nI found the text below in my notes. You might give it a try.\n\nJames\n\n-----------------------------------------\n6/21/2004 9:00 PM\n\nIf you change the size of the dialog font  in Workshop, then the dialog is automatically resized to accomodate the new font. This resizing occurs both in Workshop and in the application. Note that in Workshop the dialog is displayed larger than it will be in the application.\n\n[Note: WS defaults to a MS Sans Serif, 8 point font when you define a new dialog.]\n\nThe automatic resizing happens inside the dialogBox() function called in TDialog:activate(). This seems to be inside the Win API. There is no built-in way to force the dialog to resize by changing the font after the dialog has been initialized.\n\nYou can change the font of a dialog via code if you do it before activating the dialog:\n\n   define dialog oDlg...\n   oDlg:setFont(oFont)\n   activate dialog oDlg\n\nHowever, I find that the font is about 4 points smaller on the screen that it is if you define the font in Workshop. E.G. you would have to use a 16point font via setFont() in order to get the same sized font on the screen that you would get if you defined a 12point font in WS. I think this must be a bug somewhere.','',0,'','akz4a7u2',1,0,'',303,0,0),(14548,2101,3,148,0,'196.205.180.19',1150744305,1,0,1,1,1,0,'','','How can I implement that ratio on programs ?','',0,'','bbj1l0vb',1,0,'',148,0,0),(14549,3316,3,217,0,'200.159.120.34',1150745063,1,0,1,1,1,0,'','','Antonio, I have difficulties to understand this floating points number showed like hexadecimal. I have a sequence like this:\n\n5F FF 06 11 07 23 07 35 07 48 07 5B 07 6E 07 81\n07 93 07 A5 07 B7 07 C7 07 D7 07 E7 07 FA 07 0D\n08 1D 08 2D 08 3E 08 4F 08 5D 08 70 08 81 08 91\n08 9F 08 AE 08 BB 08 C9 08 D7 08 E5 08 F1 08 FD\n\nDo you know any site with information about how to \"decode\" these float values?\nOr a ruler to convert it to decimal\n\nThanks a lot!\nMaurilio','',0,'','z80wb0to',1,0,'',217,0,0),(14550,3337,3,148,0,'196.205.180.19',1150746422,1,0,1,1,1,0,'','combobox inside a list box','I want every field in a list box entered via combobox of fixed entries . How can I implement that control ?','',0,'','2a5cnw1e',1,0,'',148,0,0),(14551,3111,2,221,0,'201.211.88.218',1150746699,1,0,1,1,1,0,'','ummm','lo siento pense te referias a si tenia toda la clase OLE no del office','',0,'','1w9gsfu8',1,0,'',221,0,0),(14552,3338,3,148,0,'196.205.180.19',1150747012,1,0,1,1,1,0,'','sample error','error from comiling mssql.prg using buildhd.bat\n\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'mssql.prg\' and generating preprocessed output to \'mssql.ppo\'...\nLines 33, Functions/Procedures 1\nGenerating C source output to \'mssql.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nmssql.c:\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_INIODBC32\' referenced from E:\\PROGRAMS\\CLIPP\nER\\FWH\\LIB\\FIVEH.LIB|TRDDODBC\nError: Unresolved external \'_HB_FUN_ENDODBC32\' referenced from E:\\PROGRAMS\\CLIPP\nER\\FWH\\LIB\\FIVEH.LIB|TRDDODBC\nError: Unresolved external \'_HB_FUN__TRDD\' referenced from E:\\PROGRAMS\\CLIPPER\\F\nWH\\LIB\\FIVEH.LIB|TRDDODBC\nError: Unresolved external \'_HB_FUN_RDDSETFIELDEXTENT\' referenced from E:\\PROGRA\nMS\\CLIPPER\\FWH\\LIB\\FIVEH.LIB|TRDD\nError: Unresolved external \'_HB_FUN_RDDADDFIELD\' referenced from E:\\PROGRAMS\\CLI\nPPER\\FWH\\LIB\\FIVEH.LIB|TRDD\n* There are errors\nE:\\programs\\clipper\\FWH\\SAMPLES&gt;','',0,'','pxylx8pc',1,0,'',148,0,0),(14553,3292,6,131,0,'83.53.159.243',1150753022,1,0,1,1,1,0,'','','Hola:\nHe estado viendo el código que mandas y la idea es buena, pero lo que haces es una parte de mi problema. A mi me interesa tener la dbf encriptada al cerrar, y desencriptar al abrir pero dando la posibilidad de encriptar sin salir del programa en un momento dado. De todos modos gracias por el código y a ver si consigo sacarle punta al asunto.\n\nSaludos,','',0,'','gtq9xhiw',1,0,'',131,0,0),(14554,3311,3,632,0,'201.155.170.251',1150753054,1,0,1,1,1,0,'','','[quote=&quot;thefull&quot;:3aro0y36][quote=&quot;Olguiver&quot;:3aro0y36][quote=&quot;Antonio Linares&quot;:3aro0y36]Nosotros no usamos el AJMAKE, pero seguramente tendrá una opción para seleccionar opciones de compilación, ó una casilla para debugger, ó información de debugger, ó /b.\n\nSi no lo encuentras, por favor envía un email al autor de AJMAKE. Gracias.[/quote:3aro0y36]\n\nHola!!! \n\nAntonio y gracias por ser tan paciente conmigo. pero seria mucha molestia q me proporcionaras algun link para ver como compilan uds. y poder ver esa tan esperada ventana del debugger q realmente necesito.\n\nte lo agradeceria infinitamente.[/quote:3aro0y36]\n\nAmigo, OLVIDATE de usar el DEBUG con Fivewin, puede causarte un \nderrame en el hipotalamo.\n\nEn serio, acostumbrate a usar puntos de ruptura, como MsgInfo(), volcados a ficheros, o tracear el codigo con OutputString, etc...\n\nLos GUIs, TODOS, no funciona correctamente, excepto\naquellos que incorporan uno propio, que haberlos, haylos <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nPuedes hacer la prueba, por ti mismo:\nFunction Main()\n\n        AltD( 1 )   // Enables the debugger. Press F5 to go\n        Alert( \"debugger enabled\" )\n        AltD()      // Invokes the debugger\n\n... tu codigo...\n\nReturn NIL\n\nRecuerda compilar con la opcion /B[/quote:3aro0y36]\n\nHola si lo que necesito saber es con q programa compilar /d\npor q. realmente no se como aserle.','',0,'gA==','3aro0y36',1,0,'',632,0,0),(14555,3339,1,418,0,'83.156.156.125',1150754910,1,0,1,1,1,0,'','day of year','Hi,\ni am looking about a function which returns the numeric value of the day in the year\nex function (01/01/06) return 1\n     function (31/12/06) reutrn 365\nMay be this function exist but i don\'t find it  \nAny idea? Thanks','',0,'gA==','6h01txs1',1,0,'',418,0,0),(14556,3339,1,54,0,'201.98.187.189',1150755837,1,0,1,1,1,1,'','Re: day of year','[quote=&quot;patili&quot;:22qsh4ni]Hi,\ni am looking about a function which returns the numeric value of the day in the year\nex function (01/01/06) return 1\n     function (31/12/06) reutrn 365\nMay be this function exist but i don\'t find it  \nAny idea? Thanks[/quote:22qsh4ni]\n\nIf use xHarbour\n\n[code:22qsh4ni]DOY &#40;&#91;&lt;dDate&gt;&#93;&#41;[/code:22qsh4ni]','',0,'gIA=','22qsh4ni',1,0,'',54,0,0),(14557,3311,3,2,0,'87.218.146.228',1150756445,1,0,1,1,1,1,'','','Olguiver,\n\nDesde el directorio samples haz:\n\nbuildh.bat altd /b\n\naltd.prg es un ejemplo del directorio samples.','',0,'gIA=','5dg6dn5f',1,0,'',2,0,0),(14558,3339,1,418,0,'83.156.156.125',1150757345,1,0,1,1,1,0,'','','No i\'m using Fivewin and clipper','',0,'gIA=','2r4x7mu6',1,0,'',418,0,0),(14559,3339,1,2,0,'87.218.146.228',1150759172,1,0,1,1,1,1,'','','Patili,\n[code:21advgw3]\nfunction Main&#40;&#41;\n\n   SET DATE FRENCH\n\n   MsgInfo&#40; Doy&#40; CToD&#40; &quot;01/01/06&quot; &#41; &#41; &#41;\n\n   MsgInfo&#40; Doy&#40; CToD&#40; &quot;31/12/06&quot; &#41; &#41; &#41;\n   \nreturn nil   \n\nfunction DOY&#40; dDate &#41;\n\n   local nMonth &#58;= Month&#40; dDate &#41;\n   local nDay &#58;= 0\n   \n   while nMonth &gt; 0 \n      nDay += Day&#40; dDate &#41;\n      dDate -= Day&#40; dDate &#41;\n      nMonth--\n   end\n   \nreturn nDay      \n[/code:21advgw3]','',0,'AIA=','21advgw3',1,0,'',2,0,0),(14560,3335,6,2,0,'87.218.146.228',1150759412,1,0,1,1,1,1,'','','Ruben,\n\nNo se puede mezclar código compilado con Harbour y xharbour. Ni compilar con Harbour y enlazar con xharbour.','',0,'AIA=','32m0e9vu',1,0,'',2,0,0),(14561,3340,6,278,0,'200.72.147.140',1150761319,1,0,1,1,1,1,'','Cual puede ser el problema - estoy confundido ??','Hola Foro:\n\nNecesito una ayudita por favor, llevo 2 dias buscando una respuesta y no encuentro una explicación lógica.  \n\nEl problema es con los Scope , no hay caso no me funcionen.\n\nAdjunto un ejemplo pequeño , donde quiero que se muestren solo las ciudades de la \"A a la C\"\n\n \n#Include \"FiveWin.Ch\"\n#Include \"Ord.Ch\"\n#Include \"Apollo.ch\"\n \nFunction Main()\n \n    USE Ciudades\n    SET INDEX ON Ciudades-&gt;Codigo  TAG Ciudad1 TO Ciudades          \n    SET INDEX ON Ciudades-&gt;Nombre TAG Ciudad2 TO Ciudades             \n \n    // test 1\n     Ciudades-&gt;( OrdSetFocus( \"Ciudad2\"  ) )\n     Ciudades-&gt;( DbGoTop() )\n     Ciudades-&gt;( ORDSCOPE(  0  , \"A\" ) )\n     Ciudades-&gt;( ORDSCOPE(  1  , \"C\" ) )\n     Ciudades-&gt;( DbGoTop() )\n\n     Browse()\n \n    // test 2  -  otra forma de acotar\n \n     Ciudades-&gt;( OrdSetFocus( \"Ciudad2\"  ) )\n     Ciudades-&gt;( sx_scope(  0  , \"A\" ) )\n     Ciudades-&gt;( sx_scope(  1  , \"C\" ) )\n     Ciudades-&gt;( DbGoTop() ) \n\n     Browse()\n \n     set scope to\n\nRETURN( NIL )\n\nEn ambos test el browse muestra todos los registros.\n\nQue estaré haciendo mal.  Habrá que poner un include adicional,\nuna libreria o algo extra. \n\nLo he probado todo y no le encuentro explicación.\n\nLo raro es que en el tag estan bien los indices y si los voy cambiando\nme ordena bien la informacion, pero cuando aplico el scope,\nno restringue los datos, se muestra simepre todo.\n\nSi alguien sabe algo, se los agradecía.\n\nUtilizo xHarbour 0.95 y FWH y Apollo RDD.\n\nSaludos\n\nJuan','',0,'AIA=','1h6xhn8z',1,0,'',278,0,0),(14562,3341,6,278,0,'200.72.147.140',1150761338,1,0,1,1,1,1,'','Cual puede ser el problema - estoy confundido ??','Hola Foro:\n\nNecesito una ayudita por favor, llevo 2 dias buscando una respuesta y no encuentro una explicación lógica.  \n\nEl problema es con los Scope , no hay caso no me funcionen.\n\nAdjunto un ejemplo pequeño , donde quiero que se muestren solo las ciudades de la \"A a la C\"\n\n \n#Include \"FiveWin.Ch\"\n#Include \"Ord.Ch\"\n#Include \"Apollo.ch\"\n \nFunction Main()\n \n    USE Ciudades\n    SET INDEX ON Ciudades-&gt;Codigo  TAG Ciudad1 TO Ciudades          \n    SET INDEX ON Ciudades-&gt;Nombre TAG Ciudad2 TO Ciudades             \n \n    // test 1\n     Ciudades-&gt;( OrdSetFocus( \"Ciudad2\"  ) )\n     Ciudades-&gt;( DbGoTop() )\n     Ciudades-&gt;( ORDSCOPE(  0  , \"A\" ) )\n     Ciudades-&gt;( ORDSCOPE(  1  , \"C\" ) )\n     Ciudades-&gt;( DbGoTop() )\n\n     Browse()\n \n    // test 2  -  otra forma de acotar\n \n     Ciudades-&gt;( OrdSetFocus( \"Ciudad2\"  ) )\n     Ciudades-&gt;( sx_scope(  0  , \"A\" ) )\n     Ciudades-&gt;( sx_scope(  1  , \"C\" ) )\n     Ciudades-&gt;( DbGoTop() ) \n\n     Browse()\n \n     set scope to\n\nRETURN( NIL )\n\nEn ambos test el browse muestra todos los registros.\n\nQue estaré haciendo mal.  Habrá que poner un include adicional,\nuna libreria o algo extra. \n\nLo he probado todo y no le encuentro explicación.\n\nLo raro es que en el tag estan bien los indices y si los voy cambiando\nme ordena bien la informacion, pero cuando aplico el scope,\nno restringue los datos, se muestra siempre todo.\n\nSi alguien sabe algo, se los agradecía.\n\nUtilizo xHarbour 0.95 y FWH y Apollo RDD.\n\nSaludos\n\nJuan','',0,'AIA=','ohssngeb',1,0,'',278,0,0),(14563,3335,6,61,0,'201.217.175.157',1150777650,1,0,1,1,1,0,'','','Gracias Maestro:\n\nHe pasado casi un día tratando de compilar con\nxHarbour y no he podido.\nSigo con Harbour.\n\nMuchas gracias.\n(Trate con un  solo prg y no pude, queda asi)','',0,'AIA=','28k3su1t',1,0,'',61,0,0),(14564,3340,6,61,0,'201.217.175.157',1150777987,1,0,1,1,1,0,'','','Juan:\nYo uso los Scopes hasta con 3 browse.\n\nLo que hago es en el init del dialogo que estan los browses\ntengo una funcion que acciona el scope.\n\n\nSaludos\nRuben Fernandez.','',0,'AIA=','2vf429lt',1,0,'',61,0,0),(14565,3339,1,418,0,'83.156.148.164',1150783500,1,0,1,1,1,0,'','','And NOW  it exist\nThank you Antonio','',0,'AIA=','tnq5r2gx',1,0,'',418,0,0),(14566,3341,6,102,0,'83.46.97.45',1150784801,1,0,1,1,1,1,'','Re: Cual puede ser el problema - estoy confundido ??','Hola \nCreo que antes de hacer el scope debes de hacer un:\nCIUDADES-&gt;(Dbseek(\'A\',.f.))\nCiudades-&gt;( ORDSCOPE(  0  , \"A\" ) )\nCiudades-&gt;( ORDSCOPE(  1  , \"C\" ) )\nCiudades-&gt;( DbGoTop() )\nBrowse()\n\nSaludos\n \n[quote=&quot;jcaro&quot;:1gumy3m7]Hola Foro:\n\nNecesito una ayudita por favor, llevo 2 dias buscando una respuesta y no encuentro una explicación lógica.  \n\nEl problema es con los Scope , no hay caso no me funcionen.\n\nAdjunto un ejemplo pequeño , donde quiero que se muestren solo las ciudades de la \"A a la C\"\n\n \n#Include \"FiveWin.Ch\"\n#Include \"Ord.Ch\"\n#Include \"Apollo.ch\"\n \nFunction Main()\n \n    USE Ciudades\n    SET INDEX ON Ciudades-&gt;Codigo  TAG Ciudad1 TO Ciudades          \n    SET INDEX ON Ciudades-&gt;Nombre TAG Ciudad2 TO Ciudades             \n \n    // test 1\n     Ciudades-&gt;( OrdSetFocus( \"Ciudad2\"  ) )\n     Ciudades-&gt;( DbGoTop() )\n     Ciudades-&gt;( ORDSCOPE(  0  , \"A\" ) )\n     Ciudades-&gt;( ORDSCOPE(  1  , \"C\" ) )\n     Ciudades-&gt;( DbGoTop() )\n\n     Browse()\n \n    // test 2  -  otra forma de acotar\n \n     Ciudades-&gt;( OrdSetFocus( \"Ciudad2\"  ) )\n     Ciudades-&gt;( sx_scope(  0  , \"A\" ) )\n     Ciudades-&gt;( sx_scope(  1  , \"C\" ) )\n     Ciudades-&gt;( DbGoTop() ) \n\n     Browse()\n \n     set scope to\n\nRETURN( NIL )\n\nEn ambos test el browse muestra todos los registros.\n\nQue estaré haciendo mal.  Habrá que poner un include adicional,\nuna libreria o algo extra. \n\nLo he probado todo y no le encuentro explicación.\n\nLo raro es que en el tag estan bien los indices y si los voy cambiando\nme ordena bien la informacion, pero cuando aplico el scope,\nno restringue los datos, se muestra siempre todo.\n\nSi alguien sabe algo, se los agradecía.\n\nUtilizo xHarbour 0.95 y FWH y Apollo RDD.\n\nSaludos\n\nJuan[/quote:1gumy3m7]','',0,'gA==','1gumy3m7',1,0,'',102,0,0),(14567,3296,6,413,0,'194.106.16.43',1150787598,1,0,1,1,1,0,'','','Rene se puede leer una dll con autoole sin tenerla instalada. Creo que la respuesta es que no, que necesitas registrarla antes de utilizarla.\n\nSi se pudiera hacer algo similar a: \n\n\n\n[code:1a8h2uba]\n\n&#58;&#58;hDll &#58;= LoadLibrary&#40;&quot;CRPE32&#46;DLL&quot;&#41;\n\n  IF ABS&#40; &#58;&#58;hDll &#41; &gt;= 32\n     oCrystal &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;Crystal&#46;CRPE&#46;Application&quot;&#41; \n  ENDIF\n\n[/code:1a8h2uba]\n\nEsto seria lo ideal, se que el mismo crystal tiene un exe para registrar la clase y luego manejarla con los comandos ole, y seguro que es mucho mas comodo. Pero luego como lo distribuyes, tienes que hacer un instal que haga lo propio con el registro. En nuestro caso tenemos  problemas con la utilización de system y system2 por las politicas de seguridad, y la verad no quiero pasarme 40 ordneadores uno por uno registrando la clase.\n\nUn saludo.','',0,'AIA=','1a8h2uba',1,0,'',413,0,0),(14568,3342,20,444,0,'80.183.235.162',1150793618,1,0,1,1,1,0,'','compiland testzip con fw2.6 xharbor99.50','Ciao a tutti!\ncompilando testzip negli esempi delle fivewin mi ha dato i seguenti errori:\n\nUnresolved external \'_HB_FUN_ZIPFILE\'\n\nUnresolved external \'_HB_FUN_ZIPTYPE\'\n\nUnresolved external \'_HB_FUN_ZIPBLOCK\'\n\nUnresolved external \'_HB_FUN_ZIPMSG\'\n\npuò essere che la mia libreia hbzip.lib sia troppo datata?\n\ngrazie a tutti!\n\nDino','',0,'AIA=','2ozmt9pp',1,0,'',444,0,0),(14569,3342,20,6,0,'82.57.160.164',1150799244,1,0,1,1,1,1,'','Re: compiland testzip con fw2.6 xharbor99.50','Credo che tu stia utilizzando ancora le funzioni a 16 bit di Clipper/FW. Quelle a 32 bit si chiamano\n\nHB_ZIPFILE()\n\ne compagnia. Trovi la documentazione sul CVS oppure te la mando io.\n\nEMG','',0,'AIA=','2mn0e9qx',1,0,'',6,0,0),(14570,3319,2,517,0,'200.195.2.246',1150801132,1,0,1,1,1,0,'','','Amigo Funciona assim\nDentro do Seu PRG, Voce chama a Funcao \nExemplo : \n\n     drive_ok(\"A:\")\n\n\n\n\n\n\nfunction drive_ok(adrive)\n  LOCAL nFreeBytes := 0, nTotalSize := 0, nTotalFree := 0\n  DRV = 0\n  IF T_FLOPY__ = 1\n    SetCurDrive( \"A:\" ) // Liga o Drive A:\\\n    // Se Tiver Disquete no Drive A:\\\n    If GetDiskFreeSpaceEx( \"A:\\\", @nFreeBytes, @nTotalSize, @nTotalFree )\n    * MsgInfo( nFreeBytes )\n    * MsgInfo( nTotalSize )\n    * MsgInfo( nTotalFree )\n    Endif\n    // Se Nao Tiver Disquete no Drive A:\\\n    DO WHILE .T.\n      If !GetDiskFreeSpaceEx( \"A:\\\" )\n          If MsgYesNo(\"Não ha Disquete No Driver !\" + chr(13) +;\n              \" \" + chr(13) +;\n              \"Deseja Retentar ?   \" + chr(13) +;\n              \" \",SISTEMA)\n              LOOP\n              DRV = 0\n          else\n              DRV = 0\n              EXIT\n          EndIf\n      ELSE\n        DRV = 1\n        EXIT\n      Endif\n    ENDDO\n  ELSE\n    DRV = 1\n  ENDIF\n  SetCurDrive( DRIVE_TR )\nReturn DRV\n\n\nEspero Ter  Ajudado !\nBrasil Rumo ao HEXA (copa)','',0,'AIA=','3lehzyc0',1,0,'',517,0,0),(14571,2916,2,517,0,'200.195.2.246',1150801374,1,0,1,1,1,0,'','','Amigos até a presente Data não consegui Fazer funcionar  !','',0,'AIA=','zvml8iy8',1,0,'',517,0,0),(14572,3320,2,328,0,'72.252.68.62',1150805256,1,0,1,1,1,0,'','','Gracias Garbi, lo voy a revisar a ver que tal me va.\nSaludos.\n\nCarlos Sincuir','',0,'AIA=','2qoyl0ho',1,0,'',328,0,0),(14573,3292,6,83,0,'80.35.196.60',1150808901,1,0,1,1,1,0,'','','José Luis,\nEn el código que te mando la DBF esta encriptada SIEMPRE, nunca se desencripta, tan solo al leer se lee desencriptada en memoria, los datos de la DBF jamas se desencriptan, así que si la aplicación se rompe por cualquier causa, los datos nunca pueden quedar abiertos.\n\nSupongo que es a eso a lo que te refieres.\n\nsaludos. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','1b2ar05m',1,0,'',83,0,0),(14574,3342,20,444,0,'80.183.235.162',1150809596,1,0,1,1,1,0,'','','Ma testzip.prg lo preso negli esempi delle fw2.6\n\ncomunque se mi mandi la ducumentazione con un sorgrnte di esempio forse e meglio!\n\ngrazie mille!!\n\nDino\n\nemail:dino.alessandri@email.it','',0,'AIA=','2715kdil',1,0,'',444,0,0),(14575,3340,6,278,0,'200.72.147.140',1150812400,1,0,1,1,1,1,'','','Hola Ruben:\n\nGracias por responder, pero creo que no es ese el problema, pues ya tambien probé eso y no funcionó.','',0,'AIA=','1v1uqpty',1,0,'',278,0,0),(14576,3342,20,6,0,'82.57.160.164',1150817273,1,0,1,1,1,1,'','','[code:3b1kbikh]/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILE&#40;&#41;\n * $CATEGORY$\n *      ZIP FUNCTION\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILE&#40; &lt;cFile&gt; , &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt; ,\n *      &lt;bBlock&gt;,&lt;lOverWrite&gt; ,&lt;cPassword&gt;,&lt;lWithPath&gt;,&lt;lWithDrive&gt;&#41; ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n * $RETURNS$\n *      &lt;lCompress&gt;  &#46;t&#46; if file was create, otherwise &#46;f&#46;\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;&#46; If the extension\n *      is ommited, &#46;ZIP will be assumed&#46; If the second parameter is a\n *      character string, this file will be added to the zip file&#46; If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed&#46;\n *\n *      If &lt;nLevel&gt; is used, it detemines the compression type where 0 means\n *      no compression and 9 means best compression&#46;\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock&#46; Parameters of bBlock are cFile and nPos&#46;\n *\n *      If &lt;lOverWrite&gt; is used , it toggles to overwrite or not the existing\n *      file&#46; Default is to overwrite the file,otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;&#46;\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password&#46;\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored with\n *      the file name&#46; Default is false&#46;\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored \n *      with the file name&#46; Default is false&#46;\n *\n * $EXAMPLES$\n *      FUNCTION MAIN&#40;&#41;\n *\n *      IF HB_ZIPFILE&#40; &quot;TEST&#46;ZIP&quot;,&quot;TEST&#46;PRG&quot;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      IF HB_ZIPFILE&#40; &quot;TEST1&#46;ZIP&quot;,&#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      IF HB_ZIPFILE&#40; &quot;TEST2&#46;ZIP&quot;,&#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;,8,&#123;|nPos,cFile|,qout&#40;cFile&#41;&#125;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      aFiles &#58;= &#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;\n *      nLen   &#58;= Len&#40;afiles&#41;\n *      aGauge &#58;= GaugeNew&#40; 5, 5, 7,40 , &quot;W/B&quot;, &quot;W+/B&quot; ,\'²\'&#41;\n *      GaugeDisplay&#40; aGauge &#41;                                            \n *      Hb_ZIPFILE&#40;\'test33&#46;zip\',aFiles,8,&#123;|cFile,nPos| GaugeUpdate&#40;aGauge,nPos/nLen&#41;&#125;,,\'hello\'&#41;\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n * $END$\n */ \n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_UNZIPFILE&#40;&#41;\n * $CATEGORY$\n *      ZIP FUNCTION\n * $ONELINER$\n *      Unzip a compressed file\n * $SYNTAX$\n *      HB_UNZIPFILE&#40; &lt;cFile&gt; , &lt;bBlock&gt; , &lt;lWithPath&gt;&#41; ,&lt;cPassWord&gt;,&lt;cPath&gt;,\n *      &#91;&lt;cFile&gt;|&lt;aFile&gt;&#93;  &lt;---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lWithPath&gt; Toggle to create directory if needed\n *\n *      &lt;cPassWord&gt; Password to use to extract files\n *\n *      &lt;cPath&gt;    Path to extract the files&#46;\n *\n *      &lt;cFile&gt;|&lt;aFiles&gt; An file or an Array of files to extract\n * $RETURNS$\n *      &lt;lCompress&gt;  &#46;t&#46; if all file was successfuly restored, otherwise &#46;f&#46;\n * $DESCRIPTION$\n *      This function restores all files contained inside the &lt;cFile&gt;&#46;\n *      If the extension is ommited, &#46;ZIP will be assumed&#46; If a file already \n *      exists, it wlll be overwriten&#46;\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock&#46; Parameters of bBlock are cFile and nPos&#46;\n *\n *      The &lt;cPath&gt; is an obrogatory parameter&#46; Set to &quot;&#46;\\&quot; to extract to the\n *      current dir\n * $EXAMPLES$\n *      FUNCTION MAIN&#40;&#41;\n *\n *      IF HB_UNZIPFILE&#40; &quot;TEST&#46;ZIP&quot;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      IF HB_ZIPFILE&#40; &quot;TEST2&#46;ZIP&quot;,&#123;|cFile|,qout&#40;cFile&#41;&#125;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n * $END$\n */ \n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNZIPFILE&#40;&#41;\n * $CATEGORY$\n *      ZIP FUNCTION\n * $ONELINER$\n *      Gets the number of files that are in the zipfile\n * $SYNTAX$\n *      HB_GETUNZIPFILE&#40; &lt;cFile&gt;&#41; ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the zipfile\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the zipfile&#46;\n *      The purpose for this function is to use in conjuntion with the\n *      HB_UNZIPFILE&#40;&#41; function, so you can use returned result in the code\n *      block&#46; See example below&#46;\n * $EXAMPLES$\n *      FUNCTION MAIN&#40;&#41;\n *      Local nFiles &#58;=HB_GETUNZIPFILE&#40;\'test&#46;zip\'&#41;\n *\n *      if nFiles &gt;0\n *         ? &quot;This files Contains &quot;,nfiles\n *      endif\n *\n *      Return Nil\n *\n *      Here is an example of How to use HB_GETUNZIPFILE&#40;&#41; in conjunction\n *      with HB_UNZIPFILE&#40;&#41;\n *\n *      Function Main&#40;&#41;\n *      Local aGauge,nLen\n * \n *      aGauge &#58;= GaugeNew&#40; 5, 5, 7,40 , &quot;W/B&quot;, &quot;W+/B&quot; ,\'²\'&#41;\n *      GaugeDisplay&#40; aGauge &#41;\n *      nLen &#58;= HB_GETUNZIPFILE&#40;\'test22\'&#41;\n *      hb_UNZIPFILE&#40;\'test22\',&#123;|cFile,nPos| GaugeUpdate&#40;aGauge,nPos/nLen&#41;,qout&#40;cFile&#41;&#125;,&#46;t&#46;&#41;\n *\n *      Return Nil      \n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n * $END$\n */ \n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYTDSPAN&#40;&#41;\n * $CATEGORY$\n *      ZIP FUNCTION\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILEBYTDSPAN&#40;&#41;&#40; &lt;cFile&gt; , &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt; ,\n *      &lt;bBlock&gt;,&lt;lOverWrite&gt; ,&lt;cPassword&gt;,&lt;iSize&gt;,&lt;lWithPath&gt;,&lt;lWithDrive&gt;&#41; ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;iSize&gt; Size of the archive, in bytes,default is 1457664 bytes\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n * $RETURNS$\n *      &lt;lCompress&gt;  &#46;t&#46; if file was create, otherwise &#46;f&#46;\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;&#46; If the extension\n *      is ommited, &#46;ZIP will be assumed&#46; If the second parameter is a\n *      character string, this file will be added to the zip file&#46; If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed&#46;\n *\n *      If &lt;nLevel&gt; is used, it detemines the compression type where 0 means\n *      no compression and 9 means best compression&#46;\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock&#46; Parameters of bBlock are cFile and nPos&#46;\n *\n *      If &lt;lOverWrite&gt; is used , it toggles to overwrite or not the existing\n *      file&#46; Default is to overwrite the file,otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;&#46;\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored with\n *      the file name&#46; Default is false&#46;\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored \n *      with the file name&#46; Default is false&#46;\n *\n * $EXAMPLES$\n *      FUNCTION MAIN&#40;&#41;\n *\n *      IF HB_ZIPFILEBYTDSPAN&#40; &quot;TEST&#46;ZIP&quot;,&quot;TEST&#46;PRG&quot;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      IF ZIPFILEBYTDSPAN&#40; &quot;TEST1&#46;ZIP&quot;,&#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYTDSPAN&#40; &quot;TEST2&#46;ZIP&quot;,&#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;,8,&#123;|nPos,cFile|,qout&#40;cFile&#41;&#125;,\'hello\',,521421&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      aFiles &#58;= &#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;\n *      nLen   &#58;= Len&#40;afiles&#41;\n *      aGauge &#58;= GaugeNew&#40; 5, 5, 7,40 , &quot;W/B&quot;, &quot;W+/B&quot; ,\'²\'&#41;\n *      GaugeDisplay&#40; aGauge &#41;                                            \n *      HB_ZIPFILEBYTDSPAN&#40;\'test33&#46;zip\',aFiles,8,&#123;|cFile,nPos| GaugeUpdate&#40;aGauge,nPos/nLen&#41;&#125;,,\'hello\',,6585452&#41;\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n * $END$\n */ \n\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYPKSPAN&#40;&#41;\n * $CATEGORY$\n *      ZIP FUNCTION\n * $ONELINER$\n *      Create a zip file on removable media\n * $SYNTAX$\n *      HB_ZIPFILEBYPKSPAN&#40; &lt;cFile&gt; , &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt; ,\n *      &lt;bBlock&gt;,&lt;lOverWrite&gt; ,&lt;cPassword&gt;,&lt;lWithPath&gt;,&lt;lWithDrive&gt;&#41; ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n * $RETURNS$\n *      &lt;lCompress&gt;  &#46;t&#46; if file was create, otherwise &#46;f&#46;\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;&#46; If the extension\n *      is ommited, &#46;ZIP will be assumed&#46; If the second parameter is a\n *      character string, this file will be added to the zip file&#46; If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed&#46;Also , the use of this function is for creating\n *      backup in removable media like an floppy drive/zip drive&#46;\n *\n *      If &lt;nLevel&gt; is used, it detemines the compression type where 0 means\n *      no compression and 9 means best compression&#46;\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock&#46; Parameters of bBlock are cFile and nPos&#46;\n *\n *      If &lt;lOverWrite&gt; is used , it toggles to overwrite or not the existing\n *      file&#46; Default is to overwrite the file,otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;&#46;\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password&#46;\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored with\n *      the file name&#46; Default is false&#46;\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored \n *      with the file name&#46; Default is false&#46;\n *\n *      Before calling this function, Set an Changedisk codeblock by calling\n *      the HB_SETDISKZIP&#40;&#41;&#46;\n * $EXAMPLES$\n *      FUNCTION MAIN&#40;&#41;\n *\n *      IF HB_ZIPFILE&#40; &quot;a&#58;\\TEST&#46;ZIP&quot;,&quot;TEST&#46;PRG&quot;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN&#40; &quot;a&#58;\\TEST1&#46;ZIP&quot;,&#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN&#40; &quot;TEST2&#46;ZIP&quot;,&#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;,8,&#123;|nPos,cFile|,qout&#40;cFile&#41;&#125;&#41; \n *         qout&#40;&quot;File was successly create&quot;&#41;\n *      ENDIF\n *\n *      aFiles &#58;= &#123;&quot;TEST&#46;PRG&quot;,&quot;c&#58;\\windows\\win&#46;ini&quot;&#125;\n *      nLen   &#58;= Len&#40;afiles&#41;\n *      aGauge &#58;= GaugeNew&#40; 5, 5, 7,40 , &quot;W/B&quot;, &quot;W+/B&quot; ,\'²\'&#41;\n *      GaugeDisplay&#40; aGauge &#41;                                            \n *      Hb_ZIPFILEBYPKSPAN&#40;\'f&#58;\\test33&#46;zip\',aFiles,8,&#123;|cFile,nPos| GaugeUpdate&#40;aGauge,nPos/nLen&#41;&#125;,,\'hello\'&#41;\n *      // assuming f&#58;\\ as an Zip Drive       \n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n * $END$\n */\n\n/*  $DOC$\n *  $FUNCNAME$\n *      HB_SETDISKZIP&#40;&#41;\n *  $CATEGORY$\n *      Zip Function\n *  $ONELINER$\n *      Set an codeblock for disk changes\n *  $SYNTAX$\n *      HB_SETDISKZIP&#40;&lt;bBlock&gt;&#41;\n *  $ARGUMENTS$\n *      &lt;bBlock&gt; an Code block that contains an function that will be performed\n *      when the need of changing disk are need&#46;\n *  $RETURNS$\n *      It returns allways  True\n *  $DESCRIPTION$\n *      This function will set an codeblock that will be evaluated every time\n *      that an changedisk event is neccessary&#46;\n *\n *      Set this function before opening archives that are in removable media&#46;\n *      This block will be released, when the caller finish it job&#46;\n *  $EXAMPLES$\n *      HB_SETDISKZIP&#40;&#123;|x| alert&#40;\'Please insert disk no &quot;+str&#40;x,3&#41;&#41;&#125;&#41;\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n *  $END$\n */\n\n/*  $DOC$\n *  $FUNCNAME$\n *      HB_ZIPDELETEFILES&#40;&#41;\n *  $CATEGORY$\n *      Zip Functions\n *  $ONELINER$\n *      Delete files from an zip archive\n *  $SYNTAX$\n *      HB_ZIPDELETEFILES&#40;&lt;cFile&gt;,&lt;cFiletoDelete&gt;|&lt;aFiles&gt;&#41; --&gt; &lt;lDeleted&gt;\n *  $ARGUMENTS$\n *      &lt;cFile&gt;  The name of the zip files from where the files will be deleted\n *\n *      &lt;cFiletoDelete&gt; An File to be removed\n *\n *      &lt;aFiles&gt;    An Array of Files to Be Removed\n *  $RETURNS$\n *      &lt;lDeleted&gt; If the files are deleted , it will return &#46;T&#46;, otherwise\n *      it will return &#46;f&#46; for the Follow cases&#58; Spanned Archives, the file\n *      could not be found in the zip file&#46;\n *  $DESCRIPTION$\n *      This  function removes files from an Zip archive&#46;\n *  $EXAMPLES$\n *      ? &quot;has the file zipnew&#46;i been deleted &quot;,if&#40;HB_ZIPDELETEFILES&#40;\'\\test23&#46;zip\',\'zipnew&#46;i\'&#41;,&quot;Yes&quot;,&quot;No&quot;&#41;\n *  $STATUS$\n *      R\n *  $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n *  $END$\n */\n\n/*  $DOC$\n *  $FUNCNAME$\n *      HB_ZIPTESTPK&#40;&#41;\n *  $CATEGORY$\n *      Zip Functions\n *  $ONELINER$\n *      Test pkSpaned zip files\n *  $SYNTAX$\n *      HB_ZIPTESTPK&#40;&lt;cFile&gt;&#41; --&gt; &lt;nReturnCode&gt;\n *  $ARGUMENTS$\n *      &lt;cFile&gt;  File to be tested&#46;\n *  $RETURNS$\n *      &lt;nReturn&gt; An code that tell if the current disk is the Last of an pkspanded\n *      disk set&#46;\n *  $DESCRIPTION$\n *      This function tests if the disk inserted is the last disk of an backup\n *      set or not&#46;\n *      It will return the follow return code when an error is found\n *\n *      &lt;table&gt;\n *      Error code     Meaning\n *      114            Incorrect Disk\n *      103            No Call back was set with HB_SETDISKZIP&#40;&#41;\n *      &lt;/table&gt;\n *\n *      Call this function to determine if the disk inserted is the correct\n *      one before any other function&#46;\n *  $EXAMPLES$\n *       if &#40;HB_ZIPTESTPK&#40;\'a&#58;\\test22&#46;zip\'&#41;==114&#41;\n *           ? &quot;invalid Disk&quot;\n *       endif\n *  $STATUS$\n *      R\n *  $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n *  $END$\n */\n\n/*  $DOC$\n *  $FUNCNAME$\n *      HB_GETZIPCOMMENT&#40;&#41;\n *  $CATEGORY$\n *      Zip Functions\n *  $ONELINER$\n *      Return the comment of an zip file\n *  $SYNTAX$\n *      HB_GETZIPCOMMENT&#40;&lt;szFile&gt;&#41; --&gt; &lt;szComment&gt;\n *  $ARGUMENTS$\n *      &lt;szFile&gt;  File to get the comment from\n *  $RETURNS$\n *      &lt;szComment&gt; The comment that was stored in &lt;szFile&gt;\n *  $DESCRIPTION$\n *      This function recieve an valid zip file name as parameter,\n *      and return the global comment stored within&#46;\n *  $EXAMPLES$\n *      ? &quot;The comment of tes&#46;zip&quot;,HB_GETZIPCOMMENT&#40;\'tes&#46;zip\'&#41;\n *  $STATUS$\n *      R\n *  $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n *  $END$\n */\n\n/*  $DOC$\n *  $FUNCNAME$\n *      HB_SETZIPCOMMENT&#40;&#41;\n *  $CATEGORY$\n *      Zip Functions\n *  $ONELINER$\n *      Set an Zip archive Comment\n *  $SYNTAX$\n *      HB_SETZIPCOMMENT&#40;&lt;cComment&gt;&#41; --&gt;Nil\n *  $ARGUMENTS$\n *      &lt;cComment&gt;   Comment to add to the zip archive\n *  $RETURNS$\n *      &lt;NIL&gt; this function always return NIL\n *  $DESCRIPTION$\n *      This function stored an global comment to an zip archive&#46;\n *      It should be called before any of the Compression Function&#46;\n *  $EXAMPLES$\n *      HB_SETZIPCOMMENT&#40;&quot;This is an Test&quot;&#41;\n *      hb_zipfile&#40;\'test&#46;zip\',&#123;&quot;\\windows\\ios&#46;ini&quot;,&quot;\\windows\\win&#46;ini&quot;&#125;&#41;\n *  $STATUS$\n *      R\n *  $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n *  $END$\n */\n\n/*  $DOC$\n *  $FUNCNAME$\n *      HB_SETBUFFER&#40;&#41;\n *  $CATEGORY$\n *\n *  $ONELINER$\n *\n *  $SYNTAX$\n *      HB_SETBUFFER&#40;&#91;&lt;nWriteBuffer&gt;&#93;,&#91;&lt;nExtractBuffer&gt;&#93;,&#91;&lt;nReadBuffer&gt;&#93;&#41; --&gt;Nil\n *  $ARGUMENTS$\n *      &lt;nWriteBuffer&gt;   The size of the write buffer&#46;\n *\n *      &lt;nExtractBuffer&gt; The size of the extract buffer&#46;\n *\n *      &lt;nReadBuffer&gt;    The size of the read buffer&#46;\n *  $RETURNS$\n *      &lt;NIL&gt;            This function always return NIL&#46;\n *  $DESCRIPTION$\n *      This function set the size of the internal buffers for read/write/extract\n *      operation\n *\n *      If the size of the buffer is smaller then the default , the function\n *      will automaticaly use the default values,which is 65535/16384/32768&#46;\n *\n *      This function be called before any of the Compression/decompression\n *      Function&#46;\n *  $EXAMPLES$\n *      HB_SETBUFFER&#40;100000,115214,65242&#41;\n *  $STATUS$\n *      R\n *  $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n *  $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNRARFILE&#40;&#41;\n * $CATEGORY$\n *      RAR FUNCTION\n * $ONELINER$\n *      Gets the number of files that are in the rar file\n * $SYNTAX$\n *      HB_GETUNRARFILE&#40; &lt;cFile&gt;&#41; ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the rar file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the rarfile\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the rar file&#46;\n * $EXAMPLES$\n *      FUNCTION MAIN&#40;&#41;\n *      Local nFiles &#58;=HB_GETUNZIPFILE&#40;\'test&#46;zip\'&#41;\n *\n *      if nFiles &gt;0\n *         ? &quot;This files Contains &quot;,nfiles\n *      endif\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is zlib&#46;lib and zlib_bor&#46;lib For Borland Compilers\n *      Library is zlib&#46;lib zlib_ms&#46;lib for MSVC compilers\n * $END$\n */\n\n/*  $DOC$\n *  $FUNCNAME$\n *      COMPRESSSTRING&#40;&#41;\n *  $CATEGORY$\n *      Compression&#40;&#41;\n *  $ONELINER$\n *      Compress an string\n *  $SYNTAX$\n *      CompressString&#40;@&lt;cString&gt;,@&lt;nSize&gt;&#41;\n *  $ARGUMENTS$\n *      &lt;cString&gt;  Buffer to compress, must be passed by reference&#46;\n *\n *      &lt;nSize&gt;    The Lenght of the compression String\n *  $RETURNS$\n *      NIL\n *  $DESCRIPTION$   \n *      This function compress an string buffer and return the compression function\n *      and the size of this compression function&#46;\n *      This size is required for uncompression the string\n *  $EXAMPLES$\n *      Local cTest&#58;= memoread&#40;\'tzipfile&#46;prg\'&#41;\n *      ? \'String before compressing\',cTest\n *\n *      COMPRESSSTRING&#40;@cTest,@nSize&#41;\n *      ? &quot;Size&quot;,nSize\n *      ? &quot; &quot;\n *      ? &quot; &quot;\n *      ? \'String after compressing\',cTest\n *  $STATUS$\n *      R\n *  $COMPLIANCE$\n *      This function is a Harbour extension\n *  $PLATFORMS$\n *      All\n *  $SEEALSO$\n *      UNCOMPRESSSTRING&#40;&#41;\n *  $END$\n */\n/*  $DOC$\n *  $FUNCNAME$\n *      UNCOMPRESSSTRING&#40;&#41;\n *  $CATEGORY$\n *      Compression\n *  $ONELINER$\n *      Uncompress an String\n *  $SYNTAX$\n *      UNCOMPRESSSTRING&#40;&lt;cBuffer&gt;,&lt;nSize&gt;&#41; ---&gt; &lt;cUncompressBuffer&gt;\n *  $ARGUMENTS$\n *      &lt;cBuffer&gt;  The compressing string to uncompress\n *\n *      &lt;nSize&gt;    The saved size returned by compressionstring\n *  $RETURNS$\n *      &lt;cUncompressBuffer&gt;  The String uncompressed\n *  $DESCRIPTION$\n *\n *  $EXAMPLES$\n *      cOrig&#58;=UNCOMPRESSSTRING&#40;cTest,nSize&#41;\n *      ?\'uncompressed String\',cOrig\n *  $STATUS$\n *      R\n *  $COMPLIANCE$\n *      This function is a Harbour extension\n *  $PLATFORMS$\n *      All\n *  $SEEALSO$\n *      COMPRESSSTRING&#40;&#41;\n *  $END$\n */[/code:3b1kbikh]','',0,'AIA=','3b1kbikh',1,0,'',6,0,0),(14577,3296,6,138,0,'201.154.236.107',1150818002,1,0,1,1,1,1,'','','De todas formas la solucion no te va a servir....\n\nTienes que distribuir las 14 DLL de Crystal para que te funcione el informe y esas DLLs tienen que ir instaladas en los ordenadores donde vas a ejecutar el programa, no pueden ir en el servidor.','',0,'AIA=','158t4mad',1,0,'',138,0,0),(14578,3336,6,138,0,'201.154.236.107',1150818318,1,0,1,1,1,1,'','','Alvaro:\n\nLinkeaste el RDDADS. LIB y el ACE32.LIB a tu programa de 32 bits ?\n\nDonde pusiste las DLLs ACE32.DLL, AXCS32.DLL y ADSLOC32.DLL ?\n\nQue protocolo tienes instalado en el servidor (TCP/IP o IPX/SPX o ambos? )\n\nTienes instalado NetBeui en los protocolos de tus puestos ?\n\nHaz probado a ver si con el ARC tienes comunicacion con el servidor ?','',0,'AIA=','z3hmb7a2',1,0,'',138,0,0),(14579,3340,6,180,0,'83.35.215.156',1150818717,1,0,1,1,1,0,'','','¿No estará el problema en la creación  del índice?\nHas probado así   SET INDEX ON SUBSTR(Ciudades-&gt;Nombre,1,1) TAG Ciudad2 TO Ciudades \n\nUn saludo,\nManuel Aranda','',0,'AIA=','2anxmejj',1,0,'',180,0,0),(14580,3292,6,569,0,'201.248.144.52',1150818888,1,0,1,1,1,0,'','encriptacion de DBF','[quote=&quot;José Luis Sánchez&quot;:d5b104lr]Jose Vicente:\nA mi me gustaría mucho ver un ejemplo de la enriptación tal como la haces tu. Si me la puedes enviar por e-mail te lo agradecezco mucho.\n\nSaludos,[/quote:d5b104lr]\nSi te llego respuesta serias tan amable de reenviarmela a mi tambien pues estoy muy interesado.\nGracias\nRODOLFO SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','d5b104lr',1,0,'',569,0,0),(14581,3292,6,569,0,'201.248.144.52',1150819022,1,0,1,1,1,0,'','encriptar DBf','[quote=&quot;José Vicente Beltrán&quot;:18c7cfg9]José Luis,\nEn el código que te mando la DBF esta encriptada SIEMPRE, nunca se desencripta, tan solo al leer se lee desencriptada en memoria, los datos de la DBF jamas se desencriptan, así que si la aplicación se rompe por cualquier causa, los datos nunca pueden quedar abiertos.\n\nSupongo que es a eso a lo que te refieres.\n\nsaludos. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->[/quote:18c7cfg9]\nSerias tan amable de enviarme un ejemplo de tu solucion de encriptacion de las tablas DBF, anticipadamente gracias.\nRODOLFO SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','18c7cfg9',1,0,'',569,0,0),(14582,3311,3,632,0,'201.155.170.251',1150819183,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2intmtz3]Olguiver,\n\nDesde el directorio samples haz:\n\nbuildh.bat altd /b\n\naltd.prg es un ejemplo del directorio samples.[/quote:2intmtz3]\n\nHola!!!!\n\nGracias Antonio porfin ha salido la ventana del depurador. por un minuto pense q solo era un mito. pero gracias por el aporte. y por tomoarse tiempo. ahora solotengo q aser q mi depurador trabaje como debe <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->.','',0,'gA==','2intmtz3',1,0,'',632,0,0),(14583,3343,6,483,0,'200.43.160.40',1150819565,1,0,1,1,1,0,'','Gif Animados','Hola Foro:\nQuisiera usar gif animados en xHarbour, por ejemplo como usa el Verce cuando esta generando la aplicacion. Que clase debo usar ? Y si es posible algun ejemplo. Gracias','',0,'gA==','873gguhp',1,0,'',483,0,0),(14584,3340,6,61,0,'201.217.170.128',1150823527,1,0,1,1,1,0,'','','Juan:\n\nPrueba esto: Hace un indice substr(ciudad,1,1)\n\nMe parece que por ahi anda la cosa.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','qima3xa3',1,0,'',61,0,0),(14585,3292,6,9,0,'85.54.236.210',1150824132,1,0,1,1,1,1,'','','[quote=&quot;José Luis Sánchez&quot;:23z4tz8k]Hola:\nHe estado viendo el código que mandas y la idea es buena, pero lo que haces es una parte de mi problema. [/quote:23z4tz8k]\n\nJose Luis,\n\n¿Para probar la encriptación de Six xHarbour que libreria se necesita y donde puede conseguirse?','',0,'gA==','23z4tz8k',1,0,'',9,0,0),(14586,3311,3,2,0,'87.218.146.228',1150824619,1,0,1,1,1,1,'','','Me alegro de que lo hayas conseguido <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nComo te han comentado, en un sistema gestionado por eventos, como es Windows, es preferible usar trazas (con MsgInfo(), ó LogFile()) en vez de usar un debugger. Se generan tantísimos eventos, que seguirlos todos sería volverse loco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1t3t6ajm',1,0,'',2,0,0),(14587,3339,1,2,0,'87.218.146.228',1150824644,1,0,1,1,1,1,'','','You are welcome <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','bdx57pmg',1,0,'',2,0,0),(14588,3291,2,304,0,'201.155.7.216',1150830843,1,0,1,1,1,0,'','','Hola antonio:\nprobe con la primera opcion pero no hace nada\n\noGet:bKeyDown:= {|nKey| if( nKey==VK_RETURN, Prueba(), nil ) } \n\nprobe la opcion de manuramos y asi funciona correctamente, usando la opcion VALID del oGet y validando posteriormente Lastkey gracias por su ayuda','',0,'gA==','31ghxpno',1,0,'',304,0,0),(14589,3344,6,396,0,'201.243.101.52',1150839097,1,0,1,1,1,1,'','Creando recursos de 32 bit','Hola a todos, tengo siguiente problema, migre recursos de WS a 32 bits y los abro con PellesC, pero si copio uno o lo duplico y lo quiero trabajar al compilar da no puede abrir archivo windwows.h, este esta en la cabezera de mi .rc, pero al eliminar el recurso copiado o duplicado no da error, que otro editor de recursos de 32 es bueno? gracias, puedo crear .rc de 32 con WS?','',0,'gA==','27b43iuf',1,0,'',396,0,0),(14590,3343,6,2,0,'87.218.146.228',1150842674,1,0,1,1,1,1,'','','De momento no tenemos soporte para GIFs animados. Una alternativa es usar AVIs. Puedes revisar samples\\copyfile.prg','',0,'gA==','j2sy3q56',1,0,'',2,0,0),(14591,3338,3,2,0,'87.218.146.228',1150842782,1,0,1,1,1,1,'','','Ehab,\n\nThat sample is for FW 16 bits only.','',0,'gA==','109t6uhm',1,0,'',2,0,0),(14592,3345,3,213,0,'72.177.228.25',1150843072,1,0,1,1,1,0,'','Mapi Bug','All,\n\nCalling the MAPISendMail function causes the working directory to be changed.  \n\nUsing FWH 2.7 Apr 2006 and xBuilder/xHarbour Mar 2006.\n\nThanks,\nRandal Ferguson','',0,'gA==','17vxzawk',1,0,'',213,0,0),(14593,3343,6,362,0,'200.168.52.156',1150843907,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/files/sources/tgif89.zip\">http://vikthor.com.mx/fivewin/files/sources/tgif89.zip</a><!-- m -->','',0,'gA==','3n56pp1k',1,0,'',362,0,0),(14594,3343,6,362,0,'200.168.52.156',1150844062,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/602BORSHADE.ZIP\">http://www.fivewin.com.br/Dicas/602BORSHADE.ZIP</a><!-- m -->','',0,'gA==','1klq145b',1,0,'',362,0,0),(14595,3344,6,362,0,'200.168.52.156',1150844183,1,0,1,1,1,1,'','','SI, PUEDES USAR WORKSHOP.EXE SIN PROBLEMAS.\n\nRECOMENDABLE, KE USES ARCHIVOS.RES.\n\nSaludos.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/602BORSHADE.ZIP\">http://www.fivewin.com.br/Dicas/602BORSHADE.ZIP</a><!-- m -->','',0,'gA==','2pjhib0d',1,0,'',362,0,0),(14596,3292,6,439,0,'190.0.141.142',1150853120,1,0,1,1,1,1,'','Re: ejemplos de encrypt() y decrypt()','[quote=&quot;José Vicente Beltrán&quot;:24pbxzx7]Para los que aún sigan interesados en el ejemplo de uso lo teneis en\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c5a3e844/ejemplo_utilizaci__n_funciones_ENCRYPT_-_DECRYPT.txt.html\">http://hyperupload.com/download/02c5a3e ... T.txt.html</a><!-- m -->\n\nsaludos[/quote:24pbxzx7]\n\nPor favor caballeros, en vez de pedir lean los mensajes.........','',0,'gA==','24pbxzx7',1,0,'',439,0,0),(14597,3292,6,9,0,'85.54.236.210',1150864189,1,0,1,1,1,1,'','Re: ejemplos de encrypt() y decrypt()','[quote=&quot;jose_murugosa&quot;:2qmjqaac]Por favor caballeros, en vez de pedir lean los mensajes.........[/quote:2qmjqaac]\n\nJose,\n\nSi el tiro va por mi, comentarte que si lees bien mi mensaje, lo que le estoy pidiendo a Jose Luis es la libreria SIX de xHarbour, que es un RDD nativo del propio xHarbour, realizado por Przemyslaw Czerpak y que nada tiene que ver con el ejemplo de Jose Vicente.','',0,'gA==','2qmjqaac',1,0,'',9,0,0),(14598,3346,3,303,0,'72.199.41.171',1150869534,1,0,1,1,1,0,'','Non-standard Button','I am trying to make a button that doesn\'t look like a button. I am wondering if I should just use a bitmap and then detect a click on it, or can the OWNERDRAW style be used to create a non-standard button? I don\'t really understand OWNERDRAW. \n\nAny ideas?\n\nJames','',0,'gA==','331297ov',1,0,'',303,0,0),(14599,3347,3,303,0,'72.199.41.171',1150869705,1,0,1,1,1,0,'','SAY - Detecting mouse leaving','I can use oSay:bMMove to force the font to be changed when the cursor is over the SAY, but how can I then detect that the mouse is no longer over the SAY so I can change the font back. I am trying to make the font change to underlined when the mouse is over it, then change it back after.\n\nI have tried a bunch of things with no success.\n\nJames','',0,'gA==','36ruf4cx',1,0,'',303,0,0),(14600,3348,6,102,0,'83.46.97.45',1150870950,1,0,1,1,1,1,'','Una de dialogos','Hola foro.\nA ver si alguien me puede ayudar.\nTengo un problema y es que abro mi aplicacion con un DIALOG, el cual\nes la ventana principal de la app.\nEn el dialogo tengo un menu y una serie de botones con los cuales\naccedo al resto de la app.\nhasta aqui bien. Pulso un boton y abro abro otro dialogo que despues\nminimizo para poder acceder a una consulta en otro dialogo, pero no me\ndeja mientras no cierre el anterior.\nComo puedo hacer para poder tener abiertos varios dialogos a la vez.\nTodos los dilog que utilizo estan en un fichero de recursos RES.\n\nMuchas gracias','',0,'gA==','289kq2e1',1,0,'',102,0,0),(14601,3346,3,2,0,'87.218.146.228',1150871436,1,0,1,1,1,1,'','','James,\n\nBoth ways will be ok. You can use a bitmap that shows a button -the way you want it-. Ownerdraw means that the control will not be painted by itself. You will be notified to paint it yourself.','',0,'gA==','33qxiv6g',1,0,'',2,0,0),(14602,3337,3,2,0,'87.218.146.228',1150871647,1,0,1,1,1,1,'','','Ehab,\n\nsamples\\TestLbx.prg shows how to dinamically add new items to a listbox.\n\nsamples\\combos.prg shows how to use combos ON CHANGE event.\n\nCombine both concepts and you can do what you are looking for.','',0,'gA==','1tcdyylv',1,0,'',2,0,0),(14603,3348,6,2,0,'87.218.146.228',1150871765,1,0,1,1,1,1,'','','José,\n\nUtiliza la cláusula OF para especificar quien es el \"padre\" de un determinado diálogo:\n\nDEFINE DIALOG oDlg ... OF oWnd\n\nSi ambos diálogos tienen como \"padre\" la ventana principal, entonces podrás pasar de un diálogo a otro.','',0,'gA==','34dbxk7v',1,0,'',2,0,0),(14604,3296,6,413,0,'194.106.16.43',1150871889,1,0,1,1,1,0,'','','Rene por eso utilizamos la clase de TCRW, no nos da ningun problema y funciona a las mil maravillas en el servidor sin instalar ninguna dll en los ordenadores que lo emplean. De ahi la cuestion inicial de que necesito añadirle varias cosas mas a la clase para que haga todas estas cosas. De momento con lo que tengo ya puedo recuperar la formula de seleccion y combinarla con codigo de fivewin y luego integrarla de nuevo en el reporte sacando distintos reportes en tiempo de ejecucion. \nPregunta ¿ Rene tu utilizas la clase o lo haces atraves de los comandos OLE?.\n\nUn saludo.','',0,'gA==','2kicrq3n',1,0,'',413,0,0),(14605,3349,17,2,0,'87.218.146.228',1150871975,1,0,1,1,1,1,'','Lozada-LLinas, Class TGif89','Animated GIFs management for FiveWin:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0220ca9653/tgif89.zip.html\">http://hyperupload.com/download/0220ca9 ... 9.zip.html</a><!-- m -->','',0,'gA==','1m1vppr3',1,0,'',2,0,0),(14606,3350,19,2,0,'87.218.146.228',1150872124,1,0,1,1,1,1,'','Microsoft opens Windows Vista CPP - Beta 2 available to all','English x86:\n<!-- m --><a class=\"postlink\" href=\"http://download.windowsvista.com/preview/beta2/en/x86/iso/vista_5384.4.060518-1455_winmain_beta2_x86fre_client-LB2CFRE_EN_DVD.iso\">http://download.windowsvista.com/previe ... EN_DVD.iso</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://bartysblog.be/content/get-your-windows-vista-beta-2-keys-early\">http://bartysblog.be/content/get-your-w ... keys-early</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://download.windowsvista.com/preview/beta2/en/x86/download.htm\">http://download.windowsvista.com/previe ... wnload.htm</a><!-- m -->','',0,'gA==','1pqcr4v5',1,0,'',2,0,0),(14607,3291,2,2,0,'87.218.146.228',1150872538,1,0,1,1,1,1,'','','Prueba este ejemplo:\n[code:srja5pgr]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oGet, oBtn\n   local lTest &#58;= &#46;t&#46;\n   local nTest &#58;= 123, oTEST1\n   local cTest &#58;= &quot;ABC&quot;, oTEST2\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg TITLE &quot;A simple GET&quot; ;\n      FROM 2, 2 TO 13, 40\n\n   @ 10, 10 GET oTEST1 VAR nTest SIZE 120, 13 pixel OF oDlg RIGHT PICTURE &quot;999&#46;99&quot;;\n      valid &#40;oTEST1&#58;Refresh&#40;&#41;, &#46;T&#46;&#41;\n\n   @ 30, 10 GET oTEST2 VAR cTest SIZE 120, 13 pixel OF oDlg PICTURE &quot;@! XXXXXXXXXX&quot; color &quot;N*/W&quot;;\n      valid &#40;oTEST2&#58;Refresh&#40;&#41;, &#46;T&#46;&#41;\n\n   oTEST2&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; nKey &#41; &#125;\n\n   @ 3, 4 BUTTON oBtn PROMPT &quot;&amp;Ok&quot; SIZE 45, 12 OF oDlg ;\n      ACTION &#40; oDlg&#58;End&#40;&#41;, MsgInfo&#40; cTest &#41; &#41; DEFAULT\n\n   @ 3, 14 BUTTON &quot;&amp;Cancel&quot; SIZE 45, 12 OF oDlg ;\n      ACTION &#40; oDlg&#58;End&#40;&#41;, MsgInfo&#40; cTest &#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:srja5pgr]','',0,'AIA=','srja5pgr',1,0,'',2,0,0),(14608,3346,3,303,0,'72.199.41.171',1150872884,1,0,1,1,1,0,'','','Antonio,\n\nThanks. Is there an example in the \\samples directory, or do you have an example of either method?\n\nJames','',0,'AIA=','7maopovs',1,0,'',303,0,0),(14609,3193,3,32,0,'196.36.8.34',1150874095,1,0,1,1,1,0,'','Detect terminal server session alternative','#define SM_REMOTESESSION 4096\n\n  IF  GetSysMetrics( SM_REMOTESESSION ) &lt;&gt; 0\n    MsgAlert(\"On a Remote TS Session\")\n  endif','',0,'AIA=','96tiao3k',1,0,'',32,0,0),(14610,3351,6,413,0,'194.106.16.43',1150880100,1,0,1,1,1,0,'','Como hago para cargar este OCX.','Desde hace tiempo tengo ganas de poner un lector de TIFF a mis programas, que no es mas que un fichero conteniendo fotos (archivos graficos) pero que lo guarda en un solo fichero. He encontrado este control OCX que es gratis, pero los ejemplos que he encontrado en fivewin no veo como cargar este control viene con su registrador de la clase y todo. \nLo podeis descargas de <!-- m --><a class=\"postlink\" href=\"http://www.alternatiff.com/\">http://www.alternatiff.com/</a><!-- m --> \nAlguna idea de como cargarlo, los ejemplos que hay en fivewin solo hablan de cargar el identificador del ocx y eso no se como se hace.\n\nUn saludo','',0,'AIA=','33a1vyob',1,0,'',413,0,0),(14611,3348,6,102,0,'83.46.97.45',1150880351,1,0,1,1,1,1,'','','Antonio esto es lo que hago pero no me deja abrir otro dialogo mientras tenga el anterior abierto \nMi main dialog es asi:\nDEFINE DIALOG oWnd RESNAME \"MENU\" FONT oFont ICON oIcon TITLE cTitle\nSTYLE\nWS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|\nWS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_VISIBLE\n\nY los dialogos hijos son:\nDEFINE DIALOG oDlg RESNAME \"MANTEGEN\" FONT oFont ICON oIcon OF oWnd\nSTYLE WS_POPUP|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_VISIBLE\n\nSaludos\n\n[quote=&quot;Antonio Linares&quot;:3hllf6wc]José,\n\nUtiliza la cláusula OF para especificar quien es el \"padre\" de un determinado diálogo:\n\nDEFINE DIALOG oDlg ... OF oWnd\n\nSi ambos diálogos tienen como \"padre\" la ventana principal, entonces podrás pasar de un diálogo a otro.[/quote:3hllf6wc]','',0,'gA==','3hllf6wc',1,0,'',102,0,0),(14612,3347,3,6,0,'87.3.212.17',1150882920,1,0,1,1,1,1,'','Re: SAY - Detecting mouse leaving','Check tooltip management in TWindow.\n\nEMG','',0,'gA==','3mvtp678',1,0,'',6,0,0),(14613,3352,3,258,0,'193.190.122.30',1150883583,1,0,1,1,1,0,'','Ole with IE and xharbour','This code works fine when compiled with clipper and fivewin but\nwith xharbour and fivewin, the program stop .\n\nprocedure TIE()\nlocal he\nhe:=createoleobject(\"InternetExplorer.Application\")\n\nOleSetProperty(he,\"Visible\",.T.)\n*OleSetProperty(he,\"Toolbar\",.F.)\n*OleSetProperty(he,\"Statusbar\",.F.)\n*OleSetProperty(he,\"MenuBar\",.F.)\nOleInvoke(he,\"Navigate\",\"http://www.lesoir.be\")\nsysrefresh()\nreturn\n\n\n\nThanks for some info\n\nPhilippe Jacquet','',0,'gA==','17l95xcb',1,0,'',258,0,0),(14614,3351,6,413,0,'194.106.16.43',1150886042,1,0,1,1,1,0,'','','Coginedo el ejemplo de testocx y cambiando el identificador de la clase, me muestra el control pero en cuanto pulso algun boton me da un error en una ventana fivewin. El codigo que he hecho es el siguiente: [code:abfyglcm]\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//---------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, hOCX, n, oLbx\n   local aProperties &#58;= &#123;&#125;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX support&quot;\n\n   OcxInit&#40;&#41;\n\n   hOcx = OcxCreate&#40; 1, 1, 550, 550, &quot;&#123;106E49CF-797A-11D2-81A2-00E02C015623&#125;&quot;, oWnd&#58;hWnd &#41;\n	\n	\n   ACTIVATE WINDOW oWnd\n\n   OcxTerm&#40;&#41;\n\nreturn nil\n\n//---------------------------------------------------------------------------//\n\nDLL32 FUNCTION OCXInit&#40;&#41; AS VOID LIB &quot;FiveOCX&quot;\n\nDLL32 FUNCTION OCXTerm&#40;&#41; AS VOID LIB &quot;FiveOCX&quot;\n\nDLL32 FUNCTION OCXCreate&#40; cy AS LONG, cx AS LONG, y AS LONG, x AS LONG,;\n                        cClsID AS LPSTR, hWnd AS LONG &#41; AS LONG PASCAL LIB &quot;FiveOCX&quot;\n\nDLL32 FUNCTION OCXGetPropName&#40; hOCX AS LONG, nIndex AS LONG &#41; AS LPSTR PASCAL LIB &quot;FiveOCX&quot;\n\nDLL32 FUNCTION OCXGetNumProps&#40; hOCX AS LONG &#41; AS LONG PASCAL LIB &quot;FiveOCX&quot;\n\nDLL32 FUNCTION OCXShowProperties&#40; hOCX AS LONG, nX AS LONG, nY AS LONG, szTitle AS LPSTR &#41; ;\n   AS VOID PASCAL LIB &quot;FiveOCX&quot;\n\n\n[/code:abfyglcm]\n\nSabeis si necesito hacer algo mas para poder manejar el control, el control efectivamente aparece pero cuando pulso sobre el me da el error en la linea de ACTIVATE WINDOW oWnd, sabeis si tengo que poner algo mas. \n\nUn saludo.','',0,'AIA=','abfyglcm',1,0,'',413,0,0),(14615,3351,6,413,0,'194.106.16.43',1150889278,1,0,1,1,1,0,'','','Voy congiendo el hilo, ahora resulta que si lo hago con un control activex funciona a las mil maravillas.[code:2yedzipm]\n// Using Microsoft Excel ActiveX\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   // Warning&#58; You may need a different name based on your installed Office version\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Alttiff&#46;AlttiffCtl&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:2yedzipm]\n\nQue diferencia hay entre hacer una llamada entre OCX y ActiveX ?\n\nSaludos.','',0,'AIA=','2yedzipm',1,0,'',413,0,0),(14616,3342,20,444,0,'80.183.235.162',1150889955,1,0,1,1,1,0,'','','tutto ok!!!!!\n\nera proprio quello che mi serviva!\n\ngrazie!\n\nDino','',0,'AIA=','2iwundnr',1,0,'',444,0,0),(14617,3352,3,9,0,'85.54.236.210',1150890713,1,0,1,1,1,1,'','','You can checking this:\n\nlocal cLink := \"http://www.lesoir.be\"\nSHELLEXECUTE (GetActiveWindow(), nil, cLink, \'\', \'\', 5)','',0,'AIA=','2u77t6dj',1,0,'',9,0,0),(14618,3347,3,303,0,'72.199.41.171',1150890887,1,0,1,1,1,0,'','','Enrico,\n\nI already looked at tooltips in TWindow. A tooltip is displayed with a timer so it is hidden after the timer expires. Then the tooltip is ended in the LostFocus() method, but TSay never gets focus so it never looses focus.\n\nJames','',0,'AIA=','2ja1hmw8',1,0,'',303,0,0),(14619,3347,3,6,0,'87.3.212.17',1150892295,1,0,1,1,1,1,'','','No, a timer is used only in Clipper/FW (16 bit). Please note the #ifdef directive.\n\nHave a look at TMsgBar:MouseMove() method and at TWindow:lButtonUp() method (specifically the call to oWnd:NcMouseMove()).\n\nEMG','',0,'AIA=','39oawx3f',1,0,'',6,0,0),(14620,3353,3,217,0,'200.159.120.34',1150892627,1,0,1,1,1,0,'','How to add a VScroll in TPage','Antonio and all,\n\nHow can I add a vertical (and/or horizontal ) scroll bar in a page?\nI define it in Resource Workshop but when I move scroll bar using the mouse an error occur  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRegards\nMaurilio','',0,'AIA=','16yr72ju',1,0,'',217,0,0),(14621,3292,6,569,0,'201.248.144.52',1150897260,1,0,1,1,1,0,'','Re: Encriptacion de Bases de Datos desde xHarbour','Amigo Raymundo:\nSi lograste conseguir respuesta a tu problema de encriptacion de Tablas\nserias tan amable de hacermelas saber, pues de todas las que he leido\nen el foro, pienso que la mas acertada es la de ADS, aunque no se como utilizarlas o las que vienen con XHARBOUR, pero tampoco se como utilizarlas, pues solo conozco lo que he leido de ellas.\n\nRODOLFO SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','398n80ju',1,0,'',569,0,0),(14622,3336,6,511,0,'201.209.236.191',1150898595,1,0,1,0,1,0,'','','Hola Rene:\n\n&gt;Linkeaste el RDDADS. LIB y el ACE32.LIB a tu programa de 32 bits ? \nSi\n\n&gt;Donde pusiste las DLLs ACE32.DLL, AXCS32.DLL y ADSLOC32.DLL ? \nEn la carpeta de la aplicacion\n\n&gt;Que protocolo tienes instalado en el servidor (TCP/IP o IPX/SPX o ambos? ) \nAmbos\n\n&gt;Tienes instalado NetBeui en los protocolos de tus puestos ? \nSi\n\n&gt;Haz probado a ver si con el ARC tienes comunicacion con el servidor ?\nNo lo tengo instalado\n\nRene, mis sistemas en fw/clipper/blinker siempre se han conectado, la version de Ads es 5.1, novell Small Business 5, estacion win98 y Xp, el problema es que no puedo conectarlos con fwh/harbour, que me falta?.\neste es el build, gacias.\n\nset hdir=f:\\harbour\nset bcdir=f:\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i\\fwh\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho \\fwh\\lib\\FiveH.lib \\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\nrem uncomment this line to use the debugger and comment the next one\nrem %bcdir%\\bin\\ilink32 -Tpe -s @b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1.c\n\n:LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n\nSaludos','',0,'','1710ia4e',1,0,'',511,0,0),(14623,3340,6,511,0,'201.209.236.191',1150898970,1,0,1,0,1,0,'','','Juan:\n\nNo será el problema el SET INDEX, quita el SET:\n\nINDEX ON Ciudades-&gt;Codigo TAG Ciudad1 TO Ciudades \nINDEX ON Ciudades-&gt;Nombre TAG Ciudad2 TO Ciudades \n\nSaludos','',0,'','1lurkcmj',1,0,'',511,0,0),(14624,3346,3,343,0,'204.57.111.194',1150899730,1,0,1,1,1,0,'','','TSButton lets you have non standard buttons shapes.','',0,'','4b5dihro',1,0,'',343,0,0),(14625,3292,6,439,0,'190.0.137.126',1150900142,1,0,1,1,1,1,'','El tiro....','Manuel, \n\nPor quien precisamente NO IBA era por tí <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , pero además, no era un tiro, no ofendo a mis compañeros ya que sus aportes al foro me ayudan permanentemente. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nIntentaba resaltar el hecho que ya había un ejemplo para descargar para quienes nuevamente lo solicitaban (no para six), y no con el fin de ofender.\n\nMe disculpo si la forma en que lo expresé no fué la más feliz.\n\nUn abrazo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','xn09nlyy',1,0,'',439,0,0),(14626,3347,3,343,0,'204.57.111.194',1150900202,1,0,1,1,1,0,'','','TSButton does it by using a transparent button.','',0,'','3jezoq6i',1,0,'',343,0,0),(14628,3340,6,278,0,'200.72.147.140',1150901032,1,0,1,1,1,1,'','','Sigo por aqui:\n\n\n1)  Yo creo los indices con INDEX ON ... asi que no creo que sea eso.\n\n2) Voy a probar lo del Substr( )\n\n3) Sino no funciona, pienso regenerar de nuevo todas las librerias y cambiar de version del compilador.\n\n4) Se que el problema es bien tonto, pero me tiene complicado.\n\nGracias a todos por sus sugerencias. Le estare contando luego.\n\nJuan','',0,'','3h4sfkhh',1,0,'',278,0,0),(14629,3325,20,29,0,'88.149.161.221',1150901552,1,0,1,1,1,0,'','','Ecco la funzione di conversione che utilizza gfl.\nDevi passargli il file origine, il nome del file destinazione ed il formato da adottare per il nuovo file. Non fare caso al nome dei parametri, io utilizzo questa funzione unicamente per convertire un file bmp generato da scanner in formato jpg ma puoi convertirlo in una moltitudine di formati ed anche utilizzare file di input di formato diverso da bmp.\n\nConsidera che la libreria in questione non è utilizzabile a fini commerciali. Per utilizzarla a fini di lucro devi acquistare la versione commerciale (che comunque se ricordo bene ho pagato un centinaio di euro).\n\nSaluti\n\nMarco\n\nPS. Se la tua è solo una necessità di preview, puoi risolverla comunque più agevolmente con Easypreview che prevede tra l\'altro anche l\'export in pdf. Mentre per l\'export in RTF/DOC puoi utilizzare la dll di Amyuni Tecnologies specifica per la conversione EMF-&gt;RTF.\n\n#include \"Fivewin.ch\"\n\n\nSTATIC hLib\n\n\nFUNCTION convertfile( cWmf, cJpg, cFormatName )\n\n    LOCAL oGflLoadParams := OGFLLOADPARAMS()\n    LOCAL oGflSaveParams := OGFLSAVEPARAMS()\n    LOCAL oGflFileInfo   := OGFLFILEINFO()\n\n    LOCAL nGflBitmap := 0\n\n    LOCAL nRet\n\n    if .not. file(cWmf)\n        return\n    endif\n\n\n    hLib = LOADLIB32( \"libgfl.dll\" )\n\n    GFLLIBINIT()\n\n    GFLENABLELZW( 1 )\n\n    GFLGETDEFPARAMS( oGflLoadParams:cBuffer )\n\n    nRet = GFLLOADBMP( cWmf, @nGflBitmap, oGflLoadParams:cBuffer, oGflFileInfo:cBuffer )\n\n    GFLFREEFILEINFO( oGflFileInfo:cBuffer )\n\n    oGflSaveParams:nFmtIndex = GFLFMTINDEX( cFormatName )\n    oGflSaveParams:nQuality  = 100\n    oGflSaveParams:nProgress = 1\n\n    nRet = GFLSAVEBMP( cJpg, nGflBitmap, oGflSaveParams:cBuffer )\n\n    GFLLIBEXIT()\n\n    FREELIB32( hLib )\n\n    ferase(cWmf)\n\n    RETURN NIL\n\n\n#include \"Struct.ch\"\n\n\nSTATIC FUNCTION OGFLBITMAP()\n\n    LOCAL oGflBitmap\n\n    STRUCT oGflBitmap\n        MEMBER nType      AS WORD\n        MEMBER nOrigin    AS WORD\n        MEMBER nWidth     AS LONG\n        MEMBER nHeight    AS LONG\n        MEMBER nBytesPL   AS DWORD\n        MEMBER nLinePad   AS WORD\n        MEMBER nReserved  AS WORD\n        MEMBER nBytesPP   AS BYTE\n        MEMBER nBitsPC    AS BYTE\n        MEMBER nXDpi      AS WORD\n        MEMBER nYDpi      AS WORD\n        MEMBER nTranspInd AS WORD\n        MEMBER nClrUsed   AS LONG\n        MEMBER nClrMap    AS LONG\n        MEMBER nData      AS LONG\n    ENDSTRUCT\n\n    RETURN oGflBitmap\n\n\nSTATIC FUNCTION OGFLLOADPARAMS()\n\n    LOCAL oGflLoadParams\n\n    STRUCT oGflLoadParams\n        MEMBER nFlags     AS DWORD\n        MEMBER nFormatInd AS LONG\n        MEMBER nImgWant   AS LONG\n        MEMBER nOrigin    AS WORD\n        MEMBER nClrModel  AS WORD\n        MEMBER nLinePad   AS DWORD\n        MEMBER nDefAlpha  AS BYTE\n        MEMBER nReserved1 AS BYTE\n        MEMBER nReserved2 AS WORD\n        MEMBER nWidth     AS LONG\n        MEMBER nHeight    AS LONG\n        MEMBER nOffset    AS DWORD\n        MEMBER nChanOrder AS WORD\n        MEMBER nChanType  AS WORD\n        MEMBER nPcdBase   AS WORD\n        MEMBER nEpsDpi    AS WORD\n        MEMBER nEpsWidth  AS LONG\n        MEMBER nEpsHeight AS LONG\n        MEMBER nRead      AS DWORD\n        MEMBER nTell      AS DWORD\n        MEMBER nSeek      AS DWORD\n        MEMBER nAlloc     AS DWORD\n        MEMBER nFree      AS DWORD\n        MEMBER nAllocParm AS DWORD\n    ENDSTRUCT\n\n    RETURN oGflLoadParams\n\n\nSTATIC FUNCTION OGFLSAVEPARAMS()\n\n    LOCAL oGflSaveParams\n\n    STRUCT oGflSaveParams\n        MEMBER nFlags     AS DWORD\n        MEMBER nFmtIndex  AS LONG\n        MEMBER nCompress  AS WORD\n        MEMBER nQuality   AS WORD\n        MEMBER nCmpLevel  AS WORD\n        MEMBER nInterlacd AS BYTE\n        MEMBER nProgress  AS BYTE\n        MEMBER nOffset    AS DWORD\n        MEMBER nChanOrder AS WORD\n        MEMBER nChanType  AS WORD\n        MEMBER nWrite     AS DWORD\n        MEMBER nTell      AS DWORD\n        MEMBER nSeek      AS DWORD\n        MEMBER nAlloc     AS DWORD\n        MEMBER nFree      AS DWORD\n        MEMBER nAllocParm AS DWORD\n    ENDSTRUCT\n\n    RETURN oGflSaveParams\n\n\nSTATIC FUNCTION OGFLFILEINFO()\n\n    LOCAL oGflFileInfo\n\n    STRUCT oGflFileInfo\n        MEMBER nType      AS WORD\n        MEMBER nOrigin    AS WORD\n        MEMBER nWidth     AS LONG\n        MEMBER nHeight    AS LONG\n        MEMBER nFormatInd AS LONG\n        MEMBER cFormtName AS STRING LEN 8\n        MEMBER cDescriptn AS STRING LEN 64\n        MEMBER nXDpi      AS WORD\n        MEMBER nYDpi      AS WORD\n        MEMBER nBitsPP    AS WORD\n        MEMBER nPlanes    AS WORD\n        MEMBER nBytesPP   AS DWORD\n        MEMBER nImages    AS LONG\n        MEMBER nFileSize  AS DWORD\n        MEMBER nClrModel  AS WORD\n        MEMBER nCompressn AS WORD\n        MEMBER cCmpDescrp AS STRING LEN 64\n        MEMBER nComment   AS WORD\n        MEMBER nReserved  AS WORD\n        MEMBER nComments  AS LONG\n    ENDSTRUCT\n\n    RETURN oGflFileInfo\n\n\nDLL32 FUNCTION GFLLIBINIT() AS LONG;\n      PASCAL FROM \"gflLibraryInit\" LIB hLib\n\nDLL32 FUNCTION GFLLIBEXIT() AS VOID;\n      PASCAL FROM \"gflLibraryExit\" LIB hLib\n\nDLL32 FUNCTION GFLENABLELZW( nEnable AS LONG ) AS VOID;\n      PASCAL FROM \"gflEnableLZW\" LIB hLib\n\nDLL32 FUNCTION GFLGETDEFPARAMS( cLoadParams AS LPSTR ) AS VOID;\n      PASCAL FROM \"gflGetDefaultLoadParams\" LIB hLib\n\nDLL32 FUNCTION GFLFREEFILEINFO( cFileInfo AS LPSTR ) AS VOID;\n      PASCAL FROM \"gflFreeFileInformation\" LIB hLib\n\nDLL32 FUNCTION GFLLOADBMP( cFileName AS LPSTR, @nBitmap AS PTR, cLoadParams AS LPSTR, cInformation AS LPSTR ) AS LONG;\n      PASCAL FROM \"gflLoadBitmap\" LIB hLib\n\nDLL32 FUNCTION GFLSAVEBMP( cFileName AS LPSTR, nBitmap AS LONG, cSaveParams AS LPSTR ) AS LONG;\n      PASCAL FROM \"gflSaveBitmap\" LIB hLib\n\nDLL32 FUNCTION GFLFMTINDEX( cFormat AS LPSTR ) AS LONG;\n      PASCAL FROM \"gflGetFormatIndexByName\" LIB hLib','',0,'','1tvsi0uu',1,0,'',29,0,0),(14630,3336,6,138,0,'201.154.236.107',1150902979,1,0,1,1,1,1,'','','Los tiros van por el tema del protocolo.... quita el NetBeui deja solo TCP/IP e IPX/SPX.\n\nAsegurate que la trama IPX sea la misma en ambos, cliente y servidor.\n\nSi tienes novell 5.x o superior, quita el protocolo IPX y deja solo TCP/IP\n\nInstala el ARC en tu estacion de trabajo y prueba si tienes conectividad al servidor.\n\nLa aplicaciones en Clipper / FW funcinan porque tienen asumido el tema del protocolo, por defaul para las aplicaciones de 16 bits es IPX/SPX, sin embargo para las aplicaciones de 32 bits hay que trabajar un poco mas con la configuracion de la red.','',0,'','30gzw5rg',1,0,'',138,0,0),(14631,3296,6,138,0,'201.154.236.107',1150903336,1,0,1,1,1,1,'','','Yo usaba la clase Crystal para 16 bits, luego cuando pase mis aplicaciones a 32 bits, hice la version compatible, sin embargo, me di cuenta que para utilizar Crystal con otras interfases graficas y aun desde el mismo (x)Harbour puro y duro, era mas facil utilizarlo por OLE asi que adapte todo para funcionar por OLE y tengo mucha mas verastilidad.\n\nPor el lado de la instalacion y registro del componente COM no tengo problema, el InnoSetup se encarga de eso.','',0,'','14njp48f',1,0,'',138,0,0),(14632,3348,6,102,0,'83.46.97.45',1150904269,1,0,1,1,1,1,'','','Oskar.\n\nEsto funciona Muchas gracias\n\nSaludos\n\n[quote=&quot;oskar&quot;:26a7rjjd]Jose activa tus dialogos hijos con la clausula NoWait\n\nDefine dialog oDlg Resource \"DL_HIJO\"\n\nActivate dialog oDlg [b:26a7rjjd]NOWAIT[/b:26a7rjjd]\n\nespero te sirva\n\nsalu2[/quote:26a7rjjd]','',0,'wA==','26a7rjjd',1,0,'',102,0,0),(14633,3352,3,138,0,'201.154.236.107',1150905704,1,0,1,1,1,1,'','','Go the OLE Automation way:\n\n[code:19vwc4oa]procedure TIE&#40;&#41;\nlocal he\nhe&#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;InternetExplorer&#46;Application&quot;&#41;\n\nhe&#58;Visible &#58;= &#46;T&#46;\nhe&#58;Toolbar &#58;= &#46;F&#46;\nhe&#58;Statusbar &#58;=&#46;F&#46;\nhe&#58;MenuBar &#58;= &#46;F&#46;\nhe&#58;Navigate&#40;&quot;http&#58;//www&#46;lesoir&#46;be&quot;&#41;\nsysrefresh&#40;&#41;\nreturn [/code:19vwc4oa]','',0,'AIA=','19vwc4oa',1,0,'',138,0,0),(14634,3352,3,2,0,'87.218.146.242',1150906886,1,0,1,1,1,1,'','','Jacquet,\n\nTry this:\n[code:29fqtuci]\nhe&#58;=createoleobject&#40;&quot;InternetExplorer&#46;Application&quot;&#41; \nMsgInfo&#40; he &#41;\n[/code:29fqtuci]\nand tell us what value you get.','',0,'AIA=','29fqtuci',1,0,'',2,0,0),(14635,3351,6,2,0,'87.218.146.242',1150907197,1,0,1,1,1,1,'','','Andrés,\n\nUsalo como ActiveX. El soporte de OCX de TestOCX no es correcto.','',0,'AIA=','d8xhf3pc',1,0,'',2,0,0),(14636,3348,6,2,0,'87.218.146.242',1150907454,1,0,1,1,1,1,'','','José Martin,\n\nTienes que comprender la diferencia entre caja de diálogo modales y no modales, y por otra parte el concepto de \"padre\" de un determinado diálogo. Si no especificas la cláusula OF, FiveWin usará como \"padre\" la ventana ó diálogo que en ese momento este seleccionada.\n\nUn diálogo modal no permite cambiar a otro diálogo modal, salvo que sea \"hijo\" de este anterior.','',0,'AIA=','2h67q80l',1,0,'',2,0,0),(14637,3346,3,2,0,'87.218.146.242',1150907800,1,0,1,1,1,1,'','','James,\n\nYou may review Class TSButton as Gale comments you.\n\nAlso, you may review FWH Class TButtonBmp to see how we change the standard painting of a button, though we don\'t use the ownerdraw style.','',0,'AIA=','2itjyw8c',1,0,'',2,0,0),(14638,3340,6,61,0,'201.217.174.168',1150910552,1,0,1,1,1,0,'','','Juan:\nAsi te debe funcionar:\nAl crear el indice con substr(ciudades,1,1)\nno tienes problemas.\nEsto lo tengo funcionando.  \n\nCiudades-&gt;( OrdSetFocus( \"Ciudad2\" ) )\nCiudades-&gt;( DbGoTop() )\n\nCiudades-&gt;( ORDSCOPE( 0 , \"A\" ) )\nCiudades-&gt;( ORDSCOPE( 1 , \"C\" ) )\nCiudades-&gt;( DbGoTop() ) \n\nDespues me cuentas\n\nSaludos\nRuben Fernandez','',0,'AIA=','8kejda4n',1,0,'',61,0,0),(14639,3354,1,620,0,'209.189.229.150',1150912315,1,0,1,1,1,0,'','Migration to 32 bits','I am just now getting back into updating programs that I have been using now for 5-6 years.  Im on FiveWin 2.0/clipper and am wondering about any advantage to moving to Harbour 32 bits.  How transportable is the code...will I have to do much in the way of re-writing code?  Thanks in advance!','',0,'AIA=','3sq8c5dt',1,0,'',620,0,0),(14640,3355,1,620,0,'209.189.229.150',1150912534,1,0,1,1,1,0,'','Macintosh Development','I have a FiveWin program suite that i would DEARLY love to have run on Macs....is there any compatible compiler that can take existing code and make it run on the Mac OsX platform????','',0,'AIA=','3v10x742',1,0,'',620,0,0),(14641,1808,2,439,0,'190.0.142.247',1150916341,1,0,1,1,1,1,'','','[quote=&quot;devwin2004&quot;:1g50hs7k]Estimados Colegas\n\nPueden descargar  una demo  que contiene un browse para facturacion\ncon tsbrowse (clipper) desde <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->\nal que le interese le puedo enviar los fuentes del modulo de facturacion\n\nGracias\nDEvwin2004[/quote:1g50hs7k]\n\nMe interesaría, podrías enviármelos también a <!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e -->','',0,'gA==','1g50hs7k',1,0,'',439,0,0),(14642,3356,2,304,0,'201.155.7.216',1150918715,1,0,1,1,1,0,'','Activar un oBtn con Click del Mouse y Enter de teclado','Hola:\nen una ventana coloque 6 oBtns, que activan o desactivan oGets segun sea el caso (mediante oGet:Disable, oGet:Enable), el motivo del presente es que cuando doy click al oBtn \"buscar\" se activan correctamente los gets que quiero y se deshabilitan los que no uso, asi tambien se posisiciona el cursor en el primer oGet \"Sucursal\", sin embargo cuando le doy \"Enter\" sobre el mismo oBtn \"Buscar\" no hace lo mismo, el foco lo deja en un boton que no quiero, mi pregunta es la siguiente:\ncomo puede realizar eventos diferente si tengo entendido que el click izquierdo, el enter, y la tecla activa (alt + \"B\") x ejemplo debieran hacer lo mismo ?, que estare haciendo mal ??\n\nSaludos\nVeracruz, Ver.\nMexico','',0,'gA==','1wnyrrst',1,0,'',304,0,0),(14643,3325,20,49,0,'87.11.191.116',1150930964,1,0,1,1,1,1,'','','grazie marco !!!!!!!!!\nsto rimettendo in piedi il nostro vecchio rpreview...in xp theme aggiungendogli altre cose semmai te lo invio cosi mi puoi aiutare ...','',0,'gA==','1h3ldaw6',1,0,'',49,0,0),(14644,3354,1,2,0,'87.218.146.211',1150931205,1,0,1,1,1,1,'','','Greg,\n\nYou can port your FW+Clipper applications to 32 bits FWH+Harbour/xharbour ones, in record time. The compatibility level is very high, almost 100%, except for some operations that may not be allowed by the operating system (low level interrupts, VBXs management, etc). You can have your apps in 32 bits in one or two weeks.\n\n32 bits applications provide a much better integration with Windows XP and next Windows Vista too. There are no memory limitations, so applications are more stable. Better integration with Windows drivers (printers and other devices).','',0,'gA==','tu3ttdly',1,0,'',2,0,0),(14645,3355,1,2,0,'87.218.146.211',1150931575,1,0,1,1,1,1,'','','Greg,\n\nAt FiveTech we have been doing R&amp;D to provide a OSX compatible version of FiveWin, though still we are far from having a final product.  \n\nDo you have a demo version of your application so we can review it ?','',0,'gA==','22xa6gv1',1,0,'',2,0,0),(14646,3356,2,2,0,'87.218.146.211',1150931742,1,0,1,1,1,1,'','','Tienes algún botón que sea DEFAULT en la caja de diálogo ?','',0,'gA==','3ssnt25j',1,0,'',2,0,0),(14647,3354,1,620,0,'209.33.123.28',1150932933,1,0,1,1,1,0,'','thanks','Antonio....thanks for the info.\n\nIm having a particular problem with printing forms to different printers in our network from certain Win98 machines.  Reading some other threads it appears there are growing compatibility issues with print drivers so I assume to correct these issues I really need to move quickly to 32bits??\n\nTo make the jump, please outline exactly what I need to purchase to make the transition.  Thanks again!','',0,'gA==','31m8i2gh',1,0,'',620,0,0),(14648,3355,1,620,0,'209.33.123.28',1150933212,1,0,1,1,1,0,'','','Glad to hear you are working on a Mac option.  I think with them moving to the Intel processor, the Mac will become a more important business tool.  In my line of work (printing/graphic arts), Macs rule.  We use PCs for our business apps.  I have developed an estimating &amp; job ticket system and separately a job tracking system that I am integrating together.  It would be extrememly beneficial to have the job tracking available on the Mac platform as many of the tracking functions have to be done my Mac operators...right now they have to go to a PC to enter the data.\n\nI am near a point I believe I can market this to other printing/graphics companies.  I would be pleased for you to review it.  How is the best way to let you do that?','',0,'gA==','2b2afuu3',1,0,'',620,0,0),(14649,3325,20,15,0,'203.73.66.216',1150944874,1,0,1,1,1,0,'','','Hello Marco Turco\n\nyour solution support EMF-&gt;JPG file?\nMy preview report EMF file.\nI want to convert to JPG file.\nWork fine?\n\nRegards,\n\nRichard','',0,'gA==','2ivjlxhq',1,0,'',15,0,0),(14650,3354,1,2,0,'87.218.146.211',1150960044,1,0,1,1,1,1,'','','Greg,\n\nYes, there are some printers drivers that just properly work when used from a 32 bits application.\n\nThe product you need is FWH (FiveWin for Harbour). You may order it from <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/english/purchase.html\">https://secure.fivetechsoft.com/english/purchase.html</a><!-- m -->\n\nYou get all you need for a real quick move to 32 bits.','',0,'gA==','28u1yu72',1,0,'',2,0,0),(14651,3355,1,2,0,'87.218.146.211',1150960288,1,0,1,1,1,1,'','','Greg,\n\nYou may email me a FTP address where download it from, or if it is not too large, you may ZIP it and email it to me (<!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->)','',0,'gA==','2n73mwuu',1,0,'',2,0,0),(14652,3325,20,49,0,'213.82.134.66',1150960841,1,0,1,1,1,1,'','','Also My Preview report converte to  any graphics format :\nyou can use it if you have Irfanview program\nNow you can show multipreview : one page,two page,four page,six page... in a window\nNow you can go to page selected.\ni\'m working to insert many features...\n\nRegards','',0,'gA==','33f8gyqj',1,0,'',49,0,0),(14653,3357,6,132,0,'83.213.45.32',1150961161,1,0,1,1,1,1,'','Ejecutar funciones creadas a traves de codigo','Saludos amigos:\n\nTrato de crear una rutina que me permita ejecutar funciones creadas desde codigo, quizas con un ejemplo se entienda mejor.\n\nDEFINE WINDOW oWnd TITLE \"Pruebas\" COLOR \"W+/BG\";\n  @  8,10 COMBOBOX oCbx VAR cCbx {\"Cliente\",\"Proveedor\",\"Articulo\"} OF oWnd SIZE 50,40\n  @ 10, 10 BUTTON oBtn1 PROMPT \"Funcion\" OF oWnd SIZE 32,16 ACTION MiFuncion(oWnd,cCbx)\n  @ 14, 10 BUTTON oBtn2 PROMPT \"Salir\" OF oWnd SIZE 32,16 ACTION oWnd:End()\nACTIVATE WINDOW oWnd MAXIMIZED\n// \nFUNCTION MiFuncion(oWnd,cCbx)\n[color=red:2343v7di]  [// Aqui deberia ir el codigo que en funcion del valor del Combobox, lanzara la funcion correspondiente, algo asi como:\n   &amp;(cCbx+\"(oWnd)\") // Esto no funciona[/color:2343v7di]\nRETURN nil\n//\nFUNCTION CLiente(oWnd)\n  MsgInfo(\"Archivo de clientes\")\nRETURN nil\n//\nFUNCTION Proveedor(oWnd)\n  MsgInfo(\"Archivo de proveedores\")\nRETURN nil\n//\nFUNCTION Articulo(oWnd)\n  MsgInfo(\"Archivo de articulos\")\nRETURN nil\n\nGracias de antemano por vuestra ayuda','',0,'Ag==','2343v7di',1,0,'',132,0,0),(14654,3358,7,470,0,'80.34.9.135',1150961528,1,0,1,1,1,0,'','mamartin','Hola!\n\nMe gustaría saber si hay alguna función que nos devuelva la versión del sistema operativo que esta instalado en nuestra Pocket PC.\n\nMuchas gracias.','',0,'Ag==','2sfsm5qe',1,0,'',470,0,0),(14655,3348,6,102,0,'83.46.97.45',1150963870,1,0,1,1,1,1,'','','Antonio.\nYa comprendo. Ahora te hago otra pregunta.\n  *-----------------------------------------------------------\nEntro en la aplicación\nVoy a mCliente.prg a Consultar la tabla Clientes\nUna vez en clientes minimizo la ventana\nuna vez minimizada me voy a consulta almacen\nConsulto almacen y cierro la ventana\nMe voy a restaurar le ventana de clientes y me da un casque\nque dice no existe el alias \"CLI\"\nPor que hace esto?\nQue hago mal?\nDebo de abrir las tablas en la ventana principal ?\n\nGracis de antemano\nUn saludo\n\n \n//....................................................\n/MyAplic.Prg\n*..........\n#Include \"FiveWin.Ch\"\n*...........\nStatic oWndMain\n*...........\nFunction MainAplic()\nLocal bTnCli,bTnalm,bTnPob,oFont\nDEFINE DIALOG oWndMain RESOURCE \'Principal\' FON oFont\n\n   REDEFINE BUTTON BtnCli ID 201  OF oWndMain FONT oFont ;\n        ACTION (ConsultaCli(oWndMain))\n        //Voy a mCliente.prg a Consultar la tabla Clientes\n\n   REDEFINE BUTTON BtnAlm ID 202  OF oWndMain FONT oFont ;\n        ACTION (ConsultaAlm(oWndMain)\n        //Voy a mAlmacen.prg a Consultar la tabla Almacen\n\n   REDEFINE BUTTON BtnPob ID 203  OF oWndMain FONT oFont ;\n        ACTION (ConsultaPob(oWndMain)\n        //Voy a mPoblaci.prg a Consultar la tabla poblaci\n\n   REDEFINE BUTTON BtnEnd ID 204  OF oWndMain FONT oFont ;\n        ACTION (oWndMain:End())\n\nACTIVATE DIALOG oWndMain CENTERED\nReturn Nil\n-----------------------------------------------------\n-----------------------------------------------------\n#Include \"FiveWin.Ch\"\n*Mcliente.Prg\nFunction ConsultaCli(oWndMain)\nLocal oDlgCli,oBtend,oLbx,oFont,...etc.\nIf Abretablas()\n   Select(\'Cli\')\n   DEFINE DIALOG oDlgCli RESOURCE \'Clientes\' FONT oFont OF oWndMain\n\n      REDEFINE LISTBOX oLbx ;\n               FIELDS  ;\n                    Cli-&gt;CLICODIGO  ,;\n                    Cli-&gt;CLINOMBRE  ,;\n                    Cli-&gt;CLIDIRECC  ,;\n                    Cli-&gt;CLIPOBLAC  ,;\n                    Cli-&gt;CLIPOSTAL  ,;\n                    Cli-&gt;CLIPROVIN  ,;\n                    Cli-&gt;CLIDNINIF   ;\n               HEADERS ;\n                    \"Código\",\"Empresa\",\"Dirección\"    ,;\n                    \"Población\",\"C.Postal\",\"Provincia\",\"Dni / Nif\" ;\n               FIELDSIZES 50,180,180,180,50,100,100                ;\n               ID 101 OF oDlgcli ;\n               UPDATE\n      oLbx:nLineStyle := 3\n      oLbx:bChange    := {||oLbx:Refresh()}\n\n      REDEFINE BUTTON oBtEnd ID 102 OF oDlgCli FONT oFont ;\n           ACTION (oDlgCli:End())\n\n   ACTIVATE DIALOG oDlgCli CENTERED NOWAIT\n\n   oDlg:End()\n   oFont:End()\n\n   Dbcloseall()\nElse\n    MsgInfo(\'Imposible abrir tablas\',\'ERROR\')\nEndif\nReturn Nil\n-----------------------------------------------------\n-----------------------------------------------------\n*MAlmacen.Prg\n#Include \"FiveWin.Ch\"\nFunction ConsultaCli(oWndMain)\nLocal oDlgAlm,oBtend,oLbx,oFont...etc.\nIf Abretablas()\n   DEFINE DIALOG oDlgAlm RESOURCE \'Almacen\' FONT oFont OF oWndMain\n\n      Select(\'Alm\')\n      REDEFINE LISTBOX oLbx ;\n               FIELDS  ;\n                    Alm-&gt;CLIENTE    ,;\n                    Alm-&gt;ARTICULO   ,;\n                    Alm-&gt;DESCRIPC   ,;\n               Dtoc(Alm-&gt;FECHA_ENT) ,;\n          Transform(Alm-&gt;CANTIDAD,\'@Z 999,999\')  ;\n               HEADERS ;\n                    \"Cliente\",\"Articulo\",\"Descripción\",\"Cantidad\" ;\n               ID 101 OF oDlgAlm;\n               UPDATE\n      oLbx:nLineStyle := 3\n      oLbx:bChange    := {||oLbx:Refresh()}\n\n\n      REDEFINE BUTTON oBtEnd ID 102 OF oDlgAlm FONT oFont ;\n           ACTION (oDlgAlm:End())\n\n\n   ACTIVATE DIALOG oDlgAlm CENTERED NOWAIT\n\n   oDlg:End()\n   oFont:End()\n\n   Dbcloseall()\nElse\n    MsgInfo(\'Imposible abrir tablas\',\'ERROR\')\nEndif\nReturn Nil\n//--------------------------------------------------------------\n\n[quote=&quot;Antonio Linares&quot;:3i0sfu9f]José Martin,\n\nTienes que comprender la diferencia entre caja de diálogo modales y no modales, y por otra parte el concepto de \"padre\" de un determinado diálogo. Si no especificas la cláusula OF, FiveWin usará como \"padre\" la ventana ó diálogo que en ese momento este seleccionada.\n\nUn diálogo modal no permite cambiar a otro diálogo modal, salvo que sea \"hijo\" de este anterior.[/quote:3i0sfu9f]','',0,'gA==','3i0sfu9f',1,0,'',102,0,0),(14656,3359,7,57,0,'83.55.106.81',1150967197,1,0,1,1,1,1,'','Reloj de arena','Amigos\nExiste alguna función que muestre/esconda el típico reloj de arena que aparece cuando se está realizando algun proceso??\n\nCursorarrow() NO funciona en FWPPC\n\nSaludos\nToni Sales','',0,'gA==','32pz5nga',1,0,'',57,0,0),(14657,3321,6,106,0,'85.34.123.173',1150969480,1,0,0,1,1,0,'','','Prueba a instalar su driver para windows y luego hacer la impresion con tprint. Te aseguro que funciona.\n\nSaludos y suerte.','',0,'gA==','1kdq7q0t',1,0,'',106,0,0),(14658,3358,7,2,0,'87.218.146.205',1150970463,1,0,1,1,1,1,'','','Miguel Angel,\n[code:34hioqd2]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local aVer &#58;= GetVersion&#40;&#41;\n   \n   MsgInfo&#40; &quot;Windows Version &#58; &quot; + Str&#40; aVer&#91; 1 &#93;, 3 &#41; + &quot;&#46;&quot; + ;\n            AllTrim&#40; Str&#40; aVer&#91; 2 &#93;, 3 &#41; &#41; &#41;\n   \nreturn nil   \n[/code:34hioqd2]','',0,'AIA=','34hioqd2',1,0,'',2,0,0),(14659,3359,7,2,0,'87.218.146.205',1150970594,1,0,1,1,1,1,'','','Toni,\n\nPrueba con HideCaret() (no le pases ningún parámetro).','',0,'AIA=','1yyvgx18',1,0,'',2,0,0),(14660,3348,6,2,0,'87.218.146.205',1150970813,1,0,1,1,1,1,'','','José Martin,\n\nCuando usas:\n\nACTIVATE DIALOG oDlgAlm CENTERED NOWAIT \n\nla ejecución de la aplicación NO se detiene ahí, por lo que continúa, y unas líneas más adelante tu llamas a DbCloseAll() en donde cierras las bases de datos.\n\nSi usas diálogos no modales, entonces las bases de datos no las puedes cerrar ahí.','',0,'AIA=','1xbwzup6',1,0,'',2,0,0),(14661,3358,7,470,0,'80.34.9.135',1150971394,1,0,1,1,1,0,'','','Muchas gracias','',0,'AIA=','308r32k9',1,0,'',470,0,0),(14662,3357,6,2,0,'87.218.146.205',1150971413,1,0,1,1,1,1,'','','Alfonso,\n\nPuedes usar la clase Symbol de Harbour, que está basada en la clase Symbol de Class(y):\n[code:1y3am4c5]\nFUNCTION MiFuncion&#40;oWnd,cCbx&#41; \n\n   local oSymbol &#58;=  Symbol&#40;&#41;&#58;New&#40; cCbx &#41;\n\n   oSymbol&#58;Exec&#40; oWnd &#41;\n\nreturn nil\n[/code:1y3am4c5]','',0,'AIA=','1y3am4c5',1,0,'',2,0,0),(14663,3358,7,2,0,'87.218.146.205',1150972236,1,0,1,1,1,1,'','','de nada <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','28lxz3nf',1,0,'',2,0,0),(14664,3359,7,57,0,'83.53.62.133',1150974759,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3au8ms9l]Toni,\n\nPrueba con HideCaret() (no le pases ningún parámetro).[/quote:3au8ms9l]\n\nAntonio\nNo hace nada.\n\nSaludos\nToni Sales','',0,'gA==','3au8ms9l',1,0,'',57,0,0),(14665,3360,3,553,0,'150.101.221.213',1150976270,1,0,1,1,1,0,'','Applications open a DOS box - why?','Hi,\n   Just curious, why do the sample applications which come with Fivewin/xHarbour open a DOS box when executed?\n\nThanks\n\nGeorge Trojan','',0,'gA==','33vxvdqp',1,0,'',553,0,0),(14666,3361,6,533,0,'80.32.177.143',1150976309,1,0,1,1,1,0,'','Clase Calendario','Hola Foro:\n \n   Mirad, tengo un problema muy raro, resulta que tengo un dialogo que cuando se abre no pasa nada, todo funciona correctamente, el problema esta que cuando se abre el dialogo y el puntero del raton está situado sobre el área del Calendario, me sale el siguiente error:\n\n    ERROR DESCRIPTION: ERROR BASE/1081 ARGUMENT ERROR: +\n\n    CALLED FROM TMICALENDARIO:LFUERA(0)\n    CALLED FROM TWINDOW:MOUSEMOVE(0)\n    CALLED FROM TWINDOW:HANDLEEVENT(0)\n    CALLED FROM TWINDOW:HANDLEEVENT(0)\n    CALLED FROM _FWH(0)\n    CALLED FROM WINRUN(0)\n    CALLED FROM TWINDOW:ACTIVATE(0)\n    CALLED FROM CREAPRIN(0)\n    CALLED FROM STDIDI(0)\n\n\n  Alguna ayuda?\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n[/img]','',0,'','3unnobaw',1,0,'',533,0,0),(14667,3360,3,2,0,'87.218.146.205',1150976784,1,0,1,1,1,1,'','','George,\n\nWhat Harbour/xharbour versions/builds are you using ? And what Windows version are you using ?\n\nWith recent Harbour builds there was such error with Windows 98 only. It has been recently fixed.\n\nAre you linking using the parameters that we specify at samples\\buildh.bat ?','',0,'','3cnhck2y',1,0,'',2,0,0),(14668,3361,6,2,0,'87.218.146.205',1150976883,1,0,1,1,1,1,'','','Mike,\n\nQue código hay en TMICALENDARIO:LFUERA() ?','',0,'','zisr9g5d',1,0,'',2,0,0),(14669,3359,7,2,0,'87.218.146.205',1150977011,1,0,1,1,1,1,'','','Toni,\n\nEn que proceso aparece el reloj de arena y por qué necesitas quitarlo ?','',0,'','x4xi4m2a',1,0,'',2,0,0),(14670,3360,3,553,0,'150.101.221.213',1150977707,1,0,1,1,1,0,'','','xHarbour build 0.99.61, the buildx.bat supplied with FW2.7; however, the applications are built using Win\'98. We use \'98 as many of our customers still use \'98 so we develop using a \'98 computer.\n\nThanks','',0,'','13j0bu0y',1,0,'',553,0,0),(14671,3321,6,328,0,'72.252.70.43',1150981724,1,0,1,1,1,0,'','','Gracias por el tip, lo voy a probar.\nSaludos.\nCarlos Sincuir','',0,'','1su5z16r',1,0,'',328,0,0),(14672,3362,6,132,0,'83.213.45.32',1150982614,1,0,1,1,1,1,'','Ejecutar funciones creadas a traves de codigo','Antonio gracias por responder\n\nAl compilar la funcion que me indicas, el compilador me reporta el siguiente mensaje:\n\nError: Unresolved external \'_HB_FUN_SYMBOL\' referenced from H:\\TMP\\OBJ\\INFORME.OBJ\n\nNecesito, agregar alguna LIB, o incluir algun archivo de cabeceras CH, antes de compliar.\n\nUso FW27 marzo + xHarbour 0.99.60 + BCC55+','',0,'','2tkuv7rm',1,0,'',132,0,0),(14673,3359,7,456,0,'217.127.39.57',1150983993,1,0,1,1,1,1,'','','CursorWait() para enseñar el ursor de espera (reloj de arena, aunque en el PPC no es un reloj de arena.\nCursorWE() Para volver a cursor normal.','',0,'','3bkpuaxs',1,0,'',456,0,0),(14674,3359,7,57,0,'83.53.62.133',1150984794,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:2dsl0ihb]CursorWait() para enseñar el ursor de espera (reloj de arena, aunque en el PPC no es un reloj de arena.\nCursorWE() Para volver a cursor normal.[/quote:2dsl0ihb]\n\n\nCursorWE()\nGracias Biel\nEs concrétamente esto lo que necesitaba.\n\nSaludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nToni Sales','',0,'gA==','2dsl0ihb',1,0,'',57,0,0),(14675,3356,2,304,0,'201.155.7.216',1150985219,1,0,1,1,1,0,'','','Antonio:\nno, no tengo ningun boton DEFAULT, Gracias por tu atencion\n\nSaludos\nVeracruz, Mexico','',0,'gA==','2lpz32am',1,0,'',304,0,0),(14676,3362,6,72,0,'201.154.240.159',1150988802,1,0,1,1,1,0,'','','Revisa tu privado, te envié la rutina que uso...','',0,'gA==','2wwhc1rx',1,0,'',72,0,0),(14677,3363,7,57,0,'83.53.62.133',1150989828,1,0,1,1,1,1,'','Es posible con TWbrowse??','Antonio\nEs posible con twbrowse ??\n\n- Cambiar el alto del header \n- Cambiar el alto de los registros\n- Mostrar los registros con colores tipo pijama pares/impares\n- Alineación de las cabeceras y de los registros por separado.\n \nSaludos\n\nToni Sales','',0,'gA==','3h68yg8r',1,0,'',57,0,0),(14678,3364,3,178,0,'69.40.206.39',1150995687,1,0,1,1,1,1,'','Problem with webserver','Hello All,\n\nIt seems I am having a problem with the webserv program.\n\nI am on a version that was out in oct 2004.\n\nWhen It goes to send a page, the receiving page never gets to the browser, and the page sent does not show in the log. When I ask for an invalid page I do get the error on the browser.\n\nI have tested the same code on FW, FWPP and it  works fine on those installs. I even installed the last version of FWH I have on a PC fresh and it still gets the same results.\n\nAny Ideas?\n\n\nThanks','',0,'gA==','1qeo1pkz',1,0,'',178,0,0),(14679,3365,6,637,0,'200.67.153.171',1151002962,1,0,1,1,1,0,'','getkeystate(16) es para el shift, cual numero es para altGr','getkeystate(16) es para el shift, cual numero es para altGr ?\n\nSi alguien tine la respuesta Muchas Gracias y si no la tiene\ntambien Gracias por participar!','',0,'gA==','2e3yo9mn',1,0,'',637,0,0),(14680,3365,6,637,0,'200.67.153.171',1151003602,1,0,1,1,1,0,'','','ya lo encontre es el 18  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','1i71g9wg',1,0,'',637,0,0),(14681,3361,6,533,0,'88.9.19.123',1151008919,1,0,1,1,1,0,'','','Gracias Antonio! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n   La clase esta desarrollada por Rodrigo Soto y Bingen Ugaldebere, por si te sirve de algo. El Metodo\n\nMETHOD lFuera( nRow, nCol)  CLASS TMiCalendario\nReturn iif( (nRow  &gt; (::nFila1 + 3) .and.;\n             nRow &lt;= (::nFila2 - 3) .and.;\n             nCol  &gt; (::nCol1  + 3) .and.;\n             nCol &lt;= (::nCol2  - 3) ), .f., .t.)\n\nConstructor \n\nMETHOD New (nTop, nLeft, nWidth, nHeight, oWnd, oFont, nLANGUAGE ) CLASS TMiCalendario\n     DEFAULT nTop:=5, nLeft:=5,nWidth:=120,nHeight:=120  //Bingen\n     DEFAULT nLanguage := L_SPANISH\n\n     ::nContador := 1\n     // Coordenadas de la region de dibujo.\n     ::nTop      := nTop\n     ::nLeft     := nLeft\n     ::nBottom   := ::nTop  + nHeight\n     ::nRight    := ::nLeft + nWidth\n\n      ::dFechaControl := Date()\n     ::bFestivos     := {|| ARRAY(0)  }  //Bingen\n     ::nLanguage   := nLanguage          //Bingen\n     ::Language()                        //Bingen\n\n      // Definicion del tooltip por dia..\n     ::TipLimpiar()\n\n      // Array con dias festivos...\n     ::aFestivos     := { {}, {}, {},;\n                                  {}, {}, {},;\n                                  {}, {}, {},;\n	                  {}, {}, {}  }\n     ::oWnd      := oWnd\n     ::oFont     := oFont\n     ::lFont     := !oFONT=NIL\n     ::nPosFila  := 1\n     ::nPosCol   := 1\n     ::nPosBoton := 1\n     ::aColorCuerpo := { nRgb(205,240,240),; // Color Borde superior\n                      nRgb(145,220,220),; // Color de Relleno\n            	 nRgb( 55,170,170),; // Color Borde inferior\n             nRgb(  0,  0,  0),; // Color del texto,\n            	 nRgb(130,130, 65)}  // Color dia seleccionado al perder el foco\n    \n     ::aColorTitulo := { nRgb( 55,170,170),; // Color Borde superior\n                         nRgb( 40,120,120),; // Color de Relleno\n            	 nRgb( 40,110,110),; // Color Borde inferior\n     ::aColorCuerpo[2],; // Color Letra mes y año\n            		 nRgb(205,205,155) } // Color de los dias.\n     ::aColorBoton  := { nRgb( 55,170,170),; // Color Borde superior\n                           nRgb( 40,120,120),; // Color de Relleno\n            	 nRgb( 40,110,110),; // Color Borde inferior\n      ::aColorCuerpo[2],; // Color Letra\n     ::aColorCuerpo[2] } // Color relleno cuando se selecciona.\n         ::aColorDomingo := ::aColorTitulo\n         ::aColorFestivo := ::aColorTitulo\n\n\n        ::nPosicion    := day(::dFechaControl)\n       ::FijaClrs()\n      ::FijaClrDomingo()\n       ::FijaClrFestivo()\n\n       ::nStyle    := nOr(WS_CHILD, WS_VISIBLE, WS_TABSTOP)\n         ::Register()\n         If !Empty( oWnd:hWnd )\n             ::Create()\n              oWnd:AddControl( Self )\n         else\n              oWnd:DefControl( Self )\n         endif\n           ::hWndFijo := ::hWnd\n   Return Self\n\nSi te falta algo mas de código, te subo la clase entera.\n\nUN SALUDO.','',0,'','1htqf3kc',1,0,'',533,0,0),(14682,3357,6,533,0,'88.9.19.123',1151009336,1,0,1,1,1,0,'','','Txon:\n\n   Si quieres prueba esto, a mi me funciona perfectamente:\n\n   function main()\n      ....\n      ..... ACTION [b:27kgnycg]eval( &amp;( \"{|| pruebas()}\" ) )[/b:27kgnycg]\n      .... \n   return\n\n\n   function pruebas()\n       msginfo(\"Probando\")\n   return\n\n  SALUDOS                \n\n   Miguel A.','',0,'QA==','27kgnycg',1,0,'',533,0,0),(14683,3360,3,2,0,'87.218.146.205',1151013067,1,0,1,1,1,1,'','','George,\n\nPlease don\'t link GTWIN.lib and build your app again.','',0,'QA==','3j4i804x',1,0,'',2,0,0),(14684,3356,2,2,0,'87.218.146.205',1151013131,1,0,1,1,1,1,'','','Que versión de FW usais ?','',0,'QA==','2rn3zvpb',1,0,'',2,0,0),(14685,3362,6,2,0,'87.218.146.205',1151013323,1,0,1,1,1,1,'','','Alfonso,\n\nParece que xharbour no tiene la Clase Symbol que tiene Harbour.','',0,'QA==','2a5i85sz',1,0,'',2,0,0),(14686,3361,6,2,0,'87.218.146.205',1151013469,1,0,1,1,1,1,'','','Mike,\n\n&gt; Si te falta algo mas de código, te subo la clase entera.\n\nSi, por favor, súbela a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y copias aquí el link de descarga que te proporcionan.','',0,'QA==','372fwk13',1,0,'',2,0,0),(14687,3361,6,533,0,'88.9.19.123',1151015884,1,0,1,1,1,0,'','','Antonio, es la primera vez que subo algo, espero que funcione.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0244b22724/TCALENDA.PRG.html\">http://hyperupload.com/download/0244b22 ... A.PRG.html</a><!-- m -->','',0,'QA==','y35x2c0x',1,0,'',533,0,0),(14688,3325,20,49,0,'87.7.176.28',1151017995,1,0,1,1,1,1,'','','in Amyuni Tecnologies \nnon ho trovato niente del tipo Emf-&gt;rtf \nmi dici il link preciso','',0,'QA==','2ne6g2wv',1,0,'',49,0,0),(14689,3321,6,171,0,'71.232.193.197',1151019703,1,0,1,1,1,0,'','','Carlos\n\nTe trabaja mejor si instala el driver \'GENERIC / TEXT ONLY\" y usas este driver para tus impresiones con tDosPrn.\n\nSaludos\n\n\nGeorge','',0,'QA==','1rx2ofas',1,0,'',171,0,0),(14690,3364,3,178,0,'69.40.206.39',1151030587,1,0,1,1,1,1,'','Figured out part of the problem','I decided to create a new class from a copy of the twebserv class and as\nI was debugging it I got to this section.\n\n HtmlRead( cFileName ) CLASS TWebServer\n\n   hFile = LOpen( cFileName, \"r\" )\n\n   nSize = FSeek( hFile, 0, 2 )  // FS_END\n\n\nIt appears the nsize is coming back 0\n\nI decided to plug in my own code:\n\n   hFile = fopen( cFileName, 0 )\n   nSize = FSeek( hFile, 0, 2 )  // FS_END\n   FSeek( hFile, 0, 0 )          // FS_SET\n   tbuf=\" \"\n   cbuffer:=\"\"\n   y:=0\n   do while y&lt;nsize\n   fx:=fseek(hfile,y,0)\n   fx=ferror()\n   if fx#0\n    info=\"Cfile &lt;ERROR&gt; FC-Seek #\"+str(fx,2)\n    ?info\n   endif\n   fx:=fread(hfile,@tbuf,1)\n   fx=ferror()\n   if fx#0\n    info=\"Cfile &lt;ERROR&gt; FC-Fread #\"+str(fx,2)\n    ?info\n    endif\n    cbuffer:=cbuffer+chr(asc(tbuf))\n   y:=y+1\n   enddo\n   fclose( hFile )\n\n\nThe server works nice and I am looking forward adding and playing with my new class.\n\nJust wanted to pass on what I found.\n\n\nThanks','',0,'QA==','202n6bc8',1,0,'',178,0,0),(14691,3360,3,553,0,'150.101.221.213',1151033073,1,0,1,1,1,0,'','','The only problem with that is that you get all the unresolved external mouse functions referenced from RTL.LIB\n\nThanks','',0,'QA==','1pw7m82x',1,0,'',553,0,0),(14692,3072,4,95,0,'201.123.61.101',1151036066,1,0,1,1,1,0,'','','Maurizio\n\nToday I recive a DVD from Intel, inside of this, there is a examples of how to determine the Signal of the LAN and battery status.\n\nI dont know if this is compatible with VCE, because it is Intel C++.\n\nIf Antonio say yes, I can put the example that come with the DVD.\n\nRegards\nOsvaldo Ramirez','',0,'QA==','236ct3xk',1,0,'',95,0,0),(14693,3072,4,456,0,'217.127.39.57',1151046643,1,0,1,1,1,1,'','','<!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> Will be nice. I\'m interested with the battery status, I hope will be compatible.','',0,'QA==','3mltms9o',1,0,'',456,0,0),(14694,3292,6,131,0,'83.45.112.160',1151046952,1,0,1,1,1,0,'','','Manuel:\nPara usar la encriptacion de SIX no hace falta más que enlazar hbsix.lib con tu programa. Mirate el ejemplo que puso Przemek en el foro de xHarbour que funciona perfecto. \n\nSaludos,','',0,'QA==','2vwuu081',1,0,'',131,0,0),(14695,3072,4,2,0,'87.218.146.205',1151050847,1,0,1,1,1,1,'','','Osvaldo,\n\nYes, please upload it to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and copy here the provided download link. Thanks','',0,'QA==','2kymafq0',1,0,'',2,0,0),(14696,3292,6,2,0,'87.218.146.205',1151050984,1,0,1,1,1,1,'','','Jose Luis,\n\nSerías tan amable de copiar aqui el ejemplo, ó alojarlo en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> (si es grande) y copiar aqui el link de descarga ? gracias','',0,'QA==','2f9hztew',1,0,'',2,0,0),(14697,3360,3,2,0,'87.218.146.205',1151051391,1,0,1,1,1,1,'','','George,\n\nPlease copy here the list of unresolved externals that you get.\n\nHere we only get:\nUnresolved external \'_HB_FUN_HB_GT_WIN\'','',0,'QA==','7xiox3md',1,0,'',2,0,0),(14698,3364,3,2,0,'87.218.146.205',1151051759,1,0,1,1,1,1,'','','Dave,\n\nPlease try this change. Instead of:\n[code:4yzfw7p5]\n   hFile = LOpen&#40; cFileName, &quot;r&quot; &#41;\n\n   nSize = FSeek&#40; hFile, 0, 2 &#41;  // FS_END\n   FSeek&#40; hFile, 0, 0 &#41;          // FS_SET\n\n   cBuffer = Space&#40; nSize &#41;\n   FRead&#40; hFile, @cBuffer, nSize &#41;\n   LClose&#40; hFile &#41;\n[/code:4yzfw7p5]\njust use:\n[code:4yzfw7p5]\n   cBuffer = MemoRead&#40; cFileName &#41;\n[/code:4yzfw7p5]\nPlease let us know if it works for you. Thanks,','',0,'AIA=','4yzfw7p5',1,0,'',2,0,0),(14699,3361,6,2,0,'87.218.146.205',1151053017,1,0,1,1,1,1,'','','Mike,\n\nCorrectamente subido, gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPrueba este cambio y comprueba que valores te aparecen:\n[code:5aq19kw6]\nMETHOD lFuera&#40; nRow, nCol&#41;  CLASS TMiCalendario\n   MsgInfo&#40; &#58;&#58;nFila1 &#41;\n   MsgInfo&#40; &#58;&#58;nCol1 &#41;\nReturn iif&#40; &#40;nRow  &gt; &#40;&#58;&#58;nFila1 + 3&#41; &#46;and&#46;;\n             nRow &lt;= &#40;&#58;&#58;nFila2 - 3&#41; &#46;and&#46;;\n             nCol  &gt; &#40;&#58;&#58;nCol1  + 3&#41; &#46;and&#46;;\n	     nCol &lt;= &#40;&#58;&#58;nCol2  - 3&#41; &#41;, &#46;f&#46;, &#46;t&#46;&#41;\n[/code:5aq19kw6]','',0,'AIA=','5aq19kw6',1,0,'',2,0,0),(14700,3353,3,2,0,'87.218.146.205',1151053111,1,0,1,1,1,1,'','','Maurilio,\n\nWe are working on it for FWPPC, and once completed we will show it for FWH too.','',0,'AIA=','1hqyqvqu',1,0,'',2,0,0),(14701,3357,6,132,0,'83.213.45.32',1151053195,1,0,1,1,1,1,'','','Gracias a todos por responder, he probado, eval( &amp;( \"{|| pruebas()}\" ) ) y funciona perfectamente, el problema es cuando queremos pasar parametros en la funcion, por ejemplo eval( &amp;( \"{|| pruebas(oGet,nCampo)}\" ) ), en ese caso devuelve un error al tiempo de ejecucion \"Variable oGet no encontrada\", cuando realmente esta definida con anterioridad.','',0,'AIA=','3rng2pxp',1,0,'',132,0,0),(14702,3357,6,2,0,'87.218.146.205',1151053350,1,0,1,1,1,1,'','','Alfonso,\n\nLas macros (&amp;) usan la tabla de símbolos pública y las variables locales no estan en dicha tabla, por eso falla.\n\nPruébalo así:\neval( &amp;( \"{| o | pruebas( o,nCampo)}\" ), oGet )','',0,'AIA=','239909m9',1,0,'',2,0,0),(14703,3363,7,2,0,'87.218.146.205',1151058562,1,0,1,1,1,1,'','','Toni,\n\n&gt; Es posible con twbrowse ?? \n&gt; - Cambiar el alto del header \n&gt; - Cambiar el alto de los registros \n&gt; - Alineación de las cabeceras y de los registros por separado. \n\nNo. Habría que modificar el código de la clase. Es relativamente fácil de hacerse.\n\n&gt; - Mostrar los registros con colores tipo pijama pares/impares \n\nSí, usando un codeblock como color, en vez de un valor numérico, y dentro del codeblock alternar el color devuelto. Revisa <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3110&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=nclrpane\">http://fivetechsoft.com/forums/viewtopi ... t=nclrpane</a><!-- m -->\n\nBusca nClrPane en estos foros y encontrarás más ejemplos','',0,'AIA=','14p9womj',1,0,'',2,0,0),(14704,3357,6,132,0,'83.213.45.32',1151060925,1,0,1,1,1,1,'','','Funciona perfectamente, gracias, habia olvidado las nociones basicas de Clipper.','',0,'AIA=','teliyovg',1,0,'',132,0,0),(14705,3360,3,553,0,'150.101.221.213',1151062981,1,0,1,1,1,0,'','','I get the same with harbour, with xharbour I get the below:\n\nThanks\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_gt_Init\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetScreenHeight\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetScreenWidth\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Exit\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ExtendedKeySupport\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ReadKey\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_AdjustPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Box\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_VertLine\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_HorizLine\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PreExt\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PostExt\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Row\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Col\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetCursorStyle\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_IsColor\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_RectSize\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Replicate\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetBlink\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetBlink\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetMode\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Puts\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Scroll\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Tone\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Version\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispCount\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispEnd\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Suspend\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Resume\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispBegin\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetClipboard\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetClipboardSize\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ProcessMessages\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetClipboard\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetText\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PutText\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetAttribute\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_mouse_IsPresent\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Show\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Hide\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Col\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Row\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_SetPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_IsButtonPressed\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_CountButton\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_SetBounds\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_GetBounds\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_gt_OutStd\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|console\nError: Unresolved external \'_hb_gt_OutErr\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|console','',0,'AIA=','2lu8xybl',1,0,'',553,0,0),(14706,3366,6,649,0,'200.102.19.161',1151065620,1,0,1,1,1,1,'','Crystal Reports','Ola personal \nquisiera saber que necesario para hacer una impresión\ncon el cristal Reports.\nSe alguem tenga cierto ejemplo que pueda enviarme\nmuy agradecido \n\nNo digo que el ablo español entonces yo me pasó este mensaje en un\ntraductor descupe del los errores\n\nMarcelo Michels Alexandre\n<!-- e --><a href=\"mailto:marcelo@lorenzi.com.br\">marcelo@lorenzi.com.br</a><!-- e -->','',0,'AIA=','3uhqa5in',1,0,'',649,0,0),(14707,3367,6,147,0,'200.45.54.133',1151067194,1,0,1,0,1,1,'','O.T. UESutdio','Hola Gente \nAl utilizar este Editor, con la plantilla dejada por antonio, me encuentro que al compilar debo incluir el .res para generar el ejecutable. Quiero decir que no es suficiente con incluir el .rc para que lo compile y luego enlace al exe.\nSe lo puede configurar para que lo haga?\n\ngracias, Saludos\n(FELIZ Mundial! a los fuboleros)','',0,'AIA=','kri4njiz',1,0,'',147,0,0),(14708,3176,6,52,0,'200.127.195.89',1151070615,1,0,1,1,1,1,'','','Güenas y Santas,\n\nEsta parte de codigo:\n\n[code:3lpus8ho]oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;new2&#46;bmp&quot;, oWnd &#41;,; \nnRGB&#40; 255, 0, 255 &#41; &#41; [/code:3lpus8ho]\n\nlevanta la imagen desde el disco.\n\nComo hago para que la saque de un .res?\n\nGracias.','',0,'AIA=','3lpus8ho',1,0,'',52,0,0),(14709,3368,3,213,0,'24.175.56.72',1151072408,1,0,1,1,1,0,'','Mget &amp; Esc','All,\n\nPressing Esc does not close a dialog with a mget control when the mget control has focus as it does in fw 16-bit.  I have several modal dialogs with mget controls and our users are accustomed to being able to close the dialog by pressing Esc.  How can I change this?\n\nThanks,\nRandal Ferguson','',0,'AIA=','2rusz2zr',1,0,'',213,0,0),(14710,3176,6,52,0,'200.127.195.89',1151072574,1,0,1,1,1,1,'','Auto-me respondo','Gracias OSKAR\n\n[code:106gmj21]oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;new2&#46;bmp&quot;, oWnd &#41;,; \nnRGB&#40; 255, 0, 255 &#41; &#41; [/code:106gmj21]\n\nel primer parametro despues del define( se lo utiliza para decirle que debe tomar la imagen desde un recurso.\n\n[code:106gmj21]oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;new2&quot;, , oWnd &#41;,; \nnRGB&#40; 255, 0, 255 &#41; &#41; [/code:106gmj21]\nAsi, tomaria NEW2 desde un recurso.','',0,'AIA=','106gmj21',1,0,'',52,0,0),(14711,2444,6,643,0,'200.94.71.124',1151076325,1,0,1,1,1,0,'','Renvio','[quote=&quot;Antonio Linares&quot;:2ongwc5s]Marco,\n\nVamos a publicarla dentro de pocos días en el build de Abril.[/quote:2ongwc5s]\n\nEntonio,\nme prodrias enviar ese fuente a mi coreo por favor\nsaludos cordiales <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2ongwc5s',1,0,'',643,0,0),(14712,3363,7,138,0,'201.154.236.107',1151078508,1,0,1,1,1,1,'','','Tony para el efecto pijama el truco de FW de toda la vida funciona:\n\n[img:bvvxyg70]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/pijama&#46;jpg[/img:bvvxyg70]\n\n[code:bvvxyg70]      \n\n@ 31,0 LISTBOX oBrw FIELDS agents-&gt;iatacode,;\n                                            agents-&gt;agentname,;\n                                            agents-&gt;agentype;\n             HEADERS &quot;Codigo&quot;,;\n                            &quot;Nombre&quot;,;\n                            &quot;Tipo&quot;;\n             PIXEL;\n            SIZE oWnd&#58;nWidth,135;\n             ON DBLCLICK &#40;Movs&#40;&#46;F&#46;&#41;,oBrw&#58;Refresh&#40;&#41;&#41;\noBrw&#58;nClrPane &#58;= &#123;|| IIF&#40;agents-&gt;&#40;ordkeyno&#40;&#41;&#41; % 2 == 0 ,RGB&#40;193,221,255&#41;,RGB&#40;221,245,255&#41; &#41;&#125;[/code:bvvxyg70]','',0,'CIA=','bvvxyg70',1,0,'',138,0,0),(14713,2628,6,52,0,'200.127.195.89',1151078619,1,0,1,1,1,1,'','','amigos,\n\nUtilice el rc2dll32.bat que viene con el paquete, y pude pasar mi dll en 16 bit a una dll de 32 (previamente salvado el de 16 a rc ) ahora bien\n\nquiero meterle el manifest asi no tengo que andar transportando otro archivo, como hago eso? utilizo el workshop.\n\nGracias.','',0,'CIA=','1wzno8a7',1,0,'',52,0,0),(14714,3346,3,303,0,'72.199.41.171',1151080800,1,0,1,1,1,0,'','','Gale and Antonio,\n\nThanks for the ideas, guys, I will look into them.\n\nJames','',0,'CIA=','1af0zjox',1,0,'',303,0,0),(14715,3366,6,61,0,'201.217.168.222',1151081403,1,0,1,1,1,0,'','','Marcelo:\n\nAqui en el foro en la parte de abajo Utilidades\nencontras una clase para Crystal.\n\nSaludos\n\nRuben Fernandez.','',0,'CIA=','1npefudf',1,0,'',61,0,0),(14716,3072,4,13,0,'213.77.226.105',1151081688,1,0,1,1,1,0,'','','Biel, \n\nthis is sample to check bettery status, I use function BatteryLife eg. If BatteryLife () &lt; 10; MsgInfo (\'\'); Endif\n\nRegards\nPawel\n\n[code:2ec4quwn]\nHB_FUNC &#40;BATTERYLIFE&#41;\n&#123;\n   BOOL iRet;\n   SYSTEM_POWER_STATUS_EX status;\n   iRet = GetSystemPowerStatusEx &#40;&amp;status, TRUE&#41;;\n\n   hb_retnl &#40;&#40;INT&#41; status&#46;BatteryLifePercent&#41;;\n&#125;\nHB_FUNC &#40;BATTERYINFO&#41;\n&#123;\n   BOOL iRet;\n   SYSTEM_POWER_STATUS_EX status;\n   iRet = GetSystemPowerStatusEx &#40;&amp;status, TRUE&#41;;\n\n   hb_reta &#40;9&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;ACLineStatus, -1, 1&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BatteryFlag, -1, 2&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BatteryLifePercent, -1, 3&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BatteryLifeTime, -1, 4&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BatteryFullLifeTime, -1, 5&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BackupBatteryFlag, -1, 6&#41;;\n   hb_stornl &#40;&#40;INT&#41; status&#46;BackupBatteryLifePercent, -1, 7&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BackupBatteryLifeTime, -1, 8&#41;;\n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BackupBatteryFullLifeTime, -1, 9&#41;;\n&#125;\n[/code:2ec4quwn]','',0,'AIA=','2ec4quwn',1,0,'',13,0,0),(14717,3366,6,649,0,'200.102.19.161',1151081861,1,0,1,1,1,1,'','','esto el ja de I me hizo cogió TCRW\nCompilé pero no sé como él funciono.\nqué no necesita funciones o tampoco no nada del pra en la impresión\ncon el cristal','',0,'AIA=','gjvgi55h',1,0,'',649,0,0),(14718,281,21,649,0,'200.102.19.161',1151082716,1,0,1,1,1,1,'','','to na area','',0,'AIA=','1rovwi4i',1,0,'',649,0,0),(14719,3366,6,138,0,'201.154.236.107',1151084481,1,0,1,1,1,1,'','','Ejemplo incluido:\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/crystal.zip\">http://www.google.d2g.com/crystal.zip</a><!-- m -->[/url]','',0,'','tj3393as',1,0,'',138,0,0),(14720,3366,6,649,0,'200.102.19.161',1151084861,1,0,1,1,1,1,'','','¿Ja I cogió este ejemplo pero como si utiliza?\n¿qué necesita? ¿Tengo que crea un pra del rpt para abrir el informe?\n¿cómo creo este rpt que tengo eso a estar para el cristal? ¿pra cada\ninforme que tengo que él crea un rpt o si crea sobre la hora del\nimpressao o no crea nada?','',0,'','15uih6aa',1,0,'',649,0,0),(14721,3176,6,439,0,'190.0.136.29',1151085173,1,0,1,1,1,1,'','Re: Auto-me respondo','[quote=&quot;goosfancito&quot;:1x3qlqyg]Gracias OSKAR\n\n[code:1x3qlqyg]oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;new2&#46;bmp&quot;, oWnd &#41;,; \nnRGB&#40; 255, 0, 255 &#41; &#41; [/code:1x3qlqyg]\n\nel primer parametro despues del define( se lo utiliza para decirle que debe tomar la imagen desde un recurso.\n\n[code:1x3qlqyg]oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;new2&quot;, , oWnd &#41;,; \nnRGB&#40; 255, 0, 255 &#41; &#41; [/code:1x3qlqyg]\nAsi, tomaria NEW2 desde un recurso.[/quote:1x3qlqyg]\n\nGracias por compartir la solución con nosotros <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','1x3qlqyg',1,0,'',439,0,0),(14722,3356,2,304,0,'201.155.7.216',1151086075,1,0,1,1,1,0,'','','Uso la version 2.3 de fivewin\nclipper 5.3\nblinker 6.0\n\nRealmente parece un problema sencillo pero para quienes no son muy habiles con el mouse y prefieren el teclado se complica bastante el no poder hacerlo. Habra otra forma de solucionar esto?\n\nGracias.\nSaludos \nVeracruz, Mexico','',0,'gIA=','2odqybv7',1,0,'',304,0,0),(14723,3369,3,620,0,'209.189.229.150',1151086491,1,0,1,1,1,0,'','Build Error','I have just installed all of the components of FWH and successfuly build Tutor01, Tutor02 etc. in the FWH Samples directory.\n\nNow am trying to compile my progams in my development directory and the compile and C++ work fine but the linking seems to fail.\n\nError message:\n\nTurbo Incremental Link......\nFatal: Unable to open file \'Fiveh.lib\'\n\nI have tried including Set Include=path....; set Lib=path...etc. into the bat file but still will not work.\n\nHelp!   (thanks)','',0,'gIA=','99uto3r4',1,0,'',620,0,0),(14724,2444,6,228,0,'201.244.249.136',1151088828,1,0,1,1,1,1,'','me uno','me uno a la peticion','',0,'gIA=','2wbbxy10',1,0,'',228,0,0),(14725,3369,3,620,0,'209.189.229.150',1151091793,1,0,1,1,1,0,'','','Never mind...i found the line in the Bat file that needs to have the directory information changed...     ..\\lib\\fiveh.lib  must have the FWH actual directory replaced instead of the \"..\"    Ahhhh the little things we love.','',0,'gIA=','2c1w81jy',1,0,'',620,0,0),(14726,3368,3,6,0,'87.17.213.243',1151096125,1,0,1,1,1,1,'','Re: Mget &amp; Esc','The following sample works fine here (latest FWH and latest xHarbour from CVS):\n\n[code:1b7xy3sf]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= &quot;This is a test&quot;\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 0, 0 GET cVar MEMO;\n           SIZE 100, 100\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1b7xy3sf]\n\nEMG','',0,'AIA=','1b7xy3sf',1,0,'',6,0,0),(14727,3370,6,307,0,'200.79.154.90',1151098254,1,0,1,1,1,0,'','cliente remoto de ADS','saludos alguien tiene el axcw32.dll, se me daño y no lo puedo conseguir.\n\nsaludos y gracias..\n\narnulfo.','',0,'AIA=','2taqj78b',1,0,'',307,0,0),(14728,3367,6,2,0,'87.218.146.205',1151100688,1,0,1,1,1,1,'','','Mario,\n\nEl fichero RES se debe generar automaticamente a partir del RC en base a esta regla:\n\n[.RC]\nOut = $In.res\nCmd0 = brc32 -r ..\\$In.rc\n\ncomprueba que tienes brc32 accesible.','',0,'','2lzrowxs',1,0,'',2,0,0),(14729,3369,3,2,0,'87.218.146.205',1151101772,1,0,1,1,1,1,'','','Greg,\n\nGlad to know you solved it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2wopof05',1,0,'',2,0,0),(14730,3371,6,212,0,'200.125.14.28',1151104096,1,0,1,1,1,0,'','hb_cdxIndexPageRead : Index Page Read Failed','Ocurre este error : hb_cdxIndexPageRead y no le veo a causa de qué ya que no ocurre en todas las computadoras.\n\n[url=http&#58;//imageshack&#46;us:6u45alh2][img:6u45alh2]http&#58;//img232&#46;imageshack&#46;us/img232/4556/error9zn&#46;jpg[/img:6u45alh2][/url:6u45alh2]\n\nAgradecería sus comentarios.\nSaludos\nRicardo','',0,'GA==','6u45alh2',1,0,'',212,0,0),(14731,3372,6,439,0,'190.0.129.245',1151107328,1,0,1,1,1,1,'','Clase de Crystal Reports','Probando la clase de Crystal Reports me da este error\n\nCould not start report\nError Code 1507861\nUnable to open Database\n\n\nAlguien me podría decir que hice mal? <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'GA==','2jzcs6lw',1,0,'',439,0,0),(14732,3373,2,235,0,'200.56.67.37',1151111133,1,0,1,1,1,0,'','a que se refiere este error???','errordialo(0) unrecoverable error 667: eval stack fault\n\ny que debo de hacer para corregirlo??\n\nde antemano muchas gracias','',0,'GA==','3566zh43',1,0,'',235,0,0),(14733,2850,3,530,0,'201.114.230.81',1151115871,1,0,1,1,1,0,'','','Hi Antonio:\n Any news solving my problem ?\nregards\nFco Gamboa','',0,'GA==','9z7f84zj',1,0,'',530,0,0),(14734,3372,6,138,0,'201.154.236.107',1151116080,1,0,1,1,1,1,'','','Pues que no tienes la DBF de la cual se deriva el informe.\n\nNecesitas tener un reporte crystal diseñado por ti para poder utilizar la clase, el ejemplo que yo hice lleva un reporte mio, pero no lleva la base de datos, es precisamente eso, un ejemplo de como incorporar un reporte, pero necesitaras uno que diseñes tu para que funcione.\n\nSaludos','',0,'GA==','unoadzz0',1,0,'',138,0,0),(14735,3370,6,138,0,'201.154.236.107',1151116188,1,0,1,1,1,1,'','','Si tienes instalado el ARC (advantage data archietch) en la carpeta donde lo instalaste viene. Si no lo tienes, instalalo.\n\nrecuerda que tienes que tener el DLL para la version de Advantage que estes utilizando, por lo que no cualquier AXWCS32.DLL te funciona.','',0,'GA==','3nrtqccp',1,0,'',138,0,0),(14736,3366,6,138,0,'201.154.236.107',1151116414,1,0,1,1,1,1,'','','El RPT lo tienes que diseñar voçe con el diseñador de Crystal Reports el Crystal Reports Designer\n\nSi, cada infomre es un RPT individual.\n\nEl ejemplo manda llamar un reporte Crystal y lo incrusta en una ventana hija de FiveWin.\n\nHay una forma de \"incrustar\" el diseñador dentro del programa pero solo puede hacerse por OLE. Todavia no averiguo bien como va el tema.\n\nOJO: Crystal solo funciona con ventanas, no con dialogos.','',0,'GA==','1632aknu',1,0,'',138,0,0),(14737,3373,2,138,0,'201.154.236.107',1151116877,1,0,1,1,1,1,'','','Tienes un error dentro del ErrSysW.PRG. El archivo que lleva el control de errores de FiveWin.\n\nEsto quiere decir que \"algo\" dentro del programa que controla los errores de FiveWin, esta fallando, y obviamente, ¿ a quien llama ?, pues al mismo programa controlador de errores y como este tiene error, pues vuelve a llamarse una y otra y otra y otra vez hasta que se llena buffer y tu programa termina por fallar del todo.\n\nEsos errores son dificiles de capturar porque como no marcan vetnana de error, para tratar de averiguar que es lo que esta pasando, edita tu ERRSYSW.PRG y ponle MsgInfo() cada x lineas para que te vaya informando de los valores de las variales.','',0,'GA==','349rn72r',1,0,'',138,0,0),(14738,3363,7,57,0,'83.53.62.133',1151128628,1,0,1,1,1,1,'','','Rene - Antonio\nEs cierto.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos\nToni Sales','',0,'GA==','1cleq8wi',1,0,'',57,0,0),(14739,3360,3,2,0,'87.218.146.205',1151132937,1,0,1,1,1,1,'','','George,\n\nThis problem was fixed yesterday for Harbour and we expect to have a solution for xharbour today.','',0,'GA==','4jsqa8xj',1,0,'',2,0,0),(14740,3371,6,2,0,'87.218.146.205',1151133034,1,0,1,1,1,1,'','','Ricardo,\n\nUsas un build reciente de Harbour/xHarbour ? \n\nHas probado a reindexar ?','',0,'GA==','ddryoxqj',1,0,'',2,0,0),(14741,3356,2,2,0,'87.218.146.205',1151133127,1,0,1,1,1,1,'','','Estás usando una versión bastante antigua de FW. Deberías actualizarte a la versión más reciente. \n\nSe han hecho muchísimos cambios desde la versión que tu usas.','',0,'GA==','6hd2dha3',1,0,'',2,0,0),(14742,3361,6,533,0,'88.9.19.123',1151138381,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:34h22twl]Mike,\n\nCorrectamente subido, gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPrueba este cambio y comprueba que valores te aparecen:\n[code:34h22twl]\nMETHOD lFuera&#40; nRow, nCol&#41;  CLASS TMiCalendario\n   MsgInfo&#40; &#58;&#58;nFila1 &#41;\n   MsgInfo&#40; &#58;&#58;nCol1 &#41;\nReturn iif&#40; &#40;nRow  &gt; &#40;&#58;&#58;nFila1 + 3&#41; &#46;and&#46;;\n             nRow &lt;= &#40;&#58;&#58;nFila2 - 3&#41; &#46;and&#46;;\n             nCol  &gt; &#40;&#58;&#58;nCol1  + 3&#41; &#46;and&#46;;\n	     nCol &lt;= &#40;&#58;&#58;nCol2  - 3&#41; &#41;, &#46;f&#46;, &#46;t&#46;&#41;\n[/code:34h22twl][/quote:34h22twl]\n\nAntonio, me pusiste en el camino, y creo que está todo solucionado. El problema era ::nFila1, que mostraba NIL, yo lo he solucionado inicializando las variales de instancia en la clase (nFila1,nFila2,nCol1,nCol2). Las he inicializado a 0, y no hay ya problema. De todas maneras me gustaría tu opinion al lo que he hecho.\n\nUN SALUDO y muchisimas gracias ANTONIO.','',0,'gIA=','34h22twl',1,0,'',533,0,0),(14743,3374,6,179,0,'200.69.181.39',1151140256,1,0,1,1,1,1,'','ot: compilar fwh con xharbour builder','buenas noches\nAlguien tiene el Script para copilar en xHarbour Builder (xharbour.com)\na Fwh, tsbrowse , tsbuttom y btnget\n\nen la demo de Junio que instale no existe\nAlguien lo tiene\nSaludos y Gracias x Todo','',0,'gIA=','f2crz7td',1,0,'',179,0,0),(14744,3375,2,211,0,'81.35.151.179',1151140476,1,0,1,1,1,0,'','cómo evoluciono?','Hola. Soy programador y lo hago con clipper 5.2, blinker 6.0, dbase III, y fw 2.4. Llevo unos 5 años programando así, pero veo que estoy muy estancado, pues todos los diálogos los creo desde código y me cuesta más crear el entorno que las rutinas en sí. Edito el código con el edit de ms-dos y luego compilo y linko con dos ficheros .bat y el .lnk . Podrían informarme de cómo programan ustedes ? Concretamente me interesa esto:\n- Versión de fw\n- Compilador\n- Linkador\n- Modo de Generar los diálogos\n- Fichero de enlaces .lnk\n- Modo de compilar y linkar\n- 16, 32 o 64 bits\n- Algún sitio con ejemplos\n\nPerdonen mi ignorancia, pero estoy un poquito apurado y asustado. Gracias.','',0,'gIA=','19lsbyck',1,0,'',211,0,0),(14745,3361,6,2,0,'87.218.146.145',1151141624,1,0,1,1,1,1,'','','Mike,\n\nHas hecho lo correcto <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','2qq4a2ih',1,0,'',2,0,0),(14746,3375,2,2,0,'87.218.146.145',1151141832,1,0,1,1,1,1,'','','Usa el editor de recursos de Borland, ó el de Pelles C (gratuito) desde <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m -->  así podrás dibujar los diálogos con el ratón y ahorrarás muchísimo tiempo.\n\nLo más aconsejable es usar 32 bits con Harbour ó xHarbour y FWH. Sólo tendrás que recompilar tus programas, sin tener que modificar el código fuente.','',0,'gIA=','1wun3qe2',1,0,'',2,0,0),(14747,3375,2,211,0,'81.35.151.179',1151142137,1,0,1,1,1,0,'','','Hola Antonio. Cuando adquirí la versión 2.4 de fw, también venía con ella fwh, pero intenté trabajar con ella y me lié muchícimo. Creo que era porque mis aplicaciones están muy mal hechas, y , por ejemplo, las variables no están declaradas antes de usarlas. Con fw y clipper no pasa nada, pero con fwh creo que has de hacerlo antes. Por eso era el que preguntaba tanta cosa en el mensaje, para ver si me entero un poquito de cómo hacer el cambio. Gracias.','',0,'gIA=','oxwrqyx9',1,0,'',211,0,0),(14748,3375,2,2,0,'87.218.146.145',1151145183,1,0,1,1,1,1,'','','Tanto Harbour como xharbour, en la actualidad son totalmente compatibles con Clipper, por lo que puedes recompilar tu código tal cual está y debe funcionar sin problemas.','',0,'gIA=','22t4c3dv',1,0,'',2,0,0),(14749,3360,3,2,0,'87.218.146.145',1151148080,1,0,1,1,1,1,'','','George,\n\nPlease link GTNUL.lib instead GTWIN.lib and try it again. Thanks.','',0,'gIA=','2m7mczic',1,0,'',2,0,0),(14750,3360,3,553,0,'150.101.221.213',1151154213,1,0,1,1,1,0,'','','Thanks for that. Searched my drive for GTNUL.LIB, don\'t seem to have one. Where can I source that library.\n\nThanks again.','',0,'gIA=','1f8a2hqf',1,0,'',553,0,0),(14751,3360,3,2,0,'87.218.146.233',1151156549,1,0,1,1,1,1,'','','George,\n\nWhat xharbour build do you use ?','',0,'gIA=','2akvgl1f',1,0,'',2,0,0),(14752,3376,6,362,0,'200.168.52.156',1151157503,1,0,1,1,1,1,'','TOOLTIP EN OBJETO RADIO','Amigos, como poner un TOOLTIP O CTOOLTIP EN OBJETOS RADIO?? És posible?\n\nGracias, Saludos.','',0,'gIA=','33vo1jl1',1,0,'',362,0,0),(14753,3377,6,422,0,'195.8.13.230',1151159328,1,0,1,1,1,1,'','Tooltip','João :\n\nTenta assim\n\noDlg:aControls[nRadio]:cTooltip:=\"teste...\"\n\n\nSaludos...','',0,'','2hepkl1m',1,0,'',422,0,0),(14754,3378,3,148,0,'82.201.237.242',1151166006,1,0,1,1,1,0,'','sample error','Paths are correct with other samples !!!!\n\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'test.prg\' and generating preprocessed output to \'test.ppo\'...\nLines 38, Functions/Procedures 4\nGenerating C source output to \'test.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntest.c:\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\windef.h 145: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\windef.h 154: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\windef.h 155: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 296: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 355: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 1656: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 1657: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3532: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3533: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3534: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3561: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3789: ) expected\nError E2139 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3882: Declaration missing\n ;\nError E2139 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3892: Declaration missing\n ;\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3949: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 3950: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4796: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4797: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4932: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4933: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4934: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4935: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4936: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4937: ) expected\nError E2293 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4938: ) expected\nError E2228 e:\\compiler\\cpp_lang\\bcc55\\include\\winnt.h 4938: Too many error or w\narning messages\n*** 26 errors in Compile ***\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'TEST.OBJ\'','',0,'','27i1dp43',1,0,'',148,0,0),(14755,3377,6,362,0,'200.168.52.156',1151169391,1,0,1,1,1,1,'','','Gracias Ricardo, Voy Intentar.\n\nHablas Português Ricardo??','',0,'','x547zays',1,0,'',362,0,0),(14756,3379,6,519,0,'81.39.224.201',1151173627,1,0,1,1,1,0,'','Twbrowse  de Hernan  ?','Hola \n\n   Existe alguna forma de ponerle a los header del browse una imagen, una flechita por ejemplo  ?\n\n\n un saludo y gracias desde ya','',0,'','3kj5bcuc',1,0,'',519,0,0),(14757,3380,3,148,0,'82.201.237.242',1151175787,1,0,1,1,1,0,'','account sample','How can I convert the ejemcont.rmk for Harbour ?\n[code:ka9vh9wq]\nCLIPPER=c&#58;\\clipper5\n\n&#46;prg&#46;obj&#58;\n   $&#40;CLIPPER&#41;\\bin\\clipper $&lt; /w/n/i&#46;&#46;\\&#46;&#46;\\include\n\nEjemCont&#46;obj &#58; EjemCont&#46;prg\nContabil&#46;obj &#58; Contabil&#46;prg\nMnToTel&#46;obj  &#58; MnToTel&#46;prg\n\nEjemCont&#46;exe &#58; EjemCont&#46;obj Contabil&#46;obj MntoTel&#46;obj\n   SET LIB=&#46;&#46;\\&#46;&#46;\\lib;$&#40;CLIPPER&#41;\\lib\n   blinker fi EjemCont, Contabil, MntoTel @EjemCont&#46;lnk\n\n[/code:ka9vh9wq]','',0,'AIA=','ka9vh9wq',1,0,'',148,0,0),(14758,3381,6,528,0,'148.240.172.5',1151177971,1,0,1,1,1,0,'','cgetdir','Para todo el foro:\n\nNecesito utilizar cgetdir para accesar a un programa externo (carpeta=ubicacion de archivo), sin asignar una unidad de red al momento de accesar al grupo de trabajo no muestra los equipos.\n\nAlguna sugerencia?','',0,'AIA=','3sch5kqq',1,0,'',528,0,0),(14759,3382,6,618,0,'217.216.144.108',1151193759,1,0,1,1,1,1,'','referencia catasral - latinoamerica','Necesitaria hacerme con un recibo de contribución de finca urbana o rústica que llevase la referencia catastral, de cualkquier paisa como chile, aregentinao méjico.. alguien me puede ayudar ?','',0,'AIA=','31qil718',1,0,'',618,0,0),(14760,3292,6,492,0,'201.127.104.82',1151196095,1,0,1,1,1,1,'','','Hola a todos\n\nEste es el ejemplo que habla Jose Luis, que el mismo Przemyslaw Czerpak le posteo en las news.\n\n#include \"dbinfo.ch\"\nproc main()\nfield F1, F2\nlocal aStru := {{\"F1\",\"C\",10,0},{\"F2\",\"C\",10,0}}, nRow\ndbCreate( \"tst\", aStru )\nuse tst\n\n/* set encryption key for new and modified records */\ndbInfo( DBI_PASSWORD, \"mypasswd\" )\n\n/* add few records */\ndbAppend()\nF1:=\"Hello\"; F2:=\"World\"\ndbAppend()\nF1:=\"Can you\"; F2:=\"see it?\"\ndbcommit()\n\n? \"Let\'s see the table\"\nwait\nnRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)\n\n? \"Clear encryption key and see the table again\"\nwait \ndbInfo( DBI_PASSWORD, \"\" )\nnRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)\n\n? \"Restore valid encryption key then\"\n? \"copy table to the new unencrypted one and browse it\"\nwait \n\ndbInfo( DBI_PASSWORD, \"mypasswd\" )\ncopy to tst2\nuse tst2 new\nnRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)\nclose all\n\n? \"Create new table then set encryption key for it and\"\n? \"append records from other unencrypted table\"\nWait\n\ndbCreate( \"tst3\", aStru )\nuse tst3\ndbInfo( DBI_PASSWORD, \"mypasswd\" )\nappend from tst2\nnRow:=row(); dbgotop(); browse(); setpos(nRow+1,0)\n\n? \"That\'s all folks <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\"\nWait\n\nreturn\n\n\nLo acabo de bajar y empezare mis pruebas, pero si viene del mismisimo Przemek, creo que hay garantia  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , ademas el propio Jose Luis dice que funciona OK.  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEn fin, que cada quien que saque sus conclusiones.\n\nSaludos y espero no causar incovenientes por postear esto.','',0,'AIA=','3k55y7up',1,0,'',492,0,0),(14761,3360,3,553,0,'150.101.221.213',1151203890,1,0,1,1,1,0,'','','Antonio,\n\nxHarbour build 0.99.61, downloaded with FW2.7 from your server.\n\nThanks','',0,'AIA=','1k870zuo',1,0,'',553,0,0),(14762,3377,6,422,0,'195.8.13.82',1151207891,1,0,1,1,1,1,'','Tooltip','João :\n\n Sim, não e minha língua mãe, mais estou apreendendo.\n\nCumprimentos','',0,'AIA=','zy95ce4f',1,0,'',422,0,0),(14763,3292,6,9,0,'85.54.236.210',1151212316,1,0,1,1,1,1,'','','[quote=&quot;José Luis Sánchez&quot;:1nucb32v]Manuel:\nPara usar la encriptacion de SIX no hace falta más que enlazar hbsix.lib con tu programa.[/quote:1nucb32v]\n\nJose Luis,\n\nMuchas gracias por tu información.\n\nHe estado probando el ejemplo y por lo que veo, estamos en las mismas. Solo encripta los campos \"caracteres\".','',0,'gA==','1nucb32v',1,0,'',9,0,0),(14764,3360,3,2,0,'87.218.146.2',1151214767,1,0,1,1,1,1,'','','George,\n\nWe are going to publish a new xharbour build this next week, with a GTGUI.lib to be used, that solves the console window issue.\n\nSame for Harbour.','',0,'gA==','27d16cbw',1,0,'',2,0,0),(14765,3376,6,2,0,'87.218.146.2',1151214902,1,0,1,1,1,1,'','','Contestado en <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3377&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'gA==','2z87lw0i',1,0,'',2,0,0),(14766,3380,3,2,0,'87.218.146.2',1151215016,1,0,1,1,1,1,'','','Ehab,\n\nPlease review FWH\\makes directory. There you have samples of makes for Borland and Microsoft too.','',0,'gA==','1kmwu04g',1,0,'',2,0,0),(14767,3378,3,2,0,'87.218.146.2',1151215139,1,0,1,1,1,1,'','','Ehab,\n\nWhats the code of test.prg ?','',0,'gA==','28p1iis8',1,0,'',2,0,0),(14768,3360,3,553,0,'150.101.221.213',1151225906,1,0,1,1,1,0,'','','Thanks','',0,'gA==','x97kt9oy',1,0,'',553,0,0),(14769,3347,3,375,0,'84.122.117.181',1151239887,1,0,1,1,1,1,'','','Try This:\n\nFirst declare oSay:Cargo := .F.\nand oSay:bMMoved := { |nRow, nCol| MyFuncionMoved(nRow, nCol, oSay) }.\nThis function must be some thing like this:\n\n&gt;FUNCTION MyFuncionMoved(nRow, nCol, oSay)\n&gt;   IF !oSay:Cargo\n&gt;      ...\n&gt;      HOW I WANT TO DO WHEN MOUSE ENTER UP THE SAY\n&gt;      CHANGE oSay COLOUR, MOUSE, FONT, ETC...\n&gt;      ...\n&gt;      oSay:Cargo := .T.\n&gt;      SetCapture(oSay:hWnd)	// TAKE MOUSE CONTROL\n&gt;      *\n&gt;   ELSEIF oSay:Cargo .AND. !IsOverWnd( oSay:hWnd, nRow, nCol )\n&gt;      ...\n&gt;      HOW I WANT TO DO WHEN MOUSE LEAVE THE SAY\n&gt;      RESTORE oSay COLOUR, MOUSE, FONT, ETC...\n&gt;      ...\n&gt;      oSay:Cargo := .F.\n&gt;      ReleaseCapture()		// RELEASE MOUSE CONTROL\n&gt;      *\n&gt;   ENDIF\n&gt;RETURN NIL\n\nTo change the oSay Colours I do\n\noSay:SetColor(nClrTexto,nClrFondo)\noSay:SetText(oSay:cCaption)\n\nWithout the second line, oSay\'s colours don\'t change (FW 2.3 y Clipper 5.3).\n(Excuse my English)\nGood Luck','',0,'gA==','2kepeiwt',1,0,'',375,0,0),(14770,3383,6,52,0,'200.127.195.89',1151243601,1,0,1,1,1,1,'','Status Bar - Style FLAT','Amigos,\n\nComo hago para que mi barra de estado tenga estilo FLAT o sea chato y no el común y corriente?\n\n[quote:2uljea41]Común:\n[url=http&#58;//imageshack&#46;us:2uljea41][img:2uljea41]http&#58;//img89&#46;imageshack&#46;us/img89/3268/comun5ol&#46;jpg[/img:2uljea41][/url:2uljea41]\n\nFLAT:\n[url=http&#58;//imageshack&#46;us:2uljea41][img:2uljea41]http&#58;//img61&#46;imageshack&#46;us/img61/5855/flat8yh&#46;jpg[/img:2uljea41][/url:2uljea41][/quote:2uljea41]\nGracias','',0,'mA==','2uljea41',1,0,'',52,0,0),(14771,3384,6,52,0,'200.127.195.89',1151248329,1,0,1,1,1,1,'','Menu insertado en un TRebar','Amigos,\n\nEs posible insertar un menu en un TRebar?\n\nGracias.','',0,'mA==','1nw0wicu',1,0,'',52,0,0),(14772,3378,3,148,0,'196.205.176.74',1151258462,1,0,1,1,1,0,'','','[code:1l5onun7]\n// Harbour pcode DLL sample\n\n// Notice that functions that already exists\n// on the EXE, need to be IMPORT &lt;cFuncName&gt;\n\n#xcommand IMPORT &lt;cProcName1&gt; &#91;,&lt;cProcNameN&gt;&#93; =&gt; ;\n   proc &lt;cProcName1&gt; &#91;; proc &lt;cProcNameN&gt; &#93;\n\nIMPORT MsgInfo, ChooseColor\n\nfunction Func1&#40;&#41;\n\n   MsgInfo&#40; &quot;Hello world from a Harbour pcode DLL&quot; &#41;\n\n   MsgInfo&#40; ChooseColor&#40;&#41;, &quot;Your choosed color was&#46;&#46;&#46;&quot; &#41;\n\n   Test&#40; &quot;using the Extend API&quot;, &quot;From a pcode DLL&quot; &#41;\n\nreturn nil\n\nfunction Func2&#40; cParam1, cParam2 &#41; // passing parameters sample from the EXE\n\n   MsgInfo&#40; cParam1, cParam2 &#41;\n\nreturn &quot;returned from the DLL&quot;    // returning something to the EXE\n\n#pragma BEGINDUMP\n\n#include &lt;extend&#46;api&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; TEST &#41;\n&#123;\n   MessageBox&#40; 0, hb_parc&#40; 1 &#41;, hb_parc&#40; 2 &#41;, 0 &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:1l5onun7]','',0,'AIA=','1l5onun7',1,0,'',148,0,0),(14773,3378,3,2,0,'87.218.146.2',1151264959,1,0,1,1,1,1,'','','Ehab,\n\nWhat samples\\bat file are you using to build it ?','',0,'AIA=','1be32azd',1,0,'',2,0,0),(14774,3376,6,171,0,'71.232.193.197',1151266110,1,0,1,1,1,0,'','','Tomado de un \"Tip del dia\" de los que hacia Rene el siglo pasado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n\"Los globos de ayuda (tooltips) no estan limitados a ser usados en las barras de botones.\nTu puedes usarlos en cualquier control usando la variable de instancia ::cTooltip, por ejemplo si desea un tooltip en un GET:\nREDEFINE GET oGet VAR cNombre ID....\noGet:cTooltip := \"Tu mennsaje\"\n\nNota: para usar esta variable de instancia debes acompañar la definicion del control con un objeto en este caso usamos oGet.\"','',0,'AIA=','2cdff5hr',1,0,'',171,0,0),(14775,3385,6,652,0,'200.71.186.101',1151281941,1,0,1,1,1,1,'','Un gran saludo y un favor','Buen día para todos...\n\nAmigos reciban un gran saludo de mi parte ya que tengo mucho tiempo (más de un año) que no me conectaba al foro y me siento como nuevo jejeje. También aprovecho la oportunidad para pedirles un gran favor, ya he visto que la versión más reciente de FWH va por la 2.7 y bueno yo tengo la 2.5, ayer bajé el último build y no es compatible con la versión 2.5 que tengo, entonces quisiera saber si alguien me puede indicar por favor donde puedo ubicar el último build de FWH compatible con la versión 2.5, de antemano muchas gracias y estaremos por acá para ver en que los puedo ayudar.','',0,'AIA=','2vl9x8o3',1,0,'',652,0,0),(14776,3386,6,141,0,'200.88.94.99',1151283150,1,0,1,1,1,1,'','Libreria pcrepos','Hola a todos,\n\nBaje y compile el HBZIP de las contribuciones del xHarbour en el ultimo CVS, y lo pude compilar bien, pero me parece haber leido que se requiere de la libreria pcrepos.lib (que no se que hace..) para incluir el HBZIP bajado del CVS.\n\nLa verdad es que sin incluir esta libreria, el programa aborta SIMPLEMENTE, y no me dice mas nada !!!\n\n¿Alguien la tendrá que me la pueda enviar?  Utilizo Borland como compilador C.\n\nGracias adelantadas,','',0,'AIA=','1r9ap3oz',1,0,'',141,0,0),(14777,3385,6,2,0,'87.218.146.2',1151285502,1,0,1,1,1,1,'','','Antonio,\n\nLas actualizaciones de FWH puedes adquirirlas desde <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m -->','',0,'AIA=','1x97o12b',1,0,'',2,0,0),(14778,3354,1,170,0,'213.103.87.80',1151305641,1,0,1,1,1,1,'','','Antonio,\n\nCan you give me a sample of printer driver who need 32 bits\napplications to work properly, because i have found not any.\n\nThanks,','',0,'AIA=','3scit8ni',1,0,'',170,0,0),(14779,3383,6,131,0,'88.9.227.155',1151305917,1,0,1,1,1,0,'','','Revisa el método Paint de la clase TMsgItem. Quita las tres lineas que pitan el cuadrito y pon esta otra:\n\n   //WndBoxIn( hDC, 0, nLeft - 9, ::oMsgBar:nHeight, nLeft - 8 )\n   //WndBoxRaised( hDC, 0, nLeft - 8, ::oMsgBar:nHeight, nLeft + ::nWidth - 5 )\n   //WndBoxIn( hDC, 0, nLeft - 9, ::oMsgBar:nHeight, nLeft - 8 )\n   WndBoxIn( hDC, 0, nLeft - 8, ::oMsgBar:nHeight - 1, nLeft - 7 )\n\nSaludos,','',0,'AIA=','2pcjagxr',1,0,'',131,0,0),(14780,3325,20,29,0,'88.149.161.221',1151307890,1,0,1,1,1,0,'','','To Richard:\nYes, EMF to JPG conversion is supported as I know. However a readme file with all formats supported is provided with that library.\n\nTo Silvio:\nPer quanto riguarda Amyuni mi riferivo alla possibilità di convertire un file EMF in RTF (apribile e modificabile tramite Word quindi). Per fare questo devi scaricare RTF converter. Per la conversione EMF-&gt;JPG puoi semplicemente utilizzare la routine del mio precedente messaggio.\n\nBest Regards,\n\nMarco Turco','',0,'AIA=','130ou3wn',1,0,'',29,0,0),(14781,3325,20,49,0,'213.82.134.66',1151308383,1,0,1,1,1,1,'','','Adesso abbiamo il supporto degli activex ... è sicuro che non possiamo trovare *qualcosa* adatto alle nostre esigenze  per convertire indolore i file emf negli svariati formati grafic oltre al DOc di WOrd, Pdf ed altri ?\nSe usiamo programmi esterni siamo al punto da capo e la memoria molto spesso ci lascia : dobbiamo trovare qualcosa da inserire nei nostri object\no richiamabili come librerie esterne ( DLL)','',0,'AIA=','107jrzed',1,0,'',49,0,0),(14782,3387,21,49,0,'213.82.134.66',1151308773,1,0,1,1,1,1,'','Por Vagner','Dear Vagner,\nYOu have promise to me YOu send me your Vpreview but You non have sent it .\n\n\nRegards\nSilvio','',0,'AIA=','2t7hfmrp',1,0,'',49,0,0),(14783,3386,6,2,0,'87.218.146.2',1151310766,1,0,1,1,1,1,'','','Julio,\n\nPrueba esta:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02651d8194/pcrepos.zip.html\">http://hyperupload.com/download/02651d8 ... s.zip.html</a><!-- m -->','',0,'AIA=','26ms1e0a',1,0,'',2,0,0),(14784,3354,1,2,0,'87.218.146.2',1151310996,1,0,1,1,1,1,'','','Badara,\n\nWe can\'t tell you right now an exact printer model, but we have been reported through several years about printers that were not properly working under 16 bits, most of them USB printers.','',0,'AIA=','d3ep3xe9',1,0,'',2,0,0),(14785,3384,6,2,0,'87.218.146.2',1151311235,1,0,1,1,1,1,'','','Gustavo,\n\nAún no está implementado.','',0,'AIA=','2eedjjpt',1,0,'',2,0,0),(14786,3388,6,655,0,'217.127.17.50',1151314611,1,0,0,0,1,0,'','Versión Harbour 44','Hola a todos, sabría alguien donde me puedo bajar la versión 44 de harbour?, ojo que no deseo la última (46), necesito la 44, desde <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org\">http://www.harbour-project.org</a><!-- m --> solo está operativa para bajar la 46\n\nSaludos','',0,'AIA=','29mjq1mp',1,0,'',655,0,0),(14787,3389,3,51,0,'80.122.88.242',1151315355,1,0,1,1,1,0,'','Change dbf extension form dbf to blabla','I have seen that some programmers use instead of  dbf own extensions.\n\ndatabase.dbf   database.xxx\n\nIs this easy to do and if yes how?\n\nThanks in advance\nOtto','',0,'AIA=','2fym2u7w',1,0,'',51,0,0),(14788,3389,3,6,0,'87.19.208.81',1151317769,1,0,1,1,1,1,'','Re: Change dbf extension form dbf to blabla','Yes, it is as easy as renaming the file and specifying the file extension in the USE command.\n\nEMG[/i]','',0,'','1qiykq11',1,0,'',6,0,0),(14789,3325,20,6,0,'87.19.208.81',1151317954,1,0,1,1,1,1,'','','Purtroppo almeno fino a Windows XP non c\'è supporto nativo né per i PDF né per i DOC. Non so per Windows Vista.\n\nEMG','',0,'','1s0ijc49',1,0,'',6,0,0),(14790,3072,4,456,0,'217.127.39.57',1151318106,1,0,1,1,1,1,'','','Hi Pawel,\n Fine Busines, just what I\'m looking for. Many thanks it\'s running 100 %.\nMany thanks. \nBest Regards','',0,'','1dd8g4rg',1,0,'',456,0,0),(14791,3390,20,532,0,'84.222.124.147',1151321635,1,0,1,1,1,0,'','Problema computer.','Scusatemi se pongo questa domanda su un forum di programmazione.\n\nDa qualche giorno, ho il computer che uso per progammare si pianta:\n\nSolo usando esplora risorse, mi viene il puntatore del mouse di color\nrosso, con un quadratino di 2 centimetri di lato nero, dopo tre secondi\nsi resetta.\n\nProvato già tre antivirus aggiornati, più vari programmi di pulizia,\ncontrollato gli hard disk e memorie, non è un problema di temperatura,\nlo fa da freddo che da caldo, uso il ghost, ho provato un salvataggio\ndi 6 mesi fa, da lo stesso problema, non so più cosa fare...\n\nChiedo a qualcuno di voi, se è capitato la stessa cosa o se ha qualche\nidea, prima di formattare il tutto con tutto il lavoro che da per ripristinare\nil tutto.\n\nRingrazio in anticipo per eventuali suggerimenti.\n\nMarco - Cavour To.','',0,'','2x22k3sw',1,0,'',532,0,0),(14792,3377,6,362,0,'200.168.52.156',1151322735,1,0,1,1,1,1,'','Re: Tooltip','[quote=&quot;Ricardo Ramirez E.&quot;:3393kj3g]João :\n\n Sim, não e minha língua mãe, mais estou apreendendo.\n\nCumprimentos[/quote:3393kj3g]\n\nMUITO BOM RICARDO. NECESSITANDO DE AJUDA PARA APENDER MAIS, CONTE COMIGO.\nASSIM, VOCE ME AJUDA A APRENDER ESPANHOL. UM GRANDE ABRAÇO DESDE SÃO PAULO, BRASIL.\n\nFUNCIONOU DIREITINHO, MUITO OBRIGADO! SAUDAÇÕES.','',0,'gA==','3393kj3g',1,0,'',362,0,0),(14793,3388,6,2,0,'87.218.146.2',1151323169,1,0,1,1,1,1,'','','En <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m --> vamos publicando los builds que vamos construyendo. No creo que esté la 44, sino posteriores. Te lo comento por si te sirve en el futuro.\n\nCual es la razón de querer usar la 44 en vez de la 46 ? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','iltynooa',1,0,'',2,0,0),(14794,3391,6,362,0,'200.168.52.156',1151323579,1,0,1,1,1,1,'','Para Manuramos','-- Mensaje original --\nDate: Sat, 17 Jun 2006 09:15:51 -0300 (EST)\nSubject: TGSAY COMPLETA\nFrom: João Santos <!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->\nTo: <!-- e --><a href=\"mailto:ramosframit@ono.com\">ramosframit@ono.com</a><!-- e -->\n&gt;\n&gt;\nHolá Manuramos, podrias enviarme la TGSAY completa, pués el LINK\nke indicas en el FORO FIVETECH, no funciona.\n\nGracias, Saludos.\n\nJoão Santos - San Pablo - Brazil.\n\nGracias por utilizar mi Clase TGSAY. Ahí te mando la última versión.\n\n\nManuramos, Gracias por tú pronta respuesta. Mui gradecido. Saludos.\n\nVoy Testar y Reporto. Un gran saludo a usted.','',0,'gA==','1sph73wz',1,0,'',362,0,0),(14795,3391,6,362,0,'200.168.52.156',1151323961,1,0,1,1,1,1,'','','Manuramos, por gentileza, podrias enviarme un pequeño ejemplo con los principales  comandos? \n\nDesde ya, muchas gracias.','',0,'gA==','1nsw0seh',1,0,'',362,0,0),(14796,3392,6,53,0,'201.102.59.37',1151325268,1,0,1,1,1,1,'','Alinear títulos de columnas','Amigos del foro:\n\nEn la clase TReport es posible alinear los títulos de las columnas ?, no los títulos o encabezados del reporte. me explico:\n\nEn el siguiente trozo de código:\n\nCOLUMN oCol3 TITLE \"Cliente\",\"Modelo\" DATA \"\" SIZE  8 RIGHT\n\nEs posible alinear el título \"MODELO\" a la izquierda dejando el título \"CLIENTE\" alineado a la derecha ???\n\nSaludos y gracias por sus respuestas, Armando','',0,'gA==','1432wv0z',1,0,'',53,0,0),(14797,3367,6,147,0,'200.45.54.133',1151325365,1,0,1,0,1,1,'','','Antonio; gracias por la respuesta\nExactamente esa es la regla que tengo en mi archivo de configuración. Verificando también tengo:\n\n[Variables]\nBPATH = D:\\BCC55\n\n[Environment]\nPATH = $(XPATH)\\BIN;%PATH%;$(BPATH)\\BIN\n\npero al compilar se genera el siguiente error:\n--------------------Configuración: wat32 - Release--------------------\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unable to open file \'MGAT.RES\'\nmgat - 0 error(es), 0 advertencia(s)\n\nObviamente brc32 existe en la carpeta \\BCC55\\Bin\n\nTambién está configurado para que el ejecutable se genere en la carpeta \\Release\nNo entiendo que pasa...','',0,'','1diew2e5',1,0,'',147,0,0),(14798,3393,6,61,0,'201.217.170.6',1151325940,1,0,1,1,1,0,'','Antonio: Harbour 46 ya esta listo?','Maestro:\n\nYa tiene listo Harbour 46?\n\nCuando lo pone el link para bajarlo?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'','2e9yjnos',1,0,'',61,0,0),(14799,3394,6,52,0,'200.127.195.89',1151327392,1,0,1,1,1,1,'','Antonio','Gracias por contestar,\n\nPodrías decirme hasta el momento que está implementado para la TREBAR? o sea, que es lo que se le puede \"insertar\"?\n\nMuchísimas Gracias.','',0,'','oblc9kt0',1,0,'',52,0,0),(14800,3368,3,213,0,'24.175.56.72',1151329740,1,0,1,1,1,0,'','','EMG,\n\nAfter much searching I discovered I was linking an old verison of dialog.prg source.  Thanks.\n\nRandal','',0,'','3q1rses6',1,0,'',213,0,0),(14801,3354,1,620,0,'209.189.229.150',1151330366,1,0,1,1,1,0,'','','The particular issue I have found with my 16bits application is this...\nFirst, the setup - We select two different printers to print to for different size forms we produce and this is done in the program setup and stored so that you automatically print to the correct printer when you select a certain form.\nThis all works well on our XP and 2000 machines, but in 95 and 98, it will cause the program to crash (GPF) when printing to any printer OTHER than the windows default printer.\n\nI assume this will be a moot point as I migrate on to 32bits.  BTW Antonio, I got FHW installed and re-compiled my program on the 1st run!!!  That NEVER happens...laugh.   I have found just a few run-time bugs to fix but overall it seems like it will be a simple migration.  Kudos!\n\nGreg','',0,'','9z7mvki8',1,0,'',620,0,0),(14802,3378,3,148,0,'196.205.176.74',1151330428,1,0,1,1,1,0,'','','buildhd.bat','',0,'','2pz2v9mf',1,0,'',148,0,0),(14804,3390,20,6,0,'82.61.68.57',1151333926,1,0,1,1,1,1,'','Re: Problema computer.','Se hai ripristinato un ghost di 6 mesi fa e 6 mesi fa il problema non lo avevi mentre oggi ce l\'hai anche con questo ghost allora dev\'essere cambiato qualcosa nel PC. Magari la scheda video difettosa, un driver di periferica incompatibile o chissà che altro.\n\nNon riesci a ripristinare il ghost su un\'altra macchina per vedere se dà lo stesso difetto?\n\nEMG','',0,'','1n5cb7ji',1,0,'',6,0,0),(14805,3395,3,190,0,'202.65.134.45',1151336530,1,0,1,1,1,0,'','How 2 Read/Update .DBF files Dynamically in the WEB with FWH','Hi\n\nCan anybody guide me with a working sample of a program that will\nread / write data from/to  .DBF file(s) dynamically from the WEB using \nFWH.\n\nThank you\n\n- Ramesh Babu P','',0,'','9xoo86vd',1,0,'',190,0,0),(14806,3396,2,501,0,'200.32.103.194',1151339274,1,0,1,1,1,0,'','Error extraño en TExcelScript','Estoy usando esta clase que creo originalmente viene de la mano de Jose Gimnez, luego mejorada o con nuevas características de Viktor Tomas Diaz, a ambos desde ya muy agradecido por vuestro trabajo y la verdad es que venia funcionando de primera y de repente aparece este error cuando quiero abrir los archivos Excel.\n\n[b:1hcgz6v3]VARIANT TYPE NOT IMPLEMENTED FROM OLEGETPROPERTY()[/b:1hcgz6v3]\n\nesto sucede justamente en el oExcel:open(m-&gt;archivo) pero antes funcionaba de primera, lo unico nuevo es que tambien tengo instalado Open Office pero en mi cliente no y tambien le aparece el error.\n\nDesde ya muchas gracias.\nSaludos desde Argentina // Carlos Ortiz.','',0,'QA==','1hcgz6v3',1,0,'',501,0,0),(14807,3397,2,304,0,'201.155.7.216',1151339290,1,0,1,1,1,0,'','Error en la Impresora','Hola Antonio:\n\nTengo un programa que usa la clase tdosprn la cual manda a imprimir a una epson lx 300+, debe de funcionar con otro programa que igualmente imprime en esa impresora, el caso es que despues de imprimir unas 10 veces, ya no imprime nada, he notado que lo hace cuando abrimos el segundo programa (es comprado) y se manda a imprimir algo, no se si alguien recuerda que comandos de escape se usan para mandar a la impresora un reset o inicializacion total de la impresora epson lx-300 , (pienso que por ahi pueda estar el problema), ya que actualmente lo hago asi:\n\n      cPort:=nPtoFac //Puerto a Imprimir\n      xFac:=.T.\n      oPrn := TDosPrn():New(cPort)\n      oPrn:StartPage()                                    // optional\n      oPrn:Command(\"027,064,000,000,000,000,000,000\") //Inicializar\n\n      oPrn:Command(\"027,015,000,000,000,000,000,000\") //Condensada\n      oPrn:Command(\"27,67,33\") //32 Renglones de largo\n      oPrn:Say(3,5,\"Pago: \" + Alltrim(cPago) )\n      oPrn:Say(4,5,\"Vendedor: \" + Alltrim(Str(nVendedor)) + \" \" +    xVendedor  )\n.\n.\n....\nbastara con       oPrn:Command(\"027,064,000\")  para inicializar ???\ngracias por su ayuda.\n\nSAludos\nVeracruz, Mexico','',0,'QA==','s1daj0c1',1,0,'',304,0,0),(14808,3383,6,138,0,'201.154.236.107',1151341502,1,0,1,1,1,1,'','','o ponle el estilo NOINSET en el MsgBar','',0,'QA==','19oe39vg',1,0,'',138,0,0),(14809,3389,3,51,0,'80.122.88.242',1151341790,1,0,1,1,1,0,'','','Thank you.\n\nRegards\nOtto','',0,'QA==','2bi1oxci',1,0,'',51,0,0),(14810,3398,6,649,0,'201.24.97.194',1151342269,1,0,1,1,1,1,'','Crystal Reports','Could not open the Print Engine!\nError code 512:\nPrint Engine not opened.\n\nalguem puede asistirme en este error\nsucede cuando abro el ejemplo del TCRW en una maquina que no tenga el\ncristal instalado\n\n\nel error sucede aquí\n\n[code:3j5zs8ib]\nMETHOD PEOPEN_&#40;&#41;\n   LOCAL cFarProc\n   LOCAL cFunc &#58;= &quot;PEOpenEngine&quot;\n   cFarProc &#58;= GetProcAddress&#40; &#58;&#58;hDLL, cFunc, &#46;T&#46;, LONG &#41;\n   &#58;&#58;lError &#58;= &#40; CallDll&#40; cFarProc &#41; == FALSE &#41;\n   IF &#58;&#58;lError\n      MsgAlert&#40; &quot;Could not open the Print Engine!&quot; + CRLF + &#58;&#58;PeErrorText&#40;&#41;&#41;\n   ENDIF\nRETURN ! &#58;&#58;lError\n[/code:3j5zs8ib]','',0,'AIA=','3j5zs8ib',1,0,'',649,0,0),(14811,3393,6,2,0,'87.218.146.2',1151342966,1,0,1,1,1,1,'','','Ruben,\n\nVamos a publicarlo en un dias. Han habido una serie de cambios importantes recientemente que deben ser incluidos.','',0,'AIA=','vcrjq16p',1,0,'',2,0,0),(14812,3394,6,2,0,'87.218.146.2',1151343074,1,0,1,1,1,1,'','','Gustavo,\n\nSe le puede insertar cualquier control:\n\nMETHOD InsertBand( oControl, cText )\n\nDesafortunadamente Windows no considera un menú como un control más.','',0,'AIA=','377xs9j1',1,0,'',2,0,0),(14813,3395,3,6,0,'82.61.68.57',1151344734,1,0,1,1,1,1,'','Re: How 2 Read/Update .DBF files Dynamically in the WEB with','What do you exactly mean with \"from the WEB\"?\n\nEMG','',0,'AIA=','2ca84781',1,0,'',6,0,0),(14814,3393,6,61,0,'201.217.166.87',1151345632,1,0,1,1,1,0,'','','Gracias Maestro\n\nSaludos\nRuben fernandez','',0,'AIA=','1sb5w1vh',1,0,'',61,0,0),(14815,3399,6,52,0,'200.127.195.89',1151346301,1,0,1,1,1,1,'','Status / Date() / TIme() Cómo?','Amigos,\n   Quiero hacer que me aparezca en mi STATUSBAR el keyboard, fecha, hora, pero no logro realizarlo, solo puedo hacer que aparezca la hora.\n\n[code:2wbvrqlw]DEFINE STATUSBAR oStb PROMPT &quot;Mi mensaje&quot; OF &#58;&#58;oWnd;\n               sizes 250 time[/code:2wbvrqlw]\n\n\nAlguna ayuda?','',0,'AIA=','2wbvrqlw',1,0,'',52,0,0),(14816,3400,6,439,0,'190.0.131.184',1151351946,1,0,1,1,1,1,'','Ayuda con IsObject','En una clase que estoy adaptando para funcionar con xharbour, encuentro dentro de un método el siguiente código:\n\nIF IsObject(::oSay)\n 	::oSay:SetText(\"cSeek : \" + PAD(::cSeek,20) )\n 	::oSay:refresh()\nENDIF\n\nDonde según entiendo, se evalúa si existe el objeto oSay, variable de instancia de esta lib que puede ser de valor nulo o contener un objeto para escribir en una busqueda incremental.\n\nAl compilar me da error como que esta funcion ISOBJECT no existe <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> , la pregunta es, ¿estoy olvidando compilar algo más?, o ¿hay una función en FWH o [x]Harbour que me permita evaluar si el objeto existe o no que pueda reemplazar ésta? <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nDesde ya espero vuestra amable ayuda <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','kudtsqss',1,0,'',439,0,0),(14818,3391,6,582,0,'201.253.64.64',1151354041,1,0,1,1,1,0,'','','Manu, si es mucha molestia podrias enviarme la ultima version?\n\nDesde ya muchas gracias\nUn abrazo. El Loco =&gt;))','',0,'','c9g7hhvf',1,0,'',582,0,0),(14819,3399,6,53,0,'201.102.59.37',1151356511,1,0,1,1,1,1,'','','Goosfancito:\n\nMira este ejemplo\n\nSET MESSAGE OF oWindow TO oApp:cRazonSocial KEYBOARD CLOCK\n// De izquierda a derecha, pone El nombre de la empresa\n// despues el status del teclado y la hora\n\nDEFINE MSGITEM oMiCasilla OF oWindow:oMsgBar;\n     SIZE 85 PROMPT Date2Txt(DATE())\n// Posteriormente defino una casilla y muestro la fecha\n// convertida a texto, prefiero 26/Jun/2006 y no 26/06/2006\n\nDEFINE MSGITEM oMiCasilla OF oWindow:oMsgBar;\n     SIZE 175 PROMPT oApp:cCopyRight\n// Finalmente defino otra casilla y muestro el mensaje de derechos\n// reservados\n\nLa claúsula SIZE define la longitud de la casilla en pxieles\n\nSaludos, Armando','',0,'','zvi1wgh8',1,0,'',53,0,0),(14820,3399,6,52,0,'200.127.195.89',1151358416,1,0,1,1,1,1,'','','Amigo,\n\nEso si lo se, pero quiero usar STATUSBAR no esa clase.\n\nGracias desde ya.','',0,'','1j6guqa5',1,0,'',52,0,0),(14821,3401,6,396,0,'201.210.128.54',1151359061,1,0,1,1,1,1,'','De PELLES a WS','Cree 1 archivo en WS .dll, luego la pase a PELLES C para trabajarlo a 32bits, pero cuando copio o duplico alguna DLG, me da error no encuentra ARCHIVO window.h, me dijeron que lo podia manejar bajo WS como .RES, ya lo salve bajo pelles como .res pero cuando voy abrir algunos dlg bajo dice que hay un valor de error y lo abre ese DLG, como tengo que trabajar el WS para que los DLG sean de 32bits.? Tengo FWH 2.4','',0,'','41hjmd48',1,0,'',396,0,0),(14822,3402,6,396,0,'201.210.128.54',1151359160,1,0,1,1,1,1,'','Bajo FW y bajo FWH','Tengo 1 .prg que me trabaja bien bajo FW 16bit, ahora que lo pase a FWH 32bits, en los campos de validacion numerica da este error:\nApplication\n===========\n   Path and name: C:\\SISINGE\\FARMACIA\\FARMACIA.EXE (32 bits)\n   Size: 1,228,800 bytes\n   Time from start: 0 hours 1 mins 15 secs \n   Error occurred at: 02/06/2006, 00:22:58\n   Error description: Error BASE/1110  Argument error: SUBSTR\n   Args:\n     [   1] = U   \n     [   2] = N   1\n     [   3] = N   1\n\nStack Calls\n===========\n   Called from SUBSTR(0)\n   Called from GET:UNTRANSFORM(604)\n   Called from TWINDOW:LOSTFOCUS(0)\n   Called from TWINDOW:KILLFOCUS(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from SETFOCUS(0)\n   Called from TWINDOW:GONEXTCTRL(0)\n   Called from TWINDOW:KEYCHAR(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from FICHAPRODU(643)\n   Called from EVAL(92)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from DATINVENTA(250)\n   Called from EVAL(155)\n   Called from TC5MENU:COMMAND(716)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(100)\n que deberia revisar? gracias....','',0,'','2ipvzwsr',1,0,'',396,0,0),(14823,3403,6,54,0,'201.98.183.91',1151361684,1,0,1,1,1,1,'','Buenas nuevas','Saludos\n\n\nLes dejo este link \n\n  <!-- m --><a class=\"postlink\" href=\"http://oskar.sytes.net\">http://oskar.sytes.net</a><!-- m -->\n\nDos clases buenas\n  TOpenOffice\n  TTBar\n\nEspero sean de utilidad, son del amigo Oskar\n\nSaludos','',0,'','1f0jv79l',1,0,'',54,0,0),(14824,3354,1,2,0,'87.218.146.144',1151364547,1,0,1,1,1,1,'','','Greg,\n\nGlad to know you are moving forward <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3ij217wx',1,0,'',2,0,0),(14825,3398,6,138,0,'201.154.236.107',1151364652,1,0,1,1,1,1,'','','Necesitas instalar TODOS los DLLs de Crystal en el equipo donde vas a ejecutar el programa, en la carpeta Windows\\System o System32, los DLLs son:\n\nCrpaig80.DLL\ncrpe32.dll\nimplode.dll\nmfc42.dll\nmsvcirt.dll\nmsvcp60.dll\np2bxbse.dll\nu2fhtml.dll\nu2fodbc.dll\nu2frdef.dll\nu2frec.dll\nu2frtf.dll\nu2fsepv.dll\nu2ftext.dll\nu2fwks.dll\nu2fwordw.dll\nu2fxls.dll\n\nEstos DLLs los consigues en el disco de instalacion de Crystal Reports','',0,'','13m2gibk',1,0,'',138,0,0),(14826,3402,6,2,0,'87.218.146.144',1151364702,1,0,1,1,1,1,'','','Jose Luis,\n\nPodrías proporcionarnos un ejemplo pequeño y autocontenido que genere el problema también ?\n\nQue versión/build de FWH y Harbour/xHarbour usas ?','',0,'','1b5rtk9i',1,0,'',2,0,0),(14827,3398,6,422,0,'195.8.13.193',1151365285,1,0,1,1,1,1,'','','[quote:2977ej46]Necesitas instalar TODOS los DLLs de Crystal en el equipo donde vas a ejecutar el programa, en la carpeta Windows\\System o System32, los DLLs son:\n\nCrpaig80.DLL\ncrpe32.dll\nimplode.dll\nmfc42.dll\nmsvcirt.dll\nmsvcp60.dll\np2bxbse.dll\nu2fhtml.dll\nu2fodbc.dll\nu2frdef.dll\nu2frec.dll\nu2frtf.dll\nu2fsepv.dll\nu2ftext.dll\nu2fwks.dll\nu2fwordw.dll\nu2fxls.dll \n[/quote:2977ej46]\n\nSolo esas ? pense que eran mas  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2977ej46',1,0,'',422,0,0),(14828,3398,6,138,0,'201.154.236.107',1151365762,1,0,1,1,1,1,'','','son mas... cada u2f*.dll es un dll para exportar el reporte a un formato dado, solo he puesto los que yo utilizo mas, pero hay varios de otros formatos como PDF, JPG, BMP y otros que no utilizo, por eso no los puse.....\n\nOJO son para la verison 8.x.... creo que la 10 u 11 son bastantes mas.','',0,'gA==','2g2fgehx',1,0,'',138,0,0),(14829,3373,2,74,0,'190.49.72.12',1151370998,1,0,1,1,1,1,'','','Gerardo:\n\n              Fijate si igual se genero el error.log. Si es asi contendra algo como esto:\n\n\nTSTRUCT (0)  Error no recuperable 667: Fallo en la pila de evaluaci¢n\n\nTSTRUCT 0000\nNEXTMEM 0000\nERRORDIALO 0083\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCOMMIT 0000\n\n           En este caso en particular el problema esta en ese dbcommit() y lo que se necesita es reindexar esa base. Siempre tenes que ir a la linea siguiente a todos los:\n\n(b)ERRORSYS 0017\nLOCKERRHAN 0000\n(b)INITHANDL$ 0000\nDBCLOSEALL 0000\nERRORDIALO 0119\n\n            Que se repiten un monton de veces. Despues de ese DBCOMMIT 0000 estan las lineas que te sirven para saber donde esta el dbcommit y el resto de las llamadas anteriores:\n\nDBCOMMIT 0000\nGRABAREG 1539\n(b)ALTAPED 3552\nTBUTTON:CLICK 0000\nTBUTTON:HANDLEEVEN 0000\nDIALOGBOX 0000\nTDIALOG:ACTIVATE 0244\nALTAPED 3589\nALT_ENC 0359\n(b)AGREGA 0452\nAGREGA 0454\n(b)DBPEDI 0301\nTBUTTON:CLICK 0000\nTBUTTON:HANDLEEVEN 0000\nSENDMESSAG 0000\nTDIALOG:COMMAND 0369\nTDIALOG:HANDLEEVEN 0000\nDIALOGBOX 0000\nTDIALOG:ACTIVATE 0244\nDBPEDI 0327\nOCOMPRA 0215\n(b)MAIN 0248\nTSBUTTON:LBUTTONDOW 1100\nTSBUTTON:HANDLEEVEN 0000\nTSBUTTON:HANDLEEVEN 1007\nWINRUN 0000\nTWINDOW:ACTIVATE 0000\nMAIN 0557\n\n\n           Si no hay error.log o el mensaje es en un alert() de fivewin tendras que ir poniendo carteles para ver donde es o como te dice rene ponerlos en el propio errsysw.prg.\n\nSaludos,','',0,'gA==','33ln8qbg',1,0,'',74,0,0),(14830,3404,6,198,0,'200.95.55.120',1151374433,1,0,1,1,1,1,'','Migrando de FW A FWH. Problema con UUID.LIB','Hola a todos!\n\nEstoy empezando a migrar mi aplicación de FW a FWH, al compilar me da el error de que me falta la libreria UUID.LIB, leyendo lo que han preguntado otros al respecto, me encontre con que les estan indicando bajarla del siguiente link:\nPuedes descargar uuid.lib desde aqui: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/7db97492/uuid.zip.html\">http://hyperupload.com/download/7db97492/uuid.zip.html</a><!-- m -->\n\nel problema es que ya entre al link y me dice BAD URL, podrían indicarme la nueva dirección.?\n\nSaludos y gracias de antemano\n\nLaura Edith Hernández  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1w5tlbyy',1,0,'',198,0,0),(14831,3395,3,266,0,'60.50.50.116',1151379069,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/index.asp?page=add_on_xbscript&amp;show_sub=8&amp;show_i=1\">http://www.xharbour.com/index.asp?page= ... 8&amp;show_i=1</a><!-- m -->\n\nSandeep (India) does show me his sample.','',0,'gA==','1nzybhun',1,0,'',266,0,0),(14832,3400,6,439,0,'190.0.135.225',1151380775,1,0,1,1,1,1,'','','Gracias oskar, me funcionó de maravillas.\n\nAún me quedan detalles por afinar pero pronto verás la clase en el foro. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2p29o6i7',1,0,'',439,0,0),(14833,3396,2,9,0,'85.54.236.210',1151382256,1,0,1,1,1,1,'','','Yo utilizo directamente Ole y hago lo siguiente (no sé si te servirá):\n\noExcel:WorkBooks:Open(\"NombreArchivo\")','',0,'gA==','1eofuyey',1,0,'',9,0,0),(14834,3375,2,9,0,'85.54.236.210',1151382985,1,0,1,1,1,1,'','¿Como evoluciono?','[quote=&quot;chocochester&quot;:1s1zj4ny]Podrían informarme de cómo programan ustedes ?[/quote:1s1zj4ny]\n\nSi observas los mensajes del foro, algunos escribimos en el pie del mensaje, las herramientas que utilizamos.\n\n- Versión de fw: FWH 2.7 (pero creo que vale la FWH 2.4 que tienes)\n- Compilador: XHarbour 0.99.61 (si usas FWH 2.4 quizas necesites una versión mas antigua)\n- Linkador:  Borland C++ 5.5.1  gratuito y 32 bit\n- Modo de Generar los diálogos: WorkShop (gratuito) o código\n- Modo de compilar y linkar: Verce 4.3 (gratuito y una maravilla)\n- 16, 32 o 64 bits:  32\n- Algún sitio con ejemplos: Los Samples de FW, FiveTilus y este foro.\n\nEditor: Aunque a veces sigo usando el viejo EDIT, normalmente uso xEdit.\n\ndBase: Para manejar directamente las dbf uso Prometheus (gratuito)\n\nEs preferible que soluciones la definición de variables. Pero si quieres pasar de ellas, solo es necesario que al compilar quites el parámetro /n','',0,'gA==','1s1zj4ny',1,0,'',9,0,0),(14835,3360,3,54,0,'201.98.183.91',1151385119,1,0,1,1,1,1,'','','[quote=&quot;George Trojan&quot;:f3wgmo3l]Thanks[/quote:f3wgmo3l]\n\nAmigo,\n\nLo resolví de la siguiente manera.\n\nEliminé la LIB GTWIN y adicioné la GTNUL.LIB\n\nAdicioné un PRG: gtnul.prg conteniendo lo siguiente:\n\n[code:f3wgmo3l]REQUEST HB_GT_NUL\nFUNCTION GTSYS\n   RETURN[/code:f3wgmo3l]\n\nFuncionando sin problemas hasta ahora.\n\nSi alguien conoce o sabe que hace la GTSYS, agradecería lo explicara.\n\nSaludos\n\nPD. Uso xHarbour (bajado del CVS 26-06-2006, 10:00pm) y FWH 2.7','',0,'gIA=','f3wgmo3l',1,0,'',54,0,0),(14836,3072,4,89,0,'213.21.136.60',1151392981,1,0,1,1,1,0,'','','Hello Ramirez \n\nit is possible have this example  ?\n\nregards Maurizio','',0,'gIA=','340qco0i',1,0,'',89,0,0),(14837,3347,3,58,0,'84.149.231.247',1151393046,1,0,1,1,1,0,'','','Hi all,\n\ni\'m also very interested about detecting a mouse move over a get.\nSo i tried your suggestions. But without success.\n\nhere my code:\n[code:19iehfby]#include &quot;FiveWin&#46;ch&quot;\n\n////////////////\nPROCEDURE Main&#40;&#41;\n////////////////\nLOCAL oDlg, oSay\nLOCAL cSay &#58;= &quot;This is a Say Text&quot;\n\n   \n\n   DEFINE DIALOG oDlg;\n          FROM 5, 5 TO 15, 40;\n          TITLE &quot; MouseMove Test&quot;\n\n   @ 2, 4 SAY oSay VAR cSay SIZE 100, 10 OF oDlg BORDER CENTER\n   oSay&#58;bMMoved &#58;= &#123; | nRow, nCol | MsgAlert&#40; &quot;HI&quot; &#41; &#125;\n\n   @ 3, 9 BUTTON &quot;E&amp;xit&quot; OF oDlg SIZE 40, 11 ;\n          ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg\n\nRETURN\n[/code:19iehfby]\n\nWhen running this little program nothing happens when touching the oSay with my mouse.\nI use latest xHarbour Bilder and the most recent FwH 2.7.\nAm i missing something?\n\nRegards,\nDetlef','',0,'AIA=','19iehfby',1,0,'',58,0,0),(14838,3360,3,2,0,'87.218.146.144',1151394292,1,0,1,1,1,1,'','','William,\n\nHay que usar GTGUI.lib que es la librería correcta para Windows. Con GTNUL.lib hay cosas que no funcionan, como por ejemplo Tone().\n\nYou should use GTGUI.lib which it is the right lib for Windows. With GTNUL.lib there are missing features, i.e. Tone().','',0,'AIA=','192wkyd0',1,0,'',2,0,0),(14839,3404,6,2,0,'87.218.146.144',1151394503,1,0,1,1,1,1,'','','Laura,\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/027db97432/uuid.zip.html\">http://hyperupload.com/download/027db97 ... d.zip.html</a><!-- m -->','',0,'AIA=','2p6b4f0t',1,0,'',2,0,0),(14840,3405,3,80,0,'202.72.164.124',1151394830,1,0,1,1,1,0,'','GetProfStr','To All\n\nWhere does GetProfStr retrieve information from in Windows XP , in \nWindows 98 it used to be win.ini - does it now get information\nfrom the registry. \n\nRegards\n\nColin','',0,'AIA=','2sdgece7',1,0,'',80,0,0),(14841,3405,3,6,0,'87.19.208.113',1151395493,1,0,1,1,1,1,'','Re: GetProfStr','Yes.\n\nEMG','',0,'AIA=','5ajeqpak',1,0,'',6,0,0),(14842,3354,1,170,0,'80.170.72.105',1151396384,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:27orct6s]Badara,\n\nWe can\'t tell you right now an exact printer model, but we have been reported through several years about printers that were not properly working under 16 bits, most of them USB printers.[/quote:27orct6s]\n\nAntonio,\n\nMy users and me have no problem with USB printers, with Fivewin 16 bits for Windows like with pure Clipper DOS via PageScript.\n\nThe Fivewin print system need to upgrade to work fine, much functions\ncalled are obsoletes and some functions causes GPF. I think you could\nsee here the reals problems found several years ago, not in the 16 bits applications. 16 bits is not the cause of this, i verify that alls the days !\n\nRegards,','',0,'gA==','27orct6s',1,0,'',170,0,0),(14843,3360,3,54,0,'201.98.183.91',1151398029,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2j7oxz5t]William,\n\nHay que usar GTGUI.lib que es la librería correcta para Windows. Con GTNUL.lib hay cosas que no funcionan, como por ejemplo Tone().\n\nYou should use GTGUI.lib which it is the right lib for Windows. With GTNUL.lib there are missing features, i.e. Tone().[/quote:2j7oxz5t]\n\nGracias Antonio, pruebo y comento\n\nsaludos','',0,'gA==','2j7oxz5t',1,0,'',54,0,0),(14844,3360,3,54,0,'201.98.183.91',1151398858,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2fl06apa]William,\n\nHay que usar GTGUI.lib que es la librería correcta para Windows. Con GTNUL.lib hay cosas que no funcionan, como por ejemplo Tone().\n\nYou should use GTGUI.lib which it is the right lib for Windows. With GTNUL.lib there are missing features, i.e. Tone().[/quote:2fl06apa]\n\nAntonio,\n\nNo encuentro la GTGUI.LIB, hay algun lugar para descargarla?\n\nSaludos','',0,'gA==','2fl06apa',1,0,'',54,0,0),(14845,3405,3,80,0,'202.72.164.124',1151399513,1,0,1,1,1,0,'','GetProfStr','Enrico \n\nThanks - do you know in what section of the registry - also \nthe  \"print oPrn to model\"  clause does that get information from the same area of the registry. I looked into the printer.prg in the\nsource but that still uses GetProfStr so I am not sure how it \nfinds it in the registry.\n\nRegards\n\nColin','',0,'gA==','1eifele3',1,0,'',80,0,0),(14846,3367,6,2,0,'87.218.146.144',1151399910,1,0,1,1,1,1,'','','Mario,\n\nNo se me ocurre cual puede ser la causa por la que no te funcione.\n\nSi generas \'MGAT.RES\' manualmente, se construye el EXE ?','',0,'gA==','1rm6c2ov',1,0,'',2,0,0),(14847,3360,3,2,0,'87.218.146.144',1151400094,1,0,1,1,1,1,'','','William,\n\nSe supone que Przemek la iba a implementar en xharbour lo antes posible. Has probado a hacer un checkout por si está ya ?','',0,'gA==','y7mmxccj',1,0,'',2,0,0),(14848,3367,6,147,0,'190.7.10.2',1151404821,1,0,1,0,1,1,'','','Efectivamente; si genero el .res desde el prompt, luego, el ejecutable se construye, de hecho así vengo haciendolo desde hace bastante tiempo.\nMuchas gracias, seguiré investigando','',0,'gA==','1wrwt6du',1,0,'',147,0,0),(14849,3341,6,147,0,'190.7.10.2',1151405278,1,0,1,0,1,1,'','','Pregunto; Si haces un scope por el nombre de una ciudad, que esté en la Dbf, muestra esa sola ciudad?. Si no lo hace puede que sea un bug del RDD\n... solo una pista para seguir investigando\n\nSaludos','',0,'gA==','whrssp4o',1,0,'',147,0,0),(14850,3405,3,6,0,'87.19.208.113',1151405447,1,0,1,1,1,1,'','Re: GetProfStr','Sections are mapped to different keys of the registry. As an example, Devices should be here:\n\nHKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Devices\n\nEMG','',0,'gA==','2qcwoef4',1,0,'',6,0,0),(14851,3406,6,147,0,'190.7.10.2',1151405659,1,0,1,0,1,1,'','ADS encriptado','Gente:\nAlguien me pude facilitar un ejemplo para crear, administrar Dbfs encriptadas con ADS?, uso la version 6.20\n\ngracias, Saludos','',0,'gA==','3j49o1m6',1,0,'',147,0,0),(14852,3347,3,6,0,'87.19.208.113',1151405755,1,0,1,1,1,1,'','','Add\n\n[code:1cjv9iii]oSay&#58;lWantClick = &#46;T&#46;[/code:1cjv9iii]\n\nEMG','',0,'AIA=','1cjv9iii',1,0,'',6,0,0),(14853,3347,3,58,0,'84.149.199.110',1151407087,1,0,1,1,1,0,'','','Hello Enrico,\n\nyes, it works now.\nI think you are eating every morning FiveWin internals with a big spoon. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nBTW:\nI visited your website. And i suddenly remembered having an exciting time with playing \'Jet Set Willy\' on my very first computer which was a Sinclair Spectrum  ( a black one ).\n\nThose were the days where programmers had to care about limited memory space, wasting no byte and producing amazing applications.\n\nThanks again for your help.\nRegards,\nDetlef','',0,'AIA=','1v1x6zre',1,0,'',58,0,0),(14854,3398,6,649,0,'201.3.228.110',1151408137,1,0,1,1,1,1,'','','El mensaje pasó en un traductor(Mensagem passada em um tradutor)\n\nMiraba a estos dlls en los esquemas que esto instaló el cristal y no\nencontré ninguno solamente él crpe32.dll porqué lo bajé\nel otros no encontré ningún  uso de la versión 10 \nsuero que los dlls son otros ?\n¿Cómo hago para descubrir qué dlls debo utilizar?\n¿Si alguem pueden pasarme este los dlls para mi email? No encontré\nninguno, ni en el CD de la instalación\n<!-- e --><a href=\"mailto:marcelo@lorenzi.com.br\">marcelo@lorenzi.com.br</a><!-- e -->\n\n\n****************\nBom Procurei estas dlls na maquina que esta instalado o crystal e não encontrei nenhuma delas somente a crpe32.dll por que eu baixei ela\nas outras não encontrei nenhuma \nuso a Versão 10 \nsera que as dlls são outras?\nComo faço para descobrir qual dlls devo usar?\nSe alguem puder me passar esta dlls para o meu email? não achei nenhuma, nem na pasta que se encontra o CD de instalação.\n<!-- e --><a href=\"mailto:marcelo@lorenzi.com.br\">marcelo@lorenzi.com.br</a><!-- e -->\n****************','',0,'AIA=','3ur0dgxr',1,0,'',649,0,0),(14855,3347,3,6,0,'87.19.208.113',1151408303,1,0,1,1,1,1,'','','[quote=&quot;Detlef Hoefner&quot;:2dvlzerh]Hello Enrico,\n\nyes, it works now.\nI think you are eating every morning FiveWin internals with a big spoon. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> [/quote:2dvlzerh]\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->))\n\n[quote=&quot;Detlef Hoefner&quot;:2dvlzerh]BTW:\nI visited your website. And i suddenly remembered having an exciting time with playing \'Jet Set Willy\' on my very first computer which was a Sinclair Spectrum  ( a black one ).[/quote:2dvlzerh]\n\nMany programmers have their roots in the little black box, at least here in Europe. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote=&quot;Detlef Hoefner&quot;:2dvlzerh]Those were the days where programmers had to care about limited memory space, wasting no byte and producing amazing applications.[/quote:2dvlzerh]\n\nYes. I started with Sinclair ZX81 that featured one big Kb of RAM <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','2dvlzerh',1,0,'',6,0,0),(14856,3395,3,190,0,'202.65.134.45',1151409435,1,0,1,1,1,0,'','','Mr.Enrico\n\n[quote:hagbhdsn]What do you exactly mean with \"from the WEB\"? [/quote:hagbhdsn]\n\nFrom the server where a particular website\'s webpages and its data\ncontents are stored.\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','hagbhdsn',1,0,'',190,0,0),(14857,3395,3,6,0,'87.19.208.113',1151410145,1,0,1,1,1,1,'','','Check programs like WebDrive that allows you to map a FTP site as a local drive.\n\nEMG','',0,'gA==','nv4t697p',1,0,'',6,0,0),(14858,3395,3,190,0,'202.65.134.45',1151412232,1,0,1,1,1,0,'','','Dear Mr.Enrico\n\nThank you very much for quick response.\n\nI have downloaded \'Webdrive\' and on testing it.\n\nRegards to you\n\n- Ramesh Babu P','',0,'gA==','r8uetw5j',1,0,'',190,0,0),(14859,3401,6,147,0,'200.45.54.133',1151413180,1,0,1,0,1,1,'','','José:\nEn principio PellesC no está encontrando en su path de includes el archivo windows.h\nAlgo raro, ya que entrando en Tools-Options, pestaña Folders, si desplegás el combo y seleccionás Includes, deberías ver el camino: \\PellesC\\Include\\Win que es donde está windows.h, y otros que incluye Pelles para generar el .res\nSi no es así deberías incluir este camino o; editar tu .rc y fijarte que camino tiene asignado windows.h\n\nAhora te cuento como trabajo:\n1) Creo un miapp.rc en el que solo pongo WindowsXP.Manifest (renombrado a 8.3 como Theme.man), el icono para el ejecutable y el recurso VERSIONINFO. Este .rc es el que se compila como .res y se incrusta en el ejecutable\n2) Creo miapp01.rc que contiene todos los recursos, Dialogs y sus etc., que utilizará la app. Luego, mediante el bat (que está en la carpeta dlls de FWH), rc2dll32 miapp01 construyo la dll de 32 bits. A esta dll la llamo como lo hacía con FW16\nIMPORTANTE: NO utilizar controles Borland\n\nSaludos','',0,'gA==','7uh2z6ir',1,0,'',147,0,0),(14860,3407,2,124,0,'200.82.64.90',1151420242,1,0,1,1,1,0,'','ERROR EN APERTURA DE DIALOG EN W2003 PERO ANDA BIEN EN W98','Amigos:\n\nEn nuestro aplicativo algunas ventanas nos generan un error en Windows 2003 y Windows 2000 pero anda bien en windows 98. \n\nBuscando con carteles en los fuentes de la clase dialog.prg método Activate, vemos que el hay un dato nresult que toma valor 2 en windows 98 y -1 en 2003. \n\nEn windows 98 la ventana se abre ok, en 2003 muestra un error y no se puede abrir cuando entra en \n#ifdef clipper y entra en createdlgerror( ....  donde genera la ventana de error y muere la aplicación.\n\nMuero por la solucion!!!!!!!!\n\nMil gracias desde ya.\nRicardo Bécares.','',0,'gA==','1x43uwoh',1,0,'',124,0,0),(14861,3407,2,304,0,'201.155.7.216',1151421507,1,0,1,1,1,0,'','','HOLA:\nA MI ME SUCEDE LO MISMO O ALGO MUY SIMILAR, CUANDO EJECUTA UNA FUNCION QUE CREA UN oDlg EN WINME, WIN98 ABRE BIEN PERO EN WINDOWS XP O WIN NT, WIN 2000, MARCA ESE MISMO ERROR Q MENCIONAS. SI SABEN DE ALGUNA SOLUCION MUCHO SE LOS AGREDECERIA.\nSALUDOS\nVERACRUZ, MEXICO','',0,'gA==','3bka7wfn',1,0,'',304,0,0),(14862,3391,6,375,0,'84.122.100.43',1151421830,1,0,1,1,1,1,'','','Vuelvo a colgar un Link, a ver si funciona esta vez.\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c35ea616/TGSAY.zip.html\">http://hyperupload.com/download/02c35ea ... Y.zip.html</a><!-- m -->\n\nEn cuanto a ejemplos, es muy facil, como cualquier otro control:\n\n[u:1rjaauzp]Desde Resources:[/u:1rjaauzp]\n\nREDEFINE GSAY oSgt VAR cVar ID ... OF oDlg VCENTER 3DBOX COLOR ...\no\nREDEFINE GSAY oSgt VAR cVar ID ... OF oDlg CENTER VCENTER  COLORSOMBRA 0 COLOR ...\n\n[u:1rjaauzp]O A mano:[/u:1rjaauzp]\n\n@ 20,130 GSAY oSgt PROMPT \"EJMPLO\" OF oDlg SIZE 100,12 ......\no\n@ 20,130 GSAY oSgt PROMPT \"EJMPLO\" OF oDlg SIZE 100,12 ...... TRANSPARENTE COLORSOMBRA CLR_OBLUE\n\n[b:1rjaauzp][u:1rjaauzp]ADVERTENCIA:[/u:1rjaauzp][/b:1rjaauzp] Siempre hay que poner un VAR o un PROMPT para que funcione de forma adecuada.\n\n[b:1rjaauzp]PARA ACTIVAR LA EDICION EL CONTENIDO (TIPO GET):[/b:1rjaauzp]\n\nTras el REDEFINE o el @ ...,... hay que poner:\n\nHACER SGET oSgt COLOR CLR_BLUE,CLR_WHITE PICTURE \"9999\" VALID ....\n\nEchale un vistazo al TGSAY.CH para ver las distintas posibilidades. Si lo prefieres, puedes cambiar (en TGSAY.CH) la palabra clave \"HACER\" (o cualquiera otra) por otra que más te convenga.\n\nSaludos','',0,'QQ==','1rjaauzp',1,0,'',375,0,0),(14863,3360,3,620,0,'209.189.229.150',1151426899,1,0,1,1,1,0,'','','I just ran into this issue today as I loaded my new 32bit apps on Win 98 machines.  Will there be a notification on when to download the new version of FWH when this is fixed?\nThanks,\nGreg','',0,'QQ==','3stpcn4m',1,0,'',620,0,0),(14864,3404,6,198,0,'201.152.104.66',1151427410,1,0,1,1,1,1,'','UUID','Gracias Antonio voy a probar!\n\nLaura Edith Hernández.','',0,'QQ==','3fsf6v9a',1,0,'',198,0,0),(14865,3360,3,2,0,'80.32.22.38',1151431025,1,0,1,1,1,1,'','','Greg,\n\nIt is not a FWH issue, it is a Harbour issue. We may publish a new Harbour build with the fix asap.','',0,'QQ==','2f0x0z6s',1,0,'',2,0,0),(14866,3408,3,69,0,'206.210.97.138',1151431336,1,0,1,1,1,0,'','Listbox Help','Hi Everybody,\n\nI\'ll try to explain this as best I can....\n\nI have a listbox created from resource.\nWhen the listbox is first created there is no database associated with it\n(REDEFINE LISTBOX oLbx ID 131 of oDlg UPDATE)\n\nWhen the user selects a database file drop a drop down list, I need to display 3 fields from this database. \n\nI need to re-define the listbox with the new database.\nI have tried doing a:\n\nREDEFINE  Listbox oLbx FIELDS RepData-&gt;Time, STR(RepData-&gt;Sat), STR(RepData-&gt;HR) ID 131 ;\n         FIELDSIZES 60,35,35  ;\n         HEAD \"Time\",\"SPO2\",\"HR\";\n         of oDlg UPDATE \n\nbut it gives me a duplicate ID error.\n\nAny ideas to get around this problem?\n\nThanks in advance,\n\nJeff','',0,'QQ==','6m1cnq6m',1,0,'',69,0,0),(14867,3409,3,69,0,'206.210.97.138',1151431397,1,0,1,1,1,0,'','BUTTON question','Hi Everybody,\n\nIs there any way to have more than one line of text on a button?\n\n\nThanks,\n\nJeff','',0,'QQ==','1g2m6891',1,0,'',69,0,0),(14868,3410,3,620,0,'209.189.229.150',1151433129,1,0,1,1,1,0,'','Listbox Filter on Logical Field','Greetings....\nI have a Listbox that I want to show only items that are .t. for a logical field (field-&gt;template) in some views and all the data in another view.\n\nUsing the Set Filter command works but is slow.  Ive tried to set up an Index on that logical field but am getting an index error.\n\nINDEX ON field-&gt;template + field-&gt;custno  where template is logical and custno is character.  Can you do an Index on a logical field?  Or is there a better way to accomplish what I am trying to do?\n\nI would then use the SET SCOPE or SELECT function for the Listbox.  Any guidance on this is appreciated!\n\nGreg','',0,'QQ==','23saytw1',1,0,'',620,0,0),(14869,3404,6,138,0,'201.154.236.107',1151434778,1,0,1,1,1,1,'','','No Laura:\n\nNo es problema de tener o no tener UUID.LIB, el problema es que no tienes configurado el Borland C++\n\nEl Borland C++ necesita configurarse utilizando 2 archivos de texto que contienen las rutas donde debe buscar los archivos .LIB y los archivos include, uno para el compilador BCC32 y otro para el linker ILINK32.\n\nLos archivos se llaman BCC32.CFG e ILINK32.CFG, no vienen incluidos tienes que crearlos tu y los tienes que tener en la misma carpeta \\BIN del borland C++\n\nYo en mi BCC32.CFG tengo esto:\n\n-Ic:\\borland\\bcc55\\include;c:\\xHarbour\\include;c:\\fw25\\include\n-Lc:\\borland\\bcc55\\lib;c:\\xharbour\\lib;c:\\fw25\\include\n\n\ny en mi ILINK32.CFG tengo:\n\n/Lc:\\borland\\bcc55\\lib;c:\\xHarbour\\lib;c:\\fw26\\lib\n\nCon este archivo el linker buscas todas las librerias solicitadas en las carpetas especificadas con /L','',0,'QQ==','1gqpvb22',1,0,'',138,0,0),(14870,3398,6,138,0,'201.154.236.107',1151436317,1,0,1,1,1,1,'','','En el manual tecnico del programador de Crystal Reports viene una seccion de \"Deploying your reports\", ahi viene la lista de DLLs necesarios y la ubicacion dentro del disco.','',0,'QQ==','3baxnl4d',1,0,'',138,0,0),(14871,3410,3,266,0,'60.50.52.19',1151436323,1,0,1,1,1,1,'','','convert field type to string when indexing :-\n\nindex on transform(template,\'@!\')+custno','',0,'QQ==','ciidbdbt',1,0,'',266,0,0),(14872,3391,6,362,0,'200.168.52.156',1151436789,1,0,1,1,1,1,'','','EXCELENTE EXPLICACIÓN. MUCHAS GRACIAS.','',0,'QQ==','fmdxr2pu',1,0,'',362,0,0),(14873,3391,6,582,0,'201.252.111.80',1151437516,1,0,1,1,1,0,'','','Gracias Manu....\nTenia muchas ganas de probar tu clase...... hace rato que ando buscando algo asi.\n\nLa pruebo y te cuento.\n\nUn abrazo. El Loco =&gt;))\n\nPD. Tiene posibilidad de estilo \"FLAT\" ?','',0,'QQ==','3mwag3tt',1,0,'',582,0,0),(14874,3372,6,439,0,'190.0.142.242',1151438060,1,0,1,1,1,1,'','Crystal Reports','Gracias René por tu ayuda <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , no había visto que hay instrucciones en el main para indicar la base de datos, pensé que las tomaba del reporte <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> .\n\nUna nueva pregunta,\nSi quiero crear un reporte con varias bases relacionadas, como indico las bases que deben abrirse y sus relaciones? <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'QQ==','3v1n6ipz',1,0,'',439,0,0),(14875,3410,3,620,0,'209.189.229.150',1151439220,1,0,1,1,1,0,'','','Ok, that fixes the Index problem fine...thanks!\n\nNext issue is the Listbox.\n\nI use:\n\nREDEFINE LISTBOX oLbx .....  SELECT estmain-&gt;template FOR .t. ;\n\nIn runtime, I get this ALERT message:\nTWBrowse SetFilter() types don\'t match with current Index type.\n\nYou click OK on this Alert and the Listbox pops up and displays perfectly.\n\nOther ideas? (or how to disable that Alert message?)\n\nThanks!\nGreg','',0,'QQ==','2d9jnjef',1,0,'',620,0,0),(14876,3411,6,36,0,'200.113.56.235',1151442743,1,0,1,1,1,0,'','Toolbar','Estimados\n\nHay alguna forma de eliminar un item del toolbar\n\nsaludos\nPatricio','',0,'QQ==','2660lb9y',1,0,'',36,0,0),(14878,3408,3,343,0,'204.57.111.194',1151443060,1,0,1,1,1,0,'','','Have you tried\n\noLbx := nil\n\nREDEFINE Listbox oLbx FIELDS RepData-&gt;Time, STR(RepData-&gt;Sat), STR(RepData-&gt;HR) ID 131 ; \nFIELDSIZES 60,35,35 ; \nHEAD \"Time\",\"SPO2\",\"HR\"; \nof oDlg UPDATE','',0,'QQ==','1wa8lgu1',1,0,'',343,0,0),(14879,3410,3,2,0,'80.32.22.38',1151443186,1,0,1,1,1,1,'','','Greg,\n\ntransform(template,\'@!\')+custno is not a logical value.\n\nYou may use:\n... SELECT transform(template,\'@!\')+custno FOR ...\n\nAnyhow, you may modify source\\classes\\wbrowse.prg and comment out the MsgAlert() call.','',0,'QQ==','1jqit97b',1,0,'',2,0,0),(14880,3407,2,2,0,'80.32.22.38',1151444212,1,0,1,1,1,1,'','','Ricardo,\n\nUsas algún control de Borland en la caja de diálogo ? Busca en el fichero RC por BOR...\n\nEn caso afirmativo, comprueba que tengas la BWCC.dll','',0,'QQ==','7ui76t9p',1,0,'',2,0,0),(14881,3409,3,6,0,'82.59.197.129',1151444709,1,0,1,1,1,1,'','Re: BUTTON question','This is a working sample:\n\n[code:as5o0wi0]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define CR CHR&#40; 13 &#41;\n\n#define BS_MULTILINE 8192\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON oBtn PROMPT &quot;&amp;Close&quot; + CHR&#40; 13 &#41; + &quot;the dialog&quot;;\n           SIZE 50, 30;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    oBtn&#58;nStyle = NOR&#40; oBtn&#58;nStyle, BS_MULTILINE &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:as5o0wi0]\n\nEMG','',0,'AIA=','as5o0wi0',1,0,'',6,0,0),(14882,3410,3,620,0,'209.189.229.150',1151445226,1,0,1,1,1,0,'','','using the SELECT transform(field-&gt;template, \"@!\") FOR \"T\" works perfectly (of course).\nThanks again!','',0,'AIA=','oqaeep8f',1,0,'',620,0,0),(14883,3404,6,198,0,'201.152.104.66',1151455237,1,0,1,1,1,1,'','','Gracias Rene y Antonio ya solucione ese problema\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nLaura Edith Hernández','',0,'AIA=','1z7vnonw',1,0,'',198,0,0),(14884,3412,6,198,0,'201.152.104.66',1151456018,1,0,1,1,1,1,'','Migrando de FW a FWH ahora otros problemas','Saludos a todos!\nGracias por las respuestas a mi problema con la UUID.LIB.\n\nAhora tengo otro problema, al compilar la aplicación me envia el sig. mensaje de error:\n\nError: Unresolved external \'_HB_FUN_HB_DBG_VMSTKLCOUNT\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMPARLLIST\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMVARLGET\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMVARSLEN\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\n\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\n\nGracias de antemano por su ayuda.\n\nLaura Edith Hernández H.','',0,'AIA=','sdp5lr4a',1,0,'',198,0,0),(14885,3412,6,138,0,'201.154.236.107',1151457602,1,0,1,1,1,1,'','','Linkeaste la libreria FiveHC tambien, ademas de librerias de (x)Harbour ?','',0,'AIA=','123h12ir',1,0,'',138,0,0),(14886,2486,16,2,0,'80.32.22.38',1151480636,1,0,1,1,1,1,'','','June 28 2006 builds:\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\nHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028519d242/harbourm.EXE.html\">http://hyperupload.com/download/028519d ... m.EXE.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0241caf018/xharbour.EXE.html\">http://hyperupload.com/download/0241caf ... r.EXE.html</a><!-- m -->\n\nxHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/020293b471/xharbourm.EXE.html\">http://hyperupload.com/download/020293b ... m.EXE.html</a><!-- m -->','',0,'AIA=','2f4pmug5',1,0,'',2,0,0),(14887,3360,3,2,0,'80.32.22.38',1151480774,1,0,1,1,1,1,'','','We have just published a new Harbour for Borland build that works ok:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\nPlease remember to link GTGUI.lib instead of GTWIN.lib\n\nYou may also find it at these forums, whatsnew section, Harbour/xHarbour builds.','',0,'AIA=','2nwy48xi',1,1151512519,'',2,1,0),(14888,3393,6,2,0,'80.32.22.38',1151480865,1,0,1,1,1,1,'','','Ya podeis descargar el nuevo build de Harbour desde:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\nTambién lo teneis en la sección \"whatsnew/novedades\" de estos foros, como Harbour/xHarbour builds.\n\nIMPORTANTE: Teneis que enlazar GTGUI.lib en vez de GTWIN.lib','',0,'AIA=','i4vkr1uc',1,1151512635,'',2,1,0),(14889,3412,6,2,0,'80.32.22.38',1151481041,1,0,1,1,1,1,'','','Laura,\n\nQue versión (build y fecha) de Harbour estás usando ? De donde la has descargado ?','',0,'AIA=','2993juru',1,0,'',2,0,0),(14890,3413,7,57,0,'83.53.62.133',1151481071,1,0,1,1,1,1,'','Bitmaps en Menus. ¿Es posible?','Hola amigos\n¿Es posible incorporar botones con bitmaps en Menu\'s ?\n\nAquí tienen un ejemplo de una demo de programa que usa este sistema.\n[img:31a8k1ol]http&#58;//hyperupload&#46;com/download/02293ced80/Dibujo&#46;JPG&#46;html[/img:31a8k1ol]\n\nSaludos\nToni Sales','',0,'CA==','31a8k1ol',1,0,'',57,0,0),(14891,3408,3,2,0,'80.32.22.38',1151481738,1,0,1,1,1,1,'','','Jeff,\n\nTry to use three dummy fields since the beginning:\n\nREDEFINE LISTBOX oLbx FIELDS \"\", \"\", \"\" ID 131 of oDlg UPDATE\n\nand later on set its DATA bLine:\n\noLbx:bLine = { || { RepData-&gt;Time, STR(RepData-&gt;Sat), STR(RepData-&gt;HR) } }\n\n(Please notice that it is a codeblock that returns an array)\n\nand oLbx:Refresh()','',0,'CA==','22nwcr12',1,0,'',2,0,0),(14892,3413,7,2,0,'80.32.22.38',1151482194,1,0,1,1,1,1,'','','Toni,\n\nAún no lo hemos implementado en FWPPC.','',0,'CA==','x9ugat1k',1,0,'',2,0,0),(14893,3414,7,57,0,'83.53.62.133',1151487940,1,0,1,1,1,1,'','Varios Menus en una Window','Antonio\n¿ Como puedo tener varios Menus y cambiar de uno a otro segun me interese, utilizando una misma ventana?.\n\nQuizas sea fácil pero no me aclaro con los menus desde recurso. He estado repasando los ejemplos y siempre se crea un recuros MENU relacionado con un STRINGTABLE, pero no logro entender la relación de uno con otro y menos como se relacionan. Agradecería una ayudita.\n\nOtra consulta. ¿Se pueden crear Menus desde código?\n\nSaludos\nToni Sales','',0,'CA==','3ef2vt1v',1,0,'',57,0,0),(14894,3415,6,102,0,'83.46.99.59',1151489378,1,0,1,1,1,1,'','Problemas conTprinter','Hola foro,\nUtilizo tPrinter para hacer un informe y hago esto:\nLocal oPrn,cNewPrn\ncNewPrn := \'ZEBRA 2844Z\' //Tomado de una tabla que saco de AGetPrinters()\nPRINT oPrn To cNewPrn\n    oPrn:startPage()\n     datos del informe\n     ..........\n     ..........\n    oPrn:EndPage()\nENDPRINT\noPrn:End()\nHasta aqui muy bien, pero si me voy a generar otro informe por otra impresora.\nComo puedo tomar la impresora que tenia selecionada por defecto antes de imprimir el primer informe?, pues se queda [b:8i9hv7a4]cNewPrn[/b:8i9hv7a4] por defecto, y lo que no quiero es llamar aPrinterSetup() para selecionarla manualmente.\n\nMuchas gracias','',0,'QA==','8i9hv7a4',1,0,'',102,0,0),(14895,3411,6,2,0,'80.32.22.38',1151490161,1,0,1,1,1,1,'','','Patricio,\n\nAñade este método a la Clase TToolBar:\n[code:3v8aqg3m]\n#define TB_DELETEBUTTON        1046\n\nMETHOD DelButton&#40; nButton &#41; CLASS TToolBar\n\n   SendMessage&#40; &#58;&#58;hWnd, TB_DELETEBUTTON, nButton - 1, 0 &#41;\n   \nreturn nil   \n[/code:3v8aqg3m]','',0,'AIA=','3v8aqg3m',1,0,'',2,0,0),(14896,3414,7,2,0,'80.32.22.38',1151490346,1,0,1,1,1,1,'','','Toni,\n\n&gt;\n¿ Como puedo tener varios Menus y cambiar de uno a otro segun me interese, utilizando una misma ventana?. \n&gt;\n\nVamos a construir un ejemplo ( a ver si se puede ) <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n&gt; Otra consulta. ¿Se pueden crear Menus desde código? \n\nNo. El API de Windows Mobile no proporciona las funciones necesarias.','',0,'AIA=','1rpsjiil',1,0,'',2,0,0),(14897,3354,1,2,0,'80.32.22.38',1151490451,1,0,1,1,1,1,'','','Badara,\n\n&gt; The Fivewin print system need to upgrade to work fine,\n\nWe appreciate if you share such upgrade details with us. Thanks,','',0,'AIA=','1g8i8sh0',1,0,'',2,0,0),(14898,3416,6,61,0,'201.217.169.252',1151496858,1,0,1,1,1,0,'','Antonio: GtGui.Lib no viene en harbour 46.','Maestro:\n\nRecien baje Harbour 46 y no veo la lib\nque menciona GTGUI.LIB\n\nSaludos y Gracias.\n\nRuben Fernandez.','',0,'AIA=','a06276bm',1,0,'',61,0,0),(14899,3385,6,652,0,'200.35.79.50',1151499271,1,0,1,1,1,1,'','','Buen día...\n\n[quote=&quot;Antonio Linares&quot;:1saiq7ke]Antonio,\n\nLas actualizaciones de FWH puedes adquirirlas desde <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m -->[/quote:1saiq7ke]\n\nAntonio:\n\nYo se donde puedo comprar la última actualización de FWH, pero por el momento lo único que necesito si es posible es el último build de FWH compatible con la versión 2.5, sino puedes decirme donde ubicarla o no me la puedes hacer llegar, muchas gracias de todas maneras por toda la colaboración prestada.','',0,'gA==','1saiq7ke',1,0,'',652,0,0),(14900,3407,2,124,0,'200.82.64.90',1151500069,1,0,1,1,1,0,'','','Antonio:\n\nTengo puesto un bwcc.dll de fecha 23/11/95 de tamaño 130.224 pero no estamos usando archivos de RECURSOS en nuestra programacion con fivewin /clipper / blinker\n\nAdemas como dato adicional, la misma ventana, abierta desde un punto de menú funciona y abierta desde otra ventana no funciona, tira el error.\n\nPero no creo que sea un problema especifico de la ventana, es decir un error en nuestra programacion, es algo que es de la clase, que siguiendo el funte de la clase llegamos a que puede estar en diaglogboxindirect() nos deja nresult un -1 ( en w98 devuelve 2), donde en dialogboxindirect son llamados getinstance(), ctochar( hactivewnd ) ( ahi entra ) ya que cresdata está vacía en nuestro caso, hasta ahi la pudimos seguir, no tenemos los fuentes de getinstance para entrar a verla.\n\nTal vez como vos decís tenemos mal el dll, por favor adicionalmente a este problema, aunque este no sea el caso, indicame de dónde puedo bajar todos los dll que pudiera necesitar, las versiones actualizadas. \n\nEspero tu comentario.\n\nSaludos.\nRicardo.-','',0,'gA==','1bj3hi57',1,0,'',124,0,0),(14901,3393,6,61,0,'201.217.175.17',1151500469,1,0,1,1,1,0,'','','Antonio GtGui.Lib no viene.\n\nCuando la tengamos se sigue compilando esto?\n\nANNOUNCE HB_GTSYS\nREQUEST HB_GT_NUL\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','1qh6ueta',1,0,'',61,0,0),(14902,3360,3,620,0,'209.189.229.150',1151501539,1,0,1,1,1,0,'','','Ive downloaded the new Harbour....I do not see a GTGUI in the library.','',0,'gA==','1c12ghjz',1,0,'',620,0,0),(14903,3417,3,56,0,'217.251.230.175',1151501639,1,0,1,1,1,1,'','TSButton 5 with the latest FWH and xHarbour releases','Hi,\n\nI would like to use TSButton 5 with the latest FWH and xHarbour releases. I added TSButton.prg, TSBar.prg, TSLines.prg, TSRadio.prg, TSTSay.prg and BPaint.c to my compile/link script and got several unresolved externals like MAKESEPARATOR and SBTNPAINT. \nThat is strange because the function are all part of BPaint.c.\nSo what could be the problem?','',0,'gA==','u08gs42t',1,0,'',56,0,0),(14904,3417,3,343,0,'204.57.111.194',1151507363,1,0,1,1,1,0,'','','I am using TSButton 5 with xHarbour Builder and FWH 2.7 with no problem','',0,'gA==','sko4e41q',1,0,'',343,0,0),(14905,3418,6,132,0,'83.213.45.32',1151508798,1,0,1,1,1,1,'','TPrinter','Hola amigos:\n\n  Para elegir una impresora para imprimir escribo en el codigo oPrn:SetUp(), me aparece la ventana de seleccion de impresora, y ademas de otros datos, aparecen dos botones Aceptar y Cancelar.\n  Lo que queria saber es como controlo que se ha pulsado Cancelar, existe algo asi como oPrn:lCancel o algo parecido.\n\nGracias de antemano','',0,'gA==','1994c242',1,0,'',132,0,0),(14906,3391,6,375,0,'84.122.97.183',1151511239,1,0,1,1,1,1,'','','Si te refieres a un recuadro sencillo, utiliza SQUARE. \nSi te refieres al GET plano, [b:1nacrdba]NO[/b:1nacrdba], pues utilizo la clase TGET de FW. \nAunque sería cuestión de intentar un GET algo más grande que el DIALOG que lo contiene. La clase está abierta a cualquier mejora de terceros, sólo que me gustaría que si alguien la mejora, que hiciera el favor de comunicarmelo.','',0,'QA==','1nacrdba',1,0,'',375,0,0),(14907,3372,6,138,0,'201.154.236.107',1151511571,1,0,1,1,1,1,'','','Eso es un super mega ultra follon, sin exagerar, cuando estas trabajando con DBFs, con ODBC y SQL es bastante mas sencillo\n\nLa forma mas rapida y mejor de hacer este tipo de informes que vinculan relacfiones de varias tablas, y filtros y esas cosas con Crystal es crearte una DBF temporal con los datos extraidos de las distintas tablas y sobre esa DBF temporal generar el informe.','',0,'QA==','2yvmclep',1,0,'',138,0,0),(14908,3360,3,2,0,'87.218.146.73',1151512499,1,0,1,1,1,1,'','','Greg,\n\nOur mistake, sorry. Please download it again:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->','',0,'QA==','1xemw1of',1,0,'',2,0,0),(14909,3393,6,2,0,'87.218.146.73',1151512615,1,0,1,1,1,1,'','','Ruben,\n\nHa sido un error nuestro. Vuelve a descargalo desde:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\nNo, no hay que usar nada de eso. Sólo hay que enlazar GTGUI.lib en vez de GTWIN.lib y listo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','1c81kzxj',1,0,'',2,0,0),(14910,3416,6,2,0,'87.218.146.73',1151512746,1,0,1,1,1,1,'','','Ruben,\n\nVuelve a descargarla desde aqui:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\ngracias,','',0,'QA==','th0aunh6',1,0,'',2,0,0),(14911,3385,6,2,0,'87.218.146.73',1151512982,1,0,1,1,1,1,'','','Antonio,\n\nLa versión 2.5 es una versión muy antigua que no se soporta ya. la versión actual es la 2.7.','',0,'QA==','gt8xavwo',1,0,'',2,0,0),(14912,3418,6,2,0,'87.218.146.73',1151513059,1,0,1,1,1,1,'','','Alfonso,\n\nComprueba el valor de oPrn:hDC. Si vale 0, entonces se pulsó cancelar.','',0,'QA==','2yls3wlp',1,0,'',2,0,0),(14913,3407,2,2,0,'87.218.146.73',1151513196,1,0,1,1,1,1,'','','Ricardo,\n\nQue valores de heapsize y de stacksize usais en el fichero LNK de enlazado ? Si usais muchos GETs en esa caja de diálogo, prueba a aumentar el heapsize de 500 en 500.','',0,'QA==','1mq137mx',1,0,'',2,0,0),(14914,3406,6,138,0,'201.154.236.107',1151513448,1,0,1,1,1,1,'','','Del manual de google para ADS:\n\n\n4.8.1. Protección por encriptamiento de datos:\n\n	El primer esquema de protección consiste en encriptamiento de los datos mediante un algortimo de 160 bits,que garantiza claves unicas para cada carácter dentro de las tablas.  A diferencia de otros mecanismos de encriptamiento, ADS puede encriptar no solo campos cadena de caracteres, sino también campos numéricos, lógicos, fecha, memo y BLOB.\n\n	El proceso de encriptamiento se realiza a partir de  una llamada a la función AdsEnableEncryption(), la cual recibe como parámetro una cadena de caracteres que es una “llave” de encriptamiento, a partir de la llamada a esta función todos los datos de inserción y actualización de datos se realizan de manera encriptada:\n\n\n\n[code:3pafvwsa]USE ARCHIVO&#58;DBF \nAdsEnableEncryption&#40;“clave2”&#41;\n[/code:3pafvwsa]\n\n\n	El encriptamiento se realiza por área de trabajo, razón por la cual, es posible tener distantas llaves de encriptación para los distintos archivos \n\n\n[code:3pafvwsa]USE ARCH1&#46;DBF\nAdsEnableEncryption&#40;“clave1”&#41;\n\nUSE ARCH2&#46;DBF\nADSEnableEncryption&#40;“clave2”&#41;\n[/code:3pafvwsa]\n\n	Si la tabla no se encuentra encriptada y se desea encriptar en su totalidad, se debe utilizar la función AdsEncryptTable()\n\n\n\n[code:3pafvwsa]USE ARCHIVO&#46;DBF\nAdsEnableEncryption&#40;“clave1”&#41;\nAdsEncryptTable&#40;&#41;\nCLOSE\n[/code:3pafvwsa]\n\n	A partir del encriptamiento de la tabla, siempre que se haga uso de ella, será necesario utilizar la función AdsEnableEncryption() con la clave de encriptamiento adecuada, para poder hacer actualizaciones al archivo, si la clave de encriptamiento no es correcta, el archivo se abre pero no se pueden leer ni modificar datos.\n\n	Cuando una tabla se encripta, también se realizan procesos de encriptamiento en la cabecera del archivo, esto se hace con el fin de que los datos no puedan ser leidos por ningún programa externo, incluyendo el ARC, el cual pedirá la clave de encriptamiento cuando se intente abrir el archivo.\n\n	El proceso de encriptar / desencriptar, pasa por el servidor ADS, los datos siempre permanecen almacenados de manera encriptada y es el servidor quien se encarga de los procesos de traducción, es decir, el servidor leerá los datos de archivo encriptado, desencripta la información y los devuelve al cliente de manera desencriptada y viceversa, en los procesos de actualización / inserción, los datos son recibidos del cliente de manera desencriptada, y cuando son escritos en el archivo de datos, el servidor encripta y guarda.','',0,'AIA=','3pafvwsa',1,0,'',138,0,0),(14915,3419,20,446,0,'82.59.174.42',1151514291,1,0,1,1,1,0,'','localizzazione italiana','Ciao a tutti\nvorrei sapere come si fa a localizzare il programma in italiano\n(giorni, mesi, ecc)\nho provato con la funzione hb_langselect(\"IT\") ma mi restituisce l\'errore \"invalid language selected\"\n\nqualche suggerimento ?\ngrazie\n\nRoberto Chiaiese','',0,'AIA=','2psunzhk',1,0,'',446,0,0),(14916,3416,6,61,0,'201.217.169.12',1151514336,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias.\n\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','3f066ei3',1,0,'',61,0,0),(14917,3393,6,61,0,'201.217.169.12',1151514419,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias de nuevo.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','1ctawozd',1,0,'',61,0,0),(14918,3372,6,439,0,'190.0.140.41',1151516081,1,0,1,1,1,1,'','Crystal Reports','[quote=&quot;RF&quot;:3e413wej]Eso es un super mega ultra follon, sin exagerar, cuando estas trabajando con DBFs, con ODBC y SQL es bastante mas sencillo\n\nLa forma mas rapida y mejor de hacer este tipo de informes que vinculan relacfiones de varias tablas, y filtros y esas cosas con Crystal es crearte una DBF temporal con los datos extraidos de las distintas tablas y sobre esa DBF temporal generar el informe.[/quote:3e413wej]\n\nYa había pensado en eso como una probabilidad <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> , y tu me lo confirmas.\n\nMuchas gracias por siempre estar atento a nuestras consultas en el Foro. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','3e413wej',1,0,'',439,0,0),(14919,3412,6,198,0,'201.138.103.213',1151516520,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3fdxjjhu]Laura,\n\nQue versión (build y fecha) de Harbour estás usando ? De donde la has descargado ?[/quote:3fdxjjhu]\n\nxHarbour Compiler build 0.73.0 (SimpLex)\nCopyright 1999-2003, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nLa tome del disco que venía incluido con el software que compre.\n\nSaludos.','',0,'gA==','3fdxjjhu',1,0,'',198,0,0),(14920,3420,3,446,0,'82.59.174.42',1151516936,1,0,1,1,1,0,'','localization','Hi all,\nHow to localize my app in italian ?\n(days, months, ecc)\nI tried hb_langselect(\"IT\") function but it returns the following message: \"invalid language selected\"\ndo I miss something to link in ?\n\nany idea ?\nmany thanks\n\nRoberto Chiaiese','',0,'gA==','3b1wtu6g',1,0,'',446,0,0),(14921,3412,6,198,0,'201.138.103.213',1151516964,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2l80k3n8]Linkeaste la libreria FiveHC tambien, ademas de librerias de (x)Harbour ?[/quote:2l80k3n8]\n\nEfectivamente estaba indicada esa librería, ya la quite pero ahora me manda muchos mas errores.  El archivo .MAK que estoy usando lo tome de FWH\\SOURCE\\FUNCTION y se llama CBATIWIN.MAK a partir de ese archivo hice el que estoy utilizando. ¿me sirve ese o no?  algunos de los  errores ahora son:\n	\\BORLAND\\BCC55\\bin\\ilink32.exe -Gn -aa -Tpe -s -I -x @MAKE0000.@@@\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_GETVERSION\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_ISWINNT\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_FREERESOURCES\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_POSTQUITMESSAGE\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_MSGSTOP\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_GETMODULEFILENAME\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_GETINSTANCE\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_LCHDIR\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|FILENAME\nError: Unresolved external \'_HB_FUN_SYSREFRESH\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|FILENAME\nError: Unresolved external \'_HB_FUN_SETCAPTURE\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|WINDOW\nError: Unresolved external \'_HB_FUN_WNDCENTER\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|WINDOW\nError: Unresolved external \'_HB_FUN_HB_DBG_VMSTKLCOUNT\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|HARBOUR\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nGracias por la ayuda.\n\nLaura Edith Hernández H.   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2l80k3n8',1,0,'',198,0,0),(14922,3360,3,54,0,'201.98.183.91',1151518926,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ucv1nqe9]Greg,\n\nOur mistake, sorry. Please download it again:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->[/quote:ucv1nqe9]\n\nAntonio,\n\nencontré la los fuentes de GTGUI, la compilo y cuento al respecto.\n\nSaludos','',0,'gA==','ucv1nqe9',1,0,'',54,0,0),(14923,3407,2,146,0,'200.82.64.90',1151519767,1,0,1,1,1,0,'','','Gracias Master, estabamos usando stacksize en 9500 y heapsize en 2048, aumente heapsize a 2548 y comenzaron a funcionar varias ventanas mas, me faltan muy pocas por lo que voy a seguir aumentando el valor de heapsize.\n\nSaludos\nRicardo Bécares y Leonor González','',0,'gA==','1i6sy1yh',1,0,'',146,0,0),(14924,3421,6,492,0,'201.127.104.82',1151520959,1,0,1,1,1,1,'','Antonio : Acerca controles ActiveX/OCX con xHarbour','Antonio, Colegas :\n\nNavegando sin direccion alguna  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , fui a caer en una pagina que tiene varios controles OCX, algunos de ellos muy interesantes, baje 2 ( son free ) para probarlos, pero realmente NO he podido echarlos a andar, estuve buscando en la documentacion, en los ejemplos, en los post, etc, y no encuentro alguna guia o procedimiento exacta para ello.\n\nQuisiera saber donde puedo hallar algo de informacion para poder trabajar con estos controles, porque uno esta -DPM-  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , genera unas graficas preciosas, que es un punto que estoy tratando en mi App.\n\n[img:26ai9a92]http&#58;//img418&#46;imageshack&#46;us/img418/9416/grphall9os&#46;png[/img:26ai9a92]\n\n[img:26ai9a92]http&#58;//img418&#46;imageshack&#46;us/img418/5511/grphpie9qk&#46;png[/img:26ai9a92]\n\n[img:26ai9a92]http&#58;//img418&#46;imageshack&#46;us/img418/3348/grphbarra2aj&#46;png[/img:26ai9a92]\n\n\nSaludos','',0,'CA==','26ai9a92',1,0,'',492,0,0),(14925,3422,3,217,0,'200.159.120.34',1151521135,1,0,1,1,1,0,'','OLE &amp; Outlook (How to translate this Delphi code)','Does anybody can help me to translate this Delphi code that send mail using Outlook to FW/xHarbour?\n\n[code:1d6537nr]\nprocedure TForm1&#46;Button1Click&#40;Sender&#58; TObject&#41;;\n var\n   Outlook  &#58; OleVariant;\n   vMailItem&#58; variant;\nbegin\n try\n   Outlook &#58;= GetActiveOleObject&#40;\'Outlook&#46;Application\'&#41;;\n except\n   Outlook &#58;= CreateOleObject&#40;\'Outlook&#46;Application\'&#41;;\n end;\n vMailItem &#58;= Outlook&#46;CreateItem&#40;olMailItem&#41;;\n vMailItem&#46;Recipients&#46;Add&#40;\'fulando@mundo&#46;com&#46;br\'&#41;; // 1st recipient  \n vMailItem&#46;Recipients&#46;Add&#40;\'ciclano@mundo&#46;com&#46;br\'&#41;;  // 2dn recipient\n vMailItem&#46;Subject &#58;= \'teste de email\';            // subject \n vMailItem&#46;Body &#58;= \'Este é um teste\';              // mail body\n vMailItem&#46;Attachments&#46;Add&#40;\'C&#58;\\temp\\arq&#46;txt\'&#41;;      // Attached file\n vMailItem&#46;Send;\n VarClear&#40;Outlook&#41;;\nend;\n[/code:1d6537nr]','',0,'AIA=','1d6537nr',1,0,'',217,0,0),(14926,3411,6,36,0,'200.113.56.235',1151525434,1,0,1,1,1,0,'','','Gracias antonio\n\n   Perfecto..\n\nSaludos\nPatricio','',0,'AIA=','r7nont5u',1,0,'',36,0,0),(14927,3423,6,64,0,'200.217.82.215',1151526506,1,0,1,1,1,1,'','erro estranho continua... atualização maio','ola,\n\n    Depois que atualizei para a versão 2.7 de maio meus sistemas dão erro - aplicativo.exe encontrou um erro e precisa ser fechado.\n\n    O mais interessante é que este erro só ocorre com a versão paga do xHabour.\n\n     Já desistalei tudo e reinstalei mas nada muda.\n\n     O que pode estar ocorrendo?\n\nGracias.','',0,'AIA=','2blpjfx6',1,0,'',64,0,0),(14928,3422,3,303,0,'72.199.41.171',1151528704,1,0,1,1,1,0,'','','MAPI Mail Syntax:\n\nDEFINE MAIL [ &lt;oMail&gt; ];\n[ SUBJECT &lt;cSubject&gt; ];\n[ TEXT &lt;cText&gt; ];\n[ TYPE &lt;cType&gt; ];\n[ DATE &lt;dDate&gt; ];\n[ TIME &lt;cTime&gt; ];\n[ CONVERSATION &lt;cConversation&gt; ]:\n[ RECEIPT ];\n[ FROM USER ];\n[ FILES &lt;cFilename1&gt; ,&lt;cDescript1&gt;, &lt;cFilenameN&gt;, &lt;cDescriptN&gt; ] ];\n[ ORIGIN &lt;cOrigin&gt; [ &lt;cOriginAddress&gt; ] ];\n[ TO &lt;cTarget1&gt;, [ &lt;cTargetAddress1&gt; ] [ &lt;cTargetN&gt; [ &lt;cTargetAddressN&gt; ] ] ];\n\n\nIf the attachment file is html (has a .htm or .html extension) and you do not specify any TEXT (a message) then the file will appear in the message area.\n\nERRORS\nIf you specify a TO and the parameter is blank and you are using the FROM USER clause, the message compose box will not appear. Likewise if the filename is invalid or not found. It is best to use an error trap:\n\n   DEFINE MAIL...\n   ACTIVATE MAIL...\n\n   IF oMail:nRetCode!=0\n      MsgAlert(\"The message could not be sent due to an error.\"+CRLF+;\n      \"MAPI error code: \"+ltrim(str(oMail:nRetCode)),\"Alert\")\n   ENDIF','',0,'','16btyf9f',1,0,'',303,0,0),(14930,3419,20,6,0,'87.19.208.240',1151532792,1,0,1,1,1,1,'','Re: localizzazione italiana','Eccoti un esempio funzionante:\n\n[code:uac6t1ar]REQUEST HB_LANG_IT\n\n\nFUNCTION MAIN&#40;&#41;\n\n    HB_LANGSELECT&#40; &quot;IT&quot; &#41;\n\n    ? CMONTH&#40; DATE&#40;&#41; &#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:uac6t1ar]\n\nEMG','',0,'AIA=','uac6t1ar',1,0,'',6,0,0),(14931,3407,2,2,0,'87.218.146.73',1151533212,1,0,1,1,1,1,'','','Aumentad el valor hasta que funcionen todas, pero no lo aumenteis de más, ya que el valor que useis ahí se lo estais quitando a Clipper.','',0,'AIA=','10ex94ff',1,0,'',2,0,0),(14932,3422,3,343,0,'204.57.111.194',1151533288,1,0,1,1,1,0,'','','Hi James,\n\nThe only problem with using mapi is that the later versions of outlook  popup a security warning message if you want to send without user intervention.\n\nThis Microsoft \"Feature\" is really irritating if you want an automatic sending feature.\n\nI use Ole or pop3 for automatic sending.','',0,'AIA=','1ifxhzk6',1,0,'',343,0,0),(14933,3360,3,2,0,'87.218.146.73',1151533501,1,0,1,1,1,1,'','','William,\n\nGTGUI.lib está funcionando correctamente. Hoy hemos publicado nuevos builds, con las modificaciones más recientes del CVS y probados por nosotros. Mira en la sección \"whatsnew\", \"Harbour/xHarbour builds\".','',0,'AIA=','ohfhs2pa',1,0,'',2,0,0),(14935,3360,3,54,0,'201.98.183.91',1151535243,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2bq2q70d]William,\n\nGTGUI.lib está funcionando correctamente. Hoy hemos publicado nuevos builds, con las modificaciones más recientes del CVS y probados por nosotros. Mira en la sección \"whatsnew\", \"Harbour/xHarbour builds\".[/quote:2bq2q70d]\n\nGracias, saludos','',0,'gA==','2bq2q70d',1,0,'',54,0,0),(14936,3421,6,61,0,'201.217.165.227',1151537403,1,0,1,1,1,0,'','','Amigos:\n\nAlguien lo tiene compilado para Harbour\n\n\nSaludos y Gracias.\n\nRuben Fernandez','',0,'gA==','2ehzidux',1,0,'',61,0,0),(14938,3421,6,40,0,'200.77.122.22',1151540335,1,0,1,1,1,0,'','','Exelente !!!, y ya que estamos con esto de los activeX, OCX\n\nme encontre con este es un menu tipo office, la pregunta es\nsi se puede implementar también con xHarbour ?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xpstyle-menu.com\">http://www.xpstyle-menu.com</a><!-- m -->\n\nSaludos \nJoel Andujo','',0,'gA==','1r67wc22',1,0,'',40,0,0),(14940,3424,2,198,0,'201.138.103.213',1151546496,1,0,1,1,1,1,'','Migrando FW-FWH... y no logro generar el exe','Hola de nuevo!\n\nEn un mensaje anterior indique que tenía algunos problemas con la compilación, efectivamente como indico Rene tenia en el .MAK indicada una librería de mas FiveHC, ya la elimine, tambien note que tenía una versión del build de harbour vieja, así es que me dí a la tarea de bajar de nuevo el xharbour y ahora es el build 0.99.60(SimpLex) y de borland la versión 5.5.1. \n\nAhora ya no me genera los archivos .obj y me sigue enviando los siguientes errores:\n\nBORLAND\\BCC55\\bin\\ilink32.exe -Gn -aa -Tpe -s -I -x @MAKE0000.@@@\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|rddsys\nError: Unresolved external \'_HB_FUN_GETVERSION\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_ISWINNT\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_FREERESOURCES\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\nError: Unresolved external \'_HB_FUN_POSTQUITMESSAGE\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW\n\nEstoy usando el archivo .MAK que venía en FWH....\n\nutilice el BUILDX.BAT para crear los exes de los ejemplos y me manda el  error de que no encuentra DBFDBT.LIB....\n¿qué puedo hacer?','',0,'gA==','2sbijgxx',1,0,'',198,0,0),(14942,3426,3,65,0,'193.201.128.157',1151552935,1,0,1,1,1,0,'','Text on a brush','I print a text on a brush in a main window.\nBut when I open a client window in the main window\nit clears the text printed in the main window.\nHow can I get rid of this problem?\n\nMany Thanks\nBirol Betoncu','',0,'gA==','2a1iwpa7',1,0,'',65,0,0),(14943,3424,2,2,0,'87.218.146.73',1151558504,1,0,1,1,1,1,'','','Te falta enlazar estas librerías (modifica buildx.bat):\n\nFiveHC.lib\nhbsix.lib\ndbffpt.lib\n\nQuita DBFDBT.LIB\n\nEs muy recomendable que os actualiceis a la versión más reciente de FWH, desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos.','',0,'gA==','10uvj0uf',1,0,'',2,0,0),(14944,3426,3,2,0,'87.218.146.73',1151558694,1,0,1,1,1,1,'','','Birol,\n\nYou have to paint it from the ON PAINT clause of the window:\n\nACTIVATE WINDOW oWnd ;\nON PAINT ...','',0,'gA==','1f3iwomw',1,0,'',2,0,0),(14946,3423,6,2,0,'87.218.146.73',1151558865,1,0,1,1,1,1,'','','Syda,\n\nTe ocurre el mismo problema con cualquier PRG ?\n\nPuedes proporcionarnos un PRG de ejemplo en donde ocurra el problema ? gracias.','',0,'gA==','wqmxcv28',1,0,'',2,0,0),(14948,3417,3,49,0,'213.82.134.66',1151567173,1,0,1,1,1,1,'','','there is a problem in xharbour fw 2.7 with tsbutton 4.0/5.0\nIf you compile the sample of reservation bus you can see when you click the buttons  with number ..\n\nsend me the class if you see the reservation bus run ok \n\nregards','',0,'gA==','2rpljfy4',1,0,'',49,0,0),(14949,3354,1,170,0,'80.170.143.38',1151569165,1,0,1,1,1,1,'','','Antonio,\n\nHere is a part of Fivewin 2.5 PRINTER.PRG file,  the method New() :\n\n[code:27z6mohj]\nMETHOD New&#40; cDocument, lUser, lMeta, cModel, lModal &#41; CLASS TPrinter\n\n   local aOffset\n   local cPrinter\n\n   DEFAULT cDocument &#58;= &quot;FiveWin Report&quot; ,;\n           lUser     &#58;= &#46;f&#46;              ,;\n           lMeta     &#58;= &#46;f&#46;              ,;\n           lModal    &#58;= &#46;f&#46;\n\n   if lUser\n      &#58;&#58;hDC &#58;= GetPrintDC&#40; GetActiveWindow&#40;&#41; &#41;\n      if &#58;&#58;hDC != 0\n         cModel &#58;= &#58;&#58;GetModel&#40;&#41;+&quot;,&quot;+&#58;&#58;GetDriver&#40;&#41;+&quot;,&quot;+&#58;&#58;GetPort&#40;&#41;\n      endif\n   elseif cModel == NIL\n      &#58;&#58;hDC  &#58;= GetPrintDefault&#40; GetActiveWindow&#40;&#41; &#41;\n      if &#58;&#58;hDC != 0\n         cModel &#58;= &#58;&#58;GetModel&#40;&#41;+&quot;,&quot;+&#58;&#58;GetDriver&#40;&#41;+&quot;,&quot;+&#58;&#58;GetPort&#40;&#41;\n      endif\n   else\n      cPrinter &#58;= GetProfString&#40; &quot;windows&quot;, &quot;device&quot; , &quot;&quot; &#41;\n      WriteProfString&#40; &quot;windows&quot;, &quot;device&quot;, cModel &#41;\n      SysRefresh&#40;&#41;\n      PrinterInit&#40;&#41;\n      &#58;&#58;hDC &#58;= GetPrintDefault&#40; GetActiveWindow&#40;&#41; &#41;\n      SysRefresh&#40;&#41;\n      WriteProfString&#40; &quot;windows&quot;, &quot;device&quot;, cPrinter  &#41;\n   endif\n\n   if &#58;&#58;hDC != 0\n      aOffset    &#58;= PrnOffset&#40; &#58;&#58;hDC &#41;\n      &#58;&#58;nXOffset &#58;= aOffset&#91;1&#93;\n      &#58;&#58;nYOffset &#58;= aOffset&#91;2&#93;\n      &#58;&#58;nOrient  &#58;= &#58;&#58;GetOrientation&#40;&#41;\n   elseif ComDlgXErr&#40;&#41; != 0\n      MsgStop&#40; &quot;There are no printers installed!&quot;  + CRLF + ;\n               &quot;Please exit this application and install a printer&#46;&quot; &#41;\n      &#58;&#58;nXOffset &#58;= 0\n      &#58;&#58;nYOffset &#58;= 0\n   endif\n\n   &#58;&#58;cDocument  &#58;= cDocument\n   &#58;&#58;cModel     &#58;= cModel\n   &#58;&#58;nPage      &#58;= 0\n   &#58;&#58;nPad       &#58;= 0\n   &#58;&#58;lMeta      &#58;= lMeta\n   &#58;&#58;lStarted   &#58;= &#46;F&#46;\n   &#58;&#58;lModified  &#58;= &#46;F&#46;\n   &#58;&#58;lPrvModal  &#58;= lModal\n\n   if !lMeta\n      &#58;&#58;hDcOut &#58;= &#58;&#58;hDC\n   else\n      &#58;&#58;aMeta  &#58;= &#123;&#125;\n      &#58;&#58;cDir   &#58;= GetEnv&#40;&quot;TEMP&quot;&#41;\n\n      if empty&#40;&#58;&#58;cDir&#41;\n         &#58;&#58;cDir &#58;= GetEnv&#40;&quot;TMP&quot;&#41;\n      endif\n\n      if Right&#40; &#58;&#58;cDir, 1 &#41; == &quot;\\&quot;\n         &#58;&#58;cDir = SubStr&#40; &#58;&#58;cDir, 1, Len&#40; &#58;&#58;cDir &#41; - 1 &#41;\n      endif\n\n      if !empty&#40;&#58;&#58;cDir&#41;\n         if !lIsDir&#40;&#58;&#58;cDir&#41;\n            &#58;&#58;cDir &#58;= GetWinDir&#40;&#41;\n         endif\n      else\n         &#58;&#58;cDir &#58;= GetWinDir&#40;&#41;\n      endif\n\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\n\n[/code:27z6mohj]\n\n\nI never use GetPrintDC().\nBelow is my method New() for class TPrinter() :\n\n\n[code:27z6mohj]\nMETHOD New&#40; cDocument, lUser, lMeta, cModel, lModal&#41; CLASS TPrinter\n\n   local aOffset\n   local cPrinter\n   LOCAL cPortDrv\n\n   DEFAULT cDocument &#58;= &quot;Impression ICIM&quot; ,;\n           lUser &#58;= &#46;f&#46; , ;\n           lMeta &#58;= &#46;f&#46; , ;\n           lModal &#58;= &#46;f&#46;\n\n\n   IF cModel = NIL\n     cModel &#58;= WinDefPrn&#40;&#41;\n   ENDIF\n   cPortDrv &#58;= WinGetPrnP&#40;cModel&#41;\n   cModel &#58;= cModel + &quot;,&quot; + cPortDrv\n   SysRefresh&#40;&#41;\n\n\n   &#58;&#58;hDC &#58;= CreateDC&#40; TOKEN&#40;cModel,&quot;,&quot;,2&#41;, ;\n   TOKEN&#40;cModel,&quot;,&quot;,1&#41;, TOKEN&#40;cModel,&quot;,&quot;,3&#41;&#41;\n   SysRefresh&#40;&#41;\n\n   if &#58;&#58;hDC != 0\n      aOffset    &#58;= PrnOffset&#40; &#58;&#58;hDC &#41;\n      &#58;&#58;nXOffset &#58;= aOffset&#91;1&#93;\n      &#58;&#58;nYOffset &#58;= aOffset&#91;2&#93;\n      &#58;&#58;nOrient  &#58;= &#58;&#58;GetOrientation&#40;&#41;\n   elseif ComDlgXErr&#40;&#41; != 0\n      MsgStop&#40; OemToAnsi&#40;&quot;Aucune imprimante n\'est installée ou accessible actuellement&#46;&#46;&#46;&quot;&#41; &#41;\n      &#58;&#58;nXOffset &#58;= 0\n      &#58;&#58;nYOffset &#58;= 0\n   endif\n\n   &#58;&#58;cDocument  &#58;= cDocument\n   &#58;&#58;cModel     &#58;= cModel\n   &#58;&#58;nPage      &#58;= 0\n   &#58;&#58;nPad       &#58;= 0\n   &#58;&#58;lMeta      &#58;= lMeta\n   &#58;&#58;lStarted   &#58;= &#46;F&#46;\n   &#58;&#58;lModified  &#58;= &#46;F&#46;\n   &#58;&#58;lPrvModal  &#58;= lModal\n\n   if !lMeta\n      &#58;&#58;hDcOut &#58;= &#58;&#58;hDC\n   else\n      &#58;&#58;aMeta  &#58;= &#123;&#125;\n      &#58;&#58;cDir   &#58;= GetEnv&#40;&quot;TEMP&quot;&#41;\n\n      if empty&#40;&#58;&#58;cDir&#41;\n         &#58;&#58;cDir &#58;= GetEnv&#40;&quot;TMP&quot;&#41;\n      endif\n\n      if Right&#40; &#58;&#58;cDir, 1 &#41; == &quot;\\&quot;\n         &#58;&#58;cDir = LEFT&#40; &#58;&#58;cDir, LEN&#40; &#58;&#58;cDir &#41; - 1 &#41;\n      endif\n\n      if !empty&#40;&#58;&#58;cDir&#41;\n         if !lIsDir&#40;&#58;&#58;cDir&#41;\n            &#58;&#58;cDir &#58;= GetWinDir&#40;&#41;\n         endif\n      else\n         &#58;&#58;cDir &#58;= GetWinDir&#40;&#41;\n      endif\n\n   endif\n\nreturn Self\n\n\n[/code:27z6mohj]\n\n\nSee my last contributions to find source code of WinDefPrn()\nand WinGetPrnP().\n\nI suggest to delete all calls of theses functions :\n\nPrinterInit(), GetModel(), GetDriver(), GetPort(), GetPrintDefault()\nAll functions who call theses functions need to be rewritted,\nor rewritte theses functions.\n\nDelete also all read-write in .ini files to manage printers.','',0,'AIA=','27z6mohj',1,0,'',170,0,0),(14950,3427,16,2,0,'87.218.146.73',1151571200,1,0,1,1,1,1,'','FTDN new June 2006 build / nuevo build de Junio 2006','June 2006 build\n ===========\n \n * Enhancement: Class TButtonBmp Method Destroy(). Now it properly frees the bitmap handle.\n\n * Enhancement: Class TButton Method Click() checks bWhen result.\n  \n * New: FWPPC: New function SHRecognizeGesture() added. Please review samples\\TapHold.prg for a working sample.\n   \n * Enhancement: Minor change in makes\\fwcemake.zip\n \n * Fix: SetCommState() is able to change the baud rate. Thanks to Enrico.\n \n * Enhancement: function AnsiToWide() is properly managing embeded zeroes.\n \n * New: xbase command for TREEVIEW already implemented:\n \n   #xcommand @ &lt;nRow&gt;, &lt;nCol&gt; TREEVIEW [&lt;oTV&gt;] ;                                           \n             [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ;\n             [ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n             [ &lt;design: DESIGN&gt; ] ;\n             [ &lt;pixel: PIXEL&gt; ] ;\n             [ COLOR &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ;\n             [ MESSAGE &lt;cMsg&gt; ] ;\n       =&gt; ;\n          [ &lt;oTV&gt; := ] TTreeView():New( &lt;nRow&gt;, &lt;nCol&gt;, &lt;oWnd&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;,;\n                                        [&lt;.pixel.&gt;], [&lt;.design.&gt;], &lt;nWidth&gt;, &lt;nHeight&gt;,;\n                                        [&lt;cMsg&gt;] )   \n\n  Also, treeviews from source code, when placed at dialogs, are properly working. New method cToChar(). Please review samples\\TreeDlg.prg\n  \n * Fix: Minor fix on Class TDbCombo. Thanks to James!\n\n * New: Class TTVItem (TreeView Item) Method Set( cPrompt, nImage ). Thanks to Renomas!\n \n * New: FWPPC, VALID clause is already available for the windows! Please review samples\\Tutor02.prg. \n  \n * Enhancement: FW++ Class TClipGet and Class TGet minor fixes.\n \n * Enhancement: Class TMGet minor fix on Method SetPos().\n   \n * Enhancement: Class TListBox minor fix on Methods Select( nItem ) and IsMultipleSel().\n    \n * Fix: Class TGet Method Paint(), fixed text misalignment.\n \n * New: Class TToolBar Method DelButton( nButton ) allows to dinamically delete buttons from a toolbar.\n \n * New: IMPORTANT: Due to recent changes in Harbour and xHarbour, GTGUI.LIB must be linked instead of GTWIN.LIB.\n\nFWH is fully compatible with most recent Harbour and xHarbour CVS builds.','',0,'','1opvlqe6',1,0,'',2,0,0),(14953,3430,3,67,0,'62.235.24.145',1151571852,1,0,1,1,1,0,'','Trying to compile samples\\alaska.prg','Got as errors :\n\nxRC: alaska.rc(16): error: Invalid syntax.\nxRC: alaska.rc(16): error: Invalid syntax.\nxRC: alaska.rc(16): error: Invalid syntax.\nxRC: alaska.rc(16): error: Invalid syntax.\nxRC: alaska.rc(16): error: Invalid syntax.\nxRC: alaska.rc(16): error: Invalid syntax.\nxRC: alaska.rc(16): error: Invalid syntax.\nxRC: alaska.rc(16): error: Invalid syntax.\n\nLine 16 :\nLISTBOX 115, 6, 5, 162, 67, LBS_STANDARD\n\nWarnings :\n\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\winuser.h(1008): warning: Macro redefinition of \'WS_OVERLAPPEDWINDOW\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\winuser.h(1009): warning: Macro redefinition of \'WS_POPUPWINDOW\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\winuser.h(1010): warning: Macro redefinition of \'WS_CHILDWINDOW\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\winuser.h(1032): warning: Macro redefinition of \'WS_EX_OVERLAPPEDWINDOW\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\winuser.h(1033): warning: Macro redefinition of \'WS_EX_PALETTEWINDOW\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\winuser.h(2250): warning: Macro redefinition of \'DS_SHELLFONT\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\winuser.h(2346): warning: Macro redefinition of \'LBS_STANDARD\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\commctrl.h(269): warning: Macro redefinition of \'CCS_LEFT\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\commctrl.h(270): warning: Macro redefinition of \'CCS_RIGHT\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\commctrl.h(271): warning: Macro redefinition of \'CCS_NOMOVEX\'.\nxRC: B:\\MCLS\\Xhb\\c_include\\win\\commctrl.h(791): warning: Macro redefinition of \'TBSTYLE_CHECKGROUP\'.\n\nDeleting line 16 doesn\'t solve the problem , the exe file doesn\'t start\n\nWhat is the problem ? \n\nFrank','',0,'','2mrre2ig',1,0,'',67,0,0),(14954,3430,3,2,0,'87.218.146.73',1151573134,1,0,1,1,1,1,'','','Frank,\n\nIt looks as a xRC problem with that line. You may contact xRC developers.','',0,'','1smlzi8h',1,0,'',2,0,0),(14955,3431,6,77,0,'217.126.90.142',1151579734,1,0,1,1,1,0,'','CORRUPCIÓN EN MEMO FILE','Alguien sabe como puedo solucionar una corrupción en un fichero memo.\n\ndbfcdx\n\nsaludos','',0,'','1jnrnkt5',1,0,'',77,0,0),(14956,3422,3,217,0,'200.159.120.34',1151579975,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:bgit9i4m]MAPI Mail Syntax:\n\nDEFINE MAIL [ &lt;oMail&gt; ];\n(...)\n[/quote:bgit9i4m]\n\nThanks a lot, James\n\nRegards\nMaurilio','',0,'gA==','bgit9i4m',1,0,'',217,0,0),(14957,3422,3,217,0,'200.159.120.34',1151580047,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:1t1km1im]\nI use Ole or pop3 for automatic sending.[/quote:1t1km1im]\n\nGale, can you post a short OLE sample?\n\nThanks!\nMaurilio','',0,'gA==','1t1km1im',1,0,'',217,0,0),(14958,3432,3,449,0,'212.64.224.250',1151580138,1,0,1,1,1,1,'','Shortcut  (*.lnk) from FWH','Hi,\n\nDo you know as creating a shortcut  (*.lnk) from FWH?\n\nThanks.\n\n\nRegards.','',0,'gA==','ynj1gr0h',1,0,'',449,0,0),(14959,3421,6,439,0,'190.0.132.42',1151580802,1,0,1,1,1,1,'','Control ActiveX','Gracias por tu respuesta, no hay ofenza, seguramente yo como muchos estaremos esperando con la paciencia necesaria novedades de Uds.\n\nGracias por sus ricos aportes a Fivewin <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1gx39ilt',1,0,'',439,0,0),(14960,3433,3,217,0,'200.159.120.34',1151581032,1,0,1,1,1,0,'','How can I use box style characters from fonts? (Like DOS)','Is possible use characters to draw box (an easy way) like old times of DOS?\nI refer to Alt + 201, Alt + 202... Alt + 177, etc\nIf I press Alt + 201 (for example) in MS Word or OpenOffice Write the box character is displayed. But if I try use it in my application other character is displayed (in gets, reports, etc.).\nI used a font editor to view a .TTF file and the box characters are into it.\nHow can I \"access\" these characters?\n\nRegards\nMaurilio','',0,'gA==','2jnmpufv',1,0,'',217,0,0),(14962,3406,6,147,0,'200.45.54.133',1151582659,1,0,1,0,1,1,'','','Maestro:\nMuchisimas gracias; clarisima y muy util explicación','',0,'gA==','1zw9f53u',1,0,'',147,0,0),(14963,3411,6,36,0,'200.113.56.235',1151586877,1,0,1,1,1,0,'','','De nuevo por aqui\n\nComo puedo ocultar y mostrar un icono del toolbar, buscando en internet vi estos ejemplos pero no funcionan\n\nalguien me puede orientar\n\n[code:uxl49t6a]\n#define TB_HIDEBUTTON          1028\n\nMETHOD HideButton&#40; nButton &#41; INLINE SendMessage&#40;&#58;&#58;hwnd,   TB_HIDEBUTTON, nButton-1, 1 &#41;\n\nMETHOD ShowButton&#40; nButton &#41; INLINE SendMessage&#40;&#58;&#58;hwnd, TB_HIDEBUTTON, nButton-1, 0 &#41;\n[/code:uxl49t6a]\n\nSaludos\nPatricio','',0,'AIA=','uxl49t6a',1,0,'',36,0,0),(14964,3418,6,132,0,'83.213.45.32',1151589504,1,0,1,1,1,1,'','','Gracias por responder\n\noPrn:hDC nunca devuelve 0, siempre devuelve un numero entero de 9 digitos, cada vez diferente.\n\nTe muestro el codigo:\n\n  PRINTER oPrn NAME \"Listado de albaranes\" PREVIEW MODAL\n  oPrn:SetUp() // Elegir impresora\n  ?oPrn:hDC // 438374889','',0,'AIA=','11hu4qcr',1,0,'',132,0,0),(14965,3422,3,213,0,'24.175.56.72',1151589712,1,0,1,1,1,0,'','','Gale,\n\nYou know you can turn that off in Outlook so you don\'t get the message.\n\nRegards,\nRandal Ferguson','',0,'AIA=','2435hz6o',1,0,'',213,0,0),(14966,3372,6,203,0,'200.107.17.147',1151589840,1,0,1,1,1,1,'','','Amigos disculpen, tengo Crystal 7 y Fwh 2.6 los puedo poner a trabajar juntos y que dlls me harían falta , y a lo mejos un ejemplo ?\n\n\nGracias.\n\n\nSaludos\n\nOscar','',0,'AIA=','3teb2teb',1,0,'',203,0,0),(14967,3422,3,343,0,'204.57.111.194',1151590092,1,0,1,1,1,0,'','','Randal,\n\nI have looked into the problem but could not find a simple solution. Microsoft has something called extended mapi that does not have that security warning but I have not dug into it yet.\n\nDo you have a solution for Outlook 2003?','',0,'AIA=','m5d698az',1,0,'',343,0,0),(14969,3422,3,343,0,'204.57.111.194',1151595425,1,0,1,1,1,0,'','','Maurilo,\n\nI am sending sample.\nI have not used Outlook with ole for some time so when I tested this sample I found that Outlook security warning prompt came up so this may or not work for you. I have a utility installed to overide the security warning when necessary but to install this utility on all my users machines is not practical.\n\nFUNCTION SendMail()\n   LOCAL oOutLook,;\n      oMailItem,;\n      oRecip,;\n      oAttach\n\n      /* creating the OLE object */\n     TRY\n        oOutLook := CreateObject( \"Outlook.Application\" )\n     CATCH\n        Alert( \"ERROR! Outlook not avialable.\" ) /// [\" + Ole2TxtError()+ \"]\" )\n        RETURN\n     END\n\n\n    oMailItem := oOutLook:CreateItem( 0 )\n\n    //Recipients\n    oRecip := oMailItem:Recipients()\n    oRecip:Add( \"gale.ford@wwrowland.com\" )\n\n    // Subject and body\n    oMailItem:Subject := \"Ole Email Message\"\n    oMailItem:Body  := \"This is the message body\"\n\n    // Attachments\n    oAttach := oMailItem:Attachments()\n    //oAttach:Add( \"g:\\dispatch\\who.bat\" )\n    oAttach:Add( \"c:\\config.sys\" )\n\n    oMailItem:Send()\n\n    /* Destroy all the created OLE objects */\n    oRecip := nil\n    oAttach := nil\n    oMailItem := nil\n    oOutLook := nil\n\nRETURN NIL','',0,'','1ujckc6d',1,0,'',343,0,0),(14970,3417,3,343,0,'204.57.111.194',1151595721,1,0,1,1,1,0,'','','I have asked about the problem with animation but nobody has an answer yet. I think it has something to do with the manipulation of the multiple image bitmaps. Everything else seems to be working ok.','',0,'','ioz7n1lk',1,0,'',343,0,0),(14971,3433,3,190,0,'202.65.134.45',1151596122,1,0,1,1,1,0,'','','Hi Maurilio\n\nI was having the same requirement earlier.  I give my previews and \nprintouts to my users purely in DOS.  I use TDOSPRN for printing as well\nas preview of the outputs.\n\nMy application in ca-clipper was having some outputs with boxes and\nI wanted my users of the same application in windows  to have a similary \nfeel and look of my dos application outputs.\n\nI have taken the help of a FONTEDITOR and copied COURIER font to some\nname and edited the characters exactly as  dos based box characters of \nthose ascii values which are equivalent to their dos ascii values.\n\nI referred the same ascii values to draw the boxes in my windows based \napplication and I could get the required output which is attached here in \nthe link.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029f2f5427/calendar.jpg.html\">http://hyperupload.com/download/029f2f5 ... r.jpg.html</a><!-- m --> \n\n- Ramesh Babu P','',0,'','3sen5esh',1,0,'',190,0,0),(14972,3434,3,620,0,'209.189.229.150',1151597642,1,0,1,1,1,0,'','Controls in Listbox','Is it possible to use controls within listboxes?  specifically I would like to use a checkbox for logical fields.  I saw a Q&amp;A on TWBrowse + Checkboxes, but alas I don\'t read Espanol.\nGreg','',0,'','1paxmo5t',1,0,'',620,0,0),(14973,977,7,661,0,'201.123.188.244',1151598438,1,0,1,1,1,0,'','','Hola a todos,  soy nuevo por aqui, primero que nada felicitaciones por este estupendo foro!!. Bueno mi asunto es el siguiente: estoy tratando de implementar mi primer aplicacion en PPC y casualmente es una MC3090BT. Ya he probado algunos ejemplos de FWPPC y si corren sin problema en la maquinita esta pero el problema viene al tratar de encender el lector de codigos de barras. \n\nEstoy tratando de compilar el codigo del wraper de [b:yectapx2]ramirezosvaldo[/b:yectapx2] pero me dice que no existe el archivo \"scancapi.h\" y no se de donde sacarlo, si alguno de ustedes me pudiera orientar se los agradeceria enormemente\n\n\nSaludos.\n\nAlex.','',0,'QA==','yectapx2',1,0,'',661,0,0),(14974,3422,3,303,0,'72.199.41.171',1151599479,1,0,1,1,1,0,'','','Gale,\n\nAs Randal says, I think you can turn off the warning. I don\'t have a copy of Outlook here, but in Outlook Express you go to Tools-Options, select the Security tab, and there is a checkbox labled \"Warn me if other applications try to send mail as me.\" Just uncheck it.\n\nJames','',0,'QA==','3fa61ja4',1,0,'',303,0,0),(14975,3422,3,343,0,'204.57.111.194',1151600131,1,0,1,1,1,0,'','','James,\n\nOutlook has a Security tab but there is no setting related to that warning.\n\nI have looked into this and it is not that simple.\nI recommend tsmtp() to send email quietly. Tmail() works great if you use \"from user\" option but for mass mailing or unattended operation I cannot recommend it.','',0,'QA==','9tzh41g1',1,0,'',343,0,0),(14976,3435,6,632,0,'201.155.170.251',1151600936,1,0,1,1,1,0,'','Conexion ADO para base de datos Dbase','Hola!!!!\n\nTengo un problema con las cadenas de conexion me interesa aser una consulta SELECT * from tabla a una base de datos para ahorrarme algo de codigo, pero no logro estableser como seria mi cadena de conexion, si alguien pudiera aportar algo de ayuda se lo agradesere. trate de poner una cadena de tipo ASP pero no me funciono  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n\noConexionAdo:Open(\"DRIVER={Microsoft dBase Driver};SourceType=DBF;SourceDb=c:\\sig_fw\\documen.dbf\")','',0,'QA==','3g7l1pkf',1,0,'',632,0,0),(14977,977,7,150,0,'62.15.122.238',1151601277,1,0,1,1,1,1,'','','Lo puedes bajar de la web de Symbol, es gratuito','',0,'QA==','1t6ohul5',1,0,'',150,0,0),(14978,3422,3,303,0,'72.199.41.171',1151601343,1,0,1,1,1,0,'','','Gale,\n\n&gt;but for mass mailing or unattended operation I cannot recommend it.\n\nI agree with you on that. I would use MAPI only for occasional emails when the user may want or need to enter the address and/or when they want to retain a copy of the message in their MAPI client app.\n\nFor mass emailing SMTP is the only feasible solution.\n\nMicrosoft may have eliminated the ability to turn off the warning in later versions of Outlook since it really is a security risk to have it turned off.\n\nJames','',0,'QA==','393kek3j',1,0,'',303,0,0),(14979,3434,3,303,0,'72.199.41.171',1151601557,1,0,1,1,1,0,'','','Greg,\n\nYou have to use a trick to make it appear like it is a control. Below is a copy of my notes on this.\n\nJames\n\n----------------------------\nHere is how to do a checkbox in a listbox:\n\nYou need to use two bimaps for the checkbox, one checked and one unchecked. Load the bitmaps:\n\n   hChecked:=loadbitmap( getresources(),\"checked\")\n   hUnchecked:= loadbitmap( getrources(),\"unchecked\")\n\n\nDefine the bitmaps conditionally in the listbox definition:\n\n  @0,0 listbox oLbx fields date, description, ;\n          if(empty(::oTask:completed),hChecked,hUnchecked)\n          \nThen you have to define an action when the column is clicked on:\n\n  oLbx:blClicked := {| nRow, nCol| ( if(oLbx:nAtCol(nCol)=3,; \n     toggleCheck(),),oLbx:drawSelect()) }\n  \nThe above line checks for column 3. If that is the column, then the function toggleCheck() is called. ToggleCheck() toggles the variable and saves the record. Finally, you redraw the line using oLbx:drawSelect().\n\n[Note: You may need to pass nRow and check to make sure it is greater than 15 to avoid triggering the checkbox when the user clicks on the header. See file:///c:\\apps\\todo\\task.prg, method click() for an example.]','',0,'','3cph92uy',1,0,'',303,0,0),(14980,3436,6,632,0,'201.155.170.251',1151601709,1,0,1,1,1,0,'','Mandar reporte de crystal directo a la impresora sin previo','hola tengo un reporte de crystal pero no me interesa visualizar el previo en pantalla, solo quiero mandarlo directo a impresora...\n\nsi alguien tuviera algun ejemplo de ese pequeño detalle seria de gran ayuda para mi...','',0,'','3ozwe7vm',1,0,'',632,0,0),(14981,3431,6,2,0,'87.218.146.73',1151601792,1,0,1,1,1,1,'','','Que versión/build de Harbour/xHarbour usas ?','',0,'','2lvyswls',1,0,'',2,0,0),(14982,3432,3,266,0,'60.50.55.152',1151603649,1,0,1,1,1,1,'','','sample code in Visual Foxpro, require WSH or at least XP,  someone help to translete plz :-\n\nCreateLink( \'DeskTop\', \"stock\", \"c:\\stock\\main.exe\", \"CTRL+SHIFT+C\", \"main.exe,0\", \"c:\\stock\" )\n\nFUNCTION CreateLink(dest,sName,sPath,sHotKey,sIcon ,sWorkingDirectory) \n\n   WshShell = CreateObject(\"WScript.Shell\") \n   DO Case   \n       Case dest=\'DeskTop\' \n            sLinkPath = WshShell.SpecialFolders(\"Desktop\") \n       Case dest=\'StartMenu\' \n            sLinkPath = WshShell.SpecialFolders(\"StartMenu\") \n       Case dest=\'StartUp\' \n            sLinkPath = WshShell.SpecialFolders(\"StartUp\") \n       Case dest=\'Programs\' \n            sLinkPath = WshShell.SpecialFolders(\"Programs\") \n   Endcase\n\n \n   sLinkPath = sLinkPath + \"\\\" \n   oShellLink = WshShell.CreateShortCut(sLinkPath + \"\\\" + sName + \".lnk\") \n*   oShellLink.WindowStyle = iWinStyle \n   oShellLink.HotKey = sHotKey \n   oShellLink.TargetPath = sPath \n   oShellLink.IconLocation = sIcon \n   oShellLink.Description = sName \n   oShellLink.WorkingDirectory = sWorkingDirectory \n   oShellLink.Save \n*   oShellLink=nil\n *  WshShell =nil\n\nRETURN .t.','',0,'','u8jubtga',1,0,'',266,0,0),(14983,3396,2,501,0,'200.32.103.120',1151603796,1,0,1,1,1,0,'','','Gracias manuel por tu respuesta, lo probé y aparece el mismo error. Que será che. Voy a desinstalar el office y lo instalo de nuevo por las dudas.','',0,'','1m1ozlf2',1,0,'',501,0,0),(14984,3431,6,77,0,'217.126.90.142',1151603978,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3q3c50vv]Que versión/build de Harbour/xHarbour usas ?[/quote:3q3c50vv]\n\nHola antonio uso fw25, pero el problema no es del compilador, necesito saber si conoceis de algún programa que me regenere los indices del fpt.\n\ngracias.','',0,'gA==','3q3c50vv',1,0,'',77,0,0),(14985,3422,3,266,0,'60.50.55.152',1151604232,1,0,1,1,1,1,'','','Outlook Redemption works around limitations imposed by the Outlook Security Patch :-\n\n<!-- m --><a class=\"postlink\" href=\"http://www.dimastr.com/redemption/\">http://www.dimastr.com/redemption/</a><!-- m -->','',0,'gA==','2wvlc9v7',1,0,'',266,0,0),(14986,3437,3,372,0,'83.118.100.14',1151606339,1,0,1,1,1,0,'','Adressing Dymo Labelwriter 400','Hi,\n\nI want to be able to print labels on a Dymo Labelwriter 400, and have asked the supplier for some info. They\'ve sent me a SDK of 5MB.\n\nBefore i start digging into this, i was wondering if anyone already may have dealt with this printer before and has some code available?\n\nThanks in advance!\n\nJohn.\n(I\'m using FWH 2.7, Borland 5.5.1 and xHarbour 0.99.60)','',0,'gA==','2n8yn1hw',1,0,'',372,0,0),(14987,3438,7,661,0,'201.123.188.244',1151608061,1,0,1,1,1,0,'','ADS y  FWPPC','hola a todos, estoy tratando de compilar mi aplicacion para un MC3090 con WINCE, mi aplicacion ya corre y ya puedo grabar en forma remota a mis DBFs, ahora quiero implementar el uso del servidor ADS pero al compilar me dice que no estan las lib ACE32.LIB y RDDADS.LIB.\n\nLa primera ya la libre ya que converti el ACE32.DLL a DEF y luego a LIB para PPC tal como lo vi en otro topico de este foro, pero el problema biene con la RDDADS.LIB ya que no esta en el formato para PPC pero no se como convertirla a COFF ya que el borland solo esta COFF2OMF y tampoco tengo algun DEF ni DLL del RDDADS\n\nque puedo hacer? por su ayuda gracias\n\nSaludos. Alex.','',0,'gA==','2egcvs87',1,0,'',661,0,0),(14988,3438,7,2,0,'87.218.146.73',1151608795,1,0,1,1,1,1,'','','Alex,\n\nLo primero es comprobar si existe una versión de las DLLs de ADS para Pocket PC. Que nosotros sepamos, no existe. Si no existe, no puedes usar ADS desde el Pocket PC.','',0,'gA==','3hsx0fk3',1,0,'',2,0,0),(14989,3439,6,662,0,'200.88.163.62',1151609260,1,0,1,1,1,0,'','Compilando con FWH 2.7 y Harbour','hola amigos\n\nestoy tratando de probar la version 2.7 de FWH con harbour y en la compilacion se presentan los siguientes errores:\n\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from RDD.LIB|dbf1\n\nnecesito que alguien me oriente sobre este error.\n\nGracias anticipadas\nAlexander Saldana','',0,'gA==','3uf9z1u0',1,0,'',662,0,0),(14990,3439,6,662,0,'200.88.163.62',1151610172,1,0,1,1,1,0,'','Re: Compilando con FWH 2.7 y Harbour','Amigos disculpenme, ya resolvi agregando 2 librerias que me faltaban enlazar hbsix.lib y codepage.lib\n\ngracias','',0,'gA==','10e59wpe',1,0,'',662,0,0),(14991,3435,6,138,0,'148.233.151.30',1151611286,1,0,1,1,1,1,'','','consulta en <!-- w --><a class=\"postlink\" href=\"http://www.connectionstrings.com\">www.connectionstrings.com</a><!-- w -->\n\nahí estan todas las cadenas de conexion','',0,'gA==','28jt2jsd',1,0,'',138,0,0),(14992,3440,6,198,0,'200.95.55.214',1151613114,1,0,1,1,1,1,'','De FW  a FWH','Hola a todos!\n\nEsta semana empece a tratar de migrar a FWH y me encontre con varios problemas que no logre resolver, por lo que en lugar de probar con una aplicación mía me regrese a generar los tutoriales que estan en los ejemplos de FWH, pero siguen los problemas,  estoy trabajando con BORLAND 5.5.1, FWH 2.6 y EL BUILD DE XhARBOUR 0.99.60 (SimpLex), y el error al querer generar el exe de TUTOR01 es es siguiente:\n\n	\"C:\\Borland\\BCC55\\Bin\\ILINK32.EXE\" -Tpe -Gn -aa -x -t @c:\\laurelh\\prueba1.mak.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\nInfo: Link time = 0.46 seconds\n\nEspero su ayuda, muchas gracias\n\nLaura Edith Hernández H.\n\n** error 2 ** deleting \"C:\\LAURELH\\TUTOR01.EXE\"\n\nEn un post anterior me indicaron quitar la lib de FIVEHC pero si la quito me genera mas errores.','',0,'gA==','2jrssqkb',1,0,'',198,0,0),(14994,3441,6,64,0,'200.216.48.111',1151616916,1,0,1,1,1,1,'','error: _hb_objHasMessage','ola,\n\n   depois de atualizar para FWH Junho/2006 ocorre este erro:\n\nxLINK: error: Unresolved external symbol \'_hb_objHasMessage\'.\nxLINK: fatal error: 1 unresolved external(s).\n\n   uso as libs TSBUTTON, BARLIB, VGET32 e ADS.\n\nPesquisei no .map e encontrei a seguinte referência:\n0001:0004ab00 _hb_objHasMessage 0044bb00 f \nxhbmt:classes.obj\n\nGrata.','',0,'gA==','20hb7d6d',1,0,'',64,0,0),(14995,3435,6,632,0,'201.155.170.251',1151616946,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:15143pz7]consulta en <!-- w --><a class=\"postlink\" href=\"http://www.connectionstrings.com\">www.connectionstrings.com</a><!-- w -->\n\nahí estan todas las cadenas de conexion[/quote:15143pz7]\n\nhola de nuevo me sigue marcando error en la cadena   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> .\n\nporfavor ayudaaaaaa!!!!!!!!\n\nesta es mi cadena:!!!!\n\noConexionAdo:Open(\"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\\\\sig_fw\\;\")\n\nEste es mi error\n\n Error occurred at: 29/06/2006, 16:30:30\n   Error description: Error adodb.command/-1  DISP_E_BADPARAMCOUNT: adodb.command:ACTIVECONNECTION\n   Args:\n     [   1] = O   Object\n     [   2] = C   ACTIVECONNECTION\n     [   3] = A   { ... }','',0,'gA==','15143pz7',1,0,'',632,0,0),(14998,3421,6,439,0,'190.0.137.50',1151618758,1,0,1,1,1,1,'','Gracias','Gracias maestro.\n\nLo voy a probar.\n\nSaludos','',0,'gA==','1qirzw71',1,0,'',439,0,0),(14999,3440,6,198,0,'201.154.115.63',1151619691,1,0,1,1,1,1,'','¡ya solucione lo de HB_STACK... ahora otros problemas','Hola a todos!\n\nYa logré solucionar lo del hb_stack, leyendo los post de otros colegas y encontre esto\n\n#pragma BEGINDUMP \n\n#include \"hbstack.h\" \n#include \"hbapiitm.h\" \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) \n{ \nreturn pDynSym-&gt;pSymbol; \n} \n\n#pragma ENDDUMP \n\nGracias!  voy a seguir probando...\n\nLaura Edith Hernández Hilario. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','5syrwpe7',1,0,'',198,0,0),(15000,3442,6,198,0,'201.154.115.63',1151620089,1,0,1,1,1,1,'','Sigo probando los ej de FWH','Hola de nuevo!\n\nYa logre generar varios exe de los ej. de FWH pero al ejecutarlos NO HACEN NADA DE NADA???  \n¿qué estoy haciendo mal? como puedo saber que sucede?...  Por otro lado al querer generar el exe del programa TESTZIP me envia los sig. errores:\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntestzip.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPFILE\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPTYPE\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPBLOCK\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPMSG\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\n\n\nUso BORLAND 5.5.1  FW 2.6 y el BUILD de xHarbourd 0.99.60(SimpLex) y estoy compilando con el BUILDX.BAT\n\nEspero su ayuda\n\nGracias mil!!!\nLaura Edith Hernández H.','',0,'gA==','3ljwur55',1,0,'',198,0,0),(15001,3441,6,2,0,'87.218.146.73',1151621897,1,0,1,1,1,1,'','','Syda,\n\nPlease add this function to your PRG:\n[code:3haqgi9u]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nBOOL hb_objHasMessage&#40; PHB_ITEM pObject, PHB_DYNS pMessage &#41;\n&#123;\n   return hb_objGetMethod&#40; pObject, pMessage-&gt;pSymbol &#41; != NULL;\n&#125;\n#pragma ENDDUMP\n[/code:3haqgi9u]','',0,'AIA=','3haqgi9u',1,0,'',2,0,0),(15002,3442,6,2,0,'87.218.146.73',1151622040,1,0,1,1,1,1,'','','Prueba a construir los ejemplos con samples\\buildh.bat ó buildx.bat si usas xharbour.\n\nsamples\\TestZip.prg no es compatible para 32 bits. Tienes que usar la librería hbzip de xharbour.','',0,'AIA=','3mfnnbeh',1,0,'',2,0,0),(15003,3442,6,198,0,'201.154.115.63',1151623169,1,0,1,1,1,1,'','Si estoy usando el BUILDX.BAT','hOLA aNTONIO!\n\nSi estoy usando el BUILDX.BAT......\n¿quiere decir que los ej. de FWH no sirven?\n\n¿por otro lado? que hay con los ej. que compile, se genero el exe y no hacen nada tales como TUTOR02, TUTOR03, WORD,  entre otros mas...\n\n¿Hay algun NG... se me hace un poco incomodo estar preguntando a cada detalle que encuentro, a cada error ....?\n\nSaludos, \n\nLaura Edith Hernández H.','',0,'AIA=','27w6w86a',1,0,'',198,0,0),(15004,3443,2,235,0,'200.56.67.42',1151625715,1,0,1,1,1,0,'','con fw se puede acceder al registro de windows???','ya sea leer o escribir en HKEY_CURRENT_USER????\n\nuso fw2.2 clipper 53b y blinker\n\nde antemano muchas gracias.','',0,'AIA=','35w7mt8e',1,0,'',235,0,0),(15005,3442,6,2,0,'87.218.146.73',1151627754,1,0,1,1,1,1,'','','Laura,\n\nLos ejemplos si sirven, lo que ocurre es que algunos son sólo para 16 bits (solo unos pocos). En concreto, testzip.prg es para 16 bits.\n\nPuedes preguntar todo lo que quieras <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> para eso estamos aqui, para ayudar en todo lo posible.','',0,'AIA=','1zz095mc',1,0,'',2,0,0),(15006,3417,3,56,0,'217.251.230.156',1151645653,1,0,1,1,1,1,'','','Perhaps someone can send my Bpaint.obj (built with the latest xHarbour version)?','',0,'AIA=','18m0ufus',1,0,'',56,0,0),(15007,3443,2,2,0,'87.218.146.73',1151650131,1,0,1,1,1,1,'','','Gerardo,\n\nSi, claro que se puede. Revisa los ejemplos samples\\TestReg.prg, TestReg2.prg y TestRg32.prg','',0,'AIA=','3l0kwuwk',1,0,'',2,0,0),(15008,3444,17,2,0,'87.218.146.73',1151650464,1,0,1,1,1,1,'','TSButton - Manuel Mercado','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02a7217134/Tsbutton50.zip.html\">http://hyperupload.com/download/02a7217 ... 0.zip.html</a><!-- m -->\n\nOn behalf of Manuel Mercado, the creator of TSButton, here you have a brand new version of TSButton: 5.0. Please read tsbutton\\doc\\whatsnew.v50 for details.','',0,'AIA=','2id6hn8b',1,0,'',2,0,0),(15009,3354,1,2,0,'87.218.146.73',1151651061,1,0,1,1,1,1,'','','Badara,\n\nThanks,','',0,'AIA=','rc1u2emd',1,0,'',2,0,0),(15010,3445,1,161,0,'81.164.212.146',1151653868,1,0,1,1,1,0,'','Icon 16x16 &amp; 32x32 question.','Hi,\n\nI have define an application icon that is shown on the left site of my program. Everything is working fine, but how can I define that if I make a shortcut to the desktop that the default icon is a different one? In my program I want to show a 16x16 one and in the shortcut to the desktop I want to show a 32x32. Now it\'s automaticly scaled, but is is not looking nice. If a use the 32x32 as program-icon, it\'s scaled to 16x16, and also not looking nice.\nIs there a way tha windows nows which one to take. I have a application from someone else and if make a shortcut to the desktop, it show the 32x32 one, and if i make a shortcut top the office-toolbar, the 16x16 one is displayed.\n\nThanks,\nMarc','',0,'AIA=','38hoq6zt',1,0,'',161,0,0),(15011,3446,19,123,0,'83.53.62.133',1151654560,1,0,1,1,1,0,'','Aprender a multiplicar ;-)','Hola,\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->\n\nSaludos\nJosé Luis Capel','',0,'AIA=','2h2zmftu',1,0,'',123,0,0),(15012,3432,3,449,0,'212.64.224.250',1151655793,1,0,1,1,1,1,'','','Hi Tnhoe,\n\nI have adapted the code to FWH.This code works fine, but I have not been able to still solve the method SpecialFolders. If somebody solves it, I would be appreciated him sent it. \n\n[code:k6zs5efm]#include \'fivewin&#46;ch\'\n\nFUNCTION Main&#40;&#41;\n\n  CreateLink&#40; \'DeskTop\', &quot;My Program&quot;, &quot;c&#58;\\temp\\Test&#46;exe&quot;, &quot;main&#46;exe,0&quot;, &quot;c&#58;\\temp&quot; &#41;\n\nRETU NIL\n\nFUNCTION CreateLink&#40; cDest, sName, sPath, sIcon, sWorkingDirectory &#41;\n\n    LOCAL oShell  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;WScript&#46;Shell&quot; &#41;\n    LOCAL oSF	  &#58;= oShell&#58;Get&#40; \'SpecialFolders\' &#41;\n    LOCAL o\n    LOCAL cTarget\n\n*    cTarget &#58;= oSF&#58;Get&#40; cDest &#41;\n*    o &#58;= oShell&#58;CreateShortCut&#40; cTarget &#41;\n\n    o &#58;= oShell&#58;CreateShortCut&#40; \'C&#58;\\temp\\Test&#46;lnk\' &#41;\n\n    o&#58;TargetPath       &#58;= sPath\n    o&#58;WorkingDirectory &#58;= sWorkingDirectory\n    o&#58;Description      &#58;= sName\n    o&#58;IconLocation     &#58;= sIcon\n    o&#58;Save&#40;&#41;\n\n    oShell&#58;End&#40;&#41;\n\nRETU NIL\n[/code:k6zs5efm]\n\nRegrads.','',0,'AIA=','k6zs5efm',1,0,'',449,0,0),(15013,3447,3,6,0,'82.59.51.227',1151661867,1,0,1,1,1,1,'','Nomodal dialogs bug with latest FWH','This is the sample that blows out with a GPF:\n\n[code:3upulpzz]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    ACTIVATE DIALOG oDlg;\n             CENTER NOMODAL\n\n    RETURN NIL[/code:3upulpzz]\n\nEMG','',0,'AIA=','3upulpzz',1,0,'',6,0,0),(15014,3448,1,258,0,'193.190.122.30',1151668663,1,0,1,1,1,0,'','mtmp:=Getenv(&quot;TEMP&quot;)','I use this function and do\'nt receive the same result.\n===\nUnder win2000 it return the temp directory of the user c:\\documents and setting .....\n\nUnder Win XP it return c:\\windows\\temp\n\nHow to return the temp directory of the user with WinXp .','',0,'AIA=','e8u92obt',1,0,'',258,0,0),(15015,3423,6,64,0,'200.97.69.197',1151675098,1,0,1,1,1,1,'','','Antonio,\n\n     Mesmo atualizando para a versão de junho/2006 o erro ocorre em qualquer prg, mesmo os da pasta samples como tutor01, corel, etc..\n\nDesinstalei tudo e reinstalei novamente e o erro persiste.','',0,'AIA=','3kushyl6',1,0,'',64,0,0),(15016,3432,3,266,0,'60.50.55.152',1151675594,1,0,1,1,1,1,'','','i compile it with error :\n\nunresolve external : _HB_FUN_TOLEAUTO\n\nwhat should i include ???','',0,'AIA=','2aqqpf5u',1,0,'',266,0,0),(15017,3449,2,184,0,'201.222.6.66',1151675728,1,0,1,1,1,0,'','error repentino con indices.','repentinamente una de mis aplicaciones no me permite abrir indices compuestos por mas de un campo ( Ej Estado+Cliente ), ambos campos son caracteres.\n\ncree un programa de prueba y no da ningun error abri el indice perfectamente, solo da el error abriendo el indice con esta aplicacion, coloque la apertura la tabla y el indice al comienzo de la aplicacion y el problema aun persiste.\n\n\nutilizo dbfcdx con clipper 5.3, FW 2.4.\n\nde antemano muchas gracias.','',0,'AIA=','225ud08o',1,0,'',184,0,0),(15018,3447,3,2,0,'87.218.146.73',1151676423,1,0,1,1,1,1,'','','Enrico,\n\nWith Harbour is working fine. \n\nIt looks as something specific with xHarbour. We are reviewing it.','',0,'AIA=','1y4047h2',1,0,'',2,0,0),(15019,3450,6,427,0,'200.21.165.114',1151676735,1,0,1,1,1,1,'','Imprimir en Bandejas diferentes','Necesito imprimir en una laser con varias Bandejas(3) HP-1320, pero la funcion oPrn:SetBin(nBin) no funciona , alguien ha hecho algo asi ?\n\nMil Gracias\n\nJose David Angulo','',0,'AIA=','rcxs6k1v',1,0,'',427,0,0),(15020,3410,3,620,0,'209.189.229.150',1151677455,1,0,1,1,1,0,'','','Have another issue with this...\nMy index is INDEX ON transform(field-&gt;logical, \'@!\')+field-&gt;custno\n\nIs it possible to set scope or use the Listbox...Select/For command using both Index keys?\n\nFor instance...Set Scope To \"T\"+oCustno ?   I can\'t seem to make anything work in this regard.\n\nThanks,\nGreg','',0,'AIA=','2ncew7dq',1,0,'',620,0,0),(15021,3406,6,41,0,'200.87.67.10',1151678103,1,0,1,1,1,0,'','','Mario,\n\notra alternativa que tienes es utilizar el ARC para encriptar las tablas y utilizar diccionarios de ads, es decir no acceder a las tablas sueltas, sino, a traves de diccionario, con ello se accede de manera transparente a las tablas encriptadas, ya que el usuario y password de acceso al diccionario te habilita el uso de todas las tablas encriptadas o no.\n\nsaludos\n\nMarcelo','',0,'AIA=','1zx1jv2w',1,0,'',41,0,0),(15022,282,20,664,0,'88.44.221.205',1151678317,1,0,1,1,1,0,'','','Eccomi. \nDa oggi anch\'io sono iscritto, anche se + o - sono nelle condizioni di Jumbo: poco tempo da dedicare allo sviluppo software perché preso anche dalla vendita/assistenza hardware e in genere da tutto quel che ruota attorno all\'IT (questo è quello che passa il convento, e di questi tempi è dura rinunciarci anche se + volte si è tentati di farlo).\nIl pur pochissimo tempo che ho avuto modo di trascorrere su FiveWin mi è bastato comunque per capire (finalmente!) che FWH è il mio giusto sbocco definitivo dopo molti tentativi andati male per passare ad altro abbandonando il mio buon vecchio ed amatissimo CA-Clipper.\nE per capire questo l\'aiuto iniziale di EMG di qualche tempo fa (e che senz\'altro chiederò ancora, sempre a lui piacendo) è stato per me preziosissimo.\n\nE quindi... eccomi qua ben volentieri!\nsaluti a tutti.\nMT','',0,'AIA=','gdfsm3s6',1,0,'',664,0,0),(15023,3448,1,6,0,'82.59.51.227',1151679307,1,0,1,1,1,1,'','Re: mtmp:=Getenv(&quot;TEMP&quot;)','It depends on local settings. In my XP I get c:\\documents and setting ... It is the default setting.\n\nEMG','',0,'AIA=','2uxb87mu',1,0,'',6,0,0),(15024,3447,3,6,0,'82.59.51.227',1151679362,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'AIA=','vj9ygptf',1,0,'',6,0,0),(15026,3410,3,266,0,'60.50.55.152',1151683387,1,0,1,1,1,1,'','','is oCustno an object or a string ? it must be a string value','',0,'AIA=','31bzu7qt',1,0,'',266,0,0),(15027,3427,16,2,0,'87.218.146.73',1151684478,1,0,1,1,1,1,'','','There was a bug in FWH.EXE. It is already fixed. Please download it again. Thanks,','',0,'AIA=','16k0qhuy',1,0,'',2,0,0),(15028,3447,3,2,0,'87.218.146.73',1151684582,1,0,1,1,1,1,'','','Enrico,\n\nIt is already fixed. Please download FWH.exe again, thanks.','',0,'AIA=','1pgj4jmu',1,0,'',2,0,0),(15029,3437,3,303,0,'72.199.41.171',1151685716,1,0,1,1,1,0,'','','You can\'t just use the regular print device driver?\n\nJames','',0,'AIA=','hktg3na8',1,0,'',303,0,0),(15030,3410,3,620,0,'209.189.229.150',1151687269,1,0,1,1,1,0,'','','yes oCustno is a string value...i should have represented that differently in my example.\n\nWhat i have tried is this:\n\ncCustno := \"string\"\n\nSET ORDER TO \"T\"+cCustno','',0,'AIA=','13x7upji',1,0,'',620,0,0),(15031,3434,3,148,0,'82.201.206.152',1151687647,1,0,1,1,1,0,'','','Can I use combobox in a listbox ? I need to edit a record in listboxes using dbcombobox to enter fixed values via each field in the record .','',0,'AIA=','2rcqjo1d',1,0,'',148,0,0),(15032,3426,3,65,0,'193.201.130.242',1151688659,1,0,1,1,1,0,'','','Thanks Antonio. I will try.','',0,'AIA=','1ntjjlpy',1,0,'',65,0,0),(15033,3434,3,620,0,'209.189.229.150',1151690946,1,0,1,1,1,0,'','','James...thanks for the code...i\'ll give it a shot in the next week or so.\nI can see need for combobox usage in a listbox as well....im thinking that is quite a bit more complicted?\nGreg','',0,'AIA=','dllv5842',1,0,'',620,0,0),(15034,3451,6,9,0,'85.59.71.100',1151691130,1,0,1,1,1,1,'','COMBO en FOLDER','Al poner un Combo en un folder, al extender el combo no se despliega correctamente, sino toda la persiana con todos los datos y comenzando en la parte superior de la pantalla. Respeta el ancho, pero no el alto.\nExtraño, porque en los dialogos me funciona bien.\n\n¿Alguna idea?','',0,'AIA=','22uyuh7r',1,0,'',9,0,0),(15035,3434,3,303,0,'72.199.41.171',1151691156,1,0,1,1,1,0,'','','I have never used a combobox in a browse. Antonio mentioned in generic terms how to do it recently in another message thread. There may be something in the samples directory.\n\nJames','',0,'AIA=','2arbl7sq',1,0,'',303,0,0),(15036,3437,3,34,0,'68.4.154.81',1151691674,1,0,1,1,1,1,'','Dymo Label','I use the Turbo 330 and run it from within a program.  Here is the code I use:\n\n\nFUNCTION ShipLabel\n   // Declare variables\n   LOCAL oDbf, nRow    := 0\n\n   PRINT oPrn NAME \"Report Printing\" TO \"DYMO LabelWriter 330 Turbo\" // FROM USER\n\n   // Define the fonts to be used\n   DEFINE FONT oFnorm NAME \"Courier New\" SIZE 0, - 12 OF oPrn\n   DEFINE FONT oFbold NAME \"Courier New\" SIZE 0, - 12 BOLD OF oPrn\n   nRsp := oPrn:nVertRes() / 20                 // Number of rows\n   nCsp := oPrn:nHorzRes() / 40                 // Number of columns\n   oPrn:SetLandscape( )\n   nRow := 2 * nRsp\n\n   PAGE\n   oPrn:Say( nRow, 10 * nCsp, \"MasterLink Software\", oFbold )\n   nRow += nRsp\n   oPrn:Say( nRow, 15 * nCsp, \"PO Box 740\", oFbold )\n   nRow += nRsp\n   oPrn:Say( nRow, 5 * nCsp, \"Trabuco Canyon, CA 92678-0740\", oFbold)\n   nRow += nRsp\n   oPrn:Say( nRow, 2 * nCsp, \"_________________________________\", oFnorm )\n   nRow += 2 * nRsp\n   oPrn:Say( nRow, 2 * nCsp, oCli:company, oFnorm )\n   nRow += nRsp\n   oPrn:Say( nRow, 2 * nCsp, oCli:street, oFnorm )\n   nRow += nRsp\n   oPrn:Say( nRow, 2 * nCsp, TRIM(oCli:city) + \", \" + oCli:state + \"  \" + oCli:zipcode, oFnorm )\n   ENDPAGE\n   ENDPRINT\n   oFnorm:end()\n   oFbold:end()\n\nRETURN NIL\n\nThe same, I suspect, would work with the 400.  I hope this helps.\n\nTim','',0,'AIA=','16bzrskv',1,0,'',34,0,0),(15037,3434,3,6,0,'82.59.51.227',1151693587,1,0,1,1,1,1,'','','Have a look at how TWBrowse:EditCol() and TWBrowse:lEditCol() methods are implemented.\n\nEMG','',0,'AIA=','1z4d6dvg',1,0,'',6,0,0),(15038,3447,3,6,0,'82.59.51.227',1151693653,1,0,1,1,1,1,'','','It seems ok now.\n\nThanks!\n\nEMG','',0,'AIA=','1hvlks2y',1,0,'',6,0,0),(15039,3435,6,123,0,'83.40.227.238',1151695775,1,0,1,1,1,0,'','','Olguiver,\n\nDeja al menos el código donde haces la conexion.  Concretamente, donde creas el objeto connection y/o donde creas el objecto recordset.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','dwlahqcs',1,0,'',123,0,0),(15040,3452,6,40,0,'200.77.120.115',1151696097,1,0,1,1,1,0,'','Clase para accesar a MS-SQL con ADO','Foro, buenas tardes\n\nAl grano, hace tiempo que he veindo trabajando con MS-SQL via ADO\nlo e logrado gracias a la clase del amigo José Luis Capel (Gracias Mil) con algunas modificacione que he ido implementando.\n\nAquí le dejo un pequeño test con los fuentes, espero le ayude\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0215929662/JAAM.zip.html\">http://hyperupload.com/download/0215929 ... M.zip.html</a><!-- m -->\n\nSaludos\nJoel A. andujo Medina\n\nPD xHarbour 0.99.50 y FW24','',0,'AIA=','2ws9edt3',1,0,'',40,0,0),(15041,3448,1,258,0,'80.200.97.137',1151696107,1,0,1,1,1,0,'','','With Fivewin and clipper , it return c:\\windows\\temp\n\nWith xharbour and fivewin, it return c:\\documents and setting ....\n\n\nStrong ! 16 and 32 bit !!','',0,'AIA=','fobwo496',1,0,'',258,0,0),(15042,3451,6,2,0,'87.218.146.73',1151698435,1,0,1,1,1,1,'','','Manuel,\n\nPuedes poner la imagen en <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y copiar aqui la dirección que te da ? gracias','',0,'AIA=','42aqn1ju',1,0,'',2,0,0),(15043,3427,16,2,0,'87.218.146.73',1151699509,1,0,1,1,1,1,'','','Construcción Junio 2006\n================= \n\n* Mejora: En la clase TButtonBmp, en el método Destroy(). Ahora libera  el handle de los bitmaps.\n\n* Mejora: En la clase TButton, en el mitodo Click(), comprueba el resultado de bWhen. \n\n* Nueva: En FWPPC, nueva funcisn SHRecognizeGesture() añadida. Por favor revisa samples\\TapHold.prg para un ejemplo funcionando. \n\n* Mejora: Pequeqos cambios en makes\\fwcemake.zip. \n\n* Corrección: En la función SetCommState() se permite el cambio de la velocidad en baudios. Gracias a Enrico.  \n\n* Mejora: La función AnsiToWide() maneja perfectamente los ceros empotrados. \n\n* Nueva: Se ha implementado el comando TREEVIEV en formato xbase: \n\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; TREEVIEW [&lt;oTV&gt;] ; \n[ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ] ; \n[ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ; \n[ &lt;design: DESIGN&gt; ] ; \n[ &lt;pixel: PIXEL&gt; ] ; \n[ COLOR &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ; \n[ MESSAGE &lt;cMsg&gt; ] ; \n=&gt; ; \n[ &lt;oTV&gt; := ] TTreeView():New( &lt;nRow&gt;, &lt;nCol&gt;, &lt;oWnd&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;,; \n[&lt;.pixel.&gt;], [&lt;.design.&gt;], &lt;nWidth&gt;, &lt;nHeight&gt;,; \n[&lt;cMsg&gt;] ) \n\nTambién se soportan los treeviews desde código fuente, cuando son colocados en dialogos. Nuevo método cToChar(). Por favor, revisad samples\\TreeDlg.prg\n\n* Corrección: Pequeños cambios en la clase TDbCombo. Gracias a James!\n\n* Nuevo: En la clase TTVItem (TreeView Item), método Set( cPrompt, nImage ). Gracias a Renomas !\n\n* Nuevo: En FWPPC, la clausula VALID esta disponible para la ventana. Por favor, revisad samples\\Tutor02.prg. \n\n* Mejora: Pequeñas correcciones en FW++, en las clases TClipGet y TGet. \n\n* Mejora: Pequeñas correcciones en el método SetPos() en la clase TMGet. \n\n* Mejora: Pequeñas correcciones en los métodos Select( nItem ) y IsMultipleSel() en la clase TListBox. \n\n* Corrección: En el mitodo Paint() de la clase TGet, corregido el desajuste del texto.\n\n* Nuevo: Nuevo método DelButton( nButton ) en la clase TToolBar, permite borrar dinamicamente botones de una barra de herramientas. \n\n* Nuevo: IMPORTANTE: Debido a recientes cambios en Harbour/xHarbour, GTGUI.LIB debe ser enlazada en lugar de GTWIN.LIB. \n\nFWH es totalmente compatible con las contrucciones mas recientes de los CVS de Harbour/xHarbour.','',0,'','2mgoy6l7',1,0,'',2,0,0),(15044,3449,2,2,0,'87.218.146.73',1151699578,1,0,1,1,1,1,'','','Simón,\n\nHas probado a reindexar ?','',0,'','30dhvc33',1,0,'',2,0,0),(15045,3453,6,662,0,'200.88.163.252',1151700574,1,0,1,1,1,0,'','Vertical Scroll desabilitada en wbrowse','hola amigos\n\nestoy compilando con fwh 2.7 y harbour.\n\nmi problema es el siguiente:\ntengo un browse que funcionaba bien con la version fwh 2.4. luego de actualizar el programa a fwh 2.7 me aparece el vertical scroll desabilitado.\n\ngracias anticipadas\n\nAlexander Saldana','',0,'','m5z6kvt6',1,0,'',662,0,0),(15047,3448,1,6,0,'82.59.51.227',1151703308,1,0,1,1,1,1,'','','Ops, I was not aware to be in the Fivewin for Clipper forum. Yes, I tried with FWH. With Clipper I get c:\\windows\\temp.\n\nEMG','',0,'','2n43tbpr',1,0,'',6,0,0),(15048,3451,6,9,0,'85.59.71.100',1151706750,1,0,1,1,1,1,'','','Antonio,\n\nEn la primera foto, aparece la pestaña normal del folder, antes de pulsar el primer combo:\n\n[url=http&#58;//img278&#46;imageshack&#46;us/my&#46;php?image=foto17wz&#46;jpg:kohkcefx][img:kohkcefx]http&#58;//img278&#46;imageshack&#46;us/img278/4543/foto17wz&#46;th&#46;jpg[/img:kohkcefx][/url:kohkcefx]\n\nAqui está el combo pulsado y desplegando toda la persiana desde el inicio de la pantalla:\n\n<!-- m --><a class=\"postlink\" href=\"http://img327.imageshack.us/img327/6617/foto29lm.jpg\">http://img327.imageshack.us/img327/6617/foto29lm.jpg</a><!-- m -->','',0,'GA==','kohkcefx',1,0,'',9,0,0),(15049,3435,6,632,0,'201.155.170.251',1151708432,1,0,1,1,1,0,'','','[quote=&quot;jlcapel&quot;:27xwf636]Olguiver,\n\nDeja al menos el código donde haces la conexion.  Concretamente, donde creas el objeto connection y/o donde creas el objecto recordset.\n\nSaludos,\nJosé Luis Capel[/quote:27xwf636]\n\nHola!!!!\n\nYa se cual es el problema un experto en el tema me dice q tengo q tener instalado Adbantange instalado para poder aser un mapeo de tablas....\n\nAun q mi problema real era tratar de aser una conexion tipo odbc q n o necesite nada instalado <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> para poder realizar una consulta select * from \ny ahorrarme un monton de codigo, y no utilizo el odbc por q es muy lento.\n\nAsi q si alguien tiene una solucion les agradeseria mucho la colaboracion...','',0,'gA==','27xwf636',1,0,'',632,0,0),(15050,3424,2,198,0,'201.138.104.135',1151711204,1,0,1,1,1,1,'','','Tengo la versión 2.6  ¿es muy vieja?  apenas la compré este año?? <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','2l1wg2k6',1,0,'',198,0,0),(15051,3454,2,198,0,'201.138.104.135',1151716214,1,0,1,1,1,1,'','Error con PREVIEW primera hoja en blanco','Hola a todos!\n\nTengo una aplicación que ya funciona bien, excepto por lo siguiente:\n\nEn ocasiones cuando el usuarios genera cualquier reporte,  en el PREVIEW aparece la primera hoja en blanco y las siguientes ya tienen información.  Esto lo solucionaba eliminado del administrador de tareas de windows el archivo NTVDM.EXE, o reiniciando la PC, ahora con un usuario ya no funciono...   ¿que puede ser?\n\nEspero y me puedan ayudar.\nSaludos\n\nLaura Edith Hernández H. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1f1i56nr',1,0,'',198,0,0),(15052,3435,6,138,0,'201.154.236.107',1151718132,1,0,1,1,1,1,'','','Haz mirado si tienes instalado el provider correspondiente ?\n\ncuando una cadena de conexion hace referencia aun componente entre llaves {}, quiere decir que esta estableciendo una conexion por el driver ODBC y no por un ADO provider, que seguramente es tu caso.\n\nCuando no tienes un provider dedicado, por ejemplo Advantage, lo mas comun es utilizar el driver ODBC como tu provider ADO, en cuyo caso TIENES QUE TENER INSTALADO EL DRIVER ODBC CORRESPONDIENTE.\n\nRevisa si en tus fuentes de datos ODBC (panel de control / herramientas daministrativas / Origenes de datos ODBC), tienes instalado el Driver de Microsoft para taglas DBF.\n\nPor otro lado ten en cuenta que si estas utilizando los indices, no podras utilziar el ADO para actualizar los datos, ya que el ADO no manipula ningun tipo de indice, lo cual puede ocasionar problemas cuando estas accediendo a los datos mediante un programa que utilice comandos XBase para manipular tablas e indices.','',0,'gA==','1rezeoi8',1,0,'',138,0,0),(15053,3454,2,138,0,'201.154.236.107',1151718353,1,0,1,1,1,1,'','','haz mirado en la carpeta Windows\\Temp si despues de cerrar el preview se queda algun archivo *.WMF creado ?, si vez que aparece un archivo con un numero, algo asi como *1.wmf en la carpeta temp DESPUES DE HABER CERRADO EL PREVIEW, eliminalo y el motor de reportes tendria que trabajar correctamente.','',0,'gA==','2xuc44dr',1,0,'',138,0,0),(15054,3455,6,198,0,'201.138.104.135',1151719592,1,0,1,1,1,1,'','Ejemplos que funcionen....','Hola de nuevo!\n\nSigo probando FWH, realmente extraño mucho a FW para CLIPPER.... no ato ni desato....\n\nCon un simple programa no avanzo.... ya logré quitarle los errores a un programa que hace la función de abrir los archivos de acuerdo a como los necesiten los otros programas, y para ello pregunto por el numero de parametros enviados, bueno pues eso funciona correctamente en FW +clipper  y ahora ya no...  dice que no se le ha enviado ningun parametro.  La función es PCOUNT(), misma que no trae nada....\n\nCon FW+CLIPPER no tuve casí la necesidad de consultarlos a uds. en las NEWS ni en este foro, pues casi todo lo solucionaba con los muy buenos ejemplos que existian en FW pero ahora, no se cuales ej. sean de FWH pues creo que estan revueltos y los que encontre con PCOUNT no logré que corrieran...\n\nNo estoy muy contenta... sorry ya es viernes y no logré nada... buuu\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nSaludos\n\nLaura Edith Hernández\n\nFWH 2.6 +BORLAND 5.5.1+ XH  0.99.60 y worksop','',0,'gA==','20stia05',1,0,'',198,0,0),(15055,3396,2,501,0,'200.32.103.134',1151723865,1,0,1,1,1,0,'','Tema resuelto','Revisando el archivo de enlace LNK de la aplicación me pareció notar algunos cambios, abri un backup y efectivamente como había incluído una lib antes de ole2.lib se ve que algunas cosas quedaban desactivadas, movi de lugar el ole2.lib un par de lineas arriba y listo, todo volvió a la normalidad. Fué un descuido tonto pero no menos raro.  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','2f6hl71d',1,0,'',501,0,0),(15056,2356,6,643,0,'200.94.71.124',1151728453,1,0,1,1,1,0,'','Rossine','[quote=&quot;Rossine&quot;:8tsevejz]Gracias Maestro  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRossine.[/quote:8tsevejz]\n\nTendras la actualizacion de la libreria que tienes ya terminada\nsaludos cordiales','',0,'gA==','8tsevejz',1,0,'',643,0,0),(15057,3424,2,9,0,'85.59.71.100',1151728994,1,0,1,1,1,1,'','','[quote=&quot;Laurel&quot;:pmn5oaav]Tengo la versión 2.6  ¿es muy vieja?  apenas la compré este año?? <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:pmn5oaav]\n\nLa versión 2.7 se publicó en Nov/2005, asi que si comprastes la 2.6 en el 2006 te vendieron una versión antigua.','',0,'gA==','pmn5oaav',1,0,'',9,0,0),(15058,3455,6,9,0,'85.59.71.100',1151730623,1,0,1,1,1,1,'','','Laura,\n\nMi experiencia ha sido totalmente la contraria. Yo compré, directamente a Antonio por email, el pasado 5/4/2006 FWH 2.7.- Me enviaron junto a FWH.exe la versión compatible de xHarbour.  Instalé FWH y el xHarbour correspondiente (descarté el que ya tenía yo instalado) y a correr. Claro está, tuve que compilar y adaptar a 32 bites, mi libreria personal, pero incluso el WorkShop, no me ha dado problemas. Solo decirte que en una semana tenía todas mis aplicaciones funcionando a 32 bit. Luego, encontré a Verce que es una maravilla (y mejicano, como tú).\n\nNo te desanimes. Lo tuyo creo, es mas problema de INSTALACION que del propio FWH. Cuando lo ajustes, todo irá de maravilla y te olvidarás de los 16 bits.','',0,'gA==','26vx9rmw',1,0,'',9,0,0),(15059,3410,3,266,0,'60.50.55.152',1151731150,1,0,1,1,1,1,'','','index on transform(template,\'@!\')+custno tag tempcust to yourcdx\nset order to tag tempcust\n\nredefine listbox oLbx ... ;\n  select transform(template,\'@!\')+custno for \"T\"+cCustno','',0,'gA==','1d8bj5dt',1,0,'',266,0,0),(15060,3437,3,372,0,'83.118.100.14',1151731971,1,0,1,1,1,0,'','','Hi Tim,\n\nthanks, this looks much more easier than the samples in the provided SDK! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nOne remaining question: do you also use barcodes with this printer and if so, how?\n\nBest regards,\n\nJohn.','',0,'gA==','3pc03xdy',1,0,'',372,0,0),(15061,3421,6,61,0,'201.217.164.159',1151736101,1,0,1,1,1,0,'','','Antonio:\n\nPodrías pasarlo a Harbour por favor?\n\nSaludos y  gracias\n\nRuben Fernandez','',0,'gA==','3lhod50g',1,0,'',61,0,0),(15062,3456,16,2,0,'87.218.146.73',1151740681,1,0,1,1,1,1,'','New FWPPC build with PANELs support','There is a new FWPPC build to be downloaded, with an early prototype of panels support. Please review samples\\TestPane.prg\n\nIts a work in progress, though it may be already used.','',0,'gA==','14hlrvg9',1,0,'',2,0,0),(15064,3410,3,620,0,'209.33.123.28',1151761760,1,0,1,1,1,0,'','','That is exactly what I did do and it doesn\'t seem to work.  Can\'t understand why but I\'ll keep plugging away at it.  Thanks again.\nG','',0,'gA==','32798gw9',1,0,'',620,0,0),(15065,3421,6,61,0,'201.217.172.219',1151764148,1,0,1,1,1,0,'','','Gracias Maestro.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','3l5vnd6d',1,0,'',61,0,0),(15067,3454,2,198,0,'201.138.91.253',1151764824,1,0,1,1,1,1,'','','Ya revise lo que me indica Rene, no hay ningun archvo temporal .WMF.... ¿ue pudierá ser???\n\nGracias\n\nLaura Edith Hernández H.','',0,'gA==','2sdle9xn',1,0,'',198,0,0),(15068,3455,6,198,0,'201.138.91.253',1151765703,1,0,1,1,1,1,'','','Gracias Manuel!\n\nVoy a revisar de nuevo la configuración!\n\nSaludos\n\nLaura E. Hernández H.','',0,'gA==','fr4setei',1,0,'',198,0,0),(15069,3449,2,184,0,'201.222.6.66',1151766304,1,0,1,1,1,0,'','','Antonio muchas gracias por tu respuesta.\n\nya di con el error, es cuando compilo el programa con mi computadora, lo probe compilando con la computadora portatil y todo funciona bien.\n\ndebo tener algun virus, porque desde hace un par de dias a mi maquina le estan pasando cosas extrañas.','',0,'gA==','242nhc1y',1,0,'',184,0,0),(15070,3451,6,72,0,'201.154.187.191',1151767807,1,0,1,1,1,0,'','','Prueba cambiando la propiedad Integral Height, aca funciona.','',0,'gA==','156dxnwk',1,0,'',72,0,0),(15071,3410,3,303,0,'72.199.41.171',1151768520,1,0,1,1,1,0,'','','Why not use scopes?\n\n(cAlias)-&gt;ordScope(0,\"T\"+cCustno)\n(cAlias)-&gt;ordScope(1,\"T\"+cCustno)\n\nNote that cCustno needs to be exactly the same length as the CUSTNO field.\n\nJames','',0,'gA==','f563q9sr',1,0,'',303,0,0),(15072,3435,6,632,0,'201.155.170.251',1151769815,1,0,1,1,1,0,'','','Hola!!!\n\nEl problema en si quede igual x q si lo tengo lo q nose es como aserle para q funcione y si utilizo la consulta select * from no utilizaria los odiosos indices q acada rato se dañan <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .    si alguien podria facilitarme un codigo para realizar eso sin necesidad de instalar un advantage o algo por el estilo seria perfecto. me an pasado codigo con mysql y sql pero lo q requiero es accesar a una simple tabla dbf de dbase libre para dos.\n\ny no encuentro  ningun ejemplo en la red... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  \n\no sera q nadie tiene ese problema   ?','',0,'gA==','380wfcc7',1,0,'',632,0,0),(15073,3451,6,9,0,'85.59.71.100',1151774983,1,0,1,1,1,1,'','','Antonio y Alfredo,\n\nFunciona perfectamente cuanto la matriz (array) del COMBOBOX tiene hasta 19 elementos. Pero a partir de 20 elementos es cuando se disloca. Sucede tanto en diálogos como en folders.\n\nSi comprobais en SAMPLES el módulo testdbc1.prg, que tiene un dialogo con dos combobox (dbcombo), vereis como en el primer combo se produce el error. En cambio en el segundo no porque tiene menos de 20 elementos.','',0,'gA==','nz8dm391',1,0,'',9,0,0),(15074,3455,6,138,0,'201.154.236.107',1151779930,1,0,1,1,1,1,'','','Laura:\n\nHasta donde me acuerdo, yo les proporcione un CD con nuestro manual de migracion a 32 bits, que incluye un archivo PDF con instrucciones detalladas de TODO lo que tienes que hacer para configurar tu entorno de trabajo, las diferencias entre FW y FWH y una explicacion muy amplia de las herramientas necesarias (MAKE, Borland C++ y Harbour) y las herramientas auxiliares que puedes utilizar para tus proyectos (ADS, AjMake, VerCE, FrontEnd, etc.)\n\nTambien el CD incluye 2 ejemplos de aplicaciones de ejemplo nuestras compiladas a 16  y 32 bits. El mismo codigo 2 versiones distintas.\n\nEl CD incluye tambien otras herramientas: VerCE, AJ Make, ADS servidor local y otras.','',0,'gA==','3adkkmo3',1,0,'',138,0,0),(15075,3451,6,9,0,'85.59.71.100',1151782350,1,0,1,1,1,1,'','SOLUCIONADO','Lo he solucionado, gracias a la idea de Alfredo, de la forma siguiente:\n\n1) Añadiendo a Winapi.ch:\n\n#define CBS_NOINTEGRALHEIGHT  1024  \n\n\n2) En el programa, indicando en el combobox:\n\nSTYLE CBS_DROPDOWNLIST | CBS_NOINTEGRALHEIGHT','',0,'gA==','3ek0os3n',1,0,'',9,0,0),(15078,3458,6,665,0,'200.122.153.34',1151790283,1,0,1,1,1,0,'','Referencias ambigunas ..estamos empezando de cero','Un Saludito y   gracias.\n\n\nMi problema es que apezar de tener mas de 2 años de estar trabajando el Fw24 y blinker , clipper. aun tenemos     manias de programadores  de clipper nativo o una manera  aun poco  profecional de definir o eliminar las abiguedades de nuestros programas.\n\nAhora que estoy con  Harbor haciendo pruebas llegamos a cero de nuevo pues es ua manera muy diefente de comilacion y linkeo.\n\nActualmente uso \n\nHarbour Compiler Alpha (CVS 2006-03-28 14:35)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.o\">http://www.harbour-project.o</a><!-- m -->\nHarbour MiniGUI Experimental Distribution v.1.2\n\ny Bcc5  \n\nBueno primero\n\nPreguntas.. \n\nTodas mis librerias que he creado debo de compilarlas  para que sean compatibles con Harbour? de ser asi Como.\n\nPorque  las ambiguedades  al  definir variables ?\n\n\nDonde podria encontrar un manual o literatura para poder ver como desde el  cero empezamos a  prender  .\n\nEstamos en vias de comprar  el Soft completo y deseamos saber si esta  versiones esta libres de errores o ya no son betas.\n\nGracias\nBusmatic de Costa Rica\nOscar Chacon.\n<!-- m --><a class=\"postlink\" href=\"http://www.busmatic.com\">http://www.busmatic.com</a><!-- m -->','',0,'gA==','1v593uoq',1,0,'',665,0,0),(15079,3459,16,2,0,'87.218.146.73',1151796482,1,0,1,1,1,1,'','New FWPPC build with DLL FUNCTION parameters support','There is a new FWPPC build ready to be downloaded with full DLL FUNCTION command with proper parameters support.\n\nPlease review modified samples\\DynDll.prg','',0,'gA==','yu71bevp',1,0,'',2,0,0),(15080,3410,3,620,0,'209.33.123.28',1151797373,1,0,1,1,1,0,'','','ahhhh.....I did try ordscope but didn\'t take into account the exact length for cCustno.\n\nIm not sure I exactly grasp the numerical indicator in the ordscope(0,...)\nI tried using a 1 not sure what I was doing, so any explanation is helpful...the help files I read did not compute...laugh\n\nI also did Ordscope(1, cAlias-&gt;...)   Didn\'t think about the alias being outside ordscope.  Why is that?\n\nthanks!\nG','',0,'gA==','zrkqked0',1,0,'',620,0,0),(15081,3458,6,138,0,'201.154.236.107',1151797997,1,0,1,1,1,1,'','Re: Referencias ambigunas ..estamos empezando de cero','[quote=&quot;busmatic&quot;:12wo2v8o]\nTodas mis librerias que he creado debo de compilarlas  para que sean compatibles con Harbour? de ser asi Como.\n[/quote:12wo2v8o]\n\nSe compilan igual que si estuvieras en Clipper, compilas con Harbour, pero necesitaras una \"segunda pasada\" con el Borland C++, para generar los OBJ, el mismo borland incluye una herramienta llamada TLIB que sirve para armar las librerias a partir de los OBJ creados por el C++\n\n[quote=&quot;busmatic&quot;:12wo2v8o]\nPorque  las ambiguedades  al  definir variables ?\n[/quote:12wo2v8o]\n\nPorque no haz definido las variables, es decir, te las haz sacado de la manga sin haberlas definido como PRIVATE LOCAL STATIC ó PUBLIC, es decir haz hecho cosas como :\n\n[code:12wo2v8o]X&#58;= 5[/code:12wo2v8o]\n\nsin hacer antes un \n\n[code:12wo2v8o]LOCAL x  //&#40;o PUBLIC o PRIVATE o lo que se necesita&#41;\nx&#58;= 5\n[/code:12wo2v8o]\n\n[quote=&quot;busmatic&quot;:12wo2v8o]\nDonde podria encontrar un manual o literatura para poder ver como desde el  cero empezamos a  prender  .\n[/quote:12wo2v8o]\n\nNo necesitas ninguna literatura en especifico, si sabes Clipper sabes utilizar Harbour, si sabes FiveWin, puedes moverte a FiveWin Harbour sin grandes  cambios . Lo que te facilitaría mucho la vida es utilizar un gestor de compilación para que no tengas que crear archivos MAK manualmente.\n\nSi te sirve de algo, puedes consultar estos articulos de migracin que escribi hace unos meses:\n\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2005/07/crnica-de-una-migracin-exitosa-parte-1.html\">http://google.blogspot.com/2005/07/crni ... rte-1.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2005/07/cronica-de-una-migracin-exitosa-parte.html\">http://google.blogspot.com/2005/07/cron ... parte.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2005/07/crnica-de-una-migracin-exitosa-parte-3.html\">http://google.blogspot.com/2005/07/crni ... rte-3.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2005/07/crnica-de-una-migracin-exitosa-parte-4.html\">http://google.blogspot.com/2005/07/crni ... rte-4.html</a><!-- m -->\n\nincluso hubo un programa de radio donde uno de los participantes narra sus aventuras en la migracion, puedes bajarlo de aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2005/11/la-cronica-de-una-migracin-exitosa-en.html\">http://google.blogspot.com/2005/11/la-c ... sa-en.html</a><!-- m -->\n\n[quote=&quot;busmatic&quot;:12wo2v8o]\nEstamos en vias de comprar  el Soft completo y deseamos saber si esta  versiones esta libres de errores o ya no son betas.\n[/quote:12wo2v8o]\n\nFiveWin Harbour es totalmente estable, hay empresas que estan vendiendo su software comercialmente desarrollado con FWH y las aplicaciones son sumamente estables desde hace mas de 2 años.','',0,'gIA=','12wo2v8o',1,0,'',138,0,0),(15082,3285,20,664,0,'88.44.254.66',1151833500,1,0,1,1,1,0,'','','io li ho entrambi su xharbour\\lib.\nciao','',0,'gIA=','28142ef2',1,0,'',664,0,0),(15083,3285,20,6,0,'87.11.236.45',1151836293,1,0,1,1,1,1,'','Re: Problema nel link di textxbrw.prg','Commenta questo\n\n[code:3a7f46qt]REQUEST ADS\n\nrddRegister&#40; &quot;ADS&quot;, 1 &#41;\nrddsetdefault&#40; &quot;ADS&quot; &#41;\n\nSET SERVER LOCAL\nSET FILETYPE TO CDX[/code:3a7f46qt]\n\ne decommenta quest\'altro\n\n[code:3a7f46qt]REQUEST DBFCDX\nrddsetdefault&#40; &quot;DBFCDX&quot; &#41;[/code:3a7f46qt]\n\nPoi fammi sapere i risultati dei tuoi test dato che anche a me interesserebbe usare un browse più evoluto e non so quanto l\'xBrowse sia affidabile. Specificamente mi servirebbe la possibilità di visualizzare più righe di dati in una riga di browse. Si può fare?\n\nEMG','',0,'AIA=','3a7f46qt',1,0,'',6,0,0),(15084,3460,6,27,0,'62.174.195.220',1151839401,1,0,1,1,1,1,'','GPF CON HB_GCALL()','He convertido un programa de Fivewin a Harbour  mi cliente tiene GPF errores con la funcion HB_GCALL() en que situaciones puede generar GPF\'s la funcion cuyo fin es limpiar la basura.\n\nUso aunas VARIABLES PUBLIC.','',0,'AIA=','3f9o8tc0',1,0,'',27,0,0),(15085,3460,6,2,0,'87.218.146.73',1151840917,1,0,1,1,1,1,'','','Paul,\n\nQue versión/build de Harbour estás usando ?','',0,'AIA=','21aiity2',1,0,'',2,0,0),(15086,3460,6,27,0,'62.174.195.220',1151842110,1,0,1,1,1,1,'','Harbour Build','El Harbour Build es de hace dos años.\n\nHe pedido hace 5 minutos una subscribción a FTDN para probar con el ultimo.\n\nNo descansa el domingo?','',0,'AIA=','3epp5069',1,0,'',27,0,0),(15087,3460,6,2,0,'87.218.146.73',1151850384,1,0,1,1,1,1,'','','Hola Paul,\n\nRecibido, pero te hemos enviado un email ya que faltan unos datos. Por favor compruébalo. Gracias.','',0,'AIA=','1mkfl30r',1,0,'',2,0,0),(15088,3448,1,312,0,'24.150.179.34',1151855479,1,0,1,1,1,0,'','','Or you can use the following API call to get the windows temp folder \nfunction get_temp() \nlocal tbuffer:=space(256) \n\ngettemppath(256,@tbuffer) \ntbuffer := LEFT(tbuffer,AT(CHR(0),tbuffer)-1) \nreturn(tbuffer) \n\nDLL32 Function GetTempPath( bufferlen as LONG, tbuffer AS LPSTR) AS LONG ; \nPASCAL FROM \"GetTempPathA\" LIB \"kernel32.dll\"','',0,'AIA=','3u4tbh1t',1,0,'',312,0,0),(15089,3410,3,303,0,'72.199.41.171',1151862058,1,0,1,1,1,0,'','','Greg,\n\nZero is the top scope--think of it as &lt;=. One is the top scope, think of it as &gt;=. \n\nThe alias here is not referring to the scope value (cCustno), but the scope function.\n\nFor safe programming force the var, cCustno, to be the length of the field:\n\ncCustno:= padr(cCustno, len(field-&gt;custno))\n\nThis way if you ever change the length of the field it won\'t break your code.\n\nJames','',0,'AIA=','34btmmjz',1,0,'',303,0,0),(15090,3458,6,665,0,'200.122.153.34',1151864129,1,0,1,1,1,0,'','Gracias por el tip','RF, racias por tu explicacion,..\n\nSi los mak los vi en un ejemplo y los adapte a mis  ejemplos de  de echo algunas cosillas si trabajan ,  de hecho complile mas de un prg y los enlace sin problemas utillizando el bmake y fwh.mak bueno al final prueba y error medejo saer que algunas cosillas  y asignamieno sy y lecturas de esta foro nos ayudam ademas  lo uqe me has dado.\n\nAhora para aqdquirir el sofware   donde y que herramientas o parte de ellas son accesibles a compra, pues veo que el harbour  se baja de  su propia url y no veo  que sea vendido pues hay varias release, el FWH xx que ya va por la 2.7 ese creo que debe de pagarse el soft  y el BCC este es gratuito. \n\nBien recopilando y  corrigeme si me equivoco.. tomando en cuenta que el FWh2.7 es pagado el resto seria  gratuito hablando de harbour o Xharbour, admemas  veo que exisen herramientas muy buenas que ovio que son adquiridas por un metodo economico. Al final que se paga que es gratuito y  y los realease de harbour cual es el mejor pues he hecho varias pruevas con versiones anteriores y todas execto una  se comportan muy diferente. Una no da errores los otros release de harbour presentan diferencias muy marcadas el el comportamiento   de  compilacion   y algunas que les falta les sobra  o no necesitan las demas..\n\nPor ultimo deseo saber  para efectos de compra..\n\nlos mas nuevo y lo optimo para adquirir\n\nHarbor o Xharbour   ? que version\nFWH XX                 ? que version         \nBCC5                     ? que version\n\nY que otra herramienta me recomiendas ademas de  donde se compran y metodos de pago ,.\n\nGracias mil rene y espero seguir molestandote.\n\nMuy Amamble.\n\nOscar Chacon Orozco.\nBusmatic de Costa Rica\nwwww.busmatick.com','',0,'AIA=','12pfdbvr',1,0,'',665,0,0),(15091,3410,3,303,0,'72.199.41.171',1151865039,1,0,1,1,1,0,'','','I noticed that I made a syntax mistake, ordScope should be surrounded with parentheses like this:\n\n(cAlias)-&gt;(ordScope(0,\"T\"+cCustno)) \n(cAlias)-&gt;(ordScope(1,\"T\"+cCustno))\n\nYou might also want to consider using database objects which frees you from using aliases and also provides lots of other benefits. There are a couple of articles about this on my website (see link button below).','',0,'AIA=','2rvuybm7',1,0,'',303,0,0),(15092,3426,3,65,0,'193.201.130.43',1151866473,1,0,1,1,1,0,'','','Antonio,\nIf I use a dialog it is OK.\nBut when I use a window the text overlays the client window.\nAny Suggestions?\n\nMany Thanks,\nBirol','',0,'AIA=','1k2qhiln',1,0,'',65,0,0),(15093,3458,6,2,0,'87.218.146.73',1151872319,1,0,1,1,1,1,'','','Oscar,\n\nFWH es producido y distribuido por FiveTech Software <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->\n\nLa versión más reciente de FWH es la 2.7 build Junio 2006. Para adquirirla puedes hacerlo desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos.','',0,'AIA=','1jzd4omf',1,0,'',2,0,0),(15094,3426,3,2,0,'87.218.146.73',1151872444,1,0,1,1,1,1,'','','Birol,\n\n&gt; But when I use a window the text overlays the client window.\n\nPlease post an image of it, or a sample to reproduce it. You may store an image at <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the provided url.','',0,'AIA=','1yc2ffvc',1,0,'',2,0,0),(15095,3419,20,446,0,'87.7.219.67',1151873384,1,0,1,1,1,0,'','Re: localizzazione italiana','e già, mi mancava questa:\n\n[code:14mjxh4j]REQUEST HB_LANG_IT[/code:14mjxh4j]\n\ngrazie\nRoberto','',0,'AIA=','14mjxh4j',1,0,'',446,0,0),(15096,3213,3,2,0,'87.218.146.73',1151874327,1,0,1,1,1,1,'','','Enrico,\n\nI missed this one. Many thanks! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2ut095x8',1,0,'',2,0,0),(15097,3213,3,6,0,'82.57.162.64',1151875014,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'AIA=','qyueai22',1,0,'',6,0,0),(15103,3426,3,65,0,'193.201.130.205',1151887943,1,0,1,1,1,0,'','','Antonio,\nI have attached a reduced code to show my problem.\n\nThanks &amp; Regards\nBirol\n\n[code:22l38rak]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\nstatic oWndMain\n\nfunction Main&#40;&#41;\nlocal oBrush,oFont\n\n   DEFINE BRUSH oBrush COLOR nRGB&#40; 12, 129, 87 &#41;\n\n   DEFINE WINDOW oWndMain ;\n      BRUSH oBrush ;\n      MDI ;\n      MENU BuildMenu&#40;&#41;\n\n   ACTIVATE WINDOW oWndMain MAXIMIZED ON PAINT PaintRtn&#40;&#41;\nreturn nil\n\nSTATIC FUNCTION PaintRtn&#40;&#41;\nLOCAL oFont,cYear&#58;=\'2006\'\n   DEFINE FONT oFont NAME &quot;ARIAL&quot; SIZE 100, -180\n   @ 15,40 SAY cYear OF oWndMain FONT oFont ;\n           COLOR CLR_YELLOW, nRGB&#40; 12, 129, 87 &#41; ;\n           SIZE 500,200\n   oFont&#58;End&#40;&#41;\nRETURN NIL\n\nSTATIC FUNCTION BuildMenu&#40;&#41;\nLOCAL oMenu\n   MENU oMenu\n      MENUITEM &quot;Test&quot;\n      MENU\n         MENUITEM &quot;Test&quot; ACTION TestRtn&#40;oWndMain&#41;\n      ENDMENU\n   ENDMENU\nreturn oMenu\n\nSTATIC FUNCTION TestRtn&#40;oWnd&#41;\nlocal oChild, oBrw, aArray&#58;=&#123;&#125;\n\n   AADD&#40;aArray,&#123;\'aaaa\',\'aaaaaaaaaaaaaa\',\'aaaaaaaaaaaaaa\',\'aaaaaaaaaaaa\'&#125;&#41;\n\n   DEFINE WINDOW oChild ;\n      FROM 0, 0 TO 500,400 ;\n      MDICHILD ;\n      PIXEL ;\n      OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oChild &#41;\n\n   oBrw&#58;SetArray&#40; aArray&#41;\n\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader &#58;= &quot;Head-1&quot;\n   oBrw&#58;aCols&#91;2&#93;&#58;cHeader &#58;= &quot;Head-2&quot;\n   oBrw&#58;aCols&#91;3&#93;&#58;cHeader &#58;= &quot;Head-3&quot;\n   oBrw&#58;aCols&#91;4&#93;&#58;cHeader &#58;= &quot;Head-4&quot;\n\n   oBrw&#58;nMarqueeStyle   &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;lRecordSelector &#58;= &#46;f&#46;\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oChild&#58;SetControl&#40;oBrw&#41;\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\nRETURN NIL\n[/code:22l38rak]','',0,'AIA=','22l38rak',1,0,'',65,0,0),(15104,3426,3,2,0,'87.218.146.73',1151902095,1,0,1,1,1,1,'','','Birol,\n\nModify this function this way:\n[code:560d43ly]\nSTATIC FUNCTION PaintRtn&#40;&#41; \nLOCAL oFont,cYear&#58;=\'2006\' \n   DEFINE FONT oFont NAME &quot;ARIAL&quot; SIZE 100, -180\n   oWndMain&#58;oWndClient&#58;Say&#40; 15, 40, cYear, CLR_YELLOW, nRGB&#40; 12, 129, 87 &#41;, oFont &#41;  \n   oFont&#58;End&#40;&#41; \nRETURN NIL \n[/code:560d43ly]\nRemember that a MDI environment uses a \"ghost\" child window (oWndClient). Its explained in FW documentation <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','560d43ly',1,0,'',2,0,0),(15105,3453,6,2,0,'87.218.146.73',1151902295,1,0,1,1,1,1,'','','Alexander,\n\nCuantos registros se muestran en el browse ?\n\nLo estás creando desde recursos ? En caso afirmativo, lo has definido como \"TWBrowse\" en el recurso ?','',0,'AIA=','2w4tpgkz',1,0,'',2,0,0),(15106,3331,7,2,0,'87.218.146.73',1151902365,1,0,1,1,1,1,'','','Nadie ha comentado nada, luego suponemos que está funcionando correctamente <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2pzt6cy2',1,0,'',2,0,0),(15107,3420,3,2,0,'87.218.146.73',1151902541,1,0,1,1,1,1,'','','Roberto,\n\nPlease try this:\n[code:330teex4]\nREQUEST HB_Lang_IT\nHB_LangSelect&#40;&quot;IT&quot;&#41;\n[/code:330teex4]','',0,'AIA=','330teex4',1,0,'',2,0,0),(15108,3158,18,2,0,'87.218.146.73',1151903059,1,0,1,1,1,1,'','','Rafa,\n\nLo volvemos a dejar como estaba <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1w4vgpzx',1,0,'',2,0,0),(15109,2298,22,2,0,'87.218.146.73',1151903170,1,0,1,1,1,1,'','','Ryszard (desarrollador del equipo Harbour) ha comenzado a construir un SQLRDD que supongo se podrá portar a xHarbour tambien. Seguro que cuando esté listo, habrá más interés en SQL <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3kyrginh',1,0,'',2,0,0),(15110,3397,2,2,0,'87.218.146.73',1151903273,1,0,1,1,1,1,'','','&gt; bastara con oPrn:Command(\"027,064,000\") para inicializar ??? \n\nLo has probado ?','',0,'AIA=','11lwxsox',1,0,'',2,0,0),(15111,3446,19,2,0,'87.218.146.73',1151903372,1,0,1,1,1,1,'','','Puestos a multiplicar, tampoco está de más probar las nuevas hojas de cálculo de Google: <!-- m --><a class=\"postlink\" href=\"https://www.google.com/accounts/ServiceLogin?service=wise&amp;passive=true&amp;nui=1&amp;continue=http%3A%2F%2Fspreadsheets.google.com%2Fccc%3Fnew\">https://www.google.com/accounts/Service ... Fccc%3Fnew</a><!-- m --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','8qplzwv7',1,0,'',2,0,0),(15112,3445,1,2,0,'87.218.146.73',1151903689,1,0,1,1,1,1,'','','Marc,\n\nDefine the default one as: \n\n1       ICON \"myico32.ico\"\n\nAnd use another name for the application one:\n\napp   ICON \"myico16.ico\"','',0,'AIA=','3iqwae31',1,0,'',2,0,0),(15113,3461,3,51,0,'80.122.88.242',1151907320,1,0,1,1,1,0,'','Office 2007 menu','Is there someone who knows how to make an Office 2007 menu with FW?\n\nRegards\nOtto','',0,'AIA=','6u6vg54z',1,0,'',51,0,0),(15114,3445,1,161,0,'81.164.212.146',1151907429,1,0,1,1,1,0,'','','Antonio,\n\nI allready did this and in\'s working fine, but if I make a shortcut to the office-bar, he also use the 32x32 one. Ofcource I can manualy change it to the 16x16 one. It also shows the 32x32 if you explore the directory with the program.\n\nI was yust wondering that was a way to do this automaticly. It can be done because I use such a program that use the 32x32 on the desktop and the 16x16 on the office bar and while browsing. (ex. Outlook, eudora,...)\n\nThanks,\nMarc','',0,'AIA=','26p3otds',1,0,'',161,0,0),(15115,3331,7,57,0,'83.53.62.133',1151911413,1,0,1,1,1,1,'','','Antonio\nA mi me está funcionando correctamente.\n\nSaludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','s5sds2ch',1,0,'',57,0,0),(15116,3445,1,58,0,'84.149.228.92',1151911834,1,0,1,1,1,0,'','','Marc,\n\ntry to find a software called MicroAngelo.\n( <!-- w --><a class=\"postlink\" href=\"http://www.impactsoftware.com\">www.impactsoftware.com</a><!-- w --> )\n\nWith this program you can create icons containing more than only one size.\n\nMaybe this could help you.\nRegards,\nDetlef','',0,'AIA=','3rcxa0fx',1,0,'',58,0,0),(15117,3452,6,49,0,'213.82.134.66',1151912814,1,0,1,1,1,1,'','','can you send me any example to convert dbf  to ms-sql (access)  ith your class ?\nRegarsd','',0,'AIA=','27rdm4yd',1,0,'',49,0,0),(15118,3445,1,161,0,'81.164.212.146',1151913491,1,0,1,1,1,0,'','','Thanks Detlef,\n\nI allready using MicroAngelo for my Icons but did\'t know that I could save more than 1 format in 1 file.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nI guess I should read the help-file how to do this  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nI will check it out and will let you know the result.\n\nRegards,\nMarc','',0,'AIA=','1a07crno',1,0,'',161,0,0),(15119,3420,3,446,0,'87.7.219.16',1151914013,1,0,1,1,1,0,'','','Yes, it works\n\nthank you\nRoberto','',0,'AIA=','128019ca',1,0,'',446,0,0),(15120,3445,1,161,0,'81.164.212.146',1151914715,1,0,1,1,1,0,'','','Detlef,\n\nIt\'s working very nice. The office-bar, desktop and explore show automaticly the correct icon!!!\nThe only little problem is that Fivewin shows the 32x32 instead of the 16x16 in the left upper-corner but this is no problem because here I can allways use the 16x16 in my application (adding the 16x16 to my recource and use this one as program-icon and using the combined icon as default one)\n\nThanks again for pointing me in the right direction.\n\nMarc','',0,'AIA=','226u7hze',1,1151915615,'',161,1,0),(15121,3445,1,2,0,'87.218.146.73',1151915468,1,0,1,1,1,1,'','','Marc, Detlef,\n\nVery good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','24tmdpr2',1,0,'',2,0,0),(15122,3331,7,2,0,'87.218.146.73',1151915541,1,0,1,1,1,1,'','','gracias Toni <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2fpz350l',1,0,'',2,0,0),(15123,3331,7,456,0,'217.127.39.57',1151915628,1,0,1,1,1,1,'','','Los tan deseados VALID en ventana, y nadie comenta nada. \n\nLa verdad es que yo no lo habia probado, porque ya tengo todo montado con dialogos. \nEl proximo proyecto seguro que los utilizo. De todas maneras, hoy he hecho una pequeña prueba y todo ok.\n\nVamos que aunque no haya muchos comentarios, para mi era algo que nos hacia falta y nos viene muy bien, buen trabajo Antonio.','',0,'AIA=','f9gcfjo9',1,0,'',456,0,0),(15124,1369,3,32,0,'196.36.8.34',1151916141,1,0,1,1,1,0,'','','Hi,\n\nThis has become a problem again. I see the line with \"twindow;tmdiclient\" is no longer there. What should the fix be now?\n\nAlex','',0,'AIA=','3os6xt6j',1,0,'',32,0,0),(15125,3452,6,413,0,'194.106.16.43',1151918561,1,0,1,1,1,0,'','','Gracias Joel, por la diferencia horaria apenas coincidimos cuando estoy en el trabajo, voy a mirar el ejemplo que seguro me aportara el conocimiento que me falta. \n\nUn saludo','',0,'AIA=','1el6cfba',1,0,'',413,0,0),(15126,1369,3,2,0,'87.218.146.73',1151919034,1,0,1,1,1,1,'','','Alex,\n\nWhat FWH version/build are you using ?\n\nWith FWH 2.7 June 2006 is working fine:\n[url=http&#58;//imageshack&#46;us:9u0oduq1][img:9u0oduq1]http&#58;//img57&#46;imageshack&#46;us/img57/5097/image17up&#46;png[/img:9u0oduq1][/url:9u0oduq1]','',0,'GA==','9u0oduq1',1,0,'',2,0,0),(15127,3331,7,2,0,'87.218.146.73',1151919206,1,0,1,1,1,1,'','','La verdad es que ha costado llegar a implementarlo, igual que el pase de parámetros para el comando DLL FUNCTION, pero al final se ha logrado <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nMuchas veces son conceptos simples, pero hay que dar con la idea adecuada <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','2wwbs3xd',1,0,'',2,0,0),(15128,3462,6,656,0,'83.230.172.253',1151922155,1,0,1,1,1,0,'','FWCTRLS.DLL','Hola a todos los que me lean, antes que nada:\n\n  Estoy empezando a usar Fivewin y he adquirido ésta versión, indagando he visto que se pueden importar los controles de Fivewin en el Resource WorkShop con el archivo FWCTRLS.DLL, pero no lo encuentro en el CD que me dieron al comprar Fivewin, ¿ puede alguien decirme cómo conseguirlo ?\n\n  ¿ Los DLL que se crean son en 32Bits ?\n\n  Muchas gracias por vuestra ayuda, me vereis muy amenudo por aquí.\n\nJavier Pérez','',0,'GA==','1fjgfow1',1,0,'',656,0,0),(15129,3462,6,2,0,'87.218.146.73',1151923038,1,0,1,1,1,1,'','','Javier,\n\nFWCTRLS.DLL es una aportación de un usuario de FW, y la puedes descargar desde aqui:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02faad3f67/fwctrls-1-14-0-1.zip.html\">http://hyperupload.com/download/02faad3 ... 1.zip.html</a><!-- m -->\n\nEl editor de recursos de Borland te sirve para 32 bits, siempre que trabajes sobre ficheros RC y no sobre DLLs ó EXEs. Para usar DLLs ó EXEs de 32 bits te recomendamos el PellesC que es gratuito y que puedes descargar desde <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m -->','',0,'GA==','2ymvna4v',1,0,'',2,0,0),(15130,3462,6,2,0,'87.218.146.73',1151923132,1,0,1,1,1,1,'','','Javier,\n\nRevisa fwh\\dll\\rc2dll32.bat para ver como convertir tus ficheros RC (ascii) en DLLs de 32 bits.','',0,'GA==','26l0vyi4',1,0,'',2,0,0),(15131,3462,6,656,0,'83.230.172.253',1151923506,1,0,1,1,1,0,'','','Ok, Muchas gracias Antonio, he visto que el Pelles C también sirve para Pocket, en esta semana hago las pruebas de las Fivewin para Pocket que teneis en la web, y ya nos veremos en los dos foros, jeje\n\nSaludos\nJavier Pérez','',0,'GA==','2ldulava',1,0,'',656,0,0),(15132,3463,7,57,0,'83.53.62.133',1151926656,1,0,1,1,1,1,'','TGET.bGotFocus. No refresca despues de evaluar.','Antonio\nSi ejecutas el código adjunto comprobaras que al coger el foco el Get no realiza el cambio de color. Lo cambia realmente si se instroduce algun valor.\n\nSaludos\nToni Sales\n\n#include \"FWCE.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oWnd, oGet\n   local cName := Space( 20 )\n\n   DEFINE WINDOW oWnd TITLE \"Scroll\"\n\n   @  7, 8 GET oGet VAR cName OF oWnd SIZE 100, 18\n\n        oGet:bGotFocus := {|| oGet:SetColor(RGB(  0,  0,  0), RGB(155,255,200) )}\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil','',0,'GA==','1iiktn1z',1,0,'',57,0,0),(15133,3432,3,449,0,'212.64.224.250',1151927006,1,0,1,1,1,1,'','','Tnhoe,\n\n[url:1ma7fpvj]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=2855&amp;highlight=toleauto[/url:1ma7fpvj]\n\n\nRegards','',0,'EA==','1ma7fpvj',1,0,'',449,0,0),(15134,3463,7,57,0,'83.53.62.133',1151927178,1,0,1,1,1,1,'','Re: TGET.bGotFocus. No refresca despues de evaluar.','Funciona correctamente si fuerzas con un Refresh(). \n\noGet:bGotFocus := {|| oGet:SetColor(RGB(  0,  0,  0), RGB(155,255,200) ), oGet:Refresh()}\n\nSaludos\nToni Sales','',0,'EA==','3oybi98e',1,0,'',57,0,0),(15136,3397,2,304,0,'201.155.7.216',1151936963,1,0,1,1,1,0,'','','Si antonio ya lo intente, tal vez mi pregunta debio ser, si es la unica forma de hacerlo, por que no funciono, \ngracias por tu atencion\nsaludos','',0,'EA==','dc0jxo1x',1,0,'',304,0,0),(15137,3426,3,65,0,'193.201.130.112',1151938795,1,0,1,1,1,0,'','','Antonio,\nIt works perfectly.\nThank you very much.\n\nBirol <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','1ggl9o0j',1,0,'',65,0,0),(15138,3464,2,542,0,'83.49.165.124',1151941108,1,0,1,1,1,0,'','Como puedo separar lineas en un reporte','Hola Amigos, hago los listados con el comando REPORTE y con dos tipos de fuentes quisiera saber como se pueden separar las lineas y que no me imprima todo tan junto. el codigo es el siguiente:\n\n  if opci00 = 1\n    store \"Fecha : \" + dtoc( datita ) to dati\n  else\n    store space(18) to dati\n  endif\n  DEFINE FONT oFont1 NAME \"LUCIDA CONSOLE\" SIZE 0, -12 BOLD\n  DEFINE FONT oFont2 NAME \"LUCIDA CONSOLE\" SIZE 4, 14\n  if opci14 = 2\n    REPORT oReporte TITLE \"E X T R A C T O S   D E   C U E N T A S\" CENTER ;\n     HEADER \"Empresa : \" + empr + \" Nombre : \" + trim(momb), \" \",;\n            \"Filtro Fechas  Desde : \" + dtoc(desf) + \"  Hasta : \" + dtoc(hasf),;\n            \"Filtro Apuntes Desde : \" + str(des,6,0) + \"      Hasta : \" + str(has,6,0),;\n            \"Filtro Cuentas Desde : \" + cue1 + \" Hasta : \" + cue2, \" \" LEFT ;\n     FOOTER \" \", dati, \"Página: \" + STR( oReporte:nPage,10) RIGHT;\n     FONT oFont1, oFont2\n  else\n    REPORT oReporte TITLE \"E X T R A C T O S   D E   C U E N T A S\" CENTER ;\n      HEADER \"Empresa : \" + empr + \" Nombre : \" + trim(momb), \" \",;\n              \"Filtro Fechas  Desde : \" + dtoc(desf) + \"  Hasta : \" + dtoc(hasf),;\n              \"Filtro Apuntes Desde : \" + str(des,6,0) + \"      Hasta : \" + str(has,6,0),;\n              \"Filtro Cuentas Desde : \" + cue1 + \" Hasta : \" + cue2, \" \" LEFT ;\n      FOOTER \" \",\" \", dati, \"Página: \" + STR( oReporte:nPage,10) RIGHT;\n      FONT oFont1, oFont2;\n      PREVIEW CAPTION \"Extractos de Cuentas\"\n  endif\n    COLUMN DATA trim(campo03)    FONT 2 TITLE \"Fecha\"       SIZE 11 CENTER\n    COLUMN DATA trim(campo04)    FONT 2 TITLE \"Asiento\"     SIZE 10 RIGHT\n    COLUMN DATA trim(campo05)    FONT 2 TITLE \"Apunte\"      SIZE 52\n    COLUMN DATA val(trim(imp01)) FONT 2 TITLE \"Debe\"        SIZE 17 PICTURE p1b TOTAL RIGHT\n    COLUMN DATA val(trim(imp02)) FONT 2 TITLE \"Haber\"       SIZE 17 PICTURE p1b TOTAL RIGHT\n    GROUP ON campo01 FOOTER space(40) + \"Total Cuenta \" HEADER trim(campo01) + \" - \" + trim(campo02) FONT 1\n  END REPORT\n  ACTIVATE REPORT oReporte while !eof() ON STARTGROUP oReporte:NewLine()\n  oFont1:End()\n  oFont2:End()\n\nDeseo si se puede que cuando pase de registro deje un pequeño espacio para que las lineas del listado esten más separadas\n\nGracias','',0,'EA==','3cl7anl2',1,0,'',542,0,0),(15139,3452,6,40,0,'200.77.123.206',1151941715,1,0,1,1,1,0,'','','Silvio, en este mismo ejemplo vas a encontrar la forma de agregar\nregistros en SQL vía ado, revisalo y veras que es muy fácil\n\nSaludos  \nJoel Andujo','',0,'EA==','8nxj2cxu',1,0,'',40,0,0),(15140,3465,2,265,0,'80.59.225.15',1151942149,1,0,1,1,1,0,'','Recurso en Mdichild','Hola amigos:\nNo habia utilizado nunca recursos en mdichild, y me pongo, y la primera en la frente, en una ventana mdichild que contiene un listbox, haga lo que haga, al intentar utilizar éste listbox para añadir, editar etc, me dice que no existe el alias.\nYo abro las bases de datos así:\n  dbUseArea(.T.,,cUbica+cSubd+\"\\Avisos\",,.T.)\n  avisos-&gt;(OrdSetFocus(\"Fecha\"))\n  avisos-&gt;( dbGotop() )\nEl listbox es así:\n\n  REDEFINE LISTBOX oLbx FIELDS dtoc(avisos-&gt;Fecha),;\n			       dtoc(avisos-&gt;Fecha1),;\n                               avisos-&gt;pro1,;\n                               avisos-&gt;Conductor,;\n			       avisos-&gt;Realizado,;\n			       avisos-&gt;Incidencia,;\n			       avisos-&gt;Operador;\n                               HEADERS  \" Fecha Aviso \",\" Fecha Recog. \", \" Recoger en \",\" Conductor \",\" R \",\"Incidencia\",\"Operador\" ;\n                               FIELDSIZES        70,70,200,60,45,150,150;\n                               ALIAS \"Avisos\";\n                               CURSOR oCurdedo;\n                               COLOR CLR_BLACK, GetSysColor( COLOR_BTNFACE ) ;\n                               ON LEFT DBLCLICK  (iif(!avisos-&gt;(eof()) .and. MemVar-&gt;cAccesoM,(cTitulo:=\"Visualización de Avisos \",Entalba(cTitulo,\"V\",oWPpal),oLbx:Refresh()),.T.));\n                               ID 110 OF oDlg\n\n\nHay algo más que tengo que tener en cuenta ?\n\nSaludos\n\nJose Luis','',0,'EA==','16po7qrg',1,0,'',265,0,0),(15141,2356,6,217,0,'200.159.120.34',1151943391,1,0,1,1,1,0,'','Re: Rossine','Rossine, que tal batizar sua cria? Já temos vários wbrowses modificados e acabamos nos perdendo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nQue tal TRBrowse (\"R\" de \"Rossine\")?\n\n\n[ ]\'s\nMaurilio','',0,'','7yy77ixr',1,0,'',217,0,0),(15142,3464,2,180,0,'83.34.25.145',1151945167,1,0,1,1,1,0,'','','Puedes poner una linea separadora con oReport:CellView()\no también puedes añadir una línea en blanco de la forma siguiente:\nCOLUMN TITLE \" Apellidos y Nombre o Razón Social\",\" \" ;\n        DATA SUBSTR(CLIENTES-&gt;NOMBRE,1,30), \" \"  LEFT GRID\n\nUn saludo,\nManuel','',0,'','3l8kb517',1,0,'',180,0,0),(15143,3466,19,26,0,'84.52.130.249',1151947093,1,0,1,1,1,1,'','“Certified for Windows Vista” Software Logo Requirements','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://blogs.msdn.com/uac/archive/2006/06/28/650262.aspx\">http://blogs.msdn.com/uac/archive/2006/ ... 50262.aspx</a><!-- m -->\n[quote:1g3kq19y]Critical to the success of User Account Control is having software that works well for standard users and administrators, without excess prompts. Since User Account Control is such a central part of Windows Vista, User Account Control compatibility is one of the key requirements to display the Certified for Windows Vista Logo on software. [/quote:1g3kq19y]\n\n[quote:1g3kq19y]Make sure the application works well for standard users, unless it is something truly designed to be run only by system administrators such as disk partitioning software.  If the program has admin and non-admin components the main application should still be run as a standard user and administrative features should be moved to a separate executable. [/quote:1g3kq19y]\n\n[quote:1g3kq19y]Executable files with .EXE, .DLL, .SYS, .DRV, .OCX, .CPL, or .SCR extensions must be signed with an Authenticode certificate.[/quote:1g3kq19y]\n\nRoman','',0,'gA==','1g3kq19y',1,0,'',26,0,0),(15144,3467,6,649,0,'201.2.228.20',1151947390,1,0,1,1,1,1,'','Para Rene Flores','Ola Rene.\nTenho Crystal 10 Instalado, porem não achei quais Dlls devo usar em maquinas que não tem o Crystal Instalado.\nO maximo que encontrei foi algums coisas sobre crystal 9.\nVi que voce me pediu para verificar no manual tecnico, porem tambem não achei este manual, somente para o Crystal 9.\nNa pasta de instalação eu nao encontrei nada a respeito tambem, pq eu tenho aqui uma copia que peguei para testar, para ver se vale a pena investir no Crystal, então ainda não tenho o CD da versão original.\nVoce poderia me auxiliar em saber quais dlls devo colocar na maquina que não tem o crystal instalado, ou terei que instalar o crystal em todas as maquina que forem utilizar a minha impressão.','',0,'gA==','byo1thp7',1,0,'',649,0,0),(15145,3458,6,665,0,'200.122.153.34',1151955447,1,0,1,1,1,0,'','Gracias Rene compra de FWH','Muy Amable, Rene\n\nSi deseo comprar el FWH per veo que  el envio es por Correo, No se pasible bajalo por FTP o descarga directa. Ahora no veo el monto del Coste del Producto . en $ USD\nNesecito mas informacion. o si podria compara en America Central o inclusive en USA o MExico.\n\n  Deso saber mas del\n  Advantage remote Xbase Server\n  si hay para la version  16 bits \n  ejemplos de uso   en   FW en un .prg\n \nOscar Chacon \nBusmatic de CR\nGracias.','',0,'gA==','1fip031l',1,0,'',665,0,0),(15146,3468,6,147,0,'190.7.10.2',1151958034,1,0,1,0,1,1,'','DBCombo no refresca items agregados','Hola gente:\nEn un Dlg tengo un DBCombo y  un Button que acceder a una función para agregar/modificar la lista desplegada en el DBCombo. El problema es que luego de agregado/modificado un registro la lista no se refresca.\nEl código es el siguiente (utilizo tDbf)\n[code:25j9h1y4]\n   REDEFINE DBCOMBO     &#58;&#58;aoDlg&#91;_Cmb03&#93; VAR cProfesion ID 223 UPDATE OF oFld&#58;aDialogs&#91;2&#93; ;\n            ALIAS       &#58;&#58;aoDbF&#91;_PROF&#93;&#58;cAlias ;\n            ITEMFIELD   &quot;ID_Prof&quot;   ;\n            LISTFIELD   &quot;Desc_Prof&quot; \n            \n   REDEFINE BTNBMP  ID 290 OF oFld&#58;aDialogs&#91;2&#93; ;\n            RESNAME &quot;&quot; ;\n            TOOLTIP &quot;Agregar Profesional&quot; ;\n            ACTION  oSelf&#58;LstProfesion&#40;&#41;         , ;\n                    oSelf&#58;aoDlg&#91;_Cmb03&#93;&#58;ReFill&#40;&#41;, ;\n                    oSelf&#58;aoDlg&#91;_Cmb03&#93;&#58;Refresh&#40;&#41;\n[/code:25j9h1y4]\n\nPosteriormente probé lo siguiente:\n[code:25j9h1y4]\n   REDEFINE DBCOMBO     &#58;&#58;aoDlg&#91;_Cmb03&#93; VAR cProfesion ID 223 UPDATE OF oFld&#58;aDialogs&#91;2&#93; ;\n            ALIAS       &#58;&#58;aoDbF&#91;_PROF&#93;&#58;cAlias ;\n            ITEMFIELD   &quot;ID_Prof&quot;   ;\n            LISTFIELD   &quot;Desc_Prof&quot; \n            \n   REDEFINE BTNBMP  ID 290 OF oFld&#58;aDialogs&#91;2&#93; ;\n            RESNAME &quot;&quot; ;\n            TOOLTIP &quot;Agregar Profesional&quot; ;\n            ACTION  if&#40; oSelf&#58;LstProfesion&#40; @cProfesion &#41;         , ;\n                        oSelf&#58;aoDlg&#91;_Cmb03&#93;&#58;Insert&#40; cProfesion &#41;  , ;\n                        oSelf&#58;aoDlg&#91;_Cmb03&#93;&#58;Modify&#40; cProfesion &#41; &#41;, ;\n                    oSelf&#58;aoDlg&#91;_Cmb03&#93;&#58;ReFill&#40;&#41;, ;\n                    oSelf&#58;aoDlg&#91;_Cmb03&#93;&#58;Refresh&#40;&#41;\n[/code:25j9h1y4]\n\nAl desplegar la lista, en ninguno de los casos el registro agregado/modificado, se visualiza en su nuevo estado.\n\nQue estoy haciendo mal? (Uso FWH 2.6May05)\n\ngracias desde ya, Saludos','',0,'AIA=','25j9h1y4',1,0,'',147,0,0),(15147,3468,6,9,0,'85.59.71.100',1151961272,1,0,1,1,1,1,'','','¿ Has probado cambiar REfresh()  por  Update() ?','',0,'AIA=','3g1e8epb',1,0,'',9,0,0),(15148,3463,7,2,0,'87.218.146.73',1151964066,1,0,1,1,1,1,'','','Toni,\n\nBien, bueno ya sabemos que es preciso un :Refresh() en Pocket PC. Gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','75ztrqyd',1,0,'',2,0,0),(15149,3465,2,2,0,'87.218.146.73',1151964360,1,0,1,1,1,1,'','','Jose Luis,\n\nEn donde cierras las bases de datos ? Muéstranos el código.','',0,'AIA=','36apgo1u',1,0,'',2,0,0),(15150,3458,6,138,0,'201.154.236.107',1151966916,1,0,1,1,1,1,'','','En <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> puedes optar por un envio electronico que facilita que obtengas el software y encima es mas barato que el producto enviado.\n\nEl precio esta en Euros, 1€ equivale aprox a 1.20 USD.\n\nMas informacion de ADS: <!-- w --><a class=\"postlink\" href=\"http://www.google.com/ads.htm\">www.google.com/ads.htm</a><!-- w -->\n\nSi, funciona a 32 bits.\n\nEjemplos con codigo fuente:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">www.google.d2g.com/ads/demos/</a><!-- w -->','',0,'AIA=','1eyaunyi',1,0,'',138,0,0),(15151,3469,6,264,0,'200.91.3.10',1151971529,1,0,1,1,1,0,'','Fuentes distintas','Hola a todos.\nEstoy teniendo problemas con algunas fuentes que se despliegan de manera anormal. \nAqui existen dos ejemplos que me traen sin solucion, y eso que aplique el tema de windows, se lo agrege al compilado de mi RC y sale super feo.... \nQue sera ?\n\n[url:ccolu4uj]http&#58;//www&#46;random&#46;cl/envios/fuentesdistintas&#46;JPG[/url:ccolu4uj]\n[url:ccolu4uj]http&#58;//www&#46;random&#46;cl/envios/fuentesdistintas2&#46;JPG[/url:ccolu4uj]\n\nfw+hb mayo/2006','',0,'EA==','ccolu4uj',1,0,'',264,0,0),(15152,3468,6,147,0,'190.7.10.2',1151974562,1,0,1,0,1,1,'','','Gracias por responder\nDe la unica forma que agrega es haciendo: oCmb:Add( cDato ), luego oCmb:Update(). El valor se agrega al final de la lista\nAunque la ayuda dice lo que hacen ::Insert(), ::Modify(), ::Refill(); ninguno de ello hace lo que dice hacer...salvo que no entienda el concepto','',0,'EA==','zbl74mq8',1,0,'',147,0,0),(15153,3470,6,100,0,'201.16.38.61',1151984975,1,0,1,1,1,0,'','Compilacion XH 99.60','Ola amigos\n\nEstou tentando compilar o SOURCE do FWH27 com o xHARBOUR 99.60, o qual sempre me retorna este erro\n\n[b:2an18old]\n[1]:Bcc32.Exe -M -c -v -D__HARBOUR__ -DHB_FM_STATISTICS_OFF -IG:\\XH_99\\include;G:\\fwh26\\include -IC:\\BCC55\\Include;G:\\XH_9960\\Include  -nObj Obj\\XPAD.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nObj\\XPAD.c:\nError E2451 Obj\\XPAD.c 29: Undefined symbol \'HB_FS_LOCAL\'\nError E2141 Obj\\XPAD.c 29: Declaration syntax error\nError E2190 Obj\\XPAD.c 29: Unexpected }\nError E2190 Obj\\XPAD.c 29: Unexpected }\nError E2040 Obj\\XPAD.c 29: Declaration terminated incorrectly\nError E2190 Obj\\XPAD.c 29: Unexpected }\nError E2190 Obj\\XPAD.c 29: Unexpected }\nError E2040 Obj\\XPAD.c 29: Declaration terminated incorrectly\nError E2190 Obj\\XPAD.c 39: Unexpected }\nError E2190 Obj\\XPAD.c 39: Unexpected }\nError E2109 Obj\\XPAD.c 39: Not an allowed type in function hb_vm_SymbolInit_XPAD\nError E2451 Obj\\XPAD.c 79: Undefined symbol \'HB_P_LOCALNEARADD\' in function HB_FUN_XPADR\nError E2040 Obj\\XPAD.c 79: Declaration terminated incorrectly in function HB_FUN_XPADR\nError E2139 Obj\\XPAD.c 86: Declaration missing ; in function HB_FUN_XPADR\nWarning W8004 Obj\\XPAD.c 86: \'pcode\' is assigned a value that is never used in function HB_FUN_XPADR\nError E2190 Obj\\XPAD.c 86: Unexpected }\nError E2293 Obj\\XPAD.c 88: ) expected\nError E2190 Obj\\XPAD.c 89: Unexpected }\n*** 17 errors in Compile ***\n[/b:2an18old]\n\nEstou usando xMate + FWH27 + XH 99.60\n\n\nNo caso quando uso FWH26 + XH 99.20 não acontece estes erros\n\nAlguem pode me ajudar','',0,'QA==','2an18old',1,0,'',100,0,0),(15154,3461,3,51,0,'80.122.88.242',1151989888,1,0,1,1,1,0,'','','See the new office interface:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/office/preview/asx/officeuiintro.asx\">http://www.microsoft.com/office/preview ... iintro.asx</a><!-- m -->','',0,'QA==','1kjpqrkc',1,0,'',51,0,0),(15155,3470,6,2,0,'87.218.146.73',1151990627,1,0,1,1,1,1,'','','Asegúrate de que estás compilando con el harbour.exe correcto y no con una versión anterior.','',0,'QA==','2l64tf79',1,0,'',2,0,0),(15156,3432,3,651,0,'63.168.93.35',1151991027,1,0,1,1,1,1,'','.Lnk for FWH','I don\'t use Fivewin, but i hpoe this helps...\n\n//****\nFUNCTION CreateAppShorcut( cName, cLetter )\n//****\n   LOCAL oError, oShell, oDeskTop, cDeskTop, cCurDir, cWorkingDir, nRET\n   //\n   cName := HB_OemToAnsi( cName )\n   cCurDir := UPPER( CURDIR() )\n   IF ( cWorkingDir := CURDRIVE() ) == \"\\\"\n      cWorkingDir := MapToNextDrive( @cCurDir )\n      DiskChange( cWorkingDir )\n      cWorkingDir += \"\\\" + cCurDir + \"\\\"\n   ELSE\n      cWorkingDir += \":\\\" + cCurDir + \"\\\"\n   ENDIF\n   TRY\n      oShell := CreateObject( \"WScript.Shell\" )\n      oDesktop := oShell:SpecialFolders()\n      cDeskTop := oDesktop:Item( \"DeskTop\" )\n      fErase( cDesktop + \"\\Sistema Integrado F‚nix 2005.lnk\" )\n      //\n      IF ! FILE( cDesktop + \"\\\" + cName + \".lnk\" )\n         WITH OBJECT ( oShell:CreateShortcut( cDesktop + \"\\\" + cName + \".lnk\" ) )\n            :WindowStyle      := 1\n            :HotKey           := \"CTRL+SHIFT+\" + cLetter\n            :IconLocation     := cWorkingDir + \"_SYSTEM\\IMAGES\\Fenix2006.ico\"\n            <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->escription      := HB_OemToAnsi( ;\n                     \"F‚nix - Sistema Integrado de Informaci¢n por Soluciones Perceptivas\" )\n            :WorkingDirectory := cWorkingDir\n            :TargetPath       := cWorkingDir + \"Fenix2k.exe\"\n            :Save()\n         END\n      ENDIF\n      //\n      fErase( cDesktop + HB_OemToAnsi( \"\\Conexi¢n Remota.lnk\" ) )\n      //\n      cDesktop += HB_OemToAnsi( \"\\Conexi¢n-Remota.lnk\" )\n      IF ! FILE( cDesktop )\n         WITH OBJECT ( oShell:CreateShortcut( cDesktop ) )\n            :WindowStyle      := 1\n            :HotKey           := \"CTRL+SHIFT+R\"\n            :IconLocation     := cWorkingDir + \"_SYSTEM\\IMAGES\\Fenix01.ico\"\n            <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->escription      := HB_OemToAnsi( \"Conexi¢n Remota con Servidores de Soluciones Perceptivas\" )\n            :WorkingDirectory := cWorkingDir\n            :TargetPath       := cWorkingDir + \"\\_SYSTEM\\SERVER\\SPremote.exe\"\n            :Save()\n         END\n      ENDIF\n   CATCH oError\n      //\n   END\n   //\n   RETURN ( oError = NIL )\n\n//****\nFUNCTION MapToNextDrive( cShare )\n//****\n   LOCAL i, cDrive, lDone := .F., WshNetwork\n   //\n   TRY\n      WshNetwork := CreateObject( \"WScript.Network\" )\n      cRealShare := \"\\\" + STRTRAN( cShare, \"\\SP\\FENIX2K\", \"\" )\n      cShare := \"SP\\FENIX2K\"\n      FOR i := 26 TO 5 STEP -1\n         TRY\n            cDrive := CHR( i + 64 ) + \":\"\n            WshNetwork:MapNetworkDrive( cDrive, cRealShare, .T. )\n            lDone := .T.\n         CATCH\n            lDone := .F.\n         END\n         IF ( lDone )\n            EXIT\n         ENDIF\n      NEXT\n   CATCH\n      cDrive := SPACE(0)\n   END\n   //\n   RETURN ( cDrive )','',0,'QA==','2pyg3u6v',1,0,'',651,0,0),(15157,3461,3,2,0,'87.218.146.73',1151991482,1,0,1,1,1,1,'','','Otto,\n\nMeanwhile its API gets published (or not) by Microsoft, the closest implementation would be to use rebars and toolbars. Please review fwh\\samples\\rebars.prg.\n\nRibbon looks like a folder with toolbars. There is no a menu, and no a standalone toolbar. They are used together.','',0,'QA==','190pi2sr',1,0,'',2,0,0),(15158,3469,6,2,0,'87.218.146.73',1151991721,1,0,1,1,1,1,'','','Que tipo de fuente estás usando ? Puedes proporcionar un ejemplo pequeño y autocontenido para reproducirlo ?','',0,'QA==','28gf3fp5',1,0,'',2,0,0),(15159,3415,6,2,0,'87.218.146.73',1151991895,1,0,1,1,1,1,'','','José Martin,\n\nPrueba a no hacer oPrn:End() hasta el final de tu aplicación y crea el objeto impresora con PRINTER oPrn ... sólo una vez y mantenlo creado para sucesivos usos.','',0,'QA==','3p3g0703',1,0,'',2,0,0),(15160,3461,3,15,0,'203.79.155.24',1151995566,1,0,1,1,1,0,'','','Hello Antonio,\n\nCan FWH call Office 2003 Menu ActiveX? or FWH Yes/No support full ActiveX functions?\n\nRegards,\n\nRichard','',0,'QA==','353pvqyt',1,0,'',15,0,0),(15161,3461,3,2,0,'87.218.146.73',1151998079,1,0,1,1,1,1,'','','Richard,\n\nFWH has ActiveX support, so you may use it, but you need to know the way to use them. I mean that ActiveX support does not tech how to use a specific ActiveX. You need to read the ActiveX documentation or samples.','',0,'QA==','pdzt2ofz',1,0,'',2,0,0),(15162,2356,6,643,0,'200.94.71.124',1151999996,1,0,1,1,1,0,'','Problemas con los RC','Hola Rossine y Antonio\n\ncuando utilizo la libreria que hiso Rossine  en su archivo WBRW_17A.zip\nno se coloca en donde esta definido en el recurso si no se posiciona alprincipio del dialogo como se ve en esta imagne\n[img:3s090sfl]http&#58;//img89&#46;imageshack&#46;us/img89/1890/errordialogo9tt&#46;png[/img:3s090sfl]\nque pudiera pasar ?\nojala me puedan ayudar con esto saludos cordales','',0,'CA==','3s090sfl',1,0,'',643,0,0),(15163,3448,1,258,0,'139.165.96.129',1152000244,1,0,1,1,1,0,'','','I have the same result with the api,\nit return windows\\temp and not the user tem path .\n\n??','',0,'CA==','ddxg0fcp',1,0,'',258,0,0),(15164,3471,19,26,0,'84.52.130.249',1152000765,1,0,1,1,1,1,'','AMD Dual-Core Optimizer utility synchronizes TSC','Hello!\n\nMaybe this is helpful for AMD Dual Core CPU owners\n<!-- m --><a class=\"postlink\" href=\"http://www.theinquirer.net/default.aspx?article=32790\">http://www.theinquirer.net/default.aspx?article=32790</a><!-- m -->\n[quote:2owwfzkl]\nIntended for all owners of dual-core processors, AMD Dual-Core Optimizer is a piece of software that allegedly improves gaming\nperformance by bypassing Windows\' API in some specific situations.\n\nThis utility helps that software access the RDTSC instruction directly, in order to correct the Time Stamp Counter on separate\ncores. It effectively keeps both cores working in parallel and reduces the differing video performance effects, or any other flaws\nthat relate to timing situations in dual-core or upcoming multicore processors.\n[/quote:2owwfzkl]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.amd.com/us-en/assets/content_type/utilities/TscSync.zip\">http://www.amd.com/us-en/assets/content ... scSync.zip</a><!-- m -->\n[quote:2owwfzkl]\nAMD Dual-Core Optimizer utility synchronizes Time Stamp Counter (TSC) MSRs on AMD Dual-Core Processors.\n---\nThis software installs and operates under the following operating systems\n* MicrosoftR WindowsR 2000\n* MicrosoftR WindowsR XP\n* Microsoft Windows XP Professional x64 Edition\n* Microsoft Windows Server 2003 32-bit\n* Microsoft Windows Server 2003 64-bit\n[/quote:2owwfzkl]\n\n\nIt seems that this utility is related to KB896256 ...\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/896256/en-us\">http://support.microsoft.com/kb/896256/en-us</a><!-- m -->\n[quote:2owwfzkl]\nComputers that are equipped with multiple processors that support processor power management features, such as Advanced\nConfiguration and Power Interface (ACPI) processor performance states, require Microsoft Windows XP Service Pack 2 (SP2). Additional\nupdates are available to optimize performance and behavior on computers that are running Windows XP SP2. Without these updates,\ncomputers that are equipped with these power management-capable, mobile, dual-core processors may experience decreased performance\nor unexpected behavior.\n*Note* This problem also applies to x64-based versions of Microsoft Windows Server 2003.\n[/quote:2owwfzkl]\n\n<!-- m --><a class=\"postlink\" href=\"http://groups.google.com/group/alt.comp.hardware.overclocking.amd/browse_frm/thread/67ebeba6d123a8af/\">http://groups.google.com/group/alt.comp ... 6d123a8af/</a><!-- m -->\n[quote:2owwfzkl]\nMicrosoft updated hotfix 896296 (<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/896256/\">http://support.microsoft.com/kb/896256/</a><!-- m -->) in\nJune 2006 from v3 to v3.1 (possibly to do with AMD AM2 and/or Intel Conroe\nsupport).  They seem also to have removed the download and reverted to the\noriginal release policy of making people contact Microsoft support and hand\nover their credit card details and their first-born before Microsoft will\ndeign to consider whether or not they will make it available.\n[/quote:2owwfzkl]\n\n[quote:2owwfzkl]\nSince one of the things the 896256 hotfix addressed was applications\ndirectly accessing the TSC it may be that hotfix is now redundant with these\ntwo releases.  I have yet to test this myself but early indications from\nsomeone who has installed the Dual Core Processor Driver 1.3.2 and the\nDual-Core Optimizer but not the hotfix would indicate this may well be the\ncase.\n[/quote:2owwfzkl]\n\nRoman','',0,'gA==','2owwfzkl',1,0,'',26,0,0),(15165,3472,6,83,0,'80.35.196.60',1152004044,1,0,1,1,1,0,'','Efecto raro en prev32.dll','Hola a todos\n\nNo es importante pero si incomodo,  el prev32.dll que acompaña al build de junio de FWH 2.7 en su versión en español, pierde la LUPA en la previsualización, con el consiguiente desagradable efecto, esto no ocurre en la versión inglesa del mismo build.\n\n¿Hay solucion?.\n\nHe probado a traducir la versión inglesa, pero en cuanto la tocas también pierde la dichosa LUPA en el preview.\n\nsaludos\nJosé Vicente Beltrán\nAlgeciras\nEspaña <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','2f7wlvo2',1,0,'',83,0,0),(15166,3473,4,13,0,'213.76.252.200',1152005697,1,0,1,1,1,0,'','FPT files','Antonio,\n\nFPT memo files usually contains more text than I type in multiline get field. It\'s show like sample below (red text in my opinion is additive). Is this standard ? Very often in memo files I find text from other open database file like key, date or time field.\n\nRegards\nPawel\n\nSample1:\n!brak dostepu do numeru zamrazarki      [color=red:2b0potd1]CTL    49363 P01[/color:2b0potd1]&#379;      typ ARO-270  138            [color=red:2b0potd1]S98180703                  [/color:2b0potd1]&#379;      uwagi [color=red:2b0potd1]&#350;&#152;Ü4Ü4  ÷ŽW4&#711;€  Cu i   &#729;&#729;&#729;&#729; 8&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;  &#729;&#729;&#729;[/color:2b0potd1]&#379;      memo line memo line [color=red:2b0potd1]. m C o g e n  8t B i o S a   m p[/color:2b0potd1]&#379;      !memo line text line TWO TEXT LINE[color=red:2b0potd1]0  ™4 1 5 . m u   i  [/color:2b0potd1]&#379;      MEMO LINE MEMO LINE [color=red:2b0potd1]K . COGENT~2MUI   &#350;&#152;Ü4Ü4   &#377;W4¶€3 [/color:2b0potd1]&#379;\n\nSample2:\nryby    3082[color=red:2b0potd1]CTL       16            S02087729          [/color:2b0potd1]&#379;   [color=red:2b0potd1]   LOKAsion=\"1.0\" encoding=\"utf-8\"?&gt;\n&lt;InfoTableLocal&gt;\n  [/color:2b0potd1]&#379;      \nREKONTROLA[color=red:2b0potd1]InfoTableLocal&gt;0 4 1 5 .  3m u i   &#729;&#729;&#729;&#729;  &#729;&#729;&#729;[/color:2b0potd1]&#379;[color=red:2b0potd1]      HELA 3r e s . d l   l . EXAPPR~1MUI   (RÇ4Ç4  /&#377;W4µ€/ [/color:2b0potd1]&#379;      AUGUSTO [color=red:2b0potd1]i   &#729;&#729;&#729;&#729;&#729;&#729;  &#729;&#729;&#729;&#729;f i l e s  9y s . e x e   . 0[/color:2b0potd1]&#379;[color=red:2b0potd1]      FULL  (RÇ4Ç4  2&#377;W4,€  B. m u i    =&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;  &#729;&#729;&#729;[/color:2b0potd1]&#379;[color=red:2b0potd1]      FULL =e x e . 0 4   1 5 GWESEX~1MUI   (RÇ4Ç4  5&#377;W4F€S[/color:2b0potd1]&#379;[color=red:2b0potd1]      HELA &#262;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;&#729;  &#729;&#729;&#729;&#729;e l . d l  &#262;l . 0 4 1 5   . m[/color:2b0potd1]&#379;[color=red:2b0potd1]      HELA &#262;n t r o l P   a n HFPCON~1MUI   (RÇ4Ç4  8&#377;W4—\n€- [/color:2b0potd1]&#379;      AUGUSTO [color=red:2b0potd1]2006062112:11:41     1204207105P03 2006062112:1[/color:2b0potd1]&#379;','',0,'Ag==','2b0potd1',1,0,'',13,0,0),(15167,3417,3,49,0,'213.82.134.66',1152006474,1,0,1,1,1,1,'','','Last summer I asked Help to all because the animation of tsbutton on 32 bit not run ok \n\nIf you can see the example of bus reservation you can see the tsbutton on (x)harbour not run ok \n\nBut none help me .....and I Not could convert my application on 32 bit... \n\nRegards','',0,'Ag==','37crvnky',1,0,'',49,0,0),(15168,3473,4,2,0,'87.218.146.73',1152006745,1,0,1,1,1,1,'','','Pawel,\n\nHave you tested it with FWH too ? Do you get the same results ?','',0,'Ag==','1okq7rti',1,0,'',2,0,0),(15169,3473,4,13,0,'213.76.252.200',1152007002,1,0,1,1,1,0,'','','Antonio,\n\nI test memo file only with Harbour MiniGUI. Memo file contains then text from control.\n\nPawel','',0,'Ag==','1onwtmo3',1,0,'',13,0,0),(15170,3472,6,83,0,'80.35.196.60',1152007362,1,0,1,1,1,0,'','','¿Si alguien tiene un prev32.dll correcto podría enviarmelo?\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'Ag==','3aaqarvl',1,0,'',83,0,0),(15171,3473,4,2,0,'87.218.146.73',1152008091,1,0,1,1,1,1,'','','Pawel,\n\nBut when displaying it from a dialogbox, does the memo text shows ok ?','',0,'Ag==','1g7dqyla',1,0,'',2,0,0),(15172,3432,3,449,0,'212.64.224.250',1152008479,1,0,1,1,1,1,'','','Hi, \n\nMy contribution. \n\n[code:dtpoje47]#include &quot;FiveWin&#46;ch&quot;\n\n*\n* Clase        &#58; ZLnk&#40;&#41;\n* Descripcion  &#58; Crear accesos directos\n* Autor        &#58; Carles Aubia\n* Fecha        &#58; 04&#46;07&#46;2006\n* Observaciones&#58; El acceso Ole se hace con la clase TOleAuto\n*\n\n\n/*  Test\n\n*--------------\nFUNCTION Main&#40;&#41;\n*--------------\n\n    LOCAL o\n\n    o &#58;= ZLnk&#40;&#41;&#58;New&#40; \'c&#58;\\winnt\\system32\\calc&#46;exe\' &#41;\n    o&#58;Run&#40;&#41;\n\n    o &#58;= ZLnk&#40;&#41;&#58;New&#40; \'c&#58;\\winnt\\system32\\calc&#46;exe\' &#41;\n    o&#58;cNameLnk     &#58;= \'Calculadora&#46;lnk\'\n    o&#58;cDescription &#58;= \'Calculadora del sistema\'\n    o&#58;Run&#40;&#41;\n\n\n\nRETU NIL\n\n*/\n\n\n// cFolder&#58; DeskTop, StartMenu, StartUp, Programs\n// cHotKey&#58; &quot;CTRL+SHIFT+C&quot;\n\n*---------\nCLASS ZLnk\n*---------\n\n    DATA cFolder            AS CHARACTER INIT \'Desktop\'\n    DATA cWindowStyle       AS NUMERIC   INIT 1\n    DATA cFile              AS CHARACTER INIT \'\'\n    DATA cWorkingDirectory  AS CHARACTER INIT \'\'\n    DATA cDescription       AS CHARACTER INIT \'\'\n    DATA cIconLocation      AS CHARACTER INIT \'\'\n    DATA cNameLnk           AS CHARACTER INIT \'\'\n    DATA cHotKey            AS CHARACTER INIT \'\'\n\n    METHOD New&#40; cFile &#41;  CONSTRUCTOR\n\n    METHOD Run&#40;&#41;\n\nENDCLASS\n\n\n*-----------------------------\nMETHOD New&#40; cFile &#41; CLASS ZLnk\n*-----------------------------\n\n    &#58;&#58;cFile &#58;= cFile\n\nRETU Self\n\n\n*----------------------\nMETHOD Run&#40;&#41; CLASS ZLnk\n*----------------------\n    LOCAL oShell, oSF, o\n    LOCAL cTarget\n\n    IF !File&#40; &#58;&#58;cFile &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    IF Empty&#40; &#58;&#58;cNameLnk &#41;\n       &#58;&#58;cNameLnk &#58;= cFileNoExt&#40; &#58;&#58;cFile &#41; + \'&#46;lnk\'\n    ENDIF\n\n    oShell  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;WScript&#46;Shell&quot; &#41;\n\n    IF oShell&#58;hObj == 0\n       RETU &#46;F&#46;\n    ENDIF\n\n    oSF     &#58;= oShell&#58;Get&#40; \'SpecialFolders\' &#41;\n\n    cTarget &#58;= oSF&#58;Item&#40; &#58;&#58;cFolder &#41;\n\n    IF Empty&#40; cTarget &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    o &#58;= oShell&#58;CreateShortCut&#40; cTarget + \'\\\' + &#58;&#58;cNameLnk &#41;\n\n    o&#58;WindowStyle      &#58;= &#58;&#58;cWindowStyle\n    o&#58;TargetPath       &#58;= &#58;&#58;cFile\n    o&#58;WorkingDirectory &#58;= &#58;&#58;cWorkingDirectory\n    o&#58;Description      &#58;= &#58;&#58;cDescription\n    o&#58;IconLocation     &#58;= &#58;&#58;cIconLocation\n    o&#58;HotKey           &#58;= &#58;&#58;cHotKey\n\n    o&#58;Save&#40;&#41;\n\nRETU &#46;T&#46;\n[/code:dtpoje47]\n\n\nRegards','',0,'AIA=','dtpoje47',1,0,'',449,0,0),(15173,3473,4,13,0,'213.76.252.200',1152008598,1,0,1,1,1,0,'','','Antonio,\n\nYes, multiget control show text properly. \nWhen I compare Harbour for PPC and Harbour for Windows sample memo files, its size is equal (one test code). In Harbour for Windows, in places where I mark as red, are null characters, in Harbour for PPC - various data. \nProbably this don\'t crash memo files in Pocket PC.\n\nPawel','',0,'AIA=','ygznag35',1,0,'',13,0,0),(15174,3474,2,375,0,'84.122.113.168',1152013095,1,0,1,1,1,1,'','cGetFile32. Diferentes Resultados','Me ocurren dos cosas extrañas con este comando.\n\n1) Resulta que en mi casa, con Window Me, al llamar cGetFile32 con el parámetro cInitialFile, el \"fichero inicial\" no aparece en el dialogo, aunque en RunDlg32.Ini si aparezca en el parámetro lpstrIniFile. Sin embargo en mi trabajo con XP si sale.\n2) Por otro lado, tanto en mi case (W.Me) como en el trabjao (XP) cGetFile32 llama al dialogo de 32 bits normal, mientras que en el de un cliente (XP) sale un formato similar al 16 Bit con nombres cortos, etc...\n\n¿Alguna Idea?\n\nMe haría falta solucionar lo del cInitialFile de mi ordenador (W.Me). Pero sobre todo lo del formato tipo 16 bit del cliente (XP).','',0,'AIA=','2l9ef36m',1,0,'',375,0,0),(15175,2980,6,422,0,'195.8.13.12',1152013211,1,0,1,1,1,1,'','...','Yo tambien estoy interesado en el curso.....\n\nSaludos...','',0,'AIA=','rlo5ore9',1,0,'',422,0,0),(15176,2203,17,375,0,'84.122.113.168',1152016462,1,0,1,1,1,1,'','','Perdona Fernando, el día que leí tu solicitud no pude contestar y después se me olvidó. Ahora repasando algunas cosas he vuelto a leer este Topic.\nAlgo debes estar haciendo mal, pués no depende de ninguna versión de FW, e incluso, debería funcionar en (x)Habour.\n\nA lo mejor no declaraste la variable en la que vas a guardar la sombra.\nO a lo mejor el dialogo al que quieres poner sombra devuelve un ::hWnd = 0\n\nEl caso es que si no te da error al compilar, no aparece un GDF durante la ejecución de tu aplicación, y la sombra no aparece es que algo está haciendo mal.\n\nUn saludo','',0,'AIA=','2cdv5z9u',1,0,'',375,0,0),(15177,3432,3,6,0,'82.57.162.91',1152016468,1,0,1,1,1,1,'','','I get the following error:\n\n[quote:32ljtil5]   Error description: Error WScript.Shell:CREATESHORTCUT/16389  E_FAIL: _ICONLOCATION\n   Args:\n     [   1] = C   \n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:_ICONLOCATION(0)\n   Called from: CREATELINK.prg =&gt; ZLNK:RUN(101)\n   Called from: CREATELINK.prg =&gt; MAIN(21)[/quote:32ljtil5]\n\nEMG','',0,'gA==','32ljtil5',1,0,'',6,0,0),(15179,3475,17,375,0,'84.122.113.168',1152018371,1,0,1,1,1,1,'','Otra Sugerencia GET','Hace algunos meses colgué algunas sugerencias para TGET\'s propios, que, como nadie me ha dicho nada en contra, ahí va otra que a un buen amigo mío le ha gustado mucho.\n\nConsiste en que en un Get cualquiera se pueda escribir consecutivamente el contenido de un array pulsando la barra espaciadora. Es decir, tengo un  array con cuatro o cinco datos (pocos), y en el GET pulsando \"Espacio\" se escribe el primer elemento del array. Pulso \"espacio\" otra vez y se escribe el segundo, etc.. todo ello sin perder la capacidad de poder escribir en el GET lo que queramos. La única condición para rotar el array dentro del GET es que el contenido de éste esté vacio o contenga uno de los elementos del ARRAY. Es un buen sustituto del COMBOBOX.\n\nYo lo utilizo en una ficha de personal para los GET\'s donde algunos valores se repiten mucho. Por ejemplo, para Hobbies tengo el array: {\"DeporteS\",\"Informática\",\"Jardinería\",\"Lectura\",\"Maquetas\"}. Cuando se va rellenar la ficha, si al socio le gusta leer, pulso cuatro veces la barra espaciadora. Si tuviese un hobby distinto, simplemente lo escribo.\n\nPor si a alguién le interesa, este es el código:\n\n1) añadir los datas:\n\nDATA aVals    AS ARRAY\nDATA nVals    AS NUMERIC INIT 1\n\n2) modificar el método:\n\nMETHOD KeyChar( nKey, nFlags )  CLASS MIGET\n...\n...\nIF ::aVals # NIL .AND. nKey = VK_SPACE		//	RECORRIDO TABLA CON \'ESPACIO\'\nnAt   := ASCAN(::aVals,{ |a| RTRIM(a) == RTRIM(::cText) })\n        nLong := LEN(::cText)\n        IF Empty(::cText) .OR. nAt &gt; 0\n                ::nVals := IF(nAt = LEN(::aVals), 1, nAt+1)\n                ::cText( PADR(::aVals[::nVals],nLong) )\n                ::SetPos( 1 )\n                RETURN 0\n        ENDIF\nENDIF\n...\n...\nRETURN Super:KeyChar( nKey, nFlags )\n\nEspero que os guste.','',0,'','27zkfqme',1,0,'',375,0,0),(15180,3417,3,51,0,'80.122.88.242',1152018904,1,0,1,1,1,0,'','','Where is the example bus reservation?','',0,'','s1nlrhis',1,0,'',51,0,0),(15181,3469,6,264,0,'200.91.3.10',1152019087,1,0,1,1,1,0,'','','Antes de esto activé en la ventana principal...\n\n[code:2863a7ea]\nhborland &#58;= LoadLibrary&#40;&quot;BWCC32&#46;dll&quot;&#41;\nBWCCRegister&#40; GetResources&#40;&#41; &#41;\n&#46;&#46;&#46;&#46;[/code:2863a7ea]\n\nluego llama a una funcion que despliega la caja con algunas configuraciones.... ( imagen fuentesdistintas2.jpg )\n\n[code:2863a7ea]\nRecurso&#40; &quot;PalmZap&#46;Dll&quot; &#41;\nDEFINE DIALOG oDlg RESNAME &quot;Nexos_001&quot; Of oWndp\n\nREDEFINE GET      oNexos&#91;1&#93; VAR aNexos&#91;1&#93; ID 100 Of oDlg\nREDEFINE GET      oNexos&#91;2&#93; VAR aNexos&#91;2&#93; ID 101 Of oDlg\nREDEFINE COMBOBOX oNexos&#91;3&#93; VAR aNexos&#91;3&#93; ITEMS aModalidades ID 102 Of oDlg ;\n         ON CHANGE If&#40; aNexos&#91;4&#93; == 1,;\n                       &#40; aNexos&#91;5&#93; &#58;= aListaModali&#91; AScan&#40; aListaModali, &#123;|x| x&#91;1&#93; == aNexos&#91;3&#93; &#125; &#41;, 2 &#93;,;\n                         aNexos&#91;5&#93; &#58;= aListas&#91; AScan&#40; aListas, &#123;|x| Left&#40;x,8&#41; == aNexos&#91;5&#93; &#125; &#41; &#93;,;\n                         oNexos&#91;5&#93;&#58;Refresh&#40;&#41; &#41;,;\n                       &#40; aNexos&#91;5&#93; &#58;= Spac&#40;8&#41;,;\n                         oNexos&#91;5&#93;&#58;Refresh&#40;&#41; &#41; &#41; ;\n         VALID &#40; Eval&#40; oNexos&#91;3&#93;&#58;bChange &#41;, &#46;T&#46; &#41;\noNexos&#91;3&#93;&#58;bGotFocus &#58;= &#123;|| Eval&#40; oNexos&#91;3&#93;&#58;bChange &#41; &#125;\n\nREDEFINE RADIO    oNexos&#91;4&#93; VAR aNexos&#91;4&#93; ID 103,104 Of oDlg ON CLICK Eval&#40; oNexos&#91;3&#93;&#58;bChange &#41;\n\nREDEFINE COMBOBOX oNexos&#91;5&#93; VAR aNexos&#91;5&#93; ITEMS aListas ID 105 Of oDlg\nREDEFINE RADIO    oNexos&#91;6&#93; VAR aNexos&#91;6&#93; ID 106,107 Of oDlg\nREDEFINE RADIO    oNexos&#91;7&#93; VAR aNexos&#91;7&#93; ID 108,109 Of oDlg\n\nREDEFINE GET      oNexos&#91;8&#93; VAR aNexos&#91;8&#93; ID 110 Of oDlg\n\nREDEFINE BUTTON oBtnSalir  ID 150 Of oDlg ACTION oDlg&#58;End&#40;&#41;\nREDEFINE BUTTON oBtnGrabar ID 160 Of oDlg ACTION &#40; Grabar&#40; aNexos, cModo &#41;, oDlg&#58;End&#40;&#41; &#41;\n\nACTIVATE DIALOG oDlg CENTERED\n[/code:2863a7ea]\n\n\nLas fuentes son las estandar, aqui esta la caja del RC\n\n\n[code:2863a7ea]\nNEXOS_001 DIALOG 115, 105, 355, 167\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Configuración de Sistema&quot;\nFONT 8, &quot;Ms Sans Serif&quot;\n&#123;\n EDITTEXT 100, 146, 14, 87, 12\n EDITTEXT 101, 146, 30, 188, 12\n COMBOBOX 102, 146, 46, 60, 82, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP\n RADIOBUTTON &quot;Modalidad&quot;, 103, 147, 63, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP\n RADIOBUTTON &quot;Cliente&quot;, 104, 207, 63, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP\n COMBOBOX 105, 146, 76, 188, 82, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP\n RADIOBUTTON &quot;Palm&quot;, 106, 147, 93, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP\n RADIOBUTTON &quot;Sistema&quot;, 107, 207, 93, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP\n RADIOBUTTON &quot;Palm&quot;, 108, 147, 107, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP\n RADIOBUTTON &quot;Sistema&quot;, 109, 207, 106, 60, 12, BS_AUTORADIOBUTTON | WS_TABSTOP\n EDITTEXT 110, 146, 119, 28, 12\n PUSHBUTTON &quot;&amp;Salir&quot;, 150, 7, 145, 50, 14\n PUSHBUTTON &quot;&amp;Grabar&quot;, 160, 60, 145, 50, 14\n RTEXT &quot;Descripción &#58;&quot;, -1, 8, 32, 135, 8\n RTEXT &quot;Modalidad &#58;&quot;, -1, 8, 48, 135, 8\n RTEXT &quot;Utilizar Lista de Precios desde &#58;&quot;, -1, 8, 64, 135, 8\n RTEXT &quot;Lista de Precios &#58;&quot;, -1, 8, 79, 135, 8\n RTEXT &quot;Fecha de Notas de Venta desde &#58;&quot;, -1, 8, 94, 135, 8\n RTEXT &quot;Fecha de Pagos desde &#58;&quot;, -1, 8, 109, 135, 8\n RTEXT &quot;Largo del Número PDA &#58; &quot;, -1, 8, 122, 135, 8\n RTEXT &quot;DSN de Conexion ODBC &#58;&quot;, -1, 8, 16, 134, 8\n GROUPBOX &quot;&quot;, -1, 9, 2, 336, 137, BS_GROUPBOX\n&#125;\n[/code:2863a7ea]\n\nDe esta manera compilo para obtener el DLL\n\n[code:2863a7ea]\nc&#58;\\bcc55\\bin\\bcc32 -c screen32&#46;c\n\nc&#58;\\bcc55\\bin\\brc32 -r palmzap&#46;rc\nc&#58;\\bcc55\\bin\\brc32 -r TemaXP&#46;rc\n\nc&#58;\\bcc55\\bin\\ilink32 /Tpd c&#58;\\bcc55\\lib\\c0d32&#46;obj screen32&#46;obj, palmzap&#46;dll,,c&#58;\\bc55\\lib\\cw32&#46;lib c&#58;\\bcc55\\lib\\import32&#46;lib,, palmzap&#46;res TemaXp&#46;res\n\nIF ERRORLEVEL 1 PAUSE\n\ndel *&#46;i*\ndel *&#46;map\ndel *&#46;obj\ndel *&#46;res\ndel *&#46;tds\n\ncopy palmzap&#46;dll &#46;&#46; /y\ndel palmzap&#46;dll\n\necho done!\n[/code:2863a7ea]','',0,'AIA=','2863a7ea',1,0,'',264,0,0),(15182,3473,4,2,0,'87.218.146.73',1152021738,1,0,1,1,1,1,'','','Pawel,\n\nWith FWPPC we are not using the most recent Harbour build yet. Maybe thats the reason why the files are different.','',0,'AIA=','1kdrlu1k',1,0,'',2,0,0),(15183,3469,6,2,0,'87.218.146.73',1152021925,1,0,1,1,1,1,'','','Por favor, intenta que el ejemplo sea pequeño y autocontenido para facilitar el soporte técnico. Gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2pltrwef',1,0,'',2,0,0),(15186,3465,2,265,0,'80.59.225.15',1152030921,1,0,1,1,1,0,'','','Después del listbox\n\n  ACTIVATE DIALOG oDlg NOWAIT CENTERED ;\n  ON INIT (oDlg:Move( 0, 0 ));\n  ON PAINT (odlg:Saybitmap(0,0,\"Nubes.bmp\",oDlg:nWidth,oDlg:nHeight))\n\n   oWndChild:nWidth := oDlg:nWidth+7\n   oWndChild:nHeight := oDlg:nHeight+32\n\n   ACTIVATE WINDOW oWndChild ON INIT oWPpal:paint() VALID ( oLbx:lCloseArea() ,.t.)\n\n  avisos-&gt; (dbCloseArea())\n  PROVE-&gt;  (dbCloseArea())\n  conduc-&gt; (Dbclosearea())\n  Almacen-&gt;(Dbclosearea())\n  Ruta-&gt;   (Dbclosearea())\n  Munici-&gt; (Dbclosearea())\nreturn nil\n\nSaludos\n\nJose Luis','',0,'AIA=','2kend7jr',1,0,'',265,0,0),(15187,3470,6,100,0,'201.16.38.61',1152031967,1,0,1,1,1,0,'','','Antonio\n\nGracias <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  era somente los includes de harbour que estavam com os do xharbour 99.2\n\nSalu2','',0,'AIA=','3uvv3ugy',1,0,'',100,0,0),(15188,3465,2,2,0,'87.218.146.73',1152032120,1,0,1,1,1,1,'','','Jose Luis,\n\nLa ejecución no se detiene en:\n[code:3h69k2cw]\nACTIVATE WINDOW oWndChild ON INIT oWPpal&#58;paint&#40;&#41; VALID &#40; oLbx&#58;lCloseArea&#40;&#41; ,&#46;t&#46;&#41; \n[/code:3h69k2cw]\nporque es no modal, por lo que llega a:\n[code:3h69k2cw]\navisos-&gt; &#40;dbCloseArea&#40;&#41;&#41; \nPROVE-&gt; &#40;dbCloseArea&#40;&#41;&#41; \nconduc-&gt; &#40;Dbclosearea&#40;&#41;&#41; \nAlmacen-&gt;&#40;Dbclosearea&#40;&#41;&#41; \nRuta-&gt; &#40;Dbclosearea&#40;&#41;&#41; \nMunici-&gt; &#40;Dbclosearea&#40;&#41;&#41; \n[/code:3h69k2cw]\ny cierra las bases de datos. No debes cerrar las bases de datos ahí, sino despues del ACTIVATE WINDOW principal, que si es modal y detiene la ejecución.','',0,'AIA=','3h69k2cw',1,0,'',2,0,0),(15189,3465,2,265,0,'80.59.225.15',1152032220,1,0,1,1,1,0,'','','Gracias Antonio\n\nNo me habia dado cuenta que había dejado el cierre de las bases de datos del código anterior.\n\nSaludos\n\nJose Luis','',0,'AIA=','3h0bvtsh',1,0,'',265,0,0),(15190,2980,6,138,0,'201.154.236.107',1152033215,1,0,1,1,1,1,'','','Bien, ante tanta insistencia y tan poca resistencia de mi parte, voy a elaborar un curso web, solo que les pido que me den un poco de tiempo.\n\nSupongo que muchos se van de vacaciones de verano, asi que me si dan el mes de julio y un poco de agosto, puedo poner en la web los principios basicos y asi vamos completandolo poco a poco.\n\nAlguien dice yo ?','',0,'AIA=','3f44aq5i',1,0,'',138,0,0),(15191,3468,6,138,0,'201.154.236.107',1152033728,1,0,1,1,1,1,'','','Pues va a ser que no.\n\nEl DBCombo llena sus items a partir del contenido de una base de datos, eso lo hace en elmetodo constructor del control y a partir de ahi se convierte en un combo normal, sin ninguna relacion con la base de datos, es decir, no se actualiza cuando el DBF cambia.\n\nLo que tienes que hacer y eso manualmente, es volver a hacer un barrido de la base de dato, rellenando un nuevo array y luego con el metodo ::SETITEMS() cargar los valores nuevos.','',0,'AIA=','1juadej5',1,0,'',138,0,0),(15192,3438,7,138,0,'201.154.236.107',1152035156,1,0,1,1,1,1,'','','Pues va a ser que no.\n\nNo hay cliente ADS para Pocket PC, no puedes conectarte a ADS sin los DLLs del cliente.\n\nNi el AXWCS32.DLL ni el ACE32.DLL,  son \"leibles\" por el RDDADS compilado para PPC.\n\nLlevo un tiempo preguntado en Extended Systems sobre la posibilidad de tener un cliente para PPC, pero no estan mucho por la labor.\n\nSin embargo me comentan que el cliente JDBC podria funcionar, pero claro, habria que hacer todo en Java.','',0,'AIA=','1ww2l3jl',1,0,'',138,0,0),(15193,3468,6,46,0,'217.168.114.27',1152037817,1,0,1,1,1,0,'','','Agrega este methodo a DbCombo.prg\n[code:1zz1ap6f]METHOD Update&#40;&#41; CLASS TDBCombo\n   Local bChange&#58;= &#58;&#58;bChange\n\n   &#58;&#58;bChange&#58;= Nil\n   &#58;&#58;Reset&#40;&#41;\n   &#58;&#58;Fill&#40;&#41;\n   &#58;&#58;Default&#40;&#41;\n\n   &#58;&#58;bChange &#58;= bChange\n\n   Return NIl[/code:1zz1ap6f]\n\ndespues es solo hace\n\noCmb:Update)\n\nSaludos','',0,'AIA=','1zz1ap6f',1,0,'',46,0,0),(15194,3472,6,2,0,'87.218.146.73',1152038072,1,0,1,1,1,1,'','','Jose Vicente,\n\nEstamos revisándolo para proporcionar uno que funcione correctamente.','',0,'AIA=','30h30wfr',1,0,'',2,0,0),(15195,3472,6,2,0,'87.218.146.73',1152038681,1,0,1,1,1,1,'','','Jose Vicente,\n\nAqui lo tienes en español y funcionando correctamente:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b383b787/prev32.dll.html\">http://hyperupload.com/download/02b383b ... 2.dll.html</a><!-- m -->','',0,'AIA=','lfdbstw4',1,0,'',2,0,0),(15196,3448,1,2,0,'87.218.146.73',1152039695,1,0,1,1,1,1,'','','Philippe,\n\nIt is a Windows issue. Under 16 bits GetEnv( \"TEMP\" ) returns \"c:\\windows\\temp\" and under 32 bits GetEnv( \"TEMP\" ) return \"c:\\documents and settings\\&lt;username&gt;\\...\\temp\"\n\nEven if you try it this way, you get the different results:\n[code:14gtn9rp]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local cValue &#58;= Space&#40; 256 &#41;\n\n   MsgInfo&#40; GetEnv&#40; &quot;TEMP&quot; &#41; &#41;\n   \n   GetEnvironmentVariable&#40; &quot;TEMP&quot;, cValue, Len&#40; cValue &#41; &#41;\n   \n   MsgInfo&#40; cValue &#41;\n   \nreturn nil \n\nDLL32 FUNCTION GetEnvironmentVariable&#40; cName AS LPSTR, cValue AS LPSTR, nLen AS LONG &#41; ;\n   AS LONG PASCAL FROM &quot;GetEnvironmentVariableA&quot; LIB &quot;kernel32&#46;dll&quot;  \n[/code:14gtn9rp]','',0,'AIA=','14gtn9rp',1,0,'',2,0,0),(15197,2980,6,40,0,'200.77.120.181',1152040836,1,0,1,1,1,0,'','','Presente Maestro, me apunto\n\nSaludos\nJoel Andujo','',0,'AIA=','1ho2skpc',1,0,'',40,0,0),(15198,3468,6,2,0,'87.218.146.73',1152040869,1,0,1,1,1,1,'','','Gracias por la aportación, lo añadimos a la clase <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2634n9u8',1,0,'',2,0,0),(15199,3474,2,2,0,'87.218.146.73',1152041032,1,0,1,1,1,1,'','','Manu,\n\nHas copiado rundlg32.exe en el ordenador del cliente ?','',0,'AIA=','3pwogpoc',1,0,'',2,0,0),(15200,3474,2,375,0,'84.122.98.171',1152041724,1,0,1,1,1,1,'','','Buena pregunta, Antonio. Lo comprobaré.\n\nEn cualquier caso, ¿dónde hay que copiarlo; al directorio de la aplicación o al WINDOW/SYSTEM?\n\nGracias.','',0,'AIA=','3awkm7id',1,0,'',375,0,0),(15202,3476,3,435,0,'200.155.193.235',1152046187,1,0,1,1,1,0,'','Build DLL','How to build DLL for FWH-Harbour ?\n\nExample ?\n\nDLL with source code..\n\nComo eu faço para criar DLL de funcoes ?','',0,'AIA=','1if5f1o6',1,0,'',435,0,0),(15203,3476,3,2,0,'87.218.146.73',1152053343,1,0,1,1,1,1,'','','Ari,\n\nPlease review this Harbour docs for DLLs development:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02cdd50750/windll.txt.html\">http://hyperupload.com/download/02cdd50 ... l.txt.html</a><!-- m -->','',0,'AIA=','18dnyfw8',1,0,'',2,0,0),(15204,3474,2,2,0,'87.218.146.73',1152053416,1,0,1,1,1,1,'','','Manu,\n\nAl directorio de la aplicación.','',0,'AIA=','20eycoqy',1,0,'',2,0,0),(15205,3468,6,147,0,'190.7.10.2',1152054104,1,0,1,0,1,1,'','','Gente; muchas gracias!\nMe alegro que mi consulta sirviera para mejorar la clase! :-)\n\nsaludos','',0,'AIA=','23n3rbf1',1,0,'',147,0,0),(15206,3477,6,307,0,'201.130.132.101',1152054923,1,0,1,1,1,0,'','algo sencillo','tengo un scope en una tabla\n\nsi hago ? mitabla-&gt;(reccount()), me manda todos los registros de la base\n\npero si hago el ciclo while !eof(), me da 100 registros por ejemplo.\n\nla pregunta es: como puedo saber la cantidad de registros que tengo en el scope?..\n\nsaludos\nArnulfo','',0,'AIA=','52s57qfb',1,0,'',307,0,0),(15207,3478,6,307,0,'201.130.132.101',1152055126,1,0,1,1,1,0,'','cantidad de registros en un Scope..','como puedo saber la cantidad de registros que tengo en un scope?\n\n  reccount() me da el total de registros de la tabla...\nhay a alguna funcion?..\n\nsaluds\narnulfo','',0,'AIA=','178rdavn',1,0,'',307,0,0),(15208,3478,6,511,0,'201.243.138.152',1152059594,1,0,1,0,1,0,'','','Utiliza:\n\nalias-&gt;( ordkeycount() )\n\nSaludos','',0,'AIA=','3c9l92ze',1,0,'',511,0,0),(15209,3478,6,307,0,'201.130.132.101',1152063773,1,0,1,1,1,0,'','gracias','Gracias... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','2sxpfvg6',1,0,'',307,0,0),(15210,3477,6,295,0,'201.222.158.140',1152065788,1,0,1,1,1,1,'','','Verifica si no tienes SET DELE On','',0,'AIA=','22ry3q8e',1,0,'',295,0,0),(15211,2980,6,295,0,'201.222.158.140',1152066294,1,0,1,1,1,1,'','','yo también !! me inscribo !!\n\nSALUDOS A TODOS','',0,'AIA=','2ebztf3d',1,0,'',295,0,0),(15212,2980,6,179,0,'64.46.69.226',1152070655,1,0,1,1,1,1,'','','Mestro me apunto, por favor si nos puede dar fechas tentativas y asi como un precio aproximado\n\nSaludos','',0,'AIA=','10p6gp1c',1,0,'',179,0,0),(15213,3479,6,643,0,'200.94.71.124',1152078311,1,0,1,1,1,0,'','Problemas con el TwBrwose de Hernan y de Rossine','tengo problemas para cargar el browse\nya que no me parece el doble lineado de la cabesera\n[img:2ca2n0jx]http&#58;//img206&#46;imageshack&#46;us/img206/2389/errorbrowsecabesera1qt&#46;png[/img:2ca2n0jx]\nen esta imagen ya esta agregado el salto de linea aun asi no aparece\nla programacion esta asi:\n[quote:2ca2n0jx]\n   REDEFINE BROWSE oBrw  ALIAS \"PARTIDAS\" ID 109 OF oDlg \n\n   ADD COLUMN TO oBrw;\n       HEADER \"Cantidad\" ;\n       SIZE 60 PIXELS;\n       DATA FieldWBlock( \"Cantidad\", Select( \"PARTIDAS\" ) ) ;\n       ALIGN RIGHT\n\n   ADD COLUMN TO oBrw;\n       HEADER \"Clave del\" + CRLF + \"Articulo\" ;  // multi-line feature on headers\n       SIZE 75 PIXELS;\n       DATA FieldWblock( \"Clave\", Select( \"PARTIDAS\" ) ) ;\n       ALIGN LEFT\n[/quote:2ca2n0jx]\n y en el RC \n[quote:2ca2n0jx]CONTROL \"ListBox1\", 109, \"TWBrowse\", BS_MULTILINE | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 247, 93, 421, 272, 0\n[/quote:2ca2n0jx]\n\nasi tambien si uso directamente la libreria de Rossine \nno se coloca en donde esta definido en el recurso si no se posiciona alprincipio del dialogo como se ve en esta imagne \n\n[img]\n<!-- m --><a class=\"postlink\" href=\"http://img89.imageshack.us/img89/1890/errordialogo9tt.png\">http://img89.imageshack.us/img89/1890/e ... ogo9tt.png</a><!-- m -->\n[/img]\n\nque pudiera pasar ?\n\nestoy trabajando con la version de fivewin 2.7 February/2006 \ny con la de xHarbour Compiler build 0.99.61 (SimpLex)\n\nme podrian auxiliar\n\nsaludos cordiales','',0,'iA==','2ca2n0jx',1,0,'',643,0,0),(15214,3432,3,449,0,'212.64.224.250',1152081016,1,0,1,1,1,1,'','','Enrico,\n\nCan you try ?\n\n[code:1vlikxkm]#include &quot;FiveWin&#46;ch&quot;\n\n*\n* Clase        &#58; ZLnk&#40;&#41;\n* Descripcion  &#58; Crear accesos directos\n* Autor        &#58; Carles Aubia\n* Fecha        &#58; 04&#46;07&#46;2006\n* Modificacion &#58; 05&#46;07&#46;2006\n* Observaciones&#58; El acceso Ole se hace con la clase TOleAuto\n*\n\n\n/*  Test\n\n*--------------\nFUNCTION Main&#40;&#41;\n*--------------\n\n    LOCAL o\n\n    o &#58;= ZLnk&#40;&#41;&#58;New&#40; \'c&#58;\\winnt\\system32\\calc&#46;exe\' &#41;\n    o&#58;Run&#40;&#41;\n\n    o &#58;= ZLnk&#40;&#41;&#58;New&#40; \'c&#58;\\winnt\\system32\\calc&#46;exe\' &#41;\n    o&#58;cNameLnk      &#58;= \'Calculadora&#46;lnk\'\n    o&#58;cDescription  &#58;= \'Calculadora del sistema\'\n    o&#58;cIconLocation &#58;= \'c&#58;\\temp\\alert&#46;ico\'\n\n    Msginfo&#40; o&#58;IsLnk&#40;&#41; &#41;\n\n    o&#58;Run&#40;&#41;\n\n\nRETU NIL\n\n*/\n\n\n// cFolder&#58; DeskTop, StartMenu, StartUp, Programs\n// cHotKey&#58; &quot;CTRL+SHIFT+C&quot;\n\n*---------\nCLASS ZLnk\n*---------\n\n    DATA cFolder            AS CHARACTER INIT \'Desktop\'\n    DATA nWindowStyle       AS NUMERIC   INIT 1\n    DATA cFile              AS CHARACTER INIT \'\'\n    DATA cWorkingDirectory  AS CHARACTER INIT \'\'\n    DATA cDescription       AS CHARACTER INIT \'\'\n    DATA cIconLocation      AS CHARACTER INIT \'\'\n    DATA cNameLnk           AS CHARACTER INIT \'\'\n    DATA cHotKey            AS CHARACTER INIT \'\'\n\n    METHOD New&#40; cFile &#41;  CONSTRUCTOR\n\n    METHOD IsLnk&#40;&#41;\n\n    METHOD Run&#40;&#41;\n\nENDCLASS\n\n\n*-----------------------------\nMETHOD New&#40; cFile &#41; CLASS ZLnk\n*-----------------------------\n\n    &#58;&#58;cFile &#58;= cFile\n\nRETU Self\n\n\n*----------------------\nMETHOD Run&#40;&#41; CLASS ZLnk\n*----------------------\n    LOCAL oShell, oSF, o\n    LOCAL cTarget\n\n    IF !File&#40; &#58;&#58;cFile &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    IF Empty&#40; &#58;&#58;cNameLnk &#41;\n       &#58;&#58;cNameLnk &#58;= cFileNoExt&#40; &#58;&#58;cFile &#41; + \'&#46;lnk\'\n    ENDIF\n\n    oShell  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;WScript&#46;Shell&quot; &#41;\n\n    IF oShell&#58;hObj == 0\n       RETU &#46;F&#46;\n    ENDIF\n\n    oSF     &#58;= oShell&#58;Get&#40; \'SpecialFolders\' &#41;\n\n    cTarget &#58;= oSF&#58;Item&#40; &#58;&#58;cFolder &#41;\n\n    IF Empty&#40; cTarget &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    o &#58;= oShell&#58;CreateShortCut&#40; cTarget + \'\\\' + &#58;&#58;cNameLnk &#41;\n\n    o&#58;WindowStyle      &#58;= &#58;&#58;nWindowStyle\n    o&#58;TargetPath       &#58;= &#58;&#58;cFile\n    o&#58;WorkingDirectory &#58;= IF&#40; !Empty&#40; &#58;&#58;cWorkingDirectory &#41;, &#58;&#58;cWorkingDirectory, NIL &#41;\n    o&#58;Description      &#58;= IF&#40; !Empty&#40; &#58;&#58;cDescription      &#41;, &#58;&#58;cDescription     , NIL &#41;\n    o&#58;IconLocation     &#58;= IF&#40; !Empty&#40; &#58;&#58;cIconLocation     &#41;, &#58;&#58;cIconLocation    , NIL &#41;\n    o&#58;HotKey           &#58;= IF&#40; !Empty&#40; &#58;&#58;cHotKey           &#41;, &#58;&#58;cHotKey          , NIL &#41;\n\n    o&#58;Save&#40;&#41;\n\nRETU &#46;T&#46;\n\n*------------------------\nMETHOD IsLnk&#40;&#41; CLASS ZLnk\n*------------------------\n    LOCAL oShell, oSF, o\n    LOCAL cTarget\n    LOCAL cFileLnk\n\n    IF !File&#40; &#58;&#58;cFile &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    IF Empty&#40; &#58;&#58;cNameLnk &#41;\n       &#58;&#58;cNameLnk &#58;= cFileNoExt&#40; &#58;&#58;cFile &#41; + \'&#46;lnk\'\n    ENDIF\n\n    oShell  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;WScript&#46;Shell&quot; &#41;\n\n    IF oShell&#58;hObj == 0\n       RETU &#46;F&#46;\n    ENDIF\n\n    oSF     &#58;= oShell&#58;Get&#40; \'SpecialFolders\' &#41;\n\n    cTarget &#58;= oSF&#58;Item&#40; &#58;&#58;cFolder &#41;\n\n    IF Empty&#40; cTarget &#41;\n       RETU &#46;F&#46;\n    ENDIF\n\n    cFileLnk &#58;= cTarget + \'\\\' + &#58;&#58;cNameLnk\n\nRETU File&#40; cFileLnk &#41;\n\n[/code:1vlikxkm]\n\nRegards.','',0,'AIA=','1vlikxkm',1,0,'',449,0,0),(15215,3472,6,83,0,'80.35.196.60',1152084202,1,0,1,1,1,0,'','','Gracias Antonio <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','vl7qgihd',1,0,'',83,0,0),(15216,3480,3,67,0,'62.235.24.245',1152085183,1,0,1,1,1,0,'','Determining column position printer','Hello\n\nIn Clipper we can :\n\n? \"Test\"\n?? \"Continue after test\"\n\nNow we have \noPrn:say(nrow,ncol,\"test\")\noPrn:say(nrow, ???? , \"Continue after test\")\nHow we know the column position ?\n\nWith courier new i have no problems , but with other fonts it seems that we have to know the width from each character.\n\nIs it possible ?\n\nFrank','',0,'AIA=','3es9glf5',1,0,'',67,0,0),(15217,3417,3,130,0,'141.51.32.24',1152086700,1,0,1,1,1,0,'','','[quote=&quot;Timm Sodtalbers&quot;:3k2n42ga]Perhaps someone can send my Bpaint.obj (built with the latest xHarbour version)?[/quote:3k2n42ga]\n\nTim,\n\nBPaint should  be independent of the version of xHarbour. It´s a C-module.\nI can mail you the obj, if you want\n\nStefan','',0,'gA==','3k2n42ga',1,0,'',130,0,0),(15218,3417,3,58,0,'84.149.233.170',1152087275,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:2pd1us3l]Where is the example bus reservation?[/quote:2pd1us3l]\nHello Otto,\n\nif you run testbtn.exe from Manuel Mercado you have a sample of button matrixes.\nIt\'s the second button from the left of the button bar. ( Superman Sign ;- )\n\nThere you can see buttons with a roll over effect.\n\nRegards,\nDetlef','',0,'gA==','2pd1us3l',1,0,'',58,0,0),(15219,3417,3,130,0,'141.51.32.24',1152087471,1,0,1,1,1,0,'','','I ´ve built the lib with XHarbour 099.60. But I can´t test it, cause I´ve only FWH2.4.\n\nEveryone who want´s to get it, please drop me a line\n\nStefan','',0,'gA==','1heij9zo',1,0,'',130,0,0),(15220,3481,7,57,0,'83.53.62.133',1152087843,1,0,1,1,1,1,'','¿Estan incluidas las funciones de pintado GDI?','Antonio\n\nEstan incluidas las funciones de pintado GDI. (Rectangle, polypolygon,etc)\n\nO en su caso ¿Cuales NO estan incluidas?\n\nSaludos\nToni Sales','',0,'gA==','k3ftrrns',1,0,'',57,0,0),(15221,3480,3,130,0,'141.51.32.24',1152087856,1,0,1,1,1,0,'','','Frank,\n\nyou can use  GetTextWidth() to get the length of a string. \n\nMaybe it´s better to use oPrn:cmSay() instead of oPrn:Say(). So you can easier control the printposition\n\nStefan','',0,'gA==','h9nxedwb',1,0,'',130,0,0),(15222,3432,3,6,0,'82.54.221.118',1152089409,1,0,1,1,1,1,'','','Same error:\n\n   Error description: Error WScript.Shell:CREATESHORTCUT/16389  E_FAIL: _ICONLOCATION\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:_ICONLOCATION(0)\n   Called from: CREATELINK2.prg =&gt; ZLNK:RUN(107)\n   Called from: CREATELINK2.prg =&gt; MAIN(22)\n\nEMG','',0,'','17dsp94t',1,0,'',6,0,0),(15223,3482,3,6,0,'82.54.221.118',1152089574,1,0,1,1,1,1,'','cFilePath() bug','The followin sample shows \"\\\" while it should show \"\" (empty string):\n\n[code:knvg6faf]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    ? CFILEPATH&#40; &quot;test&#46;txt&quot; &#41;\n\n    RETURN NIL[/code:knvg6faf]\n\nEMG','',0,'AIA=','knvg6faf',1,0,'',6,0,0),(15224,3481,7,2,0,'87.218.146.73',1152089726,1,0,1,1,1,1,'','','Toni,\n\nEl fichero source\\winapi\\drawing.c no está incluido ya que hay funciones que no están soportadas en Windows Mobile.\n\nCuales necesitas ?\n\nRecuerda que puedes usar #pragma BEGINDUMP para rapidamente añadir funciones que necesites del API.','',0,'AIA=','2heq1rvy',1,0,'',2,0,0),(15225,3481,7,57,0,'83.53.62.133',1152092052,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:es8gv4cf]Toni,\n\nEl fichero source\\winapi\\drawing.c no está incluido ya que hay funciones que no están soportadas en Windows Mobile.\n\nCuales necesitas ?\n\nRecuerda que puedes usar #pragma BEGINDUMP para rapidamente añadir funciones que necesites del API.[/quote:es8gv4cf]\n\nAntonio\nAhora mismo necesito Polypolygon y \"familia\". \nEstoy traspasando una clase que utilizo mucho en FWH BTNGET  a FWPPC y utiliza esta función GDI.\n\nSaludos\nToni Sales','',0,'gA==','es8gv4cf',1,0,'',57,0,0),(15226,3417,3,49,0,'213.82.134.66',1152092796,1,0,1,1,1,1,'','','For  all :\nthese are the lines  into testbtn.prg  \n\nthis func create a bus reservation  with many seats\nif you click on each  the button not modify the image ( in (x)harbour e fw)\n\nWhy ?\n\n\n\n\n\n\n\n[code:25xq1a4c]\nStatic Function Child3&#40;&#41;\n\n   // using matrixes of Super Buttons\n\n   Local oFont, oFont1, nEle, bAction, oBut, nAct, nSub, oBar, oBar1, ;\n         aBtn1, aBtn2, aCapt1, aCapt2, aAct1, aAct2\n\n   If aChild&#91; 3 &#93; == Nil\n\n      // Method Disable&#40;&#41; permits virtually inactivate a button &#40;not actually&#41;,\n      // it can be done by passing a key code as parameter&#46;\n      // To use this facility, is necessary to define the third bitmap &#40;inactive\n      // state&#41; or a multi-bitmap &#40;4 in 1&#41;&#46;\n      bAction &#58;= &#123;|oBtn| oBtn&#58;cCaption &#58;= &quot;&quot;, oBtn&#58;Disable&#40; VK_RBUTTON &#41;, ;\n                         oBtn&#58;Refresh&#40;&#41; &#125;\n\n      DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -12\n      DEFINE FONT oFont1 NAME &quot;Arial&quot; SIZE 0, -8\n\n      DEFINE WINDOW aChild&#91; 3 &#93; OF oWnd FROM 0, 0 TO 250, 500 PIXEL ;\n             TITLE &quot;Super Buttons  Matrixes of Buttons&#46; &quot; + ;\n                   &quot;  Bus Reservations&quot; ;\n             COLOR CLR_BLACK, CLR_CYAN ;\n             MDICHILD\n\n      // playing with empty buttonbars just for aparience\n      DEFINE BUTTONBAR oBar OF aChild&#91; 3 &#93; SIZE 10, 10 LEFT\n      DEFINE BUTTONBAR oBar1 OF aChild&#91; 3 &#93; SIZE 20, 20 RIGHT\n\n      // un array para los objetos TSButton\n      // para matrices de botones, el array debe ser bidimensional\n      aBtn1 &#58;= &#123; Array&#40; 10 &#41;, Array&#40; 10 &#41; &#125; // matriz de botones\n\n      // buttons actions must be codeblocks contained in a unidimentional\n      // array\n      aAct1 &#58;= Array&#40; 20 &#41;\n      AFill&#40; aAct1, bAction &#41;\n\n      // buttons captions must be contained in a unidimentional array\n      aCapt1 &#58;= &#123; &quot;1&quot;, &quot;5&quot;, &quot;9&quot;, &quot;13&quot;, &quot;17&quot;, &quot;21&quot;, &quot;25&quot;, &quot;29&quot;, &quot;33&quot;, &quot;37&quot;, ;\n                  &quot;2&quot;, &quot;6&quot;, &quot;10&quot;, &quot;14&quot;, &quot;18&quot;, &quot;22&quot;, &quot;26&quot;, &quot;30&quot;, &quot;34&quot;, &quot;38&quot; &#125;\n\n      // creando la matriz\n      @10,90 SBGROUP aBtn1 OF aChild&#91; 3 &#93; ;\n             CAPTION aCapt1 ;\n             SIZE 34, 34 PIXELS ;\n             FONT oFont ;\n             ACTION aAct1 ;\n             RESOURCE &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot; ; // multi bitmap\n             MESSAGE &quot;Click izquierdo&#58; Reservar Asientos&#46;  &quot; + ;\n                     &quot;Click derecho&#58; Cancelar Reservación&#46;&quot; ;\n             COLORS CLR_WHITE, CLR_CYAN ;\n             TEXT ON_CENTER ;\n             LOOK W97\n      // para usar un bitmap multiple &#40; 4 en 1 &#41; debes definir el mismo\n      // bitmap para los cuatro estados\n\n      nAct &#58;= 1\n\n\n      // here I\'m using the &quot;Cargo&quot; variable to store the button\'s caption\n      // in order to restore it later when reactivate the button\n      // Virtual disable let you to use right click to reset a button\n      For nEle &#58;= 1 To Len&#40; aBtn1 &#41;\n         For nSub &#58;= 1 To Len&#40; aBtn1&#91; nEle &#93; &#41;\n            aBtn1&#91; nEle, nSub &#93;&#58;Cargo &#58;= aCapt1&#91; nAct++ &#93;\n            aBtn1&#91; nEle, nSub &#93;&#58;bRClicked &#58;= &#123;|oBtn| fCancel&#40; oBtn &#41; &#125;\n         Next\n      Next\n\n      // let\'s define another matrix &#40; only 4 statements&#41;\n      aBtn2 &#58;= &#123; Array&#40; 10 &#41;, Array&#40; 10 &#41; &#125;\n      AFill&#40; aAct2 &#58;= Array&#40; 20 &#41;, bAction &#41;\n      aCapt2 &#58;= &#123; &quot;3&quot;, &quot;7&quot;, &quot;11&quot;, &quot;15&quot;, &quot;19&quot;, &quot;23&quot;, &quot;27&quot;, &quot;31&quot;, &quot;35&quot;, &quot;39&quot;, ;\n                  &quot;4&quot;, &quot;8&quot;, &quot;12&quot;, &quot;16&quot;, &quot;20&quot;, &quot;24&quot;, &quot;28&quot;, &quot;32&quot;, &quot;36&quot;, &quot;40&quot; &#125;\n\n      @108,90 SBGROUP aBtn2 ;\n              PROMPT aCapt2 OF aChild&#91; 3 &#93; ;\n              SIZE 34, 34 PIXELS ;\n              FONT oFont ;\n              ACTION aAct2 ;\n              RESOURCE &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot; ; // multi bitmap\n              MESSAGE &quot;Left Click&#58; To reservate seats&#46;  &quot; + ;\n                      &quot;Right Click&#58; To Cancel Reservation&#46;&quot; ;\n              COLORS CLR_WHITE, CLR_CYAN ;\n              TEXT ON_CENTER ;\n              LOOK W97\n\n      nAct &#58;= 1\n\n      For nEle &#58;= 1 To Len&#40; aBtn2 &#41;\n         For nSub &#58;= 1 To Len&#40; aBtn2&#91; nEle &#93; &#41;\n            aBtn2&#91; nEle, nSub &#93;&#58;Cargo &#58;= aCapt2&#91; nAct++ &#93;\n            aBtn2&#91; nEle, nSub &#93;&#58;bRClicked &#58;= &#123;|oBtn| fCancel&#40; oBtn &#41; &#125;\n         Next\n      Next\n\n      // the folowing buttons are no part of a group\n      @10, 20 SBUTTON oBut PROMPT &quot;Exit&quot; OF aChild&#91; 3 &#93; FONT oFont ;\n              SIZE 60,20 PIXEL ACTION aChild&#91; 3 &#93;&#58;End&#40;&#41; ;\n              COLORS CLR_WHITE, CLR_BLUE\n\n      @128, 20 SBUTTON OF aChild&#91; 3 &#93; RESOURCE &quot;Driver&quot; PIXEL ; // FONT oFont ;\n               MESSAGE &quot;Please, don\'t disturb the driver&quot; ;\n               COLOR CLR_BLACK, CLR_CYAN ;\n               NOBOX\n\n      @176, 60 SBUTTON RESOURCE &quot;TV&quot; OF aChild&#91; 3 &#93; PIXEL ;\n               FONT oFont1 ;\n               CAPTION &quot;TV&quot; ;\n               COLOR CLR_WHITE, CLR_CYAN ;\n               TEXT ON_CENTER ;\n               NOBOX\n\n      @176,200 SBUTTON RESOURCE &quot;TV&quot; OF aChild&#91; 3 &#93; PIXEL ;\n               FONT oFont1 ;\n               CAPTION &quot;TV&quot; ;\n               COLOR CLR_WHITE, CLR_CYAN ;\n               TEXT ON_CENTER ;\n               NOBOX\n\n      @176,310 SBUTTON  RESOURCE &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot; OF aChild&#91; 3 &#93; PIXEL ;\n               FONT oFont1 ;\n               CAPTION &quot;TV&quot; ;\n               COLOR CLR_WHITE, CLR_CYAN ;\n               TEXT ON_CENTER ;\n               NOBOX       ;\n                ACTION aAct2\n\n      SET MESSAGE OF aChild&#91; 3 &#93; TO &quot;Super Buttons, ¡ Matrixes of Buttons !&quot;\n\n      ACTIVATE WINDOW aChild&#91; 3 &#93; ;\n               VALID &#40; aChild&#91; 3 &#93; &#58;= Nil, oFont&#58;End&#40;&#41;, oFont1&#58;End&#40;&#41;, &#46;T&#46; &#41;\n\n   Else\n      aChild&#91; 3 &#93;&#58;SetFocus&#40;&#41;\n   EndIf\n\nReturn Nil\n[/code:25xq1a4c]','',0,'AIA=','25xq1a4c',1,0,'',49,0,0),(15227,3417,3,49,0,'213.82.134.66',1152093093,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0216931587/Prova1.zip.html\">http://hyperupload.com/download/0216931 ... 1.zip.html</a><!-- m -->\n\nthis is the sample exe\n\nregards','',0,'AIA=','5yyi6gep',1,0,'',49,0,0),(15228,3476,3,49,0,'213.82.134.66',1152093225,1,0,1,1,1,1,'','','I create dll and exe  simply with xmate program','',0,'AIA=','edscosfj',1,0,'',49,0,0),(15229,3419,20,49,0,'213.82.134.66',1152093540,1,0,1,1,1,1,'','','Linares mi ha detto di usare queste linee ma la seconda mi da errore \n\n\nREQUEST HB_LANG_IT\nREQUEST HB_CODEPAGE_IT\n\nserve solo la prima linea','',0,'AIA=','q7wb1e57',1,0,'',49,0,0),(15230,3419,20,49,0,'213.82.134.66',1152093848,1,0,1,1,1,1,'','','poi nel programma principale l\'inserimento di queste :\nHB_LANGSELECT( \'IT\' )\nHB_SETCODEPAGE( \'IT\' )\n\ne poi \n\nper esempio\ncAppName  := i18n(\"nome applicazione\")\n\n\nma se io volessi inserire nel menu principale la possibilità di cambiare lingua ( cioè tutte le parole e settare la lingua per sempio tedesco o inglese come dovrei fare )\nc\'è un programmino in automatico che crea una dialog di inserimento o modifica ?','',0,'AIA=','2se93pey',1,0,'',49,0,0),(15231,3444,17,49,0,'213.82.134.66',1152094029,1,0,1,1,1,1,'','','there is an error on bus reservation ( chil03 func)\n\nRegards','',0,'AIA=','34ncdo23',1,0,'',49,0,0),(15232,3481,7,2,0,'87.218.146.73',1152094397,1,0,1,1,1,1,'','','Toni,\n\nParece que Windows Mobile no soporta Polypolygon  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  \n\nVe al directorio include del VCE y busca el nombre de las funciones que necesites y asi ves las que estan disponibles y las que no.','',0,'AIA=','1tvsicwj',1,0,'',2,0,0),(15233,3481,7,2,0,'87.218.146.73',1152094770,1,0,1,1,1,1,'','','Buscando en las librerías aparece wce_PolyPolygon() pero no tenemos el prototipo. Podríamos intentar a usar el mismo que PolyPolygon().','',0,'AIA=','2svgjru0',1,0,'',2,0,0),(15234,3483,7,517,0,'200.195.2.246',1152095884,1,0,1,1,1,0,'','Exite possibilidades de FWPC Funcionar em JORNADA HP 720','Exite possibilidades de FWPC Funcionar em JORNADA HP 720 Com sistema operacional WINDOWS POWERED HANDHELD PC 2000','',0,'AIA=','2b110apk',1,0,'',517,0,0),(15235,3479,6,138,0,'200.95.66.146',1152096478,1,0,1,1,1,1,'','','Je je je....\n\nEs que no estas usando el TWBrowse de Rosine, estas usando el TSBrowse.... \n\nRecuerda que el TWBrwose no define las columnas individualmente','',0,'AIA=','2xxlad5s',1,0,'',138,0,0),(15236,3484,6,413,0,'194.106.16.43',1152097620,1,0,1,1,1,0,'','Es posible recuperar el usuario que bloquea un registro','Es posible desde fivewin-harbour recuperar el usuario que tiene bloqueado un registro, o quien tiene la base de datos en modo exclusivo.  Existe algun comando o alguna libreria que te permita avariguar el dato para luego mostrarselo al usuario final.\n\nSaludos','',0,'AIA=','rri6kfrm',1,0,'',413,0,0),(15237,3481,7,57,0,'83.53.62.133',1152097730,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:r6a7uohl]Buscando en las librerías aparece wce_PolyPolygon() pero no tenemos el prototipo. Podríamos intentar a usar el mismo que PolyPolygon().[/quote:r6a7uohl]\n\nAntonio\nBuscando en el API de WCE existe la función Polygon que parece pinta un único polygon a diferencia de Polypolygon que recibe un Array de poligonos. Quizas se podría realizar un Polypolygon que construyera el array y a su vez llamara a Polygon para crearlos. \nPor desgracia mis conocimientos en \"C\" son nulos.\n\nSaludos\n\nToni sales','',0,'gA==','r6a7uohl',1,0,'',57,0,0),(15238,3432,3,449,0,'212.64.224.250',1152098449,1,0,1,1,1,1,'','','Hi, \n\nI use it in W2000 and work fine. Perhaps, you should eliminate temporaly the line \"    o:IconLocation     := IF( !Empty( ::cIconLocation     ), ::cIconLocation    , NIL ) \"  \n\nRegards.','',0,'gA==','br9tkaff',1,0,'',449,0,0),(15239,3415,6,102,0,'83.46.99.59',1152098813,1,0,1,1,1,1,'','','Gracias Antonio,\nHe encontrado por hay en el foro una funcion con la cual puedo hacerlo y funciona bien.\nPero tu solución creo que es buena.','',0,'gA==','1oj7pxid',1,0,'',102,0,0),(15240,3419,20,446,0,'82.59.204.126',1152098975,1,0,1,1,1,0,'','','non mi risulta che ci siano funzioni per cambiare automaticamente la lingua, in ogni caso dovrebbe essere abbastanza semplice implementare una dialog con un menu a tendina per la selezione della lingua.\n\nSe posso però esprimere un mio parere personale, sconsiglierei una soluzione di questo tipo, dato che in questo modo si traducono soltanto i mesi, giorni, e molti (ma non tutti) messagi di errore. L\'utente infatti potrebbe aspettarsi la traduzione di tutte le finestre, dialogs, messaggi, ecc. creandoti soltanto problemi se la tua applicazione non è realmente \"multilanguage\"\n\nRoberto Chiaiese','',0,'gA==','19qnuii6',1,0,'',446,0,0),(15241,3417,3,56,0,'217.251.228.61',1152102251,1,0,1,1,1,1,'','','Stefan,\n\nplease send me the lib built with XHarbour 099.60.\nPerhaps you could add the bpaint.obj, too?\n\ninfo at reportdesigner dot info','',0,'gA==','3ob0fr99',1,0,'',56,0,0),(15242,3483,7,2,0,'87.218.146.73',1152102314,1,0,1,1,1,1,'','','El micro es un ARM:\n<!-- m --><a class=\"postlink\" href=\"http://www.quesabesde.com/pda/productos/pda36g.asp\">http://www.quesabesde.com/pda/productos/pda36g.asp</a><!-- m -->\n\npero posiblemente la versión de Windows Mobile es demasiado antigua. La forma de comprobarlo es descargar un ejemplo desde <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwppc.html\">http://www.fivetechsoft.com/spanish/fwppc.html</a><!-- m --> y probarlo en ella.','',0,'gA==','g0ipcws7',1,0,'',2,0,0),(15243,3432,3,6,0,'82.54.221.118',1152102416,1,0,1,1,1,1,'','','Yes, it works removing o:IconLocation assignment.\n\nI\'m using Windows XP Pro SP2.\n\nEMG','',0,'gA==','321qbcil',1,0,'',6,0,0),(15244,3484,6,217,0,'200.159.120.34',1152107111,1,0,1,1,1,0,'','','Andrés, (espero que me compreendas, yo no hablo español)\n\nPienso que nos es posible...\nPero yo tengo en todos mis dbf un campo id_user donde guardo el codigo del usuario cuando bloquea el registro. Cuando cerro la dialog o cuando desbloqueo el registro yo guardo zero en id_user.\nCuando otro usuario intenta aceder el registro yo dejo, pero no lo permito grabar alteraciones se id_user &gt; 0...\n\nSalu2 de Brasil\nMaurilio','',0,'gA==','1jy4ju7h',1,0,'',217,0,0),(15245,3479,6,643,0,'200.94.71.124',1152109941,1,0,1,1,1,0,'','claro que uso el TwBrowse','[quote=&quot;RF&quot;:3lhte5d6]Je je je....\n\nEs que no estas usando el TWBrowse de Rosine, estas usando el TSBrowse.... \n\nRecuerda que el TWBrwose no define las columnas individualmente[/quote:3lhte5d6]\nRene,\n\nRossine mando este mensaje \n\n[quote:3lhte5d6]\nFaça novamente o Download ok ? \n\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/WBRW_17A.ZIP\">http://geocities.yahoo.com.br/qiinforma ... RW_17A.ZIP</a><!-- m --> \n\nObs: Para vocês verem as mudanças que eu fiz, é só procurarem pelo \nmeu nome dentro dos programas \".PRG\" e \".C\" ok ? \n\nObrigado, \n\nRossine. \n[/quote:3lhte5d6]\nsi te das cuenta esta este Zip\nel cual contiene los ejemplos y ahi esta utilizando la definicion por columnas\n\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://geocities.yahoo.com.br/qiinformatica2000/WBRW_17A.ZIP\">http://geocities.yahoo.com.br/qiinforma ... RW_17A.ZIP</a><!-- m --> \n[/url]','',0,'gA==','3lhte5d6',1,0,'',643,0,0),(15246,3485,6,52,0,'200.127.195.89',1152110798,1,0,1,1,1,1,'','Necesito Maquina VIRTUAL','Amigos,\n\nNecesito probar una app que necesita conectarse a otro IP, como no tengo 2 pc, quería saber si alguien conoce alguna app que genere una máquina virtual que botee y todo como si fuese una PC verdadera, o alguna idea de como puedo hacer para probar esta aplicacion en la misma pc.\n\nIdea: Correr el SERVIDOR y por medio de una máquina virtual correr el CLIENTE.\n\nAlguna Idéa?\n\nGracias.','',0,'gA==','2fa2lhll',1,0,'',52,0,0),(15248,3474,2,375,0,'84.122.113.63',1152113343,1,0,1,1,1,1,'','','Gracias, Antonio, Solucionado. Cómo no.\nEn cuanto al tema del cInitialFile ¿Nada?\n\nUn Saludo.','',0,'gA==','zcmq21f9',1,0,'',375,0,0),(15249,2799,17,375,0,'84.122.113.63',1152114264,1,0,1,1,1,1,'','','Perdona Fernando, el día que leí tu solicitud no pude contestar y después se me olvidó. Ahora repasando algunas cosas he vuelto a leer este Topic. \nAlgo debes estar haciendo mal, pués no depende de ninguna versión de FW, e incluso, debería funcionar en (x)Habour. \n\nA lo mejor no declaraste la variable en la que vas a guardar la sombra. \nO a lo mejor el dialogo al que quieres poner sombra devuelve un ::hWnd = 0 \n\nEl caso es que si no te da error al compilar, no aparece un GDF durante la ejecución de tu aplicación, y la sombra no aparece es que algo está haciendo mal. \n\nDe todas formas, envíame el código a ver que es lo que pasa.\n\nUn saludo','',0,'gA==','29hx0vbu',1,0,'',375,0,0),(15250,3474,2,2,0,'87.218.146.73',1152114716,1,0,1,1,1,1,'','','Manu,\n\nPrueba a llamar directamente desde una ventana de comando a RunDlg32.exe pasándole 1, 2 ó 3, estando situado en donde está el fichero ini y mira a ver si toma los valores adecuados.','',0,'gA==','ej02z0ze',1,0,'',2,0,0),(15251,3476,3,435,0,'200.155.196.199',1152115109,1,0,1,1,1,0,'','Send email','Poderia me enviar um email com um exemplo bem pratico ?\n\nARI','',0,'gA==','y5uwrrdl',1,0,'',435,0,0),(15252,3486,6,77,0,'217.126.90.142',1152116047,1,0,1,1,1,0,'','ayuda creación de función','Hola a todos, estoy empezando a desarrollar una aplicación de contabilidad integrada a la facturación, y me encuentro con el tema de las cuentas quiero poder hacer que cuando el usuario escriba \"4.7\" en la cuenta el ordenador lo transforme a 4000007 automaticamente, en realizad es muy simple, en la función valid le hago pasar por una función para que lo haga, pero esto sería muy engorroso para todos los módulos, yo querria indicarle un picture por ejemplo \"@O.7\", que la clase tGet al ver esta picture formatee el resultado a lo dicho anteriormente osea que si se escribe \"400.7\" tendría que devolver \"4000007\" una longitud de siete, como podría modificar la clase tget o hacer un clase que dependa de tget para que haga esto, o alguien sugiere otro sistema más practico.\n\nsaludos y gracias\nManolo','',0,'gA==','3lza7poh',1,0,'',77,0,0),(15253,3476,3,2,0,'87.218.146.73',1152117084,1,0,1,1,1,1,'','','Ari,\n\nPlease review FWH\\samples\\TestDllP.prg and samples\\pcodedll.prg','',0,'gA==','30n9gyql',1,0,'',2,0,0),(15254,3476,3,435,0,'200.155.196.199',1152117635,1,0,1,1,1,0,'','Fhw - pre release','Gracias\n\neu tenho a Fwh pre release . nao tenho qualquer exemplo.\n\nAri','',0,'gA==','2oqjdyyb',1,0,'',435,0,0),(15255,3479,6,138,0,'200.67.109.252',1152119101,1,0,1,1,1,1,'','','Entnces el problea esta con el archivo de Cabecera.\n\nEl Browse de Hernan se redefine como LISTBOX, a menso claro, que hayan modificado el CH para que se redefina como BROWSE','',0,'gA==','2755b4s4',1,0,'',138,0,0),(15256,3448,1,312,0,'207.236.106.83',1152121325,1,0,1,1,1,0,'','','[quote=&quot;jacquet philippe&quot;:zt332h99]I have the same result with the api,\nit return windows\\temp and not the user tem path .\n\n??[/quote:zt332h99]\n\nThat\'s strange under Win 2000 i get the user temp path, I am however logged in as an admin of the local machine.','',0,'gA==','zt332h99',1,0,'',312,0,0),(15257,3479,6,519,0,'88.1.106.240',1152126329,1,0,1,1,1,0,'','','Hola amigos\n\n\n   El Twbrowse de Rossine no funciona desde recursos ,te monta el browse siempre en Top, espero que Rossine  pueda arreglar el fallo.\n\n\n    Un saludo y gracias','',0,'gA==','3tektbwn',1,0,'',519,0,0),(15258,3483,7,517,0,'200.195.2.246',1152128068,1,0,1,1,1,0,'','','ja baixei uma copia dos demos e não roda','',0,'gA==','2evs6kxc',1,0,'',517,0,0),(15259,3483,7,2,0,'87.218.146.73',1152129745,1,0,1,1,1,1,'','','Consulta en la página del fabricante por si puedes actualizarle el sistema operativo a Windows Mobile 2003 ó 2002.','',0,'gA==','3unrjk3h',1,0,'',2,0,0),(15261,3455,6,198,0,'200.95.55.221',1152136422,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:y91obz6o]Laura: tienes razón Rene,  ya le pregunte a Hugo, el fue el quien lo recogió y ya me lo dio.\n\nGracias por tu atención.\n\nLaura.\n\nHasta donde me acuerdo, yo les proporcione un CD con nuestro manual de migracion a 32 bits, que incluye un archivo PDF con instrucciones detalladas de TODO lo que tienes que hacer para configurar tu entorno de trabajo, las diferencias entre FW y FWH y una explicacion muy amplia de las herramientas necesarias (MAKE, Borland C++ y Harbour) y las herramientas auxiliares que puedes utilizar para tus proyectos (ADS, AjMake, VerCE, FrontEnd, etc.)\n\nTambien el CD incluye 2 ejemplos de aplicaciones de ejemplo nuestras compiladas a 16  y 32 bits. El mismo codigo 2 versiones distintas.\n\nEl CD incluye tambien otras herramientas: VerCE, AJ Make, ADS servidor local y otras.[/quote:y91obz6o]','',0,'gA==','y91obz6o',1,0,'',198,0,0),(15262,3438,7,661,0,'201.123.180.64',1152137063,1,0,1,1,1,0,'','','<!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  es cierto no habia pensado en las librerias de ADS me estaba enfocando solo en la compilacion , gracias por su respuesta... voy a trabajar solo con mi servidor de archivos para afectar los dbfs desde la PPC y a travez de otro programa afecto mi base de datos ADS\n\n\nGracias <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','34nlnplm',1,0,'',661,0,0),(15263,977,7,661,0,'201.123.180.64',1152137460,1,0,1,1,1,0,'','','gracias jose.. ya pude conseguirlos y ya funciono!!!! <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','2qg8tazo',1,0,'',661,0,0),(15264,3472,6,661,0,'201.123.180.64',1152139571,1,0,1,1,1,0,'','','Antonio podrias pasarme ese prev32.dll a mi tambien <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  es que hago clic en el link pero no lo descarga...\n\ngracias','',0,'gA==','b2ck498e',1,0,'',661,0,0),(15265,3472,6,2,0,'87.218.146.73',1152140660,1,0,1,1,1,1,'','','Alex,\n\nUna vez hagas click en ese enlace, vuelve a hacer click en este, que te aparecerá,  una vez transcurran unos segundos:\n[url=http&#58;//imageshack&#46;us:3b5mhtpz][img:3b5mhtpz]http&#58;//img80&#46;imageshack&#46;us/img80/2259/image29jh&#46;png[/img:3b5mhtpz][/url:3b5mhtpz]','',0,'GA==','3b5mhtpz',1,0,'',2,0,0),(15266,3487,6,152,0,'200.90.206.71',1152140750,1,0,1,1,1,0,'','Como cambio el caption de un dialogo ?','Quiero cambiar el caption en medio de un proceso\n\nSi alguien me puede ayudar, \ngracias\n\nSaludos,\n\nGonzalo','',0,'GA==','1nvp299n',1,0,'',152,0,0),(15267,3487,6,2,0,'87.218.146.73',1152140813,1,0,1,1,1,1,'','','Gonzalo,\n\noDlg:SetText( cText )','',0,'GA==','o8523oxu',1,0,'',2,0,0),(15268,3472,6,661,0,'201.123.180.64',1152142072,1,0,1,1,1,0,'','','gracias antonio, estaba medio escondido el relojito jeje','',0,'GA==','27qd64h7',1,0,'',661,0,0),(15269,3488,6,661,0,'201.123.180.64',1152144458,1,0,1,1,1,0,'','Rutinas en C++ en FHW','Que tal tengo una pregunta, puedo poner una rutina en C++ emebebida en mi programa de FWH o tengo que hacer su equivalencia a Borland C, talvez es una pregunta obvia pero no tengo idea de esto gracias...','',0,'GA==','3j9vl6ro',1,0,'',661,0,0),(15270,3470,6,100,0,'201.16.38.61',1152144757,1,0,1,1,1,1,'','','Ola Antonio\n\nAgora esta me dando este erro\n\n[b:125tnqhx]\nError: Unresolved external \'_HB_FUN_GTSYS\' referenced from G:\\XH_9960\\LIB\\GTNUL.LIB|gtnul\n[/b:125tnqhx]\n\nestou usando estas libs por default\n\n[b:125tnqhx]\n%C_LIB_INSTALL%\\C0W32.OBJ=1\nG:\\FWH27\\LIB\\FiveHX.Lib=2\nG:\\FWH27\\LIB\\Fivehc.lib=3\n%HB_LIB_INSTALL%\\common.lib=4\n%HB_LIB_INSTALL%\\debug.lib=5\n%HB_LIB_INSTALL%\\vm.lib=6\n%HB_LIB_INSTALL%\\rtl.lib=7\n%HB_LIB_INSTALL%\\pcrepos.lib=8\n%HB_LIB_INSTALL%\\lang.lib=9\n%HB_LIB_INSTALL%\\rdd.lib=10\n%HB_LIB_INSTALL%\\rddads.lib=11\n%HB_LIB_INSTALL%\\ace32.lib=12\n%HB_LIB_INSTALL%\\macro.lib=13\n%HB_LIB_INSTALL%\\pp.lib=14\n%HB_LIB_INSTALL%\\dbffpt.lib=15\n%HB_LIB_INSTALL%\\dbfntx.lib=16\n%HB_LIB_INSTALL%\\dbfcdx.lib=17\n%HB_LIB_INSTALL%\\hsx.lib=18\n%HB_LIB_INSTALL%\\hbsix.lib=19\n%HB_LIB_INSTALL%\\ct.lib=20\n%HB_LIB_INSTALL%\\tip.lib=21\n%HB_LIB_INSTALL%\\hbcomm.lib=22\n%HB_LIB_INSTALL%\\TWBrowse_9960.Lib=24\n%HB_LIB_INSTALL%\\BtnGet_9960.Lib=25\n%HB_LIB_INSTALL%\\TSBUTTON_9960.Lib=26\n%HB_LIB_INSTALL%\\TSBROWSE6_9960.Lib=27\n%C_LIB_INSTALL%\\CW32.LIB=28\n%C_LIB_INSTALL%\\IMPORT32.LIB=29\n%HB_LIB_INSTALL%\\gtnul.lib=30\n[/b:125tnqhx]\n\nFalta alguna lib ??','',0,'QA==','125tnqhx',1,0,'',100,0,0),(15271,3489,6,422,0,'195.8.13.235',1152147844,1,0,1,1,1,1,'','Tsbrowse 7.0','Hola foro :\n\nCon la ver 6.0 de la TSBrowse.. podia mostrar una columna indicando un numero correlativo..usando la data ::nAT\n\nDATA  { || StrZero( ::oBrw:nAT, 4 ) }     ;\n\ncambié para la version 7.0 y ::nAT siempre tiene asignado el valor  1 <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nfijense en la imagen...\n[url=http&#58;//img131&#46;imageshack&#46;us/my&#46;php?image=nat7ye&#46;jpg:1m8tu65n][img:1m8tu65n]http&#58;//img131&#46;imageshack&#46;us/img131/1913/nat7ye&#46;th&#46;jpg[/img:1m8tu65n][/url:1m8tu65n]\n\nOtro detalle es que estoy teniendo problemas para refrescar el mismo control.\nComo es que debo refrescar un TSbrowse 7.0 ? Por ejemplo luego de añadido un registro, luego de aplicar un scope a la data ::oDbf','',0,'GA==','1m8tu65n',1,0,'',422,0,0),(15272,3489,6,388,0,'202.152.170.254',1152165241,1,0,1,1,1,0,'','DATA { || StrZero( ::oBrw:nAT, 4 ) }','try :\n    DATA { || StrZero( ::oBrw:nlogicpos(), 4 ) }  \n\nregards\n\nKOK','',0,'GA==','2u8sdm58',1,0,'',388,0,0),(15273,3414,7,2,0,'87.218.146.73',1152169833,1,0,1,1,1,1,'','','Toni,\n\nAqui tienes un ejemplo de cómo usar varios menus:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0205f74837/Menus.zip.html\">http://hyperupload.com/download/0205f74 ... s.zip.html</a><!-- m -->','',0,'GA==','3c08r02y',1,0,'',2,0,0),(15274,3470,6,2,0,'87.218.146.73',1152170191,1,0,1,1,1,1,'','','Jackson,\n\nAhora hay que usar GTGUI.lib en vez de GTWIN.lib ó GTNUL.lib.\n\nEn caso de que el build de xharbour que tengas no tenga GTGUI.lib, prueba a usar la GTNUL.lib y añade este código a tu aplicación:\n\nprocedure GTSYS\nreturn','',0,'GA==','17cwesl8',1,0,'',2,0,0),(15275,3476,3,2,0,'87.218.146.73',1152170294,1,0,1,1,1,1,'','','Ari,\n\nNecesitas actualizarte a una versión más reciente de FWH. La versión actual de FWH es la 2.7 Junio 2006.','',0,'GA==','3svhjqew',1,0,'',2,0,0),(15276,3484,6,413,0,'194.106.16.43',1152170872,1,0,1,1,1,0,'','','Gracias Maurilio entendi perfectamente, voy a intentar aplicar esa misma solución, Gracias.\n\nUn saluddo.','',0,'GA==','16eo7h2r',1,0,'',413,0,0),(15277,3417,3,130,0,'141.51.32.24',1152174075,1,0,1,1,1,0,'','','ok, done','',0,'GA==','dbh152bg',1,0,'',130,0,0),(15278,3490,16,2,0,'87.218.146.73',1152180877,1,0,1,1,1,1,'','New FWPPC build with bitmaps support on menus','There is a new FWPPC build with support for bitmaps on menus, and also a new sample showing how to use multiple menus on the same application. Please review samples\\MenuBmp.prg and samples\\Menus.prg:\n[url=http&#58;//imageshack&#46;us:3m1ooia3][img:3m1ooia3]http&#58;//img216&#46;imageshack&#46;us/img216/9330/sample5ut&#46;png[/img:3m1ooia3][/url:3m1ooia3]','',0,'GA==','3m1ooia3',1,0,'',2,0,0),(15279,3490,16,57,0,'88.1.152.42',1152181769,1,0,1,1,1,1,'','','Antonio.\nFantástico, impresionante.....\n\nSaludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nToni Sales','',0,'GA==','1qlrpqpe',1,0,'',57,0,0),(15280,3488,6,2,0,'87.218.146.73',1152183678,1,0,1,1,1,1,'','','Alex,\n\nPuedes usar C++ siempre que llames a Borland C con el parámetro -P para forzar la compilación en C++. Aqui tienes un ejemplo:\n[code:2vm3jfoo]\n// Using C++ with Harbour \n// sample developed by FiveTech Software\n\nfunction Main&#40;&#41;\n\n   local oTest &#58;= Test&#40;&#41; // We create a C++ object\n\n   XMSGINFO&#40; TEST_IVALUE&#40; oTest &#41; &#41; // We retrieve a C++ object data\n   \nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nclass Sample\n&#123;\n   public&#58;\n      int iValue;\n      Sample&#40;&#41;;\n&#125;;\n\nSample&#58;&#58;Sample&#40;&#41;\n&#123;\n   iValue = 123;\n&#125;   \n\nHB_FUNC&#40; TEST &#41;   \n&#123;\n   Sample * p = new Sample;\n   \n   hb_retnl&#40; &#40; unsigned long &#41; p &#41;;\n&#125;\n\nHB_FUNC&#40; TEST_IVALUE &#41;\n&#123;\n   hb_retnl&#40; &#40; &#40; Sample * &#41; hb_parnl&#40; 1 &#41; &#41;-&gt;iValue &#41;;\n&#125;   \n\nextern &quot;C&quot; \n&#123;\n   HB_FUN_MSGINFO&#40; void &#41;;\n&#125;\n\nHB_FUNC&#40; XMSGINFO &#41;\n&#123;\n   HB_FUN_MSGINFO&#40;&#41;;\n&#125;   \n\n#pragma ENDDUMP  \n[/code:2vm3jfoo]','',0,'AIA=','2vm3jfoo',1,0,'',2,0,0),(15281,3482,3,2,0,'87.218.146.73',1152184822,1,0,1,1,1,1,'','','Enrico,\n\nThis may fix it:\n[code:1hwf1bwr]\nfunction cFilePath&#40; cPathMask &#41;   // returns path of a filename\n\n   local n &#58;= RAt&#40; &quot;\\&quot;, cPathMask &#41;, cDisk\n\nreturn If&#40; n &gt; 0, Upper&#40; Left&#40; cPathMask, n &#41; &#41;,;\n           &#40; cDisk &#58;= cFileDisc&#40; cPathMask &#41; &#41; + If&#40; ! Empty&#40; cDisk &#41;, &quot;\\&quot;, &quot;&quot; &#41; &#41;\n[/code:1hwf1bwr]','',0,'AIA=','1hwf1bwr',1,0,'',2,0,0),(15282,3482,3,6,0,'87.10.2.85',1152187243,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'AIA=','3p8pq6ns',1,0,'',6,0,0),(15283,3411,6,36,0,'200.113.56.235',1152192674,1,0,1,1,1,0,'','','Estimados\n\nViendo estos metodos llegue a la conclusion que si funcionan, lo raro es que hay que ir a la inversa y diferencia del delbuton que el boton no se resta -1\n\n \n[code:2jg808st]#define TB_DELETEBUTTON        1046\n#define TB_HIDEBUTTON           1028\n\nMETHOD HideButton&#40; nButton &#41; INLINE SendMessage&#40;&#58;&#58;hwnd, TB_HIDEBUTTON, nButton, 1 &#41;\n\nMETHOD ShowButton&#40; nButton &#41; INLINE SendMessage&#40;&#58;&#58;hwnd, TB_HIDEBUTTON, nButton, 0 &#41;\n\nMETHOD DelButton&#40;  nButton &#41; INLINE SendMessage&#40; &#58;&#58;hWnd, TB_DELETEBUTTON, nButton - 1, 0 &#41;\n\nfor i &#58;= len&#40; aBnt &#41; to 1 STEP -1\n\n  aBtn&#91;i&#93;&#58;HideButton&#40; i &#41;\n\nnext i\n\n[/code:2jg808st]','',0,'AIA=','2jg808st',1,0,'',36,0,0),(15284,3483,7,517,0,'200.195.2.246',1152202248,1,0,1,1,1,0,'','','a versao dele é a 3.0 tem como atualizar\n\nele é este modelo aqui\n<!-- m --><a class=\"postlink\" href=\"http://www.palmland.com.br/HANDHELDS/hp/HP_Jornada_720.asp\">http://www.palmland.com.br/HANDHELDS/hp ... da_720.asp</a><!-- m -->\n\nDesde já Agradeço','',0,'AIA=','28gi13g6',1,0,'',517,0,0),(15285,3483,7,2,0,'87.218.146.73',1152202950,1,0,1,1,1,1,'','','Aqui posiblemente esté el firmware necesario:\n<!-- m --><a class=\"postlink\" href=\"http://h10025.www1.hp.com/ewfrf/wc/softwareCategory?product=61677&amp;lc=en&amp;cc=us&amp;dlc=en&amp;submit.y=6&amp;submit.x=3&amp;lang=en&amp;cc=us\">http://h10025.www1.hp.com/ewfrf/wc/soft ... g=en&amp;cc=us</a><!-- m -->','',0,'AIA=','2q2tvon3',1,0,'',2,0,0),(15286,3411,6,2,0,'87.218.146.73',1152203559,1,0,1,1,1,1,'','','Patricio,\n\nGracias! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','aez2b5ot',1,0,'',2,0,0),(15287,3489,6,203,0,'200.107.17.29',1152204313,1,0,1,1,1,1,'','Copiar y Pegar en TSBROWSE','Amigos disculpen la molestia pero tengo la necesidad de usar el copiar y pegar en una grilla de tsbrowse pero no funciona quisiera saber si esto es posible y que debo hacer \n\nGracias\n\n\n\nSaludos\n\nOscar','',0,'AIA=','2yuxo05g',1,0,'',203,0,0),(15288,3483,7,2,0,'87.218.146.73',1152204331,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.mobiletechreview.com/ubbthreads/showthreaded.php?Cat=&amp;Board=UBB4&amp;Number=4751&amp;page=0&amp;view=collapsed&amp;sb=5&amp;o=&amp;vc=1\">http://www.mobiletechreview.com/ubbthre ... =5&amp;o=&amp;vc=1</a><!-- m -->','',0,'AIA=','itqan7sz',1,0,'',2,0,0),(15289,3493,6,582,0,'201.252.115.95',1152205984,1,0,1,1,1,0,'','Problemas con TPages','En un dialogo tengo un Get para busqueda incremental, un browse (el de Hernan) que visualiza datos encontrados, \ny a la derecha varios say y get (de solo lectura), que se van actualizando a media que avanzo sobre el browse.\nDentro de estos controles de la derecha tengo definido un TPages, que dependiendo de un dato (tipo de domicilio)\nmuestra un dialogo u otro. Este TPages tiene definido tres Dialogos (\"C_SVIV\",\"C_VILLAS\",\"C_CASAS\") y que corresponde al dato\nde tipo de domicilios (1,2,3 respectivamente).\nEl tema es que cuando TpoDom es 3, puedo avanzar por el browse tranquilamente, con teclas de cursor o con la ruedita del mouse.\nPero cuando TpoDom cambia a 1 o a 2 si bien hace el cambio de dialogo,el browse pierde el foco, por ende ya no se puede avanzar mas,\nal menos que haga click con el mouse sobre el browse para continuar avanzando, pero ni bien localiza un TpoDom diferente a 3, vuelve\na suceder.\n\nYa probe creo que casi todo:\n  en el Redefine oPge:SetOption(Val(Base-&gt;TpoDom)) o oPge:nOption:= Val(Base-&gt;TpoDom)\n  en el bChange del browse oPge:SetOption(Val(Base-&gt;TpoDom)) o oPge:nOption:= Val(Base-&gt;TpoDom)\n  en el bChange que llame a una funcion para que \"a mano\" con un Do Case carge en el oPge el dialogo correspondiente,\n  avanzando o retrocediendo con un oPge:GoNext() o oPge:GoPrev().\n  y suguro que otras cosas mas que ya estoy olvidando.\n  \nLos dialogos para el oPge tiene el estilo STYLE WS_CHILD | WS_VISIBLE.\nLo extraño es que en otra parte del codigo donde muestra ya todos los datos del beneficio utiliza los mismos dialogos en un oPge,\ny no hay problemas, solo que esta determinado que dialogo mostrar con solo definir oPge:nOption:= Val(Base-&gt;TpoDom).\n\nAlguien le sucedio al parecido o alguien tiene alguna idea de los que pueda ser  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEstoy utilizando FiveWin y Harbour Build de Abril ( ayer baje el de junio pero todavia no lo probe y no creo venga por ahi los tiros)\nPellesC.\n\nDesde ya muchisimas gracias.\n\nUn abrazo. El Loco =&gt;))  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','22v8bhj6',1,0,'',582,0,0),(15291,3481,7,123,0,'83.56.204.183',1152208894,1,0,1,1,1,0,'','','Antonio,\n\n[quote:123yp20w]Buscando en las librerías aparece wce_PolyPolygon() pero no tenemos el prototipo. Podríamos intentar a usar el mismo que PolyPolygon().[/quote:123yp20w]\n\nMira a ver si te sirve esto:\n\n[code:123yp20w]BOOL AFXAPI wce_PolyPolygon&#40;HDC hdc, const POINT* lpPoints, const int* lpPolyCounts, int nCount&#41;;[/code:123yp20w]\n\nSaludos,\nJosé Luis Capel','',0,'gIA=','123yp20w',1,0,'',123,0,0),(15292,3474,2,375,0,'84.122.113.140',1152214360,1,0,1,1,1,1,'','','El INI está bien:\n\n[GetSaveFileName]\nlpstrFilter=Configuración de Documentos (CFD)|*.CFD\nlpstrIniFile=CLSEGUIM.CFD\nlpstrTitle=GUARDAR EL FICHERO DE CONFIGURACION\nnFilterIndex=1\nlpstrInitialDir=C:\\CLIPPER5\\INMOB\\DOCS\\PLANTI~1\\\nFlags=4\nhwndOwner=2692\nworking=1\n\n[GetDirectory]\nworking=0\nlpstrDirectory=\nCommDlgExtendedError=4223020\n\n[GetOpenFileName]\nworking=1\n\nEn un principio pensé que el nombre CORTO del PATH a lo mejor influía, pero no, sigue sin aparecer el nombre del fichero en el dialogo. He probado poniendo el nombre del fichero con y sin PATH, con y sin nombre LARGO y/o CORTO y nada. Sin embargo en el otro ordenador si sale. ¿Será por la versión del RunDlg32. Es lo que me queda sin probar. Aunque no sé si funcionará pues el otro es un XP y este un W.Me.\n\nGracias de todas formas por la ayuda.','',0,'','cqxe9kqp',1,0,'',375,0,0),(15293,3495,2,375,0,'84.122.113.140',1152214871,1,0,1,1,1,1,'','Copiar Nombre Largo','Uno de mis problemas típicos que no parecen tener solución.\nPero lo intentaré, a ver si alguien sabe como se pueden copiar ficheros con CLIPPER 5.3. y FW 2.3, sin que pierdan el NOMBRE LARGO, y no se conviertan en: PLANTI~1.DOC','',0,'','pt6h48m0',1,0,'',375,0,0),(15294,3496,3,6,0,'87.10.2.85',1152215255,1,0,1,1,1,1,'','Mutually calling DIALOGs','What is the correct way to close mutually calling DIALOGs? Try the following sample:\n\n[code:31h7m9ye]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    TEST1&#40;&#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TEST1&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           TITLE &quot;Test1&quot;\n\n    @ 1, 1 BUTTON &quot;Switch to test2&quot;;\n           ACTION &#40; oDlg&#58;End&#40;&#41;, TEST2&#40;&#41; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    ? &quot;Exiting from test1&quot;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TEST2&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           TITLE &quot;Test2&quot;\n\n    @ 1, 1 BUTTON &quot;Switch to test1&quot;;\n           ACTION &#40; oDlg&#58;End&#40;&#41;, TEST1&#40;&#41; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    ? &quot;Exiting from test2&quot;\n\n    RETURN NIL[/code:31h7m9ye]\n\nThanks for any help.\n\nEMG','',0,'AIA=','31h7m9ye',1,0,'',6,0,0),(15295,3487,6,152,0,'200.90.206.71',1152216054,1,0,1,1,1,0,'','','Gracias Antonio, \n\nEstaba entrampado con el oDlg:cCaption := \"hola\"\n\nSaludos\n\nGonzalo','',0,'AIA=','3pj06j48',1,0,'',152,0,0),(15296,3496,3,375,0,'84.122.113.140',1152216372,1,0,1,1,1,1,'','','Try this:\n\nFUNCTION MAIN() \n\n    TEST1( [b:1w5r1bz4]0[/b:1w5r1bz4] ) \n\n    RETURN NIL \n\n\nSTATIC FUNCTION TEST1( [b:1w5r1bz4]hWnd[/b:1w5r1bz4] ) \n\n    LOCAL oDlg \n\n[b:1w5r1bz4]IF hWnd # 0\nPostMessage(hWnd,WM_CLOSE)\nENDIF[/b:1w5r1bz4]\n\n    DEFINE DIALOG oDlg; \n           TITLE \"Test1\" \n\n    @ 1, 1 BUTTON \"Switch to test2\"; \n           ACTION TEST2( [b:1w5r1bz4]oDlg:hWnd[/b:1w5r1bz4] ) \n\n    ACTIVATE DIALOG oDlg; \n             CENTER \n\n    ? \"Exiting from test1\" \n\n    RETURN NIL \n\n\nSTATIC FUNCTION TEST2( [b:1w5r1bz4]hWnd[/b:1w5r1bz4] ) \n\n    LOCAL oDlg \n\n[b:1w5r1bz4]IF hWnd # 0\nPostMessage(hWnd,WM_CLOSE)\nENDIF[/b:1w5r1bz4]\n\n    DEFINE DIALOG oDlg; \n           TITLE \"Test2\" \n\n    @ 1, 1 BUTTON \"Switch to test1\"; \n           ACTION TEST1( [b:1w5r1bz4]hWnd[/b:1w5r1bz4] ) \n\n    ACTIVATE DIALOG oDlg; \n             CENTER \n\n    ? \"Exiting from test2\" \n\n    RETURN NIL\n\nYou could use PostMessage() or directly SendMessage().','',0,'QA==','1w5r1bz4',1,0,'',375,0,0),(15297,3470,6,54,0,'201.98.177.17',1152216525,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2fgtdb5b]Jackson,\n\nAhora hay que usar GTGUI.lib en vez de GTWIN.lib ó GTNUL.lib.\n\nEn caso de que el build de xharbour que tengas no tenga GTGUI.lib, prueba a usar la GTNUL.lib y añade este código a tu aplicación:\n\nprocedure GTSYS\nreturn[/quote:2fgtdb5b]\n\nYa el build del cvs funciona con GTGUI, ya viene incluido\n\nSaludos','',0,'gA==','2fgtdb5b',1,0,'',54,0,0),(15298,3496,3,6,0,'87.10.2.85',1152217208,1,0,1,1,1,1,'','','Unfortunately that doesn\'t solve the problem. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','2qg6vbhj',1,0,'',6,0,0),(15299,3496,3,620,0,'209.189.229.150',1152219609,1,0,1,1,1,0,'','','I have done something similar with Dialogs that are called from multiple locations.  I use STATIC oDlg1, oDlg2 etc   and in any given function use oDlg1:end() etc.  so that I can close any dialog from inside any function (for those dialogs that must be handled that way).\n\nHope that helps.','',0,'gA==','1yqlts29',1,0,'',620,0,0),(15300,3496,3,375,0,'84.122.113.140',1152219769,1,0,1,1,1,1,'','','Effectivly it doesn\'t work. But this works correctly:\n\nFUNCTION MAIN() \n\nTEST1() \n\nRETURN NIL \n\n\nSTATIC FUNCTION TEST1() \n\n    LOCAL oDlg\n    [b:1x4pjdy0]LOCAL lGo := .F.[/b:1x4pjdy0]\n\n    DEFINE DIALOG oDlg; \n           TITLE \"Test1\" \n\n    @ 1, 1 BUTTON \"Switch to test2\"; \n           ACTION [b:1x4pjdy0](lGo := .T., oDlg:End())[/b:1x4pjdy0]\n\n    ACTIVATE DIALOG oDlg CENTER \n? \"Exiting from test1\"\n\n[b:1x4pjdy0]IF lGo\nTEST2()\nENDIF[/b:1x4pjdy0]\n\nRETURN NIL \n\n\nSTATIC FUNCTION TEST2() \n\n    LOCAL oDlg \n[b:1x4pjdy0]LOCAL lGo := .F.[/b:1x4pjdy0]\n    DEFINE DIALOG oDlg; \n           TITLE \"Test2\" \n\n    @ 1, 1 BUTTON \"Switch to test1\"; \n           ACTION [b:1x4pjdy0](lGo := .T., oDlg:End())[/b:1x4pjdy0]\n\n    ACTIVATE DIALOG oDlg; \n             CENTER \n\n    ? \"Exiting from test2\"\n\n[b:1x4pjdy0]IF lGo\nTEST1()\nENDIF[/b:1x4pjdy0]\n\nRETURN NIL\n\nDialogs don\'t mutally call each other but it\'s works fine. If you click the button the dialog closes it self  and the other opens, if you click any \"X\" top right button the dialog closes without calling another dialog.\n(Excuse my english)','',0,'QA==','1x4pjdy0',1,0,'',375,0,0),(15301,3496,3,620,0,'209.189.229.150',1152220480,1,0,1,1,1,0,'','','Actually i went back and looked at my code and its very similar to what manuramos has said....\n\nACTION oDlg:end(), lNext := .t.\nEND DIALOG\n\nIF lNext\n   nextfunction()\nENDIF\n\n\nyep...thats what I did too.  Its a winner.  I used STATIC dialog references on another issue.\nG','',0,'QA==','aj863xdf',1,0,'',620,0,0),(15302,3496,3,343,0,'204.57.111.194',1152220951,1,0,1,1,1,0,'','','You don\'t want to get down to many levels. How about this?\n\n\nFUNCTION MAIN()\n   local bBlock := { || test1() }\n   do while bBlock != nil\n      bBlock := eval( bBlock )\n   enddo\n\nRETURN NIL\n\n\nSTATIC FUNCTION TEST1()\n   local bBlock\n\n   LOCAL oDlg\n\n   DEFINE DIALOG oDlg;\n      TITLE \"Test1\"\n\n   @ 1, 1 BUTTON \"Switch to test2\";\n      ACTION ( bBlock := { || test2() }, oDlg:End() )\n\n   ACTIVATE DIALOG oDlg;\n      CENTER\n\n   ? \"Exiting from test1\"\n\nRETURN( bBlock )\n\n\nSTATIC FUNCTION TEST2()\n   local bBlock\n\n   LOCAL oDlg\n\n   DEFINE DIALOG oDlg;\n      TITLE \"Test2\"\n\n   @ 1, 1 BUTTON \"Switch to test1\";\n      ACTION ( bBlock := { || test1() }, oDlg:End() )\n\n   ACTIVATE DIALOG oDlg;\n      CENTER\n\n   ? \"Exiting from test2\"\n\nRETURN( bBlock )','',0,'QA==','35gqqlt2',1,0,'',343,0,0),(15303,3496,3,6,0,'87.10.2.85',1152221328,1,0,1,1,1,1,'','','This is on oversimplification and doesn\'t still solves my problem, sorry. I actually don\'t know what is the next function to call inside TEST1() and TEST2().\n\nEMG','',0,'QA==','emb96cr7',1,0,'',6,0,0),(15304,3497,6,203,0,'200.107.17.121',1152221411,1,0,1,1,1,1,'','En TSbrowse es posible utilizar copiar y pegar ?','Hola amigos del foro quisiera saber si es posible en un campo de TSbrowse utilizar copiar y pegar por que he probado y no me funciona\nsolo en la grilla de tsbrowse.\n\nDe ser posible que debo hacer gracias..\n\n\nSaludos\n\n\nOscar','',0,'QA==','2632blyy',1,0,'',203,0,0),(15305,3498,7,598,0,'201.209.27.48',1152222223,1,0,1,1,1,1,'','Ayuda con oemtoansi()','camaradas del foro, que funcion se usa en fwppc en lugar de oemtoansi(), ansitooem()','',0,'QA==','xxriv1kn',1,0,'',598,0,0),(15306,3490,16,598,0,'201.209.27.48',1152222365,1,0,1,1,1,1,'','','excelente sr. linares, muy util, por algo dicen \"la gente come con los ojos\"','',0,'QA==','239te5de',1,0,'',598,0,0),(15307,3496,3,343,0,'204.57.111.194',1152222692,1,0,1,1,1,0,'','','It seems to me that if you call test1() from test2(), then test2() from test1(), etc you will keep getting farther down the call stack. You either need to pass a codeblock along to an arbitrator or use the code like I sent above.','',0,'QA==','2mvnxfod',1,0,'',343,0,0),(15308,2980,6,439,0,'190.0.133.1',1152228557,1,0,1,1,1,1,'','Curso Web','Lo dije y lo reafirmo....\nYO!','',0,'QA==','1j56d8ki',1,0,'',439,0,0),(15309,2980,6,228,0,'69.79.183.101',1152232154,1,0,1,1,1,1,'','Cuenten conmigo...','Cuenten conmigo...','',0,'QA==','319voaon',1,0,'',228,0,0),(15310,3488,6,661,0,'201.123.180.64',1152233165,1,0,1,1,1,0,'','','Gracias Antonio, funciona perfecto <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QA==','2tfo8jsa',1,0,'',661,0,0),(15311,2980,6,37,0,'200.121.131.26',1152239437,1,0,1,1,1,1,'','','Rene aqui tienes un alumno mas\nsaludos','',0,'QA==','b9xh9spd',1,0,'',37,0,0),(15312,2980,6,9,0,'85.54.248.133',1152246669,1,0,1,1,1,1,'','','Reconfirmo.','',0,'QA==','o5d9frp8',1,0,'',9,0,0),(15313,3461,3,51,0,'80.122.88.242',1152249203,1,0,1,1,1,0,'','','Hello Antonio, \n\nI had a look at fwh\\samples\\rebars.prg.\n\nBut could you please adopt the example to show:\n\nOffice 2007 Ribbon Control with tab groups, ribbon hyper menus and complete Quick Access Toolbar  \n\nOffice 2007 Ribbon Bar control with button groups and  popups \n\nOffice 2007 Super Tooltips control  and \n\nOffice 2007 style popup Galleries.\n\n\nThanks in advance\nOtto','',0,'QA==','3p48wv3y',1,0,'',51,0,0),(15314,3498,7,2,0,'87.218.146.73',1152253403,1,0,1,1,1,1,'','','Luis,\n[code]\nfunction Main&#40;&#41;\n\n   local cOem  &#58;= &quot;¤¥ ‚¡¢£','',0,'','j46e1qgi',1,0,'',2,0,0),(15315,3496,3,2,0,'87.218.146.73',1152255217,1,0,1,1,1,1,'','','Enrico,\n\nIMO there is nothing wrong with your code. You are managing modal dialogboxes so the execution waits until you return from the called function.\n\nModal dialogboxes stop the execution (its a Windows API modal called function) until you exit from them.\n\nAs Gale said, the stack will grow and grow until you don\'t exit from them. The only solution for this is to use non modal dialog boxes.','',0,'','37nwxob5',1,0,'',2,0,0),(15316,3461,3,2,0,'87.218.146.73',1152255556,1,0,1,1,1,1,'','','Otto,\n\nWe just offered you a way to get something similar to Office 2007 ribbon. \n\nWe don\'t have any intention to emulate Office 2007 ribbon by now. First we need to implement buttons with dropdown menus on toolbars.\n\nUsing rebars and toolbars you will not have a real ribbon, but something with a similar behavior.','',0,'','2866thvq',1,0,'',2,0,0),(15317,3499,16,2,0,'87.218.146.73',1152258332,1,0,1,1,1,1,'','FWPPC 1.0 official release','FWPPC 1.0 is ready. From this moment on, users will have two months of free upgrades.\n\nThis new build includes support for OemToAnsi() and AnsiToOem(), besides all the recently announced implemented features.','',0,'','1maby130',1,0,'',2,0,0),(15318,3500,6,54,0,'201.98.177.17',1152258580,1,0,1,1,1,1,'','Desaparezca de la barra de tareas','Amigos espero explicarme.\n\nRequiero que al correr mi aplicación se vea en el escritorio, pero en la barra de tareas no.\n\nAnexo Imagen.\n\n[img:2vp13koi]http&#58;//incos&#46;sytes&#46;net/fwh/fwh&#46;jpg[/img:2vp13koi]\n\nEspero ayuda.\n\nGracias mil de antemano','',0,'CA==','2vp13koi',1,0,'',54,0,0),(15319,3493,6,2,0,'87.218.146.73',1152258584,1,0,1,1,1,1,'','','Miguel Angel,\n\nHas probado a hacerle un oBrw:SetFocus() desde la función en donde cambias de dialogo en el TPages ?','',0,'CA==','1lzc5qbh',1,0,'',2,0,0),(15320,3493,6,54,0,'201.98.177.17',1152258815,1,0,1,1,1,1,'','Re: Problemas con TPages','[quote=&quot;El Loco&quot;:3n0q4d4p]En un dialogo tengo un Get para busqueda incremental, un browse (el de Hernan) que visualiza datos encontrados, \ny a la derecha varios say y get (de solo lectura), que se van actualizando a media que avanzo sobre el browse.\nDentro de estos controles de la derecha tengo definido un TPages, que dependiendo de un dato (tipo de domicilio)\nmuestra un dialogo u otro. Este TPages tiene definido tres Dialogos (\"C_SVIV\",\"C_VILLAS\",\"C_CASAS\") y que corresponde al dato\nde tipo de domicilios (1,2,3 respectivamente).\nEl tema es que cuando TpoDom es 3, puedo avanzar por el browse tranquilamente, con teclas de cursor o con la ruedita del mouse.\nPero cuando TpoDom cambia a 1 o a 2 si bien hace el cambio de dialogo,el browse pierde el foco, por ende ya no se puede avanzar mas,\nal menos que haga click con el mouse sobre el browse para continuar avanzando, pero ni bien localiza un TpoDom diferente a 3, vuelve\na suceder.\n\nYa probe creo que casi todo:\n  en el Redefine oPge:SetOption(Val(Base-&gt;TpoDom)) o oPge:nOption:= Val(Base-&gt;TpoDom)\n  en el bChange del browse oPge:SetOption(Val(Base-&gt;TpoDom)) o oPge:nOption:= Val(Base-&gt;TpoDom)\n  en el bChange que llame a una funcion para que \"a mano\" con un Do Case carge en el oPge el dialogo correspondiente,\n  avanzando o retrocediendo con un oPge:GoNext() o oPge:GoPrev().\n  y suguro que otras cosas mas que ya estoy olvidando.\n  \nLos dialogos para el oPge tiene el estilo STYLE WS_CHILD | WS_VISIBLE.\nLo extraño es que en otra parte del codigo donde muestra ya todos los datos del beneficio utiliza los mismos dialogos en un oPge,\ny no hay problemas, solo que esta determinado que dialogo mostrar con solo definir oPge:nOption:= Val(Base-&gt;TpoDom).\n\nAlguien le sucedio al parecido o alguien tiene alguna idea de los que pueda ser  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEstoy utilizando FiveWin y Harbour Build de Abril ( ayer baje el de junio pero todavia no lo probe y no creo venga por ahi los tiros)\nPellesC.\n\nDesde ya muchisimas gracias.\n\nUn abrazo. El Loco =&gt;))  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->[/quote:3n0q4d4p]\n\nAmigo,\n\ntuve lgunos problemas de ese tipo y con un simple SYSREFRESH() se solucionaron, pues si hacia el cambio y todo, pero visualmente no hacia nada.\n\nEspero haber ayudado.','',0,'gA==','3n0q4d4p',1,0,'',54,0,0),(15321,3499,16,6,0,'87.10.1.9',1152262463,1,0,1,1,1,1,'','Re: FWPPC 1.0 official release','Congratulations!\n\nEMG','',0,'gA==','bx5pyba1',1,0,'',6,0,0),(15322,3461,3,51,0,'80.122.88.242',1152264332,1,0,1,1,1,0,'','','Hello Antonio, \nThis sounds not good (any intention to emulate Office 2007 ribbon by now). FW in the past was always one of the first implementing new technologies.\n\nIn the meanwhile do you think it is possible to use Xtreme Suite Professional Edition ActiveX with FWH?\n\nRegards\nOtto','',0,'gA==','1uw2hkh5',1,0,'',51,0,0),(15323,3501,6,533,0,'80.32.177.143',1152264693,1,0,1,1,1,0,'','Problemas con Memoria.','Buenos días foro:\n\n   Tengo un problemilla, y es que tengo una opción que me regenera los índices en la aplicación, en la versión de Five no tenía problemas, pero cuando lo pase a Harbour, si. Y es que cuando regenero todos las DBF\'s de la aplicación, no me puedo meter en ninguna opción del programa por que se me sale directamente de la aplicación, sin darme ningun error aparentemete. Pienso que será un problema de memoria. ¿alguna solución?. Y para rematar la faena me gustaría saber si de alguna manera podemos averiguar todas las variables que hay activas en un momento dado, tanto las locales, como staticas, publicas, etc. . . Tal y como podíamos averiguarlo con el depurador de Clipper. \n\nUN SALUDO y muchas gracias de antemano.\n\nMiguel Angel','',0,'gA==','1m5faz0v',1,0,'',533,0,0),(15324,3496,3,6,0,'87.10.1.9',1152264712,1,0,1,1,1,1,'','','Thank you. This is a working sample, at last:\n\n[code:kbo4twb6]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd;\n           FROM 1000, 1000 TO 1000, 1000\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT &#40; oWnd&#58;Hide&#40;&#41;, TEST1&#40; oWnd &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TEST1&#40; oWnd &#41;\n\n    LOCAL oDlg\n\n    LOCAL lQuit &#58;= &#46;T&#46;\n\n    DEFINE DIALOG oDlg;\n           TITLE &quot;Test1&quot;\n\n    @ 1, 1 BUTTON &quot;Switch to test2&quot;;\n           ACTION &#40; lQuit &#58;= &#46;F&#46;, oDlg&#58;End&#40;&#41;, TEST2&#40; oWnd &#41; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             VALID &#40; MSGINFO&#40; &quot;Exiting from test1&quot; &#41;,;\n                     IF&#40; lQuit, oWnd&#58;End&#40;&#41;, &#41;,;\n                     &#46;T&#46; &#41;;\n             CENTER NOMODAL\n\n    ? &quot;Immediately exit from test1&quot;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TEST2&#40; oWnd &#41;\n\n    LOCAL oDlg\n\n    LOCAL lQuit &#58;= &#46;T&#46;\n\n    DEFINE DIALOG oDlg;\n           TITLE &quot;Test2&quot;\n\n    @ 1, 1 BUTTON &quot;Switch to test1&quot;;\n           ACTION &#40; lQuit &#58;= &#46;F&#46;, oDlg&#58;End&#40;&#41;, TEST1&#40; oWnd &#41; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             VALID &#40; MSGINFO&#40; &quot;Exiting from test2&quot; &#41;,;\n                     IF&#40; lQuit, oWnd&#58;End&#40;&#41;, &#41;,;\n                     &#46;T&#46; &#41;;\n             CENTER NOMODAL\n\n    ? &quot;Immediately exit from test2&quot;\n\n    RETURN NIL[/code:kbo4twb6]\n\nEMG','',0,'AIA=','kbo4twb6',1,0,'',6,0,0),(15325,3502,3,32,0,'196.36.8.34',1152267080,1,0,1,1,1,0,'','Rich Edit','Hi,\n\nI\'m trying to run testrich, and get a cannot create dialog box under 2006/05 FWH, and a gpf under 2006/06\n\nIs there anything else I need?\n\nAlex','',0,'AIA=','3dxm8r9x',1,0,'',32,0,0),(15326,3503,3,19,0,'217.153.83.2',1152267351,1,0,1,1,1,0,'','FWH display line with record info outside the dialog','I use ListBox in dialog and at activating this dialog I get a line with record info outside the dialog and main window. Can anybody tell me what is the reason?\n\nFWH 2.7, BCC 5.51, WinXP Pro\n\nregards Eugeniusz\n[code:2pq8k9qh]   \n Define dialog oDlg name &quot;L_DANE&quot;\n   REDEFINE LISTBOX oLbx;\n          FIELDS  str&#40;zf-&gt;nr_komp,6&#41;,zf-&gt;nzw,zf-&gt;konto,str&#40;zf-&gt;brutto,9,2&#41;,zf-&gt;podatekp,str&#40;zf-&gt;kwota,9,2&#41;,dtoc&#40;zf-&gt;data&#41;,zf-&gt;tytul;\n          HEADERS &quot;Numer&quot;, &quot;Nazwisko&quot;,     &quot;Numer konta ROR &quot;,&quot;Brutto&quot;,&quot;Pod&quot;, &quot;Kwota&quot;, &quot;Data przelewu&quot;,&quot;Tytu&#322; przelewu&quot; ;\n          FIELDSIZES 45,    150,        200,               60, 30,60,                80,270 ;\n          ID 601 OF oDlg //UPDATE\n   redefine button id 602 of oDlg action &#40;Nowy&#40;oLbx,&#46;T&#46;&#41;,oLbx&#58;Refresh&#40;&#41;&#41;\n   redefine button id 603 of oDlg action &#40;Nowy &#40;oLbx,&#46;F&#46;&#41;,oLbx&#58;Refresh&#40;&#41;&#41;\n   redefine button id 604 of oDlg action &#40;Kasuj&#40;oLbx&#41;,oLbx&#58;Refresh&#40;&#41;&#41;\n   redefine button id 605 of oDlg action &#40;Eksport&#40;oLbx&#41;,oLbx&#58;Refresh&#40;&#41;&#41;\n   redefine button id 606 of oDlg action &#40;Raport&#40;oLbx&#41;,oLbx&#58;Refresh&#40;&#41;&#41;\n   redefine button id 607 of oDlg action &#40;Raportpod&#40;oLbx&#41;,oLbx&#58;Refresh&#40;&#41;&#41;\n   redefine button id 608 of oDlg action &#40;oLbx&#58;End&#40;&#41;,oDlg&#58;End&#40;&#41;&#41;\n   oLbx&#58;GoBottom&#40;&#41;\n\n   ACTIVATE DIALOG oDlg\n\n[/code:2pq8k9qh]','',0,'AIA=','2pq8k9qh',1,0,'',19,0,0),(15327,3502,3,6,0,'87.10.1.9',1152268152,1,0,1,1,1,1,'','Re: Rich Edit','Did you link TESTRICH.RC?\n\nEMG','',0,'AIA=','391f8zvv',1,0,'',6,0,0),(15328,3502,3,32,0,'196.36.8.34',1152268621,1,0,1,1,1,0,'','Rich edit','No, thanks for that.\n\nI also found testrtf.prg, which solved my problem. I wasn\'t loading riched20.dll in my own code\n\nAlex','',0,'AIA=','dsro6m1k',1,0,'',32,0,0),(15329,3493,6,582,0,'201.253.64.120',1152270253,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:nb8g8kr5]Miguel Angel,\n\nHas probado a hacerle un oBrw:SetFocus() desde la función en donde cambias de dialogo en el TPages ?[/quote:nb8g8kr5]\n\nSi ya lo habia intentado, el tema era que cuando estaba en el Get ingresando datos para la busqueda, al ingresar un digito, se realizaba el bChange del browse y este tomaba el foco.\nAhora me diste la idea que cuando estaba ingresando datos hacer un simple oGet:SetFocus() listo FUNCIONA !!!\n\nGracias !!!\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','nb8g8kr5',1,0,'',582,0,0),(15330,3503,3,19,0,'217.153.83.2',1152270260,1,0,1,1,1,0,'','','Problem resolved.\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nI remove \n[code:2yny36m2]\noLbx&#58;GoBottom&#40;&#41;\n[/code:2yny36m2]\n\nand now is OK\n\nregards Eugeniusz','',0,'AIA=','2yny36m2',1,0,'',19,0,0),(15331,3493,6,582,0,'201.253.64.120',1152270364,1,0,1,1,1,0,'','Re: Problemas con TPages','Amigo,\n\ntuve lgunos problemas de ese tipo y con un simple SYSREFRESH() se solucionaron, pues si hacia el cambio y todo, pero visualmente no hacia nada.\n\nEspero haber ayudado.[/quote]\n\nNo, no funciona.\n\nIgual muchas gracias.\nUn abrazo. El Loco =&gt;))','',0,'','9zu4kepn',1,0,'',582,0,0),(15332,3504,6,350,0,'80.32.243.219',1152271675,1,0,1,1,1,0,'','Solo una instancia','Hola a todos\n\nUna pregunta de novato: ¿ Como hago para que solo se pueda ejecutar una instancia de la aplicación y si intentan ejecutar una segunda muestre un mensaje diciendo que ya está en ejecución ?\n\nSaludos','',0,'','319euyd8',1,0,'',350,0,0),(15333,3505,6,649,0,'201.3.228.157',1152272536,1,0,1,1,1,1,'','Crystal reports','Ola Amigos, mientras que hago para modificar los botones de la\nbarra que aparece en el ejemplo del TCRW.\nQuisiera modificar los Figuras, para colocar un botón de salir,\nque él no está en el menú, mas con el Figuras.\n\nobrigado','',0,'','vbckrz0y',1,0,'',649,0,0),(15334,3504,6,63,0,'80.37.102.128',1152273754,1,0,1,1,1,0,'','','Sebastián:\nYo lo hago así:\n[code:1rhvwepy]\nFUNCTION Main&#40;&#41;\n   IF IsExeRunning&#40;cFileName&#40;HB_ARGV&#40;0&#41;&#41;&#41;\n      MsgAlert&#40;&quot;Solo puede haber una copia del programa en marcha&quot;, &quot;Error&quot;&#41;\n   ELSE\n      oApp &#58;= App&#40;&#41;&#58;New&#40;&#41;\n   ENDIF\nRETURN NIL[/code:1rhvwepy]\nSaludos,\nRafael','',0,'AIA=','1rhvwepy',1,0,'',63,0,0),(15335,3501,6,2,0,'87.218.146.73',1152273993,1,0,1,1,1,1,'','','Mike,\n\nEstás usando una versión/build reciente de Harbour ?\n\nEn cuanto a las variables, Harbour tiene su propio debugger. Solo tienes que compilar con /b y el debugger aparece automaticamente.','',0,'AIA=','4vcdcvt6',1,0,'',2,0,0),(15336,3501,6,533,0,'80.32.177.143',1152275321,1,0,1,1,1,0,'','','Antonio, tengo fw ( mayo 05) y harbour 43.0','',0,'AIA=','2m7o8ble',1,0,'',533,0,0),(15337,3461,3,2,0,'87.218.146.73',1152276259,1,0,1,1,1,1,'','','Otto,\n\nPlease don\'t missunderstand our words. Of course that we would like to have ribbon support, but you have to understand that it is an Office 2007 feature, not a Windows feature (its not a standard common control).\n\nWe are sure that some companies will develop ribbon alike ActiveX controls. In the meantime, we can have a similar behavior using rebars and toolbars. Of course it is not a ribbon, but its somehow similar.\n\nRegarding the ActiveX that you mention, we have not tested it, but FWH should be able to manage it.','',0,'AIA=','1wvzv9j3',1,0,'',2,0,0),(15338,3501,6,2,0,'87.218.146.73',1152276473,1,0,1,1,1,1,'','','Mike,\n\nDeberias actualizarte a la versiones más recientes. Han habido muchos cambios y mejoras en los RDDs.','',0,'AIA=','wel8s831',1,0,'',2,0,0),(15339,3503,3,58,0,'84.149.247.197',1152278235,1,0,1,1,1,0,'','','[quote=&quot;Eugeniusz Owsiak&quot;:12gvfuba]Problem resolved.\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nI remove \n[code:12gvfuba]\noLbx&#58;GoBottom&#40;&#41;\n[/code:12gvfuba]\n\nand now is OK\n\nregards Eugeniusz[/quote:12gvfuba]\nEugeniusz,\n\ndepending on the rdd you are using, you should provide the correct value to the oLbx:bLogicLen block.\nSo it should not be a problem to do a oLbx:GoBottom().\n\nRegards,\nDetlef','',0,'gIA=','12gvfuba',1,0,'',58,0,0),(15340,3504,6,72,0,'201.154.184.108',1152279734,1,0,1,1,1,0,'','','Una mas:\n\n   oMain:=TWCapture():New(\"Mi Aplicación\")\n   IF oMain:lCaptured\n      MsgAlert(\"No puede ser abierto más de una vez.\",\"Precaución!\")\n      oMain:Restore()\n      oMain:GoTop()\n      QUIT\n   ENDIF','',0,'gIA=','1p2c6bp7',1,0,'',72,0,0),(15341,3497,6,203,0,'200.107.2.41',1152280583,1,0,1,1,1,1,'','','Solucionado\nEl problema es con el C5MENU regrese al menu de fivewin\n\n\n\nSaludos\n\n\nOscar','',0,'gIA=','3j2fu2hc',1,0,'',203,0,0),(15342,2980,6,255,0,'200.67.175.250',1152281424,1,0,1,1,1,1,'','','Sin ánimos de quedar como el sangrón de la historia permítanme comentarles lo siguiente.\n\nMuchos de ustedes sabrán que soy un amante de FiveWin desde\nhace mucho. He hecho algunos aportes a esta comunidad y hoy\nen día por razones de tiempo no he podido actualizarlos.\n\nLo anterior lo comento porque quiero que sepan que no obstante\nque FiveWin es una herramienta de mi preferencia, consideré \nnecesario aprender otro lenguaje.\n\nHace un par de años me vi en la necesidad de desarrollar un\nsistema Web. Por supuesto que mi primer opción fué FiveWin.\nSin embargo cayó en mis manos un pequeño manual de PHP+MySQL\ny en un día ya estaba desarrollando sobre esa robusta plataforma.\n\nQue quiero decir con esto? ((y que quede claro que es comentario\nmuy particular))\nPues desde mi punto de vista, recomiendo ampliamente el desarrollo\nde software para web con PHP+MYSQL, tal vez al inicio sientan un\npoco la diferencia, pero eso es de lo mas lógico, es un lenguaje \ntotalmente especializado en entorno web. De lo demás se irán \nfamiliarizando.\n\nSi alguien está interesado en el manual, puede consultar el\nsiguiente link:   <!-- w --><a class=\"postlink\" href=\"http://www.phpfreaks.com\">www.phpfreaks.com</a><!-- w -->\nMejor aún, si tiene alguna duda, pueden consultarme (como siempre)\nen mi dirección de correo electrónico y con gusto atenderé sus dudas.\n\nMe despido por el momento.\nUn abrazo a todos.','',0,'gIA=','16vcm9tq',1,0,'',255,0,0),(15343,3495,2,375,0,'84.122.116.134',1152281460,1,0,1,1,1,1,'','','Nada, solucionado con  la MoveFile() de la kernel32.dll.\n\nFunciona perfectamente. Primero se copia con nombre corto, y después se cambia de nombre con MoveFile()','',0,'gIA=','xhhlhir6',1,0,'',375,0,0),(15344,3498,7,598,0,'201.209.27.48',1152283129,1,0,1,1,1,1,'','','muchas gracias funciono muy bien... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','2rnolezp',1,0,'',598,0,0),(15345,3506,23,569,0,'201.248.144.52',1152283132,1,0,1,1,1,0,'','fox sql select','El fox tiene un comando sql \"select\" que permite reunir o juntar en una sola tablas, varias tablas incluyendo varias clausulas adicionales como WHEN,FOR etc que le dan una gran potencia y versatilidad; mi pregunta es: HARBOUR o XHARBOUR tienen alguna funcion o comando parecida o similar; y cual es esa y por favor un ejemplo.\nGracias','',0,'gIA=','1akcgi9q',1,0,'',569,0,0),(15346,3505,6,138,0,'200.67.109.252',1152283988,1,0,1,1,1,1,'','','No es posible, esos botones vienen con el motor de vista previa en el CRPE32.DLL','',0,'gIA=','37tandc6',1,0,'',138,0,0),(15347,3504,6,350,0,'80.32.243.219',1152287169,1,0,1,1,1,0,'','','Gracias Rafael y Alfredo.\n\nSaludos','',0,'gIA=','wecv14gc',1,0,'',350,0,0),(15349,2203,17,242,0,'81.45.227.110',1152290052,1,0,1,1,1,0,'','Solucionado.','Funciona. No creaba una ventana previa al diálogo, por lo que me devolvía hWnd == 0. El efecto que logras está muy bien.\n\nGracias y un saludo,\nFernando','',0,'gIA=','33yhhta3',1,0,'',242,0,0),(15350,3072,4,95,0,'201.145.145.94',1152290380,1,0,1,1,1,0,'','','Sorry Friends\n\nThe samples that Intel show, are in C#, but If anyway it help\nhere is the links\n\n<!-- m --><a class=\"postlink\" href=\"http://www.intel.com/cd/ids/developer/asmo-na/eng/dc/mobile/213226.htm\">http://www.intel.com/cd/ids/developer/a ... 213226.htm</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.intel.com/cd/ids/developer/asmo-na/eng/221959.htm\">http://www.intel.com/cd/ids/developer/a ... 221959.htm</a><!-- m -->\n\nBest Regards to all\nOsvaldo Ramirez','',0,'gIA=','24d0rqll',1,0,'',95,0,0),(15351,3507,3,217,0,'200.159.120.34',1152291894,1,0,1,1,1,0,'','Antonio: how about button [?] in NoModal dialogs?','Antonio, could you solve that problem of [?] button in NoModal dialogs?\nThe [?] button don\'t work in this dialog type...\n\nRegards!\nMaurilio','',0,'','iuhoips6',1,0,'',217,0,0),(15352,3505,6,217,0,'200.159.120.34',1152292490,1,0,1,1,1,0,'','','Em VB é possivel, mas não sei como se faz.\nVou perguntar a um amigo meu que programa em VB e lhe conto depois...\n\nEn VB es posible pero no se como se hace.\nVoi a preguntar a un de mios amigos progrador en VB e te contesto despues...\n\nMaurilio','',0,'','2egijqdw',1,0,'',217,0,0),(15353,3508,6,396,0,'201.243.101.52',1152295298,1,0,1,1,1,1,'','Validando variables numericas','Hola a todos, tengo el siguiente problema, las variables string las valido ben, pero las numericas me da error de SUBT pero bajo FW 16 las validaciones funcionan bien, necesito tomar en cuenta alg nuevo..? solo me pasa con las numericas, y son las mimas de la version FW, gracias..','',0,'','3q72t4op',1,0,'',396,0,0),(15354,3461,3,51,0,'80.122.88.242',1152297912,1,0,1,1,1,0,'','','Hello Antonio,\n\nthere is a try-version of this activeX for download.\n\nCould you show in a little example how this ocx could be addressed from FWH.\n\nThanks in advance\nOtto','',0,'','16wvc2w5',1,0,'',51,0,0),(15355,2980,6,422,0,'195.8.13.181',1152299987,1,0,1,1,1,1,'','','Juan Carlos...\n\nEstoy 100% de acuerdo con el comentario de Oskar... pues ademas de ello es que si particularmente yo estoy interesado en aprender esto de aplicaciones en entorno web, logicamente es pq tengo en mente implementarlo en [x]Harbour + FWH, o es que alguien que respondió el tópico pensó en otras herramienta ???... de ser asi yo estoy interesado en aprenderlo con Delphi utilizando tecnologías WebBroker, WebSnap .... y DataSpap si queremos  que la misma sea multicapa.\n\nEs solo un comentario...','',0,'','fmc68xqd',1,0,'',422,0,0),(15356,3509,6,152,0,'200.113.119.168',1152301143,1,0,1,1,1,0,'','wbrowse de Hernan da error cuando bajo VScroll con mouse','Me da este error, no se a que se debe:\n\n[code:1t1v30hl]   Error description&#58; Error BASE/1001  Undefined function&#58; ORDKEYGOTO\n   Args&#58;\n     &#91;   1&#93; = N   1480\n\nStack Calls\n===========\n   Called from&#58;  =&gt; ORDKEYGOTO&#40;0&#41;\n   Called from&#58;  =&gt; &#40;b&#41;SETFILTER&#40;2677&#41;\n   Called from&#58;  =&gt; &#40;b&#41;SETFILTER&#40;2678&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;VSCROLL&#40;2220&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58;  =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; DIALOGBOX&#40;0&#41;\n   Called from&#58;  =&gt; TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; &#46;manprod&#46;prg =&gt; MANPROD&#40;372&#41;\n[/code:1t1v30hl]\n\n Busque la funcion ORDKEYGOTO en los Help\'s y encontre que pertenece a la clase TXBrowse la cual, no uso. \n\n\nSi alguien me puede ayudar, de antemanos gracias,\n\nGonzalo\nFW27','',0,'AIA=','1t1v30hl',1,0,'',152,0,0),(15357,3510,6,649,0,'201.41.255.126',1152303673,1,0,1,1,1,1,'','Crystal Reports','Como faço para o relatorio busque os valores do DBF\n[code:3suafamq]DEFINE WINDOW oVentHija MDICHILD OF oWnd;\n              STYLE nSTYLE;\n              VSCROLL HSCROLL\n   oVentHija&#58;oVScroll&#58;SetRange&#40;0,0&#41;\n   oVentHija&#58;oHScroll&#58;SetRange&#40;0,0&#41;\n\n\n   oCrystal&#58;PEOpenPrintJob&#40;cReportName&#41;\n   oCrystal&#58;PESetTabLocation&#40;&quot;TEST&#46;DBF&quot;&#41;\n   oCrystal&#58;PeOutputToWindow&#40; oVentHija &#41;\n\n   oVentHija&#58;oHScroll&#58;bPos &#58;= &#123;|nPos| hScroll&#40;GO_POS, &#46;f&#46;, nPos&#41;&#125;\n   oVentHija&#58;oVScroll&#58;bPos &#58;= &#123;|nPos| vScroll&#40;GO_POS, &#46;f&#46;, nPos&#41;&#125;\nACTIVATE WINDOW oVentHija MAXIMIZED ON INIT &#40;oCrystal&#58;PeStartPrintJob&#40;&#41;,;\n               hReport &#58;= oCrystal&#58;PEGetWindowHandle&#40;&#41;,;\n               WndSetSize&#40;hReport,oVentHija&#58;nWidth-7,oVentHija&#58;nHeight-8,&#46;T&#46;&#41;&#41;;\n               ON UP        vScroll&#40;GO_UP&#41;            ;\n               ON DOWN      vScroll&#40;GO_DOWN&#41;          ;\n               ON PAGEUP    vScroll&#40;GO_UP,GO_PAGE&#41;    ;\n               ON PAGEDOWN  vScroll&#40;GO_DOWN,GO_PAGE&#41;  ;\n               ON LEFT      hScroll&#40;GO_LEFT&#41;          ;\n               ON RIGHT     hScroll&#40;GO_RIGHT&#41;         ;\n               ON PAGELEFT  hScroll&#40;GO_LEFT,GO_PAGE&#41;  ;\n               ON PAGERIGHT hScroll&#40;GO_RIGHT,GO_PAGE&#41;;\n               ON PAINT &#40;hReport &#58;= oCrystal&#58;PEGetWindowHandle&#40;&#41;,;\n                         WndSetSize&#40;hReport,oVentHija&#58;nWidth-7,oVentHija&#58;nHeight-8,&#46;T&#46;&#41;&#41;;\n               VALID &#40;oCrystal&#58;PEClosePrintJob&#40;&#41;,&#46;T&#46;&#41; &#46;and&#46; fecha&#40;&#41;\n\n[/code:3suafamq]','',0,'AIA=','3suafamq',1,0,'',649,0,0),(15358,3508,6,362,0,'200.168.52.156',1152305462,1,0,1,1,1,1,'','','usa el COMANDO STR(VAR).','',0,'AIA=','13px5x04',1,0,'',362,0,0),(15359,3461,3,2,0,'87.218.146.73',1152305870,1,0,1,1,1,1,'','','Otto,\n\n&gt; there is a try-version of this activeX for download\n\nCould you please provide the download url ? thanks,','',0,'AIA=','fu5owzyf',1,0,'',2,0,0),(15360,3510,6,138,0,'200.67.109.252',1152307033,1,0,1,1,1,1,'','','oCrystal:PESetTabLocation(\"c:\\carpeta\\otra\\TEST.DBF\") \n\nla ruta tiene que se completa a donde esta el DBF del cual se realiza el infomre.','',0,'AIA=','2xq18qdo',1,0,'',138,0,0),(15361,3511,6,665,0,'196.40.13.99',1152310985,1,0,1,1,1,0,'','problemas   Unresolved external _HB_FUN_HB_G ayuda por favor','Un saludito y aver que si me pueden ayudar\n\nEstamos  utilizando  \n\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org\">http://www.harbour-project.org</a><!-- m -->\n\ny FWh 2.5 el make y fwh.mak\n\nEstamos   emigrando y haciendo pruebas con un amigo que posee la version que he mensionado y juntos  tartamos de  compilar un prg de ejempo que viene el fwh2.5 en samples\n\nNos  daba el error  de .lib que no estaban con la configuracion de .cfg del BCC55 que hasbias puesto se definio el problema. Ahora sabemos que estos problemas o pensamos podriamos decir que son por falta de  librerias o que la version no es compatible , podrian decirnos que sucede\n\nGracias.\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	c:\\bcc55\\bin\\ilink32.exe -Gn -aa -Tpe -s -Iobj -x @MAKE0000.@@@\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from C:\\HARBOUR\\LIB\\RTL.LIB|gtsys\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFNTX\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|rddsys\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|rddsys\n\n** error 2 ** deleting .\\WIN32.exe','',0,'AIA=','3iqb2qoc',1,0,'',665,0,0),(15362,3512,3,303,0,'72.199.41.171',1152311199,1,0,1,1,1,0,'','oGet:bGotFocus Problem','I am trying to change the behavior of a GET using bGotFocus. I want the cursor to be in the 1 postion when the GET is entered and to clear the contents of the GET if the user starts typing in the first postion. The code below works when you tab or shift-tab into the GET but [b:3c12mmah]not[/b:3c12mmah] if you click into the GET. Strangely, you do hear the tone() when clicking into the GET so the codeblock is getting eval\'d, but there must be other code that is getting called after the codeblock which then moves the cursor back to the click position. I have been working on this for hours with no luck.\n\nUsing May 2006 FWH.\n\nAny ideas on a solution?\n\nJames\n-------------------------\n\n[code:3c12mmah]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg, oGet, cName&#58;= &quot;Microsoft           &quot;, oGet2, cAddress&#58;=space&#40;22&#41;, oBtn\n\n   define dialog oDlg\n\n   @ 1,1 get oGet var cName of oDlg \n\n   oGet&#58;bGotFocus&#58;= &#123;||  oGet&#58;gohome&#40;&#41;, oGet&#58;oGet&#58;clear&#58;=&#46;t&#46;, tone&#40;300,1&#41; &#125;\n\n   @ 2,1 get oGet2 var cAddress of oDlg update\n\n   activate dialog oDlg\n\nreturn nil[/code:3c12mmah]','',0,'QIA=','3c12mmah',1,0,'',303,0,0),(15363,3411,6,36,0,'200.113.56.235',1152311593,1,0,1,1,1,0,'','','Aqui hay otra y funciona bien\n\n\n[code:3nznhl01]\n#define TB_ISBUTTONHIDDEN      1036\n\n\nMETHOD IsButtonHidden&#40; nButton &#41; INLINE &#40;SendMessage&#40; &#58;&#58;hWnd, TB_ISBUTTONHIDDEN, nButton, 0 &#41; &lt;&gt; 0 &#41;\n[/code:3nznhl01]\n\n\n\nSaludos\nPatricio','',0,'AIA=','3nznhl01',1,0,'',36,0,0),(15364,3511,6,422,0,'195.8.13.99',1152313205,1,0,1,1,1,1,'','','.....Enlaza.. HBSIX.LIB','',0,'AIA=','24ajufc1',1,0,'',422,0,0),(15365,3513,6,665,0,'200.122.153.34',1152314878,1,0,1,1,1,0,'','Gracias pero que podra ser    ayuda  por favor','Tengo esta version de Harbour\nC:\\prueba&gt;harbour\nHarbour Compiler Alpha build 46.0 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\ny FW25, \ny no logoro ni compilar un hellow\n me puedes  explicar\nte pondo mi .mak abajo\n\n\n\n# Harbour libraries  \nRTL_LIB    = $(HARBOUR_LIB_DIR)\\rtl.lib\nVM_LIB     = $(HARBOUR_LIB_DIR)\\vm.lib\nGTWIN_LIB  = $(HARBOUR_LIB_DIR)\\gtwin.lib\nLANG_LIB   = $(HARBOUR_LIB_DIR)\\lang.lib\nMACRO_LIB  = $(HARBOUR_LIB_DIR)\\macro.lib\nRDD_LIB    = $(HARBOUR_LIB_DIR)\\rdd.lib\nDBFNTX_LIB = $(HARBOUR_LIB_DIR)\\dbfntx.lib\nDBFCDX_LIB = $(HARBOUR_LIB_DIR)\\dbfcdx.lib\nDEBUG_LIB  = $(HARBOUR_LIB_DIR)\\debug.lib\nCOMMON_LIB = $(HARBOUR_LIB_DIR)\\common.lib\nPP_LIB     = $(HARBOUR_LIB_DIR)\\pp.lib\nHBSIX.LIB = $(HARBOUR_LIB_DIR)\\HBSIX.LIB\n\ny siempre sa este herror\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	c:\\bcc55\\bin\\ilink32.exe -Gn -aa -Tpe -s -Iobj -x @MAKE0000.@@@\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFNTX\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|rddsys\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|rddsys\nError: Unresolved external \'_hb_objGetpMethod\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC\n\n** error 2 ** deleting .\\WIN32.exe\n\n##############################################################################\n# Template make file for FWH and Borland Make tool                           #\n# Copyright FiveTech 2002                                                    #\n# Use: bmake.bat &lt;your_make_file&gt;                                            #\n##############################################################################\n\n# Win2000 bug ################################################################\n# Uncomment next line if you receive any DEL error ###########################\n# set DEL=cmd /c del\n\n!if !$d(DEL)\n   DEL = del\n!endif\n\n# Make directives ############################################################\n\n.autodepend\n.swap\n.suffixes: .prg .hrb\n\n# Flags for modules to include: YES | NO (must be UPPERCASE)##################\n\nRES_FILE      = NO\nLNK_DBFNTX    = NO\nLNK_DBFCDX    = NO\nLNK_DEBUG     = NO\nLNK_ADVANTAGE = NO\nLNK_ODBC      = NO\nMAP_FILE      = NO\n\n# Application directories &amp; filenames ########################################\n\nAPP_NAME         = WIN32 # (Your EXE name without extension)\nAPP_PRG_DIR      = .\nAPP_OBJ_DIR      = obj  # (create the app\\obj directory first)\nAPP_INCLUDE_DIR  = .\nAPP_EXE_DIR      = $(APP_PRG_DIR)\nAPP_RES_DIR      = $(APP_PRG_DIR)\n\nAPP_EXE  = $(APP_EXE_DIR)\\$(APP_NAME).exe\nAPP_RC   = $(APP_RES_DIR)\\$(APP_NAME).rc\nAPP_RES  = $(APP_RES_DIR)\\$(APP_NAME).res\nAPP_MAP  = $(APP_RES_DIR)\\$(APP_NAME).map\n\n# Paths for dependent files ##################################################\n\n.path.prg = $(APP_PRG_DIR)\n.path.hrb = $(APP_OBJ_DIR)\n.path.obj = $(APP_OBJ_DIR)\n\n# Application PRG files (your PRG files go here) #############################\n\nAPP_PRG_LIST = \\\n   WIN32.prg\\\n# Contruction of the rest dependency lists ###################################\n\nAPP_PRGS = $(APP_PRG_LIST)\nAPP_HRBS = $(APP_PRG_LIST:.prg=.hrb)\nAPP_OBJS = $(APP_PRG_LIST:.prg=.obj)\n\n# Fivewin directories ########################################################\n\nFIVEWIN_INCLUDE_DIR = c:\\FWH\\include\nFIVEWIN_LIB_DIR     = c:\\FWH\\lib\n\n# Fivewin libraries ##########################################################\n\nFIVE_LIB  = $(FIVEWIN_LIB_DIR)\\fiveH.lib\nFIVEC_LIB = $(FIVEWIN_LIB_DIR)\\fiveHC.lib\n\n# Harbour directories &amp; flags ################################################\n\nHARBOUR_INCLUDE_DIR = c:\\harbour\\include\nHARBOUR_EXE_DIR     = c:\\harbour\\bin\nHARBOUR_LIB_DIR     = c:\\harbour\\lib\nHARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n  -w -es2 -gc0\nHARBOUR_EXE         = $(HARBOUR_EXE_DIR)\\harbour.exe\n\n# Harbour libraries ##########################################################\n\nRTL_LIB    = $(HARBOUR_LIB_DIR)\\rtl.lib\nVM_LIB     = $(HARBOUR_LIB_DIR)\\vm.lib\nGTWIN_LIB  = $(HARBOUR_LIB_DIR)\\gtwin.lib\nLANG_LIB   = $(HARBOUR_LIB_DIR)\\lang.lib\nMACRO_LIB  = $(HARBOUR_LIB_DIR)\\macro.lib\nRDD_LIB    = $(HARBOUR_LIB_DIR)\\rdd.lib\nDBFNTX_LIB = $(HARBOUR_LIB_DIR)\\dbfntx.lib\nDBFCDX_LIB = $(HARBOUR_LIB_DIR)\\dbfcdx.lib\nDEBUG_LIB  = $(HARBOUR_LIB_DIR)\\debug.lib\nCOMMON_LIB = $(HARBOUR_LIB_DIR)\\common.lib\nPP_LIB     = $(HARBOUR_LIB_DIR)\\pp.lib\nHBSIX.LIB = $(HARBOUR_LIB_DIR)\\HBSIX.LIB\n\n\n\n# Advantage libraries ########################################################\n\n#RDDADS_LIB = $(HARBOUR_LIB_DIR)\\rddads.lib\n#ACE32_LIB  = $(FIVEWIN_LIB_DIR)\\ace32.lib\n\n# Borlanc directories &amp; flags ################################################\n\nBORLANDC_INCLUDE_DIR = c:\\bcc55\\include\nBORLANDC_EXE_DIR     = c:\\bcc55\\bin\nBORLANDC_LIB_DIR     = c:\\bcc55\\lib\nBORLANDC_COMP_FLAGS  = -c -O2 -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)\nBORLANDC_COMP_EXE    = $(BORLANDC_EXE_DIR)\\bcc32.exe\nBORLANDC_LINK_FLAGS  = -Gn -aa -Tpe -s -I$(APP_OBJ_DIR)\nBORLANDC_LINK_FDEBUG = -Gn -Tpe -s -I$(APP_OBJ_DIR)\nBORLANDC_LINK_EXE    = $(BORLANDC_EXE_DIR)\\ilink32.exe\nBORLANDC_RES_EXE     = $(BORLANDC_EXE_DIR)\\brc32.exe\n\n!if $(MAP_FILE) != YES\n   BORLANDC_LINK_FLAGS = $(BORLANDC_LINK_FLAGS) -x\n!endif\n\n# Borland libraries &amp; files ##################################################\n\nSTARTUP_OBJ  = $(BORLANDC_LIB_DIR)\\c0w32.obj\nCW32_LIB     = $(BORLANDC_LIB_DIR)\\cw32.lib\nIMPORT32_LIB = $(BORLANDC_LIB_DIR)\\import32.lib\nODBC32_LIB   = $(BORLANDC_LIB_DIR)\\psdk\\odbc32.lib\n\n# Dependencies ###############################################################\n\nall: $(APP_OBJS) $(APP_HRBS) $(APP_EXE)\n\n!if $(RES_FILE) == YES\nall: $(APP_RES)\n!endif\n\n# Implicit Rules #############################################################\n\n.prg.hrb:\n   $(HARBOUR_EXE) $(HARBOUR_FLAGS) $** -o$@\n\n.hrb.obj:\n   $(BORLANDC_COMP_EXE) $(BORLANDC_COMP_FLAGS) -o$@ $**\n\n# Explicit Rules #############################################################\n\n!if $(RES_FILE) == YES\n$(APP_RES) : $(APP_RC)\n   $(BORLANDC_RES_EXE) -r $**\n\n$(APP_EXE) :: $(APP_RES)\n   @if exist $(APP_EXE) $(DEL) $(APP_EXE) &gt; nul\n!endif\n\n$(APP_EXE) :: $(APP_OBJS)\n!if $(LNK_DEBUG) == YES\n   $(BORLANDC_LINK_EXE) $(BORLANDC_LINK_FDEBUG) @&amp;&amp;|\n!else\n   $(BORLANDC_LINK_EXE) $(BORLANDC_LINK_FLAGS) @&amp;&amp;|\n!endif\n   $(STARTUP_OBJ) +\n   $(**), +\n   $(APP_EXE), +\n   $(APP_MAP), +\n   $(FIVE_LIB) +\n   $(FIVEC_LIB) +\n   $(RTL_LIB) +\n   $(VM_LIB) +\n   $(GTWIN_LIB) +\n   $(LANG_LIB) +\n   $(MACRO_LIB) +\n   $(RDD_LIB) +\n!if $(LNK_DBFNTX) == YES\n   $(DBFNTX_LIB) +\n!endif\n!if $(LNK_DBFCDX) == YES\n   $(DBFCDX_LIB) +\n!endif\n!if $(LNK_DEBUG) == YES\n   $(DEBUG_LIB) +\n!endif\n   $(COMMON_LIB) +\n   $(PP_LIB) +\n!if $(LNK_ADVANTAGE) == YES\n   $(RDDADS_LIB) +\n   $(ACE32_LIB) +\n!endif\n!if $(LNK_ODBC) == YES\n   $(ODBC32_LIB) +\n!endif\n   $(CW32_LIB) +\n   $(IMPORT32_LIB), +\n!if $(RES_FILE) == YES\n   ,$(APP_RES)\n!endif\n|\n   @$(DEL) $(APP_EXE_DIR)\\$(APP_NAME).tds','',0,'AIA=','exx0hed3',1,0,'',665,0,0),(15366,449,3,234,0,'72.130.245.196',1152316885,1,0,1,1,1,1,'','','Hello,\n\nWhere can I get BARLIB.LIB with documentation?\n\nThank you,','',0,'AIA=','qs0dv8tk',1,0,'',234,0,0),(15367,3509,6,72,0,'200.95.25.136',1152318384,1,0,1,1,1,0,'','','Agrega:\n\nEXTERNAL OrdKeyCount, OrdKeyGoTo, OrdKeyNo\n\nY seguirá siendo tan estable como siempre.','',0,'AIA=','3cuqs3e9',1,0,'',72,0,0),(15368,3514,6,665,0,'200.122.153.34',1152321887,1,0,1,1,1,0,'','FWH2.5   NOS DA ERROR LA VERSION FWH2.4    ESTA ESTA BIEN','Estmados amigos \n\nHemos estado buscado respuestas y la  encotramos los siguiente\n\n CON  ESTA VERSION DE  HARBOR YA LA VERION DE fwH 2.4 \n\nHarbour Compiler Alpha build 42.0 (Flex)\nCopyright 1999-2002, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nCompilamos y todo la compilacion  trabaja a la perfeccion\nNO HA ERRORES Y LOS .EXE PERFEECTOS\n\n\nPERO\n\n::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::\n\nUtilizamos  FWH2.5  Y \n\n \nHarbour Compiler Alpha build 46.0 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\ny SALE \n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	c:\\bcc55\\bin\\ilink32.exe -Gn -Tpe -s -Iobj @MAKE0000.@@@\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|rddsys\nError: Unresolved external \'_hb_objGetpMethod\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC\n\n** error 2 ** deleting .\\win32.exe\n\naUN SI CAMBIANOS A FWH24  Y EL \n\nHarbour Compiler Alpha build 42.0 (Flex)\nCopyright 1999-2002, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nNOS DA ERROR\n\nqUE PUEDE FIFERENCIAR LA VERSION DEL FWH24 CON  LA LA VERSION FWH2.5 QUE POSEE mi amigo \ny las versiones del harbour.\n\nCUalkier ayuda que nos puedan brindar.\nGracias\n\nBusmatic.','',0,'AIA=','3r8mdsmz',1,0,'',665,0,0),(15369,449,3,190,0,'202.65.134.45',1152322949,1,0,1,1,1,0,'','','Hi cdmmaui\n\n[quote:1jg1r70g]Where can I get BARLIB.LIB with documentation? [/quote:1jg1r70g]\n\nSend a request mail to my e-mail ID.\nI will send a copy of BARLIB.ZIP \n\n- Ramesh Babu P','',0,'gA==','1jg1r70g',1,0,'',190,0,0),(15370,449,3,234,0,'72.130.245.196',1152323164,1,0,1,1,1,1,'','','Hi Ramesh,\n\nThank you for your response. I have sent the request to your email.\n\nSincerely,','',0,'gA==','1xk73dhi',1,0,'',234,0,0),(15371,3514,6,492,0,'201.154.126.49',1152328037,1,0,1,1,1,1,'','','Hola Busmatic\n\nPrueba agregando estas libs en tu app.\n\nhbsix.lib  y dbffpt.lib\n\nSaludos','',0,'gA==','3hq0kzzk',1,0,'',492,0,0),(15372,3515,3,2,0,'87.218.146.73',1152337886,1,0,1,1,1,1,'','ToolBars dropdown menus support','To be published in FWH July 2006 build:\n[url=http&#58;//imageshack&#46;us:2pekepc3][img:2pekepc3]http&#58;//img153&#46;imageshack&#46;us/img153/8140/imagen3mi&#46;png[/img:2pekepc3][/url:2pekepc3]','',0,'GA==','2pekepc3',1,0,'',2,0,0),(15373,3516,6,2,0,'87.218.146.73',1152337972,1,0,1,1,1,1,'','Soporte de menus dropdown en ToolBars','Se publicará en el build de Julio 2006 de FWH:\n[url=http&#58;//imageshack&#46;us:2d7iwq86][img:2d7iwq86]http&#58;//img153&#46;imageshack&#46;us/img153/8140/imagen3mi&#46;png[/img:2d7iwq86][/url:2d7iwq86]','',0,'GA==','2d7iwq86',1,0,'',2,0,0),(15374,3461,3,51,0,'80.122.88.242',1152340735,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://www.codejock.com/downloads/\">http://www.codejock.com/downloads/</a><!-- m -->\n\nthen:\n\nActiveX / COMThis evaluation can be used with Visual Studio 5.0, 6.0, .NET 2002, .NET 2003, and .NET 2005. Unicode versions of the OCX files are currently not provided with the evaluation version.\n\nXtreme Suite Professional Edition\n\n\nRegards\nOtto','',0,'GA==','mohsp61q',1,0,'',51,0,0),(15375,3411,6,2,0,'87.218.146.73',1152341190,1,0,1,1,1,1,'','','Patricio,\n\nMuchas gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','1cb5dw96',1,0,'',2,0,0),(15376,3511,6,2,0,'87.218.146.73',1152341287,1,0,1,1,1,1,'','','Enlaza también DBFFTP.lib, DBFNTX.lib y GTWIN.lib\n\nAtención: a partir de FWH Junio 2006 se usa GTGUI.lib en vez de GTWIN.lib.','',0,'GA==','27kqjhfu',1,0,'',2,0,0),(15377,3512,3,6,0,'82.61.28.227',1152342304,1,0,1,1,1,1,'','Re: oGet:bGotFocus Problem','[code:2cdotxor]#include &quot;fivewin&#46;ch&quot; \n\nfunction main&#40;&#41; \n   local oDlg, oGet, cName&#58;= &quot;Microsoft           &quot;, oGet2, cAddress&#58;=space&#40;22&#41;, oBtn \n\n   define dialog oDlg \n\n   @ 1,1 get oGet var cName of oDlg \n\n//   oGet&#58;bGotFocus&#58;= &#123;||  oGet&#58;gohome&#40;&#41;, oGet&#58;oGet&#58;clear&#58;=&#46;t&#46;, tone&#40;300,1&#41;, sysrefresh&#40;&#41; &#125; \n   oGet&#58;bGotFocus &#58;= &#123; || oGet&#58;PostMsg&#40; WM_KEYDOWN, VK_HOME &#41; &#125;\n\n   @ 2,1 get oGet2 var cAddress of oDlg update \n\n   activate dialog oDlg \n\nreturn nil[/code:2cdotxor]\n\nEMG','',0,'AIA=','2cdotxor',1,0,'',6,0,0),(15378,3512,3,6,0,'82.61.28.227',1152343045,1,0,1,1,1,1,'','Re: oGet:bGotFocus Problem','Alternative (maybe better):\n\n[code:1hf8r1pc]#include &quot;fivewin&#46;ch&quot; \n\n#define EM_SETSEL 177\n\n\nfunction main&#40;&#41; \n   local oDlg, oGet, cName&#58;= &quot;Microsoft           &quot;, oGet2, cAddress&#58;=space&#40;22&#41;, oBtn \n\n   define dialog oDlg \n\n   @ 1,1 get oGet var cName of oDlg \n\n//   oGet&#58;bGotFocus&#58;= &#123;||  oGet&#58;gohome&#40;&#41;, oGet&#58;oGet&#58;clear&#58;=&#46;t&#46;, tone&#40;300,1&#41;, sysrefresh&#40;&#41; &#125; \n//   oGet&#58;bGotFocus &#58;= &#123; || oGet&#58;PostMsg&#40; WM_KEYDOWN, VK_HOME &#41; &#125;\n   oGet&#58;bGotFocus &#58;= &#123; || oGet&#58;PostMsg&#40; EM_SETSEL, Len&#40; RTrim&#40; cName &#41; &#41;, 0 &#41; &#125;\n\n   @ 2,1 get oGet2 var cAddress of oDlg update \n\n   activate dialog oDlg \n\nreturn nil[/code:1hf8r1pc]\n\nEMG','',0,'AIA=','1hf8r1pc',1,0,'',6,0,0),(15379,3512,3,303,0,'72.199.41.171',1152343203,1,0,1,1,1,0,'','','Enrico,\n\n&gt;   oGet:bGotFocus := { || oGet:PostMsg( WM_KEYDOWN, VK_HOME ) } \n\nI already tried that. First it only has an effect when tabbing or shift-tabbing into the Get. What it does is select the text from position 1 to the current postion without changing the position. I need it to go to position 1 without selecting any text.\n\nAlso, your proposed solution does nothing when you click into the GET.\n\nJames','',0,'AIA=','t38ppyx2',1,0,'',303,0,0),(15380,3512,3,303,0,'72.199.41.171',1152343560,1,0,1,1,1,0,'','','Enrico,   \n\n&gt;oGet:bGotFocus := { || oGet:PostMsg( EM_SETSEL, Len( RTrim( cName ) ), 0 ) }\n\nThis one selects all the text from 1 to the current cursor position. Still not what I need.\n\nJames','',0,'AIA=','38js57dj',1,0,'',303,0,0),(15381,3500,6,54,0,'201.98.177.17',1152344726,1,0,1,1,1,1,'','Re: Desaparezca de la barra de tareas','Nadie se anima.\n\n\nSaludos','',0,'AIA=','ieco7v27',1,0,'',54,0,0),(15382,3461,3,15,0,'203.79.155.24',1152347442,1,0,1,1,1,0,'','','Hello Antinio,\n\nWe can find more ActiveX components, but we have not IDE for how to easy to use these ActiveX components within FWH.\nI remember Office 2003 menu ActiveX only 60USD, I think very good price and enhance my AP. But we need more sample how to use it now.\n\nRegards,\n\nRichard','',0,'AIA=','ikrbkwp6',1,0,'',15,0,0),(15383,3512,3,6,0,'82.59.51.157',1152348031,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1zqu7i5z]Enrico,\n\n&gt;   oGet:bGotFocus := { || oGet:PostMsg( WM_KEYDOWN, VK_HOME ) } \n\nI already tried that. First it only has an effect when tabbing or shift-tabbing into the Get. What it does is select the text from position 1 to the current postion without changing the position. I need it to go to position 1 without selecting any text.\n\nAlso, your proposed solution does nothing when you click into the GET.\n\nJames[/quote:1zqu7i5z]\n\nWhat it does here is the following:\n\n1. I click on the second GET.\n\n2. Then I click on the first GET (not on the first position).\n\n3. The caret is now on the first position of the first GET.\n\nIs it what you need?\n\nEMG','',0,'gA==','1zqu7i5z',1,0,'',6,0,0),(15384,3517,1,161,0,'81.164.212.146',1152348299,1,0,1,1,1,0,'','IP locator','Does anyone has already creates a program tha locates the location of a IP-adress. I have created a program that extract the time,date,url, refer URL and IP-adress of the visitors on a website from a log-report provided by the host of the site.\nThere are some websites where you can enter a IP-adress, and returns the location (Country, state,city) of that IP adress.\nI want to call a site that gives this information and automaticly add it in the database. Does anyone knows such a site. All the sites I found show the result on there site, but how can I extract it, so I can import the data?\nIk know there are some sites that give this information for free if you add a little script on the pages of your site. But it would be nice if I can make it myself, so I can use that info.\n\nThanks,\nMarc','',0,'gA==','3mdliram',1,0,'',161,0,0),(15385,3512,3,303,0,'72.199.41.171',1152349361,1,0,1,1,1,0,'','','Enrico,\n\n[quote:2gy3w5m5]What it does here is the following: \n\n1. I click on the second GET. \n\n2. Then I click on the first GET (not on the first position). \n\n3. The caret is now on the first position of the first GET. \n\nIs it what you need?[/quote:2gy3w5m5]\n\nYes, that is what I need but not what I am getting here. When I do exactly what you describe above, the text is highlighted from position 1 to the place where I clicked, and the cursor is flashing at the place where I clicked. I have double checked the code and it is the same as yours.\n\nI am using FWH, May 2006 and the Harbour that came with it. Are you using xHarbour? Maybe that is the difference.\n\nJames','',0,'gA==','2gy3w5m5',1,0,'',303,0,0),(15386,3512,3,303,0,'72.199.41.171',1152349576,1,0,1,1,1,0,'','','Enrico,\n\nI also see exactly the same behavior that I get with Harbour with Clipper.\n\nJames','',0,'gA==','i2j3bwx9',1,0,'',303,0,0),(15387,3512,3,6,0,'82.59.51.157',1152351669,1,0,1,1,1,1,'','','I\'m using latest FWH with latest xHarbour or latest Harbour.\n\nEMG','',0,'gA==','11tqd38n',1,0,'',6,0,0),(15388,3512,3,6,0,'82.59.51.157',1152351929,1,0,1,1,1,1,'','','Do you want my EXE to test it there?\n\nEMG','',0,'gA==','ae8ugoyr',1,0,'',6,0,0),(15389,3518,7,57,0,'83.56.204.183',1152357054,1,0,1,1,1,1,'','Menu con bitmaps + Menus Popup','Antonio\nMagnífico trabajo. Se ven mucho más bonitas las pantallas utilizando este estilo.\n\nVarias dudas sobre los Menus:\n\n- ¿ Como puedo construir un Menu utilizando sobre el mismo menu, popup\'s + opciones de Menu con bitmaps. Consigo que se muestren pero no consigo que el Popup se despliegue.\n\n- Si utilizo Menus con bitmaps el bwhen no se evalua. \n\n- Es correcto que muestre un estilo de fuente diferente al utilizado en la Ventana principal?\n\nUn comentario. \nDebemos incorporar la propiedad TBSTYLE_BUTTON | TBSTYLE_AUTOSIZE con WCE para que se muestre correctamente. No sé porque razón sin el AUTOSIZE WCE lo corta por la mitad. Con PPC no pasa.\n\nSaludos\nToni Sales','',0,'gA==','sewpoyk7',1,0,'',57,0,0),(15390,3519,6,52,0,'200.127.195.89',1152359405,1,0,1,1,1,1,'','Help &amp; FWH','Amigos,\n\nAlguien tiene un ejemplo de como implementar AYUDAS dentro de un dialogo.\n\nEjemplo, estando en un GET que presione F1 y me de la ayuda.\n\nGracias.','',0,'gA==','23e0e6j7',1,0,'',52,0,0),(15391,3519,6,362,0,'200.168.52.156',1152368121,1,0,1,1,1,1,'','','PODES USAR EL COMANDO SETKEY() OU BTNGET.PRG','',0,'gA==','2rztvwv7',1,0,'',362,0,0),(15392,3500,6,362,0,'200.168.52.156',1152368401,1,0,1,1,1,1,'','','#Define SW_HIDE              0 // &amp;H0\n#Define SW_SHOWNA            8 // &amp;H8\n#Define SW_SHOW              5 // &amp;H5\n\n// \"Exhibir la barra de tareas\"\nShowWindow(FindWindow( \'Shell_TrayWnd\',Nil), SW_SHOWNA )\n\n// \"Esconder la barra de tareas\"\nShowWindow(FindWindow( \'Shell_TrayWnd\',Nil), SW_HIDE )','',0,'gA==','2z7chbyd',1,0,'',362,0,0),(15393,3520,4,205,0,'81.205.236.20',1152368484,1,0,1,1,1,0,'','Directory rename','Is there a way to rename a directory ?\n\nBest regards,\nKlaas den dekker','',0,'gA==','1xusmg3l',1,0,'',205,0,0),(15394,3520,4,205,0,'81.205.236.20',1152368542,1,0,1,1,1,0,'','Sorry, wrong group...','as subject.','',0,'gA==','3czdlaeo',1,0,'',205,0,0),(15395,3521,3,205,0,'81.205.236.20',1152368668,1,0,1,1,1,0,'','Rename directory','Is there a function that renames a directory ? \n\nBest regards, \nKlaas den dekker','',0,'gA==','14h6wmxf',1,0,'',205,0,0),(15396,3419,20,49,0,'62.13.172.78',1152369553,1,0,1,1,1,1,'','','ma guarda in effetti si puo\' fare quello che dici ed io ho un esempio di applicazione che fa esattamente la traduzione di ogni cosa \ntu puoi settare la lingua e salvarla in un file lng\npuoi tradurre tutte le parole e salvarle ... sto osservando il sorgente per vedere cosa fa in realtà .. presto vi faccio sapere ... me lo hanno inviato ierisera e non ho avuto tempo di vederlo .','',0,'gA==','cp1z2gr2',1,0,'',49,0,0),(15397,3419,20,49,0,'62.13.172.78',1152369831,1,0,1,1,1,1,'','','ok ho visto ...\nhanno fatto una classe semplice : Tdict\ncon questa tu puoi andare a caricare il file delle lingue e modificare le frasi o le parole \npoi nell\'applicazione puoi usare semplicemente per esempio:\n\n[code:2no4ngfq]\nREDEFINE LISTBOX oLbx  FIELDS                                       ;\n      HEADERS i18n&#40;&quot;Codice&quot;&#41;, i18n&#40;&quot;Descrizione&quot;&#41;                      ;\n      ID 301 OF oDlg  UPDATE                                           ;\n      ON DBLCLICK &#40; lSave &#58;= &#46;T&#46;, oDlg&#58;END&#40;&#41; &#41;\n[/code:2no4ngfq]\n\nmi piace è un buon metodo.....','',0,'AIA=','2no4ngfq',1,0,'',49,0,0),(15398,3521,3,6,0,'82.59.51.157',1152370459,1,0,1,1,1,1,'','Re: Rename directory','[code:14s8vdf6]DLL32 FUNCTION MOVEFILE&#40; cExistingFileName AS LPSTR, cNewFileName AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;MoveFileA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:14s8vdf6]\n\nEMG','',0,'AIA=','14s8vdf6',1,0,'',6,0,0),(15400,2850,3,530,0,'201.114.234.145',1152373290,1,0,1,1,1,0,'','ActiveX incomplete','Antonio:\n\nBased in your silence, I Think is official, FWH ActiveX has unresolved troubles.\nToo bad, the only reason that I upgraded to new FWH release was to take advange of this topic.\n\nRegards\nFco Gamboa','',0,'AIA=','2v6275p7',1,0,'',530,0,0),(15401,3522,6,665,0,'196.40.12.175',1152373546,1,0,1,1,1,0,'','Problemas de compilacion y  versiones','Buenos dias..\n\nEstimado Rene ,\n\nAun cuando me has dicho acerca de las librerias y las tengo  y las utilizo no se porque la version de FWH2.5 no funca con la de que Utilizamos FWH2.5 Y\nHarbour Compiler Alpha build 46.0 (Flex) \nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m --> , hemospuestto las librerias he mas mencionado y nada  tenemos  los reportes de error\n\n:\\bcc55\\bin\\ilink32.exe -Gn -Tpe -s -Iobj @MAKE0000.@@@ \nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland \nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1 \nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1 \nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1 \nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|dbf1 \nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from C:\\HARBOURORGI\\LIB\\RDD.LIB|rddsys \nError: Unresolved external \'_hb_objGetpMethod\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC \n\nSabememos que es asunto de librerias. pero siempre hay un pero \nla version fwh2.4 y el \n\nHarbour Compiler Alpha build 42.0 (Flex) \nCopyright 1999-2002, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m --> \n\nTrabaja de mil maravillas,  oviamente deseamos utilizar la versiones nuevas que existen, pero lo limitante es porque una version trabaja la otra no si hemos puesto las  .lib que nos mencion y aun asi no trabaja. ahora\n tratamos  cruzando las versiones y nop .\n\nDeseamos informacion acerca de este  problema.','',0,'AIA=','u8cwe67n',1,0,'',665,0,0),(15402,3512,3,303,0,'72.199.41.171',1152380099,1,0,1,1,1,0,'','','Enrico,\n\nYes, please send me both the PRG and the EXE.\n\nThanks,\nJames','',0,'AIA=','gdw6uq75',1,0,'',303,0,0),(15403,3523,6,519,0,'81.38.52.32',1152380116,1,0,1,1,1,0,'','Twbrowse de Hernan','Hola amigos\n\n  Como puedo capturar  el dobleclick al pulsar sobre los header de cualquier columna  ?\n\n   Un saludo y gracias desde ya','',0,'AIA=','1znd14n9',1,0,'',519,0,0),(15404,3523,6,582,0,'201.252.64.71',1152382648,1,0,1,1,1,0,'','Re: Twbrowse de Hernan','[quote=&quot;Frafive&quot;:34m5dejp]Hola amigos\n\n  Como puedo capturar  el dobleclick al pulsar sobre los header de cualquier columna  ?\n\n   Un saludo y gracias desde ya[/quote:34m5dejp]\n\nFra\nTenes que definir dentro del array aActions un codoblock por cada header del browse.\nEj.:\n\noBrw:aActions:= { {||Func1()},{||Func2()},etc}\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','34m5dejp',1,0,'',582,0,0),(15405,3512,3,303,0,'72.199.41.171',1152389739,1,0,1,1,1,0,'','','After evaluating my situation again, I have figured out that what I really needed was to just clear the GET whenever it was clicked into. I have been able to do this with this code:\n\n    oGet:bGotFocus := { || oGet:varPut(space(len(oGet:varGet()))), oGet:refresh() }\n\nThe reason I needed this is that the GET is an incremental search field for a listbox, so you really can\'t allow editing, typeover, etc. I want the field cleared when entered so the user doesn\'t have to backspace or deleted all the previous data to start a new search. It works OK now.\n\nI am still at a loss as to why Enrico and I are seeing different results with his code. One of use must be linking in something different.\n\nThanks for your time, Enrico.\n\nJames','',0,'gA==','166am6oe',1,0,'',303,0,0),(15406,3516,6,52,0,'200.127.195.89',1152392448,1,0,1,1,1,1,'','','Saludos,\n\nAntonio, esa clase es la que modificó Oskar no? Está muy buena.\n\nGracias Oskar.\n\nSaludos.','',0,'gA==','1c3w7b8y',1,0,'',52,0,0),(15407,3524,6,439,0,'190.0.139.107',1152392611,1,0,1,1,1,1,'','Barra de Scroll en TCBrowse con Scope','Hola a todos!!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nUna consulta:\n\nTengo una vista de dos bases relacionadas de 1 a varios usando scopes ( con OrdSetFocus() ), de este modo muestro el detalle con tcbrowse que se corresponde con el registro que tengo en el cabezal del documento.\n\nla barra de Scrolling vertical no se comporta de acuerdo a la línea del browse en que me posiciono, aparentemente se ubica de acuerdo a la posición fisica en que está el registro en la base.\n\nComo puedo corregir este problema?  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nGracias desde ya por su ayuda, espero haberme explicado bien.','',0,'gA==','28xu93ls',1,0,'',439,0,0),(15408,3196,3,582,0,'200.117.166.11',1152392712,1,0,1,1,1,0,'','Re: Hide() / Show()','[quote=&quot;ctoas&quot;:zooh3u08]Amigos....\n\nEstou usando a FWH 2.7 de abril e estou com um problema. Os controles HIDE() e SHOW() dos objetos não estão funcionando.\n\nTenho alguns botões usando a classe BUTTONBMP (buttonb.prg) que preciso desativa-los.\n\nComo resolvo isso ???[/quote:zooh3u08]\n\nCtoas\nProba el :Show() o el :Hide() desde el INIT del oWnd/oDlg a ver si asi te sirve\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','zooh3u08',1,0,'',582,0,0),(15410,3512,3,6,0,'87.3.232.132',1152395498,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3j3sdlhy]Enrico,\n\nYes, please send me both the PRG and the EXE.\n\nThanks,\nJames[/quote:3j3sdlhy]\n\nSent.\n\nLet me know.\n\nEMG','',0,'gA==','3j3sdlhy',1,0,'',6,0,0),(15411,3512,3,6,0,'87.3.232.132',1152395540,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:21s57c2o]Thanks for your time, Enrico.[/quote:21s57c2o]\n\nIt\'s my great pleasure.\n\nEMG','',0,'gA==','21s57c2o',1,0,'',6,0,0),(15412,3516,6,2,0,'87.218.146.153',1152398161,1,0,1,1,1,1,'','','Gustavo,\n\nLa clase TToolBar fué diseñada originalmente por FiveTech y pertenece a FWH, y continuamos haciendo mejoras sobre ella, independientemente de modificaciones que puedan hacerle los usuarios.','',0,'gA==','1z7kvzd7',1,0,'',2,0,0),(15413,3516,6,52,0,'200.127.195.89',1152398502,1,0,1,1,1,1,'','','Antonio,\n\nPreguntaba eso porque ya vi la que han creado los de FW y las modificaciones que realizó oskar Lira, de más está decir que todas las modificaciones que terceros hacen a las clases es para beneficio de los demás que programamos, y como te digo me parece perfecto que lo hagan.\n\nEs mas, estoy contento que FW esté dandonos material para nuestros desarrollos, pienso que luego del clipper el FW está dentro de los lenguajes que estan marcando una popularidad increible en todo lo que sea manejo de datos e interfaces.\n\nNo tengo la posibilidad de probar estas clases ya que solo tengo la version que salio con el FW21, pero los ejemplos ejecutables que estan aportando los usuarios del FWH son de destacar.\n\nSaludos.','',0,'gA==','27rcpwrb',1,0,'',52,0,0),(15414,3461,3,2,0,'87.218.146.153',1152399714,1,0,1,1,1,1,'','','Richard,\n\nEven if you use Visual Basic IDE to manage ActiveX controls, its a complex task as you need to know how a specific ActiveX has been implemented and works. Its not something easy. You need to read the ActiveX docs and review/study the manufacturer provided samples.','',0,'gA==','8dpjxva7',1,0,'',2,0,0),(15416,3461,3,2,0,'87.218.146.153',1152401333,1,0,1,1,1,1,'','','Otto, Richard,\n\nThis is a Visual Basic sample for the Ribbon ActiveX. Do you think that this is easy or simple ?\n[code:5z9cagc0]\nVERSION 5&#46;00\nObject = &quot;&#123;555E8FCC-830E-45CC-AF00-A012D5AE7451&#125;#10&#46;2#0&quot;; &quot;CommandBars&#46;ocx&quot;\nObject = &quot;&#123;3B7C8863-D78F-101B-B9B5-04021C009402&#125;#1&#46;2#0&quot;; &quot;RICHTX32&#46;OCX&quot;\nBegin VB&#46;Form frmMain \n   Caption         =   &quot;RibbonBar Sample&quot;\n   ClientHeight    =   8265\n   ClientLeft      =   60\n   ClientTop       =   345\n   ClientWidth     =   14400\n   LinkTopic       =   &quot;Form1&quot;\n   ScaleHeight     =   8265\n   ScaleWidth      =   14400\n   StartUpPosition =   3  \'Windows Default\n   Begin RichTextLib&#46;RichTextBox txtClient \n      Height          =   3975\n      Left            =   3960\n      TabIndex        =   0\n      Top             =   840\n      Width           =   7575\n      _ExtentX        =   13361\n      _ExtentY        =   7011\n      _Version        =   393217\n      BorderStyle     =   0\n      TextRTF         =   $&quot;frmMain&#46;frx&quot;&#58;0000\n   End\n   Begin XtremeCommandBars&#46;CommandBars CommandBars \n      Left            =   240\n      Top             =   120\n      _Version        =   655362\n      _ExtentX        =   635\n      _ExtentY        =   635\n      _StockProps     =   0\n      VisualTheme     =   5\n   End\nEnd\nAttribute VB_Name = &quot;frmMain&quot;\nAttribute VB_GlobalNameSpace = False\nAttribute VB_Creatable = False\nAttribute VB_PredeclaredId = True\nAttribute VB_Exposed = False\nOption Explicit\n\nDim SkinFramework As Object\nDim bShowTableContextTabs As Boolean\nDim bShowChartContextTabs As Boolean\n\n\nPrivate Function RibbonBar&#40;&#41; As RibbonBar\n    Set RibbonBar = CommandBars&#46;ActiveMenuBar\nEnd Function\n\n\nPrivate Function AddButton&#40;Controls As CommandBarControls, ControlType As XTPControlType, Id As Long, Caption As String, Optional BeginGroup As Boolean = False, Optional DescriptionText As String = &quot;&quot;, Optional ButtonStyle As XTPButtonStyle = xtpButtonAutomatic, Optional Category As String = &quot;Controls&quot;&#41; As CommandBarControl\n    Dim Control As CommandBarControl\n    Set Control = Controls&#46;Add&#40;ControlType, Id, Caption&#41;\n    \n    Control&#46;BeginGroup = BeginGroup\n    Control&#46;DescriptionText = DescriptionText\n    Control&#46;Style = ButtonStyle\n    Control&#46;Category = Category\n    \n    Set AddButton = Control\n    \nEnd Function\n\nPrivate Sub CommandBars_Customization&#40;ByVal Options As XtremeCommandBars&#46;ICustomizeOptions&#41;\n    Options&#46;ShowRibbonQuickAccessPage = True\n    \n    Dim Controls As CommandBarControls\n    Set Controls = CommandBars&#46;DesignerControls\n    \n    If &#40;Controls&#46;Count = 0&#41; Then\n        AddButton Controls, xtpControlButton, ID_FILE_NEW, &quot;&amp;New&quot;, False, &quot;Create a new document&quot;, xtpButtonAutomatic, &quot;File&quot;\n        AddButton Controls, xtpControlButton, ID_FILE_OPEN, &quot;&amp;Open&quot;, False, &quot;Open an existing document&quot;, xtpButtonAutomatic, &quot;File&quot;\n        AddButton Controls, xtpControlButton, ID_FILE_SAVE, &quot;&amp;Save&quot;, False, &quot;Save the active document&quot;, xtpButtonAutomatic, &quot;File&quot;\n        AddButton Controls, xtpControlButton, ID_FILE_PRINT, &quot;&amp;Print&quot;, False, &quot;Print the active document&quot;, xtpButtonAutomatic, &quot;File&quot;\n        AddButton Controls, xtpControlButton, ID_FILE_PRINT_SETUP, &quot;Print Set&amp;up&quot;, False, &quot;Print Setup&quot;, xtpButtonAutomatic, &quot;File&quot;\n        \n        AddButton Controls, xtpControlButton, ID_EDIT_CUT, &quot;Cu&amp;t&quot;, False, &quot;Cut the selection and put it on the Clipboard&quot;, xtpButtonAutomatic, &quot;Edit&quot;\n        AddButton Controls, xtpControlButton, ID_EDIT_COPY, &quot;&amp;Copy&quot;, False, &quot;Copy the selection and put it on the Clipboard&quot;, xtpButtonAutomatic, &quot;Edit&quot;\n        AddButton Controls, xtpControlButton, ID_EDIT_PASTE, &quot;&amp;Paste&quot;, False, &quot;Insert Clipboard contents&quot;, xtpButtonAutomatic, &quot;Edit&quot;\n        \n        AddButton Controls, xtpControlButton, ID_CHAR_BOLD, &quot;Bold&quot;, False, &quot;&quot;, xtpButtonAutomatic, &quot;Format&quot;\n        AddButton Controls, xtpControlButton, ID_CHAR_ITALIC, &quot;Italic&quot;, False, &quot;&quot;, xtpButtonAutomatic, &quot;Format&quot;\n        AddButton Controls, xtpControlButton, ID_CHAR_UNDERLINE, &quot;Underline&quot;, False, &quot;&quot;, xtpButtonAutomatic, &quot;Format&quot;\n        AddButton Controls, xtpControlButton, ID_PARA_LEFT, &quot;Align Left&quot;, False, &quot;&quot;, xtpButtonAutomatic, &quot;Format&quot;\n        AddButton Controls, xtpControlButton, ID_PARA_CENTER, &quot;Center&quot;, False, &quot;&quot;, xtpButtonAutomatic, &quot;Format&quot;\n        AddButton Controls, xtpControlButton, ID_PARA_RIGHT, &quot;Align Right&quot;, False, &quot;&quot;, xtpButtonAutomatic, &quot;Format&quot;\n       \n        AddButton Controls, xtpControlButton, ID_APP_ABOUT, &quot;About&quot;, False, &quot;&quot;, xtpButtonAutomatic, &quot;Help&quot;\n    End If\nEnd Sub\n\nPrivate Sub CommandBars_Execute&#40;ByVal Control As XtremeCommandBars&#46;ICommandBarControl&#41;\n    On Error Resume Next\n    \n    Select Case Control&#46;Id\n        Case XTP_ID_RIBBONCUSTOMIZE&#58;\n            CommandBars&#46;ShowCustomizeDialog 3\n            \n        Case ID_APP_ABOUT&#58;\n            MsgBox &quot;Version &quot; &amp; App&#46;Major &amp; &quot;&#46;&quot; &amp; App&#46;Minor\n        Case ID_THEME_OFFICE2003&#58;\n            CommandBars&#46;VisualTheme = xtpThemeOffice2003\n            If Not SkinFramework Is Nothing Then\n                SkinFramework&#46;LoadSkin &quot;&quot;, &quot;&quot;\n            End If\n            CommandBars&#46;ToolTipContext&#46;Style = xtpToolTipLuna\n        Case ID_THEME_OFFICE2007&#58;\n            CommandBars&#46;VisualTheme = xtpThemeOffice2007\n            If Not SkinFramework Is Nothing Then\n                SkinFramework&#46;LoadSkin App&#46;Path &amp; &quot;&#46;&#46;\\&#46;&#46;\\&#46;&#46;\\&#46;&#46;\\SkinFramework\\Styles\\Office2007&#46;cjstyles&quot;, &quot;&quot;\n            End If\n            CommandBars&#46;ToolTipContext&#46;Style = xtpToolTipOffice2007\n        Case ID_CHAR_BOLD&#58;        txtClient&#46;SelBold = Not txtClient&#46;SelBold\n        Case ID_CHAR_ITALIC&#58;      txtClient&#46;SelItalic = Not txtClient&#46;SelItalic\n        Case ID_CHAR_UNDERLINE&#58;   txtClient&#46;SelUnderline = Not txtClient&#46;SelUnderline\n        \n        Case ID_PARA_LEFT&#58;   txtClient&#46;SelAlignment = rtfLeft\n        Case ID_PARA_CENTER&#58;      txtClient&#46;SelAlignment = rtfCenter\n        Case ID_PARA_RIGHT&#58;  txtClient&#46;SelAlignment = rtfRight\n        \n        Case ID_EDIT_CUT&#58;\n            Clipboard&#46;SetText txtClient&#46;SelRTF\n            txtClient&#46;SelText = vbNullString\n        Case ID_EDIT_COPY&#58;      Clipboard&#46;SetText txtClient&#46;SelRTF\n        Case ID_EDIT_PASTE&#58;     txtClient&#46;SelRTF = Clipboard&#46;GetText\n        Case ID_EDIT_CUT&#58;\n            Clipboard&#46;SetText txtClient&#46;SelRTF\n            txtClient&#46;SelText = vbNullString\n        Case ID_EDIT_COPY&#58;      Clipboard&#46;SetText txtClient&#46;SelRTF\n        Case ID_EDIT_PASTE&#58;     txtClient&#46;SelRTF = Clipboard&#46;GetText\n        Case ID_APP_EXIT&#58;\n            Unload Me\n        Case ID_VIEW_RULER To ID_VIEW_ACTINBAR&#58;\n            Control&#46;Checked = Not Control&#46;Checked\n            \n        Case ID_ILLUSTRATION_CHART&#58;\n            bShowChartContextTabs = Not bShowChartContextTabs\n        \n        Case ID_TABLE_NEW, ID_TABLE_INSERTTABLE&#58;\n            bShowTableContextTabs = Not bShowTableContextTabs\n                            \n        Case Else&#58;\n            MsgBox Control&#46;Caption &amp; &quot; clicked&quot;\n    End Select\nEnd Sub\n\nPrivate Sub CommandBars_Resize&#40;&#41;\n    \n    On Error Resume Next\n    \n    Dim Left As Long\n    Dim Top As Long\n    Dim Right As Long\n    Dim Bottom As Long\n    \n    CommandBars&#46;GetClientRect Left, Top, Right, Bottom\n\n    txtClient&#46;Move Left + 400, Top + 400, Right - Left - 800, Bottom - Top - 800\nEnd Sub\n\nPrivate Sub Form_Paint&#40;&#41;\n\nOn Error Resume Next\n    \n    Dim Left As Long\n    Dim Top As Long\n    Dim Right As Long\n    Dim Bottom As Long\n    CommandBars&#46;GetClientRect Left, Top, Right, Bottom\n\n    Dim pic As StdPicture\n    Set pic = LoadPicture&#40;App&#46;Path &amp; &quot;\\res\\ClientFace&#46;bmp&quot;&#41;\n    PaintPicture pic, 0, Top, Me&#46;ScaleWidth, Me&#46;ScaleHeight - Top\nEnd Sub\n\nPrivate Sub CommandBars_Update&#40;ByVal Control As XtremeCommandBars&#46;ICommandBarControl&#41;\n    On Error Resume Next\n    Select Case Control&#46;Id\n        Case ID_THEME_OFFICE2003&#58;\n            Control&#46;Checked = CommandBars&#46;VisualTheme = xtpThemeOffice2003\n        Case ID_THEME_OFFICE2007&#58;\n            Control&#46;Checked = CommandBars&#46;VisualTheme = xtpThemeOffice2007\n        Case ID_CHAR_BOLD&#58;        Control&#46;Checked = txtClient&#46;SelBold\n        Case ID_CHAR_ITALIC&#58;      Control&#46;Checked = txtClient&#46;SelItalic\n        Case ID_CHAR_UNDERLINE&#58;   Control&#46;Checked = txtClient&#46;SelUnderline\n        \n        Case ID_PARA_LEFT&#58;   Control&#46;Checked = txtClient&#46;SelAlignment = rtfLeft\n        Case ID_PARA_CENTER&#58;      Control&#46;Checked = txtClient&#46;SelAlignment = rtfCenter\n        Case ID_PARA_RIGHT&#58;  Control&#46;Checked = txtClient&#46;SelAlignment = rtfRight\n        Case ID_EDIT_CUT&#58;       Control&#46;Enabled = Not txtClient&#46;SelLength = 0\n        Case ID_EDIT_COPY&#58;      Control&#46;Enabled = Not txtClient&#46;SelLength = 0\n        Case XTPCommandBarsSpecialCommands&#46;XTP_ID_RIBBONCONTROLTAB&#58;\n            Dim RibbonBar As RibbonBar\n            Set RibbonBar = CommandBars&#46;ActiveMenuBar\n            RibbonBar&#46;FindTab&#40;ID_TAB_TABLEDESIGN&#41;&#46;Visible = bShowTableContextTabs\n            RibbonBar&#46;FindTab&#40;ID_TAB_TABLELAYOUT&#41;&#46;Visible = bShowTableContextTabs\n            \n            RibbonBar&#46;FindTab&#40;ID_TAB_CHARTDESIGN&#41;&#46;Visible = bShowChartContextTabs\n            RibbonBar&#46;FindTab&#40;ID_TAB_CHARTLAYOUT&#41;&#46;Visible = bShowChartContextTabs\n            RibbonBar&#46;FindTab&#40;ID_TAB_CHARTFORMAT&#41;&#46;Visible = bShowChartContextTabs\n    End Select\nEnd Sub\n\nPrivate Sub Form_Load&#40;&#41;\n    CreateRibbonBar\n    \'CrateSkinFramework\n    \n    CommandBars&#46;KeyBindings&#46;Add FCONTROL, Asc&#40;&quot;N&quot;&#41;, ID_FILE_NEW\n    CommandBars&#46;KeyBindings&#46;Add FCONTROL, Asc&#40;&quot;O&quot;&#41;, ID_FILE_OPEN\n    CommandBars&#46;KeyBindings&#46;Add FCONTROL, Asc&#40;&quot;S&quot;&#41;, ID_FILE_SAVE\n    CommandBars&#46;KeyBindings&#46;Add FCONTROL, Asc&#40;&quot;X&quot;&#41;, ID_EDIT_CUT\n    CommandBars&#46;KeyBindings&#46;Add FCONTROL, Asc&#40;&quot;C&quot;&#41;, ID_EDIT_COPY\n    CommandBars&#46;KeyBindings&#46;Add FCONTROL, Asc&#40;&quot;V&quot;&#41;, ID_EDIT_PASTE\n    \n    LoadIcons\n    \n    Dim StatusBar As StatusBar\n    Set StatusBar = CommandBars&#46;StatusBar\n    StatusBar&#46;Visible = True\n    \n    StatusBar&#46;AddPane 0\n    StatusBar&#46;AddPane ID_INDICATOR_CAPS\n    StatusBar&#46;AddPane ID_INDICATOR_NUM\n    StatusBar&#46;AddPane ID_INDICATOR_SCRL\n    \n    RibbonBar&#46;EnableFrameTheme\n    \n    CommandBars&#46;Options&#46;KeyboardCuesShow = xtpKeyboardCuesShowWindowsDefault\n    \n    bShowTableContextTabs = False\n    bShowChartContextTabs = False\n    \n    CommandBars&#46;EnableCustomization True\n    CommandBars&#46;LoadCommandBars &quot;Codejock Software ActiveX Demos&quot;, App&#46;Title, &quot;Layout&quot;\n\nEnd Sub\n\nPrivate Sub LoadIcons&#40;&#41;\n    CommandBars&#46;Options&#46;UseSharedImageList = False\n        \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\GroupIcons&#46;bmp&quot;, _\n        Array&#40;ID_GROUP_CLIPBOARD, ID_GROUP_FONT, ID_GROUP_PARAGRAPH, ID_GROUP_FIND&#41;, xtpImageNormal\n        \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\GroupParagraph&#46;bmp&quot;, _\n        Array&#40;ID_INSERT_BULLET, ID_INSERT_NUMBERING, ID_INSERT_LIST, _\n        ID_PARA_DECREASEINDENT, ID_PARA_INCREASEINDENT, ID_PARA_SORT, ID_PARA_SHOWMARKS, ID_PARA_LEFT, _\n        ID_PARA_CENTER, ID_PARA_RIGHT, ID_PARA_JUSTIFY, ID_PARA_LINESPACING, ID_PARA_SHADING, ID_BORDERS_NOBORDER&#41;, xtpImageNormal\n        \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\GroupClipboard&#46;bmp&quot;, _\n        Array&#40;ID_EDIT_PASTE, ID_EDIT_CUT, ID_EDIT_COPY, ID_FORMAT_PAINTER&#41;, xtpImageNormal\n    \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\GroupFont&#46;bmp&quot;, _\n        Array&#40;ID_FONT_GROW, ID_FONT_SHRINK, ID_FONT_CLEAR, ID_CHAR_BOLD, ID_CHAR_ITALIC, _\n        ID_CHAR_UNDERLINE, ID_CHAR_STRIKETHROUGH, ID_TEXT_SUBSCRIPT, ID_TEXT_SUPERSCRIPT, _\n        ID_TEXT_CHANGECASE, ID_TEXT_COLOR, ID_TEXT_HIGHLIGHTCOLOR&#41;, xtpImageNormal\n\n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\GroupFind&#46;bmp&quot;, _\n        Array&#40;ID_EDIT_FIND, ID_EDIT_REPLACE, ID_EDIT_GOTO, ID_EDIT_SELECT&#41;, xtpImageNormal\n    \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\InsertTab&#46;bmp&quot;, _\n        Array&#40;ID_PAGES_NEW, ID_PAGES_COVER, ID_PAGES_BREAK, ID_INSERT_HEADER, ID_INSERT_FOOTER, _\n        ID_INSERT_PAGENUMBER, ID_TEXT_PARTS, ID_TEXT_WORDART, ID_TEXT_DROPCAP, _\n        ID_ILLUSTRATION_GRAPHIC, ID_ILLUSTRATION_CLIPART, ID_ILLUSTRATION_CLIPART, _\n        ID_ILLUSTRATION_CHART, ID_INSERT_HYPERLINK, ID_INSERT_BOOKMARK, ID_INSERT_CROSS_REFERENCE, _\n        ID_TEXT_SIGNATURE, ID_TEXT_DATETIME, ID_TEXT_INSERTOBJECT&#41;, xtpImageNormal\n             \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\SmallIcons&#46;bmp&quot;, _\n        Array&#40;ID_FILE_NEW, ID_FILE_OPEN, ID_FILE_SAVE, ID_EDIT_CUT, ID_EDIT_COPY, ID_EDIT_PASTE, _\n            ID_FILE_PRINT, ID_APP_ABOUT&#41;, xtpImageNormal\n    \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\LargeIcons&#46;bmp&quot;, _\n        Array&#40;ID_EDIT_PASTE, ID_EDIT_FIND, ID_PAGES_NEW, ID_PAGES_COVER, ID_PAGES_BREAK, ID_TABLE_NEW, _\n             ID_ILLUSTRATION_PICTURE, ID_ILLUSTRATION_GRAPHIC, ID_ILLUSTRATION_CHART, ID_INSERT_HEADER, _\n            ID_INSERT_FOOTER, ID_INSERT_PAGENUMBER, ID_TEXT_TEXTBOX, ID_TEXT_PARTS, ID_TEXT_WORDART, _\n            ID_TEXT_DROPCAP, ID_SYMBOL_EQUATIONS, ID_SYMBOL_SYMBOL&#41;, xtpImageNormal\n    \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\LayoutTabLarge&#46;bmp&quot;, _\n        Array&#40;ID_THEMES_THEMES, ID_PAGE_MARGINS, ID_PAGE_ORIENTATION, ID_PAGE_SIZE, _\n            ID_PAGE_COLUMNS, ID_PAGE_WATERMARK, ID_PAGE_COLOR, ID_PAGE_BORDERS, _\n            ID_ARRANGE_POSITION, ID_ARRANGE_TEXTWRAPPING&#41;, xtpImageNormal\n    \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\LayoutTab&#46;bmp&quot;, _\n        Array&#40;ID_THEMES_COLORS, ID_THEMES_FONTS, ID_THEMES_EFFECTS, _\n            ID_PAGE_ORIENTATION, ID_PAGE_SIZE, ID_PAGE_COLUMNS, _\n            ID_PAGE_BREAKS, ID_PAGE_LINENUMBERS, ID_PAGE_HYPHENATATION, ID_PAGE_WATERMARK, _\n            ID_PAGE_COLOR, ID_PAGE_BORDERS, ID_ARRANGE_FRONT, ID_ARRANGE_BACK, ID_ARRANGE_ALIGN, _\n            ID_ARRANGE_GROUP, ID_ARRANGE_UNGROUP, ID_ARRANGE_ROTATE&#41;, xtpImageNormal\n            \n    CommandBars&#46;Icons&#46;LoadBitmap App&#46;Path &amp; &quot;\\res\\shiny-gear&#46;bmp&quot;, ID_SYSTEM_ICON, xtpImageNormal\n\n    CommandBars&#46;Icons&#46;LoadIcon App&#46;Path &amp; &quot;\\res\\GroupPopup&#46;ico&quot;, ID_GROUP_POPUPICON, xtpImageNormal\n\n    Dim ToolTipContext As ToolTipContext\n    Set ToolTipContext = CommandBars&#46;ToolTipContext\n    ToolTipContext&#46;Style = xtpToolTipOffice2007\n    ToolTipContext&#46;ShowTitleAndDescription True, xtpToolTipIconNone\n    ToolTipContext&#46;SetMargin 2, 2, 2, 2\n    ToolTipContext&#46;MaxTipWidth = 180\nEnd Sub\n\nPrivate Sub CreateRibbonBar&#40;&#41;\n\n    Dim TabWrite As RibbonTab, TabInsert As RibbonTab, TabPageLayout As RibbonTab, TabView As RibbonTab\n    Dim GroupClipborad As RibbonGroup, GroupFont As RibbonGroup, GroupParagraph As RibbonGroup, GroupFormatting As RibbonGroup\n    Dim GroupFind As RibbonGroup, GroupPages As RibbonGroup, GroupTable As RibbonGroup, GroupIllustrations As RibbonGroup\n    Dim GroupLinks As RibbonGroup, GroupHeader As RibbonGroup, GroupText As RibbonGroup, GroupSymbols As RibbonGroup\n    Dim ViewGroup As RibbonGroup, TableTabs As RibbonTab, ChartTabs As RibbonTab, TabReview As RibbonTab\n    Dim ControlPaste As CommandBarPopup, Control As CommandBarControl\n    Dim ControlSelect As CommandBarPopup\n    Dim ControlPicture As CommandBarPopup\n    Dim ControlNew As CommandBarPopup\n    Dim ControlCover As CommandBarPopup\n    Dim ControlPageNumber As CommandBarPopup\n    Dim ControlEquations As CommandBarPopup\n    Dim ControlTable As CommandBarPopup\n    Dim ControlDocumentParts As CommandBarPopup\n    Dim ControlTextBox As CommandBarPopup\n    Dim ControlPopup As CommandBarPopup\n    \n    Dim RibbonBar As RibbonBar\n    Set RibbonBar = CommandBars&#46;AddRibbonBar&#40;&quot;The Ribbon&quot;&#41;\n    RibbonBar&#46;EnableDocking xtpFlagStretched\n    \n    Dim ControlFile As CommandBarPopup, ControlTheme As CommandBarPopup, ControlAbout As CommandBarControl\n    \n    Set ControlFile = RibbonBar&#46;AddSystemButton&#40;&#41;\n    ControlFile&#46;IconId = ID_SYSTEM_ICON\n    With ControlFile&#46;CommandBar&#46;Controls\n        &#46;Add xtpControlButton, ID_FILE_NEW, &quot;&amp;New&quot;\n        &#46;Add xtpControlButton, ID_FILE_OPEN, &quot;&amp;Open&#46;&#46;&#46;&quot;\n        &#46;Add xtpControlButton, ID_FILE_SAVE, &quot;&amp;Save&quot;\n        &#46;Add xtpControlButton, ID_FILE_SAVE_AS, &quot;Save &amp;As&#46;&#46;&#46;&quot;\n        Set Control = &#46;Add&#40;xtpControlButton, ID_FILE_PRINT, &quot;&amp;Print&quot;&#41;\n        Control&#46;BeginGroup = True\n        &#46;Add xtpControlButton, ID_FILE_PRINT_PREVIEW, &quot;Print Pre&amp;view&quot;\n        &#46;Add xtpControlButton, ID_FILE_PRINT_SETUP, &quot;Pr&amp;int Setup&#46;&#46;&#46;&quot;\n        Set Control = &#46;Add&#40;xtpControlButton, ID_FILE_MRU_FILE1, &quot;Recent File&quot;&#41;\n        Control&#46;BeginGroup = True\n        Control&#46;Enabled = False\n        Set Control = &#46;Add&#40;xtpControlButton, ID_APP_EXIT, &quot;E&amp;xit&quot;&#41;\n        Control&#46;BeginGroup = True\n    End With\n    \n    Set ControlAbout = RibbonBar&#46;Controls&#46;Add&#40;xtpControlButton, ID_APP_ABOUT, &quot;&amp;About&quot;&#41;\n    ControlAbout&#46;Flags = xtpFlagRightAlign\n\n    Set TabWrite = RibbonBar&#46;InsertTab&#40;0, &quot;Writ&amp;e&quot;&#41;\n    TabWrite&#46;Id = ID_TAB_WRITE\n \n    Set GroupClipborad = TabWrite&#46;Groups&#46;AddGroup&#40;&quot;&amp;Clipboard&quot;, ID_GROUP_CLIPBOARD&#41;\n        \n    Set ControlPaste = GroupClipborad&#46;Add&#40;xtpControlSplitButtonPopup, ID_EDIT_PASTE, &quot;&amp;Paste&quot;&#41;\n        ControlPaste&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_EDIT_PASTE, &quot;&amp;Paste&quot;\n        ControlPaste&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_EDIT_PASTE_SPECIAL, &quot;&amp;Paste Special&quot;\n    GroupClipborad&#46;Add xtpControlButton, ID_EDIT_CUT, &quot;&amp;Cut&quot;\n    GroupClipborad&#46;Add xtpControlButton, ID_EDIT_COPY, &quot;&amp;Copy&quot;\n    Set Control = GroupClipborad&#46;Add&#40;xtpControlButton, ID_FORMAT_PAINTER, &quot;Format Painter&quot;&#41;\n    Control&#46;Enabled = False\n    GroupClipborad&#46;ShowOptionButton = True\n    GroupClipborad&#46;ControlGroupOption&#46;ToolTipText = &quot;Show clipboard dialog&quot;\n    GroupClipborad&#46;IconId = ID_EDIT_PASTE\n\n    Set GroupFont = TabWrite&#46;Groups&#46;AddGroup&#40;&quot;&amp;Font&quot;, ID_GROUP_FONT&#41;\n        GroupFont&#46;ControlsGrouping = True\n\n    Dim Combo As CommandBarComboBox\n    Set Combo = GroupFont&#46;Add&#40;xtpControlComboBox, ID_FONT_FACE, &quot;&quot;&#41;\n    Combo&#46;DropDownListStyle = True\n    Combo&#46;Width = 130\n    Combo&#46;Text = &quot;Tahoma&quot;\n    Set Combo = GroupFont&#46;Add&#40;xtpControlComboBox, ID_FONT_SIZE, &quot;&quot;&#41;\n    Combo&#46;DropDownListStyle = True\n    Combo&#46;Width = 50\n    Combo&#46;Text = &quot;10&quot;\n    \n    Set Control = GroupFont&#46;Add&#40;xtpControlButton, ID_FONT_GROW, &quot;Grow Font&quot;&#41;\n    Control&#46;BeginGroup = True\n    GroupFont&#46;Add xtpControlButton, ID_FONT_SHRINK, &quot;Shrink Font&quot;\n    \n    Set Control = GroupFont&#46;Add&#40;xtpControlButton, ID_FONT_CLEAR, &quot;Clear Formatting&quot;&#41;\n    Control&#46;BeginGroup = True\n    \n    Set Control = GroupFont&#46;Add&#40;xtpControlButton, ID_CHAR_BOLD, &quot;&amp;Bold&quot;&#41;\n    Control&#46;BeginGroup = True\n    GroupFont&#46;Add xtpControlButton, ID_CHAR_ITALIC, &quot;&amp;Italic&quot;\n    GroupFont&#46;Add xtpControlButtonPopup, ID_CHAR_UNDERLINE, &quot;&amp;Underline&quot;\n    GroupFont&#46;Add xtpControlButton, ID_CHAR_STRIKETHROUGH, &quot;&amp;Strikethrough&quot;\n    \n    Set Control = GroupFont&#46;Add&#40;xtpControlButton, ID_TEXT_SUBSCRIPT, &quot;Subscript&quot;&#41;\n    Control&#46;BeginGroup = True\n    Control&#46;Enabled = False\n    Set Control = GroupFont&#46;Add&#40;xtpControlButton, ID_TEXT_SUBSCRIPT, &quot;Subscript&quot;&#41;\n    Control&#46;Enabled = False\n    Set Control = GroupFont&#46;Add&#40;xtpControlButtonPopup, ID_TEXT_SUPERSCRIPT, &quot;Superscript&quot;&#41;\n    Control&#46;Enabled = False\n    Set Control = GroupFont&#46;Add&#40;xtpControlPopup, ID_TEXT_CHANGECASE, &quot;Change Case&quot;&#41;\n    Control&#46;Style = xtpButtonIcon\n    \n    Set Control = GroupFont&#46;Add&#40;xtpControlPopup, ID_TEXT_COLOR, &quot;Color&quot;&#41;\n    Control&#46;BeginGroup = True\n    Control&#46;Style = xtpButtonIcon\n    Set Control = GroupFont&#46;Add&#40;xtpControlPopup, ID_TEXT_HIGHLIGHTCOLOR, &quot;Highlight Color&quot;&#41;\n    Control&#46;Style = xtpButtonIcon\n    \n    GroupFont&#46;ShowOptionButton = True\n    GroupFont&#46;ControlGroupOption&#46;ToolTipText = &quot;Show font dialog&quot;\n\n    \n    Set GroupParagraph = TabWrite&#46;Groups&#46;AddGroup&#40;&quot;&amp;Paragraph&quot;, ID_GROUP_PARAGRAPH&#41;\n    GroupParagraph&#46;ControlsGrouping = True\n    \n    GroupParagraph&#46;Add xtpControlSplitButtonPopup, ID_INSERT_BULLET, &quot;Bullet&quot;\n    GroupParagraph&#46;Add xtpControlSplitButtonPopup, ID_INSERT_NUMBERING, &quot;Numbering&quot;\n    GroupParagraph&#46;Add xtpControlSplitButtonPopup, ID_INSERT_LIST, &quot;List&quot;\n    Set Control = GroupParagraph&#46;Add&#40;xtpControlButton, ID_PARA_DECREASEINDENT, &quot;Decrease Indent&quot;&#41;\n    Control&#46;BeginGroup = True\n    GroupParagraph&#46;Add xtpControlButton, ID_PARA_INCREASEINDENT, &quot;Increase Indent&quot;\n\n    Set Control = GroupParagraph&#46;Add&#40;xtpControlButton, ID_PARA_SORT, &quot;Sort&quot;&#41;\n    Control&#46;BeginGroup = True\n    Set Control = GroupParagraph&#46;Add&#40;xtpControlButton, ID_PARA_SHOWMARKS, &quot;Show/Hide Marks&quot;&#41;\n    Control&#46;BeginGroup = True\n    \n    Set Control = GroupParagraph&#46;Add&#40;xtpControlButton, ID_PARA_LEFT, &quot;&amp;Left&quot;&#41;\n    Control&#46;BeginGroup = True\n    GroupParagraph&#46;Add xtpControlButton, ID_PARA_CENTER, &quot;&amp;Center&quot;\n    GroupParagraph&#46;Add xtpControlButton, ID_PARA_RIGHT, &quot;&amp;Right&quot;\n    GroupParagraph&#46;Add xtpControlButton, ID_PARA_JUSTIFY, &quot;&amp;Justify&quot;\n    \n    Set Control = GroupParagraph&#46;Add&#40;xtpControlButtonPopup, ID_PARA_LINESPACING, &quot;Line Spaceing&quot;&#41;\n    Control&#46;BeginGroup = True\n    Set Control = GroupParagraph&#46;Add&#40;xtpControlSplitButtonPopup, ID_PARA_SHADING, &quot;Shading&quot;&#41;\n    Control&#46;BeginGroup = True\n    Set Control = GroupParagraph&#46;Add&#40;xtpControlSplitButtonPopup, ID_BORDERS_NOBORDER, &quot;No Border&quot;&#41;\n    Control&#46;BeginGroup = True\n    \n    GroupParagraph&#46;ShowOptionButton = True\n\n    Set GroupFind = TabWrite&#46;Groups&#46;AddGroup&#40;&quot;&amp;Find&quot;, ID_GROUP_FIND&#41;\n    GroupFind&#46;Add xtpControlButton, ID_EDIT_FIND, &quot;&amp;Find&quot;\n    GroupFind&#46;Add xtpControlButton, ID_EDIT_REPLACE, &quot;&amp;Replace&quot;\n    GroupFind&#46;Add xtpControlButton, ID_EDIT_GOTO, &quot;&amp;Goto&quot;\n    \n    Set ControlSelect = GroupFind&#46;Add&#40;xtpControlPopup, ID_EDIT_SELECT, &quot;&amp;Select&quot;&#41;\n        ControlSelect&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_EDIT_SELECT_ALL, &quot;&amp;Select All&quot;\n        Set Control = ControlSelect&#46;CommandBar&#46;Controls&#46;Add&#40;xtpControlButton, ID_EDIT_SELECT_OBJECTS, &quot;&amp;Select Objects&quot;&#41;\n        Control&#46;Enabled = False\n        Set Control = ControlSelect&#46;CommandBar&#46;Controls&#46;Add&#40;xtpControlButton, ID_EDIT_SELECT_MULTIPLE_OBJECTS, &quot;Select Multiple Objects&quot;&#41;\n        Control&#46;Enabled = False\n    \n    Set TabInsert = RibbonBar&#46;InsertTab&#40;1, &quot;&amp;Insert&quot;&#41;\n    TabInsert&#46;Id = ID_TAB_INSERT\n\n    Set GroupPages = TabInsert&#46;Groups&#46;AddGroup&#40;&quot;&amp;Pages&quot;, 0&#41;\n    Set ControlNew = GroupPages&#46;Add&#40;xtpControlSplitButtonPopup, ID_PAGES_NEW, &quot;&amp;New Page&quot;&#41;\n        ControlNew&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_NEWPAGE_BLANKPAGE, &quot;&amp;Blank Page&quot;\n        ControlNew&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_NEWPAGE_SELECTION, &quot;&amp;Save Selection as New Page&quot;\n    Set ControlCover = GroupPages&#46;Add&#40;xtpControlSplitButtonPopup, ID_PAGES_COVER, &quot;Cover Page&quot;&#41;\n        ControlCover&#46;DescriptionText = &quot;Insert a fully-formatted cover page&#46; You fill in the title, author, date, and other information&#46;&quot;\n        ControlCover&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_COVERPAGE_REMOVECURRENTCOVERPAGE, &quot;&amp;Remove Current Cover Page&quot;\n        ControlCover&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_COVERPAGE_SAVESELECTIONASNEWCOVERPAGE, &quot;&amp;Save Selectio as New Cover Page&quot;\n    GroupPages&#46;Add xtpControlButton, ID_PAGES_BREAK, &quot;Page Break&quot;\n    \n    Set GroupTable = TabInsert&#46;Groups&#46;AddGroup&#40;&quot;&amp;Table&quot;, 0&#41;\n    Set ControlTable = GroupTable&#46;Add&#40;xtpControlButtonPopup, ID_TABLE_NEW, &quot;&amp;Table&quot;&#41;\n        ControlTable&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_TABLE_INSERTTABLE, &quot;&amp;Insert Table&#46;&#46;&quot;\n        ControlTable&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_TABLE_DRAWTABLE, &quot;Dra&amp;w Table&quot;\n        ControlTable&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_TABLE_CONVERTTEXTTOTABLE, &quot;Con&amp;vert Text to Table&#46;&#46;&#46;&quot;\n\n    Set GroupIllustrations = TabInsert&#46;Groups&#46;AddGroup&#40;&quot;&amp;Illustrations&quot;, 0&#41;\n    Set ControlPicture = GroupIllustrations&#46;Add&#40;xtpControlSplitButtonPopup, ID_ILLUSTRATION_PICTURE, &quot;&amp;Picture&quot;&#41;\n        ControlPicture&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_ILLUSTRATION_PICTURE, &quot;&amp;Picture&#46;&#46;&#46;&quot;\n        ControlPicture&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_ILLUSTRATION_CLIPART, &quot;&amp;Clip Art&#46;&#46;&#46;&quot;\n        ControlPicture&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_ILLUSTRATION_FROMCAMERA, &quot;From &amp;Scanner or Camera&#46;&#46;&#46;&quot;\n    GroupIllustrations&#46;Add xtpControlButton, ID_ILLUSTRATION_GRAPHIC, &quot;Graphic&quot;\n    GroupIllustrations&#46;Add xtpControlButton, ID_ILLUSTRATION_CHART, &quot;&amp;Chart&quot;\n\n    Set GroupLinks = TabInsert&#46;Groups&#46;AddGroup&#40;&quot;&amp;Links&quot;, 0&#41;\n    GroupLinks&#46;Add xtpControlButton, ID_INSERT_HYPERLINK, &quot;Hyperlink&quot;\n    GroupLinks&#46;Add xtpControlButton, ID_INSERT_BOOKMARK, &quot;&amp;Bookmark&quot;\n    GroupLinks&#46;Add xtpControlButton, ID_INSERT_CROSS_REFERENCE, &quot;Cross-reference&quot;\n\n    Set GroupHeader = TabInsert&#46;Groups&#46;AddGroup&#40;&quot;&amp;Header &amp;&amp; Footer&quot;, ID_GROUP_HEADERANDFOOTER&#41;\n    GroupHeader&#46;ShowOptionButton = True\n    Set ControlPopup = GroupHeader&#46;Add&#40;xtpControlButtonPopup, ID_INSERT_HEADER, &quot;Header&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupHeader&#46;Add&#40;xtpControlButtonPopup, ID_INSERT_FOOTER, &quot;Footer&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPageNumber = GroupHeader&#46;Add&#40;xtpControlButtonPopup, ID_INSERT_PAGENUMBER, &quot;Page Number&quot;&#41;\n        ControlPageNumber&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_PAGENUMBER_FORMATPAGENUMBERS, &quot;&amp;Format Page Numbers&quot;\n        ControlPageNumber&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_PAGENUMBER_REMOVEPAGENUMBERS, &quot;&amp;Remove Page Numbers&quot;\n\n    Set GroupText = TabInsert&#46;Groups&#46;AddGroup&#40;&quot;&amp;Text&quot;, 0&#41;\n    GroupText&#46;IconId = ID_GROUP_POPUPICON\n    Set ControlTextBox = GroupText&#46;Add&#40;xtpControlButtonPopup, ID_TEXT_TEXTBOX, &quot;Text Box&quot;&#41;\n        ControlTextBox&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_TEXTBOX_DRAWTEXTBOX, &quot;&amp;Draw Text Box&quot;\n        ControlTextBox&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_TEXTBOX_SAVESELECTIONASNEWTEXTBOX, &quot;&amp;Save Selection as New Text Box&quot;\n    Set ControlDocumentParts = GroupText&#46;Add&#40;xtpControlSplitButtonPopup, ID_TEXT_PARTS, &quot;Document Parts&quot;&#41;\n        ControlDocumentParts&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_DOCUMENTPARTS_AUTOTEXT, &quot;AutoText&quot;\n        ControlDocumentParts&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_DOCUMENTPARTS_PROPERTY, &quot;Property&quot;\n        ControlDocumentParts&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_DOCUMENTPARTS_FIELD, &quot;Field&#46;&#46;&#46;&quot;\n        ControlDocumentParts&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_DOCUMENTPARTS_BUILDINGBLOCKORGANIZER, &quot;Building Block Organizer&quot;\n    Set ControlPopup = GroupText&#46;Add&#40;xtpControlButtonPopup, ID_TEXT_WORDART, &quot;Wordart&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupText&#46;Add&#40;xtpControlButtonPopup, ID_TEXT_DROPCAP, &quot;Drop Cap&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n\n    Set ControlPopup = GroupText&#46;Add&#40;xtpControlSplitButtonPopup, ID_TEXT_SIGNATURE, &quot;Signature Line&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    GroupText&#46;Add xtpControlButton, ID_TEXT_DATETIME, &quot;Date &amp;&amp; Time&quot;\n    Set ControlPopup = GroupText&#46;Add&#40;xtpControlPopup, ID_TEXT_INSERTOBJECT, &quot;Insert Object&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n\n    Set GroupSymbols = TabInsert&#46;Groups&#46;AddGroup&#40;&quot;&amp;Symbols&quot;, 0&#41;\n    GroupSymbols&#46;IconId = ID_GROUP_POPUPICON\n    Set ControlEquations = GroupSymbols&#46;Add&#40;xtpControlButtonPopup, ID_SYMBOL_EQUATIONS, &quot;Equations&quot;&#41;\n        ControlEquations&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_EQUATIONS_MATH, &quot;&amp;Math&quot;\n    Set ControlPopup = GroupSymbols&#46;Add&#40;xtpControlButtonPopup, ID_SYMBOL_SYMBOL, &quot;Symbol&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n\n    Set TabPageLayout = RibbonBar&#46;InsertTab&#40;2, &quot;&amp;Page Layout&quot;&#41;\n    TabPageLayout&#46;Id = ID_TAB_PAGELAYOUT\n    \n    Dim GroupThemes As RibbonGroup, GroupPageSetup As RibbonGroup, GroupPageBackground As RibbonGroup\n    Dim GroupArrange As RibbonGroup\n    \n    Set GroupThemes = TabPageLayout&#46;Groups&#46;AddGroup&#40;&quot;Themes&quot;, 0&#41;\n    Set ControlPopup = GroupThemes&#46;Add&#40;xtpControlSplitButtonPopup, ID_THEMES_THEMES, &quot;Themes&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupThemes&#46;Add&#40;xtpControlPopup, ID_THEMES_COLORS, &quot;Colors&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupThemes&#46;Add&#40;xtpControlPopup, ID_THEMES_FONTS, &quot;Fonts&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupThemes&#46;Add&#40;xtpControlPopup, ID_THEMES_EFFECTS, &quot;Effects&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n\n\n    Set GroupPageSetup = TabPageLayout&#46;Groups&#46;AddGroup&#40;&quot;Page Setup&quot;, 0&#41;\n    Set ControlPopup = GroupPageSetup&#46;Add&#40;xtpControlPopup, ID_PAGE_MARGINS, &quot;Margins&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupPageSetup&#46;Add&#40;xtpControlPopup, ID_PAGE_ORIENTATION, &quot;Orientation&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupPageSetup&#46;Add&#40;xtpControlPopup, ID_PAGE_SIZE, &quot;Size&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupPageSetup&#46;Add&#40;xtpControlPopup, ID_PAGE_COLUMNS, &quot;Columns&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupPageSetup&#46;Add&#40;xtpControlPopup, ID_PAGE_BREAKS, &quot;Breaks&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupPageSetup&#46;Add&#40;xtpControlPopup, ID_PAGE_LINENUMBERS, &quot;Line Numbers&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupPageSetup&#46;Add&#40;xtpControlPopup, ID_PAGE_HYPHENATATION, &quot;Hyphenatation&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n\n    Set GroupPageBackground = TabPageLayout&#46;Groups&#46;AddGroup&#40;&quot;Page Background&quot;, 0&#41;\n    Set ControlPopup = GroupPageBackground&#46;Add&#40;xtpControlPopup, ID_PAGE_WATERMARK, &quot;Watermark&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupPageBackground&#46;Add&#40;xtpControlPopup, ID_PAGE_COLOR, &quot;Color&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    GroupPageBackground&#46;Add xtpControlButton, ID_PAGE_BORDERS, &quot;Borders and Shading&quot;\n\n\n    Set GroupArrange = TabPageLayout&#46;Groups&#46;AddGroup&#40;&quot;Arrange&quot;, 0&#41;\n    Set ControlPopup = GroupArrange&#46;Add&#40;xtpControlPopup, ID_ARRANGE_POSITION, &quot;Position&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupArrange&#46;Add&#40;xtpControlPopup, ID_ARRANGE_TEXTWRAPPING, &quot;Text Wrapping&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupArrange&#46;Add&#40;xtpControlPopup, ID_ARRANGE_FRONT, &quot;Bring to Front&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupArrange&#46;Add&#40;xtpControlPopup, ID_ARRANGE_BACK, &quot;Send to Back&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupArrange&#46;Add&#40;xtpControlPopup, ID_ARRANGE_ALIGN, &quot;Align&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    Set ControlPopup = GroupArrange&#46;Add&#40;xtpControlPopup, ID_ARRANGE_GROUP, &quot;Group&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    GroupArrange&#46;Add xtpControlButton, ID_ARRANGE_UNGROUP, &quot;Ungroup&quot;\n    Set ControlPopup = GroupArrange&#46;Add&#40;xtpControlPopup, ID_ARRANGE_ROTATE, &quot;Rotate&quot;&#41;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 1&quot;\n        ControlPopup&#46;CommandBar&#46;Controls&#46;Add xtpControlButton, ID_SAMPLE_MENU_ITEM, &quot;Item 2&quot;\n    \n    \n    RibbonBar&#46;InsertTab 3, &quot;&amp;References&quot;\n    RibbonBar&#46;InsertTab 4, &quot;&amp;Mailings&quot;\n\n    Set TabReview = RibbonBar&#46;InsertTab&#40;5, &quot;&amp;Review&quot;&#41;\n    TabReview&#46;Color = xtpRibbonTabContextColorPurple\n    TabReview&#46;Id = ID_TAB_REVIEW\n    \n    Set TabView = RibbonBar&#46;InsertTab&#40;6, &quot;&amp;View&quot;&#41;\n    TabView&#46;Id = ID_TAB_VIEW\n\n    Set ViewGroup = TabView&#46;Groups&#46;AddGroup&#40;&quot;&amp;Show/Hide&quot;, ID_GROUP_SHOWHIDE&#41;\n    ViewGroup&#46;Add xtpControlCheckBox, ID_VIEW_RULER, &quot;Ruler&quot;\n    ViewGroup&#46;Add xtpControlCheckBox, ID_VIEW_GRIDLINES, &quot;GridLines&quot;\n    ViewGroup&#46;Add xtpControlCheckBox, ID_VIEW_PROPERTIES, &quot;Properties&quot;\n    ViewGroup&#46;Add xtpControlCheckBox, ID_VIEW_DOCUMENTMAP, &quot;Document Map&quot;\n    ViewGroup&#46;Add xtpControlCheckBox, ID_VIEW_THUMBNAILS, &quot;Thumbnails&quot;\n    ViewGroup&#46;Add xtpControlCheckBox, ID_VIEW_ACTINBAR, &quot;Document Action Bar&quot;\n        \n    Set TableTabs = RibbonBar&#46;InsertTab&#40;7, &quot;&amp;Design&quot;&#41;\n    TableTabs&#46;Id = ID_TAB_TABLEDESIGN\n    TableTabs&#46;ContextCaption = &quot;Table Tools&quot;\n    TableTabs&#46;Color = xtpRibbonTabContextColorOrange\n    Set TableTabs = RibbonBar&#46;InsertTab&#40;8, &quot;&amp;Layout&quot;&#41;\n    TableTabs&#46;Id = ID_TAB_TABLELAYOUT\n    TableTabs&#46;ContextCaption = &quot;Table Tools&quot;\n    TableTabs&#46;Color = xtpRibbonTabContextColorOrange\n    \n    Set TableTabs = RibbonBar&#46;InsertTab&#40;9, &quot;&amp;Design&quot;&#41;\n    TableTabs&#46;ContextCaption = &quot;Chart Tools&quot;\n    TableTabs&#46;Id = ID_TAB_CHARTDESIGN\n    TableTabs&#46;Color = xtpRibbonTabContextColorGreen\n    Set TableTabs = RibbonBar&#46;InsertTab&#40;10, &quot;&amp;Layout&quot;&#41;\n    TableTabs&#46;ContextCaption = &quot;Chart Tools&quot;\n    TableTabs&#46;Id = ID_TAB_CHARTLAYOUT\n    TableTabs&#46;Color = xtpRibbonTabContextColorGreen\n    Set TableTabs = RibbonBar&#46;InsertTab&#40;11, &quot;&amp;Format&quot;&#41;\n    TableTabs&#46;ContextCaption = &quot;Chart Tools&quot;\n    TableTabs&#46;Id = ID_TAB_CHARTFORMAT\n    TableTabs&#46;Color = xtpRibbonTabContextColorGreen\n    \n    \n    RibbonBar&#46;QuickAccessControls&#46;Add xtpControlButton, ID_FILE_NEW, &quot;&amp;New&quot;\n    RibbonBar&#46;QuickAccessControls&#46;Add xtpControlButton, ID_EDIT_COPY, &quot;&amp;Copy&quot;\n    RibbonBar&#46;QuickAccessControls&#46;Add xtpControlButton, ID_FILE_PRINT, &quot;&amp;Print&quot;\n        \nEnd Sub\n\nPrivate Sub CrateSkinFramework&#40;&#41;\nOn Error GoTo lblExit\n    Set SkinFramework = CreateObject&#40;&quot;Codejock&#46;SkinFramework&#46;&quot; &amp; XtremeCommandBars&#46;Version&#41;\n    \n    SkinFramework&#46;ApplyWindow Me&#46;hWnd\n    SkinFramework&#46;LoadSkin App&#46;Path &amp; &quot;&#46;&#46;\\&#46;&#46;\\&#46;&#46;\\&#46;&#46;\\SkinFramework\\Styles\\Office2007&#46;cjstyles&quot;, &quot;&quot;\nlblExit&#58;\n\nEnd Sub\n\nPrivate Sub Form_Unload&#40;Cancel As Integer&#41;\n    If Not SkinFramework Is Nothing Then\n        SkinFramework&#46;LoadSkin &quot;&quot;, &quot;&quot;\n        Set SkinFramework = Nothing\n    End If\n    CommandBars&#46;SaveCommandBars &quot;Codejock Software ActiveX Demos&quot;, App&#46;Title, &quot;Layout&quot;\n    \nEnd Sub\n\nPrivate Sub txtClient_MouseUp&#40;Button As Integer, Shift As Integer, x As Single, Y As Single&#41;\n    If &#40;Button = 2&#41; Then\n        ZOrder\n        \n        Dim Popup As CommandBar\n        Dim Control As CommandBarControl\n        \n        Set Popup = CommandBars&#46;Add&#40;&quot;Popup&quot;, xtpBarPopup&#41;\n        With Popup&#46;Controls\n            &#46;Add xtpControlButton, ID_EDIT_CUT, &quot;Cu&amp;t&quot;, -1, False\n            &#46;Add xtpControlButton, ID_EDIT_COPY, &quot;&amp;Copy&quot;, -1, False\n            &#46;Add xtpControlButton, ID_EDIT_PASTE, &quot;&amp;Paste&quot;, -1, False\n        \n            Set Control = &#46;Add&#40;xtpControlButton, ID_CONTEXT_FONT, &quot;&amp;Font&#46;&#46;&#46;&quot;, -1, False&#41;\n            Control&#46;BeginGroup = True\n        \n            Set Control = &#46;Add&#40;xtpControlButton, ID_PARA_PARAGRAPH, &quot;&amp;Paragraph&#46;&#46;&#46;&quot;, -1, False&#41;\n            Control&#46;BeginGroup = True\n        \n            &#46;Add xtpControlButton, ID_INSERT_BULLET, &quot;Bullets&quot;, -1, False\n        End With\n    \n        Popup&#46;ShowPopup\n    End If\nEnd Sub\n[/code:5z9cagc0]','',0,'AIA=','5z9cagc0',1,0,'',2,0,0),(15417,3516,6,2,0,'87.218.146.153',1152403904,1,0,1,1,1,1,'','','Victor,\n\nOscar no ha desarrollado esa clase. Si la comparás con la distribuida por FiveTech, verás que es la nuestra, con modificaciones.\n\nSin ánimo de entrar en polémica, aclarar que no vamos a oponernos a las modificaciones de Oscar. Pero Oscar ha tomado el código fuente de la clase TToolBar de FWH, copyright de FiveTech Software, le ha añadido una serie de modificaciones y lo está distribuyendo sin autorización nuestra.\n\nComo te digo, no vamos a darle a esto más importancia, pero es bueno que recapacitemos sobre ello. El código fuente de FWH no es \"open source\". Se distribuye para su estudio y modificación, pero nadie tiene autorización para distribuirlo con sus cambios, a terceros.\n\nOscar podría publicar un fichero \"patch\" que modificase el original de FiveTech para aquellos usuarios que lo tengan, pero no puede publicar el código original de FWH, modificado.','',0,'AIA=','2bvfc9t3',1,0,'',2,0,0),(15418,3522,6,2,0,'87.218.146.153',1152404382,1,0,1,1,1,1,'','','Las versiones de Harbour no son compatibles con versiones anteriores. Los desarrolladores de Harbour intentan mantener compatibilidad, pero como es en este caso, se han introducido cambios que obligan a usar librerías distintas.','',0,'AIA=','2a5gdnkx',1,0,'',2,0,0),(15419,3516,6,52,0,'200.127.195.89',1152404461,1,0,1,1,1,1,'','','Antonio,\n\nTenés razón en parte de lo que decís, pero acordate que gracias a las modificaciones que los usuarios hacemos/hacen a las clases el FW esta siendo mas fuerte y preciso; simplemente me parecio raro que si oskar ha tomado la IDEA ( y eso cuesta mucho en el mundo de programación... las ideas ) de modificar dicha clase y MENSIONAR en el foro como lo hizo en el post:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3494\">http://fivetechsoft.com/forums/viewtopic.php?t=3494</a><!-- m -->\n\nque no se lo haya mencionado en tu post me parecio un poquito molesto.\n\nPerdón si ofendo con este post, pero es lo que pienso.\n\nGracias.','',0,'AIA=','38y25ty2',1,0,'',52,0,0),(15420,3516,6,2,0,'87.218.146.153',1152404819,1,0,1,1,1,1,'','','Gustavo,\n\nRecordarte que la capacidad de usar menus dropdown en las toolbars es una capacidad desarrollada por Microsoft. Las librerías GUIs lo único que hacen es usar lo que ofrece el sistema operativo.\n\nLo que quiero decir es que el soporte de menús dropdown en las toolbars, de ser de alguien, es de Microsoft.\n\nQue Oscar haya ampliado la clase de FWH y los haya implementado está muy bien y es bueno comprobar que hay usuarios avanzados capaces de ayudar a los demás.','',0,'AIA=','33p2wmf8',1,1152405008,'',2,1,0),(15421,3516,6,52,0,'200.127.195.89',1152404927,1,0,1,1,1,1,'','','Antonio,\n\nPerfecto y gracias.','',0,'AIA=','xss5c5hf',1,0,'',52,0,0),(15423,3516,6,2,0,'87.218.146.153',1152405277,1,0,1,1,1,1,'','','Oscar,\n\nTe agradecemos tu compresión y tu ayuda desinteresada a la comunidad de usuarios de FWH.\n\nSi, lo idóneo es que publiques patches para que se haga de forma legal y no se creen malentendidos. Seguro que a ninguno de nosotros nos gustaría que alguien tomase nuestro trabajo propio y lo distribuyese como suyo, aunque estuviese modificado ó ampliado.\n\nGracias,','',0,'AIA=','2ifj2yhl',1,0,'',2,0,0),(15425,3516,6,2,0,'87.218.146.153',1152405561,1,0,1,1,1,1,'','','Oscar,\n\nTotalmente de acuerdo. Gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAqui estamos para intentar ayudar y para seguir aprendiendo, que siempre hay nuevas cosas que aprender <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','10b20ebf',1,0,'',2,0,0),(15428,3526,3,190,0,'219.64.187.49',1152412145,1,0,1,1,1,0,'','InPortByte() function missing in FWH 2.7 FIVEHC.LIB','I was trying to re-compile all my FWH 2.5 programs with FWH 2.7 and I am getting the following error.\n\nUnresolved external \"_HB_FUN_INPORTBYTE\".\n\nWhen I checked, I found that \"InPortByte()\" function and other funcitons of inout.c are missing in FIVEHC.LIB.\n\nWhat to do ?\n\n- Ramesh Babu P','',0,'AIA=','1ekpfipq',1,0,'',190,0,0),(15429,3461,3,15,0,'59.121.150.112',1152413607,1,0,1,1,1,0,'','','Hello Antonio,\n\nI agree you said not easy. \nBut I think Why we choice FWH, because it\'s able to offer easy code from complex WinAPI, of course. I hope ActiveX DLL or OCX.\n\nRegards,\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','n3yrajfj',1,0,'',15,0,0),(15430,3461,3,51,0,'80.122.88.242',1152425241,1,0,1,1,1,0,'','','Hello Antonio,\n\n&gt;This is a Visual Basic sample for the Ribbon ActiveX. Do you think that this is easy or simple ? \n\n\nEasy or not is not the question. Fact is that we need RibbonBar now.','',0,'AIA=','n2i2yq1x',1,0,'',51,0,0),(15431,3461,3,51,0,'80.122.88.242',1152425394,1,0,1,1,1,0,'','','Hello Oskar,\n\nthank you for the example. \nDo make the source public?\n\nRegards\nOtto','',0,'AIA=','3efbrcya',1,0,'',51,0,0),(15432,3419,20,29,0,'88.149.161.221',1152431454,1,0,1,1,1,0,'','','Ok per le singole parola,\nma come funziona per intere frasi ? \nEffettua una traduzione parola per parola ?\n\nMarco','',0,'AIA=','10mycbj6',1,0,'',29,0,0),(15433,3461,3,2,0,'87.218.146.153',1152431666,1,0,1,1,1,1,'','','Otto,\n\nHere you have the beggining of \\Codejock Software\\ActiveX\\Xtreme SuitePro ActiveX 2006 Q2 (30 Day Trial)\\samples\\CommandBars\\VB\\RibbonSample\\frmMain.frm Private Sub CreateRibbonBar(). The defines are located at Resource.bas.\n\nIf you continue this, you will have your ribbon <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nribbon.prg\n[code:38fxg50f]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define ID_TAB_WRITE       5004 \n#define ID_GROUP_CLIPBOARD 5001\n\nfunction Main&#40;&#41;\n\n   local oWnd, oCommandBars, oRibbonBar, oTabWrite, oGroups, oGroupClipborad\n   \n   DEFINE WINDOW oWnd\n   \n   // Begin XtremeCommandBars&#46;CommandBars CommandBars \n   oCommandBars = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Codejock&#46;CommandBarsFrame&#46;10&#46;2&quot; &#41;\n   \n   oCommandBars&#58;SetSize&#40; 200, 100 &#41;\n\n   // Set RibbonBar = CommandBars&#46;AddRibbonBar&#40;&quot;The Ribbon&quot;&#41;   \n   oRibbonBar = oCommandBars&#58;Do&#40; &quot;AddRibbonBar&quot;, &quot;The Ribbon&quot; &#41;\n   \n   // Set TabWrite = RibbonBar&#46;InsertTab&#40;0, &quot;Writ&amp;e&quot;&#41;\n   oTabWrite = OleInvoke&#40; oRibbonBar, &quot;InsertTab&quot;, 0, &quot;Writ&amp;e&quot; &#41;\n \n   // TabWrite&#46;Id = ID_TAB_WRITE\n   OleSetProperty&#40; oTabWrite, &quot;Id&quot;, ID_TAB_WRITE &#41;\n\n   // Set GroupClipborad = TabWrite&#46;Groups&#46;AddGroup&#40;&quot;&amp;Clipboard&quot;, ID_GROUP_CLIPBOARD&#41;\n   oGroups = OleGetProperty&#40; oTabWrite, &quot;Groups&quot; &#41;\n   oGroupClipborad = OleInvoke&#40; oGroups, &quot;AddGroup&quot;, &quot;&amp;Clipboard&quot;, ID_GROUP_CLIPBOARD &#41;  \n   \n   MsgInfo&#40; oGroupClipborad &#41; // A numeric value different from zero shows that it is a valid handle\n   \n   ACTIVATE WINDOW oWnd\n   \nreturn nil\n[/code:38fxg50f]','',0,'AIA=','38fxg50f',1,0,'',2,0,0),(15434,3527,3,51,0,'80.122.88.242',1152435706,1,0,1,1,1,0,'','Starting with FWH','As I alway have problems to compile the FWH-samples\nI did today a clean installation - FORMAT c: - setup WINDOWS ...\n\nBut the same thing. After all only an error.\n\nRegards \nOtto\n\n************************\n1) download the all the files from the FTDN\n\n2) copy all the files to a directory (FW_CD) and unpack setup.zip\n\nstart setup.exe\n\n3) read Five Tech letter\n\n4) Install Fivewin for Harbour/xHarbour\nFivewin for Harbour/xHarbour installation with default values \n\n5) Install xHarbour (Borland build)\nWARNING: xHarbour is not on the FTDN site - there you only load  a link!!!\n\n6)  Install  Borland C++ 5.5\nThere is a link on the fivewin-Homepage &lt;FWH&gt; to free Borland C++ 5.5\n\n<!-- m --><a class=\"postlink\" href=\"ftp://ftpd.borland.com/download/bcppbuilder/freecommandLinetools.exe\">ftp://ftpd.borland.com/download/bcppbui ... etools.exe</a><!-- m -->\n\n7) your first FHW-programm\n\nCMD\ncd\\\ncd fwh\ncd samples\n\n\nbuildx.bat fwbrow\n\n+----------------------------------------------------------------------------+\n¦ FiveWin for xHarbour 2.7 - June 2006            xHarbour development power ¦_\n¦ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ¦¦\n+----------------------------------------------------------------------------+¦\n  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\nCompiling...\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'fwbrow.prg\' and generating preprocessed output to \'fwbrow.ppo\'...\nLines 407, Functions/Procedures 12\nGenerating C source output to \'fwbrow.c\'...\nDone.\nDas System kann den angegebenen Pfad nicht finden.\nDas System kann den angegebenen Pfad nicht finden.\n* There are errors\n\nC:\\FWH\\SAMPLES&gt;','',0,'AIA=','8q5ytm2l',1,0,'',51,0,0),(15435,3527,3,2,0,'87.218.146.153',1152440638,1,0,1,1,1,1,'','','Otto,\n\n&gt; 7) your first FHW-programm\n\nBefore that step you have to edit buildx.bat and set your own paths.\n\n&gt; Das System kann den angegebenen Pfad nicht finden.\n\nCould you translate it into English ? Thanks,','',0,'AIA=','1y7w25ys',1,0,'',2,0,0),(15436,3527,3,2,0,'87.218.146.153',1152440962,1,0,1,1,1,1,'','','Otto,\n\n&gt;\n5) Install xHarbour (Borland build) \nWARNING: xHarbour is not on the FTDN site - there you only load a link!!!\n&gt;\n\nBoth Harbour and xharbour are free products, thats why we provide public urls to download them. You can get them from these forums at: \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'AIA=','2f89h7oi',1,0,'',2,0,0),(15437,3419,20,49,0,'62.13.172.78',1152452670,1,0,1,1,1,1,'','','probabilmente è la stessa classe che usa andy per xmate infatti io e Garombo stiamo traducendo tutto : menu,bottoni,frasi parole,messaggi d\'errore insomma tutto !!\nio la classe l\'ho provata e funzionicchia solo che non capisco come posso fare per aggiungere altre parole tra quelle gia inserite \nPosso fare la traduzione e salvarle : la classe è semplice ma putroppo non vedo il metodo add o qualcosa che gli si assomigli probabilmente questa in mio possesso è una copia errata o vecchia di quella che usa Andy .\nTi devo inviare la classe così magari trovi l\'arcano...\n\n&gt;Effettua una traduzione parola per parola ? \n\nnon fa la traduzione ma ci sono due colonne da una parte c\'è la colonna in spagnolo e dall\'altra la possibile colonna da inserire in italiano poi il file si salva ma è meglio vedere la classe come funziona invece di stare qui a parlarne','',0,'AIA=','1809azw1',1,0,'',49,0,0),(15438,3527,3,51,0,'80.122.88.242',1152454117,1,0,1,1,1,0,'','','Hello Antonio,\n\n&gt;Before that step you have to edit buildx.bat and set your own paths. \n\nWhy do I have to change my own paths if I didn\'t change the defaults from your setup-CD.\n\nI imagine that I am not a FW user since 1.4 that I am a beginner and that many of the younger boys/girls don\'t know bat-files and DOS anymore.\n\nWhich paths do I have to control? Or is there a tool I can use?\n\nRegards\nOtto','',0,'AIA=','3vogu65k',1,0,'',51,0,0),(15439,3419,20,49,0,'62.13.172.78',1152454718,1,0,1,1,1,1,'','','nella classe c\'è questa funzione che non ho trovato nell\'help di xharbour \nHB_I18nLoadTable( cFile )\n\nin sostanza va a caricare un file .hil\nquesto file sembra in ascii ma non lo è \n\n[url=http&#58;//img147&#46;imageshack&#46;us/my&#46;php?image=lang5pp&#46;jpg:232s5ups][img:232s5ups]http&#58;//img147&#46;imageshack&#46;us/img147/1387/lang5pp&#46;th&#46;jpg[/img:232s5ups][/url:232s5ups]\n[/img]','',0,'GA==','232s5ups',1,0,'',49,0,0),(15440,3527,3,51,0,'80.122.88.242',1152455193,1,0,1,1,1,0,'','','Now I changed the installation guide\n\n6) Install Borland C++ 5.5 \nSelect c:\\bcc55  as target.\n\nThere are new errors:\nUnable to open include file ...\nRegards\nOtto\n\n\n\n************************ \n1) download the all the files from the FTDN \n\n2) copy all the files to a directory (FW_CD) and unpack setup.zip \n\nstart setup.exe \n\n3) read Five Tech letter \n\n4) Install Fivewin for Harbour/xHarbour \nFivewin for Harbour/xHarbour installation with default values \n\n5) Install xHarbour (Borland build) \nWARNING: xHarbour is not on the FTDN site - there you only load a link!!! \n\n6) Install Borland C++ 5.5 \nSelect c:\\bcc55  as target.\n\nThere is a link on the fivewin-Homepage &lt;FWH&gt; to free Borland C++ 5.5 \n\n<!-- m --><a class=\"postlink\" href=\"ftp://ftpd.borland.com/download/bcppbuilder/freecommandLinetools.exe\">ftp://ftpd.borland.com/download/bcppbui ... etools.exe</a><!-- m --> \n\n7) your first FHW-programm \n\nCMD \ncd\\ \ncd fwh \ncd samples \n\n\nbuildx.bat fwbrow \n \n\n----------------------------------------------------------------------------+\n¦ FiveWin for xHarbour 2.7 - June 2006            xHarbour development power ¦_\n¦ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ¦¦\n+----------------------------------------------------------------------------+¦\n  ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯\nCompiling...\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'fwbrow.prg\' and generating preprocessed output to \'fwbrow.ppo\'...\nLines 407, Functions/Procedures 12\nGenerating C source output to \'fwbrow.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nfwbrow.c:\nError E2209 c:\\xharbour\\include\\hbdefs.h 56: Unable to open include file \'stdarg\n.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 57: Unable to open include file \'stdio.\nh\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 58: Unable to open include file \'stdlib\n.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 59: Unable to open include file \'string\n.h\'\nError E2209 c:\\xharbour\\include\\hbsetup.h 61: Unable to open include file \'limit\ns.h\'\nError E2188 c:\\xharbour\\include\\hbdefs.h 409: Expression syntax\nError E2257 c:\\xharbour\\include\\hbdefs.h 434: , expected\nError E2139 c:\\xharbour\\include\\hbvmpub.h 227: Declaration missing ;\nError E2451 fwbrow.c 90: Undefined symbol \'NULL\'\nError E2141 fwbrow.c 90: Declaration syntax error\nError E2190 fwbrow.c 90: Unexpected }\nError E2190 fwbrow.c 90: Unexpected }\nError E2040 fwbrow.c 90: Declaration terminated incorrectly\nError E2190 fwbrow.c 196: Unexpected }\nError E2190 fwbrow.c 196: Unexpected }\nError E2109 fwbrow.c 196: Not an allowed type in function hb_vm_SymbolInit_FWBRO\nW\n*** 16 errors in Compile ***\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'C0W32.OBJ\'\n* There are errors\n\nC:\\FWH\\SAMPLES&gt;','',0,'GA==','2c3jjhgr',1,0,'',51,0,0),(15441,3526,3,190,0,'202.65.134.44',1152456323,1,0,1,1,1,0,'','','Hi Antonio\n\nI found some posting from you regarding this problem in FWH spanish forum.  But I can\'t understand what you said there.  \n\nPlease help me to resolve these unresolved externals InPortByte() and ExportByte() \n\n- Ramesh Babu P','',0,'GA==','2hpnx4cb',1,0,'',190,0,0),(15442,3527,3,58,0,'84.149.247.114',1152457703,1,0,1,1,1,0,'','','Hi Otto,\n\nNobody can know the setup of your BCC installation.\n\nPlease make sure that your PATH includes the folder \'bin\' of BCC.\n Example: [b:2rcl7fni]d:\\bcc55\\bin;[/b:2rcl7fni]\n\nIn the standard makefile buildx.bat you must edit the following two lines :\n [b:2rcl7fni]set hdir=d:\\xharbour[/b:2rcl7fni]\nand\n [b:2rcl7fni]set bcdir=d:\\bcc55[/b:2rcl7fni]\n\nWith this 3 modifacations i succeeded imediatelly building up my first FWH sample.\n\nKeep cool  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nBest regards,\nDetlef','',0,'QA==','2rcl7fni',1,0,'',58,0,0),(15443,3417,3,49,0,'62.13.172.78',1152457880,1,0,1,1,1,1,'','','Dear Timm, have you correct the error ?\n\nBest Regards,','',0,'QA==','3a8ijloz',1,0,'',49,0,0),(15444,3526,3,2,0,'87.218.146.153',1152462232,1,0,1,1,1,1,'','','Ramesh,\n\nInPortByte() and OutPortByte() are not available in 32 bits. Win32 does not allow them.\n\nWhat do you need to do with them ?','',0,'QA==','2l9r34ht',1,0,'',2,0,0),(15445,3527,3,2,0,'87.218.146.153',1152462617,1,0,1,1,1,1,'','','Otto,\n\nBesides Detlef explanation, as described at <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fwh.html\">http://www.fivetechsoft.com/english/fwh.html</a><!-- m --> you also have to create these files:\n\nBorland installation is also an automatic process, though once it is completed, you must create the following ascii files: bcc32.cfg and ilink32.cfg and place them at c:\\Your_selected_Borland_path\\bin. Those files containts are as follows:\n\nbcc32.cfg:\n\n-I\"c:\\Your_selected_Borland_path\\include\"\n-L\"c:\\Your_selected_Borland_path\\lib\" \n\nilink32.cfg:\n-L\"c:\\Your_selected_Borland_path\\lib\" \n\nBorland readme file also explains it very clearly.','',0,'QA==','zko6t18q',1,0,'',2,0,0),(15446,3527,3,51,0,'80.122.88.242',1152466265,1,0,1,1,1,0,'','','Hello Antonio,\nthank you for your help. \nBut at the moment I can\'t be bothered to go ahead with the fresh installation.  \nI have FWH working on my develop machine. Only sometimes buildx.bat doesn’t what I want.\nMost times xBuildW.exe helps out.\nI only thought to try out a fresh installation from a FW-marketing point of view. One click should do the job. But at the moment we are miles away from that. For a beginner it is really a hard job to start with FW !\nOnly now I saw that there are more explanations on your homepage. \n(In fact of the disturbing background  text is very hard to read. )\nAs I do not plan to use Advantage I didn’t read the Advantage section. \nConclusion ACE32.dll is missing.\nRegards\nOtto','',0,'QA==','kc7y7nr3',1,0,'',51,0,0),(15447,3461,3,51,0,'80.122.88.242',1152466694,1,0,1,1,1,0,'','','Hello Antonio,\nthank you for your help. \nAlthough you have shown me the way how to address RibbonBar-ocx I am not able to implement RibbonBar on my own.\nAt the moment this does not matter. In the meantime till FW implements an own RibbonBar I will use the time for making the layout for my WINHOTEL version 2007.\nRegards\nOtto','',0,'QA==','3ji00zi4',1,0,'',51,0,0),(15448,3527,3,58,0,'84.149.252.26',1152471516,1,0,1,1,1,0,'','','Hi Otto,\n\nyou don\'t need every single line in buildx.bat.\n\nYou can put all advantage components into comment if you don\'t use Advantage RDD.\n\nThe same if you use only dbfntx rdd, you can put these two lines into comment.\n\n[b:2nsjvvo5]echo %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc[/b:2nsjvvo5]\n\nJust write a \'rem \' at the beginning of these lines and you\'ll feel young again  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nBest regards,\nDetlef','',0,'QA==','2nsjvvo5',1,0,'',58,0,0),(15449,3527,3,2,0,'87.218.146.153',1152480587,1,0,1,1,1,1,'','','Otto,\n\nPlease believe me if I tell you that you are the first one in years that complains about that <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nFW is very well known for its simplicity and its easy of use.','',0,'QA==','t8322ucm',1,0,'',2,0,0),(15450,3528,6,665,0,'200.122.153.34',1152484435,1,0,1,1,1,0,'','Unrecoveable error 9000','Unrecoveable error 9000\nAlert.prg was compiled by older version 5 is no longer supported \'\nPlease Recompiled.\n\nGracias si podrian decir que tengo obsoleto, seran .ch no sabemos\n\nUn saludo muy ameno y pedimos ayuda , gracias por su amabilidad.\nUsamos \nHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n\nFWH2.5 cremos que se nos ha hecho una posible mescla y si es asi estamos en problemas por favor pedimos un consejo del posible error.\n\nGracias.','',0,'QA==','y7299v41',1,0,'',665,0,0),(15451,3528,6,2,0,'87.218.146.205',1152486729,1,0,1,1,1,1,'','','Teneis que recompilar todos los PRGs de vuestra aplicación y librerías que esteis usando, con la versión de xharbour que usais.','',0,'QA==','1d01m23i',1,0,'',2,0,0),(15452,3528,6,665,0,'200.122.153.34',1152488830,1,0,1,1,1,0,'','Dame una solucion posible','Gracias amigo, pero..\n\nSolo utilizo un .prg que es un ejemplo que trae la version de FWH25 y  esto ocurrio desde que utilizo la version de xharbor, como soy nuevo con cual herramienta podria volver a recompila a xharbor..\n\nGracias\nMuy amable','',0,'QA==','3vu71wp0',1,0,'',665,0,0),(15453,3526,3,190,0,'202.65.134.44',1152495459,1,0,1,1,1,0,'','','Hi Antonio\n\nThank you for your reply.\n\nThese functions are used in TDosPrn() to check the status of the printer.\n\n\n*******************************************************************************\n*** METHOD PrinterStatus() CLASS TDosPrn to Find out the Printer Status     ***\n*******************************************************************************\n\nMETHOD PrinterStatus() CLASS TDosPrn\n\n   Local nStatus\n\n   If ::nLPTBase &gt; 0\n      nStatus := InPortByte( ::nLPTBase + 1 )\n      ::lPrnError  := ! lIsBit( nStatus, 4 )\n      ::lPrnSelect :=   lIsBit( nStatus, 5 )\n      ::lPaperOut  :=   lIsBit( nStatus, 6 )\n      ::lDataAck   := ! lIsBit( nStatus, 7 )\n      ::lPrnBusy   := ! lIsBit( nStatus, 8 )\n   Endif\n\nReturn Self\n\n*********\n\nIs there any way to implement the above method.\n\nRegards \n\n- Ramesh Babu P','',0,'QA==','19ztmllt',1,0,'',190,0,0),(15454,3524,6,439,0,'190.0.136.112',1152499181,1,0,1,1,1,1,'','','Gente,\n\nSe reciben sugerencias.........\n\nPor favor <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'QA==','35p708kt',1,0,'',439,0,0),(15455,3529,19,49,0,'213.82.134.66',1152511820,1,0,1,1,1,1,'','WE ARE THE CHAMPIONS!!!!','<!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> WE ARE THE CHAMPIONS!!!!\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> we are the winners...\n\n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->))))))','',0,'QA==','2171dn8c',1,0,'',49,0,0),(15456,3530,3,239,0,'218.19.62.253',1152514536,1,0,1,1,1,0,'','800*600 dll --&gt;1024*768,dialog nleft,ntop not same','Hi,\n dialog  for  800*600  resource in  dll\n\nSTO01 DIALOG 0, 0, 400, 290\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION \"purin1\"\nFONT 12, \"System\"\n{\n  LTEXT \"\", 106, 113, 58, 106, 10\n EDITTEXT 102, 51, 44, 58, 12, WS_BORDER | WS_TABSTOP \n CONTROL \"\", 201, \"txbrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 5, 89, 388, 176\n  }\n\n  On 800*600, dialog lays on 0,0 pixel postion  and full screen paint,  but on 1024*768, it  lays at about 40(ntop),5(nleft) pixel postion.\n  For we want through codes as below to auto fit difrent resolution.\n  \n   rsl0:=getsysmetrics(0)/800\n   rsl1:=getsysmetrics(1)/600\n   for  i:=1 TO LEN(::acontrols)\n       oCtrol = ::aControls[i]\n       aRect = GetCoors( oCtrol:hWnd )\n       oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1, (aRect[4] - aRect[2])*rsl0, (aRect[3] - aRect[1])*rsl1, .t. )        \n   next\n\n  // aRect = GetWndRect( ::hWnd )        \n       MoveWindow( ::hWnd, ::nTop*rsl1, ::nLeft*rsl0, ::nWidth*rsl0, ::nHeight*rsl1, .t. )\n\n  Best regard!\nShuming Wang','',0,'','1jq70ujg',1,0,'',239,0,0),(15457,3526,3,2,0,'87.218.146.60',1152515363,1,0,1,1,1,1,'','','Ramesh,\n\nWe may adapt this code:\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/default.aspx?scid=kb;en-us;160129\">http://support.microsoft.com/default.as ... -us;160129</a><!-- m -->','',0,'','30qz97wl',1,0,'',2,0,0),(15458,3528,6,2,0,'87.218.146.60',1152517396,1,0,1,1,1,1,'','','Si usas FWH 2.5, entonces usa el Harbour ó xHarbour que se te entregó con esa versión.\n\nExisten utilidades para recompilar todos los PRGs de FWH con  una versión superior de Harbour ó xHarbour, pero nosotros no las distribuimos.','',0,'','d9sffawx',1,0,'',2,0,0),(15459,3332,4,2,0,'87.218.146.60',1152517505,1,0,1,1,1,1,'','','It looks as it is working fine for everybody <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2di3h047',1,0,'',2,0,0),(15460,3517,1,2,0,'87.218.146.60',1152517628,1,0,1,1,1,1,'','','Marc,\n\nYou may use whois.sc/&lt;IP&gt; from the explorer or similar.','',0,'','2ljkvsle',1,0,'',2,0,0),(15461,3526,3,190,0,'202.65.134.27',1152522159,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nI have gone through the article and I do not know how to impliment the \nsample code shown in the article.\n\nRegards\n\n- Ramesh Babu P','',0,'','2k4rodww',1,0,'',190,0,0),(15462,3417,3,190,0,'202.65.134.27',1152522793,1,0,1,1,1,0,'','','Hi \n\nI could compile SBUTTONH.LIB sucessfully and created the sample\nprograms :\n\ntestbtn.exe\ntestlin1.exe\ntestlin2.exe\ntestlin3.exe\ntestrad.exe\ntesttsay.exe\ntesthots.exe\n\nThey are all working fine in XHARBOUR 0.99.61 (SimpLex) + FWH 2.7\n\nRegards\n\n- Ramesh Babu P','',0,'','2oclm4yk',1,0,'',190,0,0),(15463,3517,1,161,0,'81.164.212.146',1152524585,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI already found some free database on the net which are updated each month. The have the IP info and locations of that IP. I even found one wich holding the city info but it\'s a .dat-file than only can be read with API-function you have to call from you program.\n\nThis is a example for C, but hou can I implement this?\n[code:j43kog2w]#include &lt;GeoIP&#46;h&gt;\nint main &#40;int argc, char *argv&#91;&#93;&#41; &#123;\n  GeoIP * gi;\n  gi = GeoIP_new&#40;GEOIP_STANDARD&#41;;\n  printf&#40;&quot;code %s\\n&quot;,\n    GeoIP_country_code_by_name&#40;gi, &quot;yahoo&#46;com&quot;&#41;&#41;;\n&#125;\n\n[/code:j43kog2w]\n\nRegards,\nMarc','',0,'AIA=','j43kog2w',1,0,'',161,0,0),(15464,3531,6,83,0,'80.35.196.60',1152525521,1,0,1,1,1,0,'','¿Que hace exactamente ResAllFree() y PostQuitMessage(0)?','Hola a todos,\n\nHAce algún tiempo leí algo en el foro referente a estas dos funciones, pero ahora no soy capaz de encontrar de nuevo la referencia.\n\nTengo entendido que colocada ResAllFree() al final del programa se asegura uno de liberar todos los recursos usados.\n\nRespecto a PostQuitMessage(0) lo tengo menos claro, porque la referencia en la ayuda de FW no aclara gran cosa.\n\n¿Alguna luz?\n\nSaludos\nJosé Vicente Beltrán\nAlgeciras\nEspaña <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nFWH 2.7 Build Junio, Harbour 46.2','',0,'AIA=','2g0m4nh5',1,0,'',83,0,0),(15465,3532,19,26,0,'84.52.130.249',1152531088,1,0,1,1,1,1,'','Programming Is Like Sex','<!-- m --><a class=\"postlink\" href=\"http://push.cx/2006/programming-is-like-sex\">http://push.cx/2006/programming-is-like-sex</a><!-- m -->\n[quote:350tb2wf]\n[b:350tb2wf]because…[/b:350tb2wf]\n\n[list:350tb2wf][*:350tb2wf]One mistake and you have to support it for the rest of your life. (Michael Sinz) [/*:m:350tb2wf]\n[*:350tb2wf]Once you get started, you’ll only stop because you’re exhausted. [/*:m:350tb2wf]\n[*:350tb2wf]It takes another experienced person to really appreciate what you’re doing. [/*:m:350tb2wf]\n[*:350tb2wf]Conversely, there’s some odd people who pride themselves on their lack of experience. [/*:m:350tb2wf]\n[*:350tb2wf]You can do it for money or for fun. [/*:m:350tb2wf]\n[*:350tb2wf]If you spend more time doing it than watching TV, people think you’re some kind of freak. [/*:m:350tb2wf]\n[*:350tb2wf]It’s not really an appropriate topic for dinner conversation. [/*:m:350tb2wf]\n[*:350tb2wf]There’s not enough taught about it in public school. [/*:m:350tb2wf]\n[*:350tb2wf]It doesn’t make any sense at all if you try to explain it in strictly clinical terms. [/*:m:350tb2wf]\n[*:350tb2wf]Some people are just naturally good. [/*:m:350tb2wf]\n[*:350tb2wf]But some people will never realize how bad they are, and you’re wasting your time trying to tell them. [/*:m:350tb2wf]\n[*:350tb2wf]There are a few weirdos with bizarre practices nobody really is comfortable with. [/*:m:350tb2wf]\n[*:350tb2wf]One little thing going wrong can ruin everything. [/*:m:350tb2wf]\n[*:350tb2wf]It’s a great way to spend a lunch break. [/*:m:350tb2wf]\n[*:350tb2wf]Everyone acts like they’re the first person to come up with a new technique. [/*:m:350tb2wf]\n[*:350tb2wf]Everyone who’s done it pokes fun at those who haven’t. [/*:m:350tb2wf]\n[*:350tb2wf]Beginners do a lot of clumsy fumbling about. [/*:m:350tb2wf]\n[*:350tb2wf]You’ll miss it if it’s been a while. [/*:m:350tb2wf]\n[*:350tb2wf]There’s always someone willing to write about the only right way to do things. [/*:m:350tb2wf]\n[*:350tb2wf]It doesn’t go so well when you’re drunk, but you’re more likely to do it. [/*:m:350tb2wf]\n[*:350tb2wf]Sometimes it’s fun to use expensive toys. [/*:m:350tb2wf]\n[*:350tb2wf]Other people just get in the way. [/*:m:350tb2wf][/list:u:350tb2wf]\n[/quote:350tb2wf]\n\nCheers, Roman','',0,'wEA=','350tb2wf',1,0,'',26,0,0),(15466,3531,6,2,0,'87.218.146.2',1152531265,1,0,1,1,1,1,'','','Jose Vicente,\n\nResAllFree() es una función diseñada para FW 16 bits. En 32 bits no es necesaria. Se utilizaba para forzar la liberación de los recursos en caso de que no se hubiesen liberado, pero en 32 bits esto lo hace Windows automaticamente.\n\nPostQuitMessage( 0 ) es una función del API de Windows que le indica a Windows que una aplicación debe terminar la ejecución de su bucle de recogida de mensajes y salir (terminar). No es preciso que la llames directamente, ya que FWH la llama automaticamente cuando se sale de la ventana principal.','',0,'wEA=','7kk10bgs',1,0,'',2,0,0),(15467,3517,1,2,0,'87.218.146.2',1152532460,1,0,1,1,1,1,'','','Marc,\n\nFor Harbour and FWH:\n[code:1ak4epbx]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; Country_Code&#40; &quot;yahoo&#46;com&quot; &#41; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;GeoIP&#46;h&gt;\n\nHB_FUNC&#40; COUNTRY_CODE &#41;\n&#123; \n  GeoIP * gi = GeoIP_new&#40; GEOIP_STANDARD &#41;; \n\n  hb_retc&#40; GeoIP_country_code_by_name&#40; gi, hb_parc&#40; 1 &#41; &#41; &#41;; \n&#125;\n\n#pragma ENDDUMP\n[/code:1ak4epbx]','',0,'AIA=','1ak4epbx',1,0,'',2,0,0),(15468,3531,6,83,0,'80.35.196.60',1152532763,1,0,1,1,1,0,'','','Gracias por tu respuesta Antonio, ahora lo tengo mas claro\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','1wy9tmoe',1,0,'',83,0,0),(15469,3531,6,362,0,'200.168.52.156',1152532846,1,0,1,1,1,1,'','','Antonio, y GlobalFree()??','',0,'AIA=','3jk1bvqs',1,0,'',362,0,0),(15470,3517,1,161,0,'81.164.212.146',1152532992,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI think I should move from FW to FWH so I can take advantage of the 32bit language  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nWhen will be the next FWH release, so I have the latest version?\n\nMarc','',0,'AIA=','3j4imc19',1,0,'',161,0,0),(15471,3506,23,308,0,'84.148.24.34',1152533395,1,0,1,1,1,0,'','Re: fox sql select','[quote=&quot;sildata&quot;:2fahw649]El fox tiene un comando sql \"select\" que permite reunir o juntar en una sola tablas, varias tablas incluyendo varias clausulas adicionales como WHEN,FOR etc que le dan una gran potencia y versatilidad; mi pregunta es: HARBOUR o XHARBOUR tienen alguna funcion o comando parecida o similar; y cual es esa y por favor un ejemplo.\nGracias[/quote:2fahw649]\n\nhere any samples of sql-Select\n\n[code:2fahw649]\n   oODBC &#58;= TOdbc&#40;&#41;&#58;New&#40;cDsn, cUSR, cPAS&#41;\n   IF ! oODBC&#58;lSuccess\n      MsDebug&#40; &quot;Error at &quot; + cDSN + &quot; &quot; + cUSR + &quot; &quot; + cPAS &#41;\n      oODBC&#58;END&#40;&#41;\n      QuitProgram&#40;&#41;\n   ENDIF\n   cSQLString &#58;= &quot;Select Field1, Field2, Field3 from database1&quot;\n   oDBF &#58;= oODBC&#58;Query&#40; cSQLString &#41;\n   oDBF&#58;Open&#40;&#41;\n   oDBF&#58;Complete&#40;&#41;\n   oDBF&#58;GoTop&#40;&#41;\n   IF oDBF&#58;RecCount&#40;&#41; = 0\n      MsgAlert&#40;&quot;No Data found&quot;&#41;\n   Else\n      FOR _Rec = 1 to oDBF&#58;RecCount&#40;&#41;\n          ? oDBF&#58;FieldGet&#40;1&#41;\n          ? oDBF&#58;FieldGet&#40;2&#41;\n          ? oDBF&#58;FieldGet&#40;3&#41;\n          oDBF&#58;Skip&#40;&#41;\n      Next _Rec\n   Endif\n   oDBF&#58;End&#40;&#41;\n   oODBC&#58;End&#40;&#41;\n\n\n\n***** or an select from 2 or more Database\n\n   IF ! oODBC&#58;lSuccess\n      MsDebug&#40; &quot;Error at &quot; + cDSN + &quot; &quot; + cUSR + &quot; &quot; + cPAS &#41;\n      oODBC&#58;END&#40;&#41;\n      QuitProgram&#40;&#41;\n   ENDIF\n   cSQLString &#58;= &quot;Select Database1&#46;Field1, Database1&#46;Field2, Database2&#46;Field1 from database1, Database2 WHERE Database1&#46;Field1 = Database2&#46;Field1 ORDER BY database1&#46;Field1&quot;\n   oDBF &#58;= oODBC&#58;Query&#40; cSQLString &#41;\n   oDBF&#58;Open&#40;&#41;\n   oDBF&#58;Complete&#40;&#41;\n   oDBF&#58;GoTop&#40;&#41;\n   IF oDBF&#58;RecCount&#40;&#41; = 0\n      MsgAlert&#40;&quot;No Data found&quot;&#41;\n   Else\n      FOR _Rec = 1 to oDBF&#58;RecCount&#40;&#41;\n          ? oDBF&#58;FieldGet&#40;1&#41;				// Database1&#46;Field1\n          ? oDBF&#58;FieldGet&#40;2&#41;				// Database1&#46;Field2\n          ? oDBF&#58;FieldGet&#40;3&#41;				// Database2&#46;Field1\n          oDBF&#58;Skip&#40;&#41;\n      Next _Rec\n   Endif\n   oDBF&#58;End&#40;&#41;\n   oODBC&#58;End&#40;&#41;\n\n[/code:2fahw649]\n\nBest regards, Norbert','',0,'gIA=','2fahw649',1,0,'',308,0,0),(15472,3519,6,362,0,'200.168.52.156',1152533579,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/contadownload.asp?nome=fivehelp.zip&amp;arquivo=89\">http://www.fivewin.com.br/contadownload ... arquivo=89</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=218\">http://www.fivewin.com.br/exibedicas.asp?id=218</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=649\">http://www.fivewin.com.br/exibedicas.asp?id=649</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=281\">http://www.fivewin.com.br/exibedicas.asp?id=281</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=587\">http://www.fivewin.com.br/exibedicas.asp?id=587</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=585\">http://www.fivewin.com.br/exibedicas.asp?id=585</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=459\">http://www.fivewin.com.br/exibedicas.asp?id=459</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=388\">http://www.fivewin.com.br/exibedicas.asp?id=388</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=257\">http://www.fivewin.com.br/exibedicas.asp?id=257</a><!-- m -->','',0,'gIA=','3bh2tn9p',1,0,'',362,0,0),(15473,3387,21,362,0,'200.168.52.156',1152534701,1,0,1,1,1,1,'','Re: Por Vagner','[quote=&quot;Silvio&quot;:2xn0e903]Dear Vagner,\nYOu have promise to me YOu send me your Vpreview but You non have sent it .\n\n\nRegards\nSilvio[/quote:2xn0e903]\n\n<!-- e --><a href=\"mailto:vwirts@ig.com.br\">vwirts@ig.com.br</a><!-- e -->\n\nSaludos.','',0,'gA==','2xn0e903',1,0,'',362,0,0),(15475,735,4,289,0,'82.167.15.97',1152540192,1,0,1,1,1,0,'','i have new xcommand    with command DEFINE WINDOW','Welcome Antonio  \ni have new xcommand\nwith command DEFINE WINDOW \nPlease view  \n*************************************\nview full source\n*******************************************\n  #include \"FWCE.ch\"\n// new \n#xcommand DEFINE WINDOW &lt;oWnd&gt; ;\n             [ TITLE &lt;cTitle&gt; ] ;\n             [ MENU &lt;oMenu&gt; ] ;\n             [ STYLE &lt;nStyle&gt; ] ;\n             [ MULTE &lt;LStop&gt; ];\n       =&gt; ;\n          &lt;oWnd&gt; := ISRUN_OK( [&lt;cTitle&gt;], [&lt;oMenu&gt;], [&lt;nStyle&gt;] ,[&lt;LStop&gt;])\n// *******************************************************\nfunction Main()\n   local oWnd\n DEFINE WINDOW oWnd TITLE \"test is run \" ;\n      MULTE .F. \n// .F. TO RUN ONE COPY FROM PROGRAM UP SYSTEM OR .T. TO RUN ANY copy PROGRAM \nACTIVATE WINDOW oWnd \n return nil\n// ****************************************************\n           FUNC ISRUN_OK(cTitle,oMenu,nStyle,LStop)\n           LOCAL OWND_R\n           if STILLRUN(cTitle)=.t.\n           IF LStop&lt;&gt;NIL\n           IF LStop=.F.\n            QUIT\n           RETURN NIL\n           ENDIF\n           ENDIF\n           ENDIF\n            OWND_R:=TWindow():New(cTitle,oMenu,nStyle)\n           RETURN OWND_R\n\n#pragma BEGINDUMP \n#include &lt;hbapi.h&gt; \n#include &lt;Windows.h&gt;\n#include &lt;mmsystem.h&gt;\n#include &lt;uniqueid.h&gt;\nLPWSTR AnsiToWide( LPSTR ); \n\nHB_FUNC (STILLRUN) \n{ \n   HWND hWnd; \n   BOOL lRet = FALSE; \n      LPWSTR pW = AnsiToWide( hb_parc( 1 ) ); \n   hWnd = FindWindow (  NULL,pW); \n   if (hWnd) \n   { \n   SetForegroundWindow ((HWND) ((ULONG) hWnd |0x01)); \n   lRet = TRUE; \n   }  \n   hb_retl (lRet); \n} \n\n #pragma ENDDUMP \n \n******************************\nPlease put all source  with  fwppc the library.\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \ngood work !\n\nhathal','',0,'','nvdw1dai',1,0,'',289,0,0),(15476,3524,6,138,0,'201.135.166.136',1152540930,1,0,1,1,1,1,'','','prueba haciendeo esto:\n\noBrowse : bLogicLen := {|| aliasdetudbf-&gt;(Ordkeycount())}','',0,'','3j5shxr5',1,0,'',138,0,0),(15479,3533,19,409,0,'201.246.66.149',1152544309,1,0,1,1,1,0,'','SE BUSCA .....','Amigos alguno de ustedes tiene algun corrreo de\nGiancarlo J. Sabattino S.\nSaludos','',0,'','qtpy8n68',1,0,'',409,0,0),(15480,3527,3,620,0,'209.189.229.150',1152545126,1,0,1,1,1,0,'','','Just my 2 cents (don\'t know the Euro conversion sorry) worth....\nIt took me some time to figure out the correct installation setup for the buildH .bat file...and I know DOS.  For those that have no DOS experience, this can be a daunting task.  I found the documentation very vague.  As more and more people get into programming that have no DOS experience, this could be an issue.  I would suggest as part of the installation routine, you might want to create an install program that asks for all the paths and then creates the buildH.bat file from that.  Simpler for the end user to get up and running quickly.  Also should include in the docs that the buildH.bat file needs to be in the directory your program file resides in.  Simple stuff, but not documented very well.','',0,'','jf63ceuh',1,0,'',620,0,0),(15481,3524,6,439,0,'190.0.133.234',1152546619,1,0,1,1,1,1,'','','René,\n\nGracias por tu ayuda y tu amable respuesta, siempre podemos contar contigo.\n\nProbé:\noBrw:bLogicLen := (|| Alias-&gt;( OrdKeyCount() )}\n\nMe funcionó en el sentido que al desplazar la barrita en el scrollbar por ejemplo a la mitad del scrollbar el browse se desplaza al elemento que está en la mitad, pero..... si me desplazo con el mousewheel o con las flechas de teclado en el browse, la scrollbar no se desplaza proporcionalmente.\n\nPor ahora, sigo luchando.\n\nApreciaré cualquier ayuda.','',0,'','3i0867t6',1,0,'',439,0,0),(15483,3534,6,661,0,'201.123.184.44',1152547574,1,0,1,1,1,0,'','Error de apertura en ADS','que tal pues de nuevo solicitando su ayuda, en esta ocasion se trata de un problema con una consulta en SQL a traves de ADO en ADS el problema es que por razones de compatibilidad con otros sistemas que tengo en FW16 fuera de ADS tuve que poner en mi programa que esta bajo xHArbour y ADS la clausula    [b:2veaqv3x]AdsLocking(.f.)[/b:2veaqv3x], con esto ya pude abrir el mismo dbf en mi aplicacion fuera de ADS y con la que trabaja en ADS pero el problema resulto en mis consultas ADO ya que ma indica en erro 7028 Invalid Open Mode y no se como poner mi conexion en mis clausulas ADO, si alguien me pudiera ayudar se los agradeceria enormemente <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nesta es mi cadena de conexion:\n   oConexionAdo:Open(\"Provider=Advantage.OLEDB.1;User ID=xuser;Data Source=\"+xrutab+\"dd.add;Persist Security Info=False;ServerType=\"+xservidor)','',0,'QA==','2veaqv3x',1,0,'',661,0,0),(15484,3525,17,36,0,'200.113.56.235',1152550237,1,0,1,1,1,0,'','','Ahora como puedo hacer si presiona el boton que salga automaticamente el menu igual cuando se presiona la flecha del boton\n\nalgun mensaje...\n\n\nSaludos\nPatricio','',0,'QA==','38izh1z0',1,0,'',36,0,0),(15485,3527,3,2,0,'87.218.146.71',1152551162,1,0,1,1,1,1,'','','Greg,\n\n&gt; Just my 2 cents (don\'t know the Euro conversion sorry) worth.... \n\nWe also have cents <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe are going to review a default setup to see if we can make it more simpler...','',0,'QA==','24z6yvpn',1,0,'',2,0,0),(15486,3531,6,2,0,'87.218.146.71',1152551381,1,0,1,1,1,1,'','','João,\n\nGlobalFree() es una función del API de Windows para liberar un bloque de memoria previamente reservado con GlobalAlloc(). Con Harbour/xHarbour debemos usar hb_xgrab() y hb_xfree() en vez de esas funciones, para que Harbour/xHarbour hagan las comprobaciones internas necesarias.','',0,'QA==','2zx37upj',1,0,'',2,0,0),(15487,3534,6,661,0,'201.123.184.44',1152552584,1,0,1,1,1,0,'','','pues ya lo he solucionado y lo hice agregando lo siguiente a mi cadena de conexion:\n\nLockMode=ADS_COMPATIBLE_LOCKING <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QA==','2jg12b65',1,0,'',661,0,0),(15488,3529,19,26,0,'84.52.130.249',1152554132,1,0,1,1,1,1,'','','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.czeta.it/play.php?idm=3394&amp;canale=13\">http://www.czeta.it/play.php?idm=3394&amp;canale=13</a><!-- m -->\n <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> \n\nCheers, Roman','',0,'QA==','1xr8movc',1,0,'',26,0,0),(15489,3535,2,375,0,'84.122.120.210',1152555758,1,0,1,1,1,1,'','Problemilla con EXCEL','Resulta que tengo una hoja Excell con comodines que sustituyo, con mi aplicación, por los valores de la Base de Datos. Después le presento al usario los resultados (la Hopja Exel) en pantalla para que compruebe que están correctos y para que añada lo que le apetezca. Previamente he guardado la Hoja con un nombre determinado, para que cuando el usuario le de al icono guardar no se cepille la plantilla inicial.\nTengo otra cosa parecida con Word que funciona sin problemas. Todo perfecto salvo en un detalle que no consigo resolver.\nCuando ya existe el fichero Excel previamente guardado, me falla el \"SaveAs\" del Excel. Sin embargo en Word va perfecto. (No me gustaría tener que borrar el fichero anterior a cada vez)\n\n¿Alguna idea?\n\nAhí va parte del código:\n\n      oExcel := TOleAuto():New(\"Excel.Application\")\n      oExcel:WorkBooks:Open(cOrig)\n      oBook := oWord:Get(\"ActiveWorkBook\")\n      oSheet  := oWord:Get(\"ActiveSheet\")\n      oText := oSheet:Range(\"A1:\"+HazLetra(oSheet:UsedRange:Columns:Count())+LLENO(oSheet:UsedRange:Rows:Count()))\n      FOR nCont = 1 TO Len(aDat)\n....\nALGORITMO DE SUSTITUCIOIN\n...\n      NEXT\n      oText:Cells(1,1):Select()\n      oBook:SaveAs(cDoc)  // [u:2tz89vjp][b:2tz89vjp]SI YA EXISTE LA HOJA \"cDoc\", ENTONCES ESTE METODO NO FUNCIONA ¿POR QUE?[/b:2tz89vjp][/u:2tz89vjp]\n      SysRefresh()\n      * // ----------------------------------------------------------------------------------\n      oWord:Visible := .T.\n      oWord:Set(\"WindowState\",3)	// MAXIMIZADO\n\nLógicamente aquí no puedo hacer oWord:End() sinó no se mantiene el EXCEL en pantalla. Lo hago más adelante.','',0,'QQ==','2tz89vjp',1,0,'',375,0,0),(15491,3536,6,300,0,'200.103.111.3',1152559853,1,0,1,1,1,0,'','Twbrowse no me pinta correcto con mediator','si mi tabla tiene 1 solo registro, twbrowse me pinta 2. se tienes más que uno vay mui bien. se borro todos los registros e novamente gravo 1 solo registro me pinta 2. \n\nSalu2','',0,'QQ==','1loz67av',1,0,'',300,0,0),(15492,3537,6,396,0,'201.210.128.54',1152560192,1,0,1,1,1,1,'','MASCARA VALIDANDO VAR NUMERICAS....','Srs. les agradeceria una peq. ayuda, a lo mejor es una tonteria pero no he podido hacerlo, valido mis variables alfanumericas y no tengo problema, pero cuando voy a validar las numericas da error de SUBST, le quite el PICTURE y valida bien, pero como hago para mostrar valor bajo una mascara separando MILES y CENTIMOS? la uso asi....\n\neste es el error:\n   Path and name: C:\\SISINGE\\FARMACIA\\FARMACIA.EXE (32 bits)\n   Size: 1,228,288 bytes\n   Time from start: 0 hours 0 mins 25 secs \n   Error occurred at: 10/07/2006, 00:36:02\n   Error description: Error BASE/1110  Argument error: SUBSTR\n   Args:\n     [   1] = U   \n     [   2] = N   1\n     [   3] = N   1\n\n\ny asi cambie la validacion y no me da el error, falta la mascara: \n\n   REDEFINE GET oGET[22] VAR oDbf:cli_limite ID 146;//PICTURE \"###,###,###.##\";\n            VALID ( menorqcero(oDbf:cli_limite) );\n            WHEN(!EMPTY(oDbf:cli_clacli));\n            OF oDlgFClien UPDATE\n\nprobe lo que Antonio me dijo, pero no supe donde colocarlo y quede igualito...Gracias x ayuda.\n\nDios Bendiga!','',0,'','2npijr5n',1,0,'',396,0,0),(15493,3531,6,362,0,'200.168.52.156',1152564027,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1e5l3vil]João,\n\nGlobalFree() es una función del API de Windows para liberar un bloque de memoria previamente reservado con GlobalAlloc(). Con Harbour/xHarbour debemos usar hb_xgrab() y hb_xfree() en vez de esas funciones, para que Harbour/xHarbour hagan las comprobaciones internas necesarias.[/quote:1e5l3vil]\n\n\nGracias Antonio, Otra Pregunta:\n\nCuando Usar Estas Funciones?','',0,'gA==','1e5l3vil',1,0,'',362,0,0),(15495,3538,6,179,0,'200.24.221.138',1152566666,1,0,1,1,1,1,'','modificar browse en un dialog','Buenas tardes\ntengo un dialog con un get y una twbrowse (desde recursos)\nprimero toma foco el get (desabilitado al inicio el browse), hasta ese momento el browse esta lleno con una tabla temporal que tiene un solo campo, el el valid del get le envio a una funcion que me cambia de tabla el browse con otra de 4 campos, pero no se refresca\n\nlo que tengo en la funcion del valid es\n    Select Camell1  //alias de nueva tabla\n    oBrw:Enable()\n    oBrw:cAlias     := \'Camell1\'\n    oBrw:aColSizes  := {40,100,50,50}\n    oBrw:bLine      := { || _aFields( oBrw ) }\n    oBrw:refresh()\n    oBrw:Gotop()\n\nPero no me refresca, como cambian ustedes de tabla un brosw cuando este tiene otra tabla ??\n\nUse TwBrowse 17 de hernan Fwh 1.7 Mayo Build Bcc551 y xHarbour\n\nSaludos y gracias\n\nNota esto si funciona en Fwppc','',0,'gA==','8cavkg1m',1,0,'',179,0,0),(15496,3538,6,45,0,'201.253.13.103',1152567960,1,0,1,1,1,0,'','Re: modificar browse en un dialog','Wilson\n   Arma un ejemplo ZIPeado compilable para comprobarlo.\n\nSalu2\nHernan','',0,'gA==','p1qgakuo',1,0,'',45,0,0),(15497,3523,6,45,0,'201.253.13.103',1152568152,1,0,1,1,1,0,'','Re: Twbrowse de Hernan','[quote=&quot;El Loco&quot;:3fd6cxu9][quote=&quot;Frafive&quot;:3fd6cxu9]Hola amigos\n\n  Como puedo capturar  el dobleclick al pulsar sobre los header de cualquier columna  ?\n\n   Un saludo y gracias desde ya[/quote:3fd6cxu9]\n\nFra\nTenes que definir dentro del array aActions un codoblock por cada header del browse.\nEj.:\n\noBrw:aActions:= { {||Func1()},{||Func2()},etc}\n\nUn abrazo. El Loco =&gt;))[/quote:3fd6cxu9]\n\nQue clara la tenes Loco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3fd6cxu9',1,0,'',45,0,0),(15498,3516,6,45,0,'201.253.13.103',1152568240,1,0,1,1,1,0,'','Re: Soporte de menus dropdown en ToolBars','[quote=&quot;Antonio Linares&quot;:1xskaq2b]Se publicará en el build de Julio 2006 de FWH:\n[url=http&#58;//imageshack&#46;us:1xskaq2b][img:1xskaq2b]http&#58;//img153&#46;imageshack&#46;us/img153/8140/imagen3mi&#46;png[/img:1xskaq2b][/url:1xskaq2b][/quote:1xskaq2b]\n\nHa quedado de maravilla, ahora por que tiene esos colores en los menus  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> ?? Estas usando Aero de Vista o un Skin sobre XP ??\n\nHernan','',0,'mA==','1xskaq2b',1,0,'',45,0,0),(15500,3538,6,179,0,'200.24.221.138',1152570224,1,0,1,1,1,1,'','','gracias maestro aca esta\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028b50f867/pruebabr.zip.html\">http://hyperupload.com/download/028b50f ... r.zip.html</a><!-- m -->\n\nGracias x Todo','',0,'mA==','2w9idv72',1,0,'',179,0,0),(15501,3516,6,2,0,'87.218.146.71',1152571471,1,0,1,1,1,1,'','','Hernán,\n\nSi, usamos un tema modificado de XP que imita al del Vista <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'mA==','33baa8n9',1,0,'',2,0,0),(15502,3531,6,2,0,'87.218.146.71',1152571567,1,0,1,1,1,1,'','','João,\n\nNo es preciso usarlas para nada, salvo que sepas exactamente lo que haces y para qué las quieres.','',0,'mA==','28drwd24',1,0,'',2,0,0),(15503,3539,3,455,0,'195.97.105.161',1152573686,1,0,1,1,1,0,'','Function FILE(...)','Hi all,\nCan someone verify if this is correct ???\n\n[code:2wkziu2g]\n   if file&#40;&quot;CON&#46;BMP&quot;&#41;\n      ? \'File exists\'\n   else\n      ? \'File does not exist\'\n   endif\n[/code:2wkziu2g]\nWhy do I write this... because it returns .T. without \nthe file \"CON.BMP\" to exist !!!\n\nFSize(\"CON.BMP\"), returns zero (0) thank God !\n\nI would like to know if anyone can confirm the problem (bug?)\n\nRegards to all\nEvans','',0,'AIA=','2wkziu2g',1,0,'',455,0,0),(15504,3533,19,78,0,'200.121.136.128',1152574565,1,0,1,1,1,0,'','','<!-- e --><a href=\"mailto:gsabattino@hotmail.com\">gsabattino@hotmail.com</a><!-- e -->\n\nSalu2\nWilli','',0,'AIA=','1qifvcbg',1,0,'',78,0,0),(15505,3540,3,267,0,'201.9.181.23',1152583158,1,0,1,1,1,1,'','Colors in menus','Hi,\n\nHow to place a blue bar in the left side of the menus? \n\nThanks,','',0,'AIA=','3qed9393',1,0,'',267,0,0),(15507,3523,6,582,0,'200.117.183.242',1152590835,1,0,1,1,1,0,'','Re: Twbrowse de Hernan','[quote=&quot;Hernan Diego Ceccarelli&quot;:yk2l3pg1][quote=&quot;El Loco&quot;:yk2l3pg1][quote=&quot;Frafive&quot;:yk2l3pg1]Hola amigos\n\n  Como puedo capturar  el dobleclick al pulsar sobre los header de cualquier columna  ?\n\n   Un saludo y gracias desde ya[/quote:yk2l3pg1]\n\nFra\nTenes que definir dentro del array aActions un codoblock por cada header del browse.\nEj.:\n\noBrw:aActions:= { {||Func1()},{||Func2()},etc}\n\nGran Sensei, vos sabes que es mi preferido.............\nAhora ya que estamos............... para cuando la nueva version ???\n\n\nUn gran abrazo. El Loco (Saltamontes) =&gt;))\n\nUn abrazo. El Loco =&gt;))[/quote:yk2l3pg1]\n\nQue clara la tenes Loco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:yk2l3pg1]','',0,'gA==','yk2l3pg1',1,0,'',582,0,0),(15508,3523,6,582,0,'200.117.183.242',1152590953,1,0,1,1,1,0,'','Re: Twbrowse de Hernan','[quote=&quot;Hernan Diego Ceccarelli&quot;:337sf7ah][quote=&quot;El Loco&quot;:337sf7ah][quote=&quot;Frafive&quot;:337sf7ah]Hola amigos\n\n  Como puedo capturar  el dobleclick al pulsar sobre los header de cualquier columna  ?\n\n   Un saludo y gracias desde ya[/quote:337sf7ah]\n\nFra\nTenes que definir dentro del array aActions un codoblock por cada header del browse.\nEj.:\n\noBrw:aActions:= { {||Func1()},{||Func2()},etc}\n\nUn abrazo. El Loco =&gt;))[/quote:337sf7ah]\n\nQue clara la tenes Loco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:337sf7ah]\n\nGran Sensei, vos sabes que es mi preferido.................. =&gt;))\n\nAhora ya que estamos................. para cuando la nueva version????\n\nUn gran abrazo. El Loco (Saltamontes) =&gt;))','',0,'gA==','337sf7ah',1,0,'',582,0,0),(15509,3542,3,190,0,'202.65.134.27',1152591478,1,0,1,1,1,0,'','Can we have Menus in ReBar like Ms-Word Menus','Hi \n\nCould anybody try to place menus on ReBar ?\n\n\n- Ramesh Babu P','',0,'gA==','3886afrn',1,0,'',190,0,0),(15510,3536,6,582,0,'200.117.183.242',1152591481,1,0,1,1,1,0,'','Re: Twbrowse no me pinta correcto con mediator','[quote=&quot;Wanderson&quot;:1gh8wtl3]si mi tabla tiene 1 solo registro, twbrowse me pinta 2. se tienes más que uno vay mui bien. se borro todos los registros e novamente gravo 1 solo registro me pinta 2. \n\nSalu2[/quote:1gh8wtl3]\n\nWanderson, algunas ideas.........\n 1 - Fijate los indices. Puede que tengas que indexar\n 2 - Fijate tambien si estan llamando al Order correcto.\n 3 - Si la tabla tiene un solo registro, el segundo que te muestra es identico al primero ???\n 4 - Fijate tambien si es que lo tenes defino dentro de recursos este  definido como TWBrose y no como otro recurso (ej. ListBox).\n 5 - Si no es ninguna de las anteriores, envia un ej. para poder ver mas en detalle.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','1gh8wtl3',1,0,'',582,0,0),(15511,3539,3,9,0,'85.60.55.79',1152594861,1,0,1,1,1,1,'','','From xHarbour Help:\n\n\"This function return a logical true (.T.) if the given filename &lt;cFileSpec&gt; exist. \n\nDos skeletons symbols may be used in the filename in &lt;cFileSpec&gt;, as may the drive and/or path name. If a path is not explicity specified, FILE() will look for the file in the SET DEFAULT path, then in each SET PATH path, until the file is found or there are no more paths to search. The DOS PATH is never searched and the current drive/directory is only searched if SET DEFAULT is blank. \"\n\nTry with full path:  IF FILE (\"C:\\FIVEWIN\\CON.BMP\") ...','',0,'gA==','2igzbczo',1,0,'',9,0,0),(15512,3542,3,2,0,'87.218.146.34',1152600110,1,0,1,1,1,1,'','','Ramesh,\n\nNo, not yet. They are not directly supported by the Windows API, though we believe we will be able to implement them.','',0,'gA==','22pkpvru',1,0,'',2,0,0),(15513,3540,3,2,0,'87.218.146.34',1152600207,1,0,1,1,1,1,'','','Vilian,\n\nYou need to modify MENUDRAWITEM() in source\\winapi\\menus.c','',0,'gA==','vruj59g2',1,0,'',2,0,0),(15514,3543,6,52,0,'200.127.195.89',1152620352,1,0,1,1,1,1,'','DLL32 FUNCTION ReadFile;','Amigos,\n\nAlguien tiene un ejemplo de como utilizar desde FWH la funcion:\n\nDLL32 FUNCTION ReadFile;\n      ( hFile AS LONG, ;\n        @lpBuffer AS LPSTR, ;\n        nNumberOfBytesToRead AS LONG, ;\n        @lpNumberOfBytesRead AS LONG, ;\n        @lpOverlapped AS LPSTR ) ;           // OVERLAPPED\n   AS LONG PASCAL; \n   LIB \"KERNEL32\"\n\nGracias.\n\nEspecificamente necesito enviar una cadena por un handle.','',0,'gA==','1c5cn4wc',1,0,'',52,0,0),(15515,3540,3,267,0,'200.208.238.2',1152625391,1,0,1,1,1,1,'','','Hi Antonio,\n\nThanks.','',0,'gA==','3g6twcv9',1,0,'',267,0,0),(15516,3539,3,343,0,'204.57.111.194',1152626147,1,0,1,1,1,0,'','','This seems to be a xHarbour bug. I am guessing that it considers \"CON\" the console like other devices. For example lpt1, lpt2, con. \n\nI don\'t know if Harbour does the same thing.','',0,'gA==','2fhf8796',1,0,'',343,0,0),(15519,3537,6,138,0,'201.154.236.107',1152631889,1,0,1,1,1,1,'','','PICTURE \"999,999,999.99\"','',0,'gA==','1ujdfchu',1,0,'',138,0,0),(15520,3539,3,61,0,'201.217.175.139',1152632460,1,0,1,1,1,0,'','','Evans:\n\nI tried with other apps, like x32 (something like xTree) to rename \na x.bmp to \"con.bmp\" but seems that \"con\" is a reserved word.\nWith other app like IconWorkshop \"save as..\" -&gt; \"Con.bmp\" \ndid not work because it said that it´s a reserverd word too.\n\nTry with other name, here work fine with other name.\n\nSorry for my English  \n\nRegards\n\nRuben Fernandez','',0,'gA==','2s77hih9',1,0,'',61,0,0),(15521,3536,6,228,0,'201.245.222.85',1152633221,1,0,1,1,1,1,'','Hazlo asi.','prueba lo siguiente, para solucionar lo del doble registro, a mi me funciona perfecto.\n\n[code:169rj4w8]\nSELE MyBase\nDBGOTOP&#40;&#41;\noBrow&#58;gotop&#40;&#41;\noBrow&#58;Refresh&#40;&#41;\n\n[/code:169rj4w8]','',0,'AIA=','169rj4w8',1,0,'',228,0,0),(15522,3529,19,49,0,'62.13.172.78',1152633407,1,0,1,1,1,1,'','','Dear Modicr,\nThanks ...the game is too good as.... Karate Kid!!!','',0,'AIA=','2svek270',1,0,'',49,0,0),(15523,3507,3,217,0,'200.159.120.34',1152634293,1,0,1,1,1,0,'','Re: Antonio: how about button [?] in NoModal dialogs?','Any news?','',0,'AIA=','37et9vwy',1,0,'',217,0,0),(15524,3417,3,49,0,'62.13.172.78',1152634324,1,0,1,1,1,1,'','','ok but on testbtn.exe \nthere is a sample of Reservation bus \nI explain YOU\n\n\n\n[url=http&#58;//img401&#46;imageshack&#46;us/my&#46;php?image=reservation6dq&#46;jpg:2b82wgn4][img:2b82wgn4]http&#58;//img401&#46;imageshack&#46;us/img401/4255/reservation6dq&#46;th&#46;jpg[/img:2b82wgn4][/url:2b82wgn4]\n\nYou can click on one button( seat)\nthe button must change button with another button (seat ) but on xharbour  &amp;fw ( xharbour 0.99.61 &amp; fw 2.7 ) not run ok \n\nthis program run ok on clipper 16 bit  but not on 32 bit \n\nU have Understand NOW ???????','',0,'GA==','2b82wgn4',1,0,'',49,0,0),(15525,3536,6,300,0,'200.140.59.80',1152634854,1,0,1,1,1,0,'','Re: Twbrowse no me pinta correcto con mediator','[quote=&quot;El Loco&quot;:38alzbax][quote=&quot;Wanderson&quot;:38alzbax]si mi tabla tiene 1 solo registro, twbrowse me pinta 2. se tienes más que uno vay mui bien. se borro todos los registros e novamente gravo 1 solo registro me pinta 2. \n\nSalu2[/quote:38alzbax]\n\nWanderson, algunas ideas.........\n 1 - Fijate los indices. Puede que tengas que indexar\n 2 - Fijate tambien si estan llamando al Order correcto.\n 3 - Si la tabla tiene un solo registro, el segundo que te muestra es identico al primero ???\n 4 - Fijate tambien si es que lo tenes defino dentro de recursos este  definido como TWBrose y no como otro recurso (ej. ListBox).\n 5 - Si no es ninguna de las anteriores, envia un ej. para poder ver mas en detalle.\n\nUn abrazo. El Loco =&gt;))[/quote:38alzbax]\n\nEl Loco,\n\n1 - lo indexei estoy usando mediador con tablas sql\n2 - la Order estas ok\n3 - El segundo registro me muestra identico al primeiro, solo se la tabla tiene uno registro pero no tengo acesso a ele en lo browse. \n4 - lo recurso esta definido como TWbrowse\n5 - Com dbf e cdx el browse pinta bien apos obrw:Upstable() e obrw:Refresh() el problema es com mediator e mysql.\n6 - Se la tabla tiene mas de uno registro vay mui bien, se tiene 2 e borro uno me vien el problema.\n\nGracias','',0,'gA==','38alzbax',1,0,'',300,0,0),(15526,3544,3,52,0,'200.127.195.89',1152634961,1,0,1,1,1,1,'','Send string across pipes','Hi friend,\n\ni have this code:\n\n[code:3r8n8kn3]FUNCTION main&#40;&#41;\n   LOCAL oDlg\n   LOCAL oIcono\n   LOCAL hPipe\n\n   LOCAL xDatoLeido\n\n   LOCAL oBtns      &#58;= Array&#40; 01 &#41;\n   LOCAL oDatos     &#58;= Array&#40; 01 &#41;\n   LOCAL vDatos     &#58;= Array&#40; 01 &#41;\n   LOCAL NombrePipe &#58;= &quot;\\\\\\\\&#46;\\\\pipe\\\\gustavo&quot;\n\n   vDatos&#91; 01 &#93;&#58;= Space&#40; 45 &#41;\n\n   SET&#40; _SET_INSERT, ! Set&#40; _SET_INSERT &#41; &#41;\n\n   DEFINE icon oIcono resource &quot;ico_copa&quot;\n\n   DEFINE DIALOG oDlg resource &quot;DLG_PIPE&quot; icon oIcono\n\n      REDEFINE GET oDatos&#91; 01 &#93; VAR vDatos&#91; 01 &#93; ID 100 OF oDlg\n\n      REDEFINE BUTTON oBtns&#91; 01 &#93; ID 200 OF oDlg\n\n      //----------&#40; Controlo los botones &#41;----------\n\n      oBtns&#91; 01 &#93;&#58; bAction&#58;= &#123; || EnviarComando&#40; NombrePipe,;\n                                                 &quot;hola&quot;,;\n                                                 len&#40; &quot;hola&quot; &#41;,;\n                                                 xDatoLeido,;\n                                                 len&#40; xDatoLeido &#41;,;\n                                                 20000,;\n                                                &#41;&#125;\n\n   ACTIVATE DIALOG oDlg\n\nRETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\nDLL32 FUNCTION EnviarComando;\n      &#40; lpNamedPipeName AS STRING, ;\n        @lpInBuffer AS LPSTR, ;\n        nInBufferSize AS LONG, ;\n        @lpOutBuffer AS LPSTR, ;\n        nOutBufferSize AS LONG, ;\n        @lpBytesRead AS LONG, ;\n        nTimeOut AS LONG &#41; ;\n   AS LONG PASCAL;\n   FROM &quot;CallNamedPipeA&quot; LIB &quot;KERNEL32&quot;\n\n//------------------------------------------------------------------------------[/code:3r8n8kn3]\n\nWhy don´t send string HOLA?, the pipe: \"\\\\\\\\.\\\\pipe\\\\gustavo\" exist.\n\nTank.-','',0,'AIA=','3r8n8kn3',1,0,'',52,0,0),(15527,3539,3,6,0,'82.61.68.75',1152636635,1,0,1,1,1,1,'','Re: Function FILE(...)','[quote=&quot;E. Bartzokas&quot;:3vcmvee0]Hi all,\nCan someone verify if this is correct ???\n\n[code:3vcmvee0]\n   if file&#40;&quot;CON&#46;BMP&quot;&#41;\n      ? \'File exists\'\n   else\n      ? \'File does not exist\'\n   endif\n[/code:3vcmvee0]\nWhy do I write this... because it returns .T. without \nthe file \"CON.BMP\" to exist !!!\n\nFSize(\"CON.BMP\"), returns zero (0) thank God !\n\nI would like to know if anyone can confirm the problem (bug?)\n\nRegards to all\nEvans[/quote:3vcmvee0]\n\nIt is not a bug. Try\n\n[code:3vcmvee0]notepad con&#46;bmp[/code:3vcmvee0]\n\nEMG','',0,'gIA=','3vcmvee0',1,0,'',6,0,0),(15528,3509,6,152,0,'200.113.119.176',1152637838,1,0,1,1,1,0,'','','Gracias Alfredo\n\nSaludos\n\nGonzalo','',0,'gIA=','2xg6waft',1,0,'',152,0,0),(15529,2566,17,2,0,'87.218.146.241',1152637856,1,0,1,1,1,1,'','Class TSystemInfo','TSystemInfo is a class that gives you lots of info about the computer where your application is run on. See the Sample info.txt that has been generated by TSystemInfo. The ZIP file contains a sample application compiled with xHarbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02a849cb36/TSystemInfo1061.zip.html\">http://hyperupload.com/download/02a849c ... 1.zip.html</a><!-- m -->','',0,'gIA=','39bgzjpl',1,0,'',2,0,0),(15530,3539,3,455,0,'195.97.105.161',1152638478,1,0,1,1,1,0,'','Re: Function FILE(...)','Thank You All !\n\nIn the 16 bit environment, this function worked just fine.\nIt seems that one way or another it does not work now,\nat least in the 32-bit environment, but luckily enough we\nmanaged to spot this error (very hard to find though),\nand had added .AND. FSIZE(\"CON.BMP\") # 0.\n\nThis works for now, at least to the point where we want\nit to work, but it ain\'t correct.\n\nI\'m strugling today, to make FT_PROPER() to work, by\nadding NANFOR.LIB in my .XBP file, but I get an error\n(GPF) and program crashes.\nAnyone has any idea?\nUsing XHB (xBuild Wizard Version 4.01 Jan 24 2006\nand FWH Feb 2006 relase.\n\nThanks for any help ... (need to convert string to\nproper case eg. \"evans\" to \"Evans\")','',0,'gIA=','3cy73oda',1,0,'',455,0,0),(15531,3507,3,2,0,'87.218.146.241',1152638793,1,0,1,1,1,1,'','','Maurilio,\n\nWe are going to review it asap. Thanks,','',0,'gIA=','1tnaykw5',1,0,'',2,0,0),(15532,3507,3,2,0,'87.218.146.241',1152639033,1,0,1,1,1,1,'','','Maurilio,\n\nThis sample is working fine, though on the nonmodal dialog the help-arrow cursor is not shown, but it properly fires the request for Help event:\n[code:3p7e4c23]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg1, oDlg2\n   \n   DEFINE DIALOG oDlg1 TITLE &quot;NON MODAL&quot;\n   \n   ACTIVATE DIALOG oDlg1 NOWAIT\n   \n   DEFINE DIALOG oDlg2 TITLE &quot;MODAL&quot;\n   \n   ACTIVATE DIALOG oDlg2 CENTERED\n   \nreturn nil   \n[/code:3p7e4c23]','',0,'AIA=','3p7e4c23',1,0,'',2,0,0),(15533,3545,7,490,0,'88.11.33.178',1152639837,1,0,1,1,1,0,'','Bitmaps transparentes','Hola,\n\nHe intentado mostrar un bitmap transparente y da error en el método paint.\n\n  oBitmap:lTransparent := .T. después de definirlo\n\n\n¿ No se puede poner transparente en una pocket ?\n\nUn Saludo,\nJoaquín','',0,'AIA=','39rcx847',1,0,'',490,0,0),(15534,3526,3,2,0,'87.218.146.241',1152639961,1,0,1,1,1,1,'','','Ramesh,\n\nWe are going to adapt it asap.','',0,'AIA=','mhl0ja7g',1,0,'',2,0,0),(15535,3546,7,490,0,'88.11.33.178',1152640003,1,0,1,1,1,0,'','Lanzar una aplicación desde la mía','Hola,\n\n¿ Alguien me podría decir si esto se puede hacer o forma de intentarlo ?\n\nNecesito desde \"miaplic.exe\" en ejecución sustituirla por otra \"miaplic.exe\" más actualizada y ejecutarla, o incluso no ejecutarla.\n\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','28cdivrw',1,0,'',490,0,0),(15536,735,4,2,0,'87.218.146.241',1152640027,1,0,1,1,1,1,'','','Hathal,\n\nWe do appreciate your contribution, but in order to keep FiveWin PC compatibility we should use a SET MULTIPLE ON|OFF xbase command.','',0,'AIA=','283676u8',1,0,'',2,0,0),(15537,3545,7,2,0,'87.218.146.241',1152640139,1,0,1,1,1,1,'','','Joaquín,\n\nPuedes publicar un pequeño ejemplo autocontenido de cómo lo has probado ? gracias','',0,'AIA=','cj92ug5n',1,0,'',2,0,0),(15538,3543,6,490,0,'88.11.33.178',1152640201,1,0,1,1,1,0,'','','Hola,\n\nNo te entiendo muy bien, pero si quieres leer o escribir desde / a un fichero, existen las funciones de bajo nivel, fopen(), fread(), fread(), fclose(), etc. Y todas usan un handle devuelto por fopen() o fcreate()\n\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','1e1jozoz',1,0,'',490,0,0),(15539,3545,7,490,0,'88.11.33.178',1152640424,1,0,1,1,1,0,'','','Antonio,\n\nREDEFINE BITMAP ::oBitmap ID 200;\n                 OF ::oDlg;\n           RESOURCE \"MIBITMAP\"\n\n::oBitmap:lTransparent := .T.\n\nEsto sí me funciona en FWH.\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','1rk5azya',1,0,'',490,0,0),(15540,3543,6,52,0,'200.127.195.89',1152641137,1,0,1,1,1,1,'','','hola,\n\nEstoy tratando de enviar cadenas a traves de tuberias ( pipes ) con el comando CallNamedPipe, y una vez que se establece la comunicacion hay que utilizar \n\n[quote:xaquht3z]DLL32 FUNCTION ReadFile; \n( hFile AS LONG, ; \n@lpBuffer AS LPSTR, ; \nnNumberOfBytesToRead AS LONG, ; \n@lpNumberOfBytesRead AS LONG, ; \n@lpOverlapped AS LPSTR ) ; // OVERLAPPED \nAS LONG PASCAL; \nLIB \"KERNEL32\" [/quote:xaquht3z]\n\nPero aparecen datos como: LPSTR, LONG y no se como traducirlos a FWH.','',0,'gA==','xaquht3z',1,0,'',52,0,0),(15541,3543,6,490,0,'88.11.33.178',1152642716,1,0,1,1,1,0,'','','Sería algo como,\n\n   hFile := fOpen() ó fCreate()\n  lpBuffer:= Space(255)\n  nNumberOfBytesToRead := 254\n  lpNumberOfBytesRead := 0\n  lpOverlapped := Space(255)\n\n\n   ReadFile( hFile , @lpBuffer,  nNumberOfBytesToRead,   @lpNumberOfBytesRead, @lpOverlapped )\n\n\n  lpNumberOfBytesRead -&gt; Nº de Bytes que ha leído si &lt;&gt; de nNumberOfBytesToRead fin del fichero a leer\n\n\nUn Saludo,\nJoaquín','',0,'gA==','1nynuxqo',1,0,'',490,0,0),(15542,3547,6,649,0,'201.3.223.235',1152643955,1,0,1,1,1,1,'','Imagens e Headers com Crystal Reports','Ola Amigos,\ncomo hago para modificar los headers y una imagen en lo\nCrystal Reports. Pero esto que deseo hacer de modo que cada\ncliente pueda tener una foto en todo el rpt no necesitara así crear\nun rpt para cada cliente. E en el caso del headers gostaria de crear un Rpt estándar y lazos él al temporatio uno él dbf y así a\npoder cambiar Headers a cada relatorio nuevo.\n\n[i:2h7hkcnt]\nOla Amigos , como eu faço para modificar os headers e uma\nimagem nos relatórios com Crystal. Mas isto que eu quero fazer de modo\nque cada cliente possa ter uma foto em todos o RPTs assim não necessite\ncriar um rpt para cada cliente. E no Headres gostaria de criar um Rpt padrão e liga-lo a um dbf temporario e assim a poder  mudar headers a cada relatorio novo[/i:2h7hkcnt]','',0,'IA==','2h7hkcnt',1,0,'',649,0,0),(15543,3523,6,519,0,'81.38.52.62',1152644568,1,0,1,1,1,0,'','','Hola \n\n  No me funciona solo puedo capturar el clik del raton, pero no al dobleclic , alguna idea  ?\n\n\n   un saludo','',0,'IA==','3k6ipjj5',1,0,'',519,0,0),(15544,3548,6,579,0,'148.223.141.242',1152644686,1,0,1,1,1,1,'','Abandonar la aplicacion y correr otra','Hola amigos,\n\nIntento que de manera automatica se sustituya el EXE que estoy corriendo por uno mas reciente asi que el proceso debe hacer lo siguiente:\n\nAbandonar la presente aplicacion y encadenarse a otra que descomprime un ZIP y que copia el EXE para que sustituya al que originalmente estaba corriendo.\n\nAl momento, en la aplicacion original (Origen.EXE por ejemplo) pongo las siguientes instrucciones:\n\nWINEXEC(\"Copiar.EXE\")\nQUIT\nM-&gt;oWndPrin:End()\n\ndonde \"Copiar.EXE\" se encarga de descomprimir el zip, copiar la nueva version de \"Origen.EXE\" para que sustituya el \"Origen.EXE\" viejo y despues abandone \"Copiar.EXE\" y corra el nuevo \"Origen.EXE\".\n\nEl problema con esas instrucciones es que en efecto se encadena a \"Copiar.EXE\" pero no siempre abandona \"Origen.EXE\" y al estar activo no permite sustituirlo por el nuevo.\n\nAlguna idea?\n\n\'chas gracias de antemano','',0,'IA==','22x5vcwa',1,0,'',579,0,0),(15545,3539,3,343,0,'204.57.111.194',1152648067,1,0,1,1,1,0,'','','I use the latest xHarbour Builder and nanfor. Ft_proper() does not GPF for me.\n\nDoes the directory() function find \'con.bmp\' ?','',0,'IA==','2e76hnyy',1,0,'',343,0,0),(15546,3549,6,196,0,'190.48.197.1',1152649167,1,0,1,1,1,0,'','Maldito GPF','Hola a todos.\n\nAlguien sabe a ciencia cierta lo que es un GPF?\nPorque un mismo proceso da un GPF en una PC y en otra no?\nHay alguna bibliografia que ayude en esto?\n\nMuchas gracias a todos\nJorge Jaurena','',0,'IA==','3dakwoq9',1,0,'',196,0,0),(15547,3539,3,455,0,'195.97.105.161',1152649298,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:2pphakw4]I use the latest xHarbour Builder and nanfor. Ft_proper() does not GPF for me.\n\nDoes the directory() function find \'con.bmp\' ?[/quote:2pphakw4]\n\nThanks for the reply. My FT_PROPER() does not work, but have invented a work-around in pure clipper (slower but reliable).\n\nDirectory(\"con.bmp\") returns:\n\nLength: 1\nName: \"con\"\nSize: \"0\"\nDate: \"01/01/01\"\nTime: \"03:00:00\"  // !!!!!!!\nAttributes: \"A\"\n\nFile(\"con.bmp\") returns .T. (still)\n\nFSize(\"con.bmp\") returns Zero\n\nNow go figure all this... and imagine that we didn\'t have this\nerror in the 16-bit, otherwise, some of our clients would \nhave started screaming.  At least three of our clients had\nthis problem recently (with con.bmp in 32-bit)\n\nI live on a small mountain, 8 km away from civilization...\nI think I\'m going to start feeding seep and goats and\nget the heck out of programming... it\'s so frustrating\nto have functions working fine in 16-bit and now we\nhave to re-discover the wheel and evertyhing inside it...\none piece at a time, and full of surprises!\n\nThanks again...','',0,'gA==','2pphakw4',1,0,'',455,0,0),(15548,3549,6,2,0,'87.218.146.241',1152650873,1,0,1,1,1,1,'','','Jorge,\n\nUn GPF (\"General protection fault\") es un \"error de protección general\". Se produce cuando la aplicación invade una zona de memoria en la que no tiene autorización para entrar. Es una tecnología implementada a nivel de microprocesador para asegurar la robustez del sistema operativo y evitar la corrupción de la memoria.\n\nEn tu caso particular para saber por que te aparece hay que saber:\n\n1. Que version/build de Harbour ó xHarbour estás usando ? Igual para FWH.\n\n2. Puedes reproducir el GPF con un ejemplo ? \n\n3. Te aparece un error en pantalla con una lista de las funciones llamadas ?\n\n4. La primera posible solución es ir acotando zonas dentro del programa (usando diversos MsgInfo() por ejemplo) hasta localizar cual es la que genera el GPF.\n\n5. Por último, se genera un fichero MAP con una opción del enlazador y se busca la dirección del GPF dentro de dicho fichero. Esa dirección indica la función que genera el GPF.','',0,'gA==','171qtbv7',1,0,'',2,0,0),(15549,3543,6,2,0,'87.218.146.241',1152651211,1,0,1,1,1,1,'','','Gustavo,\n\nLos parámetros LPSTR no hay que pasarlos, ni declararlos, por referencia. Ya que un LPSTR por definición es un puntero (la dirección) a una cadena.','',0,'gA==','ik1px0cv',1,0,'',2,0,0),(15550,3548,6,2,0,'87.218.146.241',1152651308,1,0,1,1,1,1,'','','Rodolfo,\n\nLo más sencillo es usar un fichero BAT que es el que llama a los ejecutables.','',0,'gA==','12kqm6p1',1,0,'',2,0,0),(15551,3548,6,362,0,'200.168.52.156',1152651497,1,0,1,1,1,1,'','','USE UN ARCHIVO.BAT TIPO:\n\nSTATIC lDesligaProg := .F.\n\n    LOCAL NOME_ARQ, NREGISTRO\n\n    IF lDesligaProg //-&gt; SE .T.\n\n        MsgStop( OemToAnsi( \"Prezado Usuário:                        \" ) + CRLF + ;\n                 OemToAnsi( \"Devido ao Enorme CONSUMO DE RECURSOS do \" ) + CRLF + ;\n                 OemToAnsi( \"WINDOWS, Necessito Reiniciar o Programa,\" ) + CRLF + ;\n                 OemToAnsi( \"Para Liberação de Memória e Recursos.   \" ) + CRLF + ;\n                 OemToAnsi( \"Desculpe Pelo Transtorno!      É Rápido.\" ) + CRLF + ;\n                 OemToAnsi( \"&lt;Click&gt; no Botão &lt;OK&gt; Por Favor...      \" ),         ;\n                 OemToAnsi( \"Aviso de Perda de Recursos do Windows.  \" ) )\n\n        oDbfPedf:Close()\n\n        // Cria o Arquivo de Lote Balcao.Bat no Diretório, Com as Diretrizes.\n        IF !FILE( \"BALCAO.BAT\" )\n\n            NOME_ARQ := FCREATE(\"BALCAO.BAT\")\n\n            NREGISTRO := \"@ECHO OFF\"                                              ;\n                         + CRLF        +                                          ;\n                         \"CLS\"         +                                          ;\n                         + CRLF + CRLF +                                          ;\n                         \"BALCAOW.EXE\" +                                          ;\n                         + CRLF + CRLF +                                          ;\n                         \"CLS\"         +                                          ;\n                         + CRLF        +                                          ;\n                         \"EXIT\"\n\n            FWRITE( NOME_ARQ, NREGISTRO )\n            FCLOSE( NOME_ARQ )\n\n        ENDIF\n\n        oFont1:End()\n\n        lDesligaProg := .F.\n\n        EndDialog()\n        Release All\n\n        WinExec( \"BALCAO.BAT\", 0 )\n\n        __QUIT()\n\n     ELSE\n\n        oDbfPedf:Close()\n\n        oFont1:End()\n\n        lDesligaProg := .F.\n\n        Release All\n\n    ENDIF','',0,'gA==','14xvxvrb',1,0,'',362,0,0),(15552,3543,6,52,0,'200.127.195.89',1152651505,1,0,1,1,1,1,'','','Antonio, \n\nEntonces tomando el ejmplo del amigo quedaría asi?:\n\n[code:3vi4xor4]hFile &#58;= // Acá crearia un handle, que en mi caso es create&#46;&#46;&#46;\n\nlpBuffer&#58;= Space&#40;255&#41; \nnNumberOfBytesToRead &#58;= 254 \nlpNumberOfBytesRead &#58;= 0 \nlpOverlapped &#58;= Space&#40;255&#41; \n\n\nReadFile&#40; hFile ,\n              lpBuffer, ;\n              nNumberOfBytesToRead, ;\n              lpNumberOfBytesRead, ;\n              lpOverlapped &#41;[/code:3vi4xor4]\nEs correcto?','',0,'AIA=','3vi4xor4',1,0,'',52,0,0),(15553,3521,3,205,0,'81.205.236.20',1152652969,1,0,1,1,1,0,'','','Thanks, works very well !\n\nBest regards,\nKlaas','',0,'AIA=','18jzpmt4',1,0,'',205,0,0),(15554,3547,6,138,0,'201.154.236.107',1152655889,1,0,1,1,1,1,'','','Tendrias que definir la imagen como una funcion o una formula y pasar un parametro al momento de llamar a la creación del reporte.','',0,'AIA=','3ip7vj41',1,0,'',138,0,0),(15555,3543,6,2,0,'87.218.146.241',1152656783,1,0,1,1,1,1,'','','Gustavo,\n\nlpNumberOfBytesRead tienes que definirlo y pasarlo por referencia porque es un puntero a un long (la dirección en donde está un número long). Lo demás parece estar bien.','',0,'AIA=','2ztw61yl',1,0,'',2,0,0),(15556,3550,6,396,0,'201.248.97.238',1152657387,1,0,1,1,1,0,'','Descargar desde hyperupload.com','Hola, he tratado algunas veces de bajar los archivos link en hyperuload, pero nunca he podido, que debo hacer o que hago mal?, estoy logoueado y nada,...','',0,'AIA=','2qy59h6j',1,0,'',396,0,0),(15558,2850,3,2,0,'87.218.146.241',1152658794,1,0,1,1,1,1,'','','Fco,\n\nWe simply missed your msg. FWH ActiveX support is robust and works fine.\n\nBut we are not going to study and implement different ActiveX for our users. We hope that you understand that it is an issue out of the scope of our tech support service.\n\nBased on our provided samples, is FWH users responsability to study the ActiveX docs/samples they want to use and learn how to manage them.\n\nRegarding the use of reference parameters, we are going to develop a sample to show how to use them.','',0,'AIA=','3uvprso6',1,0,'',2,0,0),(15559,3550,6,2,0,'87.218.146.241',1152659248,1,0,1,1,1,1,'','','Jose Luis,\n\nUna vez pulses sobre un link a hyperupload, localiza esta imagen:\n[url=http&#58;//imageshack&#46;us:1x84n2pd][img:1x84n2pd]http&#58;//img147&#46;imageshack&#46;us/img147/6416/hyper0nk&#46;png[/img:1x84n2pd][/url:1x84n2pd]\ny aguarda los segundos que te indica. A continuación te proporciona el link definitivo para descargar.','',0,'GA==','1x84n2pd',1,0,'',2,0,0),(15560,3548,6,579,0,'148.223.141.242',1152666816,1,0,1,1,1,1,'','','Jovenes,\n\nNo puedo usar un archivo de lotes que llame primero al \"Origen.EXE\" y despues al \"Copia.EXE\" porque el proceso es muy eventual, no se hace cada vez que se corre \"Origen.EXE\".\n\nEl ejemplo de Joao para crear y correr un archivo BAT no me funciono.\n\nSi no hay alguna instruccion para cerrar \"Origen.EXE\" y correr \"Copia.EXE\" existira alguna manera que desde \"Copia.EXE\" cierre \"Origen.EXE\"?\n\n\'chas gracias por su paciencia','',0,'GA==','2yrjppvd',1,0,'',579,0,0),(15562,3548,6,54,0,'201.98.176.39',1152672935,1,0,1,1,1,1,'','','[quote=&quot;RodolfoRBG&quot;:66538wgs]Jovenes,\n\nNo puedo usar un archivo de lotes que llame primero al \"Origen.EXE\" y despues al \"Copia.EXE\" porque el proceso es muy eventual, no se hace cada vez que se corre \"Origen.EXE\".\n\nEl ejemplo de Joao para crear y correr un archivo BAT no me funciono.\n\nSi no hay alguna instruccion para cerrar \"Origen.EXE\" y correr \"Copia.EXE\" existira alguna manera que desde \"Copia.EXE\" cierre \"Origen.EXE\"?\n\n\'chas gracias por su paciencia[/quote:66538wgs]\n\nPodrias probar\n\nSHELLEXECUTE()\noWnd:END()\n\npor ahi va la idea','',0,'gA==','66538wgs',1,0,'',54,0,0),(15563,449,3,234,0,'72.130.245.196',1152674956,1,0,1,1,1,1,'','','Hi Ramesh,\n\nDid you receive my request via email?\n\nThank you,','',0,'gA==','1ec3x5xl',1,0,'',234,0,0),(15564,3551,7,262,0,'83.97.168.202',1152682539,1,0,1,1,1,1,'','pestañas hacia abajo ?','SE ha conseguido el hacer que aparezcan las pestañas hacia abajo ? .\nme es importante , pues mis clientes usan los pdas cudrados y el espacio de pantalla es vital .\nSaludso.','',0,'gA==','3lyil6q6',1,0,'',262,0,0),(15565,3552,3,32,0,'196.36.8.34',1152693368,1,0,1,1,1,0,'','Checked menuitem','Hi,\n\nWhy do menu items with checks appear with the check in a border?\n\n[img:29v4hyaj]http&#58;//home&#46;quicksoftware&#46;co&#46;za/menu&#46;jpg[/img:29v4hyaj]\n\nAlso, is there a way to \"bullet\" a menu item, like the view menu in windows explorer?\n\nAlex','',0,'CA==','29v4hyaj',1,0,'',32,0,0),(15566,3417,3,130,0,'141.51.32.24',1152695598,1,0,1,1,1,0,'','','Silvio,\n\nif you use 4 different bitmaps instead of a 4dimensional bitmap the sample is working fine.\n\nTsButton does not work with 4 in 1 bitmaps.\n\nStefan','',0,'CA==','38c6m9yp',1,0,'',130,0,0),(15567,3417,3,49,0,'62.13.172.78',1152697113,1,0,1,1,1,1,'','','Ok I want understand\nHow I must modify the source code ?\n( see the source code on the page 1 on this topic)\n\nRegards,\nSilvio','',0,'CA==','2nu608bd',1,0,'',49,0,0),(15568,3539,3,6,0,'87.10.10.227',1152699027,1,0,1,1,1,1,'','','Please understand that this is a Windows file system issue not a FWH one. Just try to create a file called CON.BMP from Explorer and you will see. It is definitely a Windows file system reserved name.\n\nEMG','',0,'CA==','ob89eeu9',1,0,'',6,0,0),(15569,3553,7,57,0,'83.56.204.6',1152701769,1,0,1,1,1,1,'','TGet Alineacion derecha','Antonio\nEl TGet como está no tolera la alineación derecha. Lo he solucionado modificando el nStyle añadiendo ES_MULTILINE. \n\nCreo recordar que este problema aparecia en algunas versiones del SO.\nQuizas deberias incluir el ES_MULTILINE.\n\nSaludos\nToni Sales','',0,'CA==','sgm5ujvp',1,0,'',57,0,0),(15570,3547,6,649,0,'201.25.249.49',1152702976,1,0,1,1,1,1,'','','¿Esto I hasta sabe, pero él quisiera saber como si él haga?\n[i:2pxyb1bo]\nIsto eu até sei, mas gostaria de saber como se faz???[/i:2pxyb1bo]','',0,'IA==','2pxyb1bo',1,0,'',649,0,0),(15571,3539,3,455,0,'195.97.105.161',1152704082,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:3dv2s9ya]Please understand that this is a Windows file system issue not a FWH one. Just try to create a file called CON.BMP from Explorer and you will see. It is definitely a Windows file system reserved name.\n\nEMG[/quote:3dv2s9ya]\n\nI got you Enrico and thanks... I\'ll make the necessary changes \nin the 32-bit program, so it will be avoided the next time.\n\nWhat still puzzles me, is the fact that in the 16-bit environment,\nthe function file(\'con.bmp\') returns .F. (correct)....\n\nThat\'s why I am now so sceptical. I thought that the behaviour of\nany Fivewin 16/32 bit function would be identical, but apparently\nI was wrong... and have to check each and everyone of them.\n\nRegards and I apologize for my frustration.\nEvans','',0,'gA==','3dv2s9ya',1,0,'',455,0,0),(15572,3549,6,196,0,'190.48.194.99',1152706549,1,0,1,1,1,0,'','','1. Que version/build de Harbour ó xHarbour estás usando ? Igual para FWH. \nHarbour 41.0 y FWH 2.4\n\n2. Puedes reproducir el GPF con un ejemplo ? \nVoy a intentarlo\n\n3. Te aparece un error en pantalla con una lista de las funciones llamadas ? \nSi, y me da un nro de linea, pero no se que corregir ya que en otras maquinas funciona correctamente.\n\n4. La primera posible solución es ir acotando zonas dentro del programa (usando diversos MsgInfo() por ejemplo) hasta localizar cual es la que genera el GPF. \nIntentare esto.\n\n5. Por último, se genera un fichero MAP con una opción del enlazador y se busca la dirección del GPF dentro de dicho fichero. Esa dirección indica la función que genera el GPF.\nVoy a buscar tambien aqui.\n\nConsulta:\nPuede ser que una version ilegal de windows genere este error, si hago que mi cliente compre las licencias, quizas el error desaparezca?\n\nMuchas gracias.\nJorge Jaurena','',0,'gA==','2pkbdo28',1,0,'',196,0,0),(15573,3554,3,267,0,'200.208.238.2',1152708332,1,0,1,1,1,1,'','To use HELP in the format CHM','We can use archives of HELP in the format CHM with FWH ?','',0,'gA==','3btect3v',1,0,'',267,0,0),(15574,3555,20,444,0,'80.183.235.162',1152708849,1,0,1,1,1,0,'','gestione rete lan','Ciao a tutti!\n\nstò cercando di realizzare un software per gestire una rete con fwh\n\nper fare il trace route,vedere i servizi attivi ecc. qualcuno a documentazione a riguardo?\n\n\nDino','',0,'gA==','1w2p5s56',1,0,'',444,0,0),(15575,3549,6,2,0,'87.218.146.185',1152712244,1,0,1,1,1,1,'','','Jorge,\n\n&gt;&gt; 3. Te aparece un error en pantalla con una lista de las funciones \n&gt;&gt; llamadas ? \n&gt; Si, y me da un nro de linea, pero no se que corregir ya que en otras \n&gt; maquinas funciona correctamente. \n\nIndica aqui que lista de funciones te aparece, y el número de línea.\n\n&gt; Puede ser que una version ilegal de windows genere este error, si hago &gt; que mi cliente compre las licencias, quizas el error desaparezca? \n\nNo debería afectar, salvo que sea un windows modificado indebidamente.','',0,'gA==','1ftro6d9',1,0,'',2,0,0),(15576,3556,3,435,0,'200.155.197.227',1152714590,1,0,1,1,1,0,'','Cor diferente em Folder','Antonio,\n\nFiz upgrade de pre-release para FWh 2.7 e criei uma versao, e achei a seguinte mensagem: \n\na Imagem do aba da fota fica diferente do restante da janela\nver imagem:\n[img:2ums828u]http&#58;//www&#46;sisrev&#46;com&#46;br/colors&#46;gif[/img:2ums828u]\n\nestou usando recursos SysTabControl32 no .RC\n\nAri','',0,'CA==','2ums828u',1,0,'',435,0,0),(15577,3556,3,217,0,'200.159.120.34',1152720309,1,0,1,1,1,0,'','Re: Cor diferente em Folder','Ari, \n\nÉ assim mesmo. O SysTabControl32 não permite que você mude a cor da orelha da aba onde o titulo é mostrado, apenas o corpo.\n\nThis is correct. SysTabControl32 don\'t let you change the tab color where the title is displayed, you can change only the body color.\n\nMaurilio','',0,'CA==','3b17f9ds',1,0,'',217,0,0),(15578,3539,3,303,0,'72.199.41.171',1152720341,1,0,1,1,1,0,'','','Evans,\n\nMy only consolation is that if it was easy, then anyone could do it, and we would all be out of work.\n\nUnless you really like sheephearding <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->, programming is a nice job that you can do anywhere. We are lucky to have this job that didn\'t even exist 30 years ago.\n\nAnd, you always have this nice group of people willing to help out. Priceless!\n\n\nJames','',0,'CA==','33uc3txi',1,0,'',303,0,0),(15579,3507,3,217,0,'200.159.120.34',1152720577,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1718sm0p]\n\n(...) help-arrow cursor is not shown, but it properly fires the request for Help event\n[/quote:1718sm0p]\n\nAntonio,\n\nWhat method fire help event for this case?\nI\'m thinking in change cursor resource for myself... What do you think?\n\nRegards!\nMaurilio','',0,'gA==','1718sm0p',1,0,'',217,0,0),(15580,3554,3,303,0,'72.199.41.171',1152721263,1,0,1,1,1,0,'','','I have sent code and examples to your private email.\n\nJames','',0,'gA==','1qgged29',1,0,'',303,0,0),(15581,3554,3,2,0,'87.218.146.185',1152721908,1,0,1,1,1,1,'','','James,\n\nWould you mind to upload them to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and copy here the provided download link ? Thanks,','',0,'gA==','1zyl3r9d',1,0,'',2,0,0),(15582,530,6,9,0,'85.60.55.79',1152722253,1,0,1,1,1,1,'','','[quote=&quot;RenOmaS&quot;:3i1u81jp]Ya tenemos avanzado algo el Punto de Venta\n[/quote:3i1u81jp]\n\n¿Teneis ya depurado el código?. Sería interesante contar, en la propia clase Tdialogo, con la posibilidad de adaptar los dialogos y controles a la resolucion de la pantalla.','',0,'gA==','3i1u81jp',1,0,'',9,0,0),(15583,3554,3,303,0,'72.199.41.171',1152722490,1,0,1,1,1,0,'','','You can download it from my website on this page:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nAntonio, you have my permission to add the code to FWH.\n\nJames','',0,'gA==','1mk27ydo',1,0,'',303,0,0),(15584,2992,2,375,0,'84.122.123.138',1152724130,1,0,1,1,1,1,'','','He conseguido que FreeImage me funcione en 16 bits. En XP utilizo GetDc32() y ReleaseDc32(), y me lee todos lo JPG y PNG pero no me lee los GIF ni los TGA. Para W.Me tengo que utilizar GetDc() y ReleaseDc() normales, con lo que algunos JPG no me los lee.\nAl final he hecho una mezcla de un poco de todo (Lo del mensaje anterior + FreeImage) y con XP me lo estrá leyendo todo. Lo del GetDc32() es posible que sea por culpa de la versión USER32.DLL que utilizo. Cuando pueda pruebo con otra y os lo cuento.\n\nPor lo menos, mientras me paso o no a 32 bits el cliente está contento.','',0,'gA==','300vlh93',1,0,'',375,0,0),(15585,3474,2,375,0,'84.122.123.138',1152724901,1,0,1,1,1,1,'','','Ver¡ficado, he copiado el RunDlg32 del XP a mi ordenador W.Me (al directorio de la aplicacion) y problema solucionado, el cInitialFile ya sale. \n\nGracias Antonio.','',0,'gA==','pw2h8rdy',1,0,'',375,0,0),(15586,3554,3,267,0,'200.208.238.2',1152726196,1,0,1,1,1,1,'','','thanks,','',0,'gA==','219rffxb',1,0,'',267,0,0),(15587,530,6,439,0,'190.0.141.251',1152727377,1,0,1,1,1,1,'','','RenOmaS\n\nSiempre sorprendiéndonos con buen código, estoy de acuerdo con Manuel de lo interesante que sería contar con una clase de ese tipo.\n\nDesde ya Gracias por el código que has volcado.','',0,'gA==','219zy52o',1,0,'',439,0,0),(15588,3550,6,396,0,'201.248.206.6',1152728433,1,0,1,1,1,0,'','','asi es como lo hacia antes, hasta una ves subi unas imagenes, pero ahora trato y nunca llega apareceer la imagen del descuento de tiempo, esto lo trato de descargar en los cybercafe, ya que no tengo internet en casa, alguna cosa que revisar..? gracias Don Antonio...','',0,'gA==','i7xerhqe',1,0,'',396,0,0),(15589,3539,3,455,0,'195.97.105.161',1152730433,1,0,1,1,1,0,'','','James,\nYou are absolutely right.\nThese are the reasons that I\'m still around too,\nregardless of the difficulties...\nChalenging is one thing that I wouldn\'t say no!\n\nThanks for your good words.','',0,'gA==','i8gkqbbd',1,0,'',455,0,0),(15590,3548,6,428,0,'200.55.19.126',1152733177,1,0,1,1,1,0,'','','Pienso que tu problema se solucionaria, con un programa intermedio que es llamado desde EXIT PROCEDURE....., sobre la aplicacion que vas a reemplazar, yo hago lo mismo y lo solucione de esta manera.','',0,'gA==','127d4g3d',1,0,'',428,0,0),(15591,3549,6,138,0,'201.154.236.9',1152733809,1,0,1,1,1,1,'','','Otra cosas que se me ocurre, que alguna vez me paso, es que si el programa corre bien en todos los equipos, exceptuando uno, es altamente probable que tengas un problema con algun SIMM de memoria.\n\nPrueba cambiando la memoria del equipo con problemas.','',0,'gA==','3b9brmtv',1,0,'',138,0,0),(15592,3548,6,579,0,'148.223.141.242',1152734237,1,0,1,1,1,1,'','','Infosys,\n\nDe hecho el programa \"Copia.EXE\" es un programa intermedio que se corre desde \"Origen.EXE\", pero este ultimo como que no se termina de cerrar al llamar al primero.\n\nPodrias enviarme o darme un ejemplo de como le hiciste tu?\n\n\'chas gracias.','',0,'gA==','1wfdxyjs',1,0,'',579,0,0),(15593,3557,6,328,0,'72.252.43.58',1152736789,1,0,1,1,1,0,'','Tablas Dinamicas de Excel...','Hola a Todos...\nPues despues de dos días de estar invenstigando como programar las tablas dinámicas de Excel, que nos pueden ayudar a darle otro aspecto a los reportes que queramos hacer con una hoja electrónica:\n\n[img:uid5ticd]http&#58;//tecnisistemas&#46;com/fideck/modulos/actualizaciones/Upload/TdImagenPivotTables&#46;JPG[/img:uid5ticd]\n\nLogre hacer estos otros métodos para la TExcels, y me generá de una manera rápida una tabla pivoteada ó tabla dinámica, con solo poner este código:\n\n[code:uid5ticd]\n*---------------------------------\n* Crea una tabla dinámica en Excel\n*---------------------------------\nFUNCTION GenTablaDinamica&#40;&#41;\n LOCAL aPagina&#91;2&#93;, aFilas&#91;2&#93;, aColumnas&#91;1&#93;, aDatos&#91;1&#93;, ;\n       cRango, cArchivo, oExcel, oPivot\n\n* Rango de celdas de la planilla\n cRango = &quot;A1&#58;F325&quot; \n\n cArchivo= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41;&#41; + &quot;Ventas&#46;xls&quot;\n\n *--- Arrays con los datos de la tabla dinamica\n aPagina&#91;1&#93;=&quot;Vendedor&quot;\n aPagina&#91;2&#93;=&quot;Zona&quot;\n aFilas&#91;1&#93;=&quot;Marca&quot;\n aFilas&#91;2&#93;=&quot;Modelo&quot;\n aColumnas&#91;1&#93;=&quot;Anio&quot;\n aDatos&#91;1&#93;=&quot;Cantidad&quot;\n\n\n oExcel &#58;= TExcelScript&#40;&#41;&#58;New&#40;&#41;\n oExcel&#58;Add&#40; cArchivo &#41;\n oExcel&#58;Visualizar&#40;&#46;T&#46;&#41; \n\n oExcel&#58;TablaDinamica&#40; cRango &#41; \n//Filas\n oExcel&#58;SetRowTD&#40; aFilas&#91;1&#93; &#41;\n oExcel&#58;SetRowTD&#40; aFilas&#91;2&#93; &#41;\n//Columnas\n oExcel&#58;SetColumnTD&#40; aColumnas&#91;1&#93; &#41;\n//Paginas\n oExcel&#58;SetPageTD&#40; aPagina&#91;1&#93; &#41;\n oExcel&#58;SetPageTD&#40; aPagina&#91;2&#93; &#41;\n//Datos\n oExcel&#58;SetDataTD&#40; aDatos&#91;1&#93; &#41;\n\n oExcel&#58;NameSheet&#40; &quot;Hoja1&quot;, &quot;Tabla Dinámica&quot; &#41; \n\n oExcel&#58;End&#40;&#46;f&#46;&#41;\n\nRETURN NIL\n[/code:uid5ticd]\n\n[img:uid5ticd]http&#58;//tecnisistemas&#46;com/fideck/modulos/actualizaciones/Upload/EjemploHojaPivotTables2&#46;JPG[/img:uid5ticd]\n\nSi a alguien le interesa puede bajar la clase TExcels modificada con estos metodos, mas la la hoja excel para que funcione el ejemplo arriba indicado desde esta direccion:\n[url:uid5ticd]http&#58;//tecnisistemas&#46;com/fideck/modulos/actualizaciones/Upload/FuentesTdPIVOTT&#46;ZIP[/url:uid5ticd]\n\nEspero les pueda servir.\n\nSaludos.\n\nCarlos Sincuir','',0,'GIA=','uid5ticd',1,0,'',328,0,0),(15594,3556,3,435,0,'200.155.197.227',1152737812,1,0,1,1,1,0,'','Cor','Isso mesmo Maurilio eu gostaria de mudar o corpo, sabe como fazer ?\n\nAri','',0,'GIA=','3boo2omk',1,0,'',435,0,0),(15595,3476,3,435,0,'200.155.197.227',1152738001,1,0,1,1,1,0,'','Comprei','Acabei de atualizar e deu certo eu recebi a Junho de 2006\n\nagora estou na 2.7 !     <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nAri','',0,'GIA=','33fuhaun',1,0,'',435,0,0),(15596,3397,2,304,0,'201.155.7.216',1152738408,1,0,1,1,1,0,'','','Continuamente se manda a imprimir a puertos lpt1 y lpt2, en Lpt1 tengo instsladas mini-printers para los tickets y en Lpt2 se imprimen las facturas, sucede que a veces no imprime nada en Lpt2 y a veces va imprimiendo bien y saca basura en la impesion, ya cambie los cables paralelos, las impresoras, loc cpu, realmente no tengo ni idea que pueda ocacionar esto, si alguien tiene un idea ????, mucho se los agradeceria\nsalu2','',0,'GIA=','wzgw0y31',1,0,'',304,0,0),(15597,3538,6,179,0,'200.24.221.138',1152738968,1,0,1,1,1,1,'','','Maestro Todo arreglado\nera que no estaba apuntada la tabla como un alias activo cuando se crea\nel browse la primera vez\n\nPor cierto funciona oK\n\nGracias','',0,'GIA=','jdut0xux',1,0,'',179,0,0),(15598,3558,6,52,0,'200.127.195.89',1152738996,1,0,1,1,1,1,'','TdosPrn y preview para matricales','Amigos,\n\nEstoy tratando de ubicar algun ejemplo del uso del PREVIEW para impresoras matricales.\n\nAlguien posee alguno?\n\nGracias.','',0,'GIA=','388xqopt',1,0,'',52,0,0),(15599,2480,6,52,0,'200.127.195.89',1152739171,1,0,1,1,1,1,'','','rene,\n\nTendrias un ejemplo del uso de eso?\n\nGracias.','',0,'GIA=','3snlqy9g',1,0,'',52,0,0),(15600,3559,6,389,0,'201.98.159.176',1152741517,1,0,1,1,1,0,'','Reportes complejos con report','quisiea saber si es posible hacer reportes complejos con report, por ejemplo\ntitulos con tipos de letras diferentes y tamaños, y si se pueden utilizar mas columnas con informacion de diferentes bases de datos.. si alguien sea tan amable de enviarme un ejemplo <!-- e --><a href=\"mailto:gabomen@yahoo.com.mx\">gabomen@yahoo.com.mx</a><!-- e -->\nSaludos\nGABO','',0,'GIA=','31cs8e47',1,0,'',389,0,0),(15601,3559,6,138,0,'201.128.111.188',1152748777,1,0,1,1,1,1,'','','Gabo:\n\nYo he hecho verdaderas maravillas con el motor de reportes de FiveWin, la graci consiste en conocer muy bien como esta construido el objeto y funciona estupendamente.\n\nPara los titulos con letras diferentes solo necesitas definir los fonts adecuados y \"registrarlos\" en el reporte, despues recuerda que el primer font definido es con el cual se imprimen cabeceras del reporte\n\nPara utilizar columnas de distintas bases de datos, un simple SET RELATION de DBASE hace toda la magia, solo asegurate de definir la DATA de la columna con el alias de la base de datos correspondiente.','',0,'GIA=','18047c9x',1,0,'',138,0,0),(15602,2480,6,138,0,'201.128.111.188',1152748864,1,0,1,1,1,1,'','','Compila TDOSPRN.PRG de tu directorio FW\\classes y veras la impresion en matricial','',0,'GIA=','2m54cg5y',1,0,'',138,0,0),(15603,3548,6,138,0,'201.128.111.188',1152750280,1,0,1,1,1,1,'','','Rodolfo:\n\nOrigen.EXE hace un WinExec(\"copia.exe\") hasta aqui vamos bien. Luego el ORIGEN.EXE tiene que \"suicidarse\", eso lo haces con un PostQuitMessage(0) y un Quit, quedaria algo asi:\n\nWinExec(\"copia.exe\")\nPostQuitMessage(0)\n__Quit()\n\ny luego en tu programa COPIA.EXE haces lo que tienes que hacer, y vuelves a lanzar a ORIGEN.EXE\n\nWinExec(\"origen.exe\")','',0,'GIA=','3aoj7gzq',1,0,'',138,0,0),(15604,3560,7,533,0,'88.8.25.16',1152766149,1,0,1,1,1,0,'','Emulador W.M.5','Buenos días foro:\n\n   Una pregunta fácil <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , como puedo conseguir el emulador para windows mobile 5. Tengo el emulador desde el principio, pero cambié la PDA a windows mobile 5 por temas de aperturas shared, entonces, cuando abro el programa en el emulador que tengo y llega a una línea donde apertura una tabla dbf en modo shared me casca un error.\n\n   UN SALUDO,','',0,'GIA=','2kmib48g',1,0,'',533,0,0),(15605,3560,7,2,0,'87.218.146.29',1152769686,1,0,1,1,1,1,'','','Mike,\n\nMira aqui:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3075&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'GIA=','2uxxph5u',1,0,'',2,0,0),(15606,3550,6,2,0,'87.218.146.29',1152770885,1,0,1,1,1,1,'','','Jose Luis,\n\nIgual en el cybercafé tienen algo bloqueado...','',0,'GIA=','2ghfxdm4',1,0,'',2,0,0),(15607,3417,3,130,0,'141.51.32.24',1152776448,1,0,1,1,1,0,'','','just change the lines in the sample where the buttons are defined\n\n@10,90 SBGROUP aBtn1 OF aChild[ 3 ] ;\n           CAPTION aCapt1 ;\n           SIZE 34, 34 PIXELS ;\n           FONT oFont ;\n           ACTION aAct1 ;\n        RESOURCE \"Driver\",\"Del1\",\"Del2\",\"Cancel1\"; // 4 different btimaps !\n           MESSAGE \"Click izquierdo: Reservar Asientos.  \" + ;\n                          \"Click derecho: Cancelar Reservación.\" ;\n           COLORS CLR_WHITE, CLR_CYAN ;\n           TEXT ON_CENTER ;\n           LOOK W97\n\nit will work now as exspected, you don´t need to change the lib.\n\nStefan','',0,'','13ucuq79',1,0,'',130,0,0),(15608,3417,3,49,0,'62.13.172.78',1152782250,1,0,1,1,1,1,'','','this is the sample\n\n\n\n\n[code:2s0182px]#define _DDE_CH\n#define _FOLDER_CH\n#define _VIDEO_CH\n#define _TREE_CH\n#define _ODBC_CH\n\n#include &quot;Fivewin&#46;ch&quot;\n#include &quot;TSButton&#46;ch&quot;\n\n#define CLR_LIGHT nRGB&#40; 192, 192, 56 &#41;\n#define CLR_SHADOW nRGB&#40; 102, 51, 0 &#41;\n\nStatic oWnd, aChild&#91; 4 &#93;\n\n//--------------------------------------------------------------------------//\n\nFunction Main&#40;&#41;\n\n   Local oBar, oIco, oBtn&#91; 2 &#93;\n\n   DEFINE ICON oIco RESOURCE &quot;Super&quot;\n\n   DEFINE WINDOW oWnd FROM 100, 100 TO 490, 600 PIXEL ;\n          TITLE &quot;Super Buttons  ¡ NO DLL\'s at all !&quot; ;\n          MENU BuildMenu&#40;&#41; ;\n          COLORS CLR_BLACK, CLR_CYAN ;\n          ICON oIco ;\n          MDI\n\n\n   ACTIVATE WINDOW oWnd VALID &#40; oIco&#58;End&#40;&#41;, &#46;T&#46; &#41;\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function Child1&#40;&#41;\n\n   Local oIco, oFont&#91; 2 &#93;, oBrush, bTColor, bBColor, oBtn&#91; 14 &#93;, ;\n         oBmp&#91; 5 &#93;, oBar, ;\n         lEnable &#58;= &#46;F&#46;\n\n   // text and background colors now can be code blocks\n   // here defining text and background colors for buttons 5 and 6\n   bTColor &#58;= &#123; |oBtn| If&#40; ! oBtn&#58;lActive, CLR_GRAY, ;\n                       If&#40; oBtn&#58;lMouseOver, CLR_HBLUE, ;\n                       If&#40; oBtn&#58;lPressed, CLR_HRED, CLR_BLACK &#41; &#41; &#41; &#125;\n\n   bBColor &#58;= &#123; |oBtn| If&#40; oBtn&#58;lActive, CLR_HGRAY, CLR_GRAY &#41; &#125;\n\n   If aChild&#91; 1 &#93; == Nil\n\n\n      DEFINE FONT oFont&#91; 1 &#93; NAME &quot;MS Sans Serif&quot; SIZE 0, -6\n      DEFINE FONT oFont&#91; 2 &#93; NAME &quot;MS Sans Serif&quot; SIZE 0, -8 BOLD\n      DEFINE ICON oIco RESOURCE &quot;Super&quot;\n      DEFINE BRUSH oBrush RESOURCE &quot;WPaper&quot;\n\n      DEFINE WINDOW aChild&#91; 1 &#93; FROM 0, 0 TO 346, 500 PIXEL OF oWnd ;\n             TITLE &quot;Super Buttons  ¡ Any purpose buttons with NO DLL\'s !&quot; ;\n             COLORS CLR_BLACK, CLR_CYAN ICON oIco ;\n             STYLE nOR&#40; WS_DLGFRAME, WS_VISIBLE &#41; ;\n             MDICHILD\n\n      DEFINE SBUTTONBAR oBar OF aChild&#91; 1 &#93; SIZE 25, 25 3D\n      oBar&#58;SetBrush&#40; oBrush &#41;\n\n      DEFINE SBUTTON oBtn&#91; 1 &#93; OF oBar ;\n             RESOURCE &quot;ANIMATED Trafica&quot; ;\n             ACTION Child2&#40;&#41; ;\n             WHEN lEnable ;\n             TOOLTIP &quot;Animated&quot; ;\n             MESSAGE &quot;Animated Super Buttons in Buttonbars&quot; ;\n             BRUSH oBrush ;\n             LOOK W97\n\n      DEFINE SBUTTON oBtn&#91; 7 &#93; OF oBar ;\n             RESOURCE &quot;Super1&quot;, &quot;Super2&quot;, &quot;Super3&quot;, &quot;Super2&quot; ;\n             TOOLTIP &quot;Button Matrixes&quot; ;\n             MESSAGE &quot;Bus reservations&quot; ;\n             LOOK W97 ;\n             ACTION Child3&#40;&#41; ;\n             BRUSH oBrush ;\n             MENU ACTION MenuPop&#40; oBtn&#91; 1 &#93; &#41;\n\n      DEFINE SBUTTON oBtn&#91; 8 &#93; OF oBar ;\n             RESOURCE &quot;Cut1&quot;, &quot;Cut2&quot;,, &quot;Cut2&quot; ;\n             TOOLTIP &quot;LOOK W97&quot; ;\n             MESSAGE &quot;Super Buttons in Buttonbars&quot; ;\n             LOOK W97 ;\n             BRUSH oBrush ;\n             GROUP\n\n      DEFINE SBUTTON oBtn&#91; 9 &#93; OF oBar ;\n             RESOURCE &quot;Paste1&quot;, &quot;Paste2&quot;,, &quot;Paste2&quot; ;\n             TOOLTIP &quot;LOOK W97&quot; ;\n             MESSAGE &quot;Super Buttons in Buttonbars&quot; ;\n             LOOK W97 ;\n             BRUSH oBrush\n\n      DEFINE SBUTTON oBtn&#91; 10 &#93; OF oBar ;\n             RESOURCE &quot;Del1&quot;, &quot;Del2&quot;,, &quot;Del2&quot; ;\n             TOOLTIP &quot;LOOK W97&quot; ;\n             MESSAGE &quot;Super Buttons in Buttonbars&quot; ;\n             LOOK W97 ;\n             BRUSH oBrush\n\n      DEFINE SBUTTON oBtn&#91; 2 &#93; OF oBar ;\n             CAPTION &quot;Exit&quot; ;\n             ACTION aChild&#91; 1 &#93;&#58;End&#40;&#41; ;\n             FONT oFont&#91; 1 &#93; ;\n             TOOLTIP &quot;LOOK W97&quot; ;\n             MESSAGE &quot;Super Buttons in Buttonbars with 3D text raised&quot; ;\n             LOOK W97 ;\n             BRUSH oBrush ;\n             GROUP\n\n      // 3D effect &#40;raised&#41; in text\n      oBtn&#91; 2 &#93;&#58;SetText&#40; Nil, Nil, Nil, &#46;T&#46; &#41;\n\n      // New V&#46;5&#46;0 Animated button\n      @ 60, 80 SBUTTON oBtn&#91; 11 &#93; OF aChild&#91; 1 &#93; SIZE 36, 36 PIXELS ;\n              RESOURCE &quot;ANIMATED BusIn&quot; WHEN lEnable ;\n              MESSAGE &quot;ANIMATED Button&quot; ACTION Tone&#40; 500 &#41;\n\n      // &quot;Shape&quot; feature in TSButton\n      @60, 140  SBUTTON oBtn&#91; 3 &#93; OF aChild&#91; 1 &#93; FONT oFont&#91; 2 &#93; ;\n               SIZE 74, 26 PIXELS ;\n               RESOURCE &quot;Lamp1&quot;, &quot;Lamp2&quot;,, &quot;Lamp3&quot;, &quot;Shape3&quot; ;\n               SHAPE ;\n               PROMPT &quot;Activate&quot; ;\n               TEXT ON_RIGHT ;\n               ACTION &#40; lEnable &#58;= ! lEnable, oBtn&#91; 1 &#93;&#58;Refresh&#40;&#41;, ;\n                        ASend&#40; aChild&#91; 1 &#93;&#58;aControls, &quot;Refresh&quot; &#41;, ;\n                        ShowBitMaps&#40; oFont&#91; 1 &#93;, oBmp &#41;, ;\n                        If&#40; lEnable, oBtn&#91; 3 &#93;&#58;lEverPress &#58;= &#46;T&#46;, ;\n                            oBtn&#91; 3 &#93;&#58;lEverPress &#58;= &#46;F&#46; &#41; &#41; ;\n               COLORS CLR_BLACK ;\n               MESSAGE \'See new &quot;Shape&quot; feature and 3D text &#40;bas-relief&#41;, \' + ;\n                       \'specific position, specific 3D colors, Everpressed\' ;\n               TOOLTIP &quot;Activate / Deactivate Buttons&quot;\n\n      // 3D effect &#40;raised&#41; in text with specific position and specific colors\n      oBtn&#91; 3 &#93;&#58;SetText&#40; Nil, 7, 20, &#46;F&#46;, CLR_LIGHT, CLR_SHADOW &#41;\n\n      // New V&#46;5&#46;0 Animated button\n      @ 60,237 SBUTTON oBtn&#91; 11 &#93; OF aChild&#91; 1 &#93; SIZE 36, 36 PIXELS ;\n              RESOURCE &quot;ANIMATED Roll&quot; WHEN lEnable ;\n              MESSAGE &quot;ANIMATED Button&quot; ACTION Tone&#40; 500 &#41;\n\n      // New &quot;Shape&quot; feature in TSButton\n      @60, 300 SBUTTON oBtn&#91; 4 &#93; OF aChild&#91; 1 &#93; FONT oFont&#91; 2 &#93; ;\n               SIZE 74, 26 PIXELS ;\n               RESOURCE &quot;Lamp1&quot;, &quot;Lamp2&quot;,, &quot;Lamp3&quot;, &quot;Shape3&quot; ;\n               SHAPE ;\n               PROMPT &quot;Exit&quot; ;\n               TEXT ON_LEFT ;\n               ACTION aChild&#91; 1 &#93;&#58;End&#40;&#41;;\n               COLORS CLR_BLACK ;\n               TOOLTIP &quot;End Program&quot; ;\n               MESSAGE \'See new &quot;Shape&quot; feature and 3D text &#40;bas-relief&#41;, \' + ;\n                       \'default position, specific 3D colors\'\n\n      // 3D effect &#40;raised&#41; in text with default position, specific colors\n      oBtn&#91; 4 &#93;&#58;SetText&#40; Nil, Nil, Nil, &#46;F&#46;, CLR_LIGHT, CLR_SHADOW &#41;\n\n      // New V&#46;5&#46;0 Animated button\n      @ 60,394 SBUTTON oBtn&#91; 12 &#93; OF aChild&#91; 1 &#93; SIZE 36, 36 PIXELS ;\n              RESOURCE &quot;ANIMATED BusOut&quot; WHEN lEnable ;\n              MESSAGE &quot;ANIMATED Button&quot; ACTION Tone&#40; 500 &#41;\n\n      @120, 90 SBUTTON oBtn&#91; 5 &#93; OF aChild&#91; 1 &#93; FONT oFont&#91; 1 &#93; ;\n               SIZE 100, 50 PIXELS ;\n               PROMPT &quot;Buttons&quot; + CRLF + &quot;From&quot; + CRLF + &quot;Resources&quot; ;\n               BORDER ;\n               RESOURCE &quot;Direc1&quot;, &quot;Direc2&quot;, &quot;Direc3&quot;, &quot;Direc4&quot; ;\n               WHEN lEnable ;\n               ACTION fResource&#40;&#41; ;\n               TOOLTIP &quot;TEXT ON RIGHT &#40;Default&#41;&quot; ;\n               MESSAGE &quot;Super Buttons&#58; Multiline text, Dinamic Colors&quot; ;\n               COLORS bTColor, bBColor ;\n               TEXT ON_RIGHT\n\n      // New V&#46;5&#46;0 Animated button\n      @120,237 SBUTTON oBtn&#91; 14 &#93; OF aChild&#91; 1 &#93; SIZE 36, 36 PIXELS ;\n              RESOURCE &quot;ANIMATED Pig&quot; WHEN lEnable ;\n              MESSAGE &quot;4 clips ANIMATED Button&quot; ACTION Tone&#40; 500 &#41;\n\n      // Using Multi-Bitmaps 4 states in a single bitmap &#40;Delphi style&#41;\n      // Animation requires a Multi-Bitmap with 4 or more clips\n      // All clips will be used in animation &#40;except clip 3 reserved for inactive state&#41;\n      @120, 320 SBUTTON oBtn&#91; 6 &#93; OF aChild&#91; 1 &#93; FONT oFont&#91; 1 &#93; ;\n                SIZE 100, 50 PIXELS ;\n                PROMPT &quot;Buttons&quot; + CRLF + &quot;From&quot; + CRLF + &quot;Code&quot; ;\n                BORDER ;\n                RESOURCE &quot;ANIMATED DirecM&quot; ;  // new animation feature\n                WHEN lEnable ;\n                ACTION fCodigo&#40;&#41; ;\n                TOOLTIP &quot;TEXT ON_LEFT&quot; ;\n                MESSAGE &quot;Super Buttons&#58; Multiline text, Dinamic Colors&quot; ;\n                COLORS bTColor, bBColor ;\n                TEXT ON_LEFT\n\n      SET MESSAGE OF aChild&#91; 1 &#93; TO &quot;Super Buttons, ¡ All of the buttons &quot; + ;\n                                    &quot;in a stand alone class &#40;NO BtnBmp subclass&#41;&quot;\n\n      ACTIVATE WINDOW aChild&#91; 1 &#93; ;\n               ON INIT &#40; oBtn &#91; 3 &#93;&#58;SetFocus&#40;&#41;, ;\n                         MsgBlink&#40; &quot;Wellcome to; Super Buttons&quot;, ;\n                                   aChild&#91; 1 &#93;,,,, &#46;F&#46; &#41; &#41; ;\n               VALID &#40; aChild&#91; 1 &#93; &#58;= Nil, oFont&#91; 1 &#93;&#58;End&#40;&#41;, ;\n                       oFont&#91; 2 &#93;&#58;End&#40;&#41;, oIco&#58;End&#40;&#41;, ;\n                       oBrush&#58;End&#40;&#41;, If&#40; oBmp&#91; 1 &#93; != Nil, ;\n                       AEval&#40; oBmp, &#123; |o| DeleteObject&#40; o &#41; &#125; &#41;, Nil &#41;, &#46;T&#46; &#41;\n\n   Else\n      aChild&#91; 1 &#93;&#58;SetFocus&#40;&#41;\n   EndIf\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function BuildMenu&#40;&#41;\n\n   Local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;&amp;TSButton&quot; ACTION Child1&#40;&#41;\n      MENUITEM &quot;&amp;Help&quot; ACTION WinExec&#40; &quot;Start &#46;&#46;\\doc\\Tsbutton&#46;htm&quot;, 0 &#41;\n      MENUITEM &quot;&amp;Exit&quot; ACTION oWnd&#58;End&#40;&#41;\n   ENDMENU\n\nReturn oMenu\n\n//--------------------------------------------------------------------------//\n\nStatic Function ShowBitMaps&#40; oFont, oBmp &#41;\n\n   @198, 160 SAY &quot;Bitmaps used by these buttons&quot; FONT oFont ;\n             COLOR CLR_BLACK, CLR_CYAN SIZE 200, 12 PIXEL OF aChild&#91; 1 &#93;\n\n   @215, 80 BITMAP oBmp&#91; 1 &#93; RESOURCE &quot;Direc1&quot; OF aChild&#91; 1 &#93; PIXEL\n   @215,120 BITMAP oBmp&#91; 2 &#93; RESOURCE &quot;Direc2&quot; OF aChild&#91; 1 &#93; PIXEL\n   @215,165 BITMAP oBmp&#91; 3 &#93; RESOURCE &quot;Direc3&quot; OF aChild&#91; 1 &#93; PIXEL\n   @215,205 BITMAP oBmp&#91; 4 &#93; RESOURCE &quot;Direc4&quot; OF aChild&#91; 1 &#93; PIXEL\n   @215,315 BITMAP oBmp&#91; 5 &#93; RESOURCE &quot;DirecM&quot; OF aChild&#91; 1 &#93; PIXEL\n\n   @247, 90 SAY &quot;  1            2           3           4&quot; FONT oFont ;\n             COLOR CLR_BLACK, CLR_CYAN SIZE 200, 12 PIXEL OF aChild&#91; 1 &#93;\n\n   @247, 330 SAY &quot; 1         2         3         4&quot; FONT oFont ;\n             COLOR CLR_BLACK, CLR_CYAN SIZE 120, 12 PIXEL OF aChild&#91; 1 &#93;\n\n   @260, 80 SAY &quot;Normal  Pressed  Inactive  Pointed&quot; FONT oFont ;\n             COLOR CLR_BLACK, CLR_CYAN SIZE 200, 12 PIXEL OF aChild&#91; 1 &#93;\n\n   @260, 310 SAY &quot;Four states in a single Bitmap&quot; FONT oFont ;\n                 COLOR CLR_BLACK, CLR_CYAN SIZE 150, 12 PIXEL OF aChild&#91; 1 &#93;\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function fResource&#40;&#41;\n\n   Local oDlg, oFont, oGet, oBrush, cVar, bColor, ;\n         lEnable &#58;= &#46;F&#46;, ;\n         oBtn &#58;= Array&#40; 9 &#41;\n\n   cVar &#58;= Space&#40; 10 &#41;\n\n\n   DEFINE BRUSH oBrush RESOURCE &quot;Back2&quot;\n   DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0,-12\n\n   DEFINE DIALOG oDlg NAME &quot;DIALOG_1&quot; ;\n          TITLE &quot;Super Buttons in dialogs from resources&quot; FONT oFont\n\n   REDEFINE GET oGet VAR cVar ID 101 OF oDlg ;\n            VALID &#40; If&#40; Empty&#40; cVar &#41;, ;\n                  &#40; Msginfo&#40; &quot;You must to write something in get&quot; &#41;, ;\n                    &#46;F&#46; &#41;, &#46;T&#46; &#41; &#41;\n\n   REDEFINE SBUTTON oBtn&#91; 8 &#93; ID 208 OF oDlg FONT oFont ;\n            PROMPT &quot;&amp;File&quot; ;\n            ACTION MenuArch&#40; oBtn&#91; 8 &#93; &#41;, oGet&#58;SetFocus&#40;&#41; ;\n            MESSAGE &quot;Emulating menus in dialogs with Super Buttons&quot; ;\n            TOOLTIP &quot;LOOK W97, CANCEL, Text only&quot; ;\n            LOOK W97 CANCEL\n\n   REDEFINE SBUTTON oBtn&#91; 9 &#93; ID 209 OF oDlg FONT oFont ;\n            PROMPT &quot;&amp;Exit&quot; ;\n            MESSAGE &quot;Emulating menus in dialogs with Super Buttons&quot; ;\n            ACTION oDlg&#58;End&#40;&#41; ;\n            TOOLTIP &quot;LOOK W97, CANCEL, Text only&quot; ;\n            LOOK W97 CANCEL\n\n   REDEFINE SBUTTON oBtn&#91; 1 &#93; ID 201 ;\n            RESOURCE &quot;OK1&quot;,&quot;OK2&quot;,&quot;OK3&quot;, &quot;OK4&quot; OF oDlg FONT oFont;\n            PROMPT &quot;A&amp;ctivate&quot; ;\n            ACTION &#40; lEnable &#58;= ! lEnable, oBtn&#91; 3 &#93;&#58;Refresh&#40;&#41;, ;\n                     oBtn&#91; 5 &#93;&#58;Refresh&#40;&#41; &#41;;\n            TOOLTIP &quot;BRUSH, TEXT ON_TOP, BORDER&quot; BORDER ;\n            MESSAGE &quot;Write anything in Get to use this button&quot; ;\n            COLORS &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_WHITE, CLR_BLACK &#41; &#125;, ;\n                   CLR_GREEN ;\n            BRUSH oBrush ROUNDRECT ;\n            TEXT POSITION ON_TOP\n\n   REDEFINE SBUTTON oBtn&#91; 2 &#93; ID 202 ;\n            RESOURCE &quot;CANCEL1&quot;, &quot;CANCEL2&quot;, &quot;CANCEL3&quot;, &quot;CANCEL4&quot; ;\n            OF oDlg PROMPT &quot;&amp;Exit&quot; FONT oFont ;\n            ACTION oDlg&#58;End&#40;&#41; ;\n            TOOLTIP &quot;TEXT ON RIGHT &#40;Default&#41;, MENU, CANCEL&quot; ;\n            MESSAGE &quot;Super Buttons with menu&quot; ;\n            COLORS CLR_BLACK, ;\n                   &#123;|oB| If&#40; oB&#58;lMouseOver, &#123;CLR_WHITE,CLR_BLUE &#125;, ;\n                                          &#123;CLR_BLUE,CLR_WHITE&#125; &#41; &#125;;\n            TEXT POSITION ON_RIGHT CANCEL ;\n            MENU ACTION MenuPop&#40; oBtn&#91; 2 &#93; &#41;\n\n   REDEFINE SBUTTON oBtn&#91; 3 &#93; ID 203 ;\n            RESOURCE &quot;HELP1&quot;, &quot;HELP2&quot;, &quot;HELP3&quot;, &quot;HELP4&quot; OF oDlg ;\n            PROMPT &quot;&amp;SButton&quot; + CRLF + &quot;From&quot; + CRLF + &quot;Code&quot; ;\n            FONT oFont ACTION fCodigo&#40;&#41; ;\n            MESSAGE &quot;Super Buttons&#58; Multiline text, Dinamic Colors&quot; ;\n            TOOLTIP &quot;TEXT ON RIGHT &#40;default&#41;&quot; ;\n            WHEN lEnable ;\n            COLORS &#123;|oBtn| If&#40; oBtn&#58;lActive, ;\n                           If&#40; oBtn&#58;lMouseOver, CLR_HBLUE, CLR_BLACK&#41;, CLR_BLACK &#41; &#125;, ;\n                   &#123;|oBtn| If&#40; oBtn&#58;lActive, &#123;CLR_YELLOW,CLR_BLUE, &#46;T&#46; &#125;, CLR_GRAY &#41; &#125; ;\n            TEXT POSITION ON_RIGHT\n\n   REDEFINE SBUTTON oBtn&#91; 4 &#93; ID 204 ;\n            RESOURCE &quot;STOP1&quot;, &quot;STOP2&quot;, &quot;STOP3&quot;, &quot;STOP4&quot; OF oDlg FONT oFont;\n            PROMPT &quot;&amp;Prueba&quot; ;\n            ACTION &#40; MsgInfo&#40; &quot;Ok&quot; &#41; &#41; ;\n            CANCEL ;\n            MESSAGE &quot;Super Buttons with menu&quot; ;\n            TOOLTIP &quot;TEXT ON_TOP, MENU, CANCEL&quot; ;\n            COLORS &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_WHITE, CLR_BLACK &#41; &#125;, &#123;CLR_GREEN,CLR_YELLOW&#125; ;\n            TEXT POSITION ON_TOP ;\n            MENU ACTION MenuPop&#40; Self &#41;\n\n   REDEFINE SBUTTON oBtn&#91; 5 &#93; ID 205 ;\n            RESOURCE &quot;STOP1&quot;,&quot;STOP2&quot;,&quot;STOP3&quot;, &quot;STOP4&quot; OF oDlg FONT oFont;\n            PROMPT &quot;P&amp;rueba&quot; ;\n            ACTION &#40; MsgInfo&#40; &quot;Ok&quot; &#41;, oGet&#58;SetFocus&#40;&#41; &#41; ;\n            WHEN lEnable ;\n            TOOLTIP &quot;TEXT ON_BOTTOM CANCEL&quot; ;\n            COLORS &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_BLUE, CLR_BLACK &#41; &#125;, ;\n                   &#123; |oBtn| If&#40; oBtn&#58;lActive, &#123;CLR_RED,CLR_HGRAY&#125;, CLR_GRAY &#41; &#125; ;\n            CANCEL ;\n            TEXT POSITION ON_BOTTOM\n\n\n   REDEFINE SBUTTON oBtn&#91; 6 &#93; ID 206 ;\n            RESOURCE &quot;HELP1&quot;, &quot;HELP2&quot;, &quot;HELP3&quot;, &quot;HELP4&quot;  OF oDlg ;\n            PROMPT &quot;Pr&amp;ueba&quot; ;\n            FONT oFont ACTION MsgInfo&#40; &quot;Ok&quot;&#41;;\n            TOOLTIP &quot;LOOK W97, TEXT ON_BOTTOM&quot; ;\n            MESSAGE &quot;Write anything in Get to use this button&quot; ;\n            TEXT POSITION ON_BOTTOM ;\n            LOOK W97\n\n   // 3D text bas-relief\n   oBtn&#91; 6 &#93;&#58;SetText&#40; Nil, Nil, Nil, &#46;T&#46; &#41;\n\n   REDEFINE SBUTTON oBtn&#91; 7 &#93; ID 207 ;\n            RESOURCE &quot;HELP1&quot;, &quot;HELP2&quot;, &quot;HELP3&quot;, &quot;HELP4&quot;  OF oDlg ;\n            PROMPT &quot;Prue&amp;ba&quot; ;\n            FONT oFont ACTION MsgInfo&#40; &quot;Ok&quot;&#41; ;\n            MESSAGE &quot;Super Buttons with menu &amp; Look W97&quot; ;\n            TOOLTIP &quot;LOOK W97, MENU, TEXT ON_TOP&quot; ;\n            TEXT POSITION ON_TOP ;\n            MENU ACTION MenuPop&#40; Self &#41; ;\n            LOOK W97\n\n   // 3D text bas-relief\n   oBtn&#91; 7 &#93;&#58;SetText&#40; Nil, Nil, Nil, &#46;F&#46; &#41;\n\n   // Now TSLines is included in TSButton\n   ACTIVATE DIALOG oDlg CENTERED ON INIT &#40; oGet&#58;SetFocus&#40;&#41;, ;\n            oDlg&#58;oMsgBar &#58;= TMsgBar&#40;&#41;&#58;New&#40; oDlg, &quot;Super Buttons, ¡ All of &quot; + ;\n            &quot;the buttons in a stand alone class &#40;NO BtnBmp subclass&#41;&quot; &#41; &#41; ;\n            ON PAINT TSLines&#40;&#41;&#58;New&#40; 17, 0, 500,, &quot;HLINE&quot;, oDlg, CLR_WHITE, CLR_GRAY &#41;\n\n   oFont&#58;End&#40;&#41;\n   oBrush&#58;End&#40;&#41;\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function MenuPop&#40; oBtn &#41;\n\n   Local oMenu, aRect\n\n   aRect &#58;= GetClientRect&#40; oBtn&#58;hWnd &#41;\n\n   MENU oMenu POPUP\n      MENUITEM &quot;&amp;Undo&quot; RESOURCE &quot;Deshacer&quot;\n      SEPARATOR\n      MENUITEM &quot;Cu&amp;t&quot;  RESOURCE &quot;Cortar&quot;\n      MENUITEM &quot;&amp;Copy&quot; RESOURCE &quot;Copiar&quot;\n      MENUITEM &quot;&amp;Paste&quot; RESOURCE &quot;Pegar&quot;\n      MENUITEM &quot;&amp;Delete&quot; RESOURCE &quot;Borrar&quot;\n      SEPARATOR\n      MENUITEM &quot;&amp;Select All&quot;\n   ENDMENU\n\n   ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF oBtn\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function MenuArch&#40; oBtn &#41;\n\n   Local oMenu, aRect\n\n   aRect &#58;= GetClientRect&#40; oBtn&#58;hWnd &#41;\n\n   MENU oMenu POPUP\n      MENUITEM &quot;&amp;New&quot;\n      MENUITEM &quot;&amp;Open&quot;\n      SEPARATOR\n      MENUITEM &quot;&amp;Save&quot;\n      MENUITEM &quot;Save &amp;As&quot;\n      MENUITEM &quot;&amp;Close&quot;\n      MENUITEM &quot;&amp;Print&quot;\n      SEPARATOR\n      MENUITEM &quot;P&amp;rinter Setup&quot;\n   ENDMENU\n\n   ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF oBtn\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function Child2&#40;&#41;\n\n   Local oFont, oBtn&#91; 6 &#93;, oBrush, nEle, ;\n         aVisit &#58;= Array&#40; 5 &#41;\n\n   If aChild&#91; 2 &#93; == Nil\n\n      AFill&#40; aVisit, &#46;F&#46; &#41;\n\n      DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, -10 BOLD UNDERLINE ITALIC\n      DEFINE BRUSH oBrush RESOURCE &quot;Back1&quot;\n\n      DEFINE WINDOW aChild&#91; 2 &#93; FROM 0, 0 TO 346, 400 PIXEL OF oWnd ;\n             TITLE &quot;Super Buttons  ¡ Todos los Botones SIN DLL\'s !&quot; ;\n             COLORS CLR_BLACK, CLR_CYAN ;\n             STYLE nOR&#40; WS_DLGFRAME, WS_VISIBLE &#41; ;\n             BRUSH oBrush ;\n             MDICHILD\n\n      // here using SetText&#40;&#41; and SetColor&#40;&#41; Methods\n      @20, 30 SBUTTON oBtn&#91; 1 &#93; OF aChild&#91; 2 &#93; FONT oFont PIXEL ;\n              CAPTION &quot;Products&quot; SIZE 75, 20 ;\n              COLORS  &#123; |oBtn| If&#40; aVisit&#91; 1 &#93;, CLR_HGREEN, CLR_YELLOW &#41; &#125;, ;\n                      CLR_BLACK ;\n              ACTION &#40; oBtn&#91; 1 &#93;&#58;SetText&#40; &quot;Productos&quot; &#41;, ;\n                       oBtn&#91; 1 &#93;&#58;SetColor&#40; CLR_HRED, CLR_BLACK &#41;, ;\n                       oBtn&#91; 1 &#93;&#58;Refresh&#40;&#41; &#41; ;\n              MESSAGE &quot;http&#58;//www&#46;superbuttons&#46;com/products&#46;html&quot; ;\n              TOOLTIP &quot;NOBOX&quot; ;\n              NOBOX\n\n      @20,110 SBUTTON oBtn&#91; 2 &#93; OF aChild&#91; 2 &#93; FONT oFont PIXEL ;\n              PROMPT &quot;Downloads&quot; SIZE 75, 20 ;\n              COLORS  &#123; |oBtn| If&#40; aVisit&#91; 2 &#93;, CLR_HGREEN, CLR_YELLOW &#41; &#125;, ;\n                      CLR_BLACK ;\n              ACTION &#40; aVisit&#91; 2 &#93; &#58;= ! aVisit&#91; 2 &#93;, oBtn&#91; 2 &#93;&#58;Refresh&#40;&#41; &#41; ;\n              MESSAGE &quot;http&#58;//www&#46;superbuttons&#46;com/Dowloads&#46;html&quot; ;\n              TOOLTIP &quot;NOBOX&quot; ;\n              NOBOX\n\n      @20,190 SBUTTON oBtn&#91; 3 &#93; OF aChild&#91; 2 &#93; FONT oFont PIXEL ;\n              CAPTION &quot;Shopping&quot; SIZE 75, 20 ;\n              COLORS  &#123; |oBtn| If&#40; aVisit&#91; 3 &#93;, CLR_HGREEN, CLR_YELLOW &#41; &#125;, ;\n                      CLR_BLACK ;\n              ACTION &#40; aVisit&#91; 3 &#93; &#58;= ! aVisit&#91; 3 &#93;, oBtn&#91; 3 &#93;&#58;Refresh&#40;&#41; &#41; ;\n              MESSAGE &quot;http&#58;//www&#46;superbuttons&#46;com/Shopping&#46;html&quot; ;\n              TOOLTIP &quot;NOBOX&quot; ;\n              NOBOX\n\n      @20,270 SBUTTON oBtn&#91; 4 &#93; OF aChild&#91; 2 &#93; FONT oFont PIXEL ;\n              CAPTION &quot;Links&quot; SIZE 75, 20 ;\n              COLORS  &#123; |oBtn| If&#40; aVisit&#91; 4 &#93;, CLR_HGREEN, CLR_YELLOW &#41; &#125;, ;\n                      CLR_BLACK ;\n              ACTION &#40; aVisit&#91; 4 &#93; &#58;= ! aVisit&#91; 4 &#93;, oBtn&#91; 4 &#93;&#58;Refresh&#40;&#41; &#41; ;\n              MESSAGE &quot;http&#58;//www&#46;superbuttons&#46;com/links&#46;html&quot; ;\n              TOOLTIP &quot;NOBOX&quot; ;\n              NOBOX\n\n      @250,20 SBUTTON oBtn&#91; 5 &#93; OF aChild&#91; 2 &#93; FONT oFont PIXEL ;\n              CAPTION &quot;Home Page&quot; SIZE 75, 15 ;\n              COLORS  &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_YELLOW, CLR_BLACK &#41; &#125;, ;\n                      CLR_HGRAY ;\n              ACTION aChild&#91; 2 &#93;&#58;End&#40;&#41; ;\n              MESSAGE &quot;http&#58;//www&#46;superbuttons&#46;com&quot; ;\n              TOOLTIP &quot;BRUSH, NOBOX&quot; ;\n              BRUSH oBrush ;\n              NOBOX\n\n      @270,50 SBUTTON oBtn&#91; 6 &#93; OF aChild&#91; 2 &#93; FONT oFont PIXEL ;\n              CAPTION &quot;Web Master&#58;   Manuel Mercado&quot; SIZE 200, 15 ;\n              COLORS  &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_YELLOW, CLR_BLACK &#41; &#125; ;\n              ACTION aChild&#91; 2 &#93;&#58;End&#40;&#41; ;\n              MESSAGE &quot;mmercadog@prodigy&#46;net&#46;mx&quot; ;\n              TOOLTIP &quot;BRUSH, NOBOX&quot; ;\n              BRUSH oBrush ;\n              NOBOX\n\n      // don\'t want dotted rectangle in focus\n      For nEle &#58;= 1 To 6\n         oBtn&#91; nEle &#93;&#58;nStyle &#58;= nAnd&#40; oBtn&#91; nEle &#93;&#58;nStyle, nNot&#40; WS_TABSTOP &#41; &#41;\n      Next\n\n      SET MESSAGE OF aChild&#91; 2 &#93; TO &quot;Super Buttons, ¡ Emulating Hiperlinks !&quot;\n\n      ACTIVATE WINDOW aChild&#91; 2 &#93; ;\n               VALID &#40; aChild&#91; 2 &#93; &#58;= Nil, oFont&#58;End&#40;&#41;, oBrush&#58;End&#40;&#41;, &#46;T&#46; &#41;\n\n   Else\n      aChild&#91; 2 &#93;&#58;SetFocus&#40;&#41;\n   EndIf\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function Child3&#40;&#41;\n\n   // using matrixes of Super Buttons\n\n   Local oFont, oFont1, nEle, bAction, oBut, nAct, nSub, oBar, oBar1, ;\n         aBtn1, aBtn2, aCapt1, aCapt2, aAct1, aAct2\n\n   If aChild&#91; 3 &#93; == Nil\n\n      // Method Disable&#40;&#41; permits virtually inactivate a button &#40;not actually&#41;,\n      // it can be done by passing a key code as parameter&#46;\n      // To use this facility, is necessary to define the third bitmap &#40;inactive\n      // state&#41; or a multi-bitmap &#40;4 in 1&#41;&#46;\n      bAction &#58;= &#123;|oBtn| oBtn&#58;cCaption &#58;= &quot;&quot;, oBtn&#58;Disable&#40; VK_RBUTTON &#41;, ;\n                         oBtn&#58;Refresh&#40;&#41; &#125;\n\n      DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -12\n      DEFINE FONT oFont1 NAME &quot;Arial&quot; SIZE 0, -8\n\n      DEFINE WINDOW aChild&#91; 3 &#93; OF oWnd FROM 0, 0 TO 250, 500 PIXEL ;\n             TITLE &quot;Super Buttons  Matrixes of Buttons&#46; &quot; + ;\n                   &quot;  Bus Reservations&quot; ;\n             COLOR CLR_BLACK, CLR_CYAN ;\n             MDICHILD\n\n      // playing with empty buttonbars just for aparience\n      DEFINE BUTTONBAR oBar OF aChild&#91; 3 &#93; SIZE 10, 10 LEFT\n      DEFINE BUTTONBAR oBar1 OF aChild&#91; 3 &#93; SIZE 20, 20 RIGHT\n\n      // un array para los objetos TSButton\n      // para matrices de botones, el array debe ser bidimensional\n      aBtn1 &#58;= &#123; Array&#40; 10 &#41;, Array&#40; 10 &#41; &#125; // matriz de botones\n\n      // buttons actions must be codeblocks contained in a unidimentional\n      // array\n      aAct1 &#58;= Array&#40; 20 &#41;\n      AFill&#40; aAct1, bAction &#41;\n\n      // buttons captions must be contained in a unidimentional array\n      aCapt1 &#58;= &#123; &quot;1&quot;, &quot;5&quot;, &quot;9&quot;, &quot;13&quot;, &quot;17&quot;, &quot;21&quot;, &quot;25&quot;, &quot;29&quot;, &quot;33&quot;, &quot;37&quot;, ;\n                  &quot;2&quot;, &quot;6&quot;, &quot;10&quot;, &quot;14&quot;, &quot;18&quot;, &quot;22&quot;, &quot;26&quot;, &quot;30&quot;, &quot;34&quot;, &quot;38&quot; &#125;\n\n      // creando la matriz\n      @10,90 SBGROUP aBtn1 OF aChild&#91; 3 &#93; ;\n             CAPTION aCapt1 ;\n             SIZE 34, 34 PIXELS ;\n             FONT oFont ;\n             ACTION aAct1 ;\n             RESOURCE &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot; ; // multi bitmap\n             MESSAGE &quot;Click izquierdo&#58; Reservar Asientos&#46;  &quot; + ;\n                     &quot;Click derecho&#58; Cancelar Reservación&#46;&quot; ;\n             COLORS CLR_WHITE, CLR_CYAN ;\n             TEXT ON_CENTER ;\n             LOOK W97\n      // para usar un bitmap multiple &#40; 4 en 1 &#41; debes definir el mismo\n      // bitmap para los cuatro estados\n\n      nAct &#58;= 1\n\n\n      // here I\'m using the &quot;Cargo&quot; variable to store the button\'s caption\n      // in order to restore it later when reactivate the button\n      // Virtual disable let you to use right click to reset a button\n      For nEle &#58;= 1 To Len&#40; aBtn1 &#41;\n         For nSub &#58;= 1 To Len&#40; aBtn1&#91; nEle &#93; &#41;\n            aBtn1&#91; nEle, nSub &#93;&#58;Cargo &#58;= aCapt1&#91; nAct++ &#93;\n            aBtn1&#91; nEle, nSub &#93;&#58;bRClicked &#58;= &#123;|oBtn| fCancel&#40; oBtn &#41; &#125;\n         Next\n      Next\n\n      // let\'s define another matrix &#40; only 4 statements&#41;\n      aBtn2 &#58;= &#123; Array&#40; 10 &#41;, Array&#40; 10 &#41; &#125;\n      AFill&#40; aAct2 &#58;= Array&#40; 20 &#41;, bAction &#41;\n      aCapt2 &#58;= &#123; &quot;3&quot;, &quot;7&quot;, &quot;11&quot;, &quot;15&quot;, &quot;19&quot;, &quot;23&quot;, &quot;27&quot;, &quot;31&quot;, &quot;35&quot;, &quot;39&quot;, ;\n                  &quot;4&quot;, &quot;8&quot;, &quot;12&quot;, &quot;16&quot;, &quot;20&quot;, &quot;24&quot;, &quot;28&quot;, &quot;32&quot;, &quot;36&quot;, &quot;40&quot; &#125;\n\n      @108,90 SBGROUP aBtn2 ;\n              PROMPT aCapt2 OF aChild&#91; 3 &#93; ;\n              SIZE 34, 34 PIXELS ;\n              FONT oFont ;\n              ACTION aAct2 ;\n              RESOURCE &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot; ; // multi bitmap\n              MESSAGE &quot;Left Click&#58; To reservate seats&#46;  &quot; + ;\n                      &quot;Right Click&#58; To Cancel Reservation&#46;&quot; ;\n              COLORS CLR_WHITE, CLR_CYAN ;\n              TEXT ON_CENTER ;\n              LOOK W97\n\n      nAct &#58;= 1\n\n      For nEle &#58;= 1 To Len&#40; aBtn2 &#41;\n         For nSub &#58;= 1 To Len&#40; aBtn2&#91; nEle &#93; &#41;\n            aBtn2&#91; nEle, nSub &#93;&#58;Cargo &#58;= aCapt2&#91; nAct++ &#93;\n            aBtn2&#91; nEle, nSub &#93;&#58;bRClicked &#58;= &#123;|oBtn| fCancel&#40; oBtn &#41; &#125;\n         Next\n      Next\n\n      // the folowing buttons are no part of a group\n      @10, 20 SBUTTON oBut PROMPT &quot;Exit&quot; OF aChild&#91; 3 &#93; FONT oFont ;\n              SIZE 60,20 PIXEL ACTION aChild&#91; 3 &#93;&#58;End&#40;&#41; ;\n              COLORS CLR_WHITE, CLR_BLUE\n\n      @128, 20 SBUTTON OF aChild&#91; 3 &#93; RESOURCE &quot;Driver&quot; PIXEL ; // FONT oFont ;\n               MESSAGE &quot;Please, don\'t disturb the driver&quot; ;\n               COLOR CLR_BLACK, CLR_CYAN ;\n               NOBOX\n\n      @176, 60 SBUTTON RESOURCE &quot;TV&quot; OF aChild&#91; 3 &#93; PIXEL ;\n               FONT oFont1 ;\n               CAPTION &quot;TV&quot; ;\n               COLOR CLR_WHITE, CLR_CYAN ;\n               TEXT ON_CENTER ;\n               NOBOX\n\n      @176,200 SBUTTON RESOURCE &quot;TV&quot; OF aChild&#91; 3 &#93; PIXEL ;\n               FONT oFont1 ;\n               CAPTION &quot;TV&quot; ;\n               COLOR CLR_WHITE, CLR_CYAN ;\n               TEXT ON_CENTER ;\n               NOBOX\n\n      @176,310 SBUTTON  RESOURCE &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot; OF aChild&#91; 3 &#93; PIXEL ;\n               FONT oFont1 ;\n               CAPTION &quot;TV&quot; ;\n               COLOR CLR_WHITE, CLR_CYAN ;\n               TEXT ON_CENTER ;\n               NOBOX       ;\n                ACTION aAct2\n\n      SET MESSAGE OF aChild&#91; 3 &#93; TO &quot;Super Buttons, ¡ Matrixes of Buttons !&quot;\n\n      ACTIVATE WINDOW aChild&#91; 3 &#93; ;\n               VALID &#40; aChild&#91; 3 &#93; &#58;= Nil, oFont&#58;End&#40;&#41;, oFont1&#58;End&#40;&#41;, &#46;T&#46; &#41;\n\n   Else\n      aChild&#91; 3 &#93;&#58;SetFocus&#40;&#41;\n   EndIf\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function fCancel&#40; oBtn &#41;\n\n   MsgInfo&#40; &quot;Reservation Canceled&quot; &#41;\n   oBtn&#58;Enable&#40;&#41;\n   oBtn&#58;cCaption &#58;= oBtn&#58;Cargo\n   oBtn&#58;Refresh&#40;&#41;\n\nReturn Nil\n\n//--------------------------------------------------------------------------//\n\nStatic Function fCodigo&#40;&#41;\n\n   Local oDlg, oFont, oGet, oBrush, cVar, bColor, ;\n         lEnable &#58;= &#46;F&#46;, ;\n         oBtn &#58;= Array&#40; 9 &#41;\n\n   cVar &#58;= Space&#40; 10 &#41;\n\n   DEFINE BRUSH oBrush RESOURCE &quot;Back1&quot;\n   DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, -8\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 316, 360 PIXEL ;\n          TITLE &quot;Super Buttons in dialogs from code&quot; ;\n          COLOR CLR_BLACK, CLR_HGRAY\n\n   oDlg&#58;nStyle &#58;= nOr&#40; oDlg&#58;nStyle, 4 &#41;\n\n   @0, 1 SBUTTON oBtn&#91; 8 &#93; OF oDlg FONT oFont ;\n            SIZE 18, 8 PIXELS ;\n            PROMPT &quot;&amp;File&quot; ;\n            ACTION MenuArch&#40; oBtn&#91; 8 &#93; &#41;, oGet&#58;SetFocus&#40;&#41; ;\n            MESSAGE &quot;Emulating menus in dialogs with Super Buttons&quot; ;\n            TOOLTIP &quot;LOOK W97, CANCEL, Text only&quot; ;\n            LOOK W97 CANCEL\n\n   // we don\'t want tab stops in menus\n   oBtn&#91; 8 &#93;&#58;nStyle &#58;= nAnd&#40; oBtn&#91; 8 &#93;&#58;nStyle, nNot&#40; WS_TABSTOP &#41; &#41;\n\n   @0, 20 SBUTTON oBtn&#91; 9 &#93; OF oDlg FONT oFont ;\n            SIZE 12, 8 PIXELS ;\n            PROMPT &quot;&amp;Exit&quot; ;\n            MESSAGE &quot;Emulating menus in dialogs with Super Buttons&quot; ;\n            ACTION oDlg&#58;End&#40;&#41; ;\n            TOOLTIP &quot;LOOK W97, CANCEL, text only&quot; ;\n            LOOK W97 CANCEL\n\n   // we don\'t want tab stop in menus\n   oBtn&#91; 9 &#93;&#58;nStyle &#58;= nAnd&#40; oBtn&#91; 9 &#93;&#58;nStyle, nNot&#40; WS_TABSTOP &#41; &#41;\n\n   @ 31, 62 GET oGet VAR cVar OF oDlg SIZE 51, 11 PIXEL;\n            VALID &#40; If&#40; Empty&#40; cVar &#41;, ;\n                    &#40; Msginfo&#40; &quot;You must to write something in get&quot; &#41;, ;\n                      &#46;F&#46; &#41;, &#46;T&#46; &#41; &#41;\n\n   @59, 1 SBUTTON oBtn&#91; 1 &#93; FONT oFont ;\n            SIZE 50, 25 PIXELS ;\n            RESOURCE &quot;OK1&quot;, &quot;OK2&quot;, &quot;OK3&quot;, &quot;OK4&quot; OF oDlg ;\n            PROMPT &quot;A&amp;ctivate&quot; ;\n            ACTION &#40; lEnable &#58;= ! lEnable, oBtn&#91; 3 &#93;&#58;Refresh&#40;&#41;, ;\n                     oBtn&#91; 5 &#93;&#58;Refresh&#40;&#41; &#41;;\n            TOOLTIP &quot;BRUSH, TEXT ON_TOP&quot; ;\n            MESSAGE &quot;Write anything in Get to use this button&quot; ;\n            COLORS &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_WHITE, CLR_BLACK &#41; &#125;, ;\n                   CLR_HGRAY ;\n            BRUSH oBrush ;\n            TEXT POSITION ON_TOP\n\n   // background color is degraded &#40;two colors&#41; with circled gradient &#40;5&#41;\n   @59, 61 SBUTTON oBtn&#91; 2 &#93; FONT oFont ;\n            SIZE 50, 25 PIXELS ;\n            RESOURCE &quot;CANCEL1&quot;, &quot;CANCEL2&quot;, &quot;CANCEL3&quot;, &quot;CANCEL4&quot; ;\n            OF oDlg PROMPT &quot;Ca&amp;ncel&quot; ;\n            ACTION oDlg&#58;End&#40;&#41; ;\n            TOOLTIP &quot;TEXT ON RIGHT &#40;Default&#41;, ROUND, MENU, CANCEL&quot; ;\n            MESSAGE &quot;Super Buttons with menu&quot; ;\n            CANCEL ;\n            ROUNDRECT ;    // elliptic button\n            COLORS CLR_WHITE, &#123; CLR_HGREEN, CLR_BLACK, 5 &#125; ;  // degraded background color\n            MENU ACTION MenuPop&#40; Self &#41;\n\n   // background color is degraded &#40;two colors&#41; with gradient to horiz center &#40;4&#41;\n   @59, 121 SBUTTON oBtn&#91; 3 &#93; FONT oFont ;\n            SIZE 50, 25 PIXELS ;\n            RESOURCE &quot;HELP1&quot;, &quot;HELP2&quot;, &quot;HELP3&quot;, &quot;HELP4&quot; OF oDlg ;\n            PROMPT &quot;&amp;Multi&quot; + CRLF + &quot;Line&quot; + CRLF + &quot;Text&quot; ;\n            ACTION MsgInfo&#40; &quot;Ok&quot; &#41; ;\n            MESSAGE &quot;Super Buttons&#58; Multiline text, Dinamic Colors&quot; ;\n            TOOLTIP &quot;TEXT ON RIGHT, ROUND&quot; ;\n            WHEN lEnable ;\n            TEXT POSITION ON_RIGHT ;\n            COLORS &#123;|oBtn| If&#40; oBtn&#58;lActive, ;\n                           If&#40; oBtn&#58;lMouseOver, CLR_YELLOW, CLR_HBLUE&#41;, ;\n                           CLR_BLACK &#41; &#125;, ;\n                   &#123;|oBtn| If&#40; oBtn&#58;lActive, ;\n                   &#123; CLR_YELLOW, CLR_GREEN, 4 &#125;, ; // degraded background color\n                   CLR_GRAY &#41; &#125; ;\n            ROUNDRECT  // elliptic button\n\n   // background color is degraded &#40;two colors&#41; with gradient to vert center &#40;3&#41;\n   @98, 7 SBUTTON oBtn&#91; 4 &#93; ;\n            SIZE 28, 28 PIXELS ;\n            RESOURCE &quot;STOP1&quot;,&quot;STOP2&quot;,&quot;STOP3&quot;, &quot;STOP4&quot; OF oDlg ;\n            PROMPT &quot;&amp;Prueba&quot; ;\n            ACTION &#40; MsgInfo&#40; &quot;Ok&quot; &#41;, oGet&#58;SetFocus&#40;&#41; &#41; ;\n            MESSAGE &quot;Super Buttons with menu&#46; Degraded background color&#46;&quot; ;\n            TOOLTIP &quot;TEXT ON_TOP, BITMAP OPAQUE, MENU, NOBORDER, CANCEL&quot; ;\n            NOBORDER ;\n            COLORS &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_WHITE, CLR_BLACK &#41; &#125;, ;\n                    &#123; CLR_BLUE, CLR_WHITE, 3&#125; ; // degraded background color\n            BITMAP OPAQUE ;\n            CANCEL ;\n            TEXT POSITION ON_TOP ;\n            MENU ACTION MenuPop&#40; Self &#41;\n\n   // background color is degraded &#40;two colors&#41; with vertical gradient &#40;1&#41;\n   @98, 52 SBUTTON oBtn&#91; 5 &#93; FONT oFont ;\n            SIZE 28, 28 PIXELS ;\n            RESOURCE &quot;STOP1&quot;, &quot;STOP2&quot;, &quot;STOP3&quot;, &quot;STOP4&quot; OF oDlg ;\n            PROMPT &quot;P&amp;rueba&quot; ;\n            ACTION &#40; MsgInfo&#40; &quot;Ok&quot; &#41;, oGet&#58;SetFocus&#40;&#41; &#41; ;\n            WHEN lEnable ;\n            TOOLTIP &quot;TEXT ON_BOTTOM CANCEL, ROUND&quot; ;\n            COLORS &#123; |oBtn| If&#40; oBtn&#58;lMouseOver, CLR_BLUE, CLR_BLACK &#41; &#125;, ;\n                   &#123; |oBtn| If&#40; oBtn&#58;lActive, ;\n                     &#123;CLR_WHITE, CLR_RED, 1 &#125;, ; // degraded background color\n                     CLR_GRAY &#41; &#125; ;\n            CANCEL ;\n            ROUND BORDER ;   // elliptic button\n            TEXT POSITION ON_BOTTOM\n\n   @98, 95 SBUTTON oBtn&#91; 6 &#93; FONT oFont ;\n            SIZE 27, 28 PIXELS ;\n            RESOURCE &quot;HELP1&quot;, &quot;HELP2&quot;, &quot;HELP3&quot;, &quot;HELP4&quot;  OF oDlg ;\n            PROMPT &quot;Pr&amp;ueba&quot; ;\n            ACTION MsgInfo&#40; &quot;Ok&quot;&#41; ;\n            TOOLTIP &quot;LOOK W97, TEXT ON_BOTTOM&quot; ;\n            MESSAGE &quot;Write anything in Get to use this button&quot; ;\n            TEXT POSITION ON_BOTTOM ;\n            LOOK W97\n\n   @98, 138 SBUTTON oBtn&#91; 7 &#93; FONT oFont ;\n            SIZE 27, 28 PIXELS ;\n            RESOURCE &quot;HELP1&quot;, &quot;HELP2&quot;, &quot;HELP3&quot;, &quot;HELP4&quot;  OF oDlg ;\n            PROMPT &quot;Pr&amp;ueba&quot; ;\n            ACTION MsgInfo&#40; &quot;Ok&quot;&#41; ;\n            MESSAGE &quot;Super Buttons with menu and Look W97&quot; ;\n            TOOLTIP &quot;LOOK W97, MENU, TEXT ON_TOP&quot; ;\n            TEXT POSITION ON_TOP ;\n            MENU ACTION MenuPop&#40; Self &#41; ;\n            LOOK W97\n\n   // Now TSLines is included in TSButton\n   ACTIVATE DIALOG oDlg CENTERED ON INIT &#40; oGet&#58;SetFocus&#40;&#41;, ;\n            oDlg&#58;oMsgBar &#58;= TMsgBar&#40;&#41;&#58;New&#40; oDlg, &quot;Super Buttons, ¡ All of &quot; + ;\n            &quot;the buttons in a stand alone class &#40;NO BtnBmp subclass&#41;&quot; &#41; &#41; ;\n            ON PAINT TSLines&#40;&#41;&#58;New&#40; 19, 0, 500,, &quot;HLINE&quot;, oDlg, CLR_WHITE, CLR_GRAY &#41;\n\n   oFont&#58;End&#40;&#41;\n   oBrush&#58;End&#40;&#41;\n\nReturn Nil\n[/code:2s0182px]\n\n\n\nI  not understand where i must modify  to run sbutton ok !!!!','',0,'AIA=','2s0182px',1,0,'',49,0,0),(15609,3561,20,49,0,'62.13.172.78',1152782462,1,0,1,1,1,1,'','status bar','volevo sapere come fare per inserire una bitmpa sulla status bar e la relativa action .\n\nsi attiva come un msgitem  sulla msgbar ? e come ?','',0,'AIA=','3sjamo42',1,0,'',49,0,0),(15610,3562,3,89,0,'213.21.136.60',1152784086,1,0,1,1,1,0,'','TreeView recreate the tree','It is possible delete all the item , and recreate the tree ? \n\nregards Maurizio','',0,'AIA=','18umlji0',1,0,'',89,0,0),(15611,3554,3,2,0,'87.218.146.220',1152784160,1,0,1,1,1,1,'','','James,\n\nThanks,','',0,'AIA=','3ojl0oj2',1,0,'',2,0,0),(15612,3417,3,439,0,'190.0.136.54',1152792772,1,0,1,1,1,1,'','','As you can see in the code you have two ways to asign the bmps you will show at the button.\n\n1) to assign 4 bmps for each button\n\nresource \"bmp1\", \"bmp2\", \"bmp3\", \"bmp4\"\n\n2) to assign one multiple bmp to the button if you see at seatm.bmp (the \"m\" is for multiple) you will find four images in it.\n\nresource \"animated bmpmultiple\"\n\nWhat you have to do at the buttons with multiple bmp is to change RESOURCE \"animated seatm\" for RESOURCE \"seat1\", \"seat2\", \"seat3\", \"seat4\" using 4 bmps and not a multiple bmp, multiple bmp support doesn\'t work properly wiht [x]Harbour.\n\n(Of course you will have to create seat1.bmp, seat2.bmp becouse they dont exist)\n\nI hope this will help, Im sorry for my bad english. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1uw38i76',1,0,'',439,0,0),(15613,3556,3,217,0,'200.159.120.34',1152793019,1,0,1,1,1,0,'','','Ari,\n\nCreio que fazendo oFolder:SetColor(CLR_BLACK, CLR_YELLOW) ele mude a cor. Caso não dê certo, coloque este comando no ON INIT da sua dialog, por exemplo:\n\nactivate oDlg on init oFolder:SetColor(CLR_BLACK, CLR_YELLOW)\n\n[ ]\'s\nMaurilio','',0,'','2arhowbu',1,0,'',217,0,0),(15614,3562,3,58,0,'84.149.251.106',1152794362,1,0,1,1,1,0,'','','Hi Mauricio,\n\ndid you try oTrView:[b:25mnq5r6]DeleteAll()[/b:25mnq5r6] ?\n\nAfter you may use the method ::Add() to recreate your tree.\n\nRegards,\nDetlef','',0,'QA==','25mnq5r6',1,0,'',58,0,0),(15615,3562,3,89,0,'213.21.136.60',1152795439,1,0,1,1,1,0,'','','Detlef\n\nthere is not <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->eleteAll() in the treeview class.\n\nI have a old tree32.lib but it is with a old PCODE, there are the source for recompile ? \n\nRegards Maurizio','',0,'QA==','3lpqh92n',1,0,'',89,0,0),(15616,3562,3,89,0,'213.21.136.60',1152796204,1,0,1,1,1,0,'','','Detlef \n\nsorry   ::DeleteAll() works very well .\n\nThank \n\nMaurizio','',0,'QA==','3p7ud2f2',1,0,'',89,0,0),(15617,3563,6,649,0,'201.67.167.30',1152796246,1,0,1,1,1,1,'','Trocar impressora com Crystal Reports','Ola Amigos. ¿Cómo hago para cambiar la impresora con lo Crystal Reports? El ser ése con el TCRW solo él imprime en el estándar\nde la impresora.\n\n[i:1t3ur90q]Ola Amigos. Como faço para trocar a impressora com o Crystal Reports.? Sendo que com a TCRW só imprime na impressora padrão.[/i:1t3ur90q]','',0,'IA==','1t3ur90q',1,0,'',649,0,0),(15618,3564,3,69,0,'206.210.97.138',1152796366,1,0,1,1,1,0,'','Dialog - Readonly','Hi Everybody,\n\nIs there a way to set all the gets in a dialog to readonly then with a click of a button allow editing?\n\n\nThanks.\n\nJeff','',0,'IA==','1xu2ch15',1,0,'',69,0,0),(15619,3562,3,58,0,'84.149.251.106',1152796401,1,0,1,1,1,0,'','','Mauricio,\n\nthe oldest version of FWH i have on my disk is FWH 2.5.\nThe DeleteAll() method already exists in the tTreeviw class of FWH 2.5.\n\nUnfortunatelly i don\'t have an idea about a tree32.lib.\n\nRegards,\nDetlef','',0,'IA==','1jib6wms',1,0,'',58,0,0),(15620,3548,6,36,0,'200.113.56.235',1152799661,1,0,1,1,1,0,'','','Rodolfo:\n\nEsta rutina me ha funciona perfectamente\n\nfunciona de la siguiente manera:\n\n1.- Cuando instalo una actualización guardo en la carpeta update\\ dos archivo, uno el ejecutable.exe y otro la update.ini, que es el siguiente\n\n[code:bbiansrx]\n_____________________________________________________________ Sistema Administrativo			                           Version 1&#46;0&#46;0\n                                    &#40;c&#41; copyright&#58; Patricio Avalos Aguirre, 2005\n                                             patricio_avalos_aguirre@hotmail&#46;com\n _____________________________________________________________\n&#91;Version&#93;\nnumero=1&#46;0&#46;19\n&#91;Revision&#93;\n;08 Julio del 2006, versión 1&#46;0&#46;19\n;bla bla bla&#46;&#46;\n;y mas blabla\n[/code:bbiansrx]\n\n[code:bbiansrx]\n#Define DRIVELOCAL DiskName&#40;&#41; + &quot;&#58;\\&quot;+Curdir&#40;&#41;\n\nStatic oApp\n\nprocedure Main&#40;&#41;\n\n//mi programa bla bla bla&#46;&#46;&#46;\n\nreturn\n\n//-----------------------------------------------------------------------\nInit Procedure Inicio&#40;&#41;\n\n	oApp &#58;= MyApp&#40;&#41;&#58;Load&#40;&#41;\n	aEval&#40; DIRECTORY&#40; oApp&#58;cPathTmp + &quot;\\*&#46;*&quot; &#41;, &#123; |aFichero| fErase&#40; oApp&#58;cPathTmp + &quot;\\&quot;+aFichero&#91;1&#93; &#41; &#125; &#41;\n\n	if VerUpdate&#40;&#41;\n		PostQuitMessage&#40; 0 &#41;\n		QUIT\n	endif\n\nreturn\n\n//-----------------------------------------------------------------------\n\nCREATE CLASS MyApp\n\n	VAR Usuario 			AS CHARACTER	INIT &quot;&quot;\n	VAR Nombre 				AS CHARACTER	INIT &quot;&quot;\n	VAR Grupo 				AS CHARACTER	INIT &quot;&quot;\n	VAR Depto 				AS CHARACTER	INIT &quot;&quot;\n	VAR Clave       		AS CHARACTER	INIT &quot;&quot;\n\n	VAR cPathTmp			AS CHARACTER	INIT DRIVELOCAL + &quot;\\TEMPORAL&quot;\n	VAR cPathDbf   		AS CHARACTER	INIT DRIVELOCAL + &quot;\\DATOS&quot;\n	VAR cPathUpd   		AS CHARACTER	INIT DRIVELOCAL + &quot;\\UPDATE&quot;\n	VAR cPathLocal  		AS CHARACTER   INIT DRIVELOCAL\n\n	//impresion\n	VAR Factura  			AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR Boleta  			AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR GDespacho   		AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR ordenCompra      AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR Cotizacion       AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR GRecepcion       AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR SaliBode   		AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR ordentrabajo 		AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR Cajadiaria 		AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR nCredito	 		AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR Arriendo         AS CHARACTER  INIT &quot;LPT1&quot;\n	VAR Finiquito        AS CHARACTER  INIT &quot;LPT1&quot;\n\n	VAR AdsServer     AS NUMERIC	     INIT &quot;&quot;\n	VAR AdsConnect    AS NUMERIC	  	  INIT ADS_LOCAL_SERVER\n	VAR cVersion		   AS CHARACTER  INIT &quot;1&#46;0&#46;0&quot;\n\n	METHOD Load&#40;&#41;\n	METHOD Save&#40;&#41;\n	METHOD End&#40;&#41; 	INLINE &#58;&#58;Save&#40;&#41;\n\nENDCLASS\n//------------------------------------------------------------------------------------------------\nMETHOD Load&#40; oDbf &#41; CLASS MyApp\nlocal oIni\n\nINI oIni FILE &#40;&#58;&#58;cPathLocal + &quot;\\wInvent&#46;ini&quot;&#41;\n\n	GET &#58;&#58;cPathDbf 	 SECTION &quot;Servidor&quot; ENTRY &quot;Name&quot; 			OF oIni DEFAULT &quot;&quot;\n	GET &#58;&#58;cPathUpd 	 SECTION &quot;Servidor&quot; ENTRY &quot;Update&quot;  		OF oIni DEFAULT &quot;&quot;\n\n	GET &#58;&#58;Factura  	 SECTION &quot;Puertos&quot;  ENTRY &quot;Factura&quot; 		OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;Boleta		 SECTION &quot;Puertos&quot;  ENTRY &quot;Boleta&quot; 			OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;GDespacho	 SECTION &quot;Puertos&quot;  ENTRY &quot;GDespacho&quot; 		OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;OrdenCompra  SECTION &quot;Puertos&quot;  ENTRY &quot;ordencompra&quot; 	OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;Cotizacion   SECTION &quot;Puertos&quot;  ENTRY &quot;Cotizacion&quot;  	OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;GRecepcion   SECTION &quot;Puertos&quot;  ENTRY &quot;GRecepcion&quot;  	OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;SaliBode 	 SECTION &quot;Puertos&quot;  ENTRY &quot;SaliBode&quot; 		OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;ordentrabajo SECTION &quot;Puertos&quot;  ENTRY &quot;ordentrabajo&quot; 	OF oIni DEFAULT &quot;LPT1&quot;\n	GET &#58;&#58;Cajadiaria	 SECTION &quot;Puertos&quot;  ENTRY &quot;CajaDiaria&quot; 	OF oIni DEFAULT &quot;LPT1&quot;\n\n	GET &#58;&#58;cVersion     SECTION &quot;Version&quot;  ENTRY &quot;Version&quot; 		OF oIni DEFAULT &quot;1&#46;0&#46;0&quot;\n	GET &#58;&#58;Usuario      SECTION &quot;Usuario&quot;  ENTRY &quot;Usuario&quot;	   	OF oIni DEFAULT &quot;&quot;\n	GET &#58;&#58;Nombre       SECTION &quot;Usuario&quot;  ENTRY &quot;Nombre&quot;	   	OF oIni DEFAULT &quot;&quot;\n\n	GET &#58;&#58;AdsServer    SECTION &quot;ServerAds&quot;  ENTRY &quot;Servidor&quot;	 	OF oIni DEFAULT &quot;&quot;\n	GET &#58;&#58;AdsConnect   SECTION &quot;ServerAds&quot;  ENTRY &quot;TypeConnect&quot;	OF oIni DEFAULT ADS_LOCAL_SERVER\n\n	&#58;&#58;Factura  	  &#58;= Alltrim&#40; &#58;&#58;Factura    &#41;\n	&#58;&#58;Boleta 	  &#58;= Alltrim&#40; &#58;&#58;Boleta    &#41;\n	&#58;&#58;GDespacho	  &#58;= Alltrim&#40; &#58;&#58;GDespacho  &#41;\n	&#58;&#58;OrdenCompra &#58;= Alltrim&#40; &#58;&#58;OrdenCompra&#41;\n	&#58;&#58;Cotizacion  &#58;= Alltrim&#40; &#58;&#58;Cotizacion &#41;\n	&#58;&#58;GRecepcion  &#58;= Alltrim&#40; &#58;&#58;GRecepcion &#41;\n	&#58;&#58;SaliBode 	  &#58;= Alltrim&#40; &#58;&#58;SaliBode   &#41;\n	&#58;&#58;CajaDiaria  &#58;= Alltrim&#40; &#58;&#58;CajaDiaria &#41;\n\nENDINI\n\nreturn&#40; Self &#41;\n// --------------------------------------------------------------------------------------------\nMETHOD Save&#40; oDbf &#41; CLASS MyApp\nlocal oIni\n\nif !empty&#40; &#58;&#58;Usuario &#41;\n	INI oIni FILE &#40;&#58;&#58;cPathLocal + &quot;\\wInvent&#46;ini&quot;&#41;\n	oIni&#58;Set&#40; &quot;Usuario&quot;, &quot;Usuario&quot;, &#58;&#58;Usuario &#41;\n	oIni&#58;Set&#40; &quot;Usuario&quot;, &quot;Nombre&quot;, &#58;&#58;Nombre &#41;\n	oIni &#58;= NIL\nendif\n\nreturn&#40; NIL &#41;\n// --------------------------------------------------------------------------------------------\nFunction ViewUsu&#40;&#41;\nReturn&#40; oApp &#41;\n// --------------------------------------------------------------------------------------------\nstatic function VerUpdate&#40;&#41;\n	local oIniUpdate, oIniLocal, cVersion, cVersion2, lReturn &#58;= &#46;f&#46;\n\n	if !file&#40; ViewUsu&#40;&#41;&#58;cPathUpd + &quot;\\Update&#46;exe&quot; &#41; &#46;or&#46; !file&#40; ViewUsu&#40;&#41;&#58;cPathUpd + &quot;\\Wcta&#46;exe&quot; &#41;\n		return&#40; lReturn &#41;\n	endif\n\n	INI oIniUpdate FILE &#40; ViewUsu&#40;&#41;&#58;cPathUpd + &quot;\\update&#46;ini&quot; &#41;\n	GET cVersion SECTION &quot;Version&quot; ENTRY &quot;numero&quot; OF oIniUpdate DEFAULT &quot;1&#46;0&#46;0&quot;\n\n	INI oIniLocal FILE &#40;ViewUsu&#40;&#41;&#58;cPathLocal + &quot;\\wInvent&#46;ini&quot;&#41;\n\n	GET cVersion2 SECTION &quot;Version&quot; ENTRY &quot;Version&quot; OF oIniLocal DEFAULT &quot;1&#46;0&#46;0&quot;\n\n	if PadR&#40; cVersion2,6 &#41; &lt;&gt; PadR&#40; cVersion,6 &#41;\n		if Parame-&gt;&#40; NetRLock&#40;&#41; &#41;\n			Parame-&gt;Version &#58;= cVersion\n			WinExec&#40; ViewUsu&#40;&#41;&#58;cPathUpd+&quot;\\Update&#46;exe &quot;+cVersion &#41;\n			lReturn &#58;= &#46;t&#46;\n		endif\n	endif\n	USE\n\nreturn&#40; lReturn &#41;\n//------------------------------------------------------------------------------------------------\n[/code:bbiansrx]\n\n\n[code:bbiansrx]//programa update&#46;exe\n//este debe compilarse solo&#46;&#46;&#46;\n\n#include &quot;ini&#46;ch&quot;\n#include &quot;FiveWin&#46;ch&quot;\n#Define DRIVELOCAL DiskName&#40;&#41; + &quot;&#58;\\&quot;+Curdir&#40;&#41;\n//----------------------------------------------------------------------------\nfunction Update&#40; cValor &#41;\nlocal PATHSERVER,	PATHDATOS, lExe, oIni, Usuario\n\n	if empty&#40; cValor &#41;\n		return&#40; &#46;f&#46; &#41;\n	endif\n\n	INI oIni FILE &#40;DRIVELOCAL + &quot;\\wInvent&#46;ini&quot;&#41;\n		GET Usuario      SECTION &quot;Usuario&quot;  ENTRY &quot;Usuario&quot; OF oIni DEFAULT &quot;&quot;\n		GET PATHSERVER   SECTION &quot;Servidor&quot; ENTRY &quot;Update&quot;	 OF oIni DEFAULT &quot;&quot;\n		GET PATHDATOS    SECTION &quot;Servidor&quot; ENTRY &quot;Name&quot;    OF oIni DEFAULT &quot;&quot;\n  	ENDINI\n\n	if !file&#40; PATHSERVER + &quot;\\wcta&#46;exe&quot; &#41;\n		MsgInfo&#40; &quot;Falta un archivo imposible actualizar&quot; +CRLF+;\n	   PATHSERVER + &quot;\\wcta&#46;exe&quot;, &quot;Usuario&quot; &#41;\n		return&#40; &#46;f&#46; &#41;\n	endif\n\n	if file&#40; DRIVELOCAL + &quot;\\wcta&#46;ex_&quot; &#41;\n		if fErase&#40; DRIVELOCAL + &quot;\\wcta&#46;ex_&quot; &#41; = -1\n			MsgInfo&#40; &quot;Favor borrar archivo de respaldo &quot;+DRIVELOCAL + &quot;\\wcta&#46;ex_&quot;, &quot;Usuario&quot; &#41;\n			return&#40; &#46;f&#46; &#41;\n		endif\n	endif\n\n	MsgInfo&#40; &quot;Actualización Sistema Win-Facturación&quot; + CRLF + &quot;Versión &quot;+cValor &#41;\n\n	if fRename&#40; DRIVELOCAL + &quot;\\wcta&#46;exe&quot;, DRIVELOCAL + &quot;\\wcta&#46;ex_&quot; &#41; = -1\n		Msginfo&#40; &quot;Error al actualizar&quot;+CRLF+&quot;Cierre todos las ventanas del sistema&quot;+CRLF+CRLF+ &quot;si persiste este error reinicie la maquina&quot;, &quot;usuario&quot; &#41;\n		return&#40; &#46;f&#46; &#41;\n	endif\n\n	Usuario &#58;= Alltrim&#40; Usuario &#41;\n\n   lExe &#58;= &#46;f&#46;\n\n   MsgRun&#40; &quot;Actualizando aplicación&#46;&#46;&quot;, &quot;Espere&#46;&#46;&quot;, ;\n  	   		&#123; || lExe &#58;= CopyFile&#40; PATHSERVER + &quot;\\wcta&#46;exe&quot;,;\n  	   	 								  DRIVELOCAL + &quot;\\wcta&#46;exe&quot;, &#46;f&#46; &#41; &#125; &#41;\n\n	if lExe //sa ha copiado correctamente\n\n		oIni &#58;= TIni&#40;&#41;&#58;New&#40;  DRIVELOCAL + &quot;\\wInvent&#46;Ini&quot; &#41;\n\n		oIni&#58;Set&#40; &quot;Version&quot;, &quot;Version&quot;, cValor &#41;\n		oIni&#58;Set&#40; &quot;Creado&quot;, &quot;Programador&quot;, &quot;Patricio Avalos Aguirre&quot; &#41;\n		oIni&#58;Set&#40; &quot;Creado&quot;, &quot;Email&quot;, &quot;patricio_avalos_aguirre@hotmail&#46;com&quot; &#41;\n		oIni&#58;Set&#40; &quot;Creado&quot;, &quot;Copyright&#40;c&#41;&quot;, &quot;2005&quot; &#41;\n\n		MsgInfo&#40; &quot;Actualización se ha realizado con éxito&quot; + CRLF + CRLF +;\n					&quot;Vuelva a ejecutar el sistema&quot;, &quot;Agrotec Ltda&#46;&quot; &#41;\n\n		fErase&#40; DRIVELOCAL + &quot;\\wcta&#46;ex_&quot; &#41;\n\n	else\n\n		if file&#40; DRIVELOCAL + &quot;\\wcta&#46;exe&quot; &#41;\n			fErase&#40; DRIVELOCAL + &quot;\\wcta&#46;exe&quot; &#41;\n		endif\n\n		fRename&#40; DRIVELOCAL + &quot;\\wcta&#46;ex_&quot;, DRIVELOCAL + &quot;\\wcta&#46;exe&quot; &#41; //volvemos el resplado a su origen\n\n		MsgInfo&#40; &quot;Error Al actualizar!!&quot;+ CRLF + CRLF + &quot;EXE Error&quot; + CRLF + CRLF + ;\n					&quot;Comuniquese con Patricio Avalos Aguirre&quot;+CRLF+&quot;Email&#58;patricio_avalos_aguirre@hotmail&#46;com&quot;, &quot;Actualización&quot; &#41;\n\n	endif\n\nReturn&#40; &#46;t&#46; &#41;\n//-----------------------------------------------------------------------------------------------------\n//no recuerdo el autor de esta funcion, pero no es mía\nstatic function CopyFile&#40; cORIGEN, cDestino, lBorrar &#41;\n   local cBuffer, fIfile, fOfile, nNumRead\n\n   DEFAULT lBorrar &#58;= &#46;F&#46;\n\n   #DEFINE BUF_SIZE 1024\n   cBuffer &#58;= SPACE&#40;BUF_SIZE&#41;\n\n   fIfile &#58;= FOPEN&#40;cORIGEN&#41;\n\n   IF FERROR&#40;&#41; != 0\n      MsgStop&#40;&quot;Error no se ha podido abrir el fichero &quot;+ CRLF+ CRLF + cORIGEN &#41;\n      return&#40; &#46;f&#46; &#41;\n   ENDIF\n\n   fOFile   &#58;= LCreat&#40; cDestino,0 &#41;\n\n   IF FERROR&#40;&#41; != 0\n      MsgStop&#40;&quot;Error no se ha podido crear el fichero &quot;+CRLF+cDESTINO&#41;\n		FCLOSE&#40;fIFile&#41;\n      return&#40; &#46;f&#46; &#41;\n   ENDIF\n\n   nNumRead &#58;= FREAD&#40;fIfile,@cBuffer,BUF_SIZE&#41;\n   DO WHILE nNumRead == BUF_SIZE\n      FWRITE&#40;fOfile, cBuffer, BUF_SIZE&#41;\n      nNumRead &#58;= FREAD&#40;fIFile,@cBuffer,BUF_SIZE&#41;\n   ENDDO\n   FWRITE&#40;fOfile, cBuffer, nNumRead&#41;\n   FCLOSE&#40;fIFile&#41;\n   FCLOSE&#40;fOFile&#41;\n   IF lBorrar\n      FERASE&#40;cORIGEN&#41;\n   ENDIF\n\nreturn&#40; &#46;t&#46; &#41;\n//------------------------------------------------------------------------------------------------\n[/code:bbiansrx]\n\nEspero que te sirva, \n\nSaludos\nPatricio \n\n[u:bbiansrx]La Serena, Chile[/u:bbiansrx]','',0,'AYA=','bbiansrx',1,0,'',36,0,0),(15621,3564,3,58,0,'84.149.202.193',1152799789,1,0,1,1,1,0,'','','Hi Jeff,\n\nyou could use a when clause.\n\n... oGet ... WHEN lEdit\n\nYour button could then switch this flag like \n\n... BUTTON ... ACTION ( lEdit := !lEdit, oDlg:AevalWhen() )\n\nMay be this could help?\n\nRegards,\nDetlef','',0,'AYA=','121vl13e',1,0,'',58,0,0),(15622,3564,3,343,0,'204.57.111.194',1152801048,1,0,1,1,1,0,'','','FUNCTION OnOff( oDlg, lOn )\n   DEFAULT lOn := .t.\n   FOR nI := 1 TO LEN( oDlg:aControls )\n      IF oDlg:aControls[ nI ]:ClassName() = \"TGET\" .or. oDlg:aControls[ nI ]:ClassName() = \"TCHECKBOX\" // etc\n         IF lOn\n            oDlg:aControls[ nI ]:Enable()\n         ELSE\n            oDlg:aControls[ nI ]:Disable()\n         ENDIF\n      ENDIF\n      IF oDlg:aControls[ nI ]:ClassName() = \"TFOLDER\"\n         FOR nIFold := 1 TO LEN( oDlg:aControls[ nI ]:aDialogs )\n            FOR nFoldI := 1 TO LEN( oDlg:aControls[ nI ]:aDialogs[ nIFold ]:aControls )\n               IF oDlg:aControls[ nI ]:aDialogs[ nIFold ]:aControls[ nFoldI ]:ClassName() = \"TGET\" .or. ;\n                     oDlg:aControls[ nI ]:aDialogs[ nIFold ]:aControls[ nFoldI ]:ClassName() = \"TCHECKBOX\" // etc\n                  IF lOn\n                     oDlg:aControls[ nI ]:aDialogs[ nIFold ]:aControls[ nFoldI ]:enable()\n                  ELSE\n                     oDlg:aControls[ nI ]:aDialogs[ nIFold ]:aControls[ nFoldI ]:disable()\n                  ENDIF\n               ENDIF\n            NEXT\n         NEXT\n      ENDIF\n   NEXT\nRETURN nil','',0,'','381nuinx',1,0,'',343,0,0),(15623,3565,3,308,0,'84.148.15.135',1152801068,1,0,1,1,1,0,'','Read inbox from Outlook','Hi Everybody,\n\nDoes someone have experiences of you to read the inbox in Outlook via OLE?  \n\nYet some variable names are missing for fromeMail, toemail etc..  \n\nGreeting, Norbert\n\n[code:31gax1v9]/\n   TRY\n      oOL &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Outlook&#46;Application&quot; &#41;\n      lOutlookOK &#58;= &#46;T&#46;\n   CATCH\n      lOutlookOK &#58;= &#46;F&#46;\n   END\n   IF ! lOutlookOK\n      RETURN &#40; 0 &#41;\n   ENDIF\n\n   oNameSpace   = oOL&#58;Get&#40; &quot;GetNameSpace&quot;, &quot;MAPI&quot; &#41;\n   oContacts    = oNameSpace&#58;Get&#40; &quot;GetDefaultFolder&quot;, &quot;6&quot; &#41;  // 6 = Inbox-Folder\n   \n   FOR nContador = 1 TO oContacts&#58;ITEMS&#58;Count&#40;&#41;\n         oNewContact  = oContacts&#58;ITEMS&#40; nContador &#41;\n         cSenderName	&#58;= oNewContact&#58;get&#40; &quot;SenderName&quot; &#41;\n         cSubject		&#58;= oNewContact&#58;get&#40; &quot;Subject&quot; &#41;\n\n  &gt;&gt;&gt;&gt; ??????\n\n   NEXT nContador\nRETURN NIL\n\n[/code:31gax1v9]','',0,'AIA=','31gax1v9',1,0,'',308,0,0),(15624,3566,6,308,0,'84.148.15.135',1152801164,1,0,1,1,1,0,'','Read inbox from Outlook','Hi Everybody,\n\nDoes someone have experiences of you to read the inbox in Outlook via OLE?  \n\nYet some variable names are missing for fromeMail, toemail etc..  \n\nGreeting, Norbert\n\n[code:38583n1r]/\n   TRY\n      oOL &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Outlook&#46;Application&quot; &#41;\n      lOutlookOK &#58;= &#46;T&#46;\n   CATCH\n      lOutlookOK &#58;= &#46;F&#46;\n   END\n   IF ! lOutlookOK\n      RETURN &#40; 0 &#41;\n   ENDIF\n\n   oNameSpace   = oOL&#58;Get&#40; &quot;GetNameSpace&quot;, &quot;MAPI&quot; &#41;\n   oContacts    = oNameSpace&#58;Get&#40; &quot;GetDefaultFolder&quot;, &quot;6&quot; &#41;  // 6 = Inbox-Folder\n   \n   FOR nContador = 1 TO oContacts&#58;ITEMS&#58;Count&#40;&#41;\n         oNewContact  = oContacts&#58;ITEMS&#40; nContador &#41;\n         cSenderName	&#58;= oNewContact&#58;get&#40; &quot;SenderName&quot; &#41;\n         cSubject		&#58;= oNewContact&#58;get&#40; &quot;Subject&quot; &#41;\n\n  &gt;&gt;&gt;&gt; ??????\n\n   NEXT nContador\nRETURN NIL\n\n[/code:38583n1r]','',0,'AIA=','38583n1r',1,0,'',308,0,0),(15625,3567,23,308,0,'84.148.15.135',1152801404,1,0,1,1,1,0,'','Posteingang bei Outlook auslesen','Hallo alle zusammen,\n\nhat jemand von Euch Erfahrung mit Outlook und OLE ?\nIch möchte gerne meinen Posteingang von Outlook einlesen. Leider finde ich die Variablennamen nicht raus. Hat da jemand einen Tipp für mich ?\n\nSoweit bin ich gekommen:\n\n[code:2r050t63]/\n   TRY\n      oOL &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Outlook&#46;Application&quot; &#41;\n      lOutlookOK &#58;= &#46;T&#46;\n   CATCH\n      lOutlookOK &#58;= &#46;F&#46;\n   END\n   IF ! lOutlookOK\n      RETURN &#40; 0 &#41;\n   ENDIF\n\n   oNameSpace   = oOL&#58;Get&#40; &quot;GetNameSpace&quot;, &quot;MAPI&quot; &#41;\n   oContacts    = oNameSpace&#58;Get&#40; &quot;GetDefaultFolder&quot;, &quot;6&quot; &#41;  // 6 = Inbox-Folder\n   \n   FOR nContador = 1 TO oContacts&#58;ITEMS&#58;Count&#40;&#41;\n         oNewContact  = oContacts&#58;ITEMS&#40; nContador &#41;\n         cSenderName	&#58;= oNewContact&#58;get&#40; &quot;SenderName&quot; &#41;\n         cSubject		&#58;= oNewContact&#58;get&#40; &quot;Subject&quot; &#41;\n\n  &gt;&gt;&gt;&gt; ??????\n\n   NEXT nContador\nRETURN NIL\n\n[/code:2r050t63]\n\nViele Grüße,\n   Norbert','',0,'AIA=','2r050t63',1,0,'',308,0,0),(15626,3563,6,89,0,'213.21.136.60',1152802585,1,0,1,1,1,0,'','','kbelo \n\nI use \n\n      PrinterSetup()\n      cPrinter := PrnGetName()\n      cDriver  := PrnGetDrive()\n      cPort   := PrnGetPort()\n      oCrw:SetPrinter32( cDriver, cPrinter, cPort)\n\n\nMethod SetPrinter32( cDriver, cPrinter, cPort) CLASS Crystal32\n LOCAL nRet\n LOCAL cFarProc := \"PESelectPrinter\"\n\n  cFarProc := GetProcAddress( ::hDll, cFarProc,.T.,_INT,LONG,LPSTR ,LPSTR,LPSTR,LONG)\n  nRet := CallDll( cFarProc, ::nJobHandle,  cDriver , cPrinter , cPort ,0 )\n\nRETURN self\n\n\nRegards Maurizio','',0,'AIA=','3pf50op6',1,0,'',89,0,0),(15627,3417,3,49,0,'62.13.172.78',1152803226,1,0,1,1,1,1,'','','<!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \nGOOOOOOODDDDDD   MISTER GURU\nI MAKE ALL IN FIVE MINUTES!!!!!!!!!!!!!!!\n\nNOW RUN OK \n\nTHANK VERY MUCH!!!!!!!!!!!!!!!\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nNOW I CAN RECOMPILED OLD MY APPLICATIONS \n\nTHANK TO ALL !!!!!!!!!!!!!!!','',0,'AIA=','1x277amr',1,0,'',49,0,0),(15628,3568,6,221,0,'200.90.97.139',1152803259,1,0,1,1,1,0,'','CLASE OLE PARA 16 Y 32 BITS','SALUDOS POR FAVOR SI ALGUIEN TIENE LA CLASE OLE, TOLEAUTO ACTUALIZADA Y ME LA PODRIA MANDAR SE LO AGRADECERIA MUCHO, GRACIAS, TENGO ES UNA VERSION DEL 2001 QUE ME DA ERROR AL TRATAR DE PASAR DE EXCEL A DBF\n\nGRACIAS COMPAÑEROS','',0,'AIA=','2hb2qmjf',1,0,'',221,0,0),(15629,3568,6,9,0,'85.60.33.254',1152803890,1,0,1,1,1,1,'','','One question / una cuestión: \n\n¿ Clipper / Habour  .or.  xHarbour ?','',0,'AIA=','jwti6s9d',1,0,'',9,0,0),(15630,3569,18,43,0,'189.128.26.15',1152808155,1,0,1,1,1,0,'','Falta GTWIN.LIB','Hola Antonio:\n\n Recien baje el ultimo build de xHarbour para Borland (Junio), desde aqui pero al instalarlo me di cuenta que no se encuentra la libreria GTWIN, es correcto esto, me podrias decir donde bajarla...\n\n\nSaludos\n\n Marco A. Delgado.','',0,'AIA=','37385k4l',1,0,'',43,0,0),(15631,3565,3,6,0,'87.10.2.32',1152808312,1,0,1,1,1,1,'','Re: Read inbox from Outlook','Have you checked the file VBAOUTL*.CHM?\n\nEMG','',0,'AIA=','4kd5757p',1,0,'',6,0,0),(15632,3570,2,304,0,'201.155.7.216',1152808553,1,0,1,1,1,0,'','Codigos de Escape o Error de Tdosprn ?','Hola:\nTengo un problema que aun no he podido resolver uso la clase tdosprn para imprimir facturas con un programa hecho en fw2.3 clipper 5.3 y blinker 6.0, junto a el uso otro programa el cual usa la misma impresora pero \"manejada por windows\" (mismo puerto), cuando mando a imprimir de este ultimo al tratar de imprimir del primero (en fw2.3) \"!!YA no Imprime!!, tengo que apagar la Impresora y encenderla otra vez (es una epson Lx 300 + ), ya le di formato a la maquina, cambie cpu completo, cables paralelo, impresoras y NADA, no se si sea alguna configuracion del Bios, de Windows o Algun codigo de Escape, si alguien tiene alguna sugerencia, mucho se los agradeceria\n\nSaludos\nVeracruz, Ver. Mexico','',0,'AIA=','3nlxb2f2',1,0,'',304,0,0),(15633,3571,6,492,0,'201.154.126.49',1152809458,1,0,1,1,1,1,'','De Excel a dbf.','Hola a todos\n\nNormalmente se han visto muchos post acerca de las clases para exportar los datos de una DBF a un  archivo XLS aplicando formulas, propiedades del texto, alineacion, etc, etc , en este momento ando buscando lo inverso : poder leer y obtener los datos desde un archivo excel, no me importa realizar ninguna operacion, simplemente leer todas las lineas de X columnas, sin necesidad de convertir el archivo a dbf  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nAlguna sugerencia ?\n\nSaludos','',0,'AIA=','3rz8eg26',1,0,'',492,0,0),(15634,3568,6,221,0,'200.93.48.166',1152811801,1,0,1,1,1,0,'','que sirva','saludos preferiblemente de harbour pero me conformo con alguna que sirva ya que no leen desde excel, da error de property no se que cosa en GETproperty workbooks o algo asi, me tiene verde, tengo mas de 2 meses en este detalle, gracias','',0,'AIA=','xsrdjnui',1,0,'',221,0,0),(15635,3571,6,221,0,'200.93.48.166',1152812021,1,0,1,1,1,0,'','saludos','ando en eso mismo desde hace como 2 meses y he probado una tal clase toleauto pero lamento decepcionarte que no me sirve, si lo logro hacer te paso el dato mientras puedes probar tu a ver si esa clase te sirve','',0,'AIA=','32oepxpl',1,0,'',221,0,0),(15636,3571,6,492,0,'201.154.126.49',1152812486,1,0,1,1,1,1,'','','Ok alejandro\n\nEnterado.\n\nSeguimos buscandole.\n\nGracias','',0,'AIA=','2i4sitxx',1,0,'',492,0,0),(15637,3564,3,69,0,'206.210.97.138',1152813189,1,0,1,1,1,0,'','','Thanks Gale / Detlef,\n\nI came to the same solution as Detlef.  Works perfectly.\n\nThanks again.\n\nJeff','',0,'AIA=','1abrv7me',1,0,'',69,0,0),(15638,1612,6,52,0,'200.127.195.89',1152813217,1,0,1,1,1,1,'','','Sobre esta clase,\n\nAmigo, trate de varias formas de crear la clase y ejemplo que esta en ese zip pero me saltan errores, los que detallo.\n\n[code:4ejp1ti9]BLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'CARETFLINE\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'DRAWFGETLI\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'LENFLINE\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'HEIGHTFLIN\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'WIDTHFLINE\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'FORMATFLIN\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'TFLINE\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'SETFCLIPDA\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'GTFTORTF\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'ISGTF\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'GETFCLIPDA\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'ISRTF\' &#58; unresolved external\nBLINKER &#58; 1115 &#58; D&#58;\\PRUEBAS\\TDOSPREV\\LIBRERIA\\LIB\\FGET&#46;LIB&#40;FGET&#41; &#58; \'RTFTOGTF\' &#58; unresolved external[/code:4ejp1ti9]\nPodrías ayudarme por favor.\nGracias.','',0,'AIA=','4ejp1ti9',1,0,'',52,0,0),(15639,3324,6,221,0,'200.93.48.166',1152813801,1,0,1,1,1,0,'','saludos si me la puedes enviar a mi tanbien','gracias para ambas','',0,'AIA=','sjzenhr0',1,0,'',221,0,0),(15640,3571,6,138,0,'201.128.111.188',1152813924,1,0,1,1,1,1,'','','Mantado pulgas a cañonazos como toda la vida.... jejejejeje\n\nEso siempre se ha podido hacer con OLE, vean este ejemplo:\n\n  [code:q8cd3lz3]  LOCAL oExcel, oHoja, nRows, nCols\n    LOCAL TCampos&#58;=&#123;&#125;, nRow, nCol\n\n    oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\n\n     *oExcel&#58;Visible &#58;= &#46;T&#46; // por si quieres ver la hoja abierta\n\n    oExcel&#58;WorkBooks&#58;Open&#40;cGetFile&#40;&quot;*&#46;XLS&quot;, &quot;Seleccione Fichero&quot;&#41;&#41; \n\n    oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n\n    nRows &#58;= oHoja&#58;UsedRange&#58;Rows&#58;Count&#40;&#41;\n    nCols &#58;= oHoja&#58;UsedRange&#58;Columns&#58;Count&#40;&#41;\n\n   USE &lt;tu dbf&gt;\n\n   FOR nRow &#58;= 2 TO nRows\n      APPEND BLANK\n      FOR nCol &#58;= 1 TO nCols\n         xValue &#58;= oHoja&#58;Cells&#40;nRow,nCol&#41;&#58;Value\n         FieldPut&#40;nCol,xValue&#41;\n         SysRefresh&#40;&#41;\n      NEXT\n      DBCOMMIT&#40;&#41;\n      Memory&#40;-1&#41;\n   NEXT\n   oExcel&#58;Quit&#40;&#41;\n   oHoja&#58;End&#40;&#41;\n   oExcel&#58;End&#40;&#41;\n  [/code:q8cd3lz3]','',0,'AIA=','q8cd3lz3',1,0,'',138,0,0),(15641,1612,6,305,0,'201.230.25.247',1152814163,1,0,1,1,1,0,'','','que version de fw estas usando?   Yo uso FW26 y no hay problemas.','',0,'AIA=','2zerpnhs',1,0,'',305,0,0),(15642,1612,6,52,0,'200.127.195.89',1152814287,1,0,1,1,1,1,'','','a perfecto,\n\ntengo la fw21 por eso entonces.\n\nGracias.','',0,'AIA=','2fy6i5d0',1,0,'',52,0,0),(15643,3572,6,52,0,'200.127.195.89',1152814555,1,0,1,1,1,1,'','fget en FW21','Antonio,\n\nPara quienes tenemos la version fw21 no esta la clase fget?\n\nGracias.','',0,'AIA=','1k2nji2w',1,0,'',52,0,0),(15644,3571,6,492,0,'201.154.126.49',1152815269,1,0,1,1,1,1,'','','Master Flores\n\nComo siempre, ofreciendonos una solucion directa, cuando vemos o creemos que es muy dificil el asunto.\n\nMuchas gracias, enseguida hago pruebas.\n\nSaludos','',0,'AIA=','392rkpjt',1,0,'',492,0,0),(15645,3548,6,579,0,'148.223.141.242',1152815480,1,0,1,1,1,1,'','','Patricio: Gracias por tus atenciones, tu proceso es muy similar al que estaba desarrollando y me diste buenos tips.\n\nMaestro Flores: El secreto fue la funcion: PostQuitMessage(0) era lo que realmente necesitaba, eres un genio, no se que haces en otros lados con tus experimentos, tu mision en la vida es quedarte con nosotros.\n\nP.D.: Con todo los tips que me dieron esto ya funciono, pero les paso otro, para que funcione correctamente todo esto es necesario que al inicio del exe al que se llama, se coloque un MSGINFO() pues al parecer requiere hacer una pausa para que se termine de cerrar el EXE de donde fue llamado.\n\n\'chas gracias','',0,'AIA=','3h678av5',1,0,'',579,0,0),(15646,3571,6,492,0,'201.154.126.49',1152815912,1,0,1,1,1,1,'','','Perfecto !!!!\n\nPuedo hacer exactamente lo que necesitaba.\n\nOnce again Master Flores, thanks a lot      <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nSaludos','',0,'AIA=','b0ik776c',1,0,'',492,0,0),(15647,3569,18,54,0,'201.98.176.39',1152817668,1,0,1,1,1,1,'','Re: Falta GTWIN.LIB','[quote=&quot;Marco A. Delgado&quot;:l8u9py1h]Hola Antonio:\n\n Recien baje el ultimo build de xHarbour para Borland (Junio), desde aqui pero al instalarlo me di cuenta que no se encuentra la libreria GTWIN, es correcto esto, me podrias decir donde bajarla...\n\n\nSaludos\n\n Marco A. Delgado.[/quote:l8u9py1h]\n\nMarco,\n\nSegún tengo entendido por cuestiones de xHarbour ya no se usa GTWIN, sino GTGUI.\n\nchecale, debe de funcionar sin problemas\n\nSaludos','',0,'gA==','l8u9py1h',1,0,'',54,0,0),(15648,3569,18,43,0,'189.128.26.15',1152818814,1,0,1,1,1,0,'','','Hola William\n\n Ya lo cheque enlace GTGUI y me sigue pidiendo GTWIN, gracias seguire checando...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos\nMarco A. Delgado','',0,'gA==','306bzjud',1,0,'',43,0,0),(15649,3573,7,598,0,'200.11.139.61',1152819877,1,0,1,1,1,1,'','llamada al teclado virtual','amigos del foro, alguien sabe como hacer que cuando un objeto TGET obtenga el foco salte el teclado virtual del pocket automaticamente? existe alguna funcion? las otras aplicaciones del pocket lo hacen..','',0,'gA==','159ve07i',1,0,'',598,0,0),(15650,530,6,46,0,'217.168.114.64',1152820461,1,0,1,1,1,0,'','','Pos ese es el mismo codigo.. \nSigue funcionando..\npos la clase esta ahi TMDialog\n\nSaludos','',0,'gA==','1a9sloye',1,0,'',46,0,0),(15652,3574,3,213,0,'24.175.56.72',1152822851,1,0,1,1,1,0,'','GetPvProfString question','All,\n\nUnder WinXP calling GetPvProfString from a FWH/xHarbour app causes the .ini file to be created if it does not exist.  This is also true using FW 16-bit\n\nHowever, it appears that calling GetPvProfString from an xHarbour/FWH app on Win98 causes a gpf if the .ini file does not already exist.   This seemed odd and I\'m just wondering if anyone else has experienced this problem.\n\nUsing latest xHarbour &amp; FWH 2.7\n\nThanks,\nRandal Ferguson','',0,'gA==','2urxnjgm',1,0,'',213,0,0),(15653,3571,6,9,0,'85.60.33.254',1152823400,1,0,1,1,1,1,'','Re: saludos','[quote=&quot;QAZWSX2K&quot;:2oeg3lay]ando en eso mismo desde hace como 2 meses y he probado una tal clase toleauto pero lamento decepcionarte que no me sirve, si lo logro hacer te paso el dato mientras puedes probar tu a ver si esa clase te sirve[/quote:2oeg3lay]\n\nPara Clipper, necesitas la libreria Ole2.lib\nPara Harbour, necesitas hbole.lib.\nPara xHarbour no necesitas nada (viene implementada).\n\nNo he trabajado con Harbour. Pero tanto con Clipper + Ole2.lib, como con xHarbour, excel funciona muy bien.','',0,'gA==','2oeg3lay',1,0,'',9,0,0),(15654,3535,2,9,0,'85.60.33.254',1152826342,1,0,1,1,1,1,'','Re: Problemilla con EXCEL','Manu\n\nPorque no utilizas:\n\n   oExcel:ActiveSheet:Copy()\n  \n   oExcel:Visible = .T.\n\ny el usuario trabaja con una copia de la plantilla. Si la quiere grabar o no lo decide cuando vaya a cerrar la hoja.','',0,'gA==','crihwtj9',1,0,'',9,0,0),(15655,1612,6,300,0,'201.2.50.217',1152826842,1,0,1,1,1,0,'','Re: TdosPrn con Preview e impresoras laser','[quote=&quot;ralph&quot;:i5xr2gxi]Estimados amigos del foro:\n\nComo muchos de ustedes uso la clase TdosPrn modificada por Ednaldo Rolim que nos da la opcion de previsualizar los reportes (una excelente clase) antes de imprimirlas en impresoras matriciales. \n\nSin embargo me encontre con clientes que tenian impresoras Laser USB, u otras con tarjeta de red y se quejaban de que no podian imprimir desde este preview.   Habia que hacer algunos trucos con NET USE LPTx para que se pudiera redireccionar la impresion a esas impresoras, lo que resultaba un tanto molesto. \n\nMe preguntaba si es que tendria que rehacer todos mis reportes en las que usaba la clase TdosPrn para cambiarlos a tReport o tPrinter, pues con esas clases los reportes no tenian problemas al imprimir en cualquier impresora.\n\nInvestigando la clase TxtPreview (llamada por TdosPrn), encontre que la previsualizacion la hace usando otra clase fGet (de Ramon Avendaño), la misma que tiene un metodo Print() que llama a la clase tPrinter (entendieron el rollo?).  \n\nBueno.... con unas horas (dias?) de trabajo pude hacer algunas modificaciones en ambas clases (txtpreview y fGet) para conseguir imprimir en tamaños de fuente apropiados para laser y ahora el problema de imprimir en CUALQUIER IMPRESORA se termino! (al menos eso creo)\n\nNo tengo que modificar mis reportes antiguos !!! (que heredo desde DOS) y puedo \"convertirlos\" a modo grafico  (lo he probado en varios modelos laser y de inyeccion de tinta con exito).  La fuente con la que imprime es \"Lucida console\" que esta todas las PC a partir de windows XP.  Por ahora solo reconoce 2 tamaños de fuentes el modo \"normal\" y \"comprimido\" (que para mi es suficiente).  Si alguna mente mas lucida sugiere algunos cambios para imprimir otros tipos de fuente, sea bienvenida.\n\nLes paso los fuentes para quienes les interese, espero no estar violando derechos de autor, aclaro que las clases mencionadas no son mias.  Es un pequeño aporte por lo mucho que he recibido de este foro.\n\nPueden descargar los fuentes y un ejemplo desde <!-- w --><a class=\"postlink\" href=\"http://www.solupymes.com/fwin/tdosprev.zip\">www.solupymes.com/fwin/tdosprev.zip</a><!-- w -->\n\n\nSaludos\n\nRalph del Castillo[/quote:i5xr2gxi]\n\nOla Ralph\n\nA mi el report no funciona en windows 98 e impressora Epson fx-2180 la fonte passa de la margen.','',0,'gA==','i5xr2gxi',1,0,'',300,0,0),(15656,3569,18,2,0,'80.32.22.38',1152829543,1,0,1,1,1,1,'','','Marco,\n\nGTWIN.lib ya no se usa. Ahora se usa GTGUI.lib. Cámbialo en tus makes y/o ficheros BATs.','',0,'gA==','3uou4n4k',1,0,'',2,0,0),(15657,3573,7,2,0,'80.32.22.38',1152829724,1,0,1,1,1,1,'','','Luis,\n\nLas funciones son ShowKeyboard() y HideKeyboard(). Busca en estos foros por esos nombres y verás todo lo que se ha comentado al respecto.','',0,'gA==','166xp7ov',1,0,'',2,0,0),(15658,3575,6,519,0,'81.39.224.141',1152830601,1,0,1,1,1,0,'','tAnimate  ?','Hola amigos\n\n  Alguien me puede decir como se podria poner una imagen con la clase Tanimate como la que aparece en link ?\n\n \n  Un saludo y gracias desde ya\n\n\n  [url:9b9mq7r6]http&#58;//img50&#46;imageshack&#46;us/img50/299/animate1pe&#46;png[/url:9b9mq7r6]','',0,'EA==','9b9mq7r6',1,0,'',519,0,0),(15659,3575,6,2,0,'87.218.146.127',1152833382,1,0,1,1,1,1,'','','Revisa samples\\copyfile.prg','',0,'EA==','kz62ofrk',1,0,'',2,0,0),(15660,3576,6,439,0,'190.0.133.68',1152836380,1,0,1,1,1,1,'','Ventana siempre en primer plano','Necesito hacer un programita tonto que tiene un get en una dialog y recibe de una balanza electrónica un string con diversos datos por la entrada de teclado, estos deben tomarse y descomponerse generando un documento.\n\nLa cosa es que una vez que se activa el programa es necesario que siempre esté en primer plano para recibir el string, que no pueda desenfocarse accidentalmente ya que de ser así no capturaría el string que entra por teclado.\n\nAlguien podría por favor, indicarme como hacerlo?\n\nGracias desde ya a todos los amigos de foro por su constante asistencia.','',0,'EA==','olz1phat',1,0,'',439,0,0),(15661,3577,6,439,0,'190.0.133.68',1152836793,1,0,1,1,1,1,'','del xml a dbf','Como puedo pasar a Dbf una base que se da en formato xml desde un web server?\n\nNecesitaría tomar los datos de dicha base y pasarlos a una dbf temporal, desde la cual pasarlo al destino definitivo.\n\nCualquier ayuda que me puedan dar se agradecerá ampliamente.\n\nGracias desde ya.','',0,'EA==','2xw53415',1,0,'',439,0,0),(15662,3576,6,54,0,'201.98.176.39',1152838185,1,0,1,1,1,1,'','Re: Ventana siempre en primer plano','[quote=&quot;jose_murugosa&quot;:2y846gif]Necesito hacer un programita tonto que tiene un get en una dialog y recibe de una balanza electrónica un string con diversos datos por la entrada de teclado, estos deben tomarse y descomponerse generando un documento.\n\nLa cosa es que una vez que se activa el programa es necesario que siempre esté en primer plano para recibir el string, que no pueda desenfocarse accidentalmente ya que de ser así no capturaría el string que entra por teclado.\n\nAlguien podría por favor, indicarme como hacerlo?\n\nGracias desde ya a todos los amigos de foro por su constante asistencia.[/quote:2y846gif]\n\n[code:2y846gif]WindowTopMost&#40; oDlg &#41;\n\n\nFUNCTION WindowTopMost&#40; oWnd &#41;\n   SetWindowPos&#40; oWnd&#58;hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE     |;\n                                                      SWP_NOSIZE     |;\n                                                      SWP_SHOWWINDOW |;\n                                                      SWP_NOACTIVATE &#41;\n   RETURN NIL\n[/code:2y846gif]\n\nSi lo pones en un dialogo, este debe de ir en el ON INIT\n\nsaludos, espero te ayude\n\nPD. Esto se lo debo a osKar, jjejje','',0,'gIA=','2y846gif',1,0,'',54,0,0),(15663,3576,6,439,0,'190.0.138.236',1152840582,1,0,1,1,1,1,'','','Muchas gracias desde ya a ambos.\n\nLo voy a probar. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','nzcdhuy0',1,0,'',439,0,0),(15664,3578,1,678,0,'196.36.8.34',1152858217,1,0,1,1,1,1,'','MAx controls on a dlg limit','1) Can someone confirm - there seems to be a limit of 256 controls that you can have on a dialog, then you get a FiveWin 1 error\n\n2) What is the limit for 32 bit?\n\nThanks\nPeter','',0,'gIA=','36rs85zj',1,0,'',678,0,0),(15665,3575,6,519,0,'83.54.14.132',1152860271,1,0,1,1,1,0,'','','Gracias Antonio, ya lo to tengo funcioando  \n\n\n   METHOD CopyInternet() BLOCK { | Self, h | h := LoadLibrary( \"shell32.dll\" ),;\n                                 ::OpenEx( h, 170 ), FreeLibrary( h ) }\n\n\n\n\n\n un saludo','',0,'gIA=','24mjw93y',1,0,'',519,0,0),(15666,3417,3,130,0,'141.51.32.24',1152862854,1,0,1,1,1,0,'','','glad to know that it´s working now <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nhave a nice weekend\n\nStefan','',0,'gIA=','2y4y57pz',1,0,'',130,0,0),(15667,3570,2,248,0,'212.145.179.68',1152864376,1,0,1,1,1,0,'','Mismo Puerto.','Yo he detectado que con esa clase, por ejemplo con el programa tpv plus de speditores si hay una impresora en windows usando el mismo puerto no imprime correctamente, se ralentiza la impresion o no imprime. Parece que es lo que esta pasando. Una solucion que se me ocurre es que liberes de windows ese puerto poniendo otro puerto lpt con otra impresora o algo asi.\nSaludos.','',0,'gIA=','fbw54aiq',1,0,'',248,0,0),(15668,3575,6,2,0,'87.218.146.230',1152864692,1,0,1,1,1,1,'','','Cierto, es la solución correcta. Gracias','',0,'gIA=','osbtryif',1,0,'',2,0,0),(15669,3517,1,2,0,'87.218.146.48',1152873002,1,0,1,1,1,1,'','','Marc,\n\nWe recently published it: FWH 2.7 build June 2006.','',0,'gIA=','gwwfv4f3',1,0,'',2,0,0),(15670,3578,1,2,0,'87.218.146.48',1152873115,1,0,1,1,1,1,'','','Peter,\n\n1) Try to increase the LNK heapsize value in 500 bytes steps.\n\n2) No limits, afaik.','',0,'gIA=','215udyaa',1,0,'',2,0,0),(15671,3574,3,2,0,'87.218.146.48',1152873528,1,0,1,1,1,1,'','','Randal,\n\nWhat callstack list do you get on the GPF ?','',0,'gIA=','3dt9yl8t',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (15672,3579,2,542,0,'88.7.11.177',1152873987,1,0,1,1,1,0,'','Problemas con oWndClient','Hola amigos que tal:\nTengo un problema cuando en cualquier aplicacion pongo un fondo en la ventana principal. Cuando lo pongo lo hago con la instrucción \n\n@  0,  0 BITMAP obitmap FILE \"ascwin.bmp\" of oVentPrinc:owndclient() SIZE 800,600 NOBORDER \n\nY cuando la aplicacion abre un dialog y pinchas sobre la imagen no sobre el dialog no hace nada, pero cuando habro una WINDOW mdichild la ventana de datos de la WINDOW hija desaparece y solo muestra la imagen, por lo que pongo.\n\n@  0,  0 BITMAP obitmap FILE \"ascwin.bmp\" of oVentPrinc:owndclient() SIZE 800,600 NOBORDER ON CLICK obitmap:hide() ON RIGHT CLICK obitmap:hide()\n\npara que cuando pulse sobre la imagen lo que pase sea que oculte la imagen y luego cuando cierro la ventana volver a mostrarla.\n\nMe podriais ayudar y decirme como puedo hacer para que en vez de ocultar la imagen lo que haga sea ponerla detras de la ventana hija.\n\nGracias.','',0,'gIA=','2pnk5mdy',1,0,'',542,0,0),(15673,3568,6,92,0,'213.96.45.9',1152874343,1,0,1,1,1,0,'','Re: que sirva','[quote=&quot;QAZWSX2K&quot;:2mho67qy]saludos preferiblemente de harbour pero me conformo con alguna que sirva ya que no leen desde excel, da error de property no se que cosa en GETproperty workbooks o algo asi, me tiene verde, tengo mas de 2 meses en este detalle, gracias[/quote:2mho67qy]\n\nEn Harbour y sin librerías adicionales, yo lo hago así (ahora me doy cuenta de que no estoy eliminando al final oExcel ni oHoja):\n\n==========================\noExcel := CreateOLEObject(\"Excel.Application\")\nOLESetProperty(oExcel,\"Visible\", .T.)\nOLEInvoke( OLEGetProperty(oExcel,\"Workbooks\"), \"Open\", cPathxls )\noHoja := OLEGetProperty(oExcel,\"ActiveSheet\")\n\nccognoms := \"zzz\"\nnRow := 1\n\nWhile AllTrim( ccognoms ) &lt;&gt; \"\"\n\n    nRow ++\n\n    Msgnowait( AMPAarra, \"Atención!\" , \"Leyendo e importando datos.\" + ;\n                                       \" Espere unos momentos por favor....\" )\n\n    cCCC      := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 2 ), \"Value\" )\n    If Valtype( cCCC) = \"U\"\n        cCCC := \"00000000000000000000\"\n    EndIf\n    cccc := Upper( cccc )\n    Traza(1, \"cccc=\", cccc )\n\n    cmail     := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 3 ), \"Value\" )\n    If Valtype( cmail) = \"U\"\n        cmail := Space(1)\n    EndIf\n    cmail := Upper( cmail )\n    Traza(1, \"cmail=\", cmail )\n\n    cdatanaix := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 4 ), \"Value\" )\n    If Valtype( cdatanaix) = \"U\"\n        cdatanaix := CToD(\"01/01/1900\")\n    elseIf Valtype( cdatanaix) = \"C\"\n        cdatanaix := CToD(cdatanaix)\n    EndIf\n    Traza(1, \"cdatanaix=\", cdatanaix)\n\n    cCognoms  := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 7 ), \"Value\" )\n    If Valtype( ccognoms) = \"U\"\n        ccognoms := space(1)\n    EndIf\n    cCognoms := Upper( ccognoms )\n    Traza(1, \"ccognoms=\", ccognoms )\n\n    cNom      := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 8 ), \"Value\" )\n    If Valtype( cnom) = \"U\"\n        cnom := space(1)\n    EndIf\n    cNOM := Upper( cNOM )\n    Traza(1, \"cnom=\", cNOM )\n\n    cLOPD     := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 10 ), \"Value\" )\n    If Valtype( clopd) = \"U\"\n        clopd := .F.\n      Else\n        clopd := .T.\n    EndIf\n    Traza(1, \"clopd=\", cLOPD )\n\nOLEInvoke( oExcel, \"Quit\" )\n==========================\n\nEs lento pero funciona.\n\nSaludos\nCarlos G.','',0,'gA==','2mho67qy',1,0,'',92,0,0),(15674,3580,2,655,0,'217.127.17.50',1152874534,1,0,0,0,1,0,'','Memoria insuficiente para ejecutar la aplicación','Hola a todos:\n\nMe está ocurriendo un problema al ampliar una aplicación, y es que al intentar ejecutarla me aparece el siguiente mensaje:\n\n   \"No Se puede ejecutar un programa de Windows de 16 bits\"\n   \"Memoria insuficiente para ejecutar esta aplicación. Cierre una o mas aplicaciones y vuelva a intentar la operación\"\n\nLos datos de compilación son:\n   Clipper 5.3\n   FW 2.2\n   Blinker 5.10\n   stacksize 9500\n   heapsize 2048\n \ny ejecución en Windows XP (he probado con todas combinaciones de ejecución de memoria, espacio reservado, compatibilidad y demás)\n\nHe probado todas las combinaciones de stack y heap, y sigue igual, el módulo que estoy añadiendo es una clase y en el momento que añado algo como METHOD Load(), empieza a aparecerme ese mensaje y no funciona la aplicación, lo curioso es que he intentado no instanciar ningún objeto de esa clase, y sigue fallando, aparentemente es inexplicable, si añado un methodo a una clase que no uso en el inicio del programa, por que debe fallar ?\n\nPor favor, necesito una luz sobre este tema.\n\n\nSaludos / Paco Rodríguez.\n   \n\n[/img]','',0,'gA==','ie924foi',1,0,'',655,0,0),(15675,3417,3,49,0,'213.82.134.66',1152877106,1,0,1,1,1,1,'','','but thereis an error to command SPACE on sbgroup \nif I insert SPACE 30 not run ok\nI want create space betwin button...\n\nregards','',0,'gA==','2l7xkvuk',1,0,'',49,0,0),(15676,3581,3,49,0,'213.82.134.66',1152877902,1,0,1,1,1,1,'','STATUS bar','Can I insert bitmaps ( with action) on status bar as Msgbar ?\nCan YOu write me an example ?\n\nRegards','',0,'gA==','kk4x3w5r',1,0,'',49,0,0),(15677,3549,6,196,0,'190.48.198.186',1152878618,1,0,1,1,1,0,'','','Rene, puede ser, pero me pasa en el mismo lugar en tres equipos que no muestran ninguna otra anomalia y en otros equipos funciona perfecto.\n\nEste GPF se produce exactamente al intentar imprimir en una impresora fiscal (en Argentina son obligatorias), esto genera un log y me dicen los autores de la DLL que no encuentran ningun problema.\n\nPregunta: puede ser que las funciones de la DLL en vez de definir parametros como int haya que definirlos como long?\nAca copio el prg donde defino las funciones fiscales:\nEl error lo marca cuando ejecuta la funcion IItemFis() la cual llama a Enviar() y la cual llama a MandaPaqueteFiscal() que es la ultima que menciona el GPF y la cual reside dentro de la DLL.\n\nTengo la pantalla del error capturada, pero como puedo pegarla aca?\n\nDesde ya muchas gracias por el interes en resolver esto\n\n*** RUTINAS FISCALES ***\n\nFunction AbrePuerto(ComFiscal,Handler)\nLocal SetPr,ComF:=VAL(ComFiscal)\n   Handler:=OpenComFiscal(ComF)\n   SetPr  :=SearchPrn(Handler)\nReturn nil\n\nFunction CierraPuerto(Handler)\n   CloseComFiscal(Handler)\nReturn nil\n\nFunction AbreTicket(Handler)\nLocal s\n   s:= \"@\" + Chr(28) + \"T\" + Chr(28) + \"T\"\n   Enviar(s,Handler)\nReturn nil\n\nFunction DatosCli(Nombre,Cui,TipoIVA,Domicilio,TipoDoc,TipoPrn,Texto,Handler)\n/*\nNombre  =Nombre del cliente\nCui     =CUIT del cliente\nTipoIva =Situacion de IVA del cliente\nDomicilio=Domicilio del cliente\nTipoDoc  =Tipo de documento a abrir\n           CREDITO \'A\' = R\n           CREDITO \'B\' = S\n           REMITO      = r\nTipoPrn  =Tipo de impresor fiscal (615,PR4,320)\nTexto    =Texto a emitir en Credito o Remito solo 320 (obligatorio)\n*/\n\nLocal s\n\nIF EMPTY(Nombre)\n   Nombre:=\".\"\nENDIF\nIF EMPTY(Cui)\n   Cui:=\"00000000000\"\nENDIF\nIF EMPTY(TipoIVA)\n   TipoIVA:=\"C\"\nENDIF\nIF EMPTY(Domicilio)\n   Domicilio:=\".\"\nENDIF\nIF EMPTY(Texto)\n   Texto:=\".\"\nENDIF\n\nIF TipoPrn=\"615\" .OR. TipoPrn=\"715\"\n   s:= \"b\" + Chr(28) + ALLTRIM(SUBSTR(Nombre,1,30)) + Chr(28) + Cui+ Chr(28)+;\n       TipoIVA + Chr(28) + \"C\"\nENDIF\nIF TipoPrn=\"320\" .OR. TipoPrn=\"425\"\n   s:= \"b\" + Chr(28) + ALLTRIM(SUBSTR(Nombre,1,50)) + Chr(28) + Cui+ Chr(28)+;\n       TipoIVA + Chr(28) + \"C\" + Chr(28) + ALLTRIM(SUBSTR(Domicilio,1,50))\nENDIF\nEnviar(s,Handler)\n\nIF TipoDoc=\"A\" .OR. TipoDoc=\"B\"\n   s:= \"@\" + Chr(28) + TipoDoc + Chr(28) + \"T\"\n   Enviar(s,Handler)\nELSE\n   s:= \"“\" + Chr(28) + \"1\" + Chr(28) + Texto\n   Enviar(s,Handler)\n   s:= \"€\" + Chr(28) + TipoDoc + Chr(28) + \"T\"\n   Enviar(s,Handler)\nENDIF\nReturn nil\n\nFunction IItemFis(Texto,Cantidad,Monto,IVA,SumaResta,ImpInt,CalMonto,TipoDoc,TipFiscal,Handler)\n/*\nTexto        ES EL TEXTO A IMPRIMIR EN EL ITEM (HASTA 20 CARACTERES)      A\nCantidad     ES LA CANTIDAD DEL ITEM (XXX.XXXXXXXXXX)                     N\nMonto        ES EL IMPORTE A EMITIR (+/- XXXXXX.XX)                       N\nIVA          ES LA TASA DE IVA UTILIZADA (XX.XX)/(**.**)                  N\nSumaResta    ES LA IMPUTACION (M=SUMA MONTO, m=RESTA MONTO)               A\nImpInt       ES EL COEFICIENTE DE IMPUESTOS INTERNOS (X.XXXXXXXX)         N\nCalMonto     ES COMO SE CALIFICA EL MONTO (B=PRECIO BASE, T=PRECIO TOTAL) A\nTipoDoc      Si es factura o remito (R)\n*/\n   Local s\n\n   IF TipoDoc&lt;&gt;\"R\"\n      IF TipFiscal=\"320\"\n         s:= \"B\" + Chr(28) + SUBSTR(Texto,1,50) + Chr(28) + Cantidad + Chr(28)+;\n             Monto + Chr(28) + IVA + Chr(28) + SumaResta + Chr(28) + ImpInt +;\n             Chr(28) + \"0\" + Chr(28) + CalMonto\n      ENDIF\n      IF TipFiscal=\"615\" .OR. TipFiscal=\"425\"\n         s:= \"B\" + Chr(28) + SUBSTR(Texto,1,20) + Chr(28) + Cantidad + Chr(28)+;\n             Monto + Chr(28) + IVA + Chr(28) + SumaResta + Chr(28) + ImpInt +;\n             Chr(28) + \"0\" + Chr(28) + CalMonto\n      ENDIF\n   ELSE\n      s:= \"‚\" + Chr(28) + SUBSTR(Texto,1,108) + Chr(28) + Cantidad\n   ENDIF\n\n   Enviar(s,Handler)\nReturn nil\n\nFunction ITotalFis(Texto,Pagado,Operacion,Handler)\n/*\nTexto     ES EL TEXTO A IMPRIMIR EN EL TOTAL (HASTA 30 CARACTERES)   A\nPagado    EL MONTO PAGADO POR EL CLIENTE (+/- XXXXXXXXX.XX)          N\nOperacion SI SE PONE C CANCELA EL COMPROBANTE, SI SE PONE T CALCULA\n          EL VUELTO EN FUNCION AL MONTO PAGADO                       A\n*/\n   Local s\n   s:= \"D\" + Chr(28) + SUBSTR(Texto,1,30) + Chr(28) + Pagado + Chr(28) +;\n       Operacion + Chr(28) + \"0\"\n   Enviar(s,Handler)\nReturn nil\n\nFunction CierraFiscal(Handler)\n   Enviar(\"E\",Handler)\nReturn nil\n\nFunction AbreNoFiscal(Handler) \n   Enviar(\"H\",Handler)\nReturn nil\n\nFunction ITexNoFis(Texto,Handler)\n   Local s\n   s:= \"I\" + Chr(28) + substr(Texto,1,80) + Chr(28) + \"0\"\n   Enviar(s,Handler)\nReturn nil\n\nFunction AvanzaFis(Lineas,Handler)\n   Local s\n   s:= \"P\" + Chr(28) + Lineas\n   Enviar(s,Handler)\nReturn nil\n\nFunction CierraNoFis(Par,Handler)\n   // Par=Si cierro un no fiscal comun (\"C\"), si es homologado (\"H\")\n   Local s\n   IF Par&lt;&gt;\"H\"\n      s:=\"J\"\n   ELSE\n      s:=\"','',0,'gA==','1o1v31k6',1,0,'',196,0,0),(15678,3582,1,367,0,'201.67.52.67',1152879818,1,0,1,1,1,1,'','Send Email','As to send email in Fivewin Clipper?','',0,'gA==','1is3t6gn',1,0,'',367,0,0),(15679,3581,3,247,0,'83.171.242.103',1152882045,1,0,1,1,1,0,'','Re: STATUS bar','[quote=&quot;Silvio&quot;:1n5g44mx]Can I insert bitmaps ( with action) on status bar as Msgbar ?\nCan YOu write me an example ?\n\nRegards[/quote:1n5g44mx]\n\nTry the bellow\n\nlocal _applwindow\ndefine window _applwindow ;\nfrom 0,0 to 600,800 pixel \n_applwindow:oMsgBar := TMsgBar():New(_applwindow,\"sdfsdfsdf\",.F.,.T.,.T.,.T.,,,,)\n_applwindow:oMsgBar:bLButtonUp:={||msginfo(1)}\n_applwindow:omsgbar:insitem(tmsgitem():new(_applwindow:omsgbar,\"Click Me\",120,,,,,{||msginfo(\'clicked\')},\"bitmap.bmp\",\"bitmap.bmp\"),2) \n\nactivate window _applwindow\n\nRegards,\nA.S.K','',0,'gA==','1n5g44mx',1,0,'',247,0,0),(15680,3581,3,303,0,'72.199.41.171',1152882524,1,0,1,1,1,0,'','','DEFINE MSGITEM [ &lt;oMsgItem&gt; ] ;\n[ OF &lt;oMsgBar&gt; ] ;\n[ PROMPT &lt;cMsg&gt; ] ;\n[ SIZE &lt;nSize&gt; ] ;\n[ FONT &lt;oFont&gt; ] ;\n[ COLOR | COLORS &lt;nClrFore&gt;;[, &lt;nClrBack&gt;] ] ;\n[ ACTION &lt;uAction&gt; ]; \n[ BITMAP, BITMAPS &lt;cBitmap1&gt; [, &lt;cBitmap2&gt; ] ] ;\n[ TOOLTIP &lt;cToolTip&gt; ]','',0,'','34mj1c9u',1,0,'',303,0,0),(15681,3580,2,2,0,'87.218.146.80',1152883717,1,0,1,1,1,1,'','','Paco,\n\nSuele ser debido a errores aleatorios de Blinker. Prueba a actualizarte a una versión más reciente de Blinker.','',0,'','15g8jkru',1,0,'',2,0,0),(15682,3579,2,2,0,'87.218.146.80',1152883873,1,0,1,1,1,1,'','','La ventana oWndClient del entorno MDI tiene un comportamiento especial, por lo que no puedes situarle un control (TBitmap) encima.\n\nPara mostrar un bitmap hazlo como se muestra en samples\\alaska.prg.','',0,'','25bjvbnq',1,0,'',2,0,0),(15683,3549,6,2,0,'87.218.146.80',1152884041,1,0,1,1,1,1,'','','Prueba a cambiar todos los _INT a LONG','',0,'','1rvjqcco',1,0,'',2,0,0),(15684,3582,1,2,0,'87.218.146.80',1152884197,1,0,1,1,1,1,'','','Kleyton,\n\nPlease review samples\\TestMail.prg','',0,'','he8s4zk8',1,0,'',2,0,0),(15686,3552,3,2,0,'87.218.146.80',1152884547,1,0,1,1,1,1,'','','Alex,\n\nPlease comment out this line in source\\winapi\\menus.c line 295:\n[code:3ruicgvc]\n           if&#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41;\n           &#123;\n              HBITMAP hBmp = LoadBitmap&#40; 0, MAKEINTRESOURCE&#40; OBM_CHECK &#41; &#41;;\n\n              if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_SELECTED &#41; &#41;\n                 DrawGrayed&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                             lpdis-&gt;rcItem&#46;left + 1 &#41;;\n              else\n                 DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                             lpdis-&gt;rcItem&#46;left + 1 &#41;;\n              DeleteObject&#40; hBmp &#41;;\n              // WindowInset&#40; lpdis-&gt;hDC, &amp;rct &#41;;   HERE!\n           &#125;\n[/code:3ruicgvc]\nWe have to implement the bullet option.','',0,'AIA=','3ruicgvc',1,0,'',2,0,0),(15687,3583,3,303,0,'72.199.41.171',1152884706,1,0,1,1,1,0,'','Themed Buttons on BMP background','Themed buttons on a bitmap background (on a dialog) do not have a transparent background so there is an ugly one pixel gray border around them. I also notice that isAppThemed() always returns .f. even when I have a manifest file. Is this a bug, and could this be the reason?\n\nUsing May 2006 build and Harbour and XP Pro SP2.\n\nJames\n\n[code:33eb8vjc]function doit&#40;&#41;\n   local oDlg,oBrush,cName&#58;=space&#40;20&#41;,oBtn\n   define brush oBrush file &quot;bluegrad&#46;bmp&quot;\n   define dialog oDlg title &quot; with Brush&quot; brush oBrush\n   @ 1,1 get cName of oDlg\n   @ 2,1 say oSay prompt &quot;Name&quot; of oDlg\n   oSay&#58;lTransparent&#58;=&#46;t&#46;\n   @ 3,1 button oBtn prompt &quot;Ok&quot; action oDlg&#58;end&#40;&#41;\n   oBtn&#58;lTransparent&#58;=&#46;t&#46;\n   activate dialog oDlg centered\nreturn nil[/code:33eb8vjc]','',0,'AIA=','33eb8vjc',1,0,'',303,0,0),(15688,3569,18,43,0,'189.128.26.15',1152889784,1,0,1,1,1,0,'','','Hola Antonio:\n\nQuien sabe que pasa, ya lo hice, pero verce no me deja seguir me sigue pidiendo GTWIN.\n\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','31dhks3k',1,0,'',43,0,0),(15689,3584,3,58,0,'84.149.202.42',1152889919,1,0,1,1,1,0,'','mousewheel on get','Hi all,\n\nis there a way to detect a mousewheel movement on a get?\n\nSimilar to a spinner i would like to enhance numeric gets with a method for incr. and decr.  by srolling the mousewheel up or down.\nPhotoshop i.e. does this and i find it very comfortable.\n\nBut i have no idea how to recognize the wheel over a get.\n\nCould anybody give me a hint for this?\n\nThanks,\nDetlef','',0,'AIA=','2bbb1ug7',1,0,'',58,0,0),(15690,3569,18,2,0,'87.218.146.238',1152892931,1,0,1,1,1,1,'','','Marco,\n\nParece un error de Verce. Prueba a renombrar GTGUI.lib como GTWIN.lib.','',0,'AIA=','2zygj6g2',1,0,'',2,0,0),(15691,3584,3,6,0,'87.19.208.57',1152893807,1,0,1,1,1,1,'','Re: mousewheel on get','You have to inherit your own TMyGet and add MouseWheel() or HandleEvent() methods to it (or modify the standard TGet class).\n\nHave a look at TWBrowse and TRichEdit for a sample.\n\nEMG','',0,'AIA=','ngfh7vut',1,0,'',6,0,0),(15692,3577,6,39,0,'216.155.88.169',1152893841,1,0,1,1,1,0,'','','Prueba con usar la clase xml que tiene xharbour, ya que deberia leer estos archivos sin problemas.\n\n\nAtte,\nLautaro','',0,'AIA=','32reakna',1,0,'',39,0,0),(15693,3584,3,58,0,'84.149.227.181',1152894517,1,0,1,1,1,0,'','','Hi Enrico,\n\ni feared you were in holiday  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nUntil now i didn\'t yet work with inherited classes.\n\nDo you mean something like :\nTMyGet from TGet and then overide the method MouseWheel() from the window class with my own code?\n\nI will try this. I think i remember a description from James Bott how to do such things.\n\nThanks and regards,\nDetlef','',0,'AIA=','3w4hr7hx',1,0,'',58,0,0),(15694,3584,3,6,0,'87.19.208.57',1152894848,1,0,1,1,1,1,'','','[quote=&quot;Detlef Hoefner&quot;:3te0itv4]Hi Enrico,\n\ni feared you were in holiday  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> [/quote:3te0itv4]\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote=&quot;Detlef Hoefner&quot;:3te0itv4]Until now i didn\'t yet work with inherited classes.\n\nDo you mean something like :\nTMyGet from TGet and then overide the method MouseWheel() from the window class with my own code?[/quote:3te0itv4]\n\nYes, exactly.\n\nEMG','',0,'gA==','3te0itv4',1,0,'',6,0,0),(15695,3577,6,439,0,'190.0.139.155',1152896728,1,0,1,1,1,1,'','','Lautaro,\nGracias!!! por tu respuesta!!!!!!!!!!!!!!!!!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nUna pregunta, esta clase....., donde encuentro información de como funciona, el ejemplo xmltest.prg que aparece en el directorio de tests de xharbour utiliza esta clase?\n\nComo puedo saber exactamente que es lo que hace y como usarla?\n\nCualquier ayuda me será de gran valor, dado que tengo que leer estas bases para convertirlas a dbf o manejarlas como base de datos en mi aplicación, puesto que debe importar datos de otra aplicación que recibo en formato xml.','',0,'gA==','ghw22016',1,0,'',439,0,0),(15696,3545,7,490,0,'81.44.196.175',1152897835,1,0,1,1,1,0,'','','Antonio,\n\n¿ Alguna noticia sobre esto de las transparencias ?\n\n\nUn Saludo,\nJoaquín','',0,'gA==','3u2y0zph',1,0,'',490,0,0),(15697,3582,1,367,0,'201.40.13.50',1152897864,1,0,1,1,1,1,'','','It would like to send e-mails without needing outlook for example.  That it functioned in any version of windows.','',0,'gA==','1as4jeqi',1,0,'',367,0,0),(15698,3535,2,375,0,'84.122.103.143',1152900487,1,0,1,1,1,1,'','','Buena idea, lo probaré.\n\nSupongo que habrá que ponerlo entre\noBook := oWord:Get(\"ActiveWorkBook\")\ny\noSheet  := oWord:Get(\"ActiveSheet\")\nEs que soy novato con excel.\n\nDe todas formas, me gustaría que la hoja (factrura) se guardara, para que sea más automático y por si al cliente se le olvida. \nLo curioso es que con Word no pasa.\n\nGracias','',0,'gA==','20xmlf9a',1,0,'',375,0,0),(15699,3585,7,428,0,'200.55.19.126',1152900764,1,0,1,1,1,0,'','FIVEWIN EN PALM','Hola Antonio\nExiste la posibilidad de poder utilizar FWPPC en equipos PALM bajo PALM OS ?\n\nSaludos\nMiguel','',0,'gA==','dp0ejb7h',1,0,'',428,0,0),(15700,3583,3,217,0,'200.159.120.34',1152901003,1,0,1,1,1,0,'','Re: Themed Buttons on BMP background','James, I think TButtonB don\'t get transparency and don\'t change face color because Win API. But lets wait for words by Antonio, he ever have a solution.\n\nRegards\nMaurilio','',0,'gA==','8mk5zg65',1,0,'',217,0,0),(15701,3586,6,428,0,'200.55.19.126',1152901083,1,0,1,1,1,0,'','utilizar xharbour','Hola Amigos,\n\nActualmente estoy utilizando Harbour y FWH 2.4 deseo cambiarme a xHarbour, podre usar la version que tengo de FW sin ninguna modificacion en xHarbour o debo recompilarla ?\n\n\n\nSaludos\nMiguel','',0,'gA==','3adzhrki',1,0,'',428,0,0),(15702,3581,3,49,0,'62.13.172.78',1152901905,1,0,1,1,1,1,'','','perhaps You don\'t understand me ....\n\nI wanted Status Bar 32 bit style \n\n[code:j6f2f1cp] \ncRegistro &#58;= i18n&#40; &quot;Registrato per &#58; &quot; &#41; + Control-&gt;NomEmp\n      DEFINE STATUSBAR oStbar PROMPT &quot;&quot; OF oWnd  ;\n      SIZES 250, 400, oWnd&#58;nRight              ;\n      PROMPTS &quot;Uno&quot;, &quot;Dos&quot;, &quot;&quot;\n      oStbar&#58;SetPartText&#40; 1, cRegistro &#41;\n      oStbar&#58;SetPartText&#40; 2, cAutore  &#41;\n      oStbar&#58;SetPartText&#40; 3, cSyst  &#41;\n[/code:j6f2f1cp]\n\ncan I insert on oStbar a bitmaps with action ?','',0,'AIA=','j6f2f1cp',1,0,'',49,0,0),(15703,3574,3,213,0,'24.175.56.72',1152902018,1,0,1,1,1,0,'','','Antonio,\n\nI get a gpf in krnl386.exe.  Pretty strange.  I\'m going to try some more tests and I\'ll let you know what I come up with.\n\nThanks,\nRandal','',0,'AIA=','3p78guis',1,0,'',213,0,0),(15704,3548,6,217,0,'200.159.120.34',1152902351,1,0,1,1,1,0,'','','[quote=&quot;RodolfoRBG&quot;:2wq8hckb]Patricio: Gracias por tus atenciones, tu proceso es \n(...) se coloque un MSGINFO() pues al parecer requiere hacer una pausa para que se termine de cerrar el EXE de donde fue llamado.\n[/quote:2wq8hckb]\n\nRodolfo se no quieres nadie visual en inicio del EXE llamado cambia msginfo a SysWait( nSeconds ).\n\nSaludos\nMaurilio','',0,'gA==','2wq8hckb',1,0,'',217,0,0),(15705,3587,7,661,0,'201.123.184.44',1152903090,1,0,1,1,1,0,'','se pueden abrir indices?','que tal amigos, pues como lo dice el titulo se pueden abrir indices?\nuso WINCE ver 5.00\neste es mi codigo :\n   dbusearea(.t.,,xruta+\'IHISPEDD\',\'PEDD\',.t.,.t.)\n   PEDC-&gt;(ordsetfocus(\"EMBARQUE\"))\n\nal hacer dbseek me dice que no hay indice activo <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nque estoy haciendo mal?','',0,'gA==','19fkn81b',1,0,'',661,0,0),(15706,3587,7,138,0,'201.128.111.188',1152905754,1,0,1,1,1,1,'','','Alex:\n\nforzosamente tienes que incluri CURDIR() en la ruta de tu archivo DBF\n\nDbUseArea(.T.,,curdir()+\"\\\"+xRuta)\n\neso si las abres dentro del pocket PC\n\nSi las abres fuera, debes de indicar la ruta por la UNC, es decir:\n\n\\\\servidor\\recursocompatido\\carpeta\\archivo dbf.','',0,'gA==','1bdnf2mp',1,0,'',138,0,0),(15708,3582,1,138,0,'201.128.111.188',1152906153,1,0,1,1,1,1,'','','check TestSMTP.prg works without Outlook','',0,'gA==','2do6091e',1,0,'',138,0,0),(15709,3577,6,39,0,'216.155.88.169',1152906166,1,0,1,1,1,0,'','','Hola,\n\nLa documentacion esta en el archivo hbxml.txt en la carpeta doc, y alli encontraras todo lo necesario para usarla, ya esta opcion es parte del xharbour rtl library y el en directorio samples estan xmliter.prg que muestra y xmltest.prg, ademas de un archivo de pruebas el xmltest.xml.\n\n\nAtte.,\n\nLautaro Moreira','',0,'gA==','2fh9nha7',1,0,'',39,0,0),(15710,3535,2,9,0,'85.60.33.254',1152910457,1,0,1,1,1,1,'','','Manu,\n\nFUNCTION MAIN()\n    LOCAL cOrigen  := \"c:\\fwh\\samples\\manu.xls\"\n    LOCAL oExcel := CREATEOBJECT( \"Excel.Application\" ) \n    LOCAL oWorkBook := oExcel:WorkBooks:Open(cOrigen)\n\n    oExcel:ActiveSheet:Copy()\n    \n    oExcel:Visible = .T.\n\n    RETURN NIL','',0,'gA==','17j5e0pa',1,0,'',9,0,0),(15711,3535,2,375,0,'84.122.103.143',1152912561,1,0,1,1,1,1,'','','Gracias Manuel. Es una buena solucion. La utilizaré.\nSi no te importa, te voy a preguntar otra cosilla. ¿se puede cambiar el nombre al documento antes de modificarlo, ampliarlo, guardarlo, etc...?','',0,'gA==','3qdp5vd6',1,0,'',375,0,0),(15712,3545,7,2,0,'87.218.146.120',1152914568,1,0,1,1,1,1,'','','Joaquín,\n\nPodemos proporcionar soporte técnico más rapidamente cuando se nos proporciona un ejemplo completo, pequeño y autocontenido, que podamos probar rapidamente.','',0,'gA==','2p68pzcs',1,0,'',2,0,0),(15713,3585,7,2,0,'87.218.146.120',1152914656,1,0,1,1,1,1,'','','Miguel,\n\nNo. Salvo que sean palms muy muy recientes que han anunciado que van a usar Windows Mobile como sistema operativo.','',0,'gA==','1xk3z62d',1,0,'',2,0,0),(15714,3586,6,2,0,'87.218.146.120',1152914820,1,0,1,1,1,1,'','','Miguel,\n\nSi usas el build de xHarbour que te entregamos con esa versión de FWH, entonces funcionará sin problemas. Si vas a usar una versión reciente de xHarbour entonces tendrás que recompilar todos los PRGs de FWH y además posiblemente FiveHC.lib no será compatible.\n\nLo idóneo es actualizarte a la versión más reciente de FWH.','',0,'gA==','bvh1vaxf',1,0,'',2,0,0),(15715,3581,3,303,0,'72.199.41.171',1152915178,1,0,1,1,1,0,'','','Silvio,\n\n&gt;I wanted Status Bar 32 bit style \n\nSorry, I didn\'t know there was another status bar. I have just tested it, and it appears to visually be almost identical to FW\'s own \"messageBar.\" It also looks like you cannot use a graphic on it.\n\nSince you can put graphics (BMPs) on the FW messageBar, then why not use it instead? Is there some other feature of the 32bit version that you need that the FW messageBar doesn\'t have?\n\nJames','',0,'gA==','bk87h4uz',1,0,'',303,0,0),(15716,3589,7,661,0,'201.123.184.44',1152915757,1,0,1,1,1,0,'','Se puede grabar en un archivo compartido?','que tal, bueno de nuevo con mas preguntas (soy newbie <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->) cuando abro un dbf con SHARED al momento de grabar en mi dbf la aplicacion se bloquea y no responde.\n\nse puede o no esto? gracias','',0,'gA==','1umi2bde',1,0,'',661,0,0),(15717,3583,3,2,0,'87.218.146.120',1152916015,1,0,1,1,1,1,'','','James,\n\nIt is a Windows theme issue (we already reviewed this with Brian Hays). Here it is how it looks with XP standard blue theme:\n[url=http&#58;//imageshack&#46;us:wkgjn5l2][img:wkgjn5l2]http&#58;//img291&#46;imageshack&#46;us/img291/9890/button19az&#46;png[/img:wkgjn5l2][/url:wkgjn5l2]\nHere you see it with a different XP theme (it looks ok):\n[url=http&#58;//imageshack&#46;us:wkgjn5l2][img:wkgjn5l2]http&#58;//img150&#46;imageshack&#46;us/img150/8325/button26mz&#46;png[/img:wkgjn5l2][/url:wkgjn5l2]\nThe FWH exe is the same in both samples.','',0,'GA==','wkgjn5l2',1,0,'',2,0,0),(15718,3583,3,2,0,'87.218.146.120',1152916177,1,0,1,1,1,1,'','','James,\n\nRegarding IsAppThemed(): this function just checks if the manifest file is linked into the EXE. We may need to modify it to detect an external manifest file.','',0,'GA==','owdhxqvt',1,0,'',2,0,0),(15719,3589,7,2,0,'87.218.146.120',1152916302,1,0,1,1,1,1,'','','Alex,\n\nSHARED solo puede usarse si tienes Windows Mobile 2005. En la versión 2003 no está soportado por Microsoft.','',0,'GA==','3blny3t0',1,0,'',2,0,0),(15720,3589,7,661,0,'201.123.184.44',1152916415,1,0,1,1,1,0,'','','gracias antonio','',0,'GA==','2bfmxpme',1,0,'',661,0,0),(15721,3585,7,428,0,'200.55.19.126',1152917132,1,0,1,1,1,0,'','','Gracias Antonio','',0,'GA==','31v1kfwk',1,0,'',428,0,0),(15722,3586,6,428,0,'200.55.19.126',1152917246,1,0,1,1,1,0,'','','Gracias Antonio, te agradeceria  si podes indicarme las ventajas y el precio para poder decidir.\n\nSaludos\nMiguel','',0,'GA==','1jwlim73',1,0,'',428,0,0),(15723,3583,3,303,0,'72.199.41.171',1152917495,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Here it is how it looks with XP standard blue theme: \n\nIt is even worse when the button is not in focus--the gray border is on all sides of the button.\n\n&gt;It is a Windows theme issue\n\nThis is very dissapointing. Since many (if not most) users are using the standard blue theme, we cannot produce a decent looking themed button on a colored or bitmapped dialog in our applications without many users seeing the odd display.\n\nWhat theme are you using in the version without the gray outline?\n\nThanks for the isAppThemed() explaination. It would be helpful if isAppThemed() would detect external theme manifest files. Otherwise it is more difficult to test small samples of code since you need to build a resource file for each one.\n\nJames','',0,'GA==','21ygd3oi',1,0,'',303,0,0),(15724,3583,3,2,0,'87.218.146.120',1152919436,1,0,1,1,1,1,'','','James,\n\n&gt; What theme are you using in the version without the gray outline?\n\nAs you may know, Windows XP themes support for non standard ones is blocked. To unblock it and use many available free themes on Internet, you have to replace uxtheme.dll with a patched one.\n\nThere are lots of them. I use one that looks like Windows Vista one.\n\nRegarding IsAppThemed(), yes, we are going to modify it asap.','',0,'GA==','15cl520x',1,0,'',2,0,0),(15725,3586,6,2,0,'87.218.146.120',1152919735,1,0,1,1,1,1,'','','Miguel,\n\nLa versión 2.4 de FWH es de hace más de 3 años. Imagínate todas las mejoras, novedades y arreglos que se han hecho en ese tiempo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nEl precio lo puedes consultar en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos.','',0,'GA==','3p2fl56y',1,0,'',2,0,0),(15726,3577,6,439,0,'190.0.130.231',1152928127,1,0,1,1,1,1,'','Documentacion de hbxml','Gracias Lautaro,\n\nEsa documentación está ausente en el xHarbour que se distribuye con FWH de Marzo 2006, pero la bajé del sitio de xHarbour.\n\nAhora la voy a estudiar.\n\nSaludos,','',0,'GA==','38inkru2',1,0,'',439,0,0),(15727,3535,2,9,0,'85.60.33.254',1152938390,1,0,1,1,1,1,'','','Manu,\n\nComprueba el siguiente código. Ten cuidado que la línea 6 y 7 son\nla misma, pero por el ancho de este correo aparecen como dos líneas distintas:\n\nFUNCTION MAIN()\n   LOCAL cOrigen   := \"c:\\fwh\\samples\\manu.xls\"\n   LOCAL cDestino  := \"c:\\fwh\\samples\\manu2.xls\"\n   LOCAL oExcel    := CREATEOBJECT( \"Excel.Application\" )\n   LOCAL oWorkBook := oExcel:WorkBooks:Open(cOrigen)\n\n   oExcel:ActiveSheet:Copy( oExcel:ActiveWorkbook:Sheets [oExcel:ActiveWorkbook:Sheets:Count ] ) //misma linea anterior\n   oExcel:DisplayAlerts= .F.     // quita ventana confirmación \n   oExcel:ActiveSheet:SAVEAS(cDestino)\n   oExcel:DisplayAlerts= .T.     // pone ventana confirmación\n    \n   oExcel:Visible = .T.\n\n   RETURN NIL','',0,'','2g2k9liu',1,0,'',9,0,0),(15728,3581,3,49,0,'62.13.172.78',1152938831,1,0,1,1,1,1,'','','because msgbar have a no like graphics \nIf you go on alanit.com you can see many program : they not use msgbar\n\n[url=http&#58;//img96&#46;imageshack&#46;us/my&#46;php?image=bubuvh8&#46;jpg:xca00og2][img:xca00og2]http&#58;//img96&#46;imageshack&#46;us/img96/7162/bubuvh8&#46;th&#46;jpg[/img:xca00og2][/url:xca00og2]\n\ncan I create it ?','',0,'GA==','xca00og2',1,0,'',49,0,0),(15729,3583,3,303,0,'72.199.41.171',1152951337,1,0,1,1,1,0,'','','Antonio,\n\n&gt;As you may know, Windows XP themes support for non standard ones is blocked. To unblock it and use many available free themes on Internet, you have to replace uxtheme.dll with a patched one. \n\nI understand. We can solve the problem for ourselves, but one cannot distribute an application with buttons that look bad with the standard XP themes. Our applications would look very unprofessional. So, in order to avoid the problem, our only solution is to avoid using color and bitmap backgrounds on dialogs. Unfortunately, more color and graphics is the current trend in applications.\n\nI had even figured out how to paint gradient backgrounds on windows and dialogs, but now I guess I can\'t use them because of the button problem. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nThank you for looking into fixing isAppThemed to work with external manifest files.\n\nJames','',0,'GA==','1kc96edh',1,0,'',303,0,0),(15730,3580,2,655,0,'85.136.99.169',1152952818,1,0,0,0,1,0,'','Solucionado','Antonio, gracias por la respuesta, pero al final lo he solucionado, el problema era que en mi archivo LNK tenía renombrada las líneas:\n\n   // BLINKER INCREMENTAL ON\n   // BLINKER EXECUTABLE COMPRESS\n\nLe he quitado el renombrado, y funciona perfectamente.\n\nLo curioso es que llevo toda la vida compilando con esas líneas renombradas y nunca me ha dado problemas.\n\nDe cualquier modo, seguiré tu consejo e intentaré actualizarme a Blinker 7, creo que esa es la última versión.\n\nDe nuevo, gracias.','',0,'GA==','2vbss564',1,0,'',655,0,0),(15731,3580,2,655,0,'85.136.99.169',1152953665,1,0,0,0,1,0,'','BLINKER INCREMENTAL ON','Si bien el tema lo he solucionado, he detectado que en otras partes de mi aplicación ahora me aparece un mensaje del tipo:\n\n   \"GESTIONDJ ha causado error de carga de segmento en módulo gestion.exe en 0016:0B81.\n\n   Escoja Cerrar, GESTIONDJ se cerrará.\"\n\n\nEste error lo he corregido quitando BLINKER INCREMENTAL ON.\n\n\nSaludos / Paco Rodríguez.','',0,'GA==','24yxllik',1,0,'',655,0,0),(15732,3590,3,6,0,'87.6.210.176',1152957329,1,0,1,1,1,1,'','DropDown combobox color','Dear friends, any idea on how to change the foreground and background colors of a standard CBS_DROPDOWN (the one in which you can write) combobox (not the FWH one with a TGet on it)?\n\nEMG','',0,'GA==','33512jql',1,0,'',6,0,0),(15733,3591,3,49,0,'62.13.172.78',1152960774,1,0,1,1,1,1,'','Error with tsbutton','I create a windows ( seeing the sample of tsbutton child03)  with many button ( tsbutton) \n\nOn each button I action a menu pop to create a reservation of a seat\n\n\n[code:2qhwkme7] bAction &#58;= &#123;|oBtn| prenotamenu&#40; oBtn &#41; ,oBtn&#58;cCaption &#58;= &quot;&quot;,oBtn&#58;Disable&#40; VK_RBUTTON &#41;, oBtn&#58;Refresh&#40;&#41; &#125;[/code:2qhwkme7]\n\n\nthis is the popmenu\n[code:2qhwkme7]Static Function prenotamenu&#40; oBtn &#41;\n   Local oMenu, aRect\n   aRect &#58;= GetClientRect&#40; oBtn&#58;hWnd &#41;\n      MENU oMenu POPUP\n         MENUITEM &quot;&amp;Nuova prenotazione&quot; ACTION prenota&#40; oBtn,&#46;t&#46; &#41;\n         MENUITEM &quot;&amp;Modifica prenotazione&quot;  ACTION prenota&#40; oBtn,&#46;f&#46; &#41;\n         SEPARATOR\n         MENUITEM &quot;&amp;Mostra prenotazione&quot;  ACTION prenota&#40; oBtn &#41;\n      ENDMENU\n      ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF oBtn\n\n   Return Nil[/code:2qhwkme7]\n\n\n\nwhen I run prenota function the procedure must  modify the seat bitmap if I insert the reservation but the procedure  modify the seat bitmap if I insert or I not Insert .\n\n\nthis is the code of prenota ()\n\n\n[code:2qhwkme7]Static Function prenota&#40; oBtn,lnew &#41;\n   Local cNumero &#58;= oBtn&#58;Cargo\n   Local atipo  &#58;=&#123;&quot;Autorità&quot;,&quot;Riservato&quot;,&quot;Docente&quot;,&quot;Alunno&quot;,&quot;Genitore&quot;,&quot;Esterno&quot;&#125;\n   Local Prenotato &#58;= &#46;F&#46;\n   Local Pagato &#58;= &#46;F&#46;\n   local lReg &#58;= &#46;f&#46;\n\n   LOCAL aDat&#91;10&#93;\n   LOCAL oget1,oget2\n   LOCAL tipo\n\n\n\n     IF lNew\n\n            aDat&#91; 1&#93;&#58;=Space&#40;40&#41;\n            aDat&#91; 2&#93;&#58;=Space&#40;40&#41;\n            aDat&#91; 3&#93;&#58;=&#46;f&#46;\n            aDat&#91; 4&#93;&#58;=0\n         ELSE\n\n            aDat&#91; 1&#93;&#58;= teatro-&gt;nominativo\n            aDat&#91; 2&#93;&#58;= teatro-&gt;tipo\n            aDat&#91; 3&#93;&#58;= teatro-&gt;pagato\n            aDat&#91; 4&#93;&#58;= teatro-&gt;biglietto\n\n     endif\n\n\n\n\n    DEFINE DIALOG oDlg RESOURCE &quot;prenota&quot;;\n    TITLE &quot;ESEMPIO DI Prenotazione poltrona numero &#58; &quot;+cNumero\n\n    REDEFINE GET aDat&#91; 1&#93; ID 101 OF oDlg PICTURE &quot;@!&quot;\n\n    REDEFINE COMBOBOX  aDat&#91;2&#93; ITEMS aTipo ID 102 OF  oDlg\n\n    REDEFINE CHECKBOX aDat&#91;3&#93; ID 301 OF oDlg\n\n    REDEFINE GET aDat&#91;4&#93; ID 103 OF oDlg PICTURE &quot;999999999&#46;99&quot;\n\n     REDEFINE BUTTON ID 104 OF oDlg ACTION &#40;lReg&#58;=&#46;T&#46;,oDlg&#58;End&#40;&#41;&#41;\n     REDEFINE BUTTON ID 105 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n     ACTIVATE DIALOG oDlg\n\n\n\n    IF lReg\n       nMSGBOX&#40;&quot;Salvataggio Prenotazione&quot;,&quot;Informazioni&quot;&#41;\n\n     oBtn&#58;Enable&#40;&#41;\n     oBtn&#58;cCaption &#58;= oBtn&#58;Cargo\n     oBtn&#58;Refresh&#40;&#41;\n\n\n    else\n\n    \n\n    endif\n\nreturn nil[/code:2qhwkme7]\n\n\n\nHow I must make to show the seat modified only when I insert the reservation ?','',0,'AIA=','2qhwkme7',1,0,'',49,0,0),(15734,2850,3,2,0,'87.218.146.120',1152964582,1,0,1,1,1,1,'','','Fco.,\n\nWe are emailing you some files for your review.','',0,'AIA=','2x8oa3m0',1,0,'',2,0,0),(15735,3592,3,148,0,'196.205.180.203',1152965199,1,0,1,1,1,0,'','error with new buildhd.bat','??????????????????????????????????????????????????????????????????????????????\n? FiveWin for Harbour 2.7 - June 2006              Harbour development power ??\n? (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ??\n???????????????????????????????????????????????????????????????????????????????\n&#1576; ?????????????????????????????????????????????????????????????????????????????\nCompiling...\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sitex.prg\' and generating preprocessed output to \'sitex.ppo\'...\nLines 2941, Functions/Procedures 43\nGenerating C source output to \'sitex.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nsitex.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nWarning: Image linked as an executable, but with a .DLL or .BPL extension\n* self contained DLL successfully built\n\'sitex\' is not recognized as an internal or external command,\noperable program or batch file.','',0,'AIA=','3leh6l49',1,0,'',148,0,0),(15736,3583,3,2,0,'87.218.146.120',1152965467,1,0,1,1,1,1,'','','James,\n\nMicrosoft applications have the same problem, but they use lighter colors for the background. Its the XP theme that makes a gradient from the surounding background color.\n\nHave a look at Microsoft Visual C++ Express edition:\n[url=http&#58;//imageshack&#46;us:4297n8m7][img:4297n8m7]http&#58;//img145&#46;imageshack&#46;us/img145/889/visual1dq7&#46;png[/img:4297n8m7][/url:4297n8m7]\nFrom here:\n[url=http&#58;//imageshack&#46;us:4297n8m7][img:4297n8m7]http&#58;//img145&#46;imageshack&#46;us/img145/6503/visual2vd0&#46;png[/img:4297n8m7][/url:4297n8m7]\nAs I have commented you, this is a Windows issue, its not a FWH one.','',0,'GA==','4297n8m7',1,0,'',2,0,0),(15737,3592,3,2,0,'87.218.146.120',1152965917,1,0,1,1,1,1,'','','Ehab,\n\nHave you checked for a sitex.dll file ? It should be there. And it has to be executed from an EXE. You can\'t run a DLL by itself.','',0,'GA==','1p6ymiim',1,0,'',2,0,0),(15738,3590,3,2,0,'87.218.146.120',1152966018,1,0,1,1,1,1,'','','Enrico,\n\nDo you mean using FWH code ? Or in pure C ?','',0,'GA==','19e412vk',1,0,'',2,0,0),(15739,3578,1,2,0,'87.218.146.120',1152966057,1,0,1,1,1,1,'','','* afaik: as far as I know','',0,'GA==','1xc4egde',1,0,'',2,0,0),(15740,3580,2,2,0,'87.218.146.120',1152966239,1,0,1,1,1,1,'','','Paco,\n\nActualiza Blinker <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','1pfk7cad',1,0,'',2,0,0),(15741,3590,3,6,0,'87.6.210.176',1152966348,1,0,1,1,1,1,'','','Any way will be fine.\n\nEMG','',0,'GA==','2hi7ky7a',1,0,'',6,0,0),(15742,3590,3,2,0,'87.218.146.120',1152966839,1,0,1,1,1,1,'','','Enrico,\n\nHave a look to WM_CTLCOLORLISTBOX. It should be similar for a ComboBox. \n\nAlso, you have to consider that there is an Edit control (TGet in FWH) as a child of the combobox, so the combobox also has to answer to WM_CTLCOLORLISTBOX.','',0,'GA==','1yswh43o',1,0,'',2,0,0),(15743,3583,3,2,0,'87.218.146.120',1152967765,1,0,1,1,1,1,'','','James,\n\nWhen you use an external manifest file, how do you name it ? Thanks,','',0,'GA==','3cy7ao7y',1,0,'',2,0,0),(15744,3590,3,6,0,'87.6.210.176',1152971000,1,0,1,1,1,1,'','','Thanks to your idea I solved my problem this way:\n\n[code:2lknrjvh]METHOD CtlColor&#40; hWndChild, hDCChild &#41; CLASS TComboBox\n\n   if lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, CBS_DROPDOWN &#41;\n      SetTextColor&#40; hDCChild, &#58;&#58;nClrText &#41;\n      SetBkColor&#40; hDCChild, &#58;&#58;nClrPane &#41;\n\n      &#58;&#58;hBkBrush = CreateSolidBrush&#40; &#58;&#58;nClrPane &#41;\n\n      return &#58;&#58;hBkBrush\n   endif\n\nreturn nil[/code:2lknrjvh]\n\nEMG','',0,'AIA=','2lknrjvh',1,0,'',6,0,0),(15745,3582,1,367,0,'201.34.216.150',1152973781,1,0,1,1,1,1,'','','Already I tested, but it does not send nothing. \n\nIt wanted another option.','',0,'AIA=','ig5ivrt2',1,0,'',367,0,0),(15746,3569,18,43,0,'189.128.26.15',1152976089,1,0,1,1,1,0,'','','ok...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias Antonio\n\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','2w5jnfqo',1,0,'',43,0,0),(15747,2850,3,530,0,'201.114.234.145',1152977176,1,0,1,1,1,0,'','','Hi Antonio:\n\nMy ActiveX Components in VB6 works FINE AND SIMPLE, that\'s the reason I\'ve tried to developed it in FWH and I felt confident to succeed.\n\nI suposed the fact was enough to get compatibility with FWH.\n\nI undestood You don\'t have the duty to study all the sort of the existings ActiveX components (At least not included in the FWH price). That\'s the reason I asked You a direct question about fingerprings activex componnents compatibility with FWH. \n\nI recieved Your new FiveHC.lib by mail today and I will test it. Many thanks.\nI asked You before for a an \"Non visual\" ActiveX component example, can You help me? That another issue is having me in doubts.\n\nThanks in advance and regards\nFco Gamboa','',0,'AIA=','32n9ssga',1,0,'',530,0,0),(15748,3582,1,74,0,'190.49.85.119',1152979636,1,0,1,1,1,1,'','','Kleyton:\n\n             Search for tSmtp class modified by Luis Krause Mantilla, y have no problems sending email with that class:\n\n[code:3u1n1um2]\nFunction EnvMail&#40;oBrw&#41;\n\nLocal oBar, cHost &#58;=SPAC&#40;40&#41;, cSender &#58;= spac&#40;40&#41;, hFocus\nlocal cSubject &#58;= Space&#40; 100 &#41;, cMsg &#58;= Space&#40; 255 &#41;, lReceipt &#58;= &#46;T&#46;\nLocal SEL_FIELD1&#58;=&#123; &#123; || SOLICITA-&gt;NOMBRE&#125;,&#123; || SOLICITA-&gt;EMAIL &#125;&#125;,;\n			SEL_ENC1&#58;=&#123; &quot;Nombre&quot;,&quot;Email&quot;&#125; ,cPaso&#58;=&#46;T&#46;,cMail&#58;=SPAC&#40;40&#41;\nLocal cRegis&#58;=AUTORIZA-&gt;&#40;RECNO&#40;&#41;&#41;,cMsg2,cNombre&#58;=spac&#40;40&#41;,oEnvia, lAuth&#58;=&#46;T&#46;\ncSender &#58;= param-&gt;sender\ncHost &#58;=PARAM-&gt;SMTP\n\nSELEAGREGA&#40;&quot;SOLICITA&quot;,239,129,&#46;F&#46;,SEL_FIELD1,SEL_ENC1,2,&quot;Destino para&#58; Af&#46; &quot;+ALLTRIM&#40;LEFT&#40;AUTORIZA-&gt;APEYNOMB,25&#41;&#41;+;\n           &quot; - &quot;+IF&#40;!EMPTY&#40;AUTORIZA-&gt;PARTIDO&#41;,AUTORIZA-&gt;PARTIDO,BUS_DES&#40;&quot;PADRON&quot;,3,AUTORIZA-&gt;NROBENEF,&quot;PARTIDOUG&quot;&#41;&#41; &#41;\n\nIF SALIR # 2\n\n		cNOmbre&#58;=SOLICITA-&gt;NOMBRE\n		if !empty&#40;SOLICITA-&gt;EMAIL&#41;\n				cMail&#58;=SOLICITA-&gt;EMAIL\n		else\n				cPaso&#58;=pidemail&#40;@cMail&#41;\n		endif\n\n    if AUTORIZA-&gt;ESTADO == \'PENDI\'\n      MSGSTOP&#40;oemtoansi&#40;\'La pr ctica seleccionada a£n no ha sido auditada\'&#41;,oemtoansi&#40;\'No puede enviar pr cticas pendientes\'&#41;&#41;\n      cPaso&#58;=&#46;F&#46;\n    endif\n\n		IF cPaso\n\n				cSubject&#58;=&quot;Cisbo XI-Solic&#46;Autoriz&#46;Nº &quot;+PADL&#40;AUTORIZA-&gt;NUMERO,5,&quot;0&quot;&#41;+&quot; &#40;&quot;+;\n								 IF&#40;AUTORIZA-&gt;ESTADO=&quot;AUTOR&quot;,&quot;AUTORIZADA&quot;,IF&#40;AUTORIZA-&gt;ESTADO=&quot;RECHA&quot;,&quot;RECHAZADA&quot;,&quot;&quot;&#41;&#41;+&quot;&#41;&quot;\n\n				// my defaults add by Quim\n				cMsg    &#58;= ;\n		          &quot;Por la presente comunicamos &quot;+IF&#40;AUTORIZA-&gt;ESTADO=&quot;AUTOR&quot;,&quot;LA AUTORIZACION&quot;,IF&#40;AUTORIZA-&gt;ESTADO=&quot;RECHA&quot;,;\n		          &quot;EL RECHAZO&quot;,IF&#40;AUTORIZA-&gt;ESTADO=\'R&#46;TRA\',&quot;EL RECHAZO TRANSITORIO&quot;,&quot;&quot;&#41;&#41;&#41;+&quot; de la siguiente práctica&#58;&quot;+CRLF+;\n							+SPAC&#40;50&#41;+;\n							+CRLF+;\n              &quot;Número de Autorización&#58; &quot;+PADL&#40;AUTORIZA-&gt;NUMERO,5,&quot;0&quot;&#41;+CRLF+;\n              &quot;Afiliado&#58;  &quot;+AUTORIZA-&gt;NROBENEF+&quot; - &quot;+AUTORIZA-&gt;APEYNOMB+CRLF+;\n              &quot;Partido&#58;   &quot;+IF&#40;!EMPTY&#40;AUTORIZA-&gt;PARTIDO&#41;,AUTORIZA-&gt;PARTIDO,BUS_DES&#40;&quot;PADRON&quot;,3,AUTORIZA-&gt;NROBENEF,&quot;PARTIDOUG&quot;&#41;&#41;+CRLF+;\n              &quot;Práctica&#58;  &quot;+BUS_DES&#40;&quot;PRACTICA&quot;,1,AUTORIZA-&gt;PRACTICA,&quot;NOMBRE&quot;&#41;+CRLF+;\n              &quot;Prestador&#58; &quot;+ALLTRIM&#40;AUTORIZA-&gt;PRESTADOR&#41;+&quot; Dir&#46;&#58; &quot;+ALLTRIM&#40;BUS_DES&#40;&quot;PROVEEDO&quot;,2,AUTORIZA-&gt;PRESTADOR,&quot;DIRECCION&quot;&#41;&#41;+;\n																								&quot; Loc&#46;&#58; &quot;+ALLTRIM&#40;BUS_DES&#40;&quot;PROVEEDO&quot;,2,AUTORIZA-&gt;PRESTADOR,&quot;LOCALIDAD&quot;&#41;&#41;+;\n							                                  &quot; Tel&#46;&#58; &quot;+ALLTRIM&#40;BUS_DES&#40;&quot;PROVEEDO&quot;,2,AUTORIZA-&gt;PRESTADOR,&quot;TELEFONO&quot;&#41;&#41;+CRLF+;\n              &quot;Observaciones&#58;  &quot;+AUTORIZA-&gt;RESPUESTA+CRLF\n				IF AUTORIZA-&gt;ESTADO==\'AUTOR\'\n				cMsg2&#58;= ;\n              SPAC&#40;50&#41;+CRLF+;\n              +SPAC&#40;50&#41;+CRLF+;\n              +SPAC&#40;50&#41;+CRLF+;\n              &quot;La presente autorización posee 30 dias de vigencia y deberá ser adjuntada al resto de la documentación&quot;+CRLF+;\n              &quot;que habitualmente se acompaña en la facturación mensual&#46; En el resumen mensual de facturación deberá incluirse &quot;+;\n              &quot;el codigo de autorización de cada práctica facturada&#46;&quot;\n				ELSE\n				cMsg2&#58;= &quot;&quot;\n				ENDIF\n\n				// end by Quim\n\n				Define Window oWnd ;\n					 FROM 5,5 TO 29,86;\n				   Title oemtoansi&#40;&quot;Enviar EMail - Autorizaci¢n N§ &quot;&#41;+PADL&#40;AUTORIZA-&gt;NUMERO,5,&quot;0&quot;&#41;+;\n					                 &quot; - Para&#58; &quot;+cNombre ;\n				   Color GetSysColor&#40; COLOR_WINDOWTEXT &#41;, GetSysColor&#40; COLOR_BTNFACE &#41;\n\n				Define ButtonBar oBar _3D Of oWnd\n				oBar&#58;SetFont&#40; TFont&#40;&#41;&#58;New&#40; &quot;MS Sans Serif&quot;, 0, -11,, &#46;T&#46; &#41; &#41;  // to avoid runtime error in TBtnBmp class!!!\n\n				Define Button oEnvia of oBar Prompt &quot;S&quot; Group ;\n				   Action SendMail&#40; oBrw,cRegis, oWnd, cMail, Alltrim&#40; cHost &#41;, AllTrim&#40; cSender &#41;, AllTrim&#40; cSubject &#41;,;\n					                  AllTrim&#40; cMsg &#41;, lReceipt,cMsg2 &#41;;\n\nStatic Function SendMail&#40; oBrw,cRegis,oDlg,cDestino,cHost, cSender, cSubject, cMsg, lReceipt,cMsg2 &#41;\nLocal oMail, oInit,SS\nLocal cUser&#58;=&quot;cores8@speedy&#46;com&#46;ar&quot;,cPass&#58;=&quot;690810&quot;\n\ncUser&#58;=ALLTRIM&#40;PARAM-&gt;SENDER&#41;\nSS=SECONDS&#40;&#41;\n// initialize sockets &#40;or nothing will happen&#41; - it\'s a quirk in GetHostByName&#40;&#41;, not TSmtp\noInit &#58;= TSmtp&#40;&#41;&#58;New&#40; cHost &#41;\n// no let\'s go for our socket\n*oMail &#58;= TSmtp&#40;&#41;&#58;New&#40; cHost, , lAuth, cUser, cPass &#41; // &#91;jlalin&#93;, IBTC\n\noMail &#58;= TSmtp&#40;&#41;&#58;New&#40; cHost,,&#46;T&#46;,cUser,cPass &#41;\noMail&#58;nGMT &#58;= -8   // Pacific Standard Time &#40;GMT -08&#58;00&#41; - Adjust this to your own Time Zone!\n\n// uncomment next line if you experience problems while sending email / descomentar sig&#46; l¡nea en caso de experimentar problemas al enviar correo\noMail&#58;nDelay &#58;= 1\n\n//oMail&#58;lTxtAsAttach &#58;= &#46;F&#46;                       // uncomment to force txt, log and htm files as inline as opposed to attachement\noMail&#58;oSocket&#58;lDebug &#58;= &#46;T&#46;                     // uncomment to create log file\noMail&#58;oSocket&#58;cLogFile &#58;= &quot;smtp&#46;log&quot;\nOMAIL&#58;bDone=&#123;|| TONE&#40;1000,1&#41;,MSGINFO&#40;\'Mail enviado con exito en \'+NTRIM&#40;&#40;SECONDS&#40;&#41;-SS&#41;&#41;+\' Segundos\',\'Aviso\'&#41; ,;\n                REEMPLAZA&#40;oBrw,cRegis&#41;,oWnd&#58;End&#40;&#41;&#125;\n\noMail&#58;bConnecting &#58;= &#123;|| oWnd&#58;SetMsg&#40; &quot;Conectando a &quot; + cHost + &quot; &#40;&quot; + oMail&#58;cIPServer + &quot;&#41; and waiting for response&#46;&#46;&#46;&quot; &#41; &#125;\noMail&#58;bConnected  &#58;= &#123;|| oWnd&#58;SetMsg&#40; &quot;Conectado y enviando email&#46;&#46;&#46;&quot; &#41; &#125;\n\ncSender&#58;=ALLTRIM&#40;cSender&#41;\ncDestino&#58;=ALLTRIM&#40;cDestino&#41;\noMail&#58;SendMail&#40; ;\n   cSender, ;                                    // from/de\n   &#123; cDestino &#125;, ;  // to/para &#40;arreglo&#41; - I use cSender here also because it\'s an &quot;autotest&quot;&#46; Actually you would type a different address here\n	 cMsg,;\n   cSubject,;     // Subject/Asunto\n   &#123;&#125;, ;  //  Array of filenames to attach/Arreglo de nombres de archivos a agregar\n   &#123;&#125;, ;         // aCC\n   &#123;&#125;, ;         // aBCC\n   lReceipt, ;    // Return Receipt/acuse de recibo\n   cMsg2 &#41;         // msg in HTML format/mensaje en HTML\n\n		oInit&#58;end&#40;&#41;\n		SS=SECONDS&#40;&#41;\n\nReturn &#46;T&#46;\n\n[/code:3u1n1um2]\n\nRegards,','',0,'AIA=','3u1n1um2',1,0,'',74,0,0),(15749,449,3,48,0,'82.158.66.147',1152980982,1,0,1,1,1,0,'','','I recently incorporate barcode printing and reading using de Cayetano\'s code. It was quite simple to do and althought not all the codes support by the library was correctly recognise, it was enought for me with the Ean13.\n\nIn a few day i\'d like to test a OCX control captable to print PDF417 codes (but I don\'t have a reader for that 2D codes).','',0,'AIA=','29x1jhdr',1,0,'',48,0,0),(15750,3571,6,221,0,'200.44.126.133',1152982667,1,0,1,1,1,0,'','ummm','estimado rene pudistes haberme contestado eso a mi tanbien hace mas de un mes que pregunte por eso y solo me ayudastes diciendo que a lo mejor tenia excel incompleto, de todos modos gracias','',0,'AIA=','2gh4sqx9',1,0,'',221,0,0),(15751,2850,3,2,0,'87.218.146.7',1152985275,1,0,1,1,1,1,'','','Fco.,\n\n&gt; I asked You before for a an \"Non visual\" ActiveX component example, can You help me? \n\nDo you know of a common \"non visual\" ActiveX component that we may instantiate here ? Thanks,','',0,'AIA=','3ejhxors',1,0,'',2,0,0),(15752,3590,3,2,0,'87.218.146.7',1152985652,1,0,1,1,1,1,'','','Enrico,\n\nExcellent, Master <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWhat do you use ::hBkBrush for ?  -you always call CreateSolidBrush()-','',0,'AIA=','2dflccom',1,0,'',2,0,0),(15753,3590,3,6,0,'87.6.210.176',1152986150,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3htncgv8]Enrico,\n\nExcellent, Master <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWhat do you use ::hBkBrush for ?  -you always call CreateSolidBrush()-[/quote:3htncgv8]\n\nYou are right! I have to call it only once, maybe inside Default() method (I already release it inside Destroy() method).\n\nThank you for pointed it out!\n\nEMG','',0,'gA==','3htncgv8',1,0,'',6,0,0),(15754,3590,3,2,0,'87.218.146.7',1152986542,1,0,1,1,1,1,'','','Enrico,\n\nIf you call CreateSolidBrush() always, then you can dinamically change the color of the control on the run.','',0,'gA==','1cqawma7',1,0,'',2,0,0),(15755,3590,3,303,0,'72.199.41.171',1152987251,1,0,1,1,1,0,'','','Antonio,\n\nSo, are you suggesting we just do:\n\n   return CreateSolidBrush( ::nClrPane ) \n\ninstead?\n\nJames','',0,'gA==','1kj4qvyq',1,0,'',303,0,0),(15756,3583,3,303,0,'72.199.41.171',1152987822,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Microsoft applications have the same problem, but they use lighter colors for the background. Its the XP theme that makes a gradient from the surounding background color.\n\nI have noticed that too. That does seem to be a workaround although very limiiting.\n\n&gt;As I have commented you, this is a Windows issue, its not a FWH one.\n\nI understand, I\'m not blaming FW, just expressing my dissapointment in the situation. We could design some really nice looking apps if this wasn\'t a problem.\n\n&gt;When you use an external manifest file, how do you name it ?\n\n       [application name].exe.manifest\n\nJames','',0,'','q0smvw63',1,0,'',303,0,0),(15757,3590,3,6,0,'87.6.210.176',1152988013,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1s3qmtvq]Enrico,\n\nIf you call CreateSolidBrush() always, then you can dinamically change the color of the control on the run.[/quote:1s3qmtvq]\n\nYes. But at the moment I don\'t need of this feature.\n\nEMG','',0,'gA==','1s3qmtvq',1,0,'',6,0,0),(15758,3581,3,303,0,'72.199.41.171',1152988028,1,0,1,1,1,0,'','','Silvio,\n\nI\'m sorry I don\'t understand what you are saying. The status bar graphic you linked to doesn\'t have any graphics. I thought you wanted to be able to put graphics on the status bar? If so, the FW messageBar can do this.\n\nJames','',0,'gA==','3rd73yg2',1,0,'',303,0,0),(15759,3590,3,6,0,'87.6.210.176',1152988208,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:20stt6cc]Antonio,\n\nSo, are you suggesting we just do:\n\n   return CreateSolidBrush( ::nClrPane ) \n\ninstead?\n\nJames[/quote:20stt6cc]\n\nAlmost. But that way you can\'t release the brush and this will cause a resource leakage. You need to store the handle and release it before create the new brush. And release it once more when the control is destroyed.\n\nEMG','',0,'gA==','20stt6cc',1,0,'',6,0,0),(15760,3593,3,144,0,'72.192.177.190',1152991022,1,0,1,1,1,1,'','WebBrowser ActiveX control','I\'m pasting here a private msg I sent to Antonio so our discussion can be shared.  If anyone else has customized the Shell.InternetExplorer control, I\'d love to hear your input.\n\nAfter much searching in vain on MSDN for docs, Antonio helped me realize the magic keyword is WebBrowser. Here\'s the link to their docs:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/WebBrowser.asp\">http://msdn.microsoft.com/library/defau ... rowser.asp</a><!-- m -->\n\nAntonio also shared with me his trick to use the Word VBA editor to use their object inspector. What I had not done before is use the Form designer to access all the MS controls; that\'s where you\'ll find properties for \"Microsoft Web Browser\" or something similar. Its name changes with different versions and it appears alphabetically in different places <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nHere are my hopes for more features:\nMeanwhile, there\'s one Event handler that doesn\'t seem to be working right. If I can get that, I can use html as a major GUI presentation for all kinds of things <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nThe idea is: How to have the App take actions based on clicks in the webBrowser.\n\nSince BeforeNavigate2() provides the target URL, I could inspect that and do any desired action, including according to the MS docs cancel that navigation. But the trace of params for it shows 7 blank lines and then a number (I presume a pointer), then another 7 blank lines.\nEvent: BeforeNavigate2\n  Params: \n\n\n\n\n\n\n  1798272\n...\n\nThe MS docs indicate there should be 7 args, and the second one is the URL\nPrivate Sub object_BeforeNavigate2( _\n   ByVal pDisp As Object, _\n   ByRef Url As Variant, _\n   ByRef Flags As Variant, _\n   ByRef TargetFrameName As Variant, _\n   ByRef PostData As Variant, _\n   ByRef Headers As Variant, _\n   ByRef Cancel As Boolean)\n \nI understand the Variants can make things tricky for a generic routine in your C code to capture, but if there\'s a way your (or I) could get these accurately it would help a lot.\nBut then there\'s the tricky part <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nThe 7th arg \"Cancel\" is intended to be used \"ByRef\" to return True to cancel the navigation.\nIs there any chance of that value ever being returned back from the PRG level through the C structures to Windows?\n\nWhat I envision for the best design is to inherit from TActiveX to create TWebBrowser and try to handle specifics there. Do you have any mechanism, as VB does, to route specific Events to a specific PRG method? \nCan I help make that happen?\n\nThanks so much for all your work,\n\n--\n  Brian Hays','',0,'gA==','3p7jsk1j',1,0,'',144,0,0),(15761,449,3,439,0,'190.0.137.93',1152991719,1,0,1,1,1,1,'','Clase BarLib','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/021bdf8b63/BarLib.rar.html\">http://hyperupload.com/download/021bdf8 ... b.rar.html</a><!-- m -->\n\nAqui encontrarán la clase barlib con ejemplos y la poca documentación existente (pero suficiente) probada con xHarbour 0.99.60 , funcionando muy bien.\n\nEspero esto ayude.','',0,'gA==','30zl7wlg',1,0,'',439,0,0),(15762,3417,3,439,0,'190.0.137.93',1152991836,1,0,1,1,1,1,'','','Silvio\n\nCould you please put a little sample with this error marking the part of the code where the error appears with HyperUpLoad?\n\nI would like to check it and see, ok?','',0,'gA==','3ej5zgpu',1,0,'',439,0,0),(15763,449,3,6,0,'87.6.213.184',1152992879,1,0,1,1,1,1,'','Re: Clase BarLib','I agree that Barlib is a wonderful barcode library and I use it since years. But please notice that it has some resource leakages. As an example, in banner.prg che command RELEASE is incorrectly used:\n\nrelease ofont\nrelease open\n\ninstead of\n\nrelease font ofont\nrelease pen open\n\nEMG','',0,'gA==','2xsa69zf',1,0,'',6,0,0),(15764,3590,3,303,0,'72.199.41.171',1152995014,1,0,1,1,1,0,'','','Enrico,\n\nThanks for the explaination. This feature would be very useful if you wish to color the background different for required fields, then change it to white if the data is entered and vaild. You may remember me discussing this before.\n\nJames','',0,'gA==','fl4o2d0g',1,0,'',303,0,0),(15765,3535,2,375,0,'84.122.121.254',1152995986,1,0,1,1,1,1,'','','OK lo pruebo y te cuento. Gracias','',0,'gA==','qy5ubtcs',1,0,'',375,0,0),(15766,3539,3,170,0,'213.103.230.29',1152997348,1,0,1,1,1,1,'','','Evans,\n\nI have just tested FILE(\"con.bmp\") and FILE(\"C:\\MYREPERT\\CON.BMP\")\nwith Clipper 5.3 with FW and Windows 98, and they return .T.\nWhen i restart my pc with DOS without Windows, i have the same result.\n\nFor me, this is a Clipper error, or a undocumented convenience made\nby someone...\n\nI have writted a \"correct\" function, named FileExist().\nThis function do what FILE() could do, without reserved words...\n\n[code:3cykkhg2]\n\n#include &quot;set&#46;ch&quot;\n******************\nFUNCTION FileExist&#40;cFichier, lCacheSyst&#41;\n******************\n* Auteur Badara Thiam\nLOCAL nAttributs\nLOCAL nCount &#58;= 1\nLOCAL X\nLOCAL cSepare &#58;= &quot;&quot;\n\nIF &quot;\\&quot; $ cFichier\nELSEIF !EMPTY&#40; SET&#40;_SET_DEFAULT&#41; &#41;\n* Recherche dans le répertoire par défaut de clipper &#40;SET DEFAULT TO&#41;\n  cFichier &#58;= TRIM&#40;SET&#40;_SET_DEFAULT&#41;&#41; + &quot;\\&quot; + cFichier\nELSEIF !EMPTY&#40; SET&#40;_SET_PATH&#41; &#41;\n* Recherche dans le&#40;s&#41; répertoire&#40;s&#41; du path de clipper &#40;SET PATH TO&#41;\n  nCount &#58;= LEN&#40; SET&#40;_SET_PATH&#41; &#41; - LEN&#40; STRTRAN&#40;SET&#40;_SET_PATH&#41;,&quot;,&quot;,&quot;&quot;&#41; &#41; + 1\n  IF nCount = 1\n    nCount &#58;= LEN&#40; SET&#40;_SET_PATH&#41; &#41; - LEN&#40; STRTRAN&#40;SET&#40;_SET_PATH&#41;,&quot;;&quot;,&quot;&quot;&#41; &#41; + 1\n    IF nCount = 1\n      cFichier &#58;= TRIM&#40;SET&#40;_SET_PATH&#41;&#41; + &quot;\\&quot; + cFichier\n    ELSE\n      cSepare &#58;= &quot;;&quot;\n    ENDIF\n  ELSE\n    cSepare &#58;= &quot;,&quot;\n  ENDIF\nENDIF\n\nFOR X &#58;= 1 TO nCount\n  IF nCount = 1\n\n    * With Windows apps\n    nAttributs &#58;= GetFileAttributes&#40;cFichier&#41;\n\n    * Or with Clipper DOS apps via Clipper Tools\n    * nAttributs &#58;= FileAttr&#40;cFichier&#41;\n\n  ELSE\n    * With Windows apps\n    nAttributs &#58;= GetFileAttributes&#40; ALLTRIM&#40; TOKEN&#40;SET&#40;_SET_PATH&#41;, cSepare, nCount&#41; &#41; ;\n    + &quot;\\&quot; + cFichier&#41;\n\n    * Or with Clipper DOS apps via Clipper Tools\n    * nAttributs &#58;= FileAttr&#40; ALLTRIM&#40; TOKEN&#40;SET&#40;_SET_PATH&#41;, cSepare, nCount&#41; &#41; ;\n    * + &quot;\\&quot; + cFichier&#41;\n  \n  ENDIF\n  IF &#40; nAttributs &gt;= 0 &#46;AND&#46; &#40; nAttributs % 32 &#41; &lt; IIF&#40;EMPTY&#40;lCacheSyst&#41;, 2, 8&#41; &#41;\n    RETURN &#46;T&#46;\n  ENDIF\nNEXT X\nRETURN &#46;F&#46;\n\n*******************\nDLL32 FUNCTION GetFileAttributes&#40; lpszSearchFile AS STRING &#41; AS DWORD ;\nPASCAL FROM &quot;GetFileAttributesA&quot; LIB &quot;KERNEL32&#46;DLL&quot;\n\n\n[/code:3cykkhg2]\n\nChanged since last hour, add lCacheSyst to see all existing files if .T.','',0,'AIA=','3cykkhg2',1,1153004576,'',170,2,0),(15767,3592,3,148,0,'196.205.177.29',1152997530,1,0,1,1,1,0,'','','How can I call DLL from EXE directly ?','',0,'AIA=','2qbektwr',1,0,'',148,0,0),(15768,3590,3,6,0,'87.6.213.184',1152997596,1,0,1,1,1,1,'','','Yes, but please notice that you can already do this with FWH dropdown comboboxes as they have a TGet on them. My coloring problem was about standard Windows dropdown comboboxes.\n\nEMG','',0,'AIA=','22m88xsx',1,0,'',6,0,0),(15769,3539,3,6,0,'87.6.213.184',1152997974,1,0,1,1,1,1,'','','[quote=&quot;Badara Thiam&quot;:2hx85jvp]Evans,\n\nI have just tested FILE(\"con.bmp\") and FILE(\"C:\\MYREPERT\\CON.BMP\")\nwith Clipper 5.3 with FW and Windows 98, and they return .T.\nWhen i restart my pc with DOS without Windows, i have the same result.\n\nFor me, this is a Clipper error, or a undocumented convenience made\nby someone...[/quote:2hx85jvp]\n\nDid you try to create CON.BMP from Explorer? If not, please do it and you will find that Windows doesn\'t allow to create a file with that name.\n\nEMG','',0,'gA==','2hx85jvp',1,0,'',6,0,0),(15770,3539,3,170,0,'213.103.230.29',1152999669,1,0,1,1,1,1,'','','Enrico,\n\nYes, explorer cannot create CON.BMP,\nbut why Clipper File(\"CON.BMP\") return .T.  ??\n\nThis file doesn\'t exist. We not ask if the file\ncan be created but only if the file exist.','',0,'gA==','1nqwz1si',1,0,'',170,0,0),(15771,3593,3,2,0,'87.218.146.212',1153010562,1,0,1,1,1,1,'','','Brian,\n\nWe were not properly routing the events parameters supplied by reference. We are working on it right now. \n\nWe will keep you posted about our progress.','',0,'gA==','1ylo0lkx',1,0,'',2,0,0),(15772,3571,6,18,0,'201.137.41.226',1153013431,1,0,1,1,1,1,'','','La clase TExcels también les puede ser muy útil.\n\n\n..No te pido que me des el pescado , sino que me enseñes a pescar.....','',0,'gA==','3f8ahjmr',1,0,'',18,0,0),(15773,3568,6,18,0,'201.137.41.226',1153014266,1,0,1,1,1,1,'','','Les recomiendo que se den una vuelta por :\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin\">http://vikthor.com.mx/fivewin</a><!-- m -->\n\nen la seccion enlaces y busquen la liga a la página de José Giménez','',0,'gA==','3mz0yo8h',1,0,'',18,0,0),(15774,3593,3,2,0,'87.218.146.212',1153014418,1,0,1,1,1,1,'','','Brian,\n\n&gt;\nBut the trace of params for it shows 7 blank lines and then a number (I presume a pointer), then another 7 blank lines. \n&gt;\n\nFixed. It was a bug: we were duplicating the amount of received parameters. Now just 7 params arrive <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2ycjbaww',1,0,'',2,0,0),(15775,3593,3,2,0,'87.218.146.212',1153014548,1,0,1,1,1,1,'','','Brian,\n\nSee how it looks now:\nEvent: BeforeNavigate2\nParams: \n1429328\n<!-- m --><a class=\"postlink\" href=\"http://www.google.es/imghp?hl=es&amp;tab=wi&amp;q=\">http://www.google.es/imghp?hl=es&amp;tab=wi&amp;q=</a><!-- m -->\n64\n\nStill working on it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','if5kyg0a',1,0,'',2,0,0),(15776,3594,3,148,0,'196.205.177.29',1153015663,1,0,1,1,1,0,'','The difference','What is the difference between c0d32 and c0w32 libraries ? What is responsible in buildhd.bat that cause creations for DLL or EXE?','',0,'gA==','2il2aexv',1,0,'',148,0,0),(15778,3594,3,2,0,'87.218.146.212',1153016363,1,0,1,1,1,1,'','','Ehab,\n\n&gt; What is the difference between c0d32 and c0w32 libraries ? \n\nThose files contain the startup code for a DLL or for an EXE. The startup code is responsible for how it loads and behaves. It makes the difference.\n\n&gt; What is responsible in buildhd.bat that cause creations for DLL or EXE?\n\nThe ilink32 supplied parameter: -Tpd for DLLs. -Tpe for EXEs.','',0,'gA==','3g0cjmwk',1,0,'',2,0,0),(15780,3595,3,222,0,'200.11.242.33',1153021747,1,0,1,1,1,0,'','Do you need Word and Excel constants?','1) Go to: <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd11/html/wohowConstants_HV01049731.asp\">http://msdn.microsoft.com/library/defau ... 049731.asp</a><!-- m -->\n\n2) Right click on web-page. Save web-page source code as a txt file, example Word2003.txt\n\n3) Run application. Select txt file in step 2 and choose a ch file name, example, Word2003.ch\n\n4) Look up in the left panel for Excel 2003 constants or go to:\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/en-us/vbaxl11/html/xlhowConstants_HV01049962.asp\">http://msdn.microsoft.com/library/en-us ... 049962.asp</a><!-- m -->\nand repeat steps 2-3\n\n\nReading MS Constants app souce code:\n// identation eaten by message editor\n\n#include \"Fivewin.ch\"  \n//===========================================  \nFunction MsOfficeVars()  \n  Local cSource, cDest, cText\n  Local k\n  Local cs00:=\"&lt;h1&gt;\", cs01:=\"&lt;/h1&gt;\"\n  Local cs10:=[\"bterm\"&gt;], cs11:=\"&lt;/b&gt;\"\n  Local cs20:=\"&lt;tr&gt;&lt;td&gt;\", cs21:=\"&lt;/td&gt;&lt;td&gt;\", cs22:=\"&lt;/td&gt;&lt;/tr&gt;\"\n  Local hOut\n  Local cc, c1, c2\n\n  IF Empty(cSource:=cGetFile(\"txt file|*.txt\",\"Source file\"))\n    return nil\n  ENDIF\n  IF Empty(cDest:=cGetFile(\"ch file|*.ch\",\"Destination file\"))\n    return nil\n  ENDIF\n  IF File(cDest) .and. !MsgNoYes(\"File \"+cDest+\" exists\"+CRLF+\"Overwrite it?\")\n    return nil\n  ENDIF\n\n  cText:=MemoRead(cSource)\n  k:=At(cs00,cText); cText:=SubStr(cText,k+Len(cs00))\n  k:=At(cs01,cText); cc:=Left(cText,k-1)\n  cText:=SubStr(cText,k+Len(cs01))\n\n  hOut:=FCreate(cDest)\n  fWrite(hOut,;\n    \"//*********************************************\"+CRLF+;\n    \"// MS-OFFICE CONSTANTS\"+CRLF+;\n    \"// \"+cc+CRLF+;\n    \"// César E. Lozada (<!-- e --><a href=\"mailto:cesarlozada@hotmail.com\">cesarlozada@hotmail.com</a><!-- e -->)\"+CRLF+;\n    \"// \"+dtos(Date())+\" - \"+Time()+CRLF+;\n    \"//*********************************************\"+CRLF)\n\n  cText+=cs10\n  DO WHILE (k:=At(cs10,cText))&gt;0\n    cText:=SubStr(cText,k+Len(cs10))\n    k:=At(cs10,cText)\n    cc:=Left(cText,k-1); cText:=SubStr(cText,k)\n    k:=At(cs11,cc); c1:=Left(cc,k-1); cc:=SubStr(cc,k+Len(cs11))\n    fWrite(hOut,CRLF+\"//\"+c1+CRLF)\n    DO WHILE (k:=At(cs20,cc))&gt;0\n      cc:=SubStr(cc,k+Len(cs20))\n      k:=At(cs21,cc)\n      c2:=\"#define \"+Left(cc,k-1)\n      cc:=SubStr(cc,k+Len(cs21))\n      k:=At(cs22,cc)\n      c2+=\" \"+Left(cc,k-1)\n      fWrite(hOut,c2+CRLF)\n      cc:=SubStr(cc,k+Len(cs22))\n    ENDDO\n  ENDDO\n  fClose(hOut)\n  ? \"Ready\"\nreturn nil   \n//===========================================','',0,'','2w5tbgno',1,0,'',222,0,0),(15781,3539,3,455,0,'195.97.105.161',1153027813,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:1j29dkpl][quote=&quot;Badara Thiam&quot;:1j29dkpl]Evans,\n\nDid you try to create CON.BMP from Explorer? If not, please do it and you will find that Windows doesn\'t allow to create a file with that name.\n\nEMG[/quote:1j29dkpl][/quote:1j29dkpl]\n\nEnrico,\nWe are probably making an issue here for no apparent reason.\nThe question is not if Windows allows creating a file with the name \"CON.*\", but rather searching why Function FILE(...) does not behave the same way in the 16-bit and 32-bit.\n\nThe 16-bit returns .F. and the 32-bit returns .T.., so why is this happening and my next question is who\'s function is FILE() ?  I didn\'t find anything in the provided source code that comes with FW/FWH for this function.\n\nTherefore, perhaps some of the big gurus can tell us how this function is called, and where it belongs (xHarbour or FWH) ?.\n\nIt doesn\'t matter if I/we use a windows\' reserved name, but it\'s the return value that matters.  It would be more appropriate to return the same value as the equivalent 16-bit, and DOS-Clipper, rather than giving me this surprise, realizing that this function was the mother of a nice \"crash\" of my program, which was trying to resize a bitmap to fit inside a box on a paycheck!  The program fell in an endless loop just because the function FILE() returned .T. for a non existing file....\n\nWho would even expect that this function would not function properly (when it did in Clipper/FW), and check this specific return value, instead of spending several hours checking the rest of the code, to find where it fails... So this was my problem, that I didn\'t even suspect that FILE() caused the problem.\n\nThank You All for spending so many hours to reply to this email.  I still think that I did not get the proper reply to this post though....  My question once again is why is this difference between 16-32 bit ?\n\nKind reagards to all\nEvans','',0,'gA==','1j29dkpl',1,0,'',455,0,0),(15782,3539,3,6,0,'87.19.210.30',1153033469,1,0,1,1,1,1,'','','The issue is simple and totally related to the file system. If you try to create the file CON.BMP from Explorer you will get the message that the file [b:13pvwbum]already[/b:13pvwbum] exists. Therefore there is nothing that [x]Harbour or any other language can do to avoid the problem. The file CON.BMP definitely [b:13pvwbum]does exist[/b:13pvwbum]. Just try for yourself.\n\nEMG','',0,'QA==','13pvwbum',1,0,'',6,0,0),(15783,3592,3,2,0,'87.218.146.212',1153036938,1,0,1,1,1,1,'','','Ehab,\n\nPlease review samples\\TestDLLP.prg','',0,'QA==','3j6qh1lk',1,0,'',2,0,0),(15784,3593,3,2,0,'87.218.146.212',1153042669,1,0,1,1,1,1,'','','Brian,\n\n&gt; Do you have any mechanism, as VB does, to route specific Events to a specific PRG method? \n\nIf you inherit from Class TActiveX, all you have to do is modify the Method OnEvent(), and directly call the PRG method that you want from there.','',0,'QA==','3qtl86k9',1,0,'',2,0,0),(15785,3539,3,170,0,'213.103.230.29',1153043643,1,0,1,1,1,1,'','','The same function modified to support asterix (\"?\" and \"*\")\nlike File()\n\n[code:p31zh298]\n******************\nFUNCTION FileExist&#40;cFichier, lCacheSyst&#41;\n******************\n* Creation le 15/07/2006\n* Derniere modification le 16/07/2006\n* Auteur Badara Thiam\nLOCAL nAttributs\nLOCAL nCount &#58;= 1\nLOCAL X\nLOCAL cSepare &#58;= &quot;&quot;\nLOCAL cFichierTmp &#58;= &quot;&quot;\n\nIF &quot;\\&quot; $ cFichier\nELSEIF !EMPTY&#40; SET&#40;_SET_DEFAULT&#41; &#41;\n* Recherche dans le répertoire par défaut de clipper &#40;SET DEFAULT TO&#41;\n  cFichier &#58;= TRIM&#40;SET&#40;_SET_DEFAULT&#41;&#41; + &quot;\\&quot; + cFichier\nELSEIF !EMPTY&#40; SET&#40;_SET_PATH&#41; &#41;\n* Recherche dans le&#40;s&#41; répertoire&#40;s&#41; du path de clipper &#40;SET PATH TO&#41;\n  nCount &#58;= LEN&#40; SET&#40;_SET_PATH&#41; &#41; - LEN&#40; STRTRAN&#40;SET&#40;_SET_PATH&#41;,&quot;,&quot;,&quot;&quot;&#41; &#41; + 1\n  IF nCount = 1\n    nCount &#58;= LEN&#40; SET&#40;_SET_PATH&#41; &#41; - LEN&#40; STRTRAN&#40;SET&#40;_SET_PATH&#41;,&quot;;&quot;,&quot;&quot;&#41; &#41; + 1\n    IF nCount = 1\n      cFichier &#58;= TRIM&#40;SET&#40;_SET_PATH&#41;&#41; + &quot;\\&quot; + cFichier\n    ELSE\n      cSepare &#58;= &quot;;&quot;\n    ENDIF\n  ELSE\n    cSepare &#58;= &quot;,&quot;\n  ENDIF\nENDIF\n\nFOR X &#58;= 1 TO nCount\n  IF nCount = 1\n    FileExist2&#40;@cFichier, @cFichierTmp, @lCacheSyst&#41;\n  ELSE\n    FileExist2&#40;ALLTRIM&#40; TOKEN&#40;SET&#40;_SET_PATH&#41;, cSepare, nCount&#41; &#41; + &quot;\\&quot; + cFichier, @cFichierTmp, @lCacheSyst&#41;\n  ENDIF\n  nAttributs &#58;= GetFileAttributes&#40; cFichierTmp &#41;\n  IF cFichierTmp != &quot;&quot;\n    IF nAttributs &gt;= 0 &#46;AND&#46; &#40; nAttributs % 32 &#41; &lt; IIF&#40;EMPTY&#40;lCacheSyst&#41;, 2, 8&#41;\n      RETURN &#46;T&#46;\n    ENDIF\n  ENDIF\nNEXT X\nRETURN &#46;F&#46;\n\n*******************\nFUNCTION FileExist2&#40;cFichier, cFichierTmp, lCacheSyst&#41;\n*******************\nLOCAL aFichierTmp\nLOCAL Posi\nIF &quot;*&quot; $ cFichier &#46;OR&#46; &quot;?&quot; $ cFichier\n  aFichierTmp &#58;= DIRECTORY&#40;cFichier, IIF&#40;EMPTY&#40;lCacheSyst&#41;, NIL, &quot;HS&quot;&#41;&#41;\n  IF !EMPTY&#40;aFichierTmp&#41;\n    Posi &#58;= ASCAN&#40; aFichierTmp, &#123; ¦a¦ !EMPTY&#40; STRTRAN&#40;a&#91;1&#93;, &quot;&#46;&quot;, &quot;&quot;&#41; &#41; &#125; &#41;\n    IF Posi &gt; 0\n      cFichierTmp &#58;= LEFT&#40;cFichier, RAT&#40;&quot;\\&quot;,cFichier&#41;&#41; + aFichierTmp&#91;Posi&#93;&#91;1&#93;\n    ELSE\n      cFichierTmp &#58;= &quot;&quot;\n    ENDIF\n  ELSE\n    cFichierTmp &#58;= &quot;&quot;\n  ENDIF\nELSE\n  cFichierTmp &#58;= cFichier\nENDIF\nRETURN NIL\n\n\n[/code:p31zh298]','',0,'AIA=','p31zh298',1,0,'',170,0,0),(15786,3583,3,2,0,'87.218.146.212',1153043890,1,0,1,1,1,1,'','','James,\n\n&gt;&gt; When you use an external manifest file, how do you name it ? \n\n&gt; [application name].exe.manifest \n\nWe have modified IsAppThemed() to detect such external file too. \nWe are emailing you a new FiveHC.lib for your review. Thanks,','',0,'','21qrbwgu',1,0,'',2,0,0),(15787,3539,3,170,0,'213.103.230.29',1153044020,1,0,1,1,1,1,'','','[quote:14pskxiz]\nThe 16-bit returns .F. and the 32-bit returns .T.\n[/quote:14pskxiz]\n\nNot for me : the 16-bit return .T., with FW and with\npure Clipper DOS (Clipper 5.3b + Clipper Tools 3).\n\nRegards','',0,'gA==','14pskxiz',1,0,'',170,0,0),(15788,3592,3,6,0,'87.16.213.219',1153044238,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3d060khr]Ehab,\n\nHave you checked for a sitex.dll file ? It should be there. And it has to be executed from an EXE. You can\'t run a DLL by itself.[/quote:3d060khr]\n\nYes you can. A DLL is considered an executable file by Windows.\n\nEMG','',0,'gA==','3d060khr',1,0,'',6,0,0),(15789,3592,3,2,0,'87.218.146.212',1153044348,1,0,1,1,1,1,'','','Enrico,\n\nYes, of course, but you can\'t double click on a DLL and execute it, or type its name, press enter and execute it. Neither you can use WinExec() to run it.\n\nIt has to be invoked using LoadLibrary().','',0,'gA==','b5fz8nqr',1,0,'',2,0,0),(15790,3592,3,6,0,'87.16.213.219',1153044513,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:21q4hk3j]Enrico,\n\nYes, of course, but you can\'t double click on a DLL and execute it, or type its name, press enter and execute it. Neither you can use WinExec() to run it.\n\nIt has to be invoked using LoadLibrary().[/quote:21q4hk3j]\n\nNormally yes, because a DLL is not write to be self-executing. But if you rename an EXE to DLL then you still can execute it. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','21q4hk3j',1,0,'',6,0,0),(15791,3592,3,2,0,'87.218.146.212',1153049462,1,0,1,1,1,1,'','','Enrico,\n\n&gt; But if you rename an EXE to DLL then you still can execute it.  \n\nThats because EXEs and DLLs have different headers and their startup codes are different. Windows recognizes the EXE even if you rename it.\n\nAnother major difference between them, as explained in Charles Petzold \"Programming Windows\" book, is that a DLL uses the DATA segment of the EXE that calls the DLL, thats why a DLL can attend multiple EXEs simultaneously.','',0,'gA==','3hugg0qs',1,0,'',2,0,0),(15792,3592,3,6,0,'87.16.213.219',1153049722,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3pgdvnrt]Windows recognizes the EXE even if you rename it.[/quote:3pgdvnrt]\n\nOps, you are right. I can rename the EXE with any extension and it is still executable.\n\nEMG','',0,'gA==','3pgdvnrt',1,0,'',6,0,0),(15793,3593,3,2,0,'87.218.146.25',1153059615,1,0,1,1,1,1,'','','Brian,\n\nIs fully working including the Cancel behavior <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe are going to provide you new libs for your review, thanks.','',0,'gA==','15xgunur',1,0,'',2,0,0),(15794,3593,3,144,0,'72.192.177.190',1153062446,1,0,1,1,1,1,'','','Wow!  Thanks for the incredibly fast turnaround (on a weekend no less! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2c733y5h',1,0,'',144,0,0),(15795,3596,2,66,0,'200.127.77.195',1153067799,1,0,1,0,1,0,'','Abir web y cerrar web desde fivewin','Estimado Colegas\n\n\nAlguien tiene algun ejemplo sencillo para abrir una pagina web\ndesde fivewin y luego cerrarla tambien desde fivewin\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','3v69dfep',1,0,'',66,0,0),(15796,3596,2,2,0,'87.218.146.147',1153070442,1,0,1,1,1,1,'','','Fabian,\n\nSi te refieres a mostrarla desde tu aplicación, entonces necesitas FWH 32 bits. Tienes un ejemplo en samples\\WebExp.prg.\n\nSi te refieres sólo a tomar sus datos, pero no a visualizarlos, revisa WebClien.prg.','',0,'gA==','2pnv3nwh',1,0,'',2,0,0),(15797,3593,3,2,0,'87.218.146.147',1153070609,1,0,1,1,1,1,'','','Brian,\n\nWe need to know if you need it for Borland or xHB. Thanks,','',0,'gA==','255ns2fa',1,0,'',2,0,0),(15798,3526,3,2,0,'87.218.146.147',1153071884,1,0,1,1,1,1,'','','Ramesh,\n\nPlease try this sample and let us know what values you get. Please replace \"LPT1\" with the value that you use with Class TDosPrn:\n[code:3gnhspfo]\nfunction Main&#40;&#41;\n\n   local nHandle &#58;= 0\n   \n   MsgInfo&#40; OpenPrinter&#40; &quot;LPT1&quot;, @nHandle &#41; &#41;\n   MsgInfo&#40; nHandle &#41;\n   MsgInfo&#40; ClosePrinter&#40; nHandle &#41; &#41;\n   \nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; OPENPRINTER &#41;\n&#123;\n   HANDLE hPrinter;\n   \n   hb_retl&#40; OpenPrinter&#40; hb_parc&#40; 1 &#41;, &amp;hPrinter, NULL &#41; &#41;;\n   hb_stornl&#40; &#40; unsigned long &#41; hPrinter, 2 &#41;;\n&#125;   \n\nHB_FUNC&#40; CLOSEPRINTER &#41;\n&#123;\n   hb_retl&#40; ClosePrinter&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;   \n\n#pragma ENDDUMP\n[/code:3gnhspfo]','',0,'AIA=','3gnhspfo',1,0,'',2,0,0),(15800,3581,3,49,0,'62.13.172.78',1153074379,1,0,1,1,1,1,'','','ok you have say NOT can have...\nRegards','',0,'AIA=','2btc5hz9',1,0,'',49,0,0),(15801,3546,7,2,0,'87.218.146.147',1153084969,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3548&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=postquitmessage\">http://fivetechsoft.com/forums/viewtopi ... uitmessage</a><!-- m -->','',0,'AIA=','1nj3r495',1,0,'',2,0,0),(15802,3565,3,308,0,'84.148.27.249',1153085431,1,0,1,1,1,0,'','Re: Read inbox from Outlook','[quote=&quot;EnricoMaria&quot;:15sehd0g]Have you checked the file VBAOUTL*.CHM?\n\nEMG[/quote:15sehd0g]\n\nYes, but nothing found  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gA==','15sehd0g',1,0,'',308,0,0),(15803,3565,3,6,0,'82.57.161.155',1153085827,1,0,1,1,1,1,'','Re: Read inbox from Outlook','[quote=&quot;NK&quot;:zbg8r2xx][quote=&quot;EnricoMaria&quot;:zbg8r2xx]Have you checked the file VBAOUTL*.CHM?\n\nEMG[/quote:zbg8r2xx]\n\nYes, but nothing found  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->[/quote:zbg8r2xx]\n\nHave a look at MailItem object\'s properties (as an example, I can see the To property).\n\nEMG','',0,'gA==','zbg8r2xx',1,0,'',6,0,0),(15804,3592,3,148,0,'82.201.207.227',1153092065,1,0,1,1,1,0,'','','as to finalize the conversation which batch should I use to create EXE application I use rdd server in it in new FHW June2006 ?','',0,'gA==','1mm0xggr',1,0,'',148,0,0),(15805,3592,3,2,0,'87.218.146.147',1153097512,1,0,1,1,1,1,'','','Ehab,\n\nsamples\\buildh.bat for Harbour \nsamples\\buildx.bat for xharbour','',0,'gA==','257vzgsu',1,0,'',2,0,0),(15806,3571,6,138,0,'148.233.159.24',1153100381,1,0,1,1,1,1,'','Re: ummm','[quote=&quot;QAZWSX2K&quot;:2qm458xq]estimado rene pudistes haberme contestado eso a mi tanbien hace mas de un mes que pregunte por eso y solo me ayudastes diciendo que a lo mejor tenia excel incompleto, de todos modos gracias[/quote:2qm458xq]\n\nHQJ (Hay que jo...) ahora resulta que tengo que dar soluciones concretas en momentos especificos.... ya me vale  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nHa veces soy tan irresponsable.... que yo mismo me sorprendo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2qm458xq',1,0,'',138,0,0),(15807,3552,3,32,0,'196.36.8.34',1153118222,1,0,1,1,1,0,'','Compiling','Hi,\n\nWhat #defines do I need to compile this? Compiling fails using Xhb\n\nTried WIN32\n\nAlex','',0,'gA==','2k8mdjls',1,0,'',32,0,0),(80784,11640,3,130,0,'141.51.32.24',1242373741,1,0,1,1,1,1,'','Re: Re:','[quote=&quot;Manuel Valdenebro&quot;:1u0cjiwx]\nI have now, in Vista, second time that I try to print, the message &quot;There are not printer inst...&quot;\n[/quote:1u0cjiwx]\n\nManuel,\n\nas I said, vista does not allow to initialize the printer twice, if this error only occures on the second try to print the first printer object doesn´t seem to be finished. Did you correctly end your printer object ?\n\nBTW, to get all installed printers you can use the function GetPrinters() from xharbour.\n[code=fw:1u0cjiwx]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\">aPrinter := GetPrinters<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span><br /><span style=\"color: #00C800;\">IF</span> lPreview<br />  <span style=\"color: #00C800;\">PRINT</span> oPrint <span style=\"color: #0000ff;\">NAME</span> <span style=\"color: #ff0000;\">&quot;Formular&quot;</span> PREVIEW <span style=\"color: #0000ff;\">TO</span> aPrinter<span style=\"color: #000000;\">&#91;</span>xx<span style=\"color: #000000;\">&#93;</span><br /><span style=\"color: #00C800;\">ELSE</span><br />  <span style=\"color: #00C800;\">PRINT</span> oPrint <span style=\"color: #0000ff;\">NAME</span> <span style=\"color: #ff0000;\">&quot;Formular&quot;</span> <span style=\"color: #0000ff;\">TO</span> aPrinter<span style=\"color: #000000;\">&#91;</span>xx<span style=\"color: #000000;\">&#93;</span><br /><span style=\"color: #00C800;\">ENDIF</span> </div>[/code:1u0cjiwx]\n\nThis is working fine for me.','31f766c4e1c534fcb44820ecdf2bcce2',0,'gIA=','1u0cjiwx',1,0,'',0,0,0),(15809,3552,3,2,0,'87.218.146.147',1153118778,1,0,1,1,1,1,'','','Alex,\n\nWe email you the modified library for your review, thanks.','',0,'gA==','3f93ko5h',1,0,'',2,0,0),(15810,3598,16,2,0,'87.218.146.147',1153121114,1,0,1,1,1,1,'','FTDN new July 2006 build / nuevo build de Julio 2006','July 2006 build\n ===========\n \n * New: FWPPC, Class TPanel. Please review samples\\TestPane.prg.\n\n * Enhancement: calldll.c variables are declared as static. This may solve some random problems when accessing DLLs. Thanks to Ron Christie!\n   \n * New: FWPPC, DLL FUNCTION command is already using the provided parameters. Please review samples\\DynDll.prg \n   \n * Enhancement: WriteComm() now works sinchronously, waiting until all bytes are written. Thanks to Enrico!\n   \n * Enhancement: Class TTreeView, default nClrBack set to GetSysColor( COLOR_WINDOW ).\n   \n * Fix: spanish prev32sp.dll was not properly implementing the preview cursor (magnifying glass). Now it is ok.\n    \n * New: Class TDbCombo Method Update(), to automatically refresh the items from the associated DBF.\n \n * New: FWPPC, samples\\menus.prg shows how to use several main menus from an application.\n \n * New: FWPPC, samples\\MenuBmp.prg shows how to use bitmaps on menus.\n \n * Fix: Minor fix on cFilePath() when providing empty paths.\n \n * New: Class TToolBar Methods HideButton( nButton ) and ShowButton( nButton ).\n \n * New: FWPPC, OemToAnsi() and AnsiToOem() are already available. Please review source\\classes\\OemAnsiP.prg to adapt it to your own language settings.\n   \n * New: We officially announce FWPPC 1.0. From this moment on, FWPPC users will have two more months of free upgrades.\n   \n * New: DropDown Menus support for toolbar buttons. Please review samples\\ToolBar1.prg\n   \n * New: ToolBars Method IsButtonHidden( nButton ). Thanks to Patricio Avalos!\n  \n * New: Class TAnimate Method CopyInternet(). Please review samples\\Win32.prg for a working sample.\n   \n * Fix: FWH Microsoft build is properly working. It was reporting a missing external.\n   \n * Enhancement: FWH Class TActiveX have been improved on parameters by reference support.\n   \n * New: Class TComboBox Method CtlColor(). Thanks to Enrico!\n   \n * Fix: FWH Class TActiveX was receiving a duplicated amount of events parameters. Now it is ok.\n  \n * Enhancement: function IsAppThemed() now also detects if an external manifest file exists: [application name].exe.manifest\n   \n * New: FWH function SetEventParam( &lt;pParams&gt;, &lt;nParam&gt;, &lt;uValue&gt; ) lets you change an event parameter provided by reference. Please review samples\\WebExp.prg for a working sample.  \n    \n * Enhancement: Menus checked menuitems don\'t show a border around the check.','',0,'','2d4o5r19',1,0,'',2,0,0),(15813,3546,7,490,0,'80.24.224.89',1153126856,1,0,1,1,1,0,'','','Gracias Antonio,\n\nYa lo estuve leyendo, pero fue después de publicar la pregunta.\n\nLo que no me ha quedado claro de ese hilo es tu opinión de lo acertado. Lo que parece que funciona es:\n\nWinExec(\"copia.exe\") \nPostQuitMessage(0) \n__Quit() \n\n¿Pero de verdad es necesario PostQuitMessage(0) y __Quit() ?\n\nVeo mucha complicación a tener en cuenta, pienso que con QUIT debería funcionar.\n\n\n\nUn Saludo,\nJoaquín','',0,'','3p3vukj6',1,0,'',490,0,0),(15814,2609,1,170,0,'213.103.230.29',1153131069,1,0,1,1,1,1,'','','Hello,\n\nClipper 5.3b with FW 2.5 is compatible with ADS 8.0 !\n\nRegards','',0,'','u1c1ot8n',1,0,'',170,0,0),(15815,3601,20,20,0,'82.55.224.41',1153132056,1,0,1,1,1,0,'','Fax con Fivewin','Dovrei realizzare una applicazione per inviare Fax.\nNon ho mai affrontato l\'argomento.\nAvete qualche consiglio da darmi?\n\nPier Luigi','',0,'','22y4p1sg',1,0,'',20,0,0),(15817,3601,20,6,0,'87.10.2.89',1153135954,1,0,1,1,1,1,'','Re: Fax con Fivewin','Ti posso aiutare se usi WinFax.\n\nEMG','',0,'','3asj8w92',1,0,'',6,0,0),(15818,3601,20,20,0,'82.55.224.41',1153136521,1,0,1,1,1,0,'','Re: Fax con Fivewin','Sì, sul computer ho installato WinFax.\n\nPier Luigi','',0,'','3renibs8',1,0,'',20,0,0),(15819,3583,3,217,0,'200.159.120.34',1153136845,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:164tyr3g]\nThere are lots of them. I use one that looks like Windows Vista [/quote:164tyr3g]\n\nAntonio, I\'m searching for a \"Vista Like Theme\" for any weeks... \nWhere you downloaded it?\n\nRegards!\nMaurilio','',0,'gA==','164tyr3g',1,0,'',217,0,0),(15820,3601,20,6,0,'87.10.2.89',1153136876,1,0,1,1,1,1,'','Re: Fax con Fivewin','[code:2igzdrmy]FUNCTION SENDFAX&#40; cFax, cDes, cOgg, cMsg &#41;\n\n    LOCAL lOk &#58;= &#46;F&#46;\n\n    LOCAL oFax\n\n    BEGIN SEQUENCE\n        oFax = CREATEOBJECT&#40; &quot;WinFax&#46;SDKSend&quot; &#41;\n\n        oFax&#58;LeaveRunning&#40;&#41;\n\n        IF oFax&#58;SetTo&#40; cDes &#41; = 1; BREAK; ENDIF\n        IF oFax&#58;SetSubject&#40; cOgg &#41; = 1; BREAK; ENDIF\n        IF oFax&#58;SetCoverText&#40; cMsg &#41; = 1; BREAK; ENDIF\n        IF oFax&#58;SetNumber&#40; cFax &#41; = 1; BREAK; ENDIF\n\n        IF oFax&#58;AddRecipient&#40;&#41; = 1; BREAK; ENDIF\n\n        IF oFax&#58;Send&#40; 0 &#41; = 1; BREAK; ENDIF\n\n        oFax&#58;Done&#40;&#41;\n\n        lOk = &#46;T&#46;\n    END SEQUENCE\n\n    RETURN lOk[/code:2igzdrmy]\n\nEMG','',0,'AIA=','2igzdrmy',1,0,'',6,0,0),(15821,3593,3,217,0,'200.159.120.34',1153137425,1,0,1,1,1,0,'','','Antonio, can you post a little sample with exe?\n\nRegards\nMaurilio','',0,'AIA=','156dk8b5',1,0,'',217,0,0),(15822,3601,20,20,0,'82.55.224.41',1153137527,1,0,1,1,1,0,'','Re: Fax con Fivewin','Il programma mi segnala\n\nError: Unresolved external \'_HB_FUN_CREATEOBJECT\' ...\n\nIo uso Harbour e FW 2.5.\n\nPier Luigi','',0,'AIA=','2nt6h8mu',1,0,'',20,0,0),(15823,3601,20,6,0,'87.10.2.89',1153137891,1,0,1,1,1,1,'','Re: Fax con Fivewin','Allora sostituiscilo con\n\n[code:3lz4oech]oFax = TOleAuto&#40;&#41;&#58;New&#40; &quot;WinFax&#46;SDKSend&quot; &#41;[/code:3lz4oech]\n\ne linka la libreria hbole.lib.\n\nEMG','',0,'AIA=','3lz4oech',1,0,'',6,0,0),(15824,3556,3,104,0,'201.58.49.229',1153139758,1,0,1,1,1,0,'','','Olá Ari,\n\nSeria isto que você precisa:\n\n[img:1ur2vtmi]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/folder1&#46;png[/img:1ur2vtmi]\n\nEu fiz algumas mudanças na classe folder para fazer isto e outras coisas mais  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nBaixe daqui: [url:1ur2vtmi]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/FOLDER&#46;ZIP[/url:1ur2vtmi]\n\nAbraços,\n\nRossine.','',0,'GA==','1ur2vtmi',1,0,'',104,0,0),(15825,3601,20,20,0,'82.55.224.41',1153141543,1,0,1,1,1,0,'','Re: Fax con Fivewin','Funziona alla grande!\n\nGrazie EMG.\n\nPS\nPer curiosità: quale DLL di Winfax viene richiamata?','',0,'GA==','1721aw4i',1,0,'',20,0,0),(15826,3601,20,6,0,'87.10.2.89',1153141838,1,0,1,1,1,1,'','Re: Fax con Fivewin','Non lo so, mi dispiace.\n\nEMG','',0,'GA==','1n3z1rbs',1,0,'',6,0,0),(15827,3568,6,221,0,'200.7.110.60',1153142262,1,0,1,1,1,0,'','Re: que sirva','gracias aunque interesante si me dijeras que hace la funcion traza()\n\n\n[quote=&quot;FiveWiDi&quot;:3mw1f8i3][quote=&quot;QAZWSX2K&quot;:3mw1f8i3]saludos preferiblemente de harbour pero me conformo con alguna que sirva ya que no leen desde excel, da error de property no se que cosa en GETproperty workbooks o algo asi, me tiene verde, tengo mas de 2 meses en este detalle, gracias[/quote:3mw1f8i3]\n\nEn Harbour y sin librerías adicionales, yo lo hago así (ahora me doy cuenta de que no estoy eliminando al final oExcel ni oHoja):\n\n==========================\noExcel := CreateOLEObject(\"Excel.Application\")\nOLESetProperty(oExcel,\"Visible\", .T.)\nOLEInvoke( OLEGetProperty(oExcel,\"Workbooks\"), \"Open\", cPathxls )\noHoja := OLEGetProperty(oExcel,\"ActiveSheet\")\n\nccognoms := \"zzz\"\nnRow := 1\n\nWhile AllTrim( ccognoms ) &lt;&gt; \"\"\n\n    nRow ++\n\n    Msgnowait( AMPAarra, \"Atención!\" , \"Leyendo e importando datos.\" + ;\n                                       \" Espere unos momentos por favor....\" )\n\n    cCCC      := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 2 ), \"Value\" )\n    If Valtype( cCCC) = \"U\"\n        cCCC := \"00000000000000000000\"\n    EndIf\n    cccc := Upper( cccc )\n    Traza(1, \"cccc=\", cccc )\n\n    cmail     := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 3 ), \"Value\" )\n    If Valtype( cmail) = \"U\"\n        cmail := Space(1)\n    EndIf\n    cmail := Upper( cmail )\n    Traza(1, \"cmail=\", cmail )\n\n    cdatanaix := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 4 ), \"Value\" )\n    If Valtype( cdatanaix) = \"U\"\n        cdatanaix := CToD(\"01/01/1900\")\n    elseIf Valtype( cdatanaix) = \"C\"\n        cdatanaix := CToD(cdatanaix)\n    EndIf\n    Traza(1, \"cdatanaix=\", cdatanaix)\n\n    cCognoms  := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 7 ), \"Value\" )\n    If Valtype( ccognoms) = \"U\"\n        ccognoms := space(1)\n    EndIf\n    cCognoms := Upper( ccognoms )\n    Traza(1, \"ccognoms=\", ccognoms )\n\n    cNom      := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 8 ), \"Value\" )\n    If Valtype( cnom) = \"U\"\n        cnom := space(1)\n    EndIf\n    cNOM := Upper( cNOM )\n    Traza(1, \"cnom=\", cNOM )\n\n    cLOPD     := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 10 ), \"Value\" )\n    If Valtype( clopd) = \"U\"\n        clopd := .F.\n      Else\n        clopd := .T.\n    EndIf\n    Traza(1, \"clopd=\", cLOPD )\n\nOLEInvoke( oExcel, \"Quit\" )\n==========================\n\nEs lento pero funciona.\n\nSaludos\nCarlos G.[/quote:3mw1f8i3]','',0,'gA==','3mw1f8i3',1,0,'',221,0,0),(15828,3571,6,221,0,'200.7.110.60',1153142493,1,0,1,1,1,0,'','Re: ummm','pues si que J...jejeje , sin animos de ofender ni nada, estamos claro que no es obligacion de nadie en ningun momento, pero hay momentos en que........espero lo tomes humoristicamente, que mas nos queda\n\n[quote=&quot;RF&quot;:8ywcdv41][quote=&quot;QAZWSX2K&quot;:8ywcdv41]estimado rene pudistes haberme contestado eso a mi tanbien hace mas de un mes que pregunte por eso y solo me ayudastes diciendo que a lo mejor tenia excel incompleto, de todos modos gracias[/quote:8ywcdv41]\n\nHQJ (Hay que jo...) ahora resulta que tengo que dar soluciones concretas en momentos especificos.... ya me vale  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nHa veces soy tan irresponsable.... que yo mismo me sorprendo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:8ywcdv41]','',0,'gA==','8ywcdv41',1,0,'',221,0,0),(15830,3603,3,289,0,'82.167.15.97',1153143268,1,0,1,1,1,0,'','function TOleAuto how to get it?','Antono \nI have Fwh 2.4 With Out function TOleAuto how to get it? \nRegards, \n  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nhathal','',0,'gA==','bscbzb3s',1,0,'',289,0,0),(15831,3604,6,52,0,'200.127.195.89',1153143348,1,0,1,1,1,1,'','hb_parcx( -1 ) como funciona?','Amigos,\n\n[code:1lutmbvm]      hb_vmPushSymbol&#40; hb_dynsymGet&#40; &quot;LEECONFIGURACION&quot;&#41; -&gt; pSymbol &#41;;\n      hb_vmPushNil&#40; &#41;;\n      hb_vmPushString&#40; comando, strlen&#40; comando &#41; &#41;;\n      hb_vmPushLogical&#40; FALSE &#41;;\n      hb_vmFunction&#40; 2 &#41;;\n      respuesta = hb_parcx&#40; -1 &#41;;[/code:1lutmbvm]\n\nTengo ese código, y la función LEECONFIGURACION la cual es llamada, devuelve un dato de este tipo ( siempre con un chr( 0 ) como primer caracter ):\n\n[code:1lutmbvm]comando&#58;= chr&#40; 0 &#41; + &quot;anulado + chr&#40; 10 &#41; + chr&#40; 9 &#41;[/code:1lutmbvm]\n\nEl problema es que:\n[code:1lutmbvm]respuesta = hb_parcx&#40; -1 &#41;;[/code:1lutmbvm]\nNo me devuelve el primer chr( 0 ), ya lo he verificado de diferentes maneras, escribiendoló en un .txt y viendo con un editor DOS, entre otras cosas.\nVerifiqué que \"antes de devolver comando en la funcion LEECONFIGURACION el chr( 0 ) exista, y si existe.\n\nAlguna Idea?\nGracias.','',0,'AIA=','1lutmbvm',1,0,'',52,0,0),(15832,3320,2,569,0,'200.93.48.44',1153145122,1,0,1,1,1,0,'','saludos de sildata','Amigo tambien puedes redireccionar el puerto LPT! para que salga por el puerto com1 con una sencilla instruccion MODE; si ya solucionaste tu problema olvidalo si no enviame un email y te hare llegar el *.bat que necesitas para redireccionar este puerto.\nSaludos: RODOLFO\n\nemail: <!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','1pi4kzmo',1,0,'',569,0,0),(15834,3182,3,569,0,'200.93.48.44',1153145949,1,0,1,1,1,0,'','SALUDOS ENRICO','Enrico: Has una prueba sencilla y elemental, bootea con un diskete de algun sistema operativo MS-DOS cualquier version que tengas, enseguida redirecciones el puerto \"MODE LPT!=com1\" A partir de alli cualquier instruccion que tipees por el teclado se emprimira por el puerto com1.\nquizas esto te sonar un poco confuso, pero si no has solucionado todavia tu problema enviame un mensaje a mi correo y con gusto te enviare las instrucciones con mas exactitud, con esta prueba lo que consigues es verificar que los puertos de la computadora y el impresor inclusive el cable esta en operativos y en buen estado.\nSaludos RODOLFO\n\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','1cwazr8r',1,0,'',569,0,0),(15835,3603,3,289,0,'82.167.15.97',1153146360,1,0,1,1,1,0,'','Thank you oSkAr','Thank you oSkAr.\ni testing source   today \nRegards, \n  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nhathal','',0,'AIA=','2ftd2g1a',1,0,'',289,0,0),(15836,3011,3,569,0,'200.93.48.44',1153146726,1,0,1,1,1,0,'','Re: Help with EPSON TM600 ( fiscal printer )','Amigo si todavia no has solucionado tu problema necesito saber el tipo de puerto si parallelo o serial .\nrodolfo silva \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->   y especifica el tipo de problema que tienes y tambien el tipo de cable de interconexion que tienes.','',0,'AIA=','f5zsaxd5',1,0,'',569,0,0),(15837,3604,6,24,0,'80.58.210.47',1153147904,1,0,1,1,1,1,'','','Creo que esto esta mal:\nhb_parcx( -1 ), sirve para recoger valores de harbour en C.\nPara enviar valores de C a Harbour, usa:\nhb_retc( -1 )','',0,'AIA=','q3cklryn',1,0,'',24,0,0),(15838,3603,3,289,0,'82.167.15.97',1153148421,1,0,1,1,1,0,'','I saw source  with the new   Tactivex  how to get it?','Antono \nI saw source  with the new   Tactivex  how to get it? \nRegards, \n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \nhathal','',0,'AIA=','hh1fvy5p',1,0,'',289,0,0),(15839,3603,3,138,0,'201.128.111.188',1153149565,1,0,1,1,1,1,'','','It\'s included in the New FWH 2.7, you need to upgrade in order to get that feature.','',0,'AIA=','1dowtowq',1,0,'',138,0,0),(15840,3546,7,138,0,'201.128.111.188',1153151002,1,0,1,1,1,1,'','','Una cosa si te puedo asegura... si no pones el PostQuitMessage() no funciona, necesitas limpiar los mensajes de la ventana antes de eliminarla.','',0,'AIA=','270r9ryb',1,0,'',138,0,0),(15841,3585,7,138,0,'201.128.111.188',1153151162,1,0,1,1,1,1,'','','Nop, los sistemas operativos no son compatilbles, si quieres mas info sobre la palm con Windows mirate esto:\n\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2006/06/he-traicionado-mis-principios.html\">http://google.blogspot.com/2006/06/he-t ... ipios.html</a><!-- m -->','',0,'AIA=','2in1630m',1,0,'',138,0,0),(15842,2609,1,138,0,'201.128.111.188',1153151629,1,0,1,1,1,1,'','','[quote=&quot;Badara Thiam&quot;:qc00ng7u]If you keep the same memo block size than ADS, the dbf files\nare the same between ADS and Comix. But i have read this in ADS\ndocumentation : the system locking is different, and because this\nyou can not use at the same time ADS RDD with an application\nand Comix in other application, for the same database.[/quote:qc00ng7u]\n\nOf course you can, simply add ADSLocking (.F.) (harbour) or AX_Locking (.F.) for Clipper and you can share data with both applications.\n\nBTW, ADS under (x)Harbour works like a dream, much better than under Clipper.','',0,'gA==','qc00ng7u',1,0,'',138,0,0),(15843,3593,3,144,0,'72.192.177.190',1153152302,1,0,1,1,1,1,'','','Maurilio:\n\nWe\'re currently working with the webexp.prg in Samples.\nYou can now add something like this to the EventInfo function:\n   if valType(event) == \"C\" .AND. event == \"BeforeNavigate2\"\n\n      #define BEFORE_NAV_ARGS_URL                        2\n      #define BEFORE_NAV_ARGS_TargetFrameName   4\n      #define BEFORE_NAV_ARGS_CANCEL                  7\n\n      if msgYesNo(\"User attempted to navigate to \"+ CRLF+;\n                        aParams[ BEFORE_NAV_ARGS_URL ]+ CRLF+ ;\n                        \"Do you want to STOP navigation?\", ;\n                  \"BeforeNavigate2\")\n\n         oActiveX&#058;Do( \"Stop\")\n         SetEventParam( pParams, BEFORE_NAV_ARGS_CANCEL, .t. )\n      endif\n   endif\n\nIt\'s working great with a straightforward startup page, but if it has frames then using the msgYesNo dialog causes a delay that makes the startup page fail to finish painting.  Currently this test will ask about any kind of navigation due to scripts etc.   Antonio\'s looking at whether we can isolate this kind of frame activity (I\'m using <!-- w --><a class=\"postlink\" href=\"http://www.refdesk.com\">www.refdesk.com</a><!-- w --> as a \"home\" page, which does a lot of stuff at startup).\n\nI\'ll be sure to post the full example when it\'s done.','',0,'','2u3ki4mu',1,0,'',144,0,0),(15844,3552,3,6,0,'87.10.2.89',1153152947,1,0,1,1,1,1,'','','It seems that there is still a light grey background under the check sign.\n\nEMG','',0,'','2dervjo4',1,0,'',6,0,0),(15845,3583,3,2,0,'87.218.146.148',1153153610,1,0,1,1,1,1,'','','Maurilio,\n\nYou may download it from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0205a69d95/Longhorn.zip.html\">http://hyperupload.com/download/0205a69 ... n.zip.html</a><!-- m -->','',0,'','3d93atlt',1,0,'',2,0,0),(15846,3552,3,2,0,'87.218.146.148',1153153698,1,0,1,1,1,1,'','','Enrico,\n\nPlease try this:\n[code:2sur9ld0]\n           if&#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41; \n           &#123; \n              HBITMAP hBmp = LoadBitmap&#40; 0, MAKEINTRESOURCE&#40; OBM_CHECK &#41; &#41;; \n\n              DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1, \n                                lpdis-&gt;rcItem&#46;left + 1 &#41;; \n              DeleteObject&#40; hBmp &#41;; \n           &#125; \n[/code:2sur9ld0]','',0,'AIA=','2sur9ld0',1,0,'',2,0,0),(15847,3605,3,49,0,'62.13.172.78',1153154020,1,0,1,1,1,1,'','Error with tsbutton','tHERE IS AN ERROR FOR TSBUTTON BECAUSE WHEN I TRY IT THE PROCEDURE  CREATE ONLY A BUTTON AND NOT LOAD THE RESOURCE  WHY ?\n \n[code:vo01abm9]  @ Fila,&#40;Col+nPassLarg&#41; SBUTTON aBtn&#91;n&#93; Font oFont3 ;\n                                 SIZE 30, 30 PIXELS  ;\n                                 RESOURCE &quot;OMB1&quot;,&quot;OMB2&quot;,&quot;OMB3&quot;,&quot;OMB4&quot; OF oSpiaggia;\n                               PROMPT aBtn&#91;n&#93; ;\n                               NOBORDER  ;\n                              MESSAGE oemtoansi&#40;&quot;Free&quot;&#41; ;\n                              TOOLTIP oemtoansi&#40;cCaption&#41; ;\n                              TEXT POSITION ON_BOTTOM   ;\n                             ACTION bAction [/code:vo01abm9]\n\n\nSOMEONE CAN HELP ME PLS\n\nREGARDS','',0,'AIA=','vo01abm9',1,0,'',49,0,0),(15848,3552,3,6,0,'87.10.2.89',1153154077,1,0,1,1,1,1,'','','Can you send me the new lib, please?\n\nEMG','',0,'AIA=','23zphgjz',1,0,'',6,0,0),(15849,3417,3,49,0,'62.13.172.78',1153154216,1,0,1,1,1,1,'','','THIS THE CORRECT VERSION ( 16 BIT)\n[url=http&#58;//img404&#46;imageshack&#46;us/my&#46;php?image=correctfq6&#46;jpg:22xkqsan][img:22xkqsan]http&#58;//img404&#46;imageshack&#46;us/img404/7747/correctfq6&#46;th&#46;jpg[/img:22xkqsan][/url:22xkqsan]\n\nTHIS THE UNCORRECT VERSION (32BIT)\n\n[url=http&#58;//img404&#46;imageshack&#46;us/my&#46;php?image=nocorrect32bitfs4&#46;jpg:22xkqsan][img:22xkqsan]http&#58;//img404&#46;imageshack&#46;us/img404/9240/nocorrect32bitfs4&#46;th&#46;jpg[/img:22xkqsan][/url:22xkqsan]\n\n\n\n\n\nYES BUT NOW I HAVE ANOTHER ERROR \nWHEN  I TRY \n[code:22xkqsan]\n\n\n\n                      @ Fila,&#40;Col+nPassLarg&#41; SBUTTON aBtn&#91;n&#93; Font oFont3 ;\n                                 SIZE 30, 30 PIXELS  ;\n                                 RESOURCE &quot;OMB1&quot;,&quot;OMB2&quot;,&quot;OMB3&quot;,&quot;OMB4&quot; OF oSpiaggia;\n                               PROMPT aBtn&#91;n&#93; ;\n                               NOBORDER  ;\n                              MESSAGE oemtoansi&#40;&quot;Free&quot;&#41; ;\n                              TOOLTIP oemtoansi&#40;cCaption&#41; ;\n                              TEXT POSITION ON_BOTTOM   ;\n                             ACTION bAction[/code:22xkqsan]\n\n\nTHE PROCEDURE CREATE ONLY BUTTON AND NOT LOAD RESOURCES\nWHY ?','',0,'GIA=','22xkqsan',1,0,'',49,0,0),(15850,3604,6,2,0,'87.218.146.148',1153154294,1,0,1,1,1,1,'','','Rafa,\n\nGustavo está intentando recuperar el valor devuelto desde el PRG por lo que la llamada a hb_par...( -1 ) es correcta. -1 significa que se acceda al valor de retorno.\n\nGustavo: Tu problema es un problema de uso de cadenas en C. Si la cadena empieza con cero, entonces tienes que recuperar a partir del siguiente byte:\n\nrespuesta = hb_parcx( -1 ) + 1;','',0,'GIA=','20iruyc6',1,0,'',2,0,0),(15851,3605,3,343,0,'204.57.111.194',1153154662,1,0,1,1,1,0,'','','Is \"OMB1\",\"OMB2\",\"OMB3\",\"OMB4\" in an .rc file you are linking into app?','',0,'GIA=','1cwb5bmg',1,0,'',343,0,0),(15852,3605,3,49,0,'62.13.172.78',1153155929,1,0,1,1,1,1,'','','YES','',0,'GIA=','3g8lbx54',1,0,'',49,0,0),(15853,3604,6,52,0,'200.127.195.89',1153156708,1,0,1,1,1,1,'','','Estimado,\n\nEntonces quiere decir que yo deberia luego agregarle el chr( 0 ) al inicio para que la cadena este bien?\n\nPorque entiendo que me devuelve la cadena \"pero\" el el primer chr( 0 )\n\nes asi?\n\nGracias.','',0,'GIA=','vja2sec3',1,0,'',52,0,0),(15854,3606,6,52,0,'200.127.195.89',1153157475,1,0,1,1,1,0,'','NUEVO: un menú metido en un oPanel','Amigos,\n\nAl estilo de la comunidad investigadora  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> les dejo un adelanto del desarrollo de este nuevo control.\n\n[url=http&#58;//img196&#46;imageshack&#46;us/my&#46;php?image=untitled3copyyb4&#46;jpg:20n8kln4][img:20n8kln4]http&#58;//img196&#46;imageshack&#46;us/img196/8306/untitled3copyyb4&#46;th&#46;jpg[/img:20n8kln4][/url:20n8kln4]\n\nUn menú el cual está insertado en un \"oPanel\", el fuente estará disponible totalmente para quienes quieran utilizarlo y probarlo; por el momento pueden bajar el que está en pleno desarrollo desde el link \"que os dejo\".\n\n[url:20n8kln4]http&#58;//oskar&#46;sytes&#46;net/[/url:20n8kln4]\n\np/d: estaría bueno que se registraran en la web, asi nos dan mas ánimos de seguir VIO?\n\nNos vemos.\n\nEl pueblo lo pide, la comunidad se lo da  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','20n8kln4',1,0,'',52,0,0),(15855,3011,3,264,0,'200.91.3.10',1153160451,1,0,1,1,1,0,'','','El puerto es serial, y el problema es que al parecer el sistema de OCX no esta andando bien en HARBOUR, pues se han pedido hacer pruebas a otros compañeros que tienen xHarbour ( de <!-- w --><a class=\"postlink\" href=\"http://www.xHarbour.com\">www.xHarbour.com</a><!-- w --> ) y a ellos si les ejecuta las intrucciones correctamente ( claro esta que con un monton de enrredos !! )\nSaludos','',0,'GA==','1c5eaq3p',1,0,'',264,0,0),(15856,3593,3,217,0,'200.159.120.34',1153160781,1,0,1,1,1,0,'','','Thanks a lot, Brian!\n\nRegards\nMaurilio','',0,'GA==','xront243',1,0,'',217,0,0),(15857,449,3,299,0,'69.65.86.182',1153160834,1,0,1,0,1,0,'','','I\'ve noticed that with barlib barcodes are not displayed when previewing.  Bar codes work well only when creating the print job without PREVIEW.\n\nCan someone confirm this?\n\nThank you,\n\n\n\nReinaldo.','',0,'GA==','11skkyjt',1,0,'',299,0,0),(15858,3583,3,217,0,'200.159.120.34',1153160879,1,0,1,1,1,0,'','','Thanks a lot, Antonio!\n\nRegards\nMaurilio','',0,'GA==','2fo6s8h3',1,0,'',217,0,0),(15859,3607,6,61,0,'201.217.166.145',1153161469,1,0,1,1,1,0,'','Browse de Hernan','Amigos:\n\nDebo saber en que numero de columna doy el click\nCon los header me sale pero si la celda no\nes un header no me sale.\n\nGracias por la ayuda.\n\nSaludos\n\nRuben Fernandez','',0,'GA==','2lqomcb1',1,0,'',61,0,0),(15860,449,3,6,0,'87.10.2.89',1153162446,1,0,1,1,1,1,'','','No, I\'m using Barlib and preview without problems.\n\nEMG','',0,'GA==','4qvne5ws',1,0,'',6,0,0),(15861,3608,19,28,0,'87.218.47.41',1153164202,1,0,1,1,1,0,'','radios en tu ppc','hola a todos\nen esta pagina he anotado unos cuantos links de radios por internet\n<!-- m --><a class=\"postlink\" href=\"http://www.arrakis.es/~canal_five/radios.htm\">http://www.arrakis.es/~canal_five/radios.htm</a><!-- m -->\nUn saludo','',0,'GA==','1w0mwxy0',1,0,'',28,0,0),(15862,449,3,299,0,'69.65.86.182',1153165671,1,0,1,0,1,0,'','','Mi amigo;\n\nThank you for your reply.  BTW - congrats on the WC.\n\nI went back and checked my code.  Indeed I\'m not using barlib, I\'m using VRDBcode instead.  \n\nHas anybody been able to preview barcodes using the VRDBcode class?\n\nThank you,\n\n\nReinaldo.','',0,'GA==','2yqpgjbt',1,0,'',299,0,0),(15863,3604,6,2,0,'87.218.146.101',1153171436,1,0,1,1,1,1,'','','Gustavo,\n\nEn C, tradicionalmente, las cadenas se usan como un grupo de bytes terminados en un cero. De ahí que no debas ponerle un cero al principio, si deseas hacer otras operaciones como cadena.\n\nUsa la cadena desde el siguiente byte, como te he indicado, y luego ten en cuenta que tienes un cero delante.','',0,'GA==','1btx11i8',1,0,'',2,0,0),(15864,3609,3,52,0,'200.127.195.89',1153173119,1,0,1,1,1,1,'','NEW lib: Menu insert in one oPanel','Hi all,\n\nIt time i like show a new lib source, please check it in:\n\n[url:2cqbbq1t]http&#58;//oskar&#46;sytes&#46;net/[/url:2cqbbq1t] \n\n\n[url=http&#58;//img196&#46;imageshack&#46;us/my&#46;php?image=untitled3copyyb4&#46;jpg:2cqbbq1t][img:2cqbbq1t]http&#58;//img196&#46;imageshack&#46;us/img196/8306/untitled3copyyb4&#46;th&#46;jpg[/img:2cqbbq1t][/url:2cqbbq1t]\n\n\n-------\nNos vemos.','',0,'GA==','2cqbbq1t',1,0,'',52,0,0),(15865,3593,3,144,0,'72.192.177.190',1153174272,1,0,1,1,1,1,'','','Here\'s the link to my test and small wrapper class for the WebBrowser:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/024244dd11/webBrow.zip.html\">http://hyperupload.com/download/024244d ... w.zip.html</a><!-- m -->\n\nNow you can do:\n   oBrowser = TWebBrowser():New( oWnd )\n   oBrowser:Navigate( \"http://www.fivetechsoft.com\" )\n\nNotice you can also browse local folders like:\n   oBrowser:Navigate( \"C:\\\" )\nLet me know if you figure out a nice way to handle ShowDetails instead of icons, etc.\n\nIt is a partial work, ready for additional ideas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nSince it\'s based on a Fivewin sample, I have no rights to any of it and offer no warranties, use at your own risk, etc.\n\nIt will be useful to find a way to avoid processing the BeforeNavigate Event until after the desired starting page has stabilized. Just setting a static flag on ON INIT doesn\'t work; the navigation hasn\'t happened yet\nand the event is still fired later.  SysWait(nSecs) is always troublesome.  So it\'s probably necessary to handle this specifically for each application.\nI still have never seen the TargetFrameName argument filled with anything; hopefully that will eventually help with some complcations raised by complex pages.\n\nThe main point of the exercise:\nBy trapping specific hyperlinks, it may be possible to design a web interface (perhaps local html pages) and use this trick to drive the local application from a GUI done in html !','',0,'GA==','22bb7szq',1,0,'',144,0,0),(15866,3546,7,490,0,'88.8.89.228',1153176119,1,0,1,1,1,0,'','','René,\n\nPensaba que el QUIT de xHB, ya haría algo de eso, tanto es así, que para cortar en algún momento una aplicación siempre lo he usado, ejecutandose automáticamente el EXIT PROCEDURE.\n\nNo obstante, haré las pruebas.\n\n\nGracias,\nJoaquín','',0,'GA==','lbnzszd2',1,0,'',490,0,0),(15867,3593,3,2,0,'87.218.146.7',1153181542,1,0,1,1,1,1,'','','Brian,\n\n&gt; I still have never seen the TargetFrameName argument filled with anything\n\nIt has the same type as Url param, and we properly receive Url, right ?','',0,'GA==','22sqoiwf',1,0,'',2,0,0),(15868,3546,7,2,0,'87.218.146.7',1153181689,1,0,1,1,1,1,'','','Joaquín,\n\nLo idóneo es terminar la aplicación enviando :End() a la ventana principal, de esta forma FWH se encarga de salir limpiamente (liberando recursos usados, etc.)','',0,'GA==','3k2uo6hp',1,0,'',2,0,0),(15869,3320,2,328,0,'72.252.67.36',1153184429,1,0,1,1,1,0,'','','Gracias Rodolfo por tu ayuda, ya te envié un correo privado a tu correo.\n\nSaludos.\n\nCarlos Sincuir.','',0,'GA==','1sloit10',1,0,'',328,0,0),(15870,3558,6,328,0,'72.252.67.36',1153190532,1,0,1,1,1,0,'','','Goosfancito, si aún no has encontrado nada, te evié a tu correo un trabajo que hice con una clase TRepDos, donde se puede previsualizar los reportes de la TdosPrn, antes de enviarlos a imprimir.\n\nSaludos.\n\nCarlos Sincuir','',0,'GA==','2fcuqbpc',1,0,'',328,0,0),(15871,3610,3,303,0,'72.199.41.171',1153192570,1,0,1,1,1,0,'','Programming for Windows Vista','Its not too soon to start thinking about Windows Vista and the new programming guidelines. Take a look here:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/windowsvista/experience\">http://msdn.microsoft.com/windowsvista/experience</a><!-- m -->\n\nAnd this link is specifically on user interface design issues:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/?url=/library/en-us/UxGuide/UXGuide/Home.asp\">http://msdn.microsoft.com/library/?url= ... e/Home.asp</a><!-- m -->\n\nNote that there are some new common controls, like the \"Task Dialog.\"\n\nJames','',0,'GA==','2gqynsb0',1,0,'',303,0,0),(15872,3607,6,496,0,'200.107.36.176',1153193419,1,0,1,1,1,0,'','','olbx:ncolAct\nguarda el número de columna actual\n\n\nolbx:lcellstyle  := .t.\nolbx:bLClicked:={|nRow,nCol|MSGALERT(olbx:ncolact)}\n\n\nUn saludo\n\nMarcelo Jingo','',0,'GA==','1piyvcby',1,0,'',496,0,0),(15873,3558,6,52,0,'200.127.195.89',1153193482,1,0,1,1,1,1,'','','<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> nop, no me llego nada a <!-- e --><a href=\"mailto:goosfancito@gmail.com\">goosfancito@gmail.com</a><!-- e -->','',0,'GA==','fyhnpw7o',1,0,'',52,0,0),(15874,3607,6,61,0,'201.217.174.246',1153196632,1,0,1,1,1,0,'','','Gracias Marcelo:\n\nFuncionó a la perfección.\n\nSaludos\n\nRuben Fernandez','',0,'GA==','f4oic843',1,0,'',61,0,0),(15875,3611,3,148,0,'196.205.180.249',1153201899,1,0,1,1,1,0,'','alias does not exist','I simulate fwbrow.prg and I faced the error alias does not exist though I have put use all over the module .\n[code:38bgjzrg]\nstatic function editcust&#40; oLbx, lAppend &#41;\n*-------------------------------------------\nlocal oDlg\nLOCAL oCbx\nLOCAL oCbx2\nLOCAL oCbx3\nLocal oGet\nLocal oGet2\nLocal oGet3\nlocal h&#58;=0\nlocal V_CU_ACCT\nlocal V_CU_NAME\nlocal V_cu_stre\nlocal V_cu_gove&#58;=space&#40;30&#41;\nlocal V_cu_city&#58;=space&#40;30&#41;\nlocal V_cu_coun&#58;=space&#40;30&#41;\nlocal v_co_cocmbo&#58;=&quot;&quot;\nlocal v_ci_cocmbo&#58;=&quot;&quot;\nlocal v_go_cocmbo&#58;=&quot;&quot;\nlocal a_Fields&#91;1&#93;\nlocal a_Vars&#91;1&#93;\nlocal V_CU_phon\nlocal V_CU_fax\nlocal V_CU_MAN\nlocal V_CU_mobi\nlocal V_CU_appr\nlocal lSave &#58;= &#46;f&#46;\nlocal nOldRec &#58;= RecNo&#40;&#41;\nlocal bFilter &#58;= &quot;&quot;\nlocal cFilter &#58;= &quot;&quot;\nlocal aItems&#58;=&#123;&#125;\n\n   DEFAULT lAppend &#58;= &#46;f&#46;\n\n   if lAppend\n      GOTO BOTTOM\n      SKIP\n   endif\n\n\nselect 1\n*use cust\nnOldRec &#58;= RecNo&#40;&#41;\nV_CU_ACCT&#58;=cust-&gt;CU_ACCT\nV_CU_NAME&#58;=cust-&gt;CU_NAME\nV_cu_coun&#58;=cust-&gt;CU_coun\nV_cu_city&#58;=cust-&gt;CU_city\nV_cu_gove&#58;=cust-&gt;CU_gove\nV_CU_stre&#58;=cust-&gt;CU_stre\nV_CU_phon&#58;=cust-&gt;CU_phon\nV_CU_fax&#58;=cust-&gt;CU_fax\nV_CU_MAN&#58;=cust-&gt;CU_MAN\nV_CU_mobi&#58;=cust-&gt;CU_mobi\nV_CU_appr&#58;=cust-&gt;CU_appr\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;\nTITLE If&#40; lAppend, &quot;New Customer&quot;, &quot;Customer Update&quot; &#41;\n\n\n   @ 1,2 SAY &quot;&amp;Account No&#46;&quot; OF oDlg PIXEL \n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 GET V_CU_ACCT OF oDlg PIXEL \n\n   @ 15,1 SAY &quot;&amp;Name&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET V_CU_NAME OF oDlg PIXEL\n\n   @ 30,2 SAY &quot;&amp;Street&quot; OF oDlg PIXEL\n   @ 30,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 30,60 GET V_cu_stre OF oDlg PIXEL\n\n  @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n  @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n  @ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41;;\n  SIZE 110,80 ;\n  OF oDlg PIXEL ;\nON CHANGE &#40; oGet&#58;VarPut&#40; PADR&#40; v_co_cocmbo, 30 &#41; &#41;,; \noGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;;\n  valid &#40; reset&#40; v_co_cocmbo, oCbx2, &quot;cust&quot;,&quot;cu_city&quot;,&quot;cu_coun&quot; &#41; , &#46;t&#46; &#41;\n\n\n\n  @ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL\n  @ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 60,60 GET oGet2 VAR V_cu_city OF oDlg PIXEL\n  @ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aItems size 110,80 ;\n  OF oDlg PIXEL;\nON CHANGE &#40; oGet2&#58;VarPut&#40; PADR&#40; v_ci_cocmbo, 30 &#41; &#41;,; \noGet2&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;;\n  VALID &#40;reset&#40; v_ci_cocmbo, oCbx3, &quot;cust&quot;,&quot;cu_gove&quot;,&quot;cu_city&quot; &#41;, &#46;t&#46;&#41;\n\n  @ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL\n  @ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n@ 75,60 GET oGet3 VAR V_cu_gove OF oDlg PIXEL\n  @ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aItems  size 110,80 ;\n     OF oDlg PIXEL;\nON CHANGE &#40; oGet3&#58;VarPut&#40; PADR&#40; v_go_cocmbo, 30 &#41; &#41;,; \noGet3&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n\n\n\n\n   @ 95,2 SAY &quot;&amp;Phone&quot; OF oDlg PIXEL\n   @ 95,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 95,60 GET V_CU_phon OF oDlg PIXEL\n\n   @ 115,2 SAY &quot;&amp;Fax&quot; OF oDlg PIXEL\n   @ 115,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 115,60 GET V_CU_fax OF oDlg PIXEL\n\n   @ 130,2 SAY &quot;Man&quot; OF oDlg PIXEL\n   @ 130,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 130,60 GET V_CU_MAN OF oDlg PIXEL\n\n   @ 145,2 SAY &quot;Mobile&quot; OF oDlg PIXEL\n   @ 145,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 145,60 GET V_CU_mobi OF oDlg PIXEL\n\n   @ 160,2 SAY &quot;Account Name&quot; OF oDlg PIXEL\n   @ 160,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 160,60 GET V_CU_appr OF oDlg PIXEL\n\n   @ 280,  9 BUTTON &quot;&amp;Save&quot;  OF oDlg PIXEL SIZE 50, 12 ACTION &#40; lSave &#58;= &#46;t&#46; , oDlg&#58;End&#40;&#41; &#41;\n   @ 280, 280 BUTTON &quot;&amp;Cancel&quot; OF oDlg PIXEL SIZE 50, 12 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   if lSave &#46;and&#46; !empty&#40; V_CU_ACCT &#41;\n\n      if lAppend\n         select 1\n         use cust\n         APPEND BLANK\n      else\n         select 1\n         use cust\n         GOTO nOldRec\n      endif\n\ncust-&gt;CU_ACCT &#58;=V_CU_ACCT\ncust-&gt;CU_NAME &#58;=V_CU_NAME\ncust-&gt;cu_coun &#58;=V_cu_coun\ncust-&gt;cu_city &#58;=V_cu_city\ncust-&gt;cu_gove &#58;=V_cu_gove\ncust-&gt;cu_stre &#58;=V_cu_stre\ncust-&gt;CU_phon &#58;=V_CU_phon\ncust-&gt;CU_fax  &#58;=V_CU_fax\ncust-&gt;CU_MAN  &#58;=V_CU_MAN\ncust-&gt;CU_mobi &#58;=V_CU_mobi\ncust-&gt;CU_appr &#58;=V_CU_appr\n\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n   else\n\n\n      if Empty&#40; V_CU_ACCT &#41; &#46;and&#46; lSave\n         MsgAlert&#40; &quot;Please write an contract account number &quot; &#41;\n      endif\n\n      select 1\n      use cust\n      set index to cust\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n      GOTO nOldRec\n\n   endif\n\n      select 1\n      use cust\n      set index to cust\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n      GOTO nOldRec\n\nreturn nil\n\n[/code:38bgjzrg]','',0,'AIA=','38bgjzrg',1,0,'',148,0,0),(15876,3612,3,32,0,'196.36.8.34',1153205539,1,0,1,1,1,0,'','GPF FWH 2006-06 with March xHb','Hi,\n\nThe following simple program creates gpf:\n\n#include \"fivewin.ch\"\n\nFunction Main\n\n  Msginfo(\"Hello world!\")\n\nreturn nil\n\nBuilt using xbuild helloworld.prg\n\nUsing FWH 2006-06 with Xhb 2006-03','',0,'AIA=','3ppnj007',1,0,'',32,0,0),(15877,2609,1,170,0,'213.103.40.192',1153206105,1,0,1,1,1,1,'','','[quote:2nwybpip]\nOf course you can, simply add ADSLocking (.F.) (harbour) or AX_Locking (.F.) for Clipper and you can share data with both applications. \n[/quote:2nwybpip]\n\nYou can, but what is the performance and the limit ?\n\n[quote:2nwybpip]\nBTW, ADS under (x)Harbour works like a dream, much better than under Clipper.\n[/quote:2nwybpip]\n\nPerhaps, i can\'t verify, i have just the obsolete FWH 2.5 version.\n\n\"Harbour, the futur of Clipper...\"  (Tomorrow)\n\nRegards,','',0,'gA==','2nwybpip',1,0,'',170,0,0),(15878,3604,6,24,0,'80.58.210.47',1153207930,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:35wwxpeo]Rafa,\n\nGustavo está intentando recuperar el valor devuelto desde el PRG por lo que la llamada a hb_par...( -1 ) es correcta. -1 significa que se acceda al valor de retorno.\n\nGustavo: Tu problema es un problema de uso de cadenas en C. Si la cadena empieza con cero, entonces tienes que recuperar a partir del siguiente byte:\n\nrespuesta = hb_parcx( -1 ) + 1;[/quote:35wwxpeo]\n\nCorrecto Antonio, no habia entendido bien el problema.\nCreia que estaba intentando recuperar un valor pasado a la funcion,\nno que deberia de cogerlo despues de llamar desde C a PRG y recuperar dicho valor en la mismo rutina de C.','',0,'gA==','35wwxpeo',1,0,'',24,0,0),(15879,3417,3,130,0,'141.51.32.24',1153209095,1,0,1,1,1,0,'','','Silvio,\n\nyou can´t prompt an object, just a text\n\n@ Fila,(Col+nPassLarg) SBUTTON aBtn[n] Font oFont3 ;\n......\n PROMPT aBtn[n] ;  // here you display the text of the button\n\naBtn[n] is an object, replace it with a string in the prompt clause.\n\nStefan','',0,'','ay0l88zs',1,0,'',130,0,0),(15880,3605,3,130,0,'141.51.32.24',1153210192,1,0,1,1,1,0,'','','see my answer in the other tsbutton-thread\n\n[url:27r85sjc]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3417[/url:27r85sjc]','',0,'EA==','27r85sjc',1,0,'',130,0,0),(15881,3612,3,2,0,'87.218.146.73',1153211080,1,0,1,1,1,1,'','','Alex,\n\nIt looks as there may be some compatibility problem between xHB March and the xharbour current CVS code, used to build FWH (FiveHMX.lib).\n\nAnyhow, we are going to do some more tests. Could you please email me your entire test-project as a ZIP file ? Thanks','',0,'EA==','1iuu2yzq',1,0,'',2,0,0),(15882,3558,6,2,0,'87.218.146.73',1153211266,1,0,1,1,1,1,'','','Carlos,\n\nPuedes ponerlo en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y publicar aqui el link de descarga para todos ? gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','33b9x3tg',1,0,'',2,0,0),(15883,3611,3,2,0,'87.218.146.73',1153211428,1,0,1,1,1,1,'','','Ehab,\n[code:9ew5ghk3]\n*use cust \n[/code:9ew5ghk3]\nIts commented out in your code.','',0,'AIA=','9ew5ghk3',1,0,'',2,0,0),(15884,3598,16,2,0,'87.218.146.73',1153211788,1,0,1,1,1,1,'','','Construcción Julio 2006\n==================\n\n* Nuevo: En FWPPC, clase TPanel. Por favor, revisa samples\\TestPane.prg. \n\n* Mejora: En \"calldll.c\" las variables son declaradas como static. Esto puede resolver algunos problemas aleatorios cuando se accede a DLLs. Gracias a Ron Christie! \n\n* Nuevo: En FWPPC, el comando DLL FUNCTION ahora usa los parametros proporcionados. Por favor, revisa samples\\DynDll.prg. \n\n* Mejora: La función WriteComm() ahora funciona sincronamente, esperando hasta que todos los \"bytes\" se escriban. Gracias a Enrico ! \n\n* Mejora: En la clase TTreeView, por defecto \"nClrBack\" es puesto en GetSysColor( COLOR_WINDOW ).\n\n* Corrección: La DLL prev32sp.dll, de previsualiacisn de los informes en castellano, no implementaba la previsualizacisn del cursor (lupa). Ahora esta correcta. \n\n* Nuevo: El método Update() de la clase TDbCombo, automaticamente refresca los componentes desde la DBF asociada. \n\n* Nueva: En FWPPC, el ejemplo samples\\menus.prg muestra como usar varios menús desde una aplicación. \n\n* Nueva: En FWPPC, el ejemplo samples\\MenuBmp.prg muestra como usar \"bitmaps\" en menús. \n\n* Corrección: Pequeña corrección en la función cFilePath() cuando se proporcionaba una ruta vacia. \n\n* Nuevo: Nuevos métodos Methods HideButton( nButton ) y ShowButton( nButton ) en la clase TToolBar.\n\n* Nuevo: EN FWPPC, estan disponibles las funciones OemToAnsi() y AnsiToOem(). Por favor, revise el código fuente en source\\classes\\OemAnsiP.prg para adaptarlo a su idioma. \n\n* Nuevo: Anuncio oficial de la versión FWPPC 1.0. Desde este momento, los usuarios de FWPPC tienen 2 meses más de actualizaciones gratuitas. \n\n* Nuevo: Se soportan Menús DropDown (desplegables) desde botones de la barra de herramientas. Por favor, revisa samples\\ToolBar1.prg\n\n* Nuevo: Método IsButtonHidden( nButton ) en la clase TToolBar (ToolsBars). Gracias a Patricio Avalos! \n\n* Nuevo: Método CopyInternet() en la clase TAnimate. Por favor, revisa samples\\Win32.prg para un ejemplo funcional.\n\n* Corrección: La construcción de FWH para [x]Harbour construido con el compilador de C de Microsoft funciona correctamente. Estaba reportando una referencia externa no encontrada.\n\n* Mejora: Se ha mejorado la clase TActiveX de FWH con el soporte de parametros pasados por referencia. \n\n* Nuevo: Nuevo método CtlColor() en la clase TComboBox. Gracias a Enrico! \n\n* Corrección: La clase TActiveX de FWH estaba recibéndo una cantidad duplicada de parametros de eventos. Ahora esta correcta.\n\n* Mejora: La funcisn IsAppThemed() ahora también detecta si existe un fichero \"manifest\" externo: [nombre de la aplicacisn].exe.manifest. \n\n* Nuevo: Nueva función SetEventParam( &lt;pParams&gt;, &lt;nParam&gt;, &lt;uValue&gt; ) en FWH, que te permite cambiar un parametro de evento\n  pasado por referencia. Por favor, revise samples\\WebExp.prg para un ejemplo funcional.  \n\n* Mejora: En los Menús, al comprobar sus componentes no muestra un borde alrededor del componente comprobado.','',0,'','3s7tmrw2',1,0,'',2,0,0),(15885,3612,3,2,0,'87.218.146.215',1153213210,1,0,1,1,1,1,'','','Alex,\n\nAs you may be aware, xHB uses PellesC (renamed as xCC.exe). This is a C only compiler. It does not support C++.\n\nBut the current xHarbour Microsoft build, uses C++ (-Tp flag). So FWH for xHB (built using Microsoft C/C++) can\'t run with PellesC any longer.\n\nWe need to discuss this issue with Harbour/xHarbour developers, to find a solution. First of all we may need to use Microsoft in C mode only, and then recompile FWH accordingly.','',0,'','2seomujs',1,0,'',2,0,0),(15886,3558,6,328,0,'201.216.133.28',1153214688,1,0,1,1,1,0,'','','Listo, esta es la dirección para descarga:\n[url:12ll7487]http&#58;//hyperupload&#46;com/download/027a9a5577/REPDOS&#46;ZIP&#46;html[/url:12ll7487]\n\nEn el zip va la clase \"TRepDos\" que hice para tener reportes tipo columnas, como la Report, solo que para impresoras de matriz utilizando TDosPrn, Ej.:\n\n[code:12ll7487]\n////*********************\nFunction Main&#40;&#41;\nLocal oRepdos, i, oBase\n\nUse &#46;\\Inven New Shared\nDataBase oBase\noBase&#58;bEof &#58;= NIL\n\nREPDOS oRepDos ;\n       HEADER &quot;TecniSistemas&quot;,&quot;Servicio y Asesoria en Sistemas&quot;,&quot;&quot;,;\n              &quot;Reporte de Prueba, Clase TRepDos&quot;, ;\n              &quot;Fecha del Reporte&#58; &quot;+Dtoc&#40; Date&#40;&#41; &#41; ;\n       PREVIEW CONDENSED ;\n       CAPTION &quot;Prueba de TRepDos&#46;&#46;&#46;&quot;\n\nADD COLUMN TO oRepDos ;\n    TITLE &quot;Codigo&quot; CENTER ;\n    DATA oBase&#58;Clave ;\n    SIZE  15 \n\nADD COLUMN TO oRepDos ;\n    TITLE &quot;Descripcion&quot; CENTER ;\n    DATA oBase&#58;Producto ;\n    SIZE  50 \n\nADD COLUMN TO oRepDos ;\n    TITLE &quot;Precio&quot; CENTER ;\n    DATA oBase&#58;Precio1 ;\n    SIZE  14 ;\n    PICTURE &quot;999,999,999&#46;99&quot;\n\noRepDos&#58;bSkip  &#58;= &#123; || oBase&#58;Skip&#40;&#41; &#125;\noRepDos&#58;bWhile &#58;= &#123; || !oBase&#58;Eof&#40;&#41; &#125;\n\nACTIVATE REPDOS oRepDos ;\n         ON END &#40; oRepDos&#58;AddLine&#40;&#41;, ;\n                  oRepdos&#58;Say&#40; &quot;No&#46; de Productos Listados&#58; &quot;+Transform&#40; oBase&#58;Lastrec&#40;&#41;,&quot;99999999&quot;&#41; &#41; &#41;\n\noBase&#58;Close&#40;&#41;\n\nRETURN NIL\n[/code:12ll7487]\n\nYa hecho el reporte utilizo la MPreview, que modifico Paco Soriano para hacer la previsualización. Yo he impreso reportes con mas de 50 páginas sin ningún problema.\n\nSolo les comento que con Clipper5.3+FW2.4 funciona muy bien todo, pero al usar (x)Harbour+FWH2.5, no se si es por la DLL, porque me presenta bien la previsualización de las hojas pero al presionar el boton de imprimir me da un error en los gets al querer mostrar el dialogo \"Print\" del Preview.dll y querer escoger las páginas a imprimir, y aún no encuentro porque da ese error, si laguien lo soluciona espero nos diga como lo hizo.\n\nPor último, me quedo pendiente hacer lo de los grupos, por tiempo ya no lo hice, pero algo parecido hice pero para generar reportes tipo columnas pero para Excel, \"TRepXls\", con esta si ya se puede hacer un grupo, si alguien le interesa preparo una demo y la envío.\n\nEn el ZIP envío las dos DLL\'s, de 16 y 32 bits, solo tienen que cambiarlas o utilizar la que tengan y cambiarla en el \"Mpreviw.prg\"\n\nEspero les sirva.\n\nCarlos Sincuir','',0,'EIA=','12ll7487',1,0,'',328,0,0),(15887,3558,6,328,0,'201.216.133.28',1153215952,1,0,1,1,1,0,'','','Les dejo esta otra dirección para descargar la RepDos:\n[url:1pjwuqtv]http&#58;//hyperupload&#46;com/download/027a9a5573/REPDOS&#46;ZIP&#46;html[/url:1pjwuqtv]\n\nEs que, por estar tratando de ver el error con (x)Harbour, en el anterior zip deje la MPreview de esta forma:\n[code:1pjwuqtv]\n\n     ACTIVATE WINDOW   oWnd                      ;\n          MAXIMIZED ;\n          ON INIT RCambia&#40;oFontT,oPage&#41; ;\n          VALID &#40;RExit&#40;fcFile&#41;,;\n                           oWnd&#58;=NIL,;\n                            &#46;t&#46;&#41;\nReturn &#40;NIL&#41;\n//                           SetResources&#40;hOldRes&#41; ,;   \n[/code:1pjwuqtv]\n\nY lo correcto es:\n\n[code:1pjwuqtv]\n\n     ACTIVATE WINDOW   oWnd                      ;\n          MAXIMIZED ;\n          ON INIT RCambia&#40;oFontT,oPage&#41; ;\n          VALID &#40;RExit&#40;fcFile&#41;,;\n                          SetResources&#40;hOldRes&#41; ,;   \n                           oWnd&#58;=NIL,;\n                            &#46;t&#46;&#41;\nReturn &#40;NIL&#41;\n[/code:1pjwuqtv]\n\nPara que se regrese el archivo de recursos anterior al Preview.dll, en este nuevo zip ya esta arreglado. \n\nSaludos,\n\nCarlos Sincuir','',0,'EIA=','1pjwuqtv',1,0,'',328,0,0),(15888,3546,7,490,0,'80.24.224.89',1153216329,1,0,1,1,1,0,'','','Gracias Antonio,\n\nExactamente eso es lo que hago en el EXIT PROCEDURE.\n\nCon lo cual quedaría:\n\n  WinExec( \"Miapli.exe\")\n  oWndPrincipal:End()\n\n¿Debería funcionar correctamente verdad?\n\n\nUn Saludo,\nJoaquín','',0,'EIA=','2jupiqs2',1,0,'',490,0,0),(15889,3546,7,2,0,'87.218.146.215',1153217365,1,0,1,1,1,1,'','','Joaquín,\n\n&gt; ¿Debería funcionar correctamente verdad? \n\nSí','',0,'EIA=','3hn77lg6',1,0,'',2,0,0),(15890,3558,6,2,0,'87.218.146.215',1153217442,1,0,1,1,1,1,'','','Carlos,\n\nGracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EIA=','112481ca',1,0,'',2,0,0),(15891,3417,3,49,0,'213.82.134.66',1153218419,1,0,1,1,1,1,'','','Now run ok \nthanks','',0,'EIA=','3nqzf64s',1,0,'',49,0,0),(15892,3254,5,270,0,'65.27.222.17',1153220089,1,0,1,1,1,0,'','','It was my bad.  I was doing something inappropriate that I believe was sending keystrokes to the browse screen while I had a print preview running at the same time on top of the browse.  The browse got upset because I was messing with the database and indexes while it was trying to refresh the screen from the keystrokes.\n\nRather hard to explain, but I believe I have it solved.\n\nThanks\nDan','',0,'EIA=','10e9favi',1,0,'',270,0,0),(15893,3613,7,490,0,'80.24.224.89',1153226555,1,0,1,1,1,0,'','Configurar lenguaje en la pocket','Hola,\n\nEsto es lo que usamos en FWH para escritorio:\n\nREQUEST HB_LANG_ES        // Para establecer español para Mensajes, fechas, etc..\n   REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..)\n\n   HB_LangSelect(\'ES\')\n   HB_SetCodePage(\"ESWIN\") // Para ordenación (arrays, cadenas, etc..)\n\n¿Es correcto? \nY si es correcto, ¿se usaría igual para la pocket con FWPPC ?\n\n\nUn Saludo,\nJoaquín','',0,'EIA=','1w94u6mk',1,0,'',490,0,0),(15894,3612,3,2,0,'87.218.146.110',1153227176,1,0,1,1,1,1,'','','Alex,\n\nPlease discard my previous answer. It looks as there is a symbol conflict between FWH and xHB. We are looking for a solution.','',0,'EIA=','2ybddmpa',1,0,'',2,0,0),(15895,3613,7,2,0,'87.218.146.84',1153229526,1,0,1,1,1,1,'','','Joaquín,\n\nSi, es correcto e igual para el Pocket PC.','',0,'EIA=','1eeacwuw',1,0,'',2,0,0),(15896,3614,3,308,0,'84.148.19.235',1153232929,1,0,1,1,1,0,'','Font in a RADIO Controll ?','Hallo,\n\nhow do I can set the Font of a RADIO controll in a Folder?  \nRADIO Controll from Source (@ x,y RADIO ...)\n\nBest regards\n  Norbert','',0,'EIA=','2r6lieh0',1,0,'',308,0,0),(15897,3561,20,106,0,'85.34.123.173',1153236403,1,0,1,1,1,1,'','','Forse è questo che ti serve:\n\n\n\n  DEFINE MSGITEM oMsgItem;\n    OF MainWnd:oMsgBar;\n    PROMPT \"Prompt\";\n    BITMAP \"BITMAP\";\n    TOOLTIP \"Tooltip\";\n    ACTION msginfo(\"Msg Item\");\n    SIZE 24\n\nBuon lavoro','',0,'EIA=','xl9t8oxu',1,0,'',106,0,0),(15898,2609,1,343,0,'204.57.111.194',1153239540,1,0,1,1,1,0,'','','If you have UDF in index or indexed on related table it might not be supported by Advantage server.','',0,'EIA=','3colsl1u',1,0,'',343,0,0),(15899,3615,3,435,0,'200.155.199.121',1153239728,1,0,1,1,1,0,'','FiveXLS with harbour 46.0 GPF','- Gostaria de saber se alguem tem o fontes da FiveXLS\n\nEu tentei rodar Harbour 46.0 e Fwh27, dá GPF\n\nAri','',0,'EIA=','1vyzeh08',1,0,'',435,0,0),(15900,2609,1,138,0,'201.128.111.188',1153240490,1,0,1,1,1,1,'','','[quote=&quot;Gale FORd&quot;:1z1y8dy1]If you have UDF in index or indexed on related table it might not be supported by Advantage server.[/quote:1z1y8dy1]\n\nOf course it\'s suppoorted, but you need to do a simply trick:\n\nAdd a new field in your database and when replacing data, replace it with:\n\nREPLACE newfield WITH UDF (value)\n\nAnd then build a simple index over the newfield, and you are done now you can search over the new indexed field, and ADS will support it without any problem.','',0,'gA==','1z1y8dy1',1,0,'',138,0,0),(15901,2609,1,138,0,'201.128.111.188',1153241095,1,0,1,1,1,1,'','','[quote=&quot;Badara Thiam&quot;:2uf45ijp]\n\nYou can, but what is the performance and the limit ?\n\n[/quote:2uf45ijp]\n\nYou wont notice anything, what is really happening is that you move the locking schema to be performed by the client machine, not by the server.\n\nWhen letting the server to handle the locking schema you will never get the FLOCK() to .T., because the lock is done by the server, and the server handles the connection stuff, using compatible locking, it\'s highly probably that the FLOCK() function returns eventually a .T.\n\n[quote=&quot;Badara Thiam&quot;:2uf45ijp]\nPerhaps, i can\'t verify, i have just the obsolete FWH 2.5 version.\n\n\"Harbour, the futur of Clipper...\"  (Tomorrow)\n\nRegards,[/quote:2uf45ijp]\n\nWell all our systems are running under ADS and FWH 2.5 Ford is one of our most important customers and the IT departament of Ford Motor Company Mexico, has certficated our systems with a 96.3% of quality asurance, all thanks ADS.:\n\n[img:2uf45ijp]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/adscoun3&#46;jpg[/img:2uf45ijp]','',0,'iA==','2uf45ijp',1,0,'',138,0,0),(15902,3614,3,6,0,'87.19.208.107',1153241285,1,0,1,1,1,1,'','Re: Font in a RADIO Controll ?','Can you show me a reduced and self-contained sample of the problem?\n\nEMG','',0,'iA==','1ad5yh1l',1,0,'',6,0,0),(15903,3615,3,2,0,'87.218.146.84',1153241613,1,0,1,1,1,1,'','','Ari,\n\nDon\'t you get a callstack list for the GPF on the screen ?','',0,'iA==','1199nz4t',1,0,'',2,0,0),(15904,3614,3,308,0,'84.148.19.235',1153242119,1,0,1,1,1,0,'','Re: Font in a RADIO Controll ?','[quote=&quot;EnricoMaria&quot;:1lmjvd32]Can you show me a reduced and self-contained sample of the problem?\n\nEMG[/quote:1lmjvd32]\n\nDear Enrico,\n\nuse the Sample TESTRAD2.PRG\n\n[code:1lmjvd32]\nfunction Main&#40;&#41;\n\n   local nValue &#58;= 3, oRad\n\n   SET _3DLOOK ON\n   SET HELPFILE TO &quot;Test&#46;hlp&quot;\n\n   DEFINE WINDOW oWnd ;\n      TITLE &quot;Testing a Radio Buttons Menu&quot; COLOR &quot;N/W&quot;\n\n   @ 1, 1 BUTTON &quot;&amp;Test&quot; SIZE 70, 20 ;\n      ACTION &#40; MsgInfo&#40; nValue &#41;, oRad&#58;aItems&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Changed!&quot; &#41; &#41;\n\n   @ 3, 2 RADIO oRad VAR nValue ;\n      ITEMS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot; _3D SIZE 150, 25 ;\n      HELPID 100, 101, 102 ;\n      ON CHANGE MsgBeep&#40;&#41;\n\n   // adding an extra radio item at a different location\n   @ 5, 25 RADIOITEM &quot;Fo&amp;ur&quot; RADIOMENU oRad OF oWnd SIZE 150, 25\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:1lmjvd32]\n\nwhere can i change the Text \"&amp;One\", \"&amp;Two\", \"T&amp;hree\" to an smaler font ?\n\nBest regards, Norbert','',0,'gIA=','1lmjvd32',1,0,'',308,0,0),(15905,3613,7,490,0,'83.39.193.226',1153243910,1,0,1,1,1,0,'','','Gracias Antonio,\n\nAsí se guarda la compatibilidad perfectamente de fwppc con fwh.\n\n\nUn Saludo,\nJoaquín','',0,'gIA=','3pqemsl6',1,0,'',490,0,0),(15906,3612,3,2,0,'87.218.146.84',1153245663,1,0,1,1,1,1,'','','Alex,\n\nIf you include in your sample,\n\nfunction ErrorSys\n\nreturn nil\n\nthen it properly builds. Anyhow, it looks as there is an incompatibility between xHB march and current xHarbour CVS code (as in FWH June build we used the new xHarbour CVS code).\n\nxHB is march dated. We may need a more recent version.','',0,'gIA=','xh43zwu4',1,0,'',2,0,0),(15907,3614,3,2,0,'87.218.146.84',1153246176,1,0,1,1,1,1,'','','Norbert,\n[code:1d8dhg23]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41; \n\n   local nValue &#58;= 3, oRad, oFont, n\n\n   SET _3DLOOK ON \n   SET HELPFILE TO &quot;Test&#46;hlp&quot; \n\n   DEFINE WINDOW oWnd ; \n      TITLE &quot;Testing a Radio Buttons Menu&quot; COLOR &quot;N/W&quot; \n\n   @ 1, 1 BUTTON &quot;&amp;Test&quot; SIZE 70, 20 ; \n      ACTION &#40; MsgInfo&#40; nValue &#41;, oRad&#58;aItems&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Changed!&quot; &#41; &#41; \n\n   @ 3, 2 RADIO oRad VAR nValue ; \n      ITEMS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot; _3D SIZE 150, 25 ; \n      HELPID 100, 101, 102 ; \n      ON CHANGE MsgBeep&#40;&#41; \n\n   // adding an extra radio item at a different location \n   @ 5, 25 RADIOITEM &quot;Fo&amp;ur&quot; RADIOMENU oRad OF oWnd SIZE 150, 25 \n\n   DEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 0, -10\n\n   for n = 1 to Len&#40; oRad&#58;aItems &#41;\n      oRad&#58;aItems&#91; n &#93;&#58;SetFont&#40; oFont &#41;\n   next   \n\n   ACTIVATE WINDOW oWnd \n\nreturn nil\n[/code:1d8dhg23]','',0,'AIA=','1d8dhg23',1,0,'',2,0,0),(15908,3614,3,6,0,'87.19.208.107',1153246590,1,0,1,1,1,1,'','Re: Font in a RADIO Controll ?','Here it is:\n\n[code:2pic3a37]#include &quot;Fivewin&#46;ch&quot;\n\n\nfunction Main&#40;&#41; \n\n   local oWnd\n\n   local nValue &#58;= 3, oRad \n\n   local oFnt\n\n   SET _3DLOOK ON \n   SET HELPFILE TO &quot;Test&#46;hlp&quot; \n\n   DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -8\n\n   DEFINE WINDOW oWnd ; \n      TITLE &quot;Testing a Radio Buttons Menu&quot; COLOR &quot;N/W&quot; \n\n   @ 1, 1 BUTTON &quot;&amp;Test&quot; SIZE 70, 20 ; \n      ACTION &#40; MsgInfo&#40; nValue &#41;, oRad&#58;aItems&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Changed!&quot; &#41; &#41; \n\n   @ 1, 20 BUTTON &quot;&amp;Change font&quot; SIZE 70, 20 ; \n      ACTION &#40; oRad&#58;aItems&#91; 2 &#93;&#58;SetFont&#40; oFnt &#41;,;\n               INVALIDATERECT&#40; oRad&#58;aItems&#91; 2 &#93;&#58;hWnd &#41; &#41;\n\n   @ 3, 2 RADIO oRad VAR nValue ; \n      ITEMS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot; _3D SIZE 150, 25 ; \n      HELPID 100, 101, 102 ; \n      ON CHANGE MsgBeep&#40;&#41; \n\n   // adding an extra radio item at a different location \n   @ 5, 25 RADIOITEM &quot;Fo&amp;ur&quot; RADIOMENU oRad OF oWnd SIZE 150, 25 \n\n   ACTIVATE WINDOW oWnd \n\n   RELEASE FONT oFnt\n\nreturn nil[/code:2pic3a37]\n\nEMG','',0,'AIA=','2pic3a37',1,0,'',6,0,0),(15909,2609,1,58,0,'84.149.219.21',1153246931,1,0,1,1,1,0,'','','Hello Rene,\n\n[quote=&quot;RF&quot;:vmi43sgt]\n...Well all our systems are running under ADS and FWH 2.5 Ford is one of our most important customers and the IT departament of Ford Motor Company Mexico, has certficated our systems with a 96.3% of quality asurance, all thanks ADS.:[/quote:vmi43sgt]\n[b:vmi43sgt]Congratulations[/b:vmi43sgt] to this certification. \n\nYou point out the great power of xHarbour in conjunction with FWH and ADS.\n\nBest regards,\nDetlef','',0,'wA==','vmi43sgt',1,0,'',58,0,0),(15910,3612,3,32,0,'196.36.8.34',1153247068,1,0,1,1,1,0,'','','the sample now is ok, but our big app still gpf\'s.\n\nI\'ll wait for the new xhb','',0,'wA==','1drkslr4',1,0,'',32,0,0),(15911,3611,3,148,0,'196.205.178.13',1153247092,1,0,1,1,1,0,'','','I have error :\nApplication\n===========\n   Path and name: E:\\programs\\clipper\\FWH\\sitex\\sitex.exe (32 bits)\n   Size: 1,464,320 bytes\n   Time from start: 0 hours 0 mins 22 secs \n   Error occurred at: 18/07/2006, 21:20:36\n   Error description: Error BASE/1002  Alias does not exist: CUST\nStack Calls\n===========\n   Called from:  =&gt; (b)SETFILTER(0)\n   Called from:  =&gt; TWBROWSE:DISPLAY(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; SYSREFRESH(0)\n   Called from:  =&gt; TWINDOW:END(0)\n   Called from: sitex.prg =&gt; (b)EDITCUST(454)\n\nline 454 :\n   @ 280,  9 BUTTON \"&amp;Save\"  OF oDlg PIXEL SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )\n\n[code:dscsmcwi]\nstatic function editcust&#40; oLbx, lAppend &#41;\n*-------------------------------------------\nlocal oDlg\nLOCAL oCbx\nLOCAL oCbx2\nLOCAL oCbx3\nLocal oGet\nLocal oGet2\nLocal oGet3\nlocal h&#58;=0\nlocal V_CU_ACCT\nlocal V_CU_NAME\nlocal V_cu_stre\nlocal V_cu_gove&#58;=space&#40;30&#41;\nlocal V_cu_city&#58;=space&#40;30&#41;\nlocal V_cu_coun&#58;=space&#40;30&#41;\nlocal v_co_cocmbo&#58;=&quot;&quot;\nlocal v_ci_cocmbo&#58;=&quot;&quot;\nlocal v_go_cocmbo&#58;=&quot;&quot;\nlocal a_Fields&#91;1&#93;\nlocal a_Vars&#91;1&#93;\nlocal V_CU_phon\nlocal V_CU_fax\nlocal V_CU_MAN\nlocal V_CU_mobi\nlocal V_CU_appr\nlocal lSave &#58;= &#46;f&#46;\nlocal nOldRec &#58;= RecNo&#40;&#41;\nlocal bFilter &#58;= &quot;&quot;\nlocal cFilter &#58;= &quot;&quot;\nlocal aItems&#58;=&#123;&#125;\n\n   DEFAULT lAppend &#58;= &#46;f&#46;\n\n   if lAppend\n      GOTO BOTTOM\n      SKIP\n   endif\n\n\nselect 1\nuse cust\nINDEX ON &#40;cust-&gt;cu_acct&#41; TO cust\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON upper&#40;cust-&gt;cu_appr&#41; TO cust10\nset INDEX TO cust\n\n\ngoto nOldRec\nV_CU_ACCT&#58;=cust-&gt;CU_ACCT\nV_CU_NAME&#58;=cust-&gt;CU_NAME\nV_cu_coun&#58;=cust-&gt;CU_coun\nV_cu_city&#58;=cust-&gt;CU_city\nV_cu_gove&#58;=cust-&gt;CU_gove\nV_CU_stre&#58;=cust-&gt;CU_stre\nV_CU_phon&#58;=cust-&gt;CU_phon\nV_CU_fax&#58;=cust-&gt;CU_fax\nV_CU_MAN&#58;=cust-&gt;CU_MAN\nV_CU_mobi&#58;=cust-&gt;CU_mobi\nV_CU_appr&#58;=cust-&gt;CU_appr\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;\nTITLE If&#40; lAppend, &quot;New Customer&quot;, &quot;Customer Update&quot; &#41;\n\n\n   @ 1,2 SAY &quot;&amp;Account No&#46;&quot; OF oDlg PIXEL \n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 GET V_CU_ACCT OF oDlg PIXEL \n\n   @ 15,1 SAY &quot;&amp;Name&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET V_CU_NAME OF oDlg PIXEL\n\n   @ 30,2 SAY &quot;&amp;Street&quot; OF oDlg PIXEL\n   @ 30,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 30,60 GET V_cu_stre OF oDlg PIXEL\n\n  @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n  @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n  @ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41;;\n  SIZE 110,80 ;\n  OF oDlg PIXEL ;\nON CHANGE &#40; oGet&#58;VarPut&#40; PADR&#40; v_co_cocmbo, 30 &#41; &#41;,; \noGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;;\n  valid &#40; reset&#40; v_co_cocmbo, oCbx2, &quot;cust&quot;,&quot;cu_city&quot;,&quot;cu_coun&quot; &#41; , &#46;t&#46; &#41;\n\n\n\n  @ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL\n  @ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 60,60 GET oGet2 VAR V_cu_city OF oDlg PIXEL\n  @ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aItems size 110,80 ;\n  OF oDlg PIXEL;\nON CHANGE &#40; oGet2&#58;VarPut&#40; PADR&#40; v_ci_cocmbo, 30 &#41; &#41;,; \noGet2&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;;\n  VALID &#40;reset&#40; v_ci_cocmbo, oCbx3, &quot;cust&quot;,&quot;cu_gove&quot;,&quot;cu_city&quot; &#41;, &#46;t&#46;&#41;\n\n  @ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL\n  @ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n@ 75,60 GET oGet3 VAR V_cu_gove OF oDlg PIXEL\n  @ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aItems  size 110,80 ;\n     OF oDlg PIXEL;\nON CHANGE &#40; oGet3&#58;VarPut&#40; PADR&#40; v_go_cocmbo, 30 &#41; &#41;,; \noGet3&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n\n\n\n\n   @ 95,2 SAY &quot;&amp;Phone&quot; OF oDlg PIXEL\n   @ 95,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 95,60 GET V_CU_phon OF oDlg PIXEL\n\n   @ 115,2 SAY &quot;&amp;Fax&quot; OF oDlg PIXEL\n   @ 115,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 115,60 GET V_CU_fax OF oDlg PIXEL\n\n   @ 130,2 SAY &quot;Man&quot; OF oDlg PIXEL\n   @ 130,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 130,60 GET V_CU_MAN OF oDlg PIXEL\n\n   @ 145,2 SAY &quot;Mobile&quot; OF oDlg PIXEL\n   @ 145,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 145,60 GET V_CU_mobi OF oDlg PIXEL\n\n   @ 160,2 SAY &quot;Account Name&quot; OF oDlg PIXEL\n   @ 160,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 160,60 GET V_CU_appr OF oDlg PIXEL\n\n   @ 280,  9 BUTTON &quot;&amp;Save&quot;  OF oDlg PIXEL SIZE 50, 12 ACTION &#40; lSave &#58;= &#46;t&#46; , oDlg&#58;End&#40;&#41; &#41;\n   @ 280, 280 BUTTON &quot;&amp;Cancel&quot; OF oDlg PIXEL SIZE 50, 12 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   if lSave &#46;and&#46; !empty&#40; V_CU_ACCT &#41;\n\n      if lAppend\n         select 1\n         use cust index cust-&gt;cust\n         APPEND BLANK\n      else\n         select 1\n         use cust index cust-&gt;cust\n         GOTO nOldRec\n      endif\n\ncust-&gt;CU_ACCT &#58;=V_CU_ACCT\ncust-&gt;CU_NAME &#58;=V_CU_NAME\ncust-&gt;cu_coun &#58;=V_cu_coun\ncust-&gt;cu_city &#58;=V_cu_city\ncust-&gt;cu_gove &#58;=V_cu_gove\ncust-&gt;cu_stre &#58;=V_cu_stre\ncust-&gt;CU_phon &#58;=V_CU_phon\ncust-&gt;CU_fax  &#58;=V_CU_fax\ncust-&gt;CU_MAN  &#58;=V_CU_MAN\ncust-&gt;CU_mobi &#58;=V_CU_mobi\ncust-&gt;CU_appr &#58;=V_CU_appr\n\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n   else\n\n\n      if Empty&#40; V_CU_ACCT &#41; &#46;and&#46; lSave\n         MsgAlert&#40; &quot;Please write an contract account number &quot; &#41;\n      endif\n\n      select 1\n      use cust\n      set index to cust\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n      GOTO nOldRec\n\n   endif\n\n      select 1\n      use cust\n      set index to cust\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n      GOTO nOldRec\n\nreturn nil\n\n[/code:dscsmcwi]','',0,'AIA=','dscsmcwi',1,0,'',148,0,0),(15912,3561,20,49,0,'62.13.172.78',1153247249,1,0,1,1,1,1,'','','no volevo solo sapere se potevo azionare una bitmap su una status bar','',0,'AIA=','2sgalua2',1,0,'',49,0,0),(15913,2609,1,138,0,'201.128.111.188',1153250476,1,0,1,1,1,1,'','','Detlef:\n\nThanks, actually we use ADS in the most of our old customers who have enourmous DBF files, we have a customer having over 70 million records in a single DBF.\n\nThese are snap shots of the ADS Server working hard in a Ford office, all the software is done with FWH 2.5, some modules are still Clipper 5.3 and the internet stuff is done via ASP:\n\n[img:i9ow26ok]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/adscoun&#46;png[/img:i9ow26ok]\n[img:i9ow26ok]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/adscoun2&#46;png[/img:i9ow26ok]','',0,'CA==','i9ow26ok',1,0,'',138,0,0),(15914,2609,1,58,0,'84.149.219.21',1153252031,1,0,1,1,1,0,'','','Rene,\n\nthis really impressive.\n\nI must tell this to my boss who always has doubts about those in his opinion outdated tools like Clipper, xHarbour, FWH and ADS.\n\nThanks for your info.\n\nBest regards,\nDetlef','',0,'CA==','2o7vi4qz',1,0,'',58,0,0),(15915,3616,3,217,0,'200.159.120.34',1153252670,1,0,1,1,1,0,'','My own balloons (like password caps lock on balloon)','Fivewin activate automatically that balloon showed when caps lock is ON and we are typing in a get with password.\n\nI\'m trying to cut out all message boxes with errors and validation messages. I think that balloon is professional and not irratating like message boxes.\n\nMy question:\nHow can I create that balloon that I mentioned, include my own text on it and how point it to an object in dialog (get, combobox, etc)?\n\nAntonio, any idea?\n\nBest regards\nMaurilio','',0,'CA==','47ruhdqa',1,0,'',217,0,0),(15916,3617,3,264,0,'200.91.3.10',1153256580,1,0,1,1,1,0,'','Mi numero IP  / My IP number','No encuentro la funcion que entrege mi numero IP ?\n\nWhat is the function name for get my IP number ?','',0,'CA==','14604k5w',1,0,'',264,0,0),(15917,3618,7,262,0,'83.97.168.146',1153258004,1,0,1,1,1,1,'','font en folder','como hago para que los elementos de un folder usen un font determinado ? \n(mas pequeño )\n\n-------------- edito \nperdon por la pregunta...\nme respondo \nno conseguia que los tamaños declarados en recursos funcionaran , declarandolo en el codigo si funciona','',0,'CA==','9nb1igd6',1,0,'',262,0,0),(15918,3611,3,2,0,'87.218.146.244',1153261626,1,0,1,1,1,1,'','','Ehab,\n\nTry this:\n\n@ 280, 9 BUTTON \"&amp;Save\" OF oDlg PIXEL SIZE 50, 12 ACTION ( lSave := .t. , oLbx:cAlias := \"\", oDlg:End() )','',0,'CA==','1i7zl6c2',1,0,'',2,0,0),(15919,3612,3,2,0,'87.218.146.244',1153261727,1,0,1,1,1,1,'','','Alex,\n\nWe have just tested FWH July 2006 with xHarbour builder July2006-RC7 and everything worked fine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nYou may download xHarbour builder July2006-RC7 and try it yourself.','',0,'CA==','2y6cmaq7',1,0,'',2,0,0),(15920,3558,6,415,0,'190.24.99.60',1153261803,1,0,1,1,1,0,'','','Carlos:\nUtlizo tu clase en Xharbour y no tengo problemas, claro le hice unas pequeñisimas modificaciones:\n\nNo utilizo el preview.dll pase los recursos que tenia esta y los adicione a mis propios recursos .RC, por tanto deshabilite del mpreview.prg la llamada a los rercursos\n\n//*  SET RESOURCES TO \"PREVIEW.DLL\"\n\n\n\nSaludos\n\nMauricio Arévalo','',0,'CA==','1qc0z3c6',1,0,'',415,0,0),(15921,3619,7,661,0,'201.123.184.199',1153261835,1,0,1,1,1,0,'','alternativa al uso de indice','que tal pues por problemas del SHARED quiero ver la posibilidad de utilizar una alternativa al uso de indices, no se alguna busqueda binaria u algo asi que no sea secuencial ya que seria lentisimo y mis archivos crecen muy rapido\n\nsaludos','',0,'CA==','1ia5had9',1,0,'',661,0,0),(15922,3620,6,422,0,'195.8.13.162',1153263140,1,0,1,1,1,1,'','Antonio - Curiosidad logotipo FivetechSoft','..... Amigos han notado en el logotipo de FivetechSoft, en el reflejo de la iris/niña del ojo,  la &quot;foto&quot; de 3 personas... seran personas reales.. o solo un diseño... me mata la curiosidad <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\n[img:3rec77mf]https&#58;//fivetechsoft&#46;github&#46;io/screenshots/fweye&#46;jpg[/img:3rec77mf]\n\nSaludos..','8482eea2b1621d1a3ca2783904030ad2',0,'CA==','3rec77mf',1,0,'',422,0,0),(15923,3621,7,490,0,'83.39.254.13',1153264173,1,0,1,1,1,0,'','Usar GPRS para internet con fwppc','Hola,\n\n¿Alguien conoce como hacer lo siguiente?:\n\n Crear un acceso telefónico a redes via BT a un móvil. (eso sé hacerlo)\n\nDesde fwppc poder marcar esa conexión a internet. Esto sé hacerlo manualmente, pero desde una aplicación en fwppc, no sé que funciones del api usar.\n\nSi alguien puede iluminarme...\n\n\nUn Saludo,\nJoaquín','',0,'GA==','333oxazp',1,0,'',490,0,0),(15924,3182,3,63,0,'80.37.102.128',1153264338,1,0,1,1,1,0,'','','Rodolfo:\nYa lo solucioné: Cambié la placa de relés controlada por puerto paralelo por otro modelo, controlado por puerto serie. Hice un par de correcciones al programa y funcionó a la primera.\nSaludos,\nRafael','',0,'GA==','2d51ib8n',1,0,'',63,0,0),(15925,3619,7,138,0,'201.128.111.188',1153267404,1,0,1,1,1,1,'','','Tienes en contra varias cosas:\n\n1) La velocidad de la red inalambrica (10 mbps)\n2) La velocidad de los procesadores de los equipos moviles\n2) Las aplicaciones no cliente/servidor no funcionan en redes WiFi.\n\nLo que yo haria y te lo comente, es utilizar aplicaciones basadas en web para hacer el acceso sobre todo porque los dispositivos que van a meter no tienen Windows Mobile 5 y dado el volumen de informacion que van a meter, si esta muy cañon hacer que la aplicacion funcione en el PPC','',0,'GA==','32xxwjd5',1,0,'',138,0,0),(15926,3558,6,328,0,'72.252.46.24',1153271764,1,0,1,1,1,0,'','','Mauro, lo mismo estaba pensando, ya que ese error solo me la da con la DLL prev32 que lleva el ejemplo.\n\nSaludos.\n\nCarlos Sincuir','',0,'GA==','37fb4pki',1,0,'',328,0,0),(15927,3617,3,177,0,'194.30.62.6',1153285289,1,0,1,1,1,0,'','','DBZap,\n\nla función GetHostByName(&lt;cHostName&gt; ) --&gt; cIPAddress  \n\nte devuelve la dirección IP de tu máquina.\n\nGetHostByName(&lt;cHostName&gt;) --&gt; cIPAddress return your IP address.\n\nSaludos/Regards','',0,'GA==','3g0ua87g',1,0,'',177,0,0),(15928,3582,1,47,0,'203.144.143.5',1153293247,1,0,1,1,1,0,'','My sendmail is work well.','Dear Kleyton,\n\nThis is my sendmail procedure is working perfectly for me and it may help.\n\n*-----------------------------*\nStatic Function SendMails(aRecNo)\nlocal mDlg, oGet[4], oBtn[2]\nlocal lSave := .F.\nlocal cAtt, cSub, cText\nlocal cHost, aHost, aAtt\n\n  aAtt  := {}\n  aHost := {}\n  OPENFILE(\'EZMAIL\',\'MAL\')\n  do while !MAL-&gt;(Eof())\n     aadd( aHost, left(rtrim(MAL-&gt;MAL_ADDR)+\'  (\'+rtrim(MAL-&gt;MAL_SMTP)+\')\'+space(360),360) )\n     MAL-&gt;(DbSkip())\n  end\n  CLOSEFILE(\'MAL\')\n  \nif !empty(aHost)  \n   cHost := aHost[1]\n   cSub  := space(100)\n   cText := space(4096)\n\n   DEFINE DIALOG mDlg RESOURCE \'EMAIL\' TITLE TE(\'&#3586;&#3657;&#3629;&#3588;&#3623;&#3634;&#3617;&#3607;&#3637;&#3656;&#3605;&#3657;&#3629;&#3591;&#3585;&#3634;&#3619;&#3626;&#3656;&#3591;\',\'Enter sending message\') FONT MEMVAR-&gt;oFont\n\n      REDEFINE COMBOBOX oGet[1] VAR cHost ITEMS aHost ID 101 OF mDlg\n      REDEFINE GET oGet[2] VAR cSub  ID 102 OF mDlg   \n      REDEFINE BTNGET oGet[3] VAR cAtt  ID 103 OF mDlg ;\n               ACTION (cAtt := cGetFile(\'Jpeg |*.JPG|Bitmap |*.BMP|\',\'Load From File\',,\'IMAGE\\\',,.T.), oGet[3]:Refresh(), oGet[4]:SetFocus())\n*              ACTION (SelFile(oGet[3],\'.\',\'*.BMP\',rtrim(cAtt)), oGet[4]:SetFocus())\n   \n      REDEFINE GET oGet[4] VAR cText ID 104 OF mDlg MULTILINE\n            \n               oGet[4]:bGotFocus := {|| oGet[4]:SetPos(0) }\n             \n      REDEFINE SBUTTON oBtn[1] ID 11 ;\n               RESOURCE \'SENDMAIL\', \'SENDMAIL\', \'SENDMAIL\', \'SENDMAIL\' ;\n	    	   PROMPT TE(\'&#3626;&#3656;&#3591;\',\'&amp;Send\') ;\n	    	   WHEN   (!empty(cHost).and.!empty(cSub)) ;\n	    	   ACTION (lSave := .T., mDlg:End()) ;\n	    	   COLOR {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) } ;\n	    	   TEXT ON_RIGHT\n\n       REDEFINE SBUTTON oBtn[2] ID 12 ;\n	  	        RESOURCE \'CANCEL\', \'CANCEL\', \'CANCEL\', \'CANCEL\' ;\n	     	    PROMPT TE(\'&#3618;&#3585;&#3648;&#3621;&#3636;&#3585;\',\'&amp;Cancel\') ;\n	    	    ACTION ( mDlg:End() ) ;\n	    	    COLOR {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) } ;\n	    	    TEXT ON_RIGHT\n	    	\n	    	\n   ACTIVATE DIALOG mDlg CENTER RESIZE16\n\n   if lSave\n      if !empty(cAtt)\n         aadd( aAtt, cAtt )\n      end\n      MsgRun( \"This messages is sending now\",;\n              \"E-mail is sending, please wait...\",;\n               { | oDlg | UpdCaption( oDlg, cHost, cSub, aAtt, cText ) } )\n   end            \nelse   \n   MsgStop(TE(\'&#3605;&#3636;&#3605;&#3633;&#3657;&#3591;&#3610;&#3633;&#3597;&#3594;&#3637;&#3629;&#3636;&#3609;&#3648;&#3607;&#3629;&#3619;&#3660;&#3648;&#3609;&#3655;&#3605;&#3585;&#3656;&#3629;&#3609;&#3651;&#3594;&#3657;&#3586;&#3657;&#3629;&#3609;&#3637;&#3657;\',\'Please set up internet account before use\'))\nend\nreturn nil           \n            \n*--------------------------------*            \nstatic function UpdCaption( oDlg, cHostName, cSubject, aAtt, cMsg )            \nlocal n, lMsgInfo, cHost, cSender, cTo, cCC\nlMsgInfo := .F.\n\ncHost   := subs(cHostName,at(\'(\',cHostName)+1,(at(\')\',cHostName)-at(\'(\',cHostName))-1)\ncSender := rtrim(subs(cHostName,1,at(\'(\',cHostName)-1))\n\nfor n := 1 to len(aRecNo)\n    GST-&gt;(DbGoTo(aRecNo[n]))\n    cTo := lower(rtrim(GST-&gt;GST_EMAIL))\n    SendMail( oDlg, cHost, cSender, cTo, cCC,cSubject, cMsg, .F., aAtt, .F. )\n    oDlg:cMsg := \"The messages have sent successfully \"+;\n                  LTrim( Str( nCount ) ) + \" mail(s)\" \n    oDlg:Refresh()\n    SysRefresh()\nnext\nreturn nil \n\n*------------------------------------------------------------------*\nFunction SendMail( oDlg, cHost, cSender, cTo, cCC, cSubject, cMsg, lReceipt, aAttach, lMsgInfo )\nLocal oMail, oInit\nDefault aAttach := {}, lReceipt := .F., lMsgInfo := .T.\n// initialize sockets (or nothing will happen) - it\'s a quick in GetHostByName(), not TSmtp\noInit := TSmtp():New( cHost )\n// no let\'s go for our socket\noMail := TSmtp():New( cHost )\noMail:nGMT := +7   // Pacific Standard Time (GMT -08:00) - Adjust this to your own Time Zone!\n\n// uncomment next line if you experience problems while sending email / descomentar sig. l&#3585;nea en caso de experimentar problemas al enviar correo\noMail:nDelay := 1\n\n//oMail:lTxtAsAttach := .F.                     // uncomment to force txt, log and htm files as inline as opposed to attachement\noMail:oSocket:lDebug := .T.                     // uncomment to create log file\noMail:oSocket:cLogFile := \"smtp.log\"\n\noMail:bConnecting := {|| oDlg:SetMsg( \"Connecting to \" + cHost + \" (\" + oMail:cIPServer + \") and waiting for response...\" ) }\noMail:bConnected  := {|| oDlg:SetMsg( \"Connected and sending mail and attachments...\" ) }\nif lMsgInfo\n   oMail:bDone       := {|| MsgInfo(\'Mail sent complete\') }\nelse\n   oMail:bDone       := {|| nCount++ }\nend\n\noMail:SendMail( ;\n   cSender, ;                                    // from/de\n   { cTo }, ;  // to/para (arreglo) - I use cSender here also because it\'s an \"autotest\". Actually you would type a different address here\n   cMsg,;        // \"Hi guys:\" + CRLF + \"I\'ve sent this from within FiveWin using TSmtp class\" + CRLF + \"This is just my first attempt to see if it works.\",;  // Body/Mensaje\n   cSubject,;     // Subject/Asunto\n   aAttach ;  //  Array of filenames to attach/Arreglo de nombres de archivos a agregar\n    )         // msg in HTML format/mensaje en HTML\n\noInit:end()\nReturn .T.','',0,'','2ride938',1,0,'',47,0,0),(15929,3614,3,308,0,'84.148.14.40',1153293254,1,0,1,1,1,0,'','Re: Font in a RADIO Controll ?','[quote=&quot;EnricoMaria&quot;:1fpit7dm]Here it is:\n\n[code:1fpit7dm]#include &quot;Fivewin&#46;ch&quot;\n\n\nfunction Main&#40;&#41; \n\n   local oWnd\n\n   local nValue &#58;= 3, oRad \n\n   local oFnt\n\n   SET _3DLOOK ON \n   SET HELPFILE TO &quot;Test&#46;hlp&quot; \n\n   DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -8\n\n   DEFINE WINDOW oWnd ; \n      TITLE &quot;Testing a Radio Buttons Menu&quot; COLOR &quot;N/W&quot; \n\n   @ 1, 1 BUTTON &quot;&amp;Test&quot; SIZE 70, 20 ; \n      ACTION &#40; MsgInfo&#40; nValue &#41;, oRad&#58;aItems&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Changed!&quot; &#41; &#41; \n\n   @ 1, 20 BUTTON &quot;&amp;Change font&quot; SIZE 70, 20 ; \n      ACTION &#40; oRad&#58;aItems&#91; 2 &#93;&#58;SetFont&#40; oFnt &#41;,;\n               INVALIDATERECT&#40; oRad&#58;aItems&#91; 2 &#93;&#58;hWnd &#41; &#41;\n\n   @ 3, 2 RADIO oRad VAR nValue ; \n      ITEMS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot; _3D SIZE 150, 25 ; \n      HELPID 100, 101, 102 ; \n      ON CHANGE MsgBeep&#40;&#41; \n\n   // adding an extra radio item at a different location \n   @ 5, 25 RADIOITEM &quot;Fo&amp;ur&quot; RADIOMENU oRad OF oWnd SIZE 150, 25 \n\n   ACTIVATE WINDOW oWnd \n\n   RELEASE FONT oFnt\n\nreturn nil[/code:1fpit7dm]\n\nEMG[/quote:1fpit7dm]\n\nIt functions, thank you very much at you.\n\nBest regards, Norbert','',0,'gIA=','1fpit7dm',1,0,'',308,0,0),(15930,2609,1,170,0,'213.103.230.113',1153293317,1,0,1,1,1,1,'','','Rene,\n\nWhat you say surprise me : i have found a big bug in Harbour ASC() function last year and, except if you have modified your FWH 2.5,\nthis version is obsolete. \n\nI cannot use this version because link error unresolved external HB_STACK with next Harbour upgrades.\n\nRegards,','',0,'gIA=','1801c1wn',1,0,'',170,0,0),(15931,3620,6,2,0,'87.218.146.244',1153296482,1,0,1,1,1,1,'','','Ricardo,\n\nComo diría mi tan apreciado Jodorowsky, \"el misterio es la puerta a lo divino...\" \n\nQue continúe el misterio! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','3hegwwa6',1,0,'',2,0,0),(15932,3616,3,2,0,'87.218.146.244',1153297084,1,0,1,1,1,1,'','','Maurilio,\n\nThe balloon you mention is automatically shown by the Windows API, we don\'t do anything at all <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nWe may need to google for more info about it','',0,'gIA=','akq25dq6',1,0,'',2,0,0),(15933,3561,20,106,0,'85.34.123.173',1153302873,1,0,1,1,1,1,'','','Hai provato l\'esempio?\n\nNo fa altro che mettere una bitmap nella status bar e quando fai click in questa bitmap chiama la funzione che c\'e scrita nel ACTION.','',0,'gIA=','14roufpz',1,0,'',106,0,0),(15934,3182,3,170,0,'213.103.230.113',1153306153,1,0,1,1,1,1,'','','[quote:2ld9b0x9]I need just to send one ASCII character to LPT1 to activate the desired relay. The problem is that I can not find how to do it: \n\n[/quote:2ld9b0x9]\n\nYou can also try this command DOS :\n\ncopy MyAscCar.tmp lpt1.bmp\n\nRegards,  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2ld9b0x9',1,0,'',170,0,0),(15935,3561,20,49,0,'213.82.134.66',1153307293,1,0,1,1,1,1,'','','quindi tu mi dici di creare la status bar comunque e poi usare msgitm pe rinserire il bitmap...come fosse una msgbar ...ho capito bene ?\n\nsilvio','',0,'gA==','lgazyy5i',1,0,'',49,0,0),(15936,3616,3,217,0,'200.159.120.34',1153309400,1,0,1,1,1,0,'','','Thanks, Antonio!\n\nI\'ll search for any about in MSDN  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards\nMaurilio','',0,'gA==','7hzekjoy',1,0,'',217,0,0),(15937,3622,3,435,0,'200.155.194.2',1153311861,1,0,1,1,1,0,'','ESC na TxBrowse','estou usando o oBrw:bkeyDown na TxBrowse e não tá pegando a Tecla ESC\n\nAri','',0,'gA==','3e9tbixi',1,0,'',435,0,0),(15938,3611,3,148,0,'196.205.179.34',1153313234,1,0,1,1,1,0,'','','still same error . I can send sample of program to your private mail to be tested.\n\nApplication\n===========\n   Path and name: E:\\programs\\clipper\\FWH\\sitex\\sitex.exe (32 bits)\n   Size: 1,464,320 bytes\n   Time from start: 0 hours 0 mins 21 secs \n   Error occurred at: 19/07/2006, 15:44:53\n   Error description: Error BASE/1002  Alias does not exist\n\nStack Calls\n===========\n   Called from:  =&gt; (b)SETFILTER(0)\n   Called from:  =&gt; TWBROWSE:DISPLAY(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: sitex.prg =&gt; LISTCUST(310)\n   Called from: sitex.prg =&gt; (b)BUILDMENU(147)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: sitex.prg =&gt; MAIN(133)','',0,'gA==','31uwshv5',1,0,'',148,0,0),(15939,3623,6,104,0,'201.58.28.89',1153317444,1,0,1,1,1,0,'','Novos recursos para tooltip','Olá a Todos,\n\nDeixo aqui mais uma contribuição  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[img:22co3gwg]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/tooltip&#46;PNG[/img:22co3gwg]\n\n\nEste exemplo foi modificado no fonte \\fwh\\samples\\tooltip.prg\n\n[code:22co3gwg]\n// This sample shows how to easily implement \'tool-tips\' in FiveWin!\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oBar, oBtn\n\n   DEFINE WINDOW oWnd TITLE &quot;ToolTips in FiveWin!&quot;\n\n   DEFINE BUTTONBAR oBar 3D SIZE 33, 33 OF oWnd\n\n   DEFINE BUTTON OF oBar ACTION MsgInfo&#40; &quot;One&quot; &#41;   TOOLTIP &quot;This is a long tooltip&quot; + CRLF + &quot;standard&quot;\n   DEFINE BUTTON OF oBar ACTION MsgInfo&#40; &quot;Two&quot; &#41;   TOOLTIP &quot;Two&quot; + CRLF + &quot;standard&quot;\n   DEFINE BUTTON OF oBar ACTION MsgInfo&#40; &quot;Three&quot; &#41; TOOLTIP &quot;Three&quot; + CRLF + &quot;standard&quot;\n   DEFINE BUTTON OF oBar ACTION MsgInfo&#40; &quot;Four&quot; &#41;  TOOLTIP &quot;Four&quot; + CRLF + &quot;standard&quot;\n\n   @ 10, 8 BUTTON oBtn PROMPT &quot;Where is my tooltip?&quot; SIZE 180, 28 OF oWnd ;\n      ACTION MsgInfo&#40; &quot;Oh! Thanks!&quot; &#41;\n\n   // Manipulate directly the cToolTip DATA of other controls than ButtonBitmaps\n   oBtn&#58;cToolTip         &#58;= &quot;Tooltip with class !&quot; + CRLF + &quot;Ballon&quot; + CRLF + &quot;Resize&quot; + CRLF + &quot;Colors&quot; + CRLF + &quot;Icon&quot; + CRLF + &quot;Title&quot;\n   oBtn&#58;lToolTipBallon   &#58;= &#46;t&#46;\n   oBtn&#58;nTooltipWidth    &#58;= 100\n   oBtn&#58;nTooltipTexColor &#58;= rgb&#40;255,255,255&#41;\n   oBtn&#58;nTooltipBKColor  &#58;= rgb&#40;58,116,241&#41;\n   oBtn&#58;cTooltipTitle    &#58;= &quot;Título&quot;\n   oBtn&#58;nTooltipIcon     &#58;= 1  &amp;&amp; 0=NONE / 1=TTI_INFO / 2=TTI_WARNING / 3=TTI_ERROR  \n\n   SET MESSAGE OF oWnd ;\n    TO &quot;FiveWin&#58; CA-Clipper, xBase &amp;&amp; OOPS development power&quot; CENTER\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:22co3gwg]\n\nPara que isto funcione é preciso fazer algumas mudanças em \\FWH\\SOURCE\\CLASSES\\WINDOW.PRG\n\n[code:22co3gwg]\n   DATA   ltooltipBallon, nTooltipWidth, nTooltipTexColor, nTooltipBKColor, ; &amp;&amp; By Rossine\n          cTooltipTitle, nToolTipIcon                                         &amp;&amp; By Rossine\n[/code:22co3gwg]\n\n[code:22co3gwg]\n//----------------------------------------------------------------------------//\n\n#define TTM_SETMAXTIPWIDTH      &#40;WM_USER + 24&#41; &amp;&amp; By Rossine\n#define TTM_SETTIPTEXTCOLOR     &#40;WM_USER + 20&#41; &amp;&amp; By Rossine\n#define TTM_SETTIPBKCOLOR       &#40;WM_USER + 19&#41; &amp;&amp; By Rossine\n#define TTM_SETTITLE            &#40;WM_USER + 32&#41; &amp;&amp; By Rossine\n#define TTI_NONE                0              &amp;&amp; By Rossine\n#define TTI_INFO                1              &amp;&amp; By Rossine\n#define TTI_WARNING             2              &amp;&amp; By Rossine\n#define TTI_ERROR               3              &amp;&amp; By Rossine\n\nMETHOD ShowToolTip&#40; nRow, nCol, cToolTip &#41; CLASS TWindow\n\n&#46;&#46;&#46;\n\n      #ifndef __CLIPPER__\n         if &#58;&#58;lToolTipBallon == NIL    &amp;&amp; By Rossine\n            &#58;&#58;lToolTipBallon &#58;= &#46;f&#46;    &amp;&amp; By Rossine\n         endif\n\n         DestroyWindow&#40; oToolTip&#58;hWnd &#41;\n         hWnd = CreateToolTip&#40; Self&#58;hWnd, cToolTip, iif&#40; &#58;&#58;ltooltipBallon, &#46;t&#46;, &#46;f&#46; &#41; &#41; &amp;&amp; for ballon tooltips !\n         oToolTip = oTemp\n         oToolTip&#58;hWnd = hWnd\n\n         if &#58;&#58;cTooltipTitle != NIL                                      &amp;&amp; By Rossine\n            SendMessage&#40;hwnd, TTM_SETTITLE, iif&#40; &#58;&#58;nToolTipIcon = NIL, TTI_NONE, &#58;&#58;nToolTipIcon &#41;, &#58;&#58;cTooltipTitle &#41; &amp;&amp; By Rossine\n         endif\n         if &#58;&#58;nTooltipWidth != NIL                                      &amp;&amp; By Rossine\n            SendMessage&#40;hwnd, TTM_SETMAXTIPWIDTH, 0, &#58;&#58;nTooltipWidth &#41;  &amp;&amp; By Rossine\n         endif\n         if &#58;&#58;nTooltipTexColor != NIL                                     &amp;&amp; By Rossine\n            SendMessage&#40;hwnd, TTM_SETTIPTEXTCOLOR, &#58;&#58;nTooltipTexColor, 0&#41; &amp;&amp; By Rossine\n         endif\n         if &#58;&#58;nTooltipBKColor != NIL                                    &amp;&amp; By Rossine\n            SendMessage&#40;hwnd, TTM_SETTIPBKCOLOR, &#58;&#58;nTooltipBKColor, 0&#41;  &amp;&amp; By Rossine\n         endif\n\n\n&#46;&#46;&#46;\n[/code:22co3gwg]\n\nAntonio, seria possível incluir esta modificações em FWH ?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAbraços a todos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRossine.','',0,'CIA=','22co3gwg',1,0,'',104,0,0),(15940,3611,3,303,0,'72.199.41.171',1153318263,1,0,1,1,1,0,'','','Ehab,\n\nIt looks like you are closing and then reopening the cust file while oLbx is still running. This will cause the type of error you are getting.\n\nYou really should read my articles on using database classes. You could could cut your code at least in half. With a database class you don\'t need to create all the local vars, then reassign them back to the database. This all happens automatically with the built-in buffer.\n\n   oCust:name:=\"whatever\"\n   oCust:save()\n\nThat\'s all you need. Also, with a database subclass you can add your own Add and Edit methods and you don\'t need to keep opening and closing the database.\n\nSee the articles at my website (button below).\n\nJames','',0,'CIA=','2p3ajd69',1,0,'',303,0,0),(15941,3616,3,303,0,'72.199.41.171',1153319368,1,0,1,1,1,0,'','','Maurilio,\n\n&gt;I\'m trying to cut out all message boxes with errors and validation messages. I think that balloon is professional and not irratating like message boxes. \n\nThis is a good start! However, I suggest first trying to eliminate \"error messages\" altogether. One of the best ways to do this is by using bounded controls, like comboboxes, radios, and checkboxes. With these types of controls the user cannot make an invalid entry.\n\nAlso consider this. If you require data in a field before the dialog can be closed, then you are forcing the user to enter anything just to complete their task. This means that you get meaningless data, just to satisfy the program. Or, they have to just abandon all the data they just entered until they can get the required data later (and how are they going to remember). Either situation is not good.\n\nI suggest just coloring the background of required fields in different color, like pink. When they are filled in and, valid turn it white. If they are filled in and invalid color it yellow. You can also popup a tooltip when the data is invalid or questionable. This way the user doesn\'t have to click on anything since it goes away on its own.\n\nThen I flag records with either missing or invalid data with a flag icon in the browse so they can easily be found later, and corrections made.\n\nHelp stamp out error messages. Just like \"the customer is always right,\" \"users don\'t make errors,\" programs just do not know how to deal with the problems.\n\nJames','',0,'CIA=','1mpj1eaf',1,0,'',303,0,0),(15942,2609,1,303,0,'72.199.41.171',1153319951,1,0,1,1,1,0,'','','Badara,\n\nI reported the ASC() bug a long time ago, and it was fixed. If you don\'t want to upgrade, you can always write your own ASC() function to replace Harbour\'s.\n\nI highly recommend upgrading though. Lots of other bugs have been fixed and new features added.\n\nJames','',0,'CIA=','17xk0uh6',1,0,'',303,0,0),(15943,2609,1,343,0,'204.57.111.194',1153321379,1,0,1,1,1,0,'','','Rene,\n\nUDF\'s are not supported so you have to change the source code and the structure of the dbf so that you can work around it.\n\nI was just mentioning that some things may need tweeking because of incompatabilities. There are not many and I highly recommend Advantage Server.','',0,'CIA=','17d7cmuv',1,0,'',343,0,0),(15944,3582,1,343,0,'204.57.111.194',1153321593,1,0,1,1,1,0,'','','We are using authentication and I cannot get tsmtp() modified by Luis Krause Mantilla to work. It just stops after it sends the user name to server.\n\nI did not have the time to troubleshoot it, so I just returned to blat for smtp email.','',0,'CIA=','2m8emzg6',1,0,'',343,0,0),(15945,3616,3,217,0,'200.159.120.34',1153325228,1,0,1,1,1,0,'','','James, thanks for your words. Now I\'m reading a book named About Face. This book says about user interface, avoid error messages, best practices of design etc. \nAnd I\'m trying to get it from book\'s page and apply in \"real life\".\n\nBest regards\nMaurilio','',0,'CIA=','ts0gh0v0',1,0,'',217,0,0),(15946,3582,1,138,0,'201.128.111.188',1153325670,1,0,1,1,1,1,'','','Use funcky SMTP component it supports authentication','',0,'CIA=','12vl3l2e',1,0,'',138,0,0),(15947,3619,7,661,0,'201.123.184.199',1153325924,1,0,1,1,1,0,'','','de hecho pense en implementar lo que me enseñaste de la programacion web pero me surgio el problema para encender el lector de codigos de barras que ya puede hacer desde la aplicacion con FWPPC, es decir, si mi aplicacion se ejecuta en el servidor como voy a encender el lector de la PPC, iluminame porfas\n <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->','',0,'CIA=','1g5jec5k',1,0,'',661,0,0),(15948,3622,3,217,0,'200.159.120.34',1153326014,1,0,1,1,1,0,'','Re: ESC na TxBrowse','Ari, como é seu código pra testar isso?\n\nMaurilio','',0,'CIA=','2pi8njly',1,0,'',217,0,0),(15949,3622,3,435,0,'200.155.194.2',1153326609,1,0,1,1,1,0,'','','::oBrw:bKeyDown := {| nKey | ::Key( nKey ) }\n\n\nmethod key( nKey ) CLASS myCLASS\n\n if nKey == 27\n     ... aqui nao passa\n Elseif nKey == 32\n      ... aqui ok\n Elseif nKey == 12\n      ... aqui ok\n Endif\n\nreturn nil','',0,'CIA=','iva3vdzf',1,0,'',435,0,0),(15950,3624,3,190,0,'202.65.134.43',1153327332,1,0,1,1,1,0,'','Difference between FWH TFolder and Windows Standard Tabpages','Hi Antonio\n\nWhen I tested TestFold.prg from samples, I have noticed that the program\nis not functioning as per standard windows Tabpages. The navigation key to go to nex tab page is Ctrl + Tab in windows. But in FWH, if we use the same Ctrl + Tab key, the Ctrl key is not working and only the Tab key is working and  the control is moved to next item in the form.  To move between tab pages we have to use either the shortcut key or the mouse.  Can we adopt the orginal windows behaviour to TFolder ?\n\nRegards \n\nRamesh Babu P','',0,'CIA=','2casy3qt',1,0,'',190,0,0),(15951,3616,3,303,0,'72.199.41.171',1153327347,1,0,1,1,1,0,'','','Maurilio,\n\n&gt; Now I\'m reading a book named About Face. This book says about user interface, avoid error messages, best practices of design etc. \n\nWell, I\'m really glad to hear that. About Face is my most valued programming book. I have applied a lot of his ideas to my work.\n\nIt\'s good that you bring this up, because a lot of the others may be interested also.\n\nJames','',0,'CIA=','128qd3jo',1,0,'',303,0,0),(15952,3625,6,102,0,'83.46.99.59',1153327477,1,0,1,1,1,1,'','Convertir una cadena en Array','Hola chicos,\ntengo una cadena con bastantes palabras y con delimitadores (\",.<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nhay alguna funcion que me lo convierta en un array con las palabras.\nCreo recordar que en Catools si que habia pero no vale esta libreria para Fw26h.\n\nSaludos','',0,'CIA=','320mnkv7',1,0,'',102,0,0),(15953,3624,3,2,0,'87.218.146.86',1153327996,1,0,1,1,1,1,'','','Ramesh,\n\nA FWH TFolder manages several non modal dialogs. Those dialogs also process keystrokes and messages, thats probably why Ctrl+Tab is not being managed.\n\nWe are going to review it, thanks.','',0,'CIA=','1dwj8a59',1,0,'',2,0,0),(15954,3526,3,2,0,'87.218.146.86',1153328165,1,0,1,1,1,1,'','','Ramesh,\n\nPlease try this code:\n[code:22n82j7d]\nCLIPPER PRNSTATUS&#40; PARAMS &#41; // cPrinter or cPrinterServer --&gt; nStatus\n&#123;\n	 HANDLE hPrinter = NULL;\n	 DWORD cBytesNeeded = 0, cBytesUsed = 0, status = 0;\n   PRINTER_INFO_2 * pPrinterInfo = NULL;   	\n   \n   if&#40; OpenPrinter&#40; _parc&#40; 1 &#41;, &amp;hPrinter, NULL &#41; &#41;\n   &#123;\n      GetPrinter&#40; hPrinter, 2, NULL, 0, &amp;cBytesNeeded &#41;;\n      pPrinterInfo = &#40; PRINTER_INFO_2 * &#41; _xgrab&#40; cBytesNeeded &#41;;   		\n   	  GetPrinter&#40; hPrinter, 2, &#40; unsigned char * &#41; pPrinterInfo, cBytesNeeded, &amp;cBytesUsed &#41;;\n   	  _retnl&#40; pPrinterInfo-&gt;Status &#41;;\n   	  _xfree&#40; pPrinterInfo &#41;;\n      ClosePrinter&#40; hPrinter &#41;;\n   &#125;\n   else\n      _retnl&#40; PRINTER_STATUS_NOT_AVAILABLE &#41;;\n&#125;      		  \n[/code:22n82j7d]\nEste es un ejemplo de uso:\n[code:22n82j7d]\n#define PRINTER_STATUS_OK                       0\n#define PRINTER_STATUS_PAUSED                   1\n#define PRINTER_STATUS_ERROR                    2\n#define PRINTER_STATUS_PENDING_DELETION         4\n#define PRINTER_STATUS_PAPER_JAM                8\n#define PRINTER_STATUS_PAPER_OUT               16\n#define PRINTER_STATUS_MANUAL_FEED             32\n#define PRINTER_STATUS_PAPER_PROBLEM           64\n#define PRINTER_STATUS_OFFLINE                128\n#define PRINTER_STATUS_IO_ACTIVE              256\n#define PRINTER_STATUS_BUSY                   512\n#define PRINTER_STATUS_PRINTING              1024\n#define PRINTER_STATUS_OUTPUT_BIN_FULL       2048\n#define PRINTER_STATUS_NOT_AVAILABLE         4096\n#define PRINTER_STATUS_WAITING               8192\n#define PRINTER_STATUS_PROCESSING           16384\n#define PRINTER_STATUS_INITIALIZING         32768\n#define PRINTER_STATUS_WARMING_UP           65536\n#define PRINTER_STATUS_TONER_LOW           131072\n#define PRINTER_STATUS_NO_TONER            262144\n#define PRINTER_STATUS_PAGE_PUNT           524288\n#define PRINTER_STATUS_USER_INTERVENTION  1048576\n#define PRINTER_STATUS_OUT_OF_MEMORY      2097152\n#define PRINTER_STATUS_DOOR_OPEN          4194304\n#define PRINTER_STATUS_SERVER_UNKNOWN     8388608\n#define PRINTER_STATUS_POWER_SAVE        16777216\n\nfunction Main&#40;&#41;\n\n   local nStatus &#58;= PrnStatus&#40; &quot;LPT1&#58;&quot; &#41;\n\n   MsgInfo&#40; nStatus &#41;\n\nreturn nil\n[/code:22n82j7d]\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01b93ba312/PRINTDC.obj.html\">http://hyperupload.com/download/01b93ba ... C.obj.html</a><!-- m -->','',0,'AIA=','22n82j7d',1,0,'',2,0,0),(15955,3623,6,2,0,'87.218.146.86',1153328322,1,0,1,1,1,1,'','','Rossine,\n\nThanks for your contribution. We are going to review it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3fm7y8to',1,0,'',2,0,0),(15956,3625,6,2,0,'87.218.146.86',1153328411,1,0,1,1,1,1,'','','José Martin,\n\nPuedes usar StrToken() de FWH para extraer las distintas palabras, usando el delimitador que le indiques. Revisa la documentación de StrToken().','',0,'AIA=','38kz0xav',1,0,'',2,0,0),(15957,3623,6,104,0,'201.58.28.89',1153328626,1,0,1,1,1,0,'','','OK Gracias Maestro  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRossine.','',0,'AIA=','15g4u7su',1,0,'',104,0,0),(15958,3626,20,49,0,'62.13.172.78',1153329180,1,0,1,1,1,1,'','Errore in array...forse...!!!','in una finestra ho creato una serie di bottoni  creando prima un array\n[code:cwfiproy]\nLOCAL OmbrxFila &#58;=20\nLOCAL FileOmbr &#58;= 6\n\n totarray &#58;=  OmbrxFila*FileOmbr\n   aBtn &#58;= Array&#40;totarray&#41;\n[/code:cwfiproy]\n\nHo fatto creare i bottoni con un ciclo for next\n[code:cwfiproy]\nFOR k &#58;= 1 TO OmbrxFila[/code:cwfiproy]\n\n\n\nper ogni bottone ho associato un\'azione diretta ad una funzione \n\n[code:cwfiproy]  cAction &#58;= &quot;miazione&#40;&quot;+Str&#40;n&#41;+&quot;&#41;&quot;\n               bAction &#58;= &#123;|| &amp;cAction &#125;[/code:cwfiproy]\n\n\n\n\nquesto è il bottone creato ( ho usato tsbutton ma ho provato anche con il semplice button) \n\n[code:cwfiproy]\n\n  @ Fila,&#40;Col+nPassLarg&#41; SBUTTON  aBtn&#91;n&#93; RESOURCE cbitmap  PIXEL;\n               OF oSpiaggia  ;\n               FONT oFont2 ;\n               CAPTION  cam ;\n               COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41;  ;\n               TEXT ON_CENTER ;\n               NOBOX       ;\n               TOOLTIP oemtoansi&#40;cCaption&#41; ;\n               ACTION Eval&#40; bAction,cam &#41;[/code:cwfiproy]\n\n\n\nLa procedura mi visualizza tutti bottoni sui quali è stampato il numero\n\nSe clicco su ogni bottone mi crea questo errore \n[code:cwfiproy]\nApplication\n===========\n   Path and name&#58; C&#58;\\work\\PRG\\WINBEACH\\PRENOTA&#46;Exe &#40;32 bits&#41;\n   Size&#58;   733,696 bytes\n   Time from start&#58; 0 hours 0 mins 3 secs \n   Error occurred at&#58; 19/07/2006, 18&#58;31&#58;03\n   Error description&#58; Error BASE/1003  Variable does not exist&#58; N\n\nStack Calls\n===========\n   Called from&#58; Spiaggia&#46;prg =&gt; MIAZIONE&#40;269&#41;\n   Called from&#58;  =&gt; &#40;b&#41;BEA210&#40;106&#41;\n   Called from&#58; Spiaggia&#46;prg =&gt; &#40;b&#41;BEA210&#40;160&#41;\n   Called from&#58; TSBUTTON&#46;PRG =&gt; TSBUTTON&#58;CLICK&#40;804&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; TSBUTTON&#46;PRG =&gt; TSBUTTON&#58;HANDLEEVENT&#40;1308&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; main&#46;prg =&gt; MAIN&#40;200&#41;\n[/code:cwfiproy]\n\n\n\nnella funzione MIAZIONE ()\nvolevo sapere se cliccando sun un bottone mi deve restituire il numero del bottone \n\nquindi \n\n ?aBtn[n]:ccaption\n\ncCaption è il testo cioè la variabile cam ( che poi è il numero del bottone)\naltrimenti  come devo fare per restituirmi il numero del bottone ?\n\n\nGrazie in anticipo','',0,'AIA=','cwfiproy',1,0,'',49,0,0),(15959,3557,6,40,0,'200.77.120.153',1153329432,1,0,1,1,1,0,'','','Carlos estupendo trabajo, lo estou probando pero no tengo el archivo\ngui32.h que llamas desde la texcel, me lo padad por fa\n\nSaludos y gracias\nJoel Andujo','',0,'AIA=','3rel19gr',1,0,'',40,0,0),(15960,3627,3,435,0,'200.155.194.2',1153329650,1,0,1,1,1,0,'','TXBrowse from resources','[ testxbrw.prg ]\n\nSTATIC FUNCTION NewDialog( oWnd )\n   local oDlg, oBrw\n\n   DEFINE DIALOG oDlg RESOURCE \"TEST\" OF oWnd\n\n   oBrw := TXBrowse():New( oWnd )   // &lt;&lt;---- porque oWnd ?\n                                                       // o certo deveria ser oDlg ?\n   oBrw:CreateFromResource( 101 )\n\n   ACTIVATE DIALOG oDlg\n\nRETURN NIL','',0,'','xt7pzfpn',1,0,'',435,0,0),(15961,3628,1,684,0,'69.159.107.129',1153329714,1,0,1,1,1,0,'','Fivewin or Clip4win.','Bonjour,\nSVP, je voudrais savoir quelle est la meilleure librairie entre Fivewin et Clip4win ?.\nEn outre, je voudrais le lien pour télécharger une version d\'evaluation de Fivewin 2.7 (derniere version).\n\nJe suis un utilisateur de Clipper depuis la version summer 87.\nMerci.','',0,'','2ll9tlr7',1,0,'',684,0,0),(15962,3623,6,217,0,'200.159.120.34',1153330031,1,0,1,1,1,0,'','','PORTUGUESE:\nMaravilhoso, Rossine\nEu estava procurando por algo parecido, até postei no forum em inglês um tópico sobre mensagens em balões estilo tooltip.\nFicou muito bom, mas que gosto ruim pra escolher cores, hehehe  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n-----------\nENGLISH:\nThats marvelous, Rossine.\nI was searching for any like this. I posted a topic in English forum asking for messages style tooltip balloons.\nYour work is very good but... you have a bad sense for choose colors <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nAbraços &amp; Regards\nMaurilio\n\nPS: Antonio, I\'ll try adapt it to do my \"personalized messages in balloons\" like I asked you.','',0,'','cs5denkv',1,0,'',217,0,0),(15963,3629,1,684,0,'69.159.107.129',1153330263,1,0,1,1,1,0,'','Pour Mr Badara.','Bonjour Monsieur Badara,\nTout d\'abord, je tiens a vous remercier pour la réponse de mon message privé de mon compte yahoo.\nApres une recherche sur le web, j\'ai trouvé le forum de fivewin et je remercie Mr Antonio d\'avoir me donner l\'autorisation pour l\'acces au forum.\n\nJ\'espere que je trouverais des réponses a toutes mes questions. Depuis 1998 que je n\'ai pas utilisé Clipper et je veux reprendre mes développements avec ce langage ainsi que les librairies, en attendant de passer a l\'interface de visual basic ou Delphi.\nMerci.','',0,'','2aebgv1e',1,0,'',684,0,0),(15964,3593,3,435,0,'200.155.194.2',1153330338,1,0,1,1,1,0,'','','tentei rodar o webbrow deu este erro\n\nApplication\n===========\n   Path and name: C:\\fwh27\\SAMPLES\\webbrow.exe (32 bits)\n   Size: 1,061,376 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 07/19/06, 14:30:06\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = C   Server or User attempted to navigate to \n\n     [   2] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TWEBBROWSER:ONBEFORENAVIGATE(135)\n   Called from:  =&gt; TWEBBROWSER:ONEVENT(102)\n   Called from:  =&gt; ACTXINVOKE(0)\n   Called from:  =&gt; TACTIVEX&#058;DO(0)\n   Called from: webbrow.prg =&gt; __EVAL(0)\n   Called from:  =&gt; TWEBBROWSER:NAVIGATE(0)\n   Called from: webbrow.prg =&gt; MAIN(21)\n\nSystem\n======\n   CPU type: AMD Sempron(tm) 2400+ 1666 Mhz\n   Hardware memory: 96 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 46.2 Intl. (Flex)\n   Windows version: 5.1, Build 2600 \n\n   Windows total applications running: 25\n      1 TF_FloatingLangBar_WndTitle\n      2 CiceroUIWndFrame\n      3 SysFader\n      4 Menu Iniciar\n      5 NetDDE Agent\n      6 FiveWin Web Browser Support\n      7 Prompt de comando (2)\n      8 <!-- w --><a class=\"postlink\" href=\"http://www.FiveTechSoft.com\">www.FiveTechSoft.com</a><!-- w --> :: View topic - WebBrowser ActiveX control - Microsoft Internet Explorer\n      9 Programmer\'s File Editor - [C:\\fwh27\\SAMPLES\\webbrow.prg]\n     10 SAMPLES\n     11 Timer\n     12 Acrobat IEHelper\n     13 MCI command handling window\n     14 DDE Server Window\n     15 WOWExec\n     16 HiddenFaxWindow\n     17 Connections Tray\n     18 Medidor de energia\n     19 WinMySQLadmin 1.1\n     20 Interval Query Setup\n     21 Adding Database\n     22 WinMySQLadmin Quick Setup\n     23 WinMySQLadmin 1.0\n     24 MS_WebcheckMonitor\n     25 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TWEBBROWSER:ONBEFORENAVIGATE\n     Param   1:    A    Len:   14\n     Param   2:    U    \n     Local   1:    O    Class: TWEBBROWSER\n     Local   2:    L    .F.\n     Local   3:    S    \n     Local   4:    U    \n     Local   5:    C    \"Server or User attempted to navigate to \n\"\n     Local   6:    U    \n     Local   7:    S    \n     Local   8:    N    0\n   TWEBBROWSER:ONEVENT\n     Param   1:    N    250\n     Param   2:    A    Len:   14\n     Local   1:    U    \n     Local   2:    O    Class: TWEBBROWSER\n     Local   3:    N    8\n     Local   4:    C    \"BeforeNavigate2\"\n     Local   5:    L    .F.\n   ACTXINVOKE\n     Param   1:    N    1374376\n     Param   2:    C    \"Navigate\"\n     Param   3:    C    \"http://www.sisrev.com.br\"\n   TACTIVEX&#058;DO\n     Param   1:    C    \"Navigate\"\n     Param   2:    C    \"http://www.sisrev.com.br\"\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    O    Class: TWEBBROWSER\n     Local   5:    U    \n   __EVAL\n     Param   1:    O    Class: TWEBBROWSER\n     Param   2:    C    \"http://www.sisrev.com.br\"\n   TWEBBROWSER:NAVIGATE\n     Param   1:    C    \"http://www.sisrev.com.br\"\n   MAIN\n     Local   1:    O    Class: TWINDOW\n     Local   2:    O    Class: TWEBBROWSER\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TBRUSH\n     5 TFONT\n     6 TCONTROL\n     7 TACTIVEX\n     8 TWEBBROWSER\n     9 TREG32\n    10 ERROR\n\nMemory Analysis\n===============\n      104 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','z52hx7a5',1,0,'',435,0,0),(15965,3620,6,217,0,'200.159.120.34',1153330637,1,0,1,1,1,0,'','','My time to ask... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\nAntonio, please kill my curiosity:\nWhat\'s the origin of Fivewin\'s name?\nCan you share with us the history of your company and Fivewin?\n(You can write in Spanish that I\'ll understand)\n\nRegards\nMaurilio','',0,'','2gtwq6vo',1,0,'',217,0,0),(15966,3622,3,217,0,'200.159.120.34',1153330888,1,0,1,1,1,0,'','','Deveria funcionar, troque o 27 por VK_ESC (ou VK_ESCAPE, não me recordo direito...)\n\nOu inclua uma msgalert para mostrar qual tecla ele esta pegando quando vc tecla ESC:\n\nmethod key( nKey ) CLASS myCLASS\n msgalert( nKey )    &lt;======\n if nKey == 27\n...\n\n[ ]\'s\nMaurilio','',0,'','c2sbb3bs',1,0,'',217,0,0),(15967,3593,3,144,0,'72.192.177.190',1153331145,1,0,1,1,1,1,'','','Ari:\n\nI\'m sorry, I just realized Antonio had sent me patched libs to finish testing this, and until those low level changes are available for everybody it won\'t work.  \nTo be sure that\'s the problem, could you please trace the definition of CRLF and the array offsets that are concatenated and see which value is nil?','',0,'','19ehe2de',1,0,'',144,0,0),(15968,3620,6,138,0,'201.128.111.188',1153331722,1,0,1,1,1,1,'','','I know the origin of the name.\n\nAs you may know there was another Windows GUI for Clipper called Clip-4-Win, well FIVE Win is named so, because 5 follows 4, meaning that Antonio\'s product was a step forward the other product.\n\nSomething similar made Borland a long time ago, there use to be a spreadsheet called Lotus 123, so borland named its spreadsheet QUATTRO, you know why.','',0,'','3r0sybiw',1,0,'',138,0,0),(15969,3630,3,435,0,'200.155.194.2',1153333747,1,0,1,1,1,0,'','TCBrowse --&gt; TXBrowse','Antonio o ideal seria compatibilizar o xcomand da TCbrowse para o TXBrowse:\n\neu usei muito o ADD TO \n\ntc.browse.ch\n\nADD TO ::oBrw DATA arq_prof():codigo_pro HEADER \"Produto\" SIZE 100 LEFT\n\ne tem varias telas que vou trocar pelo TXBrowse.\n\nagora tem que usar o xbrowse.ch mas nao tem xcomand ?\n\nAri','',0,'','zr64kxgf',1,0,'',435,0,0),(15970,3631,2,304,0,'201.155.7.216',1153333903,1,0,1,1,1,0,'','Metodo de Respaldo','Hola:\nALGUIEN TENDRA ALGUN EJEMPLO DE COMO RESPALDAR Y RESTAURAR DATOS ??? DONDE EL USUARIO PUEDA SELECCIONAR LA UNIDAD.\nACTUALMENTE LO HAGO CON \"ZIPFILE\"\n\nGRACIAS POR SU ATENCION\nSALUDOS\nVERACRUZ, VER. MEXICO','',0,'','29itbr5t',1,0,'',304,0,0),(15971,3615,3,435,0,'200.155.194.2',1153333959,1,0,1,1,1,0,'','','Este é o erro:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.sisrev.com.br/imagens/gpf.gif\">http://www.sisrev.com.br/imagens/gpf.gif</a><!-- m -->','',0,'','z9p6e9i5',1,0,'',435,0,0),(15972,3623,6,104,0,'201.58.28.89',1153334731,1,0,1,1,1,0,'','','OLá Maurilio,\n\n[quote:8zgxklzu]Ficou muito bom, mas que gosto ruim pra escolher cores...[/quote:8zgxklzu]\n\n... é que eu sou cruzeirense hehehe  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nAbraços,\n\nRossine.','',0,'gA==','8zgxklzu',1,0,'',104,0,0),(15973,3632,7,490,0,'88.11.35.53',1153335094,1,0,1,1,1,0,'','Nº de Serie de una Storage Card','Antonio,\n\n¿ Existe alguna manera de saber el numero interno de serie que el fabricante de una tarjeta de memoria SD, CF, etc. Le ha puesto al fabricarla?\n\nSuelen servir para las garantías, por lo que son únicos (en teoría)\n\n\n\nUn Saludo,\nJoaquín','',0,'gA==','ylah3ru3',1,0,'',490,0,0),(15974,3633,3,455,0,'195.97.105.161',1153335325,1,0,1,1,1,0,'','Create an RTF file','Hi all,\n\nAny class available to write text into an .RTF file ?\nI have to convert some memos into .RTF files, so my users can have colors, etc., when reading or editing them.\n\nThanks in advance.\nEvans\n\nps. I have tested TESTRICH.PRG (RTF in a dialog).\nIt seems to be working fine with reading .RTF files.\nI believe I can use this dialog for the kind of work\nthat I need it, with some modifications.','',0,'gA==','1848893k',1,0,'',455,0,0),(15975,3593,3,2,0,'87.218.146.86',1153336048,1,0,1,1,1,1,'','','Brian,\n\nThe enhanced Class TActiveX and related new functions are only available since FWH July 2006 build.','',0,'gA==','1a53p5o4',1,0,'',2,0,0),(15976,3615,3,2,0,'87.218.146.86',1153336140,1,0,1,1,1,1,'','','Ari,\n\nHave you recompiled FiveXLS using Harbour 0.46 ?','',0,'gA==','28r6xcf1',1,0,'',2,0,0),(15977,3254,5,2,0,'87.218.146.86',1153336217,1,0,1,1,1,1,'','','Dan,\n\nVery good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','224s8vwb',1,0,'',2,0,0),(15978,3557,6,328,0,'201.216.134.86',1153336609,1,0,1,1,1,0,'','','Joel,\nsolo renombra el Gui32.h por FiveWin.ch, fue error mío dejar ese nombre en la Texcels, es que estaba haciendo otras pruebas con unos cambios en el header original de FiveWin.\n\nSaludos.\n\nCarlos Sincuir','',0,'gA==','iaiw2cdg',1,0,'',328,0,0),(15979,3620,6,2,0,'87.218.146.86',1153336647,1,0,1,1,1,1,'','','Rene,\n\nSiento contradecirte, pero ese no es el origen <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nYo desarrollé una librería para Clipper antes de que apareciese Class(y). No recuerdo bien el año, pero fué antes de Class(y). Dicha librería la regalé a través de la revista ClipperMania.\n\nNo sabía que nombre ponerle y en aquellos dias estaba de moda la palabra \"Pro\" (FoxPro, Quatro Pro, etc.) por lo que pense en terminarla en \"Pro\", como era para Clipper \"5\", se nos ocurrió usar \"Five\" y ahí nació FivePro que era para MsDos. La librería tuvo bastante éxito.\n\nPara nosotros Clipper 5 supuso un \"estandard\", por eso quisimos usar \"Five\", para relacionar una serie de productos para Clipper 5.\n\nCuando comenzamos el desarrollo de la librería para Windows, no sabíamos que nombre ponerle, pero ya los usuarios conocían \"FivePro\" y queríamos aprovechar ese nombre, asi que se nos ocurrió \"FiveWin\" a partir de \"FivePro\".\n\nComo ves no tuvo nada que ver con otros productos, salvo con los propios nuestros <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','38q9hwfh',1,0,'',2,0,0),(15980,3632,7,2,0,'87.218.146.86',1153336892,1,0,1,1,1,1,'','','Joaquín,\n\nEs la primera noticia que tenemos de que las tarjetas SD tienen número de serie <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nHas probado a buscar en Google ?','',0,'gA==','1d4ori3h',1,0,'',2,0,0),(15981,3620,6,138,0,'201.128.111.188',1153337032,1,0,1,1,1,1,'','','He vivido engañado toda mi vida <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','22vsa0tj',1,0,'',138,0,0),(15982,3633,3,2,0,'87.218.146.86',1153337107,1,0,1,1,1,1,'','','Evans,\n\nFWH provides CLASS TRtfFile (source\\classes\\rtffile.prg). Its not a complex class that may help you.','',0,'gA==','2kibfxoe',1,0,'',2,0,0),(15983,3628,1,2,0,'87.218.146.86',1153337296,1,0,1,1,1,1,'','','Dahmane,\n\nIf you search in Google for Clip4Win, you get 604 references.\nIf you search in Google for FiveWin, you get 70.300 references.\nThat gives you an idea of what product is more widely used <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nYou may download a free FiveWin eval version from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> download section.','',0,'gA==','369kfbrr',1,0,'',2,0,0),(15984,3615,3,435,0,'200.155.194.2',1153337601,1,0,1,1,1,0,'','','não tenho, onde eu encontro os fontes  ?\n\nAri','',0,'gA==','wh7xt220',1,0,'',435,0,0),(15985,3628,1,684,0,'69.159.107.129',1153337899,1,0,1,1,1,0,'','','Thanks,\nFivewin is very best library for CA-Clipper. In website fivetech, this version of fivewin is 1.9.\nIt is possible found norton guide french for fivewin.','',0,'gA==','662f6krx',1,0,'',684,0,0),(15986,3632,7,490,0,'88.11.35.53',1153338106,1,0,1,1,1,0,'','','Antonio,\n\nPuedes probar esto?\n\nh:=Fopen(curdir()+\"\\UnFileCualquieraenLaTarjeta\")\nmsginfo( str(NumserieTarjeta(h)) )\nFclose(h)\n\n\n-------------------------------------\nHB_FUNC( NUMSERIETARJETA )\n{\n  BY_HANDLE_FILE_INFORMATION bHinfo;\n\n  memset( &amp;bHinfo, 0 , sizeof(bHinfo) );\n\n  GetFileInformationByHandle( (HANDLE) hb_parnl(1), &amp;bHinfo );\n  hb_retnl( bHinfo.dwVolumeSerialNumber );\n\n}\n\n\nUn Saludo,\nJoaquín','',0,'gA==','1qhax5tt',1,0,'',490,0,0),(15987,3620,6,2,0,'87.218.146.86',1153338243,1,0,1,1,1,1,'','','Un artículo aparecido en la revista inglesa \"Clipper Concepts\" en Abril de 1992 acerca de FivePro <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[url=http&#58;//imageshack&#46;us:1sxbqjy2][img:1sxbqjy2]http&#58;//img242&#46;imageshack&#46;us/img242/2127/sharewarebk2&#46;jpg[/img:1sxbqjy2][/url:1sxbqjy2]\n[url=http&#58;//imageshack&#46;us:1sxbqjy2][img:1sxbqjy2]http&#58;//img72&#46;imageshack&#46;us/img72/4281/conceptsii2&#46;jpg[/img:1sxbqjy2][/url:1sxbqjy2]','',0,'GA==','1sxbqjy2',1,0,'',2,0,0),(15988,3620,6,2,0,'87.218.146.86',1153338754,1,0,1,1,1,1,'','','Y puestos a recordar... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[img:807h21xf]https&#58;//fivetechsoft&#46;github&#46;io/screenshots/zac1&#46;jpg[/img:807h21xf]\n[img:807h21xf]https&#58;//fivetechsoft&#46;github&#46;io/screenshots/zac2&#46;jpg[/img:807h21xf]','f7c80a4a6e9e5ad583e20464f385f1ed',0,'CA==','807h21xf',1,0,'',2,0,0),(220972,37026,3,1060,0,'94.29.124.107',1555403417,1,0,1,1,1,1,'','Opaque controls','Hi, all !\n\nHow can I make opaque controls on a transparent window ?','99e5a20e03717ad8ca13d3d381a4b518',0,'','7ik36zxy',1,0,'',0,0,0),(15989,3620,6,2,0,'87.218.146.86',1153339265,1,0,1,1,1,1,'','','El sistema de desarrollo multi-plataforma que ofrecíamos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[img:hmfnwf2e]https&#58;//fivetechsoft&#46;github&#46;io/screenshots/fivemulti&#46;jpg[/img:hmfnwf2e]','25e3a01c13a7ec9cb28f25728adc3423',0,'CA==','hmfnwf2e',1,0,'',2,0,0),(15990,3620,6,2,0,'87.218.146.86',1153339534,1,0,1,1,1,1,'','','Y hasta en China <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[url=http&#58;//imageshack&#46;us:1fxues2a][img:1fxues2a]http&#58;//img107&#46;imageshack&#46;us/img107/2230/chinatj8&#46;jpg[/img:1fxues2a][/url:1fxues2a]','',0,'GA==','1fxues2a',1,0,'',2,0,0),(15991,3620,6,2,0,'87.218.146.86',1153339976,1,0,1,1,1,1,'','','Un libro publicado en China de 773 páginas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[url=http&#58;//imageshack&#46;us:37lhobx4][img:37lhobx4]http&#58;//img436&#46;imageshack&#46;us/img436/5430/libro1ap1&#46;jpg[/img:37lhobx4][/url:37lhobx4]\n[url=http&#58;//imageshack&#46;us:37lhobx4][img:37lhobx4]http&#58;//img484&#46;imageshack&#46;us/img484/5554/libro2ev1&#46;jpg[/img:37lhobx4][/url:37lhobx4]','',0,'GA==','37lhobx4',1,0,'',2,0,0),(15992,3628,1,2,0,'87.218.146.86',1153341144,1,0,1,1,1,1,'','','Dahmane,\n\nYes, the demo version is a very old one.\n\nThe documentation is available in English and Spanish only.','',0,'GA==','21xoylll',1,0,'',2,0,0),(15993,3633,3,455,0,'195.97.105.161',1153341146,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3lrrkv4e]Evans,\n\nFWH provides CLASS TRtfFile (source\\classes\\rtffile.prg). Its not a complex class that may help you.[/quote:3lrrkv4e]\n\nAntonio\nMany thanks.\n\nI\'ll have a look at the class file above, however, my aim is to be able\nto write into an .RTF file from my code without showing anything on\nscreen.  Once I prepare an .RTF file, then I can display it, and edit it\nof course. Hopefully, the above class will help me.\n\nThanks again...\nI\'ll see if I can get the results that I need.\n\nKind regards\nEvans','',0,'gA==','3lrrkv4e',1,0,'',455,0,0),(15994,3615,3,2,0,'87.218.146.86',1153341353,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.hyperupload.com/download/0127133784/TFILEXLS.zip.html\">http://www.hyperupload.com/download/012 ... S.zip.html</a><!-- m -->','',0,'gA==','22rbsjjq',1,0,'',2,0,0),(15995,3632,7,2,0,'87.218.146.86',1153341801,1,0,1,1,1,1,'','','Joaquín,\n\nEn la Pocket PC real aparece esto: 1068166675\n\nJoaquín, por favor, acostúmbrate a proporcionar ejemplos completos, con lo que se agiliza mucho el soporte técnico, Gracias. Así:\n[code:gqeg6awk]\nfunction Main&#40;&#41;\n\n   local h&#58;=Fopen&#40;curdir&#40;&#41;+&quot;\\test&#46;txt&quot;&#41; \n   msginfo&#40; str&#40;NumserieTarjeta&#40;h&#41;&#41; &#41; \n   Fclose&#40;h&#41; \n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; NUMSERIETARJETA &#41; \n&#123; \nBY_HANDLE_FILE_INFORMATION bHinfo; \n\nmemset&#40; &amp;bHinfo, 0 , sizeof&#40;bHinfo&#41; &#41;; \n\nGetFileInformationByHandle&#40; &#40;HANDLE&#41; hb_parnl&#40;1&#41;, &amp;bHinfo &#41;; \nhb_retnl&#40; bHinfo&#46;dwVolumeSerialNumber &#41;; \n\n&#125;\n\n#pragma ENDDUMP\n[/code:gqeg6awk]','',0,'AIA=','gqeg6awk',1,0,'',2,0,0),(15996,3627,3,54,0,'201.98.182.43',1153342034,1,0,1,1,1,1,'','Re: TXBrowse from resources','[quote=&quot;Ari&quot;:1fuhrp46][ testxbrw.prg ]\n\nSTATIC FUNCTION NewDialog( oWnd )\n   local oDlg, oBrw\n\n   DEFINE DIALOG oDlg RESOURCE \"TEST\" OF oWnd\n\n   oBrw := TXBrowse():New( oWnd )   // &lt;&lt;---- porque oWnd ?\n                                                       // o certo deveria ser oDlg ?\n   oBrw:CreateFromResource( 101 )\n\n   ACTIVATE DIALOG oDlg\n\nRETURN NIL[/quote:1fuhrp46]\n\n[code:1fuhrp46]STATIC FUNCTION NewDialog&#40; oWnd &#41;\n   local oDlg, oBrw\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TEST&quot; OF oWnd\n\n     oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n     oBrw&#58;CreateFromResource&#40; 101 &#41;\n\n   ACTIVATE DIALOG oDlg\n\nRETURN NIL[/code:1fuhrp46]\nSi pones oWnd, el TXBrowse se cuelga en le objeto Window, y no podria ser desde recursos, por lo tanto debe de ser oDlg, que es el objeto que contiene el dialogo TEST, donde contiene el recurso 101 TXBrowse','',0,'gIA=','1fuhrp46',1,0,'',54,0,0),(15997,3626,20,6,0,'87.18.215.5',1153342935,1,0,1,1,1,1,'','Re: Errore in array...forse...!!!','Impossibile capirne la causa esatta senza vedere un PRG ridotto all\'osso e compilabile. Immagino che dipenda da qualche errore nella creazione dei codeblocks che probabilmente fanno riferimento in runtime ad una variabile che non è visibile nel punto in cui vengono valutati.\n\nEMG','',0,'gIA=','okkod7lz',1,0,'',6,0,0),(15998,3623,6,52,0,'200.127.195.89',1153343319,1,0,1,1,1,1,'','','Gracias,\n\nY mas lo pienso mas quiero, los tooltip son mas faciles de MANTENER que los HELP; total lo que pones en un simple\n// esto graba cliente\nlo podes mandar al mismo tiempo al un tooltip y listo, el cliente, satisfecho \n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','3cokuksr',1,0,'',52,0,0),(15999,3632,7,490,0,'88.11.35.53',1153344525,1,0,1,1,1,0,'','','Antonio,\n\nPerdona por ejemplo incompleto, es que llevo toda la tarde amargado con este tema, intentaré hacerlo bien la próxima vez.\n\nResulta que probando ese mismo ejemplo en el PC el nº debería ser el mismo (introduciendo la tarjeta en un lector de tarjetas para PC) , pero me ocurre lo siguiente.\n\nSi me devuelve un nº positivo, en el pc y en la pocket son el mismo, pero si es una tarjeta con un nº más largo, en el PC sale positivo bien, y en la pocket siempre me devuelve el -63947351. Usando diferentes tarjetas, con lo que deduzco que el valor de la pocket lo da incorrecto porque no quepa el valor en la estructura o algo parecido.\n\n\nSe te ocurre que pude pasar? O como puedo hacer que en el miembro dwVolumeSerialNumber de la estructura quepa un valor mayor ?\n\n\nEl problema es que en pc siempre sale bien y en la pocket a veces devuelve ese nº porque no cabe o hay que convertirlo.\n\nPor favor te pido, si pudieras echarme una mano en este aspecto.\n\nGracias por tu tiempo,\nJoaquín','',0,'gIA=','1xf58gti',1,0,'',490,0,0),(16000,3626,20,49,0,'62.13.172.78',1153348076,1,0,1,1,1,1,'','','appena lo creo lo inserisco.grazie','',0,'gIA=','2wz6pgp2',1,0,'',49,0,0),(16001,3623,6,15,0,'211.74.12.194',1153349349,1,0,1,1,1,0,'','','Hello Rossine,\n\nGood job.\nYour solution work fine for us.\nI need it from long time ago.\nThank you.\n\nRegards,\n\nRichard','',0,'gIA=','v1qyoou1',1,0,'',15,0,0),(16002,3619,7,138,0,'201.128.111.188',1153349821,1,0,1,1,1,1,'','','jejeje, enciendes el scanner desde el programa fwppc y luego lanzas el explorer\n\nEl lectro envia las lecturas al get activo','',0,'gIA=','39lrc76r',1,0,'',138,0,0),(16003,3593,3,144,0,'69.236.252.190',1153350611,1,0,1,1,1,1,'','','So it is indeed already available to everyone with this newest release?\nThat\'s terrific.','',0,'gIA=','31rifmjg',1,0,'',144,0,0),(16004,3557,6,40,0,'200.92.19.98',1153350727,1,0,1,1,1,0,'','','Lo dicho, Carlos Gran trabajo !!!!\n\nMuchas gracias de nuevo por tu aporte\n\nJoel Andujo\nSaludos','',0,'gIA=','3n18txro',1,0,'',40,0,0),(16005,3626,20,49,0,'62.13.172.78',1153353582,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0287a48478/TESTEMG.zip.html\">http://hyperupload.com/download/0287a48 ... G.zip.html</a><!-- m -->\n\nECCO L\'ESEMPIETTO!!!\n\ne scusami per il ritardo ma ho dovuto far uscire il cane....','',0,'gIA=','2mc81qma',1,0,'',49,0,0),(16006,3593,3,2,0,'87.218.146.70',1153353862,1,0,1,1,1,1,'','','Brian,\n\nYes. Already available for FWH 2.7 July 2006 users <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','38047skp',1,0,'',2,0,0),(16007,3620,6,582,0,'201.252.92.132',1153354803,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:nud3xq1v]Ricardo,\n\nComo diría mi tan apreciado Jodorowsky, \"el misterio es la puerta a lo divino...\" \n\nQue continúe el misterio! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:nud3xq1v]\n\nDespues del \"History Channel\" que nos ofrecio Antonio, vulevo a la imagen del logo del FiveWin.\nLo que se observa en el ojo de la \"niña\" es lo que se conoce como el fenomeno de  \"triple imagen de Purkinje-Samson\" y que dice:\n[code:nud3xq1v]&quot;Si tomamos una fuente luminosa y la ponemos frente a un ojo vivo veremos que es reflejada por el, el lugar a donde se refleja y que nosotros vemos, es la cornea, ya que en ojo solo se pueden reflejar las imagenes en tres lugares &#40;imagenes de Purkinje-Samson&#41; o sea la cara anterior de la cornea, la cara anterior del cristalino y la cara posterior del mismo&quot;[/code:nud3xq1v]\nEn cristiano, significa que se estan viendo la/s imagenes que se encuantran delante del ojo al momento de la fotografia.\nLo interesante de todo esto que este fenomeno se da en el ojo de la imagen de Nuestra Señora de Guadalupe (Mexico).\n\nUn abrazo. El Loco =&gt;))[/quote]','',0,'gIA=','nud3xq1v',1,0,'',582,0,0),(16008,3634,2,687,0,'201.252.203.65',1153356746,1,0,1,1,1,1,'','tcp-ip','Buenas a todos.\n\nEs mi primera participacion en los foros. Para los que conocen a Ricardo Becares, soy su socio.\n\nEstoy utilizando la clase TSocket para hacer unos desarrollos, y queria saber si hay algo como el FORK() o si el accept, por cada coneccion aceptada establece un nuevo proceso para que atienda la solicitud.\n\nBueno. desde ya muchas gracias.\n\nsaludos.','',0,'gIA=','3n0juzm9',1,0,'',687,0,0),(16009,3635,3,299,0,'69.65.86.182',1153362884,1,0,1,0,1,0,'','Richtext','Antonio /Everyone;\n\nHi.\n\nDoes the method GetLineFromChar( nChar ) on the richtext class returns the position of the given nchar in centemeters or inches or what?  \n\nIt does not seem to be working properly.   Does anybody know?\n\n\nBest,\n\n\nReinaldo.','',0,'gIA=','1dpc8lsr',1,0,'',299,0,0),(16010,3636,3,51,0,'80.122.88.242',1153375546,1,0,1,1,1,0,'','How to Link?','If you have an obj-file with many functions in it which you link to a program does the compiler  link only used functions or do you have an overhead if you have unused functins in the obj?\n\nThanks in advance\nOtto','',0,'gIA=','2oi6ob31',1,0,'',51,0,0),(16011,3625,6,102,0,'83.46.99.59',1153379638,1,0,1,1,1,1,'','','Gracias Antonio. \nLo pruebo y te comento\n\n[quote=&quot;Antonio Linares&quot;:3ej8wfxd]José Martin,\n\nPuedes usar StrToken() de FWH para extraer las distintas palabras, usando el delimitador que le indiques. Revisa la documentación de StrToken().[/quote:3ej8wfxd]','',0,'gA==','3ej8wfxd',1,0,'',102,0,0),(16012,3625,6,102,0,'83.46.99.59',1153379694,1,0,1,1,1,1,'','','Gracias antonio lo pruebo y te comento','',0,'gA==','3a6ckugz',1,0,'',102,0,0),(16013,3636,3,6,0,'87.3.232.88',1153381491,1,0,1,1,1,1,'','Re: How to Link?','It strictly depends on the linker. But anyway it would be a (very little) EXE size overhead (who cares?).\n\nEMG','',0,'gA==','37th34af',1,0,'',6,0,0),(16014,3635,3,6,0,'87.3.232.88',1153381639,1,0,1,1,1,1,'','Re: Richtext','From the MSDN:\n\n[quote:1emr3lxt]This message returns the zero-based index of the line.[/quote:1emr3lxt]\n\nEMG','',0,'gA==','1emr3lxt',1,0,'',6,0,0),(16015,3551,7,262,0,'87.235.159.190',1153381850,1,0,1,1,1,1,'','','no se sabe nada ?','',0,'gA==','x5j56ds3',1,0,'',262,0,0),(16016,3626,20,6,0,'87.3.232.88',1153381856,1,0,1,1,1,1,'','','L\'esempio non è né ridotto all\'osso né compilabile.\n\nEMG','',0,'gA==','1kz362dt',1,0,'',6,0,0),(16017,3551,7,2,0,'87.218.146.70',1153383926,1,0,1,1,1,1,'','','Jose Luis,\n\nAún no hemos tenido ocasión de mirarlo. Lo hacemos cuanto antes.','',0,'gA==','3dtuts46',1,0,'',2,0,0),(16018,3561,20,106,0,'85.34.123.173',1153384244,1,0,1,1,1,1,'','','si.','',0,'gA==','3v3v3zm8',1,0,'',106,0,0),(16019,3632,7,490,0,'80.24.224.89',1153388636,1,0,1,1,1,0,'','','Antonio,\n\nOlvidaté del problema, al final toda la historia estaba en que existe un buffer de todos los medios extraibles, tanto en PC como en pocket.\n\nY Si estás insertando en el PC, copias algo, sacas, lo insertas en la pocket y así un montón de veces, incluso llegan a corromperse los datos de la tarjeta, aparte a que no das tiempo al sistema de hacer un volvado de los buffers al medio extraíble.\n\n\nUn Saludo y Gracias,\nJoaquín','',0,'gA==','sce87jg6',1,0,'',490,0,0),(16020,3561,20,49,0,'213.82.134.66',1153389167,1,0,1,1,1,1,'','','e invece no mi da errore...','',0,'gA==','30uyg00p',1,0,'',49,0,0),(16021,3626,20,49,0,'213.82.134.66',1153389342,1,0,1,1,1,1,'','','Guarda che non sia ridotto all\'osso  ci credo non ho potuto fare di meglio ma che non sia compilabile non è possibile!!!\n \nio l\'ho provato  ancora adesso con xmate e compila bene\n\nTi ho messo anche la sbutton.lib ( io uso xharbour 0.99.6x e fw27)\n\nperchè dici che non è compilabile cosa manca , che errore ti da ?','',0,'gA==','1nribha3',1,0,'',49,0,0),(16022,3444,17,49,0,'213.82.134.66',1153390046,1,0,1,1,1,1,'','','Now run ok \nyou must not use the multibitmaps  but use onlysigle bitmaps also if you use a resource\n\nBest Regards','',0,'gA==','jlec6ibh',1,0,'',49,0,0),(16023,3637,3,49,0,'213.82.134.66',1153390523,1,0,1,1,1,1,'','Button and array','If i want associate a action to many buttons with matricial array How i can I make it ? and to return the number of the button ?\n\nexample :\n\ntot1:=20\nto2:=8\n\nbAction := {|oBtn| prenotamenu( oBtn ) ,oBtn:cCaption := \"\",oBtn:Disable( VK_RBUTTON ), oBtn:Refresh() }\n\n aBtn:= { Array( tot1 ), Array( tot2 ) }\n totarray :=  tot1*tot2\n aAct := Array( totarray )\n AFill( aAct, bAction )\n\n\n\nnDisponibili:=0\nnOccupati:=0\nn    := 1\nfila := 60\nFOR i := 1 TO tot2\nnPassLarg :=  0\ncol := 10\n\n\nFOR k := 1 TO tot1\n\n               aCapt:=Str( camere-&gt;camera,3,0)\nIF ! Empty(Pre_cam-&gt;Nome)\n                          cbitmap=\"SEAT1\" //rosso\n                          nOccupati++\n                       ELSE\n                          nDisponibili++\n                          cbitmap=\"SEAT2\"   // verde\n                        Endif\nIF ! Empty(Pre_cam-&gt;Nome)\n\n                                 @ Fila,(Col+nPassLarg) SBUTTON  aBtn[n] RESOURCE cbitmap  PIXEL;\n                           OF oWnd  ;\n                            FONT oFont2 ;\n                           CAPTION  aCapt ;\n                           COLOR GetSysColor(13), GetSysColor(1)  ;\n                           TEXT ON_CENTER ;\n                          NOBOX       ;\n                                         MESSAGE \"Pulsante sinistro: Inserire la prenotazione.  \" + ;\n                                                 \"Pulsante destro: Cancellare la prenotazione.\" ;\n                                        TOOLTIP oemtoansi(aCapt ) ;\n                               ACTION aAct\n\n\n\n                              ELSE\n\n                                @ Fila,(Col+nPassLarg) SBUTTON  aBtn[n] RESOURCE cbitmap  PIXEL;\n                           OF oWnd ;\n                            FONT oFont2 ;\n                           CAPTION  aCapt ;\n                           COLOR GetSysColor(13), GetSysColor(1)  ;\n                           TEXT ON_CENTER ;\n                          NOBOX       ;\n                                         MESSAGE \"Pulsante sinistro: Inserire la prenotazione.  \" + ;\n                                                 \"Pulsante destro: Cancellare la prenotazione.\" ;\n                                        TOOLTIP oemtoansi(aCapt ) ;\n                               ACTION aAct\n\n\n                                ENDIF\n\n\n\n\n\n\n\n\n\n                    //ciclo\n                    col += 65\n                    n++\n                   CAMERE-&gt;(dbskip())\n                    cPosNome  :=\"\"\n                    NEXT\n                    fila +=65\n                    NEXT\n\nnAct := 1\n      For nEle := 1 To Len( aBtn )\n         For nSub := 1 To Len( aBtn[ nEle ] )\n            aBtn[ nEle, nSub ]:Cargo := aCapt[ nAct++ ]\n            aBtn[ nEle, nSub ]:bRClicked := {| oBtn| fCancel( oBtn ) }\n         Next\n      Next\n\nthanks','',0,'','11bqgm6d',1,0,'',49,0,0),(16024,3535,2,242,0,'81.45.227.110',1153396281,1,0,1,1,1,0,'','Consulta.','Hola,\n\n¿Dónde puedo ver un listado de todas las acciones que puedo enviar a la hoja de cálculo (ej: oExcel:ActiveSheet:SAVEAS(cDestino) \n                             oExcel:DisplayAlerts= .T. confirmación,\n                             etc.)\nHasta ahora, lo único que hago es, con Ole2, abrir/crear la hoja de cálculo y hacer un volcado de todo lo que tengo en el browse, ajustar las celdas y poco más). Me gustaría saber, por ejemplo, como puedo activar filtro para una o todas las columnas, configurar la página, poner títulos, etc.).\n\nGracias por adelantado y un saludo,\nFernando Morales del Rosario','',0,'','21c8rpv4',1,0,'',242,0,0),(16025,3626,20,6,0,'87.3.232.88',1153396558,1,0,1,1,1,1,'','','Io ho bisogno di un PRG di poche righe che sia compilabile con le FWH standard altrimenti non ti posso aiutare.\n\nEMG','',0,'','17724l0h',1,0,'',6,0,0),(16026,3620,6,217,0,'200.159.120.34',1153397075,1,0,1,1,1,0,'','','Antonio,\n\nDo you have idea about the number of FiveWin\'s users today?\nHere in Brazil we have a company named Microsiga. Microsiga is a ERP solution vendor and used Fivewin for a long time. Now this company have a own language named AdvPL (Advanced Protheus Language). The sintax of AdvPL is very similar to Fivewin.\nDo you help Microsiga to develop AdvPL or they developed based in FW?\n\nRegards\nMaurilio','',0,'','2y0mvmzk',1,0,'',217,0,0),(16027,3620,6,2,0,'87.218.146.78',1153398310,1,0,1,1,1,1,'','','Maurilio,\n\n&gt; Do you have idea about the number of FiveWin\'s users today? \n\nSeveral thousands. We do expect that as more and more users register on these forums then we will know an approximate number of active users.\n\n&gt; they developed based in FW?\n\nWe don\'t know about them. They may have developed it themselves.','',0,'','2coreouy',1,0,'',2,0,0),(16028,3638,1,684,0,'69.159.107.129',1153400978,1,0,1,1,1,0,'','Error 1109: Unable to open file Fivewin.lnk','Good mornig,\nAfter compilation with file build.bat (for fivewin 1.9), this error displayed:\n1109 Unable to open File ..\\\\include\\fivewin.lnk.\n\nPlease help me.\nThanks,','',0,'','3o3lrawv',1,0,'',684,0,0),(16029,3036,6,569,0,'200.93.48.44',1153401205,1,0,1,1,1,0,'','ojo con esta instruccion','[quote=&quot;pablinux&quot;:3vf1qvtx]Para karinha\n\nAEVAL(DIRECTORY( \"*.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } ) \nBorrara todos los cdx\n\nSaludos[/quote:3vf1qvtx]\nEsta instruccion por alguna extraña razon que yo desconozco actua de \nuna sutil diferente manera en CLIPPER que en XHARBOUR.\nes mejor utilizar el utiliti de clipper tool iii; una instruccion parecida me borraba todos los archivos de mi subdirectorio de trabajo OJO.\nEspero haber ayudado.\nSaludos RODOLFO','',0,'gA==','3vf1qvtx',1,0,'',569,0,0),(16030,3639,1,684,0,'69.159.107.129',1153402643,1,0,1,1,1,0,'','Distributors of FiveWin in Canada.','Hello, Mr Antonio,\nPlease send me this adress and email for distributor of Fivewin in Canada for purchase this latest version of fivewin (2.7).\n\nOur adress in Canada (company Dispro Automotive).\nPlease fax me our price of FiveWin 2.7 (number fax: 514 324-2351), attention Mr ABED Abderrahmane.\n\nThanks,\nAbdel','',0,'gA==','3hjyxp6w',1,0,'',684,0,0),(16031,3640,4,13,0,'213.76.252.200',1153405724,1,0,1,1,1,0,'','Get control and polish nation characters','Antonio,\n\nI create simple test function with 2 control: get an multiget eg:\n\n[code:1zqnvypg]\nFunction TestPlc &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oTest1 &#58;= Nil\n   Local cTest1 &#58;= Space &#40;30&#41;\n   Local oTest2 &#58;= Nil\n   Local cTest2 &#58;= Space &#40;30&#41;\n\n   Define Window oWnd Title \'Nation characters\'\n   @ 50, 5 Get oTest1 Var cTest1 Size 200, 20 Pixel On Change MsgInfo &#40;\'Ok\'&#41;\n   @ 80, 5 Get oTest1 Var cTest1 Size 200, 20 Pixel Multiline On Change MsgInfo &#40;\'Ok\'&#41;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n[/code:1zqnvypg]\n\nWhen I type in standard get field polish nation character eg. &#260; (ASCII code 165) get buffer still empty and message no show. Next, when I put normal letter, this remove first. This is for all polish nation characters without Ó (ASCII code - 211). In multiline get control all polish letters works OK - buffer is change when I type normal and nation letters.\n\nRegards\nPawel','',0,'AIA=','1zqnvypg',1,0,'',13,0,0),(16032,3623,6,217,0,'200.159.120.34',1153405742,1,0,1,1,1,0,'','Re: Novos recursos para tooltip','Rossine,\n\nPretendo fazer uma função baseada neste tooltip que faça o seguinte: suponhamos que o usuário tenha esquecido de preencher um campo (digamos o campo nome), quando ele clicar em OK ou Salvar, eu gostaria que uma mensagem neste estilo balão aparecesse apontando para este campo nome.\nEu até criei uma função baseada nas suas alterações, mas não mostra o balãozinho sozinho, apenas quando coloco o mouse sobre o campo nome...\nOutra coisa, teria como definir o tempo em que o tooltip ficará visível?\nMe passe seu email pra que possamos conversar, o meu:\n<!-- e --><a href=\"mailto:mau.viana@gmail.com\">mau.viana@gmail.com</a><!-- e -->\nSkype: mau.viana\n\n[ ]\'s\nMaurilio','',0,'','k8omk9ip',1,0,'',217,0,0),(16034,3642,23,52,0,'200.127.195.89',1153405992,1,0,1,1,1,1,'','FREUDE, Glücklicher Tag!','FREUDE, Glücklicher Tag','',0,'','2k6kccg7',1,0,'',52,0,0),(16035,3643,6,436,0,'200.45.229.243',1153407546,1,0,1,1,1,0,'','Ordenamiento de Indices','Hola:\n\nEstoy utilizando RDD ADS y tablas ADT y no consigo que me ordene adecuadamente en forma alfabética. Me manda las Ñ y las acentuadas al final.\nYo ya he puesto lo siguiente (indicado en otros posts):\n\nREQUEST HB_Lang_ES // Para establecer idioma de Mensajes, fechas, etc.. \nREQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..) \n// Idioma por defecto: Español... \nHB_LangSelect(\"ES\") // Para mensajes, fechas, etc.. \nHB_SetCodePage(\"ESWIN\") // Para ordenación (arrays, cadenas, etc..) *Requiere CodePage.lib\n\nExiste algo que me falta?\nUtilizo FWH2.7\n\nGracias','',0,'','oklnnhdr',1,0,'',436,0,0),(16036,3036,6,36,0,'200.113.56.235',1153407725,1,0,1,1,1,0,'','','jmartial\n\nPrueba creando los archivos.dbf con xharbour y luego exportas desde los archivos dbf de 16bit, luego reindexa nuevamente \n\nespero que te sirva\n\nSaludos','',0,'','2snk6k1e',1,0,'',36,0,0),(16037,3638,1,58,0,'84.149.199.251',1153408530,1,0,1,1,1,0,'','','Dahmane,\n\nin build.bat is a call to your linker giving a link script as parameter like ..\\include\\fivewin.lnk.\nIn your error message you see two backslashes \"..[b:3hmetyst][color=blue:3hmetyst]\\\\[/color:3hmetyst][/b:3hmetyst]include\\fivewin.lnk\".\nRemoving one should solve your problem.\n\nRegards,\nDetlef','',0,'Qg==','3hmetyst',1,0,'',58,0,0),(16038,3638,1,684,0,'69.159.107.129',1153409482,1,0,1,1,1,0,'','','Detlef,\nThe linker is Blinker version 5, or file fivewin.lnk is parameter in build.bat.\nExcuse me, do not speak english very well (my language is french).\n\nFor example:\n#include \"FiveWin.ch\"\n\nTest.prg\nfunction Main()\n\n    SET 3DLOOK ON\n\n    MsgInfo( FWVERSION + Chr( 13 ) + FWCOPYRIGHT,;\n             \"Clipper for Windows Library\" )\n\nreturn nil\n\nPlease help me for compil this function with fivewin. My method is:\nClipper Test\nBlinker fi test lib fivewin,winapi \n\nError 1109: Unable to open fivewin.lib\nThanks,\nAbdel','',0,'Qg==','95pw7rjv',1,0,'',684,0,0),(16039,3619,7,661,0,'201.123.184.199',1153413570,1,0,1,1,1,0,'','','jeje en un principio asi lo pense porque asi operan los escanner de teclado y los seriales ,pero ooh! sorpresa estas chunches solo mandan la lectura al programa que lo activo, ya probe lo que tu me dices y nanais <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'Qg==','i2jkl618',1,0,'',661,0,0),(16040,3622,3,435,0,'200.155.196.124',1153413966,1,0,1,1,1,0,'','','eu coloquei o alert, o bkeyDown não captura o ESC, nem passa no ::Key()\n\n\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \nAri','',0,'Qg==','gz5qpg8x',1,0,'',435,0,0),(16041,3640,4,2,0,'87.218.146.78',1153414089,1,0,1,1,1,1,'','','Pawel,\n\nYou have to use this code but with your country initials:\n\nREQUEST HB_LANG_ES\nREQUEST HB_CODEPAGE_ESWIN\nHB_LangSelect(\'ES\') \nHB_SetCodePage(\"ESWIN\")','',0,'Qg==','5xl4kp8i',1,0,'',2,0,0),(16042,3622,3,2,0,'87.218.146.78',1153414156,1,0,1,1,1,1,'','','Try bKeyChar','',0,'Qg==','3ecbuneh',1,0,'',2,0,0),(16043,3639,1,2,0,'87.218.146.78',1153414233,1,0,1,1,1,1,'','','Abdel,\n\nAll our distribution is done from our website at Internet <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> purchase section.','',0,'Qg==','1p9olpdr',1,0,'',2,0,0),(16044,3638,1,2,0,'87.218.146.78',1153414339,1,0,1,1,1,1,'','','Abdel,\n\nModify samples\\build.bat to specify the path where you have installed FW.','',0,'Qg==','k6aw4mar',1,0,'',2,0,0),(16045,3526,3,190,0,'202.65.134.45',1153414651,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nThank you for your reply.\n\nI have tested the above code.  I felt that this code is useful only when \nwe use windows printers but not for dos printers.  \n\nI have replaced the code in TDosPrn and I found that even though the\nprinter is not switched off,  PrnStatus(\"LPT1:\") is always returning 0.\nIt might be due to windows printing is routed through the spooler and we\nalways get the PrnStatus(\"LPT1::\") as 0 unlike Clipper\'s ISPRINTER().\n\nBut the code you have given is very useful when we use Windows printers.\n\nI have gone through so many articles in our forum and on the net.  But \nI did not find any replacement function/method or at least a workaround \nway to replace Clipper\'s ISPRINTER() functionality for Windows Printers.\n\nI use only TDosPrn() to print outputs in most my applications.  Most of my \napplication users have used my clipper applications earlier and now using \nwindows application.   They are normally not interested to know our \ntechnical issues.  They always take it granted that every thing is possible \nto do in computers.\n\nIf you can suggest me any way out  to test whether the printer is in it ON \nstate or OFF state before I issue a print command, I will be very happy.\n\nRegards,\n\n- Ramesh Babu P','',0,'Qg==','28zcl2mw',1,0,'',190,0,0),(16046,3036,6,362,0,'200.168.52.156',1153415131,1,0,1,1,1,1,'','Re: ojo con esta instruccion','[quote=&quot;sildata&quot;:qfui5ojs][quote=&quot;pablinux&quot;:qfui5ojs]Para karinha\n\nAEVAL(DIRECTORY( \"*.cdx\" ),{ |aFILE| FERASE(aFILE[F_NAME]) } ) \nBorrara todos los cdx\n\nSaludos[/quote:qfui5ojs]\nEsta instruccion por alguna extraña razon que yo desconozco actua de \nuna sutil diferente manera en CLIPPER que en XHARBOUR.\nes mejor utilizar el utiliti de clipper tool iii; una instruccion parecida me borraba todos los archivos de mi subdirectorio de trabajo OJO.\nEspero haber ayudado.\nSaludos RODOLFO[/quote:qfui5ojs]\n\nA MI, TAMBIÉN. PERO SOLO EN WINDOWS XP.','',0,'gA==','qfui5ojs',1,0,'',362,0,0),(16047,2139,6,435,0,'200.155.196.124',1153415220,1,0,1,1,1,0,'','','baixei o pdfcretor .muito bom.. mas eu quero somente alguns relatorios em pdf e gostaria de controlar dentro do Five,\n\n--------------------------------------------------------------------------------\nPosted: Sat Mar 11, 2006 2:11 pm    Post subject:    \n--------------------------------------------------------------------------------\nTambien puedes usar OpenOffice y su componente COM/OLE, generas el informe como en la TExcelS y lo exportas a PDF sin necesidad de tener una impresora PDF \n--------------------------------------------------------------------------------\n\n\nTem algum exemplo da dica acima ?\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nAri','',0,'gA==','9k6cjiuv',1,0,'',435,0,0),(16048,3636,3,620,0,'209.189.229.150',1153415231,1,0,1,1,1,0,'','','Its been awhile since ive worked with very large code programs.  Right now I have all of my code in one .prg file.  To make it easier to work on, I want to move my code into multiple .prg files (or other files with functions).  I can\'t remember what method to use to make all the files compile and link.  Elementary question, but I can\'t remember how I did this before.....help! \nthanks!\nG','',0,'gA==','2xldem3p',1,0,'',620,0,0),(16049,3638,1,684,0,'69.159.107.129',1153415728,1,0,1,1,1,0,'','','Thank you very much.\nAbdel','',0,'gA==','rxyd8cb5',1,0,'',684,0,0),(16050,3644,1,684,0,'69.159.107.129',1153416957,1,0,1,1,1,0,'','Good Forum for library of Clipper.','Hello,\nIt is Good Forum for the library of Clipper. I\'am user CA-Clipper and library (Light Lib graphics, DGE5, CA-Tools, CMATES, etc...).\n\nVery best forum, thank you for all members.','',0,'gA==','2lqf8v9i',1,0,'',684,0,0),(16052,3625,6,138,0,'201.128.111.188',1153420103,1,0,1,1,1,1,'','','que tal un :\n\ncCadena := \"{|| {\"+cadenaquetienes+\"}}\"\n\naArray := EVAL(&amp;cCadena)','',0,'gA==','3s6zuera',1,0,'',138,0,0),(16053,3636,3,58,0,'84.149.228.174',1153423654,1,0,1,1,1,0,'','','Greg,\n\njust get your copy of xMate which will do exactly this job in an excellent manner.\n\nRegards,\nDetlef','',0,'gA==','1yzzwmyo',1,0,'',58,0,0),(16054,3625,6,305,0,'201.230.24.181',1153425079,1,0,1,1,1,0,'','','Esta funcion que uso te debe servir:\n\n[code:3hy2kduc]\n Function Str2Array&#40; cString, cSepar &#41;\n\n local aString_ &#58;= &#123;&#125;\n\n DEFAULT cSepar &#58;= \',\'\n\n do while at&#40; cSepar, cString &#41; &lt;&gt; 0\n    aadd&#40; aString_, trim&#40; substr&#40;cString,1,at&#40;cSepar,cString&#41;-1&#41; &#41; &#41;\n    cString &#58;= trim&#40; substr&#40;cString,at&#40;cSepar,cString&#41;+1,len&#40;cString&#41;&#41; &#41;\n enddo\n\n aadd&#40; aString_, cString &#41;\n\n return aString_\n[/code:3hy2kduc]','',0,'AIA=','3hy2kduc',1,0,'',305,0,0),(16055,3644,1,2,0,'87.218.146.78',1153425684,1,0,1,1,1,1,'','','You are welcome <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1i0djxdf',1,0,'',2,0,0),(16056,3535,2,375,0,'84.122.123.154',1153425924,1,0,1,1,1,1,'','','Bueno, Fernando, no soy yo el más indicado para explicarte eso, pues llevo tan sólo algunas semanas con el traspaso de datos a Excel y World. Pero si entras en cualquiera de ellos, vete a la opcion \"herramientas\" del menu, subopcion \"Macro\", y pincha en \"Editor de Visual Basic\".\nUna vez en el Editor, pincha sobre el icono \"Examinador de Objetos\". Verás que te sale un listado de todos los objetos/clases que puedes emplear, con sus métodos y datos internos. \nDespués es cuetion de, como yo hice, buscar ejemplos en este foro y probar con algunas clases hasta dar con lo que está buscando. Ya te darás cuenta que excel es algo más complicado de entender que Word, pero una vez medio lo pillas se aclaran muchas cosas.\n\nAnimo, suerte y ... ¡A POR ELLOS! (que aqui a lo mejor te funciona).','',0,'AIA=','u11j3eae',1,0,'',375,0,0),(16057,3638,1,58,0,'84.149.247.178',1153427196,1,0,1,1,1,0,'','','Abdel, \n\nje vais essayer d\'ecrier en Francais <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .\n\nLà-bas où deux backslash sont écrites seulement un peut rester debout.\n\nPardon, j\'étais un très mauvais élève en français <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nRegards,\nDetlef','',0,'AIA=','260bu82p',1,0,'',58,0,0),(16058,2992,2,375,0,'84.122.123.154',1153427995,1,0,1,1,1,1,'','','Definitivamente, con FW 16 Bits, GetDc32() y ReleasDc32() de USER32.DLL no funcionan correctamente. No es que se corte el programa, pero en mi módulo de carga de fotos no va como debería. Ni copiando el USER32 del XP. Lastima. Seguiré investigando...','',0,'AIA=','5zxj771k',1,0,'',375,0,0),(16059,3495,2,375,0,'84.122.123.154',1153428340,1,0,1,1,1,1,'','','Alguien me podía haber dicho que en KERNE32.DLL tambien está la funcion CopyFile que va de narices para copiar con nombres largos. Me podía haber ahorrado una semana de investigación...\n\nPor si a alguién que no lo sabía le interesa:\n\nDLL32 FUNCTION COPYFILE( cExistName AS LPSTR, cNewName AS LPSTR, nFailIfExist AS LONG ) AS BOOL; \nPASCAL FROM \"CopyFileA\" LIB \"kernel32.dll\"','',0,'AIA=','d2aksfnf',1,0,'',375,0,0),(16060,3638,1,684,0,'69.159.107.129',1153428420,1,0,1,1,1,0,'','','C\'est pas grave pour le francais, l\'essentiel est le contenu.\nBon, pour la syntaxe du linker, j\'ai essayé meme manuellement de compiler et faire la liaison avec fivewin.lib, le meme prob.\n\nJe pense que je vais essayer l\'astuce de Mr Antonio. Je vous tiendrai au courant pour demain.\nFranchement, je voudrais reprendre mes développements en Clipper tout en créant des applications windows.\nMerci beaucoup pour votre aide.\n\nBonne soirée.','',0,'AIA=','2gcu8ev4',1,0,'',684,0,0),(16061,3495,2,375,0,'84.122.123.154',1153428499,1,0,1,1,1,1,'','','Se me olvidaba. el parámetro [b:2e7mblth][u:2e7mblth]nFailIfExist[/u:2e7mblth][/b:2e7mblth] si lo pones a [b:2e7mblth]1[/b:2e7mblth] no te deja copiar el fichero, si éste ya existe en el directorio destino. Si lo pones a [b:2e7mblth]0[/b:2e7mblth] si que lo copia.\n\nUn saludo a todos.','',0,'QQ==','2e7mblth',1,0,'',375,0,0),(16062,3620,6,439,0,'190.0.132.146',1153435100,1,0,1,1,1,1,'','','Estimado Antonio,\n\nComo he sido involuntariamente hasta ahora un desagradecido, pienso\nque es el momento de enmendarlo.\n\nHace como 10 años que por medio de un compañero de trabajo accedí a la lib Fivepro 1.0 beta,\nla cual me ha dado grandes satisfacciones aún hasta ahora,\npero sin embargo, recién caigo de que es un producto de \nAntonio Linares, el mismo creador de Fivewin <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> .\n\nCOMO MAS VALE TARDE QUE NUNCA ¡GRACIAS POR TAN BUEN PRODUCTO!!!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nHoy al leer tu mensaje me puse a ver y que encuentro en el NG de ayudas:\n\n  Esta librería, FivePro 1.0 Beta, es GRATIS. No es una versión restringida\n  ó demo. Es una librería plenamente operativa y lista para empezar a usarla\n  en vuestros programas. Tienes autorización para copiarla libremente, y\n  para dársela a quien quieras.\n\n                   (C) Antonio Linares Software 1991\n                        Avd. Ricardo Soriano 68\n                        Edf. Horizonte Este 1-7\n                             29600 Marbella\n\n          Tfno.: (952) 861419 a partir de las 7:30 de la tarde\n\nEl tiempo pasa, pero sigues siendo creador <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->  de software excelente accesible. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nMe he quedado Frío. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'QQ==','3pu9ch25',1,0,'',439,0,0),(16063,3645,6,665,0,'196.40.14.109',1153436558,1,0,1,1,1,0,'','Cambian algunos controles folder por  systabcontrol32','Buenas a todos . \nSoy nuevo en Xharbour \n\nUn saludito   en xharborr algunos controles cambian de nombre   y me ha dado dolor de cabeza, lo dificil saber cuales son pues  no encuentro literatura que me pueda decir cual de ellos  seran.\n\nUtilizo aun el WShop  y  estoy por cambiar  el pelles, pero  aun no puedo utilizar el folder, el meter e, tbimap , habra algo para leer por ahi..\n\nGracias un abraxo a la Distancia\nBusmatic.','',0,'QQ==','26ms8yhm',1,0,'',665,0,0),(16064,3646,6,37,0,'201.240.191.151',1153440190,1,0,1,1,1,1,'','Uso de diferentes Hojas de Calculo en un mismo archivo .XLS','Saludos amigos, tengo una duda, Yo trabajo con TFileXls y me parece perfecta para crear Archivos Excel con una sola Hoja, pero se pueden crear mas Hojas dentro del mismo archivo ???\nSi no se puede con esta clase, se puede con alguna otra ???\nEs mas se podra leer desde diferentes hojas de un mismo archivo ???\nDisculpen, varias preguntas, es que recien me solicitan algo como esto y no tengo ni idea de como trabajarlo.\nMuchas gracias','',0,'QQ==','349kdx3o',1,0,'',37,0,0),(16065,3619,7,661,0,'201.123.184.199',1153443324,1,0,1,1,1,0,'','','ya resolvi lo de hacer que el escaner me de la lectura en cualquier get activo, se tiene que instalar un software llamado DATAWEDGE de la pagina de symbol, lo instalas en la PPC y listo escaneo en cualquier get activo jeje... ahi te cuento como me fue...\n\nsaludos','',0,'QQ==','ricfk03q',1,0,'',661,0,0),(16066,3646,6,439,0,'190.0.140.92',1153449582,1,0,1,1,1,1,'','','La clase TExcelScript  (TExcels) de Vikthor es ideal para eso y la encontrarás en:\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->','',0,'QQ==','209emchw',1,0,'',439,0,0),(16067,3646,6,37,0,'200.121.172.100',1153449730,1,0,1,1,1,1,'','','Jose, gracias, la revisare','',0,'QQ==','1q6x8q9k',1,0,'',37,0,0),(16068,3640,4,13,0,'213.77.227.53',1153462911,1,0,1,1,1,0,'','','Antonio,\n\nI test with and without initial language settings:\n\n[code:2ezkweo8]\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PLWIN\n   Hb_LangSelect &#40;\'PL\'&#41;\n   Hb_SetCodePage &#40;\'PLWIN\'&#41;\n[/code:2ezkweo8]\n\nNothing is change.\n\nRegards\nPawel','',0,'AIA=','2ezkweo8',1,0,'',13,0,0),(16069,3640,4,2,0,'87.218.146.78',1153464490,1,0,1,1,1,1,'','','Pawel,\n\nWe may need to review how ASCII code 165 is managed in Class TGet.','',0,'AIA=','29fgurq3',1,0,'',2,0,0),(16070,3620,6,2,0,'87.218.146.78',1153464661,1,0,1,1,1,1,'','','José,\n\nGracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nYa de paso hemos sabido la fecha exacta y hasta el teléfono que teníamos entonces <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','38dotqv9',1,0,'',2,0,0),(16071,3647,17,2,0,'87.218.146.78',1153464993,1,0,1,1,1,1,'','Vikthor - Class TExcelScript','La clase TExcelSCript se puede usar tanto con xHarbour/Harbour.\nAhora contiene nuevos métodos y hace uso de la función Create Objetc() para el uso de Ole.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02185deb37/texcels.zip.html\">http://hyperupload.com/download/02185de ... s.zip.html</a><!-- m -->','',0,'AIA=','3n1n2vd6',1,0,'',2,0,0),(16072,3646,6,2,0,'87.218.146.78',1153465035,1,0,1,1,1,1,'','','Enrique,\n\nTambién la tienes en la sección utilidades de estos foros.','',0,'AIA=','p4gu3yhj',1,0,'',2,0,0),(16073,3645,6,2,0,'87.218.146.78',1153465149,1,0,1,1,1,1,'','','El TFolder cambia a SysTabControl32. \n\nSi quieres usar las barras de progreso de Win32 entonces TMeter cambia a msctls_progress32.','',0,'AIA=','3pwr939i',1,0,'',2,0,0),(16074,3634,2,2,0,'87.218.146.78',1153465274,1,0,1,1,1,1,'','','Jorge,\n\nNecesitarías usar la ejecución multihilo de xHarbour para usarlo, aún así de momento no se ha probado.','',0,'AIA=','33w82hco',1,0,'',2,0,0),(16075,3495,2,2,0,'87.218.146.78',1153465323,1,0,1,1,1,1,'','','Manu,\n\nGracias por compartir la información <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1p4k1znn',1,0,'',2,0,0),(16076,3648,4,557,0,'61.10.12.94',1153469873,1,0,1,1,1,0,'','BuildCe.bat make easy...','Hi,\n\nI made a program to automate the process of building exe and copy the exe to a directory mounted to emulator.\n\nScreen capture:\n[img:3aerv5ru]http&#58;//x2f&#46;xanga&#46;com/f93a70ea5043567634188/b45406435&#46;jpg[/img:3aerv5ru]\n\nWhat it does:\n1. Open a source program\n2. Compile it by calling BuildCE.bat\n3. Copy the exe to a default directory e.g. C:\\FWPPC\\Output \n   (Make this directory yourself and mount it to the emulator)\n\nThis little program saves me lot of time instead of  typing commands and drag drop files by using file explorer!\n\nIf you are interested in it, please let me know!\n\nPaul','',0,'CA==','3aerv5ru',1,0,'',557,0,0),(16077,3648,4,2,0,'87.218.146.78',1153471394,1,0,1,1,1,1,'','','Paul,\n\nThanks for your contribution <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','2q6jkduw',1,0,'',2,0,0),(16078,3649,6,449,0,'212.64.224.244',1153471638,1,0,1,1,1,1,'','Referencia API Crystal 8.0 (CRPE32.DLL)','Hola,\n\nAlguien me puede enviar la doc de referencia del api de crystal. Uso la 8, pero creo q me servira cualquiera.\n\n\nGracias.','',0,'CA==','3qdv4rkm',1,0,'',449,0,0),(16079,3648,4,557,0,'61.10.12.71',1153473990,1,0,1,1,1,0,'','','Download from here\n\n[url:uyakxu8n]http&#58;//hyperupload&#46;com/download/024e4bb231/BuildCE_MadeEasy&#46;zip&#46;html[/url:uyakxu8n]\n\nPaul','',0,'EA==','uyakxu8n',1,0,'',557,0,0),(16080,3593,3,435,0,'200.155.199.147',1153480461,1,0,1,1,1,0,'','Como descobrir o nome do ActiveX ?','// \\fwh27\\samples\\excel.prg\n// Using Microsoft Excel ActiveX\n#include \"FiveWin.ch\"\n\nfunction Main()\n   local oWnd, oActiveX\n\n   DEFINE WINDOW oWnd TITLE \"FiveWin ActiveX Support\"\n\n   // Warning: You may need a different name based on your installed Office version\n   oActiveX = TActiveX():New( oWnd, \"OWC11.Spreadsheet\" ) [b:3syriw3o]&lt;&lt;--- onde eu pego este nome ?  eu tenho o Office XP [/b:3syriw3o]\n\n   oWnd:oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil','',0,'QA==','3syriw3o',1,0,'',435,0,0),(16081,3650,3,435,0,'200.155.199.147',1153482647,1,0,1,1,1,0,'','OFF','Ola\n\nAlguem sabe como gravar[b:1g4ml7vk] imagem [/b:1g4ml7vk]dentro do [b:1g4ml7vk]MySQL [/b:1g4ml7vk]? me parece que tem que usar o campo BLOB mas não achei nada de exemplo.\n\nAri','',0,'QA==','1g4ml7vk',1,0,'',435,0,0),(16082,3623,6,435,0,'200.155.199.147',1153482741,1,0,1,1,1,0,'','Tooltip','Seria facil colocar um ToolTip deste em cada GET pegando o string da MESSAGE e passando para o ToolTip ?\n\na ideia é a cada GET ter um ToopTip de orientação para o usuario\n\nAri','',0,'QA==','3gp67z6q',1,0,'',435,0,0),(16083,3625,6,102,0,'81.32.38.142',1153490690,1,0,1,1,1,1,'','','Hola Foro,\nGracias a todos.\n\nEste String es parte de lo que quiero convertir\nComo se ve hay comas dentro de las cadenas\n\n[b:3bk3yptx]\"CORTINOVA,S.A.\",\"\",\"CRTA.DE PRATS,KM.2.3\",\"\",\"\",\"SABADELL\",\"\",\"\",\"PERSIANAS DECORACION CR. SL\"[/b:3bk3yptx]\n\nLo he solucionado con StrTran() y StrToken() asi:\nQuiero extraer 59 Cadenas texto o numero de un string\n\n[b:3bk3yptx]For nToken := 1 To 59\n1 Quito las comas que hay entre dos comillas y pongo otro caracter\n    cLine := StrTran(cLine,\'\",\"\',\'|\',1)\n2 Quito todas las comillas dobles  \n    cLine := StrTran(cLine,\'\"\',\'\',1)\n3 Extraigo nToken con StrToken\n    cToken := StrToken( cLine, nToken, \'|\' )\n    aAdD(aTabla,cToken)\nNext[/b:3bk3yptx]\n\nAsi ha funcionado de maravilla.\n\nGracias a todos','',0,'QA==','3bk3yptx',1,0,'',102,0,0),(16084,3651,6,409,0,'201.246.66.171',1153491166,1,0,1,1,1,0,'','DETECTAR ESTADO DE IMPRESORA EN WINDOWS XP','Hola.\nNecesito detectar el estado de la impresora Matricial ya es importante antes de Imprimir.\n\nSaludos.','',0,'QA==','lrvfir1t',1,0,'',409,0,0),(16085,3652,6,428,0,'200.45.74.34',1153494638,1,0,1,1,1,0,'','controlar Teclado Inactivo','Necesito incorporar a mis programas un control que permita chequear si el teclado permanece inactivo por x minutos, se bloquee o cierre la aplicacion, algo similar al protector de pantalla del Window, pero a nivel de programa.\nAlguien conoce alguna forma de hacerlo ?\n\nGracias\nMiguel','',0,'QA==','9uhz2x11',1,0,'',428,0,0),(16086,3653,6,383,0,'200.121.12.105',1153495511,1,0,1,1,1,0,'','PROBLEMA EXTRAÑO CON IMPRESION','Tengo problemas al imprimir por lotes documentos. Es decir, cuando imprimo desde la factura 1 hasta la factura 100, se salta un numero y luego retorna al numero que le correspondia y eso me genera un problema con los formatos ya que no imprime consecutivamente como debe ser. Al inicio pense que eran tal vez indices, pero revise y todo bien. Sin embargo, probando con windows 98 no existe el problema pero si con windows xp. Para la impresion uso la clase Tdosprn y ademas lo probe la impresion codigo clipper puro e igual.\n\nActualmente uso Fivewin 2.5 y Xharbour 0.99.2\n\nMuchas Gracias por sus respuestas.','',0,'QA==','33jnnum7',1,0,'',383,0,0),(16087,3649,6,138,0,'201.128.111.188',1153495611,1,0,1,1,1,1,'','','En mi web puedes descargarte la docu de la version 8.5 de Crystal.','',0,'QA==','36q2ofo5',1,0,'',138,0,0),(16088,3623,6,217,0,'200.159.120.34',1153497852,1,0,1,1,1,0,'','Re: Tooltip','Ari, a propriedade cTooltip aceita tanto caracteres quendo bloco de codigo, então, basta que para isso vc adapte seu codigo para retornar uma string, ó um exemplinho simples:\n\noGet1:cTooltip := {|| MeuTip(1) }\noGet2:cTooltip := {|| MeuTip(2) }\n...\n\nfunction MeuTip(n)\n do case\n     case n = 1\n            return(\"1111\")\n    case n = 2\n           return(\"2222\")\n endcase\nreturn(\"\")','',0,'QA==','kcxjsh4u',1,0,'',217,0,0),(16089,3651,6,362,0,'200.168.52.156',1153498515,1,0,1,1,1,1,'','','EXTERNAL ISPRINTER\n    IF .NOT. ISPRINTER()\n        SndPlaySound(\".\\Erro.wav\" )\n        MsgStop( OemToAnsi( \"Tu Mensageria\", \"Aviso de Impresora\" ) )\n        Return Nil\n    ENDIF','',0,'QA==','l4hh3ycp',1,0,'',362,0,0),(16090,3650,3,217,0,'200.159.120.34',1153498812,1,0,1,1,1,0,'','Re: OFF','Ari, você está usando alguma classe específica para o manejo de dados com MySQL?\nTipo a classe TODBC do Fivewin, ou SQLRDD ou a SQL Lib, ou ainda a classe TMySQL do xHarbour.org?\nEu uso o SQLRDD do xHarbour comercial + Fivewin, entretando com banco de dados Firebird e gravo fotos ou qualquer outro tipo de arquivo completo em campos do tipo Blob sem nenhum problema, com um replace comum como se fosse um DBF. O SQLRDD trata as APIs internas certinho...\n\nAgora, só uma dica: postar uma mensagem em português neste forum em inglês, as chances de alguém te ajudar ficam pequenas  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nSo mesmo quando passa algum brasileiro por aqui...\n\n[ ]\'s\nMaurilio','',0,'','2z7ln4os',1,0,'',217,0,0),(16091,3645,6,396,0,'201.210.242.104',1153499635,1,0,1,1,1,1,'','','Yo tenia ese mismo inconveniente al principio, todo depende de la versionde FWH que tengas, pero todo lo soluciones utilizando Visual C en ves de PellesC, los controles migrados de WS no sufren cambios y puedes usar .RC o preferiblemente .RES, espero te ayude. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'','2lkwze3t',1,0,'',396,0,0),(16092,3593,3,2,0,'87.218.146.78',1153500107,1,0,1,1,1,1,'','','Ari,\n\nRun regedit.exe and search for excel.','',0,'','1cfm6v9x',1,0,'',2,0,0),(16093,3620,6,396,0,'201.210.242.104',1153500379,1,0,1,1,1,1,'','','Todos nos creemos grandes, pues he aqui la diferencia: \"Los GENIOS hacen lo que las personas normalmente no hacen, los INGENIOS hacen lo que los GENIOS no hacen...\" mis respetos Sr. Linares y siga aportando soluciones AL MUNDO! Gracias INGENIO!','',0,'','t2lskuv5',1,0,'',396,0,0),(16094,3650,3,435,0,'200.155.199.147',1153500578,1,0,1,1,1,0,'','','tá dando certo, o pessoal responde, sabe eu nem reparei que era em ingles. rs...\n\nentão... eu nao aguentei esperar o o RDD e fiz umas classes e uso aquela TMySQL da contribuição harbour, tive que fazer umas adaptações que no inicio esta classe nao tinho o Bof e Eof(), tive que usar xcomand para trocar algumas instrucoes ..hoje jah me acostumei a escrever em SQL \n\neu fiz uma classe semelhante a TDBF eu chamo a minha de TSQL() é igualzinho mas ai tem umas chamadas para a TMYSQL tive que mudar os pontos de delete(), append()..etc.. mas hoje tá tudo certo..\n\nobrigado\nAri','',0,'','yz51m0yz',1,0,'',435,0,0),(16095,3654,6,36,0,'200.113.56.235',1153501596,1,0,1,1,1,0,'','Rebar,Toolbar, folder','Estimados\n\nPorque cuando paso de un folder a otro el tamaño de la imagen cambia \n\nalguna sugerencia\n\n[url:39yyvwuu]http&#58;//hyperupload&#46;com/download/0224a9f374/prueba&#46;avi&#46;html[/url:39yyvwuu]\n\nSaludos\nPatricio','',0,'EA==','39yyvwuu',1,0,'',36,0,0),(16096,3654,6,362,0,'200.168.52.156',1153504265,1,0,1,1,1,1,'','','REDEFINE FOLDER oFld ID 101 OF oDlg                                       ;\n             PROMPT \"Dados Co&amp;merciais \", \"Com&amp;plemento \"                     ;\n             DIALOGS \"FLD_CLIENTES\", \"FLD_CLIENTES_2\"                         ;\n             COLORS nRGB( 127, 127, 127 ), nRGB( 143, 188, 143 )              ;\n             ADJUST\n\n    oFld:aEnable[ 1 ] := .T.\n    oFld:Show()\n    oFld:lWin95Look := .F.','',0,'','1ifln5wb',1,0,'',362,0,0),(16097,3653,6,362,0,'200.168.52.156',1153504388,1,0,1,1,1,1,'','','PORQUE USTED NO USAS EL COMANDO: ORDSCOPE()??','',0,'','9r3l78vj',1,0,'',362,0,0),(16098,3652,6,362,0,'200.168.52.156',1153504474,1,0,1,1,1,1,'','','ya intestastes con el COMANDO: DEFINE TIMER oTimer??','',0,'','3qpa7wnu',1,0,'',362,0,0),(16099,3650,3,435,0,'200.155.199.147',1153505112,1,0,1,1,1,0,'','','como minha aplicação é client/server a minha ideia é jogar as imagens dentro de um campo no MySQL e qualquer estação abrir a imagem: o que eu nao sei é:\n\n1) como gravar a  imagem no mysql\n2) como recuperar pelo Five a imagem \n\nAri','',0,'','1bok4cqw',1,0,'',435,0,0),(16100,3655,4,224,0,'162.83.94.176',1153506518,1,0,1,1,1,1,'','Progress Bar on Dialog','Does anyone have an example of how to create a progress bar on a dialog? I have tried to define the dialog from a resource and also to create it from scratch. But, I have not been able to get either to function properly.\n\nThanks in advance...','',0,'','3cx4v9f8',1,0,'',224,0,0),(16101,3656,2,304,0,'201.155.7.216',1153506797,1,0,1,1,1,0,'','Error &quot;Preprocessor table overflow&quot;','Hola a todos:\n\nnecesito usar las clases btnget y sbrowse al mismo tiempo, inicio el programa asi\n\n# include \"FiveWin.ch\"\n# include \"Tsbrowse.ch\"\n# include  \"Btnget.ch\"\n\n\ncuando quito el segundo o el tercero funciona bien\n\n\nsi lo pongo asi me marca:\nBtnget.ch(66) fatal C3048 Preprocessor table overflow\n\nque significa eso ???\ncomo seria la manera correcta de hacerlo ??\n\ngracias por su ayuda\n\nveracruz, ver','',0,'','2tfhv19n',1,0,'',304,0,0),(16102,3645,6,665,0,'196.40.12.169',1153509347,1,0,1,1,1,0,'','habran mas controles que cambien','Gracias,  a todos\n \nAparte de os mencionados  habran kas controles que deben saber..\n\nAdemas, editor de recursos estube utilizando el pelles , me parecio bueno  hasta que me dio errores en las  .RC  un tal wondows.h con  con un error referente a \"{, me queda   sin respuesta alguna  cuando  trate de compilar y me dio este error  me lo arrojo en BCC.\n\nUtilise el  resourse builder me trabaja bien .\n\nGracias.\nBusmatic.','',0,'','6buu896b',1,0,'',665,0,0),(16103,3650,3,104,0,'201.58.24.168',1153511551,1,0,1,1,1,0,'','','Olá Maurilio, \n\n[quote:d193iv6u]\nTipo a classe TODBC do Fivewin, ou SQLRDD ou a SQL Lib, ou ainda a classe TMySQL do xHarbour.org? \nEu uso o SQLRDD do xHarbour comercial + Fivewin, entretando com banco de dados Firebird e gravo fotos ou qualquer outro tipo de arquivo completo em campos do tipo Blob sem nenhum problema, com um replace comum como se fosse um DBF. O SQLRDD trata as APIs internas certinho... \n[/quote:d193iv6u]\n\nDepois eu irei precisar de uma ajudinha sua em relação o SQL, claro se não for pedir demais hehehe.\n\nAbraços,\n\nRossine.','',0,'gA==','d193iv6u',1,0,'',104,0,0),(16104,3655,4,224,0,'162.83.94.176',1153511858,1,0,1,1,1,1,'','','Thank you. I have a sample running now. On a dialog, progress bar seems to behave a bit strange. Even though it reports a range of 0 to 10, it acts as though the range is 0,100.','',0,'gA==','1xow4o6q',1,0,'',224,0,0),(16105,3657,3,684,0,'69.159.107.129',1153512152,1,0,1,1,1,0,'','Harbour.','Hello,\nHarbour it is compilateur open source ?.\nThanks in advance,\nAbdel','',0,'gA==','270wc2hi',1,0,'',684,0,0),(16106,3657,3,6,0,'87.16.213.91',1153512719,1,0,1,1,1,1,'','Re: Harbour.','Yes.\n\nEMG','',0,'gA==','33rijpd5',1,0,'',6,0,0),(16107,3650,3,217,0,'200.159.120.34',1153512747,1,0,1,1,1,0,'','','Rossine:\nEstou à sua disposição. Quando precisar, é só \"e-meiar\": <!-- e --><a href=\"mailto:mau.viana@gmail.com\">mau.viana@gmail.com</a><!-- e -->\n\nAri:\nMe lembro de um RDD pra MySQL do xHarbour.org desenvolvida pelo meu xará (Maurilio Longo) da Itália. Eu até tinha testado coisas simples como replaces com campos caracter, numero, etc, mas nao com imagens...\nSe vc tiver a documentação dessa TMySQL ou o codigo fonte, talvez dê pra analisar pra verificar se possui este recurso... Vou dar uma xeretada nisso. Esta em <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w --> ?\n\nE já aproveito pra te dar um toque: quando eu mexi com este esquema de gravar a imagem no banco de dados, era para um sistema de imobiliária. O cara cadastrava vários ambientes de cada residência. O problema é que ele gravava uma figuras gigantescas. E ficar trafegando esse tipo de dado na rede não é bom. Imagine só uma casa com 8 arquivos de imagem gravadas. Quando ele acessava o registro eu tinha que recuperar do BD e salvar como arquivo temporario pra visualizar, era demorado, então fiz assim: em uma tabela eu gravava os thumbnails (as imagens reduzidas) e eram essas que eu puxava e mostrava em miniatura na tela. Se ele quisesse ver a imagem em tamanho natural ele clicava nelas, aí sim eu recuperava o arquivo em tamanho real do BD.\n\n[ ]\'s\nMaurilio','',0,'','loj2r5r0',1,0,'',217,0,0),(16108,3658,3,217,0,'200.159.120.34',1153512927,1,0,1,1,1,0,'','How to define scroll bar to a TPage...?','As subject.\nAntonio and all. Were I can change TPage class to scroll bars works in this class?\n\nBest regards\nMaurilio','',0,'','3w2kh2zk',1,0,'',217,0,0),(16109,3650,3,435,0,'200.155.200.195',1153513442,1,0,1,1,1,0,'','','quando eu baixei ficava no site do harbour.org o original é uns arquivo de contibuição .. aminha que tenho aqui tá modificada .. e já outro dia vi que atualizaram ela, colocando mais recursos.. e nem mudei porque tinha que ficar vendo o que mudou..deixei quieto..\n\nvou ver se acho e posto aqui\n\nAri','',0,'','2bdr7whg',1,0,'',435,0,0),(16110,3629,1,170,0,'80.170.7.198',1153516942,1,0,1,1,1,1,'','','Bonjour Mr Abdel,\n\nBienvenue sur ce forum.\n\nCordialement,','',0,'','1d3wyp13',1,0,'',170,0,0),(16111,3652,6,428,0,'200.82.99.115',1153518365,1,0,1,1,1,0,'','','En realidad fue lo primero que se me ocurrio, trabajar con un timer, pero lo que necesito es controlar si el mouse se esta moviendo y si en algun lugar se presiona alguna tecla, lo cual me indicaria que alguien sigue utilizando el programa, pero lo que no se es como controlar el uso del teclado y si pudiera el movimiento del mouse, para que el timer se renueve con cada movimiento.','',0,'','1qcn8lpj',1,0,'',428,0,0),(16112,2609,1,170,0,'80.170.7.198',1153522080,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:33wauvry]Badara,\n\nI reported the ASC() bug a long time ago, and it was fixed. If you don\'t want to upgrade, you can always write your own ASC() function to replace Harbour\'s.\n\n[/quote:33wauvry]\n\nJames,\n\nI have writed Asc() function in Clipper, but this is a reserved\nword, so it\'s not possible to keep \"ASC\" for an user defined function.\n\nI have changed the function name to ASCI(),\nbut all libraries who call ASC() are \"dangerous\"...','',0,'gA==','33wauvry',1,0,'',170,0,0),(16113,3637,3,303,0,'72.199.41.171',1153523757,1,0,1,1,1,0,'','','Silvio,\n\nYou may have to use \"detached locals\" for your counters.\n\nBecause the counter has already been completely through the loop before the dialog gets initialized, the counter is at the maximum value so it is as if it only went through the loop once.\n\nA detached local is a local var that is captured in a codeblock. Even though it is a local var, it stays in scope until the codeblock is out of scope.\n\nHere are some example codeblocks to make detached locals. If you have more than one counter, you will need a separate function for each one.\n\nJames\n\n---------------------------------------\nDetached Locals\n\nSimple example:\n\nfunction makeBlock( i )\nreturn {| u | i }\n\nHere is another example:\n\nStatic Function MyDetach( i, a )\nReturn( {|x| if( x == NIL, a[ i ], a[ i ] := x } ) )\n\n// Column title (day of week)\nstatic function makeBlock1(i)\nreturn {|u| left(cdow(aShipDate[i]),3) }\n\n// Column title (date)\nstatic function makeBlock2(i)\nreturn {|u| left(dtoc( aShipDate[i] ),5) }','',0,'','nsjlb0os',1,0,'',303,0,0),(16114,3659,2,510,0,'200.84.165.124',1153524243,1,0,1,1,1,0,'','Radios','Estimados amigos como hago si tengo un conjunto de radio\n  (definididos por recursos WSHop) al escoger alguno de ellos con enter o con el mouse pase al siguiente get automaticamente sin necesidad de llevarlo con el mouse o con el tab. si alguno me pudiese ayudar..\n\nGracias\nWilliam Neskers\nVenezuela','',0,'','2zpvf4ia',1,0,'',510,0,0),(16115,3660,3,303,0,'72.199.41.171',1153526076,1,0,1,1,1,0,'','Status bar issues (not message bar)','I am trying out the status bar (the common control not the older FW message bar). \n\nI note that if you define both a PROMPT and PROMPTS, when you run the app, the first text of PROMPTS is displayed. But as soon as you move the mouse anywhere on the window, that message is immediately overwritten by the PROMPT text. Example:\n\n   DEFINE STATUSBAR oStatusBar PROMPT \"  Win32 StatusBar\" OF oWnd ;\n      SIZES 150, 200, 240;\n      PROMPTS \"One\", \"Two\", \"Three\"\n\n\"One\" is displayed until the cursor is moved, then \"Win32 StatusBar\" is displayed. I don\'t know if this is by design or a bug.\n\nIf you try to do oStatusBar:setPartText(1,\"test\"), nothing appears to happen, but if you add a msgBox() you can see that it does get displayed but then immediately overwritten by the original message.\n\nAlso the SIZES clause in the documentation says that it contains the widths of the prompts, but it actually is the location of the right edge of the box containing the prompts. To be consistant with FW\'s other commands it actually should be the widths, however, changing it would break existing code. But, since the status bar is only used once per application it wouldn\'t be very difficult to fix this broken code, and it would be nice if it was consistant with other FW code.\n\nIt would also be very nice to have these functions that I see in the Win API, setIcon(), setBkColor() [setColor() does not work], and setTipText(). The API docs can be found here:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vcmfc98/html/_mfc_cstatusbarctrl.3a3a.setbkcolor.asp\">http://msdn.microsoft.com/library/defau ... kcolor.asp</a><!-- m -->\n\nWe also need to be able to define actions for each prompt and icon (if we could use icons).\n\nJames','',0,'','1ahipr40',1,0,'',303,0,0),(16116,3652,6,54,0,'201.98.182.43',1153533271,1,0,1,1,1,1,'','','[quote=&quot;infosys&quot;:1z66bddn]En realidad fue lo primero que se me ocurrio, trabajar con un timer, pero lo que necesito es controlar si el mouse se esta moviendo y si en algun lugar se presiona alguna tecla, lo cual me indicaria que alguien sigue utilizando el programa, pero lo que no se es como controlar el uso del teclado y si pudiera el movimiento del mouse, para que el timer se renueve con cada movimiento.[/quote:1z66bddn]\n\nInfosys,\n\nSe me ocurre poner un timar, con una variable global (puede ser de tipo Logical), y actualizarla con el bChange, asi cuando pongas el Timer, la validas y listo.\n\nEs una idea, jjejje\n\nSaludos','',0,'gA==','1z66bddn',1,0,'',54,0,0),(16117,3661,6,171,0,'71.232.193.197',1153536141,1,0,1,1,1,0,'','Tword','Excelente clase la Tword. \n\nUna pregunta \n\n1) Alguien ha desarrollado metodos (macros) para imprimir \"envelopes\",  \"labels\" y para la seleccion de impresora usando Tword?\n\nEl manual de Sebastian dice que es facil hacer lo metodos usando la ayuda del editor visual basic del MsWord, para chequear el formato. El problema que tengo es que los helps no me funcionan en MS-Word; no se porque siempre me sale una ventana en blanco al tratar de usar los helps. \n\nGeorge','',0,'gA==','xiei5wd0',1,0,'',171,0,0),(16118,3517,1,190,0,'202.65.134.45',1153537007,1,0,1,1,1,0,'','','Hi Marc,\n\nHave you succeeded in your reqrement ?\n\nIf so, can you share the function with me too!.\n\nThanks and regards\n\n- Ramesh Babu P','',0,'gA==','1m76gfib',1,0,'',190,0,0),(16119,3655,4,2,0,'87.218.146.78',1153545767,1,0,1,1,1,1,'','','Bill,\n\nWould you mind to post your sample here so we can review it ?\n\nAlso you may review samples\\TestProg.prg','',0,'gA==','1cxp02gi',1,0,'',2,0,0),(16120,3654,6,2,0,'87.218.146.78',1153546086,1,0,1,1,1,1,'','','Patricio,\n\nEl tamaño de los botones en la toolbar se ajusta en función del texto mayor a mostrar. Modificales el texto y verás como cambia el tamaño de los botones.','',0,'gA==','12r8n4gc',1,0,'',2,0,0),(16121,3657,3,2,0,'87.218.146.78',1153546375,1,0,1,1,1,1,'','','Abdel,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.harbour-project.org\">www.harbour-project.org</a><!-- w -->','',0,'gA==','eafblvkx',1,0,'',2,0,0),(16122,3658,3,2,0,'87.218.146.78',1153546468,1,0,1,1,1,1,'','','Maurilio,\n\nIt is not implemented yet. Its on our to-do list.','',0,'gA==','6a4o891q',1,0,'',2,0,0),(16123,3660,3,2,0,'87.218.146.78',1153550014,1,0,1,1,1,1,'','','James,\n\n&gt;\nDEFINE STATUSBAR oStatusBar PROMPT \" Win32 StatusBar\" OF oWnd ; \nSIZES 150, 200, 240; \nPROMPTS \"One\", \"Two\", \"Three\"\n&gt;\n\nPROMPT means the default msg, and PROMPTS the different items. But, yes, when you move the mouse over the window, then PROMPT overrides the first item of PROMPTS. Have a look a samples\\stbar.prg and select menuitems from the menu, you\'ll see the idea about how to use the first item.\n\nWe do plan to enhance this control as you have described.','',0,'gA==','19jiefj6',1,0,'',2,0,0),(16124,3659,2,2,0,'87.218.146.78',1153550481,1,0,1,1,1,1,'','','William,\n\nModifica este método de la Clase TRadio de la siguiente manera:\n[code:1q3t2fmb]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TRadio\n\n   do case\n        &#46;&#46;&#46;\n  \n        case nKey == VK_RETURN\n            return &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endcase\n\nreturn Super&#58;KeyDown&#40; nKey, nFlags &#41;\n[/code:1q3t2fmb]','',0,'AIA=','1q3t2fmb',1,0,'',2,0,0),(16125,3660,3,303,0,'72.199.41.171',1153551540,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Have a look a samples\\stbar.prg and select menuitems from the menu, you\'ll see the idea about how to use the first item. \n\nI had looked at the sample but I didn\'t notice the menu. Thanks for pointing it out.\n\nI also notice that some of the new Microsoft status bars have other controls on them too, like sliders (Word 2007), and menus (IE 7). These capability would also be very useful.\n\nIf I can help with any of this, let me know.\n\nJames','',0,'AIA=','l0vzy9eq',1,0,'',303,0,0),(16126,3652,6,492,0,'201.154.126.49',1153552283,1,0,1,1,1,1,'','','Hola\n\nMe parecio interesante tu post, asi que estuve investigando y encontre esto :\n\nPara poder hacer lo que comentas, se debera hacer un programa que haga la funcion de un ScreenSaver ya sea en C o C++ ( segun lei, en varios lenguajes ) y al incrustarle la libreria scrnsave.lib esta se encarga del \"monitoreo\" del idle del raton y del teclado, asi que desde esa app podrias enviar X mensaje o evento a tu aplicacion principal para que se desactive o haga algo, haciendo uso de algun timer para que cheque que exista tal aviso X.\n\nEn realidad el principio no se ve tan dificil ( ni tan facil, claro ) pero si es posible, lastima que mis conocimientos en C sean muy pocos  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n\naqui puedes bajar la libreria :\n<!-- m --><a class=\"postlink\" href=\"http://www.ols-lab.com/devcorner/scrnsave/\">http://www.ols-lab.com/devcorner/scrnsave/</a><!-- m -->\n\ny aqui puedes ver unos ejemplos de como crear un ScreenSaver :\n<!-- m --><a class=\"postlink\" href=\"http://www.cityintherain.com/howtoscr.html\">http://www.cityintherain.com/howtoscr.html</a><!-- m -->\n\nEspero te sirva\n\nSaludos','',0,'AIA=','h0pd6etx',1,0,'',492,0,0),(16127,3662,6,688,0,'85.136.99.169',1153561549,1,0,1,1,1,0,'','No se muestra la ventana','Hola a tod@s:\n\nRecien comencé a trabajar en una nueva empresa, y me encontré que en la misma tienen una versión de Fivewin para harbour, yo siempre he programado en Fivewin para clipper. Bueno, el caso es que tienen la versión 2.6 de fivewin.\n\nMe dispongo a hacer mis primeras incursiones a través de los ejemplos que vienen instalados, y consigo, compilar y ejecutar el tutor01, el que solo tiene un msginfo, y lo hace correcto, pero al ejecutar el tutor05 que muestra una ventana no hace nada, no muestra nada, pareceser que se ejecuta pero no hace nada y no me da error al compilar, el exe se crea perfectamente y el código fuente es el mismo que aparece en la carpeta samples.\n\nPara su información:\n\n  Fivewin Harbour 2.6\n  xHarbour, la últimisima versión ( la que está en la web oficial ) ( he probado con varias versiones)\n  Borland C++ 5.5 \n\nQue estaré haciendo mal, o que me falta?\n\n\nGracias anticipadas.\nAntonio Ruano','',0,'AIA=','3c4hplb0',1,0,'',688,0,0),(16128,3662,6,2,0,'87.218.146.4',1153564703,1,0,1,1,1,1,'','','Antonio,\n\nEstás usando samples\\buildx.bat para construir los ejemplos ?\n\nHas probado con tutor02.prg ?','',0,'AIA=','3ize3ec3',1,0,'',2,0,0),(16129,3663,5,691,0,'200.117.50.14',1153568696,1,0,1,1,1,1,'','Fivewin 2.4 + xbase (Alaska)','Me da error el exe dice que :\nEl archivo esta Vinculado a un five32rt.dll:nn(funcion)\nyo creo que el five32rt.dll es muy viejo año 92\ncual es la solucion - es urgente','',0,'AIA=','21eukvc2',1,0,'',691,0,0),(16130,3664,6,688,0,'85.136.99.169',1153568851,1,0,1,1,1,0,'','Tutor02 tampoco','Antonio, con tutor02 tampoco hace nada, le he puesto un msginfo(\"hola mundo\") en la línea 10, antes de la definición de la ventana, y el msginfo si lo  ejecuta pero la ventana no se abre.\n\nHe de comentarte además, que al compilar en la línea del buildx.bat donde aparece @del %1.il? da el error:\n\n   \"No se encuentra C:\\Clip_Fw\\FWH\\SAMPLES\\tutor02.il?\"\n\nNo se si esto tendrá importancia.\n\ngracias.','',0,'AIA=','ihhlyfoz',1,0,'',688,0,0),(16131,3517,1,161,0,'81.164.212.146',1153569010,1,0,1,1,1,0,'','','Ramesh,\n\nSince I still use FW and no FWH, I can\'t use the function yet (I\'am gona move soon to xHarbour). Till thenI use the database that is updated each week. This is a csv-file. I export this file to a DBF-file and use the normal clipper-functions to locate the IP and country info.\n\nRegards,\nMarc','',0,'AIA=','26exnchx',1,0,'',161,0,0),(16132,3663,5,2,0,'87.218.146.4',1153569150,1,0,1,1,1,1,'','','Hector,\n\nPuedes comprar la actualización a la versión más reciente de FiveWin++ (FW++) desde <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m --> \n\nEl precio de la versión por email, de entrega inmediata, es 139,2 euros. Gracias.','',0,'AIA=','1gpbfup7',1,0,'',2,0,0),(16133,3664,6,2,0,'87.218.146.4',1153569528,1,0,1,1,1,1,'','','Antonio,\n\nTienes que usar una versión y build de xHarbour que sea compatible con el FWH que estás usando. Lo idóneo es que uses el build de xHarbour que nosotros distribuimos con FWH.\n\nSi no consigues hacerlo funcionar, entonces podeis actualizaros a la versión más reciente de FWH 2.7 Julio 2007, desde <!-- m --><a class=\"postlink\" href=\"https://secure.fivetechsoft.com/spanish/purchase.html\">https://secure.fivetechsoft.com/spanish/purchase.html</a><!-- m --> Gracias','',0,'AIA=','2pm3uiwe',1,0,'',2,0,0),(16134,3664,6,688,0,'85.136.99.169',1153572466,1,0,1,1,1,0,'','Error al ejecutar en Win98','He probado el tutor02.exe en windows 98 (hasta ahora estaba en Windows XP SP2) y al ejecutarlo se abre una ventana dos donde aparece lo siguiente:\n\n\"Unrecoverable error 9003: Too many recursive error handler calls\nCalled from __EVAL(0)\nCalled from ERRORDIALOG(0)\nCalled from __EVAL(0)\nCalled from ERRORDIALOG(0)\nCalled from __EVAL(0)\nCalled from ERRORDIALOG(0)\nCalled from __EVAL(0)\nCalled from ERRORDIALOG(0)\nCalled from __EVAL(0)\nCalled from ERRORDIALOG(0)\n\nAcabo de bajar el harbour que está en la web de Fivetech y he vuelto a itentarlo con ese harbour y sigue sin funcionar.\n\nGracias. \nAntonio Ruano','',0,'AIA=','26npa995',1,0,'',688,0,0),(16135,3655,4,224,0,'66.225.99.139',1153575866,1,0,1,1,1,1,'','','Hi Antonio,\n\nI have included code below. I used the samples\\testprog.prg as a guide but needed to place the progress bar on a dialog, not the window. I was unable to do this using a dialog from a resource. So, I built the dialog dynamically.\n\nI added a function to post the nMin, nMax and nPos of the bar so you see what happens.\n\nAlso, it looks like the default DLG_CHARPIX_H and DLG_CHARPIX_W need to be adjusted for FWPPC as they yield objects too large.\n\nThanks!\n\n[code:220mkmbd]\n#include &quot;FWCE&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oWnd\nDEFINE WINDOW oWnd TITLE &quot;Progress&quot;\n\n@ 2, 2 BUTTON &quot;Progress&quot; SIZE 80, 25 ACTION ProgDialog&#40;&#41;\n\nACTIVATE WINDOW oWnd\n\nRETURN NIL\n\nfunction ProgDialog&#40;&#41;\n\n   local oDlg, oPgr\n\n   DEFINE Dialog oDlg TITLE &quot;Progress Bars&quot; FROM 5,12 TO 180, 230 PIXEL\n\n   @ 1, 1 SAY oSay PROMPT &quot;Testing&quot; OF oDlg SIZE 150, 20\n\n   @ 2, 0&#46;9 PROGRESS oPgr OF oDlg SIZE 100, 15\n\n   @ 3, 1 BUTTON &quot;-&quot; OF oDlg SIZE 20, 20  ;\n      ACTION &#40; oPgr&#58;nPosition -= 10 , BarStat&#40; oSay, oPgr &#41; &#41;\n\n   @ 3, 4 BUTTON &quot;+&quot; OF oDlg SIZE 20, 20  ;\n      ACTION &#40; oPgr&#58;nPosition += 10 , BarStat&#40; oSay, oPgr &#41; &#41;\n\n   ACTIVATE DIALOG oDlg ON INIT &#40; oPgr&#58;nPosition &#58;= 50, BarStat&#40; oSay, oPgr &#41; &#41;\n\nreturn nil\n\nProcedure BarStat&#40; oSay, oPgr &#41;\n oSay&#58;setText&#40; Str&#40; oPgr&#58;nMin &#41; + &quot;, &quot; + Str&#40; oPgr&#58;nMax &#41; + &quot;, &quot; + Str&#40; oPgr&#58;nPos &#41; &#41;\nReturn\n[/code:220mkmbd]','',0,'AIA=','220mkmbd',1,0,'',224,0,0),(16136,3664,6,2,0,'87.218.146.4',1153576514,1,0,1,1,1,1,'','','Antonio,\n\n&gt;\nAcabo de bajar el harbour que está en la web de Fivetech y he vuelto a itentarlo con ese harbour y sigue sin funcionar. \n&gt;\n\nTienes que usarlo con su versión de FWH (2.7 Julio 2006) correspondiente.','',0,'AIA=','35c99tbk',1,0,'',2,0,0),(16137,3661,6,138,0,'148.233.151.30',1153576990,1,0,1,1,1,1,'','','tienes que volver a instalar el office e indicar que instale \"ayuda para visual basic for applications\" asi tendras los archivos de ayuda que necesitas.\n\npreferentemente instala todo el office para que se ejecute desde el disco duro','',0,'AIA=','oqwhk1w4',1,0,'',138,0,0),(16138,3665,3,689,0,'201.25.252.84',1153578927,1,0,1,1,1,0,'','How do it?','Hello !\n\nPlease, I would like to know how do build an window with vertical scroll bar and other objetcs like button bar, etc, but that the tool bar objetc doesn´t move when the window scroll. To me this one problem because I can´t  set the scroll bar properties like nTop, so this means that scroll bar initiate always in the top and scroll all window.\n\nAny sugest?\n\nRegards\n\nEroni \nCriciuma/SC - Brazil','',0,'AIA=','1z39rhsw',1,0,'',689,0,0),(16139,3666,7,692,0,'213.96.221.131',1153579609,1,0,1,1,1,1,'','Busco programador para fivewin pocket pc','Disculpar si este no es el sitio adecuado para este mensaje , pero no he encontrado otro.\nBusco programador para programar una pequeña aplicación en fivewin para pocket PC , que pueda leer datos de una aplicación de windows y poder imprimir un albaran .\ninteresados enviar un e-mail \nAntonio\n<!-- e --><a href=\"mailto:aalvarez@readysoft.es\">aalvarez@readysoft.es</a><!-- e -->','',0,'AIA=','180p88i5',1,0,'',692,0,0),(16140,3667,3,190,0,'202.65.134.45',1153584236,1,0,1,1,1,0,'','Getting errors with FWH 2.7 July Build','Hi Mr.Antonio\n\nThe following code was working upto FWH 2.7 June 2006 Build.  When I updated my FWH 2.7 June build with FWH 2.7 July build, I started getting\nerrors as under.  I am using the latest xHarbour supplied with FWH 2.7 July 2006.\n\n- Ramesh Babu P\n\n\n[url=http&#58;//img112&#46;imageshack&#46;us/my&#46;php?image=errorna9&#46;jpg:8u5t4ong][img:8u5t4ong]http&#58;//img112&#46;imageshack&#46;us/img112/7424/errorna9&#46;th&#46;jpg[/img:8u5t4ong][/url:8u5t4ong]\n\n\n#include \"fivewin.ch\"\n\nFUNCTION taskbar_on(ison, lFree)\n\nLOCAL hwnd := FindWndByClass(\"Shell_TrayWnd\", \"\")\n    \nIF ison \n   ShowWindow(hwnd,5)\nELSE\n   ShowWindow(hwnd,0)\nENDIF\n\nIF lFree\n   FreeLib32(\"user32.dll\")\nENDIF\n\nRETURN Nil\n\n**********\n\nDLL32 Function ShowWindow(hwnd as LONG, nCmdShow as LONG) AS LONG         ;\nPASCAL FROM \"ShowWindow\" Lib \"user32.dll\"\n    \nDLL32 Function FindWndByClass(wndClass AS LPSTR,WndName as LPSTR) AS LONG ;\nPASCAL FROM \"FindWindowA\" LIB \"user32.dll\" \n    \n**********','',0,'GA==','8u5t4ong',1,0,'',190,0,0),(16141,3668,2,147,0,'190.7.11.157',1153585067,1,0,1,0,1,1,'','O.T. FileXLS','He bajado esta Librería y ocurre que al aplicar una formula, por ej., xlsSUM()\nen el campo aplicado la formula en lugar de hacer referencia a las celdas involucradas muestra 1+1.\nIngreso en xlsfunc.prg y observo que la llamada a la función efectivamente devuelve 1:\nfunction xlsSUM(); return 1\n\nEs esto correct o falta algo?\n\ngracias','',0,'GA==','nek6afm4',1,0,'',147,0,0),(16142,3669,6,147,0,'190.7.11.157',1153585363,1,0,1,0,1,1,'','O.T. FileXLS','He bajado esta Librería y ocurre que al aplicar una formula, por ej., xlsSUM()\nen el campo aplicado la formula en lugar de hacer referencia a las celdas involucradas muestra 1+1.\nIngreso en xlsfunc.prg y observo que la llamada a la función efectivamente devuelve 1:\nfunction xlsSUM(); return 1\n\nEs esto correcto falta algo?\n\ngracias','',0,'GA==','3shlf7az',1,0,'',147,0,0),(16143,3667,3,2,0,'87.218.146.4',1153585463,1,0,1,1,1,1,'','','Ramesh,\n\nYour posted code works fine. It may be something related with the MDI you are using. Please post a self contained and reduced sample to reproduce the error, Thanks.','',0,'GA==','9rz15j5r',1,0,'',2,0,0),(16144,3665,3,2,0,'87.218.146.4',1153585525,1,0,1,1,1,1,'','','Eroni,\n\nYou may use a MDI window.','',0,'GA==','2m2tg771',1,0,'',2,0,0),(16146,3655,4,2,0,'87.218.146.4',1153586178,1,0,1,1,1,1,'','','Bill,\n\nUse Method SetRange() from ON INIT and check the bounds:\n[code:2ec0f92k]\n   @ 3, 1 BUTTON &quot;-&quot; OF oDlg SIZE 20, 20  ; \n      ACTION &#40; if&#40; oPgr&#58;nPosition &gt; 0, oPgr&#58;nPosition -= 10, &#41;, BarStat&#40; oSay, oPgr &#41; &#41; \n\n   @ 3, 4 BUTTON &quot;+&quot; OF oDlg SIZE 20, 20  ; \n      ACTION &#40; if&#40; oPgr&#58;nPosition &lt; 100, oPgr&#58;nPosition += 10, &#41;, BarStat&#40; oSay, oPgr &#41; &#41; \n\n   ACTIVATE DIALOG oDlg ON INIT &#40; oPgr&#58;SetRange&#40; 0, 100 &#41;, oPgr&#58;nPosition &#58;= 50, BarStat&#40; oSay, oPgr &#41; &#41; \n[/code:2ec0f92k]','',0,'AIA=','2ec0f92k',1,0,'',2,0,0),(16147,3670,6,471,0,'201.240.81.44',1153590199,1,0,1,1,1,1,'','Como imlementar SOAP en FWH','Amigos \n\nNecesito implemetar un cliente SOAP con FWH en VFP esta todo listo en\nFWH como podria hacer \n\nAlguien pueda darme una AYUDA\n\nEn este link esta lo que necesito hacer \n\n<!-- m --><a class=\"postlink\" href=\"http://www.aduanet.gob.pe/aduanas/operatividad/WebServices.htm\">http://www.aduanet.gob.pe/aduanas/opera ... rvices.htm</a><!-- m -->\n\nEn VFP ya lo tienen listo \n\nWeb Services desde Visual Fox Pro\n\nTambién se adiciona un programa que invoca a los Web Services desde un cliente hecho en Visual Fox Pro.\n\nEste ejemplo lo pueden encontrar también en la siguiente ruta <!-- m --><a class=\"postlink\" href=\"http://www.aduanet.gob.pe/js/app/WebServices/clienteWSVisualFoxPro.zip\">http://www.aduanet.gob.pe/js/app/WebSer ... FoxPro.zip</a><!-- m --> junto con la librería FoxCrypto.fll. La libreria FoxCrypto.fll contiene la función que codifica y decodifica en base 64., el cual permite el trabajo tipo de datos bytes.\n\nPrueba.prg\n\nSET LIBRARY TO FoxCrypto.FLL\n\nPROCEDURE psEnviArchivo\n\n***********************\n\n*envia archivo\n\nPARAMETER pArc\n\ntcInFile = IIF(EMPTY(pArc),\"C:\\desaprg\\prueba\\CDDEmbargoM4.htm\", pArc)\n\nlcInFile = FILETOSTR(tcInFile)\n\nlcInFile64 = codifica(lcInFile)\n\n***\n\ndoc = CreateObject(\"MSXML2.DOMDocument\")\n\nhttp = CreateObject(\"MSXML2.XMLHTTP\")\n\nhttp.Open(\"POST\", \"http://desweb1:8001/portafolio/portafolio\", .F.)\n\nhttp.SetRequestHeader(\"SOAPAction\", \"enviaArchivoWebService\")\n\nhttp.SetRequestHeader(\"Content-Type\", \"text/xml\")\n\n**carga el archivo\n\nxml = fnArmaCadXml(\"A\", \"0091\", \"XXXX\", \"142\", lcInFile64, \"CDDEmbargoM5.htm\")\n\ndoc.LoadXML(xml)\n\nhttp.Send(doc.xml)\n\nres = CreateObject(\"MSXML2.DOMDocument\")\n\nresponse = http.responseText\n\n*?response\n\nres.LoadXML(http.responseText)\n\ntxt = res.selectSingleNode(\"//NroEnvioGenerado\") &amp;&amp;Return\n\nIF nvl(txt.text,\' \') = \" \" THEN\n\nTXT=\"ERROR EN WS \"\n\nENDIF\n\nwait window txt.text NOWAIT\n\n*? txt.text\n\nrelease doc\n\nrelease http\n\nrelease res\n\nrelease response\n\nRETURN\n\nFUNCTION decodifica\n\nPARAMETER pCadena\n\nLOCAL lcBinary, lnHandle, lnSize\n\nlnHandle = Base64DecoderCreate()\n\nIF lnHandle &gt; 0\n\nBase64DecoderPut(lnHandle, pCadena)\n\nBase64DecoderClose(lnHandle)\n\nlnSize = Base64DecoderMaxRetrievable(lnHandle)\n\nlcBinary = Base64DecoderGet(lnHandle, lnSize)\n\nBase64DecoderDestroy(lnHandle)\n\nELSE\n\nWAIT WIND \"ERROR al instanciar\"\n\nRETURN .F.\n\nENDIF\n\nRETURN lcBinary\n\n \n\nFUNCTION codifica\n\nPARAMETER pCadena\n\nLOCAL lcBase64, lcInFile, lnHandle, lnSize\n\nlnHandle = Base64EncoderCreate( .T. )\n\nIF lnHandle &gt; 0\n\nBase64EncoderPut(lnHandle, pCadena)\n\nBase64EncoderClose(lnHandle)\n\nlnSize = Base64EncoderMaxRetrievable(lnHandle)\n\nlcBase64 = Base64EncoderGet(lnHandle, lnSize)\n\nBase64EncoderDestroy(lnHandle)\n\nELSE\n\nWAIT WIND \"ERROR al instanciar\"\n\nRETURN .F.\n\nENDIF\n\nRETURN lcBase64\n\n \n\nFUNCTION fnArmaCadXml\n\n*********************\n\nPARAMETER pTOpe, pOpe, pClave, pAdu, pArch, pNomArch\n\nstrxml = [&lt;env:Envelope xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\"] + CHR(13)\n\nstrxml = strxml + [ xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\"] + CHR(13)\n\nstrxml = strxml + [ xmlns:env=\"http://schemas.xmlsoap.org/soap/envelope/\"] + CHR(13)\n\nstrxml = strxml + [ xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;env:Header&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;/env:Header&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;env:Body&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;m:enviaArchivoWebService xmlns:m=\"http://www.bea.com/education/webservices/examples/basic/javaclass\"] + CHR(13)\n\nstrxml = strxml + [ env:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\"&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;toperador xsi:type=\"xsd:string\"&gt;] + pTOpe + [&lt;/toperador&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;operador xsi:type=\"xsd:string\"&gt;] + pOpe + [&lt;/operador&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;clave xsi:type=\"xsd:string\"&gt;] + pClave + [&lt;/clave&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;aduana xsi:type=\"xsd:string\"&gt;] + pAdu + [&lt;/aduana&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;archivoEnvioByte xsi:type=\"xsd:base64Binary\"&gt;] + pArch + [&lt;/archivoEnvioByte&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;nombreArchivo xsi:type=\"xsd:string\"&gt;] + pNomArch+ [&lt;/nombreArchivo&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;/m:enviaArchivoWebService&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;/env:Body&gt;] + CHR(13)\n\nstrxml = strxml + [&lt;/\n\n\nGracias por la Ayuda\n\nVladimir Zorrilla \n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->','',0,'','3vqkrdlw',1,0,'',471,0,0),(16148,3671,3,471,0,'201.240.81.44',1153592600,1,0,1,1,1,1,'','I need to implement Client SOAP with FWH/XHARBOUR','Friends\n\nThis I need to do\n\n<!-- m --><a class=\"postlink\" href=\"http://www.aduanet.gob.pe/aduanas/operatividad/WebServices.htm\">http://www.aduanet.gob.pe/aduanas/opera ... rvices.htm</a><!-- m -->\n\n\nIn VFP already this ready one\n\nWeb Services from Visual Fox Pro\n\nThis example it can find in the following link\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.aduanet.gob.pe/js/app/WebServices/clienteWSVisualFoxPro.zip\">http://www.aduanet.gob.pe/js/app/WebSer ... FoxPro.zip</a><!-- m -->\n\nalong with lib FoxCrypto.fll\n\nThe library FoxCrypto.fll\n\nit contains function that codifies and decodifica in base 64\n\nwhich allows to the work data type bytes.\n\n\nPrueba.prg\n\nSET LIBRARY TO FoxCrypto.FLL\n\nPROCEDURE psEnviArchivo\n\n***********************\n\n*send file\n\nPARAMETER pArc\n\ntcInFile = IIF(EMPTY(pArc),\"C:\\desaprg\\prueba\\CDDEmbargoM4.htm\", pArc)\n\nlcInFile = FILETOSTR(tcInFile)\n\nlcInFile64 = codifica(lcInFile)\n\n***\n\ndoc = CreateObject(\"MSXML2.DOMDocument\")\n\nhttp = CreateObject(\"MSXML2.XMLHTTP\")\n\nhttp.Open(\"POST\", \"http://desweb1:8001/portafolio/portafolio\", .F.)\n\nhttp.SetRequestHeader(\"SOAPAction\", \"enviaArchivoWebService\")\n\nhttp.SetRequestHeader(\"Content-Type\", \"text/xml\")\n\n**load file\n\nxml = fnArmaCadXml(\"A\", \"0091\", \"XXXX\", \"142\", lcInFile64, \"CDDEmbargoM5.htm\")\n\ndoc.LoadXML(xml)\n\nhttp.Send(doc.xml)\n\nres = CreateObject(\"MSXML2.DOMDocument\")\n\nresponse = http.responseText\n\n*?response\n\nres.LoadXML(http.responseText)\n\ntxt = res.selectSingleNode(\"//NroEnvioGenerado\") &amp;&amp;Return\n\nIF nvl(txt.text,\' \') = \" \" THEN\n\nTXT=\"ERROR EN WS \"\n\nENDIF\n\nwait window txt.text NOWAIT\n\n*? txt.text\n\nrelease doc\n\nrelease http\n\nrelease res\n\nrelease response\n\nRETURN\n\nFUNCTION decodifica\n\nPARAMETER pCadena\n\nLOCAL lcBinary, lnHandle, lnSize\n\nlnHandle = Base64DecoderCreate()\n\nIF lnHandle &gt; 0\n\nBase64DecoderPut(lnHandle, pCadena)\n\nBase64DecoderClose(lnHandle)\n\nlnSize = Base64DecoderMaxRetrievable(lnHandle)\n\nlcBinary = Base64DecoderGet(lnHandle, lnSize)\n\nBase64DecoderDestroy(lnHandle)\n\nELSE\n\nWAIT WIND \"ERROR al instanciar\"\n\nRETURN .F.\n\nENDIF\n\nRETURN lcBinary\n\n\n\nFUNCTION codifica\n\nPARAMETER pCadena\n\nLOCAL lcBase64, lcInFile, lnHandle, lnSize\n\nlnHandle = Base64EncoderCreate( .T. )\n\nIF lnHandle &gt; 0\n\nBase64EncoderPut(lnHandle, pCadena)\n\nBase64EncoderClose(lnHandle)\n\nlnSize = Base64EncoderMaxRetrievable(lnHandle)\n\nlcBase64 = Base64EncoderGet(lnHandle, lnSize)\n\nBase64EncoderDestroy(lnHandle)\n\nELSE\n\nWAIT WIND \"ERROR al instanciar\"\n\nRETURN .F.\n\nENDIF\n\nRETURN lcBase64\n\n\n\nFUNCTION fnArmaCadXml\n\n*********************\n\nPARAMETER pTOpe, pOpe, pClave, pAdu, pArch, pNomArch\n\nstrxml = [&lt;env:Envelope xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\"] + CHR(13)\n\nstrxml = strxml + [ xmlns:soapenc=\"http://schemas.xmlsoap.org/soap/encoding/\"] + CHR(13)\n\nstrxml = strxml + [ xmlns:env=\"http://schemas.xmlsoap.org/soap/envelope/\"] + CHR(13)\n\nstrxml = strxml + [ xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\"&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;env:Header&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;/env:Header&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;env:Body&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;m:enviaArchivoWebService xmlns:m=\"http://www.bea.com/education/webservices/examples/basic/javaclass\"] + CHR(13)\n\nstrxml = strxml + [ env:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\"&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;toperador xsi:type=\"xsd:string\"&gt;] + pTOpe + [&lt;/toperador&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;operador xsi:type=\"xsd:string\"&gt;] + pOpe + [&lt;/operador&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;clave xsi:type=\"xsd:string\"&gt;] + pClave + [&lt;/clave&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;aduana xsi:type=\"xsd:string\"&gt;] + pAdu + [&lt;/aduana&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;archivoEnvioByte xsi:type=\"xsd:base64Binary\"&gt;] + pArch + [&lt;/archivoEnvioByte&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;nombreArchivo xsi:type=\"xsd:string\"&gt;] + pNomArch+ [&lt;/nombreArchivo&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;/m:enviaArchivoWebService&gt;] + CHR(13)\n\nstrxml = strxml + [ &lt;/env:Body&gt;] + CHR(13)\n\nstrxml = strxml + [&lt;/\n\n\nThanks\n\nVladimir Zorrilla\n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->','',0,'','2sqtrxyf',1,0,'',471,0,0),(16149,3661,6,171,0,'71.232.193.197',1153595380,1,0,1,1,1,0,'','','Rene gracias por tu sugerencia.\n\nReinstale de nuevo el office -COMPLETO- pero sigo cn el mismo problema.\n\nEs como si un bloqueador no dejara que se escriba nada en el pop-up que presenta el help. Revise mis opcione de bloqueo pop-up y estan correcta.\n\nTratare google a ver si hay algo de esos metodos  \"Print labels/envelope\" para word\n\n\nGeorge\n\n\n[/img][/url][/list]','',0,'','2brzu8gm',1,0,'',171,0,0),(16150,3672,1,47,0,'203.144.143.2',1153598111,1,0,1,1,1,0,'','How can I use the Tsbrowse with Drag&amp;Drop feature?','Dear All,\n\nI would like to use Drag&amp;Drop feature but it didn\'t success.  Have anyone got the samples of this feature for TSbrowse?\n\nThanks&amp;Regards,\nDutch','',0,'','srk3ca4y',1,0,'',47,0,0),(16151,3673,7,215,0,'201.154.237.11',1153629786,1,0,1,1,1,0,'','Pockets PC, Smartphone, Palms ¿Cuál compro?','Pues eso, ya por fin instale el Emulador y he probado los ejemplos en están en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsof.com\">www.fivetechsof.com</a><!-- w -->.  Funcionan todos bien.\n\nPregunta:\n¿Cómo sé que el aparato que compre me va a funcionar los desarrollos hechos en fivewin para pocket pc?.\n\nPor lo que he estado leyendo en el foro lo único que necesito es comprar un aparato que tenga el Windows mobile 5 y desde luego el Fivewin para pocket pc.\n\n¿Estoy en lo correcto?\n\nGracias\nFernando Leal\nMéxico, DF','',0,'','s6q849sp',1,0,'',215,0,0),(16152,3640,4,13,0,'213.76.252.200',1153647593,1,0,1,1,1,0,'','','Antonio,\n\nI check key codes send to get control from Marchevka software keyboard . It\'s look like this:\n\n&#260; - 260 &#261; - 261\n&#262; - 262 &#263; - 263\n&#280; - 280 &#281; - 281\n&#321; - 321 &#322; - 322\n&#323; - 323 &#324; - 324\nÓ - 211 ó - 243\n&#346; - 346 &#347; - 347\n&#377; - 377 &#378; - 378\n&#379; - 379 &#380; - 380\n\nIn get control range key codes is limit to 32 - 256. Only one key codes include in this range - Ó and ó.\n\nRegards\nPawel','',0,'','3d2akn4f',1,0,'',13,0,0),(16153,3419,20,154,0,'151.81.5.61',1153661249,1,0,1,1,1,1,'','','Silvio, \n[quote=&quot;Silvio&quot;:2p0vkpb2]probabilmente è la stessa classe che usa andy per xmate infatti io e Garombo stiamo traducendo tutto [/quote:2p0vkpb2]\nnon darmi dei meriti che non ho, \npoi, io che non conosco l\'inglese!!!  <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nmi sembra un po\' troppo!','',0,'gA==','2p0vkpb2',1,0,'',154,0,0),(16154,282,20,154,0,'151.81.5.61',1153661500,1,0,1,1,1,1,'','','Ciao a tutti,\nil mio tempo per lo sviluppo è come la corrente alternata!\nspero di riprendere con un po\' più di disponibilità dopo le vacanze,\ninoltre anche questo caldo non aiuta...\n\nComunque grazie a EMG e a tutti per il supporto.','',0,'gA==','gnatordv',1,0,'',154,0,0),(16155,3674,6,141,0,'200.88.94.168',1153663407,1,0,1,1,1,1,'','Necesito una mano con hbzip','Hola a todos,\n\nA ver si alguien me puede aclarar esto, pues no me funciona como antes <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nRecien el mes pasado cambié a FWH2.7 (+xHarbour 0.99.60, provisto por AL).  Desde antes de eso, pero sobre todo ahora, la rutina de realizar respaldos no me funciona.  Aparece un \"Harbour Exception\" que no me permite seguir, el cual curge al invocar la funcion HB_ZIPFILE(), y simplemente se cancela la ejecución.\n\nPara permitirme probar si acaso era yo, tomé el ejemplo que aparece en la carpeta TEST de xHarbour.org, y lllevé este ejemplo a ejecución con FWH (simplemente le agregué el manejo con dialogos), y fue compilado con BUILDX.BAT que aparece en SAMPLES de FWH.  TODO FUNCIONO DE MARAVILLAS (puedo subir este ejemplo a Hyerload, si acaso es necesario), pero en la rutina de respaldos de nuestro sistema (invocando la misma funcion HB_ZIPFILE).... No me funciona!!!!\n\nHe creido que se trataba del makefile que utilizamos para crear nuestro sistema - en particular, las librerias y el orden en que son incluidas- y he intendado varias maneras de hacerlo, pero sin exito.\n\nNo se si alguien ya paso por esto, pero distribuir nuestro sistema sin la rutina de respaldo es incomodo para nuestros usuarios... siempre tengo la alternativa de colocar otro programa solo para esto, pero la distribución es algo incomoda.\n\n¿Alguien que pueda tenderme una mano?\n\nEste es nuestro Makefile (creado con HBMAKE):\n\n---------------------------------------\n#BCC\nVERSION=BCB.01\n#!ifndef BCB\nBCB = c:\\BORLAND\\BCC55\n#!endif\n\n#!ifndef BHC\nBHC = C:\\XHARBOUR\n#!endif\n\nRECURSE= NO\n\nCOMPRESS = NO\nEXTERNALLIB = YES\nXFWH = YES\nFILESTOADD =  1\nWARNINGLEVEL =  0\nUSERDEFINE =\nUSERINCLUDE =\nFWH = c:\\fwh27\nGUI = YES\nMT = NO\nSRC05 = c:\\db3\\db3p\\ss\\conta1\\wsfp\\xobj\nPROJECT = c:\\db3\\db3p\\ss\\conta1\\wsfp\\WSFPH.exe $(PR)\nOBJFILES = $(SRC05)\\wsfp.obj //\n $(SRC05)\\ADOCONN.obj //\n $(SRC05)\\ADORS.obj //\n $(SRC05)\\BITS.obj //\n.\n.\n.\n  $(SRC05)\\wNomiZ.obj //\n $(SRC05)\\wRpt_Spa.obj //\n $(SRC05)\\wCch_Cta.obj $(OB)\n\nPRGFILES =  wsfp.prg //\n ADOCONN.PRG //\n ADORS.PRG //\n BITS.PRG //\n.\n.\n.\n \\db3\\db3p\\ss\\conta1\\Nomina\\Win\\wNomiZ.prg //\n \\db3\\db3p\\ss\\conta1\\Nomina\\Win\\wRpt_Spa.prg //\n \\db3\\db3p\\ss\\conta1\\CCHICA\\Win\\wCch_Cta.prg $(PS)\n\nOBJCFILES = $(SRC05)\\VIEW_NET.obj $(OBC)\nCFILES = VIEW_NET.C $(OB)\nRESFILES = wsfp.rc\nRESDEPEN = wsfp.res\nTOPMODULE = \\DB3\\DB3P\\SS\\CONTA1\\WSFP\\WSFP.PRG\nLIBFILES = $(FWH)\\libx\\fivehx.lib $(FWH)\\lib\\fivehc.lib rtl.lib vm.lib gtgui.lib pcrepos.lib lang.lib macro.lib rdd.lib dbfntx.lib dbfcdx.lib dbffpt.lib hbsix.lib debug.lib common.lib pp.lib hbzip.lib $(BHC)\\lib\\sbuttonhx.lib $(BHC)\\lib\\btnget32x.lib\nEXTLIBFILES = hbzip.lib\nDEFFILE =\nHARBOURFLAGS =  -m  -w0\nCFLAG1 =  -OS $(CFLAGS) -d -c -L$(BHC)\\lib;$(FWH)\\lib\nCFLAG2 =  -I$(BHC)\\include;$(BCB)\\include\nRFLAGS =\nLFLAGS = -L$(BCB)\\lib\\obj;$(BCB)\\lib;$(BHC)\\lib -Gn -M -m -s -Tpe -x -aa -L$(FWH)\\lib\nIFLAGS =\nLINKER = ilink32\n\nALLOBJ = c0w32.obj $(OBJFILES) $(OBJCFILES)\nALLRES = $(RESDEPEN)\nALLLIB = $(LIBFILES) cw32.lib import32.lib\n.autodepend\n\n#DEPENDS\n\n#COMMANDS\n.cpp.obj:\n$(BCB)\\BIN\\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**\n\n.c.obj:\n$(BCB)\\BIN\\bcc32 -I$(BHC)\\include $(CFLAG1) $(CFLAG2) -o$* $**\n\n.prg.obj:\n$(BHC)\\bin\\harbour -D__EXPORT__ -n -go -I$(BHC)\\include $(HARBOURFLAGS) -I$(FWH)\\include -o$* $**\n\n.rc.res:\n$(BCB)\\BIN\\brcc32 $(RFLAGS) $&lt;\n\n#BUILD\n\n$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)\n    $(BCB)\\BIN\\$(LINKER) @&amp;&amp;!\n    $(LFLAGS) +\n    $(ALLOBJ), +\n    $(PROJECT),, +\n    $(ALLLIB), +\n    $(DEFFILE), +\n    $(ALLRES)\n!\n--------------------------------------------\n\nUso FWH2.7 + xHarbour 0.99.60 + Borland 5.5.1\n\nGracias anticipadas,','',0,'gA==','bhp7bgkr',1,0,'',141,0,0),(16156,3640,4,13,0,'213.76.252.200',1153663830,1,0,1,1,1,0,'','','Antonio,\n\nI create temporary solution for that - I create copy class tget and change keychar method eg:\n\n[code:qqnjbui3]\n      case &#40;nKey &gt;= 32 &#46;and&#46; nKey &lt; 256&#41; &#46;or&#46; PlCorCode &#40;@nKey&#41;\n[/code:qqnjbui3]\n\nwhere PlCorCode (nKey) is:\n\n[code:qqnjbui3]\nStatic Function PlCorCode &#40;nKey&#41;\n\n   Local i &#58;= 0\n   Local lOk &#58;= &#46;F&#46;\n\n   // key codes for PLWIN &#40;Marchevka keyboard&#41;\n   //                &#260;    &#262;    &#280;    &#321;    &#323;    Ó    &#346;    &#377;    &#379;\n   //                &#261;    &#263;    &#281;    &#322;    &#324;    ó    &#347;    &#378;    &#380;\n   Static aPlMar &#58;= &#123;260, 262, 280, 321, 323, 211, 346, 377, 379, ;\n                     261, 263, 281, 322, 324, 243, 347, 378, 380&#125;\n   Static aPlCor &#58;= &#123;165, 198, 202, 163, 209, 211, 140, 143, 175, ;\n                     185, 230, 234, 179, 241, 243, 156, 159, 191&#125;\n\n   If &#40;i &#58;= AScan &#40;aPlMar, nKey&#41;&#41; &gt; 0\n      nKey &#58;= aPlCor&#91;i&#93;\n      lOk &#58;= &#46;T&#46;\n   Endif\n\nReturn lOk\n[/code:qqnjbui3]\n\nRegards\nPawel','',0,'AIA=','qqnjbui3',1,0,'',13,0,0),(16157,3674,6,61,0,'201.217.168.152',1153674043,1,0,1,1,1,0,'','','Julio:\n\nNo uso xHarbour, pero puedes encontrar una solucion en\n<!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w --> ahí tienes\nBackUpBuilder que es gratuito y es para hacer respaldos.\n\n\nSaludos.\n\nRuben Fernandez.','',0,'AIA=','k0grhj63',1,0,'',61,0,0),(16158,3675,3,697,0,'59.95.67.131',1153674616,1,0,1,1,1,0,'','Serial / Com Port Communication in FWH','Dear Sir,\n\nWe have developed the software on the following platform :\n\nFivewin for Harbour ver 2.5\nHarbour for Borland C Compiler (downloaded from your Site only)\n\nOur application is for Retail Outlets / Department Stores &amp; runs very effectively for IBM\'s / Epson\'s / NCR\'s  Point of Sale (POS) machines.\n\nProblem :\n\nThe problem we are facing is about the Customer Display which is connected to the COM1 port &amp; we can display any Message on this (20 chr x 2 line) pole display which is working fine on PC\'s having Win 98 as OS.\n\nBut,  the same EXE file is not working on Pc which is having the OS as Win XP / Win 2000 Professional, the Screen remains blank !! some times the application / PC gets hanged also.\n\ni am unable to understand the problem ? \n\nso please guide us on : \n\nHow to display the Message on Customer display\'s line 1 &amp; line 2 (20 chr each) on Pc\'s having Win XP / Win 2K as Operating Systems ?\n\nIs there any specific change required to configure the COM Port under Win XP / Win 2K ?\n\nIs there any thing related to the Registry options ? \n\nHow to set the right parameters for COM port, using fivewin\'s Com port functions ( we are not using the xHBComm Lib)\n\nAgain I repeat, \n\nThe Application / EXE file which is working perfectly OK on WIN 98 PC,\nBut, it is not at all working on OS as Win XP / Win2k (the hardware parameters &amp; the PC also remains the same (we have a option of Multiple boot with either Win 98 / Win XP in the startup) \n\nSo, guide us urgently !\n\nThanks in advance \n\nVijay Kamat','',0,'AIA=','3ggtppkf',1,0,'',697,0,0),(16159,3673,7,2,0,'81.42.6.85',1153686014,1,0,1,1,1,1,'','','Fernando,\n\nTambién te funcionará si tiene Windows Mobile 2003, que es anterior.','',0,'AIA=','1f2uvxoc',1,0,'',2,0,0),(16160,3640,4,2,0,'81.42.6.85',1153686094,1,0,1,1,1,1,'','','Pawel,\n\nVery good <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3viqzot3',1,0,'',2,0,0),(16161,3676,3,139,0,'62.1.234.49',1153686554,1,0,1,1,1,0,'','_HB_FUN_CHECKBMPPAL','Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_CHECKBMPPAL\' referenced from C:\\FW24\\TSBROWSE\\FBTEST.OBJ\nError: Unresolved external \'_HB_FUN_COMBOWBLOCK\' referenced from C:\\FW24\\TSBROWSE\\FBTEST.OBJ\n <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> \nThenks','',0,'AIA=','bix6n8d7',1,0,'',139,0,0),(16162,3626,20,49,0,'62.13.172.78',1153694086,1,0,1,1,1,1,'','','ok eccotelo\n[code:1wdadfd1]\n// esempio  test \n\n#include &quot;fivewin&#46;ch&quot;\n\n//#include &quot;tsbutton&#46;ch&quot;\n\n\nSTATIC aBtn\nFunction test\nLocal oWnd,aBtn,totarray,n,fila\n\nLOCAL OmbrxFila &#58;= 20\nLOCAL FileOmbr &#58;= 8\nlocal oFont ,oFont2  , oFont3\n\n// configurazione spiaggia\n   totarray &#58;=  OmbrxFila*FileOmbr\n   aBtn &#58;= Array&#40;totarray&#41;\n\nn    &#58;= 1\nfila &#58;= 60\n\n\nDEFINE FONT oFont NAME &quot;Ms Sans Serif&quot;  SIZE 0, -10 BOLD\nDEFINE FONT oFont2 NAME &quot;Arial&quot; SIZE 0,-16 BOLD\nDEFINE FONT oFont3 NAME &quot;Arial&quot; SIZE 0,-10\n\n\n// visualizzazione delle poltrone\n\nDEFINE WINDOW  oWnd  COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41; ;\nTITLE \'Visualizazzione \'\nFOR i &#58;= 1 TO FileOmbr\nnPassLarg &#58;=  0\ncol &#58;= 10\nFOR k &#58;= 1 TO OmbrxFila\n\n               cAction &#58;= &quot;miazione&#40;&quot;+Str&#40;n&#41;+&quot;&#41;&quot;\n               bAction &#58;= &#123;|| &amp;cAction &#125;\n               bWhen   &#58;= &#123;|| &#46;T&#46; &#125;\n               bValid  &#58;= &#123;|| &#46;T&#46;  &#125;\n               cCaption &#58;= &quot;&quot;\n\n\naBtn&#91;n&#93;&#58;=TButton&#40;&#41;&#58;New&#40; fila, &#40;Col+nPassLarg&#41;, cCaption,oWnd,bAction, 40, 40,,oWnd&#58;oFont,,&#46;t&#46;,&#46;f&#46;,&quot;&quot;,&#46;t&#46;,bWhen,bValid,&#46;f&#46;&#41;\n\n\n/*\n@ Fila,&#40;Col+nPassLarg&#41; SBUTTON  aBtn&#91;n&#93; RESOURCE &quot;omb3&quot;   PIXEL;\n               OF oWnd ;\n               FONT oFont2 ;\n               CAPTION cCaption ;\n               COLOR CLR_WHITE, GetSysColor&#40;15&#41;  ;\n               TEXT ON_CENTER ;\n               NOBOX       ;\n               TOOLTIP oemtoansi&#40;cCaption&#41; ;\n               ACTION Miazione&#40;aBtn&#91;n&#93;&#41;\n\n                      */\n col += 75\n                    n++\n                   // &#40;oDCam&#41;-&gt;&#40;dbskip&#40;&#41;&#41;\n                    NEXT\n                    fila +=75\n                    NEXT\n\n\n\n\n\n\nACTIVATE WINDOW oWnd MAXIMIZED\nreturn nil\n\n\n\n\n\n\n// dovrebbe visualizzare un menupopup vicino al bottone\n\n\n  function miazione&#40;n&#41;\n  Local oMenu, aRect ,nRow,nCol\n\n  cpoltrona&#58;= Val&#40;aBtn&#91;n&#93;&#58;cCaption&#41;\n    ?cpoltrona\n     aRect &#58;= GetClientRect&#40; aBtn&#58;hWnd &#41;\n\n    MENU oMenu POPUP\n         MENUITEM &quot;&amp;Nuova prenotazione&quot;     action OCCUPARE&#40;cpoltrona,&#46;t&#46;&#41;\n         MENUITEM &quot;&amp;Modifica prenotazione&quot;  action OCCUPARE&#40;cpoltrona,&#46;f&#46;&#41;\n         MENUITEM &quot;&amp;Mostra prenotazione&quot;\n      ENDMENU\n      ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF  aBtn\n\n      RETURN NIL\n\n\n\n// dovrebbe visualizzare il numero della poltrona\n\n FUNCTION OCCUPARE&#40;cpoltrona,lnew&#41;\n\n   Local oDlg\n\n\n       nmsgbox&#40;cpoltrona&#41;\n\n\nreturn nil\n\n\n[/code:1wdadfd1]\n\n\nNon ti curare della Tsbutton  ho messo i comandi per un bottone semplice\n\nHo compilato e visualizza i bottoni semplici \nVorrei inviare per ogni bottone un menu popup il quale poi inviasse ad una funzione di inserimento ovviamente passando una variabile : il numero del bottone.','',0,'AIA=','1wdadfd1',1,0,'',49,0,0),(16163,3637,3,49,0,'62.13.172.78',1153694497,1,0,1,1,1,1,'','','yes ok I understand..but \nbut in my source How I can make it ?\n\nRegards','',0,'AIA=','2s0i6hc2',1,0,'',49,0,0),(16164,3677,2,66,0,'200.127.253.40',1153695619,1,0,1,0,1,0,'','Ayuda Rango de Fechas desde-hasta','Estimados Colegas\n\nTengo el siguiente problema con rangos de fecha, quiero saber por\nejemplo la cantidad de $ que vendi de tal fecha , con algunas fechas\nme tira el monto correcto , con otras me tira 0 , alguien me puede\norientar que estoy haciendo mal, adjunto Codigo\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n\n\n\nfunction VDYM\n\n\nlocal odlg1\nlocal nStyle := nOr( WS_POPUP,    ; // System menu de  oDlg\n			 WS_MAXIMIZE ) // botón maximize habilitado y botón minimize deshabilitado\n\nlocal ofecha\n\n\nSET DATE FRENCH\ndesde:= CToD(\"  /  /  \")\nhasta:= CToD(\"  /  /  \")\n\nDEFINE FONT oFont    NAME \"ARIAL\" SIZE 0,-13.70 BOLD\n\n\nSele 11\nUSE FACTURA\niNDEX on factura-&gt;fecha to ddto\nset index to ddto\n\n\n\nDEFINE DIALOG oDlg1 from 10,35 to 20,70  STYLE nStyle  COLOR CLR_BLUE,CLR_6 &amp;&amp; of oDlg\n\n   @ 0 ,03 say  ofecha Prompt \"VENTAS DIARIAS Y MENSUALES \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n   @ 1.5 ,06 say  ofecha Prompt \"Desde \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n   @ 2.5 ,06 say  ofecha Prompt \"Hasta \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n\n   @ 1.7 ,8 get  desde of  odlg1\n   @ 2.7 ,8 get  hasta of  odlg1\n\n\n   @ 5 ,2 sbutton  b   resource \"ok\" PROMPT  \"Aceptar\" size 40,10  OF oDlg1  LOOK W97 TEXT ON_RIGHT action vdm(desde,hasta,odlg1,ofont)\n   @ 5 , 10 sbutton  b resource \"cancel\" PROMPT  \"Cancelar\" size 40,10  OF oDlg1  LOOK W97 TEXT ON_RIGHT action(exi(odlg1))\n\n\nACTIVATE DIALOG oDlg1 CENTERED\n\nreturn nil\n\n\n\n\nfunction vdm(desde,hasta,odlg1,ofont)\n\nlocal odlgv\nlocal TO1,EF1,TA1\n\nlocal nStyle1 := nOr( WS_POPUP,    ; \n			 WS_MAXIMIZE ) o\n\n\nSELE 11\nUSE FACTURA\n\n\nSUM factura-&gt;total to PTOTAL  FOR factura-&gt;fecha &gt;= desde .AND. factura-&gt;fecha &lt;= hasta\n\n? Ptotal','',0,'AIA=','3pp0ztan',1,0,'',66,0,0),(16165,3678,6,66,0,'200.127.253.40',1153695681,1,0,1,0,1,0,'','Ayuda Rango de Fechas desde-hasta','Estimados Colegas\n\nTengo el siguiente problema con rangos de fecha, quiero saber por\nejemplo la cantidad de $ que vendi de tal fecha , con algunas fechas\nme tira el monto correcto , con otras me tira 0 , alguien me puede\norientar que estoy haciendo mal, adjunto Codigo\n\nGracias\nFabian\n\n\n\n\n\n\nfunction VDYM\n\n\nlocal odlg1\nlocal nStyle := nOr( WS_POPUP,    ; // System menu de  oDlg\n			 WS_MAXIMIZE ) // botón maximize habilitado y botón minimize deshabilitado\n\nlocal ofecha\n\n\nSET DATE FRENCH\ndesde:= CToD(\"  /  /  \")\nhasta:= CToD(\"  /  /  \")\n\nDEFINE FONT oFont    NAME \"ARIAL\" SIZE 0,-13.70 BOLD\n\n\nSele 11\nUSE FACTURA\niNDEX on factura-&gt;fecha to ddto\nset index to ddto\n\n\n\nDEFINE DIALOG oDlg1 from 10,35 to 20,70  STYLE nStyle  COLOR CLR_BLUE,CLR_6 &amp;&amp; of oDlg\n\n   @ 0 ,03 say  ofecha Prompt \"VENTAS DIARIAS Y MENSUALES \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n   @ 1.5 ,06 say  ofecha Prompt \"Desde \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n   @ 2.5 ,06 say  ofecha Prompt \"Hasta \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n\n   @ 1.7 ,8 get  desde of  odlg1\n   @ 2.7 ,8 get  hasta of  odlg1\n\n\n   @ 5 ,2 sbutton  b   resource \"ok\" PROMPT  \"Aceptar\" size 40,10  OF oDlg1  LOOK W97 TEXT ON_RIGHT action vdm(desde,hasta,odlg1,ofont)\n   @ 5 , 10 sbutton  b resource \"cancel\" PROMPT  \"Cancelar\" size 40,10  OF oDlg1  LOOK W97 TEXT ON_RIGHT action(exi(odlg1))\n\n\nACTIVATE DIALOG oDlg1 CENTERED\n\nreturn nil\n\n\n\n\nfunction vdm(desde,hasta,odlg1,ofont)\n\nlocal odlgv\nlocal TO1,EF1,TA1\n\nlocal nStyle1 := nOr( WS_POPUP,    ; \n			 WS_MAXIMIZE ) o\n\n\nSELE 11\nUSE FACTURA\n\n\nSUM factura-&gt;total to PTOTAL  FOR factura-&gt;fecha &gt;= desde .AND. factura-&gt;fecha &lt;= hasta\n\n? Ptotal','',0,'AIA=','11bm2jev',1,0,'',66,0,0),(16166,3672,1,47,0,'203.144.143.3',1153711160,1,0,1,1,1,0,'','I\'ve got it.  (Sorry for this question)','Dear All,\n\nI\'ve got it and sorry for stupid question.\n\nRegards,\nDutch','',0,'AIA=','1chth4g3',1,0,'',47,0,0),(16167,3678,6,61,0,'201.217.168.176',1153716428,1,0,1,1,1,0,'','','Fabian:\n\nPrueba a hacer el índice de fecha dtos(fecha)\nSele 11\nUSE FACTURA\niNDEX on dtos(fecha) to ddto\nset index to ddto \n\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','4d3vs7ii',1,0,'',61,0,0),(16168,3649,6,449,0,'212.64.224.244',1153721814,1,0,1,1,1,1,'','','Hola Rene,\n\nGracias. Voy a revisarlo.','',0,'AIA=','1tutrxdl',1,0,'',449,0,0),(16169,3670,6,2,0,'81.42.2.231',1153722929,1,0,1,1,1,1,'','','Vladimir,\n\nLo vamos a revisar y te comentamos.','',0,'AIA=','37rz4coq',1,0,'',2,0,0),(16170,3675,3,2,0,'81.42.2.231',1153723314,1,0,1,1,1,1,'','','Vijay,\n\nFWH 2.7 July 2006 build has important changes on COM management functions. We suggest you to upgrade.\n\nIf you send us a small and self contained sample, then we can confirm you if it works ok on XP/NT using it. Thanks,','',0,'AIA=','2b0p3iy5',1,0,'',2,0,0),(16171,3671,3,2,0,'81.42.2.231',1153723445,1,0,1,1,1,1,'','','Vladimir,\n\nWe are going to review it asap.','',0,'AIA=','rhpuypqg',1,0,'',2,0,0),(16172,3417,3,49,0,'213.82.134.66',1153724973,1,0,1,1,1,1,'','To all : help me pls!!!!!','For the tsbutton and the child03 sample all ok but \nI want create a windows with many button ( with tsbutton)\n[code:30ui05q6]\n\n// esempio  test \n\n#include &quot;fivewin&#46;ch&quot; \n\n#include &quot;tsbutton&#46;ch&quot; \n\n\nSTATIC aBtn \nFunction test \nLocal oWnd,aBtn,totarray,n,fila \n\nLOCAL OmbrxFila &#58;= 20 \nLOCAL FileOmbr &#58;= 8 \nlocal oFont ,oFont2  , oFont3 \n\n// array\n   totarray &#58;=  OmbrxFila*FileOmbr \n   aBtn &#58;= Array&#40;totarray&#41; \n\nn    &#58;= 1 \nfila &#58;= 60 \n\n\nDEFINE FONT oFont NAME &quot;Ms Sans Serif&quot;  SIZE 0, -10 BOLD \nDEFINE FONT oFont2 NAME &quot;Arial&quot; SIZE 0,-16 BOLD \nDEFINE FONT oFont3 NAME &quot;Arial&quot; SIZE 0,-10 \n\n\n// vshow buttons\n\nDEFINE WINDOW  oWnd  COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41; ; \nTITLE \'Visualizazzione \' \nFOR i &#58;= 1 TO FileOmbr \nnPassLarg &#58;=  0 \ncol &#58;= 10 \nFOR k &#58;= 1 TO OmbrxFila \n\n              \n\nbAction &#58;= &#123;|oBtn| oBtn&#58;cCaption &#58;= &quot;&quot;, oBtn&#58;Disable&#40; VK_RBUTTON &#41;, oBtn&#58;Refresh&#40;&#41; &#125; \n\n\n\n\n\n@ Fila,&#40;Col+nPassLarg&#41; SBUTTON  aBtn&#91;n&#93; RESOURCE &quot;omb3&quot;   PIXEL; \n               OF oWnd ; \n               FONT oFont2 ; \n               CAPTION cCaption ; \n               COLOR CLR_WHITE, GetSysColor&#40;15&#41;  ; \n               TEXT ON_CENTER ; \n               NOBOX       ; \n               TOOLTIP oemtoansi&#40;cCaption&#41; ; \n               ACTION bAction\n\n                    \n               col += 75 \n                    n++ \n                   // &#40;oDCam&#41;-&gt;&#40;dbskip&#40;&#41;&#41; \n                    NEXT \n                    fila +=75 \n                    NEXT \n\n\n\n\n\n\nACTIVATE WINDOW oWnd MAXIMIZED \nreturn nil \n\n\n\n\n\n\n// dovrebbe visualizzare un menupopup vicino al bottone \n\n\n  function MEnupopup&#40;&#41;\n  Local oMenu, aRect ,nRow,nCol \n\n  cpoltrona&#58;= Val&#40;aBtn&#91;n&#93;&#58;cCaption&#41; \n    ?cpoltrona \n     aRect &#58;= GetClientRect&#40; aBtn&#58;hWnd &#41; \n\n    MENU oMenu POPUP \n         MENUITEM &quot;&amp;Nuova prenotazione&quot;     action OCCUPARE&#40;cpoltrona,&#46;t&#46;&#41; \n         MENUITEM &quot;&amp;Modifica prenotazione&quot;  action OCCUPARE&#40;cpoltrona,&#46;f&#46;&#41; \n         MENUITEM &quot;&amp;Mostra prenotazione&quot; \n      ENDMENU \n      ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF  aBtn \n\n      RETURN NIL \n\n\n\n// dovrebbe visualizzare il numero della poltrona \n\n FUNCTION OCCUPARE&#40;cpoltrona,lnew&#41; \n\n   Local oDlg \n\n\n       nmsgbox&#40;cpoltrona&#41; \n\n\nreturn nil \n\nStatic Function fCancel&#40; oBtn &#41; \n\n   MsgInfo&#40; &quot;Reservation Canceled&quot; &#41; \n   oBtn&#58;Enable&#40;&#41; \n   oBtn&#58;cCaption &#58;= oBtn&#58;Cargo \n   oBtn&#58;Refresh&#40;&#41; \n\nReturn Nil \n\n\n[/code:30ui05q6]\n\n\n\n\nBut there is something not run  and I wanted to show the function menupoppu at each buttons and each button must give me the number of button\nHow I can I make it ?','',0,'AIA=','30ui05q6',1,0,'',49,0,0),(16173,3679,1,47,0,'203.144.143.3',1153734556,1,0,1,1,1,0,'','How can I get data from each column of TSbrowse?','Dear All,\n\nI need and informatioin from TSbrowse but I don\'t konw how to get it when I click on column in each TSbrowse (cCaption or cText) .  \n\nBest regards,\nDutch','',0,'AIA=','2y8pmcta',1,0,'',47,0,0),(16174,3679,1,58,0,'84.149.246.111',1153735460,1,0,1,1,1,0,'','','Sorry Dutch,\n\ni don\'t understand. What information do you want from your browse? \n\nRegards,\nDetlef','',0,'AIA=','3kbhqg91',1,0,'',58,0,0),(16175,3679,1,58,0,'84.149.238.25',1153736596,1,0,1,1,1,0,'','','Hi Dutch,\n\nmay be, you mean this ? \n\n[color=blue:3mx2c762][i:3mx2c762]oBrw:aColumns[ oBrw:nAtCol ]:cHeading[/i:3mx2c762][/color:3mx2c762]\n\nRegards,\nDetlef','',0,'Ig==','3mx2c762',1,0,'',58,0,0),(16176,3680,6,533,0,'88.9.20.33',1153737722,1,0,1,1,1,0,'','Cliente / Servidor','Hola Foro:\n\n     Necesito iniciarme en esta estructura.  ¿Sabeis de un sitio donde me propongan ejemplos, herramientas a utilizar, etc. . . ? Me han comentado Mysql, advantage, pero no se por donde empezar. Tambien he intentado configurar el advantage en una pequeña red de area local, pero que va, tengo algunas lagunas que me hacen NO poder avanzar. Como siempre agradecería un ejemplo por muy pequeño que fuera, que luego ya me encargo yo. UN SALUDO y muchas gracias.','',0,'Ig==','25nipceq',1,0,'',533,0,0),(16177,3679,1,47,0,'203.144.143.2',1153740520,1,0,1,1,1,0,'','Data in each specific Row and Column','Dear Detlef,\n\nThanks for prompt reply.  I mean the text in each column of sbrowse.\nfor examples\n          Firstname   Lastname    Age\n1        Kevin         Smith           30\n2        John           Dely            25\n3        David         Sim              28\n4        Ken            Donald         34\n\nWhen I click on column Firstname and row no. 2.  The information I need is \"John\".\n\nRegards,\nDutch','',0,'Ig==','2emrgbos',1,0,'',47,0,0),(16178,3679,1,47,0,'203.144.143.2',1153741786,1,0,1,1,1,0,'','I found  Eval( oBrw:aColumns[ oBrw:nAtCol(nCol) ]:bData ) )','Dear Detlef,\n\nThanks for your help, I\'ve got it.  \n\nEval( oBrw:aColumns[ oBrw:nAtCol( nCol ) ]:bData )\n\n\nRegards,\nDutch','',0,'Ag==','9inv5gxr',1,0,'',47,0,0),(16179,3626,20,6,0,'87.11.229.242',1153742981,1,0,1,1,1,1,'','','Eccoti un esempio funzionante. Spero di aver capito bene cosa ti serviva:\n\n[code:2wwv2gay]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL aBtn &#58;= &#123;&#125;\n\n    LOCAL n &#58;= 1\n\n    LOCAL i, j\n\n    DEFINE WINDOW oWnd\n\n    FOR i = 1 TO 3\n        FOR j = 1 TO 3\n            AADD&#40; aBtn, MAKEBUTTON&#40; i * 3, j * 9, n++ &#41; &#41;\n        NEXT\n    NEXT\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MAKEBUTTON&#40; nRow, nCol, n &#41;\n\n    LOCAL oBtn\n\n    @ nRow, nCol BUTTON oBtn PROMPT &quot;Test&quot;;\n                 SIZE 50, 50;\n                 ACTION MAKEMENU&#40; oBtn, n &#41;\n\n    RETURN oBtn\n\n\nSTATIC FUNCTION MAKEMENU&#40; oBtn, n &#41;\n\n    LOCAL oMenu\n\n    MENU oMenu POPUP\n        MENUITEM &quot;Button number?&quot; ACTION MSGINFO&#40; n &#41;\n    ENDMENU\n\n    ACTIVATE MENU oMenu AT 0, 0 OF oBtn\n\n    RETURN NIL[/code:2wwv2gay]\n\nEMG','',0,'AIA=','2wwv2gay',1,0,'',6,0,0),(16180,3674,6,141,0,'200.5.201.229',1153743478,1,0,1,1,1,1,'','','Gracias por tu sugerencia...\n\nNo encontre nada de BackupBuilder, sino mas bien algo llamado EasyBackup.\n\nVere esto, pero si alguien mas tiene otra sugerencia, seria agradecido !  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1jd3ogq9',1,0,'',141,0,0),(16181,3679,1,58,0,'84.149.211.201',1153743950,1,0,1,1,1,0,'','Re: I found  Eval( oBrw:aColumns[ oBrw:nAtCol(nCol) ]:bData','[quote=&quot;dutch&quot;:36t0r75q]Dear Detlef,\n\nThanks for your help, I\'ve got it.  \n\nEval( oBrw:aColumns[ oBrw:nAtCol( nCol ) ]:bData )\n\n\nRegards,\nDutch[/quote:36t0r75q]\n\nHi Dutch\n\nglad you found this out.\n\nIf you take the following suggestion you don\'t need to pass a column number.\n [color=darkblue:36t0r75q]eval( oBrw:aColumns[ oBrw:nCell ]:bData )[/color:36t0r75q] \n\nBest regards,\nDetlef','',0,'gg==','36t0r75q',1,0,'',58,0,0),(16182,3621,7,428,0,'200.55.19.126',1153749357,1,0,1,1,1,0,'','','Joaqui, \nEn FPPC no se si se puede hacer, pero seguro que en C++ se puede lograr, yo hice algo asi para comunicar un instrumento por puerto Infrarojo del Pocket Pc, el programa en C actua como socket y luego lo comunico a Fivewin.\nSi no consigues otra solución, quizas se podria intentar programarla.\n\nSaludos\nMiguel','',0,'gg==','3e291xnx',1,0,'',428,0,0),(16183,3678,6,215,0,'201.137.125.141',1153749788,1,0,1,1,1,0,'','yo lo haría asi','// De ésta manera recorres toda la base de FACTURA.\n\nfunction vdm(desde,hasta,odlg1,ofont) \n\nlocal nTotal := 0\n\nFACTURA-&gt;( dbgotop() )\n\nwhile FACTURA-&gt;( !eof() )\n  if FACTURA-&gt;FECHA &gt;= desde AND FACTURA-&gt;FECHA &lt;= hasta\n     nTotal+= FECHA-&gt;TOTAL\n  endif\n  FACTURA-&gt;( dbskip() )\nenddo\n\n?nTotal\n\n\n// De ésta otra manera, como tienes FACTURA indexado por FECHA entonces primero hago una busqueda para ver si hay fechas, sino para que barrer toda la base\n\nfunction vdm(desde,hasta,odlg1,ofont) \nlocal dBus := desde\nlocal nTotal := 0\nlocal lExiste := FALSE\n\n\nwhile dBus &lt;= hasta\n   FACTURA-&gt;( dbgotop() )\n   if FACTURA-&gt;( dbseek( dBus ) )\n      lExiste := TRUE\n      exit\n   endif\n   dBus++\nenddo\n\nif !lExiste\n   msgstop(\"No hay registros en el rango de fechas\",\"Aviso)\nendif\n\n\n// a partir de aquí como ya está posicionado en la primera fecha que halló, solo voy sumando el TOTAL\n\nwhile FACTURA-&gt;( !eof() )\n  if FACTURA-&gt;FECHA &gt;= desde AND FACTURA-&gt;FECHA &lt;= hasta\n     nTotal+= FECHA-&gt;TOTAL\n  endif\n  FACTURA-&gt;( dbskip() )\nenddo\n\n?nTotal\n\n\nSaludos\nFernando Leal','',0,'gg==','32dc0dw3',1,0,'',215,0,0),(16184,3585,7,428,0,'200.55.19.126',1153749978,1,0,1,1,1,0,'','','Gracias Rene, muy interesante la información.\n\nSaludos\nMiguel','',0,'gg==','3mkr3z7y',1,0,'',428,0,0),(16185,3629,1,684,0,'69.159.107.129',1153750797,1,0,1,1,1,0,'','','Bonjour Mr Badara,\nMerci pour votre message. A propos de Clipper, et apres une recherche sur le net, j\'ai trouvé un produit intitulé C3, Clipper compatible Compiler. As-tu une idée sur ce produit ? est-ce que c\'est la vraie version de Clipper sous windows.\nVoici le lien: <!-- w --><a class=\"postlink\" href=\"http://www.c3compiler.com\">www.c3compiler.com</a><!-- w -->\n\nMerci pour votre aide.\nAbdel','',0,'gg==','3bwxjm2h',1,0,'',684,0,0),(16186,3681,6,471,0,'201.240.37.91',1153751191,1,0,1,1,1,1,'','Como desgargo un archivo desde xharbour en una ruta fija','Como desgargo un archivo desde xharbour en una ruta fija sin q el usuario ponga la ruta\n\nlo hago asi pero el usuario no quiere digiutar la ruta\n\n\nWaitRun(iexplore()+\"http://www.aduanet.gob.pe/aduanas/sgdbf/Vehiculos.zip\")\n\n\nGracias','',0,'gg==','29kk7fvw',1,0,'',471,0,0),(16187,3682,3,471,0,'201.240.37.91',1153751950,1,0,1,1,1,1,'','As download a file from xharbour in a fixed route without q','WaitRun(iexplore()+\"http://www.aduanet.gob.pe/aduanas/sgdbf/Vehiculos.zip\")\n\nAs download a file from xharbour in a fixed route without q the users the route','',0,'gg==','1ne3u2ee',1,0,'',471,0,0),(16188,3417,3,343,0,'204.57.111.194',1153753045,1,0,1,1,1,0,'','','What about adding the number to the cargo. \naBtn[n]:cargo := n','',0,'','pyvpo7gh',1,0,'',343,0,0),(16189,3679,1,303,0,'72.199.41.171',1153753306,1,0,1,1,1,0,'','','Dutch,\n\nIf you are browsing a database, the database pointer is at the record that is being displayed, so you can read the data right out of the database.\n\nJames','',0,'','aipmapi6',1,0,'',303,0,0),(16190,2862,1,303,0,'72.199.41.171',1153753900,1,0,1,1,1,0,'','','Rajeev,\n\n&gt;Is there step by guide available for Harbor or xHarbor ?\n\nThis site might help.\n\n<!-- m --><a class=\"postlink\" href=\"http://culikr.sites.uol.com.br/howtoen.htm\">http://culikr.sites.uol.com.br/howtoen.htm</a><!-- m -->\n\nJames','',0,'','1z4n62o5',1,0,'',303,0,0),(16191,3669,6,40,0,'200.77.120.101',1153755857,1,0,1,1,1,0,'','','Mario este es un ejemplo de una Formula :\n\n@nrow,01 XLS FORMULA _Cell(10,1)+_Cell(10,1)  FONT nFont2 OF oFileXLS\n\no\n\n@nrow,01 XLS FORMULA _SUM(2,3, 3,3)  FONT nFont2 OF oFileXLS\n\nSaludos espero te funcione\nJoel Andujo','',0,'','1x59z1g7',1,0,'',40,0,0),(16192,3683,6,215,0,'201.137.125.141',1153757304,1,0,1,1,1,0,'','OLE y bases de Access','¿Es posible abrir una base de access con OLE?\n¿Es posible correr un formulario de impresión ya hecho en access desde fivewin con OLE?\n\nO \n\n¿Hay otra manera aparte de OLE?. \n\nGracias\nFernando Leal','',0,'','tsnch1vj',1,0,'',215,0,0),(16193,3629,1,170,0,'83.179.198.139',1153758329,1,0,1,1,1,1,'','','Bonjour Mr Abdel,\n\nJ\'ai lu moi aussi quelques infos sur le net concernant C3\nmais je ne l\'ai pas testé. Je ne sais pas non plus si on peut le tester.\n\nJe pense que c\'est ici le bon forum pour en parler.\n\nJe développe depuis début 1987 sous Clipper.\nActuellement j\'utilise :\n\nSous DOS : Clipper 5.3b + CATOOLS 3, Blinker 7.0, Light Lib ou FGL\nSous Windows : Clipper 5.3b, Blinker 7.0, Fivewin 2.5, API Windows (*)\n\n(*) Avant tout pour remplacer des fonctions CATOOLS 3, qui n\'est pas\ncompatible avec Fivewin et plus généralement avec les applications\nWindows.\n\nCordialement,','',0,'','8si8r4eg',1,0,'',170,0,0),(16194,3626,20,49,0,'62.13.172.78',1153758542,1,0,1,1,1,1,'','','si qualcosa del genere ma io devo usare un archivio per vedere se quella poltrona è occupata . nella creazione dei bottoni devo fare già questo controllo ovvero devo mettere un bottone con il disegnino rosso se è occupato o verde se è libera ( la poltrona)\nvabbè adesso provo ...','',0,'','2nmep0px',1,0,'',49,0,0),(16195,3626,20,49,0,'62.13.172.78',1153758635,1,0,1,1,1,1,'','','con la classe sbutton se uso sbgroup riesco a farlo benissimo se uso un singolo tsbutton non riesco a farlo  non so se hai presente la tsbutton ..','',0,'','1z9jxp6w',1,0,'',49,0,0),(16196,3417,3,49,0,'62.13.172.78',1153759230,1,0,1,1,1,1,'','','Dear Gale,\nYou Know the sample child03 of the testbtn.prg of tsbutton ?\nI must make a window where I can show many seats but I must  use also a dbf to control if a seat is free or not.\nI must create 20 seats for 8 lines ( 20x8) with tsbutton and write on it the number of the seat\nWhen I click on each seat the program must show me a menu popup near to button and then I can insert the reservation but I need the number of the seat to make it .\nI hope you understand me \nI hope you can help me .....','',0,'','1t39ynak',1,0,'',49,0,0),(16197,3629,1,684,0,'69.159.107.129',1153760061,1,0,1,1,1,0,'','','Bonjour Mr Badara,\nMerci pour votre prompte réponse. En fait, moi aussi, je développe depuis les années 90 (depuis la version 5.0) et j\'utilise actuellement les librarires citées comme suit:\n\n- Clipper 5.2c eventuellement, CA-TOOLS, CMATES, DGE5 et Light Lib pour le graphisme, Nanfor et Super5.\n- Toutefois, je voudrais développer sous windows et je n\'arrive pas utiliser fivewin. Peux-tu me donner plus d\'infos (j\'ai essayé de compiler un exemple de fivewin avec le fichier build.bat, mais apparement, il y avait une erreur, quand je clique sur le programme exe, il me donne une fenetre comme quoi le programme a effectué une opération illégal.. C\'est un message de windows).\n\nJ\"ai essayé de t\'envoyer un MP, mais ca marche pas. En outre, je suis entrain de développer ma propre librairie avec mes fonctions (fichier .lib).\nMerci.\nAbdel','',0,'','37ep8d72',1,0,'',684,0,0),(16198,3684,2,542,0,'88.7.13.232',1153760885,1,0,1,1,1,0,'','como manejar textos con FW','Hola amigos:\n\nMe podeis orientar, como puedo manejar archivos de texto como si fuera Word o algo parecido, pudiendo intercala en el texto campos de un fichero. El ejemplo mas practico seria el poder escribir una carta y enviarla a todos mis clientes personalizada.\n\nGracias.','',0,'','3p6udlbm',1,0,'',542,0,0),(16199,3629,1,684,0,'69.159.107.129',1153762085,1,0,1,1,1,0,'','','Mr Badara,\nC\'est bon, j\'ai trouvé l\'astuce. Maintenant, je pourrai créer facilement des applications windows.\n\nMerci.\nAbdel','',0,'','2kd919f3',1,0,'',684,0,0),(16200,3681,6,138,0,'201.128.111.188',1153763369,1,0,1,1,1,1,'','','Utiliza la clase TURL de xHarbour, esta clase tiene una propiedad que te permite tanto descargar directamente un archivo como guardarlo en cualquier unidad del disco.','',0,'','2jf13h3g',1,0,'',138,0,0),(16201,3680,6,138,0,'201.128.111.188',1153763467,1,0,1,1,1,1,'','','Antes de hacer el ejemplo con el cliente, tienes que tener instalado el servidor, asi que si nos puedes plantear tus dudas con los servidores, con gusto te ayudamos.\n\nLo del cliente viene despues, primero tenemos que instalar el servidor.','',0,'','2b6j7pq0',1,0,'',138,0,0),(16202,3670,6,138,0,'201.128.111.188',1153763963,1,0,1,1,1,1,'','','Estoy mirando que eso utiliza OLE, simplemente con xHarbour puedes hacer:\n\n[code:3vpi2s4b]Function psEnviArchivo&#40;pArc&#41;\n\n***********************\n*envia archivo\n\ntcInFile = IIF&#40;EMPTY&#40;pArc&#41;,&quot;C&#58;\\desaprg\\prueba\\CDDEmbargoM4&#46;htm&quot;, pArc&#41;\n\n***\n\ndoc = TOleAuto&#40;&#41;&#58;New&#40;&quot;MSXML2&#46;DOMDocument&quot;&#41;\nhttp = TOleAuto&#40;&#41;&#58;New&#40;&quot;MSXML2&#46;XMLHTTP&quot;&#41;\n\nhttp&#58;Open&#40;&quot;POST&quot;, &quot;http&#58;//desweb1&#58;8001/portafolio/portafolio&quot;, &#46;F&#46;&#41;\nhttp&#58;SetRequestHeader&#40;&quot;SOAPAction&quot;, &quot;enviaArchivoWebService&quot;&#41;\nhttp&#58;SetRequestHeader&#40;&quot;Content-Type&quot;, &quot;text/xml&quot;&#41;\n\n**carga el archivo\nxml &#58;= fnArmaCadXml&#40;&quot;A&quot;, &quot;0091&quot;, &quot;XXXX&quot;, &quot;142&quot;, lcInFile64, &quot;CDDEmbargoM5&#46;htm&quot;&#41;\n\ndoc&#58;LoadXML&#40;xml&#41;\nhttp&#58;Send&#40;doc&#46;xml&#41;\n\nres &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;MSXML2&#46;DOMDocument&quot;&#41;\n\nresponse = http&#58;responseText\n\nres&#58;LoadXML&#40;http&#58;responseText&#41;\n\ntxt = res&#58;selectSingleNode&#40;&quot;//NroEnvioGenerado&quot;&#41; &amp;&amp;Return\n\nIF nvl&#40;txt&#46;text,\' \'&#41; = &quot; &quot; THEN\n\nTXT=&quot;ERROR EN WS &quot;\n\nENDIF\n\nRETURN\n[/code:3vpi2s4b]','',0,'AIA=','3vpi2s4b',1,0,'',138,0,0),(16203,3621,7,490,0,'81.44.201.73',1153764252,1,0,1,1,1,0,'','','Miguel,\n\nYo sé que con fwppc no se puede hacer, me refiero a crear las funciones en C , y llamarlas desde HB.\n\nRealmente, creo que habría que conseguir la lista de conexiones telefónicas a redes dados de alta en la pocket y poder lanzar la conexión que quisiéramos.\n\nPienso que los tiros van, por pasar las funciones RAS API que tenemos disponibles en el PC a la pocket.\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','3jdzan4c',1,0,'',490,0,0),(16204,3653,6,383,0,'200.106.33.78',1153764752,1,0,1,1,1,0,'','PROBLEMAS CON IMPRESION','Pero poque usar el Scope, si nunca lo use en este tipo de operaciones.\nTan solo es recorrer la tabla e imprimir cada registro algo asi:\n\nDBSELECTAREA(oFactu:cAlias)\nORDSETFOCUS(1)\nIF DBSEEK(cSerdoc)\n   WHILE cSerdoc==SERDOC\n        \n       iMPRIMIR()\n\n        DBSKIP()\n   ENDDO\nENDIF','',0,'AIA=','uzk7h2r2',1,0,'',383,0,0),(16205,3685,6,152,0,'200.90.206.172',1153767158,1,0,1,1,1,0,'','En Win XP desaparecieron los GroupsBox hechos con Workshop','Hay que agregar algun parametro al .RC ??\n\nSi alguien me puede ayudar\nde antemanos , Gracias\n\nSaludos\n\nGonzalo','',0,'AIA=','32d0t583',1,0,'',152,0,0),(16206,3686,7,695,0,'81.44.51.138',1153767515,1,0,1,1,1,0,'','!Ayuda!...class:\'BLOCK\' has no exported method refresh()','Hola soy otro \'nuevo\' en todo esto, y muchos años sin programar en CLIPPER, me esta costando mucho...  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> La cabeza juega malas pasadas... Un saludo a toda la gente del foro, por aqui hay mucho nivel... me impresiona. Dejando los saludos... Estoy tomando como ejemplo CLIENTS para hacer mi aplicacion y me encuentro con muchos problemas uno de ellos es este error en la funcion REFRESH() para el repintado de un listbox. Lo que intento hacer es cambiar mediante un par de botones radio el acceso por codigo de cliente o nombre, pero me da el error que os remito en la cabezera. Si puedo solucionar esto tengo mas cositas para arreglar... Ante todo muchas gracias. <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->\n\n/*\n        Programa        := Zpda.prg\n	Autor		:= Juan Zapata\n        Fecha           := 19/07/2006\n	Descripcion := Aplicacion para comerciales de autoventa y reparaciones.\n*/\n\n#include \"FWCE.ch\"\n\n\n#DEFINE DBF_LON         10\n#DEFINE DBF_CLIENTES    1\n#DEFINE DBF_ARTICULOS   1\n#DEFINE DBF_FAMILIAS    1\n\nSTATIC OWND, CTEXTO\n\n*--------------\nFUNCTION Main()\n*--------------\n        LOCAL OBMP\n\n        CONFIG()\n\n        ABRIR_FICHEROS()\n\n        DEFINE BITMAP OBMP NAME \'SUMASOL\'\n\n        DEFINE WINDOW OWND TITLE \"Z MAXPOWER PDA\"\n\n        ACTIVATE WINDOW OWND;\n                ON PAINT OWND:SAYBITMAP (0,0,OBMP);\n                ON INIT CONTROL()\n\n        DBCLOSEALL()\n        OBMP:END()\n\nRETURN 0\n\n*-----------------------\nFUNCTION Config()\n*-----------------------\n\n        HB_LANGSELECT( \"ESWIN\" )\n        SET DELETED ON\n        SET DATE TO ITALIAN\n        SET SOFTSEEK ON\n        SET CENTURY ON\n        SET EPOCH TO 2000\n\n        Hb_LangSelect (\'PL\') \n        Hb_SetCodePage (\'PLWIN\') \n\nRETURN NIL\n\n*-----------------------\nFUNCTION CONTROL()\n*-----------------------\n        LOCAL ODUMMY\n\n        @ 0,0 BTNBMP NAME \"EXIT\" SIZE 40,40 OF OWND;\n                ACTION IF(MSGYESNO(\'Desea salir ?\', \'Sistema\'), OWND:END(),)\n\n        @ 0,40 BTNBMP NAME \"CLIENT\" SIZE 40,40 OF OWND;\n                ACTION SEL_CLIENT()\n\n        @ 0,200 BTNBMP NAME \"INFO\" SIZE 40,40 OF OWND\n\n        @ 0,0 BTNBMP ODUMMY NAME \"\" SIZE 240,40 OF OWND\n        ODUMMY:DISABLE()\n\nRETURN NIL\n\n\n*---------------------------\nFUNCTION SEL_CLIENT()\n*---------------------------\n        LOCAL ODLG, OFONT, OTBR, OGET1, orad\n\n        SELECT CLIENTES\n\n        SET FILTER TO\n        SET ORDER TO 1\n\n        HIDEKEYBOARD()\n\n        DEFINE FONT OFONT NAME \'ARIAL\' SIZE 0, -10\n\n        DEFINE DIALOG ODLG RESOURCE \"SELEC_CLI\"\n\n                REDEFINE LISTBOX Otbr FIELDS CLIENTES-&gt;CCODCLI, CLIENTES-&gt;CNOMCLI, CLIENTES-&gt;CPOBCLI, CLIENTES-&gt;CTFO1CLI, CLIENTES-&gt;CTFO2CLI;\n                HEADERS \"CODIGO\", \"NOMBRE\",\"POBLACION\",\"TELEFONO 1\", \"TELEFONO 2\";\n                COLSIZES 50,180,140,100,100;\n                ID 130 OF ODLG \n                \n                OTBR:={|| (NRECNO := CLIENTES-&gt;(RECNO() ),;\n                ODLG:END())}\n\n*                OTBR:NCLRPANE := {|| IIF ( CLIENTES-&gt;(ORDKEYNO()) % 2 == 0 ,RGB(193,221,255),RGB(221,245,255) )}\n\n\n                REDEFINE BUTTON ID 110 OF ODLG ACTION ODLG:END()\n\n                REDEFINE BUTTON ID 120 OF ODLG;\n                        ACTION (NRECNO:=CLIENTES-&gt;(RECNO()), ODLG:END())\n\n                REDEFINE RADIO ORAD;\n                ON CHANGE ORDEN_BUSQUEDA(orad);\n                ID 140,150 OF ODLG\n\n                REDEFINE GET OGET1 VAR CTEXTO  ID 170 OF ODLG;\n                ON CHANGE LOCALIZA()\n\n        ORDEN_BUSQUEDA(orad, OTBR)\n\n\n        ACTIVATE DIALOG ODLG CENTERED\n\n\nRETURN NRECNO\n\n*---------------------------\nFUNCTION ORDEN_BUSQUEDA(orad, OTBR)\n*---------------------------\n\n* COMPROBANDO RADIO BOTON Y ASIGNANDO BUSQUEDA INDEXADA A CLIENTES*****\n\n        IF ORAD=1\n                 SELECT CLIENTES\n                 SET ORDER TO 1\n                 GO TOP\n                 OTBR:REFRESH()\n        ENDIF\n\n\n        IF ORAD=2\n                SELECT CLIENTES\n                SET ORDER TO 2\n                GO TOP\n                OTBR:REFRESH()\n        ENDIF\n\nRETURN NIl\n\n*---------------------------\nFUNCTION LOCALIZA()\n*---------------------------\n\n        SELECT CLIENTES\n        SET ORDER TO 2        \n        DBSEEK (CTEXTO)\n\n        OTBR:refresh()\n\n\nRETURN NIL\n\n\n*---------------------------\nFUNCTION ABRIR_FICHEROS\n*---------------------------\n\nIF .NOT. USED(\"CLIENTES\")\nUSE (CURDIR()+\"\\CLIENTES.DBF\") NEW\nENDIF\n\nINDEX ON CLIENTES-&gt;CCODCLI TO(\"CLIENTES.CDX\")\nINDEX ON CLIENTES-&gt;CNOMCLI TO (\"CLIENTES.CDX\")\n\nRETURN NIL','',0,'AIA=','1mm63rwm',1,0,'',695,0,0),(16207,3684,2,9,0,'85.59.34.132',1153768290,1,0,1,1,1,1,'','','Revisa el siguiente mensaje antiguo.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2855\">http://fivetechsoft.com/forums/viewtopic.php?t=2855</a><!-- m -->','',0,'AIA=','13a5m4fs',1,0,'',9,0,0),(16208,3685,6,9,0,'85.59.34.132',1153768724,1,0,1,1,1,1,'','','En mis aplicaciones no desaparecen.','',0,'AIA=','1lxnfoex',1,0,'',9,0,0),(16209,3687,1,684,0,'69.159.107.129',1153768900,1,0,1,1,1,0,'','Func DBEDIT in Fivewin.','Bonjour,\nPour manipuler les bases de données avec un controle de toutes les informations, la fonction Browse n\'est pas pratique, car elle ne prend pas en considération le controle de la clé primaire.\n\nDans Fivewin, je voudrais savoir quelle la fonction qui remplace DBEDIT avec fonction utilisateur ?.\nMerci,\nAbdel','',0,'AIA=','2oh2ehot',1,0,'',684,0,0),(16210,3669,6,147,0,'190.7.11.157',1153769144,1,0,1,0,1,1,'','','Gracias,\nEsta mañana encontré el problema, todas estas funciones, que comienzan con XLS, en TFileXLS.prg, están dentro del #ifdef _MSLINK_. Comentándolas o suprimiendolas se resuelve.\n\nsaludos','',0,'AIA=','1iaaqyfm',1,0,'',147,0,0),(16211,3685,6,152,0,'200.90.206.172',1153770483,1,0,1,1,1,0,'','','Asi es como esta definido en el .RC :\n\n\n\n[code:15iuug2f] GROUPBOX &quot;Cliente&quot;, 101, 12, 19, 307, 59, BS_GROUPBOX\n[/code:15iuug2f]','',0,'AIA=','15iuug2f',1,0,'',152,0,0),(16212,3417,3,343,0,'204.57.111.194',1153770973,1,0,1,1,1,0,'','','You want a popup anytime you click the button, and the popup should know what button number was pressed?\n\nFor the bAction you need to perform your popup and pass the button object\n\nAdd the counter number to button cargo\n\n[code:2b0o8trz]\n\nbAction &#58;= &#123;|oBtn| menupopup&#40; oBtn &#41; &#125;\n\nn &#58;= 1\nfor ?????\n         @ Fila,&#40;Col+nPassLarg&#41; SBUTTON  aBtn&#91;n&#93; RESOURCE &quot;omb3&quot;   PIXEL;\n            OF oWnd ;\n            FONT oFont2 ;\n            CAPTION cCaption ;\n            COLOR CLR_WHITE, GetSysColor&#40;15&#41;  ;\n               TEXT ON_CENTER ;\n            NOBOX       ;\n            TOOLTIP oemtoansi&#40;cCaption&#41; ;\n            ACTION bAction\n         aBtn&#91;n&#93;&#58;cargo &#58;= n   // add this cargo\n         n++\nnext ????\n[/code:2b0o8trz]\n\nChange popup menu function to receive button object\n[code:2b0o8trz]\nfunction MEnupopup&#40; oBtn &#41;\n   Local oMenu, aRect ,nRow,nCol\n\n   cpoltrona&#58;= Val&#40; oBtn&#58;cCaption &#41;\n\n   ? \'Popup for button # \'+ltrim&#40;str&#40; oBtn&#58;cargo &#41;&#41;\n\n   aRect &#58;= GetClientRect&#40; oBtn&#58;hWnd &#41;\n\n   MENU oMenu POPUP\n      MENUITEM &quot;&amp;Nuova prenotazione&quot;     action OCCUPARE&#40;oBtn,&#46;t&#46;&#41;\n      MENUITEM &quot;&amp;Modifica prenotazione&quot;  action OCCUPARE&#40;oBtn,&#46;f&#46;&#41;\n      MENUITEM &quot;&amp;Mostra prenotazione&quot;\n   ENDMENU\n\n   ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF  oBtn\n\nRETURN NIL\n[/code:2b0o8trz]\n\nThe popup code in occupare should take oBtn and change image, change caption, store results to database, etc.\n\nI did not test this. I do not know exactly how you want this to interact.','',0,'AIA=','2b0o8trz',1,0,'',343,0,0),(16213,3680,6,533,0,'83.55.212.73',1153772667,1,0,1,1,1,0,'','Comencemos...','Gracias Rene por tu respuesta:\n\n   Quiero empezar de cero, y habiendo leido post tuyos e incluso enlaces que has puesto sobre el servidor que montaste en Mexico junto con los resultados de conexiones etc. . . , creo que la solución de advantage es muy buena, pero primero necesitaria saber qué es lo que tengo que instalar en el servidor. Se que a lo mejor es tedioso lo que te estoy planteando, pero ¿algun manual, alguna web donde descargar versiónes demo para 1 usuario?\n\n MUCHAS GRACIAS!!','',0,'AIA=','2b4qjcpl',1,0,'',533,0,0),(16214,3686,7,533,0,'83.55.212.73',1153778101,1,0,1,1,1,0,'','','Hoja jhony:\n\n   Echando un vistazo previo a tu código, me parece que el problema viene por la siguiente línea:\n\n    OTBR:={|| (NRECNO := CLIENTES-&gt;(RECNO() ),; \nODLG:END())} \n\n    Ten en cuenta que la variable que usas en el redefine la estas machacando con esta. Si creo que estas haciendo lo que me imagino, cambia la línea por esta otra:\n\n   oTbr:bChange:={||(nrecno:=clientes-&gt;(recno()))}\n\n   si quieres, añade tambien el odlg:end(), pero no lo he puesto porque no se exactamente porque quiere cerrar el dialogo.','',0,'AIA=','1qqouo4i',1,0,'',533,0,0),(16215,3688,7,533,0,'83.55.212.73',1153778519,1,0,1,1,1,0,'','Separadores en Menús','Hola Foro!!\n\n   Algun ejemplo de cómo añadir un separador en el menu, lo he estado intentando de varias formas, pero siempre me da algun error. Y ya que estamos, dejo caer lo siguiente:\n\n   Tengo una ventana con un folder. Dicho folder tiene 4 pestañas, y en las 3 primeras, estoy intentado poner un listbox en cada una, pero no me deja, me pone los listbox por detras del folder. Por supuesto que cuando define en codigo los listbox, les pongo OF oFold:adialogs[1..2..3], respectivamente, ¿alguien se ha encontrado un problema similar?.\n\nMUCHAS GRACIAS DE ANTEMANO.','',0,'','ei9icdsu',1,0,'',533,0,0),(16216,3417,3,49,0,'62.13.172.78',1153779823,1,0,1,1,1,1,'','','Sorry, Not run ok\n\nI need to insert eval(baction) to action command at sbutton control but \n\nit not show the popmenu and make this eror\n\n[code:1fqg4d0k]? \'Popup for button # \'+ltrim&#40;str&#40; oBtn&#58;cargo &#41;&#41;[/code:1fqg4d0k]\n\nError description: Error BASE/1004  Class: \'NIL\' has no exported method: CARGO\n\nStack Calls\n===========\n   Called from:  =&gt; CARGO(0)\n   Called from:  =&gt; PRENOTAMENU(395)\n   Called from: Spiaggia.prg =&gt; (b)BEA210(263)\n   Called from: Spiaggia.prg =&gt; (b)BEA210(312)\n   Called from: TSBUTTON.PRG =&gt; TSBUTTON:CLICK(804)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: TSBUTTON.PRG =&gt; TSBUTTON:HANDLEEVENT(1308)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: main.prg =&gt; MAIN(200)','',0,'AIA=','1fqg4d0k',1,0,'',49,0,0),(16217,3689,7,692,0,'213.96.221.131',1153780339,1,0,1,1,1,1,'','Ejemplo de albaran con cabecera y lineas','Hola \nTengo experiencia en Fivewin de 1.95 en adelante\nEstoy evaluando lo complicado que puede resultar el crear un albaran con cabecera con los tipicos datos del cliente , lineas de productos y pie con los totales del albaran para Pocket PC\nme imagino que se utilizaran los folders , con un browse o un Tbrowse para las lineas , pero agradeceria si alguien tiene un ejemplo de un albaran o factura que se pueda imprimir\nPor adelantando muchas gracias a todos\nsaludos\n<!-- e --><a href=\"mailto:aalvarez@readysoft.es\">aalvarez@readysoft.es</a><!-- e -->','',0,'AIA=','347o304v',1,0,'',692,0,0),(16218,3690,6,49,0,'62.13.172.78',1153780687,1,0,1,1,1,1,'','Error with Tsbutton : Help !!!','U Know the sample child03(reservation bus) of the testbtn.prg of tsbutton ? \n\nI must make a window where I can show many seats but I must use also a dbf to control if a seat is free or not. \n\nI must create 20 seats for 8 lines ( 20x8) with tsbutton and write on it the number of the seat \n\n\nI must create spaces betwen the seats and I use a for/next command to create the buttons\n\n\nWhen I click on each seat the program must show me a menu popup near to button and then I can insert the reservation but I need the number of the seat to make it . \n\nI hope U understand me \nI hope U can help me ...\n\n\n..\nI explain you this sources:\n[code:240dr668]\n#include &quot;fivewin&#46;ch&quot;\n\n//#include &quot;tsbutton&#46;ch&quot;\n\n\nSTATIC aBtn\nFunction test\nLocal oWnd,aBtn,totarray,n,fila\n\nLOCAL OmbrxFila &#58;= 20\nLOCAL FileOmbr &#58;= 8\n\nlocal oFont ,oFont2  , oFont3\n\n// configurazione \n   totarray &#58;=  OmbrxFila*FileOmbr\n   aBtn &#58;= Array&#40;totarray&#41;\n\nn    &#58;= 1\nfila &#58;= 60\n\n\nDEFINE FONT oFont NAME &quot;Ms Sans Serif&quot;  SIZE 0, -10 BOLD\n\nDEFINE FONT oFont2 NAME &quot;Arial&quot; SIZE 0,-16 BOLD\nDEFINE FONT oFont3 NAME &quot;Arial&quot; SIZE 0,-10\n\n\n\nDEFINE WINDOW  oWnd  COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41; ;\nTITLE \'Visualizazzione \'\n\n\nFOR i &#58;= 1 TO FileOmbr\nnPassLarg &#58;=  0\ncol &#58;= 10\nFOR k &#58;= 1 TO OmbrxFila\n\n               cAction &#58;= &quot;miazione&#40;&quot;+Str&#40;n&#41;+&quot;&#41;&quot;\n               bAction &#58;= &#123;|| &amp;cAction &#125;\n               bWhen   &#58;= &#123;|| &#46;T&#46; &#125;\n               bValid  &#58;= &#123;|| &#46;T&#46;  &#125;\n               cCaption &#58;= &quot;&quot;\n\n\n\n\n\n@ Fila,&#40;Col+nPassLarg&#41; SBUTTON  aBtn&#91;n&#93; RESOURCE &quot;omb3&quot;   PIXEL;\n               OF oWnd ;\n               FONT oFont2 ;\n               CAPTION cCaption ;\n               COLOR CLR_WHITE, GetSysColor&#40;15&#41;  ;\n               TEXT ON_CENTER ;\n               NOBOX       ;\n               TOOLTIP oemtoansi&#40;cCaption&#41; ;\n               ACTION Miazione&#40;aBtn&#91;n&#93;&#41;\n\n                       col += 75\n                    n++\n                   // &#40;oDCam&#41;-&gt;&#40;dbskip&#40;&#41;&#41;\n                    NEXT\n                    fila +=75\n                    NEXT\n\n\n\n\n\n\nACTIVATE WINDOW oWnd MAXIMIZED\nreturn nil\n\n\n\n\n\n\n\n\n\n  function miazione&#40;n&#41;\n  Local oMenu, aRect ,nRow,nCol\n\n  cpoltrona&#58;= Val&#40;aBtn&#91;n&#93;&#58;cCaption&#41;\n    ?cpoltrona\n     aRect &#58;= GetClientRect&#40; aBtn&#58;hWnd &#41;\n\n    MENU oMenu POPUP\n         MENUITEM &quot;&amp;Nuova prenotazione&quot;     action OCCUPARE&#40;cpoltrona,&#46;t&#46;&#41;\n         MENUITEM &quot;&amp;Modifica prenotazione&quot;  action OCCUPARE&#40;cpoltrona,&#46;f&#46;&#41;\n         MENUITEM &quot;&amp;Mostra prenotazione&quot;\n      ENDMENU\n      ACTIVATE POPUP oMenu AT aRect&#91; 3 &#93; + 1, aRect&#91; 2 &#93; OF  aBtn\n\n      RETURN NIL\n\n\n\n\n FUNCTION OCCUPARE&#40;cpoltrona,lnew&#41;\n\n   Local oDlg\n\n\n       nmsgbox&#40;cpoltrona&#41;\n\n\nreturn nil\n\n\n[/code:240dr668]\n\nwhy it not run ?\n\nHelp me \n\nRegards','',0,'AIA=','240dr668',1,0,'',49,0,0),(16219,3626,20,49,0,'62.13.172.78',1153781007,1,0,1,1,1,1,'','','non ci sono riuscito \nmi da sempre lo stessso errore \nmagari lo carica la funzione del menu ma poi non lo crea e non si tira dietro neanche l\'unica variabile che a me serve cioè il numero della  poltrona.\nio ho usato i due cicli for net per simulare le passerelle tra le sedie ( dove ovviamente passano le maschere) altrimenti non potrei dividerle per settori nella pianta organica.\nPensavo fosse piu\' facile ...','',0,'AIA=','1hz6wrlb',1,0,'',49,0,0),(16220,3673,7,661,0,'201.123.184.199',1153784738,1,0,1,1,1,0,'','','en windows CE tambien funcionan <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  solo que no puedes usar SHARED lo que te ocasiona serios problemas si tu aplicacion es para trabajo en red','',0,'AIA=','l9ubwiej',1,0,'',661,0,0),(16221,3680,6,661,0,'201.123.184.199',1153785342,1,0,1,1,1,0,'','','pues mira en mi poca experiencia con advantage te puedo decir que es una excelente solucion ademas la migracion de tus aplicaciones FW16, CLIPPER y FW32 para trabajar bajo el cliente/servidor realmente es de risa (claro que con el apoyo de gente como Rene todo es facil  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ) , que necesitas en tu servidor pues de hardware realmente no mucho un pentium v normalito es suficiente, y pues depende del sistema operativo tienes varias versiones de advantage, la instalacion del servidor advantage es realmente sencilla sin rollos solo windows 2003 da un que otro problemilla para levantar el servicio pero solucionable... lo de las versiones de prueba pues talvez rene te pueda ayudar...\nsaludos','',0,'AIA=','3fya1kif',1,0,'',661,0,0),(16222,3417,3,343,0,'204.57.111.194',1153785383,1,0,1,1,1,0,'','','I have uploaded a working sample that I hope gets you over the hump.\n\nLeft click toggles and right click opens popup menu.\n\n[url]http://hyperupload.com/download/020dca2717/TESTSAMP.ZIP.html\n[/url]','',0,'','izqtbf8x',1,0,'',343,0,0),(16223,3417,3,343,0,'204.57.111.194',1153785445,1,0,1,1,1,0,'','','The link did not work right so you might have to copy and paste link\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/020dca2717/TESTSAMP.ZIP.html\">http://hyperupload.com/download/020dca2 ... P.ZIP.html</a><!-- m -->','',0,'','3lcbkeqo',1,0,'',343,0,0),(16224,3691,6,665,0,'200.122.153.34',1153785696,1,0,1,1,1,0,'','Clase TProgress()','Un saludito Gente,\n\n Esta Clase  tiene un precio economico de ser donde se puede comprar, de no ser asi qui podria decier donde podria conseguir.\n\nGracias\nBusmatic','',0,'','300c5xu9',1,0,'',665,0,0),(16225,3646,6,661,0,'201.123.184.199',1153785833,1,0,1,1,1,0,'','','tambien directamente con los comandos de OLE se puede','',0,'','32a44rga',1,0,'',661,0,0),(16226,3454,2,661,0,'201.123.184.199',1153787047,1,0,1,1,1,0,'','','cuando eso me pasa tengo que quitar el WOWEXEC.EXE de la memoria y listo <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'','1znmjbal',1,0,'',661,0,0),(16227,3685,6,53,0,'201.102.62.176',1153788350,1,0,1,1,1,1,'','','Gonzalo:\n\nCreo que debes cambiar el número del ID de positivo a negativo, uso números negativos y pequeños para los ID de los GroupBox y Text (R/C/L), los números positivos los dejo para los EDITTEXT o GETS, mira este ejemplo:\n\nGROUPBOX \"Vales de almacén:\", -3, 41, 39, 130, 73, BS_GROUPBOX\n\nUsandolos de este modo no he tenido problemas.\n\nSaludos','',0,'','x20z1bki',1,0,'',53,0,0),(16228,3678,6,492,0,'201.154.126.49',1153790716,1,0,1,1,1,1,'','','Hola\n\nOtra opcion :\n\nTeniendo la base indexada por fecha con el DtoS()\n\nPuedes hacer un ciclo :\n\nFor dFecha := dFechIni TO dFechFin\n    XBase-&gt;( DbSeek( DtoS( dFecha ) ) )\n   IF XBase( Found() )\n      While XBase-&gt;FechCampo == dFecha .AND. XBase-&gt;( !Eof() )\n          nVarTot += XBase-&gt;CampTotal\n          XBase-&gt;( DbSkip() )\n     EndDo\nNEXT\n\nNo me ha fallado a mi ....  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nEspero te sirva\n\n\nSALUDOS','',0,'','2920q9cg',1,0,'',492,0,0),(16229,3686,7,695,0,'195.5.90.62',1153801262,1,0,1,1,1,0,'','','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Joder! Muchas gracias Mike, tantas horas y era una linea... Bueno, otras veces ha sido por una sola palabra... Me quedan muchas horas de calentamientos de cabeza pero con gente como vosotros... da gusto. Un saludo Mike. Ahh!! ya que estoy, la linea de codigo que hay a continuacion con esa misma variable (otbr) es un intento de hacer con el listbox un efecto pijama pero tambien me da error por eso la tengo con un asterisco. Tienes idea de que es lo que puede pasar? <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->\nMe contesto yo mismo... Problema resuelto era todo por esa linea de marras del error anterior. Ya funciona <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'','11c45axx',1,0,'',695,0,0),(16230,3692,6,492,0,'201.154.126.49',1153803223,1,0,1,1,1,1,'','Por que desaparecen datos del Browse ?','Hola a todos\n\nMe esta ocurriendo algo curioso, en ocasiones se \"desaparecen\" los datos del browse, es decir, la 1a vez que muestro el dialogo todo normal, pero si realizo alguna operacion y vuelvo a mostrar el mismo dialogo, en ocasiones ya no se ven los datos del browse, esto pasa solo con los browses de los dialogos que salen encima del dialogo principal, y tengo que presionar ya sea los registros o la scrollbar para que puedan visualizarse correctamente, a alguien le ha pasado algo similar ?? porque ya estuve checando el codigo y no veo nada anormal.\n\n- 1a vez que muestro los datos, todo OK\n[img:3h3ur2c5]http&#58;//img233&#46;imageshack&#46;us/img233/4131/itms1zp4&#46;jpg[/img:3h3ur2c5]\n\n\n- 2a vez, ya no salen los datos\n[img:3h3ur2c5]http&#58;//img160&#46;imageshack&#46;us/img160/2575/itms2qu4&#46;jpg[/img:3h3ur2c5]\n\n- Tengo que clickar en registros o scrollbar para que aparezcan\n[img:3h3ur2c5]http&#58;//img233&#46;imageshack&#46;us/img233/6923/itms3zs5&#46;jpg[/img:3h3ur2c5]\n\n\nEs la misma funcion, el mismo recurso, las mismas bases, etc.\n\n\nSALUDOS','',0,'CA==','3h3ur2c5',1,0,'',492,0,0),(16231,3677,2,78,0,'190.40.49.122',1153804078,1,0,1,1,1,0,'','','Veamos,,,\nEn :\nUSE FACTURA \niNDEX on factura-&gt;fecha to ddto \nset index to ddto \n\nSeria mejor\nUSE FACTURA \niNDEX on DTOS(factura-&gt;fecha) to ddto \nset index to ddto \n...\n\nY en :\n...\n...\nSUM factura-&gt;total to PTOTAL FOR factura-&gt;fecha &gt;= desde .AND. factura-&gt;fecha &lt;= hasta \n\ntrabajara mejor :\npTotal := 0\nIf DbSeek(desde)\n WHILE factura-&gt;fecha &gt;= desde .AND. factura-&gt;fecha &lt;= hasta \n     pTotal := pTotal + factura-&gt;total\n     DbSkip()\n ENDDO\nEndIf\n? Ptotal\n\nSalu2','',0,'CA==','1pfrdj2c',1,0,'',78,0,0),(16232,3692,6,78,0,'190.40.49.122',1153804318,1,0,1,1,1,0,'','','Hola..\nRevisa los indices activos al momento de activar la ventana,,, y recuerda posicionarte siempre en el 1er registro,,, y usas  el Refresh() para el browse que usas...\n\nSalu2','',0,'CA==','1y4x0w8s',1,0,'',78,0,0),(16233,2862,1,550,0,'219.91.208.135',1153804844,1,0,1,1,1,0,'','','Hi James\nThanks a lot for the link.I will definitely visit the link.\nWith Best Wishes\nRajeev Chavan','',0,'CA==','3ax61aaw',1,0,'',550,0,0),(16234,3693,3,148,0,'196.205.182.202',1153805890,1,0,1,1,1,0,'','warnning message','Warning: Unable to perform incremental link - performing full link...\n* Application successfully built','',0,'CA==','2e5ttd5q',1,0,'',148,0,0),(16235,3694,3,148,0,'196.205.182.202',1153806157,1,0,1,1,1,0,'','writing fixed headers to Excel sheet','How can I write fixed headers to fields written to Excel sheet using OLE.\n[code:1ym432dc]\nFUNCTION buildexcel&#40;&#41;\n*-------------------\n\nLOCAL cPath &#58;= &quot;E&#58;\\programs\\clipper\\fwh\\sitex\\test&#46;XLS&quot;\nlocal oExcel , oBook, oSheet \nLOCAL nline&#58;=1\n\n\n\n   oExcel = CREATEOLEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41; \n\n   oBook = OleInvoke&#40; OleGetProperty&#40; oExcel, &quot;WorkBooks&quot; &#41;, &quot;Add&quot; &#41; \n   oSheet = OleGetProperty&#40; oBook, &quot;WorkSheets&quot;, 1 &#41; \n\nselect 3\nuse mach index mach3\nset filter to alltrim&#40;3-&gt;mc_cu_acct&#41;==&quot;2125447&quot;\n\n3-&gt;&#40;DBGOTOP&#40;&#41;&#41; \nDO WHILE !&#40;3&#41;-&gt;&#40;EOF&#40;&#41;&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 1 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_type &#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 2 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_model &#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 3 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_serial &#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 4 &#41;, &quot;Value&quot;, &#40;3&#41;-&gt;mc_brn &#41; \nnLine&#58;=nLine+1 \n&#40;3&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41; \nENDDO \n   OleSetProperty&#40; oExcel, &quot;Visible&quot;, &#46;t&#46; &#41; \n    OLEInvoke&#40;oExcel,&quot;Quit&quot;&#41;\nRETURN NIL\n\n[/code:1ym432dc]','',0,'AIA=','1ym432dc',1,0,'',148,0,0),(16236,3687,1,170,0,'213.103.78.97',1153808081,1,0,1,1,1,1,'','','DBEDIT() est une fonction de compatibilité, dans Clipper 5.3b.\nSon usage est donc déconseillé.\n\nJe ne peux pas vous indiquer si l\'équivalent existe sous Fivewin\ncar j\'ai développé mes propres programmes pour les listes et rapports.','',0,'AIA=','2zjd6hmv',1,0,'',170,0,0),(16237,3693,3,58,0,'84.149.253.106',1153809291,1,0,1,1,1,0,'','Re: warnning message','[quote=&quot;Ehab Samir Aziz&quot;:2mbh6fbm]Warning: Unable to perform incremental link - performing full link...\n* Application successfully built[/quote:2mbh6fbm]\n\nCongratulation! \n\n( could really not resist  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->)\nDetlef','',0,'gA==','2mbh6fbm',1,0,'',58,0,0),(16238,3692,6,492,0,'201.154.126.49',1153810337,1,0,1,1,1,1,'','','Gracias por tu respuesta Willy, pero en este caso son datos de un arreglo, y aunque le indico el ReFresh() y otros artilugios, sigue haciendo lo mismo  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nNi modo, seguire probando.\n\nSALUDOS','',0,'gA==','xrdhioga',1,0,'',492,0,0),(16239,3695,1,173,0,'203.113.39.8',1153811426,1,0,1,1,1,0,'','CheckBox','Dear all,\n\nCan I someone tell me about method of TCheckbox for fix empty ? If use the Checkbox for open dialog, after I did close dialog, I need to fix empty in checkbox, how I do that ?\n\nBest regrad,\n\nPeter','',0,'gA==','3ttqsbpx',1,0,'',173,0,0),(16240,3687,1,2,0,'212.170.180.173',1153811866,1,0,1,1,1,1,'','','Abdel,\n\nPlease review samples\\browse.prg and look for function Browse() source code in source\\functions directory. Its very simple and easy to understand and modify.','',0,'gA==','nc03uyii',1,0,'',2,0,0),(16241,3695,1,2,0,'212.170.180.173',1153811930,1,0,1,1,1,1,'','','Peter,\n\n&lt;oCheckBox&gt;:SetCheck( .f. )','',0,'gA==','2k9orwfv',1,0,'',2,0,0),(16242,3693,3,2,0,'212.170.180.173',1153812012,1,0,1,1,1,1,'','','Ehab,\n\nIts ok, the linker says that its going to rebuild the entire EXE <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2jcnkxvg',1,0,'',2,0,0),(16243,3417,3,49,0,'213.82.134.66',1153812490,1,0,1,1,1,1,'','','GOOOODDD !\nthe testsamp.prg run ok\nBUT\nwhen I clicked on each button it show the bitmap seatfull   but  must not show it : after only the user select the menu popup and insert the record of reservation it must show the bitmpa seatfull.\n\nBut it run ok and i can work on it now\n\nNow I  must try with dbfs and insert on left a browse with customers and when I click on a cusotmer the program must refresh the buttons retated\n\nthen the windows must be divide with a vertical splitter\n\nIf I found problems can write you ?\n\nThanks mr Gale,','',0,'gA==','3b76a8o2',1,0,'',49,0,0),(16244,3417,3,49,0,'213.82.134.66',1153812685,1,0,1,1,1,1,'','','How I can make to insert on each button the caption with the number of buttons ?\n\nRegards','',0,'gA==','1ma29oe9',1,0,'',49,0,0),(16245,3626,20,49,0,'213.82.134.66',1153812801,1,0,1,1,1,1,'','','forse ho risolto.... grazie anche e sopratutto a mr Gale....','',0,'gA==','3dnetliq',1,0,'',49,0,0),(16246,3692,6,2,0,'212.170.180.173',1153812880,1,0,1,1,1,1,'','','Raymundo,\n\nQue expresión usas en el índice y como has definido bLogicLen ?','',0,'gA==','1jvwf7rf',1,0,'',2,0,0),(16247,3691,6,2,0,'212.170.180.173',1153813449,1,0,1,1,1,1,'','','Revisa el ejemplo samples\\win32.prg.','',0,'gA==','2td3pjcy',1,0,'',2,0,0),(16248,3696,7,695,0,'195.5.90.62',1153814843,1,0,1,1,1,0,'','PROBLEMAS CON UN GET!','Hola otra vez al foro... Quiero realizar una busqueda indexada por nombre en un fichero de clientes. Lo he realizado a traves de un get, cada vez que pulsas una letra hago una llamada a una funcion donde selecciono el fichero y hago un dbseek por medio de ON CHANGE LOCALIZA(OTBR,CTEXTO) en el get. Mi problema es que cuando el metodo ON CHANGE se activa no entra el ultimo caracter del get ¿Hay algun otro metodo, que me reconozca cada entrada de caracter y lo pueda mandar a LOCALIZA(OTBR,CTEXTO)?. \n\nMUCHAS GRACIAS. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->\n\n/*\n        Programa        := Zpda.prg\n	Autor		:= Juan Zapata\n        Fecha           := 19/07/2006\n	Descripcion := Aplicacion para comerciales de autoventa y reparaciones.\n*/\n\n#include \"FWCE.ch\"\n\n\n#DEFINE DBF_LON         10\n#DEFINE DBF_CLIENTES    1\n#DEFINE DBF_ARTICULOS   1\n#DEFINE DBF_FAMILIAS    1\n\nSTATIC OWND, ADBF, ORAD, CTEXTO, NRECNO, OGET1\n\n*--------------\nFUNCTION Main()\n*--------------\n        LOCAL OBMP\n\n        CONFIG()\n\n        ABRIR_FICHEROS()\n\n        DEFINE BITMAP OBMP NAME \'SUMASOL\'\n\n        DEFINE WINDOW OWND TITLE \"Z MAXPOWER PDA\"\n\n        ACTIVATE WINDOW OWND;\n                ON PAINT OWND:SAYBITMAP (0,0,OBMP);\n                ON INIT CONTROL()\n\n        DBCLOSEALL()\n        OBMP:END()\n\nRETURN 0\n\n*-----------------------\nFUNCTION Config()\n*-----------------------\n\n        HB_LANGSELECT( \"ESWIN\" )\n        SET DELETED ON\n        SET DATE TO ITALIAN\n        SET SOFTSEEK ON\n        SET CENTURY ON\n        SET EPOCH TO 2000\n\n        Hb_SetCodePage (\'ESWIN\') \n\nRETURN NIL\n\n*-----------------------\nFUNCTION CONTROL()\n*-----------------------\n        LOCAL ODUMMY\n\n\n\n*        shfullscreen(ownd:hwnd,shfs_showsipbutton)\n\n        @ 0,0 BTNBMP NAME \"EXIT\" SIZE 40,40 OF OWND;\n                ACTION IF(MSGYESNO(\'Desea salir ?\', \'Sistema\'), OWND:END(),)\n\n        @ 0,40 BTNBMP NAME \"CLIENT\" SIZE 40,40 OF OWND;\n                ACTION SEL_CLIENT()\n\n        @ 0,200 BTNBMP NAME \"INFO\" SIZE 40,40 OF OWND\n\n        @ 0,0 BTNBMP ODUMMY NAME \"\" SIZE 240,40 OF OWND\n        ODUMMY:DISABLE()\n\nRETURN NIL\n\n\n*---------------------------\nFUNCTION SEL_CLIENT()\n*---------------------------\n        LOCAL ODLG, OFONT, OTBR\n\n\n\n        SELECT CLIENTES\n        SET ORDER TO 0\n\n        HIDEKEYBOARD()\n        ORDEN_BUSQUEDA(OTBR)\n\n        DEFINE FONT OFONT NAME \'ARIAL\' SIZE 0, -10\n\n        DEFINE DIALOG ODLG RESOURCE \"SELEC_CLI\"\n\n                REDEFINE LISTBOX Otbr FIELDS CLIENTES-&gt;CCODCLI, CLIENTES-&gt;CNOMCLI, CLIENTES-&gt;CPOBCLI, CLIENTES-&gt;CTFO1CLI, CLIENTES-&gt;CTFO2CLI;\n                HEADERS \"CODIGO\", \"NOMBRE\",\"POBLACION\",\"TELEFONO 1\", \"TELEFONO 2\";\n                COLSIZES 50,180,140,100,100;\n                ID 130 OF ODLG \n                \n                OTBR:BCHANGE:={|| (NRECNO := CLIENTES-&gt;(RECNO() ))}\n\n                OTBR:NCLRPANE := {|| IIF ( CLIENTES-&gt;(ORDKEYNO()) % 2 == 0 ,RGB(193,221,255),RGB(221,245,255) )}\n\n\n                REDEFINE BUTTON ID 110 OF ODLG ACTION ODLG:END()\n\n                REDEFINE BUTTON ID 120 OF ODLG;\n                        ACTION (NRECNO:=CLIENTES-&gt;(RECNO()), ODLG:END())\n\n                REDEFINE RADIO ORAD;\n                ON CHANGE ORDEN_BUSQUEDA(OTBR);\n                ID 140,150 OF ODLG\n\n[color=red:3otoz4sw]                REDEFINE GET OGET1 VAR CTEXTO;\n                ID 170 OF ODLG;\n                ON CHANGE LOCALIZA(OTBR,CTEXTO)[/color:3otoz4sw]\n        ACTIVATE DIALOG ODLG CENTERED\n\n\nRETURN NRECNO\n\n*---------------------------\nFUNCTION ORDEN_BUSQUEDA(OTBR)\n*---------------------------\n\n* COMPROBANDO RADIO BOTON Y ASIGNANDO BUSQUEDA INDEXADA A CLIENTES*****\n\n        IF ORAD=1\n                 SELECT CLIENTES\n                 SET FILTER TO\n                 SET ORDER TO 2\n                 OTBR:REFRESH()\n        ENDIF\n\n\n        IF ORAD=2\n                SELECT CLIENTES\n                SET FILTER TO\n                SET ORDER TO 1\n                OTBR:REFRESH()\n        ENDIF\n\nRETURN NIl\n\n*---------------------------\nFUNCTION LOCALIZA(OTBR,CTEXTO)\n*---------------------------\n\n        SELECT CLIENTES\n        SET FILTER TO\n\n        SET ORDER TO 1\n\n        DBSEEK (CTEXTO)\n        \n        OTBR:REFRESH()\n\nRETURN NIL\n\n\n*---------------------------\nFUNCTION ABRIR_FICHEROS\n*---------------------------\n\nIF .NOT. USED(\"CLIENTES\")\nUSE (CURDIR()+\"\\CLIENTES.DBF\") NEW\nENDIF\n\nINDEX ON CLIENTES-&gt;CCODCLI TO(\"CLIENTES.CDX\")\nINDEX ON CLIENTES-&gt;CNOMCLI TO (\"CLIENTES.CDX\")\n\nRETURN 0','',0,'Ag==','3otoz4sw',1,0,'',695,0,0),(16249,3688,7,57,0,'83.56.204.6',1153816425,1,0,1,1,1,1,'','','Mike\nIncluye en el RCDATA por cada separador lo siguiente :\n   0, 120, TBSTATE_ENABLED, TBSTYLE_SEP,-1, 0, 0\n   0, 130, TBSTATE_ENABLED, TBSTYLE_SEP,-1, 0, 0\n\netc.\n\nEn cuanto al problema que tienes con el Folder prueba a realizar al final de la creación de todos los recursos, una llamada al método InitDialogs() de la clase TFolder\n\nSaludos\nToni Sales','',0,'Ag==','2q0zsj5z',1,0,'',57,0,0),(16250,3677,2,375,0,'84.122.98.207',1153819671,1,0,1,1,1,1,'','','Es cierto, para indexar por fechas, o para comparar fechas hay que utilizar DTOS(). Las fechas por si solas no se comparan correctamente, pues creo que Clipper/FW las convierte a un tipo extraño de cadenas que según que fechas no las ordena correctamente.\nPor lo tanto, además del índice: INDEX on DTOS(factura-&gt;fecha) to ddto \n\nTienes que utilizar valores Desde, Hasta tipo DTOS. Por ejemplo: Desde := DTOS(CTOD(\"01/01/2006\")) y Hasta := DTOS(Date()).\n\nDespués intenta: SUM factura-&gt;total to PTOTAL FOR DTOS(factura-&gt;fecha) &gt;= desde .AND. DTOS(factura-&gt;fecha) &lt;= hasta \n\nDebería funcionar, pero si no va bien, tendrás que utilizar un bucle DO WHILE como te sugiere Willi, pero con DTOS.\nEs decir: WHILE DTOS(factura-&gt;fecha) &gt;= desde .AND. DTOS(factura-&gt;fecha) &lt;= hasta etc...\n\nSuerte','',0,'Ag==','3uyei9zi',1,0,'',375,0,0),(16251,3697,4,20,0,'195.110.155.219',1153824665,1,0,1,1,1,0,'','Tab control','How I can obtain this? \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0278d7be97/Image.jpg.html\">http://hyperupload.com/download/0278d7b ... e.jpg.html</a><!-- m -->                                                                                                            \n\nRegards\n\nPier Luigi','',0,'Ag==','268q2hv2',1,0,'',20,0,0),(16252,3698,2,510,0,'201.242.171.40',1153829101,1,0,1,1,1,0,'','Foco','Nuevamente yo, amigos disculpen la molestia tengo el siguiente\n problema : Tengo un folder de tres pestañas valido que no queden algunos campos vacios al momento de guardar el registro. pero cuando aplico las instrucciones \n\noFld:Setoption(1)\noFld:nOption(1)\ny\noGet1:SetFocus(.t.)\n\nEL va a la pestaña que necesito pero no se va al Get que asigno (esta vacio) el foco lo toma el botom Cancelar que es el que le sigue a al de Aceptar (este valida que no quede campo en blanco)','',0,'Ag==','xou4mubb',1,0,'',510,0,0),(16253,3652,6,428,0,'200.55.19.126',1153829232,1,0,1,1,1,0,'','','Raymundo,\n\nTe agradezco la información, estuve revisando el material pero a la hora de implementación no logro el control que deseo, en realidad mi plan es que el programa en ejecución se bloquee y el usuario debe ingresar su contraseña para desbloquearlo o bien un supervisor, pero eso solo puedo hacerlo en el mismo programa y no por screensaver ya que no se como establecer ese control unido a mi programa de aplicación.\n\nSaludos\nMiguel','',0,'Ag==','3pyw86rc',1,0,'',428,0,0),(16254,3699,3,137,0,'151.38.8.195',1153829606,1,0,1,1,1,0,'','ActiveX parameters','I use FWH 2.7 Build June 2006... and I get activex parameters twice on events. \nThis doesn\'t happened with FWH 2.6.\n\nMay I change this behaviour?\n\nThx in advance,\nRoberto Parisi','',0,'Ag==','n2oggaut',1,0,'',137,0,0),(16255,3700,3,419,0,'198.54.202.210',1153831300,1,0,1,1,1,0,'','ShellExecute not working after July 2006 FWH update','Hello,\n\nThe following command used to work (before updating to July 2006 build of FWH):\n\nShellExecute( oWndParent, \'Open\', \'http://www.website.net/\' )\n\nNow I get an application error (you know - one of those send / don\'t send to Microsoft error messages).\n\nAnybody know why (and how to fix)???\n\nI have not made any changes at all to the code - only downloaded and installed FWH July 2006 today and did a full compile and re-link.\n\n\n*** Edit since posting the above ***\n\nThis also does not work anymore:\n\n...Action ( HelpIndex( ) )\n\nSame error appears.\n\n\n*** Edit again ***\n\nBy the way - I am using xHB Professional July 2006 RC7 Beta.\n\n\nRegards,\n\nDale.','',0,'Ag==','3wia76yb',1,0,'',419,0,0),(16256,3695,1,173,0,'203.113.38.6',1153833227,1,0,1,1,1,0,'','Many Thanks.','Dear Antonio\n\nThank you very much for help','',0,'Ag==','v2t6uvhk',1,0,'',173,0,0),(16257,3692,6,492,0,'201.154.126.49',1153833580,1,0,1,1,1,1,'','','Antonio :\n\nEsta es la definicion del Browse :\n\n\n	REDEFINE LISTBOX lbEquPrt ;\n		FIELDS aEquPrt[pEP,1] ;\n		HEAD \"DESCRIPCION\" ;\n		ON CHANGE ( nVal2Ret := aEquPrt[pEP,2], ;\n		dbEquPart:Say( 174, 15, Space(40),,,, .T. ), ;\n		dbEquPart:Say( 174, 15, OBTFABITMX( aEquPrt[pEP,3] ), CLR_HBLUE,,, .T. ) ) ;\n		ON DBLCLICK ( lItmxSld := .T., dbEquPart:END() ) ;\n		FONT oBrwFnt ;\n		ID 103 ;\n		OF dbEquPart\n\n		lbEquPrt:SetArray( aEquPrt )\n		lbEquPrt:nLineStyle  := 2\n		lbEquPrt:lDrawFocusRect := .F.\n		lbEquPrt:nClrLine    := CLR_WHITE\n//		lbEquPrt:nClrBackHead := 13425898\n		lbEquPrt:BGOTOP    := { || pEP := 1 }\n  		lbEquPrt:BGOBOTTOM := { || pEP := eval( lbEquPrt:bLogicLen ) }\n  		lbEquPrt:BSKIP     := { | nwant, nold | nold := pEP , pEP += nwant,;\n		pEP := max( 1, min( pEP, eval( lbEquPrt:bLogicLen ) ) ), pEP - nOld }\n		lbEquPrt:BLOGICLEN := { || Len( aEquPrt ) }\n		lbEquPrt:nClrPane  := { || IIF( pEP%2 == 0, CLR_A, CLR_B ) }\n		lbEquPrt:bKeyDown  := { | nKey | EQUPRTNKEY( nKey, @lItmxSld, dbEquPart ) }\n\n\nHay una cosilla que me esta dando duda, la font oBrwFnt y los colores CLR_A, CLR_B, los estoy manejando como [b:1etc8i5y]GLOBAL EXTERNAL oBrwFnt, CLR_A, CLR_B[/b:1etc8i5y] y los valores de estas variables las asigno desde otro PRG, crees que pueda estar afectando ???\n\nVoy a probar mudando esta funcion al PRG principal y checo, de todas formas, si ves algo raro en el codigo de arriba, avisame por favor.\n\nGracias y Saludos','',0,'QA==','1etc8i5y',1,0,'',492,0,0),(16258,3652,6,492,0,'201.154.126.49',1153833953,1,0,1,1,1,1,'','','Hola\n\nPodrias intentar algo como esto :\n\nEn el archivo ScreenSaver, que en realidad no es otra cosa que otro EXE, al activarse le indicas que genere algun archivito que quieras : \"LockPc.TXT\" en carpeta XX, y ya desde tu App, le activas un timer para que cada YY tiempo, verifique si existe el archivo \"LockPc.TXT\" en tal carpeta, si lo encuentra, que haga lo que le indiques y que borre dicho archivo.\n\n\nSaludos','',0,'QA==','17lk92f6',1,0,'',492,0,0),(16259,3697,4,68,0,'203.45.161.80',1153837751,1,0,1,1,1,1,'','','Pier,\nClick on the link to Hyperupload to get to the Hyperupload site, note the Hyperupload::Download command centre right on the page, wait about 20 seconds for file preparation, then click download and collect the file.\nhth','',0,'QA==','2e24rwtj',1,0,'',68,0,0),(16260,3697,4,20,0,'195.110.155.219',1153839011,1,0,1,1,1,0,'','','Thanks Jon.\n\nBut I would want to develop a program as the image evidences.\n\nPier Luigi','',0,'QA==','3jf8zlr9',1,0,'',20,0,0),(16261,3680,6,43,0,'189.128.26.15',1153841881,1,0,1,1,1,0,'','','Hola....\n\nYo te aconsejo MySQL, es facil de aprender no es del todo gratis, pero puedes empezar sin gastar casi ni un centavo.\n\nAdemas puedes enlazar varios puntos de trabajo por medio de internet sin costo solo tu linea de internet, si necesitas algo referente a MySQL por aqui estamos.\n\nSaludos\n\nMarco A. Delgado.','',0,'QA==','6teeqgvb',1,0,'',43,0,0),(16262,3679,1,47,0,'203.144.143.4',1153844661,1,0,1,1,1,0,'','Thanks and I\'ve another qutestion?','Dear Detlef,\n\nThanks for another good idea but I try to use Drag and Drop but I cannot get the destination ::bData.  Because I can get only nRow but I don\'t know what the Record number or data in this Row.  How can I get the ::bData or Record No. from this drop row?\n\noBrw:oDragCursor := oCursor      \noBrw:bDragBegin  := { |nRow,nCol,Flags,Self| SetDropInfo( right(Eval(   oBrw:aColumns[ oBrw:nAtCol( nCol ) ]:bData ),10)+ ;\n			Eval( oBrw:aColumns[ 2 ]:bData ) ) }\n\noBrw:bDropOver   := { |uDropInfo,nRow,nCol,nKeyFlags| if(uDropInfo&lt;&gt;nil, ( MoveRms( uDropInfo+str( Int((nRow-25)/20),3 ), oBrw ) ), ) }\n\n*Now I use this*\nFunction MoveRms( cData, oLbx )\n   oLbx:lNoLiteBar := .T.\n   oLbx:GoTop()\n   for x := 1 to val(right(cData,3))-1\n       oLbx:GoDown()\n   next\n   oLbx:lNoLiteBar := .F.\nreturn\n\nBest regards,\nDutch','',0,'','1hkxaao7',1,0,'',47,0,0),(16263,3679,1,47,0,'203.144.143.5',1153844833,1,0,1,1,1,0,'','How can I get the drop row information?','Dear James,\n\nI use the master data is database but the ::aColumns are not data in record.   I need the data from Drop row but I don\'t know how to get it.\n\nBest regards,\nDutch','',0,'','34ri0i0z',1,0,'',47,0,0),(16264,3680,6,24,0,'80.58.210.47',1153846908,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:ejnmo8lj]Hola....\n\nYo te aconsejo MySQL, es facil de aprender no es del todo gratis, pero puedes empezar sin gastar casi ni un centavo.\n\nAdemas puedes enlazar varios puntos de trabajo por medio de internet sin costo solo tu linea de internet, si necesitas algo referente a MySQL por aqui estamos.\n[/quote:ejnmo8lj]\n\nMejor, te pones un PostGre, muchisimo mas potente, y encima libre.\nTotal, la sintaxis viene a ser mas o menos la misma.\n\nSobre ADS, demasiado CARO, eso si, para seguir tu forma de trabajar\ncon tus RDDs, es lo mas rapido.\n\nPero entre todos, PostGre sin dudas, posiblemente, el mejor de estas\n3 opciones.\n\n( ...Pues a mi no me gusta.... - Bueno, dije posiblemente <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> )\n\n\nSaludos\nRafa Carmona','',0,'gA==','ejnmo8lj',1,0,'',24,0,0),(16265,3696,7,533,0,'88.8.17.204',1153848500,1,0,1,1,1,0,'','Voy a comprobar una cosa!!','Hola jhony  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n     En fivewin for harbour pasaba lo mismo, alguien puso un post solucionando el tema, lo que pasa es que usa una función que no se si funcionará en fwppc, de todas maneras te escribo el nombre de la funcion de como quedaria tu funcion LOCALIZA:\n\nFunction Localiza(cKey,oTbr,nKey)\n   Local nSeekrec:=0,xTbr\n   xTbr:=oTbr\n   nSeekec:=recno()\n   if GetASyncKey(VK_BACK)                       --&gt; [b:2c8c721q]Esta es la funcion [/b:2c8c721q]\n      cKey:=substr(cKey,1,Len(cKey)-1)\n   end if\n   seek upper(cKey) softseek\n   if !found()\n      go nSeekRec\n   end if\n   xTbr:Refresh()\nreturn\n\nEl método ON CHANGE de tu get quedaría asi:\n\nON CHANGE (Self:Assign(),Localiza(\"\"+substr(oGet1:cText,1,Self:nPos-1) + upper(chr(nKey)),oTbr,nKey))\n\nRevisa parentesis <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSi tienes algun problema me lo comentas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','2c8c721q',1,0,'',533,0,0),(16266,3701,6,641,0,'201.121.148.131',1153848709,1,0,1,1,1,0,'','Error Lectura en COM','Hola tengo configurado un com para lectura\nel problema es que recibe basura\npero si antes abro el hiper-terminal de windows y lo cierro y entro a el programa en five win.. si lo lee bien\nal reiniciar la maquina tengo que hacerlo nuevamente,\nhe intentado de todo.. pero no le encuentro, utilizo FW xHarbour\n\ntengo que mandar algun caracter al puerto o que puede ser?\n\nDe antemano Gracias','',0,'QA==','33hjp4zx',1,0,'',641,0,0),(16267,3694,3,9,0,'85.59.34.132',1153850248,1,0,1,1,1,1,'','Re: writing fixed headers to Excel sheet','[quote=&quot;Ehab Samir Aziz&quot;:2k3em5x1]\nselect 3\nuse mach index mach3\nset filter to alltrim(3-&gt;mc_cu_acct)==\"2125447\"\n[/quote:2k3em5x1]\n\nFirst, I advise you,  to open files without \"area number\" and afterward use only its alias:\n\nuse mach index mach3 NEW\n\nSele mach3\n\n\n[quote=&quot;Ehab Samir Aziz&quot;:2k3em5x1]\nHow can I write fixed headers to fields written to Excel sheet using OLE\n[/quote:2k3em5x1]\n\na) One way:\n\n FOR nCol := 1 TO FCOUNT()\n      oSheet:Cells( nRow, nCol ):Value := FieldName( nCol )\n NEXT\n\n  WHILE !EOF()\n      nLine++\n      FOR nCol := 1 TO FCOUNT()\n         oSheet:Cells( nLine, nCol ):Value := FieldGet( nCol )\n      NEXT\n      DBSKIP()\n  ENDDO\n\n\nb) Another way:\n\n   oSheet:Cells( 3, 1 ):Value := \"TYPE\"\n   oSheet:Cells( 3, 2 ):Value := \"MODEL\"\n   oSheet:Cells( 3, 3 ):Value := \"SERIAL\"\n   oSheet:Range( \"A3\"):HorizontalAlignment:=7  // centered title\n\n   //\n   // set font and colors\n   FOR nCol := 1 TO FCOUNT()\n      oSheet:Cells( 3, nCol ):Font:Size := 10\n      oSheet:Cells( 3, nCol ):Font:Bold := .t.\n      oSheet:Cells( 3, nCol ):Font:Color:= 8388608 \n   NEXT','',0,'gA==','2k3em5x1',1,0,'',9,0,0),(16268,3687,1,684,0,'69.159.107.129',1153852192,1,0,1,1,1,0,'','','Thanks Antonio and Badara.\nC\'est fait deja la fonction browse. Je l\'ai modifiée en integrant des fonctions pour l\'ajout avec un controle de la clé primaire pour l\'index.\n\nThanks you,\nAbdel','',0,'gA==','3l5urupn',1,0,'',684,0,0),(16269,3701,6,362,0,'200.168.52.156',1153852302,1,0,1,1,1,1,'','Re: Error Lectura en COM','[quote=&quot;mariocorona&quot;:27bx8gt3]Hola tengo configurado un com para lectura\nel problema es que recibe basura\npero si antes abro el hiper-terminal de windows y lo cierro y entro a el programa en five win.. si lo lee bien\nal reiniciar la maquina tengo que hacerlo nuevamente,\nhe intentado de todo.. pero no le encuentro, utilizo FW xHarbour\n\ntengo que mandar algun caracter al puerto o que puede ser?\n\nDe antemano Gracias[/quote:27bx8gt3]\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/606PORTA.ZIP\">http://www.fivewin.com.br/Dicas/606PORTA.ZIP</a><!-- m -->\n\nSaludos.','',0,'gA==','27bx8gt3',1,0,'',362,0,0),(16270,3696,7,695,0,'81.37.106.196',1153852364,1,0,1,1,1,0,'','','Hola Mike, muchas gracias otra vez. He probado la funcion que me dices y a cambiar LOCALIZA, pero me da un error. Me dice que no existe la variable VK_BACK...Donde me he perdido?. o esque no funcionara en fwppc.\nDe todas formas Mike, mi codigo funciona para hacer la busqueda, lo unico que sucede es que el evento ON CHANGE cuando se produce, la variable CTEXTO no to toma el ultimo valor introducido. Esto en Delphi, estaria tirao! con un evento ON KEYPRESS, Pero aqui no puede ser así, por lo que veo...Seguire dandole vueltas... <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','1q3najxv',1,0,'',695,0,0),(16271,3679,1,58,0,'84.149.253.106',1153853262,1,0,1,1,1,0,'','Re: Thanks and I\'ve another qutestion?','[quote=&quot;dutch&quot;:1fyk714d]Dear Detlef,\n\nThanks for another good idea but I try to use Drag and Drop but I cannot get the destination ::bData ...[/quote:1fyk714d]\n\nHi Dutch,\n\nif you already now the record and you just have to find the corresponding  dbf field,\ni think you will have to use a translation table for your needs:\n[code:1fyk714d]\n#define POS_BRW    1\n#define POS_FLD    2\n\naColFieldPos &#58;= &#123;; // BrwPos, FieldPos\n                    &#123; 1,      1 &#125;,; // oBrw&#58;Column 1 shows field# 1\n                    &#123; 2,      2 &#125;,; // oBrw&#58;Column 2 shows field# 2\n                    &#123; 3,      5 &#125; ; // oBrw Column 3 shows field# 5 \n                &#125;\n\n/* now you just do  */\n\nnPos &#58;= ascan&#40; aColFieldPos, &#123;|a| a&#91; POS_BRW &#93; == oBrw&#58;nCell &#125;&#41;\n\nif nPos &gt; 0 \n   xxx-&gt;&#40; fieldPut&#40; aColField&#91; nPos &#93;&#91;POS_FLD &#93;, xValue &#41; &#41;\nendif\n[/code:1fyk714d]\n\nMaybe this could suit your problem?\n\nBest regards,\nDetlef','',0,'gIA=','1fyk714d',1,0,'',58,0,0),(16272,3701,6,641,0,'201.121.148.131',1153853883,1,0,1,1,1,0,'','','karinha:\n\nPregunta... en donde consigo\n\n   nBytes    := OutBufClr(nComm) // Limpa o Buffer de Saida.\n   nBytes    := InbufSize(nComm) // Pega Dados do Buffer.\n\nde Antemano Gracias','',0,'gIA=','2ffpwd8r',1,0,'',641,0,0),(16273,3701,6,362,0,'200.168.52.156',1153862107,1,0,1,1,1,1,'','','[quote=&quot;mariocorona&quot;:283sh9og]karinha:\n\nPregunta... en donde consigo\n\n   nBytes    := OutBufClr(nComm) // Limpa o Buffer de Saida.\n   nBytes    := InbufSize(nComm) // Pega Dados do Buffer.\n\nde Antemano Gracias[/quote:283sh9og]\n\n\n//-&gt; COMANDOS DE LA HBCOMM.LIB\n\n#pragma BEGINDUMP\n/*\n\nThe Harbour interface routines for the HBCOMM library.  It is not clear who\nproduced the harbour routines to interface with Harold Howe\'s TCommPort\nencapsulation.  Regardless, the Harbour interface has been modified to\nallow for more than one port to be open (MAXOPENPORTS) compiled at 20 and\nto allow for the sending and receiving of data containing NULL characters\n(Chr(0)).\n\nAs a C/C++ coder, I make a fair plumber.  Anyone who wishes to clean-up my\ncode is welcome to do so.\n\n    Ned Robertson\n    XpertCTI, LLC\n    Richmond, VA  USA\n    July, 2003\n\n*/\n\n#include \"hbapi.h\"\n#include \"hbcomm.h\"\n\nstatic int aHandles[ MAXOPENPORTS ] ;   // assumes initialized to zeros\nstatic int nHBase = 256 ;\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC(INIT_PORT) /* Nx_port(string),Nbaud(numerico),Ndata(numerico),Nparity(numerico),Nstop(numerico),nBufferSize(numerico)\n                   retorna .t. se abriu a porta */\n\n/*  cPort, nBaudrate, nDatabits, nParity, nStopbits, nBuffersize\n\nMain initiator/port opener.\n\n   cPort may take either the form \'COMn\' or the more general \'\\\\.\\COMn\'\n         The more general form is required for port numbers &gt; 9.\n\n   nParity codes: 0,1,2,3 -&gt; none, odd, mark, even\n\n   nStopBits codes: 0,1,2 -&gt; 1, 1.5, 2\n\n   Returns a \"handle\" &gt;= 256.  A return of -1 means open failed.\n\n   The handle must be used on all references to the port and is equivalent to\n   nComm used in 16 bit Clipper/Fivewin routines.  All routines take the\n   handle reference as their first argument.\n\n*/\n\n{\n\n    int i = 0, n = -1, nHandle ;\n\n    while ( n &lt; 0 &amp;&amp; i &lt; MAXOPENPORTS ) {\n\n       if ( aHandles[ i++ ] == 0 )\n\n          n = i - 1 ;\n\n    }\n\n    if ( n != -1 ) {\n\n       nHandle = nHBase++ ;\n\n       aHandles[ n ] = nHandle ;\n\n        if ( hb_init_port( n, hb_parc( 1 ) , hb_parnl( 2 ) ,\n              hb_parnl( 3 ) , hb_parnl( 4 ) , hb_parnl( 5 ) ,\n              hb_parnl( 6 ) ) )\n\n           hb_retnl( nHandle ) ;\n\n        else\n\n           hb_retnl( 0 ) ;\n\n    }\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( OUTBUFCLR )  // purge output buffer -&gt; Limpeza da Saida do Buffer\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 ) {\n\n       hb_outbufclr( nIdx )        ;\n\n       hb_retl( TRUE ) ;\n\n       }\n\n    else\n\n       hb_retl( FALSE ) ;\n\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( ISWORKING )  // See if port is opened correctly\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n        hb_retl( hb_isworking( nIdx ) );\n\n    else\n\n       hb_retl( FALSE ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( INCHR )  // fetch hb_parnl( 2 ) chars into hb_parc( 3 )\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n//        hb_retc( hb_inchr( nIdx, hb_parnl( 1 ) ) );\n        hb_retnl( hb_inchr( nIdx, hb_parnl( 2 ), hb_parc( 3 ) ) );  // EDR*7/03\n\n    else\n\n       hb_retnl( 0 ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( OUTCHR )   // Send out characters.  Returns .t. if successful.\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n//        hb_retl( hb_outchr( hb_parc( 1 ) ) );\n        hb_retl( hb_outchr( nIdx, hb_parc( 2 ), hb_parclen( 2 ) ) );  // EDR*7/03\n\n    else\n\n       hb_retl( FALSE ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( INBUFSIZE )      // Find out how many chars are in input buffer\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n        hb_retnl( hb_inbufsize( nIdx ) );\n\n    else\n\n       hb_retnl( 0 ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( OUTBUFSIZE )     // Find out how many characters are in out buf ?\n{\n\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 )\n\n        hb_retnl( hb_outbufsize( nIdx ) );\n\n    else\n\n       hb_retnl( 0 ) ;\n\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( UNINT_PORT )     // Close port and clear handle\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    if ( nIdx != -1 ) {\n\n       hb_unint_port( nIdx );\n\n       aHandles[ nIdx ] = 0 ;\n\n       hb_retl( TRUE ) ;\n\n       }\n\n    else\n\n       hb_retl( FALSE ) ;\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nint FindIndex ( int nH )  // Convert \"handle\" to tcomm array index\n{\n    int i = 0, n = -1 ;\n\n    while ( n &lt; 0 &amp;&amp; i &lt; MAXOPENPORTS ) {\n\n       if ( aHandles[ i++ ] == nH )\n\n          n = i - 1 ;\n\n    }\n\n//  printf( \"index= %8d\\n\", n );\n\n   return n ;\n}\n\n// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //\n\nHB_FUNC( CHKIDX )         // For debugging - not normally used\n\n{\n    int nIdx ;\n\n    nIdx = FindIndex( hb_parnl( 1 ) ) ;\n\n    hb_retnl( nIdx );\n\n}\n\n#pragma ENDDUMP','',0,'gA==','283sh9og',1,0,'',362,0,0),(16274,3694,3,148,0,'196.205.184.13',1153863371,1,0,1,1,1,0,'','','with your another way I got error : no exported method cells.\n\nbut if I added those lines before the loop it goes well.\n\n[code:33elcj1y]\n\n\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 1 &#41;, &quot;Value&quot;, &quot;Type&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 2 &#41;, &quot;Value&quot;, &quot;Model&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 3 &#41;, &quot;Value&quot;, &quot;Serial&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 4 &#41;, &quot;Value&quot;, &quot;Branch&quot; &#41; \n[/code:33elcj1y]','',0,'AIA=','33elcj1y',1,0,'',148,0,0),(16275,3694,3,343,0,'204.57.111.194',1153863646,1,0,1,1,1,0,'','','If you are adding a lot of records I like to use the clipboard and paste the information into Excel. You would be suprised at how much faster it is than updating every cell. More than 100 times faster.\n\nHere is a little sample of how I do it using your fields.\n[code:2igrh55h]\n// nStart is paste counter\nnStart &#58;= nCounter\ncMemo &#58;= \'\'\ndo while &#46;not&#46; mach-&gt;&#40; eof&#40;&#41; &#41;\n   // use tab between fields for delimiter\n   // all variables have to be character type\n   // if numeric or date set excel column type beforehand\n   cMemo += mach-&gt;mc_type          // No tab at the beginning of line\n   cMemo += chr&#40;9&#41;+mach-&gt;mc_model\n   cMemo += chr&#40;9&#41;+mach-&gt;mc_serial\n   cMemo += chr&#40;9&#41;+mach-&gt;mc_brn\n   cMemo += CRLF                   // end each line with crlf\n   nCounter++\n   skip\n   // paste every 100 records or eof&#40;&#41; &#40; no more records &#41;\n  // I do this to limit memory required for memo var\n   if mod&#40; nCounter, 100 &#41; = 0 &#46;or&#46; mach-&gt;&#40; eof&#40;&#41; &#41;\n      oClp     &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\n      if oClp&#58;Open&#40;&#41;\n         oClp&#58;SetText&#40; cMemo &#41;\n         oClp&#58;Close&#40;&#41;\n      endif\n      // select cell for paste \n      oSheet&#58;Cells&#40; nStart, 1 &#41;&#58;Select&#40;&#41;\n      oSheet&#58;paste&#40;&#41;\n      // reset paste counter\n      nStart &#58;= nCounter\n      cMemo &#58;= \'\'\n   endif\nenddo\n// clear clipboard buffer\noClp     &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\nif oClp&#58;Open&#40;&#41;\n   oClp&#58;SetText&#40; \'\' &#41;\n   oClp&#58;Close&#40;&#41;\nendif\n[/code:2igrh55h]','',0,'AIA=','2igrh55h',1,0,'',343,0,0),(16276,3702,6,97,0,'201.161.130.15',1153866262,1,0,1,1,1,1,'','RC2prg no genera nada','Saludos a todos he compilado y ejecuta el rc2prg pero no me genera nada abro el archivo solo tiene el #include Fivewin.ch , no sabes si funciona o no.\n\n\ngracias y saludos.\nfernando sandoval ruiz','',0,'AIA=','1xt5kuzs',1,0,'',97,0,0),(16277,161,6,286,0,'201.243.179.119',1153866720,1,0,1,1,1,1,'','','Saludos\n\nHe intentado reproducir tu ejemplo pero obtengo estos mensajes en el modulo BPaint\n\n[code:2hc4hcjz]Borland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nsource\\function\\BPAINT&#46;C&#58;\nWarning W8069 source\\function\\BPAINT&#46;C 100&#58; Nonportable pointer conversion in function HB_FUN_SBTNPAINT\nWarning W8069 source\\function\\BPAINT&#46;C 153&#58; Nonportable pointer conversion in function HB_FUN_SBTNPAINT\nWarning W8069 source\\function\\BPAINT&#46;C 286&#58; Nonportable pointer conversion in function HB_FUN_SBTNPAINT\nWarning W8069 source\\function\\BPAINT&#46;C 296&#58; Nonportable pointer conversion in function HB_FUN_SBTNPAINT\nWarning W8069 source\\function\\BPAINT&#46;C 299&#58; Nonportable pointer conversion in function HB_FUN_SBTNPAINT\nWarning W8069 source\\function\\BPAINT&#46;C 305&#58; Nonportable pointer conversion in function HB_FUN_SBTNPAINT\nWarning W8069 source\\function\\BPAINT&#46;C 308&#58; Nonportable pointer conversion in function HB_FUN_SBTNPAINT\nWarning W8004 source\\function\\BPAINT&#46;C 465&#58; \'hPalette1\' is assigned a value that is never used in function HB_FUN_SBTNPAINT\nWarning W8065 source\\function\\BPAINT&#46;C 1016&#58; Call to function \'GetTextExtent\' with no prototype in function HB_FUN_DRAWRADIO\nWarning W8065 source\\function\\BPAINT&#46;C 1392&#58; Call to function \'GetTextExtent\' with no prototype in function cDrawBoxes[/code:2hc4hcjz]\n\nEsto me impide generar correctamente la Lib\nTienes alguna idea por que ocurre?','',0,'AIA=','2hc4hcjz',1,0,'',286,0,0),(16278,161,6,147,0,'190.7.11.157',1153868826,1,0,1,0,1,1,'','','Aqui tienen la Lib.\ncon este make (lib_fwxh.mak) que vino con el wBrowse de Hernán nunca tuve problemas para enlazar cualquiera de las lib usuales.\nHay que editar el .mak y acondicionar los path. se usa con bmake\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ba70416/TSBUTTON.ZIP.html\">http://hyperupload.com/download/026ba70 ... N.ZIP.html</a><!-- m -->\n\nSaludos','',0,'AIA=','2t78x9kx',1,0,'',147,0,0),(16279,3679,1,47,0,'203.144.143.5',1153883095,1,0,1,1,1,0,'','How to Create Array during TSbrowse create?','Dear Detlef,\n\nI\'ve got it and it is the best way for now, if it cannot get from TSbrowse.  How can I make array for each browse row during browse create?\n\nThanks&amp;Regards,\nDutch','',0,'AIA=','2qw8a5nw',1,0,'',47,0,0),(16281,3703,6,54,0,'201.98.182.43',1153884419,1,0,1,1,1,1,'','Re: ¿Qué opciones tengo para accesar a bases de Access?','[quote=&quot;fleal&quot;:1aebum5c]Me pasaron una base de access con una sola tabla, viene tambien un informe.\n\nMe he pasado unas horas y he podido accesar a la tabla y ejecutar el informe. Pero lo hize con Visual Basic, un pequeño programa para accesar a la tabla de access y ejecutar el informe.\n\n¿Hay alguna forma de hacerlo con fivewin?. \n\nTengo un programa casi terminado para operar toda la administración y si no encuentro la forma de usar ese informe.... tendré que programarlo completo en VB. ¿Qué opciones tengo para ejecutar el informe?\n\nGracias\nFernando[/quote:1aebum5c]\n\nFer,\n\nPara acceso a access con ADO es excelente.\n\nPara lo del informe ni idea\n\nSaludos','',0,'gA==','1aebum5c',1,0,'',54,0,0),(16284,3703,6,215,0,'201.102.208.60',1153886887,1,0,1,1,1,0,'','¿Cómo se hace?','De momento me sirve si la conexión a la base se hace con ADO para recorrer los registros.... ¿Pero como se hace?\n\nEn cuanto al informe, vere si me lo puedo rehacer a código.\n\nGracias','',0,'gA==','ltguo9u5',1,0,'',215,0,0),(16285,3703,6,54,0,'201.98.182.43',1153887788,1,0,1,1,1,1,'','Re: ¿Cómo se hace?','[quote=&quot;fleal&quot;:3nx03m8h]De momento me sirve si la conexión a la base se hace con ADO para recorrer los registros.... ¿Pero como se hace?\n\nEn cuanto al informe, vere si me lo puedo rehacer a código.\n\nGracias[/quote:3nx03m8h]\n\n[url:3nx03m8h]http&#58;//incos&#46;sytes&#46;net/files/taller&#46;zip[/url:3nx03m8h]\n\nSe llama taller, no es mio, pero creo no hay problema si lo comparto, lo bajé de algun lado y no recuerdo de donde, lo que si dice en los créditos:\n\nMiguel Angel Cortes.\n\nEspero les funcione.\n\nPD. Mi msn es: <!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e -->\n\nSaludos','',0,'kA==','3nx03m8h',1,0,'',54,0,0),(16286,3679,1,303,0,'72.199.41.171',1153892394,1,0,1,1,1,0,'','','Dutch,\n\nTSBrowse (and all the browses) don\'t support dropping on a row, only dropping on a table. You will probably have to modify the browse source code to get this capability. I do think there was some discussion about this awhile back. You micht try doing a forum search.\n\n&gt;I\'ve got it and it is the best way for now, if it cannot get from TSbrowse. How can I make array for each browse row during browse create? \n\nThe easiest way it to browse a database object. A database object already has a built-in buffer array, aBuffer. All the data from the record is read into this array each time the record pointer is moved.\n\nJames','',0,'kA==','3toakp43',1,0,'',303,0,0),(16287,3705,6,102,0,'81.32.38.142',1153893958,1,0,1,1,1,1,'','Bitmap de fondo','Buenos dias.\n\nUtilizo Tprinter pra hacer informes y quiero poner de fondo un Bitmap que se vea como en Word (Marca de agua impresa).\nAlguien puede decirme como puedo hacerlo?\n\nGracias','',0,'kA==','2a47xkky',1,0,'',102,0,0),(16289,3707,7,656,0,'83.230.172.253',1153897849,1,0,1,1,1,0,'','UN PEQUEÑO GRAN FAVOR','Buenos días a todos; necesito que me hagais un gran favor, voy a adquirir 10 Fujitsu TP500, son PDA\'s industriales con impresora térmica incluida en LPT1, el tema es que he verificado con los ejemplos de la web de FWPPC que me funciona en el terminal, pero la impresión no la he podido verificar, y antes de adquirir tanto el FWPPC como los terminales quisiera probarlo. ¿ podría un alma caritativa hacerme un programa que imprima cualquier cosa (ej. \"HELLO\") en mi impresora ?, no sabeis cuanto lo agradecería.\n\n  PD: Es que los 10 Fujitsy son una pasta, y no quisiera que me despidiera n si no funciona.\n\n  Muchas gracias\n  Javi','',0,'kA==','1ha1z0x8',1,0,'',656,0,0),(16290,3708,1,173,0,'203.113.38.10',1153898599,1,0,1,1,1,0,'','Working with Exel or SPSS.','Dear all,\n\nIt\'s possible to open Exel file and SPSS file by FiveWin 2.1c ? And export something to Exel file and SPSS file too. If it possible, how I do ?\n\nBest Regrad,\n\nPeter\n\n** I\'m use FiveWin 2.1c and Blinker 7 now.','',0,'kA==','19xmhhwl',1,0,'',173,0,0),(16291,3679,1,58,0,'84.149.221.173',1153899377,1,0,1,1,1,0,'','Re: How to Create Array during TSbrowse create?','[quote=&quot;dutch&quot;:2v7g0por]Dear Detlef,\n\nI\'ve got it and it is the best way for now, if it cannot get from TSbrowse.  How can I make array for each browse row during browse create?\n\nThanks&amp;Regards,\nDutch[/quote:2v7g0por]\nHi Dutch,\n\nthis is not very difficult :\n[code:2v7g0por]dbf-&gt;&#40; dbEval&#40; &#123; || aadd&#40; aYourArray, --- your data --- &#41; &#125; &#41; &#41;[/code:2v7g0por]\nBut since you are working in FW16bits, it could be very dangerous to create an array with the same number of elements as your dbf-&gt;( lastrec() ).\n\nThis could be the moment to reflect about (x)Harbour  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nRegards,\nDetlef','',0,'gIA=','2v7g0por',1,0,'',58,0,0),(16292,3696,7,456,0,'217.127.39.57',1153902437,1,0,1,1,1,1,'','','VK_BACK es un define. \nO bien incluyes vkey.ch, o haces el define \n[code:208ab6ic]#define VK_BACK 8[/code:208ab6ic]','',0,'AIA=','208ab6ic',1,0,'',456,0,0),(16293,3697,4,2,0,'87.218.146.96',1153904402,1,0,1,1,1,1,'','','Pier,\n\nPlease post the images at <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us/\">http://www.imageshack.us/</a><!-- m --> ay copy here the provided url, thanks.','',0,'AIA=','2zpnhgdh',1,0,'',2,0,0),(16294,3705,6,375,0,'84.122.100.198',1153905912,1,0,1,1,1,1,'','','Creo que lo mejor es que aclares el bitmap y le des el aspecto final con un editor de graficos (photoshop, photopaint,etc...).\n\nDespués lo colocas en la página en primer lugar (antes que cualquier otro comando). Yo utilizo DibRead() y DibDraw(). Va muy bien.\n\nFinalmente, tendrás que utilizar oPrn:Say con el parámetro nBkMode en TRANSPARENTE para no enmascarar el gráfico de fondo:\n\noPrn:Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )\nnBkMode = 1 , 2 --&gt; transparent , Opaco.\n\nEs posible que exista alguna función API en alguna DLL de Windows, pero para qué calentarte la cabeza. A no ser que ese fondo no vaya a ser fijo, claro, sino a voluntad del cliente. En ese caso no te puedo ayudar.\n\nUn saludo.','',0,'AIA=','3p26xnyn',1,0,'',375,0,0),(16295,3697,4,20,0,'82.57.157.145',1153906058,1,0,1,1,1,0,'','','Thanks Antonio!\n\nI would want to define a folder like evidenced in this image.\n\n[url=http&#58;//imageshack&#46;us:3n2kng5w][img][URL=http://img291.imageshack.us/my.php?image=imagebv9.jpg][img]http://img291.imageshack.us/img291/5665/imagebv9.th.jpg[/img][/url:3n2kng5w]\n\nHow I can make this?\n\nRegards.\nPier Luigi','',0,'GA==','3n2kng5w',1,0,'',20,0,0),(16296,3697,4,2,0,'87.218.146.96',1153906884,1,0,1,1,1,1,'','','Pier,\n\nThough FWPPC supports folders, that bottom style we have not implemented it yet.','',0,'GA==','1g68qvp1',1,0,'',2,0,0),(16297,3699,3,2,0,'87.218.146.96',1153907556,1,0,1,1,1,1,'','','Roberto,\n\nIts fixed and greatly enhanced on FWH 2.7 July 2006.','',0,'GA==','2drqndvi',1,0,'',2,0,0),(16298,3709,3,67,0,'62.235.24.59',1153907636,1,0,1,1,1,0,'','Closing another aplication','Hello\n\nIn mine aplication , i use \n\nMemowrit(\"C:\\TEMP\\efkes.rtf\",cText)\nShellexecute(0 ,0  , \"C:\\TEMP\\efkes.rtf\" ,0 ,0 , 1)          \n\nTo edit a rtf-file\n\nWhen the rtf-file is not closed , and this commands are executed again with a different cText , the editor is activated with the old text file not the new\n\nUsing findwnd from enrico , i continue with :\n\n? \"Attention , Wordpad.exe or winword.exe must be closed correctly\" \n\nDO WHIL .T.\n  hWnd := FINDWND( \"EFKES.RTF\" ) \n  IF !EMPTY( hWnd ) \n    ? \"Temporary rtf-file is not closed : \" + CRLF + GETWINDOWTEXT(      hWnd )\n  ELSE\n    EXIT\nEND\n\nBut , knowing the handle from the editor , can it be closed by FW ?\nIn that case we don\'t need a looping\n\nFrank','',0,'GA==','2optx92z',1,0,'',67,0,0),(16299,3700,3,2,0,'87.218.146.96',1153907667,1,0,1,1,1,1,'','','Dale,\n\n&gt; By the way - I am using xHB Professional July 2006 RC7 Beta\n\nIt looks as there are some problems with such RC7.\n\nHave you tried it with Borland ?','',0,'GA==','clghyh6b',1,0,'',2,0,0),(16300,3703,6,138,0,'200.95.66.159',1153910336,1,0,1,1,1,1,'','','Eso esta chupao  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n[code:2tld5qku]LOCAL oConexionAdo &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41;\nPRIVATE oRecordset &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;recordset&quot;&#41;\n\n   oConexionAdo&#58;Open&#40;&quot;Provider= MicroSoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=&#46;\\taller&#46;mdb;&quot;&#41;\n\n   oRecordSet&#58;LockType &#58;= adLockOptimistic\n   oRecordSet&#58;CursorType &#58;= adOpenKeyset\n   oRecordSet&#58;ActiveConnection&#40;oConexionAdo&#41;\n   oRecordSet&#58;Source &#58;= &quot;Select * from clientes&quot; // tu query aqui\n   oRecordSet&#58;Open&#40;&#41;\n   oRecordSet&#58;MoveFirst&#40;&#41;\n\n   aDatos &#58;= &#123;&#125;\n\n   DO WHILE ! oRecordSet&#58;eof&#40;&#41;\n        aReng &#58;= &#123;&#125;\n        FOR x &#58;= 1 TO oRecordSet&#58;Fields&#58;Count&#40;&#41;\n            AADD&#40;aReng,oRecordSet&#58;Field&#40;x-1&#41;&#58;Value\n        NEXT\n        AADD&#40;aDatos,aReng&#41;\n        oRecordSet&#58;MoveNext\n   ENDDO\n\n   oRecordSet&#58;Close&#40;&#41;\n   oConexionAdo&#58;Close&#40;&#41;\n[/code:2tld5qku]','',0,'AIA=','2tld5qku',1,0,'',138,0,0),(16301,3679,1,47,0,'203.144.143.5',1153913196,1,0,1,1,1,0,'','Thank you very much Detlef &amp; James','Dear Detlef &amp; James,\n\nI\'ve got it.  Thank you very much for your ideas.\n\nRegards,\nDutch','',0,'AIA=','2kkdl86l',1,0,'',47,0,0),(16302,3684,2,542,0,'88.9.42.148',1153914361,1,0,1,1,1,0,'','','gracias de antemano Manuel por tu respuesta:\n\nahora etengo un problema he incorporado la libreria OLE2 al programa y he intentado abrir un fichero de word para empezar, pero siempre me el siguiente mensaje:\n\nVariant type not implement from OleGetProperty()\n\ny me abre word pero no introduce el archivo que quiero, por si os sirve os pongo el codigo que he puesto\n\nFUNCTION docudocu()\nstore fichero to fich                                        //nombre del archivo\noWord:=TOleAuto():New( \"Word.Application\" )\noWord:Documents:Open(fich)                        // abre el fichero\noDoc:=oWord:Get(\"ActiveDocument\")\noWord:Visible := .T.                                      // visible\noWord:Set( \"WindowState\", 1 )                      // 0=MEDIO 1=Maximizado\noWord:End()                                   // cierra el objeto ANULAR EN 32 bit\nOleUninitialize()\nRETURN (NIL)\n\nsi me podeis ayudar gracias.\n\nCarlos','',0,'AIA=','1frxtwqa',1,0,'',542,0,0),(16303,161,6,286,0,'201.243.176.207',1153914474,1,0,1,1,1,1,'','','Muchas gracias\nVoy a probar...','',0,'AIA=','3q2lku41',1,0,'',286,0,0),(16305,3684,2,9,0,'85.59.34.132',1153917437,1,0,1,1,1,1,'','','Carlos,\n\nEl comando STORE es del tiempo de Pedro Picapiedra (dBase III).\n\nIntenta lo siguiente:\n\n// Llamamos a la función con el nombre del fichero completo. En Clipper usa solo nombres cortos + la extensión, por ejemplo:\n\nDOCUWORD (\"contrato.doc\")\n\n- - - - - - - - - - - - - - - - - - - - - - - - \n\nFUNCTION DocuWord ( cFichero )  \n\n// si no existe el fichero\nif !file( cFichero )                       \n   ALERT (\"NO EXISTE EL FICHERO\")\n   RETURN nil\nENDI\n\noWord:=TOleAuto():New( \"Word.Application\" )\n\n// si cuando no existe el fichero quieres crearlo, la alternativa seria:\n   if !file( cFichero )                               // archivo nuevo\n      oWord:Documents:ADD()                // abre fichero en blanco\n      oDoc := oWord:Get(\"ActiveDocument\")  // object (documento activo)\n      oDoc:Invoke( \"SaveAs\", cFichero )    // graba fichero\n      oDoc:Invoke(\'Close\',0)               // cierra fichero\n   ENDI\n\n   oWord:Documents:Open(cFichero)          // abre el fichero\n\n   oWord:Visible := .T.                    // visible\n   oWord:Set( \"WindowState\",  1 )   // 0=MEDIO 1=Maximizado\n   oWord:End()                             // cierra el objeto pero no Word\n\nRETURN nil\n\n- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -\n\nHasta que consiga que funciones, cada vez que te falla se queda Word abierto para Windows o un fichero que se llama (creo) wow....exe.- Cuando te falle, usa msconfig y elimina (cerrar) word.exe y el wow... que te digo. Si no te aclaras, reinicia el ordenador y punto.','',0,'AIA=','3o47a2vp',1,0,'',9,0,0),(16306,3709,3,6,0,'82.57.160.151',1153917538,1,0,1,1,1,1,'','Re: Closing another aplication','If you mean the handle of the window then yes:\n\n[code:3mytwqum]#define WM_CLOSE 16\n\nSENDMESSAGE&#40; hWnd, WM_CLOSE &#41;\n\nor\n\nPOSTMESSAGE&#40; hWnd, WM_CLOSE &#41;[/code:3mytwqum]\n\nEMG','',0,'AIA=','3mytwqum',1,0,'',6,0,0),(16307,3652,6,428,0,'200.55.19.126',1153918873,1,0,1,1,1,0,'','','Raymundo, gracias  opte por el metodo que me comentaste y funciona Ok.\n\nSaludos\nMiguel','',0,'AIA=','2336swir',1,0,'',428,0,0),(16308,3705,6,102,0,'81.32.38.142',1153922915,1,0,1,1,1,1,'','','Gracias ManuRamos.\nAl final eso es lo que he hecho y me ha quedado bastante bien\n\n[quote=&quot;manuramos&quot;:3fax2ofl]Creo que lo mejor es que aclares el bitmap y le des el aspecto final con un editor de graficos (photoshop, photopaint,etc...).\n\nDespués lo colocas en la página en primer lugar (antes que cualquier otro comando). Yo utilizo DibRead() y DibDraw(). Va muy bien.\n\nFinalmente, tendrás que utilizar oPrn:Say con el parámetro nBkMode en TRANSPARENTE para no enmascarar el gráfico de fondo:\n\noPrn:Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )\nnBkMode = 1 , 2 --&gt; transparent , Opaco.\n\nEs posible que exista alguna función API en alguna DLL de Windows, pero para qué calentarte la cabeza. A no ser que ese fondo no vaya a ser fijo, claro, sino a voluntad del cliente. En ese caso no te puedo ayudar.\n\nUn saludo.[/quote:3fax2ofl]','',0,'gA==','3fax2ofl',1,0,'',102,0,0),(16309,3710,6,428,0,'200.55.19.126',1153924776,1,0,1,1,1,0,'','formulas estadisticas','Hola Foro\n\nAlguien podria indicarme donde puedo obtener las formulas estgadisticas para calcular:\n    Linea de Tendencia\n    Estimación Lineal\n\nExcel las trae pero debo incluirla en mi programa Fivewin/Harbour, las ayudas ofrecidas por Excel no me son claras, realmente no la entiendo, (la estadística no es mi fuerte).\n\nCualquier información al respecto es bienvenida.\n\nGracias\nMiguel','',0,'gA==','2vnfkelw',1,0,'',428,0,0),(16310,3709,3,67,0,'62.235.24.59',1153925878,1,0,1,1,1,0,'','','Enricio\n\nthank you very much , as always it works\n\nI hope i am not to late : congratulations to italy with welth cup !!!\n\n\nFrank','',0,'gA==','3nq6crz9',1,0,'',67,0,0),(16311,3417,3,455,0,'195.97.105.161',1153929574,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:3nae9toe]Dear Timm, have you correct the error ?\n\nBest Regards,[/quote:3nae9toe]\n\nSilvio,\nI am using TSBUTTONS version 4.0 (at least the TSBUTTON.PRG says this at the beginning)\n\nI am using this file below, named TSBUTTON.LIB.XBP to build the TSBUTTON.LIB.  I am using xHB Builder of course, but keep in mind that in every new version of XHB or FWH, you\'d need to recompile the library.\n\nHere is the builder file:\n\n[code:3nae9toe]\nC_OUTPUTFOLDER = \nDEFFILE = \nINCLUDEFOLDERS = \\fwh\\include;include\nLDEBUG = &#46;F&#46;\nLGUI = &#46;F&#46;\nLIBFOLDERS = \nLMT = &#46;F&#46;\nLUSEDLL = &#46;F&#46;\nMAPFILE = \nMYC_FLAGS =  \nMYDEFINES = __HARBOUR__ ;__FLAT__ \nMYLINK_FLAGS = \nMYPRG_FLAGS = \nMYRC_FLAGS = \nMYSLY_FLAGS = \nOUTPUTFOLDER = xbp\\obj\nPRG_OUTPUTFOLDER = \nRC_OUTPUTFOLDER = \nSLY_OUTPUTFOLDER = \nTARGETFOLDER = xbp\\lib \n\n&#91;source\\classes\\TSBUTTON&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;source\\classes\\TSBAR&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;source\\classes\\TSLINES&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;source\\classes\\TSTSAY&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;source\\function\\BPAINT&#46;C&#93;\nMYC_FLAGS = \nMYDEFINES = \n[/code:3nae9toe]\n\nCopy this and create TSBUTTON.LIB.XBP, then run it and you\'ll have your library build in the folder .\\XBP\\LIB \n\nPlease let me know if it works for you.\n\nRegarding the reservation bus application... I will test in a few minutes and will post a new message. \n\nKind regards\nEvans','',0,'gIA=','3nae9toe',1,0,'',455,0,0),(16313,3454,2,635,0,'200.35.113.28',1153930424,1,0,1,1,1,0,'','archivos temp','Borra los Archivos temp. Pudieras hacerlo manualmente o por c: Propiedades, Liberar espacio en Disco....','',0,'gIA=','b71830me',1,0,'',635,0,0),(16314,3570,2,635,0,'200.35.113.28',1153930724,1,0,1,1,1,0,'','','Yo te recomiendo que uses la Clase DOSPRINT de Jorge Mason. Es excelente.','',0,'gIA=','1jou3upb',1,0,'',635,0,0),(16315,3711,2,438,0,'200.87.231.232',1153930895,1,0,1,1,1,0,'','TCBrowse: Actualizar datos de tabla modif. por otro usuario','Hola amigos:\n\nTengo un problema con TCbrowse en Windows XP, cuando otro usuario crea un nuevo registro en la tabla PRODUCTOS.\n\nDigamos que yo estoy en el producto \"0701020\"  y el reg creado por el otro usuario es \"0701021\", cuando hago un SKIP(), el Browse salta a fin de archivo y cualquier otro movimiento salta a un registro incongruente. Luego cierro el Browse y tambien la tabla y vuelvo a abrir todo de nuevo todo esta bien (no hay corrupcion de indices).\n\nPero si no cierro el Browse y la Tabla, y añado un registro, si da corrupcion de indices.\n\nEsto solo pasa en WinXp, en Win98 el Browse se actualiza correctamente.\n\nDe antemano gracias por la ayuda.','',0,'gIA=','22kd964s',1,0,'',438,0,0),(16316,3417,3,455,0,'195.97.105.161',1153931742,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:e5i130k8]How I can make to insert on each button the caption with the number of buttons ?\n\nRegards[/quote:e5i130k8]\n\nSilvio,\nI have spent a few minutes with Bus Reservation, and to my surprise, I\'ve seen that whoever wrote this library, says that you can use multiple bitmap (e.g. 4 images in one single BMP file).\nThis is something I\'ve never done before... I couldn\'t make it to work, but, if you replace the resource bitmaps with 4 different ones (size 32 x 29 bytes each bitmap) you can make it work.  At least it works for me, as expected!\n\nHere are the code changes needed to TESTBTN.PRG:\n\n\n[code:e5i130k8]\n     @10,90 SBGROUP aBtn1 OF aChild&#91; 3 &#93; ;\n             CAPTION aCapt1 ;\n             SIZE 34, 34 PIXELS ;\n             FONT oFont ;\n             ACTION aAct1 ;  //             RESOURCE &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot;, &quot;Seatm&quot; ; // multi bitmap\n             RESOURCE &quot;Seatm1&quot;, &quot;Seatm2&quot;, &quot;Seatm3&quot;, &quot;Seatm4&quot;  ;  // MODIFIED BY EVANS\n             MESSAGE &quot;Click izquierdo&#58; Reservar Asientos&#46;  &quot; + ;\n                     &quot;Click derecho&#58; Cancelar Reservaci&#8804;n&#46;&quot; ;\n             COLORS CLR_WHITE, CLR_CYAN ;\n             TEXT ON_CENTER ;\n             LOOK W97\n\n[/code:e5i130k8]\n\nPlease notice that there are two groups of seats in the window...\nOne above, and one below the middle of the bus.  You\'ll have to copy/paste the RESOURCE... above to both places and replace the multi bitmap resource.\n\nYou\'ll also have to change the size of the child window to 260, 500 because the televisions are drawn on the window\'s frame!\n\nFinally, you\'ll have to add these to your TESTBTN.RC file, right after the SEATM BITMAP... as follows:\n\n\n[code:e5i130k8]\nSEATM   BITMAP &quot;&#46;&#46;\\bitmaps\\SEATM&#46;BMP&quot;\nSEATM1  BITMAP &quot;&#46;&#46;\\bitmaps\\SEATM1&#46;BMP&quot;\nSEATM2  BITMAP &quot;&#46;&#46;\\bitmaps\\SEATM2&#46;BMP&quot;\nSEATM3  BITMAP &quot;&#46;&#46;\\bitmaps\\SEATM3&#46;BMP&quot;\nSEATM4  BITMAP &quot;&#46;&#46;\\bitmaps\\SEATM4&#46;BMP&quot;\n[/code:e5i130k8]\n\nIf you need the above 4 bitmaps, I can email them to you by private email, otherwise, you may copy/paste each seat in SEATM.BMP into separate files named as above, or at your choice.\n\nKind regards\nEvans','',0,'gIA=','e5i130k8',1,0,'',455,0,0),(16317,3704,6,104,0,'201.58.8.196',1153932905,1,0,1,1,1,0,'','','Olá Oskar,\n\nOutro recurso interessante seria a ordenação ascendente/descendente por coluna  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Seria possível isto ?\n\nGracias,\n\nRossine.','',0,'gIA=','1ivqz41l',1,0,'',104,0,0),(16318,3712,1,51,0,'80.122.88.242',1153935139,1,0,1,1,1,0,'','SETFOREGRO','Link error.\nWhich lib do I have to use?\n\nThanks in advance\nOtto','',0,'gIA=','1tp5n67k',1,0,'',51,0,0),(16319,3702,6,376,0,'200.106.107.223',1153935818,1,0,1,1,1,0,'','Re: RC2prg no genera nada','Tuve ese problema. Fui modificando el program que viene en la carpeta \"samples\" del FW y aún me falta más trabajo para incluir otros controles pero ya tengo una versión que te genera el prg. \n\nLo que me falta es incluir la generación de código para la clase tbrowse y otros. Lo que tengo es SAY, GET y BUTTON (los principales). Si te parece te envío a tu correo (sugiero que utilices yahoo o gmail porque Hotmail es escaso en capacidad de archivos).\n\nSaludos\n\nArmando\n\n[quote=&quot;fsandoval&quot;:2jdzqgdn]Saludos a todos he compilado y ejecuta el rc2prg pero no me genera nada abro el archivo solo tiene el #include Fivewin.ch , no sabes si funciona o no.\n\n\ngracias y saludos.\nfernando sandoval ruiz[/quote:2jdzqgdn]','',0,'gA==','2jdzqgdn',1,0,'',376,0,0),(16322,3713,1,51,0,'80.122.88.242',1153937272,1,0,1,1,1,0,'','VISTA BETA 2- ShowWindow','SW_SHOWMAXIMIZED = 3     \n\nShowWindow(hWnd,3)\n\nSystem hangs.\n\n\nSW_RESTORE = 9\nWorks.\n\n\nRegards\nOtto','',0,'gA==','27jls7uz',1,0,'',51,0,0),(16323,3714,6,376,0,'200.106.107.223',1153938249,1,0,1,1,1,0,'','Servidor SMTP','Intento convertir mi PC a un Servidor SMTP.\n\nLa idea básica consiste en que tengo un DBF con los correos de mis clientes y desde FW quiero enviarles mensajes y archivos anexos con novedades de la legislación económica de mi país. Hasta el momento me parece que pierdo tiempo al tener que registrar los correos en el cliente de correo (Outlook y Eudora).\n\nAlguien puede decirme como hacerlo?. \n\nMi primera intención consistió en instalar Apache o Xitame.  Ya lo hice pero tengo la duda de si eso es suficiente para almacenar los correos enviados o acaso tenga que crear una carpeta o un archivo de texto?\n\nPor favor que alguién me de una ayuda que se los agradeceré muchiiiisimo.\n\nArmando','',0,'gA==','mtsrc0mv',1,0,'',376,0,0),(16324,3703,6,54,0,'201.98.182.43',1153942447,1,0,1,1,1,1,'','Re: ¿Cómo se hace?','[url:1x6m3mt3]http&#58;//incos&#46;sytes&#46;net/fwh/taller&#46;zip[/url:1x6m3mt3]\n\nSorry, link equivocado, este es el correcto.\n\nSe llama taller, no es mio, pero creo no hay problema si lo comparto, lo bajé de algun lado y no recuerdo de donde, lo que si dice en los créditos:\n\nMiguel Angel Cortes.\n\nEspero les funcione.\n\nPD. Mi msn es: <!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e -->\n\nSaludos','',0,'EA==','1x6m3mt3',1,0,'',54,0,0),(16325,3715,17,375,0,'84.122.100.198',1153943599,1,0,1,1,1,1,'','Sugerencias LISTBOX','Debido a mi peculiar forma de programar, me han surgido situaciones que me han obligado, como a muchos de vosotros supongo, a realizar moficiaciones en diversas Clases de FW, algunas de ellas al wBrowse, aunque al final optara por crear mis propios Browses. Me dispongo, por si a alguien le interesa, a exponer dos de tantas sugerencias que le van bien al WBrowse de FW. Son más largas de explicar que de comprender y llevar a cabo y constituyen una mejora razonable. Paciencia.\n\n1) [u:4nq75uuy]bPreChange[/u:4nq75uuy]\n\nPara listados de personal me gusta desplegar un listbox con la ficha (Editable: con GET\'s) de la persona a su lado, de manera que a cada vez que cambio de línea en el listbox me cambian los datos en los Get\'s de la ficha correspondiente. Esto entraña varios problemas, el más importante es cuando cambio algún dato y después cambio de ficha pulsando alguna tecla o pinchando sobre otra línea del Listbox, todo ello sin haber guardado las modificaciones. Personalmente me gusta que el programa me pregunte si quiero guardar los datos antes de cambiar de ficha (lo típico \"SI\", \"NO\" \"CANCELAR\"). Se puede hacer si previamente has guardado el RECNO() de la ficha: preguntas si deseas volver y si le das a \"CANCELAR\" \"Buscas\" el RECNO(), y recuperas la ficha. Pero genaralmente el listbox parpadea de forma desagradable, el VSCroll se desplaza arriba y abajo y la línea en la que estaba el foco del Listbox cambia de lugar. Un efecto desagradable y poco profesional.\n\nLo solucioné con el CodeBlock ::bPreChange, más una variable lógica ::lContinue, La mecánica es bien simple:\n\nhay que colocar [b:4nq75uuy]::lContinue := .T.[/b:4nq75uuy] al principio de los métodos \'KeyDown\', \'LButtonDown\' y \'VScroll\' para que llegue como .T. a todos los métodos que implican movimiento del listbox. Después, en cada uno de esos métodos; GoUp(), GoDown(), GoTop(), Etc..., hay que hacer lo siguiente:\n\nIF Se Puede Procesar Movimiento\n\n[b:4nq75uuy]IF bPrechange # NIL\nEVAL(bPrechange, ... &lt;VARIABLES A GUSTO DEL PROGRAMADOR&gt; ...)\nENDIF\n\nIF ::lContinue[/b:4nq75uuy]\n...\nPROCESAR MOVIMIENTO\n...\nIF bChange # NIL\nEVAL(bChange,Self)\nENDIF\n...\n[b:4nq75uuy]ENDIF[/b:4nq75uuy]\n\nAhora, cuando contestes \"[b:4nq75uuy]CANCELAR[/b:4nq75uuy]\" con hacer oLbx:lContinue := .F. te quedas en la ficha pués el Listbox no se ha movido. Parece mucho, pero tan sólo supone una quincena de líneas (muchas repetidas) en el PRG (muy pocos minutos).\n\nTambién sirve para cualquier otra acción que tengamos que realizar antes de cambiar de registro. Por ejemplo: oDBD:Save(), un repintado o refresco de pantalla, una consulta a tablas, pedidos, avisos, recordatorios, etc...\n\n\n2) [u:4nq75uuy]::nMaxCol[/u:4nq75uuy]\n\nLa segunda propuesta, para quien haya aguantado el tostón, tiene que ver con la estética del Listbox. Es más accesoria. Se trata de especificar cuál va a ser la última columna visible más a la izquierda del listbox ¿?. Me explico. Normalmente, cuando pulsamos \'flecha derecha\' o pinchamos sobre el HSCroll (en la parte derecha), las columnas del listbox se desplazan hacia la izquierda hasta llegar a la última. Amenudo esa ultima columna es la más estrecha y en esas condiciones ocupa todo el listbox (casi todo el listbox está en blanco). Con ::nMaxCol podemos hacer que esto no ocurra. Por ejemplo, supongamos que tengo 10 columnas para listar, pero se ven de tres en tres, me desplazo hacia la derecha hasta que la la octava columna está a la vista y pegada a la izquierda del listbox, aparecen así a la vista las columnas 8, 9 y 10. No necesito desplazarme más, para no perder la estética de pantalla. Si ::nMaxCol vale 8 (nº de la columna más a la izquierda del listbox), ya no se podría desplazar más. Esto me permitiría, además ocultar una posible onceava columna.\n\nSolución:\n\nColocar ::nMaxCol := NUMERO MAXIMO DE COLUMAS. en los métodos NEW() y REDEFINE().\nPor ejemplo en wBrowse ::nMaxCol := Len( GetColSizes() )\n\nDespués hay que establecer el rango del HSCroll: \'RANGE 1,::nMaxCol\'\n\nFinalmente en el Método GoRight() habrá que añadir, al principio del todo:\n\n[b:4nq75uuy]IF ::nColAct &lt; ::nMaxCol [/b:4nq75uuy]   // Significa que si la columna más a la izquierda no es menor que ::nMaxCol no se procesa GoRight()\n...\nRESTO DEL METODO TAL CUAL\n...\n[b:4nq75uuy]ENDIF[/b:4nq75uuy]\n\nPara aplicar duarante la programación, sencillamente:\n\nREDEFINE oLbx ID .. OF oDlg ... FIELD ...\n...\n[b:4nq75uuy]oLbx:nMaxCol := 8[/b:4nq75uuy]\n\nEspero que sirva de algo.\n\nUn saludo.','',0,'QQ==','4nq75uuy',1,0,'',375,0,0),(16326,3694,3,148,0,'196.205.176.64',1153944149,1,0,1,1,1,0,'','','Application\n===========\n   Path and name: E:\\programs\\clipper\\FWH\\sitex\\sitex.exe (32 bits)\n   Size: 1,465,344 bytes\n   Time from start: 0 hours 0 mins 9 secs \n   Error occurred at: 26/07/2006, 23:01:49\n   Error description: Error BASE/1004  No exported method: CELLS\n\nAny good links to OLE issues. I need those tutorials about opening Excel sheets from inside a FWH application .','',0,'QQ==','1wlxv0nn',1,0,'',148,0,0),(16327,3712,1,6,0,'82.57.160.151',1153944620,1,0,1,1,1,1,'','Re: SETFOREGRO','Try this:\n\n[code:35yiwmxc]DLL32 FUNCTION SETFOREGROUNDWINDOW&#40; hWnd AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;SetForegroundWindow&quot; LIB &quot;user32&#46;dll&quot;[/code:35yiwmxc]\n\nEMG','',0,'AIA=','35yiwmxc',1,0,'',6,0,0),(16328,3707,7,150,0,'62.15.59.32',1153948944,1,0,1,1,1,1,'','','¿En lpt1 o en com1?\n\no.t.: Me parece increible que si vas a comprar 10 pda no te dejen una en deposito para pruebas.','',0,'AIA=','3qpokl73',1,0,'',150,0,0),(16329,3684,2,542,0,'88.9.42.148',1153949500,1,0,1,1,1,0,'','','Gracias Manuel por tu ayuda, el problema lo tenia en no poner la ruta completa y poner la libreria OLE2 en primer lugar en vez del ultimo en el archivo LNK (sera creido). Ya me funciona de perlas como yo queria. de nuevo gracias. El comano store lo uso desde que comenze a programar con dbase III alla por el 88 y como copio mucho no lo he quetado ya que aveces me es más comodo pra ver cuando son muy largos los fuentes. Por otra parte existe alguna funcion como oPrn:Setup() para los Reporte.\nSi lo sabes gracias por la informacion de antemano.\n\nUn saludo\n\nCarlos','',0,'AIA=','35om1bxi',1,0,'',542,0,0),(16330,3716,6,396,0,'201.248.97.238',1153951540,1,0,1,1,1,1,'','Relacionar 2 o mas DBF','Hola a todos, se que para muchso esto debe ser pan conmio, siempre he trabajadon con  1 DBF a la ves, pero ahora debo trabajar on 1 o mas al mismo tiempo, es decir al hacer click o deslizarme por 1 registro me cambie 1 ò 2 DBF al instante mostraondoem los registros que esten relacionados. Ejm. 1 inventario y este a unos lotes que varian pero en el mismo codigo de producto, intente con relacion de DBF, pero me perdi.gracias por la ayuda y si hay algun pequeño ej, mejor.salu2  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','1qc57nwx',1,0,'',396,0,0),(16331,3716,6,492,0,'201.154.126.49',1153955067,1,0,1,1,1,1,'','','Hola Jose Luis\n\nPodrian mencionarse varias formas para hacer lo que comentas :\n\nCon bases Relacionadas, con scopes, y por UDF\'s \n\nHabria tambien que ver como estas manejando los browses : con DBF\'s o con Arrays.\n\nLo basico para hacer eso, ( desde mi punto de vista   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  ), ya que tengas definidos y armados tus browses, desde el Principal, que uses la clausula ON CHANGE y mandes llamar a una Funcion que te \"llene\" los browses secundarios con datos relacionados al valor que le indiques : podria ser el numero de parte de un item, el folio de una factura, etc.\nEsto obviamente, va a ser relativo a como estructures tus browses.\n\nEspero te sirva\n\nSALUDOS','',0,'AIA=','24ajlj41',1,0,'',492,0,0),(16332,3714,6,138,0,'200.77.126.116',1153965591,1,0,1,1,1,1,'','','Prueba el ejemplo TESTSMTP de Fivewin.\n\nEl metodo SENDMESSAGE de la clase recibe un parametro que es aTO, un array con las direcciones de correo de todos los destinatarios, asi que de un solo paso haces todo lo que tienes que hacer.\n\nejemplo:\n\n[code:2kxvzsxp]cTemp &#58;= MEMOREAD&#40;&quot;fichero&#46;txt&quot;&#41; // cuerpo del mensaje de correo\nUSE fwusrs&#46;dbf SHARED NEW ALIAS &#40;cAlias&#41;\nfwusrs-&gt;&#40;OrdSetFocus&#40;&quot;pacino&quot;&#41;&#41;\nSET SCOPE TO &quot;Espa&quot;\nfwusrs-&gt;&#40;dbgotop&#40;&#41;&#41;\n\nfwusrs-&gt;&#40;DBEVAL&#40;&#123;|| AADD&#40;aTo,ALLTRIM&#40;fwusrs-&gt;email&#41;&#41;&#125;&#41;&#41;\n\n//tienes que llamar 2 veces al metodo constructor, si no, no funciona\noMail&#58;=TSmtp&#40;&#41;&#58;New&#40;GETHOSTBYNAME&#40;&quot;tu&#46;servidor&#46;smtp&quot;&#41;&#41;\noMail&#58;=TSmtp&#40;&#41;&#58;New&#40;GETHOSTBYNAME&#40;&quot;tu&#46;servidor&#46;smtp&quot;&#41;&#41;\n\noMail&#58;SendMail&#40;&quot;quienenvia@servidor&#46;com&quot;,;                 // de\n       aTo,; // para &#40;array de direcciones previamente cargado&#41;\n       cTemp,;  // Cuerpo del Mensaje\n      &quot;Este es un ejemplo&quot;,;   // Asunto &#40;Subject&#41;\n      &#123;&#125; &#41;  //  Array de nombres &#40;con directorio&#41; de archivos a anexar\n\noMail&#58;bDone &#58;= &#123;|| oWnd&#58;End&#40;&#41;&#125;\n\n[/code:2kxvzsxp]','',0,'AIA=','2kxvzsxp',1,0,'',138,0,0),(16334,3716,6,138,0,'200.77.126.116',1153969108,1,0,1,1,1,1,'','','SET RELATION es uno de los comandos mas poderosos del XBASE pero la gente se complica mucho la vida usandolo, o definitivamente no lo usa.\n\nEn realidad no tiene nada de complicado, y es super poderoso, porque te permite \"sincronizar\" bases de datos, es excelente para cuando tienes campos relacionados y te interesa que las tablas dbf se \"dejen huellas\" entre si y no quieres hacer un SELECT para buscar en otra area\n\nFunciona de la siguiente manera.\n\nEn este ejemplo vamos a relacionar 3 tablas \"hijas\" contra una tabla \"padre\" asumimos que por cada registro en la tabla padre, existe uno o mas registros correspondientes en las tablas hijas.\n\n1) Se abren primero las tablas \"hijas\", estas tablas es conveniente que esten indexadas en base al campo sobre el cual se establece la relacion.\n\n[code:2c0vwejs]USE pv&#46;dbf shared new\npv-&gt;&#40;ORDSETFOCUS&#40;&quot;pvcode&quot;&#41;&#41;\npv-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\nUSE groups&#46;dbf shared new\ngroups-&gt;&#40;ORDSETFOCUS&#40;&quot;groucode&quot;&#41;&#41;\ngroups-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\nUSE channel&#46;dbf SHARED NEW\nchannel-&gt;&#40;ORDSETFOCUS&#40;&quot;chancode&quot;&#41;&#41;\nchannel-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n[/code:2c0vwejs]\n\nEs muy importante, aunque no necesario, que el campo que relaciona las tablas se llame IGUAL en todas la tablas y sea del mismo tipo, mismo tamaño y mismo numero de decimales en caso de ser un campo numerico.\n\n2) Como seguno paso. Se abre la base de datos \"padre\", y se indexa por cualquier criterio.\n\n[quote:2c0vwejs]   USE  agents.dbf SHARED NEW\n   agents-&gt;(ORDSETFOCUS(\"IATA\"))\n[/quote:2c0vwejs]\n\n3) y ahora viene la magia, vamos a relacionar campos de la tabla padre, con sus correspondientes en las tablas hijas:\n\n[code:2c0vwejs]   SET RELATION TO channelcod INTO channel ADDITIVE\n   SET RELATION TO groupcode INTO group ADDITIVE\n   SET RELATION TO pvcode INTO pv ADDITIVE\n   &#40;cAliasAgents&#41;-&gt;&#40;DBGOTOP&#40;&#41;&#41;[/code:2c0vwejs]\n\nEl comando SET RELATION recibe como clausulas EL NOMBRE DEL CAMPO DENTRO DE LA TABLA PADRE (channelcod, groupcode y pvcode) el INTO establece el ALIAS de la tabla hija. ¿ Como sabe la relacion contra que campo en tabla hija se asocia el padre ?, muy facil, la tabla hija tiene un campo CON EL MISMO NOMBRE que el campo en la tabla padre, es decir, que si en la tabla padre existe un campo llamado channelcod, en la tabla channel tambien existe un campo con el mismo nombre y preferentemente con las mismas características, como mencione anteriormente, no es necesario que el campo este indexado en la tabla hija, pero si es deseable porque esto acelera mucho el acceso a los datos cuando estamos trabajando con relaciones.\n\nFinalmente la clausula ADDITIVE sirve para añadir nuevas relaciones al area padre, si no pones la clausula ADDITIVE, cada nueva relacion que añadas destruye a la anterior, poniendo ADDITIVE, eso no pasa.\n\n3) El acceso a los datos es super mega facil, si estoy en la base de datos padre, y quiero saber el nombre de un campo hago:\n\nagents-&gt;nombre\n\nY si quiero saber el valor del campo nombre, pero que esta en la base de datos hija channel, simplemente pregunto por el campo, indicando el alias de la tabla hija:\n\nchannel-&gt;nombre\n\nSi yo muevo el puntero en la base de datos padre, AUTOMATICAMENTE todos lo punteros de TODAS las bases de datos hijas se mueven para reflejar la relacion correspondiente \n\n4) ¿ que pasa si no existe un registro relacionado en la base de datos hija ?, no pasa nada, simplmente se devuelve un campo vacio (en realidad el puntero de la base de datos hija esta apuntando a EOF).\n\nBien, pero que pasa si quiero en un browse tener columnas que vienen de disintas tablas, sin tener que ir a buscarlas, ni tener que hacer un archivo temporal (es decir, matar pulgas a cañonazos) .... jejeje, pues es muy facil.\n\nSi ya tengo relacionadas las tablas pues basta con definir el browse asi:\n\nREDEFINE LISTBOX oBrw FIELDS agents-&gt;nombre, channel-&gt;nombre, pv-&gt;precio ID .......\n\nlas columnas relacionadas cambian automaticamente cuando te mueves sobre el browse.\n\n5) ¿ Que pasa si en la tabla hija, hay mas de un registro que coincide con el registro relacionado en tabla padre? por ejemplo en un maestro detalle, donde solo hay un registro padre, y varios registros hijos, por ejemplo de una factura.\n\nBien, la relacion apuntara AL PRIMER elemento de la tabla hija, luego entonces buscar los registros hijos, no tiene mucha complicacion.\n\nUna de las cosas que poca gente sabe, e ignoro si esta soportada en (x)Harbour y que tenia Clipper 5.3, es la clausula SCOPED dentro del SET RELATION, la clausula SCOPED establece un SCOPE automatico en la tabla hija, filtrando los registros cada vez que te mueves en la tabla padre.\n\n6) las relaciones se pueden anidar, porque a su vez, las tablas hijas, pueden ser a su vez, tablas padres y asi sucesivamente, es decir, podemos tener una tabla padre, una hija, una nieta, una bisnieta, etc, etc. etc.\n\nPara acceder a los datos de la tabla nieta, entonces hacemos\n\naliastablahija-&gt;aliastablanieta-&gt;campoentablanieta\n\nSi te mueves en la tabla padre, la tabla hija se mueve, y obviamente el puntero de la tabla nieta, tambien se mueve.\n\nComo verán, mas facil, no se puede y ahorra miles de lineas de codigo.','',0,'gIA=','2c0vwejs',1,0,'',138,0,0),(16335,3696,7,695,0,'195.5.90.62',1153975292,1,0,1,1,1,0,'','','Hola otra vez. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->, muchas gracias Mike y a ti Biel tambien por la aclaracion  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , gracias a esto ya he resuelto este problema. Me queda mucho camino... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , ... pero este se hace al andar.','',0,'gIA=','3htzt4hm',1,0,'',695,0,0),(16336,3716,6,492,0,'201.154.126.49',1153976387,1,0,1,1,1,1,'','','Master Flores\n\nComo siempre, toda una ponencia  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nMuchas Gracias por el aporte.\n\nDeberias usar una playera que diga :  Wiki-Man      <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSALUDOS','',0,'gIA=','42hhq3vt',1,0,'',492,0,0),(16337,3717,6,492,0,'201.154.126.49',1153978341,1,0,1,1,1,1,'','Ajuste de Posicion del ToolTip en la ToolBar','Antonio\n\nAl momento de colocar el puntero sobre una opcion en la ToolBar, muestra el tooltip en forma de Balloon, al parecer tomando como referencia las coordenadas del propio puntero, eso, en ocasiones, \"oculta\" las imagenes de las demas opciones, habra la manera de indicarle, que muestre el ToolTip digamos, a partir del lado inferior del icono/bitmap ??\n\nToolTip Actual :\n[img:2h0z8ywr]http&#58;//img77&#46;imageshack&#46;us/img77/1060/toolt1ok7&#46;jpg[/img:2h0z8ywr]\n\n\nToolTip Deseado :\n[img:2h0z8ywr]http&#58;//img146&#46;imageshack&#46;us/img146/5311/toolt2eo6&#46;jpg[/img:2h0z8ywr]\n\nYa estuve checando la clase, pero no di con la linea correcta  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSALUDOS','',0,'CA==','2h0z8ywr',1,0,'',492,0,0),(16338,3716,6,439,0,'190.0.128.203',1153982541,1,0,1,1,1,1,'','','René,\n\nEs bueno saber que contamos con gente que no solamente sabe, sino que tiene la disposición y se toma el tiempo de compartir ese conocimiento y ayudar a los que comienzan. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','14bj3vwr',1,0,'',439,0,0),(16339,3712,1,51,0,'80.122.88.242',1153982667,1,0,1,1,1,0,'','','Thank you.\n      ShowWindow(hWnd,9)\n      setFocus(hWnd)\n      SETFOREGRO(hWnd)\nThis works fine but not with VISTA.\nIf the WINDOW is MINIMIZED    ShowWindow(hWnd,9) does not work.\nRegards\nOtto','',0,'CA==','y8z66mnp',1,0,'',51,0,0),(16340,3712,1,6,0,'87.16.238.135',1153982903,1,0,1,1,1,1,'','','It seems a bug in Windows Vista. It is Microsoft responsibility to correctly implement their Windows API. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'CA==','14srsnzk',1,0,'',6,0,0),(16341,3699,3,137,0,'151.38.8.195',1153982961,1,0,1,1,1,0,'','','Should I buy the newest version to keep updated with this fix?\n\nRegards','',0,'CA==','2v1zuxzw',1,0,'',137,0,0),(16342,3700,3,419,0,'196.25.255.210',1153983635,1,0,1,1,1,0,'','','Thanks Antonio for the reply.\n\nI have managed to tie the problem down to this:\n\nIf I DO NOT explicitly add C:\\FWH\\SOURCE\\CLASSES\\WINDOW.PRG to the XHB Project then the errors occur.\n\nI reverted back to xHB RC-6 and this made no difference.\n\nI have to include C:\\FWH\\SOURCE\\CLASSES\\WINDOW.PRG in my list of .prg\'s otherwise I get the errors.\n\nI used to make changes to your WINDOW.PRG but decided to stop doing this so I removed the module from my list of .prg\'s just after downloading and installing the latest FWH and xHB updates and that is why the problem has only become apparant now.\n\nIt would appear that the standard WINDOW.OBJ module that is linked into one of the libraries is causing the error.\n\nRegards,\n\nDale.','',0,'CA==','1oec17g8',1,0,'',419,0,0),(16343,3715,17,130,0,'141.51.32.24',1153986688,1,0,1,1,1,0,'','','Can please anyone translate this long text into english ?\n\nStefan','',0,'CA==','1p3kevqp',1,0,'',130,0,0),(16344,3699,3,2,0,'87.218.146.123',1153988258,1,0,1,1,1,1,'','','Roberto,\n\nYou have two months of free upgrades.','',0,'CA==','1uaavtv0',1,0,'',2,0,0),(16345,3707,7,656,0,'83.230.172.253',1153990829,1,0,1,1,1,0,'','','Tengo una para probar que es donde de visto que funcionan las pruebas que hay en la web, pero no tengo el FWPPC, que lo adquiriré cuando verifique que me funciona bien, y no puedo hacer la rutina para imprimir.\n\n Va en LPT1\n\nJavi','',0,'CA==','3u5g02q9',1,0,'',656,0,0),(16346,3699,3,137,0,'151.38.8.195',1153991724,1,0,1,1,1,0,'','','Ok... but activex parameters was working in my FWH26.\n\nI patched activex.prg by myself.\n\nRegards','',0,'CA==','2f2px4r1',1,0,'',137,0,0),(16347,3713,1,2,0,'87.218.146.123',1153992705,1,0,1,1,1,1,'','','Otto,\n\nThis code is properly working on Vista Beta 2 (5384):\n[code:2p9hrioy]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n   \n   DEFINE WINDOW oWnd TITLE &quot;Test for Otto&quot;\n   \n   ACTIVATE WINDOW oWnd MAXIMIZED\n   \nreturn nil  \n[/code:2p9hrioy]\nMAXIMIZED uses ShowWindow(). Please provide a self contained sample to reproduce the error that you mention, thanks.','',0,'AIA=','2p9hrioy',1,0,'',2,0,0),(16348,3699,3,2,0,'87.218.146.123',1153992942,1,0,1,1,1,1,'','','Roberto\n\nThe ActiveX events supplied parameters were wrong managed from low level (C++) not from PRG level. Also parameters by reference (BYREF AS ...) were not managed. So you can\'t fix that changing the PRG class.\n\nWe have worked hard to improve the ActiveX support.','',0,'AIA=','24cvd3t2',1,1154001720,'',2,1,0),(16349,3700,3,2,0,'87.218.146.123',1153993126,1,0,1,1,1,1,'','','Dale,\n\nWe will have to wait until the xHB final version is published to know if it works fine or not. \n\nIt looks as there are some conflicts with the recent xHB RCs, though FWH is working fine with Borland or Microsoft.','',0,'AIA=','3b74bl7b',1,0,'',2,0,0),(16350,3700,3,419,0,'196.25.255.195',1153993833,1,0,1,1,1,0,'','','No problem - and thanks!\n\nRegards,\n\nDale.','',0,'AIA=','wrhoytq7',1,0,'',419,0,0),(16351,3653,6,106,0,'85.34.123.173',1153994389,1,0,0,1,1,1,'','','No se cual sea la solucion, pero fijate si no es windows xp home, porque fue donde me dio el mismo problema. Mi solucion fue ponerle xp pro.\nNo hacía otra cosa que imprimir paginas una detras de otra, numeradas, y cada tanto, se salteaba alguna... tipo: 1,2,3,4,6,7,8,9,5,10,11,12,15,13,14,16... y asi...','',0,'AIA=','1heq7e7j',1,0,'',106,0,0),(16352,3699,3,137,0,'151.38.8.195',1153994773,1,0,1,1,1,0,'','','To be clear:\nI buyed FWH27 only for activex events support and my 2 free upgrade months expired on 30/06/2006. In the May version activex events worked but in June version they don\'t work anymore.\n\nAbout my fix:\nI simply process parameters array deleting invalid elements and passing the right array to the event handler (do you remember the iactivex class i sent you in the past?).\n\nThis is not a big problem for now.. I\'ll buy new fwh version in the future.\n\nRegards','',0,'AIA=','1kf2629i',1,0,'',137,0,0),(16353,3680,6,106,0,'85.34.123.173',1153995612,1,0,0,1,1,1,'','','Rafa, algunas veces tienes razón   <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nVoto tambien por Postgresql, es muy potente, y es totalmente gratuito, es muy estable y seguro. \n\nSaludos','',0,'AIA=','l01cf9nf',1,0,'',106,0,0),(16354,3718,6,449,0,'212.64.224.250',1153995674,1,0,1,1,1,1,'','Crystal -&gt; PESetTableLocation','Hola,\n\nCon el CRPE usando el metodo <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->ESetTableLocation()  (PESetNthTableLocation) , puedes cambiar la ubicacion de las tablas, pero mi pregunta es : ¿Se puede cambiar la ubicacion y el NOMBRE de la tabla? Habeis encontrado una solucion ? \n\nEjemplo:\n\nTabla original: g:\\datos\\cabezera.dbf \n\nNueva ubicacion: c:\\temp\\temp0001.dbf\n\n\nGracias','',0,'AIA=','34pke8gb',1,0,'',449,0,0),(16355,3719,4,13,0,'213.76.252.200',1153997782,1,0,1,1,1,0,'','Internal error description','Antonio,\n\nIt\'s possible to check internal error message description ? In this moment only \"internal error\" message is show when user work with application. I check some database table and one, when error occur, erase current record field value - from fixed position to the end of record.\n\nRegards\nPawel','',0,'AIA=','3diyicqf',1,0,'',13,0,0),(16356,3715,17,375,0,'84.122.100.198',1153999047,1,0,1,1,1,1,'','','Excuse me Stefan but my english is very bad. It\'s difficult to me to explain it.\nthey are two sugests for wBrowse or others owner browses.\n\n1) [u:1qpggk2n]::bPreChange[/u:1qpggk2n]\n\nBasically is a CodeBlock to be evaluate before any listbox movement (before changing database record). For example if I have a listbox with a personnel editable card next to it, if I make changes in the record and I click into the listbox withgout saving changes, with this codeblock I could ask user if he want to save them: typical \"YES\",\"NO\",\"CANCEL\" questions. If I click \"CANCEL\", with ::bPreChange listbox doesn\'t move and I could stay it.\n\nTo perform it, I need ::bPreChange and ::lContinue logical variable. We must place [b:1qpggk2n]::lContinue := .T. [/b:1qpggk2n]at top of \'KeyDown\', \'LButtonDown\' and \'VScroll\'  methods to enter all listbox movement methods with .T. value. After that, we\'ll change GoUp(), GoDown(), GoTop(), Etc..., methods in this way:\n\nMETHOD ....\n\nIF I can process movement\n\n[b:1qpggk2n]IF bPrechange # NIL \nEVAL(bPrechange, ... &lt;ANY USEFFULL VARIABLES&gt; ...) \nENDIF \n\nIF ::lContinue [/b:1qpggk2n]... \nOLD METHOD CODE\n... \nIF bChange # NIL \nEVAL(bChange,Self) \nENDIF \n... \n[b:1qpggk2n]ENDIF [/b:1qpggk2n]\n\nThis is useffull for all actions we need to execut before changing the listbox focus row, like: oDBD:Save(), display refresh or repainting, consulting tables, indexes, warning, advertisments, etc...\n\n2) [u:1qpggk2n]::nMaxCol[/u:1qpggk2n]\n\nImagine you want to list 10 columns with a listbox, but only three of them are visibles at time. If you right scorll the listbox you can consecutively see all the columns (three at each time). When you reach the last one, there is the only one displayed, it occupies all the listbox (nearly a blank listbox). However, when the 8, 9 and 10 columns are displayed (at time) you don\'t need to right scroll the listbaox yet. This woul be the ::nMaxCol := 8 performence (8 means: the most left visible column). With that, you also could hide a posible eleventh column.\n\nTo do it:\n\nFIrst: put, in NEW .and. REDEFINE methods: [b:1qpggk2n]::nMaxCol := MAX NUMBER OF COLUMNS[/b:1qpggk2n]. in FW wBrowse: ::nMaxCol := Len( GetColSizes() )\n\nSecond: define the HSCroll range like this : [b:1qpggk2n]\'RANGE 1,::nMaxCol\' [/b:1qpggk2n]\n\nThird: In GoRight method type:\n\n[b:1qpggk2n]IF ::nColAct &lt; ::nMaxCol   [/b:1qpggk2n]// It means if most left visible column is less than ::nMaxCol then GoRight() it doesn\'t process.\n... \nGORIGHT USUAL METHOD \n... \n[b:1qpggk2n]ENDIF [/b:1qpggk2n]\nI hope you coul understand it\n\nRegards','',0,'QQ==','1qpggk2n',1,0,'',375,0,0),(16357,3699,3,2,0,'87.218.146.123',1154001797,1,0,1,1,1,1,'','','Roberto,\n\nWhat ActiveX control are you using ?','',0,'QQ==','2e8xrlzp',1,0,'',2,0,0),(16358,3719,4,2,0,'87.218.146.123',1154001886,1,0,1,1,1,1,'','','Pawel,\n\nAre you using the most recent FWPPC build ? You may use your login and password to download it.','',0,'QQ==','32kz0lix',1,0,'',2,0,0),(16359,3665,3,689,0,'201.35.197.125',1154002165,1,0,1,1,1,0,'','','I try but doesn´t work too. \n\nBefore scroll:\n[url=http&#58;//img212&#46;imageshack&#46;us/my&#46;php?image=imagemib4&#46;png:2h5y4rej][img:2h5y4rej]http&#58;//img212&#46;imageshack&#46;us/img212/1/imagemib4&#46;th&#46;png[/img:2h5y4rej][/url:2h5y4rej]\n\nAfter scroll:\n[url=http&#58;//img81&#46;imageshack&#46;us/my&#46;php?image=imagem1su9&#46;png:2h5y4rej][img:2h5y4rej]http&#58;//img81&#46;imageshack&#46;us/img81/2977/imagem1su9&#46;th&#46;png[/img:2h5y4rej][/url:2h5y4rej]\n\nIs possivel post a example?\n\nBest Regards\n\nEroni','',0,'GA==','2h5y4rej',1,0,'',689,0,0),(16360,3719,4,13,0,'213.76.252.200',1154003957,1,0,1,1,1,0,'','','Antonio,\n\nYes, I use new FWPPC build (07.07.2006) and latest harbour CE compiler. \n\nRegards\nPawel','',0,'GA==','271navqa',1,0,'',13,0,0),(16361,3707,7,150,0,'62.15.122.193',1154006014,1,0,1,1,1,1,'','','Hola:\n\nSolo he cambiado el COM6 por LPT1 en un ejemplo que viene con fwppc.\n\n¿Donde te envio el ejecutable?\n\n\n\n#include \"FWCE.ch\"\n\n#define GENERIC_READ    0x80000000\n#define GENERIC_WRITE   0x40000000 \n#define OPEN_EXISTING   3 \n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n\nfunction Main()\n\n   local oWnd\n   local hOut := CreateFile( \"LPT1:\",; // change the number as needed \n                             GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n   local hIn := CreateFile( \"COM8:\",; // change the number as needed \n                            GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n   \n   DEFINE WINDOW oWnd TITLE \"BlueTooth\"\n   \n   @ 2, 2 BUTTON \"Send\" ;\n      ACTION SendText( hOut, \"Hello world!\" ) SIZE 80, 20\n   \n   ACTIVATE WINDOW oWnd\n   \n   CloseHandle( hOut )\n   CloseHandle( hIn )\n   \nreturn nil   \n\nfunction SendText( hOut, cText )\n\n   local n\n   \n   for n = 1 to Len( cText )\n      WriteByte( hOut, Asc( SubStr( cText, n, 1 ) ) )\n   next   \n   \nreturn nil','',0,'GA==','2dijdo9g',1,0,'',150,0,0),(16362,3704,6,104,0,'201.58.25.82',1154006153,1,0,1,1,1,0,'','','Olá Oskar, \n\nVou continuar esta conversa no seu forum   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nObrigado,\n\nRossine.','',0,'GA==','3bv2awlf',1,0,'',104,0,0),(16363,3718,6,138,0,'200.77.126.116',1154007734,1,0,1,1,1,1,'','','Va a ser que no, yo lo probe y no se pudo.\n\nSin embargo, pasa algo muy curisoso con Crystal, puedes abrir varios reportes AL MISMO TIEMPO, que usen la misma tabla, y sin embargo, el contenido de dicha tabla puede no ser el mismo,\n\nDigamos que enemos un reporte por rango de fechas, para eso hacemos un fichero DBF temporal y creamos el infomre crystal y lo presentemos, pero AL MISMO TIEMPO yo quiero crear otro informe IGUAL pero con distinto rango de fecha, uso LA MISMA TABLA, con el MISMO NOMBRE, en la misma ubicacion, y sin importar que el reporte 1 este siendo presentado en pantalla, se presentara el segundo informe, sin alterar el primero ni marcar ningun error.','',0,'GA==','2chpq2rr',1,0,'',138,0,0),(16364,3704,6,217,0,'200.159.120.34',1154007872,1,0,1,1,1,0,'','','Gracias Oskar!!!\n\nSalu2\nMaurilio','',0,'GA==','1t9rhqyp',1,0,'',217,0,0),(16365,3720,2,501,0,'200.32.103.236',1154008480,1,0,1,1,1,0,'','Problema con oFile:End() en comandos FTP','Utilizo la clase que viene con fivewin version 2.1a, todo bien excepto para archivos de mas de 500 KB, se cuelga al no poder ejecutar oFile:end() y tengo que cerrar la aplicacion con Ctrl+Alt+Supr.\nEl archivo es un .Zip de 800K y baja bien, esta sano y entero, pero el programa se cuelga.\n\nQue podrá ser, gracias.\n\n//--------------------------------------------------------------------\n[b:233t26jx]static func GetFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP )[/b:233t26jx]\n//--------------------------------------------------------------------\nlocal n, hTarget, cBuffer := Space( nBufSize ), nBytes, nFile := 0, nTotal := 0, nTotSize := 0\nlocal oFile, aFiles, aSizes := {}\n\nfor n = 1 to Len( aSource )\n   aFiles = oFTP:Directory( aSource[ n ] )\n   if Len( aFiles ) &gt; 0\n      AAdd( aSizes, aFiles[ 1 ][ 2 ] )\n      nTotSize += ATail( aSizes )\n   else\n      AAdd( aSizes, 0 )\n   endif\n   SysRefresh()\nnext\n\nnTotSize:=round(nTotSize,0)\noMeter2:nTotal = nTotSize\n\nfor n = 1 to Len( aSource )\n   hTarget = FCreate( aTarget[ n ] )\n   oFile = TFtpFile():New( aSource[ n ], oFTP )\n   oFile:OpenRead()\n\n   oSay1:SetText( \"Origen: \" + aSource[ n ] )\n   oSay2:SetText( \"Destino: \" + aTarget[ n ] )\n   oMeter1:Set( 0 )\n   oMeter1:nTotal = aSizes[ n ]\n   nFile := 0\n   SysRefresh()\n   do while (nBytes:=Len(cBuffer:=oFile:Read(nBufSize)))&gt;0.and.!lEnd\n      FWrite( hTarget, cBuffer, nBytes )\n      oSay3:SetText( \"Bytes copiados: \" + AllTrim(Str(nTotal += nBytes)) )\n      oMeter1:Set( nFile += nBytes )\n      oMeter2:Set( nTotal )\n      SysRefresh()\n   enddo\n   commit\n   FClose( hTarget )\n   // ACA se cuelga el maldito\n   [b:233t26jx]oFile:End()[/b:233t26jx]\nnext\nreturn nil','',0,'QA==','233t26jx',1,0,'',501,0,0),(16366,3721,1,47,0,'203.144.143.7',1154010997,1,0,1,1,1,0,'','DbUseArea() Internal error 1010 after index with error','Dear All,\n\nI\'ve found this error following message while build index files.\n\nTEST.EXE caused a General Protection Fault in\nmodule TEST.EXE at 0022:4221.\n\nChoose close TEST.EXE will close.\n\nAfter I close this error message box.  The index file of last file is 0 byte and when I browse this database file the another error is below\n\nDbUseArea() Internal error 1010\n\nI try to find out and got some post that inform to increase stack size and set clipper //E:0 for disable EMS but it doesn\'t work.  The error is still.  How can I fix it?\n\nRegards,\nDutch','',0,'QA==','2vdl27s0',1,0,'',47,0,0),(16367,3715,17,58,0,'84.149.234.47',1154011320,1,0,1,1,1,0,'','','Manuramos,\n\nyour English is [b:3a24qdqw]much, much[/b:3a24qdqw] better than the English of Babelfish translation service.\n\nSometimes, if i want to read some humorous text i give a Spanish message from the forum to babelfish.\nThen i make a first translation into English and after again a translation from this English to German.\n\nThe result is always very funny and surrealistic  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> .\n\nSo, many thanks for your translation work which allows me to understand your posting.\n\nBest regards,\nDetlef','',0,'QA==','3a24qdqw',1,0,'',58,0,0),(16368,3721,1,58,0,'84.149.234.47',1154011794,1,0,1,1,1,0,'','','Hi Dutch,\n\ncould you please show us the piece of prg for your index creation?\n\nRegards,\nDetlef','',0,'QA==','36qv7mx2',1,0,'',58,0,0),(16370,3721,1,47,0,'203.144.143.5',1154014591,1,0,1,1,1,0,'','Index corrupt after add TSbrowse','Dear Detlef,\n\nThis is my index file procedure.  I found this error has occur after I add TSbrowse.lib in my program.  When I do not include Tsbrowse.ch and do not call TSbrowse the index run fine.  I don\'t know why does it append?\n\nRegards,\nDutch\n\n*--------------*\nProcedure IndexCheck(IndexAll)\nOPENFILE(\'CCRIND\',\'DX\')\nDX-&gt;(DbGotop())\ndo while !DX-&gt;(eof())\n   if ((!file(rtrim(DX-&gt;IND_DBF)+\'.CDX\').or.IndexAll) .and. !empty(DX-&gt;IND_NTX) .and. file(MEMVAR-&gt;cFoPath+rtrim(DX-&gt;IND_DBF)+\'.DBF\'))\n      cDbf := upper(rtrim(DX-&gt;IND_DBF))\n      OPENFILE(cDBF,,,.F.)\n      do while upper(rtrim(DX-&gt;IND_DBF)) == cDBF\n		 cNtx := rtrim(DX-&gt;IND_NTX)\n		 cExp := rtrim(DX-&gt;IND_EXP)\n		 lAsend := iif(DX-&gt;IND_SORT=\'D\',.F.,.T.)\n\n		 if IndexAll .and. dow(date()) = 1\n	    	pack\n		 end\n\n		 MsgMeter( { | oMeter, oText, oDlg, lEnd | ;\n			   BuildIndex( oMeter, oText, oDlg, @lEnd, cNtx, cExp, lAsend ) },;\n			   \"Indexing TAG \"+cNtx,\'Building index file, Please wait..\' )\n\n		 DX-&gt;(dbskip())\n		 if !(upper(rtrim(DX-&gt;IND_DBF)) == cDBF)\n		    DX-&gt;(dbskip(-1))\n	    	exit\n		 end\n      end\n      CLOSEFILE(cDbf)\n      SELECT(\'DX\')\n   end\n   DX-&gt;(dbskip())\nend\nCLOSEFILE(\'DX\')\nselect(old_sel)\nreturn\n\n*----------------------------------------------*\nStatic Function BuildIndex( oMeter, oText, oDlg, lEnd, cNtx, cExp, lAsend )\noMeter:nTotal := Int(LastRec()/10)\nif lAsend\n   INDEX ON &amp;cExp TAG &amp;cNtx ;\n         EVAL ( oMeter:Set( int(RecNo()/10) ), SysRefresh(), !lEnd ) ;\n         EVERY Int(Lastrec()/10)\nelse\n   INDEX ON &amp;cExp TAG &amp;cNtx ;\n         EVAL ( oMeter:Set( int(RecNo()/10) ), SysRefresh(), !lEnd ) ;\n         EVERY Int(Lastrec()/10) ;\n         DESCENDING\nend\nreturn nil','',0,'QA==','s4n210ap',1,0,'',47,0,0),(16371,3702,6,97,0,'200.23.84.231',1154014887,1,0,1,1,1,1,'','Gracias amigo.','en gmanil es <!-- e --><a href=\"mailto:fernandosando@gmail.com\">fernandosando@gmail.com</a><!-- e -->\nyahoo           <!-- e --><a href=\"mailto:eldonfsr@yahoo.com\">eldonfsr@yahoo.com</a><!-- e -->\n\n\ngracias de ante mano.','',0,'QA==','1m0vdpdi',1,0,'',97,0,0),(16372,3721,1,343,0,'204.57.111.194',1154015074,1,0,1,1,1,0,'','','You do not want to index using trim(). The index has to remain a fixed length.','',0,'QA==','1qc455lj',1,0,'',343,0,0),(16373,3721,1,47,0,'203.144.143.4',1154015897,1,0,1,1,1,0,'','no trim in index expression','Dear Gale,\n\nThe index expression has no trim() function.\n\nThanks,\nDutch','',0,'QA==','pjzxwh7m',1,0,'',47,0,0),(16374,3722,6,701,0,'83.61.170.128',1154015899,1,0,1,1,1,0,'','¿IDE para Fivewin ?','Está en mente, proceso o pensamiento que en un futuro (esperemos que más pronto que tarde) se pueda programar en FIVEWIN con una sola herramienta integrada? Estaría bastante bien. No es por enredar, pero si esto no sale pronto no va a ser fácil que se inicien proyectos nuevos con esta querida herramienta que ya nos sacó del atolladero en su momento, pero que necesita un renacer ya. Yo sigo esperando y confiando en que esto ocurra pronto.\n\nUn saludo,\nFenix','',0,'QA==','3cr7newo',1,0,'',701,0,0),(16375,3723,6,577,0,'200.51.92.173',1154017951,1,0,1,1,1,0,'','funciones zip no funcionan','hola\ntengo el siguiente problema\nen una aplicacion hecha con clipper+fw24 anda bien la funcion para UnZipear archivos\n\nahora pasé la aplicacion a harbour+fwh24 y no funciona mas, es mas no puedo compilar\n\nno funcionan las funciones zip en harbour con fwh24??\nintenté utilizar la hbzlib.lib y tampoco logro que funcione, aunque si logro compilar\n\nalguna idea\n\ndesde ya gracias\n\npablo','',0,'QA==','2osdg7fs',1,0,'',577,0,0),(16376,3701,6,641,0,'201.133.182.70',1154020561,1,0,1,1,1,0,'','','este archivo que me hiciste el favor de pegar... \ncomo lo convierto a LIB ?\no de donde lo bajo como lib.. o PRG\no que sigue.... \n\nDe antemano Gracias','',0,'QA==','351ggjfl',1,0,'',641,0,0),(16377,3701,6,362,0,'200.168.52.156',1154021345,1,0,1,1,1,1,'','','DE MI PUNTO DE VISTA, NO HAY NECESIDAD DE LA REGENERAR.\n\nPUÉS LA LIBRERIA HABCOMM.LIB, ÉS FREE.\n\nPUEDES PEDIRLA A ANTONIO, O CUALCUER OTRO MEMBRO DE ACÁ.\n\nOU EN EL SITE DEL PROYECTO XHARBOUR, HABLAS COM LUIZ RAFAEL CULIK.\n\nSaludos','',0,'QA==','3th0x5pi',1,0,'',362,0,0),(16378,3724,6,43,0,'189.128.26.15',1154023082,1,0,1,1,1,0,'','xBrowse no se pinta','Hola\n\nAlgunos de Uds. no le ha pasado que tratando de usar xBrowse y no hay ningun registro no se pinta..  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nAlguien ha solucionado esto, si es asi me podrian pasar la solución, de antemano muchas gracias..  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos\nMarco A. Delgado.','',0,'QA==','1a0jyo9h',1,0,'',43,0,0),(16379,3719,4,2,0,'87.218.146.246',1154023267,1,0,1,1,1,1,'','','Pawel,\n\nDo you have a small and self contained sample to generate an internal error ? Thanks.','',0,'QA==','26w7t4cb',1,0,'',2,0,0),(16380,3701,6,486,0,'200.184.85.3',1154023594,1,0,1,1,1,0,'','','funciona para ler LTP1 ?\n\nClemerson','',0,'QA==','38h24p79',1,0,'',486,0,0),(16381,3713,1,51,0,'80.122.88.242',1154024420,1,0,1,1,1,0,'','','Here is my code.\nRegards\nOtto\n\n\nfunc ziRechnung\n    LOCAL cHSTIni       := \".\\INI\\WINHOTEL.INI\"\n    LOCAL WIN_HOT_VER   := \"\"\n    LOCAL nPos          := \"\"\n    LOCAL hWnd          := GetWindow( GetActiveWindow(), GHW_HWNDFIRST )\n    LOCAL cTask         :=\"\"\n    LOCAL ktowahlaufruf := 0\n    local cTest         :=\"\"\n    *--------------------------------------------\n\n\n    WIN_HOT_VER   := GetPvProfString( \"SETUPDATEN\",\"VerzeichnisWinHotel\" , \"C:\\WINHOT96\"  ,cHSTIni )\n    nPos          := len(WIN_HOT_VER+\"WHRG.EXE\")\n\n\n   // cTest := UPPER(left(cTask,nPos))\n   // msginfo( cTest )\n\n\n\n    while hWnd != 0\n        cTask = GetModuleFileName( GetWindowWord( hWnd, GWW_HINSTANCE ) )\n   // msginfo( cTask )\n\n        if UPPER(left(cTask,nPos)) = UPPER(WIN_HOT_VER + \"WHRG.EXE\")\n            //msginfo(\"Vor show  9\" + UPPER(left(cTask,nPos)))\n            ShowWindow(hWnd,9)\n            setFocus(hWnd)\n            SETFOREGRO(hWnd)\n            RETURN NIL\n        endif\n        hWnd = GetWindow( hWnd, GHW_HWNDNEXT )\n    end\n    winexec(\"WHRG.exe\")\nRETURN NIL','',0,'QA==','2d22mrmf',1,0,'',51,0,0),(16382,3712,1,51,0,'80.122.88.242',1154024628,1,0,1,1,1,0,'','','Thank you Enrico,\nsure you are right - but no one would to believe us.\n\nRegards\nOtto','',0,'QA==','z11l0mc7',1,0,'',51,0,0),(16383,3713,1,2,0,'87.218.146.246',1154025224,1,0,1,1,1,1,'','','Otto,\n\nPlease provide a reduced and self contained sample. A PRG that can be copied, compiled and executed as it is with no changes. Its the only way to provide efficient tech support. Thanks.','',0,'QA==','2utcjf92',1,0,'',2,0,0),(16384,3712,1,2,0,'87.218.146.246',1154025328,1,0,1,1,1,1,'','','Otto,\n\nIf you provide a reduced and self contained PRG sample, then we will be able to quickly compile it and test it and offer you a solution for it. Thanks,','',0,'QA==','37uqf855',1,0,'',2,0,0),(16385,3720,2,2,0,'87.218.146.246',1154025526,1,0,1,1,1,1,'','','Carlos,\n\nHas revisado/probado samples\\gallery\\icopyfil\\icopyfil.prg ?','',0,'QA==','16m4w1zq',1,0,'',2,0,0),(16386,3688,7,533,0,'83.46.204.42',1154025700,1,0,1,1,1,0,'','','Gracias Toni!!\n\n    Tienes algun ejemplo, porque lo estoy incluyendo en el fichero rc y no lo debo de estar haciendo bien <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> . Si eres tan amable, enviame a mi privado un fichero rc y la llamada buildmenu  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> . \n\n    GRACIAS \n\n\n   <!-- e --><a href=\"mailto:mserracat@terra.es\">mserracat@terra.es</a><!-- e -->','',0,'QA==','1v7nreu6',1,0,'',533,0,0),(16387,3722,6,2,0,'87.218.146.246',1154025829,1,0,1,1,1,1,'','','Fenix,\n\nEl modo de trabajo de FiveWin es el mismo que el de Clipper:\n\n* Puedes usar el editor de código fuente que prefieras.\n* Puedes usar un fichero BAT, make, ó alguna de las herramientas make disponibles.\n* Aunque es programación orientada al objeto, no te obliga a trabajar con objetos intensivamente, sino que puedes usar comandos xbase comodamente.\n* Los PRGs están a la vista y no hay ficheros que se generen de forma oculta y a los que no se tenga acceso.\n* Es programación \"lineal\" y no programación de \"mil puertas\" al estilo VB.\n\nPiensa por un momento que estas reglas tan básicas han hecho de Clipper un estandard. Visual Objects de CA, por ejemplo, intentó cambiar esas reglas y mira hoy en dia donde está su IDE y el producto. Lo mismo ocurrió con Visual dBase, que al final Borland tuvo que deshacerse de él.','',0,'QA==','wz7p1l6h',1,0,'',2,0,0),(16388,3721,1,47,0,'203.144.143.5',1154026032,1,0,1,1,1,0,'','Strange behavier of index bar','Dear All,\n\nI try to create index without MsgMeter() and the error is not occur and still link TSbrowse.  I think the problem is TSbrowse+MsgMeter().\n\n- TSbrowse + MsgMeter() is problem\n- MsgMeter() is no problem\n- TSbrowse is no problem\n\nDoes anyone face the problem?\n\nRegards,\nDutch','',0,'QA==','24pzygn0',1,0,'',47,0,0),(16389,3725,6,152,0,'200.90.206.45',1154026038,1,0,1,1,1,0,'','Como pongo un Checkbox en una Listbox','No he podido encontrar donde lo hice alguna vez\n\nDe antemanos, gracias\n\nGonzalo','',0,'QA==','2kv7e82k',1,0,'',152,0,0),(16390,3722,6,52,0,'200.127.195.89',1154028600,1,0,1,1,1,1,'','Re: ¿IDE para Fivewin ?','[quote=&quot;fenix&quot;:jnfi18we]Está en mente, proceso o pensamiento que en un futuro (esperemos que más pronto que tarde) se pueda programar en FIVEWIN con una sola herramienta integrada? Estaría bastante bien. No es por enredar, pero si esto no sale pronto no va a ser fácil que se inicien proyectos nuevos con esta querida herramienta que ya nos sacó del atolladero en su momento, pero que necesita un renacer ya. Yo sigo esperando y confiando en que esto ocurra pronto.\n\nUn saludo,\nFenix[/quote:jnfi18we]\n\nYo utilizo xMate + Workshop y hasta el momento esta bueno.','',0,'gA==','jnfi18we',1,0,'',52,0,0),(16391,3702,6,439,0,'190.0.138.121',1154028725,1,0,1,1,1,1,'','','Te importaría enviarmelo a mi tambien a <!-- e --><a href=\"mailto:jmurugosa@yahoo.com\">jmurugosa@yahoo.com</a><!-- e --> [u:2sel03td][b:2sel03td]o mejor aún subirlo con HyperUpload [/b:2sel03td][/u:2sel03td]ya que seguramente habrá otros interesados?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QQ==','2sel03td',1,1154029758,'',439,2,0),(16392,3715,17,375,0,'84.122.123.82',1154029483,1,0,1,1,1,1,'','','A lot of thanks for your encourageous words Detlef. I have a goud dictonary...','',0,'QQ==','2fjfq46x',1,0,'',375,0,0),(16393,3702,6,36,0,'200.113.56.235',1154029611,1,0,1,1,1,0,'','','Armando\n \nTe importaría enviarmelo a mi tambien a <!-- e --><a href=\"mailto:patricio_avalos_aguirre@hotmail.com\">patricio_avalos_aguirre@hotmail.com</a><!-- e -->\n\ntengo 25 mb <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos\nPatricio','',0,'QQ==','18cst1qj',1,0,'',36,0,0),(16394,3716,6,396,0,'201.210.128.54',1154030912,1,0,1,1,1,1,'','','Gracias a todos por su ayuda y apoyo, no esperaba menos, voy a probar como comenta Mr.Rene, me aclaraste algunas dudas, no estaba tan perdido, luego les hablo sobre mi experiencia y como resolvi esto con su ayuda  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  , voy a usar DBF y Arreglos al principio para crear los Browse con datos temporales y luego los guardo a la DBF, espero me sirva, gracias una vez mas...  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , disculpa, se me paso una \"S\", ya esta resuelto, al Cesar lo del Cesar y a Rene lo de Rene...','',0,'QQ==','2v76hrmh',1,1154101527,'',396,1,0),(16395,3701,6,362,0,'200.168.52.156',1154031188,1,0,1,1,1,1,'','','[quote=&quot;clemerson&quot;:3rc567cy]funciona para ler LTP1 ?\n\nClemerson[/quote:3rc567cy]\n\nNO COMPRENDO?! PORQUE LA DUDA??\n\nHBCOMM.LIB CREO KE ÉS SOLAMENTE PARA LECTORES SERIALES.\n\nCOM1, COM2, COM3... Etc.  \n\nPuedo estar errado.  \n\nSaludos.','',0,'gA==','3rc567cy',1,0,'',362,0,0),(16396,3712,1,51,0,'80.122.88.242',1154031336,1,0,1,1,1,0,'','','Here we are:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/fwtest/fwtest.zip\">www.atzwanger.com/fwtest/fwtest.zip</a><!-- w -->','',0,'gA==','1nytn44f',1,0,'',51,0,0),(16397,3713,1,51,0,'80.122.88.242',1154031373,1,0,1,1,1,0,'','','Here we are: \n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/fwtest/fwtest.zip\">www.atzwanger.com/fwtest/fwtest.zip</a><!-- w -->','',0,'gA==','23b9bip0',1,0,'',51,0,0),(16398,3726,6,439,0,'190.0.138.121',1154032333,1,0,1,1,1,1,'','PostGreSQL','No he podido evitar interesarme en el manejo de bases SQL y en la creación de aplicaciones Cliente/Servidor.  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , pero me desalentaba el costo de software. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nAhora,..... viendo un mensaje de TheFull sobre PostGree, veo la posibilidad de manejo de bases SQL con un cliente/servidor gratuito  y según he visto en los comentarios, ya otros colegas lo han hecho con buenos resultados.\n\nVamos a las preguntas:\n\n1. ¿Cómo puedo hacer aplicaciones en Fivewin con bases de PostGreeSQL, que cambia con respecto a usar dbfs?\n\n2. ¿Qué necesito instalar en mi máquina para poder hacer las pruebas?\nAgradezco desde ya cualquier ayuda que puedan brindarme. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','yo1zizli',1,0,'',439,0,0),(16399,3720,2,501,0,'200.32.103.92',1154032954,1,0,1,1,1,0,'','','Si de echo la copie y es la que estoy utilizando. \nDe todas maneras gracias por tu atención.\n\nHace un rato abri unos ftps en otros servidores, uno en yahoo geocities y otro en lycos.es y vos sabes que en esos no da problemas, tanto icopyfile como la qftp que baje del cd2003 andan perfectamente.\nPor lo que he averiguado los tres son servidores windows, estan con PASSIVE MODE y soportan ASCII y BINARY transferencias por ende no s que mas pensar del ftp de la empresa DATTATEC.\n\nOtro tema Antonio, mi socio ha adquirido (se lo regalo el padre que andaba de vacaciones) fwh 2.algo no se bien por que no lo he visto ni a el ni lo que trajo; me parece que ya no tengo excusa para pasarme a harbour, por ahi vi el conector MEDIATOR que soporta PostGress y viene una lib/rdd para compilar Clipper DOS y Harbour, si lo conoces te pido hagas algun comentario o recomendacion.\n\nGracias.','',0,'gA==','3chhg888',1,0,'',501,0,0),(16400,3721,1,58,0,'84.149.251.105',1154038097,1,0,1,1,1,0,'','','Hi Dutch,\n\ni doubt that either TsBrowse or MsgMeter is the cause of your protection fault.\n\nI made some modifications to your code.\nBecause i didn\'t have the necessary dbf files and the rest of your code i couldn\'t try my suggest.\nThe most important IMO is to avoid calling lastrec() in the index command and the call of Sysrefresh() in the ordCondSet() call.\n\nPerhaps this might help you?\n\nBest regards,\nDetlef\n\n[code:39su36w6]\n// ----------------------------\nPROCEDURE IndexCheck&#40; IndexAll &#41; \n// ----------------------------\n   \n   OPENFILE&#40; \'CCRIND\',\'DX\' &#41; \n   \n   DX-&gt;&#40; DbGotop&#40;&#41; &#41; \n   \n   do while !DX-&gt;&#40; eof&#40;&#41; &#41; \n      if &#40; &#40; !file&#40; rtrim&#40; DX-&gt;IND_DBF &#41; + \'&#46;CDX\' &#41; &#46;or&#46; IndexAll &#41; &#46;and&#46;;\n             !empty&#40; DX-&gt;IND_NTX &#41; &#46;and&#46; file&#40; MEMVAR-&gt;cFoPath + rtrim&#40; DX-&gt;IND_DBF &#41; + \'&#46;DBF\' &#41; &#41; \n\n         cDbf &#58;= upper&#40; rtrim&#40; DX-&gt;IND_DBF &#41; &#41; \n         dbUseArea&#40; &#46;t&#46;, &quot;comix&quot;, cDbf, &quot;wrk&quot;, &#46;f&#46;, &#46;f&#46;&#41;\n\n         if neterr&#40;&#41;\n            alert&#40; &quot;File &quot; + cDbf + &quot; could not be opened in exclusive mode&#46;&quot;, &#123;&#125; &#41;\n\n            RETURN\n         endif\n                  \n         do while upper&#40; rtrim&#40; DX-&gt;IND_DBF &#41; &#41; == cDBF \n            cNtx   &#58;= rtrim&#40; DX-&gt;IND_NTX &#41; \n            cExp   &#58;= rtrim&#40; DX-&gt;IND_EXP &#41; \n\n            lAsend &#58;= if&#40; DX-&gt;IND_SORT = \'D\', &#46;F&#46;, &#46;T&#46; &#41; \n\n            if IndexAll &#46;and&#46; dow&#40; date&#40;&#41; &#41; = 1 \n               wrk-&gt;&#40; __dbPack&#40;&#41; &#41;\n            endif\n\n            MsgMeter&#40; &#123; | oMeter, oText, oDlg, lEnd | BuildIndex&#40; oMeter, oText, oDlg, @lEnd, cNtx, cExp, lAsend &#41; &#125;,; \n                          &quot;Indexing TAG &quot; + cNtx, \'Building index file, Please wait&#46;&#46;\' &#41; \n\n            DX-&gt;&#40; dbskip&#40;&#41; &#41; \n            \n            if !&#40; upper&#40; rtrim&#40; DX-&gt;IND_DBF &#41; &#41; == cDBF &#41; \n               DX-&gt;&#40; dbskip&#40; -1 &#41; &#41; \n               \n               EXIT \n            end \n         end \n         \n         wrk-&gt;&#40; dbCloseArea&#40;&#41; &#41;\n         \n         dbSelectArea&#40; \'DX\' &#41; \n      end \n      \n      DX-&gt;&#40; dbskip&#40;&#41; &#41; \n   end \n   \n   CLOSEFILE&#40; \'DX\' &#41; \n   select&#40; old_sel &#41; \nreturn \n\n// -------------------------------------------------------------------------\nSTATIC PROCEDURE BuildIndex&#40; oMeter, oText, oDlg, lEnd, cNtx, cExp, lAsend &#41; \n// ------------------------------------------------------------------------- \nLOCAL nEvery &#58;= int&#40; wrk-&gt;&#40; lastrec&#40;&#41; &#41; / 10 &#41;\n\n\n   oMeter&#58;nTotal &#58;=  wrk-&gt;&#40; lastrec&#40;&#41; &#41; \n   \n   ordCondSet&#40; nil, nil, nil, !lEnd, &#123; || oMeter&#58;Set&#40; int&#40; wrk-&gt;&#40; recno&#40;&#41; / 10 &#41; &#41; &#41;, SysRefresh&#40;&#41; &#125;, nEvery, nil, nil, nil, nil, !lAsend, nil, &#46;f&#46;, &#46;f&#46;, &#46;f&#46;, &#46;f&#46; &#41; \n   ordCreate&#40; NIL,  cNtx, cExp, &amp;&#40; &quot;&#123;||&quot; + cExp + &quot;&#125;&quot; &#41;, &#46;f&#46; &#41;\n\nRETURN \n[/code:39su36w6]','',0,'AIA=','39su36w6',1,0,'',58,0,0),(16401,3716,6,53,0,'201.102.195.15',1154040030,1,0,1,1,1,1,'','','Master:\n\nBPS (Breve Pero Substancioso), como siempre.\n\nPor cierto cuando cambiaste de sexo (MRS) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos, Armando','',0,'AIA=','1fi81rz4',1,0,'',53,0,0),(16402,3727,3,487,0,'151.38.75.238',1154045868,1,0,1,1,1,0,'','Wrong printer picked up','I\'m currently using FWH27, but it\'s a long time problem even with previous FW(H) versions.\n\nIf I have 2 printers with similar long names, for example:\nHP Officejet 6200 series fax\nHP Officejet 6200 series\n\nPRINT oPrn NAME cName TO \"HP Officejet 6200 series\" - may pick up the fax one.\nThe FROM USER clause always works well.\n\nI know that as a workaround you can rename the first one simply as HPFax, but I was wandering if this could be solved definitely.\n\nThank you,\nDavide','',0,'AIA=','xn9wwzrd',1,0,'',487,0,0),(16403,3653,6,383,0,'200.106.26.81',1154047995,1,0,1,1,1,0,'','PROBLEMA DE IMPRESION','Bueno tengo instalado Windows Xp con Service Pack 2, y\na no se cual podria ser el problema. Y esto en realidad es un serio problema ya que me paso con clipper. Ahora que me paso xharbour con fivewin pasa lo mismo.  Pero no creo que sea problema de la herramienta si no de windows, pero por favor cual seria la solucion por favor.','',0,'AIA=','38l8m2jx',1,0,'',383,0,0),(16404,3721,1,47,0,'203.144.143.5',1154053807,1,0,1,1,1,0,'','I will try','Dear Detlef,\n\nThank you for your suggestion and I will try.\n\nRegards,\nDutch','',0,'AIA=','2ihmetlm',1,0,'',47,0,0),(16405,3728,1,47,0,'203.144.143.5',1154063408,1,0,1,1,1,0,'','Has anyone got Sbrowse.lib for Clipper 5.2e? I got GPF err.','Dear All,\n\nI cannot make Sbrowse.lib in proper way.  I found some compile error and I reduce some in source\\classes.  I\'m not quite sure that is the problem when I link to my program and got GPF error.  \n\nMay I have SBrowse.lib for Clip52e?  I may fix GPF error.\n\nRegards,\nDutch <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','2ytq0wsg',1,0,'',47,0,0),(16406,3719,4,13,0,'213.76.252.200',1154066568,1,0,1,1,1,0,'','','Antonio,\n\nThis error is show from my SFA program. It\'s contains several function. Error occurence isn\'t constant and I can\'t to find it in test version. User say that error show 2-3 time for day and this is visible in database table (erased field). Peculiar appearance before error occurence is visible low speed work with program.\n\nRegards\nPawel','',0,'AIA=','rdbzrn71',1,0,'',13,0,0),(16407,3699,3,137,0,'151.38.8.195',1154068599,1,0,1,1,1,0,'','','I\'m using voiceangel activex for tapi support\n\nRegards','',0,'AIA=','3dpftlth',1,0,'',137,0,0),(16408,3729,20,154,0,'151.21.76.96',1154068725,1,0,1,1,1,1,'','prendere dati da pagine html','Un mio Cliente mi chiede un piccolo programma per gestire delle pratiche che gli vengono affidate via internet, volevo sapere se esiste qualcosa per leggere una pagina e prendere alcune informazioni per averle a disposizione nel programma FWH senza doverle ridigitare.\n\nGrazie per i suggerimenti.','',0,'AIA=','3lgrjuqt',1,0,'',154,0,0),(16409,3707,7,656,0,'83.230.172.253',1154069078,1,0,1,1,1,0,'','','Muchísimas gracias Jose, puedes enviarmelo a <!-- e --><a href=\"mailto:vrocio@vrocio.com\">vrocio@vrocio.com</a><!-- e -->.','',0,'AIA=','3tl4gn6w',1,0,'',656,0,0),(16410,3730,3,31,0,'195.182.84.105',1154070365,1,0,1,1,1,1,'','OFF : To Vytas','Gerb.Vytai ,\n\n  Noreciau su Jumis susisiekti asmeniskai . Ar galit brukstelt man laiskeli su savo adresu ?\n\n  Pagarbiai , Rimantas','',0,'AIA=','3kxrjiib',1,0,'',31,0,0),(16411,3715,17,130,0,'141.51.32.24',1154071992,1,0,1,1,1,0,'','','Manuramos,\n\nas Detlef said, your English is very good.\n\nThank you very much for your translation.\n\nHave a nice weekend.\n\nStefan','',0,'AIA=','1im1b0gx',1,0,'',130,0,0),(16412,3688,7,57,0,'83.56.204.6',1154074572,1,0,1,1,1,1,'','','Aqui lo tienes\nSaludos\n\nESTO ES PRG\n=========\n\n// FiveWin for Pocket PC - Testing menus with bitmaps\n\n#include \"FWCE.ch\"\n   static oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n\n   DEFINE WINDOW oWnd TITLE \"Menus &amp; bmps\" ;\n      MENU BuildMenu()\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo( \"Click!\" )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n\n   local oMenu, lactivo := .f.\n   DEFAULT lActivo := 1\n   DEFINE MENU oMenu RESOURCE 102\n      *BITMAPS 10 ; // bitmap resources ID\n      *IMAGES 2     // number of images in the bitmap\n\n   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo( \"OK\" ) WHEN .F.\n\n   REDEFINE MENUITEM ID 120 OF oMenu ACTION oWnd:SetMenu( BuildMenu2() )\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\n\nfunction BuildMenu2()\n\n   local oMenu\n\n   DEFINE MENU oMenu RESOURCE 103 ;\n          BITMAPS 20 ;\n          IMAGES 1\n\n   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo( \"OK\" )\n\n   REDEFINE MENUITEM ID 120 OF oMenu ACTION oWnd:SetMenu( BuildMenu() )\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nESTO ES RC\n========\n#include \"c:\\vce\\include\\arm\\windows.h\"\n#include \"c:\\vce\\include\\arm\\commctrl.h\"\n\n#define I_IMAGENONE             (-2)\n#define IDS_HELP      104\n\n102 RCDATA\n{\n   102, 3,\n   0, 110, TBSTATE_ENABLED, TBSTYLE_BUTTON, 201, 0, 0,\n   0, 105, TBSTATE_ENABLED, TBSTYLE_SEP,-1, 0, 0\n   1, 120, TBSTATE_ENABLED, TBSTYLE_BUTTON, 202, 0, 0\n}\n103 RCDATA\n{\n   103, 2,\n   0, 110, TBSTATE_ENABLED, TBSTYLE_BUTTON, 204, 0, 0,\n   I_IMAGENONE, 120, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 205, 0, 1\n}\n\n\nSTRINGTABLE\n{\n 201, \"OK\"\n 202, \"Cancel\"\n 204, \"OK\"\n 205, \"Cancel\"\n}\n\n102 MENU DISCARDABLE\n{\n MENUITEM \"\", 110\n MENUITEM \"\", 120\n}\n\n103 MENU DISCARDABLE\n{\n    MENUITEM \"\", 110\n    MENUITEM \"\", 120\n}\n\n10 BITMAP \"../bitmaps/pocket/okcancel.bmp\"\n20 BITMAP \"../bitmaps/pocket/EDIT.bmp\"','',0,'AIA=','3a3rgguf',1,0,'',57,0,0),(16413,3731,3,51,0,'80.122.88.242',1154076193,1,0,1,1,1,0,'','GetWindow/GetModuleFileName','Tested with XP.\nThis code works here with FW but not with FWH. \nFHW:        msginfo(cTask) has always the same value.\n\n\nRegards\nOtto\n\n\n#INCLUDE \"BOX.CH\"\n#INCLUDE \"FILEIO.CH\"\n#INCLUDE \"FIVEWIN.CH\"\n#INCLUDE \"FOLDER.CH\"\n#INCLUDE \"INKEY.CH\"\n#INCLUDE \"REPORT.CH\"\n#define BIF_RETURNONLYFSDIRS    1\n#define BIF_DONTGOBELOWDOMAIN   2\n#define MAX_PATH              260\n\n#DEFINE SW_MINNOACTIVE  7\n#DEFINE INCHES          1\n#DEFINE CMETERS         2\n#define GHW_HWNDFIRST   0\n#define GHW_HWNDNEXT    2\n#define GWW_HINSTANCE  -6\n\nstatic oWnd\n\nfunction Main()\n    LOCAL oWnd\n\n    SET CENTURY ON\n    SET DELETED on\n\n    DEFINE WINDOW oWnd from 1,1 TO 30,60 TITLE \"Start\";\n        MENU bldMenu()\n    ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction bldMenu()\n    LOCAL oMenu\n    MENU oMenu\n    MENUITEM \"Start\" ;\n        ACTION  f_code()\n    ENDMENU\n\nreturn oMenu\n\nfunc f_code\n    LOCAL hWnd   := GetWindow( GetActiveWindow(), GHW_HWNDFIRST )\n    LOCAL cTask  := \"\"\n    *--------------------------------------------\n\n    while hWnd != 0\n        cTask = GetModuleFileName( GetWindowWord( hWnd, GWW_HINSTANCE ) )\n        msginfo(cTask)\n        hWnd = GetWindow( hWnd, GHW_HWNDNEXT )\n     end\n\n\nreturn nil','',0,'AIA=','720k34zu',1,0,'',51,0,0),(16414,3718,6,449,0,'212.64.224.250',1154076248,1,0,1,1,1,1,'','','Hola Rene,\n\nPartiendo de la base de que los listados son procesos sequenciales, seguramente al ejecutar el primero , la tabla ya no la usa mas, por lo que al generar el segundo listado se debe \'machacar\' la primera tabla con la segunda y por eso debe funcionar. Voy a hacer un par de pruebas. Si no, no se me ocurre otra solucion que generar un directorio temporal con sus tablas correspondientes, por cada reporting que haga. Uhmmm no se...\n\nBueno voy a seguir mirando. Cuando sepa algo mas lo digo...\n\nGracias.','',0,'AIA=','1xzqulw6',1,0,'',449,0,0),(16415,3731,3,2,0,'87.218.146.246',1154076789,1,0,1,1,1,1,'','','Otto,\n\nIn 32 bits you have to use GetWindowLong() instead of GetWindowWord():\n\ncTask = GetModuleFileName( GetWindowLong( hWnd, GWW_HINSTANCE ) )','',0,'AIA=','3bblsg0x',1,0,'',2,0,0),(16416,3713,1,2,0,'87.218.146.246',1154077195,1,0,1,1,1,1,'','','Otto,\n\nThanks. Would you mind to explain whats the purpouse of your code ?','',0,'AIA=','1et3q6wt',1,0,'',2,0,0),(16417,3731,3,51,0,'80.122.88.242',1154078520,1,0,1,1,1,0,'','','Do you have a list of all the function I have to change.\nThanks in advance\nOtto','',0,'AIA=','1qc4se9w',1,0,'',51,0,0),(16418,3713,1,51,0,'80.122.88.242',1154078586,1,0,1,1,1,0,'','','If the programm is allready runnig to bring it in the foreground.','',0,'AIA=','5u4rvo55',1,0,'',51,0,0),(16419,3729,20,6,0,'87.3.184.189',1154080544,1,0,1,1,1,1,'','Re: prendere dati da pagine html','[code:2xhodra5]FUNCTION MAIN&#40;&#41;\n\n    ? GETURL&#40; &quot;http&#58;//www&#46;emagsoftware&#46;it/listino&#46;htm&quot; &#41;\n//    ? GETURL&#40; &quot;http&#58;//www&#46;emagsoftware&#46;it/logo&#46;gif&quot; &#41;\n//    ? GETURL&#40; &quot;http&#58;//www&#46;emagsoftware&#46;it/xharbour&#46;jpg&quot; &#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL\n\n\nFUNCTION GETURL&#40; cUrl &#41;\n\n    LOCAL cFile &#58;= SUBSTR&#40; cUrl, RAT&#40; &quot;/&quot;, cUrl &#41; + 1 &#41;\n\n    LOCAL oUrl, oCli\n\n    LOCAL lOk &#58;= &#46;F&#46;\n\n    BEGIN SEQUENCE\n        oUrl = TUrl&#40;&#41;&#58;New&#40; cUrl &#41;\n\n        IF EMPTY&#40; oUrl &#41;; BREAK; ENDIF\n\n        oCli = TIPClient&#40;&#41;&#58;New&#40; oUrl &#41;\n\n        IF EMPTY&#40; oCli &#41;; BREAK; ENDIF\n\n        oCli&#58;nConnTimeout = 20000\n\n        IF !oCli&#58;Open&#40; oUrl &#41;; BREAK; ENDIF\n\n        lOk = oCli&#58;ReadToFile&#40; cFile &#41;\n\n        oCli&#58;Close&#40;&#41;\n    END SEQUENCE\n\n    RETURN lOk[/code:2xhodra5]\n\nEMG','',0,'AIA=','2xhodra5',1,0,'',6,0,0),(16420,3728,1,161,0,'81.164.212.146',1154081366,1,0,1,1,1,0,'','','Dutch,\n\nI use it with clipper5.2e. Can you give me your email adress, so I can send it to you?\n\nMarc','',0,'AIA=','2vpy9s23',1,0,'',161,0,0),(16421,3732,6,84,0,'80.25.123.228',1154084201,1,0,1,1,1,0,'','Controlar los ToolTips','Me gustaria saber si puedo mostrar el ToolTip de un contro sin necesidad de que el ratón este sobre el.\n\nAlgo asi\n\n[color=green:5ep6ca8r]Redefine Get oGetCodigo ...\n\noGetCodigo:cToolTip := \"Código obligatorio\"\n\n...\n\nif Empty( oGetCodigo:VarGet() )\n   oGetCodigo:showToolTip()\nend if[/color:5ep6ca8r]\n\nEste código ahora no funciona.\n\nGracias, Manuel Calero.','',0,'Ag==','5ep6ca8r',1,0,'',84,0,0),(16422,3728,1,47,0,'203.144.143.9',1154084786,1,0,1,1,1,0,'','Thank you','[size=150:v5absu8j]dutch@easyfo.com[/size:v5absu8j]','',0,'BA==','v5absu8j',1,0,'',47,0,0),(16423,3707,7,656,0,'83.230.172.253',1154088852,1,0,1,1,1,0,'','','FUNCIONA  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nMuchísimas gracias Jose, me has solucionado un gran problema.\n\nUn saludo\nJavi','',0,'BA==','3rhehr6g',1,0,'',656,0,0),(16424,3653,6,375,0,'84.122.98.87',1154089799,1,0,1,1,1,1,'','','Parece que no faltan páginas, sino que salen desordenadas. A lo mejor en XP le han dado más importancia a la rápidez que al orden. Parece como si cuando una página tarda en salir de la cola de impresión, imprime las siguientes hasta que esa esté lista.\n\nA lo mejor es cuestión de intentar cambiar la forma en que queremos que se impriman nuestros trabajos, cuando la última página ha entrado en la cola o cuando lo hace la primera. Es sólo una sugerencia, ahora mismo estoy de vacaciones y no tengo el XP a mano para probar.\n\nSaludos','',0,'BA==','3cgbmsqj',1,0,'',375,0,0),(16425,3731,3,2,0,'87.218.146.136',1154089807,1,0,1,1,1,1,'','','Otto,\n\nI suggest you to use and review Microsoft help files for Win16 and Win32 APIs. Its not a FWH issue. \n\nBasically if we move from 16 bits to 32 bits, then we are going to use longs (32 bits) instead of words (16 bits).\n\nYou may find in Google a complete list of differences between both APIs.','',0,'BA==','ru5mwl68',1,0,'',2,0,0),(16426,3707,7,2,0,'87.218.146.136',1154089901,1,0,1,1,1,1,'','','Javi,\n\nBien! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'BA==','3d9wqr4k',1,0,'',2,0,0),(16427,3713,1,2,0,'87.218.146.136',1154090206,1,0,1,1,1,1,'','','Otto,\n\nPlease review this thread:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2385&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=bringwindowtotop\">http://fivetechsoft.com/forums/viewtopi ... indowtotop</a><!-- m -->','',0,'BA==','2833h1be',1,0,'',2,0,0),(16428,3713,1,51,0,'80.122.88.242',1154095393,1,0,1,1,1,0,'','','BringWindowToTop(hWnd)\n\ndoes not resolve the problem.\n\nRegards\nOtto','',0,'BA==','jdhhxr9v',1,0,'',51,0,0),(16429,3729,20,154,0,'151.21.76.96',1154095864,1,0,1,1,1,1,'','','Grazie Enrico,  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nfaccio qualche test...\n\nSicuramente mi farò presto vivo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'BA==','3tbhpicq',1,0,'',154,0,0),(16430,3733,5,355,0,'213.23.0.82',1154096340,1,0,1,1,1,0,'','FW 24++ / Alaska 1.9   ERROR BASE/5','Hallo ! \nI have a programm the file size = 11678208 kb.  \n\nsince a couple days i have a problem: \n\n rogramm (32 bits) **************************************** 10.07.2006, 07:10:32\n================================================================================\n    Pfad und Name  : O:\\OrLando.exe M12.08f\n    Size           : 11678208\n    Beschreibung   : Error BASE/5  Interne Datenstrukturen besch„digt: &lt;7&gt;\n   Args:\n     [   1] = O   Object\n     [   2] = N   7\n     [   3] = N   192\n     [   4] = N   1\n\n\nStack Calls\n===========\n   Aufruf von TWINDOW:HANDLEEVEN(2904)\n   Aufruf von TCONTROL:HANDLEEVEN(1269)\n   Aufruf von _XBPP(3000)\n   Aufruf von TDIALOG:ACTIVATE(263)\n\n\nwho can help\n\nWer kann helfen, am besten in Deutsch \n\nGruesse Carsten Graeber \n<!-- e --><a href=\"mailto:cgraeber@web.de\">cgraeber@web.de</a><!-- e -->','',0,'','3gnlkpnf',1,0,'',355,0,0),(16431,3713,1,303,0,'72.199.41.171',1154096684,1,0,1,1,1,0,'','','Otto,\n\n&gt;If the programm is allready running to bring it in the foreground.\n\nTry this:\n\nDLL32 FUNCTION SETFOREGROUNDWINDOW( hWnd AS LONG ) AS BOOL;\n      PASCAL FROM \"SetForegroundWindow\" LIB \"user32.dll\"','',0,'','numtnfn1',1,0,'',303,0,0),(16432,3713,1,51,0,'80.122.88.242',1154098065,1,0,1,1,1,0,'','','Thank you James. I have this code in my testprg.\n\nBut does not work.\nRegards\nOtto','',0,'','1hyojhrv',1,0,'',51,0,0),(16433,3734,3,6,0,'87.3.184.189',1154100214,1,0,1,1,1,1,'','Bug in DEFINE WINDOW command','The following sample seems to uncorrectly create an MDI window instead of a normal one (removing PIXEL clause the window switches back to normal):\n\n[code:1x54xxvn]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd PIXEL\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1x54xxvn]\n\nEMG','',0,'AIA=','1x54xxvn',1,0,'',6,0,0),(16434,3728,1,47,0,'203.144.143.4',1154101928,1,0,1,1,1,0,'','Link Sbrowse, I got the GPF error. when build index file','Dear Marc,\n\nThanks for Sbrowse.lib but I still got GPF error. when build index file.  I don\'t know why.  If I don\'t link Sbrowse.lib the index file procedure has not occur. \n\nThanks&amp;Regards,\nDutch','',0,'AIA=','2ulm92uq',1,0,'',47,0,0),(16435,3732,6,396,0,'201.243.137.44',1154103955,1,0,1,1,1,1,'','','Nose, si es complicarte, pero yo lo trabajo en un VALID() que llama una funcion y le doy el mensaje que quiera y sirve para cualquier oGET que no cumpla la condicion de que que de vacio, claro imagino que con un tooltip debe verse mas coqueto, pero debes crear 1 tooltip para cada oGET, eso creo, te doy mi ejmplo.\n\nFUNCTION novacio(variable) // VALIDA CAMPO NO QUEDE VACIO\n   IF EMPTY(variable)\n      MSGALERT(\"Campo no puede quedar vacio\",\" ATENCIÓN\")\n      RETURN .F.\n   ENDIF\nRETURN .T. // FIN VALIDA CAMPO NO QUEDE VACIO\n\ny llamo la funcion desde el VALID del oGET.\n\n   REDEFINE GET oGET1 VAR oDbf:ben_codigo ID 103 OF oDlgDatBen PICTURE \"@!\";\n            VALID(novacio(oDbf:ben_codigo), vcodigo(oDbf:ben_codigo, lAPPEND));\n            WHEN(lAPPEND) UPDATE\n\nespero te sirva, aclare o de nuevas ideas para tu pregunta...','',0,'AIA=','lrm6m6jr',1,0,'',396,0,0),(16436,3726,6,217,0,'200.159.120.34',1154103987,1,0,1,1,1,0,'','Re: PostGreSQL','Jose, \n\n&gt;&gt;1. ¿Cómo puedo hacer aplicaciones en Fivewin con bases de &gt;&gt;PostGreeSQL, que cambia con respecto a usar dbfs?\n\nYo uso SQLRDD de xHarbour comercial (<!-- w --><a class=\"postlink\" href=\"http://www.xharbour.com\">www.xharbour.com</a><!-- w -->).\nFunciona perfecto con base de datos SQL. Yo he testado MySQL, Firebird, PostGreSQL y MS SQL Server (Express Edition) y trabajo muy bien bajo del entorno SQL o por medio de comandos xBase. Hoy yo trabajo con Firebird (soló no me funcionan los \"foreign keys\" creo que por algun bug del Firebird que \"non hable\" con SQLRDD en este punto).\nPuedes usar comandos SQL directo en las tablas (select, insert, update, delete, create view etc) y cargas los datos en array o dbf temporal y tanbiem puede trabajar con las tablas SQL como se fueran tablas DBF con comandos use, index on, delete, seek, goto etc.\n\nOtra solucion xBase/SQL es SQLLIB <!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->.\nSQLLIB trabaja con base de datos MySQL y PostgreSQL. Tiene una version FREE (sin soporte a comandos como REPLACE, APPEND etc en estes casos tienes que usar los comandos SQL).\n\nPuedes tambien utilizar la classe ODBC de Fivewin. Pero creo que tienes que hacer algunas modificaciones para trabajar perfecto con Postgre...\n\n&gt;&gt;2. ¿Qué necesito instalar en mi máquina para poder hacer las pruebas?\n\nTienes que instalar el \"server\" de SQL del base que usted ha seleccionado (MySQL, Firebird, PostgreSQL).\n\n&gt;&gt; Agradezco desde ya cualquier ayuda que puedan brindarme.\n\nSolo perdona me que yo no hablo español. Espero que tenga compreendido alguna cosa  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nSaludos de Brasil\nMaurilio','',0,'AIA=','3ut2fd6l',1,0,'',217,0,0),(16437,3704,6,396,0,'201.243.137.44',1154104676,1,0,1,1,1,1,'','','La pregunta de las 1000 lochas, en que version de FWH puedo usar este LIST? Tengo FWH 2.4, no he podido actualizarme a la mas reciente..gracias.','',0,'AIA=','3rgwmpl2',1,0,'',396,0,0),(16438,3726,6,439,0,'190.0.137.72',1154104699,1,0,1,1,1,1,'','','Maurilio,\nTu español es muy bueno y pude entender claramente, gracias por tu información, trataré de ver que decido.\n\nSolo una pregunta más, para hacer pruebas de este software, necesitaré un Windows Server?\n\nMuchas Gracias <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','2yg38huv',1,0,'',439,0,0),(16439,3717,6,217,0,'200.159.120.34',1154104990,1,0,1,1,1,0,'','Re: Ajuste de Posicion del ToolTip en la ToolBar','Raymundo, creo que aun no es posible hacer esto. La API de Windows que pone el tooltip en la posicion...\nPero Rossine ha trabajando en modificaciones en tooltip y creo que luego podra hacer lo que queres.\n\nSaludos de Brasil\nMaurilio','',0,'AIA=','1h9h288a',1,0,'',217,0,0),(16441,3735,6,661,0,'201.123.184.199',1154105729,1,0,1,1,1,0,'','donde consigo la ultima vercio de Wbrowse Hernan?','Hola, donde puedo conseguir la ultima version de esta estupenda clase ya la uso pero estoy implementando un browse con ADO y me da el siguiente error:\n\n  Error description: Error BASE/1002  Alias does not exist: ARRAY\n\nStack Calls\n===========\n   Called from (b)TWBROWSE:SETFILTER(2639)\n   Called from (b)TWBROWSE:SETFILTER(2640)\n   Called from TWBROWSE:LBUTTONDOWN(1649)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWBROWSE:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from DIALOGBOXINDIRECT(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from TBUSCARR:BUSQUEDA(67)\n   Called from BUS_PRO(45)\n   Called from ZPROVEE(33)\n   Called from VAL_PROV(245)\n   Called from (b)C22011(76)\n   Called from TGET:LVALID(0)\n   Called from TGET:FWLOSTFOCUS(0)\n   Called from TGET:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from SYSREFRESH(0)\n   Called from TCONTROL:KEYCHAR(0)\n   Called from TGET:KEYCHAR(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TGET:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(878)\n   Called from MAIN(76)\n\n\neste es mi codigo:\n\n     @ 10,00 LISTBOX oLbx1 FIELDS oRecordSet:Fields(0):value,;\n                                  oRecordSet:Fields(1):value;\n             ON DBLCLICK (odlgbus:end(),wr:=.t.) ;\n             SIZE 258,68 OF oDlgbus PIXEL \n\n             olbx1:aheaders  := ::titulos\n             olbx1:acolsizes := ::sizes\n             oLbx1:aJustify  := ::just\n             olbx1:aHJustify := ::justh\n  \n             oLbx1:bLogicLen = { || oRecordSet:RecordCount }\n             oLbx1:bGoTop    = { || oRecordSet:MoveFirst() }\n             oLbx1:bGoBottom = { || oRecordSet:MoveLast() }\n             oLbx1:bSkip     = { | nSkip | Skipper( oRecordSet, nSkip ) }\n             oLbx1:cAlias    := \"ARRAY\"\n\n\n\nGracias desde ya <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3l67ctvu',1,0,'',661,0,0),(16442,2850,3,530,0,'201.114.228.24',1154108906,1,0,1,1,1,0,'','','Hi Antonio:\n\nA \"Non Visual\" component would be a Timer for example, It doesn\'t show anything in Run Time, Like My ActiveX Fingerprint component.\n\nSpeaking about the fix You sent me before, Invoking ActiveX Methods with by Reference Arguments. I couldn\'t tested it.\nBecause it\'s only significant if I get Fingerprint and then ask (by reference) to Encrypt it, for example.\n\nAnd I can\'t get fingerprint yet. Tanks any way.\n\nRegards\nFco Gamboa','',0,'AIA=','1lt5z7tu',1,0,'',530,0,0),(16443,3733,5,2,0,'87.218.146.225',1154109586,1,0,1,1,1,1,'','','Carsten,\n\n&gt; Interne Datenstrukturen besch\n\nThats the message that they report for a GPF. \n\nThe current FW++ version is 2.7. Are you using 2.4 with Xbase++ 1.9 ?','',0,'AIA=','34mt118q',1,0,'',2,0,0),(16444,3732,6,84,0,'80.25.123.228',1154109670,1,0,1,1,1,0,'','','El tema de MsgAlert y MsgStop es como lo tengo en la actualidad pero asi, estamos obligando al usuario a pulsar INTRO por cada mensaje, mi idea es mostrar el tootip para informar al usuario de por que no se valida el formulario, y puede seguir trabajando sin darle a INTRO.\n\nSaludos','',0,'AIA=','2wr1csk4',1,0,'',84,0,0),(16445,2850,3,2,0,'87.218.146.225',1154109775,1,0,1,1,1,1,'','','Fco.\n\n&gt; And I can\'t get fingerprint yet.\n\nWhat problem do you get ?','',0,'AIA=','28fpagiw',1,0,'',2,0,0),(16446,3728,1,161,0,'81.164.212.146',1154112614,1,0,1,1,1,0,'','','Dutch,\n\nI use six-driver, but I don\'t think this will be the problem. Can you make a little sample-program so I can link it and see if the GPF-error also appear on my PC?\n\nMarc','',0,'AIA=','swrf6snq',1,0,'',161,0,0),(16447,3726,6,217,0,'200.159.120.34',1154114986,1,0,1,1,1,0,'','','&gt;&gt; Solo una pregunta más, para hacer pruebas de este software, &gt;&gt;necesitaré un Windows Server?\n\nNo necesita de Win Server. Se tienes Win 2000 o XP en su equipo todos funcionarán perfectamente. \n\nPara servidor tienes que tener:\nPostgre: Win 2000 o superior\nMS SQL Server: Win NT, 2000 o superior.\nMySQL y Firebird: Funciona en todas las versiones de Windows (creo que no funciona en Win 95)\n\nYo uso Firebird en equipos con Win XP o Win 98. Funciona perfectamente.\n\nSaludos\nMaurilio','',0,'AIA=','25ipskfr',1,0,'',217,0,0),(16448,3726,6,439,0,'190.0.137.72',1154115217,1,0,1,1,1,1,'','','Gracias!!!!!!!!!!\n\nYa bajé postgree, lo voy a instalar en mi equipo con Windows XP y veré que logro.','',0,'AIA=','14q0czuc',1,0,'',439,0,0),(16449,3732,6,217,0,'200.159.120.34',1154116283,1,0,1,1,1,0,'','','Manuel,\n\nTengo el mismo problema que usted: o sea no quiero que el usuario tenga que pulsar OK.\nYo hice una funcion que pone una caja amarilla en el get con dato incorrecto.\nMira se puede ayudarte:\n[code:2empjpjf]\n\n*** Ejemplo&#58;\n&#46;&#46;&#46;\nif ! &quot;NB&quot; $ cSit\n   WinInfo&#40;&quot;Situacion debe ser&#58;&quot;+CRLF+;\n               &quot;N=Normal&quot;+CRLF+;\n               &quot;B=Bloqueado&quot;, oGetSit&#41;\nendif\n\nSe tienes problema con focus cuando llamar WinInfo intenta&#58;\nWinInfo&#40;&quot;Texto&quot;, oGet, &#46;F&#46;&#41;\n\n*** La funcion&#58;\n\n//-----------------------------------------------------------------------------\n// WinInfo &#58; Cria ventana estilo tooltip\n// &lt;cText&gt;        &#58; Texto o bloco de texto\n// &lt;oObj &gt;        &#58; Objeto &#40;get, button, say, etc&#41; de la ventana\n// &lt;lLetLostFocus&gt;&#58; Debe cerrar cuando perder el focus?\n//----------------------------------------------------------------------------\nfunction WinInfo&#40;cText, oObj, lLetLostFocus&#41;\n local oFont, oWnd, aPos, hOldFont\n local aText, nLenText, hWnd, oClose, oTempo\n local nRow      &#58;= oObj&#58;nHeight&#40;&#41;\n local nCol      &#58;= 7\n local nTxtWidth &#58;= 0\n local nTxtHeight&#58;= 0\n\n DEFAULT lLetLostFocus &#58;= &#46;T&#46;\n\n if ValType&#40; cText &#41; == &quot;B&quot;\n    cText &#58;= Eval&#40; cText &#41;\n endif\n cText &#58;= strtran&#40;cText,&quot;\\n&quot;, chr&#40;13&#41;+chr&#40;10&#41;&#41;  // \\n = CRLF  cText &#58;= &quot;&quot;+CRLF+cText+CRLF+&quot; &quot;\n\n define window oWnd from 0, 0 to 1, 5     ;\n        style  nOr&#40; WS_POPUP, WS_BORDER &#41; ;\n        color  0, nRGB&#40;255,255,164&#41; of oObj\n\n define font oFont name GetSysFont&#40;&#41; size 0, -8\n\n aPos &#58;= &#123;nRow-1, -1&#125;    \n aPos &#58;= ClientToScreen&#40; oObj&#58;hWnd, aPos &#41;\n\n nTxtHeight &#58;= max&#40;14, GetTextHeight&#40; oWnd&#58;hWnd &#41;-2&#41;\n aText      &#58;= array&#40; nLenText &#58;= mlcount&#40; cText, 254 &#41; &#41;\n\n aeval&#40; aText, &#123;|c, n| aText&#91; n &#93; &#58;= trim&#40;memoline&#40; cText, 252, n &#41;&#41;, ;\n                       nTxtWidth  &#58;= max&#40;nTxtWidth, GetTextWidth&#40; 0, aText&#91; n &#93;, oFont&#58;hFont &#41; + 7 &#41; &#125;&#41;\n\n if aPos&#91; 2 &#93; + nTxtWidth + 3 &gt; GetSysMetrics&#40;0&#41;   //0 = SM_CXSCREEN\n    aPos&#91; 2 &#93; = GetSysMetrics&#40; 0 &#41; - nTxtWidth - 3\n endif\n\n oWnd&#58;bRClicked &#58;= oWnd&#58;bLClicked &#58;= &#123;|a, b, c, Me| Me&#58;End&#40;&#41; &#125;\n\n//-----------------------------------------------------------------------------------\n// Truco&#58; Boton fuera de la ventana&#46; Cierra la ventana se pulsa enter\n//-----------------------------------------------------------------------------------\n @ -10, -10 button oClose of oWnd action &#40;if&#40;oTempo # Nil, oTempo&#58;End&#40;&#41;,&#41;, oWnd&#58;End&#40;&#41;&#41;\n\n oWnd&#58;Move&#40; aPos&#91; 1 &#93;, aPos&#91; 2 &#93;, nTxtWidth, nTxtHeight * nLenText + 3 &#41;\n oWnd&#58;Show&#40;&#41;\n\n SysRefresh&#40;&#41;\n if oWnd != Nil\n    SetBkMode&#40; oWnd&#58;GetDC&#40;&#41;, 1 &#41;\n    SetTextColor&#40; oWnd&#58;hDC, 0 &#41;\n\n    hOldFont &#58;= SelectObject&#40; oWnd&#58;hDC, oFont&#58;hFont &#41;\n\n    aeval&#40; aText, &#123;| c, n | TextOut&#40; oWnd&#58;hDC, n * nTxtHeight - &#40;nTxtHeight-1&#41;, 2, aText&#91; n &#93; &#41; &#125;&#41;\n    SelectObject&#40; oWnd&#58;hDC, hOldFont &#41;\n    oWnd&#58;ReleaseDC&#40;&#41;\n endif\n oWnd&#58;Setfocus&#40;&#41;\n if lLetLostFocus\n    oWnd&#58;bLostFocus &#58;= &#123;|| oWnd&#58;End&#40;&#41; &#125;\n else\n    // Cierra la ventana despues de 2600 milisegundos\n    define timer oTempo interval 2600 of oWnd action &#40;oWnd&#58;End&#40;&#41;, oTempo&#58;End&#40;&#41;&#41;\n    oTempo&#58;Activate&#40;&#41;\n endif\n\n oFont&#58;End&#40;&#41;\nreturn&#40; Nil &#41;\n[/code:2empjpjf]\n\nSaludos de Brasil\nMaurilio','',0,'AIA=','2empjpjf',1,0,'',217,0,0),(16450,3726,6,104,0,'201.58.26.44',1154116589,1,0,1,1,1,0,'','','É Maurilio,\n\nPelo jeito você entede mesmo do sql + fwh + xharbour  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  hehehe\n\nAcho que em breve irei precisar de uma grande ajuda sua, amigo   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> hehehe\n\n... e além disto é bilingue. Por acaso também falas um pouco de martinês kakaka.\n\nAbraços,\n\nRossine.','',0,'AIA=','z0bhmszh',1,0,'',104,0,0),(16451,3736,2,375,0,'84.122.98.87',1154117468,1,0,1,1,1,1,'','Problema VK_RETURN','Tengo una clase llamada [u:2nl92lh2]TFondo[/u:2nl92lh2] que es la clase [b:2nl92lh2]TPanel[/b:2nl92lh2] con algunas modificaciones que me hacían falta para mi aplicación.\n\nEs una clase que deriva directamente de [b:2nl92lh2]TControl[/b:2nl92lh2], pero no me deja controlar VK_RETURN ni desde [b:2nl92lh2]::KeyDown[/b:2nl92lh2] ni desde [b:2nl92lh2]::KeyChar[/b:2nl92lh2]. Algo estoy haciendo mal y no me doy cuenta  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , pues tengo otras clases derivadas de TControl que si me dejan analizar esa tecla.\n\n¿Alguna idea?\n\nComo el código es cortito, lo incluyo a continuación:\n\n#include \"FiveWin.ch\"\n\n#ifdef __XPP__\n   #define Super ::TControl\n   #define New _New\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLASS TFondo FROM TControl\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   METHOD New( nTop, nLeft, nBottom, nRight, oWnd, [b:2nl92lh2]nClrLetr, nClrFond, oCursor, lBorder, lTabStop [/b:2nl92lh2]) CONSTRUCTOR\n\n   METHOD Paint()\n   METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint()\n   [b:2nl92lh2]METHOD LButtonDown( nRow, nCol, nKeyFlags )[/b:2nl92lh2]\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New( nTop, nLeft, nBottom, nRight, oWnd, [b:2nl92lh2]nClrLetr, nClrFond, oCursor,lBorder, lTabStop [/b:2nl92lh2]) CLASS TPanel\n\n   DEFAULT nTop := 0, nLeft := 0, nBottom := 100, nRight := 100,;\n           oWnd := GetWndDefault(), [b:2nl92lh2]nClrLetr := 0, nClrFond := GetSysColor(COLOR_WINDOW ), lBorder := .F., lTabStop := .F.[/b:2nl92lh2] // Añadido\n\n   ::nTop    = nTop\n   ::nLeft   = nLeft\n   ::nBottom = nBottom\n   ::nRight  = nRight\n   ::oWnd    = oWnd\n   [b:2nl92lh2]::nStyle  = nOr( WS_CHILD, WS_VISIBLE,IF(lBorder,WS_BORDER,0),IF(lTabStop,WS_TABSTOP,0) )[/b:2nl92lh2] // esto ha variado respeto de TPanel\n   ::lDrag   = .f.\n\n   #ifdef __XPP__\n      DEFAULT ::lRegistered := .f.\n   #endif\n   *\n   ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )\n   [b:2nl92lh2]::SetColor(nClrLetr, nClrFond )[/b:2nl92lh2]  // AÑADIDO\n   *\n   IF ! Empty( ::oWnd:hWnd )\n      ::Create(\"TFondo\")\n      ::lVisible = .T.\n      ::oWnd:AddControl( Self )\n   ELSE\n      ::lVisible = .F.\n      ::oWnd:DefControl( Self )\n   ENDIF\n\n     [b:2nl92lh2]IF oCursor # NIL [/b:2nl92lh2] // tambien añadido[\n      [b:2nl92lh2]::oCursor := oCursor\n      SetCursor( ::oCursor:hCursor )\n   ENDIF\n\n   ::lActive	:= .T.\n   ::lDrag	:= .F.\n   ::lCaptured	:= .F.\n   ::lFocused	:= .F.[/b:2nl92lh2]\nRETURN Self\n*\nMETHOD Paint() CLASS TPanel\n   LOCAL nTop, nLeft, nHeight, nWidth, nBevel\n   *\n   IF ::oClient != NIL .AND. (nBevel := ::oClient:nClientBevel) &gt; 0  // [b:2nl92lh2]TODO ESTO EN ADELANTE ES DE TPanel[/b:2nl92lh2]\n      nBevel  -= 1\n      nTop    := nBevel\n      nLeft   := nBevel\n      nHeight := ::nHeight - nBevel - 1\n      nWidth  := ::nWidth - nBevel - 1\n      IF ::oTop != NIL\n         nTop += ::oTop:nHeight\n      ENDIF\n      IF ::oBottom != NIL\n         nHeight -= ::oBottom:nHeight\n      ENDIF\n      IF ::oLeft != NIL\n         nLeft += ::oLeft:nWidth\n      ENDIF\n      IF ::oRight != NIL\n         nWidth -= ::oRight:nWidth\n      ENDIF\n      WndBoxIn(::hDC, nTop, nLeft, nHeight, nWidth)\n   ENDIF\n   *\n [b:2nl92lh2]  IF ::bPainted # NIL  // ESTO ESTA AÑADIDO\n      Eval( ::bPainted, ::hDC )\n   ENDIF[/b:2nl92lh2]\nRETURN NIL\n*\n[b:2nl92lh2]METHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TPanel // ESTO TAMBIEN ES NUEVO\n   IF ::bGotFocus # NIL\n     ::SetFocus()\n   ENDIF\n   IF ::bLClicked != nil\n      RETURN Eval( ::bLClicked, nRow, nCol, nKeyFlags )\n   ENDIF\nRETURN NIL[/b:2nl92lh2]*\n\nGracias por adelantado','',0,'QQ==','2nl92lh2',1,0,'',375,0,0),(16452,3732,6,375,0,'84.122.98.87',1154117882,1,0,1,1,1,1,'','','No sería más sencillo diseñar la pantalla directamente, de forma que al lado de cada GET (u otro CONTROL) coloques un pequeño GRAFICO (o un simple SAY) donde des una pequeña explicación de lo que hace/tiene que hacer el GET (o CONTROL)\n\nSi esa explicación tiene que aparecer al entrar en el GET (o activar el CONTROL) pon los comentarios en HIDE() al iniciar el DIALOGO, despUES los \"enseñas\" con SHOW() en el WHEN y los \"escondes\" HIDE() en el VALID de cada GET/CONTROL.\n\nA falta de que desarrolles el algoritmo pertinente esto te podría servir.\n\nUn saludo','',0,'QQ==','yro1q33a',1,0,'',375,0,0),(16454,3717,6,492,0,'201.154.126.49',1154118316,1,0,1,1,1,1,'','','Ok, enterado amigos\n\nVoy a probar las modificaciones Oscar.\n\n\nGracias a ambos\n\nSALUDOS','',0,'QQ==','oo40yqnc',1,0,'',492,0,0),(16455,3735,6,138,0,'200.92.60.239',1154121647,1,0,1,1,1,1,'','','Te falta la funcion Skipper() que esta en el ::Bskip','',0,'QQ==','3gomus70',1,0,'',138,0,0),(16456,3726,6,217,0,'200.159.120.34',1154121761,1,0,1,1,1,0,'','','Rossine, \nSão seus olhos. Hehehe.\nQuando precisar estamos aqui, se estiver a meu alcance...\nAh, serve japonês? Eu cheguei a traduzir desenhos japoneses no longínquo ano de 1998.\n\n[ ]\'s\nMaurilio','',0,'','2kcx1o50',1,0,'',217,0,0),(16457,3735,6,661,0,'201.123.184.199',1154122463,1,0,1,1,1,0,'','','rene ya la puse pero ahora me da el siguiente error en el skipper dentro de la busqueda:\n\nApplication\n===========\n   Path and name: f:\\SIV\\NXTMenu.Exe (32 bits)\n   Size: 2,594,816 bytes\n   Time from start: 0 hours 0 mins 25 secs \n   Error occurred at: 28/07/2006, 15:27:42\n   Error description: Error adodb.command:EXECUTE/9  El conjunto de filas no admite desplazamiento hacia atrás.: MOVE\n   Args:\n     [   1] = N   -7\n\nStack Calls\n===========\n   Called from TOLEAUTO:MOVE(0)\n   Called from SKIPPER(81)\n   Called from (b)TBUSCARR:BUSQUEDA(61)\n   Called from TWBROWSE:SKIP(2355)\n   Called from TWBROWSE:PAINT(1091)\n   Called from TWBROWSE:DISPLAY(2880)\n   Called from TWBROWSE:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from DIALOGBOXINDIRECT(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from TBUSCARR:BUSQUEDA(73)\n   Called from BUS_PRO(45)\n   Called from ZPROVEE(33)\n   Called from VAL_PROV(245)\n   Called from (b)C22011(76)\n   Called from TGET:LVALID(0)\n   Called from TGET:FWLOSTFOCUS(0)\n   Called from TGET:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from SYSREFRESH(0)\n   Called from TCONTROL:KEYCHAR(0)\n   Called from TGET:KEYCHAR(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TGET:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(878)\n   Called from MAIN(76)\n\n\n\neste es el codigo:\n\nSTATIC FUNCTION SKIPPER( oRs, nSkip )\n\n    LOCAL nRec := oRs:AbsolutePosition\n\n    oRs:Move( nSkip )\n    IF oRs:EOF()\n       oRs:MoveLast()\n    endif\n    IF oRs:BOF()\n       oRs:MoveFirst()\n    ENDIF\n\nRETURN oRs:AbsolutePosition - nRec','',0,'','etglox4k',1,0,'',661,0,0),(16458,3735,6,661,0,'201.123.184.199',1154122522,1,0,1,1,1,0,'','','de hecho si compilo el codigo que tu me pasaste me da el mismo error','',0,'','1t4ykesn',1,0,'',661,0,0),(16459,3659,2,510,0,'200.84.245.141',1154126445,1,0,1,1,1,0,'','','Gracias antonio lo hice y aplico como anillo al dedo','',0,'','33m5tz6s',1,0,'',510,0,0),(16460,3737,6,665,0,'196.40.13.66',1154127345,1,0,1,1,1,0,'','Sera Posible hacer cambios en folders','Hola Un saludito\n\nA haver quien me echa una mano  con este problema que  no se como resolver.\n\nDefini un folder\n\n REDEFINE FOLDER  oFld ID 29 OF oWnd ;\n   PROMPT \"Desglose Asientos\",\"oTROS\"   ;\n   DIALOGS \"FOLDSUB1\",\"FOLDSUB2\"\n\nDentro del recurzo tengo \nFOLDSUB1\nFOLDSUB11\nFOLDSUB12\nFOLDSUB13\n\nDonde FOLDSUB1  es un modelo hecho con botones  donde defini  una forma de ocupacion de aun autobus la forma en que estan los asientos definidos  , resulta que la empresa  tiene una cantidad  diferente de modelos de autobuses lo cual cambia  de forma y cantidad, ese no es el problema.\n\nPero tengo en determinado momento  cambiar el contenido del FOLDSUB1 POR OTRO que  tengo definidos dentro del recurso   porque cambia el modelo.\n\nSera posible hacer estos cambios  , jesucristo tengo una semana  con esto y si alguien tiene la forma de hacerlo or favor le agraceria el consejito.\n\nGracias\nBusmatic\nThanks','',0,'','rcubv4rx',1,0,'',665,0,0),(16461,3738,17,2,0,'87.218.146.4',1154129714,1,0,1,1,1,1,'','hbcomm.lib','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e2d2c498/hbcomm.zip.html\">http://hyperupload.com/download/02e2d2c ... m.zip.html</a><!-- m -->','',0,'','1kcubs1p',1,0,'',2,0,0),(16462,3719,4,2,0,'87.218.146.4',1154130675,1,0,1,1,1,1,'','','Pawel,\n\nThe user should get a msg on the screen with \"internal error\" and an error description. Which error description is it ? Is it empty ?','',0,'','rtgl65v7',1,0,'',2,0,0),(16463,3737,6,2,0,'87.218.146.4',1154130860,1,0,1,1,1,1,'','','Por que no usas un if ?\n[code:2nvjtqnd]\nif &lt;lCondicion&gt;  // condicion a cumplirse\n   REDEFINE FOLDER oFld ID 29 OF oWnd ; \n      PROMPT &quot;Desglose Asientos&quot;,&quot;oTROS&quot; ; \n      DIALOGS &quot;FOLDSUB1&quot;,&quot;FOLDSUB2&quot;\nelse\n   REDEFINE FOLDER oFld ID 29 OF oWnd ; \n      PROMPT &quot;Desglose Asientos&quot;,&quot;oTROS&quot; ; \n      DIALOGS &quot;FOLDSUB11&quot;,&quot;FOLDSUB12&quot;\nendif\n[/code:2nvjtqnd]','',0,'AIA=','2nvjtqnd',1,0,'',2,0,0),(16464,3739,1,699,0,'59.125.100.114',1154131499,1,0,1,1,1,1,'','Help on creating dbf file','Hi, all\n\nWhen I try to open a .dbf file by USE(cFilename), I got an error message “Error DBFNTX/1012  Corruption detected”. This .dbf file was created by the following:\n\nfor n = 1 to Len( oLbx:aItems )\n      AAdd( aFields, _FieldInfo( AllTrim( oLbx:aItems[ n ] ) ) )\nnext\n   DbCreate( cDbfName, aFields )\n   MsgInfo( \"DBF created!\", \"AllRight\" )\n\nstatic function _FieldInfo( cItem )\nreturn { StrToken( cItem, 1 ),;\n         StrToken( cItem, 2 ),;\n         Val( StrToken( cItem, 3 ) ),;\n         Val( StrToken( cItem, 4 ) ) }\n\nAny help would be much appreciated.','',0,'','267uitjm',1,0,'',699,0,0),(16465,3737,6,665,0,'200.122.153.234',1154131662,1,0,1,1,1,0,'','Si antonio ya los hice, pero','Pero el problema   no esta en el inicio la aplicacion esque e esto es cambiante dentro de un mismo dialogo, por haber hecho el llamado  ya no puedo volverlo a cambiar. He puesto el folder dentro del dialgo  asi que tendria que salirme de dialogo princial y  en entrar de nuevo cuando valido el cambio de modelo\n\nEse es el asunto por eso pregunto si se podra \n\nAhora  de incio al entrada de dialgo  lo valide asi\n\naFoldercito:={\"FOLDSUB1\",\"FOLDSUB2\"}\nvCambio:=aFoldercito[1]\nvBronca:=\"&amp;vCambio\"\n\n\n   REDEFINE FOLDER  oFld ID 29 OF oWnd ;\n   PROMPT \"Desglose Asientos\",\"oTROS\"   ;\n   DIALOGS \"&amp;vBronca\",\"FOLDSUB2\"  \n\nDe esta manera si puedo entrar al folder que deseo cuando incio el  dialogo principal. pero en el mismo dialogo puede cambiar el modelo por tal razon debo de cambiar sub dentro del mismo\nUtilize por ahi esto\n\nahora subfolder sera 2\n vCambio:=aFoldercito[2]\n vBronca:=\"&amp;vCambio\"\n  oFld:refresh()\n\nno actuliza.\n\nSera posible__\n\nGracias\nBusmatic','',0,'','3akh5o7t',1,0,'',665,0,0),(16466,3737,6,665,0,'200.122.153.234',1154131716,1,0,1,1,1,0,'','Si antonio ya los hice, pero','Pero el problema   no esta en el inicio la aplicacion esque e esto es cambiante dentro de un mismo dialogo, por haber hecho el llamado  ya no puedo volverlo a cambiar. He puesto el folder dentro del dialgo  asi que tendria que salirme de dialogo princial y  en entrar de nuevo cuando valido el cambio de modelo\n\nEse es el asunto por eso pregunto si se podra \n\nAhora  de incio al entrada de dialgo  lo valide asi\n\naFoldercito:={\"FOLDSUB1\",\"FOLDSUB2\"}\nvCambio:=aFoldercito[1]\nvBronca:=\"&amp;vCambio\"\n\n\n   REDEFINE FOLDER  oFld ID 29 OF oWnd ;\n   PROMPT \"Desglose Asientos\",\"oTROS\"   ;\n   DIALOGS \"&amp;vBronca\",\"FOLDSUB2\"  \n\nDe esta manera si puedo entrar al folder que deseo cuando incio el  dialogo principal. pero en el mismo dialogo puede cambiar el modelo por tal razon debo de cambiar sub dentro del mismo\nUtilize por ahi esto\n\nahora subfolder sera 2\n vCambio:=aFoldercito[2]\n vBronca:=\"&amp;vCambio\"\n  oFld:refresh()\n\nno actuliza.\n\nSera posible__\n\nGracias\nBusmatic','',0,'','3hht3o9b',1,0,'',665,0,0),(16467,3737,6,665,0,'200.122.153.234',1154136428,1,0,1,1,1,0,'','O  podria eliminar el objeto folder y hacer una redefinir','OTRA PREGUNTITA\n\nya existe uns definicion de objeto folder si utilizo esto  en un llamado a una funcion me daria duplicidad de el ID 29\n \n\nif &lt;lCondicion&gt;  // condicion a cumplirse \n   REDEFINE FOLDER oFld ID 29 OF oWnd ; \n      PROMPT \"Desglose Asientos\",\"oTROS\" ; \n      DIALOGS \"FOLDSUB1\",\"FOLDSUB2\" \nelse \n   REDEFINE FOLDER oFld ID 29 OF oWnd ; \n      PROMPT \"Desglose Asientos\",\"oTROS\" ; \n      DIALOGS \"FOLDSUB11\",\"FOLDSUB12\" \nendif \n\nSe podria de alguna manera  eliminar el objeto  folder  y volverle a  redefinir esto desde el mismo oWnd.\n\nGracias\nBusmatic','',0,'','2tlaiw47',1,0,'',665,0,0),(16468,3737,6,72,0,'201.137.85.250',1154137137,1,0,1,1,1,0,'','','Mmmm, se me ocurre que ya dentro del folder uses TPage. Por ahí hice algo y funciona.','',0,'','1ntriwdt',1,0,'',72,0,0),(16469,3740,6,665,0,'200.122.153.234',1154148975,1,0,1,1,1,0,'','COMO UTILIZAR TPAGES DENTRO DE UN  FOLDER','uN SALUDITO..\n\nPor Problema de folders que he tenido me han dado una idea de utilizar tpages, bueno me podriaan ayudar  con un ejemplo de tulizacion pues nunca en mi vida las he utilizado.\n\nGracias..\nBusmatic\nthanks','',0,'','3u2k3q3d',1,0,'',665,0,0),(16470,3741,3,148,0,'82.201.237.105',1154154784,1,0,1,1,1,0,'','moving between DBF workareas','I am facing problem of co-cordinating my workareas usage and I need advice of how moving between them in that module . I need to execute aBase and reset modules for different DBF files but always I face error its fixing cost me to do select statemetn.\n\n[code:1fvp1r08]\n\nselect 4\nuse mete\nindex on mete-&gt;ME_mc_serl to mete\nindex on str&#40;mete-&gt;year&#41; + str&#40;mete-&gt;month&#41; to mete1\nindex on mete-&gt;me_date to mete2\n\n\n\n/*\nselect 1\nUSE cust\nINDEX ON upper&#40;cust-&gt;cu_acct&#41; TO cust\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON upper&#40;cust-&gt;cu_appr&#41; TO cust10\nset INDEX TO cust\n\n\n\nselect 3\nuse mach\nindex on mach-&gt;MC_CU_ACCT to mach\nindex on UPPER&#40;mach-&gt;MC_CU_name&#41; to mach1\nindex on UPPER&#40;mach-&gt;MC_ct_ctna&#41; to mach2\nindex on UPPER&#40;mach-&gt;MC_model&#41; to mach3\nindex on UPPER&#40;mach-&gt;MC_TYPE&#41;+UPPER&#40;mach-&gt;MC_model&#41; to mach4\nindex on UPPER&#40;mach-&gt;MC_serial&#41; to mach5\nindex on UPPER&#40;mach-&gt;MC_meres&#41; to mach6\nindex on UPPER&#40;mach-&gt;MC_brn&#41; to mach7\nindex on UPPER&#40;mach-&gt;MC_gateway&#41; to mach8\nset index to mach1\n\n\nselect 2\nUSE cont\nINDEX ON cont-&gt;CT_CU_ACCT+dtoc&#40;cont-&gt;ct_strd&#41; TO cont\nINDEX ON cont-&gt;CT_CU_name TO cont1\nINDEX ON cont-&gt;ct_strd TO cont2\nINDEX ON cont-&gt;ct_endd TO cont3\nINDEX ON cont-&gt;CT_machno TO cont4\nINDEX ON cont-&gt;CT_mamc TO cont5\nINDEX ON cont-&gt;ct_paymet TO cont6\nINDEX ON cont-&gt;ct_payamt TO cont7\nINDEX ON cont-&gt;ct_currenc TO cont8\nINDEX ON cont-&gt;ct_excmet TO cont9\nINDEX ON cont-&gt;ct_excamt TO cont10\nINDEX ON cont-&gt;ct_minvol TO cont11\nINDEX ON cont-&gt;ct_ctna TO cont12\n\nSET INDEX TO cont12*/\n\n\n\n\nDEFINE DIALOG oDlgn TITLE &quot;Meter Reads Sheet Filtering Creteria&quot; ;\nFrom 8, 2 TO 600, 700 PIXEL \n\n\n  @ 45,2 SAY &quot;Customer name&quot; OF oDlgn PIXEL\n  @ 45,50 SAY &quot;&#58;&quot; OF oDlgn PIXEL\n  @ 45,55 COMBOBOX oCbx VAR v_cuna_cocmbo ITEMS aBase&#40;4,&quot;mete&quot;,256,&quot;me_cu_name&quot;&#41; SIZE 110,80 ;\n  OF oDlgn PIXEL ;\n  valid &#40; reset&#40; v_cuna_cocmbo, oCbx2,&quot;mete&quot;,&quot;me_cu_acct&quot;,&quot;me_cu_name&quot;&#41; , &#46;t&#46; &#41;\n\n\n\n\n  @ 60,2 SAY &quot;Customer Account&quot; OF oDlgn PIXEL\n  @ 60,50 SAY &quot;&#58;&quot; OF oDlgn PIXEL\n  @ 60,55 COMBOBOX oCbx2 VAR v_cuac_cocmbo ITEMS aItems size 110,80 ;\n  OF oDlgn PIXEL;\n  valid &#40; reset&#40; v_cuac_cocmbo, oCbx3,&quot;mete&quot;,&quot;me_ct_ctna&quot;,&quot;me_cu_acct&quot;&#41; , &#46;t&#46; &#41;\n\n\n\n\n  @ 75,2 SAY &quot;Contract name&quot; OF oDlgn PIXEL\n  @ 75,50 SAY &quot;&#58;&quot; OF oDlgn PIXEL\n  @ 75,55 COMBOBOX oCbx3 VAR v_cona_cocmbo ITEMS aItems size 110,80 OF oDlgn PIXEL\n\n&#46;&#46;&#46;\n&#46;&#46;\n\nfunction reset&#40; cItem,oCbx,cFile,fld_na,filter_name&#41;\n//---------------------------------------------------\n  local aItems&#58;=&#123;&#125;\n  local nArea&#58;= select&#40;&#41;\n  local y&#58;=0\n\n\n  use &#40;cFile&#41; new\n  set filter to cItem = &amp;&#40;filter_name&#41;\n  go top\n\n  do while ! eof&#40;&#41;\n\n     y&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\n     if y==0\n        aAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\n        dbSkip&#40;&#41;\n        else\n        dbSkip&#40;&#41;\n     endif\n\n  ENDDO\n\n  *use\n  select&#40; nArea &#41;\n  oCbx&#58;setItems&#40; aItems &#41;\n  oCbx&#58;refresh&#40;&#41;\nreturn nil\n\n\n//-----------------------------------------//\nfunction aBase&#40;x,cFile,xx,cField&#41;\n*--------------------------------\n\n  local aItems&#58;=&#123;&#125;\n  local y&#58;=0\n  local nArea&#58;=select&#40;&#41;\n  aAdd&#40;aItems,space&#40;256&#41;&#41; //Put First element empty\n  use &#40;cFile&#41; new\n  index on &amp;&#40;cField&#41; to temp \n  go top\n  do while ! eof&#40;&#41;\n     y&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41;\n     if y==0\n        aAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41;\n        dbSkip&#40;&#41;\n        else\n        dbSkip&#40;&#41;\n     endif\n\n  enddo\n  ferase&#40;&quot;temp&#46;ntx&quot;&#41;\n  select&#40;nArea&#41;\nreturn aItems\n\n[/code:1fvp1r08]','',0,'AIA=','1fvp1r08',1,0,'',148,0,0),(16471,3719,4,13,0,'213.76.252.200',1154155645,1,0,1,1,1,0,'','','Antonio,\n\nError message description is empty.\n\nRegards\nPawel','',0,'AIA=','1lshyk8t',1,0,'',13,0,0),(16472,3735,6,138,0,'200.66.3.28',1154155976,1,0,1,1,1,1,'','','Cuando estas creando el Recordset, ¿ que tipo de cursor estas usando ?\n\n¿ Puedes poner tu cadena de conexion y la creacoin del RecordSet ?','',0,'AIA=','2n3b9yl6',1,0,'',138,0,0),(16473,3417,3,49,0,'62.13.172.78',1154157057,1,0,1,1,1,1,'','','the SPAce enviroment on sbgroup not run ok','',0,'AIA=','2dfo1rj5',1,0,'',49,0,0),(16474,3417,3,51,0,'80.122.88.242',1154159075,1,0,1,1,1,0,'','','Hello Silvio,\nHave you thought of using FW PocketPC for your software \"Spiaggia, lettini, ombrelloni\" ?\nRegards\nOtto\n\n\nBTW:  on  fivewin.it  there is an error\nPagine ASP error \'ASP 0126\' \n\nImpossibile trovare il file di inclusione \n\n/Default.asp, line 15 \n\nImpossibile trovare il file di inclusione \"config.asp\".','',0,'AIA=','2ohpz25s',1,0,'',51,0,0),(16475,3742,4,51,0,'80.122.88.242',1154160944,1,0,1,1,1,0,'','oWnd:line/oWnd:bLClicked','Are these functions ready?\nRegards\nOtto\noWnd:line()\n\n\n ACTIVATE WINDOW  \n            ON PAINT     \n            ON PAGERIGHT \n            ON PAGELEFT  \n            ON RIGHT     \n            ON LEFT      \n            ON UP        \n            ON DOWN      \n            ON PAGEUP    \n            ON PAGEDOWN  \n\noWnd:brClicked \noWnd:bLClicked \noWnd:bLButtonUp\noWnd:bMMoved','',0,'AIA=','od8ygjew',1,0,'',51,0,0),(16476,3741,3,6,0,'87.3.184.191',1154161252,1,0,1,1,1,1,'','Re: moving between DBF workareas','Try removing aliases from index keys.\n\nEMG','',0,'AIA=','3j0cre3l',1,0,'',6,0,0),(16477,3743,7,695,0,'83.43.118.91',1154164996,1,0,1,1,1,0,'','RADIO BUTTON, SAY... CON FONDO TRANSPARENTE?','<!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> Hola a todos. Hay alguna forma de mostrar un Radio Button u otro objeto tipo say, etc..., sobre un bitmap y que tenga el fondo transparente, para que no se vea el recuadro en blanco... Muchas grancias. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','3m8w8w34',1,0,'',695,0,0),(16478,3737,6,375,0,'84.122.98.87',1154169514,1,0,1,1,1,1,'','','Alguna vez se me presentó un problema parecido. Lo que pasa es que de un folder a otro tenía muchos elementos comunes. Lo que hice fue definir todos los elementos en un mismo folder, Los comunes a la vista y los especificos de cada situacion escondidos con oCtrl:Hide() en el ON INIT del Dialogo. Después, unos los \"enseñaba\" con oCtrl:Show() y oCtrl:Enable() y los otros los \"escondía\" con oCtrl:Hide() y oCtrl:Disable() según la situación y contenidos de algunos Get\'s/Radios. A lo mejor puedes hacer algo parecido. Si intervienen gráficos los puedes intercambiar con oBmp:Reload(\"NOMBRE\"), va muy bien y es rápido. Lo más complicado es diseñar el dialogo pués algunos elemenmtos se montaban unos encima de los otros. Incluso algunos controles, además de esconderlos, tenía que moverlos con oCtrl:nLeft := xx. Es más tedioso de contar que de realizar.\n\nSuerte. Un saludo.','',0,'AIA=','mka1d7zy',1,0,'',375,0,0),(16479,3742,4,2,0,'87.218.146.168',1154171479,1,0,1,1,1,1,'','','Otto,\n\nYou can easily check them for yourself reviewing source\\classes\\window.prg and include\\fwce.ch (search for ACTIVATE WINDOW). Thanks','',0,'AIA=','2i9avkjd',1,0,'',2,0,0),(16480,3736,2,375,0,'84.122.98.87',1154172040,1,0,1,1,1,1,'','','Creo que encontré la solución. Añadiendo:\n\nMETHOD GetDlgCode(nLastKey) CLASS TFondo\n   IF .NOT. ::oWnd:lValidating\n      IF nLastKey == VK_RETURN // .OR. nLastKey == VK_TAB\n         ::oWnd:nLastKey = nLastKey\n      ELSE\n         ::oWnd:nLastKey = 0\n      ENDIF\n   ENDIF\nRETURN IF( IsWindowEnabled( ::hWnd ), DLGC_WANTALLKEYS, 0 )\n\nMe da acceso a controlar las pulsaciones de las teclas con KeyDown.\n\nPero alguien me prodría explicar para que sirve concretamente el método GetDlgCode(nLastKey). Pues es curiosos, pero VK_TAB me funciona igual con o sin ese método, sin em,bargo VK_DOWN no ¿? los ponga o no en GetDlgCode() ¿? Alguna explicación sería muy de agradecer.\n\nSaludos a todos.','',0,'AIA=','43ixrree',1,0,'',375,0,0),(16481,3741,3,170,0,'213.103.35.58',1154179986,1,0,1,1,1,1,'','','Insert \"SET INDEX TO\" before FERASE() in aBase().','',0,'AIA=','3eakor35',1,0,'',170,0,0),(16482,3742,4,51,0,'80.122.88.242',1154184838,1,0,1,1,1,0,'','','METHOD Line\ndoes not seem to be there. Can we take the code form FWH?\nRegards\nOtto','',0,'AIA=','2cadzacj',1,0,'',51,0,0),(16483,3744,3,471,0,'201.240.234.62',1154185735,1,0,1,1,1,1,'','Class TURL generates GPF','Friends\n\ntip.lib to use TURL something but makes lack so that it does notgenerate GPF\n\nxharbour 0.99.60\n\n\n\nvzdownload(\"http://www.aduanet.gob.pe/aduanas/sgdbf/Vehiculos.zip\",\"Vehiculos.zip\")\n\n\nFUNC VZDOWNLOAD( cGUARDAR , cCOMO )\nLocal oUrl := tURL():New(cGUARDAR)\nLocal oClient := tIPClient():New( oUrl )\n oClient:nConnTimeout := 20000\n oClient:Open( oUrl )\n oClient:ReadToFile( cCOMO )\n oClient:Close()\nretu .t.\n\n\nThanks','',0,'AIA=','3mo1zg7u',1,0,'',471,0,0),(16484,3745,6,471,0,'201.240.234.62',1154185951,1,0,1,1,1,1,'','la clase TURL en que lib o libs de xharbour esta','Amigos\n\nuso tip.lib para usar TURL pero me  generate un GPF\nuso xharbour 0.99.60\n\nhe aqui un ejemplo\n\nvzdownload(\"http://www.aduanet.gob.pe/aduanas/sgdbf/Vehiculos.zip\",\"Vehiculos.zip\")\n\n\nFUNC VZDOWNLOAD( cGUARDAR , cCOMO )\nLocal oUrl := tURL():New(cGUARDAR)\nLocal oClient := tIPClient():New( oUrl )\n oClient:nConnTimeout := 20000\n oClient:Open( oUrl )\n oClient:ReadToFile( cCOMO )\n oClient:Close()\nretu .t.\n\n\nThanks','',0,'AIA=','3hznh7l7',1,0,'',471,0,0),(16485,3741,3,303,0,'72.199.41.171',1154188988,1,0,1,1,1,0,'','','Ehab,\n\nI know it is all new to you, but if you use the database class you don\'t have to deal with aliases and workareas at all. It is so much easier to program after you learn the basics of the database class. And you will have few bugs.\n\nAs I may have mentioned before, there are two articles on this on my website.\n\nJames','',0,'AIA=','2v3htf1u',1,0,'',303,0,0),(16486,3739,1,303,0,'72.199.41.171',1154189555,1,0,1,1,1,0,'','','It is hard to debug without knowing the contents of oLbx:aItems. Can you provide us with a small sample?','',0,'AIA=','1ary3vt4',1,0,'',303,0,0),(16487,3742,4,2,0,'87.218.146.92',1154190808,1,0,1,1,1,1,'','','Otto,\n\nWith some of them, yes, you can take them from FWH, but with others you will find unresolved externals from Windows Mobile.','',0,'AIA=','18moer3d',1,0,'',2,0,0),(16488,3665,3,689,0,'201.41.240.136',1154192071,1,0,1,1,1,0,'','','DMr. Antonio and everybody.\n\nAny other sugest to solve this problem?\n\nMany thanks\n\nEroni','',0,'AIA=','3qwa5o6f',1,0,'',689,0,0),(16489,3740,6,492,0,'201.154.126.49',1154192515,1,0,1,1,1,1,'','','Oscar\n\nEs practicamente identico a usar un folder :\n\nREDEFINE PAGES oPagSrc ID 102 OF oFold:aDialogs[2] DIALOGS \"PGMODS\",\"PGSISUB\", ;\n	\"PGMPRD\",\"PGFIN\"\n\n\nREDEFINE GET aSrcDts[ 1] ID 103 OF oPagSrc:aDialogs[1] WHEN .F. UPDATE\n\netc. etc\n\nUna de las diferencias, es que el folder tiene la forma visual caracteristica, mientras que el page es solo una area, yo normalmente la acompaño con algun TABs\n\n\nSALUDOS','',0,'','32qwc4hw',1,0,'',492,0,0),(16490,3745,6,492,0,'201.154.126.49',1154192702,1,0,1,1,1,1,'','','Vladimir\n\nSource\\Classes\n\nUrlLink.prg\n\n\nSALUDOS','',0,'','3w0ac25t',1,0,'',492,0,0),(16491,3665,3,6,0,'87.3.184.191',1154196740,1,0,1,1,1,1,'','','Please, have a look at rpreview.prg on how to implement a scrolling window.\n\nEMG','',0,'','2pctjhsy',1,0,'',6,0,0),(16492,3745,6,138,0,'201.110.67.58',1154197277,1,0,1,1,1,1,'','','Tienes que linkear libreria TIP.LIB de xHarbour','',0,'','38kgu03r',1,0,'',138,0,0),(16493,3744,3,54,0,'201.98.185.42',1154203572,1,0,1,1,1,1,'','Re: Class TURL generates GPF','[quote=&quot;Vladimir Zorrilla&quot;:2am1yz7z]Friends\n\ntip.lib to use TURL something but makes lack so that it does notgenerate GPF\n\nxharbour 0.99.60\n\n\n\nvzdownload(\"http://www.aduanet.gob.pe/aduanas/sgdbf/Vehiculos.zip\",\"Vehiculos.zip\")\n\n\nFUNC VZDOWNLOAD( cGUARDAR , cCOMO )\nLocal oUrl := tURL():New(cGUARDAR)\nLocal oClient := tIPClient():New( oUrl )\n oClient:nConnTimeout := 20000\n oClient:Open( oUrl )\n oClient:ReadToFile( cCOMO )\n oClient:Close()\nretu .t.\n\n\nThanks[/quote:2am1yz7z]\n\nVladimir,\n\nIncluye la LIB PCREPOS\n\nSaludos','',0,'gA==','2am1yz7z',1,0,'',54,0,0),(16494,3746,3,148,0,'82.201.237.105',1154219511,1,0,1,1,1,0,'','filtering output to Excel','I am trying to filter DBF to get variable data into excel sheet . I built my filter fine but I got Harbour Exception error .\n[code:1xgg2jb9]\nfunction executexcel&#40;oCombo1,oCombo2,oCombo3,oCombo4,oCombo5,oCombo6,oCombo7,oCombo8,oCombo9,oCombo10&#41;\n*--------------------------------------------------------------------------------------------------------\n\nLOCAL cPath &#58;= &quot;E&#58;\\programs\\clipper\\fwh\\sitex\\test&#46;XLS&quot;\nlocal oExcel , oBook, oSheet \nLOCAL nline&#58;=5\nlocal ncol\nlocal nCounter&#58;=1\nlocal nStart &#58;= nCounter\nlocal cMemo &#58;= \'\' \nlocal a2_fields&#91;12&#93;\nlocal a2_vars&#91;12&#93;\nlocal cFilter&#58;=&quot;&quot;\nlocal cValue&#58;=&quot;&quot;\nlocal i&#58;=0\n\nselect 4\nuse mete\nindex on mete-&gt;ME_mc_serl to mete\nindex on str&#40;mete-&gt;year&#41; + str&#40;mete-&gt;month&#41; to mete1\nindex on mete-&gt;me_date to mete2\n\na2_fields&#91;1&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_CU_ACCt&quot;\na2_fields&#91;2&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_CU_name&quot;\na2_fields&#91;3&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_CT_CTNA&quot;\na2_fields&#91;4&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_mc_type&quot;\na2_fields&#91;5&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_mc_modl&quot;\na2_fields&#91;6&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_mc_serl&quot;\na2_fields&#91;7&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_mc_brn&quot;\na2_fields&#91;8&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_mc_mere&quot;\na2_fields&#91;9&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_mc_dep&quot;\na2_fields&#91;10&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_mc_loc&quot;\na2_fields&#91;11&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_date&quot;\na2_fields&#91;12&#93;&#58;=&quot;&#40;4&#41;-&gt;Me_date&quot;\n\n\n\n\n\na2_vars&#91;1&#93;&#58;=oCombo1\na2_vars&#91;2&#93;&#58;=oCombo2\na2_vars&#91;3&#93;&#58;=oCombo3\na2_vars&#91;4&#93;&#58;=oCombo4\na2_vars&#91;5&#93;&#58;=oCombo5\na2_vars&#91;6&#93;&#58;=oCombo6\na2_vars&#91;7&#93;&#58;=oCombo7\na2_vars&#91;8&#93;&#58;=oCombo8\na2_vars&#91;9&#93;&#58;=oCombo9\na2_vars&#91;10&#93;&#58;=oCombo10\na2_vars&#91;11&#93;&#58;=ctod&#40;&quot;01/06/2006&quot;&#41;\na2_vars&#91;12&#93;&#58;=ctod&#40;&quot;30/06/2006&quot;&#41;\n\n? oCombo1\n? oCombo2\n? oCombo3\n\n For i &#58;= 1 to 12\n\n     IF Empty&#40;a2_Vars&#91;i&#93;&#41;     &amp;&amp; Don\'t process empty variables\n         LOOP\n     ENDIF\n\n     DO CASE            &amp;&amp; Create char value\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==11\n                 cValue&#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &gt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==12\n                 cValue &#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &lt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;N&quot;\n             cValue &#58;= \'STR&#40;\' + a2_Fields&#91;i&#93; + \'&#41; == &quot;\' + STR&#40;a2_vars&#91;i&#93;&#41; + \'&quot;\'       &amp;&amp; or\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;C&quot;\n             cValue &#58;=&quot;alltrim&#40;upper&#40;&quot;+ a2_Fields&#91;i&#93;+&quot;&#41;&#41;&quot; + \'==&quot;\' + alltrim&#40;upper&#40;a2_Vars&#91;i&#93;&#41;&#41; + \'&quot;\'\n     ENDCASE\n     IF Empty&#40;cFilter&#41;     &amp;&amp; this is the first element\n         cFilter &#58;=  cValue\n     ELSE\n         cFilter += &quot; &#46;AND&#46; &quot; + cValue\n     ENDIF\n NEXT\n\n    ? &#40;cFilter&#41;\n\n\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 1 &#41;, &quot;Value&quot;, &quot;branch&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 2 &#41;, &quot;Value&quot;, &quot;Type&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 3 &#41;, &quot;Value&quot;, &quot;Model&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 4 &#41;, &quot;Value&quot;, &quot;Serial&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 5 &#41;, &quot;Value&quot;, &quot;Opening&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 6 &#41;, &quot;Value&quot;, &quot;closing&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 7 &#41;, &quot;Value&quot;, &quot;prints&quot; &#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, 3, 8 &#41;, &quot;Value&quot;, &quot;waste&quot; &#41;\n\n\n   select 4\n   4-&gt;&#40;dbgotop&#40;&#41;&#41;\n   set filter to &amp;&#40;cFilter&#41;\n   4-&gt;&#40;dbgotop&#40;&#41;&#41;\n\nDO WHILE !&#40;4&#41;-&gt;&#40;EOF&#40;&#41;&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 1 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_brn&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 2 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_type&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 3 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_modl&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 4 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_serl&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 5 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;open_meter&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 6 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;cls_meter&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 7 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;prints&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 8 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;waste&#41; \nnLine&#58;=nLine+1 \n&#40;4&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41; \nENDDO\n\n\n\n   OleSetProperty&#40; oExcel, &quot;Visible&quot;, &#46;t&#46; &#41; \n\n\n\n\n    OLEInvoke&#40;oExcel,&quot;Quit&quot;&#41;\n\nRETURN NIL\n[/code:1xgg2jb9]','',0,'AIA=','1xgg2jb9',1,0,'',148,0,0),(16495,3740,6,2,0,'87.218.146.219',1154233164,1,0,1,1,1,1,'','','Busmatic,\n\nSi lo que necesitas es cambiar dinámicamente un diálogo de un folder por otro diálogo, no es necesario que uses pages.\n\nVamos a intentar contruirte un ejemplo de como hacerlo.','',0,'AIA=','1iseeytv',1,0,'',2,0,0),(16496,3742,4,51,0,'80.122.88.242',1154236619,1,0,1,1,1,0,'','','Hello Antonio,\nif I change some lines in window.prg how to  compile and link?\nThanks in advance\nOtto','',0,'AIA=','1h3eh7ta',1,0,'',51,0,0),(16497,3747,3,705,0,'61.2.5.238',1154241465,1,0,1,1,1,0,'','Introduction','Hello everybody\n\nI am new in this forum. Being a new commer I will expect all of you co-operation and support me in all respect. Hope I will learn more from this forum. \n\nThanks everybody\n\nArindam <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1eogi0o7',1,0,'',705,0,0),(16498,3748,3,705,0,'61.2.5.238',1154242064,1,0,1,1,1,0,'','Need Support','Hello everybody\n\nI am using FWH ver 2.7 and facing problem during setup the system. The details are as follows:\n\nA) Using LINKER Ver. 6.00.8447\n    LINK / Se:700 / NOE &lt;App Name&gt;,, .......\n    \n    1) Generating the following warning:\n        LINK : Warning LNK4044: Unrecognized option \"se:700 /noe\";  \n        ignored\n\n    2) I am not getting any Linker option \"/ Se:700\" and \"/ NOE\"\n\nB) While I am compiling Test.prg under \"FWH\\Makes\\MSmake\" for testing,\n    getting the following error codes:\n   \n    1) C:\\Fwh\\Makes\\MSmake&gt; go                            -&gt; Enter\n    2) C:\\VC98\\Bin\\nMake - ftest.mak                        -&gt; Auto Disp\n\n        Microsoft (R) Program Maintenance Utility   Version 6.00.8168.0\n        Copyright (C) Microsoft Corp 1988-1998. All rights reserved.\n\n        echo test.obj one.obj &gt; msvc.tmp\n        echo c:\\fwh\\lib\\FiveHM.lib c:\\fwh\\lib\\FiveHCM.lib &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\rtl.lib      &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\vm.lib       &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\gtgui.lib    &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\lang.lib     &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\macro.lib    &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\rdd.lib      &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\dbfntx.lib   &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\dbfcdx.lib   &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\dbffpt.lib   &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\hbsix.lib    &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\debug.lib    &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\common.lib   &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\pp.lib       &gt;&gt; msvc.tmp\n        echo c:\\harbour\\lib\\codepage.lib &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\kernel32.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\user32.lib    &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\gdi32.lib     &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\winspool.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\comctl32.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\comdlg32.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\advapi32.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\shell32.lib   &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\ole32.lib     &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\oleaut32.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\uuid.lib      &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\odbc32.lib    &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\odbccp32.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\iphlpapi.lib  &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\mpr.lib       &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\version.lib   &gt;&gt; msvc.tmp\n        echo c:\\vc98\\lib\\wsock32.lib   &gt;&gt; msvc.tmp\n        \n        IF EXIST test.res echo test.res &gt;&gt; msvc.tmp\n        SET LIB=c:\\vc98\\lib\n       \n        c:\\vc98\\bin\\link@msvc.tmp /nologo /subsystem:windows /\n        force:multiple &gt; link.log\n       \n        NMAKE : fatal error U1077: \'c:\\vc98\\bin\\link\' : return code \'0x2\' \n        Stop.\n\n   **** Prior to generating the above error code, the system creating the\n           necessary .OBJ, .C, .RES  and .APS files\n\n   **** The Link.log file show as follows:\n\n        Microsoft (R) Segmented Executable Linker  Version 5.60.339 Dec\n        5 1994\n        Copyright (C) Microsoft Corp 1984-1993.  All rights reserved.\n\n        Object Modules [.obj]: test.obj one.obj \n        Run File [test.exe]: c:\\fwh\\lib\\FiveHM.lib c:\\fwh\\lib\\FiveHCM.lib \n        List File [nul.map]: c:\\harbour\\lib\\rtl.lib \n        Libraries [.lib]: c:\\harbour\\lib\\vm.lib \n        Definitions File [nul.def]: c:\\harbour\\lib\\gtgui.lib \n        LINK : fatal error L1080: cannot open list file\n\nC) While compliling phone.prg [with out any changes] under samples\n     folder with Buildxm.bat after necessary modification, generating the \n     following:\n\n    Compiling...\n    xHarbour Compiler build 0.99.61 (SimpLex)\n    Copyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour\">http://www.harbour</a><!-- m -->\n    -project.org/\n    Compiling \'phone.prg\' and generating preprocessed output to \n    \'phone.ppo\'...\n    Lines 294, Functions/Procedures 9\n    Generating C source output to \'phone.c\'...\n    Done.\n    Microsoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8804\n    for 80x86\n    Copyright (C) Microsoft Corp 1984-1998. All rights reserved.\n\n    phone.c\n\n    Microsoft (R) Segmented Executable Linker  Version 5.60.339 Dec\n    5 1994\n    Copyright (C) Microsoft Corp 1984-1993.  All rights reserved.\n\n    Object Modules [.obj]: phone.obj\n    Run File [phone.exe]: ..\\lib\\Fivehmx.lib ..\\lib\\FiveHCM.lib\n    List File [nul.map]: c:\\harbour\\lib\\rtl.lib\n    Libraries [.lib]: c:\\harbour\\lib\\vm.lib\n    Definitions File [nul.def]: c:\\harbour\\lib\\gtgui.lib\n    c:\\harbour\\lib\\gtgui.lib(1) : fatal error L1035: syntax error in module\n   -definiti\n    on file\n    * There are errors\n\n **** Please note here that I am using xHarbour for windows [March 06]\n         and OS is Windows XP\n\nKindly help me to over come the errors.\n\nSinciarly\nArindam\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'','2zx1u51a',1,0,'',705,0,0),(16499,3742,4,6,0,'82.61.68.80',1154261185,1,0,1,1,1,1,'','','The easiest way is to compile it as it were a PRG of your application.\n\nEMG','',0,'','g43fopco',1,0,'',6,0,0),(16500,3749,3,6,0,'82.61.68.80',1154262918,1,0,1,1,1,1,'','FWH and latest Harbour from CVS','FWH doesn\'t work with latest Harbour from CVS due to PCODE version change but you will only need to recompile all FWH PRGs to make it working again.\n\nEMG','',0,'','24gv5dwr',1,0,'',6,0,0),(16501,3750,6,569,0,'200.93.48.115',1154271543,1,0,1,1,1,0,'','ayuda para seek o search','Amigos Saludos a todos:\nDebido a la necesidad personal y de otros colegas del foro y aun mas a la \nsugerencia del Sr. Antonio, me atrevi a intentar crear una funcion para hacer\nunas busquedas rapidas en todos los campos de una base de datos o tablas lo \ncual creo haberlo conseguido, mas lo que me ha resultado imposible es poder \ncalcular exactamente el numero de registro donde ocurre la coincidencia.\nDejo ha los demas colegas el reto a colaborar en terminar lo que yo no pude.\nPruebenla con tablas muy grandes y se sorprenderan al igual que yo, de la\nrapidez de la busqueda; al encontrar la solucion por favor envienmela.\nLa idea de esta rutina es complementar un \"SEEK\", al no encontrar resultados\npues simple y rapidamente traer registros parecidos que contengan esta palabra\nmotivo del fallido \"SEEK\".\n\nAtentatamente RODOLFO SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->\n\n* ---------------------\nFUNCTION MAIN(nmbbd,cBuscar)\n* nmbbd= es el nombre de la tabla *.dbf donde se efectuara la busqueda\n* cBuscar= es la palaba o strind a buscar en todos los campos de la *.dbf\n* ---------------------\nLOCAL nfpos     := 0, nDpos := 0\nLOCAL g_recsize, g_header, g_lastrec, g_cdata, g_offset, G_CTDOR := 0\nLOCAL a_data    := {}\nLOCAL g_handle, nheader, dbfheader, cfilename :=nmbbd\ng_handle := FOPEN( cfilename )\ng_recsize := BIN2I( FILESTR( cFileName, 8, 10 ) )           //tama¤o del registro de la DBF\ng_header := BIN2I( FILESTR( cFileName, 2, 8 ) )   //tama¤o del header de la DBF\ng_lastrec := BIN2L( FILESTR( cFileName, 2, 4 ) )  // numero de registros en la DBF\n* lee todo el header con el tama¤o calculado\nDBFHeader := FILESTR( cFileName, g_header, 10 )   //contenido del header de la DBF\nDO WHILE .NOT. feof( g_handle )\n  g_cdata := FREADSTR( g_handle, g_recsize * 10 )\n  nfpos := g_ftell( g_handle )          // posicion del pointer en el archivo\n  g_offset := AT(cBuscar, g_cdata )\n  IF g_offset &gt; 0\n    * aqui deberia calcular el numero de registro RECNO() Y agruparlos\n    * en una matriz para al final devolver la matriz al programa llamante\n    * aadd(a_data, int((g_lastrec - (g_offset-g_header)) / g_offset)+1)\n  ENDIF \nENDDO \nFCLOSE( g_handle )\nRETURN(a_data)\n* ---------------------\nFUNCTION fEOF( nHandle )\n* ---------------------\nLOCAL nCurrentPos, nEOF\nnCurrentPos := FSEEK( nHandle, 0, 1 )   //busca desde la posicion actual\nnEOF := FSEEK( nHandle, 0, 2 )          //busca desde el fin de archivo\nFSEEK( nHandle, nCurrentPos, 0 )        // busca desde el inicio de archivo\nRETURN nEOF &lt;= nCurrentPos\n* ---------------------\nFUNCTION G_FTell( nFileHandle )\n* ---------------------\nRETURN ( FSEEK( nFileHandle, 0, 1 ) )   // devuelve la posicion actual\n* ---------------------\n* EOF: PRUEBA.PRG','',0,'','39tsnz8d',1,0,'',569,0,0),(16502,3742,4,51,0,'80.122.88.242',1154285537,1,0,1,1,1,0,'','','Hello Enrico,\ncould you post an example of buildce.bat which include also windows.prg.\n\nThanks in advance\nOtto','',0,'','22ros1i9',1,0,'',51,0,0),(16503,3742,4,6,0,'82.61.68.80',1154286002,1,0,1,1,1,1,'','','I don\'t have one at hand but basically you have to add\n\n[code:2ahaze1x]%hdir%\\bin\\harbour window&#46;prg /n /i&#46;&#46;\\include;%hdir%\\include /p %2 %3 &gt; clip&#46;log[/code:2ahaze1x]\n\nand modify\n\n[code:2ahaze1x]%vcdir%\\bin\\clarm -TP -W3 -c /DARM /DUNICODE /I%hdir%\\include /I&#46;&#46;\\include %1&#46;c window&#46;c[/code:2ahaze1x]\n\nor something very similar.\n\nEMG','',0,'AIA=','2ahaze1x',1,0,'',6,0,0),(16504,3749,3,2,0,'87.218.146.136',1154288975,1,0,1,1,1,1,'','','Enrico,\n\nYes, we may publish new builds in August, once Harbour is totally stable again.','',0,'AIA=','1nklgwl3',1,0,'',2,0,0),(16505,3747,3,2,0,'87.218.146.136',1154289017,1,0,1,1,1,1,'','','Arindam,\n\nWelcome aboard <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','x32btoko',1,0,'',2,0,0),(16506,3748,3,2,0,'87.218.146.136',1154289180,1,0,1,1,1,1,'','','Arindam,\n\nIt looks as you are using a too old Microsoft C compiler. These are the versions that we use:\n\nMicrosoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86\nCopyright (C) Microsoft Corp 1984-1998. All rights reserved.\n\nMicrosoft (R) Incremental Linker Version 6.00.8168\nCopyright (C) Microsoft Corp 1992-1998. All rights reserved.','',0,'AIA=','1vbldzoe',1,0,'',2,0,0),(16507,3732,6,396,0,'201.248.151.243',1154291754,1,0,1,1,1,1,'','','analizando tu idea, termine probando y creo que con msgwait() te ayudaria, prueba ver, muestra el mensaje y no obliga al usuario usar ENTER, espero te ayude, es mas cambie mis mensajes a ese estylo, saludos desde Venezuela...','',0,'AIA=','2l47t06k',1,0,'',396,0,0),(16508,3750,6,396,0,'201.248.151.243',1154294525,1,0,1,1,1,1,'','','Hola SILDATA, espero me recuerdes, JOSE LUIS, voy probar esto a ver si te ayudo, pero creo que si usas 1 contador cada ves que hay concidencia y el recno(), podrias saber en que registro se realizo la concidencia, no se si es lo que quieres, escribe a mi privado...saludos desde Caracas-Venezuela.estemos en contacto, te perdistes...','',0,'AIA=','1xbf48xr',1,0,'',396,0,0),(16509,3120,7,274,0,'201.1.51.229',1154296969,1,0,1,1,1,0,'','','Antonio\n\nvocê tem previsão de quando TOOLTIPS estarão disponíveis?\n\nJá terminamos o aplicativo que está pronto para distribuição e os tooltips são fundamentais.\n\n[]\'s\n\nRogerio','',0,'','2r682yxf',1,0,'',274,0,0),(16510,3751,6,396,0,'201.248.151.243',1154298411,1,0,1,1,1,1,'','Toolti Ballon bajo FWH 2.4','Quisiera saber como colocar o que debo usar para que mis TOOLTIPS se veann stylo ballon bajo la version FWH 2.4 que es la que tengo.? desde ya gracias, lei que debis cambiar una linea en windows.prg, pero no encontre esa linea en la sesion de TOOLTIP. Saludos.','',0,'','3vbyyfes',1,0,'',396,0,0),(16511,3739,1,699,0,'59.125.100.114',1154303589,1,0,1,1,1,1,'','','Dear James,\n\nThe following sample may be helpful to debug.\n\nstatic function AddField( oLbx, oGet, oBtnAdd, oBtnEdit,;\n                          cName, cType, nLen, nDec, lEditing )\n\nif Empty( cName )\n      MsgInfo( \"I need a field name\", \"Sorry\" )\nelse\n      if ! lEditing\n           oLbx:Add( xPadR( cName, 100 ) + Chr( 9 ) + cType + ;\n                   xPadL( Str( nLen, 3 ), 50 ) + xPadL( Str( nDec, 1 ), 20 ),;\n                   oLbx:GetPos() )\n			else\n           oLbx:Modify( xPadR( cName, 100 ) + Chr( 9 ) + cType + ;\n                      xPadL( Str( nLen, 3 ), 50 ) + xPadL( Str( nDec, 1 ), 20 ) )\n         oBtnAdd:SetText( \"&amp;Add\" )\n         oBtnEdit:Enable()\n         lEditing = .f.\n      endif\n      cName = Space( 10 )\n      oGet:Refresh()\n      oGet:SetFocus( .t. )\n   endif\n\nreturn nil','',0,'','2nzyb57k',1,0,'',699,0,0),(16512,3752,3,190,0,'202.65.134.27',1154315617,1,0,1,1,1,0,'','::Refresh() needed in TMultiGet\'s ::GotFocus(),::LostFocus()','Mr.Antonio \n\nThe GotFocus() functionality for TMultiGet class was not working properly \nuntil I have added a ::Refresh() clause in GotFocus() and LostFocus() \nmethods in TMGet.prg.  After adding ::Refresh() clasuse only the \nexpected functionality is achived.\n\nI am using FWH 2.7 July Build &amp; xHarbour 0.99.61.\n\nThis is for your information\n\n- Ramesh Babu P\n\n// Testing a GET\n\n#include \"FiveWin.ch\"\n\n//------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg\n   local dDay := Date(), cNotes\n   local oGet, oGet1\n\n   SET DATE BRIT\n   SET CENT ON\n\n   DEFINE DIALOG oDlg TITLE \"Testing GotFocus() Clause of TMultiGet Class\"\n\n   @ 0.50, 2 SAY \"Date:\" OF oDlg\n   @ 0.50, 6 GET oGet VAR dDay OF oDlg SIZE 23, 10 SPINNER ;\n             VALID ! Empty( dDay )                         ;\n             COLORS nRGB( 0, 0, 0 ), nRGB( 224, 224, 249 )\n\n   @ 2.00, 2 SAY \"Notes:\" OF oDlg\n   @ 2.00, 6 GET oGet1 VAR cNotes OF oDlg SIZE 100, 25 MEMO;\n             COLORS nRGB( 0, 0, 0 ), nRGB( 224, 224, 249 )\n\n   @ 3.25, 7 BUTTON \"&amp;Ok\" OF oDlg SIZE 30, 12 ACTION oDlg:End()\n   @ 3.25,16 BUTTON \"&amp;Cancel\" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL\n\n   oGet:bGotFocus   := { || oGet:SetColor(nRGB(255,255,255), nRGB(64,0,255)) }\n   oGet1:bGotFocus  := { || oGet1:SetColor(nRGB(255,255,255), nRGB(64,0,255)), oGet1:Refresh() } // For demonstration I have added oGet1:Refresh() here\n   oGet1:bLostFocus := { || oGet1:SetColor(nRGB(0,0,0), nRGB(224,224,249)), oGet1:Refresh() } // For demonstration I have added oGet1:Refresh() here\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nRETURN nil\n\n//------------------------------------------------------------------------//\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn\n\n//------------------------------------------------------------------------//\n\n#ifdef __XPP__\n   #define GetNew _GetNew\n#endif\n\n#ifndef __CLIPPER__\n\nCLASS TClipGet FROM Get\n\n   METHOD Display() VIRTUAL\n\nENDCLASS\n\n//---------------------------------------------------------------------------//\n\nfunction GetNew( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )\n\nreturn TClipGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )\n\n//---------------------------------------------------------------------------//\n\n#endif','',0,'','2nsk19rm',1,0,'',190,0,0),(16513,3720,2,501,0,'200.32.103.152',1154319784,1,0,1,1,1,0,'','Tema resuelto','He leido en detalle qftp y me di con la sorpresa de que algunos servidores Windows informan en otra posicion el tamaño del archivo a descargar (usando socket de un ejemplo que baje por ahi), cambiando esa busqueda del valor anda de primera.\n\nSalu2.\nQftp esta muy buena, quizas hay una version actualizada seguire buscando pero por lo menos ya me funcione de primera el Ftp.\n\nAtte. Carlos Ortiz.','',0,'','3rfnv9bg',1,0,'',501,0,0),(16514,3753,20,29,0,'88.149.160.175',1154328243,1,0,1,1,1,0,'','Generare un errore GPF','Salve,\nvorrei sapere se esiste una funzione per generare un errore GPF.\n\nGrazie\n\nMarco Turco','',0,'','1m7yby70',1,0,'',29,0,0),(16515,3752,3,2,0,'87.218.146.136',1154328566,1,0,1,1,1,1,'','','Ramesh,\n\nYes, it is needed as you are changing the colors so you need to request a repaint of the control.','',0,'','r515mxxb',1,0,'',2,0,0),(16516,3720,2,2,0,'87.218.146.136',1154328697,1,0,1,1,1,1,'','','Carlos,\n\nNosotros no hemos probado mediator, pero por lo que tenemos entendido, funciona bien.','',0,'','s6ywl9pb',1,0,'',2,0,0),(16517,3736,2,2,0,'87.218.146.136',1154328770,1,0,1,1,1,1,'','','Manu,\n\nTal como lo explica el API de Windows:\n\nThe WM_GETDLGCODE message is sent to the dialog box procedure associated with a control. Normally, Windows handles all arrow-key and TAB-key input to the control. By responding to the WM_GETDLGCODE message, an application can take control of a particular type of input and process the input itself. \n\nWM_GETDLGCODE  \n \n\nParameters\n\nThis message has no parameters. \n\nReturn Values\n\nThe return value is one or more of the following values, indicating which type of input the application processes. \n\nValue	Meaning\nDLGC_BUTTON	Button.\nDLGC_DEFPUSHBUTTON	Default push button.\nDLGC_HASSETSEL	EM_SETSEL messages.\nDLGC_RADIOBUTTON	Radio button.\nDLGC_STATIC	Static control.\nDLGC_UNDEFPUSHBUTTON	Nondefault push button.\nDLGC_WANTALLKEYS	All keyboard input.\nDLGC_WANTARROWS	Direction keys.\nDLGC_WANTCHARS	WM_CHAR messages.\nDLGC_WANTMESSAGE	All keyboard input (the application passes this message on to a control).\nDLGC_WANTTAB	TAB key.\n \n\nDefault Action\n\nThe DefWindowProc function returns zero. \n\nRemarks\n\nAlthough the DefWindowProc function always returns zero in response to the WM_GETDLGCODE message, the window procedure for the predefined control classes return a code appropriate for each class. \nThe WM_GETDLGCODE message and the returned values are useful only with user-defined dialog box controls or standard controls modified by subclassing. \n\nSee Also\n\nDefWindowProc, EM_SETSEL, WM_CHAR','',0,'','3sr7qb5z',1,0,'',2,0,0),(16518,3751,6,2,0,'87.218.146.136',1154328921,1,0,1,1,1,1,'','','Jose Luis,\n\nBusca esta línea en window.prg:\n\nhWnd = CreateToolTip( Self:hWnd, cToolTip ) // , .t. ) for ballon tooltips !','',0,'','3f1rq19e',1,0,'',2,0,0),(16519,3754,3,29,0,'88.149.160.175',1154333695,1,0,1,1,1,0,'','Function to generate a GPF error at runtime','Hi,\nIs there any function to generate a GPF error in xHarbour/FWH ?\n\nI already took a look at xHarbour XDN and I have found the forcegpf() function but it is provided into an \"application.prg\" file that I have not found into the xHarbour source.\n\nThanks in advance.\n\nBest Regards,\n\nMarco Turco','',0,'','1htyls5z',1,0,'',29,0,0),(16520,3736,2,375,0,'84.122.113.194',1154343060,1,0,1,1,1,1,'','','Ok Antonio, más o menos ya me he enterado\n\nSaludos','',0,'','3kxultc9',1,0,'',375,0,0),(16521,3750,6,375,0,'84.122.113.194',1154345446,1,0,1,1,1,1,'','','No se muy bien si me he enterado. ¿Deseas saber un valor similar a un RecNo()?\n\nPor lo que veo, no estoy muy acostumbrado a los ficheros de bajo nivel, lees los registros de 10 en 10, y dentro de ese grupo haces un AT. Con lo cual, conoces la posición dentro del grupo ( g_offset ). También sabes cuanto mide cada registro. ( g_recsize ) y donde está el puntero ( nfpos ).\n\nNUMREG := INT(g_offset / g_recsize)+1 debe de decirte en qué registro, dentro del grupo, está la coincidencia. Eso si el primer elemento del grupo es un 0. Si es un 1 sería: INT(g_offset-1) / g_recsize)+1. Es cuestión de porbar.\n\nNUMGROUP := INT((nfpos-g_header) / (g_recsize*10))+1 tendría que decirte en qué grupo se realizó la búsqueda AT. Como antes Si nfpos no empieza por 0, sino por 1 sería: INT((nfpos-g_header-1) / (g_recsize*10))+1. Claro que lo que interesa es que el primer grupo sea conocido como el número 0, para que al sumarle NUMREG nos dé el RecNo() correcto. Por lo que hay que quitar el \'+1\' final:\n\nNUMGROUP := INT((nfpos-g_header) / (g_recsize*10)) o NUMGROUP= := INT((nfpos-g_header-1) / (g_recsize*10))\n\nFinalmente RECNO := (NUMGROUP*10)+NUMREG.\n\nUna coincidencia en grupo 0,  tramo 3 dará RECNO = 3.  (tramo 3º del primer grupo = 3º registro).\nUna coincidencia en grupo 1, tramo 5 dará RECNO = 15 (tramo 5º del segundo grupo = 15º registro).\n...\nUna coincidencia en grupo 14, tramo 6 dará RECNO = 146 (tramo 6º del 15avo grupo = 146º registro).\n...\nEtc.\n\nDebería funcionar. Es cuestión de probar.\n\nUn saludo a todos.','',0,'','24qj8suz',1,0,'',375,0,0),(16522,3754,3,2,0,'87.218.146.136',1154345912,1,0,1,1,1,1,'','','Marco,\n\nYou may review samples\\TestGpf.prg','',0,'','336x3lvx',1,0,'',2,0,0),(16523,3755,6,439,0,'190.0.128.252',1154348993,1,0,1,1,1,1,'','Block bLostFocus() de Windows o Dialog','El código que sigue, debería poner la ventana siempre visible y no debería perder foco nunca a menos que se cerrara.\nSi bien queda siempre visible, el block bLostFocus que debería volver el foco a la ventana no lo hace, probé con GotFocus y SetFocus y es lo mismo, parece que ignora el block.\nAlguien me puede ayudar? aquí va el código:\n\n#define SWP_NOSIZE              0x0001\n#define SWP_NOMOVE              0x0002\n#define SWP_NOACTIVATE          0x0010\n#define SWP_SHOWWINDOW          0x0040\n#define HWND_TOPMOST            -1\n//\n#include \"FiveWin.ch\"\n\nFUNCTION MAIN\n   LOCAL oDlg, oGet, oGet2, oBtn, Capt:=Space(10), Capt2:=\" \"\n\n   DEFINE DIALOG oDlg RESOURCE \"Dialogo\" Title \"Captura\"\n      REDEFINE GET oGet VAR Capt ID 101 OF oDlg;\n         PICTURE \"!!!!!!!!!!\" VALID MsgInfo(Capt)\n      oGet:bLostFocus:={||(oGet:SetText:=\"\", oGet:SetFocus() )}\n   ACTIVATE DIALOG oDlg CENTER ON INIT ( WindowTopMost( oDlg ), ;\n      oDlg:bLostFocus := { || oDlg:SetFocus() } )   //esta linea\n\nRETURN NIL\n\nFUNCTION WindowTopMost( oWnd ) \n   SetWindowPos( oWnd:hWnd, HWND_TOPMOST,;\n      0, 0, 0, 0, ;\n      SWP_NOMOVE     |;\n      SWP_NOSIZE     |;\n      SWP_SHOWWINDOW |;\n      SWP_NOACTIVATE )\nRETURN NIL','',0,'','u3huun1j',1,0,'',439,0,0),(16524,3756,3,439,0,'190.0.128.252',1154349176,1,0,1,1,1,1,'','bLostFocus in a Dialog','The following code must put the window on top always and never loose focus.\nWindows is always on top but it looses focus, it seems to me that bLostFocus is not working, I prove with GotFocus and Set Focus and is the same thing.\n\nCould somebody helpme please, becouse I cant find a solution.\n\nHere is the code:\n\n#define SWP_NOSIZE 0x0001 \n#define SWP_NOMOVE 0x0002 \n#define SWP_NOACTIVATE 0x0010 \n#define SWP_SHOWWINDOW 0x0040 \n#define HWND_TOPMOST -1 \n// \n#include \"FiveWin.ch\" \n\nFUNCTION MAIN \nLOCAL oDlg, oGet, oGet2, oBtn, Capt:=Space(10), Capt2:=\" \" \n\nDEFINE DIALOG oDlg RESOURCE \"Dialogo\" Title \"Captura\" \nREDEFINE GET oGet VAR Capt ID 101 OF oDlg; \nPICTURE \"!!!!!!!!!!\" VALID MsgInfo(Capt) \noGet:bLostFocus:={||(oGet:SetText:=\"\", oGet:SetFocus() )} \nACTIVATE DIALOG oDlg CENTER ON INIT ( WindowTopMost( oDlg ), ; \noDlg:bLostFocus := { || oDlg:SetFocus() } ) //esta linea \n\nRETURN NIL \n\nFUNCTION WindowTopMost( oWnd ) \nSetWindowPos( oWnd:hWnd, HWND_TOPMOST,; \n0, 0, 0, 0, ; \nSWP_NOMOVE |; \nSWP_NOSIZE |; \nSWP_SHOWWINDOW |; \nSWP_NOACTIVATE ) \nRETURN NIL','',0,'','19wbmur7',1,0,'',439,0,0),(16525,3757,6,409,0,'201.246.66.31',1154351389,1,0,1,1,1,0,'','LA FUNCION  PrnStatus()','ESTA LISTA PARA DETECTAR EL ESTADO DE LAS IMPRESORAS CONECTADAS AL LOS PUESTOS LPTx\nSaludos','',0,'','ew2ivga8',1,0,'',409,0,0),(16526,3758,3,486,0,'200.184.85.3',1154355029,1,0,1,1,1,0,'','choose printer','Hi,\n\nDoes option exist in the fwh to choose the printer that wants to print?\n\nClemerson','',0,'','6s5aew39',1,0,'',486,0,0),(16527,3759,6,215,0,'201.137.125.33',1154355807,1,0,1,1,1,0,'','No es skin pero se ve bonito','Esto es lo que salió después de un rato de inspiración.\n\n<!-- m --><a class=\"postlink\" href=\"http://img180.imageshack.us/my.php?image=capturarz3.jpg\">http://img180.imageshack.us/my.php?image=capturarz3.jpg</a><!-- m -->\n\n\n\n\nLeyendo los mensajes encontré este\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3516\">http://fivetechsoft.com/forums/viewtopic.php?t=3516</a><!-- m -->\n\nEs un look muy bueno. \n¿Es posible usar un tema de XP para que el programa lo tome siempre?\nLo que quiero decir es que no sea necesario decirle a windows que use un tema... sino que el programa fivewin tome uno y lo use sin importar el tema que este usando windows.\n\nLa idea correcta de todo esto es skin para programas fivewin.\n<!-- m --><a class=\"postlink\" href=\"http://www.softonic.com/seccion/433/Temas\">http://www.softonic.com/seccion/433/Temas</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://damek-ultrablue.softonic.com/ie/37114\">http://damek-ultrablue.softonic.com/ie/37114</a><!-- m -->\n\n\nSaludos\nFernando','',0,'','3fuwvxcj',1,1154491787,'',215,1,0),(16528,3754,3,29,0,'88.149.160.175',1154356189,1,0,1,1,1,0,'','','Yes. Runs fine. Thanks Antonio.\n\nBest Regards,\n\nMarco','',0,'','2fg9zz6v',1,0,'',29,0,0),(16529,3733,5,355,0,'213.23.0.82',1154356384,1,0,1,1,1,0,'','Five++ / Alaska','Hallo ! \n\nI use Alaska 1.82.294 Mar 24 2003 and Five++ 24\n\n\nwhatsnew.txt \n FW/FWH/FW++ Build June 1 2003\n =============================\n\n * Fixed: FWH - Classes you may derive from TDialog work ok now.','',0,'','2gos1cjs',1,0,'',355,0,0),(16530,3758,3,6,0,'82.61.144.27',1154357841,1,0,1,1,1,1,'','Re: choose printer','Yes, use the TO clause of the PRINT command.\n\nEMG','',0,'','3mu9tozx',1,0,'',6,0,0),(16531,3673,7,215,0,'201.137.125.33',1154361379,1,0,1,1,1,0,'','bien','Entonces... mejor no arriesgarse. Que tenga windows mobile 5 como requisito.\n\nMarcas y modelos hay en gran cantidad. Por el momento voy a probar un par de samples en algunos modelos si funciona, la empresa va a comprar 15 de estos aparatos.\n\nGracias','',0,'','1vhf4y9y',1,0,'',215,0,0),(16532,3760,3,148,0,'196.205.185.26',1154361668,1,0,1,1,1,0,'','user to see execution running','What msg function should be used to run showing variable counter for the user like the recno()/reccount() while do while !eof().\nEx:.\n\nplease wait..........processing record 35/2232.','',0,'','t2ef3q53',1,0,'',148,0,0),(16533,3754,3,190,0,'202.65.134.45',1154363215,1,0,1,1,1,0,'','','Hi\n\nOut of academic interest I want to know that what is the need to force generation of GPF Error in an application ?\n\nThanks in advance\n\n- Ramesh Babu P','',0,'','1bx1whm9',1,0,'',190,0,0),(16534,3733,5,2,0,'87.218.146.136',1154368547,1,0,1,1,1,1,'','','Carsten, \n\nCould you provide us a sample to reproduce the error ? Thanks','',0,'','1rwhfoto',1,0,'',2,0,0),(16535,3754,3,2,0,'87.218.146.136',1154368639,1,0,1,1,1,1,'','','Ramesh,\n\nBasically is to check if the application properly controls it when it happens.\n\nThe Harbour/xHarbour builds that we provide have GPF control, so you can see at least the callslist stack to help you locate where the GPF comes from.','',0,'','2k219kai',1,0,'',2,0,0),(16536,3759,6,2,0,'87.218.146.136',1154369223,1,0,1,1,1,1,'','','Fernando,\n\nEn principio no se puede hacer. Es decir, se usa un único tema y el mismo, para todas las aplicaciones de XP.','',0,'','3p6qtsu9',1,0,'',2,0,0),(16537,3751,6,396,0,'201.210.51.90',1154371935,1,0,1,1,1,1,'','','Disculpen mi ignorancia, pero he buscado esa linea Antonio en mi windows.prg y no esta, recuerda la version que tengo es FWH 2.4, revise todo el tema de TOOLTIP y busque la palabra ballon y no se encontro, nose si eso es a partir de version mas reciente o estoy buscando donde no es, lo hago en WINDOWS.PRG del directorio SOURCE, gracias.','',0,'','34ks8icx',1,0,'',396,0,0),(16538,3737,6,396,0,'201.210.51.90',1154372372,1,0,1,1,1,1,'','','buscando encontre una clase de sButton y hace algo a lo que deseas, es mas en 1 ejemplo esta el modelo de un BUS con chofer y todo  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  , si deseas te la envio a tu privado, talves te ayude o de una idea a lo que quieres, creo que de de Oskar.','',0,'','k8pwv3kp',1,0,'',396,0,0),(16539,3761,6,61,0,'201.217.162.49',1154372404,1,0,1,1,1,0,'','2 radio','Amigos:\n\nTengo 2 Radio desde recursos:\nLOCAL oRadio1,oRadio2,nRadio1:=1,nRadio2:=2\n\nDEFINE RADIO oRadio1 VAR nRadio1 ID 120,13,140 of......\n\nDEFINE RADIO oRadio2 VAR nRadio2 ID 150,160,170 OF...\n\nAl inicio del dialogo se muestran bien, pero cuando\ncambio algun o de ellos el otro radio se desmarca.\nSi doy click en el radio1 el radio 2 se desmarca y si doy \nclick en el radio 2 el radio1 se desmarca.\n\nAlguna sugerencia o a alguien le ha pasado?\n\nSaludos y gracias.\n\nRuben Fernandez.\nFWH 2.7 Julio, Harbour y Borland.','',0,'','2uat6yrz',1,0,'',61,0,0),(16541,3610,3,335,0,'68.193.88.53',1154374154,1,0,1,1,1,0,'','','Excellent! Thanks, James.  - Roger','',0,'','3n254zmo',1,0,'',335,0,0),(16542,3760,3,141,0,'200.40.217.182',1154374271,1,0,1,1,1,1,'','','Hi,\n\nI use MSGRUN()\n\nYou can see how to use this at SAMPLES\\TESTMSG.PRG\n\nRegards,','',0,'','1rxbzfrq',1,0,'',141,0,0),(16543,3761,6,396,0,'201.210.51.90',1154374578,1,0,1,1,1,1,'','','debes en los recursos agrugar cada juego de radio, es decir marcas los botones del radio 1 y en las propiedades le das agrupar, luego haces lo mismo con los del raio 2, espero te sirva, asi lo resolvi...','',0,'','1ffzgm5x',1,0,'',396,0,0),(16544,3762,3,267,0,'200.208.238.2',1154375050,1,0,1,1,1,1,'','trying to use sockcli.prg','I am trying to use sockcli.prg. I connect in the server, but I do not obtain to send nothing! If active log I see the following one:\n\n07/31/06 16:43:02: Connect	Socket handle:      1928	\n07/31/06 16:43:02: Write	Socket handle:      1928	\n07/31/06 16:43:26: IMP01|0|0001|	\n07/31/06 16:44:32: IMP01|0|0001|\n\n\n#include \"FiveWin.ch\"\n\nstatic oWnd, oSocket\n\nfunction Main()\n\n   local oBar\n\n   DEFINE WINDOW oWnd TITLE \"Client socket\"\n\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n\n   DEFINE BUTTON OF oBar ACTION Client() TOOLTIP \"Connect\"\n\n   DEFINE BUTTON OF oBar ;\n      ACTION oSocket:SendData( \"IMP01|0|1001|\" ) ;\n      TOOLTIP \"Send data\"\n\n   DEFINE BUTTON OF oBar ;\n      ACTION SendFile() TOOLTIP \"Send file\"\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nFUNCTION Client()\nLOCAL n\n\n   oSocket = TSocket():New( 1853 )\n   oSocket:lDebug   := .T.\n   oSocket:cLogFile := \"LOG.TXT\"\n\n   oSocket:bRead    = { | oSocket | MsgInfo( oSocket:GetData() ) }\n\n   // Never use a MsgInfo() here because it hangs Windows!!!\n   oSocket:bConnect = { || oWnd:SetText( \"Connected!\" ) }\n\n   oSocket:bClose   = { || MsgInfo( \"Server has closed!\" ) }\n\n   oSocket:Connect( \"10.10.1.1\" ) // use the server IP address here\n\n\nRETURN nil\n\nFUNCTION SendFile()\nLOCAL uBuff\n\n   uBuff := oSocket:GetData()\n\nRETURN nil','',0,'','3i2dmhbr',1,0,'',267,0,0),(16545,3758,3,486,0,'200.184.85.3',1154375569,1,0,1,1,1,0,'','','EnricoMaria,\n\nlike this me yours to do. I wanted to do before the report the user to choose the printer that wants to print:\n\n[img:3axt6fd2]http&#58;//www&#46;mpc&#46;com&#46;br/sysfar/teste/choose&#46;jpg[/img:3axt6fd2]\n\n\nClemerson','',0,'CA==','3axt6fd2',1,0,'',486,0,0),(16546,3488,6,2,0,'87.218.146.131',1154375686,1,0,1,1,1,1,'','','Oscar,\n\nSólo tienes que cambiar esto en samples\\buildh.bat:\n\n%bcdir%\\bin\\bcc32 -M -c -P @b32.bc','',0,'CA==','15x2cvsa',1,0,'',2,0,0),(16547,3758,3,2,0,'87.218.146.131',1154375745,1,0,1,1,1,1,'','','Clemerson,\n\nPRINTER oPrn ... FROM USER','',0,'CA==','tq8ink9q',1,0,'',2,0,0),(16548,3758,3,486,0,'200.184.85.3',1154377003,1,0,1,1,1,0,'','','Antonio,\n\nhere he gave right:  \n   PRINT oPrn FROM USER NAME \"Relatório Fechamento...\" Preview\n  \nand in this example where would put FROM USER?\n\n     REPORT oRpt CAPTION \"Clientes\" TITLE  \"Cadastro de Clientes\" ;\n          HEADER \"Data: \" + DToC( Date() ) + \", Hora: \" + Time() ;\n          FOOTER \"Página: \" + Str( oRpt:nPage, 3 ) ;\n          PREVIEW\n     COLUMN TITLE \"Código\"                     DATA  clientes-&gt;Codigo,\" \",\" \"\n     COLUMN TITLE \"Nome\",\"Endereco\",\"Telefone\" DATA  clientes-&gt;Nome,clientes-&gt;Endereco,clientes-&gt;telefone\n     COLUMN TITLE \"Cidade\",\"Bairro\",\"Estado\"   DATA  clientes-&gt;Cidade,clientes-&gt;Bairro,clientes-&gt;Estado\n     END REPORT\n     ACTIVATE REPORT oRpt FOR SUBST(Clientes-&gt;Nome,1,1)&gt;=De .AND. SUBST(Clientes-&gt;Nome,1,1)&lt;=Ate .AND. EMPTY(clientes-&gt;Convenio)\n\nClemerson','',0,'CA==','uw1ng7vk',1,0,'',486,0,0),(16549,3758,3,6,0,'82.61.144.27',1154377374,1,0,1,1,1,1,'','','PRINT oPrn ... FROM USER\n\nREPORT oRpt ... TO DEVICE oPrn\n\nEMG','',0,'CA==','avwriudi',1,0,'',6,0,0),(16550,3758,3,486,0,'200.184.85.3',1154378047,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:qd6b3zjm]PRINT oPrn ... FROM USER\n\nREPORT oRpt ... TO DEVICE oPrn\n\nEMG[/quote:qd6b3zjm]\n\nhe didn\'t work:\n\n     REPORT oRpt CAPTION \"Clientes\" TITLE  \"Cadastro de Clientes\" ;\n          HEADER \"Data: \" + DToC( Date() ) + \", Hora: \" + Time() ;\n          FOOTER \"Página: \" + Str( oRpt:nPage, 3 ) ;\n          [color=red:qd6b3zjm]TO DEVICE oRpt ;[/color:qd6b3zjm]\n          PREVIEW\n.\n.\n.\n\nClemerson','',0,'gg==','qd6b3zjm',1,0,'',486,0,0),(16552,3763,2,235,0,'201.140.14.50',1154382982,1,0,1,1,1,0,'','alguien tendra un ejemplo...','de como usar la dll crpe y crpe32, para los reportes creados en crystal report, ya que encontre unos ejemplos, pero me dan errores.\n\nde antemano muchas gracias','',0,'gg==','3fzdx7q6',1,0,'',235,0,0),(16553,3735,6,661,0,'201.123.184.199',1154387724,1,0,1,1,1,0,'','','ahi va:\n\n   oConexionAdo := TOLEAUTO():New(\"adodb.connection\")\n   oComando     := TOLEAUTO():New(\"adodb.command\")\n   oConexionAdo:Open(\"Provider=Advantage.OLEDB.1;User ID=adssys;Data Source=\"+xrutab+\"dd.add;Persist Security Info=False;ServerType=\"+xservidor+\";LockMode=ADS_COMPATIBLE_LOCKING\")\n   oComando:ActiveConnection(oConexionAdo)\n \n  cQuery := \'SELECT \'+::campos+\' FROM \'+::base+\' ORDER BY \'+::orden\n   oComando:CommandText := cQuery\n   \n   oRecordSet := oComando:Execute()\n\n\nes todo: <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gg==','212x06tx',1,0,'',661,0,0),(16554,3698,2,661,0,'201.123.184.199',1154388537,1,0,1,1,1,0,'','','yo hago lo siguiente y funciona perfecto:\n\n      @ 175,45  BUTTON PROMPT \"&amp;Grabar\" OF oDlg SIZE 35, 10 PIXEL ACTION (grabar(),tab1:setoption(1),agets[1]:setfocus())\n\nsaludos','',0,'','2lilva6o',1,0,'',661,0,0),(16555,3737,6,665,0,'200.122.153.234',1154388824,1,0,1,1,1,0,'','Agradezco cualkier ayuda','joseluisysturiz\n\nGracias, claro me puedes enviar el asunto a\nMi correo <!-- e --><a href=\"mailto:ventas@busmatic.com\">ventas@busmatic.com</a><!-- e -->\nTE lo agardezco\n\nBusmatic','',0,'','vcdq9icj',1,0,'',665,0,0),(16556,3740,6,665,0,'200.122.153.234',1154389179,1,0,1,1,1,0,'','Gracias Antonio','Si antonio\n Si el cambio podria llamarse dinamico, pues  he provado de toda forma y e llamado a los brujos y sortilejios  y nada , es algo un poco estraño o particular  diria yo.\n\nGracias Antonio  ya todos, espero mana del cielo\n\nBusmatic\nThanks','',0,'','1x9ttxit',1,0,'',665,0,0),(16557,3737,6,665,0,'200.122.153.234',1154397192,1,0,1,1,1,0,'','Otra Pregunta acabando cartuchos acerca de los Pages','Continuando y molestando sera posible   destruir un refedine y volverle  invocar  mirando lo siguiente\n\nLocal oBot1 ,..\n\nDEFINE DIALOG oWnd RESOURCE \"MAIN\" ICON oMAINICON ;\n          TITLE \"Asunto tpages \"  \n\n REDEFINE PAGES oPags ID 110 OF oWnd ;\n DIALOGS \"DLG1\", \"DLG2\",\"DLG3\",\"DLG4\",\"DLG5\" \n oPags:SetOption(1)\n\n/*\n Cuerpo de prog..\n*/\n\nREDEFINE BUTTON oBot1 3 OF oWnd;\n           ACTION (oBronca())\n\nACTIVATE DIALOG oWnd center  \n\n\nReturn....\n\n\nFunction oBronca()\n///-&gt; aki borro el page\n\noPags:End() // desaparece totalmente  del dialogo ok\n\n** Ahora si hago el llamado del redefine  de nuevo no da error\n\n REDEFINE PAGES oPags ID 110 OF oWnd ;\n  DIALOGS \"DLG1\", \"DLG2\",\"DLG3\",\"DLG4\",\"DLG5\" \n  oPags:SetOption(1)\n\n REDEFINE  SAY ooSay_1   var oP:cNu1  ID 104  of oPags:aDialogs[ oP:SETOP ] ADJUST  \n          REDEFINE  SAY ooSay_5   var oP:cNu5  ID 108  of oPags:aDialogs[ oP:SETOP ] ADJUST  \n  	      REDEFINE  SAY ooSay_9   var oP:cNu9  ID 112  of oPags:aDialogs[ oP:SETOP ] ADJUST  \n\nSyserfresh()\noPags:refresh()\n\n // No hace nada , no reaprece  el Pages. \nNo ; ni error, nada \n pero creo qeu podria omitir alguna cosilla  a menos que no se posible este tipo de redefinicion y mostrarle de nuevo\n\n\nReturn..\n \n\n\nreturn..','',0,'','2o3t7pq2',1,0,'',665,0,0),(16558,3761,6,121,0,'201.154.77.4',1154399814,1,0,1,1,1,1,'','','En workshop el Radio se define automaticamente como \nAUTO RADIO BUTTON  y debe ser RADIO BUTTON unicamente\n\nEspero te sirva','',0,'','1id6pipr',1,0,'',121,0,0),(16559,3761,6,61,0,'201.217.172.197',1154406123,1,0,1,1,1,0,'','','Gracias Jose Luis y Marco Augusto:\n\nLo resolvi marcando como Radiobutton en el PellesC\n\nMuchas gracias a ambos.\n\nSaludos\n\nRuben Fernandez.','',0,'','349h98vt',1,0,'',61,0,0),(16560,3758,3,707,0,'222.124.20.50',1154406165,1,0,1,1,1,0,'','','try this  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nREPORT oRpt CAPTION \"Clientes\" TITLE \"Cadastro de Clientes\" ; \nHEADER \"Data: \" + DToC( Date() ) + \", Hora: \" + Time() ; \nFOOTER \"Página: \" + Str( oRpt:nPage, 3 ) ; \nFROM USER ;\nPREVIEW\n\nBest Regard\nAreang','',0,'','3ckwopz4',1,0,'',707,0,0),(16561,3760,3,303,0,'72.199.41.171',1154407921,1,0,1,1,1,0,'','','I suggest doing it in the message bar.','',0,'','1ph0qtqt',1,0,'',303,0,0),(16562,3740,6,2,0,'87.218.146.233',1154412713,1,0,1,1,1,1,'','','Aqui tienes el ejemplo test.prg :\n[code:1s9fvsoc]\n// Dinamically changing a folder dialog\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oFld\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n   \n   REDEFINE FOLDER oFld ID 10 OF oDlg ;\n      PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      DIALOGS &quot;dlg1&quot;, &quot;dlg2&quot;, &quot;dlg3&quot;\n      \n   REDEFINE BUTTON ID 20 OF oFld&#58;aDialogs&#91; 2 &#93; ;\n      ACTION ChangeDlg&#40; oFld &#41;   \n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil   \n\nfunction ChangeDlg&#40; oFld &#41;\n\n   oFld&#58;aDialogs&#91; 2 &#93;&#58;bValid = nil\n   oFld&#58;aDialogs&#91; 2 &#93;&#58;End&#40;&#41;\n\n   DEFINE DIALOG oFld&#58;aDialogs&#91; 2 &#93; RESOURCE &quot;dlg4&quot; OF oFld ;\n      FONT oFld&#58;oFont\n   \n   ACTIVATE DIALOG oFld&#58;aDialogs&#91; 2 &#93; NOWAIT ;\n      ON INIT oFld&#58;aDialogs&#91; 2 &#93;&#58;Move&#40; oFld&#58;nFdHeight - 1, 1 &#41; ;\n      VALID &#46;f&#46;\n      \n   oFld&#58;aDialogs&#91; 2 &#93;&#58;SetSize&#40; oFld&#58;nWidth&#40;&#41; - 4,;\n                               oFld&#58;nHeight&#40;&#41; - oFld&#58;nFdHeight - 2 &#41;   \n   \nreturn nil   \n[/code:1s9fvsoc]\ny el recurso test.rc :\n[code:1s9fvsoc]\ntest DIALOG 56, 54, 194, 148\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;&quot;, 10, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE, 8, 9, 178, 114\n DEFPUSHBUTTON &quot;OK&quot;, IDOK, 42, 128, 50, 16\n PUSHBUTTON &quot;Cancel&quot;, IDCANCEL, 102, 128, 50, 16\n&#125;\n\ndlg1 DIALOG 18, 18, 134, 84\nSTYLE WS_CHILD | 4\n&#123;\n LTEXT &quot;First page&#58;&quot;, 10, 22, 17, 48, 8\n EDITTEXT 10, 22, 30, 65, 11\n&#125;\n\ndlg2 DIALOG 18, 18, 134, 84\nSTYLE WS_CHILD | 4\n&#123;\n LTEXT &quot;Second page&#58;&quot;, 10, 22, 17, 48, 8\n EDITTEXT 10, 22, 30, 65, 11\n PUSHBUTTON &quot;Change&quot;, 20, 45, 57, 44, 12\n&#125;\n\ndlg3 DIALOG 18, 18, 134, 84\nSTYLE WS_CHILD | 4\n&#123;\n LTEXT &quot;Third page&#58;&quot;, 10, 22, 17, 48, 8\n EDITTEXT 10, 22, 30, 65, 11\n&#125;\n\ndlg4 DIALOG 18, 18, 134, 84\nSTYLE WS_CHILD | 4\n&#123;\n LTEXT &quot;Fourth page&#58;&quot;, 10, 22, 17, 48, 8\n EDITTEXT 10, 22, 30, 65, 11\n&#125;\n[/code:1s9fvsoc]','',0,'AIA=','1s9fvsoc',1,0,'',2,0,0),(16563,3417,3,49,0,'62.13.172.78',1154415219,1,0,1,1,1,1,'','','Otto,\nYes we \'are working to make it also to Pocket Pc but Now I must finish Pc Version 32 bit \nthere is another module we are working now : tpv \nHAVE YOU SOME SAMPLE ?\n\n\nBTW :FOR <!-- w --><a class=\"postlink\" href=\"http://WWW.FIVEWIN.IT\">WWW.FIVEWIN.IT</a><!-- w --> - THIS SITE IS NOT ON LINE','',0,'AIA=','bsnz6rk9',1,0,'',49,0,0),(16564,3758,3,6,0,'82.61.157.76',1154415997,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:2plzmn2d]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Report&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oPrn, oRpt\n\n    USE TEST\n\n    PRINT oPrn FROM USER PREVIEW\n\n    REPORT oRpt TO DEVICE oPrn\n\n    COLUMN TITLE &quot;LAST&quot;;\n           DATA FIELD -&gt; last\n\n    COLUMN TITLE &quot;FIRST&quot;;\n           DATA FIELD -&gt; first\n\n    END REPORT\n\n    ACTIVATE REPORT oRpt\n\n    CLOSE\n\n    RETURN NIL[/code:2plzmn2d]\n\nEMG','',0,'AIA=','2plzmn2d',1,0,'',6,0,0),(16565,3733,5,355,0,'213.23.0.82',1154419176,1,0,1,1,1,0,'','','Hallo Antonio, \n\nThe problem is: Only the entire program in this size shows this behavior. I observed again and again, which the error some versions did not emerge later any longer. I make gladly the entire program available, however a SQL server is needed via ODBC and the entire SETUP routine must go through.\n\nCarsten','',0,'AIA=','34jygqfu',1,0,'',355,0,0),(16566,3764,3,15,0,'203.73.7.109',1154419393,1,0,1,1,1,0,'','How to set printer default paper(New paper)','Hello\n\nI have set new paper size value in printer server option.\nWhen I select LQ-2180C point printer and set default A4 to my new Paper\nBut my LQ-2180C alwayse get A4 paper not my new paper.\nHow to do it or any solution? I guess any point printer same problem.\n\nRegards,\n\nRichard','',0,'AIA=','2ve66r38',1,0,'',15,0,0),(16567,3764,3,6,0,'82.61.157.76',1154422324,1,0,1,1,1,1,'','Re: How to set printer default paper(New paper)','Did you try TPrinter:SetPage() method?\n\nEMG','',0,'AIA=','2v7g81ci',1,0,'',6,0,0),(16568,3765,1,47,0,'203.144.143.7',1154423099,1,0,1,1,1,0,'','What does the XML record mean?','Dear All,\n\nI would like to know XML record and how to write it.\n\nBest regards,\nDutch','',0,'AIA=','dmxk9brr',1,0,'',47,0,0),(16569,3764,3,15,0,'203.73.7.109',1154424016,1,0,1,1,1,0,'','','Hello EMG\n\nYou mean oPrn:SetPage(255)??\n\nRegards,\n\nRichard','',0,'AIA=','hz3qbco3',1,0,'',15,0,0),(16570,3764,3,6,0,'82.61.157.76',1154426655,1,0,1,1,1,1,'','','Open printer.prg and look at the defines\n\n[code:35jutysd]// Defines for the oPrn&#58;SetPage&#40;nPage&#41; method &#40;The printer MUST support it&#41;\n\n#define DMPAPER_LETTER    1       // Letter 8 1/2 x 11 in\n&#46;&#46;&#46;[/code:35jutysd]\n\nEMG','',0,'AIA=','35jutysd',1,0,'',6,0,0),(16571,3765,1,6,0,'82.61.157.76',1154426750,1,0,1,1,1,1,'','Re: What does the XML record mean?','This is an easy way:\n\n[code:138o5min]#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n#define adPersistXML 1\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    FERASE&#40; &quot;TEST&#46;XML&quot; &#41;\n\n    oRs&#58;Open&#40; &quot;SELECT * FROM Test&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0; Data Source=c&#58;\\xharbour; Extended Properties=DBASE III&quot;, adOpenForwardOnly, adLockReadOnly &#41;\n\n    oRs&#58;Save&#40; &quot;TEST&#46;XML&quot;, adPersistXML &#41;\n\n    oRs&#58;Close&#40;&#41;\n\n    RETURN NIL[/code:138o5min]\n\nEMG','',0,'AIA=','138o5min',1,0,'',6,0,0),(16572,3766,6,9,0,'85.54.225.255',1154428448,1,0,1,1,1,1,'','Visual FiveWin','¿Que pasa con Visual FiveWin de Patrick Fun\'s ?. ¿Nadie lo usa? ¿Da problemas?.','',0,'AIA=','18n9btus',1,0,'',9,0,0),(16573,3767,3,707,0,'199.253.99.254',1154428596,1,0,1,1,1,0,'','Get image From Twain Driver','Please give me information about this !\n\n Who has DLL for this ? Should I buy \n\nThank for help.\nBest Regard\nAreang\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','2n7pt13e',1,0,'',707,0,0),(16574,3733,5,2,0,'87.218.146.228',1154429452,1,0,1,1,1,1,'','','Carsten,\n\nHave you consedired to migrate your application to Harbour/xHarbour and FWH ? In our opinion, its the best 32 bits Clipper language solution and we have 100% full control.','',0,'AIA=','2saluktr',1,0,'',2,0,0),(16575,3766,6,2,0,'87.218.146.228',1154429520,1,0,1,1,1,1,'','','Manuel,\n\nPues parece que a los usuarios de FW/FWH no les entusiasma precisamente <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2yvs05my',1,0,'',2,0,0),(16577,3733,5,355,0,'213.23.0.82',1154437671,1,0,1,1,1,0,'','Error Base','Oh! Rather not! Our experience says, which a system change does not function nevertheless so simply and smoothly. The program is productive in the use. Up to this error, since approx.. the program arises to 2 weeks stably ran. Perhaps nevertheless an idea at which corner one a little to screw could.','',0,'AIA=','28322mcs',1,0,'',355,0,0),(16578,968,3,569,0,'200.44.209.136',1154438324,1,0,1,1,1,0,'','Re: Database Search','Amigo: si no has solucionado todavia tu problema enviame un mensajea.\nRODOLFO SILVA\nemail: <!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','2na1eh0k',1,0,'',569,0,0),(16579,3764,3,620,0,'209.189.229.150',1154440407,1,0,1,1,1,0,'','','I had little luck myself with printer definitions....I have one form that must print on Legal Size (US) and the defines never worked.\n\nI ended up hard-coding the paper size:\n\n	    prnSetSize( 2159, 3556 )  // Legal Size\n\nWorks perfectly.\n\nGreg','',0,'AIA=','35wn0ekw',1,0,'',620,0,0),(16580,3768,6,428,0,'200.55.19.126',1154444510,1,0,1,1,1,0,'','Validar Usuario en SQL Server','Hola,  estoy intentando validadr un usuario que esta definido en USERS de SQL SERVER, pero no encuentro la forma, alguien ha experimentado esto con FIVEWIN Y HARBOUR ?\n\nGracias\n\nMiguel','',0,'AIA=','x9q58mfs',1,0,'',428,0,0),(16581,3668,2,147,0,'200.45.54.133',1154444981,1,0,1,0,1,1,'','','Ya tengo la lib operativa.\nAhora me surge el siguiente problema. Si ejecuto la aplicación en una PC con winXP, el proceso se realiza correctamente. Si lo hago en una PC con Win98 al abrir Excel pero, antes de mostrar la hoja con lo exportado, sale un msg de error: \"esta aplicacion a efectuado una operacion no válida...\", y obviamente la apliacion de cierra y Excel no muestra nada.\nCual puede ser el problema?\nTeniendo en cuenta que en XP fucniona, supongo que debido a que se ejecuta en un espacio de memoria separado, será por el enlazado?. Este es mi .lnk\n\n[code:2vz169v7]\n// Opciones BLinker\n   PACKCODE\n   PACKDATA\n   //BLI EXECUTABLE CLIPPER F200\n   BLINKER EXECUTABLE COMPRESS\n   BLINKER CLIPPER SYMBOL OFF\n\n   // Ejecutable\n   OUT mgbyr\n\n   // Files\n   FI byr_main, byr_abmc\n   FI byr_plan, byr_abmm\n   FI byr_list, byr_expo\n   FI byr_hist, byr_ruti, byr_T00\n   FI msgspa,sixspa,sixnsx\n   FI clforce\n\n   // Librerias\n   SEARCH WMGf\n   SEARCH OBJDBF,FILEXLS,BTNGET,TWBRW16,SBUTTON\n   LIB SIX3\n\n   LIB five, fivec, winapi, objects\n\n   DEFBEGIN\n      name        mgByR\n      description \'Bancos &amp; Recursos &#40;c&#41; 98-2007\'\n      exetype     Windows 3&#46;1\n      code        moveable discardable preload\n      data        preload moveable\n      stacksize   10000\n      heapsize    2048\n      rc          wbyr&#46;res\n      segment     \'PLANKTON_TEXT\' nondiscardable\n      segment     \'EXTEND_TEXT\'   nondiscardable\n      segment     \'OM_TEXT\'       nondiscardable\n      segment     \'OSMEM_TEXT\'    nondiscardable\n      segment     \'SORTOF_TEXT\'   nondiscardable\n      segment     \'STACK_TEXT\'    nondiscardable\n   DEFEND\n[/code:2vz169v7]\n\ngracias','',0,'AIA=','2vz169v7',1,0,'',147,0,0),(16582,3740,6,665,0,'196.40.14.50',1154445229,1,0,1,1,1,0,'','Muchas Gracias Antonio','Perfecto, mil gracias, exactamente era lo quu deseaba, he para mucho este tipo de  programacion a veces en dificil pue no tenemos  la mente para hacerlo pues tanto probamos que nada sale. Gracias por contribuir a la causa.\n\nOscar Chacon\nBumatic.','',0,'AIA=','1i0eryci',1,0,'',665,0,0),(16583,3768,6,168,0,'200.44.49.54',1154445315,1,0,1,1,1,0,'','','Puedes usar la tabla del sistema llamada sysusers','',0,'AIA=','bjy1o2q4',1,0,'',168,0,0),(16584,3766,6,61,0,'201.217.169.231',1154446080,1,0,1,1,1,0,'','','Manuel:\n\nEn mi caso, aprendi a programar en Clipper,(curso de 7 meses)\nhace ya muuuuchos años y sin mas enseñanaza comence a hacer\nprogramas. Despues vinieron los visuales y yo segui con el\nviejo Clipper, hasta que llego Antonio con Fivewin.\n\nY como no aprendi nada mas, lo visual me desorienta \nun poco, yo sigo a lo bestia nomas.\n\nUn cordial saludo.\n\nRuben Fernandez.','',0,'AIA=','xf2ibz27',1,0,'',61,0,0),(16585,3768,6,138,0,'201.128.111.188',1154446431,1,0,1,1,1,1,'','','Tendrias que hacerlo via ODBC creando un DSN para validar el usario o el password.\n\nO Bien:\n\nHacerlo por ADO y en la cadena de conexion especificar user y password','',0,'AIA=','380qod9p',1,0,'',138,0,0),(16586,3769,6,36,0,'200.113.56.235',1154447568,1,0,1,1,1,0,'','Report','Estimados\n\nTengo dos impresoras laser, un Brother HL-5140 y Canon iR1200-1300\nEl mismo reporte para las dos impresoras?\n\nEn la canon no me salen los totales al final de la hoja y esta configurada para que imprima en carta\n\nLa impresorsa brother corta los numeros de la ultima columna\n\na que de debe esta anomalia, alguna solucion que pueda optar\n\nFwh2.6, xHarbour 0.99.50\n\nAqui dejo la funcion que utilizo\n\n[code:lly3xa9d]Function PrnLibroCmp&#40;oLbx, aGet&#41;\n	local oReport, oFont1, oFont2, dFec, nRegi &#58;= Docu_Ent-&gt;&#40;RECNO&#40;&#41;&#41;\n\n	dFec &#58;= cTod&#40; &quot;01/&quot;+str&#40;aGet&#91;1,2&#93;,2&#41; + &quot;/&quot; + str&#40;aGet&#91;2,2&#93;,4 &#41; &#41;\n	Docu_Ent-&gt;&#40; dbGotop&#40;&#41; &#41;\n	DEFINE FONT oFont1 NAME &quot;ARIAL&quot; SIZE 0,-8\n	DEFINE FONT oFont2 NAME &quot;ARIAL&quot; SIZE 0,-8 BOLD ITALIC\n\n	PrinterSetup&#40; oLbx &#41;\n\n	REPORT oReport TITLE  &quot;*** Facturas de Compra ***&quot;,;\n								&quot; &quot;,;\n 								 cMonth&#40;dFec&#41; + &quot;/&quot;+Str&#40;aGet&#91;2,2&#93;,4&#41; ;\n				   ;\n					FONT   oFont1,oFont2 ;\n					HEADER &quot;Fecha&#58; &quot;+dtoc&#40;DateAds&#40;&#41;&#41;,;\n              			 &quot;Hora&#58;  &quot;+TimeAds&#40;&#41; ;\n              		RIGHT ;\n					FOOTER &quot;Pág&#46;&#58;&quot;+str&#40;oReport&#58;nPage,3&#41;;\n			PREVIEW\n\n	COLUMN TITLE &quot;Día&quot;						DATA day&#40;Docu_Ent-&gt;Fec_Emi&#41; 	FONT 1 PICTURE &quot;99&quot;\n	COLUMN TITLE &quot;Factura #&quot;				DATA Docu_Ent-&gt;Num_Doc			FONT 1 PICTURE &quot;9999999999&quot;\n	COLUMN TITLE &quot;Rut&quot;, &quot;Proveedor&quot;		DATA iif&#40;Docu_Ent-&gt;Anulada, &quot;**ANULADA**&quot;,Docu_Ent-&gt;Rut_Pro&#41;	FONT 1 PICTURE &quot;@!&quot;\n	COLUMN TITLE &quot;Nombre&quot;, &quot;Proveedor&quot;	DATA iif&#40;Docu_Ent-&gt;Anulada, &quot;**ANULADA**&quot;,;\n															&#40;Proveedo-&gt;&#40; dbSeek&#40; Docu_Ent-&gt;Rut_Pro &#41; &#41;, Proveedo-&gt;Nom_Pro&#41;&#41;	FONT 1 PICTURE &quot;@!&quot;\n	COLUMN TITLE &quot;Neto&quot;						DATA iif&#40;Docu_Ent-&gt;Anulada, 0, Docu_Ent-&gt;Tot_Net &#41; 				FONT 2 PICTURE &quot;@E 999,999,999&quot; TOTAL\n	COLUMN TITLE &quot;Iva&quot;						DATA iif&#40;Docu_Ent-&gt;Anulada, 0, Docu_Ent-&gt;Tot_Iva	&#41;				FONT 2 PICTURE &quot;@E 999,999,999&quot; TOTAL\n	COLUMN TITLE &quot;Total&quot;						DATA iif&#40;Docu_Ent-&gt;Anulada, 0, Docu_Ent-&gt;Total	&#41;					FONT 2 PICTURE &quot;@E 999,999,999&quot; TOTAL\n\n	END REPORT\n\n	oReport&#58;bSkip &#58;= &#123; || Docu_Ent-&gt;&#40; dbSkip&#40;&#41; &#41; &#125;\n	oReport&#58;cName &#58;= &quot;Sistema Win-Invent&quot;\n	oReport&#58;oDevice&#58;cDocument &#58;= &quot;Control de impresión&quot;\n	ACTIVATE REPORT oReport ;\n		ON STARTPAGE PrnEmpresa&#40;oReport &#41; ;\n		ON STARTGROUP oReport&#58;NewLine&#40;&#41;   ;\n		WHILE Docu_Ent-&gt;&#40; !Eof&#40;&#41; &#41;\n\n\n	Docu_Ent-&gt;&#40; dbGoto&#40; nRegi &#41; &#41;\n	oLbx&#58;Gotop&#40;&#41;&#58;Refresh&#40;&#41;\n	oFont1&#58;End&#40;&#41;\n	oFont2&#58;End&#40;&#41;\n\nreturn&#40; &#46;t&#46; &#41;[/code:lly3xa9d]\n\nSaludos\nPatricio','',0,'AIA=','lly3xa9d',1,0,'',36,0,0),(16587,3764,3,6,0,'82.61.157.76',1154448706,1,0,1,1,1,1,'','','Probably it was a printer driver problem.\n\nEMG','',0,'AIA=','1xk0qpor',1,0,'',6,0,0),(16588,3737,6,396,0,'201.243.137.44',1154449279,1,0,1,1,1,1,'','','Creo deberias colocar oWnd como global o pasarla como referencia a la funcion oBronca()para que culegues el oPage, voy a probar de todos modos tus lineas.','',0,'AIA=','wxtk4ijy',1,0,'',396,0,0),(16589,3733,5,2,0,'87.218.146.222',1154450850,1,0,1,1,1,1,'','','Carsten,\n\nBut you are experiencing the situation. The application was stable. Now it is not. You have no way to reproduce the problem and Alaska is not going to help you. So what you are going to do ?\n\nIn our opinion, Xbase++ is not stable as Harbour/xHarbour are. But, most important, with Harbour/xHarbour we have full source code and many ways to trace a problem like this. How do you plan to solve this random GPF ?\n\nWe have many customers that have migrated from Xbase+++ to Harbour/xHarbour in a matter of a few days and with full satisfaction.','',0,'AIA=','2v74u4jo',1,0,'',2,0,0),(16590,3737,6,2,0,'87.218.146.222',1154451511,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3740\">http://fivetechsoft.com/forums/viewtopic.php?t=3740</a><!-- m -->','',0,'AIA=','1ngarrbc',1,0,'',2,0,0),(16591,3702,6,376,0,'200.121.245.178',1154451551,1,0,1,1,1,0,'','Rc2Prg - Generador de codigo fuente a partir de Archivos RC','He subido el codigo fuente de RC2Prg al HyperUpload para los que esten interesados.\n\nLes ruego que si lo amplían, mejoran o corrigen favor de compartirlo conmigo al siguiente email:\n\n<!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e -->','',0,'AIA=','ojda6ayc',1,0,'',376,0,0),(16592,3702,6,2,0,'87.218.146.222',1154452652,1,0,1,1,1,1,'','','Armando,\n\n&gt; He subido el codigo fuente de RC2Prg al HyperUpload para los que esten interesados. \n\nNo has puesto el enlace de descarga desde hyperupload.','',0,'AIA=','317lgc3g',1,0,'',2,0,0),(16593,3668,2,2,0,'87.218.146.222',1154452844,1,0,1,1,1,1,'','','Mario,\n\nPrueba a reducir el valor del stacksize.','',0,'AIA=','2mdoq56y',1,0,'',2,0,0),(16594,3762,3,2,0,'87.218.146.222',1154453531,1,0,1,1,1,1,'','','Vilian,\n\nIf you are testing both samples\\sockserv.prg and samples\\sockcli.prg at the same computer, then you have to change this line in sockcli.prg:\n\noSocket:Connect( \"127.0.0.1\" ) // use the server IP address here\n\nHere they are working fine with FWH 2.7 July 2006.','',0,'AIA=','1j0drwx4',1,0,'',2,0,0),(16595,3723,6,376,0,'200.121.245.178',1154454648,1,0,1,1,1,0,'','Re: funciones zip no funcionan','Creo que los ejemplos están utilizando codigos que no han sido considerados en hbzlib. Por alguna parte leí que cambiaron totalmente los codigos en las librerías y no los han incluido nuevamente... al menos eso creo.\n\nArmando\n\n[quote=&quot;posti&quot;:1axfn9fb]hola\ntengo el siguiente problema\nen una aplicacion hecha con clipper+fw24 anda bien la funcion para UnZipear archivos\n\nahora pasé la aplicacion a harbour+fwh24 y no funciona mas, es mas no puedo compilar\n\nno funcionan las funciones zip en harbour con fwh24??\nintenté utilizar la hbzlib.lib y tampoco logro que funcione, aunque si logro compilar\n\nalguna idea\n\ndesde ya gracias\n\npablo[/quote:1axfn9fb]','',0,'gA==','1axfn9fb',1,0,'',376,0,0),(16596,3702,6,376,0,'200.121.245.178',1154454939,1,0,1,1,1,0,'','','Opps!!!\n\nEste es el enlace para la descarga:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0276067986/RC2PRG.PRG.html\">http://hyperupload.com/download/0276067 ... G.PRG.html</a><!-- m -->\n\nGracias Antonio, pro recordármelo.\n\nA proposito hasta el momento no he podido enviar correos con el ejemplo de SMTP\n\nArmando','',0,'gA==','e5p1p5gy',1,0,'',376,0,0),(16597,3765,1,303,0,'72.199.41.171',1154455189,1,0,1,1,1,0,'','','Enrico,\n\nIs this reading a Jet database or a DBF?\n\nIs this for xHarbour only or will it run under Harbour also?\n\nJames','',0,'gA==','1zvqwefw',1,0,'',303,0,0),(16598,3762,3,267,0,'200.208.238.2',1154455192,1,0,1,1,1,1,'','','Thanks Antonio,','',0,'gA==','15gjmcrb',1,0,'',267,0,0),(16599,3765,1,303,0,'72.199.41.171',1154455289,1,0,1,1,1,0,'','','Dutch,\n\nThere is a DBF to XML conversion program written in Clipper on my website (see button below).\n\nJames','',0,'gA==','hmsrzcwf',1,0,'',303,0,0),(16600,3714,6,376,0,'200.121.245.178',1154455429,1,0,1,1,1,0,'','','Gracias René\n\nVoy a probar el codigo que me enviaste. De superar los inconvenientes pienso que lo lógica evolución de estas rutinas sería el de poder leer nuestros correos directamente desde los servidores externos (hotmail, yahoo, etc) y almacenarlos en una base de datos para poder leerlos fuera sin estar conectados. Te parece ?\n\nArmando','',0,'gA==','y01w20ks',1,0,'',376,0,0),(16601,3765,1,6,0,'82.61.157.76',1154455605,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:kner7gg1]Enrico,\n\nIs this reading a Jet database or a DBF?[/quote:kner7gg1]\n\nA DBF.\n\n[quote=&quot;James Bott&quot;:kner7gg1]Is this for xHarbour only or will it run under Harbour also?[/quote:kner7gg1]\n\nAlso for Harbour but you will need to link hbole.lib and use TOleAuto():New() instead of CREATEOBJECT().\n\nEMG','',0,'gA==','kner7gg1',1,0,'',6,0,0),(16602,3735,6,138,0,'201.128.111.188',1154456870,1,0,1,1,1,1,'','','No señor, te falta definir el tipo del cursor en el RecordSet, por eso no te puedes mover sobre el browse.\n\nNecesitas hacer lo siguiente:\n\n[code:avjlv8mn]*---- CursorTypeEnum Values ----\n#DEFINE adOpenForwardOnly 0\n#DEFINE adOpenKeyset      1\n#DEFINE adOpenDynamic     2\n#DEFINE adOpenStatic      3\n\n*---- LockTypeEnum Values ----\n#DEFINE adLockReadOnly        1\n#DEFINE adLockPessimistic     2\n#DEFINE adLockOptimistic      3\n#DEFINE adLockBatchOptimistic 4\n\n\noMiConexion &#58;= TOleAuto&#40;&#41;&#58;New&#40;“adodb&#46;connection”&#41;\noMiConexion&#58;Open&#40;&quot;Provider=Advantage&#46;OLEDB&#46;1;User ID=adssys;Data Source=&quot;+xrutab+&quot;dd&#46;add;Persist Security Info=False;ServerType=&quot;+xservidor+&quot;;LockMode=ADS_COMPATIBLE_LOCKING&quot;&#41;\n\noRecordSet &#58;= TOleAuto&#40;&#41;&#58;New&#40;“adodb&#46;recordset”&#41;\noRecordSet&#58;LockType &#58;= adLockOptimistic\noRecordSet&#58;CursorType &#58;= adOpenKeySet\noRecordSet&#58;ActiveConnection&#40;oMiConexion&#41;\noRecordSet&#58;Source &#58;= \'SELECT \'+&#58;&#58;campos+\' FROM \'+&#58;&#58;base+\' ORDER BY \'+&#58;&#58;orden \noRecordSet&#58;Open&#40;&#41;[/code:avjlv8mn]\n\nEs muy importante que el Tipo de cursor del recordset lo pongas como adOpenKeySet  para que te puedas mover,  de lo contrario solo puedes ir hacia adelante y no hacia atras.','',0,'AIA=','avjlv8mn',1,0,'',138,0,0),(16603,3766,6,396,0,'201.243.137.44',1154458356,1,0,1,1,1,1,'','','Talves nos guste mas dominar nuestro sistema con diseños bajo PellesC o VisualC o algun otro editor de recurso y luego enlazarnos con la programacion y sentir que somos totalmente padres de la criatura (sistema desarrollado) aunque una ayuda nunca esta de mas, pero si lo mas entendido no lo han usado, por algo sera, seria bueno que alguien diera su punto de vista si lo ha usado, voy intentar a ver que tiene de bueno.','',0,'AIA=','13ptdh8x',1,0,'',396,0,0),(16604,3698,2,375,0,'84.122.104.133',1154463314,1,0,1,1,1,1,'','','Intenta algo así:\n\nSendMessage(oFld:aDialogs[X]:aControls[Y]:hWnd , FM_CHANGEFOCUS) }\nó\nPostMessage(oFld:aDialogs[[b:3ifrhkco]X[/b:3ifrhkco]]:aControls[[b:3ifrhkco]Y[/b:3ifrhkco]]:hWnd , FM_CHANGEFOCUS) }\n\nPara darle foco al Control \'[b:3ifrhkco]Y[/b:3ifrhkco]\' de la pestaña \'[b:3ifrhkco]X[/b:3ifrhkco]\'.\n\nEl primero le da foco directamente. El segundo espera a que se procesen los mensajes de la cola de mensajes del windows antes de actuar (por ejemplo por si hay que cerrar un dialogo antes de cambiar de foco)Suerte.','',0,'QA==','3ifrhkco',1,0,'',375,0,0),(16605,3770,3,148,0,'196.205.185.26',1154467837,1,0,1,1,1,0,'','The fastest way to filter DBF','I am extracting certain records from huge DBF (8000 Record) and it is so slow .\n [code:2p1bi649]\n select 4\n   4-&gt;&#40;dbgotop&#40;&#41;&#41;\n   set filter to alltrim&#40;me_cu_acct&#41;==&quot;2125447&quot;\n \n\n\n   4-&gt;&#40;dbgotop&#40;&#41;&#41;\n\nDO WHILE !&#40;4&#41;-&gt;&#40;EOF&#40;&#41;&#41;\n\n\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 1 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;ME_CU_name&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 2 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_brn&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 3 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_type&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 4 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_modl&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 5 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_serl&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 6 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;open_meter&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 7 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;cls_meter&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 8 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;prints&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 9 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;waste&#41; \nnLine&#58;=nLine+1\n&#40;4&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41;\n\n\nENDDO\n\n[/code:2p1bi649]','',0,'AIA=','2p1bi649',1,0,'',148,0,0),(16606,3770,3,303,0,'72.199.41.171',1154468975,1,0,1,1,1,0,'','','Use scoping rather than a filter. This works with both NTXs and CDXs under Harbour and xHarbour.\n\nFirst index it on me_cu_acct:\n\nindex on me_cu_acct to myindex\n\nThe set the scope:\n\n   cScope:=\"2125447\" // or whatever\n\n   cScope:=padr(cScope),len(me_cu_acct))\n\n   select 4 \n   4-&gt;(ordScope(0, cScope))  // set the top scope\n   4-&gt;(ordScope(1, cScope))  // set the bottom scope\n   4-&gt;(dbgotop())','',0,'AIA=','21vyva5h',1,0,'',303,0,0),(16607,3771,2,708,0,'201.236.13.71',1154469620,1,0,1,1,1,0,'','error con VK_Return','Amigos tengo la siguiente situacion en un programa con varios modulos, tengo un btnget que llama a un browse de datos, en este me muevo con las flechas cursoras y cuando doy un Enter, me captura el registro y me lo carga en otro browse o dialogo, el problema es que en otro modulo del mismo sistema hago exactamente lo mismo y me sale\n\nERROR/1003 LA VARIABLE NO EXISTE \nNO SE ENCONTRO VK_RETURN \n\nno entiendo que si para una rutina si funciona y para otra no, si es parte del mismo sistema...\n\nFW 2.2, CLIPPER 5.3, BLINKER 5.0, WORKSHOP 4.0','',0,'AIA=','35leeeau',1,0,'',708,0,0),(16608,3772,2,510,0,'200.84.245.141',1154476923,1,0,1,1,1,0,'','Foco con Folder pero no en las pestañas','Estimados colegas, antetodo gracias para antonio y manu por los concejos aportados, tengo lo siguiente : Un dialogo con tres pestañas en el cual valido que no queden campos vacios cada vez que le digo aceptar, ok funciona bien me advierte que hay un campo vacio  me traslada a el pero si todo esta bien al grabar el registro logro inicializar las tres pestañas para datos nuevos pero el campo clave que es codigo esta fuera de las tres(3) pestañas y cuando le digo \n\n[color=red:3p4sarpz]\noPa1:SetOption(1)\noPa1:nOption(1)\noPa1:Refresh()\nCod:Setfocus(.t)[/color:3p4sarpz]\n\n no lo hace solo se ubica en el Primer Get de la Primera Pestaña, ahora no se que decir si lo quiero mandar fuera de las pestañas, se que a los mejor Setoption(1) no aplica,  si alguien pudiese ayudarme.\n\n Gracias\n William Neskers\n ------------------\n Venezuela','',0,'Ag==','3p4sarpz',1,0,'',510,0,0),(16609,3770,3,138,0,'148.233.159.24',1154483673,1,0,1,1,1,1,'','','Scopes are great, try a scope and then a filter with the scoped database.\n\nOr you can use the ADS LOCAL server, Filters are damn fast with ADS, even using SET FILTER and not need to use any additional indexes.','',0,'Ag==','pjxk1xez',1,0,'',138,0,0),(16610,3759,6,215,0,'201.154.38.238',1154491858,1,0,1,1,1,0,'','No es skin pero ve bonito','Esto es lo que salió después de un rato de inspiración. \n\n<!-- m --><a class=\"postlink\" href=\"http://img180.imageshack.us/my.php?image=capturarz3.jpg\">http://img180.imageshack.us/my.php?image=capturarz3.jpg</a><!-- m -->','',0,'Ag==','g3emnzsd',1,0,'',215,0,0),(16611,3773,7,710,0,'195.5.90.62',1154495266,1,0,1,1,1,0,'','SAY EN BITMAP...','Hola foro! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , estoy empezando... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  Tengo un problema al querer poner un say sobre un bitmap en una ventana. Me sale el fono del say en blanco como se muestra en la imagen. He modificado el codigo de testbmp.prg para realizar este ejemplo.\n\n\n// Using bitmaps from resources\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, oBmp, osay\n\n   DEFINE WINDOW oWnd TITLE \"Bmp-Res\"\n\n   @ 5,5 SAY osay var \'Prueba de texto sin fondo\' OF OWND\n\n   @ 0, 0 BITMAP RESOURCE \"users\" ADJUST transparen\n\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo( \"click!\" )\n\nreturn nil\n\n[img][url=http&#58;//img58&#46;imageshack&#46;us/my&#46;php?image=textosinfondosobrebmppb9&#46;jpg:2tr3g4o4][img]http://img58.imageshack.us/img58/9974/textosinfondosobrebmppb9.th.jpg[/img][/url:2tr3g4o4][/img]','',0,'GA==','2tr3g4o4',1,0,'',710,0,0),(16612,3774,7,710,0,'195.5.90.62',1154497264,1,0,1,1,1,0,'','!!BOTON TRANSPARENTE...','Hola foro, otra vez... <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> Otra pregunta de examen... Se puede asignar una zona de una ventana o dialogo como si fuera un BOTON pero que no se vea como tal, y que acciones sobre un bitmap por ejemplo y puedas realizar una accion determinada?... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> GRACIAS.','',0,'GA==','2b647z1o',1,0,'',710,0,0),(16613,3773,7,2,0,'87.218.146.134',1154499064,1,0,1,1,1,1,'','','Juan, \n\nHazlo así:\n[code:1z63qwyp]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBmp\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot;\n\n   @ 0, 0 BITMAP oBmp FILENAME CURDIR&#40;&#41; + &quot;\\users&#46;bmp&quot; NOBORDER\n\n   oBmp&#58;lTransparent = &#46;t&#46;\n   oBmp&#58;bPainted = &#123; || oBmp&#58;Say&#40; 2, 2, &quot;Esto es una prueba&quot;, &quot;W+&quot;, &quot;B&quot;,,, &#46;t&#46; &#41; &#125;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41;\n\nreturn nil\n[/code:1z63qwyp]','',0,'AIA=','1z63qwyp',1,0,'',2,0,0),(16614,3775,3,705,0,'61.0.136.217',1154499102,1,0,1,1,1,0,'','How Can I','Hi.\n\nI am enclosing herewith a function, through which I am trying to add data in a database. The main Problems is:\n\na) The Get fields are not activated and jumping directly to “Sure to save …….” Msg.\n\nOther problems :\n\na) How Can I set font name and size?\n\nb) Some Procedure/Function Return shows Warning… during compilation. The msg in “Procedure return value” ……… What is this actually?\n\nc) If I want to move a child mdi window within a specific area of main MDI window, then how can I set the same?\n\n\n[code:junxdqth]\n\nFunction getCustomer&#40;aDataFld, helpIDX, OperateArea, nShortId,  \n                                         lShortPressed, ButnStatus&#41;\n   Static nVal         &#58;= 0\n   Static getList      &#58;= &#123;&#125;\n\n   Local cColor        &#58;= &quot;W/N,R/W,,,N/W&quot;\n\n   Local userlevel &#58;= &quot;P&quot;\n   Local today     &#58;= Date&#40;&#41;\n   Local chCust    &#58;= 0\n\n   Local Success, savDelete, lReadit, i\n\n   Local cCNo  &#58;= Space&#40;8&#41;,  cRank &#58;= Space&#40;8&#41;,  nPin  &#58;= Space&#40;6&#41;\n   Local cName &#58;= Space&#40;35&#41;, cAdd1 &#58;= Space&#40;35&#41;, cAdd2 &#58;= Space&#40;35&#41;\n   Local cLoc &#58;= Space&#40;35&#41;\n\n\n   lReadit  &#58;= &#46;T&#46;\n   \n   // Hide mouse cursor\n   mSetCursor&#40;&#46;F&#46;&#41;\n   \n   // Set Color Attribute\n   Set Color to&#40;cColor&#41;\n\n   // Hide cursor\n   Set Cursor Off\n\n      If Len&#40;aDataFld&#41; == 0\n         MessageBox&#40;, &quot;Get Fields are empty&#46; Try again                             later&#46;&#46;&#46;&quot;,      &quot;WARNING&quot;, &quot;OK&quot;&#41;\n         Clear Gets\n         ReadKill&#40;&#46;T&#46;&#41;\n         Chcust        &#58;= 0\n         ButnStatus    &#58;= &#46;T&#46;\n         lShortPressed &#58;= &#46;T&#46;\n         nShortId      &#58;= &quot;S_NOCHOICE&quot;\n\n         Return&#40;ButnStatus, nShortId, lShortPressed&#41;\n      Endif\n\n      If lReadit == &#46;F&#46;\n         @  3,  11   Get aDataFld&#91;01&#93;                                          ;\n                     Picture    &quot;@!&quot;                                                   ;\n                     Color      &quot;12/7, 12/7&quot;                                       ;\n                     Valid    nodupl&#40;aDataFld&#91;01&#93;, Customer-&gt;CustNo, helpIDX, ,1,  ;\n                                     &quot;         Invalid Customer Code&#46;         ;&quot;  + ;\n                                     &quot;A Customer with the current Customer No&#46;;&quot;  + ;\n                                     &quot;found&#46;;&quot;&#41; &#46;And&#46; !LastKey&#40;&#41; == K_ESC\n      Else\n         @  3,  11   Get aDataFld&#91;01&#93;                                              ;\n                     Picture    &quot;@!&quot;                                               ;\n                     Color      &quot;W/N,R/W,,,N/W&quot;                                    ;\n                     Valid    Lreqdata&#40;&#41; &#46;And&#46; nodupl&#40;aDataFld&#91;01&#93;, Customer-&gt;CustNo, helpIDX, ,1,  ;\n                                     &quot;         Invalid Customer Code&#46;         ;&quot;  + ;\n                                     &quot;A Customer with the current Customer No&#46;;&quot;  + ;\n                                     &quot;found&#46;;&quot;&#41; &#46;And&#46;  !LastKey&#40;&#41; == K_ESC   &#46;And&#46;  ;\n                              lCheck&#40;aDataFld, helpIDX, cCNo, cRank, cName, cAdd1, cAdd2, cLoc, nPin&#41;\n      Endif\n\n      @  5, 11    Get aDataFld&#91;02&#93;   ;\n                  Picture    &quot;@!&quot;                                ;\n                  Color      &quot;W/N,R/W,,,N/W&quot;                     ;\n                  Valid      lCheck&#40;aDataFld, helpIDX, cCNo, cRank, cName, cAdd1, cAdd2, cLoc, nPin&#41;\n\n      @  6, 11    Get aDataFld&#91;03&#93;   ;\n                  Picture    &quot;@!&quot;                                ;\n                  Color      &quot;W/N,R/W,,,N/W&quot;                     ;\n                  When       If&#40;userlevel == &quot;P&quot;, &#46;T&#46;, &#46;F&#46;&#41;      ;\n                  Valid      Lreqdata&#40;&#41; &#46;And&#46; lCheck&#40;aDataFld, helpIDX, cCNo, cRank, cName, cAdd1, cAdd2, cLoc, nPin&#41;\n\n      @  7, 11    Get aDataFld&#91;04&#93;   ;\n                  Picture    &quot;@!&quot;                                ;\n                  Color      &quot;W/N,R/W,,,N/W&quot;                     ;\n                  When       !Empty&#40;aDataFld&#91;03&#93;&#41;                ;\n                  Valid      Lreqdata&#40;&#41; &#46;And&#46; lCheck&#40;aDataFld, helpIDX, cCNo, cRank, cName, cAdd1, cAdd2, cLoc, nPin&#41;\n\n      @  8, 11    Get aDataFld&#91;05&#93;   ;\n                  Picture    &quot;@!&quot;                                ;\n                  Color      &quot;W/N,R/W,,,N/W&quot;                     ;\n                  When       If&#40;!Empty&#40;aDataFld&#91;03&#93;&#41;, &#46;T&#46;, &#46;F&#46;&#41;  ;\n                  Valid      lCheck&#40;aDataFld, helpIDX, cCNo, cRank, cName, cAdd1, cAdd2, cLoc, nPin&#41;\n\n      @  9, 11    Get aDataFld&#91;06&#93;  ;\n                  Picture    &quot;@!&quot;                                ;\n                  Color      &quot;W/N,R/W,,,N/W&quot;                     ;\n                  When       If&#40;!Empty&#40;aDataFld&#91;03&#93;&#41;, &#46;T&#46;, &#46;F&#46;&#41;  ;\n                  Valid      lCheck&#40;aDataFld, helpIDX, cCNo, cRank, cName, cAdd1, cAdd2, cLoc, nPin&#41;\n      \n      @  10, 11   Get aDataFld&#91;07&#93;  ;\n                  Picture    &quot;@Z 999999&quot;                         ;\n                  Color      &quot;W/N,R/W,,,N/W&quot;                     ;\n                  When       If&#40;!Empty&#40;aDataFld&#91;03&#93;&#41;, &#46;T&#46;, &#46;F&#46;&#41;  ;\n                  Valid      lCheck&#40;aDataFld, helpIDX, cCNo, cRank, cName, cAdd1, cAdd2, cLoc, nPin&#41;\n\n   // Show mouse cursor\n   mSetCursor&#40;&#46;T&#46;&#41;\n\n   If lReadit\n      // Turn on the cursor\n      Set Cursor On\n\n      ReadModal&#40;GetList, 1,, 4, 50, 70, &quot;9/14&quot;&#41;\n\n      // Hide cursor\n      Set Cursor Off\n   Else\n      While &#46;T&#46;\n         i &#58;= Inkey&#40;&#41;\n\n         Do Case\n         Case i = K_PGDN\n              If Eof&#40;&#41;\n                 dbSkip&#40;&#41;\n              Endif\n              Exit\n         Case i = K_PGUP \n              If Eof&#40;&#41;\n                 dbSkip&#40;-1&#41;\n              Endif\n              Exit\n         Otherwise\n            Loop\n         EndCase           \n      Enddo\n\n      Return&#40;ButnStatus, nShortId, lShortPressed&#41;\n   Endif\n\n   // User terminated, read unchanged or fails data integrity\n   If LastKey&#40;&#41; == K_ESC\n      If helpIDX == &quot;ADD&quot;\n         Return&#40;ButnStatus, nShortId, lShortPressed&#41;\n      Endif\n\n   Endif\n\n   If ValueChanged &#46;Or&#46; Updated&#40;&#41;\n      If !integrity&#40;aDataFld&#41;\n         Return&#40;ButnStatus, nShortId, lShortPressed&#41;\n      Endif\n   Endif\n\n   // Save the record after operator\'s confirmation\n   If MessageBox&#40;, &quot;Sure to save current record ?&quot; ,;\n                   &quot;CONFIRM&quot;, &quot;MB_OKCANCEL&quot;&#41; &lt;&gt; 1\n\n      Return&#40;ButnStatus, nShortId, lShortPressed&#41;\n   Endif\n\n   // Update system databases and establish all locks in the databases\n   updvars&#40;aDataFld, helpIDX, @Success&#41;\n\n   // All okay, save now\n   If Success\n      For i &#58;= 1 To FCount&#40;&#41;\n         FieldPut&#40;i, aDataFld&#91;i&#93;&#41;\n      Next\n\n      // Force pending updates to disk\n      dbCommitAll&#40;&#41;\n   Else\n      MessageBox&#40;, &quot;Unable to save data&quot; , &quot;WARNING&quot;, &quot;OK&quot;&#41;\n   Endif\n\n   Chcust      &#58;= 0\n   CustAppnd    &#58;= &#46;F&#46;\n   ValueChanged &#58;= &#46;F&#46;\n   Success      &#58;= &#46;F&#46;\n\n   Customer-&gt;&#40;dbRUnLock&#40;&#41;&#41;\n   cAdnlCust-&gt;&#40;dbrUnLock&#40;&#41;&#41;\nReturn&#40;ButnStatus, nShortId, lShortPressed&#41;\n\n[/code:junxdqth]\n\nI have very much doubt that whether the above code will be readable or not. I did not found any other option to attach the same. I hope such option should be there. Waiting for early reply.\n\nThanks everybody.\nArindam\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'AIA=','junxdqth',1,0,'',705,0,0),(16615,3774,7,2,0,'87.218.146.134',1154499871,1,0,1,1,1,1,'','','Juan,\n\nTienes que controlar el codeblock bLClicked como se muestra en este ejemplo. El area sería de 40 x 20 pixeles:\n[code:gasdr65t]\n   oBmp&#58;bLClicked = &#123; | nRow, nCol | CompruebaArea&#40; nRow, nCol &#41; &#125;\n\n&#46;&#46;&#46;\n\nfunction CompruebaArea&#40; nRow, nCol &#41;\n\n   if nRow &gt; 10 &#46;and&#46; nRow &lt; 30 &#46;and&#46; nCol &gt; 10 &#46;and&#46; nCol &lt; 50  \n      MsgInfo&#40; &quot;Click!&quot; &#41;\n   endif\n   \nreturn nil      \n[/code:gasdr65t]','',0,'AIA=','gasdr65t',1,0,'',2,0,0),(16616,3743,7,2,0,'87.218.146.134',1154500911,1,0,1,1,1,1,'','','Juan,\n\nNo, de momento no se puede. En principio bastaría con asignarle un brush NULL a cada control, pero parece no funcionar en Pocket PC:\n[code:3o66ln3s]\n   @ 2, 2 CHECKBOX oCbx VAR lValor PROMPT &quot;Seleccione&quot; OF oBmp SIZE 80, 20\n   \n   oCbx&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41;\n[/code:3o66ln3s]','',0,'AIA=','3o66ln3s',1,0,'',2,0,0),(16617,3775,3,2,0,'87.218.146.134',1154501124,1,0,1,1,1,1,'','','Arindam,\n\nThere is extra code in your sample that should not be used as GETs are managed in a simpler way with FiveWin. \n\nPlease review samples\\TestGet2.prg to see how GETs work in FiveWin.','',0,'AIA=','2sivyr95',1,0,'',2,0,0),(16618,3772,2,2,0,'87.218.146.134',1154501271,1,0,1,1,1,1,'','','William,\n\nSi lo quieres enviar a un control determinado, haz: \n&lt;oControl&gt;:SetFocus()','',0,'AIA=','351cq7xx',1,0,'',2,0,0),(16619,3773,7,710,0,'195.5.90.62',1154501580,1,0,1,1,1,0,'','','Ok. Antonio, muchas gracias. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> . Todo correcto. \n\nSolo una cosa... Como puedo analizar mas a fondo todos los comandos, con los que trabajamos en fwppc, ya que tengo varios manuales y guia de programacion, pero cuando me asalta alguna duda de este tipo o como en la otra consulta del Boton transparente, siempre me encuentro con codigo nuevo que entonces intento analizar. ¿Existe otro manual?...\n\nOtra vez gracias, Antonio. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','2glq0r9w',1,0,'',710,0,0),(16620,3743,7,710,0,'195.5.90.62',1154502341,1,0,1,1,1,0,'','','Efectivamente, Antonio, no funciona. Esto creo que ya lo probe... Pero bueno, cambiarè la forma de hacer lo que quiero. Muchas gracias. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','46p3brwn',1,0,'',710,0,0),(16621,3733,5,355,0,'213.23.0.82',1154508628,1,0,1,1,1,0,'','error5','I try first the current FiveWin++ with Alaska 1.9. That came today straight. If that cannot be done place we over on Harbour. The problem is: approx.. 30 people work in the city administration Munich with the program and are sour. I the straight update ordered, could you please for it provide which I today the update get thanks','',0,'AIA=','17gj1ib3',1,0,'',355,0,0),(16622,3776,4,2,0,'87.218.146.153',1154508881,1,0,1,1,1,1,'','Folders with bottom tabs and flat style','There is a new FWPPC build already available with folders with bottom tabs and flat style support. It is as easy as using the BOTTOM clause. \n\nPlease review samples\\TestFldB.prg\n[url=http&#58;//imageshack&#46;us:1fsytoik][img:1fsytoik]http&#58;//img81&#46;imageshack&#46;us/img81/7931/folderskj4&#46;png[/img:1fsytoik][/url:1fsytoik]','',0,'GA==','1fsytoik',1,0,'',2,0,0),(16623,3777,7,2,0,'87.218.146.19',1154509431,1,0,1,1,1,1,'','Nuevo FWPPC build con folders con pestañas inferiores planas','Ya está disponible un nuevo build de FWPPC con soporte de folders con pestañas en zona inferior y planas. Es tan sencillo como especificar la claúsula BOTTOM.\n\nPor favor revisad el ejemplo samples\\TestFldB.prg\n[url=http&#58;//imageshack&#46;us:11rc6d3y][img:11rc6d3y]http&#58;//img81&#46;imageshack&#46;us/img81/7931/folderskj4&#46;png[/img:11rc6d3y][/url:11rc6d3y]','',0,'GA==','11rc6d3y',1,0,'',2,0,0),(16624,3774,7,710,0,'195.5.90.62',1154509697,1,0,1,1,1,0,'','ok','Antonio, funciona correctamente. <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nGracias','',0,'GA==','2lktmy3z',1,0,'',710,0,0),(16625,3778,16,2,0,'87.218.146.19',1154510154,1,0,1,1,1,1,'','New FWPPC with Folders with bottom tabs and flat style','There is a new FWPPC build already available with folders with bottom tabs and flat style support. It is as easy as using the BOTTOM clause. \n\nPlease review samples\\TestFldB.prg\n[url=http&#58;//imageshack&#46;us:142zcl1q][img:142zcl1q]http&#58;//img81&#46;imageshack&#46;us/img81/7931/folderskj4&#46;png[/img:142zcl1q][/url:142zcl1q]','',0,'GA==','142zcl1q',1,0,'',2,0,0),(16626,3697,4,2,0,'87.218.146.19',1154510268,1,0,1,1,1,1,'','','Pier,\n\nAlready implemented <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3778\">http://fivetechsoft.com/forums/viewtopic.php?t=3778</a><!-- m -->','',0,'GA==','313j9djb',1,0,'',2,0,0),(16627,3778,16,20,0,'82.57.157.145',1154513147,1,0,1,1,1,0,'','Re: New FWPPC with Folders with bottom tabs and flat style','Wonderful!\nMany thanks Antonio!\n\nRegards\n\nPier Luigi','',0,'GA==','1he6qphp',1,0,'',20,0,0),(16628,3733,5,2,0,'87.218.146.180',1154521855,1,0,1,1,1,1,'','','Carsten,\n\nAlready processed.\n\nYes, it is a very good idea to check with the most recent Xbase++ and FW++ code.','',0,'GA==','1tly1ic6',1,0,'',2,0,0),(16629,3779,2,711,0,'201.252.117.246',1154524850,1,0,1,1,1,0,'','ERROR : The temporal metafile could not be created','Hola a todos...\n\nAnte todo quiero saludarlos y anticipar las gracias para quien pueda ayudarme a resolver mi problema...\n\nPaso a explicarles...\n\nAl intentar imprimir utilizando la clase TPrinter, me da el siguiente error.\n\n[b:1q9z7ciw]The temporal metafile could not be created[/b:1q9z7ciw]\n\nc:\\windows\\temp\\tmp0001.wmf\n\ny obviamente no imprime...\n\nMuchas gracias a quien pueda ayudarme.','',0,'QA==','1q9z7ciw',1,0,'',711,0,0),(16630,3714,6,18,0,'200.67.188.236',1154526907,1,0,1,1,1,1,'','','[quote=&quot;Armando Picon&quot;:1bp7mgil]Gracias René\n\nVoy a probar el codigo que me enviaste. De superar los inconvenientes pienso que lo lógica evolución de estas rutinas sería el de poder leer nuestros correos directamente desde los servidores externos (hotmail, yahoo, etc) y almacenarlos en una base de datos para poder leerlos fuera sin estar conectados. Te parece ?\n\nArmando[/quote:1bp7mgil]\n\nUsando las clases TPop3 y TSMTP puedes leer cualquier cuenta de correo que soporte esos protocolos, también puedes tener acceso a servidores NTTP y hacer la descarga de todos los archivos adjuntos, sin importar del que tipo sean.\n\nLo único que me falto probar fue el acceso vía Http','',0,'gA==','1bp7mgil',1,0,'',18,0,0),(16631,3656,2,242,0,'81.45.227.110',1154526966,1,0,1,1,1,0,'','','Estás utilizando demasiados archivos .ch. Marca con un asterisco alguno que no utilices en fivewin.ch.\n\nUn saludo,\nFernando','',0,'gA==','3lscm62r',1,0,'',242,0,0),(16632,3668,2,147,0,'200.45.54.133',1154529509,1,0,1,0,1,1,'','','Gracias Antonio\nEsto es lo que obtuve:\n[list:30s590nu]\nvalores de stacksize:\n9748 o &lt;    * Error en el programa. Para mantenerlo funcionando...; pulsado Cerrar, aparece segunda ventana: Este programa a efectuado una operacion no valida... No muestra dato en Hoja\n\n9749-52     * Muestra datos en Hoja aunque sale: Este programa a efectuado una operacion no valida...\n\n9753 o &gt;    * Sale: Este programa a efectuado una operacion no valida...  No muestra dato en Hoja\n[/list:u:30s590nu]\nLei lo siguiente en el NG de BLinker ver 4.00\nFor CA-Clipper developers, a preferable way of increasing the stack size and therefore the maximum depth of procedure calls is to use the BLINKER PROCEDURE DEPTH command.\nBLINKER\'s default stack size when linking CA-Clipper programs is 5120 bytes,  which corresponds to a PROCEDURE DEPTH of approximately 50.\n\nAsi es que introduje valores de 60 a 80, para los valores entre 9749-52, aunque no cambió la respuesta.\n\nAlguna otra sugerencia? (aparte de cambiar a [x]Harbour :-)\n\ngracias','',0,'AEA=','30s590nu',1,0,'',147,0,0),(16633,3769,6,492,0,'201.154.126.49',1154529672,1,0,1,1,1,1,'','','Hola Patricio\n\nNo estaran las areas de impresion de las impresoras, un poco reducidas ?\n\nTan solo es un comentario  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos','',0,'AEA=','3bbdsgs9',1,0,'',492,0,0),(16634,3488,6,147,0,'200.45.54.133',1154532088,1,0,1,0,1,1,'','','Disculpen el O.T.; no se nada de C\nSe puede leer lo sigiuente de un archivo .rc (si el contenido fuera C), desde nuestros .prg?\n[code:tdwvfdkg]\n1 VERSIONINFO \nFILEVERSION 2, 52, 25\nPRODUCTVERSION 2, 52, 25\n&#123;\n BLOCK &quot;StringFileInfo&quot;\n &#123;\n  BLOCK &quot;040904E4&quot;\n  &#123;\n   VALUE &quot;Author&quot;, &quot;Ing&#46; Mario González\\000&quot;\n   VALUE &quot;CompanyName&quot;, &quot;Ideas &amp; Desarrollos\\000&quot;\n   VALUE &quot;FileDescription&quot;, &quot;Bancos &amp; Recursos\\000&quot;\n   VALUE &quot;FileVersion&quot;, &quot;rev&#46;2&#46;52&#46;25 &#40;build 07/06&#41;\\000&quot;\n   VALUE &quot;InternalName&quot;, &quot;mgbyr\\000&quot;\n   VALUE &quot;LegalCopyright&quot;, &quot;I&amp;D © 1989-2006\\000&quot;\n   VALUE &quot;ProductName&quot;, &quot;Bancos &amp; Recursos\\000&quot;\n   VALUE &quot;ProductVersion&quot;, &quot;rev&#46;2&#46;52&#46;25 &#40;build 07/06&#41;\\000&quot;\n   VALUE &quot;OriginalFilename&quot;, &quot;mgbyr&#46;exe\\000&quot;\n  &#125;\n\n &#125;\n\n BLOCK &quot;VarFileInfo&quot;\n &#123;\n  VALUE &quot;Translation&quot;, 2048, 1200\n &#125;\n\n&#125;[/code:tdwvfdkg]\n\ngracias','',0,'AIA=','tdwvfdkg',1,0,'',147,0,0),(16635,3765,1,47,0,'203.144.143.8',1154534634,1,0,1,1,1,0,'','Thanks a lot','Dear Enrico &amp; James,\n\nThanks a lot and I will try it.\n\nBest regards,\nDutch','',0,'AIA=','di8kpc6k',1,0,'',47,0,0),(16636,3772,2,375,0,'84.122.104.133',1154534731,1,0,1,1,1,1,'','','Claro, en lugar de oFld:aDialog[x]:aControls[y]:etc... simplemente: oFld:aControls[x]:etc... como un dialogo normal.','',0,'','217118f8',1,0,'',375,0,0),(16637,3771,2,375,0,'84.122.104.133',1154535077,1,0,1,1,1,1,'','','Ese es el pan nuestro de cada día. Fijate bien, bien, bien, con mucha atención, y te daras cuenta que los dos módulos no  son exactamente iguales. Ese pequeño detalle que has pasado por alto es el culpable. Una variable mal inicializada, una variable que cambia sin avisar al tomar foco un control. Una base de datos que se cierra antes de refrescar una pantalla que se cierra. Etc, etc, etc... Coge la lupa y... a buscar!\n\nDe todas formas, sin el código delante es imposible saber que es lo que te ocurre. Si no es muy largo pegalo un poco más abajo.\n\nSuerte.\n\nUn saludo.','',0,'','1lrky61b',1,0,'',375,0,0),(16638,3767,3,217,0,'200.159.120.34',1154535366,1,0,1,1,1,0,'','','Fivewin have a contrib class named TScanner. I think you can search for it in <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w --> site.\nIf you don\'t found it, email me that I will search in my olds FW\'s CD...\n\nRegards\nMaurilio','',0,'','3pubuapw',1,0,'',217,0,0),(16639,3770,3,148,0,'196.205.185.26',1154536470,1,0,1,1,1,0,'','','I am going to build a filter conditions . The previous message was for simplestic. What will be the solution for RDS and set scope with macro substiution . Thanks for help .\n[code:1lb2v3tv]\n For i &#58;= 1 to 12\n\n     IF Empty&#40;a2_Vars&#91;i&#93;&#41;     &amp;&amp; Don\'t process empty variables\n         LOOP\n     ENDIF\n\n     DO CASE            &amp;&amp; Create char value\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==11\n                 cValue&#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &gt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==12\n                 cValue &#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &lt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;N&quot;\n             cValue &#58;= \'STR&#40;\' + a2_Fields&#91;i&#93; + \'&#41; == &quot;\' + STR&#40;a2_vars&#91;i&#93;&#41; + \'&quot;\'       &amp;&amp; or\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;C&quot;\n             cValue &#58;=&quot;alltrim&#40;upper&#40;&quot;+ a2_Fields&#91;i&#93;+&quot;&#41;&#41;&quot; + \'==&quot;\' + alltrim&#40;upper&#40;a2_Vars&#91;i&#93;&#41;&#41; + \'&quot;\'\n     ENDCASE\n     IF Empty&#40;cFilter&#41;     &amp;&amp; this is the first element\n         cFilter &#58;=  cValue\n     ELSE\n         cFilter += &quot; &#46;AND&#46; &quot; + cValue\n     ENDIF\n NEXT\n\n set filter to &amp;&#40;cFilter&#41;\n\n\n[/code:1lb2v3tv]','',0,'AIA=','1lb2v3tv',1,0,'',148,0,0),(16640,3733,5,355,0,'213.23.0.82',1154536676,1,0,1,1,1,0,'','error5','Antonio, \nThank you for the fast reactions. The Progamm runs already with fiveWin++ 2,7 and Alaska 1.9. So far no problems and stably. Tomorrow we will test and will report it afterwards here in the customer environment. Again, thank you\n\nGrüße Carsten','',0,'AIA=','1oh9bhlq',1,0,'',355,0,0),(16641,3770,3,6,0,'87.17.226.54',1154537013,1,0,1,1,1,1,'','','Try using a conditional index:\n\nINDEX ON yourkey TO temp FOR &amp;(cFilter)\n\nEMG','',0,'AIA=','1tc7iafu',1,0,'',6,0,0),(16642,3767,3,6,0,'87.17.226.54',1154537074,1,0,1,1,1,1,'','','But it is for 16 bit only, or am I wrong?\n\nEMG','',0,'AIA=','zo9yy36m',1,0,'',6,0,0),(16643,3767,3,61,0,'201.217.172.168',1154537165,1,0,1,1,1,0,'','','Areang:\n\nHere in Fivewin-&gt;Utilities you can find it.\n\nLook for TheFull Clases de Rafa Carmona  TScan32.\n\nBest regards\n\nRuben Fernandez.','',0,'AIA=','1666ct0r',1,0,'',61,0,0),(16644,3771,2,138,0,'201.128.111.188',1154537617,1,0,1,1,1,1,'','','En el modulo que tiene el error se te olvido incluir el VKEY.CH:\n\n#include \"vkey.ch\"\n\nSeguramente estas compilandolo con una version \"recortada\" del FIVEWIN.CH','',0,'AIA=','31maiql2',1,0,'',138,0,0),(16645,3770,3,148,0,'196.205.185.26',1154537850,1,0,1,1,1,0,'','','My key is varied depend on the conditions of the filter.','',0,'AIA=','bwbbv1uf',1,0,'',148,0,0),(16646,3760,3,148,0,'196.205.185.26',1154537936,1,0,1,1,1,0,'','','how can I put the code clock inside msgrun the run :\n? recno()/reccnount()\n\nor Even How can I use it with the message bar ?','',0,'AIA=','18zfb2ug',1,0,'',148,0,0),(16647,3656,2,138,0,'201.128.111.188',1154538167,1,0,1,1,1,1,'','','Tienes que \"capar\" (con perdon) el archivo FIVEWIN.CH\n\nEl problema se debe a que Clipper, al ser una aplicacion DOS de 16 bits, siempre compila sobre los primeros 64 kbytes de memoria RAM. Esto ocasiona que solo dispongas de esa cantidad de memoria para compialr cada programa. \n\nEl error que mencionas se debe a que tienes demasiados archivos INCLUDE que se estan acabando la memoria que tienes disponible para compilar, obviamente esto en Harbour no sucede, no hay limitaciones de memoria en compilacion, pero eso es harina de otro costal.\n\nLa solucion es editar el FIVEWIN.CH y quitar de este algunos INCLUDE que no estes utilizando, lo mas comun es quitar OBJECTS.CH, DDE.CH, para quitarlos simplmente pon entre comentarios las lineas donde se hace la llamada al INCLUDE.\n\nOJO, el quitar alguno de estos componentes hace que algunos comandos no esten disponibles, revisa que los archivos que quitas no tengan comandos que utilices en tu programa','',0,'AIA=','18vk77bg',1,0,'',138,0,0),(16648,3760,3,303,0,'72.199.41.171',1154538671,1,0,1,1,1,0,'','','cReccount:= reccount()\n\nDO WHILE ! eof()\n \n  wndMain():oMsgBar:setMsg( \"Processing record \"+ trim(str(recno()))+\"/\"+cReccount )','',0,'AIA=','2fnx3gf2',1,0,'',303,0,0),(16649,3780,2,52,0,'200.127.195.89',1154538897,1,0,1,1,1,1,'','Cómo compilar codigo C...','Amigos,\n\nTengo un proyecto que tiene un .prg y un .c, ahora bien, quiero compilar usando xMate y no puedo, entonces quiero:\n\nAlguien tiene algun .bat en donde pueda ver como se compila estos fuentes?\n\nGracias,','',0,'AIA=','22dd5i47',1,0,'',52,0,0),(16650,3770,3,303,0,'72.199.41.171',1154539010,1,0,1,1,1,0,'','','Enrico was suggesting that you build a conditional index after the condition has been defined. This is useful if you are going to browse the resulting records as the browse will be much faster since the index is already built.\n\nHowever, in your case you are only processing the recordset once so building the index will not speed it up. Either way the entire database has to be read once. \n\nThe only way to speed up a filter is to use a client/server system as Rene suggested.\n\nJames','',0,'AIA=','2cr8mqvm',1,0,'',303,0,0),(16651,3488,6,2,0,'87.218.146.202',1154542615,1,0,1,1,1,1,'','','Mario,\n\nSe hace como se describe en esta página:\n<!-- m --><a class=\"postlink\" href=\"http://vcfaq.mvps.org/sdk/3.htm\">http://vcfaq.mvps.org/sdk/3.htm</a><!-- m -->\n\nVamos a construir un ejemplo.','',0,'AIA=','2yfj2de4',1,0,'',2,0,0),(16652,3781,2,52,0,'200.127.195.89',1154544296,1,0,1,1,1,1,'','Conexion entre dos app por medio de internet','Amigos,\n\nNecesito hacer:\n\n[quote:a1vxfk4r]CAMPO1 de DBF1 ---------- &gt;&gt;&gt;&gt; INTERNET ACTUALIZAR --------&gt;&gt;&gt;&gt; CAMPO1 de DBF2[/quote:a1vxfk4r]\n\nCon que se lo hace?\n\nGracias.','',0,'gA==','a1vxfk4r',1,0,'',52,0,0),(16653,3760,3,41,0,'200.87.67.10',1154545263,1,0,1,1,1,0,'','','Hola,\n\nyou can use\n\nDEFINE DIALOG oDlg .....\n\n\nACTIVATE DIALOG  oDlg.. NOWAIT\n\n  process ...... n/m\n\noDlg:end()','',0,'gA==','1v6tu82j',1,0,'',41,0,0),(16654,3782,1,47,0,'203.144.143.8',1154545635,1,0,1,1,1,0,'','What is the item number in the Twbrowse()?','Dear All,\n\nHow can I get item number in the Twbrowse as :nLogicPos() of TSbrowse().\n\nBest regards,\nDutch','',0,'gA==','7wuaufg8',1,0,'',47,0,0),(16655,3783,6,396,0,'201.210.128.54',1154545740,1,0,1,1,1,1,'','Llenar 1 arreglo desde una DBF','Tengo la siguiente necesidad, estoy diseñando 1 sistema de FACTURACION y necesito bajo ciertas condiciones crear 1 matriz o arreglo con los registros que cumplan condicion dada y luego mostrar esos datos en 1 oListBox o oBrw, ya que no debo tocar los datos de la .DBF original hasta que el usuario cree o modifique campos del producto que se vende, lo que no se que es mejor si hacerlo a traves de una .DBF temporal que llene con los datos o desde el array? opiniones y sugerencias son BIENVENIDAS, si es desde el array como lo cargo y leo para modificar los datos si es necesario, si hay algun ejm, sera super bien recibido, gracias desde ya. FWH2.4+(x)HARBOUR+VERCE. <!-- e --><a href=\"mailto:joseluisysturiz@yahoo.com\">joseluisysturiz@yahoo.com</a><!-- e -->','',0,'gA==','t487zu0g',1,0,'',396,0,0),(16657,3784,6,18,0,'200.67.188.236',1154547619,1,0,1,1,1,1,'','','¡¡¡ Impresionante !!! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','u25qs3po',1,0,'',18,0,0),(16658,3120,7,2,0,'87.218.146.202',1154548701,1,0,1,1,1,1,'','','Rogerio,\n\nCual es tu idea, mostrar los tooltips cuando los controles toman el foco ?\n\nPiensa que para poder usar el evento de movimiento del puntero, este tendría que estar pulsado sobre la pantalla y desplazarse manteniéndolo pulsado.','',0,'gA==','1h8gc1at',1,0,'',2,0,0),(16659,3785,6,104,0,'201.58.37.151',1154548713,1,0,1,1,1,0,'','Dialog foi fechada com ESCAPE ou &lt;X&gt; ?','Olá,\n\nComo faço para saber se a dialog esta sendo encerrada pela tecla ESCAPE ou pelo click no botão &lt;X&gt; da dialog ?\n\nVeja o exemplo abaixo:\n\n[code:kt9vxpxm]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg\n\n   ACTIVATE DIALOG oDlg CENTERED VALID SAIDA&#40; oDlg &#41;\n\nreturn nil\n\nfunction SAIDA&#40; oDlg &#41;\n\nif getkeystate&#40; VK_ESCAPE &#41;\n   msgstop&#40; &quot;Estou encerrando pela tecla ESC !!!&quot; &#41;\nendif\n\nif oDlg&#58;isbutonclose&#40;&#41;  &lt;&lt;&lt;---- Como testar isto ???\n   msgstop&#40; &quot;Estou encerrando pelo click em &lt;X&gt; !!!&quot; &#41;\nendif\n\nreturn &#46;T&#46;\n[/code:kt9vxpxm]\nObrigado,\n\nRossine.','',0,'AIA=','kt9vxpxm',1,0,'',104,0,0),(16660,3783,6,39,0,'201.220.111.19',1154548734,1,0,1,1,1,0,'','','Hola Jose Luis,\n\n Segun mi experiencia deberias usar un arreglo, primero por que es mas rapido, y segundo su manejo es mas simple.\n\n\n\nAtte,\nLautaro','',0,'AIA=','1lwmwzag',1,0,'',39,0,0),(16661,3782,1,6,0,'87.17.226.54',1154549199,1,0,1,1,1,1,'','Re: What is the item number in the Twbrowse()?','Try oBrw:nRowPos.\n\nEMG','',0,'AIA=','zzs9tmyp',1,0,'',6,0,0),(16662,3785,6,2,0,'87.218.146.202',1154549519,1,0,1,1,1,1,'','','Rossine,\n\nPuedes hacerlo así:\n[code:2crqmqxn]\nfunction SAIDA&#40; oDlg &#41; \n\n   if getkeystate&#40; VK_ESCAPE &#41; \n      msgstop&#40; &quot;Estou encerrando pela tecla ESC !!!&quot; &#41; \n   else\n      MsgInfo&#40; &quot;cerrado de otra forma&quot; &#41;   \n   endif \n\nreturn &#46;T&#46;\n[/code:2crqmqxn]','',0,'AIA=','2crqmqxn',1,0,'',2,0,0),(16663,3780,2,2,0,'87.218.146.202',1154549655,1,0,1,1,1,1,'','','Gustavo,\n\nRevisa fwh\\makes\\bormake.zip','',0,'AIA=','2hbnpki3',1,0,'',2,0,0),(16664,3783,6,492,0,'201.154.126.49',1154549707,1,0,1,1,1,1,'','','Hola Jose Luis, coincido con Lautaro, trabajo mas a gusto con Arrays  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nTe envie un pequeño ejemplo a tu correo, checalo.\n\n\nSaludos','',0,'AIA=','uo7osyax',1,0,'',492,0,0),(16665,3780,2,52,0,'200.127.195.89',1154549804,1,0,1,1,1,1,'','','Antonio,\n\nPero es para FiveWin comun y corriente no para el FiveWinHarbour.\n\nGracias.','',0,'AIA=','1nj39yun',1,0,'',52,0,0),(16666,3656,2,304,0,'201.155.7.216',1154552955,1,0,1,1,1,0,'','','Gracias Fernando y Rene, lo interare asi les aviso que paso, saludos\nVeracruz, Mexico','',0,'AIA=','1ynt02s2',1,0,'',304,0,0),(16667,3778,16,224,0,'162.83.94.176',1154553520,1,0,1,1,1,1,'','','Yes, Antonio many thanks from me too!','',0,'AIA=','2yf6yui7',1,0,'',224,0,0),(16668,3786,4,665,0,'200.122.153.234',1154554586,1,0,1,1,1,0,'','SQL  y consejos  ayuda soy nuevo en esto','Hola , un saludito a todos , y desearia saber 3 consillas a ver,\n\nNecesito  tabajr en SQl y  si es posibible ver algunos ejemplos de codigo  donde pueda observar los ejemplos de crear tablas dentro de una base de datos y  los movimientos de  editar, borrar, incluir, asi como la coneccion. \nHE estado leyendo un poco de Literatura y veo que algunsa cosillas quedan un poco oscuras. \n\nEN mi hosting tengo Mysql, ademas de apache  ...\n\nNEcesito crear un   Base de datos el el hosting y una  serie de tablas   ,  de ahi  hacer un pequeño sistema de reservas que seran leido por mi sistema principal. \n\nCualquier ayuda  por simple que sea sera agradecido de antemano\n\nBusmatic\nOscar Chacon','',0,'AIA=','a0z5d8n7',1,0,'',665,0,0),(16669,3120,7,274,0,'200.171.179.156',1154556323,1,0,1,1,1,0,'','','Antonio\n\nTenho este menu feito com bitmaps\n[img:x5gqcg0c]http&#58;//softservice&#46;com/cpp/pedido&#46;jpg[/img:x5gqcg0c]\n\nPreciso que quando o ponteiro do mouse passe sobre o bitmap mostre ao usuário a função do controle \n\nSemelhante ao que ocorre na aplicação em FWH:\n\nDEFINE BUTTON FILE \"fornec.bmp\" OF oBar ACTION fornec_scr() TOOLTIP  \"Fornecedores\"\n\n[]\'s\nRogerio','',0,'CA==','x5gqcg0c',1,0,'',274,0,0),(16670,3783,6,439,0,'190.0.132.39',1154557449,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:3patu3tu]Hola Jose Luis, coincido con Lautaro, trabajo mas a gusto con Arrays  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nTe envie un pequeño ejemplo a tu correo, checalo.\n\n\nSaludos[/quote:3patu3tu]\n\nRaymundo te importaría mandarme ese ejemplo para verlo, yo también tendré que hacer algo parecido.\n\n<!-- e --><a href=\"mailto:jmurugosa@hotmail.com\">jmurugosa@hotmail.com</a><!-- e -->\n\nGracias desde ya.','',0,'gA==','3patu3tu',1,0,'',439,0,0),(16671,3120,7,2,0,'87.218.146.202',1154557485,1,0,1,1,1,1,'','','Rogerio,\n\nPero el puntero tendrá que estar pulsado, con lo que el botón sobre el que pase por encima, se pulsará. Entiendes lo que quiero decir ?\n\nEl Pocket PC real es distinto al emulador en esto. En el emulador hay un cursor de ratón. En el Pocket PC real no. Hay un puntero, un lapiz, que ha de pulsarse y moverlo, para que pudiese mostrarse algo, pero los botones se pulsarían al pasar el puntero sobre ellos.','',0,'gA==','vj6ttxk0',1,0,'',2,0,0),(16672,3787,6,665,0,'200.122.153.234',1154557799,1,0,1,1,1,0,'','Ayuda SQL no se nada y deseo aprender','Hola , un saludito a todos , y desearia saber 3 consillas a ver, \n\nNecesito tabajr en SQl y si es posibible ver algunos ejemplos de codigo donde pueda observar los ejemplos de crear tablas dentro de una base de datos y los movimientos de editar, borrar, incluir, asi como la coneccion. \nHE estado leyendo un poco de Literatura y veo que algunsa cosillas quedan un poco oscuras. \n\nEN mi hosting tengo Mysql, ademas de apache ... \n\nNEcesito crear un Base de datos el el hosting y una serie de tablas , de ahi hacer un pequeño sistema de reservas que seran leido por mi sistema principal. \n\nCualquier ayuda por simple que sea sera agradecido de antemano \n\nBusmatic \nOscar Chacon','',0,'gA==','kdmpigma',1,0,'',665,0,0),(16673,3120,7,274,0,'200.171.179.156',1154558438,1,0,1,1,1,0,'','','Antonio\n\nSim entendi o que dizes.\n\nEntão para executar a aplicação relacionada ao bitmap precisaria \"dois cliques\" com o ponteiro e \"um clique\" mostraria o tooltip, certo?\n\n\n[]\'s\n\nRogerio','',0,'','1us5rgjt',1,0,'',274,0,0),(16674,3784,6,54,0,'201.98.181.112',1154561343,1,0,1,1,1,1,'','Re: Acceso a WMI desde FWH','osKar,\n\nComo siempre.\n\nImpresionante.\n\nSaludos','',0,'','2g6thpb7',1,0,'',54,0,0),(16675,3714,6,376,0,'201.230.30.109',1154562229,1,0,1,1,1,0,'','','Y como lo hiciste... tienes ejemplos o codigos para eso?\n\nSi los tuvieras y quisieras compartirlo a mi correo, por fa´\n<!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e -->\n\n[quote=&quot;Vikthor&quot;:2dkxyn8q][quote=&quot;Armando Picon&quot;:2dkxyn8q]Gracias René\n\nVoy a probar el codigo que me enviaste. De superar los inconvenientes pienso que lo lógica evolución de estas rutinas sería el de poder leer nuestros correos directamente desde los servidores externos (hotmail, yahoo, etc) y almacenarlos en una base de datos para poder leerlos fuera sin estar conectados. Te parece ?\n\nArmando[/quote:2dkxyn8q]\n\nUsando las clases TPop3 y TSMTP puedes leer cualquier cuenta de correo que soporte esos protocolos, también puedes tener acceso a servidores NTTP y hacer la descarga de todos los archivos adjuntos, sin importar del que tipo sean.\n\nLo único que me falto probar fue el acceso vía Http[/quote:2dkxyn8q]','',0,'gA==','2dkxyn8q',1,0,'',376,0,0),(16676,3674,6,376,0,'201.230.30.109',1154562970,1,0,1,1,1,0,'','','Julio\n\nEs posible que te sirva lo que en su momento escribí para empaquetador de Instaladores. Puedes compilarlo con la versión que quieras de (x)Harbour a condición que soporte hzlib.\n\nEl enlace en HyperUpLoad es el siguiente\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0262576669/zipper.zip.html\">http://hyperupload.com/download/0262576 ... r.zip.html</a><!-- m -->\n\nAtentamente \n\nArmando','',0,'gA==','3t4e2is4',1,0,'',376,0,0),(16677,3787,6,54,0,'201.98.181.112',1154563133,1,0,1,1,1,1,'','Re: Ayuda SQL no se nada y deseo aprender','[quote=&quot;busmatic&quot;:7go9pq77]Hola , un saludito a todos , y desearia saber 3 consillas a ver, \n\nNecesito tabajr en SQl y si es posibible ver algunos ejemplos de codigo donde pueda observar los ejemplos de crear tablas dentro de una base de datos y los movimientos de editar, borrar, incluir, asi como la coneccion. \nHE estado leyendo un poco de Literatura y veo que algunsa cosillas quedan un poco oscuras. \n\nEN mi hosting tengo Mysql, ademas de apache ... \n\nNEcesito crear un Base de datos el el hosting y una serie de tablas , de ahi hacer un pequeño sistema de reservas que seran leido por mi sistema principal. \n\nCualquier ayuda por simple que sea sera agradecido de antemano \n\nBusmatic \nOscar Chacon[/quote:7go9pq77]\n\nOscar,\n\nHay varias LIB para conectar a MySQL:\n  Eagle1\n  FCSODBC\n  Condor\n  SQLRDD\n  TMysqlServer\n  ADO\n\nY que tienes que utilizar para crear bases de datos y tablas, pues lo siguiente:\n  MySQLBrowser   (<!-- w --><a class=\"postlink\" href=\"http://www.mysql.com\">www.mysql.com</a><!-- w -->)\n  MySQLAdministrator  (<!-- w --><a class=\"postlink\" href=\"http://www.mysql.com\">www.mysql.com</a><!-- w -->)\n\nSon excelentes herramientas y disponibles de la página del autor.\n\nPD. Ejemplos, deja buscarlos, por ahi debo de tener algunos.\n\nMi MSN es: <!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e -->, por si necesita ayuda adicional.\n\nSaludos','',0,'gA==','7go9pq77',1,0,'',54,0,0),(16678,3723,6,376,0,'201.230.30.109',1154563221,1,0,1,1,1,0,'','','Continúo...\n\nA pesar de lo dicho anteriormente; bájate este codigo desde HyperUpload y aquí está el enlace.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0262576669/zipper.zip.html\">http://hyperupload.com/download/0262576 ... r.zip.html</a><!-- m -->\n\nEs el codigo fuente de una aplicación que hice (y que me falta concluir por algunas cosillas que allí mismo lo explico) para poder compactar archivos que serían utilizados durante la instalación de software.\n\nEs libre totalmente y si haces modificaciones, favor de compartirlos con los miembors del foro.\n\nAtentamente\n\nArmando','',0,'gA==','3v696tk3',1,0,'',376,0,0),(16679,3788,6,376,0,'201.230.30.109',1154563673,1,0,1,1,1,0,'','Codigo para compactar archivos - Ejemplo','A todos los del foro; acabo de subier a hyperUpload el codigo de una apliación que hice para compactar archivos con la librería hzlib de (x)Harbour.\n\nEl enlace es el siguiente:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0262576669/zipper.zip.html\">http://hyperupload.com/download/0262576 ... r.zip.html</a><!-- m -->\n\nEl favor que les pido es que lo completen y me alcancen las rutinas modificadas. Hay que hacer notar que posiblemente no corra en Clipper porque fué diseñada preferentemente para harbour... pero la idea es la misma.\n\nSaludos\n\nArmando','',0,'gA==','1t6eo327',1,0,'',376,0,0),(16680,3781,2,138,0,'201.128.111.188',1154564347,1,0,1,1,1,1,'','','Con Advantage Internet Server:\n\nAqui esta el ejemplo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/aiswin32.zip\">http://www.google.d2g.com/ads/demos/aiswin32.zip</a><!-- m -->\n\nTodos los DBFs estan en nuestro servidor en Ciudad de Mexico, si notas cierta demora es por los saltos que tienes que dar para llegar hasta aqui.\n\nDentro de tu propio pais funcionaria como si estuvieras en la red local.','',0,'gA==','3v7py0i0',1,0,'',138,0,0),(16681,3783,6,661,0,'201.123.184.199',1154566568,1,0,1,1,1,0,'','','ahi te va lo que hago yo:\n\n      @ 94,06 LISTBOX agets[4] FIELDS \"\";             HEADERS \"CLAVE\",\"ARTICULO\",\"ENTRADAS\",\"SALIDAS\",\"COSTO\";\n              FIELDSIZES 60,160,80,80,60 PIXEL SIZE 265,70\n\n              agets[4]:bLine:= {|nAt| nAt:= agets[4]:nAt,;\n                                If( Len(aDatosh)&lt;1 .or. nAt&gt;Len(aDatosh),;\n                                  Array(5),;\n                                  { aDatosh[nAt,1],;\n                                    aDatosh[nAt,2],;\n                                    transform(aDatosh[nAt,3],\'99,999,999.99\'),;\n                                    transform(aDatosh[nAt,4],\'99,999,999.99\'),;\n                                    transform(aDatosh[nAt,5],\'99,999,999.99\')})}\n                                    \n                agets[4]:SetArray( aDatosh )','',0,'','9ym7yzas',1,0,'',661,0,0),(16682,3771,2,708,0,'201.246.6.4',1154572695,1,0,1,1,1,0,'','Gracias Maestro Tienes Razon.. asi fue','Saludos, Rene, asi fue me faltaba Vkey.ch, porque me hablas de una version \"recortada\", tengo todo lo necesario???','',0,'','362g2uzd',1,0,'',708,0,0),(16683,3782,1,47,0,'203.144.143.5',1154573149,1,0,1,1,1,0,'','oBrw:nRowPos doesn\'t work.','Dear Enrico,\n\nI try the following but it shows error because while define oBrw is not exist (I think).\n\n@  0, 0 LISTBOX oBrw FIELDS str( oBrw:nRowPos ,3), ;				   TRN-&gt;TRN_OUTLET, TRN-&gt;TRN_TBL, TRN-&gt;TRN_ORDER, TRN-&gt;TRN_DESC, TRN-&gt;TRN_TIME, Str(TRN-&gt;TRN_QTTY,3) ;\n                         HEADERS \'Item\', \'Outlet\', \'Table No.\',\'Order No.\', \'Description\', \'Time\', \'Qty.\' ;\n                         FIELDSIZES 20, 70, 60, 100, 350, 100, 60 ;\n                         SIZE 895, 675 ;\n                         PIXEL ;\n                         OF oWnd\nBest regards,\nDutch','',0,'','23fc6pi9',1,0,'',47,0,0),(16684,3700,3,419,0,'198.54.202.234',1154586075,1,0,1,1,1,0,'','','Hi Antonio,\n\nSorry to worry you with this again but I have (finally) received a reply from Ron Pinkas at xHB and his response was (and I quote):\n\n\"This suggests you need to rebuild FiveHMX.lib\"\n\nWhat do you make of this?\n\nI don\'t understand why I would have to rebuild FiveHMX.lib.\n\nI mean to say that Window.obj in the library is quite an important module (is it not) and I find it hard to believe that these are the only two functions contained in Window.obj that are being used by my application and these seem to be the only two problems that I have (at the moment anyway).\n\nNotwithstanding that fact the last xHB Project File available on the xHB Website is for rebuilding the April 2005 release of FiveHMX.lib.\n\nI don\'t understand any of this and do not know where to go from here.\n\nRegards,\n\nDale.','',0,'','5timpikk',1,0,'',419,0,0),(16685,3488,6,2,0,'87.218.146.202',1154586620,1,0,1,1,1,1,'','','Mario,\n\nAquí está el ejemplo, desarrollado por un buen amigo nuestro y usando un RC desarrollado por nosotros con el editor de recursos de PellesC:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0211476e99/filever.zip.html\">http://hyperupload.com/download/0211476 ... r.zip.html</a><!-- m -->','',0,'','2mfn0rmq',1,0,'',2,0,0),(16686,3120,7,2,0,'87.218.146.202',1154586850,1,0,1,1,1,1,'','','Rogerio,\n\nHemos investigado y Windows Mobile no tiene soporte nativo de tooltips, es decir, habría que simularlos como hacemos en FW 16 bits.\n\nPrimero tenemos que conseguir implementar una simulación de tooltips y luego podríamos hacer que se mostrasen en los controles al tomar el foco.\n\nDe todas formas lo primero es implementar una simulación. No podemos asegurarte cuanto tiempo precisamos para hacerlo.','',0,'','17yqxmhk',1,0,'',2,0,0),(16687,3656,2,2,0,'87.218.146.202',1154587054,1,0,1,1,1,1,'','','Tienes varias formas de solucionarlo: \n\n1. Si tienes a mano Clipper 5.2, puedes usarlo para compilar en vez de usar 5.3, ya que su capacidad de preprocesado es mayor. Luego puedes enlazar con las librerías de 5.3 sin problemas. \n\n2. Puedes evitar incluir algunos de los ficheros de cabecera que usa FW, para no consumir tanta memoria de preprocesado. Para conseguir esto pasa este parámetro /dCLIPPER501 al llamar a Clipper: \n\nclipper myapp.prg /n /dCLIPPER501 \n\n3. En vez de usar rmake.exe de Clipper que consume mucha memoria y se la quita a Clipper.exe, usa el maker.exe de Borland que permite liberar toda la memoria antes de llamar a Clipper.exe','',0,'','2n0gx13e',1,0,'',2,0,0),(16688,3700,3,2,0,'87.218.146.202',1154589082,1,0,1,1,1,1,'','','Dale,\n\nWe are doing some tests here. We answer you asap.','',0,'','3lgmas3u',1,0,'',2,0,0),(16689,3789,3,49,0,'62.13.172.78',1154589252,1,0,1,1,1,1,'','sample for tpv','Any one can write to me an small sample to make a mini TPV  with a browse ?\nI made buttons of products when I click on it must insert a record on listbox ( cod,desc,price,cat)\n\nregards','',0,'','447ko7wh',1,0,'',49,0,0),(16690,3674,6,2,0,'87.218.146.202',1154589470,1,0,1,1,1,1,'','','Julio,\n\n&gt; pero sobre todo ahora, la rutina de realizar respaldos no me funciona\n\nHas probado a extraer ese código y construirlo aisladamente de tu aplicación y ver si te funciona ?\n\nSimilar a lo que has hecho con el ejemplo de xharbour, pero usando tu código.','',0,'','1p9pb4as',1,1182208554,'',2,1,0),(16691,3782,1,388,0,'202.152.170.254',1154589658,1,0,1,1,1,0,'','oBrw:nRowPos doesn\'t work','Dear Dutch\n\ntry this TRANSFORM(obrw:nat,\'999\')\n\nregards,\n\nKok','',0,'','xug6ez34',1,0,'',388,0,0),(16692,3782,1,2,0,'87.218.146.202',1154589712,1,0,1,1,1,1,'','','Duth,\n\nTry this:\n[code:3ql5cktm]\n@ 0, 0 LISTBOX oBrw FIELDS &quot;&quot; ; \nHEADERS \'Item\', \'Outlet\', \'Table No&#46;\',\'Order No&#46;\', \'Description\', \'Time\', \'Qty&#46;\' ; \nFIELDSIZES 20, 70, 60, 100, 350, 100, 60 ; \nSIZE 895, 675 ; \nPIXEL ; \nOF oWnd\n\noBrw&#58;bLine = &#123; || &#123; str&#40; oBrw&#58;nRowPos ,3&#41;, ; TRN-&gt;TRN_OUTLET, TRN-&gt;TRN_TBL, TRN-&gt;TRN_ORDER, TRN-&gt;TRN_DESC, TRN-&gt;TRN_TIME, Str&#40;TRN-&gt;TRN_QTTY,3&#41; &#125; &#125;\n[/code:3ql5cktm]','',0,'AIA=','3ql5cktm',1,0,'',2,0,0),(16693,3790,20,49,0,'62.13.172.78',1154590031,1,0,1,1,1,1,'','creazione bottoni da dbf','il problema è semplice :\nHo un archivio di prodotti ed ogni prodotto devo associarli ad un bottone per esempio\n\ncodice : caffe\narticolo: caffe espresso\nprezzo: 0.80\nbottone: 3\nreparto : bar\n\n\ne qui è tutto chiaro però....\n\nin una finestra oWnd  devo creare i bottoni ( ogni bottone è associato un numero inizialmente e poi lo associerò all\'articolo relatiivo) ad esempio il bottone n. 3 avra\' il prompt \"Caffe\'\"\n\nil problema che non so come fare poi per associare il bottone all\'articolo in modo che quando premo quel bottone mi prenda dall\'archivio quell\'articolo....\n\nil secondo problema  è che nella finestra non posso visualizzare tutti i bottoni ma solo una parte diciamo 40 disposti in 4 file ovviamente da 10\ne poi avevo pensato di metere altri 4 bottoni per cambiare pagina cioè  il primo bottone visualizzerà i primi 40 bottoni , il secondo dal 41 al 80, il terzo dal 81 al 120 e cosi via.\n\necco non saprei come fare  tutti i bottoni in modo da cambiare pagina  non so se mi sono spiegato...bene\n\n\ngrazie','',0,'AIA=','2nhlo1nn',1,0,'',49,0,0),(16694,3787,6,2,0,'87.218.146.202',1154590315,1,0,1,1,1,1,'','','Oscar,\n\n&gt; En mi hosting tengo Mysql, ademas de apache ... \n\nEntonces lo más probable es que tambien tengas accesible phpMyAdmin ó similar en tu hosting. Crea una base de datos y busca la opción de administrarla desde página web.\n\nLo bueno de estas herramientas es que puedes realizar acciones desde opciones de menú, y ellas te muestran el código que ejecutan, con lo que es facilísimo ver como se trabaja con sentencias SQL.','',0,'AIA=','1sz1lt9d',1,0,'',2,0,0),(16695,3786,4,2,0,'87.218.146.202',1154590549,1,0,1,1,1,1,'','','Oscar, \n\n&gt; En mi hosting tengo Mysql, ademas de apache ... \n\nEntonces lo más probable es que tambien tengas accesible phpMyAdmin ó similar en tu hosting. Crea una base de datos y busca la opción de administrarla desde página web. \n\nLo bueno de estas herramientas es que puedes realizar acciones desde opciones de menú, y ellas te muestran el código que ejecutan, con lo que es facilísimo ver como se trabaja con sentencias SQL.','',0,'AIA=','26nhn3zm',1,0,'',2,0,0),(16696,3777,7,262,0,'87.235.159.190',1154593331,1,0,1,1,1,1,'','','Gracias por esta mejora , para mi es una muy buena noticia. \nBuen trabajo','',0,'AIA=','3graki99',1,0,'',262,0,0),(16697,3700,3,419,0,'198.54.202.226',1154593811,1,0,1,1,1,0,'','','Thanks - I know that I can rely on FWH!\n\nRegards,\n\nDale.','',0,'AIA=','wkicxger',1,0,'',419,0,0),(16698,3791,7,262,0,'87.235.159.190',1154595103,1,0,1,1,1,1,'','se quedo en el tintero ?','el ejemplo testfldb que comenta Antonio , se quedo en el tintero y no se incluyo en el ultimo build ? . \nA mi no me aparece .\nPor otro lado el folder con botones abajo , funciona el dialogos ? , ( con recursos ) .\nSe agradece un ejemplo de esto si funciona .\nsaludso.','',0,'AIA=','2ei55lg8',1,0,'',262,0,0),(16699,3792,3,707,0,'222.124.20.50',1154596862,1,0,1,1,1,0,'','How to use Free TWAIN_32.dll','Hello !\n\nI found for twain driver at :\n\n<!-- m --><a class=\"postlink\" href=\"http://nt.twain.org/database/search.asp\">http://nt.twain.org/database/search.asp</a><!-- m -->\n\nmany files there for use with application \n\nBut all code written with C :\n\n/*\n* File: scanner.c\n* Company: TWAIN Working Group, JFL Peripheral Solutions Inc.\n* Author: Jon Harju\n* Description:\n*		Simulates basic scanner operations\n*\n*	Copyright © 1998 TWAIN Working Group: Adobe Systems Incorporated, \n*	Canon Information Systems, Eastman Kodak Company, \n*	Fujitsu Computer Products of America, Genoa Technology, \n*	Hewlett-Packard Company, Intel Corporation, Kofax Image Products, \n*	JFL Peripheral Solutions Inc., Ricoh Corporation, and Xerox Corporation.  \n*	All rights reserved.\n*/\n\n#include &lt;windows.h&gt;\n#include &lt;windowsx.h&gt;\n\n#include \"..\\\\twcommon\\\\twain.h\"\n#include \"..\\\\twcommon\\\\twndebug.h\"\n\n#include \"twd_type.h\"\n#include \"scanner.h\"\n#include \"dscaps.h\"\n\nextern HANDLE hDSInst;\n\n/*\n*	Static globals\n*/\nstatic int _giMaxPagesToScan = 1;\nstatic int _giPagesRemaining = 1;\n\nstatic int _giRowsCopied = 0;\nstatic BITMAPINFOHEADER *_gpHeader = NULL;\nstatic BYTE *_gpImageData = NULL;\nstatic BYTE *_gpCurrentLine = NULL;\nstatic DWORD _gdwLineSize = 0l;\n\n\n/*\n*	Globals that we use to simulate scanning transfer from a DIB\n*/\nstatic HGLOBAL _ghDIB = NULL;\n\nBOOL IsDocumentInFeeder()\n{\n	return _giPagesRemaining?TRUE:FALSE;\n}\n\nBOOL StartScan(DWORD *pdwLineSize)\n{\n	/*\n	*	Preload our image into memory\n	*/\n	char szModulePath[_MAX_PATH];\n	char szCompletePath[_MAX_PATH];\n	char szFileLocation[_MAX_PATH];\n	char szDriveName[_MAX_DRIVE];\n\n	VERIFY(GetModuleFileName(hDSInst, szModulePath, _MAX_PATH));\n	_splitpath(szModulePath, szDriveName, szFileLocation, NULL, NULL);\n	wsprintf(szCompletePath, \"%s%s\", szDriveName, szFileLocation);\n\n	_giRowsCopied = 0;\n	_gpHeader = NULL;\n	_gpImageData = NULL;\n	_gpCurrentLine = NULL;\n	_gdwLineSize = 0l;\n\n	if(_ghDIB)\n	{\n		GlobalFree(_ghDIB);\n		_ghDIB = NULL;\n	}\n\n	if(GetCurrentXResolution()==100.0F)\n	{\n		/*\n		*	Easy, this is the format of our originals\n		*/\n		if(GetCurrentPixelType()==TWPT_GRAY)\n		{\n			strcat(szCompletePath, \"twaingray.bmp\");\n			_ghDIB = OpenDIB(szCompletePath);\n		}\n		else if(GetCurrentPixelType()==TWPT_RGB)\n		{\n			strcat(szCompletePath, \"twainrgb.bmp\");\n			_ghDIB = OpenDIB(szCompletePath);\n		}\n		else\n		{\n			strcat(szCompletePath, \"twainbw.bmp\");\n			_ghDIB = OpenDIB(szCompletePath);\n		}\n\n		_gpHeader = (BITMAPINFOHEADER*)GlobalLock(_ghDIB);\n		if(_gpHeader)\n		{\n			_gpImageData = ((BYTE*)_gpHeader) + sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD) * DibNumColors(_gpHeader);\n			_gdwLineSize = ((_gpHeader-&gt;biWidth * _gpHeader-&gt;biBitCount+31)/32)*4;\n			_gpCurrentLine = _gpImageData + (_gdwLineSize * (_gpHeader-&gt;biHeight-1));\n			*pdwLineSize = _gdwLineSize;\n		}\n	}\n	return _ghDIB?TRUE:FALSE;\n}\n\nBOOL ReadDataBlock(BYTE *pBuffer, DWORD dwMaxSize, DWORD *pdwBytesWritten, BOOL *pbLastBuffer)\n{\n	ASSERT(pBuffer);\n	ASSERT(dwMaxSize);\n	ASSERT(pdwBytesWritten);\n	ASSERT(pbLastBuffer);\n\n	*pdwBytesWritten = 0l;\n	*pbLastBuffer = FALSE;\n\n	if(_ghDIB &amp;&amp; _gpHeader)\n	{\n		int iIndex = 0;\n		int iMaxLines = dwMaxSize / _gdwLineSize;\n		for(iIndex = 0; iIndex &lt; iMaxLines; iIndex++)\n		{\n			/*\n			*	Copy the line into the buffer\n			*/\n			if(GetCurrentPixelType()==TWPT_RGB)\n			{\n				DWORD dwPixelIndex = 0;\n				BYTE bTempByte = 0;\n				for(dwPixelIndex = 0; (dwPixelIndex+2) &lt; _gdwLineSize; dwPixelIndex+= 3)\n				{\n					pBuffer[dwPixelIndex] = _gpCurrentLine[dwPixelIndex+2];\n					pBuffer[dwPixelIndex+1] = _gpCurrentLine[dwPixelIndex+1];\n					pBuffer[dwPixelIndex+2] = _gpCurrentLine[dwPixelIndex];\n				}\n			}\n			else\n			{\n				memcpy(pBuffer, _gpCurrentLine, _gdwLineSize);\n			}\n\n			_giRowsCopied++;\n\n			/*\n			*	Move back a full line\n			*/\n			_gpCurrentLine -= _gdwLineSize;\n			\n			/*\n			*	Increment our byte count\n			*/\n			*pdwBytesWritten += _gdwLineSize;\n			pBuffer += _gdwLineSize;\n\n			/*\n			*	Check to see if we are at the end\n			*/\n			if(_gpCurrentLine==_gpImageData)\n			{\n				*pbLastBuffer = TRUE;\n				break;\n			}\n		}\n		return TRUE;\n	}\n	return FALSE;\n}\n\nvoid StopScan()\n{\n	/*\n	* Decrement the page count\n	*/\n	_giPagesRemaining--;\n	if(_giPagesRemaining &lt; 0)\n	{\n		_giPagesRemaining = 0;\n	}\n\n	/*\n	*	Clean up the DIB\n	*/\n	if(_gpHeader)\n	{\n		GlobalUnlock(_ghDIB);\n		_gpHeader = NULL;\n	}\n\n	if(_ghDIB)\n	{\n		GlobalFree(_ghDIB);\n		_ghDIB = NULL;\n	}\n\n	_giRowsCopied = 0;\n	_gpImageData = NULL;\n	_gpCurrentLine = NULL;\n	_gdwLineSize = 0l;\n\n	return;\n}\n\n/*\n*	Additional functions for our simulation\n*/\nint GetNumPages()\n{\n	return _giMaxPagesToScan;\n}\n\nvoid SetNumPages(int iNumPages)\n{\n	_giMaxPagesToScan = iNumPages;\n	return;\n}\n\nvoid LoadFeeder()\n{\n	_giPagesRemaining = _giMaxPagesToScan;\n	return;\n}\n\nvoid ClearFeeder()\n{\n	_giPagesRemaining = 0;\n}\n\nHGLOBAL ScanToDIB()\n{\n	HGLOBAL hDIBHandle = NULL;\n\n	if(GetCurrentXResolution()==100.0F)\n	{\n		hDIBHandle = _ghDIB;\n\n		/*\n		*	Clean up the DIB\n		*/\n		if(_gpHeader)\n		{\n			GlobalUnlock(_ghDIB);\n			_gpHeader = NULL;\n		}\n\n		_ghDIB = NULL;\n	}\n\n	return hDIBHandle;\n}\n\n----------------------------------------------------- end of file\n\n\n/* ======================================================================== *\\\n\n  Copyright (C) 1991, 1992 TWAIN Working Group: Aldus, Caere, Eastman-Kodak,\n  Hewlett-Packard and Logitech Corporations.  All rights reserved.\n\n  Copyright (C) 1997 TWAIN Working Group: Bell+Howell, Canon, DocuMagix, \n  Fujitsu, Genoa Technology, Hewlett-Packard, Kofax Imaging Products, and\n  Ricoh Corporation.  All rights reserved.\n \n  Copyright © 1998 TWAIN Working Group: Adobe Systems Incorporated, \n  Canon Information Systems, Eastman Kodak Company, \n  Fujitsu Computer Products of America, Genoa Technology, \n  Hewlett-Packard Company, Intel Corporation, Kofax Image Products, \n  JFL Peripheral Solutions Inc., Ricoh Corporation, and Xerox Corporation.  \n  All rights reserved.\n\n  TWAIN.h -  This is the definitive include file for applications and\n          data sources written to the TWAIN specification.\n          It defines constants, data structures, messages etc.\n          for the public interface to TWAIN.\n \n  Revision History:\n    version 1.0, March 6, 1992.  TWAIN 1.0.\n    version 1.1, January 1993.   Tech Notes 1.1\n    version 1.5, June 1993.      Specification Update 1.5\n                                 Change DC to TW \n                                 Change filename from DC.H to TWAIN.H\n    version 1.5, July 1993.      Remove spaces from country identifiers\n \n    version 1.7, July 1997       Added Capabilities and data structure for \n                                 document imaging and digital cameras.\n                                 KHL.\n    version 1.7, July 1997       Inserted Borland compatibile structure packing\n                                 directives provided by Mentor.  JMH\n    version 1.7, Aug 1997        Expanded file tabs to spaces.  \n                                 NOTE: future authors should be sure to have \n                                 their editors set to automatically expand tabs \n                                 to spaces (original tab setting was 4 spaces).\n    version 1.7, Sept 1997       Added job control values\n                                 Added return codes\n    version 1.7, Sept 1997       changed definition of pRGBRESPONSE to \n                                 pTW_RGBRESPONSE\n    version 1.7  Aug 1998        Added missing TWEI_BARCODEROTATION values\n                                 TWBCOR_ types JMH\n    version 1.8  August 1998     Added new types and definitions required\n                                 for 1.8 Specification JMH\n    version 1.8  January 1999    Changed search mode from SRCH_ to TWBD_ as\n                                 in 1.8 Specification, added TWBT_MAXICODE	JMH\n    version 1.8  January 1999    Removed undocumented duplicate AUTO&lt;cap&gt; JMH\n\\* ======================================================================== */\n\n#ifndef TWAIN\n#define TWAIN\n\n/*  SDH - 02/08/95 - TWUNK */\n/*  Force 32-bit twain to use same packing of twain structures as existing */\n/*  16-bit twain.  This allows 16/32-bit thunking.                         */\n#ifdef  WIN32\n    #ifdef __BORLANDC__ //(Mentor June 13, 1996) if using a Borland compiler\n        #pragma option -a2  //(Mentor June 13, 1996) switch to word alignment\n    #else   //(Mentor June 13, 1996) if we\'re using some other compiler\n        #pragma pack (push, before_twain)\n        #pragma pack (2)\n    #endif  //(Mentor June 13, 1996)\n#else   /* WIN32 */\n#endif  /* WIN32 */\n\n/****************************************************************************\n * TWAIN Version                                                            *\n ****************************************************************************/\n#define TWON_PROTOCOLMINOR   8        /* Changed for Version 1.8            */\n#define TWON_PROTOCOLMAJOR   1\n\n/****************************************************************************\n * Platform Dependent Definitions and Typedefs                              *\n ****************************************************************************/\n\n/* Define one of the following, depending on the platform */\n/* #define _MAC_   */\n/* #define _UNIX_  */\n#define _MSWIN_\n\n#ifdef  _MSWIN_\n    typedef HANDLE         TW_HANDLE;\n    typedef LPVOID         TW_MEMREF;\n\n    /*  SDH - 05/05/95 - TWUNK */\n    /*  For common code between 16 and 32 bits.  */\n    #ifdef  WIN32\n        #define TW_HUGE\n    #else   /* WIN32 */\n        #define TW_HUGE    huge\n    #endif  /* WIN32 */\n    typedef BYTE TW_HUGE * HPBYTE;\n    typedef void TW_HUGE * HPVOID;\n#endif  /* _MSWIN_ */\n\n#ifdef  _MAC_\n    #define PASCAL         pascal\n    #define FAR\n    typedef Handle         TW_HANDLE;\n    typedef char          *TW_MEMREF;\n#endif  /* _MAC_ */\n\n#ifdef  _UNIX_\n    #define PASCAL         pascal\n    typedef unsigned char *TW_HANDLE;\n    typedef unsigned char *TW_MEMREF;\n#endif  /* _UNIX_ */\n\n/****************************************************************************\n * Type Definitions                                                         *\n ****************************************************************************/\n\n/* String types. These include room for the strings and a NULL char,     *\n * or, on the Mac, a length byte followed by the string.                 *\n * TW_STR255 must hold less than 256 chars so length fits in first byte. */\ntypedef char    TW_STR32[34],     FAR *pTW_STR32;\ntypedef char    TW_STR64[66],     FAR *pTW_STR64;\ntypedef char    TW_STR128[130],   FAR *pTW_STR128;\ntypedef char    TW_STR255[256],   FAR *pTW_STR255;\n\n/* Numeric types. */\ntypedef char           TW_INT8,   FAR *pTW_INT8;\ntypedef short          TW_INT16,  FAR *pTW_INT16; \ntypedef long           TW_INT32,  FAR *pTW_INT32;\ntypedef unsigned char  TW_UINT8,  FAR *pTW_UINT8;\ntypedef unsigned short TW_UINT16, FAR *pTW_UINT16;\ntypedef unsigned long  TW_UINT32, FAR *pTW_UINT32;\ntypedef unsigned short TW_BOOL,   FAR *pTW_BOOL; \n\n/* Fixed point structure type. */\ntypedef struct {\n    TW_INT16     Whole;        /* maintains the sign */\n    TW_UINT16    Frac;\n} TW_FIX32,  FAR *pTW_FIX32;\n\n/****************************************************************************\n * Structure Definitions                                                    *\n ****************************************************************************/\n\n/* No DAT needed. */\ntypedef struct {\n   TW_FIX32   X;\n   TW_FIX32   Y;\n   TW_FIX32   Z;\n} TW_CIEPOINT, FAR * pTW_CIEPOINT;\n\n/* No DAT needed. */\ntypedef struct {\n   TW_FIX32   StartIn;\n   TW_FIX32   BreakIn;\n   TW_FIX32   EndIn;\n   TW_FIX32   StartOut;\n   TW_FIX32   BreakOut;\n   TW_FIX32   EndOut;\n   TW_FIX32   Gamma;\n   TW_FIX32   SampleCount;  /* if =0 use the gamma */\n} TW_DECODEFUNCTION, FAR * pTW_DECODEFUNCTION;\n\n/* No DAT needed. */\ntypedef struct {\n   TW_UINT8    Index;    /* Value used to index into the color table. */\n   TW_UINT8    Channel1; /* First  tri-stimulus value (e.g Red)       */\n   TW_UINT8    Channel2; /* Second tri-stimulus value (e.g Green)     */\n   TW_UINT8    Channel3; /* Third  tri-stimulus value (e.g Blue)      */\n} TW_ELEMENT8, FAR * pTW_ELEMENT8;\n\n/* No DAT.  Defines a frame rectangle in ICAP_UNITS coordinates. */\ntypedef struct {\n   TW_FIX32   Left;\n   TW_FIX32   Top;\n   TW_FIX32   Right;\n   TW_FIX32   Bottom;\n} TW_FRAME, FAR * pTW_FRAME;\n\n/* No DAT needed.  Used to manage memory buffers. */\ntypedef struct {\n   TW_UINT32  Flags;  /* Any combination of the TWMF_ constants.           */\n   TW_UINT32  Length; /* Number of bytes stored in buffer TheMem.          */\n   TW_MEMREF  TheMem; /* Pointer or handle to the allocated memory buffer. */\n} TW_MEMORY, FAR * pTW_MEMORY;\n\n/* No DAT needed. */\ntypedef struct {\n   TW_DECODEFUNCTION   Decode[3];\n   TW_FIX32            Mix[3][3];\n} TW_TRANSFORMSTAGE, FAR * pTW_TRANSFORMSTAGE;\n\n/* No DAT needed.  Describes version of software currently running. */\ntypedef struct {\n   TW_UINT16  MajorNum;  /* Major revision number of the software. */\n   TW_UINT16  MinorNum;  /* Incremental revision number of the software. */\n   TW_UINT16  Language;  /* e.g. TWLG_SWISSFRENCH */\n   TW_UINT16  Country;   /* e.g. TWCY_SWITZERLAND */\n   TW_STR32   Info;      /* e.g. \"1.0b3 Beta release\" */\n} TW_VERSION, FAR * pTW_VERSION;\n\n/* TWON_ARRAY. Container for array of values (a simplified TW_ENUMERATION) */\ntypedef struct {\n   TW_UINT16  ItemType;\n   TW_UINT32  NumItems;    /* How many items in ItemList           */\n   TW_UINT8   ItemList[1]; /* Array of ItemType values starts here */\n} TW_ARRAY, FAR * pTW_ARRAY;\n\n/* TWON_ENUMERATION. Container for a collection of values. */\ntypedef struct {\n   TW_UINT16  ItemType;\n   TW_UINT32  NumItems;     /* How many items in ItemList                 */\n   TW_UINT32  CurrentIndex; /* Current value is in ItemList[CurrentIndex] */\n   TW_UINT32  DefaultIndex; /* Powerup value is in ItemList[DefaultIndex] */\n   TW_UINT8   ItemList[1];  /* Array of ItemType values starts here       */\n} TW_ENUMERATION, FAR * pTW_ENUMERATION;\n\n/* TWON_ONEVALUE. Container for one value. */\ntypedef struct {\n   TW_UINT16  ItemType;\n   TW_UINT32  Item;\n} TW_ONEVALUE, FAR * pTW_ONEVALUE;\n\n/* TWON_RANGE. Container for a range of values. */\ntypedef struct {\n   TW_UINT16  ItemType;\n   TW_UINT32  MinValue;     /* Starting value in the range.           */\n   TW_UINT32  MaxValue;     /* Final value in the range.              */\n   TW_UINT32  StepSize;     /* Increment from MinValue to MaxValue.   */\n   TW_UINT32  DefaultValue; /* Power-up value.                        */\n   TW_UINT32  CurrentValue; /* The value that is currently in effect. */\n} TW_RANGE, FAR * pTW_RANGE;\n\n/* DAT_CAPABILITY. Used by application to get/set capability from/in a data source. */\ntypedef struct {\n   TW_UINT16  Cap; /* id of capability to set or get, e.g. CAP_BRIGHTNESS */\n   TW_UINT16  ConType; /* TWON_ONEVALUE, _RANGE, _ENUMERATION or _ARRAY   */\n   TW_HANDLE  hContainer; /* Handle to container of type Dat              */\n} TW_CAPABILITY, FAR * pTW_CAPABILITY;\n\n/* DAT_CIECOLOR. */\ntypedef struct {\n   TW_UINT16           ColorSpace;\n   TW_INT16            LowEndian;\n   TW_INT16            DeviceDependent;\n   TW_INT32            VersionNumber;\n   TW_TRANSFORMSTAGE   StageABC;\n   TW_TRANSFORMSTAGE   StageLMN;\n   TW_CIEPOINT         WhitePoint;\n   TW_CIEPOINT         BlackPoint;\n   TW_CIEPOINT         WhitePaper;\n   TW_CIEPOINT         BlackInk;\n   TW_FIX32            Samples[1];\n} TW_CIECOLOR, FAR * pTW_CIECOLOR;\n\n/* DAT_EVENT. For passing events down from the application to the DS. */\ntypedef struct {\n   TW_MEMREF  pEvent;    /* Windows pMSG or Mac pEvent.                 */\n   TW_UINT16  TWMessage; /* TW msg from data source, e.g. MSG_XFERREADY */\n} TW_EVENT, FAR * pTW_EVENT;\n\n/* DAT_GRAYRESPONSE */\ntypedef struct {\n   TW_ELEMENT8         Response[1];\n} TW_GRAYRESPONSE, FAR * pTW_GRAYRESPONSE;\n\n/* DAT_IDENTITY. Identifies the program/library/code resource. */\ntypedef struct {\n   TW_UINT32  Id;              /* Unique number.  In Windows, application hWnd      */\n   TW_VERSION Version;         /* Identifies the piece of code              */\n   TW_UINT16  ProtocolMajor;   /* Application and DS must set to TWON_PROTOCOLMAJOR */\n   TW_UINT16  ProtocolMinor;   /* Application and DS must set to TWON_PROTOCOLMINOR */\n   TW_UINT32  SupportedGroups; /* Bit field OR combination of DG_ constants */\n   TW_STR32   Manufacturer;    /* Manufacturer name, e.g. \"Hewlett-Packard\" */\n   TW_STR32   ProductFamily;   /* Product family name, e.g. \"ScanJet\"       */\n   TW_STR32   ProductName;     /* Product name, e.g. \"ScanJet Plus\"         */\n} TW_IDENTITY, FAR * pTW_IDENTITY;\n\n/* DAT_IMAGEINFO. Application gets detailed image info from DS with this. */\ntypedef struct {\n   TW_FIX32   XResolution;      /* Resolution in the horizontal             */\n   TW_FIX32   YResolution;      /* Resolution in the vertical               */\n   TW_INT32   ImageWidth;       /* Columns in the image, -1 if unknown by DS*/\n   TW_INT32   ImageLength;      /* Rows in the image, -1 if unknown by DS   */\n   TW_INT16   SamplesPerPixel;  /* Number of samples per pixel, 3 for RGB   */\n   TW_INT16   BitsPerSample[8]; /* Number of bits for each sample           */\n   TW_INT16   BitsPerPixel;     /* Number of bits for each padded pixel     */\n   TW_BOOL    Planar;           /* True if Planar, False if chunky          */\n   TW_INT16   PixelType;        /* How to interp data; photo interp (TWPT_) */\n   TW_UINT16  Compression;      /* How the data is compressed (TWCP_xxxx)   */\n} TW_IMAGEINFO, FAR * pTW_IMAGEINFO;\n\n/* DAT_IMAGELAYOUT. Provides image layout information in current units. */\ntypedef struct {\n   TW_FRAME   Frame;          /* Frame coords within larger document */\n   TW_UINT32  DocumentNumber;\n   TW_UINT32  PageNumber;     /* Reset when you go to next document  */\n   TW_UINT32  FrameNumber;    /* Reset when you go to next page      */\n} TW_IMAGELAYOUT, FAR * pTW_IMAGELAYOUT;\n\n/* DAT_IMAGEMEMXFER. Used to pass image data (e.g. in strips) from DS to application.*/\ntypedef struct {\n   TW_UINT16  Compression;  /* How the data is compressed                */\n   TW_UINT32  BytesPerRow;  /* Number of bytes in a row of data          */\n   TW_UINT32  Columns;      /* How many columns                          */\n   TW_UINT32  Rows;         /* How many rows                             */\n   TW_UINT32  XOffset;      /* How far from the side of the image        */\n   TW_UINT32  YOffset;      /* How far from the top of the image         */\n   TW_UINT32  BytesWritten; /* How many bytes written in Memory          */\n   TW_MEMORY  Memory;       /* Mem struct used to pass actual image data */\n} TW_IMAGEMEMXFER, FAR * pTW_IMAGEMEMXFER;\n\n/* Changed in 1.1: QuantTable, HuffmanDC, HuffmanAC TW_MEMREF -&gt; TW_MEMORY  */\n/* DAT_JPEGCOMPRESSION. Based on JPEG Draft International Std, ver 10918-1. */\ntypedef struct {\n   TW_UINT16   ColorSpace;       /* One of the TWPT_xxxx values                */\n   TW_UINT32   SubSampling;      /* Two word \"array\" for subsampling values    */\n   TW_UINT16   NumComponents;    /* Number of color components in image        */\n   TW_UINT16   RestartFrequency; /* Frequency of restart marker codes in MDU\'s */\n   TW_UINT16   QuantMap[4];      /* Mapping of components to QuantTables       */\n   TW_MEMORY   QuantTable[4];    /* Quantization tables                        */\n   TW_UINT16   HuffmanMap[4];    /* Mapping of components to Huffman tables    */\n   TW_MEMORY   HuffmanDC[2];     /* DC Huffman tables                          */\n   TW_MEMORY   HuffmanAC[2];     /* AC Huffman tables                          */\n} TW_JPEGCOMPRESSION, FAR * pTW_JPEGCOMPRESSION;\n\n/* DAT_PALETTE8. Color palette when TWPT_PALETTE pixels xfer\'d in mem buf. */\ntypedef struct {\n   TW_UINT16    NumColors;   /* Number of colors in the color table.  */\n   TW_UINT16    PaletteType; /* TWPA_xxxx, specifies type of palette. */\n   TW_ELEMENT8  Colors[256]; /* Array of palette values starts here.  */\n} TW_PALETTE8, FAR * pTW_PALETTE8;\n\n/* DAT_PENDINGXFERS. Used with MSG_ENDXFER to indicate additional data. */\ntypedef struct {\n   TW_UINT16 Count;\n   union {\n      TW_UINT32 EOJ;\n      TW_UINT32 Reserved;\n   };\n} TW_PENDINGXFERS, FAR *pTW_PENDINGXFERS;\n\n/* DAT_RGBRESPONSE */\ntypedef struct {\n   TW_ELEMENT8         Response[1];\n} TW_RGBRESPONSE, FAR * pTW_RGBRESPONSE;\n\n/* DAT_SETUPFILEXFER. Sets up DS to application data transfer via a file. */\ntypedef struct {\n   TW_STR255 FileName;\n   TW_UINT16 Format;   /* Any TWFF_ constant */\n   TW_INT16  VRefNum;  /* Used for Mac only  */\n} TW_SETUPFILEXFER, FAR * pTW_SETUPFILEXFER;\n\n/* DAT_SETUPMEMXFER. Sets up DS to application data transfer via a memory buffer. */\ntypedef struct {\n   TW_UINT32 MinBufSize;\n   TW_UINT32 MaxBufSize;\n   TW_UINT32 Preferred;\n} TW_SETUPMEMXFER, FAR * pTW_SETUPMEMXFER;\n\n/* DAT_STATUS. Application gets detailed status info from a data source with this. */\ntypedef struct {\n   TW_UINT16  ConditionCode; /* Any TWCC_ constant     */\n   TW_UINT16  Reserved;      /* Future expansion space */\n} TW_STATUS, FAR * pTW_STATUS;\n\n/* DAT_USERINTERFACE. Coordinates UI between application and data source. */\ntypedef struct {\n   TW_BOOL    ShowUI;  /* TRUE if DS should bring up its UI           */\n   TW_BOOL    ModalUI; /* For Mac only - true if the DS\'s UI is modal */\n   TW_HANDLE  hParent; /* For windows only - Application window handle        */\n} TW_USERINTERFACE, FAR * pTW_USERINTERFACE;\n\n/* SDH - 03/21/95 - TWUNK */\n/* DAT_TWUNKIDENTITY. Provides DS identity and \'other\' information necessary */\n/*                    across thunk link. */\ntypedef struct {\n   TW_IDENTITY identity;        /* Identity of data source.                 */\n   TW_STR255   dsPath;          /* Full path and file name of data source.  */\n} TW_TWUNKIDENTITY, FAR * pTW_TWUNKIDENTITY;\n\n/* SDH - 03/21/95 - TWUNK */\n/* Provides DS_Entry parameters over thunk link. */\ntypedef struct\n{\n    TW_INT8     destFlag;       /* TRUE if dest is not NULL                 */\n    TW_IDENTITY dest;           /* Identity of data source (if used)        */\n    TW_INT32    dataGroup;      /* DSM_Entry dataGroup parameter            */\n    TW_INT16    dataArgType;    /* DSM_Entry dataArgType parameter          */\n    TW_INT16    message;        /* DSM_Entry message parameter              */\n    TW_INT32    pDataSize;      /* Size of pData (0 if NULL)                */\n    //  TW_MEMREF   pData;      /* Based on implementation specifics, a     */\n                                /* pData parameter makes no sense in this   */\n                                /* structure, but data (if provided) will be*/\n                                /* appended in the data block.              */\n   } TW_TWUNKDSENTRYPARAMS, FAR * pTW_TWUNKDSENTRYPARAMS;\n\n/* SDH - 03/21/95 - TWUNK */\n/* Provides DS_Entry results over thunk link. */\ntypedef struct\n{\n    TW_UINT16   returnCode;     /* Thunker DsEntry return code.             */\n    TW_UINT16   conditionCode;  /* Thunker DsEntry condition code.          */\n    TW_INT32    pDataSize;      /* Size of pData (0 if NULL)                */\n    //  TW_MEMREF   pData;      /* Based on implementation specifics, a     */\n                                /* pData parameter makes no sense in this   */\n                                /* structure, but data (if provided) will be*/\n                                /* appended in the data block.              */\n} TW_TWUNKDSENTRYRETURN, FAR * pTW_TWUNKDSENTRYRETURN;\n\n/* WJD - 950818 */\n/* Added for 1.6 Specification */\n/* TWAIN 1.6 CAP_SUPPORTEDCAPSEXT structure */\ntypedef struct\n{\n    TW_UINT16 Cap;   /* Which CAP/ICAP info is relevant to */\n    TW_UINT16 Properties;  /* Messages this CAP/ICAP supports */\n} TW_CAPEXT, FAR * pTW_CAPEXT;\n\n/* ----------------------------------------------------------------------- *\\\n\n  Version 1.7:      Added Following data structure for Document Imaging \n  July 1997         Enhancement.\n  KHL               TW_CUSTOMDSDATA --  For Saving and Restoring Source\'s \n                                        state.\n                    TW_INFO         --  Each attribute for extended image\n                                        information.\n                    TW_EXTIMAGEINFO --  Extended image information structure.\n\n\\* ----------------------------------------------------------------------- */\n\ntypedef struct {\n    TW_UINT32  InfoLength;     /* Length of Information in bytes.  */\n    TW_HANDLE  hData;          /* Place holder for data, DS Allocates */\n}TW_CUSTOMDSDATA, FAR *pTW_CUSTOMDSDATA;\n\ntypedef struct {\n    TW_UINT16   InfoID;\n    TW_UINT16   ItemType;\n    TW_UINT16   NumItems;\n    TW_UINT16   CondCode;\n    TW_UINT32   Item;\n}TW_INFO, FAR* pTW_INFO;\n\ntypedef struct {\n    TW_UINT32   NumInfos;\n    TW_INFO     Info[1];\n}TW_EXTIMAGEINFO, FAR* pTW_EXTIMAGEINFO;\n\n/* Added 1.8 */\n\n/* DAT_AUDIOINFO, information about audio data */\ntypedef struct {\n   TW_STR255  Name;       /* name of audio data */\n   TW_UINT32  Reserved;   /* reserved space */\n} TW_AUDIOINFO, FAR * pTW_AUDIOINFO;\n\n/* DAT_DEVICEEVENT, information about events */\ntypedef struct {\n   TW_UINT32  Event;                  /* One of the TWDE_xxxx values. */\n   TW_STR255  DeviceName;             /* The name of the device that generated the event */\n   TW_UINT32  BatteryMinutes;         /* Battery Minutes Remaining    */\n   TW_INT16   BatteryPercentage;      /* Battery Percentage Remaining */\n   TW_INT32   PowerSupply;            /* Power Supply                 */\n   TW_FIX32   XResolution;            /* Resolution                   */\n   TW_FIX32   YResolution;            /* Resolution                   */\n   TW_UINT32  FlashUsed2;             /* Flash Used2                  */\n   TW_UINT32  AutomaticCapture;       /* Automatic Capture            */\n   TW_UINT32  TimeBeforeFirstCapture; /* Automatic Capture            */\n   TW_UINT32  TimeBetweenCaptures;    /* Automatic Capture            */\n} TW_DEVICEEVENT, FAR * pTW_DEVICEEVENT;\n\n/* DAT_FILESYSTEM, information about TWAIN file system */\ntypedef struct {\n   /* DG_CONTROL / DAT_FILESYSTEM / MSG_xxxx fields     */\n   TW_STR255  InputName; /* The name of the input or source file */\n   TW_STR255  OutputName; /* The result of an operation or the name of a destination file */\n   TW_MEMREF  Context; /* Source specific data used to remember state information */\n   /* DG_CONTROL / DAT_FILESYSTEM / MSG_DELETE field    */\n   int        Recursive; /* recursively delete all sub-directories */\n   /* DG_CONTROL / DAT_FILESYSTEM / MSG_GETINFO fields  */\n   TW_INT32   FileType; /* One of the TWFT_xxxx values */\n   TW_UINT32  Size; /* Size of current FileType */\n   TW_STR32   CreateTimeDate; /* creation date of the file */\n   TW_STR32   ModifiedTimeDate; /* last date the file was modified */\n   TW_UINT32  FreeSpace; /* bytes of free space on the current device */\n   TW_INT32   NewImageSize; /* estimate of the amount of space a new image would take up */\n   TW_UINT32  NumberOfFiles; /* number of files, depends on FileType */\n   TW_UINT32  NumberOfSnippets; /**/\n   char       Reserved[512]; /**/\n} TW_FILESYSTEM, FAR * pTW_FILESYSTEM;\n\n/* DAT_PASSTHRU, device dependant data to pass through Data Source */\ntypedef struct {\n   TW_MEMREF  pCommand;        /* Pointer to Command buffer */\n   TW_UINT32  CommandBytes;    /* Number of bytes in Command buffer */\n   TW_INT32   Direction;       /* One of the TWDR_xxxx values.  Defines the direction of data flow */\n   TW_MEMREF  pData;           /* Pointer to Data buffer */\n   TW_UINT32  DataBytes;       /* Number of bytes in Data buffer */\n   TW_UINT32  DataBytesXfered; /* Number of bytes successfully transferred */\n} TW_PASSTHRU, FAR * pTW_PASSTHRU;\n\n/* DAT_SETUPAUDIOFILEXFER, information required to setup an audio file transfer */\ntypedef struct {\n   TW_STR255  FileName; /* full path target file */\n   TW_UINT16  Format;   /* one of TWAF_xxxx */\n   TW_INT16 VRefNum;\n} TW_SETUPAUDIOFILEXFER, FAR * pTW_SETUPAUDIOFILEXFER;\n\n/****************************************************************************\n * Generic Constants                                                        *\n ****************************************************************************/\n\n#define TWON_ARRAY           3 /* indicates TW_ARRAY container       */\n#define TWON_ENUMERATION     4 /* indicates TW_ENUMERATION container */\n#define TWON_ONEVALUE        5 /* indicates TW_ONEVALUE container    */\n#define TWON_RANGE           6 /* indicates TW_RANGE container       */\n\n#define TWON_ICONID          962 /* res Id of icon used in USERSELECT lbox */\n#define TWON_DSMID           461 /* res Id of the DSM version num resource */\n#define TWON_DSMCODEID       63  /* res Id of the Mac SM Code resource     */\n\n#define TWON_DONTCARE8       0xff\n#define TWON_DONTCARE16      0xffff\n#define TWON_DONTCARE32      0xffffffff\n\n/* Flags used in TW_MEMORY structure. */\n#define TWMF_APPOWNS     0x1\n#define TWMF_DSMOWNS     0x2\n#define TWMF_DSOWNS      0x4\n#define TWMF_POINTER     0x8\n#define TWMF_HANDLE      0x10\n\n/* Palette types for TW_PALETTE8 */\n#define TWPA_RGB         0\n#define TWPA_GRAY        1\n#define TWPA_CMY         2\n\n/* There are four containers used for capabilities negotiation:\n *    TWON_ONEVALUE, TWON_RANGE, TWON_ENUMERATION, TWON_ARRAY\n * In each container structure ItemType can be TWTY_INT8, TWTY_INT16, etc.\n * The kind of data stored in the container can be determined by doing\n * DCItemSize[ItemType] where the following is defined in TWAIN glue code:\n *          DCItemSize[]= { sizeof(TW_INT8),\n *                          sizeof(TW_INT16),\n *                          etc.\n *                          sizeof(TW_UINT32) };\n *\n */\n\n#define TWTY_INT8        0x0000    /* Means Item is a TW_INT8   */\n#define TWTY_INT16       0x0001    /* Means Item is a TW_INT16  */\n#define TWTY_INT32       0x0002    /* Means Item is a TW_INT32  */\n\n#define TWTY_UINT8       0x0003    /* Means Item is a TW_UINT8  */\n#define TWTY_UINT16      0x0004    /* Means Item is a TW_UINT16 */\n#define TWTY_UINT32      0x0005    /* Means Item is a TW_UINT32 */\n\n#define TWTY_BOOL        0x0006    /* Means Item is a TW_BOOL   */\n\n#define TWTY_FIX32       0x0007    /* Means Item is a TW_FIX32  */\n\n#define TWTY_FRAME       0x0008    /* Means Item is a TW_FRAME  */\n\n#define TWTY_STR32       0x0009    /* Means Item is a TW_STR32  */\n#define TWTY_STR64       0x000a    /* Means Item is a TW_STR64  */\n#define TWTY_STR128      0x000b    /* Means Item is a TW_STR128 */\n#define TWTY_STR255      0x000c    /* Means Item is a TW_STR255 */\n\n/****************************************************************************\n * Capability Constants                                                     *\n ****************************************************************************/\n\n/* ICAP_BITORDER values (BO_ means Bit Order) */\n#define TWBO_LSBFIRST    0\n#define TWBO_MSBFIRST    1\n\n/* ICAP_COMPRESSION values (CP_ means ComPression ) */\n#define TWCP_NONE        0\n#define TWCP_PACKBITS    1\n#define TWCP_GROUP31D    2 /* Follows CCITT spec (no End Of Line)          */\n#define TWCP_GROUP31DEOL 3 /* Follows CCITT spec (has End Of Line)         */\n#define TWCP_GROUP32D    4 /* Follows CCITT spec (use cap for K Factor)    */\n#define TWCP_GROUP4      5 /* Follows CCITT spec                           */\n#define TWCP_JPEG        6 /* Use capability for more info                 */\n#define TWCP_LZW         7 /* Must license from Unisys and IBM to use      */\n#define TWCP_JBIG        8 /* For Bitonal images  -- Added 1.7 KHL         */\n/* Added 1.8 */\n#define TWCP_PNG         9\n#define TWCP_RLE4        10\n#define TWCP_RLE8        11\n#define TWCP_BITFIELDS   12\n\n\n/* ICAP_IMAGEFILEFORMAT values (FF_means File Format)   */\n#define TWFF_TIFF        0    /* Tagged Image File Format     */\n#define TWFF_PICT        1    /* Macintosh PICT               */\n#define TWFF_BMP         2    /* Windows Bitmap               */\n#define TWFF_XBM         3    /* X-Windows Bitmap             */\n#define TWFF_JFIF        4    /* JPEG File Interchange Format */\n#define TWFF_FPX         5    /* Flash Pix                    */\n#define TWFF_TIFFMULTI   6    /* Multi-page tiff file         */\n#define TWFF_PNG         7\n#define TWFF_SPIFF       8\n#define TWFF_EXIF        9\n\n\n/* ICAP_FILTER values (FT_ means Filter Type) */\n#define TWFT_RED         0\n#define TWFT_GREEN       1\n#define TWFT_BLUE        2\n#define TWFT_NONE        3\n#define TWFT_WHITE       4\n#define TWFT_CYAN        5\n#define TWFT_MAGENTA     6\n#define TWFT_YELLOW      7\n#define TWFT_BLACK       8\n\n/* ICAP_LIGHTPATH values (LP_ means Light Path) */\n#define TWLP_REFLECTIVE   0\n#define TWLP_TRANSMISSIVE 1\n\n/* ICAP_LIGHTSOURCE values (LS_ means Light Source) */\n#define TWLS_RED         0\n#define TWLS_GREEN       1\n#define TWLS_BLUE        2\n#define TWLS_NONE        3\n#define TWLS_WHITE       4\n#define TWLS_UV          5\n#define TWLS_IR          6\n\n/* ICAP_ORIENTATION values (OR_ means ORientation) */\n#define TWOR_ROT0        0\n#define TWOR_ROT90       1\n#define TWOR_ROT180      2\n#define TWOR_ROT270      3\n#define TWOR_PORTRAIT    TWOR_ROT0\n#define TWOR_LANDSCAPE   TWOR_ROT270\n\n/* ICAP_PLANARCHUNKY values (PC_ means Planar/Chunky ) */\n#define TWPC_CHUNKY      0\n#define TWPC_PLANAR      1\n\n/* ICAP_PIXELFLAVOR values (PF_ means Pixel Flavor) */\n#define TWPF_CHOCOLATE   0  /* zero pixel represents darkest shade  */\n#define TWPF_VANILLA     1  /* zero pixel represents lightest shade */\n\n/* ICAP_PIXELTYPE values (PT_ means Pixel Type) */\n#define TWPT_BW          0 /* Black and White */\n#define TWPT_GRAY        1\n#define TWPT_RGB         2\n#define TWPT_PALETTE     3\n#define TWPT_CMY         4\n#define TWPT_CMYK        5\n#define TWPT_YUV         6\n#define TWPT_YUVK        7\n#define TWPT_CIEXYZ      8\n\n/* ICAP_SUPPORTEDSIZES values (SS_ means Supported Sizes) */\n#define TWSS_NONE        0\n#define TWSS_A4LETTER    1\n#define TWSS_B5LETTER    2\n#define TWSS_USLETTER    3\n#define TWSS_USLEGAL     4\n/* Added 1.5 */\n#define TWSS_A5          5\n#define TWSS_B4          6\n#define TWSS_B6          7\n//#define TWSS_B          8\n/* Added 1.7 */\n#define TWSS_USLEDGER    9\n#define TWSS_USEXECUTIVE 10\n#define TWSS_A3          11\n#define TWSS_B3          12\n#define TWSS_A6          13\n#define TWSS_C4          14\n#define TWSS_C5          15\n#define TWSS_C6          16\n/* Added 1.8 */\n#define TWSS_4A0          17\n#define TWSS_2A0          18\n#define TWSS_A0           19\n#define TWSS_A1           20\n#define TWSS_A2           21\n#define TWSS_A4           TWSS_A4LETTER\n#define TWSS_A7           22\n#define TWSS_A8           23\n#define TWSS_A9           24\n#define TWSS_A10          25\n#define TWSS_ISOB0        26\n#define TWSS_ISOB1        27\n#define TWSS_ISOB2        28\n#define TWSS_ISOB3        TWSS_B3\n#define TWSS_ISOB4        TWSS_B4\n#define TWSS_ISOB5        29\n#define TWSS_ISOB6        TWSS_B6\n#define TWSS_ISOB7        30\n#define TWSS_ISOB8        31\n#define TWSS_ISOB9        32\n#define TWSS_ISOB10       33\n#define TWSS_JISB0        34\n#define TWSS_JISB1        35\n#define TWSS_JISB2        36\n#define TWSS_JISB3        37\n#define TWSS_JISB4        38\n#define TWSS_JISB5        TWSS_B5LETTER\n#define TWSS_JISB6        39\n#define TWSS_JISB7        40\n#define TWSS_JISB8        41\n#define TWSS_JISB9        42\n#define TWSS_JISB10       43\n#define TWSS_C0           44\n#define TWSS_C1           45\n#define TWSS_C2           46\n#define TWSS_C3           47\n#define TWSS_C7           48\n#define TWSS_C8           49\n#define TWSS_C9           50\n#define TWSS_C10          51\n#define TWSS_USSTATEMENT  52\n#define TWSS_BUSINESSCARD 53\n\n/* ICAP_XFERMECH values (SX_ means Setup XFer) */\n#define TWSX_NATIVE      0\n#define TWSX_FILE        1\n#define TWSX_MEMORY      2\n\n/* ICAP_UNITS values (UN_ means UNits) */\n#define TWUN_INCHES      0\n#define TWUN_CENTIMETERS 1\n#define TWUN_PICAS       2\n#define TWUN_POINTS      3\n#define TWUN_TWIPS       4\n#define TWUN_PIXELS      5\n\n/* Added 1.5 */\n/* ICAP_BITDEPTHREDUCTION values (BR_ means Bitdepth Reduction) */\n#define TWBR_THRESHOLD     0\n#define TWBR_HALFTONE      1\n#define TWBR_CUSTHALFTONE  2\n#define TWBR_DIFFUSION     3\n\n/* Added 1.7 */\n/* ICAP_DUPLEX values */\n#define TWDX_NONE         0\n#define TWDX_1PASSDUPLEX  1\n#define TWDX_2PASSDUPLEX  2\n\n/* Added 1.7 */\n/* TWEI_BARCODETYPE values */\n#define TWBT_3OF9                 0\n#define TWBT_2OF5INTERLEAVED      1\n#define TWBT_2OF5NONINTERLEAVED   2\n#define TWBT_CODE93               3\n#define TWBT_CODE128              4\n#define TWBT_UCC128               5\n#define TWBT_CODABAR              6\n#define TWBT_UPCA                 7\n#define TWBT_UPCE                 8\n#define TWBT_EAN8                 9\n#define TWBT_EAN13                10\n#define TWBT_POSTNET              11\n#define TWBT_PDF417               12\n/* Added 1.8 */\n#define TWBT_2OF5INDUSTRIAL       13\n#define TWBT_2OF5MATRIX           14\n#define TWBT_2OF5DATALOGIC        15\n#define TWBT_2OF5IATA             16\n#define TWBT_3OF9FULLASCII        17\n#define TWBT_CODABARWITHSTARTSTOP 18\n#define TWBT_MAXICODE             19\n\n/* Added 1.7 */\n/* TWEI_DESKEWSTATUS values */\n#define TWDSK_SUCCESS     0\n#define TWDSK_REPORTONLY  1\n#define TWDSK_FAIL        2\n#define TWDSK_DISABLED    3\n\n/* Added 1.7 */\n/* TWEI_PATCHCODE values */\n#define TWPCH_PATCH1      0\n#define TWPCH_PATCH2      1\n#define TWPCH_PATCH3      2\n#define TWPCH_PATCH4      3\n#define TWPCH_PATCH6      4\n#define TWPCH_PATCHT      5\n\n/* Added 1.7 */\n/* CAP_JOBCONTROL values */\n#define TWJC_NONE   0\n#define TWJC_JSIC   1\n#define TWJC_JSIS   2\n#define TWJC_JSXC   3\n#define TWJC_JSXS   4\n                  \n/* Added 1.7 */\n/* TWEI_BARCODEROTATION values (BCOR_ means barcode rotation) */\n#define TWBCOR_ROT0   0\n#define TWBCOR_ROT90  1\n#define TWBCOR_ROT180 2\n#define TWBCOR_ROT270 3\n#define TWBCOR_ROTX   4\n\n/* Added 1.8 */\n/* ACAP_AUDIOFILEFORMAT values (AF_ means audio format) */\n#define TWAF_WAV      0\n#define TWAF_AIFF     1\n#define TWAF_AU       3\n#define TWAF_SND      4\n\n/* CAP_ALARMS values (AL_ means alarms) */\n#define TWAL_ALARM          0\n#define TWAL_FEEDERERROR    1\n#define TWAL_FEEDERWARNING  2\n#define TWAL_BARCODE        3\n#define TWAL_DOUBLEFEED     4\n#define TWAL_JAM            5\n#define TWAL_PATCHCODE      6\n#define TWAL_POWER          7\n#define TWAL_SKEW           8\n\n/* CAP_CLEARBUFFERS values (CB_ means clear buffers) */\n#define TWCB_AUTO           0\n#define TWCB_CLEAR          1\n#define TWCB_NOCLEAR        2\n\n/* CAP_DEVICEEVENT values (DE_ means device event) */\n#define TWDE_CUSTOMEVENTS           0x8000      \n#define TWDE_CHECKAUTOMATICCAPTURE  0\n#define TWDE_CHECKBATTERY           1\n#define TWDE_CHECKDEVICEONLINE      2\n#define TWDE_CHECKFLASH             3\n#define TWDE_CHECKPOWERSUPPLY       4\n#define TWDE_CHECKRESOLUTION        5\n#define TWDE_DEVICEADDED            6\n#define TWDE_DEVICEOFFLINE          7\n#define TWDE_DEVICEREADY            8\n#define TWDE_DEVICEREMOVED          9\n#define TWDE_IMAGECAPTURED          10\n#define TWDE_IMAGEDELETED           11\n#define TWDE_PAPERDOUBLEFEED        12\n#define TWDE_PAPERJAM               13\n#define TWDE_LAMPFAILURE            14\n#define TWDE_POWERSAVE              15\n#define TWDE_POWERSAVENOTIFY        16\n\n/* CAP_FEEDERALIGNMENT values (FA_ means feeder alignment) */\n#define TWFA_NONE   0\n#define TWFA_LEFT   1\n#define TWFA_CENTER 2\n#define TWFA_RIGHT  3\n\n/* CAP_FEEDERORDER values (FO_ means feeder order) */\n#define TWFO_FIRSTPAGEFIRST 0\n#define TWFO_LASTPAGEFIRST  1\n\n/* CAP_FILESYSTEM values (FS_ means file system) */\n#define TWFS_FILESYSTEM       0\n#define TWFS_RECURSIVEDELETE  1\n\n/* CAP_POWERSUPPLY values (PS_ means power supply) */\n#define TWPS_EXTERNAL 0\n#define TWPS_BATTERY  1\n\n/* CAP_PRINTER values (PR_ means printer) */\n#define TWPR_IMPRINTERTOPBEFORE     0\n#define TWPR_IMPRINTERTOPAFTER      1\n#define TWPR_IMPRINTERBOTTOMBEFORE  2\n#define TWPR_IMPRINTERBOTTOMAFTER   3\n#define TWPR_ENDORSERTOPBEFORE      4\n#define TWPR_ENDORSERTOPAFTER       5\n#define TWPR_ENDORSERBOTTOMBEFORE   6\n#define TWPR_ENDORSERBOTTOMAFTER    7\n\n/* CAP_PRINTERMODE values (PM_ means printer mode) */\n#define TWPM_SINGLESTRING     0\n#define TWPM_MULTISTRING      1\n#define TWPM_COMPOUNDSTRING   2\n\n/* ICAP_BARCODESEARCHMODE values (TWBD_ means search) */\n#define TWBD_HORZ     0\n#define TWBD_VERT     1\n#define TWBD_HORZVERT 2\n#define TWBD_VERTHORZ 3\n\n/* ICAP_FLASHUSED2 values (FL_ means flash) */\n#define TWFL_NONE     0\n#define TWFL_OFF      1\n#define TWFL_ON       2\n#define TWFL_AUTO     3\n#define TWFL_REDEYE   4\n\n/* ICAP_FLIPROTATION values (FR_ means flip rotation) */\n#define TWFR_BOOK     0\n#define TWFR_FANFOLD  1\n\n/* ICAP_IMAGEFILTER values (IF_ means image filter) */\n#define TWIF_NONE     0\n#define TWIF_AUTO     1\n#define TWIF_LOWPASS  2\n#define TWIF_BANDPASS 3\n#define TWIF_HIGHPASS 4\n#define TWIF_TEXT     TWIF_BANDPASS\n#define TWIF_FINELINE TWIF_HIGHPASS\n\n/* ICAP_NOISEFILTER values (NF_ means noise filter) */\n#define TWNF_NONE         0\n#define TWNF_AUTO         1\n#define TWNF_LONEPIXEL    2\n#define TWNF_MAJORITYRULE 3\n\n/* ICAP_OVERSCAN values (OV_ means overscan) */\n#define TWOV_NONE       0\n#define TWOV_AUTO       1\n#define TWOV_TOPBOTTOM  2\n#define TWOV_LEFTRIGHT  3\n#define TWOV_ALL        4\n\n/* TW_FILESYSTEM.FileType values (FT_ means file type) */\n#define TWFY_CAMERA         0\n#define TWFY_CAMERATOP      1\n#define TWFY_CAMERABOTTOM   2\n#define TWFY_CAMERAPREVIEW  3\n#define TWFY_DOMAIN         4\n#define TWFY_HOST           5\n#define TWFY_DIRECTORY      6\n#define TWFY_IMAGE          7\n#define TWFY_UNKNOWN        8\n\n/****************************************************************************\n * Country Constants                                                        *\n ****************************************************************************/\n\n#define TWCY_AFGHANISTAN   1001\n#define TWCY_ALGERIA        213\n#define TWCY_AMERICANSAMOA  684\n#define TWCY_ANDORRA        033\n#define TWCY_ANGOLA        1002\n#define TWCY_ANGUILLA      8090\n#define TWCY_ANTIGUA       8091\n#define TWCY_ARGENTINA       54\n#define TWCY_ARUBA          297\n#define TWCY_ASCENSIONI     247\n#define TWCY_AUSTRALIA       61\n#define TWCY_AUSTRIA         43\n#define TWCY_BAHAMAS       8092\n#define TWCY_BAHRAIN        973\n#define TWCY_BANGLADESH     880\n#define TWCY_BARBADOS      8093\n#define TWCY_BELGIUM         32\n#define TWCY_BELIZE         501\n#define TWCY_BENIN          229\n#define TWCY_BERMUDA       8094\n#define TWCY_BHUTAN        1003\n#define TWCY_BOLIVIA        591\n#define TWCY_BOTSWANA       267\n#define TWCY_BRITAIN          6\n#define TWCY_BRITVIRGINIS  8095\n#define TWCY_BRAZIL          55\n#define TWCY_BRUNEI         673\n#define TWCY_BULGARIA       359\n#define TWCY_BURKINAFASO   1004\n#define TWCY_BURMA         1005\n#define TWCY_BURUNDI       1006\n#define TWCY_CAMAROON       237\n#define TWCY_CANADA           2\n#define TWCY_CAPEVERDEIS    238\n#define TWCY_CAYMANIS      8096\n#define TWCY_CENTRALAFREP  1007\n#define TWCY_CHAD          1008\n#define TWCY_CHILE           56\n#define TWCY_CHINA           86\n#define TWCY_CHRISTMASIS   1009\n#define TWCY_COCOSIS       1009\n#define TWCY_COLOMBIA        57\n#define TWCY_COMOROS       1010\n#define TWCY_CONGO         1011\n#define TWCY_COOKIS        1012\n#define TWCY_COSTARICA     506\n#define TWCY_CUBA           005\n#define TWCY_CYPRUS         357\n#define TWCY_CZECHOSLOVAKIA  42\n#define TWCY_DENMARK         45\n#define TWCY_DJIBOUTI      1013\n#define TWCY_DOMINICA      8097\n#define TWCY_DOMINCANREP   8098\n#define TWCY_EASTERIS      1014\n#define TWCY_ECUADOR        593\n#define TWCY_EGYPT           20\n#define TWCY_ELSALVADOR     503\n#define TWCY_EQGUINEA      1015\n#define TWCY_ETHIOPIA       251\n#define TWCY_FALKLANDIS    1016\n#define TWCY_FAEROEIS       298\n#define TWCY_FIJIISLANDS    679\n#define TWCY_FINLAND        358\n#define TWCY_FRANCE          33\n#define TWCY_FRANTILLES     596\n#define TWCY_FRGUIANA       594\n#define TWCY_FRPOLYNEISA    689\n#define TWCY_FUTANAIS      1043\n#define TWCY_GABON          241\n#define TWCY_GAMBIA         220\n#define TWCY_GERMANY         49\n#define TWCY_GHANA          233\n#define TWCY_GIBRALTER      350\n#define TWCY_GREECE          30\n#define TWCY_GREENLAND      299\n#define TWCY_GRENADA       8099\n#define TWCY_GRENEDINES    8015\n#define TWCY_GUADELOUPE     590\n#define TWCY_GUAM           671\n#define TWCY_GUANTANAMOBAY 5399\n#define TWCY_GUATEMALA      502\n#define TWCY_GUINEA         224\n#define TWCY_GUINEABISSAU  1017\n#define TWCY_GUYANA         592\n#define TWCY_HAITI          509\n#define TWCY_HONDURAS       504\n#define TWCY_HONGKONG      852\n#define TWCY_HUNGARY         36\n#define TWCY_ICELAND        354\n#define TWCY_INDIA           91\n#define TWCY_INDONESIA       62\n#define TWCY_IRAN            98\n#define TWCY_IRAQ           964\n#define TWCY_IRELAND        353\n#define TWCY_ISRAEL         972\n#define TWCY_ITALY           39\n#define TWCY_IVORYCOAST    225\n#define TWCY_JAMAICA       8010\n#define TWCY_JAPAN           81\n#define TWCY_JORDAN         962\n#define TWCY_KENYA          254\n#define TWCY_KIRIBATI      1018\n#define TWCY_KOREA           82\n#define TWCY_KUWAIT         965\n#define TWCY_LAOS          1019\n#define TWCY_LEBANON       1020\n#define TWCY_LIBERIA        231\n#define TWCY_LIBYA          218\n#define TWCY_LIECHTENSTEIN   41\n#define TWCY_LUXENBOURG     352\n#define TWCY_MACAO          853\n#define TWCY_MADAGASCAR    1021\n#define TWCY_MALAWI         265\n#define TWCY_MALAYSIA        60\n#define TWCY_MALDIVES       960\n#define TWCY_MALI          1022\n#define TWCY_MALTA          356\n#define TWCY_MARSHALLIS     692\n#define TWCY_MAURITANIA    1023\n#define TWCY_MAURITIUS      230\n#define TWCY_MEXICO           3\n#define TWCY_MICRONESIA     691\n#define TWCY_MIQUELON       508\n#define TWCY_MONACO          33\n#define TWCY_MONGOLIA      1024\n#define TWCY_MONTSERRAT    8011\n#define TWCY_MOROCCO        212\n#define TWCY_MOZAMBIQUE    1025\n#define TWCY_NAMIBIA        264\n#define TWCY_NAURU         1026\n#define TWCY_NEPAL          977\n#define TWCY_NETHERLANDS     31\n#define TWCY_NETHANTILLES   599\n#define TWCY_NEVIS         8012\n#define TWCY_NEWCALEDONIA   687\n#define TWCY_NEWZEALAND      64\n#define TWCY_NICARAGUA      505\n#define TWCY_NIGER          227\n#define TWCY_NIGERIA        234\n#define TWCY_NIUE          1027\n#define TWCY_NORFOLKI      1028\n#define TWCY_NORWAY          47\n#define TWCY_OMAN           968\n#define TWCY_PAKISTAN        92\n#define TWCY_PALAU         1029\n#define TWCY_PANAMA         507\n#define TWCY_PARAGUAY       595\n#define TWCY_PERU            51\n#define TWCY_PHILLIPPINES    63\n#define TWCY_PITCAIRNIS    1030\n#define TWCY_PNEWGUINEA     675\n#define TWCY_POLAND          48\n#define TWCY_PORTUGAL       351\n#define TWCY_QATAR          974\n#define TWCY_REUNIONI      1031\n#define TWCY_ROMANIA         40\n#define TWCY_RWANDA         250\n#define TWCY_SAIPAN         670\n#define TWCY_SANMARINO       39\n#define TWCY_SAOTOME       1033\n#define TWCY_SAUDIARABIA    966\n#define TWCY_SENEGAL        221\n#define TWCY_SEYCHELLESIS  1034\n#define TWCY_SIERRALEONE   1035\n#define TWCY_SINGAPORE       65\n#define TWCY_SOLOMONIS     1036\n#define TWCY_SOMALI        1037\n#define TWCY_SOUTHAFRICA    27\n#define TWCY_SPAIN           34\n#define TWCY_SRILANKA        94\n#define TWCY_STHELENA      1032\n#define TWCY_STKITTS       8013\n#define TWCY_STLUCIA       8014\n#define TWCY_STPIERRE       508\n#define TWCY_STVINCENT     8015\n#define TWCY_SUDAN         1038\n#define TWCY_SURINAME       597\n#define TWCY_SWAZILAND      268\n#define TWCY_SWEDEN          46\n#define TWCY_SWITZERLAND     41\n#define TWCY_SYRIA         1039\n#define TWCY_TAIWAN         886\n#define TWCY_TANZANIA       255\n#define TWCY_THAILAND        66\n#define TWCY_TOBAGO        8016\n#define TWCY_TOGO           228\n#define TWCY_TONGAIS        676\n#define TWCY_TRINIDAD      8016\n#define TWCY_TUNISIA        216\n#define TWCY_TURKEY          90\n#define TWCY_TURKSCAICOS   8017\n#define TWCY_TUVALU        1040\n#define TWCY_UGANDA         256\n#define TWCY_USSR             7\n#define TWCY_UAEMIRATES     971\n#define TWCY_UNITEDKINGDOM   44\n#define TWCY_USA              1\n#define TWCY_URUGUAY        598\n#define TWCY_VANUATU       1041\n#define TWCY_VATICANCITY     39\n#define TWCY_VENEZUELA       58\n#define TWCY_WAKE          1042\n#define TWCY_WALLISIS      1043\n#define TWCY_WESTERNSAHARA 1044\n#define TWCY_WESTERNSAMOA  1045\n#define TWCY_YEMEN         1046\n#define TWCY_YUGOSLAVIA      38\n#define TWCY_ZAIRE          243\n#define TWCY_ZAMBIA         260\n#define TWCY_ZIMBABWE       263\n/* Added for 1.8 */\n#define TWCY_ALBANIA        355\n#define TWCY_ARMENIA        374\n#define TWCY_AZERBAIJAN     994\n#define TWCY_BELARUS        375\n#define TWCY_BOSNIAHERZGO   387\n#define TWCY_CAMBODIA       855\n#define TWCY_CROATIA        385\n#define TWCY_CZECHREPUBLIC  420\n#define TWCY_DIEGOGARCIA    246\n#define TWCY_ERITREA        291\n#define TWCY_ESTONIA        372\n#define TWCY_GEORGIA        995\n#define TWCY_LATVIA         371\n#define TWCY_LESOTHO        266\n#define TWCY_LITHUANIA      370\n#define TWCY_MACEDONIA      389\n#define TWCY_MAYOTTEIS      269\n#define TWCY_MOLDOVA        373\n#define TWCY_MYANMAR        95\n#define TWCY_NORTHKOREA     850\n#define TWCY_PUERTORICO     787\n#define TWCY_RUSSIA         7\n#define TWCY_SERBIA         381\n#define TWCY_SLOVAKIA       421\n#define TWCY_SLOVENIA       386\n#define TWCY_SOUTHKOREA     82\n#define TWCY_UKRAINE        380\n#define TWCY_USVIRGINIS     340\n#define TWCY_VIETNAM        84\n\n/****************************************************************************\n * Language Constants                                                       *\n ****************************************************************************/\n\n#define TWLG_DAN              0 /* Danish                 */\n#define TWLG_DUT              1 /* Dutch                  */\n#define TWLG_ENG              2 /* International English  */\n#define TWLG_FCF              3 /* French Canadian        */\n#define TWLG_FIN              4 /* Finnish                */\n#define TWLG_FRN              5 /* French                 */\n#define TWLG_GER              6 /* German                 */\n#define TWLG_ICE              7 /* Icelandic              */\n#define TWLG_ITN              8 /* Italian                */\n#define TWLG_NOR              9 /* Norwegian              */\n#define TWLG_POR             10 /* Portuguese             */\n#define TWLG_SPA             11 /* Spanish                */\n#define TWLG_SWE             12 /* Swedish                */\n#define TWLG_USA             13 /* U.S. English           */\n/* Added for 1.8 */\n#define TWLG_USERLOCALE           -1\n#define TWLG_AFRIKAANS            14  \n#define TWLG_ALBANIA              15\n#define TWLG_ARABIC               16\n#define TWLG_ARABIC_ALGERIA       17\n#define TWLG_ARABIC_BAHRAIN       18\n#define TWLG_ARABIC_EGYPT         19\n#define TWLG_ARABIC_IRAQ          20\n#define TWLG_ARABIC_JORDAN        21\n#define TWLG_ARABIC_KUWAIT        22\n#define TWLG_ARABIC_LEBANON       23\n#define TWLG_ARABIC_LIBYA         24\n#define TWLG_ARABIC_MOROCCO       25\n#define TWLG_ARABIC_OMAN          26\n#define TWLG_ARABIC_QATAR         27\n#define TWLG_ARABIC_SAUDIARABIA   28\n#define TWLG_ARABIC_SYRIA         29\n#define TWLG_ARABIC_TUNISIA       30\n#define TWLG_ARABIC_UAE           31 /* United Arabic Emirates */\n#define TWLG_ARABIC_YEMEN         32\n#define TWLG_BASQUE               33\n#define TWLG_BYELORUSSIAN         34\n#define TWLG_BULGARIAN            35\n#define TWLG_CATALAN              36\n#define TWLG_CHINESE              37\n#define TWLG_CHINESE_HONGKONG     38\n#define TWLG_CHINESE_PRC          39 /* People\'s Republic of China */\n#define TWLG_CHINESE_SINGAPORE    40\n#define TWLG_CHINESE_SIMPLIFIED   41\n#define TWLG_CHINESE_TAIWAN       42\n#define TWLG_CHINESE_TRADITIONAL  43\n#define TWLG_CROATIA              44\n#define TWLG_CZECH                45\n#define TWLG_DANISH               TWLG_DAN\n#define TWLG_DUTCH                TWLG_DUT\n#define TWLG_DUTCH_BELGIAN        46\n#define TWLG_ENGLISH              TWLG_ENG\n#define TWLG_ENGLISH_AUSTRALIAN   47\n#define TWLG_ENGLISH_CANADIAN     48\n#define TWLG_ENGLISH_IRELAND      49\n#define TWLG_ENGLISH_NEWZEALAND   50\n#define TWLG_ENGLISH_SOUTHAFRICA  51\n#define TWLG_ENGLISH_UK           52\n#define TWLG_ENGLISH_USA          TWLG_USA\n#define TWLG_ESTONIAN             53\n#define TWLG_FAEROESE             54\n#define TWLG_FARSI                55\n#define TWLG_FINNISH              TWLG_FIN\n#define TWLG_FRENCH               TWLG_FRN\n#define TWLG_FRENCH_BELGIAN       56\n#define TWLG_FRENCH_CANADIAN      TWLG_FCF\n#define TWLG_FRENCH_LUXEMBOURG    57\n#define TWLG_FRENCH_SWISS         58\n#define TWLG_GERMAN               TWLG_GER\n#define TWLG_GERMAN_AUSTRIAN      59\n#define TWLG_GERMAN_LUXEMBOURG    60\n#define TWLG_GERMAN_LIECHTENSTEIN 61\n#define TWLG_GERMAN_SWISS         62\n#define TWLG_GREEK                63\n#define TWLG_HEBREW               64\n#define TWLG_HUNGARIAN            65\n#define TWLG_ICELANDIC            TWLG_ICE\n#define TWLG_INDONESIAN           66\n#define TWLG_ITALIAN              TWLG_ITN\n#define TWLG_ITALIAN_SWISS        67\n#define TWLG_JAPANESE             68\n#define TWLG_KOREAN               69\n#define TWLG_KOREAN_JOHAB         70\n#define TWLG_LATVIAN              71\n#define TWLG_LITHUANIAN           72\n#define TWLG_NORWEGIAN            TWLG_NOR\n#define TWLG_NORWEGIAN_BOKMAL     73\n#define TWLG_NORWEGIAN_NYNORSK    74\n#define TWLG_POLISH               75\n#define TWLG_PORTUGUESE           TWLG_POR\n#define TWLG_PORTUGUESE_BRAZIL    76\n#define TWLG_ROMANIAN             77\n#define TWLG_RUSSIAN              78\n#define TWLG_SERBIAN_LATIN        79\n#define TWLG_SLOVAK               80\n#define TWLG_SLOVENIAN            81\n#define TWLG_SPANISH              TWLG_SPA\n#define TWLG_SPANISH_MEXICAN      82\n#define TWLG_SPANISH_MODERN       83\n#define TWLG_SWEDISH              TWLG_SWE\n#define TWLG_THAI                 84\n#define TWLG_TURKISH              85\n#define TWLG_UKRANIAN             86\n/* More stuff added for 1.8 */\n#define TWLG_ASSAMESE             87\n#define TWLG_BENGALI              88\n#define TWLG_BIHARI               89\n#define TWLG_BODO                 90\n#define TWLG_DOGRI                91\n#define TWLG_GUJARATI             92\n#define TWLG_HARYANVI             93\n#define TWLG_HINDI                94\n#define TWLG_KANNADA              95\n#define TWLG_KASHMIRI             96\n#define TWLG_MALAYALAM            97\n#define TWLG_MARATHI              98\n#define TWLG_MARWARI              99\n#define TWLG_MEGHALAYAN          100\n#define TWLG_MIZO                101\n#define TWLG_NAGA                102\n#define TWLG_ORISSI              103\n#define TWLG_PUNJABI             104\n#define TWLG_PUSHTU              105\n#define TWLG_SERBIAN_CYRILLIC    106\n#define TWLG_SIKKIMI             107\n#define TWLG_SWEDISH_FINLAND     108\n#define TWLG_TAMIL               109\n#define TWLG_TELUGU              110\n#define TWLG_TRIPURI             111\n#define TWLG_URDU                112\n#define TWLG_VIETNAMESE          113\n\n/****************************************************************************\n * Data Groups                                                              *\n ****************************************************************************/\n\n/* More Data Groups may be added in the future.\n * Possible candidates include text, vector graphics, sound, etc.\n * NOTE: Data Group constants must be powers of 2 as they are used\n *       as bitflags when Application asks DSM to present a list of DSs.\n */\n\n#define DG_CONTROL          0x0001L /* data pertaining to control       */\n#define DG_IMAGE            0x0002L /* data pertaining to raster images */\n/* Added 1.8 */\n#define DG_AUDIO            0x0004L /* data pertaining to audio */\n\n/****************************************************************************\n * Data Argument Types                                                      *\n ****************************************************************************/\n\n/*  SDH - 03/23/95 - WATCH                                                  */\n/*  The thunker requires knowledge about size of data being passed in the   */\n/*  lpData parameter to DS_Entry (which is not readily available due to     */\n/*  type LPVOID.  Thus, we key off the DAT_ argument to determine the size. */\n/*  This has a couple implications:                                         */\n/*  1) Any additional DAT_ features require modifications to the thunk code */\n/*     for thunker support.                                                 */\n/*  2) Any applications which use the custom capabailites are not supported */\n/*     under thunking since we have no way of knowing what size data (if    */\n/*     any) is being passed.                                                */\n\n#define DAT_NULL            0x0000 /* No data or structure. */\n#define DAT_CUSTOMBASE      0x8000 /* Base of custom DATs.  */\n\n/* Data Argument Types for the DG_CONTROL Data Group. */\n#define DAT_CAPABILITY      0x0001 /* TW_CAPABILITY                        */\n#define DAT_EVENT           0x0002 /* TW_EVENT                             */\n#define DAT_IDENTITY        0x0003 /* TW_IDENTITY                          */\n#define DAT_PARENT          0x0004 /* TW_HANDLE, application win handle in Windows */\n#define DAT_PENDINGXFERS    0x0005 /* TW_PENDINGXFERS                      */\n#define DAT_SETUPMEMXFER    0x0006 /* TW_SETUPMEMXFER                      */\n#define DAT_SETUPFILEXFER   0x0007 /* TW_SETUPFILEXFER                     */\n#define DAT_STATUS          0x0008 /* TW_STATUS                            */\n#define DAT_USERINTERFACE   0x0009 /* TW_USERINTERFACE                     */\n#define DAT_XFERGROUP       0x000a /* TW_UINT32                            */\n/*  SDH - 03/21/95 - TWUNK                                         */\n/*  Additional message required for thunker to request the special */\n/*  identity information.                                          */\n#define DAT_TWUNKIDENTITY   0x000b /* TW_TWUNKIDENTITY                     */\n#define DAT_CUSTOMDSDATA    0x000c /* TW_CUSTOMDSDATA.                     */\n/* Added 1.8 */\n#define DAT_DEVICEEVENT     0x000d /* TW_DEVICEEVENT                       */\n#define DAT_FILESYSTEM      0x000e /* TW_FILESYSTEM                        */\n#define DAT_PASSTHRU        0x000f /* TW_PASSTHRU                          */\n\n/* Data Argument Types for the DG_IMAGE Data Group. */\n#define DAT_IMAGEINFO       0x0101 /* TW_IMAGEINFO                         */\n#define DAT_IMAGELAYOUT     0x0102 /* TW_IMAGELAYOUT                       */\n#define DAT_IMAGEMEMXFER    0x0103 /* TW_IMAGEMEMXFER                      */\n#define DAT_IMAGENATIVEXFER 0x0104 /* TW_UINT32 loword is hDIB, PICHandle  */\n#define DAT_IMAGEFILEXFER   0x0105 /* Null data                            */\n#define DAT_CIECOLOR        0x0106 /* TW_CIECOLOR                          */\n#define DAT_GRAYRESPONSE    0x0107 /* TW_GRAYRESPONSE                      */\n#define DAT_RGBRESPONSE     0x0108 /* TW_RGBRESPONSE                       */\n#define DAT_JPEGCOMPRESSION 0x0109 /* TW_JPEGCOMPRESSION                   */\n#define DAT_PALETTE8        0x010a /* TW_PALETTE8                          */\n#define DAT_EXTIMAGEINFO    0x010b /* TW_EXTIMAGEINFO -- for 1.7 Spec.     */\n\n/* Added 1.8 */\n/* Data Argument Types for the DG_AUDIO Data Group. */\n#define DAT_AUDIOFILEXFER   0x0201 /* Null data                            */\n#define DAT_AUDIOINFO       0x0202 /* TW_AUDIOINFO                         */\n#define DAT_AUDIONATIVEXFER 0x0203 /* TW_UINT32 handle to WAV, (AIFF Mac)  */\n\n/****************************************************************************\n * Messages                                                                 *\n ****************************************************************************/\n\n/* All message constants are unique.\n * Messages are grouped according to which DATs they are used with.*/\n\n#define MSG_NULL         0x0000 /* Used in TW_EVENT structure               */\n#define MSG_CUSTOMBASE   0x8000 /* Base of custom messages                  */\n\n/* Generic messages may be used with any of several DATs.                   */\n#define MSG_GET          0x0001 /* Get one or more values                   */\n#define MSG_GETCURRENT   0x0002 /* Get current value                        */\n#define MSG_GETDEFAULT   0x0003 /* Get default (e.g. power up) value        */\n#define MSG_GETFIRST     0x0004 /* Get first of a series of items, e.g. DSs */\n#define MSG_GETNEXT      0x0005 /* Iterate through a series of items.       */\n#define MSG_SET          0x0006 /* Set one or more values                   */\n#define MSG_RESET        0x0007 /* Set current value to default value       */\n#define MSG_QUERYSUPPORT 0x0008 /* Get supported operations on the cap.     */\n\n/* Messages used with DAT_NULL                                              */\n#define MSG_XFERREADY    0x0101 /* The data source has data ready           */\n#define MSG_CLOSEDSREQ   0x0102 /* Request for Application. to close DS             */\n#define MSG_CLOSEDSOK    0x0103 /* Tell the Application. to save the state.         */\n/* Added 1.8 */\n#define MSG_DEVICEEVENT  0X0104 /* Some event has taken place               */\n\n/* Messages used with a pointer to a DAT_STATUS structure                   */\n#define MSG_CHECKSTATUS  0x0201 /* Get status information                   */\n\n/* Messages used with a pointer to DAT_PARENT data                          */\n#define MSG_OPENDSM      0x0301 /* Open the DSM                             */\n#define MSG_CLOSEDSM     0x0302 /* Close the DSM                            */\n\n/* Messages used with a pointer to a DAT_IDENTITY structure                 */\n#define MSG_OPENDS       0x0401 /* Open a data source                       */\n#define MSG_CLOSEDS      0x0402 /* Close a data source                      */\n#define MSG_USERSELECT   0x0403 /* Put up a dialog of all DS                */\n\n/* Messages used with a pointer to a DAT_USERINTERFACE structure            */\n#define MSG_DISABLEDS    0x0501 /* Disable data transfer in the DS          */\n#define MSG_ENABLEDS     0x0502 /* Enable data transfer in the DS           */\n#define MSG_ENABLEDSUIONLY  0x0503  /* Enable for saving DS state only.     */\n\n/* Messages used with a pointer to a DAT_EVENT structure                    */\n#define MSG_PROCESSEVENT 0x0601\n\n/* Messages used with a pointer to a DAT_PENDINGXFERS structure             */\n#define MSG_ENDXFER      0x0701\n\n/* Added 1.8 */\n/* Messages used with a pointer to a DAT_FILESYSTEM structure               */\n#define MSG_CHANGEDIRECTORY   0x0801\n#define MSG_CREATEDIRECTORY   0x0802\n#define MSG_DELETE            0x0803\n#define MSG_FORMATMEDIA       0x0804 \n#define MSG_GETCLOSE          0x0805\n#define MSG_GETFIRSTFILE      0x0806\n#define MSG_GETINFO           0x0807\n#define MSG_GETNEXTFILE       0x0808\n#define MSG_RENAME            0x0809\n\n/* Messages used with a pointer to a DAT_PASSTHRU structure                 */\n#define MSG_PASSTHRU          0x0901\n\n/****************************************************************************\n * Capabilities                                                             *\n ****************************************************************************/\n\n#define CAP_CUSTOMBASE          0x8000 /* Base of custom capabilities */\n\n/* all data sources are REQUIRED to support these caps */\n#define CAP_XFERCOUNT           0x0001\n\n/* image data sources are REQUIRED to support these caps */\n#define ICAP_COMPRESSION        0x0100\n#define ICAP_PIXELTYPE          0x0101\n#define ICAP_UNITS              0x0102 /* default is TWUN_INCHES */\n#define ICAP_XFERMECH           0x0103\n\n/* all data sources MAY support these caps */\n#define CAP_AUTHOR                  0x1000\n#define CAP_CAPTION                 0x1001\n#define CAP_FEEDERENABLED           0x1002\n#define CAP_FEEDERLOADED            0x1003\n#define CAP_','',0,'','1hcz4lkh',1,0,'',707,0,0),(16700,3791,7,2,0,'87.218.146.202',1154600359,1,0,1,1,1,1,'','','Jose Luis,\n\nTienes que descargar el build de FWPPC que publicamos ayer.\n\nVamos a preparar un ejemplo con diálogos y recursos.','',0,'','3bjf6kvs',1,0,'',2,0,0),(16701,3791,7,262,0,'83.97.168.151',1154604689,1,0,1,1,1,1,'','','perdón , si que estaá el archivo . Era un problema de instalación del build .\nEspero ese nuevo ejemplo con recursos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .','',0,'','2ju2iht6',1,0,'',262,0,0),(16702,3488,6,147,0,'200.45.54.133',1154605204,1,0,1,0,1,1,'','','Muchas gracias!, hace mucho que lo esperaba','',0,'','1r7e04if',1,0,'',147,0,0),(16703,3674,6,362,0,'200.168.52.156',1154608777,1,0,1,1,1,1,'','','[quote=&quot;Armando Picon&quot;:yvma1jdw]Julio\n\nEs posible que te sirva lo que en su momento escribí para empaquetador de Instaladores. Puedes compilarlo con la versión que quieras de (x)Harbour a condición que soporte hzlib.\n\nEl enlace en HyperUpLoad es el siguiente\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0262576669/zipper.zip.html\">http://hyperupload.com/download/0262576 ... r.zip.html</a><!-- m -->\n\nAtentamente \n\nArmando[/quote:yvma1jdw]\n\n\nArmando, Por favor, porque no si puede Seleccionar toda la Carpeta?\n\nSolo uno por uno, és posible seleccionar todos los archivos de la carpeta de origen?\n\nLa Compilación paso perfecta.  Saludos.','',0,'gA==','yvma1jdw',1,0,'',362,0,0),(16704,3793,5,355,0,'213.23.0.82',1154609480,1,0,1,1,1,0,'','FW27++ / Alaska 1.9 Source Code','Hallo Antiono ! \nWhy can\'t I merge control PRG von FW27x into my program? Don\'t I have the correct sources?\n\n\nd:\\obj\\m27x\\CONTROL.obj: error ALK2102: unresolved external symbol SETBRUSHOR\nd:\\obj\\m27x\\CONTROL.obj: error ALK2102: unresolved external symbol DRAWPBACK\nd:\\obj\\m27x\\CONTROL.obj: error ALK2102: unresolved external symbol WNDPARENTS\nd:\\obj\\m27x\\CONTROL.obj: error ALK2102: unresolved external symbol OWNDFROMHW\nALINK: fatal error ALK4102: 4 external symbols unresolved\n\nBeste Grüße Carsten','',0,'gA==','3637rybf',1,0,'',355,0,0),(16705,3788,6,362,0,'200.168.52.156',1154609837,1,0,1,1,1,1,'','Re: Codigo para compactar archivos - Ejemplo','[quote=&quot;Armando Picon&quot;:2rvtwvsj]A todos los del foro; acabo de subier a hyperUpload el codigo de una apliación que hice para compactar archivos con la librería hzlib de (x)Harbour.\n\nEl enlace es el siguiente:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0262576669/zipper.zip.html\">http://hyperupload.com/download/0262576 ... r.zip.html</a><!-- m -->\n\nEl favor que les pido es que lo completen y me alcancen las rutinas modificadas. Hay que hacer notar que posiblemente no corra en Clipper porque fué diseñada preferentemente para harbour... pero la idea es la misma.\n\nSaludos\n\nArmando[/quote:2rvtwvsj]\n\nArmando, Por favor, porque no si puede Seleccionar toda la Carpeta? \n\nSolo uno por uno, és posible seleccionar todos los archivos de la carpeta de origen? \n\nLa Compilación paso perfecta. Saludos.','',0,'gA==','2rvtwvsj',1,0,'',362,0,0),(16706,3788,6,439,0,'190.0.132.103',1154611118,1,0,1,1,1,1,'','','Gracias por compartir el código, justamente estaba necesitando algún ejemplo utilizando hbzip.\n\nEs muy noble compartir conocimiento con la comunidad para que los novatos aprendamos.\n\nMUCHAS GRACIAS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1qhup4rl',1,0,'',439,0,0),(16707,3794,19,262,0,'83.97.168.151',1154611574,1,0,1,1,1,1,'','off topic : buscador para programadores','es un nuevo buscador para programadores , se pueden hacer busquedas por lenguajes y palabras claves , y te devuelve mucho , mucho codigo fuente ....\nPara los expertos en C puede ser de gran ayuda para reutilizar rutinas ya hechas .\n\n\n [url:1p8f2k82]http&#58;//www&#46;krugle&#46;com/[/url:1p8f2k82]\n\nEspero sirva','',0,'EA==','1p8f2k82',1,0,'',262,0,0),(16708,3784,6,104,0,'201.58.60.90',1154614962,1,0,1,1,1,0,'','','Realmente Fantástico !!!!\n\nSaludos Oskar,\n\nRossine.','',0,'EA==','2hglxb03',1,0,'',104,0,0),(16709,3726,6,106,0,'85.34.123.173',1154615476,1,0,0,1,1,1,'','','José, tambien puedes usar la opcion que viene gratuitamente en xharbour en la carpeta contrib es una clase para acceder en modo directo y funciona muy bien. hace todo lo que necesitas con comandos SQL estandar.\n\nSELECT ........, INSERT...........,  UPDATE............\n\n\nSaludos y suerte.','',0,'EA==','3a41nf1g',1,0,'',106,0,0),(16710,3795,7,57,0,'83.53.71.221',1154619429,1,0,1,1,1,1,'','bWhen en Menu no funciona.','Antonio\nLa cláusula WHEN en los Menus no funciona o por lo menos no funciona con los MENUS con Bitmaps yá que me pareció ver en algun ejemplo un Menu desabilitado.\n\n¿ Está prevista su implementación ?\n\nSaludos\nToni Sales','',0,'EA==','2k774k3a',1,0,'',57,0,0),(16711,3771,2,138,0,'201.128.111.188',1154620543,1,0,1,1,1,1,'','','En  FiveWin 16 bits, para evitar problemas con el preprocesador (PREPROCESOR TABLE OVERFLOW), usualmente se \"recorta\" el FiveWin.ch, es decir, se edita y se pone entre comentarios algunos INCLUDES que igual no se necesitaran, por ejemplo el OBJECTS.CH (que solo es necesario si estas compiladno una clase), el ODBC.CH (que solo es necesarios si vas a hacer conexiones con ODBC), el DDE.CH (necesario si haces conexiones de Dinamic Data Exchange), algunos de ellos incluyen el VKEY-CH que es llamado, desde algun archivo INCLUDE.\n\nSi haz quitado algun archivo CH que hicera referencia al VKEY.CH desde el fivewin.ch, entonces este archivo ya no se incluye y tienes que incluirlo manualmente.','',0,'EA==','1amuvwks',1,0,'',138,0,0),(16712,3796,2,52,0,'200.127.195.89',1154621449,1,0,1,1,1,1,'','Encabezados que estan en C 32 a c 16 bits','Amigos,\n\nEn una app de 32 bits, tengo los siguientes encabezados:\n\n[code:2fnjgtb6]#include &quot;hbapi&#46;h&quot;        // xHarbour\n#include &quot;windows&#46;h&quot;      // BCC 32\n#include &quot;string&#46;h&quot;       // BCC 32 [/code:2fnjgtb6]\n\npero necesito ahora crear una app en 16 bits y necesito los mismos encabezados.\n\nPregunta: para FiveWin, que cabezados corresponde poner teniendo en cuenta los que tengo en 32 bits ( los que utilizo con FWH )?\n\n\nGracias','',0,'AIA=','2fnjgtb6',1,0,'',52,0,0),(16713,3797,7,89,0,'213.21.136.60',1154623272,1,0,1,1,1,0,'','Programm terminated','I am happy to have terminate the programm ib FWPPC for the management of order for restaurant . It wotks wireless via socket with a PC . \nThe test phase worked well and I wish to thank everybody yhat has helped me,witha special thank to Antonio\n\nRegards Maurizio \n\nPocket  PC\n\n[url=http&#58;//img197&#46;imageshack&#46;us/my&#46;php?image=menu1td4&#46;jpg:2wib54km][img:2wib54km]http&#58;//img197&#46;imageshack&#46;us/img197/572/menu1td4&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]\n\n[url=http&#58;//img156&#46;imageshack&#46;us/my&#46;php?image=menu2wp5&#46;jpg:2wib54km][img:2wib54km]http&#58;//img156&#46;imageshack&#46;us/img156/8172/menu2wp5&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]\n\n[url=http&#58;//img156&#46;imageshack&#46;us/my&#46;php?image=menu3gf9&#46;jpg:2wib54km][img:2wib54km]http&#58;//img156&#46;imageshack&#46;us/img156/8960/menu3gf9&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]\n\n[url=http&#58;//img63&#46;imageshack&#46;us/my&#46;php?image=menu4ch8&#46;jpg:2wib54km][img:2wib54km]http&#58;//img63&#46;imageshack&#46;us/img63/9687/menu4ch8&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]\n\n[url=http&#58;//img156&#46;imageshack&#46;us/my&#46;php?image=menu5ot7&#46;jpg:2wib54km][img:2wib54km]http&#58;//img156&#46;imageshack&#46;us/img156/6610/menu5ot7&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]\n\nPC \n\n[url=http&#58;//img156&#46;imageshack&#46;us/my&#46;php?image=touch1mw6&#46;jpg:2wib54km][img:2wib54km]http&#58;//img156&#46;imageshack&#46;us/img156/6334/touch1mw6&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]\n\n[url=http&#58;//img156&#46;imageshack&#46;us/my&#46;php?image=touch2fj5&#46;jpg:2wib54km][img:2wib54km]http&#58;//img156&#46;imageshack&#46;us/img156/4313/touch2fj5&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]\n\n[url=http&#58;//img156&#46;imageshack&#46;us/my&#46;php?image=touch3lq2&#46;jpg:2wib54km][img:2wib54km]http&#58;//img156&#46;imageshack&#46;us/img156/7046/touch3lq2&#46;th&#46;jpg[/img:2wib54km][/url:2wib54km]','',0,'GA==','2wib54km',1,0,'',89,0,0),(16714,3542,3,52,0,'200.127.195.89',1154623466,1,0,1,1,1,1,'','Re: Can we have Menus in ReBar like Ms-Word Menus','[quote=&quot;RAMESHBABU&quot;:2g4v3pt0]Hi \n\nCould anybody try to place menus on ReBar ?\n\n\n- Ramesh Babu P[/quote:2g4v3pt0]','',0,'gA==','2g4v3pt0',1,0,'',52,0,0),(16715,3797,7,2,0,'87.218.146.37',1154623639,1,0,1,1,1,1,'','','Maurizio,\n\nCongratulations! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3vo5ilx0',1,0,'',2,0,0),(16716,3794,19,2,0,'87.218.146.37',1154623754,1,0,1,1,1,1,'','','Jose Luis,\n\nGracias! Paso la conversación a off topic/ varios.','',0,'gA==','6xkm3vo1',1,0,'',2,0,0),(16717,3798,6,49,0,'62.13.172.78',1154624023,1,0,1,1,1,1,'','small cash','Any one can write to me an small sample to make a mini TPV with a browse ? \nI made buttons of products when I click on it must insert a record on listbox ( cod,desc,price,cat) \n\nregards','',0,'gA==','20nt1itk',1,0,'',49,0,0),(16718,3796,2,2,0,'87.218.146.37',1154624088,1,0,1,1,1,1,'','','Gustavo,\n\nIgual, salvo que en vez de hbapi.h has de usar extend.api','',0,'gA==','21mkcm9f',1,0,'',2,0,0),(73078,14185,6,66,0,'190.18.54.191',1231290995,1,0,1,1,1,0,'','Ayuda con  Error  Adordd','Estimados colegas \n\nEstoy probando los ejemplos de adordd  y en access me tira  el siguiente error\n\n   Error description: Error TOleAuto/-1  Unknown error: TOLEAUTO:NEW\n   Args:\n     [   1] = C   ADOX.Catalog\n\nStack Calls\n===========\n   Called from:  =&gt; THROW(0)\n   Called from: win32ole.prg =&gt; TOLEAUTO:NEW(331)\n   Called from: adordd.PRG =&gt; ADO_OPEN(0)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: access1.prg =&gt; MAIN(7)\n\n\n y en mysql\n\n\nApplication\n===========\n   Path and name: C:\\ADO2241\\samples\\mysql.exe (32 bits)\n   Size: 1,517,056 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 01/06/09, 23:13:24\n   Error description: Error ADODB.Connection/0  S_OK: OPEN\n   Args:\n     [   1] = C   DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: adordd.PRG =&gt; ADO_OPEN(0)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: mysql1.PRG =&gt; MAIN(0)\n\n\nEstoy usando FHW 8.05  y xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6095)\n\nalguien me podria orientar  Gracias\nFabian','cadb5678ce446eef02086919241efb0b',0,'','2mkndtcr',1,0,'',0,0,0),(16720,3756,3,2,0,'87.218.146.37',1154624213,1,0,1,1,1,1,'','','Jose,\n\nCould you post the RC of your sample ? Thanks','',0,'gA==','3cps1cqv',1,0,'',2,0,0),(73079,14180,20,2,0,'87.218.146.208',1231291444,1,0,1,1,1,1,'','Re: Transparent radiobutton','<!-- l --><a class=\"postlink-local\" href=\"http://forums.fivetechsupport.com/viewtopic.php?f=3&amp;t=14183&amp;p=73071#p73071\">viewtopic.php?f=3&amp;t=14183&amp;p=73071#p73071</a><!-- l -->','3f2dc1f4b37ca7a959fc9752bebcef49',0,'','351pm8yb',1,0,'',0,0,0),(16722,3783,6,396,0,'200.7.108.8',1154624727,1,0,1,1,1,1,'','','Todo esto esta muy bueno, me alegra que sirva para otros, pero hay 1 pequeño detalle, mi sistema debera trabajar en red, lo que significa que varios usuarios podran usar la facturacion al mismo tiempo y debo comprobar la existencia de 1 producto que se este vendiendo al mismo momento ya que hay una DBF con el saldo actual pero cuando se actualiza al momento de finalizar la facturacion, por eso necesito trabajar con DBF temporales por usuario para asi verificar en cada 1 de los usuarios si estan vendiendo el mismo producto y que cantidad para darle al nuevo usuario el SaldoReal-CantidadReservada en ese momento, con los array puedo hacer eso...? espero haberme explicado, gracias.','',0,'gA==','1yxbv2xh',1,0,'',396,0,0),(16723,3801,2,180,0,'81.38.53.19',1154625414,1,0,1,1,1,0,'','Windows XP64 y Fivewin','Es que las aplicaciones fivewin 16 no funcionan en Windows XP64 ?\nHay alguna forma, manera parche o similar para hacerlas funcionar?\nYa se que me van a decir que me pase a FWH (para después del verano) pero ahora necesito una solucion inmediata si es que existem claro.\n\nUn saludo,\nManuel','',0,'gA==','2527vgeb',1,0,'',180,0,0),(16724,3783,6,492,0,'201.154.126.49',1154627126,1,0,1,1,1,1,'','','Hola Jose\n\n\nenviado ......\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nSaludos','',0,'gA==','2yefqr54',1,0,'',492,0,0),(16725,3700,3,2,0,'87.218.146.37',1154627345,1,0,1,1,1,1,'','','Dale,\n\nThis is a temporary workaround. Copy this code in your main PRG:\n[code:397twhv7]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\ntypedef struct\n&#123;\n   FARPROC farProc;\n   BYTE bType;\n   BYTE bReturn;\n   BYTE bParams;\n   BYTE bParam&#91; 15 &#93;;\n&#125; STRFUNC;\n\nHB_FUNC&#40; GETPROCADDRESS &#41;\n&#123;\n   STRFUNC strFunc;\n   BYTE b = 0;\n   BYTE bFunc&#91; 4 &#93;;\n\n   strFunc&#46;bParams = hb_pcount&#40;&#41; - 4;\n   \n   if&#40; ISNUM&#40; 2 &#41; &#41;\n   &#123;\n      bFunc&#91; 0 &#93;      = hb_parni&#40; 2 &#41;;\n      bFunc&#91; 1 &#93;      = 0;\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, &#40; LPSTR &#41; bFunc &#41;;\n   &#125;\n   else\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41;;\n\n   strFunc&#46;bType      = hb_parl&#40; 3 &#41;;\n   strFunc&#46;bReturn    = hb_parni&#40; 4 &#41;;\n\n   while&#40; b &lt; strFunc&#46;bParams &#41;\n   &#123;\n      strFunc&#46;bParam&#91; b &#93; = hb_parni&#40; 5 + b &#41;;\n      b++;                // keep this here cause Borland 5\n   &#125;\n\n   hb_retclen&#40; &#40; char * &#41; &amp;strFunc, sizeof&#40; STRFUNC &#41; - 15 + strFunc&#46;bParams &#41;;\n&#125;\n\n#pragma ENDDUMP \n[/code:397twhv7]','',0,'AIA=','397twhv7',1,0,'',2,0,0),(16726,3802,3,2,0,'87.218.146.37',1154627434,1,0,1,1,1,1,'','xHarbour builder &amp; FWH - workaround','There is a problem with the most recent xHarbour builder and FWH. Copy this code in your main PRG and it fixes it:\n[code:2x9dm63c]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\ntypedef struct\n&#123;\n   FARPROC farProc;\n   BYTE bType;\n   BYTE bReturn;\n   BYTE bParams;\n   BYTE bParam&#91; 15 &#93;;\n&#125; STRFUNC;\n\nHB_FUNC&#40; GETPROCADDRESS &#41;\n&#123;\n   STRFUNC strFunc;\n   BYTE b = 0;\n   BYTE bFunc&#91; 4 &#93;;\n\n   strFunc&#46;bParams = hb_pcount&#40;&#41; - 4;\n   \n   if&#40; ISNUM&#40; 2 &#41; &#41;\n   &#123;\n      bFunc&#91; 0 &#93;      = hb_parni&#40; 2 &#41;;\n      bFunc&#91; 1 &#93;      = 0;\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, &#40; LPSTR &#41; bFunc &#41;;\n   &#125;\n   else\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41;;\n\n   strFunc&#46;bType      = hb_parl&#40; 3 &#41;;\n   strFunc&#46;bReturn    = hb_parni&#40; 4 &#41;;\n\n   while&#40; b &lt; strFunc&#46;bParams &#41;\n   &#123;\n      strFunc&#46;bParam&#91; b &#93; = hb_parni&#40; 5 + b &#41;;\n      b++;                // keep this here cause Borland 5\n   &#125;\n\n   hb_retclen&#40; &#40; char * &#41; &amp;strFunc, sizeof&#40; STRFUNC &#41; - 15 + strFunc&#46;bParams &#41;;\n&#125;\n\n#pragma ENDDUMP \n[/code:2x9dm63c]','',0,'AIA=','2x9dm63c',1,0,'',2,0,0),(16727,3803,6,2,0,'87.218.146.37',1154627864,1,0,1,1,1,1,'','xHarbour builder y FWH - solución','Hay un problema con la versión más reciente de xHarbour builder y FWH. Copia este código a tu PRG principal, y se soluciona:\n[code:2wr7xklr]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\ntypedef struct\n&#123;\n   FARPROC farProc;\n   BYTE bType;\n   BYTE bReturn;\n   BYTE bParams;\n   BYTE bParam&#91; 15 &#93;;\n&#125; STRFUNC;\n\nHB_FUNC&#40; GETPROCADDRESS &#41;\n&#123;\n   STRFUNC strFunc;\n   BYTE b = 0;\n   BYTE bFunc&#91; 4 &#93;;\n\n   strFunc&#46;bParams = hb_pcount&#40;&#41; - 4;\n   \n   if&#40; ISNUM&#40; 2 &#41; &#41;\n   &#123;\n      bFunc&#91; 0 &#93;      = hb_parni&#40; 2 &#41;;\n      bFunc&#91; 1 &#93;      = 0;\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, &#40; LPSTR &#41; bFunc &#41;;\n   &#125;\n   else\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41;;\n\n   strFunc&#46;bType      = hb_parl&#40; 3 &#41;;\n   strFunc&#46;bReturn    = hb_parni&#40; 4 &#41;;\n\n   while&#40; b &lt; strFunc&#46;bParams &#41;\n   &#123;\n      strFunc&#46;bParam&#91; b &#93; = hb_parni&#40; 5 + b &#41;;\n      b++;                // keep this here cause Borland 5\n   &#125;\n\n   hb_retclen&#40; &#40; char * &#41; &amp;strFunc, sizeof&#40; STRFUNC &#41; - 15 + strFunc&#46;bParams &#41;;\n&#125;\n\n#pragma ENDDUMP \n[/code:2wr7xklr]','',0,'AIA=','2wr7xklr',1,0,'',2,0,0),(16728,3804,4,224,0,'162.83.94.176',1154630127,1,0,1,1,1,1,'','Updating SAY When Indexing','Hi,\n\nPerhaps someone can see a solution to my problem. I have put together a file maintenance section to reindex files on the PocketPC if necessary. I would like to give the user feedback with a status SAY and a progress bar.  The progress bar works flawlessly, but updates to the SAY are blocked until the indexing is complete. The sample below (sorry for the length) works with the customer.dbf in the \\SAMPLES directory.\n\nThanks in advance!\n\n[code:2wzokvwq]#include &quot;FWCE&#46;ch&quot;\n\nREQUEST DBFCDX\n\n******************************************************************************\nFUNCTION Main&#40;&#41;\n******************************************************************************\nLOCAL oWnd, oBar, oSay\n\n   DEFINE WINDOW oWnd TITLE &quot;Index&quot;\n\n   @ 40, 5 BUTTON &quot;Index&quot; OF oWnd SIZE 80, 25 PIXEL ;\n           ACTION &#40; oSay&#58;setText&#40; &quot;Now indexing&#46;&#46;&#46;&quot; &#41;, DoIndex&#40; oBar, oSay &#41; &#41;\n\n   @ 160, 5 SAY oSay PROMPT &quot;File Progress&#46;&#46;&#46;&quot; OF oWnd SIZE 230, 20 PIXEL\n\n   @ 180, 5 PROGRESS oBar OF oWnd SIZE 230, 15 PIXEL\n\n   oBar&#58;SetRange&#40; 0, 100 &#41;\n   oBar&#58;nPosition &#58;= 0\n\n   ACTIVATE WINDOW oWnd\n\nRETURN NIL\n\n******************************************************************************\nProcedure DoIndex&#40; oBar, oSay &#41;\n******************************************************************************\n\n   Select 0\n   USE &#40; CurDir&#40;&#41; + &quot;\\customer&quot; &#41; VIA &quot;DBFCDX&quot; Exclusive\n\n   oSay&#58;setText&#40; &quot;Indexing to tag LAST&#46;&#46;&#46;&quot; &#41;\n   ordCreate&#40; &#40; CurDir&#40;&#41; + &quot;\\customer&quot; &#41;, &quot;LAST&quot;, &quot;last&quot;, &#123;|| Ndxbar&#40;oBar,1&#41;, last &#125; &#41;\n\n   Sleep&#40; 2000 &#41;\n   oBar&#58;nPosition &#58;= 0\n   Sleep&#40; 2000 &#41;\n\n   oSay&#58;setText&#40; &quot;Indexing to tag FIRST&#46;&#46;&#46;&quot; &#41;\n   ordCreate&#40; &#40; CurDir&#40;&#41; + &quot;\\customer&quot; &#41;, &quot;FIRST&quot;, &quot;first&quot;, &#123;|| Ndxbar&#40;oBar,1&#41;, first &#125; &#41;\n\n   Sleep&#40; 2000 &#41;\n   oBar&#58;nPosition &#58;= 0\n   Sleep&#40; 2000 &#41;\n\n   oSay&#58;setText&#40; &quot;Indexing to tag CITY&#46;&#46;&#46;&quot; &#41;\n   ordCreate&#40; &#40; CurDir&#40;&#41; + &quot;\\customer&quot; &#41;, &quot;CITY&quot;, &quot;city&quot;, &#123;|| Ndxbar&#40;oBar,1&#41;, city &#125; &#41;\n\n   CLOSE ALL\n\n   Sleep&#40; 2000 &#41;\n\n   MsgInfo&#40; &quot;Done!&quot; &#41;\n\nReturn\n\n******************************************************************************\nFUNCTION Ndxbar&#40;oBar,nEvery&#41;\n******************************************************************************\nLOCAL nLastrec\n\nSTATIC nCounter &#58;= 0\n\nDEFAULT nEvery &#58;= 10\n\n   IF ++nCounter &gt;= nEvery\n      nCounter &#58;= 0\n      nLastrec &#58;= lastrec&#40;&#41;\n      IF nLastrec &gt; 0\n         oBar&#58;nPosition &#58;= &#40;&#40;recno&#40;&#41;/nLastrec&#41;*100&#41;\n      ENDIF\n   ENDIF\n\nRETURN nil\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; SLEEP &#41;\n&#123;\n    Sleep&#40; hb_parnl&#40; 1 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:2wzokvwq]','',0,'AIA=','2wzokvwq',1,0,'',224,0,0),(16729,3726,6,439,0,'190.0.137.84',1154630716,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:1igaussx]José, tambien puedes usar la opcion que viene gratuitamente en xharbour en la carpeta contrib es una clase para acceder en modo directo y funciona muy bien. hace todo lo que necesitas con comandos SQL estandar.\n\nSELECT ........, INSERT...........,  UPDATE............\n\n\nSaludos y suerte.[/quote:1igaussx]\n\nMuchas Gracias Pedro, es muy bueno recibir tanta ayuda de los colegas.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nRevisaré los fuentes y haré alguna pruebita','',0,'gA==','1igaussx',1,0,'',439,0,0),(16730,3775,3,705,0,'61.0.138.162',1154631400,1,0,1,1,1,0,'','How can I','Thanks Mr. Antonio L. for your support. I have seen samples\\testget2. But that is exam of get fields from local var. I am trying to access fields from a .dbf file and store the input data in .dbf. That I am not success.\nSome other points skip from your sight in my last post. Please look on that part also. Can you give me a short Exam?\n\nThank Arindam','',0,'gA==','bzbl8q9u',1,0,'',705,0,0),(16731,3756,3,439,0,'190.0.137.84',1154632298,1,0,1,1,1,1,'','','Thanks Antonio\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0143136e70/CAPTURA.rar.html\">http://hyperupload.com/download/0143136 ... A.rar.html</a><!-- m -->\n\nHere you will find the prg and the rc files, you will see that the windows looses focus and the program fails.','',0,'gA==','ubd48is7',1,0,'',439,0,0),(16732,3635,3,299,0,'69.65.86.182',1154634685,1,0,1,0,1,0,'','','Enrico;\n\nThen what I need is to find out where on the page did that last line printed vertically.  This is so that I can go on printing other stuff on the next line after that.\n\nSo if I print with:\n[code:6p63xmqz]\n	nFrom &#58;= REPrintBox&#40; oRtf&#58;hWnd, &#58;&#58;oPrn&#58;hDCOut, &#46;t&#46;, nTop, nLeft, nBottom, nRight, nFrom &#41;\n[/code:6p63xmqz]\n\nThen with:\n[code:6p63xmqz]\n	oRtf&#58;GetLineFromChar&#40; nFrom &#41;\n\n[/code:6p63xmqz]\nI know the last line from the richtext that printed.  But how can I find out where in inches or centemeters on the page did it print?\n\nRC.','',0,'AIA=','6p63xmqz',1,0,'',299,0,0),(16733,3635,3,6,0,'87.10.1.182',1154636046,1,0,1,1,1,1,'','','I don\'t know, sorry.\n\nEMG','',0,'AIA=','1oi29meh',1,0,'',6,0,0),(16734,3804,4,2,0,'87.218.146.37',1154636072,1,0,1,1,1,1,'','','Bill,\n\nPlace a call to SysRefresh() from Ndxbar(). You may fine tune it to not call it everytime as it is time consuming.','',0,'AIA=','5i7d2948',1,0,'',2,0,0),(16735,3775,3,2,0,'87.218.146.37',1154636306,1,0,1,1,1,1,'','','Arindam,\n\nUsually you use local vars for GETs and later on you save their contents to the DBF fields.\n\n&gt; a) How Can I set font name and size? \n\nSearch in samples directory for DEFINE FONT ... \n\n&gt;\nb) Some Procedure/Function Return shows Warning… during compilation. The msg in “Procedure return value” ……… What is this actually? \n&gt;\n\nA procedure should not return a value. Only functions return values.\n\n&gt;\nc) If I want to move a child mdi window within a specific area of main MDI window, then how can I set the same?\n&gt;\n\noWndChild:Move( nTop, nLeft, nWidth, nHeight, lRepaint )','',0,'AIA=','dmyseaxf',1,0,'',2,0,0),(16736,3804,4,224,0,'162.83.94.176',1154636360,1,0,1,1,1,1,'','','Ah, very good. This solves it. Thank you for this tip!','',0,'AIA=','24vnl0f0',1,0,'',224,0,0),(16737,3801,2,2,0,'87.218.146.37',1154636509,1,0,1,1,1,1,'','','Manuel,\n\nLas aplicaciones de 16 bits no funcionan en Windows 64 bits.','',0,'AIA=','1k0c25rm',1,0,'',2,0,0),(16738,3805,6,701,0,'83.61.171.46',1154638229,1,0,1,1,1,0,'','O.T. vCode de CanalFive','Alguien sabe algo de vCode de CanalFine? Es un desarrollo vivo, muerto o empantanado ? Allá por Febrero/2004 José Luis Sánchez Navarro hablaba excelencias de este desarrollo en <!-- w --><a class=\"postlink\" href=\"http://www.avemundi.com\">www.avemundi.com</a><!-- w --> ( <!-- w --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/000100.html\">www.avemundi.com/archivos/000100.html</a><!-- w --> ). ¿Que habrá sido de él?\nLa web de CanalFive hace tiempo que no funciona.\n\nSaludos,\nFenix','',0,'AIA=','23zydg91',1,0,'',701,0,0),(16739,3806,2,235,0,'201.140.14.50',1154638721,1,0,1,1,1,0,'','ayuda con inkey()','resulta que en clipper (modo DOS) me funciona el siguiente ejemplo:\n\nproceso:=iif(inkey(5)=171,\"A\",\"B\")\n\npero en fivewin siempre me manda a \"B\".\n\nesto lo uso cuando, desde el menu se selecciona x opcion y espera 5 seg a que se precione ALT+171, para hacer x o si no se presiona nada haga y , pero no me da el mismo resultado que clipper puro.\n\npor su ayuda muchas gracias.','',0,'AIA=','2x1dm9m7',1,0,'',235,0,0),(16740,3807,6,264,0,'200.91.3.10',1154639048,1,0,1,1,1,0,'','Programa que trabaje como servicio','Hola a todos.\nExistira alguna forma de dejar un EXE tipo \"servicio\" en la charola de XP. ?\nCualquier ayuda bien recibida.\nSaludos','',0,'AIA=','21182cgz',1,0,'',264,0,0),(16741,3808,2,52,0,'200.127.195.89',1154642137,1,0,1,1,1,1,'','FLAGS para compilar C','Amigos,\n\nCuáles son los FLAG que necesito insertar para compilar los codigos C que voy a utilizar en las app hechas con FW ( 16 bits )? \n\nGracias.','',0,'AIA=','1yxug94b',1,0,'',52,0,0),(16742,3807,6,177,0,'82.130.233.98',1154642731,1,0,1,1,1,0,'','','dbzap,\n\nmira en <!-- m --><a class=\"postlink\" href=\"http://www.fermu.com/content/view/263/2/lang,es/\">http://www.fermu.com/content/view/263/2/lang,es/</a><!-- m -->\n\nSaludos,\n\nBaxajaun','',0,'AIA=','11ju7lqy',1,0,'',177,0,0),(16743,3809,19,177,0,'82.130.233.98',1154643131,1,0,1,1,1,0,'','Comunidad FON/FON Community','Interesante/Interesting\n\nFON es la mayor Comunidad WiFi del mundo, abierta a todo el que quiera unirse a nosotros y conectarse gratis a Internet sin cables en cualquier rincón del mundo.\n\nTodo comenzó con una idea simple: disfrutar de tecnología WiFi en todas partes a través de la infraestructura WiFi generada por los propios usuarios miembros de la Comunidad FON. \n\nUnirte a nosotros es igual de simple: sólo necesitas registrarte gratis, tener conexión de banda ancha y descargar en tu router nuestro software para convertirlo en un Router Social FON.\n\nSi no tienes un router compatible con el software de FON, puedes comprar un Router Social FON subvencionado en nuestra tienda.\n\n-------------------------------------------------------------------------------------\n\nFON is the largest WiFi community in the world, open to anyone who wishes to unite and connect to the Internet for free from any corner of the world without cables. It all started as a simple idea: enjoy WiFi technology everywhere across a WiFi infrastructure built by same members of the FON Community. Joining us is just as easy. All you need is to register for free, have broadband connection and to download our software onto your router. This converts your router into a FON Social Router. If you do not have a router that is compatible with FON’s software, you can purchase one of our subsidized FON Social Routers at our online store.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://es.fon.com\">http://es.fon.com</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://en.fon.com\">http://en.fon.com</a><!-- m -->\n\nSaludos/Regards\n\nBaxajaun','',0,'AIA=','3m94x4jp',1,0,'',177,0,0),(16744,3808,2,2,0,'87.218.146.77',1154648193,1,0,1,1,1,1,'','','Gustavo,\n\nSi vas a usar Borland sólo tienes que usar -c -ml','',0,'AIA=','2fpgkg9k',1,0,'',2,0,0),(16745,3783,6,39,0,'201.220.111.19',1154649015,1,0,1,1,1,0,'','','[quote=&quot;joseluisysturiz&quot;:3rdvu88k]Todo esto esta muy bueno, me alegra que sirva para otros, pero hay 1 pequeño detalle, mi sistema debera trabajar en red, lo que significa que varios usuarios podran usar la facturacion al mismo tiempo y debo comprobar la existencia de 1 producto que se este vendiendo al mismo momento ya que hay una DBF con el saldo actual pero cuando se actualiza al momento de finalizar la facturacion, por eso necesito trabajar con DBF temporales por usuario para asi verificar en cada 1 de los usuarios si estan vendiendo el mismo producto y que cantidad para darle al nuevo usuario el SaldoReal-CantidadReservada en ese momento, con los array puedo hacer eso...? espero haberme explicado, gracias.[/quote:3rdvu88k]\n\nClaro que puedes, pero yo creo que lo mas indicado es que tengas una tabla de control, donde cuando un usuario este vendiendo un producto le pongas un registro, y cada vez que un usuario use este producto consulte la base de datos de control, lo mismo cuando se grabe la venta, pues rebajas el saldo y quitas el registro de control, y si no se finaliza la venta pues eliminas el registro de control y listo.\n\nLo pesado de esto es controlar los posibles cuelgues y caidas de sistema que pueden dejar bloqueado un registro en la tabla de control, pero eso se puede solucionar creando un archivo en forma local por cada registro de control y al iniciar el programa verificar si existe alguno de estos archivos, leerlo y corregir la tabla de control de ser necesario.\n\n\nAtte,\nLautaro','',0,'gA==','3rdvu88k',1,0,'',39,0,0),(16746,3810,6,307,0,'200.79.145.198',1154653185,1,0,1,1,1,0,'','Antonio Problemas con Get','Tengo una pantalla con un par de gets con fechas y un browse\nal momento de quitarle el foco a cualquier get y poner el foco en el browse el get de fecha se queda en blanco... solo pasa si el get contiene una fecha...\n\nchecando la clase vi lo siguiente:\nen el lostFocus\nsi comento esta parte ya funciona bien en las fechas pero.. en los gets donde hay numeros cuando me regreso con las flechas les quita un digito..\n\n\nif ! ::oGet:BadDate\n      ::oGet:KillFocus()\n   else\n      ::oGet:Pos = 1\n      ::nPos = 1\n      #ifndef __CLIPPER__\n         ::oGet:TypeOut = .f.\n      #endif\n   endif\n\nalguna sugerencia..\n\narnulfo','',0,'gA==','22dnjbup',1,0,'',307,0,0),(16747,3801,2,138,0,'201.128.111.188',1154655782,1,0,1,1,1,1,'','','Va a ser que no, ninguna aplicacion de 16 bits, Clipper incluido, funciona con Windows 64, ni con Windows Vista, hasta donde hemos probado.','',0,'gA==','1ccaqbg0',1,0,'',138,0,0),(16748,3805,6,138,0,'201.128.111.188',1154655998,1,0,1,1,1,1,'','','Justo hoy hace un rato hable con Paco Garcia.\n\nPues sucede que esta liado con cosas de su trabajo y de momento ha dejado de lado el tema de VCode, me ha dicho que lo retomara cuando le baje un poco la carga de trabajo.','',0,'gA==','3rjrvkgz',1,0,'',138,0,0),(16749,3811,7,150,0,'62.15.122.193',1154656286,1,0,1,1,1,1,'','Menu que se pueda seleccionar con teclado num. y con puntero','Hola:\n\nCuando uso oWnd:bKeyDown me dice (al ejecutar):\n\n\"Not implemented yet: GetNumberOfConsoleInputEvents\"\n\n¿De que otra manera podría hacerlo?\n\n\n\n\n#include \"FWCE.ch\"\n#INCLUDE \"hbclass.ch\"\n#include \"Directry.ch\"\n\n\nREQUEST DBFCDX\nREQUEST HB_LANG_ESWIN\nREQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..)\n\n\n//----------------------------------------------------------------------------//\n\nFUNCTION Main()\n***************\n\n   LOCAL oWnd\n\n   PRIVATE oBoton0,oBoton1,oBoton2\n\n   DEFINE WINDOW oWnd TITLE \"Menu\"\n\n   oWnd:bKeyDown := {|| InterpretaTeclado()}\n\n   @   0,121 BTNBMP oBoton0  ;\n      SIZE 120, 50 ;\n      PROMPT \"0-Salir\";\n      ACTION (EjecutaMenu(\"0\"))\n\n   @  51, 0  BTNBMP oBoton1 ;          // Si clico en el boton pierde foco el get y por lo tanto ejecuta el valid\n      SIZE 120, 50 ;\n      PROMPT \"1-Opcion 1\";\n      ACTION ( EjecutaMenu(\"1\"))\n\n   @ 51,121  BTNBMP oBoton2 FILE \"2-Pda.bmp\" ;\n      SIZE 120, 50 ;\n      PROMPT \"2-Opcion 2\";\n      ACTION ( EjecutaMenu(\"2\"))\n\n   ACTIVATE WINDOW oWnd\n\nRETU NIL\n\nSTATIC FUNC EjecutaMenu(pOpcion)\n********************************\n   MsgInfo(\"P:\"+pOpcion)\n\n   RETURN .F.     // Para que nunca salga de oOpcion\n\nSTATIC FUNC InterpretaTeclado()\n********************************\n   LOCAL nOpcion := LastKey()\n\n   IF nOpcion &gt;= Asc(\"0\") .AND. nOpcion &lt;= Asc(\"9\")\n      EjecutaMenu(Asc(nOpcion))\n   ENDIF\n\n   RETURN .T.','',0,'gA==','172sxlrp',1,0,'',150,0,0),(16750,3807,6,138,0,'201.128.111.188',1154656306,1,0,1,1,1,1,'','','Ostras Felix, justo hoy estaba por ponerme con eso, me ha venido como anillo al dedo. ¿ que tal esta Gorka ? hace un monton que no se sabe nada de ti','',0,'gA==','2d06vmzb',1,0,'',138,0,0),(16751,3808,2,52,0,'200.127.195.89',1154658171,1,0,1,1,1,1,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:2p0cnilm]Gustavo,\n\nSi vas a usar Borland sólo tienes que usar -c -ml[/quote:2p0cnilm]\n\nCon que version de borland deberia de compilar? porque cuando quiero compilarlos con la 4.52 me salen muchos errores, entre otros estos:\n\nError C:\\Borland\\BC45\\Include\\windows.h 157: Multiple declaration for \'BOOL\'\nError C:\\Borland\\BC45\\Include\\windows.h 162: Declaration terminated incorrectly\nError C:\\Borland\\BC45\\Include\\windows.h 216: Multiple declaration for \'PBYTE\'\nError C:\\Borland\\BC45\\Include\\windows.h 222: Declaration terminated incorrectly\nError C:\\Borland\\BC45\\Include\\windows.h 223: Declaration terminated incorrectly','',0,'gA==','2p0cnilm',1,0,'',52,0,0),(16752,3807,6,492,0,'201.154.126.49',1154662496,1,0,1,1,1,1,'','','Hola a todos\n\nAqui les dejo un link para bajar un archivo que explica todas y cada una de las formas para ejecutar una app, esta muy interesante.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02bb8dc412/Todas_las_formas_de_ejecutar_un_programa_al_inicio_de_Windows_!.htm.html\">http://hyperupload.com/download/02bb8dc ... !.htm.html</a><!-- m -->\n\n\nEs una documentacion por parte de Darío Hernán Irigaray que tenia por ahi   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEspero les sirva, ( estoy casi seguro que asi sera )\n\nSaludos','',0,'gA==','2rhhjdo4',1,0,'',492,0,0),(16753,3807,6,492,0,'201.154.126.49',1154662944,1,0,1,1,1,1,'','','Sobese !!! no sirve el link !!!  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nQuizas por que estaba o muy largo el nombre o por que era una pagina html, ya lo pase a texto y aqui esta el nuevo link ..\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029d9e2988/ejecutarApp.txt.html\">http://hyperupload.com/download/029d9e2 ... p.txt.html</a><!-- m -->\n\n\nsorry, fue sin querer queriendo    <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n\nSaludos','',0,'gA==','2e5muyd3',1,0,'',492,0,0),(16754,3812,6,492,0,'201.154.126.49',1154666022,1,0,1,1,1,1,'','Impresion en Imp. Matriz, usando puerto USB','Hola Foro  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nTengo una pequeña aplicacion que imprime en modo texto al LPT1 usando la clase TDosPrn, hasta aqui sin problemas, pero al parecer se daño el puerto paralelo de la impresora y se quiere usar el puerto USB que trae la misma y obviamente no lo reconoce la clase, alguna idea, sugerencia o que clase conocen que imprima en texto via usb ?\n\nLa impresora es una epson FX-2190 y si, en efecto, trae los 2 puertos.\n\nSaludos','',0,'gA==','3im9d4rd',1,0,'',492,0,0),(16755,3807,6,177,0,'194.30.62.6',1154671855,1,0,1,1,1,0,'','','Hola Rene,\n\ncomo puedes ver sobrevivo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , ahora con Gorka (ya 7 años) y Sara (3 añitos el 29 de este mes). Intentando huir del mundanal ruido  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nUn abrazo,\n\nFelix','',0,'gA==','isahv2xb',1,0,'',177,0,0),(16756,3802,3,419,0,'196.25.255.194',1154685287,1,0,1,1,1,0,'','','Hello, sorry, me again!\n\nI copied (cut &amp; pasted) the temporary fix into my main .prg but when compiling I now get the following xHB error:\n\nhbole.h Line 62 Error F0026 Parse error in constant expression \'\\\'\n\nHelp!\n\nRegards,\n\nDale.','',0,'gA==','t3g3ipmt',1,0,'',419,0,0),(16757,3813,3,15,0,'203.79.155.24',1154685342,1,0,1,1,1,0,'','How to play Mpeg ile with FWH?','Hello\n\nI want to play Mpeg file into my system.\nI use FWH 2.6 + xHarbour 0.99.61 + BCC55\n\nAny idea or solution for thanks?\n\nRegards,\n\nRichard','',0,'gA==','3my276jg',1,0,'',15,0,0),(16758,3813,3,6,0,'82.55.208.26',1154685473,1,0,1,1,1,1,'','Re: How to play Mpeg ile with FWH?','Check testvide.prg in the sample dir.\n\nEMG','',0,'gA==','39mhgblu',1,0,'',6,0,0),(16759,3813,3,15,0,'203.79.155.24',1154685554,1,0,1,1,1,0,'','','Hello EMG,\n\nOk. I will check and try it later.\nThank you.\n\nRichard','',0,'gA==','fzz9mal7',1,0,'',15,0,0),(16760,3802,3,2,0,'87.218.146.234',1154686111,1,0,1,1,1,1,'','','Dale,\n\nWhat xHarbour builder version or RC are you using ?\n\nHave you tried with a fresh install of xHarbour builder ? Here it works ok.','',0,'gA==','vng5n8ur',1,0,'',2,0,0),(16761,3802,3,419,0,'198.54.202.210',1154689165,1,0,1,1,1,0,'','','Hello,\n\nI am using the latest release of XHB i.e. August 2006 RC-8.\n\nI always uninstall my current version and re-install the new one each time a new release is made available so there is no chance that it is a corrupt installation or contains old or modified files.  I do the same with FWH.\n\nRegards,\n\nDale.','',0,'gA==','3iju60dd',1,0,'',419,0,0),(16762,3802,3,2,0,'87.218.146.197',1154689278,1,0,1,1,1,1,'','','Dale,\n\nPlease build this sample with xHB. It should build and work ok with no problems. Let us know if it works ok, thanks.\n[code:1qhxqp7a]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41; \n\n   MsgInfo&#40; GetCPU&#40;&#41; &#41;\n   ShellExecute&#40; 0, \'Open\', \'http&#58;//www&#46;google&#46;com/\' &#41;\n   \nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\ntypedef struct\n&#123;\n   FARPROC farProc;\n   BYTE bType;\n   BYTE bReturn;\n   BYTE bParams;\n   BYTE bParam&#91; 15 &#93;;\n&#125; STRFUNC;\n\nHB_FUNC&#40; GETPROCADDRESS &#41;\n&#123;\n   STRFUNC strFunc;\n   BYTE b = 0;\n   BYTE bFunc&#91; 4 &#93;;\n\n   strFunc&#46;bParams = hb_pcount&#40;&#41; - 4;\n   \n   if&#40; ISNUM&#40; 2 &#41; &#41;\n   &#123;\n      bFunc&#91; 0 &#93;      = hb_parni&#40; 2 &#41;;\n      bFunc&#91; 1 &#93;      = 0;\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, &#40; LPSTR &#41; bFunc &#41;;\n   &#125;\n   else\n      strFunc&#46;farProc = GetProcAddress&#40; &#40; HMODULE &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41;;\n\n   strFunc&#46;bType      = hb_parl&#40; 3 &#41;;\n   strFunc&#46;bReturn    = hb_parni&#40; 4 &#41;;\n\n   while&#40; b &lt; strFunc&#46;bParams &#41;\n   &#123;\n      strFunc&#46;bParam&#91; b &#93; = hb_parni&#40; 5 + b &#41;;\n      b++;                // keep this here cause Borland 5\n   &#125;\n\n   hb_retclen&#40; &#40; char * &#41; &amp;strFunc, sizeof&#40; STRFUNC &#41; - 15 + strFunc&#46;bParams &#41;;\n&#125;\n\n#pragma ENDDUMP \n[/code:1qhxqp7a]','',0,'AIA=','1qhxqp7a',1,0,'',2,0,0),(16763,3814,2,375,0,'84.122.104.133',1154692568,1,0,1,1,1,1,'','CreateCompatibleBitmap()','Estimados compañeros, me preguntaba si a partir de un array con los datos de un bitmap tipo BMP, con cabeceras, longitud, etc...) se podría crear el bitmap correspondiente para dibujarlo de fondo con PalBmpDraw(), BitBlt(), o StretchBmp().\n\nHe intentado crear un BITMAP con CreateCompatibleBitmap (dentro GDI32.DLL), simplemente copiando el fondo del dialogo ( como hace WNDBITMAP), pero con 16 bits no me crea un mapa de bits correcto. Es decir me crea un hBmp correcto con largo y ancho especificados, pero el contenido no tiene sentido. Por eso quisiera intentar crear un BITMAP a partir de los datos almacenados en una variable. Pero no he tenido exito. Si alguien tuviera alguna idea (lo he intentado con CreateBitmap, pero parece que tengo el mismo problema que con CreateCompatibleBitmap)\n\nMuchas gracias.','',0,'AIA=','35namwss',1,0,'',375,0,0),(16764,3770,3,148,0,'196.205.181.167',1154694934,1,0,1,1,1,0,'','','This code does not work as Reneh suggested for ADS server.\n[code:1hpo3ux8]\na2_fields&#91;1&#93;&#58;=&quot;mete-&gt;Me_CU_ACCt&quot;\na2_fields&#91;2&#93;&#58;=&quot;mete-&gt;Me_CU_name&quot;\na2_fields&#91;3&#93;&#58;=&quot;mete-&gt;Me_CT_CTNA&quot;\na2_fields&#91;4&#93;&#58;=&quot;mete-&gt;Me_mc_type&quot;\na2_fields&#91;5&#93;&#58;=&quot;mete-&gt;Me_mc_modl&quot;\na2_fields&#91;6&#93;&#58;=&quot;mete-&gt;Me_mc_serl&quot;\na2_fields&#91;7&#93;&#58;=&quot;mete-&gt;Me_mc_brn&quot;\na2_fields&#91;8&#93;&#58;=&quot;mete-&gt;Me_mc_mere&quot;\na2_fields&#91;9&#93;&#58;=&quot;mete-&gt;Me_mc_dep&quot;\na2_fields&#91;10&#93;&#58;=&quot;mete-&gt;Me_mc_loc&quot;\na2_fields&#91;11&#93;&#58;=&quot;mete-&gt;Me_date&quot;\na2_fields&#91;12&#93;&#58;=&quot;mete-&gt;Me_date&quot;\n\na2_vars&#91;1&#93;&#58;=oCombo1\na2_vars&#91;2&#93;&#58;=oCombo2\na2_vars&#91;3&#93;&#58;=oCombo3\na2_vars&#91;4&#93;&#58;=oCombo4\na2_vars&#91;5&#93;&#58;=oCombo5\na2_vars&#91;6&#93;&#58;=oCombo6\na2_vars&#91;7&#93;&#58;=oCombo7\na2_vars&#91;8&#93;&#58;=oCombo8\na2_vars&#91;9&#93;&#58;=oCombo9\na2_vars&#91;10&#93;&#58;=oCombo10\na2_vars&#91;11&#93;&#58;=ctod&#40;&quot;01/06/2006&quot;&#41;\na2_vars&#91;12&#93;&#58;=ctod&#40;&quot;30/06/2006&quot;&#41;\n\n For i &#58;= 1 to 12\n\n     IF Empty&#40;a2_Vars&#91;i&#93;&#41;     &amp;&amp; Don\'t process empty variables\n         LOOP\n     ENDIF\n\n     DO CASE            &amp;&amp; Create char value\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==11\n                 cValue&#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &gt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==12\n                 cValue &#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &lt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;N&quot;\n             cValue &#58;= \'STR&#40;\' + a2_Fields&#91;i&#93; + \'&#41; == &quot;\' + STR&#40;a2_vars&#91;i&#93;&#41; + \'&quot;\'       &amp;&amp; or\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;C&quot;\n             cValue &#58;=&quot;upper&#40;&quot;+ a2_Fields&#91;i&#93;+&quot;&#41;&quot; + \'==&quot;\' + upper&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n     ENDCASE\n     IF Empty&#40;cFilter&#41;     &amp;&amp; this is the first element\n         cFilter &#58;=  cValue\n     ELSE\n         cFilter += &quot; &#46;AND&#46; &quot; + cValue\n     ENDIF\n NEXT\n\nuse mete new\ncReccount&#58;= reccount&#40;&#41; \n\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\nINDEX ON mete-&gt;me_mc_serl TO temp FOR &amp;&#40;cFilter&#41; \n\nbFilter = &quot;&#123;||&#40;&quot;+cFilter+&quot;&#41;&#125;&quot;\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\n\n\n[/code:1hpo3ux8]\nHow ever how can I use the scope with variable conditions like the contents of the above cFilter.','',0,'AIA=','1hpo3ux8',1,0,'',148,0,0),(16765,3770,3,6,0,'82.55.208.26',1154695609,1,0,1,1,1,1,'','','[quote=&quot;Ehab Samir Aziz&quot;:97i2g0nd]How ever how can I use the scope with variable conditions like the contents of the above cFilter.[/quote:97i2g0nd]\n\nYou generally can\'t. Specifically you can take advantage of the available indexes by manually selecting the one that scopes out most of your records.\n\nEMG','',0,'gA==','97i2g0nd',1,1154698883,'',6,1,0),(16766,3770,3,148,0,'196.205.181.167',1154696537,1,0,1,1,1,0,'','','Oka I solved the last thread. BUT I created the index in a variable manner I faced create error .\n[code:1jncs1ae]\n For i &#58;= 1 to 12\n     IF Empty&#40;a2_Vars&#91;i&#93;&#41; &#46;or&#46; &#40;i==12&#41;     &amp;&amp; Don\'t process empty variables\n         LOOP\n     ENDIF\n\n     DO CASE            &amp;&amp; Create char value\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;C&quot;\n             cValue &#58;=&quot;upper&#40;&quot;+ a2_Fields&#91;i&#93;+&quot;&#41;&quot;\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;N&quot;\n             cValue &#58;= \'STR&#40;\' + a2_Fields&#91;i&#93; + \'&#41;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; &#40;i==11&#41;\n                 cValue&#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41;\'\n     ENDCASE\n     IF Empty&#40;cFilteri&#41;     &amp;&amp; this is the first element\n         cFilteri &#58;=  cValue\n     ELSE\n         cFilteri += &quot; &#46;AND&#46; &quot; + cValue\n     ENDIF\n NEXT\n\ncFilteri &#58;=&quot;&#40;&quot;+cFilteri+&quot;&#41;&quot;\nuse mete new\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\nINDEX ON &amp;&#40;cFilteri&#41; TO temp unique\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\n\n[/code:1jncs1ae]','',0,'AIA=','1jncs1ae',1,0,'',148,0,0),(16767,3812,6,396,0,'200.84.4.100',1154697819,1,0,1,1,1,1,'','','Te envie algo que encontre e el foro, espero te sirva, si no estas en red usa net use LPTn \\\\nombrepc\\nombreImpCompartida /persistent:yes y le puedes dar un numero de LPT de 2 en adelante.','',0,'AIA=','20hro1sl',1,0,'',396,0,0),(16768,3815,2,52,0,'200.127.195.89',1154698227,1,0,1,1,1,1,'','ayuda con #ifdef','Amigos,\n\nLo que quiero hacer es:\n\n[quote:1pknjfnd]Poder pasarle el parametro __HARBOUR__ al compilador de C asi me define una variable MAX_LEN con un valor de 100, y en el caso de que no lo pase me declare MAX_LEN 50[/quote:1pknjfnd]\n\n..Y quiero compilar este codigo y me da error:\n\n[code:1pknjfnd]#include &quot;winten&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;clipapi&#46;h&quot;\n\n#ifndef __HARBOUR__     // Aca se produce el error\n   DEFINE MAX_LEN 50\n#else\n   DEFINE MAX_LEN 100\n#endif\n\nCLIPPER MOSTRAR&#40;&#41;\n&#123;\n   if  &#40; MAX_LEN == 50 &#41;\n      _retc&#40;&quot;_har&quot;&#41;;\n   else\n      _retc&#40; &quot;cli&quot; &#41;;\n\n   &#125;[/code:1pknjfnd]\n\nlo compilo asi:\n[quote:1pknjfnd]Bcc.Exe -c -ml [nombre.c][/quote:1pknjfnd]\n\nGracias.','',0,'gIA=','1pknjfnd',1,0,'',52,0,0),(16769,3815,2,2,0,'87.218.146.118',1154698923,1,0,1,1,1,1,'','','Gustavo,\n\nEl error está en los defines:\n[code:2zmpbbeq]\n#ifndef __HARBOUR__     \n   #define MAX_LEN 50     // Aqui\n#else \n   #define MAX_LEN 100   // Aqui \n#endif \n[/code:2zmpbbeq]','',0,'AIA=','2zmpbbeq',1,0,'',2,0,0),(16770,3815,2,52,0,'200.127.195.89',1154699212,1,0,1,1,1,1,'','','Gracias Antonio,\n\nFunciono de 10.\n\n[quote=&quot;Antonio Linares&quot;:2x07xgin]Gustavo,\n\nEl error está en los defines:\n[code:2x07xgin]\n#ifndef __HARBOUR__     \n   #define MAX_LEN 50     // Aqui\n#else \n   #define MAX_LEN 100   // Aqui \n#endif \n[/code:2x07xgin][/quote:2x07xgin]','',0,'gIA=','2x07xgin',1,0,'',52,0,0),(16771,3816,2,52,0,'200.127.195.89',1154699913,1,0,1,1,1,1,'','pueden? Condition is always false in function MOSTRAR...','Error al compilar: podrían explicarme?\n\n[quote:joo0dvjr]Warning source\\pipeclte.c 26: Condition is always false in function MOSTRAR\nWarning source\\pipeclte.c 27: Unreachable code in function MOSTRAR[/quote:joo0dvjr]\n\nEn este código:\n\n[code:joo0dvjr]#include &quot;winten&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;clipapi&#46;h&quot;\n\n#ifdef __H__\n   #define MAX_LEN 50                // esta es la linea 26\n#else\n   #define MAX_LEN 100\n#endif\n\nCLIPPER MOSTRAR&#40;&#41;\n&#123;\n   if  &#40; MAX_LEN == 50 &#41;\n      _retc&#40;&quot;_har&quot;&#41;;\n   else\n      _retc&#40; &quot;cli&quot; &#41;;\n\n   &#125;[/code:joo0dvjr]\n\nGracias','',0,'gIA=','joo0dvjr',1,0,'',52,0,0),(16772,3817,3,213,0,'24.175.56.72',1154701862,1,0,1,1,1,0,'','Get Cut/Paste problem','All,\n\nI have a problem using right click to Cut/Paste from a get.  When you cut from one field then paste into another then type in the pasted field the text you pasted is deleted.  \n\nCompile and try this simple sample.  Right click and cut the contents of field one, then right-click and paste into field three.  If you then type something the pasted text is deleted.  \n\n#include \"fivewin.ch\" \n\nfunction main() \n\n   local oDlg, oGet2, cVar1:=\"AAAAAA\", cVar2:=\"BBBBBB\", cVar3:=\"      \" \n \n   define dialog oDlg title \"Test Get\" \n   @ 1,1 get cVar1 of oDlg update \n   @ 2,1 get oGet2 var cVar2 of oDlg update \n   @ 3,1 get cVar3 of oDlg update \n   activate dialog oDlg centered \n\nreturn nil\n\nUsing FWH April 2006 and xHarbour March 2006.  \n\nThanks,\nRandal Ferguson','',0,'gIA=','3vpu5tax',1,0,'',213,0,0),(16773,3781,2,52,0,'200.127.195.89',1154702085,1,0,1,1,1,1,'','','René, estoy enviandote una consulta a <!-- e --><a href=\"mailto:info@google.com\">info@google.com</a><!-- e --> pero no llega confirmación.\n\n[quote=&quot;RF&quot;:29labswl]Con Advantage Internet Server:\n\nAqui esta el ejemplo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/aiswin32.zip\">http://www.google.d2g.com/ads/demos/aiswin32.zip</a><!-- m -->\n\nTodos los DBFs estan en nuestro servidor en Ciudad de Mexico, si notas cierta demora es por los saltos que tienes que dar para llegar hasta aqui.\n\nDentro de tu propio pais funcionaria como si estuvieras en la red local.[/quote:29labswl]','',0,'gA==','29labswl',1,0,'',52,0,0),(16774,3812,6,492,0,'201.154.126.49',1154703973,1,0,1,1,1,1,'','','Hola Jose Luis\n\nGracias por tu respuesta, hare pruebas.\n\nPero en si, lo que necesito hacer es : imprimir en modo texto ( draft ) usando un puerto USB en una impresora de matriz.\n\nDe hecho, te digo que me soprendio ver una impresora de matriz con los 2 puertos ( paralelo y usb ).\n\nPero bueno, veamos que sucede.\n\nGracias\n\n\nSaludos','',0,'gA==','2vyrqafj',1,0,'',492,0,0),(16775,3812,6,77,0,'217.126.90.142',1154705557,1,0,1,1,1,0,'','','HOLA Jose luis\n\nHay un programa dosusb.exe (introduce en el google y te saldra)  que creo que te puede interesar, ya que desde la clase tdosprn no creo que puedas solucionarlo.\n\nSaludos\nManolo','',0,'gA==','fiiqi4g9',1,0,'',77,0,0),(16776,3818,3,27,0,'62.174.195.220',1154706280,1,0,1,1,1,1,'','Installing a FWH excecutable as a SERVICE','I need to run a FWH executable as a service under windows 2000 server\nHow should I install it if its posible.\n\nI will be executing the programa as a Programable task at 19h00 every day. At the moment the task will not execute if no user is looged onto the windos 2000 server.','',0,'gA==','1st6cl2m',1,0,'',27,0,0),(16777,3788,6,376,0,'201.230.106.206',1154708342,1,0,1,1,1,0,'','Re: Codigo para compactar archivos - Ejemplo','Karinha\n\nLo que pides es una variante que puede hacerse... El programa fue diseñado para incluir archivos que pudieran estar en carpetas diversas y a las cuales habría que compactarse en forma independiente o que pudieran formar parte del empaquetado que indicamos.\n\nSeleccionar varios a la vez, se orienta a que todos los archivos se encuentren en una sola carpeta de origen de forma que se procesen todos o una parte de ellos que hayan sido seleccionados. \n\nOtra version podría operar en la forma siguiente: \n\n1) Realizar la selección de los archivos a compactar para que consten en un arreglo (que por ahora no se encuentra en el diseño).\n2) Después de hacer el proceso anterior inciar la compactación de los archivos.\n\nComo vez; las opciones son varias... pero todas parten de las rutinas elementales que desarrollé.\n\nArmando\n\nNota. Acabo de subir a HyperUpload una versión que permite ver el tamaño que está teniendo el archivo compactado.\n\nEl enlace es el siguiente:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01303c6f50/zipper2.zip.html\">http://hyperupload.com/download/01303c6 ... 2.zip.html</a><!-- m -->\n\n[quote=&quot;karinha&quot;:24c0800f][quote=&quot;Armando Picon&quot;:24c0800f]A todos los del foro; acabo de subier a hyperUpload el codigo de una apliación que hice para compactar archivos con la librería hzlib de (x)Harbour.\n\nEl enlace es el siguiente:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0262576669/zipper.zip.html\">http://hyperupload.com/download/0262576 ... r.zip.html</a><!-- m -->\n\nEl favor que les pido es que lo completen y me alcancen las rutinas modificadas. Hay que hacer notar que posiblemente no corra en Clipper porque fué diseñada preferentemente para harbour... pero la idea es la misma.\n\nSaludos\n\nArmando[/quote:24c0800f]\n\nArmando, Por favor, porque no si puede Seleccionar toda la Carpeta? \n\nSolo uno por uno, és posible seleccionar todos los archivos de la carpeta de origen? \n\nLa Compilación paso perfecta. Saludos.[/quote:24c0800f]','',0,'gA==','24c0800f',1,0,'',376,0,0),(16778,3635,3,299,0,'69.65.86.182',1154708450,1,0,1,0,1,0,'','','Enrico;\n\nI sort of have a solution:\n[code:1ez5bxy4]\n&#58;&#58;nLastLine &#58;= &#40; &#40; aoRtf&#91;i&#93;&#58;GetLineFromChar&#40; nFrom &#41; - nTmp &#41; * &#58;&#58;oprn&#58;Pix2Inch&#40; aortf&#91;i&#93;&#58;oFont&#58;nHEIGHT, 0 &#41;&#91;1&#93; &#41; + nTOPOffset\n\n&#58;&#58;nlastline += 0&#46;32		//couple of blank lines\n[/code:1ez5bxy4]\n\nWhere nTmp is the line index into the richtext that printed at the first line of the page.  \n\nIt seems to be working...\n\nRC.','',0,'AIA=','1ez5bxy4',1,0,'',299,0,0),(16779,3674,6,376,0,'201.230.106.206',1154709525,1,0,1,1,1,0,'','','Karinha\n\nTe respondí en otra parte del foro donde te explico porqué selecciona uno por uno. \n\nHay variantes que pueden desarrollarse; pero todas, de una forma u otra, van a partir desde las rutinas básicas que desarrollé.\n\nHe subido a HyperUpload una versión corregida donde ya aparece el tamaño que tiene el archivo compactado. Este es el enlace:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01303c6f50/zipper2.zip.html\">http://hyperupload.com/download/01303c6 ... 2.zip.html</a><!-- m -->\n\nUn abrazo\n\nArmando\n\n\n[quote=&quot;karinha&quot;:d3byjgeo][quote=&quot;Armando Picon&quot;:d3byjgeo]Julio\n\nEs posible que te sirva lo que en su momento escribí para empaquetador de Instaladores. Puedes compilarlo con la versión que quieras de (x)Harbour a condición que soporte hzlib.\n\nEl enlace en HyperUpLoad es el siguiente\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0262576669/zipper.zip.html\">http://hyperupload.com/download/0262576 ... r.zip.html</a><!-- m -->\n\nAtentamente \n\nArmando[/quote:d3byjgeo]\n\n\nArmando, Por favor, porque no si puede Seleccionar toda la Carpeta?\n\nSolo uno por uno, és posible seleccionar todos los archivos de la carpeta de origen?\n\nLa Compilación paso perfecta.  Saludos.[/quote:d3byjgeo]\n\nPronto, voy a realizar una nueva versión para seleccionar varios de los archivos de la carpeta de origen (es posible que esto sea lo que necesitas actualmente).','',0,'gA==','d3byjgeo',1,0,'',376,0,0),(16780,3723,6,376,0,'201.230.106.206',1154709875,1,0,1,1,1,0,'','','Continuando...\n\nEsta es una versión mejorada del zipper. Ya muestra el tamaño del campactado luego de hacer la inclusión del archivo origen.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01303c6f50/zipper2.zip.html\">http://hyperupload.com/download/01303c6 ... 2.zip.html</a><!-- m -->\n\nArmando','',0,'gA==','2ym1k7wg',1,0,'',376,0,0),(16782,3820,3,148,0,'196.205.181.167',1154710878,1,0,1,1,1,0,'','Excel methods','I got that error with Patrick Excel Hints :\n Error description: Error BASE/1004  No exported method: CELLS\nMy code was :\n[code:4nizphmd]\n\noSheet&#58;Cells&#40;nLine,9&#41;&#58;Select&#40;&#41;\noSheet&#58;Columns&#40;9&#41;&#58;AutoFit&#40;&#41;\noSheet&#58;Cells&#58;Font&#58;Bold&#58;=&quot;Arial&quot;\noSheet&#58;Cells&#58;Font&#58;Size&#58;=10\noSheet&#58;Cells&#58;Font&#58;Name&#58;=&#46;t&#46;\n\n[/code:4nizphmd]\n\nAlso I need to add the sum function to certain columns . How can I add formula from FWH\nThanks','',0,'AIA=','4nizphmd',1,0,'',148,0,0),(16783,3770,3,148,0,'196.205.181.167',1154711251,1,0,1,1,1,0,'','','Oka I am searching for fastenning my filter . It is not fast with RDD and that code :\n[code:bupgrj1z]\n\nuse mete new\ncReccount&#58;= reccount&#40;&#41; \nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\nINDEX ON mete-&gt;me_mc_serl TO temp FOR &amp;&#40;cFilter&#41; unique\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\n\nbFilter = &quot;&#123;||&#40;&quot;+cFilter+&quot;&#41;&#125;&quot;\ncFilter = &quot;&#40;&quot;+cFilter+&quot;&#41;&quot;\n\nDBSETFILTER&#40;&amp;bFilter,&amp;cFilter&#41;\n\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\n\n\n\n[/code:bupgrj1z]','',0,'AIA=','bupgrj1z',1,0,'',148,0,0),(16784,3814,2,375,0,'84.122.104.133',1154713675,1,0,1,1,1,1,'','','Después de pruebas y más pruebas, parece como si CreateCompatibleBitmap o CreateBitmap si crean un mapa de bit, pero no a partir del contexto indicado. Parece como si cogieran información de la memoria en lugar del contexto (hDc) del Dialogo indicado. Es más, a cada vez que lo ejecuto me da un resultado visual diferente.\n\nEste es mi ejemplo:\n\n   DEFINE DIALOG oDlS OF oWin FROM 100,100 TO 300,600 PIXEL COLOR 0,CLR_WHITE ;\n	  STYLE nOR(WS_POPUP,WS_VISIBLE,WS_BORDER )\n@ 10,10 BUTTON oBot PROMPT \"PINTAR\" OF oDlS SIZE 100,12 PIXEL ACTION PintNeoFond(oDlS)\n   ACTIVATE DIALOG oDlS\nRETURN NIL\n\nFUNCTION PintNeoFond(oWin)\n   LOCAL hDc  := oWin:GetDc()\n   LOCAL hDC1 := CreateCDC(hDc)\n   LOCAL hBmp \n   *\n   FillRect( hDc, {20,20,60,60}, hBrs ) // [b:3letr4iw]Para modificar el fondo antes de, supuestamente, reponerlo con StretchBmp.[/b:3letr4iw]\n\n   hBmp := CreateCoBi(hDc,100,100)\n   SelectObject(hDC1,hBmp)\n   StretchBmp(hDc,0,0,oWin:nWidth,oWin:nHeight,hDC1,0,0,100,100, 13369376) // ,8913094)\n   DeleteObject(hBmp)\n   DeleteDc(hDC1)\n   oWin:ReleaseDc()\nRETURN NIL\n\nDLL32 FUNCTION CreateCoBi( hdc AS LONG, nWidth AS LONG, nHeight AS LONG ) AS LONG ;\nPASCAL  FROM \"CreateCompatibleBitmap\" LIB \"gdi32.dll\"\n\nDLL32 FUNCTION StretchBmp( hdc AS LONG,x AS LONG,y AS LONG,nWidth AS LONG,nHeight AS LONG, ;\n        hSrcDC AS LONG,xSrc AS LONG,ySrc AS LONG,nSrcWidth AS LONG,nSrcHeight AS LONG,dwRop AS LONG ) AS LONG ;\nPASCAL FROM \"StretchBlt\" LIB \"gdi32.dll\"\n\nA ver si encontrais el fallo. Comparadlo con la funcion \"[u:3letr4iw]WNDBITMAP[/u:3letr4iw]\" del fichero [b:3letr4iw]\"./SOURCE/WINAPI/wndprint.c\"[/b:3letr4iw]\n\nUn saludo.','',0,'QQ==','3letr4iw',1,0,'',375,0,0),(16785,3821,6,264,0,'200.91.3.10',1154713900,1,0,1,1,1,0,'','Iconos en la Button Bar ?','Hola a todos.\nSe puede en lugar de usar BITMAP usar un ICON para dicha imagen ?\nMi pregunta va, pues la cantidad de librerias de ICONOS es grandisima.\nSaludos','',0,'QQ==','3a06inm0',1,0,'',264,0,0),(16786,3807,6,264,0,'200.91.3.10',1154713934,1,0,1,1,1,0,'','','Gracias a todos para su orientacion.\nSaludos','',0,'QQ==','1lfxrl12',1,0,'',264,0,0),(16787,3770,3,6,0,'82.55.208.26',1154718213,1,0,1,1,1,1,'','','Try removing this code. It is redundant:\n\n[code:1ychz1w4]bFilter = &quot;&#123;||&#40;&quot;+cFilter+&quot;&#41;&#125;&quot;\ncFilter = &quot;&#40;&quot;+cFilter+&quot;&#41;&quot;\n\nDBSETFILTER&#40;&amp;bFilter,&amp;cFilter&#41;\n\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;[/code:1ychz1w4]\n\nEMG','',0,'AIA=','1ychz1w4',1,0,'',6,0,0),(16788,3820,3,6,0,'82.55.208.26',1154718740,1,0,1,1,1,1,'','Re: Excel methods','This is a working sample (please replace SOMMA with your localized function name, ie. SUM):\n\n[code:2tjrky69]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel, oSheet\n\n    oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    oSheet = oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Value = 10\n    oSheet&#58;Cells&#40; 2, 1 &#41;&#58;Value = 10\n\n    oSheet&#58;Cells&#40; 1, 2 &#41;&#58;Value = 10\n    oSheet&#58;Cells&#40; 2, 2 &#41;&#58;Value = 10\n\n    oSheet&#58;Cells&#40; 2, 3 &#41;&#58;Value = &quot;=SOMMA&#40;A1&#58;A2;B1&#58;B2&#41;&quot;\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:2tjrky69]\n\nEMG','',0,'AIA=','2tjrky69',1,0,'',6,0,0),(16789,3812,6,171,0,'71.232.193.197',1154718911,1,0,1,1,1,0,'','','Raymundo,\n\nLo puedes solucionar de la siguiente forma:\n\n1) Instala el printer driver \"Generic / Text Only\"\n2) En tu programa:\n    PRINT oPrn NAME (\"Encabezado del reporte\") TO \"Generic / Text Only\"\n\n\nGeorge','',0,'AIA=','2ueo941q',1,0,'',171,0,0),(16790,3821,6,138,0,'201.128.111.188',1154719714,1,0,1,1,1,1,'','','pues va a ser que no, por lo menos en 3 herramientas de programacion que conozco todos los botones son bitmap.\n\nPero tampoco es pega, hay una herramienta por ahi llamado ico2bmp que lo que hace es precismaente eso, convertir ficheros ico en ficheros bmp:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.wt-rate.com/freeware/ico2bmp.zip\">http://www.wt-rate.com/freeware/ico2bmp.zip</a><!-- m -->\n\nTambien, cualquier buen editor de iconos te puede guardar en formato BMP sin problema','',0,'AIA=','2z0vwc67',1,0,'',138,0,0),(16791,3821,6,264,0,'200.91.3.10',1154720075,1,0,1,1,1,0,'','','Gracias maestro.','',0,'AIA=','2wtt96aw',1,0,'',264,0,0),(16792,3802,3,2,0,'87.218.146.81',1154732279,1,0,1,1,1,1,'','','Dale,\n\nThere is a simpler solution. Please add these lines into FiveWin.ch:\n[code:39s74vu2]\n#ifdef __XHARBOUR__\n   REQUEST GetProcAddress\n#endif\n[/code:39s74vu2]','',0,'AIA=','39s74vu2',1,0,'',2,0,0),(16793,3674,6,492,0,'201.154.126.49',1154732526,1,0,1,1,1,1,'','','Julio\n\nTambien pase por algo parecido, he estado trabajando estos dias en un modulo para compresion/descompresion de archivos y con ayuda del buen amigo Carlos Vargas ya lo logre.\n\nEste codigo que anexo, esta trabajando al 1000% OK en xHarbour 0.99.60 y FWH 2.7, inclusive poniendole password al archivo ZIP  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nPROCEDURE Main\nLOCAL nQ, lZipOk, acFiles, aExtract\n   acFiles := { \".\\NewMaster\\USRALIST.DBF\",\".\\NewMaster\\MSTMARS.DBF\",\".\\NewMaster\\MSTMODS.DBF\", ;\n	\".\\NewMaster\\MSTSISS.DBF\",\".\\NewMaster\\MSTSUBS.DBF\",\".\\NewMaster\\MSTPRVS.DBF\", ;\n	\".\\NewMaster\\MSTFABS.DBF\",\".\\NewMaster\\MSTPRDS.DBF\",\".\\NewMaster\\MSTITMS.DBF\", ;\n	\".\\NewMaster\\MSTPRVF.DBF\",\".\\NewMaster\\MSTFABP.DBF\",\".\\NewMaster\\MSTITMA.DBF\", ;\n	\".\\NewMaster\\MSTITME.DBF\",\".\\NewMaster\\MSTMTRS.DBF\" }\n\n\n// Comprimir al Zip\nhb_ZipFile( \"RSUPDTSM.ZIP\", acFiles, 9, NIL, .T., \"pswrd\", .F., NIL )\n\n// Descomprimir del ZIP\naExtract := hb_GetFilesInZip( \"XArchivo.Zip\" )\nHB_UNZIPFILE( \"XArchivo.Zip\",,.T.,\"pswrd\", \"c:\\testzip\", aExtract,NIL )		// Todos !!\nHB_UNZIPFILE( \"XArchivo.Zip\",,.T.,\"pswrd\", \".\\\", \"usralist.dbf\",NIL )		// X archivo !!\n\nSolo ajustalo a tus necesidades.\n\n\nEspero te sirva\n\nSaludos','',0,'AIA=','1dfz9wfj',1,0,'',492,0,0),(16794,3822,20,49,0,'62.13.172.78',1154732988,1,0,1,1,1,1,'','DIVISIONE DI UNA STRINGA','aMMETTENDO DI AVERE UNA STRINGA DI 50 CARATTERI \nIO VORREI SUDDIVIDERLA IN TRE STRINGHE DI ALMENO 9 CARATTERI \n\nPER ESEMPIO :\n\nPANINO PROSCIUTTO CRUDO \nMI DOVREBBE RESTITIRE TRE STRINGHE :\n1=PANINO\n2=PROSCIUTTO\n3=CRUDO\n\nOPPURE SE LA STRINGA è = CAFFE HAG\nMI DOVREBBE RESTITIRE TRE STRINGHE \n1=CAFFE HAG\n2=\"\"\n3=\"\"\n\n\nMI SEMBRA FACILE MA FORSE A QUEST\'ORA NON MI RICORDO BENE COME FARE  \nQUALCUNO PUO\' AIUTARMI PER FAVORE ?','',0,'AIA=','2svswct2',1,0,'',49,0,0),(16795,3790,20,49,0,'62.13.172.78',1154733054,1,0,1,1,1,1,'','','GRAZIE COMUNQUE ...HO RISOLTO PER META...\n\'','',0,'AIA=','1pwmsiev',1,0,'',49,0,0),(16796,3823,3,49,0,'62.13.172.78',1154733507,1,0,1,1,1,1,'','BUTTONS ON A WINDOW','I  must create in a window 160 buttons\n\nI create this function to create buttons :\n\n[code:rn4uiio2]\nSTATIC FUNCTION  makebuttons&#40;X,y,oCassa,oFont,oGet,oLBX&#41;\n   LOCAL k\n BOTTONI &#58;=40\n                 n  &#58;= 1\n                 aBtn &#58;= Array&#40;BOTTONI&#41;\n                 X = 20\n                 Y = 810\n\n USE LISTBAR Alias LISTBAR\n                 INDEX ON LISTBAR-&gt;PUSH TO LISTBAR\n\n                 FOR k &#58;= 1 TO BOTTONI\n                    cCaption &#58;= &quot;&quot;\n\n                       nBottone&#58;=n\n                      LISTBAR-&gt;&#40;DbSeek&#40;nBottone&#41;&#41;\n                      cCaption &#58;= AllTrim&#40;LISTBAR-&gt;CODICE&#41;\n\n                       IF !Empty&#40; cCaption &#41;\n\n              @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT cCaption OF oCassa FONT oFont ;\n              SIZE 140,85 PIXEL\n           ELSE\n                 @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT Str&#40;nBottone,3,0&#41; OF oCassa FONT oFont ;\n              SIZE 140,85 PIXEL\n\n                 ENDI\n\n                     * SayNum&#40;oGet,5&#41;\n                              aBtn&#91;n&#93;&#58;bAction &#58;= &#123;|oBtn| AddLbx&#40;oGet,oBtn,oLbx&#41; &#125;\n\n                              // SE C\'è L\'ARTICOLO SI OPPURE NO CHIARO?????\n                              IF !Empty&#40;cCaption &#41;\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Full\', n &#125;\n                                ELSE\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Empty\', n &#125;\n                                ENDIF\n\n\n                   X +=85\n                    n++\n                    LISTBAR-&gt;&#40;dbskip&#40;&#41;&#41;\n                    IF n= 11  &#46;OR&#46; n=21 &#46;OR&#46; n=31\n                        X=20\n                       Y=Y+145\n                       ENDIF\n\n                    NEXT\n\n\n   y=810\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA1  OF oCassa FONT oFont ;\n              SIZE 140,50 PIXEL\n                Y=Y+145\n\n                 @ X+2  ,Y BUTTON aPag2 PROMPT PAGINA2  OF oCassa FONT oFont ;\n              SIZE 140,50 PIXEL\n                 Y=Y+145\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA3  OF oCassa FONT oFont ;\n              SIZE 140,50 PIXEL\n                     Y=Y+145\n                 @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA4  OF oCassa FONT oFont ;\n              SIZE 140,50 PIXEL\n RETURN NIL\n\n[/code:rn4uiio2]\n\n\nNow I create only 40 buttons because I want insert on bottom another buttons \nPage1,Page2,Page3 and Page4\n\nwhen I clicked on pag2 the procedure must me show the interval from button number 41 to button number 80 \n\nHow I can Make it ?\n\nRegards[/b]','',0,'AIA=','rn4uiio2',1,0,'',49,0,0),(16797,3793,5,2,0,'87.218.146.81',1154733594,1,0,1,1,1,1,'','','Carsten,\n\nAlready solved. Its a different issue related with the Xbase++ architecture.\n\nPlease download FW++ again, Thanks.','',0,'AIA=','5s59itu5',1,0,'',2,0,0),(16798,3818,3,177,0,'194.30.62.6',1154749176,1,0,1,1,1,0,'','','Paul,\n\ntake a look to \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3807\">http://fivetechsoft.com/forums/viewtopic.php?t=3807</a><!-- m -->\n\nregards,\n\nBaxajaun','',0,'AIA=','gckoyo0l',1,0,'',177,0,0),(16799,3824,3,707,0,'222.124.20.50',1154760301,1,0,1,1,1,0,'','Please teach me about FWH and xHarbour','I tried TScan32.TVideo and TCapture with sample.\n\nIs that work for xHarbour ?\n\nI have Enterprise Edition from xHarbor.com and FWH from fivetech.FTDN \n\nI Confused for use them with my compiler\n\nAnyone can help me ?\n\nBest Regard\n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  Areang','',0,'AIA=','ovqrurk5',1,0,'',707,0,0),(16800,3825,6,533,0,'83.46.207.23',1154764722,1,0,1,1,1,0,'','hbzip','Hola foro, alguien podría enviarme a mi correo la libreria?, muchas gracias de antemano.\n\n   <!-- e --><a href=\"mailto:mserracat@terra.es\">mserracat@terra.es</a><!-- e -->\n\nFWH 2.4 + harbour 0.43','',0,'AIA=','2nmcko52',1,0,'',533,0,0),(16801,3802,3,419,0,'198.54.202.210',1154768585,1,0,1,1,1,0,'','','Thanks very much for the help.\n\nI tried both methods and both work perfectly - thanks.\n\nI must apologise to you for posting the compile error.  I did not realise that I had a comment before the \'#pragma BEGINDUMP\' statement i.e. I had \'***#pragma BEGINDUMP\'.  Careless!  Sorry about that!\n\nOnce again, thanks for the help.\n\nRegards,\n\nDale.','',0,'AIA=','2gupx2jr',1,0,'',419,0,0),(16802,3811,7,2,0,'87.218.146.203',1154768598,1,0,1,1,1,1,'','','Jose,\n\nHazlo así:\n[code:3cf3bfg3]\n#include &quot;FWCE&#46;ch&quot; \n#INCLUDE &quot;hbclass&#46;ch&quot; \n#include &quot;Directry&#46;ch&quot; \n\n\nREQUEST DBFCDX \nREQUEST HB_LANG_ESWIN \nREQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español &#40;Ordenación, etc&#46;&#46;&#41; \n\n\n//----------------------------------------------------------------------------// \n\nFUNCTION Main&#40;&#41; \n*************** \n\nLOCAL oWnd \n\nPRIVATE oBoton0,oBoton1,oBoton2 \n\nDEFINE WINDOW oWnd TITLE &quot;Menu&quot; \n\noWnd&#58;bKeyDown &#58;= &#123; | nkey | InterpretaTeclado&#40; nKey &#41;&#125; \n\n@ 0,121 BTNBMP oBoton0 ; \nSIZE 120, 50 ; \nPROMPT &quot;0-Salir&quot;; \nACTION &#40;EjecutaMenu&#40;&quot;0&quot;&#41;&#41; \n\n@ 51, 0 BTNBMP oBoton1 ; // Si clico en el boton pierde foco el get y por lo tanto ejecuta el valid \nSIZE 120, 50 ; \nPROMPT &quot;1-Opcion 1&quot;; \nACTION &#40; EjecutaMenu&#40;&quot;1&quot;&#41;&#41; \n\n@ 51,121 BTNBMP oBoton2 FILE &quot;2-Pda&#46;bmp&quot; ; \nSIZE 120, 50 ; \nPROMPT &quot;2-Opcion 2&quot;; \nACTION &#40; EjecutaMenu&#40;&quot;2&quot;&#41;&#41; \n\nACTIVATE WINDOW oWnd \n\nRETU NIL \n\nSTATIC FUNC EjecutaMenu&#40;pOpcion&#41; \n******************************** \nMsgInfo&#40;&quot;P&#58;&quot;+pOpcion&#41; \n\nRETURN &#46;F&#46; // Para que nunca salga de oOpcion \n\nSTATIC FUNC InterpretaTeclado&#40;nKey&#41; \n******************************** \n\nIF nKey &gt;= Asc&#40;&quot;0&quot;&#41; &#46;AND&#46; nKey &lt;= Asc&#40;&quot;9&quot;&#41; \n   EjecutaMenu&#40;Chr&#40;nKey&#41;&#41; \nENDIF \n\nRETURN &#46;T&#46;\n[/code:3cf3bfg3]','',0,'AIA=','3cf3bfg3',1,0,'',2,0,0),(16803,3802,3,2,0,'87.218.146.203',1154768736,1,0,1,1,1,1,'','','Dale,\n\nYou are welcome. Glad to know it is working fine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2l1tb6qm',1,0,'',2,0,0),(16804,3756,3,2,0,'87.218.146.203',1154770002,1,0,1,1,1,1,'','','Jose,\n\nThis way works ok:\n[code:2j6gi9sg]\n#define SWP_NOSIZE 0x0001 \n#define SWP_NOMOVE 0x0002 \n#define SWP_NOACTIVATE 0x0010 \n#define SWP_SHOWWINDOW 0x0040 \n#define HWND_TOPMOST -1 \n// \n#include &quot;FiveWin&#46;ch&quot; \n\nFUNCTION MAIN \nLOCAL oDlg, oGet, oGet2, oBtn, Capt&#58;=Space&#40;10&#41;, Capt2&#58;=&quot; &quot; \n\nDEFINE DIALOG oDlg RESOURCE &quot;Dialogo&quot; Title &quot;Captura&quot; \nREDEFINE GET oGet VAR Capt ID 101 OF oDlg; \nPICTURE &quot;!!!!!!!!!!&quot; VALID &#40; MsgInfo&#40;Capt&#41;, &#46;t&#46; &#41;\n\noGet&#58;bLostFocus &#58;= &#123; || oGet&#58;SetText&#40; &quot;&quot; &#41;, oGet&#58;SetFocus&#40;&#41; &#125; \n\nACTIVATE DIALOG oDlg CENTER ;\n   ON INIT WindowTopMost&#40; oDlg &#41;\n\nRETURN NIL \n\nFUNCTION WindowTopMost&#40; oWnd &#41; \nSetWindowPos&#40; oWnd&#58;hWnd, HWND_TOPMOST,; \n0, 0, 0, 0, nOr&#40; SWP_NOMOVE, SWP_NOSIZE, SWP_SHOWWINDOW, SWP_NOACTIVATE &#41; &#41;\n \nRETURN NIL\n[/code:2j6gi9sg]','',0,'AIA=','2j6gi9sg',1,0,'',2,0,0),(16805,3824,3,2,0,'87.218.146.203',1154770186,1,0,1,1,1,1,'','','Areang,\n\nPlease post here a small and self contained sample of what you are trying to do. Thanks,','',0,'AIA=','2oetpe5c',1,0,'',2,0,0),(16806,3826,17,2,0,'87.218.146.203',1154770364,1,0,1,1,1,1,'','hbzip.lib','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02aca05351/hbzip.zip.html\">http://hyperupload.com/download/02aca05 ... p.zip.html</a><!-- m -->','',0,'AIA=','1e3y8o4m',1,0,'',2,0,0),(16807,3825,6,2,0,'87.218.146.203',1154770398,1,0,1,1,1,1,'','','Mike,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3826\">http://fivetechsoft.com/forums/viewtopic.php?t=3826</a><!-- m -->','',0,'AIA=','32vl4q52',1,0,'',2,0,0),(16808,3822,20,6,0,'82.61.69.254',1154771105,1,0,1,1,1,1,'','Re: DIVISIONE DI UNA STRINGA','Ti conviene metterci dei separatori (es. punto e virgola) e poi utilizzare la funzione StrToken() per estrarre le varie parti.\n\nEMG','',0,'AIA=','1jup6xs3',1,0,'',6,0,0),(16809,3817,3,2,0,'87.218.146.203',1154771187,1,0,1,1,1,1,'','','Randal,\n\nPlease declare cVar3:=Space( 6 ).\n\nYour test works fine, once the third GET looses its focus. You may consider that the GET assigns its contents only when it looses it focus, so it you type in before, after the paste, then the contents are lost.','',0,'AIA=','1z198rru',1,0,'',2,0,0),(16810,3823,3,2,0,'87.218.146.203',1154771737,1,0,1,1,1,1,'','','Silvio,\n\nPlease provide a small and self contained sample. A PRG that can be compiled and tested quickly. Its the only way to provide efficient tech support. Thanks,','',0,'AIA=','3aqde8tc',1,0,'',2,0,0),(16811,3816,2,2,0,'87.218.146.203',1154772056,1,0,1,1,1,1,'','','Gustavo,\n\nMAX_LEN es una constante por lo que el compilador sabe a priori si los valores son iguales ó distintos y por eso el warning. Luego una parte del if no se ejecutará nunca y de ahí el otro warning.','',0,'AIA=','1qubu6xx',1,0,'',2,0,0),(16812,3770,3,148,0,'196.205.181.167',1154777709,1,0,1,1,1,0,'','','My last thread was about it is not fast with RDD. Also I need to create variable index conditions according to the input conditions.','',0,'AIA=','p8o1xocm',1,0,'',148,0,0),(16813,3820,3,148,0,'196.205.181.167',1154779272,1,0,1,1,1,0,'','','What is the library affected using createobject with harbour and Xharbour?\nWhat makes the syntax is different from harbour to xharbour ?\nWhat should I do in my batch files to compile createobject not createoleobject ?','',0,'AIA=','1z9sc7y2',1,1154781161,'',148,1,0),(16814,3770,3,6,0,'82.61.69.254',1154779329,1,0,1,1,1,1,'','','You can remove\n\n[code:12dorexf]bFilter = &quot;&#123;||&#40;&quot;+cFilter+&quot;&#41;&#125;&quot; \ncFilter = &quot;&#40;&quot;+cFilter+&quot;&#41;&quot; \n\nDBSETFILTER&#40;&amp;bFilter,&amp;cFilter&#41; \n\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;[/code:12dorexf]\n\nas it is replaced by\n\n[code:12dorexf]INDEX ON mete-&gt;me_mc_serl TO temp FOR &amp;&#40;cFilter&#41; unique[/code:12dorexf]\n\nEMG','',0,'AIA=','12dorexf',1,1154878104,'',6,1,0),(16815,3820,3,6,0,'82.61.69.254',1154779603,1,0,1,1,1,1,'','','[quote=&quot;Ehab Samir Aziz&quot;:13roix1h]What is the library affected using createobject with harbour and Xharbour?\nWhat makes the syntax is different from harbour to xharbour ?\nWhat should I do in my batch files to compile createobject ?[/quote:13roix1h]\n\n1) xHarbour: no additional libraries. Harbour: hbole.lib.\n\n2) xHarbour: CREATEOBJECT(). Harbour: TOleAuto():New().\n\n3) xHarbour: nothing. Harbour: add hbole.lib to the library list.\n\nEMG','',0,'gA==','13roix1h',1,0,'',6,0,0),(16816,3827,2,52,0,'200.127.195.89',1154779648,1,0,1,1,1,1,'','Aca va un ejemplo de SENCILLO #ifndef','Amigos,\n\nAca he podido crear un ejemplo sencillo en C en donde se puede ver el uso del #ifndef, esto me sirvio para poder hacer compatible la función entre versiones de 16 y 32 bits.\n\nEl que quiera modificarla para mejorarla estaría bueno, asi aprendo Vio?\n\nGracias. \n\n[code:209zv7w5]#include &quot;winten&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n\n#ifndef __HARBOUR__\n   #include &quot;clipapi&#46;h&quot;\n#else\n   #include &quot;hbapi&#46;h&quot;\n#endif\n\n#ifndef __HARBOUR__\n   CLIPPER COMANDOCEM&#40; PARAMS &#41;\n#else\n   HB_FUNC &#40; COMANDOCEM &#41;\n#endif\n&#123;\n   #ifndef __HARBOUR__\n      _retc&#40; &quot;gustavo CLIPPER&quot; &#41;;\n   #else\n      hb_retc&#40; &quot;gustavo HARBOUR&quot; &#41;;\n   #endif\n&#125;[/code:209zv7w5]','',0,'AIA=','209zv7w5',1,0,'',52,0,0),(16817,3825,6,171,0,'71.232.193.197',1154779845,1,0,1,1,1,0,'','','Antonio\n\nEsta libreria hbzip se puede usar con xHarbour?\nDonde encuentro informacion sobre las funciones de la misma?\n\nSaludos\n\n\nGeorge','',0,'AIA=','syak121g',1,0,'',171,0,0),(16818,3820,3,148,0,'196.205.181.167',1154782617,1,0,1,1,1,0,'','','The Whole syntax is right but when I execute the line of the SOMMA I got that error .\n\nUnrecoverable error 9023: hb_xgrab requested to allocate zero bytes\nCalled from TOLEAUTO:SET(115)\nCalled from TOLEAUTO:_VALUE(181)\nCalled from EXECUTEXCEL(2699)\nCalled from EVAL(2641)\nCalled from TBUTTON:CLICK(0)\nCalled from TBUTTON:HANDLEEVENT(0)\nCalled from _FWH(0)\nCalled from SENDMESSAGE(0)\nCalled from TDIALOG:COMMAND(0)\nCalled from TDIALOG:HANDLEEVENT(0)\nCalled from TDIALOG:HANDLEEVENT(0)\nCalled from DIALOGBOXINDIRECT(0)\nCalled from TDIALOG:ACTIVATE(0)\nCalled from BUILDEXCEL(2646)\nCalled from EVAL(202)\nCalled from TMENU:COMMAND(0)\nCalled from TWINDOW:COMMAND(0)\nCalled from TWINDOW:HANDLEEVENT(0)\nCalled from _FWH(0)\nCalled from WINRUN(0)\nCalled from TWINDOW:ACTIVATE(0)\nCalled from MAIN(136)','',0,'AIA=','10lwntzj',1,0,'',148,0,0),(16819,3825,6,2,0,'87.218.146.160',1154787321,1,0,1,1,1,1,'','','George,\n\nViene con xHarbour. Aqui tienes un ejemplo de uso:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028f9bf771/testzip.prg.html\">http://hyperupload.com/download/028f9bf ... p.prg.html</a><!-- m -->','',0,'AIA=','10bhyjy2',1,0,'',2,0,0),(16820,3820,3,6,0,'82.61.69.254',1154792481,1,0,1,1,1,1,'','','Maybe you missed my advice:\n\n[quote:kvk7mud3](please replace SOMMA with your localized function name, ie. SUM)[/quote:kvk7mud3]\n\nEMG','',0,'gA==','kvk7mud3',1,0,'',6,0,0),(16821,3822,20,49,0,'62.13.172.78',1154804274,1,0,1,1,1,1,'','','no forse non mi sono spiegato \nio ho il campo di un archivio da 50 caratteri\nquesto campo in un bottone non entra\ne quindi lo devo spezzettare in almeno tre tronconi da 9/10 caratteri cadauno\nche dico all\'utente di inserire la descrizione ed ogni parola un punto e virgola o un trattino ?','',0,'gA==','rnt8oanx',1,0,'',49,0,0),(16822,3823,3,49,0,'62.13.172.78',1154805446,1,0,1,1,1,1,'','','ok :\nthis isthe link\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ed1fbb65/linares.zip.html\">http://hyperupload.com/download/02ed1fb ... s.zip.html</a><!-- m -->\n\nI made this sample to see only 40 buttons but I want to show 160 button at the same positions :\nI explain you \n\nPage 1 -&gt;&gt;&gt; from 1 to 40 button\nPage2 -&gt;&gt;&gt;&gt; from 41 to 80 button\nPage3 -&gt;&gt;&gt;&gt;&gt;from 81 to 120 button\nPage4 -&gt;&gt;&gt;&gt;&gt;&gt;from 121 to 160 button\n\nthank in advance...','',0,'gA==','5lbtyu46',1,0,'',49,0,0),(16823,3756,3,439,0,'190.0.135.155',1154808112,1,0,1,1,1,1,'','','Muchas gracias Antonio!!!!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2vawshgf',1,0,'',439,0,0),(16824,3820,3,148,0,'196.205.181.167',1154808418,1,0,1,1,1,0,'','','Thanks Enrico for your help I appreciate it. Thanks a lot','',0,'gA==','pkkm8bbe',1,0,'',148,0,0),(16825,3674,6,376,0,'200.121.186.80',1154810419,1,0,1,1,1,0,'','','Karinha\n\nLo prometido es deuda. Aqui va el enlace para la versión del compactador que me parece necesitas.\n\nPuedes seleccionar desde varios directorios y en grupos.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d92cf460/zipper3.Zip.html\">http://hyperupload.com/download/02d92cf ... 3.Zip.html</a><!-- m -->\n\nUn abrazo\n\nArmando','',0,'gA==','j3wjybqm',1,0,'',376,0,0),(16826,3788,6,376,0,'200.121.186.80',1154810548,1,0,1,1,1,0,'','','Bien...\n\nA los interesados en el foro.\n\nEste el enlace para la versión del compactador con selección desde varios directorios y por grupos.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d92cf460/zipper3.Zip.html\">http://hyperupload.com/download/02d92cf ... 3.Zip.html</a><!-- m -->','',0,'gA==','1v0x29ts',1,0,'',376,0,0),(16827,3723,6,376,0,'200.121.186.80',1154810856,1,0,1,1,1,0,'','','Ultima versión del compactador de ejemplo\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d92cf460/zipper3.Zip.html\">http://hyperupload.com/download/02d92cf ... 3.Zip.html</a><!-- m -->\n\nArmando','',0,'gA==','1hgmdx8i',1,0,'',376,0,0),(16828,3828,6,376,0,'200.121.186.80',1154811139,1,0,1,1,1,0,'','TIP no se encuentra en FW24','Tengo el FW24 y allí no hay tIP o tURL. Alguién me prodría enviar estas libs a mi correo\n\n<!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e -->\n\nAgradecido de antemano\n\nArmando','',0,'gA==','2wkk62ob',1,0,'',376,0,0),(16829,3488,6,2,0,'87.218.146.160',1154813197,1,0,1,1,1,1,'','','En relación a C++, gracias a las nuevas mejoras en Harbour ya es posible mezclar C y C++ libremente. Esta capacidad aún no está implementada en xHarbour.\n\nAqui tienen un ejemplo de como se usa ahora:\n[code:2y906lo3]\n// Using C++ with Harbour \n// sample developed by FiveTech Software\n\nfunction Main&#40;&#41;\n\n   local oTest &#58;= Test&#40;&#41; // We create a C++ object\n\n   MsgInfo&#40; TEST_IVALUE&#40; oTest &#41; &#41; // We retrieve a C++ object data\n   \nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nclass Sample\n&#123;\n   public&#58;\n      int iValue;\n      Sample&#40;&#41;;\n&#125;;\n\nSample&#58;&#58;Sample&#40;&#41;\n&#123;\n   iValue = 123;\n&#125;   \n\nHB_FUNC&#40; TEST &#41;   \n&#123;\n   Sample * p = new Sample;\n   \n   hb_retnl&#40; &#40; unsigned long &#41; p &#41;;\n&#125;\n\nHB_FUNC&#40; TEST_IVALUE &#41;\n&#123;\n   hb_retnl&#40; &#40; &#40; Sample * &#41; hb_parnl&#40; 1 &#41; &#41;-&gt;iValue &#41;;\n&#125;   \n\n#pragma ENDDUMP  \n[/code:2y906lo3]','',0,'AIA=','2y906lo3',1,0,'',2,0,0),(16830,3823,3,2,0,'87.218.146.160',1154813934,1,0,1,1,1,1,'','','Silvio,\n\nWhat screen resolution do you use ? We can\'t see the full window...','',0,'AIA=','2t7ckmo6',1,0,'',2,0,0),(16831,3828,6,2,0,'87.218.146.160',1154814075,1,0,1,1,1,1,'','','Armando,\n\nEsas clases no son de FWH. Son de xHarbour.','',0,'AIA=','27orsmsa',1,0,'',2,0,0),(16832,3788,6,2,0,'87.218.146.160',1154814199,1,0,1,1,1,1,'','','Armando,\n\nGracias! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3amxcak1',1,0,'',2,0,0),(16833,3542,3,190,0,'202.65.134.43',1154837939,1,0,1,1,1,0,'','','Hi goosfancito\n\nThank you for your posting and the link.\n\nI could look at the pictures and understood that menus could be placed on\nReBar.\n\n\nBut I am very sorry! that I could not understand the language and I could \nnot find that the library is commercial or free one.  I did not find any \nsamples also the the site.  \n\nPlease provide me some information in English Language.\n\nRegards\n\n- Ramesh Babu P','',0,'AIA=','7ffjt9aw',1,0,'',190,0,0),(16834,3674,6,141,0,'200.88.94.111',1154838419,1,0,1,1,1,1,'','','Bueno mis amigos....\n\nSeguí lo que recomendó AL, e incluí el ejemplo TESTZIP en mi aplicacion, sustituyendo la rutina para hacer los respaldos, y NO FUNCIONO.\n\nCompilandolo totalmente solo, fuera de mi aplicacion  (compilado con BUILDX.BAT), se crea y ejecuta correctamente.  Esto me indica que lo que esta mal es el proceso de crear el ejecutable de mi aplicacion.\n\nTambien compilo los ejemplos que aparecen aqui (ZIPPER3) y me funcionan de maravilla (compilados con BUILDX.BAT), pero....\n\nEstoy utilizando HBMAKE, pero parece que algo alli no construye bien el archivo .BC, y solo para despejar las dudas, pregunto esto ahora:\n\n[b:30vnql6j]¿Alguien tendrá un archivo .MAK de ejemplo para compilar una aplicacion donde existen varios .PRG (en diferentes carpetas) que funcione?[/b:30vnql6j]\n\nUso FW27 + Borland + xHarbour 0.99.60\n\nGracias anticipadas','',0,'QA==','30vnql6j',1,0,'',141,0,0),(16835,3542,3,190,0,'202.65.134.43',1154838638,1,0,1,1,1,0,'','','Hi goosfancito\n\nI could find the link to downloads.\n\nRegards\n\n- Ramesh Babu P','',0,'QA==','2fden9h6',1,0,'',190,0,0),(16836,3542,3,52,0,'200.127.195.89',1154840067,1,0,1,1,1,1,'','','[quote=&quot;RAMESHBABU&quot;:2icr30ub]Hi goosfancito\n\nI could find the link to downloads.\n\nRegards\n\n- Ramesh Babu P[/quote:2icr30ub]\n\nHi,\n\nYou need CVS software to download the class. This class is a modify to the original fivewin Class.\n\nSee later.','',0,'gA==','2icr30ub',1,0,'',52,0,0),(16837,3674,6,2,0,'87.218.146.160',1154846495,1,0,1,1,1,1,'','','Julio,\n\nRevisa el directorio fwh\\makes. Estan probados y funcionando correctamente tanto con Borland como con Microsoft.','',0,'gA==','lma7756r',1,0,'',2,0,0),(16838,3818,3,190,0,'202.65.134.43',1154855405,1,0,1,1,1,0,'','','Hi \n\nCan anybody translate the following text file related to the subject, into\nEnglish Lanugate? It is an interesting topic which I could not read it and \nit would be useful to English Readers.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029d9e2988/ejecutarApp.txt.htm\">http://hyperupload.com/download/029d9e2 ... pp.txt.htm</a><!-- m -->\n\nThanks in advance\n\n- Ramesh Babu P','',0,'gA==','25siipjl',1,0,'',190,0,0),(16839,3829,6,375,0,'84.122.104.133',1154855576,1,0,1,1,1,1,'','Mapa de Bit Casero','Hola compañeros.\n\nSi tengo una variable (array) con los datos de un fichero BMP. ¿Sabe alguien como convertirlo, en la memoria, en un mapa de bit de verdad? Es decir, como le creo un hBmp para pintarlo en pantalla sin guardarlo con MemoWrit().\n\nGracias.','',0,'gA==','3p1tq9pk',1,0,'',375,0,0),(16840,3542,3,190,0,'202.65.134.43',1154855882,1,0,1,1,1,0,'','','Hi goosfancito \n\nThanks for your reply.  I could download the following TTbar.prg of which\nthe header is as below:\n\n/*\n   $Id: TTBar.prg,v 1.3 2006/05/27 17:25:25 Administrador Exp $\n   Project: TXBrowseH\n   File:    TTBar\n   Created: 10/31/2005 08:00\n   Lira Lira Oscar Joel\n*/\n\nPlease check whether it is the same class you were referring about.\nI did not test it.\n\nIn case it is not the one, you were referring, kindly provide me copy of \nthat class to me to <!-- e --><a href=\"mailto:aksharasoft@hotmail.com\">aksharasoft@hotmail.com</a><!-- e -->\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','2hacj1zl',1,0,'',190,0,0),(16841,3818,3,58,0,'84.149.226.109',1154857547,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:3jnqjqja]Hi \n\nCan anybody translate the following text file related to the subject, into\nEnglish Lanugate? It is an interesting topic which I could not read it and \nit would be useful to English Readers.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029d9e2988/ejecutarApp.txt.htm\">http://hyperupload.com/download/029d9e2 ... pp.txt.htm</a><!-- m -->\n\nThanks in advance\n\n- Ramesh Babu P[/quote:3jnqjqja]\n\nSorry Ramesh,\n\nthe provided link doesn\'t work for me.\n\nRegards,\nDetlef','',0,'gA==','3jnqjqja',1,0,'',58,0,0),(16842,3830,3,375,0,'84.122.104.133',1154858331,1,0,1,1,1,1,'','My own bitmap','If I\' have an array with a BITMAP data. Does anyone knwo how can  I convert it, in memory, in a true Bitmap? How create its hBmp? (Without saving it before with MEMOWRIT)\nExcuse my English\n\nRegards.','',0,'gA==','1h069lmv',1,0,'',375,0,0),(16843,3811,7,150,0,'217.76.148.247',1154865875,1,0,1,1,1,1,'','','Gracias Antonio, funciona perfecto','',0,'gA==','fhtcff2r',1,0,'',150,0,0),(16847,3823,3,49,0,'62.13.172.78',1154877530,1,0,1,1,1,1,'','','oopss 1400x1050 now \nbut I modified the test with screen 1280X1024\n\nthe code is :\n[code:3gkfsvuz]\n#include &quot;fivewin&#46;ch&quot;\n\n#define PAGINA1     &quot;Pag1&quot;\n#define PAGINA2     &quot;Pag2&quot;\n#define PAGINA3     &quot;Pag3&quot;\n#define PAGINA4     &quot;Pag4&quot;\n\n\n  // TO Antonio\n// I made this sample WITH 40 buttons but I want TO see 160 buttons !!!!!!!!!!!!!\n\n\n\n\n\n\n\nFunction cassa&#40;&#41;\nLOCAL  oWnd,oFont,oFont2,oFont3\n\n DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, -20\n  DEFINE FONT oFont2 NAME &quot;MS Sans Serif&quot; SIZE 0, -40\n  DEFINE FONT oFont3 NAME &quot;ARIAL&quot; SIZE 0, -50\n\n\nDEFINE WINDOW oWnd STYLE nOr&#40; WS_POPUP, WS_VISIBLE &#41; COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41;\n\n @20,5 LISTBOX oLbx FIELDS &quot;&quot;;\n                         HEADER &quot;ARTICOLO&quot;,  &quot;QTA&quot;,  ;\n                                &quot;PREZZO&quot;, &quot;TOTALE&quot;                     ;\n                         OF oWnd SIZE 650,600 PIXEL                     ;\n                         SIZES  230, 80,90,90;\n                         FONT oFont\n\n\n\n\n  makebuttons&#40;20,660,oWnd,oFont,oLBX&#41;\n\n\n ACTIVATE WINDOW oWnd MAXIMIZED\nRETURN NIL\n\n\n\n\n\nSTATIC FUNCTION  makebuttons&#40;X,y,ownd,oFont,oLBX&#41;\n   LOCAL k\n\n\n   BOTTONI &#58;=40     // but I want see 160 buttons !!!!!!!!!!!!!\n\n\n\n                 n  &#58;= 1\n                 aBtn &#58;= Array&#40;BOTTONI&#41;\n                 X = 20\n                 Y = 660\n\n                USE LISTBAR Alias LISTBAR\n                INDEX ON LISTBAR-&gt;PUSH TO LISTBAR\n\n                 FOR k &#58;= 1 TO BOTTONI\n                    cCaption &#58;= &quot;&quot;\n\n                       nBottone&#58;=n\n                      LISTBAR-&gt;&#40;DbSeek&#40;nBottone&#41;&#41;\n                      cCaption &#58;= AllTrim&#40;LISTBAR-&gt;CODICE&#41;\n\n                       IF !Empty&#40; cCaption &#41;\n\n              @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT cCaption OF oWnd FONT oFont ;\n              SIZE 140,85 PIXEL\n           ELSE\n                 @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT Str&#40;nBottone,3,0&#41; OF oWnd FONT oFont ;\n              SIZE 140,85 PIXEL\n\n                 ENDI\n\n                     /*\n                              aBtn&#91;n&#93;&#58;bAction &#58;= &#123;|oBtn| AddLbx&#40;oGet,oBtn,oLbx&#41; &#125;\n\n\n                              IF !Empty&#40;cCaption &#41;\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Full\', n &#125;\n                                ELSE\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Empty\', n &#125;\n                                ENDIF\n\n*/\n\n\n\n\n\n\n\n\n\n                   X +=85\n                    n++\n                    // LISTBAR-&gt;&#40;dbskip&#40;&#41;&#41;\n                    IF n= 11  &#46;OR&#46; n=21 &#46;OR&#46; n=31\n                        X=20\n                       Y=Y+145\n                       ENDIF\n\n                    NEXT\n\n\n\n                    // bottoni per le pagine ???????\n                    // ma come cambiare pagina ??????\n                    // Pagina1  da 1a 40\n                    // pagina 2 da 41 a 80\n                    // pagina 3 da 81 a 120\n                    // pagina 4 da 121 a 160\n\n\n                    y=660\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA1  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n                Y=Y+145\n\n                 @ X+2  ,Y BUTTON aPag2 PROMPT PAGINA2  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n                 Y=Y+145\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA3  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n                     Y=Y+145\n                 @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA4  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n\n                CLOSE LISTBAR\n                Select 1\n\n\n\n\n                // PULSANTE FINE\n                @ 980 ,1100 BUTTON aSTOR PROMPT &quot;USCITA&quot; OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL  ACTION oWnd&#58;END&#40;&#41;\n\n\n\n      RETURN NIL[/code:3gkfsvuz]','',0,'AIA=','3gkfsvuz',1,0,'',49,0,0),(16848,3770,3,170,0,'83.179.193.77',1154877687,1,0,1,1,1,1,'','Re: The fastest way to filter DBF','[quote=&quot;Ehab Samir Aziz&quot;:w54i0hab]I am extracting certain records from huge DBF (8000 Record) and it is so slow .[/quote:w54i0hab]\n\nYou should not use DBGOTOP() after SET FILTER\nbecause this FILTER the database before ALL.\n\nUse generic SEEK to find directly the first available record\nand then you can DBSKIP().\n\nWith Clipper 5.3b, filters take 2 or 3 seconds before\nto see the list, in a database with 8000 records\nand on a pc celeron 500 with 64 Mo.\n\nTest my sample below please, i am interested\nto know the speed of your procedure.\n\nRegards,\n\n [code:w54i0hab]\n select 4            &amp;&amp; indexed with a &quot;char&quot; key\n   4-&gt;&#40;dbgotop&#40;&#41;&#41;\n   set filter to alltrim&#40;me_cu_acct&#41;==&quot;2125447&quot;\n \n\n\n*   4-&gt;&#40;dbgotop&#40;&#41;&#41;\n\nSysrefresh&#40;&#41;\nDBSEEK&#40;SPACE&#40;LEN&#40; First_Field_In_The_Index_Key &#41; - 1&#41; + &quot;!&quot;, &#46;T&#46;&#41;\nSysrefresh&#40;&#41;\n\nDO WHILE !&#40;4&#41;-&gt;&#40;EOF&#40;&#41;&#41;\n\n\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 1 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;ME_CU_name&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 2 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_brn&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 3 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_type&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 4 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_modl&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 5 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;me_mc_serl&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 6 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;open_meter&#41;\nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 7 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;cls_meter&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 8 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;prints&#41; \nOleSetProperty&#40; OleGetProperty&#40; oSheet, &quot;Cells&quot;, nLine, 9 &#41;, &quot;Value&quot;, &#40;4&#41;-&gt;waste&#41; \nnLine&#58;=nLine+1\n\n  Sysrefresh&#40;&#41;\n  DBSKIP&#40;1&#41;\n  Sysrefresh&#40;&#41;\n\nENDDO\n\n[/code:w54i0hab]','',0,'gIA=','w54i0hab',1,0,'',170,0,0),(16849,3488,6,2,0,'87.218.146.178',1154881747,1,0,1,1,1,1,'','','Oscar,\n\nEso es lo que hace ahora Harbour automaticamente, pero con todos los símbolos que genera de todos los PRGs y módulos en C/C++.','',0,'gIA=','3ckndyve',1,0,'',2,0,0),(16850,3831,2,348,0,'200.106.22.27',1154882738,1,0,1,1,1,0,'','Cambio de color de un Get deshabilitado','En una oportunidad pregunte por el tema de como cambiar el color de la letra gris de un get Deshabilitado por otro color,  intente hacerlo con las recomendaciones dadas  pero no me resulto,..  ha pasado el tiempo  y con un poco mas de experiencia... podrian darme la mano y aplicarlo ...\n\nuso Clipper 5.2\nFW23 \nblinker 4\n muchas gracias...  y disculpen la repregunta....\n\nLubin','',0,'gIA=','2hvc1dg4',1,0,'',348,0,0),(16851,3832,2,348,0,'200.106.22.27',1154883145,1,0,1,1,1,0,'','Como vizualizar un archivo texto (.txt) usando Fwin','Podrian decirme como visualizar un archivo texto plano (Ej. d:\\informe\\inf20061.txt) dentro de mi aplicacion de FiveWin...  \n\nMil gracias.\n\nLubin','',0,'gIA=','n7lc39bi',1,0,'',348,0,0),(16852,3823,3,2,0,'87.218.146.178',1154883185,1,0,1,1,1,1,'','','Silvio,\n\nJust a sample:\n[code:34h8eo7t]\n                 @ X+2  ,Y BUTTON aPag2 PROMPT PAGINA2  OF oWnd FONT oFont ; \n              SIZE 140,50 PIXEL ACTION Pagina2&#40; oWnd &#41;\n&#46;&#46;&#46;\n      function Pagina2&#40; oWnd &#41;\n      \n         local n\n         \n         for n = 2 to 41\n            oWnd&#58;aControls&#91; n &#93;&#58;SetText&#40; AllTrim&#40; Str&#40; n + 39 &#41; &#41; &#41;\n         next\n         \n      return nil      \n[/code:34h8eo7t]\nFrom Pagina2() you may use your DBF to find the right text, and also change DATA bAction of buttons.','',0,'AIA=','34h8eo7t',1,0,'',2,0,0),(16853,3831,2,2,0,'87.218.146.178',1154883346,1,0,1,1,1,1,'','','Lubin,\n\nLa Clase TGet de FW 2.7 ofrece esa capacidad.','',0,'AIA=','1wer8m91',1,0,'',2,0,0),(16854,3832,2,2,0,'87.218.146.178',1154883462,1,0,1,1,1,1,'','','Lubin,\n\nMemoEdit( MemoRead( \"d:\\informe\\inf20061.txt\" ) )','',0,'AIA=','1tizavjz',1,0,'',2,0,0),(16855,3833,7,490,0,'88.11.34.7',1154892318,1,0,1,1,1,0,'','Imprimir IRDA','Hola,\n\n¿¿ Alguien ha conseguido mandar imprimir un simple caracter a una impresora por el puerto IRDA ???\n\n¿Funcionan las funciones de manejo de puerto serie para fwppc, para enviar por este puerto?\n\n¿Podrían poner un simple ejemplo de como enviar el caracter al IRDA y que funcione ?\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','3hs9q4sr',1,0,'',490,0,0),(16856,3817,3,303,0,'72.199.41.171',1154894369,1,0,1,1,1,0,'','','Antonio,\n\n&gt;You may consider that the GET assigns its contents only when it looses it focus, so it you type in before, after the paste, then the contents are lost.\n\nThis does not seem to be normal Windows behavior. When I paste into other applications, you can then type without loosing the pasted text.\n\nPerhaps TGET should update the buffer after a paste.\n\nJames','',0,'AIA=','1vqhrdk8',1,0,'',303,0,0),(16857,3832,2,348,0,'200.106.22.27',1154894643,1,0,1,1,1,0,'','respecto al ver un archivo Texto','[quote=&quot;Antonio Linares&quot;:2n0kteib]Lubin,\n\nMemoEdit( MemoRead( \"d:\\informe\\inf20061.txt\" ) )[/quote:2n0kteib]\n\nUna pregunta adicional ...\nExiste alguna limitacion con respecto al Tamaño del Archivo,,, &gt; 64k\n\nsi ubiese esta limitacion , existe alguna funcion o metodo para eliminar esta restriccion\n\nGracias por la Respuesta\nLubin','',0,'gA==','2n0kteib',1,0,'',348,0,0),(16858,3831,2,348,0,'200.106.22.27',1154894704,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2pvrc6vg]Lubin,\n\nLa Clase TGet de FW 2.7 ofrece esa capacidad.[/quote:2pvrc6vg]\n\nLa unica solucion seria actualizarme al  FW 2.7  ??\n\nLubin','',0,'gA==','2pvrc6vg',1,0,'',348,0,0),(16859,3542,3,303,0,'72.199.41.171',1154894955,1,0,1,1,1,0,'','','Oskar,\n\nCould you provide us with the commctrl.ch file? I couldn\'t find it in the Fivewin, Harbour, xHarbour, or Borland files.\n\nJames','',0,'gA==','2xzgnyrh',1,0,'',303,0,0),(16860,3823,3,49,0,'62.13.172.78',1154898417,1,0,1,1,1,1,'','','THANKS ANTONIO\n\nBUT i HAVE ON ORIGINAL WINDOW MANY CONTROL \nHOW i CAN MAKE TO KNOW THE NUMBER OF CONTROLS TO CHANGE ?\nTHERE IS A FUNCTION TO GIVE ME  A LIST OF ALL CONTROLS OD THE WINDOWS WITH THEIR NUMBERS ?\n\nREGARDS','',0,'gA==','dt9q6dar',1,0,'',49,0,0),(16861,3823,3,2,0,'87.218.146.12',1154900001,1,0,1,1,1,1,'','','Silvio,\n\nYou may use their DATA cargo to store an identifier, or check its position in oWnd:aControls, its nID, etc.','',0,'gA==','2zhrh3pi',1,0,'',2,0,0),(16862,3817,3,2,0,'87.218.146.224',1154900946,1,0,1,1,1,1,'','','James,\n\nWe are going to review it.','',0,'gA==','2wu1cw6e',1,0,'',2,0,0),(16863,3833,7,2,0,'87.218.146.68',1154901485,1,0,1,1,1,1,'','','Joaquín,\n\nRevisa <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2712&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=irda\">http://fivetechsoft.com/forums/viewtopi ... light=irda</a><!-- m -->','',0,'gA==','1ggcucif',1,0,'',2,0,0),(16864,3831,2,2,0,'87.218.146.68',1154901607,1,0,1,1,1,1,'','','Lubin,\n\nLa cuestión es que desde FW24 a FW27 hay años de desarrollo y cambios, por lo que no podemos decirte \"cambia esto\" y que te funcione.','',0,'gA==','4wkdevnq',1,0,'',2,0,0),(16865,3825,6,533,0,'88.8.30.52',1154904969,1,0,1,1,1,0,'','Errores de compilacion','Gracias Antonio por el link. Mira, cuando incluyo la librería y compilo el ejemplo (zipper) que hay en el foro me sale lo siguiente:\n\nCompilando ...\n\nHarbour Compiler Alpha build 43.0 (Flex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'zipper.prg\'...\n\n100\n200\n300\nLines 330, Functions/Procedures 7\nGenerating C source output to \'zipper.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nzipper.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_Wild2RegEx\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_fsDirectory\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_inflateEnd\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflate\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_get_crc_table\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateEnd\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateInit2_\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_crc32\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_xstrcpy\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_fsCurDirBuffEx\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zipnew\nError: Unresolved external \'_inflateInit2_\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_inflate\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_retcAdopt\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_arraySetForward\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zipnew\nError: Unresolved external \'_hb_arrayAddForward\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\n\n¿Sabes de que puede ser?\n\nMUCHAS GRACIAS','',0,'gA==','1puo2joq',1,0,'',533,0,0),(16867,3831,2,348,0,'200.106.22.27',1154905987,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:o820afky]Lubin,\n\nLa cuestión es que desde FW24 a FW27 hay años de desarrollo y cambios, por lo que no podemos decirte \"cambia esto\" y que te funcione.[/quote:o820afky]\n\nOk Antonio, queda claro,\npensare en habilitarlo cuando actualice el FW, pues espero no tener que reacomodar mucho  al hacer la actualizaciones,  es necesario algo mas de lo que tengo para una posible actualizacion ??\n\naunque estoy pensando pasarme a Harbour con FWh ...  algun comentario adicional  ??\n\nuso Cliper 5.2\nBlinker 4.0','',0,'gA==','o820afky',1,0,'',348,0,0),(16868,3833,7,490,0,'88.11.34.7',1154908304,1,0,1,1,1,0,'','','Antonio,\n\nLo había leído y realmente el código es para saber cual es el puerto. En mi caso es el COM3\n\nLo que no funciona es mandar un caracter por ese puerto y que lo imprima la impresora IRDA.\n\nSin embargo, sabiendo que el Bluetooth es el COM6 en mi caso, sí funcionan los ejemplos de envío de datos según los samples de fwppc.\n\nPensé que en el ejemplo para BT, sólo habría que cambiar el puerto, pero no funciona.\n\n¿Algún sitio o alguien que diga donde buscar o que haya conseguido imprimir por IRDA con fwppc ?\n\nUn Saludo,\nJoaquín','',0,'gA==','5xkse9aw',1,0,'',490,0,0),(16869,3833,7,2,0,'87.218.146.146',1154909061,1,0,1,1,1,1,'','','Joaquín,\n\nEn esos posts, Miguel de InfoSys dice haberlo hecho. Lo mejor es que te pongas en contacto con él. Gracias.','',0,'gA==','il2lfx3c',1,0,'',2,0,0),(16870,3832,2,348,0,'200.106.22.27',1154909076,1,0,1,1,1,0,'','Re: respecto al ver un archivo Texto','[quote=&quot;lubin&quot;:4bigyg8y][quote=&quot;Antonio Linares&quot;:4bigyg8y]Lubin,\n\nMemoEdit( MemoRead( \"d:\\informe\\inf20061.txt\" ) )[/quote:4bigyg8y]\n\nUna pregunta adicional ...\nExiste alguna limitacion con respecto al Tamaño del Archivo,,, &gt; 64k\n\nsi ubiese esta limitacion , existe alguna funcion o metodo para eliminar esta restriccion\n\nGracias por la Respuesta\nLubin[/quote:4bigyg8y]\n\nTe comentare que al visualizar el archivo texto, usando MemoRead  no lo muestra como esperaba...\n  ---  Una Ventana chica  rejustando el texto de una lineas en varias\n  ....  a su vez el Texto queda desalineado en las columnas \n\nno existe otra mejor manera de vizualizarlo pero sin que se distorsione ??\no quizas llamar a un block de Notas o Wordpad u otro cargandole el Archivo deseado ???\n\n\nLubin','',0,'gA==','4bigyg8y',1,0,'',348,0,0),(16871,3825,6,2,0,'87.218.146.146',1154909126,1,0,1,1,1,1,'','','Mike,\n\nPosiblemente solo funcione con xharbour.','',0,'gA==','gbjki4gb',1,0,'',2,0,0),(16872,3832,2,2,0,'87.218.146.146',1154909199,1,0,1,1,1,1,'','','Lubin,\n\nSi vas a necesitar mostrar archivos mayores de 64 Ks entonces has de pasar tu aplicación a 32 bits con Harbour/xharbour y FWH.\n\nAdemás en 32 bits ya puedes usar el control richedit que te permite distintos tipos de fonts, colores, etc.','',0,'gA==','281txsjg',1,0,'',2,0,0),(16873,3831,2,2,0,'87.218.146.146',1154909296,1,0,1,1,1,1,'','','Lubin,\n\nEl mejor consejo es que te pases a 32 bits con FWH y harbour/xharbour.','',0,'gA==','2m9i1cfq',1,0,'',2,0,0),(16874,3833,7,490,0,'88.11.34.7',1154909496,1,0,1,1,1,0,'','','Antonio,\n\nÉl dice que ha conseguido leer por el puerto IRDA leyendo los datos que le entran por el COM3 que es el que tiene asociado la pocket.\n\nPero, no dice nada de enviar datos por el IRDA a una impresora y que ésta lo imprima.\n\nUn Saludo,\nJoaquín','',0,'gA==','2s7e2kxf',1,0,'',490,0,0),(16875,3818,3,190,0,'202.65.134.43',1154914134,1,0,1,1,1,0,'','','Hi Detlef Hoefner\n\nThank you very much for your reply.\n\nThe link is already available in the following post by Baxajaun on\nSat Aug 05, 2006 3:39 am \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3807\">http://fivetechsoft.com/forums/viewtopic.php?t=3807</a><!-- m --> \n \nI am again giving the correct link below:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029d9e2988/ejecutarApp.txt.html\">http://hyperupload.com/download/029d9e2 ... p.txt.html</a><!-- m -->\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','3fbmh7rc',1,0,'',190,0,0),(16876,3817,3,213,0,'24.175.56.72',1154919526,1,0,1,1,1,0,'','','Antonio,\n\nI agree with what James said.  No other windows applications that I know of behaves this way.  In all other apps I\'ve tried, when you paste into a field the cursor is positioned at the end of the pasted text and you can start typing there without having the pasted text deleted.  Also,  you can move the cursor to the beginning of the pasted text and when you type the data is inserted in front of the text.  \n\nThis has become a serious problem and I have a lot of customers complaining about the cut/paste behaviour in our FWH/xHarbour app.  In FW 16-bit it works correctly.\n\nThanks,\nRandal Ferguson','',0,'gA==','1dl8xczq',1,0,'',213,0,0),(16877,3824,3,707,0,'222.124.20.50',1154921591,1,0,1,1,1,0,'','','I got the source code from :\n\nClase TScan32: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018667af97/Tscan32.zip.html\">http://hyperupload.com/download/018667a ... 2.zip.html</a><!-- m --> \n\nClase TVideo: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01c795bc14/TVideo.zip.html\">http://hyperupload.com/download/01c795b ... o.zip.html</a><!-- m --> \n\nClase TCapture: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/011f3afb85/TCapture.zip.html\">http://hyperupload.com/download/011f3af ... e.zip.html</a><!-- m -->\n\nget error When I used with xBuildW and exe not creat\nand I got the EZTWain for DLL like this :\n\n-------------------------- star here ----------------------------\n\n#define VERSION 115		// version number, times 100.\n\n//------------ Includes\n\n#include &lt;assert.h&gt;\n#include &lt;memory.h&gt;		// memset, memcpy\n\n#include \"windows.h\"\n\n#ifdef _WIN32\n#ifndef _INC_VFW\n#include &lt;vfw.h&gt;\n#endif\n#else\n#include \"commdlg.h\"\n#endif\n\n#include \"twain.h\"\n\n#ifdef _WIN32\n  #define EZTAPI WINAPI\n#else\n  #define EZTAPI __export FAR PASCAL\n#endif\n\n#include \"eztwain.h\"\n\n//------------ Constants and Macros\n\n#define STATIC static\n\n#ifdef _WIN32\n  #define INT32 int\n  #define DATAGROUP unsigned\n  #define DSM_FILENAME \"TWAIN_32.DLL\"\n  #define DSM_ENTRYPOINT \"DSM_Entry\"\n  #define IsValidHandle(h) (h!=NULL)\n  #define HUGEWRITE(fh, pb, bc) ((INT32)_lwrite(fh, pb, bc))\n  #define FMEMSET(p, v, n) memset(p, v, n);\n  #define FMEMCPY(p, q, n) memcpy(p, q, n);\n#else\n  #define INT32 long\n  #define DATAGROUP unsigned long\n  #define DSM_FILENAME \"TWAIN.DLL\"\n  #define DSM_ENTRYPOINT \"DSM_ENTRY\"\n  #define VALID_HANDLE 32\n  #define IsValidHandle(h) ((h!=0) &amp;&amp; ((h) &gt;= 32))\n  #define HUGEWRITE(fh, pb, bc) _hwrite(fh, pb, bc)\n  #define FMEMSET(p, v, n) _fmemset(p, v, n);\n  #define FMEMCPY(p, q, n) _fmemcpy(p, q, n);\n#endif\n\ntypedef enum {\n	ED_NONE,\n	ED_START_TRIPLET_ERRS,\n	ED_CAP_GET,				// MSG_GET triplet on a capability failed\n	ED_CAP_SET,				// MSG_SET triplet on capability failed\n	ED_DSM_FAILURE,			// TWAIN DSM returned TWRC_FAILURE\n	ED_DS_FAILURE,			// source returned TWRC_FAILURE\n	ED_END_TRIPLET_ERRS,\n	ED_NOT_STATE_4,			// operation invoked in wrong state\n	ED_NULL_HCON,			// MSG_GET returned a null container handle\n	ED_BAD_HCON,			// MSG_GET returned an invalid/unlockable container handle\n	ED_BAD_CONTYPE,			// returned container ConType is not valid.\n	ED_BAD_ITEMTYPE,		// returned container ItemType is not valid.\n	ED_CAP_GET_EMPTY,		// returned container has 0 items.\n	ED_CAP_SET_EMPTY,		// trying to restrict a cap to empty set\n} ErrorDetail;\n\nconst char *pszErrDescrip[] = \n	{	\"[no details available]\",\n		\"\",\n		\"DAT_CAPABILITY/MSG_GET failed\",\n		\"DAT_CAPABILITY/MSG_SET failed\",\n		\"Source Manager operation failed\",\n		\"DataSource operation failed\",\n		\"\",\n		\"TWAIN session not in State 4 (Source Open)\",\n		\"MSG_GET returned a NULL container handle\",\n		\"MSG_GET returned an invalid container handle\",\n		\"Returned container is not valid type\",\n		\"Returned container has invalid ItemType\",\n		\"Returned container is empty\",\n		\"App and source found NO values in common\",\n	};\n\nconst char *pszRC[] = {\n	\"TWRC_SUCCESS\",\n	\"TWRC_FAILURE\",\n	\"TWRC_CHECKSTATUS (\'tried hard\')\",\n	\"TWRC_CANCEL\",\n	\"TWRC_DSEVENT\",\n	\"TWRC_NOTDSEVENT\",\n	\"TWRC_XFERDONE\",\n	\"TWRC_ENDOFLIST\",\n   \"TWRC_INFONOTSUPPORTED\",\n   \"TWRC_DATANOTAVAILABLE\"\n};\n\nconst char *pszCC[] = {\n	\"TWCC_SUCCESS\",\n	\"TWCC_BUMMER (Failure due to unknown causes)\",\n	\"TWCC_LOWMEMORY\",\n	\"TWCC_NODS (No Data Source)\",\n	\"TWCC_MAXCONNECTIONS (DS is connected to max possible apps)\",\n	\"TWCC_OPERATIONERROR (DS/DSM reported error, app shouldn\'t)\",\n	\"TWCC_BADCAP (Unknown capability)\",\n	\"7 (undefined)\",\n	\"8 (undefined)\",\n	\"TWCC_BADPROTOCOL (Unrecognized triplet)\",\n	\"TWCC_BADVALUE (Data parameter out of range)\",\n	\"TWCC_SEQERROR (Triplet out of sequence)\",\n	\"TWCC_BADDEST (Unknown dest. App/Src in DSM_Entry)\",\n   \"TWCC_CAPUNSUPPORTED (Cap not supported by source)\",\n   \"TWCC_CAPBADOPERATION (Operation not supported by cap)\",\n   \"TWCC_CAPSEQERROR (Cap has dependancy on other cap)\",\n};\n\nconst char szInsuffMem[] = \"Insufficient Memory\";	// error message\n\n#define WM_AUTOSCAN 0x7fa0       // semi-random number\n\n//------------ Global variables\n\nSTATIC int			iAvailable;			// TWAIN available: 0:unknown, -1:No, 1:Yes\nSTATIC int			nState = 1;			// TWAIN state (per the standard)\nSTATIC int			nErrDetail;			// detailed error code\nSTATIC unsigned   nErrRC, nErrCC;	// result code and condition code for last error\nSTATIC char			szMsg[256];			// scratch buffer for messages\nSTATIC DSMENTRYPROC	pDSM_Entry;    // entry point of Data Source Manager (TWAIN.DLL)\nSTATIC HANDLE		hDSMLib;          // handle of DSM\nSTATIC TW_IDENTITY	AppId = {      // application identity structure\n	0,									// Id, filled in by DSM\n	{ 1, 0, TWLG_USA, TWCY_USA, \"Unknown Version\"},	// Version\n    TWON_PROTOCOLMAJOR,\n    TWON_PROTOCOLMINOR,\n    DG_IMAGE | DG_CONTROL,\n    \"Unspecified Developer\",           // Mfg\n    \"TWAIN Application\",               // Family\n    \"EZTWAIN Client\"                   // Product\n    };\nSTATIC TW_IDENTITY      SourceId;      // source identity structure\nSTATIC BOOL             bHideUI;       // allow source u/i to be hidden\nSTATIC TW_USERINTERFACE twUI;\nSTATIC TW_PENDINGXFERS  pendingXfers;\nSTATIC BOOL             bBreakModalLoop; // flag to end modal event loop\nSTATIC unsigned         nMemBuffer;     // memory transfer buffer counter\nSTATIC HANDLE           hdibLastRcvd;   // bitmap returned by native transfer\nSTATIC TW_INT16         rc;             // result code       \nSTATIC HINSTANCE        hinstLib;       // instance handle for this DLL\nSTATIC HWND             hwndProxy;      // proxy window\n\n#ifdef EZTPRO_H\nSTATIC HWND             hwndButton;\nSTATIC BOOL             bAutoScan;\n#endif\n\n//------------ Forward declarations\n\nvoid EZTAPI TWAIN_WaitForXfer(HWND hwnd);\n\nstatic void SetState(int n);\nstatic HWND GetValidHwnd(HWND hwnd);\nstatic HWND CreateProxyWindow(void);\nstatic TW_UINT32 Intersect(TW_UINT32 wMask, TW_UINT32 nItems, TW_UINT16 far *pItem);\nstatic unsigned FindIndex16(TW_UINT32 nItems, TW_UINT16 far *plist, TW_UINT16 uVal, unsigned nDefault);\nstatic unsigned BitCount(unsigned W);\nstatic int RecordError(ErrorDetail ed);\nstatic void ClearError(void);\nstatic double Fix32ToFloat(TW_FIX32 fix);\nstatic void NativeXferHandler(void);\nstatic void FileXferHandler(void);\nstatic void MemoryXferHandler(void);\nstatic void DoOneTransfer(void);\n\n#ifdef EZTPRO_H\nstatic HWND FindScanButton(void);\nstatic void PressButton(HWND hwnd);\n#endif\n\n//------------ Public functions\n\n\n#ifdef _WIN32\n\n// Win32 DLL main\nBOOL WINAPI DllMain(HANDLE hModule, \n                    ULONG  ulEvent,\n                    LPVOID lpReserved)\n{\n   switch (ulEvent) {\n   case DLL_PROCESS_DETACH:\n      //TWAIN_UnloadSourceManager();\n      break;\n   case DLL_PROCESS_ATTACH:\n#ifdef DEBUG\n      wsprintf(szMsg, \"sizeof (TW_IDENTITY) == %d\\n\", sizeof (TW_IDENTITY));\n      OutputDebugString(szMsg);\n#endif\n      assert(sizeof (TW_IDENTITY) == 156);\n      break;\n   default:\n      break;\n   }\n   return TRUE;\n}\n\n#else\n\n// Win16 DLL initialization and termination routines\nint CALLBACK __export LibMain(HINSTANCE hinst, WORD wDataSeg, WORD cbHeapSize, LPSTR lpszCmdLine)\n{\n	wDataSeg = wDataSeg; cbHeapSize = cbHeapSize; lpszCmdLine = lpszCmdLine;\n\n	hinstLib = hinst;\n   assert(sizeof (TW_IDENTITY) == 156);\n	return 1;		// indicate success\n} // LibMain\n\n\nint FAR PASCAL __export _WEP(int x)\n{\n	x = x;				// suppress \'is never used\' warning\n	return 1;\n} // _WEP\n\n\n#endif\n\n\n//-- Record application information\nvoid EZTAPI TWAIN_RegisterApp(\n	int   nMajorNum,     // major and incremental revision of application.\n   int   nMinorNum,     // e.g. version 4.5: nMajorNum = 4, nMinorNum = 5\n	int   nLanguage,     // (human) language (use TWLG_xxx from TWAIN.H)\n	int   nCountry,      // country (use TWCY_xxx from TWAIN.H)\n	LPSTR lpszVersion,   // version info string e.g. \"1.0b3 Beta release\"\n	LPSTR lpszMfg,       // name of mfg/developer e.g. \"Crazbat Software\"\n	LPSTR lpszFamily,    // product family e.g. \"BitStomper\"\n	LPSTR lpszProduct)   // specific product e.g. \"BitStomper Deluxe Pro\"\n{\n    AppId.Id = 0;						// init to 0, but Source Manager will assign real value\n    AppId.Version.MajorNum = nMajorNum;\n    AppId.Version.MinorNum = nMinorNum;\n    AppId.Version.Language = nLanguage;\n    AppId.Version.Country  = nCountry;\n    lstrcpy (AppId.Version.Info,  lpszVersion);\n\n    AppId.ProtocolMajor =    TWON_PROTOCOLMAJOR;\n    AppId.ProtocolMinor =    TWON_PROTOCOLMINOR;\n    AppId.SupportedGroups =  DG_IMAGE | DG_CONTROL;\n    lstrcpy (AppId.Manufacturer,  lpszMfg);\n    lstrcpy (AppId.ProductFamily, lpszFamily);\n    lstrcpy (AppId.ProductName,   lpszProduct);\n\n} // TWAIN_RegisterApp\n\n\nint EZTAPI TWAIN_SelectImageSource(HWND hwnd)\n{\n   int fSuccess = FALSE;\n   int nEntryState = nState;\n   \n   if (nState &gt;= TWAIN_SM_OPEN || TWAIN_OpenSourceManager(hwnd)) {\n      TW_IDENTITY	NewSourceId;\n#ifdef _WIN32\n      FMEMSET(&amp;NewSourceId, 0, sizeof NewSourceId);\n#else\n      // I will settle for the system default.  Shouldn\'t I get a highlight\n      // on system default without this call?\n      TWAIN_Mgr(DG_CONTROL, DAT_IDENTITY, MSG_GETDEFAULT, &amp;NewSourceId);\n#endif\n      // Post the Select Source dialog\n      fSuccess = TWAIN_Mgr(DG_CONTROL, DAT_IDENTITY, MSG_USERSELECT, &amp;NewSourceId);\n   } else {\n      TWAIN_ErrorBox(\"Unable to open Source Manager (\" DSM_FILENAME \")\");\n   }\n   \n   if (nEntryState &lt; TWAIN_SM_OPEN) {\n      TWAIN_CloseSourceManager(hwnd);\n      if (nEntryState &lt; TWAIN_SM_LOADED) {\n         TWAIN_UnloadSourceManager();\n      }\n   }\n   return fSuccess;\n} // TWAIN_SelectImageSource\n\n\nHANDLE EZTAPI TWAIN_AcquireNative(HWND hwnd, unsigned wPixTypes)\n{\n	HANDLE hnative = NULL;\n	ClearError();			// clear error detail\n \n   hwnd = GetValidHwnd(hwnd);\n   if (nState &lt; TWAIN_SOURCE_ENABLED) {\n      if (!TWAIN_OpenSourceManager(hwnd)) {\n         TWAIN_ErrorBox(\"Unable to open Source Manager (\" DSM_FILENAME \")\");\n      } else if (!TWAIN_OpenDefaultSource()) {\n         TWAIN_ReportLastError(\"Unable to open default Data Source.\");\n      } else if (!TWAIN_NegotiatePixelTypes(wPixTypes)) {\n         TWAIN_ReportLastError(\"Failed to negotiate Pixel Type.\");\n         return NULL;\n      } else {\n         assert(nState == TWAIN_SOURCE_OPEN);\n      }\n   }\n   if (nState &gt;= TWAIN_SOURCE_OPEN) {\n      hnative = TWAIN_WaitForNativeXfer(hwnd);\n   	TWAIN_AbortAllPendingXfers();	// TRANSFER_READY or TRANSFERRING -&gt; SOURCE_ENABLED\n   }\n\n	// shut everything down in the right sequence\n   TWAIN_UnloadSourceManager();\n\n   // Note: hnative will be NULL if transfer failed or was cancelled.\n	return hnative;\n} // TWAIN_AcquireNative\n\n\nHANDLE EZTAPI TWAIN_WaitForNativeXfer(HWND hwnd)\n{\n    HANDLE hdib = NULL;\n    if (!TWAIN_SetXferMech(XFERMECH_NATIVE)) {\n        TWAIN_ReportLastError(\"Error setting Native Transfer mode\");\n    }\n    TWAIN_WaitForXfer(hwnd);\n    hdib = hdibLastRcvd;\n    hdibLastRcvd = NULL;\n    return hdib;\n} // TWAIN_WaitForNativeXfer\n\n\nvoid EZTAPI TWAIN_WaitForXfer(HWND hwnd)\n{\n   BOOL bWasEnabled;\n   // Make up a valid window if we weren\'t given one\n   hwnd = GetValidHwnd(hwnd);\n   // Disable the parent window during the modal acquire\n   bWasEnabled = (EnableWindow(hwnd, FALSE) == 0);\n\n   if (nState == TWAIN_TRANSFER_READY) {\n      DoOneTransfer();\n   } else if (nState &gt;= TWAIN_SOURCE_ENABLED  || TWAIN_EnableSource(hwnd)) {\n      // source is enabled, wait for transfer or source closed\n      TWAIN_ModalEventLoop();\n   } else {\n      OutputDebugString(\"EZTW: EnableSource failed.\\n\");\n      TWAIN_ReportLastError(\"Failed to enable Data Source.\");\n   }\n\n   // Re-enable the parent window if it was enabled\n   EnableWindow(hwnd, bWasEnabled);\n} // TWAIN_WaitForXfer\n\n\nvoid EZTAPI TWAIN_FreeNative(HANDLE hdib)\n// Release the memory allocated to a native format image, as returned by TWAIN_AcquireNative.\n// (For those coding in C or C++, this is just a call to GlobalFree.)\n{\n	if (hdib) GlobalFree(hdib);\n} // TWAIN_FreeNative\n\n\n\nint EZTAPI TWAIN_AcquireToClipboard(HWND hwndApp, unsigned wPixTypes)\n// Like AcquireNative, but puts the resulting image, if any, into the system clipboard.\n// Useful for environments like Visual Basic where it is hard to make direct use of a DIB handle.\n// A return value of 1 indicates success, 0 indicates failure.\n{\n	int fOk = FALSE;\n	HANDLE hDib = TWAIN_AcquireNative(hwndApp, wPixTypes);\n	if (hDib) {\n		if (OpenClipboard(hwndApp)) {\n			if (EmptyClipboard()) {\n				SetClipboardData(CF_DIB, hDib);\n				fOk = TRUE;\n				hDib = NULL;\n			}\n			CloseClipboard();\n		}\n		if (hDib) {\n			// something went wrong, recycle the image\n			GlobalFree(hDib);\n		}\n	}\n	return fOk;		// failed\n} // TWAIN_AcquireToClipboard\n\n\nint EZTAPI TWAIN_AcquireToFilename(HWND hwndApp, LPCSTR pszFile)\n// Adapted from a routine by David D. Henseler (ddh) of SOLUTIONS GmbH\n{\n	int result = -1;\n	HANDLE	hDib = TWAIN_AcquireNative(hwndApp, TWAIN_ANYTYPE);\n	if (hDib) {\n		result = TWAIN_WriteNativeToFilename(hDib, pszFile);\n		TWAIN_FreeNative(hDib);\n	}\n	return result;\n} // TWAIN_AcquireToFile\n\n\n///////////////////////////////////////////////////////////////////////\n// DIB utilities\n\nint EZTAPI TWAIN_DibDepth(HANDLE hdib)\n{\n   LPBITMAPINFOHEADER pbi = (LPBITMAPINFOHEADER)GlobalLock(hdib);\n   int D = pbi-&gt;biBitCount;\n   GlobalUnlock(hdib);\n   return D;\n} // TWAIN_DibDepth\n\nint EZTAPI TWAIN_DibWidth(HANDLE hdib)\n{\n   LPBITMAPINFOHEADER pbi = (LPBITMAPINFOHEADER)GlobalLock(hdib);\n   int W = (int)pbi-&gt;biWidth;\n   GlobalUnlock(hdib);\n   return W;\n} // TWAIN_DibWidth\n\n\nint EZTAPI TWAIN_DibHeight(HANDLE hdib)\n{\n   LPBITMAPINFOHEADER pbi = (LPBITMAPINFOHEADER)GlobalLock(hdib);\n   int H = (int)pbi-&gt;biHeight;\n   GlobalUnlock(hdib);\n   return H;\n} // TWAIN_DibHeight\n\n\nstatic int ColorCount(int bpp)\n{\n   return 0xFFF &amp; (1 &lt;&lt; bpp);\n}\n\n       \nstatic int BmiColorCount(LPBITMAPINFOHEADER lpbi)\n{\n   if (lpbi-&gt;biSize == sizeof(BITMAPCOREHEADER)) {\n      LPBITMAPCOREHEADER    lpbc = ((LPBITMAPCOREHEADER)lpbi);\n      return 1 &lt;&lt; lpbc-&gt;bcBitCount;\n   } else if (lpbi-&gt;biClrUsed == 0) {\n      return ColorCount(lpbi-&gt;biBitCount);\n   } else {\n      return (int)lpbi-&gt;biClrUsed;\n   }\n} // BmiColorCount\n\n\nstatic int DibNumColors(VOID FAR *pv)\n{\n   return BmiColorCount((LPBITMAPINFOHEADER)pv);\n} // DibNumColors\n\n\nstatic size_t RowBytes(int bpp, int w)\n{\n	// bytes per image row - round up to DWORD\n	return (bpp * w + 31) / 32 * 4;\n}\n\nstatic long BmiRowBytes(const LPBITMAPINFOHEADER lpbi)\n{\n	return RowBytes(lpbi-&gt;biBitCount, lpbi-&gt;biWidth);\n} // BmiRowBytes\n\n\nstatic size_t BmiColorTableBytes(LPBITMAPINFOHEADER lpbi)\n{\n	return BmiColorCount(lpbi) * sizeof(RGBQUAD);\n} // BmiColorTableBytes\n\n\nstatic size_t ColorTableBytes(int bpp)\n{\n	return ColorCount(bpp) * sizeof(RGBQUAD);\n} // ColorTableBytes\n\n\nstatic size_t OffsetToBits(LPBITMAPINFOHEADER lpbi)\n{\n	return (size_t)(lpbi-&gt;biSize + BmiColorTableBytes(lpbi));\n} // OffsetToBits\n\n\nstatic LPBYTE FindBits(LPBITMAPINFOHEADER lpbi)\n{\n	return (LPBYTE)lpbi + OffsetToBits(lpbi);\n} // FindBits\n\n\nstatic LPBYTE FindRow(LPBITMAPINFOHEADER lpbi, int nRow)\n{\n	LPBYTE lpbits = FindBits(lpbi);\n\n	if (lpbi-&gt;biHeight &gt; 0) {\n		// standard upside-down DIB\n		nRow = (int)lpbi-&gt;biHeight - 1 - nRow;\n	}\n	return lpbits + nRow * BmiRowBytes(lpbi);\n}\n\n\nint EZTAPI TWAIN_DibNumColors(HANDLE hdib)\n// given a DIB handle, return the number of palette entries: 0,2,16, or 256\n{\n	VOID FAR *pv = GlobalLock(hdib);\n	int nColors = DibNumColors(pv);\n	GlobalUnlock(hdib);\n    return nColors;\n}\n\n\nlong EZTAPI TWAIN_RowBytes(HANDLE hdib)\n{\n	long s = BmiRowBytes((LPBITMAPINFOHEADER)GlobalLock(hdib));\n	GlobalUnlock(hdib);\n	return s;\n}\n\n\nvoid EZTAPI TWAIN_ReadRow(HANDLE hdib, int nRow, BYTE* prow)\n{\n   LPBITMAPINFOHEADER pbi = (LPBITMAPINFOHEADER)GlobalLock(hdib);\n   FMEMCPY(prow, FindRow(pbi, nRow), (size_t)BmiRowBytes(pbi));\n   GlobalUnlock(hdib);\n}\n\n//---------------------------------------------------------------------------\n\nconst PALETTEENTRY peStock256[256] = {\n   // from 0 .. 9 are Windows fixed colors\n     0,   0,   0, 0,	// 000 always black\n   128,   0,   0, 0,	// 001 dark red\n     0, 128,   0, 0,	// 002 dark green\n   128, 128,   0, 0,	// 003 dark brown\n     0,   0, 128, 0,	// 004 dark blue\n   128,   0, 128, 0,	// 005 dark purple\n     0, 128, 128, 0,	// 006 dark teal\n   192, 192, 192, 0,	// 007 light gray\n   192, 220, 192, 0,	// 008 pale green\n   166, 202, 240, 0,	// 009 sky blue\n     4,   4,   4, 4,	// 010 dark gray ramp\n     8,   8,   8, 4,	// 011\n    12,  12,  12, 4,	// 012\n    17,  17,  17, 4,	// 013\n    22,  22,  22, 4,	// 014\n    28,  28,  28, 4,	// 015\n    34,  34,  34, 4,	// 016\n    41,  41,  41, 4,	// 017\n    85,  85,  85, 4,	// 018\n    77,  77,  77, 4,	// 019\n    66,  66,  66, 4,	// 020\n    57,  57,  57, 4,	// 021\n   255, 124, 128, 4,	// 022\n   255,  80,  80, 4,	// 023\n   214,   0, 147, 4,	// 024\n   204, 236, 255, 4,	// 025\n   239, 214, 198, 4,	// 026\n   231, 231, 214, 4,	// 027\n   173, 169, 144, 4,	// 028\n    51,   0,   0, 4,	// 029\n   102,   0,   0, 4,	// 030\n   153,   0,   0, 4,	// 031 \n   204,   0,   0, 4,	// 032\n     0,  51,   0, 4,	// 033\n	51,  51,   0, 4,	// 034\n   102,  51,   0, 4,	// 035\n   153,  51,   0, 4,	// 036\n   204,  51,   0, 4,	// 037\n   255,  51,   0, 4,	// 038\n     0, 102,   0, 4,	// 039\n    51, 102,   0, 4,	// 040\n   102, 102,   0, 4,	// 041\n   153, 102,   0, 4,	// 042\n   204, 102,   0, 4,	// 043\n   255, 102,   0, 4,	// 044\n     0, 153,   0, 4,	// 045     \n	51, 153,   0, 4,	// 046\n   102, 153,   0, 4,	// 047\n   153, 153,   0, 4,	// 048\n   204, 153,   0, 4,	// 049\n   255, 153,   0, 4,	// 050\n     0, 204,   0, 4,	// 051\n    51, 204,   0, 4,	// 052\n   102, 204,   0, 4,	// 053\n   153, 204,   0, 4,	// 054\n   204, 204,   0, 4,	// 055\n   255, 204,   0, 4,	// 056\n   102, 255,   0, 4,	// 057\n   153, 255,   0, 4,	// 058\n   204, 255,   0, 4,	// 059\n     0,   0,  51, 4,	// 060\n    51,   0,  51, 4,	// 061\n   102,   0,  51, 4,	// 062\n   153,   0,  51, 4,	// 063\n   204,   0,  51, 4,	// 064\n   255,   0,  51, 4,	// 065\n     0,  51,  51, 4,	// 066\n    51,  51,  51, 4,	// 067\n   102,  51,  51, 4,	// 068\n   153,  51,  51, 4,	// 069\n   204,  51,  51, 4,	// 070\n   255,  51,  51, 4,	// 071\n     0, 102,  51, 4,	// 072\n    51, 102,  51, 4,	// 073\n   102, 102,  51, 4,	// 074\n   153, 102,  51, 4,	// 075\n   204, 102,  51, 4,	// 076\n   255, 102,  51, 4,	// 077\n     0, 153,  51, 4,	// 078\n    51, 153,  51, 4,	// 079\n   102, 153,  51, 4,	// 080\n   153, 153,  51, 4,	// 081\n   204, 153,  51, 4,	// 082\n   255, 153,  51, 4,	// 083\n     0, 204,  51, 4,	// 084\n    51, 204,  51, 4,	// 085\n   102, 204,  51, 4,	// 086\n   153, 204,  51, 4,	// 087\n   204, 204,  51, 4,	// 088\n   255, 204,  51, 4,	// 089  \n    51, 255,  51, 4,	// 090\n   102, 255,  51, 4,	// 091\n   153, 255,  51, 4,	// 092\n   204, 255,  51, 4,	// 093\n   255, 255,  51, 4,	// 094\n     0,   0, 102, 4,	// 095\n    51,   0, 102, 4,	// 096\n   102,   0, 102, 4,	// 097\n   153,   0, 102, 4,	// 098\n   204,   0, 102, 4,	// 099\n   255,   0, 102, 4,	// 100\n     0,  51, 102, 4,	// 101\n    51,  51, 102, 4,	// 102\n   102,  51, 102, 4,	// 103\n   153,  51, 102, 4,	// 104\n   204,  51, 102, 4,	// 105\n   255,  51, 102, 4,	// 106\n     0, 102, 102, 4,	// 107\n    51, 102, 102, 4,	// 108\n   102, 102, 102, 4,	// 109\n   153, 102, 102, 4,	// 110\n   204, 102, 102, 4,	// 111\n     0, 153, 102, 4,	// 112\n    51, 153, 102, 4,	// 113\n   102, 153, 102, 4,	// 114\n   153, 153, 102, 4,	// 115\n   204, 153, 102, 4,	// 116\n   255, 153, 102, 4,	// 117\n     0, 204, 102, 4,	// 118\n    51, 204, 102, 4,	// 119\n   153, 204, 102, 4,	// 120\n   204, 204, 102, 4,	// 121\n   255, 204, 102, 4,	// 122\n     0, 255, 102, 4,	// 123\n    51, 255, 102, 4,	// 124\n   153, 255, 102, 4,	// 125\n   204, 255, 102, 4,	// 126\n   255,   0, 204, 4,	// 127\n   204,   0, 255, 4,	// 128\n     0, 153, 153, 4,	// 129\n   153,  51, 153, 4,	// 130\n   153,   0, 153, 4,	// 131\n   204,   0, 153, 4,	// 132\n     0,   0, 153, 4,	// 133\n    51,  51, 153, 4,	// 134\n   102,   0, 153, 4,	// 135\n   204,  51, 153, 4,	// 136\n   255,   0, 153, 4,	// 137\n     0, 102, 153, 4,	// 138\n    51, 102, 153, 4,	// 139\n   102,  51, 153, 4,	// 140\n   153, 102, 153, 4,	// 141\n   204, 102, 153, 4,	// 142\n   255,  51, 153, 4,	// 143\n    51, 153, 153, 4,	// 144\n   102, 153, 153, 4,	// 145\n   153, 153, 153, 4,	// 146\n   204, 153, 153, 4,	// 147\n   255, 153, 153, 4,	// 148\n     0, 204, 153, 4,	// 149\n    51, 204, 153, 4,	// 150\n   102, 204, 102, 4,	// 151\n   153, 204, 153, 4,	// 152\n   204, 204, 153, 4,	// 153\n   255, 204, 153, 4,	// 154\n     0, 255, 153, 4,	// 155\n    51, 255, 153, 4,	// 156\n   102, 204, 153, 4,	// 157\n   153, 255, 153, 4,	// 158\n   204, 255, 153, 4,	// 159\n   255, 255, 153, 4,	// 160\n     0,   0, 204, 4,	// 161\n    51,   0, 153, 4,	// 162\n   102,   0, 204, 4,	// 163\n   153,   0, 204, 4,	// 164\n   204,   0, 204, 4,	// 165\n     0,  51, 153, 4,	// 166\n    51,  51, 204, 4,	// 167\n   102,  51, 204, 4,	// 168\n   153,  51, 204, 4,	// 169\n   204,  51, 204, 4,	// 170\n   255,  51, 204, 4,	// 171\n     0, 102, 204, 4,	// 172\n    51, 102, 204, 4,	// 173\n   102, 102, 153, 4,	// 174\n   153, 102, 204, 4,	// 175\n   204, 102, 204, 4,	// 176\n   255, 102, 153, 4,	// 177\n     0, 153, 204, 4,	// 178\n    51, 153, 204, 4,	// 179\n   102, 153, 204, 4,	// 180\n   153, 153, 204, 4,	// 181\n   204, 153, 204, 4,	// 182\n   255, 153, 204, 4,	// 183\n     0, 204, 204, 4,	// 184\n    51, 204, 204, 4,	// 185\n   102, 204, 204, 4,	// 186\n   153, 204, 204, 4,	// 187\n   204, 204, 204, 4,	// 188\n   255, 204, 204, 4,	// 189\n     0, 255, 204, 4,	// 190\n    51, 255, 204, 4,	// 191\n   102, 255, 153, 4,	// 192\n   153, 255, 204, 4,	// 193\n   204, 255, 204, 4,	// 194\n   255, 255, 204, 4,	// 195\n    51,   0, 204, 4,	// 196\n   102,   0, 255, 4,	// 197\n   153,   0, 255, 4,	// 198\n     0,  51, 204, 4,	// 199\n    51,  51, 255, 4,	// 200\n   102,  51, 255, 4,	// 201\n   153,  51, 255, 4,	// 202\n   204,  51, 255, 4,	// 203\n   255,  51, 255, 4,	// 204 \n     0, 102, 255, 4,	// 205\n    51, 102, 255, 4,	// 206\n   102, 102, 204, 4,	// 207\n   153, 102, 255, 4,	// 208\n   204, 102, 255, 4,	// 209\n   255, 102, 204, 4,	// 210\n     0, 153, 255, 4,	// 211\n    51, 153, 255, 4,	// 212\n   102, 153, 255, 4,	// 213\n   153, 153, 255, 4,	// 214\n   204, 153, 255, 4,	// 215\n   255, 153, 255, 4,	// 216\n     0, 204, 255, 4,	// 217\n    51, 204, 255, 4,	// 218\n   102, 204, 255, 4,	// 219\n   153, 204, 255, 4,	// 220\n   204, 204, 255, 4,	// 221\n   255, 204, 255, 4,	// 222\n    51, 255, 255, 4,	// 223\n   102, 255, 204, 4,	// 224\n   153, 255, 255, 4,	// 225\n   204, 255, 255, 4,	// 226\n   255, 102, 102, 4,	// 227\n   102, 255, 102, 4,	// 228\n   255, 255, 102, 4,	// 229\n   102, 102, 255, 4,	// 230\n   255, 102, 255, 4,	// 231\n   102, 255, 255, 4,	// 232\n   165,   0,  33, 4,	// 233\n    95,  95,  95, 4,	// 234\n   119, 119, 119, 4,	// 235 \n   134, 134, 134, 4,	// 236\n   150, 150, 150, 4,	// 237\n   203, 203, 203, 4,	// 238\n   178, 178, 178, 4,	// 239\n   215, 215, 215, 4,	// 240\n   221, 221, 221, 4,	// 241\n   227, 227, 227, 4,	// 242\n   234, 234, 234, 4,	// 243\n   241, 241, 241, 4,	// 244\n   248, 248, 248, 4,	// 245\n   // 246 - 255 are Windows fixed colors    \n   255, 251, 240, 0,	// 246\n   160, 160, 164, 0,	// 247\n   128, 128, 128, 0,	// 248\n   255,   0,   0, 0,	// 249\n     0, 255,   0, 0,	// 250\n   255, 255,   0, 0,	// 251\n     0,   0, 255, 0,	// 252\n   255,   0, 255, 0,	// 253\n     0, 255, 255, 0,	// 254\n   255, 255, 255, 0,	// 255 always white \n};\n\nHPALETTE EZTAPI TWAIN_CreateDibPalette (HANDLE hdib)\n// given a pointer to a locked DIB, returns a handle to a plausible logical\n// palette to be used for rendering the DIB\n// For 24-bit dibs, returns a default palette.\n{\n    HPALETTE            hPalette = NULL;\n\n	LPBITMAPINFOHEADER	lpbmi = (LPBITMAPINFOHEADER)GlobalLock(hdib);\n\n    if (lpbmi) {\n	    WORD nColors = TWAIN_DibNumColors(hdib);			// size of DIB palette\n		WORD nEntries = nColors ? nColors : 256;			// size of palette to create\n		// allocate logical palette structure\n	    LOGPALETTE *pPal = (LOGPALETTE*)LocalAlloc(LPTR,\n					sizeof(LOGPALETTE) + nEntries * sizeof(PALETTEENTRY));\n		if (pPal) {\n			// Fill in the palette entries\n			pPal-&gt;palNumEntries = nEntries;\n			pPal-&gt;palVersion    = 0x300;			// Windows 3.0 or later\n			if (nColors) {\n				// from the DIB color table\n				// Get a pointer to the color table\n				RGBQUAD FAR *pRgb = (RGBQUAD FAR *)((LPSTR)lpbmi + (WORD)lpbmi-&gt;biSize);\n			    WORD i;	\n				// copy from DIB palette (triples, by the way) into the LOGPALETTE\n				for (i = 0; i &lt; nEntries; i++) {\n					pPal-&gt;palPalEntry[i].peRed   = pRgb[i].rgbRed;\n					pPal-&gt;palPalEntry[i].peGreen = pRgb[i].rgbGreen;\n					pPal-&gt;palPalEntry[i].peBlue  = pRgb[i].rgbBlue;\n					pPal-&gt;palPalEntry[i].peFlags = (BYTE)0;\n				} // for\n			} else {\n				// Deep Dib: Synthesize halftone palette\n				memcpy(pPal-&gt;palPalEntry, peStock256, sizeof peStock256);\n			}\n	\n			// create a logical palette\n			hPalette = CreatePalette(pPal);\n			LocalFree((HANDLE)pPal);\n		}\n	\n		GlobalUnlock(hdib);\n	}\n    return hPalette;\n} // TWAIN_CreateDibPalette\n\n\nLPBYTE DibBits(LPBITMAPINFOHEADER lpdib)\n// Given a pointer to a locked DIB, return a pointer to the actual bits (pixels)\n{\n    DWORD dwColorTableSize = (DWORD)(DibNumColors(lpdib) * sizeof(RGBQUAD));\n    LPBYTE lpBits = (LPBYTE)lpdib + lpdib-&gt;biSize + dwColorTableSize;\n\n    return lpBits;\n} // end DibBits\n\n\nvoid EZTAPI TWAIN_DrawDibToDC(HDC hDC, int dx, int dy, int w, int h,\n									 HANDLE hdib, int sx, int sy)\n{\n	LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER)GlobalLock(hdib);\n	if (lpbmi) {\n#ifdef _WIN32\n		HDRAWDIB hdd = DrawDibOpen();\n		if (hdd) {\n			DrawDibDraw(hdd, hDC,\n						dx, dy, w, h,\n						lpbmi, DibBits(lpbmi),\n						sx, sy, w, h,\n						0	\n						);\n			DrawDibClose(hdd);\n		}\n#else\n		StretchDIBits(hDC,\n					dx, dy,			// x,y destination\n					w, h,			// pixel width &amp; height in destination\n					sx, sy,			// x,y source\n					w, h,			// width &amp; height in source\n					DibBits(lpbmi), // pointer to \'bits\' - the pixels\n					(LPBITMAPINFO)lpbmi,\n					DIB_RGB_COLORS,	// DIB palette is (presumably?) RGB entries\n					SRCCOPY);		// raster operation (copy)\n#endif\n		GlobalUnlock(hdib);\n	}\n} // TWAIN_DrawDibToDC\n\n\n///////////////////////////////////////////////////////////////////////\n// TWAIN general\n\n\nint EZTAPI TWAIN_IsAvailable(void)\n// return 1 if TWAIN services are available, 0 if \'TWAIN-less\' system\n{\n	if (pDSM_Entry) return TRUE;		// SM currently loaded\n\n	if (iAvailable == 0) {\n		if (TWAIN_LoadSourceManager()) {\n			iAvailable = 1;\n			TWAIN_UnloadSourceManager();\n		} else {\n			iAvailable = -1;\n		}\n	}\n	return (iAvailable &gt; 0);\n} // TWAIN_IsAvailable\n\n\nint EZTAPI TWAIN_EasyVersion(void)\n// Returns the version number of EZTWAIN.DLL, multiplied by 100.\n// So e.g. version 2.01 will return 201 from this call.\n{\n	return VERSION;\n} // TWAIN_EasyVersion\n\n\nint EZTAPI TWAIN_State(void)\n// Returns the TWAIN Protocol State per the spec.\n{\n	return nState;\n} \n\nint EZTAPI TWAIN_GetHideUI(void)\n{\n	return bHideUI;\n} // TWAIN_GetHideUI\n\nvoid EZTAPI TWAIN_SetHideUI(int fHide)\n{\n	bHideUI = (fHide != 0);\n} // TWAIN_SetHideUI\n\n\n///////////////////////////////////////////////////////////////////////\n// TWAIN State Changers\n\nint EZTAPI TWAIN_LoadSourceManager(void)\n{\n	char		szSMDir[128];\n	int			cc;\n	OFSTRUCT	of;\n\n	if (nState &gt;= TWAIN_SM_LOADED) return TRUE;			// DSM already loaded\n\n	GetWindowsDirectory(szSMDir, sizeof(szSMDir));\n	cc = lstrlen(szSMDir);\n	if (cc &amp;&amp; szSMDir[cc-1] != \':\') {\n		lstrcat(szSMDir, \"\\\\\");\n	}\n	lstrcat(szSMDir, DSM_FILENAME);			// could crash!\n	if (OpenFile(szSMDir, &amp;of, OF_EXIST) != -1) {\n		hDSMLib = LoadLibrary(szSMDir);\n	} else {\n		hDSMLib = NULL;\n	}\n	if (IsValidHandle(hDSMLib)) {\n		pDSM_Entry = (DSMENTRYPROC) GetProcAddress(hDSMLib, DSM_ENTRYPOINT);\n		if (pDSM_Entry) {\n			iAvailable = 1;\n			SetState(TWAIN_SM_LOADED);\n		} else {\n			FreeLibrary(hDSMLib);\n			hDSMLib = NULL;\n		}\n	} else {\n		pDSM_Entry = NULL;\n	}\n	\n	return (nState &gt;= TWAIN_SM_LOADED);\n} // TWAIN_LoadSourceManager\n\n\nstatic TW_INT32 hwnd32SM;\n\nint EZTAPI TWAIN_OpenSourceManager(HWND hwnd)\n{\n	hwnd32SM = (TW_INT32)GetValidHwnd(hwnd);\n\n   if (nState &lt; TWAIN_SM_OPEN) {\n	   if (TWAIN_LoadSourceManager() &amp;&amp;\n		   TWAIN_Mgr(DG_CONTROL, DAT_PARENT, MSG_OPENDSM, &amp;hwnd32SM)) {\n		   assert(nState == TWAIN_SM_OPEN);\n	   }\n   }\n\n	return (nState &gt;= TWAIN_SM_OPEN);\n} // TWAIN_OpenSourceManager\n\n\nint EZTAPI TWAIN_OpenDefaultSource(void)\n{\n   static TW_IDENTITY twid;\n   if (nState &lt; TWAIN_SOURCE_OPEN) {\n      if (nState &lt; TWAIN_SM_OPEN &amp;&amp; !TWAIN_OpenSourceManager(NULL)) {\n         return FALSE;\n      }\n\n	   // open the system default source\n      FMEMSET(&amp;twid, 0, sizeof twid);\n	   if (TWAIN_Mgr(DG_CONTROL, DAT_IDENTITY, MSG_OPENDS, &amp;twid)) {\n		   assert(nState == TWAIN_SOURCE_OPEN);\n           TWAIN_SetXferMech(TWSX_NATIVE);\n	   }\n   }\n\n	return (nState == TWAIN_SOURCE_OPEN);\n} // TWAIN_OpenDefaultSource\n\n\nint EZTAPI TWAIN_EnableSource(HWND hwnd)\n{\n   if (nState &lt; TWAIN_SOURCE_OPEN &amp;&amp; !TWAIN_OpenDefaultSource()) {\n      return FALSE;\n   }\n\n	twUI.ShowUI = !bHideUI;\n	twUI.hParent = (TW_HANDLE)GetValidHwnd(hwnd);\n	TWAIN_DS(DG_CONTROL, DAT_USERINTERFACE, MSG_ENABLEDS, &amp;twUI);\n	return (nState == TWAIN_SOURCE_ENABLED);\n} // TWAIN_EnableSource\n\n\nint EZTAPI TWAIN_DisableSource(void)\n{\n	if (nState == TWAIN_SOURCE_ENABLED &amp;&amp;\n		TWAIN_DS(DG_CONTROL, DAT_USERINTERFACE, MSG_DISABLEDS, &amp;twUI)) {\n		assert(nState == TWAIN_SOURCE_OPEN);\n	}\n	return (nState &lt;= TWAIN_SOURCE_OPEN);\n} // TWAIN_DisableSource\n\n\nint EZTAPI TWAIN_CloseSource(void)\n{\n	rc = TWRC_SUCCESS;\n\n	if (nState == TWAIN_SOURCE_ENABLED) TWAIN_DisableSource();\n	if (nState == TWAIN_SOURCE_OPEN &amp;&amp;\n		TWAIN_Mgr(DG_CONTROL, DAT_IDENTITY, MSG_CLOSEDS, &amp;SourceId)) {\n		assert(nState == TWAIN_SM_OPEN);\n	}\n	return (nState &lt;= TWAIN_SM_OPEN);\n} // TWAIN_CloseSource\n\n\nint EZTAPI TWAIN_CloseSourceManager(HWND hwnd)\n{\n	hwnd32SM = (TW_INT32)GetValidHwnd(hwnd);\n\n	rc = TWRC_SUCCESS;\n\n	if (TWAIN_CloseSource() &amp;&amp;\n		TWAIN_Mgr(DG_CONTROL, DAT_PARENT, MSG_CLOSEDSM, &amp;hwnd32SM)) {\n		assert(nState == TWAIN_SM_LOADED);\n	}\n	return (nState &lt;= TWAIN_SM_LOADED);\n} // TWAIN_CloseSourceManager\n\n\nint EZTAPI TWAIN_UnloadSourceManager(void)\n{\n   TWAIN_CloseSourceManager(NULL);\n	if (nState == TWAIN_SM_LOADED) {\n		if (hDSMLib) {\n			FreeLibrary(hDSMLib);\n			hDSMLib = NULL;\n		}\n		pDSM_Entry = NULL;\n		SetState(TWAIN_PRESESSION);\n	}\n	return (nState == TWAIN_PRESESSION);\n} // TWAIN_UnloadSourceManager\n\n\nvoid EZTAPI TWAIN_ModalEventLoop(void)\n{\n	MSG msg;\n   // Clear global breakout flag\n   bBreakModalLoop = FALSE;\n\n#ifdef EZTPRO_H\n   if (bAutoScan) {\n      PostMessage(NULL, WM_AUTOSCAN, 0, 0);\n   }\n#endif\n\n	while ((nState &gt;= TWAIN_SOURCE_ENABLED)\n       &amp;&amp; !bBreakModalLoop\n       &amp;&amp; GetMessage((LPMSG)&amp;msg, NULL, 0, 0)) {\n\n      if (!TWAIN_MessageHook ((LPMSG)&amp;msg)) {\n			TranslateMessage ((LPMSG)&amp;msg);\n			DispatchMessage ((LPMSG)&amp;msg);\n		}\n   } // while\n   bBreakModalLoop = FALSE;\n} // TWAIN_ModalEventLoop\n\n\nvoid EZTAPI TWAIN_BreakModalLoop(void)\n{\n   bBreakModalLoop = TRUE;\n} // TWAIN_BreakModalLoop\n\n\nstatic void NativeXferHandler(void)\n{\n    TW_UINT32		hNative = 0;\n    \n    hdibLastRcvd = NULL;\n    assert(nState == TWAIN_TRANSFER_READY);\n    if (TWAIN_DS(DG_IMAGE, DAT_IMAGENATIVEXFER, MSG_GET, &amp;hNative)) {\n        hdibLastRcvd = (HANDLE)hNative;\n    }\n} // NativeXferHandler\n\n\n#ifndef EZTPRO_H\n\nstatic void FileXferHandler(void)\n{\n   TWAIN_ErrorBox(\"EZTW: File Transfer mode not supported.\");\n} // FileXferHandler\n\nstatic void MemoryXferHandler(void)\n{\n   TWAIN_ErrorBox(\"EZTW: Memory Transfer mode not supported.\");\n} // MemoryXferHandler\n\n#endif\n\nstatic void DoOneTransfer(void)\n{\n   switch (TWAIN_XferMech()) {\n   case XFERMECH_NATIVE:\n      NativeXferHandler();\n      break;\n   case XFERMECH_FILE:\n      FileXferHandler();\n      break;\n   case XFERMECH_MEMORY:\n      MemoryXferHandler();\n      break;\n   } // switch\n\n   // If inside ModalEventLoop, break out\n   TWAIN_BreakModalLoop();\n\n   // Acknowledge transfer\n   TWAIN_EndXfer();\n	assert(nState == TWAIN_TRANSFER_READY ||\n          nState == TWAIN_SOURCE_ENABLED);\n} // DoOneTransfer\n\n\nint EZTAPI TWAIN_MessageHook(LPMSG lpmsg)\n// returns TRUE if msg processed by TWAIN (source)\n{\n	int   bProcessed = FALSE;\n\n#ifdef EZTPRO_H\n   if (lpmsg-&gt;message == WM_AUTOSCAN &amp;&amp; lpmsg-&gt;hwnd == NULL) {\n      // Time to try auto-button-press again\n      hwndButton = FindScanButton();\n      if (hwndButton) {\n         PressButton(hwndButton);\n         bAutoScan = FALSE;\n      }\n      if (bAutoScan) {\n         PostMessage(NULL, WM_AUTOSCAN, 0, 0);\n      }\n      return TRUE;\n   }\n#endif\n\n   if (nState &gt;= TWAIN_SOURCE_ENABLED) {\n      // source enabled\n		TW_EVENT	twEvent;\n		twEvent.pEvent = (TW_MEMREF)lpmsg;\n		twEvent.TWMessage = MSG_NULL;\n		// see if source wants to process (eat) the message\n		TWAIN_DS(DG_CONTROL, DAT_EVENT, MSG_PROCESSEVENT, &amp;twEvent);\n		bProcessed = (rc == TWRC_DSEVENT);\n		switch (twEvent.TWMessage) {\n			case MSG_XFERREADY:\n				assert(nState == TWAIN_TRANSFER_READY);\n            DoOneTransfer();\n				break;\n			case MSG_CLOSEDSREQ:\n				TWAIN_DisableSource();\n				break;\n			case MSG_NULL:\n				// no message returned from DS\n				break;\n		} // switch\n    }\n	return bProcessed;\n} // TWAIN_MessageHook\n\n\nint EZTAPI TWAIN_EndXfer(void)\n{\n   if (nState == TWAIN_TRANSFERRING) {\n		TWAIN_DS(DG_CONTROL, DAT_PENDINGXFERS, MSG_ENDXFER, &amp;pendingXfers);\n	}\n   return (nState &lt; TWAIN_TRANSFERRING);\n} // TWAIN_EndXfer\n\n\nint EZTAPI TWAIN_AbortAllPendingXfers(void)\n{\n   TWAIN_EndXfer();\n   if (nState == TWAIN_TRANSFER_READY) {\n		TWAIN_DS(DG_CONTROL, DAT_PENDINGXFERS, MSG_RESET, &amp;pendingXfers);\n	}\n	return (nState &lt;= TWAIN_SOURCE_ENABLED);\n} // TWAIN_AbortAllPendingXfers\n\n\n///////////////////////////////////////////////////////////////////////\n// DIB/BMP File I/O\n\nint EZTAPI TWAIN_WriteNativeToFilename(HANDLE hdib, LPCSTR pszFile)\n// Writes a DIB handle to a .BMP file\n//\n// hdib		= DIB handle, as returned by TWAIN_AcquireNative\n// pszFile	= far pointer to NUL-terminated filename\n// If pszFile is NULL or points to a null string, prompts the user\n// for the filename with a standard file-save dialog.\n//\n// Return values:\n//	 0	success\n//	-1	user cancelled File Save dialog\n//	-2	file open error (invalid path or name, or access denied)\n//	-3	(weird) unable to lock DIB - probably an invalid handle.\n//	-4	writing BMP data failed, possibly output device is full\n{\n	int result;\n	char szFile[256];\n	HFILE fh;\n	OFSTRUCT ofs;\n\n	if (!pszFile || !*pszFile) {\n		// prompt for filename\n		OPENFILENAME ofn;\n		int nExt;\n		\n		FMEMSET(&amp;ofn, 0, sizeof ofn);\n		szFile[0] = \'\\0\';\n		ofn.lStructSize = sizeof(OPENFILENAME);\n		ofn.hwndOwner = NULL;\n		ofn.lpstrFilter = \"Windows Bitmap (*.bmp)\\0*.bmp\\0\\0\";\n		ofn.lpstrFile= szFile;\n		ofn.nMaxFile = sizeof(szFile) - 5;\n		ofn.Flags = OFN_OVERWRITEPROMPT | OFN_HIDEREADONLY |\n					OFN_NOREADONLYRETURN;\n	\n		if (!GetSaveFileName(&amp;ofn)) {\n			return -1;					// user cancelled dialog\n		}\n		// supply default extension - GetSaveFileName doesn\'t seem to do it!\n		nExt = ofn.nFileExtension;\n		if (nExt &amp;&amp; !szFile[nExt]) {\n			// no extension\n			lstrcat(szFile, \".bmp\");\n		}\n		pszFile = szFile;\n	}\n\n	result = -2;\n	fh = OpenFile(pszFile , &amp;ofs, OF_CREATE | OF_WRITE | OF_SHARE_EXCLUSIVE);\n	if (fh != HFILE_ERROR) {\n		result = TWAIN_WriteNativeToFile(hdib, fh);\n		_lclose(fh);\n	}\n	return result;\n} // TWAIN_WriteNativeToFilename\n\n\nint EZTAPI TWAIN_WriteNativeToFile(HANDLE hdib, HFILE fh)\n// Writes a DIB to a file in .BMP format.\n//\n// hdib		= DIB handle, as returned by TWAIN_AcquireNative\n// fh		= file handle, as returned by C _open or Windows _lopen or OpenFile\n//\n// Return value as for TWAIN_WriteNativeToFilename\n{\n	int result = -3;\n	LPBITMAPINFOHEADER lpbmi = (LPBITMAPINFOHEADER)GlobalLock(hdib);\n	if (lpbmi) {\n		result = -4;\n		if (TWAIN_WriteDibToFile(lpbmi, fh)) {\n			result = 0;			// success\n		}\n		GlobalUnlock(hdib);\n	}\n	return result;\n} //  TWAIN_WriteNativeToFile\n\n\nint EZTAPI TWAIN_WriteDibToFile(LPBITMAPINFOHEADER lpDIB, HFILE fh)\n{\n	BITMAPFILEHEADER		bfh;\n	int						fOk = FALSE;\n	int						nBPP = lpDIB-&gt;biBitCount;\n	int						nColors = (int)lpDIB-&gt;biClrUsed;\n\n	// figure out actual size of color table\n	if (nColors == 0 &amp;&amp; nBPP &lt;= <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> {\n		nColors = (1 &lt;&lt; nBPP);\n	}\n	if (lpDIB-&gt;biCompression == BI_RGB) {\n		// uncompressed bitmap, image size might not be set\n		DWORD dwBytesPerRow = (((lpDIB-&gt;biWidth * nBPP) + 31) / 32) * 4;\n		lpDIB-&gt;biSizeImage = dwBytesPerRow * lpDIB-&gt;biHeight;\n	} else if (lpDIB-&gt;biSizeImage == 0) {\n		// compressed bitmap, image size had damn well better be set!\n		return FALSE;\n		// This could be hacked around with something like this:\n		//lpDIB-&gt;biSizeImage = GlobalSize((HANDLE)GlobalHandle(HIWORD(lpDIB)));\n	}\n\n	// Set up BMP header.\n	bfh.bfType = 0x4d42;                // \"BM\"\n	bfh.bfReserved1 = 0;\n	bfh.bfReserved2 = 0;\n	bfh.bfOffBits = sizeof(BITMAPFILEHEADER) +\n					sizeof(BITMAPINFOHEADER) +\n					sizeof(RGBQUAD) * nColors;\n	bfh.bfSize = bfh.bfOffBits + lpDIB-&gt;biSizeImage;\n\n	if (_lwrite(fh, (LPCSTR)&amp;bfh, sizeof bfh) == sizeof bfh) {\n\n		INT32 towrite = bfh.bfSize - (INT32)sizeof bfh;\n\n		if (HUGEWRITE(fh, (LPCSTR)lpDIB, towrite) == towrite) {\n			fOk = TRUE;\n		}\n	}\n\n	return fOk;\n\n} // TWAIN_WriteDibToFile\n\n\nHANDLE EZTAPI TWAIN_LoadNativeFromFilename(LPCSTR pszFile)\n// Load a .BMP file and return a DIB handle (as from AcquireNative.)\n//\n// pszFile	= far pointer to NUL-terminated filename\n// If pszFile is NULL or points to a null string, prompts the user\n// for the filename with a standard file-open dialog.\n//\n// Return value:\n//	handle to a DIB if successful, otherwise NULL (0).\n{\n	HANDLE hdib = NULL;\n	char szFile[256];\n	HFILE fh;\n	OFSTRUCT ofs;\n\n	if (!pszFile || !*pszFile) {\n		// prompt for filename\n		OPENFILENAME ofn;\n		int nExt;\n	\n		FMEMSET(&amp;ofn, 0, sizeof ofn);\n		szFile[0] = \'\\0\';\n		ofn.lStructSize = sizeof(OPENFILENAME);\n		ofn.hwndOwner = NULL;\n		ofn.lpstrFilter = \"Windows Bitmaps (*.bmp)\\0*.bmp\\0\\0\";\n		ofn.lpstrFile= szFile;\n		ofn.nMaxFile = sizeof(szFile) - 5;\n		ofn.Flags = OFN_OVERWRITEPROMPT | OFN_HIDEREADONLY |\n					OFN_NOREADONLYRETURN;\n	\n		if (!GetOpenFileName(&amp;ofn)) {\n			return NULL;					// user cancelled dialog\n		}\n		// supply default extension - GetOpenFileName doesn\'t seem to do it!\n		nExt = ofn.nFileExtension;\n		if (nExt &amp;&amp; !szFile[nExt]) {\n			// no extension\n			lstrcat(szFile, \".bmp\");\n		}\n		pszFile = szFile;\n	}\n\n	fh = OpenFile(pszFile, &amp;ofs, OF_READ | OF_SHARE_DENY_WRITE);\n	if (fh != HFILE_ERROR) {\n		hdib = TWAIN_LoadNativeFromFile(fh);\n		_lclose(fh);\n	}\n	return hdib;\n} // TWAIN_LoadNativeFromFilename\n\n\nHANDLE EZTAPI TWAIN_LoadNativeFromFile(HFILE fh)\n// Like LoadNativeFromFilename, but takes an already open file handle.\n{\n	HANDLE hdib;\n	LPBYTE pbi;\n	BITMAPFILEHEADER bmh;\n	INT32 dibSize;\n	// Read BMP file header and validate\n	if (_lread(fh, &amp;bmh, sizeof bmh) != sizeof bmh ||\n		bmh.bfType != 0x4d42) {\n		return NULL;\n	}\n	// Allocate global block for DIB\n	dibSize = bmh.bfSize - sizeof bmh;\n	hdib = GlobalAlloc(0, dibSize);\n	pbi = (LPBYTE)GlobalLock(hdib);\n	if (!hdib || !pbi) {\n		return NULL;\n	}\n\n	// Read DIB from file\n	if (_hread(fh, pbi, dibSize) != dibSize) {\n		GlobalUnlock(hdib);\n		GlobalFree(hdib);\n		return NULL;\n	}\n	GlobalUnlock(hdib);\n	return hdib;\n} // TWAIN_LoadNativeFromFile\n\n///////////////////////////////////////////////////////////////////////\n// TWAIN State 4 Negotiation Functions\n\nint EZTAPI TWAIN_NegotiateXferCount(int nXfers)\n{\n	return TWAIN_SetCapOneValue(CAP_XFERCOUNT, TWTY_INT16, nXfers);\n} // TWAIN_NegotiateXferCount\n\n\nint EZTAPI TWAIN_NegotiatePixelTypes(unsigned wPixTypes)\n{\n	TW_CAPABILITY 		cap;\n	void far *			pv;\n	int					fSuccess = FALSE;\n\n	if (nState != TWAIN_SOURCE_OPEN) {\n		return RecordError(ED_NOT_STATE_4);\n	}\n\n	if (TWAIN_ANYTYPE == wPixTypes) {\n		return TRUE;			// that was easy!\n	}\n                                                                           \n                                                                           \n	// Fill in capability structure\n	cap.Cap = ICAP_PIXELTYPE;			// capability id\n	cap.ConType = TWON_ENUMERATION;		// favorite type of container (should be ignored...)\n\n	if (!TWAIN_DS(DG_CONTROL, DAT_CAPABILITY, MSG_GET, (TW_MEMREF)&amp;cap)) {\n		return RecordError(ED_CAP_GET);\n	}\n	if (!cap.hContainer) {\n		return RecordError(ED_NULL_HCON);\n	}\n	if (!(pv = GlobalLock(cap.hContainer))) {\n		// this source is invalid, further negotiation is unlikely to succeed\n		return RecordError(ED_BAD_HCON);\n	}\n\n	switch (cap.ConType) {\n\n		case TWON_ENUMERATION: {\n			TW_ENUMERATION far *pcon = (TW_ENUMERATION far *)pv;\n			if (pcon-&gt;NumItems &lt; 1) {\n				RecordError(ED_CAP_GET_EMPTY);\n			} else if (pcon-&gt;ItemType != TWTY_UINT16 &amp;&amp; pcon-&gt;ItemType != TWTY_INT16) {\n            // We can only handle the two types\n				RecordError(ED_BAD_ITEMTYPE);\n			} else {\n            TW_UINT16 FAR * plist = (TW_UINT16 FAR *)pcon-&gt;ItemList;\n            TW_UINT32 nItems = pcon-&gt;NumItems;\n            TW_UINT32 nCurrent = pcon-&gt;CurrentIndex;\n            TW_UINT32 nDefault = pcon-&gt;DefaultIndex;\n            TW_UINT16 uCurrentVal = plist[nCurrent &lt; nItems ? nCurrent : 0];\n            TW_UINT16 uDefaultVal = plist[nDefault &lt; nItems ? nDefault : 0];\n            nItems = Intersect(wPixTypes, nItems, plist);\n            pcon-&gt;NumItems = nItems;\n            pcon-&gt;CurrentIndex = FindIndex16(nItems, plist, uCurrentVal, 0);\n            pcon-&gt;DefaultIndex = FindIndex16(nItems, plist, uDefaultVal, 0);\n				fSuccess = (pcon-&gt;NumItems != 0);\n				if (!fSuccess) RecordError(ED_CAP_SET_EMPTY);\n			}\n			break;\n		}\n		\n		case TWON_ARRAY: {\n			// this is technically illegal - TWAIN 1.5, p9-30, Containers for MSG_GET: TW_ENUMERATION, TW_ONEVALUE\n			TW_ARRAY far *pcon = (TW_ARRAY far *)pv;\n			if (pcon-&gt;NumItems &lt; 1) {\n				RecordError(ED_CAP_GET_EMPTY);\n			} else if (pcon-&gt;ItemType != TWTY_UINT16 &amp;&amp; pcon-&gt;ItemType != TWTY_INT16) {\n				RecordError(ED_BAD_ITEMTYPE);\n			} else {\n				pcon-&gt;NumItems = Intersect(wPixTypes, (unsigned)pcon-&gt;NumItems, (TW_UINT16 far *)pcon-&gt;ItemList);\n				fSuccess = (pcon-&gt;NumItems != 0);\n				if (!fSuccess) RecordError(ED_CAP_SET_EMPTY);\n			}\n			break;\n		}\n		\n		case TWON_ONEVALUE: {\n			TW_ONEVALUE far *pcon = (TW_ONEVALUE far *)pv;\n			fSuccess = ((1 &lt;&lt; pcon-&gt;Item) &amp; wPixTypes);\n			if (!fSuccess) RecordError(ED_CAP_SET_EMPTY);\n			break;\n		}\n		\n		default:\n			// something we don\'t understand, abandon negotiations\n			RecordError(ED_BAD_CONTYPE);\n			break;\n	} // switch\n\n	GlobalUnlock(cap.hContainer);\n\n	if (fSuccess) {\n		// For enums (and arrays) send intersection back, to restrict it.\n		// For one vals, don\'t bother - could only cause confusion.\n		if (cap.ConType != TWON_ONEVALUE) {\n			fSuccess = TWAIN_DS(DG_CONTROL, DAT_CAPABILITY, MSG_SET, (TW_MEMREF)&amp;cap);\n			if (!fSuccess) RecordError(ED_CAP_SET);\n		}\n	}\n	GlobalFree(cap.hContainer);\n\n   if (fSuccess) {\n      OutputDebugString(\"EZTW:Pixel Types negotiated.\\n\");\n   }\n	return fSuccess;\n} // TWAIN_NegotiatePixelTypes\n\n\nint EZTAPI TWAIN_GetCurrentUnits(void)\n{\n	int nUnits = TWUN_INCHES;\n	TWAIN_GetCapCurrent(ICAP_UNITS, TWTY_UINT16, &amp;nUnits);\n	return nUnits;\n} // TWAIN_GetCurrentUnits\n\n\nint EZTAPI TWAIN_SetCurrentUnits(int nUnits)\n// Negotiate the current pixel type for acquisition.\n// Negotiation is only allowed in State 4 (TWAIN_SOURCE_OPEN)\n// The source may select this pixel type, but don\'t assume it will.\n{\n	return TWAIN_SetCapOneValue(ICAP_UNITS, TWTY_UINT16, (TW_UINT16)nUnits);\n} // TWAIN_SetCurrentUnits\n\n\nint EZTAPI TWAIN_GetBitDepth(void)\n// Ask the source for the current bitdepth.\n// This value depends on the current PixelType.\n// Bit depth is per color channel e.g. 24-bit RGB has bit depth 8.\n// If anything goes wrong, this function returns 0.\n{\n	int nBits = 0;\n	TWAIN_GetCapCurrent(ICAP_BITDEPTH, TWTY_UINT16, &amp;nBits);\n	return nBits;\n} // TWAIN_GetBitDepth\n\nint EZTAPI TWAIN_SetBitDepth(int nBits)\n// (Try to) set the current bitdepth (for the current pixel type).\n{\n	return TWAIN_SetCapOneValue(ICAP_BITDEPTH, TWTY_UINT16, (TW_UINT16)nBits);\n} // TWAIN_SetBitDepth\n\n\nint EZTAPI TWAIN_GetPixelType(void)\n// Ask the source for the current pixel type.\n// If anything goes wrong (it shouldn\'t!), this function returns 0 (TWPT_BW).\n{\n	int nPixType = 0;\n	TWAIN_GetCapCurrent(ICAP_PIXELTYPE, TWTY_UINT16, &amp;nPixType);\n	return nPixType;\n} // TWAIN_GetPixelType\n\nint EZTAPI TWAIN_SetCurrentPixelType(int nPixType)\n// Negotiate the current pixel type for acquisition.\n// Negotiation is only allowed in State 4 (TWAIN_SOURCE_OPEN)\n// The source may select this pixel type, but don\'t assume it will.\n{\n	return TWAIN_SetCapOneValue(ICAP_PIXELTYPE, TWTY_UINT16, (TW_UINT16)nPixType);\n} // TWAIN_SetCurrentPixelType\n\n\n/////////////////////////////////////////////////////////////////////////////\n// ICAP_XRESOLUTION\n\ndouble EZTAPI TWAIN_GetCurrentResolution(void)\n{\n	TW_FIX32 res;\n	TWAIN_GetCapCurrent(ICAP_XRESOLUTION, TWTY_FIX32, &amp;res);\n	return Fix32ToFloat(res);\n} // TWAIN_GetCurrentResolution\n\ndouble EZTAPI TWAIN_GetYResolution(void)\n// Returns the current vertical resolution, in dots per *current unit*.\n// In the event of failure, returns 0.0.\n{\n	TW_FIX32 res;\n	TWAIN_GetCapCurrent(ICAP_YRESOLUTION, TWTY_FIX32, &amp;res);\n	return Fix32ToFloat(res);\n} // TWAIN_GetYResolution\n\n\nint EZTAPI TWAIN_SetCurrentResolution(double dRes)\n// Negotiate the current resolution for acquisition.\n// Negotiation is only allowed in State 4 (TWAIN_SOURCE_OPEN)\n// The source may select this resolution, but don\'t assume it will.\n{\n	return TWAIN_SetCapOneValue(ICAP_YRESOLUTION, TWTY_FIX32, TWAIN_ToFix32(dRes)) &amp;&amp;\n          TWAIN_SetCapOneValue(ICAP_XRESOLUTION, TWTY_FIX32, TWAIN_ToFix32(dRes));\n} // TWAIN_SetCurrentResolution\n\n\n/////////////////////////////////////////////////////////////////////////////\n// ICAP_CONTRAST\n\nint EZTAPI TWAIN_SetContrast(double dCon)\n// (Try to) set the current contrast for acquisition.\n// The TWAIN standard says that the range for this cap is -1000 ... +1000\n{\n	return TWAIN_SetCapOneValue(ICAP_CONTRAST, TWTY_FIX32, TWAIN_ToFix32(dCon));\n}\n\n\n/////////////////////////////////////////////////////////////////////////////\n// ICAP_BRIGHTNESS\n\nint EZTAPI TWAIN_SetBrightness(double dBri)\n// (Try to) set the current brightness for acquisition.\n// The TWAIN standard says that the range for this cap is -1000 ... +1000\n{\n	return TWAIN_SetCapOneValue(ICAP_BRIGHTNESS, TWTY_FIX32, TWAIN_ToFix32(dBri));\n}\n\n\n/////////////////////////////////////////////////////////////////////////////\n// ICAP_XFERMECH\n\nint EZTAPI TWAIN_XferMech(void)\n{\n	TW_UINT16 mech = XFERMECH_NATIVE;\n	TWAIN_GetCapCurrent(ICAP_XFERMECH, TWTY_UINT16, &amp;mech);\n	return mech;\n} // TWAIN_XferMech\n\nint EZTAPI TWAIN_SetXferMech(int mech)\n{\n	return TWAIN_SetCapOneValue(ICAP_XFERMECH, TWTY_UINT16, (TW_UINT16)mech);\n} // TWAIN_SetXferMech\n\n\n/////////////////////////////////////////////////////////////////////////////\n// TW_FIX32 conversions\n\nstatic void DoubleToFix32(double r, TW_FIX32* pfix)\n{\n   // Note 1: This round-away-from-0 is new in TWAIN 1.7\n   // Note 2: ANSI C converts float to int by truncating toward 0.\n	TW_INT32 val = (TW_INT32)(r * 65536.0 + (r &lt; 0 ? -0.5 : +0.5));\n	pfix-&gt;Whole = (TW_INT16)(val &gt;&gt; 16);			// most significant 16 bits\n	pfix-&gt;Frac = (TW_UINT16)(val &amp; 0xffff);		// least\n} // DoubleToFix32\n\n\nlong EZTAPI TWAIN_ToFix32(double r)\n{\n	TW_FIX32 fix;\n	assert(sizeof (TW_FIX32) == sizeof (long));\n   DoubleToFix32(r, &amp;fix);\n	return *(long*)&amp;fix;\n} // TWAIN_ToFix32\n\n\ndouble EZTAPI TWAIN_Fix32ToFloat(long nfix)\n{\n   TW_FIX32 fix;\n   TW_INT32 val;\n   *(long*)&amp;fix = nfix;\n	val = ((TW_INT32)fix.Whole &lt;&lt; 16) | ((TW_UINT32)fix.Frac &amp; 0xffff);\n	return val / 65536.0;\n} // TWAIN_Fix32ToFloat\n\n\nint EZTAPI TWAIN_SetCapOneValue(unsigned Cap, unsigned ItemType, long ItemVal)\n{\n	TW_CAPABILITY	cap;\n	pTW_ONEVALUE	pv;\n	BOOL			bSuccess;\n\n	if (nState != TWAIN_SOURCE_OPEN) {\n		TWAIN_ErrorBox(\"Attempt to set capability outside State 4.\");\n		return FALSE;\n	}\n\n	cap.Cap = Cap;			// capability id\n	cap.ConType = TWON_ONEVALUE;		// container type\n	cap.hContainer = GlobalAlloc(GHND, sizeof (TW_ONEVALUE));\n	if (!cap.hContainer) {\n		TWAIN_ErrorBox(szInsuffMem);\n		return FALSE;\n	}\n	pv = (pTW_ONEVALUE)GlobalLock(cap.hContainer);\n	pv-&gt;ItemType = ItemType;\n	pv-&gt;Item = ItemVal;\n	GlobalUnlock(cap.hContainer);\n	bSuccess = TWAIN_DS(DG_CONTROL, DAT_CAPABILITY, MSG_SET, (TW_MEMREF)&amp;cap);\n	GlobalFree(cap.hContainer);\n	return bSuccess;\n} // TWAIN_SetCapOneValue\n\n\nconst size_t nTypeSize[13] =\n	{	sizeof (TW_INT8),\n		sizeof (TW_INT16),\n		sizeof (TW_INT32),\n		sizeof (TW_UINT8),\n		sizeof (TW_UINT16),\n		sizeof (TW_UINT32),\n		sizeof (TW_BOOL),\n		sizeof (TW_FIX32),\n		sizeof (TW_FRAME),\n		sizeof (TW_STR32),\n		sizeof (TW_STR64),\n		sizeof (TW_STR128),\n		sizeof (TW_STR255),\n	};\n\n// helper function:\nint TypeMatch(unsigned nTypeA, unsigned nTypeB)\n{\n	// Integral types match if they are the same size.\n	// All other types match only if they are equal\n	return nTypeA == nTypeB ||\n		   (nTypeA &lt;= TWTY_UINT32 &amp;&amp;\n		    nTypeB &lt;= TWTY_UINT32 &amp;&amp;\n		    nTypeSize[nTypeA] == nTypeSize[nTypeB]);\n} // TypeMatch\n\n\n\nint EZTAPI TWAIN_GetCapCurrent(unsigned Cap, unsigned ItemType, void FAR *pVal)\n{\n	TW_CAPABILITY 	cap;\n	void far *		pv = NULL;\n	BOOL			bSuccess = FALSE;\n\n	assert(pVal != NULL);\n\n	if (nState &lt; TWAIN_SOURCE_OPEN) {\n		TWAIN_ErrorBox(\"Attempt to get capability value below State 4.\");\n		return FALSE;\n	}\n\n	// Fill in capability structure\n	cap.Cap = Cap;					// capability id\n	cap.ConType = TWON_ONEVALUE;	// favorite type of container (should be ignored...)\n	cap.hContainer = NULL;\n\n	if (TWAIN_DS(DG_CONTROL, DAT_CAPABILITY, MSG_GETCURRENT, (TW_MEMREF)&amp;cap) &amp;&amp;\n	    cap.hContainer &amp;&amp;\n	    (pv = GlobalLock(cap.hContainer))) {\n\n		if (cap.ConType == TWON_ENUMERATION) {\n			TW_ENUMERATION far *pcon = (TW_ENUMERATION far *)pv;\n			TW_UINT32 index = pcon-&gt;CurrentIndex;\n			if (index &lt; pcon-&gt;NumItems &amp;&amp; TypeMatch(pcon-&gt;ItemType, ItemType)) {\n				LPSTR pitem = (LPSTR)pcon-&gt;ItemList + index*nTypeSize[ItemType];\n				FMEMCPY(pVal, pitem, nTypeSize[ItemType]);\n				bSuccess = TRUE;\n			}\n		} else if (cap.ConType == TWON_ONEVALUE) {\n			TW_ONEVALUE far *pcon = (TW_ONEVALUE far *)pv;\n			if (TypeMatch(pcon-&gt;ItemType, ItemType)) {\n				FMEMCPY(pVal, &amp;pcon-&gt;Item, nTypeSize[ItemType]);\n				bSuccess = TRUE;\n			}\n		}\n	}\n	\n	if (pv) GlobalUnlock(cap.hContainer);\n	if (cap.hContainer) GlobalFree(cap.hContainer);\n\n	return bSuccess;\n} \n\n//-------------------------- The primitive functions\n\n\nint EZTAPI TWAIN_DS(unsigned long dg, unsigned dat, unsigned msg, void FAR *pd)\n// Call the current source with a triplet\n{\n   int bOk = FALSE;\n   assert(nState &gt;= TWAIN_SOURCE_OPEN);\n   rc = TWRC_FAILURE;\n   if (dg == DG_IMAGE) {\n      if (dat == DAT_IMAGEMEMXFER) {\n         if (msg == MSG_GET &amp;&amp; pd != NULL) {\n            pTW_IMAGEMEMXFER pmxb = (pTW_IMAGEMEMXFER)pd;\n            pmxb-&gt;Compression   = TWON_DONTCARE16;\n            pmxb-&gt;BytesPerRow   = TWON_DONTCARE32;\n            pmxb-&gt;Columns       = TWON_DONTCARE32;\n            pmxb-&gt;Rows          = TWON_DONTCARE32;\n            pmxb-&gt;XOffset       = TWON_DONTCARE32;\n            pmxb-&gt;YOffset       = TWON_DONTCARE32;\n            pmxb-&gt;BytesWritten  = TWON_DONTCARE32;\n         }\n      }\n   }\n   if (pDSM_Entry) {\n      rc = (*pDSM_Entry)(&amp;AppId, &amp;SourceId,\n						   (TW_UINT32)dg,\n                     (TW_UINT16)dat,\n                     (TW_UINT16)msg,\n                     (TW_MEMREF)pd);\n      bOk = (rc == TWRC_SUCCESS);\n\n      if (dg == DG_CONTROL) {\n         if (dat == DAT_EVENT) {\n            if (msg == MSG_PROCESSEVENT) {\n               if (((pTW_EVENT)pd)-&gt;TWMessage == MSG_XFERREADY) {\n                  SetState(TWAIN_TRANSFER_READY);\n               }\n               bOk = (rc == TWRC_DSEVENT);\n            }\n         }\n         if (dat == DAT_PENDINGXFERS) {\n            if (msg == MSG_ENDXFER &amp;&amp; bOk) {\n               SetState(((pTW_PENDINGXFERS)pd)-&gt;Count ? TWAIN_TRANSFER_READY\n                                                      : TWAIN_SOURCE_ENABLED);\n            }\n            if (msg == MSG_RESET &amp;&amp; bOk) {\n               SetState(TWAIN_SOURCE_ENABLED);\n            }\n         }\n         if (dat == DAT_USERINTERFACE) {\n            if (msg == MSG_ENABLEDS) {\n               if (rc == TWRC_FAILURE) {\n		            RecordError(ED_DS_FAILURE);\n               } else {\n		            // rc could be either SUCCESS or CHECKSTATUS\n		            SetState(TWAIN_SOURCE_ENABLED);\n                  bOk = TRUE;\n               }\n            }\n            if (msg == MSG_DISABLEDS &amp;&amp; bOk) {\n               SetState(TWAIN_SOURCE_OPEN);\n            }\n         }\n         if (dat == DAT_SETUPMEMXFER) {\n            if (msg == MSG_GET &amp;&amp; bOk) {\n               nMemBuffer = 0;\n            }\n         }\n\n      }\n      if (dg == DG_IMAGE) {\n         if (dat == DAT_IMAGENATIVEXFER || dat == DAT_IMAGEFILEXFER) {\n            // Native and File transfers work much the same way.\n            if (msg == MSG_GET) {\n               bOk = (rc == TWRC_XFERDONE);\n               switch (rc) {\n               case TWRC_XFERDONE:\n               case TWRC_CANCEL:\n                  SetState(TWAIN_TRANSFERRING);\n                  // Need to acknowledge end of transfer with\n                  // DG_CONTROL / DAT_PENDINGXFERS / MSG_ENDXFER\n                  break;\n                  \n               case TWRC_FAILURE:\n               default:\n                  // Transfer failed (e.g. insufficient memory, write-locked file)\n                  // check condition code for more info\n                  SetState(TWAIN_TRANSFER_READY);\n                  // The image is still pending\n                  break;\n               } // switch\n            }\n         }\n         if (dat == DAT_IMAGEMEMXFER) {\n            if (msg == MSG_GET) {\n               bOk = FALSE;\n               switch (rc) {\n               case TWRC_SUCCESS:\n               case TWRC_XFERDONE:\n                  bOk = TRUE;\n                  nMemBuffer++;\n                  SetState(TWAIN_TRANSFERRING);\n                  break;\n               case TWRC_FAILURE:\n                  // \"If the failure occurred during the transfer of the first\n                  // buffer, the session is in State 6. If the failure occurred\n                  // on a subsequent buffer, the session is in State 7.\"\n                  SetState(nMemBuffer == 0 ? TWAIN_TRANSFER_READY : TWAIN_TRANSFERRING);\n                  break;\n               case TWRC_CANCEL:\n                  // Transfer cancelled, no state change.\n                  TWAIN_BreakModalLoop();\n                  break;\n               } // switch\n            }\n         }\n      }\n   }\n   return bOk;\n} // TWAIN_DS\n\n\n\nint EZTAPI TWAIN_Mgr(unsigned long dg, unsigned dat, unsigned msg, void FAR *pd)\n// Call the Source Manager with a triplet\n{\n   int bOk = FALSE;\n	rc = TWRC_FAILURE;\n	if (pDSM_Entry) {\n		rc = (*pDSM_Entry)(&amp;AppId, NULL,\n						   (TW_UINT32)dg,\n						   (TW_UINT16)dat,\n						   (TW_UINT16)msg,\n						   (TW_MEMREF)pd);\n   	bOk = (rc == TWRC_SUCCESS);\n      if (dg == DG_CONTROL) {\n         if (dat == DAT_IDENTITY) {\n            if (msg == MSG_OPENDS) {\n               if (bOk) {\n                  // Source opened - record identity for future triplets\n                  FMEMCPY(&amp;SourceId, pd, sizeof (TW_IDENTITY));\n                  SetState(TWAIN_SOURCE_OPEN);\n               } else {\n            		RecordError(ED_DSM_FAILURE);\n               }\n            }\n            if (msg == MSG_CLOSEDS &amp;&amp; bOk) {\n               SetState(TWAIN_SM_OPEN);\n            }\n         }\n         if (dat == DAT_PARENT) {\n            if (msg == MSG_OPENDSM &amp;&amp; bOk) {\n               SetState(TWAIN_SM_OPEN);\n            }\n            if (msg == MSG_CLOSEDSM &amp;&amp; bOk) {\n               SetState(TWAIN_SM_LOADED);\n            }\n         }\n      }\n	}\n	return bOk;\n} // TWAIN_Mgr\n\n\n\nunsigned EZTAPI TWAIN_GetResultCode(void)\n{\n	return rc;\n} // TWAIN_GetResultCode\n\n\n\nunsigned EZTAPI TWAIN_GetConditionCode(void)\n{\n	TW_STATUS	twStatus;\n   TW_INT16    rcLast = rc;\n\n	twStatus.ConditionCode = TWCC_BUMMER;			// what can I say. \n\n	if (nState &gt;= 4) {\n		// get source status if open\n		TWAIN_DS(DG_CONTROL, DAT_STATUS, MSG_GET, (TW_MEMREF)&amp;twStatus);\n	} else if (nState == 3) {\n		// otherwise get source manager status\n		TWAIN_Mgr(DG_CONTROL, DAT_STATUS, MSG_GET, (TW_MEMREF)&amp;twStatus);\n	}\n   rc = rcLast;\n   return twStatus.ConditionCode;\n} // TWAIN_GetConditionCode\n\n\nvoid EZTAPI TWAIN_ReportLastError(LPCSTR pzMsg)\n{\n   char szMsg[256];			// scratch buffer for messages\n	if (nErrDetail &gt; ED_START_TRIPLET_ERRS &amp;&amp; nErrDetail &lt; ED_END_TRIPLET_ERRS) {\n		wsprintf(szMsg, \"%s\\n%s\\nRC:   %s\\nCC:   %s\",\n			pzMsg, (LPSTR)pszErrDescrip[nErrDetail],\n			(LPSTR)pszRC[nErrRC], (LPSTR)pszCC[nErrCC]);\n	} else {\n		wsprintf(szMsg, \"%s\\n%s\", pzMsg, (LPSTR)pszErrDescrip[nErrDetail]);\n	}\n   if (nErrRC == TWRC_FAILURE &amp;&amp; nErrCC == TWCC_OPERATIONERROR) {\n      // don\'t report this to user - DS has already reported it.\n      OutputDebugString(\"EZTW: TWRC_FAILURE, TWCC_OPERATIONERROR\\n\");\n   } else {\n	   TWAIN_ErrorBox(szMsg);\n   }\n} // ReportLastError\n\n\nvoid EZTAPI TWAIN_ErrorBox(LPCSTR pzMsg)\n{\n	MessageBox(NULL, pzMsg, \"TWAIN Error\", MB_ICONEXCLAMATION | MB_OK);\n} // TWAIN_ErrorBox\n\n\n//------------ Private functions\n\nvoid SetState(int n)\n{\n   char szMsg[256];\n   wsprintf(szMsg, \"EZTW:State %d\\n\", n);\n   OutputDebugString(szMsg);\n   nState = n;\n} // SetState\n\n\nHWND GetValidHwnd(HWND hwnd)\n// Returns a valid window handle as follows:\n// If hwnd is a valid window handle, hwnd is returned.\n// Otherwise a proxy window handle is created and returned.\n// Once created, a proxy window handle is destroyed when\n// the source manager is unloaded.\n// If hwnd is an invalid window handle (other than NULL)\n// an error box is displayed.\n{\n 	if (!IsWindow(hwnd)) {\n 		if (hwnd != NULL) {\n 			TWAIN_ErrorBox(\"EZTWAIN: window handle is invalid\");\n         hwnd = NULL;\n 		}\n      if (!hwndProxy) {\n	      hwndProxy = CreateProxyWindow();\n 		   if (!IsWindow(hwndProxy)) {\n			   TWAIN_ErrorBox(\"EZTWAIN: Unable to create proxy window\");\n            hwndProxy = NULL;\n 		   }\n      }\n      hwnd = hwndProxy;\n 	}\n   return hwnd;\n} // GetValidHwnd\n\n\nHWND CreateProxyWindow(void)\n{\n	HWND hwnd;\n	hwnd = CreateWindow(\"STATIC\",                // class\n						\"Acquire Proxy\",              // title\n						WS_POPUPWINDOW,               // style\n						CW_USEDEFAULT, CW_USEDEFAULT, // x, y\n						CW_USEDEFAULT, CW_USEDEFAULT, // width, height\n						HWND_DESKTOP,                 // parent window\n						NULL,                         // hmenu\n						hinstLib,                     // hinst\n						NULL);                        // lpvparam\n	return hwnd;\n} // CreateProxyWindow\n\n\nint RecordError(ErrorDetail ed)\n{\n	if (nErrDetail == ED_NONE) {\n		nErrDetail = ed;\n		if (ed &gt; ED_START_TRIPLET_ERRS &amp;&amp; ed &lt; ED_END_TRIPLET_ERRS) {\n			nErrRC = TWAIN_GetResultCode();\n			nErrCC = TWAIN_GetConditionCode();\n		} else {\n			nErrRC = 0;\n			nErrCC = 0;\n		}\n	}\n	return FALSE;\n} // RecordError\n\n\nvoid ClearError(void)\n{\n	nErrDetail = ED_NONE;\n} // ClearError\n\n\nunsigned BitCount(unsigned W)\n{\n	unsigned n = 0;\n\n	while (W) {\n		n += (W &amp; 1);\n		W &gt;&gt;= 1;\n	} // while\n	return n;\n} // BitCount\n\n\nTW_UINT32 Intersect(TW_UINT32 wMask, TW_UINT32 nItems, TW_UINT16 far *pItem)\n{\n	TW_UINT32	wSet = 0;\n	unsigned	i;\n\n	// In wSet, construct set of available items.\n	// Note that items that cannot be represented in wMask are also\n	// unrepresentable in wSet so are implicitly discarded\n	for (i = 0 ; i &lt; nItems; i++) {\n		wSet |= 1 &lt;&lt; pItem[i];\n	} // for\n\n	// Discard anything in wMask that isn\'t in wSet\n	wMask &amp;= wSet;\n\n	// Re-fill the item table with intersection set\n	for (nItems = i = 0; wMask ; wMask&gt;&gt;=1,i++) {\n		if (wMask &amp; 1) {\n			pItem[nItems++] = i;\n		}\n	} // for\n\n	return nItems;\n} // Intersect\n\n\nunsigned FindIndex16(TW_UINT32 nItems, TW_UINT16 far *plist, TW_UINT16 uVal, unsigned nDefault)\n// Find the index of uVal in the list plist which contains nItems entries.\n// If not found, return nDefault.\n{\n   unsigned i;\n   for (i = 0; i &lt; nItems; i++) {\n      if (plist[i] == uVal) {\n         return i;\n      }\n   }\n   return nDefault;\n} // FindIndex16\n\n\ndouble Fix32ToFloat(TW_FIX32 fix)\n{\n	TW_INT32 val = ((TW_INT32)fix.Whole &lt;&lt; 16) | ((TW_UINT32)fix.Frac &amp; 0xffff);\n	return val / 65536.0;\n} // Fix32ToFloat\n\n//--------- END ---------','',0,'','25nepm50',1,0,'',707,0,0),(16878,3782,1,47,0,'203.144.143.8',1154926681,1,0,1,1,1,0,'','Thans, it works now.','Dear All,\n\nI\'ve changed to use TSbrowse instead of TWbrowse and Comix&amp;ClipMore.  The result is \n\n::nRowPos -&gt; All items alway show \'1\' after refresh.\n::nLogicPos -&gt; It shows the item number belonging to Comix but do not support ClipMore.  Because I used both\n::nAt -&gt; It works fine.\n\nBest regards,\nDutch','',0,'','1vwsrkum',1,0,'',47,0,0),(16879,3833,7,2,0,'87.218.146.146',1154931118,1,0,1,1,1,1,'','','Joaquín,\n\nTienes razón, se refiere a recibir, no a enviar.','',0,'','6c4dgsia',1,0,'',2,0,0),(16880,3824,3,2,0,'87.218.146.146',1154931330,1,0,1,1,1,1,'','','What error do you get ?','',0,'','2kay6p6d',1,0,'',2,0,0),(16881,3829,6,375,0,'84.122.104.133',1154938503,1,0,1,1,1,1,'','','Gracias Oskar, lo probaré.','',0,'','1pw3b6wx',1,0,'',375,0,0),(16882,3834,7,490,0,'80.24.224.89',1154953214,1,0,1,1,1,0,'','Folders y recursos','Hola,\n\nHe estado repasando y probando los ejemplos de Folders y compruebo que no existe ninguno definiendo los controles say, get, etc redefinidos desde el .RC, sino que están posicionados \"a pelo\" desde código.\n\n¿ Funciona el redefinir says, gets, etc ? ¿Existe algún ejemplo en .RC para hacer esto?\n\n\nUn Saludo,\nJoaquín','',0,'','15dwvysm',1,0,'',490,0,0),(16883,3835,4,267,0,'200.208.238.2',1154960151,1,0,1,1,1,1,'','prerequisite of memory it Pocket PC','Hi,\n\nExists some prerequisite of memory it Pocket PC to execute programs developed with FWPPC?','',0,'','e1hodfh7',1,0,'',267,0,0),(16884,3823,3,49,0,'82.91.97.218',1154960387,1,0,1,1,1,1,'','','thank i resolve it','',0,'','ygrmgrk8',1,0,'',49,0,0),(16885,3830,3,455,0,'195.97.105.161',1154962521,1,0,1,1,1,0,'','Re: My own bitmap','[quote=&quot;manuramos&quot;:1y0iv8zt]If I\' have an array with a BITMAP data. Does anyone knwo how can  I convert it, in memory, in a true Bitmap? How create its hBmp? (Without saving it before with MEMOWRIT)\nExcuse my English\n\nRegards.[/quote:1y0iv8zt]\n\nTake a look at this link:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fortunecity.com/skyscraper/windows/364/bmpffrmt.html\">http://www.fortunecity.com/skyscraper/w ... ffrmt.html</a><!-- m -->\n\nit contains a good article about the .BMP file structure.\n\nRegards\nEvans','',0,'gA==','1y0iv8zt',1,0,'',455,0,0),(16886,3674,6,110,0,'165.98.169.198',1154963727,1,0,1,1,1,1,'','','Antonio y a todos.\n\nHace algun tiempo, desde la incorporacion de la lib pcproc en xharbour, tuve problemas con el programa que hice de respaldo llamado xbackuplite. especificamente los problemas eran los siguientes.\n\nla funcion \ndirectoryrecurse donde antes regresaba un arreglo con x archivos ahora retornaba un arreglo en blanco.\n\ny la funcion de descompresion no funcionaba.\n\nDescubri que el los problemas radicaban en los siguiente.\n\nEl problema de descompresion se solucionaba incluyendo la libreria pcproc, aun sin ella el ejecutable es creado pero falla con GPF, incluyendola se corrige.\n\nEl problema de  directoryrecurse radica en la posicion de la libreria pcproc en el script de enlace del ejecutable\n\npor ejemplo yo uso xmate para misa app.\n\neste es la lista de enlace que actualmente me funciona\n\n[code:1ndu0zkm]\nD&#58;\\misapp\\blite\\Obj\\xblite&#46;Obj +\nD&#58;\\misapp\\blite\\Obj\\boxget&#46;Obj +\nD&#58;\\borland\\bcc55\\Lib\\C0W32&#46;OBJ, +\nD&#58;\\misapp\\blite\\Bin\\xblite&#46;Exe, +\n, +\nD&#58;\\fwh\\lib\\patchx&#46;lib +\nD&#58;\\fwh\\lib\\tsbrowsex&#46;lib +\nD&#58;\\Fwh\\LIB\\FiveHX&#46;lib +\nD&#58;\\Fwh\\LIB\\Fivehc&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\hbzip&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\vm&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\rtl&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\pcrepos&#46;lib +           //OJO aca funciona\nD&#58;\\borland\\xharbour\\Lib\\gtwin&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\lang&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\rdd&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\macro&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\pp&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbfntx&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbfcdx&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbffpt&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\hbsix&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\common&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\codepage&#46;lib +\nD&#58;\\borland\\bcc55\\Lib\\CW32&#46;LIB +\nD&#58;\\borland\\bcc55\\Lib\\IMPORT32&#46;LIB,, +\nD&#58;\\misapp\\blite\\Resource\\XBLITE&#46;Res\n[/code:1ndu0zkm]\n\n[code:1ndu0zkm]\nD&#58;\\misapp\\blite\\Obj\\xblite&#46;Obj +\nD&#58;\\misapp\\blite\\Obj\\boxget&#46;Obj +\nD&#58;\\borland\\bcc55\\Lib\\C0W32&#46;OBJ, +\nD&#58;\\misapp\\blite\\Bin\\xblite&#46;Exe, +\n, +\nD&#58;\\fwh\\lib\\patchx&#46;lib +\nD&#58;\\fwh\\lib\\tsbrowsex&#46;lib +\nD&#58;\\Fwh\\LIB\\FiveHX&#46;lib +\nD&#58;\\Fwh\\LIB\\Fivehc&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\hbzip&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\vm&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\rtl&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\gtwin&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\lang&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\rdd&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\macro&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\pp&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbfntx&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbfcdx&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\dbffpt&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\hbsix&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\common&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\codepage&#46;lib +\nD&#58;\\borland\\xharbour\\Lib\\pcrepos&#46;lib +           //OJO aca NO funciona\nD&#58;\\borland\\bcc55\\Lib\\CW32&#46;LIB +\nD&#58;\\borland\\bcc55\\Lib\\IMPORT32&#46;LIB,, +\nD&#58;\\misapp\\blite\\Resource\\XBLITE&#46;Res\n[/code:1ndu0zkm]\n\nse corrigio solamente moviendo de posicion la lib en la lista <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\nel por que no lo se <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->, solo hice este movimiento.\n\nsalu2\ncarlos vargas','',0,'AIA=','1ndu0zkm',1,0,'',110,0,0),(16887,3832,2,348,0,'200.106.22.27',1154964529,1,0,1,1,1,0,'','','Ok. Antonio\n\nGracias por el comentario','',0,'AIA=','1epwm93e',1,0,'',348,0,0),(16888,3818,3,177,0,'82.130.228.102',1154965725,1,0,1,1,1,0,'','','Hi Rameshbabu,\n\non this link you can view a Knowledge Base article of Microsoft:\n\nHow to create a Windows Service using sc.exe\n\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/251192/en-us\">http://support.microsoft.com/kb/251192/en-us</a><!-- m -->\n\nI`ll try to translate the link: \n\n<!-- m --><a class=\"postlink\" href=\"http://www.fermu.com/content/view/263/2/lang,es/\">http://www.fermu.com/content/view/263/2/lang,es/</a><!-- m --> \n\nBest regards','',0,'AIA=','2qeoq5z9',1,0,'',177,0,0),(16889,3823,3,49,0,'62.13.172.78',1154966739,1,0,1,1,1,1,'','','Dear Antonio,\n\nNow I use STYLE nOr( WS_POPUP, WS_VISIBLE ) to show the window but i wanted create a window (child of mainwindow) \nwhen I shrink the window or increase the window the procedure must repaint all the controls (lbx and buttons) :\n\nthere is a sample as it ?','',0,'AIA=','1rz46xmd',1,0,'',49,0,0),(16890,3828,6,376,0,'200.48.79.246',1154967519,1,0,1,1,1,0,'','','Gracias Antonio y disculpa la pregunta.\n\nEste fin de semana se me ocurrió revisar el fuente de xh99060 y los encontré.\n\nArmando\n\nNo se si es mucho pedir. En hbZip aparece la funcion HB_GetFilesInZip (presumiblemente debe devolver un arreglo con los nombres de los archivos contenidos en un Zip) que no me devuelve nada. \n\nEn el fuente de esta librería (que por otra parte los encontré en Harbour) noto que esta función no devuelve nada. Es esto cierto?\n\nEl caso es que deseo conocer los nombre de los archivos que se encuentran dentro del Zip para evitar que mi programa compactador continúe insertando nuevamente un archivo que ya encuentra dentro del Zip (solucionado esto ya puede ser considerado como ejemplo completo para uso del foro)\n\n\n[quote=&quot;Antonio Linares&quot;:29szr91f]Armando,\n\nEsas clases no son de FWH. Son de xHarbour.[/quote:29szr91f]','',0,'gA==','29szr91f',1,0,'',376,0,0),(16891,3834,7,138,0,'201.128.111.188',1154968143,1,0,1,1,1,1,'','','Si, funciona perfectamente:\n\n[code:en1zxs10]\nFUNCTION Preferencias&#40;&#41;\n   LOCAL oDlg, oFld, lContinuar &#58;= &#46;F&#46;\n   LOCAL nBuffer &#58;= mem_nBuf\n   LOCAL oGet, oChkbox\n   MsgInfo&#40;nBuffer&#41;\n   MsgInfo&#40;mem_lkey&#41;\n   DEFINE DIALOG oDlg RESOURCE &quot;Dialogo2&quot; OF oWnd\n      REDEFINE FOLDER oFld ID 101 OF oDlg ITEMS &quot;General&quot;,&quot;Seguridad&quot; DIALOGS &quot;pesta1&quot;\n         REDEFINE GET oGet VAR mem_nBuf PICTURE &quot;99&quot; ID 102 OF oFld&#58;aDialogs&#91;1&#93;\n         REDEFINE CHECKBOX oChkBox VAR mem_lKey ID 101 OF oFld&#58;aDialogs&#91;1&#93;\n\n      REDEFINE BUTTON ID 102 OF oDlg ACTION &#40;lContinuar &#58;= &#46;T&#46; ,oDlg&#58;End&#40;&#41;&#41;\n      REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg&#58;End&#40;&#41;\n   ACTIVATE DIALOG oDlg ON INIT oDlg&#58;Move&#40;0,0&#41;\n   IF lContinuar\n      SAVE TO &#40;curdir&#40;&#41;+&quot;\\notes&#46;mem&quot;&#41; ALL LIKE mem*\n      IF nBuffer &lt;&gt; mem_nBuf\n         notes-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n         DBEVAL&#40;&#123;|| notes-&gt;header &#58;= SUBSTR&#40;notes-&gt;Nota,1,mem_nBuf&#41;&#125;&#41;\n         notes-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n      ENDIF\n   ENDIF\nRETURN &#40;&#46;T&#46;&#41;[/code:en1zxs10]\n\n[img:en1zxs10]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/ppcfold&#46;jpg[/img:en1zxs10]\n[img:en1zxs10]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/ppcfold1&#46;jpg[/img:en1zxs10]','',0,'CIA=','en1zxs10',1,0,'',138,0,0),(16892,3825,6,376,0,'200.48.79.246',1154968197,1,0,1,1,1,0,'','Re: Errores de compilacion','Mike.\n\nLosl Zipper, Ziper2 y Zipper3 que puse en el link han sido creado para xHarbour como dice Antonio. Lo que pasa que la librería hbZip se encuentra en esta versión y no lo he visto en Harbour. Puedes ver qué sucede si haces una copia de hbZip y lo colocas como librería de Harbour y haces el proceso de compilado y enlazado.\n\n\n[quote=&quot;Mike Serra&quot;:2kbr3v9b]Gracias Antonio por el link. Mira, cuando incluyo la librería y compilo el ejemplo (zipper) que hay en el foro me sale lo siguiente:\n\nCompilando ...\n\nHarbour Compiler Alpha build 43.0 (Flex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'zipper.prg\'...\n\n100\n200\n300\nLines 330, Functions/Procedures 7\nGenerating C source output to \'zipper.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nzipper.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_Wild2RegEx\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_fsDirectory\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_inflateEnd\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflate\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_get_crc_table\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateEnd\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateInit2_\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_crc32\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_xstrcpy\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_fsCurDirBuffEx\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zipnew\nError: Unresolved external \'_inflateInit2_\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_inflate\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_retcAdopt\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_arraySetForward\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zipnew\nError: Unresolved external \'_hb_arrayAddForward\' referenced from C:\\SOFTWARE\\HARBOUR\\LIBHOLD2\\HBZIP.LIB|zip\n\n¿Sabes de que puede ser?\n\nMUCHAS GRACIAS[/quote:2kbr3v9b]','',0,'gA==','2kbr3v9b',1,0,'',376,0,0),(16893,3788,6,376,0,'200.48.79.246',1154968866,1,0,1,1,1,0,'','','Por nada Antonio. Estamos para servir. \n\nEstoy preparando el final de este ejemplo que permita evitar que se dupliquen los archivos contenidos en el Zip <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nHbzip tiene una funcion llamada HB_GetFilesInZip que debería devolverme una arreglo con los nombres de files contenidos en el Zip; sin embargo no me devuelve nada. El codigo fuente que encontré no muestra que devuelva algo. Esto es así o estoy equivocado? Finalmente; cómo puedo conocer los nombre de los archivos contenidos dentro del zip?:?: \n\nArmando\n\n[quote=&quot;Antonio Linares&quot;:13lep9pe]Armando,\n\nGracias! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:13lep9pe]','',0,'gA==','13lep9pe',1,0,'',376,0,0),(16894,3834,7,490,0,'81.44.202.64',1154971047,1,0,1,1,1,0,'','','Gracias René,\n\nHe retocado el ejemplo TestFld.prg y .Rc que viene en samples, le he cambiado el color y redefinido el say y funciona perfectamente.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','38v1ddtu',1,0,'',490,0,0),(16895,3836,7,710,0,'195.5.87.61',1154971402,1,0,1,1,1,0,'','DESPLAZAR BTNBMP EN TIEMPO DE EJECUCION...','Hola foro. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n¿Se puede desplazar un btbbmp en tiempo de ejecucion?... lo he intentado con el siguiente codigo pero esto de ser novato...\n\n[code:1fn3w8i6]\n#include &quot;FWCE&#46;ch&quot;\n#INCLUDE &quot;WINAPI&#46;CH&quot;\n\n#define bk_left         37\n#define bk_right        39\n#define bk_down         40\n#define bk_up           38\n\nstatic ownd, bandera_up, contador\n\nfunction Main&#40;&#41;\n\n   local obmp, oBtn\n   local fil, col\n\n\n   if bandera_up = nil     \n        fil &#58;=141\n        col &#58;= 10\n        contador&#58;=0\n   endif\n\n   DEFINE WINDOW oWnd TITLE &quot;BOTON BITMAP&quot;\n\n\n   @ fil, col BTNBMP obtn filename curdir&#40;&#41; + &quot;\\rcod8&#46;bmp&quot; adjust noborder size 83,34 \n\n   @ 0,0 bitmap obmp filename curdir&#40;&#41; + &quot;\\fondocli&#46;bmp&quot; pixel adjust noborder\n\n   ownd&#58;bkeydown = &#123; | nkey | comprueba&#40;nkey, fil, col, obtn&#41; &#125; \n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41;\n\nreturn nil\n\nfunction comprueba&#40;nkey, fil, col, obtn&#41;\n\n        if nkey = bk_up\n        contador++\n        fil &#58;= fil + contador \n        bandera_up&#58;=1\n        obtn&#58;new&#40;fil, col, 83, 34&#41;\n        obtn&#58;paint&#40;&#41;\n//        msginfo&#40;\'la fila es&#58;\'+str&#40;fil&#41;+\'y el contador-&gt;\'+str&#40;contador&#41;&#41;\n        endif\n\nreturn \n\n\n\n[/code:1fn3w8i6]\n\nUn saludo y muchas gracias.','',0,'AIA=','1fn3w8i6',1,0,'',710,0,0),(16896,3837,7,490,0,'81.44.202.64',1154971463,1,0,1,1,1,0,'','Folders Bottom desde Recursos','Hola,\n\nHe visto el ejemplo de poner las pestañas hacia abajo pero definiendo desde código, poniendo la clausula BOTTOM, lo he probado redefiniendo el folder y no hace nada.\n\n¿Cuales son los pasos a seguir desde recursos para pestañas hacia abajo?\n\nUn Saludo,\nJoaquín','',0,'AIA=','320z4ero',1,0,'',490,0,0),(16897,3836,7,490,0,'81.44.202.64',1154971686,1,0,1,1,1,0,'','','Juan,\n\nEsto es incorrecto\n\n     obtn:new(fil, col, 83, 34) \n     obtn:paint() \n\n\nPara mover un control generalmente se usa el método move() y estos son sus parámetros\n\n obtn:Move( nTop, nLeft, nWidth, nHeight, lRepaint )\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','1b7wc98n',1,0,'',490,0,0),(16898,3836,7,710,0,'195.5.87.61',1154973016,1,0,1,1,1,0,'','ok','Muchas gracias Joaquin. Todo correcto. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nNota: He estado buscando por todo manual, en la clase btnbmp... etc, ¿existe algun manual mas a fondo de todas estas funciones dentro de estos comandos...? Gracias, nuevamente. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'AIA=','29pcsown',1,0,'',710,0,0),(16899,3818,3,58,0,'84.149.227.163',1154977995,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:1ghc7w3e]Hi Detlef Hoefner\n\nThank you very much for your reply.\n\nThe link is already available in the following post by Baxajaun on\nSat Aug 05, 2006 3:39 am \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3807\">http://fivetechsoft.com/forums/viewtopic.php?t=3807</a><!-- m --> \n \nI am again giving the correct link below:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029d9e2988/ejecutarApp.txt.html\">http://hyperupload.com/download/029d9e2 ... p.txt.html</a><!-- m -->\n\nRegards\n\n- Ramesh Babu P[/quote:1ghc7w3e]\n\nHi Ramesh Babu P,\n\nhere is a very rough translation from a translator ( Google ).\nSome words are unknown, but maybe this might help you.\n\nBest regards,\nDetlef\n\n\n[code:1ghc7w3e]Here they are all the forms to execute a program at the beginning of Windows&#46;\nAccesses can be added, bony to directly specify feasible route and within the following locations within the Windows registry&#58;\nFor example&#58;\n\nHKEY_CURRENT_USER \\ Software \\ Microsoft \\ Windows \\ Current Version \\ Run\nIt executes the items stored in this location of your automatically begun registry when the present user is only logeado&#46;\nIn the users with multiple users or accounts, this information can change dependiento of that was the one that logueo, for example when it is entered to a system connected to a network and wants to have access under Windows NT&#46;    \n\nHKEY_CURRENT_USER \\ Software \\ Microsoft \\ Windows \\ Current Version \\ RunOnce     \nIt in the same way executes the items stored in the location denominated exactly that the previous one, but only once and is automatically removed&#46;\n\nHKEY_LOCAL_MACHINE \\ Software \\ Microsoft \\ Windows \\ Current Version \\ Run\nThe items stored in this location of the registry in each new session are executed automatically, without mattering that logue&#46;\n\nHKEY_LOCAL_MACHINE \\ Software \\ Microsoft \\ Windows \\ Current Version \\ RunOnce\nThe items stored in this location are also executed that the previous point, but only once&#46;     \n\nHKEY_LOCAL_MACHINE \\ Software \\ Microsoft \\ Windows \\ Current Version \\ RunOnceEx\nThe items stored in this location of the registry are executed, without mattering that has been logueado&#46;\n\nHKEY_LOCAL_MACHINE \\ Software \\ Microsoft \\ Windows \\ Current Version \\ RunServices\nThe Items alamcenados in this location of the registry will be executed automatically like \'services\' &#40;more applicable under Windows NT&#41;, said programs will be executed before any other program is loaded \nand continuous their execution inclusively after the system is blocked, and will not appear when pressing keys CTRL+ATL+DE&#46;\n\nThem here traducí an article published in the page of Patrick Mast, thanks to him&#46;\nThis is very good to load hidden applications, but really since I do so that it works?\nWhen installing the application like process on watch, the correra application of bottom in invisible form,  being invisible in carperta of applications of the administrator of tasks&#46; \nThe applications that run like a process of services will not stop no matter how hard the user desloguee, will follow ejecutandosé&#46;\nAs it shows of an application that is executed as process on watch is Symatec WinFax&#46;\nThe program this always receives incoming faxes, no matter how hard the user is deslogueado&#46; \nThere are two main advantages to run an application with process on watch&#58;\nTo be invisible in the screen of the administrator of tasks, and to follow \nejecutandosé no matter how hard the user desloguee&#46;\nNow, like it is possible to be caused that a FiveWin application is a process of Service? \n\nGood, the function of the Api de Windows \'RegisterServiceProcess\' is the solution&#46; This function registers and desregistra an application like a process on watch&#46;\nFuncón of the Api de Windows \'RegisterServiceProcess\' accepts two parameters&#46; The first parameter is the identification of the process of application &#40;YOU GO&#41;&#46; \n\nIn order to obtain YOU GO of the process, we will use another function of the called Api de Windows \'GetCurrentProcessId\'&#46; This call to the function of the Api de Windows does not need parameters&#46; \nThe second parameter of \'RegisterServiceProcess\' specifies if the service is registered or not&#46;\nA value of 1 registers the application, and 0 disregisters it&#46;\n\nA Sample program&#58;\n\nFunction Main&#40;&#41;\n   ServiceProcess&#40;1&#41;\n\n   /*\n      Here your code &#46;&#46;&#46; \n    */\nReturn NIL\n\nFunction ServiceProcess&#40; mode &#41;\nLocal nProcessId &#58;= 0\n\n   Default mode &#58;= 0\n   nProcessId &#58;= GCP&#40; &#41;\n   \n   If Abs&#40; nProcessId &#41; &gt; 0\n      RSProcess&#40; nProcessId, mode &#41;\n   Endif\n\nRETURN\n\nDLL32 FUNCTION RSProcess&#40; npID  AS LONG , nMode AS LONG &#41; ;\nAS LONG FROM &quot;RegisterServiceProcess&quot; LIB &quot;kernel32&#46;DLL&quot;\nDLL32 FUNCTION GCP&#40;&#41; AS LONG FROM &quot;GetCurrentProcessId&quot; LIB &quot;kernel32&#46;dll&quot;\n \n--------------------------------------------------------------------------------------------------------------------------------------------------------------------------\nHKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows\\Current Version\\RunServicesOnce\n\nThe items stored in this location of the registry automatically will be executed like \'services\', but only once, \nthis more is used under Windows NT, the rest is just as the previous point&#46;\nNow accesses just as in the previous points within the file \'Win&#46;ini\' can be added&#46; \nThe Win&#46;ini file is a boot file that stores the data of configuration of its system and is processed in \nthe beginning of each session of Windows&#46; Within this file there are two seccciones where the applications \ncan be added just by to place Load or Run, but this more is used by compatibility with Windows 3&#46;11 and \naoncejo that is used the previous points, since it is more difficult to modify&#46;\n\nIn order to modify the previous points I recommend to use class TREG32&#46;\nI hope that it serves to you, and it serves all to them and if somebody wants it to publish that \nit publishes it, Daniel Andrade for example&#46;\n\n--   Greetings!\n\nDarío Hernán Irigaray - GE-CO Commercial [/code:1ghc7w3e]','',0,'gIA=','1ghc7w3e',1,0,'',58,0,0),(16900,3836,7,490,0,'88.15.181.156',1154978294,1,0,1,1,1,0,'','','Juan,\n\nCada control está heredado de otro, y debes de ver sus métodos más los de los controles de los que derviva.\n\nAunque normalmente, la jerarquía empieza en:\n\n  TWindows -&gt; TControl -&gt; Cualquier control\n\nNo obstante A. Linares podrá aclararte un poco más lo que digo, no recuerdo si existía ayuda sobre la jerarquía de clases de fw.\n\n\nUn Saludo,\nJoaquín','',0,'gIA=','1lkxqkwo',1,0,'',490,0,0),(16901,3838,3,49,0,'62.13.172.78',1154979555,1,0,1,1,1,1,'','CONTROLS IN A WINDOW','I  must create a window with a wbrowse ( size 450,450)  and many buttons\n\nI wanted  that the user when shrink the window or increase the window with the mouse the procedure must repaint all the controls (lbx and buttons) :\n\nthere is an sample work as it ?\n\nregards','',0,'gIA=','2illvirl',1,0,'',49,0,0),(16902,3839,6,49,0,'62.13.172.78',1154979594,1,0,1,1,1,1,'','CONTROLS IN A WINDOW','I must create a window with a wbrowse ( size 450,450) and many buttons \n\nI wanted that the user when shrink the window or increase the window with the mouse the procedure must repaint all the controls (lbx and buttons) : \n\nthere is an sample work as it ? \n\nregards','',0,'gIA=','3ovooke2',1,0,'',49,0,0),(16903,3715,17,303,0,'72.199.41.171',1154979868,1,0,1,1,1,0,'','','Mauramos,\n\n&gt;Basically is a CodeBlock to be evaluate before any listbox movement \n\nHave you tried using a bSkip codeblock? Example:\n\noLbx:bSkip:={|nRecs| myFunction(), oDBF:skipper( nRecs ) }\n\nThis way you can call myFunction() before the listbox skips to the next record.\n\nJames','',0,'gIA=','16qkh869',1,0,'',303,0,0),(16904,3835,4,2,0,'87.218.146.51',1154984081,1,0,1,1,1,1,'','','Vilian,\n\nWindows Mobile 2003 works fine with 64 MB. With 128 MB Windows Mobile 2005 works better, 64 MB its a little short for it.\n\nApplications work fine with 64 MB (we have not tested them with less memory). In fact Windows Mobile just gives you 57.09 MB and the memory for running applications is around 16 MB only, though it may be fine tunned from system, settings.','',0,'gIA=','34y13t2g',1,1155013399,'',2,2,0),(16905,3823,3,2,0,'87.218.146.51',1154984271,1,0,1,1,1,1,'','','Silvio,\n\nWindows may do it automatically. In case you want to force it you may do a oWnd:Refresh()','',0,'gIA=','14drhyp6',1,0,'',2,0,0),(16906,3838,3,2,0,'87.218.146.51',1154984359,1,0,1,1,1,1,'','','Silvio,\n\nWindows may do it automatically, if you want to force it then you can do oWnd:Refresh()','',0,'gIA=','2bsk7rpa',1,0,'',2,0,0),(16907,3837,7,2,0,'87.218.146.51',1154984606,1,0,1,1,1,1,'','','Joaquín,\n\nEn el recurso usa el estilo TCS_BOTTOM en el control SysTabControl32 y luego desde el ON INIT del diálogo envíale el mensaje SendMessage( oFolder:hWnd, CCM_SETVERSION, COMCTL32_VERSION, 0 )\n\nLos valores de esos defines los encuentras en folder.prg.','',0,'gIA=','1iitf8ps',1,1155013658,'',2,1,0),(16908,3836,7,2,0,'87.218.146.51',1154984712,1,0,1,1,1,1,'','','Juan,\n\nLo que Joaquín te indica es totalmente correcto y de hecho todas esas clases están explicadas en la documentación de FiveWin.','',0,'gIA=','2whbsl8p',1,0,'',2,0,0),(16909,3769,6,36,0,'200.113.56.235',1154985006,1,0,1,1,1,0,'','','Estimados\n\n   Con FWH 2.4 imprime correctamente en las dos impresoras\n\n\nQue puede ser, que debo hacer para exportar todo referente a report en five 2.4 a five 2.6\n\natte\nPatricio','',0,'gIA=','1jt173l9',1,0,'',36,0,0),(16910,3838,3,49,0,'62.13.172.78',1154985859,1,0,1,1,1,1,'','','ok ,\nperhaps you not understand me \nor I not I explain you well\nI\'m sorry for my english...\n\n\nwhen I shrink the window or increase the window with the mouse  all controls on this window(olbx and buttons)  must be shrunk theyself\nI can see a small window but I can see all the controls of the window\n\nYOu have understand now ?','',0,'gIA=','2c954it4',1,0,'',49,0,0),(16911,3840,22,49,0,'62.13.172.78',1154986251,1,0,1,1,1,1,'','where is the tfiscal class','Some have tfiscal.prg class fivewin ?','',0,'gIA=','23p2atvy',1,0,'',49,0,0),(16912,3841,6,492,0,'201.154.126.49',1154986501,1,0,1,1,1,1,'','CheckBox o BitMap en TWBrowse','Hola a todos\n\nEn el caso de ser posible, alguno de uds tendra un pequeño ejemplo para incrustar ya sea un checkbox o un bitmap en un browse ( de Hernan ) ?\n\nAgradeceria mucho cualquier apoyo.\n\n\nSaludos','',0,'gIA=','iua8q2qn',1,0,'',492,0,0),(16913,3842,3,286,0,'201.243.176.207',1154987487,1,0,1,1,1,1,'','Dual system','Dear friends:\n\nI have been worked at the development of a dual system with DBF/CDX and SQL databases (MySQL and SQL SERVER). \n\nFirst question I did was the connection to SQL with Jose Luis Capel TAdo class with no problem... second question was (and it continues being) the managing of the ADO record set... let me explain\n\nIn DBF/CDX environment I work with TDatabase, a great class that simplifies all the job,  but in the Ado samples I\'ve checked I have not found anything similar that allows a managing like TDatabase style. I know these class are differents and I know the environment too because I have good experience in php+mysql development\n\nIf I do a connection to a table with no records, TDatabase method oDB:Field1 returns a empty value, this is good for me.  The same thing in a empty table with TAdo method oQry:oRs:Fields (\'field1\'):value returns an error because the recordset does not have any values. Maybe I\'m not doing the right things but I want to know if it is possible to get the same function in order to save code. \n\nOne last question is: Do you think is better to separate the code for DBF and SQL databases or keep one prg with many \"IF\" structure inside?\n\nThank','',0,'gIA=','s9y26ug5',1,0,'',286,0,0),(16914,3838,3,2,0,'87.218.146.51',1154988109,1,0,1,1,1,1,'','','Silvio,\n\nDo you mean that you want the controls to resize as the window resizes too ? If yes, then you have to code it yourself. Its not difficult.','',0,'gIA=','27c3c5tc',1,0,'',2,0,0),(16915,3837,7,490,0,'88.15.181.156',1154988776,1,0,1,1,1,0,'','','Gracias,\n\nLo probaré a ver que tal.\n\n\n\nUn Saludo,\nJoaquín','',0,'gIA=','uf40ui9s',1,0,'',490,0,0),(16916,3401,6,665,0,'196.40.12.120',1154993009,1,0,1,1,1,0,'','Me pasaba lo mismo  el famoso  window.c','Un Saludito\nJose luis\n\nMira Yo trabaje con Worshop  me mantuve trabajando con .RC al pasarme a Pelles me daba ese error,  me aconsejaron dejar las .RC  y trabajar con .RES con pelles, Trabaja de maravillas Cero PROBLEMAS.\n\nIntentalo.\nGuada tus respaldos antes de hacer cualquier cambio.\n\nBusmatic','',0,'gIA=','2501a28d',1,0,'',665,0,0),(16917,3444,17,303,0,'72.199.41.171',1154994002,1,0,1,1,1,0,'','','Antionio,\n\nWell, I\'m confused. TSButton 5.0 was released in Sept of 2004, almost two years ago. I downloaded the file you posted and the PRG dates are Sept 2004. So are you just posting the old TSButton 5.0, or is there actually a newer one and you mistakenly posted the old one? Or, perhaps you didn\'t know that ver 5.0 was two years old?\n\nJames','',0,'gIA=','1ybwc4yy',1,0,'',303,0,0),(16918,1637,22,303,0,'72.199.41.171',1154994858,1,0,1,1,1,0,'','','Silvio,\n\n&gt;The Inno Setup is Delphi program and not it Fivewin Program . We must use another language or can I use only FIVEWIN ( Xharbour harbour c files ) \n\nI\'m not sure what you are asking. Inno Setup is a program that lets you build setup.exe programs for applications written in any language. All you do is build a script to tell it Inno Setup what files to include and any other special things you want it to do. Then in compiles all the files and special instructions into a setup.exe program.\n\nI have been using it for years (with FW). Nice!\n\nJames','',0,'gIA=','b74lrorz',1,0,'',303,0,0),(16919,3843,2,542,0,'88.7.14.158',1154994998,1,0,1,1,1,0,'','Setup de la Impresora','Hola Amigos:\nAlguien me podria decir como se presenta en pantalla donde poder elegir una impresora en un Reporte o en un fuera de el. Como el comando oPrn:Setup() de un Tprinter.\n\nGracias','',0,'gIA=','150qerkz',1,0,'',542,0,0),(16920,3844,2,147,0,'190.7.11.157',1154996790,1,0,1,0,1,1,'','O.T. funciones BLinker','Estoy un poco olvidado de esto.\nCompilo con Blinker 6. Al llamar por ej. a la función BliVerNum() me retorna el error\nBLINKER : 1115 : BYR_MAIN.OBJ(BYR_MAIN) : \'BLIVERNUM\' : unresolved external\nSe necesita alguna lib adicional?\n\ngracias','',0,'gIA=','3h5lbwnc',1,0,'',147,0,0),(16921,3835,4,267,0,'201.29.99.91',1155001438,1,0,1,1,1,1,'','','Antonio,\n\nThanks.','',0,'gIA=','24z3mebb',1,0,'',267,0,0),(16922,3818,3,190,0,'202.65.134.45',1155004412,1,0,1,1,1,0,'','','Hi Mr.Baxajaun  and Mr.Detlef Hoefner\n\nThank you very much for your posts.  They are very useful.\n\nRegards to you both\n\n- Ramesh Babu P','',0,'gIA=','u8kcz4d3',1,0,'',190,0,0),(16923,3401,6,52,0,'200.127.195.89',1155006491,1,0,1,1,1,1,'','Re: Me pasaba lo mismo  el famoso  window.c','[quote=&quot;busmatic&quot;:tseboh3c]Un Saludito\nJose luis\n\nMira Yo trabaje con Worshop  me mantuve trabajando con .RC al pasarme a Pelles me daba ese error,  me aconsejaron dejar las .RC  y trabajar con .RES con pelles, Trabaja de maravillas Cero PROBLEMAS.\n\nIntentalo.\nGuada tus respaldos antes de hacer cualquier cambio.\n\nBusmatic[/quote:tseboh3c]\n\nAlguno de ustedes usa xMate y Pelles? como hacen para que el xMate tome el res del pelles?','',0,'gA==','tseboh3c',1,0,'',52,0,0),(16925,3841,6,61,0,'190.64.111.6',1155011546,1,0,1,1,1,0,'','','Raymundo:\nAqui esta el ejemplo que encontre:\nDebe funcionar con xHarbour, yo uso Harbour, ademas debe\ncompilar tMultisel.prg que viene con la Twbrowse de Hernan \n\n\n\n#include \"FiveWin.ch\"\n#include \"wcolors.ch\"\n\n////////////////////////////////////////////////////////////////////////////////\n// Bienvenidos al Sample02 de Seleccion TWBrowse Multiple.\n// Veremos un ejemplo un poco mas complejo, con el uso de BitMaps.\n////////////////////////////////////////////////////////////////////////////////\n\n#define ENTERPRISE\n\n//----------------------------------------------------------------------------//\nFunction Main()\n LOCAL oDlg, oLbx\n LOCAL oFont, oMultiSel, oBmpOn, oBmpOff\n\n    USE Equipos ALIAS Datos\n\n    DEFINE BITMAP oBmpOn  FILE \"checkon.bmp\"\n    DEFINE BITMAP oBmpOff FILE \"checkoff.bmp\"\n\n    DEFINE FONT oFont NAME \'MS Sans Serif\' SIZE 0,-8\n\n    DEFINE DIALOG oDlg FROM 0,0 TO 15,45               ;\n                  TITLE \"TWBrowse + TMultiSel Engine\" ;\n                  FONT oFont\n       oDlg:nStyle:= nOr( oDlg:nStyle, 4 ) // Pongo 3D Nativo\n\n\n       @00,03 SAY \'Futbol Argentino\' OF oDlg\n\n       #ifdef ENTERPRISE\n         TWBrowse():lHScroll:= .f. // Sin Scroll Horizontal para la variable\n       #endif                      // de la clase.\n\n       @01,01 LISTBOX oLbx ;\n                      FIELDS If( oMultiSel:lSelect, oBmpOn, oBmpOff ):hBmpPal,;\n                             DATOS-&gt;Equipo ;\n                      HEADERS \"\",\"\" SIZE 95,87 OF oDlg\n\n       oMultiSel:= TMultiSel():New( oLbx )\n\n       @20,110 BUTTON \"Select &amp;All\" OF oDlg SIZE 40,Nil PIXEL ;\n               ACTION oMultiSel:SelectAll()\n\n       @40,110 BUTTON \"UnSelect &amp;All\" OF oDlg SIZE 40,Nil PIXEL ;\n               ACTION oMultiSel:UnSelectAll()\n\n       @60,110 BUTTON \"&amp;Reverse\" OF oDlg SIZE 40,Nil PIXEL ;\n               ACTION oMultiSel:Reverse()\n\n       @90,110 BUTTON \"&amp;Ver Seleccion\" OF oDlg SIZE 40,Nil PIXEL ;\n               ACTION VerSeleccion( oMultiSel )\n\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    RELEASE BITMAP oBmpOn, oBmpOff\n    RELEASE FONT oFont\nreturn Nil\n\n//----------------------------------------------------------------------------//\nSTATIC Function VerSeleccion( oMultiSel )\n LOCAL cMsg:= \"Estan seleccionados todos los registros\"\n LOCAL nLen:= Len( oMultiSel:aRecNo )\n LOCAL cLen:= \" ( \" + AllTrim(Str(nLen)) + \" son )\"\n\n    If oMultiSel:lSelectAll\n       If nLen == 0\n          cMsg+= \".\"\n       Else\n          cMsg+= CRLF + \"MENOS los de la matriz oMultiSel:aRecNo.\" +cLen\n       EndIf\n    Else\n       If nLen == 0\n          cMsg:= \"NO HAY registros seleccionados.\"\n       Else\n          cMsg+= \" de la matriz oMultiSel:aRecNo.\" + cLen\n       EndIf\n    EndIf\n\n    MsgAlert( cMsg )\n\n    MemoSeleccion( oMultiSel )\n\nreturn Nil\n\n//----------------------------------------------------------------------------//\nSTATIC Function MemoSeleccion( oMultiSel )\n LOCAL cMemo:= \'Estos son los Items Seleccionados:\' + CRLF +;\n               \'==================================\' + CRLF + CRLF\n LOCAL nLen:= Len( cMemo ), lHeader:= .f.\n LOCAL nRecNo:= RecNo()\n\n    DbGoTop()\n    While !Eof()\n\n       If oMultiSel:IsSelect( RecNo() )\n          If !lHeader\n             cMemo+= \"RecNo()     Equipo\" + CRLF + ;\n                     \"======= ====================================\" + CRLF\n             lHeader:= .t.\n          EndIf\n          cMemo+= StrZero(RecNo(),7) + \"  \"+ Field-&gt;Equipo + CRLF\n       EndIf\n\n       DbSkip()\n\n    EndDo\n\n    If Len( cMemo ) == nLen\n       cMemo+= \"NO HAY ITEMS SELECCIONADOS !!!!\" + CRLF\n    EndIf\n\n    DbGoto( nRecNo )\n\n    MemoEdit( cMemo )\n\nreturn Nil\n\n//----------------------------------------------------------------------------//\n\n\nSaludos..\n\nRuben Fernandez.','',0,'gA==','f0503pkx',1,0,'',61,0,0),(16926,3845,19,2,0,'87.218.146.51',1155013263,1,0,1,1,1,1,'','Apple WWDC 2006','<!-- m --><a class=\"postlink\" href=\"http://events.apple.com.edgesuite.net/aug_2006/event/index.html\">http://events.apple.com.edgesuite.net/a ... index.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.apple.com/macosx/leopard/timemachine.html\">http://www.apple.com/macosx/leopard/timemachine.html</a><!-- m -->','',0,'gA==','3g1g85er',1,0,'',2,0,0),(16927,3836,7,710,0,'195.5.87.61',1155013932,1,0,1,1,1,0,'','','Muchas gracias Joaquin por tus explicaciones y a ti tambien Antonio, seguire estudiando... Un saludo. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'gA==','1iqof04p',1,0,'',710,0,0),(16928,3846,19,177,0,'194.30.62.6',1155014754,1,0,1,1,1,0,'','DoS en Microsoft Windows por tratamiento de WMF','Noticia tomada de Hispasec <!-- w --><a class=\"postlink\" href=\"http://www.hispasec.com\">www.hispasec.com</a><!-- w --> :\n\nSe ha descubierto una vulnerabilidad en diversas versiones de Microsoft Windows que puede ser explotada por usuarios maliciosos para provocar denegaciones de servicio. \n\nEl problema se debe a un error en el tratamiento de signos localizado en la librería DDL cliente de GDI (gdi32.dll) a la hora de procesar archivos de tipo WMF. Un atacante puede explotar esto para tirar una aplicación que use dicha librería (por ejemplo. el explorador de Windows) si consigue engañar a la víctima para que visualice un WMF malicioso. \n\nLa vulnerabilidad ha sido confirmada en un Windows XP SP2 totalmente parcheado, y no se descarta que afecte a otras versiones de Windows. \n\nHasta que se publique un parche oficial que solvente este problema, se recomienda no abrir archivos WMF que no provengan de fuentes de confianza.\n\nSaludos,\n\nBaxajaun','',0,'gA==','hrtkimy1',1,0,'',177,0,0),(16929,3841,6,492,0,'201.154.126.49',1155017263,1,0,1,1,1,1,'','','Hola Ruben\n\nMuchas Gracias por el ejemplo, hare mis pruebas.\n\nTe agradezco  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos','',0,'gA==','pnvxd7p2',1,0,'',492,0,0),(16930,3838,3,49,0,'62.13.172.78',1155018932,1,0,1,1,1,1,'','','yes you have understand NOw !!!!\n\nCan I have a small sample ?\n\nIs there an sample of this on samples of fwh ?','',0,'gA==','16i5cr83',1,0,'',49,0,0),(16931,3847,3,49,0,'62.13.172.78',1155019342,1,0,1,1,1,1,'','sample for print to fiscal calc','Some one have an sample to send a print to fiscal machine ( cash) ?\nI remember there was a fiscal class when we made fivewin/clipper applications ...someone have this class ?\n\nRegards','',0,'gA==','3rqn1wpl',1,0,'',49,0,0),(16932,3842,3,170,0,'83.179.202.215',1155019435,1,0,1,1,1,1,'','Re: Dual system','[quote=&quot;wpacheco&quot;:3lb200e9]Dear friends:\n\nOne last question is: Do you think is better to separate the code for DBF and SQL databases or keep one prg with many \"IF\" structure inside?\n\nThank[/quote:3lb200e9]\n\nYou must separate the code only if you have GPF,\nelse it\'s better to take the second solution.\nIt\'s more easy to upgrade in a \"parallele\" way,\nyou can see the code of each rdd in only one .prg\n\nRegards,','',0,'gA==','3lb200e9',1,0,'',170,0,0),(16933,3848,20,49,0,'62.13.172.78',1155019450,1,0,1,1,1,1,'','esempio di stampa per i registratori di cassa','qualcuno ha un esempio di invio di una stampa per un registratore di cassa \n\nio devo farlo per un modello di marca olivetti \n\ngrazie','',0,'gA==','s7ekphkp',1,0,'',49,0,0),(16934,3842,3,303,0,'72.199.41.171',1155019710,1,0,1,1,1,0,'','','I would suggest that the better solution is to subclass both TDatabase and TADO. You can then make these subclasses both use the same syntax. This way you can just compile with either class to make your application work with either database.\n\nThis is one of the great features of OOP.','',0,'gA==','fq5sbs3j',1,0,'',303,0,0),(16935,3849,3,705,0,'61.2.4.125',1155022274,1,0,1,1,1,0,'','gtwin.lib missing','Hi everybody,\n\nI am getting an error during compile. ..... gtwin.lib file missing. I am not getting such file in appropriate path. Could any one tell me where is it available?\n\nArindam','',0,'gA==','t25m79ul',1,0,'',705,0,0),(16936,3401,6,52,0,'200.127.195.89',1155022476,1,0,1,1,1,1,'','','[quote=&quot;oskar&quot;:s66u3kyf]Gustavo, unicamente agrega a tu proyecto el RES en vez del RC y listo xmate se encarga de utilizar el que hayas agregado\n\nsalu2[/quote:s66u3kyf]\n\nOskar, pero en vez de usar BRC32.exe que uso en \"Comando de compilación de recursos\"?','',0,'gA==','s66u3kyf',1,0,'',52,0,0),(16937,3849,3,177,0,'194.30.62.6',1155024572,1,0,1,1,1,0,'','','Arindam,\n\nin June 2006 Build :\n\n* New: IMPORTANT: Due to recent changes in Harbour and xHarbour, GTGUI.LIB must be linked instead of GTWIN.LIB. \n\nRegards,','',0,'gA==','2gamdu54',1,0,'',177,0,0),(16938,3850,7,456,0,'217.127.39.57',1155029127,1,0,1,1,1,1,'','Terminales Symbol (SCM)','Bueno casi es off topic, pero por si alguien puede ayudarme, necesito el \"Symbol Configuration Manager \" para configurar terminal MC70. En teoria puede descargarse de la web de symbol, pero no lo consigo. Alguno de vosotros lo tiene, y ademas me lo puede pasar.\n\nGracias anticipadas.','',0,'gA==','ifq1c5jv',1,0,'',456,0,0),(16939,3842,3,286,0,'201.243.176.207',1155037856,1,0,1,1,1,1,'','','Thanks for your response\n\nReally I had not thought of doing subclasses, because my short experience with it, but I think that it is the best solution. On the other hand as Badara says, I like to have the code in an single prg to be able to do changes in sets, I think that joining both ideas will be great\n\nThanks again','',0,'gA==','1tozw3mg',1,0,'',286,0,0),(16940,3851,3,707,0,'222.124.20.50',1155038411,1,0,1,1,1,0,'','How to create class with xHarbour','Hi everyone !\n\nI have xHarbour Enterprice Edition, please give me sample how to create class.\n\nAreang','',0,'gA==','2xggdurl',1,0,'',707,0,0),(16941,3849,3,705,0,'61.2.5.27',1155039675,1,0,1,1,1,0,'','','Thanks for your information. \n\nAfter doing the necessary changes in .mak file the followin errors are generating from different .lib. Please let me know what more replacement required during compilation.\n\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in LIBC.lib(matherr.obj); second definition ignored\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in LIBC.lib(matherr.obj); second definition ignored\n   Creating library test.lib and object test.exp\nFiveHM.lib(REBAR.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(TGET.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(RPREVIEW.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(COMBOBOX.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(TOOLBAR.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(listbox.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(DIALOG.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(FILENAME.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nFiveHM.lib(MGET.obj) : error LNK2001: unresolved external symbol _hb_vmProcessSymbolsEx\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _regcomp\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _regfree\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _regexec\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _pcre_free\ntest.exe : fatal error LNK1120: 5 unresolved externals\n\nThanks and regards.\nArindam','',0,'gA==','28kdkego',1,0,'',705,0,0),(16942,3849,3,177,0,'194.30.62.6',1155041796,1,0,1,1,1,0,'','','Hi Arindam,\n\nwhat is your version of FWH ? Version of [x]Harbour ?\n\nBest regards.','',0,'','oshuzb5z',1,0,'',177,0,0),(16943,2492,6,632,0,'201.155.170.251',1155045691,1,0,1,1,1,0,'','','Tambien realize algunas pruebas pero me marca el mismo error\nyo trato de monitorear el estado de una impresora pero conectada por un puerto tcp/ip osea ip_192.25.12.x , y tampoco. real mente lo q necesito es \nsaber cuando termino el trabajo de imprecion ya q al mandar varios reportes de crystal el sistema aborta. entonces lo q pretendo hacer es monitorear el estatus de la impresion y mandarlo asta q este lista la impresora ya q si mando pocos reportes de crystal directo a la impresora si funciona, pero si mando mas este se cuelga,y manda un extraño mensage de error, cuando mando aimprimir directo el reporte sin previsulizar este, pero algo extraño ya q si hago una previsualizacion no manda el msg de error.','',0,'','5osvosuk',1,0,'',632,0,0),(16944,3757,6,632,0,'201.155.170.251',1155045929,1,0,1,1,1,0,'','Re: LA FUNCION  PrnStatus()','hola quisiera saber si ya esta lista esta funcion para ser utlizada ya que necesito monitorear un puerto de imprecion antes de imprimir.','',0,'','2lorb84q',1,0,'',632,0,0),(16945,3831,2,228,0,'201.245.222.85',1155046540,1,0,1,1,1,1,'','Como se hace?','Antonio, como se hace eso?\n\nSera que me pudes indicar?..','',0,'','22tvk502',1,0,'',228,0,0),(16946,3838,3,2,0,'87.218.146.209',1155047192,1,0,1,1,1,1,'','','Silvio,\n\nYou have to change the position of the controls changing DATAs nTop, nLeft and dimensions using DATAs nWidth and nHeight. i.e.:\n\nfor n ...\noWnd:aControls[ n ]:nTop = ...\noWnd:aControls[ n ]:nLeft = ...\noWnd:aControls[ n ]:nWidth = ...\noWnd:aControls[ n ]:nHeight = ...','',0,'','1ch6p1ku',1,0,'',2,0,0),(16947,3851,3,2,0,'87.218.146.209',1155047333,1,0,1,1,1,1,'','','Areang,\n\nIn xHarbour source\\rtl\\*.prg search for \"CLASS\".','',0,'','6paviydt',1,0,'',2,0,0),(16948,3757,6,2,0,'87.218.146.209',1155047436,1,0,1,1,1,1,'','','Por favor revisad fwh\\samples\\prnstat.prg','',0,'','1ntmwath',1,0,'',2,0,0),(16949,3852,2,708,0,'201.246.7.65',1155048005,1,0,1,1,1,0,'','Despues de lo leido, me debo cambiar pero ??','Antonio, saludos, despues de lo leido de lo que sucede con Windows Vista o Windos 64, me doy cuenta que trabajar con FW 2.2, Clipper 5.3 y Workshop, Blinker 5.0, no me va a servir asi que necesito cambiarme a FWH, mi pregunta es, mis aplicaciones hechas con FW, deben ser transformadas a FWH, el compilador me sirve, lo que tengo en WorkShop, (dialogos), se mantienen.. es decir la transformacion me significa cambiar mucho mi codigo...','',0,'','12iuzuc8',1,0,'',708,0,0),(16950,3853,6,228,0,'201.245.222.85',1155050618,1,0,1,1,1,1,'','16 Y 32?','Amigos del foro tengan todos buen día.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEl problema es el siguiente: hace un tiempo hice una aplicacion en 16 bits, esta aplicación funciona correctamente y con una velocidad extraordinaria.\n\nPero resulta que  migre a 32 bits y la aplicacion se puso superlenta.\n\nHice las pruebas de los tiempos y los resultados fueron los siguientes:\n\n16 bits -&gt; 45 segundos\n32 bits -&gt; 150 segundos\n\nEn ese proceso no hay problema, pero hay procesos que son mucho mas largos y se vuelve muy molesto para el usuario estar esperando 20 minutos a que termine un proceso que se puede hacer en 5 minutos.\n\nAlguien me puede ayudar. Alguna sugerencia, por que sucede esto?, no si tenga algo que ver con las bases de datos, los indices.? Help?','',0,'','2x3c7ii6',1,0,'',228,0,0),(16951,3842,3,303,0,'72.199.41.171',1155050654,1,0,1,1,1,0,'','','&gt;On the other hand as Badara says, I like to have the code in an single prg to be able to do changes in sets, I think that joining both ideas will be great.\n\nI\'m not sure I made myself clear. If you make the subclasses with the same syntax, then the rest of your application code will not need to know which database it is using. You won\'t need any IF/ELSE in you application.\n\nYou will need to make each subclass in a separate PRG also.\n\nI have not worked with ADO, but I suspect that you may be able to create just one subclass so it has the same syntax as the other database class. I don\'t know which one would be the best one.\n\nIf you need help creating the classes, I suggest reading my articles on OOP which you can find on my website. If you still have questions, then just ask here.\n\nJames','',0,'','g32lawkv',1,0,'',303,0,0),(16952,3854,7,511,0,'201.209.235.206',1155051111,1,0,1,0,1,0,'','Recomendar marca y modelo','Hola Antonio,\n\nExiste la posibilidad de desarrollar una aplicacion con Fwppc que tenga capacidad para leer de codigo de barra e integrarse a las aplicaciones Fwh actuales, que marca y modelo me puedes recomendar ya que no tengo experiencia en esta area y quiero evaluarlo, gracias.\n\nSaludos\n\nAlvaro Urdaneta','',0,'','1jc9669x',1,0,'',511,0,0),(16953,3853,6,228,0,'201.245.222.85',1155051211,1,0,1,1,1,1,'','16 y 32?','Bueno amigos... Les cuento que estuve haciendo varias pruebas y llegue a la conclusion que el problema de la velocidad son los filtros..\n\nYa que me muestra la base de datos sin filtro de una manera rapida pero al efectuar el un filtro en cuando se pone terriblemente lenta la aplicación.\n\nYo ejecuto los filtros de la siguiente manera:\n\n[code:1jwr4ixv]\n\nSELE MYDBF\nSET FILT TO CONTRO=&quot;04&quot;\nDBGOTOP&#40;&#41;\nDO WHILE !EOF&#40;&#41;\n\n    &#46;&#46;&#46;&#46;&#46;&#46;&#46;\n \n   SKIP\nENDDO\n\nSe debe hacer de otra manera el mysql, o existe alguna otra solicion para este problema?[/code:1jwr4ixv]','',0,'AIA=','1jwr4ixv',1,0,'',228,0,0),(16954,3842,3,303,0,'72.199.41.171',1155051633,1,0,1,1,1,0,'','','OK, when I said that you might be able to create just one subclass I was thinking of my own TData class, not the TDatabase class that comes with FW. You will need to create two subclasses, if only for the New() method.\n\nThen you will also need another subclass for each file (DBF or table). So then you can do:\n\n   oCustomer:= TCustomer:new()\n\nin your application code. You then compile it with either the DBF database class or the ADO database class. Either way you get a customer table.\n\nJames','',0,'AIA=','2gk7knbs',1,0,'',303,0,0),(16955,3854,7,2,0,'87.218.146.209',1155053281,1,0,1,1,1,1,'','','Alvaro,\n\nPDA con lector de código de barras integrado:\n<!-- m --><a class=\"postlink\" href=\"http://www.tecno-symbol.com/symbol/symbol_mc3000/productos_mc3000.html\">http://www.tecno-symbol.com/symbol/symb ... c3000.html</a><!-- m -->\n\nUsuarios trabajando con ella y experiencias:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=977&amp;highlight=barras\">http://fivetechsoft.com/forums/viewtopi ... ght=barras</a><!-- m -->','',0,'AIA=','2vahp58p',1,0,'',2,0,0),(16956,3853,6,2,0,'87.218.146.209',1155053444,1,0,1,1,1,1,'','','Leandro,\n\nHas probado a hacer una llamada a SysRefresh() desde ese do while ?','',0,'AIA=','sdl5th47',1,0,'',2,0,0),(16957,3852,2,138,0,'201.128.111.188',1155053482,1,0,1,1,1,1,'','','No, en realidad el 95% de tu codigo pasara sin cambios, solo hay algunos cambios en la forma de definir algunas datas de las clases, en lo nombres de fuciones si estos tienen mas de 12 caracteres, pero son cambios minimos.\n\nEn cuanto a los recursos con workshop tampoco tienes problema, si estas trabajandolos como DLLs, entonces el mismo workshop los puede convertir en archivos .RC y luego estos RC se compilan y linkean a tu programa sin ningun problema.\n\nObvio, necesitaras luego un editor de recursos de 32 bits, el de Pelles C es muy recomendable y ademas es gratuito.','',0,'AIA=','3apv2fav',1,0,'',138,0,0),(16958,3852,2,2,0,'87.218.146.209',1155053646,1,0,1,1,1,1,'','','La transformación es realmente sencilla. Normalmente puedes tardar una semana ó menos:\n\n* En vez de Clipper usas Harbour ó xHarbour, son 100% compatibles con Clipper.\n* En vez de FW usas FWH, que es practicamente 100% compatible.\n* Los recursos se mantienen a excepción de los folders que pasan de TFolder a SysTabControl32.\n* Puedes seguir usando el resources workshop, ó el PellesC (gratuito).\n* Harbour/xHarbour precisan de un compilador de C (Borland recomendado) que es gratuito.\n\nMás información en <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m -->','',0,'AIA=','35det1md',1,0,'',2,0,0),(16959,3843,2,138,0,'201.128.111.188',1155054087,1,0,1,1,1,1,'','','Si solo quieres seleccionar una impresora:\n\nPrinterSetup()\n\nsi quieres selecciona una impresora y al mismo tiempo vincularla a un reporte:\n\nREPORT oREp .... FROM USER\n\nó:\n\nPRINTER oPrn .... FROM USER','',0,'AIA=','2n0clly5',1,0,'',138,0,0),(16960,3842,3,286,0,'201.243.176.207',1155054302,1,0,1,1,1,1,'','','James\n\nI have just stopped reading OOP\'s articles in your page, both are very interesting and explained.\n\nThe database class I use is the one that comes with FW and till now it has served me in everything what I have needed, except a couple of methods that I have created like \"Locate\" and the refreshment of the buffers in the \"Seek\" method.\n\nI don\'t know what feature your class has, but I find a little complicated to do a subclass that allows that the ADO\'s Recordset should behave as an database object, probably for my short of experience in the matter, nevertheless I am sure that your comment is the best way of working since the code will be the same one without matter the database used.\n\nYou say you have not worked with ADO but have you worked with SQL databases? If you have, what class or lib do you use?. Some guys here recommend ADO and this one was I choose. \n\nThanks again','',0,'AIA=','20vxrany',1,0,'',286,0,0),(16961,3842,3,170,0,'83.179.202.215',1155054731,1,0,1,1,1,1,'','','Hello\n\nThis is a sample code fully fonctionnal.\n\nRegards,\n\n[code:12ni9a8y]\n*****************\nFUNCTION DBFRLOCK&#40;QV&#41;\n*****************\n* To lock using the same function with DBFNDX, DBFNTX,\n* DBFCDX or ADS\nLOCAL QRET\nSysRefresh&#40;&#41;\nIF &quot; &quot; + RDDSETDEFAULT&#40;&#41; + &quot; &quot; $ &quot; ADS DBFCDXAX DBFNTXAX &quot;\n  QRET &#58;= AX_RLOCK&#40;QV&#41;\nELSE\n  QRET &#58;= DBRLOCK&#40;QV&#41;\nENDIF\nSysRefresh&#40;&#41;\nRETURN QRET\n\n[/code:12ni9a8y]','',0,'AIA=','12ni9a8y',1,0,'',170,0,0),(16962,3841,6,138,0,'201.128.111.188',1155057645,1,0,1,1,1,1,'','','Se hace exactamente igual a como se hace con un TWBrowse normalito\n\n\n/[code:7ow4nix7]* cargas los bitmaps de los check */\n   hCheck &#58;= LoadBitmap&#40;GetResources&#40;&#41;,&quot;check&quot;&#41;\n   hunCheck &#58;= LoadBitmap&#40;GetResources&#40;&#41;,&quot;uncheck&quot;&#41;\n\n   DEFINE DIALOG oDlg&#46;&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n\n   REDEFINE LISTBOX oBrw FIELDS \n               IIF&#40;alias-&gt;campo ==&#46;T&#46;,hCheck,hUnCheck&#41;,;\n                     alias-&gt; otro camo;\n      HEADERS &quot;&quot;,&quot;Name&#58;&quot; ID 103 OF oDlg UPDATE\n&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;&#46;[/code:7ow4nix7]','',0,'AIA=','7ow4nix7',1,0,'',138,0,0),(16963,3842,3,303,0,'72.199.41.171',1155058561,1,0,1,1,1,0,'','','Williams,\n\n[quote:251z13ps]The database class I use is the one that comes with FW and till now it has served me in everything what I have needed, except a couple of methods that I have created like \"Locate\" and the refreshment of the buffers in the \"Seek\" method.[/quote:251z13ps]\n\nTDatabase already refreshes the buffers on Seek, so if you are doing it again you are doing it twice.\n\n[quote:251z13ps]I don\'t know what feature your class has, but I find a little complicated to do a subclass that allows that the ADO\'s Recordset should behave as an database object, probably for my short of experience in the matter, nevertheless I am sure that your comment is the best way of working since the code will be the same one without matter the database used. [/quote:251z13ps]\n\nHere is a simple example. In the ADO subclass create a DATA oRS. In the TDATABASE class we have method gotop() to goto the first record. In ADO they syntax is moveFirst(). So in the ADO class we create a gotop() method like this:\n\n   [code:251z13ps]method gotop inline &#58;&#58;oRs&#58;moveFirst&#40;&#41;[/code:251z13ps]\n\nNow you have the same gotop() syntax for each table. \n\n[quote:251z13ps]You say you have not worked with ADO but have you worked with SQL databases? If you have, what class or lib do you use?. Some guys here recommend ADO and this one was I choose. [/quote:251z13ps]\n\nNo, I haven\'t worked with SQL either. I\'m sure you can use ADO to do what you want.\n\nJames','',0,'gIA=','251z13ps',1,0,'',303,0,0),(16964,3401,6,665,0,'200.122.153.218',1155062255,1,0,1,1,1,0,'','Pelles y .RES','Un Saludito.\nMira no es tan dificil, al final  las cosas no parecen tan dificiles, el lo  mismo que trabajes con  WShop al final  manejas los controles, \n\nSi utilizas el xmate solo incluye  en las propiedades del proyecto\nel .rc  o el .res como si fueras a gregar un .prg es igual,  no pasa nada   no importa donde este le das un  mapeo y listo, ahora no te recomiento utlizar del Pelles a Workshp porque  pone ciertos   mapeos que el Shope no utiliza y te dara errores que   al cargar.\n\nEl Xmate es muy facil, solo que te toma un pokito de tiempo utilizarle y conocer su modo de programacion  ahora en este URL de  OSkAr ha hecho o diria puesto un manuel bastante bueno de configurar el pelles,\nbajalo.\n\nSi necesita una guia, avisame,   te hechamos una mano, <!-- e --><a href=\"mailto:oscarcha@hormail.com\">oscarcha@hormail.com</a><!-- e -->.\n\nSuerte y Echale ganas\n\nBusmatic','',0,'gIA=','1zurzg4s',1,0,'',665,0,0),(16965,3842,3,286,0,'201.243.176.207',1155063706,1,0,1,1,1,1,'','','James\n\nLet me explain in my case what buffer refresh means\nUsually I open the database object and load values to show it in the dialog. When the user make changes to these values in an edit task, I need to post validate the data so I seek the field value but the seek method \"refresh\" the buffer initial contents, this action causes that the values get lost.\nI did changes to the class and defined a new var \"aOriginal\" this var like aBuffer permits save my initial values and to recover when I needs them\n\nI\'m going to try to create a ADO subclass that could handle as TDatabase, I know this won\'t be an easy job but I think this is the right way, so soon you\'ll have news...\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','25g0wox1',1,0,'',286,0,0),(16966,3842,3,303,0,'72.199.41.171',1155064205,1,0,1,1,1,0,'','','Willams,\n\n[quote:u9ideanp]Let me explain in my case what buffer refresh means \nUsually I open the database object and load values to show it in the dialog. When the user make changes to these values in an edit task, I need to post validate the data so I seek the field value but the seek method \"refresh\" the buffer initial contents, this action causes that the values get lost. \nI did changes to the class and defined a new var \"aOriginal\" this var like aBuffer permits save my initial values and to recover when I needs them [/quote:u9ideanp]\n\nAll you needed to do was set lBuffer to .f. before the seek, then set it to .t. again after the seek. Setting lBuffer to .f. prevents the the buffer array, aBuffer, from being refreshed during any navigation command.\n\n   oCustomer:lBuffer:= .f.\n   oCustomer:seek(\"whatever\")\n   oCustomer:lBuffer:=.t.\n\n[quote:u9ideanp]I\'m going to try to create a ADO subclass that could handle as TDatabase, I know this won\'t be an easy job but I think this is the right way, so soon you\'ll have news... [/quote:u9ideanp]\n\nKeep us posted about your progress.\n\nJames','',0,'gA==','u9ideanp',1,0,'',303,0,0),(16967,3841,6,492,0,'201.154.126.49',1155069585,1,0,1,1,1,1,'','','Gracias Master Flores\n\nTe lo agradezco mucho, sigo con mis pruebas y correcciones  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'gA==','3i3z3jm7',1,0,'',492,0,0),(16968,3838,3,49,0,'62.13.172.78',1155073513,1,0,1,1,1,1,'','','CAN i USE THE CLAUSOLE :\nACTIVATE WINDOWS OwND ;\nON RESIZE....\n\nBUT i NOT kNOW HOW MAKE IT \nLOOK THIS TEST SAMPLE :\n\n[code:3vvijj8e]\n#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oWnd \n\n    LOCAL aBtn &#58;= &#123;&#125; \n\n    LOCAL n &#58;= 1 \n\n    LOCAL i, j\n\n    DEFINE WINDOW oWnd\n\n        @20,5 LISTBOX oLbx FIELDS &quot;&quot;;\n                         HEADER &quot;ARTICOLO&quot;,  &quot;QTA&quot;,  ;\n                                &quot;PREZZO&quot;, &quot;TOTALE&quot;                     ;\n                         OF oWnd SIZE 200,200 PIXEL                     ;\n                         SIZES  230, 80,90,90\n\n\n\n                MAKEBUTTON&#40; 10,40, 10 &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL \n\n\nSTATIC FUNCTION MAKEBUTTON&#40; nRow, nCol, n &#41;\n\n    LOCAL oBtn\n\n    @ nRow, nCol BUTTON oBtn PROMPT &quot;Test&quot;;\n                 SIZE 200, 50;\n                 ACTION MAKEMENU&#40; oBtn, n &#41;\n\n    RETURN oBtn \n\n\nSTATIC FUNCTION MAKEMENU&#40; oBtn, n &#41; \n\n    LOCAL oMenu \n\n    MENU oMenu POPUP \n        MENUITEM &quot;Button number?&quot; ACTION MSGINFO&#40; n &#41; \n    ENDMENU \n\n    ACTIVATE MENU oMenu AT 0, 0 OF oBtn \n\n    RETURN NIl\n[/code:3vvijj8e]\n\n\nWHERE I CAN MODIFY IT TO RESIZE THW WINDOW AND MY  ALL CONTROLS ?\n\nREGARDS','',0,'AIA=','3vvijj8e',1,0,'',49,0,0),(16969,3853,6,219,0,'201.154.231.56',1155081165,1,0,1,1,1,0,'','Re: 16 Y 32?','Hola, usando índices CDX puedes aplicar SCOPES, o puedes hacer TAGS condicionados, ésto agiliza de una manera muy significativa el proceso, que hasta el pelo se te volará.\n\nTodo lo anterior es mucho mejor que usar \'hard code\' por ejemplo:\n\nIF control = \'04\' &lt;-----    \n\nIntentalo y verás.\n\nSaludos\n\nJosé Luis','',0,'AIA=','2o4d3jyt',1,0,'',219,0,0),(16970,3855,6,492,0,'201.154.126.49',1155086400,1,0,1,1,1,1,'','Modulo para Respaldos con opciones multiples','Hola a todos\n\nA manera de \"tarea\", estoy haciendo un modulo para generar respaldos, mismo que tenia tiempo queriendo hacer, llevo un par de dias en el y creo que ya tiene algo de forma, espero les guste.\n\nPD : Todavia me faltan un par de  detalles en la opcion para Restaurar, espero terminarlos en estos dias, pero para generar el archivo comprimido al parecer, esta funcionando OK.\n\n[img:3v22cbsn]http&#58;//img301&#46;imageshack&#46;us/img301/5861/ibackupnv7&#46;jpg[/img:3v22cbsn]\n\n\nEl link de descarga para quien se interese es este :\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02acee7c34/iBackUp.zip.html\">http://hyperupload.com/download/02acee7 ... p.zip.html</a><!-- m -->\n\n\nEl codigo lo liberare en cuanto este terminado, uno de los puntos que estoy teniendo un poco de problemas es para el manejo de nombres largos.\n\nPor el momento, hay que instalar el font de manera manual  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos','',0,'CA==','3v22cbsn',1,0,'',492,0,0),(16971,3849,3,705,0,'61.2.5.114',1155087259,1,0,1,1,1,0,'','','Hi Baxajaum!\n\nMy FWH version is 2.7 and xHarbour version is xHarbour Builder Prof. for window-March 06\n\nArindam','',0,'CA==','1g7pvjpm',1,0,'',705,0,0),(16972,3856,6,140,0,'200.84.218.234',1155089251,1,0,1,1,1,0,'','Clase tSMTP para xHarbour','Hola a todos...\nTenia tiempo que no daba una vuela por estos lares... veo muchos nombres nuevos, y la asistecia sabia y oportuna de varios viejos amigos...\n\nHoy me trae por aca el tema de la clase tSMTP que modifico hace algun tiempo el amigo Luis Krause...\nMe fue muy util cuando la implemente en Clipper, y me gustaria ahora implementarla en 32 bist con [x]Harbour...\nYa hay alguien que la tenga funcionando con [x]Harbour??? que posibilidad hay de que me la faciliten?\n\nuso xHarbour 0.993 y FW2.4\n\nGracias de antemano por la ayuda...\nSaludos a todos...\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela.','',0,'','1ithb8x1',1,0,'',140,0,0),(16973,3856,6,492,0,'201.154.126.49',1155091019,1,0,1,1,1,1,'','','Hola Giancarlo\n\nPor aqui la encontre entre mis chunches    <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->    :\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0243cd3541/TSMTP.zip.html\">http://hyperupload.com/download/0243cd3 ... P.zip.html</a><!-- m -->\n\n\nSaludos','',0,'','1lgnyyd5',1,0,'',492,0,0),(16974,3855,6,439,0,'190.0.133.173',1155091899,1,0,1,1,1,1,'','','Excelente trabajo!!!!!\nFelicitaciones','',0,'','3vocoqo6',1,0,'',439,0,0),(16975,3857,1,173,0,'202.57.146.225',1155095640,1,0,1,1,1,0,'','Can change FONT in Tooltip ?','Dear all,\n\nI\'m use FiveWin 2.1c, It\'s possible to change FONT in tooltip of TSButton ?\n\nBest Regrad,\n\nPeter','',0,'','2vs7ztuz',1,0,'',173,0,0),(16976,3858,6,116,0,'201.10.157.28',1155097852,1,0,0,1,1,0,'','Called from HBCLASS:NEW(0)','Olá\n\nEstou gerando um exe com xharbour 09961 + fwh 26, qdo executo gera\no erro abaixo:\n\nCalled from HBCLASS:NEW(0)\nCalled from TFont(0)\nCalled from Principal(83)\n\nCompilei a lib fivehx.lib novamente com o novo compilador, compilei\ntodos meus prgs novamente mas não está funcionando.','',0,'','715micu1',1,0,'',116,0,0),(16977,3849,3,2,0,'87.218.146.107',1155104857,1,0,1,1,1,1,'','','Arindam,\n\nYou need an upgraded xharbour builder. Please contact xharbour.com','',0,'','1z0rq15m',1,0,'',2,0,0),(16978,3857,1,2,0,'87.218.146.107',1155105057,1,0,1,1,1,1,'','','Peter,\n\nin fw\\source\\classes\\window.prg search for \"DEFINE WINDOW oToolTip...\", some lines below you find \"DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8\". \n\nChange that font definition and use that window.prg recompiled.','',0,'','2ddk3g6h',1,0,'',2,0,0),(16979,3854,7,89,0,'213.21.136.60',1155107429,1,0,1,1,1,0,'','','Alvaro, \n\nI use PSC Falcon 4220  <!-- w --><a class=\"postlink\" href=\"http://www.psc.com\">www.psc.com</a><!-- w --> \nwith this pocket it is all trasparent , you dont need nothing code .\nThe scanner emulate the keyboard .\n\nRegards Maurizio','',0,'','t7srvt4y',1,0,'',89,0,0),(16980,3855,6,61,0,'190.64.111.78',1155109240,1,0,1,1,1,0,'','','Raymundo:\n\nSe ve ESPECTACULAR.\n\nEspero que se pueda compilar con Harbour tambien\n\nMuchas gracias.\n\nSaludos.\nRuben Fernandez','',0,'','1nktma42',1,0,'',61,0,0),(16981,3858,6,2,0,'87.218.146.107',1155110050,1,0,1,1,1,1,'','','Joao,\n\nTienes un ejemplo pequeño que reproduzca el error ? gracias','',0,'','2jij2fip',1,0,'',2,0,0),(16982,3859,19,26,0,'84.52.130.249',1155111292,1,0,1,1,1,1,'','TurboMan is back!','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.turboexplorer.com/\">http://www.turboexplorer.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.youtube.com/watch?v=LAgQCG1L3mo\">http://www.youtube.com/watch?v=LAgQCG1L3mo</a><!-- m -->\n\nRoman','',0,'','j6p6ti61',1,0,'',26,0,0),(16983,3854,7,456,0,'217.127.39.57',1155112140,1,0,1,1,1,1,'','','Yo he utilizado Unitech y Symbol. Estando muy satisfecho con los symbol. Hay muchos modelos, mira el que mejor se adapte a tus necesidades, los que he probado MC9000, MC50 , MC70. Todos pueden integrar escaner, y con un programa residente redireccionan a teclado el codigo leido, con lo que no hace falta programar nada.\n\nLos mc50, el escaner que montan 1d, es muy malo y hace falta que el codigo de barras este muy bien, plano, cerca, .... para poder leer. MC9000 y mc70 perfecto.\n\nSi compras symbol te recomiendo que no los compres en tecno-symbol, mejor los compras en diode o scan-source.','',0,'','1i95is46',1,0,'',456,0,0),(16984,3859,19,2,0,'87.218.146.220',1155112830,1,0,1,1,1,1,'','','Its quite strange. They recently announced that they were going to sell Delphi and all desktop development line products. \n\nNow they announce Turbo products line...','',0,'','2d0hyaa3',1,0,'',2,0,0),(16985,3401,6,147,0,'200.45.54.133',1155123338,1,0,1,0,1,1,'','','Como se llega exactamente al Manual?. En la página lo busque como Manual, PellesC y no encuentrá.\n\ngracias','',0,'','2nqau7z3',1,0,'',147,0,0),(16986,3854,7,511,0,'201.243.142.148',1155124790,1,0,1,0,1,0,'','','Gracias a todos por las recomendaciones, voy a empezar a buscar los proveedores de estos modelos para comparar caracteristicas y precios.\n\nSaludos\n\nAlvaro Urdaneta','',0,'','2ws35lar',1,0,'',511,0,0),(16987,3858,6,362,0,'200.168.52.156',1155124887,1,0,1,1,1,1,'','','VERIFIQUE A LINHA 83 DE PRINCIPAL.PRG\n\nVOCE ESTA DEFININDO AS FONTES? SE SIM, FECHA-AS AO SAIR?\n\nPOSTE O CODIGO.\n\nOU SIMPLESMENTE, VÁ PARA O FORUM EM PORTUGUES, EM:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br\">http://www.fivewin.com.br</a><!-- m -->','',0,'','1g2re631',1,0,'',362,0,0),(16988,3668,2,147,0,'200.45.54.133',1155125095,1,0,1,0,1,1,'','','Para los que alguna ves tienen un problema parecido, usando FileXLS.\nFinalmente el problema tuvo solución aumentando el stacksize, para esta aplicación, a 13500 y el heapsize a 4096\n\nSaludos','',0,'','w3pj5i72',1,0,'',147,0,0),(16989,325,3,190,0,'202.65.134.45',1155125944,1,0,1,1,1,0,'','','Hi\n\nHow to get the date in DD/MM/YYYY format from dtepicker ?\n\nRegards\n\nRamesh Babu P','',0,'','14iv4jop',1,0,'',190,0,0),(16990,3860,1,367,0,'201.67.14.15',1155126945,1,0,1,1,1,1,'','To send email with image','it has as to below insert image in the sending of email in the example? \n\n#include \"fivewin.ch\"\n****************\nFUNCTION SendMail\n*****************\nLOCAL oOutLook,oMailItem,oRecip,oAttach\n\noOutLook := TOleAuto():New(\"Outlook.Application\")\n\noMailItem := oOutLook:Invoke(\"CreateItem\", 0)\n\noRecip := oMailItem:Invoke(\"Recipients\")\noRecip:Invoke(\"Add\", \"lara.softhouse@gmail.com\")\noRecip:Invoke(\"Add\", \"cleiton.softhouse@bol.com.br\")\n\noMailItem:Set(\"Subject\", \"Testing e-mail via ole fw\")\n\noMailItem:Set(\"Body\", \"Assunto, referente fatura 0001 no valor de \"+CRLF+ ;\n\"R$ 1.500,00\"+CRLF+CRLF+\"Tudo Informática\"+CRLF)\n\noAttach := oMailItem:Invoke(\"Attachments\")\noAttach:Invoke(\"Add\", \"c:\\autoexec.bat\")\noAttach:Invoke(\"Add\", \"c:\\config.sys\")\n\noMailItem:Invoke(\"Send\")\n\noRecip:End()\noAttach:End()\noMailItem:End()\noOutLook:End()\n\nMsgInfo(\"Mensagem enviado com sucesso !\")\n\nRETURN NIL','',0,'','2krr5y3k',1,0,'',367,0,0),(16991,3861,3,367,0,'201.67.14.15',1155126999,1,0,1,1,1,1,'','To send email with image','it has as to below insert image in the sending of email in the example? \n\n#include \"fivewin.ch\"\n****************\nFUNCTION SendMail\n*****************\nLOCAL oOutLook,oMailItem,oRecip,oAttach\n\noOutLook := TOleAuto():New(\"Outlook.Application\")\n\noMailItem := oOutLook:Invoke(\"CreateItem\", 0)\n\noRecip := oMailItem:Invoke(\"Recipients\")\noRecip:Invoke(\"Add\", \"lara.softhouse@gmail.com\")\noRecip:Invoke(\"Add\", \"cleiton.softhouse@bol.com.br\")\n\noMailItem:Set(\"Subject\", \"Testing e-mail via ole fw\")\n\noMailItem:Set(\"Body\", \"Assunto, referente fatura 0001 no valor de \"+CRLF+ ;\n\"R$ 1.500,00\"+CRLF+CRLF+\"Tudo Informática\"+CRLF)\n\noAttach := oMailItem:Invoke(\"Attachments\")\noAttach:Invoke(\"Add\", \"c:\\autoexec.bat\")\noAttach:Invoke(\"Add\", \"c:\\config.sys\")\n\noMailItem:Invoke(\"Send\")\n\noRecip:End()\noAttach:End()\noMailItem:End()\noOutLook:End()\n\nMsgInfo(\"Mensagem enviado com sucesso !\")\n\nRETURN NIL','',0,'','38di8kq2',1,0,'',367,0,0),(16992,3862,2,52,0,'200.127.195.89',1155127146,1,0,1,1,1,1,'','Como saber si existe un directorio/carpeta?','Amigos,\n\nComo hago para saber si un determinado directorio existe?\n\nGracias.','',0,'','3gkdcxtd',1,0,'',52,0,0),(16993,3757,6,632,0,'201.155.170.251',1155129916,1,0,1,1,1,0,'','','podrias postear el ejemplo de para descarga por q no lo encuentro por ningun lado.\n\n\nte loagradeceria mucho tks.','',0,'','28lpq751',1,0,'',632,0,0),(16994,3855,6,492,0,'201.154.126.49',1155130285,1,0,1,1,1,1,'','','Gracias amigos    <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nRuben, no creo que haya problema en eso, aunque todos sabemos que existen algunas diferencias entre ambos, los ajustes serian pocos.\n\n\nSaludos','',0,'','y0sqcezt',1,0,'',492,0,0),(16995,3830,3,375,0,'84.122.104.133',1155131825,1,0,1,1,1,1,'','','Thanks Evans, I\'ll look at it.','',0,'','2ggdbz58',1,0,'',375,0,0),(16996,3863,2,52,0,'200.127.195.89',1155131962,1,0,1,1,1,1,'','Donde esta DIRCHANGE?','Amigos,\n\nCompilo mi projecto y todo bien, pero cuando voy a linkearlo...\n\n[quote:37ufw7l9]BLINKER : 1115 : D:\\16BITS\\CONFIG.OBJ(CONFIG) : \'DIRCHANGE\' : unresolved external\n\nBLINKER : 0 Warning error(s), 1 Fatal error(s)[/quote:37ufw7l9]\n\nporque ?','',0,'gA==','37ufw7l9',1,0,'',52,0,0),(16997,3862,2,375,0,'84.122.104.133',1155132581,1,0,1,1,1,1,'','','En FW 2.3\n\n[b:1ev40ujx]lIsDir( &lt;cDir&gt; )[/b:1ev40ujx]  devuelve .T. si existe el directorio &lt;cDir&gt; o .F. si no existe. &lt;cDir&gt; debe ir en nombre corto LFN2SFN(cDirLargo). \n\ncDir := \"c:\\Directorio\"\nIF lIsDir(cDir)\ncFile := cDir + \"\\Fichero.Prg\"\nIF FILE(cFile)\nFErase(cFile)\nENDIF\nENDIF\n...\nENDIF\n\nCompletan est a orden:\n\n[b:1ev40ujx]lLFNMkDir()[/b:1ev40ujx]   --&gt;  Crea direcrorio con nombre largo.\n[b:1ev40ujx]lMkFir()[/b:1ev40ujx]  --&gt;  Crea direcrtorio con  Nombre corto.\n\n[b:1ev40ujx]lLFNDmDir()[/b:1ev40ujx]  --&gt;  Borra directorio con nombre largo.\n[b:1ev40ujx]lRMDir()[/b:1ev40ujx]  --&gt;  Borra directorio con nombre corto.\n\nPor si no se ve claro, cada función comienza por una [b:1ev40ujx]L[/b:1ev40ujx] minuscula. Para más información consulta el Manual del FW.','',0,'QA==','1ev40ujx',1,0,'',375,0,0),(16998,3864,3,258,0,'139.165.96.129',1155132741,1,0,1,1,1,0,'','TOleAuto Excel and xharbour','I try to convert a 16 bit to 32 bit application using the Tole Class.\n\nWhen i use oXls:end() , i receive an error message with xharbour and not with clipper  fivewin.\n\nWhat is the instruction to stop the ole connection with excel .\n\nAny idea ?\n\nPhilippe Jacquet','',0,'QA==','3cjkeqnm',1,0,'',258,0,0),(16999,3863,2,2,0,'87.218.146.19',1155132861,1,0,1,1,1,1,'','','Gustavo,\n\nLa función en FW se llama lChDir( cDirName )','',0,'QA==','3l0wjsl3',1,0,'',2,0,0),(17000,3864,3,2,0,'87.218.146.19',1155132951,1,0,1,1,1,1,'','','Philippe,\n\nWhat error do you get ?','',0,'QA==','24mewls1',1,0,'',2,0,0),(17001,3863,2,375,0,'84.122.104.133',1155133421,1,0,1,1,1,1,'','','Dos posibles razones que se me ocurren:\n\n1) Porque [u:16wqnpfk]BLINKER está buscando [/u:16wqnpfk]un comando DIRCHANGE o una función DIRCHANGE en los LIB\'s, DLL\'s y OBJ\'s, [u:16wqnpfk]y no la encuentra[/u:16wqnpfk]. La está buscando porque hay una llamada a esa función en alguno de tus PRG\'s, de forma expresa, o porque sin querer has escrito esa palabra en tu código y no te has dado cuenta (ocurre a vecez).\n\n2) [u:16wqnpfk]Palabra reservada[/u:16wqnpfk]. Tan sólo he encontrado una referencia a DIRCHANGE en el fichero \"Reserved.ch\" en el directorio Include del Clipper. En ese fichero se incluye una serie de palabras reservadas. Significa que has creado una funcion DIRCHANGE y ese nombre de función está reservasdo y no puedes utilizarlo en tus programas.','',0,'AQ==','16wqnpfk',1,0,'',375,0,0),(17002,3864,3,258,0,'139.165.96.129',1155133706,1,0,1,1,1,0,'','','Antonio,\nHere is the error message :\n\nIt is the end instruction that cause the problem .\n\nApplication\n===========\n   Path and name: g:\\medical\\dmedi\\apps\\dmi.exe (32 bits)\n   Size: 1,400,320 bytes\n   Time from start: 0 hours 0 mins 17 secs \n   Error occurred at: 09-08-2006, 16:24:01\n   Error description: Error Excel.Application/-1  DISP_E_UNKNOWNNAME: Excel.Application:END\n   Args:\n     [   1] = O   Object\n     [   2] = C   END\n     [   3] = A   { ... }\n\nStack Calls\n===========\n   Called from TOLEAUTO:END(836)\n   Called from OPXLS(965)\n   Called from (b)BIOBIO(38)\n   Called from TBUTTON:CLICK(0)\n   Called from TBUTTON:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from SENDMESSAGE(0)\n   Called from TDIALOG:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TDIALOG:HANDLEEVENT(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from BIOBIO(40)\n   Called from (b)VPAT(202)\n   Called from TBUTTON:CLICK(0)\n   Called from TBUTTON:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from SENDMESSAGE(0)\n   Called from TDIALOG:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TDIALOG:HANDLEEVENT(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from VPAT(213)\n   Called from (b)MAIN(72)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(72)\n\nSystem\n======\n   CPU type: Intel Pentium IV 1800 Mhz\n   Hardware memory: 256 megs\n\n   Free System resources: 0 %\n        GDI    resources: 0 %\n        User   resources: 0 %\n\n   Compiler version: xHarbour build 0.99.2 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TOLEAUTO:END\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    O    Class: TOLEAUTO\n     Local  11:    C    \"END\"\n     Local  12:    L    .T.\n     Local  13:    U    \n     Local  14:    C    \"DISP_E_UNKNOWNNAME\"\n     Local  15:    N    0\n     Local  16:    C    \"\"\n     Local  17:    O    Class: ERROR\n   OPXLS\n     Param   1:    C    \"N\"\n   (b)BIOBIO\n   TBUTTON:CLICK\n     Local   1:    O    Class: TBUTTON\n   TBUTTON:HANDLEEVENT\n     Param   1:    N    2048\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TBUTTON\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    2048\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    17\n     Local   1:    O    Class: TBUTTON\n   SENDMESSAGE\n     Param   1:    N    1835636\n     Param   2:    N    2048\n     Param   3:    N    0\n     Param   4:    N    0\n   TDIALOG:COMMAND\n     Param   1:    N    930\n     Param   2:    N    1835636\n     Local   1:    O    Class: TDIALOG\n     Local   2:    O    Class: TBUTTON\n     Local   3:    N    0\n     Local   4:    N    930\n     Local   5:    N    1835636\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    930\n     Param   3:    N    1835636\n   TDIALOG:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    930\n     Param   3:    N    1835636\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"BIOBIO\"\n     Param   3:    N    720960\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    720960\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   BIOBIO\n     Local   1:    C    \"G:\\GLOBAL\\MEDITEMP\\wdn02.ntx\"\n   (b)VPAT\n   TBUTTON:CLICK\n     Local   1:    O    Class: TBUTTON\n   TBUTTON:HANDLEEVENT\n     Param   1:    N    2048\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TBUTTON\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    2048\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    9\n     Local   1:    O    Class: TBUTTON\n   SENDMESSAGE\n     Param   1:    N    3015054\n     Param   2:    N    2048\n     Param   3:    N    0\n     Param   4:    N    0\n   TDIALOG:COMMAND\n     Param   1:    N    920\n     Param   2:    N    3015054\n     Local   1:    O    Class: TDIALOG\n     Local   2:    O    Class: TBUTTON\n     Local   3:    N    0\n     Local   4:    N    920\n     Local   5:    N    3015054\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    920\n     Param   3:    N    3015054\n   TDIALOG:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    920\n     Param   3:    N    3015054\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"VUEPAT\"\n     Param   3:    N    721020\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    B    {|| ... }\n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    721020\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   VPAT\n     Local   1:    O    Class: TSAY\n     Local   2:    O    Class: TDIALOG\n     Local   3:    O    Class: TWBROWSE\n     Local   4:    O    Class: TWBROWSE\n     Local   5:    C    \"UPN0624       PORTOLAN                 Lino                 24-07-1943 ~ M\n                          =-= Rue de l\'Ancienne Ecole, 44,                                                    \n4030   GRIVEGNEE (LIEGE)                04/367.41.69                              \nOrigine :UPN0624    Upr : 00000586 (0385015H)\nGreffes:26-06-2002  06-10-2004  18-01-2005    -  -        -  -    \n\"\n     Local   6:    A    Len:  114\n     Local   7:    C    \"G:\\GLOBAL\\MEDITEMP\\wdpat02\"\n   (b)MAIN\n     Param   1:    O    Class: TWINDOW\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"NORMAL\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFDBT\n   DBFNTX\n\nDataBases in use\n================\n\n  1:    NOTES                              RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n     2261      10087      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; codpat                             NOTES\n\n     Relations in use\n\n  2:    DICTIO                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n       62        264      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; code                               DICTIO\n\n     Relations in use\n\n  3:    DIAGPAT                            RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n     2376       3792      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; codpat+dtos(date)                  DIAGPAT\n\n     Relations in use\n\n  4: =&gt; PATREC                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n      586      11620      .F.   .F.\n\n     Indexes in use                        TagName\n           codpat                             PATREC\n        =&gt; blanc()                            PATNOM\n           dtos(dtn)                          PATDATE\n           strzero(val(patrec-&gt;upn),4)        PATUPN\n           patrec-&gt;matchu                     PATCHU\n\n     Relations in use\n\n  5:    WDPAT                              RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          1      .F.   .F.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\n  6:    WDC                                RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          0      .T.   .T.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\n  7:    WDN                                RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          0      .T.   .T.\n\n     Indexes in use                        TagName\n        =&gt; WDN-&gt;DATE                          WDN02\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TDIALOG\n     5 TBRUSH\n     6 TCONTROL\n     7 TGET\n     8 GET\n     9 TCLIPGET\n    10 TBUTTON\n    11 TFONT\n    12 TMENU\n    13 TMENUITEM\n    14 TFILE\n    15 TTXTFILE\n    16 TSAY\n    17 TWBROWSE\n    18 TSCROLLBAR\n    19 TSTRUCT\n    20 TLISTBOX\n    21 TOLEAUTO\n    22 ERROR\n\nMemory Analysis\n===============\n      171 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','kb2psg2z',1,0,'',258,0,0),(17003,3865,3,258,0,'139.165.96.129',1155134298,1,0,1,1,1,0,'','Forms and data entry','A customer ask me if it is possible to emplement a form  Word or Pdf \nin other to view or modify records of databases.\n\nThe scheme should be to have a submit button in the form and when the user press it , the records should be modified in the databases.\n\nAny idea ??','',0,'','c7ufwfo5',1,0,'',258,0,0),(17004,3861,3,367,0,'201.34.215.203',1155134687,1,0,1,1,1,1,'','','please','',0,'','3fke2kmi',1,0,'',367,0,0),(17005,3855,6,110,0,'165.98.169.198',1155134934,1,0,1,1,1,1,'','','Excelente raymundo. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'','j39r1fka',1,0,'',110,0,0),(17006,3842,3,303,0,'72.199.41.171',1155135553,1,0,1,1,1,0,'','','Williams,\n\nI have reviewed my notes on this topic from some time back when Enrico and I had a discussion about this. There are some differences between Recordsets and DBFs that may be hard to deal with.\n\nWhen you browse a DBF, the browse reads just enough records to fill the screen. If you browse a Recordset you need to read the entire recordset into memory before you can start the browse. This will be a problem with large files. The alternative is to write more complicated routines that only read enough records into the recordset to fill the browse. However, the SQL langugage must support starting at a given record and the LIMIT clause to limit how many records are read into the set.\n\nAnother issue is that only some SQL languages support indexes and you need indexes to do a seek.\n\nSome SQL languages do not support the absolutePosition property of recordsets. Without this, we cannot simulate the recno() of a DBF.\n\nSo, it seems although it is possible to write a recordset class that comes very close to simulating the TDatabase class, there are a few issues that will be very difficult to deal with without writing conditional code in the application. Also, there are things that can be done with recordsets that cannot be done (easily) with DBFs so you limit yourself to not programming for recordsets.\n\nJust a few thoughts on the topic.\n\nJames','',0,'','2nsltp0s',1,0,'',303,0,0),(17007,3401,6,110,0,'165.98.169.198',1155135842,1,0,1,1,1,1,'','','se puede modificar el xmate para que utilize el porc.exe en lugar del brc32.exe de borland.\n\npara la compilacion de rc creados por el ide de pellesc\n\nen las opciones:\nEntorno de desarrollo.\nLinkeador.\nComando de compilacion de recursos.\n\nreeplaza\n[code:30a0bhf4]\n%C_BIN_INSTALL%\\Brc32&#46;Exe -r  -fo%RES%  %RC%\n[/code:30a0bhf4]\npor\n[code:30a0bhf4]\nd&#58;\\pelles\\porc&#46;Exe -I%C_BIN_INSTALL%\\include -r  -fo%RES%  %RC%\n[/code:30a0bhf4]\n\ny listo\n\nsalu2\ncarlos vargas','',0,'AIA=','30a0bhf4',1,0,'',110,0,0),(17008,3715,17,375,0,'84.122.104.133',1155135886,1,0,1,1,1,1,'','','You are right James. I know it. But WBrowe use ::bSkip in its SetFilter method, then you couldn\'t use it with filters and/or scopes.\n\nHowever, if you want to use it, look that ::bSkip is evaluated in the Skip() method, then you should control all the skips mouvements of the browse, because all mouvements methods call ::Skip( x ) one or [u:1rb8mjom]more times[/u:1rb8mjom] and continue without noticing a posible ::Skip\'s return value.\n\n:bPreChange .and. ::lContinue would be exclusive to skipper events. I think.','',0,'AQ==','1rb8mjom',1,0,'',375,0,0),(17009,3853,6,110,0,'165.98.169.198',1155136349,1,0,1,1,1,1,'','','por experiencia que he tenido [x]harbor+fwh en manejos de tablas en mucho mas rapido en 32 bits que en 16 bits. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\ndonde es mas rapido el 16 bits es en la salida de datos en aplicaciones modo consola. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> ahi [x]harbour solito es donde pierde. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\nefectivamente el caso de los filtro con los rdd nativos se manejan de una forma mas lenta. pero cuando se usa el rdd ads (en modo local) los filtros son mucho mas rapidos que en el rdd nativo.\n\nuna sugerencia es que utilices los scope para realizar filtros a las tablas, de esta forma la seleccion es muchismo mas rapida.\n\nsalu2\ncarlos vargas','',0,'','1sdc6m25',1,0,'',110,0,0),(17010,3863,2,52,0,'200.127.195.89',1155137337,1,0,1,1,1,1,'','','Gracias a ambos','',0,'','18sk5eqn',1,0,'',52,0,0),(17011,3715,17,303,0,'72.199.41.171',1155138445,1,0,1,1,1,0,'','','Manuramos,\n\n&gt;You are right James. I know it. But WBrowe use ::bSkip in its SetFilter method, then you couldn\'t use it with filters and/or scopes.\n\nI see. I don\'t use those, I use ordScope() and dbsetFilter() instead. I don\'t know if there is some advantage to using the ones in TWBrowse. I think those were originally developed because NTXs didn\'t have scopes, but now they do.\n \nJames','',0,'','dn2f3vuu',1,0,'',303,0,0),(17012,3401,6,665,0,'196.40.88.36',1155139092,1,0,1,1,1,0,'','Manuales de Pelles','Estimado Amigo\n\nEsta en tres descargas  y  esta amedia paguina asi que echale un ojo  y buscar manuales Xmate\n\nExistos\nBusmatic','',0,'','16gt4nvo',1,0,'',665,0,0),(17013,3866,6,9,0,'85.59.74.20',1155139578,1,0,1,1,1,1,'','Error al grabar registro','Comento el tema por si a alguien le ha sucedido y me puede ayudar:\n\nUna aplicación que usan muchos usuarios independientes, en uno de ellos tengo el siguiente poblema:\n\nAl modificar los datos de un registro utilizando DATABASE, al grabarlo, lo hace en otro registro diferente \"machacando\" los datos y conservando el registro original sin cambios. El ordenador en cuestión es nuevo y con memoria potente. Tiene un procesador AMD.\n\n¿Alguna idea?','',0,'','3u2lawzs',1,0,'',9,0,0),(17014,3856,6,138,0,'201.128.111.188',1155140172,1,0,1,1,1,1,'','','Es el mismo codigo fuente para 16 y 32 bits, debe funcionarte la de clipper sin problema','',0,'','yn2l5hvz',1,0,'',138,0,0),(17015,3867,7,57,0,'83.53.65.50',1155140249,1,0,1,1,1,1,'','HB_Zipfile. ¿Es posible con FWPPC?','Antonio\nVeo que no está incluida la libreria HB_Zip. ¿Es posible incluirla o existe alguna forma de comprimir/descomprimir ficheros en FWPPC?\n\nSaludos','',0,'','3v7znmdp',1,0,'',57,0,0),(17016,3853,6,9,0,'85.59.74.20',1155140261,1,0,1,1,1,1,'','Re: 16 y 32?','[quote=&quot;leandro&quot;:1cdg91ok]\nSELE MYDBF\nSET FILT TO CONTRO=\"04\"\nDBGOTOP()\nDO WHILE !EOF()\n\n    .......\n \n   SKIP\nENDDO\n[/quote:1cdg91ok]\n\nLeandro,\n\nEn este caso, yo creo que el filtro está fuera de lugar:\n\n1) La base MyDbf debe tener un índice por el campo control\n2) SELE MYDBF\n    SET INDEX TO control\n    IF DBSEEK (\"O4\")\n        WHILE mydbf-&gt;CONTROL = \"04\"\n             .......\n \n             DBSKIP()\n        ENDD\n     ELSE   // opcional\n         ALERT (\"PONES LO QUE QUIERAS\")\n     ENDI','',0,'gA==','1cdg91ok',1,0,'',9,0,0),(17017,3853,6,228,0,'201.245.243.139',1155140501,1,0,1,1,1,1,'','','Amigos de foro muchas gracias por las respuestas...\n\nPero... y perdonen la ignorancia... la verdad nunca he usado los scopes ... alguien me puede regalar un ejemplillo. De antemano gracias.','',0,'gA==','2qo9dnxo',1,0,'',228,0,0),(17018,3864,3,9,0,'85.59.74.20',1155140773,1,0,1,1,1,1,'','Re: TOleAuto Excel and xharbour','[quote=&quot;jacquet philippe&quot;:3u2f02va]oXls:end() \n[/quote:3u2f02va]\n\nIn xHarbour you don´t need to use  \'oXls:End()\'.-','',0,'gA==','3u2f02va',1,0,'',9,0,0),(17019,3853,6,9,0,'85.59.74.20',1155141288,1,0,1,1,1,1,'','','[quote=&quot;leandro&quot;:rfuwk3bm]Amigos de foro muchas gracias por las respuestas...\n\nPero... y perdonen la ignorancia... la verdad nunca he usado los scopes ... alguien me puede regalar un ejemplillo. De antemano gracias.[/quote:rfuwk3bm]\n\nSeguramente al escribir tu ultimo mensaje, no has leido el mio (lo hemos escrito practicamente al unísono).\n\n¿Los indices que usas son ntx ó cdx?','',0,'gA==','rfuwk3bm',1,0,'',9,0,0),(17020,3867,7,2,0,'87.218.146.29',1155141322,1,0,1,1,1,1,'','','Toni,\n\nDe momento no, ya que esa librería -que sepamos- sólo funciona con xharbour, y FWPPC usa Harbour <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gA==','21g0fgtf',1,0,'',2,0,0),(17021,3868,6,376,0,'200.48.79.246',1155141953,1,0,1,1,1,0,'','Final codigo para compactar archivos - ejemplo 4','A todos los del foro.\n\nSolucionado el tema de evitar la duplicación de archivos contenidos en el compacto. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEspero no hacer más modificaciones porque para mí cumple lo que necesito (espero que para muchos también). <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEste es el enlace de descarga en HyperUpLoad:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01856efa60/Zipper4.zip.html\">http://hyperupload.com/download/01856ef ... 4.zip.html</a><!-- m -->\n\nComo siempre vale recordarles que si le hacen mejoras lo compartan en el foro y conmigo directamente a mi correo \n\n<!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e -->\n\nSaludos a todos\n\nArmando','',0,'gA==','agmgx5cz',1,0,'',376,0,0),(17022,3866,6,376,0,'200.48.79.246',1155143053,1,0,1,1,1,0,'','','Es posible que tengas un problema de índices. Trata de recrearlos nuevamente o que se regeneren automáticamente cuando se borren.\n\nHasta ahora no utilizo DATABASE porque no le tengo muchísima confianza.\n\nSaludos\n\nArmando','',0,'gA==','l2vd2dka',1,0,'',376,0,0),(17023,3867,7,57,0,'83.53.65.50',1155143565,1,0,1,1,1,1,'','','Ok Antonio.\n\n¿¿Está prevista su implementación?? \n\nSaludos','',0,'gA==','2750q810',1,0,'',57,0,0),(17024,3766,6,376,0,'200.48.79.246',1155143985,1,0,1,1,1,0,'','','He intentado hacer algo con la herramienta de Patrick. La dificultad que tuve fue ver que el codigo generado se apoya casí en su totalidad en objetos (desde el arranque) al cual no estoy acostumbrado y se me hacía bastante trabajoso seguir el \"rastro\" de lo que hace la harramienta.\n\nPor ahí alguíen comentó que veníamos de clipper en donde se utilizaba poco el objeto y yo soy uno de esos... Así que por eso todo lo dejé en el intento y nada más.\n\nArmando','',0,'gA==','1su1dfhd',1,0,'',376,0,0),(17025,3867,7,57,0,'83.53.65.50',1155144033,1,0,1,1,1,1,'','','Antonio\nEs importante su uso por la siguiente razón. \n\nEs muy frecuente que usuarios de PPC envien o reciban ficheros utilizando una conexión GPRS y el tamaño de los ficheros enviados y por tanto el coste de la comunicación aumenta considerablemente.\n\nHe estado buscando por internesss alguna aplicación que des/comprima pero que admita su llamadas mediante linea de comandos al estilo ARJ.EXE pero no he encontrado nada. Como última alternativa me quedaba el incluirlo en mi aplicación. \n\nSaludos','',0,'gA==','2acss3ah',1,0,'',57,0,0),(17026,3842,3,286,0,'201.243.176.207',1155144043,1,0,1,1,1,1,'','','James \n\nI\'m completely agree with you: the SQL databases programming and DBF databases programming are very different. My experience in this area comes from the business application programming for the internet using PHP, Javascript and MySQL.\n\nFirst thing it is necessary to take in mind is though the index concept exists in the SQL model, the database engine is the one who tries the consultation and returns the results doing an optimal use of the database and this one depends of the user design.\n\nI think to focus the development of the application with the browse concept is not the right way for the reasons you comment, in fact, on the majority of web sites the programmer meet obliged to use pagination techniques in order to show sets of information in a grid. On the other hand in a SQL table there does not exist the definition of record number like we know in DBF. If the user needs to do a search he must use a criterial sufficiently clear in order that he obtains the awaited results.\n \nFor example in DBF model (using TDatabase) we do something like this assuming that exists an active and indexed field \'name\' \n[code:340hjfky]database oDbf\noDbf&#58;Seek&#40;\'Williams\'&#41;\nMsgInfo&#40;oDbf&#58;name&#41;[/code:340hjfky]\nBut in SQL we do this\n[code:340hjfky]cSQLCommand &#58;= &quot;SELECT name FROM users WHERE name=\'Williams\'&quot;\noQry &#58;= tAdoRs&#40;&#41;&#58;New&#40;&#41;\noQry&#58;Open&#40; cSQLCommand, &#58;&#58;oConexion&#58;oConnection &#41;\noQry&#58;oRs&#58;MoveFirst&#40;&#41;\nMsgInfo&#40;oQry&#58;oRs&#58;Fields&#40;0&#41;&#58;value&#41;[/code:340hjfky]\nThe difference between both codes is the SQL recordset may returns too many \"records\" and we meet obliged to limit the result, lucky MySQL and SQL SERVER supports the LIMIT.\n\nAs I said originally, I know is complicated and probably it won\'t have the whole function that TDatabase has but the user must know that both models are different and therefore in his application he will not have to use any concepts that before he was accustoming\n\nRegards\nWilliams','',0,'AIA=','340hjfky',1,0,'',286,0,0),(17027,3866,6,46,0,'217.168.114.237',1155144180,1,0,1,1,1,0,'','','Si por algun motivo el puntero a la base de datos se mueve... por ejemplo se pinta un browse conectado a la Base de datos..Cuando le des ::Save() en la clase DATABASE, pues te va a grabar en el puntero actual.\nComo haces la edicion del registro??\n\nSaludos','',0,'AIA=','19qdu9q9',1,0,'',46,0,0),(17028,3869,7,720,0,'80.36.244.134',1155146746,1,0,1,1,1,0,'','Busqueda por aproximación en una dbf','Hola a todos.\n\nEste es mi primer post... asi que en próximos espero ser de más ayuda. Explico un poco lo que estoy haciendo.. Me he creado un browse (o grid) en donde muestro todos los registros de una tabla. Lo que pretendo es posicionarme en un registro en concreto para mostrar todos sus campos dependiendo de un valor que se introduzca, puede ser una letra,una palabra o parte de ella, es decir, una busqueda por medio de una cadena de caracteres. En VFP existe seek() pero aqui no se como hacerlo. Si alguien puede indicarme como....\n\n\nUn saludo a todos y gracias.','',0,'AIA=','pwdzyo9i',1,0,'',720,0,0),(17029,3867,7,2,0,'87.218.146.29',1155147132,1,0,1,1,1,1,'','','Toni,\n\nVamos a revisar hbzip a ver si se puede adaptar a Harbour.','',0,'AIA=','fv8pu78v',1,0,'',2,0,0),(17030,3870,2,52,0,'200.127.195.89',1155148765,1,0,1,1,1,1,'','Exception error 0D: gneral protection fault ? y esto?','amigos,\n\ncompilar pude, pero al querer linkear en mi notebook no pude, miren lo que me tira.\n\nAlguna Ayuda?\n[url=http&#58;//img417&#46;imageshack&#46;us/my&#46;php?image=dibujoey2&#46;jpg:2e8qyulw][img:2e8qyulw]http&#58;//img417&#46;imageshack&#46;us/img417/6008/dibujoey2&#46;th&#46;jpg[/img:2e8qyulw][/url:2e8qyulw]','',0,'GA==','2e8qyulw',1,0,'',52,0,0),(17031,3870,2,2,0,'87.218.146.29',1155151256,1,0,1,1,1,1,'','','Gustavo,\n\nPrueba a borrar el EXE anterior, si lo tienes, y el fichero BIF (aunque tienes el BLINKER INCREMENTAL OFF), pero por si acaso.','',0,'GA==','3ue8sf4z',1,0,'',2,0,0),(17032,3842,3,343,0,'204.57.111.194',1155152740,1,0,1,1,1,0,'','','Have you looked at the RDD drivers for SQL databases? I don\'t know how they handle the cursor in the dataset or other stuff but there seems to be a few people using them.\n\nIf they work as advertised then tdatabase might work without much change.','',0,'GA==','3q2xc8mb',1,0,'',343,0,0),(17033,3871,3,486,0,'200.184.85.3',1155158075,1,0,1,1,1,0,'','BUTTONBAR','Hi,\n\nHow do I do to change the image of the button?\n\n[img:1cmm1sr5]http&#58;//www&#46;mpc&#46;com&#46;br/sysfar/teste/obar&#46;jpg[/img:1cmm1sr5]\n\nClemerson','',0,'CA==','1cmm1sr5',1,0,'',486,0,0),(17034,3842,3,286,0,'201.243.176.207',1155159153,1,0,1,1,1,1,'','','No I haven\'t. \nI will check\n\nThanks','',0,'CA==','2cv45211',1,0,'',286,0,0),(17035,3853,6,228,0,'201.245.234.82',1155168222,1,0,1,1,1,1,'','cdx','Amigo uso indices CDX...\n\nGracias','',0,'CA==','3iqss8py',1,0,'',228,0,0),(17036,3853,6,492,0,'201.154.126.49',1155169135,1,0,1,1,1,1,'','','Leandro\n\nComo te comentan los demas compañeros, debes tener la base indexada sobre los campos que vas a aplicar el scope, ya despues aplicas esto :\n\n0 -&gt; inicio del rango\n1 -&gt; final del rango\n\no a lo que es igual a decir desde-hasta  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\n// Para Activar el scope\nPAQSDET-&gt;( OrdScope( 0, Str( nPaq2Set, 4 ) ) )\nPAQSDET-&gt;( OrdScope( 1, Str( nPaq2Set, 4 ) ) )\nPAQSDET-&gt;( DbGoTop() )\n\n// Para desactivarlo\nPAQSDET-&gt;( OrdScope( 0, NIL ) )\nPAQSDET-&gt;( OrdScope( 1, NIL ) )\nPAQSDET-&gt;( DbGoTop() )\n\n\nEs importante que al final lo desactives, si no, tu sistema va a \"ver\" solo los registros que apliquen al ultimo scope activado y sobre todo la llave del indexado debe ser identica al del scope.\n\nEspero te sirva\n\nSaludos','',0,'CA==','337ge601',1,0,'',492,0,0),(17037,3856,6,305,0,'190.40.13.195',1155173865,1,0,1,1,1,0,'','','alguien pudo enviar archivos anexos al mensaje (tipo .xls o .jpg) con esta clase?.  Estuve intentando algunos ejemplos sin exito.  Llegan los mensajes con los anexos pero con tamaño cero.   Si alguien sabe algun tip se agradece.\n\nSaludos\n\nRalph','',0,'CA==','3ubn20s9',1,0,'',305,0,0),(17038,3871,3,2,0,'87.218.146.29',1155184836,1,0,1,1,1,1,'','','Clemerson,\n\noButtonBar:aControls[ 3 ]:FreeBitmaps()\noButtonBar:aControls[ 3 ]:LoadBitmaps( &lt;cResName&gt;,, [&lt;cBmpFile&gt;] )\noButtonBar:aControls[ 3 ]:Refresh()','',0,'','341jjbrc',1,0,'',2,0,0),(17039,3872,6,431,0,'200.8.34.156',1155187370,1,0,1,1,1,1,'','prnstat','alguien a podido poner a funcionar a PRNSTAT siempre lanza 4096 STATUS_NOT_AVAILABLE o tengo otra forma en harbour de simular la isprinter() \nagradezco la ayuda.','',0,'','3phskq8q',1,0,'',431,0,0),(17040,3873,6,694,0,'200.181.206.221',1155187585,1,0,1,1,1,1,'','Ordenar as Orelhas do FOLDER','Ola amigos, é possível ordenar as ORELHAS de um FOLDER para tras?\n\nex:\n\n\"PRODUTOS\" \"FORNECEDOR\" \"GRUPOS\" \"MARCAS\"\n\n\nGOSTARIA ASSIM:\n\n \"GRUPOS\"       \"MARCAS\"\n\"PRODUTOS\" \"FORNECEDOR\"\n\nMuito obrigado a todos\nfiquem com DEUS.','',0,'','3n53k3wo',1,0,'',694,0,0),(17041,3874,6,694,0,'200.181.206.221',1155187766,1,0,1,1,1,1,'','Antonio Linares estou com duvidas nestas linhas','Antonio, estou com dúvidas nestas linhas:\n\n#pragma BEGINDUMP\n#include \"hbapi.h\"\n#include \"hbapiitm.h\"\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\nreturn pDynSym-&gt;pSymbol;\n}\n#pragma ENDDUMP\n\n\nO QUE SÃO ESTAS LINHAS?\n\nFIQUE COM DEUS\n\n<!-- e --><a href=\"mailto:aokisantos@pc.pr.gov.br\">aokisantos@pc.pr.gov.br</a><!-- e -->','',0,'','2w8i77fc',1,0,'',694,0,0),(17042,3875,6,439,0,'190.0.134.88',1155189532,1,0,1,1,1,1,'','Levantar archivo de Texto Delimitado','Hola a todos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNecesito levantar información de una aplicación que solo comparte sus datos mediante archivos planos de este formato:\n\n\"1235;0;Jose;4250;0;12/05/2006;10\"\n\"124;45;Antonio;301;12;21/04/2005;8\"\n\ny necesito descomponerlo en strings para guardarlos en 7 campos de texto de 40 caracteres de una base de datos.\ncada linea esta separada por un enter y seria un registro, cada texto\nentre \";\" es un campo.\n\nHe tratado de levantarlo con append blank delimited sin el resultado esperado, espero cualquier ayuda. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nGracias desde ya','',0,'','7x5p4ils',1,0,'',439,0,0),(17043,3867,7,2,0,'87.218.146.76',1155192543,1,0,1,1,1,1,'','','Toni,\n\nHemos conseguido construir hbzip para xHarbour usando Microsoft VC2003. Pero no hay forma de construirlo usando VCE. Da un montón de errores de ficheros de cabecera de C++, que posiblemente sólo Microsoft podría solucionar. La página web del desarrollador de la librería es <!-- w --><a class=\"postlink\" href=\"http://www.artpol-software.com\">www.artpol-software.com</a><!-- w --> y no tiene versión para Windows Mobile <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> Le hemos enviado un email preguntándole, por si acaso.\n\nLa única solución de momento que se nos ocurre es que llamases a alguna utilidad externa en el Pocket PC que construyese el fichero ZIP, haciendo un WinExec() ó WaitRun().\n\nDe todas formas, seguimos buscando.','',0,'','1daruuoy',1,0,'',2,0,0),(17044,3874,6,2,0,'87.218.146.76',1155192854,1,0,1,1,1,1,'','','AOKISANTOS,\n\nEsas líneas implementan la función hb_dynsymSymbol() en las versiones de xHarbour que no la tienen. FWH usa esa función.','',0,'','3tzqjewx',1,0,'',2,0,0),(17045,3867,7,2,0,'87.218.146.76',1155193437,1,0,1,1,1,1,'','','Toni,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.resco.net/developer/ziplibrary/\">http://www.resco.net/developer/ziplibrary/</a><!-- m -->  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','19jxegou',1,0,'',2,0,0),(17046,3875,6,492,0,'201.154.126.49',1155196177,1,0,1,1,1,1,'','','Hola Jose\n\nTengo algo parecido, creo que con algunos ajustes te puede servir :\n\noTxtFil := TTxtFile():New( TuArchivo.TXT )\noMetRec:SetPos(0)\noMetRec:SetRange( 0, oTxtFil:RecCount() )\nTuBase-&gt;( DbZap() )\nFOR nQ := 1 TO oTxtFil:RecCount()\n    cStrLine := oTxtFil:ReadLine()\n\n    // Ya que tienes el contenido de una linea, hay que volcarlo en variables\n    // o en un arreglo\n    // en un post de hace poco, lei que con StrToken lo puedes hacer\n    // yo no lo he usado, pero yo lo he hecho con un FOR...NEXT\n\n    aDts := {}\n    cStrX := \"\"\n    For nW := 1 TO Len( cStrLine )\n        IF SubStr( cStrLine, nQ, 1 ) == \";\"\n            AaDd( aDts, cStrX )\n            cStrX := \"\"\n        ELSE\n            cStrX += SubStr( cStrLine, nQ, 1 )\n        ENDIF\n    NEXT\n  \n    // Y Vaciamos el arreglo en la base\n    TuBas-&gt;( DbAppend() )\n    TuBase-&gt;XCampo := aDts[1]\n    ..\n    ..\n\n    oMetRec:SetPos( nQ )\n    oTxtFil:Skip()\nNEXT\noTxtFil:Close()\nTuBase-&gt;( DbCommit() )\n\n\nEspero te sirva\n\n\nSaludos','',0,'','3s18kxcm',1,0,'',492,0,0),(17047,3855,6,492,0,'201.154.126.49',1155196742,1,0,1,1,1,1,'','','Hola a todos\n\nAqui les dejo el link de la ultima version, ya esta practicamente terminado, salvo algun \"conejo\" que brinque que se me haya escapado  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEspero lo puedan testear un poco y me den sus opiniones y/o sugerencias\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02acee7c90/iBackUp.zip.html\">http://hyperupload.com/download/02acee7 ... p.zip.html</a><!-- m -->\n\n\nSaludos','',0,'','2g08pa6m',1,0,'',492,0,0),(17048,3875,6,439,0,'190.0.138.69',1155197019,1,0,1,1,1,1,'','','Gracias Master!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nFelicitaciones por tu iBackup, buenísimo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','1s3pjt3a',1,0,'',439,0,0),(17049,3875,6,492,0,'201.154.126.49',1155197679,1,0,1,1,1,1,'','','Muchas Gracias Jose  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nOjala y lo puedas probar a conciencia, como comente, es algo que levante en unos dias por ratos  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nSi te sirvio el codigo para tu archivo de texto ?\n\n\nSaludos','',0,'','32srsa7k',1,0,'',492,0,0),(17050,3867,7,20,0,'87.7.212.146',1155199106,1,0,1,1,1,0,'','','Toni,\n\nsee also\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpccontrols.com/controls/compZip/\">http://www.pocketpccontrols.com/controls/compZip/</a><!-- m -->\n\nRegards\n\nPier Luigi','',0,'','2so8qtcs',1,0,'',20,0,0),(17051,3875,6,439,0,'190.0.138.69',1155200720,1,0,1,1,1,1,'','','El codigo lo estaré probando entre hoy y mañana, en cuanto lo haga, te cuento.\n\nGracias por tus aportes!!!!!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1i4ylyha',1,0,'',439,0,0),(17052,3867,7,57,0,'83.53.65.50',1155205392,1,0,1,1,1,1,'','','Gracias Antonio / Pier\n\nSaludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','11e1hm7l',1,0,'',57,0,0),(17053,3867,7,2,0,'87.218.146.89',1155213722,1,0,1,1,1,1,'','','Toni,\n\nEsta parece muy interesante y es libre! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcdn.com/libraries/zlib.html\">http://www.pocketpcdn.com/libraries/zlib.html</a><!-- m -->','',0,'','391g6vrj',1,0,'',2,0,0),(17054,3872,6,632,0,'201.155.170.251',1155216227,1,0,1,1,1,0,'','Re: prnstat','Si es una funcion muy necesaria ya q trabajo con la plataforma de windows 2000 y xp.\n\nsiemepre manda ese codigo de error.\n\nHeeeeeeelllllllllllllllllllpppppppppppppp!!!!!!!!!!!!!','',0,'','1h6sjlv1',1,0,'',632,0,0),(17055,3876,3,49,0,'62.13.172.78',1155220218,1,0,1,1,1,1,'','fiscal printer class','Where I can download this class ?\nI must link with olivetti fiscal printer or Hugin Maxima \nRegards','',0,'','12qfpfwo',1,0,'',49,0,0),(17056,3861,3,367,0,'201.40.27.239',1155221215,1,0,1,1,1,1,'','','Help, please !!!','',0,'','3e7mrlsz',1,0,'',367,0,0),(17057,3875,6,9,0,'85.54.224.198',1155221391,1,0,1,1,1,1,'','Re: Levantar archivo de Texto Delimitado','[quote=&quot;jose_murugosa&quot;:2x166287]\nHe tratado de levantarlo con append blank delimited sin el resultado esperado[/quote:2x166287]\n\nJose Antonio, \n\nNo es Append Blank, sino APPEND FROM ....\n\nA mi me funciona perfecto. \n\nEn tu ejemplo quizas no funcione, porque el campo fecha tiene que tener el formato aaammdd.\n\nEn ese caso, yo tengo una base de datos provisional, con un solo campo, con un ancho de 256 caracteres. \n\nUse provisional\nAPPE FROM (cFichero) SDF\n\nCon esto, ya tengo todos los registros en Provisional.- Luego desde este base, con un WHILE/ENDD los voy añadiendo a la base que quiero, con SUBS y AT','',0,'gA==','2x166287',1,0,'',9,0,0),(17058,3856,6,138,0,'201.128.111.188',1155224770,1,0,1,1,1,1,'','','Con la clase TSmtp original de FW no se puede, todos los archivos anexos te los trata como si fueran textos, debes utilizar la clase modificada por Luis Krause','',0,'gA==','11okbl5g',1,0,'',138,0,0),(17059,3877,3,330,0,'217.37.54.49',1155225429,1,0,1,1,1,0,'','GIS in apps','Hi all\n\nHas anyone done any work with integrating GIS within a FW app\n\nAny odeas would be useful\n\nThanks\nPeter','',0,'gA==','3vt6qnkb',1,0,'',330,0,0),(17060,3872,6,2,0,'87.218.146.250',1155227445,1,0,1,1,1,1,'','','Ambos Harbour y xHarbour implementan IsPrinter( &lt;puerto&gt; ). \n\n¿ La habeis probado ?','',0,'gA==','dh0a9onr',1,0,'',2,0,0),(17061,3873,6,2,0,'87.218.146.250',1155227552,1,0,1,1,1,1,'','','AOKISANTOS,\n\nDe momento FWH no implementa varias filas de pestañas en los folders.','',0,'gA==','2n8o2hsx',1,0,'',2,0,0),(17062,3861,3,455,0,'195.97.105.161',1155228064,1,0,1,1,1,0,'','Re: To send email with image','[quote=&quot;Kleyton&quot;:hnpkik9i]it has as to below insert image in the sending of email in the example? \n\n#include \"fivewin.ch\"\n****************\nFUNCTION SendMail\n*****************\nLOCAL oOutLook,oMailItem,oRecip,oAttach\n\noOutLook := TOleAuto():New(\"Outlook.Application\")\n\noMailItem := oOutLook:Invoke(\"CreateItem\", 0)\n\noRecip := oMailItem:Invoke(\"Recipients\")\noRecip:Invoke(\"Add\", \"lara.softhouse@gmail.com\")\noRecip:Invoke(\"Add\", \"cleiton.softhouse@bol.com.br\")\n\noMailItem:Set(\"Subject\", \"Testing e-mail via ole fw\")\n\noMailItem:Set(\"Body\", \"Assunto, referente fatura 0001 no valor de \"+CRLF+ ;\n\"R$ 1.500,00\"+CRLF+CRLF+\"Tudo Informática\"+CRLF)\n\noAttach := oMailItem:Invoke(\"Attachments\")\noAttach:Invoke(\"Add\", \"c:\\autoexec.bat\")\noAttach:Invoke(\"Add\", \"c:\\config.sys\")\n\noMailItem:Invoke(\"Send\")\n\noRecip:End()\noAttach:End()\noMailItem:End()\noOutLook:End()\n\nMsgInfo(\"Mensagem enviado com sucesso !\")\n\nRETURN NIL[/quote:hnpkik9i]\n\nKleyton,\nI can\'t really offer much of an advise, and don\'t even understand exactly the problem you have. \nAt a glance of an eye based only on programming knowledge, is one thing:\nYou End() the oRecip, the oAttach, and the oMailItem, after you \"Send\" the message.  Perhaps, this might be a good reason for non working.\n\nSorry if I cannot help you more, but if you tell me what the problem is, I might look at it.\n\nBy the way, I do not use emailing through Outlook or Netscape or any other available emailer program, but a library that I have purchased, which gives me all the flexibility to send/receive, etc. emails with attachments. It is called SMTP / POP3 EMAIL COMPONENT, and is available from &lt;www.marshallsoft.com&gt;, also it is available for evaluation before you buy it, and is very easy to use!\n\nKind regards\nEvans','',0,'gA==','hnpkik9i',1,0,'',455,0,0),(17064,3817,3,335,0,'68.193.88.53',1155228329,1,0,1,1,1,0,'','','Randall,\n\nI found that the problem is with the default RbuttonDown() menu, which TGEt uses, and which TMultiget does not (Mget.prg).  The default RbuttonDown() edit menu does not use the Tget:Paste() method, so the problem is not there.\n\nI found that by coping TGet.prg from FWH\\Source to my app directory, and then coping and adapting the RButtondown() method from Mget.prg into Tget.prg, and then by linking in the revised Tget.prg, I was able to solve the problem.\n\n- Roger','',0,'gA==','wgo6srln',1,0,'',335,0,0),(17065,3871,3,455,0,'195.97.105.161',1155228668,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3evh9zyx]Clemerson,\n\noButtonBar:aControls[ 3 ]:FreeBitmaps()\noButtonBar:aControls[ 3 ]:LoadBitmaps( &lt;cResName&gt;,, [&lt;cBmpFile&gt;] )\noButtonBar:aControls[ 3 ]:Refresh()[/quote:3evh9zyx]\n\nAntonio/Clemerson\nA similar working approach is in Function Zoom() of RPREVIEW.PRG\n\nKind regards\nEvans','',0,'gA==','3evh9zyx',1,0,'',455,0,0),(17066,3873,6,492,0,'201.154.126.49',1155229210,1,0,1,1,1,1,'','','Antonio\n\nSeria fabuloso que clase folder permitiera poner pestañas en varias filas y ya de paso, ( si no es mucho pedir ) que pudieramos poner un icono/bitmap.\n\nQuizas, algo como esto :\n\n\n[img:2ecnz1ml]http&#58;//img143&#46;imageshack&#46;us/img143/4615/mfolderws8&#46;jpg[/img:2ecnz1ml]\n\n\n\nSe que hay algunas modificaciones de otros compañeros que lo hacen, pero si esto fuera por \"default\" en el FWH, estaria super !!!\n\n\nSaludos','',0,'CA==','2ecnz1ml',1,0,'',492,0,0),(17067,3861,3,2,0,'87.218.146.245',1155229300,1,0,1,1,1,1,'','','Kleyton,\n[code:1o1ru72e]\noMailItem&#58;Set&#40; &quot;HTMLBody&quot;, \'&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;img src=&quot;http&#58;//www&#46;fivetechsoft&#46;com/images/logo5t2&#46;gif&quot;&lt;/BODY&gt;&lt;/HTML&gt;\' &#41;\n[/code:1o1ru72e]','',0,'AIA=','1o1ru72e',1,0,'',2,0,0),(17068,3817,3,2,0,'87.218.146.245',1155229814,1,0,1,1,1,1,'','','Roger,\n\nThanks for the tip <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAnyhow, the difference between them is that Class TGet invokes the Windows standard popup menu, meanwhile Class TMultiGet creates it.\n\nOur guess is that we have to properly manage WM_PASTE. We need to do some tests.','',0,'AIA=','2kz7rzip',1,1155230844,'',2,2,0),(17069,3817,3,303,0,'72.199.41.171',1155229946,1,0,1,1,1,0,'','','&gt;I  found that the problem is with the default RbuttonDown() menu, which TGEt uses.\n\nI was confused when I read Roger\'s message, but the \"default RButtonDown menu\" he refers to is apparently a Windows common control. Since TGet is not a standard windows edit control, but rather a Harbour Get contained in a FW TGet class it makes some sense that the standard Windows cut/copy/paste control would not be able to update the FW get control.\n\nI\'m guessing that this very issue is why the MGet menu was written in the first place. The Windows cut/copy/paste menu didn\'t work there either.\n\nSo Roger\'s idea to use the MGet RButtonDown method in TGet does seem like a good solution.\n\nComments Antonio?\n\nJames','',0,'AIA=','njpnhsqo',1,0,'',303,0,0),(17070,3861,3,303,0,'72.199.41.171',1155230253,1,0,1,1,1,0,'','','Kleyton,\n\nWhy not just use FW\'s own TMail class?\n\nJames\n--------------------------------------\nMAPI Mail Syntax:\n\nDEFINE MAIL [ &lt;oMail&gt; ];\n[ SUBJECT &lt;cSubject&gt; ];\n[ TEXT &lt;cText&gt; ];\n[ TYPE &lt;cType&gt; ];\n[ DATE &lt;dDate&gt; ];\n[ TIME &lt;cTime&gt; ];\n[ CONVERSATION &lt;cConversation&gt; ]:\n[ RECEIPT ];\n[ FROM USER ];\n[ FILES &lt;cFilename1&gt; ,&lt;cDescript1&gt;, &lt;cFilenameN&gt;, &lt;cDescriptN&gt; ] ];\n[ ORIGIN &lt;cOrigin&gt; [ &lt;cOriginAddress&gt; ] ];\n[ TO &lt;cTarget1&gt;, [ &lt;cTargetAddress1&gt; ] [ &lt;cTargetN&gt; [ &lt;cTargetAddressN&gt; ] ] ];\n\nFILES\nWhen specifying an attachment file you must include the path and a description. Use a two dimensonal array, the first element is the filename with path, the second is the description. You can have multiple files by adding more elements.\n\naFiles:={\"c:\\my docments\\mydoc.doc\",\"mydoc.doc\"}\n\nIf the attachment file is html (has a .htm or .html extension) and you do not specify any TEXT (a message) then the file will appear in the message area.\n\nERRORS\nIf you specify a TO and the parameter is blank and you are using the FROM USER clause, the message compose box will not appear. Likewise if the filename is invalid or not found. It is best to use an error trap:\n\n   DEFINE MAIL...\n   ACTIVATE MAIL...\n\n   IF oMail:nRetCode!=0\n      MsgAlert(\"The message could not be sent due to an error.\"+CRLF+;\n      \"MAPI error code: \"+ltrim(str(oMail:nRetCode)),\"Alert\")\n   ENDIF','',0,'','q50nury2',1,0,'',303,0,0),(17071,3878,6,37,0,'200.121.242.216',1155230342,1,0,1,1,1,1,'','Reemplazar codigo xHb por Store Procedure en MySQL','Saludos, hace algun tiempo estoy tratando sin resultado reducir la demora de algunos procesos en MySQL y una de las formas sugeridas es programar directamente en la BD, con Store Procedures o Triggers, pero NO SE NADA DE ESO, alguno de ustedes tiene alguna idea de como utilizarlos, o alguna pagina donde existan ejemplos, por ejemplo :\nComo hacer un Bucle (do whil o for next) dentro de un store ???\nMuchas gracias por su atencion','',0,'','h3s2hbsw',1,0,'',37,0,0),(17072,3879,6,362,0,'200.168.52.156',1155230734,1,0,1,1,1,1,'','PARA CARLOS VARGAS','Hi Carlos...  Bién??\n\nPor Favor, necesito ayuda\n\nMira esta nueva Versión del XBACKUPLITE.\n\nNo me funciona el RESTAURADOR...\n\nPuedes Ayudarme??\n\nGracias, Saludos.\n\nMira aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/673Xblite.zip\">http://www.fivewin.com.br/Dicas/673Xblite.zip</a><!-- m -->','',0,'','1cwx49hw',1,0,'',362,0,0),(17073,3817,3,2,0,'87.218.146.225',1155230787,1,0,1,1,1,1,'','','James,\n\nI modified my previous msg. Please review it.','',0,'','1lz7vrsd',1,0,'',2,0,0),(17074,3871,3,303,0,'72.199.41.171',1155230905,1,0,1,1,1,0,'','','Clemerson,\n\nIt looks like you have a button you want in an up or down state. I believe you can define two bitmaps when you define the button, then use the oBtn:toogle() to change the state of the button, and the bitmap will change automatically. I haven\'t tried this (or at least I don\'t remember if I have) <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->.\n\nCheck the manual for the syntax for defining two bitmaps.\n\nJames','',0,'','39tgjc1j',1,0,'',303,0,0),(17075,3860,1,2,0,'87.218.146.225',1155230912,1,0,1,1,1,1,'','','Kleyton,\n[code:7po56u19]\noMailItem&#58;Set&#40; &quot;HTMLBody&quot;, \'&lt;HTML&gt;&lt;HEAD&gt;&lt;/HEAD&gt;&lt;BODY&gt;&lt;img src=&quot;http&#58;//www&#46;fivetechsoft&#46;com/images/logo5t2&#46;gif&quot;&lt;/BODY&gt;&lt;/HTML&gt;\' &#41;\n[/code:7po56u19]','',0,'AIA=','7po56u19',1,0,'',2,0,0),(17076,3817,3,303,0,'72.199.41.171',1155231032,1,0,1,1,1,0,'','','Antonio,\n\nIt seems we were both writing responses at the same time, so I didn\'t see your message before writing mine. Thanks.\n\nJames','',0,'AIA=','1glut3vf',1,0,'',303,0,0),(17077,3871,3,486,0,'200.184.85.3',1155231130,1,0,1,1,1,0,'','','thank you ...\n\nClemerson','',0,'AIA=','3e2ye30v',1,0,'',486,0,0),(17078,3873,6,2,0,'87.218.146.225',1155231146,1,0,1,1,1,1,'','','Raymundo,\n\nLo tenemos a medio terminar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3r8prqrt',1,0,'',2,0,0),(17079,3877,3,303,0,'72.199.41.171',1155231352,1,0,1,1,1,0,'','','Peter,\n\nCheck with Randal Ferguson. I believe he has done some GIS stuff with FWH and Microsoft\'s mapping software (I forget the name).\n\nJames','',0,'AIA=','1ndhe8x4',1,0,'',303,0,0),(17080,3817,3,2,0,'87.218.146.225',1155231547,1,0,1,1,1,1,'','','This looks as a possible valid fix. We appreciate your feedback:\n[code:2nlmexrp]\n#define WM_PASTE           770\n&#46;&#46;&#46;\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TGet\n\n   do case\n      case nMsg == WM_CUT\n           CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_CUT, 0, 0 &#41;\n           &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n           &#58;&#58;oGet&#58;Pos = 1\n           &#58;&#58;oGet&#58;Assign&#40;&#41;\n           return 0\n           \n      case nMsg == WM_PASTE\n           CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PASTE, 0, 0 &#41;\n           &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n           &#58;&#58;oGet&#58;Assign&#40;&#41;\n           return 0\n   endcase\n   \nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;           \n[/code:2nlmexrp]\nMethod RButtonDown() remains unchanged.','',0,'AIA=','2nlmexrp',1,0,'',2,0,0),(17081,3841,6,228,0,'201.244.255.133',1155231562,1,0,1,1,1,1,'','lo mismo pero en xbrowse','Amigos me gustaria hacer lo mismo pero en un xbrowse alguien me puede indicar como hacerlo.','',0,'AIA=','862bwx00',1,0,'',228,0,0),(17082,3873,6,362,0,'200.168.52.156',1155231666,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:7ta9d12c]Antonio\n\nSeria fabuloso que clase folder permitiera poner pestañas en varias filas y ya de paso, ( si no es mucho pedir ) que pudieramos poner un icono/bitmap.\n\nQuizas, algo como esto :\n\n\n[img:7ta9d12c]http&#58;//img143&#46;imageshack&#46;us/img143/4615/mfolderws8&#46;jpg[/img:7ta9d12c]\n\n\n\nSe que hay algunas modificaciones de otros compañeros que lo hacen, pero si esto fuera por \"default\" en el FWH, estaria super !!!\n\n\nSaludos[/quote:7ta9d12c]\n\nHOLA RAYMUNDO... ÉS PERFECTAMENTE POSIBLE, USANDO ESTA CLASSE DE TERCEROS.\n\nMira aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=473\">http://www.fivewin.com.br/exibedicas.asp?id=473</a><!-- m -->','',0,'iA==','7ta9d12c',1,0,'',362,0,0),(17083,3873,6,492,0,'201.154.126.49',1155231772,1,0,1,1,1,1,'','','Excelente Master   !!!\n\nQuedo en la espera del anuncio oficial de ese build, ya que en lo personal uso esta clase en casi todas mis apps.\n\nGracias\n\nSaludos','',0,'iA==','26t6jsst',1,0,'',492,0,0),(17084,3868,6,228,0,'201.244.255.133',1155232363,1,0,1,1,1,1,'','Eror en la carpeta','Amigo descargue la carptera pero parece que el archivo .zip esta dañado y no me deja descargar. Sera que le puedes montar de nuevo.. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'iA==','362h9s73',1,0,'',228,0,0),(17085,3841,6,492,0,'201.154.126.49',1155232478,1,0,1,1,1,1,'','','Hola Leandro\n\nEl ejemplo que expuso el Master Flores, trabajo perfecto en el TWBrowse de Hernan ( es el que uso ), no he usado el xBrowse, pero en la carpeta de samples, esta el archivo TESTXBRW.PRG y ahi estan muchas opciones y formas incluyendo la del bitmap.\n\n\n\nSaludos','',0,'iA==','354z13v2',1,0,'',492,0,0),(17086,3869,7,2,0,'87.218.146.225',1155233376,1,0,1,1,1,1,'','','Elias,\n\nCon el lenguaje Clipper se hace de forma similar:\n\n1. Lo idóneo sería poner un GET junto al browse, para que se vaya escribiendo en el GET y el browse vaya buscando.\n\n2. La búsqueda se hace con DbSeek( &lt;cExpresion&gt; ) que busca en el índice activo que esté usando la DBF.\n\n3. El browse se refresca, haciendo un oBrowse:Refresh()\n\nVamos a construir un ejemplo completo que te sirva de modelo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'iA==','3b04hxi0',1,0,'',2,0,0),(17087,3880,6,492,0,'201.154.126.49',1155234712,1,0,1,1,1,1,'','iBackUP V.Final con codigo, Multiples Respaldos/Restaurar.','Hola a todos\n\nLo prometido es deuda !!\n\nDoy por concluido el desarrollo de iBackUp, un pequeño aporte de mi parte para uds.\n\nCaracteristicas :\n\n- 6 Configuraciones diferentes para respaldos  !!!\n- Multiples carpetas\n- Un solo archivo o grupos usando wildcard ( *.DBF, *.TXT, etc )\n- Activar o desactivar registros de cada configuracion\n- Historico de uso por configuracion\n- Aplicar password a respaldo\n\n- Restaurar todos los archivos del respaldo\n- Restaurar solo archivos seleccionados\n- Indicar Destino para restauracion\n- Aplicar password para restuaracion\n\nFacilisimo de usar y con buena presentacion  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEn fin, tengan todos uds la ultima palabra.\n\n\nLo libero en esta etapa funcional al 100%, por que, como formara parte un sistema modular que estoy terminando, le añadire funciones, bases, etc para cruzarlo con los otros modulos.\n\n\nEspero les guste y les sirva.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02acee7c92/iBackUp.zip.html\">http://hyperupload.com/download/02acee7 ... p.zip.html</a><!-- m -->\n\n\nSaludos','',0,'iA==','1lbtxbjd',1,0,'',492,0,0),(17088,3880,6,492,0,'201.154.126.49',1155234936,1,0,1,1,1,1,'','','ooopppsss !!!  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nSe me paso comentarles esto : solo ajusten el path de los bitmaps en el archivo iBckImgs.RC, para que se puedan mostrar correctamente, los bitmaps se encuentran en la carpeta Media.\n\nSaludos','',0,'iA==','3inb2rsy',1,0,'',492,0,0),(17089,3881,3,2,0,'87.218.146.225',1155235199,1,0,1,1,1,1,'','OutLook &amp; ActiveInspector','Has someone been able to access ActiveInspector from OutLook ?\n[code:2tlv17oz]\nfunction ReadMail&#40;&#41;\n\n   local oOutlook, oInspector, oMailItem\n\n   oOutlook = TOleAuto&#40;&#41;&#58;New&#40; &quot;Outlook&#46;Application&quot; &#41; \n   \n   oInspector = oOutlook&#58;ActiveInspector&#40;&#41;\n   \n   oMailItem = oInspector&#58;CurrentItem&#40;&#41;\n   \n   MsgInfo&#40; oMailItem&#58;Body &#41;\n   \nreturn nil   \n[/code:2tlv17oz]','',0,'AIA=','2tlv17oz',1,0,'',2,0,0),(17090,3882,6,264,0,'200.91.3.10',1155235397,1,0,1,1,1,0,'','SPLITTER, TOUTLOOK y TCBROWSE = MSOutLook','Hola a todos,\nEstamos desarrollando una aplicacion utilizando SPLITTER y TOUTLOOK ademas de TCBROWSE, lo cual le da un aspecto bastante bonito y similar al programa MS OutLook.\nMi pregunta es la siguiente: en el MS OutLook, sobre la grilla de datos recibidos o enviados, aparece un titulo con un font mas grande indicando precisamente eso, \"Bandeja de entrada\" o \"Bandeja de Salida\".\nExiste en nuestro mundillo algo como para igualar eso ?\nDe antemano, agradezco la ayuda y sugerencias.\nSaludos\n \nHB + FWH  ( abril 2006 )\n\nMS OutLook  [url:2v53v16u]http&#58;//www&#46;random&#46;cl/envios/bandeja&#46;jpg[/url:2v53v16u]\nMi App  [url:2v53v16u]http&#58;//www&#46;random&#46;cl/envios/bandejanuestra&#46;jpg[/url:2v53v16u]','',0,'EA==','2v53v16u',1,0,'',264,0,0),(17091,3817,3,303,0,'72.199.41.171',1155235723,1,0,1,1,1,0,'','','Antonio,\n\nWell, there is progress, but there are still problems with the location of the cursor. When you paste text the cursor is (properly) at the end of the pasted text, but then when you then type a character, the cursor jumps to the beginning of the pasted text then overwrites the character.\n\nStarting field contains:\n\n123456789\n\nI paste ABCD in right after the 5. The cursor appears where the bracket is:\n\n12345ABCD[6789\n\nThen I type z and it appears where the A was:\n\n12345z[BCD6789\n\nIf I do the same thing in a field in Outlook Express I get this:\n\n12345ABCDz[6789\n\nNote that the FW app defaults to overwrite mode the the OE defaults to insert mode.\n\nIf I use Ctrl-V, instead of Paste in the menu, the cursor jumps to the first postion:\n\n[12345ABCD6789\n\nThis is incorrect also. Of course, both Paste and Ctrl-V should do exactly the same thing.\n\nJames','',0,'','d0q5fmzq',1,0,'',303,0,0),(17092,3878,6,168,0,'200.44.49.54',1155237276,1,0,1,1,1,0,'','','Stored proc estan disponibles en MySQL a partir de la version 5.0.\nPara hacer un bucle para recorrer los registros de una tabla debes crear un cursor.\nPuedes ir a <!-- w --><a class=\"postlink\" href=\"http://www.mysql.org\">www.mysql.org</a><!-- w --> y descargar tanto mysql (el servidor) como la ayuda en formatos HTM, CHM pdf','',0,'','1jzzj4bz',1,0,'',168,0,0),(17093,3817,3,2,0,'87.218.146.225',1155237387,1,0,1,1,1,1,'','','James,\n\nIt looks as we have to modify ::oGet:Pos, but what value should we assign to it ?','',0,'','xbod0yum',1,0,'',2,0,0),(17094,3817,3,2,0,'87.218.146.225',1155237827,1,0,1,1,1,1,'','','James,\n\nThis looks to works fine with your explained sample:\n[code:tikbwjte]\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TGet\n\n   local oClp\n\n   do case\n      case nMsg == WM_CUT\n           CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_CUT, 0, 0 &#41;\n           &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n           &#58;&#58;oGet&#58;Pos = 1\n           &#58;&#58;oGet&#58;Assign&#40;&#41;\n           return 0\n           \n      case nMsg == WM_PASTE\n           CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PASTE, 0, 0 &#41;\n           &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n           DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n           &#58;&#58;oGet&#58;Pos += Len&#40; oClp&#58;GetText&#40;&#41; &#41;\n           oClp&#58;End&#40;&#41;\n           &#58;&#58;oGet&#58;Assign&#40;&#41;\n           return 0\n   endcase\n   \nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;           \n[/code:tikbwjte]','',0,'AIA=','tikbwjte',1,0,'',2,0,0),(17095,3866,6,9,0,'85.54.224.198',1155238086,1,0,1,1,1,1,'','','[quote=&quot;RenOmaS&quot;:etfgijyp]Como haces la edicion del registro??\n[/quote:etfgijyp]\n\nMuy sencilla:\n\nSELE pepito\noDbf := TDataBase():New()\noDbf:Load()  \n\nDEFINO un  DIALOGO\nVarios Get con las variables oDbf:xxx\nBOTON ACEPTAR ACTION  ( oDbf:save(), oDlg:End() )\nBOTON SALIR\nACTIVO DIALOGO\n\nEl problema se produce en un ordenador en concreto que por alguna causa (procesador, antivirus, etc) no consigue mantenen la pila.','',0,'gA==','etfgijyp',1,0,'',9,0,0),(17096,3817,3,303,0,'72.199.41.171',1155239724,1,0,1,1,1,0,'','','Antonio,\n\nYes it works--I was just about to post a similar fix I did myself.\n\nThe Cut routine also needs a similar fix. This seems to be working:\n\n[code:1vm1dloj]METHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TGet\n\n   local oClp\n\n   do case\n      case nMsg == WM_CUT\n           CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_CUT, 0, 0 &#41;\n           &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n           DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n           &#58;&#58;oGet&#58;Pos -= Len&#40; oClp&#58;GetText&#40;&#41; &#41;\n           oClp&#58;End&#40;&#41;\n           &#58;&#58;oGet&#58;Assign&#40;&#41;\n           return 0\n\n      case nMsg == WM_PASTE\n           CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PASTE, 0, 0 &#41;\n           &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n           DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n           &#58;&#58;oGet&#58;Pos += Len&#40; oClp&#58;GetText&#40;&#41; &#41;\n           oClp&#58;End&#40;&#41;\n           &#58;&#58;oGet&#58;Assign&#40;&#41;\n           return 0\n   endcase\n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41; [/code:1vm1dloj]\n\nNow Ctrl-X and Ctrl-V need fixing.\n\nJames','',0,'AIA=','1vm1dloj',1,0,'',303,0,0),(17097,3869,7,138,0,'201.128.111.188',1155241274,1,0,1,1,1,1,'','','Aqui esta lo que necesitas:\n\nSe hace excatamente igual que con FiveWin normal\n[code:1f86wbpd]&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\nUSE AGENTS\nOrdSetFocus&#40;&quot;nomAgent&#41;\n\n@ 31,0 LISTBOX oBrw FIELDS agents-&gt;iatacode,;\n                                            agents-&gt;agentname,;\n                                            agents-&gt;agentype;\n             HEADERS &quot;Codigo&quot;,;\n                           &quot;Nombre&quot;,;\n                           &quot;Tipo&quot;;\n             PIXEL SIZE oWnd&#58;nWidth,135;\n             ON DBLCLICK &#40;Movs&#40;&#46;F&#46;&#41;,;\n                                  oBrw&#58;Refresh&#40;&#41;&#41;\n\noBrw&#58;nClrPane &#58;= &#123;|| IIF&#40;agents-&gt;&#40;ordkeyno&#40;&#41;&#41; % 2 == 0 ,RGB&#40;193,221,255&#41;,RGB&#40;221,245,255&#41; &#41;&#125;\noBrw&#58;Bkeychar &#58;= &#123;|nkey, nFlag| Busca&#40;nKey&#41;, oBrw&#58;Refresh&#40;&#41;&#125;\n\n@ 165,0 SAY &quot;Buscando&#58;&quot; SIZE 60,40 PIXEL\n@ 165,60 SAY oBusca PROMPT cBusca PIXEL SIZE 150,20\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\nFUNCTION Busca&#40;nKey&#41;\n   IF nKey = 8\n      cBusca &#58;= SUBSTR&#40;cBusca,1,LEN&#40;cBusca&#41;-1&#41;\n   ELSE\n      cBusca += CHR&#40;nKey&#41;\n   ENDIF\n   SET SOFTSEEK ON\n   SEEK&#40;cBusca&#41;\n   SET SOFTSEEK OFF\n   oBusca&#58;Refresh&#40;&#41;\nRETURN &#40;&#46;T&#46;&#41;\n\n[/code:1f86wbpd]','',0,'AIA=','1f86wbpd',1,0,'',138,0,0),(17098,3869,7,2,0,'87.218.146.225',1155241364,1,0,1,1,1,1,'','','René,\n\nGracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2h281ggr',1,0,'',2,0,0),(17099,3866,6,2,0,'87.218.146.225',1155241469,1,0,1,1,1,1,'','','Manuel,\n\nNo tienes un browse por debajo del diálogo ?','',0,'AIA=','1evn7hpz',1,0,'',2,0,0),(17100,3878,6,37,0,'200.121.242.216',1155241538,1,0,1,1,1,1,'','','Yamil, gracias por contestar, ya tengo instalada el MySQL 5.0.22 y tengo los manuales, inclusive accedo y trabajo con MySQL sin problemas, lo que necesito es si existen ejemplos de codigo de Store Procedures, codigo como para tomarlo de referencia, asi como FW tiene una serie de codigo en sus samples.\nGracias, saludos','',0,'AIA=','3kqd7r4e',1,0,'',37,0,0),(17101,3817,3,2,0,'87.218.146.225',1155242212,1,0,1,1,1,1,'','','James,\n\n&gt; The Cut routine also needs a similar fix. This seems to be working: \n\nThanks,\n\n&gt; Now Ctrl-X and Ctrl-V need fixing\n\nIn Method KeyDown() please remove these 3 lines:\n[code:3sy6hgd0]\n      case &#40; nKey == VK_INSERT &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;&quot;V&quot;&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;\'X\'&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41; &#46;and&#46; ; \n           ! lAnd&#40; nFlags, 2 ** 29 &#41;\n\n          if ! &#58;&#58;lReadOnly\n             CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_KEYDOWN, nKey, nFlags &#41;\n             SysRefresh&#40;&#41;\n             if ValType&#40; &#58;&#58;oGet&#58;buffer &#41; = &quot;C&quot;\n                &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n                SetWindowText&#40; &#58;&#58;hWnd, &#58;&#58;oGet&#58;buffer &#41;\n             else\n                &#58;&#58;oGet&#58;buffer = GetWindowText&#40; &#58;&#58;hWnd &#41;\n             endif\n             &#58;&#58;oGet&#58;Assign&#40;&#41;\n             // &#58;&#58;GetSelPos&#40; @nLo, @nHi &#41;      THIS\n             // &#58;&#58;nPos = nHi + 1                    THIS\n             // &#58;&#58;oGet&#58;Pos = &#58;&#58;nPos               THIS \n             if &#58;&#58;bChange != nil\n                Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n             endif\n          endif\n\n          return 0\n[/code:3sy6hgd0]\n\nNow it seems to work fine. We appreciate your feedback, thanks','',0,'AIA=','3sy6hgd0',1,0,'',2,0,0),(17102,3882,6,2,0,'87.218.146.225',1155242601,1,0,1,1,1,1,'','','Julio,\n\nMás arriba del browse puedes situar un SAY, con el font adecuado. El splitter debe ser capaz de redimensionarlos a todos.','',0,'AIA=','fe9nlgzd',1,0,'',2,0,0),(17104,3817,3,303,0,'72.199.41.171',1155246245,1,0,1,1,1,0,'','','Antonio,\n\nI had to make some additions to get it working. There are two new sections of code. Also I had to add a new LOCAL oClp at the top of the method.\n\nJames\n\n [code:3dce1pjg]     case &#40; nKey == VK_INSERT &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;&quot;V&quot;&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41; &#46;or&#46; ;\n           &#40; nKey == ASC&#40;\'X\'&#41; &#46;and&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n\n          if ! &#58;&#58;lReadOnly\n\n           // new section\n           DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n           nPos &#58;= Len&#40; oClp&#58;GetText&#40;&#41; &#41;\n           oClp&#58;End&#40;&#41;\n           // end of new section\n\n             CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_KEYDOWN, nKey, nFlags &#41;\n             SysRefresh&#40;&#41;\n             if ValType&#40; &#58;&#58;oGet&#58;buffer &#41; = &quot;C&quot;\n                &#58;&#58;oGet&#58;buffer = Pad&#40; GetWindowText&#40; &#58;&#58;hWnd &#41;, Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n                SetWindowText&#40; &#58;&#58;hWnd, &#58;&#58;oGet&#58;buffer &#41;\n             else\n                &#58;&#58;oGet&#58;buffer = GetWindowText&#40; &#58;&#58;hWnd &#41;\n             endif\n             &#58;&#58;oGet&#58;Assign&#40;&#41;\n             //&#58;&#58;GetSelPos&#40; @nLo, @nHi &#41;\n             //&#58;&#58;nPos = nHi + 1\n             //&#58;&#58;oGet&#58;Pos = &#58;&#58;nPos\n\n             // New section\n             do case\n                case nKey == ASC&#40;\'X\'&#41;\n                   &#58;&#58;setPos&#40; nPos &#41;\n                case nKey == ASC&#40;\'V\'&#41;\n                   &#58;&#58;setPos&#40; &#58;&#58;oGet&#58;pos &#41;\n             endcase\n             // end of new section\n\n             if &#58;&#58;bChange != nil\n                Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n             endif\n          endif\n\n          return 0[/code:3dce1pjg]','',0,'AIA=','3dce1pjg',1,0,'',303,0,0),(17105,3817,3,335,0,'68.193.88.53',1155249409,1,0,1,1,1,0,'','','Antonio &amp; James,\n\nAntonio\'s fix with James\' modification to WM_CUT works like a charm!\n\nHowever, anyone inserting this code into their version of TGet.prg will need to insert the following defines at the top of the file:\n\n#define WM_CUT                  768   //  0x300\n#define WM_PASTE                770   //  0x302\n\nAlso, be sure to declare the HandleEvent() method in the list of the TGet class\'s methods up near the top of the prg where the class is defined....\n...\nMETHOD HandleEvent()\n...\n\nWhoops - I see that James has been doing more work while I was typing this in. I\'ll have to try out his added mods now.\n\n- Roger','',0,'AIA=','370d2oyy',1,0,'',335,0,0),(17106,3817,3,303,0,'72.199.41.171',1155249779,1,0,1,1,1,0,'','','Roger,\n\nThanks for pointing out those missing items.\n\nJames','',0,'AIA=','2b7m8sxi',1,0,'',303,0,0),(17107,3881,3,2,0,'87.218.146.225',1155253350,1,0,1,1,1,1,'','','It properly works that way. The only requisite is that the email window is opened <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3rwpmmvl',1,0,'',2,0,0),(17108,3875,6,439,0,'190.0.140.133',1155260447,1,0,1,1,1,1,'','','Gracias Manuel, <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEs cierto, es Append from, me equivoqué al registrarlo en el post, pero excelente la idea de como descomponer utilizando una base de datos intermedia.\n\nGracias por siempre estar contestando los mensajes del foro, en estos días voy a tener que hacer esta importación y estaré probando ambas ideas para ver con cual me quedo.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3ki3e5zn',1,0,'',439,0,0),(17109,3872,6,431,0,'200.8.34.156',1155262934,1,0,1,1,1,1,'','IsPrinter','Antonio,\n\nSi pruebo IsPrinter y el resultado es el mismo efecto que PrnStatus siempre me retorna .T. y ni tengo conectado nada en el puerto. \n\nUso el Harbour que envias en el FTDN estoy usando el ultimo de Julio \nuso BCC++ 5.5.1 \n\nMuchas Gracias.','',0,'AIA=','37yi4on9',1,0,'',431,0,0),(17110,3883,6,431,0,'200.8.34.156',1155266623,1,0,1,1,1,1,'','XML','Necesito LEER un archivo XML que me pasaran a mi aplicacion via web he leido en el foro de funciones para esto pero son para xHarbour yo uso Harbour \nde antemano muchas gracias.','',0,'AIA=','2heecs4a',1,0,'',431,0,0),(17111,3866,6,9,0,'85.54.224.198',1155267218,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3vlvepma]No tienes un browse por debajo del diálogo ?[/quote:3vlvepma]\n\nAntonio,\n\nEn el diálogo, tiene un folder con 8 pestañas, 4 de las cuales tienen Listbox, pero con bases de datos diferentes. Una complicación adicional es que en mi ordenador no da  error, sino solo en un usuario a 500 kms de distancia. De momento lo he solucionado con una chapucilla, y es antes del DATABASE hago un  nRecno := RECNO()  y antes del oDbf:SAVE() un DBGOTO (nRecno).\n\nLa demo de la aplicación se puede bajar desde   <!-- m --><a class=\"postlink\" href=\"http://ciberia.ya.com/lebsoft/descarga.htm\">http://ciberia.ya.com/lebsoft/descarga.htm</a><!-- m -->\n\ny el error se le produce a este usuario cuando hay varios inquilinos y modifica las condiciones de uno de ellos.','',0,'gA==','3vlvepma',1,0,'',9,0,0),(17112,3857,1,173,0,'202.57.146.225',1155271078,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:bozmvfw6]Peter,\n\nin fw\\source\\classes\\window.prg search for \"DEFINE WINDOW oToolTip...\", some lines below you find \"DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8\". \n\nChange that font definition and use that window.prg recompiled.[/quote:bozmvfw6]\n\nSo, Can I get more detail of recompiled window.prg ?','',0,'gA==','bozmvfw6',1,0,'',173,0,0),(17113,3884,3,15,0,'210.201.24.223',1155278610,1,0,1,1,1,0,'','FreeImage can\'t load big size WMF or EMF file type','Hello\n\nI use FreeImage to load JPG or BMP work file.\nBut I load big size WMF(33000x28000) or EMF(same size) File type not work. These files type from AUTOCAD Save as other file type function.\nAnyone have good idea or solution or suggestion to me?\n\nThank you.\n\nRegards,\n\nRichard','',0,'gA==','398clzyx',1,0,'',15,0,0),(17114,3857,1,15,0,'210.201.24.223',1155278727,1,0,1,1,1,0,'','','Hello Peter,\n\nYou modify Window.prg and just recompile it within your link script file.\nThat\'s all.\n\nRegards,\n\nRichard','',0,'gA==','3o49oqxz',1,0,'',15,0,0),(17115,3869,7,720,0,'80.36.244.134',1155286127,1,0,1,1,1,0,'','','Hola Rene, \ngracias por la ayuda....\nHe probado el codigo que pero al ejecutarlo e intentar realizar una busqueda me da el siguiente error...\n\n\n....\nArgument error\n+\nstack calls:\nBUSCA(39)\n(b)MAIN(24)\nTWINDOW:HANDLEEVENT(0)\nTWINDOW:HANDLEEVENT(0)\nTWINDOW:HANDLEEVENT(0)\nWINRUN(0)\nTWINDOW:ACTIVATE(0)\nMAIN(29)\n.....\n\nA lo mejor es una chorrada pero no lo entiendo... \nUna última cosa, hay alguna forma de realizar una \"traza\" del programa para poder hacer un seguimiento más profundo de variables, etc....\n\n\nUn saludo y gracias por la ayuda.\n\nElias Torres.','',0,'gA==','149ud0dm',1,0,'',720,0,0),(17116,3885,7,720,0,'80.36.244.134',1155286674,1,0,1,1,1,0,'','Problema con indices','Hola a todos, tengo una pequeña duda pero que a su vez es de gran importancia. Resulta que tengo una tabla con un campo, nomcli, como indice. Yo en mi programa hago la apertura de esta forma:\n\n[b:2ojkpv1f]REQUEST DBFCDX\nUSE ( CurDir() + \"\\clientes\" ) VIA \"DBFCDX\"[/b:2ojkpv1f]\n\nEsa es la forma de hacerlo??\n\nUn Saludo y Gracias.\n\nElias Torres.','',0,'QA==','2ojkpv1f',1,0,'',720,0,0),(17117,3886,3,707,0,'222.124.20.50',1155291270,1,0,1,1,1,0,'','Get Free for FingerPrint dll or lib with xHarbour','Hi all ! \n\nCan you help me, who has dll or lib for FingerPrint ?\n\nThank\n\nAreang\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','398s29dz',1,0,'',707,0,0),(17118,3884,3,6,0,'87.17.223.32',1155293223,1,0,1,1,1,1,'','Re: FreeImage can\'t load big size WMF or EMF file type','Please can you send to my email address one of the images you are unable to load?\n\nEMG','',0,'QA==','57dd5iar',1,0,'',6,0,0),(17119,3860,1,367,0,'201.67.85.196',1155295501,1,0,1,1,1,1,'','','Antonio Linares, Debtor for the aid, but did not give certain, did not insert the image in the body of the email.    \n\nHe has as to use this process of sending of email for the OutlookExpress?','',0,'QA==','32fey4nw',1,0,'',367,0,0),(17120,3842,3,170,0,'83.177.233.97',1155295798,1,0,1,1,1,1,'','','Hello my friends,\n\nSorry, i forgot than the harbour users have not\nAX_ functions in client ADS.\n\nOTC MEDIATOR RDD work also with records to be compatible .dbf,\nit\'s writted in the manual. Simply create a AX_RLOCK() function\nusing OTC similar function. Do this with all database functions\nneeded, and you can interchange at run time yours RDDs.\n\nRegards,\n\n[code:2rlzpxas]\n*****************\nFUNCTION AX_RLOCK&#40; QV &#41;\n*****************\n* Function to lock a record with ADS and &#91;x&#93;Harbour\n* Author Badara Thiam&#46; All rights reserved&#46;\nRETURN DBRLOCK&#40; QV &#41;\n[/code:2rlzpxas]','',0,'AIA=','2rlzpxas',1,0,'',170,0,0),(17121,3838,3,49,0,'62.13.172.78',1155302999,1,0,1,1,1,1,'','','I try this but if I try the program make the same  :\n[code:8zdhjx0l]\nfunction Main&#40;&#41;\n\n   local oBar\n\n   DEFINE WINDOW oWnd MDI ;\n      TITLE &quot;Browsing a DataBase&quot;\n\n   DEFINE BUTTONBAR oBar 3D OF oWnd\n\n   DEFINE BUTTON OF oBar ACTION CustomerBrowse&#40;&#41;\n\n   SET MESSAGE OF oWnd TO &quot;FiveWin xBase power!&quot; CENTERED\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\n   return nil\nFUNCTION CustomerBrowse&#40;&#41;\nLOCAL  oWndChild,oFont,oFont2,oFont3\n\n DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, -20\n  DEFINE FONT oFont2 NAME &quot;MS Sans Serif&quot; SIZE 0, -40\n  DEFINE FONT oFont3 NAME &quot;ARIAL&quot; SIZE 0, -50\n\n\n  DEFINE WINDOW oWndChild  COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41;\n  *STYLE nOr&#40; WS_POPUP, WS_VISIBLE &#41; COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41;\n\n\n@20,5 LISTBOX oLbx FIELDS &quot;&quot;;\n                         HEADER &quot;ARTICOLO&quot;,  &quot;QTA&quot;,  ;\n                                &quot;PREZZO&quot;, &quot;TOTALE&quot;                     ;\n                         OF oWndChild SIZE 650,600 PIXEL                     ;\n                         SIZES  230, 80,90,90;\n                         FONT oFont\n\n\n\n\n  makebuttons&#40;20,660,oWndChild,oFont,oLBX&#41;\n\n\n  ACTIVATE WINDOW oWndChild MAXIMIZED;\n  ON RESIZE RESIZE_WINDOW&#40;oWndChild&#41;\nRETURN NIL\n\n\n\n\n\nSTATIC FUNCTION  makebuttons&#40;X,y,ownd,oFont,oLBX&#41;\n   LOCAL k\n\n\n   BOTTONI &#58;=40     // but I want see 160 buttons !!!!!!!!!!!!!\n\n\n\n                 n  &#58;= 1\n                 aBtn &#58;= Array&#40;BOTTONI&#41;\n                 X = 20\n                 Y = 660\n\n                USE LISTBAR Alias LISTBAR INDEX BAR\n\n\n                 FOR k &#58;= 1 TO BOTTONI\n                    cCaption &#58;= &quot;&quot;\n\n                       nBottone&#58;=n\n                      LISTBAR-&gt;&#40;DbSeek&#40;nBottone&#41;&#41;\n                      cCaption &#58;= AllTrim&#40;LISTBAR-&gt;CODICE&#41;\n\n                       IF !Empty&#40; cCaption &#41;\n\n              @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT cCaption OF oWnd FONT oFont ;\n              SIZE 140,85 PIXEL\n           ELSE\n                 @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT Str&#40;nBottone,3,0&#41; OF oWnd FONT oFont ;\n              SIZE 140,85 PIXEL\n\n                 ENDIF\n\n                     /*\n                              aBtn&#91;n&#93;&#58;bAction &#58;= &#123;|oBtn| AddLbx&#40;oGet,oBtn,oLbx&#41; &#125;\n\n\n                              IF !Empty&#40;cCaption &#41;\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Full\', n &#125;\n                                ELSE\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Empty\', n &#125;\n                                ENDIF\n\n*/\n\n\n\n\n\n\n\n\n\n                   X +=85\n                    n++\n                    // LISTBAR-&gt;&#40;dbskip&#40;&#41;&#41;\n                    IF n= 11  &#46;OR&#46; n=21 &#46;OR&#46; n=31  &#46;OR&#46; n=41\n                        X=20\n                       Y=Y+145\n                    ENDIF\n\n\n\n\n\n                    NEXT\n\n\n\n                    // bottoni per le pagine ???????\n                    // ma come cambiare pagina ??????\n                    // Pagina1  da 1a 40\n                    // pagina 2 da 41 a 80\n                    // pagina 3 da 81 a 120\n                    // pagina 4 da 121 a 160\n\n                     X=900\n                    y=660\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA1  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION Pagina1&#40; oWnd &#41;\n                Y=Y+145\n\n                 @ X+2  ,Y BUTTON aPag2 PROMPT PAGINA2  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION Pagina2&#40; oWnd &#41;\n                 Y=Y+145\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA3  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION Pagina3&#40; oWnd &#41;\n                     Y=Y+145\n                 @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA4  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION SUBTOTALE&#40;oWnd&#41;\n\n               * CLOSE LISTBAR\n               * Select 1\n\n\n\n\n                // PULSANTE FINE\n                @ 980 ,1100 BUTTON aSTOR PROMPT &quot;USCITA&quot; OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL  ACTION oWnd&#58;END&#40;&#41;\n\n                  * oWnd&#58;SetControl&#40; aBtn &#41;\n\n                RETURN NIL\n\n           function Pagina1&#40; oWnd &#41;\n\n         local n\n\n         for n = 2 to 41\n            oWnd&#58;aControls&#91; n &#93;&#58;SetText&#40; AllTrim&#40; Str&#40; n -1&#41; &#41; &#41;\n         next\n\n      return nil\n\n\n\n\n\n   FUNCTION RESIZE_WINDOW&#40;oWndChild&#41;\n\n      // on resize\n    for n = 1 to 41\n\n oWndChild&#58;aControls&#91; n &#93;&#58;nTop = &#40;oWndChild&#58;aControls&#91; n &#93;&#58;nTop &#41;-2\n oWndChild&#58;aControls&#91; n &#93;&#58;nLeft = &#40; oWndChild&#58;aControls&#91; n &#93;&#58;nLeft&#41;-2\n oWndChild&#58;aControls&#91; n &#93;&#58;nWidth = &#40; oWndChild&#58;aControls&#91; n &#93;&#58;nWidth&#41;-1\n oWndChild&#58;aControls&#91; n &#93;&#58;nHeight = &#40;oWndChild&#58;aControls&#91; n &#93;&#58;nHeight&#41;-1\n\n      next\n     * oWndChild&#58;refresh&#40;&#41;\n        RETURN nil\n\n[/code:8zdhjx0l]\n\nDear Antonio,\nCan Help me','',0,'AIA=','8zdhjx0l',1,0,'',49,0,0),(17122,3885,7,2,0,'87.218.146.82',1155305670,1,0,1,1,1,1,'','','Elias,\n\nREQUEST DBFCDX \n\nUSE ( CurDir() + \"\\clientes\" ) VIA \"DBFCDX\" \nClientes-&gt;( OrdSetFocus( \"Apellido\" ) )  // Nombre del tag del índice a seleccionar\nClientes-&gt;( DbGoTop() )','',0,'AIA=','112n0oja',1,0,'',2,0,0),(17123,3869,7,2,0,'87.218.146.82',1155307697,1,0,1,1,1,1,'','','Elias,\n\nAqui tienes el ejemplo completo:\n[code:okwyowsv]\n// FiveWin for Pocket PC - Testing browses with incremental search\n\n#include &quot;FWCE&#46;ch&quot;\n\nREQUEST DBFCDX\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBrw, hBmp &#58;= ReadBitmap&#40; CurDir&#40;&#41; + &quot;\\go&#46;bmp&quot; &#41;\n   local oSay, cSearch &#58;= &quot;&quot;\n\n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41; VIA &quot;DBFCDX&quot;\n   Customer-&gt;&#40; OrdSetFocus&#40; &quot;LAST&quot; &#41; &#41;\n   Customer-&gt;&#40; DbGoTop&#40;&#41; &#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;IncSearch&quot;\n   \n   @ 1, 1 LISTBOX oBrw ;\n      FIELDS hBmp, Customer-&gt;Last, Customer-&gt;First ;\n      HEADERS &quot;&quot;, &quot;Last&quot;, &quot;First&quot; ;\n      SIZE 220, 167\n   \n   oBrw&#58;bKeyChar = &#123; | nKey, nFlags | Search&#40; nKey, @cSearch &#41;, oBrw&#58;Refresh&#40;&#41;,;\n                                      oSay&#58;Refresh&#40;&#41; &#125; \n   \n   @ 14,  2 SAY &quot;Searching&#58;&quot; SIZE 60, 30\n   @ 14, 12 SAY oSay PROMPT cSearch SIZE 80, 30\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Search&#40; nKey, cSearch &#41;\n\n   if nKey = 8 \n      cSearch = SubStr&#40; cSearch, 1, Len&#40; cSearch &#41; - 1 &#41; \n   else \n      cSearch += Upper&#40; Chr&#40; nKey &#41; &#41; \n   endif\n    \n   Customer-&gt;&#40; DbSeek&#40; cSearch, &#46;t&#46; &#41; &#41; \n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:okwyowsv]','',0,'AIA=','okwyowsv',1,0,'',2,0,0),(17124,3877,3,49,0,'62.13.172.78',1155308098,1,0,1,1,1,1,'','','I know that Tgant authir making gis application with harbour and fw but I cannot talk with him ....','',0,'AIA=','3jedskwd',1,0,'',49,0,0);
INSERT INTO `phpbb_posts` VALUES (17125,3887,6,49,0,'62.13.172.78',1155308300,1,0,1,1,1,1,'','To resize controls on the window','How I can resize control on the window ?\n\n\nI try this but if I try the program make the same : \nwhen I resize the window it hide \n the controls \n\n[code:as6jtb0e]\n\nfunction Main&#40;&#41; \n\n   local oBar \n\n   DEFINE WINDOW oWnd MDI ; \n      TITLE &quot;Browsing a DataBase&quot; \n\n   DEFINE BUTTONBAR oBar 3D OF oWnd \n\n   DEFINE BUTTON OF oBar ACTION CustomerBrowse&#40;&#41; \n\n   SET MESSAGE OF oWnd TO &quot;FiveWin xBase power!&quot; CENTERED \n\n   ACTIVATE WINDOW oWnd MAXIMIZED \n\n   return nil \nFUNCTION CustomerBrowse&#40;&#41; \nLOCAL  oWndChild,oFont,oFont2,oFont3 \n\n DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, -20 \n  DEFINE FONT oFont2 NAME &quot;MS Sans Serif&quot; SIZE 0, -40 \n  DEFINE FONT oFont3 NAME &quot;ARIAL&quot; SIZE 0, -50 \n\n\n  DEFINE WINDOW oWndChild  COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41; \n  *STYLE nOr&#40; WS_POPUP, WS_VISIBLE &#41; COLOR GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41; \n\n\n@20,5 LISTBOX oLbx FIELDS &quot;&quot;; \n                         HEADER &quot;ARTICOLO&quot;,  &quot;QTA&quot;,  ; \n                                &quot;PREZZO&quot;, &quot;TOTALE&quot;                     ; \n                         OF oWndChild SIZE 650,600 PIXEL                     ; \n                         SIZES  230, 80,90,90; \n                         FONT oFont \n\n\n\n\n  makebuttons&#40;20,660,oWndChild,oFont,oLBX&#41; \n\n\n  ACTIVATE WINDOW oWndChild MAXIMIZED; \n  ON RESIZE RESIZE_WINDOW&#40;oWndChild&#41; \nRETURN NIL \n\n\n\n\n\nSTATIC FUNCTION  makebuttons&#40;X,y,ownd,oFont,oLBX&#41; \n   LOCAL k \n\n\n   BOTTONI &#58;=40     // but I want see 160 buttons !!!!!!!!!!!!! \n\n\n\n                 n  &#58;= 1 \n                 aBtn &#58;= Array&#40;BOTTONI&#41; \n                 X = 20 \n                 Y = 660 \n\n                USE LISTBAR Alias LISTBAR INDEX BAR \n\n\n                 FOR k &#58;= 1 TO BOTTONI \n                    cCaption &#58;= &quot;&quot; \n\n                       nBottone&#58;=n \n                      LISTBAR-&gt;&#40;DbSeek&#40;nBottone&#41;&#41; \n                      cCaption &#58;= AllTrim&#40;LISTBAR-&gt;CODICE&#41; \n\n                       IF !Empty&#40; cCaption &#41; \n\n              @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT cCaption OF oWnd FONT oFont ; \n              SIZE 140,85 PIXEL \n           ELSE \n                 @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT Str&#40;nBottone,3,0&#41; OF oWnd FONT oFont ; \n              SIZE 140,85 PIXEL \n\n                 ENDIF \n\n                     /* \n                              aBtn&#91;n&#93;&#58;bAction &#58;= &#123;|oBtn| AddLbx&#40;oGet,oBtn,oLbx&#41; &#125; \n\n\n                              IF !Empty&#40;cCaption &#41; \n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Full\', n &#125; \n                                ELSE \n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Empty\', n &#125; \n                                ENDIF \n\n*/ \n\n\n\n\n\n\n\n\n\n                   X +=85 \n                    n++ \n                    // LISTBAR-&gt;&#40;dbskip&#40;&#41;&#41; \n                    IF n= 11  &#46;OR&#46; n=21 &#46;OR&#46; n=31  &#46;OR&#46; n=41 \n                        X=20 \n                       Y=Y+145 \n                    ENDIF \n\n\n\n\n\n                    NEXT \n\n\n\n                    // bottoni per le pagine ??????? \n                    // ma come cambiare pagina ?????? \n                    // Pagina1  da 1a 40 \n                    // pagina 2 da 41 a 80 \n                    // pagina 3 da 81 a 120 \n                    // pagina 4 da 121 a 160 \n\n                     X=900 \n                    y=660 \n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA1  OF oWnd FONT oFont ; \n              SIZE 140,50 PIXEL \n              *ACTION Pagina1&#40; oWnd &#41; \n                Y=Y+145 \n\n                 @ X+2  ,Y BUTTON aPag2 PROMPT PAGINA2  OF oWnd FONT oFont ; \n              SIZE 140,50 PIXEL \n              *ACTION Pagina2&#40; oWnd &#41; \n                 Y=Y+145 \n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA3  OF oWnd FONT oFont ; \n              SIZE 140,50 PIXEL \n              *ACTION Pagina3&#40; oWnd &#41; \n                     Y=Y+145 \n                 @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA4  OF oWnd FONT oFont ; \n              SIZE 140,50 PIXEL \n              *ACTION SUBTOTALE&#40;oWnd&#41; \n\n               * CLOSE LISTBAR \n               * Select 1 \n\n\n\n\n                // PULSANTE FINE \n                @ 980 ,1100 BUTTON aSTOR PROMPT &quot;USCITA&quot; OF oWnd FONT oFont ; \n              SIZE 140,50 PIXEL  ACTION oWnd&#58;END&#40;&#41; \n\n                  * oWnd&#58;SetControl&#40; aBtn &#41; \n\n                RETURN NIL \n\n           function Pagina1&#40; oWnd &#41; \n\n         local n \n\n         for n = 2 to 41 \n            oWnd&#58;aControls&#91; n &#93;&#58;SetText&#40; AllTrim&#40; Str&#40; n -1&#41; &#41; &#41; \n         next \n\n      return nil \n\n\n\n\n\n   FUNCTION RESIZE_WINDOW&#40;oWndChild&#41; \n\n      // on resize \n    for n = 1 to 41 \n\n oWndChild&#58;aControls&#91; n &#93;&#58;nTop = &#40;oWndChild&#58;aControls&#91; n &#93;&#58;nTop &#41;-2 \n oWndChild&#58;aControls&#91; n &#93;&#58;nLeft = &#40; oWndChild&#58;aControls&#91; n &#93;&#58;nLeft&#41;-2 \n oWndChild&#58;aControls&#91; n &#93;&#58;nWidth = &#40; oWndChild&#58;aControls&#91; n &#93;&#58;nWidth&#41;-1 \n oWndChild&#58;aControls&#91; n &#93;&#58;nHeight = &#40;oWndChild&#58;aControls&#91; n &#93;&#58;nHeight&#41;-1 \n\n      next \n     * oWndChild&#58;refresh&#40;&#41; \n        RETURN nil\n[/code:as6jtb0e]\n\nPlease help me !!!!!!!!!!!!!!!!!!!!!!!!!! <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','as6jtb0e',1,0,'',49,0,0),(17126,3883,6,2,0,'87.218.146.82',1155308489,1,0,1,1,1,1,'','','Mario,\n\nPodrias usar xHarbour para ese trabajo, ya que puedes compilar indistintamente con Harbour ó xHarbour, que no notarás la diferencia <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nOtra opción es tomar la clase TXML... de xHarbour y compilarla con Harbour, pero tiene un módulo en C que puede dar algo de guerra al pasarlo a Harbour.','',0,'AIA=','24holm80',1,0,'',2,0,0),(17127,3838,3,6,0,'87.17.223.32',1155308827,1,0,1,1,1,1,'','','I don\'t know what you exactly want to do but this is a sample that can give you at least some ideas:\n\n[code:3lsd1t5r]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cVar &#58;= SPACE&#40; 35 &#41;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 GET cVar\n\n    @ 6, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oWnd&#58;End&#40;&#41;\n\n    ACTIVATE WINDOW oWnd;\n             ON RESIZE RESIZECONTROLS&#40; oWnd &#41;;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION RESIZECONTROLS&#40; oWnd &#41;\n\n    LOCAL oCtl\n\n    LOCAL i\n\n    STATIC aRMarg &#58;= &#123;&#125;\n    STATIC aBMarg &#58;= &#123;&#125;\n\n    IF EMPTY&#40; aRMarg &#41;\n        FOR i = 1 TO LEN&#40; oWnd&#58;aControls &#41;\n            oCtl = oWnd&#58;aControls&#91; i &#93;\n\n            AADD&#40; aRMarg, oWnd&#58;nWidth&#40;&#41; - &#40; oCtl&#58;nLeft + oCtl&#58;nWidth&#40;&#41; &#41; &#41;\n            AADD&#40; aBMarg, oWnd&#58;nHeight&#40;&#41; - &#40; oCtl&#58;nTop + oCtl&#58;nHeight&#40;&#41; &#41; &#41;\n        NEXT\n    ENDIF\n\n    FOR i = 1 TO LEN&#40; oWnd&#58;aControls &#41;\n        oCtl = oWnd&#58;aControls&#91; i &#93;\n\n        oCtl&#58;Move&#40; oCtl&#58;nTop, oCtl&#58;nLeft, oWnd&#58;nWidth&#40;&#41; - aRMarg&#91; i &#93;, oWnd&#58;nHeight&#40;&#41; - aBMarg&#91; i &#93;, &#46;T&#46; &#41;\n    NEXT\n\n    RETURN NIL[/code:3lsd1t5r]\n\nEMG','',0,'AIA=','3lsd1t5r',1,0,'',6,0,0),(17128,3869,7,720,0,'80.36.244.134',1155310142,1,0,1,1,1,0,'','','Gracias Antonio, lo he probado y todo ok. Aún me quedan muchas cosas que aprender de esto...\n\nUna curiosidad....para que son las || ?\nSaludos.\n\nElias Torres.','',0,'AIA=','818ozw24',1,0,'',720,0,0),(17129,3888,6,474,0,'201.128.234.237',1155313068,1,0,1,1,1,1,'','ocultar directorio y ADS','Cuales son los pasos para ocultar un directorio y solo pueda accesarlo desde Advantage???  mi servidor es un Netware 6.0  y el servidor ADS es 7.0\n\nTrabajo con Fivewin/xharbour, PHP y ASP accesando a las mismas tablas\n\ngracias\n\n\nGracias por la Ayuda','',0,'AIA=','2y1444kl',1,0,'',474,0,0),(17130,3869,7,138,0,'148.233.151.30',1155313325,1,0,1,1,1,1,'','','lo que mencionas se llaman bloques de codigo y son las estructuras mas poderosas de clipper.\n\nun bloque de codigo o code block te permite meter codigo dentro de una variable y luego evaluarlo, es decir ejecutar dicho codigo. piensa que un code block es una funcion \"lineal\"\n\nbkeychar es un bloque de codigo que recibe 2 parametros, que estan metidos entre || nkey es la tecla presionada y nFlag indica si la tecla va acompañada de alguna tecla de control como alt, ctrl o shift, a continuacion el bloque de codigo ejecuta todas las instrucciones metidas entre los {} que deben ir separados por ,','',0,'AIA=','i9pu07cq',1,0,'',138,0,0),(17131,3879,6,110,0,'165.98.169.198',1155314978,1,0,1,1,1,1,'','','ok, \n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nya lo he probado, efectivamente falla la descompresion, aca reconstrui la app con el ultimo build de xharbour de fivetech y fallo.\n\nhe hecho un build de cvc actual de xharbour y recompilado la app, y todo ha funcionado al 100%.\n\naca el link\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c9bae614/blite.zip.html\">http://hyperupload.com/download/02c9bae ... e.zip.html</a><!-- m -->\n\nsalu2\ncarlos vargas','',0,'AIA=','1inwtp2l',1,0,'',110,0,0),(17132,3880,6,110,0,'165.98.169.198',1155315132,1,0,1,1,1,1,'','','felicitaciones raymundo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nExcelente aportación al foro.\n\nveremos cuando se logra la grabacion a cdrom desde nuestra app o los respaldos programados <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\npara una segunda version <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'AIA=','d4n1dsta',1,0,'',110,0,0),(17133,3841,6,110,0,'165.98.169.198',1155315765,1,0,1,1,1,1,'','','Leandro\n\naca algo similar, lo que faltaria es evaluar el click en el browse, sobrfe que col esta sucediendo para realizar el cambio.\n\n[code:3zb63xm8]\n    WITH OBJECT &#40; oBrw &#58;= TXBrowse&#40;&#41;&#58;new&#40; oDlg &#41; &#41;\n        &#58;CreateFromResource&#40; 101 &#41;\n        &#58;cAlias                 &#58;= &quot;clie&quot;\n        &#58;nColDividerStyle       &#58;= LINESTYLE_DARKGRAY\n        &#58;nRowDividerStyle       &#58;= LINESTYLE_DARKGRAY\n        &#58;nMarqueeStyle          &#58;= MARQSTYLE_HIGHLROW\n        &#58;lAllowRowSizing        &#58;= FALSE\n        &#58;lRecordSelector        &#58;= TRUE\n        &#58;bClrHeader             &#58;= &#123; || &#123; CLR_BLUE, GetSysColor&#40; COLOR_BTNFACE &#41; &#125; &#125;\n        &#58;bLDblClick             &#58;= &#123; || CClienteEditar&#40; &#46;F&#46; &#41; &#125;\n        &#58;nFreeze                &#58;= 5\n\n        /*redefine columnas del browse*/\n        WITH OBJECT &#40; oCol &#58;= &#58;AddCol&#40;&#41; &#41;\n            &#58;cHeader  &#58;= &quot;Codigo&quot;\n            &#58;bStrData &#58;= &#123; || clie-&gt;codigo &#125;\n            &#58;bClrStd  &#58;= &#123; || &#123; CLR_BLUE, CLR_HGRAY &#125; &#125;\n            &#58;nWidth   &#58;= 80\n        END\n        WITH OBJECT &#40; oCol &#58;= &#58;AddCol&#40;&#41; &#41;\n            &#58;cHeader  &#58;= &quot;Nombre&quot;\n            &#58;bStrData &#58;= &#123; || clie-&gt;nombre &#125;\n            &#58;nWidth   &#58;= 240\n        END\n        WITH OBJECT &#40; oCol &#58;= &#58;AddCol&#40;&#41; &#41;\n            &#58;cHeader  &#58;= &quot;Telefono&quot;\n            &#58;bStrData &#58;= &#123; || clie-&gt;telefono &#125;\n            &#58;nWidth   &#58;= 080\n        END\n        WITH OBJECT &#40; oCol &#58;= &#58;AddCol&#40;&#41; &#41;\n            &#58;cHeader  &#58;= &quot;Saldo C$&quot;\n            &#58;bStrData &#58;= &#123; || Transform&#40; clie-&gt;saldo, &quot;999,999&#46;99&quot; &#41; &#125;\n            &#58;bClrStd  &#58;= &#123; || &#123; CLR_RED, RGB&#40;255,255,230&#41; &#125; &#125;\n            &#58;nWidth   &#58;= 070\n            &#58;nHeadStrAlign &#58;= AL_RIGHT\n            &#58;nDataStrAlign &#58;= AL_RIGHT\n        END\n\n        //aca el bitmap\n        WITH OBJECT &#40; oCol &#58;= &#58;AddCol&#40;&#41; &#41;\n            &#58;AddResource&#40;&quot;B_CHKON&quot;&#41;\n            &#58;AddResource&#40;&quot;B_CHKOFF&quot;&#41;\n            &#58;cHeader  &#58;= &quot;Activo&quot;\n            &#58;bBmpData &#58;= &#123; || iif&#40; clie-&gt;activo, 1, 2 &#41; &#125;\n            &#58;nWidth   &#58;= 060\n            &#58;nHeadStrAlign &#58;= AL_CENTER\n            &#58;nDataBmpAlign &#58;= AL_CENTER\n        END\n    END\n\n[/code:3zb63xm8]\n\n\nsalu2\ncarlos vargas','',0,'AIA=','3zb63xm8',1,0,'',110,0,0),(17134,3879,6,362,0,'200.168.52.156',1155317263,1,0,1,1,1,1,'','','[quote=&quot;carlos vargas&quot;:25ed0m0p]ok, \n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nya lo he probado, efectivamente falla la descompresion, aca reconstrui la app con el ultimo build de xharbour de fivetech y fallo.\n\nhe hecho un build de cvc actual de xharbour y recompilado la app, y todo ha funcionado al 100%.\n\naca el link\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c9bae614/blite.zip.html\">http://hyperupload.com/download/02c9bae ... e.zip.html</a><!-- m -->\n\nsalu2\ncarlos vargas[/quote:25ed0m0p]\n\n\nGRACIAS, CARLOS.\n\nAKÁ, ME BASTO INCLUIR PCREPOS.LIB, KE TUDO FUNCIONO PERFECTO.\n\nUSTED ÉS GRAND MI AMIGO.\n\nMUCHAS GRACIAS A TI. SALUDOS.','',0,'gA==','25ed0m0p',1,0,'',362,0,0),(17135,3817,3,213,0,'24.175.56.72',1155319016,1,0,1,1,1,0,'','','Antonio, James, Roger,\n\nThanks a lot for fixing this!  \n\nBest Regards,\nRandal Ferguson','',0,'gA==','stftb6re',1,0,'',213,0,0),(17136,3879,6,362,0,'200.168.52.156',1155325395,1,0,1,1,1,1,'','','Carlos,\n\nNueva Versión.\n\nProfessional Edition.\n\nMira aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/674XBLITE.ZIP\">http://www.fivewin.com.br/Dicas/674XBLITE.ZIP</a><!-- m -->','',0,'gA==','2aewozma',1,0,'',362,0,0),(17137,3889,2,52,0,'200.127.195.89',1155332014,1,0,1,1,1,1,'','iconos vs. XP','Amigos.\n\nTengo una app en FW 2.1, los dialogos en W98 muestran los iconos de la barra del CAPTION perfectamente, en XP no se muestran, solo aparece un cuadradito.\n\nDe que forma se puede resolver esto?\n\nGracias.','',0,'gA==','3e55v3gz',1,0,'',52,0,0),(17138,3890,3,286,0,'201.243.176.207',1155335843,1,0,1,1,1,1,'','ADO Recordset Methods','Hi guys\n\nWhere I can find more information about ADO Recordset methods and properties like RecordCount(), fields etc\n\nThanks','',0,'gA==','ho79qw84',1,0,'',286,0,0),(17139,3888,6,299,0,'69.65.86.182',1155344084,1,0,1,0,1,0,'','','No tengo la experiencia con Netware y ADS.  Pero si con Linux y Windows server.  El proceso debe ser similar.\n\nPrimero asigno \"ownership\" del directorio y los archivos al mismo usuario que es dueño del servicio de ADS server.  Mas nadie tiene acceso a ver, o escribir en ese directorio.\n\nSegundo necesitas un ADS data dictionary al cual te vas a conectar desde tu applicación de FWh + xharbour.  Una vez el DD exite, ya te puedes conectar y tienes acceso a la data.  Y es porque al conectarte al DD es el servicio del ADS server quien tiene el acceso a la data y le habla al cliente que se conecta al DD.\n\nUn poco de código abajo:\n[code:2ygcylkl]\n	INI oIni FILE cIni\n		Get xRDD SECTION &quot;RDD&quot; ENTRY &quot;RDD-VERSION&quot; OF oIni DEFAULT &quot;LOCAL&quot;\n		Get xRDDpath SECTION &quot;RDD&quot; ENTRY &quot;PATH&quot; OF oIni DEFAULT cAppPath + &quot;data\\&quot;\n	ENDINI\n\n	if xRDD &lt;&gt; &quot;LOCAL&quot;\n		rddsetdefault&#40; &quot;ADS&quot; &#41;\n		AdsSetFileType&#40; ADS_NTX &#41;\n		AdsLocking&#40; ADS_COMPATIBLE_LOCKING &#41;\n		rddRegister &#40; &quot;ADS&quot;, 1 &#41;\n		AdsRightsCheck&#40; 0 &#41;\n		if xRDD == &quot;REMOTE&quot;\n			ADSSetServerType&#40; ADS_REMOTE_SERVER &#41;\n			if  !AdsConnect60&#40; xrddpath + &quot;pathlabs&#46;add&quot;, ADS_REMOTE_SERVER, &quot;ADSSYS&quot;, &quot;&quot; &#41;\n				MsgStop&#40; &quot;Cannot connect to Remote Server &quot; + Str&#40; AdsGetLastError&#40;&#41; &#41;, xrddpath + &quot;pathlabs&#46;add&quot; &#41;\n				Quit\n			endif\n		else\n			ADSSetServerType&#40; ADS_AIS_SERVER &#41;\n			if  !AdsConnect60&#40; xrddpath + &quot;pathlabs&#46;add&quot;, ADS_AIS_SERVER, &quot;internetuser&quot;, &quot;pathlabs&quot; &#41;\n				MsgStop&#40; &quot;Cannot connect to AIS Server &quot; + Str&#40; AdsGetLastError&#40;&#41; &#41;, xrddpath + &quot;pathlabs&#46;add&quot; &#41;\n				Quit\n			endif\n		Endif\n	endif\n[/code:2ygcylkl]\nAqui ya tengo creado el DD y se llama pathlabs.add y con este codigo me conecto al DD ya sea dentro de la red o desde afuera via internet.','',0,'AIA=','2ygcylkl',1,0,'',299,0,0),(17140,3891,3,299,0,'69.65.86.182',1155346405,1,0,1,0,1,0,'','Memory Leak?','Hi.\n\nOn a given app, after execution of a few Tprinter previews, all the preview window\'s controls (first page, next page, prev page, last page, print, exit, etc...) are lost.  ie, not visible any more.  They are still there and although invisible, you may click in the area where they were supposed to show up and they do their function.  Even the ballons show up.\n\nI\'m thinking perhaps it is all due to memory leaks.  The reason why I suspect this is because all bitmpas that normaly show as part of the printed text  (such as the logo) are also gone as well.  I first loose the preview window\'s background.  Then the form\'s logo and any other bitmaps that are supposed to print.  And finally, I loose the actual control\'s bitmaps.\n\nIf you exit the app and return it all works well again for a few more prints.  Using a share version of FreeRam XP I was able to see available memory drop from 355k to 33k only after about 35 tprinter executions.\n\nHow can I find out (debug) what\'s happening here?\n\nThank you,\n\n\nReinaldo.','',0,'AIA=','3el15z76',1,0,'',299,0,0),(17141,3875,6,121,0,'201.154.77.106',1155350128,1,0,1,1,1,1,'','','RECUERDO QUE EN DBASE\nSE UTILIZABA:\nAPPEND FROM ARCHIVO.TXT DELIMITED\n\nY ESO ERA SUFICIENTE PARA  ARCHIVOS DELIMITADOS\n\nAPPEN FROM ARCHIVO.TXT SDF PARA ARCHIVOS TABULARES\n\n\nOJALA SIRVA\n\nSALUDOS','',0,'AIA=','11vjtsn0',1,0,'',121,0,0),(17142,3886,3,15,0,'210.201.24.223',1155352916,1,0,1,1,1,0,'','','Hello areang,\n\nI have a good solution for it. But it\'s not free.\nYou can search google web site.\n\nRegard,\n\nRichard','',0,'AIA=','mc0iah4e',1,0,'',15,0,0),(17143,3886,3,707,0,'222.124.20.50',1155354954,1,0,1,1,1,0,'','','How to buy ?\nWhere ?\nWhat Payment Methode ( I have Credit Card )\n\nAreang','',0,'AIA=','3gjcwv48',1,0,'',707,0,0),(17144,3860,1,303,0,'72.199.41.171',1155361690,1,0,1,1,1,0,'','','Kleyton,\n\nYou cannot use OLE with Outlook Express, but you can use FW\'s TMail class. See my reponse to your message in the FWH section.\n\nJames','',0,'AIA=','3rl00os1',1,0,'',303,0,0),(17145,3891,3,2,0,'87.218.146.82',1155364801,1,0,1,1,1,1,'','','Reinaldo,\n\nUsually it is a resources leak that takes the app to such situation.\n\nCould you aisle a small and self contained sample of the print that you are doing, to reproduce the error ? Thanks,','',0,'AIA=','2ossgh1g',1,0,'',2,0,0),(17146,3860,1,2,0,'87.218.146.82',1155364946,1,0,1,1,1,1,'','','Kleyton,\n\nHere it works fine with Outlook 2003 (not Outlook Express).','',0,'AIA=','3g6zy52w',1,0,'',2,0,0),(17147,3889,2,2,0,'87.218.146.82',1155365048,1,0,1,1,1,1,'','','Gustavo,\n\nPuedes poner un ejemplo de como estás asignando el icono ? gracias','',0,'AIA=','3oi2i2tx',1,0,'',2,0,0),(17148,3875,6,9,0,'85.54.224.198',1155369931,1,0,1,1,1,1,'','','[quote=&quot;Marco Augusto&quot;:3htn6x5f]APPEND FROM ARCHIVO.TXT DELIMITED\n[/quote:3htn6x5f]\n\nMarco Augusto,\n\nAPPEND FROM ... DELIMITED WITH ...  funciona cuando el delimitador es \",\" pero no (por lo menos a mi) cuando el delimitador es \";\" como es el caso que expone José.  \n\nPor otra parte, al mostrar las fecha como dd/mm/aaaa, creo que tampoco funcionaría, ya que  hay que tenerlas en formato aaaammdd.','',0,'gA==','3htn6x5f',1,0,'',9,0,0),(17149,3890,3,6,0,'87.11.236.23',1155376217,1,0,1,1,1,1,'','Re: ADO Recordset Methods','On MSDN.\n\nEMG','',0,'gA==','kv8e94s2',1,0,'',6,0,0),(17150,3838,3,67,0,'62.235.24.51',1155376262,1,0,1,1,1,0,'','','I suppose that the goal is that when the window is reduced with 50% , also the objects (nWidth , nHeight) are reduced with 50%\n\nSame can be done with ntop , nleft \n\nFrank\n\n[code:3cu2scpd]\n# include &quot;Fivewin&#46;ch&quot; \n\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oWnd \n\n    LOCAL cVar &#58;= SPACE&#40; 35 &#41; \n\n    DEFINE WINDOW oWnd \n\n    @ 1, 1 GET cVar \n\n    @ 6, 1 BUTTON &quot;&amp;Close&quot;; \n           ACTION oWnd&#58;End&#40;&#41; \n\n    ACTIVATE WINDOW oWnd; \n             ON RESIZE RESIZECONTROLS&#40;nSizeType,nWidth,nHeight,oWnd &#41;; \n\n    RETURN NIL \n\n\nSTATIC FUNCTION RESIZECONTROLS&#40;nSizeType,nWidth,nHeight, oWnd &#41; \n\nLOCAL oCtl \n\nLOCAL i\n\nSTATIC aWidth  &#58;= &#123;&#125;\nSTATIC aHeight &#58;= &#123;&#125;\n		 \nSTATIC StartWidth , StartHeight\n\n\nIF EMPTY&#40; aWidth &#41; \n   FOR EACH oCtl IN oWnd&#58;aControls \n      AADD&#40; aWidth , oCtl&#58;nWidth&#40;&#41; &#41;\n      AADD&#40; aHeight , oCtl&#58;nHeight&#40;&#41; &#41;\n   NEXT \n   StartWidth  &#58;= oWnd&#58;nWidth&#40;&#41;\n   StartHeight &#58;= oWnd&#58;nHeight&#40;&#41;\nENDIF \nFOR EACH oCtl IN oWnd&#58;aControls \n  i &#58;= Hb_EnumIndex&#40;&#41;\n  oCtl&#58;Move&#40; oCtl&#58;nTop, oCtl&#58;nLeft, aWidth&#91;i&#93;* oWnd&#58;nWidth&#40;&#41;/StartWidth , aHeight&#91;i&#93; * oWnd&#58;nHeight&#40;&#41;/StartHeight , &#46;T&#46; &#41;        \nNEXT \n\nRETURN NIL[/code:3cu2scpd]','',0,'AIA=','3cu2scpd',1,0,'',67,0,0),(17151,3838,3,49,0,'62.13.172.78',1155379693,1,0,1,1,1,1,'','','OK \ni WANTED TO RESIZE ALL CONTROLS ON THE WND \ni MADE A WINDOW MAXIMIZED BUT i WANTED THE USER CAN RESIZE THE WINDOW  TO A  SMALL WINDOW  SEEING ALL THE CONTROLS AND OPERATING INTO \n\ni TRY  YOUR SAMPLE WITH MY MODIFIES\n [code:2wtmwi4c]\n# include &quot;Fivewin&#46;ch&quot;\n\n#define PAGINA1     &quot;Pag1&quot;\n#define PAGINA2     &quot;Pag2&quot;\n#define PAGINA3     &quot;Pag3&quot;\n#define PAGINA4     &quot;Pag4&quot;\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oWnd ,oLbx ,oFont\n\n    LOCAL cVar &#58;= SPACE&#40; 35 &#41; \n\n    DEFINE WINDOW oWnd\n              DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, -20\n\n    @20,5 LISTBOX oLbx FIELDS &quot;&quot;;\n                         HEADER &quot;ARTICOLO&quot;,  &quot;QTA&quot;,  ;\n                                &quot;PREZZO&quot;, &quot;TOTALE&quot;                     ;\n                         OF oWnd SIZE 650,600 PIXEL                     ;\n                         SIZES  230, 80,90,90  ;\n                         FONT oFont\n\n\n\n\n             makebuttons&#40;20,660,oWnd,oFont,oLBX&#41;\n\n\n\n\n    ACTIVATE WINDOW oWnd MAXIMIZED;\n             ON RESIZE RESIZECONTROLS&#40;nSizeType,nWidth,nHeight,oWnd &#41;;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION RESIZECONTROLS&#40;nSizeType,nWidth,nHeight, oWnd &#41; \n\nLOCAL oCtl\n\nLOCAL i\n\nSTATIC aWidth  &#58;= &#123;&#125;\nSTATIC aHeight &#58;= &#123;&#125;\n\nSTATIC StartWidth , StartHeight\n\n\nIF EMPTY&#40; aWidth &#41;\n   FOR EACH oCtl IN oWnd&#58;aControls\n      AADD&#40; aWidth , oCtl&#58;nWidth&#40;&#41; &#41;\n      AADD&#40; aHeight , oCtl&#58;nHeight&#40;&#41; &#41;\n   NEXT\n   StartWidth  &#58;= oWnd&#58;nWidth&#40;&#41;\n   StartHeight &#58;= oWnd&#58;nHeight&#40;&#41;\nENDIF\nFOR EACH oCtl IN oWnd&#58;aControls\n  i &#58;= Hb_EnumIndex&#40;&#41;\n  oCtl&#58;Move&#40; oCtl&#58;nTop, oCtl&#58;nLeft, aWidth&#91;i&#93;* oWnd&#58;nWidth&#40;&#41;/StartWidth , aHeight&#91;i&#93; * oWnd&#58;nHeight&#40;&#41;/StartHeight , &#46;T&#46; &#41;\nNEXT\n\nRETURN NIL\n\n\n\n  STATIC FUNCTION  makebuttons&#40;X,y,ownd,oFont,oLBX&#41;\n   LOCAL k\n\n\n   BOTTONI &#58;=40     // but I want see 160 buttons !!!!!!!!!!!!!\n\n\n\n                 n  &#58;= 1\n                 aBtn &#58;= Array&#40;BOTTONI&#41;\n                 X = 20\n                 Y = 660\n\n                USE LISTBAR Alias LISTBAR INDEX BAR\n\n\n                 FOR k &#58;= 1 TO BOTTONI\n                    cCaption &#58;= &quot;&quot;\n\n                       nBottone&#58;=n\n                      LISTBAR-&gt;&#40;DbSeek&#40;nBottone&#41;&#41;\n                      cCaption &#58;= AllTrim&#40;LISTBAR-&gt;CODICE&#41;\n\n                       IF !Empty&#40; cCaption &#41;\n\n              @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT cCaption OF oWnd FONT oFont ;\n              SIZE 140,85 PIXEL\n           ELSE\n                 @ X+2  ,Y BUTTON aBtn&#91;n&#93; PROMPT Str&#40;nBottone,3,0&#41; OF oWnd FONT oFont ;\n              SIZE 140,85 PIXEL\n\n                 ENDIF\n\n                     /*\n                              aBtn&#91;n&#93;&#58;bAction &#58;= &#123;|oBtn| AddLbx&#40;oGet,oBtn,oLbx&#41; &#125;\n\n\n                              IF !Empty&#40;cCaption &#41;\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Full\', n &#125;\n                                ELSE\n                                   aBtn&#91;n&#93;&#58;cargo &#58;= &#123; \'Empty\', n &#125;\n                                ENDIF\n\n*/\n\n\n\n\n\n\n\n\n\n                   X +=85\n                    n++\n                    // LISTBAR-&gt;&#40;dbskip&#40;&#41;&#41;\n                    IF n= 11  &#46;OR&#46; n=21 &#46;OR&#46; n=31  &#46;OR&#46; n=41\n                        X=20\n                       Y=Y+145\n                    ENDIF\n\n\n\n\n\n                    NEXT\n\n\n\n                    // bottoni per le pagine ???????\n                    // ma come cambiare pagina ??????\n                    // Pagina1  da 1a 40\n                    // pagina 2 da 41 a 80\n                    // pagina 3 da 81 a 120\n                    // pagina 4 da 121 a 160\n\n                     X=900\n                    y=660\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA1  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION Pagina1&#40; oWnd &#41;\n                Y=Y+145\n\n                 @ X+2  ,Y BUTTON aPag2 PROMPT PAGINA2  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION Pagina2&#40; oWnd &#41;\n                 Y=Y+145\n                @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA3  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION Pagina3&#40; oWnd &#41;\n                     Y=Y+145\n                 @ X+2  ,Y BUTTON aPag1 PROMPT PAGINA4  OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL\n              *ACTION SUBTOTALE&#40;oWnd&#41;\n\n               * CLOSE LISTBAR\n               * Select 1\n\n\n\n\n                // PULSANTE FINE\n                @ 980 ,1100 BUTTON aSTOR PROMPT &quot;USCITA&quot; OF oWnd FONT oFont ;\n              SIZE 140,50 PIXEL  ACTION oWnd&#58;END&#40;&#41;\n\n                  * oWnd&#58;SetControl&#40; aBtn &#41;\n\n                RETURN NIL\n\n\n\n\n\n\n\n[/code:2wtmwi4c]\n\nBUT NOT WORK GOOD !!\n\nWHEN i RESIZE THE WINDOW i WANT SEE ALL THE CONTROLS !!!!\ni THINK IT MUST CHANGE ALL THE COORDINATES X,Y OF EACH CONTROLS ?\n\nCAN YOU HELP ME ?','',0,'AIA=','2wtmwi4c',1,0,'',49,0,0),(17152,3890,3,286,0,'201.243.176.207',1155381958,1,0,1,1,1,1,'','','Thanks Enrico','',0,'AIA=','1h6kw8pj',1,0,'',286,0,0),(17153,3838,3,154,0,'151.81.1.245',1155382060,1,0,1,1,1,1,'','','Try it:\n[code:1wg20ati]&#46;&#46;&#46;\n  ACTIVATE WINDOW oDlg MAXIMIZED ON INIT ResizeDlg&#40; oCassa &#41;\n&#46;&#46;&#46;[/code:1wg20ati]\n\n\n[code:1wg20ati]\n// Now set the default oDlg measure\n#define WIN_DEFAULT_WIDTH  1280\n#define WIN_DEFAULT_HEIGHT 1024\n\nSTATIC FUNCTION ResizeDlg&#40; oDlg &#41;\n\n   LOCAL nXZoom, nYZoom, nWidth, nHeight\n\n   nXZoom    &#58;= WndWidth&#40; GetDesktopWindow&#40;&#41; &#41;  / WIN_DEFAULT_WIDTH\n   nYZoom    &#58;= WndHeight&#40; GetDesktopWindow&#40;&#41; &#41; / WIN_DEFAULT_HEIGHT\n\n   AEval&#40; oDlg &#58;aControls, &#123;| a | a&#58;nTop *= nYZoom, a&#58;nHeight *= nYZoom, a&#58;nLeft *= nXZoom, a&#58;nWidth *= nXZoom &#125; &#41;\n\n   RETURN Nil\n[/code:1wg20ati]\n\nIt is good?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nThis code don\'t resize the Font of the control <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'AIA=','1wg20ati',1,0,'',154,0,0),(17154,3892,3,154,0,'151.81.1.245',1155383347,1,0,1,1,1,1,'','Activex feature','Dear fwh\'s\nI want test the new TActivex class but i don\'t know where found the \ncProgId and the \"Do\" possibility for the selected Activex!\n\nFE  (from TOOO test):\n[code:2sn5hr5y]&#46;&#46;&#46;\n   DEFINE Window oWnd\n      oWnd&#58;SetText&#40; &quot;Vemos el PDF desde nuestra app&quot; &#41;\n      // oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;PDF&#46;PdfCtrl&#46;5&quot; &#41;\n      // oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;PDF&#46;PdfCtrl&#46;6&quot; &#41;\n      oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;AcroPDF&#46;PDF&#46;1&quot; &#41;  AcroRead 7&#46;0\n      oWnd&#58;oClient = oActiveX\n      oActiveX&#58;Do&#40; &quot;LoadFile&quot;, &quot;c&#58;\\oskar&#46;pdf&quot; &#41;\n      oActiveX&#58;Do&#40; &quot;SetCurrentPage&quot;, 1 &#41;\n   ACTIVATE WINDOW oWnd ;\n      ON INIT oActiveX&#58;Do&#40; &quot;Show&quot; &#41;\n[/code:2sn5hr5y]\n\nAnd \"oActiveX&#058;Do( \"Show\" )\" return error:\n\n   Descrizione: Error BASE/1004  No exported method: Show\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; ACTXINVOKE(0)\n   Called from: ACTIVEX.prg =&gt; TACTIVEX&#058;DO(87)\n   Called from: Main.prg =&gt; (b)MAIN(112)\n   Called from: WINDOW.prg =&gt; TWINDOW:ACTIVATE(879)\n   Called from: Main.prg =&gt; MAIN(112)\n\n\nThanks in advance.','',0,'AIA=','2sn5hr5y',1,0,'',154,0,0),(17155,3838,3,49,0,'62.13.172.78',1155383947,1,0,1,1,1,1,'','','the sample not work for me \n\nthe samples of emg and frank is good but if I rezise the window the procedura must resize all the controls and I must see all ( listbox, button,get ecc.) into smal window if you open outlook window and resize it you can see al the controls smaller into small window and you  could operate into.\n\nI hope you understand me ....\n\nthe sample od EMG is good but the button rest on x.y initial but the must move to left if I resize the window on the left ....','',0,'AIA=','xvnu8mmy',1,0,'',49,0,0),(17156,3889,2,52,0,'200.127.195.89',1155389660,1,0,1,1,1,1,'','','Antonio,\n\n[code:1brk2hsf]   \n    local oI, oD\n    \n    define icon oI resource &quot;MEGA&quot;\n    define dialog oD resource &quot;PADRONES&quot; title &quot;Clientes - Padrón General&quot; icon oI[/code:1brk2hsf]','',0,'AIA=','1brk2hsf',1,0,'',52,0,0),(17157,3892,3,2,0,'87.218.146.10',1155392148,1,0,1,1,1,1,'','','Ugo,\n\nYou may use Microsoft free OleView to inspect the ActiveX that you have installed on your computer:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02b7308587/oleview.zip.html\">http://hyperupload.com/download/02b7308 ... w.zip.html</a><!-- m -->\n\nFrom that application you can also inspect the available properties and methods. Besides that, you may google for info about a specific ActiveX and read some docs and samples about it.','',0,'AIA=','3g52k8au',1,0,'',2,0,0),(17158,3838,3,67,0,'62.235.24.51',1155394062,1,0,1,1,1,0,'','','Also nTop and nleft can be changed\n\n[code:lhezvj65]\nSTATIC FUNCTION RESIZECONTROLS&#40;nSizeType,nWidth,nHeight, oWnd &#41; \n\n    LOCAL oCtl \n\n    LOCAL i , aHlp&#91;4&#93; , j , Factor &#58;= Hash&#40;&#41;\n\n		STATIC aCoordinates &#58;= &#123;&#125;\n		 \n		STATIC StartWidth , StartHeight\n\n\n    IF EMPTY&#40; aCoordinates &#41; \n				FOR EACH oCtl IN oWnd&#58;aControls\n						AADD&#40;aCoordinates , Array&#40;4&#41;&#41;\n						i &#58;= Hb_EnumIndex&#40;&#41; //LEN&#40;aCoordinates&#41;          \n						aCoordinates&#91;i,1&#93; &#58;= oCtl&#58;nTop\n						aCoordinates&#91;i,2&#93; &#58;= oCtl&#58;nLeft\n						aCoordinates&#91;i,3&#93; &#58;= oCtl&#58;nWidth&#40;&#41;\n						aCoordinates&#91;i,4&#93; &#58;= oCtl&#58;nHeight&#40;&#41;\n        NEXT \n    		StartWidth  &#58;= oWnd&#58;nWidth&#40;&#41;\n				StartHeight &#58;= oWnd&#58;nHeight&#40;&#41;\n		ENDIF \n		Factor&#91;&quot;H&quot;&#93; &#58;= oWnd&#58;nWidth&#40;&#41;/StartWidth\n		Factor&#91;&quot;V&quot;&#93; &#58;= oWnd&#58;nHeight&#40;&#41;/StartHeight\n		FOR EACH oCtl IN oWnd&#58;aControls\n				i &#58;= Hb_EnumIndex&#40;&#41;\n				aHlp&#91;1&#93; &#58;= aCoordinates&#91;i,1&#93;*Factor&#91;&quot;V&quot;&#93;\n				aHlp&#91;2&#93; &#58;= aCoordinates&#91;i,2&#93;*Factor&#91;&quot;H&quot;&#93;\n				aHlp&#91;3&#93; &#58;= aHlp&#91;1&#93; + aCoordinates&#91;i,3&#93;*Factor&#91;&quot;H&quot;&#93;\n				aHlp&#91;4&#93; &#58;= aHlp&#91;2&#93; + aCoordinates&#91;i,4&#93;*Factor&#91;&quot;V&quot;&#93;\n        oCtl&#58;Move&#40; aHlp&#91;1&#93; , aHlp&#91;2&#93; , aHlp&#91;3&#93; , aHlp&#91;4&#93; , &#46;T&#46; &#41; \n    NEXT \n\n    RETURN NIL \n\n[/code:lhezvj65]\nFrank','',0,'AIA=','lhezvj65',1,1155395416,'',67,1,0),(17159,3838,3,49,0,'62.13.172.78',1155394259,1,0,1,1,1,1,'','','GOOOOOOOODDD MR FRANK\n\n How I can make to resize also the font into listbox and buttons ?\n\nI use only this font into wnd\n\nDEFINE FONT oFont NAME \"MS Sans Serif\" SIZE 0, -20 \n\n\n\n BEST BEST REGARDS','',0,'AIA=','3aazg4ck',1,0,'',49,0,0),(17160,3893,6,362,0,'200.168.52.156',1155397448,1,0,1,1,1,1,'','PATCHX.LIB E GTGUI.LIB','Hola Amigos,\n\nPor Favor, Necesito de estas BIBLIOTECAS DEL XHARBOUR.\n\nDonde las Encuentro?\n\nPATCHX.LIB E GTGUI.LIB\n\nGracias.\n\nEmail:\n\n<!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->','',0,'AIA=','j4wuhb0o',1,0,'',362,0,0),(17162,3880,6,492,0,'201.154.126.49',1155402983,1,0,1,1,1,1,'','','Muchas Gracias Carlos  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nAmigo mio, suenan muy bien esas observaciones tuyas, las estare analizando y probando.\n\n\nSaludos','',0,'AIA=','3bjy9jw8',1,0,'',492,0,0),(17163,3888,6,138,0,'201.128.111.188',1155403329,1,0,1,1,1,1,'','','1) Comparte la carpeta donde tienes los datos\n2) No asignes ningun usuario a dicha capeta\n3) en tu codigo llama a la función ADSRightsCheck(.F.)\n\ny listo.','',0,'AIA=','2d9du8ly',1,0,'',138,0,0),(17164,3895,3,694,0,'200.138.82.155',1155405306,1,0,1,1,1,1,'','Antonio é possível criar documentos do WORD com FIVEWIN?','<!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \nAntonio, muito obrigado por toda a ajuda que você está me concedendo, I LOVE FIVEWIN...\n\n\nAntonio, é possível com o FIVEWIN, poder criar documentos do WORD?\nPreciso que o FIVEWIN crie documentos padrão do WORD e imprima, é possível?\n\nEstou desenvolvendo uma aplicação para um cartório, e gostaria de facilitar a vida dos escrivães...\n\nDesde já sou eternamente grato\n\nFIQUE COM DEUS\nAOKISANTOS\n\nFWH25 + XHARBOUR 99.50','',0,'AIA=','1at7lem9',1,0,'',694,0,0),(17165,3895,3,9,0,'85.54.224.198',1155409610,1,0,1,1,1,1,'','','Claro que es posible. Aqui tienes un ejemplo:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0167295252/WORDMCN.PRG.html\">http://hyperupload.com/download/0167295 ... N.PRG.html</a><!-- m -->','',0,'AIA=','1g68wfpd',1,0,'',9,0,0),(17166,3880,6,492,0,'201.154.126.49',1155419915,1,0,1,1,1,1,'','','Hola\n\nMuchas gracias a todos los amigos que se han tomado la molestia en bajar y testear iBackUp !!\n\nMe han estado enviando sugerencias y algunas correcciones ( Carlos Vargas, Jose Murugosa, Jose Luis Ysturiz..... )\n\nEmpezare a hacer una lista y las correcciones pertienentes y dentro de poco les dare noticias de estas.\n\nSaludos','',0,'AIA=','2px1dar3',1,0,'',492,0,0),(17167,3896,3,160,0,'210.212.142.91',1155450217,1,0,1,1,1,0,'','Do I need to link GTGUI.Lib ?','Hello All,\n\nI am using May 2006 build. Do I need to link GTGUI.lib ? Will that prevent another DOS window appearing when I start the application ?\n\nTIA\nMilan.','',0,'AIA=','14isbh8j',1,0,'',160,0,0),(17168,3897,3,160,0,'210.212.142.91',1155451169,1,0,1,1,1,0,'','Latest CVS Update Error','With latest CVS Update, I am getting following error :\n\nfivewin.ch(202) Error F0023  Unknown result marker &lt;uAction&gt; in #directive\n\nAny clue to solve the same ?\n\nTIA\nMilan.','',0,'AIA=','2cmzq7iu',1,0,'',160,0,0),(17169,3896,3,2,0,'80.32.22.38',1155453942,1,0,1,1,1,1,'','','Milan,\n\nYes, GTGUI.lib is required instead of GTWIN.lib. If it does not properly work with the build that you have, then you may try GTNUL.lib instead.','',0,'AIA=','18f9icgy',1,0,'',2,0,0),(17170,3897,3,2,0,'80.32.22.38',1155454088,1,0,1,1,1,1,'','','Milan,\n[code:149tu5vz]\n         &#91; &lt;oBtn&gt; &#58;= &#93; TBtnBmp&#40;&#41;&#58;NewBar&#40; &lt;cResName1&gt;, &lt;cResName2&gt;,;\n            &lt;cBmpFile1&gt;, &lt;cBmpFile2&gt;, &lt;cMsg&gt;, &#91;&#123;|This|&lt;uAction&gt;&#125;&#93;,;\n            &lt;&#46;group&#46;&gt;, &lt;oBar&gt;, &lt;&#46;adjust&#46;&gt;, &lt;&#123;WhenFunc&#125;&gt;,;\n            &lt;cToolTip&gt;, &lt;&#46;lPressed&#46;&gt;, &#91;\\&#123;||&lt;bDrop&gt;\\&#125;&#93;, &#91;#&lt;uAction&gt;&#93;, &lt;nPos&gt;,;\n            &lt;cPrompt&gt;, &lt;oFont&gt;, &#91;&lt;cResName3&gt;&#93;, &#91;&lt;cBmpFile3&gt;&#93;, &#91;!&lt;&#46;lNoBorder&#46;&gt;&#93;,;\n            &#91;&lt;oPopup&gt;&#93;, &#91; Upper&#40;&lt;&#40;layout&#41;&gt;&#41; &#93; &#41;\n[/code:149tu5vz]','',0,'AIA=','149tu5vz',1,0,'',2,0,0),(17171,3893,6,2,0,'80.32.22.38',1155454282,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e4ad1053/gtgui.zip.html\">http://hyperupload.com/download/02e4ad1 ... i.zip.html</a><!-- m -->','',0,'AIA=','1yv9u7d9',1,0,'',2,0,0),(17172,3713,1,170,0,'80.170.88.219',1155456062,1,0,1,1,1,1,'','','Otto,\n\nTry with StopUntil( &lt;bCondition&gt; ).\n\nRegards,','',0,'AIA=','s9z174zw',1,0,'',170,0,0),(17173,3897,3,160,0,'210.212.142.91',1155456672,1,0,1,1,1,0,'','','Dear Antonio,\n\nI am still getting the same error. May be I am doing something wrong. Can you send the revised FiveWin.ch to my private mail and oblige ?\n\nTIA\nMilan.','',0,'AIA=','194jqvzd',1,0,'',160,0,0),(17174,3898,6,211,0,'88.12.217.130',1155466318,1,0,1,1,1,0,'','No consigo usar Tree','Hola. He revisado el foro en busca de info para meter un tree en un diálogo pero me he rendido, no lo consigo. Así que desde mi diálogo llamo a una window con un tree. Si compilo solo la parte de la window me sale la window con el tree y todo correcto, pero si la llamo desde un botón de mi diálogo se crea la ventana y luego me da un fallo:\nApplication\n===========\n   Path and name: C:\\PRU\\MENU.EXE\n   Size: 1,355,200 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Error ocurred at: 13-08-2006, 12:44:46\n   Error description: Error BASE/1066  Argument error: conditional\n   Args:\n     [   1] = A   { ... } Array\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from TTREEVIEW:NEW(0)\n   Called from CREATREE(425)\n   Called from (b)CHILDTREE(408)\n   Called from TMDICHILD:ACTIVATE(0)\n   Called from (b)TMDICHILD(0)\n   Called from CHILDTREE(408)\n   Called from (b)SEL_LA_FAM(373)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from SEL_LA_FAM(373)\n   Called from (b)EDIT_AR(197)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TBTNBMP:HANDLEEVEN(0)\n\nEl fallo aparentemente es en la línea 425 que os marco en negrita\n\n\n   LOCAL oTree\n   LOCAL oRoot\n   LOCAL oLink\n\n   LOCAL nStep\n\n   @ 0, 0 TREE oTree OF oChild ;\n     SIZE 0, 0 PIXEL;\n     BITMAPS { \"Paper\",\"FoldClose\",\"FoldOpen\", \"BookClose\", \"BookOpen\", \"Tabla\", \"Procedimiento\", \"Usuario\", \"Server\", \"Ejecutivo\", \"Respaldo\" } ;\n     TREE STYLE nOr( TVS_HASLINES, TVS_HASBUTTONS );\n     [b:r49x40ef]ON DBLCLICK ClickTree(oTree)[/b:r49x40ef]\n\n   oTree:bRClicked = {|nRow,nCol| MenuTree(oTree,nRow,nCol)}\n\n   oChild:SetControl(oTree)\n\n   oRoot := oTree:GetRoot()\n\n   oRoot := oRoot:AddLastChild( \"Servidor\", 9, 9 )\n\n   oRoot:AddLastChild( \"Ejecutivo\", 0, 10 )\n\nSi alguien necesita más código para investigar que me pase su mail y se lo mando por no hacer este post inmenso.\nSi alguien tiene alguna idea me sería de gran ayuda. Yo me rindo con los trees. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nFW 2.4 - Clipper 5.2 - dBase III+ - Blinker 5.0','',0,'QA==','r49x40ef',1,0,'',211,0,0),(17175,3897,3,2,0,'87.218.146.179',1155471487,1,0,1,1,1,1,'','','Milan,\n\nAlready sent','',0,'QA==','24ga5vo0',1,0,'',2,0,0),(17176,3898,6,2,0,'87.218.146.179',1155471746,1,0,1,1,1,1,'','','En samples\\TreeDlg.prg tienes un ejemplo','',0,'QA==','2kb7a85v',1,0,'',2,0,0),(17177,3866,6,422,0,'217.168.114.242',1155472447,1,0,1,1,1,1,'','','Manuel :\n\nRecuerdo... haber pasado con ello.. cuando editada un registro de un oDbf usando la TSbrowse de MM, lo solucioné ocultando el oBrw antes de la edicion y volviendolo a mostrar luego de terminar la edicion del registro.. (antes de mostrar el oDlg con los datos del registro obrw:Hide() y luego de cerrar el odlg ::oBrw:Show())\n\nNo se si en la Ver 7.0 de la Tsbrowse ya esta solucionado ello\n\n\nP.D. Como dato adicional te cuento que el error tambien se daba en pcs con processador Intel.. por lo que pienso que por ahi no van los tiros <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSaludos.\n\n\nRicardo!','',0,'QA==','y2udkei3',1,0,'',422,0,0),(17178,3866,6,9,0,'85.54.224.198',1155477359,1,0,1,1,1,1,'','','Gracias Ricardo','',0,'QA==','38b8p5zs',1,0,'',9,0,0),(17179,1289,6,739,0,'201.129.217.195',1155481673,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:h1hejl53]Carlos,\n\nLa función IsExeRunning() se implementó en el build del mes de Febrero del 2005.[/quote:h1hejl53]\n\nAntonio ¿como puedo hacer para que el programa que ya está corriendo tome el foco?','',0,'gA==','h1hejl53',1,0,'',739,0,0),(17180,3899,6,61,0,'190.64.96.20',1155489392,1,0,1,1,1,0,'','Cuantos campos en una base de datos?','Amigos:\n\nQue será mas conveniente:\nEstoy haciendo un Programa de una cooperativa.\nHasta 72 cuotas posibles.\n\nUna Base de Datos con 220 campos o\nen varias bases de datos?\n\nPrimera vez que me pasa algo similar por lo que\nagradezco alguna idea.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','1v0iq73o',1,0,'',61,0,0),(17181,3899,6,582,0,'201.253.248.149',1155490472,1,0,1,1,1,0,'','','Ruben, la idea seria que en varias bases, sobretodo a lo que se refiere a las 72 cuotas posibles.\nAdemas esa base de movimientos de cuota es mas facil de mantener, incluso si en el futuro tenes que agregarle algun campo.\nNo te asustes con la cantidad de registros que se puedan originar, tanto Harbour como xHarbour se lo banca muy bien, tanto en la generacion de indices como los filtros, que en este caso son fundamentales.\n\nBueno esa es mi opinion.\nUn abrazo. El Loco =&gt;))','',0,'gA==','2ly3qqhu',1,0,'',582,0,0),(17182,3899,6,61,0,'190.64.103.206',1155491388,1,0,1,1,1,0,'','','Gracias amigo:\n\nEs lo que pensaba.\nEl miedo era hacer 72 append al\ngenerarse el credito me parecia una barbaridad.\n\nGracias.\n\nRuben Fernandez.','',0,'gA==','44dx4rv5',1,0,'',61,0,0),(17183,3886,3,15,0,'203.73.55.191',1155517960,1,0,1,1,1,0,'','','Hello areang,\n\nI will send private mail to you.\n\nRegards,\n\nRichard','',0,'gA==','1hyfw4hf',1,0,'',15,0,0),(17184,3886,3,15,0,'203.73.55.191',1155518138,1,0,1,1,1,0,'','','Hello areang,\n\nPlease let me know your EMail address.\nI will send Fingerprint detail information to you.\n\nRichard','',0,'gA==','dj4lxqgm',1,0,'',15,0,0),(17185,3900,6,694,0,'200.138.82.7',1155519624,1,0,1,1,1,1,'','Trabalhar com IMAGENS em REDE','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nAmigos, qual a melhor maneira de se trabalhar com imagens de produtos em   em rede?\n\nTenho 3 TERMINAIS e um SERVIDOR - Eu estava pensando em colocar as imagens no servidor e fazer os TERMINAIS busca-las. Porem estava pensando... são imagen BMP de 200 kb cada uma, será que vai dar algum problema de lenditão na hora de carregar estas imagens nos TERMINAIS ? ou seria melhor usar JPG?\n\nPor favor amigos, alguem com experiencia me ajude!\n\nAntonio HELP - ME\n\nDesde já agradeço a todos\n\nAOKI SANTOS','',0,'gA==','1l1b39kn',1,0,'',694,0,0),(17186,3901,6,54,0,'201.98.178.221',1155530226,1,0,1,1,1,1,'','RadioButton transparente','Amigos,\n\nPues eso, tengo un dialogo, le he puesto un brush, y loas Say sin problemas.\n\nPero tengo unos radio button que están transparentes.\nTengo un GruopBox hecho en pellesC y el titulo no es transparente.\n\nEn pellesC le pongo el atributo Transparente, pero nada.\n\nHay alguna posibilidad?\n\nSaludos y mil gracias de antemano','',0,'gA==','2vrh5p4y',1,0,'',54,0,0),(17187,3901,6,54,0,'201.98.178.221',1155532866,1,0,1,1,1,1,'','Re: RadioButton transparente','He checado pinta el fondo del radio button, pero es de acuerdo al Brush que se tenga en ese momento.\n\nSucede que el Say si lo hace transparente (estoy intentando un fondo del dialogo Degradado) y el RadioButton solo pinta el Brush del dialogo como fondo del radiobutton, ahi es donde radica el problema, pues necesito sea transparente el radiobutton.\n\nAlguna idea?\n\nSaludos y nuevamente gracias anticipadas por la ayuda\n\nWilliam Morales','',0,'gA==','mwkrgmf7',1,0,'',54,0,0),(17188,3892,3,154,0,'151.81.4.224',1155533836,1,0,1,1,1,1,'','','Antonio,\n\nthank you.','',0,'gA==','blefwg8z',1,0,'',154,0,0),(17189,3899,6,582,0,'201.252.106.167',1155538269,1,0,1,1,1,0,'','','[quote=&quot;RuFer&quot;:15edb9g2]Gracias amigo:\n\nEs lo que pensaba.\nEl miedo era hacer 72 append al\ngenerarse el credito me parecia una barbaridad.\n\nGracias.\n\nRuben Fernandez.[/quote:15edb9g2]\n\nRuben, tambien tenes la posibilidad, si te asusta 72 append, es la de generar por credito un solo registro, y actualizarlo mensualmente.\nPor mes vencido o pagado, segun el caso, generas un registro de ese mes en un archivo historico de cobranza/vencimiento,  entonces cuando informas el estado de cuenta del socio, tomas todo lo anterior mas el actual mas haces una proyeccion de las cuotas restantes.\nEl registro es cuestion deberia tener los siguientes campos:\nMes/Fecha de otorgamiento \nMes/Fecha de finalizacion\nMes/Fecha actual\nNumero de cuota\nTotal de cuota\ny mensualmente cuando asignas cobranza, ademas de guardar en el historico, actualizas los campos de \"Mes/Fecha actual\" y \"Numero de cuota\".\nTene en cuenta que si los importes NO son de un valor fijo, tendrias que asignarle otro campo con el valor del porcentaje de intereses aplicable al capital otorgado.\n\nBueno esta es otra alternativa...... digo no.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','15edb9g2',1,0,'',582,0,0),(17190,3901,6,582,0,'201.252.106.167',1155538574,1,0,1,1,1,0,'','Re: RadioButton transparente','[quote=&quot;wmormar&quot;:2cmlq942]He checado pinta el fondo del radio button, pero es de acuerdo al Brush que se tenga en ese momento.\n\nSucede que el Say si lo hace transparente (estoy intentando un fondo del dialogo Degradado) y el RadioButton solo pinta el Brush del dialogo como fondo del radiobutton, ahi es donde radica el problema, pues necesito sea transparente el radiobutton.\n\nAlguna idea?\n\nSaludos y nuevamente gracias anticipadas por la ayuda\n\nWilliam Morales[/quote:2cmlq942]\n\nWillian, proba con redefinir el GroupBox dentro del programa.\nMe paso lo mismo, tan solo que estaba dentro de un Page y con redefinirlo se soluciono el tema.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','2cmlq942',1,0,'',582,0,0),(17191,3713,1,170,0,'80.170.88.219',1155541854,1,0,1,1,1,1,'','','I have revisited my Windows 2000 API SuperBible,\nand it\'s appear than \"ShowWindow does not make sure the window is in the foreground. Use SetWindowPos or SetActiveWindow function to bring a window to the foreground.\"\n\nAlso, there is LockSetForegroundWindow function who\n\"...disable or enables the calls to the SetForegroundWindow\nfunction for the calling process.\n\nBy default, the system automatically enables calls to SetForegroundWindow if the user press the Alt key or takes some\naction that causes the system itself to change the foreground window.\nThis function allows applications to prevent other applications from\nmaking a foreground change that can interrupt its interaction with the user.\"\n\nHope this help  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','1nb00pws',1,0,'',170,0,0),(17192,3898,6,211,0,'88.12.217.130',1155546167,1,0,1,1,1,0,'','','hola. gracias por responder, pero en samples solo tengo un treeview.prg y un treedemo.prg, no me aparece ningún treedlg.prg . si me lo puedes mandar al correo mi mail es chocochester arroba hotmail punto com\ngracias.','',0,'gA==','1im90yro',1,0,'',211,0,0),(17193,3898,6,2,0,'87.218.146.159',1155548361,1,0,1,1,1,1,'','','Me temo que no va a funcionar con la versión de FW que tienes.','',0,'gA==','1ny0j2mj',1,0,'',2,0,0),(17194,3877,3,330,0,'217.37.54.49',1155549293,1,0,1,1,1,0,'','','Hi all\n\nAny idea how I can get hold of Randall or Tgant authir\n\nThanks','',0,'gA==','2p56hs5b',1,0,'',330,0,0),(17195,3898,6,211,0,'88.12.217.130',1155550910,1,0,1,1,1,0,'','','vaya .... y con qué versión me funcionaría? me da horror cambiar!!!! jeje. creo que está la 2.7, pero ya puesto tendría que ser para harbour ... ummm. no se.','',0,'gA==','2iuuewxn',1,0,'',211,0,0),(17196,1289,6,2,0,'87.218.146.159',1155551976,1,0,1,1,1,1,'','','Quique,\n\nAqui tienes un ejemplo completo funcionando:\n[code:3d5rhyg1]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2\n\nfunction Main&#40;&#41;\n\n   local oWnd \n   \n   if IsExeRunning&#40; cFileName&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n      ShowApplication&#40;&#41;\n   else   \n      DEFINE WINDOW oWnd TITLE &quot;Test&quot;\n   \n      ACTIVATE WINDOW oWnd\n   endif   \n   \nreturn nil   \n\nfunction ShowApplication&#40;&#41;\n\n   local hWnd &#58;= FindWnd&#40; cFileNoExt&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n   \n   if hWnd != nil\n      SetForeGroundWindow&#40; hWnd &#41;\n   endif   \n   \nreturn nil   \n\nfunction FindWnd&#40; cTitle &#41; \n\n   local hWnd &#58;= GetWindow&#40; GetDesktopWindow&#40;&#41;, GW_CHILD &#41; \n\n   while hWnd != 0 \n      if Upper&#40; cTitle &#41; $ Upper&#40; GetWindowText&#40; hWnd &#41; &#41; \n         return hWnd\n      endif \n\n      hWnd = GetWindow&#40; hWnd, GW_HWNDNEXT &#41; \n   end \n\nreturn nil\n[/code:3d5rhyg1]\nObserva que el título de la ventana es igual que el nombre del EXE. En caso de ser distintos, has de modificar el código.','',0,'AIA=','3d5rhyg1',1,0,'',2,0,0),(17197,3898,6,2,0,'87.218.146.159',1155552467,1,0,1,1,1,1,'','','Te envio el ejemplo y lo pruebas y así salimos de dudas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2z2fd8wz',1,0,'',2,0,0),(17198,3893,6,362,0,'200.168.52.156',1155556294,1,0,1,1,1,1,'','','Gracias Maestro.\n\nAntonio, no Tienes PATCHX.LIB??','',0,'AIA=','1nxsjv3k',1,0,'',362,0,0),(17199,3892,3,154,0,'151.81.1.157',1155556943,1,0,1,1,1,1,'','','Antonio,\n\n[quote:129umlxn]...\nFrom that application you can also inspect the available properties and methods\n...[/quote:129umlxn]\n\nWith OleView I find Acrobat ActiveX (i think <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> ) but I don\'t found the methods and properties.\n\nCan you help me?\n\nThanks, in advance.','',0,'gA==','129umlxn',1,0,'',154,0,0),(17200,3902,7,720,0,'80.36.244.134',1155557097,1,0,1,1,1,0,'','ejemplos...','Hola a todos...\n\nMe gustaría saber donde puedo localizar un ejemplo para insertar, borrar y modificar datos de una bd. En el ejemplo de CLIENT lo hace pero utiliza para ello un vector y en mi caso no es lo que necesito...\n\nAgradecería cualquier ayuda...\n\nGracias y saludos..\n\nElías Torres.','',0,'gA==','3kdl1l2a',1,0,'',720,0,0),(17201,3889,2,52,0,'200.127.195.89',1155559946,1,0,1,1,1,1,'','','Antonio,\n\n[quote=&quot;Antonio Linares&quot;:1d5dmksx]Gustavo,\n\nPuedes poner un ejemplo de como estás asignando el icono ? gracias[/quote:1d5dmksx]\n\nEsta bien la forma de implementarlo?','',0,'gA==','1d5dmksx',1,0,'',52,0,0),(17202,3903,6,36,0,'200.113.56.235',1155563809,1,0,1,1,1,0,'','STATUS BAR','Estimado\n\nHay alguna forma de que los iconos de status bar sean un poquito mas chico\n\nya que uso 16x16 igual se ven de esta forma\n\n\n[url:hmgslfw5]http&#58;//img66&#46;imageshack&#46;us/img66/5554/statusbaraq0&#46;jpg[/url:hmgslfw5]\n\nSaludos\nPatricio','',0,'EA==','hmgslfw5',1,0,'',36,0,0),(17203,3900,6,217,0,'200.159.120.34',1155565491,1,0,1,1,1,0,'','Re: Trabalhar com IMAGENS em REDE','Aoki, se usa arquivos DBF/CDX, grave as imagens em um campo tipo BLOB, se houver uma pasta fixa onde essas imagens ficam, chame-as desta pasta (e não se esqueça de inclui-las no backup).\nPrefira imagens jpg, as bmp ficam muito grandes.\nTrabalho com imagens nos produtos, mas gravo todas no banco de dados (Firebird). Mas com DBF/CDX tb funciona. O problema é que o arquivo fica enorme, inclusive recomendo que tenha um dbf so pra isso.\n\n[ ]\'s\nMaurilio','',0,'','39di3tu4',1,0,'',217,0,0),(17204,3859,19,217,0,'200.159.120.34',1155566874,1,0,1,1,1,0,'','','Borland created a company named DevCo (or any like this) that include all IDE products (Delphi, Kylix, C++ Builder...) to separate he IDE product line. This \"new\" company was sold a few days ago and I think this name will change.\n\"Turbo\" products is the name of new line from this new company. Basically will exist two type of products:\n- Personal:\nTotally free to develop any personal or comercial application. The only limitation is you can\'t add  brd part components in Personal version (only default pallete is available).\n\n- Enterprise:\nWill cost US$ 500 and you can create personal or comercial applications (royaltie free) and this version let you include 3rd part components.\n\nThis strategy was adopted after MS announce your \'Personal Edition\' of products like VB.NET, C#, SQL Server, etc. Borland products stay very spensive to \"fight\" with these free MS products.\nThe IDE run was started  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\nMaurilio','',0,'','1n5u2ws0',1,0,'',217,0,0),(17205,3893,6,362,0,'200.168.52.156',1155567192,1,0,1,1,1,1,'','','Desculpas Maestro.\n\nÉs una Libreria de terceros.\n\nMuchas Gracias.','',0,'','1ls56bjx',1,0,'',362,0,0),(17206,3849,3,705,0,'61.2.4.247',1155567654,1,0,1,1,1,0,'','','Hi  Antonio,\n\nNow I am using xHarbour last release Aug, 06-RC8 and FWH ver 2.7. \n\nWhile testing msmake setup (i.e. ..\\Fwh\\makes\\msmake) to compile multiple .prg under a project, the following error codes are generating.\n\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in LIBC.lib(matherr.obj); second definition ignored\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in LIBC.lib(matherr.obj); second definition ignored\n\nCreating library test.lib and object test.exp\n\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _regcomp\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _regfree\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _regexec\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _pcre_free\ntest.exe : fatal error LNK1120: 4 unresolved externals\n\nWhile Compiling single .prg from ..\\Samples\\.... .prg, there is no problem and generating exe and testing smoothly.\n\nCan you tell me, what the problem is actually and provide me solution for the same?\n\nArindam','',0,'','3eq89wov',1,0,'',705,0,0),(17207,1289,6,43,0,'189.128.27.231',1155570182,1,0,1,1,1,0,'','','Hola Antonio.\n\nY como se le hace para que la aplicacion tome el foco, para que se visualize en caso de estar minimizada.\n\nSaludos\nMarco A. Delgado','',0,'','qpz0u8l7',1,0,'',43,0,0),(17208,3899,6,61,0,'190.64.98.244',1155571985,1,0,1,1,1,0,'','','Esta es buena opcion, me gusta.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'','2b32m9ue',1,0,'',61,0,0),(17209,3877,3,303,0,'72.199.41.171',1155572288,1,0,1,1,1,0,'','','&gt;Any idea how I can get hold of Randal\n\nJust do a forum search for \"Randal.\"\n\nJames','',0,'','26jvbale',1,0,'',303,0,0),(17210,3904,3,707,0,'222.124.20.50',1155576380,1,0,1,1,1,0,'','ActiveX VB with xHarbour','Hi all !\n\noButton := xButton():New( oWnd )\nIF !oButton:lOk\n     oWnd:END()\n      RETURN NIL\nENDIF\n\nCLASS xButton\n   DATA oControl\n   DATA oButton\n   CLASSDATA lOk Init .F.\n   METHOD New()\n   METHOD Activate()\nENDCLASS\n\nMETHOD New( oWnd, nId ) CLASS xButton\n\n   IF nId != NIL\n      ::oControl := TActiveX():Redefine( nId, oWnd, \"MyOCX.myControl\" )\n   ELSE\n      ::oControl := TActiveX():New( oWnd, \"MyOCX.myControl\" )\n   ENDIF\n\n   IF !Empty( oWnd:hWnd )\n      ::Activate()\n   ENDIF\n\nRETURN SELF\n\nMETHOD Activate()\n   ::oButton  := TOleAuto():New( ActXPdisp( ::oControl:hActiveX ) )\nRETURN NIL\n\nMy questions :\n1. Can I get property on MyOCX, like VB\n2. Can I create class to call MyOCX property\n\n\nAreang','',0,'','6y8qpkge',1,0,'',707,0,0),(17211,3888,6,474,0,'201.128.234.237',1155581294,1,0,1,1,1,1,'','pues....','vamos a hacer las pruebas, gracias','',0,'','2lx9f1fr',1,0,'',474,0,0),(17212,3902,7,2,0,'87.218.146.153',1155581469,1,0,1,1,1,1,'','','Elías,\n\nA que te refieres con un \"vector\" ?','',0,'','2wq25q66',1,0,'',2,0,0),(17213,3905,6,748,0,'201.248.225.220',1155585957,1,0,1,1,1,0,'','Ayuda por favor NUEVO EN FWH','Soy usuario de fw para clipper, estoy probando FWH para Harbour\nSi compilo el archivo de ejemplo tutor01.prg\nSe ejecuta sin problemas pero con tutor02.prg,03,04………..\nSe compilan sin problemas pero no arrancan\n¿Cual ES el problema no lo veo?\n\nMUCHAS GRACIAS POR ADELANTADO....\n\nTengo  FWH 2.6    BCC55 5.5.1 y Harbour Alpha0.46\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho ..\\lib\\FiveH.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc','',0,'','8d0h21cc',1,0,'',748,0,0),(17214,1289,6,739,0,'201.135.169.176',1155599469,1,0,1,1,1,1,'','','[quote=&quot;Marco A. Delgado&quot;:fq7omi5p]Hola Antonio.\n\nY como se le hace para que la aplicacion tome el foco, para que se visualize en caso de estar minimizada.\n\nSaludos\nMarco A. Delgado[/quote:fq7omi5p]\n\nEn el código que dio Antonio donde estan los #define agrega:\n\n#define SW_RESTORE    9\n\ny justo antes de setForeGroundWindow( hWnd ) agrega:\n\nif isIconic( hWnd )\n   showWindow( hWnd, SW_RESTORE )\nendIf','',0,'gA==','fq7omi5p',1,0,'',739,0,0),(17215,3906,2,66,0,'200.127.71.4',1155602880,1,0,1,0,1,0,'','Ayuda con Redes Por Favor','Estimados Colegas\n\nTengo un aplicacion en red W98 que cuando la corro( el exe y las dbfs\nlas tengo en una maquina , y accedo desde otra atraves de un acceso\ndirecto )  me tira el siguiente error  \n                  error0 loading kernel32.dll,\n si alguien me puede orientar\n\ndesde ya muchas gracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','1xpw7eia',1,0,'',66,0,0),(17217,1289,6,2,0,'87.218.146.153',1155623524,1,0,1,1,1,1,'','','Quique,\n\nGracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','34ed2m81',1,0,'',2,0,0),(17218,3902,7,262,0,'83.97.168.151',1155633257,1,0,1,1,1,1,'','','con lo de vactor , te refieres a un array ? .\nS ies asi puedes cambiarlo por  variables locales individuales con nombres digamos mas entedibles ( por ejemplo cnombre , nTelf , y asi)\nSaludso.','',0,'gA==','1lq2i9im',1,0,'',262,0,0),(17219,3902,7,720,0,'83.32.135.83',1155641953,1,0,1,1,1,0,'','','Hola..\nEfectivamente me refería a un array. He utilizado en su lugar,como bien dices, variables locales. Lo único malo de utilizar variables es que si la tabla contiene muchos campos habria que declararse tantas variables como campos tenga la tabla...\n\nUna preguntilla que quería hacer.. En la clase \'MsgYesNo()\' (creo que era asi) cabe la posibilidad de modificarla para que los botones pongan SI y NO en vez de YES y NO.??\n\nUn saludo y gracias.\n\nElías Torres.','',0,'gA==','1z142llw',1,0,'',720,0,0),(17220,3908,2,66,0,'200.127.71.4',1155644819,1,0,1,0,1,0,'','Error0 loading kernel32.dll','Estimados Colegas \n\nTengo un aplicacion en red W98 que cuando la corro( el exe y las dbfs \nlas tengo en una maquina , y accedo desde otra atraves de un acceso \ndirecto ) me tira el siguiente error \nerror0 loading kernel32.dll, \nsi alguien me puede orientar \n\ndesde ya muchas gracias \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','6uanl3vs',1,0,'',66,0,0),(17221,3905,6,396,0,'201.243.137.44',1155654784,1,0,1,1,1,1,'','','Bienvenido al foro, es bueno saber que mas gente en Venezuela us FWH, si puedes estemos en contacto, a ver en que podemos ayudarnos, te recomiendo que uses VERCE para hacer las compilaciones, me ayudo mucho inicializarme en FWH, aunque no soy ningun experto, he avanzado gracias a l apoyo y ayuda del foro. <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','1zghz8ym',1,0,'',396,0,0),(17222,3902,7,2,0,'87.218.146.249',1155655097,1,0,1,1,1,1,'','','Elías,\n\nLa función MsgYesNo() es predefinida de Windows Mobile. La solución para cambiar los nombres es crear ese diálogo enteramente, algo simple ya que sólo tiene un BITMAP, un SAY y dos BUTTONs.','',0,'gA==','vehrom1b',1,0,'',2,0,0),(17223,3908,2,2,0,'87.218.146.249',1155655214,1,0,1,1,1,1,'','','Usas alguna función declarada tipo DLL32 FUNCTION ... LIB \"Kernel32.dll\" ?','',0,'gA==','ku6fgtho',1,0,'',2,0,0),(17224,1289,6,43,0,'189.128.27.231',1155656219,1,0,1,1,1,0,'','','Pues no...  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nni toma el foco, ni se restaura la ventana de la aplicación.\n\nQue podra ser, lo he hecho segun lo indicado.\n\nSaludos\nMarco A. Delgado.','',0,'gA==','214jxnri',1,0,'',43,0,0),(17225,3909,6,474,0,'201.128.234.237',1155656273,1,0,1,1,1,1,'','Netware y tablas de mas de 4 GB','bueno, ya llego el momento de utilizar tablas mas grandes, que superan los cuatro GB, hasta ahora las tengo partidas, pero la intencion es contenerlas en una sola. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSe supone que el sistema NSS de netware permite tener archivos hasta de 8 Terabites o Exa, no recuerdo bien. Bueno, haciendo pruebas, y segun teniendo yo instalada la particion NSS, no superan mis bases el limite de los 4 Gb. Con Win2003 ntfs, si lo he podido hacer, pero con Netware no, alguien que sepa como configurar el novell para archivos de gran tamaño??? se los agradeceria muchisimo\n\nUso Advantage 7.1 y Netware 6.0  \n\nSaludos y gracias','',0,'gA==','3q0drv43',1,0,'',474,0,0),(17227,3910,2,235,0,'201.140.42.223',1155664491,1,0,1,1,1,0,'','alguien sabe como usar crystal reports','con aplicaciones fivewin, tengo las dlls crpe y crpe32, y tambien un ejemplo pero no me funciona.\n\nsi alguien tiene un ejemplo que me pueda proporcionar.\n\ny tambien tengo un problema con inkey(), en clipper lo utilizo de esta forma\n\nproceso:=if(inkey(5)=\"½\",\"A\",\"B\")\n\nosea que espera a que el usuario presione ALT+171, para hacer \"A\" o de lo contrario hacer \"B\", pero en fivewin no me funciona, siempre me manda a \"B\"\n\nalguna sugerencia?\n\n\nde antemano muchas gracias.','',0,'gA==','2ejbxnq3',1,0,'',235,0,0),(17228,3901,6,54,0,'189.132.107.175',1155670126,1,0,1,1,1,1,'','Re: RadioButton transparente','[quote=&quot;El Loco&quot;:3lnbn0fr]Willian, proba con redefinir el GroupBox dentro del programa.\nMe paso lo mismo, tan solo que estaba dentro de un Page y con redefinirlo se soluciono el tema.\n\nUn abrazo. El Loco =&gt;))[/quote:3lnbn0fr]\n\nMi estimado, gracias por responder antes que nada.\n\nHe hecho lo que comentas y nada.\n\nCabe recordar que transparente y pintado son dos cosas diferentes y parece ser que los RadioButton pintan el brush del dialogo como fondo.\n\nSaludos','',0,'gA==','3lnbn0fr',1,0,'',54,0,0),(17229,3911,6,471,0,'201.240.77.84',1155676771,1,0,1,1,1,1,'','Como se trabaja con Crystal Reports','Amigos\n\n Que se necista para trabajar con cristal reports \n\nCreo q habi auna clase para eso de untal tim segun recuerdo\nsaben donde conseguirla\n\n\n\nGracias por la ayuda\n\nVladimir Zorriilla','',0,'gA==','ar0lqfsp',1,0,'',471,0,0),(17230,3905,6,431,0,'200.8.34.156',1155679032,1,0,1,1,1,1,'','Desde Venezuela','Jose Luis, ricaigla220\n\nMario Gonzalez desde Venezuela \nestamos por Guarenas Estado Miranda a la orden \n\nSuerte.','',0,'gA==','ygkzxmvg',1,0,'',431,0,0),(17231,3911,6,492,0,'201.154.126.49',1155679912,1,0,1,1,1,1,'','','Vladimir\n\nTengo esto, no lo he probado por que no recuerdo donde quedo el disco de Crystal  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0294326237/crystal.zip.html\">http://hyperupload.com/download/0294326 ... l.zip.html</a><!-- m -->\n\n\nEspero te sirva\n\nSaludos\n\nSeeU','',0,'gA==','1sn4z4pc',1,0,'',492,0,0),(17232,3909,6,138,0,'200.78.69.7',1155680416,1,0,1,1,1,1,'','','Manuel:\n\nAhora si, se acabo lo que se daba.....\n\nEn Netware nunca podras abrir archivos de mas de 4 GBytes, en Windows si. Son restricciones del sistema operativo.\n\nADS soluciona esta limitacion, pero solo bajo sistemas operagivos Windows','',0,'gA==','3omvydfr',1,0,'',138,0,0),(17233,3910,2,138,0,'200.78.69.7',1155684284,1,0,1,1,1,1,'','','Gerardo:\n\n1) INKEY() no funciona en Fivewin\n\n2) Crystal reports requiere de 17 dlls para poder utilizarlo, estos DLLs tienen que estas instalados en la carpeta windows\\system para que funcionen, y son:\n\nPara el motor de impresion y vista previa:\n\nCRPAIG80.DLL\nCRPE32.DLL\nIMPLODE.DLL\n\nLas Microsoft Foundation Classes:\n\nMFC42.DLL\nMSVCIRT.DLL\nMSVCP60.DLL\n\nEl motor de datos DBF/CDX\n\nP2BXBSE.DLL\n\nLuego, si quieres exportar los reortes a distintos formatos, cada formato necesita una DLL:\n\nU2FHTML.DLL\nU2FODBC.DLL\nU2FRDEF.DLL\nU2FREC.DLL\nU2FRTF.DLL\nU2FSEPV.DLL\nU2FTEXT.DLL\nU2FWKS.DLL\nU2FWORDW.DLL\nU2FXLS.DLL\n\nY listo, instalas estos DLLs en la carpeta windows system y debe de funcionar sin problemas','',0,'gA==','1oi31w83',1,0,'',138,0,0),(17234,3911,6,138,0,'200.78.69.7',1155684783,1,0,1,1,1,1,'','','El autor es Tom Groeger y yo la modifique para que funcionara a 32 bits con FW Harbour, este es el archivo con la clase modificada y el ejemplo:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/crystal.zip\">www.google.d2g.com/crystal.zip</a><!-- w -->','',0,'gA==','cr4dh5bo',1,0,'',138,0,0),(17235,3900,6,694,0,'200.181.206.95',1155688598,1,0,1,1,1,1,'','Re: Trabalhar com IMAGENS em REDE','[quote=&quot;Maurilio Viana&quot;:386kcz8p]Aoki, se usa arquivos DBF/CDX, grave as imagens em um campo tipo BLOB, se houver uma pasta fixa onde essas imagens ficam, chame-as desta pasta (e não se esqueça de inclui-las no backup).\nPrefira imagens jpg, as bmp ficam muito grandes.\nTrabalho com imagens nos produtos, mas gravo todas no banco de dados (Firebird). Mas com DBF/CDX tb funciona. O problema é que o arquivo fica enorme, inclusive recomendo que tenha um dbf so pra isso.\n\n[ ]\'s\nMaurilio[/quote:386kcz8p]\n\nMaurilio, DESCULPE A ORELHICE, O QUE É CAMPO TIPO BLOB??? Outra coisa, eu uso a classe TREPORT do FW, e ela pelo que sei, só aceita BMP na impressão... existe alguma solução? \nAmigo, o banco de dados FIREBIRD é free? \n\nDesde já te agradeço a ajuda...\n\nAOKISANTOS','',0,'gA==','386kcz8p',1,0,'',694,0,0),(17236,3892,3,2,0,'87.218.146.32',1155692607,1,0,1,1,1,1,'','','Ugo,\n\nRight click on the name of the activex and select \"View Type Information\":\n[url=http&#58;//imageshack&#46;us:2rx7eslb][img:2rx7eslb]http&#58;//img228&#46;imageshack&#46;us/img228/9395/adobeip0&#46;png[/img:2rx7eslb][/url:2rx7eslb]\nAnyhow, I recommend you to google for docs and samples about it. Search for its ProgID.','',0,'GA==','2rx7eslb',1,0,'',2,0,0),(17237,3912,2,66,0,'200.127.210.205',1155698653,1,0,1,0,1,0,'','Ayuda con Error0 loading kernel32.dll nuevamente','Estimados Colegas \n\nTengo un aplicacion en red W98 que cuando la corro( el exe y las dbfs \nlas tengo en una maquina , y accedo desde otra atraves de un acceso \ndirecto ) me tira el siguiente error  error0 loading kernel32.dll,  \nPor consejo  verifique si  tenia alguna llamada kernel32 pero\n\nLa aplicacion esta compilada con 5.3, blinker 7, tsbrowse,\nSi por alguna razon me carga la dll ,como puedo hacer para\ndescargarla\n\n\n\nsi alguien me puede orientar \n\ndesde ya muchas gracias \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'GA==','3lu5ur4d',1,0,'',66,0,0),(17238,3913,3,330,0,'217.37.54.49',1155714895,1,0,1,1,1,0,'','Message for Randal Ferguson','Hi Randal\n\nI have beed told that you have done some work with FW and GIS mapping systems. Can you share what and how you achieved this as I want to be able to link mapping into my applications\n\nRegards\nPeter Gardner','',0,'GA==','13imntm1',1,0,'',330,0,0),(17239,3912,2,2,0,'87.218.146.32',1155715507,1,0,1,1,1,1,'','','Busca dentro de tu EXE la palabra \"kernel32\" sin las comillas.','',0,'GA==','3tebjil7',1,0,'',2,0,0),(17240,3904,3,2,0,'87.218.146.32',1155716218,1,0,1,1,1,1,'','','Areang,\n\n&gt; 1. Can I get property on MyOCX, like VB \n\nYou may use Microsoft OleView to inspect the properties, methods and events of the ActiveX that you are going to use. Another choice is to install if from Microsoft Office built in VBA (macros editor in Word, Excell, etc.) and inspect it from there.\n\n&gt; 2. Can I create class to call MyOCX property \n\nYou may use ERROR HANDLER OnError( uParam1 ) to route PRG msgs to Class TActiveX Methods GetProp, SetProp and Do. Please review source\\classes\\database.prg to see how to use ERROR HANDLER.','',0,'GA==','1w7wmvkp',1,0,'',2,0,0),(17241,3901,6,2,0,'87.218.146.32',1155716409,1,0,1,1,1,1,'','','William,\n\nEstás usando un brush \"NULL\" para los radio buttons ?','',0,'GA==','2paln2q8',1,0,'',2,0,0),(17242,3902,7,720,0,'80.36.244.134',1155720203,1,0,1,1,1,0,'','','Gracias Antonio...\n\nPor cierto, si yo no me declaro ningún alias para la tabla y deseo crear un nuevo registro, o borrarlo...las sentencias serian estas??\n\nmi_tabla-&gt;dbDelete()\nmi_tabla-&gt;dbAppend()\n\nEs asi o tengo que ir campo por campo de cada registro?\n\n(mi_tabla-&gt;campo1)-&gt;(dbDelete())\n...\n\nSaludos y gracias.\n\nElías Torres.','',0,'GA==','1te9lu3a',1,0,'',720,0,0),(17243,3902,7,2,0,'87.218.146.32',1155721497,1,0,1,1,1,1,'','','Elías,\n\nLas llamadas a funciones a la derecha de un alias deben ir entre paréntesis:\n\nmi_tabla-&gt;( dbDelete() )\nmi_tabla-&gt;( dbAppend() )\n\nasí es correcto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nLa otra forma que indicas, no: No hay que ir campo por campo. Esas funciones trabajan a nivel de registro, es decir, para todos los campos a la vez.','',0,'GA==','1b4tbqlg',1,0,'',2,0,0),(17244,449,3,48,0,'83.42.4.61',1155722440,1,0,1,1,1,0,'','','I could see a preview o the barcode but only when print \'one\' barcode on the page.\n\nI have modify also the VRDCODE class o fix a bug when print big size barcodes and add support for circular style barcodes.\n\nIf you are interest send me a email to send you a copy.','',0,'GA==','5dwjhzzq',1,0,'',48,0,0),(17245,3914,6,48,0,'83.42.4.61',1155724754,1,0,1,1,1,0,'','Codigos de Barras Circulares','He modificado la clase VRDCODE para que sea capaz de imprimir codigos de barras circulares que pueden ser leidos en cualquier direccion tan solo con pasar el laser por el centro del codigo (aviso que mirar fijamente este tipo de codigos de barras pruede provocar mareos o dolores de cabeza  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  ).\n\nTambien he cambiado la funcion para imprimir codigos normales de forma que ahora se hace usando la funcion \'fillrect\' en lugar de usar \'rectangle\'. Y es que la funcion rectangle al imprimir codigos de gran tamaño no rellena correctamente los rectangulos dejando una fina linea blanca en el interior del rectangulo que hace que los codigos no se lean o cueste mucho leerlos. Con FillRect salen perfectos.\n\nQuien quiera una copia que me la pida por mail o bien que AL la ponga en la seccion de Utilidades.\n\nUn saludo.\nSantiago Perez.','',0,'GA==','ovr5zapo',1,0,'',48,0,0),(17246,3914,6,2,0,'87.218.146.32',1155727131,1,0,1,1,1,1,'','','Hola Santi,\n\nPor favor súbelo a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y pon aquí el enlace de descarga. Gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3inv4isc',1,0,'',2,0,0),(17247,449,3,2,0,'87.218.146.32',1155727216,1,0,1,1,1,1,'','','Santi,\n\nPlease upload it to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and post here the download url. Thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','1adukvwp',1,0,'',2,0,0),(17248,3900,6,217,0,'200.159.120.34',1155728582,1,0,1,1,1,0,'','Re: Trabalhar com IMAGENS em REDE','Aoki, campo blob é um campo memo que guarda arquivos binários, de qualquer tipo. Vc cria do mesmo jeito que cria um dbf comum:\nUm pequeno exemplo:\n\n[code:3toc5wga]\naStru &#58;= &#123;&#123;&quot;CODIGO&quot;, &quot;C&quot;, 6, 0&#125;,;\n               &#123;&quot;FOTO_BMP&quot;, &quot;M&quot;, 10, 0&#125;&#125;\ndbcreate&#40;&quot;FotoPrd&quot;, aStru&#41;\n&#46;&#46;&#46;\n// Para salvar teste&#46;bmp no dbf\n#include &quot;blob&#46;ch&quot;\n&#46;&#46;&#46;\nappend blank\nreplace codigo with &quot;000001&quot;\nif ! BLOBImport&#40; FieldPos&#40; &quot;FOTO_BMP&quot; &#41;,&quot;teste&#46;bmp&quot; &#41;\n   Msginfo&#40;&quot;Falha ao gravar a imagem, tente novamente&quot;, ATENCAO &#41;\n   return Nil\nendif\n&#46;&#46;&#46;\n// Para recuperar a foto como Temp&#46;bmp\nferase&#40;&quot;Temp&#46;bmp&quot;&#41;\ndbseek&#40;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#41;\nif ! BLOBExport&#40;FieldPos&#40;&quot;FOTO_BMP&quot;&#41;, &quot;Temp&#46;bmp&quot;, BLOB_EXPORT_OVERWRITE &#41;\n      Msginfo&#40; &quot;Falha na criação do arquivo de foto&quot; &#41;\nendif\n&#46;&#46;&#46;\n[/code:3toc5wga]\n\nOutra coisa que vc pode fazer é guardar além da foto, o nome original dela num campo, assim vc recupera ela com o nome certo. No meu caso, como eu so abria uma foto por vez, eu salvava todas como temp.bmp\nQuanto ao Firebird, é free, sim. Mas no seu caso vc resolve facil gravando no DBF, so fique esperto com o tamanho dos BMPs, pois seu dbf vai crescer bastante. Ah, use DBFCDX, com DBFNTX nao funciona.\n\n[]\'s\nMaurilio','',0,'AIA=','3toc5wga',1,0,'',217,0,0),(17249,3912,2,66,0,'200.127.64.73',1155734635,1,0,1,0,1,0,'','','Antoio la busque y aprece varias veces,que me sugieres que vuelva a\nrecompilar los prgs y pruebe','',0,'AIA=','1yvd9vma',1,0,'',66,0,0),(17250,3915,3,69,0,'206.210.97.138',1155737544,1,0,1,1,1,0,'','Spinner Question','Hi Everybody,\n\nHow can I have a spinner increase/decrease by 0.5 instead of 1\n\n\nThanks,\n\nJeff','',0,'AIA=','1bdebrk4',1,0,'',69,0,0),(17251,3912,2,2,0,'87.218.146.32',1155738408,1,0,1,1,1,1,'','','Prueba este ejemplo, de la misma forma que ejecutas tu aplicación (situándola en otro ordenador en red):\n[code:oix1e2wz]\nfunction Main&#40;&#41;\n\n   local h\n\n   MsgInfo&#40; h &#58;= LoadLib32&#40; &quot;kernel32&#46;dll&quot; &#41; &#41;\n\n   FreeLib32&#40; h &#41;\n\nreturn nil\n[/code:oix1e2wz]\nDinos que valor te aparece, gracias','',0,'AIA=','oix1e2wz',1,0,'',2,0,0),(17252,3915,3,2,0,'87.218.146.32',1155738634,1,0,1,1,1,1,'','','Jeff,\n\nSearch for these lines in source\\classes\\tget.prg and change the 1 into 0.5:\n[code:zlr7az4s]\n      If nDirection &gt; 0\n         nValue += 1 / &#40; 10 ^ nDec &#41;\n      else\n         nValue -= 1 / &#40; 10 ^ nDec &#41;\n      Endif\n[/code:zlr7az4s]','',0,'AIA=','zlr7az4s',1,0,'',2,0,0),(17253,3905,6,396,0,'201.243.137.99',1155739489,1,0,1,1,1,1,'','','En mi perfil tienes mis datos de comunicaion, yo vivo en Guatire, es to es uy buena concidencia...mi celular es 0414-231.76.00 y 0412-292.56.40, tratemos de entrar en contacto a traves de los correos privados, saludo y buen dia...','',0,'AIA=','1ny8y0pj',1,0,'',396,0,0),(17254,3915,3,69,0,'206.210.97.138',1155741480,1,0,1,1,1,0,'','','Thanks for the quick reply Antonio but that will not solve my probelm.\n\nI use 4 different spinners, only one of them needs to adjust by 0.5 the rest of them need to adjust by 1\n\n\nJeff','',0,'AIA=','e4ezbxn3',1,0,'',69,0,0),(17255,3913,3,213,0,'24.175.56.72',1155743233,1,0,1,1,1,0,'','','Peter Gardner,\n\nI have worked some with Microsoft MapPoint.  Is this what you are going to use?  What exactly are you wanting to do?\n\nRegards,\nRandal Ferguson','',0,'AIA=','1soo5yhp',1,0,'',213,0,0),(17256,3915,3,6,0,'87.19.210.254',1155743926,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:1gwqevf7]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, nVar &#58;= 1\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR nVar;\n           PICTURE &quot;99&#46;9&quot;;\n           SPINNER\n\n    oGet&#58;oVScroll&#58;bGoUp = &#123; || If&#40; GetFocus&#40;&#41; != oGet&#58;hWnd, oGet&#58;SetFocus&#40;&#41;, &#41;,;\n                               nVar += 0&#46;5,;\n                               oGet&#58;Refresh&#40;&#41; &#125;\n\n    oGet&#58;oVScroll&#58;bGoDown = &#123; || If&#40; GetFocus&#40;&#41; != oGet&#58;hWnd, oGet&#58;SetFocus&#40;&#41;, &#41;,;\n                                 nVar -= 0&#46;5,;\n                                 oGet&#58;Refresh&#40;&#41; &#125;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1gwqevf7]\n\nEMG','',0,'AIA=','1gwqevf7',1,0,'',6,0,0),(17257,3901,6,54,0,'189.132.107.175',1155744105,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:gvwbn9jr]William,\n\nEstás usando un brush \"NULL\" para los radio buttons ?[/quote:gvwbn9jr]\n\nAntonio,\n\nSi y no, pasa que hago un degradado y eso lo defino posteriormente como brush.\n\nY he hecho pruebas con un brush solido y si lo toma el radiobutton, y el groupbox, pero el degradado no lo hace.\n\nCabe mencionar que el SAY si toma el degradado como fondo y sin problemas.\n\n[img:gvwbn9jr]http&#58;//incos&#46;sytes&#46;net/degrade&#46;jpg[/img:gvwbn9jr]\n\nLe he puesto un control SAY para el texto del radio.\n\nSaludos y gracias de antemano','',0,'iA==','gvwbn9jr',1,0,'',54,0,0),(17258,3913,3,330,0,'217.37.54.49',1155744508,1,0,1,1,1,0,'','','Yes I think that I will use mappoint. Basically what I want to do is invoke the mapping system and pass locations of containers so that they can see these positioned on the map. Ideally it would be good if they could then plot a route between locations \n\nRegards\nPeter','',0,'iA==','zkme3sfu',1,0,'',330,0,0),(17259,3916,6,141,0,'200.88.94.137',1155746415,1,0,1,1,1,1,'','Descargar Verce 4.3','Eso...\n\n¿Desde donde puedo descargar Verce 4.3?\n\n... no se, pero hoy no puedo entrar a la página de JCSO... ¿alguna alternativa?\n\nGracias adelantadas,','',0,'iA==','1xr9qduf',1,0,'',141,0,0),(17260,3917,2,409,0,'201.246.67.143',1155747397,1,0,1,1,1,0,'','Y LA CORRUCCION DE INDICE','RENE: y con esto hay corrucciones de indices y cuanto sale este producto\nSaludos','',0,'iA==','12qwfg6u',1,0,'',409,0,0),(17261,3915,3,2,0,'87.218.146.32',1155749028,1,0,1,1,1,1,'','','Enrico,\n\nYou are right. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'iA==','1ds2dtkr',1,0,'',2,0,0),(17262,3868,6,376,0,'201.240.212.152',1155752987,1,0,1,1,1,0,'','','Leandro\n\nSi te parece que el archivo se deterioró aquí hay un nuevo enlace:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02856efa33/Zipper4.zip.html\">http://hyperupload.com/download/02856ef ... 4.zip.html</a><!-- m -->\n\nSaludos\n\nArmando','',0,'iA==','3pldslst',1,0,'',376,0,0),(17263,3917,2,138,0,'200.67.9.208',1155753035,1,0,1,1,1,1,'','','Supongo que estas hablando del Advantage Database Server.\n\nEfectivamente, eso te elimina la corrupcion de datos, y en cuanto al precio depende del numero de usuarios que deseas conectar.\n\nContactame por correo privado. <!-- e --><a href=\"mailto:rflores@google.com\">rflores@google.com</a><!-- e -->','',0,'iA==','2daoz5gu',1,0,'',138,0,0),(17264,3916,6,9,0,'85.54.224.198',1155755059,1,0,1,1,1,1,'','','Julio,\n\nAl parecer, no funciona la página (me imagino que será un problema temporal).\n\nHe subido una copia a la siguiente dirección:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02aaf77547/verce43.zip.html\">http://hyperupload.com/download/02aaf77 ... 3.zip.html</a><!-- m --> \n\nANTONIO, (con el permiso de Juan Carlos) quizas sería conveniente que lo colocarás en el apartado de descargas, incluso que se distribuyera con FWH para los hispanos.','',0,'iA==','31b23azv',1,0,'',9,0,0),(17265,449,3,48,0,'83.42.4.61',1155755136,1,0,1,1,1,0,'','','Using VRDBCODE class if you want to do a preview of a report you must use oPrn:hDcOut instead oPrn:hDc when create the codebars.\n\nGreetings.\nSantiago Pérez.','',0,'iA==','153tbzta',1,0,'',48,0,0),(17266,3918,17,2,0,'87.218.146.32',1155755664,1,0,1,1,1,1,'','Verce 4.3','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02aaf77547/verce43.zip.html\">http://hyperupload.com/download/02aaf77 ... 3.zip.html</a><!-- m -->','',0,'iA==','1nx809rf',1,0,'',2,0,0),(17267,3916,6,2,0,'87.218.146.32',1155755779,1,0,1,1,1,1,'','','Manuel,\n\nLo hemos puesto en la sección de utilidades de estos foros, gracias. \n\nTen en cuenta que existen otras utilidades makes y los usuarios deciden la que prefieran.','',0,'iA==','3vg2o4ic',1,0,'',2,0,0),(17268,3914,6,48,0,'83.42.4.61',1155756623,1,0,1,1,1,0,'','','Acabo de caer en la cuenta de que para que los codigos de barras se vean en el preview se ha de utilizar oPrn:hDcOut en lugar de oPrn:hDc a la hora de crear los codigos.\n\nUn saludo.','',0,'','3rjtk5xv',1,0,'',48,0,0),(17269,3919,6,203,0,'200.63.228.95',1155758800,1,0,1,1,1,1,'','Pasar datos de una tabla DBF a una de access','Hola amigos de foro\n\nNecesito pasar unos datos que se encuentran en una dbf a una tabla de access este el parte del  codigo con el que lo he intentado\n\nGracias de antemano\n\n\n#include \"FiveWin.ch\"\n#include \"sql.ch\"\n\n//----------------------------------------------------------------//\n\nfunction Main()\n\n   Local oOdbc, oDbf,oDbf1\n   local aData := {}\n   Local cnombre\n\n   SET 3D LOOK ON\n   sele 1\n   use \\fwh\\fenix\\tventas.dbf\n   browse()\n\n   oOdbc := TOdbc():New( \"fenix\", \"\", \"\" )\n\n   If !oOdbc:lSuccess\n      oOdbc:ShowErrorList(\"ODBC session not successfully initialized, aborting...\")\n      oOdbc:End()\n      return nil\n   Endif\n\n   \n\n  oDbf := TDbOdbcDirect():new( \"SELECT * FROM ventas\" , oOdbc)\n  oDbf:Open()\n  oDbf:Complete()\n\n   Browse()\n   cnombre:= oDbf:FieldName(1)\n   ?? cnombre\n\n   sele 1\n   do while !eof()\n     ?? \'ingrese\'\n     oDbf:AddNew()\n     oDbf:tpIdCliente   := tventas-&gt;tpidclien\n     oDbf:update()\n     sele 1\n     dbskip()\n   enddo\n\n   oDbf:End()\n   oOdbc:End()\n\nreturn nil','',0,'','o6bwrs39',1,0,'',203,0,0),(17270,3892,3,154,0,'151.80.3.59',1155759003,1,0,1,1,1,1,'','','Antonio,\nthank you,\n\nWith\n[code:3cfeubl4]&#46;&#46;&#46;\n   ACTIVATE WINDOW oWnd ;\n      ON INIT oActiveX&#58;Do&#40; &quot;gotoFirstPage&quot; &#41;\n[/code:3cfeubl4]\nwork very well!!!\n[/code]','',0,'AIA=','3cfeubl4',1,0,'',154,0,0),(17271,449,3,49,0,'62.13.172.78',1155767043,1,0,1,1,1,1,'','','thanks santiago, i try this :\n[code:2jnxa82d]\nFunction PrintBarCode&#40;&#41;\nLocal oPrn\nLocal oBc6\n\nprinter oPrn preview\npage\n\n oBC6 &#58;= VRDBarcode&#40;&#41;&#58;New&#40; oPrn&#58;hDcOut , &quot;12345678&quot;, 80, 80, 10, 10,2 &#41;\n\n   oBC6&#58;lCircular&#58;=&#46;t&#46;\n   oBC6&#58;ShowBarcode&#40;&#41;\n\n\nendpage\n\n    endprint\n   return nil[/code:2jnxa82d]\n\n\nrun ok but I want write the cCode on the center of the barcode ( HRC center ) or  on the left / right  (HRC radial) ?\n\n\n[url=http&#58;//imageshack&#46;us:2jnxa82d][img:2jnxa82d]http&#58;//img111&#46;imageshack&#46;us/img111/6840/hrcms7&#46;gif[/img:2jnxa82d][/url:2jnxa82d]\n\nHow I can make it ?\n\n\nAnd if I want print only 180° of the barcode ?\n\n\n\nRegards,','',0,'GIA=','2jnxa82d',1,0,'',49,0,0),(17272,3913,3,49,0,'62.13.172.78',1155774943,1,0,1,1,1,1,'','','Dear Randal,\nI\'m interested for YOur Work...\nCan U send a simple sample to invoke microsoft Mappoint to search a position to a map and print it ..?\n\nRegards,','',0,'GIA=','2bk7jl6z',1,0,'',49,0,0),(17273,3912,2,66,0,'200.122.101.42',1155781259,1,0,1,0,1,0,'','','Estimado Antonio\n\nHe probado el ejemplo, que me has enviado, pero no me arroja\nningun valor,hay alguna otra forma de detectar donde se produce\nel llamado a esa dll , tambien lo probe con un menu principal\ny un modulo de clientes solamente ,  en el exe me sigue apareciendo kernel32.dll\n \n\nGRacias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'GIA=','32nzhyr8',1,0,'',66,0,0),(17274,3905,6,748,0,'200.35.219.52',1155785129,1,0,1,1,1,0,'','','Muchas Gracias Por su Apoyo.\nJose Luis y Mario Antonio Gonzalez Osal \n\n_________________\nRicardo Iglesias\nCaracas\nCel.0416 3599562','',0,'GIA=','vbsorlvu',1,0,'',748,0,0),(17275,3912,2,2,0,'87.218.146.32',1155801925,1,0,1,1,1,1,'','','Fabian,\n\nEl ejemplo que te hemos indicado debería mostrarte un valor numérico. Asegúrate de que lo estás construyendo bien y lo estás ejecutando.','',0,'GIA=','3gsk2an7',1,0,'',2,0,0),(17276,3920,7,720,0,'80.36.244.134',1155803533,1,0,1,1,1,0,'','No borra el registro...','Hola a todos. Perdonad por tantas preguntas pero a medida que se va avanzando surgen más dudas....\nResulta que pretendo seleccionar de una lista un registro para borrarlo, pero no lo hace... El código que utilizo es este por si alguien ve algún error...\n\nLOCAL odlg,nKey,oSay,obtn,ofont\nLocal cSearch := \"\"\nLOCAL nrecno:=0\nLOCAL hBmp := ReadBitmap( CurDir() + \"\\go.bmp\" )     \n    \n    HideKeyboard()\n    DEFINE dialog odlg resource \"sele_cli\"\n        redefine LISTBOX oBrw ;\n           FIELDS hBmp, clientes-&gt;Nomcli, clientes-&gt;Apecli;\n           HEADERS \"\",\"Nombre\", \"Apellidos\" ID 500 OF oDlg\n       REDEFINE BUTTON  ID 100 OF oDlg ACTION oDlg:End()\n       REDEFINE BUTTON  ID 110 OF oDlg ACTION ( nRecno := Clientes-&gt;(  Recno() ) , Clientes-&gt;(dbDelete()),oDlg:End() )\n    obrw:bKeyChar = { | nKey, nFlags | Search( nKey, @cSearch ),oBrw:Refresh(),oSay:REFRESH()}\n      redefine say oSay prompt cSearch id 130 of odlg\n      ACTIVATE dialog odlg;\n            on init odlg:setfocus()\n\n\nSaludos y gracias..\n\nElías Torres.','',0,'GIA=','1gb8aprn',1,0,'',720,0,0),(17277,3921,7,456,0,'217.127.39.57',1155803911,1,0,1,1,1,1,'','Conexion GPRS','Hola a todos,\n   estoy utiulizando una conexion GPRS para enviar ficheros via FTP. El problema es que no se como activar el GPRS desde el progama, si tengo la conexion GPRS activa el envio me funciona, pero claro lo ideal seria que se activara automaticamente y no a mano, cuando quiero hacer el envio de los ficheros.\n\nGracias anticipadas, un saludo.','',0,'GIA=','1gm11y1o',1,0,'',456,0,0),(17278,449,3,48,0,'83.42.4.61',1155803949,1,0,1,1,1,0,'','','Ok, I will implement the banner option also.\n\nCreate a 180º barcode could be a problem because I use solid circles to get a good barcode image. The arcs can\'t be easily fill with a color. \n\nPerhaps a good solution it\'s to overwrite with a white rectangle the half of the circle to want to hide (top, bottom, left or right). I will do a test.','',0,'GIA=','3bbd9s45',1,0,'',48,0,0),(17279,3920,7,449,0,'212.64.224.244',1155805349,1,0,1,1,1,1,'','','Elias,\n\nTal como lo haces esta bien, (si lo que quieres es simplemente borrar el registro) pero:\n\n1.- Los registros no se borran fisicamente, sino que quedan marcados para cuando realizes posteriormente un Pack(). Si lo que quieres es que tu sistema no te muestre los registros marcados, debes especificar el comando SET DELETED ON. Esto hara q tu aplicacion ignore los registros que estan marcados.\n\n2.- Puedes testear facilmente poniendo:\n\n[code:2gree1xq]&#46;&#46;&#46;\nSET DELETED ON\n&#46;&#46;&#46;\nREDEFINE BUTTON ID 110 OF oDlg ACTION &#40; Clientes-&gt;&#40;dbDelete&#40;&#41;&#41;, oBrw&#58;Refresh&#40;&#41; &#41; \n&#46;&#46;&#46;\n[/code:2gree1xq]','',0,'AIA=','2gree1xq',1,0,'',449,0,0),(17280,3921,7,449,0,'212.64.224.244',1155805578,1,0,1,1,1,1,'','','Hola Biel,\n\nPuedes explicar un poco el proceso de conexion, como te conectas ? El objetivo de una conexion asi, es enviar/recibir ficheros, no ? Se puede testear con algun servidor externo ? \n\nGràcies.','',0,'AIA=','1l6dffvv',1,0,'',449,0,0),(17281,3922,3,308,0,'84.148.29.110',1155807474,1,0,1,1,1,0,'','ODBC Question','Can someone explain to me, distinguished is what that between oODBC:lCsrDyn := .t. and oODBC:lCsrDyn := .f. ?  \n\nBest regards\n  Norbert','',0,'AIA=','wlgvp7mn',1,0,'',308,0,0),(17282,449,3,49,0,'62.13.172.78',1155807742,1,0,1,1,1,1,'','','I sent you My test program .\nCreating a 180° barcode you can use only black COLOR\nYOu must give th epossibility to create option 90°, 180°, 270°, 360°\n\nYes  the solution is good but you must write the code also on the center of barcode \n\n\nthere are many option you can make :\nsee this picture:\n[url=http&#58;//img153&#46;imageshack&#46;us/my&#46;php?image=optionwq1&#46;jpg:zsdac31w][img:zsdac31w]http&#58;//img153&#46;imageshack&#46;us/img153/5982/optionwq1&#46;th&#46;jpg[/img:zsdac31w][/url:zsdac31w]','',0,'GA==','zsdac31w',1,0,'',49,0,0),(17283,3923,6,533,0,'80.32.177.143',1155808526,1,0,1,1,1,0,'','Codigos de Barras','Buenos días foro: \n\n    Necesito imprimir tarjetas con codigo de barras. Dichos códigos serán 6 digitos alfanuméricos. He estado probando con fuentes, pero me encuentro que hay veces que estos código no son leidos. ¿alguien me puede indicar (si se puede con algún ejemplo  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> ) de como poder imprimirlas (tprinter, tdosprn, etc. . .)?. \n  \n    UN SALUDO,','',0,'GA==','t9svyub3',1,0,'',533,0,0),(17284,3923,6,533,0,'80.32.177.143',1155808615,1,0,1,1,1,0,'','','Por cierto:\n\n\n    FWH 2.4 + Harbour 0.43 + Microsoft C++','',0,'GA==','39fnt4n7',1,0,'',533,0,0),(17285,3921,7,456,0,'217.127.39.57',1155811501,1,0,1,1,1,1,'','','Hola Carles,\ntengo una PDA con GSM y GPRS. Via GPRS tengo conexion a internet. \nEl cliente tiene un servidor FTP, y lo que hago es enviar los pedidos generados en la PDA al servidor.\n\nTodo esto ya funciona, utilizando las funciones de WinInet. (Gracias Enrico, hay un post explicando como hacerlo)\n[code:29osmfwr]\nhInternet&#58;= InternetOpen&#40; &quot;HnasMbl&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\nIF !hInternet==0\n      WHILE hConnect==0 &#46;AND&#46; nVeces&lt;3\n         hConnect&#58;=InternetConnect&#40; hInternet, &quot;80&#46;33&#46;xxx&#46;xxx&quot;, 21, &quot;usr&quot;, &quot;psw&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n         nVeces++\n      END\n      IF !hConnect==0\n         IF FtpPutFile&#40; hConnect, \'CabPed&#46;txt\', &quot;/Upload/CabPed&#46;txt&quot;, 0, 0 &#41;\n            Msginfo&#40;\'Fiechero \'+cDir+\'CabPed&#46;txt\'+\' enviado con exito\'&#41;\n        &#46;&#46;&#46;\n[/code:29osmfwr]\nLo que no consigo es conectar automaticamente GPRS, tengo que ir a mano con el puntero a conexiones, y pulsar conectar.\n Eso es lo que quiero evitar, alguna manera para activar automaticamente la conexion, Internet explorer por ejemplo lo hace automatico, si no esta conectado, se conecta.','',0,'AIA=','29osmfwr',1,0,'',456,0,0),(17286,3921,7,449,0,'212.64.224.244',1155811653,1,0,1,1,1,1,'','','Biel,\n\nGracies. Voy a intentar jugar cuando tenga un poco de tiempo con este tema. Si pillo algo te lo posteo.','',0,'AIA=','3750v86m',1,0,'',449,0,0),(17287,3924,4,267,0,'200.208.238.2',1155817893,1,0,1,1,1,1,'','Error After Update FWPPC 1.0','Hi,\n\nLater that I brought up to date for FWPPC 1,0 all the programs that I try to compile it appears the error to follow: \n\n[i:1ydi09mw]Harbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor04.prg\' and generating preprocessed output to \'tutor04.ppo\'...\n\nLines 47, Functions/Procedures 3\nGenerating C source output to \'tutor04.c\'... Done.\ntutor04.c\n   Creating library tutor04.lib and object tutor04.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0003154C\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000874B0\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00094EFC\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000AA9D8\n* Application successfully built[/i:1ydi09mw]\n\n\nWhat it can be?','',0,'IA==','1ydi09mw',1,0,'',267,0,0),(17288,3924,4,6,0,'82.57.161.205',1155820654,1,0,1,1,1,1,'','Re: Error After Update FWPPC 1.0','They are just warnings. You can safely ignore them.\n\nEMG','',0,'IA==','3oq2sulx',1,0,'',6,0,0),(17289,3906,2,147,0,'201.253.60.141',1155820930,1,0,1,0,1,1,'','','Estimado/a:\nMi sugerencia es que uses una PC como servidor semidedicado en el que esté el exe y las dbfs. En las otras PC solo pongas el exe. Para conectarte podés usar un archivo .ini (si estamos hablando de una aplicación hecha con FW), de donde lees la ruta al servidor, mas o menos así:\n[Dirs]\nBDatos=\\mgIdeas\\Siis\\Bases\n\nLo tengo asi y jamás me salió el error que comentás\n\nSaludos','',0,'','2y1rgos0',1,0,'',147,0,0),(17290,3924,4,267,0,'200.208.238.2',1155820973,1,0,1,1,1,1,'','','Thanks, Enrico.','',0,'','28hxkb1w',1,0,'',267,0,0),(17291,3922,3,217,0,'200.159.120.34',1155823128,1,0,1,1,1,0,'','Re: ODBC Question','Norbert,\n\nThis property refer to SQL cursor. That can be dynamic (.T.) or no (.F.).\nSQL cursor point to a single record row or set of rows. You will use this property when work with MS SQL Server. I\'m sorry to not remember if you must set it to .T. or .F. to work with MS SQL Server bur I think you can do a simple test trying set to .T. and doing any \'select clause\' if you get an error change this value to .F. and try again.\n\nRegards\nMaurilio','',0,'','g0t2jyb0',1,0,'',217,0,0),(17292,2767,4,456,0,'217.127.39.57',1155830476,1,0,1,1,1,1,'','','Hi, \n starting from the sample of Enrico (many thanks), I have developed a function to send customer orders from PDA to PC via FTP, using GPRS connection.\n\nAll is runing ok when GPRS is conected (manually connected), I\'m looking (and not finding for the moment) a way to automatic connect the GPRS, like do for example internet explorer .\n\nThanks in advance.','',0,'','2twubw8o',1,0,'',456,0,0),(17293,2767,4,6,0,'82.57.161.205',1155830906,1,0,1,1,1,1,'','','I\'m not sure if it is applicable on GPRS connections but try adapting the following Win32 function:\n\n[code:lwjhexi1]#pragma BEGINDUMP\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ras&#46;h&gt;\n#include &lt;HbApi&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\nHB_FUNC&#40; RAS_DIAL &#41; // &#40; cEntryName, @nRetVal, @hRasCon &#41; -&gt; NIL\n&#123;\n    RASDIALPARAMS rdp;\n\n    BOOL pwd;\n\n    HRASCONN hRas = 0;\n\n    DWORD res;\n\n    rdp&#46;dwSize = 1052;\n\n    lstrcpy&#40; rdp&#46;szEntryName, hb_parc&#40; 1 &#41; &#41;;\n\n    rdp&#46;szPhoneNumber&#91; 0 &#93; = 0;\n    rdp&#46;szCallbackNumber&#91; 0 &#93; = 0;\n    rdp&#46;szUserName&#91; 0 &#93; = 0;\n    rdp&#46;szPassword&#91; 0 &#93; = 0;\n    rdp&#46;szDomain&#91; 0 &#93; = 0;\n\n    RasGetEntryDialParams&#40; 0, &amp;rdp, &amp;pwd &#41;;\n\n    res = RasDial&#40; 0, 0, &amp;rdp, 0, 0, &amp;hRas &#41;;\n\n    hb_stornl&#40; res, 2 &#41;;\n    hb_stornl&#40; &#40; LONG &#41; hRas, 3 &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:lwjhexi1]\n\nEMG','',0,'AIA=','lwjhexi1',1,0,'',6,0,0),(17294,3925,4,13,0,'213.76.252.200',1155833312,1,0,1,1,1,0,'','Readonly numeric Get and shared database field','Antonio,\n\nWhen I create readonly numeric get and bound control to shared database field, set and move focus to/from get generates error (called from ::Get:Assign method - lock required). What is properly mehod to display numeric control in this situation - use variable instead database field ?\n\nRegards\nPawel','',0,'AIA=','q8myznlk',1,0,'',13,0,0),(17295,2767,4,13,0,'213.76.252.200',1155833535,1,0,1,1,1,0,'','','Hello,\n\nI use function like sample below.\n\nRegards\nPawel\n\n[code:ghs43eyg]\n// Header file&#58; &lt;connmgr&#46;h&gt;\n// Library linked&#58; CellCore&#46;Lib\n// Pocket Pc&#58; Properly create GPRS connection &#40;My ISP&#41; in Connections Settings\n//            Connections Settings, Advanced Tab, Select Networks Button, set to My ISP\n\nHB_FUNC &#40;GPRSCONNECTION&#41;\n&#123;\n   HANDLE phWebConnection = NULL;\n   DWORD pdwStatus = 0;\n\n   ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;;\n   if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41;\n   &#123;\n      hb_retl &#40;TRUE&#41;;\n   &#125;\n   else\n   &#123;\n      CONNMGR_CONNECTIONINFO sConInfo;\n      memset &#40;&amp;sConInfo,0, sizeof &#40;CONNMGR_CONNECTIONINFO&#41;&#41;;\n      sConInfo&#46;cbSize = sizeof &#40;CONNMGR_CONNECTIONINFO&#41;;\n      sConInfo&#46;dwParams = CONNMGR_PARAM_GUIDDESTNET;\n      sConInfo&#46;dwPriority = CONNMGR_PRIORITY_USERINTERACTIVE;\n      sConInfo&#46;dwFlags = CONNMGR_FLAG_PROXY_HTTP;\n      sConInfo&#46;bExclusive = FALSE;\n      sConInfo&#46;bDisabled = FALSE;\n      sConInfo&#46;guidDestNet = IID_DestNetInternet;\n\n      if &#40;ConnMgrEstablishConnection &#40;&amp;sConInfo, &amp;phWebConnection&#41; == S_OK&#41;\n      &#123;\n         for &#40;unsigned int k = 0; k &lt; 8; k ++&#41;\n         &#123;\n            ConnMgrConnectionStatus&#40;phWebConnection,&amp;pdwStatus&#41;;\n            if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41;\n            &#123;\n               hb_retl &#40;TRUE&#41;;\n            &#125;\n            else\n            &#123;\n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41;\n               &#123;\n                  hb_retl &#40;FALSE&#41;;\n               &#125;\n               Sleep &#40;2500&#41;;\n               ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;;\n               if &#40;pdwStatus == CONNMGR_STATUS_WAITINGCONNECTION&#41;\n               &#123;&#125;\n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41;\n               &#123;\n                  hb_retl &#40;FALSE&#41;;\n               &#125;\n            &#125;\n         &#125;\n         hb_retl &#40;FALSE&#41;;\n      &#125;\n      else\n      &#123;\n         hb_retl &#40;FALSE&#41;;\n      &#125;\n   &#125;\n&#125;\n[/code:ghs43eyg]','',0,'AIA=','ghs43eyg',1,0,'',13,0,0),(17296,3926,2,52,0,'200.127.195.89',1155834144,1,0,1,1,1,1,'','TSTOS...','Gente,\n\n   Hasta el momento usamos la funcion TSTOS() para que nos devuelva en segundos un lapso de tiempos. Pero esta función está en una TR.LIB, en FW existe alguna función que haga los mismo? porque en sí es por la unica función que utilizamos tr.lib.-\n\nNos vemos.-','',0,'AIA=','3pejw1h0',1,0,'',52,0,0),(17297,3927,6,519,0,'88.14.203.66',1155834901,1,0,1,1,1,0,'','encrypt()   ?','Hola amigos\n\n  Estoy intentado  guardar en un archivo ini, una cadena encriptada el problema esta en que no me guarda la cadena\nclave:=encrypt(\"12345\")\n \nMsginfo(clave)  // Aqui  me lo muestra perfectamente\n\n Pero si lo guardo en un ini me muestra un valor distinto al que me muestra en el msginfo \n\n  alguna idea  ?\n\n un saludo y gracias desde ya','',0,'AIA=','1o5i6zxv',1,0,'',519,0,0),(17298,3928,3,49,0,'62.13.172.78',1155835507,1,0,1,1,1,1,'','FOR FRANK DEMONT','Can I write you an private email,,pls\nRegards','',0,'AIA=','379rzofi',1,0,'',49,0,0),(17299,3910,2,235,0,'201.140.42.223',1155836043,1,0,1,1,1,0,'','','gracias rene.','',0,'AIA=','3iesg2mc',1,0,'',235,0,0),(17300,3929,17,2,0,'87.218.146.101',1155836457,1,0,1,1,1,1,'','Cayetano\'s BarLib','Original Cayetano\'s BarLib to create barcodes:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02bd8de195/barlib.zip.html\">http://hyperupload.com/download/02bd8de ... b.zip.html</a><!-- m -->','',0,'AIA=','198yrbyl',1,0,'',2,0,0),(17301,3929,17,2,0,'87.218.146.101',1155836579,1,0,1,1,1,1,'','','Cayetano\'s BarLib enhanced by Enrico:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029e8f4142/BarLib2.zip.html\">http://hyperupload.com/download/029e8f4 ... 2.zip.html</a><!-- m -->','',0,'AIA=','zp7z78g7',1,0,'',2,0,0),(17302,3923,6,2,0,'87.218.146.101',1155836625,1,0,1,1,1,1,'','','Mike,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3929\">http://fivetechsoft.com/forums/viewtopic.php?t=3929</a><!-- m -->','',0,'AIA=','1023uvsv',1,0,'',2,0,0),(17303,3910,2,235,0,'201.140.42.223',1155836869,1,0,1,1,1,0,'','','rene:\n\nalguna instruccion que haga lo mismo que inkey()??, o alguna sugerencia que me puedas dar???\n\nde antemano muchas gracias.','',0,'AIA=','1wxqew99',1,0,'',235,0,0),(17304,3925,4,2,0,'87.218.146.101',1155836933,1,0,1,1,1,1,'','','Pawel,\n\nYes, you may use a variable instead of a field, as the class TGet is trying to modify the field contents.','',0,'AIA=','3ezho5rj',1,0,'',2,0,0),(17305,3926,2,2,0,'87.218.146.101',1155837088,1,0,1,1,1,1,'','','Gustavo,\n\nPuedes usar Seconds() y restar un valor de otro.','',0,'AIA=','3ipnkzxi',1,0,'',2,0,0),(17306,3919,6,2,0,'87.218.146.101',1155837479,1,0,1,1,1,1,'','','Es más sencillo si usas ADO. Aquí tienes un ejemplo publicado por René:\n[code:1aqgm6zw]LOCAL oConexionAdo &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41;\nPRIVATE oRecordset &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;recordset&quot;&#41;\n\n   oConexionAdo&#58;Open&#40;&quot;Provider= MicroSoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=&#46;\\taller&#46;mdb;&quot;&#41;\n\n   oRecordSet&#58;LockType &#58;= adLockOptimistic\n   oRecordSet&#58;CursorType &#58;= adOpenKeyset\n   oRecordSet&#58;ActiveConnection&#40;oConexionAdo&#41;\n   oRecordSet&#58;Source &#58;= &quot;Select * from clientes&quot; // tu query aqui\n   oRecordSet&#58;Open&#40;&#41;\n   oRecordSet&#58;MoveFirst&#40;&#41;\n\n   aDatos &#58;= &#123;&#125;\n\n   DO WHILE ! oRecordSet&#58;eof&#40;&#41;\n        aReng &#58;= &#123;&#125;\n        FOR x &#58;= 1 TO oRecordSet&#58;Fields&#58;Count&#40;&#41;\n            AADD&#40;aReng,oRecordSet&#58;Field&#40;x-1&#41;&#58;Value\n        NEXT\n        AADD&#40;aDatos,aReng&#41;\n        oRecordSet&#58;MoveNext\n   ENDDO\n\n   oRecordSet&#58;Close&#40;&#41;\n   oConexionAdo&#58;Close&#40;&#41;\n[/code:1aqgm6zw]','',0,'AIA=','1aqgm6zw',1,0,'',2,0,0),(17307,3929,17,6,0,'82.55.208.194',1155837633,1,0,1,1,1,1,'','','Not so enhanced. Only some little bugfixes.\n\nEMG','',0,'AIA=','1wrwhqjm',1,0,'',6,0,0),(17308,3930,6,652,0,'200.35.79.50',1155842676,1,0,1,1,1,1,'','Ayuda con borrado de directorio','Buen día...\n\n   Amigos será que alguien de ustedes ha implementado una funcion y/o clase para borrar un directorio completo con todo y archivos, de verdad la necesito URGENTE porque estuve tratando con FErase y borra perfercto los archivos, pero lRmDir() no funciona y lo corroboré con unos post que colocaron en este mismo foro. Utilizo FWH 2.5 + Harbour 45.0 (Flex) Build 19-Jun-2005','',0,'AIA=','2lty0hgf',1,0,'',652,0,0),(17309,3879,6,362,0,'200.168.52.156',1155843772,1,0,1,1,1,1,'','','Carlos, Solución Final. I Love FiveWin...\n\n\n/*Procedimiento principal*/\nFUNCTION XBLITE()  //-&gt;MAIN()\n\n    MEMVAR cPRGPATH, cFILEPATH\n\n    cPRGPATH := cFILEPATH(GETMODULEFILENAME(GETINSTANCE()))\n    cPRGPATH := cShortName(cPRGPATH)\n\n    XBACKUPLITE()\n\n    lCHDIR(cPRGPATH)\n\nRETURN NIL\n\nGracias a Usted y Kleyber Derick.\n\nSaludos mi amigo.','',0,'AIA=','2d8nt5rj',1,0,'',362,0,0),(17310,3930,6,375,0,'84.122.110.151',1155843774,1,0,1,1,1,1,'','','Si el directorio está completamente vacio,  [b:2qbj5uv2]lRmDir[/b:2qbj5uv2] debería borrar el directorio sin mayor problema. Si queda algún fichero por borrar [b:2qbj5uv2]NO[/b:2qbj5uv2].\nPor otro lado lRmDir( cDir ) utiliza cDir de [u:2qbj5uv2]nombre corto[/u:2qbj5uv2]. Si utilizas un nombre largo de directorio, acortalo con LFN2SFN( cDir ) o utiliza la otra función: [b:2qbj5uv2]lLFNRmDir( cDir )[/b:2qbj5uv2]. Pero lo más seguro es que no te lo borró porque no estab vacio.','',0,'QQ==','2qbj5uv2',1,0,'',375,0,0),(17311,3919,6,203,0,'200.63.228.95',1155844452,1,0,1,1,1,1,'','','Gracias Antonio\n\n\n\nSaludos \nOscar','',0,'QQ==','3nrwwd8k',1,0,'',203,0,0),(17312,3927,6,375,0,'84.122.110.151',1155844592,1,0,1,1,1,1,'','','Guardalo en un fichero con MEMOWRIT(\".\\Fichero.dat\",clave).\nRecuperalo con clave := MEMOREAD(\".\\Fichero\")\n\n[u:168vl43q]Otra solución [/u:168vl43q]sería convertir cada caracter en un string de su valor ASCII. Por ejemplo:\n\ncDat := \"\"\nFOR nCont = 1 TO LEN(clave)\ncDat += STRZERO(ASC(SUBSTR(CLAVE,nCont,1)),3)\nNEXT\n\nCada caracter de \'clave\' se a convertido en un alfanumérico de tres dígitos tipo \"069\" ó \"128\"\n\nAhora guarda cDat en el INI.\n\nPara recuperarlo, Carga cDat desde el INI y:\n\nclave := \"\"\nFOR nCont = 1 TO LEN(cDat) STEP 3\nclave += CHR(VAL(SUBSTR(cDat,nCont,3)))\nNEXT\n\nNo lo he probado, lo mismo hay algún BUG pero esa es la idea, o algo así.\n\nUn saludo.','',0,'AQ==','168vl43q',1,0,'',375,0,0),(17313,3913,3,213,0,'24.175.56.72',1155844992,1,0,1,1,1,0,'','','Do you want to use it via ole or activex?  I needed to use via activex but could not get events to work so I put it on the back burner for now.\n\nI could give you a little sample code for using it via ole if that would help.\n\nRegards,\nRandal Ferguson','',0,'AQ==','1cars7qa',1,0,'',213,0,0),(17314,3919,6,203,0,'200.63.228.95',1155845309,1,0,1,1,1,1,'','','Disculpa Antonio \nComo consigo la clase toleauto\n\n\n\nSaludos\n\nOscar','',0,'AQ==','3ewvg7er',1,0,'',203,0,0),(17315,3913,3,49,0,'62.13.172.78',1155856086,1,0,1,1,1,1,'','','thanks I can try via ole ...','',0,'AQ==','2n9tyr9e',1,0,'',49,0,0),(17316,3909,6,474,0,'201.128.234.237',1155857186,1,0,1,1,1,1,'','','gracias maestro, con windows efectiamente ya lo he hecho, es transparente con la particion ntfs, pero mi duda surge porke en la documentacion de ADS menciona prescisamente esta posibilidad, habilitando el NSS de novell, graxias de todas formas.','',0,'AQ==','4ta4sx5w',1,0,'',474,0,0),(17317,3919,6,2,0,'87.218.146.35',1155857226,1,0,1,1,1,1,'','','Oscar,\n\nEstá incluida en xharbour.','',0,'AQ==','1kn244mu',1,0,'',2,0,0),(17318,3931,6,474,0,'201.128.234.237',1155857897,1,0,1,1,1,1,'','diccionario ADS y Areas','Haciendo pruebas con el Diccionario de datos me tope con ke no me respeta las areas que asigno, solo me permite utilizar numeros, osea\n\nsele AA \nuse base_1\n\nSele BB \nuse base_2\n\nSele AA\ngo top\nme marca que el alias no existe, si lo hago asi:\n\nAA-&gt;(dbgotop())\ntampoco\n\npero si el area asigno un numero, si lo hace, osea:\n\nsele 10\nuse base_1\n\nSele 20 \nuse base_2\n\nSele 10\ngo top\n\no de la otra forma:\n\n10-&gt;(dbgotop())\n\nfunciona, resulta que asi tengo bqastantes lineas de codigo (no lo hice yo, aclaro) pero seria tocar muchisimas lineas, existira una forma para que me reconozca las areas???\n\nahhh por si decian que con alias, pues igual, asigno un alias en el use y no lo hace, osea no registra el alias, aun lo haga con el \ndbuse(,,base,alias,.t.)\n\nahhh y silo hago de la otra manera, el area se va encimando, osea, al marcarme el error solo marca la ultima tabla como area activa en el error.log\n\nque estoy haciendo mal?? o debo recodificar lo mencionado???\n\n\ngracias por su atencion y salu2\n\n\npor cierto, algun camarada de otro pais no se interesa por un tipo que es honesto, honrado, formal, no es demagogo, muuuuy buen lider, carismatico, para presidente de su pais?? aqui nos sobra uno y va con gabinete y gallito incluido. ademas fomenta el turismo haciendo el zocalo y reforma un excelente area de veraneo con casas de campaña y lonas, actividades artisticas, culturales, y nadade disturbios a las vialidades??','',0,'AQ==','1pknm8ma',1,0,'',474,0,0),(17319,3904,3,707,0,'222.124.20.50',1155861728,1,0,1,1,1,0,'','','Thank.\nI will try it.\n\nAreang','',0,'AQ==','c1c2o00t',1,0,'',707,0,0),(17320,449,3,707,0,'222.124.20.50',1155862056,1,0,1,1,1,0,'','','To : Ramesh\n\nYou sent me barlib, to my email.\n\nIs that you mean the barlib on this forum ?\n\nthank\n\nAreang','',0,'AQ==','3lo8fgxd',1,0,'',707,0,0),(17321,3932,6,53,0,'201.102.183.64',1155862338,1,0,1,1,1,1,'','FWH y FWV(ista)','Antonio:\n\nQue tan avanzado esta FWV (vista) ?, la pregunta va por esto, estamos interesados en pasar de FW a FWH pero tenemos duda de si es mejor esperar un poco más (no sabemos cuanto MS libere WV) y mejor adquirir FWV, o con la compra de FWH tendríamos actualización a FWV ?\n\nQue nos puedes sugerir ?\n\nSaludos, Armando','',0,'AQ==','12kvc2pd',1,0,'',53,0,0),(17322,3931,6,661,0,'201.123.185.13',1155862811,1,0,1,1,1,0,'','','yo uso esto sin problemas:\n\n\n   USE tabla1 INDEX indice1 NEW ALIAS AL1 SHARED            \n   USE tabla2 INDEX indice2 NEW ALIAS AL2 SHARED \n   USE tabla3 INDEX indice3 NEW ALIAS AL3 SHARED \n\n\nOJO con el NEW. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nsuerte','',0,'AQ==','2gtllasz',1,0,'',661,0,0),(17323,3931,6,138,0,'201.128.138.235',1155864384,1,0,1,1,1,1,'','','yo he usado toda la vida alias como cadenas de caracteres y funcionan en todas las versiones de ads y xharbour','',0,'AQ==','2onfd0a2',1,0,'',138,0,0),(17324,449,3,190,0,'202.65.134.45',1155864822,1,0,1,1,1,0,'','','Hi Areang\n\n[quote:h2vg6245]Is that you mean the barlib on this forum ? [/quote:h2vg6245]\n\nSorry!. I don\'t remember exactly.\n\n- Ramesh Babu P','',0,'gA==','h2vg6245',1,0,'',190,0,0),(17325,3932,6,138,0,'201.128.138.235',1155865124,1,0,1,1,1,1,'','','pues hasta donde tengo yo entendido ya existe el fivewin de 64 bits que funciona con Harbour64 (no xhb), que ha sido probado en equipos con procesadores de 64 bit y con el Windos XP 64, por lo que creo que no habra ningun problema con los SO de 64 bits','',0,'gA==','2qv3uv96',1,0,'',138,0,0),(17326,3904,3,707,0,'222.124.20.50',1155867783,1,0,1,1,1,0,'','','Antonio ! Can you help me about this :\n\nI have CoolControls.ocx, viewed by oleview on :\n\ndispinterface _jcFrames {\n    properties:\n    methods:\n\nI can see the methods like this :\n\n[id(0x6803000f), propput]\nvoid Caption([in, out] BSTR* rhs);\n\nPlease give me sample about this with complete classes.\nto call Caption properties\n\nThank\nbest Regard\nAreang','',0,'','g865ikyv',1,0,'',707,0,0),(17328,3904,3,2,0,'87.218.146.35',1155881088,1,0,1,1,1,1,'','','Areang,\n\nTry these:\n[code:3txow3ps]\nlocal cCaption &#58;= &quot;&quot;\n&#46;&#46;&#46;\noActiveX&#58;Do&#40; &quot;Caption&quot;, cCaption &#41;\nMsgInfo&#40; cCaption &#41;\n&#46;&#46;&#46;\nMsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;Caption&quot; &#41; &#41;\n&#46;&#46;&#46;\noActiveX&#58;Do&#40; &quot;Caption&quot;, @cCaption &#41;\nMsgInfo&#40; cCaption &#41;\n[/code:3txow3ps]','',0,'AIA=','3txow3ps',1,0,'',2,0,0),(17329,449,3,2,0,'87.218.146.35',1155881292,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3929\">http://fivetechsoft.com/forums/viewtopic.php?t=3929</a><!-- m -->','',0,'AIA=','3qjjfj6s',1,0,'',2,0,0),(17330,3932,6,2,0,'87.218.146.35',1155881494,1,0,1,1,1,1,'','','Armando,\n\nFWH es totalmente compatible con Vista, es decir, no va a haber un FWV, sino que sigue siendo el mismo FWH de ahora.\n\nAsí que podeis empezar a usar el FWH cuando querais que vuestras aplicaciones funcionan en Vista sin problemas. \n\nLa beta 2 de Vista se puede descargar libremente, es de 32 bits, y podeis probar FWH en ella. Vereis que todo funciona correctamente.','',0,'AIA=','1jwt6vht',1,0,'',2,0,0),(17331,3904,3,707,0,'222.124.20.50',1155881667,1,0,1,1,1,0,'','','Antonio \n\nI Created the Class, still can\'t put the caption on the frames\nand please also  ERROR  HANDLER ERROR().\n\nPlease Help me !\n\nHere is the sample\n\n\n#include \"Fivewin.ch\"\n\nFUNCTION Main()\n  \n   LOCAL oWnd, oFrames\n\n   DEFINE Window oWnd\n\n   oWnd:setText( \"Use JcFrames from CoolControls.ocx\" )\n\n   oFrames := Framesx():New( oWnd )\n\n   /*\n    To : Antonio\n\n    This is Work fine, I want to put caption on this frames\n\n    How to create class and use Caption properties\n    Here are methods on CoolControls.jcFrame, I got from oleview :\n\n\n[\n  uuid(4C252B42-CA3D-477E-8A0E-CD2E4AB70B12),\n  version(1.0),\n  hidden,\n  dual,\n  nonextensible\n]\ndispinterface _jcFrames {\n    properties:\n    methods:\n        [id(0x68030015), propput]\n        void FrameColor([in, out] OLE_COLOR* rhs);\n        [id(0x68030015), propget]\n        OLE_COLOR FrameColor();\n        [id(0x68030014), propput, helpstring(\"Returns/Sets the Fill color for TextBox and Windows style\")]\n        void FillColor([in, out] OLE_COLOR* rhs);\n        [id(0x68030014), propget, helpstring(\"Returns/Sets the Fill color for TextBox and Windows style\")]\n        OLE_COLOR FillColor();\n        [id(0x68030013), propput]\n        void RoundedCornerTxtBox([in, out] VARIANT_BOOL* rhs);\n        [id(0x68030013), propget]\n        VARIANT_BOOL RoundedCornerTxtBox();\n        [id(0x68030012), propput]\n        void Enabled([in, out] VARIANT_BOOL* rhs);\n        [id(0x68030012), propget]\n        VARIANT_BOOL Enabled();\n        [id(0x68030011), propput]\n        void TxtBoxShadow([in, out] jcShadowConst* rhs);\n        [id(0x68030011), propget]\n        jcShadowConst TxtBoxShadow();\n        [id(0x68030010), propput]\n        void RoundedCorner([in, out] VARIANT_BOOL* rhs);\n        [id(0x68030010), propget]\n        VARIANT_BOOL RoundedCorner();\n        [id(0x6803000f), propput]\n        void Caption([in, out] BSTR* rhs);\n        [id(0x6803000f), propget]\n        BSTR Caption();\n        [id(0x6803000e), propput]\n        void Alignment([in, out] AlignmentConstants* rhs);\n        [id(0x6803000e), propget]\n        AlignmentConstants Alignment();\n        [id(0x6803000d), propput]\n        void Style([in, out] jcStyleConst* rhs);\n        [id(0x6803000d), propget]\n        jcStyleConst Style();\n        [id(0x6803000c), propput]\n        void TextBoxHeight([in, out] long* rhs);\n        [id(0x6803000c), propget]\n        long TextBoxHeight();\n        [id(0x6803000b), propput]\n        void TextColor([in, out] OLE_COLOR* rhs);\n        [id(0x6803000b), propget]\n        OLE_COLOR TextColor();\n        [id(0x6803000a), propput]\n        void TextBoxColor([in, out] OLE_COLOR* rhs);\n        [id(0x6803000a), propget]\n        OLE_COLOR TextBoxColor();\n        [id(0x68030009), propput]\n        void BackColor([in, out] OLE_COLOR* rhs);\n        [id(0x68030009), propget]\n        OLE_COLOR BackColor();\n        [id(0x68030008), propputref]\n        void Font([in, out] Font** rhs);\n        [id(0x68030008), propput]\n        void Font([in, out] Font** rhs);\n        [id(0x68030008), propget]\n        Font* Font();\n        [id(0x68030007), propget]\n        Picture* Picture();\n        [id(0x68030007), propputref]\n        void Picture([in] Picture* rhs);\n        [id(0x68030006), propget]\n        short IconSize();\n        [id(0x68030006), propput]\n        void IconSize([in] short rhs);\n        [id(0x68030005), propput]\n        void IconAlignment([in, out] IconAlignConst* rhs);\n        [id(0x68030005), propget]\n        IconAlignConst IconAlignment();\n        [id(0x68030004), propget]\n        jcThemeConst ThemeColor();\n        [id(0x68030004), propput]\n        void ThemeColor([in] jcThemeConst rhs);\n        [id(0x68030003), propget, helpstring(\"Returns/Sets the Start color for gradient\")]\n        OLE_COLOR ColorFrom();\n        [id(0x68030003), propput, helpstring(\"Returns/Sets the Start color for gradient\")]\n        void ColorFrom([in, out] OLE_COLOR* rhs);\n        [id(0x68030002), propget, helpstring(\"Returns/Sets the End color for gradient\")]\n        OLE_COLOR ColorTo();\n        [id(0x68030002), propput, helpstring(\"Returns/Sets the End color for gradient\")]\n        void ColorTo([in, out] OLE_COLOR* rhs);\n        [id(0x68030001), propput]\n        void HeaderStyle([in, out] jcHeaderConst* rhs);\n        [id(0x68030001), propget]\n        jcHeaderConst HeaderStyle();\n        [id(0x68030000), propput]\n        void GradientHeaderStyle([in, out] jcGradConst* rhs);\n        [id(0x68030000), propget]\n        jcGradConst GradientHeaderStyle();\n};\n\n\n\n\n   */\n\n                 \n   oWnd:oClient := oFrames:oControl\n\n   Activate Window oWnd\n\nReturn NIL\n\n\nCLASS FRAMESX  \n   DATA oControl\n   DATA oButton\n   CLASSDATA lOk Init .F.\n   ERROR  HANDLER ERROR()\n   METHOD New()\n   METHOD Activate()\n   METHOD Install()\n   METHOD CheckOCX()\nENDCLASS\n\n\nMETHOD New( oWnd,nId ) CLASS FRAMESX\n\n   ::CheckOCX()\n\n   IF !::lOk\n      MsgInfo( \"Error to Install OCX Control\" )\n      RETURN SELF\n   ENDIF\n\n\n   IF nId != NIL\n      ::oControl := TActiveX():Redefine( nId, oWnd, \"COOLCONTROLS.jcFrames\" )\n   ELSE\n     ::oControl := TActiveX():New( oWnd, \"COOLCONTROLS.jcFrames\" )\n   ENDIF\n\n   IF !Empty( oWnd:hWnd )\n      ::Activate()\n   ENDIF\n\n   RETURN SELF\n\n\nMETHOD Activate()\n   ::oButton := TOleAuto():New( ActXPdisp( ::oControl:hActiveX ) )\nRETURN NIL\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD CheckOCX( lAutoInstall )\n   DEFAULT lAutoInstall := .F.\n   IF !::lOk\n      IF IsActiveX( \"CoolControls.jcFrames\" )\n         ::lOk := .T.\n      ELSE\n         IF lAutoInstall .OR. MsgAlert( \"Install OCX COntrol Now ?\", { \"Yes\", \"No\" } ) == 1\n            MsgRun( \"Installing OCX Control\", NIL, { || ::Install() } )\n         ENDIF\n      ENDIF\n  ENDIF\nRETURN ::lOk\n\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Install()\n   LOCAL cOriginal, cDestination\n   cOriginal  := \"CoolControls.ocx\"\n   cDestination := GetSysDir() + \"\\CoolControls.ocx\"\n\n   IF !File( cOriginal )\n      MsgAlert(cOriginal+\" file not found\")\n      RETURN NIL\n   ENDIF\n\n   if !File((cDestination))\n      Copy File &amp;cOriginal TO &amp;cDestination\n   endif\n\n   if File((cDestination))\n      WinExec( \"REGSVR32 \" + cDestino + \" /s\" )\n   endif\n\n   ::lOk := IsActiveX( \"CoolControls.jcFrames\" )\n   IF !::lOk\n      MsgInfo( \"Error to Register \"+cOriginal+\" File\" )\n   ENDIF\n\nRETURN NIL\n\n\nMETHOD ERROR( uParam1 )\n   LOCAL cMsg, nParam, uRet\n   nParam := PCount()\n   cMsg   := __GetMessage()\n   IF SubStr( cMsg, 1, 1 ) == \"_\"\n      cMsg := SubStr( cMsg, 2 )\n   ENDIF\n\n   /*\n   How to handle error code start from here\n   */\n\n   DO CASE\n      CASE nParam == 0\n           uRet := \"I don\'t know\"\n      CASE nParam == 1\n           uRet := \"What is this\"\n   ENDCASE\nRETURN uRet','',0,'','11g5vrrs',1,0,'',707,0,0),(17332,449,3,707,0,'222.124.20.50',1155882042,1,0,1,1,1,0,'','','Thank Antonio\n\nThis lib work fine.\n\n\nAreang','',0,'','3tg5vg7r',1,0,'',707,0,0),(17333,3904,3,2,0,'87.218.146.35',1155883202,1,0,1,1,1,1,'','','Areang,\n\nTo set the caption try this:\n\noActiveX&#058;SetProp( \"Caption\", \"Hello world\" )','',0,'','x4tp73a0',1,0,'',2,0,0),(17334,3904,3,2,0,'87.218.146.35',1155883508,1,0,1,1,1,1,'','','[code:2kyqc29p]\nMETHOD ERROR&#40; uParam1 &#41; CLASS FRAMESX \n\n   local cMsg &#58;= __GetMessage&#40;&#41; \n\n   if SubStr&#40; cMsg, 1, 1 &#41; == &quot;_&quot;\n      return &#58;&#58;SetProp&#40; SubStr&#40; cMsg, 2 &#41;, uParam1 &#41;\n   else\n      return &#58;&#58;GetProp&#40; cMsg &#41; \n   endif\n\nreturn nil\n[/code:2kyqc29p]','',0,'AIA=','2kyqc29p',1,0,'',2,0,0),(17335,3904,3,707,0,'222.124.20.50',1155885279,1,0,1,1,1,0,'','','Thank Antonio, It\'s work now.\n\nAreang\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','qcarluo9',1,0,'',707,0,0),(17336,3904,3,707,0,'222.124.20.50',1155886823,1,0,1,1,1,0,'','','Hi Antonio !\n\nThis is the first class was create by me, and so happy.\n\nBut can\'t  put the others control on this frames to work with my windows. \n\nHow to work together between xHB control and myocx control.\n\nwhen uncomment this \"oWnd:oClient := oFrames:oControl\"\nthe others control can work together, Is that true ?\n\nIn VB, I can see the properties position :\nHeight, Left, Top and Width but I can\'t see on oleview of them.\n\nCan you help me again about this ?\n\nThank\nBest Regard\n\nAreang','',0,'AIA=','2fq4thok',1,0,'',707,0,0),(17337,3913,3,330,0,'217.37.54.49',1155887854,1,0,1,1,1,0,'','','Randal\n\nYes please can I have the sample as well\n\nPeter','',0,'AIA=','2rze3fbb',1,0,'',330,0,0),(17338,3920,7,720,0,'80.36.244.134',1155889826,1,0,1,1,1,0,'','','Gracias Carles...\n\nEfectivamente necesitaba poner el Set Deleted on para que no me mostrara los registros borrados.. (que despiste!) <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos.\n\nElías Torres','',0,'AIA=','1jtwdyad',1,0,'',720,0,0),(17339,3904,3,2,0,'87.218.146.35',1155891155,1,0,1,1,1,1,'','','Areang,\n\n&gt;\nwhen uncomment this \"oWnd:oClient := oFrames:oControl\" \nthe others control can work together, Is that true ? \n&gt;\n\nYes, because oWnd:oClient fills the entire surface of the window with the control, so if you want to use more controls on it, you can\'t assign it to oWnd:oClient.\n\n&gt;\nIn VB, I can see the properties position : \nHeight, Left, Top and Width but I can\'t see on oleview of them. \n&gt;\n\nClass TActiveX inherits from Class TControl, so you can do:\n\noActiveX&#058;nTop = ...\noActiveX&#058;nLeft = ...\noActiveX&#058;nWidth = ...\noActiveX&#058;nHeight = ...','',0,'AIA=','27rcxa7f',1,0,'',2,0,0),(17340,3913,3,2,0,'87.218.146.35',1155891386,1,0,1,1,1,1,'','','Please upload it to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and copy the download url here so others can have it too, thanks.','',0,'AIA=','3f0vwh86',1,0,'',2,0,0),(17341,3904,3,707,0,'222.124.20.50',1155894618,1,0,1,1,1,0,'','','Antonio !\n\nOn activex.prg, I can see the class :\n\nCLASS TActiveX FROM TControl\nthere is :\n METHOD ReSize( nFlags, nWidth, nHeight ) INLINE ;\n             ActXSetLocation( ::hActiveX, 0, 0, nWidth, nHeight )\n\nCan I use it for position my frames ?\n\nOr I have to add this :\n\nClass TActiveX inherits from Class TControl, so you can do: \n\noActiveX&#058;nTop = ... \noActiveX&#058;nLeft = ... \noActiveX&#058;nWidth = ... \noActiveX&#058;nHeight = ...\n\nBut where to write of this code below :\n( Please you write here  or on activex.prg )\n\n\n\nThis is my code class, next is activex class\n\n#include \"Fivewin.ch\"\n\nCLASS FRAMESX  \n   DATA oControl\n   DATA oButton\n   CLASSDATA lOk Init .F.\n   ERROR  HANDLER ERROR()\n   METHOD New()\n   METHOD Activate()\n   METHOD Install()\n   METHOD CheckOCX()\nENDCLASS\n\n\nMETHOD New( oWnd,nId ) CLASS FRAMESX\n   local cCaption := \"\"\n\n   ::CheckOCX()\n\n   IF !::lOk\n      MsgInfo( \"Error to Install OCX Control\" )\n      RETURN SELF\n   ENDIF\n\n\n   IF nId != NIL\n      ::oControl := TActiveX():Redefine( nId, oWnd, \"COOLCONTROLS.jcFrames\" )\n   ELSE\n      ::oControl := TActiveX():New( oWnd, \"COOLCONTROLS.jcFrames\" )\n   ENDIF\n\n   ::oControl:SetProp( \"Caption\", \"Hello world\" )\n\n   IF !Empty( oWnd:hWnd )\n      ::Activate()\n   ENDIF\n\n   RETURN SELF\n\n\nMETHOD Activate()\n   ::oButton := TOleAuto():New( ActXPdisp( ::oControl:hActiveX ) )\nRETURN NIL\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD CheckOCX( lAutoInstall )\n   DEFAULT lAutoInstall := .F.\n   IF !::lOk\n      IF IsActiveX( \"CoolControls.jcFrames\" )\n         ::lOk := .T.\n      ELSE\n         IF lAutoInstall .OR. MsgAlert( \"Install OCX COntrol Now ?\", { \"Yes\", \"No\" } ) == 1\n            MsgRun( \"Installing OCX Control\", NIL, { || ::Install() } )\n         ENDIF\n      ENDIF\n  ENDIF\nRETURN ::lOk\n\n\nMETHOD Install()\n   LOCAL cOriginal, cDestination\n   cOriginal  := \"CoolControls.ocx\"\n   cDestination := GetSysDir() + \"\\CoolControls.ocx\"\n\n   IF !File( cOriginal )\n      MsgAlert(cOriginal+\" file not found\")\n      RETURN NIL\n   ENDIF\n\n   if !File((cDestination))\n      Copy File &amp;cOriginal TO &amp;cDestination\n   endif\n\n   if File((cDestination))\n      WinExec( \"REGSVR32 \" + cDestination + \" /s\" )\n   endif\n\n   ::lOk := IsActiveX( \"CoolControls.jcFrames\" )\n   IF !::lOk\n      MsgInfo( \"Error to Register \"+cOriginal+\" File\" )\n   ENDIF\n\nRETURN NIL\n\n\n\nMETHOD ERROR( uParam1 ) CLASS FRAMESX \n\n   local cMsg := __GetMessage() \n\n   if SubStr( cMsg, 1, 1 ) == \"_\" \n      return ::SetProp( SubStr( cMsg, 2 ), uParam1 ) \n   else \n      return ::GetProp( cMsg ) \n   endif \n\nreturn nil\n\n\nThank\nBest Regard\nAreang','',0,'AIA=','2e8jzgiz',1,0,'',707,0,0),(17342,3904,3,2,0,'87.218.146.35',1155895610,1,0,1,1,1,1,'','','Areang,\n[code:3bf8r0ux]\nMETHOD New&#40; oWnd, nId, nTop, nLeft, nWidth, nHeight &#41; CLASS FRAMESX \n&#46;&#46;&#46;\n   IF nId != NIL \n       &#58;&#58;oControl &#58;= TActiveX&#40;&#41;&#58;Redefine&#40; nId, oWnd, &quot;COOLCONTROLS&#46;jcFrames&quot; &#41; \n   ELSE \n      &#58;&#58;oControl &#58;= TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;COOLCONTROLS&#46;jcFrames&quot; &#41; \n      &#58;&#58;oControl&#58;nTop = nTop\n      &#58;&#58;oControl&#58;nLeft = nLeft\n      &#58;&#58;oControl&#58;nWidth = nWidth\n      &#58;&#58;oControl&#58;nHeight = nHeight\n   ENDIF \n&#46;&#46;&#46;\n[/code:3bf8r0ux]','',0,'AIA=','3bf8r0ux',1,0,'',2,0,0),(17343,3904,3,707,0,'222.124.20.50',1155898315,1,0,1,1,1,0,'','','Antonio !\n\nFUNCTION Main()\n  \n   LOCAL oWnd, oFrames\n\n   DEFINE Window oWnd\n\n   oWnd:setText( \"Use JcFrames from CoolControls.ocx\" )\n\n   oFrames := Framesx():New( oWnd,,10,20,200,200 )\n--&gt; It\'s work fine\n\n   @100,100 BUTTON \"Save\" size 60,20 of oWnd pixel action MsgAlert(\"Save\")\n--&gt; When I click the button, no action because the button draw on frames   \n--&gt; What is your suggest ?\n--&gt; Should I add the my frames on class control ?\n    \n   Activate Window oWnd\n\nReturn NIL\n\nThank\nBest Regard\nAreang','',0,'AIA=','3s3pd8m5',1,0,'',707,0,0),(17344,3933,3,67,0,'62.235.24.91',1155904910,1,0,1,1,1,0,'','Changing font from oSay','Hello ,\n\nI try to change the font from a existing osay , but it seems not easy\n\n1) obj:oFont := oFont (changed) ; obj:refresh() doesn\'t work\n\n2) 	Obj:end()\n	obj := TSay():New(0,10,{||txt},oDlg,,ofont(new)... )\n                // from ppo-file\n	obj:Activate()\n\nSeems to work , at least the first time , not when the button is clicked again (and the first font must be restored)\n\nIs there a better solution ?\n\n[code:mup2hmxq]\n# include &quot;fivewin&#46;ch&quot;\n//# define TEST1\nFUNC MAIN\nLOCAL oFont&#91;2&#93; , oSay , oBut&#91;2&#93;\nLOCAL tel &#58;= 1\n\nDEFINE FONT oFont&#91;1&#93; NAME &quot;MS Sans Serif&quot; SIZE 0, -20\nDEFINE FONT oFont&#91;2&#93; NAME &quot;MS Sans Serif&quot; SIZE 0, -40\n\n		DEFINE DIALOG oDlg ;\n		FROM 0,0 TO 200,400 PIXEL\n		@  0,10 SAY oSay VAR &quot;TEST FONT 1&quot; OF oDlg PIXEL FONT ofont&#91;1&#93;\n		@ 40,20 BUTTON oBut&#91;1&#93; PROMPT &quot;Change font oSay&quot; OF oDlg ACTION &#40;ChangFont&#40;oSay , ofont , @tel&#41;&#41; PIXEL SIZE 80,20 FONT ofont&#91;1&#93;\n		@ 65,90 BUTTON oBut&#91;2&#93; PROMPT &quot;CANCEL&quot; OF oDlg ACTION &#40;oDlg&#58;end&#40;&#41;&#41; PIXEL SIZE 80 , 30 FONT oFont&#91;2&#93;\n		ACTIVATE DIALOG oDlg CENTER\n\nRETURN lOk\n\n	PROC ChangFont&#40;Obj,aofont,tel&#41;\n	*******************************\n	LOCAL txt &#58;= &quot;Changed &quot; + LTRIM&#40;STR&#40;tel&#41;&#41;\n	LOCAL nWidth &#58;= Obj&#58;nWidth , nHeight &#58;= Obj&#58;nHeight\n	LOCAL n , f \n	# ifdef TEST1\n	 Obj&#58;oFont &#58;= aofont&#91;2&#93;\n	 Obj&#58;Varput&#40;Txt&#41;\n	 Obj&#58;refresh&#40;&#41;       // Font is not changed\n	 RETURN\n	# else\n	IF tel%2 == 1\n		n &#58;= 2\n		f &#58;= 2\n	ELSE\n		n &#58;= 1\n		f &#58;= 1/2\n	ENDIF\n	Obj&#58;end&#40;&#41;\n	obj &#58;= TSay&#40;&#41;&#58;New&#40;0,10,&#123;||txt&#125;,oDlg,,aofont&#91;n&#93;,&#46;F&#46;,&#46;F&#46;,&#46;F&#46;,&#46;T&#46;,,,nWidth*f,nHeight*f,&#46;F&#46;,&#46;F&#46;,&#46;F&#46;,&#46;F&#46;,&#46;F&#46; &#41;\n	obj&#58;Activate&#40;&#41;\n	obj&#58;refresh&#40;&#41;\n	tel++\n	RETURN\n	# endif\n[/code:mup2hmxq]','',0,'AIA=','mup2hmxq',1,0,'',67,0,0),(17345,3913,3,213,0,'24.175.56.72',1155907039,1,0,1,1,1,0,'','','Give me a little time to clean up the code and I\'ll post some samples.\n\nRegards,\nRandal Ferguson','',0,'AIA=','3s8fkv3o',1,0,'',213,0,0),(17346,3913,3,49,0,'62.13.172.78',1155907812,1,0,1,1,1,1,'','','thanks very thanks','',0,'AIA=','2e2zjjlt',1,0,'',49,0,0),(17347,3934,3,49,0,'62.13.172.78',1155908045,1,0,1,1,1,1,'','cm convert to','to convert cm to pixel FOR printer I use Cm2pix func ok \n\nBUT How I can convert cm to coordinates of a DLg or a window ?\n\n\nthanks','',0,'AIA=','3q56skkh',1,0,'',49,0,0),(17348,3915,3,69,0,'206.210.97.138',1155909535,1,0,1,1,1,0,'','','Thanks Enrico,\n\nThat\'s exactly what I needed.\n\nJeff','',0,'AIA=','329ilxar',1,0,'',69,0,0),(17349,3932,6,215,0,'201.154.224.77',1155911385,1,0,1,1,1,0,'','Más info','Armando,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh64.html\">http://www.fivetechsoft.com/spanish/fwh64.html</a><!-- m -->','',0,'AIA=','38iycjbe',1,0,'',215,0,0),(17350,3935,6,237,0,'200.68.70.89',1155912475,1,0,1,1,1,0,'','Conectar a unidad de red','En una pc tengo instalado un sistema y las demas acceden a él a travez de una unidad que fué previamente creada mediante el explorador de windows y no es mas que \"conectar a unidad de red\" un recurso compartido dentro de entorno de red.\n\nLa pregunta es... se puede conectar a unidad de red un recurso compartido ( disco rígido ) mediante fw? el problema que tengo es que hay clientes que tienen un cero en operacion de pc y se la pasan llamando por que no está la unidad...\n\nMuchas gracias\nAlejandro Cebolido.','',0,'AIA=','bv7wf11f',1,0,'',237,0,0),(17351,3932,6,2,0,'87.218.146.122',1155913711,1,0,1,1,1,1,'','','Aclarar que Vista NO es 64 bits, sino 32 bits. Posiblemente también publiquen una versión de 64 bits, pero la beta 2 de Vista -la más reciente- es de 32 bits.','',0,'AIA=','37hwinrw',1,0,'',2,0,0),(17352,3932,6,53,0,'201.135.190.233',1155917785,1,0,1,1,1,1,'','','Muchas gracias a todos \n\nAhora esta más claro por donde ir.\n\nSaludos, Armando','',0,'AIA=','rb7aq20n',1,0,'',53,0,0),(17353,3933,3,375,0,'84.122.110.151',1155918278,1,0,1,1,1,1,'','','Try this: oSay:SetFont( oNewFont )\nAfter changing font do: oSay:SetTex( oSay:cCaption )  to check the change. It would be OK.','',0,'AIA=','i691u2xv',1,0,'',375,0,0),(17354,3904,3,2,0,'87.218.146.122',1155921852,1,0,1,1,1,1,'','','Areang,\n\n&gt; @100,100 BUTTON \"Save\" size 60,20 of oWnd pixel action MsgAlert(\"Save\") \n\nThat control is a child control of oWnd so oWnd should get notified when it gets clicked and the ACTION clause should work.','',0,'AIA=','7mj7wd4x',1,0,'',2,0,0),(17355,3936,7,720,0,'80.36.244.134',1155922737,1,0,1,1,1,0,'','Interactuar con varias tablas..','Hola a todos.\n\nMe he encontrado con otro problema..... Debido a que la aplicación va creciendo se hace necesario el uso de varias tablas y aquí mi duda, ¿como hago para poder mantener las dos tablas abiertas durante el transcurso de la aplicación?.\n\nLa única tabla que tengo por ahora la abro de la siguiente manera:\n\n    USE ( CurDir() + \"\\Clientes\" ) VIA \"DBFCDX\" \n    Clientes-&gt;( OrdSetFocus( \"nomcli\" ) ) \n    Clientes-&gt;( DbGoTop() ) \n\nAhora me he creado otra de articulos pero si hago lo mismo solo se mantiene abierta la última que defino, por lo que si deseo realizar una búsqueda (o cualquier otra cosa) en la otra tabla me da error porque no la encuentra...\n\nAlguna idea... Se que en Fox el uso de los select basta para poder abrir cuantas tablas quieras sin problemas, lo he probado aqui pero las sentencias no son las mismas.... \n\nUn saludo y gracias  ( Buen fin de semana a todos)\n\nElías Torres.','',0,'AIA=','p4wb52o6',1,0,'',720,0,0),(17356,3919,6,203,0,'200.63.228.95',1155925910,1,0,1,1,1,1,'','','Antonio,\n\nYo adquiri unicamente Harbour que debo hacer para obtener xharbour\n\nGracias por tu interes\n\n\nSaludos\nOscar','',0,'AIA=','5pe3w4yx',1,0,'',203,0,0),(17357,3937,6,471,0,'201.240.78.84',1155928146,1,0,1,1,1,1,'','\\\\equpo\\\\impresora\\\\puerto no funciona en xp','Amigos\n\nesto no funciona en xp para imprimir en red\n\n\ntrabajo con la clase tdosprn y no puedo imprimir en red desde\nuna xp\n\nGracias por la ayuda','',0,'AIA=','ve6vrd0u',1,0,'',471,0,0),(17358,3938,6,471,0,'201.240.78.84',1155928410,1,0,1,1,1,1,'','\\\\equipo\\impresora\\puerto no funciona en xp','Amigos\n\nesto no funciona en xp para imprimir en red\n\n\ntrabajo con la clase tdosprn y no puedo imprimir en red desde\nuna xp\n\nGracias por la ayuda','',0,'AIA=','2dfrpmr6',1,0,'',471,0,0),(17359,3935,6,228,0,'201.244.113.174',1155928440,1,0,1,1,1,1,'','Haz lo siguiente','Amigo....\n\nPues no se si es lo que estas buscando pero cambia las rutas de tu programa para trabajar en red y ya.... yo lo hago de la siguiente manera:\n\n\\\\servidor\\c\\miprograma\\mydbf.dbf\n\nA mi me a funcionado de mil maravillas y la velocidad es excelente.\n\nAsi no es necesario realizar ninguna unidad de red.\n\nEspero te sirva','',0,'AIA=','2lyczm9u',1,0,'',228,0,0),(17360,3919,6,215,0,'201.154.224.77',1155928542,1,0,1,1,1,0,'','','Oscar,\n1) cuando comprastes tu fivewin para harbour, Antonio te dió una clave para descargar el software. Ahí mismo debistes de haber descargado tu harbour.exe y tu xharbour.exe\n\n2) Necesitarás instalar el xharbour.exe para poder compilar tu prg y usar TOLEAUTO. \n\nAhora, tu versión 2.6 tiene más de un año. Mucho ha cambiado. Lo mejor sería que te actualizarás al último build.\n\nEn cuanto al código de ejemplo anexado arriba. Ese código es para leer una base de access... NO PARA PASAR  la información de una dbf a access.\n\nDe dbf a MDB access.\n\nSe requiere xharbour y fivewin para harbour. Yo lo tengo trabajando en FWH 2.7 + xharbour (Es el xharbour que viene en la compra de fivewin)\n\n#define adOpenKeyset 1\n#define adLockOptimistic 3\n\nstatic function Guardar( )\n     local oConexionAdo := TOLEAUTO():New(\"adodb.connection\")\n     local oRs := TOLEAUTO():New(\"adodb.recordset\")\n\n\n   oConexionAdo:Open(\"Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=C:\\ACCESS\\DATOS.MDB;\")  // DATOS.MDB es la base de access\n\n   oRs:LockType := adLockOptimistic\n   oRs:CursorType := adOpenKeyset\n   oRs:ActiveConnection(oConexionAdo)\n   oRs:Source := \"Select * from CLIENTES\" // CLIENTES es la tabla contenida dentro de DATOS.MDB\n   oRs:Open()\n\n\n    CAPTURA-&gt;( dbgotop() )\n    while CAPTURA-&gt;( !EOF() )\n         oRs:AddNew()\n         oRs:Fields(\"NOMBRE DEL SOLICITANTE\"):Value := \"NOMBRE\"\n         oRs:Fields(\"COLONIA\"):Value := CAPTURA-&gt;COLONIA\n\n         oRs:Update()\n\n         CAPTURA-&gt;( dbskip() )\n\n    enddo\n\n    oRs:Close()\n\n    ?\"Terminado\"\n\nreturn .T.','',0,'AIA=','lz6c9519',1,0,'',215,0,0),(17361,3937,6,228,0,'201.244.113.174',1155928617,1,0,1,1,1,1,'','puerto virtual','Amigo segun lo que veo lo estas haciendo mal... hay que hacerlo asi con esto se crea un puerto virtual para impresion con esta clase.\n\n\nNET USE LPT1 \\\\equpo\\\\impresora\\\\puerto \n\nó\n\nNET USE LPT2 \\\\equpo\\\\impresora\\\\puerto \n\npara eliminarlo\n\nNET USE LPT1 /D\n\nEspero te sirva','',0,'AIA=','az7guc6t',1,0,'',228,0,0),(17362,3939,6,152,0,'200.113.116.69',1155928696,1,0,1,1,1,0,'','Con FWH 2.7, DbUnLock() se pega cuando ejecuto en red','Tambien pasa con DbCommit(). \nCuando aplicacion y basedatos estan locales no hay problemas.\n\nLo raro es que con la version Oct. 2002 de FWH no pasa esto.\n\nSi alguien me puede ayudar, le agradezco de antemano.\n\nSaludos\n\nGonzalo','',0,'AIA=','ytlelnwv',1,0,'',152,0,0),(17363,3937,6,77,0,'80.224.243.188',1155932877,1,0,1,1,1,0,'','','Aun más, \n\nSi quieres que windows lo guarde siempre y no tengas que hacer la captura cada vez que arrancas el ordenador sería así:\n\n\nNET USE LPT1 \\\\SERVIDOR\\PCNOMBRE /PERSISTENT:YES\n\nSaludos.\nManolo\n\n\nP.D. PAra ver las capturas indica:\n\nNET USE','',0,'AIA=','13pkf2jo',1,0,'',77,0,0),(17364,3939,6,2,0,'87.218.146.122',1155935155,1,0,1,1,1,1,'','','Gonzalo,\n\nQue build de FWH 2.7 estás usando ? De qué mes ?\n\nQue RDD estás usando ?','',0,'AIA=','1fuhracz',1,0,'',2,0,0),(17365,3936,7,2,0,'87.218.146.122',1155935396,1,0,1,1,1,1,'','','Elías,\n\nUSE ( CurDir() + \"\\Articulos\" ) VIA \"DBFCDX\" NEW\n\nabre la base de datos en una área de trabajo nueva (NEW).','',0,'AIA=','bexpok2g',1,0,'',2,0,0),(17366,3903,6,2,0,'87.218.146.122',1155935539,1,0,1,1,1,1,'','','Patricio,\n\nEsa imagen no es de 16x16.','',0,'AIA=','2xl9zkcs',1,0,'',2,0,0),(17367,3865,3,2,0,'87.218.146.122',1155935683,1,0,1,1,1,1,'','','Do you mean to modify the databases from Word ?\n\nYou can use Class TOleAuto to manage Word from your xHarbour application.','',0,'AIA=','1tyh1jy6',1,0,'',2,0,0),(17368,3810,6,2,0,'87.218.146.122',1155935855,1,0,1,1,1,1,'','','Arnulfo,\n\nNo será que estás escribiendo la fecha incorrectamente ? \n\nUsas SET DATE FRENCH ó algún otro ? Indica un ejemplo de cómo escribes la fecha.','',0,'AIA=','3g47exhr',1,0,'',2,0,0),(17369,3806,2,2,0,'87.218.146.122',1155935955,1,0,1,1,1,1,'','','Gerardo,\n\nInkey() no se usa en FiveWin.\n\nAbres una ventana desde esa opción del menú ? O una caja de diálogo ?','',0,'AIA=','3s8gmw5i',1,0,'',2,0,0),(17370,3806,2,235,0,'201.140.42.223',1155939248,1,0,1,1,1,0,'','','Antonio:\n\nEfectivamente, abro desde una opcion del menu un dialogo con cierta informacion dependiendo si el usuario presiono Alt+171, de lo contrario muestro otro tipo de informacion.\n\n\ngracias.','',0,'AIA=','3nzlusfr',1,0,'',235,0,0),(17371,3940,6,228,0,'200.119.106.139',1155940377,1,0,1,1,1,1,'','Get fecha ?','Amigos del foro tenga buena tarde\n\nQuiero hacer una validacion con un get tipo fecha, pero que si la captura es erronea salga un dialogo para escoger la fecha con el calendario (visual). Algun ejemplo o sugerencia?\n\nDe antemano gracias.','',0,'AIA=','2i7pyugr',1,0,'',228,0,0),(17372,3939,6,152,0,'200.113.116.69',1155942277,1,0,1,1,1,0,'','','Antonio :\n\nLo baje de fivetechsoft.com/software/fwh el 6 de Junio de 2006.\nUso CDX','',0,'AIA=','1ue8lwiu',1,0,'',152,0,0),(17373,3904,3,707,0,'222.124.20.50',1155946856,1,0,1,1,1,0,'','','Antonio.\n\noWnd:setText( \"Use JcFrames from CoolControls.ocx\" ) \n\noFrames := Framesx():New( oWnd,,10,20,200,200 )\n\n@100,100 BUTTON \"Save\" size 60,20 of oWnd pixel action MsgAlert(\"Save\")\n-&gt; This Button draw on area oFrames, when I clicked \"Save\" button still no action.\n\nBy the way !\nThis is my first class to learn more class with OCX, but to hard for me.\nI want to try with own function to draw the frames.\n\nThank Antonio for help.\n\nBest Regard\nAreang','',0,'AIA=','o3irkl2b',1,0,'',707,0,0),(17374,3806,2,2,0,'87.218.146.122',1155947084,1,0,1,1,1,1,'','','Gerardo,\n\nLe has asignado el acelerador Alt+171 ( ½ ) a una opción del menú ? \n\nComo lo pulsa el usuario ?','',0,'AIA=','w7nqaapj',1,0,'',2,0,0),(17375,3904,3,2,0,'87.218.146.122',1155947361,1,0,1,1,1,1,'','','Areang,\n\nYou should change Method HandleEvent() in Class TActiveX and check if WM_COMMAND value is received when the button is clicked.','',0,'AIA=','1imc7tg0',1,0,'',2,0,0),(17376,3904,3,707,0,'222.124.20.50',1155949079,1,0,1,1,1,0,'','','Antonio,\n\nIs this that you mean ?\n\nMETHOD OnEvent( nEvent, aParams, pParams ) CLASS TActiveX\n\n   local nAt := AScan( ::aEvents, { | aEvent | aEvent[ 2 ] == nEvent } )\n   local cEvent := If( nAt != 0, ::aEvents[ nAt ][ 1 ], \"\" )\n   \n   if ! Empty( ::bOnEvent )\n      Eval( ::bOnEvent, If( ! Empty( cEvent ), cEvent, nEvent ), aParams, pParams )\n   endif   \n\nreturn nil\n\nAntonio, \n\nCan you give me information about this :\n\n1. I have xHB from xHarbour.com patrick mask, Is your there too ?\n2. I used xBuildW for my compiler.\n3. Can I use the others compiler ?\n4. When I used BCC55 or MSVC to many errors.\n\nPlease help me !  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nMany Thanks again.\n\nBest Regard\nAreang','',0,'','2qk8vnlr',1,0,'',707,0,0),(17377,3939,6,2,0,'87.218.146.122',1155949818,1,0,1,1,1,1,'','','Gonzalo,\n\nPuedes descargar Harbour/xharbour de estos foros. Hay un build más reciente:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'','1ijb6o9j',1,0,'',2,0,0),(17378,3940,6,439,0,'190.0.132.84',1155951909,1,0,1,1,1,1,'','','Puedes usar o bien las funciones de calendario de FWH fwcalen o en la clase BtnGet32 hay una función fwcal que muestra un calendario al presionar un botón.\nOskar también ha trabajado con  un control que usa el calendario de windows.\nTodos estos calendarios los encontrarás en FWH y en el foro de utilidades bajo la clase BtnGet.\n\nAl menos esto es lo que se me ocurre a mí.','',0,'','3v3aypae',1,1155985949,'',439,1,0),(17380,3904,3,707,0,'222.124.20.50',1155957297,1,0,1,1,1,0,'','','Oskar,\n\nYes I Can see on TRMChartX class.\n\nThis is not handle event for the control of windows, just for drawing.\n\nIs\'nt it ? <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nThanks\nBest Regard\nAreang','',0,'','nhdiyhil',1,0,'',707,0,0),(17381,3904,3,2,0,'87.218.146.122',1155970686,1,0,1,1,1,1,'','','Areang,\n\n&gt; 1. I have xHB from xHarbour.com patrick mask, Is your there too ? \n\nFWH is fully compatible with Harbour, xHarbour and xHarbour.com\n\n&gt; 3. Can I use the others compiler ? \n\nYes,\n\n&gt; 4. When I used BCC55 or MSVC to many errors. \n\nWhat errors do you get ?','',0,'','5x8moggf',1,0,'',2,0,0),(17382,3865,3,258,0,'217.136.195.220',1155980672,1,0,1,1,1,0,'','','Antonio,\nyes,i want to be able to modify the database after having input data in the form word .\nI think it is also possible with pdf but how ??\n\nPhilippe','',0,'','38lu18g0',1,0,'',258,0,0),(17383,3838,3,67,0,'62.235.24.91',1155983177,1,0,1,1,1,0,'','Resizing with fonts','Silvio,\n\nNow you have a working sample from resizing also the fonts\n\nFonts are only resized when the vertical factor exceeds 10 , 20 , 30 .. % from 1 . This can be changed in the increment ( 10 or -10 ) from currentheight\n\nFrank\n\n[code:fx57nf48]\nFUNCTION MAIN&#40;&#41; \n***************\nLOCAL oWnd , oFont\nLOCAL cVar &#58;= PAD&#40;&quot;TEST ON RESIZE WITH FONT&quot;,35&#41;\n		\nDEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, -24\nDEFINE WINDOW oWnd \n\n@ 10, 10 GET cVar OF oWnd SIZE 400,24 PIXEL FONT oFont\n@ 60, 60 BUTTON &quot;&amp;Close&quot; SIZE 100,24 PIXEL FONT oFont; \n         ACTION oWnd&#58;End&#40;&#41; \n\nACTIVATE WINDOW oWnd; \n    ON RESIZE RESIZECONTROLS&#40;nSizeType,nWidth,nHeight,oWnd &#41;\n\noFont&#58;end&#40;&#41;\n		\nRETURN NIL \n************************************************************************************************************\nSTATIC FUNCTION RESIZECONTROLS&#40;nSizeType,nWidth,nHeight, oWnd &#41; \n***************************************************************\nSTATIC aCoordinates &#58;= &#123;&#125; , FV  \nSTATIC StartWidth , StartHeight \nSTATIC CurrentHeight \n\nLOCAL i , aHlp&#91;5&#93; ,  F &#58;= Hash&#40;&#41; \nLOCAL oCtl \nLOCAL NewFontH  , oFont , cFaceName , lNewFont &#58;= &#46;F&#46;\n		\nIF EMPTY&#40; aCoordinates &#41; \n  FOR EACH oCtl IN oWnd&#58;aControls \n    AADD&#40;aCoordinates , Array&#40;5&#41;&#41; \n    i &#58;= Hb_EnumIndex&#40;&#41;          \n    aCoordinates&#91;i,1&#93; &#58;= oCtl&#58;nTop \n    aCoordinates&#91;i,2&#93; &#58;= oCtl&#58;nLeft \n    aCoordinates&#91;i,3&#93; &#58;= oCtl&#58;nWidth&#40;&#41; \n    aCoordinates&#91;i,4&#93; &#58;= oCtl&#58;nHeight&#40;&#41; \n    aCoordinates&#91;i,5&#93; &#58;= oCtl&#58;oFont&#58;nHeight \n  NEXT \n  StartWidth  &#58;= oWnd&#58;nWidth&#40;&#41; \n  StartHeight &#58;= oWnd&#58;nHeight&#40;&#41;\n  FV &#58;= 1\n  lFont &#58;= &#46;F&#46; \n  CurrentHeight &#58;= 0\nENDIF \nF&#91;&quot;H&quot;&#93; &#58;= oWnd&#58;nWidth&#40;&#41;/StartWidth       // horizontal\nF&#91;&quot;V&quot;&#93; &#58;= oWnd&#58;nHeight&#40;&#41;/StartHeight     // vertical\nIF F&#91;&quot;V&quot;&#93; &lt;&gt; FV\n  IF ABS&#40;ROUND&#40;&#40; F&#91;&quot;V&quot;&#93; - 1 &#41;*100 ,2 &#41; - CurrentHeight&#41; &gt; 10\n    lNewFont &#58;= &#46;T&#46; \n    IF F&#91;&quot;V&quot;&#93; &gt; FV\n      CurrentHeight += 10\n    ELSEIF F&#91;&quot;V&quot;&#93; &lt; FV \n      CurrentHeight -= 10\n    END\n  ENDIF\nENDIF\nFOR EACH oCtl IN oWnd&#58;aControls \n  i &#58;= Hb_EnumIndex&#40;&#41; \n  aHlp&#91;1&#93; &#58;= aCoordinates&#91;i,1&#93;*F&#91;&quot;V&quot;&#93;              // nTop\n  aHlp&#91;2&#93; &#58;= aCoordinates&#91;i,2&#93;*F&#91;&quot;H&quot;&#93;              // nLeft\n  aHlp&#91;3&#93; &#58;= aCoordinates&#91;i,3&#93;*F&#91;&quot;H&quot;&#93;              // nWidth\n  aHlp&#91;4&#93; &#58;= aCoordinates&#91;i,4&#93;*F&#91;&quot;V&quot;&#93;              // nHeight\n  oCtl&#58;Move&#40; aHlp&#91;1&#93; , aHlp&#91;2&#93; , aHlp&#91;3&#93; , aHlp&#91;4&#93; , &#46;T&#46; &#41;\n  IF lNewFont \n    NewFontH &#58;= ROUND&#40;aCoordinates&#91;i,5&#93;*F&#91;&quot;V&quot;&#93;,0&#41;\n    oFont &#58;= oCtl&#58;oFont\n    cFaceName &#58;= oFont&#58;cFaceName\n    oFont&#58;end&#40;&#41;\n    DEFINE FONT oFont NAME cFaceName SIZE 0, -NewFontH\n    oCtl&#58;SetFont&#40;ofont&#41;\n    oCtl&#58;refresh&#40;&#41;\n  END\nNEXT \nFV &#58;= F&#91;&quot;V&quot;&#93;\nRETURN \n[/code:fx57nf48]','',0,'AIA=','fx57nf48',1,0,'',67,0,0),(17384,3933,3,67,0,'62.235.24.91',1155983496,1,0,1,1,1,0,'','','Manuramos,\n\nThank you very much , this i needed to complete to make windows resizing the controls , also with the font.\n\nYou may see the result in the thread from silvio (controls ...)\n\nFrank','',0,'AIA=','37jm3vj4',1,0,'',67,0,0),(17385,3940,6,9,0,'85.53.66.55',1155984296,1,0,1,1,1,1,'','Re: Get fecha ?','[quote=&quot;leandro&quot;:2alets2f]\nQuiero hacer una validacion con un get tipo fecha, pero que si la captura es erronea salga un dialogo para escoger la fecha con el calendario (visual).[/quote:2alets2f]\n\nLeandro, no entiendo que quieres decir con \"si la captura es errónea\".- ¿Fecha vacia?.-\n\nYo lo tengo de la siguiente manera:\n\nUna variable (get) normal con la fecha que el usuario puede modificar libremente.- Junto al GET, un pequeño BOTTOMBMP que si se pulsa sale el calendario para elegir una nueva fecha o &lt;Escape&gt;.-\n\nSeguramente voy a ir a Bogotá en Octubre. Me tienes que invitar a un tinto.','',0,'gA==','2alets2f',1,0,'',9,0,0),(17386,3865,3,2,0,'87.218.146.122',1155986142,1,0,1,1,1,1,'','','Philippe,\n\nHere you have a working sample:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0167295252/WORDMCN.PRG.html\">http://hyperupload.com/download/0167295 ... N.PRG.html</a><!-- m -->\n\nYou can search for certain words and use them in your database, from a PRG application.','',0,'gA==','2bbkoxh7',1,0,'',2,0,0),(17387,3838,3,49,0,'62.13.172.78',1155995627,1,0,1,1,1,1,'','','THANK \nI try it for 1 min 41 secs \nI open and close the window all run ok \nthen it made an error at RESIZECONTROLS(313)\n\nthis is log file \n\n[code:3rjkq7no]\nApplication\n===========\n   Path and name&#58; C&#58;\\work\\PRG\\cassa\\bar&#46;Exe &#40;32 bits&#41;\n   Size&#58;   882,688 bytes\n   Time from start&#58; 0 hours 1 mins 41 secs \n   Error occurred at&#58; 08/19/06, 15&#58;52&#58;54\n   Error description&#58; Error BASE/1132  Bound error&#58; array access\n   Args&#58;\n     &#91;   1&#93; = A   &#123; &#46;&#46;&#46; &#125;\n     &#91;   2&#93; = N   81\n\nStack Calls\n===========\n   Called from&#58;  =&gt; RESIZECONTROLS&#40;313&#41;\n   Called from&#58; bar&#46;prg =&gt; &#40;b&#41;CASSA&#40;265&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;RESIZE&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; bar&#46;prg =&gt; CASSA&#40;265&#41;\n[/code:3rjkq7no]','',0,'AIA=','3rjkq7no',1,0,'',49,0,0),(17388,3838,3,67,0,'62.235.24.91',1155997339,1,0,1,1,1,0,'','','Silvio\n\n1) When you run mine example , run it ok ?\n\n2) I suppose that you try it in your aplication , but i can\'t recognize the linenumber \n\nCalled from:  =&gt; RESIZECONTROLS(313) \n Which line in resizecontrol ?\n\nAlso the variables in use can tell something , espacialy from resizecontrols\n\nIs len(acoordinates) &lt; LEN(oWnd:acontrols) ?\n\nIF so you could :\n\n[code:3iaibtl5]\nFOR EACH oCtl IN oWnd&#58;aControls \n  i &#58;= Hb_EnumIndex&#40;&#41;\n  IF i &lt;= LEN&#40;aCoordinates&#41; \n    aHlp&#91;1&#93; &#58;= aCoordinates&#91;i,1&#93;*F&#91;&quot;V&quot;&#93;              // nTop\n    aHlp&#91;2&#93; &#58;= aCoordinates&#91;i,2&#93;*F&#91;&quot;H&quot;&#93;              // nLeft\n    aHlp&#91;3&#93; &#58;= aCoordinates&#91;i,3&#93;*F&#91;&quot;H&quot;&#93;              // nWidth\n    aHlp&#91;4&#93; &#58;= aCoordinates&#91;i,4&#93;*F&#91;&quot;V&quot;&#93;              // nHeight\n    &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n  endif\n[/code:3iaibtl5]','',0,'AIA=','3iaibtl5',1,0,'',67,0,0),(17389,3940,6,228,0,'200.58.192.83',1156002819,1,0,1,1,1,1,'','Asi lo tengo....','Amigo asi lo tengo.... y lo estoy haciendo con la clase de Oskar....\n\nColoque un get y al lado esta un boton.... Pero lo que quiero hacer es que por ejemplo si el usuario escribe...\n\n37/07/2006 entonces salga la ventanita o si lo dejan en blanco como tu dices..\n\nY por otro lado claro si amigo aqui te espero y de paso si quieres te llevo a conocer unas partes de este hermoso pais.. saludos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','11xq6vv4',1,0,'',228,0,0),(17390,3940,6,9,0,'85.53.66.55',1156005156,1,0,1,1,1,1,'','Re: Asi lo tengo....','En primer lugar, si la variable o el campo, es tipo fecha, nunca te va a permitir que pongas 37/07/2006.- Para ello, tendriamos que tener definida la variable como dFecha := DATE()  o  dFecha := CTOD(\"  /  /    \").\n\nPara que no admita campo vacio:\n... GET dFecha  VALID IF (EMPTY(dFecha), ( Alert (\"Fecha vacia\"), .f.) , ;\n.t.)\n\nIncluso, si te gusta mas:\n\n... GET dFecha  VALID IF (EMPTY(dFecha), dFecha := (fCalen), .t.) , ;\n.t.)\n\nSiendo en este caso fCalen la función donde está el calendario.','',0,'AIA=','pr48me9q',1,0,'',9,0,0),(17392,3123,17,9,0,'85.53.66.55',1156006397,1,0,1,1,1,1,'','','This class is from Carlos A. Sincuir Romero','',0,'AIA=','1penrlz7',1,0,'',9,0,0),(17393,3941,2,774,0,'200.72.191.129',1156011644,1,0,1,1,1,0,'','Ayuda Urgente sobre Migrar de Fw a FwH y explicación','estimados:: soy un programador desde mucho tiempo usuario de CLIPPER. pero hace muy poco migre mis programación a Fivewin, uso la 2.4, con clipper 5.3 y Blinker 7,, me anda bien, con algunas complicacíones normales ya que soy autodidacta en programacion todo lo se solamente lo he leido por ahi...\n\nmi problema puntual es el siguiente:: en realidad son dos consultas \n\n1.) programando en FW 16 Bits. tengo en un dialogo un Tsbrowse, con un  par de botones, el cual abre otro dialogo donde tengo uns Get, ( para los get uso DATABASE y las variables de los Get estan dirigidas a la DATABASE ::\n\nasi::\noDbf:Blank()\nREDEFINE GET oGet VAR oDbf:xxxx ID kkkk OF kkkk\n\nnose porque motivo al comenzar si muevo el segundo dialogo las variables de los get toman el valor de el puntero del Tsbrowse del primer dialogo..\nalguien me lo puede explicar porque no mantiene el :Blank()\n\n2:) he leido mucho este foro,, y encuentro fantastico que exista soporte de esta manera para nosotros los programadores,  los FELICITO ...\nahora la consulta,, con migro a FWH , porfa expliquenlo con peras y manzanas , porque ahi si estoy hecho unos lios con los 16 Bits , 32 Bits. Etc.....\n\n\nUN AGRADECIDO POR SIEMPRE','',0,'AIA=','11pnel8l',1,0,'',774,0,0),(17394,3942,6,97,0,'201.161.133.151',1156012910,1,0,1,1,1,1,'','DbCombo para ado y mysql','Bueno aqui les dejo compaño oporte al foro hice algunos cambios y al parecer funcionan bien espero les sea de ayuda.\nesta es la clase.\n*********************************************************************\n* File Name:	DBCombo.ch\n* Author:	Elliott Whitticar\n* Created:	04/23/96\n* Description:  Preprocessor directives for TDBCombo class.\n*********************************************************************\n#ifndef _DBCOMBO_CH\n#define _DBCOMBO_CH\n\n/*----------------------------------------------------------------------------//\n!short: DBCOMBO */\n#xcommand REDEFINE DBCOMBO [ &lt;oCbx&gt; VAR ] &lt;cVar&gt; ;\n             [ &lt;items: ITEMS, PROMPTS&gt; &lt;aItems&gt; ] ;\n             [ ID &lt;nId&gt; ] ;\n             [ &lt;dlg:OF,WINDOW,DIALOG&gt; &lt;oWnd&gt; ] ;\n             [ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ;\n             [ ON CHANGE &lt;uChange&gt; ] ;\n             [ VALID   &lt;uValid&gt; ] ;\n             [ &lt;color: COLOR,COLORS&gt; &lt;nClrText&gt; [,&lt;nClrBack&gt;] ] ;\n             [ &lt;update: UPDATE&gt; ] ;\n             [ MESSAGE &lt;cMsg&gt; ] ;\n             [ WHEN &lt;uWhen&gt; ] ;\n             [ BITMAPS &lt;acBitmaps&gt; ] ;\n             [ ON DRAWITEM &lt;uBmpSelect&gt; ] ;\n			 [ ALIAS &lt;cAlias&gt; ] ;\n			 [ ITEMFIELD &lt;cFldItem&gt; ] ;\n			 [ LISTFIELD &lt;cFldList&gt; ] ;\n             [ &lt;list: LIST, PROMPTS&gt; &lt;aList&gt; ] ;\n             [ RECORDSET &lt;oDbrs&gt; ] ;\n       =&gt; ;\n          [ &lt;oCbx&gt; := ] TDBCombo():ReDefine( &lt;nId&gt;, bSETGET(&lt;cVar&gt;),;\n             &lt;aItems&gt;, &lt;oWnd&gt;, &lt;nHelpId&gt;, &lt;{uValid}&gt;, [{|Self|&lt;uChange&gt;}],;\n             &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;cMsg&gt;, &lt;.update.&gt;, &lt;{uWhen}&gt;,;\n             &lt;acBitmaps&gt;, [{|nItem|&lt;uBmpSelect&gt;}], ;\n             &lt;cAlias&gt;, &lt;cFldItem&gt;, &lt;cFldList&gt;, &lt;aList&gt;, &lt;oDbrs&gt;  )\n\n#endif\n\nAqui el programa:\n\n* File Name:   DBCombo.prg\n* Author:      Elliott Whitticar, <!-- e --><a href=\"mailto:71221.1413@Compuserve.com\">71221.1413@Compuserve.com</a><!-- e -->\n* Created:     4/25/96\n* Description: Database-aware ComboBox class\n* Revision:    11/2/2003 Changed manifest constants to also be 32bit compatible.\n*              Initiate(): Changed to call TControl:initiate()\n*              New() &amp; Redefine() : Changed to return self (were incorrectly returning nil).\n*              Refill() - Now adds blank record to all lists. (Was incorrectly showing first\n*              item when variable was empty.)\n*              -James Bott, <!-- e --><a href=\"mailto:jbott@compuserve.com\">jbott@compuserve.com</a><!-- e -->\n//----------------------------------------------------------------------------//\n//\n// The TDBCombo class provides a combo-box which displays one field from\n// a table (such as DeptName) and returns another (such as DeptID). Table can\n// be indexed and/or filtered, just set them before calling DBCombo.\n//\n// It overrides the TComboBox class from FiveWin 1.9.1.\n//\n// If redefining a ComboBox, make sure the ComboBox does not sort aList,\n// or DBCombo will not return the matching element of aItems.\n//\n// As of 4/25/96, the DBCombo class has been tested displaying one column\n// from an open work area, and returning another.  I have not tried supplying\n// two arrays.  It could also use the following enhancements:\n//\n// 1) Display nothing if the bound Set/Get variable is NIL (or an illegal value).\n// 2) Add support for an index and/or filter for the table of displayed values.\n// 3) Add support for using the same field in the list box as is returned\n//    (workaround: specify the same field for cFldList and cFldItem).\n// 4) It hasn\'t been tested passing the aItems and aList array without\n//    specifying any database fields.\n// 5) Fix the ::Initiate() method to invoke the TControl:Initiate() method\n//    from the grandparent TControl class (I just cut/pasted code). [Done 10/2/03]\n//----------------------------------------------------------------------------//\n\n#include \"FiveWin.ch\"\n#include \"Constant.ch\"\n\n#ifndef __CLIPPER__\n   #define COMBO_BASE      320\n#else\n   #define COMBO_BASE  WM_USER\n#endif\n#define CB_ADDSTRING     ( COMBO_BASE + 3 )\n#define CB_DELETESTRING  ( COMBO_BASE +  4 )\n#define CB_GETCURSEL     ( COMBO_BASE +  7 )\n#define CB_INSERTSTRING  ( COMBO_BASE + 10 )\n#define CB_RESETCONTENT  ( COMBO_BASE + 11 )\n#define CB_FINDSTRING    ( COMBO_BASE + 12 )\n#define CB_SETCURSEL     ( COMBO_BASE + 14 )\n#define CB_SHOWDROPDOWN  ( COMBO_BASE + 15 )\n#define CB_ERR              -1\n\n#define COLOR_WINDOW       5\n#define COLOR_WINDOWTEXT   8\n\n#define MB_ICONEXCLAMATION  48   // 0x0030\n\n#ifdef __XPP__\n#define Super ::TComboBox\n#endif\n\nCLASS TDBCombo FROM TComboBox\n\n   DATA  cAlias      // Workarea alias for fields to display\n   DATA  cFldList    // Field to display in the ComboBox\n   DATA  cFldItem    // Field to return in the bound variable\n   DATA  aList       // Array of display items corresponding to aItems.\n                     // May be specified in the constructor or read from\n                     // cAlias-&gt;cFldList\n   DATA  oDbRs AS OBJECT\n\n   METHOD New( nRow, nCol, bSetGet, aItems, nWidth, nHeight, oWnd, nHelpId, ;\n              bChange, bValid, nClrText, nClrBack, lPixel, oFont, ;\n              cMsg, lUpdate, bWhen, lDesign, acBitmaps, bDrawItem, ;\n              cAlias, cFldItem, cFldList, aList, oDbRS ) CONSTRUCTOR\n\n   METHOD ReDefine( nId, bSetGet, aItems, oWnd, nHelpId, bValid, ;\n              bChange, nClrText, nClrBack, cMsg, lUpdate, ;\n              bWhen, acBitmaps, bDrawItem, ;\n              cAlias, cFldItem, cFldList, aList , oDbRS) CONSTRUCTOR\n\n   METHOD Add( cItem, nAt, cList )\n   METHOD Default()\n   METHOD Del( nAt )\n   METHOD Initiate( hDlg )\n   METHOD Insert( cItem, nAt, cList )\n   METHOD LostFocus()\n   METHOD Modify( cItem, nAt, cList )\n   METHOD Refill()                    // Refill aItems and aList from cFldItem and cFldList\n   METHOD SetItems( aItems, aList )\n\n   METHOD DrawItem( nIdCtl, nPStruct )\n\n   // VarGet from the parent class returns the selected element of ::aItems\n   // METHOD VarGet()\n\n   // ListGet returns the selected element of ::aList\n   METHOD ListGet()\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New( nRow, nCol, bSetGet, aItems, nWidth, nHeight, oWnd, nHelpId, ;\n            bChange, bValid, nClrFore, nClrBack, lPixel, oFont, ;\n            cMsg, lUpdate, bWhen, lDesign, acBitmaps, bDrawItem, ;\n            cAlias, cFldItem, cFldList, aList, oDbRs ) CLASS TDBCombo\n\n   DEFAULT cAlias := \"\", ;\n           cFldList := \"\", ;\n           cFldItem := \"\", ;\n           aList := {}\n\n   ::aList    := aList\n   ::cAlias   := cAlias\n   ::cFldList := cFldList\n   ::cFldItem := cFldItem\n   ::oDbRS    := oDbrs\n   ::refill()\n\n   Super:New( nRow, nCol, bSetGet, ::aItems, nWidth, nHeight, oWnd, nHelpId, ;\n      bChange, bValid, nClrFore, nClrBack, lPixel, oFont, ;\n      cMsg, lUpdate, bWhen, lDesign, acBitmaps, bDrawItem )\n\nreturn self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine( nId, bSetGet, aItems, oWnd, nHelpId, bValid, ;\n                 bChange, nClrFore, nClrBack, cMsg, lUpdate, ;\n                 bWhen, acBitmaps, bDrawItem, ;\n                 cAlias, cFldItem, cFldList, aList , oDbrs ) CLASS TDBCombo\n\n   DEFAULT cAlias := \"\", ;\n         cFldList := \"\", ;\n         cFldItem := \"\", ;\n         aList := {}\n\n   ::aList    := aList\n   ::cAlias   := cAlias\n   ::cFldList := cFldList\n   ::cFldItem := cFldItem\n   ::oDbRs    := oDbrs\n//   msginfo(::oDbRs:oRs:Fields(\"NomGpo\"):Value)\n   ::refill()\n   Super:ReDefine( nId, bSetGet, ::aItems, oWnd, nHelpId, bValid, ;\n               bChange, nClrFore, nClrBack, cMsg, lUpdate, ;\n               bWhen, acBitmaps, bDrawItem )\n\nreturn self\n\n//----------------------------------------------------------------------------//\n\nMETHOD Add( cItem, nAt, cList ) CLASS TDBCombo\n   // Note that compared to the parent class, we\'ve added an arg at the end.\n\n   DEFAULT nAt := 0\n   DEFAULT cList := cItem\n\n   if nAt == 0\n     AAdd( ::aItems, cItem )\n     AAdd( ::aList,  cList )\n   else\n     ASize( ::aItems, Len( ::aItems ) + 1 )\n     ASize( ::aList, Len( ::aList ) + 1 )\n     AIns( ::aItems, nAt )\n     AIns( ::aList, nAt )\n     ::aItems[ nAt ] = cItem\n     ::aList[ nAt ] = cList\n   endif\n\n   ::SendMsg( CB_ADDSTRING, nAt, cList )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Default() CLASS TDBCombo\n\n   local cStart := Eval( ::bSetGet )\n\n   if cStart == nil\n      Eval( ::bSetGet, If( Len( ::aItems ) &gt; 0, ::aItems[ 1 ], \"\" ) )\n      cStart = If( Len( ::aItems ) &gt; 0, ::aItems[ 1 ], \"\" )\n   endif\n\n   AEval( ::aList, { | cList, nAt | ::SendMsg( CB_ADDSTRING, nAt, cList ) } )\n\n   if ValType( cStart ) != \"N\"\n      ::nAt = AScan( ::aItems, { | cItem | Upper( AllTrim( cItem ) ) == ;\n                                           Upper( AllTrim( cStart ) ) } )\n   else\n      ::nAt = cStart\n   endif\n\n   ::nAt = If( ::nAt &gt; 0, ::nAt, 1 )\n   ::Select( ::nAt )\n\n   if ::oFont != nil\n      ::SetFont( ::oFont )\n   else\n      ::SetFont( ::oWnd:oFont )\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Del( nAt ) CLASS TDBCombo\n\n   DEFAULT nAt := 0\n\n   if nAt != 0\n      ADel( ::aItems, nAt )\n      ADel( ::aList, nAt )\n      ASize( ::aItems, Len( ::aItems ) - 1 )\n      ASize( ::aList, Len( ::aList ) - 1 )\n      ::SendMsg( CB_DELETESTRING, nAt - 1 )\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD DrawItem( nIdCtl, nPStruct ) CLASS TDBCombo\n\nreturn LbxDrawItem( nPStruct, ::aBitmaps, ::aList, ::nBmpWidth, ::bDrawItem )\n\n//----------------------------------------------------------------------------//\n\nMETHOD Initiate( hDlg ) CLASS TDbCombo\n\n   ::TControl():Initiate( hDlg )\n   //::Refill()\n   ::Default()\n\nRETURN NIL\n\n//----------------------------------------------------------------------------//\n\nMETHOD Insert( cItem, nAt, cList ) CLASS TDBCombo\n\n   DEFAULT nAt := 0\n   DEFAULT cList := cItem\n\n   if nAt != 0\n      ASize( ::aItems, Len( ::aItems ) + 1 )\n      ASize( ::aList, Len( ::aList ) + 1 )\n      AIns( ::aItems, nAt )\n      AIns( ::aList, nAt )\n      ::aItems[ nAt ] = cItem\n      ::aList[ nAt ] = cList\n      ::SendMsg( CB_INSERTSTRING, nAt - 1, cList )\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD ListGet() CLASS TDBCombo\n\n   local cRet, nAt := ::SendMsg( CB_GETCURSEL )\n\n   if nAt != CB_ERR\n      ::nAt = nAt + 1\n      cRet :=  ::aList[ nAt + 1 ]\n   else\n      cRet := GetWindowText( ::hWnd )\n   endif\n\nreturn cRet\n\n//----------------------------------------------------------------------------//\n\nMETHOD LostFocus() CLASS TDBCombo\n\n   local nAt := ::SendMsg( CB_GETCURSEL )\n\n//   Super:LostFocus()\n\n   if nAt != CB_ERR\n      ::nAt = nAt + 1\n      if ValType( Eval( ::bSetGet ) ) == \"N\"\n         Eval( ::bSetGet, nAt + 1 )\n      else\n         Eval( ::bSetGet, ::aItems[ nAt + 1 ] )\n      endif\n   else\n      Eval( ::bSetGet, GetWindowText( ::hWnd ) )\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Modify( cItem, nAt, cList ) CLASS TDBCombo\n\n   DEFAULT nAt := 0\n   DEFAULT cList := cItem\n\n   if nAt != 0\n      ::aItems[ nAt ] = cItem\n      ::aList[ nAt ] = cList\n      ::SendMsg( CB_DELETESTRING, nAt - 1 )\n      ::SendMsg( CB_INSERTSTRING, nAt - 1, cList )\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Refill() CLASS TDBCombo\n\n   // Refill aItems and aList from cAlias-&gt;cFldItem and cAlias-&gt;cFldList\n   // Note that we have yet to define an index!\n\n   LOCAL nOldRecNo\n   LOCAL nOldArea := SELECT()\n   LOCAL nItem, nList\n\n   IF ::cAlias == \"\" .and. Empty(::oDbRs)\n      // There\'s no workarea defined, so do nothing\n      RETURN NIL\n   END IF\n\n   IF Empty( ::cAlias ) .and. Empty(::oDbRS)\n      MsgInfo( \"TDBCombo:Refill() - Alias \'\" + ::cAlias + \"\' does not exist.\" )\n      RETURN NIL\n   ELSE\n      if ! Empty( ::cAlias)\n         DBSELECTAREA(::cAlias)\n      endif\n   ENDIF\n\n\n   ::aItems := {}\n   ::aList := {}\n\n   if ! Empty( ::cAlias)\n      IF (nItem := FIELDPOS( ::cFldItem )) &gt; 0\n         IF (nList := FIELDPOS( ::cFldList )) &gt; 0\n\n            nOldRecNo := RECNO()\n\n            // Make first record blank\n           DBGOBOTTOM()\n           DBSKIP()\n           AADD( ::aItems, FIELDGET( nItem ) )\n           AADD( ::aList, FIELDGET( nList ) )\n\n           DBGOTOP()\n\n           DO WHILE !EOF()\n              AADD( ::aItems, FIELDGET( nItem ) )\n              AADD( ::aList, FIELDGET( nList ) )\n              DBSKIP()\n           ENDDO\n\n           DBGOTO( nOldRecNo )\n\n         ELSE\n            msgInfo(\"TDBCombo:Refill() - Fieldname \"+::cFldList+\" not found.\")\n         ENDIF\n      ENDIF\n\n      SELECT (nOldArea)\n\n   elseif ! Empty( ::oDbRS)\n\n      if ! ::oDbRs:Eof() .and. ! ::oDbRS:Bof()\n         ::oDbRS:GoTop()\n      else\n         MsgInfo(\"La tabla \"+ ::oDbRS:cAlias +\" Esta basia\")\n         return(.t.)\n      endif\n\n\n      DO WHILE ! ::oDbRs:EOF()\n              AADD( ::aItems, ::oDbRs:FieldGet(::oDbRs:FieldPos(::cFldItem)) )\n              AADD( ::aList, ::oDbRs:FieldGet( ::oDbRs:FieldPos(::cFldList )) )\n              ::oDbRs:Skip(1)\n      ENDDO\n\n   endif\nRETURN NIL\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetItems( aItems, aList ) CLASS TDbCombo\n\n   IF LEN(aItems) != LEN(aList)\n      MsgInfo( \"Invalid args to TDBCombo:SetItems()\" )\n   ELSE\n      ::Reset()\n      ::aItems := aItems\n      ::aList := aList\n      ::Default()\n      ::Change()\n   END IF\nRETURN NIL\n\n\ndudas o sugenrencias o modificaciones que haga, pasenlas, gracias.\n\nfernando sandoval ruiz','',0,'','iio1pdyu',1,0,'',97,0,0),(17395,3943,6,97,0,'201.161.133.151',1156013035,1,0,1,1,1,1,'','Checkbox','Porque cuando pongo un checkbox me marca el erro de no puedo crear el dialogo que opciones hay poner el checkbox para que lo presente, desde recursos.\n\n\nsaludos, bye.\nfernando sandoval','',0,'','hcy78mm0',1,0,'',97,0,0),(17396,3941,2,2,0,'87.218.146.122',1156016541,1,0,1,1,1,1,'','','&gt;\nsi muevo el segundo dialogo las variables de los get toman el valor de el puntero del Tsbrowse del primer dialogo..\n&gt;\n\nAl mover el diálogo por encima del browse, haces que este se repinte y al repintarse cambia el registro seleccionado en la base de datos.\n\nPuedes hacer oBrowse:cAlias = \"\" para que no se repinte el browse, ó bien anotar el registro en donde estás y antes de guardar los datos, volver a posicionarte en donde estabas.','',0,'','2127azwy',1,0,'',2,0,0),(17397,3941,2,2,0,'87.218.146.122',1156016663,1,0,1,1,1,1,'','','&gt;\ncomo migro a FWH , porfa expliquenlo con peras y manzanas , porque ahi si estoy hecho unos lios con los 16 Bits , 32 Bits. Etc.....\n&gt;\n\nEs realmente sencillo. Normalmente en una semana ó menos, tienes tu aplicación en 32 bits, ya que FWH es practicamente 100% compatible con FW 16 bits.\n\nLee <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m -->','',0,'','3hh2oera',1,0,'',2,0,0),(17398,3943,6,2,0,'87.218.146.122',1156016759,1,0,1,1,1,1,'','','Fernando,\n\nOjo no vaya a ser que estés poniendo un checkbox de Borland en vez de uno estandard de Windows.','',0,'','1zu872k6',1,0,'',2,0,0),(17399,3941,2,774,0,'200.72.191.129',1156022989,1,0,1,1,1,0,'','','Puedes hacer oBrowse:cAlias = \"\" para que no se repinte el browse, ó bien anotar el registro en donde estás y antes de guardar los datos, volver a posicionarte en donde estabas.\n_________________\nregards, saludos \n\nprobe oBrowse:cAlias=\"\" y claro ro repinta el browse,, por ende si muevo el dialogo el fondo del browse que esta en el primer dialogo se borra,, y con respecto de anotar el registro en donde estoy no puede ser,, ya que mi problema esta al agregar un registro nuevo y como uso DATABASE sea &lt;variable database&gt;:blank() en ese momento si muevo el dialogo que contiene los gets.. estos asun el valor del punto de la obrowse...\n\nPd:  uso Tsbrowse asi:\n\nREDEFINE BROWSE TO oBr ID ......\n\nADD COLUMN TO BROWSE oBr DATA odatabase:Codigo  // Por ejemplo\n\n                                                       este odatabase:codigo es el mismo que uso en el gets,, cuando pregunto en codigo del cliente // por ejemplo','',0,'','36u2s579',1,0,'',774,0,0),(17400,3838,3,49,0,'62.13.172.78',1156023425,1,0,1,1,1,1,'','','yes your sample run ok\n\nthe line 313 at mine application is\naHlp[1] := aCoordinates[i,1]*F[\"V\"]              // nTop','',0,'','3osqqr9r',1,0,'',49,0,0),(17401,3944,3,694,0,'200.181.206.240',1156036603,1,0,1,1,1,1,'','Problemas com o FOLDER nativo do FWH','<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nAntonio, usando a classe nativa de FOLDER do FWH, notei que quando uso um número grande ORELHAS,  as setas  &lt;&gt; do FOLDER não estão funcionando direito... O que devo fazer?\n\nFIQUE COM DEUS','',0,'','3roc6ot9',1,0,'',694,0,0),(17402,3945,3,335,0,'68.193.88.53',1156042851,1,0,1,1,1,0,'','TMultiGet overstrike capability','Tmultiget seems to be frozen in insert mode regardless of user\'s pressing of the insert key.  So I created a workaround that simulates Clipper\'s oGet:Overstrike() for TMultiget as follows, similar to usage in TGet...\n\n// Insert in methods declarations for TMultiGet of Mget.prg...\n\n   // Simulate a Clipper Get system method...\n   METHOD Overstrike()\n\n//-------------------------------------------\n\n// Insert in METHOD KeyChar() just after declaration of locals...\n\n// Adapted from Tget...\n      IF nKey &gt;= 32 .and. nKey &lt; 256\n              if Set( _SET_INSERT )         \n                 // Do nothing because Mget is frozen in insert mode.\n              else\n                 // Use workaround to get same effect as Clipper\'s Overstrike()\n                 ::Overstrike( Chr( nKey ) )\n              end\n      ENDIF\n//\n\n//-------------------------------------------\n// Add this method to bottom of Mget.prg file...\n\n// This is a workaround to enable overstriking though Mget is actually frozen\n// in insert mode regardless of the _SET_INSERT setting...\n\nMETHOD Overstrike( cChar ) CLASS TMultiGet\nLOCAL cOld := \"\",nLen := 0,cNewMem := \"\",nPos1 := 1\n\n    // Get existing text...\n   cOld = ::VarGet()\n   nLen := LEN(cOld)\n\n    // Get cursor pos where to insert...\n   ::nPos = nLoWord( ::SendMsg( EM_GETSEL ) )\n\n\n    // Copy text to cNewMem out to position of newly inserted char...	  \n   cNewMem := SubStr( cOld, 1, ::nPos ) \n    // Now add remainder of text, omitting the char just after the inserted char...\n   cNewMem := cNewMem + SubStr(cOld,::nPos+2,nLen)\n\n    // Replace multiline get memvar\'s text...\n   ::VarPut(cNewMem)\n\n   nPos1 := ::nPos\n\n   // EMW - the text has been changed!\n   if ::bChange != nil\n       Eval( ::bChange,,, Self )\n   endif\n\n    // Refresh display of multiline get with new version of text...\n   ::Refresh()\n   ::SetPos(nPos1+1)  // Put cursor at beg of next char\n\nRETURN nil\n*----------------------------------------------\n\n- Roger','',0,'','1b7fitdz',1,0,'',335,0,0),(17403,3941,2,774,0,'200.72.191.129',1156047031,1,0,1,1,1,0,'','','Es realmente sencillo. Normalmente en una semana ó menos, tienes tu aplicación en 32 bits, ya que FWH es practicamente 100% compatible con FW 16 bits. \n\nLee <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m -->\n_________________\nregards, saludos \n\n\n\nGracias por el Link::: lo lei pero algo no me quedo claro,, a ver si puedes explicarmelo\n\nbaje BCC55, lo instale ningun problema\nbaje Harbour, y lo instale\n\npero la parte que no comprendi fue donde dice::\n\n\nUso de FWH:\nUna vez instalado Harbour, FWH y el compilador gratuito Borland C/C++, simplemente vaya al directorio c:\\FWH\\SAMPLES y revise los paths definidos en BuildH.bat para asegurarse que coinciden con los paths seleccionado en la instalación de Harbour y Borland Luego escriba:\n\na que se refiere con FWH y donde lo consigo o es el mismo Fw 2.4 que ya tengo instalado... GRAN DUDA\n\nun abrazo fraterno\ngracias... por la AYUDA','',0,'','rmmxf45q',1,0,'',774,0,0),(17404,3904,3,707,0,'222.124.20.50',1156060396,1,0,1,1,1,0,'','','Antonio,\n\nPlease Help me !\n\n1. I used xHB and xBuildW compiler, no Activex.lib get error :\n\n\nApplication\n===========\n   Path and name: D:\\NewHarbour\\OCX\\codejock\\test.exe (32 bits)\n   Size: 1,546,240 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 08/20/06, 14:46:13\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: TActiveX.prg =&gt; CREATEACTIVEX(184)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: test.prg =&gt; MAIN(13)\n\n\n2. I used xHB and xBuildW compiler, with Activex.lib from xHB\\lib still error :\n\nApplication\n===========\n   Path and name: D:\\NewHarbour\\OCX\\codejock\\test.exe (32 bits)\n   Size: 1,534,976 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 08/20/06, 14:51:47\n   Error description: Error BASE/7001  EmbedObject failed!: __CREATEACTIVEX\n   Args:\n     [   1] = N   1640128\n     [   2] = C   Codejock.CommandBarsFrame.10.2\n     [   3] = N   -4\n     [   4] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; THROW(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(59)\n   Called from: test.prg =&gt; MAIN(13)\n\n\nThanks\nBest Regard\nAreang','',0,'','1n1r1bug',1,0,'',707,0,0),(17405,3941,2,2,0,'87.218.146.148',1156060616,1,0,1,1,1,1,'','','&gt; \na que se refiere con FWH y donde lo consigo o es el mismo Fw 2.4 que ya tengo instalado... \n&gt;\n\nFWH es FiveWin para Harbour, y es un producto distinto al FW 16 bits que tienes. Es un producto comercial que puede comprar desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos. \n\nAunque es un producto distinto, es compatible con FW 16 bits. Está desarrollado en 32 bits y usa el API de Windows de 32 bits.','',0,'','2j5oz3b0',1,0,'',2,0,0),(17406,3904,3,2,0,'87.218.146.148',1156060851,1,0,1,1,1,1,'','','Areang,\n\nUse this at the top of your main PRG:\n\nREQUEST TACTIVEX','',0,'','2jv4xpc2',1,0,'',2,0,0),(17407,3944,3,2,0,'87.218.146.148',1156061273,1,0,1,1,1,1,'','','Add this method to Class TFolder:\n\nMETHOD HScroll( nWParam, nLParam ) VIRTUAL','',0,'','dl9ystbv',1,0,'',2,0,0),(17408,3946,2,375,0,'84.122.110.151',1156063955,1,0,1,1,1,1,'','Funciones en C++','Me gustaría hacer alguna función en Borland C++, para probar. Mi pregunta es: ¿basta con escribir un fichero \"----.c\" y compilar con BRC32 para obtener un OBJ válido, o si  tengo que hacer algo especial entre medias?\n\nGracias.','',0,'','o02co20b',1,0,'',375,0,0),(17409,3904,3,707,0,'222.124.20.50',1156069039,1,0,1,1,1,0,'','','Antonio,\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  my eye tires is empty for this.\n\n--&gt; Please Help me, to understand ActiveX viewed by Oleview:\n[\n  uuid(555E8FCC-830E-45CC-AF00-A012D5AE7451),\n  version(10.1),\n  helpstring(\"Xtreme CommandBars ActiveX Control 10.1\"),\n  helpfile(\"SymbolReference.chm\"),\n  helpcontext(0x000004d1),\n  custom(DE77BA64-517C-11D1-A2DA-0000F8773CE9, 83951780),\n  custom(DE77BA63-517C-11D1-A2DA-0000F8773CE9, 1145655562)\n\n]\nlibrary XtremeCommandBars\n\n\n\n\nIF !IsActiveX( \"{555E8FCC-830E-45CC-AF00-A012D5AE7451}\" )\n    --&gt; it\'s good.   \nENDIF\n\nCan I call : \noCommandBars = TActiveX():New( oWnd, \"{555E8FCC-830E-45CC-AF00-A012D5AE7451}\" )\nor \noCommandBars = TActiveX():New( oWnd, \"XtremeCommandBars.CommandBarsFrame\" ) \n\noCommandBars:SetSize( 200, 100 ) \n\n   // Set RibbonBar = CommandBars.AddRibbonBar(\"The Ribbon\")    \n   oRibbonBar = oCommandBars:Do( \"AddRibbonBar\", \"The Ribbon\" ) \n    \n   // Set TabWrite = RibbonBar.InsertTab(0, \"Writ&amp;e\") \n   oTabWrite = OleInvoke( oRibbonBar, \"InsertTab\", 0, \"Writ&amp;e\" ) \n  \n   // TabWrite.Id = ID_TAB_WRITE \n   OleSetProperty( oTabWrite, \"Id\", ID_TAB_WRITE ) \n\n   // Set GroupClipborad = TabWrite.Groups.AddGroup(\"&amp;Clipboard\", ID_GROUP_CLIPBOARD) \n   oGroups = OleGetProperty( oTabWrite, \"Groups\" ) \n   oGroupClipborad = OleInvoke( oGroups, \"AddGroup\", \"&amp;Clipboard\", ID_GROUP_CLIPBOARD )  \n\n   // A numeric value different from zero shows that it is a valid handle \n    \n   MsgInfo( oGroupClipborad ) \n    \n   ACTIVATE WINDOW oWnd \n\n--&gt; Get error : \npplication\n===========\n   Path and name: D:\\NewHarbour\\codejock\\test.exe (32 bits)\n   Size: 1,543,680 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 08/20/06, 17:14:39\n   Error description: Error BASE/7001  EmbedObject failed!: __CREATEACTIVEX\n   Args:\n     [   1] = N   854254\n     [   2] = C   XtremeCommandBars.CommandBarsFrame\n     [   3] = N   -4\n     [   4] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; THROW(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(59)\n   Called from: test.prg =&gt; MAIN(53)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.66GHz 2666 Mhz\n   Hardware memory: 511 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   THROW\n     Param   1:    O    Class: ERROR\n     Local   1:    U    \n     Local   2:    N    0\n   TACTIVEX&#058;NEW\n     Param   1:    N    854254\n     Param   2:    C    \"XtremeCommandBars.CommandBarsFrame\"\n     Local   1:    N    -4\n     Local   2:    U    \n     Local   3:    O    Class: TACTIVEX\n     Local   4:    O    Class: ERROR\n     Local   5:    U    \n     Local   6:    U    \n   MAIN\n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TBRUSH\n     5 TFONT\n     6 TOLEAUTO\n     7 TACTIVEX\n     8 ERROR\n     9 TREG32\n\nMemory Analysis\n===============\n      125 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\n\nAreang  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','2dkdck92',1,0,'',707,0,0),(17410,3946,2,2,0,'87.218.146.148',1156071585,1,0,1,1,1,1,'','','Manu,\n\nAqui tienes un ejemplo para Clipper. Ojo, tienes que compilar con bcc.exe que es para 16 bits. En 32 bits es más simple: <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3488&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=testivalue\">http://fivetechsoft.com/forums/viewtopi ... testivalue</a><!-- m -->\n\ngo.bat\n[code:2wfgm3wr]\nc&#58;\\clipper5\\bin\\clipper main /n\nc&#58;\\bc5\\bin\\bcc -c -ml -Ic&#58;\\clipper5\\include test&#46;cpp\nSET LIB=c&#58;\\clipper5\\lib;c&#58;\\bc5\\lib\nblinker fi main&#46;obj, test&#46;obj lib clipper, extend, dbfntx, terminal\n[/code:2wfgm3wr]\nmain.prg\n[code:2wfgm3wr]\n// Usando C++ con Clipper \n// ejemplo desarrollado por FiveTech Software \n\nfunction Main&#40;&#41; \n\n   local oTest &#58;= Test&#40;&#41; // Creamos un objeto en C++ \n\n   ? Test_IVal&#40; oTest &#41;  // Visualizamos un dato del objeto en C++ \n    \nreturn nil \n[/code:2wfgm3wr]\ntest.cpp\n[code:2wfgm3wr]\nclass Sample \n&#123; \n   public&#58; \n      int iValue; \n      Sample&#40;&#41;;\n      void * operator new&#40; unsigned long ulSize &#41;;\n      void operator delete&#40; void * &#41;;\n&#125;; \n\nSample&#58;&#58;Sample&#40;&#41; \n&#123; \n   iValue = 123; \n&#125;    \n\nextern &quot;C&quot; &#123;\n   void * _xgrab&#40; unsigned long &#41;;\n   void _xfree&#40; void * &#41;;\n&#125;\n\nvoid * Sample&#58;&#58;operator new&#40; unsigned long ulSize &#41;\n&#123;\n   return _xgrab&#40; ulSize &#41;;\n&#125;   		\n\nvoid Sample&#58;&#58;operator delete&#40; void * p &#41;\n&#123;\n   _xfree&#40; p &#41;;\n&#125;   		\n\nextern &quot;C&quot; &#123;\n\n#include &lt;extend&#46;api&gt;\n\nCLIPPER TEST&#40;&#41;\n&#123;\n   _retnl&#40; &#40; unsigned long &#41; new Sample&#40;&#41; &#41;;\n&#125;\n\nCLIPPER TEST_IVAL&#40;&#41;\n&#123;\n   _retnl&#40; &#40; &#40; Sample * &#41; _parnl&#40; 1 &#41; &#41;-&gt;iValue &#41;;\n&#125;   	\n\n&#125;   \n[/code:2wfgm3wr]','',0,'AIA=','2wfgm3wr',1,0,'',2,0,0),(17411,3927,6,519,0,'88.14.202.81',1156071901,1,0,1,1,1,0,'','','Gracias Manuramos me funciona perfecto','',0,'AIA=','2qtlruk2',1,0,'',519,0,0),(17412,3904,3,2,0,'87.218.146.148',1156071945,1,0,1,1,1,1,'','','Areang,\n\nHave you placed REQUEST TACTIVEX at the top of your main PRG ?\n\nAre you using xHarbour builder ?','',0,'AIA=','1ereldpo',1,0,'',2,0,0),(17413,3946,2,2,0,'87.218.146.148',1156072232,1,0,1,1,1,1,'','','Manu,\n\nSi te refieres a sólo escribir una función, revisa source\\winapi\\*.c\n\nPara compilar bcc.exe -c -ml -I&lt;path_a_includes&gt; &lt;fichero.c&gt;','',0,'AIA=','387yvd8v',1,0,'',2,0,0),(17414,3904,3,707,0,'222.124.20.50',1156072364,1,0,1,1,1,0,'','','Antonio,\n\n\nREQUEST TACTIVEX\n\n#include \"FiveWin.ch\" \n\n#define ID_TAB_WRITE       5004 \n#define ID_GROUP_CLIPBOARD 5001 \n\nfunction Main() \n\n   local oWnd, oCommandBars, oRibbonBar, oTabWrite, oGroups, oGroupClipborad \n\n   LOCAL cOriginal, cDestination\n\n    IF !IsActiveX( \"{555E8FCC-830E-45CC-AF00-A012D5AE7451}\" )\n\n       MsgAlert(\"Not Active\")\n\n       cOriginal  := \"commandbars.ocx\"\n       cDestination := GetSysDir() + \"\\commandbars.ocx\"\n\n       IF !File( cOriginal )\n           MsgAlert(cOriginal+\" file not found\")\n           RETURN NIL\n       ENDIF\n\n       if !File((cDestination))\n          Copy File &amp;cOriginal TO &amp;cDestination\n       endif\n\n       if File((cDestination))\n          WinExec( \"REGSVR32 \" + cDestination + \" /s\" )\n       else\n          MsgAlert(\"File \"+cDestination+\" Not Found\")\n          return nil\n       endif\n     \n\n       IF !IsActiveX( \"{555E8FCC-830E-45CC-AF00-A012D5AE7451}\" )\n          MsgInfo( \"Error to Register \"+cOriginal+\" File\" )\n          return nil\n       ENDIF\n   else\n      MsgAlert(\"Is Active\")\n   endif\n    \n   DEFINE WINDOW oWnd \n    \n   // Begin XtremeCommandBars.CommandBars CommandBars \n\n\n//  oCommandBars = TActiveX():New( oWnd, \"{555E8FCC-830E-45CC-AF00-A012D5AE7451}\" ) \n\n     oCommandBars = TActiveX():New( oWnd, \"XtremeCommandBars.CommandBarsFrame\" ) \n    \n   oCommandBars:SetSize( 200, 100 ) \n\n   // Set RibbonBar = CommandBars.AddRibbonBar(\"The Ribbon\")    \n   oRibbonBar = oCommandBars:Do( \"AddRibbonBar\", \"The Ribbon\" ) \n    \n   // Set TabWrite = RibbonBar.InsertTab(0, \"Writ&amp;e\") \n   oTabWrite = OleInvoke( oRibbonBar, \"InsertTab\", 0, \"Writ&amp;e\" ) \n  \n   // TabWrite.Id = ID_TAB_WRITE \n   OleSetProperty( oTabWrite, \"Id\", ID_TAB_WRITE ) \n\n   // Set GroupClipborad = TabWrite.Groups.AddGroup(\"&amp;Clipboard\", ID_GROUP_CLIPBOARD) \n   oGroups = OleGetProperty( oTabWrite, \"Groups\" ) \n   oGroupClipborad = OleInvoke( oGroups, \"AddGroup\", \"&amp;Clipboard\", ID_GROUP_CLIPBOARD )  \n\n   // A numeric value different from zero shows that it is a valid handle \n    \n   MsgInfo( oGroupClipborad ) \n    \n   ACTIVATE WINDOW oWnd \n    \nreturn nil\n\n\nAreang','',0,'AIA=','1mtqg7cm',1,0,'',707,0,0),(17415,3904,3,2,0,'87.218.146.148',1156074411,1,0,1,1,1,1,'','','Areang,\n\nAre you using xHarbour builder ?','',0,'AIA=','q4o0p46e',1,0,'',2,0,0),(17416,3945,3,58,0,'84.149.246.105',1156074972,1,0,1,1,1,0,'','','Thanks Roger,\n\ni missed this get behaviour and i\'ll give it a try.\n\nBest regards,\nDetlef','',0,'AIA=','ja6w7xag',1,0,'',58,0,0),(17417,3929,17,49,0,'62.13.172.78',1156086034,1,0,1,1,1,1,'','','EMG or Antonio\nWhen I download from Hypersys there is a bug I not can see anything into Barlib2.zip\n\nCan you correct the problem ?\n\nBest Regards','',0,'AIA=','jao7qknq',1,0,'',49,0,0),(17418,3929,17,6,0,'87.10.10.187',1156086611,1,0,1,1,1,1,'','','I just tried to download it and it seems ok. Anyway, I\'m going to send it to your private mailbox.\n\nEMG','',0,'AIA=','v1jd7wg9',1,0,'',6,0,0),(17419,3938,6,54,0,'189.132.119.71',1156088253,1,0,1,1,1,1,'','Re: \\\\equipo\\impresora\\puerto no funciona en xp','[quote=&quot;Vladimir Zorrilla&quot;:13s1xk2z]Amigos\n\nesto no funciona en xp para imprimir en red\n\n\ntrabajo con la clase tdosprn y no puedo imprimir en red desde\nuna xp\n\nGracias por la ayuda[/quote:13s1xk2z]\n\nMis estimado,\n\nSegún tengo entendido, no compartes el puerto, sino el recurso, por ejemplo:\n\nTienes la impresora Epson en el equipo amigo, puedes hacer lo siguiente:\n\nCompartes la impresora en el equipo amigo, y el puerto ahi lo defines.\n\nrecurso compartido: \\\\amigo\\printer\n\nY desde otro equipo solo mandas al recurso compartido (no al puerto)\n\nEspero no estar equivocado','',0,'gA==','13s1xk2z',1,0,'',54,0,0),(17420,3947,6,775,0,'201.246.7.54',1156092266,1,0,1,1,1,0,'','Saludos y Ayuda y Consulta','Amigos, hasta el día de hoy programo en FW 2,2, clipper 5.3e, y Blinker 5.0, pero los vientos me dicen que debo pasarme a FWH, ok, no hay problema, lo hare, pero que hago con las librerias de terceros que uso, es decir, yo tengo las librerias Sbrowse.Lib y BtnGet.Lib, y no tengo de donde sacar sus equivalentes en FWH, es decir, ya no existe DBwide, en donde uno podia sacar las librerias de Terceros que mucho ayudaban, y ahora que hago, cambio todo lo hecho con Tsbrowse y Btnget, o saco de alguna parte sus equivalentes, por favor amigos, cual debe ser el paso mas logico y transparente, para cambiarme pero sin saber que perdi tiempo en FW, y Antonio, cuando podras hacer algo del nivel que se tenia en Dbwide, este foro lleva +/- un año y no he visto una respuesta al respecto.\n\nSaludos, a todos','',0,'gA==','1fk52lfr',1,0,'',775,0,0),(17421,3944,3,694,0,'200.181.206.8',1156092599,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1bsyrbs4]Add this method to Class TFolder:\n\nMETHOD HScroll( nWParam, nLParam ) VIRTUAL[/quote:1bsyrbs4]\n\nAntonio, me desculpe... Mais como faço isso? \nColoco estas linhas no meu PRG principal? Ou tenho que colocar dentro da classe e compilar a classe TFOLDER no meu sistema?\n\nFICA COM DEUS\n\nAOKISANTOS','',0,'gA==','1bsyrbs4',1,0,'',694,0,0),(17422,3946,2,375,0,'84.122.110.151',1156092716,1,0,1,1,1,1,'','','Gracias Antonio. Ahora mismo me pongo manos a la obra.','',0,'gA==','1agj8fqn',1,0,'',375,0,0),(17423,3948,20,47,0,'203.144.143.5',1156092725,1,0,1,1,1,0,'','How to load BMP by FreeImage.DLL ?','Dear All,\nI would like to load BMP file by FreeImage.DLL instead of TImage.  I got the example for SOURCE CODE not for RESOURCE\n\nMy old code.\nDEFINE DIALOG oDlg RESOURCE \'TEST\'\n\n         REDEFINE IMAGE oImg ID 11 OF oDlg SCROLL\n         oImg:Progress( .F. )\n\nACTIVATE DIALOG oDlg CENTER ;\n              ON PAINT (oImg:LoadBmp(\'TEST.BMP\')) RESIZE16\n\nBest regards,\nDutch','',0,'gA==','mkf0xre9',1,0,'',47,0,0),(17424,3946,2,375,0,'84.122.110.151',1156094765,1,0,1,1,1,1,'','','Bueno, aunque leyendo mejor lo que me has escrito, me han entrado algunas dudas. Mi intención es escribir algunas funciones sencillas en C++ para utilizarlas en diversos programas, a modo de librería.\n\nSegún veo en Source\\WinApi\\...c\n\n[b:38vsbt5m]¿Esto seviría?[/b:38vsbt5m]\n\n#include &lt;WinTen.h&gt;\n#include &lt;Windows.h&gt;\n#include &lt;ClipApi.h&gt;\n\nCLIPPER lEsPar( PARAMS )\n{\n_retl((_parnl( 1 )%2 == 0);\n}\n\nGuardar en Test.c\n\nDespués compilar con: bcc.exe -c -ml -IC:\\CLIPPER5\\INCLUDE Test.c\n\nFinalmente linkar el objeto (Test.obj) junto con los demás objetos de mi programa. ¿Sería correcto?\n\n[u:38vsbt5m]En caso afirmativo[/u:38vsbt5m], para 32 bit, para cuando me pase a xHarbour, sería lo mismo pero con BCC32?\n\n[u:38vsbt5m]Por ultimo[/u:38vsbt5m], he visto en algunos ficheros de c algo como esto: _param( 3, -1 ). Otras veces, en vez de -1 aparece un entero positivo que deduzco es el indice de un array, pero -1 no he logrado averiguar que significa.\n\nGracias. Un saludo','',0,'QQ==','38vsbt5m',1,0,'',375,0,0),(17425,3948,20,6,0,'87.10.10.187',1156095011,1,0,1,1,1,1,'','Re: How to load BMP by FreeImage.DLL ?','You don\'t need of FreeImage.dll to load BMPs. You can use ReadBitmap().\n\nEMG','',0,'QQ==','1n3c2jzd',1,0,'',6,0,0),(17426,3947,6,138,0,'201.128.138.235',1156099038,1,0,1,1,1,1,'','','Todos los codigos fuentes de las librerias que mencionas existen, solo tienes que recompilar y enlazarlos entu programa \n\nVikthor tiene una copia de DBWide en su pagina, ahi esta todo intacto','',0,'QQ==','1nexv3pg',1,0,'',138,0,0),(17427,3944,3,2,0,'87.218.146.148',1156104226,1,0,1,1,1,1,'','','&gt; Ou tenho que colocar dentro da classe e compilar a classe TFOLDER no meu sistema? \n\nYes. Si.','',0,'QQ==','12wqpc27',1,0,'',2,0,0),(17428,3946,2,2,0,'87.218.146.148',1156104672,1,0,1,1,1,1,'','','Manu,\n\n&gt;\nDespués compilar con: bcc.exe -c -ml -IC:\\CLIPPER5\\INCLUDE Test.c \n\nFinalmente linkar el objeto (Test.obj) junto con los demás objetos de mi programa. ¿Sería correcto? \n&gt;\n\nSí\n\n&gt;\nEn caso afirmativo, para 32 bit, para cuando me pase a xHarbour, sería lo mismo pero con BCC32? \n&gt;\n\nSí. En 32 bits no se usa -ml\n\n&gt;\nPor ultimo, he visto en algunos ficheros de c algo como esto: _param( 3, -1 ). Otras veces, en vez de -1 aparece un entero positivo que deduzco es el indice de un array, pero -1 no he logrado averiguar que significa. \n&gt;\n\n-1 es equivalente a 0xFFFF (hexadecimal) que significa \"de todos los tipos\" en Clipper. Es decir, queremos un parámetro, sea del tipo que sea. Variando ese valor se puede escoger un cierto tipo de valores.\n\nentero positivo es un tipo de valor, no \"de todos los tipos\".','',0,'QQ==','1dygiptr',1,0,'',2,0,0),(17429,3947,6,2,0,'87.218.146.148',1156104939,1,0,1,1,1,1,'','','Alejandro,\n\n&gt; \nAntonio, cuando podras hacer algo del nivel que se tenia en Dbwide, este foro lleva +/- un año y no he visto una respuesta al respecto.\n&gt;\n\nLos ficheros de DbWide y muchos más están en estos foros desde hace mucho tiempo en la sección de Utilidades: <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewforum.php?f=17&amp;sid=3009f5d630dff3bfc9a45e7860e1d5e5\">http://fivetechsoft.com/forums/viewforu ... 7860e1d5e5</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2485\">http://fivetechsoft.com/forums/viewtopic.php?t=2485</a><!-- m -->','',0,'QQ==','6c432gop',1,0,'',2,0,0),(17430,3944,3,694,0,'200.181.156.96',1156108164,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:12azy2kf]&gt; Ou tenho que colocar dentro da classe e compilar a classe TFOLDER no meu sistema? \n\nYes. Si.[/quote:12azy2kf]\n\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->   ANTONIO, em FW25H\\SOURCE\\CLASSES\\FOLDER.PRG  adicionei :\n\nAdd this method to Class TFolder:\n\nMETHOD HScroll( nWParam, nLParam ) VIRTUAL\n\nMais as SETAS &lt;&gt; ainda não funciona! ....  Coloquei estas nas linhas no final da FOLDER.PRG e compilei junto com o sistema! Estou fazendo algo de errado Antonio?\nAOKISANTOS','',0,'gA==','12azy2kf',1,0,'',694,0,0),(17431,3944,3,2,0,'87.218.146.148',1156108596,1,0,1,1,1,1,'','','It should work ok. If not, then we suggest you to upgrade to FWH 2.7','',0,'gA==','2myfx75x',1,0,'',2,0,0),(17432,3949,6,694,0,'200.181.156.131',1156119781,1,0,1,1,1,1,'','Error: Unresolved external \'_hb_stack\'','<!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nANTONIO, DESCULPE POR NÃO PODER FAZER UM UPGRADE! Mais assim que eu puder quero fazer sim!!!\n\nANTONIO, USANDO O HARB2LIB, GEREI A LIB A FIVEHX.LIB DO FWH25 USANDO O XHARB 99.60, porem esta dando este erro:\n\nUnresolved External \'_hb_stack\' referenced from c:fwh25\\lib\\fivehc.lib|MDI\n\nPODE ME AJUDAR ANTONIO?\nQUE DEUS LHE ILUMINE\nAOKISANTOS','',0,'gA==','ik3ulqb7',1,0,'',694,0,0),(17433,3945,3,190,0,'202.65.134.45',1156127402,1,0,1,1,1,0,'','','Hi Mr.Roger\n\nGood attempt to a missing feature in MGet Class.\n\nI tested the method.  I found that the method is not able to \ninsert/overwrite from the position where the cursor is positioned.\nIt is always taking from the beginning of the text.\n\nFWH 2.7 + xHarbour 0.99.61 \n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','3fdjg1gw',1,0,'',190,0,0),(17434,3950,3,234,0,'75.34.217.174',1156127576,1,0,1,1,1,1,'','Excel Help','Hello,\n\nCan someone provide the correct to set the following?\n\n1) Freeze pane\n2) Set Header\n3) Set Footer\n\nThank you,','',0,'gA==','19t0de04',1,0,'',234,0,0),(17435,3950,3,328,0,'190.56.8.206',1156128183,1,0,1,1,1,0,'','','For freeze panel...using TExcelScript&#058;\n\n[code:udie33n0]\n/*\n *  TExcelScript&#40;&#41;&#58;FreezePanel&#40;&#41; \n */\nMETHOD FreezePanel&#40; cRange &#41;  CLASS TExcelScript\n\n  &#58;&#58;oExcel&#58;Range&#40; cRange &#41;&#58;Select&#40;&#41;\n  &#58;&#58;oExcel&#58;Application&#58;ActiveWindow&#58;FreezePanes &#58;= &#46;T&#46;\n\nRETURN Self\n[/code:udie33n0]\n\nCarlos Sincuir','',0,'AIA=','udie33n0',1,0,'',328,0,0),(17436,3950,3,234,0,'75.34.217.174',1156129006,1,0,1,1,1,1,'','','Hello,\n\nI am using the following code and getting an error.\n\noAs := oExcel:ActiveSheet()\n\noAs:FreezePanes := .T.\n\nAny ideas?\n\nThank you,','',0,'AIA=','s5azuv69',1,0,'',234,0,0),(17437,3904,3,707,0,'222.124.20.50',1156137297,1,0,1,1,1,0,'','','Antonio, \n\nI used xBuildW from xHarbour.com\n\nAreang','',0,'AIA=','2ys4a2oi',1,0,'',707,0,0),(17438,3950,3,58,0,'84.149.209.60',1156142617,1,0,1,1,1,0,'','','cdmmaui,\n\nas Carlos pointed out, you have do do a \"select\" before.\nThe freeze command works like in real Excel.\nFirst you have to select a cell and then you can freeze the sheet.\n\nThis sample works for me:[code:18sr4i8h]   oWin &#58;= oExcel&#58;Get&#40; &quot;ActiveWindow&quot; &#41;\n   oSheet&#58;Cells&#40; 2, 1 &#41;&#58;Select&#40;&#41;\n   oWin&#58;Set&#40; &quot;FreezePanes&quot;, &#46;t&#46; &#41;\n[/code:18sr4i8h]\nRegards, \nDetlef','',0,'AIA=','18sr4i8h',1,0,'',58,0,0),(17439,3904,3,2,0,'87.218.146.148',1156144683,1,0,1,1,1,1,'','','Areang,\n\n\"XtremeCommandBars.CommandBarsFrame\" is a very complex ActiveX. \n\nWe would suggest you to start with easier ones, and try with this one later on.','',0,'AIA=','375mtfjv',1,0,'',2,0,0),(17440,3949,6,2,0,'87.218.146.148',1156144818,1,0,1,1,1,1,'','','#pragma BEGINDUMP \n\n#include \"hbstack.h\" \n#include \"hbapiitm.h\" \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym ) \n{ \nreturn pDynSym-&gt;pSymbol; \n} \n\n#pragma ENDDUMP','',0,'AIA=','3azn1kiz',1,0,'',2,0,0),(17441,3859,19,2,0,'87.218.146.148',1156145809,1,0,1,1,1,1,'','','Maurilio,\n\n&gt;\nTotally free to develop any personal or comercial application. The only limitation is you can\'t add brd part components in Personal version (only default pallete is available).\n&gt;\n\nI have read that another limitation is that you can have just one (free) language on your computer:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.duntemann.com/Diary.htm\">http://www.duntemann.com/Diary.htm</a><!-- m -->','',0,'AIA=','p71xade5',1,0,'',2,0,0),(17442,3951,4,3,0,'86.205.63.248',1156147791,1,0,1,1,1,1,'','window resolution','Hello Antonio,\n\nOwnd:nvertres()  and OWND:nhorzRes() are not active in fwppc.\n\nIs there a way to know the vertical height and horizontal ?\n\nThanks\n\nRichard','',0,'AIA=','o13sr1k1',1,0,'',3,0,0),(17443,2767,4,456,0,'217.127.39.57',1156149182,1,0,1,1,1,1,'','','Hi all,\nmany thanks Enrico and Pawel. I tryed the code provided by Pawel and it runs 100 %.\n\nMany  thanks again both.','',0,'AIA=','3txusssf',1,0,'',456,0,0),(17444,3951,4,6,0,'87.17.218.18',1156149971,1,0,1,1,1,1,'','Re: window resolution','This is a working sample:\n\n[code:wlzswmrq]#include &quot;Fwce&#46;ch&quot;\n\n\n#define SM_CXSCREEN 0\n#define SM_CYSCREEN 1\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 BUTTON &quot;Show sizes&quot;;\n           SIZE 120, 30;\n           ACTION &#40; MSGINFO&#40; GETSYSMETRICS&#40; SM_CXSCREEN &#41; &#41;,;\n                    MSGINFO&#40; GETSYSMETRICS&#40; SM_CYSCREEN &#41; &#41; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:wlzswmrq]\n\nEMG','',0,'AIA=','wlzswmrq',1,0,'',6,0,0),(17445,3951,4,3,0,'86.205.63.248',1156150161,1,0,1,1,1,1,'','Re: window resolution','[quote=&quot;EnricoMaria&quot;:1o5yiqkw]This is a working sample:\n\n[code:1o5yiqkw]#include &quot;Fwce&#46;ch&quot;\n\n\n#define SM_CXSCREEN 0\n#define SM_CYSCREEN 1\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 BUTTON &quot;Show sizes&quot;;\n           SIZE 120, 30;\n           ACTION &#40; MSGINFO&#40; GETSYSMETRICS&#40; SM_CXSCREEN &#41; &#41;,;\n                    MSGINFO&#40; GETSYSMETRICS&#40; SM_CYSCREEN &#41; &#41; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1o5yiqkw]\n\nEMG[/quote:1o5yiqkw]\n\nThanks Enrico\n\nI did not think about getsysmetrics !','',0,'gIA=','1o5yiqkw',1,0,'',3,0,0),(17446,3951,4,2,0,'87.218.146.148',1156150624,1,0,1,1,1,1,'','','Richard,\n\nThere is a new FWPPC build that you may already download that implements those methods and some new features.','',0,'gIA=','1qdzejey',1,0,'',2,0,0),(17447,3921,7,456,0,'217.127.39.57',1156150624,1,0,1,1,1,1,'','','Solucionado, ya consigo activar la conexion desde el programa. La solucion es utilizar el connection manager API [url:1qdzejey]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/APISP/html/sp_connmgr_connmgrconnectionstatus&#46;asp[/url:1qdzejey].\n\nEn el foro en ingles me indicaron el camino, casi todo esta disponible en MSDN, pero jo..er para encontrar lo que uno busco, o saber exactamente que buscar, tela. \n\nEn este hilo del foro en ingles, estan las funciones para FTP, y conexion [url:1qdzejey]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=2767[/url:1qdzejey], gracias a Enrico y Pawel dos cracks en FW y sobre todo en C, que es donde ando mas flojo yo.','',0,'EA==','1qdzejey',1,0,'',456,0,0),(17448,3952,19,328,0,'190.56.10.122',1156160414,1,0,1,1,1,0,'','Conocer mas información de quien envio un email...','Hola  a todos.\nAlguien sabe como se puede obtener mas información de donde se envio un email, mas especificamente, de un correo de yahoo, llegar a conocer la ip del computador dondes se envio, o el proveedor de internet de quine lo envio, etc., conocer mas detalles de la cuenta de correo de quine envía el mensaje, o hay alguna forma de proteger la identidad de quien esta enviando el mensaje?\n\nSaludos.\n\nCarlos Sincuir','',0,'EA==','1qrw0rlz',1,0,'',328,0,0),(17449,3952,19,2,0,'87.218.146.148',1156160830,1,0,1,1,1,1,'','','Carlos,\n\nSi el envio del email se hace a través de Yahoo, ó de un proveedor similar, la IP de origen es la de Yahoo, no la de quien escribe el email.\n\nDe todas formas puedes revisar la cabecera del email pulsando el botón derecho del ratón sobre el email, en Outlook, y seleccionando Opciones &gt; Encabezados de Internet. Ahí puedes ver si la IP original está indicada ó no.','',0,'EA==','7r1ato01',1,0,'',2,0,0),(17450,3953,3,171,0,'71.232.193.197',1156163280,1,0,1,1,1,0,'','PDF From Preview','Does exists any version de PREVIEW than can save in PDF format?\n\nRegards\n\n\nGeorge','',0,'EA==','2ey1c88w',1,0,'',171,0,0),(17451,3953,3,58,0,'84.149.209.60',1156165007,1,0,1,1,1,0,'','','George,\n\ni think you\'ll need a pdf printer installed for this.\n\nRegards,\nDetlef','',0,'EA==','21awmyx3',1,0,'',58,0,0),(17452,3953,3,171,0,'71.232.193.197',1156168694,1,0,1,1,1,0,'','','Detlef\n\nI know that I can do that using PDFCreator.\n\nI would like to save PDF from FiveWin PREVIEW. Do you know any class that I can use to create PDF report?  \n\n\nGeorge','',0,'EA==','13vrfyil',1,0,'',171,0,0),(17453,3954,4,20,0,'87.7.212.146',1156169134,1,0,1,1,1,0,'','Graphics functions','The Ellipse and PolyPolygon function are implemented in FWPPC? \n\nRegards\nPier Luigi','',0,'EA==','1gnbfvf3',1,0,'',20,0,0),(17454,3953,3,58,0,'84.149.209.60',1156169762,1,0,1,1,1,0,'','','Geaorge,\n\nsorry i don\'t know a class like that which can be activated from inside of a preview.\n\nRegards,\nDetlef','',0,'EA==','xbo2yfmo',1,0,'',58,0,0),(17455,3954,4,2,0,'87.218.146.148',1156171817,1,0,1,1,1,1,'','','Pier,\n\nPolyPoligon() is not supported in Windows Mobile. Ellipse() yes, but we have not included it in FWPPC yet.','',0,'EA==','15onic5o',1,0,'',2,0,0),(17456,3919,6,203,0,'200.63.228.95',1156173076,1,0,1,1,1,1,'','','Gracias por tu ayuda fleal\n\n\n\n\nSaludos\n\n\nOscar','',0,'EA==','1yxwig0y',1,0,'',203,0,0),(17457,3953,3,9,0,'85.60.43.37',1156174798,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:3tsze4bk]\nI would like to save PDF from FiveWin PREVIEW. Do you know any class that I can use to create PDF report?  \n[/quote:3tsze4bk]\n\n\nGeorge,\n\nI have changed rpreview.prg  class, for let us to select a printer from window\'s preview.- If you have installed a pdf printer, you can select that printer and \"voilé\".','',0,'gA==','3tsze4bk',1,0,'',9,0,0),(17458,3946,2,375,0,'84.122.110.151',1156174911,1,0,1,1,1,1,'','','Pues muchas gracias Antonio. Todo aclarado.','',0,'gA==','r57k7d6e',1,0,'',375,0,0),(17459,3953,3,171,0,'71.232.193.197',1156177483,1,0,1,1,1,0,'','','&gt;Manuel write:\n&gt;I have changed rpreview.prg class, for let us to select a printer from &gt;window\'s preview.- If you have installed a pdf printer, you can select &gt;that printer and \"voilé\".\n\n\nManuel\n\nThat is a good start. Can I get the modification that you did to rpreview.prg?\n\nGeorge','',0,'gA==','35gebred',1,0,'',171,0,0),(17460,3945,3,335,0,'68.193.88.53',1156177628,1,0,1,1,1,0,'','','To make new text go to the right place, make sure that you do NOT use the following code with your memo field:  oMemo:bGotFocus := {|| SetPos(0,0) }\n\nIf you use the above code (which used to be needed in 16 bits to prevent automatic highlighting of text), then ::nPos will put the inserted text at the beginning of your memo\'s text.\n\nWithout the above bGotFocus, my TmultiGet puts the inserted or overstrike text exactly where I\'ve placed the cursor.\n\n- Roger','',0,'gA==','2dya8fvr',1,0,'',335,0,0),(17461,3921,7,490,0,'88.15.178.215',1156178539,1,0,1,1,1,0,'','','Biel,\n\n¿ Y como desconectas de internet una vez has acabado de enviar?\n\n\n\nUn Saludo,\nJoaquín','',0,'gA==','3sz4f7ke',1,0,'',490,0,0),(17462,3945,3,335,0,'68.193.88.53',1156179725,1,0,1,1,1,0,'','','Ramesh,\n\nThe more I think about it, the more unsure I am that my immediately previous post will solve the problem that you saw, and which I don\'t experience here.  Another possibility is that ::VarPut() which is a Tcontrol method accesses bSetGet, might be an issue here.  If you want to email your revised version of Mget.prg to me, along with the code you use to define work with your memo field, then I\'ll be glad to look at them and see if I can find something.  You can email me to: roger[at]leadersoft[dot]com.\n\n- Roger','',0,'','ypdsg99h',1,0,'',335,0,0),(17463,3945,3,335,0,'68.193.88.53',1156180831,1,0,1,1,1,0,'','','Another problem I\'ve discovered with my overstrike \"fix\" for Mget is that it only works for text that is manually keyed in, and does not work for text that is pasted in.  I\'ll figure out a way to make it work for pasting also.\n\n- Roger','',0,'','2izyn32p',1,0,'',335,0,0),(17464,3955,6,376,0,'201.230.16.4',1156182093,1,0,1,1,1,0,'','Anuncios en el Foro?','Antonio\n\nHoy lunes 21 al navegar al foro veo que tienes publicidad en el foro. Es correcto o te han hecho travesuras los Hackers?\n\nSaludos\n\nArmando','',0,'','am7ofpi4',1,0,'',376,0,0),(17465,3953,3,9,0,'85.60.43.37',1156182890,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:2plv1dmn]\nCan I get the modification that you did to rpreview.prg?\n[/quote:2plv1dmn]\n\nGeorge,\n\nYou can download from:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02caf68c16/rpreview.prg.html\">http://hyperupload.com/download/02caf68 ... w.prg.html</a><!-- m -->\n\nAll lines with \"mcn\" has been changed for me.\n\nRegards','',0,'gA==','2plv1dmn',1,0,'',9,0,0),(17466,3944,3,217,0,'200.159.120.34',1156183443,1,0,1,1,1,0,'','','Aoki,\n\nVocê deve compilar o folder.prg modificado junto com seu programa, ou então gerar as libs do FWH novamente.\n\nYou must compile folder.prg with your app or recreate FWH\'s lib.\n\nAbraços/Regards\nMaurilio','',0,'gA==','ohecd2sm',1,0,'',217,0,0),(17467,3956,2,542,0,'88.9.40.196',1156184917,1,0,1,1,1,0,'','Problemas con tWord y reemplazar variables','Hola amigos :\n\nHe utilizado lo desarrollado por Jose Gimenez y posteriormente modificado o aclarado por Manuel Valdenebro. WORDMCN.PRG. Y todo parece funcionar bien. Excepto que no consigo que lo puesto entre corchetes en el documento word lo reemplace por el dato del campo del fichero y esto hace que se quede en el bucle y no salga.\n\nPor si os puede ayudar a continuación pongo el codigo:\n\nstore Curdrive()                                                    to xdri\nstore xdri + \":\\\" + curdir(xdri) + \"\\\"                        to xdir\nstore xdir + \"EMP\" + empr + \"\\cert\" + ejer + \".doc\" to fich\nstore xdir + \"certmode.doc\"                                    to fic1\nif file (fich)\n  if MsgYesNo(\"El Certificado se ha emitido anteriormente,\" + chr(13) +;\n              \"        ¿ Desea recacerlo ?                \",\"Certificado existente\")\n    erase &amp;fich\n    opci11 = \"S\"\n  else\n    opci11 = \"N\"\n  endif\nelse\n  opci11 = \"S\"\nendif\nif opci11 = \"S\"\n  SELECT 1\n  use EMPRESA SHARE\n  OrdSetfocus(\"empre01\")\n  seek empr\n  oWord:=TOleAuto():New( \"Word.Application\" )\n  cPlantilla := (fic1)\n  oDoc :=oWord:Documents:Open(cPlantilla)    // abre el doc modelo\n  // nombre de la variable\n  cViejo := \"[EMPRESA_APELLIDOS]\"\n  cCampo := (FIELDGET (FIELDPOS(apellidos)))\n  cFich  := fich\n  cNuevo := (cFich)-&gt;(FIELDGET (FIELDPOS(cCampo)))\n  IF VALTYPE (cNuevo) = \"C\"  // tipo caracter\n     cNuevo := RTRIM (cNuevo)\n  ENDI\n  REEMPLACE (oDoc, cViejo, cNuevo )\n  oDoc := oWord:Get(\"ActiveDocument\")  // object (documento activo)\n  oDoc:Invoke( \"SaveAs\", cFich )       // graba fichero\n  oDoc:Invoke(\'Close\',0)               // cierra fichero\nendif\nclos data\noWord:=TOleAuto():New( \"Word.Application\" )\noWord:Documents:Open(fich)\noWord:Visible := .T.\noWord:Set( \"WindowState\", 1 )\noWord:End()\nOleUninitialize()\nRETURN (NIL)\n\nSTATIC FUNCTION REEMPLACE (oDoc, cViejo, cNuevo)\nLOCAL oSelection, oTexto, oFind\noSelection := oDoc\noTexto := oSelection:Range\noFind  := oTexto:Find\noFind:Text:= cViejo\noFind:Forward:=.T.\noFind:Wrap:= INT(1)\noFind:Format:=.f.\noFind:MatchCase:=.f.\noFind:Execute()\n\n*en este bucle se queda y no sale\n\nWHILE oFind:Found\n    oTexto:Text:=cNuevo\n    oFind:Execute()\nEnddo\nRETURN nil\n\nSi podeis ayudarme os lo agradeceria mucho.\n\nUn saludo\n\nCarlos','',0,'','26523tgg',1,0,'',542,0,0),(17468,3931,6,474,0,'201.135.169.67',1156186039,1,0,1,1,1,1,'','','pues algo he de andar haciendo mal, gracias por los comentarios','',0,'','255g2t5y',1,0,'',474,0,0),(17469,3953,3,171,0,'71.232.193.197',1156190714,1,0,1,1,1,0,'','','Manuel,\n\nThanks for your RPREVIEW.PRG  modified.\n\nWhen I try to compiler I get the following errors:\n\nSyntax error: \"parse error at \"IMAGELIST\"\nSyntax error: \"parse error at \"TOOLBAR\"\nSyntax error: \"parse error at \"TBBUTTON\"\nSyntax error: \"parse error at \"TBSEPARATOR\"\n\nAlso I get FixSay() and IsWin64() undefined function\n\nMaybe the errors are because I am using FWH 2.5\n\nRegards\n\n\nGeorge','',0,'','21eyjeun',1,0,'',171,0,0),(17470,3806,2,235,0,'201.140.42.223',1156192543,1,0,1,1,1,0,'','','el usuario lo usa asi\n\nentra a la opcion del menu de ventas (por decir algo) y a la opcion ventas,\naqui espera 5 seg. a que el usuario presione Alt+171 para que haga una remision (y no calcule impuestos), si el usuario no tecleo nada, entonces se hara una factura (calculando sus respectivos impuestos).\n\npuedo mandarte a tu correo privado el porque necesito esto???\n\nde antemano muchas gracias','',0,'','23g4hntz',1,0,'',235,0,0),(17471,3956,2,2,0,'87.218.146.167',1156192656,1,0,1,1,1,1,'','','Carlos,\n\nSi solo vas a reemplazar una vez el texto, te puedes evitar el bucle:\n[code:22furmdv]\nif oFind&#58;Found \n   oTexto&#58;Text&#58;=cNuevo \nendif\n[/code:22furmdv]','',0,'AIA=','22furmdv',1,0,'',2,0,0),(17472,3806,2,2,0,'87.218.146.167',1156192845,1,0,1,1,1,1,'','','Gerardo,\n\nY no es más simple preguntarle directamente ?\n[code:2aw7dmi2]\nIf MsgYesNo&#40; &quot;¿ Quiere factura ?&quot; &#41; \n   &#46;&#46;&#46;\nelse\n   &#46;&#46;&#46;\nendif\n[/code:2aw7dmi2]','',0,'AIA=','2aw7dmi2',1,0,'',2,0,0),(17473,3957,4,3,0,'82.255.86.94',1156193011,1,0,1,1,1,1,'','buttonbar ?','Antonio,\n\nIs standard buttonbar operational in fwppc ? <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nThanks\n\nRichard','',0,'AIA=','1piig1zt',1,0,'',3,0,0),(17474,3955,6,2,0,'87.218.146.167',1156193039,1,0,1,1,1,1,'','','Armando,\n\nEs correcto. Lo vamos a tener en pruebas un mes ó así, a ver que tal funciona <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','25awptkk',1,0,'',2,0,0),(17475,3957,4,2,0,'87.218.146.167',1156193467,1,0,1,1,1,1,'','','Richard,\n\nNot yet, but you can simulate it. Please review samples\\clients\\client.zip\\client.prg:\n\n[url=http&#58;//imageshack&#46;us:sme5xa81][img:sme5xa81]http&#58;//img183&#46;imageshack&#46;us/img183/9226/baraa7&#46;png[/img:sme5xa81][/url:sme5xa81]\n\nIts a sample developed by Carles Aubia that we distribute with FWPPC.','',0,'GA==','sme5xa81',1,0,'',2,0,0),(17476,3953,3,2,0,'87.218.146.167',1156193675,1,0,1,1,1,1,'','','George,\n\n&gt; Maybe the errors are because I am using FWH 2.5 \n\nYes, those classes and functions are in FWH 2.7. You may upgrade from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'GA==','1rgdbzdc',1,0,'',2,0,0),(17477,3953,3,9,0,'85.54.242.237',1156193771,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:36qpu5qp]Maybe the errors are because I am using FWH 2.5\n[/quote:36qpu5qp]\n\nGeorge,\n\nMay be.- Perhaps you have in FWH\\SOURCE\\CLASSES an old rpreview.prg version 2.5.- You can compare it with my version, and modifing/adding in your version only \"mcn-lines\".','',0,'gA==','36qpu5qp',1,0,'',9,0,0),(17478,3919,6,203,0,'200.63.228.95',1156194901,1,0,1,1,1,1,'','','Antonio \nPor favor me puede enviar los pasos a seguir y los costos para actualizar mi build, a mi correo\n\n<!-- e --><a href=\"mailto:easysoft@andinanet.net\">easysoft@andinanet.net</a><!-- e -->\n\nGracias\n\nSaludos\nOscar','',0,'gA==','3a8t2zvg',1,0,'',203,0,0),(17479,3953,3,6,0,'87.17.218.18',1156195642,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:13tzmfgd]http://hyperupload.com/download/02caf68c16/rpreview.prg.html[/quote:13tzmfgd]\n\nIf I\'m not missing something obvious you have a resource leak here:\n\n[code:13tzmfgd]func f_CamImpre &#40;oDevice, cCbx &#41;\nlocal cPrinter\n\n    cPrinter &#58;= GetProfString&#40; &quot;windows&quot;, &quot;device&quot; , &quot;&quot; &#41;\n    WriteProfString&#40; &quot;windows&quot;, &quot;device&quot;, cCbx &#41;\n    SysRefresh&#40;&#41;\n    PrinterInit&#40;&#41;\n    oDevice&#58;hDC &#58;= GetPrintDefault&#40; GetActiveWindow&#40;&#41; &#41;\n    SysRefresh&#40;&#41;\n    WriteProfString&#40; &quot;windows&quot;, &quot;device&quot;, cPrinter  &#41;\n\nRETURN nil[/code:13tzmfgd]\n\nYou should release oDevice:hDC before replacing it:\n\n[code:13tzmfgd]DeleteDC&#40; oDevice&#58;hDC &#41;\noDevice&#58;hDC &#58;= GetPrintDefault&#40; GetActiveWindow&#40;&#41; &#41;[/code:13tzmfgd]\n\nEMG','',0,'gIA=','13tzmfgd',1,0,'',6,0,0),(17480,3953,3,171,0,'71.232.193.197',1156196561,1,0,1,1,1,0,'','','Manuel\n\nThanks. Work perfect!\n\nI\'ll have to upgrade to FWH2.7 and xHarbour Professional ASAP\n\nGeorge','',0,'gIA=','3dfsu3mw',1,0,'',171,0,0),(17481,3958,3,207,0,'148.233.32.162',1156197908,1,0,1,1,1,0,'','Unresolved external \'_HB_FUN_OBJNEWCLS\' en tword','Que tal todos:\n Quiero usar la tWord pero al compilar me aparece este mensaje:\nUnresolved external  \'_HB_FUN_OBJNEWCLS\',\'_HB_FUN_OBJADDMET\',\'_HB_FUN_OBJSETUSERDATA\', entre otros parecidos,\nuso xMate, FW24 y xHarbour 93, por lo que he estado buscando debe ser un reacomodo de las lib , pero ya no se por donde....\n\nAgradezco su atencion y posibles comentarios, gracias\n\nAtte Miguel','',0,'gIA=','6bu6r2rv',1,0,'',207,0,0),(17482,3953,3,171,0,'71.232.193.197',1156199119,1,0,1,1,1,0,'','','Manuel\n\nThe only *PROBLEM* that we have is when select a different printer in preview screen, the output does not fit in the new printer. Please try selecting differents printer (e.g. Winfax)\n\nGeorge','',0,'gIA=','15uenio0',1,0,'',171,0,0),(17483,3959,3,34,0,'68.4.154.81',1156199246,1,0,1,1,1,1,'','Calculator in Get','Anyone have a sample of a calculator that can be included in a Get control which will return the value to the field ?\n\nThanks.','',0,'gIA=','30mm42ok',1,0,'',34,0,0),(17484,3953,3,171,0,'71.232.193.197',1156203816,1,0,1,1,1,0,'','','Manuel\n\nHere your function with a minor modification\n\n//------------------------------------------------------------------------\n// función para cambiar la impresora desde previo (mcn)\n//------------------------------------------------------------------------\nfunc f_CamImpre (oDevice, cCbx )\nlocal cPrinter\n\n    cPrinter := GetProfString( \"windows\", \"device\" , \"\" )\n    WriteProfString( \"windows\", \"device\", cCbx )\n    SysRefresh()\n    PrinterInit()\n    DeleteDC( oDevice:hDC )   // Sugestion by Enrico M. Giordano\n    oDevice:hDC := GetPrintDefault( GetActiveWindow() )\n    oWnd:End()  // To close current preview\n    // Insert here the function to create the report\n    SysRefresh()\n    WriteProfString( \"windows\", \"device\", cPrinter  )\n\nRETURN nil\n\n\n\nRegards\n\n\nGeorge','',0,'gIA=','1lsiuqfk',1,0,'',171,0,0),(17485,3960,2,760,0,'200.37.76.91',1156203976,1,0,1,1,1,0,'','fw2.0 y blinker 7.0','Hola amigos de foro\n\nSoy un programador medio y me comunico desde Peru..\nMi pregunta es como compilo y enlazo con el blinker 7.0, ya que uso el blinker 4.0 y todo ok... Pero cuando lo hago con el Blinker 7.0, no ejecuta nada?\nQue puede faltar, algun comando o nose ?','',0,'gIA=','2flug5p4',1,0,'',760,0,0),(17486,3945,3,335,0,'68.193.88.53',1156205408,1,0,1,1,1,0,'','','Nevermind. I see that standard Windows behavior when \"overstrike\" is on, is for a pasting of text to get inserted rather than to replace existing text. So the current behavior of TMultiGet is correct in this respect. Overstrike is only supposed to work with individual keystrokes, which is what the fix that I posted earlier enables. At least this fix works here if not for Ramesh.\n\n- Roger','',0,'gIA=','30ezkqxe',1,0,'',335,0,0),(17487,3945,3,190,0,'202.65.134.45',1156215816,1,0,1,1,1,0,'','','Hi Mr. Roger \n\nI am using FWH 2.7 July Build + xHarbour 0.99.61.\n\nI have not used [quote:aba43pjc]oMemo:bGotFocus := {|| SetPos(0,0) }[/quote:aba43pjc] \nanywhere in my test program.\n\nInspite of that I am not getting the expected result.\n\nBTW which version of fivewin you are using?\n\nI dont know how Mr.Antonio and his team has ignored this essential \nfeature!\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','aba43pjc',1,0,'',190,0,0),(17488,3959,3,56,0,'217.251.231.47',1156227148,1,0,1,1,1,1,'','','Hi Tim,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info/downloads/GetCalc.zip\">www.reportdesigner.info/downloads/GetCalc.zip</a><!-- w -->','',0,'gA==','cc7ohjz2',1,0,'',56,0,0),(17489,3958,3,2,0,'87.218.146.167',1156228133,1,0,1,1,1,1,'','','Miguel,\n\nCambia #include \"objects.ch\" por #include \"hbclass.ch\"','',0,'gA==','dc3o5y1g',1,0,'',2,0,0),(17490,3919,6,2,0,'87.218.146.167',1156228412,1,0,1,1,1,1,'','','Oscar,\n\nEnviado','',0,'gA==','1c74ljyj',1,0,'',2,0,0),(17491,3961,17,2,0,'87.218.146.167',1156228792,1,0,1,1,1,1,'','Calculator in Get','Developed by Timm Sodtalbers:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02dbcac645/GetCalc.zip.html\">http://hyperupload.com/download/02dbcac ... c.zip.html</a><!-- m -->','',0,'gA==','4nbxc8kk',1,0,'',2,0,0),(17492,3945,3,2,0,'87.218.146.167',1156229020,1,0,1,1,1,1,'','','Ramesh,\n\nWe are reviewing Roger\'s posts.','',0,'gA==','3h5g2n2s',1,0,'',2,0,0),(17493,3956,2,542,0,'83.61.41.157',1156231900,1,0,1,1,1,0,'','','Hola Antonio y gracias por tus ayudas. El problema le tengo en que no reemplaza, aunque le ponga lo que tu me indicas en el destino no cambia el [APELLIDOS] por el contenido del campo apellidos del fichero EMPRESA.\n\nUn saludo\n\nCarlos','',0,'','2zvk9bpl',1,0,'',542,0,0),(17494,3921,7,456,0,'217.127.39.57',1156236721,1,0,1,1,1,1,'','','Hola Joaquín,\nla verdad es que no utilizo desconexión ya que nuestro cliente tiene tarifa plana para GPRS y no va en funcion del tiempo sino del los kB. En cualquier caso se autodesconecta despues de 60s de inactividad.\n\nRevisando la informacion en MSDN, he visto que el connection manager dispone de una funcion para desconexión [b:v9brrff1]ConnMgrReleaseConnection[/b:v9brrff1]. No la he probado, pero se supone que funciona.','',0,'QA==','v9brrff1',1,0,'',456,0,0),(17495,3956,2,2,0,'87.218.146.167',1156237164,1,0,1,1,1,1,'','','Carlos,\n\nIgual no le gusta el guión bajo de EMPRESA_APELLIDOS. Prueba a cambiarlo a EMPRESAAPELLIDOS','',0,'QA==','2jr5qji4',1,0,'',2,0,0),(17496,3962,20,76,0,'80.17.137.201',1156239240,1,0,1,1,1,1,'','KEYBOARD status','Ho ritrovato un msg di EMG sulle luci della tastiera disallineate al contenuto della status bar, che quoto:\n[quote:3q7vp54d]\nWhen KEYBOARD clause is used we can click with the mouse on the Num, Caps and Ins items to toggle their status. But, specifically for Num and Caps, the status change is not reflected by the keyboard light and this brings to an inconsistency between the status itself and what the keyboard lights say. \n\nPossible fixes are: \n\n1) remove the item click at least on Num and Caps (but I would remove it on Ins also). \n\n2) use the appropriate API to correctly change the lights status. \n\nFor the point 2, the following sample is from Francesco Saverio Giudice: \n\nCode: \n#include \"common.ch\" \n\nPROCEDURE MAIN() \n\n   ? \"Attiva capslock\" \n   SetCapsLock( TRUE ) \n\n   Inkey( 0 ) \n\n   ? \"Attiva numlock\" \n   SetNumLock( TRUE ) \n\n   Inkey( 0 ) \n\n   ? \"Stato CAPSLOCK : \" + IIF( GetCapsLock(), \"ON \", \"OFF\" ) \n   ? \"Stato NUMLOCK  : \" + IIF( GetNumLock(), \"ON \", \"OFF\" ) \n\n   Inkey( 0 ) \n\n   ? \"Disattiva capslock\" \n   SetCapsLock( FALSE ) \n\n   Inkey( 0 ) \n\n   ? \"Disattiva numlock\" \n   SetNumLock( FALSE ) \n\n   Inkey( 0 ) \n\n   ? \"Stato CAPSLOCK : \" + IIF( GetCapsLock(), \"ON \", \"OFF\" ) \n   ? \"Stato NUMLOCK  : \" + IIF( GetNumLock(), \"ON \", \"OFF\" ) \n\n   Inkey( 0 ) \n\nRETURN \n\n\n#pragma BEGINDUMP \n\n#include &lt;windows.h&gt; \n\n#include \"hbapi.h\" \n\n#define TOGGLED 0x0001 \n\nvoid SetKeyLock( BYTE vKey, BOOL bState ) \n{ \n   BOOL bCurrentState; \n\n   bCurrentState = ( GetKeyState( vKey ) &amp; TOGGLED ); \n\n   if( (bState &amp;&amp; !bCurrentState) || \n       (!bState &amp;&amp; bCurrentState) ) \n   { \n      // Simulate a key press \n      keybd_event( vKey, \n                   0, \n                   KEYEVENTF_EXTENDEDKEY | 0, \n                   0 ); \n\n      // Simulate a key release \n      keybd_event( vKey, \n                   0, \n                   KEYEVENTF_EXTENDEDKEY | KEYEVENTF_KEYUP, \n                   0); \n   } \n} \n\nBOOL GetKeyLock( int vKey ) \n{ \n   return ( GetKeyState( vKey ) &amp; TOGGLED ); \n} \n\nHB_FUNC( SETCAPSLOCK ) \n{ \n   SetKeyLock( VK_CAPITAL, hb_parl( 1 ) ); \n} \n\nHB_FUNC( SETNUMLOCK ) \n{ \n   SetKeyLock( VK_NUMLOCK, hb_parl( 1 ) ); \n} \n\nHB_FUNC( GETCAPSLOCK ) \n{ \n   hb_retl( GetKeyLock( VK_CAPITAL ) ); \n} \n\nHB_FUNC( GETNUMLOCK ) \n{ \n   hb_retl( GetKeyLock( VK_NUMLOCK ) ); \n} \n\n#pragma ENDDUMP \n\n\nEMG\n_________________\nEMAG Software Homepage: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/\">http://www.emagsoftware.it/</a><!-- m --> \nThe EMG\'s ZX-Spectrum Page: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/spectrum\">http://www.emagsoftware.it/spectrum</a><!-- m --> \nThe Best of Spectrum Games: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/tbosg\">http://www.emagsoftware.it/tbosg</a><!-- m --> \nThe EMG Music page: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/emgmusic\">http://www.emagsoftware.it/emgmusic</a><!-- m -->\n[/quote:3q7vp54d]\n\nqualcuno nel frattempo ha trovato soluzioni?\nuso ancora fw 2.6','',0,'gA==','3q7vp54d',1,0,'',76,0,0),(17497,3963,20,76,0,'80.17.137.201',1156239405,1,0,1,1,1,1,'','compilazione C dei sorgenti FWH','quali opzioni vanno specificate per ricompilare alcuni sorgenti (fonts.c, ecc.) dei sources delle FWH 2.6 con borland bcc32?\nqualcuno potrebbe postare un semplice batch che fa tutto, compreso il reinserimento nella libreria fivehc.lib?\n\ngrazie, a presto  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2dcuzrcv',1,0,'',76,0,0),(17498,3952,19,328,0,'72.252.68.226',1156241184,1,0,1,1,1,0,'','','Gracias Antonio, ya me temía que eso pasaba con lo de los correos de Yahoo. Muchas gracias por la aclaración.\n\nSaludos.\n\nCarlos Sincuir','',0,'gA==','1u23aixa',1,0,'',328,0,0),(17499,3963,20,6,0,'87.6.210.244',1156246435,1,0,1,1,1,1,'','Re: compilazione C dei sorgenti FWH','Per xHarbour:\n\n[code:26nfpyvt]@ ECHO OFF\n\nCOPY c&#58;\\fwharbour\\source\\function\\*&#46;prg\nCOPY c&#58;\\fwharbour\\source\\winapi\\*&#46;prg\nCOPY c&#58;\\fwharbour\\source\\classes\\*&#46;prg\n\nDEL expbuild&#46;prg\nDEL db10&#46;prg\nDEL odbc32&#46;prg\nDEL dbm&#46;prg\nDEL vbxctrl&#46;prg\nDEL _index&#46;prg\nDEL dbms&#46;prg\nDEL ddeserv&#46;prg\nDEL field&#46;prg\nDEL tnewsins&#46;prg\nDEL c3&#46;prg\n\nSET HARBOURCMD=/a /es1 /gc0 /l /m /n /q /w\nSET INCLUDE=c&#58;\\fwharbour\\include;c&#58;\\xharbour\\include\nFOR %%i IN &#40;*&#46;prg&#41; DO c&#58;\\xharbour\\harbour %%i\nSET HARBOURCMD=\nSET INCLUDE=\nIF EXIST *&#46;prg DEL *&#46;prg\n\nFOR %%i IN &#40;*&#46;c&#41; DO c&#58;\\bcc55\\bin\\bcc32 +xharbour&#46;cfg -c %%i\nIF EXIST *&#46;c DEL *&#46;c\n\nFOR %%i IN &#40;*&#46;obj&#41; DO c&#58;\\bcc55\\bin\\tlib Fivehx /P32 +%%i\nIF EXIST *&#46;obj DEL *&#46;obj\nIF EXIST *&#46;bak DEL *&#46;bak\n\nIF EXIST fivehx&#46;lib COPY fivehx&#46;lib c&#58;\\fwharbour\\lib\nIF EXIST fivehx&#46;lib DEL fivehx&#46;lib[/code:26nfpyvt]\n\ndove xharbour.cfg è\n\n[code:26nfpyvt]-5\n-DHB_FM_STATISTICS_OFF\n-DHB_GUI\n-DHB_NO_PROFILER\n-DHB_NO_TRACE\n-DHB_WIN32_IO\n-Ic&#58;\\fwharbour\\include;c&#58;\\xharbour\\include;c&#58;\\bcc55\\include\n-k-\n-O1\n-O2\n-OS\n-Ov\n-v-\n-W\n-w\n-w-inl-[/code:26nfpyvt]\n\nControlla i percorsi!\n\nEMG','',0,'AIA=','26nfpyvt',1,0,'',6,0,0),(17500,3962,20,6,0,'87.6.210.244',1156246606,1,0,1,1,1,1,'','Re: KEYBOARD status','Le due soluzioni che ho proposto non vanno bene?\n\nEMG','',0,'AIA=','27qvb39x',1,0,'',6,0,0),(17501,3857,1,173,0,'202.57.146.225',1156253781,1,0,1,1,1,0,'','Thank you very much','Deai Taiwan,\n\nThank you for your suggestion, I\'m got it.\n\n\nBest ReGrad <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1u8biibc',1,0,'',173,0,0),(17502,3913,3,213,0,'24.175.56.72',1156254450,1,0,1,1,1,0,'','','Here is some sample code to get you started.  I\'m sorry it\'s kind of a hack job but I\'d be happy to answer any questions if I can.   This code works with FWH/xHarbour.  You can get info on all the methods and data using the link below.\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/MapPoint2006/BIZOMOMap.asp\">http://msdn.microsoft.com/library/defau ... OMOMap.asp</a><!-- m -->\n\n\n#INCLUDE \"fivewin.CH\"\n#INCLUDE \"commands.ch\"\n\n#define CRLF Chr( 13 ) + Chr( 10 )\n\n#DEFINE geoDelimiterComma       44\n#DEFINE geoDelimiterDefault     0\n#DEFINE geoDelimiterSemicolon   59\n#DEFINE geoDelimiterTab         9\n\n#DEFINE geoDisplayBalloon     2\n#DEFINE geoDisplayName        1\n#DEFINE geoDisplayNone        0\n\nSTATIC oWndMap\nSTATIC oMapPoint\n\n/*\nThis version calls mappoint via ole and actually opens an instance of the mappoint application\n*/\n   \nPROCEDURE MapPoint()\n\n   LOCAL oMapDS\n   LOCAL oRecordSet\n   LOCAL oRoute\n   LOCAL oWaypoints\n   LOCAL aFields := {}, i\n   LOCAL hWnd\n\n   TRY\n      oMapPoint := GetActiveObject( \"MapPoint.Application\" )\n   CATCH\n      TRY\n         oMapPoint := CreateObject( \"MapPoint.Application\" )\n      CATCH\n         Msginfo( \"Map Point not avialable.\" )\n         // For some reason, using ole2TxtError causes gpf! \n*        Msginfo( \"ERROR! MapPoint not avialable. [\" + Ole2TxtError()+ \"]\" )\n         RETURN NIL\n      END\n   END   \n\n   oMapPoint:NewMap(1)\n   oMapPoint:Toolbars:Item(\"Standard\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Navigation\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Drawing\"):Visible := .T. \n   oMapPoint:Toolbars:Item(\"Location and Scale\"):Visible := .T. \n   oMapPoint:PaneState := 1  // Turn on legend for route planer\n  \n   // These two only valid for mappoint application object, not a control object\n   oMapPoint:Visible := .T.\n   oMapPoint:UserControl := 1  // Give control to user\n \n   oWndMap:oClient = oMapPoint // To fill the entire window surface\n\n   // Import data - automatically adds a dataset object to the datasets collection\n   // There doesn\'t seem to be a way to create an empty dataset\n   // Importing seems to be the fastest way.  Using FindAddressResults is way to slow...\n   // You can use a .csv or .Txt file.  Have to specify a delimiter if using .txt\n*  oMapPoint:ActiveMap:DataSets:ImportData(\"merge.csv\")\n   oMapPoint:ActiveMap:DataSets:ImportData(\"merge.txt\", , ,geoDelimiterComma) // Have to specify geoDelimiterComma\n\n*  msginfo( oMapPoint:ActiveMap:DataSets:Count, \"DataSets Count\" )\n*  msginfo( oMapPoint:ActiveMap:Path, \"DataSets Path\" )\n   \n   // Use the Item property of the DataSets object to access each DataSet objects.  Can use index or name as subscript\n   \n   // Set the pushpin symbol\n   oMapPoint:ActiveMap:DataSets:Item(1):Symbol := 1\n*  oMapPoint:ActiveMap:DataSets:Item(2):Symbol := 2\n   \n   // Set the name of the DataSet\n   oMapPoint:ActiveMap:DataSets:Item(1):Name   := \"1\"\n*  oMapPoint:ActiveMap:DataSets:Item(2):Name   := \"Route 2\"\n\n   // Choose which fields to display in balloon.  Defaults to name and address.  Below uses all fields passing the fields collection object\n   FOR i := 1 TO oMapPoint:ActiveMap:DataSets:Item(1):Fields:Count\n      aadd( aFields,oMapPoint:ActiveMap:DataSets:Item(1):Fields[i] )\n   NEXT \n   oMapPoint:ActiveMap:DataSets:Item(1):SetFieldsVisibleInBalloon( aFields )\n\n   // Zoom to the datasets on map\n   oMapPoint:ActiveMap:DataSets:ZoomTo()\n\n   // Display the balloon for the first address\n   oMapPoint:ActiveMap:DataSets:Item(1):QueryAllRecords:Pushpin:BalloonState = geoDisplayBalloon\n\n   // Return RecordSet for DataSet\n   oRecordSet := oMapPoint:ActiveMap:DataSets:Item(1):QueryAllRecords\n\n   // Initialize counter subscript \n   i := 1\n   // Add WayPoints for each record in the RecordSet\n   DO WHILE !oRecordSet:EOF\n      // Add WayPoint for each location in the recordset\n      oMapPoint:ActiveMap:ActiveRoute:WayPoints:Add(oRecordSet:Location)\n      // Set the PreferredArrival time\n*     oMapPoint:ActiveMap:ActiveRoute:WayPoints:Item(1):PreferredArrival := oRecordSet:Fields:Item(8):Value\n      // Set start time for route.  Although I can\'t read datetime data type the value can be set.\n      // Have to set here because there is no way to simply move to the last record in the recordset.\n      // The recordset is in the opposite order that the records are imported.\n*     IF !empty( oRecordSet:Fields:Item(8):Value )\n*        MSGINFO( MapTime( oRecordSet:Fields:Item(9):Value ), i )\n*        oMapPoint:ActiveMap:ActiveRoute:DriverProfile:StartTime := MapTime( oRecordSet:Fields:Item(9):Value )\n*     ENDIF\n      oRecordSet:MoveNext()\n      i++\n   ENDDO\n\n   // Return a Waypoints collection object\n   oWaypoints := oMapPoint:ActiveMap:ActiveRoute:Waypoints\n   // Loop thru WayPoints collection setting StopTime for each stop\n*  FOR i := 1 TO oWaypoints:Count\n*     oWaypoints:Item(i):StopTime := .125    // 3 hrs 3/24 = .125\n*  NEXT \n  \n   // Sample code adding a pushpin using FindResults method\n   // Add a new pushpin set \n/* oMapPoint:ActiveMap:DataSets:AddPushpinSet(\"NewSet 1\")\n   oMapPoint:ActiveMap:DataSets:AddPushpinSet(\"NewSet 2\")\n   // Creates a FindResults Collection object with one location object\n   do while !eof()\n     oLoc := oMapPoint:ActiveMap:FindAddressResults( alltrim(Customer-&gt;addr1), alltrim(Customer-&gt;city), alltrim(Customer-&gt;state), alltrim(Customer-&gt;zip), )\n     oMapPoint:ActiveMap:AddPushpin( oLoc:Item(1), alltrim( Customer-&gt;name) )\n     dbskip()\n   enddo\n   oMapPoint:ActiveMap:DataSets:ZoomTo()\n   oLoc := oMapPoint:ActiveMap:FindAddressResults(\"123 main st\", \"houston\", \"TX\", \"77074\", )\n   oMapPoint:ActiveMap:AddPushpin( oLoc:Item(1), \"John Smith\" )   */\n\nRETURN NIL','',0,'','x9js7hzm',1,0,'',213,0,0),(17503,3955,6,36,0,'164.77.81.210',1156256204,1,0,1,1,1,0,'','','Antonio:\n\nLa publicidad ahora esta saliendo con popup, y verdad que se pone latera la cosa\n\nSaludos\nPatricio','',0,'','6oslqo38',1,0,'',36,0,0),(17504,3945,3,335,0,'68.193.88.53',1156256786,1,0,1,1,1,0,'','','Ramesh,\n\nI\'m using FWH 2.7 as of March, 2006 and xHarbour Builder of the same date.\n\nUnfortunately, I haven\'t been able to deduce why this workaround isn\'t working for you.  It works okay on my apps.  Maybe Antonio will create a better solution.\n\n- Roger','',0,'','6sg3d53o',1,0,'',335,0,0),(17505,3964,6,171,0,'71.232.193.197',1156257402,1,0,1,1,1,0,'','Funcion para actualizacion a traves de internet','Esto lo desarolle para las actualizaciones automaticas a taves de internet.\nSi algun compañero del foro le quiere hacer alguna mejora bienvenido.\n\n\n[code:rmwkqt2s]FUNCTION Main&#40;&#41;\n// En este ejemplo el nombre de nuestro programa es \'MyProgram&#46;exe\'\n// el nombre de la nueva version a bajar del server es \'_MyProgram&#46;exe\'\n\n  //Añadir al inicio del programa\n\n  // Nombre de la aplicacion que esta corriendo, incluyendo la ruta\n  cPathAppliName &#58;= 	alltrim&#40;hb_argv&#40; 0 &#41;&#41;\n  nLen &#58;= len&#40;cPathAppliName&#41;\n  nAtNum &#58;= atnum&#40; &quot;\\&quot;, cPathAppliName&#41;\n  nPos &#58;= nLen - nAtNum\n\n  // Nombre de la aplicacion que esta corriendo unicamente\n  // Puede ser \'MyProgram&#46;exe\' o &quot;_MyProgram&#46;exe&quot;\n  cAppliName &#58;= right&#40;cPathAppliName, nPos&#41;\n\n  // Nombre original de mi programa\n  cOrigAppli &#58;= alltrim&#40;cAppliDir&#41; + &quot;\\MyProgram&#46;exe&quot;\n\n  // Ck si esta corriendo el update recien bajado\n	IF upper&#40;&#40;cPathAppliName&#41;&#41; &lt;&gt; upper&#40;&#40;cOrigAppli&#41;&#41;\n		 // Esta corriendo la nueva version\n\n		 // Borrar la version original \'MyProgram&#46;exe\'\n		 ferase&#40;cOrigAppli&#41; &lt;&gt; 0\n		 syswait&#40;1&#41;\n\n		 // Renombrar la nueva version con el nombre de mi programa original\n		 RENAME  &quot;_MyProgram&#46;exe&quot; TO &quot;MyProgram&#46;exe&quot;\n	ENDIF\n\n	/*\n\n	Su codigo de su programa\n\n	*/\n\n\nRETURN &#40;&#46;T&#46;&#41;\n\n\nFUNCTION CkUpdate&#40;&#41;\n	// Esta es la funcion que se debe ejecutar para\n	//verificar si existe una nueva version del programa\n\n	dbselectarea&#40;&quot;PATHFILE&quot;&#41;                     // Archivo donde estan los parametros del server\n	cAlias &#58;= alias&#40;&#41;\n	GO 1\n\n	cServFtp &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;SERVER&#41; // Direccion del server\n	cUserFTp &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;USER&#41;   // User  Name\n	cPassFTp &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;PASSW&#41;   // Password\n	cServPath &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;SERPATH&#41; // Ruta del server donde esta \'_MyProgram&#46;exe\'\n	cVersion2 &#58;= &#40;cAlias&#41;-&gt;VERSION          // Version actual de \'MyProgram&#46;exe\'\n\n	Dbcloseall&#40;&#41;\n\n	// Ir al server a bajar la informacion de la nueva version, si existe\n	IF !GetUpdateFromServer&#40;cServFtp, cUserFTp, cPassFTp, cServPath, cVersion2 &#41;\n		// No existe nueva version o la conexion al server fallo\n		RETURN &#46;F&#46;\n	ENDIF\n\n	// Se bajo del server la nueva version \'_MyProgram&#46;exe\'\n	cFileExe &#58;= &#40;cAppliDir&#41; + &quot;\\_MyProgram&#46;exe&quot;\n\n	OpenFiles&#40;&#41; // Funcion para abrir los archivos &#40;tablas&#41; de la base de datos\n\n	// Correr la nueva version bajada del server \'\'_MyProgram&#46;exe\'\n	WinExec&#40;&quot;_MyProgram&#46;exe&quot;&#41;\n\n	// \'Matar\' el programa actual \'MyProgram&#46;exe\'\n	PostQuitMessage&#40;0&#41;\n	__Quit&#40;&#41;\n\nRETURN &#40;&#46;T&#46;&#41;\n\n\nFunction GetUpdateFromServer&#40; cServFtp, cUserFTp, cPassFTp, cServPath, cVersion2 &#41;\n\n	Local oInternet, oFtp, oMeter, oText\n	Local cTitle &#58;= &quot;Connecting to SDN Server&quot;, lExistAlt &#58;= &#46;F&#46;\n	LOCAL hInternet, hConnect, cAlias, cAlias1, cNewTitle, lGetFileAll &#58;= &#46;F&#46;\n\n	PRIVATE oSay\n\n	// Dialogo con un mensaje indicando la conexion al server\n	DEFINE DIALOG oDlg RESOURCE &quot;DIALOG_13&quot;;\n		TITLE cTitle\n\n	REDEFINE SAY oSay ID 55 of oDlg\n\n	ACTIVATE DIALOG oDlg NOWAIT\n\n	oSay&#58;SetText &#40;&quot;Checking for update&#46;&#46;&#46;&#46;&quot;&#41;\n\n	hLib = LOADLIBRARY&#40; &quot;wininet&#46;dll&quot; &#41;\n\n	hInternet = INETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n	hConnect = INETCONNECT&#40; hInternet, cServFtp, INTERNET_INVALID_PORT_NUMBER,;\n		cUserFTp, cPassFTp, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n	IF hConnect = 0\n		MsgAlert&#40;&quot;Connection to server failed!&quot; + chr&#40;13&#41;+;\n			&quot;Please check your internet connection and try later&#46;&quot;&#41;\n		oDlg&#58;end&#40;&#41;\n		OpenFiles&#40;&#41;  // Funcion para abrir los archivos &#40;tablas&#41; de la base de datos\n		RETURN &#46;F&#46;\n	ENDIF\n\n\n	// P_VERS&#46;DBF es un archivo con un campo con el No&#46; de la version\n	cDownUPD &#58;= cAppliDir + &quot;\\P_VERS&#46;DBF&quot;\n	cLastUPD &#58;= cServPath + &quot;/P_VERS&#46;DBF&quot;\n\n	lGetLastUPD &#58;= FTPGETFILE&#40; hConnect, cLastUPD, cDownUPD, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n\n	IF !lGetLastUPD\n		MsgAlert&#40;&quot;P_VERS Downloaded failed!&quot; + chr&#40;13&#41; +;\n			&quot;Please check your internet connection!&quot;&#41;\n		INETCLOSEHANDLE&#40; hConnect &#41;\n		INETCLOSEHANDLE&#40; hInternet &#41;\n		FREELIBRARY&#40; hLib &#41;\n		OpenFiles&#40;&#41;\n		oDlg&#58;End&#40;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n\n	OpenFiles&#40;&#41;\n\n	dbselectarea&#40;&quot;P_VERS&quot;&#41;\n	cAlias &#58;= alias&#40;&#41;\n	GO 1\n	cVersion1 &#58;= &#40;cAlias&#41;-&gt;VERSION\n\n	dbcloseall&#40;&#41;\n\n	// Se compara el No&#46; de la version del programa corriendo\n	// con el No&#46; de la version del programa en el server\n	IF alltrim&#40;cVersion1&#41; == alltrim&#40;cVersion2&#41;\n\n		// Si es el mismo numero no se baja la version del programa que esta en el Server\n		Msginfo&#40;&quot; You already have the most recent version&#46;&quot;&#41;\n		INETCLOSEHANDLE&#40; hConnect &#41;\n		INETCLOSEHANDLE&#40; hInternet &#41;\n		FREELIBRARY&#40; hLib &#41;\n		OpenFiles&#40;&#41;\n		oDlg&#58;End&#40;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n\n\n	// Si son diferentes se baja la version del programa que esta en el Server\n	cDataSDN &#58;= cServPath + &quot;/_MyProgram&#46;exe&quot;\n	cPathDir &#58;= cAppliDir + &quot;\\_MyProgram&#46;exe&quot;\n\n	oDlg&#58;End&#40;&#41;\n\n	MsgRun&#40; &quot;Downloading Update Files Please Wait&#46;&#46;&#46;&quot;, &quot;My Program&quot;,;\n		&#123; || lGetFileAll &#58;= FTPGETFILE&#40; hConnect, cDataSDN, cPathDir, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41; &#125; &#41;\n\n	IF !lGetFileAll\n		MsgAlert&#40;&quot;File Downloaded failed!&quot; + chr&#40;13&#41; +;\n			&quot;Please check your internet connection!&quot;&#41;\n		INETCLOSEHANDLE&#40; hConnect &#41;\n		INETCLOSEHANDLE&#40; hInternet &#41;\n		FREELIBRARY&#40; hLib &#41;\n		OpenFiles&#40;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n\n	INETCLOSEHANDLE&#40; hConnect &#41;\n	INETCLOSEHANDLE&#40; hInternet &#41;\n	FREELIBRARY&#40; hLib &#41;\n\n	oDlg&#58;end&#40;&#41;\nRETURN &#46;T&#46;[/code:rmwkqt2s]\n\n\nGeorge','',0,'AIA=','rmwkqt2s',1,0,'',171,0,0),(17506,3913,3,330,0,'217.37.54.49',1156257847,1,0,1,1,1,0,'','','Thankls Randal will give it a try\n\n\nPeter','',0,'AIA=','2cgx8ql0',1,0,'',330,0,0),(17507,3965,3,171,0,'71.232.193.197',1156259867,1,0,1,1,1,0,'','Function for Automatic Update','Below the functions that I am using to do automatic update from Internet server. Any comments or enhancement are welcome\n\n\nGeorge \n\n\n[code:36akm1n3]\nFUNCTION Main&#40;&#41;\n	// In this sample the name of our program is \'MyProgram&#46;exe\'\n	//The name of the version to be downloaded from internet server is \'_MyProgram&#46;exe\'\n\n  //Add to the start of your program\n\n  // Name of the running program, including the path\n  cPathAppliName &#58;= 	alltrim&#40;hb_argv&#40; 0 &#41;&#41;\n  nLen &#58;= len&#40;cPathAppliName&#41;\n  nAtNum &#58;= atnum&#40; &quot;\\&quot;, cPathAppliName&#41;\n  nPos &#58;= nLen - nAtNum\n\n  // name of the running program only\n  // Could be  \'MyProgram&#46;exe\' oor &quot;_MyProgram&#46;exe&quot;\n  cAppliName &#58;= right&#40;cPathAppliName, nPos&#41;\n\n  // Original program name\n  cOrigAppli &#58;= alltrim&#40;cAppliDir&#41; + &quot;\\MyProgram&#46;exe&quot;\n\n  // Ck if is running the downloaded program &quot;_MyProgram&#46;exe&quot;\n	IF upper&#40;&#40;cPathAppliName&#41;&#41; &lt;&gt; upper&#40;&#40;cOrigAppli&#41;&#41;\n		 // Yes is running the new vesionn!!!\n\n		 // Erase the original \'MyProgram&#46;exe\'\n		 ferase&#40;cOrigAppli&#41; &lt;&gt; 0\n		 syswait&#40;1&#41;\n\n		 // Rename the new version with the name of the original version\n		 RENAME  &quot;_MyProgram&#46;exe&quot; TO &quot;MyProgram&#46;exe&quot;\n	ENDIF\n\n	/*\n\n	Your code\n\n	*/\n\n\nRETURN &#40;&#46;T&#46;&#41;\n\n\nFUNCTION CkUpdate&#40;&#41;\n	// This is the function that you execute to verify\n	// if exist a new version of your software\n\n	dbselectarea&#40;&quot;PATHFILE&quot;&#41; // File with server\'s parameters\n	cAlias &#58;= alias&#40;&#41;\n	GO 1\n\n	cServFtp &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;SERVER&#41; // Server address\n	cUserFTp &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;USER&#41;   // User  Name\n	cPassFTp &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;PASSW&#41;   // Password\n	cServPath &#58;= alltrim&#40;&#40;cAlias&#41;-&gt;SERPATH&#41; // Server path for _MyProgram&#46;exe\'\n	cVersion2 &#58;= &#40;cAlias&#41;-&gt;VERSION          // Current Version of \'MyProgram&#46;exe\'\n\n	Dbcloseall&#40;&#41;\n\n	// Go to the server to download last version number\n	IF !GetUpdateFromServer&#40;cServFtp, cUserFTp, cPassFTp, cServPath, cVersion2 &#41;\n		// Do not exist a new version or connection to server failed\n		RETURN &#46;F&#46;\n	ENDIF\n\n	// New version \'_MyProgram&#46;exe\' has beeb downloaded from internet server\n	cFileExe &#58;= &#40;cAppliDir&#41; + &quot;\\_MyProgram&#46;exe&quot;\n\n	OpenFiles&#40;&#41; // Function to open the database\n\n	// RUN THE NEW VERSION \'_MYPROGRAM&#46;EXE\' DOWNLOADED FROM INTERNET SERVER\n	WinExec&#40;&quot;_MyProgram&#46;exe&quot;&#41;\n\n	// \'KILL\' THE CURRENT SOFTWARE \'MYPROGRAM&#46;EXE\'\n	PostQuitMessage&#40;0&#41;\n	__Quit&#40;&#41;\n\nRETURN &#40;&#46;T&#46;&#41;\n\n\nFunction GetUpdateFromServer&#40; cServFtp, cUserFTp, cPassFTp, cServPath, cVersion2 &#41;\n\n	Local oInternet, oFtp, oMeter, oText\n	Local cTitle &#58;= &quot;Connecting to SDN Server&quot;, lExistAlt &#58;= &#46;F&#46;\n	LOCAL hInternet, hConnect, cAlias, cAlias1, cNewTitle, lGetFileAll &#58;= &#46;F&#46;\n\n	PRIVATE oSay\n\n	// Dialog with a message indicating conection to server\n	DEFINE DIALOG oDlg RESOURCE &quot;DIALOG_13&quot;;\n		TITLE cTitle\n\n	REDEFINE SAY oSay ID 55 of oDlg\n\n	ACTIVATE DIALOG oDlg NOWAIT\n\n	oSay&#58;SetText &#40;&quot;Checking for update&#46;&#46;&#46;&#46;&quot;&#41;\n\n	hLib = LOADLIBRARY&#40; &quot;wininet&#46;dll&quot; &#41;\n\n	hInternet = INETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n	hConnect = INETCONNECT&#40; hInternet, cServFtp, INTERNET_INVALID_PORT_NUMBER,;\n		cUserFTp, cPassFTp, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n	IF hConnect = 0\n		MsgAlert&#40;&quot;Connection to server failed!&quot; + chr&#40;13&#41;+;\n			&quot;Please check your internet connection and try later&#46;&quot;&#41;\n		oDlg&#58;end&#40;&#41;\n		OpenFiles&#40;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n\n\n	// P_VERS&#46;DBF is a file wih one field with the Program  Version Number\n	cDownUPD &#58;= cAppliDir + &quot;\\P_VERS&#46;DBF&quot;\n	cLastUPD &#58;= cServPath + &quot;/P_VERS&#46;DBF&quot;\n\n	lGetLastUPD &#58;= FTPGETFILE&#40; hConnect, cLastUPD, cDownUPD, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n\n	IF !lGetLastUPD\n		MsgAlert&#40;&quot;P_VERS Downloaded failed!&quot; + chr&#40;13&#41; +;\n			&quot;Please check your internet connection!&quot;&#41;\n		INETCLOSEHANDLE&#40; hConnect &#41;\n		INETCLOSEHANDLE&#40; hInternet &#41;\n		FREELIBRARY&#40; hLib &#41;\n		OpenFiles&#40;&#41;\n		oDlg&#58;End&#40;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n\n	OpenFiles&#40;&#41;\n\n	dbselectarea&#40;&quot;P_VERS&quot;&#41;\n	cAlias &#58;= alias&#40;&#41;\n	GO 1\n	cVersion1 &#58;= &#40;cAlias&#41;-&gt;VERSION\n\n	dbcloseall&#40;&#41;\n\n	// Compare the VERSION No&#46; of the current software that is running\n	// with the VERSION No&#46; of the software that is in internet server\n	IF alltrim&#40;cVersion1&#41; == alltrim&#40;cVersion2&#41;\n		// If is the same number, ther are not new version&#46;\n		Msginfo&#40;&quot; You already have the most recent version&#46;&quot;&#41;\n		INETCLOSEHANDLE&#40; hConnect &#41;\n		INETCLOSEHANDLE&#40; hInternet &#41;\n		FREELIBRARY&#40; hLib &#41;\n		OpenFiles&#40;&#41;\n		oDlg&#58;End&#40;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n\n\n	// If different proceed to download the new program version that is in the Server\n	cDataSDN &#58;= cServPath + &quot;/_MyProgram&#46;exe&quot;\n	cPathDir &#58;= cAppliDir + &quot;\\_MyProgram&#46;exe&quot;\n\n	oDlg&#58;End&#40;&#41;\n\n	MsgRun&#40; &quot;Downloading Update Files Please Wait&#46;&#46;&#46;&quot;, &quot;My Program&quot;,;\n		&#123; || lGetFileAll &#58;= FTPGETFILE&#40; hConnect, cDataSDN, cPathDir, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41; &#125; &#41;\n\n	IF !lGetFileAll\n		MsgAlert&#40;&quot;File Downloaded failed!&quot; + chr&#40;13&#41; +;\n			&quot;Please check your internet connection!&quot;&#41;\n		INETCLOSEHANDLE&#40; hConnect &#41;\n		INETCLOSEHANDLE&#40; hInternet &#41;\n		FREELIBRARY&#40; hLib &#41;\n		OpenFiles&#40;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n\n	INETCLOSEHANDLE&#40; hConnect &#41;\n	INETCLOSEHANDLE&#40; hInternet &#41;\n	FREELIBRARY&#40; hLib &#41;\n\n	oDlg&#58;end&#40;&#41;\nRETURN &#46;T&#46;\n\n[/code:36akm1n3]','',0,'AIA=','36akm1n3',1,0,'',171,0,0),(17508,3940,6,228,0,'206.231.75.97',1156260883,1,0,1,1,1,1,'','que es DTPicker','Amigos muchas gracias por las sugerencias, manuel voy a probar la tuya y te comento...\n\nPero... \n\nOskar me gustaria saber como se usa el DTPicker pero no encuentro el ejemplo en la carpeta samples de FW, de casualidad no tienes un ejemplo...  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','hb3c368o',1,0,'',228,0,0),(17509,3958,3,207,0,'148.233.32.162',1156262196,1,0,1,1,1,0,'','','Gracias Antonio, ya libre ese obstaculo, Saludos','',0,'AIA=','38gfxx3v',1,0,'',207,0,0),(17510,3966,6,228,0,'206.231.75.97',1156262292,1,0,1,1,1,1,'','get en degrade...?','Amigos del foro como raro yo molestando... alguien sabe si puedo hacer un get que tenga el degrade como lo hacen en esta pagina web? \n\n<!-- m --><a class=\"postlink\" href=\"http://www.tutopia.com/default.htm\">http://www.tutopia.com/default.htm</a><!-- m -->\n\npta: En la parte donde te logueas...\n\nde antemano gracias','',0,'AIA=','28v4ls60',1,0,'',228,0,0),(17511,3939,6,152,0,'200.50.109.18',1156263345,1,0,1,1,1,0,'','','Antonio:\n\nTrato de bajar el build de June 28 2006 :\n\nHarbour for Borland: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f78/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m --> \n\npero, no esta disponible la pagina. \n\nSe puede bajar de otro sitio?\n\nGracias \nGonzalo','',0,'AIA=','2hgevyyl',1,0,'',152,0,0),(17512,3960,2,375,0,'84.122.110.151',1156263879,1,0,1,1,1,1,'','','Hola Francis.\n\nYo también utilizo el Blinker 4.0 y he probado Blinker 7.0.\nEn principio es sólo sustituir uno por el otro (en todos los aspectos: AUTOEXEC.BAt, CONFIG.SYS,ETC.., incluso los BAT\'s que utilizo para compilar y linkar).\n\nAunque lo mejor es cabiar el nombre de los directorios. El directorio BLIBKER4 lo he llamo BLINKERSEG y el nuevo directorio BLINKR7 lo llamé BLINKER4 para, no tener que cambiar nada, y me ha funcionado perfectamente. Tan sólo tuve un pequeño problema con uLoadObject y lSaveObject y por eso volví a Blinker4. Por lo demás ningún problema.','',0,'AIA=','1ziw2pyo',1,0,'',375,0,0),(17513,3967,19,343,0,'204.57.111.194',1156263972,1,0,1,1,1,0,'','New advertisements a problem?','Everytime I select a topic an advertisement starts now, and i have to go back to topic. I use Netscape 8.1.\nIs this how you want it to work?','',0,'AIA=','16e3shy9',1,0,'',343,0,0),(17514,3964,6,217,0,'200.159.120.34',1156264443,1,0,1,1,1,0,'','Re: Funcion para actualizacion a traves de internet','Muchas gracias, George!!!\n\nSaludos de Brasil\nMaurilio','',0,'AIA=','jsfpu7z6',1,0,'',217,0,0),(17515,3806,2,375,0,'84.122.110.151',1156264865,1,0,1,1,1,1,'','','Gerardo, porqué no sustituyes la opción de ventas por dos:\n\n- OPCION DE VENTA SIN CALCULO DE IMPUESTO\n- OPCION DE VENTAS CON CALCULO DE IMPUESTO.\n\nO el título que tu veas. Es que en Windows el evento de captura del teclado no se gestiona como se hacía en MS-DOS. Supongo que habrás un buffer intermedio de teclado, pero ten en cuanta que en Windows, el fluo del programa no se detiene en un punto concreto del código fuente, entonces ¿dónde le ordenarías al programa que revise el teclado?\n\nSe me ocurre que quizá podría utlilizar esto al principio del módulo (primer códio tras pulsar la opción):\n\nSysWait( 50 )\nIF GetKeyState( VK_CONTROL )\n...\nPROCESO PREPARATORIO CALCULO DE IMPUESTOS\n...\nENDIF\n\nSi el usuario pulsó \"CONTROL\" al entrar en el módulo de ventas, se bifurcaría por ahí.\n\n\nSi quieres controlar ALT+171, tendrás que systutiuir GetKeyState( VK_CONTROL ) por GetKeyState( valor de la tecla ALT+171 )\n\nUn saludo.','',0,'AIA=','1dhb3p6n',1,0,'',375,0,0),(17516,3955,6,375,0,'84.122.110.151',1156265357,1,0,1,1,1,1,'','','Antonio, en principio creí que mi barra anti-popup no funcionaba. Pero es cierto hoy me están saliendo Popups a diestro y siniestro que ralentizan mucho la consulta del foro. Sin embargo estos días atrás, no salian, tampoco podía entrar en la página de los anuncios, hoy sí.','',0,'AIA=','wsv4zls6',1,0,'',375,0,0),(17517,3913,3,49,0,'62.13.172.78',1156265509,1,0,1,1,1,1,'','','randal \nthis sample could run with Ocx microsoft map point ?\nI found it at  <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/downloads/list/MapPoint.asp\">http://msdn.microsoft.com/library/defau ... pPoint.asp</a><!-- m -->\n\nRegards','',0,'AIA=','2jy106ty',1,0,'',49,0,0),(17518,3964,6,171,0,'71.232.193.197',1156267036,1,0,1,1,1,0,'','','A tu orden Maurilio\n\nAqui estan unos DEFINES que necesita para el manejo de transferencia de archivos a traves de internet. Hice varias pruebas y estas funciones me trabajan perfectamente en FWH 2.5 + xHarbour builder FEB 2005. \n\nElimine los dbcloseall() y los openfiles(). Ahora solo cierro el area de P_VERS  que es la que se sobreescribe con el nuevo numero de la version.\n\n\nGeorge \n\n[code:1vxinfn4]\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21      // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70      //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80      //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443     //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080    // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\n[/code:1vxinfn4]','',0,'AIA=','1vxinfn4',1,0,'',171,0,0),(17519,3946,2,375,0,'84.122.110.151',1156269587,1,0,1,1,1,1,'','','Antonio, tengo un último problema. En los Borland c++ que he bajado, incluido el de FiveTechSoft, no se incluye BCC.EXE, sólo BCC32.exe funcionará a ¿16 bits?','',0,'AIA=','34wtdc5v',1,0,'',375,0,0),(17520,3964,6,519,0,'88.14.202.39',1156270235,1,0,1,1,1,0,'','','Muy bueno George\n\n   Y para subir un archivo a un sitio ftp, como se haria  ?\n\n\n   Un saludo y gracias desde ya','',0,'AIA=','3avo0m0w',1,0,'',519,0,0),(17521,3968,20,49,0,'62.13.172.78',1156270690,1,0,1,1,1,1,'','errore in variabile','non riesco a capire quale errore o meglio dove sta quella variabile che non mi azzera la quantità:\n\ncosa deve fare ?\n1. primo caso\npremendo il bottone 3  e poi il bottone X  e poi un bottone del prodotto dovrebbe moltiplicare il tre per il prezzo del prodotto inserirlo nel listbox\nazzerare le variabili ( quantità). \n\n2.secondo caso\npremendo un botone del prodotto mi deve moltiplicare la quantità 1 per ilprezzo di quel prodotto e poi azzerare le variabili ( quantità). \n\nil problema è che non azera questa variabile delle quantità sia nel caso e sia nel secondo caso portandosi dietro numeri e quindi calcola male le operazioni e inserendo le quantità nel listbox\n\n\nper EMG ho fatto un programmino test minimale ( purtroppo ho dovuto inserire quelle Funzioni che servono) puoi scaricare a : <!-- w --><a class=\"postlink\" href=\"http://www.fivegest.it/testc.zip\">www.fivegest.it/testc.zip</a><!-- w -->\n\nattendo con fiducia','',0,'AIA=','xl0rcu4e',1,0,'',49,0,0),(17522,3946,2,2,0,'87.218.146.167',1156272211,1,0,1,1,1,1,'','','Manu,\n\nLa última versión de Borland que incorpora el compilador de 16 bits es la 5, no la 5.5. Tienes que localizar la 5 ó una anterior.\n\nbcc32.exe no sirve para compilar a 16 bits.','',0,'AIA=','6suq217o',1,0,'',2,0,0),(17523,3956,2,542,0,'83.61.41.157',1156272358,1,0,1,1,1,0,'','','Hola de nuevo ya he podido solucionar el problema y ha sido facil ya que yo introducia el campo del fichero directamente y no el campo de un fichero que contenia el campo a reemplazar asique en vez de poner en los dos sitios (FIELDGET (FIELDPOS(apellidos))) he puesto simplemente (apellidos) y funciona, te lo digo por si hay alguien que le pase o le pueda pasar. Un saludo y gracias por tu interes Antonio.\n\nCarlos','',0,'AIA=','3igac0el',1,0,'',542,0,0),(17524,3969,2,304,0,'201.155.7.216',1156272430,1,0,1,1,1,0,'','tamaño y posicion de un button o sbutton','Hola:\nAlguien sabe como guardar la posicion de un boton al ser movido o cambiado de tamaño.\n\nrequiero que el usuario \"cree\" sus botones los ponga donde quiera y al tamaño que quiera y se guarden en una base de datos para que al abrir nuevamente la aplicacion aparezcan en el lugar y en el tamaño que el definio, es posible hacerlo ??, pueden decirme los parametros para obtener dichos valores ??\n\nante todo gracias por su tiempo...\nsaludos \nveracruz, ver, mexico','',0,'AIA=','1xvkgupq',1,0,'',304,0,0),(17525,3956,2,2,0,'87.218.146.167',1156272931,1,0,1,1,1,1,'','','Carlos,\n\nMe alegro de que esté solucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','g879atmz',1,0,'',2,0,0),(17526,3969,2,2,0,'87.218.146.167',1156273111,1,0,1,1,1,1,'','','oBoton:nTop \noBoton:nLeft\noBoton:nWidth\noBoton:nHeight','',0,'AIA=','mlztaea9',1,0,'',2,0,0),(17527,3955,6,2,0,'87.218.146.167',1156273856,1,0,1,1,1,1,'','','Ya están quitados los popups. Ha sido un error de configuración. Sí, son incomodísimos.','',0,'AIA=','2z3pnj6i',1,0,'',2,0,0),(17528,3970,3,705,0,'61.0.136.187',1156274036,1,0,1,1,1,0,'','Dialog box Control','I need support for the following three:\n\ni) While a dialogbox is working, if I close the same from CLOSE[X] button,\n   how can I trap the same ?\n\nii) What is the command to count, how many dialogbox are open at any\n    point of time ?\n\niii)  For dialogbox, what is the similar command of WBOARD() ?\n\nSincerely \nArindam','',0,'','d7yk2res',1,0,'',705,0,0),(17529,3939,6,2,0,'87.218.146.167',1156274138,1,0,1,1,1,1,'','','Gonzalo,\n\nVuelve a intentarlo por favor. Aquí aparece como disponible.','',0,'','utdj61xp',1,0,'',2,0,0),(17530,3971,4,3,0,'82.65.93.122',1156275186,1,0,1,1,1,1,'','dialog setsize method','Antonio\n\nIs there any plan for dialog setsize method ?\n\nIt is very dfficult to draw dialogs from resources and make them available to different type of pocket pcs as we can not resize them at init time or at least i have not found how to do it. In Fwh i use odlg:setsize() \n\nEven the client sample from Carles will not show properly on my Ipaq 6515 and will not work as i do not see the OK and Cancel buttons, while it shows quite OK on 2 other pockets.\n\nDrawing dialogs with @ ..,..  is very tricky and takes long time but at the time being looks like the only universal way of drawing screens.\n\nAny idea ?\n\nTia\n\nRichard','',0,'','15zkijh2',1,0,'',3,0,0),(17531,3946,2,375,0,'84.122.110.151',1156275570,1,0,1,1,1,1,'','','Una últiuma cosa y ya no te molesto más con este tema. Estoy intentando compilar a 32 bits mi ejemplo tal que así:\n\n// #include &lt;winten.h&gt;\n#include &lt;windows.h&gt;\n#include &lt;clipapi.h&gt;\n\nCLIPPER lEsPar( PARAMS )\n{\n_retl( _parnl( 1 )%2 == 0 ) ;\n}\n\n[u:qx94e0gp]Con el comando:[/u:qx94e0gp] c:\\Borland\\Bcc55\\Bin\\Bcc32.exe -c -Ic:\\Borland\\Bcc55\\Include %1.c\nComo me dijistes\n\n[u:qx94e0gp]Y me da los 3 siguientes errores:[/u:qx94e0gp]\n\nWarning W8065 ClipFunc.c 7: Call to function \'_parnl\' with no prototype in function lEsPar\n\nWarning W8065 ClipFunc.c 7: Call to function \'_retl\' with no prototype in function lEsPar\n\nWarning W8057 ClipFunc.c 8: Parameter \'params\' is never used in function lEsPar\n\n[b:qx94e0gp]¿Eso es normal o me falta algo?[/b:qx94e0gp]\n\nMuchas gracias. Un saludo.','',0,'QQ==','qx94e0gp',1,0,'',375,0,0),(17532,3959,3,34,0,'68.4.154.81',1156276147,1,0,1,1,1,1,'','Calculator','Thanks.  I\'ll work with that.','',0,'QQ==','2nzhqh84',1,0,'',34,0,0),(17533,3964,6,171,0,'71.232.193.197',1156276509,1,0,1,1,1,0,'','','Aqui tienes la funcion para el upload y tambien los wrapper de las funciones que necesitas para manejar las transferencias\nTodo esto combinado con los codigo anteriores te permite la transferencia de archivos y la actualizaciones de tu aplicacion * EN TIEMPO REAL * y sin tener abortar la aplicacion ni usar batch, a traves de internet.\n\nQuizas unos de los guru del foro se anima y basado en estas funciones hace una clase que podamos integrar facilmente en nuestra aplicaciones.\n\nGeorge\n\n[code:3lglk0wr]\n\nFUNCTION SendToFtp&#40;&#41;\n\n    LOCAL hInternet, hConnect\n\n    hLib = LOADLIBRARY&#40; &quot;wininet&#46;dll&quot; &#41;\n\n    hInternet = INETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INETCONNECT&#40; hInternet, &quot;ftp address&quot;, INTERNET_INVALID_PORT_NUMBER,;\n    	 &quot;userid&quot;, &quot;password&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n    ? FTPPUTFILE&#40; hConnect, &quot;local file name&quot;, &quot;remote file name&quot;, 0, 0 &#41;\n\n    INETCLOSEHANDLE&#40; hConnect &#41;\n\n    INETCLOSEHANDLE&#40; hInternet &#41;\n\n    FREELIBRARY&#40; hLib &#41;\n\n    RETURN NIL\n\n\nDLL32 FUNCTION INETOPEN&#40; cAgent AS LPSTR, nAccessType AS DWORD, cProxyName AS LPSTR, cProxyBypass AS LPSTR, nFlags AS DWORD &#41; AS LONG;\n      PASCAL FROM &quot;InternetOpenA&quot; LIB hLib\n\nDLL32 FUNCTION INETCLOSEHANDLE&#40; hInternet AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;InternetCloseHandle&quot; LIB hLib\n\nDLL32 FUNCTION INETCONNECT&#40; hInternet AS LONG, cServerName AS LPSTR,;\nnServerPort AS LONG, cUserName AS LPSTR, cPassword AS LPSTR, nService AS DWORD, nFlags AS DWORD, @nContext AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;InternetConnectA&quot; LIB hLib\n\nDLL32 FUNCTION FTPGETFILE&#40; hConnect AS LONG, cRemoteFile AS LPSTR, cNewFile AS LPSTR,;\n	 nFailIfExists AS LONG, nFlagsAndAttribs AS DWORD, nFlags AS DWORD, @nContext AS PTR &#41; AS BOOL;\n      PASCAL FROM &quot;FtpGetFileA&quot; LIB hLib\n\nDLL32 FUNCTION FTPPUTFILE&#40; hConnect AS LONG, cLocalFile AS LPSTR, cNewRemoteFile AS LPSTR,;\n	 nFlags AS DWORD, @nContext AS PTR &#41; AS BOOL;\n      PASCAL FROM &quot;FtpPutFileA&quot; LIB hLib\n\n[/code:3lglk0wr]','',0,'AIA=','3lglk0wr',1,0,'',171,0,0),(17534,3913,3,213,0,'24.175.56.72',1156277535,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:2h4mkrgw]randal \nthis sample could run with Ocx microsoft map point ?\nI found it at  <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/downloads/list/MapPoint.asp\">http://msdn.microsoft.com/library/defau ... pPoint.asp</a><!-- m -->\n\nRegards[/quote:2h4mkrgw]\n\nMappoint OCX allows you to turn on the Standard, Navigation, Drawing, Location and Scale toolbars.  However I could not get FWH to respond to any mouse clicks on any of the options available on the toolbars.\n\nYou\'ll notice that Excel, Word, and other OCX\'s expose a default toolbar you can click on and the activex handles the events.  I haven\'t been able to make this work with Mappoint.\n\nRegards,\nRandal Ferguson','',0,'gA==','2h4mkrgw',1,0,'',213,0,0),(17535,3970,3,6,0,'87.6.210.244',1156277598,1,0,1,1,1,1,'','Re: Dialog box Control','[quote=&quot;Arindam&quot;:v2nk0snu]I need support for the following three:\n\ni) While a dialogbox is working, if I close the same from CLOSE[X] button,\n   how can I trap the same ?[/quote:v2nk0snu]\n\nUse the VALID clause.\n\n[quote=&quot;Arindam&quot;:v2nk0snu]ii) What is the command to count, how many dialogbox are open at any\n    point of time ?[/quote:v2nk0snu]\n\nGetAllWin() returns an array containing all the open windows, dialogs and controls. Just scan it and check the ClassName() method of each object:\n\n[code:v2nk0snu]FUNCTION NDIALOGS&#40;&#41;\n\n    LOCAL aWin &#58;= GETALLWIN&#40;&#41;\n\n    LOCAL nWin &#58;= NWINDOWS&#40;&#41;\n\n    LOCAL nDlg &#58;= 0\n\n    LOCAL i\n\n    FOR i = 1 TO nWin\n        IF aWin&#91; i &#93;&#58;ClassName = &quot;TDIALOG&quot;\n            nDlg++\n        ENDIF\n    NEXT\n\n    RETURN nDlg[/code:v2nk0snu]\n\n[quote=&quot;Arindam&quot;:v2nk0snu]iii)  For dialogbox, what is the similar command of WBOARD() ?[/quote:v2nk0snu]\n\nI don\'t know what WBOARD() is, sorry.\n\nEMG','',0,'gIA=','v2nk0snu',1,0,'',6,0,0),(17536,3968,20,6,0,'87.6.210.244',1156277794,1,0,1,1,1,1,'','Re: errore in variabile','Mi sa che dovrai aspettare un bel po\' se non cerchi di ridurre l\'esempio al minimo.\n\nEMG','',0,'gIA=','3tnlsxgr',1,0,'',6,0,0),(17537,3972,7,778,0,'200.101.77.123',1156278477,1,0,1,1,1,0,'','Uso de ODBC e MySql no Pocket','Ola a todos\n\nExiste alguma possibilidade de usar MySql com OBDC no Pocket e se\nsim como fazer ?\n\nSaludos\nMauro','',0,'gIA=','2ygael1n',1,0,'',778,0,0),(17538,3969,2,304,0,'201.155.7.216',1156287048,1,0,1,1,1,0,'','','GRACIAS ANTONIO:\nahora lo q me falta es hacer que un SBUTTON se pueda ajustar de tamaño y de posicion lo he intentado con la clausulas:\nADJUST\nDESIGN\n\npero no pasa nada, si lo hago con BUTTON, si lo hace, lo requiero hacer con la clase SBUTTON por que requiero botones con color de fondo, y en algunos casos redondos, pero no se si me este equivocando de clase\no que me sugieras hacer, gracias','',0,'gIA=','2z1boqb8',1,0,'',304,0,0),(17539,3939,6,152,0,'200.50.109.18',1156288349,1,0,1,1,1,0,'','','Antonio :\nYa encontre el problema. Es que uso esta funcion en vez de RLock().\nPero sigo sin saber porque con esta version de FWH se pega.\n\nSaludos\nGonzalo\n\n[code:1gwkl64x]\n Function RecLock&#40;nSeconds&#41;\n*--------------------------\n /*  Attempt to RLOCK&#40;&#41; with optional retry\n     RecLock&#40; &lt;nSeconds&gt; &#41; --&gt; lSuccess\n */\n    local lforever\n    DEFAULT nSeconds TO 0\n\n    if rlock&#40;&#41;\n       return &#46;t&#46;                        // LOCKED\n    endif\n    nSeconds *= 1&#46;00\n    lForever &#58;= &#40;nSeconds == 0&#41;\n\n    DO WHILE &#40;lforever &#46;OR&#46; nSeconds &gt; 0&#41; &#46;AND&#46; LASTKEY&#40;&#41; # VK_ESCAPE\n       MsgAlert&#40;PADC&#40; &#91;Registro tomado por otro usuario &#58; Esperando &#93; +;\n        LTRIM&#40;STR&#40;nSeconds,5,1&#41;&#41;+&#91; segundos&#93;,81&#41;+CRLF+PADC&#40;&#91;&lt;Esc&gt; Termina &#40;No actualiza reg&#41; &#93;, 85&#41; &#41;\n\n       IF RLOCK&#40;&#41;\n          RETURN &#46;T&#46;                     // LOCKED\n       ENDIF\n       INKEY&#40;&#46;5&#41;      // wait 1/2 SECOND\n       nSeconds -= &#46;5\n    enddo\n\n    RETURN &#46;F&#46;                           // NOT LOCKED\n    // end Function reclock&#40;&#41;\n[/code:1gwkl64x]','',0,'AIA=','1gwkl64x',1,0,'',152,0,0),(17540,3939,6,152,0,'200.50.109.18',1156290146,1,0,1,1,1,0,'','','Noo, me  equivoque, sigo con el problema. \n\nBaje el ultimo build de harbour y sigue el error.\n\nCuando acceso al programa en un disco remoto sucede el error, sin embargo el mismo ejecutable en forma local funciona perfecto. \n\nLa basedato la tengo en un PC con Win98 y acceso desde otro PC con XP\n\nSaludos,\nGonzalo','',0,'AIA=','11bv00ri',1,0,'',152,0,0),(17541,3939,6,2,0,'87.218.146.167',1156290411,1,0,1,1,1,1,'','','Gonzalo,\n\nLas funciones de \"terminal\" de Harbour han sido modificadas ultimamente, de ahí que un determinado build de Harbour/xHarbour pueda estar dándote esos problemas.\n\nEn principio en una aplicación Windows no debes usar ni LastKey() ni Inkey() (ambas funciones pertenecen a los módulos \"terminal\" de Harbour/xHarbour).\n\nNuestro consejo es que modifiques esa función para que no use esas dos funciones. En vez de Inkey() puedes usar SysWait( nSecs ) y LastKey() podrias eliminarla completamente.','',0,'AIA=','2j8swxxz',1,0,'',2,0,0),(17542,3967,19,2,0,'87.218.146.167',1156290617,1,0,1,1,1,1,'','','Gale,\n\nIt has been modified, so you should get just one top and another bottom banner. No popups pages.\n\nAnyhow, we are going to test these advertisments for a month or so, and we may remove them or not based on their results.','',0,'AIA=','swc05tcn',1,0,'',2,0,0),(17543,3969,2,2,0,'87.218.146.167',1156290918,1,0,1,1,1,1,'','','Prueba lo siguiente:\n\noBoton:lDrag = .t.','',0,'AIA=','15nmvdqg',1,0,'',2,0,0),(17544,3968,20,49,0,'62.13.172.78',1156291145,1,0,1,1,1,1,'','','se lo hai visto sai che non si puo\' ridurre al minimo il test 4 funzioni sono ricopiate da msgcalc()\n\nho già levato molta troppa roba e non si possono levare altre parti...\n\nle funzioni che sono rimaste  sono indispensabili per le utili operazioni per fare il test \n\nComunque io rimango dell\'Idea che un  \"test minimale\"  non puo\' garantire di trovare  la soluzione per un applicazione ampia...\n\nQuindi ci sono  volte che con i test minimali si riesce a trovare soluzioni  altre no','',0,'AIA=','2ehpsa8h',1,0,'',49,0,0),(17545,3939,6,152,0,'200.50.109.18',1156291827,1,0,1,1,1,0,'','','Antonio:\n\nAhora estoy usando directamente RLock() sin pasar por la funcion RECLOCK().\n\nDefinitivamente el problema se da cuando la base esta en Win98 y se accesa desde XP. Probe con 2 PC\'s con XP y no se da el error. Tambien probe teniendo la base en XP y accese desde Win 98 y tampoco se da el error. \nY para estar seguro accese desde un segundo PC c/XP a una base en Win98 y tambien se dio el error.\n\nSaludos\nGonzalo','',0,'AIA=','2elcjxel',1,0,'',152,0,0),(17546,3973,6,49,0,'62.13.172.78',1156292277,1,0,1,1,1,1,'','error on variable','I must make a little calc..\n\nSorry for my english,\n\nI  explain YOU:\n \n 1) the user must press a button of a number  \n 2) the user must press the button of X \n 3) the user must press the button of a product \n\nthe procedure calc the  total (quantity * the prize of each product )and then save on the listbox\n\nthen Each variable it must be annulled   but it calc bad the second operation this variable calc numbers of quantity \n\n\nthe user can press only a button of a product and the procedure must calc the quantity egual to 1  with the prize of this product and then save on the listbox\n\n\n\nIf you want try to run my sample , the test is on <!-- w --><a class=\"postlink\" href=\"http://www.fivegest.it/testc.zip\">www.fivegest.it/testc.zip</a><!-- w -->\n\n\nI hope YOU help me\n\nRegards','',0,'AIA=','18m9rr20',1,0,'',49,0,0),(17547,3974,6,171,0,'71.232.193.197',1156300005,1,0,1,1,1,0,'','Unresolved External \'_hb_stack\'','Antonio\n\nFWH 2.7 Builder Julio 2006  + xHarbour Builder Marzo 2006 ( Ambos son las versiones mas recientes) me esta generando el siguiente error:\n\nUnresolved External \'_hb_stack\' \n\nSaludos\n\n\nGeorge','',0,'AIA=','250ugik3',1,0,'',171,0,0),(17548,3966,6,492,0,'201.154.126.49',1156306348,1,0,1,1,1,1,'','','Leandro\n\nCreo que esta clase de Vagner Wirts es lo que andas buscando.\n\n[img:257f30ux]http&#58;//img241&#46;imageshack&#46;us/img241/206/getdegradowg9&#46;jpg[/img:257f30ux]\n\n\nPero, ignoro que este pasando, he intentado varias veces subirlo al HyperUpLoad y nomas no quiere, deja intento mas tarde y si no, te la mando a tu correo.\n\nSaludos','',0,'CA==','257f30ux',1,0,'',492,0,0),(17549,3973,6,492,0,'201.154.126.49',1156308403,1,0,1,1,1,1,'','','OK, Let\'s see if we can understand each other  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nThe operations you plan to do, you must do it directly from the listbox, using the Add, Reduce, Clear buttons.\n\nIn this case, after you select an item save its price and by default 1 unit in the listbox, thus, you can manage later if the user wants to add some units more or otherwise reduce them.\n\nI did it this way in this little app to fast food POS and it worked great !!\n\nSee the image and you\'ll find out is almost the same job you\'re doing.\n\n\n\n[img:o7gtdqnt]http&#58;//img214&#46;imageshack&#46;us/img214/2903/itemsqt0&#46;jpg[/img:o7gtdqnt]\n\n\nI really hope you have understood to me  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos','',0,'CA==','o7gtdqnt',1,0,'',492,0,0),(17550,3971,4,449,0,'212.64.224.244',1156315236,1,0,1,1,1,1,'','','Richard,\n\nCan you try the example TestSip ?\n\n[code:1fg8hy51]MoveWindow&#40; oDlg&#58;hWnd, 28, 10, 220, 180 &#41;[/code:1fg8hy51]','',0,'AIA=','1fg8hy51',1,0,'',449,0,0),(17551,3971,4,449,0,'212.64.224.244',1156317295,1,0,1,1,1,1,'','','Sample\n\n[code:3d1ym20v]#include &quot;Fwce&#46;ch&quot;\n\n#define SM_CXSCREEN 0\n#define SM_CYSCREEN 1\n\n*--------------\nFUNCTION Main&#40;&#41;\n*--------------\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg FROM 2,2 TO 13, 30\n\n      @ 1, 1 BUTTON &quot;Maximize&quot; SIZE 100, 20 ACTION Maximize&#40; oDlg &#41;\n\n      @ 3, 1 BUTTON &quot;Exit    &quot; SIZE 100, 20 ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg\n\nRETU NIL\n\n*-------------------------------\nSTATIC FUNCTION Maximize&#40; oDlg &#41;\n*-------------------------------\n   LOCAL nWidth  &#58;= GetSysmetrics&#40; SM_CXSCREEN &#41;\n   LOCAL nHeight &#58;= GetSysmetrics&#40; SM_CYSCREEN &#41;\n\n   MoveWindow&#40; oDlg&#58;hWnd, 0, 0, nWidth, nHeight &#41;\n\nRETU NIL[/code:3d1ym20v]','',0,'AIA=','3d1ym20v',1,0,'',449,0,0),(17552,3025,4,20,0,'87.7.212.146',1156320583,1,0,1,1,1,0,'','Re: Popup menus','[quote:1ec9x7zh]EMG try this:\n\n[code:1ec9x7zh]\n// FiveWin for Pocket PC - Using popup menus\n\n#include &quot;FWCE&#46;ch&quot;\n\n#define MF_ENABLED         0\n\n#define TPM_VERTICAL  0x0040\n#define TPM_RETURNCMD 0x0100\n\n#define MFT_SEPARATOR 0x0800\n\n#define MF_CHECKED    0x0008\n#define MF_UNCHECKED  0x0000\n#define MF_POPUP      0x0010\n\n//-----------------------------------------------------------------------------------------------------//\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Popup menu&quot;\n\n      oWnd&#58;bLClicked&#58;=&#123; | nRow, nCol | PopupMenu&#40; oWnd, nRow+28, nCol &#41; &#125;\n\n   ACTIVATE WINDOW oWnd\n\nRETURN &#40; nil &#41;\n\n//-----------------------------------------------------------------------------------------------------//\n\nSTATIC FUNCTION PopupMenu&#40; oWnd, nRow, nCol &#41;\n\n   LOCAL nIdSelect\n   LOCAL hMenu &#58;= CreatePopupMenu&#40;&#41;\n   LOCAL hSubMenu &#58;= CreatePopupMenu&#40;&#41;\n\n   AppendMenu&#40; hMenu, MF_ENABLED, 10, &quot;One&quot; &#41;\n\n   AppendMenu&#40; hSubMenu, MF_ENABLED, 11, &quot;Submenu 1&quot;&#41;\n   AppendMenu&#40; hSubMenu, MF_ENABLED, 12, &quot;Submenu 2&quot;&#41;\n\n   AppendMenu&#40; hSubMenu, MFT_SEPARATOR&#41;\n\n   AppendMenu&#40; hSubMenu, MF_ENABLED, 13, &quot;Submenu 3&quot;&#41;\n\n   AppendMenu&#40; hMenu, MF_POPUP, hSubMenu, &quot;Two&quot; &#41;\n\n   AppendMenu&#40; hMenu, MFT_SEPARATOR&#41;\n\n   AppendMenu&#40; hMenu, MF_ENABLED, 14, &quot;Three&quot;&#41;\n\n   CheckMenuItem&#40; hMenu, 14, MF_CHECKED &#41;\n\n   CheckMenuItem&#40; hSubMenu, 13, MF_CHECKED &#41;\n\n   nIdSelect &#58;= TrackPopupMenuEx&#40; hMenu, TPM_RETURNCMD, nRow, nCol, oWnd&#58;hWnd &#41;\n\n   IF nIdSelect == 10\n\n      MsgInfo &#40; &quot;One&quot; &#41;\n\n   ELSEIF nIdSelect == 11\n\n      MsgInfo &#40; &quot;Submenu 1&quot; &#41;\n\n   ELSEIF nIdSelect == 12\n\n      MsgInfo &#40; &quot;Submenu 2&quot; &#41;\n\n   ELSEIF nIdSelect == 13\n\n      MsgInfo &#40; &quot;Submenu 3&quot; &#41;\n\n   ELSEIF nIdSelect == 14\n\n      MsgInfo &#40; &quot;Three&quot; &#41;\n\n   ENDIF\n\n   DestroyMenu&#40;hMenu&#41;\n\nRETURN nil\n\n//-----------------------------------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\n#define IF&#40;x,y,z&#41; &#40;&#40;x&#41;?&#40;y&#41;&#58;&#40;z&#41;&#41;\n\nHB_FUNC&#40; CREATEPOPUPMENU &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; CreatePopupMenu&#40;&#41; &#41;;\n&#125;\n\nHB_FUNC&#40; APPENDMENU &#41;\n&#123;\n   LPWSTR pW = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;;\n\n   hb_retl&#40; AppendMenu&#40; &#40; HMENU &#41; hb_parnl&#40; 1 &#41;, &#40; UINT &#41; hb_parnl&#40; 2 &#41;, hb_parnl&#40; 3 &#41;,\n                          IF&#40; ISCHAR&#40; 4 &#41;, pW, &#40; LPWSTR &#41; hb_parnl&#40; 4 &#41; &#41; &#41; &#41;;\n   hb_xfree&#40; pW &#41;;\n&#125;\n\nHB_FUNC&#40; TRACKPOPUPMENUEX &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; TrackPopupMenuEx&#40; &#40; HMENU &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parni&#40; 4 &#41;,\n               hb_parni&#40; 3 &#41;, &#40; HWND &#41; hb_parni&#40; 5 &#41;, NULL &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; DESTROYMENU &#41;\n&#123;\n   hb_retl&#40; DestroyMenu&#40; &#40; HMENU &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CHECKMENUITEM &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; CheckMenuItem&#40; &#40; HMENU &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:1ec9x7zh]\n\nRegards,\nPier luigi[/quote:1ec9x7zh]','',0,'gIA=','1ec9x7zh',1,0,'',20,0,0),(17553,3974,6,2,0,'87.218.146.167',1156324767,1,0,1,1,1,1,'','','George,\n\nPor favor usa este código en tu PRG principal:\n[code:29ey4223]\n#pragma BEGINDUMP \n\n#include &quot;hbstack&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \n   return pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n[/code:29ey4223]','',0,'AIA=','29ey4223',1,0,'',2,0,0),(17554,3025,4,6,0,'87.3.184.184',1156326639,1,0,1,1,1,1,'','Re: Popup menus','Great! The only problem is that the menu pops up immediately while it should shows up itself only if the mouse button is kept pressed.\n\nEMG','',0,'AIA=','146ni1zs',1,0,'',6,0,0),(17555,3968,20,6,0,'87.3.184.184',1156326865,1,0,1,1,1,1,'','','Io il tuo esempio non riesco neanche a compilarlo. Devi semplicemente creare un esempio di poche righe che mostri il problema. Se non ti va di farlo come pretendi che lo faccia qualcun\'altro al posto tuo?\n\nEMG','',0,'AIA=','25y3pvsn',1,0,'',6,0,0),(17556,3970,3,705,0,'61.2.2.103',1156328201,1,0,1,1,1,0,'','','Hi EnricoMaria,\n\nThanks for your reply.\n\nAbout my iii&gt; point, I am giving you the details.\n\nWBoard() is a xHarbour function to allocates allowable screen area for MDIChield window on MDI.\n\nIn my case, I don\'t want to board the dialogbox on a particular logo placed on MDI window. While dialogbox Move by mouse, the dialogbox do not move on that Particular area.\n\nHope I can explain you properly.\n\nArindam','',0,'AIA=','2oxa7arg',1,0,'',705,0,0),(17557,3970,3,6,0,'87.3.184.184',1156330733,1,0,1,1,1,1,'','','Sorry, I\'m not familiar with that function.\n\nEMG','',0,'AIA=','1f7459fb',1,0,'',6,0,0),(17558,3968,20,49,0,'62.13.172.78',1156331123,1,0,1,1,1,1,'','','&gt;NEANCHE A COMPILARLO ...\n \nMa no dire [b:4u3gfpwj]eresie[/b:4u3gfpwj] ... \n\ndi\' invece che non mi vuoi [b:4u3gfpwj]aiutare [/b:4u3gfpwj]... i\n\no lo compilo benissimo con [b:4u3gfpwj]xmate[/b:4u3gfpwj]','',0,'QA==','4u3gfpwj',1,0,'',49,0,0),(17559,3973,6,49,0,'62.13.172.78',1156331312,1,0,1,1,1,1,'','','yes \ncan you help me \nCan you send me sample code ?\n\nRegards','',0,'QA==','1mpft9eu',1,0,'',49,0,0),(17560,3968,20,6,0,'87.3.184.184',1156331960,1,0,1,1,1,1,'','','Vedo che non sei cambiato. Tanti saluti.\n\nEMG','',0,'QA==','rhe4j4k1',1,0,'',6,0,0),(17561,3974,6,171,0,'71.232.193.197',1156332911,1,0,1,1,1,0,'','','Antonio\n\nGracias por tu pronta respuesta.\n\nAhora compila bien, al añadirle el codigo del mensaje anterior. Pero cuando trato de ejecutar el programa solo consigo el mensaje de error de windows que dice  \"testget.exe has encountered a problem and need to close. We are sorry for the inconvenience ......\".\n\nHe tratado compilando varios ejemplos diferentes de los que vienen en fw/samples y siempre consigo el mismo error.\n\nMi configuracion es la siguiente:\n.Windows XP Professional Version 2002 Service Pack 2\n. FWH Julio 2006\n. xHarbour Builder Marzo 2006 ( xHarbour compiler build 0.99.61 (Simplex)\n\n\nSaludos\n\n\nGeorge','',0,'QA==','2kv6smr6',1,0,'',171,0,0),(17562,3975,6,644,0,'200.125.127.11',1156333005,1,0,1,1,1,0,'','Conexión ADO a MySql','Estoy haciendo unas pruebas con ADO y tengo algunas dudas. Me gustaría trabajar con MySql, pero no conozco la forma de conectarme con el servidor. Estuve viendo un ejemplo aqui, pero era con una base de datos Acces. Alguien sabe cual es la cadena de conexión para MySql. Desde ya muchas gracias','',0,'QA==','1bb3ve35',1,0,'',644,0,0),(17563,3966,6,362,0,'200.168.52.156',1156334705,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:377r9eqm]Leandro\n\nCreo que esta clase de Vagner Wirts es lo que andas buscando.\n\n[img:377r9eqm]http&#58;//img241&#46;imageshack&#46;us/img241/206/getdegradowg9&#46;jpg[/img:377r9eqm]\n\n\nPero, ignoro que este pasando, he intentado varias veces subirlo al HyperUpLoad y nomas no quiere, deja intento mas tarde y si no, te la mando a tu correo.\n\nSaludos[/quote:377r9eqm]\n\n\nUSTED PUEDES COMPRAR LA NUEVA VERSION DE LA VLIB.LIB DIRECTAMENTE CON VAGNER WIRTS.\n\nEmail:\n\n<!-- e --><a href=\"mailto:vwirts@ig.com.br\">vwirts@ig.com.br</a><!-- e -->\n\nSaludos.','',0,'iA==','377r9eqm',1,0,'',362,0,0),(17564,3976,6,196,0,'190.48.239.76',1156334838,1,0,1,1,1,0,'','Sobre ADS local','Hoal a todos.\n\nEstoy usando ADS local con bases DBF y funciona muy bien siempre que el ejecutable esta en el mismo directorio que las DBF, pero cuando intento redirigir la apertura de bases a otro directorio,ADS no las encuentra.\nUtilizo SET DEFAULT TO\n\nDesde ya muchas gracias.\n\nJorge Jaurena','',0,'iA==','1kr2ag8g',1,0,'',196,0,0),(17565,3977,3,67,0,'62.235.24.92',1156335270,1,0,1,1,1,0,'','Resizing dialog , object TGROUP','Hello\n\nWhen in a dialog an object tgroup is present , next code doesn\'t work properly ( a BUG ???)\n\nWhen the dialog appears , the other controls (tget , button) are not visible , unless TAB is pressed\n\nClosing the dialog gives also errors .\n\n[code:1utyvq9f]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;cNum&#41;\n\n   local oDlg, nTest &#58;= 1, oIcon\n   DEFAULT cNum &#58;= &quot;1&quot;\n   DEFINE ICON oIcon RESOURCE &quot;test&quot;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot; ICON oIcon\n   REDEFINE GET nTest ID 101 SPINNER\n   REDEFINE BUTTON ID 200 ACTION olg&#58;end&#40;&#41;\n   REDEFINE BUTTON ID 210 ACTION olg&#58;end&#40;&#41;\n   REDEFINE GROUP ID 2 OF oDlg\n\n   ACTIVATE DIALOG oDlg CENTERED ON INIT ResizeDlg&#40;oDlg , VAL&#40;cNum&#41;&#41;\n\nreturn nil\n\n********************************************************************************\nPROC ResizeDlg&#40;oDlg , F&#41;\n*********************\nLOCAL aHlp&#91;5&#93; , lNewFont &#58;= &#46;T&#46; , NewFontH , oFont   , oCtl\nDEFAULT F &#58;= &#123;2 , 2&#125;\nIF VALTYPE&#40;f&#41; == &quot;N&quot;\n  f &#58;= &#123;f,f&#125;\nEND\nWITH OBJECT oDlg\n  aHlp&#91;1&#93; &#58;= &#58;nTop              // nTop\n  aHlp&#91;2&#93; &#58;= &#58;nLeft              // nLeft\n  aHlp&#91;3&#93; &#58;= &#58;nWidth&#40;&#41;*F&#91;1&#93;              // nWidth\n  aHlp&#91;4&#93; &#58;= &#58;nHeight&#40;&#41;*F&#91;2&#93;              // nHeight\n  &#58;Move&#40; aHlp&#91;1&#93; , aHlp&#91;2&#93; , aHlp&#91;3&#93; , aHlp&#91;4&#93; , &#46;T&#46; &#41;\n  FOR EACH oCtl IN oDlg&#58;aControls \n    aHlp&#91;1&#93; &#58;= oCtl&#58;nTop*F&#91;2&#93;              // nTop\n    aHlp&#91;2&#93; &#58;= oCtl&#58;nLeft*F&#91;1&#93;              // nLeft\n    aHlp&#91;3&#93; &#58;= oCtl&#58;nWidth*F&#91;1&#93;              // nWidth\n    aHlp&#91;4&#93; &#58;= oCtl&#58;nHeight*F&#91;2&#93;               // nHeight\n    oCtl&#58;Move&#40; aHlp&#91;1&#93; , aHlp&#91;2&#93; , aHlp&#91;3&#93; , aHlp&#91;4&#93; , &#46;T&#46; &#41;\n    lNewFont &#58;= &#40;oCtl&#58;ClassName &lt;&gt; &quot;TGROUP&quot;&#41;\n    IF lNewFont \n      NewFontH &#58;= ROUND&#40;oCtl&#58;oFont&#58;nHeight*F&#91;2&#93;,0&#41;\n      oFont &#58;= oClone&#40;oCtl&#58;oFont&#41;\n      cFaceName &#58;= oFont&#58;cFaceName\n      oFont&#58;end&#40;&#41;\n      DEFINE FONT oFont NAME cFaceName SIZE 0, -NewFontH\n      oCtl&#58;SetFont&#40;ofont&#41;\n      oCtl&#58;refresh&#40;&#41;\n    END\n  NEXT \nEND\nIF oDlg&#58;lCentered\n  oDlg&#58;center&#40;&#41;\nEND\nRETURN\n\n#include &quot;winapi&#46;ch&quot;\n//#include &quot;&#46;&#46;\\include\\winapi&#46;ch&quot;\n\ntest ICON &quot;&#46;&#46;\\icons\\fivewin&#46;ico&quot;\n\nTEST DIALOG 61, 39, 194, 139\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Testing Spinners&quot;\nFONT 8, &quot;Tahoma&quot;\n&#123;\n EDITTEXT 101, 44, 25, 106, 15, WS_BORDER | WS_VSCROLL | WS_TABSTOP\n DEFPUSHBUTTON &quot;OK&quot;, 200 , 42, 96, 50, 14\n PUSHBUTTON &quot;Cancel&quot;, 210 , 102, 96, 50, 14\n GROUPBOX &quot;Box&quot;, 2, 30 , 10, 150, 120 , BS_GROUPBOX | BS_LEFTTEXT\n&#125;\n\n[/code:1utyvq9f]','',0,'AIA=','1utyvq9f',1,0,'',67,0,0),(17566,3978,6,569,0,'200.93.80.116',1156337642,1,0,1,1,1,0,'','ayuda con impresion en 132 columnas','Saludos amigos del foro: mi problema es el siguiente tengo un reporte de 132 columnas de ancho y lo estoy enviando a imprimir en un impresora HP840 a travez de un programa hecho exclusivamente con XHARBOUR, el cual es bastante bueno, envio caracteres de control para CONDENSADO y LANDSCAPE u HORIZONTAL los cuales la impresora recibe e interpreta correctamente, pues empieza y termina la impresion solo en una sola pagina, truncando o dejando de imprimir las demas columnas, mucho agradeceria si alquien me ayudara a resolver este pequeño gran inconveniete, no estoy utilizando ninguna libreria adicional o de terceras partes, y los comandos que utilizo son solo los compatibles con CLIPPER para XHARBOUR.\nAnticipadamente muchas gracias.\nRodolfo Silva \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->\nSaludos ANTONIO','',0,'AIA=','1dbmu8ck',1,0,'',569,0,0),(17567,3979,20,154,0,'151.80.4.216',1156337806,1,0,1,1,1,1,'','Posizione su una dialog.','Ciao a tutti,\nho una dialog con dei folder che contengono diversi controlli Get, Radio, BtnBitmap, Check e Combo, inoltre ci sono anche dei group e dei bitmap.\n\nPurtroppo, spostandomi con il Tab, non si vede la posizione del cursore quando sono sui radio, sui check o sui BtnBitmap, quindi non riesco a capire dove sono...\n\nSe invece tengo il Tab premuto per un po\' (fa tre-quattro o più giri di tutto il gruppo di controlli) riappare la retinatura attorno ai nomi.\n\nE\' possibile attivare la visualizzazione in qualche modo?\nOppure è un bachetto?','',0,'AIA=','2frz9smu',1,0,'',154,0,0),(17568,3977,3,49,0,'62.13.172.78',1156338801,1,0,1,1,1,1,'','','I have the same error :\n\n I want made a dialog trasparent :\n\n the group  when traparent\n\n the say control is trasparent   but the get  control where is ? \n\n  I want  that the get control be no trasparent\n\n  How I can make it? \n\n  (test file at :http://hyperupload.com/download/02a8655f30/CWPOS.zip.html)','',0,'AIA=','3qtzm67c',1,0,'',49,0,0),(17569,3921,7,490,0,'81.44.193.225',1156338808,1,0,1,1,1,0,'','','Muchas gracias,\n\n\nlo probaré.\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','15fghibk',1,0,'',490,0,0),(17570,3980,6,49,0,'62.13.172.78',1156338872,1,0,1,1,1,1,'','trasparent error in dialog','I want made a dialog trasparent :\n\n the group  when traparent\n\n the say control is trasparent   but the get  control where is ? \n\n  I want  that the get control be no trasparent\n\n  How I can make it? \n\n  test file at :\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02a8655f30/CWPOS.zip.html\">http://hyperupload.com/download/02a8655 ... S.zip.html</a><!-- m -->\n\n\nRegards,','',0,'AIA=','38v66cbr',1,0,'',49,0,0),(17571,3822,20,154,0,'151.80.4.216',1156339134,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:7pbtgctw]che dico all\'utente di inserire la descrizione ed ogni parola un punto e virgola o un trattino ?[/quote:7pbtgctw]\nNo!\npuoi usare un Get Multiple Line e lo fai andare a capo con il return, e poi trasformi il CRLF in \"|\" (ad esempio) e poi lo ritrasformi quando lo editi o lo visualizzi.\nSe invece non ti piace o non puoi, io lo farei con lo spazio, cercando di comporre la porzione della lunghezza che credi meglio.','',0,'gA==','7pbtgctw',1,0,'',154,0,0),(17572,3981,3,705,0,'61.2.0.178',1156339727,1,0,1,1,1,0,'','Minimize Dialogbox','Hello,\n\nWhile minimize the ‘n’ number of dialogbox, they are placed bottom of the screen horizontally. How can I manage, if I want to keep them vertically or alike drop down menu placed at bottom?\n\nArindam','',0,'gA==','3ols8qst',1,0,'',705,0,0),(17573,3968,20,49,0,'62.13.172.78',1156340390,1,0,1,1,1,1,'','','Constato invece che [b:fnkvr0zj]te non sei cambiato[/b:fnkvr0zj]....\n\nPerchè dici che non puoi compilarlo ?\n\nho levato tutto il codice per renderti la vita facile  come vuoi tu  e il tuo \" test minimale \"\n\nSe sei intelligente vedi un codice e ti accorgerai che non è altro msgcalc con un listbox in piu\'  \n\ncome potrei togliere ancora codice  ?\n\nPoi veramente la soluzione al problema non si trova e anzi se ne creano molte altre ( dato che mi hai fatto levare il codice indispensabile)\n\n\nOK OK OK ho capito che te sei molto cambaito , moltissimo cambiato, \n\ncambiato per niente , te il mio codice non lo hai neppure scaricato ....\n\nce l\'hai con me e non so il perchè...\n\npazienza ma come si dice ..... adesso a me e domani a te!!!!!!!!','',0,'QA==','fnkvr0zj',1,0,'',49,0,0),(17574,3975,6,168,0,'200.44.49.54',1156342375,1,0,1,1,1,0,'','','Si estas usando MyODBC es DRIVER={MySQL ODBC 3.51 Driver};SERVER=data.domain.com;PORT=3306;DATABASE=myDatabase; USER=myUsername;PASSWORD=myPassword;OPTION=3;\ny si tienes el driver OLEDB para MySQL es Provider=MySQLProv;Data Source=mydb;User Id=UserName;Password=asdasd;\"','',0,'QA==','2cz59wuz',1,0,'',168,0,0),(17575,3982,6,228,0,'201.245.193.4',1156342389,1,0,1,1,1,1,'','Puedo saber si existe un elemento en un array?','Amigos del foro tenga buen dia como siempre yo dando lata con mis preguntas....\n\ncomo dice el encabezado lo que necesito saber es si puedo verificar la existencia de un elemento dentro de un array bidimencional ....\n\nde antemano gracias...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','2nutk004',1,0,'',228,0,0),(17576,3955,6,9,0,'85.54.242.237',1156344476,1,0,1,1,1,1,'','','No sé si será casualidad, pero despues de entrar ayer en el foro, empezaron a salirme las ventanitas y el antivirus me dectecto un spyware (23100247.exe) que me ha costado el ciento y la madre eliminarlo.','',0,'QA==','2melofvf',1,0,'',9,0,0),(17578,3979,20,6,0,'87.3.184.184',1156350790,1,0,1,1,1,1,'','Re: Posizione su una dialog.','Senza un esempio minimale che mostri il problema è difficile dirlo. Però potresti provare a dare il focus al primo controllo ad ogni cambio di tab.\n\nEMG','',0,'QA==','26510wxx',1,0,'',6,0,0),(17579,3976,6,138,0,'201.128.111.188',1156350930,1,0,1,1,1,1,'','','Pues va a ser que no.\n\nLo mejor y mas recomendable con ADS es utilizar SIEMPRE la ruta completa en la apertura del archivo DBF.\n\nuse c:\\carpeta\\otracarpeta\\archivo.dbf\n\nY mejor que mejor, si en vez de utilizar una unidad de red, trabajas mejor con el recurso compartido (solo en aplicaciones de red)\n\nuse \\\\servidor\\recursocompartido\\carpeta\\archivo.dbf','',0,'QA==','rm0o06bc',1,0,'',138,0,0),(17580,3970,3,2,0,'87.218.146.167',1156351139,1,0,1,1,1,1,'','','Arindam,\n\nCould you provide a small and self contained sample about how you use WBoard() ? Thanks','',0,'QA==','19p49k4y',1,0,'',2,0,0),(17581,3975,6,138,0,'201.128.111.188',1156351202,1,0,1,1,1,1,'','','Y para rizar el rizo, cuando necesites alguna cadena de conexion mirate en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->\n\nAhi estan todas para los servidores de datos mas comunmente usados.','',0,'QA==','2q1wq019',1,0,'',138,0,0),(17582,3955,6,2,0,'87.218.146.167',1156351421,1,0,1,1,1,1,'','','Manuel,\n\nLas dos empresas de publicidad que estamos usando son bien conocidas y no creo que esten distribuyendo spyware. Los popups se quitaron y no han vuelto a aparecer. Si notamos algo raro por supuesto que eliminaríamos de inmediato la publicidad. \n\nLa idea es aumentar la capacidad y prestaciones del servidor de estos foros y vamos a ver si este tipo de publicidad puede ayudar a conseguirlo.','',0,'QA==','1fjbyx55',1,0,'',2,0,0),(17583,3980,6,362,0,'200.168.52.156',1156351453,1,0,1,1,1,1,'','Re: trasparent error in dialog','[quote=&quot;Silvio&quot;:kn2f1swi]I want made a dialog trasparent :\n\n the group  when traparent\n\n the say control is trasparent   but the get  control where is ? \n\n  I want  that the get control be no trasparent\n\n  How I can make it? \n\n  test file at :\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02a8655f30/CWPOS.zip.html\">http://hyperupload.com/download/02a8655 ... S.zip.html</a><!-- m -->\n\n\nRegards,[/quote:kn2f1swi]\n\n#INCLUDE \"FiveWin.ch\"\n\n#Define CLR_VERMELHO nRGB( 255, 000, 000 )\n#Define CLR_AMARELO  nRGB( 255, 255, 000 )\n\nFUNCTION Main()\n\n    LOCAL cCodice := SPACE(40)\n\n    LOCAL oFn1, oBrush, oGroup1, oDlp\n\n    DEFINE FONT oFn1  NAME \"Arial\" SIZE 0, -10\n\n    //DEFINE BRUSH oBrush RESOURCE \"brick3\"\n\n    DEFINE BRUSH oBrush FILE \"BRICK3.BMP\"\n\n    DEFINE DIALOG oDlp RESOURCE \"test\"   ;\n           BRUSH oBrush TRANSPARENT\n\n    REDEFINE GROUP oGroup1 ID 51 ;\n             PROMPT \"GROUP BOX \" ;\n             COLOR CLR_VERMELHO, CLR_AMARELO   OF oDlp    ;\n             FONT oFn1 TRANSPARENT\n\n    REDEFINE GET cCodice ID 117 OF oDlp\n\n    ACTIVATE DIALOG oDlp CENTERED RESIZE16\n\nRETURN NIL\n\n\nFIVEWIN 2.7 FOR XHARBOUR 0.99.61','',0,'gA==','kn2f1swi',1,0,'',362,0,0),(17584,3974,6,2,0,'87.218.146.167',1156351598,1,0,1,1,1,1,'','','George,\n\nNecesitas un xHarbour Builder más reciente. El más actual que nosotros hemos probado es el xHB-Professional-August2006-RC8.exe.','',0,'gA==','12aj19ll',1,0,'',2,0,0),(17585,3974,6,171,0,'71.232.193.197',1156354830,1,0,1,1,1,0,'','','Antonio,\n\nRecien compre ayer el xHarbour builder professional, y esta es la version que ellos tienen en su web\n\n\n[b:1ntnxebx]Download xHarbour Builder Professional for Windows  \n \n  Current xHarbour Builder release is: MARCH-2006  \n \n  We encourage you to make a backup copy of your purchased software after downloading it, in case you have computer or hard disk problems later. You have 30 days from the date of purchase to download the product(s) you bought.  \n  \n  To download your purchased software, please click on following link:  [/b:1ntnxebx]\n\n\nDe todos modo los contactare a ver que me dicen\n\nSaludos\n\n\nGeorge','',0,'QA==','1ntnxebx',1,0,'',171,0,0),(17586,3939,6,152,0,'200.113.119.202',1156356450,1,0,1,1,1,0,'','','Sera la unica solucion cambiar los datos a PC con WinXP ??','',0,'QA==','1n5ovh0v',1,0,'',152,0,0),(17587,3974,6,2,0,'87.218.146.167',1156357208,1,0,1,1,1,1,'','','George,\n\nEllos saben que esa versión no es compatible con su propio código CVS de xHarbour, que es el que nosotros usamos para construir FWH para xHarbour.\n\nPor eso tienen versiones más actualizadas. Solicítales que te entreguen lo más reciente para usarlo con FWH 2.7 build de Julio 2006.','',0,'QA==','2auio4u4',1,0,'',2,0,0),(17588,3939,6,2,0,'87.218.146.167',1156357445,1,0,1,1,1,1,'','','Gonzalo,\n\nNosotros podemos facilitarte un build de Harbour más actualizado, pero necesitarás recompilar todos los PRGs tanto de FWH como de tu aplicación.\n\nEnvíanos un email y te lo proporcionamos.','',0,'QA==','1z6dc584',1,0,'',2,0,0),(17589,3974,6,171,0,'71.232.193.197',1156361975,1,0,1,1,1,0,'','','Antonio\n\nBaje de xHarbour.com un beta de: xHB-Professional-August2006-RC9.exe.\n\nMe compilo perfecto y no tuve que añadirle el codigo que me diste anteriormente del hb_stack.\n\nAl correrlo me trabajo bien en todo excepto en los previews;\n\nAhora los preview me salen con las paginas en blanco.\n\nCopie al directorio de mi aplicacion todos los prev*.dll del FWH_JUL_06; pero sigo con el mismo problema.\n\nAlguna sugerencia Antonio.\n\n\nSaludos\n\n\nGeorge','',0,'QA==','gcbjo91i',1,0,'',171,0,0),(17590,3983,2,774,0,'200.72.179.53',1156362184,1,0,1,1,1,0,'','Problemas con Setfocus()','Hola Foro\n\nNuevamente yo molestanto\n\ntengo dos problemitas son el Setfocus() y el valor de una Variable Local  no me funcionan bien\n\ntengo un dialogo,, con algunos get,, en uno de ello pongo un VALID y bifurco a un Function XXXX,, en donde valido el ingreso, y al volver con Return .t. analizo el retorno de informacion y si corresponde o no ,, necesito que un Get en especial tenga el foco de entrada,, le pongo oTget:Setfocus() y nada ,, el foco siempre de queda en un objeto COMBOX que tengo dentro del dialogo,, alguna sugerencia ?????\n\ny el otro usanto dentro de una Function la misma donde valido la informacion asigna una variable LOCAL ccc:=.F. ,, dentro de ese function para esa variable a otro function y manejo su valor asi.. ccc=.T.,, y luego retorno,, pero la variable siempre asume el primer valor,, \n\nla mire con Msginfo,,, al momento de poner ccc=.T. me entrega ese valor pero cuando retorna cambia a .F.,, que sera ?????','',0,'QA==','7fsy5j2a',1,0,'',774,0,0),(17591,3982,6,228,0,'201.245.193.4',1156364483,1,0,1,1,1,1,'','Claro que si..','Gracias Oskar\n\nLo voy a revisar ....','',0,'QA==','qftbztam',1,0,'',228,0,0),(17592,3983,2,2,0,'87.218.146.167',1156366892,1,0,1,1,1,1,'','','Para que desde un control saltes al que quieras en una validación, haz:\n\noControl:oJump = &lt;oControl_a_donde_ir&gt;\n\npor ejemplo:\n\noGet2:oJump = oGet1','',0,'QA==','12ef04z6',1,0,'',2,0,0),(17593,3983,2,2,0,'87.218.146.167',1156366935,1,0,1,1,1,1,'','','Estás pasando la variable lógica por referencia @ ?','',0,'QA==','2p8umqbk',1,0,'',2,0,0),(17594,3974,6,2,0,'87.218.146.167',1156367047,1,0,1,1,1,1,'','','George,\n\nUsas un rpreview.prg modificado por tí ?\n\nPrueba a construir samples\\TestPrn2.prg. Te mostrará un preview con las páginas correctamente.','',0,'QA==','1knz39e3',1,0,'',2,0,0),(17596,3984,6,147,0,'190.7.30.36',1156372924,1,0,1,0,1,1,'','Consulta cGetdir','Estimados:\nPuedo indicar en cGetDir() que tome la carpeta, por defecto, Mis Dcoumentos definida por windows?; Cómo?\n\ngracias','',0,'QA==','2j3sfvcd',1,0,'',147,0,0),(17597,3974,6,171,0,'71.232.193.197',1156376400,1,0,1,1,1,0,'','','Antonio,\n\nEn los ejemplos testprn se ve el documento en el preview, pero la barra de la seleccion se ve como en windows 3.1;\n\nLos otros programa mio que compilo, siempre me sale el preview en blanco. no estoy usando rpreview.prg ni printer.prg\n\nIntente linkeando el rpreview.prg que trajo el FWH 2.7 pero me genera el siguiente error:\n\n\nApplication\n===========\n   Path and name: F:\\_loandb\\loandb.exe (32 bits)\n   Size: 2,401,792 bytes\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 08/23/2006, 19:31:59\n   Error description: Error BASE/1005  Message not found: TMETAFILE:_BMOUSEWHEEL\n\nStack Calls\n===========\n\n   Called from:  =&gt; TMETAFILE:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TMETAFILE:MSGNOTFOUND(0)\n   Called from: TMETAFIL.PRG =&gt; TMETAFILE:_BMOUSEWHEEL(167)\n   Called from: rpreview.prg =&gt; RPREVIEW(319)\n   Called from: REPORT.PRG =&gt; (b)TREPORT:NEW(0)\n   Called from: REPORT.PRG =&gt; TREPORT:ACTIVATE(0)\n\nTambien intente copiando los dll de PREV*.DLL de FWH 2.7 sin resultado\n\nSeguire tratando otras cosas, pero no tengo idea por donde anda el mismo. \n\nSaludos\n\n\nGeorge\n\n[/code]','',0,'','ufd7isvh',1,0,'',171,0,0),(17598,3975,6,644,0,'200.125.127.11',1156377841,1,0,1,1,1,0,'','','Gracias Yamil y René. Estoy probando, vamos a ver que pasa con esto de MySql. Gracias por todo','',0,'','1vaiw8u8',1,0,'',644,0,0),(17599,3984,6,644,0,'200.125.127.11',1156378249,1,0,1,1,1,0,'','','Mario\nFijate que cGetDir Tiene tres parámetros. El primero es el título del dialogo. El Segundo es el directorio Inicial, en tu caso c:\\mis documentos\nEspero que te sirva\nSaludos','',0,'','2sqtzjlj',1,0,'',644,0,0),(17600,3974,6,171,0,'71.232.193.197',1156379615,1,0,1,1,1,0,'','','Antonio\n\nEl problema del PREVIEW quien lo causa es TSBROWSE Ver 6.0\n\nAl eliminar las llamadas a TSBROWSE el preview trabaja perfecto\n\n\nGracias por tu ayuda\n\n\nSaludos\n\n\nGeorge','',0,'','24uras3r',1,0,'',171,0,0),(17601,3985,6,694,0,'200.181.206.177',1156381945,1,0,1,1,1,1,'','Mapear unidade ou trabalhar com IP ou DNS???','Amigos,\n\n MAPEAR UNIDADE\n DNS\n IP\n\n para trabalhar em rede qual a maneira mais rápida e estavel?','',0,'','25ziu64r',1,0,'',694,0,0),(17602,3986,6,665,0,'196.40.13.72',1156386530,1,0,1,1,1,0,'','Problemas de cadenas y con macros y con USE()','Hola Amigos\n\nEmigrando mis programas  a FWH me he encontrado con un comportanmiento estrañó con  el uso de cadenas compuestas con una macro, esta las uso para formar un nombre  de archivo con su respectivo\nmapeo, pondre un ejemplo..\n\ncCedena0:=\"1\" &amp;&amp; lleva un indice caracter  que viene segun proceso anterior\n\ncCadena1:=cPathFinal+\"\\L+\"&amp;cCadena0\"+\".Pre\"\n\nTodo hasta aqui trabaja bien en FW24, y aun en FWH27, pero el problema viene cuando..\n\nUSE (cCadena1) Alias cArchivo\n\nME da error  \n\nDBFCDX\\1001 open error c:\\proyectos\\boleteria\\bin\\dat\n\ntan es asi que no llega a dar el error completo\n\nSi le escribo el aun asi\ncCadena1:=\"C:\\PROYECTOS\\BOLETERIA\\BIN\\DATA\\L1.PRE\"\n\nUSE (cCadena1) Alias cArchivo\n\nArroja el mismo error, le he puesto &amp;(cCadena1)  por todas las maneras que conozco y  me da el mismo el error , pero si le escribo el path directo no hay problemas.\n\nHabra  una manera diferente en FWH27  al  emigrar\n\nGracias\nBusmatic de Costa Rica\n.','',0,'','36zu1myu',1,0,'',665,0,0),(17603,3985,6,138,0,'201.128.111.188',1156387243,1,0,1,1,1,1,'','','Por la UNC\n\n\\\\servidor\\recursocompartido\\carpeta\\archivo','',0,'','2iwedwqp',1,0,'',138,0,0),(17604,3987,4,47,0,'203.144.143.3',1156389620,1,0,1,1,1,0,'','Use command error DbUseArea()?','Dear All,\n\nI just bought FWPPC and try an example but the USE command to open database file (DBFCDX) doesn\'t work.  What is my mistake?  The error message is \"Open error; Stack Call; DbUseArea(0)\"\n\nBest regards\nDutch','',0,'','1l649zrv',1,0,'',47,0,0),(17605,3970,3,705,0,'61.2.4.151',1156401292,1,0,1,1,1,0,'','','Hello Antonio.\n\nI did a project in my xCompany which was developed in Flagship [Multisoft Gmbh]. That was a hybrid application, which was run in Basic, Terminal and GUI Mode also. So far my memory the code was as follows:\n\n• Code:\nFunction Main()\n   Local w1\n   Local Name    := Space(20)\n   Local Phone   := Space(8)\n   Local GetList := {}   \n\n   w1 := Wopen(10, 12, 20, 50)\n   wCaption(\"Test Window\")\n\n   wBOARD(5, 5, 25, 70)   // if it is not specify, window move entire region\n   wMoveUser(.T.)            // if  it is omitted or .F. then window donot move\n\n   @ 2, 5 Say \"Enter your Name and Tel No\"\n   @ 4, 2 Say “Name”\n   @ 5, 2 Say “Tel”\n\n   @ 4, 8 Get Name\n   @ 5, 8 Get Phone\n   \n   Read\nReturn Nil \n\nIn xHarbour, command description of wBoard() is :\n\n• Description:\n  This function defines the screen area where windows are permitted.\n  Windows are subsequently only visible in this defined area.  You can use \n  this function to protect an area of the screen from being overwritten with \n  windows, even when you allow the user to move the window \n  interactively.  The boundaries designated by WBOARD() become the \n  screen boundaries for window functions.\n\n  Notes\n  WBOARD() is only effective when there are no open windows.\n  Always consider that closing individual windows or all the windows never \n  influences the setting of the window border.  So if you neglect to\n  specifically eliminate the window border, you can have unanticipated\n  problems later when you open windows.\n\nPlease note that yet I have not developed any project in xHarbour as because while I go through the xHarbour, I learn about FiveWin. Now I am trying to do developed application in Fivewin. \n\nArindam','',0,'','we8xwqk2',1,0,'',705,0,0),(17606,3987,4,2,0,'87.218.146.167',1156403183,1,0,1,1,1,1,'','','Dutch,\n\nWhat FWPPC sample are you testing ?\n\nPlease notice that you have to specify the CurDir():\n\n USE ( CurDir() + \"\\Customer\" ) VIA \"DBFCDX\"','',0,'','2gbef4dm',1,0,'',2,0,0),(17607,3974,6,2,0,'87.218.146.167',1156403454,1,0,1,1,1,1,'','','George,\n\nMe alegro de que hayas localizado el problema.','',0,'','keucqzpd',1,0,'',2,0,0),(17608,3981,3,2,0,'87.218.146.167',1156404591,1,0,1,1,1,1,'','','Arindam,\n\nThat behavior is automatically managed by the Windows API. \n\nHave you tried to change the oDlg:nTop and oDlg:nLeft of the iconized dialog ?','',0,'','1xbok9gv',1,0,'',2,0,0),(17609,3970,3,2,0,'87.218.146.167',1156405034,1,0,1,1,1,1,'','','Arindam,\n\nFiveWin uses the Windows APIs as much as possible. Wboard() is not needed neither supported for a FiveWin application.\n\nYou can control the location of a window using oWnd:nTop, oWnd:nLeft, oWnd:nWidth and oWnd:nHeight.\n\nAlso if you want to restrict the dimensions of a certain window you may use the DATA aMinMaxInfo. There is a working sample at samples\\TestSize.prg\n\nOn a MDI window it is possible to modify the container area for the MDI Child windows. Thats another possibility.','',0,'','1cjg2oxk',1,0,'',2,0,0),(17610,3983,2,2,0,'87.218.146.167',1156405277,1,0,1,1,1,1,'','','Oscar,\n\nEl método (ó función) SetFocus() no siempre te permite cambiar el foco en los procesos de validación, por eso se usa la DATA oJump en algunos casos.','',0,'','1styw30z',1,0,'',2,0,0),(17611,3986,6,2,0,'87.218.146.167',1156405783,1,0,1,1,1,1,'','','Puede tratarse de un error de tratamiento de macros del build de Harbour/xHarbour que estés usando. Ultimamente se han corregido algunas cosas con las macros.\n\nDe todas formas, el mejor consejo es que intentes evitar el uso de las macros. Tu código puede cambiarse a:\n\ncCadena1:=cPathFinal+\"\\L\"+cCadena0+\".Pre\" \nUSE (cCadena1) Alias cArchivo','',0,'','2myflplh',1,0,'',2,0,0),(17612,3987,4,47,0,'203.144.143.2',1156409552,1,0,1,1,1,0,'','My example','Dear Antonio,\n\nThis is my first test prg.\n\n#include \"Fwce.ch\"\n\n*--------------*\nFUNCTION MAIN() \n\n    LOCAL oWnd, oBmp\n\n    LOCAL cVar1 := SPACE( 20 ) \n    LOCAL cVar2 := SPACE( 20 ) \n\n//    HB_LANGSELECT( \"ESWIN\" )\n    SET DELETED ON\n    SET DATE TO BRITISH\n    SET SOFTSEEK ON\n    SET CENTURY ON\n    SET EPOCH TO 2000\n\nRequest DbfCdx \nRequest DbfFpt \nRddSetDefault (\'DbfCdx\')\n\n\nUse (CURDIR()+\"\\CCRTBL\") VIA \"DBFCDX\" NEW\n\n    DEFINE WINDOW oWnd \n\n    @ 1, 1 SAY \"Table No. :\"; \n           SIZE 70, 20 \n\n    @ 1, 10 GET cVar1; \n            SIZE 70, 20 \n\n    @ 80,15 BTNBMP FILENAME CURDIR() + \"\\Open.bmp\" ; //	    \'Open\' ;\n	    SIZE 60, 40 ;\n	    ACTION MsgInfo(\'Open Table : \'+rtrim(cVar1) )\n\n    @ 80,90 BTNBMP FILENAME CURDIR() + \"\\Exit.bmp\" ; //	    \'Open\' ;\n	    SIZE 60, 40 ;\n	    ACTION if(MsgYesNo(\'Exit Program\',\'Select Options\'), oWnd:End(), )\n\n    ACTIVATE WINDOW oWnd \nDbCloseAll()\nRETURN NIL\n\nBest regards,\nDutch','',0,'','1bc9dt25',1,0,'',47,0,0),(17613,3987,4,47,0,'203.144.143.4',1156413825,1,0,1,1,1,0,'','I\'ve got it.','Dear Antonio,\n\nI\'m missing a database file in emulator path.  Sorry, It works fine now.\n\nBest regards,\nDutch','',0,'','12358id8',1,0,'',47,0,0),(17614,3987,4,2,0,'87.218.146.167',1156414542,1,0,1,1,1,1,'','','Dutch,\n\nGlad to know its working fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3j8pdnni',1,0,'',2,0,0),(17615,3984,6,147,0,'201.253.19.47',1156419616,1,0,1,0,1,1,'','','Horacio:\nGracias, eso ya lo lei en la Ayuda. La pregunta es:\nSi la aplicación se correo en XP con varias sesiones, Mis Documentos, está en por ej: C:\\Documents and Settings\\Estela\\Mis documentos\\\nSi está en Win98SE con varias sesiones en: C:\\Windows\\Profiles\\Estela\\Mis documentos\\\nY esa es la pregunta, de donde \"leer\" esos caminos según la sesión iniciada.','',0,'','gnubs9z9',1,0,'',147,0,0),(17616,3988,6,106,0,'85.34.123.173',1156421132,1,0,0,1,1,0,'','funciones de comunicaciones...','en fwh 2.7 funcionan ya las funciones de comunicaciones?\n\nxHarbour Compiler build 0.99.51\nfwh 2.7 diciembre/2005\n\n\nGracias.','',0,'','1xnmj9n9',1,0,'',106,0,0),(17617,3988,6,2,0,'87.218.146.167',1156421382,1,0,1,1,1,1,'','','Por los resultados comentados por usuarios como Enrico, si funcionan correctamente.','',0,'','udo1d9qk',1,0,'',2,0,0),(17618,3984,6,2,0,'87.218.146.167',1156421527,1,0,1,1,1,1,'','','Mario,\n\nSeguramente estén en algún valor del registro.\n\nPrueba a abrir un documento y luego busca su path en el registro.','',0,'','7yzq77sd',1,0,'',2,0,0),(17619,3988,6,106,0,'85.34.123.173',1156422233,1,0,0,1,1,0,'','','pero con la version de diciembre o con la actual?\n\ngracias.','',0,'','2yr0t28d',1,0,'',106,0,0),(17620,3984,6,21,0,'81.172.120.69',1156422901,1,0,1,1,1,1,'','','Hola Mario,\n\nExiste la variable de entorno UserProfile que quizas te pueda servir\n\nEn xp\ngetenv(\"UserProfile\") -&gt; C:\\Documents and Settings\\Estela \n\nEn win98\ngetenv(\"UserProfile\") -&gt; C:\\Windows\\Profiles\\Estela\n\nPor tanto podrías usar:\ncGetDir( \'texto de la ventana\', getenv(\"UserProfile\")+\"\\Mis documentos\" )','',0,'','3inixpya',1,0,'',21,0,0),(17623,3989,4,3,0,'82.124.240.128',1156433205,1,0,1,1,1,1,'','DATEPICKER','Hello\n\nDatepicker always retreives the &quot;today\'s  date&quot; whatever the setting. is this intentional or is it a bug ? \n\nThis is a small sample to show the problem\n\nThe date should show 14/06/2005  and not today\'s date\n\nThanks\n\nRichard \n\n[code=fw:1haovptd]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"><br /><span style=\"color: #00D7D7;\">#include</span> <span style=\"color: #ff0000;\">&quot;C:<span style=\"color: #000000;\">\\F</span>WPPC<span style=\"color: #000000;\">\\I</span>NCLUDE<span style=\"color: #000000;\">\\F</span>WCE.ch&quot;</span><br /><br /><span style=\"color: #00C800;\">FUNCTION</span> MAIN<br /><br /><span style=\"color: #00C800;\">local</span> ownd, ;<br />&nbsp; &nbsp; &nbsp; DDATE<br /><br />SET DELETE <span style=\"color: #0000ff;\">ON</span><br />SET DATE <span style=\"color: #0000ff;\">TO</span> FRENCH<br />SET CENTURY <span style=\"color: #0000ff;\">ON</span><br />SET EPOCH <span style=\"color: #0000ff;\">TO</span> <span style=\"color: #000000;\">2000</span><br /><br />DDATE := CTOD<span style=\"color: #000000;\">&#40;</span><span style=\"color: #ff0000;\">&quot;14/06/2005&quot;</span><span style=\"color: #000000;\">&#41;</span><br /><br /><span style=\"color: #0000ff;\">DEFINE</span> <span style=\"color: #0000ff;\">WINDOW</span> OWND<br /><br />@ <span style=\"color: #000000;\">0</span>, <span style=\"color: #000000;\">10</span> &nbsp;<span style=\"color: #0000ff;\">SAY</span> <span style=\"color: #ff0000;\">&quot;Date &quot;</span> <span style=\"color: #0000ff;\">OF</span> OWND <span style=\"color: #0000ff;\">SIZE</span> <span style=\"color: #000000;\">30</span>,<span style=\"color: #000000;\">15</span> <span style=\"color: #0000ff;\">PIXEL</span> BORDER <span style=\"color: #0000ff;\">CENTER</span><br />@ <span style=\"color: #000000;\">0</span>, <span style=\"color: #000000;\">50</span> &nbsp;DTPICKER DDATE <span style=\"color: #0000ff;\">OF</span> OWND <span style=\"color: #0000ff;\">SIZE</span> <span style=\"color: #000000;\">80</span>,<span style=\"color: #000000;\">15</span> &nbsp; <span style=\"color: #0000ff;\">PIXEL</span><br /><br /><span style=\"color: #0000ff;\">activate</span> <span style=\"color: #0000ff;\">window</span> OWND<br /><span style=\"color: #00C800;\">RETURN</span> <span style=\"color: #00C800;\">NIL</span><br />&nbsp;</div>[/code:1haovptd]','613f68516d2e21bdf4b321a293a34df2',0,'AIA=','1haovptd',1,0,'',3,0,0),(17624,3980,6,49,0,'62.13.172.78',1156433241,1,0,1,1,1,1,'','','on my pc not run ok\nwhen I open the dialog I see the group but i not see the gets\n[url=http&#58;//img83&#46;imageshack&#46;us/my&#46;php?image=errorap9&#46;jpg:26o9mo18][img:26o9mo18]http&#58;//img83&#46;imageshack&#46;us/img83/1537/errorap9&#46;th&#46;jpg[/img:26o9mo18][/url:26o9mo18]\n\nRegards,','',0,'GA==','26o9mo18',1,0,'',49,0,0),(17625,3971,4,3,0,'82.124.240.128',1156433243,1,0,1,1,1,1,'','','[quote=&quot;Carles&quot;:3bpmg14b]Sample\n\n[code:3bpmg14b]#include &quot;Fwce&#46;ch&quot;\n\n#define SM_CXSCREEN 0\n#define SM_CYSCREEN 1\n\n*--------------\nFUNCTION Main&#40;&#41;\n*--------------\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg FROM 2,2 TO 13, 30\n\n      @ 1, 1 BUTTON &quot;Maximize&quot; SIZE 100, 20 ACTION Maximize&#40; oDlg &#41;\n\n      @ 3, 1 BUTTON &quot;Exit    &quot; SIZE 100, 20 ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg\n\nRETU NIL\n\n*-------------------------------\nSTATIC FUNCTION Maximize&#40; oDlg &#41;\n*-------------------------------\n   LOCAL nWidth  &#58;= GetSysmetrics&#40; SM_CXSCREEN &#41;\n   LOCAL nHeight &#58;= GetSysmetrics&#40; SM_CYSCREEN &#41;\n\n   MoveWindow&#40; oDlg&#58;hWnd, 0, 0, nWidth, nHeight &#41;\n\nRETU NIL[/code:3bpmg14b][/quote:3bpmg14b]\n\nThank you','',0,'gIA=','3bpmg14b',1,0,'',3,0,0),(17626,3939,6,376,0,'201.230.172.88',1156435035,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3fp28qyz]Gonzalo,\n\nNosotros podemos facilitarte un build de Harbour más actualizado, pero necesitarás recompilar todos los PRGs tanto de FWH como de tu aplicación.\n\nEnvíanos un email y te lo proporcionamos.[/quote:3fp28qyz]\n\nAntonio..\n\nEsa recompilación de FWH lo haces con un Batch?. Podrías enviarme a mi email: <!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e --> lo que enviarás a Gonzalo?\n\nTe agradecería muchiiisimo.\n\nSaludos\n\nArmando','',0,'gA==','3fp28qyz',1,0,'',376,0,0),(17627,3980,6,362,0,'200.168.52.156',1156435433,1,0,1,1,1,1,'','','//-&gt; Change in your class GROUP.PRG\n\n#define WM_UPDATEUISTATE 296  // 0x0128','',0,'gA==','uonb1eg7',1,0,'',362,0,0),(17628,3980,6,362,0,'200.168.52.156',1156435490,1,0,1,1,1,1,'','','//-&gt; Change in your class GROUP.PRG\n\nMETHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGroup\n\n   local nResult\n\n   if ::lDrag .and. nMsg == WM_NCHITTEST      // To have a standard behavior on Clicks\n       return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )\n   endif\n\n   if nMsg == WM_UPDATEUISTATE  // Groups and contained controls were erased when pressing ALT\n        nResult = Super:HandleEvent( nMsg, nWParam, nLParam )\n        ::oWnd:Refresh()\n        return nResult\n    endif\n\nreturn Super:HandleEvent( nMsg, nWParam, nLParam )','',0,'gA==','19dpu8dw',1,0,'',362,0,0),(17629,3980,6,362,0,'200.168.52.156',1156435525,1,0,1,1,1,1,'','','//-&gt; Change in your class GROUP.PRG\n\nMETHOD Colors( hDC ) CLASS TGroup\n\n   DEFAULT ::nClrText := GetTextColor( hDC ),;\n           ::nClrPane := GetBkColor( hDC ),;\n           ::oBrush   := TBrush():New( , ::nClrPane )\n\n   SetTextColor( hDC, ::nClrText )\n   SetBkColor( hDC, ::nClrPane )\n\n  if ::oBrush:hBitmap != nil\n     SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop )\n  endif\n\nreturn ::oBrush:hBrush\n\n//-&gt; RECOMPILE YOUR FIVEHX.LIB\n\nRegards, saludos.','',0,'gA==','hg6ud7wl',1,0,'',362,0,0),(17630,3959,3,190,0,'202.65.134.43',1156436398,1,0,1,1,1,0,'','','Hello Mr.Timm\n\nSimplest way of presenting big things.\nYour calculator is very simple and cute.\n\nKeep posting such good things.\n\nBTW I sent a small modification to your code to your email.\n\nPlease check its accuracy. But I am getting the required results\nwith this modification.\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','2ymgxl51',1,0,'',190,0,0),(17631,3989,4,2,0,'87.218.146.167',1156437077,1,0,1,1,1,1,'','','Richard,\n\nIt has been already fixed. You may download a new FWPPC build that also includes the Class TWindow Method SetSize().','',0,'gA==','o94jij1b',1,0,'',2,0,0),(17632,3980,6,217,0,'200.159.120.34',1156437104,1,0,1,1,1,0,'','','Silvio, I download your sample and in RC file I saw you define\nGroupBox after EditText. Change your tab order to create groupbox first, or change your .rc file to:\n\n[code:k3y5skzw]\ntest DIALOG 160, 90, 283, 209\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION &quot;test trasparent&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n GROUPBOX &quot;I want be trasparent&quot;, 51, 4, 127, 277, 66, BS_GROUPBOX\n LTEXT &quot;Value&#58;&quot;, -1, 9, 166, 24, 8\n EDITTEXT 117, 38, 164, 239, 12\n&#125;\nbrick3 BITMAP &quot;d48&#46;bmp&quot;\n[/code:k3y5skzw]\n\nTry this and let us know if worked.\n\nRegards from Brazil\nMaurilio','',0,'AIA=','k3y5skzw',1,0,'',217,0,0),(17633,3939,6,2,0,'87.218.146.167',1156437258,1,0,1,1,1,1,'','','Armando,\n\nNo, no usamos un batch. Usamos un make bastante complejo ya que construye FW para cinco compiladores distintos.\n\nEn unos dias publicaremos el build de Agosto con todos los nuevos cambios y los builds más recientes de Harbour y xHarbour, que no quisimos publicarlos en Julio porque no estaban totalmente estables.','',0,'AIA=','333ujlqz',1,0,'',2,0,0),(17634,3988,6,2,0,'87.218.146.167',1156437461,1,0,1,1,1,1,'','','Con FWH 2.7 actual (Julio 2006).','',0,'AIA=','1c6el7yg',1,0,'',2,0,0),(17635,3990,3,6,0,'87.16.223.61',1156437509,1,0,1,1,1,1,'','Shell.Explorer toolbar','This sample doesn\'t show the IE toolbar. Why?\n\n[code:gw555rf0]#include &quot;Fivewin&#46;ch&quot;\n\n\nSTATIC FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oIe\n\n    DEFINE WINDOW oWnd\n\n    oIe = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n    oIe&#58;Do&#40; &quot;ToolBar&quot;, &#46;T&#46; &#41;\n\n    oIe&#58;Do&#40; &quot;Navigate&quot;, &quot;www&#46;google&#46;com&quot; &#41;\n\n    oWnd&#58;oClient = oIe\n\n    ACTIVATE WINDOW oWnd;\n             MAXIMIZED\n\n    RETURN NIL[/code:gw555rf0]\n\nEMG','',0,'AIA=','gw555rf0',1,0,'',6,0,0),(17637,3980,6,49,0,'62.13.172.78',1156438440,1,0,1,1,1,1,'','','DEAR Maurilio Viana\n\nYOU\' RE  A GURUUUUUU very much !!!\n\nlook at :http://hyperupload.com/download/0230d88831/printbar.zip.html','',0,'AIA=','21a0xgkr',1,0,'',49,0,0),(17638,3977,3,49,0,'62.13.172.78',1156438976,1,0,1,1,1,1,'','','Frank,\n I found the solution  see at :http://fivetechsoft.com/forums/viewtopic.php?p=17627#17627\n\nREgards,','',0,'AIA=','5gr6nmj5',1,0,'',49,0,0),(17639,3990,3,2,0,'87.218.146.167',1156439224,1,0,1,1,1,1,'','','Enrico,\n\nWe have tried with:\n\n oIe:SetProp( \"ToolBar\", .T. )\n\nand same result. We don\'t know why it does not shows <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'AIA=','3viixva3',1,0,'',2,0,0),(17640,3992,4,47,0,'203.144.143.8',1156441359,1,0,1,1,1,0,'','Which model of PPC that suitable with FWPPC?','Dear Antonio,\n\nI will buy a PPC for testing but I\'m not quite sure the model and CPU type that will suitable with FWPPC.\n\n- HP model or O2 XDA II or ?\n- XScale or OMAP or ?\n- WLan (WiFi) for Window Server 2003 connection by 801.11b or 802.11b or ?\n\nThank you very much if I can get an answer today.\n\nBest regards,\nDutch','',0,'AIA=','16uwwiit',1,0,'',47,0,0),(17641,3992,4,2,0,'87.218.146.167',1156441773,1,0,1,1,1,1,'','','Dutch,\n\nWe use HP here, but you can choose any Pocket PC that uses the intel xscale processor or compatible. 64 MBs memory is ok but 128 MBs is much better. Windows Mobile 2005 runs slowly with 64 MBs.\n\nIf you have the chance to test an application on it (just inserting a SD memory card with the test) then you may be sure it will be ok.','',0,'AIA=','2e5bpqts',1,0,'',2,0,0),(17642,3990,3,6,0,'87.16.223.61',1156442273,1,0,1,1,1,1,'','','Thank you anyway, Antonio.\n\nEMG','',0,'AIA=','25k2evvm',1,0,'',6,0,0),(17643,3992,4,47,0,'203.144.143.9',1156442882,1,0,1,1,1,0,'','How about WLan between 801.11b and 802.11b?','Dear Antonio,\n\nThanks for prompt reply.  I would like to know which I should choose between 801.11b and 802.11b\n\nBest regards,\nDutch','',0,'AIA=','7g1mx3xq',1,0,'',47,0,0),(17644,3989,4,3,0,'82.250.117.231',1156443640,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:12k1i2vf]Richard,\n\nIt has been already fixed. You may download a new FWPPC build that also includes the Class TWindow Method SetSize().[/quote:12k1i2vf]\n\nAntonio <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias','',0,'gA==','12k1i2vf',1,0,'',3,0,0),(17645,3993,4,3,0,'82.250.117.231',1156446444,1,0,1,1,1,1,'','control for time ?','Antonio,\n\nIs there a control that can display only the time (hour minutes) in fwppc ?\n\nI do not need the date, just time.\n\nRichard','',0,'gA==','1ngzsrrr',1,0,'',3,0,0),(17646,3992,4,3,0,'82.250.117.231',1156446619,1,0,1,1,1,1,'','Re: How about WLan between 801.11b and 802.11b?','[quote=&quot;dutch&quot;:1dvugwt0]Dear Antonio,\n\nThanks for prompt reply.  I would like to know which I should choose between 801.11b and 802.11b\n\nBest regards,\nDutch[/quote:1dvugwt0]\n\nDutch\n\nThese are wifi concerns\n\n802.11b is the mot recent\n\nAnyway make sure it is a \"POCKET PC\" not a plam, including windows microsoft and better 128 mb memory\n\nAcer has excellent pda\'s also or Dell or Hp. I personnally use a HP Ipaq 6515. \n\nRichard','',0,'gA==','1dvugwt0',1,0,'',3,0,0),(17647,3994,4,3,0,'82.250.117.231',1156447302,1,0,1,1,1,1,'','Gprs','Hello\n\nHas anyone succeeded retreiving data from a mainframe to a pocket pc via gprs ?\n\nAny sample will be appeciated,\n\nThanks for your help,\n\nRichard','',0,'gA==','23aeg8jo',1,0,'',3,0,0),(17648,3983,2,774,0,'200.72.65.89',1156448515,1,0,1,1,1,0,'','','Antonio molestanto de nuevo,, no me funciona oControl:oJump....\n\npq sera.. mira el codigo fuente...\n\nREDEFINE GET TgGet[19]  VAR Det  [01]  ID 218 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE  \"@!\"          VALID BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto)\n\n\nFunction BusProd          (TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto)\nDo Case\n   Case vCbx2=\"TF\"\n   //Scopes de Productos\n   oProducto:Setorder(1)\n   oProducto:Gotop()\n   oProducto:Seek(Det[01])\n   If oProducto:found()\n   Det[1]=oProducto:codprod\n   Det[2]=oProducto:descri\n   Else\n   Det[01]:=space(27)\n   Det[02]:=space(40)\n   VNominaP(oProducto,Det,TgGet,oPreprod)\n   Endif\n   //\n   If !empty(Det[1])\n   //Buscar Precio\n   oPreprod:Setorder(2)\n   oPreprod:Gotop()\n   oPreprod:Seek(PADR((Alltrim(Det[1])+Alltrim(PPD[1])),29))\n   \n   If oPreprod:Found()\n   Det[4]=oPreprod:total\n   Det[8]=oPreprod:desc\n   Det[9]=oPreprod:total\n   Else\n   //Buscar Precio por Defecto\n   oPreprod:Setorder(2)\n   oPreprod:Gotop()\n   oPreprod:Seek(PADR((Alltrim(Det[1])+Alltrim(Defecto)),29))\n   If oPreprod:Found()\n   MsgInfo(\"No existe Precio de Referencia para Producto\"+CHR(13)+\"Se utilizaran el precio de Defecto del sistema\")\n   Det[4]=oPreprod:total\n   Det[8]=oPreprod:desc\n   Det[9]=oPreprod:total\n   Else\n   MsgInfo(\"No existe Precio de Referencia para Producto\")\n   Det[01]:=space(27)\n   Det[02]:=space(40)\n   Det[03]=0\n   Det[04]=0\n   Det[05]=0\n   Det[06]=0\n   Det[07]=0\n   Det[08]=0\n   Det[09]=0\n   Endif\n   Endif\n   Else\n   Det[01]:=space(27)\n   Det[02]:=space(40)\n   Det[03]=0\n   Det[04]=0\n   Det[05]=0\n   Det[06]=0\n   Det[07]=0\n   Det[08]=0\n   Det[09]=0\n   Endif\n   //\n   For x=19 to 24\n   TgGet[x]:Refresh()\n   Next x \n   TgGet[19]:oJump=TgGet[21]\n   Otherwise\n\nEndcase\nReturn .T.\n\nFunction VNominaP(oProducto,Det,TgGet,oPreprod)\nLocal oDlg\nLocal oFont\nLocal oSay\nLocal oCbx\nLocal vCombox\nLocal oGet\nLocal vGet\nLocal oBtn1,oBtn2\nLocal oTbr\nLocal oBp\nLocal oBmp\n//\noProducto:Setorder(4)\noProducto:Gotop()\n//\nDEFINE FONT oFont NAME \"MS Sans Serif\" SIZE 0,-12\n\nDEFINE DIALOG oDlg RESOURCE 22 FONT oFont\n\nREDEFINE BITMAP oBmp ID 600 OF oDlg FILENAME \"bmp\\cemento.bmp\"   TRANSPAREN \nREDEFINE BITMAP oBmp ID 601 OF oDlg FILENAME \"bmp\\osb.bmp\"       TRANSPAREN \nREDEFINE BITMAP oBmp ID 602 OF oDlg FILENAME \"bmp\\pizarre.bmp\"   TRANSPAREN   \n\nREDEFINE SAY      oSay ID 100 OF oDlg COLOR nRGB(0,0,128)\nREDEFINE COMBOBOX oCbx VAR vCombox ITEMS {oemtoansi(\"Por C¢digo\"),\"Por Grupo\",oemtoansi(\"Por Descripci¢n\")} ID 300 OF oDlg  ON CHANGE VCboP(oProducto,vCombox,oTbr)\nREDEFINE GET      oGet VAR vGet ID 200 OF oDlg COLOR nRGB(0,0,128),nRGB(255,255,255)  PICTURE \"@!\"\nREDEFINE BTNBMP   oBtn ID 50  OF oDlg FILENAME \"bmp\\Buscar.bmp\"  ACTION  SSBBrowse(oProducto,oTbr,vGet),Refresco(oTbr,oProducto),vGet:=Space(40),oGet:Refresh()\n\nREDEFINE BROWSE oBp ID 501 OF oDlg FONT oFont\n\nADD COLUMN TO BROWSE oBp DATA oPreprod:Descri;\n    HEADER  \"Tipo\"+CHR(13)+\"Cliente\";\n    SIZE 100;\n    PICTURE \"@\";\n    ALIGN DT_LEFT,DT_CENTER;\n    3DLOOK TRUE\n\nADD COLUMN TO BROWSE oBp DATA oPreprod:Sigla;\n    HEADER  \"T\"+CHR(13)+\"C\";\n    SIZE 20;\n    PICTURE \"@\";\n    ALIGN DT_LEFT,DT_CENTER;\n    3DLOOK TRUE \n\nADD COLUMN TO BROWSE oBp DATA oPreprod:Neto;\n    HEADER  \"Precio\"+CHR(13)+\"Neto\";\n    SIZE 70;\n    PICTURE \"9,999,999\";\n    ALIGN DT_RIGHT,DT_CENTER;\n    3DLOOK TRUE \n\nADD COLUMN TO BROWSE oBp DATA oPreprod:iva;\n    HEADER  \"IVA\";\n    SIZE 70;\n    PICTURE \"9,999,999\";\n    ALIGN DT_RIGHT,DT_CENTER;\n    3DLOOK TRUE \n\nADD COLUMN TO BROWSE oBp DATA oPreprod:Total;\n    HEADER  \"TOTAL\";\n    SIZE 70;\n    PICTURE \"9,999,999\";\n    ALIGN DT_RIGHT,DT_CENTER;\n    3DLOOK TRUE \n\noBp:Setcolor({2,15},{;\n             nRGB(220,255,220),; //Fondo Linea\n             nRGB(255,200,255) ; //Lineas del Grid\n             })\n\noBp:SetOdbf(oPreprod)\noBp:lNoHScroll := .T. //Conecta la barra scroll horizontal\noBp:nFreeze:=1\n\n\n\nREDEFINE BROWSE oTbr ID 500 OF oDlg FONT oFont;\nON CHANGE (MMDatos(oProducto,oFont,oTbr,oBp,oPreprod))\n\n\nADD COLUMN TO BROWSE oTbr DATA oProducto:Codprod;\n    HEADER  oemtoansi(\"C¢digo\");\n    SIZE 150;\n    PICTURE \"@!\";\n    ALIGN DT_LEFT;\n    3DLOOK TRUE\n\nADD COLUMN TO BROWSE oTbr DATA oProducto:codi_fami;\n    HEADER  \"Grupos\"+CHR(13)+\"T/F\";\n    SIZE 50 ;\n    PICTURE \"999\";\n    ALIGN DT_LEFT;\n    3DLOOK TRUE \n\nADD COLUMN TO BROWSE oTbr DATA oProducto:Descri;\n    HEADER  oemtoansi(\"Descripci¢n\");\n    SIZE 300 ;\n    PICTURE \"@!\";\n    ALIGN DT_LEFT;\n    3DLOOK TRUE\n\nADD COLUMN TO BROWSE oTbr DATA oProducto:Stock;\n    HEADER  \"Stock Producto\";\n    SIZE 100 ;\n    COLOR nRGB(0,0,255);\n    PICTURE \"9,999,999.99\";\n    ALIGN DT_RIGHT;\n    3DLOOK TRUE\n\noTbr:Setcolor({2,15},{;\n             nRGB(255,255,220),; //Fondo Linea\n             nRGB(255,200,255) ; //Lineas del Grid\n             })\noTbr:Setcolor({1},{;\n             {|| If(oProducto:Stock&gt;=0,nRGB(0,0,255),nRGB(255,0,0))} ; //Texto Linea\n             },4)\noTbr:SetOdbf(oProducto)\noTbr:nFreeze      :=1\noTbr:lNoHScroll   := .F. //Conecta la barra scroll horizontal\noTbr:bkeydown       := { |nKey|VKP(oProducto,oTbr,nKey,Det,TgGet,oDlg)}\noTbr:bLDblClicked   := { || VKDbP(oProducto,oTbr,Det,TgGet,oDlg)}\n\nREDEFINE SBUTTON oBtn1 ID 400 OF oDlg ACTION VKDbP(oProducto,oTbr,Det,TgGet,oDlg)\nREDEFINE SBUTTON oBtn2 ID 401 OF oDlg ACTION oDlg:End()\noCbx:LostFocus()\nvCombox:=oemtoansi(\"Por Descripci¢n\")\n\nACTIVATE DIALOG oDlg ON PAINT oTbr:Setfocus()\nReturn \n\n\n\nEL PROBLEMA LO TENGO CUANDO INGRESO UN CODIGO DE PRODUCTO ATRAVEZ DE TGGET[19] VAR DET[1],, Y EL PRODUCTO NO SE ENCUENTRA,, AHI ES DONDE SE ABRE LA FUNCTION VNOMINAP,, PARA SELECCIONAR UNO DE LA LISTA,,, AL SELECCIONAR CUALQUIERA O APRETAR EL ESC... CUANDO SE SALE DE LA FUNCTION VNOMINAP,,, EL FOCO NO QUE EN EL TGGET[19],  SE VA A OTRO OBJETO\n\n\nPORFA ILUMINAME,,,\n\nGRACIAS \n\nahhh.. y referente a como pasa las variables las paso igual que en este codigo fuente las defino entre parentesis con en busprod... o esta mal hacerlo asi...,, del la duda que tenia sabes que si uso matrices me se actualiza su valor pero si son variables locales no,, QUE RARO \n\nFunction BusProd          (TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto)','',0,'','3mw1lzdc',1,0,'',774,0,0),(17649,3995,3,234,0,'75.34.217.174',1156458323,1,0,1,1,1,1,'','SMTP with authentication','Hello,\n\nIs it possible to use TSMTP class and send email automatically (without Outlook) with from user authentication? If so, can you provide sample code?\n\nThank you,','',0,'','233n8c25',1,0,'',234,0,0),(17650,3983,2,2,0,'87.218.146.167',1156458846,1,0,1,1,1,1,'','','&gt; EL FOCO NO QUE EN EL TGGET[19], SE VA A OTRO OBJETO \n\nA que otro objeto se va el foco ? Puedes poner una imagen de la caja de diálogo ? (usa <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> para alojar la imagen y pon aqui el url).\n\n&gt;\nVALID BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto)\n&gt;\n\nLas variables que ahí sean lógicas, ponles un @ delante, en caso de que las vayas a cambiar desde la función BusProd().','',0,'','2df7hzj6',1,0,'',2,0,0),(17651,3994,4,2,0,'87.218.146.167',1156458983,1,0,1,1,1,1,'','','Richard,\n\nPlease make a search for GPRS on these forums. There are several msgs about it.','',0,'','3t9nbbcs',1,0,'',2,0,0),(17652,3993,4,2,0,'87.218.146.167',1156459210,1,0,1,1,1,1,'','','Richard,\n\nYou may use a timer for it. Please review fwppc\\samples\\TestTime.prg','',0,'','2f1u2obu',1,0,'',2,0,0),(17653,3995,3,2,0,'87.218.146.167',1156459424,1,0,1,1,1,1,'','','Darrell,\n\nThere is a modification for FWH Class TSmtp but it looks as it does not work properly on all circunstances.\n\nAs Rene suggested, you may use funcky SMTP component as it supports authentication.','',0,'','xwgmmejk',1,0,'',2,0,0),(17654,3995,3,234,0,'75.34.217.174',1156461932,1,0,1,1,1,1,'','','Hi Antonio,\n\nWhere can I obtain the funky SMTP component?\n\nThank you,','',0,'','3lvc2rzr',1,0,'',234,0,0),(17655,3996,7,779,0,'201.138.70.127',1156467568,1,0,1,1,1,0,'','Como proteger una aplicacion para PPC','Ya tengo mi primera aplicacion, solo que para comercializarla me falta alguna manera de proteccion.\n\nAlguien tiene alguna idea? <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'','19ti5qj9',1,0,'',779,0,0),(17656,3992,4,47,0,'203.144.143.5',1156469628,1,0,1,1,1,0,'','Which does the OS work good?','Dear All,\n\nI\'ve read some Post and found that there are some limitation for some OS version.\n\n- Is Rlock() working only Windows mobile 5?\n\nWhich one do I should choose between WM 5 or WM 2003 ?\n\nBest regards,\nDutch','',0,'','3o27ztma',1,0,'',47,0,0),(17657,3992,4,2,0,'87.218.146.167',1156485382,1,0,1,1,1,1,'','','Dutch,\n\n&gt; Is Rlock() working only Windows mobile 5? \n\nYes\n\n&gt; Which one do I should choose between WM 5 or WM 2003 ? \n\nIf you are going to need RLock() then you need WM 2005. WM 2003 is little lighter and faster.\n\nThere is a WM 2005 image for the emulator, so you can see the difference for yourself.','',0,'','a83nl6gv',1,0,'',2,0,0),(17658,3996,7,2,0,'87.218.146.167',1156486441,1,0,1,1,1,1,'','','Ignacio,\n\nPuedes usar la función SerialNumber() de FWPPC, que te devuelve el identificador único de un Pocket PC. Tienes un ejemplo de uso en samples\\TestSeri.prg\n\nPor favor usa el foro en español de FWPPC para mensajes en español. Gracias.','',0,'','2frirfmh',1,0,'',2,0,0),(17659,3995,3,2,0,'87.218.146.167',1156486753,1,0,1,1,1,1,'','','Darrell,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.funcky.com\">www.funcky.com</a><!-- w -->\n\nAnyhow, here you have the Class TSmtp from FiveWin modified to support authentication by Luis Krause:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3997&amp;highlight=authentication\">http://fivetechsoft.com/forums/viewtopi ... entication</a><!-- m -->','',0,'','1t85mq9q',1,0,'',2,0,0),(17660,3997,17,2,0,'87.218.146.167',1156486991,1,0,1,1,1,1,'','Class TSmtp with authentication - Luis Krause','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0243cd3541/TSMTP.zip.html\">http://hyperupload.com/download/0243cd3 ... P.zip.html</a><!-- m -->','',0,'','125398hb',1,0,'',2,0,0),(17661,3998,4,449,0,'212.64.224.244',1156487164,1,0,1,1,1,1,'','cGetFile()','Hi,\n\nHas somebody been able to use the function cGetFile() ?\n\nRegards.','',0,'','14smvwna',1,0,'',449,0,0),(17662,3999,7,449,0,'212.64.224.244',1156487229,1,0,1,1,1,1,'','cGetFile()','Hola,\n\nAlguien ha podido usar correctamente la funcion cGetFile() o alguna similar ?. Alguna idea ?','',0,'','3vl0kj5i',1,0,'',449,0,0),(17663,3998,4,2,0,'87.218.146.167',1156487322,1,0,1,1,1,1,'','','Carles,\n\nIts still on our todo list. We would like to fix it, or maybe we could implement one ourselves, but it could get complex.','',0,'','2ne6sjcr',1,0,'',2,0,0),(17664,3998,4,449,0,'212.64.224.244',1156487672,1,0,1,1,1,1,'','','Antonio \n\nNothing is complex for you  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nRegrads','',0,'','1bu7pqyc',1,0,'',449,0,0),(17665,4000,6,61,0,'190.64.102.33',1156491632,1,0,1,1,1,0,'','HArbour exception con tsbutton','Amigos:\n\nAlguien me podría ayudar con tsbutton?\n\nAl usar las teclas aceleradoras para cerrar un dialogo NOWAIT\ncon tsbutton me da error\n\"Harbour exception\" \n Called from WinRun(0) \n Called from TWINDOW:ACTIVATE(883)\n(Aqui en la linea 883 hay un winRun(self:hWind)\n\nSucede solamente si el dialogo es NOWAIT\n\nSaludos y Gracias.\n\nRuben Fernandez.\nHarbour 46 y FWH 2.7 Julio','',0,'','3eni07rg',1,0,'',61,0,0),(17666,4001,2,52,0,'201.212.23.187',1156493731,1,0,1,1,1,1,'','Cómo detectar un cambio en GETS?','Amigos,\n\n[code:rpce1lr8]local vGets&#58;= array&#40; 10 &#41;,;\n      oGets&#58;= array&#40; 10 &#41;\n&#46;&#46;&#46;\n\nredefine btnget oGets&#91; 01 &#93; var vGets&#91; 01 &#93; id&#46;&#46;&#46;\nredefine btnget oGets&#91; 02 &#93; var vGets&#91; 02 &#93; id&#46;&#46;&#46;\nredefine btnget oGets&#91; 03 &#93; var vGets&#91; 03 &#93; id&#46;&#46;&#46;[/code:rpce1lr8]\n\nPregunta:\n\n   Cómo puedo hacer para detectar si hubo cambio en alguno de esos GET´s para realizar, por ejemplo, una operación de actualización?\n\n\nGracias.','',0,'AIA=','rpce1lr8',1,0,'',52,0,0),(17667,3998,4,2,0,'87.218.146.167',1156496532,1,0,1,1,1,1,'','','Carles,\n\nWe are building a cGetFile() of our own. We are going to publish a first prototype asap.','',0,'AIA=','2qcs04r9',1,0,'',2,0,0),(17668,3999,7,2,0,'87.218.146.167',1156496625,1,0,1,1,1,1,'','','Carles,\n\nEstamos construyendo una función cGetFile() propia de FWPPC, ya que la que proporciona el API de Windows no hay forma de hacerla funcionar.\n\nVamos a publicar un primer prototipo lo antes posible.','',0,'AIA=','24ysdcts',1,0,'',2,0,0),(17669,3998,4,2,0,'87.218.146.167',1156500913,1,0,1,1,1,1,'','','Carles,\n\nHere it is:\n[code:3l93cpdt]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; cGetFile&#40; &quot;*&#46;*&quot;, &quot;\\&quot; &#41; &#41;\n   \nreturn nil\n\nstatic function cGetFile&#40; cMask, cPath &#41;   \n\n   local oDlg, oBrw, oBtn, aItems, cFileName &#58;= &quot;&quot;\n\n   DEFAULT cMask &#58;= &quot;*&#46;*&quot;, cPath &#58;= &quot;\\&quot; \n   \n   aItems = GetItems&#40; cMask, @cPath &#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Please select a file&quot; ;\n      SIZE 220, 210\n   \n   @ 0&#46;4, 0&#46;7 LISTBOX oBrw ;\n      FIELDS aItems&#91; oBrw&#58;nAt, 1 &#93;, aItems&#91; oBrw&#58;nAt, 2 &#93;, aItems&#91; oBrw&#58;nAt, 3 &#93;,;\n             aItems&#91; oBrw&#58;nAt, 4 &#93; ;\n      HEADERS &quot;Name&quot;, &quot;T&quot;, &quot;Size&quot;, &quot;Date&quot; ;\n      COLSIZES  100, 15, 70, 40 ;\n      SIZE 100, 82 ;\n      ON DBLCLICK SelFile&#40; oBrw, cMask, @cPath, @cFileName, oDlg &#41;\n\n   oBrw&#58;SetArray&#40; aItems &#41;\n   oBrw&#58;aJustify = &#123; &#46;f&#46;, &#46;f&#46;, &#46;t&#46;, &#46;f&#46; &#125;\n   oBrw&#58;bKeyChar = &#123; | nKey | If&#40; nKey == 13,;\n                     &#40; SelFile&#40; oBrw, cMask, @cPath, @cFileName, oDlg &#41;, oBrw&#58;SetFocus&#40;&#41; &#41;,&#41; &#125;\n   \n   @ 5,  3 BUTTON oBtn PROMPT &quot;Ok&quot; ACTION SelFile&#40; oBrw, cMask, @cPath, @cFileName, oDlg &#41;\n\n   @ 5, 10 BUTTON &quot;Cancel&quot; ACTION oDlg&#58;End&#40;&#41;\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn cFileName\n\nstatic function CheckItem&#40; oBrw, cMask, cPath &#41;\n\n   local cItem &#58;= Eval&#40; oBrw&#58;bLine &#41;&#91; 1 &#93;\n   local cType &#58;= Eval&#40; oBrw&#58;bLine &#41;&#91; 2 &#93;\n   local aItems\n\n   if cType == &quot;D&quot;\n      if cItem == &quot;&#46;&#46;&quot;\n         cPath = SubStr&#40; cPath, 1, RAt&#40; &quot;\\&quot;, cPath &#41; - 1 &#41;\n         cPath = SubStr&#40; cPath, 1, RAt&#40; &quot;\\&quot;, cPath &#41; - 1 &#41;\n         aItems = GetItems&#40; cMask, cPath += &quot;\\&quot; &#41;\n      else   \n         aItems = GetItems&#40; cMask, cPath += cItem + &quot;\\&quot; &#41;\n      endif   \n      oBrw&#58;SetArray&#40; aItems &#41;\n      oBrw&#58;nAt = 1\n      oBrw&#58;bLine = &#123; || &#123; aItems&#91; oBrw&#58;nAt, 1 &#93;, aItems&#91; oBrw&#58;nAt, 2 &#93;,;\n                          aItems&#91; oBrw&#58;nAt, 3 &#93;, aItems&#91; oBrw&#58;nAt, 4 &#93; &#125; &#125;\n      oBrw&#58;GoTop&#40;&#41;\n      oBrw&#58;Refresh&#40;&#41;\n   endif   \n\nreturn nil\n\nstatic function GetItems&#40; cMask, cPath &#41;\n\n   local aInfo &#58;= Directory&#40; cPath + cMask, &quot;D&quot; &#41;\n   local aItems &#58;= &#123;&#125;, n\n   \n   if Len&#40; cPath &#41; &gt; 1\n      AAdd&#40; aItems, &#123; &quot;&#46;&#46;&quot;, &quot;D&quot;, &quot;&quot;, &quot;&quot; &#125; &#41;\n   endif   \n\n   for n = 1 to Len&#40; aInfo &#41;\n      if &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;D&quot;, aInfo&#91; n &#93;&#91; 2 &#93;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n   for n = 1 to Len&#40; aInfo &#41;\n      if ! &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;F&quot;, Str&#40; aInfo&#91; n &#93;&#91; 2 &#93; &#41;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n\nreturn aItems\n\nstatic function SelFile&#40; oBrw, cMask, cPath, cFileName, oDlg &#41;\n\n   if Eval&#40; oBrw&#58;bLine &#41;&#91; 2 &#93; == &quot;F&quot;\n      cFileName = cPath + Eval&#40; oBrw&#58;bLine &#41;&#91; 1 &#93;\n      oDlg&#58;End&#40;&#41;\n   else\n      CheckItem&#40; oBrw, cMask, @cPath &#41;\n   endif\n   \nreturn nil          \n[/code:3l93cpdt]','',0,'AIA=','3l93cpdt',1,0,'',2,0,0),(17670,3999,7,2,0,'87.218.146.167',1156500974,1,0,1,1,1,1,'','','Carles,\n\nAquí está:\n[code:1om3d3pz]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; cGetFile&#40; &quot;*&#46;*&quot;, &quot;\\&quot; &#41; &#41;\n   \nreturn nil\n\nstatic function cGetFile&#40; cMask, cPath &#41;   \n\n   local oDlg, oBrw, oBtn, aItems, cFileName &#58;= &quot;&quot;\n\n   DEFAULT cMask &#58;= &quot;*&#46;*&quot;, cPath &#58;= &quot;\\&quot; \n   \n   aItems = GetItems&#40; cMask, @cPath &#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Please select a file&quot; ;\n      SIZE 220, 210\n   \n   @ 0&#46;4, 0&#46;7 LISTBOX oBrw ;\n      FIELDS aItems&#91; oBrw&#58;nAt, 1 &#93;, aItems&#91; oBrw&#58;nAt, 2 &#93;, aItems&#91; oBrw&#58;nAt, 3 &#93;,;\n             aItems&#91; oBrw&#58;nAt, 4 &#93; ;\n      HEADERS &quot;Name&quot;, &quot;T&quot;, &quot;Size&quot;, &quot;Date&quot; ;\n      COLSIZES  100, 15, 70, 40 ;\n      SIZE 100, 82 ;\n      ON DBLCLICK SelFile&#40; oBrw, cMask, @cPath, @cFileName, oDlg &#41;\n\n   oBrw&#58;SetArray&#40; aItems &#41;\n   oBrw&#58;aJustify = &#123; &#46;f&#46;, &#46;f&#46;, &#46;t&#46;, &#46;f&#46; &#125;\n   oBrw&#58;bKeyChar = &#123; | nKey | If&#40; nKey == 13,;\n                     &#40; SelFile&#40; oBrw, cMask, @cPath, @cFileName, oDlg &#41;, oBrw&#58;SetFocus&#40;&#41; &#41;,&#41; &#125;\n   \n   @ 5,  3 BUTTON oBtn PROMPT &quot;Ok&quot; ACTION SelFile&#40; oBrw, cMask, @cPath, @cFileName, oDlg &#41;\n\n   @ 5, 10 BUTTON &quot;Cancel&quot; ACTION oDlg&#58;End&#40;&#41;\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn cFileName\n\nstatic function CheckItem&#40; oBrw, cMask, cPath &#41;\n\n   local cItem &#58;= Eval&#40; oBrw&#58;bLine &#41;&#91; 1 &#93;\n   local cType &#58;= Eval&#40; oBrw&#58;bLine &#41;&#91; 2 &#93;\n   local aItems\n\n   if cType == &quot;D&quot;\n      if cItem == &quot;&#46;&#46;&quot;\n         cPath = SubStr&#40; cPath, 1, RAt&#40; &quot;\\&quot;, cPath &#41; - 1 &#41;\n         cPath = SubStr&#40; cPath, 1, RAt&#40; &quot;\\&quot;, cPath &#41; - 1 &#41;\n         aItems = GetItems&#40; cMask, cPath += &quot;\\&quot; &#41;\n      else   \n         aItems = GetItems&#40; cMask, cPath += cItem + &quot;\\&quot; &#41;\n      endif   \n      oBrw&#58;SetArray&#40; aItems &#41;\n      oBrw&#58;nAt = 1\n      oBrw&#58;bLine = &#123; || &#123; aItems&#91; oBrw&#58;nAt, 1 &#93;, aItems&#91; oBrw&#58;nAt, 2 &#93;,;\n                          aItems&#91; oBrw&#58;nAt, 3 &#93;, aItems&#91; oBrw&#58;nAt, 4 &#93; &#125; &#125;\n      oBrw&#58;GoTop&#40;&#41;\n      oBrw&#58;Refresh&#40;&#41;\n   endif   \n\nreturn nil\n\nstatic function GetItems&#40; cMask, cPath &#41;\n\n   local aInfo &#58;= Directory&#40; cPath + cMask, &quot;D&quot; &#41;\n   local aItems &#58;= &#123;&#125;, n\n   \n   if Len&#40; cPath &#41; &gt; 1\n      AAdd&#40; aItems, &#123; &quot;&#46;&#46;&quot;, &quot;D&quot;, &quot;&quot;, &quot;&quot; &#125; &#41;\n   endif   \n\n   for n = 1 to Len&#40; aInfo &#41;\n      if &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;D&quot;, aInfo&#91; n &#93;&#91; 2 &#93;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n   for n = 1 to Len&#40; aInfo &#41;\n      if ! &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;F&quot;, Str&#40; aInfo&#91; n &#93;&#91; 2 &#93; &#41;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n\nreturn aItems\n\nstatic function SelFile&#40; oBrw, cMask, cPath, cFileName, oDlg &#41;\n\n   if Eval&#40; oBrw&#58;bLine &#41;&#91; 2 &#93; == &quot;F&quot;\n      cFileName = cPath + Eval&#40; oBrw&#58;bLine &#41;&#91; 1 &#93;\n      oDlg&#58;End&#40;&#41;\n   else\n      CheckItem&#40; oBrw, cMask, @cPath &#41;\n   endif\n   \nreturn nil          \n[/code:1om3d3pz]','',0,'AIA=','1om3d3pz',1,0,'',2,0,0),(17671,4000,6,2,0,'87.218.146.167',1156504301,1,0,1,1,1,1,'','','Ruben,\n\nPor favor puedes comprobar si con un botón estandard te ocurre igual ?\n\nEn caso afirmativo, podrías proporcionar un ejemplo pequeño y autocontenido que reproduzca el error ? gracias','',0,'AIA=','1xujpqfm',1,0,'',2,0,0),(17672,4001,2,2,0,'87.218.146.167',1156504457,1,0,1,1,1,1,'','','Gustavo,\n\nSi la Clase TBtnGet contiene (posiblemente) un GET de Clipper, entonces puedes comprobar oGets[ 01 ]:oGet:Changed','',0,'','3bv4hs5e',1,0,'',2,0,0),(17673,3984,6,147,0,'200.45.54.133',1156506989,1,0,1,0,1,1,'','','Gente; muchas gracias, es lo que necesitaba\n\nSaludos','',0,'','27bwzqrr',1,0,'',147,0,0),(17674,4002,7,57,0,'83.56.202.4',1156507860,1,0,1,1,1,1,'','GET READONLY desde Codigo recibe Foco.','Antonio\nLos get desde código con clausula readonly, a parte de que se colorean con fondo blanco, permite que este reciba el foco. (aunque no deja su modificación).\n\nVi por el foro que se comentaba el uso de color de fondo en gris o blanco. Bajo mi punto de vista debería ser de color GRIS para distinguir los campo editables, aunque otra alternativa sería poderle indicar el color estando disable o readonly. ( y cada cual que escoja ).\n\nEn todo caso no debería poder recibir el foco para evitar errores.\n\nSaludos','',0,'','21s6xop7',1,0,'',57,0,0),(17675,3980,6,217,0,'200.159.120.34',1156513551,1,0,1,1,1,0,'','','Silvio,\n\nI\'m happy to know it worked fine  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nBest regards\nMaurilio','',0,'','6etxhcva',1,0,'',217,0,0),(17676,3996,7,779,0,'200.67.153.171',1156513824,1,0,1,1,1,0,'','','Gracias Antonio, eso era lo que necesitaba....','',0,'','1ld2gcoa',1,0,'',779,0,0),(17677,4003,3,299,0,'69.65.86.182',1156514130,1,0,1,0,1,0,'','Sockets','Hi.\n\nI\'m trying to connect to a socket where I\'m expected to send some data but failing to connect.  Here is the code I\'m using:\n\n[code:1s89x90w]\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD SetupIpSocket&#40;&#41; CLASS TEXPORTER\n\n	&#58;&#58;oSocket &#58;= TSocket&#40;&#41;&#58;New&#40; &#58;&#58;nSocket &#41;\n	&#58;&#58;oSocket&#58;bConnect = &#123; || &#58;&#58;isConnected &#58;= &#46;t&#46; &#125;\n	&#58;&#58;oSocket&#58;Connect&#40; &#58;&#58;cIp &#41;\n\nRETURN &#58;&#58;isConnected\n\n[/code:1s89x90w]\n\n::isconnected is initialized as .f.  After executing these lines, it stays as .f., thus no connection is happening.  \n\nI tested the ip and port using telnet (telnet ip port) and I noticed connection, therefore I presume that the port is up and accepting connection at that given ip. Is there any other tool that I can use to troubleshoot this issue?  Why is it not connecting using my source?\n\nthank you,\n\n\nReinaldo.','',0,'AIA=','1s89x90w',1,0,'',299,0,0),(17678,3965,3,49,0,'62.13.172.78',1156515099,1,0,1,1,1,1,'','','where i can download an sample to test it : there are not some function and res files ...\n\nRegards','',0,'AIA=','2ydd0aes',1,0,'',49,0,0),(17679,4004,6,147,0,'200.45.54.133',1156515620,1,0,1,0,1,1,'','Forzar Foco en Get','Hola gente:\n\nTengo un dialog, desde codigo, con un combo y un get. El foco inicilal lo tiene  el Como. Bajo cierta condición quiero que lo tenga el Get. Para ello hago\n\ndesde el ON INIT del Dialog hago:\nif( !Empty( oSelf:cUser ), ( aO[_Cmb]:oJump:= aO[_Get1], aO[_Get1]:SetFocus() ), )\n\nPero el foco sigue apareciendo en el Combo. que está mal?\ngracias','',0,'','1ahn9vrk',1,0,'',147,0,0),(17680,3960,2,760,0,'200.121.89.206',1156517386,1,0,1,1,1,0,'','Blinker 7.0 y FW2.0','Hola Manuramos\n\nVoy a probar lo que me dices y te aviso....\nSigues usando Blinker 4.0 o la 7.0 en tus sistemas?\n\nCual es la diferencia entre ambos?\n\nSe transformara en una aplicaion 32 bits?\n\nSalu2','',0,'','2prdrj59',1,0,'',760,0,0),(17681,4004,6,375,0,'84.122.110.151',1156517435,1,0,1,1,1,1,'','','Intenta:\n\nPostMessage(aO[_Get1]:hWnd,FM_CHANGEFOCUS)\n\nUn saludo.','',0,'','1yksflau',1,0,'',375,0,0),(17682,3960,2,375,0,'84.122.110.151',1156518006,1,0,1,1,1,1,'','','Francis, Sigo con Blinker 4.0 pués aún no he resuelto lo de uLoadObject aunque ahora lo que hago es ASAVE() más MEMOWRIT(), pero no lo he probado con Blinker 7.0. De todas formas es posible que me falle por culpa del Windows Millenium o por falta de memoria. En teoría debería funcionar como el 4 o mejor.\n\nEn cuanto al otro tema, supongo que Blinker 7.0, por ser más moderno, gestionará mejor la memoria. Pero lo que [b:17qrb51m]NO[/b:17qrb51m] hace es cambiarte a 32 Bits.\n\nUn saludo','',0,'QA==','17qrb51m',1,0,'',375,0,0),(17683,4005,2,760,0,'200.121.89.206',1156518224,1,0,1,1,1,0,'','__Keyboard()','Hola a todos\n\nYo uso la funcion __Keyboard para hacer el uso del teclado en mi sistema\nSistema hecho con Clipper5.3, FW 2.0 y Blinker 4.0.\n\nMi problema es que hago un ingreso de datos y cuando llego a un boton de grabar este no me manda el foco al primer get...\n\nEjemplo:\nGet1 = Cuenta Contable\nGet2 = Debe o Haber\nGet3 = Importe\nBoton1 = Grabar\nBoton2 = Cancelar\n\nCuando ingreso los datos ok, y cuando llego al boton1 este no vuelve al Get1 osea no toma el foco para ingresar otro dato...Solucione esto usando el blostfocus del boton1 obligandolo mediante el __keyboard.\nEl problema es que ingreso unos 05 o mas registros y me sale un GPF\nQue puede estar pasando ?\n\nQuite el __keyboard y ya no sale el GPF, pero tengo que pulsar la barra espaciadora para volver al Get1, porque si presiono enter se va al boton2.','',0,'QA==','3tmo0ez6',1,0,'',760,0,0),(17684,4003,3,6,0,'82.59.188.168',1156518935,1,0,1,1,1,1,'','Re: Sockets','Did you already tried my sample?\n\n[code:3296apev]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 2 BUTTON &quot;Send&quot;;\n           SIZE 100, 50;\n           ACTION SENDDATA&#40; 2000, &quot;127&#46;0&#46;0&#46;1&quot;, &quot;This is a test&#46;&quot; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDDATA&#40; nPort, cIP, cMsg &#41;\n\n    LOCAL oSocket &#58;= TSocket&#40;&#41;&#58;New&#40; nPort &#41;\n\n    oSocket&#58;bConnect &#58;= &#123; || oSocket&#58;SendData&#40; &quot;MSG &quot; + cMsg &#41;,;\n                             oSocket&#58;End&#40;&#41; &#125;\n\n    oSocket&#58;Connect&#40; cIP &#41;\n\n    RETURN NIL[/code:3296apev]\n\nEMG','',0,'AIA=','3296apev',1,0,'',6,0,0),(17685,3960,2,760,0,'200.121.89.206',1156518983,1,0,1,1,1,0,'','','Gracias Manuramos por el apoyo...\n\nTengo el Blinker 5.1 sera bueno usarlo en vez del 7.0?\n\nSalu2','',0,'AIA=','1nqnthed',1,0,'',760,0,0),(17687,3999,7,449,0,'83.53.197.28',1156520612,1,0,1,1,1,1,'','','Antonio, \n\nFunciona perfectamente ! Gracias    <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nUna pregunta. Se toco en algun reciente build de harbour la funcion directory() ? Juraria q hace tiempo hize alguna prueba y no me iba. (Debia hacer algo mal   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> ) \n\nMussshas grasias.','',0,'AIA=','1v3wq4p5',1,0,'',449,0,0),(17688,3995,3,455,0,'195.97.105.161',1156520675,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:g1amcuey]Darrell,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.funcky.com\">www.funcky.com</a><!-- w -->\n\nAnyhow, here you have the Class TSmtp from FiveWin modified to support authentication by Luis Krause:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3997&amp;highlight=authentication\">http://fivetechsoft.com/forums/viewtopi ... entication</a><!-- m -->[/quote:g1amcuey]\n\nWe use MarshallSoft\'s SEE32 (32-bit) DLL\nIt supports authentication, and it\'s easy to use.\nIf anyone wants to test it, download from <!-- w --><a class=\"postlink\" href=\"http://www.marshallsoft.com\">www.marshallsoft.com</a><!-- w -->, and\nask me for the wrappers.\n\nKind regards\nEvans','',0,'gA==','g1amcuey',1,0,'',455,0,0),(17689,3995,3,234,0,'75.34.217.174',1156520924,1,0,1,1,1,1,'','','Hi Evans,\n\nI own SEE32 also but I was told it does not work with FWH? Did you get it to work with FWH?','',0,'gA==','1nyg651v',1,0,'',234,0,0),(17690,4004,6,147,0,'200.45.54.133',1156521532,1,0,1,0,1,1,'','','Manuramos, Duro de roer... no \"andó\"','',0,'gA==','20s43tyu',1,0,'',147,0,0),(17691,4004,6,215,0,'201.154.224.3',1156522242,1,0,1,1,1,0,'','asi lo haría yo','Mario,\n\nif( Empty( oSelf:cUser ), aO[_Get1]:SetFocus() , .T. )\n\n\nSi lo anterior no funciona, usamos la fuerza bruta.\nDeshabilito el combo al entrar, asi el foco no tiene más opción que irse al siguiente control.\n\nif( !Empty( oSelf:cUser ), ( aO[_Cmb]:disable(), aO[_Get1]:SetFocus() ), )','',0,'','2lxz0ka7',1,0,'',215,0,0),(17692,4003,3,299,0,'66.102.186.13',1156523065,1,0,1,0,1,0,'','','enrico,\n\nno, i did not.  sorry.  you are right,  i will as soon as i get back to the office. i\'ll keep you posted on the results.\n\nthank you.\n\nrc.','',0,'','2pdugm2c',1,0,'',299,0,0),(17693,3986,6,215,0,'201.154.224.3',1156523135,1,0,1,1,1,0,'','Errorcillo pequeño.','Por lo que veo, estás tratando de abrir una dbf con indices. ¿Cierto?\nTu EXE está en un directorio diferente y tiene que accesar a ésta dbf.\n¿Cierto?\n\nSi lo anterior es correcto entonces tu estás indexando al estilo\n\nINDEX CLIENTES-&gt;CODIGO TAG CLIENTES.\n\nPara que no marque el open error, solo hay que cambiar la forma de indexar sin usar el Alias\n\nFIELDS, CODIGO, Otros_Campos\n\nINDEX CODIGO TAG CLIENTES','',0,'','1rquzll5',1,0,'',215,0,0),(17694,4000,6,61,0,'190.64.98.201',1156524083,1,0,1,1,1,0,'','','Maestro:\n\nCon lo botones de FWH no lo hace... javascript&#058;emoticon(\':D\')\nVery Happy','',0,'','2mlk7e2x',1,0,'',61,0,0),(17695,4004,6,2,0,'87.218.146.252',1156524473,1,0,1,1,1,1,'','','Mario,\n\nDesde la claúsula ON INIT tienes que devolver .f. para que Windows acepte dar el foco a otro control:\n\n... ON INIT ; \nif( !Empty( oSelf:cUser ), ( aO[_Cmb]:oJump:= aO[_Get1], aO[_Get1]:SetFocus(), .f. ), )','',0,'','1nfp8g91',1,0,'',2,0,0),(17696,4005,2,2,0,'87.218.146.252',1156524730,1,0,1,1,1,1,'','','Francis,\n\nDesde la acción del Boton1 haz Get1:SetFocus()','',0,'','2kimv51i',1,0,'',2,0,0),(17697,4006,20,154,0,'151.80.4.232',1156529516,1,0,1,1,1,1,'','Click sul WBrowse','Ciao a tutti,\nvorrei simulare, su un wbrowse, alla pressione del tasto destro prima il click del sinistro e poi le azioni tipo popup o altro, è possibile?\nSpero di si...','',0,'','1okvpph9',1,0,'',154,0,0),(17698,4007,6,362,0,'200.168.52.156',1156530243,1,0,1,1,1,1,'','ENDEREZO DEL PUERTO LPT1','Antonio,\n\nComo Puedo hacer para obtner la referencia del enderezo de la memoria de la PUERTA LPT1 0378 en FIVEWIN?\n\nEjemplo em DELPI:\n\n$378\n\nGracias y Saludos, Maestro.','',0,'','1nmajbxk',1,0,'',362,0,0),(17699,3960,2,375,0,'84.122.110.151',1156531629,1,0,1,1,1,1,'','','Sólo es cuestión de probar.','',0,'','2g1hnd3n',1,0,'',375,0,0),(17700,3978,6,196,0,'190.48.209.203',1156532511,1,0,1,1,1,0,'','','Me parece que tendrias que usar un tipo de letra mas chico valiendote de DEFINE FONT, no creo que haya otra solucion. Podrias cambiar margenes derecho e izquierdo usando oReport:Margin(n,n,n) para dejar un area de impresion mas grande.\n\nSaludos\nJorge Jaurena','',0,'','3ncwxig4',1,0,'',196,0,0),(17701,4008,6,196,0,'190.48.209.203',1156532973,1,0,1,1,1,0,'','Campos memo','Hola a todos.\n\nTengo una dbf con varios campos memo y de vez en cuando aparecen datos cambiados de un memo a otro, creo que esta roto el archivo dbt, pero como repararlo sin perder datos, el viejo filefix de norton anda muy bien con las dbf pero no asi con los dbt.\nProbe pasar los datos a un archivo igual pero vacio, y sin embargo el problema persiste.\nSi alguien sabe como salir de esto, muy agradecido.\n\nSaludos\nJorge Jaurena','',0,'','19psbffm',1,0,'',196,0,0),(17702,4009,6,171,0,'71.232.193.197',1156534637,1,0,1,1,1,0,'','tsbrowse + tsbutton for FWH 2.7 y xHarbour Build 0.99.61','Hola \n\nAqui les dejo el link por si necesitan las librerias TsBrowse y Tsbutton\npara tabajar con for FWH 2.7 xHarbour Build 0.99.61 \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029b549d95/TSB_LIB.ZIP.html\">http://hyperupload.com/download/029b549 ... B.ZIP.html</a><!-- m -->\n\n\nGeorge','',0,'','2t1pyc28',1,0,'',171,0,0),(17703,4010,3,267,0,'200.208.238.2',1156534749,1,0,1,1,1,1,'','Rename files in directory ftp','Hi,\n\nI use class TFTP/TFTPFILE of the FWH and I am needing to rename files in directory ftp. How I can make this?','',0,'','2g4i32zy',1,0,'',267,0,0),(17704,4011,3,171,0,'71.232.193.197',1156534781,1,0,1,1,1,0,'','TsBrowse and Tsbutton Libraries','Hi \n\nHere the link  to download TsBrowse and Tsbutton Libraries\ncompiled with FWH 2.7 and xHarbour Build 0.99.61 \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029b549d95/TSB_LIB.ZIP.html\">http://hyperupload.com/download/029b549 ... B.ZIP.html</a><!-- m -->\n\n\nRegards\n\nGeorge','',0,'','118p1fmj',1,0,'',171,0,0),(17705,2767,4,3,0,'82.248.42.143',1156535010,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:7o839fab]Hi all,\nmany thanks Enrico and Pawel. I tryed the code provided by Pawel and it runs 100 %.\n\nMany  thanks again both.[/quote:7o839fab]\n\nBiel\n\nWhere did you get the cellcore.lib from ?\n\nDo you have a link for it ?\n\nCan you share your gprs connexion program ?\n\nThanks\n\nRichard','',0,'gA==','7o839fab',1,0,'',3,0,0),(17706,4006,20,6,0,'87.16.223.9',1156536316,1,0,1,1,1,1,'','Re: Click sul WBrowse','Sì, come prima cosa mettici\n\n[code:1e7y8syx]oBrw&#58;LButtonDown&#40; nRow, nCol, nFlags &#41;[/code:1e7y8syx]\n\nEMG','',0,'AIA=','1e7y8syx',1,0,'',6,0,0),(17707,4012,3,69,0,'70.50.137.46',1156537422,1,0,1,1,1,0,'','Default Button?','Hi Everybody,\n\nI used to be able to press ENTER and it would act as if I have clicked on the OK button.  This is no longer working.\n\nIn Workshop I have the \"default push button\" selected.\n\nAny Ideas?\n\nThanks,\nJeff','',0,'AIA=','j0ieuibo',1,0,'',69,0,0),(17708,4013,3,49,0,'62.13.172.78',1156538731,1,0,1,1,1,1,'','clock in a window','I  try to found a digital clock to put on a window with  STYLE nOr( WS_POPUP, WS_VISIBLE )\n\nSomeone can help me ?\n\nRegards','',0,'AIA=','32u1gdy0',1,0,'',49,0,0),(17709,4009,6,2,0,'87.218.146.252',1156539312,1,0,1,1,1,1,'','','George,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLas vamos a copiar a la sección de utilidades de estos foros','',0,'AIA=','2b6op86c',1,0,'',2,0,0),(17710,4014,17,2,0,'87.218.146.252',1156539387,1,0,1,1,1,1,'','TSBrowse and TSButton for FWH 2.7','for FWH 2.7 and xHarbour Build 0.99.61 \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029b549d95/TSB_LIB.ZIP.html\">http://hyperupload.com/download/029b549 ... B.ZIP.html</a><!-- m -->','',0,'AIA=','3gsx9qfj',1,0,'',2,0,0),(17711,4008,6,2,0,'87.218.146.252',1156539515,1,0,1,1,1,1,'','','Jorge,\n\nQue build de Harbour ó xHarbour estás usando ? De que fecha ?','',0,'AIA=','job2roof',1,0,'',2,0,0),(17712,4015,3,49,0,'62.13.172.78',1156539616,1,0,1,1,1,1,'','RichEdit 3.0 Window Class','With Class TRichEdit it is possible insert a bitmap on rtf  or when it print ...?\nhave you an sample with this class  to use a dbf file for Replace variables ( merge)\n\nRegards','',0,'AIA=','tbt7unbs',1,0,'',49,0,0),(17713,4011,3,2,0,'87.218.146.252',1156539630,1,0,1,1,1,1,'','','George,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe have copied it to the utilities section of these forums','',0,'AIA=','36wd15to',1,0,'',2,0,0),(17714,4013,3,2,0,'87.218.146.252',1156539800,1,0,1,1,1,1,'','','Silvio,\n\nYou may use a timer. Please review samples&gt;TestTime.prg','',0,'AIA=','14lqmrto',1,0,'',2,0,0),(17715,4012,3,2,0,'87.218.146.252',1156540033,1,0,1,1,1,1,'','','Jeff,\n\nHave you redefined it using the DEFAULT clause too ?\n\nPlease review samples&gt;TestDlg.prg and you\'ll see it works fine. \n\nWhat control has the focus when you press ENTER ?','',0,'AIA=','3ko1yz71',1,0,'',2,0,0),(17717,4003,3,299,0,'69.65.86.182',1156541620,1,0,1,0,1,0,'','','Enrico;\n\nI made some minor modifications to your code:\n[code:3ujy5ith]\n#include &quot;Fivewin&#46;ch&quot;\nstatic isconnected &#58;= &#46;f&#46;\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 2 BUTTON &quot;Send&quot;;\n           SIZE 100, 50;\n           ACTION &#40; SENDDATA&#40; 15000, &quot;98&#46;19&#46;1&#46;4&quot;, &quot;This is a test&quot; &#41;, ;\n			MsgInfo&#40; isconnected &#41;, ;\n			isconnected &#58;= &#46;f&#46; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDDATA&#40; nPort, cIP, cMsg &#41;\n\n    LOCAL oSocket &#58;= TSocket&#40;&#41;&#58;New&#40; nPort &#41;\n\n    oSocket&#58;bConnect &#58;= &#123; || oSocket&#58;SendData&#40; &quot;MSG &quot; + cMsg &#41;,;\n					isconnected &#58;= &#46;t&#46; ,;\n                             oSocket&#58;End&#40;&#41; &#125;\n\n    oSocket&#58;Connect&#40; cIP &#41;\n\n    RETURN NIL\n[/code:3ujy5ith]\n\nPlease test on your system.  Unless you actually have a computer with ip 98.19.1.4 answering on port 15000, you are supposed to get .f. everytime --right?   \n\nThe first time you click on the send button, you get .f. on the msg window.  But if you wait 30 seconds before you click on it again, you\'ll get .t..  And if you click every 30 seconds or more you will always get .t..\n\nTest it.  Unless I\'m missing something obvious, something is not working right with the tsocket class.\n\nReinaldo','',0,'AIA=','3ujy5ith',1,0,'',299,0,0),(17718,4013,3,49,0,'62.13.172.78',1156541657,1,0,1,1,1,1,'','','THANK ANTONIO','',0,'AIA=','35lg28vm',1,0,'',49,0,0),(17719,3995,3,455,0,'195.97.105.161',1156542421,1,0,1,1,1,0,'','','[quote=&quot;cdmmaui&quot;:26fzy0dc]Hi Evans,\n\nI own SEE32 also but I was told it does not work with FWH? Did you get it to work with FWH?[/quote:26fzy0dc]\n\nHi cdmmaui (sorry, but it\'s a difficult name) \n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nYes, we use SEE32 since our program was in 16 bit. Later on, we converted to 32-bit DLL (SEE32.DLL), and of course, now with xHarbour and FWH, we use the 32 bit without any changes to our code.\n\nI can email you some samples (abstracts from our code to send emails), including the authentication (some newer version of SEE32 supports authentication too, and we have it).\n\nIt\'s not difficult to use it, especially because I have created a great wrap-around code in one simple .PRG file where I am using the SEE32.DLL without having to load/unload it all the time.\n\nWe are very satisfied with the library, although sometimes -very rearly- we get a winsock error - but like I said, it\'s very limited.... for example in about 200 machines that it is used, I have found 3-4 problems only, and those were finally solved, because our clients did not use the correct setu-up (pop3 and smtp) for sending email... It was so simple to fix the problem, just copy and paste their setup from outlook or netscape, etc. !\n\nAnyway, if you need some code to get you going with SEE32.DLL in FWH/xHarbour, please send me a personal email I could reply to.  This applies to all of our friends who would like some help in using this specific DLL.\n\nRegards\nEvans','',0,'gA==','26fzy0dc',1,0,'',455,0,0),(17720,4017,3,49,0,'62.13.172.78',1156543653,1,0,1,1,1,1,'','smart card','have you some sample to use a smartcard ?','',0,'gA==','1eklu0ty',1,0,'',49,0,0),(17721,4003,3,6,0,'87.16.223.9',1156543910,1,0,1,1,1,1,'','','SendData() method has a timeout and then the execution continues with the next statement. Therefore, after the timeout, isconnected is alway set to true.\n\nEMG','',0,'gA==','umj2qac1',1,0,'',6,0,0),(17722,4018,6,49,0,'62.13.172.78',1156543928,1,0,1,1,1,1,'','cybercafe','Have you an sample for a remote control ?\nI must create it to control a computer of a  boy\n( open close at a time specific)\n\nRegards','',0,'gA==','2qvng0bw',1,0,'',49,0,0),(17723,4003,3,299,0,'69.65.86.182',1156544953,1,0,1,0,1,0,'','','But isn\'t bconnect supposed to execute if and only if a socket connection is succesful?\n\nAt any rate, I\'m testing this code on a network where I do have a server with that IP and answering on that port.  I\'ve tested from a command prompt using &lt;telnet ip port&gt; and I see connection.  Yet with this very same code I get .f. on the msginfo window.','',0,'gA==','2uhud26v',1,0,'',299,0,0),(17724,4009,6,171,0,'71.232.193.197',1156545191,1,0,1,1,1,0,'','','Antonio,\n\nMe alegra saber que puedo aportar mi granito de arena, para de esta manera agradecer a este foro, y a ti en particular que me han enseñado todo lo que he aprendido para programar en windows.\n\nSaludos\n\n\nGeorge','',0,'gA==','ja7lij6j',1,0,'',171,0,0),(17725,4019,6,471,0,'201.240.177.49',1156545550,1,0,1,1,1,1,'','AUXILIO ERROR DE MEMORIA','RECORRO UN BLUCE LEYENDO UNA TABLA MYSQL \nCUANDO LLEGO AL REGISRO\n21,4444\nME SALE \n\n\n\nHB_XREALLOC CANT REALLOCATE MEMORY\n\nDENTRO DEL BUCLE IMPRIMO CON LA CLASE TDOSPRN\n\n\nQUE PODRA SER\n\n\nUSO XHARBOUR 0.82 \n\n\nGRACIAS POR LA AYUDA','',0,'gA==','3qejozx8',1,0,'',471,0,0),(17726,4003,3,6,0,'87.16.223.9',1156547092,1,0,1,1,1,1,'','','This is normal. The execution immediately exit from SENDDATA() function and this is why you get isconnected set to false. Later, bConnect is evaluated and isconnected is set to true but you have already printed it (too soon).\n\nEMG','',0,'gA==','1yce0suo',1,0,'',6,0,0),(17727,4003,3,299,0,'69.65.86.182',1156547714,1,0,1,0,1,0,'','','Ok, so what you are saying is that I just might be getting connected after all.  How can I know if indeed I have a succesful connection?','',0,'gA==','2473mkj6',1,0,'',299,0,0),(17728,4012,3,69,0,'70.50.137.46',1156552038,1,0,1,1,1,0,'','','Antonio,\n\nWhen I build the TestDLG.prg file the focus is in the GET.\n\nI need to press ENTER twice (once to move from the GET, the second time then will act on the OK button)\n\nThis is the same thing that happens in my app.\n\nI am using FWH 2.5 (I\'m sure I did not have this issue before 2.5)\n\n\nAny Ideas?\n\nThanks,\nJeff','',0,'gA==','1kjycu3j',1,0,'',69,0,0),(17729,4020,3,234,0,'75.34.217.174',1156555040,1,0,1,1,1,1,'','DllCall','Hello,\n\nI am getting the following error. Where can I find DLLCALL?\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_DLLCALL\' referenced from MAILER.OBJ\n\nThank you,','',0,'gA==','9kdpmd7g',1,0,'',234,0,0),(17730,3983,2,774,0,'164.77.167.129',1156563691,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://img245.imageshack.us/my.php?image=dialogojq9.png\">http://img245.imageshack.us/my.php?image=dialogojq9.png</a><!-- m -->\n\n\nAHI ESTA LA IMAGEN DE LA CAJA DE DIALOGO\n\nEN PROBLEMA ESTE QUE CUANDO EL PRODUCTO NOSE ENCUENTA Y EL SISTEMA ABRE UNA NUEVA CAJA DE DIALOGO CON UN LISTADO DE PRODUCTOS,, AL PRECIONAR ESC O SALIR DE ESE DIALOGO DE CUANQUIER MODO,, INCLUSO SELECCIONANDO ALGUNO DE ELLOS,, EL FOCO LO RECIBE UN COMBOX  ,, ESE DND DICE Arturo Millan,, QUE SERA,,,\n\nPORFA ILUMINAME,,, \n\nGRACIAS \n\nSALUDOS DESDE CHILE','',0,'gA==','3ia5db3u',1,0,'',774,0,0),(17731,4019,6,2,0,'87.218.146.252',1156570800,1,0,1,1,1,1,'','','Vladimir,\n\nPrueba a llamar a SysRefresh() en el bucle, y/ó a hb_gcAll()','',0,'gA==','1ovvovwe',1,0,'',2,0,0),(17732,3999,7,2,0,'87.218.146.252',1156572521,1,0,1,1,1,1,'','','Carles,\n\nCon orientación a objetos el código queda más estructurado:\n[code:2nzwrs2a]\n// FWPPC own function cGetFile&#40;&#41; implementation\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; cGetFile&#40; &quot;*&#46;*&quot;, &quot;\\&quot; &#41; &#41;\n   \nreturn nil\n\nstatic function cGetFile&#40; cMask, cPath &#41;   \n\n   local oGetFile &#58;= TGetFile&#40;&#41;&#58;New&#40; cMask, cPath &#41;\n   \nreturn oGetFile&#58;cFileName\n\nCLASS TGetFile\n\n   DATA  oDlg\n   DATA  oBrw\n   DATA  cMask\n   DATA  cPath\n   DATA  cFileName\n   DATA  aItems\n   \n   METHOD New&#40; cMask, cPath &#41;\n   METHOD CheckItem&#40;&#41;\n   METHOD GetItems&#40;&#41;\n   METHOD SelItem&#40;&#41;\n   \nENDCLASS   \n\nMETHOD New&#40; cMask, cPath &#41; CLASS TGetFile\n\n   DEFAULT cMask &#58;= &quot;*&#46;*&quot;, cPath &#58;= &quot;\\&quot; \n   \n   &#58;&#58;cMask = cMask\n   &#58;&#58;cPath = cPath\n   &#58;&#58;cFileName = &quot;&quot;\n   \n   &#58;&#58;GetItems&#40;&#41;\n   \n   DEFINE DIALOG &#58;&#58;oDlg TITLE &quot;Please select a file&quot; ;\n      SIZE 220, 210\n   \n   @ 0&#46;4, 0&#46;7 LISTBOX &#58;&#58;oBrw ;\n      FIELDS &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 1 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 2 &#93;,;\n             &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 3 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 4 &#93; ;\n      HEADERS &quot;Name&quot;, &quot;T&quot;, &quot;Size&quot;, &quot;Date&quot; ;\n      COLSIZES  100, 15, 70, 40 ;\n      SIZE 100, 82 ;\n      ON DBLCLICK &#58;&#58;SelItem&#40;&#41;\n\n   &#58;&#58;oBrw&#58;SetArray&#40; &#58;&#58;aItems &#41;\n   &#58;&#58;oBrw&#58;aJustify = &#123; &#46;f&#46;, &#46;f&#46;, &#46;t&#46;, &#46;f&#46; &#125;\n   &#58;&#58;oBrw&#58;bKeyChar = &#123; | nKey | If&#40; nKey == 13, &#40; &#58;&#58;SelItem&#40;&#41;, oBrw&#58;SetFocus&#40;&#41; &#41;,&#41; &#125;\n   \n   @ 5,  3 BUTTON oBtn PROMPT &quot;Ok&quot; ACTION &#58;&#58;SelItem&#40;&#41;\n\n   @ 5, 10 BUTTON &quot;Cancel&quot; ACTION &#58;&#58;oDlg&#58;End&#40;&#41;\n   \n   ACTIVATE DIALOG &#58;&#58;oDlg CENTERED\n      \nreturn Self      \n\nMETHOD CheckItem&#40;&#41; CLASS TGetFile\n\n   local cItem &#58;= Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 1 &#93;\n   local cType &#58;= Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 2 &#93;\n\n   if cType == &quot;D&quot;\n      if cItem == &quot;&#46;&#46;&quot;\n         &#58;&#58;cPath = SubStr&#40; &#58;&#58;cPath, 1, RAt&#40; &quot;\\&quot;, &#58;&#58;cPath &#41; - 1 &#41;\n         &#58;&#58;cPath = SubStr&#40; &#58;&#58;cPath, 1, RAt&#40; &quot;\\&quot;, &#58;&#58;cPath &#41; &#41;\n         &#58;&#58;GetItems&#40;&#41;\n      else   \n         &#58;&#58;cPath += cItem + &quot;\\&quot;\n         &#58;&#58;GetItems&#40;&#41;\n      endif   \n      &#58;&#58;oBrw&#58;SetArray&#40; &#58;&#58;aItems &#41;\n      &#58;&#58;oBrw&#58;nAt = 1\n      &#58;&#58;oBrw&#58;bLine = &#123; || &#123; &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 1 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 2 &#93;,;\n                            &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 3 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 4 &#93; &#125; &#125;\n      &#58;&#58;oBrw&#58;GoTop&#40;&#41;\n      &#58;&#58;oBrw&#58;Refresh&#40;&#41;\n   endif   \n\nreturn nil\n\nMETHOD GetItems&#40;&#41; CLASS TGetFile\n\n   local aInfo &#58;= Directory&#40; &#58;&#58;cPath + &#58;&#58;cMask, &quot;D&quot; &#41;, n\n   \n   &#58;&#58;aItems = &#123;&#125;\n      \n   if Len&#40; &#58;&#58;cPath &#41; &gt; 1\n      AAdd&#40; &#58;&#58;aItems, &#123; &quot;&#46;&#46;&quot;, &quot;D&quot;, &quot;&quot;, &quot;&quot; &#125; &#41;\n   endif   \n\n   for n = 1 to Len&#40; aInfo &#41;\n      if &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; &#58;&#58;aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;D&quot;, aInfo&#91; n &#93;&#91; 2 &#93;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n   for n = 1 to Len&#40; aInfo &#41;\n      if ! &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; &#58;&#58;aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;F&quot;, Str&#40; aInfo&#91; n &#93;&#91; 2 &#93; &#41;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n\nreturn nil\n\nMETHOD SelItem&#40;&#41; CLASS TGetFile\n\n   if Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 2 &#93; == &quot;F&quot;\n      &#58;&#58;cFileName = &#58;&#58;cPath + Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 1 &#93;\n      &#58;&#58;oDlg&#58;End&#40;&#41;\n   else\n      &#58;&#58;CheckItem&#40;&#41;\n   endif\n   \nreturn nil          \n[/code:2nzwrs2a]','',0,'AIA=','2nzwrs2a',1,0,'',2,0,0),(17733,3998,4,2,0,'87.218.146.252',1156572747,1,0,1,1,1,1,'','','Carles,\n\nUsing object oriented code, it gets better structured:\n[code:3uvy284f]\n// FWPPC own function cGetFile&#40;&#41; implementation\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; cGetFile&#40; &quot;*&#46;*&quot;, &quot;\\&quot; &#41; &#41;\n   \nreturn nil\n\nstatic function cGetFile&#40; cMask, cPath &#41;   \n\n   local oGetFile &#58;= TGetFile&#40;&#41;&#58;New&#40; cMask, cPath &#41;\n   \nreturn oGetFile&#58;cFileName\n\nCLASS TGetFile\n\n   DATA  oDlg\n   DATA  oBrw\n   DATA  cMask\n   DATA  cPath\n   DATA  cFileName\n   DATA  aItems\n   \n   METHOD New&#40; cMask, cPath &#41;\n   METHOD CheckItem&#40;&#41;\n   METHOD GetItems&#40;&#41;\n   METHOD SelItem&#40;&#41;\n   \nENDCLASS   \n\nMETHOD New&#40; cMask, cPath &#41; CLASS TGetFile\n\n   DEFAULT cMask &#58;= &quot;*&#46;*&quot;, cPath &#58;= &quot;\\&quot; \n   \n   &#58;&#58;cMask = cMask\n   &#58;&#58;cPath = cPath\n   &#58;&#58;cFileName = &quot;&quot;\n   \n   &#58;&#58;GetItems&#40;&#41;\n   \n   DEFINE DIALOG &#58;&#58;oDlg TITLE &quot;Please select a file&quot; ;\n      SIZE 220, 210\n   \n   @ 0&#46;4, 0&#46;7 LISTBOX &#58;&#58;oBrw ;\n      FIELDS &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 1 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 2 &#93;,;\n             &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 3 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 4 &#93; ;\n      HEADERS &quot;Name&quot;, &quot;T&quot;, &quot;Size&quot;, &quot;Date&quot; ;\n      COLSIZES  100, 15, 70, 40 ;\n      SIZE 100, 82 ;\n      ON DBLCLICK &#58;&#58;SelItem&#40;&#41;\n\n   &#58;&#58;oBrw&#58;SetArray&#40; &#58;&#58;aItems &#41;\n   &#58;&#58;oBrw&#58;aJustify = &#123; &#46;f&#46;, &#46;f&#46;, &#46;t&#46;, &#46;f&#46; &#125;\n   &#58;&#58;oBrw&#58;bKeyChar = &#123; | nKey | If&#40; nKey == 13, &#40; &#58;&#58;SelItem&#40;&#41;, oBrw&#58;SetFocus&#40;&#41; &#41;,&#41; &#125;\n   \n   @ 5,  3 BUTTON oBtn PROMPT &quot;Ok&quot; ACTION &#58;&#58;SelItem&#40;&#41;\n\n   @ 5, 10 BUTTON &quot;Cancel&quot; ACTION &#58;&#58;oDlg&#58;End&#40;&#41;\n   \n   ACTIVATE DIALOG &#58;&#58;oDlg CENTERED\n      \nreturn Self      \n\nMETHOD CheckItem&#40;&#41; CLASS TGetFile\n\n   local cItem &#58;= Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 1 &#93;\n   local cType &#58;= Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 2 &#93;\n\n   if cType == &quot;D&quot;\n      if cItem == &quot;&#46;&#46;&quot;\n         &#58;&#58;cPath = SubStr&#40; &#58;&#58;cPath, 1, RAt&#40; &quot;\\&quot;, &#58;&#58;cPath &#41; - 1 &#41;\n         &#58;&#58;cPath = SubStr&#40; &#58;&#58;cPath, 1, RAt&#40; &quot;\\&quot;, &#58;&#58;cPath &#41; &#41;\n         &#58;&#58;GetItems&#40;&#41;\n      else   \n         &#58;&#58;cPath += cItem + &quot;\\&quot;\n         &#58;&#58;GetItems&#40;&#41;\n      endif   \n      &#58;&#58;oBrw&#58;SetArray&#40; &#58;&#58;aItems &#41;\n      &#58;&#58;oBrw&#58;nAt = 1\n      &#58;&#58;oBrw&#58;bLine = &#123; || &#123; &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 1 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 2 &#93;,;\n                            &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 3 &#93;, &#58;&#58;aItems&#91; &#58;&#58;oBrw&#58;nAt, 4 &#93; &#125; &#125;\n      &#58;&#58;oBrw&#58;GoTop&#40;&#41;\n      &#58;&#58;oBrw&#58;Refresh&#40;&#41;\n   endif   \n\nreturn nil\n\nMETHOD GetItems&#40;&#41; CLASS TGetFile\n\n   local aInfo &#58;= Directory&#40; &#58;&#58;cPath + &#58;&#58;cMask, &quot;D&quot; &#41;, n\n   \n   &#58;&#58;aItems = &#123;&#125;\n      \n   if Len&#40; &#58;&#58;cPath &#41; &gt; 1\n      AAdd&#40; &#58;&#58;aItems, &#123; &quot;&#46;&#46;&quot;, &quot;D&quot;, &quot;&quot;, &quot;&quot; &#125; &#41;\n   endif   \n\n   for n = 1 to Len&#40; aInfo &#41;\n      if &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; &#58;&#58;aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;D&quot;, aInfo&#91; n &#93;&#91; 2 &#93;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n   for n = 1 to Len&#40; aInfo &#41;\n      if ! &quot;D&quot; $ aInfo&#91; n &#93;&#91; 5 &#93;\n         AAdd&#40; &#58;&#58;aItems, &#123; aInfo&#91; n &#93;&#91; 1 &#93;, &quot;F&quot;, Str&#40; aInfo&#91; n &#93;&#91; 2 &#93; &#41;,;\n               DToC&#40; aInfo&#91; n &#93;&#91; 3 &#93; &#41; &#125; &#41;\n      endif   \n   next    \n\nreturn nil\n\nMETHOD SelItem&#40;&#41; CLASS TGetFile\n\n   if Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 2 &#93; == &quot;F&quot;\n      &#58;&#58;cFileName = &#58;&#58;cPath + Eval&#40; &#58;&#58;oBrw&#58;bLine &#41;&#91; 1 &#93;\n      &#58;&#58;oDlg&#58;End&#40;&#41;\n   else\n      &#58;&#58;CheckItem&#40;&#41;\n   endif\n   \nreturn nil          \n[/code:3uvy284f]','',0,'AIA=','3uvy284f',1,0,'',2,0,0),(17734,3983,2,2,0,'87.218.146.252',1156573070,1,0,1,1,1,1,'','','Tu estás en el GET Código cuando llamas a la caja de diálogo para seleccionar un producto ?\n\nPrueba con:\n\nREDEFINE GET TgGet[19] VAR Det [01] ID 218 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE \"@!\" VALID ( BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto), TgGet[21]:SetFocus(), .T. )','',0,'','2hcigb0q',1,0,'',2,0,0),(17735,4012,3,2,0,'87.218.146.252',1156573539,1,0,1,1,1,1,'','','Jeff,\n\nsamples\\TestDlg.prg is working fine with FWH 2.7. There are many changes from 2.5 to 2.7. You should upgrade.\n\nWe may email you the EXE so you can try it yourself.','',0,'','3pb8dj0t',1,0,'',2,0,0),(17736,4020,3,2,0,'87.218.146.252',1156573878,1,0,1,1,1,1,'','','Darrell,\n\nPlease upload the code of mailer.prg to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> and copy here the download url so we can review its source code. If it is a short source code, just copy it here. Thanks.\n\nFWH provides a CallDll() but no a DllCall().','',0,'','2ut7xopb',1,0,'',2,0,0),(17737,4015,3,2,0,'87.218.146.252',1156574622,1,0,1,1,1,1,'','','Silvio,\n\n&gt;\nWith Class TRichEdit it is possible insert a bitmap on rtf or when it print ...? \n&gt;\n\nNo, it is not supported yet.\n\n&gt;\nhave you an sample with this class to use a dbf file for Replace variables ( merge)\n&gt;\n\nYou may do oRichEdit:SetText( StrTran( oRichEdit:GetText(), &lt;cOldText&gt;, &lt;cNewText&gt; ) )','',0,'','18a748yf',1,0,'',2,0,0),(17738,4010,3,2,0,'87.218.146.252',1156575343,1,0,1,1,1,1,'','','Vilian,\n\nPlease add this function to source\\winapi\\wininet.prg:\n\nDLL32 FUNCTION FtpRenameFile( hFTP AS LONG, cOldFileName AS LPSTR, cNewFileName AS LPSTR ) ;\n                              AS BOOL PASCAL ;\n                              FROM \"FtpRenameFileA\" LIB hWinINet\n\nAnd add this Method to Class TFtp:\n\nMETHOD RenameFile( cOldFileName, cNewFileName ) CLASS TFTP\n\nreturn If( ::hFTP != nil, FtpRenameFile( ::hFTP, cOldFileName, cNewFileName ), .f. )','',0,'','2tjp7g6a',1,0,'',2,0,0),(17739,4021,3,49,0,'62.13.172.78',1156576454,1,0,1,1,1,1,'','dsay and sayref trasparent','Wherei can download dsay and sayref trasparent :\ni want use it on a dialog ...brush obrush...trasparent\n\nRegards','',0,'','mast5aq9',1,0,'',49,0,0),(17740,4015,3,49,0,'62.13.172.78',1156576593,1,0,1,1,1,1,'','','Thanks Antonio,\nbut how I can insert a logo on the letter ?\nI think ...I must use a letter already with the logo ?\nWhen you make another functions for this class ...Not abandon this class is too usefull !!!','',0,'','k7lxzqkp',1,0,'',49,0,0),(17741,4003,3,6,0,'87.17.226.250',1156580191,1,0,1,1,1,1,'','','I don\'t know, sorry. You may check the timeout. If bConnnect is evaluated after the timeout is expired then the connection is not valid.\n\nConnect() method return value seems to be always -1 (SOCKET_ERROR), I don\'t know why.\n\nEMG','',0,'','3vh1nhhf',1,0,'',6,0,0),(17742,4015,3,2,0,'87.218.146.252',1156585700,1,0,1,1,1,1,'','','Silvio,\n\nClass TRichEdit is enhanced in every FWH build. Images support is complex and requires OLE. We are in the process to implement it.','',0,'','n68h3jb1',1,0,'',2,0,0),(17743,4007,6,2,0,'87.218.146.252',1156591982,1,0,1,1,1,1,'','','João,\n\n$ es hexadecimal en pascal, luego es equivalente a 0x378. Pero Windows no te dejará acceder a él directamente sino usando OpenComm() (que FWH traduce a CreateFile() del API de Win32).\n\nSi lo que quieres es direccionar un puerto a una impresora determinada: \n\nNET USE LPT1 \\\\equipo\\\\impresora\\\\puerto \nó \nNET USE LPT2 \\\\equipo\\\\impresora\\\\puerto \n\npara eliminarlo \nNET USE LPT1 /D','',0,'','2n1z9dyh',1,0,'',2,0,0),(17744,4022,6,292,0,'201.243.99.57',1156592562,1,0,1,1,1,1,'','Foro o Lista de mensajes para MS-SQL?','Colegas,\nEstoy buscando algún foro de MS-SQL o Mensajes de listas estilos MySQL\n\nNecesito leer la integridad referencial de una TABLA o saber si ya existe para no generarla nuevamente','',0,'','3mhptvgt',1,0,'',292,0,0),(17745,4011,3,6,0,'82.58.168.166',1156593234,1,0,1,1,1,1,'','Re: TsBrowse and Tsbutton Libraries','[quote=&quot;George&quot;:1umi35si]Hi \n\nHere the link  to download TsBrowse and Tsbutton Libraries\ncompiled with FWH 2.7 and xHarbour Build 0.99.61 \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029b549d95/TSB_LIB.ZIP.html\">http://hyperupload.com/download/029b549 ... B.ZIP.html</a><!-- m -->\n\n\nRegards\n\nGeorge[/quote:1umi35si]\n\nThe compiled LIBs are for MS (no BCC version?) and the provided PRG (only TSBrowse, no TSButton and TSLine) is not compilable.\n\nPlease provide a complete package, thank you.\n\nEMG','',0,'gA==','1umi35si',1,0,'',6,0,0),(17746,3983,2,774,0,'200.72.65.89',1156594609,1,0,1,1,1,0,'','','Efeticamente ANTONIO,, yo estoy en el get codigo cuando se llama la function que abre el otro dialogo del listado,, cuando me salgo de ese dialogo es donde se pierde el foco,, lo mas raro que si digito el codigo del producto sin abrir el dialogo de listado de codigo,, el foco no se pierde...\n\n\nQUE SERA.. !!!!!\n\nGRACIAS','',0,'gA==','18x66lm6',1,0,'',774,0,0),(17747,3983,2,774,0,'200.72.65.89',1156594868,1,0,1,1,1,0,'','','Antonio se me olvidaba probe tu cambio y no funciona.. siempre se enfoca en ese combo,,,,','',0,'gA==','22ykdh6g',1,0,'',774,0,0),(17748,4007,6,362,0,'200.168.52.156',1156595360,1,0,1,1,1,1,'','','Ejemplo de lo que necesito:\n\n{Este programa controla uma rede de terminais 485 através de dll.\nArquivos utilizados:\n\nWTechLpt.dll:que pode ser encontrado na HomePage.(Deve ser colocada no mesmo diretório do programa).}\n\nunit AcessaTerminal485;\n\ninterface\n\nuses\n  SysUtils, Windows, Messages, Classes, Graphics, Controls,\n  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus;\n\ntype\n  TFrmAcessaTerminal = class(TForm)\n    Abre: TButton;\n    Fecha: TButton;\n    Timer1: TTimer;\n    BtSair: TBitBtn;\n    Emulador: TCheckBox;\n    procedure AbreClick(Sender: TObject);\n    procedure FechaClick(Sender: TObject);\n    procedure Timer1Timer(Sender: TObject);\n    procedure BtSairClick(Sender: TObject);\n  end;\n\nvar\n  dado1 : char;\n  terminal:integer;\n  x:integer;\n  Status:Byte;\n  k:integer;\n  Car2,Car3,ByteCom:integer;\n  aux:string;\n  Emula:boolean;\n  QtdeTerms:integer;\n\n//Vetores criados para controle de cada terminal\n\n  teclado:array[0..31] of string;\n  waitkbd:array[0..31] of boolean;\n  pikture:array[0..31] of string;\n  pospic :array[0..31] of integer;\n  estado :array[0..31] of integer;\n  vendedor:array[0..31] of string;\n  produto:array[0..31] of String;\n  quantidade:array[0..31] of string;\n  peso: array[0..31] of string;\n\n  pprinter:array[0..31] of string;\n  sprinter:array[0..31] of string;\n  pinpos:array[0..31] of integer;\n  poutpos:array[0..31] of integer;\n  sinpos:array[0..31] of integer;\n  soutpos:array[0..31] of integer;\n\n  FrmAcessaTerminal: TFrmAcessaTerminal;\n\n//Declara funções da dll\n  function ConfigLpt(Endereco, Timeout:Word):Boolean; stdcall; external \'WTechLpt.dll\';\n  procedure Dll_PosCur (Terminal, Lin, Col: Byte); stdcall; external \'WTechLpt.dll\';\n  procedure Dll_Clear (Terminal:Byte); stdcall; external \'WTechLpt.dll\';\n  procedure Dll_Echo (Terminal:Byte;Dado:char); stdcall; external \'WTechLpt.dll\';\n  procedure Dll_Display (Terminal:Byte; Dado:string); stdcall; external \'WTechLpt.dll\';\n  function Dll_Get(Terminal:Byte):char; stdcall; external \'WTechLpt.dll\';\n  function Dll_Status(Terminal:Byte):Byte; stdcall; external \'WTechLpt.dll\';\n  function Dll_Print(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\';\n  function Dll_Serial(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\';\n  function Dll_Acesso(Cmd:string):Integer;stdcall;external \'WTechLpt.dll\';\n\nimplementation\n\nuses Principal;\n\n{$R *.DFM}\n\nprocedure Gdisplay( str:string );\nvar\nTerm:string;\nbegin\n//Escreve a string correspondente no terminal selecionado\nif Emula then\n        Form1.VEntrada.Text := chr(254)+ \'00D\'+str\nelse\n        begin\n                if terminal &lt; 10 then\n                        Term := \'0\'+inttostr(terminal)\n                else term := inttostr(terminal);\n                Dll_Acesso(chr(254)+term+\'D\'+str) ;\n        end;\nend;\n\nprocedure Gecho( str:char );\nbegin\n// Escreve o caracter correspondente no terminal selecionado\nif Emula then\n        form1.VEntrada.Text :=chr(254)+\'00D\'+str\nelse\n        Dll_Echo(Terminal,str);\nend;\n\nprocedure Gposcur( linha:integer; coluna:integer );\nbegin\n//Posiciona o cursor na linha e coluna desejadas\nif Emula then\n        form1.VEntrada.Text := chr(254)+\'00C\'+ chr(linha+1)+chr(coluna+1)\nelse\n        Dll_PosCur(Terminal,Linha, coluna);\nend;\n\nprocedure Gclear;\nvar\nTerm:string;\nbegin\n//Limpa o display do terminal\nif Emula then\n        Form1.VEntrada.Text := chr(254)+\'00L\'\nelse\n        begin\n                if terminal &lt; 10 then\n                        Term := \'0\'+inttostr(terminal)\n                else term := inttostr(terminal);\n                Dll_Acesso(chr(254)+ term+\'L\');\n        end;\nend;\n\nprocedure Gpedetecla;\nvar\nAuxPede:string;\nbegin\n//Recebe caracter do buffer\n    if Emula then\n        begin\n                if form1.VSaida.Text &lt;&gt; \'\' then\n                        begin\n                                AuxPede:=form1.VSaida.text;\n                                dado1:=AuxPede[1];\n                                delete(AuxPede,1,1);\n                                form1.VSaida.text := AuxPede;\n\n                        end\n                else\n                        dado1 := chr(0);\n        end\n    else\n        dado1:= Dll_Get(Terminal);\n    aux:=\'\';\n    if estado[terminal] = 8 then\n        begin\n                if dado1=\'\\\' then\n                        begin\n                                k:=2;\n                                dado1:=chr(0);\n                        end\n                else if k&gt;1 then\n                        begin\n                                if k=2 then\n                                        begin\n                                                car2 := Ord(dado1);\n                                                car2:=car2 and 240;\n                                                dado1:=chr(car2);\n                                                dado1:=chr(0);\n                                                k:=3;\n                                        end\n                                else\n                                        begin\n                                                car3:= ord(dado1);\n                                                car3:=car3 and 15;\n                                                dado1:=chr(car3);\n                                                x:=car2+car3;\n                                                dado1:=chr(x);\n                                                k:=1;\n                                        end;\n                        end;\n        end;\nend;\n\nprocedure Gget( str : string );\n//Coloca máscara no valor digitado\nbegin\n        if (waitkbd[terminal]=false) then\n                begin\n                        waitkbd[terminal] := true;\n                        pospic[terminal]  := 1;\n                        pikture[terminal] := str;\n                        teclado[terminal] := \'\';\n                end;\nend;\n\nprocedure Gpedestatus;\nbegin\n//Retorna byte de status do microterminal\n     if Emula then\n        begin\n                form1.VStatus.Text :=\'\';\n                form1.VEntrada.text := chr(254)+\'00U\';\n                while form1.VStatus.Text = \'\' do\n                        Application.processmessages;\n                status := ord(form1.VStatus.text[1]);\n        end\n     else\n        Status:=Dll_Status(Terminal);\nend;\n\nprocedure Ginicia;\n//Inicializa funcionamento do microterminal\nvar\n   i:integer;\nbegin\nif FrmAcessaTerminal.Emulador.checked = false then\n        // Em Delphi - Eca...\n        ConfigLpt($378,250);//Configura porta e timeOut\nfor i:=0 to 31 do\n        begin\n                estado[i]:=1;\n                pikture[i]:=\'\';\n                pospic[i]:=1;\n                waitkbd[i]:=false;\n                Terminal:=i;\n                pinpos[i]:=1;\n                pprinter[i]:=\'\';\n                poutpos[i]:=1;\n                sprinter[i]:=\'\';\n                sinpos[i]:=1;\n                soutpos[i]:=1;\n                Gclear();\n                Gclear();\n        end;\nend;\n\nprocedure gAjustaPonto;\n//Testa se a tecla ponto foi pressionada\nvar\n   PosPonto:integer;\n   StrDisp:string;\n   spPic:integer;\nbegin\n        PosPonto:=1;\n        while (copy(Pikture[terminal], PosPonto, 1) &lt;&gt; \'.\') do\n                begin\n                        PosPonto := PosPonto + 1;\n                        if PosPonto = length(Pikture[terminal]) then\n                                Exit;\n                end;\n        if PosPonto = length(Pikture[terminal]) then\n                exit;\n        spPic := PosPonto - 1 - length(Teclado[terminal]);\n        StrDisp:=\'\';\n        while spPic &gt; 0 do\n                begin\n                        StrDisp := StrDisp + \' \';\n                        spPic:=spPic - 1;\n                end;\n        strdisp := strdisp + Teclado[terminal];\n        sppic := PosPic[terminal];\n        While sppic &gt; 1 do\n                begin\n                        Gecho (chr(8));\n                        sppic := sppic - 1;\n                end;\n        PosPic[terminal] := posponto;\n        Gdisplay (strdisp);\n        Teclado[terminal] := strdisp;\nend;\n\nfunction GTrataTecla:boolean;\n//Trata tecla que foi pressionada\nvar\n   gPict  :string;\n   stecla : char;\n   tamanho:integer;\nbegin\n   if  (WaitKbd[terminal] = false) then\n        begin\n                result := false;\n                exit;\n        end;\n   Gpedetecla();\n   stecla:=dado1;\n   if  (sTecla = Chr(13)) then //se enter\n        begin\n                WaitKbd[terminal] := false;\n                result := true;\n                exit;\n        end;\n   if sTecla = Chr(127) then //\n        begin\n                if PosPic[terminal] = 1 then\n                        begin\n                                Teclado[terminal] := chr(127);\n                                WaitKbd[terminal] := false;\n                                result := true;\n                        end\n                else\n                        begin\n                                repeat\n                                        Gecho( chr(8) );\n                                        pospic[terminal]:=pospic[terminal]-1;\n                                until pospic[terminal]&gt;1;\n                                result:=false;\n                        end;\n                exit;\n        end;\n   if sTecla=Chr(0) then\n        begin\n                result := false;\n                exit;\n        end;\n   if sTecla = Chr(8) then\n        begin\n                if PosPic[terminal] &gt; 1 then\n                        begin\n                                gpict := copy (Pikture[terminal], pospic[terminal] - 1, 1);\n                                if (gpict = \'/\') or (gpict = \'.\') then\n                                        begin\n                                                pospic[terminal] := pospic[terminal] - 1;\n                                                Gecho( chr(8) );\n                                        end;\n                                pospic [terminal] := pospic[terminal] - 1;\n                                Teclado[terminal] := copy (Teclado[terminal], 1, pospic[terminal] - 1);\n                                Gecho(chr(8));\n                        end;\n                result := false;\n                exit;\n        end;\n   gpict := copy (Pikture[terminal], pospic[terminal], 1);\n   if gpict = \'X\' then\n        begin\n                Teclado[terminal] := Teclado[terminal] + sTecla;\n                pospic [terminal] := pospic [terminal] + 1;\n                gEcho (stecla);\n        end\n   else if gpict = \'9\' then // Somente aceitar numeros e \".\" ou \"/\" ou \"-\"\n        begin\n                if ((sTecla &gt;= \'0\') and (sTecla &lt;= \'9\')) or (sTecla = \'.\')\n                         or (sTecla = \'/\')or (sTecla = \'-\') then\n                        begin\n                                if sTecla = \'.\' then begin\n                                        gAjustaPonto ();\n                        end\n                else\n                        begin\n                                Teclado[terminal] := Teclado[terminal] + sTecla;\n                                pospic [terminal] := pospic [terminal] + 1;\n                                gEcho(stecla);\n                        end;\n        end;\n        end\n   else if gpict = \'A\' then // Alfabetico\n        begin\n                if (sTecla &gt;= \'A\') and (sTecla &lt;= \'Z\') then\n                        begin\n                                Teclado[terminal] := Teclado[terminal] + sTecla;\n                                pospic [terminal] := pospic [terminal] + 1;\n                                gEcho(stecla);\n                        end;\n        end\n   else if gpict = \'*\' then // Senha\n        begin\n                Teclado[terminal] := Teclado[terminal] + sTecla;\n                pospic [terminal] := pospic [terminal] + 1;\n                gEcho (\'*\');\n        end\n   else\n        begin\n                result := false;\n                exit;\n        end;\n   tamanho := length(Pikture[terminal]) + 1;\n   gpict   := copy (Pikture[terminal], pospic[terminal], 1);\n   if tamanho = pospic[terminal] then\n        begin\n                waitkbd[terminal] := false;\n                result := true;\n        end\n   else if gpict = \'/\' then\n        begin\n                pospic[terminal] := pospic[terminal] + 1;\n                gEcho  (\'/\');\n                result := false;\n        end\n   else if gpict = \'.\' then\n        begin\n                sTecla := \'.\';\n                pospic[terminal] := pospic[terminal] + 1;\n                gEcho  (stecla);\n                result := false;\n        end\n   else\n        result := false;\n\nend;\n\nprocedure GPrintp(term:integer; dados:string);\nbegin\n        pinpos[term] := pinpos[term] + length(dados);\n        pprinter[term] := pprinter[term] + dados;\nend;\n\nprocedure GPrints(term:integer; dados:string);\nbegin\n        sinpos[term] := sinpos[term] + length(dados);\n        sprinter[term] := sprinter[term] + dados;\nend;\n\nprocedure GFlushPrn;\nvar\n   sAux:string;\n   aux:char;\n begin\n   dado1:=chr(1);\n   while dado1 &lt;&gt; chr(0) do\n        begin\n                if pinpos[terminal] &lt;&gt; poutpos[terminal] then\n                        begin\n                                sAux := copy (pprinter[terminal], poutpos[terminal], 1);\n                                aux:=sAux[1];\n                                if Emula then\n                                        begin\n                                                Form1.VStatus.Text := \'\';\n                                                form1.VEntrada.Text := chr(254)+\'00I\'+aux;\n                                                while form1.VStatus.Text = \'\' do\n                                                        application.ProcessMessages;\n                                                SAux:= form1.vstatus.Text;\n                                                Dado1:=SAux[1];\n                                        end\n                                else\n                                        dado1:=chr(dll_print(terminal,aux));\n                                if dado1 &lt;&gt;chr(0) then\n                                        poutpos[terminal]:=poutpos[terminal]+1;\n                        end\n                else\n                        begin\n                                pprinter[terminal] := \'\';\n                                pinpos[terminal] := 1;\n                                poutpos[terminal] := 1;\n                                dado1:= Chr(0);\n                        end;\n        end;\nend;\n\nprocedure GFlushCom();\nvar\n   sAux:string;\n   aux:char;\nbegin\n   dado1:=chr(1);\n   while dado1 &lt;&gt; chr(0) do\n        begin\n                if sinpos[terminal] &lt;&gt; soutpos[terminal] then\n                        begin\n                                sAux := copy (sprinter[terminal], soutpos[terminal], 1);\n                                aux:=sAux[1];\n                                if Emula then\n                                        begin\n                                                form1.VStatus.text:=\'\';\n                                                form1.VEntrada.Text := chr(254)+\'00R\'+aux;\n                                                while form1.VStatus.Text = \'\' do\n                                                        application.ProcessMessages;\n                                                SAux:= form1.VStatus.Text;\n                                                Dado1:=SAux[1];\n                                        end\n                                else\n                                        dado1:=chr(Dll_Serial(terminal,aux));\n                                if dado1&lt;&gt;chr(0) then\n                                        soutpos[terminal]:=soutpos[terminal]+1;\n                        end\n                else\n                        begin\n                                sprinter[terminal] := \'\';\n                                sinpos[terminal] := 1;\n                                soutpos[terminal] := 1;\n                                dado1:= Chr(0);\n                        end;\n        end;\nend;\n\nprocedure TFrmAcessaTerminal.AbreClick(Sender: TObject);\nbegin\nif Emulador.Checked then\n        begin\n                Emula := true;\n                QtdeTerms := 1;\n                Form1.show;\n        end\nelse\n        QtdeTerms := 32;\nGinicia();\nTimer1.enabled:=true;//Inicia Timer (Início do Programa)\nk:=1;\nend;\n\nprocedure TFrmAcessaTerminal.FechaClick(Sender: TObject);\nbegin\n        timer1.enabled:=false;//Finaliza Timer (Fim Programa)\n        Form1.Close;\nend;\n\nprocedure TFrmAcessaTerminal.Timer1Timer(Sender: TObject);\nbegin\n//Imprime no display o dado requerido de acordo com o estado do terminal\n//correspondente.\n     for terminal:=0 to (QtdeTerms - 1) do\n        begin\n                GFlushCom;\n                case estado[terminal] of\n                        1: begin\n                                GClear();\n                                Gdisplay(\'Codigo do Vendedor: \');\n                                Gget( \'99999\' );\n                                estado[terminal]:=2;\n                        end;\n                        2: begin\n                                if Gtratatecla() then\n                                        begin\n                                                Gdisplay(teclado[Terminal] );\n                                                vendedor[terminal]:=teclado[Terminal];\n                                                estado[terminal]:=3;\n                                        end;\n                        end;\n                        3: begin\n                                GClear();\n                                Gdisplay(\'Codigo do Produto:\');\n                                Gget(\'999999999999999\');\n                                estado[terminal]:=4;\n                        end;\n                        4: if Gtratatecla() then\n                        begin\n                                GDisplay(teclado[terminal]);\n                                produto[terminal]:=teclado[Terminal];\n                                estado[terminal]:=5;\n                        end;\n                        5: begin\n                                GClear();\n                                GDisplay(\'Quantidade:\');\n                                GGet(\'9999\');\n                                estado[terminal] := 6;\n                        end;\n                        6: begin\n                                if GTratatecla() then\n                                        begin\n                                                GDisplay(teclado[Terminal]);\n                                                quantidade[Terminal]:=teclado[Terminal];\n                                                estado[terminal] := 7;\n                                        end;\n                        end;\n                        7: begin\n                                GClear();\n                                GDisplay(\'Peso:\');\n                                GPrintS(terminal,chr(5));\n                                GGet(\'999999\');\n                                estado[terminal]:=8;\n                        end;\n                        8: begin\n                                if GTratatecla() then\n                                        begin\n                                                GDisplay(teclado[Terminal]);\n                                                peso[Terminal]:=teclado[Terminal];\n                                                estado[terminal] := 9;\n                                        end;\n                        end;\n                        9: begin\n                                GClear();\n                                GDisplay(vendedor[terminal]);\n                                GPosCur(0,10);\n                                GDisplay(produto[terminal]);\n                                GPosCur(0,20);\n                                GDisplay(quantidade[terminal]);\n                                GPosCur(0,30);\n                                GDisplay(peso[terminal]);\n                                GPrintP(terminal,chr(10)+chr(13));\n                                GPrintP(terminal,\'Vendedor: \'+vendedor[terminal]+chr(10)+chr(13));\n                                GPrintP(terminal,\'Produto: \'+produto[terminal]+chr(10)+chr(13));\n                                GPrintP(terminal,\'Qtde: \'+quantidade[terminal]+chr(10)+chr(13));\n                                GPrintP(terminal,\'Peso: \'+peso[terminal]+chr(10)+chr(13));\n                                GFlushprn();\n                                Gget(\'9\');\n                                estado[terminal]:=10;\n                        end;\n                        10: begin\n                                if GTrataTecla() then\n                                        estado[terminal]:=1;\n                        end;\n                end;\n        end;\nend;\n\nprocedure TFrmAcessaTerminal.BtSairClick(Sender: TObject);\nbegin\n//Fecha Programa\nif timer1.Enabled = true then\n        timer1.Enabled := false;\nFrmAcessaTerminal.Close;\nend;\n\n\nend.\n\n//\n\n\nNo Maestro,\n\nLo que necesito es esto:\n\n// En Delphi - Eca... Iiiirrccc - jejejeje\n\nConfigLpt($378,250);//Configura porta e timeOut\n\nEsto es para un LECTOR DE PRECIOS DE GONDOLA Usando una DLL.\n\n//Declara funciones de la dll\n  function ConfigLpt(Endereco, Timeout:Word):Boolean; stdcall; external \'WTechLpt.dll\';\n  procedure Dll_PosCur (Terminal, Lin, Col: Byte); stdcall; external \'WTechLpt.dll\';\n  procedure Dll_Clear (Terminal:Byte); stdcall; external \'WTechLpt.dll\';\n  procedure Dll_Echo (Terminal:Byte;Dado:char); stdcall; external \'WTechLpt.dll\';\n  procedure Dll_Display (Terminal:Byte; Dado:string); stdcall; external \'WTechLpt.dll\';\n  function Dll_Get(Terminal:Byte):char; stdcall; external \'WTechLpt.dll\';\n  function Dll_Status(Terminal:Byte):Byte; stdcall; external \'WTechLpt.dll\';\n  function Dll_Print(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\';\n  function Dll_Serial(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\';\n  function Dll_Acesso(Cmd:string):Integer;stdcall;external \'WTechLpt.dll\';\n\nComo hacer estas DECLARACIONES Antonio?','',0,'','288to43n',1,0,'',362,0,0),(17749,4006,20,154,0,'151.80.5.167',1156596340,1,0,1,1,1,1,'','','Enrico,\nproprio ciò che serviva...\n\nGrazie!','',0,'','14tjgng4',1,0,'',154,0,0),(17750,4023,4,20,0,'87.7.212.146',1156597042,1,0,1,1,1,0,'','Save2Bmp','I would want to save a bitmap with this function:\n\n[code:35j5indz]\nFunction Save2Bmp&#40; cFile &#41;\n\n   LOCAL hBmp, hDib\n\n   DEFAULT cFile &#58;= CurDir&#40;&#41; + &quot;\\Graph&#46;Bmp&quot;\n\n   hBmp &#58;= WndBitmap&#40; oWnd&#58;hWnd &#41;\n   hDib &#58;= DibFromBitmap&#40; hBmp &#41;\n\n   DibWrite&#40; cFile, hDib &#41;\n   GloBalFree&#40; hDib &#41;\n   DeleteObject&#40; hBmp &#41;\n\nRETURN &#40; nil &#41;\n\n[/code:35j5indz]\n\nbut I obtain this error:\n\nmyprg.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_GLOBALFREE(void)\" (?HB_FUN_GLOBALFREE@@YAXXZ)\nmyprg.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_WNDBITMAP(void)\" (?HB_FUN_WNDBITMAP@@YAXXZ)\n\nGlobalFree and WndBitmap functions are included in FWPPC?\n\nRegards,\nPier Luigi','',0,'AIA=','35j5indz',1,0,'',20,0,0),(17751,4014,17,171,0,'71.232.193.197',1156597420,1,0,1,1,1,0,'','','Manuel mercado Tsbrowse + TsButton library complied with FWH 2.7 Jul 06 + xHarbour builder Aug 06 RC 9 (0.99.61)\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029b549d33/TSB_LIB.ZIP.html\">http://hyperupload.com/download/029b549 ... B.ZIP.html</a><!-- m -->','',0,'AIA=','1f8ibtsv',1,0,'',171,0,0),(17752,4022,6,292,0,'201.243.99.57',1156597745,1,0,1,1,1,1,'','Re: Foro o Lista de mensajes para MS-SQL?','Solución Encontrada\n\nsp_fkeys @pktable_name = \'TABLENAME\'\n\nCon la clase TODBC, se obtiene así:\n\n  cSql:=\"sp_fkeys @pktable_name = \'NMRECIBOS\'\"\n  oCursor:=oOdbc:Query(cSql)\n\n\n[quote=&quot;jnavas&quot;:1lcqq8k1]Colegas,\nEstoy buscando algún foro de MS-SQL o Mensajes de listas estilos MySQL\n\nNecesito leer la integridad referencial de una TABLA o saber si ya existe para no generarla nuevamente[/quote:1lcqq8k1]','',0,'gA==','1lcqq8k1',1,0,'',292,0,0),(17753,4024,2,52,0,'201.212.23.187',1156598360,1,0,1,1,1,1,'','FIVEWIN       Error en aplicacion...','Estoy creando una app, y me tira este error al ejecutar la aplicacion, de que se trata?\n\nGracias.\n[url=http&#58;//img86&#46;imageshack&#46;us/my&#46;php?image=dibujona3&#46;jpg:2875no69][img:2875no69]http&#58;//img86&#46;imageshack&#46;us/img86/8629/dibujona3&#46;th&#46;jpg[/img:2875no69][/url:2875no69]','',0,'GA==','2875no69',1,0,'',52,0,0),(17754,4010,3,267,0,'201.9.138.228',1156599976,1,0,1,1,1,1,'','','Thanks antonio.','',0,'GA==','1jbdjg7p',1,0,'',267,0,0),(17755,4011,3,171,0,'71.232.193.197',1156601868,1,0,1,1,1,0,'','','Hello Enrico\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/024bcdd980/TSLIB.ZIP.html\">http://hyperupload.com/download/024bcdd ... B.ZIP.html</a><!-- m -->\n\nIn the link above you have all sources for Tsbrowse 7.0 and TsButton 5.0 (Manuel Mercado classes)\n\nAtfer PKUNZIP TSLIB.ZIP, you have TSBUTTON.ZIP and TSBRW.ZIP and the compiled libraries tsbrowse.lib and tsbbutton.lib, using FWH 2.7 Jul 06 and xBuilder Professional Beta Aug 06 RC9 from xHarbour.com\n\nPlease use the option PKUNZIP -D TSBUTTON.ZIP (and for TSBRW.ZIP also) to create the directories.\n\nFor the compiled libraries, because I am using xBuilder from xHarbor.com, they are compiled with his propietary  XCC compiler ( no BCC or MS). \n\nInclude is the \".ini\" to create the library with xBuilder\n\nEnrico let me know if this work for you.\n\nRegards\n\n\nGeorge','',0,'GA==','33nqxxsj',1,0,'',171,0,0),(17756,4025,6,652,0,'200.44.224.79',1156602235,1,0,1,1,1,1,'','Cálculos en milisegundos','Buen día para todos...\n\n   Amigos en FiveWin hay alguna función o de 3ros que me permita realizar cálculos en milisegundos, se que hay una función para cálcular en segundos \"Seconds()\", pero necesito tener cálculos más precisos y tienen que ser en milisegundos. Muchas gracias','',0,'GA==','3u6ublon',1,0,'',652,0,0),(17757,4014,17,171,0,'71.232.193.197',1156602240,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/024bcdd980/TSLIB.ZIP.html\">http://hyperupload.com/download/024bcdd ... B.ZIP.html</a><!-- m --> \n\nIn the link above you have all sources for Tsbrowse 7.0 and TsButton 5.0 (Manuel Mercado classes) \n\nAtfer PKUNZIP TSLIB.ZIP, you have TSBUTTON.ZIP and TSBRW.ZIP and the compiled libraries tsbrowse.lib and tsbbutton.lib, using FWH 2.7 Jul 06 and xBuilder Professional Beta Aug 06 RC9 from xHarbour.com \n\nPlease use the option PKUNZIP -D TSBUTTON.ZIP (and for TSBRW.ZIP also) to create the directories. \n\nFor the compiled libraries, because I am using xBuilder from xHarbor.com, they are compiled with his propietary XCC compiler ( no BCC or MS). \n\nInclude is the \".ini\" to create the library with xBuilder \n\nRegards \n\n\nGeorge','',0,'GA==','8ulquzr4',1,0,'',171,0,0),(17758,4009,6,171,0,'71.232.193.197',1156602715,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/024bcdd980/TSLIB.ZIP.html\">http://hyperupload.com/download/024bcdd ... B.ZIP.html</a><!-- m --> \n\nEn este link esta el codigo fuente de las classes \nTsbrowse 7.0 and TsButton 5.0 (Manuel Mercado classes) \n\nDespues de PKUNZIP TSLIB.ZIP,  usted tiene TSBUTTON.ZIP yTSBRW.ZIP y las librerias compiladas  tsbrowse.lib and tsbbutton.lib, usando FWH 2.7 Jul 06 y xBuilder Professional Beta Aug 06 RC9 de xHarbour.com \n\nPor favor use la opcion PKUNZIP -D TSBUTTON.ZIP (y para TSBRW.ZIP tambien)  para crear los directorios y subdirectorios. \n\nLas librerias compiladas se realizaron con el compilador xCC,  de xBuilder (<!-- w --><a class=\"postlink\" href=\"http://www.xHarbour.com\">www.xHarbour.com</a><!-- w -->). \n\nIncluido estan los \".ini\" para crear las libreria con xBuilder \n\n\nGeorge','',0,'GA==','1tl2nozp',1,0,'',171,0,0),(17759,4011,3,6,0,'82.58.168.166',1156605034,1,0,1,1,1,1,'','','Thank you, I will try to compile it.\n\nEMG','',0,'GA==','alk0jbnp',1,0,'',6,0,0),(17760,3983,2,2,0,'87.218.146.252',1156608054,1,0,1,1,1,1,'','','Pruébalo así:\n\nREDEFINE GET TgGet[19] VAR Det [01] ID 218 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE \"@!\" VALID ( BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto), TgGet[19]:oJump := TgGet[21], .T. )','',0,'','2h8icyzg',1,0,'',2,0,0),(17761,4014,17,2,0,'87.218.146.252',1156608124,1,0,1,1,1,1,'','','George,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3sqbp52v',1,0,'',2,0,0),(17762,4007,6,2,0,'87.218.146.252',1156608448,1,0,1,1,1,1,'','','João,\n\nPor ejemplo:\n\nIn Delphi:\n\nfunction ConfigLpt(Endereco, Timeout:Word):Boolean; stdcall; external \'WTechLpt.dll\'; \n\nIn FWH:\n\nDLL FUNCTION ConfigLPT( Endereco AS LONG, TimeOut AS LONG ) AS BOOL LIB \"WTechLpt.dll\"','',0,'','hhyacjjm',1,0,'',2,0,0),(17763,4007,6,362,0,'200.168.52.156',1156609267,1,0,1,1,1,1,'','','Gracias Maestro. Comprendo perfecto.\n\nPodrias por favor DECLARAR estas otras?\n\n//Declara funciones de la dll \n\nprocedure Dll_PosCur (Terminal, Lin, Col: Byte); stdcall; external \'WTechLpt.dll\'\n \nprocedure Dll_Clear (Terminal:Byte); stdcall; external \'WTechLpt.dll\'\n \nprocedure Dll_Echo (Terminal:Byte;Dado:char); stdcall; external \'WTechLpt.dll\'; \n\nprocedure Dll_Display (Terminal:Byte; Dado:string); stdcall; external \'WTechLpt.dll\'; \n\nfunction Dll_Get(Terminal:Byte):char; stdcall; external \'WTechLpt.dll\'; \n\nfunction Dll_Status(Terminal:Byte):Byte; stdcall; external \'WTechLpt.dll\'; \n\nfunction Dll_Print(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\'; \n\nfunction Dll_Serial(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\'; \n\nfunction Dll_Acesso(Cmd:string):Integer;stdcall;external \'WTechLpt.dll\'; \n\n\nNO TENGO EXPERIENCIA EN ESTO.\n\nMuchas gracias, Maestro.   Saludos.','',0,'','wez8om6b',1,0,'',362,0,0),(17764,4026,2,66,0,'200.122.73.185',1156611233,1,0,1,0,1,0,'','Ayuda con bkeydown vk_home, vk_up no me funciona','Estimado Colegas\n\nTengo un problema que las teclas vk_home,vk_up,vk_down\nno me funcionan en el browse no asi  vk_return, vk_insert\nvk_f2 , si alguien me puede orientar\n\nDesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\nadjunto codigo\n\n\ninclude \"FiveWin.ch\"    // Cabezera de FW\n\n\n\n   // Cabezera de FW\n\n\n\nFUNCTION MAIN()\n\n    LOCAL oDlg, oBrw\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 LISTBOX oBrw FIELDS SIZE 100, 30\n\n   * oBrw:bKeyDown:= {|nK| if( nK==VK_UP, ( MsgInfo(), oDlg:End() ), ) }\n    OBrw:bKeyDown := {|nk| MiFuncion(nk)}\n\n   \n    @ 3, 1 BUTTON \"&amp;Close\";\n           ACTION oDlg:End()\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL \n\n\n*ero tal vez se vea mejor así:\n\n*oTXbrowse:bKeyDown := {|nk| MiFuncion(nk)}\n\nfunction MiFuncion(nk)\ndo case\ncase nk = VK_RETURN\n*funcion1()\n? \"enter\"\n\ncase nk = VK_F2\n? \"F2\"\n\ncase nk = VK_INSERT\n? \"INSERT\"\n\ncase nk = VK_HOME\n? \"HOME\"','',0,'','18p2ciec',1,0,'',66,0,0),(17765,4027,2,66,0,'200.122.73.185',1156611500,1,0,1,0,1,0,'','Ayuda con Browse y say en un mismo dialogo','Estimado Colegas\n\nTengo un browse en un dialog y quiero que a medida que lo vaya recorriendo\ncon las teclas arriba,abajo,repag,avpag  me vayas refrescando los\nsays en el mismo dialogos . Los says son de la misma dbf que el browse\nhe probado con bkeydown , pero no me funcionan las teclas vk_home\nvk_end\n\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','1m1prt0k',1,0,'',66,0,0),(17766,4028,4,47,0,'203.144.143.7',1156619472,1,0,1,1,1,0,'','Network and Shared Solution for WM5?','Dear Antonio,\n\nI use WM5 emulator and try to open with share mode but Rlock() return .F.. May I ask a question?\n\nAre Open Shared mode and Rlock() on Network Server working on WM5?\n\nBest regards,\nDutch','',0,'','39ovcmc7',1,0,'',47,0,0),(17767,4023,4,2,0,'87.218.146.252',1156628691,1,0,1,1,1,1,'','','Pier,\n\nThe problem is that Windows Mobile does not implement GetDIBits() which it is used from DibFromBitmap().\n\nWe are trying to implement a replacement for it.','',0,'','3d3441n3',1,0,'',2,0,0),(17768,4028,4,2,0,'87.218.146.252',1156628868,1,0,1,1,1,1,'','','Dutch,\n\n&gt;\nI use WM5 emulator and try to open with share mode but Rlock() return .F.. May I ask a question? \n&gt;\n\nHave you setup the emulator to join your LAN ? If not, better test it with a real Pocket PC connected to your LAN.\n\n&gt; Are Open Shared mode and Rlock() on Network Server working on WM5?\n\nYes','',0,'','rgop90ps',1,0,'',2,0,0),(17769,4029,2,52,0,'201.212.23.187',1156629734,1,0,1,1,1,1,'','Fatal RMAKE/R3006','Amigos,\n\nEstoy intentando crear una app de 16 bits utilizando rmake, pero me sale el siguiente error:\n[quote:2n3unziz]\nRMAKE 1.4  Copyright (c) 1989-1993 Computer Associates International, Inc.\nMP.RMK(100) Fatal RMAKE/R3006  Symbol table exhausted[/quote:2n3unziz]\n\nQue puede estar pasando, no entiendo el error.\n\nGracias.','',0,'gA==','2n3unziz',1,0,'',52,0,0),(17770,4008,6,196,0,'190.48.215.77',1156630688,1,0,1,1,1,0,'','','Estoy usando Harbour 41.0 el copyright dice 1999-2002.','',0,'gA==','ydqgcvmj',1,0,'',196,0,0),(17771,4029,2,52,0,'201.212.23.187',1156631702,1,0,1,1,1,1,'','Auto-Responsed','Ja,\n\n( Gracias Daniel Puente por el link )\n\nMe paso un link el que decia esto:\n[quote:3i0ydyaq]Al llamar al rmake debes colocar, al final de la línea de comando, /XSnnn \ndonde nnn representa el número de símbolos a utilizar (el default es 500). Otra opción es colocar en el autoexec.bat una sentencia que diga SET RMAKE=/XSnnn donde nnn representa el número de símbolos a utilizar (el default es 500). \nSuerte \nSaludos [/quote:3i0ydyaq]\n\nEfectivamente puse asi:\n[code:3i0ydyaq]RMAKE mp&#46;rmk /XS800[/code:3i0ydyaq]\ny ahora por lo menos esta compilando.\n\nGracias.','',0,'gIA=','3i0ydyaq',1,0,'',52,0,0),(17772,4030,7,779,0,'200.67.153.171',1156632000,1,0,1,1,1,0,'','Cordenadas en pixeles diferentes en Windows y en Dialogs','¿ Porque Dialogo realizado sin recursos al pasarlo a Ventata (o Viceversa)\ncambia sus posiciones y dimensiones en los controles que contiene?\n\ncomo si cada pixel de una window equivaliese a 2 en un dialogo \n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gIA=','25b1dqi5',1,0,'',779,0,0),(17773,4031,3,780,0,'87.6.133.146',1156639456,1,0,1,1,1,0,'','Problem with get / Tget object','I use in the get object, bChange for to know step by step the characters typewrite in a variable.\nFivewin report across nkey the chr number of last character typed.\nBut if i call the VarGet() method for read the total character typed, he not return me, nothing for the first 2 character. After typede 3  character the method return me  the first character typed.\n\nI send the code sample, test it. It\'s Very strange. This limit the use of get system.\nI have fivewin 2.7, xHarbour 99.60.\nThe code:\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oDlg, oGet1, n1 := \"                      \"\n\n   DEFINE DIALOG oDlg TITLE \"Testing Gets\"\n\n   @ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 \n   \n   oGet1:bChange={ |nkey , nFlag| test(nkey,nFlag,@oGet1)} \n   \n   @ 3, 11 BUTTON \"Ok\" ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nprocedure test(nkey,nFlag,oGet1)\nLocal CharContainer\nCharContainer := oGet1:VarGet()\n? CharContainer\n? chr(nkey)\nmsgalert(\"You Write \"+CharContainer,\"Write?\")\nreturn','',0,'gIA=','wfw3xctn',1,0,'',780,0,0),(17774,4032,3,707,0,'222.124.20.50',1156640965,1,0,1,1,1,0,'','Turn off client computer with sockets class','Hi !\n\nAs the subject, How to do this ?\n\nThis is for client computer when playing the games <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  to shut down by server  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nThanks\n\nAreang','',0,'gIA=','1gw81o2v',1,0,'',707,0,0),(17775,3972,7,778,0,'201.14.122.168',1156641012,1,0,1,1,1,0,'','Re: Uso de ODBC e MySql no Pocket - MySqlMobile','[quote=&quot;Mauro&quot;:2vw2srwe]Ola a todos\n\nExiste alguma possibilidade de usar MySql com OBDC no Pocket e se\nsim como fazer ?\n\nSaludos\nMauro[/quote:2vw2srwe]\n\nOlá a todos\n\nbaixei deste site\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketgear.com/software_detail.asp?id=21135\">http://www.pocketgear.com/software_detail.asp?id=21135</a><!-- m -->\num software chamado MySqlMobile, onde tem exemplos e uma dll,\nfiz um pequeno programa de testes, abaixo, ele conecta com o banco, mas\ndepois da conexão trava..\nAlguma idéia ?\nUso o Build de Julho/2006\n \n#include \"fwce.ch\"\n#include \"dll.ch\"\n\n// erros devolvidos pela mysqlmobile.dll\n#define EXTERNAL_ERROR                                             -2000 \n#define CONNECTION_TIMED_OUT                                       -1001 \n#define SOCKET_NOT_VALID                                           -1002 \n#define SOCKET_CONNECTION_FAILED                                   -1003 \n#define MYSQL_NOT_CONNECTED                                        -1004 \n#define WRONG_PACKET_DATA                                          -1005 \n#define EMPTY_PARAMETER_NOT_ALLOWED                                -1006 \n#define FIELD_NOT_FOUND                                            -1007 \n#define ROW_NOT_FOUND                                              -1008 \n#define UNKNOWN_FIELD_PARAMETER                                    -1009 \n#define NO_SUCH_COLUMN                                             -1010 \n#define NO_SUCH_ROW                                                -1011 \n#define ZLIB_DECOMPRESSION_ERROR                                   -1012 \n\nfunction Main()\n \n   local oWnd\n   local oBtn1\n\n   DEFINE WINDOW oWnd TITLE \"MySql\"\n \n\n   @ 001, 001 BUTTON oBtn1 PROMPT \"Conecta\" OF oWnd ;\n              ACTION Conecta()  ;\n              SIZE 100, 30 ;\n              PIXEL\n \n   @ 001, 140 BUTTON oBtn1 PROMPT \"Abre Banco\" OF oWnd ;\n              ACTION AbreBanco()  ;\n              SIZE 100, 30 ;\n              PIXEL\n \n\n   @ 060, 001 BUTTON oBtn1 PROMPT \"Query\" OF oWnd ;\n              ACTION FazQuery()  ;\n              SIZE 100, 30 ;\n              PIXEL\n \n   @ 060, 140 BUTTON oBtn1 PROMPT \"Desconecta\" OF oWnd ;\n              ACTION Desconecta()  ;\n              SIZE 100, 30 ;\n              PIXEL\n \n \n \n   @ 120, 060 BUTTON oBtn1 PROMPT \"Sair\" OF oWnd ;\n              ACTION oWnd:End()  ;\n              SIZE 100, 30 ;\n              PIXEL\n \n\n   ACTIVATE WINDOW oWnd\n \n\nreturn nil\n \n//----------------------------------------------------------------------------//\nfunction Conecta()\n  CursorWait()\n\n  nRet := MyConectar(\"xxx.xxx.xxx.xxx\",3306,\"user\",\"pass\") //  ip,porta mysql, usuario e password\n  SysRefresh()\n  MsgInfo(iif(nRet=0,\"Conectado\", \"Erro - não conectou\"), \"Atenção\")\n  // aqui trava e não sai da MsgInfo\n  CursorWe()\n   \nreturn nil\n\n//----------------------------------------------------------------------------//\nfunction AbreBanco()\n  CursorWait()\n\n  nRet:=MySelectDb(\"Nome do Banco\") \n  MsgInfo(iif(nRet=0,\"Selecionado\", \"Erro - não selecionou\"), \"Atenção\")\n\n  CursorWe()\n   \nreturn nil\n//----------------------------------------------------------------------------//\nfunction FazQuery()\n  CursorWait()\n\n  nRet:=MyExeQuery(\"SELECT * FROM ASAS WHERE ID=1\")\n  MsgInfo(iif(nRet=0,\"Selecionado\", \"Erro - não selecionou\"), \"Atenção\")\n\n  CursorWe()\n   \nreturn nil\n//----------------------------------------------------------------------------//\nfunction Desconecta()\n  CursorWait()\n\n  nRet:=MyDesconec() \n  MsgInfo(iif(nRet=0,\"Desconectado\", \"Erro - não desconectou\"), \"Atenção\")\n\n  CursorWe()\n   \nreturn nil\n//----------------------------------------------------------------------------//\n\n// MyComprime - Enable = 1 Habilita e = 0 Desabilita\nDLL FUNCTION MyComprime(Enable AS LONG) AS VOID PASCAL FROM \"mysql_enable_compression\" LIB \"MySqlMobile.dll\"\n           //1234567890\n\n//MyConectar(Host, Port, Username, Password) - retorna 0 se .t. ou &lt;&gt; 0 se .f.\nDLL FUNCTION MyConectar(Host AS STRING,Port AS LONG,User AS STRING,Pass AS STRING) AS LONG PASCAL FROM \"mysql_connect\" LIB \"MySqlMobile.dll\"\n           //1234567890\n\n//MyDesconec - retorna 0 se .t. ou &lt;&gt; 0 se .f.\nDLL FUNCTION MyDesconec() AS LONG PASCAL FROM \"mysql_disconnect\" LIB \"MySqlMobile.dll\"\n           //1234567890\n\n//MySelectDb - retorna 0 = tudo ok ou &lt;&gt; de zero quando erro \nDLL FUNCTION MySelectDb(cBanco AS STRING) AS LONG PASCAL FROM \"mysql_select_db\" LIB \"MySqlMobile.dll\"\n           //1234567890\n\n//MyExeQuery - retorna 0 = tudo ok ou &lt;&gt; de zero quando erro \nDLL FUNCTION MyExeQuery(cQuery AS STRING) AS LONG PASCAL FROM \"mysql_execute_query\" LIB \"MySqlMobile.dll\"\n           //1234567890','',0,'gA==','2vw2srwe',1,0,'',778,0,0),(17776,3953,3,780,0,'87.6.133.146',1156642878,1,0,1,1,1,0,'','Re: PDF From Preview','I resolved this problem a year ago.\nFor to give at my customers professional printed documents, i cannot use arrangiament.  The invoice, the look and feel and easy to use, have not price.\nI have studyed for some time crystal report, after have tested many report generator free and not free.\nI tested crw 8 and 8.5 for to create report directly wrapping dll.\nBut the result was not stable.\nAfter tested crw 9 and 10 and 11 i make a simple program in visual basic, for resolve runtime problem of crw.\nAfter i have coded a fivewin program for printer control and control of visual basic program, for mail the invoice and other documents in many file formats. The user see only the fivewin dialog, the Vb program are not visible.\nNow i have a professional program in fivewin, who control: \n1) the select type of file of document as xls, doc, rtf, pdf, or printer.\n2) select the printer prior of print a document, and his status.\n3) a professional preview.\n4) Mail the document at customers across outlook express, or smtp server of fivewin (i modify the class).\nAfter a long time for debug, i have begun to sell it with my programs and the customers are content. \n\nLaborious is to make by themselves, but at end is big satisfactions.\n\nEduardo Freni\n\n\n\n\n\n\n\n\n\n[quote=&quot;George&quot;:12fwjhy6]Does exists any version de PREVIEW than can save in PDF format?\n\nRegards\n\n\nGeorge[/quote:12fwjhy6]','',0,'gA==','12fwjhy6',1,0,'',780,0,0),(17777,4033,3,69,0,'70.50.137.46',1156643489,1,0,1,1,1,0,'','Upgrade Problem','Hi Everybody,\n\nI just upgraded from FWH2.5 to FWH2.7 and have a problem that I did not have before.\n\nWhen I try to:\n\n   if ! SetCommState( cDcb )\n      nError = GetCommError( nComm )\n      MsgInfo( \"SetCommState Error: \" + Str( nError ) )\n   endif\n\nI get a HARBOUR EXCEPTION error on the SetCommState() line.\n\nThis worked fine wit 2.5,  What do I need to change in 2.7 to make this work again.\n\nThanks,\n\nJeff','',0,'gA==','2b2onf05',1,0,'',69,0,0),(17778,4034,6,391,0,'205.160.32.38',1156654770,1,0,1,1,1,1,'','Probando el ejp. testoutl.prg - Dos veces click','Compile el ejemplo testoutl.prg, y encuentro que debo pulsar dos veces o mas para que se ejecute la accion asociada al boton.. tambien uso esta funcion en un programa propio y me pasa lo mismo.\n\nUso xhb + fivewin 2.7 de febrero\n\n\nMuchas Gracias','',0,'gA==','3o0yxjew',1,0,'',391,0,0),(17779,4027,2,9,0,'85.54.242.237',1156656551,1,0,1,1,1,1,'','','Comprueba en Samples el módulo testlbx.prg.-','',0,'gA==','u23uga9b',1,0,'',9,0,0),(17780,4035,6,18,0,'201.152.186.140',1156662480,1,0,1,1,1,1,'','LoadLib32() me devuelve un error','Estoy usando la función LoadLib32() para carga wininet.dll, sin embargo siempre obtengo un mensaje de error :\n\nError code: 0 loading 0\n\nya traté de cargar el arhivo de estas dos forma y el resultado es el mismo ;\n\n[code:3exu6rrn]\n    hLib = LOADLIB32&#40; &quot;\\Windows\\System32\\wininet&#46;dll&quot; &#41;\n    hLib = LOADLIB32&#40; &quot;wininet&#46;dll&quot; &#41;\n[/code:3exu6rrn]\n\nEstoy usando xHarbour y FiveWin 2.7, Windows XP SP 2.\n\nGracias por sus comentarios.','',0,'AIA=','3exu6rrn',1,0,'',18,0,0),(17781,4023,4,20,0,'87.7.212.146',1156662763,1,0,1,1,1,0,'','','Many thanks.\n\nRegards,\nPier Luigi','',0,'AIA=','11n0nixl',1,0,'',20,0,0),(17782,4033,3,6,0,'87.11.229.200',1156664561,1,0,1,1,1,1,'','Re: Upgrade Problem','[code:3v5jzlnk]if ! SetCommState&#40; nComm, cDcb &#41;[/code:3v5jzlnk]\n\nEMG','',0,'AIA=','3v5jzlnk',1,0,'',6,0,0),(17783,4011,3,58,0,'84.149.223.188',1156674772,1,0,1,1,1,0,'','','[quote=&quot;George&quot;:tynzlznq]Hello Enrico\n\n...\nFor the compiled libraries, because I am using xBuilder from xHarbor.com, they are compiled with his propietary  XCC compiler ( no BCC or MS). \n...\nGeorge[/quote:tynzlznq]\n\nGeorge,\n\nAFAIK, the XCC Compiler is a renamed Pelles C Compiler,\n\nRegards,\nDetlef','',0,'gA==','tynzlznq',1,0,'',58,0,0),(17784,4031,3,2,0,'87.218.146.208',1156676498,1,0,1,1,1,1,'','','Eduardo,\n\nTry it this way:\n[code:esuzze97]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\nlocal oDlg, oGet1, n1 &#58;= Space&#40; 20 &#41; \n\nDEFINE DIALOG oDlg TITLE &quot;Testing Gets&quot; \n\n@ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 \n\noGet1&#58;bChange=&#123; |nkey , nFlag| test&#40;nkey,nFlag, oGet1, oDlg&#41;&#125; \n\n@ 3, 11 BUTTON &quot;Ok&quot; ACTION oDlg&#58;End&#40;&#41; \n\nACTIVATE DIALOG oDlg CENTERED \n\nreturn nil \n\nprocedure test&#40;nkey,nFlag,oGet1,oDlg&#41; \n   Local CharContainer \n   CharContainer &#58;= oGet1&#58;GetText&#40;&#41; \n   oDlg&#58;SetText&#40; CharContainer &#41;\nreturn\n[/code:esuzze97]','',0,'AIA=','esuzze97',1,0,'',2,0,0),(17785,3972,7,2,0,'87.218.146.208',1156677067,1,0,1,1,1,1,'','','Mauro,\n\nPrueba a cambiar \"AS STRING\" por \"AS LPSTR\".\n\nLlegas a ver el MsgInfo() ? \n\nPuedes poner la declaración de mysql_connect() en C ? Para comprobar si espera las cadenas en unicode ó no.','',0,'AIA=','37cnalu8',1,0,'',2,0,0),(17786,4002,7,2,0,'87.218.146.208',1156677257,1,0,1,1,1,1,'','','Toni,\n\nPrueba a ponerles el WHEN .f. así no tomarán foco.','',0,'AIA=','2b4s0p9o',1,0,'',2,0,0),(17787,4030,7,2,0,'87.218.146.208',1156677424,1,0,1,1,1,1,'','','Ignacio,\n\nEs un comportamiento propio de Windows, ya que con las ventanas usa pixeles, pero con los diálogos usa \"unidades base de diálogo\" que calcula en base a GetDialogBaseUnits().\n\nSi revisas la documentación de GetDialogBaseUnits() encontrarás una explicación de como calcular, más ó menos, de unas a otras.','',0,'AIA=','2qpa3ljh',1,0,'',2,0,0),(17788,4035,6,2,0,'87.218.146.208',1156677608,1,0,1,1,1,1,'','','Vikthor,\n\nLoadLib32() es para 16 bits. \n\nUsa LoadLibrary().','',0,'AIA=','11cpso1c',1,0,'',2,0,0),(17789,4008,6,2,0,'87.218.146.208',1156677739,1,0,1,1,1,1,'','','Jorge,\n\nComo ves, es bastante antiguo y se han modificado mucho los RDDs desde entonces.\n\nActualízate a un build más reciente. En la sección whatsnew de estos foros tienes builds recientes que puedes descargar.','',0,'AIA=','34jn2cja',1,0,'',2,0,0),(17790,4025,6,2,0,'87.218.146.208',1156677881,1,0,1,1,1,1,'','','Antonio,\n\nLa función GetTickCount() devuelve el número de millisegundos desde que se inició el ordenador.\n\nLLamándola varias veces y restando sus resultados, puedes medir intervalos en milisegundos.','',0,'AIA=','10oxzrdc',1,0,'',2,0,0),(17791,4007,6,2,0,'87.218.146.208',1156677981,1,0,1,1,1,1,'','','procedure Dll_PosCur (Terminal, Lin, Col: Byte); stdcall; external \'WTechLpt.dll\'\n\nDLL FUNCTION Dll_PosCur( Terminal AS BYTE, Lin AS BYTE, Col AS BYTE ) AS VOID LIB \'WTechLpt.dll\'','',0,'AIA=','240pp7q0',1,0,'',2,0,0),(17792,4034,6,2,0,'87.218.146.208',1156678199,1,0,1,1,1,1,'','','Acabamos de probar ese ejemplo con FWH 2.7 Julio 2006 y funciona bien.\n\nPuedes descargar el EXE desde aquí para probarlo:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02eefda044/testoutl.zip.html\">http://hyperupload.com/download/02eefda ... l.zip.html</a><!-- m -->','',0,'AIA=','1jbebri4',1,0,'',2,0,0),(17793,4026,2,2,0,'87.218.146.208',1156678710,1,0,1,1,1,1,'','','Para poder usar esas teclas tienes que modificar la Clase TWBrowse de FW:\n[code:35v89tvf]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   if &#58;&#58;bKeyDown != nil       // Nuevo\n      Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41;  // Nuevo\n      return nil   // Nuevo\n   endif  // Nuevo\n\n   do case\n      case nKey == VK_UP\n           &#58;&#58;GoUp&#40;&#41;\n\n      case nKey == VK_DOWN\n      &#46;&#46;&#46;\n[/code:35v89tvf]','',0,'AIA=','35v89tvf',1,0,'',2,0,0),(17794,4029,2,2,0,'87.218.146.208',1156678832,1,0,1,1,1,1,'','','Gustavo,\n\nOtra solución es usar el maker.exe de Borland que libera toda la memoria antes de trabajar, ya que el rmake.exe de Clipper consume bastante memoria y Clipper no tiene suficiente.','',0,'AIA=','l6jshxw0',1,0,'',2,0,0),(17795,4027,2,2,0,'87.218.146.208',1156678989,1,0,1,1,1,1,'','','Fabian,\n\nRevisa la respuesta que te he puesto en:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=17793#17793\">http://fivetechsoft.com/forums/viewtopi ... 7793#17793</a><!-- m -->\n\nOtra solución más fácil y que no precisa modificar la clase, es usar el codeblock bChange del browse. Ese codeblock se evalúa cada vez que se cambia de línea en el browse.','',0,'AIA=','30cnf83q',1,0,'',2,0,0),(17796,4029,2,52,0,'201.212.23.187',1156691242,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3dbtkauv]Gustavo,\n\nOtra solución es usar el maker.exe de Borland que libera toda la memoria antes de trabajar, ya que el rmake.exe de Clipper consume bastante memoria y Clipper no tiene suficiente.[/quote:3dbtkauv]\n\nY mi archivo .rmk tengo que modificarlo en algo? hay info sobre eso? \n\nGracias.','',0,'gA==','3dbtkauv',1,0,'',52,0,0),(17797,4029,2,2,0,'87.218.146.208',1156693396,1,0,1,1,1,1,'','','Gustavo,\n\nSi, tienes que modificarlo, pero no es complicado. En el directorio fwh\\makes tienes el ejemplo bormake.zip.\n\nmaker.exe viene con el Borland 5 (no con el 5.5). Sólo tienes que pasarle el parámetro -S y libera toda la memoria de 16 bits antes de llamar a Clipper, con lo que Clipper compila sin problemas.\n\nNosotros lo usamos para construir la librería FW 16 bits.','',0,'gA==','nibxo7jg',1,0,'',2,0,0),(17798,3983,2,774,0,'164.77.155.38',1156696350,1,0,1,1,1,0,'','','Estimado ANTONIO\n\nya resolvi en problema...\n\ny sabes q era jajajaja\n\nel dialogo principal el que contiene a Tgget[19],,, en el ACTIVATE DIALOG\n\nle puse un ON PAINT con el combo donde se enfocaba siempre,,, lo saque y el setfocus() funciona a la perfección\n\nNO EXISTEN MISTERIOS DE LA CIBERCIENCIA,, NO CREES... TODO DEBE TENER UNA EXPLICACION LOGICA..\n\nGRACIAS por tu ayuda...','',0,'','3hqkt07o',1,0,'',774,0,0),(17799,4036,2,375,0,'84.122.110.151',1156698552,1,0,1,1,1,1,'','Para ANtonio: C++ (sigue)','Suguiendo con lo del otro día, ultima pregunta, espero no te moleste. (hasta que ne mo salga el primero no me sale ninguno)\n\nintento compilar el mismo ejemplo:\n\n// #include &lt;winten.h&gt;\n#include &lt;windows.h&gt;\n#include &lt;clipapi.h&gt;\n\nCLIPPER lEsPar( PARAMS )\n{\n_retl( _parnl( 1 )%2 == 0 ) ;\n}\n\n\n[u:3i08rrer]Con BCC32 (Borland 5.5):[/u:3i08rrer]\n\nc:\\Borland\\Bcc55\\Bin\\Bcc32.exe -c -Ic:\\Borland\\Bcc55\\Include %1.c\n\nMensajes de compilación:\n\n[b:3i08rrer]Warning W8065 ClipFunc.c 7: Call to function \'_parnl\' with no prototype in function lEsPar \n\nWarning W8065 ClipFunc.c 7: Call to function \'_retl\' with no prototype in function lEsPar \n\nWarning W8057 ClipFunc.c 8: Parameter \'params\' is never used in function lEsPar [/b:3i08rrer]\n\n[u:3i08rrer]Con BCC (Borland 4.5, no encontré otro):[/u:3i08rrer]\n\nc:\\Borland\\Bcc45\\Bin\\Bcc.exe -c -ml -Ic:\\Borland\\Bcc45\\Include %1.c\n\nCompila bien el C++ y me crea el OBJ, pero en mi aplicación, durtante el linkado me dice:\n\n[b:3i08rrer]BLINKER : 1115 : CLIPFUNC.OBJ(CLIPFUNC) : \'F_LMOD@\' : unresolved external\n\nBLINKER : 0 Warning error(s), 1 Fatal error(s)[/b:3i08rrer]\n\nSe que me falta algo en ambos casos, seguro que es una tontería) pero como decía al principio, hasta que no me salga el primero no me sale ninguno.\n\nPerdona el latazo. Esto es un foro FIVEWIN no C++\n\nUn saludo.','',0,'QQ==','3i08rrer',1,0,'',375,0,0),(17800,4036,2,2,0,'87.218.146.208',1156699692,1,0,1,1,1,1,'','','Manu,\n\nbcc32.exe compila para 32 bits y hay que cambiar algunas cosas para Harbour/xHarbour.\n\nEn cuanto a bcc.exe, usa estos flags: -3 -c -ml -O2 -G -dc\n\ny prueba de nuevo','',0,'QQ==','qkvwao2y',1,0,'',2,0,0),(17801,4037,2,375,0,'84.122.110.151',1156701829,1,0,1,1,1,1,'','Cambio clipper a harbour','Hace tiempo que quiero evolucionar a xHarbour. Ahora que he terminado lo que estaba haciendo, quizá sea el momento.\n\nUna duda. He leido a lo largo del foro que los recursos han de ir en ficheros RES o RC he integrados al programa. Eso me creará un EXE muy grande.\n\nPor otro lado, ¿no habría una forma de que los recursos sigan en una DLL como antes sin que de problemas? \n\nUtilizo mis propio dialogos de mensajes de avisos/gets/errores que tengo en una DLL y que utilizo en mis aplicaciones sin tener que volver a definirlas a cada vez (ese es el propósito de las DLL, compartir recursos) ¿Eso no lo hace xHarbour?\n\nAdemás, no es lo mismo entregar al cliente un EXE y punto, que dá impresión de chapucero, que un EXE con sus DLL etc... que parece más de casa profesional. La gente no entiendo mucho de informática pero si de que la primera impresión es la que cuenta.\n\nUn saludo.','',0,'QQ==','30czsqpt',1,0,'',375,0,0),(17802,4037,2,138,0,'200.64.108.152',1156708519,1,0,1,1,1,1,'','','El tamaño del EXE realmente no es muy importante para Windows, si miras cuando mide el Excel.EXE y el Winword.EXE te daras cuenta que miden un poco mas de 15 megas (solo los EXEs).\n\nYo tengo aplicaciones cuyos Exes miden mas de 7 u 8 megas y funcionan sin ningun problema, bien y rapido.\n\nEn realidad, el uso de RC es como tienen que hacerse las cosas, ningun programa \"profesional\" trae en las DLLs los recursos, en realidad, todos los programas tienen los recursos \"incrustados\" en el EXE.\n\nEl hecho de que FW de 16 bits pusiera la interfaz en una DLL era para facilitar el trabajo en tiempo de desarrollo, pero en general, siempre ha sido recomendado meter los recursos en el EXE final.\n\nLos DLLs se utilizan para funciones de \"apoyo\" a tu programa, mas no asi para meter la interfaz en ellos, mantener varias DLLs para un programa que no lo necesita, es, desde mi punto de vista, muy complicado, personalmente prefiero que todo el programa como tal vaya en un solo EXE y sus recursos externos, no hechos por mi, vayan en DLLs externos, como el Advantage, El Crystal Reports, el Funcky, etc.\n\nDe todas formas (x)HB te permite seguir trabajando con tus DLLs, pero claro, tienes que pasarlos a 32 bits, lo que requiere que primero los pases a RC y luego los compiles a 32 bits, el problema aqui, es que los editores de recursos para 32 bits, (desmientanme si es lo contrario), no trabajan sobre DLLs directamente, sino siempre sobre RES o RCs y luego se compilan para generar el DLL.\n\nEl Workshop no edita DLLs de 32 bits, las daña cuando las abres con el.\n\nLa experiencia de mas de 14 años en esto del software es que al usuario final le preocupa poco que si lleva DLLs, que si es un solo EXE, en general, lo que quiere es que el programa funcione como deba.','',0,'QQ==','5fz6c27l',1,0,'',138,0,0),(17803,4037,2,2,0,'87.218.146.208',1156712580,1,0,1,1,1,1,'','','Manu,\n\nPuedes seguir trabajando exactamente igual como hasta ahora. \n\nLa única diferencia es que los recursos los puedes mantener en un fichero RC ó RES y luego incrustarlos en tu DLL, esto en el caso de que quieras seguir usando el Borland Resources Workshop, ya que si usas el PellesC, podrás trabajar directamente sobre la DLL.','',0,'QQ==','3srrflo6',1,0,'',2,0,0),(17804,2486,16,2,0,'87.218.146.208',1156713400,1,0,1,1,1,1,'','','August 27 2006 builds:\n\nHarbour for Borland: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f26/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\nHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028519d241/harbourm.EXE.html\">http://hyperupload.com/download/028519d ... m.EXE.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0241caf031/xharbour.EXE.html\">http://hyperupload.com/download/0241caf ... r.EXE.html</a><!-- m -->\n\nxHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/020293b493/xharbourm.EXE.html\">http://hyperupload.com/download/020293b ... m.EXE.html</a><!-- m -->','',0,'QQ==','iojo0r5w',1,0,'',2,0,0),(17805,3963,20,76,0,'212.216.131.190',1156713622,1,0,1,1,1,1,'','','Ciao Enrico,\nscusami se ti rispondo solo adesso, sono ancora a metà servizio. Forse non mi sono spiegato. Io devo ricompilare dei sorgenti C (nell’esempio sotto mgetcrea.c) della cartella sources\\winapi. La compilazione e il successivo reinserimento in libreria fivehc.lib non danno errori, uso il seguente file batch:\n[quote:2a6evr5p]@ ECHO OFF \necho -------------------------------------------------\necho MODIFICA SORGENTI NELLE LIBRERIE XHARBOUR\necho sintassi: compila  nome_sorgente_c  nome_lib_fw\necho           tutto SENZA estensioni\necho -------------------------------------------------\npause\n\nc:\\borland\\bcc55\\bin\\bcc32 +xharbour.cfg -c %1.c\npause\n\nc:\\borland\\bcc55\\bin\\tlib c:\\fwh\\lib\\%2 /P32 -+%1.obj \nIF EXIST *.obj DEL *.obj \nIF EXIST *.bak DEL *.bak \nPause\n[/quote:2a6evr5p]\nQuando però linko un progetto xHarbour, mi dà l’errore:\nError: Unresolved external \'_HB_FUN_MGETCREATE\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|MGET\n\nImmagino manchi qualche parametro, sapresti aiutarmi?\nCiao, Grazie.\nRiccardo','',0,'gA==','2a6evr5p',1,0,'',76,0,0),(17806,3972,7,778,0,'200.101.53.84',1156714565,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2gvio2j6]Mauro,\n\nPrueba a cambiar \"AS STRING\" por \"AS LPSTR\".\n\nLlegas a ver el MsgInfo() ? \n\nPuedes poner la declaración de mysql_connect() en C ? Para comprobar si espera las cadenas en unicode ó no.[/quote:2gvio2j6]\n\nOlá Antonio\nA função chega até o MsgInfo(), mas aí trava e só dando um reset no pocket que ele sai, aí esta uma parte da documentação da MySqMobile,\num exemplo do connect em C\n\nfunction  int mysql_connect(char *pszhost, int nport, char *pszusername, \n                  char *pszpassword) \n function description \nUse this function to connect to a mySQL database. \n parameters \n[in] pszhost              host to connect to      \n[in] nport                port to connect to (default mySQL port is 3306) \n[in] pszusername  username to access database \n[in] pszpassword  password to access database \n return values \n0                  when everything went ok \nnot 0              when an error occurred. Get the error in textual form by calling \n                   mysql_get_last_error(&lt;retval&gt;) \n C/C++ example of usage \n int nRet; \n           \nnRet = mysql_connect(\"192.168.0.15\", 3306, \"my_username\", \"my_passwd\"); \nif (nRet == 0) { \n          CString str = _T(\"mysql_connect() successful\"); \n          MessageBox(NULL, str, _T(\"info\"), MB_OK | MB_ICONINFORMATION); \n} else { \n          char *errorBuf = new char[255]; \n          mysql_get_last_error(nRet, errorBuf); \n          MessageBox(NULL, CString(errorBuf), _T(\"error\"), MB_OK | MB_ICONINFORMATION); \n          delete errorBuf; \n} \n  VB.NET / C# example of usage \n\nSaludos e obrigado pela atenção, amanhã vou testar trocar os AS STRING  por AS LPSTR e darei um retorno.\n\nMauro','',0,'gA==','2gvio2j6',1,1156952710,'',778,1,0),(17807,4038,3,2,0,'87.218.146.208',1156714711,1,0,1,1,1,1,'','New Harbour and xHarbour builds 27 August 2006','Availables from:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=17804#17804\">http://fivetechsoft.com/forums/viewtopi ... 7804#17804</a><!-- m -->\n\nWarning: They require a new FWH build that will be published tomorrow 28 August 2006.','',0,'gA==','1e0clura',1,0,'',2,0,0),(17808,4039,6,2,0,'87.218.146.208',1156714841,1,0,1,1,1,1,'','Nuevos build de Harbour y xHarbour 27 Agosto 2006','Disponibles desde:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=17804#17804\">http://fivetechsoft.com/forums/viewtopi ... 7804#17804</a><!-- m -->\n\nAtención: Requieren de un nuevo build de FWH que será publicado mañana 28 de Agosto 2006.','',0,'gA==','180lk8td',1,0,'',2,0,0),(17810,4033,3,69,0,'70.50.137.46',1156716860,1,0,1,1,1,0,'','','Thanks Enrico,\n\nThe error is gone but it still wont work.\n\nThis is why I hate upgrading  ... always end up with more problems.\n\n\nIt seems as if my ReadComm( nComm, @cData ) does nothing now.\n\n\nJeff','',0,'gA==','iy17hbcl',1,0,'',69,0,0),(17811,4040,3,49,0,'62.13.172.78',1156718563,1,0,1,1,1,1,'','Error with tsbutton','I have aproblem with tsbutton \n the button I create with tsbutton ( [b:hkmtmd4a][b]noboxtr[/b:hkmtmd4a]) [/b][b:hkmtmd4a]not is trasparent [/b:hkmtmd4a]in a window where I use a bitmap on background...\n\nI made also a small test program ...to try it !!\n\nthe test.prg is at :http://hyperupload.com/download/024ac3fe50/TESTSB.zip.html\n\nThanks in advance\n\nBest Regards','',0,'QA==','hkmtmd4a',1,0,'',49,0,0),(17812,4041,6,49,0,'62.13.172.78',1156718628,1,0,1,1,1,1,'','Error with tsbutton','I have aproblem with tsbutton \nthe button I create with tsbutton ( [b:8pxrzthn]noboxtr) [/b:8pxrzthn]not is trasparent in a window where I use a bitmap on background... \n\nI made also a small test program ...to try it !! \n\nthe test.prg is at :http://hyperupload.com/download/024ac3fe50/TESTSB.zip.html \n\nThanks in advance \n\nBest Regards','',0,'QA==','8pxrzthn',1,0,'',49,0,0),(17813,4009,6,49,0,'62.13.172.78',1156718848,1,0,1,1,1,1,'','','I have aproblem with tsbutton \nthe button I create with tsbutton ( [b:3o75mkrz]noboxtr) [/b:3o75mkrz]not is trasparent in a window where I use a bitmap on background... \n\nI made also a small test program ...to try it !! \n\nthe test.prg is at :http://hyperupload.com/download/024ac3fe50/TESTSB.zip.html \n\nThanks in advance \n\nBest Regards','',0,'QA==','3o75mkrz',1,0,'',49,0,0),(17814,1637,22,49,0,'62.13.172.78',1156719199,1,0,1,1,1,1,'','','ok james INNO is ok \n\nWell,\nBUT why WE must go  to take a delphi program ?\n\nWe can create our fw/(x)harbour Install program ....\n\nWhat do you think about it ?','',0,'QA==','13cyxmbm',1,0,'',49,0,0),(17815,4042,22,49,0,'62.13.172.78',1156719537,1,0,1,1,1,1,'','look style xp','Dear antonio \nWhen I can make a program with xp look as it ? (seethe picture)\n\n[url=http&#58;//img176&#46;imageshack&#46;us/my&#46;php?image=bubutx7&#46;jpg:3o4ncu07][img:3o4ncu07]http&#58;//img176&#46;imageshack&#46;us/img176/9416/bubutx7&#46;th&#46;jpg[/img:3o4ncu07][/url:3o4ncu07]\nwith msgbar , folder, listbox,buttons as in the picture\nI  made a capture from the new release of smartftp( smartftp.com)','',0,'GA==','3o4ncu07',1,0,'',49,0,0),(17816,1637,22,303,0,'72.199.41.171',1156722274,1,0,1,1,1,0,'','','Silvio,\n\n&gt;ok james INNO is ok \n\n&gt;Well, \n&gt;BUT why WE must go to take a delphi program ? \n\n&gt;We can create our fw/(x)harbour Install program .... \n\n&gt;What do you think about it ?\n\nI\'m sure you could, but why spend hundreds of hours creating software that you can get for free?\n\nJames','',0,'GA==','37wagigc',1,0,'',303,0,0),(17817,1637,22,49,0,'62.13.172.78',1156724132,1,0,1,1,1,1,'','','Can We make it for the our community....\n\nRegards,','',0,'GA==','29ke3be8',1,0,'',49,0,0),(17818,4025,6,652,0,'200.44.226.51',1156730433,1,0,1,1,1,1,'','','Buen día para todos...\n\n[quote=&quot;Antonio Linares&quot;:196rwkk0]Antonio,\n\nLa función GetTickCount() devuelve el número de millisegundos desde que se inició el ordenador.\n\nLLamándola varias veces y restando sus resultados, puedes medir intervalos en milisegundos.[/quote:196rwkk0]\n\nAntonio,\n\nMuchas gracias voy a probar y te comento.','',0,'gA==','196rwkk0',1,0,'',652,0,0),(17819,4033,3,2,0,'87.218.146.208',1156731060,1,0,1,1,1,1,'','','Jeff,\n\nWe have assisted you by email to solve your problem. Hopefully is running fine again.','',0,'gA==','3h2fjlna',1,0,'',2,0,0),(17820,4043,4,47,0,'203.144.143.9',1156745372,1,0,1,1,1,0,'','BUTTON question?','Dear Antonio,\n\n1. BUTTON class does still support CRLF for seperate line?\n2. BUTTON Caption can define left alignment?\n\nBest regards,\nDutch','',0,'gA==','50oyqdn4',1,0,'',47,0,0),(17821,2767,4,456,0,'217.127.39.57',1156747581,1,0,1,1,1,1,'','','Hello Richard\n\nThe cellcore.lib is included in the VCE, you only need to add to your compilation script.\n\nAbout the connection program, you can use the code posted by Pawel its run perfect. Remember to include \"initguid.h\" and  \"connmgr.h\" headers.','',0,'gA==','3hjngrxa',1,0,'',456,0,0),(17822,2767,4,3,0,'82.120.150.188',1156748220,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:3bcziimr]Hello Richard\n\nThe cellcore.lib is included in the VCE, you only need to add to your compilation script.\n\nAbout the connection program, you can use the code posted by Pawel its run perfect. Remember to include \"initguid.h\" and  \"connmgr.h\" headers.[/quote:3bcziimr]\n\nThank you \n\nI was searching and not finding on google for cellcore.lib\n\nI will try it.\n\nGracias','',0,'gA==','3bcziimr',1,0,'',3,0,0),(17823,2767,4,456,0,'217.127.39.57',1156748455,1,0,1,1,1,1,'','','[b:y909ndib]C:\\vce\\lib\\arm[/b:y909ndib] here you have cellcore.lib \n\nNot nececesary to seek, is standard lib installed with the C compiler.','',0,'QA==','y909ndib',1,0,'',456,0,0),(17824,4044,3,67,0,'62.235.24.95',1156751622,1,0,1,1,1,0,'','Resizing windows and dialog\'s','Hello,\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e18dd123/RESIZE.ZIP.html\">http://hyperupload.com/download/02e18dd ... E.ZIP.html</a><!-- m -->\n\nContains a program to resize windows and dialog\'s , including the font.\n\nI had some problems that i couldn\'t solve :\n\n1) TGROUP together with a bitmap or with a ON paint wndbox(...) clausule erases the bitmap or line\n\n2) Usin ON PAINT Wndbox(....) , this lines can not be resized .\n    Trying to paint this lines in the resizing module doesn\'t work\n\n    maybe tslines from manuel mercado can be used , but in a test the line was recognised as a control and resized , but the original line wasn\'t erased.\nFrank','',0,'QA==','6ist49p0',1,0,'',67,0,0),(17825,4021,3,130,0,'141.51.32.24',1156753814,1,0,1,1,1,0,'','','Silvio,\n\nI have sent some files to your private email, they may be helpful for you\n\nStefan','',0,'QA==','3nudxjcl',1,0,'',130,0,0),(17826,4021,3,49,0,'62.13.172.78',1156756636,1,0,1,1,1,1,'','','thank but I have these files...\nI made a dialog :\n\n\n[code:3ushbuqk]\nFUNCTION Info&#40;&#41;\n   local oDlg, aGet&#91;9&#93;, cPrompt, oTmr,obr\n   local oMs10Under &#58;= TFont&#40;&#41;&#58;New&#40;&quot;Ms Sans Serif&quot;,0,-12,,&#46;f&#46;,,,,,&#46;t&#46;&#41;\n\n   DEFINE BRUSH oBr FILE &quot;d48&#46;BMP&quot;\n\n   define dialog oDlg title \'Authors \' BRUSH oBr TRANSPARENT   ;\n      FROM  0, 0 TO 240, 330 PIXEL\n\n   @ 00,08 BITMAP aGet&#91;1&#93; FILE \'ACERCADE2&#46;BMP\' ;\n      SIZE 34, 54 OF oDlg PIXEL NOBORDER  TRANSPAREN\n\n   @ 10,44 BITMAP aGet&#91;2&#93; FILE \'ACERCADE1&#46;BMP\' ;\n      SIZE 94, 20 OF oDlg PIXEL NOBORDER  TRANSPAREN\n   @ 32,10 SAYREF aGet&#91;4&#93; PROMPT &quot;http&#58;//www&#46;&quot; ;\n      SIZE 142,10 PIXEL CENTERED OF oDlg                 ;\n      HREF &quot;http&#58;//www&#46;&quot;                         ;\n     FONT oMs10Under\n   aGet&#91;4&#93;&#58;cTooltip  &#58;= xxxxxxxxx\n\n   @ 54,10 DYNAMIC SAY oSay ;\n      PROMPT CRLF+CRLF+CRLF+;\n             &quot; This application is distribuited on  &quot;+CRLF+;\n             &quot;Creative Commons 2&#46;0 Licence &quot;+CRLF+;\n             &quot;http&#58;//creativecommons&#46;org/licenses/by-nc-nd/&quot;+CRLF+CRLF+;\n             &quot;This software is created with the cooperation with &quot;+CRLF+&quot;xxxxxxxx&quot;+CRLF+;\n             &quot;Made in xharbour and fivewin&quot;+CRLF+CRLF+CRLF+CRLF;\n      SIZE 140, 46 PIXEL CENTERED   ;\n      VERTICAL SCROLL SPEED 40;\n      WRAP\n\n   activate dialog oDlg CENTERED\n   oMs10Under&#58;End&#40;&#41;\nreturn nil\n[/code:3ushbuqk]\n\nit make dsay scroll in a white box\nWHY ?????? it is not trasparent !!!!!!!!!!!!!!!!!!!!!\n\nREGARDS,','',0,'AIA=','3ushbuqk',1,0,'',49,0,0),(17827,4043,4,2,0,'87.218.146.219',1156756807,1,0,1,1,1,1,'','','Dutch,\n\n&gt; 1. BUTTON class does still support CRLF for seperate line? \n\nOnly if you use it from resource and you use this style:\n#define BS_MULTILINE        1024\n\n&gt; 2. BUTTON Caption can define left alignment? \n\nSame as above but using BS_LEFTTEXT','',0,'AIA=','fongpa74',1,0,'',2,0,0),(17828,4043,4,6,0,'82.61.68.131',1156757725,1,0,1,1,1,1,'','','Even from code:\n\n[code:1lg0xhic]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define CR CHR&#40; 13 &#41;\n\n#define BS_MULTILINE 8192\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON oBtn PROMPT &quot;&amp;Close&quot; + CHR&#40; 13 &#41; + &quot;the dialog&quot;;\n           SIZE 50, 30;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    oBtn&#58;nStyle = NOR&#40; oBtn&#58;nStyle, BS_MULTILINE &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1lg0xhic]\n\nEMG','',0,'AIA=','1lg0xhic',1,0,'',6,0,0),(17829,4033,3,6,0,'82.61.68.131',1156758090,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:ef2lwtr7]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cTxt &#58;= &quot;&quot;\n\n    LOCAL nCom\n\n    DEFINE DIALOG oDlg;\n           SIZE 500, 500;\n           TITLE &quot;Terminale&quot;\n\n    @ 0, 0 GET oGet VAR cTxt MEMO READONLY\n\n    oGet&#58;bKeyDown = &#123; | nKey | Tasti&#40; nCom, nKey &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oGet&#58;AdjClient&#40;&#41;,;\n                       nCom &#58;= APRICOM&#40; oDlg, oGet &#41;,;\n                       IF&#40; nCom &lt; 0, oDlg&#58;End&#40;&#41;, &#41; &#41;;\n             CENTER\n\n    IF nCom &gt;= 0; CLOSECOMM&#40; nCom &#41;; ENDIF\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TASTI&#40; nCom, nKey &#41;\n\n    SENDSTR&#40; nCom, CHR&#40; nKey &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION APRICOM&#40; oDlg, oGet &#41;\n\n    LOCAL nCom, cDcb\n\n    BEGIN SEQUENCE\n        nCom = OPENCOMM&#40; &quot;COM1&quot;, 16384, 16384 &#41;\n\n        IF nCom &lt; 0\n            ? &quot;Errore di apertura della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        BUILDCOMMDCB&#40; &quot;COM1&#58;115200,N,8,1&quot;, @cDcb &#41;\n\n        IF !SETCOMMSTATE&#40; nCom, cDcb &#41;\n            ? &quot;Errore di impostazione della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        oDlg&#58;bCommNotify = &#123; | nCom | Connect&#40; nCom, oGet &#41;,;\n                                      EnableCommNotification&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41; &#125;\n\n        IF !ENABLECOMMNOTIFICATION&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41;\n            ? &quot;Errore di abilitazione della notifica&#46;&quot;\n            BREAK\n        ENDIF\n    RECOVER\n        nCom = -1\n    END SEQUENCE\n\n    RETURN nCom\n\n\nSTATIC FUNCTION CONNECT&#40; nCom, oGet &#41;\n\n    LOCAL cStr\n\n    ENABLECOMMNOTIFICATION&#40; nCom, 0, 1, -1 &#41;\n\n    cStr = RECEIVESTR&#40; nCom &#41;\n\n    cStr = STRTRAN&#40; cStr, CHR&#40; 13 &#41;, &quot;&quot; &#41;\n    cStr = STRTRAN&#40; cStr, CHR&#40; 10 &#41;, CRLF &#41;\n\n    oGet&#58;Append&#40; cStr &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDSTR&#40; nCom, cString &#41;\n\n    LOCAL nBytes &#58;= WRITECOMM&#40; nCom, cString &#41;\n\n    RETURN nBytes = LEN&#40; cString &#41;\n\n\nSTATIC FUNCTION RECEIVESTR&#40; nCom &#41;\n\n    LOCAL cBuf &#58;= SPACE&#40; 1000 &#41;\n\n    RETURN LEFT&#40; cBuf, READCOMM&#40; nCom, @cBuf &#41; &#41;[/code:ef2lwtr7]\n\nEMG','',0,'AIA=','ef2lwtr7',1,0,'',6,0,0),(17830,4043,4,6,0,'82.61.68.131',1156758207,1,0,1,1,1,1,'','','Ops, sorry, I wasn\'t aware that this is the FWPCC forum. But maybe it could still work.\n\nEMG','',0,'AIA=','2izzv75y',1,0,'',6,0,0),(17831,4043,4,6,0,'82.61.68.131',1156759112,1,0,1,1,1,1,'','','It works with DIALOGs but not with WINDOWs and I don\'t know why:\n\n[code:3s666716]#include &quot;Fwce&#46;ch&quot;\n\n\n#define BS_MULTILINE 8192\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON oBtn PROMPT &quot;&amp;Close&quot; + CHR&#40; 13 &#41; + &quot;the dialog&quot;;\n           SIZE 50, 30;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    oBtn&#58;nStyle = NOR&#40; oBtn&#58;nStyle, BS_MULTILINE &#41;\n\n    ACTIVATE DIALOG oDlg\n\n    RETURN NIL[/code:3s666716]\n\nEMG','',0,'AIA=','3s666716',1,0,'',6,0,0),(17832,3963,20,6,0,'82.61.68.131',1156759613,1,0,1,1,1,1,'','','Non mi pare che manchino parametri.\n\nEMG','',0,'AIA=','2mzjtryi',1,0,'',6,0,0),(17833,4043,4,47,0,'203.144.143.8',1156763157,1,0,1,1,1,0,'','It works perfect.','Dear Antonio&amp;Enrico,\n\nIt works perfect now.   \n\n#define BS_MULTILINE 8192 and CR CHR(13)\n\nBest regards,\nDutch','',0,'AIA=','39bjc86s',1,0,'',47,0,0),(17834,4043,4,2,0,'80.32.22.38',1156763729,1,0,1,1,1,1,'','','Enrico,\n\n&gt; It works with DIALOGs but not with WINDOWs and I don\'t know why: \n\nBecause in dialogs, the control style is used when building the dialog.\n\nIn a window, the window already exists and the control is created later on.','',0,'AIA=','xibj6o1d',1,0,'',2,0,0),(17835,4045,3,67,0,'62.235.24.95',1156763953,1,0,1,1,1,0,'','Errors in window.prg ?','Hello\n\nTrying to use  ON MOVE , i noticed :\n\n1) oDlg:bMoved is executed with nRow,ncol , so the preprocessor should be (fivewin.ch and dialog.ch):\n\n     &lt;oWnd&gt;:bMoved    [ := \\{ | nRow,nCol | &lt;uMove&gt; \\} ], ;\n\n2) Comparing two methods :\n\ncase nMsg == WM_LBUTTONDOWN\n  return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ),;\n  METHOD LButtonDown( nRow, nCol, nKeyFlags )  \ncase nMsg == WM_MOVE\n    return ::Moved( nLoWord( nLParam ), nHiWord( nLParam ) )\n   METHOD Moved( nRow, nCol ) INLINE ;\n Which is nRow ? nLoWord(nLParam) or nHiWord(nLParam)\n\nTrying to use this method gives for nrow always 0 , nCol is updated\n\n\n3) Using oDlg:Move(0,0,......)\n\n  ? oDlg:nTop , oDlg:nLeft gives -130 and -104 . Why ?????\n\n4) As mentioned earlyer : tgroup can\'t be used with a bitmap in his area , nor with ON PAINT WbdBox(.....) , they are erased\n\nWhen the background color is the same from the window , there is no need to repaint the entire area !\n\nFrank','',0,'','1rqltk85',1,0,'',67,0,0),(17836,4046,16,2,0,'87.218.146.219',1156764319,1,0,1,1,1,1,'','FTDN new August 2006 build / nuevo build de Agosto 2006','August 2006 build\n =============\n \n * Enhancement: FWH has been built using the new Harbour CVS pcode version. The most important enhancement is that now C and C++ can be mixed in the same application. Important: All PRGs must be recompiled!\n\n * New: FWPPC, support for folders with tabs placed at bottom and flat style. All you have is to specify BOTTOM clause. Please review samples\\TestFldb.prg\n    \n * New: FWH, samples\\FileVer.prg and FileVer.rc shows how to manage FileVersion information from an application.\n    \n * Enhancement: FiveWin.ch has been modified to solve some incompatibility issues with xHarbour Builder. Now it is ok.\n\n * Enhancement: samples\\RC2PRG.prg utility has been enhanced. Thanks to Armando!\n    \n * Enhancement: tools\\clp2harb.prg has been modified to adapt to recent Harbour changes.\n \n * Enhancement: Class TGet improved paste and cut support.\n \n * Fix: Class TMultiGet was not properly closing the clipboard in all circunstances.\n \n * New: FWPPC, samples\\TestBrwS.prg shows how to perform an incremental search on a browse on the Pocket PC (same as done with FW/FWH).\n   \n * New: samples\\ShowApp.prg shows how to run just one instance of a 32 bits application, and to bring to top the application that is already running.\n     \n * New: FWPPC, Class TPages is already available. Please review samples\\TestPage.prg for a working sample.\n  \n * Enhancement: FWPPC, Class TWindow Methods nVertRes() and nHorzRes() are already availables.\n       \n * Enhancement: FWH, FWPPC: Class TDatePick was not properly setting the provided date from Method New(). Now it is ok.\n   \n * Enhancement: FWPPC: Class TWindow Method SetSize() is already available.\n   \n * New: FWPPC: samples\\GetFile.prg, FWPPC function cGetFile() own implementation, based on a new Class TGetFile.\n \n * New: samples\\SendData.prg a sockets management sample developed by Enrico.\n \n * Enhancement: FWPPC, errorsys is showing now the supplied arguments when an error occurs.\n \n * New: Class TFtp Method RenameFile( cOldFileName, cNewFileName ) --&gt; lResult','',0,'','1358o8ao',1,0,'',2,0,0),(17837,4043,4,6,0,'82.61.68.131',1156765265,1,0,1,1,1,1,'','','I already tried with WINDOW and ON INIT clause to no avail.\n\nEMG','',0,'','3nwdie8a',1,0,'',6,0,0),(17838,4043,4,2,0,'87.218.146.184',1156765469,1,0,1,1,1,1,'','','Enrico,\n\nIn a window it may work using SetWindowLong( oButton:hWnd, GWL_STYLE, nOr( GetWindowLong( oButton:hWnd, GWL_STYLE ), BS_... ) )','',0,'','22g8ucg3',1,0,'',2,0,0),(17840,4010,3,267,0,'200.208.238.2',1156766259,1,0,1,1,1,1,'','','Hi Antonio,\n\nAlready I tried to use oFtp:RenameFile() informing the way, without informing, but I do not obtain to rename archives. You can help me?','',0,'','eqc5f13w',1,0,'',267,0,0),(17841,4043,4,6,0,'82.61.68.131',1156766286,1,0,1,1,1,1,'','','Confirmed!\n\n[code:6rzn7df0]#include &quot;Fwce&#46;ch&quot;\n\n\n#define GWL_STYLE -16\n#define BS_MULTILINE 8192\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBtn\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 BUTTON oBtn PROMPT &quot;&amp;Close&quot; + CHR&#40; 13 &#41; + &quot;the window&quot;;\n           SIZE 60, 50;\n           ACTION oWnd&#58;End&#40;&#41;\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT SETWINDOWLONG&#40; oBtn&#58;hWnd, GWL_STYLE, NOR&#40; GETWINDOWLONG&#40; oBtn&#58;hWnd, GWL_STYLE &#41;, BS_MULTILINE &#41; &#41;\n\n    RETURN NIL[/code:6rzn7df0]\n\nEMG','',0,'AIA=','6rzn7df0',1,0,'',6,0,0),(17842,4004,6,147,0,'200.45.54.133',1156766606,1,0,1,0,1,1,'','','Antonio; muchas gracias!.\nTendría que haberlo preguntado hace mucho :-)... ya no recuerdo desde hace cuanto que lo intento y me resignaba a dejarlo sin solución.','',0,'AIA=','l1dlxwv5',1,0,'',147,0,0),(17843,4043,4,47,0,'203.144.143.9',1156766638,1,0,1,1,1,0,'','#DefineBS_LEFTTET 32   is not working?','Dear Antonio&amp;Enrico,\n\nThis code does not work.\n\noBtn:nStyle := NOR( oBtn:nStyle, BS_LEFTTEXT )\n\nBest regards,\nDutch','',0,'AIA=','pqjtl81l',1,0,'',47,0,0),(17844,3953,3,171,0,'71.232.193.197',1156766845,1,0,1,1,1,0,'','','Eduardo,\n\nThe PREVIEW.PRG Class that you developed is for sale?\n\nCan you post a sample or maybe some screenshot. You can use <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> to upload it.\n\nRegards\n\n\nGeorge','',0,'AIA=','33fgckva',1,0,'',171,0,0),(17847,4043,4,2,0,'87.218.146.184',1156767093,1,0,1,1,1,1,'','','Dutch,\n\nPlease try it as Enrico\'s sample code.','',0,'AIA=','12qafju7',1,0,'',2,0,0),(17848,4010,3,2,0,'87.218.146.184',1156767228,1,0,1,1,1,1,'','','Vilian,\n\nPlease do a MsgInfo( oFTP:RenameFile( ... ) ) and lets check the returned value.','',0,'AIA=','1tu88ei0',1,0,'',2,0,0),(17849,4010,3,267,0,'200.208.238.2',1156767452,1,0,1,1,1,1,'','','Antonio,\n\nIt´s returned value .F.','',0,'AIA=','59e8oo3d',1,0,'',267,0,0),(17850,4007,6,362,0,'200.168.52.156',1156768458,1,0,1,1,1,1,'','','Antonio, gracias por tu respuestas...\n\nMaestro, por favor, mira y correja(Correcion) se tiene alguna DECLARACION Errada.\n\n\n//-&gt; En PASCAL\nfunction ConfigLpt(Endereco, Timeout:Word):Boolean; stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL FUNCTION ConfigLPT( Endereco AS LONG, TimeOut AS LONG ) AS BOOL LIB \"WTechLpt.dll\"\n\n//-&gt; En PASCAL\nprocedure Dll_PosCur (Terminal, Lin, Col: Byte); stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL FUNCTION Dll_PosCur( Terminal AS BYTE, Lin AS BYTE, Col AS BYTE ) AS VOID LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nprocedure Dll_Clear (Terminal:Byte); stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Clear( Terminal as BYTE ) AS BYTE PASCAL LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nprocedure Dll_Echo (Terminal:Byte;Dado:char); stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Echo( Terminal as BYTE, Dado as STRING ) AS CHAR PASCAL LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nprocedure Dll_Display (Terminal:Byte; Dado:string); stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Display( Terminal as BYTE, Dado as STRING ) AS STRING PASCAL LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nfunction Dll_Get(Terminal:Byte):char; stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Get( Terminal as BYTE ) AS STRING PASCAL LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nfunction Dll_Status(Terminal:Byte):Byte; stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Status( Terminal as BYTE ) AS BYTE PASCAL LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nfunction Dll_Print(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Print( Terminal as BYTE, Dado as STRING ) AS BYTE PASCAL LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nfunction Dll_Serial(Terminal:Byte;dado:char):Byte; stdcall; external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Serial( Terminal as BYTE, Dado as STRING ) AS BYTE PASCAL LIB \'WTechLpt.dll\'\n\n//-&gt; En PASCAL\nfunction Dll_Acesso(Cmd:string):Integer;stdcall;external \'WTechLpt.dll\'\n\n//-&gt; En FIVEWIN -&gt; Equivalente, Igual, Correspondiente.\nDLL32 FUNCTION Dll_Acesso( Cmd as STRING ) AS STRING PASCAL LIB \'WTechLpt.dll\'\n\nGracias Maestro, Por Tu Marabillosa Ayda.\n\nSaludos.','',0,'AIA=','1gnrop1k',1,0,'',362,0,0),(17851,4050,3,308,0,'84.148.40.220',1156769943,1,0,1,1,1,0,'','user-defined form over OLE in Outlook','Hallo Fivewinners,\n\ndid someone use yet you user-defined forms in eMail-delivery in Outlook ?  \nHow can I purport such a user-defined form over OLE in Outlook?  \n\nBest regards\n   Norbert','',0,'AIA=','pdrk2wx8',1,0,'',308,0,0),(17852,4051,23,308,0,'84.148.40.220',1156770005,1,0,1,1,1,0,'','Benutzerdefinierte Formulare in Outlook verwenden','Hallo\n\nhat jemand noch Euch schonmal benutzerdefinierte Formulare bei email versand benutzt ?\nwie kann ich so ein formular über ole vorgeben ?\n\nViele Grüße\n  Norbert','',0,'AIA=','1sjrfg0v',1,0,'',308,0,0),(17853,3953,3,780,0,'82.61.166.173',1156772809,1,0,1,1,1,0,'','Is not a Class','Is not a class but a real pratic metod for use Crystal Report and for resolve all print problem.\n\nI not use Fivewin printing system, because i owe to give at users professional \"printed document\". And fivewin engine is a good print system for corrent \"printed document\" but no for \"professional documents\". \nMany software house like Microsoft, have chosen this road, not think that Antonio Linares makes in other way. Microsoft has bought crystal for resolve his software printing problems...\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02f7579c46/Edu_screen1.jpg.html\">http://hyperupload.com/download/02f7579 ... 1.jpg.html</a><!-- m --> \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/025e08a444/Edu_screen2.jpg.html\">http://hyperupload.com/download/025e08a ... 2.jpg.html</a><!-- m --> \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0288471e96/Edu_screen3.jpg.html\">http://hyperupload.com/download/0288471 ... 3.jpg.html</a><!-- m --> \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02cbdbc585/Edu_screen4.jpg.html\">http://hyperupload.com/download/02cbdbc ... 4.jpg.html</a><!-- m --> \n\nIn screen shot you see:\n1) the dialog of program.\n2) the dialog with the combobox 1 opened.\n3) the dialog with the combobox 2 opended. (The \"printer on line\" list)\n4) The printer preview of a document.\n\nThe software order the printer.\nThe printer off line are not in list.\nPrior the printer on line. \nIn order of the printer on line, the printer who the user have in use to much. In a file are the statistic of use of user printer.\n\nThe application is too faster, the control of invisible visual basic  exe is total. And have 0 problems.\n\nI tell to you to study for a \"your system\" for print the documents.\nIf you want to use my metod, i give you all information for develope it.\nAt end of your work is the your metod, not my.\nI ask many money at my customer, but no money at fivewin developers.\nWe help us with no money.\nthey are still pleasing to Ugo Garombo for the help that it has given to me.\nBest Regards\nEduardo Freni','',0,'AIA=','2saxo68e',1,0,'',780,0,0),(17854,4050,3,780,0,'82.61.166.173',1156774717,1,0,1,1,1,0,'','Do not','I do not understand','',0,'AIA=','1wxyaje6',1,0,'',780,0,0),(17855,4010,3,2,0,'87.218.146.184',1156775003,1,0,1,1,1,1,'','','Vilian,\n\nDoes the FTP user have permit to rename files ?','',0,'AIA=','dee9bmn8',1,0,'',2,0,0),(17856,4034,6,43,0,'189.128.26.7',1156777558,1,0,1,1,1,0,'','','Hola Antonio.\n\ny ya funcionan los splitters en ventanas MDI.\n\n\nSaludos\n\nMarco A. Delgado.','',0,'AIA=','7a58y6ov',1,0,'',43,0,0),(17857,4050,3,308,0,'84.148.40.220',1156777651,1,0,1,1,1,0,'','Re: Do not','[quote=&quot;eduardofreni&quot;:29oifmnu]I do not understand[/quote:29oifmnu]\n\nin outlook you can create user-define Formulars via \"Extra\"-&gt; Formular -&gt; Create new Formular.\n\nYou can example Create an Input-Formular for email-send. so you can in this form create checkboxe, combobox usw....\n\nYou can save the new formular with an name, example \"email-Send-1\" in outlook.\n\nover Extra-&gt;Formular-&gt;Open Formular you can open this formular an send an email via this form.\n\nnow i will send from fivewin via OLE an email and select with an ole-command this form.\n\nunderstand ? sorry about my bay english\n\nbest regards, Norbert','',0,'gA==','29oifmnu',1,0,'',308,0,0),(17858,4052,3,705,0,'61.2.5.177',1156780300,1,0,1,1,1,0,'','Cursor Disable in an open Window','Hello everybody,\n\nMy query is as follow:\n\nIn an open MDICHILD Window, I am trying to edit record one by one without closing the window. While I entered into edit option the CURSOR disable from window. The same thing happens, while I skip record forward or backward. But records skip properly and display appropriately. If I click mouse on the GET field then only shows cursor. Could any one help me please, how can I keep the cursor on [without clicking mouse] till the edit operation end?  \n\nArindam','',0,'','37js9qyb',1,0,'',705,0,0),(17859,4030,7,779,0,'200.67.153.171',1156780803,1,0,1,1,1,0,'','','Pues creo que ese comportamiento natural de Windows solo genera problemas.....\n\nSe puede corregir en el Metodo Initiate de la TDialog si al final ponemos...\n\n   AEVAL( ::aControls, { | o , n | IF( o:ClassName()==\"TIMAGE\" .OR.   \no:ClassName()==\"TBITMAP\" , ;\no:Move( o:nTop/2 , o:nLeft/2 , 0 , 0 , .T. ) , ;\no:Move( o:nTop/2 , o:nLeft/2 , o:nWidth/2 , o:nHeight/2,.T. ) ) } )','',0,'','2ywjolpn',1,0,'',779,0,0),(17860,3999,7,779,0,'200.67.153.171',1156780932,1,0,1,1,1,0,'','','La funcion se ve muy bien, solo que no me muestra ningun archivo....! <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','1gb8voxc',1,0,'',779,0,0),(17861,4053,2,52,0,'201.212.23.187',1156781528,1,0,1,1,1,1,'','nuevo error en mi app','Que es esto?\n\nGracias.\n\n[url=http&#58;//img177&#46;imageshack&#46;us/my&#46;php?image=dibujoai8&#46;jpg:25unmnyy][img:25unmnyy]http&#58;//img177&#46;imageshack&#46;us/img177/9808/dibujoai8&#46;th&#46;jpg[/img:25unmnyy][/url:25unmnyy]','',0,'GA==','25unmnyy',1,0,'',52,0,0),(17862,4016,6,228,0,'201.245.222.85',1156783168,1,0,1,1,1,1,'','Amigo me funciona sin problemas...','Amigo ya hice las respectivas pruebas y me funciona a la perfección. Si quieres te mande un ejemplo avisame. Eso si MASTER me perdonas mi codigo no creo que se tan avanzado como el tuyo.','',0,'GA==','1b4eoy8d',1,0,'',228,0,0),(17863,4034,6,2,0,'87.218.146.184',1156783202,1,0,1,1,1,1,'','','Marco,\n\nAún no. Lo tenemos pendiente de implementar.','',0,'GA==','3hovpece',1,0,'',2,0,0),(17864,3999,7,2,0,'87.218.146.184',1156783356,1,0,1,1,1,1,'','','Ignacio,\n\nLa estás probando en el emulador ? Ves las carpetas principales ? Puedes entrar en la carpeta de Windows ?','',0,'GA==','2hgupe4o',1,0,'',2,0,0),(17865,4030,7,2,0,'87.218.146.184',1156783501,1,0,1,1,1,1,'','','Ignacio,\n\n&gt; Pues creo que ese comportamiento natural de Windows solo genera problemas..... \n\nSí, es cierto.\n\n&gt; Se puede corregir en el Metodo Initiate de la TDialog si al final ponemos... \n\nPero a estas alturas romperíamos las aplicaciones de muchos usuarios...','',0,'GA==','1y3riq4l',1,0,'',2,0,0),(17866,4053,2,2,0,'87.218.146.184',1156783657,1,0,1,1,1,1,'','','Gustavo,\n\nDisminuye los valores de stacksize y/ó heapsize en el fichero LNK. Prueba con decrementos de 500 bytes.','',0,'GA==','1eeelgrk',1,0,'',2,0,0),(17867,4042,22,217,0,'200.159.120.34',1156783698,1,0,1,1,1,0,'','Re: look style xp','Silvio,\n\nIt\'s not a standard XP style. This appears to be a Office like style. You can buy activeX components to add this visual to your app. I saw it to Delphi, VB, VB.NET, Visual C... and I think it work with FWH too...\n\nRegards\nMaurilio','',0,'GA==','2ssyu6tf',1,0,'',217,0,0),(17868,4052,3,303,0,'72.199.41.171',1156783964,1,0,1,1,1,0,'','','Arindam,\n \nKeeping the curor on is not standard Windows behavior, so I don\'t recommend it. But if you want to do it, try doing oGet:setFocus() after skipping to the new record.\n\nJames','',0,'GA==','l6svko6m',1,0,'',303,0,0),(17869,4002,7,57,0,'83.56.202.4',1156784239,1,0,1,1,1,1,'','','Antonio\nEs cierto, no recibe el foco, pero cambia el color del texto a un gris claro y casi no se aprecia el valor del Get.\n\nLo he solucionado modificando el metodo New de la clase tGet para que cuando el valor lReadonly es .T., cambie el color de fondo. \n\nSaludos','',0,'GA==','w5mxeu64',1,0,'',57,0,0),(17871,4052,3,49,0,'62.13.172.78',1156785685,1,0,1,1,1,1,'','','james can you write onmy private email pls \nRegards','',0,'GA==','3iwmc0s2',1,0,'',49,0,0),(17872,4042,22,49,0,'62.13.172.78',1156785742,1,0,1,1,1,1,'','','sorry ..\nI\'d like to have these....','',0,'GA==','17h48d3z',1,0,'',49,0,0),(17873,3953,3,3,0,'82.249.25.187',1156786015,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:2kisk8th]Eduardo,\n\nThe PREVIEW.PRG Class that you developed is for sale?\n\nCan you post a sample or maybe some screenshot. You can use <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> to upload it.\n\nRegards\n\n\nGeorge[/quote:2kisk8th]\n\nGeorge\n\nI use Image2pdf with my application. \n\nIt is a saleable product that has one cost 250 US $ for unlimited usage.\n\nI have changed the preview.prg in order to pdf and also email.\n\nNo need to install a printer driver, it is very easy to use.\n\nIf you need further info, let me know,\n\nRichard','',0,'gA==','2kisk8th',1,0,'',3,0,0),(17874,4055,7,779,0,'200.67.153.171',1156786092,1,0,1,1,1,0,'','Error en el Emulador','Despues de 3 o 4 ececuciones de mi programa, el emulador no reconoce la ruta del directorio compartido, ¿alguien sabe porque?','',0,'gA==','ts20pu7n',1,0,'',779,0,0),(17875,4056,6,49,0,'62.13.172.78',1156786340,1,0,1,1,1,1,'','Hide drivers','How I can hide each driver ( from A to Z) ?\n\n\nREgards','',0,'gA==','19o685hs',1,0,'',49,0,0),(17876,4050,3,780,0,'82.61.166.173',1156787627,1,0,1,1,1,0,'','ok','I do know for execute formular in outlook.\n\nEduardo Freni','',0,'gA==','2npwwutp',1,0,'',780,0,0),(17877,4010,3,267,0,'200.208.238.2',1156787776,1,0,1,1,1,1,'','','Hi Antonio,\n\nI have total access to directory ftp. I execute the command thus: \n\noFTP:RenameFile(;\n                        \"/ premierefilmes/web/txts/bilhetes/teste.old\", \"teste.txt\")\n\nAlso already I tested thus: \n\noFTP:RenameFile(;\n                       \"/premierefilmes/web/txts/bilhetes/teste.old\",;\n                       \"/premierefilmes/web/txts/bilhetes/teste.txt\")','',0,'gA==','ej6pvmvv',1,0,'',267,0,0),(17878,4057,3,49,0,'62.13.172.78',1156788016,1,0,1,1,1,1,'','Hide Drives and Partitions','I must change  the Registry at :\n[b:1m650xs5]HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\explorer[/b:1m650xs5]\n\nat the option [b:1m650xs5]NoDrives[/b:1m650xs5]\nand set wich drive I want hide but  on the microsoft manual I saw these parameters :\n\n----------------------------------------------------------------------\nThe values for each drive are as follows:\n\n1 - A I Q Y\n2 - B J R Z\n4 - C K S\n8 - D L T\n16 - E M U\n32 - F N V\n64 - G O W\n80 - H P X\n\nSo, let\'s say you want to hide drive D. In the first column you would put \"08\". For drive K you would put \"04\" in the second column.\nBut what if you want to hide more than one drive in a column? Simply add the values together: D+E = 8+16 = 24. So in the first column you would put \"24\".\n\n---------------------------------------------------------------\n\nBut I  KNOW How set this variable in a program with xharbour and fivewin \n\nthere is someone can help me ?\n\nBest Regards','',0,'QA==','1m650xs5',1,0,'',49,0,0),(17879,4058,4,47,0,'203.144.143.6',1156789400,1,0,1,1,1,0,'','Item No. of TListBosx?','Dear Antonio,\n\n   @ 0.1, 0.1  LISTBOX oBrw FIELDS \"\" ;\n                    HEADERS \"No.\", \"Description\", \"Qty.\", \"Amount\" ;\n   	    FIELDSIZES 20, 100, 30, 50 ;\n   	    SIZE   120, 100 ;\n   	    PIXEL ;\n   	    OF oDlg\n   			   \n   oBrw:bLine = { || { str( oBrw:nRowPos ,2), ; \n   		 TRN-&gt;TRN_DESC, ;\n   		 Str(TRN-&gt;TRN_QTTY,3), ;\n   		 Str(TRN-&gt;TRN_UNIT*TRN-&gt;TRN_QTTY,7,2) } }\n\n- oBrw:nRowPos is alway show \'1\'\n- oBrw:nAt and oBrw:nLogis not working \n\nBest regards,\nDutch','',0,'QA==','22j3hnkn',1,0,'',47,0,0),(17880,4059,4,47,0,'203.144.143.6',1156789791,1,0,1,1,1,0,'','How does File() work?','Dear All,\n\nI try to check database file is exist or not buy use file() but I don\'t know how to success.\n\n- File( \"TEST.DBF\" ) is not working\n- File( CURDIR()+\"\\TEST.DBF\" ) is not working\n- File( \"\\\\\"+CURDIR()+\"\\TEST.DBF\" ) is not working\n\nThank you for any idea.\n\nBest regards,\nDutch','',0,'QA==','e5b50jdc',1,0,'',47,0,0),(17881,4059,4,3,0,'82.249.25.187',1156790974,1,0,1,1,1,1,'','Re: How does File() work?','[quote=&quot;dutch&quot;:3mpyrvg4]Dear All,\n\nI try to check database file is exist or not buy use file() but I don\'t know how to success.\n\n- File( \"TEST.DBF\" ) is not working\n- File( CURDIR()+\"\\TEST.DBF\" ) is not working\n- File( \"&quot;+CURDIR()+\"\\TEST.DBF\" ) is not working\n\nThank you for any idea.\n\nBest regards,\nDutch[/quote:3mpyrvg4]\n\nDutch\n\nFILE(CURDIR() + \"\\TEST.DBF\") IS THE CORRECT SYNTAX. \n\nRichard','',0,'gA==','3mpyrvg4',1,0,'',3,0,0),(17882,4059,4,47,0,'203.144.143.6',1156791291,1,0,1,1,1,0,'','','Dear Richard,\n\nI try this FILE(CURDIR()+\"\\TEST.DBF\") on my SD card in PPC but it return .F.\n\nCURDIR()+\"\\TEST.DBF\"  =  \"Storage Card\\TEST.DBF\" \n\nIt doesn\'t work.\n\nBest regards,\nDutch','',0,'gA==','7vz4smkw',1,0,'',47,0,0),(17884,4057,3,58,0,'84.149.215.63',1156793585,1,0,1,1,1,0,'','','Hi Silvio,\n\nthis remembers me to riddle inside of Monkey Island  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nMaybe the following  could help you.\n[code:1khum3oc]The NoDrives value can be used to selectively hide drives because the rightmost bit of this hexadecimal value represents the A&#58; drive, and the leftmost bit represents the Z&#58; drive&#46; To hide a specific drive, turn on its bit&#46; Use the following decimal numbers to hide the given drive&#58;\n\nA&#58; 1, B&#58; 2, C&#58; 4, D&#58; 8, E&#58; 16, F&#58; 32, G&#58; 64, H&#58; 128, I&#58; 256, J&#58; 512, K&#58; 1024, L&#58; 2048, M&#58; 4096, N&#58; 8192, O&#58; 16384, P&#58; 32768, Q&#58; 65536, R&#58; 131072, S&#58; 262144, T&#58; 524288, U&#58; 1048576, V&#58; 2097152, W&#58; 4194304, X&#58; 8388608, Y&#58; 16777216, Z&#58; 33554432, ALL&#58; 67108863&#46;[/code:1khum3oc]\nBest regards,\nDetlef','',0,'AIA=','1khum3oc',1,0,'',58,0,0),(17885,4033,3,69,0,'70.50.137.46',1156794984,1,0,1,1,1,0,'','','Enrico,\n\nI tried your sample...\n\nAll I get is a white window.  Nothing else happens.\n\nI have also tried with COMM.C relinked from FWH2.5 and still nothing.\n\nI am stuck.\n\nJeff','',0,'AIA=','1ah2wias',1,0,'',69,0,0),(17886,4024,2,496,0,'200.107.36.176',1156796050,1,0,1,1,1,0,'','','Ese error a mi se me ha presentado cuando hay problemas en los dbf. Lo que he hecho es hacer un pack a los dbfs y asunto resuelto. \n\nNo sé si ese sea tu problema, pero de todos modos te comento para que lo pruebes.\n\nUn saludo\n\nMarcelo Jingo','',0,'AIA=','2il0cq35',1,0,'',496,0,0),(17887,3953,3,171,0,'71.232.193.197',1156796493,1,0,1,1,1,0,'','','Eduardo,\n\nI check your screenshot and I see you have a nice professional printer system using Crystal Reports + FW.\n\nAt this moment I need only to print a couple simple reports in PDF formats.\n\nAnyway thanks for your support.\n\nRegards\n\nGeorge\n\n\n------------------------------------------------------------------------------\n\nRichard,\n\nI keep reading your post. because I have the same problem like you: wmf to pdf; Copy Protection (PPP), Emails and FTP transfer <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nA week ago I adquired image2pdf, command line, after I read about it in a old post from you. The problem that I have is when converting a two page report (the 2 wmf files generated by PREVIEW.PRG).\nImage2pdf create the first page OK but the second page is BIGGER . I tried differents image2pdf parameters with not success. If I use PDFCREATOR I do not have that problem.\nI would like to try the modifications, if you allow me, that you did to preview.prg to send emails and convert/print PDF using image2pdf.\n\n\nRegards\n\n\nGeorge','',0,'AIA=','3al6boxc',1,0,'',171,0,0),(17888,4059,4,3,0,'82.249.25.187',1156796511,1,0,1,1,1,1,'','','[quote=&quot;dutch&quot;:2904z672]Dear Richard,\n\nI try this FILE(CURDIR()+\"\\TEST.DBF\") on my SD card in PPC but it return .F.\n\nCURDIR()+\"\\TEST.DBF\"  =  \"Storage Card\\TEST.DBF\" \n\nIt doesn\'t work.\n\nBest regards,\nDutch[/quote:2904z672]\n\nIt works with my ppc app. i use the file(...) several times.\n\nmake sure your test.txt is on the root of the sd card, if not\n\nIF FILE(CURDIR() + \"\\whatever\\test.txt\")','',0,'gA==','2904z672',1,0,'',3,0,0),(17889,3953,3,3,0,'82.249.25.187',1156796826,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:1otud86q]Eduardo,\n\nI check your screenshot and I see you have a nice professional printer system using Crystal Reports + FW.\n\nAt this moment I need only to print a couple simple reports in PDF formats.\n\nAnyway thanks for your support.\n\nRegards\n\nGeorge\n\n\n\n------------------------------------------------------------------------------\n\nRichard,\n\nI keep reading your post. because I have the same problem like you: wmf to pdf; Copy Protection (PPP), Emails and FTP transfer <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nA week ago I adquired image2pdf, command line, after I read about it in a old post from you. The problem that I have is when converting a two page report (the 2 wmf files generated by PREVIEW.PRG).\nImage2pdf create the first page OK but the second page is BIGGER . I tried differents image2pdf parameters with not success. If I use PDFCREATOR I do not have that problem.\nI would like to try the modifications, if you allow me, that you did to preview.prg to send emails and convert/print PDF using image2pdf.\n\n\nRegards\n\n\nGeorge[/quote:1otud86q]\n\nGeorge\n\nThere are settings to image2pdf .\n\nI will email you my rpreview.prg + prev32.dll (i have changed this one also to allow multiple copies)\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRichard','',0,'gA==','1otud86q',1,0,'',3,0,0),(17890,4024,2,52,0,'201.212.23.187',1156796878,1,0,1,1,1,1,'','','[quote=&quot;sjingo&quot;:1zu5o6zs]Ese error a mi se me ha presentado cuando hay problemas en los dbf. Lo que he hecho es hacer un pack a los dbfs y asunto resuelto. \n\nNo sé si ese sea tu problema, pero de todos modos te comento para que lo pruebes.\n\nUn saludo\n\nMarcelo Jingo[/quote:1zu5o6zs]\n\nMe comenzó a dar problemas la aplicacion al momento de queres compilarlo usando RMAKE y un .rmk que usamos en la empresa, en la empresa con W98 no hubo problemas, pero con el XP si, quise agregar programas y me dio quilombos.\n\nGracias','',0,'gA==','1zu5o6zs',1,0,'',52,0,0),(17892,4033,3,6,0,'82.61.68.131',1156800831,1,0,1,1,1,1,'','','It is a simple terminal. You can type, as an example\n\nATI4\n\nand press Return and you will get the response from the modem.\n\nEMG','',0,'gA==','1v197i7e',1,0,'',6,0,0),(17894,3953,3,780,0,'82.61.166.173',1156807681,1,0,1,1,1,0,'','Excuse me.','My is not one critical.\n\nI know that products in order to make these things are several.  \nBut this problem I have resolved it a year ago, when the products not were.   \nI have not said what I have said in order to damage someone.  \nI have found the system, that me it seems being better than many others.  \nBut I do not want to stop the market of other developer. \nI, two year ago, had already made a good report generator in rtf. With word viewer as preview.\n\nThey are twenty one years that I make the software developer, and I have learned to makes my instruments from same me they are necessary to me alone. \nI do not like surpise, in my software.\n\nNot for pride, but only because want to know from top to bottom the instruments that use, because when there is a change of version of the compiler, or the operating system, with little maintenance, I maintain and modernize the instruments for me. If i see a work problem, i correct it.\n\nAs an example, i loved mich Canalfive in the year 1997, but I have developed a my object browse fivewin based, and one c based, than it is not beautiful and powerfull as CanalFive, but today Canalfive does not exist more, my object yes, This is the reason. \n\nCreed is right that every developer  may be develop own instruments. But this is a my idea.\n\nEduardo Freni','',0,'gA==','2hc2jjrn',1,0,'',780,0,0),(17895,4061,6,496,0,'200.107.36.176',1156808828,1,0,1,1,1,0,'','sobre vTaskbar ayuda','Un saludo foro\n\nEste es un mensaje para Paco García: \n\n1.- Cómo puedo hacer que algún elemento (VMENUITEM) de un  VMENU se muestre desabilitado?. \n\nHe intentando hacer esto:\n\nDEFINE VMENUITEM oItind OF oVMenu2\noItind:Disable()\n\nPero da un error\n\n2.- Igual quisiera hacer un oItind:click(), que se lo llame desde una tecla, pero también da error.\n\n\nCon los otros controles como btnbmps buttons, etc. si se puede, y así lo he hecho antes. Pero ahora quiero hacerlo con la vtaskbar, y no sale. Por favor ayuda.\n\n\nMarcelo Jingo','',0,'gA==','17oh42ki',1,0,'',496,0,0),(17896,4031,3,780,0,'82.61.166.173',1156810029,1,0,1,1,1,0,'','the dialog go to error','When i test with fwh the sample give an error at this row:\noDlg:SetText( CharContainer )\nTo me seems that the problem is in the dialog that does not have the method.\n\nBut, if i take the character in CharContainer and add chr(nKey) the problem are solved.\nIs solvable the problema, for get all character from buffer of keyboard?\n\nI know how this problem more complicated. It is necessary to go to touch the winproc. Excuse me.\n\nMany thanks for your prompt answer.\nBest Regards.\nSaludos\nEduardo Freni\n\nPS excuse for bad english','',0,'gA==','ynagmxku',1,0,'',780,0,0),(17897,4010,3,267,0,'201.9.180.67',1156810843,1,0,1,1,1,1,'','','Hi Antonio,\n\nThe problem with the Rename command, is that it so changes the name of archives in the current directory, or either,  that to move for the directory where is located the archive before executing the Rename command. \n\nIt will be that in the WinINet.dll we have a command equivalent to the Cd() of fivewin?','',0,'gA==','11z8xk33',1,0,'',267,0,0),(17898,4059,4,47,0,'203.144.143.8',1156828307,1,0,1,1,1,0,'','It works on PPC but not work on Emulator','Dear Richard,\n\nThanks, I try on the Emulator and It doesn\'t work.  But I try again in my PPC, It work ok.\n\nThanks&amp;Regards,\nDutch','',0,'gA==','kui5ncx8',1,0,'',47,0,0),(17899,3953,3,160,0,'220.227.133.134',1156831775,1,0,1,1,1,0,'','','Dear Eduardo Freni,\n\nYour solution seems to be of interest to me.\n\nCan you send some details / demo of it to me ?\n\nTIA\nMilan.','',0,'gA==','2ot2u0el',1,0,'',160,0,0),(17900,4061,6,28,0,'213.27.201.254',1156835851,1,0,1,1,1,0,'','','Hola\n\noItind:lDisable := .t.\n\nvTaskBar no tiene controles dentro para deshabilitarlos, simplemente pinta objetos.\n\nUn saludo','',0,'gA==','37kwd33s',1,0,'',28,0,0),(17901,4062,6,28,0,'213.27.201.254',1156835954,1,0,1,1,1,0,'','hbzip.lib para Harbour','Hola a todos\n\n¿Alguien ha podido montar o sabe de donde descargar la librería hbzip.lib para Harbour?\n\nMuchas gracias.','',0,'gA==','2m81e39z',1,0,'',28,0,0),(17902,4021,3,130,0,'141.51.32.24',1156836611,1,0,1,1,1,0,'','','Sorry, I don´t know. I´ve never use used the class TDSay.\n\nCompare the this class with the others working in transparent mode and look how the output is implemented.\n\nStefan','',0,'gA==','3f4scrgw',1,0,'',130,0,0),(17903,4058,4,2,0,'87.218.146.28',1156837281,1,0,1,1,1,1,'','','Dutch,\n\nTry to use: Str( TRN-&gt;( ORDKEYNO() ), 2 )','',0,'gA==','2khenbmb',1,0,'',2,0,0),(17904,4062,6,2,0,'87.218.146.28',1156837635,1,0,1,1,1,1,'','','Paco,\n\nLa librería está en el CVS de Harbour. Tienes el make para construirla.\n\nYa construida para xHarbour la tienes en la sección de utilidades de estos foros. A ver si tenemos tiempo y la construimos para Harbour y la ponemos también.','',0,'gA==','gusb6qx0',1,0,'',2,0,0),(17905,4063,19,123,0,'83.56.202.4',1156837808,1,0,1,1,1,0,'','La Máquina Virtual de xHarbour','Hola,\n\nLa Máquina Virtual de xHarbour (I) by Walter Negro en  <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=77\">www.capelblog.com/?p=77</a><!-- w -->\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2fk6b908',1,0,'',123,0,0),(17906,4064,6,782,0,'87.223.132.151',1156837856,1,0,1,1,1,0,'','Comunicacion Serie','Hola Antonio, soy usuario (aunque poco experimentado) de Fivewin para Clipper y C3. Esta es la primera vez que participo en este foro, y esta es para hacerte una consulta a ver que opinas:\n\nHe compilado el ejemplo Testcom3.prg que hay en el directorio samples de FWC3 con las FW21 para clipper y funciona perfectamente bajo XP, pero al compilarlo y enlazarlo con C3 no funciona. ¿alguna sugerencia?\n\nGracias \nUn Saludo\nJavier','',0,'gA==','12sn8bdd',1,0,'',782,0,0),(17907,4010,3,2,0,'87.218.146.28',1156838033,1,0,1,1,1,1,'','','Vilian,\n\nAdd this to source\\winapi\\wininet.prg:\n[code:1bgtka26]\nDLL32 FUNCTION FtpSetCurrentDirectory&#40; hFTP AS LONG, cDirName AS LPSTR &#41; ;\n                              AS BOOL PASCAL ;\n                              FROM &quot;FtpSetCurrentDirectoryA&quot; LIB hWinINet\n[/code:1bgtka26]\nAnd this to Class TFtp:\n[code:1bgtka26]\n   METHOD SetCurrentDirectory&#40; cDirName &#41; INLINE ;\n            FtpSetCurrentDirectory&#40; &#58;&#58;hFTP, cDirName &#41;\n[/code:1bgtka26]','',0,'AIA=','1bgtka26',1,0,'',2,0,0),(17908,4031,3,2,0,'87.218.146.28',1156838288,1,0,1,1,1,1,'','','Eduardo,\n\nPlease copy and build the entire sample that I have posted. It works fine.\n\nProbably you are missing oDlg in your code.','',0,'AIA=','1k6lnw8o',1,0,'',2,0,0),(17909,4062,6,28,0,'213.27.201.254',1156838711,1,0,1,1,1,0,'','','Sería de gran utilidad. Yo no soy muy bueno a la hora de manejarme con los makes. Lo he intentado pero me da montón de errores.\n\nA ver si tienes un ratillo, que seguro que para ti es pan comido.\n\nUn saludo','',0,'AIA=','s68antjx',1,0,'',28,0,0),(17910,4064,6,2,0,'87.218.146.28',1156839845,1,0,1,1,1,1,'','','Javier,\n\nTe enviamos por email el módulo comm.obj actualizado. Pruébalo y nos comentas, gracias.\n\nEl problema es que las funciones de Windows de comunicaciones no estan presentes en 32 bits (Windows las cambió) y nosotros las emulamos para mantener compatibilidad. Y las hemos ido mejorando poco a poco.','',0,'AIA=','3st91ssp',1,0,'',2,0,0),(17911,4057,3,49,0,'62.13.172.78',1156839909,1,0,1,1,1,1,'','','ok but using the Treg class How I must make  to hide hard disk and then show it ?\nI\'m afraid to make a bad  work making errors with treg class and then my pc not run well\n Can you hel me pls\nRegards','',0,'AIA=','zbhvkajg',1,0,'',49,0,0),(17912,4055,7,2,0,'87.218.146.28',1156840046,1,0,1,1,1,1,'','','Ignacio,\n\nA veces hay que reiniciar el emulador. Puedes probar a descargar un emulador más actualizado desde Microsoft, aunque no te recomendamos el de Windows Mobile 2005 porque es sensiblemente más lento.','',0,'AIA=','3o8xz2f4',1,0,'',2,0,0),(17913,4065,19,2,0,'87.218.146.28',1156840197,1,0,1,1,1,1,'','Windows Vista build 5536','Microsoft has released Windows Vista build 5536 for beta testers. Its sensibly faster than previous releases. Now its close to be useable <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nMicrosoft ha publicado el build 5536 de Windows Vista. Es sensiblemente más rápido que los anteriores. Ahora ya está cercano a ser usable <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1h4kbdpu',1,0,'',2,0,0),(17914,4066,3,49,0,'62.13.172.78',1156840600,1,0,1,1,1,1,'','Hide menu of the Internet explorer','When I use this program I can see  Internet explorer and I can navigate\n\n[code:7lj4lukl]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n   local cEvents &#58;= &quot;&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;fivetech&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   oActiveX&#58;Do&#40; &quot;GoHome&quot; &#41;\n   // oActiveX&#58;Do&#40; &quot;Navigate&quot;, &quot;http&#58;//www&#46;fivetechsoft&#46;com&quot; &#41;\n\n    oActiveX&#58;SetProp&#40; &quot;StatusBar&quot;, &#46;t&#46; &#41;\n   // MsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;StatusBar&quot; &#41; &#41;\n\n   oActiveX&#58;bOnEvent = &#123; | event, aParams | cEvents += EventInfo&#40; event, aParams &#41; &#125;\n\n   ACTIVATE WINDOW oWnd[/code:7lj4lukl] \n\n I want show/hide the menu when I click the left button of mouse\n\n I want show/hide the address menu of Internet explorer\n\n I want show/hide toolbar and status bar  of IE\n\n\n Best Regards','',0,'AIA=','7lj4lukl',1,0,'',49,0,0),(17915,4067,7,720,0,'80.36.244.134',1156841515,1,0,1,1,1,0,'','Problema al visualizar el contenido de una tabla','Hola a todos. Vamos a ver.... Tengo dos tablas creadas y puedo acceder al contenido de ambas sin ningún problema. Ahora bien, tengo declarada las tablas de la siguiente forma y en este orden:\n\nUSE ( CurDir() + \"\\Clientes\" ) VIA \"DBFCDX\"\n    Clientes-&gt;( OrdSetFocus( \"nomcli\" ) ) \n    Clientes-&gt;( DbGoTop() ) \nUSE ( CurDir() + \"\\articulos\" ) VIA \"DBFCDX\" new \n    articulos-&gt;( OrdSetFocus( \"cod_art\" ) ) \n    articulos-&gt;( DbGoTop() )\n\nHasta ahí todo bien.. El problema es que cuando muestro la información de las tablas en una lista, en la de articulos no hay problemas pero con la de clientes me repite cada registro tanto como registros tenga la tabla articulos, es decir, si articulos tiene solo 3 registros me repite cada nombre de cliente 3 veces y ademas solo me muestra en pantalla de 3 en 3, algo raro....\n\nAlguien podría decirme en que estoy fallando??\n\nGracias a todos y saludos....\n\nElías Torres.','',0,'AIA=','krxmj42y',1,0,'',720,0,0),(17916,4067,7,449,0,'212.64.224.244',1156842575,1,0,1,1,1,1,'','','Hola,\n\nPrueba en listbox de asociarle el alias\n\n[code:9m623cl4]REDEFINE LISTBOX oLbx &#46;&#46;&#46; ALIAS &#46;&#46;&#46;[/code:9m623cl4]\n\n\nSaludos.','',0,'AIA=','9m623cl4',1,0,'',449,0,0),(17917,4062,6,2,0,'87.218.146.28',1156842591,1,0,1,1,1,1,'','','Paco,\n\nLo hemos estado intentando y por lo visto no se puede. Está incompleta para Harbour. \n\nSi quieres usarla tendrás que recompilar con xHarbour, lo cual es algo inmediato ya que son totalmente compatibles.','',0,'AIA=','363cng2j',1,0,'',2,0,0),(17918,4067,7,2,0,'87.218.146.28',1156842709,1,0,1,1,1,1,'','','Elias,\n\nREDEFINE LISTBOX oLbx1 ... ALIAS Clientes\n\nREDEFINE LISTBOX oLbx2 ... ALIAS Articulos','',0,'AIA=','2kpljnn5',1,0,'',2,0,0),(17920,3999,7,449,0,'212.64.224.244',1156843039,1,0,1,1,1,1,'','','Buenas,\n\nMe funciona perfectamente en el emulador y el trasto.\n\nSaludos.','',0,'AIA=','we4q5o9k',1,0,'',449,0,0),(17921,4068,1,161,0,'213.119.247.128',1156843419,1,0,1,1,1,0,'','Menu in dialog','Hello,\n\nI can add a buttonbar on a dialog, but is it possible to have a menu (and buttonbar) in a dialog?\n\nThanks,\nMarc','',0,'AIA=','ft3b8ff5',1,0,'',161,0,0),(17922,4067,7,720,0,'80.36.244.134',1156843718,1,0,1,1,1,0,'','','Gracias Antonio y Carles. He probado lo que me habeis dicho pero me sigue saliendo de esta forma... No me da error pero me repite cada registro y ademas solo me muestra en pantalla esos tres registros...\n\nSeguiré dándole vueltas a la cabeza, jeje...\n\nSaludos y gracias...\n\nElías Torres.','',0,'AIA=','uzmnvxkv',1,0,'',720,0,0),(17923,4067,7,449,0,'212.64.224.244',1156843917,1,0,1,1,1,1,'','','Elias,\n\nBorra y crea de nuevo los indices\n\nSaludos.\nC.','',0,'AIA=','12yjgdq0',1,0,'',449,0,0),(17924,4057,3,58,0,'84.149.228.23',1156843954,1,0,1,1,1,0,'','','Silvio, \n\nthe only problem is how to create a 26-bit binary string.\nYou may google yourself or have a look at [url:1l3akemp]http&#58;//support&#46;microsoft&#46;com/default&#46;aspx?scid=kb;en-us;231289[/url:1l3akemp]\n\nHere an extract :\n\n[code:1l3akemp]This policy displays only specified drives on the client computer&#46; The registry key that this policy affects uses a decimal number that corresponds to a 26-bit binary string, with each bit representing a drive letter&#58;\n\n11111111111111111111111111\nZYXWVUTSRQPONMLKJIHGFEDCBA\n				\nThis configuration corresponds to 67108863 in decimal and hides all drives&#46; If you want to hide drive C, make the third-lowest bit a 1, and then convert the binary string to decimal&#46; \n\nIt is not necessary to create an option to show all drives, because clearing the check box deletes the &quot;NoDrives&quot; entry entirely, and all drives are automatically shown&#46; \n\nIf you want to configure this policy to show a different combination of drives, create the appropriate binary string, convert to decimal, and add a new entry to the ITEMLIST section with a corresponding &#91;strings&#93; entry&#46; For example, to hide drives L, M, N, and O, create the following string\n\n00000000000111100000000000\nZYXWVUTSRQPONMLKJIHGFEDCBA\n				\nand convert to decimal&#46; This binary string converts to 30720 in decimal&#46; Add this line to the &#91;strings&#93; section in the System&#46;adm file&#58; LMNO_Only=&quot;Restrict L, M, N and O drives only&quot;[/code:1l3akemp]\n\nOr you could try a tool like Tweak XP to see how the reg key is changed when hiding certain drives.\n\nRegards,\nDetlef','',0,'EIA=','1l3akemp',1,0,'',58,0,0),(17925,4064,6,782,0,'87.223.132.151',1156844671,1,0,1,1,1,0,'','','ok. lo pruebo y te comento.\n\n\nMuchas gracias\nJavier','',0,'EIA=','167iyhmn',1,0,'',782,0,0),(17926,4068,1,6,0,'87.10.2.246',1156844855,1,0,1,1,1,1,'','Re: Menu in dialog','Yes, just build the menu in the ON INIT clause.\n\nEMG','',0,'EIA=','pb26e81m',1,0,'',6,0,0),(17927,4067,7,720,0,'80.36.244.134',1156845189,1,0,1,1,1,0,'','','Carles,\n\nHe borrado los indices y los he creado de nuevo pero nada sigue igual...\n\n\nSaludos.\n\nElias Torres','',0,'EIA=','3ee6j85h',1,0,'',720,0,0),(17928,4068,1,161,0,'213.119.247.128',1156845205,1,0,1,1,1,0,'','','Thanks Enrico,\n\nWhy didn\'t I think of doing that...  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\nI already do it for my buttonbar...\n\nMarc','',0,'EIA=','2lgdpglo',1,0,'',161,0,0),(17929,4067,7,449,0,'212.64.224.244',1156845386,1,0,1,1,1,1,'','','Elias,\n\nIntenta poner el codigo q usas para las listas (lo mas breve posible)\n\nC.','',0,'EIA=','3sx03ggy',1,0,'',449,0,0),(17930,4067,7,720,0,'80.36.244.134',1156845845,1,0,1,1,1,0,'','','Carles,\n\nEl código que utilizo es este..\n\n\nDEFINE dialog odlg resource \"sele_cli\" \n        redefine LISTBOX oBrw alias Clientes;\n           FIELDS hBmp, clientes-&gt;Nomcli, clientes-&gt;Apecli;\n           HEADERS \"\",\"Nombre\", \"Apellidos\" ID 500 OF oDlg \n\nobrw:bKeyChar = { | nKey, nFlags | Search( nKey, @cSearch ), oBrw:Refresh(),oSay:REFRESH()}\n\n        redefine say oSay prompt cSearch id 130 of odlg FONT oFont COLOR CLR_BLACK, CLR_WHITE\n\nACTIVATE dialog odlg;\n    on init cursores(odlg)\n\n\nSaludos.\n\nElías Torres.','',0,'EIA=','22tmi59v',1,0,'',720,0,0),(17931,4067,7,449,0,'212.64.224.244',1156846194,1,0,1,1,1,1,'','','Elias,\n\nNo veo nada raro  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nyo probaria ahora\n\nEn el use:\n\n[code:2c70oy1m]USE &#46;&#46;&#46;  NEW\ncAliasCliente &#58;= Alias&#40;&#41;[/code:2c70oy1m]\n\ny en el listbox\n[code:2c70oy1m] REDEFINE LISTBOX &#46;&#46;&#46; ALIAS &#40;cAliasCliente&#41;[/code:2c70oy1m]\n\nSiau.\nC.','',0,'AIA=','2c70oy1m',1,0,'',449,0,0),(17932,4067,7,720,0,'80.36.244.134',1156846483,1,0,1,1,1,0,'','','Carles,\n\nAhora si  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .....\n\n\nGracias.\n\nsaludos\n\nElías Torres','',0,'AIA=','1gq192jm',1,0,'',720,0,0),(17933,4046,16,449,0,'212.64.224.244',1156847642,1,0,1,1,1,1,'','','Antonio,\n\n* Enhancement: FWPPC, errorsys is showing now the supplied arguments when an error occurs. \n\nEsta en el ultimo build (24.08.2006) ?\n\nSaludos.\nC.','',0,'AIA=','2piz9zag',1,0,'',449,0,0),(17935,4058,4,47,0,'203.144.143.9',1156848821,1,0,1,1,1,0,'','It shows wrong item no.','Dear Antonio,\n\nI need a item no. in a Browse but OrdKeyNo() shows the item no. in active Order.\n\nBest regards,\nDutch','',0,'AIA=','ecnjadja',1,0,'',47,0,0),(17936,4010,3,267,0,'200.208.238.2',1156849869,1,0,1,1,1,1,'','','Antonio,\n\nThanks for the evolution.','',0,'AIA=','2jgfjjpn',1,0,'',267,0,0),(17937,4043,4,47,0,'203.144.143.8',1156850084,1,0,1,1,1,0,'','BUTTON question again?','Dear Antonio,\n\nCan I change oBtn:cCaption that create from source code in FWPPC.  In FW/Clipper I do it from Resource and change :cCaption and :Refresh().  It works ok but I try with FWPPC.  It doesn\'t change.\n\noBtn:cCaption := \'Next Caption\"\noBtn:Show()\noBtn:Refresh()\n\nExample\n======\n[code:23a0391u]\nDEFINE DIALOG oDlg FROM  0, 0&#46;2 TO  nHeight,nWidth ;   \n           PIXEL \n            \n     for n &#58;= 1 to 21\n          MakeBtn&#40; n, oDlg, nRow, nCol, aPost &#41;\n          if nRow &gt;= 72\n              nRow &#58;= 0\n              nCol += 36	   \n           else\n              nRow += 12\n           end\n    next      \n    	   @  96&#46;8,85  BTNBMP FILENAME &#40;cPath+&quot;ARRUP&#46;BMP&quot;&#41; ;\n       			   SIZE   23,13 ;\n       			   WHEN &#40;nPage&gt;1&#41; ;\n       			   ACTION KeyPage&#40; oDlg, aPost, &#46;T&#46; , &#46;F&#46; &#41;\n\n	   @ 110,85    BTNBMP FILENAME &#40;cPath+&quot;ARRDN&#46;BMP&quot;&#41; ;\n       			   SIZE   23,12 ;\n       			   WHEN &#40;nEndPage=0&#41; ;\n       			   ACTION KeyPage&#40; oDlg, aPost, &#46;F&#46; , &#46;T&#46; &#41;\n \nReturn\n\n*------------------*\nStatic Procedure MakeBtn&#40;n,oDlg,nRow,nCol,aPost&#41;\nif empty&#40;ACT-&gt;ACCT_CODE&#41;\n   MadeBtn&#40; n, oDlg, nRow, nCol, ACT-&gt;ACCT_CODE, rtrim&#40;ACT- &gt;ACCT_EDESC &#41;, ACT-&gt;ACCT_TYPE, aPost &#41;\nend\nACT-&gt;&#40;DbSkip&#40;&#41;&#41;\n*----------------------------*\nProcedure MaeBtn&#40; n, oDlg, nRow, nCol, cTrn, cDesc, cType, aPost &#41;\n\nif !empty&#40;cTrn&#41;\n   @ &#40;nRow&#41;, &#40;nCol&#41; BUTTON oBtns&#91;n&#93; ;\n                PROMPT left&#40;cDesc,14&#41; ;\n                FONT oFnts ;   \n                SIZE 35, 12 ;\n                PIXEL ;\n                ACTION &#40; aadd&#40; aPost,&#123; str&#40;len&#40;aPost&#41;+1,2&#41;, cDesc, str&#40;iif  &#40;empty&#40;cQty&#41;,1,val&#40;cQty&#41;&#41;,7,2&#41;, cTrn &#125; &#41;, &#40;cQty &#58;= \'\'&#41; &#41;\n                \n   oBtns&#91;n&#93;&#58;nStyle &#58;= NOR&#40; oBtns&#91;n&#93;&#58;nStyle, BS_MULTILINE &#41;\n   \nelse\n   @ &#40;nRow&#41;, &#40;nCol&#41; BUTTON oBtns&#91;n&#93; ;\n   				FONT oFnts ;\n   				SIZE 35, 12 ;\n   				PIXEL \nend\n\nreturn      \n\n*------------------*\nFunction KeyPage&#40; oDlg, aPost, lPrev, lNext &#41;\nlocal n, nRow, nCol\nlocal lChk &#58;= &#46;F&#46;\nlocal nMultiple &#58;= 2\nlocal cCap, aMenuItems &#58;= &#123;&#125;\n\nif &#40;nPage &gt; 1 &#46;and&#46; lPrev&#41; &#46;or&#46; &#40;nEndPage=0&#46;and&#46;lNext&#41;\n   if lNext\n      nPage += 1\n   elseif lPrev\n   	  nPage -= 1\n      ACT-&gt;&#40;DbGoTop&#40;&#41;&#41;\n      if nPage &gt; 1\n  	     ACT-&gt;&#40;DbSkip&#40;&#40;nPage-1&#41;*21&#41;&#41;\n      end\n   end\n   for n &#58;= 1 to 21\n       if !empty&#40;ACT-&gt;ACCT_CODE&#41;  \n          aadd&#40; aMenuItems, &#123; ACT-&gt;ACCT_CODE , rtrim&#40;ACT-&gt;ACCT_EDESC&#41; &#125; &#41;\n       else\n          oBtns&#91;n&#93;&#58;Hide&#40;&#41;\n          oBtns&#91;n&#93;&#58;Refresh&#40;&#41;\n       end\n       if !empty&#40;ACT-&gt;ACCT_CODE&#41;\n          ACT-&gt;&#40;DbSkip&#40;&#41;&#41;          \n       end\n   next\n   \nend	  \n// Last page checking\nif !empty&#40;ACT-&gt;ACCT_CODE&#41;\n   if nEndPage &gt; 0\n      nEndPage -= nEndPage\n   end\nend\n\nfor n &#58;= 1 to len&#40;aMenuItems&#41;\n    ShowMenu&#40; aMenuItems, n &#41;\nnext\n\nreturn \n\n*--------------------------------*\nFunction ShowMenu&#40; aMenuItems, n &#41;\nlocal cCap, cTrn\n\ncTrn &#58;= aMenuItems&#91;n&#93;&#91;1&#93;\ncCap &#58;= left&#40; aMenuItems&#91;n&#93;&#91;2&#93;, 28 &#41;\n     \noBtns&#91;n&#93;&#58;cCaption &#58;= cCap\noBtns&#91;n&#93;&#58;bAction  &#58;= &#123;|| &#40; aadd&#40; aPost,&#123; str&#40;len&#40;aPost&#41;+1,2&#41;, cCap , str&#40;iif&#40;empty&#40;cQty&#41;,1,val&#40;cQty&#41;&#41;,7,2&#41;,  &#125; &#41;, &#40;cQty &#58;= \'\'&#41; &#41; &#125;\noBtns&#91;n&#93;&#58;Show&#40;&#41;\noBtns&#91;n&#93;&#58;Refresh&#40;&#41;\n         \nreturn\n[/code:23a0391u]\n\nBest regards,\nDutch[code:23a0391u][/code:23a0391u][code:23a0391u][/code:23a0391u]','',0,'AIA=','23a0391u',1,0,'',47,0,0),(17938,4043,4,2,0,'87.218.146.112',1156854974,1,0,1,1,1,1,'','','Dutch,\n\nTry this:\n\noBtn:SetText( \"Next Caption\" )','',0,'AIA=','2fgykrmm',1,0,'',2,0,0),(17939,4024,2,2,0,'87.218.146.112',1156855269,1,0,1,1,1,1,'','','Gustavo,\n\nCrea un fichero MAP usando MAP A,S en tu fichero LNK. \n\nAnota la dirección del GPF y búscala dentro del fichero MAP. Te indicará en donde se está produciendo el error.','',0,'AIA=','2xo8g0di',1,0,'',2,0,0),(17940,4046,16,2,0,'87.218.146.112',1156855459,1,0,1,1,1,1,'','','Carles,\n\nHaz una prueba:\n\nlocal n\n\nMsgInfo( n + 2 ) // Tiene que dar error y mostrar los argumentos\n\nEn caso de que no aparezca, estará incluido en el próximo build que publiquemos. Ya está operativo.','',0,'AIA=','123w085w',1,0,'',2,0,0),(17941,4007,6,362,0,'200.168.52.156',1156855821,1,0,1,1,1,1,'','','Maestro Help-me, Please!!','',0,'AIA=','2srnwix9',1,0,'',362,0,0),(17942,4034,6,43,0,'189.128.26.7',1156861019,1,0,1,1,1,0,'','','Ok.\n\nGracias Antonio.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nSaludos\nMarco A. Delgado.','',0,'AIA=','358sla10',1,0,'',43,0,0),(17943,4057,3,58,0,'84.149.255.98',1156862212,1,0,1,1,1,0,'','','Silvio,\n\nplease stop writing to my private mailaddress.\nIt\'s better that more people than only you may benefit from this forum.\n\nSo here is what you asked me for. IMO, you could have googled this yourself.\n\nHKEY_CLASSES_ROOT = 2147483648 \nHKEY_CURRENT_USER = 2147483649 \nHKEY_LOCAL_MACHINE = 2147483650 \nHKEY_USERS = 2147483651 \nHKEY_CURRENT_CONFIG = 2147483653','',0,'AIA=','3mjvpbr3',1,0,'',58,0,0),(17944,4061,6,496,0,'200.107.36.176',1156862402,1,0,1,1,1,0,'','','Funciona...perooo... en el lugar del icono queda un hueco feo. Así que mejor no haré el :lDisable.\n\nPor otro lado; alguna idea de cómo hacer que al presionar una tecla dada, desencadene el action del Vmenuitem. Con los btnbmp yo lo relacionaba con una tecla que mandaba a ejecutar: oboton:Click().  Como el Vmenuitmen no tiene el evento :Click(), alguna idea de cómo hacer algo parecido?\n\nEl asunto es que no quiero repetir el código de la acción tanto en el vmenu como en las bkeychar\n\nDe antemano Gracias \n\nMarcelo Jingo','',0,'AIA=','mmqzipt1',1,0,'',496,0,0),(17945,4031,3,780,0,'82.61.166.173',1156862566,1,0,1,1,1,0,'','Ok work','Is true, i not have passed, the oDlg at procedure test.\nNow i passed and no error in procedure.\nBut, how to see CharContainer not contain all character typed in the string, but the string with character -1, character captured from nkey\n\nThanks for all.\nBest regards\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oDlg, oGet1, n1 := \"                      \"\n\n   DEFINE DIALOG oDlg TITLE \"Testing Gets\"\n\n   @ 1, 1 GET oGet1 VAR n1 SIZE 80, 11 \n   \n   oGet1:bChange={ |nkey , nFlag| test(nkey,nFlag,@oGet1,@oDlg)} \n   \n   @ 3, 11 BUTTON \"Ok\" ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nprocedure test(nkey,nFlag,oGet1,oDlg) \n   Local CharContainer \n   CharContainer := oGet1:GetText() \n   oDlg:SetText( CharContainer ) \n? chr(nkey)\n? CharContainer\nreturn','',0,'AIA=','ry0t7voc',1,0,'',780,0,0),(17946,4057,3,49,0,'62.13.172.78',1156864039,1,0,1,1,1,1,'','','&gt;It\'s better that more people than only you may benefit from this forum. ...\n\nyou\'re right but there are many people help me never if you  go at this forum there are many many my messages of which I have not had answer....','',0,'AIA=','2k55epu6',1,0,'',49,0,0),(17947,4057,3,49,0,'62.13.172.78',1156864273,1,0,1,1,1,1,'','','for hard disk i saw i must insert this :\n\n4294967291  for drive C \n4294967293  for drive D\n4294967294  for drive A\n\nbut when I insert it I can see these drives : why ?\n\nInfact I open regedit and insert  4294967291  for drive C on nodrives \nand the I make this program :\n\n[code:32d18ni1]\n\n// Managing Register services from FiveWin\n\n#ifndef __XPP__\n   #define  HKEY_CLASSES_ROOT       2147483648\n   #define  HKEY_CURRENT_USER       2147483649\n   #define  HKEY_LOCAL_MACHINE      2147483650\n   #define  HKEY_USERS              2147483651\n   #define  HKEY_PERFORMANCE_DATA   2147483652\n   #define  HKEY_CURRENT_CONFIG     2147483653\n   #define  HKEY_DYN_DATA           2147483654\n#else\n   #define  HKEY_CLASSES_ROOT       1\n   #define  HKEY_CURRENT_USER       2\n   #define  HKEY_LOCAL_MACHINE      3\n   #define  HKEY_USERS              4\n   #define  HKEY_PERFORMANCE_DATA   5\n   #define  HKEY_CURRENT_CONFIG     6\n   #define  HKEY_DYN_DATA           7\n#endif\n\n//---------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local nHandle, cValue\n\n   if RegOpenKey&#40; HKEY_CURRENT_USER ,;\n         &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer&quot;, @nHandle &#41; == 0\n\n      RegQueryValue&#40; nHandle, &quot;NoDrives&quot;, @cValue &#41;\n      MsgInfo&#40; cValue &#41;\n      RegCloseKey&#40; nHandle &#41;\n   else\n      MsgAlert&#40; &quot;Can\'t open this key&quot; &#41;\n   endif\n\nreturn nil[/code:32d18ni1]\n\nbut it return me a symbol ...why ?','',0,'AIA=','32d18ni1',1,0,'',49,0,0),(17948,4057,3,58,0,'84.149.255.98',1156867217,1,0,1,1,1,0,'','','Silvio,\n\n[quote:18jmnpss]for hard disk i saw i must insert this : \n\n4294967291 for drive C \n4294967293 for drive D \n4294967294 for drive A[/quote:18jmnpss]\n\n\nhow did you get these values?\n\nhere again:\n[code:18jmnpss]how to hide drive \'C\' &#40; which is very foolish &#41;\n\nZYXWVUTSRQPONMLKJIHGFEDCBA &#40; all drive letters &#41;\n00000000000000000000000100 &#40; binary settings &#41;\nyou\'ll have to put \'4\'     &#40; decimal value of above binary &#41;\n\n\nBetter for testing try to hide drive \'D\'\n\nZYXWVUTSRQPONMLKJIHGFEDCBA &#40; all drive letters &#41;\n00000000000000000000001000 &#40; binary setting &#41;\nyou\'ll have to put \'8\'     &#40; decimal value of above binary &#41;\n\nAnd here an example for hiding drives \'E\' and \'D\'\n\nZYXWVUTSRQPONMLKJIHGFEDCBA &#40; all drive letters &#41;\n00000000000000000000001100 &#40; binary setting &#41;\nyou\'ll have to put \'12\'    &#40; decimal value of above binary &#41;\n[/code:18jmnpss]\nSo you see how it\'s easy:\nyou write down all possible drive letters from A to Z beginning with \'Z\'.\nThen you replace all drive letters you want to see with a \'0\' and replace all letters you want to hide with a \'1\'.\nAfter replacing all letters with the numeric equivalent you got a string representing a binary number. This you\'ll have to convert to a decimal number and write this value into your reg-key.\n\nBTW, i found it very unpleasant if you complain about missing help from this forum.\n\nI saw a lot of people which were busy during the last weeks by answering your questions.\nRemember, no one is obliged to help, but a lot of FiveWinners do.\nEven if they are busy with their jobs.\n\nRegards,\nDetlef','',0,'gIA=','18jmnpss',1,0,'',58,0,0),(17950,4057,3,49,0,'62.13.172.78',1156871635,1,0,1,1,1,1,'','','Sorry YOu are right for all \n\nbut...but... but..\nI not understand  and I not Know how I can make it translating in code ( harbour/fw)...','',0,'gIA=','2ixf4kc8',1,0,'',49,0,0),(17951,4069,4,3,0,'82.255.254.132',1156871956,1,0,1,1,1,1,'','spinner','Antonio\n\nDo you plan to have spinners installed on fw ppc ?\n\nThey can be very handy to avoid typing numbers in several cases.\n\nTia\n\nRichard','',0,'gIA=','cb5l83c2',1,0,'',3,0,0),(17952,4064,6,782,0,'217.217.170.116',1156872176,1,0,1,1,1,0,'','','Hola Antonio,\nestoy intentando compilar y enlazar con el obj que me enviaste pero al enlazar me sale un mensaje diciendo que no está lista la unidad, y al aceptar, el TLink me dice que no puede abrir la libreria uuid.lib.\nSupongo que el obj que me enviaste tendrá una referencia a dicha libreria  y el enlazador irá a buscarla a un directorio (imagino que el que tu tengas configurado en tu sistema) en la unidad C:. El problema está en que la letra de mi unidad no es C: sino I: y ya le he cambiado todas las rutas de las librerias en el fichero por lotes, en las variables de entorno... pero sigue sin encontrar dicha libreria.\n\nte agradeceria me echases una mano.\nUn Saludo\nJavier','',0,'gIA=','1gr4o6wh',1,0,'',782,0,0),(17953,4070,3,299,0,'24.233.172.101',1156872335,1,0,1,0,1,0,'','Tsocket','Hi,\n\nFor some reason when trying to create a socket connection to a given port on at a given IP, the socket gets created at the local computer\'s ip instead.  Here is my code:\n[code:r7pxvyn1]\n		oSocket &#58;= TSocket&#40;&#41;&#58;New&#40; 15000 &#41;\n		osocket&#58;lDebug &#58;= &#46;t&#46;\n		oSocket&#58;cLogfile &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41; + &quot;trace&#46;log&quot;\n		oSocket&#58;bRead    = &#123; | oSocket | aadd&#40; m-&gt;aAcks, oSocket&#58;GetData&#40;&#41; &#41; &#125;\n		oSocket&#58;bConnect = &#123; || logfile&#40; &quot;trace&#46;log&quot;, &#123; &quot;Connected to ip&#58;&quot;+osocket&#58;cIpAddr &#125; &#41; &#125;\n		oSocket&#58;Connect&#40; &quot;98&#46;19&#46;1&#46;4&quot; &#41;\n[/code:r7pxvyn1]\n\nHere I\'m trying to connec to a local server at ip 98.19.1.4 which is listening on port 15000.  But when I look at the trace.log file I find it is connecting to ip 98.19.1.187 which is the local computer\'s ip and not to the desired ip, thus any send/receive data attemp fails.\n\nAny Ideas why?\n\nThe funny thing is that yesterday it was connecting to the right ip and I got to send and receive data just perfectly.  I know as a matter of fact that the server is listening at 15000 and that the server\'s ip is correct.\n\nI\'m using xharbour 0.99.61 w/FW2.7 + BCC 5.5.\n\n\n\nReinaldo.','',0,'AIA=','r7pxvyn1',1,0,'',299,0,0),(17954,4031,3,303,0,'72.199.41.171',1156872540,1,0,1,1,1,0,'','','Try this:\n\nprocedure test(nkey,nFlag,oGet1,oDlg) \nLocal CharContainer \nCharContainer := oGet1:varGet()  // changed\nmsgInfo( charContainer ) \noDlg:SetText( CharContainer ) \n? chr(nkey) \n? CharContainer \nreturn','',0,'AIA=','2um97a45',1,0,'',303,0,0),(17955,4031,3,49,0,'62.13.172.78',1156872915,1,0,1,1,1,1,'','','Edo, why this PHOTO ? \n&lt;-------------------------&lt;','',0,'AIA=','3jvt7tub',1,0,'',49,0,0),(17956,4070,3,303,0,'72.199.41.171',1156872958,1,0,1,1,1,0,'','','Hi Rienaldo,\n\nI have not done much work with sockets, but I know that when strange things are happening that don\'t seem to make sense (with any code), sometimes adding a sysRefresh() fixes the problem. It\'s worth a try. I would put it just before the connect.\n\nJames','',0,'AIA=','ccsv05y1',1,0,'',303,0,0),(17957,4043,4,47,0,'203.144.143.5',1156873397,1,0,1,1,1,0,'','It works ok now.','Dear Antonio,\n\nIt works perfect now.  \n\nThanks&amp;Regards,\nDutch','',0,'AIA=','29woazvm',1,0,'',47,0,0),(17958,3939,6,376,0,'201.230.229.189',1156874768,1,0,1,1,1,0,'','','Ok\n\nQuedo a la espera!!!\n\nArmando\n\n[quote=&quot;Antonio Linares&quot;:1bw0owfp]Armando,\n\nNo, no usamos un batch. Usamos un make bastante complejo ya que construye FW para cinco compiladores distintos.\n\nEn unos dias publicaremos el build de Agosto con todos los nuevos cambios y los builds más recientes de Harbour y xHarbour, que no quisimos publicarlos en Julio porque no estaban totalmente estables.[/quote:1bw0owfp]','',0,'gA==','1bw0owfp',1,0,'',376,0,0),(17959,4068,1,6,0,'87.10.2.246',1156879319,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:233x8j2n]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 2, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT BUILDMENU&#40; oDlg &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION BUILDMENU&#40; oDlg &#41;\n\n    LOCAL oMenu\n\n    MENU oMenu\n        MENUITEM &quot;&amp;Test&quot;\n\n        MENU\n            MENUITEM &quot;&amp;Test1&quot;;\n                     ACTION MSGINFO&#40; &quot;Test1&quot; &#41;\n\n            MENUITEM &quot;&amp;Test2&quot;;\n                     ACTION MSGINFO&#40; &quot;Test2&quot; &#41;\n\n            MENUITEM &quot;&amp;Test3&quot;;\n                     ACTION MSGINFO&#40; &quot;Test3&quot; &#41;\n        ENDMENU\n    ENDMENU\n\n    oDlg&#58;SetMenu&#40; oMenu &#41;\n\n    RETURN NIL[/code:233x8j2n]\n\nEMG','',0,'AIA=','233x8j2n',1,0,'',6,0,0),(17960,3488,6,52,0,'201.212.23.187',1156881030,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3vlmamp7]Alex,\n\nPuedes usar C++ siempre que llames a Borland C con el parámetro -P para forzar la compilación en C++. Aqui tienes un ejemplo:\n[code:3vlmamp7]\n// Using C++ with Harbour \n// sample developed by FiveTech Software\n\nfunction Main&#40;&#41;\n\n   local oTest &#58;= Test&#40;&#41; // We create a C++ object\n\n   XMSGINFO&#40; TEST_IVALUE&#40; oTest &#41; &#41; // We retrieve a C++ object data\n   \nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nclass Sample\n&#123;\n   public&#58;\n      int iValue;\n      Sample&#40;&#41;;\n&#125;;\n\nSample&#58;&#58;Sample&#40;&#41;\n&#123;\n   iValue = 123;\n&#125;   \n\nHB_FUNC&#40; TEST &#41;   \n&#123;\n   Sample * p = new Sample;\n   \n   hb_retnl&#40; &#40; unsigned long &#41; p &#41;;\n&#125;\n\nHB_FUNC&#40; TEST_IVALUE &#41;\n&#123;\n   hb_retnl&#40; &#40; &#40; Sample * &#41; hb_parnl&#40; 1 &#41; &#41;-&gt;iValue &#41;;\n&#125;   \n\nextern &quot;C&quot; \n&#123;\n   HB_FUN_MSGINFO&#40; void &#41;;\n&#125;\n\nHB_FUNC&#40; XMSGINFO &#41;\n&#123;\n   HB_FUN_MSGINFO&#40;&#41;;\n&#125;   \n\n#pragma ENDDUMP  \n[/code:3vlmamp7][/quote:3vlmamp7]\n\nAntonio,\n\nSi tengo un simple .cpp con este código:\n\n[code:3vlmamp7]#include &quot;hbapi&#46;h&quot;\n\n//------------------------------------------------------------------------------\n \nclass sample &#123;\n   public&#58;\n      int iValue;\n      sample&#40;&#41;;\n      mostrar&#40;&#41;;\n   &#125;;\n \n//------------------------------------------------------------------------------\n \nsample&#58;&#58; sample&#40;&#41; &#123;\n   iValue= 123;\n   &#125;\n \n//------------------------------------------------------------------------------\n \nsample&#58;&#58; mostrar&#40;&#41; &#123;\n \n   // Aca quiero que me retorne el valor &quot;123&quot;\n \n   &#125;\n \n//------------------------------------------------------------------------------[/code:3vlmamp7] \n \ny quiero desde FWH poder usar esa clase, como hago?\n\nEstoy tratando de entender el mecanismo pero no lo logro ver con las clases. gracias','',0,'gIA=','3vlmamp7',1,0,'',52,0,0),(17961,4036,2,375,0,'84.122.115.90',1156881600,1,0,1,1,1,1,'','','OK BCC funciona. Supongo que para BCC32 necesitaré cabeceras diferentes.\n\nMuchas gracias.','',0,'gIA=','3u3xgt5j',1,0,'',375,0,0),(17962,4037,2,375,0,'84.122.115.90',1156881839,1,0,1,1,1,1,'','','OK me habeis convencido.\n\n¿Cual es más aconsejable, RES o RC?\n\nMuchas gracias. Un saludo','',0,'gIA=','2366dknk',1,0,'',375,0,0),(17963,4071,4,3,0,'82.255.254.132',1156882050,1,0,1,1,1,1,'','msgrun','Is there any replacement possible for msgrun ?\n\nHow can we make a message like \"please wait, processing ...\" and process in the same time (what msgrun does)\n\nRichard','',0,'gIA=','14d6lwlq',1,0,'',3,0,0),(17964,4072,4,3,0,'82.255.254.132',1156882553,1,0,1,1,1,1,'','Is exe running ?','Antonio \n\nCan we have a conversion of this ?\n\nIF IS_EXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )\n        ? \"The app is already running\"\n        RETURN NIL\nENDIF\n\n\nThe \"Findwindow\" is not enough. It still allows a use rto click twice or more.\n\nTia \n\nRichard','',0,'gIA=','2o5sgxjv',1,0,'',3,0,0),(17965,4070,3,299,0,'24.233.172.101',1156882590,1,0,1,0,1,0,'','','James;\n\nThank you for your reply.  I inserted sysfresh().  Still same behavior.\n\nListen, anyone can try this even without a socket server working listening.  If you try to connect to non existent IP it connects to your own ip even if no service is listening on the specified port.\n\nTry using my very same example above.   You\'ll get connection or so is tsocket\'s behavior although no real connection exists.\n\nReinaldo','',0,'gIA=','31w2pnlv',1,0,'',299,0,0),(17966,4070,3,303,0,'72.199.41.171',1156883482,1,0,1,1,1,0,'','','Reinaldo,\n\nI tried running it here and it hung at this line:\n\n oSocket:bRead ...\n\nI commented out that line and it runs through all the rest of the lines but I get no trace.log so it seems I am NOT getting a connection. I also disabled my firewall but there was no change.\n\nJames','',0,'gIA=','396qrk2w',1,0,'',303,0,0),(17967,4070,3,299,0,'24.233.172.101',1156884111,1,0,1,0,1,0,'','','James;\n\nCheck again.  Sometimes it takes a few seconds for the trace.log file to create and have info on it.  \n\nI\'m testing it here on my own computer where I have no access to private ip 98.19.1.4, and I do get a trace file.  It reads : Connected to ip:192.168.1.2.\n\nThe line osocket:bRead := ... is just assigning a code block to a variable.  I wonder why would it hang....?  Makes no sense to me.\n\nCheck again your app directory for trace.log.','',0,'gIA=','rarpmah7',1,0,'',299,0,0),(17968,4031,3,780,0,'82.61.166.173',1156884207,1,0,1,1,1,0,'','My photo?','Hello Silvio, how are you?\nMy photo?\nBecouse is the only in black and white. \nFor reduce the dimensions of image.\n\nWhy not?\n\nBuona vida Silvio.\n\nEduardo Freni','',0,'gIA=','80x92sxj',1,0,'',780,0,0),(17969,3833,7,598,0,'200.11.139.61',1156884730,1,0,1,1,1,1,'','','que tal porfin existira algun ejemplo de impresion IRDA para fivewin???','',0,'gIA=','3ogvgbig',1,0,'',598,0,0),(17970,4031,3,780,0,'82.61.166.173',1156885930,1,0,1,1,1,0,'','Estimando James Bott','It is one unexpected and appreciate surprised your mail. \n\nI study and appreciate your manual on FiveWin Class. Me has been much profit.\n\nFor the procedure the problem is this.  \nI must extract the characters, who come directly typed, from the buffer of an object get. Possibly the entire string, not a character for time.\nI cannot attend the valid, I must make it before. \nFor this I have made this post. \n\nI have mistaken method? \nI do not know, task to have made how much was necessary.  \nOnChange, would have gives the possibility to me to approach the buffer of the characters written in the get. \n\nThanks for all James Bott.\n\nBest Regards\n\nEduardo Freni','',0,'gIA=','1i2alkq8',1,0,'',780,0,0),(17971,4070,3,299,0,'24.233.172.101',1156886386,1,0,1,0,1,0,'','','Here is a self contained sample:\ncompile and execute.   After 30 seconds check your app\'s dir.  You\'ll find a trace.log file and an actual connection where you can click on send and no error is reported.   Futhermore, Tsocket reports being connected to your local computer\'s ip instead of the assigned ip.\n\nUnless I\'m missing something here, this self contained sample proves how tsocket is not working properly???\n\n[code:1pt5c32q]\n#include &quot;Fivewin&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\nLOCAL oWnd\nlocal oMsg\n\n	DEFINE WINDOW oWnd\n\n	@ 1, 2 BUTTON &quot;Send&quot;;\n		SIZE 100, 50;\n		ACTION &#40; oMsg&#58;CreateHL7Message&#40;&#41;, ;\n	     			oMsg&#58;Tcp_HL7_Transmit&#40;&#41;, ;\n				omsg&#58;IsAcknowledged&#40;&#41; &#41;\n\n	ACTIVATE WINDOW oWnd ;\n    		ON INIT &#40; oMsg &#58;= tExporter&#40;&#41;&#58;new&#40;&#41;, omsg&#58;SetupIPSocket&#40;&#41; &#41; ;\n		VALID&#40; omsg&#58;end&#40;&#41;, &#46;t&#46; &#41;\n\nRETURN NIL\n\n*-------------------------------------------------------------------------------------------------------------------------------\nCLASS TEXPORTER\n\n	DATA oSocket\n	DATA isConnected AS LOGIC INIT &#46;f&#46;\n	DATA nPort AS NUMERIC INIT 15000\n	DATA cIp, cId, cHL7\n	DATA aAcks AS ARRAY INIT &#123;&#125;\n\n	METHOD New&#40;&#41; CONSTRUCTOR\n	METHOD SetupIpSocket&#40;&#41;\n	METHOD Tcp_Hl7_Transmit&#40;&#41;\n	METHOD isAcknowledged&#40;&#41;\n	METHOD CreateHL7Message&#40;&#41;\n\n	METHOD UniqueId&#40;&#41;		// HL7 segments\n	METHOD obx&#40;&#41;\n	METHOD obr&#40;&#41;\n	METHOD orc&#40;&#41;\n	METHOD Pid&#40;&#41;\n	METHOD Env&#40;&#41;\n	METHOD Msh&#40;&#41;\n	METHOD nte&#40;&#41;\n\n	METHOD End&#40;&#41;\n\nEND CLASS\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD new&#40;&#41; CLASS TEXPORTER\n\n	&#58;&#58;nPort &#58;= 15000\n	&#58;&#58;cIP &#58;= &quot;98&#46;19&#46;1&#46;4&quot;\n\nRETURN SELF\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD SetupIpSocket&#40;&#41; CLASS TEXPORTER\n\n	&#58;&#58;oSocket &#58;= TSocket&#40;&#41;&#58;New&#40; &#58;&#58;nport &#41;\n	&#58;&#58;osocket&#58;lDebug &#58;= &#46;t&#46;\n	&#58;&#58;oSocket&#58;cLogfile &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41; + &quot;trace&#46;log&quot;\n	&#58;&#58;oSocket&#58;bRead    = &#123; | oSocket | aadd&#40; &#58;&#58;aAcks, oSocket&#58;GetData&#40;&#41; &#41; &#125;\n	&#58;&#58;oSocket&#58;bConnect = &#123; || &#58;&#58;isConnected &#58;= &#46;t&#46;, logfile&#40; &quot;trace&#46;log&quot;, &#123; &quot;Connected to ip&#58;&quot;, &#58;&#58;osocket&#58;cIpAddr &#125; &#41; &#125;\n	&#58;&#58;oSocket&#58;Connect&#40; &#58;&#58;cIp &#41;\n\nRETURN NIL\n\n\nRETURN NIL\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD CreateHL7Message&#40;&#41; CLASS TEXPORTER\n\n	&#58;&#58;uniqueId&#40;&#41;\n	&#58;&#58;cHL7 &#58;= chr&#40; 11 &#41; + &#58;&#58;msh&#40;&#41; + chr&#40;13&#41; + ;\n		&#58;&#58;env&#40;&#41; + chr&#40; 13 &#41; + ;\n		&#58;&#58;pid&#40;&#41; + chr&#40; 13 &#41; + ;\n		&#58;&#58;orc&#40;&#41; + chr&#40; 13 &#41; + ;\n		&#58;&#58;obr&#40;&#41; + chr&#40; 13 &#41; + ;\n		&#58;&#58;obx&#40;&#41; + chr&#40; 13 &#41; + ;\n		/*&#58;&#58;nte&#40;&#41; + chr&#40; 13 &#41; +*/ chr&#40; 28 &#41; + chr&#40; 13 &#41;\n\nRETURN NIL\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD Tcp_HL7_Transmit&#40;&#41; CLASS TEXPORTER\n\n	if !&#58;&#58;isConnected\n		MsgStop&#40; &quot;Connection to &quot; + &#58;&#58;oSocket&#58;cIpAddr + &quot; at &quot; + cValToChar&#40; &#58;&#58;osocket&#58;nPort &#41; + &quot; failed&#46;&quot; &#41;\n		Return Nil\n	Endif\n\n	&#58;&#58;oSocket&#58;SendData&#40; &#58;&#58;cHL7 &#41;\n\nRETURN NIL\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD isAcknowledged&#40;&#41; CLASS TEXPORTER\nlocal aParsed\nlocal nPos\n\n	if !empty&#40; &#58;&#58;aAcks &#41;\n		aParsed 	&#58;= HB_ATOKENS&#40; aTail&#40; &#58;&#58;aAcks &#41;, chr&#40; 13 &#41;, &#46;T&#46;, &#46;F&#46;&#41;\n		nPos 		&#58;= aScan&#40; aParsed, &#123; |e| left&#40; e, 3 &#41; == &quot;MSA&quot; &#125; &#41;\n\n		if nPos &gt; 0\n			aParsed &#58;= HB_ATOKENS&#40; aParsed&#91; nPos &#93;, &quot;|&quot;, &#46;T&#46;, &#46;F&#46; &#41;\n			if alltrim&#40; aParsed&#91; 3 &#93; &#41; == alltrim&#40; &#58;&#58;cId &#41; &#46;and&#46; &quot;NORMAL&quot; $ upper&#40; aParsed&#91; 4 &#93; &#41;\n				RETURN &#46;T&#46;\n			Endif\n		endif\n	Endif\n\nRETURN &#46;F&#46;\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD Msh&#40;&#41; CLASS TEXPORTER\nlocal cStr &#58;= &quot;MSH|&quot;\n\n	cStr += &quot;^~\\&amp;|&quot;			//2- encoding chars\n	cStr += &quot;MP8-PathLabs|&quot;		//3- snd app\n	cStr += &quot;|&quot;				//4- snd facility\n	cStr += &quot;|&quot;				//5- recv app\n	cStr += &quot;|&quot;				//6- recv facility\n	cstr += DTOS&#40; date&#40;&#41; &#41; + StrTran&#40; time&#40;&#41;, &quot;&#58;&quot;, &quot;&quot; &#41;+ &quot;|&quot; //7\n	cStr += &quot;|&quot;				//8\n	cstr += &quot;ORU^R01|&quot;		//9\n	cstr += &#58;&#58;cId + &quot;|&quot;		//10\n	cStr += &quot;||||&quot;\n\nRETURN cStr\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD Env&#40; cTrigger &#41; CLASS TEXPORTER\nlocal cStr &#58;= &quot;EVN|&quot;\n\n	cStr += &quot;R01|&quot;\n	cStr += DTOS&#40; date&#40;&#41; &#41; + StrTran&#40; time&#40;&#41;, &quot;&#58;&quot;, &quot;&quot; &#41; + &quot;|&quot;\n\nRETURN cStr\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD Pid&#40;&#41; CLASS TEXPORTER\nlocal cStr &#58;= &quot;PID|&quot;\n\n	cStr += &quot;||&quot;\n	cStr += &quot;REC&#58;00000001|&quot;\n	cStr += &quot;||||||||||||||&quot;\n	cStr += &quot;ACC&#58;00000001^^^^^|&quot;\n	cStr += &quot;|&quot;\n\nRETURN cStr\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD orc&#40;&#41; CLASS TEXPORTER\nlocal cStr &#58;= &quot;ORC|&quot;\n\n	cStr += &quot;RE|&quot;\n	cStr += &quot;ORDER&#58;0000000^|&quot;\n	cStr += &quot;|||||||&quot;\n	cStr += &quot;USERID|&quot;\n	cStr += &quot;|||||||||&quot;\n\nRETURN cStr\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD obr&#40;&#41; CLASS TEXPORTER\nlocal cStr &#58;= &quot;OBR|&quot;\n\n	cStr += &quot;ORDER&#58;0000001^|&quot;\n	cStr += &quot;|||||&quot;\n	cStr += DTOS&#40; Date&#40;&#41; &#41; + StrTran&#40; Time&#40;&#41;, &quot;&#58;&quot;, &quot;&quot; &#41; + &quot;|&quot;\n	cStr += &quot;||&quot;\n	cStr += &quot;TRNSCRIPT|&quot;\n	cStr += &quot;||||||||||||||&quot;\n	cStr += &quot;F|&quot;\n	cStr += &quot;||||||&quot;\n	cStr += &quot;PTHLGST^PthlgstNameString|&quot;\n	cStr += &quot;|||||||||||&quot;\n\nRETURN cStr\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD obx&#40;&#41; CLASS TEXPORTER\nlocal cStr	&#58;= &quot;&quot;\nlocal nSeq\n//local aRsts	&#58;=&#123; &#58;&#58;oTrans&#58;oTrGrss&#58;GetText&#40;&#41;, &#58;&#58;oTrans&#58;oTrDg&#58;GetText&#40;&#41; &#125;\nlocal aRsts	&#58;= &#123; &quot;Text line one&#46;  Sample text&#46;  The fox jumped over the white fence&quot;, ;\n				&quot;Text line two&#46;  Sample text&#46; More foxes jumped over the white fence&quot; &#125;\n\n	For nSeq &#58;= 1 to 2\n		cStr 	+= &quot;OBX|&quot;\n		cStr += cValToChar&#40; nSeq &#41;+ &quot;|&quot;\n		cStr += &quot;ST|&quot;\n		cStr += &quot;||&quot;\n		cStr += aRsts&#91; nSeq &#93; +&quot;|&quot;\n		cStr += &quot;||||||||||||&quot; + chr&#40;13&#41;\n	Next nSeq\n\nRETURN cStr\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD Nte&#40;&#41; CLASS TEXPORTER\nlocal cStr	&#58;= &quot;NTE|&quot;\n\nRETURN cStr\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD UniqueId&#40;&#41; CLASS TEXPORTER\nlocal cPrvId &#58;= &#58;&#58;cId\n\n	While &#58;&#58;cId == cPrvId\n		&#58;&#58;cid &#58;= Right&#40; cValToChar&#40; Year&#40;date&#40;&#41; &#41; &#41;, 2 &#41; + ;\n	  		StrZero&#40; Month&#40; date&#40;&#41; &#41;,2 &#41; + ;\n	  		StrZero&#40; Day&#40; date&#40;&#41; &#41;,2 &#41; + ;\n	  		cValToChar&#40; Seconds&#40;&#41; &#41;\n	End\n\nreturn nil\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD End&#40;&#41; CLASS TEXPORTER\n\n	iif&#40; upper&#40; valtype&#40; &#58;&#58;osocket &#41; &#41; == &quot;O&quot;, &#58;&#58;osocket&#58;End&#40;&#41;, &#41;\n\nRETURN NIL\n[/code:1pt5c32q]','',0,'AIA=','1pt5c32q',1,0,'',299,0,0),(17972,4073,6,783,0,'200.60.243.91',1156887685,1,0,1,1,1,0,'','Clase get','Hola amigos, soy nuevo en el foro y aqui va mi primera consulta.\n\nEstoy elaborando un Clase que me permita manipular cualquier base de datos. (añadir, editar y eliminar registros)\n\nTengo las siguientes lineas de codigo:\n\nCLASS TBrwDbf\n ....\n Method browse()\n method BuscaKey() \n .....\n\nENDCLASS\n\n\nMethod Browse() class TBrwDbf\n ........\n  \nredefine get ::oGetCod VAR ::xCodigo ID ::oId_Find[1] of ::oPags:aDialogs[1] picture ::cPcod ;\n                on change (::buscakey())\n....\nreturn (NIL)\n\n\nMethod BuscaKey() class TBrwDbf\n  .....\n\nreturn (NIL)\n\n\nY cuando ejecuto el programa sale el siguiente error:\n\nApplication\n===========\n   Path and name: E:\\SysPrg\\Bin\\SISPER.exe (32 bits)\n   Size: 1,522,176 bytes\n   Time from start: 0 hours 0 mins 25 secs \n   Error occurred at: 29/08/2006, 16:05:13\n   Error description: Error BASE/1004  Message not found: TGET:BUSCAKEY\n\nEsta asumiendo que el metodo buscakey() pertenece a la clase TGET, despues de tanto probar hice los siguiente cambios\n\n1. \noTbrw:=self\n\nredefine get ::oGetCod VAR ::xCodigo ID ::oId_Find[1] of ::oPags:aDialogs[1] picture ::cPcod ;\n                on change (buscakey(self,oTbrw))\n\n2.\n\nStatic Function Buscakey(oGet,Tbrw)\n  .......\n\nY con estos cambios el programa funciona correctamente ya que en BuscaKey necesito la Data de oGet y de Tbrw.\n\nPREGUNTA: Hay alguna manera de poder utilizar el metodo y no una funcion. Utilizo FW2.5 Harbour 45 y BCC55.\n\nSaludos\n\nManuel Nieves\nPiura-Perú','',0,'','3g9hgldr',1,0,'',783,0,0),(17973,4073,6,519,0,'88.16.13.157',1156888173,1,0,1,1,1,0,'','','Manuel\n\n local  oThis:=self\n\n  \nredefine get ::oGetCod VAR ::xCodigo ID ::oId_Find[1] of ::oPags:aDialogs[1] picture ::cPcod ; \non change (oThis:buscakey())','',0,'','1tbjlnbo',1,0,'',519,0,0),(17974,4070,3,780,0,'82.61.166.173',1156889164,1,0,1,1,1,0,'','reinaldo a good ip monitor give us a gread hand.','I worked with socket.\nMy FiveWin WebServer, have 4 years of work and give me 0 problems. All maked with fivewin class with few modify.\nI am satisfied from this tecnology in Fivewin.\nBut prior of write a software for network, you have installed a network monitor?.\nElse, in some case, you not succeed to find the problem, and you do not succeed to see how the net works. \nEven if studies 100 books of tcpip, not are nothing better than an IP monitor.\nYou may be to see the network trafic in and out of your computer, the dialog with the server ecc ecc.\n\nI try the ip monitor at <!-- m --><a class=\"postlink\" href=\"http://www.networkactiv.com/\">http://www.networkactiv.com/</a><!-- m --> \nI use it from 3 year.\nTest it you can resolve many problem.\n\nBest Regards\n\nEduardo Freni','',0,'','2poimdj4',1,0,'',780,0,0),(17975,3953,3,780,0,'82.61.166.173',1156890350,1,0,1,1,1,0,'','Milan','There are developers, they have made product ad hoc.  \n\nI have developed a my system that use in my programs.  But in order not to sell it to other developers, but for my customers.    \n\nI do not want to make competition to other colleagues, who live with this products.    \n\nFor this withdrawal the availability to giving my sources to others. \nIn order not to damage who has worked on preview and pdf generation, for fivewin.    \n\nI work, and continuous to work with crystal report, with, with excellent press.    \n\nBut I do not want to disappoint to you, if you want, I send you sources of the program in visual basic, that it preview the report, with generation of xls, pdf, doc, rtf file and print.\n\nWrite to me in private\n\nBest regards\n\nEduardo Freni','',0,'','38asepw6',1,0,'',780,0,0),(17976,4064,6,2,0,'87.218.146.85',1156894196,1,0,1,1,1,1,'','','Javier,\n\nAqui tienes uuid.lib:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0283449120/uuid.lib.html\">http://hyperupload.com/download/0283449 ... d.lib.html</a><!-- m -->','',0,'','bd4f5c9o',1,0,'',2,0,0),(17977,4065,19,2,0,'87.218.146.85',1156894670,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://download.windowsvista.com/preview/prerc1/en/download.html\">http://download.windowsvista.com/previe ... nload.html</a><!-- m -->','',0,'','2rnmclxi',1,0,'',2,0,0),(17978,4065,19,2,0,'87.218.146.85',1156894785,1,0,1,1,1,1,'','','Its working really nicely:\n[url=http&#58;//imageshack&#46;us:2rkcr7fr][img:2rkcr7fr]http&#58;//img208&#46;imageshack&#46;us/img208/7818/fernandole9&#46;jpg[/img:2rkcr7fr][/url:2rkcr7fr]','',0,'GA==','2rkcr7fr',1,0,'',2,0,0),(17979,3972,7,778,0,'201.15.78.132',1156895336,1,0,1,1,1,0,'','MSqlMobile','Olá Antonio\n\ntestei a troca dos STRING por LPSTR e infelizmente não funcionou...\nAlguma outra idéia ?\n\nSaludos\n\nMauro','',0,'GA==','hf70keea',1,0,'',778,0,0),(17980,4070,3,299,0,'24.233.172.101',1156896775,1,0,1,0,1,0,'','','Eduardo;\n\nThank you.  I will try it.\n\nReinaldo.','',0,'GA==','2zswxbic',1,0,'',299,0,0),(17981,4070,3,303,0,'72.199.41.171',1156900228,1,0,1,1,1,0,'','','Reinaldo,\n\nOK, I guess I just didn\'t wait 30 seconds. I tried again and waited longer (my original code). I found the trace.log and I also looked at my firewall log. Here are the results:\n\nTrace Log\n08/29/06 17:59:22: Connect	Socket handle:      1892	\n08/29/06 17:59:22: Connected to ip:192.168.0.101	\n\n---------------\nSymantec Personal Firewall log\nConnection: 192.168.0.102: 4095.\nto MATRIX(192.168.0.101): netbios-ssn(139).\n4 bytes sent.\n660 bytes received.\n3.144 elapsed time.\n\nIt seems that the firewall claims my computer \"Matrix IP address 192.168.0.101) connected to itself, however, the firewall log says it created a new address 192.168.0.102. I don\'t know if this info is of any help.\n\nJames','',0,'GA==','9r82l7qo',1,0,'',303,0,0),(17982,4074,7,215,0,'201.144.63.166',1156900293,1,0,1,1,1,0,'','PDA y la competencia nos lleva ventaja.','Hace un año nos reunimos Juan Carlos Salinas (El Papá del Verce) y Yo para una comida y platicar algo de programación. En aquellos dias el llevaba consigo una Palm si no mal recuerdo. ¿Para que sirve eso?. Pregunte Yo.\nLo podría usar un médico y llevar el historial del paciente contesto.\nPues yo no le veo ninguna utilidad a esa cosa. Dije yo.\n\nHace unos meses, un cliente pregunta si podría tener los Códigos Postales de la CD de México. Pues si, pero le sugiero primero pruebe unos ejemplos que tengo para ver si funciona el pocket usted tiene.\n\nBaje los ejemplos de la página de fivetech y... crash !!!. En la pocket  donde el cliente lo ejecutó, NO funcionó (La pocket que él tiene es muy vieja). Sugiero se compre una con windows mobile de preferencia que tenga el mobile 2005.\n\nRecordarán no hace mucho, Antonio liberó la versión 1.0 de fivewin para pocket. Solicité algunos ejemplos de para que sirve esto. Algunos me contestaron y el trabajo que hacen es I M P R E S I O N A N T E \n\"Parece que después de todo si se puede hacer algo con estos aparatos\"  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nHace una semana, el mismo cliente me presume el encargo de una flamente aplicación hecha para pocket que ha encargado a no se quien de una universidad. Vaya... vamos a investigar más en serio que es esto. \n\nHace una semana comenzé a leer cuanta información había acerca de las PDAs, pocket, smartphone... fivewin para pocket, la solución de microsoft y algunos extraños lenguajes como Waba que sirve para programar PDAs.\nA estas alturas conozco proveedores, cuanto cuestan y lo que podría hacer con ellas. Bendito  Internet que todo lo tiene y que me permite ganarme algunos dolares. Muchas llamadas a proveedores y visitas a centros de Telcel, tianguis y preguntando a conocidos.\n\nEcontré que las PDAs ya se usan en restaurantes... Ahora sí tengo claro que utilidad tienen estas cosas y lo costoso que pueden ser las soluciones.... pués a cobrar dinero que para eso programamos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\n<!-- m --><a class=\"postlink\" href=\"http://www.pdamexico.net/content/view/1188/46/\">http://www.pdamexico.net/content/view/1188/46/</a><!-- m -->\n\nDicha idea de usar PDAs en el restaurante no es única, desde hace mucho que se usan en SlopyJoe´s (una pizzeria bastante famosa de Sevilla) y una Solución PDA peruana para restaurantes gana premio de APEC La solución móvil \"PDA Gourmet\" obtuvo un premio por la mejor solución móvil para PDA. Tonssss, ¿Qué esperamos para reclamar nuestro pedazo de pasteeeel ??\n\nSi, ya lo sé. Son PDAs, pero se puede hacer con pockets tambien. Ahí es donde entra Fivewin para pocket.\n\nHoy por la mañana fuí a desayunar con mi esposa al Vips que se encuentra en Lomas Estrella. Sorpresa, la solución para restaurante señalada en <!-- m --><a class=\"postlink\" href=\"http://www.pdamexico.net/content/view/1188/46/\">http://www.pdamexico.net/content/view/1188/46/</a><!-- m -->   está instalada en el Vips. La mesera que nos atendió nos platico que ya tienen una semana con el programa y funciona bastente bien.\n\nAl pagar en caja, le pregunte a la supervisora acerca del programa. Dice que ya fué instalado en varios Vips, y en esa sucursal tiene una semana. Ahora es más rápido atender a los clientes... \"Antes, teníamos que anotar en la libreta lo que el cliente solicita, después ir a la terminal y capturar el pedido. Darse unas vueltas por la cocina a ver si ya estaba el pedido... ahora desde el momento que levantamos la orden ya se está procesando el pedido.\"\n\nGracias.\nDe paso me compré un libro más de Robert Kiyosaki. \"El Cuadrante del Flujo de Dinero\"\n\nSaludos\nLarga vida a Fivewin... y a Microsoft. Sino, ¿Donde se ejecutarían mis programas?\nFernando','',0,'GA==','1ntu90q5',1,0,'',215,0,0),(17983,4031,3,303,0,'72.199.41.171',1156901732,1,0,1,1,1,0,'','','Eduardo,\n\nThanks for the kind words.\n\nHere is an example of how to get the contents of a GET including the last keystroke.\n\nJames\n\n\n[code:2s5n0ao3]// Testing getting GET buffer including lastkeystroke\n\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main\n   local oDlg,oGet,cTest&#58;=space&#40;10&#41;\n   define dialog oDlg\n   @ 1,1 get oGet var cTest\n   oGet&#58;bChange&#58;=&#123;|nKey| oDlg&#58;setText&#40;getData&#40;oGet,nKey&#41;&#41; &#125;\n   activate dialog oDlg\nreturn nil\n\n\nFunction getData&#40;oGet,nKey&#41;\n   Local cBuffer &#58;= oGet&#58;oGet&#58;Buffer\n   Local cChar&#58;= if&#40;nKey==VK_BACK,&quot;&quot;,chr&#40;nKey&#41;&#41;\n\n   if nKey&lt;&gt;VK_RETURN\n      cBuffer&#58;= Stuff&#40;cBuffer, oGet&#58;nPos, 1, cChar &#41;\n   endif\n\n   // Now cBuffer contains the last char typed\n\nreturn cBuffer[/code:2s5n0ao3]','',0,'AIA=','2s5n0ao3',1,0,'',303,0,0),(17984,4070,3,299,0,'24.233.172.101',1156902327,1,0,1,0,1,0,'','','James;\n\nThank you for the reply.  \n\nRegarding sockets, there seems to be more than what meets the eye or the obvious.  Indeed you do have a socket connection.  Although no real communication will ever occur, the socket client is up and \"working\".\n\nI\'ve had to just disregard, for now, certainty of a true connection to a listening port and proceed by faith with data sends and expect replys.  If no acknoledgement is received with the expected acceptance message, then simply display an error message to alert the user.  Interestingly enough I do get the expected answers from 98.19.1.4 although Tsocket:cipAddr contains the ip of the client computer where my app is running instead of the expected 98.19.1.4.\n\nPerhaps I\'m the last to find out that the notion of sockets is a very interesting subject at the very least.  Think of the capabilities.  You can actually have instruments (hardware) and different pieces of software speaking to each other.  You could have a tsocket server listening on your client\'s server for messages from your own software to perform...  the possibilities are endless.  AMOF, no more RS232.\n\nAt this very moment I\'m uploading pathological transcriptions results up to a main frame where doctors can connect to and view clinical histories of patients.   At this moment I\'m not totally happy with the way it is working for the reasons I explained above.  But it is working nevertheless.\n\n\nReinaldo.','',0,'AIA=','3608xen5',1,0,'',299,0,0),(17985,4070,3,32,0,'168.209.98.42',1156909557,1,0,1,1,1,0,'','Sockets','Hi,\n\nOne thing I found is that when the connection doesn\'t connect, the connect event still fires, but oSocket:ClientIP() returns \"0.0.0.0\"\n\noSocket:cIPAddr is always your own address, as set by\n\n   ::cIPAddr  = GetHostByName( GetHostName() )\n\nin the new method.\n\nHTH\'s\n\nAlex','',0,'AIA=','3qz1epv2',1,0,'',32,0,0),(17986,3995,3,32,0,'168.209.98.42',1156910430,1,0,1,1,1,0,'','SMTP Authentication','Hi,\n\nWe successfully do \"plain\" (mime encoded) authentication.\n\nBelow an extract from our modified smtp class:\n\n[code:1ugg9y92]\n#define ST_INIT       0\n#define ST_CONNECTED  1\n#define ST_RESET      2\n#define ST_MAILFROM   3\n#define ST_RCPTTO     4\n#define ST_DATA       5\n#define ST_SENT       6\n#define ST_QUIT       7\n#define ST_DONE       8\n#define ST_ERROR      9\n// AS 08/09/2005 New status code for authentication\n#define ST_AUTH       10\n\n\n  &#58;&#58;lSimpleSMTP              &#58;= file&#40;FixPath&#40;cExepath&#40;&#41;&#41; + &quot;HELOSMTP&#46;MSG&quot;&#41;\n\n\nMETHOD OnRead&#40; oSocket &#41; CLASS qSmtp\n  /*\n   Handles receiving data from the mail server and responding to it\n\n  */\n\n  Local cData                &#58;= oSocket&#58;Getdata&#40;&#41;\n  Local n                    &#58;= 0\n  Local nCount               &#58;= 0\n  Local nStop                &#58;= 0\n  Local cCC                  &#58;= &quot;&quot;\n  Local cReply               &#58;= left&#40;cData, 3&#41;\n  Local nPos                 &#58;= 0\n  Local cTempFileTemplate    &#58;= &quot;&quot;\n  Local cTempMimeFile        &#58;= &quot;&quot;\n  Local aMimeFiles           &#58;= &#123;&#125;\n  Local cMailHeader          &#58;= &quot;&quot;\n  Local cNextPartHeader      &#58;= &quot;&quot;\n  Local cTempMsgMimeFile     &#58;= &quot;&quot;\n  Local lMultiPart           &#58;= &#46;f&#46;\n  Local lHtmlMsg             &#58;= &quot;&quot;\n  Local lHtmlMsgFile         &#58;= &quot;&quot;\n  Local nNow                 &#58;= 0\n\n    // PK 29/08/2005\n  Local nRemSeconds          &#58;= 0\n  // Buffer received data, as you do not necessarily receive all the server data in one go e&#46;g&#46;\n  &#58;&#58;cReceived                += cData  // cReceived is built up until it is a complete server response\n\n  // Pull out full lines received\n  Do While at&#40;CRLF, &#58;&#58;cReceived&#41; &gt; 0\n    nPos                     &#58;= at&#40;CRLF, &#58;&#58;cReceived&#41;\n\n    // Build up an array of all the server replies\n    aadd&#40;&#58;&#58;acReply, left&#40;&#58;&#58;cReceived, nPos - 1&#41;&#41;\n\n    &#58;&#58;cReceived              &#58;= substr&#40;&#58;&#58;cReceived, nPos + 2&#41;\n  Enddo\n\n  // Has closing line been received i&#46;e&#46; full reply from server &#40;may come in dribs and drabs&#41;\n  If substr&#40;atail&#40;&#58;&#58;acReply&#41;, 4, 1&#41; == &quot; &quot;\n    // We now have the full server response, now process it&#46;\n    // AS 08/09/2005\n    cReply                   &#58;= substr&#40;atail&#40;&#58;&#58;acReply&#41;, 1, 3&#41;\n\n    If &#58;&#58;lLog\n      // AS 08/09/2005\n      aeval&#40;&#58;&#58;acReply, &#123;|pcReply| LogFile&#40;&#58;&#58;cLogFile, &#123;&quot;SERVER&#58; &quot; + pcReply&#125;&#41;&#125;&#41;\n//      LogFile&#40;&#58;&#58;cLogFile, &#123;&quot;MAILSERVER &#40;Status = &quot; + NTRIM&#40;&#58;&#58;nStatus&#41;+&quot;&#41;&#58; &quot; + cReply&#125;&#41;\n    Endif\n\n    Do Case\n      Case &#58;&#58;nStatus == ST_INIT\n        If cReply == &quot;220&quot; // Server acknowleges connection\n\n          // Send helo and hop to next status\n          &#58;&#58;nStatus          &#58;= ST_CONNECTED\n          // AS 20/01/2006\n          If &#58;&#58;lSimpleSMTP\n           &#58;&#58;SendData&#40;&quot;HELO &quot; + strtoken&#40;&#58;&#58;cFrom, 2, &quot;@&quot;&#41; + CRLF &#41;\n          Else\n            // AS 08/09/2005 Enhanced response request &#40;causes server to list capabilities, and requirements&#41;\n           &#58;&#58;SendData&#40;&quot;EHLO &quot; + strtoken&#40;&#58;&#58;cFrom, 2, &quot;@&quot;&#41; + CRLF &#41;\n          Endif\n\n          If &#58;&#58;bConnected != nil\n              eval&#40; &#58;&#58;bConnected &#41;\n          Endif\n        Else\n          &#58;&#58;Failure&#40;atail&#40;&#58;&#58;acReply&#41;&#41;\n        Endif\n\n\n      Case &#58;&#58;nStatus == ST_CONNECTED\n        // We are connected\n\n        Do Case\n          Case cReply == &quot;250&quot; // Server happy\n            // Send mail from and hop to next status\n\n            // AS 08/09/2005 Check if authentication is indicated in the reply, and see if our supported method of authentication is accepted\n            //\n            If &#40;nPos &#58;= ascan&#40;&#58;&#58;acReply, &#123;|pcReply| left&#40;pcReply, 8&#41; == &quot;250-AUTH&quot;&#125;&#41;&#41; &gt; 0 ;\n                &#46;and&#46; !empty&#40;&#58;&#58;cEmailUser&#41;   // PK 03/10/2005, only try authenticate if a user name is setup\n              // We need to authenticate, but can we handle it?\n              If at&#40;&quot;LOGIN&quot;, &#58;&#58;acReply&#91;nPos&#93;&#41; &gt; 0\n                // We can do it\n                // AS 22/09/2005 Check if we have user name and password\n                If empty&#40;&#58;&#58;cEmailUser&#41; &#46;or&#46; empty&#40;&#58;&#58;cEmailPassword&#41;\n                  &#58;&#58;Failure&#40;&quot;The email server requires authentication, but the user name and/or password are blank&#46;&quot;&#41;\n                Else\n                  &#58;&#58;cAuthType     &#58;= &quot;LOGIN&quot;\n                  &#58;&#58;nStatus  &#58;= ST_AUTH\n                  &#58;&#58;SendData&#40;&quot;AUTH LOGIN&quot; + CRLF&#41;\n                Endif\n              Else\n                &#58;&#58;Failure&#40;&quot;Unsupported authentication method&quot;&#41;\n              Endif\n            Else\n              // Previous code\n              &#58;&#58;nStatus      &#58;= ST_MAILFROM\n              &#58;&#58;SendData&#40;strtran&#40; &quot;MAIL FROM&#58;&lt;%&gt;&quot;, &quot;%&quot;, &#58;&#58;cFrom &#41; + CRLF &#41;\n              &#58;&#58;nTo          &#58;= 1    // First recipient index to send mail to\n            Endif\n          // AS 20/01/2006 Cater for servers not understanding EHLO command\n          Case cReply == &quot;500&quot; // Server said &quot;Say what?&quot;\n            If !&#58;&#58;lSimpleSMTP\n              // Try Simple SMTP\n              &#58;&#58;lSimpleSMTP  &#58;= &#46;t&#46;\n              &#58;&#58;SendData&#40;&quot;HELO &quot; + strtoken&#40;&#58;&#58;cFrom, 2, &quot;@&quot;&#41; + CRLF &#41;\n            Else\n              // Simple failed\n              &#58;&#58;Failure&#40;atail&#40;&#58;&#58;acReply&#41;&#41;\n            Endif\n          Otherwise\n            &#58;&#58;Failure&#40;atail&#40;&#58;&#58;acReply&#41;&#41;\n        Endcase\n\n      // AS 08/09/2005 Manage authentication\n      Case &#58;&#58;nStatus == ST_AUTH\n        Do Case\n          Case cReply == &quot;334&quot;\n            Do Case\n              Case &#58;&#58;cAuthType == &quot;LOGIN&quot;\n                // We\'re logging in\n                If !&#58;&#58;lSentUser\n                  &#58;&#58;lSentUser     &#58;= &#46;t&#46;\n                  &#58;&#58;SendData&#40;cmimeenc&#40;alltrim&#40;&#58;&#58;cEmailUser&#41;&#41; + CRLF&#41;\n                Else\n                  If !&#58;&#58;lSentPassword\n                    &#58;&#58;lSentPassword    &#58;= &#46;t&#46;\n                    &#58;&#58;SendData&#40;cmimeenc&#40;alltrim&#40;&#58;&#58;cEmailPassword&#41;&#41; + CRLF&#41;\n                  Endif\n                Endif\n            Endcase\n          Case cReply == &quot;235&quot;\n            // Authentication OK\n            &#58;&#58;nStatus        &#58;= ST_MAILFROM\n            &#58;&#58;SendData&#40;strtran&#40; &quot;MAIL FROM&#58;&lt;%&gt;&quot;, &quot;%&quot;, &#58;&#58;cFrom &#41; + CRLF &#41;\n            &#58;&#58;nTo            &#58;= 1    // First recipient index to send mail to\n          // PK 22/09/2005\n          // CASE cReply == &quot;501&quot;\n          Case cReply == &quot;501&quot; &#46;or&#46; left&#40;cReply, 3&#41; == &quot;535&quot;\n            // Authentication failure\n            &#58;&#58;Failure&#40;&quot;Authentication failure&quot;&#41;\n          Otherwise\n            &#58;&#58;Failure&#40;atail&#40;&#58;&#58;acReply&#41;&#41;\n        Endcase\n[/code:1ugg9y92]','',0,'AIA=','1ugg9y92',1,0,'',32,0,0),(17987,4057,3,32,0,'168.209.98.42',1156911878,1,0,1,1,1,0,'','','To convert numbers, you can use the following functions:\n\n[code:22g3rj6w]Function Dec2x&#40;pnNo, pnBase&#41;\n\n  Local cRetVal              &#58;= &quot;&quot;\n  Local nCount               &#58;= 0\n  Local acDigits             &#58;= &#123;&quot;0&quot;, &quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;, &quot;7&quot;, &quot;8&quot;, &quot;9&quot;&#125;\n  Local nNo                  &#58;= 0\n\n  For nCount &#58;= 65 to 65 + pnBase - 11\n    aadd&#40;acDigits, chr&#40;nCount&#41;&#41;\n  Next\n\n  For nCount &#58;= 7 to 0 step - 1\n    nNo                      &#58;= int&#40;pnNo / &#40;pnBase**nCount&#41;&#41;\n    If nNo &gt; 0 &#46;or&#46; !empty&#40;cRetVal&#41;\n      cRetVal                += acDigits&#91;nNo + 1&#93;\n\n      pnNo                   -= nNo * pnBase**nCount\n    Endif\n  Next\n\nReturn cRetval\n\n//------------------------------------------------------------------------------------------------------//\nFunction x2dec&#40;pcNo, pnBase, plNoWarningMsg&#41;\n\n  Local nRetVal              &#58;= 0\n  Local nPos                 &#58;= 0\n  Local acDigits             &#58;= &#123;&quot;0&quot;, &quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;, &quot;7&quot;, &quot;8&quot;, &quot;9&quot;&#125;\n  Local nCount               &#58;= 0\n  Local nStop                &#58;= 0\n  Local cDigit               &#58;= &quot;&quot;\n\n  DEFAULT plNoWarningMsg     TO &#46;t&#46;\n\n  For nCount &#58;= 65 to 65 + pnBase - 11\n    aadd&#40;acDigits, chr&#40;nCount&#41;&#41;\n  Next\n\n  nStop                      &#58;= len&#40;pcNo&#41;\n  For nCount &#58;= 1 to nStop\n    cDigit                   &#58;= substr&#40;pcNo, nStop - nCount + 1, 1&#41;\n\n    nPos                     &#58;= ascan&#40;acDigits, cDigit&#41;\n\n    If nPos &gt; 0\n      nRetval                += &#40;nPos - 1&#41; * &#40;pnBase ** &#40;nCount - 1&#41;&#41;\n\n    Elseif !plNoWarningMsg\n      // pk 20/9/2002 msginfo&#40;&quot;Invalid number &quot; + pcNo + &quot; &quot; + alias&#40;&#41; + &quot; &quot; + NTRIM&#40;recno&#40;&#41;&#41;&#41;\n      msginfo&#40;&quot;Warning - function x2dec&#40;&#41;, invalid parameter value &quot; + pcNo, &quot;Warning&quot;&#41;\n\n    Endif\n\n  Next\n\n  nRetval                    &#58;= int&#40;nRetval&#41;\n\nReturn nRetval\n[/code:22g3rj6w]\n\nAnd for the registry part\n\n[code:22g3rj6w]\n\n#define HKEY_CURRENT_USER   -2147483647  // 2147483649\n\noReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\explorer&quot;&#41;\n\noReg&#58;Set&#40;&quot;NoDrives&quot;, ltrim&#40;str&#40;&#40;nNumber&#41;&#41;&#41;\n\noReg&#58;End&#40;&#41;\n\n[/code:22g3rj6w]\n\nNot sure how to set the entry type though','',0,'AIA=','22g3rj6w',1,0,'',32,0,0),(17988,4075,6,391,0,'205.160.32.38',1156916124,1,0,1,1,1,1,'','Requiero consejo . Que browse usar','Amigos.\n\nEstoy migrando a fivewin, en este momento necesito definir la implementación de un buen browse. Ya conozco el txbrowse, el de fivewin y el de ozlib, pero quiero conocer experiencias o recomendaciones de otros browse y donde los puedo ubicar.\n\n\nGracias.','',0,'AIA=','3krnugjj',1,0,'',391,0,0),(17989,4076,6,28,0,'213.27.201.254',1156916759,1,0,1,1,1,0,'','Manejo zips con Harbour','Hola a todos\n\nYa que hbzip.lib no esta disponible en Harbour, ¿alguien sabe de alguna DLL para sustituir a esta librería, osea, alguna DLL para hacer lo mismo que haciamos en 16 bits?\n\nGracias.','',0,'AIA=','1cm7z7ty',1,0,'',28,0,0),(17990,4057,3,58,0,'84.149.246.96',1156921318,1,0,1,1,1,0,'','','Silvio,\n\nhere a small function for getting the numeric value for hiding drives.\n\n[code:32079zvi]PROCEDURE Main&#40;&#41;\n   cls\n\n   ? nDriveNum&#40; &quot;EDA&quot; &#41; // getting number to hide drives E, D and A\n   ?\nRETURN\n\n/////////////////////////////\nFUNCTION nDriveNum&#40; cDrives &#41;\n/////////////////////////////\nLOCAL nRet &#58;= 0\nLOCAL n    &#58;= 0\n\n\n\n   for n &#58;= 1 to len&#40; cDrives &#41;\n      nRet += 2 ^&#40; asc&#40; upper&#40; substr&#40; cDrives, n, 1 &#41; &#41; &#41; - 65 &#41;\n   next\n\nRETURN&#40; int&#40; nRet &#41; &#41;\n[/code:32079zvi]\n\nYou just have to call this function with a string containing the drive letter(s) you want to hide.\n\nHTH,\nregards,\nDetlef\n\nP.S. my recent example for hiding drives \'E\' and \'D\' was wrong.\nThe value should have been 24.','',0,'AIA=','32079zvi',1,0,'',58,0,0),(17991,4077,6,123,0,'83.56.202.4',1156922755,1,0,1,1,1,0,'','Crystal Reports y tActiveX','Hola,\n\nEstoy a ver si utilizo el control OCX \"Crystal.CrystalReport\" con la clase tActiveX pero no se por cuales motivos, en vez de mostrarme el informe aparece un botoncito <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEste es el trozo de código que utilizo:\n\n[code:osiytzn4]METHOD Pruebas&#40;&#41; CLASS tMante_Vendedor\n\n       LOCAL tReport\n\n       tReport &#58;= tActiveX&#40;oApp&#58;oDlg, &quot;Crystal&#46;CrystalReport&quot;&#41;\n       tReport&#58;SetProp&#40;&quot;WindowParentHandle&quot;,oApp&#58;oDlg&#58;hWnd&#41;\n       tReport&#58;SetProp&#40;&quot;ReportFileName&quot;,&quot;R&#58;\\informesluis\\listadomovalmacen&#46;rpt&quot;&#41;\n       tReport&#58;SetProp&#40;&quot;WindowTitle&quot;,&quot;Listado de movimientos de almacén&quot;&#41;\n       tReport&#58;Do&#40;&quot;Action&quot;,1&#41;\n\n\nRETURN NIL[/code:osiytzn4]\n\nDonde oApp:oDlg es la ventana donde quiero que aparezca el informe.\n\n¿Qué más me falta para que se visualice correctamente?\n\nGracias por vuestra ayuda.\nJosé Luis Capel','',0,'AIA=','osiytzn4',1,0,'',123,0,0),(17992,4057,3,49,0,'62.13.172.78',1156926003,1,0,1,1,1,1,'','','thanks for all\n I will make treasure of your instructions ...\n\n\nDear alex thanks\n\nDear Detlef Hoefner,\nyou sad to put  \"4\" on variable Nodrives ..\nI open regedit and insert 4 on nodrives  the f5 to update \nthen I saw it not run because I can see hard disk C \nIs it possible that number 4 is wrong ?.','',0,'AIA=','1bcmosrm',1,0,'',49,0,0),(17993,4057,3,49,0,'62.13.172.78',1156927066,1,0,1,1,1,1,'','','look this and try ( i havewin xp professional :\n[code:s5brklw0]\n#INCLUDE &quot;fivewin&#46;ch&quot;\n\n  #define HKEY_CURRENT_USER   -2147483647  // 2147483649\n\nPROCEDURE Main&#40;&#41; \n   cls \n\n   ? nDriveNum&#40; &quot;C&quot; &#41; // getting number to hide drives E, D and A\n   ?\n   registra&#40;nDriveNum&#40; &quot;C&quot; &#41;&#41;\nRETURN\n\n/////////////////////////////\nFUNCTION nDriveNum&#40; cDrives &#41;\n/////////////////////////////\nLOCAL nRet &#58;= 0\nLOCAL n    &#58;= 0\n\n\n\n   for n &#58;= 1 to len&#40; cDrives &#41;\n      nRet += 2 ^&#40; asc&#40; upper&#40; substr&#40; cDrives, n, 1 &#41; &#41; &#41; - 65 &#41;\n   next\n\n   RETURN&#40; int&#40; nRet &#41; &#41;\nFUNCTION registra&#40;nNumber&#41;\n\n\noReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\explorer&quot;&#41;\n\noReg&#58;Set&#40;&quot;NoDrives&quot;, nNumber&#41;\n\noReg&#58;Close&#40;&#41;\n\nRETURN nil\n[/code:s5brklw0]\n\nit insert number 4 on regedit but when I open explorer I can see hard disk C why ?','',0,'AIA=','s5brklw0',1,0,'',49,0,0),(17994,4057,3,32,0,'168.209.98.42',1156928101,1,0,1,1,1,0,'','','According to one web site, you need to restart windows\n\nGoogle is your friend <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.winguides.com/registry/display.php/148/\">http://www.winguides.com/registry/display.php/148/</a><!-- m -->','',0,'AIA=','1o5p44kg',1,0,'',32,0,0),(17995,4057,3,49,0,'62.13.172.78',1156933348,1,0,1,1,1,1,'','','I cannot restart windows\nthere is a possibility to restart using an function ?\nIf I restart the program ?\nit must be made without restart window ...then If I want to show disc C I must restart window...','',0,'AIA=','19k62acp',1,0,'',49,0,0),(17996,4057,3,49,0,'62.13.172.78',1156933425,1,0,1,1,1,1,'','','Exist a function in FW/xHARbour to Restart window\'s registry  for the change to take effect without  erestart window ?','',0,'AIA=','1213p3hu',1,0,'',49,0,0),(17997,4057,3,58,0,'84.149.236.224',1156936868,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:3handd0z]I cannot restart windows\nthere is a possibility to restart using an function ?\nIf I restart the program ?\nit must be made without restart window ...then If I want to show disc C I must restart window...[/quote:3handd0z]\n\nSilvio,\n\nthere is no need to restart Windows.\nThe drives should be immediatelly hidden.\nYou only have to refresh the Explorer.\n\nNow the bad news: the FiveWin class treg32 seems not to be able writing REG_BINARY key values.\nYou can only write subkey values with type REG_DWORD and REG_SZ.\n\nAntonio, am i right ?\n\nSorry Silvio, can\'t help you further.\nRegards,\nDetlef','',0,'gA==','3handd0z',1,0,'',58,0,0),(17998,4075,6,147,0,'200.45.54.133',1156939111,1,0,1,0,1,1,'','','De la sección Utilidades, el browse de Hernána Checarelli.\n\n[u:23hdqc64]http://fivetechsoft.com/forums/viewtopic.php?t=2502[/u:23hdqc64]','',0,'AQ==','23hdqc64',1,0,'',147,0,0),(17999,4078,3,781,0,'201.43.156.143',1156942111,1,0,1,1,1,0,'','Painting browse cells','Dear Friends,\n\n   After hardly trying, I could\'nt find a way to paint [b:18dh9hcj]each [/b:18dh9hcj] individual cell of an Fw Browse... The class simply haven\'t got an especific method to do that... In spite of it\'s methods can paint a column or a row, there\'s no  way to  paint only[b:18dh9hcj] one[/b:18dh9hcj] cell!\nI\'ve asked the same question in brazilian fw forum and they told me to try the TsBrowse Class, but I could not compile it using FWH 2.7 + xHarbour 0.99.1...\n\nCan someone here help me to solve this issue?\n\nBest Regards,\n\nGuilherme J. S. Gonçalves\nCampinas - SP - Brasil','',0,'QA==','18dh9hcj',1,0,'',781,0,0),(18000,2502,17,147,0,'200.45.54.133',1156942337,1,0,1,0,1,1,'','','Sería posible incluir el wbrwline.obj para 16bits?\nEsta version de wBrowse es compatible con 16bits?\n\nmuchas gracias','',0,'QA==','2z30wlmi',1,0,'',147,0,0),(18001,3995,3,781,0,'201.43.156.143',1156945140,1,0,1,1,1,0,'','','We use the Matteo Baccan internet classes for xharbour! \n\nIt works fine, and the source of the project is open.... You don\'t have to depend of dlls or libs.. Try this, I\'m sure you will not regret.\n\n[url:23jrs591]http&#58;//www&#46;baccan&#46;it[/url:23jrs591]\n\nThere you can download a zip format file that comes with the source and some samples, the class is called xHarbour TSocket (1.05) and it englobes other minor classes. Try looking at the TSmtp Class which allows you to use authentication and many other options.\nThe Matteo Baccan\'s website is unstable sometimes, so if you want I can send you the file by e-mail..\n\nBest regards..','',0,'EA==','23jrs591',1,0,'',781,0,0),(18002,4078,3,2,0,'87.218.146.94',1156945904,1,0,1,1,1,1,'','','Guilherme,\n\nIf you review source\\classes\\wbrowse.prg you will find at the bottom a static function wBrwLine() which is responsable for painting each line. \n\nIn its code, there is a loop where each cell is painted:\n[code:1pzofz61]\nfor n &#58;= nColPos to Len&#40; aValues &#41;\n  &#46;&#46;&#46; each cell is painted &#46;&#46;&#46;\nnext\n[/code:1pzofz61]','',0,'AIA=','1pzofz61',1,0,'',2,0,0),(18004,4065,19,217,0,'200.159.120.34',1156947784,1,0,1,1,1,0,'','','Antonio,\n\nCan you build any FWH samples under Vista and post any screens?\n\nRegards\nMaurilio','',0,'AIA=','28qmjvj0',1,0,'',217,0,0),(18007,4057,3,154,0,'151.80.9.178',1156948516,1,0,1,1,1,1,'','','Dear Silvio,\nI use:\n[code:1skbhyxd]   REGCREATEKEY&#40; HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer&quot;, @hKey &#41;\n   REGSETVALUE&#40; hKey, &quot;NoDrives&quot;, 0, REG_DWORD, L2BIN&#40; nVal &#41;, 4 &#41;\n   REGCLOSEKEY&#40; hKey &#41;\n[/code:1skbhyxd]\n\nWith nVal is the value for hidden drives.\nIs not necessary reboot windows.','',0,'AIA=','1skbhyxd',1,0,'',154,0,0),(18008,4057,3,49,0,'62.13.172.78',1156949205,1,0,1,1,1,1,'','','thanks but wich parameter you give to these:\n\n hKey\n REG_DWORD\nnval \nbecause it me give an error Variables does not exist','',0,'AIA=','2kvdwd3r',1,0,'',49,0,0),(18010,4057,3,49,0,'62.13.172.78',1156949262,1,0,1,1,1,1,'','','now run ok','',0,'AIA=','2dokzd2t',1,0,'',49,0,0),(18012,4078,3,781,0,'201.43.156.143',1156950862,1,0,1,1,1,0,'','','Thanks Antonio!\n\nAfter reviewing the source code I found that the variable \'nClrPane\' accepts a code block as its value.  Now I know exactly what I gotta do to make the cell painting....   \n\nBest Regards, \n\n\nObrigado,\nGuilherme J. S. Gonçalves\nCampinas - SP - Brasil','',0,'AIA=','j6y2l5pn',1,0,'',781,0,0),(18013,4079,7,720,0,'80.36.244.134',1156950875,1,0,1,1,1,0,'','Como cambiar color y tamaño de las fuentes....','Hola a todos...\n\nEsta pregunta será para muchos muy simples pero para los que empezamos con esto de fwppc se nos complica un poco...\nQuería saber como puedo cambiar el color, el tamaño,etc... de las etiquetas, es decir de los texto que me creo. \n\nUtilizo el Pelles C para crearme los recursos...\n\n\nUn saludo y gracias.\n\nElías Torres.','',0,'AIA=','3m983285',1,0,'',720,0,0),(18014,4057,3,190,0,'202.65.134.43',1156952003,1,0,1,1,1,0,'','','Hi all\n\nIn continuation of the subject, please post an example to show the hidden \ndrive(s) back.\n\nThanks in advance\n\n- Ramesh Babu P','',0,'AIA=','3hh74xck',1,0,'',190,0,0),(18015,4074,7,138,0,'201.128.111.188',1156953293,1,0,1,1,1,1,'','','Yo aprendi la leccion de la PDA hace mas de 7 años.\n\nDesde que tuve mi primer Palm IIIc, nunca mas he podido vivir sin PDA.\n\nCuando las PDAs comenzaron a volverse \"moviles\" es decir, cuando, podias tener una PDA conectada de una forma u otra, ya fuera a internet por medio de GPRS o por medio de WiFi, entonces comence a desarrolalr aplicaciones para PDA (Palm o PPC) que aun hoy le cortan la respiracion a mas de uno. De eso hace mas de 4 o 5 años, concomiento que he transmitido a varios clientes que hoy en dia trabajan felices con Palms, Pocket PC y Blackberries (este ultmo... una chulada).\n\nAhora con el FWPPC me estoy haciendo varios programitas para substituir algunos programitas que echo de menos del PALM, mi ultimo invento se llama PNotes (pronunciese pinuts, Peanuts, o cacahuates en Español) y es un software que sustituye al Notepad de Palm pero con muchas muchas nuevas caracteristicas, lo hice, porque la notas de PPC no me gustan y yo queria algo para tener organizadas mis notas.\n\nDefinitivamente hay un mercado muy importante en el tema de los PDAs y mas en el tema de la comunciacion movil, es cuestion de timepo para que todos tengamos un dispositivo movil Palm o PocketPC y no por gusto, sino por necesidad.\n\nEn Mexico se vienen cosas muy muy muy interesantes con respecto a los telefonos móviles, la primera sorpresa.... esperenla para el mes de Octubre....','',0,'AIA=','hzpqyxax',1,0,'',138,0,0),(18016,4075,6,138,0,'201.128.111.188',1156953374,1,0,1,1,1,1,'','','En mi opinion el browse de Hernán Diego Cecarelli es el mejor, el mas rapido y mas facilmente configurable.','',0,'AIA=','1ck69anf',1,0,'',138,0,0),(18017,4057,3,58,0,'84.149.236.224',1156953718,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:14idclfb]Hi all\n\nIn continuation of the subject, please post an example to show the hidden \ndrive(s) back.\n\nThanks in advance\n\n- Ramesh Babu P[/quote:14idclfb]\n\nDear Ramesh,\n\njust use a 0 ( zero ) and write it into the noDrives key.\n\nBest regards,\nDetlef','',0,'gA==','14idclfb',1,0,'',58,0,0),(18018,4080,3,49,0,'62.13.172.78',1156954442,1,0,1,1,1,1,'','Wich class I must use ?','Wich class I must use to have this type of buttons ?\n[url=http&#58;//img170&#46;imageshack&#46;us/my&#46;php?image=tastivj7&#46;jpg:1oob6vnq][img:1oob6vnq]http&#58;//img170&#46;imageshack&#46;us/img170/6586/tastivj7&#46;th&#46;jpg[/img:1oob6vnq][/url:1oob6vnq]\n\nThanks,','',0,'GA==','1oob6vnq',1,0,'',49,0,0),(18019,3488,6,52,0,'201.212.23.187',1156954509,1,0,1,1,1,1,'','','Gracias amigo.\n\nSirvio, \n\n[quote=&quot;oskar&quot;:wmy48f03]Gustavo haber si te sirve esto\n\nMain.prg\n[code:wmy48f03]#include &quot;Fivewin&#46;ch&quot;\n/*-----------------------------------------------------------------------------------------------*/\nFUNCTION Main&#40;&#41;\n   LOCAL oCpp\n   MsgInfo&#40; &quot;Hola Mundo desde xHarbour&quot; &#41;\n   MsgInfo&#40; MENSAJEC&#40;&#41; &#41;\n   MsgInfo&#40; MENSAJECPP&#40;&#41; &#41;\n   oCpp &#58;= CreateSample&#40;&#41;\n   ? SampleMostrar&#40; oCpp &#41;\n   RETURN NIL[/code:wmy48f03]\n\nTestc.c\n[code:wmy48f03]#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; MENSAJEC &#41;&#123;\n   hb_retc&#40; &quot;hola mundo desde c&quot; &#41;;\n&#125;[/code:wmy48f03]\n\nTestcpp.cpp\n[code:wmy48f03]#include &lt;hbapi&#46;h&gt;\n\nextern &quot;C&quot; HB_FUNC&#40; MENSAJECPP &#41;&#123;\n   hb_retc&#40; &quot;hola mundo desde c++&quot; &#41;;\n&#125;\n\nclass sample &#123;\n   public&#58;\n      int iValue;\n      sample&#40;&#41;;\n      mostrar&#40;&#41;;\n   &#125;;\n\n//------------------------------------------------------------------------------\n\nsample&#58;&#58; sample&#40;&#41; &#123;\n   iValue = 123;\n   &#125;\n\n//------------------------------------------------------------------------------\n\nsample&#58;&#58; mostrar&#40;&#41; &#123;\n   return iValue;\n   &#125;\n\nextern &quot;C&quot; HB_FUNC&#40; CREATESAMPLE &#41;&#123;\n   sample * p = new sample;\n   hb_retnl&#40; &#40; unsigned long &#41; p &#41;;\n&#125;\n\nextern &quot;C&quot; HB_FUNC&#40; SAMPLEMOSTRAR &#41;&#123;\n   hb_retni&#40; &#40; &#40; sample * &#41; hb_parnl&#40; 1 &#41; &#41; -&gt; mostrar&#40;&#41; &#41;;\n&#125;[/code:wmy48f03]\n\nsalu2[/quote:wmy48f03]','',0,'gIA=','wmy48f03',1,0,'',52,0,0),(18020,4080,3,61,0,'190.64.113.122',1156955649,1,0,1,1,1,0,'','','Silvio:\n\nIt\'s a FWH buttons Class:  ButtonBmp, There\'s samples at FWH\\Samples \n\nFrom July 2.7 or June they are available.\n\nBest regards\nSorry, my English is bad. \n\nRuben Fernandez','',0,'gIA=','11mcr86e',1,0,'',61,0,0),(18021,4075,6,152,0,'200.113.117.214',1156956290,1,0,1,1,1,1,'','','A proposito del Browse de Hernan, al avanzar por paginas solo se actualiza la linea seleccionada, sin embargo al retroceder pagina, funciona perfecto, es decir se actualiza toda la pagina. \nDonde puedo obtener la ultima TWBRW32.LIB.\n\nSaludos\nGonzalo\n\nFWH 2.7, Harbour, BCC55','',0,'gIA=','2cyrlt4k',1,0,'',152,0,0),(18023,4079,7,2,0,'87.218.146.94',1156957607,1,0,1,1,1,1,'','','Elías,\n\nEn samples\\Tutor06.prg tienes un ejemplo de cómo cambiarle el color al SAY de un diálogo:\n\nREDEFINE SAY ID 100 OF oDlg COLOR \"GR+/BG\"\n\nSi quisieras cambiarle el tamaño del font tambien, entonces harías:\n\nDEFINE FONT oFont NAME \"Verdana\" SIZE 0, -12\n\nREDEFINE SAY ID 100 OF oDlg COLOR \"GR+/BG\" FONT oFont\n\ny después de ACTIVATE DIALOG ...\n\noFont:End()  // para destruir el font','',0,'gIA=','1s29dj16',1,0,'',2,0,0),(18024,4076,6,61,0,'190.64.110.250',1156957751,1,0,1,1,1,0,'','','Paco:\n\nJuan Carlos Salinas Ojeda tenía algo hecho.\nQuizas puedas comunicarte con el.\nEste es el link de su página\n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\n\n\nsaludos\n\nRuben Fernandez.','',0,'gIA=','ufvua8rg',1,0,'',61,0,0),(18025,4057,3,190,0,'202.65.134.43',1156957890,1,0,1,1,1,0,'','','Dear Mr.Detlef\n\nThank you very much for your quick reply.\n\nPlease go through the following code and advise me where I am going\nwrong.\n\nWith the following code I did not get the expected result.\n\nPlease correct it to get the hidden drive to appear back.\n\nOnce again thank you very much.\n\n- Ramesh Babu P\n\n[quote:yo17msd2]\n#INCLUDE \"fivewin.ch\" \n\n#define HKEY_CURRENT_USER   -2147483647  // 2147483649 \n\nFUNCTION Main() \n\nregistra(0) \n\nRETURN nil\n\n\n*********\n\nFUNCTION registra(nNumber) \n\noReg := TReg32():New(HKEY_CURRENT_USER, \"Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\explorer\") \n\noReg:Set(\"NoDrives\", nNumber) \n\noReg:Close() \n\nRETURN nil \n \n**********\n[/quote:yo17msd2]\n\Z','',0,'gA==','yo17msd2',1,0,'',190,0,0),(18026,4081,6,61,0,'190.64.127.68',1156959264,1,0,1,1,1,0,'','Algun Browse - contraer, expandir (parecido a tree)','Amigos:\n\nHay alguna forma de mostrar un browse y que se pueda \nexpandir y contarer con 1 click o 2.\n(Parecido a un tree).\nAlgun ejemplo tambien, ya que estoy molestando, lo hago bien.    \n\nGracias.\n\nRuben Fernandez','',0,'gA==','d2famucz',1,0,'',61,0,0),(18027,4082,4,3,0,'82.255.254.132',1156960188,1,0,1,1,1,1,'','buildce and multiple prg','Hello\n\nDoes any one have a sample of using multiple prgs with fwppc ?\n\nDo we need a mak file or equivalent ?\n\nHow to change buildce ?\n\nThank\n\nRichard','',0,'gA==','2mgi0fbp',1,0,'',3,0,0),(18028,4065,19,2,0,'87.218.146.94',1156962740,1,0,1,1,1,1,'','','Amazing, yesterday it was open, today it is already closed:\n\n<!-- m --><a class=\"postlink\" href=\"http://download.windowsvista.com/preview/prerc1/en/download.html\">http://download.windowsvista.com/previe ... nload.html</a><!-- m -->','',0,'gA==','we6lofy6',1,0,'',2,0,0),(18029,3967,19,2,0,'87.218.146.94',1156962909,1,0,1,1,1,1,'','','We already removed \"clicksor\" adds as they do strange things...','',0,'gA==','1slz69kp',1,0,'',2,0,0),(18030,4057,3,58,0,'84.149.236.224',1156964413,1,0,1,1,1,0,'','','Dear Ramesh,\n\nas i already wrote, i fear that you can not write the desired values with the methods of class TReg32. At least i didn\'t succeed.\n\nI think you must use the WinApi functions as Ugo showed us.\n[code:2nj8x5vc]Ugo wrote&#58;\n\nREGCREATEKEY&#40; HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer&quot;, @hKey &#41;\nREGSETVALUE&#40; hKey, &quot;NoDrives&quot;, 0, REG_DWORD, L2BIN&#40; nVal &#41;, 4 &#41; \nREGCLOSEKEY&#40; hKey &#41; [/code:2nj8x5vc]\n\nHTH.\nBest regards,\nDetlef','',0,'AIA=','2nj8x5vc',1,0,'',58,0,0),(18031,4072,4,2,0,'87.218.146.94',1156964859,1,0,1,1,1,1,'','','Richard,\n\nThere is a new FWPPC build already available that implements IsExeRunning(). There is a working sample at samples\\CheckApp.prg','',0,'AIA=','3bxojrvn',1,0,'',2,0,0),(18032,4083,2,304,0,'201.155.7.216',1156964872,1,0,1,1,1,0,'','Tecla ESC en tBtnGet','Hola:\nAlguien sabe como hacer para que al darle ESC dentro de un BtnGet no se salga, lo que pasa es que dentro del programa la primera captura se hace sobre tBtnGet y darle ESC se cierra el programa, lo he intentado con clausula VALID pero aun asi se sale, alhguien tien alguna idea ??\n\nSAludos\nVeracruz, Ver. Mex','',0,'AIA=','1h78v85h',1,0,'',304,0,0),(18033,4076,6,110,0,'165.98.169.198',1156964931,1,0,1,1,1,1,'','','Paco\n\nEn portalfox existen detalles de un ocx gratuito para realizar rutinas pra comprimir y descomprimir de una forma sencilla, incluso existe ejemplos.\n\ncon un poqullo de maña sirve para fwh+harbour+ole lib\n\n\nsalu2\ncarlos vargas','',0,'AIA=','1xm0seux',1,0,'',110,0,0),(18034,4084,16,2,0,'87.218.146.94',1156965125,1,0,1,1,1,1,'','New FWPPC build / Nuevo build FWPPC','There is a new FWPPC build available to be downloaded. Please review its whatsnew.txt for its new features.\n\nHay un nuevo build de FWPPC listo para descargar. Por favor revisad whatsnew.txt para ver las novedades.','',0,'AIA=','cojg0f0q',1,0,'',2,0,0),(18035,4082,4,2,0,'87.218.146.94',1156965276,1,0,1,1,1,1,'','','Richard,\n\nThere is a working makefile at makes\\fwcemake.zip','',0,'AIA=','agr1fxr1',1,0,'',2,0,0),(18036,4085,2,304,0,'201.155.7.216',1156965469,1,0,1,1,1,0,'','Mensajes de error en FW','Alguien tiene o ha usado esta funcion:\n(estaba en la pagina PROMETHEUS)\n\nFW) FUNC ErrorSys() Bingen Ugaldebere\n \n    Modificación que permite imprimir el error, además cuenta con un detalle más detallado de la información de la PC. La información del error se guarda en una DBF en la carpeta .\\ERRORES y también se guarda la imagen con la pantalla del error. Incluye un utilitario FREE para convertir a JPG las imagenes en forma automática. \n\n b_errsys.zip 420.0 KB\n [Alternativo] \n \nEl problema es q ya no abre para bajarlo, y la idea de guardar los errores es muy buena, o alguien conoce otra forma de hacerlo ??','',0,'','xk7ewcoh',1,0,'',304,0,0),(18037,4037,2,2,0,'87.218.146.94',1156965561,1,0,1,1,1,1,'','','Manu,\n\nLa ventaja de los ficheros RC es que son ficheros ASCII que puedes modificar con cualquier editor de código/texto.','',0,'','26cd41on',1,0,'',2,0,0),(18038,4057,3,2,0,'87.218.146.94',1156965771,1,0,1,1,1,1,'','','Detlef,\n\n&gt;\nthe FiveWin class treg32 seems not to be able writing REG_BINARY key values. You can only write subkey values with type REG_DWORD and REG_SZ.\n&gt;\n\nWe are going to review it. Thanks for the feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2lkkic4q',1,0,'',2,0,0),(18039,4086,6,110,0,'165.98.169.198',1156966411,1,0,1,1,1,1,'','Codigo para repaldar y restaurar datos a un sitio ftp en un','Amigo quiero compartir este pedacito de codigo con ustedes, puede ser que a alguien le sea de utilidad <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.\n\nLo que hace es realizar una copia de respaldo comprimida de los datos de la app y poner dicho archivo en un ftp en internet.\n\nluego hace el proceso inverso. baja el archivo de respaldo y lo descomprime al directorio de datos.\n\nNOta: logicamente deberan poner:\nsu servidor ftp.\nsu usuario\nsu clave\n\nademas de que las funciones waiton y waitoff no estan incluidas <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\npero son facilmente reemplazable <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\nsalu2\ncarlos vargas\n[code:2e8s17qn]\n\nPROCEDURE GetFileInFtp&#40;&#41;\n   LOCAL oFpt\n\n   oFTP &#58;= qFTPClient&#40;&#41;&#58;New&#40;&quot;209&#46;190&#46;5&#46;162&quot;, 21, &#123;|cM| Logfile&#40;&quot;logftp&#46;txt&quot;, &#123;cM&#125;&#41;&#125;,,&quot;carlos@carlos&#46;byethost6&#46;com&quot;,&quot;carlos&quot;&#41;\n   oFTP&#58;lPassive &#58;= &#46;T&#46;\n\n   IF oFTP&#58;Connect&#40;&#41;\n      MsgInfo&#40;&quot;Conectado a &quot; + CRLF + oFTP&#58;oSocket&#58;ClientIP&#40;&#41; &#41;\n      WaitOn&#40;&quot;Conectado, Recuperando datos&quot;&#41;\n      CursorWait&#40;&#41;\n      IF oFTP&#58;Retr&#40;&quot;/datos&#46;zip&quot;,&quot;datos&#46;zip&quot;&#41;\n         CursorArrow&#40;&#41;\n         WaitOff&#40;&#41;\n         IF FileSize&#40;&quot;datos&#46;zip&quot;&#41; &gt; 0\n            IF UnZipDatos&#40;&#41;\n               MsgInfo&#40;&quot;Archivo de datos restaurado correctamente!&quot;&#41;\n            ENDIF\n         ELSE\n            MsgAlert&#40;&quot;Archivo de datos corrupto, no se pude continuar!&quot;&#41;\n         ENDIF\n      ELSE\n         CursorArrow&#40;&#41;\n         WaitOff&#40;&#41;\n         MsgAlert&#40;&quot;Fallo recuperación de archivos de datos!&quot;&#41;\n      ENDIF\n   ELSE\n      MsgAlert&#40;&quot;Fallo en conexión a servidor FTP!&quot;&#41;\n   ENDIF\n\n   oFTP&#58;Quit&#40;&#41;\n   oFTP&#58;End&#40;&#41;\n\nRETURN\n\n/*----------------------------------------------------------------------------------*/\n\nPROCEDURE PutFileInFtp&#40;&#41;\n   LOCAL oFpt\n\n   IF !ZipDatos&#40;&#41;\n      RETURN\n   ENDIF\n\n   oFTP &#58;= qFTPClient&#40;&#41;&#58;New&#40;&quot;209&#46;190&#46;5&#46;162&quot;, 21, &#123;|cM| Logfile&#40;&quot;logftp&#46;txt&quot;, &#123;cM&#125;&#41;&#125;,,&quot;carlos@carlos&#46;byethost6&#46;com&quot;,&quot;carlos&quot;&#41;\n   oFTP&#58;lPassive &#58;= &#46;T&#46;\n\n   IF oFTP&#58;Connect&#40;&#41;\n      MsgInfo&#40;&quot;Conectado a &quot; + CRLF + oFTP&#58;oSocket&#58;ClientIP&#40;&#41; &#41;\n      WaitOn&#40;&quot;Conectado, copiando datos&#46;&quot;&#41;\n      CursorWait&#40;&#41;\n      IF oFTP&#58;Stor&#40;&quot;datos&#46;zip&quot;, &quot;/datos&#46;zip&quot;&#41;\n         CursorArrow&#40;&#41;\n         WaitOff&#40;&#41;\n         MsgInfo&#40;&quot;Archivo de datos almacenado con exito!&quot;&#41;\n      ELSE\n         CursorArrow&#40;&#41;\n         WaitOff&#40;&#41;\n         MsgAlert&#40;&quot;Fallo almacenamiento de archivos de datos!&quot;&#41;\n      ENDIF\n   ELSE\n      MsgAlert&#40;&quot;Fallo en conexión a servidor FTP!&quot;&#41;\n   ENDIF\n   oFTP&#58;Quit&#40;&#41;\n   oFTP&#58;End&#40;&#41;\n\nRETURN\n\n/*----------------------------------------------------------------------------------*/\n\nFUNCTION ZipDatos&#40;&#41;\n   LOCAL lOk&#58;=FALSE\n   LOCAL aFiles&#58;=&#123;&#125;\n\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mcont&#46;dbf&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mdesl&#46;dbf&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mjard&#46;dbf&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mlote&#46;dbf&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mvend&#46;dbf&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mcont&#46;cdx&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mdesl&#46;cdx&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mjard&#46;cdx&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mlote&#46;cdx&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mvend&#46;cdx&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mcont&#46;fpt&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mlote&#46;fpt&quot;&#41;\n   AAdd&#40;aFiles,&quot;&#46;\\datos\\mvend&#46;fpt&quot;&#41;\n\n   WaitOn&#40;&quot;Comprimiendo datos&#46;&quot;&#41;\n   CursorWait&#40;&#41;\n   IF HB_ZIPFILE&#40;&quot;datos&#46;zip&quot;,aFiles,9,NIL,TRUE,NIL,TRUE&#41;\n      CursorArrow&#40;&#41;\n      WaitOff&#40;&#41;\n      lOk&#58;=TRUE\n   ELSE\n      CursorArrow&#40;&#41;\n      WaitOff&#40;&#41;\n      MsgStop&#40;&quot;Error, no se pudo comprimir datos!&quot;&#41;\n   ENDIF\n\nRETURN lOk\n\n/*----------------------------------------------------------------------------------*/\n\nFUNCTION UnZipDatos&#40;&#41;\n   LOCAL lOk&#58;=FALSE\n   LOCAL aFiles&#58;=HB_GETFILESINZIP&#40;&quot;datos&#46;zip&quot;&#41;\n\n   WaitOn&#40;&quot;Descomprimiendo datos&#46;&quot;&#41;\n   CursorWait&#40;&#41;\n   IF Len&#40;aFiles&#41; &gt; 0\n      IF HB_UNZIPFILE&#40;&quot;datos&#46;zip&quot;,NIL,TRUE,NIL,&quot;&#46;\\&quot;,aFiles&#41;\n         CursorArrow&#40;&#41;\n         WaitOff&#40;&#41;\n         lOk&#58;=TRUE\n      ELSE\n         CursorArrow&#40;&#41;\n         WaitOff&#40;&#41;\n         MsgAlert&#40;&quot;Error, no se pudo descomprimir datos!&quot;&#41;\n      ENDIF\n   ELSE\n      CursorArrow&#40;&#41;\n      MsgAlert&#40;&quot;Archivo de respaldo corrupto!&quot;&#41;\n   ENDIF\n\nRETURN lOk\n\n/*----------------------------------------------------------------------------------*/\n\n[/code:2e8s17qn]','',0,'AIA=','2e8s17qn',1,0,'',110,0,0),(18040,4087,3,299,0,'24.233.172.101',1156967505,1,0,1,0,1,0,'','Tdialog:hide()','Hi everyone;\n\nIn order to print richtext which I have saved on .fpt files, I find that I must create the control on a dialog or window.   When I only wish to print without displaying the richtext control I hide the dialog:\n[code:1ytt2zjh]\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD DisplayHidden&#40;&#41; CLASS Transcription\nlocal oSelf	&#58;= self, i\n\n	&#58;&#58;oActive &#58;= &#58;&#58;oTrGrss\n\n	for i&#58;=1 to len&#40; &#58;&#58;aRtfs &#41;\n		&#58;&#58;aRtfs&#91; i &#93;&#58;hide&#40;&#41;\n	next i\n\n	ACTIVATE DIALOG oSelf&#58;oDlg CENTERED NOWAIT\n	&#58;&#58;oDlg&#58;Hide&#40;&#41;\n\nreturn nil\n[/code:1ytt2zjh]\n::aRtfs contains a few richtext objects previously redefined OF ::odlg.  The problem is that the dialog flashes for just a microsecond.  That would be acceptable, except when printing 300 cases.  Then it flashes for a few minutes.\n\nAny ideas on how to solve this one?\n\nThank you,\n\n\nReinaldo.','',0,'AIA=','1ytt2zjh',1,0,'',299,0,0),(18041,1182,6,171,0,'71.232.193.197',1156967774,1,0,1,1,1,0,'','','Rene,\n\nNo he logrado poner a trabajar ninguno de los ejemplos que tu has posteado de Funcky.\n\nHe tratado de multiple formas pero solo consigo errores. \n\nSera que necesito algunos wrappers, o quizas algun archivo \".ch\"\n\nEstoy usando la version de evaluacion funcky60 y tan pronto pueda ponerla a trabajar voy a comprarla, pues me interesna las conexiones ftp y los envios de email, que tu indicas \"van de perlas\" con funcky.\n\nSaludos\n\n\nGeorge','',0,'AIA=','175fmobb',1,0,'',171,0,0),(18042,4086,6,492,0,'201.154.126.49',1156968384,1,0,1,1,1,1,'','','Amigo Carlos, Excelente !!!!\n\nSaludos','',0,'AIA=','3mq9638b',1,0,'',492,0,0),(18043,4072,4,3,0,'82.255.254.132',1156968726,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:293f7dbo]Richard,\n\nThere is a new FWPPC build already available that implements _(). There is a working sample at samples\\CheckApp.prg[/quote:293f7dbo]\n\nAntonio \n\nThanks it works OK now.\n\nI will suggest you change the sample. It is tricky, the exe and main window have the same name \"checkapp\" , it can be confusing.\n\nCFILENAME := \"myapp.exe\"\nIF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )\n   msginfo(\"app is already loaded\")\n   RETURN NIL\nENDIF\n\nThis will work independent from the window\'s name.\n\nThanks for your efforts, FWPPC is a great tool. i am about to publish my first app. \n\nRichard','',0,'gA==','293f7dbo',1,0,'',3,0,0),(18044,4082,4,3,0,'82.255.254.132',1156968776,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:274c7i56]Richard,\n\nThere is a working makefile at makes\\fwcemake.zip[/quote:274c7i56]\n\nThanks\n\nIt was needed.\n\nI have it working fine now.\n\nRichard','',0,'gA==','274c7i56',1,0,'',3,0,0),(18045,4065,19,2,0,'87.218.146.94',1156969234,1,0,1,1,1,1,'','','FWH running on Vista:\n[url=http&#58;//imageshack&#46;us:3htghd6h][img:3htghd6h]http&#58;//img58&#46;imageshack&#46;us/img58/2487/fwhjf5&#46;jpg[/img:3htghd6h][/url:3htghd6h]','',0,'GA==','3htghd6h',1,0,'',2,0,0),(18046,4065,19,2,0,'87.218.146.94',1156969942,1,0,1,1,1,1,'','','Pressing (Windows Logo) + Tab in Vista:\n[url=http&#58;//imageshack&#46;us:w38062i1][img:w38062i1]http&#58;//img108&#46;imageshack&#46;us/img108/2214/fwh2oq9&#46;jpg[/img:w38062i1][/url:w38062i1]','',0,'GA==','w38062i1',1,0,'',2,0,0),(18047,4087,3,54,0,'189.132.107.92',1156969992,1,0,1,1,1,1,'','Re: Tdialog:hide()','[quote=&quot;reinaldocrespo&quot;:346426ii]Hi everyone;\n\nIn order to print richtext which I have saved on .fpt files, I find that I must create the control on a dialog or window.   When I only wish to print without displaying the richtext control I hide the dialog:\n[code:346426ii]\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD DisplayHidden&#40;&#41; CLASS Transcription\nlocal oSelf	&#58;= self, i\n\n	&#58;&#58;oActive &#58;= &#58;&#58;oTrGrss\n\n	for i&#58;=1 to len&#40; &#58;&#58;aRtfs &#41;\n		&#58;&#58;aRtfs&#91; i &#93;&#58;hide&#40;&#41;\n	next i\n\n	ACTIVATE DIALOG oSelf&#58;oDlg CENTERED NOWAIT\n	&#58;&#58;oDlg&#58;Hide&#40;&#41;\n\nreturn nil\n[/code:346426ii]\n::aRtfs contains a few richtext objects previously redefined OF ::odlg.  The problem is that the dialog flashes for just a microsecond.  That would be acceptable, except when printing 300 cases.  Then it flashes for a few minutes.\n\nAny ideas on how to solve this one?\n\nThank you,\n\n\nReinaldo.[/quote:346426ii]\n\nReinaldo,\n\nSugeriria de esta manera.\n\n[code:346426ii]ACTIVATE DIALOG oSelf&#58;oDlg CENTERED NOWAIT ON INIT &#58;&#58;oDlg&#58;Hide&#40;&#41;[/code:346426ii]\n\nSaludos','',0,'gIA=','346426ii',1,0,'',54,0,0),(18048,4075,6,171,0,'71.232.193.197',1156970402,1,0,1,1,1,0,'','','Yo utilizo TsBrowse de manuel mercado y nunca he tenido problemas.\nEste browse, creo yo, es el mas versatil de todos los existentes\n\nGeorge','',0,'gIA=','1fuh5qz2',1,0,'',171,0,0),(18049,4083,2,54,0,'189.132.107.92',1156970651,1,0,1,1,1,1,'','Re: Tecla ESC en tBtnGet','[quote=&quot;servicomver&quot;:3bmm0pfi]Hola:\nAlguien sabe como hacer para que al darle ESC dentro de un BtnGet no se salga, lo que pasa es que dentro del programa la primera captura se hace sobre tBtnGet y darle ESC se cierra el programa, lo he intentado con clausula VALID pero aun asi se sale, alhguien tien alguna idea ??\n\nSAludos\nVeracruz, Ver. Mex[/quote:3bmm0pfi]\n\nservicomver,\n\n[code:3bmm0pfi]\nLOCAL oBtn,lSalir &#58;= &#46;f&#46;\nDEFINE DIALOG oDlg\n  REDEFINE BUTTON oBtn ID 101 OF oDlg ACTION &#40;lSalir&#58;=&#46;t&#46;,oDlg&#58;END&#40;&#41;&#41;\nACTIVATE DIALOG oDlg VALID lSalir\n[/code:3bmm0pfi]\n\nEspero te sirva','',0,'gIA=','3bmm0pfi',1,0,'',54,0,0),(18050,4087,3,299,0,'24.233.172.101',1156970733,1,0,1,0,1,0,'','','William;\n\nGracias por la sugerencia.  Parecería que de esa manera ni siquiera se pintaría la ventana de dialogo.  Pero no es así.  De hecho de esa manera la muestra por mas tiempo que de la otra.\n\nCualquier otra idea es bienvenida.  \n\nComoquiera gracias.\n\nSaludos,\n\n\nReinaldo','',0,'gIA=','36cv4shj',1,0,'',299,0,0),(18051,4073,6,783,0,'190.40.112.50',1156970912,1,0,1,1,1,0,'','','Muchas gracias Frafive.','',0,'gIA=','dx21dfm8',1,0,'',783,0,0),(18052,4081,6,54,0,'189.132.107.92',1156971216,1,0,1,1,1,1,'','Re: Algun Browse - contraer, expandir (parecido a tree)','[quote=&quot;RuFer&quot;:1jnvqcpg]Amigos:\n\nHay alguna forma de mostrar un browse y que se pueda \nexpandir y contarer con 1 click o 2.\n(Parecido a un tree).\nAlgun ejemplo tambien, ya que estoy molestando, lo hago bien.    \n\nGracias.\n\nRuben Fernandez[/quote:1jnvqcpg]\n\nRubén,\n\ndate una vuelta por:\n\n[url:1jnvqcpg]http&#58;//oskar&#46;sytes&#46;net[/url:1jnvqcpg]\n\nAhí hay un control ListView, que puede servirte.','',0,'kA==','1jnvqcpg',1,0,'',54,0,0),(18053,4088,6,618,0,'217.216.151.6',1156971618,1,0,1,1,1,1,'','Capturar respuesta de un http post desde un form via web','Tengo un form con dos campos que rellenadolo, podria tratar la respuesta obtenida, para localizar teléfonos... alguien ha visto código harbour/xharbour/fivewin que haga algo parecido ?','',0,'kA==','3rof93w4',1,0,'',618,0,0),(18054,4075,6,54,0,'189.132.107.92',1156972109,1,0,1,1,1,1,'','Re: Requiero consejo . Que browse usar','[quote=&quot;armandini&quot;:2zrc3loc]Amigos.\n\nEstoy migrando a fivewin, en este momento necesito definir la implementación de un buen browse. Ya conozco el txbrowse, el de fivewin y el de ozlib, pero quiero conocer experiencias o recomendaciones de otros browse y donde los puedo ubicar.\n\n\nGracias.[/quote:2zrc3loc]\n\nQuien da más?\n\nEn mi opinión personal, el mejor es con el que uno se adapte y nos sea funcional y sin problemas.','',0,'gA==','2zrc3loc',1,0,'',54,0,0),(18055,4081,6,785,0,'190.64.107.187',1156972118,1,0,1,1,1,0,'','','Gracias William, chequeo el sitio.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','2s82m4nu',1,0,'',785,0,0),(18056,4086,6,110,0,'165.98.169.198',1156972942,1,0,1,1,1,1,'','','gracia <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'gA==','yloewtq0',1,0,'',110,0,0),(18057,4062,6,110,0,'165.98.169.198',1156973294,1,0,1,1,1,1,'','','Antonio tanto en anterior release como este ultimo de xharbour el proceso de descompresion de datos hb_unzipfile falla con un GPF, el de compresion no da problema. \n\nsolo he regenerado la hbzip.lib del cvs y ya no presenta el problema.\npuede ser alguno de los parametros de construccion el que provoque el problema <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nnota: en la construccion no uso la variable cflags\ny sip incluyo el pcproc.lib al scrip de contruccion del exe <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\nsalu2\ncarlos vargas','',0,'gA==','102jqouk',1,0,'',110,0,0),(18058,4089,3,52,0,'201.212.23.187',1156973298,1,0,1,1,1,1,'','Security descriptor editor...','Hello all,\n\nI need make one app to change and display the Security descriptor editor for a Win32 pipe.\n\nWho can help me?\n\nTank.','',0,'gA==','3rlbi9mu',1,0,'',52,0,0),(18059,4090,3,171,0,'71.232.193.197',1156973713,1,0,1,1,1,0,'','xHarbour + FWH  &amp; Funcky','Hello forum\n\nDo I need any wrappers on \".ch\" file in order that  Funcky work with \nxHarbour + FWH?\n\nI would like to evaluate the demo version of funcky60, but I get errors.\n\nI want to be sure that this component work fine with xHarbour before to buy \nit.\nI tried to ask for technical support at funcky website but that option is \nnot working in his site.\n\nThe reason is that I want a stable and professional Email and FTP \ncapabilties in my application and RF say that Funcky is \"un sueño\" \n( a dream)\n\nAny comments and sugestion or alternatives are welcome\n\nRegards\n\nGeorge','',0,'gA==','3m4tgcfa',1,0,'',171,0,0),(18060,4087,3,6,0,'87.1.225.244',1156974003,1,0,1,1,1,1,'','Re: Tdialog:hide()','Try this:\n\n[code:130s2jdx]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oDlg2\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON &quot;&amp;Open dialog&quot;;\n           WHEN oDlg2 = NIL;\n           ACTION oDlg2 &#58;= HIDDENDLG&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             VALID &#40; IF&#40; oDlg2 != NIL, oDlg2&#58;End&#40;&#41;, &#41;, &#46;T&#46; &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION HIDDENDLG&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;bStart = &#123; || oDlg&#58;Hide&#40;&#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT TONE&#40; 440, 1 &#41;;\n             VALID &#40; TONE&#40; 880, 1 &#41;, &#46;T&#46; &#41;;\n             CENTER NOMODAL\n\n    RETURN oDlg[/code:130s2jdx]\n\nEMG','',0,'AIA=','130s2jdx',1,0,'',6,0,0),(18061,4065,19,6,0,'87.1.225.244',1156974221,1,0,1,1,1,1,'','','Wonderful! Please, can you check if Borland Resource Workshop works on Windows Vista?\n\nEMG','',0,'AIA=','33bihfkm',1,0,'',6,0,0),(18062,4072,4,6,0,'87.1.225.244',1156974435,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:31otx1qv]Richard,\n\nThere is a new FWPPC build already available that implements _(). There is a working sample at samples\\CheckApp.prg[/quote:31otx1qv]\n\nWhat is _()?\n\nEMG','',0,'gA==','31otx1qv',1,0,'',6,0,0),(18063,4072,4,2,0,'87.218.146.94',1156975130,1,0,1,1,1,1,'','','Enrico,\n\nIt is I S E X E R U N N I N G ( )\n\nIts quite strange but when it is written together it looks as \"_\"','',0,'gA==','1hmb5yyn',1,0,'',2,0,0),(18064,4072,4,6,0,'87.1.225.244',1156975231,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'gA==','hlet27ph',1,0,'',6,0,0),(18065,4065,19,2,0,'87.218.146.94',1156975606,1,0,1,1,1,1,'','','Enrico,\n\nYes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[url=http&#58;//imageshack&#46;us:2np0krk0][img:2np0krk0]http&#58;//img179&#46;imageshack&#46;us/img179/3752/fwh3fo4&#46;jpg[/img:2np0krk0][/url:2np0krk0]','',0,'GA==','2np0krk0',1,0,'',2,0,0),(18067,4090,3,138,0,'201.128.111.188',1156980302,1,0,1,1,1,1,'','','No way man !!!!\n\nYou don\'t need wrapper since Funcky is an OLE Componente, use the TOleAuto() Class to use it.\n\nThis is sample program I wrote to try some funcky features:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/funckydemo.zip\">http://www.google.d2g.com/funckydemo.zip</a><!-- m -->\n\nYou will need Funcky\'s demo version in order to execute.','',0,'GA==','niha6jdp',1,0,'',138,0,0),(18068,4088,6,138,0,'201.128.111.188',1156980845,1,0,1,1,1,1,'','Re: Capturar respuesta de un http post desde un form via web','[quote=&quot;juanato&quot;:b62neiiu]Tengo un form con dos campos que rellenadolo, podria tratar la respuesta obtenida, para localizar teléfonos... alguien ha visto código harbour/xharbour/fivewin que haga algo parecido ?[/quote:b62neiiu]\n\nJejeje, yo me desayuno eso todos los dias, contactame por correo privado, tengo montones de aplicaciones de ese tipo hechas con Clipper, con xHarbour y con FW.','',0,'gA==','b62neiiu',1,0,'',138,0,0),(18069,1182,6,138,0,'201.128.111.188',1156981606,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:3vdxz2ew]Rene,\n\nNo he logrado poner a trabajar ninguno de los ejemplos que tu has posteado de Funcky.\n\nHe tratado de multiple formas pero solo consigo errores. \n\nSera que necesito algunos wrappers, o quizas algun archivo \".ch\"\n\nEstoy usando la version de evaluacion funcky60 y tan pronto pueda ponerla a trabajar voy a comprarla, pues me interesna las conexiones ftp y los envios de email, que tu indicas \"van de perlas\" con funcky.\n\nSaludos\n\n\nGeorge[/quote:3vdxz2ew]\n\nGeorge, hay un problema conocido y reportado con la clase TOLEAuto, te explico que pasa y como solucionarlo, como me lo explico Jose Gimenez:\n\nLa clase TOleAuto() tiene 3 metodos que pueden causar problemas con cualquier componente OLE que tenga metodos con nombres similares, que son ::Get() ::Set() ::Invoque(), lo que provoca que al construir tu objeto Ole, si este tiene entre sus propiedades metodos con nombres similares, falle.\n\nEn el caso de Funcky, tienes un metodo GET, que invariaablemente va a chocar contra el meotodo GET te ToleAuto, asi que la solucion es hacer la llamada como sigue:\n[code:3vdxz2ew]\noFtp &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Funckyftp&quot;&#41;\noFtp&#58;Connect&#40;&quot;ftp&#46;google&#46;d2g&#46;com&quot;,&quot;usuario&quot;,&quot;password&quot;&#41;\noFtp&#58;ChangeDir &#40;&quot;\\downloads\\ads&quot;&#41;\n\n/* aqui es donde puede surgir el problema erroneamente la forma de\n* llamar al metodo seria&#58;\n* oFtp&#58;Get&#40;&quot;adsdemo&#46;exe&quot;, &quot;c&#58;\\adsdemo&#46;exe&quot;,0&#41;\n*\n* Sin embargo el metodo GET de funcky entra en conflicto con el metodo \n* GET de TOleAuto para solucionarlo hacemos&#58;\n*/\n\noFTP&#58;Get&#40; &quot;Get&quot;, &quot;adsdemo&#46;exe&quot;,&quot;c;\\adsdemo&#46;exe&quot;,0&#41;\n\n/* tambien es valido hacer&#58;\noFtp&#58;Invoque&#40;&quot;Get&quot;, &quot;adsdemo&#46;exe&quot;,&quot;C&#58;\\adsdemo&#46;exe&quot;,0&#41; */\n\noFtp&#58;Disconnect&#40;&#41;[/code:3vdxz2ew]\n\nGracias José Gimenez, pude haberme vuelto loco buscando la solucion, pero el me soluciono el problema.','',0,'gIA=','3vdxz2ew',1,0,'',138,0,0),(18070,4092,3,69,0,'70.51.112.66',1156981726,1,0,1,1,1,0,'','MsgYesNo()','Hi Everybody,\n\nIs there a way to have a MsgYesNo() box have the default focus set to NO instead of YES ??\n\nThanks,\n\nJeff','',0,'gIA=','2u2wbno3',1,0,'',69,0,0),(18071,4034,6,228,0,'190.24.105.182',1156982123,1,0,1,1,1,1,'','Se puede colocar un color diferente al fondo?','Antonio se puede colocar un bmp, un fondo o cambiar el color a ese control?','',0,'gIA=','dorydca5',1,0,'',228,0,0),(18072,4092,3,80,0,'202.72.164.124',1156982661,1,0,1,1,1,0,'','MsgYesNo','Jeff\n\nMsgNoYes()\n\nColin','',0,'gIA=','rmvylwjz',1,0,'',80,0,0),(18073,4090,3,171,0,'71.232.193.197',1156982851,1,0,1,1,1,0,'','','Hello Rene \n\nYour demo compile fine\n\n[code:241ymvpv]\nPUBLIC oFuncky &#58;= TOLeAuto&#40;&#41;&#58;New&#40;&quot;Funcky&quot;&#41;\n   ? oFuncky&#58;Capitalize&#40;&quot;mr&#46; juan perez&quot;&#41;\n   ? oFuncky&#58;AppName&#40;&#41;\n   ? oFuncky&#58;AllDrives&#40;&#41;\n   ? &quot;The system name is&#58; &quot; + oFUNCky&#58;ComputerName&#40;&#41;\n   ? &quot;Your user name is&#58; &quot; + oFUNCky&#58;UserName&#40;&#41;\n   ? &quot;Your full name is&#58; &quot;+oFUNCky&#58;UserFullName&#40;oFUNCky&#58;UserName&#40;&#41;&#41;\n   ? oFuncky&#58;NumToRoman&#40;1967&#41;\n   ? oFuncky&#58;Whois&#40;&quot;google&#46;com&quot;&#41;\n\n[/code:241ymvpv]\n\nbut when I try to run it\n\nI got the following error message:\n\n[code:241ymvpv]\n\nError occurred at&#58; 08/30/2006, 19&#58;57&#58;43\n   Error description&#58; Error TOleAuto/-1  Unknown error&#58; TOLEAUTO&#58;NEW\n   Args&#58;\n     &#91;   1&#93; = C   Funcky\n\nStack Calls\n===========\n   Called from&#58;  =&gt; THROW&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;NEW&#40;319&#41;\n   Called from&#58; MAIN&#46;PRG =&gt; TESTFUNCKY&#40;1094&#41;\n   Called from&#58; MAIN&#46;PRG =&gt; &#40;b&#41;FRAMEBAR&#40;344&#41;\n[/code:241ymvpv]\n\nBTW  When I try to run your FUNCKYDEMO.EXE I got also this error\n\n[code:241ymvpv]\n Error occurred at&#58; 08/30/06, 20&#58;02&#58;07\n   Error description&#58; Error TOleAuto/-1  Unknown error&#58; TOLEAUTO&#58;NEW\n   Args&#58;\n     &#91;   1&#93; = C   Funcky\n\nStack Calls\n===========\n   Called from TOLEAUTO&#58;NEW&#40;225&#41;\n   Called from MAIN&#40;4&#41;\n[/code:241ymvpv]\n\nRene its is strange not?. \n\nMy configuration is xBuilder Pro Beta RC9  Aug_06 (xHarbour 0.99.61) + FWH Aug_06\n\nRegards \n\n\nGeorge','',0,'AIA=','241ymvpv',1,0,'',171,0,0),(18074,4087,3,299,0,'24.233.172.101',1156983186,1,0,1,0,1,0,'','','Enrico;\n\nI really appreciate your responses.\n\nIt made no change.  Below, I made some minor changes to your code for you to test and see what I\'m referring to.\n\n[code:3pj3dj1x]\n#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\nlocal i\nLOCAL oDlg, oDlg2\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON &quot;&amp;Open dialog&quot;;\n           WHEN oDlg2 = NIL;\n           ACTION oDlg2 &#58;= HIDDENDLG&#40;&#41;\n\n    @ 2, 1 BUTTON &quot;&amp;End&quot; ACTION oDlg&#58;end&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             VALID &#40; IF&#40; oDlg2 != NIL, oDlg2&#58;End&#40;&#41;, &#41;, &#46;T&#46; &#41;;\n             CENTER\n\n    RETURN NIL\n\n*-----------------------------------------------------------------------------------\nSTATIC FUNCTION HIDDENDLG&#40;&#41;\nLOCAL oDlg\nlocal i\n\n	for i &#58;= 1 to 300\n		DEFINE DIALOG oDlg\n		oDlg&#58;bStart = &#123; || oDlg&#58;Hide&#40;&#41; &#125;\n		ACTIVATE DIALOG oDlg CENTER NOMODAL\n		odlg&#58;end&#40;&#41;\n	next i\n\nRETURN NIL\n\n[/code:3pj3dj1x]\n\nYou should be able to see the odlg2 flash 300 times.\n\nReinado','',0,'AIA=','3pj3dj1x',1,0,'',299,0,0),(18075,1182,6,171,0,'71.232.193.197',1156985237,1,0,1,1,1,0,'','','Rene, \n\nParece que el problema que tengo es con la version de evaluacion de Funcky. No me funciona nada que tenga que ver con funcky, ni siquiera el ejemplo compilado tuyo FunckyDemo.exe\n\nCon el codigo de tu post anterior anterior sigo consiguiendo el mismo error\n[code:3ikmcec9]\nError occurred at&#58; 08/30/2006, 20&#58;40&#58;35\n   Error description&#58; Error TOleAuto/-1  Unknown error&#58; TOLEAUTO&#58;NEW\n   Args&#58;\n     &#91;   1&#93; = C   FunckyFtp\n\nStack Calls\n===========\n   Called from&#58;  =&gt; THROW&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;NEW&#40;319&#41;\n   Called from&#58; MAIN&#46;PRG =&gt; TESTFUNCKY&#40;1095&#41;\n   Called from&#58; MAIN&#46;PRG =&gt; &#40;b&#41;FRAMEBAR&#40;344&#41;\n[/code:3ikmcec9]\n\nMis herramientas son xBuilder Pro (xHarbour 0.99.61) + FWH Aug_08\n\nBuscare otras alternativas para el envio de email y manejo de FTP\n\nGracias por todo Rene\n\nSaludos\n\nGeorge','',0,'AIA=','3ikmcec9',1,0,'',171,0,0),(18077,4093,2,66,0,'201.212.24.227',1156987578,1,0,1,0,1,0,'','Como puedo saber la/las cuentas de  Emails de la PC','Estimados Colegas\n\nExiste alguna manera de saber la/las cuentas de emails de la pc \n\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','31xilbko',1,0,'',66,0,0),(18079,4094,6,66,0,'201.212.24.227',1156987746,1,0,1,0,1,0,'','Como puedo conocer la/las cuentas de email de pc','Estimados Colegas\n\nExiste alguna manera de saber la/las cuentas de email de la pc\ndesde fivewin\n\nDesde ya muchas Gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','101k6ilw',1,0,'',66,0,0),(18080,4092,3,69,0,'70.51.112.66',1156988395,1,0,1,1,1,0,'','','Well of course that is the anwser  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nI feel stupid.   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\n\nThanks Colin','',0,'AIA=','gr71petu',1,0,'',69,0,0),(18081,524,4,779,0,'200.67.153.171',1156993774,1,0,1,1,1,0,'','','[quote=&quot;Maurizio&quot;:esq6944b]Detect  the Pocket PC serial number is different for every brand , \nI use with VBE this DLL <!-- m --><a class=\"postlink\" href=\"http://www.selectiveminds.com/products/proddetails.asp?prodID=28\">http://www.selectiveminds.com/products/ ... ?prodID=28</a><!-- m -->\n\n\nRegards Maurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->[/quote:esq6944b]\n\nMaurizio, tienes un ejemplo de como haces el llamdo a esa libreria?\nDo you have a sample for call these library?','',0,'gA==','esq6944b',1,0,'',779,0,0),(18082,4068,1,161,0,'213.119.247.178',1157005832,1,0,1,1,1,0,'','','Enrico,\n\nI just found a strange effect after implementing this.\nThe buttons, checkboxes and radioboxes don\'t work any more. If you click on them, nothing happens.\nThe onclicks on bitmaps, barbuttons and the doubleclick on listboxes still works.\n If I comment out the [b:2odgk490]STATIC FUNCTION BUILDMENU( oDlg )[/b:2odgk490], everthing works again.\nIs there something I have to change?\n\nMarc','',0,'QA==','2odgk490',1,0,'',161,0,0),(18083,524,4,2,0,'87.218.146.94',1157011934,1,0,1,1,1,1,'','','Ignacio,\n\nDoesn\'t FWPPC SerialNumber() work fine ?','',0,'QA==','160za195',1,0,'',2,0,0),(18084,524,4,89,0,'213.21.136.60',1157014802,1,0,1,1,1,0,'','','Ignacio,\n\nNow I use  serialnumber(), it work fine.\n\nMaurizio','',0,'QA==','1ychwhzj',1,0,'',89,0,0),(18085,4095,6,123,0,'83.56.202.4',1157015563,1,0,1,1,1,0,'','Aplicación FiveWin con dos monitores','Hola,\n\nAhora resulta que tengo dos monitores conectados a mi PC.  Estos dos monitores actúan como extensión del escritorio. \n\nPor lo que he visto, si abro el internet explorer en un monitor y maximizo, el internet explorer se maximiza en ese monitor.  Si restauro, el internet explorer se restaura en ese monitor.\n\nSin embargo, en mi aplicación FWH, con una ventana principal, si ejecuto la aplicación y activo la ventana principal maximizada, al restaurar se extiende por los dos monitores!! Es decir, ocupa el ancho completo de los dos monitores.\n\n¿Hay alguna forma de \'reconducir\' este comportamiento?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'QA==','39vey0hb',1,0,'',123,0,0),(18086,3680,6,52,0,'201.212.23.187',1157016063,1,0,1,1,1,1,'','','[quote=&quot;thefull&quot;:3jglxb92][quote=&quot;Marco A. Delgado&quot;:3jglxb92]Hola....\n\nYo te aconsejo MySQL, es facil de aprender no es del todo gratis, pero puedes empezar sin gastar casi ni un centavo.\n\nAdemas puedes enlazar varios puntos de trabajo por medio de internet sin costo solo tu linea de internet, si necesitas algo referente a MySQL por aqui estamos.\n[/quote:3jglxb92]\n\nMejor, te pones un PostGre, muchisimo mas potente, y encima libre.\nTotal, la sintaxis viene a ser mas o menos la misma.\n\nSobre ADS, demasiado CARO, eso si, para seguir tu forma de trabajar\ncon tus RDDs, es lo mas rapido.\n\nPero entre todos, PostGre sin dudas, posiblemente, el mejor de estas\n3 opciones.\n\n( ...Pues a mi no me gusta.... - Bueno, dije posiblemente <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> )\n\n\nSaludos\nRafa Carmona[/quote:3jglxb92]\n\nPodrías postear algun ejemplo amigo?\n\nGracias.','',0,'gA==','3jglxb92',1,0,'',52,0,0),(18087,2980,6,52,0,'201.212.23.187',1157016822,1,0,1,1,1,1,'','Re: Rene...','[quote=&quot;leandro&quot;:hn8sla6x]Rene amigo que dices sobre el curso.. se puede o no abrir un curso para las personas que estamos fuera de Mexico. Me gustaria tener una respuesta sobre este tema.[/quote:hn8sla6x]\n\n\nSobre curso de CGI, en que quedó esta como para verlo por la internet?\n\nGracias.','',0,'gA==','hn8sla6x',1,0,'',52,0,0),(18088,4075,6,456,0,'217.127.39.57',1157016930,1,0,1,1,1,1,'','','Para gustos colores, para mi xBrowse.','',0,'gA==','kh0izi7t',1,0,'',456,0,0),(18089,4068,1,6,0,'87.16.223.166',1157020643,1,0,1,1,1,1,'','','Sorry, I\'m unable to replicate that problem here.\n\nEMG','',0,'gA==','2rzt3oxm',1,0,'',6,0,0),(18090,4065,19,6,0,'87.16.223.166',1157023791,1,0,1,1,1,1,'','','Great! Then even Windows Vista is able to run 16 bit app? And is there a command line console?\n\nEMG','',0,'gA==','s46l1rwl',1,0,'',6,0,0),(18091,4096,6,171,0,'71.232.193.197',1157025582,1,0,1,1,1,0,'','ProgressBar en funcion para bajar dato de un FTP','Como le haria para añadir un ProgressBar a una funcion que uso para hacer download desde un FTP?\nLa funcion, descrita mas abajo, trabaja perfecta *pero* necesito añadirle ese progressbar. \n[code:70s5c05p]\nlGetTransfer &#58;= FTPGETFILE&#40; hConnect, cFileInServer, cLocalFile, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n[/code:70s5c05p]\n\nSaludos\n\n\nGeorge','',0,'AIA=','70s5c05p',1,0,'',171,0,0),(18092,4066,3,49,0,'62.13.172.78',1157026900,1,0,1,1,1,1,'','','Dear Antonio \ncan you help me for it ?','',0,'AIA=','2idt4wm8',1,0,'',49,0,0),(18093,4068,1,161,0,'213.119.247.190',1157026912,1,0,1,1,1,0,'','','Here is an example so you can see that it\'s not working after calling the menu.\n [code:hxgbcn0x]#INCLUDE &quot;fivewin&#46;CH&quot;\nFUNCTION test&#40;&#41;\n   local oDlg\n   local vspare &#58;= &#46;f&#46;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;test&quot;\n   REDEFINE CHECKBOX vspare   ID 104 of oDlg ON CHANGE&#40;msginfo&#40;vspare&#41;&#41;\n   REDEFINE BUTTON  ID 101 OF oDlg ACTION msginfo&#40;\'OK\'&#41;\n   REDEFINE BUTTON  ID 102 OF oDlg ACTION msginfo&#40;\'Cancel\'&#41;\n   REDEFINE BUTTON  ID 103 OF oDlg ACTION msginfo&#40;\'Help\'&#41;\n   ACTIVATE DIALOG oDlg CENTERED on init BUILDMENU&#40; oDlg &#41;\nRETURN nil\n\nSTATIC FUNCTION buildmenu&#40; odlg &#41;\n   LOCAL oMenu\n\n   IF &#46;t&#46; // enable/disable menu\n      MENU oMenu\n      MENUITEM &quot;&amp;Test&quot;\n\n      MENU\n      MENUITEM &quot;&amp;Test1&quot;;\n      ACTION MSGINFO&#40; &quot;Test1&quot; &#41;\n\n      MENUITEM &quot;&amp;Test2&quot;;\n      ACTION MSGINFO&#40; &quot;Test2&quot; &#41;\n\n      MENUITEM &quot;&amp;Test3&quot;;\n      ACTION MSGINFO&#40; &quot;Test3&quot; &#41;\n      ENDMENU\n      ENDMENU\n\n      oDlg&#58;SetMenu&#40; oMenu &#41;\n   ENDIF\n\nRETURN NIL\n[/code:hxgbcn0x]\n\nHere is the rc-file\n[code:hxgbcn0x]/****************************************************************************\n\n\ntest&#46;rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n\n\nTEST DIALOG 6, 15, 207, 111\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;OK&quot;, 101, 148, 6, 50, 14\n PUSHBUTTON &quot;Cancel&quot;, 102, 148, 24, 50, 14\n PUSHBUTTON &quot;Help&quot;, 103, 148, 42, 50, 14\n CHECKBOX &quot;Checkbox&quot;, 104, 7, 14, 93, 11, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;[/code:hxgbcn0x]\n\n\nChanging the line [b:hxgbcn0x] IF .t. // enable/disable menu[/b:hxgbcn0x] you can disable/enable the menu.\n\nMarc','',0,'QIA=','hxgbcn0x',1,0,'',161,0,0),(18094,4080,3,49,0,'62.13.172.78',1157026960,1,0,1,1,1,1,'','','thanks','',0,'QIA=','233wn08y',1,0,'',49,0,0),(18095,4068,1,6,0,'87.16.223.166',1157027596,1,0,1,1,1,1,'','','Works fine here, sorry.\n\nEMG','',0,'QIA=','2zp9qdfa',1,0,'',6,0,0),(18096,4087,3,6,0,'87.16.223.166',1157027661,1,0,1,1,1,1,'','','Sorry, I have no solution for this problem.\n\nEMG','',0,'QIA=','2oy5ccnc',1,0,'',6,0,0),(18097,4068,1,161,0,'213.119.247.190',1157030608,1,0,1,1,1,0,'','','That\'s strange, here are the exe-files compiled on my PC.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vms.be/FWTest/TestMenu.zip\">http://www.vms.be/FWTest/TestMenu.zip</a><!-- m -->\n\nMarc','',0,'QIA=','2vb8ph5l',1,0,'',161,0,0),(18098,4075,6,519,0,'88.16.13.186',1157033069,1,0,1,1,1,0,'','','El mejor  creo que es el Browse de Hernan, va muy rapido  y es facil de montar, el xbrowse el pintado es lento, si le metes muchos registros se ve un parpadeo muy feo.','',0,'QIA=','33bir2sk',1,0,'',519,0,0),(18100,4097,3,67,0,'62.235.24.87',1157034356,1,0,1,1,1,0,'','ON MOVE from dialog or window','Hello,\n\nTrying to use ON MOVE , you can try\n[code:3r1lno6d]\n# include &quot;fivewin&#46;ch&quot;\nFUNC MAIN\nLOCAL oWnd\nDEFINE WINDOW oWnd FROM 10,10 TO 20,70\nSET MESSAGE OF oWnd TO &quot;TEST ON MOVE&quot; CLOCK DATE KEYBOARD NOINSET\noWnd&#58;bMoved &#58;= &#123;|nRow,nCol|oWnd&#58;setMsg&#40;LTRIM&#40;STR&#40;nRow&#41;&#41; + &quot; , &quot; + LTRIM&#40;STR&#40;nCol&#41;&#41;&#41;&#125;\nACTIVATE DIALOG oWnd\nRETURN\n[/code:3r1lno6d]\n\nNotes :\n\n1) The result is WRONG , nRow is always 0\n\n2) Trying to use the ON MOVE clause can never do the same , nRow or nCol can\'t be used.\n\nIt is only possible when fivewin.ch and dialog.ch are changed :\n      &lt;oWnd&gt;:bMoved    [ := \\{ | nRow,nCol | &lt;uMove&gt; \\} ], ;\n\n3) I am convinced that this behaviour is a ERROR , i reported it already\na few days ago . Why no response ????????\n\n\nFrank','',0,'AIA=','3r1lno6d',1,1157099937,'',67,1,0),(18101,4098,3,308,0,'84.148.30.226',1157034789,1,0,1,1,1,0,'','trouble with oFTP:directory()','Hallo Fivewinners,\n\nI have a problem with ftp:Directory()\n\n\n[code:3b8omu4o]\n      aFiles &#58;= &#123;&#125;\n      aFiles = oFTP&#58;Directory&#40; &quot;/*&#46;*&quot;&#41;\n      LogFile&#40; &quot;FTP&#46;LOG&quot;, Str&#40;Len&#40;aFiles&#41;&#41;+&quot; Files on ftp-Server found&quot; &#41;\n      for _I = 1 to len&#40;afiles&#41;\n          LogFile&#40; &quot;FTP&#46;LOG&quot;, Alltrim&#40;afiles&#91;_I,1&#93;&#41;+ &quot; Size&#58; &quot;+Str&#40;aFiles&#91;_I,2&#93;&#41; &#41;\n      next _I\n[/code:3b8omu4o]\n\nthe result (testet with FWH Aug. 2006 and xHarbour Aug. 2006)\n\n[code:3b8omu4o]\n31&#46;08&#46;06 16&#58;23&#58;36&#58; FTP-Session startet&#46;\n31&#46;08&#46;06 16&#58;23&#58;37&#58;         59 Files on ftp-Server found	\n31&#46;08&#46;06 16&#58;23&#58;37&#58; ANIMA&#46;XLS C &#58; \\ W I N D O W S \\ S y s t e m 3 2 \\ W b e m ; C &#58; \\ P r o g r a m m e \\ I n t e l \\ D M I X ; C &#58; \\ P r o g r a m m e \\ M i c r o s o f t   S Q L   S e r v e r \\ 8 0 \\ T o o l s \\ B I N N ; C &#58; \\ P r o g r a m m e \\ S y m a n t e c \\ p c A n y w  Size&#58;     306688	\n31&#46;08&#46;06 16&#58;23&#58;37&#58; artikelfull&#46;csv                                                                                         Xq\Z                                                                                                                                                          Size&#58;    5981919	\n31&#46;08&#46;06 16&#58;23&#58;37&#58; artikelfull&#46;xls              5981919 artikelfull&#46;csv\n08-31-06  05&#58;17AM             15504384 artikelfull&#46;xls\n08-30-06  04&#58;31AM               449292 artikelliste&#46;csv\n08-30-06  04&#58;31AM               449292 Artikelliste&#46;txt\n08-30-06  04&#58;31AM              11653 Size&#58;   15504384	\n31&#46;08&#46;06 16&#58;23&#58;37&#58; artikelliste&#46;csv 6  04&#58;31AM               529408 Artikeltexte&#46;xls\n08-31-06  05&#58;45AM              4091102 artikelzusatztext_web_html&#46;csv\n08-31-06  05&#58;45AM             10226176 artikelzusatztext_web_html&#46;xls\n08-31-06  05&#58;45AM              4078828 artikelzusat Size&#58;     449292	\n31&#46;08&#46;06 16&#58;23&#58;37&#58; Artikelliste&#46;txt plaintext&#46;csv\n08-31-06  05&#58;45AM              5049344 artikelzusatztext_web_plaintext&#46;xls\n08-31-06  05&#58;45AM              3327442 artikelzusatztexte_web&#46;csv\n08-31-06  05&#58;45AM             11791872 artikelzusatztexte_web&#46;xls\n08-31-06  05&#58;45AM Size&#58;     449292	\n31&#46;08&#46;06 16&#58;23&#58;37&#58; Artikelliste&#46;xls 419776 AURA&#46;XLS\n07-14-06  11&#58;15AM                69120 AURA2&#46;XLS\n08-31-06  05&#58;45AM                10752 bestseller&#46;xls\n08-25-06  01&#58;30PM                27648 DISPLAYS&#46;XLS\n01-13-06  12&#58;57PM               269827 Fachhandel E KW03-04&#46;pdf\n06- Size&#58;    1165312	\n31&#46;08&#46;06 16&#58;23&#58;37&#58; artikelliste_DAP_CHF&#46;xls             1581 feldbeschreibung artikelliste&#46;txt\n04-18-06  09&#58;46AM                  173 feldbeschreibung zubehoerartikel&#46;txt\n06-08-05  08&#58;03AM                 1037 hilfe zu artikelzusatztexte web&#46;txt\n01-03-06  10&#58;24AM Size&#58;   10494464	\n[/code:3b8omu4o]\n\nDoes someone have an idea? \n\nBest Regards\n  Norbert','',0,'AIA=','3b8omu4o',1,0,'',308,0,0),(18102,4081,6,785,0,'190.64.106.144',1157036043,1,0,1,1,1,0,'','','Gracias Oskar:\n\nEstere a la espera..\n\nRuben Fernandez.','',0,'AIA=','1f21czdg',1,0,'',785,0,0),(18103,4097,3,6,0,'87.16.223.166',1157037864,1,0,1,1,1,1,'','Re: ON MOVE from dialog or window','I confirm the problem.\n\nEMG','',0,'AIA=','2ygizzq7',1,0,'',6,0,0),(18104,4068,1,6,0,'87.16.223.166',1157038000,1,0,1,1,1,1,'','','I confirm the problem with your EXE. Do you want mine?\n\nEMG','',0,'AIA=','1qqzhqph',1,0,'',6,0,0),(18105,4068,1,161,0,'81.164.212.146',1157039147,1,0,1,1,1,0,'','','No need to send your exe-file, I you say they are working, I\'am sure they do, but could be that I\'am using FW195 and you are using a newer release?\n\nMarc','',0,'AIA=','v9oeo0gq',1,0,'',161,0,0),(18106,4099,7,720,0,'80.36.244.134',1157039454,1,0,1,1,1,0,'','filtrar una tabla por un campo....','Hola a todos queria saber si estoy haciendo bien un set filter en una tabla, este es parte del código que utilizo..\n\n\n1-----SET FILTER TO (ariculos-&gt;codigo == clientes-&gt;codcli)\n2-----articulos-&gt;(RECNO())\n3-----odlg:REFRESH()\n4-----registros()\n\n\nLa linea 1 es donde pretendo realizar el filtrado,la 2 coloco el recno en el registro de los articulos (quiero mantener el mismo cliente y mostrar todos los articulos que este tiene), la 3 es para refrescar la pantalla cada vez que realizo una busqueda nueva y la 4 es para irme al recurso donde muestro los campos (es una function donde tengo declarado los campos a mostrar).\n\nSi ejecuto esto no me da error y me muestra la informacion del cliente (que viene de otro lado) pero no me muestra los articulos que tiene, sólo me muestra el primer articulo de la tabla y no cambia....\n\nPueden ayudarme ....\n\nGracias a todos \n\nSaludos...\n\nElías Torres.','',0,'AIA=','18qmdv22',1,0,'',720,0,0),(18107,4100,2,124,0,'200.43.39.166',1157040562,1,0,1,1,1,0,'','¿COMO SE HACE UN BOTON CON IMAGEN Y CAPTION?','Amigos:\n\n¿Alguien me puede decir como se le agrega una imagen a un tbutton para que quede a la vista tanto el caption como la imagen?\n\nO alguna otra clase que lo soporte.\n\nDesde ya muchas gracias.\nRicardo.-','',0,'AIA=','2p52o8xa',1,0,'',124,0,0),(18108,4090,3,138,0,'201.128.111.188',1157040944,1,0,1,1,1,1,'','','George:\n\nCheck that you have the fullfeatured version of Funcky, The demo I made was made with the commercial version, not with the demo.\n\nI don\'t know which methods are supported in the demo version, so I cannot guarantee it works.\n\nOn the other hand, be sure to be using the xHarbour\'s TOLE, in the recent versions of FW, as far as I Know, (not tested yet), Vykthor commented me that it there\'s a TOLE class in the FiveHC.LIB, that overwrites the xHarbour TOLe when linking, so, you may need to manually  remove the TOLE module in the FiveHC.lib.[/i]','',0,'','1tisu5kr',1,0,'',138,0,0),(18109,4075,6,138,0,'201.128.111.188',1157041268,1,0,1,1,1,1,'','','Jejeje:\n\n2 votos para Hernan\n2 votos para xBrowse\n1 voto para TSBrowse.\n\nPersonalmente le tengo mucha desconfianza al TSBrowse, muestra varias fallas cuando se trabaja bajo MDI y pierde mucho los alias cuando te mueves de una ventana a otra, hay varias \"reparaciones\" a la clase, que arreglan los problemas pero no se hasta que punto.\n\nEl browse de Hernan me parece muy adecuado porque si haz construido tus browses con el Browse estandar de FiveWin, es muy facil implementar el browse de hernan, no tienes que hacer mucho esfuerzo, solo linkerar la lib.\n\nel xBrowse lo he probado en otro producto y me parece estupendo, aunque no se si estan soportadas todas las características que tiene en la version de FW.','',0,'','11a6qwne',1,0,'',138,0,0),(18110,524,4,779,0,'200.67.153.171',1157041671,1,0,1,1,1,0,'','','Lo siento, crei que fallaba pero ya me di cuenta que tengo problemas en Benq 50 especificamente.\n\nLo curioso es que en esa maquina al comparar 2 Strings Identicas me marca que son diferentes <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nEl mismo programa en el simulador ye en uns Symbol funciona bien.','',0,'','2qj94cqu',1,0,'',779,0,0),(18111,4101,7,598,0,'200.11.139.61',1157042222,1,0,0,0,1,1,'','Porque no puedo :End() a un BTNBMP ???','Hola a todos... \n\nNo puedo hacer :End() a un BMPBTN, no se borra el control. la segunda vez q le doy click, se borra la imagen pero el boton sigue estando alli.\nAlguna sugerencia??\n\n\n\n   @1,oStatus:nRight-43 BTNBMP oBtn FILE bitmaps+\"\\ok.bmp\" ;\n      SIZE 21,21 ACTION (msginfo(\"ok\"), oBtn:End() );\n      DIALOG oStatusBar','',0,'','y0uc8t0d',1,0,'',598,0,0),(18112,4068,1,6,0,'87.16.223.166',1157042277,1,0,1,1,1,1,'','','Yes, definitely.\n\nEMG','',0,'','1l90mokr',1,0,'',6,0,0),(18113,4102,6,63,0,'80.37.102.128',1157042761,1,0,1,1,1,0,'','Como &quot;matar&quot; un proceso activo','Al empezar a ejecutar una tarea me gustaria poder \"matar\" ( o sea, \"finalizar el arbol de procesos\") un proceso que me aparece en el Administrador de tareas como \"FtLnSop.exe\". No sé el título de su ventana o sea, que no puedo utilizar GetWindowTitle() para identificarlo.  Alguien podría sugerirme alguna rutina del estilo de: KillProcess(\"FtLnSop.exe\")\n\nGracias,\nRafael','',0,'','1bnmu4f4',1,0,'',63,0,0),(18114,4090,3,171,0,'71.232.193.197',1157042897,1,0,1,1,1,0,'','','Rene,\n\nI have problems with xHarbour tOleAuto + FWH 2.7\n\nI am doing some test  using WinFax and go error in oFax:AddAttachmentFile \n\n[code:2ar4csb7]		\noFax = TOleAuto&#40;&#41;&#58;New&#40; &quot;WinFax&#46;SDKSend&quot; &#41;\noFax&#58;LeaveRunning&#40;&#41;\nIF oFax&#58;SetTo&#40; cDes &#41; = 1; BREAK; ENDIF\nIF oFax&#58;SetSubject&#40; cOgg &#41; = 1; BREAK; ENDIF\nIF oFax&#58;SetCoverText&#40; cMsg &#41; = 1; BREAK; ENDIF\n\n// Here is the problem with attachment\noFax&#58;AddAttachmentFile&#40;&quot;c&#58;\\test&#46;doc&quot; &#41;\n\nIF oFax&#58;SetNumber&#40; cFax &#41; = 1; BREAK; ENDIF\nIF oFax&#58;AddRecipient&#40;&#41; = 1; BREAK; ENDIF\nIF oFax&#58;Send&#40; 0 &#41; = 1; BREAK; ENDIF\n[/code:2ar4csb7]\n\nregards\n\n\nGeorge\n\n\nP.S. Rene can you test this code?','',0,'AIA=','2ar4csb7',1,0,'',171,0,0),(18115,4103,3,171,0,'71.232.193.197',1157043381,1,0,1,1,1,0,'','xHarbour Toleauto and Fivewin 2.7','Antonio,\n\nCould you please comments about this information told me Rene:\n\n[quote:35pxekg1]\nOn the other hand, be sure to be using the xHarbour\'s TOLE, in the recent versions of FW, as far as I Know, (not tested yet), Vykthor commented me that it there\'s a TOLE class in the FiveHC.LIB, that overwrites the xHarbour TOLe when linking, so, you may need to manually remove the TOLE module in the FiveHC.lib.[/i]\n[/quote:35pxekg1]\n\nIf it is true can you fix that or give us some instruction about how to fix.\n\nRegards\n\n\nGeorge','',0,'gA==','35pxekg1',1,0,'',171,0,0),(18116,2444,6,643,0,'201.98.60.224',1157046051,1,0,1,1,1,0,'','Problemas con buttonb.prg','Hola compañeros del foro\ntengo problemas  ya que tambien tengo que pulsar varias veces el el boton para que me responda\n\nojala y me puedan ayudar\nsaludos cordiales \njose Luis','',0,'gA==','2zq3gk0u',1,0,'',643,0,0),(18117,4099,7,720,0,'80.36.244.134',1157048506,1,0,1,1,1,0,'','','Ya lo he solucionado...\n\nLo que tenia no era del todo correcto, lo modifiqué y puse esto\n\nSET FILTER TO (articulos-&gt;codigo==clientes-&gt;codcli)\narticulos-&gt;(DBGOTOP()) \nodlg:REFRESH()\n\ny ademas lo metí directamente en la funcion registros()\n\n\nSaludos...\n\nElías Torres','',0,'gA==','1nilfh2r',1,0,'',720,0,0),(18118,4090,3,6,0,'87.16.223.166',1157052478,1,0,1,1,1,1,'','','Works fine for me. Are you sure that the file test.doc does exist in the root directory of drive C?\n\nEMG','',0,'gA==','3e6oe0w9',1,0,'',6,0,0),(18119,4104,7,598,0,'200.11.139.61',1157054152,1,0,1,1,1,1,'','Como activo el teclado numerico desde el codigo??','Hola a todos amigos del foro.. \n\nalguno de uds sabe como puedo activar y desactivar el NUMLOCK del teclado virtual en el pocket?? lo q quiero con esto es que al ingresar datos numericos solo se activara el teclado virtual numerico y viceversa para los datos alfanumericos, muchas gracias de antemano...','',0,'gA==','1yi9i9c7',1,0,'',598,0,0),(18120,4105,3,63,0,'80.37.102.128',1157054483,1,0,1,1,1,0,'','How to kill a process','Upon starting an application, I would like to be able to kill a certain process or app that shows in the Task Manager as  FtLnSOP.exe.  Manually, I can do it by right clicking it and asking \"Kill the process tree\".  Is there any way of achieving the same from the program?\nThanks\nRafael','',0,'gA==','12p8feia',1,0,'',63,0,0),(18121,4097,3,36,0,'200.113.56.235',1157057055,1,0,1,1,1,0,'','','I confirm the problem.\n\nFWH 2.6, xHarbour 0.99.5, Borland 5.5\n\nSaludos\nPatricio','',0,'gA==','25a150wh',1,0,'',36,0,0),(18124,4106,3,286,0,'200.90.115.154',1157058742,1,0,1,1,1,1,'','ADO question','Hi guys\n\nUsually in PHP when I need to insert a record in an SQL table I check first the primary key value to avoid to get an error for duplicate key entry.\nI\'m uploading a .dbf file to a SQL table. The .dbf has values there exist in the SQL table. I\'m using the AddNew() and Update() Method but on having tried to insert a duplicate value into the SQL table I get an error of course.\nHow can I check the value before the insert sentence?\nThis is my code\n[code:27uowtuz]\ndo while !cSource-&gt;&#40; Eof&#40;&#41; &#41;\n// cSQLCommand  &#58;= &quot;SELECT * FROM FPPtoNom WHERE PtoNomCod=&quot; + bTrans&#40; AllTrim&#40; cSource-&gt;PtoNomCod &#41; &#41;\n// if oCursor&#58;Open&#40; cSQLCommand, oSQL&#58;oConexion&#58;oConnection &#41; &#46;and&#46; oCursor&#58;oRs&#58;RecordCount = 0\n	oCursor&#58;oRs&#58;AddNew&#40;&#41;\n	oCursor&#58;oRs&#58;fields&#40;&quot;PtoNomCod&quot;&#41;&#58;value &#58;= AllTrim&#40; cSource-&gt;PtoNomCod &#41;\n	oCursor&#58;oRs&#58;fields&#40;&quot;PtoNomAbr&quot;&#41;&#58;value &#58;= AllTrim&#40; cSource-&gt;PtoNomAbr &#41;\n	oCursor&#58;oRs&#58;fields&#40;&quot;PtoNomDes&quot;&#41;&#58;value &#58;= AllTrim&#40; cSource-&gt;PtoNomDes &#41;\n	oCursor&#58;oRs&#58;fields&#40;&quot;PtoNomtip&quot;&#41;&#58;value &#58;= AllTrim&#40; cSource-&gt;PtoNomTip &#41;\n	oCursor&#58;oRs&#58;Update&#40;&#41;\n// endif\n	cSource-&gt;&#40; dBSkip&#40;&#41; &#41;\nenddo[/code:27uowtuz]\n\n\nThanks','',0,'AIA=','27uowtuz',1,0,'',286,0,0),(18125,4102,6,63,0,'80.37.102.128',1157059546,1,0,1,1,1,0,'','','Oskar:  Te lo agradeceré muchísimo.  Llevo dos dias intentándolo y ya no sé que más probar.\nRafael','',0,'AIA=','16ww7hx4',1,0,'',63,0,0),(18126,4057,3,49,0,'62.13.172.78',1157059841,1,0,1,1,1,1,'','','Sorry Ugo,\nBut now  it not run ok \nI SEE THE HARD DISK C\n\nTHIS IS THE CODE :\n [code:iw5rg1b1]\n#INCLUDE &quot;fivewin&#46;ch&quot;\n\n#define HKEY_CURRENT_USER   -2147483647  // 2147483649\n\nPROCEDURE Main&#40;&#41;\n   LOCAL hKey\n   Local  REG_DWORD\n   LOCAL nval\n  nVal&#58;= nDriveNum&#40; &quot;C&quot; &#41;\n   ?  nVal\n   REGCREATEKEY&#40; HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer&quot;, @hKey &#41;\n   REGSETVALUE&#40; hKey, &quot;NoDrives&quot;, 0, REG_DWORD, L2BIN&#40; nVal &#41;,4 &#41;\n   REGCLOSEKEY&#40; hKey &#41;\nRETURN\n\n\nFUNCTION nDriveNum&#40; cDrives &#41;\nLOCAL nRet &#58;= 0\nLOCAL n    &#58;= 0\n   for n &#58;= 1 to len&#40; cDrives &#41;\n      nRet += 2 ^&#40; asc&#40; upper&#40; substr&#40; cDrives, n, 1 &#41; &#41; &#41; - 65 &#41;\n   next\nRETURN&#40; int&#40; nRet &#41; &#41;[/code:iw5rg1b1]\n\n\nPerhaps there is something wrong....','',0,'AIA=','iw5rg1b1',1,0,'',49,0,0),(18127,2477,3,49,0,'62.13.172.78',1157060213,1,0,1,1,1,1,'','','Richard ,\n\nsend it to me also. \nthanks\nRegards','',0,'AIA=','3clfmh91',1,0,'',49,0,0),(18128,4107,6,207,0,'148.233.32.162',1157061881,1,0,1,1,1,0,'','hojas vinculadas en excel','Que tal todos:\n\nTengo la filexls, genero un archivo sencillo de saldos (tres columnas) que esta vinculado a otro xls. Anteriormente se generaba con access y funcionaba perfecto, no asi con el mio creado desde FW, se traba el excel y sale el famoso \"NO responde\", les menciono que si abro mi archivo y copio los datos a uno nuevo funciona perfecto, ¿ tendra que ver con que la version del archivo de excel que genera la filexls es 2.1?\n\nfw2.4 , xHarbour 9.3,\n\nun saludo a todos\natte Miguel','',0,'AIA=','3uf5c9e3',1,0,'',207,0,0),(18129,2980,6,228,0,'201.245.233.123',1157062113,1,0,1,1,1,1,'','De nuevo me uno a la petición:','Que pena insistir tanto con esto, pero creo que es bien necesario. Master Rene ojala que sea pronto.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','35z8898u',1,0,'',228,0,0),(18130,2477,3,15,0,'203.73.55.241',1157073657,1,0,1,1,1,0,'','','Hello Silvio,\n\nI will send Fingerprint information to your private mail.\n\nRegards,\n\nrichard','',0,'AIA=','3gvoc0wj',1,0,'',15,0,0),(18132,4105,3,54,0,'189.132.107.92',1157082706,1,0,1,1,1,1,'','Re: How to kill a process','[quote=&quot;Rafael Clemente&quot;:5pme7hnl]Upon starting an application, I would like to be able to kill a certain process or app that shows in the Task Manager as  FtLnSOP.exe.  Manually, I can do it by right clicking it and asking \"Kill the process tree\".  Is there any way of achieving the same from the program?\nThanks\nRafael[/quote:5pme7hnl]\n\nEste link te puede servir\n\nUtilizando wmi, se pueden hacer muchas cosillas\n\nSaludos','',0,'gA==','5pme7hnl',1,0,'',54,0,0),(18133,4100,2,54,0,'189.132.107.92',1157083344,1,0,1,1,1,1,'','Re: ¿COMO SE HACE UN BOTON CON IMAGEN Y CAPTION?','[quote=&quot;rbecares&quot;:1k1gji1w]Amigos:\n\n¿Alguien me puede decir como se le agrega una imagen a un tbutton para que quede a la vista tanto el caption como la imagen?\n\nO alguna otra clase que lo soporte.\n\nDesde ya muchas gracias.\nRicardo.-[/quote:1k1gji1w]\n\n[code:1k1gji1w]\n      REDEFINE BTNBMP oBtn RESOURCE &quot;DLG0_ACEPTAR&quot; ;\n               ID 301 OF oDlg UPDATE PROMPT &quot;&amp;Aceptar&quot;\n[/code:1k1gji1w]\n\nEspero te sirva, tambien puedes usar TSButton, misma codificación','',0,'gIA=','1k1gji1w',1,0,'',54,0,0),(18134,4108,6,54,0,'189.132.107.92',1157084016,1,0,1,1,1,1,'','Ejemplos WMI','Excelentes ejemplos de como usar WMI desde xHarbour + FWH\n\nSaludos, espero sean de utilidad.\n\nAccediendo a este link, podrán bajarlos','',0,'gIA=','i5yx3145',1,0,'',54,0,0),(18136,4102,6,63,0,'80.37.102.128',1157097797,1,0,1,1,1,0,'','','Oskar:\n\nMuchas gracias por tu rápida respuesta. \n\nHe intentado compilar tu ejemplo (añadiendo include \"sql.ch\") pero me da un error de sintaxis en la linea \"For each...\".  He hecho la prueba utilizando FWH 2.6 y Harbour junto con el buildh.bat estandard.\n\nSupongo que, además, me falta el TOleAuto().  Me podrías dar una pista acerca de cómo compilar tu ejemplo?\n\nUn saludo,\n\nRafael','',0,'gIA=','2xhzrvtg',1,0,'',63,0,0),(18137,4101,7,2,0,'87.218.146.93',1157099237,1,0,1,1,1,1,'','','Luis,\n\nPrueba con oBtn:Hide() antes de llamar a oBtn:End()','',0,'gIA=','1tzv9rm6',1,0,'',2,0,0),(18138,4105,3,67,0,'62.235.24.63',1157099847,1,0,1,1,1,0,'','','Rafael\n\nHere you have an example.\n\nIn this example shellexecute starts wordpad with efkes.rtf. The use has to close this aplication first before continuing. If this not occured , the program will do that.\n\n[code:14nds6gs]\nShellexecute&#40;0 ,0  , &quot;C&#58;\\TEMP\\efkes&#46;rtf&quot; ,0 ,0 , 1&#41;          \nhWnd &#58;= FINDWND&#40; &quot;EFKES&#46;RTF&quot; &#41; \n			\n? &quot;Atention , wordpad must be closed correctly&quot;\n      \nDO WHIL &#46;T&#46;\n    hWnd &#58;= FINDWND&#40; &quot;EFKES&#46;RTF&quot; &#41; \n\n    IF ! EMPTY&#40; hWnd &#41; \n       ? &quot;the aplication closes Winword&quot;  \n        SENDMESSAGE&#40; hWnd, 16 &#41; \n    End\nEND\n[/code:14nds6gs]','',0,'AIA=','14nds6gs',1,0,'',67,0,0),(18139,524,4,2,0,'87.218.146.93',1157100101,1,0,1,1,1,1,'','','Ignacio,\n\n&gt; Lo curioso es que en esa maquina al comparar 2 Strings Identicas me marca que son diferentes\n\nHow do you compare them ? Please show the code','',0,'AIA=','4v5fqcmw',1,0,'',2,0,0),(18140,4057,3,154,0,'151.80.6.114',1157101828,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:a03a9o8a]Sorry Ugo,\nBut now  it not run ok \n...\n[/quote:a03a9o8a]\n\nDear Silvio,\ntest this code:\n [code:a03a9o8a]\n#INCLUDE &quot;fivewin&#46;ch&quot;\n\n#define HKEY_CURRENT_USER  2147483649\n#define REG_DWORD                   &#40; 4 &#41;           // 32-bit number\n\nPROCEDURE Main&#40;&#41;\n   LOCAL hKey\n   LOCAL nval &#58;= 4   // Drive C\n   REGCREATEKEY&#40; HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Policies\\Explorer&quot;, @hKey &#41;\n   REGSETVALUE&#40; hKey, &quot;NoDrives&quot;, 0, REG_DWORD, L2BIN&#40; nVal &#41;,4 &#41;\n   REGCLOSEKEY&#40; hKey &#41;\nRETURN\n[/code:a03a9o8a]','',0,'gIA=','a03a9o8a',1,0,'',154,0,0),(18141,4057,3,49,0,'62.13.172.78',1157103256,1,0,1,1,1,1,'','','No it not run well \nI see the hard disk','',0,'gIA=','1so3hvwf',1,0,'',49,0,0),(18142,2477,3,49,0,'62.13.172.78',1157103413,1,0,1,1,1,1,'','','thanks but \nyou sale  YOUr package for many many  many money .it is too!!!\nIn italy I have two solution  with smal purchase....\nSorry...\n..','',0,'gIA=','3bu9bvhm',1,0,'',49,0,0),(18143,4109,3,148,0,'82.201.238.180',1157106905,1,0,1,1,1,0,'','preview problem','I may asked that before but with the latest updates I may have different answers can I show all fields of database after listing avoiding the message \"Report width is greater than page width\" I need the way to update the methods to distribute my afields all over the report. May be page 1-3 contain certain fields,4-6 another fields for the same records .\nThanks','',0,'gIA=','16idceh1',1,0,'',148,0,0),(18144,4110,7,449,0,'212.64.224.244',1157107636,1,0,1,1,1,1,'','VALID en Window. Bug !','Antonio,\n\nEste codigo no funciona. La clausula VALID no chuta desde el control.\n\n\n[code:1sbo78yp]// FiveWin for Pocket PC - Building the main window\n\n#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Tutor02&quot;\n\n      @ 5, 15 BUTTON &quot;&amp;Exit&quot; SIZE 60, 30 ACTION oWnd&#58;end&#40;&#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41; ;\n      VALID MsgYesNo&#40; &quot;Want to End ?&quot; &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//[/code:1sbo78yp]','',0,'AIA=','1sbo78yp',1,0,'',449,0,0),(18147,4105,3,67,0,'62.235.24.63',1157110353,1,0,1,1,1,0,'','Missing FindWnd()','[code:zw4ov2u2]\n// from http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1346&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=findwindow%2A \n#define GW_HWNDFIRST 0 \n#define GW_HWNDLAST  1 \n#define GW_HWNDNEXT  2 \n#define GW_HWNDPREV  3 \n#define GW_OWNER     4 \n#define GW_CHILD     5 \n\nFUNCTION FINDWND&#40; cTitle &#41; \n\nLOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41; \n\nWHILE hWnd != 0 \n    IF UPPER&#40; cTitle &#41; $ UPPER&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41; \n        RETURN hWnd \n    ENDIF \n\n    hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41; \nENDDO \n\nRETURN NIL \n[/code:zw4ov2u2]','',0,'AIA=','zw4ov2u2',1,0,'',67,0,0),(18148,4113,6,292,0,'201.243.99.57',1157110552,1,0,1,1,1,1,'','Iniciar Foco en Menú','Colegas,\n\nNecesito que el foco esté ubicado en el Menú ppal de mi aplicación o lograr activarlo con alguna tecla.','',0,'AIA=','69wl4l7t',1,0,'',292,0,0),(18149,4105,3,63,0,'80.37.102.128',1157111037,1,0,1,1,1,0,'','','Frank:\n\nThank you for your suggestion.  The problem is that I do not know the Window title of the program to kill; only its name as it appears in the Task Manager, i.e: \"FtLnSOP.exe\" \n\nAny other suggestion? Oskar\'s sollution seems promising, but at present I have been unabe to compile his example (see Spanish Forum).  \n\nRegards,\n\nRafael','',0,'AIA=','3clmgjbc',1,0,'',63,0,0),(18150,4114,7,720,0,'80.36.244.134',1157113375,1,0,1,1,1,0,'','Como avanzar de registro en registro....','Hola a todos...\n\nMe gustaría saber que función se emplea para ir saltando de registro en registro e ir mostrando la información de cada uno. En fox se utiliza un skip() o se juega con el recno() pero aquí no se como es...\n\n\nSaludos y gracias...\n\nElías Torres.','',0,'AIA=','2f9rcq42',1,0,'',720,0,0),(18151,4110,7,2,0,'87.218.146.93',1157113805,1,0,1,1,1,1,'','','Carles,\n\nArreglado. Ya hay un nuevo build de FWPPC listo para descargar.\n\ngracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','29vqyn8p',1,0,'',2,0,0),(18152,4114,7,2,0,'87.218.146.93',1157113936,1,0,1,1,1,1,'','','Elias,\n\nDbSkip( &lt;nRegistros&gt; )\n\npuedes anteponer el nombre del área de trabajo:\n\n( Alias )-&gt;( DbSkip( &lt;nRegistros&gt; ) )','',0,'AIA=','3u1z3lky',1,0,'',2,0,0),(18153,4114,7,2,0,'87.218.146.93',1157114029,1,0,1,1,1,1,'','','Elias,\n\nEl mostrar el contenido de los registros depende de como estés diseñando una determinada pantalla de tu aplicación.\n\nTienes GETs en pantalla ? SAYs ? Estas mostrando información ó estás capturando información ?','',0,'AIA=','2v18vfda',1,0,'',2,0,0),(18154,4105,3,2,0,'87.218.146.93',1157114340,1,0,1,1,1,1,'','','Rafael,\n\nYou may use TerminateProcess()\n\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/default.aspx?scid=KB;en-us;178893&amp;\">http://support.microsoft.com/default.as ... us;178893&amp;</a><!-- m -->','',0,'AIA=','38gcql8m',1,0,'',2,0,0),(18155,4113,6,2,0,'87.218.146.93',1157114488,1,0,1,1,1,1,'','','Juan,\n\nACTIVATE WINDOW oWnd ;\nON INIT oWnd:oMenu:Hilite( &lt;nItem&gt; )\n\nTienes un ejemplo en samples\\TestMenu.prg','',0,'AIA=','2l6eo078',1,0,'',2,0,0),(18156,4114,7,720,0,'80.36.244.134',1157114530,1,0,1,1,1,0,'','','Gracias Antonio...\n\nVale, te cuento lo que pretendo....\n\nTengo dos tablas, clientes y articulos, y he creado un filtro para relacionar un cliente con todos sus articulos. Lo que pretendo es teniendo un cliente que pueda ir avanzando por sus articulos....\n\nPara ello estoy utilizando unos Get\'s donde muestro la información de la tabla y unos botones que me permitan ir al primer registro, al siguiente, al anterior y al último.\n\nHe puesto unos Get\'s porque quiero dar opcion a introducir un articulo nuevo para ese cliente.\n\n\nSaludos y gracias\n\nElías Torres.','',0,'AIA=','yew7r68n',1,0,'',720,0,0),(18157,4102,6,2,0,'87.218.146.93',1157114586,1,0,1,1,1,1,'','','Rafael,\n\nPuedes usar TerminateProcess() \n\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/default.aspx?scid=KB;en-us;178893&amp;\">http://support.microsoft.com/default.as ... us;178893&amp;</a><!-- m -->','',0,'AIA=','or0fkyzc',1,0,'',2,0,0),(18158,4114,7,2,0,'87.218.146.93',1157114773,1,0,1,1,1,1,'','','Elías,\n\nPuedes capturar una imagen de tu pantalla y ponerla aquí ? Usa <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y copia aqui el link que te proporciona.\n\nPuedes proporcionar un pequeño ejemplo en PRG para que veamos como lo estás planteando ?','',0,'AIA=','y0x6zryf',1,0,'',2,0,0),(18159,4065,19,2,0,'87.218.146.93',1157114897,1,0,1,1,1,1,'','','Enrico,\n\nYes to both. Same as in XP <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','aipvwobe',1,0,'',2,0,0),(18160,4103,3,2,0,'87.218.146.93',1157115324,1,0,1,1,1,1,'','','George,\n\nFWH does not include any Class TOLE.','',0,'AIA=','13ugwh1b',1,0,'',2,0,0),(18161,4115,7,778,0,'200.152.43.193',1157115651,1,0,1,1,1,0,'','O.T. Controle remoto do pocket','Olá a todos\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/technet/prodtechnol/wce/downloads/ppctoys.mspx\">http://www.microsoft.com/technet/prodte ... ctoys.mspx</a><!-- m -->\n\nVejam este link na Microsoft, lá tem um utilitário chamado \"REMOTE CONTROL\",\nvocês podem visualizar o seu pocket na tela do PC, e ter o controle do mesmo,\nfacilitando uma demonstração ou a confecção de manuais.\n\nespero ter ajudado.\n\nSaludos\n\nMauro','',0,'AIA=','3s5fh522',1,0,'',778,0,0),(18162,4057,3,190,0,'202.65.134.44',1157116582,1,0,1,1,1,0,'','','As per tests with the code I have posted in my previous posting, the effect\nis taking place only when the system is restarted.\n\nI have tested it only in Windows 98 SE.\n\n- Ramesh Babu P','',0,'AIA=','30b75xho',1,0,'',190,0,0),(18164,4065,19,6,0,'87.11.236.70',1157118649,1,0,1,1,1,1,'','','Thank you. Let\'s hope this compatibility will kept in the official release.\n\nEMG','',0,'AIA=','hl4o7x7f',1,0,'',6,0,0),(18165,4102,6,63,0,'80.37.102.128',1157118678,1,0,1,1,1,0,'','','Antonio:\nSupongo que habrá que llamar a Terminate Process() mediante alguna función en C. Podrías postear un ejemplo simple, por favor?\nGracias\nRafael','',0,'AIA=','38dgbvwc',1,0,'',63,0,0),(18167,4102,6,63,0,'80.37.102.128',1157119568,1,0,1,1,1,0,'','','Oskar:\nUtilizo Harbour Compiler Alpha build 44.0 (Flex) y FWH/FWHX 2.6 May/2005\nSaludos\nRafael','',0,'AIA=','ykt85ir2',1,0,'',63,0,0),(18168,4116,6,24,0,'80.37.55.44',1157120309,1,0,1,1,1,1,'','O.T. Usando XML en xHarbour','Aqui les dejo una serie de articulos que estoy poniendo en las news de Olivares2000, espero que les sea de utilidad, sobre el manejo de XML bajo xHarbour usando las clases que este compilador nos proveee.\n\nFalta el ultimo paso que es aprender a guardar, que espero tenerlo lo\nantes posible.\n\n\nBueno, como tengo bloqueado el acceso a mi blog, voy a ir poniendo aquí lo que he estado investigando sobre XML, gracias en parte a la documentación de Fredy, me a donado código donde poder observar \'como\' se abre un fichero y su posterior grabación.\n\nPor favor, si este documento contiene erratas, no duden en señalar donde metí la gamba.\n\nEn xHarbour, existen las clases TXmlDocument y compañia, realizadas por Giancarlo Niccolai, una gran persona y un grandísimo programador, que donó mucha parte de su tiempo a nuestro pequeña comunidad.\n\nBueno vamos allá. ( Ah, me recuerda a mis tiempos de Mini-FAQ <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->   )\n\n1.- Como abrir un fichero XML y poder procesarlo.\n\nHe intentado realizar según lo que dice Fredy, usando el method Read(), que teóricamente, según entendí:\n\noXml := TXmlDocument():New()\noXml:Read( \"fichero.xml\" )\n\nPero, no se si esto esta bien, pues no consigo recorrer los nodos.\nAsi, que , viendo código de Giancarlo, y después el de Ignacio, llegamos a la conclusión: ( A mi esto no me gusta... pero en fin.. )\n\nhFile := FOpen( \"reservas.xml\" ) // Ale, como toda  la vida.\nif hFile = -1\n   ? \"Error\"\nendif\n\noXml := TXmlDocument():New( hFile )\n\nAsi, que podemos observar como nos hace falta un handle de fichero para poder operar con el fichero XML.\n\nOk, ahora podemos, averiguar si hubo algún tipo de problema a la hora\nde crear el objeto.\n\nif oXml:nStatus != HBXML_STATUS_OK\n   switch oXml:nStatus\n       case HBXML_STATUS_ERROR\n            ? \"Ay! pillin, nos jorobo alguna cosa....!!\"\n       case HBXML_STATUS_MALFORMED\n            ? \"Please, only XML ,po dios!!\"\n   end\n   return\nendif\n\nBien, ya tenemos el objeto oXml...\n¿ Que haremos ahora ... continuará.... ?\n\n******************************************************************************\n2.-Leccion. Busca, busca, que algo encontraremos...\n******************************************************************************\nBien,  nosotros ya aprendimos como crear un objeto que contiene un fichero\nXML, o mas bien una referencia a dicho fichero.\n\nImaginemos por un momento, que tenemos un fichero XML, como este:\n\n&lt;?xml version=\"1.0\" encoding=\"iso-8859-1\"?&gt;\n&lt;PETICION id=\"ACTUALIZA_GRUPO\"&gt;\n&lt;LPARAMS&gt;\n&lt;PARAM reserva=\"1272\" agencia=\"0\" central=\"0\" facturar=\"1230\"/&gt;\n&lt;PARAM&gt;\n   &lt;HABITACION tipohab=\"DB\"&gt;\n     &lt;DIA fecha=\"01/01/2006\" habs_act=\"1\" prec_act=\"15.5\" /&gt;\n     &lt;DIA fecha=\"02/01/2006\" habs_act=\"2\" prec_act=\"125.5\" /&gt;\n     &lt;DIA fecha=\"03/01/2006\" habs_act=\"3\" prec_act=\"1225.5\" /&gt;\n   &lt;/HABITACION&gt;\n   &lt;HABITACION tipohab=\"DUI\"&gt;\n     &lt;DIA fecha=\"01/01/2006\" habs_act=\"4\" prec_act=\"1.5\" /&gt;\n     &lt;DIA fecha=\"02/01/2006\" habs_act=\"5\" prec_act=\"10.5\" /&gt;\n     &lt;DIA fecha=\"03/01/2006\" habs_act=\"6\" prec_act=\"100.5\" /&gt;\n   &lt;/HABITACION&gt;\n&lt;/PARAM&gt;\n&lt;/LPARAMS&gt;\n\nBien, ahora a nosotros , lo que nos interesa es buscar el nodo inicial en el cual vamos a procesar, para ello, vamos a buscar el\nid =\"ACTUALIZA_GRUPO\".\n\n¿ Como nos traemos un nivel en concreto ?\nPodemos usar el method FindFirst() para localizar el \"id\" que nos interesa:\n\noNodo := oXml:FindFirst( \"PETICION\", \"id\", \"ACTUALIZA_GRUPO\" )\n\nLa búsqueda, devuelve o el objeto oNodo que a encontrado , o en su defecto\ndevolverá NIL si no ha encotrado nada.\n\nBien... seguimos...\n\nEstando ya con el nodo , podriamos buscar un nodo igual, si tuvieramos\ndiferentes &lt;PETICION id=\"ACTUALIZA_GRUPO\"&gt;, con oXml:FindNext().\n\nAhora , podemos recorrer los nodos en busca de valores que nos interesa\ncoger:\n\nDO WHILE oNode != NIL\n   // Es un TAG y contiene algo, cogemos los atributos.\n    IF oNode:cName = \"PARAM\" .AND.;\n       oNode:nType == HBXML_TYPE_TAG .AND. ;\n       oNode:GetAttribute(\"reserva\") != NIL\n             ? \"------------------------------------------\"\n             ? oNode:GetAttribute(\"reserva\")\n             ? oNode:GetAttribute(\"agencia\")\n             ? oNode:GetAttribute(\"central\")\n             ? oNode:GetAttribute(\"facturar\")\n             ? \"------------------------------------------\"\n       ENDIF\n\nParamos aqui, y vemos lo que hemos estado realizando, el IF que existe,\nes que hay 2 tags con PARAM, uno con valores, y otro sin nada.\n\n&lt;PARAM reserva=\"1272\" agencia=\"0\" central=\"0\" facturar=\"1230\"/&gt;\n&lt;PARAM&gt;\n\nA nosotros, simplemente nos interesa procesar el que contiene valores,\npara ello, con el IF, selecciono el que necesito.\nSeguro que hay otro camino mas simple para hacer lo mismo, pero este es el\nque he encontrado en el poco tiempo que he podido mirar.\n\nY podemos ver, una cosa bien simple, y es como obtener los valores de\nlos atributos que nos interesa, a traves del method ::GetAttribute().\nRealmente, los atributos son guardados en una tabla Hash, y es la data\n::aAttributes la que contiene dichos datos.\n\nEntonces, simplemente haciendo:\n\nX := oNode:GetAttribute(\"reserva\"),  , X valdria \"1272\".\n\nOk, ahora hemos visto como podemos seleccionar un TAG y como podemos\nobtener los valores de dicho TAG, pero ahora nos interesa recorrer el TAG\nde las habitaciones para obtener los valores que nos han pasado.\nPara ello, a continuacion del siguiente codigo que antes habiamos puesto.\n\n   // Si el nodo es la habitacion\n   IF oNode:cName = \"HABITACION\"\n      ? \" NºHABITACION :\" +  oXmlNode:GetAttribute(\"tipohab\")\n      oNodeDia := oNode:NextInTree()\n      WHILE oNodeDia != NIl\n            IF oNodeDia:cName = \"DIA\"\n               ? oNodeDia:GetAttribute(\"fecha\") + \" \" +;\n                 oNodeDia:GetAttribute(\"habs_act\") + \" \" +;\n                 oNodeDia:GetAttribute(\"prec_act\")\n            ELSE\n               EXIT // Salimos del nodo\n            ENDIF\n            oNodeDia := oNodeDia:NextInTree()\n       END WHILE\n   ENDIF\n   oNode := oNode:NextInTree()\n   ENDDO\n\nRETURN NIL\n\n// Cerramos el XML\nfClose( hFile )\n\nBueno, del codigo podemos comentar el method NextInTree(), que seria\nun simil a las dbfs como el DbSkip(), ( idea muy acertada de Fredy ), y\nque va saltando de nodo a nodo, independientemente del nivel de anidacion,\nsiempre cogera el siguiente nodo, y dicho method , nos devuelve un objeto\nsi encontro algo o NIL en caso contrario.\n\nBueno, hemos podido ver como podemos recorrer los nodos y coger valores.\n\nProxima leccion:\n3.- Guardaté, condenado...\n\nUmm.. antes de grabar de XML, acabo de terminar de comprender y poner en funcionamiento el tema de los Iterator, y he escrito esto en un momentin.\n\n******************************************************************************\nProxima leccion: 2.5.- Busca , Mister \"Iterator\".\n******************************************************************************\nBueno, anteriomente, vimos como localizabamos un valor, y nos moviamos por\nel documento XML para obtener valores.\n\nBien, ahora, vamos a buscar de otra manera, a traves de un Iterator, pero\n¿ Que es un Iterator ?\nDigamos que un Iterator es una especie de localizador en un nodo en concreto.\n\nCuando creamos un objeto, oXml, este contiene el nodo root, por lo tanto,\npodemos buscar en todo el documento haciendo:\n\noIter := TXMLIteratorScan():New( oXml:oRoot )\noNodo := oIter:Find( \"PETICION\", \"id\", \"ACTUALIZA_GRUPO\" )\n\nBien, ahora imaginemos que tenemos en el fichero XML , copialo al XML que\ndefinimos anteriormente.\n\n//NODO 1\n&lt;PARAM id=\"detalle1\" &gt;\n     &lt;PARAM linea=\"DB\"&gt;\n        &lt;PARAM valor=\"este\"&gt;     &lt;/PARAM&gt;\n     &lt;/PARAM&gt;\n&lt;/PARAM&gt;\n\n//NODO 2\n&lt;PARAM id=\"detalle2\" &gt;\n     &lt;PARAM linea=\"DBU\"&gt;\n        &lt;PARAM valor=\"AQUI\"&gt;     &lt;/PARAM&gt;\n     &lt;/PARAM&gt;\n&lt;/PARAM&gt;\n\n//NODO 3\n&lt;PARAM id=\"detalle1\" &gt;\n     &lt;PARAM linea=\"XXX\"&gt;\n        &lt;PARAM valor=\"LALA\"&gt;     &lt;/PARAM&gt;\n     &lt;/PARAM&gt;\n&lt;/PARAM&gt;\n\nAhora veremos como localizar un nodo, y recoger ese nodo.\n\n// Localizamos\n oIter := TXMLIteratorScan():New( oXml:oRoot )\n oNode := oIter:Find( \"PARAM\", \"id\", \"detalle1\" )\n\nAhora teniendo este nodo, si hacemos :\n ? oNode:GetAttribute(\"id\") , vamos a obtener \"detalle1\".\n\nAsi, para poder coger linea podemos hacer:\n\noNodeHijo := oNode:oChild\n ? oNodeHijo:GetAttribute(\"linea\") , vamos a obtener \"DB\".\n\nY el siguiente:\noNodeHijo2 := oNodeHijo:oChild\n? oNodeHijo2:GetAttribute(\"valor\") , vamos a obtener \"este\".\n\nComo podeis observar , hay varias maneras de obtener el mismo resultado,\ndependiendo tambien como tengais realizado el XML, hareis o deshareis <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> .\n\nLos Iterator tambien puede ir a traves del method Next(), oIter:Next.\nAsi, si hacemos oIter:Next(), vamos a obtener el siguiente nodo, teniendo en\ncuenta la busqueda anterior :\n\noNode := oIter:Next() , vamos a obtener , si preguntamos:\n? oNode:GetAttribute(\"id\") , vamos a obtener \"detalle1\".\n\nVamos a coger el hijo :\noNodeChild := oNode:oChild\n? oNodeChild:GetAttribute(\"linea\") , vamos a obtener \"XXX\".\n\nEn definitiva, para usar este tipo de clases, recordad que es como recorrer\nun arbol , con sus ramas, flores, etc...\n( cuando no chuta pues has tropezado con estiercol, etc... <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> )\n\nHay varias opciones más, pero esto es un complemento a la ayuda de\nFreddy, para que podáis comprender mejor esa documentación.','',0,'AIA=','1u7zxfbw',1,0,'',24,0,0),(18169,3026,4,89,0,'213.21.136.60',1157123157,1,0,1,1,1,0,'','','hello Antonio\n\nther are a solution for this problem ?\n\nMaurizio','',0,'AIA=','1426g4k7',1,0,'',89,0,0),(18170,4103,3,171,0,'71.232.193.197',1157123214,1,0,1,1,1,0,'','','Antonio,\n\nThanks \n\n\nRegards\n\n\nGeorge','',0,'AIA=','9plp4p4n',1,0,'',171,0,0),(18172,4118,3,148,0,'82.201.238.180',1157130865,1,0,1,1,1,0,'','ComboBox inside Txbrowse','I need to edit a field in txbrowse with an array of DBF field values. How can I implement combobox inside Txbrowse?','',0,'AIA=','2els05e2',1,0,'',148,0,0),(18174,4119,6,492,0,'201.154.126.49',1157139437,1,0,1,1,1,1,'','Antonio : Asignar color del texto en BUTTONBMP','Antonio\n\nQuisiera asignar un color X a XX botones y un color Y a YY botones, pero creo que esta clase no tiene el metodo, estuve checando algunos post, y en uno indicas esto :\n\n[color=red:3k6we2nq]SetTextColor( ::hDC, nColorQueQuieres )  // NUEVO!!! [/color:3k6we2nq]\n\nPero al parecer, esto le pondria un mismo color a todos.\n\nSeria posible me indicaras que cambios hacer para poder hacer lo que deseo ?\n\nQue seria algo asi :\n\nREDEFINE BUTTONBMP aItmGrp[1] ID 106 OF oMainPages:aDialogs[1] ACTION ShwSubX(1) ;\n	PROMPT \"Opcion 1\"  COLOR CLR_HBLUE\n\nREDEFINE BUTTONBMP aItmGrp[2] ID 107 OF oMainPages:aDialogs[1] ACTION ShwSubX(2) ;\n	PROMPT \"Opcion 2\" COLOR CLR_HRED\n\n\nMuchas Gracias\n\nSaludos','',0,'Ag==','3k6we2nq',1,0,'',492,0,0),(18175,4119,6,492,0,'201.154.126.49',1157139530,1,0,1,1,1,1,'','','Y si de paso se puede al fondo del boton, mucho que mejor  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos','',0,'Ag==','359w2gso',1,0,'',492,0,0),(18176,4120,3,486,0,'200.184.85.3',1157144528,1,0,1,1,1,0,'','does directory exist?','Hi,\n\nWhich the best form for a directory to be seen exists?  \n  \nexample:  \nC:\\BA  \n  \n* he doesn\'t have any file in this directory\n\nClemerson','',0,'Ag==','12ghcfhg',1,0,'',486,0,0),(18177,4121,3,49,0,'62.13.172.78',1157146005,1,0,1,1,1,1,'','Tactivex BUG','Try this code :\n[code:114extyk]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n   local cEvents &#58;= &quot;&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   *oActiveX&#58;Do&#40; &quot;GoHome&quot; &#41;\n    oActiveX&#58;Do&#40; &quot;Navigate&quot;, &quot;http&#58;//www&#46;fivetechsoft&#46;com&quot; &#41;\n\n   oActiveX&#58;SetProp&#40; &quot;StatusBar&quot;, &#46;T&#46; &#41;       // not run ???\n   oActiveX&#58;SetProp&#40; &quot;AddressBar&quot;, &#46;T&#46; &#41;     // not run ???\n   oActiveX&#58;SetProp&#40; &quot;ToolBar&quot;, &#46;T&#46; &#41;         // not run ???\n   oActiveX&#58;SetProp&#40; &quot;LinksBar&quot;, &#46;T&#46; &#41;         // not run ???\n   oActiveX&#58;SetProp&#40; &quot;ToolbarOptions&quot;, &#46;T&#46; &#41;    // not run ???\n\n   MsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;StatusBar&quot; &#41; &#41;     // &#46;t&#46;\n   MsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;AddressBar&quot; &#41; &#41;    //  &#46;t&#46;\n   MsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;ToolBar&quot; &#41; &#41;       //  -1\n   MsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;LinksBar&quot; &#41; &#41;      //   nil\n   MsgInfo&#40; oActiveX&#58;GetProp&#40; &quot;ToolbarOptions&quot; &#41; &#41;     // nil\n\n\n\n   oActiveX&#58;bOnEvent = &#123; | event, aParams | cEvents += EventInfo&#40; event, aParams &#41; &#125;\n\n   ACTIVATE WINDOW oWnd ;\n      VALID &#40; MemoEdit&#40; cEvents &#41;, &#46;t&#46; &#41;\n\nreturn nil\n\nfunction EventInfo&#40; event, aParams &#41;\n\n   local cMsg &#58;= &quot;Event&#58; &quot; + cValToChar&#40; event &#41; + CRLF\n   local n\n\n   cMsg += &quot;Params&#58; &quot;\n\n   for n = 1 to Len&#40; aParams &#41;\n      cMsg += cValToChar&#40; aParams&#91; n &#93; &#41; + CRLF\n   next\n\nreturn cMsg + CRLF\n[/code:114extyk]\n\n\n\n\n this properties are not visible :\n\n    oActiveX&#058;SetProp( \"StatusBar\", .T. )       // not run ???\n   oActiveX&#058;SetProp( \"AddressBar\", .T. )     // not run ???\n   oActiveX&#058;SetProp( \"ToolBar\", .T. )         // not run ???\n   oActiveX&#058;SetProp( \"LinksBar\", .T. )         // not run ???\n   oActiveX&#058;SetProp( \"ToolbarOptions\", .T. )    // not run ???\n\nwhy ?\n\nI try also with Shell.Explorer.2 \n\nRegards,','',0,'AIA=','114extyk',1,0,'',49,0,0),(18178,4120,3,171,0,'71.232.193.197',1157146426,1,0,1,1,1,0,'','','Clemerson\n\n lIsDir(cDirectoryName)\n\nreturn .T. if exist, else return .F.\n\nRegards\n\n\nGeorge','',0,'AIA=','2f1bkd5i',1,0,'',171,0,0),(18179,4120,3,49,0,'62.13.172.78',1157146442,1,0,1,1,1,1,'','','see this sample :\nI hope it good for you\n\n\n\n[code:1veqbyht] \ncIni &#58;=GetWinDir&#40;&#41;+&quot;\\Classroom&#46;Ini&quot;\ncTem &#58;=GetPvProfString&#40;&quot;Classroom&quot;,&quot;DirDat&quot;,&quot;&quot;,cIni&#41;\ncDir &#58;=IF&#40;!Empty&#40;cTem&#41;,LFN2SFN&#40;cTem&#41;,cTem&#41;\ncNSys&#58;=&quot;ClassRoom&quot;\n\nIF !Empty&#40;cPar&#41; &#46;AND&#46; cPar==&quot;/L&quot;\n      cPath&#58;=CurDrive&#40;&#41;+&quot;&#58;\\&quot;+CurDir&#40;&#41;+&quot;\\&quot;\n   ELSE\n      cPath&#58;=IF&#40;!Empty&#40;cDir&#41;,cDir,&quot;\\&quot;+CurDir&#40;&#41;+&quot;\\&quot;&#41;\n   ENDIF\n   IF Empty&#40;cTem&#41;\n      cPath&#58;=CurDrive&#40;&#41;+&quot;&#58;\\&quot;+CurDir&#40;&#41;+&quot;\\&quot;\n      WritePProString&#40;cNSys,&quot;DirDat&quot;,cPath,cIni&#41;\n   ENDIF[/code:1veqbyht]','',0,'AIA=','1veqbyht',1,0,'',49,0,0),(18180,4122,6,92,0,'62.151.116.8',1157148003,1,0,1,1,1,0,'','Problema GetHostByName','Hola a todos,\n\n¿Porque GetHostByName me devuelve 0.0.0.0 por ejemplo para smtp.jazzfree.com o pop3.jazzfree.com?\n\nUso FiveWin 2.6\nSaludos y gracias\nCarlos G.','',0,'AIA=','om0xoo3t',1,0,'',92,0,0),(18181,4123,6,92,0,'62.151.116.8',1157148133,1,0,1,1,1,0,'','Blat.exe','¿Alguien ha intentado usar Blat desde FiveWin y bajo XP? Les ha funcionado?\n\n¿Existe una clase para manejar esta utilidad?\n\nSaludos y gracias\nCarlos G.','',0,'AIA=','2vlq9m6l',1,0,'',92,0,0),(18182,4122,6,138,0,'201.128.111.188',1157149523,1,0,1,1,1,1,'','','No soy experto en esto pero puede ser:\n\n1) No existen los servidores\n2) El servidor no es \"pingeable\" es decir el puerto 4 esta cerrado\n3) El servicio no existe, quita el nombre del servicio (pop o smpt) y prueba solo con el nombre del dominio (jazzfree.com)\n4) Tienes un firewall activado que no te deja salir','',0,'AIA=','dr0h42cw',1,0,'',138,0,0),(18183,4121,3,2,0,'87.218.146.93',1157149746,1,0,1,1,1,1,'','','Silvio,\n\nIt does not seem as a Class TActiveX bug. Somehow the Explorer activex is not allowing the management of those properties.\n\nHave you tried it from another programming language that manages ActiveX like VB, Delphi, etc. ?','',0,'AIA=','gt989kct',1,0,'',2,0,0),(18184,4098,3,2,0,'87.218.146.93',1157150120,1,0,1,1,1,1,'','','Norbert,\n\nThe problem is that you are getting extra info on aFiles[_I,2], right ?','',0,'','2m720alg',1,0,'',2,0,0),(18185,4109,3,2,0,'87.218.146.93',1157150291,1,0,1,1,1,1,'','','Ehab,\n\nWhy don\'t you modify your report to choose just the fields that fit on the page, and run several reports one after another ?','',0,'','1ndkwh96',1,0,'',2,0,0),(18186,4122,6,92,0,'62.151.116.7',1157150664,1,0,1,1,1,0,'','Gracias Rene, por el tema del Firewall creo qeu van los tiro','[quote=&quot;RF&quot;:3oi4w8pi]No soy experto en esto pero puede ser:\n\n1) No existen los servidores\n2) El servidor no es \"pingeable\" es decir el puerto 4 esta cerrado\n3) El servicio no existe, quita el nombre del servicio (pop o smpt) y prueba solo con el nombre del dominio (jazzfree.com)\n4) Tienes un firewall activado que no te deja salir[/quote:3oi4w8pi]','',0,'gA==','3oi4w8pi',1,0,'',92,0,0),(18187,4093,2,138,0,'201.128.111.188',1157150762,1,0,1,1,1,1,'','Re: Como puedo saber la/las cuentas de  Emails de la PC','[quote=&quot;Databaselab2002&quot;:3evp5uqh]Estimados Colegas\n\nExiste alguna manera de saber la/las cuentas de emails de la pc \n\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->[/quote:3evp5uqh]\n\nYo pense que no era posible, hasta que me encontre en una entrada del Registry de Windows mis cuentas de correo, busca en esta entrada:\n\nHKEY_CURRENT_USER / Software / Microsoft / Windows / CurrentVersion / Unreadmail \n\ny ahi aparecen todas las cuentas de correo, por lo menos las de mi equipo','',0,'gA==','3evp5uqh',1,0,'',138,0,0),(18188,4119,6,2,0,'87.218.146.93',1157150989,1,0,1,1,1,1,'','','Raymundo,\n\nPrueba a modificar la Clase TbuttonBmp en el método Paint():\n[code:3q4cdetl]\nMETHOD Paint&#40;&#41; CLASS TButtonBmp\n\n   local aInfo &#58;= &#58;&#58;DispBegin&#40;&#41;\n   local nTop, nLeft, lPressed\n\n   SetTextColor&#40; &#58;&#58;hDC, &#58;&#58;nClrText &#41;  // nuevo\n   SetBkColor&#40; &#58;&#58;hDC, &#58;&#58;nClrPane &#41; // nuevo\n   CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n   &#46;&#46;&#46;\n[/code:3q4cdetl]\nAsí asignando las DATA ::nClrText y ::nClrPane de cada botón, cada botón usaría sus propios colores.','',0,'AIA=','3q4cdetl',1,0,'',2,0,0),(18189,4090,3,171,0,'71.232.193.197',1157152474,1,0,1,1,1,0,'','','Hi Enrico,\n\nThe problem is when I try to send a PDF or DOC document I got  a dialog with following message:\n\n\"The selected attachment is being converted into a fax image\"\n\n But the dialog *WAIT* until I have to cancel; after that only send the cover page never the attachment\n\nregards\n\n\nGeorge','',0,'AIA=','3cmlushn',1,0,'',171,0,0),(18190,4119,6,492,0,'201.154.126.49',1157154917,1,0,1,1,1,1,'','','Muchas gracis MASTER, hare mis pruebas   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n\nSaludos','',0,'AIA=','1om68ilv',1,0,'',492,0,0),(18191,4066,3,2,0,'87.218.146.93',1157158465,1,0,1,1,1,1,'','','Silvio,\n\nThose are features of that specific activex control. They should work as you are doing it.\n\nSorry we can\'t help you on that issue, we don\'t know it.','',0,'AIA=','qn6wrt49',1,0,'',2,0,0),(18192,4090,3,303,0,'72.199.41.171',1157159404,1,0,1,1,1,0,'','','Are you sure that WinFax can convert a .DOC file attachment on the fly like that? I have not used WinFax, but other fax programs I have worked with could only handle TIFF files (standard fax format) or the application (MSWord) would have to print the document to the fax driver which would then send the document.\n\nJames','',0,'AIA=','11pvpky7',1,0,'',303,0,0),(18193,4124,3,299,0,'24.233.172.101',1157159905,1,0,1,0,1,0,'','Exit DTPICKER control with K_enter','Hi everyone,\n\nHow can I make fw to exit a DTPicker control with the enter and/or return key?\n\nThank you,\n\n\nReinaldo','',0,'AIA=','1ggkpbrl',1,0,'',299,0,0),(18194,4116,6,328,0,'72.252.44.97',1157160368,1,0,1,1,1,0,'','','Excelente!!!\nGracias Rafa, estuve buscando hace un tiempo como trabajar lo de XML con xHarbpur, pero no había podido hacer casi nada, pero ahora con este tu artículo ya tengo para ponerme a trabajar, por lo menos en como leerlos ficheros XML, por lo que estaré pendiente de tu próximo articulo de como guardar.\n\nGracias nuevamente  por este trabajo.\n\nSaludos.\n\nCarlos Sincuir','',0,'AIA=','k3o7n8xk',1,0,'',328,0,0),(18195,4125,2,66,0,'201.212.157.34',1157164941,1,0,1,0,1,0,'','Como le envio comandos at al modem','Estimados Colegas\n\nComo hago para enviarles comando AT al modem y obtener\nrespuesta.\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','2egn1hk7',1,0,'',66,0,0),(18196,4126,6,66,0,'201.212.157.34',1157165017,1,0,1,0,1,0,'','Como  le envio comandos AT al modem','Estimados Colegas\n\nComo hago para enviarles comando AT al modem y obtener\nrespuesta.\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','did4s760',1,0,'',66,0,0),(18197,4108,6,785,0,'190.64.111.1',1157171077,1,0,1,1,1,0,'','','Gracias Oskar.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','33m7exfm',1,0,'',785,0,0),(18199,4046,16,2,0,'87.218.146.93',1157184895,1,0,1,1,1,1,'','','Construcción Agosto 2006\n===================\n\n* Mejora: FWH ha sido construido usando la nueva versión del CVS de Harbour. La mejora mas importante es que ahora se puede mezclar código C y C++ en la misma aplicación. Importante: Todos los PRGs deben ser recompilados !!! \n\n* Nuevo: FWPPC, soporte para carpetas con pestañas en la parte inferior y estilo plano. Todo lo que tienes que especificar es la claúsula BOTTOM.\nPor favor revisa el ejemplo samples\\TestFldb.prg.  \n\n* Nuevo: FWH, samples\\FileVer.prg y FileVer.rc muestran como manejar la información de versión del fichero \"FileVersion\" desde una aplicación.\n\n* Mejora: El fichero \"Fivewin.ch\" ha sido modificado para solucionar algunas incompatibilidades con xHarbour Builder. Ahora esta correcto. \n\n* Mejora: La utilidad samples\\RC2PRG.prg ha sido mejorada. Gracias a Armando !!! \n\n* Mejora: La utilidad tools\\clp2harb.prg ha sido modificada para adaptarla a los cambios recientes en Harbour. \n\n* Mejora: Se ha mejorado la clase TGet para soportar \"cortar y pegar\". \n\n* Corrección: La clase TMultiGet no cerraba correctamente el \"portapapeles\" en todas las circustancias. \n\n* Nuevo: FWPPC, samples\\TestBrwS.prg muestra como realizar una busqueda incremental en un \"browse\" en un Pocket PC (igual que en FW/FWH).\n\n* Nuevo: samples\\ShowApp.prg muestra como correr sólo una instancia de una aplicación de 32 bits, y traerla a primer plano si esta corriendo. \n\n* Nuevo: FWPPC, la clase TPages esta ya disponible. Por favor revisa samples\\TestPage.prg para un ejemplo operativo.\n\n* Mejora: FWPPC, ya disponibles los métodos nVertRes() y nHorzRes() en la clase Twindow. \n\n* Mejora: FWH, FWPPC: La clase TDatePick no estaba poniendo correctamente la fecha proporcionada en el método New(). Ahora esta correcta.','',0,'AIA=','3lm2ylxx',1,0,'',2,0,0),(18200,4090,3,2,0,'87.218.146.93',1157185033,1,0,1,1,1,1,'','','René,\n\nThere is no a Class TOle in FWH.','',0,'AIA=','37hflhj5',1,0,'',2,0,0),(18201,4125,2,2,0,'87.218.146.93',1157185075,1,0,1,1,1,1,'','','Fabian,\n\nTienes un ejemplo operativo en samples\\phone.prg','',0,'AIA=','18lvgvv4',1,0,'',2,0,0),(18202,4126,6,2,0,'87.218.146.93',1157185138,1,0,1,1,1,1,'','','Fabian,\n\nTienes un ejemplo operativo en samples\\phone.prg','',0,'AIA=','g335lqmd',1,0,'',2,0,0),(18203,4064,6,782,0,'217.217.170.116',1157188650,1,0,1,1,1,0,'','','Hola de nuevo Antonio, he compilado con el obj que me pasaste pero me sigue sin funcionar. El ejecutable lo construyo con el siguiente comando:\n \"Buildc3 testcom3\", y el contenido del fichero por lotes es el siguiente:\n\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for C3 - August 2004                          C3 development power ³Ü\nECHO ³ (c) FiveTech, 1993-2004           for MS Windows 9x, NT, 2000/3, ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nSET C3DIR=i:\\C3\nSET LIB=..\\LIB;i:\\C3\\LIB32\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n%C3DIR%\\bin\\c3 %1 -D__C3__ /n/a/v/w/i..\\include &gt; comp.log\n@type comp.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n:ENDCOMPILE\n\nIF EXIST %1.rc i:\\bcc55\\bin\\brc32 -r %1\n\nECHO Linking...\necho %C3DIR%\\lib32\\startup.obj + &gt; b32.bc\necho %1.obj + &gt;&gt; b32.bc\n[b:2m0hp2nx]echo i:\\clipper5\\fwc3\\samples\\comm.obj, + &gt;&gt; b32.bc                         &lt;&lt;&lt;&lt;&lt; AQUI LE HE PUESTO EL MODULO QUE ME SASASTE[/b:2m0hp2nx]\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho ..\\lib\\fivec3.lib + &gt;&gt; b32.bc\necho ..\\lib\\fivec3c.lib + &gt;&gt; b32.bc\necho objt32.lib + &gt;&gt; b32.bc\necho ccc32.lib + &gt;&gt; b32.bc\necho extend32.lib + &gt;&gt; b32.bc\necho dbfcdx32.lib + &gt;&gt; b32.bc\necho winapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n\n%C3DIR%\\bin\\tlink32 -Tpe -aa -c -m -V4.0 -L%C3DIR%\\LIB32 @b32.bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n\n%1\nGOTO EXIT\n\n:LINKERROR\nPAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Buildc3 [Program]     {-- No especifiques la extensi¢n .PRG\nECHO                                  {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO Not exists the specified PRG\n\n:EXIT\n\n\nle he añadido puntualmente la linea que te marco en negrita pero no se si es correcto.\n\nGracias \nUn Saludo\nJavier','',0,'QA==','2m0hp2nx',1,0,'',782,0,0),(18204,4090,3,6,0,'87.16.213.84',1157190655,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:3mjh2dp1]Hi Enrico,\n\nThe problem is when I try to send a PDF or DOC document I got  a dialog with following message:\n\n\"The selected attachment is being converted into a fax image\"\n\n But the dialog *WAIT* until I have to cancel; after that only send the cover page never the attachment\n\nregards\n\n\nGeorge[/quote:3mjh2dp1]\n\nYou must have Office installed in order to send DOC attachments.\n\nEMG','',0,'gA==','3mjh2dp1',1,0,'',6,0,0),(18205,4123,6,177,0,'82.130.229.138',1157193161,1,0,1,1,1,0,'','','Hola Carlos,\n\nyo no he utilizado Blat <!-- m --><a class=\"postlink\" href=\"http://www.blat.net/\">http://www.blat.net/</a><!-- m --> desde Fivewin, pero sí lo he hecho desde la solución de Backup Legato Networker y te puedo asegurar que es muy fácil su utilización. Qué necesitas ?\n\nSaludos,\n\nFélix','',0,'gA==','3i9vvzw6',1,0,'',177,0,0),(18206,3680,6,177,0,'82.130.229.138',1157193629,1,0,1,1,1,0,'','','Rafa,\n\ny EnterpriseDB <!-- m --><a class=\"postlink\" href=\"http://www.enterprisedb.com/\">http://www.enterprisedb.com/</a><!-- m --> ?\n\nSaludos,\n\nFélix','',0,'gA==','h2s11kga',1,0,'',177,0,0),(18207,3680,6,177,0,'82.130.229.138',1157194867,1,0,1,1,1,0,'','','Rafa,\n\ny EnterpriseDB <!-- m --><a class=\"postlink\" href=\"http://www.enterprisedb.com/\">http://www.enterprisedb.com/</a><!-- m --> ?\n\nSaludos,\n\nFélix','',0,'gA==','dqyg0ual',1,0,'',177,0,0),(18208,4046,16,26,0,'84.52.130.249',1157195338,1,0,1,1,1,1,'','','Hello!\n\nMaybe just a small suggestion: What do you think about adding\na link \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewforum.php?f=16\">http://fivetechsoft.com/forums/viewforum.php?f=16</a><!-- m -->\nto the \n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/news.html\">http://www.fivetechsoft.com/english/news.html</a><!-- m -->\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nRegards, Roman','',0,'gA==','2cdce0gw',1,0,'',26,0,0),(18209,4065,19,26,0,'84.52.130.249',1157196104,1,0,1,1,1,1,'','','Hello!\n\nBTW, RC1 is now available (build 5600-16384)\n<!-- m --><a class=\"postlink\" href=\"http://blogs.technet.com/windowsvista/archive/2006/09/01/453491.aspx\">http://blogs.technet.com/windowsvista/a ... 53491.aspx</a><!-- m -->\n\n[quote:26tczwno]Then even Windows Vista is able to run 16 bit app? And is there a command line console? [/quote:26tczwno]\n\nIMHO this was never questionable for 32-bit Vista! On the other hand, 64-bit versions of Windows (x64) do not run 16-bit programs ...\n\nRegards, Roman','',0,'gA==','26tczwno',1,0,'',26,0,0),(18210,4121,3,49,0,'62.13.172.78',1157196545,1,0,1,1,1,1,'','','Yes i try with C3 with shell.Explorer.2\nIn c3 ( activex3  project) you can see the address bar  ....\n <!-- m --><a class=\"postlink\" href=\"http://www.c3compiler.com/Archivos/ActiveX3.zip\">http://www.c3compiler.com/Archivos/ActiveX3.zip</a><!-- m -->\n\nI not found sample in another language but I go to winguide and I found I can set the property VIA REGISTer\n<!-- m --><a class=\"postlink\" href=\"http://www.winguides.com/registry/display.php/1111/\">http://www.winguides.com/registry/display.php/1111/</a><!-- m -->\n\nhave you another Idea ?\nwhy I cannot use SetProp( ) method ?','',0,'gA==','1hbcin0k',1,0,'',49,0,0),(18211,4065,19,6,0,'87.16.213.84',1157197445,1,0,1,1,1,1,'','','[quote=&quot;modicr&quot;:1klin96p]Hello!\n\nBTW, RC1 is now available (build 5600-16384)\n<!-- m --><a class=\"postlink\" href=\"http://blogs.technet.com/windowsvista/archive/2006/09/01/453491.aspx\">http://blogs.technet.com/windowsvista/a ... 53491.aspx</a><!-- m -->\n\n[quote:1klin96p]Then even Windows Vista is able to run 16 bit app? And is there a command line console? [/quote:1klin96p]\n\nIMHO this was never questionable for 32-bit Vista! On the other hand, 64-bit versions of Windows (x64) do not run 16-bit programs ...\n\nRegards, Roman[/quote:1klin96p]\n\n<!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','1klin96p',1,0,'',6,0,0),(18213,4066,3,49,0,'62.13.172.78',1157198202,1,0,1,1,1,1,'','','Now I found a code for Vb and delphi\nSomeone can translate it for xharbour\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=1&amp;lngCodeId=10141&amp;strZipAccessCode=tp%2FC101415668\">http://www.planet-source-code.com/vb/sc ... C101415668</a><!-- m --> ?\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.planet-source-code.com/vb/scripts/ShowZip.asp?lngWId=7&amp;lngCodeId=1360&amp;strZipAccessCode=tp%2FA13602032\">http://www.planet-source-code.com/vb/sc ... FA13602032</a><!-- m -->','',0,'gA==','27x7eww8',1,0,'',49,0,0),(18214,4064,6,2,0,'87.218.146.93',1157198261,1,0,1,1,1,1,'','','Javier,\n\nSí, es correcto. Te construye el EXE bien, si ?\n\nQue error te da ? Puedes proporcionar un pequeño ejemplo, autocontenido, que reproduzca el error ? gracias','',0,'gA==','1645jiu0',1,0,'',2,0,0),(18215,4128,4,3,0,'82.65.81.65',1157201562,1,0,1,1,1,1,'','close gprs connexion','Hello\n\nI can send data through gprs thank\'s to Pawel\'s code (works great) .\n\nI want to close automatically the gprs connexion after transmission .\n\nFor this i use code below but the connexion is still up after execution of this code. I am using windows mobile 2003.\n\nAny help will be appreciated,\n\nThanks\n\nRichard\n\nHB_FUNC (CLOSEGPRSCONNECTION)\n{\n\nHANDLE phWebConnection = NULL;\nDWORD pdwStatus = 0;\nDWORD hresult  = 0;\n\nConnMgrConnectionStatus (phWebConnection, &amp;pdwStatus);\nif (pdwStatus == CONNMGR_STATUS_CONNECTED)\n   {\n     hresult == ConnMgrReleaseConnection(&amp;phWebConnection,0);  // 0 = disconnect immedialtely\n   }\n}','',0,'gA==','1yuknnmp',1,0,'',3,0,0),(18216,4064,6,782,0,'217.217.170.116',1157210783,1,0,1,1,1,0,'','','Hola Antonio,\nel fichero que estoy compilando es Testcom3.prg que esta en el directorio Samples de FWC3 y que me biene perfecto para probar un pequeño montaje con un pic. El caso es que al compilar y enlazar con la version de C3 no me da ningun error, se construye el exe sin problemas y al ejecutarlo, muestra una ventana vacia. Esta ventana deberia mostrar una cadena de caracter en el momento que entra por el puerto serie, pero como te digo no hace nada. Sin embargo este mismo ejemplo lo compilo y enlazo con la version FW21 para clipper y funciona perfectamente. Como te comentaba al principio, conecado al Com1 tengo un pequeño montaje con un pic 16f84 programado en C que envia una cadena de caracteres cada cierto tiempo a dicho puerto. El puerto esta configurado de la siguiente forma:\nvelocidad: 57600\nparidad: n\nbits: 8\nparada: 1\nSi ejecuto el programa compilado con FW21 lee perfectamente el puerto y muestra el contenido, pero al compilarlo FWC3 no da errores pero no funciona (enlazado con el modulo que me pasaste).\nEstoy un poco desorientado porque no tengo manera de leer el puerto y tampoco quisiera hacer la aplicacion en 16 bits.\nSi me pudieras echar una mano te lo agradeceria.\nUn Saludo\nJavier Morales','',0,'gA==','2e99wdmy',1,0,'',782,0,0),(18217,4098,3,308,0,'84.148.47.56',1157214590,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3d452h57]Norbert,\n\nThe problem is that you are getting extra info on aFiles[_I,2], right ?[/quote:3d452h57]\n\nyes, normaly element 1 = Filename, element 2 = Filesize\n\nBest regards, Norbert','',0,'gA==','3d452h57',1,0,'',308,0,0),(18219,4130,6,180,0,'88.16.138.144',1157221838,1,0,1,1,1,0,'','Primeros pasos con FWH','Por fín me he decidido a dar el salto a FWH por lo que les daré la paliza en este foro en los próximos dias:\nLa expresión siguiente que funciona pefectamente con Clipper+FW:\n[color=blue:1faayb6p]oLbx:nClrPane:={|| IIF((cUsaBase)-&gt;Tipo = 1,(RGB(0,0,0),RGB(245,158,146)),(RGB(0,0,0),RGB(141,231,250)))}[/color:1faayb6p]\n\nda el siguiente error al compilar con harbour:\n\n===============================================\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\MAR\\PRUEBA\\gastos.prg\'...\n[color=red:1faayb6p]C:\\MAR\\PRUEBA\\gastos.prg(273) Warning W0027  Meaningless use of expression: \'Numeric\'[/color:1faayb6p]\nC:\\MAR\\PRUEBA\\gastos.prg(273) Warning W0027  Meaningless use of expression: \'Numeric\'\nNo code generated.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n\nUso VERCE v4.3 y FWH 2.7','',0,'Ag==','1faayb6p',1,0,'',180,0,0),(18220,4130,6,2,0,'87.218.146.93',1157224068,1,0,1,1,1,1,'','','Manuel,\n\nRGB(0,0,0) lo incluyes dos veces entre paréntesis y no se usa para nada, ya que no estás devolviendo un array.\n\nQuita ambos RGB(0,0,0) y prueba de nuevo.\n\nPor favor, pon los mensajes en español en el foro en español, gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','3brxyi7o',1,0,'',2,0,0),(18221,4105,3,49,0,'62.13.172.78',1157224181,1,0,1,1,1,1,'','','If I must terminate many processes but I not Know how many application are in process, but only these processes not mine program ...\nHow I can make it ?\n\nCan I have an small sample,pls ?','',0,'Ag==','3g6dtak9',1,0,'',49,0,0),(18222,4057,3,49,0,'62.13.172.78',1157224349,1,0,1,1,1,1,'','','Dear Ugo,\nthe code sample run but I must restart the system to effect it !!!\n\nIs there an solution to NOTrestart the system?','',0,'Ag==','zdg1k301',1,0,'',49,0,0),(18223,4066,3,49,0,'62.13.172.78',1157226406,1,0,1,1,1,1,'','','FOR the GURUS :\n\nINTERNET EXPLORER  ( EVENTS, METHOD, PROPERTIES)\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp\">http://msdn.microsoft.com/library/defau ... plorer.asp</a><!-- m -->\n\n\nTHANKS','',0,'Ag==','2j929obc',1,0,'',49,0,0),(18224,4090,3,171,0,'71.232.193.197',1157228585,1,0,1,1,1,0,'','','Enrico,\n\nI have MS Office 2003, and Winfax installed in my computer.\n\nBTW I am using TWORD class without problem. \n\n\nRegards\n\n\nGeorge','',0,'Ag==','3fu2rl4g',1,0,'',171,0,0),(18225,4090,3,6,0,'87.17.213.102',1157231356,1,0,1,1,1,1,'','','I run out of ideas, sorry.\n\nEMG','',0,'Ag==','1c3vx46r',1,0,'',6,0,0),(18226,4105,3,63,0,'80.37.102.128',1157235516,1,0,1,1,1,0,'','','Same for me, pls\n\nRafael','',0,'Ag==','39lm97at',1,0,'',63,0,0),(18227,4131,4,47,0,'203.144.143.4',1157235815,1,0,1,1,1,0,'','Use file from Network Drive with Shared','Dear All,\n\nI\'ve found the problem with open file from network drive with shared mode.  How can I open it.\n\nCURDIR() function is show \n\n\"Network\\V4 on DUTCHEZ4\"\n\nI try to use this command but it doesn\'t work.\n\nUSE (CURDIR()+\"\\TEST\") SHARED NEW \n\nIf I do not use SHARED, I can open it but not in shared mode\n\nUSE (CURDIR()+\"\\TEST\") NEW \n\nBest regards,\nDutch','',0,'Ag==','3iy4vjtt',1,0,'',47,0,0),(18228,4132,6,264,0,'200.113.61.29',1157238392,1,0,1,1,1,0,'','Para Antonio. Problemas ultima version.','Con la ultima version de agosto, mi sistema solo puede ejecutarse con la compilacion de xharbour.\nEn lo usual, no compilamos con xb solo el harbour normal.\nEl exe luego de cargarse se descarga de inmediato, puse unas banderas para avisar si ingresa o no y ni siquiera llega a la declaracion de LOCAL o MEMVAR.\nTienes algun reporte de este tipo de falla ?\nNo trabajamos con ninguna clase modificada ni lib externa.\nAgradeceria tu ayuda.\nSaludos\n\nPD: extrañamente todos los ejemplos funcionan.','',0,'Ag==','1nc5zdmk',1,0,'',264,0,0),(18229,4131,4,2,0,'87.218.146.155',1157238528,1,0,1,1,1,1,'','','Dutch,\n\nAre you using Windows Mobile 2005 ?','',0,'Ag==','10gthf8r',1,0,'',2,0,0),(18230,4132,6,431,0,'200.8.88.114',1157238712,1,0,1,1,1,1,'','','Igualmente al bajar el ultimo FTDN intente compilar el cual lo hace sin errores pero la aplicacion nunca llega a levantarse tuve que volver al anterior FTDN \n\nuso BCC + Harbour + FWH','',0,'Ag==','iiit0u50',1,0,'',431,0,0),(18231,2980,6,775,0,'201.246.6.167',1157246312,1,0,1,1,1,0,'','Maestro yo me anoto','yo tambien quiero participar de ese curso','',0,'Ag==','1mmnpbyv',1,0,'',775,0,0),(18233,4124,3,299,0,'24.233.172.101',1157249792,1,0,1,0,1,0,'','','I find that I can only exit a dtpicker control by pressing the TAB key.  I have tried changing the methods on the class to no avail.\n\nThere has to be a way to exit this control using the &lt;return&gt; or &lt;enter&gt; keys.\n\nany ideas?\n\nReinaldo.','',0,'Ag==','11bw2qtt',1,0,'',299,0,0),(18234,4133,3,230,0,'152.163.100.14',1157257459,1,0,1,1,1,0,'','UEStudio 5.0/6.0 Creating Browses','As anybody useing the UEStudio 5.0/6.0 to create a Browse using the\nResource Editor.  \n\n1. How do you create the Browse (TWBrowse/TSBrowse).\n\n2. How do you after you create a custom Control.\n    a:) reload and display the Control?\n    b:) save the control to recall later?\n3. How do you create the Folder Control.\n\nThank you','',0,'Ag==','zcxp5etn',1,0,'',230,0,0),(18235,4131,4,47,0,'203.144.143.5',1157260004,1,0,1,1,1,0,'','Yes, WM5','Dear Antonio,\n\nYes, I use WM5 &amp; HP IPAQ 2790.  When I click on the program.  It doesn\'t show anything but after I change my code to USE without SHARED or SHARE.  The program is opened immediately.\n\nRegards,\nDutch','',0,'Ag==','3p276hu5',1,0,'',47,0,0),(18236,4131,4,2,0,'87.218.146.155',1157263163,1,0,1,1,1,1,'','','Dutch,\n\nIs SHARED is blocking or slowing down the USE process on a real Pocket PC, you may consider to build your application without SHARED clause.\n\nYou may use a workaround, like using temporary DBFs, or an external file to use it as semaphore to know when to lock/unlock other files from the PC.','',0,'Ag==','6tbca6og',1,0,'',2,0,0),(18237,4132,6,2,0,'87.218.146.155',1157265757,1,0,1,1,1,1,'','','Comprobad que no esteis usando un harbour.exe anterior en vuestro ordenador. El build actual es Harbour Compiler Alpha build 46.2 (Flex) y mide 431.104 bytes.\n\nPor otra parte, el pcode ha cambiado, por lo que hay que recompilar todos los PRGs y librerías propias que esteis usando.','',0,'Ag==','zl368q2p',1,0,'',2,0,0),(18238,4134,4,3,0,'82.255.245.139',1157267151,1,0,1,1,1,1,'','tftp class','Antonio\n\nDo you plan to make tftp class available for fwppc ?\n\nI neeed to retreive the content of a ftp directory .\n\nThis is straight from tftp class, if not i have to figure out another way.\n\nThanks for your reply\n\nRichard','',0,'Ag==','1w2l9pnk',1,0,'',3,0,0),(18239,4131,4,47,0,'203.144.143.4',1157270308,1,0,1,1,1,0,'','','Dear Antonio,\n\nYou mean I have to USE an EXCLUSIVE mode.  How can I open the shared file.  May I have an example open file as SEMAPHORE?\n\nBest regards,\nDutch','',0,'Ag==','1lygjs7q',1,0,'',47,0,0),(18240,4105,3,63,0,'80.37.102.128',1157271152,1,0,1,1,1,0,'','','Oskar:\nMuchííííísimas gracias.  Funciona perfecto.  Es justo lo que yo necesitaba\nUn saludo\nRafael','',0,'Ag==','2msbafle',1,0,'',63,0,0),(18241,4131,4,2,0,'87.218.146.155',1157273457,1,0,1,1,1,1,'','','Dutch,\n\n&gt; You mean I have to USE an EXCLUSIVE mode. \n\nYes. If Windows Mobile 2005 does not let you use the SHARED mode then you have no other choice.\n\n&gt; May I have an example open file as SEMAPHORE?\n\nVery simple, you use an ascii file where you write the locked records info. i.e.: locks.txt where you have:\nnumber of locks: 2\nrecord 2300\nrecord 3420\n\nSo before you are going to modify a record, you check locks.txt to see if your record is \"locked\". If not, then you increase the number of locked records and write the record number. When you are done, you modify locks.txt again to remove the locked record.','',0,'Ag==','3gqiyxqo',1,0,'',2,0,0),(18242,4131,4,2,0,'87.218.146.155',1157273709,1,0,1,1,1,1,'','','Dutch,\n\nAnother possible workaround is to simulate a kind of client/server schema. You may have a file named tolock.txt and there you write the record you want to lock, and an app in the pc locks it for you.\n\nIn other words, you give instructions to a server application that modify the database for you. You may also use sockets instead an ascii file to comunicate with the \"server\".','',0,'Ag==','3b5pex0g',1,0,'',2,0,0),(18243,4135,6,618,0,'217.216.147.47',1157274001,1,0,1,1,1,1,'','Fivewin: enviar datos a un fomulario en pagina web y recoger','Alguien ha probado desde Fivewin lanzar una respuesta http a un servidor, rellenando un formulario y luego recoger lo que devuelve, para tratarlo y guardar el resultado en un .dbf ?','',0,'Ag==','2nzw9yzn',1,0,'',618,0,0),(18244,4131,4,47,0,'203.144.143.4',1157274018,1,0,1,1,1,0,'','I do not understand','Dear Antonio,\n\nI don\'t understand \"Lock.Txt\".  If this file is a main transaction file, you cannot use in exclusive for sure.  If not how can you request for a lock record because you don\'t know what is the record number to lock.  I you say WM5 cannot open with SHARE, I think the middle application (interface module) is the way out. \n\nBest regards,\nDutch','',0,'Ag==','1fxcotlj',1,0,'',47,0,0),(18245,4136,3,49,0,'62.13.172.78',1157274624,1,0,1,1,1,1,'','How select many lines','I made a normal listbox with array\n I want select many lines to save on these lines the same record \n I use wbrowse of Hernan\n \n I hope this is possible !!!\n thanks,','',0,'Ag==','2du87mqk',1,0,'',49,0,0),(18246,4130,6,180,0,'88.16.138.144',1157277166,1,0,1,1,1,0,'','','Gracias Antonio, arreglado.\nSiento lo del foro en ingles. Me colé con las prisas.\nLos próximos en su sitio.\n\nUn saludo,\nManuel Aranda','',0,'Ag==','9fusqusa',1,0,'',180,0,0),(18247,4137,1,161,0,'81.164.212.146',1157277529,1,0,1,1,1,0,'','GetHostByName','Hello,\n\nI still using FW195. If I call GetHostByName(\'vms.be\'), it allways return 0.0.0.0\n\nIs there an other way to get the IP-adress\n\nThanks,\nMarc','',0,'Ag==','75hko3lw',1,0,'',161,0,0),(18248,4138,6,180,0,'88.16.138.144',1157279292,1,0,1,1,1,0,'','Nuevo en FWH - errores de enlazado','Por fín he conseguido compilar sin errores. Ahora viene el enlazado.\nHe obtenido errores tanto con Harbour como con xHarbour, la mayoria correspondiente a funciones para tratamiento de archivos ZIP. Como se soluciona esto ?\nReproduzco a continuación los errores obtenidos:\n\n[color=blue:23tr5alf][size=150:23tr5alf]Al enlazar en Harbour obtengo los errores siguientes[/size:23tr5alf]:[/color:23tr5alf]\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPFILE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ZIPTYPE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ZIPBLOCK\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ZIPMSG\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ISZIP\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_GETFIRSTINZIP\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_GETNEXTINZIP\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_CLOSEZIPFILE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_UNZIPFILE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_GETDESKTOPWINDOWS\' referenced from C:\\MAR\\PRUEBA\\AGRARIO.OBJ\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n\n\n[size=150:23tr5alf][color=blue:23tr5alf]Al hacerlo con xHarbour estos son los errores[/color:23tr5alf][/size:23tr5alf]\n\n- La librería gtwin.lib no está. Por lo que la he copiado de harbour. No se si esto es muy ortodoxo o traerá algún problema, pero el mensaje de error desaparece.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_gt_Init\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetScreenHeight\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetScreenWidth\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Exit\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ExtendedKeySupport\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ReadKey\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_AdjustPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Box\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_VertLine\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_HorizLine\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PreExt\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PostExt\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetCursorStyle\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_IsColor\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_RectSize\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Replicate\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetBlink\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetBlink\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetMode\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Puts\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Scroll\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Tone\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Version\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispCount\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispEnd\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Suspend\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Resume\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Row\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Col\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispBegin\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetClipboard\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetClipboardSize\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ProcessMessages\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetClipboard\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetText\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PutText\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetAttribute\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_mouse_IsPresent\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Show\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Hide\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Col\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Row\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_SetPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_IsButtonPressed\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_CountButton\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_SetBounds\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_GetBounds\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_gt_OutStd\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|console\nError: Unresolved external \'_hb_gt_OutErr\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|console\nError: Unresolved external \'_hb_gt_info\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|maxrow\nError: Unresolved external \'_HB_FUN_ZIPFILE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ZIPTYPE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ZIPBLOCK\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ZIPMSG\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_ISZIP\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_GETFIRSTINZIP\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_GETNEXTINZIP\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_CLOSEZIPFILE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_UNZIPFILE\' referenced from C:\\MAR\\PRUEBA\\UTILES.OBJ\nError: Unresolved external \'_HB_FUN_GETDESKTOPWINDOWS\' referenced from C:\\MAR\\PRUEBA\\AGRARIO.OBJ\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting C:\\MAR\\PRUEBA\\AGRARIO.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n===============================================','',0,'Bg==','23tr5alf',1,0,'',180,0,0),(18249,4137,1,161,0,'81.164.212.146',1157280242,1,0,1,1,1,0,'','','Please ignore my message. It\'s working fine  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMarc','',0,'Bg==','196w3gq4',1,0,'',161,0,0),(18250,4131,4,2,0,'87.218.146.155',1157281026,1,0,1,1,1,1,'','','Dutch,\n\n&gt; because you don\'t know what is the record number to lock. \n\nRecNo()\n\n&gt; I you say WM5 cannot open with SHARE\n\nAccording to Microsoft, Windows Mobile 2005 supports files sharing API functions, but as you report, you are experiencing troubles with it.\n\n&gt; I think the middle application (interface module) is the way out. \n\nWhat is it the interface module ? Do you mean the client/server model I commented ?','',0,'Bg==','1f836n5z',1,0,'',2,0,0),(18252,4130,6,2,0,'87.218.146.155',1157281176,1,0,1,1,1,1,'','','Manuel,\n\nMe alegro de que esté solucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Bg==','13phxbhg',1,0,'',2,0,0),(18253,4131,4,47,0,'203.144.143.4',1157282536,1,0,1,1,1,0,'','','Dear Antonio,\n\nNo, Because I still use FW and Comix.  I\'ve plan to change database but not now. \n\n&gt; Recno() is means you have to open the database first but I cannot open with exclusive because everybody use the main transaction file.  \n\nThe interface module means small program to communicate between PPC and Database on server.  PPC will write a single database to request the information and Interface will read database on the server and return the information that PPC need.   Another request is post transaction from PPC and Interface will post instead of PPC to database on server.\n\nBest regards,\nDutch','',0,'Bg==','gb992wbx',1,0,'',47,0,0),(18254,4109,3,148,0,'82.201.238.180',1157295190,1,0,1,1,1,0,'','','How will I choose my fields in every report ? In what step of preview method I will update?','',0,'Bg==','j4p2113z',1,0,'',148,0,0),(18255,4139,6,97,0,'200.52.200.158',1157295593,1,0,1,1,1,1,'','hb_VmDo','Estoy compilando una aplicacion y me marca este erro al ejecutar alguien le ha pasado, uso xharbour 99.66 y fwh27.\n\n\ngracias.\nfernando sandoval ruiz','',0,'Bg==','26zgslmc',1,0,'',97,0,0),(18256,4075,6,391,0,'205.160.32.38',1157296074,1,0,1,1,1,1,'','','[quote=&quot;oskar&quot;:2g6a8c9h]Rene:\n[quote=&quot;RF&quot;:2g6a8c9h]Jejeje:\nel xBrowse lo he probado en otro producto y me parece estupendo, aunque no se si estan soportadas todas las características que tiene en la version de FW.[/quote:2g6a8c9h]\n\nel xBrowse que viene incluido en FWH, tiene errores que con mucha calma y paciencia pueden ser solucionados  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , el xbrowse de ozlib ( espero no desaparezca mi mensaje ) no tiene tantos errores y es muy estable, pero tambien hay que meterle mano a arreglar algunas cosas\n\ny si solo quieres mostrar datos y te gustan los controles nativos puedes optar por usar el control listview que es 100% nativo de windows y funciona como una bala\n\nEs mi opinion[/quote:2g6a8c9h]\n\nSus comentarios han sido importantes.. la implementación del browse debe cumplir con un alto grado de confiabilidad, dado que lo quiero usar en rutinas de mantenimiento de tablas y en opciones claves, en las cuales se necesitad estabilidad. Con el txbrowse (ambos), si he tenido algunos problemas. El twbrowse que esta en utilidades, ya lo baje, pero me reporta problemas al desempaquetarlo, si alguien tiene otro link le estare agradecido.\n\nAlgo importante a la hora de plantear o requerir un consejo, es el de no recorrer caminos que otros ya han probado.\n\nGracias.','',0,'gA==','2g6a8c9h',1,0,'',391,0,0),(18257,4132,6,83,0,'80.35.196.60',1157298978,1,0,1,1,1,0,'','Efectivamente algo no va bien','Antonio, \n\nHe recompilado todo y efectivamente funciona, pero la aplicación genera mensajes de error al ejecutar OLE, he tenido que volver al build de junio y todo esta otra vez en su sitio.\n\nSaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nFWH 2.7 build de julio (otra vez) + Harbour (junio otra vez) + borland','',0,'gA==','1dkw78mx',1,0,'',83,0,0),(18259,4132,6,264,0,'200.113.62.214',1157301690,1,0,1,1,1,0,'','','Antonio.\nEfectivamente recompile todos mis prg y libs.\nLo raro de esto, es que para comprobar recompile todo nuevamente con xharbour ( del mismo ftdn ) y todo funciono correctamente ( solo harbour lo genera y no carga ).\nPor favor revisalo, quizas existe alguna diferencia con el compilador de modulos en C pues es la unica cosa extra que podria indicarte ( no se, solo lo menciono para alguna pista pues no se que con que mas ayudar )\nTe agradecere revisarlo.\nSaludos todos.','',0,'gA==','20aq0un9',1,0,'',264,0,0),(18260,4075,6,299,0,'24.233.172.101',1157303277,1,0,1,0,1,0,'','','Por el numero de cosas que puedes hacer con el, xbrowse sin duda alguna.  Flexible, facil de mantener.  Bien estructurado.','',0,'gA==','2mgpyn7y',1,0,'',299,0,0),(18261,4138,6,180,0,'88.16.138.144',1157305026,1,0,1,1,1,0,'','','Obviando los errores anteriores (quitando las líneas de código correspondientes) para poder continuar con la obtención  de un primer ejecutable me encuentro ahora con que el archivo de recursos no hay forma de incrustrarlo en el EXE. Anteriormente con FW trabajaba con una DLL de recursos que he convertido en archivo RC. El error es el siguiente:\n=============\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Access violation.  Link terminated.\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n===============================================\n\nTambién he tratado de convertir la DLL a 32 bit con el bat rc2dll32.bat y el error es el mismo : Fatal: Access violation.  Link terminated.\n\n\nQue puede estar ocurriendo ?','',0,'gA==','3ex2svgf',1,0,'',180,0,0),(18262,4140,6,519,0,'88.16.15.149',1157305293,1,0,1,1,1,0,'','Error al imprimir','Hola  \n\n\n    No hay forma de poder imprimir con la EPSON STYLUS PHOTO 1200 ESC/P 2, alguien me puede decir si esta impresora da algun tipo de problemas con fwh  ?\n\n\n  Un saludo y gracias desde ya','',0,'gA==','hebn84xo',1,0,'',519,0,0),(18263,4109,3,2,0,'87.218.146.119',1157310247,1,0,1,1,1,1,'','','Ehab,\n\nPlease review samples\\report\\*.prg samples','',0,'gA==','3t9zbb34',1,0,'',2,0,0),(18264,4138,6,2,0,'87.218.146.119',1157310534,1,0,1,1,1,1,'','','Manuel,\n\nLas funciones de uso de ficheros ZIP de FiveWin 16 bits no están disponibles en 32 bits. Tienes que usar la librería hbzip.lib para xHarbour. La encuentras en las sección de utilidades de estos foros.\n\nTienes que enlazar GTGUI.lib en vez de GTWIN.lib, para evitar esos errores que te aparecen con xHarbour.\n\nPrueba a comentar varias secciones de tu fichero RC con /*  ...multiples líneas... */  y compila el RC, hasta que localices que parte del RC es la que ocasiona el problema con el compilador de recursos.','',0,'gA==','36txqcej',1,0,'',2,0,0),(18265,4132,6,2,0,'87.218.146.119',1157310667,1,0,1,1,1,1,'','','José Vicente,\n\nQue errores OLE te aparecen ? Puedes proporcionarnos un ejemplo para reproducirlos ? Gracias','',0,'gA==','3f0widg2',1,0,'',2,0,0),(18266,4132,6,2,0,'87.218.146.119',1157310831,1,0,1,1,1,1,'','','dbzap (usais nicks y es imposible saber vuestros nombres <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> )\n\nNosotros probamos FWH indistintamente con Harbour y xHarbour y funcionan ambos correctamente. \n\nPuedes proporcionarnos un PRG de ejemplo que no te funcione ? Asi lo construimos aqui, lo probamos y te enviamos el EXE. Gracias','',0,'gA==','39omm2kp',1,0,'',2,0,0),(18267,4139,6,2,0,'87.218.146.119',1157310919,1,0,1,1,1,1,'','','Fernando,\n\nQue error es ? Puedes indicar el error completo ? gracias','',0,'gA==','2abnchb9',1,0,'',2,0,0),(18268,4133,3,2,0,'87.218.146.113',1157321450,1,0,1,1,1,1,'','','J,\n[url=http&#58;//imageshack&#46;us:34qwwpox][img:34qwwpox]http&#58;//img374&#46;imageshack&#46;us/img374/2030/ues1cn7&#46;jpg[/img:34qwwpox][/url:34qwwpox]','',0,'GA==','34qwwpox',1,0,'',2,0,0),(18269,4133,3,2,0,'87.218.146.113',1157322099,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2evrb2u3][img:2evrb2u3]http&#58;//img521&#46;imageshack&#46;us/img521/4923/ues3yg0&#46;jpg[/img:2evrb2u3][/url:2evrb2u3]\n[url=http&#58;//imageshack&#46;us:2evrb2u3][img:2evrb2u3]http&#58;//img374&#46;imageshack&#46;us/img374/2173/ues2nx2&#46;jpg[/img:2evrb2u3][/url:2evrb2u3]','',0,'GA==','2evrb2u3',1,0,'',2,0,0),(18270,4064,6,2,0,'87.218.146.113',1157322544,1,0,1,1,1,1,'','','Javier,\n\nModifica esta línea en samples\\TestCom3.prg y debe funcionar bien:\n\nif ! SetCommState( cDcb )\n\npor\n\nif ! SetCommState( nComm, cDcb )','',0,'GA==','vciu2qp1',1,0,'',2,0,0),(18271,2477,3,15,0,'203.73.50.147',1157333455,1,0,1,1,1,0,'','','Hello\n\nThat\'s ok. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nRegards,\n\nRichard','',0,'GA==','1fbfro9q',1,0,'',15,0,0),(18272,4141,6,383,0,'190.40.168.244',1157342245,1,0,1,1,1,0,'','PROBLEMAS CON ADO','Que tal una vez mas necesito de vuestra ayuda. El dia de ayer baje los ejemplos de coneccion de Ado y MSSql de José Luis Capel.\n\nBueno para realizar unas prueba, instale MYSQL 5.0 y el conector MYODBC 3.51. Luego cree una base de datos de prueba y una tabla para realizar mis pruebas. Pero al guardar los datos que son capturados en una ventana de dialogo  me presenta el siguiente error.\n\npplication\n===========\n   Path and name: D:\\TestAdo\\testado.Exe (32 bits)\n   Size:   595,968 bytes\n   Time from start: 0 hours 0 mins 25 secs \n   Error occurred at: 03/09/2006, 22:41:21\n   Error description: Error ADODB.Recordset/-1  El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.: ADODB.Recordset:BOOKMARK\n   Args:\n     [   1] = O   Object\n     [   2] = C   BOOKMARK\n     [   3] = A   { ... }\n\n\nEl codigo es el siguiente:\n\nSTATIC FUNCTION  Grabar(oRs1,oCnx)\n local lExis:=.t.\n if empty(op:Codigo) .or. empty(op:Nombre)\n    msginfo(\'Faltan datos por Capturar...\')\n    return.f.\n endif\n\n *--// Grabo en el oRs21 Unicamente (Temporal)\n if !oRs21:Find(\'codigo=\'+op:Codigo)\n    oRs21:Append()\n    oRs21:put(\'codigo\',op:codigo)\n    lExis:=.f.\n endi\n oRs21:put(\'nombre\',alltrim(op:nombre))\n oRs21:save()\n if !lExis\n    oRs21:oRs:MoveFirst()\n endif\n\n *--// Grabo en la Base de Datos\n if !oRs1:SeekRs(\' SELECT * FROM Clientes WHERE codigo=\'+op:Codigo,oCnx:oConnection)\n    oRs1:Append()\n    oRs1:put(\'codigo\',op:Codigo)\n endi\n oRs1:Put(\'nombre\',op:Nombre)\n oRs1:Put(\'Direccion\',op:Direccion)\n oRs1:Put(\'ruc\',op:ruc)\n oRs1:save(.t.)\n oRs1:close()\nreturn .t.\n\nSoy nuevo trabajando con Ado. Anteriormente estuve realizando alguna u otra  aplicacion en Power Builder. Sin embargo, prefiero continuar con fivewin y Xharbour ya tengo varias aplicaciones con esta buena herramienta en tablas dbf pero necesito empezar a trabajar con Ado y Mysql.\n\nGracias por sus constantes ayudas.','',0,'','3hyml8jf',1,0,'',383,0,0),(18273,4142,3,705,0,'61.2.4.133',1157344468,1,0,1,1,1,0,'','Finding Problem','Hi,\n\nWhile I am compiling Samples\\install.prg, getting the following three errors :\n      \nCreating library install.lib and object install.exp\nFiveHCM.lib(LZEXPAND.obj) : error LNK2001: unresolved external symbol _LZClose@4\n\nFiveHCM.lib(LZEXPAND.obj) : error LNK2001: unresolved external symbol _LZCopy@8\nFiveHCM.lib(LZEXPAND.obj) : error LNK2001: unresolved external symbol _LZOpenFil\neA@12\ninstall.exe : fatal error LNK1120: 3 unresolved externals\n\n[b:13rdmo5u]If I mark all the lines LZCopyFile(.....),  then compiling smoothly.[/b:13rdmo5u]\n\nWhat could be the reason and how can I solve this ?\n\nArindam','',0,'QA==','13rdmo5u',1,0,'',705,0,0),(18274,4064,6,782,0,'87.223.132.151',1157353499,1,0,1,1,1,0,'','','ok. lo pruebo y te comento\n\nGracias\nJavier','',0,'QA==','3qyq7w58',1,0,'',782,0,0),(18275,4124,3,2,0,'87.218.146.113',1157359671,1,0,1,1,1,1,'','','Reinaldo,\n\nIf you change this in samples\\TestDtp.rc:\n\nPUSHBUTTON \"Close\", 103, 148, 6, 50, 14\n\nand build samples\\TestDtp.prg, it properly goes to next control pressing enter.','',0,'QA==','1qcx0cps',1,0,'',2,0,0),(18276,4142,3,2,0,'87.218.146.113',1157359929,1,0,1,1,1,1,'','','Arindam,\n\nYou have to link c:\\bcc55\\lib\\PSDK\\lz32.lib too','',0,'QA==','yqt327ih',1,0,'',2,0,0),(18277,4143,1,170,0,'213.103.245.77',1157361426,1,0,1,1,1,1,'','ShowOwnedPopups()','This API function shows or hides all pop-up windows owned by the given window. This eliminates the need to call ShowWindow() for each individual pop-up window.\n\nTo use it with Clipper, simply add this command line in one .prg file of you application :\n\nDLL FUNCTION ShowOwnedPopups( nHwnd AS _INT, bShow AS BOOL ) AS BOOL PASCAL FROM \"ShowOwnedPopups\" LIB \"USER.EXE\"\n\nHope this help,  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'QA==','1f24o2ek',1,0,'',170,0,0),(18278,4132,6,83,0,'80.35.196.60',1157362846,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:l5eastp2]José Vicente,\n\nQue errores OLE te aparecen ? Puedes proporcionarnos un ejemplo para reproducirlos ? Gracias[/quote:l5eastp2]\n\nAntonio es esta función (proporcionada hace tiempo al foro por René y que yo utilizo de forma masiva), no consigo que funcione con los builds de agosto.\n\nFWH2.7 + HARBOUR + BORLAND + HBOLE.LIB\n\n//----función para conectar con cualquier pagina web-------------------//\nfunction conecta(cDirWeb, lVisible, lToolBar, lStatusBar, lMenuBar)\n  local Ole\n\n  DEFAULT lVisible := .t., lToolBar:= .t., lStatusBar:= .t., lMenuBar:= .t.\n\n   ole:=TOleAuto():New(\"InternetExplorer.Application\")\n   ole:Set(\"Visible\",   lVisible)\n   ole:Set(\"ToolBar\",   lToolBar)\n   ole:Set(\"StatusBar\", lStatusBar)\n   ole:Set(\"MenuBar\",   lMenuBar)\n   ole:Invoke(\"Navigate\",cDirWeb)\n   ole:End()\n\nReturn Nil','',0,'gA==','l5eastp2',1,0,'',83,0,0),(18279,4144,6,24,0,'80.37.55.44',1157364770,1,0,1,1,1,1,'','O.T. Usando XML con xHarbour ( 2 parte )','Bueno, nos quedaba ver como crear un documento de XML,\nalla vamos <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nLeccion: 3.0.- Guardaté, condenado...\n\nBien , nos quedaba pendiente el como guardar un documento XML, y mardita\nla gracia , que no me di cuenta que , primero se construye el XML como\na uno le apetezca, y despues simplemente se guarda.\n\nPara ello, tan simple como este ejemplo, para sacaros de dudas:\n\nCreamos el documento EN MEMORIA!!!\noDoc := TXmlDocument():New()\n\nAñadimos diferentes nodos:\noDoc:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI,\'xml\' , , \'version=\"1.0\" encoding=\"iso-8859-1\"\' ) )\noDoc:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_COMMENT, , , \"Ejemplo USO\" ) )\noDoc:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_COMMENT, , , \"Date: \"  + DToC( Date() ) + \" Time: \" + Time() ) )\noDoc:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_COMMENT, , , \"Last access: \"  + GetEnv( \"USERNAME\" ) ) )\n\nComo habiamos comentado, oRoot es la raiz, por lo tanto, estamos usando\nla raiz del arbol para ir añadiendo nodos hijos, a traves del method\nAddBelow( oNode )\n  \nTambien , podemos observar como crear un nodo, y este con otros nodos\ncon sus propiedades:\n\noNewNodo := TxmlNode():New( HBXML_TYPE_TAG, \"NUEVO\" )\n   \n   oConfig := TxmlNode():New( HBXML_TYPE_TAG, \"config\" )\n   oConfig:SetAttribute( \"reserva\", \"222\" )\n   oConfig:SetAttribute( \"habitacion\", \"AB2\" )\n   \nFijaros como añadimos el nodo llamado oConfig, al nodo oNewNodo.\noNewNodo:AddBelow( oConfig )\n   \nY el nodo , oNewNodo, al arbol principal del documento del XML\noDoc:oRoot:AddBelow( oNewNodo )\n\nBien, ahora, simplemente creamos el fichero donde volcar toda esta informacion\nhFile := FCreate( \"pepe.xml\" )\n   If hFile != -1\n      // Y ESTO GUARDO EL TRABAJO QUE HABIAMOS REALIZADO!!!\n      oDoc:Write( hFile, HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES )\n      FClose( hFile )\n   Endif\n\nYa esta!!! Parece mentira, no es tan dificil cuando ves esto puesto en el\ncodigo fuente, que es lo que nos faltaba.\n\nAgracedimientos:\nA freddy,\n  sin su explicacion, no creo que hubiese comprendido la importancia\n  del uso de las clases de xHarbour\n\nA Giancarlo,\n  por su estupendo trabajo realizado en xHarbour.\n  ( Por cierto, esta documentado, pero...el english no es mi fuerte...\n    haber si alguien se anima a traducir el texto hbxml. )','',0,'gA==','f02gvvwq',1,0,'',24,0,0),(18280,4114,7,720,0,'80.36.244.134',1157370424,1,0,1,1,1,0,'','','Hola Antonio.\n\nEn este link está la imagen de lo que te comentaba\n\n<!-- m --><a class=\"postlink\" href=\"http://img124.imageshack.us/my.php?image=dibujomg1.gif\">http://img124.imageshack.us/my.php?image=dibujomg1.gif</a><!-- m -->\n\n\nLo que pretendo es que con los botones de direccion me mueva solamente por los registros de la tabla de articulos. Esto lo he conseguido pero cada vez que me muevo hacia un registro me crea un dialogo nuevo, con lo que si pretendo salir tengo que ir cerrando una por una todas las pantallas que me ha abierto.....\n\nEl código que utilizo para esta pantalla es el siguiente:\n\n\nFUNCTION Registros()\n\nDEFINE dialog odlg resource \"Cliente_articulos\"\n	\n    REDEFINE GET clientes-&gt;Nomcli id 500 OF odlg\n    REDEFINE GET clientes-&gt;Apecli id 510 OF odlg \n    redefine get articulos-&gt;cod_art id 100 of odlg\n    redefine get articulos-&gt;nom_art id 200 of odlg\n    redefine get articulos-&gt;cant id 300 of odlg\n    redefine get articulos-&gt;precio id 400 of odlg\n\nACTIVATE dialog odlg;\non init barra_desplazamiento(odlg)\n\nRETURN nil\n\n\nbarra_dezplazamiento(odlg) es una funcion que contiene los iconos de desplazamiento...\n\nFUNCTION barra_desplazamiento(odlg)\n\nLOCAL aux:=1\n    @ 0, 0  BTNBMP NAME \"primero\" SIZE 32, 32 of odlg\n    @ 0, 32  BTNBMP NAME \"anterior\" SIZE 32, 32 of odlg\n    @ 0, 64  BTNBMP NAME \"siguiente\" SIZE 32, 32 of odlg action avanza_articulos(odlg)\n    @ 0, 96  BTNBMP NAME \"ultimo\" SIZE 32, 32 of odlg\n    @ 0, 178 BTNBMP NAME \"buscar\" size 32, 32 of odlg action odlg:end(),busca_cliente(aux)\n    @ 0, 210 BTNBMP NAME \"salir\" SIZE 32, 32 of odlg action odlg:end()\n\nRETU  nil\n\nfuncion avanza_articulos(odlg) la utilizo para comprobar el final de los articulos (para que solo me muestre los que tiene)\n\nFUNCTION avanza_articulos(odlg)\n\n    IF !EOF()\n        articulos-&gt;(dbskip(1))\n        registros()\n    ELSE \n        MsgInfo( \"El Cliente no tiene más articulos relacionados\" )\n    endif\n\nRETURN nil\n\n\n\n\nSaludos y gracias...\n\nElías Torres.','',0,'gA==','cfxkseb2',1,0,'',720,0,0),(18281,4132,6,2,0,'87.218.146.110',1157371922,1,0,1,1,1,1,'','','Jose Vicente,\n\nEste ejemplo (el tuyo con unas pequeñas modificaciones) funciona perfectamente con xHarbour y FWH 2.7 Agosto 2006. Observa que he comentado ole:End() ya que no tiene ese método. Por favor, pruébalo y dinos si te funciona bien, gracias:\n[code:2f2g4l3l]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   Conecta&#40; &quot;www&#46;google&#46;com&quot; &#41;\n   MsgInfo&#40; &quot;ok&quot; &#41;\n\nreturn nil\n\nfunction conecta&#40; cDirWeb, lVisible, lToolBar, lStatusBar, lMenuBar &#41; \n\n   local Ole \n\n   DEFAULT lVisible &#58;= &#46;t&#46;, lToolBar&#58;= &#46;t&#46;, lStatusBar&#58;= &#46;t&#46;, lMenuBar&#58;= &#46;t&#46; \n\n   ole = TOleAuto&#40;&#41;&#58;New&#40;&quot;InternetExplorer&#46;Application&quot;&#41; \n   ole&#58;Set&#40;&quot;Visible&quot;, lVisible&#41; \n   ole&#58;Set&#40;&quot;ToolBar&quot;, lToolBar&#41; \n   ole&#58;Set&#40;&quot;StatusBar&quot;, lStatusBar&#41; \n   ole&#58;Set&#40;&quot;MenuBar&quot;, lMenuBar&#41; \n   ole&#58;Invoke&#40;&quot;Navigate&quot;,cDirWeb&#41; \n   // ole&#58;End&#40;&#41; \n\nReturn Nil\n[/code:2f2g4l3l]','',0,'AIA=','2f2g4l3l',1,0,'',2,0,0),(18282,4114,7,2,0,'87.218.146.110',1157372567,1,0,1,1,1,1,'','','Elías,\n\nGracias por la imagen, ahora está claro como lo quieres hacer.\n\nAqui tienes tu código modificado:\n[code:31lebvsb]\nFUNCTION Registros&#40;&#41; \n\n   local oDlg, oGetCod, oGetNom, oGetCant, oGetPrecio\n\n   DEFINE dialog odlg resource &quot;Cliente_articulos&quot; \n\n   REDEFINE GET clientes-&gt;Nomcli id 500 OF odlg \n   REDEFINE GET clientes-&gt;Apecli id 510 OF odlg \n   redefine get oGetCod VAR articulos-&gt;cod_art id 100 of odlg \n   redefine get oGetNom VAR articulos-&gt;nom_art id 200 of odlg \n   redefine get oGetCant VAR articulos-&gt;cant id 300 of odlg \n   redefine get oGetPrecio VAR articulos-&gt;precio id 400 of odlg \n\nACTIVATE dialog odlg; \n   on init barra_desplazamiento&#40; odlg, oGetCod, oGetNom, oGetCant, oGetPrecio &#41; \n\nRETURN nil \n\nFUNCTION barra_desplazamiento&#40; odlg, oGetCod, oGetNom, oGetCant, oGetPrecio &#41; \n\n   LOCAL aux&#58;=1 \n\n   @ 0, 0 BTNBMP NAME &quot;primero&quot; SIZE 32, 32 of odlg \n   @ 0, 32 BTNBMP NAME &quot;anterior&quot; SIZE 32, 32 of odlg \n   @ 0, 64 BTNBMP NAME &quot;siguiente&quot; SIZE 32, 32 of odlg action avanza_articulos&#40;odlg, oGetCod, oGetNom, oGetCant, oGetPrecio &#41; \n   @ 0, 96 BTNBMP NAME &quot;ultimo&quot; SIZE 32, 32 of odlg \n   @ 0, 178 BTNBMP NAME &quot;buscar&quot; size 32, 32 of odlg action odlg&#58;end&#40;&#41;,busca_cliente&#40;aux&#41; \n   @ 0, 210 BTNBMP NAME &quot;salir&quot; SIZE 32, 32 of odlg action odlg&#58;end&#40;&#41; \n\nRETU nil \n\nFUNCTION avanza_articulos&#40;odlg, oGetCod, oGetNom, oGetCant, oGetPrecio &#41; \n\nIF !EOF&#40;&#41; \n   articulos-&gt;&#40;dbskip&#40;1&#41;&#41; \n   // registros&#40;&#41;   NO!!!\n   oGetCod&#58;Refresh&#40;&#41;  // repinta los contenidos de los GETs\n   oGetNom&#58;Refresh&#40;&#41;\n   oGetCant&#58;Refresh&#40;&#41;\n   oGetPrecio&#58;Refresh&#40;&#41; \nELSE \n   MsgInfo&#40; &quot;El Cliente no tiene más articulos relacionados&quot; &#41; \nendif \n\nRETURN nil \n[/code:31lebvsb]','',0,'AIA=','31lebvsb',1,0,'',2,0,0),(18283,4114,7,720,0,'80.36.244.134',1157373034,1,0,1,1,1,0,'','','Gracias Antonio, era lo que buscaba....\n\n\nSaludos...\n\nElías Torres.','',0,'AIA=','2621vngy',1,0,'',720,0,0),(18284,4134,4,2,0,'87.218.146.101',1157373636,1,0,1,1,1,1,'','','Richard,\n\nIt seems that wininet.dll is available for Windows Mobile, so it should not be difficult to port the code to FWPPC. We are going to check it.','',0,'AIA=','2j58mj14',1,0,'',2,0,0),(18285,4132,6,264,0,'200.91.3.10',1157375685,1,0,1,1,1,1,'','','Me es dificil enviarte todo nuestro sistema.\nPues como te señalé, los ejemplos de programas ( los samples ) funcionan.\nPero lo unico extraño es que nuestro sistema tiene muchisimos prgs ( sobre 180 ) y ademas con la compilacion de de julio hacia atras funcionaba estupendamente.\nNo hemos realizado nada distinto entre esas compilaciones y esta ultima.\nTe pido revisar algo o darnos alguna idea.\nTe adjunto el rmk de nuestro sistema administrativo, quizas tu vez algo que nosotros no veamos.\nSaludos y gracias.\n\n[code:wd186rn8]\n#Borland make sample, &#40;c&#41; FiveTech Software 2005\n\nHBDIR=c&#58;\\harbour27\nBCDIR=c&#58;\\bcc55\nFWDIR=c&#58;\\clipper&#46;53\\fwh27\n\nOBJDIR=c&#58;\\RanMul32&#46;SQL\\Obj32\nRANDOMDIR=c&#58;\\RanMul32&#46;SQL\n\n#change these paths as needed\n&#46;path&#46;PRG = &#46;\\gestion;&#46;\\gepac;&#46;\\contab;&#46;\\terceros\\grafica\n&#46;path&#46;OBJ = &#46;\\obj32\n&#46;path&#46;CH  = $&#40;FWDIR&#41;\\include;$&#40;HBDIR&#41;\\include;&#46;\\gestion;&#46;\\terceros\\grafica\n&#46;path&#46;C   = &#46;\\gestion\n&#46;path&#46;rc  = &#46;\\\n\n#important&#58; Use Uppercase for filenames extensions, in the next two rules!\n\nPRG = menuges&#46;PRG \\\n      c_tbsql&#46;PRG c_tbram&#46;PRG c_tbcram&#46;PRG rddsys&#46;PRG FuncSql&#46;PRG c_tdospr&#46;PRG \\\n      errsysw&#46;PRG c_nomlar&#46;PRG deffunc&#46;PRG defusua&#46;PRG defusua6&#46;PRG defempre&#46;PRG defsuc&#46;PRG \\\n      defbode&#46;PRG defcaja&#46;PRG deffami&#46;PRG defdimew&#46;PRG tratpre&#46;PRG traprod&#46;PRG trastmi&#46;PRG \\\n      proporem&#46;PRG funporem&#46;PRG tratppp&#46;PRG confesta&#46;PRG errsysw&#46;PRG defmone&#46;PRG defluga&#46;PRG \\\n      defendp&#46;PRG deftene&#46;PRG defreti&#46;PRG defturno&#46;PRG defzona&#46;PRG defrumar&#46;PRG defcodal&#46;PRG \\\n      defimpu&#46;PRG defconc&#46;PRG defli&#46;PRG defrecet&#46;PRG defpcc&#46;PRG muesdoc&#46;PRG defprod&#46;PRG defenti&#46;PRG \\\n      defform&#46;PRG defchec&#46;PRG confcopi&#46;PRG borrado&#46;PRG consolst&#46;PRG elinodef&#46;PRG cambiaco&#46;PRG inf007&#46;PRG \\\n      visado&#46;PRG transuc&#46;PRG rececen&#46;PRG recegti&#46;PRG transbol&#46;PRG trparam&#46;PRG resesuc&#46;PRG chequeo&#46;PRG \\\n      inf001&#46;PRG inf015&#46;PRG inf015c&#46;PRG venven&#46;PRG inf006&#46;PRG inflclv&#46;PRG infcob&#46;PRG infrk3&#46;PRG iStockBo&#46;PRG \\\n      ilotebod&#46;PRG iStockGe&#46;PRG cuadratu&#46;PRG estadisp&#46;PRG estadis&#46;PRG estadism&#46;PRG inf012&#46;PRG cofapla&#46;PRG \\\n      stockval&#46;PRG infantic&#46;PRG inf031&#46;PRG inf021&#46;PRG margenw&#46;PRG infdoc&#46;PRG inf005&#46;PRG inf011&#46;PRG \\\n      inf022&#46;PRG infsald&#46;PRG istocklo&#46;PRG istockse&#46;PRG infvenc&#46;PRG inf004&#46;PRG inf004oc&#46;PRG infrk12&#46;PRG \\\n      infenti&#46;PRG inf030&#46;PRG foliador&#46;PRG masisa&#46;PRG tomainv&#46;PRG proyecci&#46;PRG correo&#46;PRG correo32&#46;PRG saldos&#46;PRG saldodoc&#46;PRG \\\n      librolet&#46;PRG infreten&#46;PRG inf016&#46;PRG c_label&#46;PRG label&#46;PRG litem&#46;PRG deftcara&#46;PRG tradocw&#46;PRG trado_g&#46;PRG \\\n      tragarw&#46;PRG tradocgw&#46;PRG pagos&#46;PRG pagadoc&#46;PRG pagorap&#46;PRG pagosbat&#46;PRG pagosbnc&#46;PRG tratpag&#46;PRG stock&#46;PRG \\\n      tradoccw&#46;PRG cartagui&#46;PRG defforcg&#46;PRG elilotes&#46;PRG imprebat&#46;PRG infpread&#46;PRG \\\n      presuadm&#46;PRG inf033&#46;PRG inf034&#46;PRG emiret&#46;PRG consnume&#46;PRG rendilot&#46;PRG cambcod&#46;PRG remoto&#46;PRG deforbi&#46;PRG \\\n      defmetas&#46;PRG genarch&#46;PRG metas&#46;PRG metaspag&#46;PRG docxcaja&#46;PRG deftcara&#46;PRG defforcp&#46;PRG leerb2b&#46;PRG \\\n      geneb2b&#46;PRG deftfil&#46;PRG exporta&#46;PRG bolehon&#46;PRG formul29&#46;PRG infnega&#46;PRG genxml&#46;PRG cambiave&#46;PRG \\\n      defmode&#46;PRG defcarac&#46;PRG ENCADENA&#46;PRG trasdir&#46;PRG report&#46;PRG saldofe&#46;PRG btnGet&#46;PRG \\\n      g_window&#46;PRG g_server&#46;PRG g_graph&#46;PRG g_column&#46;PRG g_elemen&#46;PRG g_func&#46;PRG \\\n      btnGetDown&#46;PRG bodegraf&#46;PRG chequind&#46;PRG prasigst&#46;PRG endosos&#46;PRG ConsuSQL&#46;PRG EPrincipal&#46;PRG\n\nC = btnGet_c&#46;C\n\nPROJECT &#58; Ges_32&#46;exe\n\nGes_32&#46;exe &#58; $&#40;PRG&#58;&#46;PRG=&#46;OBJ&#41; $&#40;C&#58;&#46;C=&#46;OBJ&#41; $&#40;RANDOMDIR&#41;\\Rc_Base\\Gestion&#46;res\n   echo off\n   echo $&#40;BCDIR&#41;\\bin\\c0w32&#46;obj + &gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\menuges&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\c_tbsql&#46;obj $&#40;OBJDIR&#41;\\c_tbram&#46;obj $&#40;OBJDIR&#41;\\c_tbcram&#46;obj $&#40;OBJDIR&#41;\\rddsys&#46;obj $&#40;OBJDIR&#41;\\FuncSql&#46;obj $&#40;OBJDIR&#41;\\c_tdospr&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\errsysw&#46;obj $&#40;OBJDIR&#41;\\c_nomlar&#46;obj $&#40;OBJDIR&#41;\\deffunc&#46;obj $&#40;OBJDIR&#41;\\defusua&#46;obj $&#40;OBJDIR&#41;\\defusua6&#46;obj $&#40;OBJDIR&#41;\\defempre&#46;obj $&#40;OBJDIR&#41;\\defsuc&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\defbode&#46;obj $&#40;OBJDIR&#41;\\defcaja&#46;obj $&#40;OBJDIR&#41;\\deffami&#46;obj $&#40;OBJDIR&#41;\\defdimew&#46;obj $&#40;OBJDIR&#41;\\tratpre&#46;obj $&#40;OBJDIR&#41;\\traprod&#46;obj $&#40;OBJDIR&#41;\\trastmi&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\proporem&#46;obj $&#40;OBJDIR&#41;\\funporem&#46;obj $&#40;OBJDIR&#41;\\tratppp&#46;obj $&#40;OBJDIR&#41;\\confesta&#46;obj $&#40;OBJDIR&#41;\\errsysw&#46;obj $&#40;OBJDIR&#41;\\defmone&#46;obj $&#40;OBJDIR&#41;\\defluga&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\defendp&#46;obj $&#40;OBJDIR&#41;\\deftene&#46;obj $&#40;OBJDIR&#41;\\defreti&#46;obj $&#40;OBJDIR&#41;\\defturno&#46;obj $&#40;OBJDIR&#41;\\defzona&#46;obj $&#40;OBJDIR&#41;\\defrumar&#46;obj $&#40;OBJDIR&#41;\\defcodal&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\defimpu&#46;obj $&#40;OBJDIR&#41;\\defconc&#46;obj $&#40;OBJDIR&#41;\\defli&#46;obj $&#40;OBJDIR&#41;\\defrecet&#46;obj $&#40;OBJDIR&#41;\\defpcc&#46;obj $&#40;OBJDIR&#41;\\muesdoc&#46;obj $&#40;OBJDIR&#41;\\defprod&#46;obj $&#40;OBJDIR&#41;\\defenti&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\defform&#46;obj $&#40;OBJDIR&#41;\\defchec&#46;obj $&#40;OBJDIR&#41;\\confcopi&#46;obj $&#40;OBJDIR&#41;\\borrado&#46;obj $&#40;OBJDIR&#41;\\consolst&#46;obj $&#40;OBJDIR&#41;\\elinodef&#46;obj $&#40;OBJDIR&#41;\\cambiaco&#46;obj $&#40;OBJDIR&#41;\\inf007&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\visado&#46;obj $&#40;OBJDIR&#41;\\transuc&#46;obj $&#40;OBJDIR&#41;\\rececen&#46;obj $&#40;OBJDIR&#41;\\recegti&#46;obj $&#40;OBJDIR&#41;\\transbol&#46;obj $&#40;OBJDIR&#41;\\trparam&#46;obj $&#40;OBJDIR&#41;\\resesuc&#46;obj $&#40;OBJDIR&#41;\\chequeo&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\inf001&#46;obj $&#40;OBJDIR&#41;\\inf015&#46;obj $&#40;OBJDIR&#41;\\inf015c&#46;obj $&#40;OBJDIR&#41;\\venven&#46;obj $&#40;OBJDIR&#41;\\inf006&#46;obj $&#40;OBJDIR&#41;\\inflclv&#46;obj $&#40;OBJDIR&#41;\\infcob&#46;obj $&#40;OBJDIR&#41;\\infrk3&#46;obj $&#40;OBJDIR&#41;\\iStockBo&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\ilotebod&#46;obj $&#40;OBJDIR&#41;\\iStockGe&#46;obj $&#40;OBJDIR&#41;\\cuadratu&#46;obj $&#40;OBJDIR&#41;\\estadisp&#46;obj $&#40;OBJDIR&#41;\\estadis&#46;obj $&#40;OBJDIR&#41;\\estadism&#46;obj $&#40;OBJDIR&#41;\\inf012&#46;obj $&#40;OBJDIR&#41;\\cofapla&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\stockval&#46;obj $&#40;OBJDIR&#41;\\infantic&#46;obj $&#40;OBJDIR&#41;\\inf031&#46;obj $&#40;OBJDIR&#41;\\inf021&#46;obj $&#40;OBJDIR&#41;\\margenw&#46;obj $&#40;OBJDIR&#41;\\infdoc&#46;obj $&#40;OBJDIR&#41;\\inf005&#46;obj $&#40;OBJDIR&#41;\\inf011&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\inf022&#46;obj $&#40;OBJDIR&#41;\\infsald&#46;obj $&#40;OBJDIR&#41;\\istocklo&#46;obj $&#40;OBJDIR&#41;\\istockse&#46;obj $&#40;OBJDIR&#41;\\infvenc&#46;obj $&#40;OBJDIR&#41;\\inf004&#46;obj $&#40;OBJDIR&#41;\\inf004oc&#46;obj $&#40;OBJDIR&#41;\\infrk12&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\infenti&#46;obj $&#40;OBJDIR&#41;\\inf030&#46;obj $&#40;OBJDIR&#41;\\foliador&#46;obj $&#40;OBJDIR&#41;\\masisa&#46;obj $&#40;OBJDIR&#41;\\tomainv&#46;obj $&#40;OBJDIR&#41;\\proyecci&#46;obj $&#40;OBJDIR&#41;\\correo&#46;obj $&#40;OBJDIR&#41;\\saldos&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\librolet&#46;obj $&#40;OBJDIR&#41;\\infreten&#46;obj $&#40;OBJDIR&#41;\\inf016&#46;obj $&#40;OBJDIR&#41;\\c_label&#46;obj $&#40;OBJDIR&#41;\\label&#46;obj $&#40;OBJDIR&#41;\\litem&#46;obj $&#40;OBJDIR&#41;\\deftcara&#46;obj $&#40;OBJDIR&#41;\\tradocw&#46;obj $&#40;OBJDIR&#41;\\trado_g&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\tragarw&#46;obj $&#40;OBJDIR&#41;\\tradocgw&#46;obj $&#40;OBJDIR&#41;\\pagos&#46;obj $&#40;OBJDIR&#41;\\pagadoc&#46;obj $&#40;OBJDIR&#41;\\pagorap&#46;obj $&#40;OBJDIR&#41;\\pagosbat&#46;obj $&#40;OBJDIR&#41;\\pagosbnc&#46;obj $&#40;OBJDIR&#41;\\tratpag&#46;obj $&#40;OBJDIR&#41;\\stock&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\tradoccw&#46;obj $&#40;OBJDIR&#41;\\cartagui&#46;obj $&#40;OBJDIR&#41;\\defforcg&#46;obj $&#40;OBJDIR&#41;\\elilotes&#46;obj $&#40;OBJDIR&#41;\\imprebat&#46;obj $&#40;OBJDIR&#41;\\infpread&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\presuadm&#46;obj $&#40;OBJDIR&#41;\\inf033&#46;obj $&#40;OBJDIR&#41;\\inf034&#46;obj $&#40;OBJDIR&#41;\\emiret&#46;obj $&#40;OBJDIR&#41;\\consnume&#46;obj $&#40;OBJDIR&#41;\\rendilot&#46;obj $&#40;OBJDIR&#41;\\cambcod&#46;obj $&#40;OBJDIR&#41;\\remoto&#46;obj $&#40;OBJDIR&#41;\\deforbi&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\defmetas&#46;obj $&#40;OBJDIR&#41;\\genarch&#46;obj $&#40;OBJDIR&#41;\\metas&#46;obj $&#40;OBJDIR&#41;\\metaspag&#46;obj $&#40;OBJDIR&#41;\\docxcaja&#46;obj $&#40;OBJDIR&#41;\\deftcara&#46;obj $&#40;OBJDIR&#41;\\defforcp&#46;obj $&#40;OBJDIR&#41;\\leerb2b&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\geneb2b&#46;obj $&#40;OBJDIR&#41;\\deftfil&#46;obj $&#40;OBJDIR&#41;\\exporta&#46;obj $&#40;OBJDIR&#41;\\bolehon&#46;obj $&#40;OBJDIR&#41;\\formul29&#46;obj $&#40;OBJDIR&#41;\\infnega&#46;obj $&#40;OBJDIR&#41;\\genxml&#46;obj $&#40;OBJDIR&#41;\\cambiave&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\defmode&#46;obj $&#40;OBJDIR&#41;\\defcarac&#46;obj $&#40;OBJDIR&#41;\\ENCADENA&#46;obj $&#40;OBJDIR&#41;\\trasdir&#46;obj $&#40;OBJDIR&#41;\\PRASIGST&#46;OBJ $&#40;OBJDIR&#41;\\correo32&#46;obj  + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\BtnGet&#46;obj $&#40;OBJDIR&#41;\\BtnGet_c&#46;obj $&#40;OBJDIR&#41;\\BtnGetDown&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\g_window&#46;obj $&#40;OBJDIR&#41;\\g_server&#46;obj $&#40;OBJDIR&#41;\\g_graph&#46;obj $&#40;OBJDIR&#41;\\g_column&#46;obj $&#40;OBJDIR&#41;\\g_elemen&#46;obj $&#40;OBJDIR&#41;\\g_func&#46;obj + &gt;&gt; b32&#46;bc\n   echo $&#40;OBJDIR&#41;\\report&#46;obj $&#40;OBJDIR&#41;\\saldofe&#46;obj $&#40;OBJDIR&#41;\\bodegraf&#46;obj $&#40;OBJDIR&#41;\\chequind&#46;obj $&#40;OBJDIR&#41;\\endosos&#46;obj $&#40;OBJDIR&#41;\\consusql&#46;obj + &gt;&gt; b32&#46;bc\n   echo  $&#40;OBJDIR&#41;\\saldodoc&#46;obj, + &gt;&gt; b32&#46;bc\n   echo Ges_32&#46;exe, + &gt;&gt; b32&#46;bc\n   echo Ges_32&#46;map, + &gt;&gt; b32&#46;bc\n   echo $&#40;RANDOMDIR&#41;\\Lib32\\TG3_32&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;FWDIR&#41;\\lib\\FiveH&#46;lib $&#40;FWDIR&#41;\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\gtwin&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;HBDIR&#41;\\lib\\codepage&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;BCDIR&#41;\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;BCDIR&#41;\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;BCDIR&#41;\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;BCDIR&#41;\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;BCDIR&#41;\\lib\\psdk\\iphlpapi&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;BCDIR&#41;\\lib\\psdk\\rasapi32&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;RANDOMDIR&#41;\\Lib32\\TFileXLS&#46;lib + &gt;&gt; b32&#46;bc\n   echo $&#40;RANDOMDIR&#41;\\Lib32\\Lib32m&#46;lib, &gt;&gt; b32&#46;bc\n\n   IF EXIST $&#40;RANDOMDIR&#41;\\Rc_Base\\Gestion&#46;res echo $&#40;RANDOMDIR&#41;\\Rc_Base\\Gestion&#46;res &gt;&gt; b32&#46;bc\n   $&#40;BCDIR&#41;\\bin\\ilink32 -Gn -aa -Tpe -s @b32&#46;bc\n   del b32&#46;bc\n   del Ges_32&#46;map\n   del Ges_32&#46;tds\n\n&#46;PRG&#46;OBJ&#58;\n  $&#40;HBDIR&#41;\\bin\\harbour $&lt; /n /a /v /w /dHARBOUR32BITS /Oobj32\\ /I$&#40;FWDIR&#41;\\include;$&#40;HBDIR&#41;\\include;$&#40;RANDOMDIR&#41;;$&#40;RANDOMDIR&#41;\\gestion &gt;&gt;0error&#46;log\n  $&#40;BCDIR&#41;\\bin\\bcc32 -c -tWM -I$&#40;HBDIR&#41;\\include -oobj32\\$&amp;  obj32\\$&amp;&#46;c\n\n&#46;C&#46;OBJ&#58;\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$&#40;HBDIR&#41;\\include;$&#40;FWDIR&#41;\\include &gt;&gt; tmp\n  $&#40;BCDIR&#41;\\bin\\bcc32 -oObj32\\$&amp; @tmp gestion\\$&amp;&#46;c\n  del tmp\n\n$&#40;RANDOMDIR&#41;\\Rc_Base\\Gestion&#46;res &#58; $&#40;RANDOMDIR&#41;\\Rc_Base\\Gestion&#46;rc\n  $&#40;BCDIR&#41;\\bin\\brc32&#46;exe -r $&#40;RANDOMDIR&#41;\\Rc_Base\\Gestion&#46;rc\n[/code:wd186rn8][/code]','',0,'AIA=','wd186rn8',1,0,'',264,0,0),(18286,4120,3,486,0,'200.184.85.3',1157378530,1,0,1,1,1,0,'','','tank\'s \n\nClemerson','',0,'AIA=','2k6chv4l',1,0,'',486,0,0),(18287,4145,6,171,0,'71.232.193.197',1157378575,1,0,1,1,1,0,'','xHarbour Builder + FivewinH Con Outlook Office 2003','Hola foro,\n\nEl siguiente codigo trabaja *PERO*\n\n[code:g787e6bw]\nFUNCTION SendEmailByOutLook &#40;cReportName&#41;            //Using Ole\n	LOCAL oOutLook,;\n	oMailItem,;\n	oRecip,;\n	oAttach\n\n\n/* creating the OLE object */\n	oOutLook &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Outlook&#46;Application&quot;&#41;\n\n/* creating a Mail Item object*/\n	oMailItem &#58;= oOutLook&#58;Invoke&#40;&quot;CreateItem&quot;, 0&#41;\n\n	// creating Recipients object and attaching addresses\n	oRecip &#58;= oMailItem&#58;Invoke&#40;&quot;Recipients&quot;&#41;\n	oRecip&#58;Invoke&#40;&quot;Add&quot;, &quot;my_email_address@msn&#46;com&quot;&#41;\n\n   /* creating subject and body of the mail message using the\n   SET method of the mail item object */\n	oMailItem&#58;Set&#40;&quot;Subject&quot;, &quot;Sending an e-mail with Outlook&quot;&#41;\n	oMailItem&#58;Set&#40;&quot;Body&quot;, &quot;Email test using outlook&quot;+CRLF+CRLF&#41;\n\n  /* creating an Attachment object and adding files to send */\n	oAttach &#58;= oMailItem&#58;Invoke&#40;&quot;Attachments&quot;&#41;\n\n	oAttach&#58;Invoke&#40;&quot;Add&quot;, cReportName&#41;\n\n	//oMailItem&#58;Display&#40;&#46;T&#46;&#41;\n\n  /* Mail message created, now send the full featured message*/\n  	oMailItem&#58;Invoke&#40;&quot;Send&quot;&#41;\n\n	/* Destroy all the created OLE objects\n		oRecip&#58;End&#40;&#41;\n	   oAttach&#58;End&#40;&#41;\n		 oMailItem&#58;End&#40;&#41;\n		oOutLook&#58;End&#40;&#41;\n	*/\n\n   /* done */\n	MsgInfo&#40;&quot;Email Message sent&quot;&#41;\n\n[/code:g787e6bw]\n\n\nPERO si trato de cancelar antes de enviar el mensaje recibo el siguiente error:\n\n[code:g787e6bw]\n Time from start&#58; 0 hours 1 mins 31 secs \n   Error occurred at&#58; 09/04/2006, 09&#58;52&#58;21\n   Error description&#58; Error Outlook&#46;Application&#58;CREATEITEM/16389  E_FAIL&#58; RECIPIENTS\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;RECIPIENTS&#40;0&#41;\n   Called from&#58;  =&gt; HB_EXECFROMARRAY&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;INVOKE&#40;415&#41;\n   Called from&#58; rpreview0&#46;prg =&gt; SENDEMAILBYOUTLOOK&#40;2069&#41;[/code:g787e6bw]\n\n\nPERO si uso los mensajes para cerrar los objetos creados por ole\ntambien recibo mensaje de error.\n\nAlguna idea compañeros por donde anda el problema.\nEstoy usando FWH 2.7 Aug_06, xHarbour Builder RC9 Aug_06 y Ms-Office 2003\n\nPor otro lado me gustaria aber si alguien ha usado BLAT.DLL para enviar email y cual ha sido su experiencia\n\nSaludos\n\n\nGeorge[/code]','',0,'AIA=','g787e6bw',1,0,'',171,0,0),(18288,4132,6,83,0,'80.35.196.60',1157378939,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3gn4ouqm]Jose Vicente,\n\nfunction conecta(cDirWeb, lVisible, lToolBar, lStatusBar, lMenuBar)\n   local Ole\n\n 	DEFAULT lVisible := .t., lToolBar:= .t., lStatusBar:= .t., lMenuBar:= .t.\n\n   ole:=TOleAuto():New(\"InternetExplorer.Application\")\n   ole:Set(\"Visible\",   lVisible)\n 	ole:Set(\"ToolBar\",   lToolBar)\n 	ole:Set(\"StatusBar\", lStatusBar)\n 	ole:Set(\"MenuBar\",   lMenuBar)\n   ole:Invoke(\"Navigate\",cDirWeb)\n   //ole:End()\n\nReturn Nil\n\n[/quote:3gn4ouqm]\n\nAntonio,\n\nCorregido y probado, pero el error sigue siendo el mismo\n\nCalled from OLESETPROPERTY(0)\nCalled from TOLEAUTO:SET(127)\nCalled from CONECTA(64)\n\nLa linea 64 es\n   ole:Set(\"Visible\",   lVisible)\n\nEn principio solo se pasa a la funcion el valor &lt;cDirWeb&gt;, por lo que lVisible siempres sería .t.\n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','3gn4ouqm',1,0,'',83,0,0),(18289,4146,3,171,0,'71.232.193.197',1157379108,1,0,1,1,1,0,'','xHarbour Builder + FivewinH with Outlook Office 2003','Hello forum,\n\nThe following code work *BUT*\n\n[code:1opkr8xs]\nFUNCTION SendEmailByOutLook &#40;cReportName&#41;            //Using Ole\n	LOCAL oOutLook,;\n	oMailItem,;\n	oRecip,;\n	oAttach\n\n\n/* creating the OLE object */\n	oOutLook &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Outlook&#46;Application&quot;&#41;\n\n/* creating a Mail Item object*/\n	oMailItem &#58;= oOutLook&#58;Invoke&#40;&quot;CreateItem&quot;, 0&#41;\n\n	// creating Recipients object and attaching addresses\n	oRecip &#58;= oMailItem&#58;Invoke&#40;&quot;Recipients&quot;&#41;\n	oRecip&#58;Invoke&#40;&quot;Add&quot;, &quot;my_email_address@msn&#46;com&quot;&#41;\n\n   /* creating subject and body of the mail message using the\n   SET method of the mail item object */\n	oMailItem&#58;Set&#40;&quot;Subject&quot;, &quot;Sending an e-mail with Outlook&quot;&#41;\n	oMailItem&#58;Set&#40;&quot;Body&quot;, &quot;Email test using outlook&quot;+CRLF+CRLF&#41;\n\n  /* creating an Attachment object and adding files to send */\n	oAttach &#58;= oMailItem&#58;Invoke&#40;&quot;Attachments&quot;&#41;\n\n	oAttach&#58;Invoke&#40;&quot;Add&quot;, cReportName&#41;\n\n	//oMailItem&#58;Display&#40;&#46;T&#46;&#41;\n\n  /* Mail message created, now send the full featured message*/\n  	oMailItem&#58;Invoke&#40;&quot;Send&quot;&#41;\n\n	/* Destroy all the created OLE objects\n		oRecip&#58;End&#40;&#41;\n	                oAttach&#58;End&#40;&#41;\n		 oMailItem&#58;End&#40;&#41;\n		oOutLook&#58;End&#40;&#41;\n	*/\n\n   /* done */\n	MsgInfo&#40;&quot;Email Message sent&quot;&#41;\n\n[/code:1opkr8xs]\n\n\nBUT if I did cancel, before to send the email, the following message show:\n\n[code:1opkr8xs]\n Time from start&#58; 0 hours 1 mins 31 secs \n   Error occurred at&#58; 09/04/2006, 09&#58;52&#58;21\n   Error description&#58; Error Outlook&#46;Application&#58;CREATEITEM/16389  E_FAIL&#58; RECIPIENTS\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;RECIPIENTS&#40;0&#41;\n   Called from&#58;  =&gt; HB_EXECFROMARRAY&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;INVOKE&#40;415&#41;\n   Called from&#58; rpreview0&#46;prg =&gt; SENDEMAILBYOUTLOOK&#40;2069&#41;[/code:1opkr8xs]\n\n\nBUT if I try to destroy all the created OLE objects, also get ERRORS\n\nSome ideas programmers fellows and friends?\n\nI am using  FWH 2.7 Aug_06, xHarbour Builder RC9 Aug_06 and Ms-Office 2003\n\nBeside, I would like to know if your are using or used in the past, BLAT.DLL, (or BLAT.EXE command line) to send emails,  and how is your experience with it.\n\nRegards\n\n\nGeorge','',0,'AIA=','1opkr8xs',1,0,'',171,0,0),(18290,1114,4,89,0,'213.21.136.60',1157385624,1,0,1,1,1,0,'','','Hello Antonio \n\nIn FWPPC oWnd:onMouseMouve don\'t work , what  I cann use for capture \nmousemove ? \n\nRegards Maurizio','',0,'AIA=','19q31l6c',1,0,'',89,0,0),(18291,3680,6,24,0,'80.37.55.44',1157385643,1,0,1,1,1,1,'','','[quote=&quot;Baxajaun&quot;:3bour6k7]Rafa,\n\ny EnterpriseDB <!-- m --><a class=\"postlink\" href=\"http://www.enterprisedb.com/\">http://www.enterprisedb.com/</a><!-- m --> ?\n\nSaludos,\n\nFélix[/quote:3bour6k7]\n\nFelix, viendolo, creo que se basa en PostGre, por lo tanto, aceptamos\ntambien a Enterprisedb como unos de los mejores <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nPersonalmente, para APRENDER , contra MySql, es lo mas sencillo, porque no tiene ni la mitad de cosas que tiene el postgre , y eso que \nte ahorras en aprender.\n\nAhora si, si tienes que meter alguna aplicacion buscando \'robustez\',\nhay que mirar hacia PostGre antes que MySql.','',0,'gA==','3bour6k7',1,0,'',24,0,0),(18292,4123,6,171,0,'71.232.193.197',1157385771,1,0,1,1,1,0,'','','Baxajaun\n\nPodrias postear un ejemplo funcional, incluyendo attachments,  de como se usa BLAT.EXE \n\nSaludos\n\n\nGeorge','',0,'gA==','1nanauik',1,0,'',171,0,0),(18293,3680,6,24,0,'80.37.55.44',1157385839,1,0,1,1,1,1,'','','[quote=&quot;goosfancito&quot;:2s7mobsg][quote=&quot;thefull&quot;:2s7mobsg][quote=&quot;Marco A. Delgado&quot;:2s7mobsg]Hola....\n\nYo te aconsejo MySQL, es facil de aprender no es del todo gratis, pero puedes empezar sin gastar casi ni un centavo.\n\nAdemas puedes enlazar varios puntos de trabajo por medio de internet sin costo solo tu linea de internet, si necesitas algo referente a MySQL por aqui estamos.\n[/quote:2s7mobsg]\n\nMejor, te pones un PostGre, muchisimo mas potente, y encima libre.\nTotal, la sintaxis viene a ser mas o menos la misma.\n\nSobre ADS, demasiado CARO, eso si, para seguir tu forma de trabajar\ncon tus RDDs, es lo mas rapido.\n\nPero entre todos, PostGre sin dudas, posiblemente, el mejor de estas\n3 opciones.\n\n( ...Pues a mi no me gusta.... - Bueno, dije posiblemente <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> )\n\n\nSaludos\nRafa Carmona[/quote:2s7mobsg]\n\nPodrías postear algun ejemplo amigo?\n\nGracias.[/quote:2s7mobsg]\n\nLos ejemplos estan en /contrib/pgsql/tests.\nDe todas maneras, precisamente este fin de semana he estado jugando\ny tiene varios bugs, que ya le he notificado a Rodrigo, autor del codigo.','',0,'gA==','2s7mobsg',1,0,'',24,0,0),(18294,4095,6,24,0,'80.37.55.44',1157385983,1,0,1,1,1,1,'','Re: Aplicación FiveWin con dos monitores','Jose luis, miralo por el lado positivo!!!\nSIEMPRE PUEDES TENER MAS COLUMNAS EN EL BROWSE!!! jejejeje\n\nNi idea... ( lo siento no pude resistirme....jajajja )  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','skgbcpkk',1,0,'',24,0,0),(18295,4113,6,292,0,'200.82.145.213',1157389152,1,0,1,1,1,1,'','','Antonio,\nMuchas gracias, probaré.\n\n\n[quote=&quot;Antonio Linares&quot;:15drza4x]Juan,\n\nACTIVATE WINDOW oWnd ;\nON INIT oWnd:oMenu:Hilite( &lt;nItem&gt; )\n\nTienes un ejemplo en samples\\TestMenu.prg[/quote:15drza4x]','',0,'gA==','15drza4x',1,0,'',292,0,0),(18297,4124,3,299,0,'24.233.172.101',1157391218,1,0,1,0,1,0,'','','Antonio;\n\nThank you for your help.\n\nIt is a start.  Won\'t quite work for me, for I want to focus the next get. But it is an idea.  I tried redefining the button as:\n[code:2sehz0x1]\n	REDEFINE BUTTON ID 103 OF &#58;&#58;odlg PROMPT &quot;&amp;Next&quot; ACTION iif&#40; oget&#91;8&#93;&#58;lFocused, &#58;&#58;odlg&#58;GoNextCtrl&#40; &#58;&#58;odlg&#58;hWnd &#41;, &#41;\n[/code:2sehz0x1]\noget[8] is the dtpicker object.  But what it does is that it skips the dtpicker control altogether.  I\'ll keep working on it.  Any other idea is much welcomed.\n\nthank you,\n\n\nReinaldo.','',0,'AIA=','2sehz0x1',1,0,'',299,0,0),(18298,4095,6,123,0,'83.56.202.4',1157392679,1,0,1,1,1,0,'','','Rafa,\n\nEl caso es que tiene un comportamiento desconcertante.  El botón \'Restaurar\' hace que tome el ancho de dos pantallas (monitores) y el botón \'Maximizar\' hace que tome el ancho del monitor principal.  Lo cual hace que _siempre_ esté maximizado (sea en un monitor o en dos).\n\n¿A alguien más le ocurre?\n\nAntonio... ¿tu que opinas? ¿Se puede arreglar este comportamiento extraño?\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','1bvh2lxe',1,0,'',123,0,0),(18299,4134,4,3,0,'82.248.57.95',1157397152,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3dm2sqx9]Richard,\n\nIt seems that wininet.dll is available for Windows Mobile, so it should not be difficult to port the code to FWPPC. We are going to check it.[/quote:3dm2sqx9]\n\nAntonio   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias,\n\nThis issue is not critical for me, i can wait. \n\nI am much more interested in Msgrun replacement , spinners and curiously scopes (i thought this one depending on harbour ???).\n\nMsgrun is as far as i am concerned, the most critical point missing today. I have not found a replacement for it, probably out of ideas on the subject.\n\nDo you have an idea of any replacement ? \n\nThank you\n\nRichard\n\nKeep faith, FWPPC is a fantastic tool.','',0,'gA==','3dm2sqx9',1,0,'',3,0,0),(18300,4147,3,230,0,'64.12.117.5',1157401924,1,0,1,1,1,0,'','Creating Custom Controls/UeStudio 6.0','When I try to create a Custom Control In UeStudio\nI am unable to save the Control.\n\nAll I get went I save the Control is this Line\n    CONTROL         \"Browse Control\", 10,\"Custom\"  .............\n\nand not the Line \n    CONTROL         \"Browse Control\", 10,\"TWBrowse\"  .............\n\nAnd win I try to reload the control for editing.\nit will not display the Custom Control.','',0,'gA==','29389l82',1,0,'',230,0,0),(18301,4148,6,571,0,'201.137.162.229',1157406322,1,0,1,1,1,0,'','Ayuda con dll','Tengo la siguiente funcion en un dll\n\nDeclare Short            Online_SetupEx ;\nIn C:\\OnlineCommManager\\OnlineDll ;\n Long CommData, ;\n Short Port, ;\n Short BaudRate, ;\n Short StopBits, ;\n Short Parity\n\n\nalguien me podria ayudar a hacer la llamada desde fwh\n\nMuchas gracias por la ayuda','',0,'gA==','3gfcp2fc',1,0,'',571,0,0),(18302,4124,3,303,0,'72.199.41.171',1157409041,1,0,1,1,1,0,'','','Reinaldo,\n\nThe Tab key is the correct key for Windows apps. The Enter key is a holdever from the DOS era. In Windows apps, the Enter key is supposed to trigger the default pushbutton, which is usually the OK button on a dialog.\n\nJames','',0,'gA==','1qad0wd8',1,0,'',303,0,0),(18303,4134,4,2,0,'87.218.146.101',1157409048,1,0,1,1,1,1,'','','Richard,\n\nThere is already available a new FWPPC build to be downloaded with MsgRun() support. There is a working sample at samples\\TestMRun.prg.\n\nIt seems to work well but we appreciate your feedback. Thanks,\n\n&gt; spinners\n\nits on our todo list.\n\n&gt; and curiously scopes (i thought this one depending on harbour ???). \n\nYes, we upgrade Harbour for Pocket PC every few months from Harbour CVS. We may upgrade it in short.','',0,'gA==','1jrlitgj',1,0,'',2,0,0),(18304,4136,3,303,0,'72.199.41.171',1157409683,1,0,1,1,1,0,'','','Even if it is possible, it is not a good design. It is better to use two browses, one empty. The user then selects an item from the full browse, and adds it to the empty one. You also need a Remove button.\n\nThis way the user can see which items they have selected.\n\nJames','',0,'gA==','63lvsqa5',1,0,'',303,0,0),(18305,1114,4,2,0,'87.218.146.101',1157409917,1,0,1,1,1,1,'','','Maurizio,\n\nThere is a new FWPPC build already available, that supports Class TWindow DATA bMMoved. \n\noWnd:bMMoved = { | nRow, nCol, nFlags | ... }','',0,'gA==','2qewde0t',1,0,'',2,0,0),(18306,4095,6,2,0,'87.218.146.101',1157410227,1,0,1,1,1,1,'','','Jose Luis,\n\nSi mueves una ventana de FWH en horizontal ¿ va apareciendo por el otro monitor ?\n\nEste tema ya se abordó en otra ocasión, lo que ocurre es que encontramos diferencias de comportamiento según la tarjeta gráfica utilizada (y sus correspondientes drivers).','',0,'gA==','3hdy8com',1,0,'',2,0,0),(18307,4132,6,2,0,'87.218.146.101',1157410569,1,0,1,1,1,1,'','','Jose Vicente,\n\nSi comentas esa línea, te funciona ? Podemos enviarte el EXE como ZIP para que lo pruebes. Aqui está funcionando bien.\n\nEstás usando XP SP2 y el Internet Explorer más reciente (anterior al 7) ?','',0,'gA==','2shxvkbf',1,1157410736,'',2,1,0),(18308,4132,6,2,0,'87.218.146.101',1157410662,1,0,1,1,1,1,'','','Julio,\n\nEntonces con xHarbour te arranca la aplicación y no lo hace con Harbour ?\n\nPor favor, prueba con el build de Harbour publicado en Agosto:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f26/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->','',0,'gA==','2jxlznou',1,0,'',2,0,0),(18309,4147,3,2,0,'87.218.146.101',1157410845,1,0,1,1,1,1,'','','J,\n\nAre you using the most recent UEStudio version ?','',0,'gA==','2li5t8p2',1,0,'',2,0,0),(18310,4146,3,303,0,'72.199.41.171',1157410918,1,0,1,1,1,0,'','','MAPI Mail Sample:\n\n        define mail oMail ;\n           to ::oCustomer:email;\n           subject \"Invoice \"+::invno;\n           from user;\n           files (cFile),cFile\n\n         activate mail oMail\n\nNote that cFile MUST contain the path.\n\nClauses\n\nFILES - the first parameter must contain the full name of the file including the path. The second parameter must contain the name you want to apprear as the attachment name. Doing (cFile),cFile makes the attachment appear with the filename (without path).','',0,'gA==','1ibo2w5c',1,0,'',303,0,0),(18311,4149,6,52,0,'201.212.71.153',1157411016,1,0,1,1,1,1,'','Como saber si un puerto del firewall esta abierto?','Amigos,\n\nEstoy incursionando en mysql, y quiero hacer una funcion para que avise al cliente que no se puede conectar porque el puerto 3306 no está habilitado.\n\nAlguna idea?\n\nGracias.','',0,'gA==','jbew1pbh',1,0,'',52,0,0),(18312,4148,6,2,0,'87.218.146.101',1157411084,1,0,1,1,1,1,'','','DLL FUNCTION Online_SetupEx( CommData AS LONG, Port AS LONG, Baudrate AS LONG, Stopbits AS LONG, Parity AS LONG ) AS LONG LIB \"C:\\OnlineCommManager\\OnlineDll.dll\"','',0,'gA==','3o1ul53c',1,0,'',2,0,0),(18313,4071,4,2,0,'87.218.146.101',1157411447,1,0,1,1,1,1,'','','Richard,\n\nAlready implemented. There is a new FWPPC build to download.','',0,'gA==','1o3yb10p',1,0,'',2,0,0),(18314,4147,3,230,0,'205.188.116.6',1157415017,1,0,1,1,1,0,'','','Antonio,\n   Yes I am using Version 6.0 Downloaded On 08/31/06.\n\nWin I try to save my Resource after creating a Custom Control\nThe Class always Saves as Custom and not as the Class that\nyou define.  (TWBrowse).\n\nAlso went I try to reload the Resource after Closing UeStudio.\nthe custom Control will not Display on the Screen in Design Mode.\n\nHave you had this problem?\n\nThank you','',0,'gA==','1lo3usjp',1,0,'',230,0,0),(18315,4135,6,138,0,'148.221.195.26',1157426757,1,0,1,1,1,1,'','','Si: <!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/webtilus32.htm\">www.google.d2g.com/webtilus32.htm</a><!-- w -->','',0,'gA==','1le5jsnl',1,0,'',138,0,0),(18316,4150,3,31,0,'195.182.84.105',1157433728,1,0,1,1,1,1,'','ADO events','Hi !\n\n It\'s needful  to adopt one event in ADO objects . I found an VFP sample , \nit demonstrate what I want to do :\n\n#DEFINE C_VFPCOMCLASS  \'vfpcom.comutil\'\noVFPCOM = CreateObject(C_VFPCOMCLASS)\noRecordSet = CreateObject(\'ADODB.RECORDSET\')\noRecordSet.CursorType = 3 &amp;&amp; adOpenStatic\noRecordSet.LockType = 1 &amp;&amp; adLockReadOnly\noRecordSet.Open(\'SELECT * FROM AUTHORS\', + ;\n   \'Provider=sqloledb;Server=MYSQL1;\' + ;\n   \'Initial Catalog= pubs;UId=sa;PWD=; \')\noEvents = CreateObject(\'adoevents\')\nnError = oVFPCOM.BindEvents(oRecordSet, oEvents)\noRecordSet.MoveNext\n\nDEFINE CLASS adoevents AS Session\n      PROCEDURE WillMove(adReason, adStatus, pRecordset)\n            WAIT WINDOW \'Moving one record...\' NOWAIT\n      ENDPROC\nENDDEFINE\n\n   The problem is that this example is adapted to VFP COM object . So my \nquestion it will second : can I manage events of recordsets without COM \nobject ( as in sample ) ? Only with ADO objects ?\n\n   If yes , can you show some source how to do that ? It\'s needful to \nrecognize movings events on recordset and then to do some things .\n\n   Many thanks in adcvance ! With best regards ! Rimantas','',0,'gA==','287ho4m2',1,0,'',31,0,0),(18317,4147,3,2,0,'87.218.146.101',1157436099,1,0,1,1,1,1,'','','J,\n\nWe don\'t use UEStudio for our resources design. We use Borland resources Workshop, most of the times, or PellesC IDE.\n\nWe noticed that problem on UEStudio 5.0 and reported the bug, but it looks as it has not been fixed yet.','',0,'gA==','2czd7zwa',1,0,'',2,0,0),(18318,4136,3,2,0,'87.218.146.101',1157436243,1,0,1,1,1,1,'','','Silvio,\n\nPlease review samples\\TestLbx4.prg','',0,'gA==','9xzzjv7g',1,0,'',2,0,0),(18319,4121,3,2,0,'87.218.146.101',1157436699,1,0,1,1,1,1,'','','Silvio,\n\nThat C3 sample does not use the ActiveX built-in statusbar neither the toolbar.','',0,'gA==','1vehiyml',1,0,'',2,0,0),(18320,4126,6,2,0,'87.218.146.101',1157436846,1,0,1,1,1,1,'','','En phone.prg hay que modificar la llamada a SetCommState() para que reciba nComm como el primer parámetro. \n\nEs una modificación propia del API de Win32.','',0,'gA==','2otfyhww',1,0,'',2,0,0),(18321,2502,17,2,0,'87.218.146.101',1157437113,1,0,1,1,1,1,'','','Mario,\n\nEn principio el código en C parece ser compatible con 16 y 32 bits, pero para mayor seguridad podrías consultarle a Hernán.','',0,'gA==','3ph63mxg',1,0,'',2,0,0),(18322,4141,6,123,0,'83.53.59.224',1157437392,1,0,1,1,1,0,'','','Hola Antonio,\n\nMe aventuro a decir que podría ser que algo está fallando en la lógica de tu programa dado que estás intentado (por la descripción del error) añadir o modificar un registro inválido del recordset.  Esto suele pasar cuando estás en BOF o EOF o cuando comienzas a modificar en un registro y te \'mueves\' a otro.\n\nNo obstante, viendo un poco tu código, veo que programas el acceso a datos a lo xBase cuando estás utilizando un sistema cliente servidor.\n\nPor ejemplo, este código:\n\n[code:3dh3ubru] *--// Grabo en la Base de Datos\nif !oRs1&#58;SeekRs&#40;\' SELECT * FROM Clientes WHERE codigo=\'+op&#58;Codigo,oCnx&#58;oConnection&#41;\noRs1&#58;Append&#40;&#41;\noRs1&#58;put&#40;\'codigo\',op&#58;Codigo&#41;\nendi\noRs1&#58;Put&#40;\'nombre\',op&#58;Nombre&#41;\noRs1&#58;Put&#40;\'Direccion\',op&#58;Direccion&#41;\noRs1&#58;Put&#40;\'ruc\',op&#58;ruc&#41;\noRs1&#58;save&#40;&#46;t&#46;&#41;\n[/code:3dh3ubru]\n\nYo empezaría por dejarlo de esta manera:\n[code:3dh3ubru]\nLOCAL lResult\nRs1&#58;Append&#40;&#41;\noRs1&#58;put&#40;\'codigo\',op&#58;Codigo&#41;\noRs1&#58;Put&#40;\'nombre\',op&#58;Nombre&#41;\noRs1&#58;Put&#40;\'Direccion\',op&#58;Direccion&#41;\noRs1&#58;Put&#40;\'ruc\',op&#58;ruc&#41;\nlResult &#58;= oRs1&#58;save&#40;&#46;t&#46;&#41;\nIF !lResult\n   MsgInfo&#40;&quot;Ha ocurrido un error&#58; &quot;+oRs1&#58;oError&#58;cDescriptio&#41;\nENDIF\nRETURN lResult\n[/code:3dh3ubru]\n\nEn este código no hago ningún tipo de comprobación de existecia o no de duplicidad de registros.  Dejo ese trabajo a la base de datos. ¿Como? Pues simplemente añadiendo una restricción tipo PRIMARY KEY que  impida tener registros duplicados.  En este caso ADO captura el error que arroja la base de datos y puedes actuar en consecuencia (existe una colección Errors así como una serie de propiedades del Recordset que te permiten averiguar el tipo de error).  En tu caso concreto puedes capturar el error, ver que se trata de un registro duplicado y, en vez de hacer un append, simplemente modificas el registro (que es lo que creo que quieres hacer).\n\nEspero haberte sido de ayuda.\nSaludos,\nJosé Luis Capel','',0,'AIA=','3dh3ubru',1,0,'',123,0,0),(18323,4095,6,123,0,'83.53.59.224',1157437710,1,0,1,1,1,0,'','','Hola Antonio,\n\n[quote:7r40g35l]Si mueves una ventana de FWH en horizontal ¿ va apareciendo por el otro monitor ? [/quote:7r40g35l]\n\n\nMis aplicaciones las lanzo siempre maximizadas.  En este caso, se visualizan siempre en el monitor principal.  Y, como he explicado en dos mensajes más arriba, al estar maximizada y querer \'restaurar\' coge el ancho de los dos monitores.\n\nHe probado con otras aplicaciones (Word, Excel, etc) y programas creados con otras herramientas de programación y veo en esos programas un comportamiento homogéneo: el botón \'restaurar\' deja la ventana con un tamaño inferior al del monitor donde se encuentra. Y la tecla maximizar hace que tome el ancho del monitor donde se encuentra.  En _ningún_caso_ toma el ancho de los dos monitores.\n\nSaludos y gracias por tu tiempo para solucionar este inconveniente.\nJosé Luis Capel','',0,'gA==','7r40g35l',1,0,'',123,0,0),(18324,3680,6,123,0,'83.53.59.224',1157437886,1,0,1,1,1,0,'','','Hola...\n\nTambien podeis probar SqlServer con MSDE que es graito para 5 conexiones simultanes o Sql Server 2005 Express, tambien gratuito.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','sc24p8p3',1,0,'',123,0,0),(18325,4123,6,92,0,'213.96.45.9',1157439153,1,0,1,1,1,0,'','','[quote=&quot;Baxajaun&quot;:2p18juth]Hola Carlos,\n\nyo no he utilizado Blat <!-- m --><a class=\"postlink\" href=\"http://www.blat.net/\">http://www.blat.net/</a><!-- m --> desde Fivewin, pero sí lo he hecho desde la solución de Backup Legato Networker y te puedo asegurar que es muy fácil su utilización. Qué necesitas ?\n\nSaludos,\n\nFélix[/quote:2p18juth]\n\nLa cosa es que he creado una clase que con un simple  oMail := New(mis,parametros,de,envio):Send():End() todo se crea \'de perlas\' y a la hora de enviar aparecen los problemas externos a la aplicación. (Esta tarde si puedo cuelgo la clase para que quien quiera).\n\nEl primer problema que he tenido es que el McAffee tenía bloqueado el envío de mails para Blat.exe, ya está solucionado, habilité que blat.exe pudiera enviar.\n\nEl segundo problema es que estoy intentado enviar sin haber realizado un \'-install\' y me constesta que el servidor no conoce las cuentas ¡¡destinatarias!!.\n\nAhora mismo en el entorno donde estoy no puedo reproducir el error; intentaré desde casa averiguar el código de error concreto.\n\nSaludos y gracias.\nCarlos G.','',0,'gA==','2p18juth',1,0,'',92,0,0),(18326,4095,6,2,0,'87.218.146.101',1157440004,1,0,1,1,1,1,'','','Jose Luis,\n\nNo me has contestado a la pregunta <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi mueves una ventana de FWH en horizontal ¿ va apareciendo por el otro monitor ?\n\nOtra cosa, has probado con otro lenguaje de programación (Delphi, VB) ?\n\nFWH no hace nada en especial, sino el comportamiento por defecto de Windows. Si especificas la claúsula MAXIMIZED se llama a ShowWindow( ::hWnd, 3 ). Los parámetros de ShowWindow() pueden ser:\n\n/*\n * ShowWindow() Commands\n */\n#define SW_HIDE             0\n#define SW_SHOWNORMAL       1\n#define SW_NORMAL           1\n#define SW_SHOWMINIMIZED    2\n#define SW_SHOWMAXIMIZED    3\n#define SW_MAXIMIZE         3\n#define SW_SHOWNOACTIVATE   4\n#define SW_SHOW             5\n#define SW_MINIMIZE         6\n#define SW_SHOWMINNOACTIVE  7\n#define SW_SHOWNA           8\n#define SW_RESTORE          9\n#define SW_SHOWDEFAULT      10\n#define SW_FORCEMINIMIZE    11\n#define SW_MAX              11\n\nQuizá habría que probar con SW_SHOWDEFAULT','',0,'gA==','2d2bph2s',1,0,'',2,0,0),(18327,4095,6,2,0,'87.218.146.101',1157440372,1,0,1,1,1,1,'','','Jose Luis,\n\nEl método Restore() de FWH hace esto:\nMETHOD Restore() INLINE ShowWindow( ::hWnd, SW_RESTORE )\n\nPero nosotros no lo llamamos cuando pulsas en restore. Ahi Windows hace el comportamiento por defecto y nos debe llegar una notificación al método Resize() que tampoco varía el tamaño.\n\nPrueba a situar un botón en la ventana que llame a oWnd:Restore() y comprueba si se comporta igual que al pulsar el botón restore de Windows. Gracias','',0,'gA==','2z6j4on9',1,0,'',2,0,0),(18328,4151,7,519,0,'88.16.15.73',1157440579,1,0,1,1,1,0,'','Imagenes Jpg  ?','Hola\n\n   Se pueden mostrar imagenes jpg con fivewin para Pocket ? \n\n\n  Un saludo y gracias desde ya','',0,'gA==','3qizfqc5',1,0,'',519,0,0),(18329,4071,4,3,0,'82.120.158.167',1157442410,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:jdf4xpqz]Richard,\n\nAlready implemented. There is a new FWPPC build to download.[/quote:jdf4xpqz]\n\nAntonio,\n\nAlmost there !\n\nThere is a problem refreshing the screen after the msgrun ends trhe event\n\ntry something like :\n\n@ 0, 120 BTNBMP OBTN4 FILE CurDir() + \"\\BMP\\PARAM.bmp\" SIZE 40, 40 OF oWnd NOBORDER CENTER ;\n   ACTION   MsgRun( \"Réorganisation en Cours...\", \"Veuillez Patienter\",        ;\n            { || INXGEN() } )\n\n\nfunction inxgen()\nIF ! MsgYesNo( \'Voulez-vous Effectuer une réorganisation de vos fcichiers ?\', \'Veuillez Confirmer\' )\n   RETURN NIL\nENDIF\n......\nreturn nil\n\nin this sample, the msgyesno box will remain painted as it overlaps the msgrun painting area\n\nAnother sample\n\n@ 0, 120 BTNBMP OBTN4 FILE CurDir() + \"\\BMP\\PARAM.bmp\" SIZE 40, 40 OF oWnd NOBORDER CENTER ;\n   ACTION IF( MsgYesNo( \'Voulez-vous Effectuer une réorganisation de vos fcichiers ?\', \'Veuillez Confirmer\' ), ;\n            MsgRun( \"Réorganisation en Cours...\", \"Veuillez Patienter\",        ;\n            { || INXGEN() } ) , )\n\nThe msgyesno is the button action, the painting is perfect but you need to click anywhere at the end in order to erase the painting. It rzmains.\n\nIf i am not clear enough, let me know, i will try to hardcopy screens.\n\nRichard','',0,'gA==','jdf4xpqz',1,0,'',3,0,0),(18330,1114,4,89,0,'213.21.136.60',1157443454,1,0,1,1,1,0,'','','Thank Antonio \n\nNow I try to save the window in a BMP with SaveToBmp but in FWPPC \ndon\'t exist \n\nI try \n\n  DEFAULT cFile := CurDir() + \"\\Test.Bmp\"\n   hBmp := WndBitmap( oWnd:hWnd )\n   hDib := DibFromBitmap( hBmp )\n   DibWrite( cFile, hDib )\n   GloBalFree( hDib )\n   DeleteObject( hBmp )\n\nBut I have \"error 6\"  \nAny Idea\n\nRegards MAurizio','',0,'gA==','p0snyamu',1,0,'',89,0,0),(18331,4132,6,83,0,'80.35.196.60',1157444147,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3ead2qyd]Jose Vicente,\n\nSi comentas esa línea, te funciona ? Podemos enviarte el EXE como ZIP para que lo pruebes. Aqui está funcionando bien.\n\nEstás usando XP SP2 y el Internet Explorer más reciente (anterior al 7) ?[/quote:3ead2qyd]\n\nAntonio, \n\nSi comento la linea en cuestión, el error pasa a la siguiente y a sí sucesivamente.\n\nMi sistema es XP SP2 pro actualizado al dia.\n\n¿Podría ser que mi HBOLE.LIB sea antigua?\n\nHBOLE.LIB tamaño -&gt;37888, 07-05-2003 \n\nsaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','3ead2qyd',1,0,'',83,0,0),(18332,4132,6,2,0,'87.218.146.101',1157445503,1,0,1,1,1,1,'','','José Vicente,\n\n&gt; ¿Podría ser que mi HBOLE.LIB sea antigua? \n\nClaro. Ese es el problema.\n\nSi vas a trabajar con TOleAuto() lo idóneo es que uses xHarbour, hasta que esa clase se importe (ó no) a Harbour. Nosotros lo hemos probado con xHarbour.\n\nCompilar con Harbour ó xHarbour es transparente. No tienes que cambiar nada en tu aplicación.','',0,'gA==','2wxana2x',1,0,'',2,0,0),(18333,4152,7,720,0,'80.36.244.134',1157446016,1,0,1,1,1,0,'','Como quitar un filter...','Hola a todos... \nEstoy intentando quitar un filtro y estoy empleando set filter to pero sin resultado, he probado con set filter y tampoco, alguien puede decirme como poder anular los filtros??\n\nOtra pregunta, cuando me defino un font para poder cambiar la fuente solo me cambia el tamaño pero no el tipo de letra.Lo estoy declarando de la siguiente forma:\n\nDEFINE FONT oFont NAME \"Arial\" SIZE 14, -16 \n\nDebo incluir algún *.ch??\n\n\nSaludos y gracias.\n\n\nElías Torres.','',0,'gA==','2rs4gp1w',1,0,'',720,0,0),(18334,4095,6,123,0,'83.56.202.4',1157447090,1,0,1,1,1,0,'','','Antonio,\n\nEn este video puedes ver el comportamiento que te describo.\n\n[url:3qcm1b4e]http&#58;//hyperupload&#46;com/download/02dc398c96/VentanasDeFiveWin&#46;zip&#46;html[/url:3qcm1b4e]\n\nLos dos monitores, en este video, se ven como uno solo.  Entonces, la parte izquierda es el monitor principal y la derecha (donde aparece el navegador) es el monitor secundario.\n\nSaludos,\nJosé Luis Capel','',0,'EA==','3qcm1b4e',1,0,'',123,0,0),(18335,4153,3,15,0,'210.201.24.223',1157447389,1,0,1,1,1,0,'','How to check ADI Yes/No Exist index TAG name?','Hello \n\nI use AIS to connect ADT/ADI database/index for remote access.\nNow, I want to make reindex my ADI like CDX.\nSo I need to delete ADI file or delete TAG name.\nHow to know or get this ADI Tag name function or delete Tag name?\nAnyone have good solution or idea for this?\n\nThank you\n\nRegards,\n\nRichard','',0,'EA==','3fiw49vi',1,0,'',15,0,0),(18336,4132,6,83,0,'80.35.196.60',1157449223,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:fdaa8o4v]José Vicente,\n\nCompilar con Harbour ó xHarbour es transparente. No tienes que cambiar nada en tu aplicación.[/quote:fdaa8o4v]\n\nLo sé Antonio, lo que pasa es que soy animal de costumbres, de todos modos voy a probarlo, muchas gracias por tu interés.\n\nSaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','fdaa8o4v',1,0,'',83,0,0),(18337,4151,7,2,0,'87.218.146.101',1157450477,1,0,1,1,1,1,'','','No de momento. Sólo BMPs <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nPara mostrar JPGs necesitamos la librería FreeImage en versión WinCE y por lo visto ( <!-- m --><a class=\"postlink\" href=\"http://freeimage.sourceforge.net\">http://freeimage.sourceforge.net</a><!-- m --> ) aún no está disponible, aunque en su foro ya han habido varias peticiones de portarlo a Windows Mobile.','',0,'gA==','2yg9bqvw',1,0,'',2,0,0),(18338,4152,7,2,0,'87.218.146.101',1157450980,1,0,1,1,1,1,'','','Elias,\n\nPrueba así:\n\narticulos-&gt;( DbClearFilter() )\n\nEn cuanto a los fonts, si no cambia el tipo de letra, puede deberse a que estés intentando usar un font que no esté disponible en Windows Mobile.','',0,'gA==','1lzz2n9f',1,0,'',2,0,0),(18339,4152,7,720,0,'80.36.244.134',1157451422,1,0,1,1,1,0,'','','Gracias Antonio, funciona perfectamente..\n\nCon respecto a las fuentes, puedes decirme donde puedo ver los tipos de font que soporta windows mobile??\n\n\nSaludos, Elías Torres.','',0,'gA==','g3wz7csy',1,0,'',720,0,0),(18340,4151,7,2,0,'87.218.146.101',1157451547,1,0,1,1,1,1,'','','Por lo visto esta librería gratuita si permite visualizar JPGs y está disponible para WinCE <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xdp.it/download.htm\">http://www.xdp.it/download.htm</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/bitmap/cximage.asp\">http://www.codeproject.com/bitmap/cximage.asp</a><!-- m -->','',0,'gA==','1lqtrt2g',1,0,'',2,0,0),(18341,4095,6,2,0,'87.218.146.101',1157451790,1,0,1,1,1,1,'','','José Luis,\n\ngracias por el video.\n\nPodrías probarlo con Delphi ó VB ? gracias.','',0,'gA==','28azl945',1,0,'',2,0,0),(18342,4152,7,2,0,'87.218.146.101',1157453604,1,0,1,1,1,1,'','','Elias,\n\nSi abres el \"Pocket Word\", escribes algo, lo marcas y pulsando seleccionas \"Format\", aparecen los tipos de fuentes y por defecto sólo se ven dos: \"Courier New\" y Tahoma:\n[url=http&#58;//imageshack&#46;us:13jzlace][img:13jzlace]http&#58;//img179&#46;imageshack&#46;us/img179/9499/image2rc6&#46;jpg[/img:13jzlace][/url:13jzlace]','',0,'GA==','13jzlace',1,0,'',2,0,0),(18343,1114,4,2,0,'87.218.146.101',1157453873,1,0,1,1,1,1,'','','Maurizio,\n\nThere is a problem: Windows Mobile does not support GetDIBits() which it is needed to turn a BMP into a DIB file. \n\nWe have implemented a replacement but it is not working yet. We expect to find a solution for it.','',0,'GA==','1i3z84xq',1,0,'',2,0,0),(18344,4124,3,299,0,'24.233.172.101',1157459506,1,0,1,0,1,0,'','','Yes, I realize that.  However, there are circumstances where it is much more convenient to do data entry using the numeric keypad and move from field to field using the enter key.  You should see the speed of some users doing data entry of item number, units, date and back around.  Item after item after item...   Forcing them to use the tab key will seriously slow the process.\n\nMy problem was with the dpicker class field.  I changed it to a standard tget field to pickup the date and it working as needed.\n\nThank you for your reply,\n\n\nReinaldo.','',0,'GA==','38w927vk',1,0,'',299,0,0),(18345,4132,6,264,0,'200.91.3.10',1157460910,1,0,1,1,1,1,'','','Antonio.\nEl tamaño de la descarga de harbour agosto que señalas es identica a la que ya tengo.\nDe todas formas recompilare todo para revisar.\nTe mantendre al tanto.\nSaludos','',0,'GA==','zdkwqq3g',1,0,'',264,0,0),(18347,4155,6,147,0,'201.253.17.136',1157461967,1,0,1,0,1,1,'','Consulta sobre trabajar con Windows MDI','Hola gente\nSiempre hay una primera vez.... y esta es mi prmera vez en esto :-)\nLo que parece que no entiendo es el uso de MENUINFO. Uno quieren y otros no...jejejeje, me refiero al msg de un colega que no quiere ver los MDIChild abiertos.\nMi idea y/o pretención es que la ventana madre tenga un Menu general, diagamos MenuMain(), con opciones como:\n\"Opciones\"        \"Ventanas\"\n        \"Nevo\"            \"Adelante\"\n        \"Salir\"             \"Atras\"\n                              ---------------\n                              \"MDIChildxx\"\n\nPor lo que veo en el sample testmdi6, MENUINFO se agrega a los menues Child y no al menú Main. De hecho en mis pruebas al colocar MENUINFO 2, según el ejemplo de arriba, y posteriomente al ejecutar la app, en \"Ventanas\" no se adicionan las child a medida que son abiertas.\nSe puede?, no se puede?, estoy errado en el concepto de como usarlo?\n\ngracias','',0,'GA==','2u1u8z31',1,0,'',147,0,0),(18348,4146,3,308,0,'84.148.28.206',1157462334,1,0,1,1,1,0,'','Re: xHarbour Builder + FivewinH with Outlook Office 2003','[quote=&quot;George&quot;:17557jpz]Hello forum,\n\nThe following code work *BUT*\n\n[code:17557jpz]\nFUNCTION SendEmailByOutLook &#40;cReportName&#41;            //Using Ole\n	LOCAL oOutLook,;\n	oMailItem,;\n	oRecip,;\n	oAttach\n\n\n/* creating the OLE object */\n	oOutLook &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Outlook&#46;Application&quot;&#41;\n\n/* creating a Mail Item object*/\n	oMailItem &#58;= oOutLook&#58;Invoke&#40;&quot;CreateItem&quot;, 0&#41;\n\n	// creating Recipients object and attaching addresses\n	oRecip &#58;= oMailItem&#58;Invoke&#40;&quot;Recipients&quot;&#41;\n	oRecip&#58;Invoke&#40;&quot;Add&quot;, &quot;my_email_address@msn&#46;com&quot;&#41;\n\n   /* creating subject and body of the mail message using the\n   SET method of the mail item object */\n	oMailItem&#58;Set&#40;&quot;Subject&quot;, &quot;Sending an e-mail with Outlook&quot;&#41;\n	oMailItem&#58;Set&#40;&quot;Body&quot;, &quot;Email test using outlook&quot;+CRLF+CRLF&#41;\n\n  /* creating an Attachment object and adding files to send */\n	oAttach &#58;= oMailItem&#58;Invoke&#40;&quot;Attachments&quot;&#41;\n\n	oAttach&#58;Invoke&#40;&quot;Add&quot;, cReportName&#41;\n\n	//oMailItem&#58;Display&#40;&#46;T&#46;&#41;\n\n  /* Mail message created, now send the full featured message*/\n  	oMailItem&#58;Invoke&#40;&quot;Send&quot;&#41;\n\n	/* Destroy all the created OLE objects\n		oRecip&#58;End&#40;&#41;\n	                oAttach&#58;End&#40;&#41;\n		 oMailItem&#58;End&#40;&#41;\n		oOutLook&#58;End&#40;&#41;\n	*/\n\n   /* done */\n	MsgInfo&#40;&quot;Email Message sent&quot;&#41;\n\n[/code:17557jpz]\n\n\nBUT if I did cancel, before to send the email, the following message show:\n\n[code:17557jpz]\n Time from start&#58; 0 hours 1 mins 31 secs \n   Error occurred at&#58; 09/04/2006, 09&#58;52&#58;21\n   Error description&#58; Error Outlook&#46;Application&#58;CREATEITEM/16389  E_FAIL&#58; RECIPIENTS\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;RECIPIENTS&#40;0&#41;\n   Called from&#58;  =&gt; HB_EXECFROMARRAY&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;INVOKE&#40;415&#41;\n   Called from&#58; rpreview0&#46;prg =&gt; SENDEMAILBYOUTLOOK&#40;2069&#41;[/code:17557jpz]\n\n\nBUT if I try to destroy all the created OLE objects, also get ERRORS\n\nSome ideas programmers fellows and friends?\n\nI am using  FWH 2.7 Aug_06, xHarbour Builder RC9 Aug_06 and Ms-Office 2003\n\nBeside, I would like to know if your are using or used in the past, BLAT.DLL, (or BLAT.EXE command line) to send emails,  and how is your experience with it.\n\nRegards\n\n\nGeorge[/quote:17557jpz]\n\nhave you testet \n[code:17557jpz]\nTRY\n  &#46;&#46;&#46; sendroutine\nCATCH\n  MsgAlert&#40;&quot;No Mail send&quot;&#41;\nEND\n[/code:17557jpz]\n?? \n\nBest regards, Norbert','',0,'gIA=','17557jpz',1,0,'',308,0,0),(18349,2502,17,147,0,'201.253.17.136',1157464718,1,0,1,0,1,1,'','','Antonio,\nMe refería a que no tengo compilador para 16bits, y de ahí el pedido.\n\nSaludos','',0,'gIA=','2xljik0r',1,0,'',147,0,0),(18350,4155,6,147,0,'201.253.17.136',1157467521,1,0,1,0,1,1,'','','bue......  :oops: en mi ventana Child tenía STYLE nOr( WS_CAPTION, WS_MINIMIZEBOX, WS_SYSMENU )\n\ngracias, igualmente','',0,'gIA=','abprpro7',1,0,'',147,0,0),(18352,4153,3,138,0,'201.128.111.188',1157473187,1,0,1,1,1,1,'','','You should not need to perform any reindexing task, I mean, you don\'t need to reindex any table since ADS indexes should not cause any problem at all.\n\nAnyway, if you want to \"reindex\", do the following:\n\nClose all opened tables.\nManually erase all the ADI files (FERASE(\"file.adi\")\nPerform the index as usual\nyou are done.\n\nTry to avoid the reindexing, I repeat, you don\'t need to reindex since you are working with ADS.','',0,'gIA=','33vxe8zb',1,0,'',138,0,0),(18353,1114,4,89,0,'213.21.136.60',1157474637,1,0,1,1,1,0,'','','Hello Antonio I have now  found the solution .\n\nNow I have to set  the quality of the signature .\n\nI found an old  messagge send by you regarding  this :\n\n\n\" You may try to fine tune the mouse speed using SystemParametersInf()\n and the SPI_SETMOUSE flag. Also check mouse_event()\"\n\nHow it is possible to do this ? \n\nRegards Maurizio','',0,'gIA=','2x48r276',1,0,'',89,0,0),(18354,4071,4,2,0,'87.218.146.236',1157475665,1,0,1,1,1,1,'','','Richard,\n\nYes, we have noticed it too. We may change the style of the used dialogbox.','',0,'gIA=','32bzqz1i',1,0,'',2,0,0),(18355,4113,6,292,0,'201.243.99.57',1157476649,1,0,1,1,1,1,'','','Antonio,\nMuchas gracias, si focaliza la opción, deseo ejecutarla en forma automática.\n\n[quote=&quot;Antonio Linares&quot;:34az5z9y]Juan,\n\nACTIVATE WINDOW oWnd ;\nON INIT oWnd:oMenu:Hilite( &lt;nItem&gt; )\n\nTienes un ejemplo en samples\\TestMenu.prg[/quote:34az5z9y]','',0,'gA==','34az5z9y',1,0,'',292,0,0),(18356,4113,6,2,0,'87.218.146.236',1157477300,1,0,1,1,1,1,'','','Juan,\n\nEntonces, te ha servido ?','',0,'gA==','3kt80bgp',1,0,'',2,0,0),(18357,4148,6,571,0,'201.137.162.229',1157479480,1,0,1,1,1,0,'','Antonio muchas gracias','[quote=&quot;Antonio Linares&quot;:3aunjqn1]DLL FUNCTION Online_SetupEx( CommData AS LONG, Port AS LONG, Baudrate AS LONG, Stopbits AS LONG, Parity AS LONG ) AS LONG LIB \"C:\\OnlineCommManager\\OnlineDll.dll\"[/quote:3aunjqn1]','',0,'gA==','3aunjqn1',1,0,'',571,0,0),(18358,524,4,289,0,'82.167.36.155',1157480920,1,0,1,1,1,0,'','Function serial number For Pocket PC','Welcome All\n already clarified that the post laptop with Hp iPAQ  Not work\n found topic  source \n <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=555\">http://fivetechsoft.com/forums/viewtopic.php?t=555</a><!-- m --> \n\nIf there was the emulator is identical for Hp ipaq pleas sent me to try it With New source.\n_________________\nregards, \n\nhathal','',0,'gA==','26iksvgl',1,0,'',289,0,0),(18359,4071,4,2,0,'87.218.146.236',1157485098,1,0,1,1,1,1,'','','Richard,\n\nFixed. There is a new FWPPC build to download. \n\nWe appreciate your feedback, thanks','',0,'gA==','1ymqqkaj',1,0,'',2,0,0),(18360,4136,3,49,0,'62.13.172.78',1157486987,1,0,1,1,1,1,'','','Thanks Antonio,\nBut I must use Wbrowse of Hernan Ceccarelli  because I use height and color variable and other..\n\nAnd I use a listbox but there are ARRAY type amat[x,y] with \noBrw:SetArray( aMat )\n\nI try with Tmultiselect  of Wbrowse ( Ceccarelli) but it want an alias\nI try with asekections() ( Wbriwse standard) but it make error\n\n\nthe user must select only on (vertical) column and not for Row ( orizontal)\nExample: I must select  the day 5.09.2006 from 08:00 to 12:30\n\nsee the picture here  to understand it:\n[url=http&#58;//img409&#46;imageshack&#46;us/my&#46;php?image=wbrowsese8&#46;jpg:1fx37lvh][img:1fx37lvh]http&#58;//img409&#46;imageshack&#46;us/img409/3360/wbrowsese8&#46;th&#46;jpg[/img:1fx37lvh][/url:1fx37lvh][/img]','',0,'GA==','1fx37lvh',1,0,'',49,0,0),(18361,4071,4,3,0,'82.255.244.194',1157487848,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1lmufz13]Richard,\n\nFixed. There is a new FWPPC build to download. \n\nWe appreciate your feedback, thanks[/quote:1lmufz13]\n\nAntonio   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nWorks OK this time\n\nThanks\n\nRichard','',0,'gA==','1lmufz13',1,0,'',3,0,0),(18362,2477,3,49,0,'62.13.172.78',1157489506,1,0,1,1,1,1,'','','Do you remeber for Dr_cam... ?\nI found the same ...source code free...\n\nRegards,','',0,'gA==','3r5d6qm8',1,0,'',49,0,0),(18363,4157,3,49,0,'62.13.172.78',1157489810,1,0,1,1,1,1,'','Timepicker','I have this lib but I cannot compile it because it make errors :\n\n\n[code:1mz11sih]\n\n&#91;1&#93;&#58;Bcc32&#46;Exe -M -c -O2  -tW -v- -X -D_HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -IC&#58;\\work\\FWH\\INCLUDE -Ic&#58;\\work\\BCC55\\Include;c&#58;\\work\\xHarbour\\Include  -nObj datepick&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\ndatepick&#46;c&#58;\nWarning W8070 datepick&#46;c 24&#58; Function should return a value in function HB_FUNC\nWarning W8057 datepick&#46;c 24&#58; Parameter \'SETDATEPICK\' is never used in function HB_FUNC\nError E2238 datepick&#46;c 29&#58; Multiple declaration for \'HB_FUNC\'\nError E2344 datepick&#46;c 9&#58; Earlier declaration of \'HB_FUNC\'\nWarning W8070 datepick&#46;c 37&#58; Function should return a value in function HB_FUNC\nWarning W8057 datepick&#46;c 37&#58; Parameter \'GETDATEPICK\' is never used in function HB_FUNC\n*** 2 errors in Compile ***\n[/code:1mz11sih]\n\n\nCan YOu help me ,pls','',0,'AIA=','1mz11sih',1,0,'',49,0,0),(18364,4158,7,778,0,'200.101.77.123',1157491194,1,0,1,1,1,0,'','Battery Life retorna sempre 39','Olá a Todos\n\nEste é o código que peguei aqui no forum,\nao compilar da este erro:\n warning C4700: local variable \'status\' used without having been initialized\npara as duas linhas onde o \"SYSTEM_POWER_STATUS_EX status;\" está declarado,\ne retorna na \"status.BackupBatteryLifePercent\" sempre 39, seja no emulador como no pocket, um IPAQ 1930.\nAlguma idéia ?\n\nSaludos\n\nMauro\n\n[code:2hcyi6qj]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC &#40;BATTERYLIFE&#41; \n&#123; \n   BOOL iRet; \n   SYSTEM_POWER_STATUS_EX status; \n   iRet =  &#40;&amp;status, TRUE&#41;; \n\n   hb_retnl &#40;&#40;INT&#41; status&#46;BatteryLifePercent&#41;; \n&#125; \nHB_FUNC &#40;BATTERYINFO&#41; \n&#123; \n   BOOL iRet; \n   SYSTEM_POWER_STATUS_EX status; \n   iRet =  &#40;&amp;status, TRUE&#41;; \n\n   hb_reta &#40;9&#41;; \n   hb_stornl &#40;&#40;INT&#41; status&#46;ACLineStatus, -1, 1&#41;; \n   hb_stornl &#40;&#40;INT&#41; status&#46;BatteryFlag, -1, 2&#41;; \n   hb_stornl &#40;&#40;INT&#41; status&#46;BatteryLifePercent, -1, 3&#41;; \n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BatteryLifeTime, -1, 4&#41;; \n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BatteryFullLifeTime, -1, 5&#41;; \n   hb_stornl &#40;&#40;INT&#41; status&#46;BackupBatteryFlag, -1, 6&#41;; \n   hb_stornl &#40;&#40;INT&#41; status&#46;BackupBatteryLifePercent, -1, 7&#41;; \n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BackupBatteryLifeTime, -1, 8&#41;; \n   hb_stornl &#40;&#40;ULONG&#41; status&#46;BackupBatteryFullLifeTime, -1, 9&#41;; \n&#125; \n\n#pragma ENDDUMP\n\n[/code:2hcyi6qj]','',0,'AIA=','2hcyi6qj',1,0,'',778,0,0),(18365,4157,3,2,0,'87.218.146.236',1157491234,1,0,1,1,1,1,'','','Silvio,\n\nis it standard FWH source\\winapi\\datepick.c ? \n\nIf not, please provide its source code (use <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w -->).','',0,'AIA=','1ark7ijl',1,0,'',2,0,0),(18366,4158,7,2,0,'87.218.146.236',1157491573,1,0,1,1,1,1,'','','Mauro,\n\nChange this line:\n\n   iRet = GetSystemPowerStatusE x( &amp;status, TRUE );\n\n\"Ex\" together','',0,'AIA=','37p9vxfb',1,0,'',2,0,0),(18367,4124,3,303,0,'72.199.41.171',1157491871,1,0,1,1,1,0,'','','Reinaldo,\n\nI see your point. I have not come across a situation where they were only entering numbers.\n\nJames','',0,'AIA=','1gvsxge6',1,0,'',303,0,0),(18368,4159,2,786,0,'84.123.49.11',1157494582,1,0,1,1,1,0,'','Controlar el Volumen de sonido con Auxsetvol() y AuxGetVol()','Sigo utilizando: Fw24+Clipper53+Blinker5.0.\n \nEstoy desarrollando un gestor multimedia y tengo el siguiente problema que ya estoy 2 dias con el. Funciona todo correctamente, Videos, MP3, Imagenes, Etc, EXCEPTO las funciones del control del sonido AuxSetVol() y AuxGetVol(), no logro poder que funcione para poder aumentar y disminuir el sonido.\n \n¿ Funcionan correctamente? ¿ en el caso que no funcionen, alguien podria crear un ejecutable con un fichero INI con harbour para poder controlar el sonido aunque sea desde otro programa ? ( el INI seria solo para que almacene el sonido actual, aumentar y disminuir el sonido en funcion de los paramentros que yo grabe en ese ini ).\n \nMuchas gracias anticipadamente.','',0,'AIA=','nvzfud3e',1,0,'',786,0,0),(18369,4135,6,618,0,'217.216.149.11',1157500378,1,0,1,1,1,1,'','Más detalles','Me odrias dar más detalles de con cuales palabras clave buscar ?','',0,'AIA=','ipr98ths',1,0,'',618,0,0),(18370,4157,3,49,0,'62.13.172.78',1157502109,1,0,1,1,1,1,'','','CAN YOU DOWNLOAD IT FROM  JSCO WEBSITE :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/otros/sysdatetime.zip\">http://www.esm.com.mx/fivewin/otros/sysdatetime.zip</a><!-- m -->','',0,'AIA=','3aqssquj',1,0,'',49,0,0),(18371,4160,6,389,0,'201.96.127.83',1157502128,1,0,1,1,1,0,'','Es posible utilizar botones tipo toggle con fwh ?','Existe un boton o control que tenga la caracteristica para ser toggle.. necesito utilizar una serie de botones que queden \"sumidos\" al ser seleccionados..\nSaludos\nGABO','',0,'AIA=','15dfs18c',1,0,'',389,0,0),(18373,4146,3,171,0,'71.232.193.197',1157504075,1,0,1,1,1,0,'','','James and NK\n\nThanks for your help. \n\nNow I get the following alert dialog message:\n\nCan\'t contact LDAP directory server (81)\n\nNothing is working for me to send eMails <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> \n\nRegards\n\n\nGeorge','',0,'AIA=','3mqead3b',1,0,'',171,0,0),(18374,2477,3,15,0,'203.73.6.246',1157507943,1,0,1,1,1,0,'','','Hello Silvio,\n\nYes, I know it.\nBut Dr_WebCam be publish very long time ago.\nFirst Dr_WebCam, Second webcamcapture\n\nRegards,\n\nRichard','',0,'AIA=','39uqvquk',1,0,'',15,0,0),(18375,4146,3,303,0,'72.199.41.171',1157509818,1,0,1,1,1,0,'','','George,\n\nIf you use the FROM USER clause does the Outlook new message dialog come up? If not perhaps Outlook is not set as the default MAPI client.\n\nJames','',0,'AIA=','fqn5zm6l',1,0,'',303,0,0),(18376,4161,3,234,0,'75.34.217.174',1157515064,1,0,1,1,1,1,'','xbScript Project Posting','xbscript to read through a dbase III (DBFCDX) database file then scan various folders for documents (TIFF, PDF, JPEG, TXT, BMP ); document name will be determined based on one of two field names in the following format, &lt;key&gt;H.*, &lt;key&gt;M.*, &lt;key&gt;F.* or &lt;key&gt;I.* where &lt;key&gt; is one of two field values. Requirements: must run on IE; system must call printer one time, then print all documents at one time. Source must be provided upon completion of project.','',0,'AIA=','aboaixq4',1,0,'',234,0,0),(18377,4135,6,492,0,'201.154.126.49',1157518651,1,0,1,1,1,1,'','','Juanato\n\nLo que el Master FLORES quizo dar a entender, es que el webtilus es un ejemplo en vivo y directo de lo que estas solicitando.\n\nEl como hacerlo, esa ya es otra historia  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos','',0,'AIA=','32cy432x',1,0,'',492,0,0),(18378,4159,2,2,0,'87.218.146.57',1157529217,1,0,1,1,1,1,'','','Javier,\n\nSi buscas en fw\\samples\\mmedia\\*.prg por AuxSetVol encontrarás varios ejemplo de uso. Revísalos por si te sirven de ayuda.','',0,'AIA=','1cvmsgxs',1,0,'',2,0,0),(18379,4160,6,2,0,'87.218.146.57',1157529410,1,0,1,1,1,1,'','','Gabo,\n\nLa Clase TBtnBmp (button bitmap) de FWH permite mantener los botones pulsados. Puedes usar:\n\noBtnBmp:Toggle()\n\nó \n\noBtnBmp:GoDown() y oBtnBmp:GoUp()','',0,'AIA=','2utzsac0',1,0,'',2,0,0),(18380,4071,4,2,0,'87.218.146.57',1157529549,1,0,1,1,1,1,'','','good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','ylj19bw1',1,0,'',2,0,0),(18381,4157,3,2,0,'87.218.146.57',1157531123,1,0,1,1,1,1,'','','Silvio,\n\ndatepick.obj is included in FiveHC.lib.\n\nYou may download timepick.obj from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02f9da4e68/timepick.obj.html\">http://hyperupload.com/download/02f9da4 ... k.obj.html</a><!-- m -->','',0,'AIA=','1egnd7kp',1,0,'',2,0,0),(18382,1114,4,2,0,'87.218.146.57',1157531292,1,0,1,1,1,1,'','','Maurizio,\n\nWe have never tried it ourselves. You may need to do dome tests.','',0,'AIA=','eud9g88f',1,0,'',2,0,0),(18383,4162,7,720,0,'80.36.244.134',1157533316,1,0,1,1,1,0,'','enabled para los btnbmp...','Hola a todos...\n\nQuería saber como poder deshabilitar un boton... El boton lo tengo declarado como \n\n@ 0, 32 BTNBMP oBtn2 NAME \"anterior\" SIZE 32, 32 of odlg action retrocede_articulos(odlg, oGetCod, oGetNom, oGetCant, oGetPrecio,oBtn2)\n\npero a la hora de hacerlo me da error\n\noBtn2:enabled()\n\nEsto es correcto??\n\nSaludos.\n\nElías Torres.','',0,'AIA=','e3wswfl8',1,0,'',720,0,0),(18384,4162,7,2,0,'87.218.146.87',1157535792,1,0,1,1,1,1,'','','Elías,\n\noBtn:Disable()\ny\noBtn:Enable()','',0,'AIA=','rqcndgxi',1,0,'',2,0,0),(18385,2477,3,49,0,'213.82.134.66',1157536017,1,0,1,1,1,1,'','','this is not correct...\nI want make another sample....\nOn 1991 a  Italian society ( T.C.S.) made a Calendar Class....and the society saled this lib to all world fwuser ( with source)\nThen the author , on 1992, saw there is another  calendar class ( Dr_class)\nThen the author of T.C.S.  modified his class but not release none version to all... perhaps you have pubblish Dr_cal very long time ago. or perhaps the author of Tcs was wrong...\nThis for many other classes...\nMany persons are usual to modify the copyright of other authors infact I saw my class Tplan ( Tgant32) used from a one  person : This person said to me that I could not use my class because same he had recorded on Italian registry an application that used the class.\nI made anothers class but never  I released a version ....','',0,'AIA=','27blihzx',1,0,'',49,0,0),(18386,4162,7,720,0,'80.36.244.134',1157536970,1,0,1,1,1,0,'','','Gracias Antonio, estaba poniendo una d al final de enable..... fuerte despiste!,jeje\n\n\nSaludos, Elías Torres.','',0,'AIA=','32qszauo',1,0,'',720,0,0),(18387,2477,3,486,0,'200.184.85.3',1157539465,1,0,1,1,1,0,'','','Taiwan,  \n  \nHe makes a smaller value of the class for the users Fivewin, I offered to my customers the value that passed me and none had interest, I am using a program that no and integrated into the Fivewin and I am not liking.\n\nClemerson','',0,'AIA=','3v7tfbzb',1,0,'',486,0,0),(18388,2477,3,49,0,'62.13.172.78',1157541563,1,0,1,1,1,1,'','','&gt;First Dr_WebCam, Second webcamcapture \n But the sample make the same things....setup camera,effect... perhaps there is a same codes ?\n\nW OPEN SOURCE','',0,'AIA=','3y8g36cz',1,0,'',49,0,0),(18389,4157,3,49,0,'62.13.172.78',1157541639,1,0,1,1,1,1,'','','Thanks but i prefer to have source code because I must compiled alla with Xmate....','',0,'AIA=','p439fhk5',1,0,'',49,0,0),(18390,4163,3,49,0,'62.13.172.78',1157541875,1,0,1,1,1,1,'','sample with METER','it is possible with click mouse move a meter ( up and down) ?\nI want with a combobox select an meter to select a percentual value ....\n\nsample : I want select an hour  as this picture ( on delphi there is a class made it)\n\n[url=http&#58;//img167&#46;imageshack&#46;us/my&#46;php?image=timeclickvs4&#46;png:ukx1j9j1][img:ukx1j9j1]http&#58;//img167&#46;imageshack&#46;us/img167/4804/timeclickvs4&#46;th&#46;png[/img:ukx1j9j1][/url:ukx1j9j1]','',0,'GA==','ukx1j9j1',1,0,'',49,0,0),(18391,3859,19,2,0,'87.218.146.68',1157544275,1,0,1,1,1,1,'','','They are already available to download','',0,'GA==','2xc8q76t',1,0,'',2,0,0),(18392,4157,3,2,0,'87.218.146.68',1157544407,1,0,1,1,1,1,'','','Silvio,\n\nYou already have its source code. \n\nYou have to use fwh\\tools\\clp2harb.exe to make it Harbour/xHarbour compatible.','',0,'GA==','2yqjp4u6',1,0,'',2,0,0),(18393,4164,7,490,0,'80.24.224.89',1157548449,1,0,1,1,1,0,'','Problema grave de velocidad','Hola,\n\nEstoy teniendo unos problemas de lentitud de la aplicación conforme se usa en el tiempo, pero más bien parece que la pocket en sí se cada vez va más lenta, hasta que se cuelga en cualquier proceso de la aplicación fwppc y hay que resetearla.\n\nInvestigando, para descartar cosas que pudieran ser, me gustaría usar sólo las librerias necesarias para compilar. Pero veo demasiadas, Antonio estas son las que uso, dime cuales no me sirven para nada por favor.\n\ncoredll.lib\ncorelibc.lib\naygshell.lib\nceshell.lib\nws2.lib\nmfcc400.lib   ??\nole32.lib       ??\ncommctrl.lib\nwininet.lib\n\n\nAparte de las normales de Harbour.\n\nUn Saludo,\nJoaquín','',0,'GA==','2wziou0j',1,0,'',490,0,0),(18394,4095,6,228,0,'201.245.222.85',1157552251,1,0,1,1,1,1,'','Perdon...','Perdon por entrometerme en la conversación... Pero como buen curioso vi el video que envio jlcapel, y me di cuenta que en la parte izquierda de la aplicacion tiene un control tipo outlook, la pregunta es ¿como se hace para que este control tome la apariencia xp que tiene ese?, ó ¿Es otra clase diferente?.','',0,'GA==','2bzffsuk',1,0,'',228,0,0),(18395,4165,6,694,0,'200.181.206.132',1157553570,1,0,1,1,1,1,'','Antonio - Por Favor, TWORDHB?','Antonio, por favor...\nEu utilizo FW25H + XHARBOUR 99.50\n\nVou ter algum problema em utilizar a TWORDHB? \n\nPois está me dando o seguinte erro:\n\nApplication\n===========\n   Path and name: C:\\XCARCERE\\INQ\\INQUERITO.EXE (32 bits)\n   Size: 2,315,264 bytes\n   Time from start: 0 hours 1 mins 30 secs \n   Error occurred at: 06/09/2006, 11:37:44\n   Error description: Error Word.Application/1829  Unknown error: VISIBLE\n   Args:\n\nStack Calls\n===========\n   Called from TOLEAUTO:VISIBLE(0)\n   Called from (b)TWORD(139)\n   Called from TWORD:ISVISIBLE(0)\n   Called from CONTRATOWORD(28)\n   Called from PORDEUS(18)\n   Called from (b)PREPARAMENU(420)\n   Called from TMENU:COMMAND(407)\n   Called from TWINDOW:COMMAND(929)\n   Called from TMDIFRAME:COMMAND(219)\n   Called from TMDIFRAME:HANDLEEVENT(0)\n   Called from _FWH(3105)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(878)\n   Called from MAIN(240)\n\n***********************\nMeu prg:\n***********************\n\n#INCLUDE \"fivewin.ch\"\n\n//Gerar um array com nome do \"campo\" que estará entre [] a ser substituído no word\n// e o conteúdo do arquivo de dados\n\nfunction porDEUS()\nLOCAL A1,A2,A3\n\nA1:=\"Ubiratan José dos Santos\"\nA2:=\"Lídia Aoki dos Santos\"\nA3:=\"Herculano Augusto de Abreu\"\naCampos:={}  \n\n\naadd( aCampos, { \'NOME1\',A1 } )\naadd( aCampos, { \'NOME2\',A2 } )\naadd( aCampos, { \'NOME3\',A3 } )\nContratoWord( aCampos )\nRETURN(.T.)\n\nfunction ContratoWord( aCampos )\n\nlocal x, oWord, cModelo:=curdrive()+\':\\xcarcere\\inq\\teste.doc\'    //importante colocar a letra do drive senão dá erro\n\n\nMSGINFO(CMODELO)\noWord := TWord():New()                 // inicia o objeto OLE Word\nif oWord:IsVisible()\n  oWord:Hide()\nendif\noWord:OpenDoc( cModelo )               // abre o documento modelo\nfor x=1 to len( aCampos )\n    oWord:Replace( \'[\'+aCampos[x,1]+\']\' , aCampos[x,2] )\nnext\n\n//oWord:preview()                        // visualiza o documento no preview \n//oWord:Visualizar()                     // visualiza o documento \noWord:PrintDoc(.t.)                      // imprime o documento sem apresentar na tela\noWord:end()\n\nreturn nil\n\n\n\n********************\nAntonio, por favor meu Mestre, estou precisando muito disso!\n\nFIQUE COM DEUS, E QUE ELE ABENÇOE VOCÊ E SUA FAMILIA\n\nAOKISANTOS','',0,'','29t6yoku',1,0,'',694,0,0),(18396,4166,3,455,0,'195.97.105.161',1157554403,1,0,1,1,1,0,'','Extended Combobox','Hi all,\nHas anyone some luck creating a combobox like this one...\n\n<!-- w --><a class=\"postlink\" href=\"http://www.codeproject.com/useritems/exListBox.asp\">www.codeproject.com/useritems/exListBox.asp</a><!-- w -->\n\nKind Regards\nEvans','',0,'','3v45brqv',1,0,'',455,0,0),(18397,4158,7,778,0,'200.152.43.193',1157555433,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2h2seblk]Mauro,\n\nChange this line:\n\n   iRet = GetSystemPowerStatusE x( &amp;status, TRUE );\n\n\"Ex\" together[/quote:2h2seblk]\n\nAntonio,\nfuncionou muito bem\nObrigado,\nSaludos\n\nMauro','',0,'gA==','2h2seblk',1,0,'',778,0,0),(18398,1114,4,213,0,'24.175.56.72',1157555486,1,0,1,1,1,0,'','','Maurizio,\n\nWould you mind sharing your solution?  Also, is there anyway to print the signature (or bmp)?\n\nThanks,\nRandal Ferguson','',0,'gA==','2rzliehc',1,0,'',213,0,0),(18399,4167,7,720,0,'80.36.244.134',1157556771,1,0,1,1,1,0,'','Carpetas con pestaña laterales....','Hola a todos...\n\nHe visto el ejemplo del testfold y me he preguntado si se podría hacer igual pero con las pestañas de las carpetas en vez de arriba, en un lado, por ejemplo a la derecha (como una agenda....)\n\nUn saludo y gracias...\n\nElías Torres.','',0,'gA==','2ws2378h',1,0,'',720,0,0),(18400,4135,6,138,0,'201.128.111.188',1157558048,1,0,1,1,1,1,'','','Efectivamente, el WebTilus, y otras paginas web estan hechas con xHarbour, FWH y ficheros DBFs. que se alimentan de los datos que tu envias por un formulario web, mira estas otras paginas:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/usrs.htm\">www.google.d2g.com/usrs.htm</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/sicarta/\">www.google.d2g.com/sicarta/</a><!-- w --> \n(usuario: MATRIXX, password: XXCORE, una vez en el segundo formulario selecciona del combo CMI y poner en la linea FROM: las letras LAX)\n\nSi quieres mas informacion puede hablar con nuestro contacto en España, Niko del Pozo (<!-- e --><a href=\"mailto:nico@geroa-informatica.com\">nico@geroa-informatica.com</a><!-- e -->) el te puede dar mas detalles de como hacer lo que buscas.','',0,'gA==','244ig35z',1,0,'',138,0,0),(18401,4146,3,171,0,'71.232.193.197',1157558343,1,0,1,1,1,0,'','','James,\n\nThe OUTLOOK dialog came up OK with attachment included. But I receive the message\n\n Can\'t contact LDAP directory server (81);\n\nPressing the SEND button do nothing, but the email is in outlook INBOX folder. I have to go to OUTLOOK and do the send/receive menu option in order to send the email. I would like that after press SEND button, from outlook dialog, the email gone inmediately.\n\n\nRegards\n\n\nGeorge','',0,'gA==','1z6kffb9',1,0,'',171,0,0),(18402,4168,2,542,0,'88.7.13.113',1157559892,1,0,1,1,1,0,'','Como puedo saber si tengo un campo en una base de datos.','Hola amigos:\n\nTengo un problema ya que tengo un programa que tengo hace tiempo y o usan varias personas y estoy actualizando una de las opciones. Mi problema es el siguiente como puedo saber si una base de datos ya creada tiene un campo determinado por ejemplo en la base de CLIENTES el campo APELLIDOS y si no existe poder crearlo.\n\nUn saludo\n\nCarlos','',0,'gA==','240d7sww',1,0,'',542,0,0),(18403,4169,4,47,0,'203.144.143.3',1157559948,1,0,1,1,1,0,'','FWPPC Sockcli cannot link to FW Sockserv','Dear Antonio,\n\nI test FW Sockserv and FW Sockcli, it works ok.\n\nI try to link between FWPPC Sockcli to FW Sockserv, it doesn\'t show anything and another three button is still disable.  I don\'t know why.\n\nBest regards,\nDutch','',0,'gA==','5marhq7p',1,0,'',47,0,0),(18404,1114,4,89,0,'213.21.136.60',1157560387,1,0,1,1,1,0,'','','Sure when I have finish it , \n\nAntonio,\n\nis it  possble  to have ::bMMoved in the DIALOG TO \n\nRegards  Maurizio','',0,'gA==','1f5ljx7o',1,0,'',89,0,0),(18405,4168,2,248,0,'212.145.179.68',1157565167,1,0,1,1,1,0,'','','Con afields() obtienes los campos del fichero:\n\nLOCAL aNombresCampo, aTipos, aAnchuras, aDecimales\n        USE Ventas NEW\n         //\n        aNombresCampo := Ventas-&gt;(ARRAY(FCOUNT()))\n        aTipos := Ventas-&gt;(ARRAY(FCOUNT()))\n        aAnchuras := Ventas-&gt;(ARRAY(FCOUNT()))\n        aDecimales := Ventas-&gt;(ARRAY(FCOUNT()))\n        //\n        Ventas-&gt;(AFIELDS(aNombresCampo, aTipos, ;\n                  aAnchuras, aDecimales))\nDespues buscas si existe el campo en la tabla.\n\nDespues con CREATE puedes crear el fichero o copiarlo , ya depende como lo prepares.','',0,'gA==','tawpleld',1,0,'',248,0,0),(18406,4138,6,180,0,'83.40.41.92',1157565933,1,0,1,1,1,0,'','','Bueno, después de pelear un par de dias he conseguido, ¡¡¡¡ por fín !!!! mi primer ejecutable, y aunque aún me queda que depurar algún código, los resultados hasta ahora pueden calificarse de satisfactorios.\nMi mayor problema, de momento, es el fichero RC de recursos. Siguiendo las indicaciones de Antonio comenté varias porciones del fichero RC y conseguí enlazarlo sin errores. Ahora el problema es que me faltan quince o veinte bitmap que están entre las lineas comentadas. ¿ Como los meto nuevamente en el fichero sin que se produzcan los errores?\n\nOtro problema que he encontrado es con TFOLDER. Resulta que cambio TFOLDER del fichero RC por SysTabControl32 y va perfecto en varios controles menos en dos que al cambiarlos y enlazar vuelve a dar el error conocido de [color=red:20ae9yje]Fatal: Access violation.  Link terminated.[/color:20ae9yje]\nLos vuelvo a poner como FOLDER y todo perfecto.\n¿Porqué ocurre esto? He editado el fichero RC con varios procesadores de texto por si este fuera el problema pero persiste .\n\nUn saludo,\nManuel Aranda','',0,'Ag==','20ae9yje',1,0,'',180,0,0),(18407,4169,4,2,0,'87.218.146.68',1157566092,1,0,1,1,1,1,'','','Dutch,\n\nIt used to work fine, but now, we can just connect -it takes some time- but no data is sent. We are going to review it.\n[url=http&#58;//imageshack&#46;us:1hlmk7pu][img:1hlmk7pu]http&#58;//img336&#46;imageshack&#46;us/img336/8020/socketsbr8&#46;jpg[/img:1hlmk7pu][/url:1hlmk7pu]','',0,'GA==','1hlmk7pu',1,0,'',2,0,0),(18408,4166,3,2,0,'87.218.146.68',1157566423,1,0,1,1,1,1,'','','Evans,\n\nPlease review samples\\ownerdra.prg','',0,'GA==','1g7rhx7d',1,0,'',2,0,0),(18409,4159,2,786,0,'84.123.49.11',1157568527,1,0,1,1,1,0,'','Control de sonido:','Antonio:\n\nAntes de mandar el mensaje ya busque y comprobe todos los ejemplos y documentacion respectos a temas multimedia. Los ejemplos de \\MMEDIA funciona todo excepto el control de volumen.\n\nLo unico que si no comente es que corro el programa en XP.','',0,'GA==','91i6evvl',1,0,'',786,0,0),(18410,4170,6,286,0,'200.90.115.154',1157568931,1,0,1,1,1,1,'','Campos en TDatabase','Saludos amigos\n\nEn TDatabase es posible leer campos de esta manera\n[code:h0j4o8ag]use cDbf\ndatabase oDbf\nMsginfo&#40; oDbf&#58;Campox &#41;[/code:h0j4o8ag]\nhe revisado la clase pero no identifico la manera en como se crea este metodo. Podrian darme una mano con esto?\n\nGracias anticipadas\n\nWilliams Pacheco','',0,'AIA=','h0j4o8ag',1,0,'',286,0,0),(18411,4166,3,455,0,'195.97.105.161',1157569185,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:q4ocoj24]Evans,\n\nPlease review samples\\ownerdra.prg[/quote:q4ocoj24]\nThanks Antonio,\n\nI looked at the sample and experimented a little further.\nWorks fine butm cannot make it display in two-three lines the texts.\n\nI\'ll use it.\nTanks again.\n\nGracias/Saludos\nEvans','',0,'gA==','q4ocoj24',1,0,'',455,0,0),(18412,4159,2,2,0,'87.218.146.68',1157569309,1,0,1,1,1,1,'','','Javier,\n\nCon que parámetros estás llamando a AuxSetVol() ?','',0,'gA==','1swtl6ov',1,0,'',2,0,0),(18413,4164,7,2,0,'87.218.146.68',1157569841,1,0,1,1,1,1,'','','Joaquín,\n\nLas librerías no tienen por qué ser un problema. Puedes ir quitando una a una y verás las que te pide FWPPC.\n\nPudiera tratarse de un problema de recursos. En caso de que estés usando bitmaps, brushes, fonts, etc. te has asegurado de destruirlos correctamente ?','',0,'gA==','3gj1s7bx',1,0,'',2,0,0),(18414,4171,3,486,0,'200.184.85.3',1157569982,1,0,1,1,1,0,'','encrypt DBF using ADS Local','does he have as encrypt DBF using ADS Local for any user to access without the system to be?\n\nClemerson','',0,'gA==','hgmoshlk',1,0,'',486,0,0),(18415,4146,3,303,0,'72.199.41.171',1157570199,1,0,1,1,1,0,'','','George,\n\n&gt;The OUTLOOK dialog came up OK with attachment included. But I receive the message \n\n&gt;Can\'t contact LDAP directory server (81); \n\nOK, a Google search shows that the above message has nothing to do with Fivewin, but is an Outlook bug that can be fixed. See here:\n\n\"Can\'t Contact LDAP Directory server (81)\" error message when you write an e-mail message in Outlook 2002\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/323612/\">http://support.microsoft.com/kb/323612/</a><!-- m -->\n\n&gt;Pressing the SEND button do nothing, but the email is in outlook INBOX folder.\n\nI presume you meant the OUTBOX not the INBOX. \n\n&gt;I have to go to OUTLOOK and do the send/receive menu option in order to send the email. I would like that after press SEND button, from outlook dialog, the email gone inmediately.\n\nThis could be one of two things. Either Outlook is not configured to send all emails immediately, or the email is not being sent because the address is not being resolved per the bug causing the error message. Once you fix the Outlook bug, then maybe this will be solved too.\n\nIf you have another computer around you might try tesing the Fivewin MAPI email code on it too.\n\nJames','',0,'gA==','1i3veofs',1,0,'',303,0,0),(18416,4167,7,2,0,'87.218.146.68',1157570638,1,0,1,1,1,1,'','','Elías,\n\nPosiblemente se pueda hacer, pero de momento no está implementado.','',0,'gA==','12oro5tj',1,0,'',2,0,0),(18417,4170,6,2,0,'87.218.146.68',1157570791,1,0,1,1,1,1,'','','Williams,\n\nSe utiliza la técnica del error handler:\n\nERROR HANDLER OnError( uParam1 )\n\nAl intentar acceder al nombre del campo se genera un error, ya que no existe esa DATA, y el sistema de gestión de errores del motor de clases de Harbour lo reconduce al método OnError(), desde allí se accede al campo que se esté usando.\n\nRevisa el código del método OnError().','',0,'gA==','1kav80vy',1,0,'',2,0,0),(18418,4157,3,49,0,'82.91.97.218',1157571857,1,0,1,1,1,1,'','','Thanks Antonio,\nbut I Just try with it\nFgondi send me anothers files but also he had had problem to compile it for xharbour\nI can load into hyperload this new files to see if U try to compile it .\nFgondi use date e time into harbour with success.','',0,'gA==','2kco5oeu',1,0,'',49,0,0),(18419,4138,6,2,0,'87.218.146.68',1157572277,1,0,1,1,1,1,'','','Manuel,\n\n&gt;\nAhora el problema es que me faltan quince o veinte bitmap que están entre las lineas comentadas. ¿ Como los meto nuevamente en el fichero sin que se produzcan los errores? \n&gt;\n\nLos ficheros bitmaps los mantienes como ficheros externos ó están \"incrustados\" en el RC ? Mantenlos como ficheros externos. Usa:\n\nNombre BITMAP \"fichero.bmp\"','',0,'gA==','3q8q2n4e',1,0,'',2,0,0),(18420,4138,6,2,0,'87.218.146.68',1157572395,1,0,1,1,1,1,'','','Manuel,\n\n&gt;\nResulta que cambio TFOLDER del fichero RC por SysTabControl32 y va perfecto en varios controles menos en dos que al cambiarlos y enlazar vuelve a dar el error conocido de Fatal: Access violation. Link terminated.\n&gt;\n\nPrueba a cambiar esos diálogos de posición dentro del fichero RC. \n\nDa la impresión de que es un bug aleatorio del compilador de recursos de Borland.','',0,'gA==','2des5t0k',1,0,'',2,0,0),(18421,4095,6,123,0,'83.40.103.35',1157572431,1,0,1,1,1,0,'','','Leandro,\n\nEs la vTaskBar de Paco García, de canalfive.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','8tswqyaq',1,0,'',123,0,0),(18422,4075,6,207,0,'148.233.32.162',1157575556,1,0,1,1,1,0,'','','tengo un detalle con el  TSBrowse, en algunas ocaciones en la clausula EDITABLE actualizo una columna, me acepta lo valores, actualiza, calcula otra columna (de resultado) , peeeroooo..... me muestra \"0\" en la columna del browse, debo salir del dialogo y entrar de nuevo y alli estan los datos que introduje, ¿raro no?... porque solo hace en ciertas ocaciones, no he encontrado porque.\n\nBueno aprovecho para preguntar , que tengo que hacer si me cambio al browse de hernan?','',0,'gA==','12kiob1q',1,0,'',207,0,0),(18423,4172,3,217,0,'200.159.120.34',1157576367,1,0,1,1,1,0,'','OLE / ActiveX and Word.Application (disable Save command)','Hi!\n\nHow can I do with ActiveX / OLE to disable Save, Save As and Print options in \"Word.Applications\"?\nI must open a .doc and the user can only read. He can\'t save changes or print...\n\nWhere I can search for complete list of methods and datas?\n\nRegards!\nMaurilio','',0,'gA==','1pga5bcf',1,0,'',217,0,0),(18424,4138,6,180,0,'83.40.41.92',1157576603,1,0,1,1,1,0,'','','Gracias Antonio. Voy avanzando.\nRespecto a TFOLDER puede ser que sea lo que comentas, pues ya he podido arreglarlo. Aparentemente una tontería pues en los controles TFOLDER con problemas se me ocurrió escribir SYSTABSCONTROL32 con mayúscula y se arregló  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nEn cuanto a usar los bitmap desde fichero no me convence mucho pero si no hay otra solución lo dejaré así. He podido generar una DLL de 32 bit y voy a ver si desde Pelles C (aún no he probado si esto puede hacerse) voy a intentar añadir los bitmap que faltan.\n\nUn saludo, \nManuel Aranda','',0,'gA==','3eem4gh8',1,0,'',180,0,0),(18425,4172,3,6,0,'82.61.157.147',1157576898,1,0,1,1,1,1,'','Re: OLE / ActiveX and Word.Application (disable Save command','Search your hard disk for VBAWRD*.CHM or similar.\n\nEMG','',0,'gA==','22dm8k4x',1,0,'',6,0,0),(18426,4173,6,278,0,'200.72.147.101',1157579030,1,0,1,1,1,1,'','Problemita en el Pellec C - Como hacerlo ?','Hola Foro:\n\nEstoy usando en el Pellec C como editor de recursos. \n\nEl unico problema grave que tengo es que no se como ordenar los controles que tengo en un dialogo , de tal forma que al presionar TAB, se vayan pasando desde el primero al ultimo, en forma ordenada.\n\nCon el workshop, les daba un numero de orden ( con SET ORDER ) y listo, pero aca no se como ?? \n\nAlguien me puede orientar porfi !!!\nGracias,\nJuan','',0,'gA==','2vb3sodi',1,0,'',278,0,0),(18427,4164,7,490,0,'81.44.200.243',1157580087,1,0,1,1,1,0,'','','Antonio,\n\nEstoy casi seguro de que no tiene que ver con que no libere recursos como bitmaps, font, etc.\n\nUso el api de winninet y ocurre sólo con Windows CE no con mobile.\n\n¿Tengo alguna forma de comprobar si estoy perdiendo, recursos ? ¿se verá en la memoria libre? ¿Como le podría poner una traza?\n\nEs un problema de los desconcertantes y que además no sabes por donde buscar. La aplicación después del día completo de trabajo, ni da GPF´s ni salta ningún error, nada.\n\nOtra cosa es que abro todas las DBF´s al iniciar y las cierro al terminar, aunque en estas maquinitas, la gente suele dejar el programa días y días abierto. ¿Podría ser problema con el rdd de HB ? Uso cdx´s\n\n\nUn Saludo y gracias,\nJoaquín','',0,'gA==','303xk80y',1,0,'',490,0,0),(18428,4169,4,490,0,'81.44.200.243',1157580562,1,0,1,1,1,0,'','','Antonio,\n\nIn Windows CE, Pocket hang with only  TSockets()New(....)\n\n\n\nRegards,\nJoaquín','',0,'gA==','iu1boitv',1,0,'',490,0,0),(18429,4160,6,389,0,'201.96.142.175',1157580679,1,0,1,1,1,0,'','','[quote=&quot;oskar&quot;:vewoptaq]Gabo:\n\nDate una vuelta por mi sitio [url:vewoptaq]http&#58;//oskar&#46;sytes&#46;net[/url:vewoptaq], la clase TOBar soporta ese tipo de botones\n\n[url:vewoptaq]http&#58;//oskar&#46;sytes&#46;net/modules&#46;php?name=News&amp;file=article&amp;sid=20&amp;mode=&amp;order=0&amp;thold=0[/url:vewoptaq]\n\nsalu2[/quote:vewoptaq]\n\nEstos botones solo funcionan con ToBar o pueden funcionar solos...\nsaludos','',0,'kA==','vewoptaq',1,0,'',389,0,0),(18431,4146,3,171,0,'71.232.193.197',1157584368,1,0,1,1,1,0,'','','James,\n\n\"Can\'t Contact LDAP Directory server (81)\" error message when you write an e-mail message in Outlook 2002 \n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/323612/\">http://support.microsoft.com/kb/323612/</a><!-- m --> \n\nThis problem is resolved. Thank you.\n\n&gt;I presume you meant the OUTBOX not the INBOX. \n You are right is OUTBOX \n\n\n&gt;I have to go to OUTLOOK and do the send/receive menu option in order &gt;to send the email. I would like that after press SEND button, from &gt;outlook dialog, the email gone inmediately.\n\nNothing is sent until I enter to Outlook. I  tried  everything I believe but does not work\n\nRegards\n\n\nGeorge','',0,'kA==','3pkg5brh',1,0,'',171,0,0),(18432,4171,3,138,0,'201.128.111.188',1157584728,1,0,1,1,1,1,'','','Postea el mensaje en portugues, es totalmente intenedible','',0,'kA==','2zusl4ov',1,0,'',138,0,0),(18433,4146,3,303,0,'72.199.41.171',1157585138,1,0,1,1,1,0,'','','George,\n\n&gt;I have to go to OUTLOOK and do the send/receive menu option in order &gt;to send the email. I would like that after press SEND button, from &gt;outlook dialog, the email gone inmediately. \n\n&gt;Nothing is sent until I enter to Outlook. I tried everything I believe but does not work.\n\nOK, but is Oulook configured to send emails immediately? I don\'t have a copy of Oulook on this PC, but with Outlook Express go to Tools, Options, select the Send tab and check \"Send messages immediately.\" If that is not checked then you have to manually select the Send button as you are having to do.\n\nJames','',0,'kA==','t9qrsgp4',1,0,'',303,0,0),(18434,4164,7,2,0,'87.218.146.68',1157585510,1,0,1,1,1,1,'','','Joaquín,\n\nUsas alguna caja de diálogo en tu aplicación ? \n\nLa llamada al recolector de basuras de Harbour la hacemos al salir de una caja de diálogo. Una aplicación que no usase diálogos, no estaría llamando nunca al recolector de basuras.\n\nEn ese caso habría que hacer una llamada a hb_gcAll() de vez en cuando.','',0,'kA==','28al57vz',1,0,'',2,0,0),(18435,4138,6,2,0,'87.218.146.68',1157585769,1,0,1,1,1,1,'','','Manuel,\n\n&gt; En cuanto a usar los bitmap desde fichero no me convence mucho\n\nLos ficheros bitmaps no se van a usar desde ficheros. El compilador de recursos los incrustará en el fichero RES resultante.\n\nEl problema es que Borland permite incluir los bitmaps dentro de los ficheros RC directamente y eso a veces puede causarle un problema al compilarlos.','',0,'kA==','1gkz5xev',1,0,'',2,0,0),(18436,4164,7,490,0,'81.44.200.243',1157591478,1,0,1,1,1,0,'','','Antonio,\n\nUso una Windows principal, y todo lo demás son cajas de diálogos.\n\n\nUn Saludo y gracias,\nJoaquín','',0,'kA==','bcje5rsg',1,0,'',490,0,0),(18438,4169,4,47,0,'203.144.143.3',1157594561,1,0,1,1,1,0,'','Cannot connect on real PPC','Dear Antonio, \n\nI test with emulator and I\'ve got the same result, connected but cannot send anything. The result that I mention is on a real PPC. \n\nBest regards, \nDutch','',0,'kA==','16tqj5k4',1,0,'',47,0,0),(18439,4175,7,18,0,'200.67.153.171',1157595358,1,0,1,1,1,1,'','TOleAuto','Hola a todos.\n\nRecién me integro al desarrollo con FWPPC , revisando el código fuente , me da gusto ver que hay muchas clases soportadas para PPC.\n\nY he revisado los fuentes y no veo ninguna clase similar a TOleAuto, la intención es poder manejar Excel yWord Mobile desde la aplicación usando  FWPPC.','',0,'kA==','17bk52t4',1,0,'',18,0,0),(18440,2477,3,15,0,'203.73.66.201',1157595624,1,0,1,1,1,0,'','','Hello Silvio,\n\nI think not same source code, but it same as target.\nOpen source code idea from maker thinking.\n\nRegards,\n\nRichard','',0,'kA==','1b0r0aqc',1,0,'',15,0,0),(18441,4173,6,78,0,'190.40.249.49',1157595815,1,0,1,1,1,0,'','','Hola, \nA ver, cuando editas el dialogo, aparecen unos iconitos debajo del nombre del recurso,,, alli en el 4to iconito en su Tips  dice  \"Ordre Controls\",,  alli esta el punto\n\nSalu2\nWilli','',0,'kA==','3tmcea5u',1,0,'',78,0,0),(18442,4176,4,18,0,'200.67.153.171',1157602813,1,0,1,1,1,1,'','cGetFile()','Hi :\n\ncGetFile() funtion doesn\'t work.\n\nWhy ?\nAntonio some idea ?','',0,'kA==','1qxi35td',1,0,'',18,0,0),(18443,4177,7,18,0,'200.67.153.171',1157602890,1,0,1,1,1,1,'','cGetFile()','La función cGetFile() no funciona correctamente.\n\nAntonio, me puedes explicar porqué ?\n\nSaludos','',0,'kA==','155sgeun',1,0,'',18,0,0),(18444,4178,6,215,0,'189.136.237.27',1157602992,1,0,1,1,1,0,'','DBFs en internet con xbscript. Fácil de usar.','Hola gente, después de ver tanto cristiano dandose de topes con este tema. Les comento que he puesto mis dbfs para ser actualizadas y consultadas vía internet. Pues bien, como sabeis, existen varias formas de hacerlo pero sin saber nada, en un par de hora he puesto a funcionar un ejemplo.\n\nNecesidad: Necesito poner en algún servidor mis dbfs para que mis usuarios se conecten y agregen información. Se requiere poder consultar la información.\n\nSolución: xbscript + xharbour +  IIS. Cero pesetas y usando el código xbase que ya conoces.\n\nEl siguiente link muestra el ejemplo que tomé del foro de xharbour funcionando en mi pc.\n\n<!-- m --><a class=\"postlink\" href=\"http://sicredit.no-ip.info/\">http://sicredit.no-ip.info/</a><!-- m -->  Si no funciona el link es por que mi PC está fuera de linea. \n\n\n1 ) Descarga el xbscript desde <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/\">http://www.xharbour.com/</a><!-- m -->   , click en \"Products\", click en \"xbScript\".\nBusquen ésta descarga\n\nxbScript-DLL version 2.0 RC1.2 (Self installer setup) \n\nEjecuten el EXE que han bajado y por default la instalación se hace en\nC:\\xharbour.com\\xbscript\nEsa carpeta está xbscript.dll  misma que hay que registrarla asi\n\nREGSVR32 XBSCRIPT.DLL\n\nListo, ya tenemos operando el xbscript. Hasta aquí podrás ejecutar los samples que vienen en la instalación.\n\nAhora, para tener las DBFs en linea necesitamos un webserver.\nWindows XP profesional tiene el IIS solo que hay que instalarlo.\nDejarme ver los pasos y los pongo en el foro.\n\nDespués de esto ya puedemos comenzar a desarrollar a aplicación para consultar dbfs via internet.\n\nRegreso...','',0,'kA==','uw03a9sp',1,0,'',215,0,0),(18445,4179,6,215,0,'189.136.237.27',1157604482,1,0,1,1,1,0,'','DBFs en internet    parte 2','He aquí las instrucciones para instalar el webserver que vienen en el disco de instalación de windows xp profesional.\n\nPon tu disco de instalación de windows xp. \nEn las opciones que aparecen... click en \"Instalar componentes opcionales de windows\"\n\nEn la lista de componentes, selecciona \"Servicios de Internet Information Server (IIS)\"\n\nAseguare de que este marcada esa opción.\n\nClick en el botón Siguiente.\nComienza la instalación... cuando termina click en el botón Finalizar.\n\nEso es todo.\n\n¿Cómo sabemos que está funcionando?\nFácil\n\nAbre tu explorer y en Dirección escribe   <!-- m --><a class=\"postlink\" href=\"http://localhost\">http://localhost</a><!-- m -->\n\nDeberás ver la siguiente página <!-- m --><a class=\"postlink\" href=\"http://localhost/localstart.asp\">http://localhost/localstart.asp</a><!-- m -->\nEsa muesta la página de bienvenida del IIS 5.1\n\nLa instalación del IIS ha creado una carpeta\nC:\\inetpub\\wwwroot  aquí es donde se colocarán nuestras dbfs.\n\nPrueba a colocar cualquier página html con el nombre index.htm en la carpeta wwwroot\n\nConsulta otra vez <!-- m --><a class=\"postlink\" href=\"http://localhost\">http://localhost</a><!-- m --> o dale a refrescar la página.\n\nDeberás poder visualizar esa página.\n\nLo que sigue a continuación es un página de inicio para agregar información a una dbf.... es decir, através de un formulario que solicite el nombre, dirección, teléfono y qué se guarde en una dbf.\n\nRegreso...','',0,'kA==','zb832ssd',1,0,'',215,0,0),(18446,4169,4,89,0,'213.21.136.60',1157608640,1,0,1,1,1,0,'','','The problem is GETHOSTBYADDRESS\n\nif yoy insert manually your DNS  (Es :\"192.168.0.50\") and dont use GETHOSTBYADDRESS it works . \n\nLook at INET.C of xHarbour  .\n\nRegards Maurizio','',0,'kA==','1ok3k4o2',1,0,'',89,0,0),(18447,4170,6,89,0,'213.21.136.60',1157609055,1,0,1,1,1,0,'','','With xHarbour \n\nRegards Maurizio \n\n\n\n------------------------------------------------- \noDbf := NewScatter()\n\n\nFUNCtion  NewScatter()\n  Local  aVars := {=&gt;}\n  LOcal nField := FCount()\n  LOcal nX := 1\n  FOR nX  := 1 TO  nField\n   	aVars[FIELDNAME(nX)] := FieldGet(nX)\n  NEXT\n  RETU aVars\n \nFunction  Gather(aVars)\n  lOCAL Nx  := 1\n  AEval(aVars, {|x, i| FieldPut(i, aVars[i]) } )\nRETUrn TRUE','',0,'','hq1v7uay',1,0,'',89,0,0),(18448,4176,4,449,0,'212.64.224.244',1157612223,1,0,1,1,1,1,'','','Vikthor,\n\n.\\samples\\getfile.prg','',0,'','q53zb6pu',1,0,'',449,0,0),(18449,4169,4,2,0,'87.218.146.68',1157615467,1,0,1,1,1,1,'','','Maurizio,\n\nAre you able to successfully run samples\\sockcli.prg ?','',0,'','1vq8tea7',1,0,'',2,0,0),(18450,4177,7,2,0,'87.218.146.68',1157615585,1,0,1,1,1,1,'','','Vikthor,\n\nEs una limitación de Windows Mobile.\n\nFWPPC ofrece un reemplazo: samples\\getfile.prg','',0,'','3r6lbsvq',1,0,'',2,0,0),(18451,4136,3,308,0,'84.148.25.156',1157615641,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:l3kfu234]\n[url=http&#58;//img409&#46;imageshack&#46;us/my&#46;php?image=wbrowsese8&#46;jpg:l3kfu234][img:l3kfu234]http&#58;//img409&#46;imageshack&#46;us/img409/3360/wbrowsese8&#46;th&#46;jpg[/img:l3kfu234][/url:l3kfu234][/img][/quote:l3kfu234]\n\nDear Silvio,\n\nHow did you generate then the left tax strip?  is it possible in fivewin ?  \n\nBest regards, Norbert','',0,'mA==','l3kfu234',1,0,'',308,0,0),(18452,4164,7,2,0,'87.218.146.68',1157615696,1,0,1,1,1,1,'','','Joaquín,\n\nEntonces no es el recolector de basuras de Harbour.\n\nHas mirado la memoria libre del sistema en el Pocket PC, para ver si está disminuyendo ?','',0,'mA==','kx80dm1p',1,0,'',2,0,0),(18453,4180,2,542,0,'88.1.172.60',1157615731,1,0,1,1,1,0,'','Como puedo insertar un campo en una base ya creada','Hola amigos:\n\nTengo el siguiente problema: Tengo creada la base de empresas en mi programa y me faltan cuatro campos que necesito para una nuev opcion. Como puedo insertar nuevos campos en una base, ej.\n\nla estructura de mi base es:\n\n\"NOMBRE\",\"C\",\"30\",\"0\"\n\"DIRECCION\",\"C\",\"30\",\"0\"\n\"CP\",\"C\",\"5\",\"0\"\n\"POBLACION\",\"C\",\"30\",\"0\"\n\"PROVINCIA\",\"C\",\"30\",\"0\"\n\ny quiero insertar:\n\n\"TELEFONO\",\"C\";\"12\",\"0\"\n\"EMAIL\",\"C\",20\",\"0\"\n\"EJEX\",\"N\",\"8\",\"2\"\n\"EJEY\",\"N\",\"8\",\"2\"\n\nPor favor alguien puede ayudarme, gracias.\n\nCarlos','',0,'mA==','34rcy8rd',1,0,'',542,0,0),(18454,4168,2,542,0,'88.1.172.60',1157615972,1,0,1,1,1,0,'','','Gracias Garbi, por tu ayuda lo que practicamente me faltaba era conseguir cual era el ultimo dato de un array y tu me lo has solucionado con fCount(), que me dice la cantidad de campos de un fichero, ya que hay una funcion que hace lo mismo que tu me indicas pero en una sola linea y muy facil, es \n\naFileds : DBStruct()\n\ncon esto consigues lo mismo.\n\nUn saludo y gracias.','',0,'mA==','xle1dy7r',1,0,'',542,0,0),(18455,4175,7,2,0,'87.218.146.68',1157617371,1,0,1,1,1,1,'','','Vikthor,\n\nFWPPC usa Harbour solamente, de momento. \n\nAsí que habría que tomar el código fuente de TOleAuto de xHarbour y compilarlo para FWPPC.','',0,'mA==','293pf1dw',1,0,'',2,0,0),(18456,4169,4,89,0,'213.21.136.60',1157619968,1,0,1,1,1,0,'','','Yes , I will send the code .\n\n\nMaurizio','',0,'mA==','1v03tu4k',1,0,'',89,0,0),(18457,4181,7,720,0,'80.36.244.134',1157623051,1,0,1,1,1,0,'','Como insertar fecha....','Hola a todos...\n\nQueria saber como puedo hacer para que a la hora de insertar una fecha en el recuadro salga por defecto \'  -  -  \'\n\nHe mirado el ejemplo de client pero algo me está fallando que no me muestra los guiones...\n\nAntes de insertar llamo a una función que inicializa los datos \n\nFUNCTION Inicializa_datos()\n*---------------------------------\n   \n   oGetNomCli:=SPACE(12)\n   oGetApeCli:=SPACE(30)\n   oGetDireCli:=SPACE(20)\n   oGetFnaciCli:=CToD( \'  -  -  \' )\n   oGetCiudadCli:=SPACE(15)\n	\nRETURN nil\n\npero no sale nada....\n\nSaludos y gracias\n\nElías Torres.','',0,'mA==','1apbmsgo',1,0,'',720,0,0),(18458,4153,3,170,0,'80.170.125.228',1157624487,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:tzpo9fye]Try to avoid the reindexing, I repeat, you don\'t need to reindex since you are working with ADS.[/quote:tzpo9fye]\n\nWithout ADS also, if you open each index before every time you\nupgrade yours databases.\n\nRegards,','',0,'gA==','tzpo9fye',1,0,'',170,0,0),(18459,4164,7,490,0,'80.24.224.89',1157624899,1,0,1,1,1,0,'','','Antonio,\n\nesa era una de las cuestiones, ¿como miro en fwppc la memoria libre en la pocket?\n\nExiste alguna función o necesito llamar al api de windows ce?\n\n\nUn Saludo,\nJoaquín','',0,'gA==','1o6qexfj',1,0,'',490,0,0),(18460,2477,3,49,0,'62.13.172.78',1157625157,1,0,1,1,1,1,'','','open source and U can sale finger only with assistant if the customer need it !!!!!!!!!!!!!\n\nFor sample in Italy there is a product  in Delphi :\nyou candownload it  modified it sale to your customers but you if need assistant You must pay ....','',0,'gA==','2p9856sc',1,0,'',49,0,0),(18461,4136,3,49,0,'62.13.172.78',1157625286,1,0,1,1,1,1,'','','WITH VTASKBAR OD CANALFIVE \nYOU MUST WRITE TO <!-- e --><a href=\"mailto:PACO@canalfive.com\">PACO@canalfive.com</a><!-- e -->','',0,'gA==','2tqs9ena',1,0,'',49,0,0),(18462,4136,3,49,0,'62.13.172.78',1157625480,1,0,1,1,1,1,'','','AND THEN YOU MUST FOUND fsdi CLASS FROM AVEMUNDI','',0,'gA==','36v74sbz',1,0,'',49,0,0),(18463,4136,3,308,0,'84.148.25.156',1157627465,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:qphn3awj]AND THEN YOU MUST FOUND fsdi CLASS FROM AVEMUNDI[/quote:qphn3awj]\n\nMany thanks to you. i have send paco an email.\nfor avemundi: have you an link for me ?\n\nBest regards, Norbert','',0,'gA==','qphn3awj',1,0,'',308,0,0),(18464,4182,3,473,0,'81.83.209.5',1157627783,1,0,1,1,1,0,'','Dental program','Hello,\n\nA dentist asked me to explore te possibilities to write a dental program.\n\nNormaly a relational database is not a problem.\n\nBut a dental program has something specific.\n\nThey start from a map with teeth.\n\nThey click on one tooth and there comes a graph with that thoot divided in \nseveral parts.\n\nThen they select the parts of the tooth where they  are working on.\n\nIs it possible in xHarbour to design a graphical set of teeth in wich I can \nselect some parts.\n\nWhat I mean is : Can I show a graph on a screen and select a sub-graph\n\nThanks a lot.\n\nWilly Hermans.','',0,'gA==','3tuj88kq',1,0,'',473,0,0),(18465,4136,3,49,0,'62.13.172.78',1157630865,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/fsdi2006.zip\">http://www.avemundi.com/archivos/fsdi2006.zip</a><!-- m -->\n\nthis is a fsdi class but I cannt compile  the sample because  there was not many functions and  the author not give me it...\nIf you try to compile and run it can you send me the file correct ?\nseeing how run fsdi now I remake only a windows with many coordinates but I want use this class ....','',0,'gA==','1l61d1h8',1,0,'',49,0,0),(18466,4183,3,49,0,'62.13.172.78',1157631911,1,0,1,1,1,1,'','TO ANTONIO : TABS COLOR FOREGROUND','[url=http&#58;//img182&#46;imageshack&#46;us/my&#46;php?image=tabcolorpt1&#46;png:lz5h2jtk][img:lz5h2jtk]http&#58;//img182&#46;imageshack&#46;us/img182/4504/tabcolorpt1&#46;th&#46;png[/img:lz5h2jtk][/url:lz5h2jtk]\n\n I MADE THIS :\n\n[code:lz5h2jtk]\n\n @ oBCli&#58;nBottom, nBrwSplit+5 TABS oTab ;\n             OPTION nOrder SIZE oBCli&#58;nWidth&#40;&#41;, 25 PIXEL OF oReparti ;\n                   ITEMS \' Codice \', \' Descrizione\' ;\n                   Color GetSysColor&#40;13&#41;, GetSysColor&#40;1&#41;\n\n[/code:lz5h2jtk]\n\n\nBUT IT NOT MAKE FOREGROUND COLOR  WHY ?','',0,'GIA=','lz5h2jtk',1,0,'',49,0,0),(18467,4184,6,41,0,'200.87.67.10',1157632153,1,0,1,1,1,0,'','xHarbour CVS y FHW','Holas,\n\nsaben cual es la ultima version de FWH que se puede utilizar con la version del CVS de xHarbour, he recompilado la version 2.6 pero los ejecutables no corren, que version o que modificaciones hay que hacer para utilizar el ultimo xHarbour.\n\nsaludos y gracias\n\nMarcelo','',0,'GIA=','2cb72cu5',1,0,'',41,0,0),(18468,4183,3,49,0,'62.13.172.78',1157632288,1,0,1,1,1,1,'','','i CORRECT THE TABS CLASS \n\n  WHERE IS \n\nDEFINE BRUSH ::oBrush STYLE TABS\n\nWITH \n\n[code:2y52f1x7]\n &#58;&#58;oBrush &#58;= TBrush&#40;&#41;&#58;New&#40;,nClrFore&#41;\n[/code:2y52f1x7]\n\nPERHAPS i HAVE AN OLD CLASS BUT IN WIN XP IS TOO GOOD','',0,'AIA=','2y52f1x7',1,0,'',49,0,0),(18469,4170,6,286,0,'200.90.115.154',1157633755,1,0,1,1,1,1,'','','Muchas gracias\nVoy a chequear','',0,'AIA=','2sc33n32',1,0,'',286,0,0),(18470,4182,3,707,0,'222.124.20.50',1157638787,1,0,1,1,1,0,'','','Willy.\n\nYou can do with xHarbour :\n- first you have to scan teeth image for maping\n- cut by each teeth to get the number of teeth and save it by number\n- for the graph draw with line function\n\nareang','',0,'AIA=','1l5zdyd1',1,0,'',707,0,0),(18471,4185,3,707,0,'222.124.20.50',1157639194,1,0,1,1,1,0,'','TExplorerBar Class','Hi All !\n\nCan you help me to find TExploreBar Class source code ?\n\nThanks\n\nAreang','',0,'AIA=','bzrzp048',1,0,'',707,0,0),(18472,4176,4,18,0,'200.67.188.236',1157639352,1,0,1,1,1,1,'','','[quote=&quot;Carles&quot;:3898w85q]Vikthor,\n\n.\\samples\\getfile.prg[/quote:3898w85q]\n\nCarles :\n\nI don\'t found it <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> , I\'ve FWPPC July 2006 , could you send me that program.\n\nThanks','',0,'gA==','3898w85q',1,0,'',18,0,0),(18473,4177,7,18,0,'200.67.188.236',1157639642,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ep2ff4va]Vikthor,\n\nEs una limitación de Windows Mobile.\n\nFWPPC ofrece un reemplazo: samples\\getfile.prg[/quote:ep2ff4va]\n\nAntonio :\n\nEse ejemplo no lo tengo en ..\\samples    \n\nTengo FWPPC de Julio 2006\n\nMe lo podrías enviar a mi cuenta de correo.\nvikthor at creswin dot com\n\nGracias','',0,'gA==','ep2ff4va',1,0,'',18,0,0),(18474,4055,7,18,0,'200.67.188.236',1157639859,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2nql6l5p]Ignacio,\n\nA veces hay que reiniciar el emulador. Puedes probar a descargar un emulador más actualizado desde Microsoft, aunque no te recomendamos el de Windows Mobile 2005 porque es sensiblemente más lento.[/quote:2nql6l5p]\n\nYo bajé el WM 2005 y efectivamente el desempeño es mucho menor.\n\n¿ Qué emuladores nos puedes recomendar ?\n\nSaludos','',0,'gA==','2nql6l5p',1,0,'',18,0,0),(18475,4186,6,174,0,'82.159.197.158',1157641191,1,0,1,1,1,0,'','Tamaño de los Botones en ToolBar','Saludos, soy nuevo en este foro, y tengo problemas con el tamaño de los botones del Toolbar.\n\nAl definir el ToolBar declaro el Ancho y Alto de los botones, pero los pinta del tamaño que se declara el tamaño del ImageList. No hace caso al tamaño del Boton.\n\nDecir que los botones NO tienen texto, si se declaran con texto si los pinta bien. ¿ Alguien me puede ayudar ?.\n\nMuchas Gracias.','',0,'gA==','3hprw1bn',1,0,'',174,0,0),(18476,4183,3,308,0,'84.148.25.156',1157641298,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:3cbzfpwm]i CORRECT THE TABS CLASS \n\n  WHERE IS \n\nDEFINE BRUSH ::oBrush STYLE TABS\n\nWITH \n\n[code:3cbzfpwm]\n &#58;&#58;oBrush &#58;= TBrush&#40;&#41;&#58;New&#40;,nClrFore&#41;\n[/code:3cbzfpwm]\n\nPERHAPS i HAVE AN OLD CLASS BUT IN WIN XP IS TOO GOOD[/quote:3cbzfpwm]\n\nSylvio,\n\ncompile from the FSDI the tabs.prg in your program. it looks very nice.\n\nRegards, Norbert','',0,'gIA=','3cbzfpwm',1,0,'',308,0,0),(18477,4187,3,344,0,'62.101.126.212',1157642073,1,0,1,1,1,0,'','Change text button Toolbar','Hi,\nhow is possible to change the text of a button in a toolbar?\n\nThank you','',0,'gIA=','3i0ko6er',1,0,'',344,0,0),(18478,4188,6,147,0,'200.45.54.133',1157642362,1,0,1,0,1,1,'','Problema con control OUTLOOK','Estoy probando este control a traves del sample testoutl.prg y me encuentro con que al pulsar sobre un botón, la primera ves, no responde, la segunda si.\nAlguien que lo use me pude ayudar?. Tiene solución?\n\ngracias, saludos','',0,'gIA=','3nuqoy38',1,0,'',147,0,0),(18479,4170,6,147,0,'200.45.54.133',1157643077,1,0,1,0,1,1,'','','W\nPodés probar con TDbf de Manu Expósito que te da eso y mucho mas!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/downloads.php?category=FiveWin%20users%20contributions&amp;id=280\">http://www.fivewin.info/html/downloads. ... ons&amp;id=280</a><!-- m -->\n\nSaludos','',0,'gIA=','mw3bi7qd',1,0,'',147,0,0),(18480,4179,6,492,0,'201.154.126.49',1157643145,1,0,1,1,1,1,'','','Fernando :\n\nExcelente !!!   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSupongo que no habra ningun problema si contamos con algun hosting, verdad ?\n\nSaludos','',0,'gIA=','3fibr2k4',1,0,'',492,0,0),(18481,4179,6,215,0,'189.136.231.137',1157644140,1,0,1,1,1,0,'','NPI','Raymundo,\n¿Qué si puedes usarlo en hosting de paga?.  Lo ignoro. Ahí no tengo idea de lo que hay que hacer.\n \nYo tengo con esto desde el fin de semana a la fecha, y como puedes ver tengo mi pc habilitada como hosting con una NO-IP\n\nSi requieres usarlo en tus desarrollos para tus clientes, entonces deberás comprar la licencia de xharbour de paga. Asi tendrás la licencia para usarlo en tus desarrollos.\nDate una vuelta por xharbour.com \n\nSaludos','',0,'gIA=','379g84ds',1,0,'',215,0,0),(18482,4189,6,184,0,'201.222.6.66',1157644627,1,0,1,1,1,0,'','Consulta sobre comunicacion serial','hola a todos.\n\ntengo un pequeño programa que lee valores desde el puerto serial, con clipper/fw funciona bien, el mismo lo compilo con xharbour/fw 2.5 y los datos los interpreta como basura.\n\nahora, pasa lo siguiente si primero ejecuto el programa de 16 bits salgo del programa de 16 bits y luego ejecuto el programa de 32 bits funciona perfectamente el de 32 bits y puedo entrar y salir del programa y sigue funcionando hasta que reinicie la maquina, y el de 32 bits no funciona hasta que no ejecute el programa de 16 bits o el hyperterminal de windows.\n\nPD.\nuso fwh (junio 2004) / xharbour 0.92.0\nlo mismo ocurre con el ejemplo testcom3\n\nmuchas gracias!','',0,'gIA=','4tcij3dv',1,0,'',184,0,0),(18483,4165,6,694,0,'200.138.82.145',1157649755,1,0,1,1,1,1,'','Antonio por favor','<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  por favor antonio!','',0,'gIA=','1x5xvc29',1,0,'',694,0,0),(18484,4177,7,2,0,'87.218.146.68',1157651202,1,0,1,1,1,1,'','','Vikthor,\n\nEs preferible que descargueis el build más reciente de FWPPC, ya que incluye novedades, mejoras, etc. usando vuestro login y password.','',0,'gIA=','3e0bu2r9',1,0,'',2,0,0),(18485,4055,7,2,0,'87.218.146.68',1157651275,1,0,1,1,1,1,'','','Vikthor,\n\nEl anterior, que es el WM 2003.','',0,'gIA=','335a535k',1,0,'',2,0,0),(18486,4164,7,2,0,'87.218.146.68',1157651406,1,0,1,1,1,1,'','','Joaquín,\n\nSettings -&gt; System -&gt; Memory','',0,'gIA=','23xd6eos',1,0,'',2,0,0),(18487,4176,4,2,0,'87.218.146.68',1157651543,1,0,1,1,1,1,'','','Vikthor,\n\nPlease download again the most recent FWPPC build.','',0,'gIA=','2i8qv80y',1,0,'',2,0,0),(18488,4164,7,490,0,'81.44.200.243',1157652932,1,0,1,1,1,0,'','','Antonio,\n\nEso sí lo sabía, la idea era que mi aplicación pudiera obtener ese valor e ir guardando un log file con una traza y que memoria iba quedando en cada caso, y después de más de una hora de usar la aplicación, mirar este fichero para ver en qué casos disminuye la memoria.\n\n\nUn Saludo,\nJoaquín','',0,'gIA=','1vtne48l',1,0,'',490,0,0),(18489,4176,4,18,0,'200.67.188.236',1157653126,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ljv6qtwr]Vikthor,\n\nPlease download again the most recent FWPPC build.[/quote:ljv6qtwr]\n\nAnotnio \n\nmany, many thanks','',0,'gA==','ljv6qtwr',1,0,'',18,0,0),(18490,4165,6,18,0,'200.67.188.236',1157653285,1,0,1,1,1,1,'','Re: Antonio por favor','[quote=&quot;AOKISANTOS&quot;:3559gti3]:(  por favor antonio![/quote:3559gti3]\n\nAre you using Tword() Class for FWPPC ?\n\nWhere I can found that class ?\n\nBest regards','',0,'gA==','3559gti3',1,0,'',18,0,0),(18491,4177,7,18,0,'200.67.188.236',1157653344,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:26blt46l]Vikthor,\n\nEs preferible que descargueis el build más reciente de FWPPC, ya que incluye novedades, mejoras, etc. usando vuestro login y password.[/quote:26blt46l]\n\nOkie , muchas gracias','',0,'gA==','26blt46l',1,0,'',18,0,0),(18492,4164,7,2,0,'87.218.146.68',1157655092,1,0,1,1,1,1,'','','Joaquín,\n\nVOID GlobalMemoryStatus( \n    LPMEMORYSTATUS lpBuffer 	// pointer to the memory status structure  \n   );\n\nNo está implementada en FWPPC. Tienes que implementarla con #pragma BEGINDUMP ó desde un fichero en C.','',0,'gA==','33qkmvvq',1,0,'',2,0,0),(18493,4165,6,2,0,'87.218.146.68',1157655429,1,0,1,1,1,1,'','','AOKISANTOS,\n\nParece que oWord:IsVisible() llama a la propiedad OLE oWord:Visible y no es reconocida como tal.\n\nFuncionaba ese código anteriormente ?','',0,'gA==','3kvev033',1,0,'',2,0,0),(18494,4188,6,391,0,'205.160.32.38',1157657919,1,0,1,1,1,1,'','Re: Problema con control OUTLOOK','[quote=&quot;MarioG&quot;:2tw7zcpf]Estoy probando este control a traves del sample testoutl.prg y me encuentro con que al pulsar sobre un botón, la primera ves, no responde, la segunda si.\nAlguien que lo use me pude ayudar?. Tiene solución?\n\ngracias, saludos[/quote:2tw7zcpf]\n\n\nMario.\n\n\nPuebe este cambio,  a mi me funciono\n\nCLASS TOutLook\n\nMETHOD AddItem\n\n //  oBmp:bMMoved    := {|nRow, nCol| BeginDragBmp(Self, oBmp,oSay, nRow, nCol)}\n //  oBmp:blButtonUp := {|nRow, nCol| EndDragBmp(Self, oBmp, nRow, nCol)}\n\n\nHasta pronto','',0,'gA==','2tw7zcpf',1,0,'',391,0,0),(18495,4190,19,123,0,'88.0.86.56',1157658466,1,0,1,1,1,0,'','Máquina virtual de xHarbour (II)','Hello,\n\nSecond article about xharbour virtual machine, by Walter Negro at <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=78\">http://www.capelblog.com/?p=78</a><!-- m --> (in spanish).\n\nRegards,\nJosé Luis Capel\n\nHola,\n\nSegunda entrega sobre la máquina virtual de xharbour, by Walter Negro en <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=78\">http://www.capelblog.com/?p=78</a><!-- m -->\n\nSaludos,\nJosé Luis Capel','',0,'gA==','24lgpodc',1,0,'',123,0,0),(18496,4187,3,303,0,'72.199.41.171',1157658957,1,0,1,1,1,0,'','','Have you tried: oBtn:setText(\"New Text\")?','',0,'gA==','2lakbb6z',1,0,'',303,0,0),(18497,4165,6,18,0,'200.67.188.236',1157659105,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1a157buo]AOKISANTOS,\n\nParece que oWord:IsVisible() llama a la propiedad OLE oWord:Visible y no es reconocida como tal.\n\nFuncionaba ese código anteriormente ?[/quote:1a157buo]\n\nPerdón , perdón , ya me dí cuenta de que estaba en el foro equivocado.\n\nPero aprovechando que es gerundio......\n\nEfectivamente el método IsVsible() hace un llamado a la propidad Visible, lo que debe estar sucediendo es que no se está instanciando el Objeto Word y por esa causa ningún método o propiedad está disponible.','',0,'gA==','1a157buo',1,0,'',18,0,0),(18498,4165,6,18,0,'200.67.188.236',1157659447,1,0,1,1,1,1,'','Re: Antonio - Por Favor, TWORDHB?','[quote=&quot;AOKISANTOS&quot;:auw35ikk]Antonio, por favor...\n\nfunction ContratoWord( aCampos )\n\nlocal x, oWord, cModelo:=curdrive()+\':\\xcarcere\\inq\\teste.doc\'    //importante colocar a letra do drive senão dá erro\n\n\nMSGINFO(CMODELO)\noWord := TWord():New()                 // inicia o objeto OLE Word\nif oWord:IsVisible()\n  oWord:Hide()\nendif\noWord:OpenDoc( cModelo )               // abre o documento modelo\nfor x=1 to len( aCampos )\n    oWord:Replace( \'[\'+aCampos[x,1]+\']\' , aCampos[x,2] )\nnext\n\n//oWord:preview()                        // visualiza o documento no preview \n//oWord:Visualizar()                     // visualiza o documento \noWord:PrintDoc(.t.)                      // imprime o documento sem apresentar na tela\noWord:end()\n\nreturn nil\n\n\n\n********************\nAntonio, por favor meu Mestre, estou precisando muito disso!\n\nFIQUE COM DEUS, E QUE ELE ABENÇOE VOCÊ E SUA FAMILIA\n\nAOKISANTOS[/quote:auw35ikk]\n\n\nRevisa si tu método ::New() es cómo este :\n\n[code:auw35ikk]METHOD   NEW&#40;&#41;  CLASS TWord\n      &#58;&#58;lWord  &#58;= &#46;T&#46;\n      TRY\n        &#58;&#58;oWord &#58;= GetActiveObject&#40; &quot;Word&#46;Application&quot; &#41;\n      CATCH\n         TRY\n            &#58;&#58;oWord &#58;= CreateObject&#40; &quot;Word&#46;Application&quot; &#41;\n         CATCH\n            Alert&#40; &quot;ERROR! Word no está instaldo en esta PC&#46; &#91;&quot; + Ole2TxtError&#40;&#41;+ &quot;&#93;&quot; &#41;\n            &#58;&#58;lWord  &#58;= &#46;F&#46;\n         END\n      END\nRETURN&#40; Self &#41;\n[/code:auw35ikk]','',0,'gIA=','auw35ikk',1,0,'',18,0,0),(18499,4153,3,15,0,'61.59.238.26',1157667763,1,0,1,1,1,0,'','','Hello All,\n\nThanks for your idea and suggestion.\n\nI will try it.\n\nRegards,\n\nRichard','',0,'gIA=','r8v50efk',1,0,'',15,0,0),(18500,4165,6,694,0,'200.181.206.168',1157667864,1,0,1,1,1,1,'','','Antonio, Vikthor, muito obrigado por me responder...\n\nAntonio, respondendo a sua pergunta... Eu nunca consegui fazer funcionar está comunicação com o WORD!... Tenho varias dúvidas:\n\n1) Tenho que adicionar alguma LIB para que funcione ?\n2) Eu anexei ao sistema a TWORDHB está certo? ou devo usar a TWORD?\n\nVikthor:\nna TWORDHB o método NEW estava assim:\n\nMETHOD   NEW()  CLASS TWord\n   ::lWord  := .T.\n   #IFDEF __XHARBOUR__\n      TRY\n        ::oWord := GetActiveObject( \"Word.Application\" )\n      CATCH\n         TRY\n            ::oWord := CreateObject( \"Word.Application\" )\n         CATCH\n            Alert( \"ERROR! Word no está instaldo en esta PC.\")\n            ::lWord  := .F.\n         END\n      END\n   #ELSE\n      ::oWord := TOleAuto():New(\"Word.Application\")\n      IF ::oWord:hObj == 0\n          Alert( \"ERROR! Word no está instaldo en esta PC.\")\n        ::lWord := .F.\n      ENDIF\n   #ENDIF\n\nRETURN( Self )\n\nEntão, ai mudei para ficar igual ao seu:\nMETHOD   NEW()  CLASS TWord\n      ::lWord  := .T.\n      TRY\n        ::oWord := GetActiveObject( \"Word.Application\" )\n      CATCH\n         TRY\n            ::oWord := CreateObject( \"Word.Application\" )\n         CATCH\n            Alert( \"ERROR! Word no está instaldo en esta PC. [\" + Ole2TxtError()+ \"]\" )\n            ::lWord  := .F.\n         END\n      END\nRETURN( Self ) \n\nMAIS MESMO ASSIM, CONTINUA A ME DAR O ERRO:\nApplication\n===========\n   Path and name: C:\\XCARCERE\\INQ\\INQUERITO.EXE (32 bits)\n   Size: 2,324,992 bytes\n   Time from start: 0 hours 0 mins 30 secs \n   Error occurred at: 07/09/2006, 19:17:26\n   Error description: Error Word.Application/1829  Unknown error: VISIBLE\n   Args:\n\nStack Calls\n===========\n   Called from TOLEAUTO:VISIBLE(0)\n   Called from (b)TWORD(140)\n   Called from TWORD:ISVISIBLE(0)\n   Called from CONTRATOWORD(27)\n   Called from PORDEUS(17)\n\n\n\nPOR FAVOR AMIGOS, ESTOU PRECISANDO MUITO FAZER FUNCIONAR !\nFIQUEM COM DEUS\nAOKISANTOS','',0,'','zauibann',1,0,'',694,0,0),(18501,2477,3,15,0,'61.59.238.26',1157668254,1,0,1,1,1,0,'','','Hello Silvio,\n\nYes, I think so that.\nMy solution will support my customers.\nNow, I will use WebCam to check Users face for Login my system.\nFingerprint was First solution. Now is Face check.\n\nRegards,\n\nRichard','',0,'','17y6ucom',1,0,'',15,0,0),(18502,4173,6,278,0,'200.72.147.101',1157670092,1,0,1,1,1,1,'','','GRACIAS Willi , eso es lo que buscaba. \n\nAtte,\nJuan','',0,'','1odwordj',1,0,'',278,0,0),(18503,4191,2,147,0,'190.7.30.35',1157677053,1,0,1,0,1,1,'','Problema de recursos con TreeBegin-TreEnd()','Estimados:\nTengo una aplicacion, bastante viejita. En la misma tomo datos de la Dbf y contruyo un Tree de 2 niveles.\nAhora, con el tiempo, a uno de mis clientes le pasa que su Dbf creció, aunque no tanto, aunque al intentar agregar o quitar un Item la PC, bajo Win98SE, se queda sin recursos luego de re construir el Tree (la imagen se vuelve tipo 16 colores)\nEl código lo plantee así:\n\n[code:32b0qme5]\n   // Construir arbol\n   bArbol&#58;= &#123;|| if&#40; Empty&#40;oTree&#41;,, oTree&#58;= nil &#41;, ;\n                CursorWait&#40;&#41;                    , ;\n                oTree&#58;= TreeBegin&#40;,&#41;            , ;\n                dbEval&#40;&#123;|| cClaEnt&#58;= Cuentas-&gt;Cla_Bn, ;\n                           _TreeItem&#40; &quot; &quot;+Cuentas-&gt;Nombre,,,oVP&#58;cDirBmp+&quot;\\Entidad&#46;bmp&quot;,oVP&#58;cDirBmp+&quot;\\AbrirEnt&#46;bmp&quot;,&#46;F&#46;&#41;, ;\n                           aArrCtas&#58;= Cuentas-&gt;ArrCtas, ;\n                           TreeBegin&#40;,&#41;               , ;\n                           aEval&#40; aArrCtas, &#123;|a| _TreeItem&#40; &quot; &#91;&quot;+cClaEnt+&quot;&#93;  &quot;+a&#91;xNomSbCta&#93; ;\n                                                            ,,,oVP&#58;cDirBmp+&quot;\\AbrirCta&#46;bmp&quot;,,&#46;F&#46;&#41; &#125; &#41;, ;\n                           TreeEnd&#40;&#41; &#125; &#41;, ;\n                SysRefresh&#40;&#41;, ;           \n                TreeEnd&#40;&#41;   , ;\n                CursorArrow&#40;&#41; &#125;\n\n   MsgRun &#40;&quot;Construyendo Arbol de Entidades&#46;&#46;&#46;&quot;, &quot;Aguarde&#46;&#46;&#46;&quot;, bArbol&#41;\n\n   REDEFINE LISTBOX oLbxTree FIELDS    ;\n            ID BRW_CTAS OF oDlg        ;\n            FONT oFnt1 UPDATE          ;\n            COLOR CLR_BLACK, CLR_WHITE ;\n            HEADER &quot;&quot;,&quot;&quot;,&quot; E n t i d a d e s ¬ C u e n t a s&quot; ;\n\n   oLbxTree&#58;SetTree&#40; oTree &#41;\n   oLbxTree&#58;nClrForeFocus&#58;= CLR_WHITE\n   oLbxTree&#58;nClrBackFocus&#58;= CLR_TREEFRED\n\n   bDblkCta&#58;= &#123;|nRow, nCol| if&#40; oLbxTree&#58;Cargo&#58;nLevel == NIVEL_ENT, ;\n                                &#40; oLbxTree&#58;SetFocus&#40;&#41;    , ;\n                                  oLbxTree&#58;Cargo&#58;Toggle&#40;&#41;, ;\n                                  oLbxTree&#58;GoDown&#40;&#41;      , ;\n                                  oLbxTree&#58;SetFocus&#40;&#41;    , ;\n                                  oLbxTree&#58;Refresh&#40;&#41; &#41;   , ;\n                                &#40; oWnd&#58;Minimize&#40;&#41;        , ;\n                                  byr_PLAN&#40; oLbxTree, oWnd &#41; &#41; &#41; &#125;\n\n   oLbxTree&#58;blDblClick&#58;= bDblkCta\n   oLbxTree&#58;bRClicked&#58;= &#123;|nRow, nCol| fMenuPop&#40; nRow,nCol &#41; &#125;\n   oWnd&#58;bGotFocus&#58;= &#123;|| if&#40; Used&#40;&#41;, aoDbf&#91;dbCTA&#93;&#58;SetFocus&#40;&#41;, fAbreDbf&#40;dbCTA, TRUE, FALSE&#41; &#41;, ;\n                        aoDbf&#91;dbCTA&#93;&#58;SetOrder&#40;&quot;CTA_NOMBRE&quot;&#41;, ;\n                        oWnd&#58;Restore&#40;&#41;, oLbxTree&#58;SetFocus&#40;&#41; &#125;\n\n\n[/code:32b0qme5]\nEsto está en un Dlg. Luego cuando Agrego o Borro un item (Entidad o Cuenta), hago lo siguiente:\n[code:32b0qme5]\n   bRebuild&#58;=  &#123;|| MsgRun &#40;&quot;Reconstruyendo  Arbol de Entidades&#46;&#46;&#46;&quot;, &quot;Aguarde&#46;&#46;&#46;&quot;, bArbol&#41;, ;\n                   oLbxTree&#58;SetTree&#40; oTree &#41;,   ;\n                   oLbxTree&#58;SetFocus&#40;&#41;,         ;\n                   oLbxTree&#58;Refresh&#40;&#41;,          ;\n                   oLbxTree&#58;blDblClick&#58;= bDblKCta &#125;\n[/code:32b0qme5]\nY aquí es donde se queda sin recursos. Sin dudas que siempre existió el error, que no fue notorio porque procesaba pocos registros o bien porque la App se corre en una PC con XP.\nAlguna idea de como solucionarlo?\n\nmuchas gracias, saludos\n\n[/code]','',0,'AIA=','32b0qme5',1,0,'',147,0,0),(18504,4192,4,18,0,'200.67.153.171',1157678332,1,0,1,1,1,1,'','x2RowCol()','Antonio :\n\nHe buscado el código fuente de esa función y no la encuentro en ningún subdirectorio ,lo que quiero saber es que tratamiento les da a la variables que se envian por referencia.\n\n      x2RowCol(@nRow, @nCol, @nHeight, @nWidth, lPixel, Self, oWnd)\n\nMucho agradeceré tu explicación.','',0,'AIA=','2ck5pk86',1,0,'',18,0,0),(18505,4169,4,47,0,'203.144.143.6',1157681371,1,0,1,1,1,0,'','','Dear Antonio,\n\nIf you got the correct examples please send me too.\n\nBest regards,\nDutch','',0,'AIA=','kx3eve60',1,0,'',47,0,0),(18506,4193,3,233,0,'218.111.61.108',1157683601,1,0,1,1,1,0,'','Quickest way to enable data encryption','Hi guys,\n\n   If I want to modify existing source code to enable encryption of data in dbf\'s what\'s the quickest (ok, ok and also free  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->; if possible ) route that I could take?\n\n  What options do I have for having the feature in a 16 bit programs? In 32 bit programs? \n\nTIA for sharing your experience and expertise','',0,'AIA=','mlzf7um5',1,0,'',233,0,0),(18507,4187,3,2,0,'87.218.146.68',1157695566,1,0,1,1,1,1,'','','Riccardo,\n\nYou have to add this method to Class TToolBar:\n[code:1sebn8sr]\nMETHOD SetText&#40; nButton, cText &#41; INLINE TBSetText&#40; &#58;&#58;hWnd, nButton, cText &#41;                            \n[/code:1sebn8sr]\nAnd this code to your app:\n[code:1sebn8sr]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;CommCtrl&#46;h&gt;\n\nHB_FUNC&#40; TBSETTEXT &#41;\n&#123;\n   HWND hToolBar = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   TBBUTTONINFO tbi;\n\n   memset&#40; &#40; char * &#41; &amp;tbi, 0, sizeof&#40; tbi &#41; &#41;;\n\n	tbi&#46;dwMask  = TBIF_TEXT | TBIF_BYINDEX;\n	tbi&#46;cbSize  = sizeof&#40; TBBUTTONINFO &#41;;\n	tbi&#46;pszText = hb_parc&#40; 3 &#41;;\n	tbi&#46;cchText = hb_parclen&#40; 3 &#41;;\n	 \n   SendMessage&#40; hToolBar, TB_SETBUTTONINFO, hb_parni&#40; 2 &#41; - 1, &#40; LPARAM &#41; &amp;tbi &#41;;\n&#125;\n[/code:1sebn8sr]\nThen use it this way:\n[code:1sebn8sr]\n oToolbar&#58;SetText&#40; 1, &quot;Hello&quot; &#41; // set first button text\n[/code:1sebn8sr]','',0,'AIA=','1sebn8sr',1,0,'',2,0,0),(18508,4182,3,473,0,'81.83.209.5',1157695782,1,0,1,1,1,0,'','','areang,\n\nIt is not that simple.\n\nIndaed the first part is. I can add a teeth in a graphical button or I can click on a bmp because they are placed alongside.\n\nBut some teeth are divided in 24 zones. These zones are not regulary squares. They are just like pieces af a puzzle.\n\nEach piece can have undergo a different treatment. Depending on that treatment it should have a different color.\n\nSo when a dentist select a patient, the system does not have to display a standard set of teeth. \nThe system has to display the actual set of that patient. \nDisplaying it teeth by teeth and sub-teeth by sub-teeth means moere then 500 graphs.\nIt should be very slow.\n\nI thought there has been a third party app with which it is possible to draw maps and select one map into another. Maybe this can be useful.\n\nCan someone tell me where I can find this.\n\nThanks \n\nWilly Hermans','',0,'AIA=','b4cu7wg8',1,0,'',473,0,0),(18509,4182,3,2,0,'87.218.146.68',1157696123,1,0,1,1,1,1,'','','Willy,\n\n&gt; The system has to display the actual set of that patient.\n\nThat would make it much more complex as you would need a kind of OCR for each patient set.\n\nIf you could use a unique model, then you may use a second bitmap with a colors map, and based on the selected color, you will know what part has been selected.','',0,'AIA=','139lzclx',1,0,'',2,0,0),(18510,4193,3,2,0,'87.218.146.68',1157696216,1,0,1,1,1,1,'','','Hua,\n\nYou may use FWH Encrypt() and Decrypt() functions, to encrypt each field content before saving it, then use Decrypt() to read the encrypted field data.','',0,'AIA=','23jm6ps0',1,0,'',2,0,0),(18511,4185,3,2,0,'87.218.146.68',1157696403,1,0,1,1,1,1,'','','Areang,\n\nIs it a FWH user developed library ? Do you have a sample ?','',0,'AIA=','w3cs9hdd',1,0,'',2,0,0),(18512,4169,4,2,0,'87.218.146.68',1157697803,1,0,1,1,1,1,'','','Maurizio,\n\nsamples\\sockcli.prg uses a fixed IP, and it does not GPF, it just does not connect.','',0,'AIA=','cwavvvtw',1,0,'',2,0,0),(18513,4182,3,473,0,'81.83.209.5',1157697945,1,0,1,1,1,0,'','','&gt; If you could use a unique model, then you may use a second bitmap with a\n&gt; colors map, and based on the selected color, you will know what part has \n&gt; been selected.[/quote]\n\nAntonio,\n\nI was already thinking of starting with a unique model.\nThen I keep a memo field for each patient.\n\n44\\02:12\\03:12\n38\\07:16\\08:16\n\ncould mean\n\nTeeth 44 color 12 for zones 2 and 3\nTeeth 38 color 16 for zones 7 and 8\n\nThose zones should be paint over the uniqe model.\n\nMost zones are stying white.\n\nIt keeps impossible to select a zone by just clicking in it.\n\nI think that is the difficult part where I look for a solution.\n\nThanks for the reply Antonio.\n\nGreetings\n\nWilly Hermans.','',0,'','3poxj2e6',1,0,'',473,0,0),(18514,4095,6,123,0,'83.56.202.4',1157700106,1,0,1,1,1,0,'','','Antonio,\n\nCorregido!!\n\nSe me coló esto  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> :\n\n[code:3fovqacm]   LOCAL aRect &#58;= GetClientRect&#40;GetDesktopWindow&#40;&#41;&#41; \n   DEFINE WINDOW &#58;&#58;oAppOwnd FROM aRect&#91;1&#93;,aRect&#91;2&#93; TO aRect&#91;3&#93;,aRect&#91;4&#93; ;\n            COLOR RGB&#40;0,0,0&#41;,CL_FONDO&#91; CL_SELECCIONADO &#93; ;\n            TITLE Self&#58;cNombrePrograma ;\n            MENU Self&#58;CreaMenuNormal&#40;&#41;[/code:3fovqacm]\n\nY luego la activo maximizada.  Entonces al \'restaurar\' toma tooodo el ancho de la pantalla.  Esto con un monitor funciona bien.  Pero con dos... no.\n\nDisculpa las molestias.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','3fovqacm',1,0,'',123,0,0),(18515,4192,4,2,0,'87.218.146.68',1157700348,1,0,1,1,1,1,'','','Vikthor,\n\nThat function is never called as it is inside an ifdef:\n\n#ifdef FWPLUS\n\nIt belonged to a third party lib.','',0,'AIA=','1wvtetpn',1,0,'',2,0,0),(18516,4188,6,785,0,'190.64.103.218',1157700516,1,0,1,1,1,0,'','','Amigos:\n\nAlguien tiene un ejemplo de outlook desde recurssos en dialogo?\n\nMuchas gracias.\n\nRuben Fernandez','',0,'AIA=','pscm46pn',1,0,'',785,0,0),(18517,4182,3,2,0,'87.218.146.68',1157700592,1,0,1,1,1,1,'','','Willy,\n\n&gt; It keeps impossible to select a zone by just clicking in it.\n\nIts easy but little tricky <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nYou have two bitmaps, one with the set picture and another with only colors, one different color for each area. This second one is hidden.\n\nWhen the user clicks on the picture, you know the row and col of the mouse, and do a GetPixel( oBmp2:GetDC(), nRow, nCol ), oBmp2:ReleaseDC() on the _second_ bitmap. Based on the color you get with GetPixel(), you know what area was selected.','',0,'AIA=','1ltitmko',1,0,'',2,0,0),(18518,4180,2,2,0,'87.218.146.68',1157700898,1,0,1,1,1,1,'','','Tienes que crear una nueva DBF con la estructura nueva, copiar luego los datos de la antigua a la nueva y finalmente borrar la primera y renombrar la nueva.','',0,'AIA=','1vso4zfs',1,0,'',2,0,0),(18519,4191,2,2,0,'87.218.146.68',1157703117,1,0,1,1,1,1,'','','Mario,\n\nAñade esta función a source\\classes\\trees.prg:\n[code:36wr3u6n]\nfunction TreeFree&#40;&#41;\n\n   if hBmpOpen != nil\n      PalBmpFree&#40; hBmpOpen &#41;\n      hBmpOpen = nil\n   endif\n   \n   if hBmpClose != nil\n      PalBmpFree&#40; hBmpClose &#41;\n      hBmpClose = nil\n   endif\n      \nreturn nil\n[/code:36wr3u6n]\nY añade la llamada a esa función al final del método End() de la Clase TLinkList. \n\nImportante: Antes de construir el tree nuevamente, llama a oTree:End()','',0,'AIA=','36wr3u6n',1,0,'',2,0,0),(18520,4123,6,177,0,'82.130.228.56',1157703467,1,0,1,1,1,0,'','','George,\n\nla documentación de Blat es muy clara <!-- m --><a class=\"postlink\" href=\"http://www.blat.net/examples/\">http://www.blat.net/examples/</a><!-- m -->\n\nprimero la instalación:\n\nblat -install miservidor midireccion@midominio\n\npor ejemplo para enviar lo que llega por la salida estandar:\n\nblat - -to recipient -s \"SAVEGROUP COMPLETION REPORT\"  -server smtp_server -q\n\ndonde recipient es la dirección de quien va a recibir el mensaje, lo que va de tras de -s es el asunto , smtp_server es el servidor y -q suprime todas las salidas por pantalla.\n\nPara envio de ficheros:\n\n- Ficheros binarios\n\nblat cuerpodelmensaje -to recipient -s \"Mis asuntos\" -server smtp_server -attach mifichero1,mifichero2,mificheroN -q\n\n- Ficheros ascii\n\nblat cuerpodelmensaje -to recipient -s \"Mis asuntos\" -server smtp_server -attacht mifichero1,mifichero2,mificheroN -q\n\nEn la página de blat <!-- m --><a class=\"postlink\" href=\"http://www.blat.net\">http://www.blat.net</a><!-- m --> tienes todas las opcioes del programa.\n\nSaludos','',0,'AIA=','20ziee90',1,0,'',177,0,0),(18521,4123,6,177,0,'82.130.228.56',1157703738,1,0,1,1,1,0,'','','Carlos,\n\nde la documentación de blat:\n\nBlat does not need to be installed!\nAll the \'Blat -install\' command does is store various parameters in the Windows Regestry!\n \nNo necesita ser instalado. Y lo que hace blat -install es alamacenar varios parámetros en el registro de windows, almacenará los parámetros que le pasemos, como nombre del servidor, cuenta de correo que envia los mensajes, puerto utilizado, etc ...\n\nSaludos','',0,'AIA=','3c4izs4c',1,0,'',177,0,0),(18522,4187,3,344,0,'62.101.126.212',1157703825,1,0,1,1,1,0,'','','Antonio,\nthank you, works fine.\n\nI\'ve modify the Method Commad of the TToolBar to have the nId of the buttom when pressed:\n Eval( bAction, Self )  -&gt; Eval( bAction, Self, nID )\n\nBye\nRiccardo','',0,'AIA=','3rb56d4m',1,0,'',344,0,0),(18523,4187,3,2,0,'87.218.146.68',1157704172,1,0,1,1,1,1,'','','Riccardo,\n\n&gt; Eval( bAction, Self ) -&gt; Eval( bAction, Self, nID )\n\nOk, we have also modified it here, though we may finally create a new Class TTBButton and the TBButton object will be supplied instead of nID.','',0,'AIA=','yalfrtyf',1,0,'',2,0,0),(18524,4189,6,656,0,'83.230.172.166',1157704325,1,0,1,1,1,0,'','','Es una chorrada lo que te voy a decir, pero nunca se sabe. ¿ has inicializado el puerto en tu programa con los mismos parámetros que tiene el puerto en su configuración ?\n\nsalu2\nJavier Pérez','',0,'AIA=','1j3dcjp2',1,0,'',656,0,0),(18525,4064,6,2,0,'87.218.146.68',1157704337,1,0,1,1,1,1,'','','Javier,\n\nFuncionó bien ?','',0,'AIA=','2coq74k5',1,0,'',2,0,0),(18526,4189,6,2,0,'87.218.146.68',1157704615,1,0,1,1,1,1,'','','Simon,\n\nTienes que modificar samples\\TestCom3.prg al llamar a SetCommState( nComm, cDcb ). Ese primer parámetro nComm sólo es necesario en 32 bits. En 16 bits no se usa. Es un requerimiento del api de Win32.\n\nIgual para los demás ejemplos que llaman a SetCommState().','',0,'AIA=','2quxaxm2',1,0,'',2,0,0),(18527,4188,6,2,0,'87.218.146.68',1157704734,1,0,1,1,1,1,'','','Mario,\n\nProbado con FWH 2.7 y funciona correctamente.','',0,'AIA=','1yo1osty',1,0,'',2,0,0),(18528,4095,6,2,0,'87.218.146.68',1157704814,1,0,1,1,1,1,'','','Jose Luis,\n\nMe alegro de que esté solucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','18xvzk6l',1,0,'',2,0,0),(18529,4065,19,2,0,'87.218.146.68',1157704967,1,0,1,1,1,1,'','','Vista RC1 seems to work fine, though still it is sensibly slower than XP.','',0,'AIA=','2kdxafs5',1,0,'',2,0,0),(18530,4186,6,2,0,'87.218.146.68',1157705098,1,0,1,1,1,1,'','','Prueba a ponerles texto vacio entre comillas \"&lt;espacios&gt;\"','',0,'AIA=','3g4yw5dq',1,0,'',2,0,0),(18531,4184,6,2,0,'87.218.146.68',1157705216,1,0,1,1,1,1,'','','Marcelo,\n\nDesde la versión 2.6 de FWH hay cambios internos hasta la 2.7. Lo idóneo es actualizar FWH para usar el xHarbour más reciente.','',0,'AIA=','3mpdyhvk',1,0,'',2,0,0),(18532,4194,7,449,0,'212.64.224.244',1157705596,1,0,1,1,1,1,'','Menus en dialogos','Antonio,\n\nPodeis mirar porque no se ejecutan las acciones en un menu creado desde un  dialogo ?\n\n[code:utsr0y6r]#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------------------------\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE DIALOG oWnd FROM 0,0 TO 5, 25 TITLE \'Menu en Dialog\'\n\n   ACTIVATE DIALOG oWnd  CENTERED ;\n            ON INIT oWnd&#58;SetMenu&#40; BuildMenu&#40;&#41; &#41;\n\n\nreturn nil\n\n//----------------------------------------------------------------------------\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   DEFINE MENU oMenu RESOURCE 102\n\n   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo&#40; &quot;First&quot; &#41;\n\n   REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo&#40; &quot;Second&quot; &#41;\n\nreturn oMenu\n\n//----------------------------------------------------------------------------[/code:utsr0y6r]\n\nFichero *.rc\n[code:utsr0y6r]#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\n#define I_IMAGENONE             &#40;-2&#41;\n#define IDS_HELP      104\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n   102, 2,\n   I_IMAGENONE, 110, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 202, 0, 0,\n   I_IMAGENONE, 120, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 203, 0, 0,\nEND\n#endif\n\nSTRINGTABLE DISCARDABLE\nBEGIN\n   202 &quot;First&quot;\n   203 &quot;Second&quot;\nEND\n\n102 MENU DISCARDABLE\nBEGIN\n    MENUITEM &quot;&quot;, 110\n    MENUITEM &quot;&quot;, 120\nEND[/code:utsr0y6r]\n\nGracias','',0,'AIA=','utsr0y6r',1,0,'',449,0,0),(18533,4182,3,473,0,'81.83.209.5',1157706310,1,0,1,1,1,0,'','','Thanks Antonio,\n\nThis is already a big step. \n\nI set up a test app to try this.\n\nBut then the next step is also dificult in FW\n\nOnce I\'ve selected a treathment (from a listbox) I click on a zone in a tooth.\n\nThe zone will be detected by the background bitmap. Then this zone has to be colored in the foreground bitmap in the color corresponding with the treathment.\n\nIs there a way to acces the bitmap in memory and to refresh it ?','',0,'AIA=','31t2mnl2',1,0,'',473,0,0),(18534,4183,3,49,0,'62.13.172.78',1157706374,1,0,1,1,1,1,'','','I have compiled the FSDI 2006 but there are many functions...\nsend me your source files fsdi if you can compiled  and run it\n\n[1]:iLink32.Exe -Gn -aa -Tpe -s @FSDI2006.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_SETWINCOORS\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ\nError: Unresolved external \'_HB_FUN_GOWEB\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ\nError: Unresolved external \'_HB_FUN_GETWINCOORS\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ\nError: Unresolved external \'_HB_FUN_DB_OPEN\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\PCUSTOMER.OBJ\nError: Unresolved external \'_HB_FUN_UT_BRWROWCONFIG\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\TFSDI.OBJ\nError: Unresolved external \'_HB_FUN_REFRESHCONT\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\PCUSTOMER.OBJ\nError: Unresolved external \'_HB_FUN_HB_CODEPAGE_ESWIN\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ','',0,'','k307dbms',1,0,'',49,0,0),(18535,4169,4,2,0,'87.218.146.68',1157708419,1,0,1,1,1,1,'','','Maurizio,\n\nIf you test this sample on FWPPC, you will see if works ok with no problems at all:\n[code:darfmfrj]\n#include &quot;FWCE&#46;ch&quot; \n\nfunction Main&#40;&#41;\n\n   WSAStartup&#40;&#41;\n   \n   MsgInfo&#40; GetHostName&#40;&#41;, GetHostByAddress&#40; &quot;127&#46;0&#46;0&#46;1&quot; &#41; &#41;\n   \n   WSACleanUp&#40;&#41;\n   \nreturn nil\n[/code:darfmfrj]','',0,'AIA=','darfmfrj',1,0,'',2,0,0),(18536,4182,3,2,0,'87.218.146.68',1157708696,1,0,1,1,1,1,'','','Willy,\n\n&gt; Is there a way to acces the bitmap in memory and to refresh it ?\n\nYou may paint a transparent bitmap on top of the dental set bitmap.\n\nYou can have a bitmap for each dental area to paint. Painting them transparently on the set bitmap will provide the desired effect.','',0,'AIA=','1bidcsgb',1,0,'',2,0,0),(18537,4183,3,2,0,'87.218.146.68',1157708817,1,0,1,1,1,1,'','','What is FSDI ?','',0,'AIA=','1rnnn17n',1,0,'',2,0,0),(18538,4183,3,308,0,'84.148.22.127',1157711513,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:2sldrr74]I have compiled the FSDI 2006 but there are many functions...\nsend me your source files fsdi if you can compiled  and run it\n\n[1]:iLink32.Exe -Gn -aa -Tpe -s @FSDI2006.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_SETWINCOORS\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ\nError: Unresolved external \'_HB_FUN_GOWEB\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ\nError: Unresolved external \'_HB_FUN_GETWINCOORS\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ\nError: Unresolved external \'_HB_FUN_DB_OPEN\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\PCUSTOMER.OBJ\nError: Unresolved external \'_HB_FUN_UT_BRWROWCONFIG\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\TFSDI.OBJ\nError: Unresolved external \'_HB_FUN_REFRESHCONT\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\PCUSTOMER.OBJ\nError: Unresolved external \'_HB_FUN_HB_CODEPAGE_ESWIN\' referenced from C:\\WORK\\PRG\\FSDI2006\\OBJ\\MAIN.OBJ[/quote:2sldrr74]\n\nSilvio,\n\nplease look at your eMail.\n\nRegards, Norbert','',0,'gA==','2sldrr74',1,0,'',308,0,0),(18539,4123,6,92,0,'213.96.45.9',1157712781,1,0,1,1,1,0,'','','[quote=&quot;Baxajaun&quot;:2ts5hul5]Carlos,\n\nde la documentación de blat:\n\nBlat does not need to be installed!\nAll the \'Blat -install\' command does is store various parameters in the Windows Regestry!\n \nNo necesita ser instalado. Y lo que hace blat -install es alamacenar varios parámetros en el registro de windows, almacenará los parámetros que le pasemos, como nombre del servidor, cuenta de correo que envia los mensajes, puerto utilizado, etc ...\n\nSaludos[/quote:2ts5hul5]\n\nEntiendo que con las opciones que tiene Blat, es posible realizar un \'-install\' de datos falsos y al momento de usar el Blat.exe especificar un servidor y un mail correctos. Es así?\nAun así, no me gusta realizar un \'-install\' y preferiría no hacerlo.\nSigo en ello (tengo poco tiempo)\n\nPor cierto, como puedo lanzar un fichero BAT desde FiveWin sobre W2000 o XP? Con Shellexecute no lo consigo.\n\nSaludos y gracias\nCarlos G.','',0,'gA==','2ts5hul5',1,0,'',92,0,0),(18540,4194,7,2,0,'87.218.146.68',1157713754,1,0,1,1,1,1,'','','Carles,\n\nArreglado. Ya hay un nuevo build de FWPPC para descargar.\n\nGracias!','',0,'gA==','pike8u7v',1,0,'',2,0,0),(18541,4172,3,217,0,'200.159.120.34',1157713829,1,0,1,1,1,0,'','Re: OLE / ActiveX and Word.Application (disable Save command','Enrico,\n\nI have Office XP 2003 and I found only VBAOWS10.chm  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nIt haven\'t any about word.application...\n\nRegards,\nMaurilio','',0,'gA==','21puu3mv',1,0,'',217,0,0),(18542,4183,3,2,0,'87.218.146.68',1157714178,1,0,1,1,1,1,'','','I guess it is José Luis Sánchez FSDI <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1jkm60df',1,0,'',2,0,0),(18543,4183,3,217,0,'200.159.120.34',1157714323,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:203ckix8]What is FSDI ?[/quote:203ckix8]\n\nAntonio,\n\n[url:203ckix8]http&#58;//www&#46;avemundi&#46;com[/url:203ckix8]\n[url:203ckix8]http&#58;//www&#46;avemundi&#46;com/archivos/fsdi2006&#46;zip[/url:203ckix8]\n\n\nRegards\nMaurilio[/url]','',0,'kA==','203ckix8',1,0,'',217,0,0),(18544,4172,3,6,0,'82.57.162.96',1157714815,1,0,1,1,1,1,'','Re: OLE / ActiveX and Word.Application (disable Save command','Then look at MSDN.\n\nEMG','',0,'kA==','1v52987o',1,0,'',6,0,0),(18545,4183,3,49,0,'62.13.172.78',1157714850,1,0,1,1,1,1,'','','dear Maurilio Viana,\nhave you compile fsdi 2006 ?','',0,'kA==','jkvw9r5s',1,0,'',49,0,0),(18546,4185,3,217,0,'200.159.120.34',1157715093,1,0,1,1,1,0,'','','Antonio,\n\nI think Areang refer to Windows TExplorerBar class. This class is used in left side in Explorer (Windows XP) like this [url:15408ws1]http&#58;//www&#46;divil&#46;co&#46;uk/net/controls/navisight/explorerbar&#46;aspx[/url:15408ws1]\n\nBut...\nFWH user can use a similar class made by Paco from Canal Five.\n\nRegards\nMaurilio','',0,'EA==','15408ws1',1,0,'',217,0,0),(18547,4182,3,49,0,'62.13.172.78',1157715494,1,0,1,1,1,1,'','','or YOU must make it :\n[url=http&#58;//img144&#46;imageshack&#46;us/my&#46;php?image=dentaltz6&#46;png:3568cel5][img:3568cel5]http&#58;//img144&#46;imageshack&#46;us/img144/4048/dentaltz6&#46;th&#46;png[/img:3568cel5][/url:3568cel5]\nI can click on each dental with a menu\n\n---------------------------------------------','',0,'GA==','3568cel5',1,0,'',49,0,0),(18548,4183,3,217,0,'200.159.120.34',1157715568,1,0,1,1,1,0,'','','Silvio,\n\nI downloaded FSDI a few days but I don\'t try to compile it yet...\n\nRegards\nMaurilio','',0,'GA==','1uerurto',1,0,'',217,0,0),(18549,4183,3,49,0,'62.13.172.78',1157716014,1,0,1,1,1,1,'','','there was not many functions ....\nand you need vtaskbar of canalfive','',0,'GA==','17i2r7bc',1,0,'',49,0,0),(18550,4157,3,49,0,'62.13.172.78',1157716261,1,0,1,1,1,1,'','','Antonio,\nhere the new files with sample \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02634f4779/SysDateTimePick32.rar.html\">http://hyperupload.com/download/02634f4 ... 2.rar.html</a><!-- m -->\nI cannot compile the class files to lib (xharbour)','',0,'GA==','34812fu4',1,0,'',49,0,0),(18551,4188,6,147,0,'200.45.54.133',1157716452,1,0,1,0,1,1,'','','Armandini, Antonio; gracias','',0,'GA==','gni5i6d2',1,0,'',147,0,0),(18552,4136,3,49,0,'62.13.172.78',1157716508,1,0,1,1,1,1,'','','Dear Antonio,\nAny Idea for wbrowse of hernan ?\n\n--------------------------------------------','',0,'GA==','ezqcex1d',1,0,'',49,0,0),(18553,4185,3,49,0,'62.13.172.78',1157716663,1,0,1,1,1,1,'','','YES \nU can Use Vtaskbar class of Paco ...\nIt run ok','',0,'GA==','153iaczi',1,0,'',49,0,0),(18554,4195,3,49,0,'62.13.172.78',1157716952,1,0,1,1,1,1,'','tole on xp','this code :\n[code:1vews36w]\nFunction stampa_affidamento&#40;&#41;\nLocal cdoc&#58;= &quot;c&#58;\\maga\\affida&#46;doc&quot;\noWord = TOleAuto&#40;&#41;&#58;New&#40; &quot;Word&#46;Application&quot; &#41;\noDoc = oWord&#58;Documents&#58;Open&#40; cDoc &#41;\noDoc&#58;Select&#40;&#41;\noSel = oWord&#58;Selection\nWORDREPLACE&#40; oSel, &quot;&lt;protocollo&gt;&quot;, &#40;oDCom&#41;-&gt;NumDoc &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;data&gt;&quot;, DToC&#40;&#40;oDCom&#41;-&gt;FecDoc&#41; &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;fornitore&gt;&quot;, &#40;oDCom&#41;-&gt;RazSoc &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;servizio&gt;&quot;, &#40;oDCom&#41;-&gt;Concep &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;costo&gt;&quot;, Desp_Imp&#40;&#41; &#41;\n// vederla in video e modificarla e salvarla\noDoc&#58;save&#40;&quot;c&#58;\\maga\\aff_&quot;+&#40;oDCom&#41;-&gt;NumDoc+&quot;&#46;doc&quot;&#41;\n*oDoc&#58;save&#40;&quot;c&#58;\\maga\\aff_&quot;+alltrim&#40;&#40;oDCom&#41;-&gt;RazSoc&#41;+&quot;_&quot;+&#40;oDCom&#41;-&gt;NumDoc+&quot;_&quot;+dtos&#40;date&#40;&#41;&#41;+&quot;&#46;doc&quot;&#41;\noWord&#58;Visible=&#46;t&#46;\n//stampa\n*oDoc&#58;PrintOut&#40; &#46;F&#46; &#41;\n*oDoc&#58;Close&#40; 0 &#41;\n*oWord&#58;Quit&#40;&#41;\nreturn nil[/code:1vews36w]\n\n\nit create a doc and replace variables  but i make some error and the create the doc with xp wwinord 2003\nWhy ?\nOn win 2000  ( office 2000) run ok','',0,'AIA=','1vews36w',1,0,'',49,0,0),(18555,4196,3,49,0,'62.13.172.78',1157717470,1,0,1,1,1,1,'','TEXT ON BITMAP','I have problem with a txt\n[code:sqfyqq5q]\n @ 0, 0 BITMAP oHeader OF oAgenda FILE &quot;&#46;\\bitmaps\\zonelab&#46;bmp&quot; NOBORDER PIXEL SIZE 1572, 80\n                           oHeader&#58;oBrush &#58;= oBrush\n\n                           oHeader&#58;bPainted = &#123; || SetBkMode&#40; oHeader&#58;hDC, TRANSPARENT &#41;,;\n                                                   SetTextColor&#40;oHeader&#58;hDC,CLR_WHITE&#41;,;\n                                                   TextOut&#40; oBmp&#58;hDC, 5, 5, &quot;V D S W I N   &quot; &#41; &#125;[/code:sqfyqq5q]\n\nI can see the bitmap but I cannot see the text on bitmap\nCan you help me pls.\n-----------------------------------------------------------------------','',0,'AIA=','sqfyqq5q',1,0,'',49,0,0),(18556,4197,3,49,0,'62.13.172.78',1157718621,1,0,1,1,1,1,'','How print a listbox with array','I use on my application a listbox with  setarray()\nwhen I want print all the arrays and I insert on menu  an action\n\n[code:po825942]\nACTION &#40;oBRW&#58;Report&#40;&quot;prova di stampa&quot;, &#46;t&#46; &#41; &#41;\n\n[/code:po825942]\n\nit make an error\n\n Application\n===========\n   Path and name: C:\\work\\PRG\\MOSCIANO\\PcWin.Exe (32 bits)\n   Size:   635,904 bytes\n   Time from start: 0 hours 0 mins 5 secs \n   Error occurred at: 08/09/2006, 14:28:11\n   Error description: Error BASE/1002  Alias does not exist: ARRAY\n\nStack Calls\n===========\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:REPORT(2545)\n   Called from: AGENDA.prg =&gt; (b)AGENDA(175)\n   Called from: VMenu.prg =&gt; TVMENU:EVALACTION(1662)\n   Called from: VMenu.prg =&gt; TVMENU:LBUTTONUP(1364)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: VMenu.prg =&gt; TVMENU:HANDLEEVENT(858)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: CAWIND.PRG =&gt; CAWIND(241)[code:po825942][/code:po825942]','',0,'AIA=','po825942',1,0,'',49,0,0),(18557,4189,6,184,0,'201.222.6.66',1157719807,1,0,1,1,1,0,'','','Antonio.\n\nhice lo que dijiste añadi el parametro nComm a setcommstate y aun recibo basura, te recuerdo que si primero ejecuto alguna otra aplicación que lea el puerto en 16 0 32 bits, despues en la misma sesion de windows funciona perfectamente tanto el programa que estoy haciendo como el ejemplo testcom3.\n\n\nmuchas gracias.','',0,'AIA=','rsrrtg0v',1,0,'',184,0,0),(18558,4189,6,184,0,'201.222.6.66',1157720043,1,0,1,1,1,0,'','','Javier \n\nsi he inicializado el puerto, de hecho el mismo programa lo he compilado con clipper y con xharbour, y ambos funcionan solo es que el de 32 bits lee basura hasta que uso el puerto primero con otro programa, luego funciona perfecto. \n\nsaludos y gracias por el interes.','',0,'AIA=','2j6n7t9z',1,0,'',184,0,0),(18559,4192,4,18,0,'200.67.188.236',1157722163,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:16130r3v]Vikthor,\n\nThat function is never called as it is inside an ifdef:\n\n#ifdef FWPLUS\n\nIt belonged to a third party lib.[/quote:16130r3v]\n\njojojojo , I saw , I saw\n\nThanks Antonio','',0,'gA==','16130r3v',1,0,'',18,0,0),(18560,4194,7,18,0,'200.67.188.236',1157722856,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1w731ipc]Carles,\n\nArreglado. Ya hay un nuevo build de FWPPC para descargar.\n\nGracias![/quote:1w731ipc]\n\n\nAntonio :\n\nDe momento el uso de menus utiliza recursos, para poder crearlos desde código fuente qué hace falta ?','',0,'gA==','1w731ipc',1,0,'',18,0,0),(18561,4180,2,542,0,'88.1.174.193',1157724186,1,0,1,1,1,0,'','','Gracias Antonio asi lo hare, un saludo','',0,'gA==','169s4esr',1,0,'',542,0,0),(18562,4172,3,18,0,'200.67.188.236',1157724202,1,0,1,1,1,1,'','Re: OLE / ActiveX and Word.Application (disable Save command','[quote=&quot;Maurilio Viana&quot;:2opx5h8o]Hi!\n\nHow can I do with ActiveX / OLE to disable Save, Save As and Print options in \"Word.Applications\"?\nI must open a .doc and the user can only read. He can\'t save changes or print...\n\nWhere I can search for complete list of methods and datas?\n\nRegards!\nMaurilio[/quote:2opx5h8o]\n\nMaurilio :\n\nTry to open as ReadOnly <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[code:2opx5h8o]\n      lReadOnly &#58;= TRUE\n      oDocs         &#58;= oWord&#58;Get&#40; &quot;Documents&quot;&#41;\n      oActiveDoc  &#58;= oDocs&#58;Open&#40; cFileName , , lReadOnly &#41;\n[/code:2opx5h8o]','',0,'gIA=','2opx5h8o',1,0,'',18,0,0),(18563,4182,3,473,0,'81.83.209.5',1157724268,1,0,1,1,1,0,'','','Hello,\n\nI\'ve done some tests.\n\nI did what you said with a screen designed in Borland Resource Workshop.\n\nIt works fine when I place the two bitmaps on the screen - both visible.\n\nWhen I make the colored bitmap invisible with \n| NOT WS_VISIBLE\nIt did not work anymore.\n\nI tried to be smart and placed the second bitmap out the range of the screen.\nNo succes.\n\nI placed the second bitmap after the first (by setting the order in workshop)\nNo succes.\n\nIs it possible that your solution only works without workshop.\n\nThanks,\n\nWilly Hermans','',0,'gIA=','1hj12jfc',1,0,'',473,0,0),(18564,4172,3,217,0,'200.159.120.34',1157724408,1,0,1,1,1,0,'','Re: OLE / ActiveX and Word.Application (disable Save command','Thanks, Vikthor!!!\n\nI\'ll try it!\n\nRegards\nMaurilio','',0,'gIA=','2r8dsfe8',1,0,'',217,0,0),(18565,4195,3,18,0,'200.67.188.236',1157724493,1,0,1,1,1,1,'','Re: tole on xp','[quote=&quot;Silvio&quot;:1vp8e2b0]this code :\n[code:1vp8e2b0]\nFunction stampa_affidamento&#40;&#41;\nLocal cdoc&#58;= &quot;c&#58;\\maga\\affida&#46;doc&quot;\noWord = TOleAuto&#40;&#41;&#58;New&#40; &quot;Word&#46;Application&quot; &#41;\noDoc = oWord&#58;Documents&#58;Open&#40; cDoc &#41;\noDoc&#58;Select&#40;&#41;\noSel = oWord&#58;Selection\nWORDREPLACE&#40; oSel, &quot;&lt;protocollo&gt;&quot;, &#40;oDCom&#41;-&gt;NumDoc &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;data&gt;&quot;, DToC&#40;&#40;oDCom&#41;-&gt;FecDoc&#41; &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;fornitore&gt;&quot;, &#40;oDCom&#41;-&gt;RazSoc &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;servizio&gt;&quot;, &#40;oDCom&#41;-&gt;Concep &#41;\nWORDREPLACE&#40; oSel, &quot;&lt;costo&gt;&quot;, Desp_Imp&#40;&#41; &#41;\n// vederla in video e modificarla e salvarla\noDoc&#58;save&#40;&quot;c&#58;\\maga\\aff_&quot;+&#40;oDCom&#41;-&gt;NumDoc+&quot;&#46;doc&quot;&#41;\n*oDoc&#58;save&#40;&quot;c&#58;\\maga\\aff_&quot;+alltrim&#40;&#40;oDCom&#41;-&gt;RazSoc&#41;+&quot;_&quot;+&#40;oDCom&#41;-&gt;NumDoc+&quot;_&quot;+dtos&#40;date&#40;&#41;&#41;+&quot;&#46;doc&quot;&#41;\noWord&#58;Visible=&#46;t&#46;\n//stampa\n*oDoc&#58;PrintOut&#40; &#46;F&#46; &#41;\n*oDoc&#58;Close&#40; 0 &#41;\n*oWord&#58;Quit&#40;&#41;\nreturn nil[/code:1vp8e2b0]\n\n\nit create a doc and replace variables  but i make some error and the create the doc with xp wwinord 2003\nWhy ?\nOn win 2000  ( office 2000) run ok[/quote:1vp8e2b0]\n\n\nSilvio , Why not use TWord Class ?\n\n[code:1vp8e2b0]\nMETHOD Cotizacion&#40;&#41; CLASS TCaptura\n   LOCAL cCot &#58;= GetApp&#40;&#41;&#58;cRuta+&quot;Template\\C&quot;+cTempFile&#40;&#41;+&quot;&#46;doc&quot;\n&#46;\n&#46;\n&#46;\n&#46;\n&#46;\n   cFile &#58;= GetApp&#40;&#41;&#58;cRuta+&quot;Template\\Cotiza&#46;doc&quot;\n   __CopyFile&#40; cFile , cCot &#41;\n   IF &#58;&#58;oWord&#58;IsVisible&#40;&#41;\n      &#58;&#58;oWord&#58;Hide&#40;&#41;\n   ENDIF\n   &#58;&#58;oWord&#58;OpenDoc&#40; cCot &#41;\n   &#58;&#58;oWord&#58;Replace&#40; &quot;&#91;Nom&#93;&quot;  , cNombre &#41;\n   &#58;&#58;oWord&#58;Replace&#40; &quot;&#91;Raz&#93;&quot;  , cRazon &#41;\n   &#58;&#58;oWord&#58;Replace&#40; &quot;&#91;Dom&#93;&quot;  , cDom &#41;\n   &#58;&#58;oWord&#58;Replace&#40; &quot;&#91;Col&#93;&quot;  , cCol &#41;\n   &#58;&#58;oWord&#58;Replace&#40; &quot;&#91;CP&#93;&quot;   , cCp &#41;\n   &#58;&#58;oWord&#58;Replace&#40; &quot;&#91;Pob&#93;&quot;  , cPob &#41;\n   &#58;&#58;oWord&#58;Replace&#40; &quot;&#91;cCod&#93;&quot;  , Alltrim&#40; Str&#40; &#58;&#58;aVars&#91;  2 , 1 &#93; &#41; &#41; &#41;\n\n   &#58;&#58;oWord&#58;Visualizar&#40;&#41;\nRETURN NIL\n\n[/code:1vp8e2b0]','',0,'gIA=','1vp8e2b0',1,0,'',18,0,0),(18566,4195,3,49,0,'62.13.172.78',1157724932,1,0,1,1,1,1,'','','because with tword clas not run ok the possibility to insert a logo into title','',0,'gIA=','ax1v0igb',1,0,'',49,0,0),(18567,4195,3,18,0,'200.67.188.236',1157726078,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:39fp5px3]because with tword clas not run ok the possibility to insert a logo into title[/quote:39fp5px3]\n\nSilvio :\n\nsee this code , it\'s works fine to me <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nMethod AddImagen()\n\n[code:39fp5px3]\noWord &#58;= TWord&#40;&#41;&#58;New&#40;&#41;                  // Instancia la Clase Word\ncFileWord &#58;= cGetFile32&#40;&quot;c&#58;\\*&#46;doc&quot;&#41;     // Buscar el Docuemento\noWord&#58;OpenDoc&#40; cFileWord &#41;              // Abre el Documento\noWord&#58;Visualizar&#40;&#41;                      // Visualizar Word\n\noWord&#58;Write&#40; cTitulo , &quot;Times New Roman&quot;, 20 , &#46;T&#46; ,  &#46;F&#46; , Rgb&#40; 255 , 0 , 0  &#41; &#41;\noWord&#58;JustificaDoc&#40; 1 &#41;\n\noWord&#58;HeaderFooter&#40; 9 &#41; ; oWord &#58;Write&#40; &quot;Creswin + Word&quot; , &quot;Tahoma&quot;, 10 , &#46;F&#46; ,  &#46;F&#46;  &#41;\noWord&#58;AddImagen&#40; 1 , 1 , 50 , 50 , &quot;c&#58;\\creswin\\skins\\creswin&#46;bmp&quot; &#41;\n\noWord&#58;HeaderFooter&#40; 10 &#41; ; oWord &#58;Write&#40; &quot;Creswin Support&quot; , &quot;Tahoma&quot;, 10 , &#46;T&#46; ,  &#46;T&#46; , Rgb&#40; 255,255,0&#41; &#41;\noWord&#58;JustificaDoc&#40; 2 &#41;\noWord&#58;HeaderFooter&#40; 0 &#41;\n\noWord&#58;OpenDataSource&#40;&quot;c&#58;\\Browse&#46;xls&quot;&#41;     // Abre el origen de datos para la combinación de correspondencia\noWord&#58;ReplaceField&#40; &quot;#Nombre#&quot;, &quot;Nombre&quot;  &#41;       // Cambia el Template por el campo de correspondencia\noWord&#58;ReplaceField&#40; &quot;#Domicilio#&quot;, &quot;Domicilio&quot;  &#41; // Cambia el Template por el campo de correspondencia\noWord&#58;ReplaceField&#40; &quot;#Colonia#&quot;, &quot;Colonia&quot;  &#41;     // Cambia el Template por el campo de correspondencia\n\n*oWord&#58;oMailMerge&#58;Set&#40; &quot;Destination&quot; , 0 &#41;    // Nuevo documento\n//oWord&#58;oMailMerge&#58;Set&#40; &quot;Destination&quot; , 1 &#41;    // A la impresora\n\n//  Descomentar esta parte para probar el envio de Emails\noWord&#58;oMailMerge&#58;Set&#40; &quot;Destination&quot; , 2 &#41;    // Por E-Mail\noWord&#58;oMailMerge&#58;Set&#40; &quot;MailAddressFieldName&quot; , &quot;Email2&quot; &#41;    // Indica el campo que contiene el email\noWord&#58;oMailMerge&#58;Set&#40; &quot;MailAsAttachment&quot; , &#46;T&#46; &#41;           // Como Adjunto o parte del cuerpo TRUE = Adjunto\noWord&#58;oMailMerge&#58;Set&#40; &quot;MailSubject&quot; , &quot;Envio de correspondencia desde &#46;&#46;&#46;&#46;&#46;&#46;&quot; &#41;\n\noWord&#58;oMailMerge&#58;Invoke&#40; &quot;Execute&quot; &#41;\n\n\nreturn\n\n[/code:39fp5px3]','',0,'gIA=','39fp5px3',1,0,'',18,0,0),(18568,4195,3,49,0,'62.13.172.78',1157726733,1,0,1,1,1,1,'','','I tryed it last two year the I must use ole ....','',0,'gIA=','rqer8ltc',1,0,'',49,0,0),(18569,4195,3,49,0,'62.13.172.78',1157726821,1,0,1,1,1,1,'','','perhaps I have a old wrong version of tword class \nwhere i can download it ?','',0,'gIA=','1d0onopq',1,0,'',49,0,0),(18570,4182,3,473,0,'81.83.209.5',1157727958,1,0,1,1,1,0,'','','Antonio,\n\nI do not find anything in the help files to display a bitmap over another.\n\nWhere can I find it.\n\nThanks,\n\nWilly Hermans.','',0,'gIA=','36y2liq7',1,0,'',473,0,0),(18571,4198,6,121,0,'189.138.25.23',1157728724,1,0,1,1,1,1,'','clase outlook','Compile el ejemplo testoutl.prg\ny funciono bien pero...\nlos \"prompts\" de los bitmaps se muestran en un color\nmuy tenue,  hay forma de cambiarl el color y el font ?\n\n\nSaludos','',0,'gIA=','23eml6rx',1,0,'',121,0,0),(18572,4183,3,439,0,'190.0.143.140',1157732683,1,0,1,1,1,1,'','VTaskbar de Canalfive','Amigos de Foro,\n\nHe escrito a Paco sobre este asunto y me ha dicho que esta clase quedará libre, es decir gratuita en breve.\n\nActualmente me ha dicho que la ha puesto en manos del Gurú Juan Carlos Salinas Ojeda, seguramente presente en todos por su magnífica aplicación VerCE, muy utilizada en nuestro medio y de hecho por mí.\n\nMe puse en contacto con él y me ha pedido paciencia........\n\nTengamos paciencia y estemos pendientes.\n\nOjalá pronto contemos con esta clase, ya que de hecho de momento no la he podido conseguir ni pagando.','',0,'gIA=','upz7ka4j',1,0,'',439,0,0),(18573,4194,7,2,0,'87.218.146.68',1157733582,1,0,1,1,1,1,'','','Vikthor,\n\nAún no sabemos cómo crearlos desde código fuente. Parece que no se puede, ó por lo menos, no está documentado.','',0,'gIA=','1arapinw',1,0,'',2,0,0),(18574,4182,3,2,0,'87.218.146.68',1157733750,1,0,1,1,1,1,'','','Willy,\n\nHide the second bitmap from the ON INIT clause of the DIALOG:\n\nACTIVATE DIALOG oDlg ON INIT oBmp2:Hide()\n\nDon\'t use any special flags at the resources workshop.','',0,'gIA=','2f454gab',1,0,'',2,0,0),(18575,4182,3,2,0,'87.218.146.68',1157734081,1,0,1,1,1,1,'','','Willy,\n\noBmp1:bPainted = { | hDC | TransBmp( oBmpX:hBitmap, oBmp1:nWidth(), oBmp1:nHeight(), nClrTransparent, hDC, 0, 0, oBmp1:nWidth(), oBmp1:nHeight() }','',0,'gIA=','2w4wvcev',1,0,'',2,0,0),(18576,4196,3,2,0,'87.218.146.68',1157734229,1,0,1,1,1,1,'','','Silvio,\n[code:3g11b87m]\noHeader&#58;bPainted = &#123; | hDC | SetBkMode&#40; hDC, TRANSPARENT &#41;,; \n                                                   SetTextColor&#40; hDC,CLR_WHITE&#41;,; \n                                                   TextOut&#40; hDC, 5, 5, &quot;V D S W I N   &quot; &#41; &#125;\n[/code:3g11b87m]','',0,'AIA=','3g11b87m',1,0,'',2,0,0),(18577,4192,4,2,0,'87.218.146.68',1157734306,1,0,1,1,1,1,'','','You are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2tpukd8d',1,0,'',2,0,0),(18578,4189,6,2,0,'87.218.146.68',1157734462,1,0,1,1,1,1,'','','Simón,\n\nVeo que estás usando fwh (junio 2004), necesitas una versión más actualizada.\n\nSí solo necesitas las comunicaciones, envíanos un email y te enviamos un comm.obj más actualizado.','',0,'AIA=','1oqlqwwb',1,0,'',2,0,0),(18579,4085,2,2,0,'87.218.146.68',1157734637,1,0,1,1,1,1,'','','Puedes modificar la función ErrorSys() que usa FW (source\\function\\errsysw.prg) para que haga lo que necesites.','',0,'AIA=','3a8qisxi',1,0,'',2,0,0),(18580,4143,1,2,0,'87.218.146.68',1157734697,1,0,1,1,1,1,'','','Thanks for the info,','',0,'AIA=','3i1t0jne',1,0,'',2,0,0),(18581,4199,6,376,0,'201.230.208.217',1157737323,1,0,1,1,1,0,'','Enlace de TGSAY.zip.html no funciona','Amigos\n\nEl enlace del Foro Utiles, para Say Sensible de Manuramos,  <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/c35ea689/TGSAY.zip.html\">http://hyperupload.com/download/c35ea689/TGSAY.zip.html</a><!-- m --> no está funcionando.\n\nAcaso el comportamiento de HyperUpload es de desactivarlos al pasar un tiempo ?','',0,'AIA=','321dbp1p',1,0,'',376,0,0),(18582,4168,2,9,0,'85.59.33.92',1157740323,1,0,1,1,1,1,'','','Asi es como yo lo hago:\n\nIF FIELDPOS(\"APELLIDOS\") = 0 \n   // el campo no existe\n   FUNCION_ACTUALIZAR_ESTRUCTURA()\nENDI','',0,'AIA=','3r11a6c4',1,0,'',9,0,0),(18583,4200,4,267,0,'200.208.238.2',1157745401,1,0,1,1,1,1,'','ZIP files','Hi,\n\nHow to use archives ZIP in the FWPPC?','',0,'AIA=','2f4flc84',1,0,'',267,0,0),(18584,4201,6,431,0,'200.8.68.96',1157751119,1,0,1,1,1,1,'','WBrowse Hernan 17 FTDN Agosto','Saludos,\n\nSoy usuario de FTDN con la ultima version ya pude compilar y ejecutar pero como no pude generar de nuevo la lib del wbrowse y como uso verce lo que hice fue añadir los PRG y el wbrwline.c al proyecto y todo comenzo bien, ahora cuando estoy intentando mostrar un archivo de texto via browse con  oLbx:SetTXT( cArchivo ) alli me revienta la aplicacion generandome el siguiente error \nError description: Error BASE/1092  Argument error: MIN\n   Args:\n     [   1] = N   1\n     [   2] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; MIN(0)\n   Called from:  =&gt; TWBROWSE:DEFAULT(1820)\n \nsi alguien pudo crear la LIB con esta version se lo agradeceria \nesto es cuando intento ver un archivo de texto por el browse ya que con registros dbf y arreglos todo ok.\n\nuso Harbour Compiler Alpha build 46.2 (Flex)\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nFtdn Agosto \n\nGracias.','',0,'','2ztlwgdp',1,0,'',431,0,0),(18585,4192,4,18,0,'200.67.188.236',1157752070,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:od6yhwgs]You are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:od6yhwgs]\n\nAntonio :\n\nEn FWH así como para Pocket PC, la ubicación de los controles en una Ventana y en Dialogo no son iguales , nuestro software utiliza mucho la creación de Dialgos y Ventanas desde código fuente , ya había resuelto que los controles dentro de dialogos se ubicaran correctamente en la version FWH , y sólo me quedaba pendiente resolver la ubicación de los controles dentro de los dialgoos en la FWPPC.\n¡¡ Ese detalle ya esta resuelto !!!\n\nPero me queda la duda de por que tienen ese comportamiento.','',0,'gA==','od6yhwgs',1,0,'',18,0,0),(18586,4193,3,138,0,'201.128.111.188',1157754364,1,0,1,1,1,1,'','','FiveWin\'s Encrypt and Decrypt functions are fine if you are only going to encrypt character fields (they don\'t  support encrypting of date, numeric, or logical fields).\n\nIf you want a good encrypting free tool take a look to the Advantage Local Server functions ADSEnableEncrypt()','',0,'gA==','38vpfapz',1,0,'',138,0,0),(18587,4185,3,138,0,'201.128.111.188',1157754718,1,0,1,1,1,1,'','','That control is not a native FiveWin control, but you can use CanalFive\'s VTaskBar control, looks awsome!!!!!\n\n[img:3sjbbkho]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/catalum60&#46;jpg[/img:3sjbbkho]','',0,'CA==','3sjbbkho',1,0,'',138,0,0),(18588,4192,4,2,0,'87.218.146.68',1157757113,1,0,1,1,1,1,'','','Vikthor,\n\nBecause windows measurements are in pixels, and dialogs measurements are in \"dialog base units\". Its a Windows API built-in behavior.\n\nYou may use GetDialogBaseUnits() to get the ratio between pixels and \"base units\". From the Windows API docs:\n\n&gt;&gt;\nThe GetDialogBaseUnits function returns the dialog box base units used by Windows to create dialog boxes. Both Windows and applications use these units to convert the width and height of dialog boxes and controls from dialog units, as given in dialog box templates, to pixels, and vice versa.\n&gt;&gt;','',0,'CA==','i1obq03q',1,0,'',2,0,0),(18589,4200,4,2,0,'87.218.146.68',1157757285,1,0,1,1,1,1,'','','Vilian,\n\nWe need to locate a ZIP DLL for Windows Mobile.','',0,'CA==','21mjybbd',1,0,'',2,0,0),(18590,4201,6,2,0,'87.218.146.68',1157757371,1,0,1,1,1,1,'','','Mario,\n\nQue código hay en la línea 1820 ?','',0,'CA==','zgkmbfa5',1,0,'',2,0,0),(18591,4199,6,2,0,'87.218.146.68',1157757498,1,0,1,1,1,1,'','','Armando,\n\nEn principio hyperupload no borra los ficheros, pero es cierto que ya nos hemos encontrado con este problema varias veces.','',0,'CA==','2zq743vq',1,0,'',2,0,0),(18592,4197,3,2,0,'87.218.146.68',1157757641,1,0,1,1,1,1,'','','Silvio,\n\nIs it Hernan\'s browse ?','',0,'CA==','2dr6yrw6',1,0,'',2,0,0),(18593,4191,2,147,0,'190.7.30.35',1157758785,1,0,1,0,1,1,'','','Antonio; muhas gracias.\nHe realizado los cambios. Ahora ya no pierde recursos; aunque afecta al proceso de reeconstruir el arbol. Los íconos [+] y el de rama abierta son reemplzados por uno de los bmp que uso. Por favor miralo en el adjunto\n\n[url:1rmygfst]http&#58;//hyperupload&#46;com/download/0233d3d790/Tree&#46;zip&#46;html[/url:1rmygfst]\n\nEl código TListLink quedó así:\n[code:1rmygfst]\nMETHOD End&#40;&#41; CLASS TLinkList\n\n   local oItem &#58;= &#58;&#58;oFirst\n   local aBmps, n\n\n   while oItem != nil\n      oItem&#58;End&#40;&#41;\n      oItem = If&#40; oItem&#58;oTree != nil, oItem&#58;oTree&#58;oFirst, oItem&#58;oNext &#41;\n   end\n\n   aBmps = GetTreeBmps&#40;&#41;\n   if ValType&#40; aBmps &#41; == &quot;A&quot;\n      for n = 1 to Len&#40; aBmps &#41;\n         DeleteObject&#40; aBmps&#91; n &#93; &#41;\n      next\n   endif\n   \n   TreeFree&#40;&#41;\n   \nreturn nil\n[/code:1rmygfst]\n\nMi código:\n[code:1rmygfst]\nbArbol&#58;= &#123;|| if&#40; Empty&#40;oTree&#41;,, oTree&#58;End&#40;&#41; &#41;, ;\n                CursorWait&#40;&#41;                    , ;\n                oTree&#58;= TreeBegin&#40;,&#41;            , ;\n                dbEval&#40;&#123;|| cClaEnt&#58;= Cuentas-&gt;Cla_Bn, ;\n                           _TreeItem&#40; &quot; &quot;+Cuentas-&gt;Nombre,,,oVP&#58;cDirBmp+&quot;\\Entidad&#46;bmp&quot;,oVP&#58;cDirBmp+&quot;\\AbrirEnt&#46;bmp&quot;,&#46;F&#46;&#41;, ;\n                           aArrCtas&#58;= Cuentas-&gt;ArrCtas, ;\n                           TreeBegin&#40;,&#41;               , ;\n                           aEval&#40; aArrCtas, &#123;|a| _TreeItem&#40; &quot; &#91;&quot;+cClaEnt+&quot;&#93;  &quot;+a&#91;xNomSbCta&#93; ;\n                                                            ,,,oVP&#58;cDirBmp+&quot;\\AbrirCta&#46;bmp&quot;,,&#46;F&#46;&#41; &#125; &#41;, ;\n                           SysRefresh&#40;&#41; , ;                                                            \n                           TreeEnd&#40;&#41; &#125; &#41;, ;\n                TreeEnd&#40;&#41;, ;\n                CursorArrow&#40;&#41; &#125;\n[/code:1rmygfst]','',0,'EIA=','1rmygfst',1,0,'',147,0,0),(18594,4201,6,431,0,'200.8.68.96',1157765979,1,0,1,1,1,1,'','','Antonio, \n\nEn la linea 1820 \n  if lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), WS_VSCROLL ) .or. ;\n      GetClassName( ::hWnd ) == \"ListBox\"\n\n      ::nLen := Eval( ::bLogicLen )\n      If ::bLogicPos == Nil  // CeSoTech\n         DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self  ;\n              [b:3lmy2f3w]  RANGE Min(1, ::nLen), ::nLen[/b:3lmy2f3w]\n      Else\n         DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self RANGE 1, If(::nLen==0,0,100)\n      EndIf\n      ::oVScroll:SetPage( Min( ::nRowCount(), ::nLen - 1 ) )\n\n   endif\n\neste wbrowse lo baje desde la direccion \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026cd92f26/TWBrowse_17-%5Bx%5DHarbour.exe.html\">http://hyperupload.com/download/026cd92 ... r.exe.html</a><!-- m -->\nen la seccion utilidades de este foro con el titulo de Hernan Browse - files.\n\nGracias','',0,'QA==','3lmy2f3w',1,0,'',431,0,0),(18595,4202,6,785,0,'190.64.125.186',1157776331,1,0,1,1,1,0,'','Ejemplo de Outlook en Dialogos desde recursos ?','Amigos:\n\nAlguien tiene un ejemplo que me lo pueda enviar?\n\nMuchas gracias\n\nRuben Fernandez','',0,'QA==','2xtixaav',1,0,'',785,0,0),(18596,4201,6,2,0,'87.218.146.230',1157787465,1,0,1,1,1,1,'','','Mario,\n\nInserta este MsgInfo() para comprobar el valor de ::nLen\n[code:14363837]\nIf &#58;&#58;bLogicPos == Nil // CeSoTech \n   MsgInfo&#40; &#58;&#58;nLen &#41;\n   DEFINE SCROLLBAR &#58;&#58;oVScroll VERTICAL OF Self ; \n      RANGE Min&#40;1, &#58;&#58;nLen&#41;, &#58;&#58;nLen \n[/code:14363837]\ny dinos que valor te aparece. Gracias','',0,'AIA=','14363837',1,0,'',2,0,0),(18597,4182,3,473,0,'81.83.209.5',1157788312,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:goh1u4dv]Willy,\n\nHide the second bitmap from the ON INIT clause of the DIALOG:\n\nACTIVATE DIALOG oDlg ON INIT oBmp2:Hide()\n\nDon\'t use any special flags at the resources workshop.[/quote:goh1u4dv]\n\nAntonio,\n\nThis is the code I tested.\nWhen the colored bitmap is visible its works.\nHowever when it is not visible (hided, outside te range of the form ...) it does not work.\n[b:goh1u4dv]\nFunction Test()\n\n\n   Local oDlg, oBmpColor , oBmpBlackWhite\n\n   Local cTitle := \"Testing\"\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 200, 500 TITLE cTitle Pixel // 500 Width\n\n\n   @ 0,  0 Bitmap oBmpBlackWhite Filename cDataDict+\"\\BitMaps\\01-01.Bmp\" Size 80 , 100  Of oDlg Adjust Pixel // 100 High\n   @ 0,110 Bitmap oBmpColor      Filename cDataDict+\"\\BitMaps\\01-00.Bmp\" Size 80 , 100  Of oDlg Adjust Pixel\n\n*   @ 0,110 Bitmap oBmpBlackWhite Filename cDataDict+\"\\BitMaps\\01-01.Bmp\" Size 80 , 100  Of oDlg Adjust Pixel // 100 High\n\n   oBmpBlackWhite:bLClicked := {|nRow,nCol|GetZone(nRow,nCol,oBmpColor,oBmpBlackWhite)}\n   oBmpColor:bLClicked := {|nRow,nCol|GetZone(nRow,nCol,oBmpColor,oBmpBlackWhite)}\n\n\n*  ACTIVATE DIALOG oDlg CENTERED On Init oBmpColor:Hide()\n  ACTIVATE DIALOG oDlg CENTERED \n\n\n\nReturn Nil\n\n**************************************************************\nStatic Function GetZone(nRow,nCol,oBmpColor,oBmpBlackWhite)\n\nLocal nColor := GetPixel( oBmpColor:GetDC(), nCol,nRow)\n\n? \"Kleur : \" + AllTrim(Str(nColor)) , \"Col : \" + AllTrim(Str(nCol)) , \"Row : \" + AllTrim(Str(nRow))\n\noBmpColor:ReleaseDC()\n\n\n\nReturn Nil[/b:goh1u4dv]','',0,'wA==','goh1u4dv',1,0,'',473,0,0),(18598,4183,3,49,0,'62.13.172.78',1157790513,1,0,1,1,1,1,'','','I THINK ,\nTHIS  IS NOT CORRECT !!!!!!!!!!!!!\n\nI HAD PAY  TO HAVE THIS VTASKBAR  CLASS \ni sended money  last year TO PACO \n\nTHIS  IS NOT CORRECT !!!!!!!!!!!!!','',0,'wA==','biaz8xqw',1,0,'',49,0,0),(18599,4197,3,49,0,'62.13.172.78',1157797052,1,0,1,1,1,1,'','','yes, it is','',0,'wA==','naakm19b',1,0,'',49,0,0),(18600,4203,6,694,0,'200.181.156.10',1157802577,1,0,1,1,1,1,'','Vikthor - Por favor - Preciso que funcione a TWORD!','Vikthor, por favor meu amigo... Estou precisando muito fazer funcionar a TWORD no meu sistema...\n\nAmigo, eu utilizo FWH2.5 + XHARBOUR 99.50 + BCC5.5.1\n\nCom estas versões vou ter algum problema em compilar a TWORD?\n\nA necessidade de anexar alguma LIB especial para a TWORD?\n\nAntonio, Vikthor, muito obrigado por me responder...\n\nAntonio, respondendo a sua pergunta... Eu nunca consegui fazer funcionar está comunicação com o WORD!... Tenho varias dúvidas:\n\n1) Tenho que adicionar alguma LIB para que funcione ?\n2) Eu anexei ao sistema a TWORDHB está certo? ou devo usar a TWORD?\n\n\nVikthor, por favor amigo...me ajude!!!\nEstou precisando muito!!!\n\nAOKISANTOS\nPARANÁ - BRAZIL\n\n*********************************************\nVikthor:\nna TWORDHB o método NEW estava assim:\n\nMETHOD NEW() CLASS TWord\n::lWord := .T.\n#IFDEF __XHARBOUR__\nTRY\n::oWord := GetActiveObject( \"Word.Application\" )\nCATCH\nTRY\n::oWord := CreateObject( \"Word.Application\" )\nCATCH\nAlert( \"ERROR! Word no está instaldo en esta PC.\")\n::lWord := .F.\nEND\nEND\n#ELSE\n::oWord := TOleAuto():New(\"Word.Application\")\nIF ::oWord:hObj == 0\nAlert( \"ERROR! Word no está instaldo en esta PC.\")\n::lWord := .F.\nENDIF\n#ENDIF\n\nRETURN( Self )\n\nEntão, ai mudei para ficar igual ao seu:\nMETHOD NEW() CLASS TWord\n::lWord := .T.\nTRY\n::oWord := GetActiveObject( \"Word.Application\" )\nCATCH\nTRY\n::oWord := CreateObject( \"Word.Application\" )\nCATCH\nAlert( \"ERROR! Word no está instaldo en esta PC. [\" + Ole2TxtError()+ \"]\" )\n::lWord := .F.\nEND\nEND\nRETURN( Self )\n\nMAIS MESMO ASSIM, CONTINUA A ME DAR O ERRO:\nApplication\n===========\nPath and name: C:\\XCARCERE\\INQ\\INQUERITO.EXE (32 bits)\nSize: 2,324,992 bytes\nTime from start: 0 hours 0 mins 30 secs\nError occurred at: 07/09/2006, 19:17:26\nError description: Error Word.Application/1829 Unknown error: VISIBLE\nArgs:\n\nStack Calls\n===========\nCalled from TOLEAUTO:VISIBLE(0)\nCalled from (b)TWORD(140)\nCalled from TWORD:ISVISIBLE(0)\nCalled from CONTRATOWORD(27)\nCalled from PORDEUS(17) \n\n\n\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','3pel3n72',1,0,'',694,0,0),(18601,4203,6,2,0,'87.218.146.230',1157804403,1,0,1,1,1,1,'','','AokiSantos,\n\nUsa este ejemplo que funciona muy bien:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0167295252/WORDMCN.PRG.html\">http://hyperupload.com/download/0167295 ... N.PRG.html</a><!-- m -->','',0,'','3dches6u',1,0,'',2,0,0),(18602,4191,2,2,0,'87.218.146.230',1157805754,1,0,1,1,1,1,'','','Mario,\n\nModifica la función GetTreeBmps() en la Clase TTreeItem (source\\classes\\treeitem.prg) de la siguiente forma:\n[code:28dlevaq]\nfunction GetTreeBmps&#40;&#41;\n\n   local aTemp &#58;= aLines\n   \n   aLines = nil\n\nreturn aTemp\n[/code:28dlevaq]','',0,'AIA=','28dlevaq',1,0,'',2,0,0),(18603,4204,6,362,0,'200.168.52.156',1157807280,1,0,1,1,1,1,'','CHAR2EAN','AMIGOS, DONDE PUEDO CONSEGUIR CHAR2EAN??','',0,'AIA=','3g7aa5w1',1,0,'',362,0,0),(18604,4205,3,230,0,'152.163.100.14',1157811091,1,0,1,1,1,0,'','How to Create Custom Controls In Pellesc IDE','I have looked at The Resource Editor In Pelles C.  And\nI have tried to create a Custom Control for the TSBrowse\nBut when I create a New Control It ask for the\n\nStyle and the Extended Style?  And I don\'t know what style\nto set for the TSBrowse.\n\nAlso How do you define the Folder Control.\n\n\nThank you','',0,'AIA=','b3jasxc4',1,0,'',230,0,0),(18605,4183,3,439,0,'190.0.129.205',1157811751,1,0,1,1,1,1,'','Clase VMenu','Silvio,\nYa se que esta clase siempre se han pagado y de hecho yo me contacté con Paco el 13 de junio de este año dispuesto a pagar por ella pero me dijo que ha cedido el código a Juan Carlos (Creador de VerCE)  quien le ha hecho modificaciones y espera liberarla en su página, de momento están ajustando detalles con Paco.\n\n[b:1ro7v30h]Los mails al respecto están reenviados a tu correo.[/b:1ro7v30h]\n\nLO QUE SE ES QUE DE MOMENTO NO PUEDO NI OBTENERLA NI COMPRARLA, lo cual me frustra un poco.','',0,'QA==','1ro7v30h',1,0,'',439,0,0),(18606,4201,6,431,0,'200.8.68.96',1157812160,1,0,1,1,1,1,'','','Antonio ,\n\nMsgInfo( ::nLen )\nme retorna NIL\n\nGracias.','',0,'QA==','3eiehavv',1,0,'',431,0,0),(18607,4200,4,267,0,'200.208.238.2',1157812789,1,0,1,1,1,1,'','','Hi Antonio,\n\nI found one in link below. He serves?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.tenik.co.jp/~adachi/wince/zlibce/index.html\">http://www.tenik.co.jp/~adachi/wince/zlibce/index.html</a><!-- m -->','',0,'QA==','3undtqad',1,0,'',267,0,0),(18608,4206,3,49,0,'62.13.172.78',1157818272,1,0,1,1,1,1,'','Month calendar','It is possible in fivewin with datepick class?\nany sample ?\n-----------------------------','',0,'QA==','2wdeev6e',1,0,'',49,0,0),(18609,4203,6,694,0,'200.181.206.17',1157823009,1,0,1,1,1,1,'','Gracias Antonio... Vou testar','Gracias Antonio... Vou testar...\n\nFique com Deus\n\nAokisantos','',0,'QA==','2miox0ai',1,0,'',694,0,0),(18610,4088,6,618,0,'217.216.138.199',1157825345,1,0,1,1,1,1,'','Formulario en servdidor y acceso en modo cliente','Me referia rené, en que los datos residen en un servidor del cual queremos aceder para recoger información... ni las páginas que albergan el form las hemos diseñado nosotros, ni tenemos acceso para escritura a ese servidor... lo captas ?¿','',0,'QA==','34ompgpv',1,0,'',618,0,0),(18611,1114,4,2,0,'87.218.146.230',1157833737,1,0,1,1,1,1,'','','Maurizio,\n\nAs Class TDialog inherits from Class TWindow, it already has bMMoved support.','',0,'QA==','1sr1fddj',1,0,'',2,0,0),(18612,4205,3,2,0,'87.218.146.230',1157833925,1,0,1,1,1,1,'','','J,\n\nYou just need TabStop and Border styles.\n\nYou have to use SysTabControl32 for a folder.','',0,'QA==','1yhfymes',1,0,'',2,0,0),(18613,4182,3,2,0,'87.218.146.230',1157834057,1,0,1,1,1,1,'','','Willy,\n\nPlease email me those bitmaps, thanks.','',0,'QA==','27r5atbj',1,0,'',2,0,0),(18614,4157,3,2,0,'87.218.146.230',1157834312,1,0,1,1,1,1,'','','Silvio,\n\nClass TTimePicker will be included in next FWH September build thanks to Fernando Alsis.','',0,'QA==','2cl7t5te',1,0,'',2,0,0),(18615,4207,6,694,0,'200.138.82.73',1157836649,1,0,1,1,1,1,'','Como acertar o TIME do sistema com FWH?','Gente estou utilizando o comando SETTIME() do FWH, para acertar a hora do sistema, mais não está funcionando.\n\nEX:\n\nvar:=\"17:00\"\nSETTIME(LEFT(VAR,2),SUBSTR(VAR,4,5))\n\nEstou fazendo assim, mais ele não acerta a hora... Acaba colocando uma hora que não tem nada haver...\n\nFIQUEM COM DEUS\nAOKISANTOS','',0,'QA==','zjbqh1ga',1,0,'',694,0,0),(18616,4088,6,138,0,'201.128.111.188',1157838800,1,0,1,1,1,1,'','','Si no tienes acceso a las tablas esta bastante complicado.\n\nSi tuvieses acceso al servidor ya sea por la IP o por un dominio seria super facil leer tablas sin importar en que formato estan, (DBF o SQL) la conexion s podria hacer por ADO y funcionaria sin ningun problema.','',0,'QA==','3v7r6ihf',1,0,'',138,0,0),(18617,4207,6,138,0,'201.128.111.188',1157838957,1,0,1,1,1,1,'','','Menos elegante, pero efectiva:\n\ncTime := \"17:00\"\nWINEXEC(\"time \"+cTime)','',0,'QA==','120nucoc',1,0,'',138,0,0),(18618,4207,6,2,0,'87.218.146.230',1157842258,1,0,1,1,1,1,'','','Aokisantos,\n\nvar:=\"17:00\" \nSetTime( Val( Left( var, 2 ) ), Val( SubStr( var, 4, 2 ) ) )','',0,'QA==','2kf7cbv9',1,0,'',2,0,0),(18619,4208,3,299,0,'24.233.172.101',1157842596,1,0,1,0,1,0,'','Voice Recorder','Hi,\n\nIs it possible to have a voice recorder, playback control using fw+xharbour?\n\nThank you,\n\nReinaldo.','',0,'QA==','27inhidp',1,0,'',299,0,0),(18620,4201,6,2,0,'87.218.146.230',1157842598,1,0,1,1,1,1,'','','Mario,\n\nEso quiere decir que ::bLogicLen no está bien definido, ya que debería retornar el número de registros. De ahí el error al hacer el Min()','',0,'QA==','jrxvca35',1,0,'',2,0,0),(18621,4201,6,431,0,'200.8.68.96',1157844216,1,0,1,1,1,1,'','','::bLogicLen cuando entro a un browse en la misma aplicacion por ejemplo en browse dentro de folder si me retorna el numero de registros solo me pasa cuando lo hago con oLbx:SetTXT( Archivo.TXT )','',0,'QA==','2b1cs29r',1,0,'',431,0,0),(18622,4201,6,431,0,'200.8.68.96',1157845529,1,0,1,1,1,1,'','','aqui se nota que si esta definida ::bLogicLen\nMETHOD SetTXT( uTXT ) CLASS TWBrowse\n LOCAL cType, oTXT\n\n   DEFAULT uTXT:= \"\"\n   cType:= Valtype( uTXT )\n\n   If cType == \"C\"\n      If !File( uTXT )\n         uTXT:= cGetFile( \"*.txt\", \"Text Files\" )\n         If !File( uTXT )\n            return .F.\n         EndIf\n      EndIf\n      ::oTXT:= oTXT:= TTxtFile():New( uTXT, 0 )\n   ElseIf cType == \"O\"\n      oTXT:= uTXT\n   Else\n      return .F.\n   EndIf\n\n   ::lDrawHeaders  := .F.\n   ::aHeaders      := { \"\" }\n   ::aJustify      := { .F. }\n   ::aColSizes     := { 2000 }\n   ::nLineStyle    := 0\n   ::cAlias        := \"_TXT_\"\n   ::bLine         := { |cLine| cLine:= oTXT:ReadLine(),;\n                        If( IsOem( cLine ), cLine:= OemToAnsi( cLine ),),;\n                        { SubStr( cLine, ::nTXTFrom ) } }\n[b:152jrjf2]   ::bLogicLen     := { || ::nLen := oTXT:RecCount() }[/b:152jrjf2]\n   ::bLogicPos     := nil\n   ::bGoLogicPos   := nil\n   ::bGoTop        := { || oTXT:GoTop() }\n   ::bGoBottom     := { || oTXT:GoBottom() }\n   ::bSkip         := { | nSkip, nOld | nOld:= oTXT:RecNo(), ;\n                                        oTXT:Skip( nSkip ),   ;\n                                        oTXT:RecNo() - nOld }\nreturn nil\n\nlo que pasa es que estoy observando otro comportamiento extraño con archivos de textos dentro de mi aplicacion.\nque es cuando hago un copy file\n\nCOPY FILE \"\\LOTERV32\\RC\\VACIA.TXT\" TO &amp;(cFile)\npor primera vez me lo ejecuta sin problemas cuando lo hago en la segunda me genera el siguiente error :\nApplication\n===========\n   Path and name: H:\\LOTERV32\\VENDELOT.Exe (32 bits)\n   Size:   625,152 bytes\n   Time from start: 0 hours 0 mins 19 secs \n   Error occurred at: 09/09/2006, 19:43:15\n   Error description: (DOS Error 32) BASE/2012  Create error: \\loterV32\\UltTik.txt\n\nStack Calls\n===========\n   Called from:  =&gt; __COPYFILE(0)\n   Called from:  =&gt; TVENTAS:IMPRIMIRT4(6940)\n   Called from:  =&gt; TVENTAS:HACERTICKET(5438)\n\npero cuando pasa por la linea la segunda vez la primera vez lo crea sin problema.\n\nla otra que otras opciones tengo para mostrar un archivo de texto en un dialogo y que de otras maneras puedo hacer un copy file \n\nGracias.','',0,'QA==','152jrjf2',1,0,'',431,0,0),(18623,4201,6,2,0,'87.218.146.230',1157846843,1,0,1,1,1,1,'','','Mario,\n\noTXT:RecCount() debe estar devolviendo nil. Quizá el fichero no se ha podido abrir y ese es el problema.\n\nDOS error 32 es error de compartición. Tu aplicación tiene el fichero abierto aún y por eso no puedes sobreescribirlo. Ciérralo antes.','',0,'QA==','29uz600h',1,0,'',2,0,0),(18624,4209,3,299,0,'24.233.172.101',1157847956,1,0,1,0,1,0,'','ttreeview','hi.\n\nI\'m trying to implement the use of trees for the first time.  Having some trouble.  I\'d like to have a tree inside a dialog window that is really a tab on a folder control.\n\nhere is the code I\'m using:\n[code:31bkz27t]\n	REDEFINE FOLDER aoFld id 101 of oDlg 		;\n			PROMPTS 	&quot;&amp;Basic Info&quot;, 	;\n				&quot;&amp;Abstract&quot;, 	;\n				&quot;&amp;Discharge&quot;, 	;\n				&quot;C&amp;onsults&quot;, 	;\n				&quot;&amp;Notes&quot;, 		;\n				&quot;Do&amp;cuments&quot;	;\n			DIALOGS 	&quot;adm_TAB1&quot;, 	;\n				&quot;adm_TAB2&quot;,	;\n				&quot;adm_TAB3&quot;, 	;\n				&quot;adm_TAB4&quot;, 	;\n				&quot;adm_docs&quot;\n\n	REDEFINE_Tab1&#40; aoFld&#58;adialogs&#91;1&#93;, oDbf&#41;\n	REDEFINE_Tab2&#40; aoFld&#58;adialogs&#91;2&#93;, oDbf&#41;\n	REDEFINE_Tab3&#40; aoFld&#58;adialogs&#91;3&#93;, oDbf &#41;\n	REDEFINE_Tab4&#40; aoFld&#58;adialogs&#91;4&#93;, oDbf &#41;\n	REDEFINE_documents&#40; aofld&#58;aDialogs&#91; 12 &#93;, odbf &#41;\n&#46;&#46;&#46;&#46;&#46;\n*-----------------------------------------------------------------------------------\nstatic function REDEFINE_documents&#40; odlg, odbf &#41;\nlocal oImageList	&#58;= TImageList&#40;&#41;&#58;New&#40;&#41;\nlocal oBmp1 	&#58;= TBitmap&#40;&#41;&#58;Define&#40; &quot;branch&quot;,, odlg &#41;\nlocal oBmp2 	&#58;= TBitmap&#40;&#41;&#58;Define&#40; &quot;branch_Mask&quot;,, odlg &#41;\nlocal oTree 	&#58;= TTreeView&#40;&#41;&#58;New&#40; 2, 0, oDlg &#41;\nlocal oRep1, oRep2\n\n	oImageList&#58;Add&#40; oBmp1, oBmp2 &#41;\n\n	oTree&#58;SetImageList&#40; oImageList &#41;\n	oRep1 &#58;= oTree&#58;Add&#40; &quot;Report1&quot; &#41;\n	oRep1&#58;Add&#40; &quot;Comp1 in Rep1&quot; &#41;\n	oRep1&#58;Add&#40; &quot;Comp2 in Rep1&quot; &#41;\n	oRep1&#58;Add&#40; &quot;Comp3 in Rep1&quot; &#41;\n	oRep1&#58;Add&#40; &quot;Comp4 in Rep1&quot; &#41;\n\n	oRep2 &#58;= oTree&#58;Add&#40; &quot;Report2&quot; &#41;\n\n                oImageList&#58;End&#40;&#41;\n	oBmp1&#58;End&#40;&#41;\n	oBmp2&#58;End&#40;&#41;\n\nReturn Nil\n[/code:31bkz27t]\n\nWhen this code executes I get an error: \n[code:31bkz27t]\nApplication\n===========\n   Path and name&#58; F&#58;\\mp\\test&#46;exe &#40;32 bits&#41;\n   Size&#58; 2,940,416 bytes\n   Time from start&#58; 0 hours 0 mins 16 secs \n   Error occurred at&#58; 09/09/2006, 20&#58;08&#58;28\n   Error description&#58; Error FiveWin/1  Non defined Id&#58; No&#58;    210\n\nStack Calls\n===========\n   Called from&#58; CONTROL&#46;PRG =&gt; TTREEVIEW&#58;INITIATE&#40;0&#41;\n[/code:31bkz27t]\n\nNotice I\'m not using any code with ID 210 anywhere on my code.\n\nCan someone help?\n\nReinaldo.','',0,'AIA=','31bkz27t',1,0,'',299,0,0),(18626,4201,6,431,0,'200.8.68.96',1157858784,1,0,1,1,1,1,'','','lo extraño es que es una aplicacion que ya estaba funcionando sin ninguna modificacion con el FTDN Junio del año pasado sin estos problemas\ny lo que pasa es que ya no puedo hechar atras porque ya le meti a los dialogos brush transparente y funciones de los ultimos FTDN se que debe haber algo ahora con los TXT pero como no soy un experto en esto no se que decirte ahora que otra forma puedo crear un archivo de texto yo usaba hasta ahora tdosprn y disculpa la pregunta ando como bruto hoy <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> algun ejemplo en fwh/samples \nMuchas Gracias Antonio.','',0,'AIA=','owncsbly',1,0,'',431,0,0),(18627,4210,6,307,0,'200.38.29.147',1157865807,1,0,1,1,1,0,'','EXCEL','saludos. algun ejemplo para enviar reportes a excel? , existe algun manual del reporteador de Fw?... \n\narnulfo','',0,'AIA=','3upxs19i',1,0,'',307,0,0),(18628,4201,6,2,0,'87.218.146.230',1157870885,1,0,1,1,1,1,'','','Mario,\n\nQue tamaño tiene el fichero de texto que vas a mostrar ?','',0,'AIA=','1m8rzzu4',1,0,'',2,0,0),(18629,4210,6,2,0,'87.218.146.230',1157870985,1,0,1,1,1,1,'','','Arnulfo,\n\nRevisa samples\\report\\*.prg para aprender con ejemplos como usarlo.\n\nFWH no proporciona ningún ejemplo para enviarlo a Excell.','',0,'AIA=','2elqfaw2',1,0,'',2,0,0),(18630,4209,3,2,0,'87.218.146.230',1157871442,1,0,1,1,1,1,'','','Reinaldo,\n\nYou have to use TTreeView():ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) instead of TTreeView():New( ... ).\n\nUse SysTreeView32 as the type of the control in your dialog resource.','',0,'AIA=','5fpuk8c7',1,0,'',2,0,0),(18631,4208,3,2,0,'87.218.146.230',1157872079,1,0,1,1,1,1,'','','Reinaldo,\n\nFW provides MciSendStr( cMciCommand, @cResult, nHWnd ) --&gt; nResult to manage MCI (Media Control Interface MciSendString()). \n\nNow review this site <!-- m --><a class=\"postlink\" href=\"http://www.devx.com/vb2themax/Tip/18383\">http://www.devx.com/vb2themax/Tip/18383</a><!-- m --> to easily record using such function.','',0,'AIA=','3iqgqc16',1,0,'',2,0,0),(18632,1114,4,2,0,'87.218.146.230',1157872294,1,0,1,1,1,1,'','','Maurizio,\n\nWe have already implemented support to save any window or control as a BMP file.\n[code:8s5jck87]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;SaveToBmp&quot;\n\n   @ 9, 2 BUTTON &quot;Save To Bmp&quot; ;\n      SIZE 210, 30 ;\n      ACTION &#40; oWnd&#58;SaveToBmp&#40; CurDir&#40;&#41; + &quot;\\test&#46;bmp&quot; &#41;, MsgInfo&#40; &quot;done!&quot; &#41; &#41;\n      \n   ACTIVATE WINDOW oWnd\n   \nreturn nil      \n[/code:8s5jck87]','',0,'AIA=','8s5jck87',1,0,'',2,0,0),(18633,4023,4,2,0,'87.218.146.230',1157872345,1,0,1,1,1,1,'','','Pier Luigi,\n\nWe have already implemented support to save any window or control as a BMP file.\n[code:2b8ugxcb]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;SaveToBmp&quot;\n\n   @ 9, 2 BUTTON &quot;Save To Bmp&quot; ;\n      SIZE 210, 30 ;\n      ACTION &#40; oWnd&#58;SaveToBmp&#40; CurDir&#40;&#41; + &quot;\\test&#46;bmp&quot; &#41;, MsgInfo&#40; &quot;done!&quot; &#41; &#41;\n      \n   ACTIVATE WINDOW oWnd\n   \nreturn nil      \n[/code:2b8ugxcb]','',0,'AIA=','2b8ugxcb',1,0,'',2,0,0),(18634,4211,4,20,0,'87.10.213.247',1157872524,1,0,1,1,1,0,'','Menu','SetCheck() method is available in Menuitem class?\n\nRegards.\nPier Luigi','',0,'AIA=','3j466lnh',1,0,'',20,0,0),(18635,4212,1,699,0,'122.126.2.211',1157873536,1,0,1,1,1,1,'','Input data but not showing what you done','Hi all,\nI want to key-in a word through Get VAR and I want the data display ******* instead of my actually key-in word.\n\n [code:2fahnrtq]\nFUNCTION Test&#40;&#41;\n    Local oDlg, oGet\n    cName &#58;= SPACE&#40;7&#41;\n    DEFINE DIALOG oDlg RESOURCE &quot;Test&quot; TITLE &quot;Please key-in your name&quot;\n    REDEFINE GET oGet VAR cName PICTURE &quot;NNNNNNN&quot; ID 110 OF oDlg\n    REDEFINE BUTTON ID 120 OF oDlg ACTION oDlg&#58;End&#40;&#41;\n    ACTIVATE DIALOG oDlg CENTERED\nRETURN Nil\n[/code:2fahnrtq]\n\nAbove is my normal code, how to modify my Get VAR code in order that I can input a word and it will display ******* ? \n\nAny help will be much appreciated.\nThanks in advance.','',0,'AIA=','2fahnrtq',1,0,'',699,0,0),(18636,4185,3,707,0,'222.124.20.50',1157874923,1,0,1,1,1,0,'','','&gt;&gt; Edited\nPlease don\'t post such long msgs. Use <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> to upload a file there and copy here the download url. Thanks,','',0,'AIA=','150wg315',1,0,'',707,0,0),(18637,4182,3,473,0,'81.83.209.5',1157875430,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3o8m76tk]Willy,\n\nPlease email me those bitmaps, thanks.[/quote:3o8m76tk]\n\nSended\n\nBy','',0,'gA==','3o8m76tk',1,0,'',473,0,0),(18638,4182,3,2,0,'87.218.146.14',1157877300,1,0,1,1,1,1,'','','Willy,\n\nDo it this way: (warning: don\'t use ADJUST clause)\n[code:1nph828q]\n#include &quot;FiveWin&#46;ch&quot;\n\nFunction Test&#40;&#41; \n\n   Local oDlg, oBmpColor , oBmpBlackWhite \n\n   Local cTitle &#58;= &quot;Testing&quot; \n\n   DEFINE DIALOG oDlg FROM 0,0 TO 320, 280 TITLE cTitle Pixel // 500 Width \n\n   @ 0, 0 Bitmap oBmpBlackWhite Filename &quot;01-01&#46;Bmp&quot; Of oDlg Pixel // 100 High \n\n   @ 0, 110 Bitmap oBmpColor Filename &quot;01-00&#46;Bmp&quot; Of oDlg Pixel // 100 High \n\n   oBmpBlackWhite&#58;bLClicked &#58;= &#123;|nRow,nCol|GetZone&#40;nRow,nCol,oBmpColor,oDlg&#41;&#125; \n\n   ACTIVATE DIALOG oDlg CENTERED On Init oBmpColor&#58;Hide&#40;&#41; \n\nReturn Nil \n\n************************************************************** \nStatic Function GetZone&#40;nRow,nCol,oBmpColor,oDlg&#41; \n\nlocal hDC &#58;= CreateCompatibleDC&#40; oDlg&#58;GetDC&#40;&#41; &#41;\nlocal hOldObj &#58;= SelectObject&#40; hDC, oBmpColor&#58;hBitmap &#41;\nLocal nColor &#58;= GetPixel&#40; hDC, nCol,nRow &#41; \n\n   SelectObject&#40; hDC, hOldObj &#41;\n\n   oDlg&#58;ReleaseDC&#40;&#41; \n   DeleteDC&#40; hDC &#41;\n\n   ? &quot;Kleur &#58; &quot; + AllTrim&#40;Str&#40;nColor&#41;&#41; , &quot;Col &#58; &quot; + AllTrim&#40;Str&#40;nCol&#41;&#41; , &quot;Row &#58; &quot; + AllTrim&#40;Str&#40;nRow&#41;&#41; \n\nReturn Nil\n[/code:1nph828q]\n[url=http&#58;//imageshack&#46;us:1nph828q][img:1nph828q]http&#58;//img148&#46;imageshack&#46;us/img148/5103/untitledjc0&#46;jpg[/img:1nph828q][/url:1nph828q]','',0,'GIA=','1nph828q',1,0,'',2,0,0),(18639,4212,1,2,0,'87.218.146.14',1157879086,1,0,1,1,1,1,'','','Andy,\n\nUse ES_PASSWORD style for the GET in the resource file, i.e.:\n\n#define ES_PASSWORD  32\n\nEDITTEXT 100, 32, 42, 78, 15, ES_PASSWORD | WS_BORDER | WS_TABSTOP','',0,'GIA=','3n0fni8m',1,0,'',2,0,0),(18640,4213,4,47,0,'203.144.143.9',1157879249,1,0,1,1,1,0,'','Who did the PPC Sockcli.exe work?','Dear All,\n\nI cannot connect to between PPC to PC by FWPPC TSocket?  Can anyone help?  I\'ve used simulator but cannot send any data and I\'ve used IPAQ PPC, it cannot connect.\n\nBest regards,\nDutch','',0,'GIA=','79u3hjsp',1,0,'',47,0,0),(18641,4213,4,2,0,'87.218.146.14',1157879351,1,0,1,1,1,1,'','','Dutch,\n\nIt used to work previously (we tested it). \n\nNow we are searching why it does no longer connects.','',0,'GIA=','285cvdan',1,0,'',2,0,0),(18642,4213,4,47,0,'203.144.143.8',1157880464,1,0,1,1,1,0,'','Thanks a lot','Dear Antonio,\n\nThank you for prompt reply and I will wait your finding out.\n\nBest regards,\nDutch','',0,'GIA=','2sak441w',1,0,'',47,0,0),(18643,4214,3,67,0,'62.235.24.12',1157881642,1,0,1,1,1,0,'','Focus NOT visible on radiobutton or Checkbox','Hello,\n\nI still have problems with NON visible focus on Radiobuttons or checkboxes. I reported this  , maybe a year ago , but this behaviour make the use from radiobuttons or checkboxes nearly impossible.\n\nI work on XP , service pack 2 , but the customers have other OS (wndows NT , ... )\n\nI am wondering that others doen\'t report this (serious) problem. Am i the only to have troubles ??????\n\n\nFrank','',0,'GIA=','1mkn2rnz',1,0,'',67,0,0),(18644,4023,4,20,0,'87.10.213.247',1157883460,1,0,1,1,1,0,'','','Great!\n\nMany thanks.\n\nRegards.\nPier luigi','',0,'GIA=','1drm4ix7',1,0,'',20,0,0),(18645,4215,6,180,0,'88.16.139.230',1157885747,1,0,1,1,1,0,'','Desplazamiento de bitmap en TOOLBAR','No logro centrar los bitmap en una TOOLBAR, salen ligeramente desplazados hacia arriba, así como el texto. ¿Que puede estar ocurriendo?\nAdjunto imagen. <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02185aa517/toolbar.JPG.html\">http://hyperupload.com/download/02185aa ... r.JPG.html</a><!-- m --> \n\nUn saludo,\nManuel Aranda','',0,'GIA=','pf4fxoi3',1,0,'',180,0,0),(18646,4201,6,431,0,'200.8.68.96',1157895553,1,0,1,1,1,1,'','','Son Archivos pequeños.  que van entre 1Kb. hasta 40Kb','',0,'GIA=','1o163ui1',1,0,'',431,0,0),(18647,4201,6,2,0,'87.218.146.14',1157896509,1,0,1,1,1,1,'','','Mario,\n\nEntonces podrías usar un GET multilínea ó un RichEdit si quieres que el texto tenga distintos colores y fonts.','',0,'GIA=','20rjxoe6',1,0,'',2,0,0),(18648,4205,3,230,0,'152.163.100.14',1157896684,1,0,1,1,1,0,'','','Antonio,\n  I tried Creating a TWBrowse But I dont see the Border Styles\non the Options.  I see the Tab Stops\n\nAlso there are no Extended Styles to set.  I don\'t have the\nVer. or the Hor. Scroll Bars .\n\nHow do you have the Option display in the Pelles IDE\n\nDo you have any Examples?  On how to use the IDE\nfor creating Controls.\n\nThank you\n\nJim\n\n\nPS.  I have used the Broadland Workshop before.  But it\nis a 16 Bit Resource Editor.  And win I tried to Load it on\nmy new Computer it keep on trying to reg. the Program\nbut the Phone number it dials will not work any more.\n\nUnable to reg on new Computer','',0,'GIA=','2kflkkg8',1,0,'',230,0,0),(18649,4215,6,2,0,'87.218.146.14',1157896780,1,0,1,1,1,1,'','','Manuel,\n\nPrueba a usar más altura para los botones. Revisa samples\\toolbar...prg','',0,'GIA=','jkdxp5o6',1,0,'',2,0,0),(18650,4205,3,2,0,'87.218.146.14',1157896930,1,0,1,1,1,1,'','','Jim,\n\nWe still use Borland Resources Workshop as it is very friendly. \n\nHere it does not requires for a registration.','',0,'GIA=','2a8mx27i',1,0,'',2,0,0),(18651,4214,3,6,0,'82.59.51.151',1157896993,1,0,1,1,1,1,'','Re: Focus NOT visible on radiobutton or Checkbox','Please send a minimal sample showing the problem.\n\nEMG','',0,'GIA=','2wvmvr1w',1,0,'',6,0,0),(18652,4206,3,49,0,'62.13.172.78',1157900421,1,0,1,1,1,1,'','','Can you send me all these filles because I not use cvs I not  have adsl connection','',0,'GIA=','2on6v1kb',1,0,'',49,0,0),(18653,4201,6,431,0,'200.8.68.96',1157900946,1,0,1,1,1,1,'','','Antonio,\n \nMuy agradecido por tus comentarios me funciono un get multilinea \ntodo ok.\n\nGracias.','',0,'GIA=','2o6asulu',1,0,'',431,0,0),(18654,4215,6,180,0,'88.16.139.230',1157904924,1,0,1,1,1,0,'','','Hola Antonio:\n\nPrecisamente he partido del ejemplo toolbar1.prg en el que los bitmap se ven centrados. Lo he copiado y sin modifcar nada (solo el nombre de los bitmap) me encuentro con este problema. Los bitmap son de 32x32 y están en una DLL. ¿Puede ser este el problema?\n\nUn saludo,\nManuel','',0,'GIA=','203wdkgi',1,0,'',180,0,0),(18655,4209,3,299,0,'24.233.172.101',1157908284,1,0,1,0,1,0,'','','Antonio;\n\nThank you.  I no longer get the error.  But, no tree is displayed.  I see nothing.  Another hand?\n\nReinaldo.','',0,'GIA=','26ostb31',1,0,'',299,0,0),(18656,4209,3,2,0,'87.218.146.14',1157912503,1,0,1,1,1,1,'','','Reinaldo,\n\nThis code has to be executed from the ON INIT clause of the main dialog, as the tree does not has a valid hWnd before:\n[code:rl2x3fa2]\n   oTree&#58;SetImageList&#40; oImageList &#41; \n   oRep1 &#58;= oTree&#58;Add&#40; &quot;Report1&quot; &#41; \n   oRep1&#58;Add&#40; &quot;Comp1 in Rep1&quot; &#41; \n   oRep1&#58;Add&#40; &quot;Comp2 in Rep1&quot; &#41; \n   oRep1&#58;Add&#40; &quot;Comp3 in Rep1&quot; &#41; \n   oRep1&#58;Add&#40; &quot;Comp4 in Rep1&quot; &#41; \n\n   oRep2 &#58;= oTree&#58;Add&#40; &quot;Report2&quot; &#41;\n[/code:rl2x3fa2]','',0,'AIA=','rl2x3fa2',1,0,'',2,0,0),(18657,4209,3,303,0,'72.199.41.171',1157912579,1,0,1,1,1,0,'','','Reinaldo,\n\n&gt;Thank you. I no longer get the error. But, no tree is displayed. I see nothing. Another hand? \n\nPerhaps because you are ending the Tree in the redefine_documents() function? I think you don\'t want to end the tree until the dialog is ended (this would be easier to program if you built a class instead of using functions).\n\nJames','',0,'AIA=','j3fd2ja7',1,0,'',303,0,0),(18658,4215,6,2,0,'87.218.146.14',1157912724,1,0,1,1,1,1,'','','Manuel,\n\nEl que estén en una DLL no afecta para nada. Prueba a variar los valores del alto en la definición del toolbar:\n[code:9pmmsnah]\n   DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 65 ; // 50, 58 ;\n      IMAGELIST oImageList\n[/code:9pmmsnah]','',0,'AIA=','9pmmsnah',1,0,'',2,0,0),(18659,4209,3,299,0,'24.233.172.101',1157913892,1,0,1,0,1,0,'','','James;\n\nGood to see your note.\n\nI thought of that.  Took the end() out.  Same result.  \n\nYes, making the whole thing an object would make a lot of sense.  I\'m just as fanatic about OOP.   But I\'m only adding a new tab to some very old code.  Everything else is working just fine.  I\'m not about to re-write the whole thing now.  Other things to do.  Besides, Ending() the tree at dialog end() won\'t be a problem.\n\nYou know, I think I just thought what the problem is:\n\n\"local oBmp1 	:= TBitmap():Define( \"branch\",, odlg )\"\n\nThat\'s the problem.  It has been staring me at the eye.  \"Branch\" is a resource.  Not a file.   I\'ll get back to you if I\'m wrong on this.\n\nTake care,\n\n\nReinaldo.','',0,'AIA=','2uixtfx7',1,0,'',299,0,0),(18660,4214,3,67,0,'62.235.24.12',1157915035,1,0,1,1,1,0,'','','Enrico,\n\nI mentioned that a year ago ( +/-) i reportred the problem , WITH an example . also you has tryed it , but could not confirm the problem.\nThere was a reaction from antonio , if i remember corectly , it should be a problem from windows. \n\nSo , i am convinced there is a serious problem , at least for me ( or mine configuration) and i do not understand that i should be the only with this problem. \n\nIn each problem from FW , i have to spend many hours , but has not always a response from ANTONIO ( ON MOVE ....)\n\n\nFrank\n\nFrank','',0,'AIA=','25rfdmos',1,0,'',67,0,0),(18661,4214,3,2,0,'87.218.146.14',1157915579,1,0,1,1,1,1,'','','Frank,\n\nIf you kindly provide a self contained and small sample, we will review it to provide tech support.','',0,'AIA=','1wt3xe05',1,0,'',2,0,0),(18662,4214,3,6,0,'82.59.51.151',1157915640,1,0,1,1,1,1,'','','You should understand that a problem that can\'t be confirmed is a problem that can hardly fixed, sorry.\n\nEMG','',0,'AIA=','5670wkeg',1,0,'',6,0,0),(18663,4209,3,299,0,'24.233.172.101',1157922088,1,0,1,0,1,0,'','','Antonio;\n\nThank you.  It worked!\n\nAgain, Thank you very much.\n\n\nReinaldo.','',0,'AIA=','k63mh6kv',1,0,'',299,0,0),(18664,4193,3,233,0,'218.111.61.108',1157938043,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:20ht2p1m]\nYou may use FWH Encrypt() and Decrypt() functions, to encrypt each field content before saving it, then use Decrypt() to read the encrypted field data.[/quote:20ht2p1m]\n\nI\'m aware of these functions. I was just hoping there maybe something along the line of [b:20ht2p1m]use &lt;cDbf&gt; encrypt \"password\"[/b:20ht2p1m]. That would cut down a lot of work as I\'m working with an existing source. Thaks for the reply anyway. BTW, thanks also for reactivating my forum account Antonio.\n\n[quote=&quot;RF&quot;:20ht2p1m]\nIf you want a good encrypting free tool take a look to the Advantage Local Server functions ADSEnableEncrypt()[/quote:20ht2p1m]\n\nThanks for the pointer Rene  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'wA==','20ht2p1m',1,0,'',233,0,0),(18665,4212,1,699,0,'59.125.100.114',1157946513,1,0,1,1,1,1,'','','Antonio,\n\nThank you very much for your help.','',0,'wA==','2se5g6l1',1,0,'',699,0,0),(18666,4193,3,2,0,'87.218.146.14',1157954063,1,0,1,1,1,1,'','','Hua,\n\nYou are welcome,','',0,'wA==','34zyc74u',1,0,'',2,0,0),(18667,4153,3,144,0,'72.192.177.190',1157955003,1,0,1,1,1,1,'','','But to answer the specific question:\nAll the standard ord* rdd functions should work: ordDestroy, ordName, etc., as well as their commands like DELETE TAG.  Also:\ndbOrderInfo(DBOI_ORDERCOUNT, cBag), etc.\n\nStill, I also think it\'s best to delete the adi file.\nAnd the other comment on the forum re not needing to reindex as long as you open indexes before updates I feel is wrong.  Rene\'s point is that IF you are using a data server (SET SERVER REMOTE) you don\'t need to reindex.  ANY shared file rdd (including ADS with the LOCAL server) IS unavoidably subject to index corruption no matter how careful your code is.','',0,'wA==','mxuf7syz',1,0,'',144,0,0),(18668,4216,3,144,0,'72.192.177.190',1157961697,1,0,1,1,1,1,'','Generic ActiveX methods via OnError','Antonio:\nI\'m creating a wrapper class for a commercial ActiveX control.\nRather than code a Method for each function, I created the OnError handler below to attempt to post any unknown message as a call to the actual control.  It seems to work, but there are a couple issues:\n\nHow can I handle passing non-string args? In PRG code, can I \"push items onto the stack\" and exec the Do() method?\nIs there a better way to do this, or do you see a lurking problem?\n\n[code:7g694t6g]METHOD OnError&#40; &#46;&#46;&#46; &#41; CLASS XXXView\nstatic lInErrorAlready &#58;= &#46;f&#46;\nlocal cMsg   &#58;= __GetMessage&#40;&#41;, cCmd, x\nprivate oSelf &#58;= Self\n\n   IF lInErrorAlready\n      _ClsSetError&#40; _GenError&#40; 1004, &#58;&#58;ClassName&#40;&#41;, cMsg  &#41; &#41;\n   ELSE\n      lInErrorAlready &#58;= &#46;t&#46;\n      cCmd &#58;= &quot;oSelf&#58;Do&#40;\'&quot;+ cMsg\n      FOR EACH x IN HB_aParams&#40;&#41;\n          cCmd += &quot;\',\'&quot; + x\n      NEXT\n      cCmd += &quot;\'&#41;&quot;\n      &amp;cCmd\n\n   ENDIF\n   lInErrorAlready &#58;= &#46;F&#46;\n\nRETURN nil[/code:7g694t6g]','',0,'AIA=','7g694t6g',1,0,'',144,0,0),(18669,4157,3,130,0,'141.51.32.24',1157962329,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:182xlg5g]Antonio,\nI cannot compile the class files to lib (xharbour)[/quote:182xlg5g]\n\nSilvio,\n\ntry these files, they should work. I have included a lib compiled with xHarbour\n\n[url:182xlg5g]http&#58;//hyperupload&#46;com/download/028af8ea26/TDateTimePick&#46;zip&#46;html[/url:182xlg5g]\n\nStefan','',0,'kA==','182xlg5g',1,0,'',130,0,0),(18670,4157,3,49,0,'62.13.172.78',1157966269,1,0,1,1,1,1,'','','I cannot download this files can you sendme at private emai .\nthanks','',0,'kA==','2dachjqo',1,0,'',49,0,0),(18671,4157,3,130,0,'141.51.32.24',1157972879,1,0,1,1,1,0,'','','Done','',0,'kA==','2u39dox7',1,0,'',130,0,0),(18672,4217,3,49,0,'62.13.172.78',1157973089,1,0,1,1,1,1,'','Return ncolor','If I have define a Pen :\n\n DEFINE PEN oPen[4] WIDTH 2  COLOR RGB(0,255,255)    STYLE 0      \nDEFINE PEN oPen[5] WIDTH 2  COLOR RGB(255,157,255)  STYLE 0 \n\nCan I to have the variable color to create a brush ?\n\n  nColor := ?????\n   hBru := CreateSolidBrush( nColor )\n   hOld := SelectObject( ::hDC, hBru )\n   FillRect( ::hDC, { nTop, nLeft, nBottom+nx, nRight+nx }, hBru )\n   SelectObject( ::hDC, hOld )\n   DeleteObject( hBru )','',0,'','3lg9ui20',1,0,'',49,0,0),(18673,4218,3,792,0,'213.22.46.27',1157976291,1,0,1,1,1,0,'','Total on GROUP','Hi\n\nTotal in Groups are made with the sum of each column in report\n\nBut i need in GROUP TOTAL  that the total with be made with a formula not with the sum . In a column like $ the Percent\'t Total is not the sum of the % but the % of the the columns .\n\nex.\n                                      Total 1  Total 2       %\n                          XPTO    1000     2000         xxx\n                             ...\n                             ...\n\nGroup TOTAL                  aaaa     bbbb        (aaaa-bbbb)         \n\nBest regards','',0,'','1j577h6g',1,0,'',792,0,0),(18674,4191,2,147,0,'200.45.54.133',1157977783,1,0,1,0,1,1,'','','Funciona Ok!\ngracias por tu tiempo\n\nSaludos','',0,'','3i1gbbcu',1,0,'',147,0,0),(18675,4191,2,2,0,'87.218.146.14',1157978747,1,0,1,1,1,1,'','','Mario,\n\nBien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3dghqfei',1,0,'',2,0,0),(18677,4220,3,41,0,'200.87.67.10',1157979358,1,0,1,1,1,0,'','USRRDD + FWH','Hello,\n\nI\'m trying to work with last CVS version of xHarbour, I have interest in the USRRDD, the next example compile, but when I try to modify or delete some record the program crash, some body ( Enrico? ) have idea why? is a xHarbour or FW issue\n\n[code:3vj1047w]\n#INCLUDE &quot;fivewin&#46;ch&quot;\n\nREQUEST ARRAYRDD\n\nFUNCTION main&#40;&#41;\n   LOCAL aStruct\n\n   SET CENTURY ON\n   SET DELETED OFF\n\n   aStruct &#58;= &#123; ;\n                &#123; &quot;NAME&quot;     , &quot;C&quot;, 40, 0 &#125; ,;\n                &#123; &quot;ADDRESS&quot;  , &quot;C&quot;, 40, 0 &#125; ,;\n                &#123; &quot;BIRTHDAY&quot; , &quot;D&quot;,  8, 0 &#125; ,;\n                &#123; &quot;AGE&quot;      , &quot;N&quot;,  3, 0 &#125;  ;\n              &#125;\n\n   dbCreate&#40; &quot;arrtest&#46;dbf&quot;, aStruct, &quot;ARRAYRDD&quot; &#41;\n\n   USE arrtest&#46;dbf VIA &quot;ARRAYRDD&quot;\n\n   dbAppend&#40;&#41;\n   field-&gt;name     &#58;= &quot;Giudice Francesco Saverio&quot;\n   field-&gt;address  &#58;= &quot;Main Street 10&quot;\n   field-&gt;birthday &#58;= CToD&#40; &quot;03/01/1967&quot; &#41;\n   field-&gt;age      &#58;= 39\n\n\n   dbAppend&#40;&#41;\n   field-&gt;name     &#58;= &quot;Mouse Mickey&quot;\n   field-&gt;address  &#58;= &quot;Main Street 20&quot;\n   field-&gt;birthday &#58;= CToD&#40; &quot;01/01/1940&quot; &#41;\n   field-&gt;age      &#58;= 66\n\n   arrtest -&gt; &#40; DBGOTOP&#40;&#41; &#41;\n\n   BROWSE&#40;&#41;\n\n  \nRETURN  NIL\n[/code:3vj1047w]\n\nsome help?\n\nRegards\n\nMarcelo','',0,'AIA=','3vj1047w',1,0,'',41,0,0),(18678,4216,3,2,0,'87.218.146.14',1157980026,1,0,1,1,1,1,'','','Brian,\n\nWe prefeer to avoid macros, and this way you get it working for any type of parameters (though it is limited to a certain amount of them, but you can increase it to 10 params or more):\n[code:2bo3o77n]\nMETHOD OnError&#40; u1, u2, u3, u4, u5 &#41; CLASS XXXView \n\n   static lInErrorAlready &#58;= &#46;f&#46; \n\n   local cMsg &#58;= __GetMessage&#40;&#41;, uRet\n\n   IF lInErrorAlready \n      _ClsSetError&#40; _GenError&#40; 1004, &#58;&#58;ClassName&#40;&#41;, cMsg  &#41; &#41; \n   ELSE \n      lInErrorAlready &#58;= &#46;t&#46; \n      do case\n         case PCount&#40;&#41; == 0\n               uRet = &#58;&#58;Do&#40; cMsg &#41;\n\n        case PCount&#40;&#41; == 1\n               uRet = &#58;&#58;Do&#40; cMsg, u1 &#41;\n\n        case PCount&#40;&#41; == 2\n               uRet = &#58;&#58;Do&#40; cMsg, u1, u2 &#41;\n\n        case PCount&#40;&#41; == 3\n               uRet = &#58;&#58;Do&#40; cMsg, u1, u2, u3 &#41;\n\n        case PCount&#40;&#41; == 4\n               uRet = &#58;&#58;Do&#40; cMsg, u1, u2, u3, u4 &#41;\n\n        case PCount&#40;&#41; == 5\n               uRet = &#58;&#58;Do&#40; cMsg, u1, u2, u3, u4, u5 &#41;\n\n        otherwise\n              MsgAlert&#40; &quot;More cases needed&quot; &#41;\n     endcase\n\n   ENDIF \n   lInErrorAlready &#58;= &#46;F&#46; \n\nRETURN uRet\n[/code:2bo3o77n]','',0,'AIA=','2bo3o77n',1,0,'',2,0,0),(18679,4221,3,51,0,'80.122.88.242',1157981144,1,0,1,1,1,0,'','Alias in index expression','Is there an advantage of using an ALIAS in the index-expression: \n      index on kasse-&gt;beleg                  tag k_beleg\nor\n      index on beleg                  tag k_beleg\n\nThanks in advance\nOtto','',0,'AIA=','8actwf6j',1,0,'',51,0,0),(18680,4210,6,18,0,'200.67.188.236',1157982032,1,0,1,1,1,1,'','Re: EXCEL','[quote=&quot;Arvisnet&quot;:cz80qsbm]saludos. algun ejemplo para enviar reportes a excel? , existe algun manual del reporteador de Fw?... \n\narnulfo[/quote:cz80qsbm]\n\nPuedes usar la clase TExcel\n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin\">http://vikthor.com.mx/fivewin</a><!-- m -->','',0,'gA==','cz80qsbm',1,0,'',18,0,0),(18681,4203,6,18,0,'200.67.188.236',1157982112,1,0,1,1,1,1,'','Re: Vikthor - Por favor - Preciso que funcione a TWORD!','[quote=&quot;AOKISANTOS&quot;:13awodkb]Vikthor, por favor meu amigo... Estou precisando muito fazer funcionar a TWORD no meu sistema...\n\nAmigo, eu utilizo FWH2.5 + XHARBOUR 99.50 + BCC5.5.1\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->[/quote:13awodkb]\n\nYou can download it from <!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin\">http://vikthor.com.mx/fivewin</a><!-- m -->','',0,'gA==','13awodkb',1,0,'',18,0,0),(18683,4221,3,138,0,'189.141.70.60',1157988953,1,0,1,1,1,1,'','Re: Alias in index expression','[quote=&quot;Otto&quot;:3b6hjxg3]Is there an advantage of using an ALIAS in the index-expression: \n      index on kasse-&gt;beleg                  tag k_beleg\nor\n      index on beleg                  tag k_beleg\n\nThanks in advance\nOtto[/quote:3b6hjxg3]\n\nNone at all, in fact, you should avoid the use of use of alias in index expressions, specially if you are using Advantage Database Server, or if you are working with dynamic aliases.','',0,'gA==','3b6hjxg3',1,0,'',138,0,0),(18684,4222,3,439,0,'190.0.132.37',1157989125,1,0,1,1,1,1,'','Clase VtaskBar Vmenu','Quiero ofrecer una disculpa, aunque el error no parta de mí:\nRecibí el siguiente mail de Paco:\n\n[quote:15aridvt]Hola Jose\n \nCreo que ha habido un mal entendido por mi parte. Lo que yo le envie a Juan Carlos era el C5Menu no la clase TVMenu que es del control VTaskbar. Esta es comercial y la vendo por 60 Euros \nUn saludo\nPaco García\n[/quote:15aridvt]\n\nASI QUE ME DISCULPO <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , LA CLASE VMENU - VTASKBAR no será liberada, su costo es de 60 euros y para obtenerse deben contactarse con Paco.\n\nLo positivo es que está disponible para quien quiera obtenerla, pido nuevamente disculpas,todo fué un mal entendido. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','15aridvt',1,0,'',439,0,0),(18685,4153,3,138,0,'189.141.70.60',1157989247,1,0,1,1,1,1,'','','Reading carefully I noticed that you are using the AIS, so things may change:\n\nIf you are using AIS you are using ADS Remote Server, so you don\'t need to perform any reindex operation at all.\n\nReindexing erasing the ADI files is only possible when you are working in a LAN, because the AIS doesn\'t have direct access to the files in the remote server.\n\nAnd Bryan says, if you are using the local server, you are still in danger of index corruption','',0,'gA==','1ulf3288',1,0,'',138,0,0),(18686,4198,6,217,0,'200.159.120.34',1157992074,1,0,1,1,1,0,'','Re: clase outlook','Marco, intenta esto:\n\n[code:2mp27x4u]\ndefine font oFont name &quot;Arial&quot; size 0, -9 BOLD\n&#46;&#46;&#46;\n@ -1, -1 OUTLOOK oOut              ;\n          SIZE 100, oWnd&#58;nHeight&#40;&#41;  ;\n          PIXEL                     ;\n          COLOR CLR_WHITE, CLR_GRAY ; // &lt;----- Colores!\n          FONT oFont                ;  // &lt;--- font\n          OF oWnd\n[/code:2mp27x4u]\n\nSalu2!\nMaurilio','',0,'AIA=','2mp27x4u',1,0,'',217,0,0),(18687,4220,3,6,0,'87.18.239.53',1157992212,1,0,1,1,1,1,'','Re: USRRDD + FWH','It seems a FWH issue as it works just fine in pure xHarbour.\n\nEMG','',0,'AIA=','2wwzpgh8',1,0,'',6,0,0),(18688,4202,6,217,0,'200.159.120.34',1157992340,1,0,1,1,1,0,'','Re: Ejemplo de Outlook en Dialogos desde recursos ?','Ruben, TOutlook solo funciona desde codigo.\n\nSalu2\nMaurilio','',0,'AIA=','zwxicste',1,0,'',217,0,0),(18689,4217,3,303,0,'72.199.41.171',1157992803,1,0,1,1,1,0,'','','I\'m not sure what you are asking, but if you want the color of a pen just use oPen:nColor.\n\nJames','',0,'AIA=','zu34nimn',1,0,'',303,0,0),(18690,4218,3,303,0,'72.199.41.171',1157992990,1,0,1,1,1,0,'','','Group Totals\n\nHere is how you can get access to the group totals:\n\n oReport:bEndGroup:={ | oCol | msgInfo( oCol:oReport:aGroups[1]:aTotal[4]) }\n\nThis would show the group total for column 4 of group 1 (if you are only using one group then it will be 1.\n\nNote that bEndgroup is eval\'d before the total is printed.\n\nExample: You could probably use oReport:cargo to hold a record count and then use it to find the average.','',0,'','3skkeas9',1,0,'',303,0,0),(18691,4221,3,89,0,'213.21.136.60',1157993255,1,0,1,1,1,0,'','','I use \n\nindex on field-&gt;beleg tag k_beleg \n\nso I not declare  the FIELD\n\nMaurizio','',0,'','10n145bt',1,0,'',89,0,0),(18692,4198,6,121,0,'189.138.25.23',1157993856,1,0,1,1,1,1,'','','MUCHAS GRACIAS POR LA ATENCION\n\nSALUDOS','',0,'','2qsg41oo',1,0,'',121,0,0),(18693,4171,3,486,0,'200.184.85.3',1157994880,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:b0kg3cri]Postea el mensaje en portugues, es totalmente intenedible[/quote:b0kg3cri]\n\nGostaria de encriptografar o DBF usando o ADS local, para que nenhum usuario consiga abrir usando DBU, wdbu, etc ..\n\nClemerson','',0,'gA==','b0kg3cri',1,0,'',486,0,0),(18694,4221,3,51,0,'80.122.88.242',1157995691,1,0,1,1,1,0,'','','Rene, thank you for your answer. Advantage is my problem therefore I have to change. I couldn\'t remember why I used the Alias. \n\nHello Maurizio,\nI was very happy to see you and your family here in Sillian.\nThe evening was too short. \nGreetings from all of us\nOtto','',0,'gA==','oaa49wbk',1,0,'',51,0,0),(18695,4218,3,792,0,'213.22.46.27',1157996348,1,0,1,1,1,0,'','Group Totals','Hi James\n\nTanks for your reply.\n\n\nYou understand my question and i\'m realy near the solution . Whay i need to know is how i print it.\n\nMy code:\n\nCOLUMN TITLE \"FORNECEDOR\"                               DATA cod_fornec+\' \'+nome_for                      FONT 2 GRID\nCOLUMN TITLE \"FACTURADO\"                                DATA val_fac  PICTURE \'99 999 999 999.99\' TOTAL   FONT 2 GRID\nCOLUMN TITLE \"DIVIDA\"                                   DATA val_div  PICTURE \'99 999 999 999.99\' TOTAL   FONT 2 GRID\nCOLUMN TITLE \"P.M.P(\"+iif(tcalc=1,\"Dias\",\"Meses\")+\")\"   DATA pmp      PICTURE \'99 999\'                    FONT 2 GRID\n                  \n\nGROUP ON cod_fac;\n   HEADER cod_fac+\'-\'+nome_fac;\n   FOOTER \"Total factor - \"+oReport:aGroups[1]:cValue+ ;\n                  \" (\"+ltrim(str(oReport:aGroups[1]:nCounter))+\")\";\n   FONT 1\n   \n\npmp_g:=(aGroups[1]:aTotal[3] / aGroups[1]:aTotal[3]) * iif(tcalc=1,365,12)\n\n?? How can i print pmp_g  ?? under   the 4 column                                                            \n\n\nEND REPORT\n\nActivate Report oReport ON STARTGROUP oReport:NewLine()\n\n\nBest regards','',0,'','2isfjpjx',1,0,'',792,0,0),(18696,4217,3,49,0,'82.91.97.218',1157996755,1,0,1,1,1,1,'','','I try with\n\nopen:ncolor\n\nand \n\nopen:nrgbcolor\n\nNOt Run!!!\n\nI must make it because i create before a rectangule and then i must refill it\n\n-----------------------------','',0,'','1wfrzyqn',1,0,'',49,0,0),(18698,4164,7,490,0,'80.24.224.89',1157996941,1,0,1,1,1,0,'','','Antonio,\n\nHe hecho un logfile con la memoria cuando se entra y sale de un diálogo, con y sin añadir hb_gcall (da el mismo resultado) y lo más preocupante\nes que un diálogo con 1 checkbox 1 combo 1 browse y 2 botones aceptar/cancelar después de entrar y salir (sin hacer nada) 5 veces pierde 1.4 Mb de memoria física disponible (Estoy probando en windows CE 5.0)\n\nSi me pudieras iluminar para saber que método uso para descubrir que se está quedando en memoria, te lo agradecería.\n\nNo sé que probar más, llevamos unos 8 años con fw y conocemos bastante bien el tema de no dejar, brush, fonts y demás sin destruir.\n\n\nDecirte, por si tiene algo que ver, que creamos varios fonts para toda la aplicación al principio, y los destruímos al salir de la misma. Para no estar creando y destruyendo fonts continuamente.\n\n\nUn Saludo,\nJoaquín','',0,'','2wxgj6hd',1,0,'',490,0,0),(18699,4203,6,694,0,'200.181.206.82',1157997478,1,0,1,1,1,1,'','Gracias Antonio... gracias Vikthor','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  O problema era o meu office do WINDOWS 98, deu certo...\n\nMUIIIIIIIIIIIIIIIITO OBRIGADO\n\nAOKISANTOS','',0,'','36zayyh9',1,0,'',694,0,0),(18700,4207,6,694,0,'200.181.206.82',1157997686,1,0,1,1,1,1,'','GRACIAS','DEU CERTO AMIGOS...\n\nMUITO OBRIGADO ANTONIO\n\nGRACIAS MESTRE...\n\n\nAOKISANTOS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','2rndsp2w',1,0,'',694,0,0),(18701,4223,6,694,0,'200.181.206.82',1157997993,1,0,1,1,1,1,'','Copiar arquivo do terminal para o SERVIDOR?','Amigos, como copiar um arquivo de um terminal para um servidor?\n\nEx: Eu tendo um arquivo no terminal chamado TESTOF.DOC e quero mandalo para o servidor...\n\nCIP4:=\"\\\\SERVIDOR\\C\\DATA\\testof.doc\'\n\nCOPY FILE testof.doc TO cip4\nif FILE(cip4)      \n   msginfo(\"copiado\")\nendif\n\nmais não está funcionando....\n \nAOKISANTOS\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','2i9jo1h7',1,0,'',694,0,0),(18702,4224,7,720,0,'80.36.244.134',1157998086,1,0,1,1,1,0,'','color de fondo...','Hola a todos, he leido que la función setbkcolor() genera el color de fondo, alguien puede decirme como la uso?\n\nGracias y saludos.\n\nElías Torres.','',0,'','r4t97kd4',1,0,'',720,0,0),(18703,4164,7,2,0,'87.218.146.14',1157998215,1,0,1,1,1,1,'','','Joaquín,\n\n&gt; Estoy probando en windows CE 5.0\n\nPuedes probarlo en el emulador ó en Windows Mobile ?','',0,'','3gyf1n6n',1,0,'',2,0,0),(18704,4220,3,2,0,'87.218.146.14',1157999103,1,0,1,1,1,1,'','','Marcelo, Enrico,\n\nIt looks as PACK, RLock() and UNLOCK are crashing with that RDD.\n\nCould you please confirm it, testing the sample without FWH and using those sentences ? thanks','',0,'','3jr73cne',1,0,'',2,0,0),(18705,4218,3,792,0,'213.22.46.27',1157999145,1,0,1,1,1,0,'','Total Groups','Hi James\n\nI discovered the solution. I need to force de Atotal[4]\n\n\noReport:bEndGroup:={ | oCol | (oCol:oReport:aGroups[1]:aTotal[4]:=(oCol:oReport:aGroups[1]:aTotal[3] / oCol:oReport:aGroups[1]:aTotal[2]) * iif(tcalc=1,365,12)  )}\n\n\nRegards\n\n         Pedro','',0,'','36dwlolo',1,0,'',792,0,0),(18706,4220,3,2,0,'87.218.146.14',1157999715,1,0,1,1,1,1,'','','Those sentences generate an error, but FWH errorsys tries to use the RDD again, thats why it crashes. We need to modify FWH errorsys.','',0,'','1z1l0cot',1,0,'',2,0,0),(18707,4215,6,180,0,'81.38.1.215',1158000350,1,0,1,1,1,0,'','','Gracias Antonio. \nNo es eso, creo que el asunto va por el windowsxp.manifest. En el ejemplo de la toolbar se usa en el archivo RC y yo no lo estoy usando pues uso una DLL. ¿Como podría implementar windowsxp.manifest sin usar un .RC ?\n\nSaludos,\nManuel','',0,'','3umi894n',1,0,'',180,0,0),(18708,4218,3,303,0,'72.199.41.171',1158001224,1,0,1,1,1,0,'','','&gt;I discovered the solution. I need to force de Atotal[4] \n\nRight. Sorry I didn\'t mention that.\n\nGlad to hear you got it working.\n\nJames','',0,'','359iyd0p',1,0,'',303,0,0),(18709,4220,3,41,0,'200.87.67.10',1158001322,1,0,1,1,1,0,'','','Thanks Enrico, Antonio \n\nyes, I compiled the same source code without the first line (#include \"fivewin.ch\") and surprise, I have the same behavior, all ok until we try to modife or insert a record.\n\nMaybe I\'m doing some thing wrong, link script? I only add usrrdd.lib to bld.bat.\n\nIf you have some idea please share it with me\n\nregards\n\nMarcelo','',0,'','3lzxlai7',1,0,'',41,0,0),(18710,4217,3,303,0,'72.199.41.171',1158001452,1,0,1,1,1,0,'','','Silvio,\n\nIf you are just trying to figure the color number, then:\n\nnColor := rgb(nRed,nBlue,nGreen) \nhBru := CreateSolidBrush( nColor )\n\nRGB is just a #translate function in colors.ch.\n\nJames','',0,'','2hqot6ju',1,0,'',303,0,0),(18711,4153,3,41,0,'200.87.67.10',1158002401,1,0,1,1,1,0,'','','Hello,\n\nyou can try with ADSREINDEX() (read the manual)\n\nregards\n\nMarcelo','',0,'','1ax9q1d4',1,0,'',41,0,0),(18712,4216,3,144,0,'66.27.53.172',1158005402,1,0,1,1,1,1,'','','Terrific, Thanks!','',0,'','24c2uev8',1,0,'',144,0,0),(18713,4225,7,428,0,'200.55.19.126',1158006808,1,0,1,1,1,0,'','SQL SERVER','Quisiera saber si es posible conectarme con una base de datos en SQL Server, desde mi aplicación del Pocket, desde FWH lo realizo sin problemas, y la idea es poder lograrlo desde el pocket usando Fw y Harbour. Se que usando una pagina Web esto es viable, pero no es lo que necesito.\n\nSaludos\nMiguel','',0,'','2ju30rwz',1,0,'',428,0,0),(18714,4220,3,2,0,'87.218.146.14',1158007183,1,0,1,1,1,1,'','','Marcelo,\n\nIt is FWH errorsys. It has to be modified.\n\nWe are going to review it asap.','',0,'','ss1api0s',1,0,'',2,0,0),(18715,4224,7,2,0,'87.218.146.14',1158007335,1,0,1,1,1,1,'','','Elías,\n\nSetBkMode() se usa para el color de fondo al utilizar algunas funciones de pintado del GDI de Windows. A que le quieres cambiar el color de fondo ?\n\nPara una ventana, diálogo y algunos controles, puedes usar oWnd:SetColor( nClrFore, nClrBack )','',0,'','36evbmsh',1,0,'',2,0,0),(18716,4153,3,144,0,'69.236.252.190',1158007632,1,0,1,1,1,1,'','','Generally speaking, I strongly recommend staying with the clipper-compatible standard commands and functions.  In the early days of rddads there was a need to create some wrapper functions to directly access ads stuff, but now almost all functionality (except where an ads feature is beyond what the common rdds offer) is integrated into the core rdd and routed correctly to ads.\n\nIt keeps your code cleaner and makes it less ads-specific.\n\nIt is ALWAYS a good idea to review the ADS help file to understand the underlying functions and features.','',0,'','1s67toa8',1,0,'',144,0,0),(18717,4225,7,2,0,'87.218.146.14',1158007706,1,0,1,1,1,1,'','','Miguel,\n\nPosiblemente exista una DLL para Windows Mobile para conectarse a SQL server. Una vez localizada es cuestión solamente de escribir las llamadas a las funciones que proporcione.','',0,'','126ng1y4',1,0,'',2,0,0),(18718,4215,6,2,0,'87.218.146.14',1158007950,1,0,1,1,1,1,'','','Manuel,\n\nEditas el RC y luego lo conviertes a DLL con fwh\\dll\\rc2dll32.bat ? \n\nO estás editando directamente la DLL con PellesC ?','',0,'','yjmboszm',1,0,'',2,0,0),(18719,4164,7,490,0,'88.8.84.57',1158008028,1,0,1,1,1,0,'','','Antonio,\n\nHe hecho exactamente lo mismo en windows mobile, y también pierde memoria con sólo entrar y salir de cualquier diálogo de la aplicación.\n\nNo obstante, parece ser que no tanta cantidad. \n\nTe puedo decir que clientes que durante el día han estado usándolo, se les ha ido poniendo cada vez más lenta la PDA y en algunos casos se ha bloqueado sin memoria.\n\nHe entrado y salido en diálogos 5 veces y me ha perdido 1.3 Mb.\n\nTodo son diálogos menos la windows principal,\n\nSi hubiera por ahí alguna función que me chequee que recurso es el que se queda en memoria, sería lo ideal. O forma de construírmela.\n\nUn Saludo,\nJoaquín','',0,'','3nv1lhs3',1,0,'',490,0,0),(18720,1565,6,147,0,'190.7.30.35',1158009948,1,0,1,0,1,1,'','','Hola gente.\nTengo la siguiente consulta sobre UES, ya que en la ayuda no encuentro nada al respecto...o no lo estoy buscando bien :-)\nCuando defino un proyecto y agrego mis fuents, estos se agregan en orden alfabético. De manera que si mi primer fuente es Main y otro Abms, el orden de compilado es inverso. Actualmente lo que hago es editar makefile y darle el orden deseado.\nExiste alguna manera de decirle UES cual es le orden pretendido?.\n\ngracias','',0,'','3nqeek6p',1,0,'',147,0,0),(18721,4226,3,394,0,'207.219.124.134',1158010501,1,0,1,1,1,0,'','xharbour from xharbour.com and fwh aug release Problems','When I try to make fwh samples I get the following error file. \nWhat do I have to do ?\nThanks Mike.\n\n\n\nType: C &gt;&gt;&gt;xhb.exe -o\"bigfold.c\" -m -n -w -p -q -gc0  -I\"C:\\FWH\\INCLUDE\"  -I\"C:\\fwh\\include\" -I\"C:\\xHB\\include\" -I\"C:\\xHB\\include\\w32\" \"bigfold.prg\"&lt;&lt;&lt;\n\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nGenerating object output to \'bigfold.obj\'...\n\nType: C &gt;&gt;&gt;xrc.exe -fo\"bigfold.res\"    -i\"C:\\FWH\\INCLUDE\"  -I\"C:\\xHB\\c_include\" -I\"C:\\xHB\\c_include\\win\" \"bigfold.rc\"&lt;&lt;&lt;\n\nxRC: C:\\xHB\\include\\wintypes.ch(19): warning: Unknown preprocessor control: \'Ifndef\'.\n\n\nxRC: C:\\xHB\\include\\wintypes.ch(76): error: #endif with no #if.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(87): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(90): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(91): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(94): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(103): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(106): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(108): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(111): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(115): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(116): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(117): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(129): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(134): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(135): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(137): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(138): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(140): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\cstruct.ch(141): warning: Unknown preprocessor control: \'xtranslate\'.\n\n\nxRC: C:\\xHB\\include\\wintypes.ch(76): error: File not found: \'#endif\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1): error: File not found: \'from\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1): error: File not found: \'hConvert.EXE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(2): error: File not found: \'Wise\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(2): error: File not found: \'Wos\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3): error: File not found: \'any\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3): error: File not found: \'is\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3): error: File not found: \'implied.\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4): error: File not found: \'recommended\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4): error: File not found: \'the\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4): error: File not found: \'the\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4): error: File not found: \'use.\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1623): warning: Macro redefinition of \'WS_OVERLAPPED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1625): warning: Macro redefinition of \'WS_POPUP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1626): warning: Macro redefinition of \'WS_CHILD\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1627): warning: Macro redefinition of \'WS_MINIMIZE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1628): warning: Macro redefinition of \'WS_VISIBLE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1629): warning: Macro redefinition of \'WS_DISABLED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1630): warning: Macro redefinition of \'WS_CLIPSIBLINGS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1631): warning: Macro redefinition of \'WS_CLIPCHILDREN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1632): warning: Macro redefinition of \'WS_MAXIMIZE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1633): warning: Macro redefinition of \'WS_CAPTION\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1634): warning: Macro redefinition of \'WS_BORDER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1635): warning: Macro redefinition of \'WS_DLGFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1636): warning: Macro redefinition of \'WS_VSCROLL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1637): warning: Macro redefinition of \'WS_HSCROLL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1638): warning: Macro redefinition of \'WS_SYSMENU\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1639): warning: Macro redefinition of \'WS_THICKFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1640): warning: Macro redefinition of \'WS_GROUP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1641): warning: Macro redefinition of \'WS_TABSTOP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1643): warning: Macro redefinition of \'WS_MINIMIZEBOX\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1644): warning: Macro redefinition of \'WS_MAXIMIZEBOX\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1655): warning: Macro redefinition of \'WS_OVERLAPPEDWINDOW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1662): warning: Macro redefinition of \'WS_POPUPWINDOW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1666): warning: Macro redefinition of \'WS_CHILDWINDOW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1671): warning: Macro redefinition of \'WS_EX_DLGMODALFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1672): warning: Macro redefinition of \'WS_EX_NOPARENTNOTIFY\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1673): warning: Macro redefinition of \'WS_EX_TOPMOST\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1674): warning: Macro redefinition of \'WS_EX_ACCEPTFILES\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1675): warning: Macro redefinition of \'WS_EX_TRANSPARENT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1677): warning: Macro redefinition of \'WS_EX_MDICHILD\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1678): warning: Macro redefinition of \'WS_EX_TOOLWINDOW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1679): warning: Macro redefinition of \'WS_EX_WINDOWEDGE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1680): warning: Macro redefinition of \'WS_EX_CLIENTEDGE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1681): warning: Macro redefinition of \'WS_EX_CONTEXTHELP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1683): warning: Macro redefinition of \'WS_EX_RIGHT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1684): warning: Macro redefinition of \'WS_EX_LEFT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1685): warning: Macro redefinition of \'WS_EX_RTLREADING\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1686): warning: Macro redefinition of \'WS_EX_LTRREADING\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1687): warning: Macro redefinition of \'WS_EX_LEFTSCROLLBAR\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1688): warning: Macro redefinition of \'WS_EX_RIGHTSCROLLBAR\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1690): warning: Macro redefinition of \'WS_EX_CONTROLPARENT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1691): warning: Macro redefinition of \'WS_EX_STATICEDGE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1692): warning: Macro redefinition of \'WS_EX_APPWINDOW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1695): warning: Macro redefinition of \'WS_EX_OVERLAPPEDWINDOW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1696): warning: Macro redefinition of \'WS_EX_PALETTEWINDOW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1701): warning: Macro redefinition of \'WS_EX_LAYERED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1706): warning: Macro redefinition of \'WS_EX_NOINHERITLAYOUT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1707): warning: Macro redefinition of \'WS_EX_LAYOUTRTL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1711): warning: Macro redefinition of \'WS_EX_NOACTIVATE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1656): error: Addition is not allowed.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1657): error: Addition is not allowed.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1658): error: Addition is not allowed.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1659): error: Addition is not allowed.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(1663): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3977): warning: Macro redefinition of \'MF_INSERT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3978): warning: Macro redefinition of \'MF_CHANGE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3979): warning: Macro redefinition of \'MF_APPEND\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3980): warning: Macro redefinition of \'MF_DELETE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3981): warning: Macro redefinition of \'MF_REMOVE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3983): warning: Macro redefinition of \'MF_BYCOMMAND\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3984): warning: Macro redefinition of \'MF_BYPOSITION\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3986): warning: Macro redefinition of \'MF_SEPARATOR\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3988): warning: Macro redefinition of \'MF_ENABLED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3989): warning: Macro redefinition of \'MF_GRAYED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3990): warning: Macro redefinition of \'MF_DISABLED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3992): warning: Macro redefinition of \'MF_UNCHECKED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3993): warning: Macro redefinition of \'MF_CHECKED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3994): warning: Macro redefinition of \'MF_USECHECKBITMAPS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3996): warning: Macro redefinition of \'MF_STRING\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3997): warning: Macro redefinition of \'MF_BITMAP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(3998): warning: Macro redefinition of \'MF_OWNERDRAW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4000): warning: Macro redefinition of \'MF_POPUP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4001): warning: Macro redefinition of \'MF_MENUBARBREAK\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4002): warning: Macro redefinition of \'MF_MENUBREAK\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4004): warning: Macro redefinition of \'MF_UNHILITE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4005): warning: Macro redefinition of \'MF_HILITE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4008): warning: Macro redefinition of \'MF_DEFAULT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4010): warning: Macro redefinition of \'MF_SYSMENU\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4011): warning: Macro redefinition of \'MF_HELP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4013): warning: Macro redefinition of \'MF_RIGHTJUSTIFY\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4016): warning: Macro redefinition of \'MF_MOUSESELECT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4018): warning: Macro redefinition of \'MF_END\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4028): warning: Macro redefinition of \'MFT_RADIOCHECK\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4030): warning: Macro redefinition of \'MFT_RIGHTORDER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4034): warning: Macro redefinition of \'MFS_GRAYED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4377): warning: Macro redefinition of \'ES_LEFT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4378): warning: Macro redefinition of \'ES_CENTER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4379): warning: Macro redefinition of \'ES_RIGHT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4380): warning: Macro redefinition of \'ES_MULTILINE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4381): warning: Macro redefinition of \'ES_UPPERCASE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4382): warning: Macro redefinition of \'ES_LOWERCASE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4383): warning: Macro redefinition of \'ES_PASSWORD\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4384): warning: Macro redefinition of \'ES_AUTOVSCROLL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4385): warning: Macro redefinition of \'ES_AUTOHSCROLL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4386): warning: Macro redefinition of \'ES_NOHIDESEL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4387): warning: Macro redefinition of \'ES_OEMCONVERT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4388): warning: Macro redefinition of \'ES_READONLY\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4389): warning: Macro redefinition of \'ES_WANTRETURN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4391): warning: Macro redefinition of \'ES_NUMBER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4493): warning: Macro redefinition of \'BS_PUSHBUTTON\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4494): warning: Macro redefinition of \'BS_DEFPUSHBUTTON\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4495): warning: Macro redefinition of \'BS_CHECKBOX\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4496): warning: Macro redefinition of \'BS_AUTOCHECKBOX\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4497): warning: Macro redefinition of \'BS_RADIOBUTTON\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4498): warning: Macro redefinition of \'BS_3STATE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4499): warning: Macro redefinition of \'BS_AUTO3STATE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4500): warning: Macro redefinition of \'BS_GROUPBOX\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4501): warning: Macro redefinition of \'BS_USERBUTTON\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4502): warning: Macro redefinition of \'BS_AUTORADIOBUTTON\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4503): warning: Macro redefinition of \'BS_OWNERDRAW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4504): warning: Macro redefinition of \'BS_LEFTTEXT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4506): warning: Macro redefinition of \'BS_TEXT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4507): warning: Macro redefinition of \'BS_ICON\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4508): warning: Macro redefinition of \'BS_BITMAP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4509): warning: Macro redefinition of \'BS_LEFT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4510): warning: Macro redefinition of \'BS_RIGHT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4511): warning: Macro redefinition of \'BS_CENTER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4512): warning: Macro redefinition of \'BS_TOP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4513): warning: Macro redefinition of \'BS_BOTTOM\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4514): warning: Macro redefinition of \'BS_VCENTER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4515): warning: Macro redefinition of \'BS_PUSHLIKE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4516): warning: Macro redefinition of \'BS_MULTILINE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4517): warning: Macro redefinition of \'BS_NOTIFY\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4518): warning: Macro redefinition of \'BS_FLAT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4562): warning: Macro redefinition of \'SS_LEFT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4563): warning: Macro redefinition of \'SS_CENTER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4564): warning: Macro redefinition of \'SS_RIGHT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4565): warning: Macro redefinition of \'SS_ICON\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4566): warning: Macro redefinition of \'SS_BLACKRECT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4567): warning: Macro redefinition of \'SS_GRAYRECT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4568): warning: Macro redefinition of \'SS_WHITERECT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4569): warning: Macro redefinition of \'SS_BLACKFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4570): warning: Macro redefinition of \'SS_GRAYFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4571): warning: Macro redefinition of \'SS_WHITEFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4572): warning: Macro redefinition of \'SS_USERITEM\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4573): warning: Macro redefinition of \'SS_SIMPLE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4574): warning: Macro redefinition of \'SS_LEFTNOWORDWRAP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4576): warning: Macro redefinition of \'SS_OWNERDRAW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4577): warning: Macro redefinition of \'SS_BITMAP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4578): warning: Macro redefinition of \'SS_ENHMETAFILE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4579): warning: Macro redefinition of \'SS_ETCHEDHORZ\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4580): warning: Macro redefinition of \'SS_ETCHEDVERT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4581): warning: Macro redefinition of \'SS_ETCHEDFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4582): warning: Macro redefinition of \'SS_TYPEMASK\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4584): warning: Macro redefinition of \'SS_NOPREFIX\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4586): warning: Macro redefinition of \'SS_NOTIFY\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4587): warning: Macro redefinition of \'SS_CENTERIMAGE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4588): warning: Macro redefinition of \'SS_RIGHTJUST\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4589): warning: Macro redefinition of \'SS_REALSIZEIMAGE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4590): warning: Macro redefinition of \'SS_SUNKEN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4591): warning: Macro redefinition of \'SS_ENDELLIPSIS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4592): warning: Macro redefinition of \'SS_PATHELLIPSIS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4593): warning: Macro redefinition of \'SS_WORDELLIPSIS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4594): warning: Macro redefinition of \'SS_ELLIPSISMASK\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4694): warning: Macro redefinition of \'DS_ABSALIGN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4695): warning: Macro redefinition of \'DS_SYSMODAL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4696): warning: Macro redefinition of \'DS_LOCALEDIT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4697): warning: Macro redefinition of \'DS_SETFONT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4698): warning: Macro redefinition of \'DS_MODALFRAME\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4699): warning: Macro redefinition of \'DS_NOIDLEMSG\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4700): warning: Macro redefinition of \'DS_SETFOREGROUND\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4704): warning: Macro redefinition of \'DS_3DLOOK\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4705): warning: Macro redefinition of \'DS_FIXEDSYS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4706): warning: Macro redefinition of \'DS_NOFAILCREATE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4707): warning: Macro redefinition of \'DS_CONTROL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4708): warning: Macro redefinition of \'DS_CENTER\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4709): warning: Macro redefinition of \'DS_CENTERMOUSE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4710): warning: Macro redefinition of \'DS_CONTEXTHELP\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4712): warning: Macro redefinition of \'DS_SHELLFONT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4836): warning: Macro redefinition of \'LBS_NOTIFY\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4837): warning: Macro redefinition of \'LBS_SORT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4838): warning: Macro redefinition of \'LBS_NOREDRAW\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4839): warning: Macro redefinition of \'LBS_MULTIPLESEL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4840): warning: Macro redefinition of \'LBS_OWNERDRAWFIXED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4841): warning: Macro redefinition of \'LBS_OWNERDRAWVARIABLE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4842): warning: Macro redefinition of \'LBS_HASSTRINGS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4843): warning: Macro redefinition of \'LBS_USETABSTOPS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4844): warning: Macro redefinition of \'LBS_NOINTEGRALHEIGHT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4845): warning: Macro redefinition of \'LBS_MULTICOLUMN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4846): warning: Macro redefinition of \'LBS_WANTKEYBOARDINPUT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4847): warning: Macro redefinition of \'LBS_EXTENDEDSEL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4848): warning: Macro redefinition of \'LBS_DISABLENOSCROLL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4849): warning: Macro redefinition of \'LBS_NODATA\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4851): warning: Macro redefinition of \'LBS_NOSEL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4853): warning: Macro redefinition of \'LBS_STANDARD\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4886): warning: Macro redefinition of \'CBS_SIMPLE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4887): warning: Macro redefinition of \'CBS_DROPDOWN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4888): warning: Macro redefinition of \'CBS_DROPDOWNLIST\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4889): warning: Macro redefinition of \'CBS_OWNERDRAWFIXED\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4890): warning: Macro redefinition of \'CBS_OWNERDRAWVARIABLE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4891): warning: Macro redefinition of \'CBS_AUTOHSCROLL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4892): warning: Macro redefinition of \'CBS_OEMCONVERT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4893): warning: Macro redefinition of \'CBS_SORT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4894): warning: Macro redefinition of \'CBS_HASSTRINGS\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4895): warning: Macro redefinition of \'CBS_NOINTEGRALHEIGHT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4896): warning: Macro redefinition of \'CBS_DISABLENOSCROLL\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4898): warning: Macro redefinition of \'CBS_UPPERCASE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4899): warning: Macro redefinition of \'CBS_LOWERCASE\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4963): warning: Macro redefinition of \'SBS_HORZ\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4964): warning: Macro redefinition of \'SBS_VERT\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4965): warning: Macro redefinition of \'SBS_TOPALIGN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4966): warning: Macro redefinition of \'SBS_LEFTALIGN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4967): warning: Macro redefinition of \'SBS_BOTTOMALIGN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4968): warning: Macro redefinition of \'SBS_RIGHTALIGN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4969): warning: Macro redefinition of \'SBS_SIZEBOXTOPLEFTALIGN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4970): warning: Macro redefinition of \'SBS_SIZEBOXBOTTOMRIGHTALIGN\'.\n\n\nxRC: C:\\xHB\\include\\winuser.ch(4971): warning: Macro redefinition of \'SBS_SIZEBOX\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(9): warning: Unknown preprocessor control: \'xcommand\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(13): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(14): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(15): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(9): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(13): error: File not found: \'ISNIL(\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(14): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(15): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(16): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(17): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(18): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(19): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(20): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(21): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(22): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(23): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(25): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(26): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(27): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(28): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(29): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(30): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(31): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(32): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(33): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(34): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(35): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(36): warning: Unknown preprocessor control: \'translate\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(16): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(17): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(18): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(19): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(20): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(21): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(22): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(23): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(25): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(26): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(26): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(27): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(27): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(28): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(28): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(29): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(29): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(30): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(30): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(31): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(31): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(32): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(32): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(33): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(33): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(34): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(34): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(35): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(35): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(36): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(36): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(109): error: File not found: \'typedef\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(110): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(111): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(112): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(113): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(114): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(115): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(116): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(117): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(118): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(119): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(122): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(123): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(124): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(125): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(128): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(129): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(130): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(133): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(134): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(135): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(136): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(137): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(138): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(139): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(142): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(143): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(144): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(147): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(148): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(149): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(150): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(151): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(152): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(153): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(154): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(155): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(156): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(157): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(158): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(159): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(160): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(161): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(162): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(163): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(164): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(165): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(166): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(167): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(170): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(171): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(172): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(173): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(174): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(177): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(178): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(179): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(180): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(181): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(182): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(183): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(186): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(187): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(188): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(189): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(190): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(191): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(192): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(193): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(194): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(195): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(196): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(197): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(198): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(201): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(202): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(203): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(204): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(205): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(206): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(207): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(208): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(209): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(210): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(211): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(212): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(215): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(216): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(217): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(218): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(219): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(220): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(221): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(224): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(225): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(226): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(227): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(228): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(229): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(230): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(231): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(232): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(233): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(234): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(235): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(236): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(237): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(238): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(241): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(242): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(243): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(244): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(245): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(246): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(247): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(248): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(249): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(250): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(251): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(252): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(253): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(254): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(255): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(256): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(259): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(260): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(261): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(262): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(263): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(264): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(265): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(266): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(267): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(268): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(271): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(272): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(273): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(274): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(275): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(276): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(277): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(280): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(281): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(282): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(283): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(284): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(285): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(286): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(287): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(288): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(289): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(290): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(293): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(294): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(295): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(296): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(297): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(298): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(299): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(302): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(303): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(304): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(305): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(308): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(310): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(311): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(312): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(313): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(315): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(317): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(318): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(319): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(320): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(321): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(322): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(323): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(324): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(325): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(326): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(327): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(328): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(329): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(330): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(331): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(332): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(333): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(334): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(335): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(336): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(339): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(340): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(341): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(342): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(343): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(344): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(345): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(346): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(349): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(350): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(351): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(352): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(353): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(354): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(355): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(356): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(357): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(358): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(359): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(360): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(361): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(362): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(363): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(366): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(367): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(368): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(369): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(370): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(373): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(374): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(375): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(376): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(377): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(378): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(379): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(380): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(381): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(384): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(385): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(386): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(387): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(388): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(389): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(390): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(391): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(394): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(395): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(396): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(397): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(398): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(399): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(400): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(401): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(404): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(405): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(406): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(407): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(410): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(411): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(412): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(415): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(416): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(417): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(418): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(419): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(420): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(421): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(422): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(423): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(424): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(425): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(426): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(427): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(430): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(431): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(432): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(433): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(434): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(435): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(438): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(439): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(440): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(441): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(442): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(443): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(444): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(447): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(448): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(449): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(450): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(451): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(452): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(453): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(456): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(457): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(458): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(459): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(460): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(461): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(462): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(463): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(466): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(467): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(468): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(469): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(470): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(471): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(472): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(473): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(474): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(475): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(476): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(477): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(478): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(481): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(482): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(483): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(484): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(485): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(486): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(487): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(490): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(491): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(492): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(493): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(494): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(495): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(498): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(499): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(500): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(501): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(502): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(503): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(504): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(505): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(508): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(509): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(510): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(513): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(514): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(515): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(516): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(517): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(518): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(519): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(520): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(521): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(522): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(523): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(524): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(527): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(528): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(529): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(530): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(534): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(535): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(536): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(537): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(538): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(539): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(540): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(541): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(542): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(543): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(544): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(545): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(548): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(549): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(550): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(551): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(552): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(553): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(554): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(555): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(556): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(557): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(558): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(561): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(562): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(563): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(564): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(565): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(566): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(567): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(568): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(569): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(570): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(571): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(572): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(573): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(574): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(575): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(576): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(577): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(578): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(579): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(582): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(583): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(584): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(585): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(586): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(589): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(590): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(591): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(594): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(595): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(596): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(597): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(598): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(599): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(600): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(601): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(604): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(605): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(606): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(607): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(608): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(609): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(610): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(611): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(612): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(613): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(614): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(617): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(618): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(619): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(620): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(621): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(622): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(623): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(624): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(625): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(626): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(627): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(628): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(631): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(632): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(633): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(634): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(637): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(638): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(639): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(640): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(641): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(642): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(645): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(646): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(647): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(648): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(649): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(652): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(653): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(654): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(655): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(658): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(659): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(660): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(661): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(662): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(663): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(664): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(665): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(666): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(667): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(668): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(669): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(671): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(672): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(673): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(674): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(675): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(676): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(677): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(678): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(679): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(682): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(683): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(684): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(685): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(687): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(688): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(689): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(690): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(691): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(692): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(693): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(694): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(695): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(696): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(697): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(700): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(701): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(702): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(703): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(704): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(707): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(708): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(709): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(710): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(711): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(712): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(713): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(714): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(717): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(718): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(719): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(720): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(721): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(722): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(723): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(724): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(725): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(726): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(727): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(728): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(729): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(730): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(731): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(732): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(733): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(734): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(735): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(736): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(737): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(740): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(741): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(742): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(743): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(744): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(746): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(747): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(748): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(749): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(750): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(751): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(752): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(755): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(756): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(757): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(758): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(759): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(760): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(763): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(764): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(765): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(766): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(767): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(768): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(769): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(772): error: File not found: \'struct\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(773): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(774): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(775): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(778): error: File not found: \'tagPOINTS\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(779): error: File not found: \'\'.\n\n\nxRC: C:\\xHB\\include\\WinApi.ch(780): error: File not found: \'\'.\n\n\nxRC: bigfold.rc(15): error: String literal expected.\n\n\nxRC: bigfold.rc(22): error: Number expected.\n\n\nxRC: bigfold.rc(23): error: Number expected.\n\n\nxRC: bigfold.rc(23): error: Number expected.\n\n\nxRC: bigfold.rc(23): error: Number expected.\n\n\nxRC: bigfold.rc(23): error: Number expected.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(23): error: Invalid syntax.\n\n\nxRC: bigfold.rc(25): error: Unknown keyword: \'BSS_HDIP\'.\n\n\nxRC: bigfold.rc(61): error: Unknown keyword: \'BSS_HDIP\'.\n\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: bigfold.res&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1266&lt;&lt;&lt;','',0,'','w3k5l4q3',1,0,'',394,0,0),(18722,4164,7,490,0,'88.8.84.57',1158010887,1,0,1,1,1,0,'','','Antonio,\n\nIndagando tengo una duda. En la ventana principal tengo un bitmap de fondo que defino así:\n\n\n DEFINE BITMAP p:oBmpPrinc RESOURCE \"FONDO\" OF oWnd\n\n y para el refresco:\n oWnd:bPainted := { |hDC,cPs,oWnd| oWnd:SayBitmap( 0, 0, p:oBmpPrinc )}\n\n\n¿Perderá el método SayBitmap recursos en la pocket? ¿O es incorrecta esta forma de proceder para pintar el fondo de la ventana para la pocket?\n\nA lo mejor no es al salir de los diálogos cuando pierde recursos, sino cuando repinta el bitmap.\n\nUn Saludo,\nJoaquín','',0,'','1h7peilp',1,0,'',490,0,0),(18723,4220,3,6,0,'87.11.236.66',1158011799,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2hdvteri]Marcelo, Enrico,\n\nIt looks as PACK, RLock() and UNLOCK are crashing with that RDD.\n\nCould you please confirm it, testing the sample without FWH and using those sentences ? thanks[/quote:2hdvteri]\n\nConfirmed. They crash with error \"Operation not supported\".\n\nEMG','',0,'gA==','2hdvteri',1,0,'',6,0,0),(18724,4185,3,35,0,'65.188.6.143',1158021831,1,0,1,1,1,0,'','','where can I find this class ??  CanalFIve no longer exists ??\n\nRick Lipkin','',0,'gA==','3tnrrhgt',1,0,'',35,0,0),(18725,4227,2,760,0,'200.37.76.93',1158021979,1,0,1,1,1,0,'','acontrols','Hola amigos\n\nComo puedo saber en que numero de control estoy con el comando\noDlg:aControls?\n\nPor ejemplo estoy en un dialogo con 10 gets 05 botones 02 says...\nEntonces estoy en el get 5 y quiero saber que numero de control es.\n\nSalu2','',0,'gA==','3mevdzng',1,0,'',760,0,0),(18726,4228,2,760,0,'200.37.76.84',1158022431,1,0,1,1,1,0,'','blinker 7.0','Hola nuevamente... molestando\n\nTengo un sistema hecho en FW2.0, clipper5.3 y Blinker4.0\nEl problema es que si compilo con el blinker 5.1 o 7.0 se compila sin ningun problema... pero cuando lo ejectuto me da un gpf y nada mas aborta el programa...Que será?\n\nEs que el fw2.0 no es compatible con el blinler 5.1 y superior...hice exactamente lo que me dijo nuestro amigo manu y nada...\n\nSalu2','',0,'gA==','29jd6eyi',1,0,'',760,0,0),(18727,4229,6,793,0,'201.225.210.59',1158026148,1,0,1,1,1,0,'','Ayuda para inciar con Fwh','Hola\n\nEstoy por primera vez en el foro y por primera vez utilizando FWH \nNecesito ayuda para compilar  mis aplicaciones hechas en  fw\nNo logro realizar la migracion a fwh. Me presenta muchos errores. Ademas utilizaba la libreria TSBROWSE  y me ha resultado un problema obtenerla  o compilarla. \n\nSi alquien por favor me orienta por que no se como arracar\n\nErick Almanza \n<!-- e --><a href=\"mailto:dicoms@gmail.com\">dicoms@gmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:dicoms@cwpanama.net\">dicoms@cwpanama.net</a><!-- e -->','',0,'gA==','14ao1zpr',1,0,'',793,0,0),(18728,4206,3,190,0,'202.65.134.40',1158027091,1,0,1,1,1,0,'','','Hi Mr.oskar\n\nPlease to me also.\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','i2wq417l',1,0,'',190,0,0),(18729,4171,3,138,0,'148.233.159.24',1158028495,1,0,1,1,1,1,'','','Ok, aqui va:\n\n1) En el código fuente, deber cargar los componentes necesarios del RDDADS\n\n[i:2atorpjc]In the source code you need to include the necesary components for the RDDADS[/i:2atorpjc]\n\nRequest ADS\nRddSetDefault(ADS)\nAdsSetServerType(7) //todos los servidores\nAdsSetFileType(2)  // archivos DBF /CDX\n\nNo olviden linkear las libs RDDADS.LIB y ACE32.LIB\n[i:2atorpjc]Don´t forget to include RDDADS.LIB and ACE32.LIB libraries.[/i:2atorpjc]\n\n2) Abrir la tabla DBF y SI NO ESTA ENCRIPTADA, establecer el password y encriptar:\n[i:2atorpjc]Open the DBF and IF IT\'S NOT ENCRYPTED, you must set a password and proceed to encrypt[/i:2atorpjc]\n\n\nUSE tabla\nAdsEnableEncryption(\"clave\") //\"clave\" es el password para la tabla\nAdsEncryptTable()\nCLOSE\n\n3) Si la tabla ya esta encriptada entonces se abre y se establece su password:\n[i:2atorpjc]If the table is already encrypted, then open it and set the password[/i:2atorpjc]\n\nUSE tabla\nAdsEnableEncryption(\"clave\")\nBROWSE()\n\n4) Se utilizan normalmente, todas las operaciones relativas a la base de datos, como SEEK, SET FILTER, APPEND, REPLACE etc. Estas realizarán la encriptacion de manera automatica. No hay necesidad de desencriptar los datos, el servidor (local o remoto), se encarga de encriptar en el momento de hacer un REPLACE y de enviar al cliente los datos desencriptados de manera automatica. Solo tienes que establecer la clave correcta para cada area.\n\n[i:2atorpjc]Now you can use all the database related operations such SEEK, SET FILTER, APPEND, REPLACE, etc. All these instructions will perform the encryption by themselves automatically. There\'s no need to decrypt the data, the server (local or remote), takes care of encrypting whenever you perfom a REPLACE or when sending data to the client, the data is automatically decrypted. You just have to set the correct password for each area.[/i:2atorpjc]\n\n5) No olvides incluir los 3 DLLs de ADS ncesarios donde esta el EXE: ACE32.DLL, AXWCS32.DLL y ADSLOC32.DLL\n\n[i:2atorpjc]Don\'t forget to include the 3 needed DLLs for ADS in the sema directory where the EXE is: ACE32.DLL, AXWC32.DLL and ADSLOC32.DLL[/i:2atorpjc]\n\n6) Cada AREA puede tener su propia llave de encriptacion, por ejemplo:\n[i:2atorpjc]Each workarea can have its own encrypt password, example:[/i:2atorpjc]\n\nUSE tabla1\nAdsEnableEncryption(\"clave1\")\n\nUSE tabla2\nAdsEnableEncryption(\"clave2\")\n\n7) No hay caida en la velocidad porque el programa no hace los procesos de encriptar/desencriptar, lo hace el server.\n[i:2atorpjc]There\'s no decrease of the app speed, because the encrypt/decrypt process are performed by the server, not by the program.[/i:2atorpjc]\n\n7) El proceso de encriptar con ADS ALTERA LA CABECERA DEL ARCHIVO, ni Excel ni ningun editor deDBFs podra visualizar el archivo.\n\n<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Datos interesantes con respecto a la encriptacion:	A partir del encriptamiento de la tabla, siempre que se haga uso de ella, será necesario utilizar la función AdsEnableEncryption() con la clave de encriptamiento adecuada, para poder hacer actualizaciones al archivo, si la clave de encriptamiento no es correcta, el archivo se abre pero no se pueden leer ni modificar datos.\n\n	Cuando una tabla se encripta, también se realizan procesos de encriptamiento en la cabecera del archivo, esto se hace con el fin de que los datos no puedan ser leidos por ningún programa externo, incluyendo el ARC, el cual pedirá la clave de encriptamiento cuando se intente abrir el archivo.\n\n	El proceso de encriptar / desencriptar, pasa por el servidor ADS, los datos siempre permanecen almacenados de manera encriptada y es el servidor quien se encarga de los procesos de traducción, es decir, el servidor leerá los datos de archivo encriptado, desencripta la información y los devuelve al cliente de manera desencriptada y viceversa, en los procesos de actualización / inserción, los datos son recibidos del cliente de manera desencriptada, y cuando son escritos en el archivo de datos, el servidor encripta y guarda.\n[i:2atorpjc]\nInterestings facts about ADS encryption: Once encypted the table, and whenever you use it, It would be necesary to use the AdsEnableEncryption() function with the correct encryption password in order to perform update operations on the DBF, if the password is not correct the table is open but you cannot read, nor update the data.\n\nWhen a table is encrypted, the header of the DBF is also encrypted, this is perform to avoid any external program to open the DBF, including the ARC (The DBU for advantage tables) which will ask for the password when you try to open it.\n\nThe encrypt/decrypt process goes through the ADS server, the data is always stored in an encrypted way, and is the server which performs the translation process, this means that the server will read the data in the encrypted file, will decrypt it and will be send decrypted to the client application and viceversa, in the append/update process the data is recieved from the client application decrypted and it\'s encrypted and saved to the file by the server.[/i:2atorpjc]','',0,'IA==','2atorpjc',1,0,'',138,0,0),(18730,4220,3,2,0,'87.218.146.14',1158038980,1,0,1,1,1,1,'','','Marcelo,\n\nPlease modify source\\function\\errsysw.prg line 213:\nif ! Empty( Alias( n ) ) .and. ( Alias( n ) )-&gt;( RddName() ) != \"ARRAYRDD\"','',0,'IA==','7fzt433t',1,0,'',2,0,0),(18731,4182,3,473,0,'81.83.209.5',1158039684,1,0,1,1,1,0,'','','Hello,\n\nI had some version problems between FWH and xHB. Now they are solved.\n\nSo I could restart testing.\n\nThe example you gave is working fine now.\n\nSo I can start with the next point.\n\nThanks Antonio.','',0,'IA==','32e4cl23',1,0,'',473,0,0),(18732,4220,3,2,0,'87.218.146.14',1158040223,1,0,1,1,1,1,'','','This is a better fix (in source\\function\\errsysw.prg):\n[code:b0n2tq6d]\n         if &#40; Alias&#40; n &#41; &#41;-&gt;&#40; RddName&#40;&#41; &#41; != &quot;ARRAYRDD&quot;  // NEW!           \n            cErrorLog += &quot;     Indexes in use &quot; + Space&#40; 23 &#41; + &quot;TagName&quot; + CRLF\n            for j = 1 to 15\n               if ! Empty&#40; &#40; Alias&#40; n &#41; &#41;-&gt;&#40; IndexKey&#40; j &#41; &#41; &#41;\n                  cErrorLog += Space&#40; 8 &#41; + ;\n                               If&#40; &#40; Alias&#40; n &#41; &#41;-&gt;&#40; IndexOrd&#40;&#41; &#41; == j, &quot;=&gt; &quot;, &quot;   &quot; &#41; + ;\n                               PadR&#40; &#40; Alias&#40; n &#41; &#41;-&gt;&#40; IndexKey&#40; j &#41; &#41;, 35 &#41; + ;\n                               &#40; Alias&#40; n &#41; &#41;-&gt;&#40; OrdName&#40; j &#41; &#41; + ;\n                               CRLF\n               endif\n            next\n            cErrorLog += CRLF + &quot;     Relations in use&quot; + CRLF\n            for j = 1 to 8\n               if ! Empty&#40; &#40; nTarget &#58;= &#40; Alias&#40; n &#41; &#41;-&gt;&#40; DbRSelect&#40; j &#41; &#41; &#41; &#41;\n                  cErrorLog += Space&#40; 8 &#41; + Str&#40; j &#41; + &quot;&#58; &quot; + ;\n                               &quot;TO &quot; + &#40; Alias&#40; n &#41; &#41;-&gt;&#40; DbRelation&#40; j &#41; &#41; + ;\n                               &quot; INTO &quot; + Alias&#40; nTarget &#41; + CRLF\n                  // uValue = &#40; Alias&#40; n &#41; &#41;-&gt;&#40; DbRelation&#40; j &#41; &#41;\n                  // cErrorLog += cValToChar&#40; &amp;&#40; uValue &#41; &#41; + CRLF\n               endif\n            next\n         endif   // NEW!\n[/code:b0n2tq6d]','',0,'AIA=','b0n2tq6d',1,0,'',2,0,0),(18733,4226,3,2,0,'87.218.146.14',1158041468,1,0,1,1,1,1,'','','Mike,\n\nxHarbour builder\'s xRC does not allow to use CH files into RC files. \n\nPlease change #include \"..\\include\\WinApi.ch\" in the RC file for #include \"c:\\xHB\\c_include\\win\\windows.h\"','',0,'AIA=','1z3n8l1i',1,0,'',2,0,0),(18734,4185,3,2,0,'87.218.146.14',1158041796,1,0,1,1,1,1,'','','Paco,\n\nYou may email Paco from CanalFive to <!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->','',0,'AIA=','2kff08jq',1,0,'',2,0,0),(18735,4164,7,2,0,'87.218.146.14',1158041988,1,0,1,1,1,1,'','','Joaquín,\n\nPrueba a quitar esta línea de tu aplicación y prueba de nuevo:\n\n// oWnd:bPainted := { |hDC,cPs,oWnd| oWnd:SayBitmap( 0, 0, p:oBmpPrinc )}','',0,'AIA=','owxhr3q5',1,0,'',2,0,0),(18736,4229,6,2,0,'87.218.146.14',1158042118,1,0,1,1,1,1,'','','Erick,\n\n&gt; Me presenta muchos errores\n\nQue errores son ?\n\nHas definido los ficheros c:\\bcc55\\bin\\bcc32.cfg y ilink32.cfg como se explica en <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m --> ?','',0,'AIA=','33lfbozc',1,0,'',2,0,0),(18737,4228,2,2,0,'87.218.146.14',1158042398,1,0,1,1,1,1,'','','Francis,\n\nGenera un fichero MAP usando MAP A,S en tu fichero LNK y cuando se produzca el GPF, busca su dirección dentro del fichero MAP.\n\nSi no sabes como hacerlo, sube el fichero MAP a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y pon aqui la url de descarga y la dirección del GPF.','',0,'AIA=','1gx578l8',1,0,'',2,0,0),(18738,4227,2,2,0,'87.218.146.14',1158042478,1,0,1,1,1,1,'','','Francis,\n\nMsgInfo( AScan( oDlg:aControls, { | o | o:nID == oGet:nID } ) )','',0,'AIA=','gw5hilm6',1,0,'',2,0,0),(18739,4182,3,473,0,'81.83.209.5',1158043481,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1tphomzj]Willy,\n\noBmp1:bPainted = { | hDC | TransBmp( oBmpX:hBitmap, oBmp1:nWidth(), oBmp1:nHeight(), nClrTransparent, hDC, 0, 0, oBmp1:nWidth(), oBmp1:nHeight() }[/quote:1tphomzj]\n\nHello,\n\nThis gaves also some problems.\n\nIs there a working example of TransBmp() or a description. I do\'nt find anything in the manual.\n\nHas it to be called from inside the object by a method.\n\nIs oBmpX simply a bmp that can be loaded via LoadBmp()\n\nSorry for the trouble. But I think this is very undocumented and it can be very usefull for a lot of users.\n\nGreetings\nWilly','',0,'gA==','1tphomzj',1,0,'',473,0,0),(18740,4230,7,449,0,'212.64.224.244',1158045961,1,0,1,1,1,1,'','Funciona ZAP ?','Antonio,\n\nFunciona ZAP ?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[code:2njsy09y]FUNCTION Main&#40;&#41;\n\n    LOCAL cTable &#58;= Curdir&#40;&#41; + \'\\Test&#46;dbf\'\n\n\n    USE &#40;cTable&#41; NEW\n\n    IF MsgYesNo&#40; \'Borra ?\' &#41;\n\n       __DbZap&#40;&#41;\n\n    ENDIF\n\nRETU &#46;F&#46;[/code:2njsy09y]','',0,'AIA=','2njsy09y',1,0,'',449,0,0),(18741,4182,3,2,0,'87.218.146.14',1158047302,1,0,1,1,1,1,'','','Willy,\n\n&gt; This gaves also some problems. \n\nWhat problems are them ?\n\n&gt;\nIs there a working example of TransBmp() or a description. I do\'nt find anything in the manual. \n&gt;\n\nNo, it is not documented yet as it was recently added and modified.\n\n&gt; Has it to be called from inside the object by a method. \n\nYou can call it everywhere as far as you provide it the right parameters.\n\n&gt; Is oBmpX simply a bmp that can be loaded via LoadBmp() \n\nYou may use LoadBitmap( GetResources(), cResName ) --&gt; hBitmap\n\nwarning: it returns a bitmap handle, not a Class TBitmap object.','',0,'AIA=','17byaic1',1,0,'',2,0,0),(18742,4230,7,2,0,'87.218.146.14',1158047459,1,0,1,1,1,1,'','','Carles,\n\nDebería funcionar correctamente, ya que es algo propio de Harbour.\n\nTe dá algún error ?','',0,'AIA=','1byhfvo5',1,0,'',2,0,0),(18743,4217,3,49,0,'62.13.172.78',1158047933,1,0,1,1,1,1,'','','Sorryyyyyyyyyyyy,\n\nNow Run OK !!!!!!!!!!!\n\nNow I terminate my Tplan 32 bit class :\n[url=http&#58;//img134&#46;imageshack&#46;us/my&#46;php?image=cxjyg3&#46;jpg:31u42z69][img:31u42z69]http&#58;//img134&#46;imageshack&#46;us/img134/7479/cxjyg3&#46;th&#46;jpg[/img:31u42z69][/url:31u42z69]','',0,'GA==','31u42z69',1,0,'',49,0,0),(18744,4230,7,449,0,'212.64.224.249',1158050179,1,0,1,1,1,1,'','','Antonio,\n\nRectifico: Funciona, pero en la pocket, NO en el emulador.\n\nGracias.','',0,'GA==','24d1y125',1,0,'',449,0,0),(18745,4229,6,180,0,'194.179.55.36',1158050928,1,0,1,1,1,0,'','','Hola Erik,\nEn <!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m --> encontrarás VeRCE, una utilidad genial para compilar/enlazar tus proyectos en FWH.\nUn saludo,\nManuel Aranda','',0,'GA==','22af9aut',1,0,'',180,0,0),(18747,4182,3,49,0,'62.13.172.78',1158051453,1,0,1,1,1,1,'','','Antonio, Wich theme use into your pc \'\nIt is very beautifull I\'d like to have it ...','',0,'GA==','ih58v81f',1,0,'',49,0,0),(18748,4185,3,49,0,'62.13.172.78',1158051514,1,0,1,1,1,1,'','','its cost is 60 euro....\nwrite to <!-- e --><a href=\"mailto:Paco@canalfive.com\">Paco@canalfive.com</a><!-- e -->\n\n---------------------------','',0,'GA==','42zi3msh',1,0,'',49,0,0);
INSERT INTO `phpbb_posts` VALUES (18749,4164,7,490,0,'80.24.224.89',1158053086,1,0,1,1,1,0,'','','Antonio,\n\nYa está probado y el resultado es el mismo.\n\nCon entar una vez en el diálogo da estos valores:\n\nEntra  Mem usada:         53%	 T.Física libre:      14872.00 kb\nSale   Mem usada:         54%	 T.Física libre:      14348.00 kb\n\nY si entramos 5 veces:\n\nSale  Mem usada:         58%	 T.Física libre:      13380.00 kb\n\n\nComo ves la pérdida de memoria en 5 veces que entre es 1492 Kb\n\nLuego trabajando va recuperando algo, pero al final se queda sin memoria.\n\n¿Que puedo mirar para ver que recursos se quedan en memoria ?\n\n\n\nUn Saludo,\nJoaquín','',0,'GA==','4ht9x5j6',1,0,'',490,0,0),(18750,4159,2,786,0,'84.123.49.11',1158054808,1,0,1,1,1,0,'','Controlar el Volumen de sonido con Auxsetvol() y AuxGetVol()','Antonio:\n\nRespecto a las pruebas sobre el volumen todavia no lo he implementado en mi programa porque en las pruebas de \\mmedia\\avivideo.prg no funciona.\n\nEl codigo de pruebas es:\n\n\n   REDEFINE SCROLLBAR oSBRight ID 130 RANGE 0,32 ;\n    ON UP   (AuxGetVol(5,@nVolL,@nVolR),;\n             AuxSetVol(5,if(nVolL&lt;63000,nVolL+2040,nVolL),nVolR),;\n             AuxGetVol(5,@nVolL,@nVolR),;\n             oTextLV:SetText(Str(nVolL)),oTextRV:SetText(Str(nVolR)) ) ;\n    ON DOWN (AuxGetVol(5,@nVolL,@nVolR),;\n             AuxSetVol(5,if(nVolL&gt;2040,nVolL-2040,nVolL),nVolR),;\n             AuxGetVol(5,@nVolL,@nVolR),;\n             oTextLV:SetText(Str(nVolL)),oTextRV:SetText(Str(nVolR)) )  OF oDlg\n\nGracias de antemano.','',0,'GA==','1w6qxulb',1,0,'',786,0,0),(18751,4215,6,180,0,'194.179.55.36',1158054946,1,0,1,1,1,0,'','','Estoy  editando directamente la DLL con PellesC. De cualquier manera he metido el windowsxp.manifiest en un archivo RC y funciona. Aunque no se acaba de arreglar el centrado de los bitmap en la toolbar, ha mejorado notablemente. Ignoraba que pudieran utilizarse simultaneamente un archivo RC y una DLL para almecenar los recursos. \nDe momento no puedo generar un RC desde PellesC sin que me de problemas, de ahí que esté utilizando una DLL\n\nUn saludo,\nManuel','',0,'GA==','35l3lsrg',1,0,'',180,0,0),(18752,3963,20,76,0,'80.17.137.201',1158054994,1,0,1,1,1,1,'','','ciao Enrico, \nhai fatto una prova anche tu? Non funziona neanche a te?\nNon so come fare a risolvere il problema, proverò sul forum inglese.\nciao.','',0,'GA==','32pjax2z',1,0,'',76,0,0),(18753,3962,20,76,0,'80.17.137.201',1158055243,1,0,1,1,1,1,'','','Enrico, \nscusa la mia ignoranza ma pensavo che il tuo msg fosse una semplice riflessione sull\'argomento. Allora dovresti guidarmi un pò per capire quali sono le modifiche da fare, se non ti dispiace naturalmente.\nciao','',0,'GA==','18txfiw0',1,0,'',76,0,0),(18754,4231,20,76,0,'80.17.137.201',1158055372,1,0,1,1,1,1,'','compilazione sorgenti .asm','ho una libreria che contiene alcuni sorgenti .asm, vorrei portarla su xharbour ma non ho idea di come trattare questi moduli.\nIdee a riguardo?\nsaluti <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'GA==','1bntldsk',1,0,'',76,0,0),(18755,4232,3,76,0,'80.17.137.201',1158055728,1,0,1,1,1,1,'','recompiling C sources','I need to recompile some sources (like mgetcrea.c) in sources\\winapi folder of fw 2.6. I use a batch file for compiling:\n[quote:2b44yh5r]\n@ ECHO OFF \necho ------------------------------------------------- \necho MODIFICA SORGENTI NELLE LIBRERIE XHARBOUR \necho sintassi: compila nome_sorgente_c nome_lib_fw \necho tutto SENZA estensioni \necho ------------------------------------------------- \npause \n\nc:\\borland\\bcc55\\bin\\bcc32 +xharbour.cfg -c %1.c \npause \n\nc:\\borland\\bcc55\\bin\\tlib c:\\fwh\\lib\\%2 /P32 -+%1.obj \nIF EXIST *.obj DEL *.obj \nIF EXIST *.bak DEL *.bak \nPause \n[/quote:2b44yh5r]\n\nI get no error doing it, but linking the modified lib to a project cuases the error:\n\n[quote:2b44yh5r]\nError: Unresolved external \'_HB_FUN_MGETCREATE\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|MGET \n[/quote:2b44yh5r]\n\ndo I need other parameters? what am I doing wrong?\nregards','',0,'gA==','2b44yh5r',1,0,'',76,0,0),(18756,4233,3,76,0,'80.17.137.201',1158056012,1,0,1,1,1,1,'','which lib for console application','I\'m doing some tests with XHarbour, and I\'ve realized it is very slow in console output. \na sample program like \n[quote:29ymmq0z]\nfor a=1 to 10000\n? a\nnext\n[/quote:29ymmq0z]\nneeds many seconds to terminate, while in Clipper 5.2e runs like a flash!\n\nI use GTWIN.lib, perhaps it\'s not the fastest...\nany help, friends?\nthank you.','',0,'gA==','29ymmq0z',1,0,'',76,0,0),(18757,4234,20,76,0,'80.17.137.201',1158056917,1,0,1,1,1,1,'','DBFCDX','Ho un\'applicazione Clipper 5.2e che usa la libreria super35, che a suo tempo ho personalizzato per buona parte. Purtroppo ho riscontrato dei notevoli problemi sulla gestione dei file .NTX in rete, specie quando la loro dimensione diventa consistente. Vorrei passare ai files .CDX, ma ricordo che a suo tempo in una discussione veniva sconsigliato di usare DBFCDX con il 5.2e. La soluzione migliore, immagini, sia passare ad XHarbour con DBFCXD, ma come mi regolo con la libreria super35?\nAvete dei consigli?\ngrazie, a presto','',0,'gA==','3vucbwj3',1,0,'',76,0,0),(18758,4234,20,6,0,'87.18.232.225',1158060060,1,0,1,1,1,1,'','Re: DBFCDX','Sì, il DBFCDX del Clipper 5.2x è praticamente inusabile. Io ho usato per molto tempo il Comix riscontrando un\'ottima affidabilità. Certo, il passaggio ad xHarbour sarebbe la soluzione migliore. Se hai il sorgente di quella libreria potresti provare a ricompilarlo.\n\nEMG','',0,'gA==','1va386za',1,0,'',6,0,0),(18759,4232,3,6,0,'87.18.232.225',1158060464,1,0,1,1,1,1,'','Re: recompiling C sources','You have to use clp2harb utility.\n\nEMG','',0,'gA==','15zf8ne4',1,0,'',6,0,0),(18760,4233,3,6,0,'87.18.232.225',1158060902,1,0,1,1,1,1,'','Re: which lib for console application','As far as I know, Clipper uses a buffering technique for the console output.\n\nEMG','',0,'gA==','dehixael',1,0,'',6,0,0),(18761,4231,20,6,0,'87.18.232.225',1158061019,1,0,1,1,1,1,'','Re: compilazione sorgenti .asm','Se non sono sorgenti ASM a 32 bit temo sia impossibile ricompilarli. Si dovrebbe farne il porting ma ci vuole qualcuno che conosca bene l\'ASM Intel.\n\nEMG','',0,'gA==','102qg9lg',1,0,'',6,0,0),(18762,3962,20,6,0,'87.18.232.225',1158061233,1,0,1,1,1,1,'','','Le modifiche vanno apportate alla classe TMsgBar ma ci vorrebbe troppo tempo a spiegarle. Prova a farlo e se hai problemi specifici sono qui.\n\nEMG','',0,'gA==','rjyfbdbw',1,0,'',6,0,0),(18763,4164,7,2,0,'87.218.146.14',1158061364,1,0,1,1,1,1,'','','Joaquín,\n\nPrueba a hacer un diálogo sin ningún control en él y entra y sal y comprueba la memoria. Luego ve añadiéndole más controles tuyos, hasta que encontremos lo que pueda estar ocurriéndole.\n\nhb_gcAll() debe restaurar la memoria al valor anterior de llamar al diálogo.','',0,'gA==','2dv73duj',1,0,'',2,0,0),(18764,3963,20,6,0,'87.18.232.225',1158061380,1,0,1,1,1,1,'','','I sorgenti in C delle Fivewin sono scritti per essere compilati con Clipper. Per compilarli con xHarbour devi farli prima trasformare dall\'utility clp2harb che trovi nella cartella tools delle FWH.\n\nEMG','',0,'gA==','qot82mul',1,0,'',6,0,0),(18765,4215,6,2,0,'87.218.146.14',1158061444,1,0,1,1,1,1,'','','Manuel,\n\nbien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','lfchzym6',1,0,'',2,0,0),(18766,4182,3,2,0,'87.218.146.14',1158061553,1,0,1,1,1,1,'','','Silvio,\n\nThats Windows Vista (with \"Aero\"), not XP <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','wn82mu2j',1,0,'',2,0,0),(18767,4233,3,2,0,'87.218.146.14',1158061710,1,0,1,1,1,1,'','','Riccardo,\n\nWin16 bits console is faster than Win32 console  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->\n\nMaybe its the used GT... lib that could be improved.','',0,'gA==','caepon1k',1,0,'',2,0,0),(18768,4233,3,6,0,'87.18.232.225',1158061899,1,0,1,1,1,1,'','','You can try gtwvt.lib.\n\nEMG','',0,'gA==','hw6bt0ec',1,0,'',6,0,0),(18769,4232,3,2,0,'87.218.146.14',1158062089,1,0,1,1,1,1,'','','Riccardo,\n\nclp2harb is located at c:\\fwh\\tools\\clp2harb.exe and clp2harb.prg','',0,'gA==','2peiog5n',1,0,'',2,0,0),(18770,4171,3,486,0,'200.184.85.3',1158066590,1,0,1,1,1,0,'','','Muito Obrigado ...','',0,'gA==','q7lopy92',1,0,'',486,0,0),(18771,4220,3,41,0,'200.87.67.10',1158067757,1,0,1,1,1,0,'','','Antonio,\n\nthanks, now I have the correct error message \n\nregards\n\nMarcelo','',0,'gA==','j2qof254',1,0,'',41,0,0),(18772,4235,2,786,0,'84.123.49.11',1158068983,1,0,1,1,1,0,'','Sobre ToolTips en lineas de un Browse','Alguien sabe como insertar tooltip por cada linea de un browse? Para cada vez que pase el raton por una linea de un registro visualizar informacion del registro mediante tootip. ( como hace el emule ).\n\nGracias de antemano.','',0,'gA==','379ljjex',1,0,'',786,0,0),(18773,4236,6,106,0,'85.34.123.173',1158070572,1,0,0,1,1,1,'','getcommerror, como tratar el resultado?','Ejemplo:  \n\n\nGetCommError( nIdComDevice, @cComStat )\n\n\nEl contenido de cComStat es el siguiente: €\\{         \n(casi siempre) un string de 12 caracteres.\n(128)  (92)  (123)  (0)  (0)  (0)  (0)  (0)  (0)  (0)  (0)  (0) \n\n\nPuedo determinar de alguna manera leyendo este resultado que la puerta comm esté pronta para recibir/enviar datos?\nO mejor dicho, que indican cada uno de los 12 valores en este string.\n\nGracias.','',0,'gA==','1v4t3sm6',1,0,'',106,0,0),(18774,4237,3,6,0,'87.18.232.225',1158071316,1,0,1,1,1,1,'','Why only VK_F?? keys can be redefined using SetKey()?','This is a sample:\n\n[code:1tza1mt0]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL nVar &#58;= 0\n\n    SETKEY&#40; ASC&#40; &quot;-&quot; &#41;, &#123; || MsgInfo&#40; &quot;Minus pressed&quot; &#41; &#125; &#41;\n    SETKEY&#40; VK_F2, &#123; || MsgInfo&#40; &quot;F2 pressed&quot; &#41; &#125; &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET nVar OF oDlg;\n           PICTURE &quot;99999&quot;;\n           RIGHT\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1tza1mt0]\n\nAnd this is the cause:\n\n[code:1tza1mt0]if bKeyAction != nil &#46;and&#46; lAnd&#40; nFlags, 16777216 &#41; // function Key[/code:1tza1mt0]\n\nIs it intentional?\n\nEMG','',0,'AIA=','1tza1mt0',1,0,'',6,0,0),(18775,4236,6,6,0,'87.18.232.225',1158071499,1,0,1,1,1,1,'','Re: getcommerror, como tratar el resultado?','This is from Win16 docs:\n\n[quote:1zw30gek]GetCommError (2.x)\n\nint GetCommError(idComDev, lpStat)\n\nint idComDev;	/* communications device identifier	*/\nCOMSTAT FAR* lpStat;	/* address of device-status buffer	*/\n\n\nThe GetCommError function retrieves the most recent error value and current status for the specified device. \nWhen a communications error occurs, Windows locks the communications port until GetCommError clears the error. \n\nParameter	Description\n\nidComDev	Specifies the communications device to be examined. The OpenComm function returns this value. \nlpStat	Points to the COMSTAT structure that is to receive the device status. If this parameter is NULL, the function returns only the error values. \n\nReturns\n\nThe return value specifies the error value for the most recent communications-function call to the specified device, if GetCommError is successful. \n\nErrors\n\nThe return value can be a combination of the following values: \n\nValue	Meaning\n\nCE_BREAK	Hardware detected a break condition. \nCE_CTSTO	CTS (clear-to-send) timeout. While a character was being transmitted, CTS was low for the duration specified by the fCtsHold member of the COMSTAT structure. \nCE_DNS	Parallel device was not selected. \nCE_DSRTO	DSR (data-set-ready) timeout. While a character was being transmitted, DSR was low for the duration specified by the fDsrHold member of COMSTAT. \nCE_FRAME	Hardware detected a framing error. \nCE_IOE	I/O error occurred during an attempt to communicate with a parallel device. \n\nCE_MODE	Requested mode is not supported, or the idComDev parameter is invalid. If set, CE_MODE is the only valid error. \nCE_OOP	Parallel device signaled that it is out of paper. \nCE_OVERRUN	Character was not read from the hardware before the next character arrived. The character was lost. \nCE_PTO	Timeout occurred during an attempt to communicate with a parallel device. \nCE_RLSDTO	RLSD (receive-line-signal-detect) timeout. While a character was being transmitted, RLSD was low for the duration specified by the fRlsdHold member of COMSTAT. \n\nCE_RXOVER	Receiving queue overflowed. There was either no room in the input queue or a character was received after the end-of-file character was received. \nCE_RXPARITY	Hardware detected a parity error. \nCE_TXFULL	Transmission queue was full when a function attempted to queue a character. \n\nSee Also\n\nOpenComm, COMSTAT[/quote:1zw30gek]\n\nEMG','',0,'gA==','1zw30gek',1,0,'',6,0,0),(18776,4236,6,106,0,'85.34.123.173',1158073796,1,0,0,1,1,0,'','','Enrico, vedo che piano piano impari lo spagnolo. Ho letto quanto scrito da te, però, non riesco a capire ancora come tratare la stringa che mi arriva.\nSecondo questo testo, questa stringa doveve puntare su la struttura dello stato della porta com, però.... come faccio ad accedere a questa struttura?\n\n\nDevo fare,\n\nnAnd( GetCommError( nIdComDevice, @cComStat ), CE_CTSTO )\n\nnon so da dove cominciare.\nGrazie\n\n\nSPANISH\nEnrico, veo que despacito vas aprendiendo español. Lei lo que escribiste, pero no llego a entender como tratar el string que me llega.\nSegún este texto, este string debería apuntar a la estructura del estado de la puerta com, pero... como hago a acceder a dicha estructura?\n\nTengo que hacer, \n\nnAnd( GetCommError( nIdComDevice, @cComStat ), CE_CTSTO )\n\nno se por donde comenzar\nGracias.','',0,'gA==','1qj4znwf',1,0,'',106,0,0),(18777,4238,7,720,0,'80.36.244.134',1158075354,1,0,1,1,1,0,'','como mostrar los registros de una tabla en un combobox...','Hola a todos..\n\nMe he encontrado con otro problemilla...Resulta que tengo una ficha de articulos en las que voy rellenando el código, la descripción, el precio y la cantidad. Hasta aqui todo bien..El problema lo tengo porque quiero poner un combo en el que se pueda elegir el código del cliente al que va asociado ese articulo, por lo tanto debe mostra todos los registros del campo codigo de la tabla de clientes...\n\nLo estoy haciendo así, no me da error pero en el combo no sale nada\n\nredefine get oGetCod_Art id 100 of odlg\nredefine get oGetNom_Art id 200 of odlg\nredefine get oGetCant id 300 of odlg picture \'999\'\nredefine get oGetPrecio id 400 of odlg\nredefine combobox oGetCodCli items {clientes-&gt;codcli} id 4001 of odlg\n\n\nSi en los items del combo pongo a mano cualquier cosa, funciona pero lo que quiero es que me enlace con la tabla de clientes....\n\nUn saludo y gracias..\n\nElías Torres.','',0,'gA==','3ntt6xz0',1,0,'',720,0,0),(18778,4236,6,6,0,'87.18.232.225',1158076364,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:aa6sg24l]Enrico, vedo che piano piano impari lo spagnolo.[/quote:aa6sg24l]\n\nE\' abbastanza simile all\'italiano. Riesco un po\' a leggerlo ma non mi chiedere di scriverlo. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote=&quot;pymsoft&quot;:aa6sg24l]Ho letto quanto scrito da te, però, non riesco a capire ancora come tratare la stringa che mi arriva.\nSecondo questo testo, questa stringa doveve puntare su la struttura dello stato della porta com, però.... come faccio ad accedere a questa struttura?\n\n\nDevo fare,\n\nnAnd( GetCommError( nIdComDevice, @cComStat ), CE_CTSTO )\n\nnon so da dove cominciare.[/quote:aa6sg24l]\n\nSì, devi fare esattamente così. Il contenuto di cComStat non ti interessa.\n\nEMG','',0,'gA==','aa6sg24l',1,0,'',6,0,0),(18779,4239,6,215,0,'189.136.223.136',1158076945,1,0,1,1,1,0,'','Copiar una hoja dentro de un libro excel','Hola gente,\nPues eso, tengo un hoja con datos dentro de un libro de excel... pero no puedo hacer una copia de esa hoja dentro del mismo libro.\n\nEste es el código del VB\n\n Sheets(\"01\").Select\n Sheets(\"01\").Copy Before:=Sheets(1)\n\nDonde \"01\" es el nombre de la hoja a copiar\"\n\nUna ayuda por favor.','',0,'gA==','183rharn',1,0,'',215,0,0),(18780,4164,7,490,0,'80.24.224.89',1158078137,1,0,1,1,1,0,'','','Antonio,\n\nUn Diálogo con controles fwppc, 1 combo, 1 checkbox, 1 browse , 2 Botones, 1 TBtnBmp\n\nY pierde bastante al entrar y luego sólo recupera algo, aunque luego puedes volver a  entrar y salir y algunas veces baja unos bytes.\n\nPero, lo que no entiendo es como trabaja windows con la memoria, si tiene memoria disponible bastante empieza a usarla sin recuperar nada y de vez en cuando parece que recupera lo que le parece.\n\n¿Es algo parecido a esto? Porque si es así, puede que la función del api globalmemory no sea totalmente real en el instante.\n\n\nUn Saludo,\nJoaquín','',0,'gA==','2sw4fy1q',1,0,'',490,0,0),(18781,4223,6,217,0,'200.159.120.34',1158078231,1,0,1,1,1,0,'','Re: Copiar arquivo do terminal para o SERVIDOR?','Aoki, tente isso:\n\n\nCopyFile(\"testof.doc\", \"\\\\servidor\\c\\data\\testof.doc\")\n\n[ ]\'s\nMaurilio','',0,'','1tut48yn',1,0,'',217,0,0),(18782,4240,2,124,0,'200.45.178.5',1158078450,1,0,1,1,1,0,'','SAVESCREEN Y RESTSCREEN','Amigos:\n\nLa pregunta es simple, cómo se hace para salvar una parte de una ventana activa y luego restaurarla?\n\n¿Como se reemplaza el savescreen de clipper?\n\nEspero sus ayudas.\n\nUn abrazo.\n\nDesde Rosario, Argentina\nRicardo Bécares.','',0,'','1dwosssq',1,0,'',124,0,0),(18783,4164,7,2,0,'87.218.146.14',1158078695,1,0,1,1,1,1,'','','Joaquín,\n\nPuede ser así, como dices, similar a como funciona Clipper. Usa memoria virtual y no la libera, hasta que cada cierto tiempo hace limpieza y la recupera.','',0,'','lo8isdf7',1,0,'',2,0,0),(18784,4237,3,2,0,'87.218.146.14',1158078953,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Is it intentional?\n\nIt looks so <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nDoes Clipper allow to use SetKey() with any key ?','',0,'','1mncroc4',1,0,'',2,0,0),(18785,4236,6,106,0,'85.34.123.173',1158079008,1,0,0,1,1,0,'','','Grazie, farò delle prove.','',0,'','jwqgzjir',1,0,'',106,0,0),(18786,4238,7,2,0,'87.218.146.14',1158079131,1,0,1,1,1,1,'','','Elías,\n\nTienes que recorrer la DBF y copiar los valores del campo en cuestión a un array, y luego proporcionarle ese array al combobox.','',0,'','3c79vs5y',1,0,'',2,0,0),(18787,4240,2,2,0,'87.218.146.14',1158079464,1,0,1,1,1,1,'','','Ricardo,\n\nEl API de Windows impone sus reglas. Se podrían simular esas funciones,\n\npero, para que lo necesitas ? Windows lo hace automáticamente.','',0,'','3jrdy1di',1,0,'',2,0,0),(18788,4237,3,6,0,'87.18.232.225',1158079605,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2vdrfl8p]Does Clipper allow to use SetKey() with any key ?[/quote:2vdrfl8p]\n\nYes:\n\n[code:2vdrfl8p]#include &quot;Inkey&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL GetList &#58;= &#123;&#125;\n\n    LOCAL nVar &#58;= 0\n\n    CLS\n\n    SETKEY&#40; ASC&#40; &quot;-&quot; &#41;, &#123; || QOut&#40; &quot;Minus pressed&quot; &#41; &#125; &#41;\n    SETKEY&#40; K_F2, &#123; || QOut&#40; &quot;F2 pressed&quot; &#41; &#125; &#41;\n\n    @ 1, 1 GET nVar PICTURE &quot;99999&quot;\n\n    READ\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:2vdrfl8p]\n\nEMG','',0,'gIA=','2vdrfl8p',1,0,'',6,0,0),(18789,4240,2,124,0,'200.45.178.5',1158079869,1,0,1,1,1,0,'','','Antonio:\n\nGracias por contestar tan rapido.\n\nLo que necesitamos es tomar una porcion de una ventana donde hay informacion que se ha estado actualizando, cambiar el tipo de ventana antes es una dialog no modal y pasa a dialog modal y luego restaurar tanto un browse ( no hay problemas con eso ) como la porcion de ventana con la informacion que tenia antes.\n\nSi no se puede con savescreen o similar, seguramente podremos hacerlo por otros medios, incluso mejores conceptualmente, la pregunta es si se puede o no y de que forma con savescreen.\n\nGracias.\nRicardo.-','',0,'gIA=','30yfuqpg',1,0,'',124,0,0),(18790,4237,3,2,0,'87.218.146.14',1158079957,1,0,1,1,1,1,'','','Enrico,\n\nThen we should remove \".and. lAnd( nFlags, 16777216 )\"\n\nThanks!','',0,'gIA=','2i2mygbg',1,0,'',2,0,0),(18791,3859,19,217,0,'200.159.120.34',1158079958,1,0,1,1,1,0,'','','One or two days after Turbo Delphi be available to download a \"hack\" was created to let user add 3rd part components.\n\nAnd it wasn\'t a complex \"hack\" or \"patch\", was a single trick to let this functionality. Any friends say it was very strange. Was very easy to \"broke\" the new Delphi limitation and appear to be a intentional plan of new Delphi\'s company.\n\nFor curiosity purposes I downloaded the new Delphi. But I haven\'t time (and HD space) to install it  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nIn IDEs I like any features like autocomplete code (an easy way to know all method and properties from an object without remember all) and don\'t use variables not declared or attrib him a wrong value. However I prefer the \"traditional way to encode programs\" because I have all control of my programs.\nA bad feature of IDE is hide the code from us and limit our knowledge about our own code <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nRegards from Brazil\nMaurilio','',0,'gIA=','15jviu2s',1,0,'',217,0,0),(18792,4240,2,2,0,'87.218.146.14',1158080168,1,0,1,1,1,1,'','','Ricardo,\n\nNo puedes usar SaveScreen() y RestScreen() porque no estan adaptadas a Windows. Pero sí se puede hacer creando un bitmap en memoria con el contenido de la imagen en cuestión.\n\nEs un gráfico, ó similar, lo que quieres salvar y luego restaurar ?','',0,'gIA=','2db9v7ft',1,0,'',2,0,0),(18793,4240,2,124,0,'200.45.178.5',1158080259,1,0,1,1,1,0,'','','solo salvar y restaurar.\n\n¿Tengo algo en \\samples parecido para verlo?','',0,'gIA=','puxfhxxw',1,0,'',124,0,0),(18794,4237,3,2,0,'87.218.146.14',1158080419,1,0,1,1,1,1,'','','Enrico,\n\nLets wait a moment... we used that code because function keys provide chars values like standard keys (non function).\n\nIf we remove that code, how will we distinct them ?','',0,'gIA=','33ij2nlw',1,0,'',2,0,0),(18795,4240,2,124,0,'201.252.204.216',1158080727,1,0,1,1,1,0,'','','Disculpame, entendí mal tu pregunta:\n\nSi, quiero salvar y restaurar una porcion de la pantalla.','',0,'gIA=','17uuv53o',1,0,'',124,0,0),(18796,4226,3,394,0,'207.219.124.134',1158083207,1,0,1,1,1,0,'','Now I get windows gpf with all sample programs','Do I need to recompile fivehmx.lib with xharbour ?\nThanks Mike','',0,'gIA=','xotjk59b',1,0,'',394,0,0),(18797,4164,7,490,0,'80.24.224.89',1158084332,1,0,1,1,1,0,'','','Antonio,\n\nHe seguido con las pruebas , entrando y saliendo en diálogos y llega al 100% de memoria gastada física, se pone lentísima y hasta se termina colgando cuando se le acaba la memoria virtual.\n\n\n\nUn Saludo,\nJoaquín','',0,'gIA=','sciqzuxx',1,0,'',490,0,0),(18798,4237,3,6,0,'87.18.232.225',1158084741,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2x68zbsq]Enrico,\n\nLets wait a moment... we used that code because function keys provide chars values like standard keys (non function).\n\nIf we remove that code, how will we distinct them ?[/quote:2x68zbsq]\n\nI don\'t know, sorry. Let\'s keep it unchanged till we\'ll found a solution.\n\nEMG','',0,'gA==','2x68zbsq',1,0,'',6,0,0),(18799,4241,6,237,0,'200.68.70.89',1158088786,1,0,1,1,1,0,'','Error al recompilar fiveh.lib','Estoy queriendo recompilar la lib fiveh.lib y me da el siguiente error:\n\nSOURCE\\_INDEX.prg(24) Error E0030  Syntax error: \"parse error at \n\'CNAME\'\"\n\nNo logro darme cuenta que me falta, ya revise la ubicacion de los includes y nada.\n\nBienvenida cualquier sugerencia.\nMuchos saludos!\n\nAlejandro Cebolido.\nBuenos Aires, Argentina.','',0,'gA==','1pdy1x9v',1,0,'',237,0,0),(18800,4239,6,215,0,'189.136.227.18',1158089620,1,0,1,1,1,0,'','A quien le sirva','Así se hace\n\n        // copio la primera hoja\n        oExcel:Sheets( \"01\" ):Select()\n        oExcel:ActiveWorkbook:Sheets( \"01\" ):Invoke(\"Copy\",oHoja)\n\n        // como ya son dos, ahora muevo la nueva hoja al final de la primera\n        oHoja2  := oExcel:Get( \"ActiveSheet\" )\n        oHoja2:Name := \"02\"\n        \n        oExcel:ActiveWorkbook:Sheets( \"01\" ):Invoke(\"Move\",oHoja2)\n\n\nTodo es fácil cuando se tiene la solución','',0,'gA==','3fz6sdzf',1,0,'',215,0,0),(18801,4242,2,774,0,'200.72.65.218',1158092656,1,0,1,1,1,0,'','AYUDA CON FOLDER','HOLA AL FORO YO NUEVAMENTE CON DILEMAS\n\nMIREN TENGO UN DIALOGO DENTRO UN FOLDER CON DOS PESTAÑAS,, EN CADA UNA DE ELLAS UNOS GET, BROWSE, ETC..\n\nEL PROBLEMA ES Q CUANDO PINCHO LAS SOLAPAS DE LA SEGUNDA PESTAÑA DEL FOLDER SE EJECUTA LA INSTRUCCION  VALID DEL PRIMER GET,, ES RARO ES,, AL PRINCIPIO LO HACIA EN LA PRIMERA PESTAÑA DEL FOLDER EN LA VALID DEL PRIMER GET (Ojo las dos pestañas del folder tienen los mismo objetos,,),,  PERO LO SOLUCIONES DANDOLE EL SETFOCUS AL GET CON ON INIT del dialogo... \n\nla pregunta del millon como le digo que cuando pinche la segunda pestaña del folder el get que tiene el valid reciba el foco..\n\n\nGRACIAS DE ANTEMANO','',0,'gA==','1x3iqsbk',1,0,'',774,0,0),(18802,4243,3,49,0,'62.13.172.78',1158095901,1,0,1,1,1,1,'','coordinates of Wnd','How I can determinate the max position of bottom and the  max  position right of a window \nbecause I must pen a listbox Size X,Y\n\nx= oWnd:nbottom\ny= oWnd:nRight\n\n\n---------------------------','',0,'gA==','2hdrxfqv',1,0,'',49,0,0),(18803,4164,7,2,0,'87.218.146.14',1158103709,1,0,1,1,1,1,'','','Joaquín,\n\nSi comentas los REDEFINEs de los controles en el diálogo y dejas solo el diálogo no hay pérdida alguna de memoria. Luego quiere decir que algún control está gastando algo de memoria. Estamos revisándolo.','',0,'gA==','3li9atad',1,0,'',2,0,0),(18804,4241,6,2,0,'87.218.146.14',1158103876,1,0,1,1,1,1,'','','Alejandro,\n\nNo incluyas _index.prg en FiveH.lib, es sólo para 16 bits.','',0,'gA==','2yq8vuzf',1,0,'',2,0,0),(18805,4244,3,69,0,'70.50.75.110',1158105075,1,0,1,1,1,0,'','OT: Barcode TTF Fonts','Hi Everybody,\n\nDoes anyone know where I can get free Barcode True type Fonts ?\n\n(I have 3 of 9, I am looking for others)\n\n\nThanks,\n\nJeff','',0,'gA==','2q2n6c23',1,0,'',69,0,0),(18806,4244,3,190,0,'202.65.134.41',1158110939,1,0,1,1,1,0,'','','Hi Jeff\n\nPlease check your email box.\n\n- Ramesh Babu P','',0,'gA==','u0uqkwht',1,0,'',190,0,0),(18807,4245,3,394,0,'207.219.124.134',1158113528,1,0,1,1,1,0,'','xharbour from xharbour.com and fwh aug release Problems #2','Now that I changed the rc file I get windows gpf error on xhb sample programs.\nI tried recompile fivehmx.lib with xharbour ? \nSame still get windows gpf\nI just don\'t get what I have wrong?\nThanks Mike','',0,'gA==','30wwtu1g',1,0,'',394,0,0),(18808,4246,6,251,0,'190.76.19.102',1158115324,1,0,1,1,1,1,'','Diferencia entre harbour y xharbour','Disculpen pero alguine podria explicarme la diferencia entre los dos, yo utilizo harbour pero nunca he tenido tiempo para preguntar por esta diferencia.\n\nGracias.','',0,'gA==','3vhybdh8',1,0,'',251,0,0),(18810,4247,3,32,0,'196.14.49.5',1158126226,1,0,1,1,1,0,'','Reverse dns lookup','Hi,\n\nThe Gethostbyname function resolves a hostname to an ip address. Is there a function available to convert an ip address to a hostname?\n\nThanks,\nAlex','',0,'gA==','54gliryp',1,0,'',32,0,0),(18811,4248,3,67,0,'62.235.24.12',1158130454,1,0,1,1,1,0,'','Focus NOT visible on radiobutton or Checkbox (Second try)','Hello,\n\nIn Next program i have problems with the visibility from the checkboxes\n\nWith define TESTSETFOCUS , on the init clausule check2 , should receive focus , but it isn\'t visible , no focus at all can be seen. Entering the TAB key gives the OK button focus , so the focus WAS on ocheck2\n\nEntering oGet[1] , oJump should set the focus on ocheck1 , only the first time this occurs .\n\nWithout TESTSETFOCUS , the first control is ocheck1 , receive at startup focus , but also invisible !!!!!\n\nAlso with radiobuttons i have this kind of problems.\n\n[code:3440r6ib]\n#include &quot;FiveWin&#46;ch&quot;\n# define TESTSETFOCUS\nfunction Main&#40;&#41;\n   LOCAL oDlg, oGet&#91;3&#93;\n   LOCAL cCad &#58;= &quot;Testing    &quot; // pad&#40;&quot;Testing Gets&quot;,40&#41;\n   LOCAL nNum &#58;= 0\n   LOCAL dDat &#58;= Date&#40;&#41;\n	 LOCAL oCheck1 , lCheck1 &#58;= &#46;T&#46;\n	 LOCAL oCheck2 , lCheck2 &#58;= &#46;F&#46;\n   Set century On\n   Set Date Ansi\n   Set Date format &quot;mm/dd/yyyy&quot;\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg TITLE &quot;TGet from &quot; + FWDESCRIPTION\n   @ 0,    6 CHECKBOX oCheck1 VAR lCheck1 OF oDlg SIZE 60, 10 PROMPT &quot;Check &#58; &quot;\n   @ 1,    2 SAY &quot;Text&#46;&#46;&#58;&quot; OF oDlg\n   @ 1,    6 GET oGet&#91;1&#93; VAR cCad OF oDlg SIZE 60, 10 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;  //VALID &#40; oCheck1&#58;Setfocus&#40;&#41; , &#46;T&#46;&#41;\n	 # ifdef TESTSETFOCUS\n	 oGet&#91;1&#93;&#58;oJump &#58;= oCheck1\n	 # endif\n   @ 1&#46;8,  2 SAY &quot;Number&#58;&quot; OF oDlg\n   @ 2,    6 GET oGet&#91;2&#93; VAR nNum OF oDlg SIZE 60, 10 PICTURE &quot;@K #999999&#46;99&quot; UPDATE\n   @ 2,    18 CHECKBOX oCheck2 VAR lCheck2 OF oDlg SIZE 60, 10 PROMPT &quot;Check &#58; &quot;\n   @ 2&#46;6,  2 SAY &quot;Date&#58;&quot; OF oDlg\n   @ 3,    6 GET oGet&#91;3&#93; VAR dDat PICTURE &quot;@E&quot; OF oDlg SIZE 60, 10 WHEN &#46;f&#46; // &quot;@D&quot;\n   oGet&#91;3&#93;&#58;lDisColors = &#46;f&#46; // don\'t use standard disabled colors\n   @ 3,    7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3,   16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n	 # ifdef TESTSETFOCUS\n   ACTIVATE DIALOG oDlg CENTERED ON INIT &#40;oCheck2&#58;Setfocus&#40;&#41;,&#46;F&#46;&#41;  \n	 # else                           \n   ACTIVATE DIALOG oDlg CENTERED \n	 # endif\nreturn nil\n\n[/code:3440r6ib]','',0,'AIA=','3440r6ib',1,0,'',67,0,0),(18812,4232,3,76,0,'80.17.137.201',1158131416,1,0,1,1,1,1,'','','which is the input of clp2harb.exe? the obj generated compiling the c source?','',0,'AIA=','1immoiyg',1,0,'',76,0,0),(18813,3963,20,76,0,'80.17.137.201',1158131658,1,0,1,1,1,1,'','','Grazie Enrico, a presto <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1xchy2c8',1,0,'',76,0,0),(18814,4232,3,6,0,'82.58.168.7',1158132351,1,0,1,1,1,1,'','','[quote=&quot;Maverich&quot;:1luc7pts]which is the input of clp2harb.exe? the obj generated compiling the c source?[/quote:1luc7pts]\n\nNo, the source code. The utility changes CLIPPER in HB_FUNC and other similar things.\n\nEMG','',0,'gA==','1luc7pts',1,0,'',6,0,0),(18815,4248,3,6,0,'82.58.168.7',1158132524,1,0,1,1,1,1,'','Re: Focus NOT visible on radiobutton or Checkbox (Second try','Your sample works fine here. Do you want my EXE to try it there?\n\nEMG','',0,'gA==','upbnlj0x',1,0,'',6,0,0),(18816,4248,3,67,0,'62.235.24.12',1158137779,1,0,1,1,1,0,'','','Enrico,\n\nYes , i will try it\n\nBut this means that the computer (or OS , XP S2) which build the aplication causes the problems ?\n\nI tryed with xhb , i will also try it with bcc\n\nFrank','',0,'gA==','1x5fcq93',1,0,'',67,0,0),(18817,4248,3,6,0,'82.58.168.7',1158138091,1,0,1,1,1,1,'','','[quote=&quot;Frank Demont&quot;:zqfu6zs8]Enrico,\n\nYes , i will try it[/quote:zqfu6zs8]\n\nSent.\n\n[quote=&quot;Frank Demont&quot;:zqfu6zs8]But this means that the computer (or OS , XP S2) which build the aplication causes the problems ?[/quote:zqfu6zs8]\n\nDon\'t think so. Maybe the libs version or the compiler or the OS that executes the EXE (my is XP Pro SP2).\n\nEMG','',0,'gA==','zqfu6zs8',1,0,'',6,0,0),(18818,4248,3,6,0,'82.58.168.7',1158138174,1,0,1,1,1,1,'','','Sorry, your email is not valid:\n\n[quote:9f0roh20]Reporting-MTA: dns;smtp-out12.alice.it\nReceived-From-MTA: dns;FBCMMO03.fbc.local\nArrival-Date: Wed, 13 Sep 2006 10:59:42 +0200\n\nFinal-Recipient: rfc822;demont.frank@pro.tiscali.be\nAction: failed\nStatus: 5.3.0\nDiagnostic-Code: smtp;553 5.3.0 &lt;demont.frank@pro.tiscali.be&gt;... User unknown[/quote:9f0roh20]\n\nEMG','',0,'gA==','9f0roh20',1,0,'',6,0,0),(18819,4249,3,49,0,'62.13.172.78',1158140065,1,0,1,1,1,1,'','BECOME A TPLAN BETA TESTER ....','<!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> [b:132osc00]MY CLASS TPLAN FOR 32 BIT[/b:132osc00] <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\n\n\n[url=http&#58;//img96&#46;imageshack&#46;us/my&#46;php?image=cxjka9&#46;jpg:132osc00][img:132osc00]http&#58;//img96&#46;imageshack&#46;us/img96/8071/cxjka9&#46;th&#46;jpg[/img:132osc00][/url:132osc00]\n\n\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Dear fwuser,\n\nIf You a small application ( source code and dbf) made with Tgant 16 bit  you can send it  at my private email   to become a test sample to include on my tests for this class \n\nWhen I have many test sample I can pubblish the class for 32 bit  for the community.\n\nRmember : the small test program ( source code with dbf ) must be sent zipped at my private email : <!-- e --><a href=\"mailto:silvio_falconi@tin.it\">silvio_falconi@tin.it</a><!-- e -->\n\n-----------------------------------------------------------------------------------\n\n]','',0,'WA==','132osc00',1,0,'',49,0,0),(18820,4245,3,2,0,'87.218.146.77',1158141902,1,0,1,1,1,1,'','','Mike,\n\nWhat xHarbour Builder build are you using ? What date ?\n\nYou need a recent beta and it works fine.','',0,'WA==','28dcn7br',1,0,'',2,0,0),(18821,4250,6,49,0,'62.13.172.78',1158146081,1,0,1,1,1,1,'','BECOME A TPLAN BETA TESTER','<!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> [b:162jpo74]MY CLASS TPLAN FOR 32 BIT[/b:162jpo74] <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\n\n\n[url=http&#58;//img96&#46;imageshack&#46;us/my&#46;php?image=cxjka9&#46;jpg:162jpo74][img:162jpo74]http&#58;//img96&#46;imageshack&#46;us/img96/8071/cxjka9&#46;th&#46;jpg[/img:162jpo74][/url:162jpo74]\n\n\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Dear fwuser,\n\nIf You a small application ( source code and dbf) made with Tgant 16 bit  you can send it  at my private email   to become a test sample to include on my tests for this class \n\nWhen I have many test sample I can pubblish the class for 32 bit  for the community.\n\nRmember : the small test program ( source code with dbf ) must be sent zipped at my private email : <!-- e --><a href=\"mailto:silvio_falconi@tin.it\">silvio_falconi@tin.it</a><!-- e -->\n\n-----------------------------------------------------------------------------------\n\n]','',0,'WA==','162jpo74',1,0,'',49,0,0),(18822,4236,6,106,0,'85.34.123.173',1158146452,1,0,0,1,1,0,'','','El resultado de GetCommError me da siempre cero, solo cambia cuando hay algun error.\n\n\nSegun la ayuda de FW --&gt;\n\nGetCommError \n\nSyntax:            \n\n\nGetCommError( &lt;nIdComDev&gt;, @&lt;cComStat&gt; ) \\\\ &lt;nRetCode&gt;\n\nThis function retrieves the most recent error value and current status for the specified device.\n\nParameters:\n\n\n&lt;nIdComDev&gt;  The communications device identifier created with the OpenComm() function.\n\n&lt;cComStat&gt;  A string that will receive the information for the comm status.\n\n--&gt; Entonces, cComStat trae informacion con el status del puerto.\n\nVolvemos al principio, ¿como debo tratar cComStat?\n\nGracias','',0,'WA==','1yzh0m80',1,0,'',106,0,0),(18823,4242,2,786,0,'84.123.49.11',1158147249,1,0,1,1,1,0,'','Ayuda con Folder','El folder tiene la clausula ON CHANGE que sirve para saber cuando se cambia de pestaña.\n\n     Ejemplo:\n   \n    ON CHANGE ( IIf( oFolder:nOption == 1, oGet1:SetFocus(),  oGet2:SetFocus() )\n\n     Esto posicionaria el foco en el objeto oGet1 si esta en la solapa 1 y si esta en otra en el objeto oGet2.','',0,'WA==','2vsrc2g4',1,0,'',786,0,0),(18824,4242,2,786,0,'84.123.49.11',1158147287,1,0,1,1,1,0,'','Ayuda con Folder','El folder tiene la clausula ON CHANGE que sirve para saber cuando se cambia de pestaña.\n\n     Ejemplo:\n   \n    ON CHANGE ( IIf( oFolder:nOption == 1, oGet1:SetFocus(),  oGet2:SetFocus() )\n\n     Esto posicionaria el foco en el objeto oGet1 si esta en la solapa 1 y si esta en otra en el objeto oGet2.','',0,'WA==','2gj2eq61',1,0,'',786,0,0),(18826,4252,19,786,0,'84.123.49.11',1158147627,1,0,1,1,1,0,'','Programadores de FiveWin de Valencia.','Despues de casi dos años sin programar en Fivewin vuelvo a las andadas con Fivewin. Me gustaria saber quienes son de Valencia para poder reunirnos de vez en cuando y intercambiar ideas y demas temas tomando cafe. \n\nRemitirme un correo a mi cuenta y a ver cuando podemos reunirnos.\n\nUn saludo,\nJavier LLoris\n<!-- e --><a href=\"mailto:jllorispersonal@ono.com\">jllorispersonal@ono.com</a><!-- e -->','',0,'WA==','3r3ahgxk',1,0,'',786,0,0),(18827,4236,6,6,0,'87.10.2.47',1158150307,1,0,1,1,1,1,'','','cComStat is the dump of lpStat parameter. These are the fields of COMSTAT structure:\n\n[quote:3mmbh4t4]COMSTAT (3.1)\n\n\n\ntypedef struct tagCOMSTAT {   /* cmst                            */\n    BYTE status;\n    UINT cbInQue;\n    UINT cbOutQue;\n} COMSTAT;\n\nThe COMSTAT structure contains information about a communications device. \n\nMember	Description\n\nstatus	Specifies the status of the transmission. This member can be one or more of the following flags: \n\nFlag	Meaning\n\nCSTF_CTSHOLD	Specifies whether transmission is waiting for the CTS (clear-to-send) signal to be sent. \nCSTF_DSRHOLD	Specifies whether transmission is waiting for the DSR (data-set-ready) signal to be sent. \nCSTF_RLSDHOLD	Specifies whether transmission is waiting for the RLSD (receive-line-signal-detect) signal to be sent. \nCSTF_XOFFHOLD	Specifies whether transmission is waiting as a result of the XOFF character being received. \nCSTF_XOFFSENT	Specifies whether transmission is waiting as a result of the XOFF character being transmitted. Transmission halts when the XOFF character is transmitted and used by systems that take the next character as XON, regardless of the actual character. \n\nCSTF_EOF	Specifies whether the end-of-file (EOF) character has been received. \nCSTF_TXIM	Specifies whether a character is waiting to be transmitted. \n\ncbInQue	Specifies the number of characters in the receive queue. \ncbOutQue	Specifies the number of characters in the transmit queue. \n\nSee Also\n\nGetCommError [/quote:3mmbh4t4]\n\nEMG','',0,'gA==','3mmbh4t4',1,0,'',6,0,0),(18828,4236,6,106,0,'85.34.123.173',1158152614,1,0,0,1,1,0,'','','Ok, però, se io ho questa catena (lunga 12 caratteri) con il risultato come faccio a sapere per esempio se la porta aspetta il CTS?\n\ncComStat := \"€\\{         \"\n\n\n#define CSTF_CTSHOLD  1 // 0x01\n\ndevo fare cosi?\nnAnd( cComStat, CSTF_CTSHOLD )\n\no con il primo carattere della catena, o quale?\n\nGrazie.','',0,'gA==','wbsqxfro',1,0,'',106,0,0),(18829,4253,3,308,0,'84.148.0.248',1158152619,1,0,1,1,1,0,'','Splitter in an MDI / MDICHILD-Window','Dear Fivewinners,\n\nis it possible to use splitter in an MDI / MDICHILD Window to use Outlook-bar or vtaskbar?\n[code:oyf9rnou]\n\n+---------------------------------------------------------+\n|      M D I - Mainwindow                                 |\n+---------------------------------------------------------+\n|                |                                          |\n|                |                                          |\n|                |                                          |\n|                |        MDI-Child-Windows      |\n| Outlook-   |                                          |\n| bar          |                                          |\n|               |                                           |\n|               |                                           |\n|               |                                           |\n|               |                                           |\n|               |                                           |\n+---------------------------------------------------------+\n                ^\n            Splitter\n[/code:oyf9rnou]\nBest Regards, Norbert','',0,'AIA=','oyf9rnou',1,0,'',308,0,0),(18830,4242,2,774,0,'200.72.65.218',1158155573,1,0,1,1,1,0,'','AYUDA CON FOLDER','EL PROBLEMA DEBE SER OTRO APLIQUE LO Q DIJISTE Y AUNQUE DA EL FOCO AL GET,, AUN SE SIGUE EJECUTANDO EL VALID DEL GET,, Y NOSE PORQUE... SE SUPONE Q EL VALID SOLO DEBERIA VALIDAR LA SALIDA DEL GET VERDAD,,   \n\nALGUNA SUGERENCIA\n\nGRACIAS','',0,'AIA=','1egbohpy',1,0,'',774,0,0),(18831,4241,6,237,0,'200.68.70.89',1158156153,1,0,1,1,1,0,'','No es ese el problema...','Antonio:\n\nNo es ese el problema, lo retiré y sigue un problema similar mas adelante. Aparenta ser como que le faltara algun .CH pero está todo direccionado a los directorios correspondientes.  \n\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'SOURCE\\DBM.prg\'...\n\ndbms.ch(84) Warning I0003  No markers in repeatable group [; #undef _Dbms_ ] - group will never be used.\n\nSOURCE\\DBM.prg(38) Error E0030  Syntax error: \"parse error at \'ODICT\'\"\n\nSOURCE\\DBM.prg(51) Error E0030  Syntax error: \"parse error at \'AFIELDS\'\"\n\n 100\n2 errors\n\nGracias!','',0,'','1ourokjc',1,0,'',237,0,0),(18832,4254,2,66,0,'200.127.210.61',1158156886,1,0,1,0,1,0,'','Como puedo agrandar (hacer un zoomout)  sobre  JPG','Estimados Colegas\n\nNecesito agrandar una imagen (zoom out) cuando hago click con el\nraton sobre ella ,alguien me puede orientar como hacerlo\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','14hhmtaj',1,0,'',66,0,0),(18833,4255,6,66,0,'200.127.210.61',1158157082,1,0,1,0,1,0,'','Como puedo agrandar un jpg haciendo click con el raton','Estimados Colegas \n\nNecesito agrandar una imagen (zoom out) cuando hago click con el \nraton sobre ella ,alguien me puede orientar como hacerlo \n\ndesde ya muchas gracias \nFabian \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','33njjkb1',1,0,'',66,0,0),(18834,4249,3,217,0,'200.159.120.34',1158157153,1,0,1,1,1,0,'','Re: BECOME A TPLAN BETA TESTER ....','Congratulations, Silvio!\n\nIt look very nice!\n\nBest Regards,\nMaurilio','',0,'','hk57wyuc',1,0,'',217,0,0),(18835,4226,3,707,0,'222.124.20.50',1158157389,1,0,1,1,1,0,'','','Mike.\n\n&gt;&gt; Do I need to recompile fivehmx.lib with xharbour ?\n\nYes ! You have to recompile your source fwh code with xHarbour.\n\nAreang','',0,'','30hk08s7',1,0,'',707,0,0),(18836,4246,6,191,0,'87.235.195.107',1158162123,1,0,1,1,1,1,'','','Diferencias internas que repercuten en el rendimiento y\nalgunas de las siguientes extensiones de xharbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org/index.asp?page=product/extensions\">http://www.xharbour.org/index.asp?page= ... extensions</a><!-- m -->\n(editado por A.L.)','',0,'','34w5hojb',1,0,'',191,0,0),(18837,4241,6,237,0,'200.68.70.89',1158164371,1,0,1,1,1,0,'','Antonio','Por lo que vi, no reconoce la sentencia BYNAME.\n\nGracias','',0,'','3ebeyr0v',1,0,'',237,0,0),(18838,4249,3,49,0,'62.13.172.78',1158164445,1,0,1,1,1,1,'','','it  run as the old tgant class but i make some modifies because i not know the source code of tgant\ninfact i modifed the tet of tgant(qgant) ...\n \nit\'s very easy...\n\nIf You a small application ( source code and dbf) made with Tgant 16 bit you can send it at my private email \n\nonly the fwuser send me the test( source code and dbf)  i send the class 32 bit !!!!!!!!!!!!!!!','',0,'','122owds7',1,0,'',49,0,0),(18839,4247,3,303,0,'72.199.41.171',1158167953,1,0,1,1,1,0,'','','Alex,\n\nTry this:\n\n[code:1x3xiopw]if WsaStartup&#40;&#41;=0\n   cServerName &#58;= &quot;mail&#46;infovia&#46;com&#46;ar&quot;\n   cServerIP   &#58;= GetHostByName&#40;cServerName&#41;\n   WsaCleanup&#40;&#41;\nelse\n  Some kind of error\nendif[/code:1x3xiopw]\n\nJames','',0,'AIA=','1x3xiopw',1,0,'',303,0,0),(18840,4256,2,518,0,'201.124.176.36',1158168165,1,0,1,1,1,0,'','Cambiar el color de un get que tenga readonly','Hola,\n\nSe puede cambiar color del fondo y del texto de un get con readonly ? por que el get normal si me funciona pero cuando le pongo readonly me lo pone el default gris.\n\ngracias','',0,'AIA=','17jo2zsq',1,0,'',518,0,0),(18841,4253,3,303,0,'72.199.41.171',1158168174,1,0,1,1,1,0,'','','Norber,\n\nsee /samples/testspl6.prg\n\nJames','',0,'AIA=','19h22myb',1,0,'',303,0,0),(18842,4257,7,518,0,'201.124.176.36',1158168705,1,0,1,1,1,0,'','Desarollos para telefonos PALM y Blackberry y Sony p910a','Hola,\n\nDeseo dealizar una aplicacion para utilizarse en estos telefonos que muestra el encabezado.\n\nCon FWPPC se puede realizar en todas ???  \n\nGracias\nRene','',0,'AIA=','4tm5ml2f',1,0,'',518,0,0),(18843,4244,3,69,0,'206.210.97.138',1158169158,1,0,1,1,1,0,'','','Ramesh,\n\nThanks,\nJeff','',0,'AIA=','2l6q4o1n',1,0,'',69,0,0),(18844,4257,7,138,0,'148.233.151.30',1158170089,1,0,1,1,1,1,'','','pues va a ser que no.\n\nFWPPC solo funciona en equipos con sistema operativo windows mobile.\n\nPara todo lo que no sea windows (y aun para los equipos con windows) lo mas facil es hacer aplicaciones web, basta con que tu dispositivo movil tenga un navegador y tengas conexión a interne, por gprs o csd.\n\nNuestro cliente* CRESWIN (<!-- w --><a class=\"postlink\" href=\"http://www.creswin.com.mx\">www.creswin.com.mx</a><!-- w -->) tiene una solucion de top mangement y vendedor movil hecha en esta tecnologia, un navegador que accesa a datos dbf usando la web,  ademas gano un premio de innovacion tecnologica este año.','',0,'AIA=','37vpevnv',1,0,'',138,0,0),(18845,4236,6,6,0,'87.10.2.47',1158172702,1,0,1,1,1,1,'','','Devi considerare ogni carattere come se fosse un byte. Quindi, dato il formato della struttura, immagino che si debbano prendere in considerazione solo i primi 5 caratteri. Il primo sarebbe status, il secondo e il terzo sarebbe cbInQue e il quarto e il quinto sarebbe cbOutQue.\n\nNel tuo caso lo status dovrebbe essere 128 che starebbe ad indicare che tutti i flags sono a zero (l\'unico bit posto ad uno non fa parte dei bit utilizzati).\n\nEMG','',0,'AIA=','10ruc23n',1,0,'',6,0,0),(18846,4258,6,389,0,'201.96.134.144',1158173444,1,0,1,1,1,0,'','Como puedo hacer grupos en repor utilizando arrays ???','Estoy tratando de crear un grupo en report utilizando arreglos pero no me funciona.. tengo el siguiente codigo ON GROUP aVentas[nRow,2] .. el elemento es el que contiene la clave que quiero agrupar.. saludos\nGABO','',0,'','3s9s3tdx',1,0,'',389,0,0),(18847,4253,3,308,0,'84.148.0.248',1158173668,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1s0806wx]Norbert,\n\nsee /samples/testspl6.prg\n\nJames[/quote:1s0806wx]\n\nDear James,\n\nmany thanks for your answer, but that is not exactly that what I need. \ni need the splitter not IN the mdichild, i need it WITH the mdichild.\n\nI would like to have my Outlook-Bar static in the mainwindow MDI.  \nAccording to selection, the corresponding mdichild window is loaded then.  \n\nAny ideas ?','',0,'gA==','1s0806wx',1,0,'',308,0,0),(18848,4256,2,348,0,'201.230.65.83',1158173687,1,0,1,1,1,0,'','Re: Cambiar el color de un get que tenga readonly','[quote=&quot;RMC&quot;:3ra1uep7]Hola,\n\nSe puede cambiar color del fondo y del texto de un get con readonly ? por que el get normal si me funciona pero cuando le pongo readonly me lo pone el default gris.\n\ngracias[/quote:3ra1uep7]\n\nHolas. dias atras, tambien hice la misma consulta  y aqui te mando la referencia de las respuestas que me dieron\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3831\">http://fivetechsoft.com/forums/viewtopic.php?t=3831</a><!-- m -->\n\nsi bien no encontre solucion salvo una actualizacion de mi  fw,  quizas te sirva de algo para tomar alguna desicion.\n\n\nLubin','',0,'gA==','3ra1uep7',1,0,'',348,0,0),(18849,4253,3,303,0,'72.199.41.171',1158174200,1,0,1,1,1,0,'','','&gt;Any ideas ?\n\nSDI','',0,'gA==','1xi15tr0',1,0,'',303,0,0),(18850,4259,2,348,0,'201.230.65.83',1158174842,1,0,1,1,1,0,'','y me preguntaron ... el sistema puede correr en Mac ??','Buenos dias.. quizas una pregunta  tonta..  pero en fin ... una inquietud de un cliente que la traslado al foro...   el sistema hecho en FiveWin podria ser utilizado en  computadores MAC... \npues se sabe que es otro sistema operativo ..  \n\nse podra ..?? \n\nGracias...\n\nlubin','',0,'gA==','qtzkf8v7',1,0,'',348,0,0),(18851,4241,6,2,0,'87.218.146.14',1158176462,1,0,1,1,1,1,'','','&gt; Por lo que vi, no reconoce la sentencia BYNAME\n\nSe implementa a nivel de preprocesador (está en include\\objects.ch):\n[code:22o8jdm8]\n#xtranslate BYNAME &lt;V&gt; &#91;, &lt;VN&gt; &#93;     =&gt; &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; &#91;; &#58;&#58;&lt;VN&gt; &#58;= &lt;VN&gt; &#93;\n#xtranslate BYNAME &lt;V&gt; DEFAULT &lt;Val&gt; =&gt; &#58;&#58;&lt;V&gt; &#58;= BYDEFAULT &lt;V&gt;, &lt;Val&gt;\n#xtranslate BYNAME &lt;V&gt; IFNONIL       =&gt; ;\n                            if &lt;V&gt; != NIL ;;\n                                &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; ;;\n                            end\n[/code:22o8jdm8]','',0,'AIA=','22o8jdm8',1,0,'',2,0,0),(18852,4226,3,2,0,'87.218.146.14',1158176983,1,0,1,1,1,1,'','','Mike,\n\nIf you use FWH August build and most recent xHarbour builder beta, you don\'t have to recompile anything, just build your app.','',0,'AIA=','rwfyqjgf',1,0,'',2,0,0),(18853,4253,3,2,0,'87.218.146.14',1158177055,1,0,1,1,1,1,'','','Norbert,\n\nIts not implemented yet. Its on our to-do list.','',0,'AIA=','2il32zjb',1,0,'',2,0,0),(18854,4180,2,348,0,'201.230.65.83',1158177482,1,0,1,1,1,0,'','Re: Como puedo insertar un campo en una base ya creada','holas \n\nhace tiempo cree un conjunto de funciones para  revisar y actualizar la estrucra de una base de datos, esto es dandole el nombrel del DBF (d:\\ruta1\\ruta2\\mibase.dbf),  y el vector de la strucctura de la nueva base de datos,   cuando esa estructura son diferentes a la DBF, la actualiza ,  si deseas  me envias un correo para  mandartela, creo que te puede servir.\n\n<!-- e --><a href=\"mailto:lubiin.am@speedy.com.pe\">lubiin.am@speedy.com.pe</a><!-- e -->\n\nSuerte, Lubin','',0,'AIA=','z93nvq4q',1,0,'',348,0,0),(18855,4259,2,138,0,'189.141.70.60',1158183759,1,0,1,1,1,1,'','','Si, los Macs tienen emuladores de Windows que funcionan mejor que el propio Windows, se monta el emulador, luego tienes que instalar un windows y listo !!!!!, el windows corre dentro de una ventana de Mac.\n\nUno de los mejores que he visto es iEmulator (<!-- w --><a class=\"postlink\" href=\"http://www.iemulator.com\">www.iemulator.com</a><!-- w -->)','',0,'AIA=','399hl48i',1,0,'',138,0,0),(18856,4253,3,49,0,'62.13.172.78',1158184803,1,0,1,1,1,1,'','','I have an Idea for you USE  VTASKBAR on  MDI RUN OK!!!\nI use Vtaskbar insted outlook menu then a splitter and the a browse\nSEE here :\n[url=http&#58;//img246&#46;imageshack&#46;us/my&#46;php?image=vdswinuu2&#46;jpg:2cqzz286][img:2cqzz286]http&#58;//img246&#46;imageshack&#46;us/img246/2363/vdswinuu2&#46;th&#46;jpg[/img:2cqzz286][/url:2cqzz286]','',0,'GA==','2cqzz286',1,0,'',49,0,0),(18857,4260,3,49,0,'62.13.172.78',1158185314,1,0,1,1,1,1,'','sample for print an array','I use wbrowse of hernan\nif I use this command \n\n[code:1k84fv90]\n\n   oBrw&#58;SetArray&#40; aMat &#41;\n&#46;&#46;&#46;&#46;\n\naction &#40;oBRW&#58;Report&#40;&quot;prova di stampa&quot;, &#46;t&#46; &#41; &#41;\n\n\n[/code:1k84fv90]\n\nthe program make error !!!!! \nAlias Array don\'t exist\n\nthere is asmall sample to print an array from listbox ?\n\n-------------------------------------------------------------','',0,'AIA=','1k84fv90',1,0,'',49,0,0),(18858,3276,6,49,0,'62.13.172.78',1158185657,1,0,1,1,1,1,'','','Dear sjingo,\nwe made Tplan 32 bit class ( Tgant)\nIf you have some test sample you can send it to my private emai\nwe publish the class when we\'ll made 10 test sample\n----------------------------- \nl wait for you','',0,'AIA=','zywbc2lk',1,0,'',49,0,0),(18859,1297,1,49,0,'62.13.172.78',1158185754,1,0,1,1,1,1,'','','Now I terminate Tplan class\nREAD this message : <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4249\">http://fivetechsoft.com/forums/viewtopic.php?t=4249</a><!-- m -->\n\n\n--------------------------------','',0,'AIA=','3w09n6nt',1,0,'',49,0,0),(18860,4261,6,255,0,'200.67.175.250',1158186172,1,0,1,1,1,1,'','OT: Necesitamos Programador Php+JavaScript+MySQL','Que tal amigos, buenas tardes...\n\nhace mucho no me aparezco por estos rumbos pero el\ntiempo no ha sido muy buen aliado.\n\nAntes de continuar perdonen el OFF-TOPIC pero se que\nen este foro siempre nos apoyamos.\n\nBien, necesitamos programador para una importante\nEditorial, debe tener experiencia en php+javascript+mysql\ny el trabajo es en la ciudad de México DF.\n\nInteresados por favor enviar currículum a:\n<!-- e --><a href=\"mailto:sistemas@grupoeditorialauroch.com.mx\">sistemas@grupoeditorialauroch.com.mx</a><!-- e -->\no ponerse en contacto con:\nIng. Tomas Hernandez Perez al teléfono:\n57 03 19 39 ext 107\n\nSueldo aproximado: entre 10mil y 12mil mensuales a tratar.\n\nGracias\nhasta pronto.','',0,'AIA=','2briaean',1,0,'',255,0,0),(18861,4164,7,598,0,'200.11.139.61',1158186508,1,0,1,1,1,1,'','','que tal amigos, q tal don antonio.. he seguido el hilo y a mi tambien me paso algo parecido, cuando queria matar un control para pasar a otro dialogo, o simplemente para poner otro en lugar del anterior, la aplicacion se ponia algo lenta.. luego me di cuenta q el arreglo aControls crecia sin parar cada vez que hacia una nueva llamada, esto lo pude subsanar, llamando al metodo Hide() en vez de End() y condicionando la ejecucion, si necesitaba llamar de nuevo a un control determinado, preguntaba si ya existia y le hacia un Show(), aparte de eso no asigno variables a los controles, por ejemplo\n\n[code]\n/////////////////////////////\n// PRUEBA PARA FORO FWPPC\n// Luis Santeliz - 12/06/2006\n// <!-- e --><a href=\"mailto:luissanteliz@cantv.net\">luissanteliz@cantv.net</a><!-- e -->\n//\n\n#include &quot;fwce.ch&quot;\n#include &quot;colors.ch&quot;\n#include &quot;winapi.ch&quot;\n\nFUNCTION Main&#40;&#41;\nLOCAL aPict, aCampos\n\nPUBLIC _oWnd, oContenedor, oFnt\n\n#DEFINE data     curdir&#40;&#41;+&quot;\\data&quot;\n#DEFINE bitmaps  curdir&#40;&#41;+&quot;\\bitmaps&quot;\n\nDEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0,12\nDEFINE FONT oFnt2 NAME &quot;Arial&quot; SIZE 0,12 BOLD\n\nDEFINE WINDOW _oWND TITLE &quot;Prueba Foro FWPPC&quot;\n\nUSE &#40;data+&quot;\\clientes.dbf&quot;&#41; ALIAS &quot;CLI&quot; INDEX &#40;data+&quot;\\clientes&quot;&#41; NEW\n\nDEFINE DIALOG oContenedor OF _oWND STYLE nor&#40;WS_CHILD, WS_BORDER&#41; ;\n      FROM 296, 2 TO 317, 200 PIXEL\n\nACTIVATE DIALOG oContenedor NOWAIT\n\n\n#DEFINE oBrw _oWnd&#58;aControls&#91;1&#93;\n\naPicture&#58;=&#123;NIL,&quot;999.99&quot;&#125;\naCampos&#58;=&#123;&quot;CLI_NOMBRE&quot;,&quot;CLI_DESCUE&quot;&#125;\n\n@ 1,1 LISTBOX FIELDS &#40;ContenedorSay&#40;CLI-&gt;CLI_CODIGO&#41;, OemToAnsi&#40;LEFT&#40;CLI-&gt;CLI_NOMBRE,30&#41;&#41;&#41;, TRANSFORM&#40;CLI-&gt;CLI_DESCUE,aPicture&#91;2&#93;&#41; ALIAS &quot;CLI&quot; ;\n      HEAD &quot;Nombre&quot;,&quot;Desc&quot; SIZE 240,200 PIXEL OF _oWnd ;\n      ON CLICK &#40;EditCelda&#40;oBrw,aPicture,aCampos&#41;&#41;  ;\n      FONT oFnt\n\noBrw&#58;lCellStyle&#58;=.t.      // por celda\noBrw&#58;aJustify&#58;=&#123;.f.,.t.&#125;  // Justifica el texto a la derecha o ala izquierda de cada campo\n\n\n ACTIVATE WINDOW _oWND\nRETURN &#40;.T.&#41;\n\n////////////////////////\n// Editar celda\n//    oxBrw   &#58; objeto TWBrowse\n//    aPict   &#58; arreglo con el PICTURE del get, si es NIL no hara el get, si es un codeblock se evaluara, pero aceptara solo valores caracter o NIL\n//    aCampos &#58; arreglo con los nombres de los campos del alias del browse\n//\n\n\nFUNCTION EditCelda&#40;oxBrw,aPict,aCampos&#41;\n\n   #DEFINE nColActual oxBrw&#58;nColAct\n   #DEFINE nLargo oxBrw&#58;aColSizes&#91;nColActual&#93;\n   #DEFINE cPict IIF&#40; ValType&#40;aPict&#91;nColActual&#93;&#41;=&quot;B&quot;, Eval&#40;aPict&#91;nColActual&#93;&#41; , aPict&#91;nColActual&#93; &#41;\n   #DEFINE cSay rtrim&#40;oxBrw&#58;aHeaders&#91;nColActual&#93;&#41;\n   #DEFINE nPosCampo FieldPos&#40;aCampos&#91;nColActual&#93;&#41;\n   #DEFINE nAncho 15\n\n   LOCAL uVar&#58;=NIL\n\n   // #DEFINE oCantidad           oFld&#58;aDialogs&#91;2&#93;\n   #DEFINE oContenedorSay        oContenedor&#58;aControls&#91;1&#93;\n   #DEFINE oContenedorGet        oContenedor&#58;aControls&#91;2&#93;\n   #DEFINE oContenedorBtnBmp1    oContenedor&#58;aControls&#91;3&#93;\n   #DEFINE oContenedorBtnBmp2    oContenedor&#58;aControls&#91;4&#93;\n\n   IF cPict=NIL\n      ContenedorSay&#40;&quot;No se puede editar.&quot;&#41;\n      RETURN NIL\n   ENDIF\n   uVar&#58;=FieldGet&#40;nPosCampo&#41;\n\n   oContenedor&#58;EraseBkGnd&#40; oContenedor&#58;GetDC&#40;&#41; &#41;\n   oContenedor&#58;ReleaseDC&#40;&#41;\n//\n// AQUI ES DONDE HAGO LA LLAMADA AL PROCEDIMIENTO Show&#40;&#41;\n//\n\n\n   IF Len&#40;oContenedor&#58;aControls&#41;&gt;2\n      oContenedorGet&#58;cText&#40;uVar&#41;\n      oContenedorGet&#58;Refresh&#40;&#41;\n      oContenedorGet&#58;SetFocus&#40;&#41;\n     // AEval&#40;oContenedor&#58;aControls,&#123;|a,i| a&#58;Show&#40;&#41;&#125;,3&#41;\n      oContenedorGet&#58;Show&#40;&#41;\n      oContenedorSay&#58;Show&#40;&#41;\n      oContenedorBtnBmp1&#58;Show&#40;&#41;\n      oContenedorBtnBmp2&#58;Show&#40;&#41;\n      RETURN uVar\n   ENDIF\n\n  //\n  // Panel para la presentacion del get que obtiene la cantidad luego de seleccionar el articulo para el documento\n  //\n\n   @ 1, 0 SAY cSay+&quot;&#58;&quot; SIZE &#40;len&#40;cSay&#41;*6&#41;+1, nAncho PIXEL FONT oFNT2 DIALOG oContenedor\n\n   @ oContenedorSay&#58;nTop, oContenedorSay&#58;nRight+1 GET uVar SIZE &#40;len&#40;cPict&#41;*6&#41;, nAncho PIXEL PICTURE cPict FONT oFnt RIGHT DIALOG oContenedor\n\n   @ oContenedorSay&#58;nTop-2,oContenedorGet&#58;nRight+2 BTNBMP FILE bitmaps+&quot;\\si16x16.bmp&quot;, bitmaps+&quot;\\si16x16_.bmp&quot; ;\n      SIZE 18,18  PIXEL ACTION &#40;oxBrw&#58;cAlias&#41;-&gt;&#40;FieldPut&#40;nPosCampo,uVar&#41;&#41;,oContenedorBtnBmp2&#58;Hide&#40;&#41;,oContenedorBtnBmp1&#58;Hide&#40;&#41; DIALOG oContenedor\n\n   @ oContenedorSay&#58;nTop-2,oContenedorBtnBmp1&#58;nRight+1 BTNBMP FILE bitmaps+&quot;\\no16x16.bmp&quot;, bitmaps+&quot;\\no16x16_.bmp&quot; ;\n      SIZE 18,18 PIXEL ACTION oContenedorBtnBmp1&#58;Hide&#40;&#41;,oContenedorBtnBmp2&#58;Hide&#40;&#41; DIALOG oContenedor\n\n   oContenedorGet&#58;bGotFocus &#58;=&#123;||ShowKeyboard&#40;&#41; &#125;\n   oContenedorGet&#58;bLostFocus&#58;=&#123;||HideKeyboard&#40;&#41;,oContenedorSay&#58;Hide&#40;&#41;,oContenedorGet&#58;Hide&#40;&#41;, oxBrw&#58;Refresh&#40;&#41; &#125;\n   oContenedorGet&#58;SetFocus&#40;&#41;\n\n\n   // EraseBkGnd&#40; hDC &#41;\nRETURN\n\n/////////////////////////\n// Pinta un mensaje en el contenedor, &#40;y literalmente pinta&#41;\n//\n\nFUNCTION ContenedorSay&#40;cMsg&#41;\n      oContenedor&#58;EraseBkGnd&#40; oContenedor&#58;GetDC&#40;&#41; &#41;\n      oContenedor&#58;ReleaseDC&#40;&#41;\n      oContenedor&#58;Say&#40;1,2,cMsg,CLR_BLACK,CLR_WHITE,oFnt,.T.&#41;\nRETURN .T.\n\n/////////////////////////////////////\n// convierte texto de msdos en ansi\n//\nfunction OemToAnsi&#40; cText &#41;\n\n   local cOem  &#58;= &quot;¤¥‚¡¢£','',0,'','145had9d',1,0,'',598,0,0),(18862,4164,7,598,0,'200.11.139.61',1158186743,1,0,1,1,1,1,'','','ah una cosa mas...\nel codigo completo esta en <!-- w --><a class=\"postlink\" href=\"http://www.alvajos.com/pruebita.zip\">www.alvajos.com/pruebita.zip</a><!-- w -->','',0,'','9mjhhlzm',1,0,'',598,0,0),(18863,4253,3,308,0,'84.148.0.248',1158187231,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3jdcq78b]Norbert,\n\nIts not implemented yet. Its on our to-do list.[/quote:3jdcq78b]\n\nCan you already say be becomes when that available?','',0,'gA==','3jdcq78b',1,0,'',308,0,0),(18864,4253,3,308,0,'84.148.0.248',1158187388,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:3k03qu0l]I have an Idea for you USE  VTASKBAR on  MDI RUN OK!!!\nI use Vtaskbar insted outlook menu then a splitter and the a browse\nSEE here :\n[url=http&#58;//img246&#46;imageshack&#46;us/my&#46;php?image=vdswinuu2&#46;jpg:3k03qu0l][img:3k03qu0l]http&#58;//img246&#46;imageshack&#46;us/img246/2363/vdswinuu2&#46;th&#46;jpg[/img:3k03qu0l][/url:3k03qu0l][/quote:3k03qu0l]\n\nthis looks very nice. do you have an sample ?\nnow i have my vtaskbar-lizenz  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'mA==','3k03qu0l',1,0,'',308,0,0),(18865,4253,3,49,0,'62.13.172.78',1158189688,1,0,1,1,1,1,'','','yes see test13 sample vtaskbar','',0,'mA==','2ri4xbew',1,0,'',49,0,0),(18866,4249,3,15,0,'203.73.7.96',1158198777,1,0,1,1,1,0,'','','Hello Silvio,\n\nMy project need to Gant solution. But I have not any sample code of 16bit Gant.\n\nRichard','',0,'mA==','m200r1x9',1,0,'',15,0,0),(18867,4261,6,496,0,'200.107.36.176',1158202399,1,0,1,1,1,0,'','','Parece que voy a tener que alistar maletas para ir a México...... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> .... , (es broma),  pero si es que aceptan teletrabajo, aquí me tienen ... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nUn saludo\n\nMarcelo Jingo','',0,'mA==','3su8n9n8',1,0,'',496,0,0),(18868,3850,7,150,0,'212.106.243.120',1158206387,1,0,1,1,1,1,'','','Se puede bajar desde la developer zone.\n\nAprovecho para comentar que la mc70 está muy bien pero es soporte de symbol es lamentable, he pedido 3 veces la actualización a castellano y me marean pidiendo datos... luego me dicen que si, que en 10 días y vuelta a empezar.','',0,'mA==','25ovpox4',1,0,'',150,0,0),(18869,3276,6,496,0,'200.107.36.176',1158206409,1,0,1,1,1,0,'','','Hola Silvio\n\nEspero me compredas, porque no soy tan bueno con el ingles.\n\nDesde hace tiempo atrás estoy intentando conseguir un TGANT para 32 bits, he intentado contactarme con Arturo pero es imposible, no responde.\n\nYo he modificado el PRG (qgantt) que viene en la clase facilitada por Arturo, a la que le he ajustado a mis necesidades como:\n\n- Debe ser llamada desde otra aplicación, pasándole parámetros que corresponden a los nombres de las tablas de actividades y precedentes\n\n- Me muestra el cronograma valorado (por semanas)\n\n- Y, le di la capacidad de imprimir el cronograma.\n\nEsto no he podido pasar a 32 bits porque no tengo los fuentes de los objs que usa esta clase y que son:  gantt.obj , getbitma.obj, setrop2.obj, wbrowse.obj y wbrwline.obj (estos 2 últimos modificados por Arturo).\n\nSi tú tienes esos objs en 32 bits estupendo! . Por eso te propongo, si es que estás de acuerdo, que me facilites los objs en 32 bits para probarlo y posteriormente te enviaría el código con los cambios que yo realizé para que lo revises y puedas mejorarlo.\n\nSi estás de acuerdo mi correo es: <!-- e --><a href=\"mailto:mjingo@hotmail.com\">mjingo@hotmail.com</a><!-- e -->\n\nUn saludo\n\nMarcelo Jingo','',0,'mA==','14saexa0',1,0,'',496,0,0),(18870,4262,7,150,0,'212.106.243.120',1158206706,1,0,1,1,1,1,'','shared','Hola\n\nUsando mobile-5 no me acepta la clausula SHARED. He visto varios comentarios en el foro pero no llego a entender en que casos funciona y en cuales no. Como es para un cliente nuevo agradecería que me dijerais con que pda - so - red os funciona.\n\nGracias','',0,'mA==','2k1dtpog',1,0,'',150,0,0),(18871,4247,3,32,0,'168.209.98.43',1158207213,1,0,1,1,1,0,'','','Hi,\n\nThat\'s the one I know. I\'m looking for something that will return cServer from cServerIP. I\'ve been looking at getaddrinfo on MSDN but haven\'t tackled it yet <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAlex','',0,'mA==','3d6qdbpv',1,0,'',32,0,0),(18872,4164,7,2,0,'87.218.146.222',1158211883,1,0,1,1,1,1,'','','Luis,\n\nEstás usando un diálogo no modal, luego si no lo destruyes, cada vez que llamabas a EditCelda() crece aControls, es normal. Tienes que destruirlo con :End() y volver a crearlo de nuevo. \n\nTu sistema lo que hace es reutilizarlo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEl problema que describe Joaquín es diferente y ya está practicamente arreglado.','',0,'mA==','bpo9wklj',1,0,'',2,0,0),(18873,4259,2,2,0,'87.218.146.222',1158213796,1,0,1,1,1,1,'','','Lubin,\n\nAdemás de la solución que te indica René, existe \"Wine\" para Mac OSX, igual que existe para Linux, lo que te permite ejecutar aplicaciones Windows en Mac directamente, sin tener que instalar Windows en un emulador:\n\n<!-- m --><a class=\"postlink\" href=\"http://darwine.opendarwin.org/\">http://darwine.opendarwin.org/</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://darwine.opendarwin.org/images/CaptureWine.gif\">http://darwine.opendarwin.org/images/CaptureWine.gif</a><!-- m -->','',0,'mA==','3eyfi56k',1,0,'',2,0,0),(18874,4255,6,2,0,'87.218.146.222',1158214107,1,0,1,1,1,1,'','','Fabian,\n\nRevisa samples\\TestBmp1.prg','',0,'mA==','8b4my79v',1,0,'',2,0,0),(18875,4249,3,49,0,'213.82.134.66',1158217459,1,0,1,1,1,1,'','','what is you project ?\ncan you send me small test sample ?','',0,'mA==','1ux1pae7',1,0,'',49,0,0),(18876,4247,3,6,0,'87.16.223.174',1158218992,1,0,1,1,1,1,'','','[quote=&quot;AlexSchaft&quot;:15j9dnrz]Hi,\n\nThat\'s the one I know. I\'m looking for something that will return cServer from cServerIP. I\'ve been looking at getaddrinfo on MSDN but haven\'t tackled it yet <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAlex[/quote:15j9dnrz]\n\nOr gethostbyaddr().\n\nEMG','',0,'gA==','15j9dnrz',1,0,'',6,0,0),(18877,4248,3,130,0,'141.51.32.24',1158221994,1,0,1,1,1,0,'','','Frank,\n\nthe sample is working fine here, Fwh 2.4, xharbour, Borland C\n\nStefan','',0,'gA==','3jot5an7',1,0,'',130,0,0),(18878,4236,6,106,0,'85.34.123.173',1158222643,1,0,0,1,1,1,'','','Grazie.','',0,'gA==','1lt2zeif',1,0,'',106,0,0),(18879,4263,3,6,0,'87.16.223.174',1158225291,1,0,1,1,1,1,'','Program freeze','Please try this sample with BBC and warning disabled:\n\n[code:jhdiq7x3]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    ? test\n\n    RETURN NIL[/code:jhdiq7x3]\n\nIt just freeze with latest FWH.\n\nEMG','',0,'AIA=','jhdiq7x3',1,0,'',6,0,0),(18880,4263,3,2,0,'87.218.146.222',1158230345,1,0,1,1,1,1,'','','Enrico,\n\nHere it is working fine with both Harbour and xHarbour:\n[url=http&#58;//imageshack&#46;us:1vu42oom][img:1vu42oom]http&#58;//img96&#46;imageshack&#46;us/img96/9868/enricorf4&#46;jpg[/img:1vu42oom][/url:1vu42oom]','',0,'GA==','1vu42oom',1,0,'',2,0,0),(18881,4263,3,6,0,'87.16.223.174',1158231912,1,0,1,1,1,1,'','','With Harbour it works fine here too. Did you try using latest xHarbour from CVS?\n\nEMG','',0,'GA==','k7e1q0uk',1,0,'',6,0,0),(18882,4263,3,6,0,'87.16.223.174',1158232429,1,0,1,1,1,1,'','','The problem is in the following code from errsysw.prg:\n\n[code:jg3aubd7]while ! Empty&#40; __ClassName&#40; n &#41; &#41;\n   cErrorLog += &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41; + CRLF\nend[/code:jg3aubd7]\n\n__ClassName( n ) is never empty with latest xHarbour from CVS.\n\nEMG','',0,'AIA=','jg3aubd7',1,0,'',6,0,0),(18883,4249,3,15,0,'203.73.7.96',1158232710,1,0,1,1,1,0,'','','Hello Silvio,\n\nI have not coding for it.\nBecause Gant solution not support within FWH.\nI saw them support ActiveX.\n\nRegards,\n\nRichard','',0,'AIA=','3s5h8h0e',1,0,'',15,0,0),(18884,3276,6,49,0,'62.13.172.78',1158233756,1,0,1,1,1,1,'','','[quote:id2wf8de] Debe ser llamada desde otra aplicación, pasándole parámetros que corresponden a los nombres de las tablas de actividades y precedentes \n\n- Me muestra el cronograma valorado (por semanas) \n\n- Y, le di la capacidad de imprimir el cronograma[/quote:id2wf8de]\n\n1) you must create own code\n2) you can create   a crhonogramweek to week\n3) Print is not implented yet!!\n\nthe tplan class also in beta test  if you have a your code made with tgant send it  at my private email ..','',0,'gA==','id2wf8de',1,0,'',49,0,0),(18885,4226,3,394,0,'207.219.124.134',1158235291,1,0,1,1,1,0,'','','Thanks That was it I was using current release not beta.\nMike','',0,'gA==','2tculyr6',1,0,'',394,0,0),(18886,4245,3,394,0,'207.219.124.134',1158235373,1,0,1,1,1,0,'','','Thanks That was it I was using current release not beta. \nMike','',0,'gA==','3flsrfjr',1,0,'',394,0,0),(18887,4256,2,53,0,'189.139.21.94',1158237532,1,0,1,1,1,1,'','','Amigos:\n\nCon este pequeño truco a mi me funciona bien.\n\nAbre el recurso con WorkShop marca el Radio Button\nMULTIPLE LINE del get que desees y listo.\n\nEspero te sirva\n\nSaludos, Armando','',0,'gA==','2rpnaw9i',1,0,'',53,0,0),(18888,4255,6,66,0,'200.127.42.114',1158240196,1,0,1,0,1,0,'','','Antonio\n\nPara imagenes jpg funciona igual ?\n\nGracias\nFabian','',0,'gA==','2ym0jwah',1,0,'',66,0,0),(18889,4264,3,213,0,'24.242.230.43',1158241706,1,0,1,1,1,0,'','Get - Cut/Paste/Delete problem','All,\n\nLast month I posted a problem using the copy/cut/paste menu when right clicking on a get.  This problem was fixed but we have a similar problem when using Delete.  \n\nIf you double click on a get to highlight the text, right click, and select Delete the contents of the get is deleted.  However, when you tab or click out of the get the Deleted text is put back in the get!\n\nThanks,\nRandal Ferguson','',0,'gA==','1eibkkhu',1,0,'',213,0,0),(18890,4171,3,299,0,'209.215.164.159',1158244623,1,0,1,0,1,0,'','','René;\n\nComo siempre --muy buena información.  \n\nMuy agradecido.\n\nDe paso, si esto funciona tan y tan bien, que razón pudiera existir para no usar encryption con ADS?\n\nRecibe un saludo muy coridal,\n\n\nReinaldo.','',0,'gA==','1p5e6uz9',1,0,'',299,0,0),(18891,3408,3,69,0,'206.210.97.138',1158245247,1,0,1,1,1,0,'','','I am now back to this listbox issue....\n\nI am using the following code to reload the listbox with new data:\n\noLbx:bLine := { || { RepData-&gt;Time, STR(RepData-&gt;Sat), STR(RepData-&gt;HR) } }\n\nAll I get in the listbox is the first entry in the database repeated 5 times.\n\nAny Ideas?\n\n\nThanks,\nJeff','',0,'gA==','28ijt0a1',1,0,'',69,0,0),(18892,4265,7,720,0,'80.36.244.134',1158248001,1,0,1,1,1,0,'','existe alguna funcion que haga de sumatorio.....??','Hola a todos...\n\nEstaba buscando y no encuentro nada que me diga si se puede hacer un sumatorio directamente como en VFP, algo como SUM(), o por el contrario tengo que recorrerme todos los registros e ir sumándolos....\n\nSaludos y gracias...\n\nElías Torres.','',0,'gA==','9nat8f4n',1,0,'',720,0,0),(18893,4266,7,720,0,'80.36.244.134',1158248475,1,0,1,1,1,0,'','ejemplos de aplicaciones...','Hola a todos..\n\nEstaba mirando la ayuda de fivewin y me he encontrado con una guía bastante grande de ejemplos de todo tipo,algunos de los cuales considero un buen apoyo para aprender... Mi pregunta es, ¿sabe alguien donde me puedo descargar esta bateria de ejemplos?\n\n\nGracias y saludos.\n\nElías Torres.','',0,'gA==','3eahek7l',1,0,'',720,0,0),(18894,4171,3,138,0,'189.141.70.60',1158248653,1,0,1,1,1,1,'','','Reinaldo:\n\n[quote=&quot;reinaldocrespo&quot;:dmfbouhi]\nDe paso, si esto funciona tan y tan bien, que razón pudiera existir para no usar encryption con ADS?\n[/quote:dmfbouhi]\n\n1) Esta caracteristica esta disponible en el servidor local, sin embargo ten en cuenta que con el server local solo pueden utilizar 5 usuarios en red la aplicacion sin tener problema de velocidad. Con el servidor local yo no meteria mi mano al fuego para mas de 5 usuarios en temas de velocidad.\n\n2) el unico problema que hemos visto con respecto a la encriptacion, es el tamaño de las tablas cuando las quieres meter en un ZIP, veras, si tu compactas en un archivo ZIP un DBF comun y corriente, puedes obtener grados de compresion superiores al 50%, ¿ porque ?, pues porque dentro del archivo DBF hay muchisimos espacios en blanco que son facilmente comprimibles por el algoritmo del ZIP, por ejemplo, si tienes un campo que guarda un nombre y ese campo mide 60 caracteres, y en promedio utilizas 40, tienes 20 espacios en blanco que puden ser facilmente comprimibles. Cuando tienes la tabla encriptada, esto no sucede asi, ADS utiliza un algoritmo de encirptamiento que nunca proporciona el mismo caracter encriptado para los mismos caracteres, por ejemplo, si yo tengo el dato:\n\nRF \n\nADS te presentara criptado algo como esto:\n\n[rkL-*Qc,;\n\nEn un algoritmo tradicional de encriptamiento, todas las letras tienen un mismo signo encriptado, por ejemplo la \"r\" en este caso equivale a la \"E\", pero con ADS eso no funciona asi, porque el encriptamiento se da POR POSICION, asi que la misma letra \"E\" puede tener distintos signos que la identifiquen dependiendo en la posicion donde este. Volviendo a este ejemplo, si tenemos un campo de longitud 40 para almacenar el dato, y solo estas guardando \"RF\", estan libres 29 espacios en blanco, sin embargo, ADS TAMBIEN ENCRIPTA LOS ESPACIOS EN BLANCO, y como cada espacio en blanco tiene una posicion distinta, el algoritmo genera caracteres distintos que luego el ZIP no puede comprimir.\n\nEsa seria la unica desventaja de usar la encriptacion de ADS.','',0,'gA==','dmfbouhi',1,0,'',138,0,0),(18895,4247,3,138,0,'189.141.70.60',1158250061,1,0,1,1,1,1,'','','Enrico:\n\nNow I just wondering, what this function will return, if several domains are pointing to the same IP Address, for example with the hosting companies, they used to have a single IP and many domains hosted on them. At least is what happen to us ?','',0,'gA==','1ng9206f',1,0,'',138,0,0),(18896,4267,6,48,0,'217.125.38.103',1158250911,1,0,1,1,1,0,'','Sugerencia para errsysw.prg y VRDBCODE (codigos de barras)','Desde tiempo inmemoriales llevo retocando este fichero para que el recno() y el reccount() de las bases de datos que se listan en el log del error aparezcan legibles:\n\n cErrorLog += \"    \" + Transform( ( Alias( n ) )-&gt;( RecNo() ), \"99999\" ) + ;\n              \"      \" + Transform( ( Alias( n ) )-&gt;( RecCount() ), \"99999\" ) +\n              \"      \" + cValToChar( ( Alias( n ) )-&gt;( BoF() ) ) + ;\n              \"   \" + cValToChar( ( Alias( n ) )-&gt;( EoF() ) ) + CRLF + CRLF\n\nEs la muchas aplicaciones que estan en etapa de produccion se llega a superar los 100.000 registros, por lo que creo que estaria muy bien que la plantilla del Transform se ampliase al menos en un par de digitos.\n\nPara aquellos que me escribieron pidiendome la clase revisada de los codigos de barras pedirles disculpas por el retraso, pero es que mi nuevo portatil se averió y no me lo han devuelto hasta hoy mismo, asi que me pongo manos a la obra para sacar la version publica lo antes posible..','',0,'gA==','20kw9p1f',1,0,'',48,0,0),(18897,4268,2,774,0,'200.72.65.33',1158251164,1,0,1,1,1,0,'','Ayuda con Folder','HOLA AL FORO YO NUEVAMENTE CON DILEMAS \n\nMIREN TENGO UN DIALOGO DENTRO UN FOLDER CON DOS PESTAÑAS,, EN CADA UNA DE ELLAS UNOS GET, BROWSE, ETC.. \n\nEL PROBLEMA ES Q CUANDO PINCHO LAS SOLAPAS DE LA SEGUNDA PESTAÑA DEL FOLDER SE EJECUTA LA INSTRUCCION VALID DEL PRIMER GET,, ES RARO ES,, AL PRINCIPIO LO HACIA EN LA PRIMERA PESTAÑA DEL FOLDER EN LA VALID DEL PRIMER GET (Ojo las dos pestañas del folder tienen los mismo objetos,,),, PERO LO SOLUCIONES DANDOLE EL SETFOCUS AL GET CON ON INIT del dialogo... \n\nla pregunta del millon como le digo que cuando pinche la segunda pestaña del folder el get que tiene el valid reciba el foco.. \n\n\nGRACIAS DE ANTEMANO \n \nBack to top        \n \n \nJavier LLoris\n\n\n\nJoined: 31 Aug 2006\nPosts: 8\n\n Posted: Wed Sep 13, 2006 11:34 am    Post subject: Ayuda con Folder   \n\n--------------------------------------------------------------------------------\n \nEl folder tiene la clausula ON CHANGE que sirve para saber cuando se cambia de pestaña. \n\nEjemplo: \n\nON CHANGE ( IIf( oFolder:nOption == 1, oGet1:SetFocus(), oGet2:SetFocus() ) \n\nEsto posicionaria el foco en el objeto oGet1 si esta en la solapa 1 y si esta en otra en el objeto oGet2. \n \nBack to top       \n \n \nJavier LLoris\n\n\n\nJoined: 31 Aug 2006\nPosts: 8\n\n Posted: Wed Sep 13, 2006 11:34 am    Post subject: Ayuda con Folder   \n\n--------------------------------------------------------------------------------\n \nEl folder tiene la clausula ON CHANGE que sirve para saber cuando se cambia de pestaña. \n\nEjemplo: \n\nON CHANGE ( IIf( oFolder:nOption == 1, oGet1:SetFocus(), oGet2:SetFocus() ) \n\nEsto posicionaria el foco en el objeto oGet1 si esta en la solapa 1 y si esta en otra en el objeto oGet2. \n \nBack to top       \n \n \nA&amp;C\n\n\n\nJoined: 19 Aug 2006\nPosts: 11\nLocation: Chile\n Posted: Wed Sep 13, 2006 1:52 pm    Post subject: AYUDA CON FOLDER   \n\n--------------------------------------------------------------------------------\n \nEL PROBLEMA DEBE SER OTRO APLIQUE LO Q DIJISTE Y AUNQUE DA EL FOCO AL GET,, AUN SE SIGUE EJECUTANDO EL VALID DEL GET,, Y NOSE PORQUE... SE SUPONE Q EL VALID SOLO DEBERIA VALIDAR LA SALIDA DEL GET VERDAD,, \n\nALGUNA SUGERENCIA \n\nGRACIAS','',0,'gA==','2resb5p8',1,0,'',774,0,0),(18898,4265,7,720,0,'80.36.244.134',1158251797,1,0,1,1,1,0,'','','He encontrado la solucion...no estaba mal encaminado\n\nSUM VAL(articulos-&gt;precio) to total\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','39uo4km6',1,0,'',720,0,0),(18899,4247,3,6,0,'87.1.198.46',1158252277,1,0,1,1,1,1,'','','Sorry, I don\'t know. I never used that API.\n\nEMG','',0,'gA==','2ne1u4x0',1,0,'',6,0,0),(18900,3408,3,6,0,'87.1.198.46',1158252461,1,0,1,1,1,1,'','','You have to assign oLbx:bLogicLen too.\n\nEMG','',0,'gA==','3selir1x',1,0,'',6,0,0),(18901,4247,3,32,0,'168.209.98.43',1158254405,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:1m0fnrd5]Enrico:\n\nNow I just wondering, what this function will return, if several domains are pointing to the same IP Address, for example with the hosting companies, they used to have a single IP and many domains hosted on them. At least is what happen to us ?[/quote:1m0fnrd5]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w --> resolves to 192.220.116.62, which resolves back to e4001.webcom.com\n\nI guess it\'s the owner of the ip address that decides what gets published for its reverse dns.\n\nAlex','',0,'gA==','1m0fnrd5',1,0,'',32,0,0),(18902,4268,2,786,0,'84.123.49.11',1158254956,1,0,1,1,1,0,'','Ayuda con Folder','Especifica versiones de fivewin, etc porque a mi nunca me ha pasado nunca. mandame a mi correo el fuente si quieres y lo pruebo yo.\n\nP.D Yo desde la primera version de fivewin 1.0 para evitar cosas raras como esas, cuando creo el dialogo ordeno los objetos en funcion del orden que supuestamente se ejecutaran.\n\nUn saludo','',0,'gA==','1ks0eqby',1,0,'',786,0,0),(18904,3408,3,69,0,'206.210.97.138',1158255065,1,0,1,1,1,0,'','','Enrico,\n\nI have added:\n\n      oLbx:bLogicLen = { ||  RecCount()  }\n\nStill get the first record repeated 5 times. Sample of code below.\n\n\n\nFunction LoadSat()  //called from function that displays the listbox\n   use \"\\MyFile.dbf\" SHARED ALIAS \"RepData\" NEW\n   Select RepData\n   Go Top\n    oLbx:bLine := { || { RepData-&gt;Time, STR(RepData-&gt;Sat), STR(RepData-&gt;HR) } }\n    oLbx:bLogicLen()\n   oLbx:ReFresh()\nReturn Nil\n\n\nAny Ideas?\n\nJeff','',0,'gA==','3myh69f4',1,0,'',69,0,0),(18905,4252,19,123,0,'83.58.203.192',1158255902,1,0,1,1,1,0,'','','Hola Javier,\n\nPues en Fortaleny tienes a dos programadores de FWH!!\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1wi6bvuh',1,0,'',123,0,0),(18906,3408,3,303,0,'72.199.41.171',1158256158,1,0,1,1,1,0,'','','Jeff,\n\nYou have to use the ALIAS clause in the listbox definition.\n\nJames','',0,'gA==','3asttzlr',1,0,'',303,0,0),(18907,4266,7,2,0,'87.218.146.73',1158257817,1,0,1,1,1,1,'','','Elías,\n\nEsos ejemplos vienen con nuestro producto FWH (FiveWin para Harbour) para PC. No todos son operativos en FWPPC.','',0,'gA==','27karsot',1,0,'',2,0,0),(18908,4263,3,2,0,'87.218.146.73',1158257923,1,0,1,1,1,1,'','','Enrico,\n\nIt looks as they broke backwards compatibility...\n\nThanks for the feedback,','',0,'gA==','3gd0rzms',1,0,'',2,0,0),(18909,3408,3,69,0,'206.210.97.138',1158258074,1,0,1,1,1,0,'','','Now I\'m lost ... I don\'t see any ALIAS clause in the help file.  This is what I have in my help file....\n\n\nREDEFINE LISTBOX [ &lt;oLbx&gt; VAR ] &lt;cnVar&gt; ;\n\n[ ITEMS | PROMPTS &lt;aItems&gt; ]  ;\n[ FILES | FILESPEC &lt;cFileSpec&gt; ] ;\n[ ID &lt;nId&gt; ] ;\n[ ON CHANGE &lt;uChange&gt; ] ;\n[ ON [ LEFT ] DBLCLICK &lt;uLDblClick&gt; ] ;\n[ OF | WINDOW | DIALOG &lt;oWnd&gt; ] ;\n[ HELPID | HELP ID &lt;nHelpId&gt; ] ;\n[ BITMAPS [ SIZE &lt;nSize&gt; ] ] ;\n[ VALID &lt;uValid&gt; ] ;\n[ COLOR | COLORS &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ;\n[ MESSAGE &lt;cMsg&gt; ] ;\n[ UPDATE ] ;\n[ WHEN &lt;uWhen&gt; ]\n\n[ BITMAPS &lt;aBitmaps&gt; ] ;\n[ ON DRAWITEM &lt;uBmpSelect&gt; ]','',0,'','26uqcfeq',1,0,'',69,0,0),(18910,4263,3,111,0,'200.67.220.80',1158260164,1,0,1,1,1,0,'','ErrSysw....','Enrrico,\n\nYa llevaba algún rato teniendo este problema sin poder resolverlo. ¿Existe alguna solución para el problema con este código y xHarbour?\n\nwhile ! Empty( __ClassName( n ) )\n   cErrorLog += \"   \" + Str( n, 3 ) + \" \" + __ClassName( n++ ) + CRLF\nend\n\nSaludos,\n\n\nRodolfo MG','',0,'','j90m710t',1,0,'',111,0,0),(18911,4263,3,6,0,'87.17.213.156',1158261183,1,0,1,1,1,1,'','Re: ErrSysw....','Try\n\n[code:3lscefp2]while  __ClassName&#40; n &#41; != &quot;NUMERIC&quot;\n   cErrorLog += &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41; + CRLF\nend[/code:3lscefp2]\n\nEMG','',0,'AIA=','3lscefp2',1,0,'',6,0,0),(18912,3408,3,6,0,'87.17.213.156',1158261386,1,0,1,1,1,1,'','','Please look in Fivewin.ch instead. It is the best documentation. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','1oef10w1',1,0,'',6,0,0),(18913,4256,2,518,0,'201.124.176.36',1158262170,1,0,1,1,1,0,'','','Muchas Gracias Armando ... con esto funcionó  !!!!\n\nRene','',0,'AIA=','14ybjsi1',1,0,'',518,0,0),(18914,3408,3,69,0,'206.210.97.138',1158263859,1,0,1,1,1,0,'','','Thanks guys.\n\nIt works perfectly now.\n\n\nJeff','',0,'AIA=','1a3bbsyg',1,0,'',69,0,0),(18915,4229,6,793,0,'201.225.210.59',1158266322,1,0,1,1,1,0,'','Para Manuel Aranda','Gracias Manuel por el dato.  Ahora quisiera saber donde puedo obtener la libreria gtwin.lib  por que el verce la utiliza y (X)HARBOUR que descargue no la incluye. Ademas si quisiera saber si hay alguna clase para x(h) parecida a la SSAY de Ramon Aveldano\n\n\nSaludos \n\nErick \n<!-- e --><a href=\"mailto:dicoms@cwpanama.net\">dicoms@cwpanama.net</a><!-- e -->','',0,'AIA=','l4zrnjlw',1,0,'',793,0,0),(18916,4138,6,793,0,'201.225.210.59',1158267267,1,0,1,1,1,0,'','Dudas sobre la migracion de fw a fwh','Hola \nAntonio \n\nTengo algunas dudas en cuanto a la migración de fw a fwh por favor  respondame lo siguiente\n\n1.	Puedo utilizar la clase ssay de Ramon Aveldano en fwh \n2.	Por que la clase tsbrowse trae un archivo rmk para compilar y crear la librería si Rmake  es  una aplicación de clipper 5**  ; Ademas  resulta tan difícil crearla.\n3.	Tengo muchas aplicaciones que utilizan dll. Si tengo que pasar esa dll una a una a 32bits praticamente estoy haciendo todo de nuevo.\n4.	Puede enviarme un ejemplo sencillo de archivos .mak\n\nDisculpe las preguntas pero es que me siento en cero \n\nSaludos,\n\n Erick Almanza\n<!-- e --><a href=\"mailto:dicoms@cwpanama.net\">dicoms@cwpanama.net</a><!-- e -->','',0,'AIA=','a1prcbwt',1,0,'',793,0,0),(18917,4269,3,49,0,'62.13.172.78',1158272337,1,0,1,1,1,1,'','TO ANTONIO','I \'m trying to implement to a my class an method \nMouseMove( nRow, nCol, nKeyFlags )\nis there a manual reference where I can read to determinate when I click R_UP and R_Down ?\n\n-------------------','',0,'AIA=','6clzygae',1,0,'',49,0,0),(18918,4270,6,49,0,'62.13.172.78',1158274969,1,0,1,1,1,1,'','Contact César E. Lozada','CAN U SEND  TXTTO SPEECK TO MY PRIVATE E MAIL \n BECAUSE i LOSE IT\n-------------------','',0,'AIA=','22qxkw1h',1,0,'',49,0,0),(18919,4229,6,2,0,'87.218.146.2',1158277351,1,0,1,1,1,1,'','','Erik,\n\nAhora se usa GTGUI.lib en vez de GTWIN.lib. Si Verce no te deja cambiar el nombre, renombra GTGUI.lib a GTWIN.lib.','',0,'AIA=','2t903q7o',1,0,'',2,0,0),(18920,4138,6,2,0,'87.218.146.2',1158277725,1,0,1,1,1,1,'','','Erik,\n\n&gt; 1. Puedo utilizar la clase ssay de Ramon Aveldano en fwh \n\nSolo tienes que recompilarla con Harbour ó xHarbour (el que estés usando). Si alguien la usa con FWH y te la puede facilitar, mejor.\n&gt;\n2. Por que la clase tsbrowse trae un archivo rmk para compilar y crear la librería si Rmake es una aplicación de clipper 5** ; Ademas resulta tan difícil crearla. \n&gt;\n\nEsas clases no son estandard de FWH, sino desarrolladas por usuarios. Es posible usar el rmake de Clipper, aunque vayas a construir para 32 bits.\n\n&gt;\n3. Tengo muchas aplicaciones que utilizan dll. Si tengo que pasar esa dll una a una a 32bits praticamente estoy haciendo todo de nuevo. \n&gt;\n\nTienes que abrir la DLL con el Resources Workshop y gardar su contenido como fichero RC. Luego usa FWH\\DLL\\rc2dll32.bat para convertir tu fichero RC en una DLL de 32 bits.\n \n&gt; 4. Puede enviarme un ejemplo sencillo de archivos .mak\n\nRevisa el directorio FWH\\makes. Ahi tienes uno para Borland y otro para Microsoft, según uses uno u otro.','',0,'AIA=','2diouukr',1,0,'',2,0,0),(18921,4269,3,2,0,'87.218.146.2',1158277910,1,0,1,1,1,1,'','','Silvio,\n\nYou have to implement these methods in your Class:\n\nMETHOD RButtonDown( nRow, nCol, nKeyFlags )\nMETHOD RButtonUp( nRow, nCol, nKeyFlags )\n\nPlease review source\\classes\\window.prg to see how they are implemented.','',0,'AIA=','44httk53',1,0,'',2,0,0),(18922,4271,6,307,0,'200.38.29.147',1158280775,1,0,1,1,1,0,'','crear dialogos vistosos en fwh','hola, hay alguna manera de poder crear dialogos mas bonitos en fwh?.. ponerles colores, tanto a la ventana como a su contenido, como en VB?..\nel work shop solo los pinta de un color escueto..\n\nsaludos..\n\narnulfo','',0,'AIA=','3ecvq7lk',1,0,'',307,0,0),(18923,4272,3,678,0,'196.36.8.34',1158288133,1,0,1,1,1,1,'','FWH MGET control \'GoBottom()\' method does not work','Antonio\nThis appears to be a bug\n16 bit works correctly and the Mget control displays the text at the bottom and scrolls the vertical scroll bar to the bottom (same as TWBrowse), but 32 bit does not, it seems to ignore the message\n\nPlease can you check and advise\n\nExtract of code below:\n//-----------------------------------------------------------------------------------METHOD AddToLog ( pcItem ) CLASS qFileSnd\n /*\n	Purpose\n	 Add a line to the log mget\n */\n\n	::cLog                     += Time() + \": \" + pcItem + CRLF\n	::oMGet:SetText( ::cLog )\n	::oMget:GoBottom()\n\nRETURN .t.\n\n\n\n\nRegds\nPeter','',0,'AIA=','e4t7vzbh',1,0,'',678,0,0),(18924,4263,3,54,0,'189.132.112.138',1158292143,1,0,1,1,1,1,'','Re: ErrSysw....','[quote=&quot;EnricoMaria&quot;:2mw2y9h7]Try\n\n[code:2mw2y9h7]while  __ClassName&#40; n &#41; != &quot;NUMERIC&quot;\n   cErrorLog += &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41; + CRLF\nend[/code:2mw2y9h7]\n\nEMG[/quote:2mw2y9h7]\n\n[code:2mw2y9h7]   WHILE n &lt;= __ClsCntClasses&#40;&#41;\n      cErrorLog +=  &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41;+ CRLF\n   END\n[/code:2mw2y9h7]\n\nTrata de esta manera, solo hay que actualizar el xHarbour con lo ultimo del CVS.','',0,'gIA=','2mw2y9h7',1,0,'',54,0,0),(18925,4273,6,106,0,'85.34.123.173',1158304874,1,0,0,1,1,1,'','leer estado de puerto de comunicaciones...','Hay algun modo de saber si en el buffer del puerto de comunicaciones hay algun carácter?\n\n\nGracias','',0,'gIA=','24723wtt',1,0,'',106,0,0),(18926,4267,6,2,0,'87.218.146.2',1158304964,1,0,1,1,1,1,'','','Hola Santi,\n\nAmpliada la plantilla en dos dígitos, gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','2oo1h5om',1,0,'',2,0,0),(18927,4273,6,2,0,'87.218.146.2',1158305188,1,0,1,1,1,1,'','','Pedro,\n\nRevisa samples\\TestCom3.prg.\n\nSe usa el codeblock bCommNotify de la ventana ó de la caja de diálogo.\n\nEn el ejemplo hay que modificar SetCommState( nComm, cDcb ) para que use nComm como primer parámetro.','',0,'gIA=','t49slph5',1,0,'',2,0,0),(18928,4271,6,2,0,'87.218.146.2',1158305495,1,0,1,1,1,1,'','','Arnulfo,\n\nSí. FWH te permite usar bitmaps de fondo para las cajas de diálogo y quedan muy llamativas.\n\nRevisa samples\\TestFldb.prg\n[url=http&#58;//imageshack&#46;us:3use8odf][img:3use8odf]http&#58;//img168&#46;imageshack&#46;us/img168/8406/foldersoa6&#46;jpg[/img:3use8odf][/url:3use8odf]','',0,'GA==','3use8odf',1,0,'',2,0,0),(18929,4255,6,2,0,'87.218.146.2',1158305605,1,0,1,1,1,1,'','','Fabian,\n\nSí, porque la Clase TImage los usa como bitmaps.','',0,'GA==','2p0zpx11',1,0,'',2,0,0),(18930,4272,3,2,0,'87.218.146.2',1158306381,1,0,1,1,1,1,'','','Peter,\n\nThis test works ok, could you please check it there and confirm us if it works ok for you ? thanks\n[code:3m9a4abm]\n#include &quot;Fivewin&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg \n    LOCAL oGet, cVar &#58;= &quot;Hello World!&quot; + CRLF + &quot;This is a test&quot;\n\n    DEFINE DIALOG oDlg \n\n    @ 1, 1 GET oGet VAR cVar MEMO SIZE 80, 30\n\n    @ 3, 1&#46;5 BUTTON &quot;&amp;Close&quot;; \n           ACTION oDlg&#58;End&#40;&#41; \n\n    @ 3, 8&#46;5 BUTTON &quot;&amp;Bottom&quot;; \n           ACTION &#40; oGet&#58;GoBottom&#40;&#41;, oGet&#58;SetFocus&#40;&#41; &#41;\n\n    ACTIVATE DIALOG oDlg ; \n             CENTER \n\nRETURN NIL\n[/code:3m9a4abm]','',0,'AIA=','3m9a4abm',1,0,'',2,0,0),(18931,4264,3,2,0,'87.218.146.2',1158306896,1,0,1,1,1,1,'','','Randal,\n\nPlease add these changes to Class TGet:\n[code:4pvmww6v]\n#define WM_CLEAR           771\n&#46;&#46;&#46;\n      case nMsg == WM_PASTE\n           &#46;&#46;&#46;\n\n      case nMsg == WM_CLEAR\n           CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_CLEAR, 0, 0 &#41;\n           &#58;&#58;oGet&#58;buffer = Space&#40; Len&#40; &#58;&#58;oGet&#58;buffer &#41; &#41;\n           &#58;&#58;SetPos&#40; 1 &#41;\n           &#58;&#58;oGet&#58;Assign&#40;&#41;\n           return 0\n[/code:4pvmww6v]','',0,'AIA=','4pvmww6v',1,0,'',2,0,0),(18932,4268,2,2,0,'87.218.146.2',1158307460,1,0,1,1,1,1,'','','En el VALID del GET prueba a hacer oFolder:SetOption( 1 ) en caso de que no se cumpla la condición:\n\n... GET ... VALID If( ! &lt;Condicion&gt;, ( oFolder:SetOption( 1 ), .f. ), .t. )','',0,'AIA=','1qhafg9o',1,0,'',2,0,0),(18933,4273,6,106,0,'85.34.123.173',1158309333,1,0,0,1,1,1,'','','Si, de repente me expresé mal. Me refería a saber si hay algún carácter en el puerto sin tener que leer el puerto...\n\nComo por ejemplo antes usabamos ISPRINTER() para saber si la impresora estaba online...\n\n\nGracias.','',0,'AIA=','2grvzg8q',1,0,'',106,0,0),(18934,4244,3,266,0,'60.50.51.129',1158310217,1,0,1,1,1,1,'','','can mail me a copy plz ? \n\nmailto : <!-- e --><a href=\"mailto:easywin3@yahoo.com\">easywin3@yahoo.com</a><!-- e -->','',0,'AIA=','glavg2cw',1,0,'',266,0,0),(18935,4269,3,49,0,'213.82.134.66',1158310691,1,0,1,1,1,1,'','','I create this method and it run ok  only i can :\n\nMove the object on left\nMove the object on right\nMove all the object \n\nI wanted move on top and down\nI wanted create simply this :\n[img:2a99dhgs]http&#58;//www&#46;nonsolosport&#46;net/dafare&#46;gif[/img:2a99dhgs]\n\ncan you help me?','',0,'CA==','2a99dhgs',1,0,'',49,0,0),(18936,4249,3,49,0,'213.82.134.66',1158311088,1,0,1,1,1,1,'','','Sorry we must implement another method because i can move the objec ton left and the right and move to another record as  it was tgant...\nNow I wantedd move on the top and on the down to use as this:http://www.arcadina.com/modules/wfarcadina/index.php?id=27','',0,'CA==','3c51ogng',1,0,'',49,0,0),(18937,4274,7,449,0,'212.64.224.249',1158311481,1,0,1,1,1,1,'','ZNotes','Hola, \n\nHe creado mi gestor de notas, hecho integramente con FWPPC. Quien lo desee lo puede encontrar en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.zprog.net/download/setupnt_esp.exe\">http://www.zprog.net/download/setupnt_esp.exe</a><!-- m -->   (version español)\n<!-- m --><a class=\"postlink\" href=\"http://www.zprog.net/download/setupnt_eng.exe\">http://www.zprog.net/download/setupnt_eng.exe</a><!-- m -->   (version ingles)\n\nAcepto críticas y sugerencias  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','w8w13ksh',1,0,'',449,0,0),(18938,4275,6,791,0,'190.37.142.29',1158316443,1,0,1,1,1,0,'','Donde conseguir Imagenes Tipo XP','Hola amigos,\n\nDonde puedo conseguier imagenes de calidad para los menues y botones tipo WinXP con fondos y sombras.\n\nY cual es el mejor editor de recurso que habrar para 32 bits. y donde lo consigo.\n\nSaludos, Gracias\nArturo','',0,'CA==','2xoo9d0y',1,0,'',791,0,0),(18939,4242,2,375,0,'84.122.105.169',1158317273,1,0,1,1,1,1,'','','Podrías modificar la clase TGET para que por defecto se ejecute el VALID, pero que  mediante un nuevo DATA, puesto a \'false\', éste no se ejecute. \n\nMe explico, podrías añadir:\n\nDATA lValidar  AS LOGIC INIT .T.\n\nDespués en el METHOD lValid()\n\n[b:24gmbpmv]cambiar:[/b:24gmbpmv]\n\n   if ::oGet:BadDate\n      Tone( 100, 3 )\n      return .f.\n   else\n...\n\n[b:24gmbpmv] por:[/b:24gmbpmv]\n\n   if ::oGet:BadDate \n      Tone( 100, 3 )\n      return .f.\n   elseif !::lValidar\nreturn .T.\n   else\n...\n\nDe esta manera, el  Valid sólo se ejecuta cuando ::lValidar está en .T. (Defecto)\n\nFinalmente, podrías poner en el ON CHANGE de la 1ª pesataña oGet:lValidar := .F., y en el de la 2ª oGet:lValidar := .T. o algo así, de manera que cuando pinchas en la segunda pestaña el Get en cuestión no se valida y cuando vuelves a la primera se vuelve a activar la validación del Get.\n\nDebería funcionar, a no ser que el método de validación del GET se ejecute antes que el ON CHANGE del Folder, en cuyo caso habrá que poner lValidar := .F. en un lugar más apropiado, o sujeto a condiciones más específicas.\n\nPor probar no pierdfes nada.\n\nUn saludo','',0,'QA==','24gmbpmv',1,0,'',375,0,0),(18940,4227,2,375,0,'84.122.105.169',1158317553,1,0,1,1,1,1,'','','Otra solución muy empleada es:\n\nnCtrl := ASCAN( oDlg:aControls , { | oCtrl | oCtrl:lFocused } )\n\nAntes de que el control pierda el foco, claro.','',0,'QA==','1ksgtil2',1,0,'',375,0,0),(18941,4273,6,2,0,'87.218.146.2',1158317894,1,0,1,1,1,1,'','','Pedro,\n\nbCommNotify es evaluado como respuesta a la notificación de Windows de que han llegado bytes al puerto. No hay por qué leerlos.','',0,'QA==','qm1mw3uy',1,0,'',2,0,0),(18942,4275,6,2,0,'87.218.146.2',1158318577,1,0,1,1,1,1,'','','Arturo,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.es/search?hl=es&amp;q=XP+icons&amp;meta=\">http://www.google.es/search?hl=es&amp;q=XP+icons&amp;meta=</a><!-- m -->\n\nPuedes usar Borland Resources workshop -nosotros seguimos usándolo- ó el de de PellesC ( <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m --> )','',0,'QA==','3rwdgicb',1,0,'',2,0,0),(18943,4273,6,106,0,'85.34.123.173',1158322135,1,0,0,1,1,1,'','','Ahhh.. Ok.\n\nDe repente soluciono de este modo.\n\n\nGracias','',0,'QA==','29g7wxsf',1,0,'',106,0,0),(18944,4276,3,705,0,'61.0.137.190',1158322446,1,0,1,1,1,0,'','Gets Color','Hi!,\n\nIn Get function while putting pre-condition ( i.e. WHEN ),  I am not able to set new color in getbox. I am trying to do the same as follows:\n\nFunction AddCust( )   \n\n   SET _3DLOOK ON\n   cStat    :=  \"ADD\"\n   oDbf:Blank()\n\n   DEFINE DIALOG oDlg RESOURCE \"Customer\" OF oWnd TITLE \"ADD CUSTOMER\" Color \"W/W\"\n\n   REDEFINE SAY oSay ID  110 OF oDlg Color \"W/W+\" Font oFont1 \n   REDEFINE SAY oSay ID  120 OF oDlg Color \"W/W+\" Font oFont1 \n   REDEFINE SAY oSay ID  130 OF oDlg Color \"W/W+\" Font oFont1 \n      \n   REDEFINE GET oGet Var oDbf:CustNo ID 140 OF oDlg                ;\n       Valid nodupl(oDbf:CustNo, Customer-&gt;CustNo, \"ADD\", , 1 ,      ;\n                               \"Invalid Customer Code:\" + CRLF + CRLF +     ;\n                               \"A Customer with the current Customer No \" + ;\n                               \"found.\")                                                        ;\n       Picture \"@!\" Color \"N/W\" \n\n   REDEFINE GET oGet Var oDbf:CustName ID 150 OF oDlg            ;\n       Valid ReqData( oDbf:CustName )                                             ;\n       Picture \"@!\" Color \"N/W\"\n\n   REDEFINE GET oGet Var oDbf:CustAdd1 ID 160 OF oDlg             ;\n       When !Empty( oDbf:CustName )                                              ;\n       Valid ReqData( oDbf:CustAdd1 )                                              ;\n       Picture \"@!\" Color \"N/W\"\n\n   REDEFINE BUTTON oBtnoK ID 170 OF oDlg ;\n       ACTION SaveData()\n   \n   REDEFINE BUTTON oBtnCncl ID 180 OF oDlg ;\n       ACTION oDLg:End()\n\n   ACTIVATE DIALOG oDlg NOMODAL ;\n      Valid CloseAdd( oRecStat )\n\nReturn Nil\n\n[b:vetys11r]NOTE : I am faceing problem to set color in ID 160. Until &amp; unless I entered some data in ID 150, The getbox color of ID 160 remain white.[/b:vetys11r]\nHow can I set the color as I want?\n\nWith regard,\n\nArindam','',0,'QA==','vetys11r',1,0,'',705,0,0),(18945,4276,3,91,0,'213.96.45.9',1158325293,1,0,1,1,1,0,'','Re: Gets Color','Try\n\nREDEFINE GET oGet Var oDbf:CustAdd1 ID 160 OF oDlg ; \nWhen (if(!Empty( oDbf:CustName ), oGet:lReadOnly:= .F.,oGet:lReadOnly:= .T.), .T.) ; \nValid ReqData( oDbf:CustAdd1 ) ; \nPicture \"@!\" Color \"N/W\" \n\nSaludos\nCarlos G.','',0,'QA==','3li5z26g',1,0,'',91,0,0),(18946,4142,3,705,0,'61.0.136.15',1158326818,1,0,1,1,1,0,'','','Dear Mr. Antonio,\n\nAfter linking lz32.lib, the result is as follows :\n\ninstall.c\nd:\\borland\\bcc55\\lib\\psdk\\lz32.lib : warning LNK4033: converting object format f\nrom OMF to COFF\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in LIBC.lib(mathe\nrr.obj); second definition ignored\nd:\\borland\\bcc55\\lib\\psdk\\lz32.lib : warning LNK4033: converting object format f\nrom OMF to COFF\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in LIBC.lib(mathe\nrr.obj); second definition ignored\n   Creating library install.lib and object install.exp\nFiveHCM.lib(LZEXPAND.obj) : error LNK2001: unresolved external symbol _LZClose@4\n\nFiveHCM.lib(LZEXPAND.obj) : error LNK2001: unresolved external symbol _LZCopy@8\nFiveHCM.lib(LZEXPAND.obj) : error LNK2001: unresolved external symbol _LZOpenFil\neA@12\ninstall.exe : fatal error LNK1120: 3 unresolved externals\n* There are errors\n\nWith regard\nArindam','',0,'QA==','vqx4lijy',1,0,'',705,0,0),(18947,4277,3,217,0,'200.159.120.34',1158329995,1,0,1,1,1,0,'','Change Treeview bitmap at runtime','Hi!\n\nI\'m trying to implement a control access menu based in SysTreeView32.\nI want to check/uncheck menu items that the user can or not access.\n\n[code:3voqq14b]\n&#123;-&#125;--Menu 1 \n |     |---&#91; &#93; Menu 1&#46;1 \n |     |---&#91;x&#93; Menu 1&#46;2 \n |     +---&#91; &#93; Menu 1&#46;3 \n |\n&#123;-&#125;--Menu 2 \n       |---&#91;x&#93; Menu 2&#46;1 \n       +---&#91;x&#93; Menu 2&#46;2 \n[/code:3voqq14b]\n\nUsing TreeView I did any like this and I will use a bitmap to checked and other to unchecked state.\n\n1. How can I change bitmap when we click over?\n2. How can I know if a item is checked or not to save the results in a database?\n\nBest regards,\nMaurilio[/img]','',0,'AIA=','3voqq14b',1,0,'',217,0,0),(18948,4229,6,228,0,'201.245.193.4',1158330315,1,0,1,1,1,1,'','cambia lo siquiente','Erick:\n\nPara poder cambiar el verce la libreria GTGUI.lib por GTWIN.lib. busca el archivo verce4.bat en la carpeta:\n\nc:\\archivosdeprograma\\verce\\data\\verca4.bat. \n\nahi puedes cambiar el nombre del archivo para que no te genere el error que estas comentando.\n\nEspero te sirva.','',0,'AIA=','k81wtf4z',1,0,'',228,0,0),(18949,4278,6,228,0,'201.245.193.4',1158331212,1,0,1,1,1,1,'','Como capturar error fwh.','Amigos del foro tenga todos buen dia quisiera saber si me pueden ayudar con lo siguiente.\n\nComo dice en el encabezado como puedo capturar el error.log que genera fwh al mismo momento en que este se genere o cambiarle de nombre para que el usuario me lo puede enviar por mail.\n\nDe paso si alguien tiene un ejemplo de como enviar un archivo adjunto por email se lo agraderia.\n\nEspero haberme hecho entender.\n\nDe antemano gracias','',0,'AIA=','ka4kuve1',1,0,'',228,0,0),(18950,3213,3,106,0,'85.34.123.173',1158332227,1,0,0,1,1,1,'','','I try to fix comm.c with the EMG code, but \ni have compiling errors:\n\n\n\nProgetto: WP32, Ambiente: BorlandWin:\n[1]:Bcc32.Exe -M -c -O2  -tW -v- -X -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -Ic:\\ut\\fwh27\\include -IC:\\BCC55\\Include;C:\\xHxFw27\\Include  -nObj comm.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ncomm.c:\nError E2451 comm.c 58: Undefined symbol \'hCom\' in function BUILDCOMMD\nError E2451 comm.c 85: Undefined symbol \'hCom\' in function SETCOMMSTA\n*** 2 errors in Compile ***\n\nI have FWH 2.7 December/2005\n\n Directory di C:\\ut\\fwh27\\source\\winapi\n16/05/2003  10.05            11.841 comm.c','',0,'AIA=','25l3k8yo',1,0,'',106,0,0),(18951,4271,6,215,0,'189.136.216.99',1158332524,1,0,1,1,1,0,'','otro','Aquí tienes otro look\n\n<!-- m --><a class=\"postlink\" href=\"http://img180.imageshack.us/my.php?image=capturarz3.jpg\">http://img180.imageshack.us/my.php?image=capturarz3.jpg</a><!-- m -->','',0,'AIA=','2ksz6ejs',1,0,'',215,0,0),(18952,4278,6,121,0,'189.138.43.49',1158333736,1,0,1,1,1,1,'','','Debes modificar el programa errsysw.prg\ny compilarlo con tu sistema\n\nahi puedes hacer que para cada error genere un archivo distinto\nehhmmss.log\n\nSaludos','',0,'AIA=','3hs2qkyl',1,0,'',121,0,0),(18953,4277,3,303,0,'72.199.41.171',1158333752,1,0,1,1,1,0,'','','Although not as fancy, a browse would be much easier to program.\n\nJames','',0,'AIA=','39b9ki8l',1,0,'',303,0,0),(18954,4277,3,6,0,'87.18.232.245',1158334800,1,0,1,1,1,1,'','Re: Change Treeview bitmap at runtime','[quote=&quot;Maurilio Viana&quot;:1xvxc5lz]1. How can I change bitmap when we click over?[/quote:1xvxc5lz]\n\nTry to change the image in the oImageList and then use SetImageList() method.\n\n[quote=&quot;Maurilio Viana&quot;:1xvxc5lz]2. How can I know if a item is checked or not to save the results in a database?[/quote:1xvxc5lz]\n\nStore the info in an array or a database and toggle it when you click on a tree item.\n\nEMG','',0,'gA==','1xvxc5lz',1,0,'',6,0,0),(18955,4271,6,72,0,'189.146.23.181',1158335518,1,0,1,1,1,0,'','','Una mas:\n\n[img:1768pg9i]http&#58;//img116&#46;imageshack&#46;us/img116/1613/rcgw2&#46;jpg[/img:1768pg9i]\n\nSaludos.','',0,'CA==','1768pg9i',1,0,'',72,0,0),(18956,3213,3,6,0,'87.18.232.245',1158335543,1,0,1,1,1,1,'','','Put this just before OPENCOMM():\n\n[code:3kdnqrxn]static HANDLE hCom = INVALID_HANDLE_VALUE;[/code:3kdnqrxn]\n\nEMG','',0,'AIA=','3kdnqrxn',1,0,'',6,0,0),(18957,3213,3,106,0,'85.34.123.173',1158337132,1,0,0,1,1,1,'','','Thanks, now works.','',0,'AIA=','37f73evp',1,0,'',106,0,0),(18958,4277,3,89,0,'213.21.136.60',1158337461,1,0,1,1,1,0,'','','Maurilio\n\nFrom the  oImageList \n\n\n             IF oItem:nImage = 1\n                oItem:Set( ,2)\n                oItem:nImage := 2\n             ELSE\n                oItem:Set( ,1)\n                oItem:nImage := 1\n             ENDIF\n\nRegards Maurizio','',0,'AIA=','3noyhb2s',1,0,'',89,0,0),(18959,4142,3,2,0,'87.218.146.39',1158339232,1,0,1,1,1,1,'','','Arindam,\n\nAre you using Microsoft C ?','',0,'AIA=','5k2og3iu',1,0,'',2,0,0),(18960,4278,6,138,0,'189.141.70.60',1158341727,1,0,1,1,1,1,'','','Bingen puso hace ya algun tiempo uno que ya hace todo eso, incluso le toma una \"foto\" a la pantalla con el error, y te lo envia por mail, todo de manera automatica.','',0,'AIA=','22mph8cz',1,0,'',138,0,0),(18961,4275,6,138,0,'189.141.70.60',1158342492,1,0,1,1,1,1,'','','<!-- w --><a class=\"postlink\" href=\"http://www.iconaholic.com\">www.iconaholic.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.visualpharm.com\">www.visualpharm.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.iconexperience.com\">www.iconexperience.com</a><!-- w -->','',0,'AIA=','14yaymlz',1,0,'',138,0,0),(18962,4279,6,63,0,'80.37.102.128',1158342857,1,0,1,1,1,0,'','xBrowse: Se borran los headers','Utilizo un xBrowse con base de datos (FWH 2.6).  Funciona muy bien, excepto en que al desplazar la barra de scroll verticalmente y, a veces, al moverse de un registro a otro desaparecen los headers.  Generalmente vuelven a pintarse si se fuerza un \"Ir a inicio\" o \"ir a final\" pero resulta incómodo.\n\n¿Alguien sabe la solución a esta anomalía?\n\nGracias\nRafael','',0,'AIA=','2ldv262h',1,0,'',63,0,0),(18963,4280,7,779,0,'200.67.153.171',1158347218,1,0,1,1,1,0,'','Group me funciona en ventanas pero no en dialogos','¿Puede funcionar en dialogos?\nEstoy generando los controles sin recursos, por puro código','',0,'AIA=','31lnuhle',1,0,'',779,0,0),(18964,4281,7,779,0,'200.67.153.171',1158347280,1,0,1,1,1,0,'','Que generador de instalacion es bueno usar?','ya terminada mi aplicación como genero un instalador?','',0,'AIA=','1dxcgyce',1,0,'',779,0,0),(18965,4277,3,104,0,'201.58.18.187',1158348438,1,0,1,1,1,0,'','','Olá Maurilio beleza  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nO que você precisa seia algo como a imagem abaixo ?\n\n[img:1ac4igp4]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/treee&#46;PNG[/img:1ac4igp4]\n\nAbraços,\n\nRossine.','',0,'CA==','1ac4igp4',1,0,'',104,0,0),(18966,4282,4,3,0,'82.249.25.48',1158349469,1,0,1,1,1,1,'','bluetooth print trouble brother mw 140 bt','Hello \n\nI have purchased a bluetooth standalone printer Brother MW-140 BT\n\nThe communication is established between my pocket pc , hp ipaq 6515 and the printer and i can print any text documment or word document from the ppc. \nThe com ports are : Input 4, and Output 5\nall params are ok\n\nI can not print via fwppc (bluetooth program changing the correct ports), nothing happens. The handle is returned ok at opening com device but nothing prints... I can not figure out what an be wrong, any help will be welcome.\n\nTia\n\nRichard\n\nSample of the code :\n\n#include \"FWCE.ch\"\n\n#define GENERIC_READ    0x80000000\n#define GENERIC_WRITE   0x40000000\n#define OPEN_EXISTING   3\n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n#define FILE_FLAG_OVERLAPPED  0x40000000\n\nfunction Main()\n\n /*\nhCom = CreateFile( pcCommPort,\n                    GENERIC_READ | GENERIC_WRITE,\n                    0,    // must be opened with exclusive-access\n                    NULL, // no security attributes\n                    OPEN_EXISTING, // must use OPEN_EXISTING\n                    0,    // not overlapped I/O\n                    NULL  // hTemplate must be NULL for comm devices\n                    );\n*/\n    local oWnd\n   local hOut := CreateFile( \"COM5:\",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n//   local hIn := CreateFile( \"COM4:\", GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n\n   DEFINE WINDOW oWnd TITLE \"BlueTooth\"\n\n   @ 2, 2 BUTTON \"Send\" ;\n      ACTION SendText( hOut, \"Hello world!\" ) SIZE 80, 20\n\n   ACTIVATE WINDOW oWnd\n\n   CloseHandle( hOut )\n//   CloseHandle( hIn )\n\nreturn nil\n\nfunction SendText( hOut, cText )\n\n   local n\n\n   for n = 1 to Len( cText )\n      WriteByte( hOut, Asc( SubStr( cText, n, 1 ) ) )\n   next\n\nreturn nil','',0,'CA==','20hbpx8c',1,0,'',3,0,0),(18967,4277,3,217,0,'200.159.120.34',1158352408,1,0,1,1,1,0,'','','[quote=&quot;Rossine&quot;:1bnhwghg]\nO que você precisa seia algo como a imagem abaixo ?\n[/quote:1bnhwghg]\n\nIsso mesmo, Rossine!\n\n[ ]\'s\nMaurilio','',0,'gA==','1bnhwghg',1,0,'',217,0,0),(18968,4123,6,177,0,'82.130.228.11',1158353152,1,0,1,1,1,0,'','','Buscando, buscando,  en la página de Daniel Andrade ahora alojada en \n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->\n\nhe econtrado una clase para manejar Blat escrita por Jesus D¡ez Gonzalez. Ahora también la tenéis en Hyperupload:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0270efa094/tblat.zip.html\">http://hyperupload.com/download/0270efa ... t.zip.html</a><!-- m --> \n\nSaludos,\n\nFelix','',0,'gA==','g8sh5kow',1,0,'',177,0,0),(18969,4283,3,148,0,'82.201.207.184',1158359908,1,0,1,1,1,0,'','creating array from DBF record','can I form an array from DBF field records directly and put it as an ordinary array like this :\n\n   aDatos := { { \"uno   \", \"dos   \", \"tres  \", \"cuatro\", \"cinco \" },; \n               { \"Seis  \", \"Siete \", \"Ocho  \", \"Nueve \", \"Diez  \" } } \n\nor should I do that module with aadd() function ?','',0,'gA==','3bwim0e4',1,0,'',148,0,0),(18970,4275,6,791,0,'190.37.142.29',1158364604,1,0,1,1,1,0,'','Gracias por la Respuesta','[quote=&quot;Antonio Linares&quot;:1osrl6az]Arturo,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.es/search?hl=es&amp;q=XP+icons&amp;meta=\">http://www.google.es/search?hl=es&amp;q=XP+icons&amp;meta=</a><!-- m -->\n\nPuedes usar Borland Resources workshop -nosotros seguimos usándolo- ó el de de PellesC ( <!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">http://www.smorgasbordet.com/pellesc/</a><!-- m --> )[/quote:1osrl6az]','',0,'gA==','1osrl6az',1,0,'',791,0,0),(18971,4275,6,791,0,'190.37.142.29',1158364724,1,0,1,1,1,0,'','Gracias por la Respuesta','Les agradesco, por su respuesta, \n\nGracias','',0,'gA==','1rfg7rzk',1,0,'',791,0,0),(18972,4284,3,69,0,'70.53.100.20',1158365421,1,0,1,1,1,0,'','WINDOW with VScroll','Hi Everybody,\n\nI have created a window:\n\nDefine Window oHelp Title \"Quick Help\" from 33,32 to 43,97 VSCROLL\n        @ 0,0 Say oSay var cHelp SIZE 510,200 of oHelp  UPDATE COLOR RGB(0,0,0),RGB(220,220,220)\nActivate window oHelp \n\n\nThe text of \"cHelp\" is larger than the window (the reason I want vscroll).\nI can see the scroll bar but nothing happens when I try to slide it to see the lower text.\n\nWhat an I doing wrong here?\n\nThanks,\n\nJeff','',0,'gA==','uc2cs017',1,0,'',69,0,0),(18973,4253,3,707,0,'222.124.20.50',1158365454,1,0,1,1,1,0,'','','Silvio.\n\nCan you help me ?\nWhere can I buy Vtaskbar ?\n\nThank <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nAreang','',0,'gA==','1kfegnto',1,0,'',707,0,0),(18974,4285,3,69,0,'70.53.100.20',1158369799,1,0,1,1,1,0,'','Error since upgrade','Hi Everybody,\n\nEver since I upgraded to FWH 2.7 I get this error but only every now and then and it seems only to pop up when I exit my program.\n\nUnrecoverable error 9009:\nhb_xrealloc can\'t reallocate memory\n\n\nWhat can I do to get rid of this error?\n\n\nThanks,\n\nJeff','',0,'gA==','3chwbdxz',1,0,'',69,0,0),(18975,4253,3,15,0,'220.137.196.232',1158371829,1,0,1,1,1,0,'','','Hello Areang,\n\nYou can EMail to Paco \n\n<!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->\n\nRegards,\n\nRichard','',0,'gA==','19y3t9hk',1,0,'',15,0,0),(18976,4281,7,2,0,'87.218.146.39',1158387064,1,0,1,1,1,1,'','','Ignacio,\n\nRecomendado por Carles Aubia: ezsetup\n\nMuy bueno.','',0,'gA==','3ree0y6b',1,0,'',2,0,0),(18977,4285,3,2,0,'87.218.146.39',1158387557,1,0,1,1,1,1,'','','Jeff,\n\nAre you using Harbour or xHarbour ?\n\nDo you get an error.log file ? If yes, please email it to me, thanks','',0,'gA==','18ys487l',1,0,'',2,0,0),(18978,4284,3,2,0,'87.218.146.39',1158387813,1,0,1,1,1,1,'','','Jeff,\n\nThe automatic scroll effect is not implemented yet. \n\nPlease review samples\\TestWScr.prg to see how to scroll the window contents.\n\nYou may use a GET Multiline that automatically provides a working vertical scrollbar instead of a SAY.','',0,'gA==','337jme4p',1,0,'',2,0,0),(18979,4274,7,57,0,'83.58.203.192',1158390193,1,0,1,1,1,1,'','','Carles\nTe ha quedado bonita la aplicación. \nIndicarte que la ayuda NO funciona. El fichero no está incluido.\n\nTengo curiosidad. ¿Como has realizado el Menu.?. \n\nSaludos.','',0,'gA==','12s0z09o',1,0,'',57,0,0),(18980,4286,17,177,0,'82.130.228.238',1158390281,1,0,1,1,1,0,'','Clase para manejar blat.exe por Jesus D¡ez Gonzalez','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0270efa094/tblat.zip.html\">http://hyperupload.com/download/0270efa ... t.zip.html</a><!-- m -->','',0,'gA==','15605w1o',1,0,'',177,0,0),(18981,4276,3,705,0,'61.2.4.153',1158390547,1,0,1,1,1,0,'','','Mr. Carlos,\n\nThanks for your suggestion. It is ok. But if Pre-condition do not permit, in such cases the getbox color remain same [i.e. White]. In my example if I re-write the ID 150 as follows :\n\nREDEFINE GET oGet Var oDbf:CustName ID 150 OF oDlg ; \nWhen userID = \"Prop\"                ;\nValid ReqData( oDbf:CustName ) ; \nPicture \"@!\" Color \"N/W\"\n\n[b:3v3v6xqg]If the userID other then the proprietor, may be manager or operator, in that case how can I change the getbox color? It is required as because it is very odd looking. If it is not possible then can I repaint the getbox with any other color like, light gray.[/b:3v3v6xqg]\n\nWaiting for your reply.\n\nWith regard\nArindam','',0,'QA==','3v3v6xqg',1,0,'',705,0,0),(18982,4142,3,705,0,'61.2.4.153',1158390863,1,0,1,1,1,0,'','','Mr Antonio,\n\nI am using Microsoft Visual C++.\n\nWith regard\nArindam','',0,'QA==','3hjck9cv',1,0,'',705,0,0),(18983,4281,7,449,0,'194.224.26.187',1158392575,1,0,1,1,1,1,'','','Ignacio,\n\nSi necesitas un ejemplo te lo envio.','',0,'QA==','1ptzzvic',1,0,'',449,0,0),(18984,4142,3,2,0,'87.218.146.39',1158396833,1,0,1,1,1,1,'','','Arindam,\n\nThen you should use Microsoft LZ32.lib and not Borland\'s one.','',0,'QA==','286ukzmx',1,0,'',2,0,0),(18985,4244,3,190,0,'202.65.134.27',1158400645,1,0,1,1,1,0,'','','Mr.Hoe\n\nPlease check your e-mail.\n\nRegards\n\n- Ramesh Babu P','',0,'QA==','1bfwj3sq',1,0,'',190,0,0),(18986,4283,3,6,0,'87.10.1.117',1158400929,1,0,1,1,1,1,'','Re: creating array from DBF record','Yes, you have to use AAdd() function.\n\nEMG','',0,'QA==','2l13tf1j',1,0,'',6,0,0),(18987,4283,3,707,0,'222.124.20.50',1158402781,1,0,1,1,1,0,'','','Try this \n\nfunction LookAnimal()\nlocal aData := {},oDlg\n\nuse animal\nanimal-&gt;(dbGotop())\ndo while !animal-&gt;(eof())\n    aadd( aData , animal-&gt;name )\n    animal-&gt;(dbSkip())\nenddo\n/*\nUSE THIS ARRAY BY LISTBOX CLASS, you will get the names of animal from DBF\n*/\n\nreturn nil\n\n\nAreang','',0,'QA==','v31kaoin',1,0,'',707,0,0),(18988,4287,3,49,0,'62.13.172.78',1158404673,1,0,1,1,1,1,'','help with tfsdi 2006','I download tfsdi 2006 from <!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/archivos/fsdi2006.zip\">http://www.avemundi.com/archivos/fsdi2006.zip</a><!-- m -->\n\nit use Vtaskbar lib \n\nWhen I compiled it  make error conditional \n\nCan you help me pls..?\n\n--------------------','',0,'QA==','2y4dp60g',1,0,'',49,0,0),(18989,4285,3,69,0,'70.53.100.20',1158404724,1,0,1,1,1,0,'','','I am using xHarbour.\n\nSorry, no error.log file is generated.\n\n\nJeff','',0,'QA==','1e6erfx5',1,0,'',69,0,0),(18990,4285,3,2,0,'87.218.146.39',1158408052,1,0,1,1,1,1,'','','Jeff,\n\nDo you get a calls stack list on the screen ?','',0,'QA==','1bl0qssy',1,0,'',2,0,0),(18991,4277,3,104,0,'201.58.89.75',1158409781,1,0,1,1,1,0,'','','Olá Maurilio,\n\nSe eu não estou enganado eu peguei este exemplo aqui mesmo  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n[url:13snl9z1]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/tree&#46;zip[/url:13snl9z1]\n\nEste exemplo tem vários recursos:\n\n- Mudar a cor do fundo\n- Mudar o label das opções ( Basta clicar duas vezes emcima delas)\n- Opção para acionar um calendário\n- Mudar o bitmap ao clicar duas vezes, etc...\n\nEspero que te ajude  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAbraços,\n\nRossine.','',0,'EA==','13snl9z1',1,0,'',104,0,0),(18992,4142,3,705,0,'61.0.137.106',1158409823,1,0,1,1,1,0,'','','Mr. Antonio\n\nThanks...........................\n\nMay be a small tip but has great utility. I am expecting more and more tips, which are not available in manual but play an importent role. \n\nWith regard,\nArindam','',0,'EA==','266fnghk',1,0,'',705,0,0),(18993,4268,2,774,0,'200.72.65.33',1158413449,1,0,1,1,1,0,'','Ayuda folder','Gracias Javier ordene los objetos en el editor wors.... y funciono ahora esta bien\n\nGRACIAS','',0,'EA==','rx6q49cd',1,0,'',774,0,0),(18994,4277,3,49,0,'62.13.172.78',1158425026,1,0,1,1,1,1,'','','where is  the ch files ?\n---------------','',0,'EA==','1midhaee',1,0,'',49,0,0),(18995,4288,4,149,0,'195.4.222.19',1158428318,1,0,1,1,1,0,'','Windows CE 5.0','Hello,\n\nis it possible to program for Windows CE 5.0\n\nI have a datalogic scorpio and the program won´t run.\n\nregards\nthomas','',0,'EA==','2h93wblp',1,0,'',149,0,0),(18996,4289,7,138,0,'148.221.195.11',1158429944,1,0,1,1,1,1,'','Save to... Restore From','Alguien ha probado si estos 2 comandos funcionan ????\n\nAl menos en el emulador no puedes guardar con SAVE TO variables de mas de 12 caracteres de largo, y el RESTORE FROM no recupera los datos correctamente.\n\nRepito, esto es en el emulador, no he probado en PPC','',0,'EA==','2skmfwzt',1,0,'',138,0,0),(18998,4288,4,2,0,'87.218.146.39',1158430154,1,0,1,1,1,1,'','','Thomas,\n\nWhat processor does it use ?','',0,'EA==','v2zyhed2',1,0,'',2,0,0),(18999,4290,6,64,0,'200.165.236.209',1158433835,1,0,1,1,1,1,'','Antonio, sobre Folder.','Antonio, no FWPPC existe a possibilidade de colocarmos as abas na parte inferior, porque esta opção não está disponível no FWH? Existe planos para melhorar a qualidade do Folder no FWH?\n\n* Nuevo: FWPPC, soporte para carpetas con pestañas en la parte inferior y estilo plano. Todo lo que tienes que especificar es la claúsula BOTTOM. \n\nAbraços.','',0,'EA==','35vbekum',1,0,'',64,0,0),(19000,4288,4,149,0,'195.4.222.19',1158434038,1,0,1,1,1,0,'','','Antonio,\n\nIntel XScale PXA270\n[url:2bv24z0h]http&#58;//www&#46;datalogic&#46;com/_vti_g2_p_det&#46;aspx?idp=e7a3ea6d-c1b8-40ed-bfda-9009003187ac&amp;rpstry=17_#Specifications[/url:2bv24z0h]\n\nregards\nThomas[/url]','',0,'EA==','2bv24z0h',1,0,'',149,0,0),(19001,4291,6,180,0,'83.45.249.41',1158434136,1,0,1,1,1,0,'','Font en Combobox y BtnBmp','En un diálogo con un combobox y varios btnbmp definidos desde recursos, quiero utilizar una font distista para el combo y para los btnbmp. El combo toma la font del diálogo y los btnbmp también, estos últimos ignoran la fuente definida para ellos.\n\n¿Estaré haciendo algo mal  o es que esto no es posible?\n\nUn saludo,\nManuel','',0,'EA==','2jdsarkp',1,0,'',180,0,0),(19002,4288,4,2,0,'87.218.146.39',1158435474,1,0,1,1,1,1,'','','Are you testing on the WinCE emulator or on the real Pocket PC ?','',0,'EA==','1uxl78qs',1,0,'',2,0,0),(19003,4282,4,2,0,'87.218.146.39',1158436103,1,0,1,1,1,1,'','','Richard,\n\nTry this change:\n[code:2575j32v]\nfor n = 1 to Len&#40; cText &#41; \n   MsgInfo&#40; WriteByte&#40; hOut, Asc&#40; SubStr&#40; cText, n, 1 &#41; &#41; &#41; &#41; \nnext \n[/code:2575j32v]\nYou should get .T. on each WriteByte() call','',0,'AIA=','2575j32v',1,0,'',2,0,0),(19004,4279,6,492,0,'201.154.126.49',1158436578,1,0,1,1,1,1,'','','Hola Rafael\n\nHace un par de meses, tambien puse un post sobre algo parecido a tu problema, desafortunadamente no he podido encontrar la causa o solucion.\n\nLo que estoy casi seguro es que, sucede cuando agregamos alguna clase que pudiera tener algun tipo de conflicto con alguna otra, ya sea nativa o extra.\n\nPor que usando la misma plataforma, clases, etc, a mi me aparece solo en las apps mayores, mientras que las mas \"peques\", muestran todo sin ningun problema.\n\nEspero que podamos encontrar alguna luz pronto, por que como dices, es molesto estar haciendo un \"refresh manual\" cada vez que se muestra dicho browse.\n\nSaludos','',0,'AIA=','cxn3ctui',1,0,'',492,0,0),(19005,4282,4,3,0,'82.65.110.56',1158436617,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2njl7tgy]Richard,\n\nTry this change:\n[code:2njl7tgy]\nfor n = 1 to Len&#40; cText &#41; \n   MsgInfo&#40; WriteByte&#40; hOut, Asc&#40; SubStr&#40; cText, n, 1 &#41; &#41; &#41; &#41; \nnext \n[/code:2njl7tgy]\nYou should get .T. on each WriteByte() call[/quote:2njl7tgy]\n\nAntonio\n\nI get .t. on each call but nothing prints\n\nRichard','',0,'gIA=','2njl7tgy',1,0,'',3,0,0),(19006,4289,7,2,0,'87.218.146.39',1158436780,1,0,1,1,1,1,'','','René,\n\nFalla igual en FWH con el Harbour más reciente.\n\nVamos a reportarlo a la lista de desarrollo de Harbour.','',0,'gIA=','9byezezs',1,0,'',2,0,0),(19007,4288,4,149,0,'195.4.222.19',1158436855,1,0,1,1,1,0,'','','Antonio,\n\non the real PocketPC.\nCannot find \'prog\' (or one of its components) Make sure the path and filename are correct and that all the required libraries are available.\n\nThe programs works fine on HP Ipaq and Windows Mobile 5.0\n\nregards\nThomas','',0,'gIA=','3c6ts4wy',1,0,'',149,0,0),(19008,4288,4,2,0,'87.218.146.39',1158438140,1,0,1,1,1,1,'','','Thomas,\n\nPlease try samples\\tutor01.prg on the Pocket PC.\n\nPlease be aware that Windows CE does not support several Windows Mobile functions. These are workarounds:\n\nfunction CeSetmenu() ; return nil\nfunction GetMenu() ; return nil\nfunction ReadBitmap() ; return nil\nfunction PalBmpRead() ; return nil','',0,'gIA=','36whfore',1,0,'',2,0,0),(19009,4282,4,2,0,'87.218.146.39',1158438297,1,0,1,1,1,1,'','','Richard,\n\nTry closing the handle after sending the bytes:\n[code:1oncx23w]\n@ 2, 2 BUTTON &quot;Send&quot; ; \nACTION &#40; SendText&#40; hOut, &quot;Hello world!&quot; &#41;, CloseHandle&#40; hOut &#41; &#41; SIZE 80, 20 \n\nACTIVATE WINDOW oWnd \n[/code:1oncx23w]','',0,'AIA=','1oncx23w',1,0,'',2,0,0),(19010,4282,4,3,0,'82.65.110.56',1158438525,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1gfxh3re]Richard,\n\nTry closing the handle after sending the bytes:\n[code:1gfxh3re]\n@ 2, 2 BUTTON &quot;Send&quot; ; \nACTION &#40; SendText&#40; hOut, &quot;Hello world!&quot; &#41;, CloseHandle&#40; hOut &#41; &#41; SIZE 80, 20 \n\nACTIVATE WINDOW oWnd \n[/code:1gfxh3re][/quote:1gfxh3re]\n\nAnotonio\n\nSame behaviour, no change.\n\nDoes not print\n\nRichard','',0,'gIA=','1gfxh3re',1,0,'',3,0,0),(19011,4292,3,148,0,'82.201.235.235',1158439431,1,0,1,1,1,0,'','Invisible Sheets of Excel','I noticed after doing OLE calls in my program that after quitting my program some Excel sheets -which is not related to the sheets created from program-not appeared (The Excel bars appeared but the sheet itself is invisible).\nIs something wrong with the code ?\n\n[code:28ikq68c]\n\nfunction executexcel&#40;oCombo1,oCombo2,oCombo3,oCombo4,oCombo5,oCombo6,oCombo7,oCombo8,oCombo9,oCombo10,v_strd,v_endd&#41;\n*--------------------------------------------------------------------------------------------------------\n\nLOCAL cPath &#58;= &quot;E&#58;\\programs\\clipper\\fwh\\sitex\\test&#46;XLS&quot;\nlocal oExcel,oBook,oSheet \nLOCAL nline&#58;=13\nLOCAL head_var&#58;=4\nLOCAL head_cons&#58;=1\n\nlocal ncol\nlocal oDlgn\nlocal nCounter&#58;=1\nlocal nStart &#58;= nCounter\nlocal cMemo &#58;= \'\'\nlocal a2_fields&#91;12&#93;\nlocal a2_vars&#91;12&#93;\nlocal cFilter&#58;=&quot;&quot;\nlocal cValue&#58;=&quot;&quot;\nlocal i&#58;=0\nlocal cReccount&#58;=0\nlocal bFilter\nlocal to_printsj&#58;=&quot;&quot;,to_printsk&#58;=&quot;&quot;,to_printsl&#58;=&quot;&quot;,to_printsm&#58;=&quot;&quot;,;\nto_printsn&#58;=&quot;&quot;,to_printso&#58;=&quot;&quot;,to_printsp&#58;=&quot;&quot;,to_printsq&#58;=&quot;&quot;,to_printsr&#58;=&quot;&quot;\nlocal psg&#58;=0\nlocal osg&#58;=0\n\n\n   REQUEST ADS\n   rddRegister&#40; &quot;ADS&quot;, 1 &#41;\n   rddsetdefault&#40; &quot;ADS&quot; &#41;\n   AdsSetDeleted&#40;&#46;T&#46;&#41; \n   SET SERVER LOCAL\n   SET FILETYPE TO CDX\n\n\nDEFINE DIALOG oDlgn TITLE &quot;Executing Filtering Creteria&quot; ;\nFrom 1, 2 TO 500, 700 PIXEL \n\noExcel=TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\noExcel&#58;WorkBooks&#58;Add&#40;&#41;\nOSheet = oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41; \n\n\n    oSheet&#58;Cells&#40; 1, 3 &#41;&#58;Value = &quot;Meter Reader Report From &#58;&quot;\n    oSheet&#58;Cells&#40; 1, 6 &#41;&#58;Value = dtoc&#40;v_strd&#41;\n    oSheet&#58;Cells&#40; 1, 7 &#41;&#58;Value = &quot;To &#58;&quot;\n    oSheet&#58;Cells&#40; 1, 8 &#41;&#58;Value = dtoc&#40;v_endd&#41;\n\n\n    oSheet&#58;Cells&#40; 2, head_cons &#41;&#58;Value = &quot;Customer Name        &#58;&quot;\n    oSheet&#58;Cells&#40; 2, head_var &#41;&#58;Value = oCombo1 \n\n    oSheet&#58;Cells&#40; 3, head_cons &#41;&#58;Value = &quot;Account Number       &#58;&quot; \n    oSheet&#58;Cells&#40; 3, head_var &#41;&#58;Value = oCombo2 \n\n\n    oSheet&#58;Cells&#40; 4, head_cons &#41;&#58;Value = &quot;Contract name        &#58;&quot;\n    oSheet&#58;Cells&#40; 4, head_var &#41;&#58;Value = oCombo3\n\n    oSheet&#58;Cells&#40; 5, head_cons &#41;&#58;Value = &quot;Machine Type         &#58;&quot;\n    oSheet&#58;Cells&#40; 5, head_var &#41;&#58;Value = oCombo4\n\n    oSheet&#58;Cells&#40; 6, head_cons &#41;&#58;Value = &quot;Machine Model        &#58;&quot;\n    oSheet&#58;Cells&#40; 6, head_var &#41;&#58;Value = oCombo5\n\n    oSheet&#58;Cells&#40; 7, head_cons &#41;&#58;Value = &quot;Machine Serial       &#58;&quot;\n    oSheet&#58;Cells&#40; 7, head_var &#41;&#58;Value = oCombo6\n\n    oSheet&#58;Cells&#40; 8, head_cons &#41;&#58;Value = &quot;Machine Branch       &#58;&quot;\n    oSheet&#58;Cells&#40; 8, head_var &#41;&#58;Value = oCombo7\n\n    oSheet&#58;Cells&#40; 9, head_cons &#41;&#58;Value = &quot;Machine Responsibile &#58;&quot;\n    oSheet&#58;Cells&#40; 9, head_var &#41;&#58;Value = oCombo8\n\n    oSheet&#58;Cells&#40; 10, head_cons &#41;&#58;Value = &quot;Machine Department   &#58;&quot;\n    oSheet&#58;Cells&#40; 10, head_var &#41;&#58;Value = oCombo9\n\n    oSheet&#58;Cells&#40; 11, head_cons &#41;&#58;Value = &quot;Machine Location    &#58;&quot;\n    oSheet&#58;Cells&#40; 11, head_var &#41;&#58;Value = oCombo10\n\n    oSheet&#58;Cells&#40; 12, 1 &#41;&#58;Value = &quot;Serial&quot;\n    oSheet&#58;Cells&#40; 12, 2 &#41;&#58;Value = &quot;Customer Name&quot;\n    oSheet&#58;Cells&#40; 12, 3 &#41;&#58;Value = &quot;Contract Name&quot;\n    oSheet&#58;Cells&#40; 12, 4 &#41;&#58;Value = &quot;Machine Branch&quot;\n    oSheet&#58;Cells&#40; 12, 5 &#41;&#58;Value = &quot;Machine Type&quot;\n    oSheet&#58;Cells&#40; 12, 6 &#41;&#58;Value = &quot;Machine Model&quot; \n    oSheet&#58;Cells&#40; 12, 7 &#41;&#58;Value = &quot;Machine Serial&quot;\n    oSheet&#58;Cells&#40; 12, 8 &#41;&#58;Value = &quot;Opening&quot;\n    oSheet&#58;Cells&#40; 12, 9 &#41;&#58;Value = &quot;Closing&quot;\n    oSheet&#58;Cells&#40; 12, 10 &#41;&#58;Value = &quot;Prints&quot;\n    oSheet&#58;Cells&#40; 12, 11 &#41;&#58;Value = &quot;Waste&quot;\n    oSheet&#58;Cells&#40; 12, 12 &#41;&#58;Value = &quot;COLOR&quot;\n    oSheet&#58;Cells&#40; 12, 13 &#41;&#58;Value = &quot;BLACK&quot;\n    oSheet&#58;Cells&#40; 12, 14 &#41;&#58;Value = &quot;A3&quot;\n    oSheet&#58;Cells&#40; 12, 15 &#41;&#58;Value = &quot;DUPLEX&quot;\n    oSheet&#58;Cells&#40; 12, 16 &#41;&#58;Value = &quot;OSG&quot;\n    oSheet&#58;Cells&#40; 12, 17 &#41;&#58;Value = &quot;PSG&quot;\n    oSheet&#58;Cells&#40; 12, 18 &#41;&#58;Value = &quot;Charge&quot;\n\n\n\n\na2_fields&#91;1&#93;&#58;=&quot;mete-&gt;Me_CU_name&quot;\na2_fields&#91;2&#93;&#58;=&quot;mete-&gt;Me_CU_ACCt&quot;\na2_fields&#91;3&#93;&#58;=&quot;mete-&gt;Me_CT_CTNA&quot;\na2_fields&#91;4&#93;&#58;=&quot;mete-&gt;Me_mc_type&quot;\na2_fields&#91;5&#93;&#58;=&quot;mete-&gt;Me_mc_modl&quot;\na2_fields&#91;6&#93;&#58;=&quot;mete-&gt;Me_mc_serl&quot;\na2_fields&#91;7&#93;&#58;=&quot;mete-&gt;Me_mc_brn&quot;\na2_fields&#91;8&#93;&#58;=&quot;mete-&gt;Me_mc_mere&quot;\na2_fields&#91;9&#93;&#58;=&quot;mete-&gt;Me_mc_dep&quot;\na2_fields&#91;10&#93;&#58;=&quot;mete-&gt;Me_mc_loc&quot;\na2_fields&#91;11&#93;&#58;=&quot;mete-&gt;Me_date&quot;\na2_fields&#91;12&#93;&#58;=&quot;mete-&gt;Me_date&quot;\n\na2_vars&#91;1&#93;&#58;=oCombo1\na2_vars&#91;2&#93;&#58;=oCombo2\na2_vars&#91;3&#93;&#58;=oCombo3\na2_vars&#91;4&#93;&#58;=oCombo4\na2_vars&#91;5&#93;&#58;=oCombo5\na2_vars&#91;6&#93;&#58;=oCombo6\na2_vars&#91;7&#93;&#58;=oCombo7\na2_vars&#91;8&#93;&#58;=oCombo8\na2_vars&#91;9&#93;&#58;=oCombo9\na2_vars&#91;10&#93;&#58;=oCombo10\na2_vars&#91;11&#93;&#58;=v_strd\na2_vars&#91;12&#93;&#58;=v_endd\n\n\n For i &#58;= 1 to 12\n\n     IF Empty&#40;a2_Vars&#91;i&#93;&#41;     &amp;&amp; Don\'t process empty variables\n         LOOP\n     ENDIF\n\n     DO CASE            &amp;&amp; Create char value\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==11\n                 cValue&#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &gt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;D&quot; &#46;AND&#46; i==12\n                 cValue &#58;= \'DTOS&#40;\' + a2_Fields&#91;i&#93; + \'&#41; &lt;= &quot;\' + DTOS&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;N&quot;\n             cValue &#58;= \'STR&#40;\' + a2_Fields&#91;i&#93; + \'&#41; == &quot;\' + STR&#40;a2_vars&#91;i&#93;&#41; + \'&quot;\'       &amp;&amp; or\n         CASE VALTYPE&#40;a2_vars&#91;i&#93;&#41; == &quot;C&quot;\n             cValue &#58;=&quot;upper&#40;&quot;+ a2_Fields&#91;i&#93;+&quot;&#41;&quot; + \'==&quot;\' + upper&#40;a2_Vars&#91;i&#93;&#41; + \'&quot;\'\n     ENDCASE\n     IF Empty&#40;cFilter&#41;     &amp;&amp; this is the first element\n         cFilter &#58;=  cValue\n     ELSE\n         cFilter += &quot; &#46;AND&#46; &quot; + cValue\n     ENDIF\n NEXT\n\n\nuse mete new\nindex on mete-&gt;me_mc_brn+mete-&gt;me_mc_type+mete-&gt;me_mc_MODL to mete3\n\ncReccount&#58;= reccount&#40;&#41; \nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\n/*\nINDEX ON upper&#40;mete-&gt;me_mc_brn&#41; TO temp FOR &amp;&#40;cFilter&#41; unique\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;*/\n\nbFilter = &quot;&#123;||&#40;&quot;+cFilter+&quot;&#41;&#125;&quot;\ncFilter = &quot;&#40;&quot;+cFilter+&quot;&#41;&quot;\n\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\n\nmete-&gt;&#40;dbgotop&#40;&#41;&#41;\n\n\n\n\n\n\n  \n\n\n\nDO WHILE !&#40;4&#41;-&gt;&#40;EOF&#40;&#41;&#41;\nif rtrim&#40;&#40;4&#41;-&gt;me_mc_type&#41; = &quot;Fax     &quot;\n\n    oSheet&#58;Cells&#40; nLine, 1 &#41;&#58;Value = nLine-12\n    oSheet&#58;Cells&#40; nLine, 2 &#41;&#58;Value = &#40;4&#41;-&gt;me_cu_name\n    oSheet&#58;Cells&#40; nLine, 3 &#41;&#58;Value = &#40;4&#41;-&gt;me_ct_ctna\n    oSheet&#58;Cells&#40; nLine, 4 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_brn\n    oSheet&#58;Cells&#40; nLine, 5 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_type\n    oSheet&#58;Cells&#40; nLine, 6 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_modl \n    oSheet&#58;Cells&#40; nLine, 7 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_serl \n    oSheet&#58;Cells&#40; nLine, 8 &#41;&#58;Value = &#40;4&#41;-&gt;open_meter\n    oSheet&#58;Cells&#40; nLine, 9 &#41;&#58;Value = &#40;4&#41;-&gt;cls_meter \n    oSheet&#58;Cells&#40; nLine, 10 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 11 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 12 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 13 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 14 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 15 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 16 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 17 &#41;&#58;Value = 0\n    oSheet&#58;Cells&#40; nLine, 18 &#41;&#58;Value = 0\n    else\n    oSheet&#58;Cells&#40; nLine, 1 &#41;&#58;Value = nLine-12\n    oSheet&#58;Cells&#40; nLine, 2 &#41;&#58;Value = &#40;4&#41;-&gt;me_cu_name\n    oSheet&#58;Cells&#40; nLine, 3 &#41;&#58;Value = &#40;4&#41;-&gt;me_ct_ctna\n    oSheet&#58;Cells&#40; nLine, 4 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_brn\n    oSheet&#58;Cells&#40; nLine, 5 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_type\n    oSheet&#58;Cells&#40; nLine, 6 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_modl \n    oSheet&#58;Cells&#40; nLine, 7 &#41;&#58;Value = &#40;4&#41;-&gt;me_mc_serl \n    oSheet&#58;Cells&#40; nLine, 8 &#41;&#58;Value = &#40;4&#41;-&gt;open_meter\n    oSheet&#58;Cells&#40; nLine, 9 &#41;&#58;Value = &#40;4&#41;-&gt;cls_meter \n    oSheet&#58;Cells&#40; nLine, 10 &#41;&#58;Value = &#40;4&#41;-&gt;prints\n    oSheet&#58;Cells&#40; nLine, 11 &#41;&#58;Value = &#40;4&#41;-&gt;waste\n    oSheet&#58;Cells&#40; nLine, 12 &#41;&#58;Value = &#40;4&#41;-&gt;COLOR\n    oSheet&#58;Cells&#40; nLine, 13 &#41;&#58;Value = &#40;4&#41;-&gt;BLACK\n    oSheet&#58;Cells&#40; nLine, 14 &#41;&#58;Value = &#40;4&#41;-&gt;A3\n    oSheet&#58;Cells&#40; nLine, 15 &#41;&#58;Value = &#40;4&#41;-&gt;DUPLEX\n    oSheet&#58;Cells&#40; nLine, 16 &#41;&#58;Value = &#40;4&#41;-&gt;copy\n    oSheet&#58;Cells&#40; nLine, 17 &#41;&#58;Value = &#40;4&#41;-&gt;print\n    oSheet&#58;Cells&#40; nLine, 18 &#41;&#58;Value = &#40;4&#41;-&gt;charge\n    endif\n\nMsgwait&#40;&quot;  Filtering Database  &quot;,&quot;Please wait&quot;,msgrun&#40;&quot;Machine No&#46; &#58; &quot;+alltrim&#40;str&#40;nLine-12&#41;&#41;+&quot;      Processing record No  &#58;&quot;+ str&#40;recno&#40;&#41;&#41;+&quot;  /  &quot;+str&#40;cReccount&#41;&#41;&#41;\n&#40;4&#41;-&gt;&#40;DBSKIP&#40;1&#41;&#41;\nnLine&#58;=nLine+1\nENDDO\n\noSheet&#58;Cells&#40;nLine,9&#41;&#58;Select&#40;&#41;\noSheet&#58;Cells&#58;Font&#58;Name&#58;=&quot;Arial&quot;\noSheet&#58;Cells&#58;Font&#58;Size&#58;=10\noSheet&#58;Cells&#58;Font&#58;Bold&#58;=&#46;t&#46;\noSheet&#58;Columns&#40;9&#41;&#58;AutoFit&#40;&#41;\n\nto_printsj&#58;=&quot;j&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsj&#58;=&quot;=SUM&#40;J13&#58;&quot;+to_printsj+&quot;&#41;&quot;\n\n\nto_printsk&#58;=&quot;k&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsk&#58;=&quot;=SUM&#40;k13&#58;&quot;+to_printsk+&quot;&#41;&quot;\n\nto_printsl&#58;=&quot;l&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsl&#58;=&quot;=SUM&#40;l13&#58;&quot;+to_printsl+&quot;&#41;&quot;\n\nto_printsm&#58;=&quot;m&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsm&#58;=&quot;=SUM&#40;m13&#58;&quot;+to_printsm+&quot;&#41;&quot;\n\nto_printsn&#58;=&quot;n&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsn&#58;=&quot;=SUM&#40;n13&#58;&quot;+to_printsn+&quot;&#41;&quot;\n\nto_printso&#58;=&quot;o&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printso&#58;=&quot;=SUM&#40;o13&#58;&quot;+to_printso+&quot;&#41;&quot;\n\nto_printsp&#58;=&quot;p&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsp&#58;=&quot;=SUM&#40;p13&#58;&quot;+to_printsp+&quot;&#41;&quot;\n\nto_printsq&#58;=&quot;q&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsq&#58;=&quot;=SUM&#40;q13&#58;&quot;+to_printsq+&quot;&#41;&quot;\n\n\nto_printsr&#58;=&quot;r&quot;+alltrim&#40;str&#40;nLine-1&#41;&#41;\nto_printsr&#58;=&quot;=SUM&#40;r13&#58;&quot;+to_printsr+&quot;&#41;&quot;\n\n\n\n\n\n*? to_printsj\n\noSheet&#58;Cells&#40; nLine+1, 10 &#41;&#58;Value = &#40;to_printsj&#41;\n\n\noSheet&#58;Cells&#40; nLine+1, 11 &#41;&#58;Value = to_printsk\noSheet&#58;Cells&#40; nLine+1, 12 &#41;&#58;Value = to_printsl\noSheet&#58;Cells&#40; nLine+1, 13 &#41;&#58;Value = to_printsm\noSheet&#58;Cells&#40; nLine+1, 14 &#41;&#58;Value = to_printsn\noSheet&#58;Cells&#40; nLine+1, 15 &#41;&#58;Value = to_printso\noSheet&#58;Cells&#40; nLine+1, 16 &#41;&#58;Value = to_printsp\noSheet&#58;Cells&#40; nLine+1, 17 &#41;&#58;Value = to_printsq\noSheet&#58;Cells&#40; nLine+1, 18 &#41;&#58;Value = to_printsr\n\n\n   ACTIVATE DIALOG oDlgn CENTERED NOWAIT\n   oDlgn&#58;end&#40;&#41;\n\n    oExcel&#58;Visible = &#46;T&#46;\n    oExcel&#58;quit&#40;&#41;\n\n\nRETURN NIL\n[/code:28ikq68c]','',0,'AIA=','28ikq68c',1,0,'',148,0,0),(19012,4276,3,92,0,'62.151.112.40',1158445449,1,0,1,1,1,0,'','Gets Color','Try\n\nREDEFINE GET oGet Var oDbf:CustName ID 150 OF oDlg ;\nWhen (If(userID = \"Prop\", ;\n         (oGet:lReadOnly := .F., oGet:SetColor( yournClrFore, yournClrBack ) ), ;\n         (oGet:lReadOnly := .T., oGet:SetColor( yournClrFore, yournClrBack ) ) ;\n        ), ;\n      .T. ;\n     )                 ;\nValid ReqData( oDbf:CustName ) ; \nPicture \"@!\"\n\nSaludos\nCarlos G.','',0,'AIA=','21uw91iu',1,0,'',92,0,0),(19013,4289,7,2,0,'87.218.146.39',1158445996,1,0,1,1,1,1,'','','Contestación de Przemek en la lista de Harbour:\n\nit\'s binary format Clipper compatible which cannot store longer names then 10 characters. We can introduce new format for .mem files but we will have to drop Clipper compatibility.','',0,'AIA=','20x8bfxv',1,0,'',2,0,0),(19014,4282,4,2,0,'87.218.146.39',1158448723,1,0,1,1,1,1,'','','Richard,\n\nYou may use free <!-- m --><a class=\"postlink\" href=\"http://www.symcod.com/BillSerialMonitor.zip\">http://www.symcod.com/BillSerialMonitor.zip</a><!-- m --> to monitor the communication.','',0,'AIA=','2s7ittlk',1,0,'',2,0,0),(19015,4293,6,501,0,'200.32.103.26',1158454411,1,0,1,1,1,0,'','Problemas para compilar','todo bien hasta que al final aparece este error al enlazar\n\nTurbo Incremental link 5.0 \nError: Unresolved external \"_hb_objGetMethod\" reference from \"lib\\FIVEHC|FFDLGPRC\"\n\nerror 2 Deleting alert.exe\n\nYa cambie el gtwin.lib por gtgui.lib y no se que cambiar.\n\nGracias.','',0,'AIA=','30wz1jto',1,0,'',501,0,0),(19016,4264,3,213,0,'24.242.230.43',1158456926,1,0,1,1,1,0,'','','Thanks!\nRandal','',0,'AIA=','1qy9iw0k',1,0,'',213,0,0),(19017,4294,6,501,0,'200.32.103.215',1158467256,1,0,1,1,1,0,'','Error al linkar','Instale el VERCE para probar segun han sugerido por ahi en otro mensaje del foro y aparentemente el error persiste, dejo copiado todo el log del VERCE.\n[b:31zw9cmt]Debe ser algun error de novato, perdon pero estoy tratanto por primera vez con harbour[/b:31zw9cmt]\n\nCompilado y Enlazado de: [D:\\Assist\\Test\\Test.Exe]\nEjecución No. 6\nEjecutada a las: 01:18:32\n============================================================\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_objGetpMethod\' referenced from D:\\HERRDESA\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting D:\\Assist\\Test\\Test.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!','',0,'QA==','31zw9cmt',1,0,'',501,0,0),(19018,4295,2,501,0,'200.32.103.215',1158471985,1,0,1,1,1,0,'','Que onda este editor de 32? Servirá?','[b:1plnfs6m]RESOURCE BUILDER 2.5[/b:1plnfs6m]\n<!-- m --><a class=\"postlink\" href=\"http://www.sicomponents.com/rbldr.html\">http://www.sicomponents.com/rbldr.html</a><!-- m -->','',0,'QA==','1plnfs6m',1,0,'',501,0,0),(19019,4293,6,2,0,'87.218.146.39',1158473754,1,0,1,1,1,1,'','','Carlos,\n\nQue versión y build de FWH estás usando ?','',0,'QA==','3t6ttv3c',1,0,'',2,0,0),(19020,4294,6,2,0,'87.218.146.39',1158473848,1,0,1,1,1,1,'','','Carlos,\n\nQue versión de Harbour ó xHarbour estás usando ? De que fecha ?','',0,'QA==','3q32y22n',1,0,'',2,0,0),(19021,4282,4,3,0,'82.65.31.209',1158475371,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1u7nznrw]Richard,\n\nYou may use free <!-- m --><a class=\"postlink\" href=\"http://www.symcod.com/BillSerialMonitor.zip\">http://www.symcod.com/BillSerialMonitor.zip</a><!-- m --> to monitor the communication.[/quote:1u7nznrw]\n\nAntonio\n\nThe link is for win32 , not for wince \n\nHow can i monitor the communication between the ppc and the printer ?\n\nThanks\n\nRichard','',0,'gA==','1u7nznrw',1,0,'',3,0,0),(19022,4296,3,707,0,'222.124.20.50',1158477244,1,0,1,1,1,0,'','Rotate Bitmap','Hi All !\n\nHow to rotate Bitmap to display on my dialog\n\n\nfunction Tes()\nlocal oDlg, oBmp\n\nDEFINE DIALOG oDlg from 1,1 to 600,800 pixel title \"Rotate Bitmap\"\n\n@1,1 BITMAP oBmp size 500,700 pixel of oDlg\n\n/*\n\nnAngle := 0\nnAdd   := 0.5\n\nto left -&gt; Rotate by nAngle    := ( nAngle + nAdd ) % 360\nto Right -&gt; Rotate by nAngle := ( nAngle - nAdd ) % 360\n\n*/\n\nACTIVATE oDlg CENTERED\n\nthank\n\nAreang','',0,'gA==','2cwwveo9',1,0,'',707,0,0),(19023,4288,4,149,0,'195.4.222.124',1158478105,1,0,1,1,1,0,'','','Antonio,\n\nTutor01 works, but this workaround doesn´t help me for my programm. I need bitmaps, menus,...\n\nIs it possible to setup windows ce 5.0? On teklogix workabout pro (similar device with CE 4.2) works all.\n\nregards\nthomas','',0,'gA==','3su74def',1,0,'',149,0,0),(19024,4292,3,6,0,'82.57.162.85',1158481793,1,0,1,1,1,1,'','Re: Invisible Sheets of Excel','I can\'t see anything wrong in your code.\n\nEMG','',0,'gA==','39cjxd1z',1,0,'',6,0,0),(19025,4297,6,694,0,'200.181.156.177',1158495426,1,0,1,1,1,1,'','Para Vikthor...TWORD','Vikthor, utilizando a classe TWORD, percebi que ao abrir com a TWORD o WORD com um documento modelo, se eu for em ARQUIVOS - IMPRIMIR... Não imprime...agora se for direto pelo botão(impressora) ai imprime...Você pode me ajudar?\n\nI LOVE FIVEWIN!\nI LOVE TWORD!\n\n\nFIQUEM COM DEUS\nAOKISANTOS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','bzfnmb17',1,0,'',694,0,0),(19026,4298,6,694,0,'200.181.156.177',1158495970,1,0,1,1,1,1,'','TWORD... Ajuda !','Amigos, alguem poderia me dizer para que serve exatamente estas linhas?\n\noWord:Visible := .T.   // o que é essa linha?\n\noWord:Set( \"WindowState\", 1 ) // e essa?\n\noWord:End()  // eu uso XHARBOUR, necessito desta linha? \n\nOleUninitialize()  //necessito com XHARBOUR desta linha?\n\n\nFIQUEM COM DEUS\nAOKISANTOS <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','189k1vk6',1,0,'',694,0,0),(19027,4299,16,2,0,'87.218.146.39',1158497820,1,0,1,1,1,1,'','New FiveWin 2.8 - September 2006','2.8 - September 2006 build\n===================\n\nNew FiveWin 2.8 version for CA-Clipper, Harbour and xHarbour, C3 and Alaska Xbase++. After ten months of development work, we are pleased to offer you this new version with many news, fixes and fully compatible with the most recent Harbour and xHarbour builds.\n \n * New: Class TFtp Method SetCurrentDirectory( cDirName ) --&gt; lResult.\n\n * New: FWPPC, function IsExeRunning( cAppName ) --&gt; lResult. \n   Please review samples\\checkapp.prg\n\n * Enhancement: communication (COM ports management) samples\\*.prg have been modified to use nComm as the first parameter when calling SetCommState( nComm, cDcb ) in 32 bits.\n   \n * New: FWPPC, MsgRun() is already available. Please review samples\\TestMRun.prg\n   \n * Enhancement: FWPPC, Class TWindow Method MouseMoved() already evaluates DATA bMMoved.\n \n * Enhancement: Class TDDEMLClient Method End() was not properly uninitializing DDE.\n \n * New: Class TToolBar Method SetText( &lt;nButton&gt;, &lt;cText&gt; ) changes the text of toolbar button. Please review samples\\ToolBar1.prg\n   \n * New: function TreeFree() called from Class TLinkList Method End().\n \n * Enhancement: ToolBars buttons ACTION codeblock receive a second parameter with the nID (index value) of the button.\n\n * Enhancement: FWPPC, dialogboxes now accept to use a pulldown menu. Please review samples\\TestDlgM.prg\n   \n * New: Class TTimePicker. Please review samples\\DateTime.prg. Thanks to Fernando Alsis!\n   \n * New: FWPPC, Class TWindow Method SaveToBmp( cBmpFileName ) --&gt; lSuccess. Now you can save any window or control image as a bitmap file on disk.\n   \n * Enhancement: ErrorSys() has been modified to support xHarbour \"ARRAYRDD\" RDD.\n\n * Fix: FWPPC was not properly releasing controls fonts and brushes. Now it is ok.\n \n * Enhancement: Class TWbrowse and TCBrowse, improved behavior on nFreeze and painted vertical lines. Thanks to Giovany Vecchi!\n   \n * Enhancement: ErrorSys() minor change to use a larger picture for transform on RecNo() and RecCount() display.\n     \n * Enhancement: Class TGet message WM_CLEAR support (right click on a GET and select Delete).\n     \n * Enhancement: FWH errorsys has been modified to use new xHarbour __ClsCntClasses() function. Important: Due to non backwards compatibility in xHarbour, if you use the old FWH errorsys code, the app will hang into an endless loop!\n   \n * Enhancement: FWH now uses internally hb_objHasMessage() instead of hb_objGetpMethod().\n          \n * Enhancement: FWH is fully compatible with the most current Harbour and xHarbour CVS code.','',0,'gA==','3se6el16',1,0,'',2,0,0),(19030,4291,6,180,0,'88.3.194.163',1158502700,1,0,1,1,1,0,'','','Mis disculpas, no son BtnBmp sino ButtonBmp','',0,'gA==','3sulul19',1,0,'',180,0,0),(19031,2486,16,2,0,'87.218.146.39',1158503249,1,0,1,1,1,1,'','','September 17 2006 builds: \n\nHarbour for Borland: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026ece0f29/harbour.EXE.html\">http://hyperupload.com/download/026ece0 ... r.EXE.html</a><!-- m -->\n\nHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028519d269/harbourm.EXE.html\">http://hyperupload.com/download/028519d ... m.EXE.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0241caf054/xharbour.EXE.html\">http://hyperupload.com/download/0241caf ... r.EXE.html</a><!-- m -->\n\nxharbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/020293b422/xharbourm.EXE.html\">http://hyperupload.com/download/020293b ... m.EXE.html</a><!-- m -->','',0,'gA==','kj5uiv1x',1,0,'',2,0,0),(19032,4298,6,9,0,'85.53.65.11',1158503725,1,0,1,1,1,1,'','Re: TWORD... Ajuda !','[quote=&quot;AOKISANTOS&quot;:2ufl3h7m]Amigos, alguem poderia me dizer para que serve exatamente estas linhas?[/quote:2ufl3h7m]\n\noWord:Visible := .T.   // Necesaria para que sea visible el documento\n\noWord:Set( \"WindowState\", 1 ) // No funciona en FWH si en FW\n                                             // 0 = ventana media; 1=ventana maxi\n\noWord:End()      // NO necesaria en XHARBOUR\n\nOleUninitialize()  //NO necesaria en XHARBOUR','',0,'gA==','2ufl3h7m',1,0,'',9,0,0),(19033,4295,2,138,0,'148.221.197.91',1158504931,1,0,1,1,1,1,'','','Yo lo tengo y es una verdadera maravilla, vale lo que cuesta.','',0,'gA==','1m74adcw',1,0,'',138,0,0),(19034,4288,4,2,0,'87.218.146.39',1158504996,1,0,1,1,1,1,'','','Thomas,\n\nHave you located a Windows CE 5.0 ARM emulator ?\n\nThe ones provided by Microsoft are for x86 code, not ARM, so we can not test FWPPC on them.','',0,'gA==','352vyeyn',1,0,'',2,0,0),(19035,4288,4,149,0,'195.4.222.124',1158515079,1,0,1,1,1,0,'','','Antonio,\n\nno emulator, but i can send you the device, if you interested.\n\nregards\nThomas','',0,'gA==','2yzsnf4y',1,0,'',149,0,0),(19036,4288,4,2,0,'87.218.146.39',1158516274,1,0,1,1,1,1,'','','Thomas,\n\n&gt; no emulator, but i can send you the device, if you interested. \n\nYes, that would help very much. Thanks!\n\nSo we can test each FWPPC sample on it.','',0,'gA==','1yipsk37',1,0,'',2,0,0),(19037,4302,2,66,0,'200.127.71.20',1158518144,1,0,1,0,1,0,'','Relacionar 3 browses en un Dialogo tsbrowse o twbrowse','Estimados Colegas\n\nTengo que relacionar 3 browses por el campo codigo en un mismo\ndialogo alguien tiene un ejemplo sencillo\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','1pzqdb70',1,0,'',66,0,0),(19038,4303,6,66,0,'200.127.71.20',1158518262,1,0,1,0,1,0,'','Relacionar 3 browses en un mismo dialogo tsbrowse o twbrowse','Estimados Colegas \n\nTengo que relacionar 3 browses por el campo codigo en un mismo \ndialogo alguien tiene un ejemplo sencillo \n\ndesde ya muchas gracias \nFabian \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e --> \n \nVolver arriba','',0,'gA==','3c93hd8v',1,0,'',66,0,0),(19039,4304,19,123,0,'83.53.53.117',1158525747,1,0,1,1,1,0,'','Máquina virtual de xHarbour (III)','Hello,\n\nThird article about xharbour virtual machine, by Walter Negro at <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=79\">http://www.capelblog.com/?p=79</a><!-- m --> (in spanish).\n\nRegards,\nJosé Luis Capel\n\nHola,\n\nTercera entrega sobre la máquina virtual de xharbour, by Walter Negro en <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=79\">http://www.capelblog.com/?p=79</a><!-- m -->\n\nSaludos,\nJosé Luis Capel','',0,'gA==','9ku3cbpa',1,0,'',123,0,0),(19040,4292,3,148,0,'82.201.207.226',1158527660,1,0,1,1,1,0,'','','Mat be lack of memory in some PCs I work in ? It sometimes happened with peolpe that their PCs exhaused with start-up program. With my PC I do not face that case never ..','',0,'gA==','124jbbzf',1,0,'',148,0,0),(19041,4292,3,6,0,'82.53.175.78',1158527898,1,0,1,1,1,1,'','','It maybe.\n\nEMG','',0,'gA==','vjluiko1',1,0,'',6,0,0),(19042,4299,16,2,0,'87.218.146.127',1158531413,1,0,1,1,1,1,'','','2.8 - Construcción Septiembre 2006 \n=========================\n\nNuevo versión 2.8 de Fivewin para CA-Clipper, Harbour y xHarbour, C3 y Alaska Xbase++. Después de 10 meses de desarrollo, nos alegramos de \nofrecerte esta nueva versión con muchas novedades, correcciones y totalmente compatible con las contrucciones más recientes de Harbour y xHarbour.\n\n* Nuevo: Método SetCurrentDirectory( cDirName ) --&gt; lResult en la clase TFtp.\n\n* Nuevo: En FWPPC, la fución Is_Exe_Running( cAppName ) --&gt; lResult. Por favor, revisa el ejemplo samples\\checkapp.prg. \n\n* Mejora: En los ejemplos del manejo de los puertos COM que están en samples\\comm\\*.prg han sido modificados para usar nComm como primer parámetro cuando usamos la función SetCommState( nComm, cDcb ) en 32 bits. \n\n* Nuevo: En FWPPC, la función MsgRun() está disponible. Por favor, revisa el ejemplo samples\\TestMRun.prg. \n\n* Mejora: En FWPPC, en la clase TWindow el método MouseMoved() siempre evalua la DATA bMMoved. \n\n* Mejora: En la claseTDDEMLClient el método End() no cerraba las conexiones DDE correctamente.  \n\n* Nuevo: En la clase TToolBar, el método SetText( &lt;nButton&gt;, &lt;cText&gt; ) cambia el texto del botón de la barra de herramientas. Por favor, revisa \n  el ejemplo samples\\ToolBar1.prg. \n\n* Nuevo: Función TreeFree() llamada desde la clase TLinkList en el método End().  \n\n* Mejora: El codeblock ACTION de los botones de la barra de herramientas recibe un segundo parámetro con el valor de índice nID del botón. \n\n* Mejora: En FWPPC, las cajas de diálogos ahora pueden usar menús tipo persiana \"pulldown\". Por favor, revisa el ejemplo samples\\TestDlgM.prg. \n\n* Nuevo: Clase TTimePicker. Por favor, revisa el ejemplo samples\\DateTime.prg. Gracias a Fernando Alsis! \n\n* Nuevo: En FWPPC, en la clase TWindow el método SaveToBmp( cBmpFileName ) --&gt; lSuccess. Ahora puedes guardar cualquier ventana o control como en un fichero en disco con formato de mapa de bits \"bitmap\". \n\n* Mejora: La función ErrorSys() ha sido modificada para soportar el RDD \"ARRAYRDD\" de xHarbour. \n\n* Corrección: En FWPPC no se liberaban apropiadamente los controles de tipos de fuentes y paletas \"brushes\". Ahora lo hace correctamente.\n\n* Mejora: En las clases TWBrowse y TCBrowse, mejorado el comportamiento en nFreeze y el pintado de líneas verticales. Gracias a Giovany Vecchi! \n\n* Mejora: Cambios menores en la función ErrorSys() para usar formato largo al mostrar el resultado de RecNo() y RecCount().   \n\n* Mejora: Soporte del mensaje WM_CLEAR en la clase TGet (pulsa el botón derecho en un GET y selecciona Delete).\n\n* Mejora: La función ErrorSys() en FWH ha siso modificada para usar la nueva función __ClsCntClasses() de xHarbour. Importante: Debido a la no compatibilidad hacia atrás en xHarbour, si usas el código antiguo de ErrorSys, la aplicación se colgará en un bucle sin fín.\n\n* Mejora: FWH ahora usa la función interna hb_objHasMessage() en lugar de hb_objGetpMethod(). \n\n* Mejora: FWH es completamente compatible con el último código de los CVS de Harbour y xHarbour.','',0,'gA==','1z0zn4ve',1,0,'',2,0,0),(19043,4294,6,501,0,'200.32.103.164',1158532907,1,0,1,1,1,0,'','','Estaba usando la buld 46 de harbour, busque la 42 pero como no la conseguí instale la build 0.99.61 de xHarbour y anoche sabado muy tarde pude compilar mi primer PRG, que por cierto no hace nada solo muestra una ventana con un \"hola\", he querido agregar cosas y no se ven correctamente en pantalla, las ventanas y dialogos se tildan pero bueno ya empezare a leer desde atras en el foro para ir despejando dudas (no quiero quitarle tiempo a la gente que sabe pues yo estoy recien empezando) \nTengo ahora fwh 2.6 y xHarbour 0.99.61 BCC 5 y verce 4.3, aunque ya arme unos bats para compilar y linkar por separado.\n\nAntonio muchas gracias por contestar y seguire avanzando con un menu y demás.','',0,'gA==','1natzvyc',1,0,'',501,0,0),(19044,4305,7,778,0,'200.101.53.249',1158533314,1,0,1,1,1,0,'','Error al criar Get em  RC','Olá a todos\nUm get numério, feito em resource no WorkShop não alinha a direita,\nestou usando o Build de Setembro/2006\nAlguma idéia?\n\nAbraços\n\nMauro','',0,'gA==','t2x9o23c',1,1159196769,'',778,2,0),(19045,4306,1,699,0,'59.125.100.114',1158539954,1,0,1,1,1,1,'','ListBox in DLL file','Dear all,\n\nIn my DLL file, I put a listbox and selected both Vertical and Horizontal scroll bar. The source code is: \n\nREDEFINE LISTBOX oLbx FIELDS ID 110 OF oDlg\n\nWhen I run the application, there is no horizontal scroll bar in the listbox, there is vertical scroll bar only. If I use this code: \n@ 1, 1 LISTBOX oLbx FIELDS SIZE 280, 140 OF oDlg without using DLL file, then it works fine.\n\nDoes anyone can solve this problem?','',0,'gA==','2vnj3e52',1,0,'',699,0,0),(19046,4307,2,786,0,'84.123.49.11',1158543883,1,0,1,1,1,0,'','Solucionado el problemas del control del volumen.','Al final he podido solucionar el problemas que tenia del control del volumen de esta forma: \n\n*********************************************************\nMETHOD VolAudio( nVol )  CLASS TMci\n*********************************************************\n\n  // Nuevo metodo creado para el control del volumen por Javier LLoris Septiembre del 2006\n  If ::lAudio\n     ::SendStr( \"SETAUDIO \"+ ::cAlias + \" OUTPUT LEFT VOLUME TO \"  + Str( nVol ) )\n     ::SendStr( \"SETAUDIO \"+ ::cAlias + \" OUTPUT RIGHT VOLUME TO \" + Str( nVol ) )\n     SysRefresh()\n  End\n\nRETURN NIL','',0,'gA==','5e2q1ioz',1,0,'',786,0,0),(19047,4253,3,303,0,'72.199.41.171',1158545201,1,0,1,1,1,0,'','','Silvio,\n\nDoes VTaskBar come with the source code?\n\nJames','',0,'gA==','52xilrnj',1,0,'',303,0,0),(19048,4306,1,47,0,'203.144.143.9',1158553794,1,0,1,1,1,0,'','','Dear Andy,\n\nPut following line before DEFINE LISTBOX\nTWBrowse():lHScroll:= .T.\n\nRegards,\nDutch','',0,'gA==','kpp3ghvg',1,0,'',47,0,0),(19049,4306,1,699,0,'59.125.100.114',1158560050,1,0,1,1,1,1,'','','Dear Dutch,\n\nThanks a lot for your help.','',0,'gA==','le91kflq',1,0,'',699,0,0),(19050,4274,7,449,0,'212.64.224.249',1158561704,1,0,1,1,1,1,'','','Hola,\n\n- El fichero de ayuda es un *.lit y se ejecuta en la pocket con el microsoft reader, q por defecto esta instalado. En el emulador no funciona.\n\n- Los menus estan basados en .\\samples\\menubmp.prg','',0,'gA==','gbf6d4ru',1,0,'',449,0,0),(19051,4307,2,2,0,'87.218.146.127',1158563233,1,0,1,1,1,1,'','','Javier,\n\nBien! \n\nGracias,','',0,'gA==','3rrv09hj',1,0,'',2,0,0),(19052,4308,3,51,0,'80.122.88.242',1158563815,1,0,1,1,1,0,'','VISTA - how to avoid double start of programs','In VISTA FW - FWH programs can be started twice.\nHow to detect if an app is allready running?\n\nThanks in advance\nOtto','',0,'gA==','3s3zqu31',1,0,'',51,0,0),(19053,4308,3,2,0,'87.218.146.169',1158566186,1,0,1,1,1,1,'','','Otto,\n[code:3k2pajbf]\n#include &quot;FiveWin&#46;ch&quot; \n\n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2 \n\nfunction Main&#40;&#41; \n\n   local oWnd \n    \n   if Is Exe Running&#40; cFileName&#40; HB_ARGV&#40; 0 &#41; &#41; &#41; \n      ShowApplication&#40;&#41; \n   else    \n      DEFINE WINDOW oWnd TITLE &quot;Test&quot; \n    \n      ACTIVATE WINDOW oWnd \n   endif    \n    \nreturn nil    \n\nfunction ShowApplication&#40;&#41; \n\n   local hWnd &#58;= FindWnd&#40; cFileNoExt&#40; HB_ARGV&#40; 0 &#41; &#41; &#41; \n    \n   if hWnd != nil \n      SetForeGroundWindow&#40; hWnd &#41; \n   endif    \n    \nreturn nil    \n\nfunction FindWnd&#40; cTitle &#41; \n\n   local hWnd &#58;= GetWindow&#40; GetDesktopWindow&#40;&#41;, GW_CHILD &#41; \n\n   while hWnd != 0 \n      if Upper&#40; cTitle &#41; $ Upper&#40; GetWindowText&#40; hWnd &#41; &#41; \n         return hWnd \n      endif \n\n      hWnd = GetWindow&#40; hWnd, GW_HWNDNEXT &#41; \n   end \n\nreturn nil \n[/code:3k2pajbf]','',0,'AIA=','3k2pajbf',1,0,'',2,0,0),(19054,4272,3,678,0,'168.209.98.43',1158566679,1,0,1,1,1,1,'','','Hi Antonio\nPlease try the followiing:\n\nFUNCTION MAIN()\n\n    LOCAL oDlg\n    LOCAL oGet, cVar := \"Hello World!\" + CRLF + \"This is a test\"\n\n		cVar += CRLF + \"Line 2\"\n		cVar += CRLF + \"Line 3\"\n		cVar += CRLF + \"Line 4\"\n		cVar += CRLF + \"Line 5\"\n		cVar += CRLF + \"Line 6\"\n		cVar += CRLF + \"Line 7\"\n		cVar += CRLF + \"Line 8\"\n		cVar += CRLF + \"Line 9\"\n		cVar += CRLF + \"Line 10\"\n\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar MEMO SIZE 80, 30\n\n    @ 3, 1.5 BUTTON \"&amp;Close\";\n           ACTION oDlg:End()\n\n    @ 3, 8.5 BUTTON \"&amp;Bottom\";\n           ACTION ( oGet:GoBottom(), oGet:SetFocus() )\n\n    ACTIVATE DIALOG oDlg ;\n             CENTER\n\nRETURN NIL','',0,'AIA=','16wqp97a',1,0,'',678,0,0),(19055,4272,3,2,0,'87.218.146.169',1158569079,1,0,1,1,1,1,'','','Peter,\n\nYes, I see what you mean. The GET is not scrolling down in 32 bits. In 16 bits it works fine and its the same code.\n\nWe are going to search for a way to do it.','',0,'AIA=','1sojmbgm',1,0,'',2,0,0),(19056,4253,3,49,0,'62.13.172.78',1158569135,1,0,1,1,1,1,'','','yes, james\n\nRegards','',0,'AIA=','3ls6n7ws',1,0,'',49,0,0),(19057,4272,3,2,0,'87.218.146.169',1158569324,1,0,1,1,1,1,'','','Peter,\n\nSolved:\n[code:3d24x03x]\n#define EM_LINESCROLL  0x00B6\n&#46;&#46;&#46;\n@ 3, 8&#46;5 BUTTON &quot;&amp;Bottom&quot;; \nACTION &#40; oGet&#58;GoBottom&#40;&#41;, oGet&#58;SendMsg&#40; EM_LINESCROLL, 0, oGet&#58;GetLineCount&#40;&#41; &#41;, oGet&#58;SetFocus&#40;&#41; &#41; \n[/code:3d24x03x]\nWe are going to modify Class TMGet to do it automatically.','',0,'AIA=','3d24x03x',1,0,'',2,0,0),(19058,4272,3,678,0,'168.209.98.43',1158569718,1,0,1,1,1,1,'','','Thanks\n\nWill you be modifing the FWH mget class GoBottom() method ?\nIf so can you let me have the modified method please\n\nRegds\nPeter','',0,'AIA=','3s109u8n',1,0,'',678,0,0),(19059,4309,3,63,0,'80.37.102.128',1158570354,1,0,1,1,1,0,'','xBrowse headers disappear','I am using xBrowse (FWH 2.6) to show database registers (not arrays)\nIt works ok but when I move the scroll bar vertically, and, sometimes when I move from a register to the next, the headers disappear (that is, get painted blank).  Usually, the get repainted when I manually force a \"Goto begining or \"goto end\" but that gets unconfortable.\n\nAnybody has a solution for this anomaly?\n\nRafael','',0,'AIA=','25a29y8q',1,0,'',63,0,0),(19060,4310,3,63,0,'80.37.102.128',1158570583,1,0,1,1,1,0,'','Right click on xBrowse','Right cliclicking in xBrowse (FWH 2.6) works fine if I Rclick in a nonselected cell.  However, if I try it in an already selected cell (that is: Left click on it, then right click) it gets ignored.  I have to move to a different cell and then Rclick on the original one.  Any workaroud for that?\nThanks\nRafael','',0,'AIA=','2lnb160y',1,0,'',63,0,0),(19061,4272,3,2,0,'87.218.146.169',1158571325,1,0,1,1,1,1,'','','Peter,\n\nMETHOD GoBottom() INLINE ( ::SetPos( Len( AllTrim( ::GetText() ) ) + 1 ),;\n                                 ::SendMsg( EM_LINESCROLL, 0, ::GetLineCount() ) )','',0,'AIA=','wffu3knl',1,0,'',2,0,0),(19062,4277,3,217,0,'200.159.120.34',1158577551,1,0,1,1,1,0,'','','[quote=&quot;Rossine&quot;:1z6c8a67]\nSe eu não estou enganado eu peguei este exemplo aqui mesmo  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n[url:1z6c8a67]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/tree&#46;zip[/url:1z6c8a67]\n[/quote:1z6c8a67]\n\nObrigado, Rossine!\nVou testar. Eu estava apanhando, pois eu estava tentando montar como um browse e estava horrivel, o treeview tem opcao de esconder os sub-itens...\n\n[ ]\'s\nMaurilio','',0,'kA==','1z6c8a67',1,0,'',217,0,0),(19063,4274,7,778,0,'200.152.43.193',1158578998,1,0,1,1,1,0,'','','Olá Carles,\n\nbela aplicação, como você fez os menus no rodapé da tela  e o bmp transparente na tela inicial ?\n\nAbraços,\n\nMauro','',0,'kA==','s7206zi6',1,0,'',778,0,0),(19064,4311,6,449,0,'212.64.224.241',1158581571,1,0,1,1,1,1,'','Conversion a C','Hola,\n\nHaber quien me hecha un cable con esta conversion a C\n\nMe gustaria hacer esto:\n\n[code:13muts53]FUNCTION Test&#40; cData &#41;\n\n  Local nError &#58;= 0\n\n   MiFuncionC&#40; cData, @nError &#41;\n\nRETURN nError[/code:13muts53]\n\nYo creo q seria algo asi, pero me falta definir nError y como paso el paramtro por referencia:\n\n[code:13muts53]#pragma BEGINDUMP \n\n#include &quot;windows&#46;h&quot; \n#include &quot;hbapi&#46;h&quot; \n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\nHB_FUNC  &#40; TEST &#41;\n&#123;\n    LPWSTR cData = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;;\n\n    MiFuncionC&#40; cData, nError ???&#41;      &lt;- Como defino nError &#40; p&#46;e&#46; nError &#58;= 0, y lo paso por referencia &#41;\n\n   retnl&#40; nError &#41;\n\n&#125;\n#pragma ENDDUMP\n[/code:13muts53]\n\nGracias atodos.','',0,'AIA=','13muts53',1,0,'',449,0,0),(19065,4306,1,6,0,'87.19.210.228',1158582380,1,0,1,1,1,1,'','','[quote=&quot;dutch&quot;:1u9qo3e4]Dear Andy,\n\nPut following line before DEFINE LISTBOX\nTWBrowse():lHScroll:= .T.\n\nRegards,\nDutch[/quote:1u9qo3e4]\n\nAs far as I know, there is no lHScroll instance variable in TWBrowse class.\n\nEMG','',0,'gA==','1u9qo3e4',1,0,'',6,0,0),(19066,4306,1,699,0,'122.126.12.133',1158583963,1,0,1,1,1,1,'','','Dear Enrico,\n\nThank you for your information, I try to put TWBrowse():lHScroll:= .T. before DEFINE LISBOX, then, I got an Error description: Error Objects/6  No Exp. Method: TWBROWSE:_LHSCROLL.\n\nDo you have any suggestion?','',0,'gA==','1mhmxc7g',1,1158584245,'',699,1,0),(19067,4306,1,6,0,'87.19.210.228',1158584144,1,0,1,1,1,1,'','','You should try to put it [b:3mr71jv1]after[/b:3mr71jv1] REDEFINE LISTBOX FIELDS command.\n\nIt should not work anyway.\n\nEMG','',0,'QA==','3mr71jv1',1,0,'',6,0,0),(19068,4312,7,106,0,'85.34.123.173',1158584328,1,0,0,1,1,1,'','Error al presionar F1 en un GET','Estoy en un get y presiono F1  y me da este error, como puedo evitarlo?\n\n\nMessage not found\nTGET:HELPTOPIC\nstack calls:\n__ERRRT_SBASE(0)\nHBOBJECT:ERROR(179)\n__EVAL(105)\nHBOBJECT:MSGNOTFOUND(0)\nTGET:HELPTOPIC(169)\nTWINDOW:KEYDOWN(0)\nTWINDOW:KEYDOWN(0)\nTCONTROL:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nWINRUN(0)\nTWINDOW:ACTIVATE(0)\nMAIN(39)\n\Z','',0,'QA==','txry3s3q',1,0,'',106,0,0),(19069,4306,1,699,0,'122.126.12.133',1158584990,1,0,1,1,1,1,'','','Dear Enrico,\n\nNow I try to put it after REDEFINE LISTBOX FIELDS command and It has occurs the same error description. Do you have better way to fix it?','',0,'QA==','2kho9ao5',1,0,'',699,0,0),(19070,4311,6,123,0,'83.53.53.117',1158585486,1,0,1,1,1,0,'','','Carles,\n\nQuizás esto te pueda ayudar, aunque no estoy muy seguro.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=75\">http://www.capelblog.com/?p=75</a><!-- m -->\n\nSaludos,\nJosé Luis Capel','',0,'QA==','ekv1xgx1',1,0,'',123,0,0),(19071,4306,1,303,0,'72.199.41.171',1158586535,1,0,1,1,1,0,'','','Andy,\n\nThis is from my notes:\n\n[quote:1pgitw5f]To turn off the scrollbars do:\n\n   // Turn off the horizontal\n   oLbx:oHScroll:setRange( 0, 0 )\n   oLbx:oHScroll:= Nil\n\n   // Turn off the vertical\n   oLbx:oVScroll:setRange( 0, 0 )\n   oLbx:oVScroll:= Nil\n\nSetting oLbx:nStyle does not seem to have any effect.\n\nFor horizontal scrolling you will also need to freeze all the columns due to a bug. When you turn off horizontal scrolling then click on the last column it still scrolls one column to the right. Freezing all the columns fixes this.\n\noLbx:nFreeze:= 5 // or whatever no. of columns you have.[/quote:1pgitw5f]\n\nThere something else to consider. The listbox in Workshop is NOT the same listbox we use as a browse. We use the term \"listbox\" as the command in our code, but the preprocessor changes it to call our TWBrowse class. Note that you can actually define a \"listbox\" in Workshop and it will work kind-of in your code, but it will have problems.\n\nSo the solution is that you have to add a custom control named \"TWBrowse\" to Workshop, then redefine that in your code instead of using the \"listbox\" in Workshop.\n\nJames','',0,'gA==','1pgitw5f',1,0,'',303,0,0),(19072,4313,6,147,0,'201.253.36.84',1158586667,1,0,1,0,1,1,'','Deshabilitar botones de Ventana','Estimados:\nEn un Dialog hecho desde recurso puedo definir que el mismo tenga los botones Minimizar - Estandar activos e, inactivo Sistema; lo cual en modo textual está definido como:\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\n\nSi, lo mismo, deseo hacerlo desde un Ventana y mediante código expreso:\nSTYLE nOr( WS_VISIBLE, WS_CAPTION, WS_THICKFRAME, WS_MINIMIZEBOX, WS_MAXIMIZEBOX )\n\nAl compilar y ejecutar la ventana, que es MDI Child, no muestra ningún botón.\nSe puede definir esta alternativa?. O la unica opcion es mediante control en el Valid de la Wnd?\n\ngracias','',0,'gA==','3ckzuizq',1,0,'',147,0,0),(19073,4303,6,492,0,'201.154.126.49',1158587753,1,0,1,1,1,1,'','','Hola Fabian\n\nChecate este Post :\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3716\">http://fivetechsoft.com/forums/viewtopic.php?t=3716</a><!-- m -->\n\n\nSeguro te servira, gran aporte del Master FLORES.\n\n\nSaludos','',0,'gA==','30akutsn',1,0,'',492,0,0),(19074,4294,6,492,0,'201.154.126.49',1158588377,1,0,1,1,1,1,'','','Hola Carlos\n\nDefinitivamente VERCE es una gran herramienta, pero tambien hay otras opciones para tal efecto, de las que mas se usan son estas :\n\n- xMate\n- AJMake\n\nPuedes accesar al sitio de OsKar, existe buena documentacion acerca del uso del xMate.\n\nNada pierdes en echarle un ojo a las otras o en su defecto trata de contactar a JC Salinas, el \"papa\" de VERCE seguro te pueda ayudar.\n\nSaludos','',0,'gA==','me1yioun',1,0,'',492,0,0),(19075,4279,6,456,0,'62.43.194.117',1158593093,1,0,1,1,1,1,'','','Acabo de llegar de vacaciones, y me estoy poniendo al dia. Referente al tema que comentais creo que el problema era debido a \n\n::lRefreshOnlyData := .T.\n\nen el metodo seek de xBrowse, si comentais esa linea creo que se solucionaba lo del refresco de la cabecera. Espero haberos puesto sobre la pista, sino con mas tranquilidat y tiempo revisare y ya os dirira.','',0,'gA==','2mgxqduk',1,0,'',456,0,0),(19076,4314,3,217,0,'200.159.120.34',1158595256,1,0,1,1,1,0,'','GETs: display wrong when I use when [clause]','Antonio,\n\nI know it was corrected but my March FWH version display the text too near to left border of get when I use \"when\" clause.\nCan you say what I must change to correct it?\n\nRegards,\nMaurilio','',0,'gA==','4y5mr6ab',1,0,'',217,0,0),(19077,4315,3,694,0,'200.181.156.98',1158596048,1,0,1,1,1,1,'','TWBROWSE ScrollBar fica louca','Amigos, usando a TWBROWSE com ARRAY, quando eu DELETO, um elemento da ARRAY, e atualizo a LISTBOX, a SCROLLBAR FICA louca.\nEX:\nfdados :={{\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"}}\nfheader:= {\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"}\n\nredefine listBox oBfsu Fields Of oDld id 101 SIZES 50,40,220,80,80,100,100,100,100,100 COLORS CLR_BLACK,CLR_LGREEN \nfHeader[1] := \"Número\"\nfHeader[2] := \"Ano\"\nfHeader[3] := \"Origem\"\nfHeader[4] := \"Recebimento\"\nfHeader[5] := \"Remessa\"\nfHeader[6] := \"Procedimento\"\nfHeader[7] := \"Natureza do Delito\"\nfHeader[8] := \"Indiciado\"\nfHeader[9] := \"Vítima\"\nfHeader[10]:= \"Cartório\"\n      \nobfsu:aJustify     := {2,2,0,2,2,0,0,0,0,0}\nobfsu:aHJustify    := {2,2,0,2,2,0,0,0,0,0}\nobfsu:nHeaderStyle := 3\nobfsu:nLineStyle   := 3\nobfsu:nclrbackfocus:= {|| CLR_HBLUE}\nobfsu:nHeaderHeight:= 24      \nobfsu:nLineHeight  := 22\nobfsu:nfreeze      := 2   \nobfsu:aHeaders     := fHeader\nobfsu:bLine        := {|| { fDados[obfsu:nAt,1],fDados[obfsu:nAt,2],fDados[obfsu:nAt,3],fDados[obfsu:nAt,4],fDados[obfsu:nAt,5],fDados[obfsu:nAt,6],fDados[obfsu:nAt,7],fDados[obfsu:nAt,8],fDados[obfsu:nAt,9],fDados[obfsu:nAt,10]}}\nobfsu:Refresh()\nobfsu:setArray(fDados)\noDld :lHelpicon:=.F.\n\n**********************************\nstatic function CARREGARRAY()\n**********************************\nLOCAL CelAnt:=select(),COrderAnt:=ORDSETFOCUS()\n\nfdados :={}\nSelect prerecebidas\ndbsetorder(1)\ndbseek(strzero(ofanos,4))\ndo while OFANOS==prerecebidas-&gt;pr_anos .and. ! eof() \n   aadd(fdados ,{prerecebidas-&gt;pr_nume,;\n                        prerecebidas-&gt;pr_anos,;\n                        prerecebidas-&gt;pr_rece,;\n                       prerecebidas-&gt;pr_reme,;\n                       prerecebidas-&gt;pr_cart})\n\n   dbskip()\nenddo\nIF LEN(FDADOS)=0\n   fdados :={{\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"}}\nENDIF\nobfsu:SetArray(fdados)\nobfsu:nAt:=(len(fdados))\nobfsu:refresh()\nobfsu:DEFAULT()  //DEVO USAR?\nSELECT(CELANT)\nORDSETFOCUS(CORDERANT)\nRETURN(.T.)\n\n\nFIQUEM COM DEUS\nAOKISANTOS','',0,'','3kv2f9qr',1,0,'',694,0,0),(19078,4279,6,63,0,'80.37.102.128',1158596764,1,0,1,1,1,0,'','','Biel:\n\nNo sé si tu solución funciona (yo no utilizo el método Seek), pero siguiendo tu sugerencia, he hecho unas cuantas prueba y creo que el problema se soluciona comentando la linea lRefreshOnlyData := .T.  en el método VScroll \n\nMuchas gracias por tu idea, que creo que les puede servir a otros.\n\nRafael','',0,'','3dupecgd',1,0,'',63,0,0),(19079,4306,1,47,0,'203.144.143.8',1158597468,1,0,1,1,1,0,'','','Dear All,\n\nSorry, this Twbrowse():lHScroll instance is from TWbrowse classes of Hernan Ceccarelli.   \n\nBest Regards,\nDutch','',0,'','199ewi18',1,0,'',47,0,0),(19080,4311,6,2,0,'87.218.146.169',1158598119,1,0,1,1,1,1,'','','Carles,\n\nEs bastante más simple si lo cambias así:\n[code:17vf8sez]\nFUNCTION Test&#40; cData, nError &#41; \n\n   MiFuncionC&#40; cData, @nError &#41; \n\nRETURN nError\n[/code:17vf8sez]\nte sirve ?','',0,'AIA=','17vf8sez',1,0,'',2,0,0),(19081,4314,3,2,0,'87.218.146.169',1158598487,1,0,1,1,1,1,'','','Maurilio,\n\nPlease email me your tget.prg, thanks.','',0,'AIA=','3p3ky83q',1,0,'',2,0,0),(19082,1297,1,49,0,'62.13.172.78',1158599909,1,0,1,1,1,1,'','','We think that this class is not freeware and I think its cost wil be around to 200 €.','',0,'AIA=','9c1bioq3',1,0,'',49,0,0),(19083,4313,6,78,0,'190.40.224.26',1158601530,1,0,1,1,1,0,'','','Hola,,,,\n\nDEFINE DIALOG......\n...\n..\n...\n\nACTIVATE DIALOG oDlg  ON INIT (oBtn1:Disable(), oBtn2:Disable(), oBtn3:Disable())\n\n\nSalu2\nWilli','',0,'AIA=','2e7rt6hw',1,0,'',78,0,0),(19084,4316,6,501,0,'200.32.103.242',1158604684,1,0,1,1,1,0,'','Voy avanzando de a poco pero me tranque de nuevo','Antonio pude linkear bien con las versiones que tengo ahora, descule al máximo el VERCE y de primera.\n\nPero al iniciar el dialogo no me deja hacer click directamente sobre los listbox que tengo redefinidos desde el RC incustado en el exe, si voy con el TAB me deja parar sino no. Usare el de Hernan en lugar del nativo?\n\nAlgunos controles tipo button basicos estan en el RC pero cuando carga no los veo se van. ( Tengo algunos controles que no estan redefinidos desde el PRG, tendra algo que ver)\n\nAgarre un par de ejemplos de la carpeta SAMPLES y todos hacen lo mismo, tampoco he podido crear la ventana principal ni mucho menos ponerle un menu, aparece algo blanco sin bordes y se cuelga.\n\nLos ejemplos de FWH de la carpeta samples son para FW o FWH, ya avance en algunos problemas que se solucionaron con memvar y demas cosas que lei en el foro pero ahora me atasque de nuevo.\n\nNo es urgente, seguire leyendo llevo 10 paginas del foro, me faltan como 20 todavia. Si tenes una ayuda mucho mejor. [b:2hjw1bjv]Gracias.[/b:2hjw1bjv]','',0,'QA==','2hjw1bjv',1,0,'',501,0,0),(19085,4295,2,496,0,'157.100.180.226',1158609050,1,0,1,1,1,0,'','','Yo me quedo con este Editor de Recursos. Es más,  puedes importar sin problemas los recursos creados en workshop.  \n\nun saludo\nMarcelo Jingo','',0,'QA==','1gr5rhau',1,0,'',496,0,0),(19086,4285,3,69,0,'206.210.97.138',1158609225,1,0,1,1,1,0,'','','No stack list.\n\nJust a message box with OK.  I click OK and am returned to my desktop.\n\n\nJeff','',0,'QA==','12iy22ga',1,0,'',69,0,0),(19087,4317,6,184,0,'201.222.6.66',1158612879,1,0,1,1,1,0,'','Folder con FWH 2.5','Los folder de FWH 2.5, funcionan bien ?\n\nhe compilado los test y pinta los dialogos, pero los controles no funcionan , estan solo pintados no funcionan, ademas el pintado es terrible.','',0,'QA==','3vh6t69p',1,0,'',184,0,0),(19088,4281,7,779,0,'200.67.153.171',1158615224,1,0,1,1,1,0,'','Gracias a ambos','Carles, podrias mandarme el ejemplo, por cierto baje tu programa y se me hizo interesante.','',0,'QA==','3g3mo6zu',1,0,'',779,0,0),(19089,4289,7,779,0,'200.67.153.171',1158615315,1,0,1,1,1,0,'','a mi me funciona','siempre lo he usado, pero siempre respetando maximo 10 caracteres.','',0,'QA==','3p0ret6h',1,0,'',779,0,0),(19090,4312,7,779,0,'200.67.153.171',1158615416,1,0,1,1,1,0,'','','Mi pocket no tiene F1   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'QA==','rlqaesv0',1,0,'',779,0,0),(19091,4312,7,106,0,'87.4.196.217',1158616148,1,0,0,1,1,1,'','','Si lo pruebas con el simulador, te da error (presionando F1), y si pruebas con las teclas rapidas del pocket (la tecla numero 1) te el mismo error.','',0,'QA==','1848dl8y',1,0,'',106,0,0),(19092,4312,7,779,0,'200.67.153.171',1158618708,1,0,1,1,1,0,'','Solucion?','Hola Pedro, lo solucione agregandole a COntrol.prg :\n\n[b:3u59vd49]	METHOD HelpTopic() INLINE MsgInfo(\'No Hay Ayuda\')[/b:3u59vd49]\n\n\nMe imagino que Antonio le dará una mejor solución....\nPor lo pronto esa funciona.','',0,'QA==','3u59vd49',1,0,'',779,0,0),(19093,4312,7,106,0,'87.4.196.217',1158619070,1,0,0,1,1,1,'','','lo probarè manana.\n\ngracias.','',0,'QA==','443ygu35',1,0,'',106,0,0),(19094,4318,4,779,0,'200.67.153.171',1158621000,1,0,1,1,1,0,'','Desde que version de Windows funciona Five win para Pocket P','Desde que version de Windows funciona Five win para Pocket PC?\n\nFunciona en Windows Pocket PC 3.0 con procesador ARM SA1110?','',0,'QA==','2o4m5vyf',1,0,'',779,0,0),(19096,4312,7,2,0,'87.218.146.80',1158623313,1,0,1,1,1,1,'','','Pedro, Ignacio,\n\nSi, la solución es añadir a la Clase TWindow:\n\nMETHOD HelpTopic() VIRTUAL\n\nDe momento no hacemos nada, salvo que querais mostrar un mensaje como ha hecho Ignacio.','',0,'QA==','9ygar0ax',1,0,'',2,0,0),(19097,4318,4,2,0,'87.218.146.80',1158623422,1,0,1,1,1,1,'','','Ignacio,\n\n&gt; Desde que version de Windows funciona Five win para Pocket PC? \n\nDesde Windows Mobile 2002. Aunque se recomienda Windows Mobile 2003.\n\n&gt; Funciona en Windows Pocket PC 3.0 con procesador ARM SA1110?\n\nDebería funcionar.','',0,'QA==','21mekmju',1,0,'',2,0,0),(19100,4298,6,694,0,'200.181.206.167',1158635712,1,0,1,1,1,1,'','obrigado manuel','Muito obrigado manuel...\n\nManuel, é possível você me passar uma lista com os principais comandos da TWORD para XHARBOUR?\n\nFIQUE COM DEUS\nAOKISANTOS','',0,'QA==','1pnhv33v',1,0,'',694,0,0),(19101,4298,6,9,0,'85.53.65.11',1158638186,1,0,1,1,1,1,'','Re: obrigado manuel','[quote=&quot;AOKISANTOS&quot;:2c94k6tv]\nManuel, é possível você me passar uma lista com os principais comandos da TWORD para XHARBOUR?[/quote:2c94k6tv]\n\nAokisantos,\n\nPara usar Word, yo utilizo directamente la clase Toleauto de xHarbour y no Tword.- Pero te envio los enlaces publicados en un mensaje anterior por Antonio Linares:\n\nDocumentación: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/019673e364/TWordxx.zip.html\">http://hyperupload.com/download/019673e ... x.zip.html</a><!-- m -->\n\nEjemplos de uso: \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018763bc84/Tword.zip.html\">http://hyperupload.com/download/018763b ... d.zip.html</a><!-- m -->','',0,'gA==','2c94k6tv',1,0,'',9,0,0),(19102,4319,4,13,0,'213.76.252.200',1158646047,1,0,1,1,1,0,'','Resize TWBrowse control','Antonio,\n\nIs there a method to resize TWBrowse control after SIP show/hide events (call from window bSettingChange codelblock) ? Similiar trick is used in Carles ZNotes program.\n\nThanks\nPawel','',0,'gA==','iml5l4np',1,0,'',13,0,0),(19103,4320,6,439,0,'190.0.139.231',1158646530,1,0,1,1,1,1,'','Forma de Identificar un control','Hola a todos, \n\nTengo una dialog de ingreso de datos cuyos controles habilito y deshabilito de acuerdo a lo que estoy haciendo en ella.\n\nHe modificado la clase tget para que el color del texto no cambie cuando los get están deshabilitados (los que no tenemos buena vista agradecidos).\n\nAhora bien, como en algunos casos estas dialogos pueden contener objetos Say que son modificados en tiempo de ejecución y por lo tanto se manejan desde código, sucede que al deshabilitar los controles de la dialog desde el array de controles oDlg:aControls[x], necesito diferenciar cuando se trata de objetos Say, ya que a ellos no necesito ni quiero deshabilitarlos.\n\nCOMO LO HAGO?','',0,'','xpar29sk',1,0,'',439,0,0),(19104,4321,6,439,0,'190.0.139.231',1158646890,1,0,1,1,1,1,'','Texto en CheckBox, DbCombo y Combobox deshabilitados','Como puedo modificar estas clases  para que el texto no permanezca gris cuando están \"Disable\"?\n\nHe buscado en ambas clases sin resultados, alguien puede guiarme un poco?\n\nGracias desde ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','19gm72sj',1,1158688797,'',439,2,0),(19105,4320,6,303,0,'72.199.41.171',1158648194,1,0,1,1,1,0,'','','Jose,\n\noDlg:aControls[i]:classname() != \"TSAY\"\n\nJames','',0,'','39t9sfv8',1,0,'',303,0,0),(19106,4279,6,456,0,'62.43.194.117',1158649851,1,0,1,1,1,1,'','','Rafael, \n\nperfecto, me alegro que te haya valido para ponerte sobre la pista, y hayas podido solucionar el problema.','',0,'','17sk6au8',1,0,'',456,0,0),(19107,4319,4,2,0,'87.218.146.80',1158650235,1,0,1,1,1,1,'','','Pawel,\n\nYou may review samples\\TestSip.prg and resize the browse using: oBrowse:nHeight = nNewValue','',0,'','1cn561vx',1,0,'',2,0,0),(19109,4317,6,2,0,'87.218.146.80',1158652292,1,0,1,1,1,1,'','','Simón,\n\nLa versión 2.5 es bastante antigua. Posiblemente más de 3 años.','',0,'','2mrcu2yd',1,0,'',2,0,0),(19110,4312,7,106,0,'85.34.123.173',1158656103,1,0,0,1,1,0,'','','Agregado el metodo virtual.\n\nAhora funciona todo ok.\n\n\nGracias.','',0,'','5y84e272',1,0,'',106,0,0),(19111,4311,6,449,0,'212.64.224.241',1158656773,1,0,1,1,1,1,'','','Antonio, \n\nSi me serviria, pero como declaro la variable nError dentro de la funcion y como la paso por referencia ?\n\n[code:2c9qqg6p]#pragma BEGINDUMP \n\n#include &quot;windows&#46;h&quot; \n#include &quot;hbapi&#46;h&quot; \n\nLPWSTR AnsiToWide&#40; LPSTR &#41;; \n\nHB_FUNC  &#40; TEST &#41; \n&#123; \n    LPWSTR cData = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;; \n    nError = hb_parnl&#40;2&#41; ;               &lt;- Como declaro nError &#40;2º parametro&#41; ?\n\n    MiFuncionC&#40; cData, &amp;nError&#41;      &lt;- Como defino nError por referencia con el &amp; ? \n\n&#125; \n#pragma ENDDUMP [/code:2c9qqg6p]\n\nGracias','',0,'AIA=','2c9qqg6p',1,0,'',449,0,0),(19112,4281,7,449,0,'212.64.224.241',1158657042,1,0,1,1,1,1,'','','Ignacio,\n\nEnviado a tu privado.','',0,'AIA=','2gc964x6',1,0,'',449,0,0),(19113,4322,6,63,0,'80.37.102.128',1158657830,1,0,1,1,1,0,'','RClick en TxBrowse','He notado que en TxBrowse, RClick en cualquier celda no seleccionada funciona bien pero si esa celda está seleccionada (es decir, se le ha hecho antes LClick), el RClick es ignorado.  ¿Alguien tiene una solución para eso?\nGracias,\nRafael','',0,'AIA=','2lz6yhuu',1,0,'',63,0,0),(19114,4311,6,2,0,'87.218.146.80',1158660154,1,0,1,1,1,1,'','','Carles,\n[code:3acck0nc]\n#pragma BEGINDUMP \n\n#include &quot;windows&#46;h&quot; \n#include &quot;hbapi&#46;h&quot; \n\nLPWSTR AnsiToWide&#40; LPSTR &#41;; \n\nHB_FUNC  &#40; TEST &#41; \n&#123; \n    LPWSTR cData = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;; \n    LONG nError = hb_parnl&#40;2&#41; ;\n\n    MiFuncionC&#40; cData, &amp;nError &#41;;\n \n    hb_stornl&#40; nError, 2 &#41;; \n&#125; \n#pragma ENDDUMP \n[/code:3acck0nc]','',0,'AIA=','3acck0nc',1,0,'',2,0,0),(19115,4311,6,449,0,'212.64.224.241',1158660362,1,0,1,1,1,1,'','','Antonio,\n\nGracias. Casi lo consigo  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->. Voy a probarlo','',0,'AIA=','g4xbtupe',1,0,'',449,0,0),(19116,4323,3,32,0,'168.209.98.43',1158661449,1,0,1,1,1,0,'','rtf page break','Hi,\n\nIs it possible to add a page break to the rich text control?\n\nAlex','',0,'AIA=','2ff442m7',1,0,'',32,0,0),(19117,4313,6,147,0,'200.45.54.134',1158667024,1,0,1,0,1,1,'','','Willi, gracias por responder\nCreo que no entendiste mi pregunta o la expresé mal. Me estoy refieriendo a los botones Minimize, Maximize y System de una ventana. Puse, como ej., lo que si puedo hacer con una Dialog, pero no con una Ventana.\n\nsaludos','',0,'AIA=','2a700f9d',1,0,'',147,0,0),(19118,4306,1,699,0,'122.126.5.46',1158669635,1,0,1,1,1,1,'','','Dear James,\n\nThank you very much for your help. It works fine now.\n\nI also would like to thank all who gave me a hand.','',0,'AIA=','11ljqvne',1,0,'',699,0,0),(19119,4311,6,449,0,'212.64.224.241',1158669642,1,0,1,1,1,1,'','','Antonio,\n\nEl ejemplo propuesto funciona de maravillas -&gt; gracias.\n\nAhora necesito crear otro ejemplo, y necesito saber como se declaran las variables. No me gusta tocar las narices y si me dices donde puedo encontrar definiciones, me lo mirare. He intentado mirarme ficheros include, pero la verdad, no se si realmente miro lo correcto. Tambien, donde puedo mirar funciones que devuelven los valors, tipo hb_stornl(), hb_retnl(), ...\n\nAhora estoy enganchado en definir lo q en un prg seria:\n\ncBuffer := Space(200)\nlAccept := .f.\n\n\nGracias.','',0,'AIA=','1yzkxyps',1,0,'',449,0,0),(19120,4324,6,656,0,'83.230.172.223',1158670082,1,0,1,1,1,0,'','Mis pimeros recursos','hola a todos, \n\n  He creado un archivo .rc con el resource workshop, luego lo paso a dll 32bits con el rc2dll32.bat y ejecuto mi programa, el recurso tiene varias clases, pero en mi programa solo hago:\n\n  SET RESOURCES TO \"books32.dll\"\n\n  DEFINE DIALOG oDlg NAME \"SCRPRNBOOKS\"\n\n  REDEFINE BUTTON ID 111 OF oDlg ACTION oDlg:End()\n\n  ACTIVATE DIALOG oDlg\n\n bueno pues me dice Error Fivewin/3 Cannot create Dialog Box:\n                Resource SCRPRNBOOKS\n\n  ¡¡ POR QUEEE !!\n\n a y otra, intento poner el programa para que en los acentos no me salgan signos raros, he puesto en el principal lo siguiente:\n\n           REQUEST HB_LANG_ES\n           REQUEST HB_CODEPAGE_ESWIN\n\n           Hb_LangSelect( \"ES\" )\n           Hb_SetCodePage( \"ESWIN\" )\n\n  pero no me hace caso, ¿ que hago mal ?\n\nMuchas gracias\n\nJavier Pérez','',0,'AIA=','3b61hs1c',1,0,'',656,0,0),(19121,4320,6,439,0,'190.0.129.18',1158674233,1,0,1,1,1,1,'','','Gracias James, resolvió mi problema <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','16yw51er',1,0,'',439,0,0),(19122,4321,6,439,0,'190.0.129.18',1158675040,1,0,1,1,1,1,'','','Sigo con lo mismo, alguien que me tire una línea?','',0,'AIA=','18hh6n3k',1,0,'',439,0,0),(19123,4325,2,66,0,'201.212.106.143',1158675369,1,0,1,0,1,0,'','Existe alguna funcion para encriptar campos numericos','Estimados Colegas\n\nAlguien tiene alguna funcion para encriptar campos numericos\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','6iubfax6',1,0,'',66,0,0),(19124,4326,6,237,0,'200.68.70.89',1158678062,1,0,1,1,1,0,'','Se necesitan cotizaciones software turismo en Buenos Aires','Colegas:\n\nUna amiga que trabaja en una empresa de turismo me pidio cotizacion para software especifico para empresas de turismo, como yo me especializo en otro tema ( previsional ) les paso el dato para que se comuniquen con esta gente.\n\nLa empresa se llama COLPRIM y se tienen que comunicar con la contadora, Sra. Rosa al teléfono: 011-4329-2900 de Capital Federal.\n( Argentina )\nSi les preguntan, el contacto es por medio de PATRICIA ( mi amiga ).\n\nMucha suerte y espero que alguno haga un buen negocio.\nAlejandro Cebolido, Buenos Aires, Argentina.','',0,'AIA=','1cw3jkf4',1,0,'',237,0,0),(19125,4327,6,64,0,'200.165.191.6',1158680561,1,0,1,1,1,1,'','ERRO _HB_FUN___CLSCNTCLASSES FWH 2.8 + XHARBOUR.COM','xLINK: error: Unresolved external symbol \'_HB_FUN___CLSCNTCLASSES\'.\n\nxLINK: fatal error: 1 unresolved external(s).\n\ncomo resolver?\n\nhugs.','',0,'AIA=','3fqft770',1,0,'',64,0,0),(19126,4314,3,217,0,'200.159.120.34',1158681016,1,0,1,1,1,0,'','','Sent.\n\nRegards\nMaurilio','',0,'AIA=','jgtos9jb',1,0,'',217,0,0),(19127,4315,3,217,0,'200.159.120.34',1158681359,1,0,1,1,1,0,'','Re: TWBROWSE ScrollBar fica louca','Aoki, \n\nYou must do obfsu:setArray(fDados) again after delete an element of array or update obfsu:bLogicLen code block to read the correct size of your array.\n\nPerguntar em português em um forum em inglês fica difícil alguém te responder...\n\nMaurilio','',0,'AIA=','yglfru3w',1,0,'',217,0,0),(19128,4325,2,138,0,'189.141.70.60',1158681497,1,0,1,1,1,1,'','','Solo con el ADS Servidor Local (o Remoto) y solo opera a 32 bits','',0,'AIA=','y8q7ctnv',1,0,'',138,0,0),(19129,4313,6,303,0,'72.199.41.171',1158684927,1,0,1,1,1,0,'','','define window oWnd mdichild of wndMain() nominimize nomaximize','',0,'AIA=','1477hqvl',1,0,'',303,0,0),(19130,4309,3,217,0,'200.159.120.34',1158685350,1,0,1,1,1,0,'','Re: xBrowse headers disappear','Rafael,\n\nI had this and others problems with xBrowse that was solved in 2.7.\nTry edit xBrowse.prg and change all ::lRefreshOnlyData to .F.\nIt will force xBrowse to refresh all including headers and footers\n\nRegards\nMaurilio','',0,'AIA=','3l9m8c98',1,0,'',217,0,0),(19131,4321,6,9,0,'85.53.65.11',1158687323,1,0,1,1,1,1,'','Re: Texto en CheckBox, DbCombo y Combobox deshabilitados','[quote=&quot;jose_murugosa&quot;:3cgiamhk]Como puedo modificar estas clases  para que el texto permanezca gris cuando están \"Disable\"?[/quote:3cgiamhk]\n\nJose, \n\n¿Cuando dices \"que el texto permanezca gris\" quieres decir que el texto se vea \"deshabilitado\" o todo lo contrario.?','',0,'gA==','3cgiamhk',1,0,'',9,0,0),(19132,4324,6,180,0,'81.38.0.133',1158687666,1,0,1,1,1,0,'','','No se porque razón los recursos creados con workshop y luegos pasados a 32 bit no funcionan correctamente. Esto me ha dado bastante lata y lo que yo he hecho ha sido editar con PellesC la nueva dll de 32 bit generada y luego crear cada uno de los dialogos nuevamente copiando y pegando. Es tedioso, pero funciona.\n\nUn saludo,\nManuel','',0,'gA==','25bn2gy8',1,0,'',180,0,0),(19133,4321,6,439,0,'190.0.129.184',1158688931,1,0,1,1,1,1,'','','Manuel,\n\nGracias por contestar!!!!, y de hecho la verdad que corregí ahora el primer mensaje porque lo que quiero es precisamente todo lo contrario de lo que decía. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nNECESITO QUE CUANDO CHECKBOXES, DBCOMBOS Y COMBOBOXES ESTÉN DISABLE [u:1o59wrp6][b:1o59wrp6]NO [/b:1o59wrp6][/u:1o59wrp6]TENGAN LA LETRA GRIS [u:1o59wrp6][b:1o59wrp6]SINO IGUAL COMO SI ESTUVIERAN ENABLE[/b:1o59wrp6][/u:1o59wrp6].\n\nCualquier ayuda que puedas brindarme la apreciaré grandemente. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QQ==','1o59wrp6',1,0,'',439,0,0),(19134,4314,3,2,0,'87.218.146.80',1158690534,1,0,1,1,1,1,'','','Maurilio,\n\nWe have sent you a modified Class TGet,','',0,'QQ==','c3jddwtt',1,0,'',2,0,0),(19135,4327,6,2,0,'87.218.146.80',1158690643,1,0,1,1,1,1,'','','Syda,\n\nIf you are using xHarbour builder, then please contact xHarbour.com for an upgrade. Thanks,','',0,'QQ==','mm2zcee4',1,0,'',2,0,0),(19136,4311,6,2,0,'87.218.146.80',1158690811,1,0,1,1,1,1,'','','Carles,\n\n&gt; cBuffer := Space(200) \n\nchar buffer[ 200 ];\n\n&gt; lAccept := .f. \n\nBOOL bAccept = FALSE;\n\nRevisa el código fuente de Harbour. En el directorio RTL tienes muchos ejemplos.','',0,'','sux4j6eb',1,0,'',2,0,0),(19137,4328,6,501,0,'200.32.103.222',1158691176,1,0,1,1,1,0,'','Interesante Editor de recursos para 32b','[b:3ody2t0v]RESOURCE BUILDER 2.5[/b:3ody2t0v] \n<!-- m --><a class=\"postlink\" href=\"http://www.sicomponents.com/rbldr.html\">http://www.sicomponents.com/rbldr.html</a><!-- m -->','',0,'QA==','3ody2t0v',1,0,'',501,0,0),(19138,4324,6,2,0,'87.218.146.80',1158692022,1,0,1,1,1,1,'','','Javier,\n\nBusca en el fichero RC las letras \"Bor\" por si has usado algún control de Borland.','',0,'QA==','1t5tzehn',1,0,'',2,0,0),(19139,4285,3,2,0,'87.218.146.80',1158692338,1,0,1,1,1,1,'','','Jeff,\n\nWe have published a new xharbour build. Please review whatsnew section of these forums to download it and try with it. Thanks,','',0,'QA==','vqghbtx8',1,0,'',2,0,0),(19140,4309,3,63,0,'80.37.102.128',1158700699,1,0,1,1,1,0,'','','Maurilio:\nThanks for your answer. I got a similiar suggestion from Biel in the FWH Spanish forum.  I tried it and have found that it seems enough to comment the line ::lRefreshOnlyData := .T.  in the VScroll method.\nHope that this information is usefult to somebody else.\n\nThanks for your help\nRafael','',0,'QA==','21knc1dl',1,0,'',63,0,0),(19141,4329,1,161,0,'81.164.212.146',1158700953,1,0,1,1,1,0,'','Screenresolution problem','Hi,\n\nI have a dialog, and on one of my customers PC, the dialog is stretched...\n\nCan anyone tell be how I can avoid that.\n\nHere are screendumps of my program on 3 different resolution, and only on the last one (customers PC) the dialog is stretched. You can alsu see the the button-bar on the \'bad\' one has now more empty space at the right. Also the bitmap\'s are distort  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n<!-- m --><a class=\"postlink\" href=\"http://www.vms.be/FWTest/ScreenresolutionError/index.html\">http://www.vms.be/FWTest/Screenresoluti ... index.html</a><!-- m -->\n\nThanks,\nMarc','',0,'QA==','1qn8yyro',1,0,'',161,0,0),(19142,4330,17,92,0,'62.151.112.31',1158703381,1,0,1,1,1,0,'','Clase para manejar Blat.exe de C.Gelabert','En este link podeis bajaros la clase para manejar Blat.exe de muy fácil uso y ampliable a gusto del consumidor.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0285db1b91/TfBlat.prg.html\">http://hyperupload.com/download/0285db1 ... t.prg.html</a><!-- m -->\n\nEs una primera versión.\n\nSaludos\nCarlos G.','',0,'QA==','2untikt2',1,0,'',92,0,0),(19143,4328,6,785,0,'190.64.113.112',1158704036,1,0,1,1,1,0,'','','Carlos:\n\nTambién esta PellesC que es gratuito y muy bueno.\n\nSaludos.\n\nRuben Fernandez.','',0,'QA==','3kpeteax',1,0,'',785,0,0),(19145,4331,7,790,0,'201.122.21.224',1158709760,1,0,1,1,1,0,'','testbrw.rc','Hola, Perdon pero soy nuevo en esto, trato de abrir desde el workshop el testbrw.rc pero me marca un error id 742, cannot open files:windows.h, como lo puedo abrir\n\nGracias\nElias oros','',0,'QA==','3bpwbmym',1,0,'',790,0,0),(19146,4328,6,138,0,'201.104.10.244',1158720273,1,0,1,1,1,1,'','','[quote=&quot;Ruben Fernandez&quot;:2thz30mt]\nTambién esta PellesC que es gratuito y muy bueno.\n[/quote:2thz30mt]\n\nPrueba el Resource builder, le da 3 vueltas al Pelles C, no es gratis, pero merece mucho la pena.','',0,'gA==','2thz30mt',1,0,'',138,0,0),(19147,4331,7,138,0,'201.104.10.244',1158720564,1,0,1,1,1,1,'','','El RC esta hecho con el editor de recursos de Pelles \"C\", puedes abirlo con ese editor de recursos.\n\nSi lo quieres abrir con Workshop,  abre .RC con un editor de texto y quita los archivos #include, guarda el RC y listo, se puede abrir sin problema desde workshop.\n\nNo lo he probado pero supongo que tendras que quitar tambien la linea que dice LANGUAGE......','',0,'gA==','2kxeo9ph',1,0,'',138,0,0),(19148,4332,6,37,0,'200.121.191.86',1158720783,1,0,1,1,1,1,'','Leer y Grabar en Tablas Access','Pues esa es la consulta, ahora Yo no se nada de OLE ni ODBC, si alguien sabe como leer tablas desde Access y poder grabar tambien data en ellas y tiene algun ejemplo (importante para los que como Yo no sabemos ni como empezar) les estare muy agradecidos\nSaludos','',0,'gA==','2fumjqas',1,0,'',37,0,0),(19149,4280,7,18,0,'189.141.16.242',1158724299,1,0,1,1,1,1,'','Re: Group me funciona en ventanas pero no en dialogos','[quote=&quot;creswinman&quot;:1wsqw88s]¿Puede funcionar en dialogos?\nEstoy generando los controles sin recursos, por puro código[/quote:1wsqw88s]\n\nAntonio :\n\nEl Control TPanel si se puede incuir en un dialogo, el problema sucede cuando deseo integrar algun control dentro de el.\n\nMira este pequeño código :\n[code:1wsqw88s]\n#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oPanel\n   local cName &#58;= Space&#40; 20 &#41;, cAddress &#58;= Space&#40; 30 &#41;\n\n DEFINE DIALOG oDlg FROM 1,1 TO 180,180 TITLE &quot;Scroll&quot; PIXEL\n\n   @  1 , 1 PANEL oPanel OF oDlg  SIZE oDlg&#58;nWidth&#40;&#41; - 26, oDlg&#58;nHeight&#40;&#41; - 48 PIXEL\n   @  40, 1 SAY &quot;Name&#58;&quot; OF oPanel SIZE 40, 15 PIXEL\n   @  60, 1 GET cName OF oPanel SIZE 100, 18  PIXEL\n   @  140, 1 SAY &quot;Address&#58;&quot; OF oDlg SIZE 50, 15 PIXEL\n   @  160, 1 GET cAddress OF oDlg SIZE 120, 18 PIXEL\n\n   ACTIVATE DIALOG oDlg\n\nreturn nil\n[/code:1wsqw88s]\n\nY el error que manda es este\nMessage not found\nTPANEL:DEFCONTROL\nstack calls:\n__ERRRT_SBASE(0)\nHBOBJECT:ERROR(179)\n__EVAL(105)\nHBOBJECT:MSGNOTFOUND(0)\nTPANEL:DEFCONTROL(169)\nTSAY:NEW(0)\nMAIN(13)\n\n\nDonde se hace un llamado al método DefControl , donde se supone que esa clase la tiene TDialog y lo esta tratando de llamar en TPanel , ademas de que TPanel herera de TControl\n\nAhora si yo hago esta modificación en la clase TPanel\n[code:1wsqw88s]\n/*\nMETHOD DefControl&#40; oCtrl &#41; CLASS TPanel\n\n   DEFAULT oCtrl&#58;nId &#58;= oCtrl&#58;GetNewId&#40;&#41;\n   if AScan&#40; &#58;&#58;oWnd&#58;aControls, &#123; | o | o&#58;nId == oCtrl&#58;nId &#125; &#41; &gt; 0\n      #define DUPLICATED_CONTROLID  2\n      Eval&#40; ErrorBlock&#40;&#41;, _FWGenError&#40; DUPLICATED_CONTROLID, ;\n                          &quot;No&#58; &quot; + Str&#40; oCtrl&#58;nId, 6 &#41; &#41; &#41;\n   else\n      AAdd&#40; &#58;&#58;oWnd&#58;aControls, oCtrl &#41;\n      oCtrl&#58;hWnd = 0\n   endif\n\nreturn nil\n*/\n[/code:1wsqw88s]\n\nY ejecuto esta línea \n\n   ASend( ::aControls, \"INITIATE()\", ::hWnd )\n\nMe manda otro mensaje de error de la clase que se esta iniciando.\n\n\nAlguna sugerencia de por donde van los cables ?','',0,'gIA=','1wsqw88s',1,0,'',18,0,0),(19150,4329,1,58,0,'84.149.228.26',1158734004,1,0,1,1,1,0,'','','Hi Marc,\n\ni had a similar problem.\nTo solve this i made different dialogs for the same screen.\n[code:t711ybm5]LOCAL nScreenRes  &#58;= goWnd&#58;nHorzRes&#40;&#41;\n\n\n   if nScreenRes == 640\n      cDialog  &#58;= &quot;SIGNALE_640&quot;\n         elseif nScreenRes == 800\n      cDialog &#58;= &quot;SIGNALE_800&quot;\n         else\n      cDialog  &#58;= &quot;SIGNALE_1024&quot;\n         endif\n\n   DEFINE DIALOG oDlg NAME cDialog\n[/code:t711ybm5]\nBut somestimes the screen ratio also depends on the system font size.\nSo a system font of 120% width will distort your dialogs.\n\nRegards,\nDetlef','',0,'AIA=','t711ybm5',1,0,'',58,0,0),(19151,4329,1,161,0,'81.164.212.146',1158735617,1,0,1,1,1,0,'','','Detlef,\n\nThanks for your reply. I was thinking of doing something like that, but on a 1024x768 and 1280x1024 it works fine. It doesnt even \'stretch the dialog.\nOnly on my customer PC with a resolution on 1400x1050 I have some problems.\n\nWhat kind of dialog should I make than, because I think that the PC also will stretch that dialog. I think that the problem is not the screenresolution, because the ratio of the tested scrlem will probeeen are almost the same. The 1280x1028 doest not enlarge the dialog, only the 1400x1050.\nI think the probably, like you say, the system font or something else.\n\nRegards,\nMarc','',0,'AIA=','3r0df1bw',1,0,'',161,0,0),(19152,4123,6,92,0,'213.96.45.6',1158736128,1,0,1,1,1,0,'','Nueva clase para menjar Blat.exe','[quote=&quot;Baxajaun&quot;:1tr8q1mm]Buscando, buscando,  en la página de Daniel Andrade ahora alojada en \n\n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin/\">http://vikthor.com.mx/fivewin/</a><!-- m -->\n\nhe econtrado una clase para manejar Blat escrita por Jesus D¡ez Gonzalez. Ahora también la tenéis en Hyperupload:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0270efa094/tblat.zip.html\">http://hyperupload.com/download/0270efa ... t.zip.html</a><!-- m --> \n\nSaludos,\n\nFelix[/quote:1tr8q1mm]\n\nGracias Felix,\n\nAyer dejé en utilidades una nueva clase para manejar Blat.exe de muy fácil uso y que no realiza (aunque si se desea lo permite) el install del Blat.\n\nLa clase que me indicas (tblat) no era de mi gusto, no me sentía cómodo (naturalmente con todo el respeto y agradecimiento a su creador).\n\nAunque se puede mejorar y ampliar mucho (de manera muy fácil), lo que hace esta clase cubre mis necesidades.\n\nLa principal característica es que trabaja con ficheros auxiliares que crea y borra automáticamente, de ahí la \'f\' en su nombre.\n\nAquí se puede bajar:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0285db1b91/TfBlat.prg.html\">http://hyperupload.com/download/0285db1 ... t.prg.html</a><!-- m --> \n\nSaludos y gracias de nuevo.\nCarlos G.','',0,'gA==','1tr8q1mm',1,0,'',92,0,0),(19153,4280,7,2,0,'87.218.146.80',1158737822,1,0,1,1,1,1,'','','Vikthor,\n\nHazlo así:\n[code:3mypu8w3]\n#include &quot;FWCE&#46;ch&quot; \n\n//----------------------------------------------------------------------------// \n\nfunction Main&#40;&#41; \n\n   local oWnd, oPanel \n   local cName &#58;= Space&#40; 20 &#41;, cAddress &#58;= Space&#40; 30 &#41; \n\n   DEFINE DIALOG oDlg FROM 1,1 TO 180,180 TITLE &quot;Scroll&quot; PIXEL \n\n   @  1 , 1 PANEL oPanel OF oDlg  SIZE oDlg&#58;nWidth&#40;&#41; - 26, oDlg&#58;nHeight&#40;&#41; - 48 PIXEL \n\n   @  140, 1 SAY &quot;Address&#58;&quot; OF oDlg SIZE 50, 15 PIXEL \n   @  160, 1 GET cAddress OF oDlg SIZE 120, 18 PIXEL \n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT PanelControls&#40; oPanel &#41;\n\nreturn nil \n\nfunction PanelControls&#40; oPanel &#41;\n\n   local cName &#58;= Space&#40; 20 &#41;\n\n   @  40, 1 SAY &quot;Name&#58;&quot; OF oPanel SIZE 40, 15 PIXEL \n   @  60, 1 GET cName OF oPanel SIZE 100, 18  PIXEL \n\nreturn nil\n[/code:3mypu8w3]','',0,'AIA=','3mypu8w3',1,0,'',2,0,0),(19154,4329,1,161,0,'81.164.212.146',1158738072,1,0,1,1,1,0,'','','I just tested it with large fonts, on my 1280x1024 PC and that give no difference.\nI just asked my customer that he have some other special settings, but he told me that the only thing he had changed is the colors to silver.\nSo I think it have something to do with his videodriver.\n\nDoes anyone have some other ideas to solve this problem?\n\nThanks,\nMarc','',0,'AIA=','37czi9qt',1,0,'',161,0,0),(19155,4332,6,2,0,'87.218.146.80',1158738242,1,0,1,1,1,1,'','','Enrique,\n\nHaz una búsqueda por ADO en estos foros y encontrarás muchos mensajes en los que se ha tratado el tema','',0,'AIA=','3n04xyxz',1,0,'',2,0,0),(19157,4323,3,2,0,'87.218.146.80',1158738655,1,0,1,1,1,1,'','','Alex,\n\nHave you tried with Ctrl+Enter ?','',0,'AIA=','3wt5mf14',1,0,'',2,0,0),(19158,4324,6,656,0,'83.230.172.223',1158739877,1,0,1,1,1,0,'','','Bueno, \n\n  he entrado con pelles C, he copiado y pegado el dialogo, pero sigue fallando, además de que me cambia cuando quiere el nombre del dialogo.\n\n  no tengo ningun control de borland.\n\n  he unido el .rc que creo con del borland resources al .exe, \n\n  y sigo sin poder crear el diálogo, me da el mismo error, ¿ que estoy haciendo mal ?, por favor, ayuda\n\n Muchas Gracias\n\n Javier Perez','',0,'AIA=','js6bpeff',1,0,'',656,0,0),(19159,4123,6,177,0,'194.30.62.6',1158745204,1,0,1,1,1,0,'','','Carlos,\n\nmuchas gracias.\n\nSaludos,\n\nFélix','',0,'AIA=','2xfhu7mq',1,0,'',177,0,0),(19160,4324,6,2,0,'87.218.146.194',1158747040,1,0,1,1,1,1,'','','Javier,\n\nPor favor envíame books32.dll en un fichero ZIP a mi dirección de email. Gracias,','',0,'AIA=','3peox65h',1,0,'',2,0,0),(19161,4324,6,2,0,'87.218.146.49',1158752315,1,0,1,1,1,1,'','','Javier,\n\nEstás usando dos controles de clase \"TCal\". Que clase es esa ?','',0,'AIA=','r4kowahh',1,0,'',2,0,0),(19162,4313,6,147,0,'201.253.47.174',1158752675,1,0,1,0,1,1,'','','gracias James; no es lo que busco.\nDejo la imagen de un Dialog. Lo que pretendo es hacerlo en una Ventana MDIChild (aunque, evidentemente, estoy errado en el concepto de su uso)\n\n[url:1lg8roeq]http&#58;//hyperupload&#46;com/download/023131e873/NoSystem&#46;jpg&#46;html[/url:1lg8roeq]\n\nsaludos','',0,'EA==','1lg8roeq',1,0,'',147,0,0),(19163,4333,2,375,0,'84.122.104.147',1158753021,1,0,1,1,1,1,'','SOCORRO','Ya se que se trata de un foro para FW, pero tengo un problema de CLIPPER 5.3 muy gordo y no se como solucionarlo. Por favor, si alguien sabe como arregalrlo, si es tan amable, me conteste a mi correo <!-- e --><a href=\"mailto:ramosframit@ono.com\">ramosframit@ono.com</a><!-- e -->. Garcias.\n\nEste es el asunto. Hace bastante años (1995) que tengo un programa de clipper en la calle, concretamente en un taller. Le han hecho otros en Windows, pero solo le gusta el mio, y de vez en cuando me solicita algunas inclusiones al programa (como es el caso).\n\nEl problema es que el mes pasado cambié de ordenador y por fin me pasé a XP. Y ahora no me Linkea el programa. Utilizaba el EXOSPACE, pero ahora me dá el siguiente fallo:\n\n\n[b:gu0b9f1t]WARNING(#4080):  Can\'t re-assign segment \"DMTE\" to group \"DLL\", it\n        is already assigned to group \"DMT_GROUP\".[/b:gu0b9f1t]\n\nMe dan 7 errores como este más:\n\nPreparing GDT image.\nWriting code image to .EXP file.\nERROR(#4060):  File(dos\\crt0.asm) Multiple starting addresses found.\n        Address from module \"m5prelod.asm\" used.\nSorting 6081 relocations.\nBuilding relocation tables.\nWriting GDT image to .EXP file.\n\n7 WARNING error(s) detected.\n45 SYMBOL DEFINITION error(s) detected.\n\n1952048 bytes used out of 16586976 bytes available.\n\nGenerating C:\\CLIPPER5\\TALLER\\TALLER.EXE...\n\nEXOSPACE : C:\\CLIPPER5\\TALLER\\TALLER.EXE successfully linked\n\n[b:gu0b9f1t]Error [35]: General Protection Fault in TALLER.EXE at 040F:2682\ncode=0000 ss=0977 ds=040F es=00C7\nax=3502 bx=0D0A cx=7FE5 dx=0957 sp=6BE0 bp=14F8 si=0056 di=0431[/b:gu0b9f1t]\n\n¿Alguna idea?\n\nLo he intentado con BLINKER, pero me dice que el programa es demasiado extenso y que no cabe en memoria. Le he hecho de todo, he probado todos los parámetros del HELP, y nada, nada de nada...\n\nPor otro lado, con XP no me valen los SET\'s del BAT (SET OBJ, SET BIN, etc...) y no sé si ahí está el problema o es del EXOSPACE+XP\n\nEl siguiente paso es pasarlo a FW, pero con todos las añadiduras que tiene, es enorme y me puedo pasar años antes de que quede como ahora, con lo que necesito que funcione mientras tanto lo paso, además necesito cambiar ya a xHarbour, y no puedo perder tiempo.\n\nGracias.','',0,'QA==','gu0b9f1t',1,0,'',375,0,0),(19164,4305,7,778,0,'200.152.43.193',1158753993,1,0,1,1,1,0,'','','Este é um exemplo do get numerico que fica a esquera e não a direita\nPrg exemplo\n\nAlguma ideia ?\n\n[code:3vhpku4x]\n#include &quot;FWCE&#46;ch&quot;\nfunction Main&#40;&#41;\n   local oWnd\n   local oDlg, cName &#58;= &quot;hello    &quot;\n   local nNumero &#58;= 0&#46;00\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;TestGet&quot;\n   REDEFINE GET cName ID 110 OF oDlg \n   REDEFINE GET nNumero ID 120 OF oDlg\n   REDEFINE BUTTON ID 1 OF oDlg ACTION oDlg&#58;End&#40;&#41;\n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil   \n[/code:3vhpku4x]\nRC Exemplo\n[code:3vhpku4x]\n#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\n#define I_IMAGENONE		&#40;-2&#41;\n#define IDS_HELP      104\n\ntestget DIALOG 10, 35, 139, 89\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;DialogBox Test&quot;\nFONT 8, &quot;system&quot;\n&#123;\n LTEXT &quot;Name&#58;&quot;, 100, 14, 4, 23, 8\n EDITTEXT 110, 12, 14, 114, 12\n LTEXT &quot;&amp;Número&#58;&quot;, -1, 14, 30, 32, 8\n EDITTEXT 120, 12, 41, 114, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n DEFPUSHBUTTON &quot;OK&quot;, IDOK, 14, 67, 50, 14\n PUSHBUTTON &quot;Cancel&quot;, IDCANCEL, 74, 67, 50, 14\n&#125;\n[/code:3vhpku4x]\nAbraços\nsaludos\n\nMauro','',0,'AIA=','3vhpku4x',1,0,'',778,0,0),(19165,4334,6,328,0,'72.252.42.161',1158754022,1,0,1,1,1,0,'','Alineameniento de Controles...','Hola, \nquiero preguntar si alguien sabe como cambiar la alineación (izquierda,derecha o centrado) de un control creado desde recursos (workShop), especificamente un Get (\"Edit text style\") desde tiempo de ejecución.\nEl problema es que tengo un dialogo con un get, que dependiendo un parametro puede ser númerico o texto, por lo que me gustaría poder cambiar su alineacion derecha o izquierda, ya que desde workshop solo puedo poner una de estas dos.\n\nEspero me puedan ayuda con esto. Saludos.\n\nCarlos Sincuir','',0,'AIA=','3g8fq9dt',1,0,'',328,0,0),(19166,4313,6,303,0,'72.199.41.171',1158754554,1,0,1,1,1,0,'','','define window oWnd mdichild of wndMain() nosysmenu','',0,'AIA=','2tezmd6y',1,0,'',303,0,0),(19167,4324,6,656,0,'83.230.172.223',1158754691,1,0,1,1,1,1,'','','Hola Antonio\n\n supuestamente es una clase de las que se incorporan que pertenecen a fivewin, de todas formas yo queria incluir la clase tbrowse, pero tampoco me deja, cuando he dejado solo las clases de borland resource ya me funciona la dll perfectamente,\n\n Muchas gracias, y disculpen las molestias\n\n Saludos\n\n Javier','',0,'AIA=','1lh714oc',1,0,'',656,0,0),(19168,4333,2,774,0,'200.72.202.179',1158758399,1,0,1,1,1,0,'','','yo utilizo clipper 53 con XP y no tengo ningun problema claro AHORA,,\n\nrecuerdo q el principio me costo un poco reordenar la Pc.\n\npero a ver si puedo ayudarte..\n\n?? cual Xp usas,, como compilas desde windows mismo o del DOS... la pantallita negra le digo yo..  \n\nte envio un .bat que uso para compilar ojala te sirva\n\nCLS                                                                           \nSET PATH=C:\\CLIP53\\BIN;C:\\WINDOWS\\SYSTEM32\n:cl53                                                                         \nSET INCLUDE=C:\\CLIP53\\INCLUDE                                                 \nSET LIB=C:\\CLIP53\\LIB                                                         \nSET OBJ=C:\\CLIP53\\OBJ                                                         \nSET PLL=C:\\CLIP53\\PLL                                                         \nclipp53 @col1 /p                                                              \nBLINKER FILE COL1 LIBRARY LLIBG.LIB OUTPUT MENU\n\nOjo Col1,, es de .CLP\nAhi guardo los .PRG\nsi son muchos Prgs.. creo otro .CLP y lo agrego','',0,'AIA=','3sqlhpkm',1,0,'',774,0,0),(19169,4335,6,292,0,'201.243.99.57',1158760674,1,0,1,1,1,1,'','Ejecutar Aplicacion DOS desde FWxH','Colegas,\ntengo un programa en Clipper DOS que utiliza una impresora fiscal, lo ejecuto desde mi aplicación con la siguiebte sintaxis:\n\nWAITRUN(\"BMC.EXE TICKET\",0)\n\nEn algunos PC aparece un recuado negro que muestra la consola DOS, al cliente le parece incómodo.\n\nExiste alguna forma de inahabilitar dicha pantalla?','',0,'AIA=','bz6wzj71',1,0,'',292,0,0),(19170,4331,7,790,0,'201.122.21.224',1158761169,1,0,1,1,1,0,'','testbrw.rc','Gracia Rene, de hecho lo hice como me indicas pero no me toma el recurso. \n\nGracias.','',0,'AIA=','2j0iotvg',1,0,'',790,0,0),(19171,3850,7,456,0,'62.43.194.117',1158763613,1,0,1,1,1,1,'','','Gracias Jose, tenia el link para descarga, pero al no hacer login era imposible descargarlo(aunque no me daba ningun mensaje de error). Ahora ya me lo he descargado.','',0,'AIA=','3ovcbfa0',1,0,'',456,0,0),(19172,4313,6,147,0,'201.253.21.96',1158764868,1,0,1,0,1,1,'','',':wink: , ya lo probé. En ese caso no muestra NINGUN botón!\n\ngracias, igualmente... ya lo implemnté mediante un VALID','',0,'AIA=','u2lwa1a3',1,0,'',147,0,0),(19173,4331,7,138,0,'189.141.70.60',1158767446,1,0,1,1,1,1,'','','Agrega la ruta a donde estan los archivos de cabecera, en este caso los de VCE:\n\n   #include \"c:\\vce\\include\\arm\\windows.h\"\n   #include \"c:\\vce\\include\\arm\\commctrl.h\"','',0,'AIA=','3ue3xn1x',1,0,'',138,0,0),(19174,4333,2,375,0,'84.122.104.147',1158768583,1,0,1,1,1,1,'','','Muchas Gracias A&amp;C (no se como te llamas) ya he solucionado el problema, al decirme lo de reorganizar, con el cambio de disco duro, estaba mesclando librerías de dos Clippers distintos (el 5.2 y el 5.3 con exospaces diferentes, y LIBs diferentes), pero ya los he puesto cada uno en su lugar, y como la seda.\n\nUn saludo','',0,'AIA=','15uwm3hb',1,0,'',375,0,0),(19175,4336,3,69,0,'206.210.97.138',1158768659,1,0,1,1,1,0,'','Get lock up problem','Hi Everybody,\n\nI have a strange problem and I can not figure out what is happening...\n\nIn my app I have a dialog that displays info that I read in from a serial port.  At a set time (5 seconds after data collection starts) I pop up a window asking for some user input.\n\nFor some reason, if the user tries to click OK as soon as the window opens the program locks up and the window will not close.\n\nAny Ideas?  (code below)\n\nThanks,\n\nJeff\n\nFunction GetBORG(nRecordNum)\n   LOCAL nBorg1:=0, nBorg2:=0, oBORG, oSayBorg, cBorgTitle\n\n   if ! empty( oBtn1Stop )\n      oBtn1Stop:Disable()\n   endif\n\n   if nRun = 1\n      cBorgTitle := \"Start Rest\"\n   elseif nRun = 2\n      cBorgTitle := \"DeSat-Room Air test\"\n   elseif nRun = 3 .and. lFirstRun\n      cBorgTitle := \"Start O2 Test\"\n      lStartO2 := .t.\n      lFirstRun := .f.\n   else\n      cBorgTitle := \"Same time as DeSat in Room Air\"\n   endif   \n   Define Window oBORG Title \"Enter BORG (\"+cBorgTitle+\")\" from 10,10 to 20,55 NOSYSMENU\n      @ 2,6.5 say oSayBorg PROMPT \"Dyspnea  \" of oBorg COLOR RGB(0,0,0),RGB(255,255,255)\n      @ 3.5,5  Get oGet var nBORG1 of oBORG SIZE 40,20 PICTURE \"99.9\"\n      @ 5,7.5 BUTTON oBtnBorgOK PROMPT \"OK\" SIZE 100,20 of oBORG ACTION (UpdateBORG(nRecordNum, nBORG1),oBORG:End())\n      oBtnBorgOK:Disable()\n      oBORG:Center()\n   Activate window oBORG\n   SysWait(.01)\n   SetWindowPos(oBORG:hWnd, -1,0,0,0,0,3)\nReturn Nil\n\n\nFunction UpdateBORG(nRecordNum, mData1 )\n   Use OxData Shared NEW Alias \"BORG\"\n   dbgoto( nRecordNum )\n   do while ! rlock()\n   enddo\n   BORG-&gt;BaseDys := mData1\n   BORG-&gt;WalkMark := .t.\n   if nRun = 1\n      mSatRest := VAL(SubStr(BORG-&gt;Data,6,3))\n      mDysRest := mData1\n   elseif nRun = 2\n      mSatEndAir  := VAL(SubStr(BORG-&gt;Data,6,3))\n      lManualDeSat:=.t.\n      mDysAir  := mData1\n      Borg-&gt;TextMark := \"*\"\n      BORG-&gt;O2 := .t.      \n   else  //nRun=3\n      if lStartO2\n         mSatO2 := VAL(SubStr(BORG-&gt;Data,6,3))\n         mDysO2 := mData1\n         lStartO2 := .f.\n         BORG-&gt;Stopped := .t.\n      else\n         mFatRest:= mData1  \n      endif\n   endif      \n   use\n   if ! empty( oBtn1Stop )\n      oBtn1Stop:Enable()\n   endif\nReturn Nil','',0,'AIA=','2kgtehrj',1,0,'',69,0,0),(19176,4324,6,2,0,'87.218.146.49',1158769207,1,0,1,1,1,1,'','','Javier,\n\nPara usar browses, tienes que especificar la clase de control \"TWBrowse\" en el recurso, en vez de \"TCal\".','',0,'AIA=','161i6pgl',1,0,'',2,0,0),(19177,4337,7,106,0,'85.34.123.173',1158769366,1,0,0,1,1,1,'','error al ejecutar programa en SD','Tengo este problema: Estoy ejecutando el programa a partir de la SD, si apago el pocket con el programa activado, al salir del programa me da error irreversible, etc, etc.\nSi en vez ejecuto el programa en la memoria interna del pocket no tengo este problema.\n\nAlguna idea?\n\nGracias.\n\nP.D. Mi jefe pretende que el programa sea ejecutado en la SD...','',0,'AIA=','66lap4v6',1,0,'',106,0,0),(19178,4334,6,375,0,'84.122.104.147',1158770902,1,0,1,1,1,1,'','','Carlos, yo tuve ese mismo problema y obté por lo siguiente:\n\nRedefino el dialogo con todos los controles salvo los Gets en cuestión. (lo que no recuerdo es si lo creéen el resource o no, creo que no, pues estoy cambiando el sistema y aún no he instalado el WorkShop, intentalo sin crearlos)\n\nDEFINE DIALOG oDlg ....\n...\n...\n      REDEFINE BITMAP oBit[1] ID 600 NAME \"IZQ1\"  OF oDlg CURSOR oCurH ;\n	       ON CLICK QueMarg(oDlg,oFont,oBit,oGet,.T.,0) // [b:rf5fvjyi]BOTON ALINEAR A LA IZQUIERDA[/b:rf5fvjyi]\n\n      REDEFINE BITMAP oBit[2] ID 601 NAME \"CNT1\"  OF oDlg CURSOR oCurH ;\n	       ON CLICK QueMarg(oDlg,oFont,oBit,oGet,.T.,2)  // [b:rf5fvjyi]BOTON ALINEAR AL CENTRO[/b:rf5fvjyi]\n\n      REDEFINE BITMAP oBit[3] ID 602 NAME \"DCH1\"  OF oDlg CURSOR oCurH ;\n	       ON CLICK QueMarg(oDlg,oFont,oBit,oGet,.T.,1)  // [b:rf5fvjyi]BOTON ALINEAR A LA DERECHA[/b:rf5fvjyi]\n...\nREDEFINE mas Controles...\n...\n...\nACTIVATE DIALOG oDlg ON INIT QueMarg(oDlg,oFont,oBit,oGet,.F.,0)\n\nFUNCTION QueMarg(oDlg,oFont,oBt,Gt,lCtrl,nJust)\n   IF !lCtrl\n      oGt[1]:Destroy()  // [b:rf5fvjyi]DESTRUYO LOS GETs SI ESTABAN CREADOS CON ANTERIORIDAD[/b:rf5fvjyi] (LA PRIMERA VEZ NO LO ESTABAN)\n      oGt[2]:Destroy()\n      oGt[3]:Destroy()\n      oGt[1]:End()\n      oGt[2]:End()\n      oGt[3]:End()\n      oGt[1] := NIL\n      oGt[2] := NIL\n      oGt[3] := NIL\n      SysRefresh()\n   ENDIF\n   aVr[1] := ALLTRIM( aVr[1] )  // [b:rf5fvjyi]LE QUITO LOS ESPACIOS SOBRANTES A LAS VARIABLES DE LOS GETs [/b:rf5fvjyi]DE CUANDO ESTAN JUSTIFICADAS A LA DERECHA O AL CENTRO\n   aVr[2] := ALLTRIM( aVr[2] )\n   aVr[3] := ALLTRIM( aVr[3] )\n\n   IF nJust = 0  // [b:rf5fvjyi]SE CREAN LOS GET\'s JUSTIFICADOS A LA IZQUIERDA[/b:rf5fvjyi]\n      oBt[1]:SetBmp( \"IZQ2\" ) ; oBt[1]:Disable()\n      oBt[2]:SetBmp( \"CNT1\" ) ; oBt[2]:Enable()  // [b:rf5fvjyi]BOTON JUSTIFICAR A LA IZQUIERDA PRESIONADO Y DESHABILITADO[/b:rf5fvjyi]\n      oBt[3]:SetBmp( \"DCH1\" ) ; oBt[3]:Enable()\n      aVr[1]:= PADR(aVr[1],45)\n      aVr[2]:= PADR(aVr[2],45)\n      aVr[3]:= PADR(aVr[3],45)\n      @  60,228 GET oGt[1] VAR aVr[1] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\" ;\n		COLOR CLR_OBLUE FONT oFnt\n      @  83,228 GET oGt[2] VAR aVr[2] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\" ;\n		COLOR CLR_OBLUE FONT oFnt\n      @ 106,228 GET oGt[3] VAR aVr[3] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\" ;\n		COLOR CLR_OBLUE FONT oFnt\n\n   ELSEIF nJust = 2  // [b:rf5fvjyi]SE CREAN LOS GET\'s JUSTIFICADOS AL CENTRO[/b:rf5fvjyi]\n      oBt[1]:SetBmp( \"IZQ1\" ) ; oBt[1]:Enable()\n      oBt[2]:SetBmp( \"CNT2\" ) ; oBt[2]:Disable() //  [b:rf5fvjyi]BOTON JUSTIFICAR AL CENTRO PRESIONADO Y DESHABILITADO[/b:rf5fvjyi]\n      oBt[3]:SetBmp( \"DCH1\" ) ; oBt[3]:Enable()\n      aVr[1]:= PADR(aVr[1],45)\n      aVr[2]:= PADR(aVr[2],45)\n      aVr[3]:= PADR(aVr[3],45)\n      @  60,228 GET oGt[1] VAR aVr[1] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\" ;\n		COLOR CLR_OBLUE FONT oFnt CENTER\n      @  83,228 GET oGt[2] VAR aVr[2] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\" ;\n		COLOR CLR_OBLUE FONT oFnt CENTER\n      @ 106,228 GET oGt[3] VAR aVr[3] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\" ;\n		COLOR CLR_OBLUE FONT oFnt CENTER\n\n   ELSE  // [b:rf5fvjyi]SE CREAN LOS GET\'s JUSTIFICADOS A LA DERECHA[/b:rf5fvjyi]\n      oBt[1]:SetBmp( \"IZQ1\" ) ; oBt[1]:Enable()\n      oBt[2]:SetBmp( \"CNT1\" ) ; oBt[2]:Enable()\n      oBt[3]:SetBmp( \"DCH2\" ) ; oBt[3]:Disable()[b:rf5fvjyi]BOTON JUSTIFICAR A DERECHA PRESIONADO Y DESHABILITADO[/b:rf5fvjyi]\n      aVr[1]:= PADL(aVr[1],45)\n      aVr[2]:= PADL(aVr[2],45)\n      aVr[3]:= PADL(aVr[3],45)\n      @  60,228 GET oGt[1] VAR aVr[1] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\"     ;\n	        VALID(aVr[1] := PADL(ALLTRIM(aVr[1]),45),oGt[1]:cText(aVr[1]),.T.) ;\n	        COLOR CLR_OBLUE FONT oFnt RIGHT\n      @  83,228 GET oGt[2] VAR aVr[2] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\"     ;\n	        VALID(aVr[2] := PADL(ALLTRIM(aVr[2]),45),oGt[2]:cText(aVr[2]),.T.) ;\n	 	COLOR CLR_OBLUE FONT oFnt RIGHT\n      @ 106,228 GET oGt[3] VAR aVr[3] OF oDlg PIXEL SIZE 350,20 PICTURE \"@S45\"     ;\n	        VALID(aVr[3] := PADL(ALLTRIM(aVr[3]),45),oGt[3]:cText(aVr[3]),.T.) ;\n		COLOR CLR_OBLUE FONT oFnt RIGHT\n   ENDIF\nCtl3dLook(oGt[1]:hWnd)\nCtl3dLook(oGt[2]:hWnd)\nCtl3dLook(oGt[3]:hWnd)\n   SysRefresh()\nRETURN NIL\n*\n\nComo ves, a cada vez que pulso sobre el boton un boton de justificacion destruyo los GET\'s y los vuelvo a crear. Es la única solución que encontré, y me va de maravilla.\n\nEspero que te sirva la ayuda.\n\nUn saludo.','',0,'QA==','rf5fvjyi',1,0,'',375,0,0),(19179,4331,7,790,0,'201.122.21.224',1158771108,1,0,1,1,1,0,'','ejemplo de listbox o browse.','ya lo anexe pero no me da el browse\n\nPerdon no tendras un ejemplor de listbox o algo similar\n\n\ngracias.\nElias Oros.','',0,'QA==','1oyxq0t7',1,0,'',790,0,0),(19180,4336,3,217,0,'200.159.120.34',1158771151,1,0,1,1,1,0,'','Re: Get lock up problem','Jeff,\n\nTry any like do a SysRefresh() before activate dialog or SysWait(nSeconds) and SysRefresh()...\n\ndefine dialog .......\n(...)\n\nSysWait(2)   // wait 2 seconds\nSysRefresh()\n\nactivate dialog....\n\nWhat I think is \"let a time\" to your program when it let last window and will display the new...\n\nRegards,\nMaurilio','',0,'QA==','3t3eb0bn',1,0,'',217,0,0),(19181,4334,6,396,0,'201.210.24.69',1158773788,1,0,1,1,1,1,'','','Si usas Pelles C o Visual C, lo puedes hacer directo en el recurso y es mas rapido y seguro...','',0,'QA==','2t6vksar',1,0,'',396,0,0),(19182,4328,6,396,0,'201.210.24.69',1158774915,1,0,1,1,1,0,'','','Sigo con Visual C....','',0,'QA==','3u4h2kvc',1,0,'',396,0,0),(19183,4338,2,774,0,'200.72.202.179',1158775054,1,0,1,1,1,0,'','Para manuramos','Hola estimado,, bueno me presento mi nombre es CLAUDIO soy de chile, y programo en clipper de 1986,, hace poco con fivewin 2.4+clipp53+blinker..\n \n\nuna consulta he leido los respuestas de este foro,, quizas me puedas ayudar ,, :: quiero migrar de FHW,, no se por dnd partir,, y tu lo haz hecho te combiaste o aun no..\n\ncreo tener lo necesario pero nose como.. tengo mira.::\n\nBCC55 \nHARBOUR\nFHW 2.6\n\npero nose como\n\nOtra cosa,, sabes donde puedo conseguir un buen manual para hacer CLASES  ,, por lo q he leido en este foro tu al parecer sabes del tema\n\n\nOjal Puedas Ayudarme\n\nGRACIAS\n\nnos leemos','',0,'QA==','3iombday',1,0,'',774,0,0),(19184,4339,6,180,0,'83.45.251.236',1158775273,1,0,1,1,1,0,'','Ejecucion de subprograma en MS-DOS','Estoy pasando de FW a FWH y encontrándome con algunos problemillas. Uno de ellos es que en FW ejecuto WinExec(\"miprogmsdos.exe\") y va perfecto. Con FWH ni siquiera aparece la ventana ms-dos. \nHe probado con WaitRun y ShellExecute y el resultado es el mismo.\n\nAlguna idea?\n\n-------------------------\nWXP\nFWH 2.8\nxHarbour  build 0.99.61','',0,'QA==','3k9v1o6s',1,0,'',180,0,0),(19185,4321,6,396,0,'201.210.24.69',1158775842,1,0,1,1,1,0,'','','Tengo el mismo problema que tu, lo remende colocando al ojbjeto 1 WHEN de una variable que modifico cuando deseo, se ve mejor, deseo lo mismo que tu, principalmente en los oGET, si resuelves te agradeceria....','',0,'QA==','329fkhrn',1,0,'',396,0,0),(19186,4336,3,6,0,'87.1.225.194',1158776526,1,0,1,1,1,1,'','Re: Get lock up problem','SysWait() is nothing more than a loop of SysRefresh().\n\nEMG','',0,'QA==','31sjevgb',1,0,'',6,0,0),(19187,4335,6,533,0,'80.32.177.143',1158776566,1,0,1,1,1,0,'','','Buenas Jnavas:\n\n   Yo uso winexec(\"\",&lt;parametro&gt;\")\n\n   quiero recordar que cambiando el parametro a 1 o 5 no te sale, prueba cambiando waitrun con lo mismo.','',0,'QA==','16hyfhjc',1,0,'',533,0,0),(19188,4321,6,9,0,'85.60.1.110',1158776753,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:gnorod9g]\nCualquier ayuda que puedas brindarme la apreciaré grandemente. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->[/quote:gnorod9g]\n\nAunque es una solución \"chapucera\" la he probado y funciona.- Se trata de poner un SIZE corto al COMBOBOX y ponerle un SAY con el texto.- He probado el siguiente código en una aplicación y funciona:\n\n@ 53,  39 CHECKBOX oChk2 VAR oDbf:PER_FEC ;\n             PROMPT \"  \"  SIZE 10,8 ; \n             OF oFol:aDialogs[1] PIXEL \n\n@ 53, 50 SAY oSay[3] PROMPT \"Concepto en meses\"OF oFol:aDialogs[1] PIXEL\n\noChk2:disable()\n\nMe imagino que habrá soluciones mejores.','',0,'gA==','gnorod9g',1,0,'',9,0,0),(19189,4281,7,533,0,'80.32.177.143',1158776935,1,0,1,1,1,0,'','','Carles, serias tan amable de enviarme a mi tambien el ejemplo?\n\n\nMUCHAS GRACIAS!','',0,'gA==','24i2ne8v',1,0,'',533,0,0),(19190,4340,7,533,0,'80.32.177.143',1158777215,1,0,1,1,1,0,'','PDA sin wifi','Buenas Foro!!\n\n   Tengo un problema a ver si tiene solución. El caso es que tengo una PDA que no tiene wifi, solo la puedo conectar a la base y esta al PC. ¿Existen alguna forma de estando conectada al PC con la base, abrir una tabla .dbf que este en el PC para añadirle registros?','',0,'gA==','3hoi6ml8',1,0,'',533,0,0),(19191,4341,1,47,0,'203.144.143.2',1158777306,1,0,1,1,1,0,'','How can I check what is the GPF error?','Dear All,\n\nHow can I check the problem of GPF error?  It shows only address xxxx:xxxx.  I don\'t know what is the problem of this error?\n\nBest regards,\nDutch','',0,'gA==','1eio5khd',1,0,'',47,0,0),(19192,4321,6,439,0,'190.0.142.150',1158777542,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:3uf9nkca]Tengo el mismo problema que tu, lo remende colocando al ojbjeto 1 WHEN de una variable que modifico cuando deseo, se ve mejor, deseo lo mismo que tu, principalmente en los oGET, si resuelves te agradeceria....[/quote:3uf9nkca]\n\nJosé Luis, \nLo de los gets se resuelve así:\n\nEn la clase tGet, se modifica la línea que dice:\n#define COLOR_GRAYTEXT       17  \nSustituyendola por:\n[i:3uf9nkca]#define COLOR_GRAYTEXT       8 [/i:3uf9nkca]\n\nbasta con este cambio para que funcione perfectamente. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'oA==','3uf9nkca',1,0,'',439,0,0),(19193,4321,6,439,0,'190.0.142.150',1158777644,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:265jpfgh][quote=&quot;jose_murugosa&quot;:265jpfgh]\nCualquier ayuda que puedas brindarme la apreciaré grandemente. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->[/quote:265jpfgh]\n\nAunque es una solución \"chapucera\" la he probado y funciona.- Se trata de poner un SIZE corto al COMBOBOX y ponerle un SAY con el texto.- He probado el siguiente código en una aplicación y funciona:\n\n@ 53,  39 CHECKBOX oChk2 VAR oDbf:PER_FEC ;\n             PROMPT \"  \"  SIZE 10,8 ; \n             OF oFol:aDialogs[1] PIXEL \n\n@ 53, 50 SAY oSay[3] PROMPT \"Concepto en meses\"OF oFol:aDialogs[1] PIXEL\n\noChk2:disable()\n\nMe imagino que habrá soluciones mejores.[/quote:265jpfgh]\n\nManuel Gracias por tu respuesta, había pensado algo parecido, pero pensé lo mismo que tú de ello, pero si no surjen mejores ideas, creo que es una solución muy válida.\n\nGRACIAS POR TU BUENA DISPOSICION A AYUDAR!!! Si te surge alguna idea sobre los comboboxes seré todo oídos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nGURUES, MASTERS Y OTROS!!! OS CONVOCO <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','265jpfgh',1,0,'',439,0,0),(19194,4325,2,78,0,'190.40.249.69',1158777799,1,0,1,1,1,0,'','','A ver como va esto,,,  (lo hacia años atras)\nFunction Num2ChrC(nValor)\nlocal nEntero, nDecimal, cNumero, cNumCrpt\n\nnEntero := INT(nValor)\nnDecimal := FRAC(nValor)\n\ncNumero := STRZERO(nEntero, 14)  // quedaria +-  asi 00000000034567\ncNumero := cNumero + ALLTRIM(STR(nDecimal))\n\ncNumCrpt := ENCRYPT(cNumero)\n\nReturn(cNumCrpt)\n\n// la idea es que a la parte entera del numero, la coviertas en una cadena de longitud fija, en este caso 14 caracteres, concatenas la parte fraccionaria,,,\npara desencriptar, algo asi:\n\nFunction ChrC2Num(cNumCrpt)\nlocal cEntero, cDecimal, cNumero, nNumero\n\ncNumero := DECRYPT(cNumCrpt)\ncEntero := SUBSTR(cNumero,1,14)\ncDecimal := SUBSTR(cNumero,15,5) \ncNumero := cEntero + \".\" + cDecimal\nnNumero := VAL(cNumero)\nReturn(nNumero)\n\n//  bueno, esto lo hice de volada,, asi que deben haber errores,,, pero la idea esta alli....\n\nSalu2\nWilli','',0,'gA==','9w7so3ej',1,0,'',78,0,0),(19195,4342,6,501,0,'200.32.103.194',1158778162,1,0,1,1,1,0,'','Que versión usar de xHarbour? Gracias.','[b:3w2xmyct]Antonio / Rene o quién me pueda indicar[/b:3w2xmyct] que version de xHarbour usar para mi version FWH 2.6 de fines de 2005 (no tengo en esta pc instalado el fwh por eso no recuerdo bien a que fecha era) y que ande establemente, estoy con la 0.99.61 y no se que carancho pasa pero las ventanas no abren y se cuelga la pc, los controles dentro de los dialogos no todos me responden al mouse pero si al tab, los listbox se ven horribles sin marco ni barras de scroll, estan pero estan mal pintadas, no se salvo que los ejemplos que tengo de fwh no anden con xHarbour.\n\nOtra cosa rara que pasa es cuando hay un error y se abre el dialogo del ErrorSys de fivewin la lista de llamadas aparece vacia, datos tiene por que editando error.log estan pero no los muestra en el dialogo, es como que no me toma el control edit en formato memo.\n\nSi alguien tiene un par de ejemplos para definir ventanas no MDI , dialogos aparte de los que tengo en la carpeta samples se lo agradeceria mucho.\n\n[b:3w2xmyct]Saludos desde Córdoba - Argentina[/b:3w2xmyct]','',0,'QA==','3w2xmyct',1,0,'',501,0,0),(19196,4336,3,217,0,'200.159.120.34',1158778852,1,0,1,1,1,0,'','Re: Get lock up problem','Enrico,\n\nI thought SysWait( ) was a FW version of Windows Sleep API function...\nI\'m confused  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRegards!\nMaurilio','',0,'QA==','3jxec0t0',1,0,'',217,0,0),(19197,4343,2,518,0,'201.124.176.52',1158781091,1,0,1,1,1,0,'','fw + mysql + ado','Hola,\nEstoy haciendo un sistemita basico con FW y MYSQL. Ya tengo la conexion con ODBC y puedo conectarme y leer datos. lo que no puedo hacer es actualizar datos...\n\nalguien tiene algun ejemplo basico de como actualizar datos utilizando variables del programa en FW y pasandolas a  algo como esto ?     \n\ncsql:=\"UPDATE prontuario set c11 = \' \"+ STR(CANT) + \" \'  where cod = \' CODINST \' \"\n\nhe visto que estan mencionando ADO como una mejor solucion para accesor BD SQl.  \n\n1.- Se puede usar con FW  ?\n\n2.- Alguien tiene un ejemplo de los pasos basicos ?\n\n  -- abrirla\n  -- consultar\n  -- actualizar por medio de bsuquedas etc...\n\n\nGracias','',0,'QA==','1nfomjdi',1,0,'',518,0,0),(19198,4344,6,228,0,'201.245.193.4',1158782504,1,0,1,1,1,1,'','Como saber en que directorio se encuentra el exe?','Amigo del foro como dice el encabezado...\n\nComo hago para saber la ruta desde la cual se esta corriendo el exe?\n\nDe antemano gracias','',0,'QA==','qrse854k',1,0,'',228,0,0),(19199,4340,7,2,0,'87.218.146.49',1158783037,1,0,1,1,1,1,'','','Mike,\n\nSi, lo que tienes que hacer es configurar la conexión de red del Pocket PC (IP, DNS, etc.) y una vez que lo hagas, será como otro PC más en la red local.','',0,'QA==','o1wlj2f1',1,0,'',2,0,0),(19200,4342,6,2,0,'87.218.146.49',1158783219,1,0,1,1,1,1,'','','Carlos,\n\nEn <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m --> tienes un histórico de builds de Harbour y xHarbour. Prueba con los más antiguos.','',0,'QA==','3ifi1h4u',1,0,'',2,0,0),(19201,4336,3,6,0,'87.1.225.194',1158784000,1,0,1,1,1,1,'','Re: Get lock up problem','No, it isn\'t.\n\nEMG','',0,'QA==','20e78uq2',1,0,'',6,0,0),(19202,4341,1,6,0,'87.1.225.194',1158784151,1,0,1,1,1,1,'','Re: How can I check what is the GPF error?','Start putting some alerts to identify the last line that is executed before the GPF.\n\nEMG','',0,'QA==','3ccf7cql',1,0,'',6,0,0),(19203,4345,6,52,0,'201.212.71.153',1158786020,1,0,1,1,1,1,'','oTimer:Deactivate()','Amigos,\n\nTengo esto:\n[code:2lq0m7yp]   oDlg&#58;= oDlgEnlace&#40; @oBrw, oTextos, oBtns, oBmp &#41;\n\n   //----------&#40; Acción del botón &#41;----------\n\n   oBtns&#91;1&#93;&#58; bAction&#58;=&#123;|| oTimer&#58;deactivate&#40;&#41; &#125;\n   oBtns&#91;2&#93;&#58; bAction&#58;=&#123;|| oTimer&#58;activate&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ON init &#40;;\n      BuildTimer&#40; @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg &#41;,;\n      oBrw&#58; SetFocus&#40;&#41;,;\n      oBrw&#58; ResetBarPos&#40;&#41;,;\n      oBrw&#58; UpStable&#40;&#41;,;\n      oBrw&#58; Reset&#40;&#41;,;\n      oBrw&#58; Refresh&#40;&#41;,;\n      oBrw&#58; gobottom&#40;&#41;,;\n      &#41;\n[/code:2lq0m7yp]\n\nPero cuando se ejecuta y presiono el oBtns[1] o rl oBtns[2] me dice:\n\n[quote:2lq0m7yp]   Error description: Error BASE/1004  Class: \'LOGICAL\' has no exported method: ACTIVATE[/quote:2lq0m7yp]\n\nPor qué? solución?\n\nGracias','',0,'gIA=','2lq0m7yp',1,0,'',52,0,0),(19204,4346,3,98,0,'70.71.111.92',1158786289,1,0,1,1,1,1,'','TreeView &amp; Splitters','Hello everybody:\n\nI\'m using the TreeView class (SysTreeView32) for the first time and I\'m trying to deploy something similar to what you have when you open\na chm help file:\n\na) a tree on the left\nb) a splitter on the middle\nc) a nonmodal dialog or a tpanel or whatever works to display info on the right side.\n\nSo far I\'m stumped so I\'m asking for a bit of help here.  I\'m using testtree.prg from the samples folders as a start, but neither of the following works.  Any hints?\n\n....\n   oPanel := TPanel():New( 0, 0, 75, 300, oWnd )\n\n   @ 29, 200 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oTree ;\n      ;//HINDS CONTROLS oPanel ;\n      SIZE 4, 200 PIXEL ;\n      LEFT MARGIN 20 ;\n      RIGHT MARGIN 25 ;\n      OF oWnd\n\n   oPanel:oLeft := oSplit\n\n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit:AdjClient()\n\nnor:\n\n...\n   DEFINE DIALOG oDlg OF oWnd ;\n      STYLE nOR( WS_CHILD, WS_VISIBLE ) ;\n      COLOR CLR_WHITE, CLR_BLUE  // color just to see where it\'s painting\n\n   @ 29, 200 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oTree ;\n      HINDS CONTROLS oDlg ;\n      SIZE 4, 200 PIXEL ;\n      LEFT MARGIN 20 ;\n      RIGHT MARGIN 25 ;\n      OF oWnd\n\n   ACTIVATE DIALOG oDlg NOMODAL\n\n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit:AdjClient()\n\n...\n\nAny ideas and experience with the native Windows tree class is very much appreciated.\n\nRegards,\n\nLuis Krause','',0,'gIA=','31v70ly8',1,0,'',98,0,0),(19205,4346,3,2,0,'87.218.146.49',1158786427,1,0,1,1,1,1,'','','Luis,\n\nYou may review samples\\re.prg','',0,'gIA=','28vddb79',1,0,'',2,0,0),(19206,4341,1,2,0,'87.218.146.49',1158786580,1,0,1,1,1,1,'','','Dutch,\n\nPlease create a MAP file using MAP A,S from the LNK file, and search for the GPF address into the MAP file.','',0,'gIA=','3w1h50q3',1,0,'',2,0,0),(19207,4344,6,2,0,'87.218.146.49',1158786677,1,0,1,1,1,1,'','','Leandro,\n\nMsgInfo( HB_ArgV( 0 ) )','',0,'gIA=','6brq4e3g',1,0,'',2,0,0),(19208,4344,6,492,0,'201.154.126.49',1158786720,1,0,1,1,1,1,'','','Leandro :\n\ncPathActual := CurDrive() + \":\\\" + Curdir()\n\nSaludos','',0,'gIA=','qduyw2qs',1,0,'',492,0,0),(19209,4339,6,2,0,'87.218.146.49',1158786806,1,0,1,1,1,1,'','','Manuel,\n\nPrueba este ejemplo:\n[code:2q7v3jco]\nfunction Main&#40;&#41;\n\n   WinExec&#40; &quot;calc&#46;exe&quot; &#41;\n\nreturn nil\n[/code:2q7v3jco]','',0,'AIA=','2q7v3jco',1,0,'',2,0,0),(19210,4325,2,2,0,'87.218.146.49',1158786965,1,0,1,1,1,1,'','','Willi,\n\nLa idea sería hacer una función que a partir de un número proporcione otro número que es el resultado de encriptar el primero. Asi el resultado podría salvarse en la base de datos (como número).','',0,'AIA=','h1jun319',1,0,'',2,0,0),(19211,4346,3,98,0,'70.71.111.92',1158789961,1,0,1,1,1,1,'','','Antonio:\n\nThanks for the quick reply.\n\nThat sample actually answered another question I had, which was how to assign different bmp to different branches in the tree.  So thanks for reading my mind before I even posted the question <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWhat I\'m still battling is how to place a TDialog or TPanel object to the\n\n*right* of the vertical splitter, so that I have a sort of canvar on which to deploy whatever text or graphics I might need.\n\nIn the past I\'ve embeded a dialog with no caption inside a window to which I place controls on.  Whenever the windows is resized, I automatically resize the embeded dlg with something like\n\n  oWnd:bResized := {|| ;\n            oDlg:Move( 0, 0, oIFWnd:nWidth, oWnd:nHeight, .t. ) }\n\nI\'m trying to achive a similar thing but I seem to have hit a wall!\nI\'m sure the answer is right in front of me, but I just can\'t see it.\n\n[quote=&quot;Antonio Linares&quot;:wo3b6wkf]Luis,\n\nYou may review samples\\re.prg[/quote:wo3b6wkf]','',0,'gA==','wo3b6wkf',1,0,'',98,0,0),(19212,4347,6,743,0,'200.79.46.141',1158791461,1,0,1,1,1,0,'','activeX Error','Tengo la siguiente duda por que me sale el error, con la libreria activeX\n[b:1cr9i5bg]Error: \'C:\\ACTIVEX.LIB\' contains invalid OMF record, type 0x21 (possibly COFF), [/b:1cr9i5bg]','',0,'RA==','1cr9i5bg',1,0,'',743,0,0),(19213,4339,6,362,0,'200.168.52.156',1158792017,1,0,1,1,1,1,'','','[code:3rl20gd2]\nSTATIC FUNCTION ARCHIVO&#40;&#41;\n\n       LOCAL Nome_Arq, nRegistro\n\n        IF !FILE&#40; &quot;ARCHIVO&#46;BAT&quot; &#41;\n\n            NOME_ARQ &#58;= FCREATE&#40;&quot;ARCHIVO&#46;BAT&quot;&#41;\n\n            NREGISTRO &#58;= &quot;@ECHO OFF&quot;                                          ;\n                         + CRLF        +                                      ;\n                         &quot;CLS&quot;         +                                      ;\n                         + CRLF + CRLF +                                      ;\n                         &quot;BALCAOW&#46;EXE&quot; +                                      ;\n                         + CRLF + CRLF +                                      ;\n                         &quot;CLS&quot;         +                                      ;\n                         + CRLF        +                                      ;\n                         &quot;EXIT&quot;\n\n            FWRITE&#40; NOME_ARQ, NREGISTRO &#41;\n            FCLOSE&#40; NOME_ARQ &#41;\n\n        ENDIF\n\n        WinExec&#40; &quot;ARCHIVO&#46;BAT&quot;, 0 &#41;\n\n    ENDIF\n\nRETURN NIL\n[/code:3rl20gd2]','',0,'AIA=','3rl20gd2',1,0,'',362,0,0),(19214,4346,3,303,0,'72.199.41.171',1158793914,1,0,1,1,1,0,'','','Luis,\n\nHey, I was wondering what happened to you, Luis. Good to see you on the forum again.\n\n[quote:h23ixzqv]In the past I\'ve embeded a dialog with no caption inside a window to which I place controls on. Whenever the windows is resized, I automatically resize the embeded dlg with something like...[/quote:h23ixzqv]\n\nResizing is handled by the splitter. Take a look at the syntax in the splitter examples testspl1.prg - testspl6.prg.\n\nYou must be close to seeing the fall colors up there?\n\nJames','',0,'gA==','h23ixzqv',1,0,'',303,0,0),(19215,4348,6,121,0,'189.135.87.19',1158795323,1,0,1,1,1,1,'','PROBLEMA CON EXCEL','Tengo esta rutina, me crea la hoja de calculo OK, pero al cerrarla con\noSHEET:END()   manda el siguiente error:\n\nError description: Error EXCEL.APPLICATION:ACTIVESHEET/3  DISP_E_MEMBERNOTFOUND: END\n \n\n\nFUNCTION DEMOXLS\n CursorWait()\n oXls:=TOLEAUTO():NEW(\"EXCEL.APPLICATION\")\n oXls:WORKBOOKS:ADD()\n oBOOK:=oXLS:GET(\"ActiveWorkBook\")\n oSHEET:=oXLS:GET(\"ActiveSheet\")\n *\n oSHEET:CELLS(6,1):VALUE=\"CUEN\"\n oloSHEET:CELLS(6,2):VALUE=\'SCTA\'\n oSHEET:CELLS(6,3):VALUE=\'SSCT\'\n *\n XARCH=\'AUXILIAR.XLS\'\n oSHEET:SAVEAS(XARCH)\n oXLS:VISIBLE:=.T.\n oSHEET:END()\n oBOOK:END()\n oXLS:END()\n CursorArrow()\nRETURN NIL','',0,'gA==','26j54la5',1,0,'',121,0,0),(19216,4331,7,138,0,'189.141.70.60',1158797032,1,0,1,1,1,1,'','','Enviado a tu privado.','',0,'gA==','1sc6123q',1,0,'',138,0,0),(19217,4348,6,138,0,'189.141.70.60',1158798046,1,0,1,1,1,1,'','','\"CREO\" que no es END(), eso destrue los objetos creados, mas bien creo que  el metodo es QUIT() para destruir la instancia de Excel, Vykthor debe saber mas de eso.','',0,'gA==','lu833f1n',1,0,'',138,0,0),(19218,4348,6,121,0,'189.135.87.19',1158799125,1,0,1,1,1,1,'','','Gracias Rene\n\nPero esta rutina funcionaba bien en versiones anteriores\nde xharbour 0.82.0','',0,'gA==','yiw9xzsv',1,0,'',121,0,0),(19219,4349,2,66,0,'201.212.129.242',1158799157,1,0,1,0,1,0,'','Ayuda urg. Runtime error 202 ar 0001:248c','Estimados Colegas\n\nTengo un browse (twbrowse) que ha medida que me voy desplazando\nme va mostrando las distintas fotos, cuando me quiero desplazar para\narriba para abajo con las teclas del cursor , me da el siguiente error\nruntime error 202  \n\nUtilizo la Clase Timage,Twbrowse1.6,Clipper 53 y blinker 7\n\ndesde ya muchisimas gracias\nfabian\n<!-- e --><a href=\"mailto:datbaselab2002@yahoo.com.ar\">datbaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','2xer2zfe',1,0,'',66,0,0),(19220,4341,1,47,0,'203.144.143.6',1158803403,1,0,1,1,1,0,'','Thanks a lot','Dear Enrico,\n\nThanks, I\'ll try to check it.\n\nDear Antonio,\n\nThanks, And TSocket is working now with build Sep 13.\n\nBest regards,\nDutch','',0,'gA==','bext4n7l',1,0,'',47,0,0),(19221,4345,6,54,0,'189.132.112.138',1158804240,1,0,1,1,1,1,'','Re: oTimer:Deactivate()','Goos,\n\nParece ser que oTimer no está iniciado, al no iniciarse no hay metodo activate() o deactivate(); hay que checar si se activa el timer o no.\n\nWill Morales\n\n[quote=&quot;goosfancito&quot;:2j926esf]Amigos,\n\nTengo esto:\n[code:2j926esf]   oDlg&#58;= oDlgEnlace&#40; @oBrw, oTextos, oBtns, oBmp &#41;\n\n   //----------&#40; Acción del botón &#41;----------\n\n   oBtns&#91;1&#93;&#58; bAction&#58;=&#123;|| oTimer&#58;deactivate&#40;&#41; &#125;\n   oBtns&#91;2&#93;&#58; bAction&#58;=&#123;|| oTimer&#58;activate&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ON init &#40;;\n      BuildTimer&#40; @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg &#41;,;\n      oBrw&#58; SetFocus&#40;&#41;,;\n      oBrw&#58; ResetBarPos&#40;&#41;,;\n      oBrw&#58; UpStable&#40;&#41;,;\n      oBrw&#58; Reset&#40;&#41;,;\n      oBrw&#58; Refresh&#40;&#41;,;\n      oBrw&#58; gobottom&#40;&#41;,;\n      &#41;\n[/code:2j926esf]\n\nPero cuando se ejecuta y presiono el oBtns[1] o rl oBtns[2] me dice:\n\n[quote:2j926esf]   Error description: Error BASE/1004  Class: \'LOGICAL\' has no exported method: ACTIVATE[/quote:2j926esf]\n\nPor qué? solución?\n\nGracias[/quote:2j926esf]','',0,'gIA=','2j926esf',1,0,'',54,0,0),(19222,4350,6,37,0,'200.121.191.86',1158807900,1,0,1,1,1,1,'','Como poner varias lineas en un tooltip','Saludos, puede que sea algo sencillo, pero no tengo idea de como se hace en xHarbour, necesito presentar un tooltip, que tiene como 7 lineas de informacion, claro Yo debo poder controlar el cambio de linea, que me imagino se hace con +CHR(13)+CHR(10)+ pero no lo hace (en FW 16 bits si lo hacia)\nGracias','',0,'gIA=','1hcj6ap1',1,0,'',37,0,0),(19223,4341,1,47,0,'203.144.143.7',1158810178,1,0,1,1,1,0,'','Got GPF error','Dear All,\n\nI\'ve got GPF error as following\n\nmodule EZ4.EXE at 0022:4221\n\nand I found the bottom line of .MAP is \n\n..\n Program entry point at 001A:4221\n\nI don\'t know what is concerning between GPF error xxxx:4221 and xxxx:4221 at line last of MAP.\n\nBest regards,\nDutch','',0,'gIA=','1hxhpufu',1,0,'',47,0,0),(19224,4351,2,66,0,'201.212.129.242',1158810215,1,0,1,0,1,0,'','Ayuda Timage refresh','Estimado Colegas\nTengo un  funcion en la  clausula on change de TWBrowse\n\non change( imagen(cfoto,ofoto))\n\nReDEFINE image ofoto filename cfoto  ID 108 OF oDlg update\n\n\nImagen (cfoto,ofoto)\n\nimagen-&gt;Foto := cfoto\nofoto:refresh()\n\ncomo hago para que cada vez  que avanzo o retrocedo un registro\nme actualice el objeto ofoto, he probado con oFoto:LoadBMP(CATALOGO-&gt;FOTO) funciona  pero me tira errores\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaslab2002@yahoo.com.ar\">databaslab2002@yahoo.com.ar</a><!-- e -->','',0,'gIA=','1domm6iu',1,0,'',66,0,0),(19225,4346,3,98,0,'70.71.111.92',1158811062,1,0,1,1,1,1,'','','James:\n\n[quote=&quot;James Bott&quot;:3f8mqkzb]Luis,\n\nHey, I was wondering what happened to you, Luis. Good to see you on the forum again.\n[/quote:3f8mqkzb]\n\nTo say I\'ve been busy would be a understatement.\n\nI\'ve worked a ton with splitters, this one just gave me the run for my money.\nBut in the end, I won <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nHere\'s a modified testtree.prg and testtree.rc to show what I was looking for.  Note that I assign oWnd:bResized inside the ON INIT block.. this is part of the trick to make sure things paint as they should upon initialization.\n\n**\nAntonio::\n\nthis\n oTree:GetSelected():SetText( Time() )\ngpf\'s (last btnbar action)\nusing FWH 2.7 from March\n**\n\n[code:3f8mqkzb]\n// -- testtre2&#46;rc\nopen BITMAP &quot;&#46;&#46;/bitmaps/16x16/open&#46;bmp&quot;\nclose BITMAP &quot;&#46;&#46;/bitmaps/16x16/close&#46;bmp&quot;\ntextbox BITMAP &quot;&#46;&#46;/bitmaps/16x16/textbox&#46;bmp&quot;\nfolder BITMAP &quot;&#46;&#46;/bitmaps/16x16/folder&#46;bmp&quot;\nfldmask BITMAP &quot;&#46;&#46;/bitmaps/16x16/fldmask&#46;bmp&quot;\nform BITMAP &quot;&#46;&#46;/bitmaps/16x16/form&#46;bmp&quot;\nfrmask BITMAP &quot;&#46;&#46;/bitmaps/16x16/frmmask&#46;bmp&quot;\nicon BITMAP &quot;&#46;&#46;/bitmaps/16x16/icon&#46;bmp&quot;\nicoMask BITMAP &quot;&#46;&#46;/bitmaps/16x16/icomask&#46;bmp&quot;\nbitmap BITMAP &quot;&#46;&#46;/bitmaps/16x16/bitmap&#46;bmp&quot;\nbmpMask BITMAP &quot;&#46;&#46;/bitmaps/16x16/bmpmask&#46;bmp&quot;\n#ifdef __FLAT__\n   1 24 &quot;&#46;\\winxp\\WindowsXP&#46;Manifest&quot;\n#endif\n#ifdef __64__\n   1 24 &quot;WinXP/WindowsXP&#46;Manifest64&quot;\n#endif \n// --\n\n// -- testtre2&#46;prg\n// WinAPI Trees &#40;SysTreeView32&#41; !!!\n// Window with a Tree, a Vertical Splitter &amp; a resizable dialog\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oDlg, oBar, oTree, oItem1, oItem2, oImageList, oSplit\n\n   DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;\n      TITLE &quot;Welcome to &quot; + FWVERSION\n\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n\n   DEFINE BUTTON RESOURCE &quot;open&quot; OF oBar ACTION oTree&#58;aItems&#91; 1 &#93;&#58;Expand&#40;&#41; ;\n      TOOLTIP &quot;Expand&quot; NOBORDER\n\n   DEFINE BUTTON RESOURCE &quot;close&quot; OF oBar ACTION oTree&#58;aItems&#91; 1 &#93;&#58;Colapse&#40;&#41; ;\n      TOOLTIP &quot;Colapse&quot; NOBORDER\n\n   DEFINE BUTTON RESOURCE &quot;open&quot; OF oBar ACTION oTree&#58;ExpandAll&#40;&#41; ;\n      TOOLTIP &quot;Expand all items&quot; NOBORDER\n\n   DEFINE BUTTON RESOURCE &quot;close&quot; OF oBar ACTION oTree&#58;ColapseAll&#40;&#41; ;\n      TOOLTIP &quot;Colapse all items&quot; NOBORDER\n   // note&#58; next one gpf\n   DEFINE BUTTON RESOURCE &quot;textbox&quot; OF oBar ACTION if&#40; oTree&#58;GetSelected&#40;&#41; # nil, oTree&#58;GetSelected&#40;&#41;&#58;SetText&#40; Time&#40;&#41; &#41;, nil &#41; ;\n      TOOLTIP &quot;Change Text&quot; NOBORDER\n\n   oImageList &#58;= TImageList&#40;&#41;&#58;New&#40;&#41;              // imagelist items are zero-based!\n\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;folder&quot;,, oWnd &#41;, ;        // nImage == 0 &#40;default if not specified&#41;\n                   TBitmap&#40;&#41;&#58;Define&#40; &quot;fldMask&quot;,, oWnd &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;form&quot;,, oWnd &#41;, ;          // nImage == 1\n                   TBitmap&#40;&#41;&#58;Define&#40; &quot;frmMask&quot;,, oWnd &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;icon&quot;,, oWnd &#41;,;           // nImage == 2\n                   TBitmap&#40;&#41;&#58;Define&#40; &quot;icoMask&quot;,, oWnd &#41; &#41;\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;bitmap&quot;,, oWnd &#41;,;         // nImage == 4\n                   TBitmap&#40;&#41;&#58;Define&#40; &quot;bmpMask&quot;,, oWnd &#41; &#41;\n\n   oTree &#58;= TTreeView&#40;&#41;&#58;New&#40; 2, 0, oWnd &#41;\n\n   oTree&#58;bChanged &#58;= &#123;|oTree,oItem| ;\n      oWnd&#58;SetText&#40; If&#40; oTree&#58;GetSelected&#40;&#41;&#58;GetParent&#40;&#41; != nil,;\n                        oTree&#58;GetSelected&#40;&#41;&#58;GetParent&#40;&#41;&#58;cPrompt + &quot; + &quot;, &quot;&quot; &#41; + ;\n                    oTree&#58;GetSelText&#40;&#41; &#41;, ;\n      oItem &#58;= oTree&#58;GetSelected&#40;&#41;, ;\n      If&#40; oItem # nil &#46;and&#46; ValType&#40; oItem&#58;cargo &#41; == &quot;B&quot;, Eval&#40; oItem&#58;cargo &#41;, nil &#41; &#125;\n\n   oTree&#58;SetImageList&#40; oImageList &#41;\n\n   oItem1 &#58;= oTree&#58;Add&#40; &quot;Hello world!&quot; &#41;                       // uses folder bmp\n\n   oItem1&#58;Add&#40; &quot;xBase &amp; OOPS&quot;, 1, &#123;|| Test1&#40; oDlg &#41; &#125; &#41;        // uses form bmp\n\n   oItem2 &#58;= oItem1&#58;Add&#40; &quot;Clipper 5&quot; &#41;\n      oItem2&#58;Add&#40; &quot;Another&quot;, 2, &#123;|| Test2&#40; oDlg &#41; &#125; &#41;          // uses icon bmp\n      oItem2&#58;Add&#40; &quot;item&quot;, 2 &#41;\n\n   oItem2 &#58;= oItem2&#58;Add&#40; &quot;and&#46;&#46;&#46;&quot; &#41;\n      oItem2&#58;Add&#40; &quot;more items&quot;, 3 &#41;                            // uses bmp bmp\n\n   oTree&#58;Add&#40; &quot;FiveWin power!&quot; &#41;\n\n   oItem2 &#58;= oTree&#58;Add&#40; Time&#40;&#41; &#41;\n      oItem2&#58;Add&#40; Time&#40;&#41;, 1 &#41;\n\n   SET MESSAGE OF oWnd TO FWVERSION NOINSET CLOCK DATE KEYBOARD\n\n   DEFINE DIALOG oDlg OF oWnd ;\n      STYLE nOR&#40; WS_CHILD, WS_VISIBLE &#41; ;\n\n   @ 29, 200 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oTree ;\n      HINDS CONTROLS oDlg ;\n      SIZE 4, 200 PIXEL ;\n      LEFT MARGIN 20 ;\n      RIGHT MARGIN 25 ;\n      OF oWnd\n\n   ACTIVATE DIALOG oDlg NOMODAL\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT &#40; oDlg&#58;Move&#40; 0, oSplit&#58;nRight, oWnd&#58;nWidth, oWnd&#58;nHeight, &#46;f&#46; &#41;, ;\n                oWnd&#58;bResized &#58;= &#123;|| oSplit&#58;AdjClient&#40;&#41;, oDlg&#58;SetSize&#40; oWnd&#58;nWidth - oTree&#58;nWidth - oSplit&#58;nWidth - 8, oSplit&#58;nHeight - 1, &#46;t&#46; &#41; &#125;, ;\n                oDlg&#58;refresh&#40;&#46;t&#46;&#41;, oTree&#58;refresh&#40;&#46;t&#46;&#41; &#41;  // required so that objects around splitter paint correctly on init\n\n   oImageList&#58;End&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nstatic function CleanSlate&#40; oDlg &#41;\n\n   while Len&#40; oDlg&#58;aControls &#41; &gt; 0\n      ATail&#40; oDlg&#58;aControls &#41;&#58;end&#40;&#41;\n   end\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nstatic function Test1&#40; oDlg &#41;\n   Local oGet1, oGet2\n   Local cGet1 &#58;= PadR&#40; &quot;Type something!&quot;, 50 &#41;\n   Local cGet2 &#58;= PadR&#40; &quot;Type something else!&quot;, 50 &#41;\n\n   CleanSlate&#40; oDlg &#41;\n\n   @ 5,10 Say &quot;Some data&#58;&quot; Of oDlg Pixel\n   @ 3,70 Get oGet1 Var cGet1 Of oDlg Pixel ;\n      Size 150,22\n\n   @ 30,10 Say &quot;Other data&#58;&quot; Of oDlg Pixel\n   @ 28,70 Get oGet2 Var cGet2 Of oDlg Pixel ;\n      Size 150,22\n\nReturn nil\n\n//----------------------------------------------------------------------------//\n\nstatic function Test2&#40; oDlg &#41;\n   Local oCbx1, oChk1\n   Local cCbx1 &#58;= &quot;&quot;, lChk1 &#58;= &#46;t&#46;\n\n   CleanSlate&#40; oDlg &#41;\n\n   @ 5,10 Say &quot;Choose&#58;&quot; Of oDlg Pixel\n   @ 3,70 Combobox oCbx1 Var cCbx1 Of oDlg Pixel ;\n      Items &#123; &quot;Uno&quot;, &quot;Dos&quot;, &quot;Tres&quot;, &quot;Mambo!&quot; &#125; ;\n      Size 80,18\n\n   @ 28,70 Checkbox oChk1 Var lChk1 Of oDlg Pixel ;\n      Prompt &quot;Tick tock tick tock&quot; ;\n      Size 150,22\n\nReturn nil\n\n//----------------------------------------------------------------------------//\n\nprocedure AppSys  // Xbase++ requirement\n\nreturn\n\n//----------------------------------------------------------------------------//\n[/code:3f8mqkzb]\n\nRegards,\n\nLuis Krause','',0,'gIA=','3f8mqkzb',1,0,'',98,0,0),(19226,4345,6,52,0,'201.212.71.153',1158817600,1,0,1,1,1,1,'','','Amigo,\n\nsi, el timer esta en funcionamiento, lo activo desde aca:\n\n[code:2ttn8gqo]   ACTIVATE DIALOG oDlg CENTERED ON init &#40;;\n      BuildTimer&#40; @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg &#41;,;\n      oBrw&#58; SetFocus&#40;&#41;,;\n      oBrw&#58; ResetBarPos&#40;&#41;,;\n      oBrw&#58; UpStable&#40;&#41;,;\n      oBrw&#58; Reset&#40;&#41;,;\n      oBrw&#58; Refresh&#40;&#41;,;\n      oBrw&#58; gobottom&#40;&#41;,;\n      &#41;[/code:2ttn8gqo]','',0,'AIA=','2ttn8gqo',1,0,'',52,0,0),(19227,4345,6,92,0,'213.96.45.9',1158820806,1,0,1,1,1,0,'','oTimer:Deactivate()','[quote=&quot;goosfancito&quot;:rbxxk147]Amigo,\n\nsi, el timer esta en funcionamiento, lo activo desde aca:\n\n[code:rbxxk147]   ACTIVATE DIALOG oDlg CENTERED ON init &#40;;\n      BuildTimer&#40; @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg &#41;,;\n      oBrw&#58; SetFocus&#40;&#41;,;\n      oBrw&#58; ResetBarPos&#40;&#41;,;\n      oBrw&#58; UpStable&#40;&#41;,;\n      oBrw&#58; Reset&#40;&#41;,;\n      oBrw&#58; Refresh&#40;&#41;,;\n      oBrw&#58; gobottom&#40;&#41;,;\n      &#41;[/code:rbxxk147][/quote:rbxxk147]\n\nPrueba con:\n\nBuildTimer( @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, @oTimer, oDlg )\n\nSaludos\nCarlos G.','',0,'gIA=','rbxxk147',1,0,'',92,0,0),(19228,4341,1,170,0,'213.103.104.62',1158825409,1,0,1,1,1,1,'','Re: Got GPF error','[quote=&quot;dutch&quot;:sdnnuh7r]I don\'t know what is concerning between GPF error xxxx:4221 and xxxx:4221 at line last of MAP.\n[/quote:sdnnuh7r]\n\nI you have Blinker, you can analyse map file with Bligpf.exe\n\nWhen i have a gpf, i do like said Enrico before all, to localise\nexactly what is the code line responsable.\n\nRegards,','',0,'gA==','sdnnuh7r',1,0,'',170,0,0),(19229,4336,3,170,0,'213.103.104.62',1158825802,1,0,1,1,1,1,'','','Hi EveryBody,\n\nI use always StopUntil() instead SysWait(), who take all the cpu time...!\n\nBest regards,','',0,'gA==','1ic98gi8',1,0,'',170,0,0),(19230,4324,6,656,0,'83.230.172.205',1158826784,1,0,1,1,1,1,'','','Antonio,\n\n Con la clase TBrowse tampoco me deja, me da el mismo error\n\nSaludos\nJavier','',0,'gA==','23prsknw',1,0,'',656,0,0),(19231,4334,6,328,0,'72.252.64.159',1158833030,1,0,1,1,1,0,'','','Gracias Manuramos, no se me había ocurrido de esa manera, voy hacer la prueba de esa manera.\n\nSaludos.\n\nCarlos Sincuir','',0,'gA==','2g1eintf',1,0,'',328,0,0),(19232,4341,1,47,0,'203.144.143.7',1158837516,1,0,1,1,1,0,'','','Dear All,\n\nI\'ve got strange problem.  When I add TSBrowse lib to the program.  It will effect the index file routine and got GPF.  When I exclude TSBrowse lib, it has no problem.  \n\nHave any got this problem.\n\nThanks&amp;Regards,\nDutch','',0,'gA==','3av4wl8h',1,0,'',47,0,0),(19233,4345,6,52,0,'201.212.71.153',1158839179,1,0,1,1,1,1,'','Re: oTimer:Deactivate()','[quote=&quot;FiveWiDi&quot;:3ixfnzuk][quote=&quot;goosfancito&quot;:3ixfnzuk]Amigo,\n\nsi, el timer esta en funcionamiento, lo activo desde aca:\n\n[code:3ixfnzuk]   ACTIVATE DIALOG oDlg CENTERED ON init &#40;;\n      BuildTimer&#40; @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, oTimer, oDlg &#41;,;\n      oBrw&#58; SetFocus&#40;&#41;,;\n      oBrw&#58; ResetBarPos&#40;&#41;,;\n      oBrw&#58; UpStable&#40;&#41;,;\n      oBrw&#58; Reset&#40;&#41;,;\n      oBrw&#58; Refresh&#40;&#41;,;\n      oBrw&#58; gobottom&#40;&#41;,;\n      &#41;[/code:3ixfnzuk][/quote:3ixfnzuk]\n\nPrueba con:\n\nBuildTimer( @oBrw, aConfiguracion, aProductos, aSurtidores, aIdVentas, @oTimer, oDlg )\n\nSaludos\nCarlos G.[/quote:3ixfnzuk]\n\nAndubo,\n\nGracias.','',0,'gIA=','3ixfnzuk',1,0,'',52,0,0),(19234,4352,6,66,0,'201.212.129.242',1158839430,1,0,1,0,1,0,'','Ayuda Timage refresh','Estimado Colegas \nTengo un funcion en la clausula on change de TWBrowse \n\non change( imagen(cfoto,ofoto)) \n\nReDEFINE image ofoto filename cfoto ID 108 OF oDlg update \n\n\nImagen (cfoto,ofoto) \n\nimagen-&gt;Foto := cfoto \nofoto:refresh() \n\ncomo hago para que cada vez que avanzo o retrocedo un registro \nme actualice el objeto ofoto, he probado con oFoto:LoadBMP(CATALOGO-&gt;FOTO) funciona pero me tira errores \n\ndesde ya muchas gracias \nFabian \n<!-- e --><a href=\"mailto:databaslab2002@yahoo.com.ar\">databaslab2002@yahoo.com.ar</a><!-- e -->','',0,'gIA=','1vtp0yvz',1,0,'',66,0,0),(19235,4346,3,2,0,'87.218.146.111',1158842940,1,0,1,1,1,1,'','','Luis,\n\nVery good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Thanks!','',0,'gIA=','ge4elqj8',1,0,'',2,0,0),(19236,4347,6,2,0,'87.218.146.111',1158843035,1,0,1,1,1,1,'','','Porque esa librería es para Microsoft ó PellesC, pero no para Borland. Borland usa formato OMF, no COFF.','',0,'gIA=','1lpdp0di',1,0,'',2,0,0),(19237,2672,7,106,0,'85.34.123.173',1158843861,1,0,0,1,1,1,'','','Para mjcc:\n\nLei en el foro ingles de la utilidad cecopy para copiar datos del pc al pocket y viceversa\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyId=74473FD6-1DCC-47AA-AB28-6A2B006EDFE9&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\n\nespero te sirva, porque yo tambien pensaba ya a esta altura copiar los datos sacando la SD cada vez del pocket.\n\nsaludos','',0,'gIA=','31217fpu',1,0,'',106,0,0),(19238,4324,6,126,0,'88.9.55.51',1158844310,1,0,1,1,1,0,'','','Hola a todos.\n\nA ver si puede ser por lo que he puesto en rojo.\n\nSET RESOURCES TO \"books32.dll\" \n\n[color=red:saordhd6]BWCCRegister(GetResources())[/color:saordhd6]\n\nDEFINE DIALOG oDlg NAME \"SCRPRNBOOKS\" \n\nREDEFINE BUTTON ID 111 OF oDlg ACTION oDlg:End() \n\nACTIVATE DIALOG oDlg','',0,'Ag==','saordhd6',1,0,'',126,0,0),(19239,4285,3,69,0,'206.210.97.138',1158844435,1,0,1,1,1,0,'','','Antonio,\n\nI tried with the new xHarbour build ... same problem.\n\n[img:3oxndztl]http&#58;//www&#46;can-soft&#46;net/dl/Error&#46;JPG[/img:3oxndztl]\n\n\n\n\nJeff','',0,'CA==','3oxndztl',1,0,'',69,0,0),(19240,4280,7,18,0,'200.67.188.236',1158845381,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3oi3s6di]Vikthor,\n\nHazlo así:\n[code:3oi3s6di]\n#include &quot;FWCE&#46;ch&quot; \n\n//----------------------------------------------------------------------------// \n\nfunction Main&#40;&#41; \n\n   local oWnd, oPanel \n   local cName &#58;= Space&#40; 20 &#41;, cAddress &#58;= Space&#40; 30 &#41; \n\n   DEFINE DIALOG oDlg FROM 1,1 TO 180,180 TITLE &quot;Scroll&quot; PIXEL \n\n   @  1 , 1 PANEL oPanel OF oDlg  SIZE oDlg&#58;nWidth&#40;&#41; - 26, oDlg&#58;nHeight&#40;&#41; - 48 PIXEL \n\n   @  140, 1 SAY &quot;Address&#58;&quot; OF oDlg SIZE 50, 15 PIXEL \n   @  160, 1 GET cAddress OF oDlg SIZE 120, 18 PIXEL \n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT PanelControls&#40; oPanel &#41;\n\nreturn nil \n\nfunction PanelControls&#40; oPanel &#41;\n\n   local cName &#58;= Space&#40; 20 &#41;\n\n   @  40, 1 SAY &quot;Name&#58;&quot; OF oPanel SIZE 40, 15 PIXEL \n   @  60, 1 GET cName OF oPanel SIZE 100, 18  PIXEL \n\nreturn nil\n[/code:3oi3s6di][/quote:3oi3s6di]\n\nAntonio , gracias por tu pronta respuesta, haciendolo de esa forma la creación de los controles es correcta , solo tuve que hacer una pequeña modificación en la clase TPanel en el método New() para que el scroll funcionara correctamente.\n[code:3oi3s6di]\n   if ! Empty&#40; &#58;&#58;oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40;&quot;&quot;&#41;\n      &#58;&#58;oWnd&#58;AddControl&#40; Self &#41;\n      DEFINE SCROLLBAR &#58;&#58;oVScroll VERTICAL OF Self\n      &#58;&#58;oVScroll&#58;SetRange&#40; 0, 100 &#41;\n   else\n      &#58;&#58;oWnd&#58;DefControl&#40; Self &#41;\n      DEFINE SCROLLBAR &#58;&#58;oVScroll VERTICAL OF Self\n      &#58;&#58;oVScroll&#58;SetRange&#40; 0, 100 &#41;\n   endif\n[/code:3oi3s6di]\n\nMe podrías explicar por debemos de hacerlo de esa forma, también probé la clase TGroup y se comporta exactamente igual.','',0,'gIA=','3oi3s6di',1,0,'',18,0,0),(19241,4347,6,743,0,'200.67.230.223',1158847619,1,0,1,1,1,0,'','','entonces que hago para poder interactuar con control que tengo Activex para ejecutarlo en mi programa utilizo fwh y harbour, alguna sugerencia\ngracias....','',0,'gIA=','f56ahkld',1,0,'',743,0,0),(19242,4353,3,486,0,'200.184.85.3',1158850882,1,0,1,1,1,0,'','DEFINE MAIL','Hi,\n\nhow do I do to order e-mail with reading confirmation?  \n  \nDEFINE MAIL oMAIL SUBJECT \"test\" TO \"test@test.com\" FILES \"test.txt\",\"text.txt\" FROM USER\nSEND MAIL oMAIL\n\n\nClemerson','',0,'gIA=','3lbna2ay',1,0,'',486,0,0),(19243,4354,6,66,0,'200.127.231.74',1158853128,1,0,1,0,1,0,'','Como refrescar un objeto','Estimado Colegas \nTengo un funcion en la clausula on change de TWBrowse \n\non change( imagen(cfoto,ofoto)) \n\nReDEFINE image ofoto filename cfoto ID 108 OF oDlg update \n\n\nImagen (cfoto,ofoto) \n\nimagen-&gt;Foto := cfoto \nofoto:refresh() \n\ncomo hago para que cada vez que avanzo o retrocedo un registro \nme actualice el objeto ofoto, he probado con oFoto:LoadBMP(CATALOGO-&gt;FOTO) funciona pero me tira errores \n\ndesde ya muchas gracias \nFabian \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gIA=','2vkdrps6',1,0,'',66,0,0),(19244,4355,6,105,0,'200.72.140.34',1158853442,1,0,1,1,1,1,'','Error con sysTabcontrol32 (folder)','Hola a todos... a alguien le pasa esto\n\nCuando uso el SysTabControl32 y elWinXp.man los say quedan en un color distinto al fondo del folder\n\nvean esta imagen.....\n\n\n<!-- m --><a class=\"postlink\" href=\"http://200.72.140.34/privado/folder.jpg\">http://200.72.140.34/privado/folder.jpg</a><!-- m -->\n\nAlguna solucion.....\n\nDesde Chile Saludos','',0,'gIA=','2zyy02ww',1,0,'',105,0,0),(19246,4280,7,2,0,'87.218.146.111',1158855550,1,0,1,1,1,1,'','','Vikthor,\n\nCuando se crea un diálogo desde código fuente se construye un RC en memoria. En un RC no se pueden especificar controles hijos de controles. Es una limitación de los ficheros RC. Sólo el dialogo principal y sus controles hijos.','',0,'gIA=','10xw817h',1,0,'',2,0,0),(19247,4347,6,2,0,'87.218.146.111',1158855660,1,0,1,1,1,1,'','','FWH soporta controles ActiveX, con eventos, desde la versión 2.7 marzo 2006. No hace falta ninguna librería adicional.','',0,'gIA=','3vu2wb0y',1,0,'',2,0,0),(19249,4285,3,2,0,'87.218.146.111',1158856005,1,0,1,1,1,1,'','','Jeff,\n\nCould you place a MsgInfo() at the end of your app to know if that error happens before or after the MsgInfo() ? Thanks','',0,'gIA=','1fqsqm0k',1,0,'',2,0,0),(19250,4324,6,2,0,'87.218.146.111',1158856253,1,0,1,1,1,1,'','','Javier,\n\nHas hecho los REDEFINE LISTBOX ... FIELDS ... desde tu código de ambos controles ?','',0,'gIA=','1qa9l97f',1,0,'',2,0,0),(19251,4355,6,2,0,'87.218.146.111',1158856374,1,0,1,1,1,1,'','','Adolfo,\n\nQue versión y build de FWH estás usando ?\n\nEse problema esta solucionado en la versión 2.7','',0,'gIA=','3cy52qbv',1,0,'',2,0,0),(19252,4354,6,2,0,'87.218.146.111',1158856443,1,0,1,1,1,1,'','','Fabian,\n\nQue errores ?','',0,'gIA=','3i72luan',1,0,'',2,0,0),(19253,4355,6,105,0,'200.72.140.34',1158856758,1,0,1,1,1,1,'','','Hola Antonio.. \n\nTengo todo en FWH2.6 y xHb.com de Febrero funcionando muy bien, pero si cambio el RC para SysTabControl32 y la clase nativa de FWH para obtener el look XP al 100% empiezan mis problemas...\n\nTengo incluido el Winxp.man en mi RC y cambie los TFolder por SysTabControl32\n\nTambien he probado el modulo con XHB.Com y FWH2.7 pero obtengo el mismo resultado...\n\nCualquier ayuda sera bienvenida.. gracias...\n\nPD: a todos les ha gustado el \"look\" XP asi que estoy en plena faena de cambiar todo , si bien es solo un cambio visual, les da una apariencia un poco mas profesional a los sistemas.','',0,'gIA=','1o0wvh0s',1,0,'',105,0,0),(19254,4356,3,31,0,'89.190.104.93',1158857546,1,0,1,1,1,1,'','Linking problems with xHarbour builder ...','Hi ,\n\n  Today I bought the latest FWH ( libs dated 2006.09.17 ) and tried with xHarbour binaries from FW site and with xHB Builder ( 2006.August ) . With free xHarbour all compiles and links are OK . But with xHB builder I\'m getting the following error :\n\n xLINK: error: Unresolved external symbol \'_HB_FUN___CLSCNTCLASSES\'.\n xLINK: fatal error: 1 unresolved external(s).\n\n  How to solve this problem ?\n\n  Regards , Rimantas','',0,'gIA=','1rcnb8qy',1,0,'',31,0,0),(19255,4356,3,2,0,'87.218.146.111',1158859502,1,0,1,1,1,1,'','','Rimantas,\n\nPlease remove this code is source\\function\\errsysw.prg:\n[code:3mu9wkd9]\n   #ifndef __XHARBOUR__\n      while ! Empty&#40; __ClassName&#40; n &#41; &#41;\n         cErrorLog += &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41; + CRLF\n      end\n   #else   \n      while n &lt;= __ClsCntClasses&#40;&#41;\n         cErrorLog += &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41; + CRLF\n      end\n   #endif   \n[/code:3mu9wkd9]\nand change it:\n[code:3mu9wkd9]\n      while ! Empty&#40; __ClassName&#40; n &#41; &#41;\n         cErrorLog += &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41; + CRLF\n      end\n[/code:3mu9wkd9]','',0,'AIA=','3mu9wkd9',1,0,'',2,0,0),(19256,4355,6,2,0,'87.218.146.111',1158859620,1,0,1,1,1,1,'','','Adolfo,\n\nBusca en los PRGs de FWH la llamada a la función FixSays(). Si no está, entonces no tienes el build que arregla los SAYs, etc.','',0,'AIA=','3aum4na3',1,0,'',2,0,0),(19257,4347,6,743,0,'200.79.46.141',1158861710,1,0,1,1,1,0,'','','gracias por tu respuesta, pero que estoy haciendo mal, te muestro parte del codigo\n\n   DEFINE WINDOW oWnd\n\n   cCaption        := \"Esta es una Prueba....\"\n\n   MyFrame         := TActiveX():New( oWnd, \"MyFramePanel.MyFrame\" )\n   MyFrame:nTop    := 10\n   MyFrame:nWidth  := 250\n   MyFrame:nLeft   := 80\n   MyFrame:nHeight := 200\n\n[color=darkred:t9lth4h6]   [b:t9lth4h6]MyFrame:Do( \"Caption\", cCaption )[/b:t9lth4h6][/color:t9lth4h6]\n\nsi quito la linea marcada, me corre el programa, pero al colocar la linea, no me hace nada, lo hecho de mil formas, y no se que estoy haciendo mal, no tengas un ejemplo, utilizo verce para compilar, que estoy haciendo mal, gracias....\n\nAntonio','',0,'Qg==','t9lth4h6',1,0,'',743,0,0),(19258,4346,3,98,0,'70.71.111.92',1158861728,1,0,1,1,1,1,'','','Antonio:\n\nYou might want to look at in TTVItem class:\n\n   METHOD SetText( cText ) INLINE ;\n      TVSetItemText( ::oTree:hWnd, ::hItem, cText )    \n\nbecause it GPF\'s.  Can\'t seem to find the reason.\n\nRegards,\n\nLuis','',0,'Qg==','12ihefl6',1,0,'',98,0,0),(19259,4353,3,98,0,'70.71.111.92',1158862246,1,0,1,1,1,1,'','Re: DEFINE MAIL','Just add the RECEIPT keyword\n\nDEFINE MAIL oMAIL SUBJECT \"test\" TO \"test@test.com\" FILES \"test.txt\",\"text.txt\" FROM USER [b:2siebzs7]RECEIPT[/b:2siebzs7]\n\n[quote=&quot;clemerson&quot;:2siebzs7]Hi,\n\nhow do I do to order e-mail with reading confirmation?  \n  \nDEFINE MAIL oMAIL SUBJECT \"test\" TO \"test@test.com\" FILES \"test.txt\",\"text.txt\" FROM USER\nSEND MAIL oMAIL\n\n\nClemerson[/quote:2siebzs7]','',0,'wA==','2siebzs7',1,0,'',98,0,0),(19260,4357,3,35,0,'167.7.140.254',1158863694,1,0,1,1,1,0,'','Working with Microsoft Access','To All\n\nI have done searches in this forum for working with MS Access .. I have found topics on ODBC and ADO .. and searched on both with not much success.\n\nIf anyone has some snippits of code connecting to a .mdb ... a simple browse, inserting and editing a record .. I would be very grateful.\n\nThanks\nRick Lipkin\nSC Dept of Health','',0,'wA==','17kbr7nb',1,0,'',35,0,0),(19261,4353,3,486,0,'200.184.85.3',1158863765,1,0,1,1,1,0,'','','he didn\'t work;\n\nFivewin 2.7 for xHarbour - Windows XP','',0,'wA==','3t8gaese',1,0,'',486,0,0),(19262,4356,3,31,0,'89.190.104.93',1158863981,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:30q2h4nf]Rimantas,\n\nand change it:\n[code:30q2h4nf]\n      while ! Empty&#40; __ClassName&#40; n &#41; &#41;\n         cErrorLog += &quot;   &quot; + Str&#40; n, 3 &#41; + &quot; &quot; + __ClassName&#40; n++ &#41; + CRLF\n      end\n[/code:30q2h4nf][/quote:30q2h4nf]\n\n  OK . I\'ll try it .. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)\n\n  Regards !','',0,'gIA=','30q2h4nf',1,0,'',31,0,0),(19263,4354,6,66,0,'200.127.231.74',1158865759,1,0,1,0,1,0,'','','Antonio\n\nEl error me lo da en clipper  es  Runtime error 202 ar 0001:248c\n\nGracias\nFabian','',0,'gIA=','20ufedi4',1,0,'',66,0,0),(19264,4358,6,618,0,'217.216.151.41',1158866053,1,0,1,1,1,1,'','convertir campos .DBF de chcp 850 (DOs) a Windows','¿ Alguien sabe de algún código fuente en Fivewin/Harbour para convertir .DBF segín el ambiente de trabajo, para que sean compatibles los índices con  busquedas según pattern(plantilla) con caracteres especiales ?','',0,'gIA=','qk9gnzlf',1,0,'',618,0,0),(19265,4359,6,618,0,'217.216.151.41',1158866285,1,0,1,1,1,1,'','indices parciales en .CDX para busquedas sencillas','No recuedo si aluien había propuesgto alguna mejora en las funciones de bajo nivel del RDD DBFCDX para crear indices parciales en tiempo de ejecución para busquedas más rápidas... me ayudais, por favor ?','',0,'gIA=','1z36be4v',1,0,'',618,0,0),(19266,4346,3,2,0,'87.218.146.111',1158868864,1,0,1,1,1,1,'','','Luis,\n\nThis change is needed in source\\winapi\\treeview.c. Now it works fine:\n[code:2td8369x]\n#ifdef __HARBOUR__\n   CLIPPER TVSETITEMTEXT&#40; PARAMS &#41; // &#40; hWnd, hItem, cText &#41;\n#else\n   CLIPPER TVSETITEMT&#40; PARAMS &#41; // EXT&#40; hWnd, hItem, cText &#41;\n#endif\n&#123;\n   HWND hWnd = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n   TV_ITEM tvi;\n   BOOL bResult;\n   BYTE buffer&#91; 100 &#93;;   \n\n   tvi&#46;hItem = &#40; HTREEITEM &#41; _parnl&#40; 2 &#41;;\n   tvi&#46;mask       = TVIF_TEXT;\n   tvi&#46;pszText    = &#40; char * &#41; buffer;\n   tvi&#46;cchTextMax = sizeof&#40; buffer &#41;;\n   bResult = TreeView_GetItem&#40; hWnd, &amp;tvi &#41;;\n\n   if&#40; bResult &#41;\n   &#123;\n      tvi&#46;mask       = TVIF_TEXT;\n      tvi&#46;hItem      = &#40; HTREEITEM &#41; _parnl&#40; 2 &#41;;\n      tvi&#46;pszText    = _parc&#40; 3 &#41;;\n      tvi&#46;cchTextMax = _parclen&#40; 3 &#41;;\n      TreeView_SetItem&#40; hWnd, &amp;tvi &#41;;\n   &#125;\n&#125;\n[/code:2td8369x]','',0,'AIA=','2td8369x',1,0,'',2,0,0),(19267,4347,6,2,0,'87.218.146.111',1158869085,1,0,1,1,1,1,'','','Prueba con MyFrame:SetProp( \"Caption\", cCaption )','',0,'AIA=','2dtkijn7',1,0,'',2,0,0),(19268,4354,6,2,0,'87.218.146.111',1158869135,1,0,1,1,1,1,'','','Fabian,\n\nEn Clipper ó en Harbour ?','',0,'AIA=','3niihe61',1,0,'',2,0,0),(19269,4357,3,6,0,'87.18.232.71',1158869162,1,0,1,1,1,1,'','Re: Working with Microsoft Access','This is a sample of how to browse a MDB:\n\n[code:1q5zeh3l]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs, oErr\n\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    TRY\n        oRS&#58;Open&#40; &quot;SELECT * FROM Clienti&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=clienti&#46;mdb&quot;, 1, 3 &#41;\n    CATCH oErr\n        ? oErr&#58;Description\n        RETURN NIL\n    END TRY\n\n    WBROWSERECORDSET&#40; oRs &#41;\n    TCBROWSERECORDSET&#40; oRs &#41;\n\n    oRs&#58;Close&#40;&#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION WBROWSERECORDSET&#40; oRs &#41;\n\n    LOCAL oDlg, oBrw, nRec\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 LISTBOX oBrw FIELDS oRs&#58;Fields&#40; &quot;Cliente&quot; &#41;&#58;Value;\n           HEADERS &quot;CLIENTI&quot;;\n           ON RIGHT CLICK &#40; nRec &#58;= oRs&#58;AbsolutePosition,;\n                            oBrw&#58;Report&#40; &quot;TWBrowse report&quot;, &#46;T&#46; &#41;,;\n                            oRs&#58;MoveFirst&#40;&#41;,;\n                            oRs&#58;Move&#40; nRec - 1 &#41; &#41;\n\n    oBrw&#58;bLogicLen = &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    = &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n    oBrw&#58;bGoBottom = &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TCBROWSERECORDSET&#40; oRs &#41;\n\n    LOCAL oDlg, oBrw, oCol, nRec\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 BROWSE oBrw;\n           ON RIGHT CLICK &#40; nRec &#58;= oRs&#58;AbsolutePosition,;\n                            oBrw&#58;Report&#40; &quot;TWBrowse report&quot;, &#46;T&#46; &#41;,;\n                            oRs&#58;MoveFirst&#40;&#41;,;\n                            oRs&#58;Move&#40; nRec - 1 &#41; &#41;\n\n    ADD COLUMN TO oBrw;\n               DATA oRs&#58;Fields&#40; &quot;Cliente&quot; &#41;&#58;Value;\n               HEADER &quot;CLIENTI&quot;\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;bLogicLen = &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    = &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n    oBrw&#58;bGoBottom = &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SKIPPER&#40; oRs, nSkip &#41;\n\n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition\n\n    oRs&#58;Move&#40; nSkip &#41;\n\n    IF oRs&#58;EOF; oRs&#58;MoveLast&#40;&#41;; ENDIF\n    IF oRs&#58;BOF; oRs&#58;MoveFirst&#40;&#41;; ENDIF\n\n    RETURN oRs&#58;AbsolutePosition - nRec[/code:1q5zeh3l]\n\nEMG','',0,'AIA=','1q5zeh3l',1,0,'',6,0,0),(19270,4353,3,98,0,'70.71.111.92',1158872320,1,0,1,1,1,1,'','','Clemerson:\n\nI\'ve never used this class, only TSmtp, so I\'m afraid I can\'t help you more.\n\nThe only thing I did was look into mail.ch and tmail.prg... it has a ::lReceipt DATA which I thought should handle that.  Maybe someone that has used this class can chime in with other ideas/fixes.\n\n[quote=&quot;clemerson&quot;:nxcn1nch]he didn\'t work;\n\nFivewin 2.7 for xHarbour - Windows XP[/quote:nxcn1nch]','',0,'gA==','nxcn1nch',1,0,'',98,0,0),(19271,4285,3,69,0,'67.70.155.48',1158873038,1,0,1,1,1,0,'','','This is strange...\n\nIf I put the MsgInfo() as below I get the error and no MsgInfo():\n\n[code:1c0dm6l9]if ! empty&#40; oMainWnd &#41;\n     oMainWnd&#58;end&#40;&#41;\n     MSGINFO&#40;&#41;\nendif\n[/code:1c0dm6l9]\n\nIf I do it as below, I never see the error BUT the Msg Box keeps popping up as if it was stuck in a loop.\n\n[code:1c0dm6l9]if ! empty&#40; oMainWnd &#41;\n     MSGINFO&#40;&#41;\n     oMainWnd&#58;end&#40;&#41;\nendif\n[/code:1c0dm6l9]\n\n\nJeff','',0,'AIA=','1c0dm6l9',1,0,'',69,0,0),(19272,4354,6,66,0,'200.127.231.74',1158873090,1,0,1,0,1,0,'','','Antonio\n\nEl error me lo da en clipper, por queria refrescar el objeto Timage\nde la otra manera\n\nGracias\nFabian','',0,'AIA=','34aa6bgc',1,0,'',66,0,0),(19273,4357,3,35,0,'65.188.6.143',1158873796,1,0,1,1,1,0,'','','Enrico\n\nThank you ... I saw bits and pieces of this code but not all together .. VERY much appreciate your quick responce.\n\nRick Lipkin','',0,'AIA=','3al8qn4k',1,0,'',35,0,0),(19274,4355,6,105,0,'200.72.140.34',1158874730,1,0,1,1,1,1,'','','Pues... no esta ?\n\nBusque en c:\\FWH\\Source ... y nada...\n\nComo puedo obtenerlo.. me urje arreglar esto, es lo ultimo que me falta para tener el XP look al 100%\n\nGracias de antemano...','',0,'AIA=','1ywoidqy',1,0,'',105,0,0),(19275,4351,2,138,0,'189.141.70.60',1158875278,1,0,1,1,1,1,'','','Si estas usando la NvieLib que viene con FiveWin tendras bastantes errores en la fomra en que estas usando las imagenes.\n\nLa forma de hacer la carga de la imagen es la correcta, pero el programa falla porque el DLL requiere de un poco de timepo para cargar cada imagen, y no le estas dando el tiemo necesario.\n\nSi tu por ejemplo estas en un browse, y te vas moviento con avpg, y dejas presinaoda la tecla hata llegar al fin de archivo, fallara tu programa porque no estas dejando acabar de cargar imaganes al DLL,. es decir, todavia no terminas de cargar una cuando ya estas pidiendo otra.\n\nA 16 bits no hay forma de evitar esto, a 32 bits si utilizas la FREEIMAGE.DLL funciona perfectamente y sin ningun problema, no se si la FREEIMAGE esta disponible para 16 bits.','',0,'AIA=','f09gppl9',1,0,'',138,0,0),(19276,4350,6,138,0,'189.141.70.60',1158875406,1,0,1,1,1,1,'','','objeto: cToolTip := \"primera linea\"+CRLF+\"segunda linea\"+CRLF+\"otra mas\"','',0,'AIA=','3u1nqy6s',1,0,'',138,0,0),(19277,4349,2,138,0,'189.141.70.60',1158875462,1,0,1,1,1,1,'','','Es problema del DLL NVIEWLIB, cambia de DLL te he contestado en otro post.','',0,'AIA=','2ikvfv8x',1,0,'',138,0,0),(19278,4347,6,743,0,'200.79.46.141',1158877239,1,0,1,1,1,0,'','','hice lo que me indicaste, me genera el ejecutable, pero no pasa nada y si quieres te paso la OCX y el programa indicame cono lo subo y te lo paso, llevo esta semana tratando de ejecutar esta aplicacion y no veo resultados espero exista la solucion....\n\n\n\n\nAntonio Díaz\n\nSaludos y Gracias por tu respuesta','',0,'AIA=','1u10d3h0',1,0,'',743,0,0),(19279,4353,3,303,0,'72.199.41.171',1158878252,1,0,1,1,1,0,'','','Clemerson,\n\nI confirm that the RECEIPT clause has no effect under FWH 2.7, Aug 2006 build, XP Pro, and OE. If I manually generate a message with a return receipt, it contains this line:\n\nDisposition-Notification-To: \"James\" &lt;test@whatever.com&gt;\n\nBut if I generate a message from FWH with the RECEIPT clause the message does not contain the line. So, there is either a bug in MAPI, OE, or in FW\'s mapi.c module.\n\nAntonio, any ideas?\n\nJames','',0,'AIA=','3nela9sw',1,0,'',303,0,0),(19280,4315,3,694,0,'200.181.156.73',1158885545,1,0,1,1,1,1,'','hehehe foi mal','hehehehehe....maurilio...foi mal.... tendi nada que vc explicou!\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','anty1klh',1,0,'',694,0,0),(19281,4360,6,694,0,'200.181.156.73',1158885856,1,0,1,1,1,1,'','Vertical Scroll Bar da Twbrowse fica louca','Amigos, usando a TWBROWSE com ARRAY, quando eu DELETO, um elemento da ARRAY, e atualizo a LISTBOX, a SCROLLBAR FICA louca.\nO que devo fazer para a  VERTICAL SCROLLBAR, entender a nova quantidade de elementos na array? \n\n\nEX:\nfdados :={{\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"}}\nfheader:= {\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"}\n\nredefine listBox oBfsu Fields Of oDld id 101 SIZES 50,40,220,80,80,100,100,100,100,100 COLORS CLR_BLACK,CLR_LGREEN\nfHeader[1] := \"Número\"\nfHeader[2] := \"Ano\"\nfHeader[3] := \"Origem\"\nfHeader[4] := \"Recebimento\"\nfHeader[5] := \"Remessa\"\nfHeader[6] := \"Procedimento\"\nfHeader[7] := \"Natureza do Delito\"\nfHeader[8] := \"Indiciado\"\nfHeader[9] := \"Vítima\"\nfHeader[10]:= \"Cartório\"\n\nobfsu:aJustify := {2,2,0,2,2,0,0,0,0,0}\nobfsu:aHJustify := {2,2,0,2,2,0,0,0,0,0}\nobfsu:nHeaderStyle := 3\nobfsu:nLineStyle := 3\nobfsu:nclrbackfocus:= {|| CLR_HBLUE}\nobfsu:nHeaderHeight:= 24\nobfsu:nLineHeight := 22\nobfsu:nfreeze := 2\nobfsu:aHeaders := fHeader\nobfsu:bLine := {|| { fDados[obfsu:nAt,1],fDados[obfsu:nAt,2],fDados[obfsu:nAt,3],fDados[obfsu:nAt,4],fDados[obfsu:nAt,5],fDados[obfsu:nAt,6],fDados[obfsu:nAt,7],fDados[obfsu:nAt,8],fDados[obfsu:nAt,9],fDados[obfsu:nAt,10]}}\nobfsu:Refresh()\nobfsu:setArray(fDados)\noDld :lHelpicon:=.F.\n\n**********************************\nstatic function CARREGARRAY()\n**********************************\nLOCAL CelAnt:=select(),COrderAnt:=ORDSETFOCUS()\n\nfdados :={}\nSelect prerecebidas\ndbsetorder(1)\ndbseek(strzero(ofanos,4))\ndo while OFANOS==prerecebidas-&gt;pr_anos .and. ! eof()\naadd(fdados ,{prerecebidas-&gt;pr_nume,;\nprerecebidas-&gt;pr_anos,;\nprerecebidas-&gt;pr_rece,;\nprerecebidas-&gt;pr_reme,;\nprerecebidas-&gt;pr_cart})\n\ndbskip()\nenddo\nIF LEN(FDADOS)=0\nfdados :={{\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\",\"\"}}\nENDIF\nobfsu:SetArray(fdados)\nobfsu:nAt:=(len(fdados))\nobfsu:refresh()\nobfsu:DEFAULT() //DEVO USAR?\nSELECT(CELANT)\nORDSETFOCUS(CORDERANT)\nRETURN(.T.)\n\n\nFIQUEM COM DEUS\nAOKISANTOS <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','236xzt5w',1,0,'',694,0,0),(19282,4346,3,98,0,'70.71.111.92',1158887094,1,0,1,1,1,1,'','','Antonio:\n\nThanks!  I confirm it works.\n\nRegards,\n\nLuis','',0,'','3ec94fis',1,0,'',98,0,0),(19283,4361,3,69,0,'70.50.75.187',1158888993,1,0,1,1,1,0,'','Check opened file by ALIAS?','Hi everybody,\n\nIs there a function to see if an ALIAS is in use?\n\nUse MyFile.DBF new alias \"TEST\"\n\nI would like to see if \"TEST\" is opened.\n\nThanks,\n\nJeff','',0,'','3a5b31um',1,0,'',69,0,0),(19284,4361,3,98,0,'70.71.111.92',1158889275,1,0,1,1,1,1,'','Re: Check opened file by ALIAS?','Jeff:\n\nIf Select( \"Test\" ) &gt; 0\n  // it\'s open (in use)\nEndif\n\n[quote=&quot;Jeff Barnes&quot;:290821rh]Hi everybody,\n\nIs there a function to see if an ALIAS is in use?\n\nUse MyFile.DBF new alias \"TEST\"\n\nI would like to see if \"TEST\" is opened.\n\nThanks,\n\nJeff[/quote:290821rh]','',0,'gA==','290821rh',1,0,'',98,0,0),(19285,4343,2,322,0,'201.134.185.82',1158891790,1,0,1,1,1,0,'','fw + mysql + ado','RMC\n\nEjemplo: Completo\n\n*-\n*- Programa  : CAT_USU.PRG\n*- Sistema : Nombre del Sistema\n*- Ambiente  : Clipper 5.X, FiveWin 1.95, Blinker 3.2\n*- Autor : Sistemas 2002\n*- Fecha : 08/11/04\n*- Versión : Versión Genera 1.0, <!-- e --><a href=\"mailto:nazariosn@yahool.com.mx\">nazariosn@yahool.com.mx</a><!-- e -->\n*-\n#INCLUDE \'FIVEWIN.CH\'  // Cabezera de FW\n#INCLUDE \'REPORT.CH\' // Cabezera de Reportes\n#include \"sql.ch\"\n#include \"error.ch\"\n \nSTATIC oLbx, oDlg // oLbx=Browser, oDlg=Datos\nSTATIC lEsAlta,;  // Para el control de los Botones Activar/NoActivar\n       lEsModi,;  // Para el control de los Botones Activar/NoActivar\n       lNoEdita,; // Para el control de los Botones Activar/NoActivar\n       lGuarda    // Para el control de los Botones Activar/NoActivar\nSTATIC oGets,;    // Optimizar el uso de la memoria, arreglo de Objetos para los Gets\n       oObjs,;    // Optimizar el uso de la memoria, arreglo de Objetos para los Objetos\n       oSays,;    // Optimizar el uso de la memoria, arreglo de Objetos para los Says\n       oBtns,;    // Optimizar el Uso de los Botones\n       aRec       // Coordenadas del Calendario, Ing. Alfredo Arteaga\nSTATIC T_Dir, T_Num\n \n//------------------------------------------------------------------\nFUNCTION CAT_USU(oOdbc)\nLOCAL ocurDedo\nLOCAL criterio := \"SELECT * from Cat_USU Order By mater,juzas\"\nLOCAL oQuery\nLOCAL Puntero:=oOdbc\n \n\nDEFINE CURSOR oCurDedo RESOURCE \"Dedo\"\n \nlEsAlta:=.F.\nlEsModi:=.F.\nlNoEdita:=.F.\nlGuarda:=.F.\n \noGets :=ARRAY(3)\noObjs :=ARRAY(3)\noSays :=ARRAY(3)\noBtns :=ARRAY(12)\noQuery := oOdbc:Query(criterio)\n// lDateAsStr := .t.,  Formato de Fecha \"AAAA/MM/DD\"\noQuery:lDateAsStr := .f.\noQuery:Open()\noQuery:Complete()\noQuery:Gotop()\n\nDEFINE DIALOG oDlg RESOURCE \"CAT_USU\"\n// DEFINICION DE BOTONES\n \n  REDEFINE BTNBMP oBtns[01] ID 1000 OF oDlg RESOURCE \"Nuevo2\" ;\n            TOOLTIP \"Registro Nuevo\" NOBORDER ;\n            ACTION ( IniCUSU(oLbx) ) When !lEsModi\n\n  REDEFINE BTNBMP oBtns[02] ID 2000 OF oDlg RESOURCE \"Cambia2\";\n            TOOLTIP \"Modifica Registro\" NOBORDER ;\n            ACTION ( CarCUSU(oLbx), lEsModi:=.T. ) when !lEsAlta\n\n// CRLF=Salto de Linea\n// MsgYesNo()=Mensaje y pide confirmaci½n, si/no\n// Antes de borrar comprobar que no hay ningún movimiento contable\n\n  REDEFINE BTNBMP oBtns[03] ID 3000 OF oDlg RESOURCE \"Borra2\" ;\n            TOOLTIP \"Elimina Registro\" NOBORDER ;\n            ACTION  (oQuery:=BorraCUSU(oODBC,oLbx),oQuery:Complete(),oQuery:GoBottom(),CarCUSU(oLbx) );\n      when !lEsAlta .AND. !lEsModi\n     *IF(MsgYesNo(\"¿ Deseas borrar éste Registro ? : \"+CRLF+CRLF,\"Confirma\"),.T.,.T. );\n\n  REDEFINE BTNBMP oBtns[04] ID 4000 OF oDlg RESOURCE \"Busca2\";\n            TOOLTIP \"Buscar registro\" NOBORDER ;\n            ACTION ( BusCUSU(oLbx)) when !lEsAlta .AND. !lEsModi\n\n  REDEFINE BTNBMP oBtns[05] ID 5000 OF oDlg RESOURCE \"Inicio1\" TOOLTIP \"Primer Registro\" NOBORDER ;\n    ACTION ( oQuery:Gotop(), CarCUSU(oLbx) ) ;\n    WHEN !lEsAlta .AND. !lEsModi\n \n  REDEFINE BTNBMP oBtns[06] ID 6000 OF oDlg RESOURCE \"Antes1\" TOOLTIP \"Anterior Registro\" NOBORDER ;\n    ACTION ;\n    ( oQuery:Skip(-1),CarCUSU(oLbx) ) ;\n    WHEN !lEsAlta .AND. !lEsModi\n \n  REDEFINE BTNBMP oBtns[07] ID 7000 OF oDlg RESOURCE \"Despues1\" TOOLTIP \"Siguiente Registro\" NOBORDER ;\n    ACTION ( oQuery:Skip(+1),CarCUSU(oLbx) ) ;\n    WHEN !lEsAlta .AND. !lEsModi\n \n  REDEFINE BTNBMP oBtns[08] ID 8000 OF oDlg RESOURCE \"Final1\" TOOLTIP \"Ultimo Registro\" NOBORDER ;\n    ACTION ( oQuery:GoBottom(),CarCUSU(oLbx) ) ;\n    WHEN !lEsAlta .AND. !lEsModi\n \n  REDEFINE BTNBMP oBtns[09] ID 9000 OF oDlg RESOURCE \"Imprime2\" TOOLTIP \"Imprimir Catálogo\" NOBORDER ;\n    ACTION (oQuery:=ImprimeCUSU(oODBC),oQuery:Complete()) when !lEsAlta .AND. !lEsModi\n \n  REDEFINE BTNBMP oBtns[10] ID 10000 OF oDlg RESOURCE \"Disco2\" TOOLTIP \"Guardar Datos\" NOBORDER ;\n    ACTION ;\n    ( lGuarda:=.T., IF(VALCUSU1(oODBC,oGets[1],oGets[2],oGets[3]),.t.,oQuery:=GuardaCUSU(oODBC, oLbx)),oQuery:Complete(),oQuery:GoBottom(),CarCUSU(oLbx) );\n    WHEN lEsAlta .Or. lEsModi\n\n  REDEFINE BTNBMP oBtns[11] ID 11000 OF oDlg RESOURCE \"Cancela2\" TOOLTIP \"Cancelar Captura\" NOBORDER ;\n    ACTION ;\n    (IniCUSU(oLbx), CarCUSU(oLbx), lGuarda:= .F.,lEsAlta:=.F.,lEsModi:=.F.)\n \n  REDEFINE BTNBMP oBtns[12] ID 12000 OF oDlg RESOURCE \"Salida1\",\"Salida2\" TOOLTIP \"Regresar\"  NOBORDER;\n    ACTION ( oDlg:End() )\n \n//\n// LISTBOX, SÓLAMENTE USAR CUANDO SEA NECESARIO\n// El uso de Fechas y Números, Convertir a Caracter para mostralos\n//\n  *REDEFINE LISTBOX oLbx FIELDS ;\n  *  ON CHANGE ( CarCUSU(oLbx), lGuarda:=.F., lEsAlta:=.F., lEsModi:= .F. );\n  *  ID 1013 OF oDlg\n  *\n  *  oLbx:aJustify := {.F., .F.} // Justificaci¢n de Cabezeras IZQ, .T.=Centro\n  *  oLbx:nLineStyle:=2    // Separador de datos\n  *  oLbx:Refresh()      // Estabiliza el browse/listbox\n            // ( Pinta los datos nuevamente )\n \n// Muestra la descripción Correctamente de los SAY´S\n  REDEFINE SAY ID 1 OF oDlg \n  REDEFINE SAY ID 2 OF oDlg \n  REDEFINE SAY ID 3 OF oDlg\n \n// Muestra la descripción Correctamente de los GET´S\n  REDEFINE GET oObjs[1] VAR oGets[1] ID 101 OF oDlg PICTURE \"@!\";\n    When lEsAlta\n  REDEFINE GET oObjs[2] VAR oGets[2] ID 102 OF oDlg PICTURE \"99\";\n    When lEsAlta .and. !empty(oGets[1])\n  REDEFINE GET oObjs[3] VAR oGets[3] ID 103 OF oDlg PICTURE \"@!\";\n    When lEsAlta .OR. lEsModi\n    * VALID !VALCUSU1(oODBC,oGets[1],oGets[2],oGets[3]);\n \nACTIVATE DIALOG oDlg CENTER ON INIT CarCUSU(oLbx)\n\nRETURN Puntero\n \n//------------------------------------------------------------------\nFunction ValCUSU1(oODBC,materia, juzgado,dire)\n *LOCAL criterioVal := \"SELECT mater,juzas FROM Cat_USU WHERE mater=\'\" + alltrim(materia)+\"\'\" + \" and juzas =\" + alltrim(str(juzgado))+;\n *                    \' and direccion = \"\'+ alltrim(dire)+\'\"\'\nLocal criterioVal := \"SELECT mater,juzas FROM Cat_USU WHERE direccion = \'\"+ alltrim(dire)+\"\'\"\nLOCAL oQueryVal\nLOCAL encontre:=.F.\nLOCAL SiHay:=0\n\noQueryVal := oOdbc:Query(criterioVal)\noQueryVAL:Open()\noQueryVAL:Complete()\noQueryVal:GoTop()\nSiHay:=oQueryVal:RecCount()\noQueryVal:End()\n   *  Msginfo(sihay)\nIf SiHay &gt;0\n   encontre:=.T.\n   MsgInfo(\"La Dirección YA EXISTE\",\" Verifica . . .  :\"+Materia+ \", \"+Alltrim(str(juzgado)))\nElse\n   encontre:=.F.\nEndIF\nReturn encontre\n\n//------------------------------------------------------------------\nStatic Function BorraCUSU(oODBC,oLbx)\nLOCAL BorraCriterio := \'DELETE FROM Cat_USU WHERE mater = \"\' + alltrim(oGets[1])+\'\"\'+ \' and juzas =\' + alltrim(str(oGets[2])) +;\n                       \' and direccion = \"\'+ t_dir + \'\" and numero = \"\'+t_num+\'\"\'\nLOCAL XCriterio:=\"SELECT * from Cat_USU Order By mater, juzas\"\nLOCAL oQuery\nLOCAL correcto\n\n  IF !oOdbc:Execute(BorraCriterio,\"DELETE\",,correcto)\n     MsgAlert(\"Error al Eliminar en el Catálogo de Usuarios\")\n  EndIF\n\n  oQuery := oOdbc:Query(xcriterio)\n  // lDateAsStr := .t.,  Formato de Fecha \"AAAA/MM/DD\"\n  oQuery:lDateAsStr := .f.\n  oQuery:Open()\n  oQuery:Complete()\n  oQuery:GoBottom()\n  \n  IniCUSU(oLbx)\n  lGuarda:= .F.\n  lEsAlta:=.F.\n  lEsModi:=.F.\n  *oLbx:Refresh()\nReturn oQuery\n//------------------------------------------------------------------\nStatic Function GuardaCUSU(oODBC,oLbx)\nLOCAL AltaCriterio\nLOCAL ModiCriterio\nLOCAL XCriterio:=\"SELECT * from Cat_USU Order By mater,juzas\"\nLOCAL oQueryReg\nLOCAL correcto\nLOCAL oQuery\n\n? ALLTRIM(oGets[1])\n? oGets[2]\nIF !Empty(oGets[1]) .AND. oGets[2] &gt;0\n   AltaCriterio := \'INSERT INTO Cat_USU (mater,juzas,direccion,numero) values (\"\' + alltrim(oGets[1]) + \'\",\'+;\n                   alltrim(str(oGets[2])) +\',\"\' + alltrim(oGets[3])+\'\",\"NOHAY\")\'\n   ModiCriterio := \'UPDATE Cat_USU SET direccion= \"\' + alltrim(oGets[3]) + \'\", numero= \"NOHAY\"\' +;\n                   \' WHERE mater = \"\' + alltrim(oGets[1])+\'\"\'+ \' and juzas = \' + alltrim(str(oGets[2])) +;\n                   \' and direccion = \"\'+ t_dir + \'\" and numero = \"\'+t_num+\'\"\'\n  IF lGuarda\n     IF lEsAlta\n        msginfo(altacriterio)\n        IF !oOdbc:Execute(AltaCriterio,\"INSERT\",,correcto)\n           MsgAlert(\"Error al Addcionar en el Catálogo de Usuarios\")\n        EndIF\n     Else\n        msginfo(modicriterio)\n        IF !oOdbc:Execute(ModiCriterio,\"UPDATE\",,correcto)\n           MsgAlert(\"Error al Modificar en el Catálogo de Usuarios\")\n        EndIF\n     EndIf\n  ENDIF\nEndIF\n     oQuery := oOdbc:Query(xcriterio)\n     // lDateAsStr := .t.,  Formato de Fecha \"AAAA/MM/DD\"\n     oQuery:lDateAsStr := .f.\n     oQuery:Open()\n     oQuery:Complete()\n     oQuery:GoBottom()\n\n     IniCUSU(oLbx)\n     lGuarda:= .F.\n     lEsAlta:=.F.\n     lEsModi:=.F.\n\n  *oLbx:Refresh()\nReturn oQuery\n\n//------------------------------------------------------------------\nSTATIC Function CarCUSU(oLbx)           // OK, ODBC\n  oGets[1]:=FieldGet(1)//Clave\n  oGets[2]:=FieldGet(2)//Descripción\n  oGets[3]:=FieldGet(3)//dirección\n  **** oGets[4]:=FieldGet(4)//Número\n  T_Dir:=FieldGet(3)//dirección\n  T_Num:=FieldGet(4)//Número\n  oObjs[1]:Refresh()\n  oObjs[2]:Refresh()\n  oObjs[3]:Refresh()\n  ****oObjs[4]:Refresh()\n  *oLbx:Refresh()\nReturn .T.\n//------------------------------------------------------------------\n \nSTATIC Function IniCUSU(oLbx)\n  lEsAlta:=.T.\n  oGets[1]:=SPACE(2)\n  oGets[2]:=0\n  oGets[3]:=SPACE(17)\n  ****oGets[4]:=SPACE(30)\n  T_Dir:=\"\"\n  T_Num:=\"\"\n  oObjs[1]:Refresh()\n  oObjs[2]:Refresh()\n  oObjs[3]:Refresh()\n  ****oObjs[4]:Refresh()\n  *oLbx:Refresh()\nReturn .T.\n//------------------------------------------------------------------\nSTATIC FUNCTION BusCUSU()\nRETURN NIL\n//------------------------------------------------------------------\nSTATIC FUNCTION ImprimeCUSU(oOdbc)\nLOCAL oPen1, oPen2\nLOCAL oFon1, oFon2, oFon3\nLOCAL oReport\nLocal oQueryRep\nLocal RepCriterio:= \"SELECT * from Cat_USU Order By mater, juzas\"\nLocal aDatos\nLocal nField\nLocal Sihay,i\n\noQueryRep := oOdbc:Query(RepCriterio)\n// lDateAsStr := .t.,  Formato de Fecha \"AAAA/MM/DD\"\noQueryRep:lDateAsStr := .f.\noQueryRep:Open()\noQueryRep:Complete()\noQueryRep:Gotop()\nSiHay:=oQueryRep:RecCount()\n\naDatos := {}\nFor i=1 To SiHay\n    AADD(aDatos,{oQueryRep:FieldGet(1), oQueryRep:FieldGet(2), oQueryRep:FieldGet(3), oQueryRep:FieldGet(4)} )\n    oQueryRep:Skip()\nNext\n *oQueryRep:End()\n\nIF len(aDatos) == 0\n   MsgStop(\"No Existe Información\")\n   oQueryRep:Gotop()\n   RETURN oQueryRep\nENDIF\n\nDEFINE PEN oPen1 WIDTH 0.7\nDEFINE PEN oPen2 WIDTH 0.5\nDEFINE FONT oFon1 NAME \"Arial\" SIZE 0,-11\nDEFINE FONT oFon2 NAME \"Arial\" SIZE 0,-8\nDEFINE FONT oFon3 NAME \"COURIER NEW\" SIZE 0, 10   // Para Imprimir MEMOS\n\nnField:=1\nREPORT oReport TITLE \"Listado de Usuarios\";\n  CAPTION \"Catálogo : Usuarios\";\n  HEADER \"Tribunal Superior de Justicia del Distrito Federal\", ;\n    \"Fecha:  \"+DToC(DATE()),;\n    \"Página: \"+STR(oReport:nPage,3);\n  FOOTER \"- Catálogo de Usuarios -\" CENTER;\n  FONT oFon1, oFon2, oFon3 ;\n  PEN oPen1, oPen2;   // Tipo de linea a usar en Cabezera\n  PREVIEW\n\n  COLUMN TITLE \"Clave de\",\"Materia\"    DATA aDatos[nfield,1]+\", \"+dameMateria(aDatos[nfield,1])  FONT 2 CENTER //Val_Materias(oOdbc,aDatos[nfield,1])  //arreglos.prg\n  COLUMN TITLE \"Juzgado\"  DATA alltrim(str(aDatos[nField,2])) FONT 2  CENTER\n  COLUMN TITLE \"Dirección\"  DATA AllTRIM(aDatos[nField,3]) FONT 2 LEFT\n  COLUMN TITLE \"Número\"  DATA AllTRIM(aDatos[nField,4]) FONT 2    LEFT\n  END REPORT\n  oReport:bSkip := {|| nField++}\n  oReport:CellView()\n ACTIVATE REPORT oReport WHILE nField &lt;= len(aDatos);\n ON INIT oReport:oTitle:aFont[1] := { || 3 };\n\noPen1:End()\noPen2:End()\noFon1:End()\noFon2:End()\noFon3:End()\noQueryRep:Gotop()\nRETURN oQueryRep\n//------------------------------------------------------------------\nSTATIC FUNCTION BitMaps(oReport)\n   oReport:SayBitmap( 0.6,5, \"ArchivoBMP.bmp\", 1.9, 1.9, 2 )\n RETURN NIL','',0,'','2qfed351',1,0,'',322,0,0),(19286,4362,3,15,0,'203.73.49.53',1158892490,1,0,1,1,1,0,'','How to play DVD within FWH?','Hello FWHs\n\nI want to play DVD file or DVD type CD within FWH.\nDo you have any sample or solution for it?\n\nRegards,\n\nRichard','',0,'','2vv358mz',1,0,'',15,0,0),(19287,4363,6,73,0,'201.132.232.243',1158894634,1,0,1,1,1,0,'','evento VALID en un dialogo','Hola foro, tengo un pequeño problema que ya no se por donde buscarle, tengo un programa donde abro 2 dbf con sus alias abro el dialog, lo defino y al pulsar click en el boton de salida sale bien, pero al pulsar ESC me truena, esto nomas me sucede con xharbour con harbour jala bien, alguna sugerencia?\npongo un trozo del codigo\n\n  DEFINE DIALOG .........\n   bla bla bla bla\n\n   ACTIVATE DIALOG oDlg ;\n      VALID (oFontChild:lDestroy:=.F.,oFnt:End(),Sale(oDPac,@lExit,oItem,oBtn))\n\nRETURN (NIL)\n\nSTATIC FUNCTION Sale(oDPac,lExit,oItem,oBtn)\n   DbSelectArea(oDPac)\n   Cierra_dbf(\"Pacas\")\n   DbSelectArea(oDDes)\n   Cierra_dbf(\"Despepi\")\n   lExit := .T.\n   IF(!Empty(oItem),oItem:Enable(),)\n   IF(!Empty(oBtn),oBtn:Enable(),)\nRETURN .T.\n\nel error es el sigueinte:\nAlias does not exist: PACAS en la funcion sale linea 98 y la linea 98 es la del  DbSelectArea(oDPac), ya probe poniendo antes msginfo(oDPac) y me muestra \"PACAS\" ya probe con u used() y si esta en uso, cual sera el problema?\n\ngracias','',0,'','3ooy3e75',1,0,'',73,0,0),(19288,4347,6,2,0,'87.218.146.111',1158896173,1,0,1,1,1,1,'','','Antonio,\n\nQue OCX es ?','',0,'','1cfcao7s',1,0,'',2,0,0),(19289,4363,6,2,0,'87.218.146.111',1158896655,1,0,1,1,1,1,'','','Francisco,\n\nLlama a la función Sale() después del ACTIVATE. Posiblemente se este haciendo un repintado de la caja de diálogo y se intenta usar la DBF:\n\nACTIVATE DIALOG oDlg VALID ...\n\nSale( ... )','',0,'','308uz5cj',1,0,'',2,0,0),(19290,4316,6,2,0,'87.218.146.111',1158896925,1,0,1,1,1,1,'','','Carlos,\n\nMuéstranos un ejemplo pequeño y autocontenido de lo que estás haciendo y lo revisamos. Gracias','',0,'','ht127vml',1,0,'',2,0,0),(19291,4362,3,6,0,'82.57.162.28',1158907665,1,0,1,1,1,1,'','Re: How to play DVD within FWH?','Have you tried using MCI commands? I haven\'t a sample at hand, sorry.\n\nEMG','',0,'','1r6c4fbh',1,0,'',6,0,0),(19292,4364,3,297,0,'217.57.213.130',1158909279,1,0,1,1,1,0,'','To change color of a tree object','If I try to color a Tree the background of items remain always white.\nI have to obtain a tree of the same color of all others objects in a dialog.\nAny trick?','',0,'','24etyylk',1,0,'',297,0,0),(19293,4364,3,2,0,'87.218.146.111',1158912858,1,0,1,1,1,1,'','','Marco,\n\nPlease review samples\\TreeDlg.prg','',0,'','pqofkzq6',1,0,'',2,0,0),(19294,4364,3,297,0,'217.57.213.130',1158913906,1,0,1,1,1,0,'','','Yes but background color of items remains White!\n\nSaludos','',0,'','39cwz1sd',1,0,'',297,0,0),(19295,4364,3,2,0,'87.218.146.111',1158914807,1,0,1,1,1,1,'','','Marco,\n\nPlease check that you have these lines in Class TTreeView:\n[code:1ja7ap11]\nMETHOD ReDefine&#40; nId, oWnd, nClrFore, nClrBack, lDesign, cMsg &#41; CLASS TTreeView\n\n   DEFAULT oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nClrFore &#58;= oWnd&#58;nClrText,;\n           nClrBack &#58;= oWnd&#58;nClrPane,; // GetSysColor&#40; COLOR_WINDOW &#41;,;\n           lDesign  &#58;= &#46;f&#46;\n&#46;&#46;&#46;\n[/code:1ja7ap11]','',0,'AIA=','1ja7ap11',1,0,'',2,0,0),(19296,4362,3,15,0,'203.73.49.53',1158915105,1,0,1,1,1,0,'','','Hi EMG,\n\nYes, I try it. But not work.\n\nRegards,\n\nRichard','',0,'AIA=','ai5squ0n',1,0,'',15,0,0),(19297,4365,7,533,0,'80.32.177.143',1158915258,1,0,1,1,1,0,'','Problemas con PDA PPT2800 (Symbol)','Buenos días foro!!\n\n   ¿Sabéis como puedo echar a andar una aplicación con FWPPC en estas PDA\'S?. Directamente cuando intento ejecutar un programa básico me indica el siguiente error:\n\n    \"Cannot find &lt;programa&gt; (or one of its components). Make sure the \n      path and filename are correct and all the required libraries are \n      available\"\n\n    ¿ Puede ser que necesite actualizar la PDA con algunos ficheros?, etc. .\n\nUN SALUDO y muchas gracias de antemano,','',0,'AIA=','2v69obw2',1,0,'',533,0,0),(19298,4365,7,2,0,'87.218.146.111',1158915840,1,0,1,1,1,1,'','','Mike,\n\nIncluye estas funciones en tu PRG y vuelve a probarlo:\n[code:218yzgdf]\n// Windows CE temporary fix\nfunction CeSetmenu&#40;&#41; ; return nil\nfunction GetMenu&#40;&#41; ; return nil\nfunction ReadBitmap&#40;&#41; ; return nil\nfunction PalBmpRead&#40;&#41; ; return nil\n[/code:218yzgdf]','',0,'AIA=','218yzgdf',1,0,'',2,0,0),(19299,4364,3,297,0,'217.57.213.130',1158916362,1,0,1,1,1,0,'','','Antonio,\n      The answer is Yes.\n=============== from ttreevie.prg ==============\nMETHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) CLASS TTreeView\n\n   DEFAULT oWnd     := GetWndDefault(),;\n           nClrFore := oWnd:nClrText,;\n           nClrBack := oWnd:nClrPane,; // GetSysColor( COLOR_WINDOW ),;\n           lDesign  := .f.','',0,'AIA=','1xo1yypk',1,0,'',297,0,0),(19300,4365,7,533,0,'80.32.177.143',1158917133,1,0,1,1,1,0,'','Me da error','Antonio, al compilar me sale lo siguiente:\n\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Pocket PC - March 2006               Harbour development power ³Ü\n³ (c) FiveTech, 1993-2006                    for Microsoft Windows Pocket PC ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'autven.prg\' and generating preprocessed output to \'autven.ppo\'...\n\n100\n200\n300\nLines 473, Functions/Procedures 22\nGenerating C source output to \'autven.c\'... Done.\nautven.c\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_CESETMENU(void)\" (?HB_FUN_CESETMENU@@YAXXZ) already defined in autven.obj\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_GETMENU(void)\" (?HB_FUN_GETMENU@@YAXXZ) already defined in autven.obj\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_READBITMAP(void)\" (?HB_FUN_READBITMAP@@YAXXZ) already defined in autven.obj\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_PALBMPREAD(void)\" (?HB_FUN_PALBMPREAD@@YAXXZ) already defined in autven.obj\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_CESETMENU(void)\" (?HB_FUN_CESETMENU@@YAXXZ) already defined in autven.obj; second definition ignored\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_GETMENU(void)\" (?HB_FUN_GETMENU@@YAXXZ) already defined in autven.obj; second definition ignored\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_READBITMAP(void)\" (?HB_FUN_READBITMAP@@YAXXZ) already defined in autven.obj; second definition ignored\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_PALBMPREAD(void)\" (?HB_FUN_PALBMPREAD@@YAXXZ) already defined in autven.obj; second definition ignored\n   Creating library autven.lib and object autven.exp\nautven.exe : fatal error LNK1169: one or more multiply defined symbols found\n* Application successfully built','',0,'AIA=','33p4pknk',1,0,'',533,0,0),(19301,4366,6,66,0,'200.127.34.95',1158922390,1,0,1,0,1,0,'','Como puedo refresH un ojeto','Estimado Colegas \nTengo un funcion en la clausula on change de TWBrowse \n\non change( imagen(cfoto,ofoto)) \n\nReDEFINE image ofoto filename cfoto ID 108 OF oDlg update \n\n\nImagen (cfoto,ofoto) \n\nimagen-&gt;Foto := cfoto \nofoto:refresh() \n\ncomo hago para que cada vez que avanzo o retrocedo un registro \nme actualice el objeto ofoto,\n\ndesde ya muchas gracias \nFabian \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','2qc0wbep',1,0,'',66,0,0),(19302,4315,3,217,0,'200.159.120.34',1158923400,1,0,1,1,1,0,'','Re: hehehe foi mal','Aoki,\n\nVc deve passar o obfsu:setArray(fDados) de novo após excluir ou adicionar um novo elemento no array, ou então atualizar o bloco obfsu:bLogicLen para ler o novo tamanho do array e calcular a posição certa da barra.\n\n[ ]\'s\nMaurilio','',0,'','spcf9rbs',1,0,'',217,0,0),(19303,4367,6,92,0,'213.96.45.9',1158926353,1,0,1,1,1,0,'','ListBox de array multiselección','Hola a todos\n\nAlguién me puede decir de que manera se puede disponer de un ListBox/Browse de una array multiselección y que tenga varias columnas y además pueda seleccionar varias filas de ella?\n\nSaludos y gracias\nCarlos G.','',0,'','c4azyead',1,0,'',92,0,0),(19304,699,7,106,0,'85.34.123.173',1158927279,1,0,0,1,1,1,'','','De repente ya lo solucionaste, pero imagino que tenga que ver que depende donde pongas tu exe. \nPor ejemplo, al copiar mi exe a una carpeta \"x\", creaba un acceso directo y no me hacia ver el ICONO, luego copié mi programa en la carpeta windows e hice un acceso directo nuevo, y ahi si se ve el ICONO de mi aplicacion.\n\nCapaz que no tiene nada que ver, pero capaz que si.\n\nSaludos','',0,'','1uxjruzi',1,0,'',106,0,0),(19305,4363,6,73,0,'201.132.232.243',1158931365,1,0,1,1,1,0,'','','Gracias Antonio, no fijate que no se corrigio me manda:\nArgument error .NOT. form errorsys, line: 0\neste mismo codigo lo tengo en otro .prg y funciona bien con xharbour, de hecho este codigo lo coie tal cual junto, asi tambien el dialogo en el recurso tiene las misma caracteristicas del que funciona bien, aki la unica diferencia con el otro .prg es que en el que funciona bien uso unicamente una base de datos y en el que no uso 2,\ngracias\nSalu2\nPaco','',0,'','30xjlq2s',1,0,'',73,0,0),(19306,4367,6,303,0,'72.199.41.171',1158931442,1,0,1,1,1,0,'','','Aquí está un viejo mensaje:\n\n\n[quote:3q1xgk7g]From: \"Gino Siviero\" &lt;kec@axess.com&gt;\nTo: &lt;jbott@compuserve.com&gt;\nSubject: Re: Highliting multiple lines on a TWBrowse\nDate: Monday, July 16, 2001 11:00 AM\n\n \nHello James,\n\nI tried it with arrays... And it works !!!\n\nThen, I thought, if I can do it with arrays, I should be able to do it with a file in a TWBrowse. I did it !!!\n\nBy adding a new field to my database, I update that field when I select the record. When the field is updated, I also created a oLbx:nClrPane:={IIF( field = .T., nColor1, nColor2)}... Works even better...  I can now go to the database and process all records with this field at .T.\n\nI thank You for the inspiration (and your solution !!!)\n\nRegards,\n\nGino Siviero\n\n<!-- e --><a href=\"mailto:kec@axess.com\">kec@axess.com</a><!-- e -->[/quote:3q1xgk7g]','',0,'gA==','3q1xgk7g',1,0,'',303,0,0),(19307,4368,3,801,0,'200.175.20.38',1158931984,1,0,1,1,1,0,'','Action em Tree','Ola to all…. (I am new in the group)     \n\n1) Has as to make one tree (TTreeView) with opcao of ACTION (exactly she will be necessary to change the classroom)?   \n2) have as to change the source of tree?     \n\nI am very been thankful the group for the chance, or possibility of being able to clarify these you doubt!     \n\n\nThanks a lot \n\n\nOla a todos.... (sou novo aki no grupo)\n\n1) Tem como fazer um tree (TTreeView) com opcao de ACTION (mesmo se for preciso mudar a classe) ?\n2) tem como mudar a fonte do tree ?\n\nFico muito agradecido ao grupo pela oportunidade, ou possibilidade de poder esclarecer essas duvidas !\n\nMuito Obrigado\n\nGilberto \n(Brasil - Toledo - PR)\n<!-- e --><a href=\"mailto:giba_f@hotmail.com\">giba_f@hotmail.com</a><!-- e -->','',0,'gA==','2z0gcd76',1,0,'',801,0,0),(19308,4369,2,52,0,'201.212.71.153',1158933026,1,0,1,1,1,1,'','Para antonio. Apis de windows','Antonio,\n\nTengo una funcion en C que utiliza los encabezados del FWH, pero necesito que esa función utilice el FW.\n\nPregunta: ¿puedo utilizar sin problemas los mismo encabezados?, o sea, puedo \"copiar\" los apis que trae el FWH en la carpeta FW?\n\nGracias.','',0,'gA==','1mb0hn95',1,0,'',52,0,0),(19309,4361,3,69,0,'206.210.97.138',1158933248,1,0,1,1,1,0,'','','Thanks Luis.\n\n\nJeff','',0,'gA==','1t3mnuzw',1,0,'',69,0,0),(19310,4347,6,743,0,'200.79.46.141',1158934504,1,0,1,1,1,0,'','','[b:3tprb2xm]jcFrame.ocx[/b:3tprb2xm] esta es la libreria dime como la subo o te la mando a tu correo,\n\ngracias por tu apoyo\n\n\nAntonio[/b]','',0,'QA==','3tprb2xm',1,0,'',743,0,0),(19311,4347,6,2,0,'87.218.146.111',1158938029,1,0,1,1,1,1,'','','Antonio,\n\nNo nos envies nada de momento, gracias. Tienes la documentación de ese OCX ? Algún ejemplo de uso ?','',0,'QA==','u70bqijm',1,0,'',2,0,0),(19312,4366,6,180,0,'88.16.139.134',1158939674,1,0,1,1,1,0,'','','Yo lo hago así y funciona perfectamente:\n\n   REDEFINE LISTBOX oBj[9] ;\n            FIELDS ;\n            \" \"+DOCU-&gt;Concepto+\" \",;\n            \" \"+DOCU-&gt;Ubicado+\" \";\n            FIELDSIZES 240,240 ;\n            HEADERS OemToAnSi(\" Descripci¢n del documento\"),OemToAnSi(\"Ubicaci¢n del archivo de imagen\");\n            ID 509;\n            ON LEFT DBLCLICK (AltaDocu(oBj[9],\"Ver/Modificar datos del documento \",.F.),PonFoto(oFoto,cFoto,oDlg),oBj[9]:SetFocus()); // Al doble click se editar  el registro\n            OF oDlg\n\nREDEFINE IMAGE oFoto FILENAME LFN2SFN(cFoto) ID 800;            \n        OF oDlg ADJUST UPDATE //SCROLL                           \n  \noBj[9]:bChange:= {|| PonFoto(oFoto,cFoto,oDlg) }\n   //\n\n****************************************\nSTATIC FUNCTION PONFOTO(oFoto,cFoto,oDlg)\n****************************************\nLocal ctitulo:=ALLTRIM(DOCU-&gt;Concepto)+\" de \"+ALLTRIM(CLIENTES-&gt;NumCliente)+\" - \"+ALLTRIM(CLIENTES-&gt;Nombre)\ncFoto:=LFN2SFN(ALLTRIM(DOCU-&gt;Ubicado))\nctitulo:=ALLTRIM(DOCU-&gt;Concepto)+\" de \"+ALLTRIM(CLIENTES-&gt;NumCliente)+\" - \"+ALLTRIM(CLIENTES-&gt;Nombre)\n//\nIF !FILE(LFN2SFN(cFoto))\n   cFoto=\"NOHAY.JPG\"\nENDIF\n//\noFoto:LoadImage(,cFoto)\noFoto:Refresh()\noDlg:cTitle:=cTitulo\noDlg:Refresh()\n//\nRETURN NIL\n\nEspero te sea de ayuda.\nUn saludo,\nManuel','',0,'','2bur3ymx',1,0,'',180,0,0),(19313,4339,6,180,0,'88.16.139.134',1158940095,1,0,1,1,1,0,'','','Hola Antonio, \nWinExec( \"calc.exe\" )  funciona perfecto, pero no así el programa en MS-DOS. Con FW+Clipper funciona correctamente.\n\nUn saludo,\nManuel','',0,'','1dzthw7s',1,0,'',180,0,0),(19314,4350,6,37,0,'200.121.191.86',1158940913,1,0,1,1,1,1,'','','Rene, muchas gracias por contestar, pero no funciona, el recuadro no respeta los CRLF que sugieres ponga y hace el saldo de linea mucho antes, presentando un mensaje con un monton de lineas y muy poco legible\nSaludos','',0,'','2m4bnzrd',1,0,'',37,0,0),(19315,699,7,490,0,'80.24.224.89',1158941281,1,0,1,1,1,0,'','','No es por nada, pero en vez de esos inventos, ¿por qué no usas la clase tprogress de fwppc, que precisamente MS la diseñó para eso y Antonio la implementó como otro control hace varios meses?\n\n\n\nUn Saludo,\nJoaquín','',0,'','12mve3bv',1,0,'',490,0,0),(19316,4350,6,180,0,'88.16.139.134',1158941635,1,0,1,1,1,0,'','','Efectivamente, amigos, en FVH no funcionan los tooltip como en FW, aparecen todos con la misma anchura ignorando los CRLF, a menos que haya algún otro parámetro que estemos ignorando. \nAl hilo de la cuestión, como se implementan los tooltip tipo ballom como en la toolbar?\n\nSaludos,\nManuel Aranda','',0,'','3diz0g9m',1,0,'',180,0,0),(19317,4370,6,237,0,'200.68.70.89',1158942781,1,0,1,1,1,0,'','Antonio: no puedo compilar los ejemplos','Antonio:\n\nNo logro compilar los ejemplos que vienen en \\samples\nme da el siguiente error:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_CLASSCREATE\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN_CLASSOBJECT\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN_DBCREATEEXTSTRUCT\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN_DBCREATEFROM\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN_FIELDINFO\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN_DBESETDEFAULT\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN_DBELOAD\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN_DBEBUILD\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN__EARLYBOUNDCODEBLOCK\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\nError: Unresolved external \'_HB_FUN__SYMRELEASE\' referenced from P:\\FWH27\\LIB\\FIVEHX.LIB|DB10\n\n\nPor favor... \n\nMuchas gracias!','',0,'','z9moceq2',1,0,'',237,0,0),(19318,4347,6,743,0,'200.79.46.141',1158943205,1,0,1,1,1,0,'','','la documentacion como tal, no la tengo, pero conosco las propiedades y los metodos de la libreria, estuve haciendo pruebas, lo que encontre es que instale una version más reciente de harbour, no se que hice, pero me esta ejecutando el programa, solo que el problema es que lo quiero hacer por medio de un dialogo y este no me despleja el control que esta pasando en una ventana normal si me despleja el control pero en un dialogo no.\n\n\nsaludos','',0,'','29fo3mnf',1,0,'',743,0,0),(19319,4338,2,375,0,'84.122.123.253',1158943705,1,0,1,1,1,1,'','','Hola Claudio.\n\nBueno, aún no he migrado a FWH, pues no he tenido tiempo y espero hacerlo dentro de poco.\n\nEn principio es cierto, necesitas:\n\nBCC55 \nHARBOUR  (elk que corresponda a fw 2.6. ¿cual tienes?) \nFHW 2.6 \n\nPero además, por lo que he leido necesitaras PellesC para los recursos y VERCE para compilar adecuadamente cuando tienes más de un PRG. Yo aun no los tengo, pero seguro que en este foro encontraras a alguien que lo tenga y te lo pueda pasar.\n\nSiento no poder serte de más utilidad por el momento.\n\nUn saludo. Estaremos en contacto.','',0,'','usmgpzle',1,0,'',375,0,0),(19320,4347,6,2,0,'87.218.146.111',1158946572,1,0,1,1,1,1,'','','Pon aquí el código que estás usando para crearlo en el diálogo.','',0,'','1xm7fcdl',1,0,'',2,0,0),(19321,4347,6,743,0,'200.79.46.141',1158948844,1,0,1,1,1,0,'','','DEFINE DIALOG odlg TITLE \"PRUEBA ACTIVEX\"\n\n    oAgentS:= TActiveX():New( odlg, \"MyFramePanel.MyFrame\" )\n\n    oAgentS:nTop    := 10\n    oAgentS:nWidth  := 250\n    oAgentS:nLeft   := 80\n    oAgentS:nHeight := 200\n\n    oAgentS:SetProp( \"Caption\"      , \"Litio\" )\n    [b:2r9l9p62]oAgentS:SetProp( \"Font\"         , aFont  )[/b:2r9l9p62]   \n    oAgentS:SetProp( \"Appearance\"   , 5      )\n    oAgentS:SetProp( \"CaptionEffect\", 1      )\n\n   ACTIVATE DIALOG odlg\neste es el ejemplo, una pregunta, como puedo manipular las font del objeto, si al desplejar con un ?msgstop( oAgentS:getProp( \"font\"), aparece como objeto y quiero cambiar el tamano, y el tipo de letra, este es el codigo como creo con dialogo, pero no me hace nada, con windows si me lo ejecuta.\n\nSaludos Antonio Díaz\n\n\n)','',0,'QA==','2r9l9p62',1,0,'',743,0,0),(19322,4371,2,52,0,'201.212.71.153',1158949684,1,0,1,1,1,1,'','Necesito ejemplo de RMK y LNK','Amigos,\n\nNecesito si alguien me haria el favor de enviarme un ejemplo de un archivo .rmk para usarlo con rmake y .lnk\n\nNecesito que trabaje para poder compilar estos archivos:\n\nmenu.prg\ncodigo_c.c\n\nMuchísimas gracias.\n\n<!-- e --><a href=\"mailto:goosfancito@gmail.com\">goosfancito@gmail.com</a><!-- e -->\n\nPara agregar, les dejo un .zip donde estan los códigos fuentes,\nhay un archivo llamado \"mp_pipe.RMK\" ese lo llamo desde \"cl.bat\" que en realidad setea los parámetros para el rmake y luego hace la llamada \"rmake mp_pipe.rmk\".\n\nEl archivo mp.rmk es el que estoy \"tratando de crear\" para luego usar el MAKE, tome del de FWH que me dijo en su momento Antonio y traté de recrearlo, pero no lo entiendo sinceramente y quisiera ver si alguien me da una mano.\n\nGracias.\n\n[url:vednmmv1]http&#58;//hyperupload&#46;com/download/028f225016/prueba&#46;rar&#46;html[/url:vednmmv1]','',0,'EA==','vednmmv1',1,0,'',52,0,0),(19323,4372,3,49,0,'82.91.97.218',1158950168,1,0,1,1,1,1,'','scan pc','Using Tcip class...\nCan I insert on a browse  all pc there are in a classroom making a scan from ip to ip ?  to see if a pc is dead or alive ?\n\nCan you make a small sample pls ?\n\n\nBest Regards','',0,'EA==','7rw1bxeb',1,0,'',49,0,0),(19324,4373,3,31,0,'89.190.104.93',1158952214,1,0,1,1,1,1,'','NOWAIT|NOMODAL clause','Hi ,\n\nWith the new FWH of September &amp; xHB Builder \"ACTIVATE DIALOG ... NOWAIT or NOMODAL\" crash the apllication . Also I tried something with that - oDlg:Activate( ,,, .t.,, lDMdl, { || oDlg:Move( nK1, nK2, nK3, nK4, .t. ) } ) - where lDMdl - .t. or .f. values . The same result ... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->( .\n\n  Please help . I need the solution , because with previuos FWH version it worked fine and I did some dialogs with NOWAIT clause .\n\n   Regards ! Rimantas','',0,'EA==','2xir55yh',1,0,'',31,0,0),(19325,4347,6,743,0,'200.79.46.141',1158952413,1,0,1,1,1,0,'','','Antonio:\n\n\nen donde puedo encontrar la classe tactivex.prg\n\n\nsaludos\n\n\nAntonio Díaz','',0,'EA==','b1j0pq8n',1,0,'',743,0,0),(19326,4374,3,98,0,'70.71.111.92',1158960511,1,0,1,1,1,1,'','How to unlock the Clipboard when another app misbehaves','Hi all\n\nI\'m having a problem.  Something in my PC (and I know it\'s not FWH) is not releasing the Windows Clipboard, forcing me to reboot my PC in order to be able to do the everyday Cut &amp; Paste stuff!\n\nResearching in msdn, I found a couple of API functions that I thought would allow me to forcibly kill the other apps stronghold on the clipboard, but I\'m missing something.\n\n[code:1i1p9o0n]\nDLL32 FUNCTION ClipboardOwner&#40;&#41; ;\n   AS LONG PASCAL FROM &quot;GetClipboardOwner&quot; Lib &quot;user32&quot;\n\nDLL32 FUNCTION ClipboardChain&#40; ;\n   hPrevWnd AS LONG, ;\n   hNewWnd  AS LONG &#41; ;\n   AS LONG PASCAL FROM &quot;ChangeClipboardChain&quot; Lib &quot;user32&quot;\n[/code:1i1p9o0n]\ndoing something like\n\n[code:1i1p9o0n]\n#define WM_DESTROYCLIPBOARD 775\n\nFunction Test&#40;&#41;\n   Local oClp\n   Local hOwner &#58;= 0\n   Local hNewOwner &#58;= 0\n\n   MsgInfo&#40; ClipBoardOwner&#40;&#41; &#41;\n   oClp &#58;= TClipboard&#40;&#41;&#58;New&#40;&#41;\n   //MsgInfo&#40; &quot;App handle&#58; &quot; + cValToChar&#40; oClp&#58;oWnd&#58;hWnd &#41; &#41;\n   oClp&#58;Open&#40;&#41;\n\n   // this doesn\'t forcibly release ownership\n   hOwner &#58;= ClipBoardOwner&#40;&#41;\n   MsgGet&#40; &quot;New Clipboard Owner Handle&quot;, &quot;New &#58;&#58;hWnd&#58;&quot;, @hNewOwner &#41;\n   ClipboardChain&#40; hOwner, hNewOwner &#41;\n   SendMessage&#40; hNewOwner, WM_DESTROYCLIPBOARD, 0, 0 &#41;\n\n   oClp&#58;Close&#40;&#41;  // this works as expected, of course\n\n   hOwner &#58;= ClipBoardOwner&#40;&#41;\n   MsgInfo&#40; &quot;Clipboard Owner&#58; &quot; + cValToChar&#40; hOwner &#41; &#41;\n\nreturn nil\n[/code:1i1p9o0n]\n\nHas no efect.\nIf anyone has already created a routine that can release the clipboard when a misbehaved app doesn\'t release it, I\'d appreciate your help.\n\nRegard,\nLuis','',0,'AIA=','1i1p9o0n',1,0,'',98,0,0),(19327,4347,6,2,0,'87.218.146.111',1158962825,1,0,1,1,1,1,'','','En FWH a partir de FWH 2.7','',0,'AIA=','1drb4hbc',1,0,'',2,0,0),(19328,4375,6,73,0,'201.132.232.243',1158965792,1,0,1,1,1,0,'','WM_CLICK','en la clase btnget de RR con xHarbour me truena cn WM_CLICK que no existe la variable, alguien sabe el valor que tiene WM_CLICK para declararla o se puede mandar otro valor que haga lo mismo o la pueda suplir?\nesta en ::miobjeto:SENDMSG(WM_CLICK)\ngracias\npaco','',0,'AIA=','2wxdwck9',1,0,'',73,0,0),(19329,4376,6,495,0,'200.86.8.234',1158974536,1,0,1,1,1,0,'','Problema uso de Memoria','Hola amigos a ver si alguien me echa una manito...\n\nTengo una app que Carga un array con datos de ventas que digita el usuario y los muestra con la XTBrowse en un Dialog, luego los imprimo, guardo y lipio ese array. Una vez limpio el array paso a la siguiente venta en el mismo proceso, esto se realiza en un mismo Dialog. \n\nEl problema se produce cada vez que refresco el browse para hacer una nueva venta, alli aumenta el uso en memoria de la app llegando hasta un limite en que consume gran parte de la memoria del pc y el dialog comienza a desaparecer y la app hay que cerrarla con el administrador de tareas.\n\nHe realizado varias depuraciones y he bajado ese uso de memoria, pero ya no se que mas hacer, actualmente el problema se da cuando hago +- 100 ventas seguidas.... pero al usuario ya le molesta estar cerrando y habriendo la app cada vez que ocurre...\n\npor favor alguien echeme una manito\n\nde ante mano,\nmuchas gracias..\n\nEsta es la estructura general de la app.\n\n#include \"FIVEWIN.CH\"\n#include \"DTPICKER.CH\"\n\n#define AR_DATOS ::aDatos //defino el array\n\n***defino las variables a ocupar en el array\n#define BA_nAt ::oBrw:nArrayAt\n#define BA_NUMBOL 01\n#define BA_DESPRO 02\n#define BA_SUBTOT 03\n......\n.....\n/*-----------------------------------------------------------------------------------------------*/\nCLASS FT604 \n   DATA oBrw, oBtn, oCat, oDlg  \n   DATA aDbf\n   METHOD Open()\n   METHOD Init()\n   METHOD New() Constructor\n   METHOD Close()       INLINE AEval( ::aDbf, { |oDbf| oDbf:Close() } ), .T.\n   METHOD Agrega()\n   ...\n   ...	\nENDCLASS\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Open() CLASS FT604 //abro las dbf\'s\n   ::aDbf := Array( 02 )\n   DB_PRODUC   := Tred():Use( GetApp():cRuta + \"COPRODUC.DBF\" )\n   DB_CAJAS    := TRed():Use( GetApp():cRuta + \"MOCAJERO.DBF\" )\nRETURN lTredOpen( ::aDbf )\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Init() CLASS FT604 //preparo el array , y declaro variables\n   AAdd( AR_DATOS, ::AddReg() )\n   ::oGet := Array( 7 )\n   ::vGet := Array( 7 )\n   .....\nRETURN .T.\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD AddReg() CLASS FT604\n   RETURN { Space( 01 )    ,; // 01 -          NUMBOL 01\n            Space( 01 )          ,; // 02 -          DESPRO 02\n            0                         ,; // 03 -          CODPRO 03\n           .F.   }                      // 09 -    .....  ESTADO 09\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD New() CLASS FT604\n  LOCAL vMsg, oMsg\n  DEFINE Dialog ::oDlg Resource \"DL_604_VTAPOS\"\n      Redefine DTPICKER ::oDpk     VAR ::vDpk Id 106 Of ::oDlg COLORS CLR_BLACK ,CLR_RED \n      Redefine Get   ::oGet[01] VAR ::vGet[01] id 131 of ::oDlg Update valid { || ::Agrega() } COLORS CLR_BLACK ,CLR_HCYAN \n      ::oGet[07]:bGotFocus := { || ::oGet[07]:SetFocus() }   \n      ....\n\n      REDEFINE BTNBMP ::oBtn[05] ID 139 OF ::oDlg ;\n      RESOURCE \"SALIR2\"  Tooltip \"Salir Modulo Ventas...\"\n      ::oBtn[05]:bAction := { || ( ::oDlg:bValid := { || .T. } ) }\n      ....\n\n      WITH OBJECT ( ::oBrw := TXBrowse():New( ::oDlg ) )\n         ::SetBrw()\n         :CreateFromResource(107)\n      END\n      ::oDlg:bKeyDown := { |nKey| ::Tecla( nKey ) }\n  Activate Dialog ::oDlg center Valid .F.\n  ::Close()\nRETURN Self\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Agrega() CLASS FT604 //agrega los datos al array \n         hb_gcAll()\n         AR_DATOS[BA_nAt][BA_NUMBOL] := ::vGet[01]\n         AR_DATOS[BA_nAt][BA_DESPRO] := ::vGet[02]\n         AR_DATOS[BA_nAt][BA_SUBTOT] := ::vGet[03]\n         .....\n         ::Totales()\nRETURN NIL\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Totales() CLASS FT604 //sumo los parciales y refresco\n   ::vSay[01] := 0\n   ::vSay[04] ++\n   AEval( AR_DATOS,  { |aDat| ::vSay[01] += aDat[03] } )\n   ::oSay[01]:Refresh()\nRETURN .T.\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD SetBrw() CLASS FT604 //refresca los datos agregados al array\n   WITH OBJECT ::oBrw\n         :SetArray( AR_DATOS )\n         :aCols[ BA_NUMBOL ]:Hide()\n\n         WITH OBJECT :aCols[ BA_DESPRO ]\n            :cHeader  := \"DETALLE DEL PRODUCTO\"  \n            :nWidth       := 350\n            <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->DataFont    := ::oFont2\n         END\n         WITH OBJECT :aCols[ BA_SUBTOT ]\n            :cHeader  := \"SUB - TOTAL \"  \n            :nWidth       := 100\n            <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->DataFont    := ::oFont2\n         END\n   END\nRETURN NIL\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Tecla( nKey ) CLASS FT604 //teclas que se presionan para el cambio\n   DO CASE\n      CASE nKey == VK_F2 .AND. ::vSay[01] &gt; 0 ; ::cambio()\n   ENDCASE\nRETURN NIL\n*------------------------------------------------------------------------------------------------*/\nMETHOD Cambio() CLASS FT604\nLOCAL oDlg, oBtn, vSay, oSay, vPag, oPag, oRbt, vRbt, oGet, vGet, vCkb, oCkb\n DEFINE Dialog oDlg Resource \"DL_EFEC_POS\"\n   Redefine Get oPag     VAR vPag     id 105 of oDlg valid { || ::vuelto( vPag, oBtn ) } Font ::oFont COLORS CLR_BLACK ,CLR_HCYAN\n   Redefine Button oBtn[01] Id 106 Of oDlg Action (::oDlg:bValid := {||.T.}, ::Imprimir(), ::Guardar(), oDlg:END() )\n ACTIVATE DIALOG oDlg Center                                                   \nRETURN .T.\n*------------------------------------------------------------------------------------------------*/\nMETHOD Vuelto( vPag, vSay, oBtn, oSay ) CLASS FT604 \n   vSay[03] := Transform( vPag - vSay[02], \"999,999,999\" )\n   IF Val( vSay[03] ) &lt; 0\n      MsgInfo( \"Monto Pagado es incorrecto....!!\",\"Atención Cajeros...\" )\n      vPag := 0\n      oBtn[01]:Disable()\n   ELSE\n      oBtn[01]:Enable()\n   ENDIF\n   oSay[03]:Refresh()\nRETURN .T.\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Imprimir() CLASS FT604 //se imprime el comprobante de pago\n   Local cPuerto:=\"LPT1\", oPrn\n   LOCAL nLin, nFor\n   oPrn:=TDosPrn():New(cPuerto)\n   oPrn:Command(\"27,112,0,60,240\")\n   oPrn:SayCmp( 01,00, \"Caja:\" )\n   FOR nFor = 1 TO Len( AR_DATOS )\n      imprimo los datos del array\n      .....  \n   NEXT\n   oPrn:end(.T.)\n   MsgInfo( \"Documento Generado\", \"Atención Usuario...\" )\nRETURN .T.\n\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD Guardar() CLASS FT604 //guardo los datos en la dbf y vuelve con otra transaccion\n   LOCAL nFor\n   FOR nFor = 1 TO Len( AR_DATOS )\n	paso el array a la dbf...\n        .....      \n   NEXT\n   ::oSay[03]:Refresh()\n\n   hb_gcAll()\n   AR_DATOS := {}\n   AAdd( AR_DATOS, ::AddReg() )\n   SysRefresh()\n  ::SetBrw()         /// AQUI SE PRODUCE EL AUMENTO EN EL USO DE LA MEMORIA, cuando paso a la siguiente transacción\nRETURN Self','',0,'','3fc40jjh',1,0,'',495,0,0),(19330,4377,6,121,0,'189.138.43.201',1158981362,1,0,1,1,1,1,'','COLORES EN LISTBOX','Al utilizar listbox, puedo modificar los colores\nde los renglones, fondo y letras\ntambien puedo cambiar los colores de el renglon seleccionado\n\noB:nClrPane:={|| IIF(INT(&amp;cORDER-&gt;(ORDKEYNO())/2)=&amp;cORDER-&gt;(ORDKEYNO())/2,CLR_1,CLR_2) }\noB:nClrText:=CLR_BLACK \noB:nClrBackFOCUS:=RGB(0,200,0)\noB:nClrForeFOCUS:=CLR_BLACK \n\n[b:540qybk3]Pero no puedo cambiar los colores del encabezado, utilizo lo siguiente[/b:540qybk3]:\noB:nClrBackHead:=CLR_BLUE\noB:nClrForeHead:=CLR_WHITE\n\n( ESTO NO FUNCIONA,  SIEMPRE PONE FONDO BLANCO Y LETRAS NEGRAS)\n\ny\ntampoco puedo cambiar los colores del renglon \ncuando \"no esta seleccionado\"\nSIEMPRE PONE UN COLOR GRIS DE FONDO Y LETRAS BLANCAS \nse puede hacer algo ?','',0,'QA==','540qybk3',1,0,'',121,0,0),(19331,4332,6,215,0,'189.136.236.234',1158985977,1,0,1,1,1,0,'','','Enrrique\n\nAquí tienes la información\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3919\">http://fivetechsoft.com/forums/viewtopic.php?t=3919</a><!-- m -->','',0,'QA==','3btb3au5',1,0,'',215,0,0),(19332,4370,6,215,0,'189.136.236.234',1158986053,1,0,1,1,1,0,'','','Intenta con el archivo bat que te envie a tu hotmail.','',0,'QA==','dtfsjjdz',1,0,'',215,0,0),(19333,4316,6,501,0,'200.32.103.162',1158990429,1,0,1,1,1,0,'','Pequeño ejemplo','#include \"FiveWin.ch\"\nmemvar oDlg, oBtn1, aProducto, oLbx, oBrw, oCol\n\n//-----------------------------------------------------------------//\n[b:3f8sf7ba]function Main()[/b:3f8sf7ba]\n   aProducto:={} \n   AADD(aProducto, {\"Procesador\",\"Pza\",\" 45.00\"})\n   AADD(aProducto, {\"Procesador\",\"Pza\",\" 15.00\"})\n   AADD(aProducto, {\"Procesador\",\"Pza\",\" 25.00\"})\n   AADD(aProducto, {\"Procesador\",\"Pza\",\" 55.00\"})\n   AADD(aProducto, {\"Procesador\",\"Pza\",\" 75.00\"})\n   AADD(aProducto, {\"Procesador\",\"Pza\",\" 95.00\"})\n   \n   msginfo( version() + hb_osnewline()+CRLF+;\n   hb_compiler() + hb_osnewline()+CRLF+;\n   os() + hb_osnewline(),\"Assist Informática\" )\n\n   DEFINE dialog oDlg resource \"test\"\n      REDEFINE button prompt \"Hola\" ID IDOK OF oDlg ACTION oDlg:end()\n      REDEFINE LISTBOX oLbx FIELDS aProducto[oLbx:nAt, 1], ; \n 	                                      aProducto[oLbx:nAt, 2], ; \n                   	                      aProducto[oLbx:nAt, 3] ; \n                     HEADERS \"Producto\", ; \n	   	    \"Unidad\", ; \n		    \"Stock\" ; \n	     ID 115 OF oDlg\n             oLbx:SetArray( aProducto ) \n   ACTIVATE dialog oDlg center\n\nreturn nil\n\nEl msginfo bien, en el dialog se me presentan los problemas, el listbox no tiene control sobre los scroll y por otro lado no responde al click, tengo que llegar a hacer foco en el presionando TAB.\nEl boton esta en el RC pero cuando lo redefino se va del dialogo en tiempo de ejecución.\n\n[b:3f8sf7ba]ESTO TIENE EL TEST.RC[/b:3f8sf7ba]\nTest DIALOG 70, 63, 224, 121\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Test\"\nFONT 8, \"MS Sans Serif\"\n{\n PUSHBUTTON \"&amp;OK\", IDOK, 172, 4, 50, 14\n PUSHBUTTON \"&amp;Cancel\", IDCANCEL, 172, 20, 50, 14\n PUSHBUTTON \"&amp;Edit\", 112, 6, 86, 50, 14\n PUSHBUTTON \"&amp;Add\", 113, 61, 86, 50, 14\n PUSHBUTTON \"&amp;Del\", 114, 115, 86, 50, 14\n LISTBOX 115, 6, 5, 162, 72, LBS_STANDARD | LBS_DISABLENOSCROLL | WS_HSCROLL | WS_TABSTOP\n}\n\nEstuve leyendo por ahi en este foro que la version 2.6 no sería la mas optima y me parece que deberia obtener la 2.7 es eso cierto, si es cierto quisiera saber cuanto cuesta o si hay un demo para testearla bien antes de pasar todo lo de fw 2.1 que excepto un pequeño problema de consumo de recursos me pase a 2.1a y se resolvio perfectamente.\n\nTengo xHarbour 0.99.061 BCC32 y uso verce 4.3 que me vino de primera hasta conocer los bats nuevos, ahora me da lo mismo gracias a verce y a tus archivos ZIP con los makes y los ejemplos de fwh.\n\nMuy agradecido por tu atención, y lo mismo para Rene y muchos colegas que se leeran este mensaje y trataran de colaborar como siempre lo hace esta honorable comunidad.\n\nY los dejo porque acaba de caer en mis manos el DVD de Vertigo Tour 2005 U2 en Chicago y pinta muy bueno, fui aca en River como no podia ser de otra manera, [b:3f8sf7ba]una bocha [/b:3f8sf7ba][i:3f8sf7ba]como dice mi hijo cordobes de 6 años[/i:3f8sf7ba]. Saludos a todos y feliz primavera. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGRACIAS','',0,'YA==','3f8sf7ba',1,0,'',501,0,0),(19334,4373,3,2,0,'87.218.146.111',1158990771,1,0,1,1,1,1,'','','Rimantas,\n\nYou have to use xHarbour for Borland until xHarbour.com releases a new xHarbour builder. Unfortunately the current xharbour Builder is not compatible with the current xHarbour CVS files.','',0,'YA==','12qmnsbr',1,0,'',2,0,0),(19335,4342,6,501,0,'200.32.103.162',1158990818,1,0,1,1,1,0,'','','Gracias Master, ire probando.','',0,'YA==','ncrk4vbw',1,0,'',501,0,0),(19336,4368,3,2,0,'87.218.146.111',1158990937,1,0,1,1,1,1,'','','Gilberto,\n\nPlease review samples\\TestTree.prg:\n\noTree:bChanged = { || oWnd:SetText( If( oTree:GetSelected():GetParent() != nil,;\noTree:GetSelected():GetParent():cPrompt + \" + \", \"\" ) + ;\noTree:GetSelText() ) }','',0,'YA==','1h4xyo7d',1,0,'',2,0,0),(19337,4316,6,2,0,'87.218.146.111',1158991327,1,0,1,1,1,1,'','','Carlos,\n\nTienes que cambiar esto en el RC:\n\nLISTBOX 115, 6, 5, 162, 72, LBS_STANDARD | LBS_DISABLENOSCROLL | WS_HSCROLL | WS_TABSTOP\n\npor\n\nCONTROL \"\", 115, \"TWBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 6, 5, 162, 72\n\nLa actualización a FWH 2.8 vale 139,2 euros. Puedes solicitarla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos. Gracias,','',0,'YA==','2eudfhmj',1,0,'',2,0,0),(19338,4370,6,2,0,'87.218.146.111',1158991453,1,0,1,1,1,1,'','','Db10.prg no pertenece a FiveH.lib. Es sólo para Xbase++.','',0,'YA==','1wk8onde',1,0,'',2,0,0),(19339,4377,6,2,0,'87.218.146.111',1158991575,1,0,1,1,1,1,'','','Marco,\n\nTienes que modificar el PRG de la Clase para que lo haga. Es fácil.\n\nEstás usando la Clase TWBrowse de FWH ?','',0,'YA==','1rt9d018',1,0,'',2,0,0),(19340,4376,6,2,0,'87.218.146.111',1158991741,1,0,1,1,1,1,'','','Llama a hb_gcAll() para que harbour haga una recogida de \"basura\".\n\nFWH la llama automáticamente al salir de un diálogo, pero si no sales del diálogo, entonces no se está recogiendo la memoria que ya no está en uso.','',0,'YA==','1v1nkk9s',1,0,'',2,0,0),(19341,4350,6,2,0,'87.218.146.111',1158991911,1,0,1,1,1,1,'','','Manuel,\n\nFWH usa los tooltips nativos de Windows. Habrá que investigar como hacerlos multilínea.\n\nPara que aparezcan tipo balloon tienes que descomentar este último parámetro en source\\classes\\window.prg:\n\nhWnd = CreateToolTip( Self:hWnd, cToolTip ) // , .t. ) for ballon tooltips !','',0,'YA==','5515xg8y',1,0,'',2,0,0),(19342,4350,6,2,0,'87.218.146.111',1158992291,1,0,1,1,1,1,'','','Manuel,\n\nPara hacerlos multilínea hay que llamar a esta función despues de la llamada a CreateTooltip() en source\\classes\\window.prg:\n\n#define TTM_SETMAXTIPWIDTH  1048\n\nSendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 80 )\n\n80 es variable e indica el ancho máximo permitido del tooltip. A partir de ese ancho, el texto del tooltip se dispone en múltiples líneas basándose en los espacios en el texto, no en CRLF.','',0,'YA==','3lx6mggy',1,0,'',2,0,0),(19343,4339,6,2,0,'87.218.146.111',1158992518,1,0,1,1,1,1,'','','Manuel,\n\nPosiblemente se deba a que el programa que llamas es de 16 bits.','',0,'YA==','26haa1p8',1,0,'',2,0,0),(19344,4375,6,2,0,'87.218.146.111',1158992715,1,0,1,1,1,1,'','','Paco,\n\n#define WM_CLICK 245','',0,'YA==','vsqygam9',1,0,'',2,0,0),(19345,4355,6,2,0,'87.218.146.111',1158992791,1,0,1,1,1,1,'','','Adolfo,\n\nTienes que actualizar tu versión de FWH. Hacen falta muchos más cambios, por lo que no hay una solución fácil al problema.','',0,'YA==','3nfzl7r9',1,0,'',2,0,0),(19346,4363,6,2,0,'87.218.146.111',1158992885,1,0,1,1,1,1,'','','Paco,\n\nHas cambiado el valor de retorno del VALID para que devuelva .T. ó .F. ?','',0,'YA==','3bnki956',1,0,'',2,0,0),(19347,4358,6,2,0,'87.218.146.111',1158992945,1,0,1,1,1,1,'','','Que ambientes de trabajo son ?','',0,'YA==','1ubnu81i',1,0,'',2,0,0),(19348,4360,6,2,0,'87.218.146.111',1158993194,1,0,1,1,1,1,'','','Prueba con\n\nobfsu:SetArray(fdados)\nobfsu:oVScroll:SetRange( 1, Len( fdados ) )','',0,'YA==','v265fywi',1,0,'',2,0,0),(19349,4373,3,31,0,'89.190.104.93',1158998670,1,0,1,1,1,1,'','','Antonio ,\n \n[quote=&quot;Antonio Linares&quot;:1mjnroa8]\n\nYou have to use xHarbour for Borland until xHarbour.com releases a new xHarbour builder. Unfortunately the current xharbour Builder is not compatible with the current xHarbour CVS files.[/quote:1mjnroa8]\n\n  That means that FWH libs can\'t to work with xHarbour Builder ?\n\n  Regards , Rimantas','',0,'gA==','1mjnroa8',1,0,'',31,0,0),(19350,4373,3,3,0,'82.255.89.41',1159001437,1,0,1,1,1,1,'','','[quote=&quot;Rimantas&quot;:c983fbg1]Antonio ,\n \n[quote=&quot;Antonio Linares&quot;:c983fbg1]\n\nYou have to use xHarbour for Borland until xHarbour.com releases a new xHarbour builder. Unfortunately the current xharbour Builder is not compatible with the current xHarbour CVS files.[/quote:c983fbg1]\n\n  That means that FWH libs can\'t to work with xHarbour Builder ?\n\n  Regards , Rimantas[/quote:c983fbg1]\nRimantas\n\nXharbour Builder \"official release\" is from march 2006. This one is not compatible with fwh \n\nThere has been xharbour builder beta releases that are compatible with fwh but they are \"beta\" .\n\nmany of us are waiting for an official xharbour builder release. I am still running a fwh from april 2006 and i need to upgrade also !\n\nFrom xharbour\'s ng , there is supposed to be an official release early october ..... \n\nHth\n\nRichard','',0,'gA==','c983fbg1',1,0,'',3,0,0),(19352,4332,6,37,0,'201.230.229.241',1159002452,1,0,1,1,1,1,'','','Muchas gracias FLeal, procedo a probarlo.\nSaludos','',0,'gA==','1baf0a8p',1,0,'',37,0,0),(19353,4378,3,707,0,'222.124.20.50',1159002546,1,0,1,1,1,0,'','PABX System with COM WAIT EVENT','Hi All !\n\nI used COMMUNICATION port :\n- SetComstateDb\n- InitCom\n- ReadCom\n- CloseCom\n\nAnyone can help me how to use COM WAIT EVENT ?\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oDlg, nComm := InitComm()\n\n   DEFINE DIALOG oDlg TITLE \"Testing Comm functions\"\n\n   oDlg:bCommNotify = { | nComm, nStatus | BytesAtPort( nComm, nStatus ) }\n\n&gt;&gt;&gt;???? this block for wait event every time for read comport ????&lt;&lt;&lt;\nis that true ?\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT EnableCommNotification( nComm, oDlg:hWnd, 20, 20 )\n\n   CloseComm( nComm )\n\nreturn nil\n\nfunction InitCOMM()\n\n   local cDcb, nError, nBytes\n   local nComm := OpenComm( \"COM1\", 1024, 128 )\n\n   if ! BuildCommDcb( \"COM1:9600,n,8,1\", @cDcb )\n      MsgStop( \"Error BUILD!\" )\n      return .f.\n   endif\n\n   #ifdef __CLIPPER__\n      if ! SetCommState( cDcb )\n   #else   \n      if ! SetCommState( nComm, cDcb )\n   #endif   \n      MsgStop( \"Error SETCOMM!\" )\n      return .f.\n   endif\n\nreturn nComm\n\nfunction BytesAtPort( nComm, nStatus )\n\n   local cBuffer := Space(20 )\n\n   Msginfo( nSTATUS)\n   ReadComm( nComm, @cBuffer )  // &lt;&lt;&lt;&lt;---- program will lock here\n   Msginfo( AllTrim( cBuffer ))\n\nreturn nil \n\nthanks\nAreang','',0,'gA==','30ribk54',1,0,'',707,0,0),(19354,4379,6,791,0,'190.37.142.29',1159008020,1,0,1,1,1,0,'','Cual es el mejor editor de Recursos para 32 bits','Saludos, a todos\n\nCual es el Mejor editor de Recursos de 32 bit y donde lo consigo\n\nGracias','',0,'gA==','1iband75',1,0,'',791,0,0),(19355,4378,3,6,0,'87.18.233.59',1159013863,1,0,1,1,1,1,'','Re: PABX System with COM WAIT EVENT','This is a working sample of a simple ASCII terminal program:\n\n[code:5k5xzam4]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cTxt &#58;= &quot;&quot;\n\n    LOCAL nCom\n\n    DEFINE DIALOG oDlg;\n           SIZE 500, 500;\n           TITLE &quot;Terminale&quot;\n\n    @ 0, 0 GET oGet VAR cTxt MEMO READONLY\n\n    oGet&#58;bKeyDown = &#123; | nKey | Tasti&#40; nCom, nKey &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oGet&#58;AdjClient&#40;&#41;,;\n                       nCom &#58;= APRICOM&#40; oDlg, oGet &#41;,;\n                       IF&#40; nCom &lt; 0, oDlg&#58;End&#40;&#41;, &#41; &#41;;\n             CENTER\n\n    IF nCom &gt;= 0; CLOSECOMM&#40; nCom &#41;; ENDIF\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TASTI&#40; nCom, nKey &#41;\n\n    SENDSTR&#40; nCom, CHR&#40; nKey &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION APRICOM&#40; oDlg, oGet &#41;\n\n    LOCAL nCom, cDcb\n\n    BEGIN SEQUENCE\n        nCom = OPENCOMM&#40; &quot;COM1&quot;, 16384, 16384 &#41;\n\n        IF nCom &lt; 0\n            ? &quot;Errore di apertura della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        BUILDCOMMDCB&#40; &quot;COM1&#58;115200,N,8,1&quot;, @cDcb &#41;\n\n        IF !SETCOMMSTATE&#40; nCom, cDcb &#41;\n            ? &quot;Errore di impostazione della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        oDlg&#58;bCommNotify = &#123; | nCom | Connect&#40; nCom, oGet &#41;,;\n                                      EnableCommNotification&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41; &#125;\n\n        IF !ENABLECOMMNOTIFICATION&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41;\n            ? &quot;Errore di abilitazione della notifica&#46;&quot;\n            BREAK\n        ENDIF\n    RECOVER\n        nCom = -1\n    END SEQUENCE\n\n    RETURN nCom\n\n\nSTATIC FUNCTION CONNECT&#40; nCom, oGet &#41;\n\n    LOCAL cStr\n\n    ENABLECOMMNOTIFICATION&#40; nCom, 0, 1, -1 &#41;\n\n    cStr = RECEIVESTR&#40; nCom &#41;\n\n    cStr = STRTRAN&#40; cStr, CHR&#40; 13 &#41;, &quot;&quot; &#41;\n    cStr = STRTRAN&#40; cStr, CHR&#40; 10 &#41;, CRLF &#41;\n\n    oGet&#58;Append&#40; cStr &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDSTR&#40; nCom, cString &#41;\n\n    LOCAL nBytes &#58;= WRITECOMM&#40; nCom, cString &#41;\n\n    RETURN nBytes = LEN&#40; cString &#41;\n\n\nSTATIC FUNCTION RECEIVESTR&#40; nCom &#41;\n\n    LOCAL cBuf &#58;= SPACE&#40; 1000 &#41;\n\n    RETURN LEFT&#40; cBuf, READCOMM&#40; nCom, @cBuf &#41; &#41;[/code:5k5xzam4]\n\nEMG','',0,'AIA=','5k5xzam4',1,0,'',6,0,0),(19356,4360,6,694,0,'200.181.156.41',1159017810,1,0,1,1,1,1,'','ANTONIO','Antonio, fiz como você pediu, mais assim o FOCO volta para o primeiro elemento. eu preciso sempre mostrar o ultimo elemento da ARRAY.\n\nPara posicionar no ultimo elemento estou fazendo assim:\n\nobfsu:nAt:=(len(fdados))\n\nDevo fazer assim mesmo?','',0,'AIA=','1sxsw4iw',1,0,'',694,0,0),(19357,4380,6,694,0,'200.181.156.41',1159018010,1,0,1,1,1,1,'','Função para tratar se ouve alteração no DBF','Alguem tem uma função que faz automaticamente a alteração na estrutura do DBF , acrescentando um novo campo por exemplo, mais mantendo os registros? Eu tenho uma mais esta dando este erro:\n\n Error description: Error DBCMD/0  Open error: DBAPP\n\n\n\nFiquem com Deus\nAOKISANTOS','',0,'AIA=','28730bwc',1,0,'',694,0,0),(19358,4368,3,801,0,'200.175.20.38',1159020829,1,0,1,1,1,0,'','','First, thanks for the reply.    \n\nHad seen and tested, but not was exatament what I am needing… The ACTION would be the idea!    \n\nNor changing the classroom?    \n\nThanks a lot! \n\nOBS: sorry my ingles (hehehehe)','',0,'AIA=','34wn9a6v',1,0,'',801,0,0),(19359,4379,6,396,0,'190.39.204.143',1159025740,1,0,1,1,1,1,'','','En cuestions de gusto y colores no han escrito los pintores, tienes PELLES C que es gratiuto, tienes WorkShop de Borland, tienes Visual C(mi preferido), tiens Borland Resouce, entre otros.','',0,'AIA=','c5fhija5',1,0,'',396,0,0),(19360,4375,6,73,0,'201.132.224.40',1159030614,1,0,1,1,1,0,'','','Gracias Antonio.\nsalu2\nPaco','',0,'AIA=','35vkv7we',1,0,'',73,0,0),(19361,4363,6,73,0,'201.132.224.40',1159030769,1,0,1,1,1,0,'','','No, el valor sigue devolviendo .T., por lo pronto le meti un truquillo, validar dentro de sale el VK_ESCAPE y que me devuelva .F., para que no siga con los select y cierre las bases de datos, por lo pronto funciona, seguire probando, gracias\nsalu2\nPaco','',0,'AIA=','3v15wfq6',1,0,'',73,0,0),(19362,4373,3,31,0,'89.190.104.93',1159032355,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:vz8sorj4]\n\nXharbour Builder \"official release\" is from march 2006. This one is not compatible with fwh \nThere has been xharbour builder beta releases that are compatible with fwh but they are \"beta\" .\nmany of us are waiting for an official xharbour builder release. I am still running a fwh from april 2006 and i need to upgrade also !\nFrom xharbour\'s ng , there is supposed to be an official release early october ..... \n[/quote:vz8sorj4]\n\n Good explanation Richard , but ... How it\'s related to NOWAIT|NOMODAL clause from FWH Dialog class and xHarbour Builder ? This I can\'t understand . Graphics libs are FWH , dialogs &amp; windows are working fine . 99.99 % all is working fine . Only this NOWAIT clause isn\'t working . Excuse , but I\'m thinking that this is FWH problem , because , as I mentioned , this is from FWH .\n   That is only my opinion ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n  Regards !','',0,'gA==','vz8sorj4',1,0,'',31,0,0),(19363,4118,3,148,0,'196.205.183.188',1159038914,1,0,1,1,1,0,'','','I am sorry I do not undestand Spanish but if I converted fixed arrays into the program to field of database I have error messages :\nError description: Error BASE/1068  Argument error: array access\n\n[code:23wblisb]\n#INCLUDE &quot;FIVEWIN&#46;CH&quot;\nprocedure main&#40;&#41;\n\nLOCAL oWnd, oBrw, aDatos\n\n   //MsgInfo&#40; &quot;Hola Mundo&quot; &#41;\n\n   DEFINE WINDOW oWnd\n\n   *aDatos &#58;= &#123; &#123; &quot;uno   &quot;, &quot;dos   &quot;, &quot;tres  &quot;, &quot;cuatro&quot;, &quot;cinco &quot; &#125;,;\n   *            &#123; &quot;Seis  &quot;, &quot;Siete &quot;, &quot;Ocho  &quot;, &quot;Nueve &quot;, &quot;Diez  &quot; &#125; &#125;\n\n    aDatos &#58;=creatarray&#40;&#41;\n   WITH OBJECT &#40; oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41; &#41;\n      &#58;SetArray&#40; aDatos &#41;\n\n      WITH OBJECT &#58;aCols&#91;01&#93;\n         &#58;cHeader     &#58;= &quot;Col1&quot;\n         &#58;nEditType   &#58;= 01\n         &#58;bOnPostEdit    &#58;= &#123; |oCol| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;01&#93; &#58;= oCol&#58;oEditGet&#58;cText &#125;\n      END\n\n      WITH OBJECT &#58;aCols&#91;02&#93;\n         &#58;cHeader     &#58;= &quot;Col2&quot;\n         &#58;nEditType   &#58;= 02\n         &#58;aEditListTxt   &#58;= aDatos\n         &#58;aEditListBound &#58;= &#58;aEditListTxt\n         &#58;bOnPostEdit    &#58;= &#123; |oCol,cOption| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;02&#93; &#58;= cOption &#125;\n      END\n\n      WITH OBJECT &#58;aCols&#91;03&#93;\n         &#58;cHeader     &#58;= &quot;Col3&quot;\n         &#58;nEditType   &#58;= 03\n         &#58;bOnPostEdit &#58;= &#123; || &quot;&quot; &#125;\n         &#58;bEditBlock  &#58;= &#123; || MsgInfo&#40; &quot;Hola&quot; &#41; &#125;\n      END\n\n      WITH OBJECT &#58;aCols&#91;04&#93;\n         &#58;cHeader     &#58;= &quot;Col4&quot;\n         &#58;nEditType   &#58;= 04\n         &#58;aEditListTxt   &#58;= aDatos\n         &#58;aEditListBound &#58;= &#58;aEditListTxt\n         &#58;bOnPostEdit    &#58;= &#123; |oCol,cOption| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;04&#93; &#58;= IF&#40; Len&#40; Alltrim&#40; cOption &#41; &#41; &gt; 0, cOption, oCol&#58;oEditGet&#58;cText &#41; &#125;\n      END\n\n      WITH OBJECT &#58;aCols&#91;05&#93;\n         &#58;cHeader     &#58;= &quot;Col5&quot;\n         &#58;nEditType   &#58;= 05\n         &#58;bOnPostEdit &#58;= &#123; |oCol| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;05&#93; &#58;= oCol&#58;oEditGet&#58;cText &#125;\n         &#58;bEditBlock  &#58;= &#123; || MsgInfo&#40; &quot;Hola&quot; &#41; &#125;\n      END\n   &#58;CreateFromCode&#40;&#41;\n\n   END\n   oWnd&#58;oClient &#58;= oBrw\n\n   Activate Window oWnd\n  *  TWINDOW&#40;&#41;&#58;ACTIVATE&#40; oWnd &#41;\n\n\n\nfunction creatarray&#40;&#41;\nlocal aData &#58;= &#123;&#125;,oDlg\n\nuse mach\nmach-&gt;&#40;dbGotop&#40;&#41;&#41;\ndo while !mach-&gt;&#40;eof&#40;&#41;&#41;\naadd&#40; aData , mach-&gt;mc_serial &#41;\nmach-&gt;&#40;dbSkip&#40;&#41;&#41;\nenddo\n/*\nUSE THIS ARRAY BY LISTBOX CLASS, you will get the names of mach from DBF\n*/\n\nreturn &#40;aData&#41;\n\n[/code:23wblisb]','',0,'AIA=','23wblisb',1,0,'',148,0,0),(19364,4379,6,138,0,'189.141.70.60',1159039099,1,0,1,1,1,1,'','','Para mi el mejor de todos es el Resource builder, si no te importa gastarte 50.00 USD, pero merece la pena, por varias razones.\n\n1) Genera archivos RC. y trae su propio compilador con el cual puede generar archivos .RES listos para enlazar en tu EXE final.\n\n2) Puede abrir DLLs y EXES (de 16 o de 32 bits) o RC generados en otros editores y te permite \"importar\" los recursos de otros programas o componentes en tus propios proyectos.\n\n3) Te permite trabajar directamente sobre el EXE, es decir, no tienes que recompilar el programa cuando cambias algo en el RC, porque puedes editar los recursos DIRECTO en el EXE, y el resource builder los \"parcha\" sin necesidad de volver a compilar el codigo fuente.\n\n4) El editor de iconos es fenomenal, te permite manejar iconos desde 16x16 hasta 96x96 y varios tamaños dentro del mismo icono, ademas soporta iconos tipo XP en color real de 32 bits. (el wokshop solo soporta iconos de 32x32 y hasta de 16 colores)\n\n5) Soporta imagenes BMP de cualquier tamaño y gama de colores, y tambien soporta archivos JPG, asi como en el Workshop puedes incluir un archivo BMP con un monton de colores pero no lo puedes editar ni modificar, con el Resource Builder, puedes incluir en tu proyecto archivos BMP y JPG de cualquier tamaño y de cualquier calidad de color, los archivos de gran color tienen problemas para ser compilados con cualquier compilador de recursos, pero con el compilador del Resource builder no.\n\n6) El editor de dialogos tiene todas las caractersticas del de workshop, pero ademas, soporta los estilos de ventanas extendidos de Windows.\n\n7) Lo mas impresionante: el Resource Builder genera recursos en XML, que pueden ser utilizados en Linux ya sea con el propio FiveWin o con otras GUIs para Linux como GTK.\n\n<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Para los amantes de los contorles borland, tambien ofrece soprote a l BWCC32.DLL para controles de este tipo.\n\n\nHay un demo de 30 dias en <!-- w --><a class=\"postlink\" href=\"http://www.resource-builder.com\">www.resource-builder.com</a><!-- w -->','',0,'AIA=','tjeub0dp',1,0,'',138,0,0),(19365,4379,6,501,0,'200.32.103.140',1159040010,1,0,1,1,1,0,'','','Completamente deacuerdo con don RENE, la semana pasada baje el demo version 2.5 y esta bárbaro.','',0,'AIA=','3j40r6f0',1,0,'',501,0,0),(19366,4379,6,791,0,'190.37.142.29',1159042186,1,0,1,1,1,0,'','Re: Cual es el mejor editor de Recursos para 32 bits','Gracias por la informacion, los voy a usar','',0,'AIA=','q2inkc1i',1,0,'',791,0,0),(19367,4381,2,52,0,'201.212.71.153',1159042345,1,0,1,1,1,1,'','CallNamedPipe en FW','Amigos,\n\nMi código estaba hecho para FWH, pero ahora necesito pasarlo tambien para FW, comencé pero me tira un error al compilar, podrían ayudarme?\n\n[code:23s4gnqt]#include &quot;winten&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n\n#ifndef __HARBOUR__\n   #include &quot;clipapi&#46;h&quot;\n#else\n   #include &quot;hbapi&#46;h&quot;\n#endif\n\n#define BUFSIZE 512\n\n#ifndef __HARBOUR__\n   CLIPPER COMANDOCEM&#40; PARAMS &#41;\n#else\n   HB_FUNC &#40; COMANDOCEM &#41;\n#endif\n&#123;\n   #ifndef __HARBOUR__\n      char chReadBuf&#91;BUFSIZE&#93;;\n   #else\n      TCHAR chReadBuf&#91;BUFSIZE&#93;;\n   #endif\n\n   BOOL fSuccess;\n   DWORD cbRead, cbWritten, dwMode;\n\n   #ifndef __HARBOUR__\n      LPSTR lpszPipename = _parc&#40; 1 &#41; ;\n      LPSTR lpszWrite    = _parc&#40; 2 &#41; ;\n   #else\n      LPTSTR lpszPipename = hb_parc&#40; 1 &#41; ;\n      LPTSTR lpszWrite    = hb_parc&#40; 2 &#41; ;\n   #endif\n\n   OutputDebugString&#40; _parc&#40;1&#41; &#41;;\n\n   #ifndef __HARBOUR__\n\n      fSuccess = CallNamedPipe&#40;\n                  lpszPipename,\n                  lpszWrite,\n                  &#40;lstrlen&#40; lpszWrite&#41; + 1 &#41; * sizeof&#40; char &#41;,\n                  chReadBuf,\n                  BUFSIZE * sizeof&#40; char &#41;,\n                  &amp;cbRead,\n                  200000 &#41;;\n\n   #else\n\n      fSuccess = CallNamedPipe&#40;\n                 lpszPipename,\n                 lpszWrite,\n                 &#40; lstrlen&#40; lpszWrite &#41; + 1 &#41; * sizeof&#40; TCHAR &#41;,\n                 chReadBuf,\n                 BUFSIZE*sizeof&#40; TCHAR &#41;,\n                 &amp;cbRead,\n                 20000&#41;;\n\n   #endif\n\n&#125;\n[/code:23s4gnqt]\n\nError:[quote:23s4gnqt]Warning source\\pipeclte.c 74: Call to function \'CallNamedPipe\' with no prototype in function COMANDOCEM\nWarning source\\pipeclte.c 89: \'fSuccess\' is assigned a value that is never used in function COMANDOCEM\n[/quote:23s4gnqt]','',0,'gIA=','23s4gnqt',1,0,'',52,0,0),(19368,4377,6,121,0,'189.138.43.201',1159042652,1,0,1,1,1,1,'','','Si utlizo la clase Twbrowse de fivewin\n\nLo que no se es en donde le tendria que modificar','',0,'gIA=','3aem5j30',1,0,'',121,0,0),(19369,4367,6,92,0,'62.151.92.7',1159046879,1,0,1,1,1,0,'','ListBox/Browse de array con multiselección','[quote=&quot;James Bott&quot;:dmbu9cy6]Aquí está un viejo mensaje:\n\n\n[quote:dmbu9cy6]From: \"Gino Siviero\" &lt;kec@axess.com&gt;\nTo: &lt;jbott@compuserve.com&gt;\nSubject: Re: Highliting multiple lines on a TWBrowse\nDate: Monday, July 16, 2001 11:00 AM\n\n \nHello James,\n\nI tried it with arrays... And it works !!!\n\nThen, I thought, if I can do it with arrays, I should be able to do it with a file in a TWBrowse. I did it !!!\n\nBy adding a new field to my database, I update that field when I select the record. When the field is updated, I also created a oLbx:nClrPane:={IIF( field = .T., nColor1, nColor2)}... Works even better...  I can now go to the database and process all records with this field at .T.\n\nI thank You for the inspiration (and your solution !!!)\n\nRegards,\n\nGino Siviero\n\n<!-- e --><a href=\"mailto:kec@axess.com\">kec@axess.com</a><!-- e -->[/quote:dmbu9cy6][/quote:dmbu9cy6]\n\nGracias James, empiezo a investigar la clase TWbrowse.\n\nSaludos\nCarlos G.','',0,'gA==','dmbu9cy6',1,0,'',92,0,0),(19370,4373,3,2,0,'87.218.146.173',1159049463,1,0,1,1,1,1,'','','Rimantas,\n\nFWH uses the Harbour/xHarbour function hb_objHasMessage(). This function has been recently fixed in xHarbour by Przemek, but it has not been fixed in xHarbour Builder. Thats the problem. And it is a xHarbour Builder problem.\n\n2006-09-18 01:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)\n  * xharbour/source/vm/classes.c\n    ! fixed GPF when non object item is passed to hb_objHasMessage()','',0,'gA==','y486nzfc',1,0,'',2,0,0),(19371,4382,6,471,0,'190.40.127.19',1159058592,1,0,1,1,1,1,'','NO me sale la ñ con la clase TDOSPRN','Amigos\n\nuso la clase TDOSPRN para imprimir pero resulta que no me imprime la\nletra ñ me sale una caracter raro.. \n\n\n\nAlguna Sugerencia\n\n\n\n\n\nGracias','',0,'gA==','3c98g0ks',1,0,'',471,0,0),(19372,4367,6,492,0,'201.154.126.49',1159060762,1,0,1,1,1,1,'','','Hola Carlos\n\nEl principio en si es de agregar una columna al browse ya sea con valor logico o numerico, para manejarlo como \"flag\" que fue seleccionado o no, en lo visual, hay varias maneras de mostrarlo, ya sea como dice James, cambiando el color del texto del registro o agregando otra columna mas con algun bmp.\n\nEn mis apps he manejado ambas, y funcionan muy bien usando un metodo muy parecido al mencionado por James.\n\nEn caso que lo requieras, mandame un mensaje a mi correo para enviarte un par de ejemplos.\n\nSALUDOS','',0,'gA==','1nwlcexj',1,0,'',492,0,0),(19373,4377,6,582,0,'200.117.173.127',1159063267,1,0,1,1,1,0,'','Re: COLORES EN LISTBOX','Marcos ,estas seguro que estan enlazando la libreria de Hernan ?\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','2aaohkek',1,0,'',582,0,0),(19374,4382,6,138,0,'148.233.159.24',1159066413,1,0,1,1,1,1,'','','Antes de imprimir convierte la cadena con un ANSITOEM():\n\noPrn:Say(reng,col,ANSITOEM(\"niño ñandu araña\"))','',0,'gA==','1yac1u0v',1,0,'',138,0,0),(19375,4377,6,2,0,'87.218.146.173',1159078089,1,0,1,1,1,1,'','','Marco,\n\nFWH dibuja un control \"header\" en la fila superior usando los temas de XP. Para que use tus colores debes eliminar estas líneas de la función wBrwLine() que está dentro de source\\classes\\wbrowse.prg:\n[code:8ihgbfs5]\n            if nRowPos == 0 &#46;and&#46; IsAppThemed&#40;&#41;\n               DrawHeader&#40; hWnd, hDC, nTop - 1, nLeft, nBottom, nRight, AnsiToOem&#40; aValues&#91; n &#93; &#41; &#41;\n            else\n               &#46;&#46;&#46;  // esto hay que dejarlo\n            endif\n[/code:8ihgbfs5]','',0,'AIA=','8ihgbfs5',1,0,'',2,0,0),(19376,4383,3,148,0,'196.205.183.188',1159079288,1,0,1,1,1,0,'','Txbrowse Database handle','What methods used in Txbrowse to add,edit,delete record browsed using Txbrowse ?','',0,'AIA=','i587gwo3',1,0,'',148,0,0),(19377,4364,3,6,0,'87.17.213.80',1159081786,1,0,1,1,1,1,'','','Antonio, do you need a sample of this problem?\n\nEMG','',0,'AIA=','2h2p4vnu',1,0,'',6,0,0),(19378,4378,3,707,0,'222.124.20.50',1159081804,1,0,1,1,1,0,'','','Enrico.\n\nThank, you are good guru\n\nBest Regard\nAreang','',0,'AIA=','1yr8g5iy',1,0,'',707,0,0),(19379,4383,3,707,0,'222.124.20.50',1159082228,1,0,1,1,1,0,'','','Ehab.\n\ncreate each button on your dialog\n....oDlg....\n....oBrw....\n\n@20,10 button \"add\" size 20,12 of oDlg pixel action ( addRecord() )\n\n@20,60 button \"Del\" size 20,12 of oDlg pixel action ( DeleteRecord() )\n\n\nfunction addrecord()\nmydata-&gt;(dbAppend())\noBrw:nLen += 1\noBrw:Refresh()\nreturn nil\n\nfunction Deleterecord()\nmydata-&gt;(dbDelete())\noBrw:nLen -= 1\noBrw:Refresh()\nreturn nil\n\nareang','',0,'AIA=','21q3hfne',1,0,'',707,0,0),(19380,4384,6,9,0,'85.60.1.110',1159082308,1,0,1,1,1,1,'','DATABASE','Si estoy utilizando la clase DATABASE:\n\nLocal oDbf\nUSE ficheros\nDATABASE oDbf\n\nIf lAlta\n   oDbf:BLANK()\nelse\n   oDbf:LOAD()\nendi\n\n. . .\n. . .\n\n\noDbf:UNLOCK() para que se usa.\n\nSi quiero cerrar el objeto oDbf, pero no cerrar la base de datos, que comando/funcion debo usar?\n\nUn saludo','',0,'AIA=','3v4r5iid',1,0,'',9,0,0),(19381,4373,3,31,0,'89.190.104.93',1159083763,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1iwo0us1]\nFWH uses the Harbour/xHarbour function hb_objHasMessage(). This function has been recently fixed in xHarbour by Przemek, but it has not been fixed in xHarbour Builder. Thats the problem. And it is a xHarbour Builder problem.\n[/quote:1iwo0us1]\n\n  Thanks , Antonio . Now it\'s clear .. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n  Regards ,','',0,'gA==','1iwo0us1',1,0,'',31,0,0),(19382,4364,3,2,0,'87.218.146.173',1159087810,1,0,1,1,1,1,'','','Enrico,\n\nsamples\\TreeDlg.prg is working fine. \n\nI appreciate if you could provide another sample, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3oj18hxu',1,0,'',2,0,0),(19383,4378,3,2,0,'87.218.146.173',1159088138,1,0,1,1,1,1,'','','Enrico,\n\nWe are going to include it in FWH\\samples if you don\'t mind it. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3llnfyt6',1,0,'',2,0,0),(19384,4384,6,2,0,'87.218.146.173',1159088416,1,0,1,1,1,1,'','','Manuel,\n\n&gt; oDbf:UNLOCK() para que se usa. \n\nPara ser llamado a continuación de una llamada directa a oDbf:Lock() ó oDbf:RecLock()\n\n&gt;\nSi quiero cerrar el objeto oDbf, pero no cerrar la base de datos, que comando/funcion debo usar? \n&gt;\n\nEl objeto oDbf no es necesario que sea cerrado. Al salir del ámbito de una función, el recolector de basuras de Harbour lo destruye y ya está.','',0,'gA==','3oivgfwh',1,0,'',2,0,0),(19385,4384,6,9,0,'85.60.1.110',1159091634,1,0,1,1,1,1,'','','Antonio, gracias por contestar:\n\nNormalmente, cuando voy a grabar los datos de Odbf al fichero, y antes de hace odbf:SAVE(),  bloqueo el registro de la forma habitual en Clipper:\n\nLock() \noDbf:Save()\nUnlock\n\noDbf:Unlock es similar a usar Unlock ?\n\ny siguiendo con el simil, oDbf:Close  cierra la base de datos igual que el comando CLOSE?','',0,'gA==','32kdcsno',1,0,'',9,0,0),(19386,4378,3,6,0,'87.17.186.204',1159093193,1,0,1,1,1,1,'','','It is my great pleasure to see any of my samples included in FWH and you are very welcome to do it!\n\nEMG','',0,'gA==','1zijgamg',1,0,'',6,0,0),(19387,4364,3,6,0,'87.17.186.204',1159093607,1,0,1,1,1,1,'','','Here it is:\n\n[code:2y6lvl36]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oTree\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 0, 0 TREEVIEW oTree COLOR CLR_GREEN, CLR_RED\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT FILLTREE&#40; oTree &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION FILLTREE&#40; oTree &#41;\n\n    LOCAL oItem\n\n    oItem = oTree&#58;Add&#40; &quot;Test&quot; &#41;\n\n    oItem&#58;Add&#40; &quot;Test1&quot; &#41;\n    oItem&#58;Add&#40; &quot;Test2&quot; &#41;\n    oItem&#58;Add&#40; &quot;Test3&quot; &#41;\n\n    oTree&#58;Expand&#40;&#41;\n\n    RETURN NIL[/code:2y6lvl36]\n\nAs you can see, the colors of the subitems are still black on white.\n\nEMG','',0,'AIA=','2y6lvl36',1,0,'',6,0,0),(19388,4385,6,9,0,'85.60.1.110',1159095849,1,0,1,1,1,1,'','Dudas con Word','Estoy utilizando desde hace tiempo Word, directamente con Ole, a plena satisfacción. En una función que tengo que REEMPLAZA código (mailmerge), quiero que al reescribir la variable, lo haga con un color distinto al actual del documento. He puesto lo siguiente, pero me da problemas:\n\noDoc:Invoke(\'Color\', 255)\n\n¿Alguna idea para solucionarlo?','',0,'AIA=','spabk4ci',1,0,'',9,0,0),(19389,4384,6,519,0,'83.60.224.161',1159100646,1,0,1,1,1,0,'','','Manuel , Cuando haces un oDbf:save y la base la tienes en modo compartido no hace falta bloquear el registro, el metodo save ya se encarga de hacerlo, oDbf:Unlock es  igual que Unlock  y cuando hace un oDbf:close estas cerrando la base de datos,  una cosa muy importante para utilizar la clase database es no mezclar codigo de los metodos de la database con los comandos.','',0,'AIA=','ify02cxu',1,0,'',519,0,0),(19390,4384,6,2,0,'87.218.146.133',1159103407,1,0,1,1,1,1,'','','Manuel,\n\n&gt; oDbf:Unlock es similar a usar Unlock ? \n\nSí\n\n&gt;\ny siguiendo con el simil, oDbf:Close cierra la base de datos igual que el comando CLOSE?\n&gt;\n\nSí','',0,'AIA=','2b7j5pgs',1,0,'',2,0,0),(19391,4384,6,2,0,'87.218.146.133',1159103495,1,0,1,1,1,1,'','','Manuel,\n\nComo te comenta Frafive, el método Save() se encarga de los bloqueos. Revisa el código fuente de la clase TDataBase.','',0,'AIA=','e3op11km',1,0,'',2,0,0),(19392,4378,3,2,0,'87.218.146.133',1159103544,1,0,1,1,1,1,'','','Enrico,\n\nThanks again <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ftjw3n3',1,0,'',2,0,0),(19393,4364,3,297,0,'151.47.228.205',1159106245,1,0,1,1,1,0,'','','Thank to Yout Enrico and Antonio.','',0,'AIA=','1k62g3cq',1,0,'',297,0,0),(19394,4386,3,6,0,'87.17.186.204',1159106499,1,0,1,1,1,1,'','Bug in TScrollBar','This is a sample of the problem. Please drag the scrollbar thumb to the middle of the scrollbar itself. Then look at the number in the DIALOG title (it is the scrollbar position). Then click below the thumb to step one page down and look at the number again. It is unchanged while it should be +10. If you click again then the number is increased.\n\n[code:2j9te57g]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oScr\n\n    DEFINE DIALOG oDlg\n\n    oScr = TScrollBar&#40;&#41;&#58;New&#40; 0, 0, 0, 255, 10, &#46;T&#46;, oDlg, 10, 50,;\n                             &#123; || oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; &#125;,;\n                             &#123; || oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; &#125;,;\n                             &#123; || oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; &#125;,;\n                             &#123; || oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; &#125; &#41;\n\n    oScr&#58;bTrack = &#123; | nPos | oScr&#58;SetPos&#40; nPos &#41;,;\n                             oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2j9te57g]\n\nEMG','',0,'AIA=','2j9te57g',1,0,'',6,0,0),(19395,4364,3,2,0,'87.218.146.133',1159106517,1,0,1,1,1,1,'','','Enrico, Marco,\n\nIf you try to build a similar sample using Word VBA built in Macro Editor, it does not show the BackColor property. It looks as it is not supported by Windows API. We are doing more research.','',0,'AIA=','5ogea5fs',1,0,'',2,0,0),(19396,4364,3,297,0,'151.47.197.117',1159106849,1,0,1,1,1,0,'','','Thank you very much\nMuchas gracias\nGrazie\n\nMarco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1cd692d4',1,0,'',297,0,0),(19397,4364,3,2,0,'87.218.146.241',1159107754,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/default.aspx?scid=kb;EN-US;q248496\">http://support.microsoft.com/default.as ... US;q248496</a><!-- m -->','',0,'AIA=','2fgvcie4',1,0,'',2,0,0),(19398,4364,3,2,0,'87.218.146.241',1159108107,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/treectrl/treelistctrlgerolf.asp\">http://www.codeproject.com/treectrl/tre ... gerolf.asp</a><!-- m -->','',0,'AIA=','1i6cy2ln',1,0,'',2,0,0),(19399,4364,3,6,0,'87.17.186.204',1159110111,1,0,1,1,1,1,'','','Solved! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[code:3nh532vc]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oTree\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 0, 0 TREEVIEW oTree COLOR CLR_GREEN, CLR_RED\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT FILLTREE&#40; oTree &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION FILLTREE&#40; oTree &#41;\n\n    LOCAL oItem\n\n    oItem = oTree&#58;Add&#40; &quot;Test&quot; &#41;\n\n    oItem&#58;Add&#40; &quot;Test1&quot; &#41;\n    oItem&#58;Add&#40; &quot;Test2&quot; &#41;\n    oItem&#58;Add&#40; &quot;Test3&quot; &#41;\n\n    oTree&#58;Expand&#40;&#41;\n\n    TVSETTEXTCOLOR&#40; oTree&#58;hWnd, CLR_GREEN &#41;\n    TVSETBKCOLOR&#40; oTree&#58;hWnd, CLR_RED &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;commctrl&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; TVSETTEXTCOLOR &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; TreeView_SetTextColor&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; TVSETBKCOLOR &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; TreeView_SetBkColor&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:3nh532vc]\n\nEMG','',0,'AIA=','3nh532vc',1,0,'',6,0,0),(19400,4387,3,148,0,'196.205.183.188',1159112872,1,0,1,1,1,0,'','combobox of field inside Txbrowse','How to use this program to field array instead of fixed array ?\n\n[code:2j4jcwp6]\n\n#INCLUDE &quot;FIVEWIN&#46;CH&quot; \nprocedure main&#40;&#41; \n\nLOCAL oWnd, oBrw, aDatos \n\n   //MsgInfo&#40; &quot;Hola Mundo&quot; &#41; \n\n   DEFINE WINDOW oWnd \n\n   *aDatos &#58;= &#123; &#123; &quot;uno   &quot;, &quot;dos   &quot;, &quot;tres  &quot;, &quot;cuatro&quot;, &quot;cinco &quot; &#125;,; \n   *            &#123; &quot;Seis  &quot;, &quot;Siete &quot;, &quot;Ocho  &quot;, &quot;Nueve &quot;, &quot;Diez  &quot; &#125; &#125; \n\n    aDatos &#58;=creatarray&#40;&#41; \n   WITH OBJECT &#40; oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41; &#41; \n      &#58;SetArray&#40; aDatos &#41; \n\n      WITH OBJECT &#58;aCols&#91;01&#93; \n         &#58;cHeader     &#58;= &quot;Col1&quot; \n         &#58;nEditType   &#58;= 01 \n         &#58;bOnPostEdit    &#58;= &#123; |oCol| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;01&#93; &#58;= oCol&#58;oEditGet&#58;cText &#125; \n      END \n\n      WITH OBJECT &#58;aCols&#91;02&#93; \n         &#58;cHeader     &#58;= &quot;Col2&quot; \n         &#58;nEditType   &#58;= 02 \n         &#58;aEditListTxt   &#58;= aDatos \n         &#58;aEditListBound &#58;= &#58;aEditListTxt \n         &#58;bOnPostEdit    &#58;= &#123; |oCol,cOption| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;02&#93; &#58;= cOption &#125; \n      END \n\n      WITH OBJECT &#58;aCols&#91;03&#93; \n         &#58;cHeader     &#58;= &quot;Col3&quot; \n         &#58;nEditType   &#58;= 03 \n         &#58;bOnPostEdit &#58;= &#123; || &quot;&quot; &#125; \n         &#58;bEditBlock  &#58;= &#123; || MsgInfo&#40; &quot;Hola&quot; &#41; &#125; \n      END \n\n      WITH OBJECT &#58;aCols&#91;04&#93; \n         &#58;cHeader     &#58;= &quot;Col4&quot; \n         &#58;nEditType   &#58;= 04 \n         &#58;aEditListTxt   &#58;= aDatos \n         &#58;aEditListBound &#58;= &#58;aEditListTxt \n         &#58;bOnPostEdit    &#58;= &#123; |oCol,cOption| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;04&#93; &#58;= IF&#40; Len&#40; Alltrim&#40; cOption &#41; &#41; &gt; 0, cOption, oCol&#58;oEditGet&#58;cText &#41; &#125; \n      END \n\n      WITH OBJECT &#58;aCols&#91;05&#93; \n         &#58;cHeader     &#58;= &quot;Col5&quot; \n         &#58;nEditType   &#58;= 05 \n         &#58;bOnPostEdit &#58;= &#123; |oCol| aDatos&#91; oBrw&#58;nArrayAt &#93;&#91;05&#93; &#58;= oCol&#58;oEditGet&#58;cText &#125; \n         &#58;bEditBlock  &#58;= &#123; || MsgInfo&#40; &quot;Hola&quot; &#41; &#125; \n      END \n   &#58;CreateFromCode&#40;&#41; \n\n   END \n   oWnd&#58;oClient &#58;= oBrw \n\n   Activate Window oWnd \n  *  TWINDOW&#40;&#41;&#58;ACTIVATE&#40; oWnd &#41; \n\n\n\nfunction creatarray&#40;&#41; \nlocal aData &#58;= &#123;&#125;,oDlg \n\nuse mach \nmach-&gt;&#40;dbGotop&#40;&#41;&#41; \ndo while !mach-&gt;&#40;eof&#40;&#41;&#41; \naadd&#40; aData , mach-&gt;mc_serial &#41; \nmach-&gt;&#40;dbSkip&#40;&#41;&#41; \nenddo \n/* \nUSE THIS ARRAY BY LISTBOX CLASS, you will get the names of mach from DBF \n*/ \n\nreturn &#40;aData&#41; \n[/code:2j4jcwp6]','',0,'AIA=','2j4jcwp6',1,0,'',148,0,0),(19401,4364,3,297,0,'151.47.222.138',1159118070,1,0,1,1,1,0,'','','Very good!\nAfter dinner I\'ll try it!\nThanks again','',0,'AIA=','32mhg6la',1,0,'',297,0,0),(19402,4388,6,75,0,'83.34.193.165',1159120231,1,0,1,1,1,0,'','OT. RELOJ WINDOWS','Pretendo usar el ordenador para que me diga a la hora que lo encienden por la mañana y lo apagan por la noche.\n\n¿Hay alguna manera de bloquear por completo el acceso a la configuración de la hora? Y que no sea através de la barra de tareas pues es muy facilmente configurable.','',0,'AIA=','jgoap14h',1,0,'',75,0,0),(19403,4384,6,9,0,'85.60.1.110',1159127992,1,0,1,1,1,1,'','','Muchas gracias Antonio y Frafive','',0,'AIA=','2ks7hq59',1,0,'',9,0,0),(19404,4364,3,2,0,'87.218.146.233',1159130802,1,0,1,1,1,1,'','','Enrico,\n\nExcellent <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  I also tried it but my code had a mistake so I thought that the implementation was going to be more complex.\n\nVery good!','',0,'AIA=','3v844ysl',1,0,'',2,0,0),(19405,4364,3,2,0,'87.218.146.233',1159131699,1,0,1,1,1,1,'','','Enrico,\n\nThese new methods in Class TTreeView makes it automatic and FiveWin compatible:\n[code:33n9ui08]\n   METHOD Initiate&#40; hDlg &#41; INLINE Super&#58;Initiate&#40; hDlg &#41;, &#58;&#58;SetColor&#40; &#58;&#58;nClrText, &#58;&#58;nClrPane &#41;\n\n   METHOD SetColor&#40; nClrText, nClrPane &#41; INLINE ;\n      Super&#58;SetColor&#40; nClrText, nClrPane &#41;, TVSetColor&#40; &#58;&#58;hWnd, nClrText, nClrPane &#41;\n[/code:33n9ui08]\nThis code in method New():\n[code:33n9ui08]\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40; CTRL_NAME &#41;\n      oWnd&#58;AddControl&#40; Self &#41;\n      &#58;&#58;SetColor&#40; nClrFore, nClrBack &#41; // New !\n[/code:33n9ui08]\nand finally just one C function call:\n[code:33n9ui08]\nCLIPPER TVSETCOLOR&#40; PARAMS &#41; // hWnd, nClrFore, nClrBack\n&#123;\n   TreeView_SetBkColor&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, _parnl&#40; 3 &#41; &#41;;\n   TreeView_SetTextColor&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, _parnl&#40; 2 &#41; &#41;;   	\n&#125;\n[/code:33n9ui08]\nNow the sample code is just as:\n[code:33n9ui08]\n    @ 0, 0 TREEVIEW oTree COLOR CLR_WHITE, CLR_GREEN \n[/code:33n9ui08]\nNo extra calls required <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','33n9ui08',1,0,'',2,0,0),(19406,4350,6,180,0,'83.40.41.117',1159132083,1,0,1,1,1,0,'','','Gracias Antonio por tus indicaciones. Funciona perfecto.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','10r793et',1,0,'',180,0,0),(19407,4339,6,180,0,'83.40.41.117',1159132304,1,0,1,1,1,0,'','','Karinha y Antonio, por favor disculpen por hacerles perder su tiempo  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> Funciona correctamente incluso de 16 bit. Tenía un problema con la ruta del subprograma.\n\nSaludos,\nManuel','',0,'AIA=','5s7r9toh',1,0,'',180,0,0),(19408,4386,3,2,0,'87.218.146.233',1159132915,1,0,1,1,1,1,'','','Enrico,\n\nThis code looks equivalent and seems to work ok:\n[code:24wdt9u2]\n    @ 0, 0 SCROLLBAR oScr ;\n       VERTICAL ;\n       RANGE 0, 255 ;\n       PAGESTEP 10 ;\n       SIZE 10, 50 ;\n       ON UP oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; ;\n       ON DOWN oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; ; \n       ON PAGEUP oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; ;\n       ON PAGEDOWN oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; oScr&#58;GetPos&#40;&#41; &#41; &#41; ;\n       ON THUMBPOS &#40; oScr&#58;SetPos&#40; nPos &#41;, oDlg&#58;cTitle &#58;= LTrim&#40; Str&#40; \n\noScr&#58;GetPos&#40;&#41; &#41; &#41; &#41; \n[/code:24wdt9u2]','',0,'AIA=','24wdt9u2',1,0,'',2,0,0),(19409,4386,3,2,0,'87.218.146.233',1159133022,1,0,1,1,1,1,'','','Enrico,\n\nDo you mean that the first pagedown click after the drag &amp; drop, does not respond ?','',0,'AIA=','4k91qch1',1,0,'',2,0,0),(19410,4339,6,2,0,'87.218.146.233',1159133096,1,0,1,1,1,1,'','','Manuel,\n\nLo importante es que está solucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','14d7l8u0',1,0,'',2,0,0),(19411,4389,2,774,0,'164.77.167.151',1159154068,1,0,1,1,1,0,'','Ayuda para imprimir','Hola al foro\n\nestimados amigos,, alguien dentro de sus aplicaciones tiene un demo aperativo de impresion,, me interesa saber como le puedo hacer  q cada vez que se imprima algo obligadamente se deba seleccionar una impresora\n\nGRACIAS','',0,'AIA=','3tc83psa',1,0,'',774,0,0),(19412,4390,6,219,0,'189.132.126.204',1159154375,1,0,1,1,1,0,'','Mensage de error con Twbrowse','Amigos, buendia:\n\nEstoy compilado los ejemplos de TwBrowse, se construye la aplicación, pero al ejecutar, me aparese el siguiente log de error:Error BASE/1005  Message not found: TWBROWSE:_LHSCROLL\n\nque estoy haciendo mal?\n\nsaludos \n\nJosé Luis\n\n------------------------------------------------------------------------------\n\nApplication\n===========\n   Path and name: C:\\TWBrowse\\SAMPLES\\sample02.exe (32 bits)\n   Size: 1,251,328 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 09/24/06, 21:09:11\n   Error description: Error BASE/1005  Message not found: TWBROWSE:_LHSCROLL\n\nStack Calls\n===========\n   Called from:  =&gt; TWBROWSE:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TWBROWSE:MSGNOTFOUND(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:_LHSCROLL(167)\n   Called from: sample02.prg =&gt; MAIN(25)\n\nSystem\n======\n   CPU type: Intel Pentium III Xeon 1100 Mhz\n   Hardware memory: 384 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.60 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TWBROWSE:ERROR\n     Param   1:    C    \"Message not found\"\n     Param   2:    C    \"TWBROWSE\"\n     Param   3:    C    \"_LHSCROLL\"\n     Param   4:    N    1005\n     Local   1:    U    \n   (b)HBOBJECT:HBOBJECT\n     Param   1:    O    Class: TWBROWSE\n     Param   2:    C    \"_LHSCROLL\"\n   TWBROWSE:MSGNOTFOUND\n     Param   1:    C    \"_LHSCROLL\"\n   TWBROWSE:_LHSCROLL\n     Param   1:    L    .F.\n   MAIN\n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    C    \"Upper(Nombre)\"\n     Local   4:    U    \n     Local   5:    C    \"(C) 1994-2002, CeSoTech PC Solutions\"\n     Local   6:    O    Class: TFONT\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n\nDataBases in use\n================\n\n  1: =&gt; CLIENTES                           RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n       12         20      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; Upper(Nombre)                      CLIENTES\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TFONT\n     4 TWINDOW\n     5 TCONTROL\n     6 TICON\n     7 TBRUSH\n     8 TWBROWSE\n     9 ERROR\n\nMemory Analysis\n===============\n      127 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes','',0,'AIA=','3ni0gen6',1,0,'',219,0,0),(19413,4389,2,9,0,'85.60.1.110',1159156103,1,0,1,1,1,1,'','','Simplemente tienes que agregar la claúsula FROM USER al comando PRINT:\n\nPRINT oPrn NAME \"Página de Prueba\" FROM USER','',0,'AIA=','18rn2igv',1,0,'',9,0,0),(19414,4390,6,2,0,'87.218.146.233',1159158476,1,0,1,1,1,1,'','','Es la clase TWBrowse estandard de FWH ? Parece que no, ya que no se usa ninguna DATA lHScroll.','',0,'AIA=','35o0029l',1,0,'',2,0,0),(19415,4369,2,2,0,'87.218.146.233',1159158672,1,0,1,1,1,1,'','','Gustavo,\n\nSi. Lo que ocurre es que el extend API de Harbour es ligeramente distinto al de Clipper. Por ejemplo, Harbour usa hb_... mientras que Clipper no.\n\nHarbour usa HB_FUNC() y Clipper usa CLIPPER.','',0,'AIA=','azet3o3w',1,0,'',2,0,0),(19416,4386,3,6,0,'87.18.210.166',1159165785,1,0,1,1,1,1,'','','Exactly.\n\nEMG','',0,'AIA=','3s437x81',1,0,'',6,0,0),(19417,4364,3,6,0,'87.18.210.166',1159165837,1,0,1,1,1,1,'','','Great!\n\nEMG','',0,'AIA=','3biww749',1,0,'',6,0,0),(19418,4391,20,29,0,'88.149.164.60',1159171332,1,0,1,1,1,0,'','Verificare se si sta operando su Windows Server 2003','Salve,\ncome posso sapere se il computer in uso ha il sistema operativo Windows Server 2003 ?\n\nGeneralmente per gli altri OS utilizzo le funzionalità della classe tSystemInfo ma per questo OS non esiste un metodo e non conosco nemmeno i valori di versione nMajor e nMinor.\n\nQualche idea ?\n\nGrazie in anticipo\n\nMarco','',0,'AIA=','1kywon14',1,0,'',29,0,0),(19419,4392,7,692,0,'213.96.221.131',1159174138,1,0,1,1,1,1,'','conexion con gps','Hola\nHay alguna forma sencilla de captar datos de una pocket con gps\nmi cliente tiene 8 vendedores y quiere saber donde han estado \n¿se podrian recojer datos cada media hora , para saber donde han estado y a que hora?\nsaludos\nAntonio','',0,'AIA=','13r9bxgw',1,0,'',692,0,0),(19420,4393,3,15,0,'203.73.54.246',1159175219,1,0,1,1,1,0,'','ActiveX question?','Hello Antonio,\n\nIf I define window for ActiveX, work fine.\n\n[code:54oopnxy]\nDEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; \n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;oa&#46;oactrl&#46;1&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX \n\n   oActiveX&#58;Do&#40; &quot;ShowToolBars&quot;, &#46;t&#46; &#41;\n   oActiveX&#58;Do&#40; &quot;Open&quot;, &quot;c&#58;\\&#35336;&#31639;&#46;xls&quot; &#41;\n   \n   ACTIVATE WINDOW ownd on init oActiveX&#58;Do&#40; &quot;Open&quot;, &quot;c&#58;\\&#35336;&#31639;&#46;xls&quot; &#41;\n[/code:54oopnxy]\n\nIf I define Dialog for ActiveX, work. but disappear any action.\n\n[code:54oopnxy]\nDEFINE DIALOG oDlg RESOURCE &quot;D_DR_WIN_TestActiveX&quot;\n\n         REDEFINE ACTIVEX oActiveX ID 10000 OF oDlg ;     PROGID &quot;oa&#46;oactrl&#46;1&quot;\n        \n  ACTIVATE DIALOG oDlg CENTER on init  init oActiveX&#58;Do&#40; &quot;Open&quot;, &quot;c&#58;\\&#35336;&#31639;&#46;xls&quot; &#41;\n[/code:54oopnxy]\n\nI use xHarbour 0.99.4+FWH2.6+BCC55\n\nRegards,\n\nRichard','',0,'AIA=','54oopnxy',1,0,'',15,0,0),(19421,4394,3,805,0,'88.36.233.74',1159175879,1,0,1,1,1,0,'','Color ob disabled objects','Hi Antonio.\nI saw that you can show the disabled get in a dialog using the ldiscolors parameter that show the get with a normal color, not the light gray of windows.\nIf you have in a dialog some checkboxes, radios, combobox of multiple line gets, the color is always a light gray, that in some cases are really difficult to see.\nIs possible to change the disabled color of these objects ?\nThanks a lot.','',0,'AIA=','1ub590b3',1,0,'',805,0,0),(19422,4393,3,2,0,'87.218.146.227',1159176759,1,0,1,1,1,1,'','','Richard,\n\nHave you defined the activex control in your RC as \"TActiveX\" ?','',0,'AIA=','3jk7v9nv',1,0,'',2,0,0),(19423,4394,3,2,0,'87.218.146.227',1159176846,1,0,1,1,1,1,'','','Giuliano,\n\nWith GETs its easier, but with other controls its more complex as we have to do the painting of the controls ourselves.','',0,'AIA=','1qi2go13',1,0,'',2,0,0),(19424,4395,7,106,0,'85.34.123.173',1159177080,1,0,0,1,1,1,'','MsgLogo','inv.c\n   Creating library inv.lib and object inv.exp\ninv.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_MSGLOGO\n(void)\" (?HB_FUN_MSGLOGO@@YAXXZ)\ninv.exe : fatal error LNK1120: 1 unresolved externals\n\n\nMe da este error, supongo que es porque no està implementada.\nSerà implementada esta funcion?\n\nGracias','',0,'AIA=','7ebgywcp',1,0,'',106,0,0),(19425,4395,7,2,0,'87.218.146.227',1159180140,1,0,1,1,1,1,'','','Pedro,\n\nMsgLogo() para PC está basada en una función no documentada de Windows. Posiblemente no exista en Pocket PC. De todas formas puedes construir facilmente un diálogo que sea similar.','',0,'AIA=','2ywir5w5',1,0,'',2,0,0),(19426,4394,3,805,0,'88.36.233.74',1159181439,1,0,1,1,1,0,'','','With multiline gets is it possible ? Thanks','',0,'AIA=','3iiyvwkz',1,0,'',805,0,0),(19427,4395,7,106,0,'85.34.123.173',1159183693,1,0,0,1,1,1,'','','Gracias, lo harè entonces.\n\n\nSaludos','',0,'AIA=','3gcse0tb',1,0,'',106,0,0),(19428,4390,6,147,0,'201.253.54.17',1159184241,1,0,1,0,1,1,'','','El método corresponde al wBrowse de Hernán. Lo que hace es deshabilitar el scroll hortizontal.\nEstás incluyendo la lib de Hernán Checcarelli?. (TWBrw32.lib)\n\nSaludos','',0,'AIA=','33m9xu0c',1,0,'',147,0,0),(19429,4390,6,644,0,'200.125.105.209',1159184528,1,0,1,1,1,0,'','','jlaguilars\n\nSi estás usando la clase de Hernan Ceccarelli, yo he tenido problemas usando la librería. No me tomaba el browse de Hernán sino el nativo de Fivewin. Por supuesto muchas de las datas de Hernán no se encuentran en la de fivewin y ese debe ser el error que te está dando. Yo solucioné este problema poniendo en mi proyecto las fuentes de Twbrowse. Los módulos son wbrowse.prg, tmultise.prg y wbrwline.c\n\nEspero te sirva <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos','',0,'AIA=','23lzz00f',1,0,'',644,0,0),(19430,4377,6,147,0,'201.253.54.17',1159185440,1,0,1,0,1,1,'','','Marco:\nSi está utilizando wBrowse de hernán en ael archivo de ayuda se puede leer:\n\n0) Nuevas variables ::bTextColor y ::bBkColor. Son bloques de codigo que\n   se evalúan en tiempo de pintado. Pueden devolver una valor NUMERICO,\n   que representa el color RGB con el cual se pintar  el texto o fondo,\n   segun el bloque. Si devuelve otro valor, los colores ser n los especi-\n   ficados en las respectivas varialbes de instancia de la clase.\n   Se env¡an 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n   nStyleLine, puede asumir los siguientes valores:\n             0 -&gt; Celda standard normal\n             1 -&gt; Celda Header\n             2 -&gt; Celda Footer\n             3 -&gt; Celda standard normal seleccionada\n\n0) Nueva variable: ::bFont. Es un bloque de codigo opcional, que se ejecuta\n   en tiempo de pintado, y envia 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n   nStyleLine, puede asumir los siguientes valores:\n             0 -&gt; Celda standard normal\n             1 -&gt; Celda Header\n             2 -&gt; Celda Footer\n             3 -&gt; Celda standard normal seleccionada\n\nsaludos','',0,'AIA=','1jzhpqe0',1,0,'',147,0,0),(19431,4396,6,656,0,'83.230.172.205',1159189149,1,0,1,1,1,1,'','REPORT','Hola de nuevo, seguimos aprendiendo;\n\n  resulta que estoy intentando hacer un report, ya esta muy simple porque le he quitado casi de todo buscando el error, y ahora esta asi:\n\n   dbSelectArea( \"BookDet\" )\n\n   BookDet-&gt;( dbSeek( GesPro-&gt;CodPro + GesArt-&gt;ArtGes + Dtos( dFecIni ) ) )\n\n  REPORT oPrnBook TITLE \"CUADERNO DE CAMPO\" PREVIEW\n\n    COLUMN TITLE \"CONCEPTO\" DATA BookDet-&gt;Concepto\n\n  END REPORT \n\n  oPrnBook:bSkip := { || BookDet-&gt;( dbSkip() ) }\n\n  ACTIVATE REPORT oPrnBook\n\n  y resulta que me da un error de que no puede crear el dialogbox, error 3 de fivewin, y si le quito el PREVIEW, me dice lo mismo pero de la impresora, y ya no se donde mirar.\n\n P.D. Sigo sin poder ver los caracteres españoles en pantalla\n\nMuchas Gracias\n\nSaludos\nJavier Perez','',0,'AIA=','s41cv1fh',1,0,'',656,0,0),(19432,4397,3,217,0,'200.159.120.34',1159189386,1,0,1,1,1,0,'','Cannot create dialog box','Hi!\n\nI have a lot of pain of \"fivewin/3 error\" and I stay without it since I used Borland resources in FW/Clipper. But this time I couldn\'t run <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> as follow:\n\nI have a strange problem with a modal dialog using TxBrowse control.\nI included a new dialog in my RC file and a dialog stop to open. The resource dialog name is \"SELECIONA\" and have a combobox, a get, a TxBrowse, OK and Cancel buttons.\n\nI duplicate \"SELECIONA\" to \"SELEC_PRINC\" dialog (in same RC file), changed into my PRG and recompiled. I didn\'t changes into dialog, I only duplicated. It worked fine. Then I deleted SELECIONA (because SELEC_PRINC worked) and SELEC_PRINC stop to work!!!\n\nI use FWH 2.7 March with xHB Builder March and I don\'t use any Borland style resource.\n\nAny idea to solve or debug were is the problem?\n\nThanks a lot!\nMaurilio','',0,'AIA=','2e1yb7j0',1,0,'',217,0,0),(19433,4398,2,803,0,'190.49.140.65',1159190437,1,0,1,1,1,1,'','Velocidad en particiones NTFS','He notado que las aplicaciones fw+clipper corren bastante más lentas en discos cuya partición de booteo sea NTFS, hay alguna solución para esto?\nutilizo fw2.0c, clipper 5.3b, blinker 5.10, estoy alejado desde ya algun tiempo de fw, alquien se ha encontrado con este tema?','',0,'AIA=','17fafbtm',1,0,'',803,0,0),(19434,4376,6,495,0,'200.86.8.234',1159191293,1,0,1,1,1,0,'','Hola Antonio, gracias por la ayuda','[quote=&quot;Antonio Linares&quot;:35q7coub]Llama a hb_gcAll() para que harbour haga una recogida de \"basura\".\n\nFWH la llama automáticamente al salir de un diálogo, pero si no sales del diálogo, entonces no se está recogiendo la memoria que ya no está en uso.[/quote:35q7coub]\n\nsabes hago la llamada a hb_gcall() cuando cargo el array y luego antes de pasar a la siguiente transacción.\n\nsalu2','',0,'gA==','35q7coub',1,0,'',495,0,0),(19435,4399,2,52,0,'201.212.71.153',1159191418,1,0,1,1,1,1,'','porque xComando = 0x65 es numerico en FWH y en FW da error?','En FWH si pongo:\n\n[code:rggzp2ol]         local xComando = 0x65[/code:rggzp2ol]\n\nMe toma como xComando un valor numerico; en FW la misma\ndeclaracion me da error \"error de sintaxis\", porque?\n\nGracias','',0,'AIA=','rggzp2ol',1,0,'',52,0,0),(19436,4400,6,28,0,'213.27.201.254',1159192308,1,0,1,1,1,0,'','nStrCrc16','Hola \n\n¿Disponemos del código fuente C de esta función?. Lo necesito para poder compatibilizar un desarrollo en C que estoy haciendo.\nHe encontrado una función similar pero no me da el mismo resultado y me gustaria contrastarlas a ver cual es la correcta.\n\nGracias.','',0,'AIA=','28wmdj28',1,0,'',28,0,0),(19437,4370,6,237,0,'200.68.70.89',1159193318,1,0,1,1,1,0,'','Gracias','Gracias, recompile la libreria sin db10 y se soluciono el problema, gracias!!!','',0,'AIA=','103ixzst',1,0,'',237,0,0),(19438,4393,3,15,0,'59.121.139.233',1159193590,1,0,1,1,1,0,'','','Hello Antonio,\n\nYes, I had define it as you said.\n\nRichard','',0,'AIA=','21v8aet5',1,0,'',15,0,0),(19439,4393,3,15,0,'59.121.139.233',1159193772,1,0,1,1,1,0,'','','Hello Antonio,\n\nThis is my Resource RC below:\n\n[code:2y0sotd2]\nD_DR_WIN_TESTACTIVEX DIALOG 4, 36, 458, 263\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;ActiveX&quot;\nFONT 12, &quot;&#32048;&#26126;&#39636;&quot;\n&#123;\n CONTROL &quot;&quot;, 10000, &quot;TActiveX&quot;, 0 | WS_CHILD | WS_VISIBLE, 3, 2, 454, 260\n&#125;\n[/code:2y0sotd2]\n\nRichard','',0,'AIA=','2y0sotd2',1,0,'',15,0,0),(19440,4378,3,707,0,'222.124.20.50',1159193987,1,0,1,1,1,0,'','','Enrico, Antonio,\n\nYes this is good source.\n\nI tried to add some code for save data in my files :\n\nSTATIC FUNCTION CONNECT( nCom, oGet ) \n\n    LOCAL cStr \n\n    ENABLECOMMNOTIFICATION( nCom, 0, 1, -1 ) \n\n    cStr = RECEIVESTR( nCom ) \n\n    cStr = STRTRAN( cStr, CHR( 13 ), \"\" ) \n    cStr = STRTRAN( cStr, CHR( 10 ), CRLF ) \n\n    oGet:Append( cStr ) \n\n    do while .t.  \n         if mydata-&gt;(rlock())\n            mydata-&gt;memofile := cTxt\n            exit\n         endif\n    enddo\n    mydata-&gt;(dbUnlock())\n\n    /*\n    mydata-&gt;memofile is memo field type\n    */\n\n    RETURN NIL','',0,'AIA=','1fc0nqrn',1,0,'',707,0,0),(19441,4393,3,15,0,'59.121.139.233',1159194780,1,0,1,1,1,0,'','','Hello Antonio,\n\nI found new question below:\n\n[code:390p1duf]\nDEFINE DIALOG oDlg RESOURCE &quot;D_DR_WIN_TestActiveX&quot;\n\n         REDEFINE ACTIVEX oActiveX ID 10000 OF oDlg ;\n                        PROGID &quot;oa&#46;oactrl&#46;1&quot;\n\n         oActiveX&#58;Do&#40; &quot;ShowToolBars&quot;, &#46;t&#46; &#41;    ==&gt; New add\n         oActiveX&#58;Do&#40; &quot;Open&quot;, &quot;c&#58;\\&#35336;&#31639;&#46;xls&quot; &#41;  ==&gt; New add\n\nACTIVATE DIALOG oDlg CENTER ;\n                on init &#40; oActiveX&#58;Do&#40; &quot;ShowToolBars&quot;, &#46;t&#46; &#41;,;\n                            oActiveX&#58;Do&#40; &quot;Open&quot;, &quot;c&#58;\\&#35336;&#31639;&#46;xls&quot; &#41; &#41;\n[/code:390p1duf]\n\nIf I New add two line code and get GPF occurred.\nCalled from ACTXPDISP(0)\nCalled from TACTIVEX&#058;DO(297)\nCalled from TestActiveX(197)\n.......','',0,'AIA=','390p1duf',1,0,'',15,0,0),(19443,4399,2,52,0,'201.212.71.153',1159195693,1,0,1,1,1,1,'','','[quote=&quot;oskar&quot;:n0xwyg7m]Gustavo, en realidad es un numero Hexadecimal\n\nrevisa que valor decimal toma en FWH y usa el mismo en FW\n\n? 0x65 // -&gt;  Decimal 101\n\nsalu2[/quote:n0xwyg7m]\n\nSi o si necesito pasarlo como 0x65, ese es el problema.\n\nGracias.','',0,'gA==','n0xwyg7m',1,0,'',52,0,0),(19444,4400,6,2,0,'87.218.146.227',1159199213,1,0,1,1,1,1,'','','Paco,\n\nNo entregamos el código fuente de esa función con FWH, pero si la necesitas, envíanos un email.','',0,'gA==','355z8og4',1,0,'',2,0,0),(19445,4394,3,2,0,'87.218.146.227',1159199377,1,0,1,1,1,1,'','','Giuliano,\n\nYou may use the multiline GET clause READONLY, so it can not be edited, but it displays as enabled.','',0,'gA==','z0ugdtys',1,0,'',2,0,0),(19446,4401,3,330,0,'217.37.54.49',1159199471,1,0,1,1,1,0,'','SSL','Hi all\n\nHas anybody done any work with ssl from within a fw app\n\nMany thanks\n\nPeter','',0,'gA==','kv0g42jo',1,0,'',330,0,0),(19447,4393,3,2,0,'87.218.146.227',1159199482,1,0,1,1,1,1,'','','Richard,\n\nYou can not send msgs to the activex before the dialogbox has been initialized, as the activex has not been initialized yet too.','',0,'gA==','32twiubm',1,0,'',2,0,0),(19448,4397,3,2,0,'87.218.146.227',1159199661,1,0,1,1,1,1,'','','Maurilio,\n\nPlease open the EXE with the resources workshop and check that the resources are properly placed inside.','',0,'gA==','1qz2geig',1,0,'',2,0,0),(19449,4399,2,2,0,'87.218.146.227',1159199758,1,0,1,1,1,1,'','','Gustavo,\n\nClipper no admite números en notación hexadecimal.','',0,'gA==','3howhhdd',1,0,'',2,0,0),(19450,4390,6,219,0,'189.132.150.225',1159199792,1,0,1,1,1,0,'','','Antonio, ésta clase la baje de <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2502\">http://fivetechsoft.com/forums/viewtopic.php?t=2502</a><!-- m -->\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026cd92f26/TWBrowse_17-\">http://hyperupload.com/download/026cd92f26/TWBrowse_17-</a><!-- m -->[x]Harbour.exe.html\n\ny estoy tratando de ver los ejemplos para usar ésta clase.\n\nY sí incluyo las librería correspondiente para el enlazado.\n\nGracias\n\nJosé Luis','',0,'','173322u0',1,0,'',219,0,0),(19451,4396,6,2,0,'87.218.146.227',1159199986,1,0,1,1,1,1,'','','Has copiado prev32.dll al directorio en donde tienes tu aplicación ?','',0,'','2z4uj85b',1,0,'',2,0,0),(19453,4391,20,6,0,'82.57.159.33',1159202036,1,0,1,1,1,1,'','Re: Verificare se si sta operando su Windows Server 2003','Hai provato la funzione cWinVersion()?\n\nEMG','',0,'','15naz95j',1,0,'',6,0,0),(19454,4402,4,47,0,'203.144.143.6',1159203176,1,0,1,1,1,0,'','Tsocket samples send and receive?','Dear All,\n\nI want to send data via Tsocket and wait for Server reply but I don\'t know does to.  In SockCli.prg is send and receive but How to wait until get reply ::GetData() back.\n\nExample\nPPC -&gt; PC (Send Request Data)\nwait state   (PPC wait for answer)\nPPC &lt;- PC  (PC answer to PPC)\n\nCan I :New() and :End() many time in one opening program?  Because I thinks :New(), :SendData(), :GetData() must do in the same Window or Dialog, doesn\'t it?\n\nBest regards,\nDutch','',0,'','grki9on9',1,0,'',47,0,0),(19455,4399,2,52,0,'201.212.71.153',1159205468,1,0,1,1,1,1,'','','Oskar,\n\nIncisto, si bien es el 101 tengo que pasarlo en ese formato, por qué? porque lo paso por un programa creado en VISUAL BASIC y lo toma como hexadecimal, ya realizamos pruebas (no tengo el programa en VB  ) y de la única forma que paso fue 0x65, probamos 101 \"0x65\" \"101\" y nada, solo paso como 0x65.\n\nGracias.','',0,'','2j28qtfi',1,0,'',52,0,0),(19456,4403,6,132,0,'83.213.45.32',1159212276,1,0,1,1,1,1,'','Fuentes en grupo','Hola amigos:\n\nNecesitaba hacer un informe (TREPORT) que me permitiera cambiar la fuente de los totales de un grupo, aparentemente facil.\n\noInf:aColumns[1]:bTotalFont:={|| 2 }\n\nEl problema me lo encontre al intentar en un Report con dos o mas grupos, cuando queria cambiar la fuente de solo un grupo, no del resto, asi que despues de algunas horas (soy muy torpe), se me ocurrio la siguiente solucion, que pongo a vuestra disposicion por si alguien le ha sucedido lo mismo.\n\n// Despues de la linea END REPORT poner\n\n oInf:bEndGroup:={|oGroup| FuenteGrupo(oInf,oGroup) }\n\n//\n\n// Funcion para el cambio la fuente de los totales de un grupo\n\nFUNCTION FuenteGrupo(oInf,oGroup)\n\nLocal i\n\n  FOR i=1 TO LEN(oInf:aColumns)\n\n    DO CASE\n      CASE oGroup:nOrder=1\n        oInf:aColumns[i]:bTotalFont:={|| 2 }\n      CASE oGroup:nOrder=2\n        oInf:aColumns[i]:bTotalFont:={|| 1 }\n      CASE oGroup:nOrder=3\n        oInf:aColumns[i]:bTotalFont:={|| 3 }\n   END CASE\n\n  NEXT i\n\nRETURN nil\n \nEspero que os sea de utilidad, y si alguien encuentra una solucion mas facil, por favor que la publique. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1py2m7g7',1,0,'',132,0,0),(19457,4404,6,237,0,'200.68.70.89',1159212289,1,0,1,1,1,0,'','Se me cuelgan los ejemplos con ActiveX','Estoy en etapa de pruebas y ando dándole al directorio \\samples...\n\nLos ejemplos con ActiveX excel.prg, word.prg, pdf.prg se cuelgan con el caracteristico mensaje de windows:\n\nWORD.EXE ha detectado un problema y debe cerrarse.\n\nFwh de junio, xharbour, wxp proffessional sp2\n\nA alguien le paso ?\n\nMuchas gracias!!!','',0,'','3r8x3feh',1,0,'',237,0,0),(19458,4405,2,774,0,'200.72.65.12',1159214077,1,0,1,1,1,0,'','Problemas al imprimir','tengo problemas al imprimir\nmiren el Ejemplo\n\nFunction ImpCotiza()\nLocal oPrn\nLocal oFont\nLocal cCol:=0\nLocal cFil:=0\n\nPRINT oPrn NAME \"COTIZACIONES\" PREVIEW FROM USER\nDEFINE FONT oFont NAME \"Arial\" SIZE 0,-12 OF oPrn\n\ncCol:=oPrn:nVertRes()/80\ncFil:=oPrn:nHorzRes()/50\n\n// Primera Pagina\nPAGE\noPrn:say(00*cFil,00*cCol,oemtoansi(\"Elisa Flores y Compa¤ia Limitada\"),oFont)\noPrn:say(00*cFil,40*cCol,\"Fecha :\"+dtoc(Date()),oFont)\n\noPrn:say(01*cFil,00*cCol,oemtoansi(\"Barraca de Maredas\"),oFont)\noPrn:say(01*cFil,40*cCol,\"Hora  :\"+Time(),oFont)\n\noPrn:say(02*cFil,00*cCol,oemtoansi(\"Materiales de Construcci¢n\"),oFont)\n\nENDPAGE\n\n//Segunda Pagina\nPAGE\noPrn:say(00*cFil,00*cCol,oemtoansi(\"Elisa Flores y Compa¤ia Limitada\"),oFont)\noPrn:say(00*cFil,40*cCol,\"Fecha :\"+dtoc(Date()),oFont)\n\noPrn:say(01*cFil,00*cCol,oemtoansi(\"Barraca de Maredas\"),oFont)\noPrn:say(01*cFil,40*cCol,\"Hora  :\"+Time(),oFont)\n\noPrn:say(02*cFil,00*cCol,oemtoansi(\"Materiales de Construcci¢n\"),oFont)\n\nENDPAGE\n\nENDPRINT\noFont:end()\nReturn\n\n\nEl problema es q nose porque la primera pagina me la muestra vacia,, y me visualiza solamente la segunda..\n\n\nalguien me lo puede explicar,, y dar solucion \n\nOjo... al apagar la PC.. funciona bien,, pero si uso la App,, un par de veces ya no muestra la primera pagina,, que raro no,, sera algun problema de FW,, \n\nGRACIAS ME URGE RESPUESTA','',0,'','3lo5fm7m',1,0,'',774,0,0),(19459,4404,6,2,0,'87.218.146.227',1159219137,1,0,1,1,1,1,'','','A nosotros nos funcionan correctamente los ejemplos y ningún usuario más de FWH ha reportado ese problema, salvo que le envien un mensaje a un objeto activex en una caja de diálogo, sin haberse inicializado el activex previamente.','',0,'','1qzk67zo',1,0,'',2,0,0),(19460,4392,7,779,0,'200.67.136.213',1159219395,1,0,1,1,1,0,'','','Claro que se puede, solo debes saber como accesar la info del GPS, normalmente con un puerto COM','',0,'','kn07asnx',1,0,'',779,0,0),(19461,4406,6,396,0,'201.210.24.69',1159220095,1,0,1,1,1,1,'','DATABASE con Campos numericos y PICTURE','Hola a todos, cuando uso la DATABASE con campos numericos y los traigo a oGET VAR oDbf:variable ID nn PICTURE \"999,999,999.99\",  mde da un error en ejecucion de STR, los campos de mi DBF son numericos, alguien le ha pasado esto o lo ha resuelto...gracias...\n\n REDEFINE GET oGET2[10] VAR oDbf:inv_cangru ID 111 PICTURE \"999,999.99\"    OF oDlgFProdu UPDATE\n\nasi lo tengo, si uso una variable que no local esto si no da error.','',0,'','rmp5gcsm',1,0,'',396,0,0),(19462,4407,3,52,0,'201.212.71.153',1159220971,1,0,1,1,1,1,'','help   #ifndef __HARBOUR__','Hi all,\n\nI have one app in 32 bits; my application passes a value to another application that this done in \"VB\", it app in VB take one value in this format: 0x65 ( hexadecimal ) and it does not admit 101 ( the equivalent one to the value 0x65 ). \n\nthe problem is that when compiling the application in 16bits gives an error \"error syntaxis\" in this line:\n\n[code:2xxh9xev]local xCommand&#58;= 0x65[/code:2xxh9xev]\n\nSome idea?\n\nTank´s','',0,'AIA=','2xxh9xev',1,0,'',52,0,0),(19463,4407,3,2,0,'87.218.146.227',1159223400,1,0,1,1,1,1,'','','Gustavo,\n\n\"0x65\" maybe ?','',0,'AIA=','1jhyjirx',1,0,'',2,0,0),(19464,4407,3,52,0,'201.212.71.153',1159223997,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3ck3bfun]Gustavo,\n\n\"0x65\" maybe ?[/quote:3ck3bfun]\n\nNo, because next i need this:\n\n[code:3ck3bfun]      DO CASE\n         CASE xComando = 0x65\n            cRespuesta&#58;= LeeConfiguracion&#40;&#41;[/code:3ck3bfun]\n\nAnd \"0x65\" is diferent to 0x65\n\nSorry.','',0,'gIA=','3ck3bfun',1,0,'',52,0,0),(19465,4393,3,15,0,'203.73.66.101',1159233305,1,0,1,1,1,0,'','','Hello Antonio,\n\nI see. \nBut why not appear in my Resource ActiveX? if I have not add New line.\n\nRichard','',0,'gIA=','16paw1b4',1,0,'',15,0,0),(19466,4396,6,656,0,'83.230.172.205',1159251194,1,0,1,1,1,1,'','','Vale, eso era mi problema, pero ¿ porque no me sale en la aplicación los caracteres españoles ? si ya he puesto las instrucciones que vi por el foro.\n\nMuchas Gracias\nSalu2\nJavier','',0,'gIA=','1ecn5ibn',1,0,'',656,0,0),(19467,4408,6,449,0,'212.64.224.241',1159252018,1,0,1,1,1,1,'','Crear funcion en tiempo de ejecucion','Hola,\n\nSabeis si es posible crear una funcion en tiempo de ejecucion ?\n\nGracias','',0,'gIA=','lfs2hhb9',1,0,'',449,0,0),(19468,4409,3,449,0,'212.64.224.241',1159252107,1,0,1,1,1,1,'','Create a function in time of execution','Hello,\n\nDo you know if it is possible to create a function in time of execution?\n\nRegards.','',0,'gIA=','301bjhul',1,0,'',449,0,0),(19469,699,7,262,0,'87.235.159.190',1159253754,1,0,1,1,1,1,'','','estais contestando a un mensaje del año 2005 , aqui no teniamos el progressbar   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  . Los problemas espuetos estan solucionados hace muucho tiempo  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nSaludso a todos','',0,'gIA=','1etkwfoz',1,0,'',262,0,0),(19470,4409,3,54,0,'189.132.117.97',1159257671,1,0,1,1,1,1,'','Re: Create a function in time of execution','[quote=&quot;Carles&quot;:2lar08q3]Hello,\n\nDo you know if it is possible to create a function in time of execution?\n\nRegards.[/quote:2lar08q3]\n\nCarles,\n\nSi a lo que te refieres es ejecutar código en tiempo de ejecucion, siiip, se puede.\n\nxHarbour tiene un contribucion para eso','',0,'gA==','2lar08q3',1,0,'',54,0,0),(19471,4408,6,54,0,'189.132.117.97',1159257749,1,0,1,1,1,1,'','Re: Crear funcion en tiempo de ejecucion','[quote=&quot;Carles&quot;:1h6uoghk]Hola,\n\nSabeis si es posible crear una funcion en tiempo de ejecucion ?\n\nGracias[/quote:1h6uoghk]\n\nCarles,\n\nAqui era el post que puse en el foro de inglés, sorry','',0,'gA==','1h6uoghk',1,0,'',54,0,0),(19472,4408,6,449,0,'212.64.224.241',1159258445,1,0,1,1,1,1,'','','Hola,\n\n[code:30nva0gw]Si a lo que te refieres es ejecutar código en tiempo de ejecucion, siiip, se puede&#46; [/code:30nva0gw]\n\nNo me refiero a ejecutar un script, o codigo via XBScript. Me gustaria saber si es posible dar de alta en la tabla de simbolos una funcion. \n\nGracias.','',0,'AIA=','30nva0gw',1,0,'',449,0,0),(19473,4408,6,2,0,'87.218.146.227',1159260662,1,0,1,1,1,1,'','','Carles,\n\nSi, se puede dar de alta un símbolo de función. Tendrías que proporcionarle el puntero al código ejecutable, que podría ser de otra función ó de una función en C.\n\nQue tienes en mente hacer ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2oquob5h',1,0,'',2,0,0),(19474,4406,6,2,0,'87.218.146.227',1159260787,1,0,1,1,1,1,'','','Jose Luis,\n\nPuedes poner aqui la lista de llamada de funciones que te aparece en el error ? gracias','',0,'AIA=','1czmbd6j',1,0,'',2,0,0),(19475,4396,6,2,0,'87.218.146.227',1159260926,1,0,1,1,1,1,'','','Javier,\n\nPrueba con AnsiToOem() y con OemToAnsi().','',0,'AIA=','6u5pc8vq',1,0,'',2,0,0),(19476,4390,6,2,0,'87.218.146.227',1159261231,1,0,1,1,1,1,'','','José Luis,\n\nPrueba a añadirle la DATA lHScroll a la clase.','',0,'AIA=','d3vg92er',1,0,'',2,0,0),(19477,4409,3,2,0,'87.218.146.227',1159262157,1,0,1,1,1,1,'','','Carles,\n\nYes, you can add a new function symbol to the global symbols table in runtime. You need to supply a function pointer (address of) of another PRG function or of a C function.\n\nWhat are you planning to do ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3qyyv5y4',1,0,'',2,0,0),(19478,4407,3,2,0,'87.218.146.227',1159262333,1,0,1,1,1,1,'','','Gustavo,\n\nCASE xComando = 0x65\n\nis equivalent to:\n\nCASE xComando = 101\n\nIt must work the same way','',0,'AIA=','ydnm7g58',1,0,'',2,0,0),(19479,4396,6,656,0,'83.230.172.205',1159262418,1,0,1,1,1,1,'','','Pero me pasa con todo, no solo con las impresiones, si hago un browse, me pasa, por ejemplo, en uno de los botones del buttonbar tengo puesto en message \"Reorganización\" y la ó no me sale.','',0,'AIA=','r9w8bnk1',1,0,'',656,0,0),(19480,4393,3,2,0,'87.218.146.227',1159262965,1,0,1,1,1,1,'','','Richard,\n\n&gt; But why not appear in my Resource ActiveX? if I have not add New line.\n\nI don\'t understand what you mean, sorry.','',0,'AIA=','1mkcusk0',1,0,'',2,0,0),(19481,4396,6,2,0,'87.218.146.227',1159263404,1,0,1,1,1,1,'','','Javier,\n\nPara editar el código fuente de tus PRGs, estás usando un editor de MsDos ? Debes usar uno de Windows. Te recomendamos el UltraEdit ó el UEStudio.','',0,'AIA=','19aou66q',1,0,'',2,0,0),(19482,4403,6,2,0,'87.218.146.227',1159263454,1,0,1,1,1,1,'','','Alfonso,\n\ngracias!','',0,'AIA=','18d9623h',1,0,'',2,0,0),(19483,4396,6,656,0,'83.230.172.205',1159263669,1,0,1,1,1,1,'','','Pues será ese el problema\n\nMuchas Gracias\n\nJAvier','',0,'AIA=','2m47m9ty',1,0,'',656,0,0),(19484,4402,4,6,0,'87.17.223.185',1159265862,1,0,1,1,1,1,'','Re: Tsocket samples send and receive?','This is a sample:\n\n[code:1wf115y4]FUNCTION MAIN&#40;&#41;\n\n    LOCAL nSocket\n\n    INETINIT&#40;&#41;\n\n    nSocket = INETCONNECT&#40; cIp, nPort &#41;\n\n    ? INETERRORCODE&#40; nSocket &#41;\n\n    INETSEND&#40; nSocket, &quot;This is a test&#46;&quot; + CHR&#40; 13 &#41; + CHR&#40; 10 &#41; &#41;\n\n    ? INETRECVLINE&#40; nSocket &#41;\n\n    INETCLOSE&#40; nSocket &#41;\n\n    INETCLEANUP&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:1wf115y4]\n\nEMG','',0,'AIA=','1wf115y4',1,0,'',6,0,0),(19485,4397,3,217,0,'200.159.120.34',1159269204,1,0,1,1,1,0,'','','Antonio,\n\nYes, the resource is inside exe correctly.\nWhen I add a dialog to resources it fail, if I add a blank dialog named SEL* (SEL_TEMP, SEL_XXX, etc) it work. \n\nIn all times when the dialog open OK and when occur Fivewin/3 error I checked and the dialog is inside exe. And I change nothing in code or dialog, only add or delete an empty dialog as I said...\n\nI couldn\'t isolate the problem into a self contained prg <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nBest regards,\nMaurilio','',0,'AIA=','1xv6wcnq',1,0,'',217,0,0),(19486,4397,3,2,0,'87.218.146.227',1159269921,1,0,1,1,1,1,'','','Maurilio,\n\nWe have found on some ocasions that the dialog name is not fine for Windows. Try to change it to a different name.','',0,'AIA=','1ry75owo',1,0,'',2,0,0),(19487,4405,2,2,0,'87.218.146.227',1159270029,1,0,1,1,1,1,'','','Prueba si te ocurre igual si solo construyes una página.','',0,'AIA=','2wgfeb75',1,0,'',2,0,0),(19488,4397,3,217,0,'200.159.120.34',1159270370,1,0,1,1,1,0,'','','Antonio,\nI\'ll change the name and do any tests.\nAny news I post here.\n\nThanks!\n\nMaurilio','',0,'AIA=','26o9hvwn',1,0,'',217,0,0),(19489,4407,3,52,0,'201.212.71.153',1159272211,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ud55r3j]Gustavo,\n\nCASE xComando = 0x65\n\nis equivalent to:\n\nCASE xComando = 101\n\nIt must work the same way[/quote:1ud55r3j]\nAntonio,\n\nI´m make one simulation of machine, this machine work with one app Visual  Basic and only accept 0x65 and not 101, then need make one app that work with 0x65 and not with 101 or \"0x65\".\n\nSorry.','',0,'gA==','1ud55r3j',1,0,'',52,0,0),(19490,4405,2,774,0,'200.72.65.12',1159273782,1,0,1,1,1,0,'','','Antonio,, dentro del foro encontre una solucion\n\nAhora nose pq influira o si modificando un poco la clase,, se podra corregir, el problema es q por algun motivo se queda colgado un programa llamado WOWEXEC.EXE un programa me imagino que es para poder imprimir o algo asi...\n\nsi la filanizo con el administrador de tareas,, se termina el problema...\n\nahora:: no es una solucion muy diplomatica,, se deberia corregir el problema de fondo si es q tiene una solucion EN ESE TEMA SOY NULO...\n\ncomentame tu opinion porfis...\n\n\nPDT:: 1) existe alguna documentacion de las clases tprinter y treport que las explique,, pero en castellano,, hay una por ahi pero en ingles,, y es nada de facil entenderlas...\n   \n         2) se me presenta otra interrogante,, por eso te pregunto del manual,, como manejo el tema de los cms,, y las pulgadas ,, eso me tiene medio confundido,, en DOS era simplemente imprimir caracteres,, como eran de las mismas dimensiones,, pero en windows eso cambia,, ando perdido.. \n\n    Por Ejm... en esta function imprimo una cotizacion.... xx, si la imprimo en una HP,, me sale bien las posiciones del encabezado,,, pero si la imprimo en una Matriz de punto Microline turbo,, me sale en posicion distinta.. como se corrige eso que siempre salgo igual.. como en word por ejemplo..\n\nFunction ImpCotiza()\nLocal oPrn\nLocal oFont\nLocal cCol:=0\nLocal cFil:=0\n\nPRINT oPrn NAME \"COTIZACIONES\" PREVIEW FROM USER\nDEFINE FONT oFont NAME \"Arial\" SIZE 0,-12 OF oPrn\n\ncCol:=oPrn:nVertRes()/80\ncFil:=oPrn:nHorzRes()/50\n\nPAGE\noPrn:say(00*cFil,00*cCol,oemtoansi(\"Elisa Flores y Compa¤ia Limitada\"),oFont)\noPrn:say(00*cFil,40*cCol,\"Fecha :\"+dtoc(Date()),oFont)\n\noPrn:say(01*cFil,00*cCol,oemtoansi(\"Barraca de Maredas\"),oFont)\noPrn:say(01*cFil,40*cCol,\"Hora  :\"+Time(),oFont)\n\noPrn:say(02*cFil,00*cCol,oemtoansi(\"Materiales de Construcci¢n\"),oFont)\n\nENDPAGE\n\nPAGE\noPrn:say(00*cFil,00*cCol,oemtoansi(\"Elisa Flores y Compa¤ia Limitada\"),oFont)\noPrn:say(00*cFil,40*cCol,\"Fecha :\"+dtoc(Date()),oFont)\n\noPrn:say(01*cFil,00*cCol,oemtoansi(\"Barraca de Maredas\"),oFont)\noPrn:say(01*cFil,40*cCol,\"Hora  :\"+Time(),oFont)\n\noPrn:say(02*cFil,00*cCol,oemtoansi(\"Materiales de Construcci¢n\"),oFont)\n\nENDPAGE\n\nENDPRINT\noFont:end()\nReturn\n\nGRACIAS,,,  ESPERO TU RESPUESTA','',0,'gA==','2b1evr7o',1,0,'',774,0,0),(19491,4404,6,237,0,'200.68.70.89',1159276570,1,0,1,1,1,0,'','Problema','Antonio:\n\nOrientame por favor por que no se que buscar, la version del office no puede ser x que el ejemplo pdf tampoco me funciona y por ahora es lo mas urgente que necesito.\n\nMuchos saludos.','',0,'gA==','1dbsrahb',1,0,'',237,0,0),(19492,4410,20,125,0,'194.243.7.199',1159276950,1,0,1,1,1,0,'','Problemi con listbox','A rieccomi !\nCon Harbour mi succede una cosa molto strana in una list box:\n\nesempio:\n\nuse c:\\dati\\pippo shared\nset index to c:\\dati\\pippo  (dove pippo e\' un indice sul campo auto)\n.\n.\nseek auto_     (dove auto_ vale: CROMA)\n\nif ! eof()\n msgalert(\"ok trovato ! :\"+auto)\nendif\n.\n.\ndefine dialog ciccio ...\n @0,0 define listbox mio;\n     fields auto;\n     headers \"C.Auto\";\n     fieldsize 200;\n     size 300,300 of ciccio pixel\nactivate dialog ciccio center\n\nbene se lo faccio girare mi dice:\nok trovato !: CROMA\ne quindi mi aspetto che la listbox si posizioni sul primo record trovato, e invece si posizione in modo randomico una volta in testa poi in coda poi in mezzo. Sembrava un problema di indici ma l\'indice e\' a posto (ricostruto 1000 volte)\n\nVi e\' mai capitato ?\nCosa potrebbe essere?\n\nGrazie\nPiscicelli B.','',0,'gA==','2zfz9zpz',1,0,'',125,0,0),(19493,4410,20,6,0,'87.17.223.185',1159281470,1,0,1,1,1,1,'','Re: Problemi con listbox','Prova a riposizionare il browse nella ON INIT della DIALOG.\n\nEMG','',0,'gA==','3nq4ohy2',1,0,'',6,0,0),(19494,4411,1,52,0,'201.212.71.153',1159282358,1,0,1,1,1,1,'','Infraction of access in kernel32.dll','Hi all,\n\nI have this lines of source, and when i run my app it produce error:\n\n[url=http&#58;//img245&#46;imageshack&#46;us/my&#46;php?image=erroroi8&#46;jpg:b8gqe2ab][img:b8gqe2ab]http&#58;//img245&#46;imageshack&#46;us/img245/92/erroroi8&#46;th&#46;jpg[/img:b8gqe2ab][/url:b8gqe2ab]\n\n\n[code:b8gqe2ab]FUNCTION ComandoCEM&#40; cPipe, xComando&#41;\n\n   LOCAL xInBuffer &#58;= 101\n   LOCAL xOutbuffer\n   LOCAL xRespuesta\n\n   CallNamPip&#40; cPipe,          ;              // lpNamedPipeName\n               xComando,       ;              // lpInBuffer\n               Len&#40;xComando&#41; + 1,           ;              // nInBufferSize\n               xOutBuffer,     ;              // lpOutBuffer\n               1024,           ;              // nOutBufferSize\n               xRespuesta,     ;              // lpBytesRead\n               20000 &#41;              // nTimeOut\n\n   RETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\nDLL32 FUNCTION CallNamPip&#40; lpNamedPipeName AS STRING,;\n                           @lpInBuffer AS LPSTR,;\n                           nInBufferSize AS LONG, ;\n                           @lpOutBuffer AS LPSTR,;\n                           nOutBufferSize AS LONG, ;\n                           @lpBytesRead AS LONG,;\n                           nTimeOut AS LONG &#41; ;\n               AS LONG PASCAL;\n               FROM &quot;CallNamedPipeA&quot; LIB &quot;KERNEL32&#46;DLL&quot;[/code:b8gqe2ab]\n\nIdea?\n\nTank´s','',0,'GIA=','b8gqe2ab',1,0,'',52,0,0),(19495,4412,3,707,0,'222.124.20.50',1159283066,1,0,1,1,1,0,'','protection EXE file','Hi All !\n\nThe EXE file produced by Borland or MSVC is stand alone EXE without any dll.\n\nThe application installed by installer is good way for the first time.\nBut when the application installed move again to another computer, this is ilegal copy.\n\nHow to make EXE file can\'t be copy to another ?\n\nBest Regard\nAreang','',0,'GIA=','3pto0fd0',1,0,'',707,0,0),(19496,699,7,106,0,'85.34.123.173',1159284570,1,0,0,1,1,1,'','','Efectivamente, tu pregunta era del 2005, pero yo estaba buscando por cual motivo no me ponía el ícono al acceso directo en el desktop (Windows CE 4.20). No había entendido bien tampoco tu pregunta (re-leyendo vi que no tenía nada que ver con lo que contestè) pero me acordé que había leido a alguien que tenia problemas con los iconos, cuando resolví el tema, quise responder, asi alguien mas no tenía que perder tiempo como me pasó a mi.\n\nEl tema fue el siguiente, por algun motivo, si no tengo el ejecutable en \\windows y creo un acceso directo, (en CE 4.20) no me muestra el icono, mientras copiando el ejecutable en \\windows, si lo muestra... cosas de la vida...\n\nSaludos.','',0,'GIA=','sc5oq88d',1,0,'',106,0,0),(19497,4412,3,69,0,'206.210.97.138',1159285550,1,0,1,1,1,0,'','','Areang,\n\nYou can try my KeyGen.obj\n\nBasically you give them a software \"key\".  Then you can verify the \"key\" to make sure they do not install the software on other computers.\n\n(Instructions Below)\n\nYou can download it at:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/020e7f0246/KeyGen32.obj.html\">http://hyperupload.com/download/020e7f0 ... 2.obj.html</a><!-- m -->\n\n\nHope This helps,\n\nJeff\n\n\n\n[code:3vc86qd3]Useage&#58; MakeKey&#40; nKey, nLicense &#41;\n\n        nKey is your &quot;secret key&quot;\n        nLicense is the number of licenses the end user has purchased\n                 this is a number that can be extracted by GetLicense&#40;&#41;\n\n        Example&#58; We will use 581 as our &quot;secret key&quot;\n                 We will give the end user 5 licenses\n\n                 cKey &#58;= MakeKey&#40; 581, 5 &#41;\n\n                 If the Hard Drive Serial Number is&#58; 123456789\n\n                 cKey will be&#58; 986-3266501-3064-26145\n \n                 cKey is the number you give the end user to &quot;unlock&quot;\n                 your software&#46;\n\n\nUseage&#58; MakeKey&#40;&#41;\n\n        If you use MakeKey&#40;&#41; without any parameters you will be prompted\n        to enter nKey, Hard Drive Serial Number and nLicense&#46;\n        The the cKey will be displayed via MsgInfo&#40;&#41;\n\n        The &quot;Hard Drive Serial Number&quot;, &quot;Generated Key&quot; and &quot;Number of Licenses&quot; will also\n        be copied into the Clipboard&#46;\n  \n\n\nUseage&#58; GetLicense&#40; nKey, cKey &#41;\n\n        nKey is the &quot;Secret Key&quot; you used in MakeKey&#40;&#41;\n        cKey is the string returned by MakeKey&#40;&#41;\n\n        Example&#58; We will use 581 as our &quot;secret key&quot;\n                 cKey will be&#58; 986-3266501-3064-26145 &#40;see example above&#41;                      \n\n                 nLicense &#58;= GetLicense&#40;581, &quot;986-3266501-3064-26145&quot; &#41;\n\n                 This will determine the Hard Drive Serial Number and using\n                 the parameters provided, will return the number of licenses\n                 that were encoded when you used MakeKey&#40;&#41;\n\n                 So, if the Hard Drive Serial Number is 123456789\n                 nKey is 581 and\n                 cKey is  986-3266501-3064-26145\n\n                 nLicense = 5\n\n\n\nUseage&#58; VerifyKey&#40; nKey, cKey&#41;\n\n        nKey is the &quot;Secret Key&quot; you used in MakeKey&#40;&#41;\n        cKey is the string returned by MakeKey&#40;&#41;\n\n        Example&#58; We will use 581 as our &quot;secret key&quot;\n                 cKey will be&#58; 986-3266501-3064-26145 &#40;see example above&#41;                      \n\n                 IF VerifyKey&#40; 581, &quot;986-3266501-3064-26145&quot; &#41;\n                    MsgInfo&#40;&quot;Valid Key&#46;&#46;&#46;&quot;&#41;\n                 ELSE\n                    MsgInfo&#40;&quot;Invalid Key&#46;&#46;&#46;&quot;&#41;\n                 ENDIF\n\n\n\nUseage&#58; GetSecretKey&#40; nSerial, cKey &#41;\n             \n         WARNING&#58; Run this function without other programs running&#46;  It uses as much of the\n                          CPU as it can and depending on your &quot;Secret Key&quot; may take a LONG TIME to\n                          complete its calculations before you are given your &quot;Secret Key&quot;\n                          &#40;it is slow, but atleast you now can get your &quot;Secret Key&quot; if you forget it&#41;\n\n         nSerial is the serial number used to make cKey\n         cKey is the string returned by MakeKey&#40;&#41; \n\n         Example&#58; \n                    nSerial = 123456789\n                    cKey = 986-3266501-3064-26145 &#40;see example above&#41;                      \n\n                    cSecret &#58;= GetSecretKey&#40; 123456789, &quot;986-3266501-3064-26145&quot; &#41;\n\n                    cSecret wil be 581\n\n\nNOTES&#58; 1&#46; The value returned by MakeKey&#40;&#41; should be stored on the end users\n                 system and a check &#91; VerifyKey&#40;&#41; &#93; should be done to determine if\n                 the user has a valid installation&#46;\n\n             2&#46; If you need to change the amount of licenses, you will need to\n                 generate a new Key&#46; &#91; MakeKey&#40;&#41; &#93;\n\n             3&#46; This library only gives you &quot;a number&quot; for licenses, it will not\n                 limit the end user &#46;&#46;&#46; This is left up to you, the programmer&#46;\n                 So the value returned from GetLicense&#40;&#41; should be used to limit\n                 connections to the program&#46; &#40;This is mainly for networked systems&#41;\n                 If you are not worried about licenses then you can use this as a\n                 secondary &quot;Secret Key&quot;, however you MUST supply a value&#46;\n\n              4&#46; The only function that can be used without any parameters is\n                  MakeKey&#40;&#41;, you MUST supply the parameters for the other functions&#46;\n\n              5&#46; The &quot;Secret Key&quot; must not be zero, this may cause problems&#46;[/code:3vc86qd3]','',0,'AIA=','3vc86qd3',1,0,'',69,0,0),(19498,4404,6,2,0,'87.218.146.193',1159287320,1,0,1,1,1,1,'','','Usas xHarbour builder ? Ojo, porque tiene una Clase TActiveX que es incompatible con la de FWH, y puede estar enlazándose en vez de la de FWH.','',0,'AIA=','1t45r1l6',1,0,'',2,0,0),(19499,4404,6,237,0,'200.68.70.89',1159288311,1,0,1,1,1,0,'','Error:','Antonio:\n\nUso xharbour bajado del cvs, lo mantengo al dia usando el tortoise:\nU:pserver:anonymous@xharbour.cvs.sourceforge.net:/cvsroot/xharbour\n\n\nEstuve poniendo unas paradas para ver donde se cuelga y ocurre aqui:\n\noActiveX = TActiveX():New( oWnd, \"PDF.PdfCtrl.6\" )\n\n\n\n\n\nMuchas gracias!','',0,'AIA=','dsi8dn9z',1,0,'',237,0,0),(19500,4402,4,47,0,'203.144.143.8',1159288791,1,0,1,1,1,0,'','','Dear Enrico,\n\nWhat is the library of those functions?  I cannot find any document of Fivewin or Harbour?\n\nBest regards,\nDutch','',0,'AIA=','2tmcx76n',1,0,'',47,0,0),(19501,4402,4,6,0,'87.10.1.33',1159289082,1,0,1,1,1,1,'','','wininet.lib. This is inet.txt from xHarbour CVS:\n\n[quote:a5tq7p8l]                                 XHARBOUR INET API\n                                -------------------\n\n\n        Giancarlo Niccolai &lt;gian@niccolai.ws&gt;\n\n/*  $DOC$\n *  $FUNCNAME$\n *      Xharbour Inet functions\n *  $CATEGORY$\n *      Xharbour Enhacements\n *  $ONELINER$\n *      XHARBOUR INET API\n *  $DESCRIPTION$\n *\n *      STATUS OF THIS DOCUMENT\n *\n *\n *      This is just a draft, a survival guide with minimal API instructions\n *      extracted from the inet.c program comments and from some posting to\n *      the xharbour newsgroup.\n *\n *      More adequate version will be available soon.\n *\n *\n *      XHARBOUR INET API\n *      =================\n *\n *\n *      Startup / cleanup functions\n *      ---------------------------\n *\n *      InetInit() --&gt;NIL\n *        Activates inet support; mainly used for winsock start up at the moment, but\n *        could be used in the future for many other purpose. Put it at the beginning\n *        of every program using INET functions.\n *\n *\n *      InetCleanup() --&gt;NIL\n *        Closes Inet support; mainly used for win32. Put it at the end of any program\n *        using Inet functions, just before the program exits.\n *\n *      InetCreate() --&gt; SOCKET\n *        Creates the raw data of the socket, that can be passed to an asynchronous\n *        connection function (InetConnect or InetConnectIP). This will prevent the\n *        connection function from allocating some data that could be never used in\n *        certain cases, i.e. an asynchronously detected timeout.\n *\n *      InetClose( SOCKET ) --&gt; NUMERIC\n *        Closes the socket, notifiying both ends of the communication pipe that the\n *        connection is over. If you have threads waiting for data to be read from\n *        this socket, this method will make them stop waiting and return an error\n *        (socket closed) to their callers.\n *        The method does not destroy the socket, which can be used by subordinate\n *        threads to check that the socket is closed, and so they should stop as soon\n *        as they can. Don\'t destroy the socket unless you are sure that no other\n *        thread is using it.\n *        RETURNS 0 on success or -1 on error; on error, the error code is set;\n *        (actually, on success the socket error code is set to 1 -- socket closed )\n *\n *\n *      InetDestroy( SOCKET ) --&gt; Numeric\n *        Closes AND destroys a socket. After this call, the socket can\'t be used\n *        anymore. Returns 0 on success -1 on failure.\n *\n *\n *      InetSetTimeout( SOCKET, nMillisecs ) --&gt; NIL\n *        Sets the default timeout of the given socket. Default timeout is used in all\n *        blocking operations: if the operation can\'t be done in nMillisec milliseconds,\n *        the function returns immediately and the InetErrorCode( SOCKET ) returns -1.\n *        The default timeout is not the maximum time that a function using the socket\n *        is allowed to execute: it is the maximum time that each single blocking\n *        operation inside that function is allowed to hold the control of the socket.\n *        So, an function like InetReadAll(), that may repeat a raw recv() several\n *        times, is not guaranteed to terminate in nMillisecs, but you are guaranteed\n *        that if any of that raw socket read operation is going to take more than\n *        nMillisecs, the function will be terminated.\n *        When created, a socket is created with an infinite default timeout (-1).\n *\n *      InetGetTimeout( SOCKET ) --&gt; NUMERIC\n *        Returns the timeout set for the given socket.\n *\n *      InetClearTimeout( SOCKET, nMillisecs ) --&gt; NIL\n *        Clears the default timeout of the given socket. Default timeout is used in all\n *        blocking operations.\n *\n *\n *      Informative functions\n *      ---------------------\n *\n *      InetErrorCode( SOCKET ) --&gt; Numeric\n *        Returns the last error code that has been provoked by a network operation,\n *        or 0 if none. Error codes are the ones used for winsock or UnixSockets (they\n *        are the same); 1 is reserved for \"connection closed\" message.\n *\n *\n *      InetErrorDesc( SOCKET ) --&gt; String\n *        Returns a string describing the last error that occurred in the socket;\n *        the string is system dependent, and should be used only for debugging\n *        purposes.\n *\n *\n *      InetCount( SOCKET ) --&gt; Numeric\n *        Returns the amount of characters read or written in the latest socket\n *        operation.\n *\n *\n *      InetAddress( SOCKET ) --&gt; STRING\n *        Returns a string representing the remote server address in quad dot notation,\n *        e.g. \"192.168.1.1\", or the local server address if the socket is server\n *        side.\n *        TODO: have a version that returns a vector of 4 numbers.\n *\n *\n *      InetPort( SOCKET ) --&gt; STRING\n *        Returns the port to which this socket is bound, or the remote port if this\n *        socket is connected with a remote host or client\n *\n *      Server Side socket functions\n *      ----------------------------\n *\n *      InetServer( port [, cBindAddr [, nListenLimit]]  ) --&gt; SOCKET\n *        Creates a server that can accept connections from client on a certain port.\n *        If the computer on which InetServe is called has more than one logical\n *        interface (e.g. one network card, one loopback and one PPP address),\n *        cBindAddr can be specified to select only one of these interfaces to accept\n *        connections for this process. This is useful when a server is present on\n *        two networks, and the service is to be available only in one of them. Also,\n *        the same port on other addresses is left free to be used, so you can have\n *        different server programs running for different networks but managing\n *        the same service. In example, an FTP server available to the internal\n *        network could be radically different from an FTP server available for\n *        the internet.\n *        nListenLimit is an internal parameter and rarely needs to be specified.\n *        This is the number of incoming connections accepted by kernel before the\n *        kernel has the chance to report them to the application program. If\n *        the sockets receive nListenLimit connections before accepting them\n *        all, the nListenLimit + 1 connection will be notified to be \"busy\" by\n *        the kernel. Usually,  a value of 10 (the default) is enough for even\n *        a heavy duty server.\n *        On error, sets error description in the newly returned socket.\n *\n *      InetAccept( SOCKET ) --&gt; SOCKET\n *        Waits until a connection is available on a socket created with InetServer;\n *        Returns a socket that can be used to communicate with the incoming client.\n *        On error, sets error in the newly returned socket.\n *\n *      Client side socket functions\n *      ----------------------------\n *\n *      InetConnect( cAddress, nPort ) --&gt; SOCKET\n *      InetConnect( cAddress, nPort, SOCKET ) --&gt; NIL\n *        Connects to a remote server described by cAddress, that can be in\n *        quad dot notation (e.g. \"192.168.1.1\") or in DNS name (e.g.\n *        \"www.xharbour.org\"), using the desired port.\n *        InetConnect uses \"gethostbyname\" C system call to\n *        find the network address of the specified server; this means that\n *        this call is an hybrid function doing both a DNS scan and a TCP/IP\n *        connection. InetConnect is not thread safe, and the xHarbour\n *        program must take care that two InetConnect functions are never\n *        called at the same moment from two different threads (or that\n *        InetGetHosts is not called in the same moment as an InetConnect).\n *        The second version of this function accepts a pre-built socket\n *        as a parameter. This allows to kill asyncronously a thread waiting\n *        for InetConnect to connect, and then cleaning up the leftover\n *        socket data. Also, it is possible to give timeout to the given SOCKET,\n *        but this timeout will be used only in the connection phase, after that\n *        the network address resolution is completed. Use GetHosts() and\n *        InetConnectIP for a finer timeout control.\n *        On error, the error of the returned socket is set. The error could\n *        be due to unavailable name resolving service, host name not valid,\n *        host address not reachable and host reachable but port not open.\n *\n *\n *      InetConnectIP( cAddress, PORT ) --&gt; SOCKET\n *      InetConnectIP( cAddress, PORT, SOCKET ) --&gt; NIL\n *        Connects to a remote server described by cAddress, that can be specified\n *        only in quad dot IPV4 notation (e.g. \"127.0.0.1\"), using the desired port.\n *        This version of InetConnect does not use gethostbyname, and thus is thread\n *        safe and can be used in combination with InetGetHosts to have a finer\n *        timeout control while connecting to a server, and a finer error control.\n *        The second version of this function accepts a pre-built socket\n *        as a parameter. This allows to kill asyncronously a thread waiting\n *        for InetConnectIP to connect, and then cleaning up the leftover\n *        socket data. Also, it is possible to give timeout at the given SOCKET.\n *\n *        On error, the error of the returned socket is set.\n *\n *\n *\n *      Sending and receiving data\n *      ----------------------------\n *\n *      InetRecv( SOCKET, @cString [, nAmount] ) --&gt; NUMERIC\n *        Reads at maximum nAmount bytes (or a number of bytes equal to cString\n *        length if nAmount is not given) from the socket into cString.\n *        The parameter cString must be preallocated so that it has enough\n *        space to receive the data. The routine will block the thread until some\n *        bytes are read from the socket, the socket is closed (either from the\n *        receiver or the sender side) or a network error occurs, whichever comes\n *        first. In the latter cases, an error is set, and only the characters\n *        received until premature end of communications are returned.\n *        Notice that there is no guarantee that all the available bytes will be\n *        read before the function returns, in fact, InetRecv returns as soon it\n *        is able to fill cString with one or more bytes. To block the current\n *        process until the whole cString is filled (or nAmount bytes are read),\n *        use the InetRecvALL().\n *        RETURNS the number of the characters read from the SOCKET.\n *\n *\n *      InetRecvAll( SOCKET, @cString [, @nAmount] ) --&gt; NUMERIC\n *        This function works exactly as InetRecv, except for the fact that it\n *        blocks until nAmount bytes are read, if nAmount is given, or\n *        cString is filled for its whole length.\n *        RETURNS the number of the characters read from the SOCKET. Might be\n *        less than nAmount on premature socket closing or on network error.\n *\n *\n *      InetRecvLine( SOCKET [, @nResult, [, nMaxLength [, nBufSize]]] ) --&gt; STRING\n *        Blocks the calling thread until a sequence CRLF is read from the socket.\n *        Incremental allocation and end-of-line checking are done in an efficient\n *        way. If an error occurs, or if the stream is closed before a CRLF is read,\n *        the function returns nothing and sets the socket error.\n *        The returned string does not contain the trailing CRLF sequence, so an\n *        empty line is effectively returned as an empty string.\n *        If the nResult parameter is given, it will contain the number of bytes\n *        read from the socket, including the CRLF sequence, so that in normal\n *        conditions, nResult will report a count equal to the length of the\n *        returned string plus 2. nResult will be 0 if stream is closed before\n *        a CRLF sequence is read, and will be -1 on error.\n *        An optional MaxLength parameter can be given to allow a maximum character\n *        count before the data is returned anyway. If this number is hit before\n *        a CRLF sequence is encountered, nResult will contain the value one.\n *        Finally, a nBufSize parameter can be given. If not, memory allocation\n *        will be increased by discrete amounts of 80 bytes. The programmer\n *        can provide here a different allocation strategy (e.g. setting nBufSize\n *        equal to nMaxLength, memory for reading the line will be allocated only\n *        once, at the beginning of the function).\n *\n *\n *      InetRecvEndBlock( SOCKET [, cBlock [, @nResult, [, nMaxLength [,\n *             nBufSize]]]] ) --&gt; STRING\n *        This function operates exactly the same way as InetRecvLine, but\n *        the \"record termination\" is customizable thorugh the cBlock parameter.\n *        If not given, this parameter defaults to the CRLF sequence.\n *        Provided by: Marcelo Lombardo\n *\n *\n *      InetDataReady( SOCKET [, nMillisecs] ) --&gt; NUMERIC\n *        Verifies if some data is available to be read in the socket without blocking\n *        execution of the caller. If nMillisecs is not given, the function returns\n *        immediately 1 if there is some data to be read, 0 if there isn\'t any data and\n *        -1 in case of error. If nMillisecs is given, the functon will wait up to that\n *        amount of milliseconds for data to be available; if some data arrives in the\n *        meanwhile, the wait is immediately interrupted.\n *        The next InetRecv() function will read all the available data (up to the\n *        required length) without blocking.\n *        On error, InetErrorCode and InetErrorDesc can be use to determine what kind\n *        of error happened.\n *\n *\n *      InetSend( SOCKET, STRING [, nLength ] ) --&gt; NUMERIC\n *        Send data being stored in a string over the socket. Returns the amount of\n *        data written, 0 if the socket has been closed in the meanwhile or -1 on\n *        error. The nLength parameter can be given to allow writing only a part of\n *        the string.\n *        Please, notice that there is no guarantee that all your string will be\n *        sent, as this is a decision that is up to the OS; this function does not\n *        take care to ensure that the data is really sent; so you should check for\n *        the returned number, and send the part that has not been sent.\n *        To ensure that all the data is sent before the function returns, use the\n *        InetSendAll() function.\n *        On error, the error in the socket is set.\n *\n *\n *      InetSendAll( SOCKET, STRING [, nLength ] ) --&gt; NUMERIC\n *        This function works exactly as InetSend() but it ensures that all the\n *        data to be sent is written before returning.\n *\n *      Utility Functions\n *      ------------------\n *\n *      InetGetHosts( cName ) --&gt; aHosts\n *        Returns an array containing all the IP addresses associated with a given\n *        host name. The IP addressess returned by this funtion are strings in\n *        quad dot notations, eg \"192.168.1.1\", and can be directly used into\n *        InetConnectIP(). cName can be any string: valid DNS names (eg.\n *        \"www.myserver.com\"), locally available names (e.g. \"localhost\" or\n *        windows Network Neighborhood names), or even IP addresses in quad\n *        dot notation.\n *        NOTE: This function is not thread safe (by design), and programmers\n *        must be sure not to use it at the same time in two different threads,\n *        or not to use it together with a InetConnect(). If this kind of situation\n *        should ever arise, you are advised to use a thread MUTEX.\n *        On error, and if the server can\'t be found, the function returns NIL.\n *\n *\n *      InetGetAlias( cName ) --&gt; aHosts\n *        Returns an array containing the aliases ( CNAME DNS records ) by\n *        which the server is currently known. Whether this function is able\n *        to have the complete list of aliases or not depends on the verbosity\n *        of the DNS server.\n *\n *\n *      InetCRLF() --&gt; String\n *        Returns a CRLF sequence used in many internet protocols.\n *\n *      UDP (User Datagram Protocol) Compliant Routines\n *      -----------------------------------------------\n *\n *      InetDGram( [bBroadcast] ) --&gt; SOCKET\n *        Creates a datagram oriented socket that will be able to send data and\n *        eventually receive data. Since the socket is not bound, the program can\'t\n *        retrieve the address at which this socket appaers to be, but a second\n *        socket receiving a message sent from this one would be able to reply\n *        correctly with a datagram that can be read from a non-bound socket.\n *        If bBroadcast is set to .T., the routine creates a broadcast capable socket:\n *        it will be able to receive and send broadcast messages. On most systems this\n *        requires special user privileges.\n *        Returns the socket, and if an error occurs, the socket error message\n *        and code are set.\n *\n *\n *      InetDGramBind( nPort, [cAddress [, bBroadcast] ] ) --&gt; SOCKET\n *        Creates a datagram oriented socket and binds it to a particular port, and\n *        eventually to a certain interface if cAddress is given and not NIL.\n *        If bBroadcast is set to .T., the routine creates a broadcast capable socket:\n *        it will be able to receive and send broadcast messages. On most systems this\n *        requires special user privileges.\n *        Returns the socket, and if an error occurs, the socket error message\n *        and code are set.\n *\n *\n *      InetDGramSend( SOCKET, cAddress, nPort, cBuffer [, nSize ] ) --&gt; NUMERIC\n *        Sends a datagram (a fixed length data) to a determined ip address (cAddress,\n *        to be specified in quad-dot notation) and port. If nSize is not specified,\n *        all the data in cBuffer will be sent; if nSize is specified, only\n *        the first nSize bytes of cBuffer will be sent.\n *        There isn\'t any guarantee that all the data required to be written is\n *        really sent to the socket: the calling program should check for the\n *        numeric return and send iteratively the unsent data to complete\n *        the message.\n *        Anyway, the raw datagram is sent and received as once, and any data\n *        less than the system datagram size will be sent and received\n *        as a single item.\n *        If the socket is created in broadcast mode, the cAddress element\n *        can be a broadcast address.\n *        Returns -1 on error, or the number of bytes actually sent on success.\n *\n *      InetDGramRecv( SOCKET, cBuffer [, nSize ] ) --&gt; NUMERIC\n *        Reads at maximum nSize bytes incoming from a UDP socket, if nSize is\n *        given, or reads at maximum cBuffer length if nSize is not given.\n *        There isn\'t any guarantee that all the data required to be read is\n *        really sent from the kernel to the application: the kernel should\n *        just return the last complete datagram that has been received, up\n *        to nSize bytes.\n *        Returns -1 on error, or the number of bytes actually read on success.\n *  $END$\n */[/quote:a5tq7p8l]\n\nEMG','',0,'gA==','a5tq7p8l',1,0,'',6,0,0),(19502,4404,6,237,0,'200.68.70.89',1159289365,1,0,1,1,1,0,'','No entiendo nada...','Lo extraño es que compile el ejemplo webexp.prg y me funciona perfectamente!\n\nNo entiendo nada, de donde viene el problema y por que word.prg, excel.prg y pdf.prg se cuelgan al definir el control activex ??\n\nMuchas gracias!','',0,'gA==','31ae4k98',1,0,'',237,0,0),(19503,4392,7,598,0,'200.11.139.61',1159293511,1,0,1,1,1,1,'','','capturas el texto q sale por el puerto COM y protocolo del gps se llama NMEA, tengo casi todos los comandos con gusto te puedo enviar el NMEA por email.','',0,'gA==','24x7ng8m',1,0,'',598,0,0),(19504,4392,7,63,0,'80.37.102.128',1159294005,1,0,1,1,1,0,'','','Luis:\nYo también estoy muy interesado en esa aplicación.  ¿Podrías enviarme una copia también a mí?  ¿Tienes algún ejemplo básico de código?\nGracias,\nRafael','',0,'gA==','uc5fspe7',1,0,'',63,0,0),(19505,4392,7,598,0,'200.11.139.61',1159294063,1,0,1,1,1,1,'','','cual es tu email?? para enviartelo??','',0,'gA==','26extaf3',1,0,'',598,0,0),(19506,4392,7,63,0,'80.37.102.128',1159294188,1,0,1,1,1,0,'','','Luis:\n<!-- e --><a href=\"mailto:rclemente@ya.com\">rclemente@ya.com</a><!-- e -->\nGracias por la rapidez en contestar!','',0,'gA==','23d6eaj2',1,0,'',63,0,0),(19507,4410,20,125,0,'213.140.6.105',1159294281,1,0,1,1,1,0,'','','si ho anche provato con:\n\nactivate dialog ciccio center on init miafun(mio)\n\n.\n.\n\nfunction miafunc\nparam xx\n\ngo ffff (dove ff e\' il record iniziale)\n\n* oppure con xx:gotop()\nxx:refresh()\n\nreturn nil\n*\n\nma anche cosi sembra non fregarsene!\nMistero\nDovrei riuscire ad strapolare un prg con relativo dbf suppongo!\nGraziie','',0,'gA==','3m43xt7j',1,0,'',125,0,0),(19508,4413,6,774,0,'200.72.65.12',1159294953,1,0,1,1,1,0,'','FW o FWH ESA ES LA PREGUNTA','esta pregunta va a los usuarios ( Programadores),,\n\nFWH es mejor de FW ,,, pero no me refrioro a 16b o 32b,, sino a que esta \ntotalmente operativo,, o posee algunos defectos errores...etc.\n\nAhora ,, estoy desarrollando una app en FW,, puedo migrarla a FHW..\n\ncomo lo hago,,\n\nalguien me puede ayudar,,, y cuando digo ayudar no me refiero a q me expliquen como sino a ayudar verdaderamente,,, explicar con peras y manzanas como hacer... que necesito y si no fuera mucho aportar con lo necesario y decirme dnd conseguirlo...\n\ntengo y nose si me falta:.\n\nBCC5\nHarbour\nFWH 2.6\n\nque mas falta ,,\n\nGRACIAS','',0,'gA==','1b0k9dfy',1,0,'',774,0,0),(19509,4404,6,2,0,'87.218.146.128',1159295161,1,0,1,1,1,1,'','','Si webexp.prg te funciona correctamente entonces es que estas usando la clase TActiveX correcta de FWH.\n\nQue versión de Office tienes instalada ?\n\nQue versión de Adobe Acrobat reader tienes en tu ordenador ?','',0,'gA==','1mv1xu6g',1,0,'',2,0,0),(19510,4369,2,52,0,'201.212.71.153',1159295247,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3w5dr9ai]Gustavo,\n\nSi. Lo que ocurre es que el extend API de Harbour es ligeramente distinto al de Clipper. Por ejemplo, Harbour usa hb_... mientras que Clipper no.\n\nHarbour usa HB_FUNC() y Clipper usa CLIPPER.[/quote:3w5dr9ai]\n\nAntonio,\n\n   Y en este caso, si copio las de FWH a Fw, podría de alguna forma utilizarlos? porque no puedo hacer lo mismo con la CallNamedPipe llamada desde DLL32.\n\nGracias','',0,'gA==','3w5dr9ai',1,0,'',52,0,0),(19511,4413,6,2,0,'87.218.146.128',1159295623,1,0,1,1,1,1,'','','Es recomendable que leas esto:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m -->\n\nFWH y Harbour/xHarbour estan 100% operativos.','',0,'gA==','230ji5jk',1,0,'',2,0,0),(19512,4414,2,348,0,'201.240.202.26',1159295942,1,0,1,1,1,0,'','llamada de programa externo se minimiza','Buenos dias.. \nalgo casi simple..  como el TDOSprn  No tiene un Preview simple... que me muestre mi reporte en matricial...  me dije.. \"CREARE  un archivo texto de la impresion...  y luego llamo a un progrma  ejemplo  .. ENOTAS miArchivo.txt    y me lo abre en solo modalidad lectura... \" \n\nTodo funciona bien perooo....  en la llamada se abre en una ventana de ese programa ..\"atras del mi programa WinFW...\"   y para activarlo tengo que hacerle click a la barra de tareas... o  con ALT+TAB para salta a esa ventana   \n\nesto se puede evitar  ???\n\no quizas simulando un ALT+TAB ??  como se hace??\n\nGracias..\n\nLubin','',0,'gA==','1y948wts',1,0,'',348,0,0),(19513,4369,2,2,0,'87.218.146.128',1159296033,1,0,1,1,1,1,'','','Gustavo,\n\nNo todas las funciones del API de 32 bits de Windows funcionan desde 16 bits. Por ejemplo, las funciones de threads, el control richedit, etc.','',0,'gA==','dz7dk8p8',1,0,'',2,0,0),(19514,4369,2,52,0,'201.212.71.153',1159296174,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3bm41rqn]Gustavo,\n\nNo todas las funciones del API de 32 bits de Windows funcionan desde 16 bits. Por ejemplo, las funciones de threads, el control richedit, etc.[/quote:3bm41rqn]\n\nAntonio,\n\n   Y hay alguna solucion para mi requerimiento? porque no logro emitir cadenas de textos desde una app de 16 por medio de pipes.\n\nGracias','',0,'gA==','3bm41rqn',1,0,'',52,0,0),(19515,4404,6,237,0,'200.68.70.89',1159296454,1,0,1,1,1,0,'','Versiones','En los dialogos de \"Acerca\" dicen:\n\nExcel: Microsoft excel 2002 10.6501.6735 sp3\nWord: Microsoft word 2002 10.6764.6735 sp3 \nAcrobat: 7.0\n\nGracias!','',0,'gA==','3difk2p7',1,0,'',237,0,0),(19516,4413,6,774,0,'200.72.65.12',1159298034,1,0,1,1,1,0,'','Antonio','Ya lei la lectura muy explicativa de Harbour\n\nahora me puedes ayudar a saber q mas necesito para usar FWH 2,6\n\nhe tratado pero no compila los samples\n\nes igual q compilar con FW o no\n\nAYUDA','',0,'gA==','2m27nqxf',1,0,'',774,0,0),(19517,4415,6,430,0,'157.100.146.2',1159298320,1,0,1,1,1,0,'','¿Cual es la última versión de AJ Make?','Resulta que estoy migrando una aplicación de FW a FWH27; y como gestor de compilación he probado AJMake, Verce y xMate. De los 3 el que más me gusta es AMake; pero la versión que tengo (0.33) genera el archivo .mak de tal forma que se genera un error durante el enlazado (\"Too many MAP file names\", se debe a un erroneo número de comas).\n\nPor eso, quisiera saber donde puedo conseguir una versión mejorada de AJMake o la 0.33 esla última. Además todavía se esta actualizando este programa o ya su autor lo descontinuo.\n\nSaludos desde Ecuador\n\nFernando Espinoza','',0,'gA==','1e139dj3',1,0,'',430,0,0),(19518,4413,6,2,0,'87.218.146.193',1159298989,1,0,1,1,1,1,'','','Sólo hay que modificar los paths en samples\\buildh.bat y luego llamar samples\\buildh.bat tutor01','',0,'gA==','19lqasph',1,0,'',2,0,0),(19519,4404,6,2,0,'87.218.146.193',1159299126,1,0,1,1,1,1,'','','Abre el registro con regedit.exe y busca Word.Application y mira a ver que número lleva a continuación. Haz lo mismo con los demás activex.','',0,'gA==','ps9zncay',1,0,'',2,0,0),(19520,4369,2,2,0,'87.218.146.193',1159299213,1,0,1,1,1,1,'','','Gustavo,\n\nNo lo sabemos, nunca hemos usado esas funciones. Busca información en google.','',0,'gA==','ieqk4hxo',1,0,'',2,0,0),(19521,4416,3,148,0,'196.205.219.133',1159301645,1,0,1,1,1,0,'','Vscroll and Hscroll with window','Is Vscroll and Hscroll implemnted with window or not with FWH 2.8 ?','',0,'gA==','yglev5uy',1,0,'',148,0,0),(19522,4416,3,2,0,'87.218.146.193',1159305860,1,0,1,1,1,1,'','','Ehab,\n\nIf you mean automatic scrolling of its contents, then no, not yet.','',0,'gA==','fohtk3db',1,0,'',2,0,0),(19523,4411,1,2,0,'87.218.146.193',1159306068,1,0,1,1,1,1,'','','Gustavo,\n\nDeclare lpNamedPipeName AS LPSTR and remove @ from the DLL32 FUNCTION declaration.','',0,'gA==','2a1vvofl',1,0,'',2,0,0),(19524,4417,2,124,0,'200.117.216.223',1159306416,1,0,1,1,1,0,'','ORDEN DE INDEXACION PROBLEMAS CON Ñ ACENTOS, ETC','Amigos:\n\nYa estuve viendo que otro topic del foro trata el tema y quedo inconcluso, ahora tengo el mismo problema. probe la solucion que aportaban que era linkear con NTXSPA.OBJ pero persiste.\n\nEsto no ocurria con los datos migrados del sistema DOS, al agregar datos ahora cargados en windows / fivewin / clipper tenemos que se graban distinto y se genera este desfasaje.\n\nEl tema es: en disco tenemos grabados los datos en formato ansi, donde una Ñ queda despues de la Z entonces por ej. ordena \n\ncarcaza\ncasquete\ncaño\n\n¿Alguien sabe como tratar este tema?\n\nGracias desde ya.\nSaludos.\nRicardo.-','',0,'gA==','330w0vn7',1,0,'',124,0,0),(19525,2672,7,598,0,'200.11.139.61',1159306732,1,0,1,1,1,1,'','','<!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> Puedes tambien trabajar con ftp aqui te pongo un ejemplillo bien chulo que hice, tomado como base el que da fw en la carpeta sample: \n\n\n\n[code:2uqwi08j]\n// FTP sample developed by Enrico Maria Giordano\n// interfaz grafica&#58; Luis Santeliz &lt;luissanteliz@cantv&#46;net&gt;\n// 20/8/2006\n\n#include &quot;Fwce&#46;ch&quot; \n\n// \n// File attributes \n// \n\n#define FILE_ATTRIBUTE_READONLY  1 \n#define FILE_ATTRIBUTE_HIDDEN    2 \n#define FILE_ATTRIBUTE_SYSTEM    4 \n#define FILE_ATTRIBUTE_DIRECTORY 16 \n#define FILE_ATTRIBUTE_ARCHIVE   32 \n#define FILE_ATTRIBUTE_NORMAL    128 \n#define FILE_ATTRIBUTE_TEMPORARY 256 \n\n\n// \n// access types for InternetOpen&#40;&#41; \n// \n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration \n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net \n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy \n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS \n\n\n// \n// manifests \n// \n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default \n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers \n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot; \n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot; \n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot; \n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46; \n\n\n// \n// service types for InternetConnect&#40;&#41; \n// \n\n#define INTERNET_SERVICE_FTP     1 \n#define INTERNET_SERVICE_GOPHER  2 \n#define INTERNET_SERVICE_HTTP    3 \n\n\n// \n// flags for FTP \n// \n\n#define INTERNET_FLAG_TRANSFER_ASCII  1 \n#define INTERNET_FLAG_TRANSFER_BINARY 2 \n\n\nFUNCTION MAIN&#40;&#41; \n    LOCAL oWnd\n    PUBLIC server&#58;=&quot;192&#46;168&#46;2&#46;1&quot;+space&#40;15&#41;\n    PUBLIC user&#58;=&quot;luissanteliz&quot;+space&#40;15&#41;\n    PUBLIC pass&#58;=&quot;&quot;+space&#40;15&#41;\n    PUBLIC loc_archivo&#58;=curdir&#40;&#41;+&quot;\\uno&#46;dat&quot;+space&#40;15&#41;\n    PUBLIC rem_archivo&#58;=&quot;uno&#46;dat&quot;+space&#40;40&#41;\n    PUBLIC lSobreescribir&#58;=&#46;T&#46;\n    PUBLIC lBinary&#58;=&#46;T&#46;\n    DEFINE WINDOW oWND TITLE &quot;Prueba FTP&quot;\n    #DEFINE margen_derecho                 5\n    #DEFINE largo_say                     100\n    #DEFINE largo_get                     130\n    #DEFINE ancho                          20\n    #DEFINE separacion_entre_lineas       ancho+10\n/*\n// SERVIDOR&#58;\n*/	\n    #DEFINE oSay1 oWND&#58;aControls&#91;1&#93;\n    @10,margen_derecho SAY &quot;Servidor&#58; &quot; SIZE largo_say, ancho PIXEL OF oWND\n    @ oSay1&#58;ntop, oSay1&#58;nRight+1 GET server SIZE largo_get, ancho PIXEL OF oWnd\n/*\n// USER&#58;\n*/\n    #DEFINE oSay2 oWnd&#58;aControls&#91;3&#93;\n    @ oSay1&#58;nTop+separacion_entre_lineas, margen_derecho SAY &quot;User&#58;&quot; SIZE largo_say, ancho PIXEL OF oWnd\n    @ oSay2&#58;nTop, oSay2&#58;nRight+1 GET user SIZE largo_get,ancho PIXEL OF oWnd\n/*\n// PASS&#58;\n*/\n    #DEFINE oSay3 oWnd&#58;aControls&#91;5&#93;\n    @ oSay2&#58;nTop+separacion_entre_lineas,  margen_derecho SAY &quot;Password&#58;&quot; SIZE largo_say, ancho PIXEL OF oWnd\n    @ oSay3&#58;nTop, oSay3&#58;nRight+1 GET pass SIZE largo_get,ancho PIXEL OF oWnd\n/*\n// ARCHIVO LOCAL&#58;\n*/\n    #DEFINE oSay4 oWnd&#58;aControls&#91;7&#93;\n    @ oSay3&#58;nTop+separacion_entre_lineas,  margen_derecho SAY &quot;Archivo local&#58;&quot; SIZE largo_say, ancho PIXEL OF oWnd\n    @ oSay4&#58;nTop, oSay4&#58;nRight+1 GET loc_archivo SIZE largo_get,ancho PIXEL OF oWnd\n/*\n// ARCHIVO REMOTO&#58;\n*/\n    #DEFINE oSay5 oWnd&#58;aControls&#91;9&#93;\n    @ oSay4&#58;nTop+separacion_entre_lineas,  margen_derecho SAY &quot;Archivo Remoto&#58;&quot; SIZE largo_say, ancho PIXEL OF oWnd\n    @ oSay5&#58;nTop, oSay5&#58;nRight+1 GET rem_archivo SIZE largo_get,ancho PIXEL OF oWnd\n/*\n// ENVIAR\n*/\n    #DEFINE oButton1 oWnd&#58;aControls&#91;11&#93;\n    @ oSay5&#58;nTop+separacion_entre_lineas, margen_derecho+10 BUTTON &quot;Enviar&quot; SIZE 50, ancho  PIXEL ACTION msginfo&#40;enviar&#40;&#41;&#41; OF oWnd\n/*\n// TRAER\n*/\n    #DEFINE oButton2 oWnd&#58;aControls&#91;12&#93;\n    @ oButton1&#58;nTop, oButton1&#58;nRight+20 BUTTON &quot;Traer&quot; SIZE 50, ancho  PIXEL ACTION msginfo&#40;traer&#40;&#41;&#41; OF oWnd\n/*\n// SOBREESCRIBIR\n*/\n    #DEFINE oChk1 oWnd&#58;aControls&#91;13&#93;\n    @ oButton1&#58;nTop+separacion_entre_lineas, margen_derecho CHECKBOX lSobreescribir PROMPT &quot;Sobreescribir&quot; SIZE 150, ancho  PIXEL OF oWnd\n/*\n// BINARY\n*/\n    #DEFINE oChk2 oWnd&#58;aControls&#91;14&#93;\n    @ oChk1&#58;nTop+separacion_entre_lineas, margen_derecho CHECKBOX lBinary PROMPT &quot;Transferencia Binaria&quot; SIZE 150, ancho  PIXEL OF oWnd\n\n   ACTIVATE WINDOW oWND\nRETURN NIL\n\nFUNCTION Enviar&#40;&#41;\n    LOCAL nRet\n    LOCAL hInternet, hConnect \n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41; \n    hConnect = INTERNETCONNECT&#40;hInternet, rtrim&#40;server&#41;, INTERNET_INVALID_PORT_NUMBER, rtrim&#40;user&#41;, rtrim&#40;pass&#41;, INTERNET_SERVICE_FTP, 0, 0 &#41; \n    IF FTPPUTFILE&#40; hConnect, rtrim&#40;loc_archivo&#41;, rtrim&#40;rem_archivo&#41;,iif&#40;lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII&#41;, 0 &#41; \n       nRet&#58;=0\n    ELSE\n       nRet&#58;=GetLAstError&#40;&#41;\n    ENDIF\n    INTERNETCLOSEHANDLE&#40; hConnect &#41; \n    INTERNETCLOSEHANDLE&#40; hInternet &#41; \nRETURN nRet\n\nFUNCTION Traer&#40;&#41;\n    LOCAL nRet\n    LOCAL hInternet, hConnect \n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41; \n    hConnect = INTERNETCONNECT&#40;hInternet, rtrim&#40;server&#41;, INTERNET_INVALID_PORT_NUMBER, rtrim&#40;user&#41;, rtrim&#40;pass&#41;, INTERNET_SERVICE_FTP, 0, 0 &#41; \n    IF FTPGETFILE&#40; hConnect, rtrim&#40;rem_archivo&#41;, rtrim&#40;loc_archivo&#41;, IIF&#40; lSobreescribir,0,1&#41;, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41; \n       nRet&#58;=0\n    ELSE\n       nRet&#58;=GetLAstError&#40;&#41;\n    ENDIF\n    INTERNETCLOSEHANDLE&#40; hConnect &#41; \n    INTERNETCLOSEHANDLE&#40; hInternet &#41; \nRETURN nRet\n\n#pragma BEGINDUMP \n\n#include &quot;windows&#46;h&quot; \n#include &quot;wininet&#46;h&quot; \n#include &quot;hbapi&#46;h&quot; \n\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;; \n\n\nHB_FUNC&#40; INTERNETOPEN &#41; \n&#123; \n    LPWSTR cAgent = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;; \n    LPWSTR cProxyName = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;; \n    LPWSTR cProxyBypass = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;; \n    HINTERNET hInternet = InternetOpen&#40; cAgent, hb_parnl&#40; 2 &#41;, cProxyName, cProxyBypass, hb_parnl&#40; 5 &#41; &#41;; \n    hb_xfree&#40; cAgent &#41;; \n    hb_xfree&#40; cProxyName &#41;; \n    hb_xfree&#40; cProxyBypass &#41;; \n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;; \n&#125; \n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41; \n&#123; \n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;; \n&#125; \n\nHB_FUNC&#40; INTERNETCONNECT &#41; \n&#123; \n    LPWSTR cServerName = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;; \n    LPWSTR cUserName = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;; \n    LPWSTR cPassword = AnsiToWide&#40; hb_parc&#40; 5 &#41; &#41;; \n    HINTERNET hInternet = InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cServerName, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, cUserName, cPassword, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41;; \n    hb_xfree&#40; cServerName &#41;; \n    hb_xfree&#40; cUserName &#41;; \n    hb_xfree&#40; cPassword &#41;; \n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;; \n&#125; \n\nHB_FUNC&#40; FTPGETFILE &#41; \n&#123; \n    LPWSTR cRemoteFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;; \n    LPWSTR cNewFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;; \n    hb_retl&#40; FtpGetFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cRemoteFile, cNewFile, hb_parl&#40; 4 &#41;, hb_parnl&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41; &#41; &#41;; \n    hb_xfree&#40; cRemoteFile &#41;; \n    hb_xfree&#40; cNewFile &#41;; \n&#125; \n\nHB_FUNC&#40; FTPPUTFILE &#41; \n&#123; \n    LPWSTR cLocalFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;; \n    LPWSTR cNewRemoteFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;; \n    hb_retl&#40; FtpPutFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cLocalFile, cNewRemoteFile, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;; \n    hb_xfree&#40; cLocalFile &#41;; \n    hb_xfree&#40; cNewRemoteFile &#41;; \n&#125; \n\n#pragma ENDDUMP\n[/code:2uqwi08j]','',0,'AIA=','2uqwi08j',1,0,'',598,0,0),(19526,4418,6,471,0,'190.40.127.19',1159306947,1,0,1,1,1,1,'','lmkdir  lIsdir   y lzcopyfile no funcionan con FWH y XHarbou','Amigos\n\nen  clipper y fwh estas funciones servian\n\nlmkdir  para crear un directorio\nlIsdir    para ver si existia un directorio\nlzcopyfile para copiar\n\na 32 bits con FWH y XHB no funcionan \n\n\nHay nuevas funciones\n\nGracias por la Ayuda\n\nVladimir Zorrilla Llerena','',0,'AIA=','378x79yp',1,0,'',471,0,0),(19527,4415,6,492,0,'189.147.20.93',1159308593,1,0,1,1,1,1,'','','Hola Fernando\n\nEstoy usando tambien el AJMake y es la version 0.33 y sip, creo que por el momento el autor ha dejado de actualizarlo. ( esperemos que no ) por que es muy practica.\n\nReferente a tu error, en ningun proyecto me ha salido algo similar, seguro algun parametro le andara haciendo la gracia  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos','',0,'AIA=','18lliu2a',1,0,'',492,0,0),(19528,4418,6,2,0,'87.218.146.193',1159309394,1,0,1,1,1,1,'','','Vladimir,\n\nEste código funciona correctamente en FWH 2.8\n[code:1junf88x]\nfunction Main&#40;&#41;\n\n   if lMkDir&#40; &quot;test&quot; &#41;\n      MsgInfo&#40; lIsDir&#40; &quot;test&quot; &#41; &#41;\n   endif\n\nreturn nil[/code:1junf88x]\nUsa CopyFile() en vez de LZCopyFile().','',0,'AIA=','1junf88x',1,0,'',2,0,0),(19529,4413,6,774,0,'164.77.54.175',1159316028,1,0,1,1,1,1,'','Antonio','no caso no puedo compilar\n\nque sera\nme arroja esto\n\n&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for Harbour 2.6 - April 2005            Harbour development power  &#9474;&#9604;\n&#9474; (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;&#9608;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9608;\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\' and generating preprocessed output to \'tutor01.ppo\'...\nLines 25, Functions/Procedures 2\nGenerating C source output to \'tutor01.c\'... Done.\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'TUTOR01.OBJ\'\nNo se encuentra C:\\FWH\\SAMPLES\\tutor01.il?\n* Application successfully built\n\"tutor01\" no se reconoce como un comando interno o externo,\nprograma o archivo por lotes ejecutable.\n\nC:\\FWH\\SAMPLES&gt;\n\n\nrevise el buildh.bat y cambie los paths\n\naca el .bat\n\nMIRA::\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for Harbour 2.6 - April 2005            Harbour development power  ³Ü\nECHO ³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\harbour\nset bcdir=c:\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc;%bcdir%\\include &gt;b32.bc\n:ENDCOMPILE\n\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho ..\\lib\\FiveH.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\nrem echo %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\nrem uncomment this line to use the debugger and comment the next one\nrem %bcdir%\\bin\\ilink32 -Tpe -s @b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n\nrem delete temporary files\n@del %1.c\n@del %1.il?\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\n:LINKERROR\nrem if exist meminfo.txt notepad meminfo.txt\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n\n\nOJALA ME AYUDES\nPARA MIGRAR','',0,'','rqyifsqi',1,0,'',774,0,0),(19530,4393,3,15,0,'211.74.12.113',1159318066,1,0,1,1,1,0,'','','Hello Antonio,\n\nLet\'s return first message. Please review my codes.\nMy code use 1.DEFINE WINDOW 2.REDEFINE DIALOG\n\nProblem is REDEFINE DIALOG .... REDEFINE ACTIVEX\nWhy not disappear ActiveX function?\n\nRegards,\n\nRichard','',0,'','2er5l51z',1,0,'',15,0,0),(19531,4419,3,529,0,'200.159.198.47',1159320762,1,0,1,1,1,0,'','fwh 27 july build with last (x)harbour','hi, how to make my fwh 2.7 july build compatible with last (x)harbour? thanks','',0,'','3ergpzyq',1,0,'',529,0,0),(19532,4315,3,694,0,'200.138.82.206',1159321440,1,0,1,1,1,1,'','OK','OK Maurilio, vou testar... muitas gracias meu amigo...','',0,'','1vd22394',1,0,'',694,0,0),(19533,4402,4,47,0,'203.144.143.3',1159323578,1,0,1,1,1,0,'','','Dear Enrico,\n\nHB_CE has not this lib.   Is there another TSocket class samples for my case?\n\nI try as following but it doesn\'t work.\n\n[code:36tvcumv]\n#include &quot;FWCE&#46;ch&quot;\n\nstatic oWnd, oSocket, cReadData\n\nfunction Main&#40;&#41;\n\n   local oBtn1, oBtn2, oBtn3, oBtn4, oGet\n\n   local cTbl &#58;= space&#40;4&#41;\n\n   DEFINE WINDOW oWnd TITLE \'192&#46;168&#46;0&#46;238\'\n\n   @ 10, 100 GET oGet VAR cTbl SIZE 60, 18 PIXEL\n\n   @ 2, 2 BUTTON oBtn1 PROMPT &quot;Connect&quot; ;\n      	  ACTION &#40;Client&#40; oBtn1, oBtn2, oBtn3, oBtn4 &#41;&#41; SIZE 80, 20\n   \n   @ 4, 2 BUTTON oBtn2 PROMPT &quot;SendData&quot; ;\n          ACTION &#40;SendReq&#40;oSocket,oGet,@cTbl&#41;, oGet&#58;SetFocus&#40;&#41;&#41; ;\n          SIZE 80, 20\n\n   @ 6, 2 BUTTON oBtn3 PROMPT &quot;ReadData&quot; ;\n          ACTION MsgInfo&#40;cReadData&#41;  SIZE 80, 20\n\n   @ 8, 2 BUTTON oBtn4 PROMPT &quot;HostName&quot; ;\n          ACTION MsgInfo&#40; GetHostName&#40;&#41; &#41; SIZE 80, 20\n\n   oBtn2&#58;Disable&#40;&#41;\n   oBtn3&#58;Disable&#40;&#41;\n   oBtn4&#58;Disable&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n   oSocket&#58;End&#40;&#41;\nreturn nil\n\nfunction Client&#40; oBtn1, oBtn2, oBtn3, oBtn4 &#41;\n\n   oSocket = TSocket&#40;&#41;&#58;New&#40; 2000 &#41;\n\n   oSocket&#58;bRead    = &#123; | oSocket | OnRead&#40; oSocket &#41;  &#125;\n\n   // Never use a MsgInfo&#40;&#41; here because it hangs Windows!!!\n   oSocket&#58;bConnect = &#123; || oBtn1&#58;Disable&#40;&#41;, oBtn2&#58;Enable&#40;&#41;, oBtn3&#58;Enable&#40;&#41;, oBtn4&#58;Enable&#40;&#41; &#125;\n\n   oSocket&#58;bClose   = &#123; || MsgInfo&#40; &quot;Server has closed!&quot; &#41; &#125;\n\n   oSocket&#58;Connect&#40; &quot;192&#46;168&#46;0&#46;238&quot; &#41; // use the server IP address here\n\nreturn nil\n\nfunction SendFile&#40;&#41;\n\n   MemoWrit&#40; CurDir&#40;&#41; + &quot;\\test&#46;txt&quot;, &quot;This is a file test&quot; &#41;\n   oSocket&#58;SendData&#40; &quot;SENDFILE test&#46;txt&quot; &#41;\n   SysRefresh&#40;&#41;\n   oSocket&#58;SendFile&#40; CurDir&#40;&#41; + &quot;\\test&#46;txt&quot; &#41;\n   oSocket&#58;End&#40;&#41;\n   MsgInfo&#40; &quot;File sent&quot; &#41;\n\nreturn nil\n\n\n*---------------*\nFunction SendReq&#40;oSocket,oGet, cTbl&#41;\nlocal nSec &#58;= seconds&#40;&#41;\nDefault cTbl &#58;= \'012 \'\n\noSocket&#58;SendData&#40; &quot;TBL 01&quot;+cTbl &#41;\n\ndo while empty&#40;cReadData&#41; &#46;and&#46; nSec+3 &gt;= seconds&#40;&#41;\nend\n\ncTbl &#58;= space&#40;4&#41;\noGet&#58;Refresh&#40;&#41;\nreturn !empty&#40;cReadData&#41;\n\n*--------------*\nFunction OnRead&#40; oSocket &#41;\nlocal cGetData &#58;= oSocket&#58;GetData&#40;&#41;\n\ncReadData &#58;= cGetData\n\n// MsgInfo&#40; cReadData &#41;\n\nreturn nil\n[/code:36tvcumv]\n\nBest regards,\nDutch','',0,'AIA=','36tvcumv',1,0,'',47,0,0),(19534,4413,6,305,0,'201.240.223.229',1159326555,1,0,1,1,1,0,'','','evitarias un monton de problemas con los paths y todo eso si usas una herramienta como Verce.   \n\n[url:2r56hi6s]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3918&amp;highlight=verce[/url:2r56hi6s]\n\nEs super facil de usar\n\nSuerte!\n\nRalph','',0,'EA==','2r56hi6s',1,0,'',305,0,0),(19535,4392,7,57,0,'88.0.86.53',1159336026,1,0,1,1,1,1,'','','Rafael\n\nTe estaría agradecido si me enviaras el ejemplo a mí tambien.\n\nSaludos\nToni Sales','',0,'EA==','1cjy4ulb',1,0,'',57,0,0),(19536,4392,7,2,0,'87.218.146.193',1159337472,1,0,1,1,1,1,'','','Luis,\n\nPodrias ponerlo en <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y publicar aqui el enlace de descarga ? gracias','',0,'EA==','1m019e9x',1,0,'',2,0,0),(19537,4393,3,2,0,'87.218.146.193',1159337777,1,0,1,1,1,1,'','','Richard,\n\nDo you mean that oActiveX&#058;Do( \"Open\", \"c:\\&#35336;&#31639;.xls\" ) \n does not work ?','',0,'EA==','1yi3fpnw',1,0,'',2,0,0),(19538,4413,6,2,0,'87.218.146.193',1159338011,1,0,1,1,1,1,'','','Has creado los ficheros c:\\bcc55\\bin\\bcc32.cfg y ilink32.cfg ?','',0,'EA==','1iunys7k',1,0,'',2,0,0),(19539,4402,4,6,0,'87.11.229.243',1159340101,1,0,1,1,1,1,'','','[quote=&quot;dutch&quot;:10xquogg]Dear Enrico,\n\nHB_CE has not this lib.[/quote:10xquogg]\n\nYes, it has. wininet.lib is a standard WinCE library. But my sample is for xHarbour. I wasn\'t aware that this is a FWPPC forum, sorry. Anyway, you may try to write the wrappers to the functions used by my sampe.\n\nEMG','',0,'gA==','10xquogg',1,0,'',6,0,0),(19540,4420,3,31,0,'195.182.84.105',1159345284,1,0,1,1,1,1,'','Message of GET object','Hi !\n\n It seems that this isn\'t working :\n\n[code:14mekzlv]\n@  14,  18 GET lRESERVE OF oDlg PICTURE  &quot;Y&quot;  MESSAGE &quot;Please type\nin a Y or N &quot;\n[/code:14mekzlv]\n\n Exist solution for this ?','',0,'AIA=','14mekzlv',1,0,'',31,0,0),(19541,4412,3,707,0,'222.124.20.50',1159345660,1,0,1,1,1,0,'','','Jeff,\n\nThanks for reply.\n\nDo you mind to send me a small application with source code ?\n\n\nBest Regard\nAreang','',0,'AIA=','1ox11gmo',1,0,'',707,0,0),(19542,4420,3,31,0,'195.182.84.105',1159346475,1,0,1,1,1,1,'','Re: Message of GET object','[quote=&quot;Rimantas&quot;:3rpidn4o] It seems that this isn\'t working :\n[code:3rpidn4o]\n@  14,  18 GET lRESERVE OF oDlg PICTURE  &quot;Y&quot;  MESSAGE &quot;Please type\nin a Y or N &quot;\n[/code:3rpidn4o]\n Exist solution for this ?[/quote:3rpidn4o]\n\n  Found oGet:cTooltip <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)) . It seems in that way can be changed MESSAGE clause ...\n\n  Regards !','',0,'gIA=','3rpidn4o',1,0,'',31,0,0),(19543,4412,3,190,0,'202.65.134.27',1159346896,1,0,1,1,1,0,'','','Hi Jeff\n\nA good solution.\n\n[quote:3qiz306u]If the Hard Drive Serial Number is: 123456789[/quote:3qiz306u]\n\nIs it Hard Drive Serial No. ?\nor\nVolume Serial Number like the following one\n\nVolume in drive C is 80GB_C     \nVolume Serial Number is 0C2E-1CE6\nDirectory of C:\\\n\nIf it is Hard Drive Serial No., How do we get it (is there any function \nthat returns Hard Drive Serial No. automatically) ?\n\nWhen I supplied 0C2E-1CE6 as 2nd parameter to makekey() ,\nIt is returning \'0\' as serial no.\n\nRegards\n\nRamesh Babu P','',0,'gA==','3qiz306u',1,0,'',190,0,0),(19544,4393,3,707,0,'222.124.20.50',1159346983,1,0,1,1,1,0,'','','Richard,\n\nOnly DEFINE WINDOW can use with ActiveX\n\nthis is same with DEFINE TIMER\n\nTIMER CAN\'T work with DIALOG\n\nBest Regard\nareang','',0,'gA==','32a1xk2b',1,0,'',707,0,0),(19545,4419,3,707,0,'222.124.20.50',1159347151,1,0,1,1,1,0,'','','Nop,\n\nYou must recompile your source code with xHarbour or Harbour\nthen make all lib same with in your lib directory\n\n\nBest regard\nAreang','',0,'gA==','1rf7ckor',1,0,'',707,0,0),(19546,4421,6,132,0,'83.213.45.32',1159348606,1,0,1,1,1,1,'','OT: Impresoras termicas codigo de barras','Hola amigos:\n\nMe piden hacer un pequeño programa para generar etiquetas con texto y un codigo de barras, para una impresora Toshiba TEC B-SX4.\n\nHasta ahora he hecho codigos de barras con impresoras Laser normales y el programa GENLABEL de Bingen.\n\nSi alguien tiene experiencia en este sector agradeceria que me orientarais sobre los problemas con los que me voy a encontrar.\n\n¿Funcionan como una impresora normal bajo Windows? ¿se puede usar GENLABEL? o quizas ¿hay que enviarles comandos de impresion a traves del puerto serio o paralelo?\n\nGracias de antemano','',0,'gA==','16jvxn4u',1,0,'',132,0,0),(19547,4421,6,106,0,'85.34.123.173',1159349877,1,0,0,1,1,1,'','','Hola, normalmente estas impresoras funcionan como una impresora normal de windows, basta instalarles el driver y puedes imprimir como haces normalmente, usando tPrinter. Debes definir bien el tamaño de la etiqueta, que será el tamaño de la hoja. Controla que el driver de tu impresora permita tener formatos de etiqueta definidos por ti (basta que te bajes el driver de la impresora de internet y hagas la prueba)\n\nSaludos.','',0,'gA==','3ftqy79x',1,0,'',106,0,0),(19548,4393,3,6,0,'87.11.229.243',1159350157,1,0,1,1,1,1,'','','This is not true:\n\n[code:jcapplew]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oTmr\n\n    DEFINE DIALOG oDlg\n\n    DEFINE TIMER oTmr OF oDlg;\n           INTERVAL 1000;\n           ACTION TONE&#40; 440, 1 &#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oTmr&#58;hWndOwner &#58;= oDlg&#58;hWnd,;\n                       oTmr&#58;Activate&#40;&#41; &#41;;\n             CENTER\n\n    RELEASE TIMER oTmr\n\n    RETURN NIL[/code:jcapplew]\n\nEMG','',0,'AIA=','jcapplew',1,0,'',6,0,0),(19549,4413,6,774,0,'200.72.65.185',1159358826,1,0,1,1,1,1,'','Antonio','si cree los dos archivos, en bcc55\\bin...\n\npero aun me da el mismo error \n\nQUE SERA\n\no deberia usar VERCE..\n\na mi me gusta mas compilar a mano... nose me acomoda mas...\n\nalguna segurencia...\n\nGRACIAS','',0,'AIA=','3c4s4rv5',1,0,'',774,0,0),(19550,4422,2,774,0,'200.72.65.185',1159362038,1,0,1,1,1,1,'','RENE FLORES ACLARACION,, ???? me dejaste pregunton..','ojeando por ahi,,, dentro de los tips antiguos,, encontre una explicacion de SET RELATION,,  \n\nmiren aca\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=16334&amp;highlight=#16334\">http://fivetechsoft.com/forums/viewtopi ... ght=#16334</a><!-- m -->\n\n\ncuando se relacionan tablas ,,,, se hace a nivel de punteros::\n\nme explico,,, si tengo una tabla A,, y la relaciono con la tabla B, a trevez de un campo existente en ambas,, por ejem.. CODIGO...\n\nsi en tabla A tengo un registro \"sacos\"\ny en tabla B tengo 10 registro con el mismo valor,, como en un detalle de factura por ejem...\n\nsi me posicione en la tabla A y puntero en la tabla B se posiciona en el primer registro que cumpla la condicion verdad.. pero \n\ny he aqui la duda ,,, \n\nSET RELATION  internamente usa SCOPE para los registros que se han encontrado o no,,\n\nen la lectura  dice que si... \n\nACLARALO RF','',0,'AIA=','14o9o875',1,0,'',774,0,0),(19551,4392,7,598,0,'200.11.139.61',1159363432,1,0,1,1,1,1,'','','aqui esta el enlace:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/027e867239/Common_NMEA_Setence_types.doc.html\">http://hyperupload.com/download/027e867 ... s.doc.html</a><!-- m -->','',0,'AIA=','u1x582z8',1,0,'',598,0,0),(19552,4423,3,801,0,'200.175.20.38',1159365153,1,0,1,1,1,0,'','Menu Vertical','Ola to all !\n\nI am wanting to make a vertical menu (I am used the TTreeView classroom), but am needing two things:    \n\n1) to make tree to be transparent;  \n\n2) have a form of the ACTION, where the usuari confirms option.  I tried bChanged, but this nao takes care of to me, therefore exetuc in navegation, and in navegation not could be executing function.    \n\nIt has some person to give some tip?    \n\nI am very been thankful!    \nThanks a lot','',0,'AIA=','22daj5f5',1,0,'',801,0,0),(19553,4404,6,237,0,'200.68.70.89',1159365790,1,0,1,1,1,0,'','Versiones','En el registro figuran asi:\n\n Word.Application.10\n Excel.Application.10\n\n Probe de reemplazar en word el numero pero igual se cuelga\n\n oActiveX = TActiveX():New( oWnd, \"Word.Application.10\" )\n\nTanto word y excel despues de la colgada, quedan residentes en memoria y los tengo que bajar con el administrador de tareas.\n\nAyuda!!!','',0,'AIA=','23h5h6vo',1,0,'',237,0,0),(19554,4420,3,303,0,'72.199.41.171',1159370181,1,0,1,1,1,0,'','','Rimantas,\n\nMessages appear in the parent widow\'s status bar (if it exists). Tooltips appear near the control. I would not suggest using tooltips on controls as they get annoying very quickly. What I have done on occasion is to display a tooltip only if the user makes an invalid entry. A tooltip is better than a msgInfo() in this case because the user isn\'t forced to respond. I also change the background color of the control to pink when the entry is invalid so it is very obvious.\n\nJames','',0,'AIA=','1qlkdgtl',1,0,'',303,0,0),(19555,4424,6,147,0,'200.45.54.133',1159371142,1,0,1,0,1,1,'','Uso de Outlook Control','Hola gente\nProbando este control observo que en su sample la ventana main está dividida mediante un SPLITTER. La cual señala con PREVIOUS CONTROLS oOut el manejo de los controles definidos. \nAhora bien y si mal no entiendo, a la derecha y por medio de HINDS COTROL deberían desplegarse las opciones de los botones definidos.\nLo que no entiendo es como hago para definir tantos HINDS CONTROL como botones (opciones) haya definido.\nEs esto posible con este control?, o no es ese el concepto de su uso.\nExiste otra opción para lo que pretendo?\n\ngracias','',0,'AIA=','1zonfl8h',1,0,'',147,0,0),(19556,4412,3,69,0,'206.210.97.138',1159371988,1,0,1,1,1,0,'','','It uses hard drive serial number.\n\nnSerialHD()\n\n\nHope this helps,\n\nJeff','',0,'AIA=','si1tsje8',1,0,'',69,0,0),(19557,4406,6,396,0,'200.109.167.42',1159373343,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:zvslfv38]Jose Luis,\n\nPuedes poner aqui la lista de llamada de funciones que te aparece en el error ? gracias[/quote:zvslfv38]\n\nAntonio, use o no valid da el mismo error, cuando uso var local no me da el error, lo ejecutare para copiar el error exactamente, si le quito el PICTURE entonces no da error.','',0,'gA==','zvslfv38',1,0,'',396,0,0),(19558,4412,3,190,0,'202.65.134.40',1159373461,1,0,1,1,1,0,'','','Hi Jeff\n\nThank you very much for quick reply.  \n\nNow your solution to the problem in subject is complete.\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','3vhkf47p',1,0,'',190,0,0),(19559,4397,3,217,0,'200.159.120.34',1159374877,1,0,1,1,1,0,'','','Antonio,\n\nI renamed the resource and don\'t worked <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nIf I add or delete a resource into rc file it work fine.\nTo avoid app exiting I place \'activate dialog\' inside a try/end...\n\nDo you have any naming rule that I can follow to avoid this type of error?\n\nRegards,\nMaurilio','',0,'gA==','31n6qv5u',1,0,'',217,0,0),(19560,4423,3,801,0,'200.175.20.38',1159376292,1,0,1,1,1,0,'','','I tested with bLDblClick, but still not as I want…. I want with 1 click of mouse or ENTER!    \n\nIf they alguem has some sugestao, please to send me!    \n\n.. and the transparet !\n\nThanks a lot!','',0,'gA==','2njdlqct',1,0,'',801,0,0),(19561,4404,6,2,0,'87.218.146.193',1159381777,1,0,1,1,1,1,'','','La versión 10 parece una versión muy reciente cuando dices que es del 2002.\n\nEditado: parece que está bien <!-- m --><a class=\"postlink\" href=\"http://www.codecomments.com/archive347-2005-1-374880.html\">http://www.codecomments.com/archive347- ... 74880.html</a><!-- m -->','',0,'gA==','2ndlfpka',1,0,'',2,0,0),(19562,4423,3,801,0,'200.175.20.38',1159383748,1,0,1,1,1,0,'','','I advanced more a little, with oTree: bLClicked.    \n\nBut still necessary:  \n1) to catch the ENTER (oTree: bKeyDown catches all the keyboard keys, less the keyboard keys: ESC, TAB and ENTER - this finishes that necessary) \n2) To make the TREE to be transparent    \n\nIf they person will have tips, please, send me, please!    \n\nThanks a lot! \nGilberto - Brasil - PR - Toledo','',0,'gA==','2kn9ia5i',1,0,'',801,0,0),(19563,4397,3,455,0,'195.97.105.161',1159383757,1,0,1,1,1,0,'','','[quote=&quot;Maurilio Viana&quot;:39ae0dj2]Antonio,\n\nI renamed the resource and don\'t worked <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nIf I add or delete a resource into rc file it work fine.\nTo avoid app exiting I place \'activate dialog\' inside a try/end...\n\nDo you have any naming rule that I can follow to avoid this type of error?\n\nRegards,\nMaurilio[/quote:39ae0dj2]\n\nHi Maurilio,\nThe subject issue is a pain in the butt indeed.\nI have come into a serious straggling with FWH, dealing with the Error 3, cannot create dialog box, and here is how I finally managed to get it going...\n1. The name of the resource, even if correct, does not always work,\nalthough with Workshop there is no error.\n2. The more important thing is to define these in the beginning of your MAIN prg file, because most of the time, dialogs cannot be created because their respective controls have not been registered. For example, if you use a TWBROWSE control in a dialog, it is almost sure that it will not work, unless you define each control:\nHere\'s a copy of what I register in my main prg. Just below the local, private functions:\n   TWindow():Register()\n   TWBrowse():Register()\n   TBitmap():Register()\n   TFolder():Register()\n   TTabs():Register()\n   TDialog():Register()\n   TMeter():Register()\n   TMetafile():Register()\n   TComboBox():Register()\n\nMore about the resource name...\nUnfortunatelly, there is no rule that I have come up with...\nIt seems that Windows does not \"like\" some names, although there is nothing wrong with the names, and most important, they worked fine in the 16-bit environment....\nSo, if a dialog I use (from resource, in the stand-alone exe file), does not work, the next thing I do is to add the letter \"Z\", or \"Q\" or something like that infront of the resource\'s name, and retry running the program.\n\nImportant: The same thing (with names) happens with other kinds of resource, especially with the bitmaps... Another pain in the butt...\nYou can try the same approach described above (add an extra character infront of the resource\'s name.\n\nI hope that this helped you...\nKind regards\nEvans','',0,'gA==','39ae0dj2',1,0,'',455,0,0),(19564,4425,3,455,0,'195.97.105.161',1159384889,1,0,1,1,1,0,'','Numeric comparisons','Hi all,\nEither I got crazy, or something else is happening...\nI have a problem with the 32-bit that does not exist in the 16-bit, or DOS.\n\nTo better describe the problem:\n\n1. I have a database with four CHAR fields (width 20) that hold some numbers (amounts) with four decimals in them.\n\nExample:\n  Soc.Security       Medicare     Withholding        Total Amount\n     1172.0200      275.2700        839.0600           2291.3500\n\nIf I get the VAL() of each database field from the above, round them to 2 decimals, then add them up, I get the result 2291.35 (CORRECT) !!!\n\nNow, the second record in the database contains these:\n  Soc.Security       Medicare     Withholding        Total Amount\n    1019.5000        238.4400      679.9000             1937.8400\n\nIn my loops, I need to compare if the three first values of the fields, are equal to the Total Amount.  \n\nAs I state above, the first example record results to .T. (equal).\nThe second record, and many more records (practically all of them are equal, if I add them up they match the total amount value, which notice that it is also of CHAR type in the field, converted to VAL(), and Rounded to 2 decimals, I get the same incorrect result (.F.), when I do the comparison.\n\nSince I made the thought that either I\'m too stressed from working too much, or getting too old, I wouldn\'t like to mention about having problems with FWH numeric comparisons.... thus, I copied the code from the 32-bit PRG and pasted it into a stand-alone PRG which I compiled in FW 16-bit, and another one in MS-DOS.\n\nBoth the 16-bit applications came up with .T. everywhere where they should be .T. of course.  To make things easier, all the fields match the Total amount in the same record.\n\nNow I am sitting down and do nothing further because this issue has driven me crazy.  I have more than 30 years in the field, and am sure that there is nothing wrong with my code... simple things, that in addition, are working perfectly in the 16-bit environment.\n\nCan some of my friends try to reproduce and verify that the above numbers, if read from a dbf stored as characters, do not match the total amount?\n\nI would be grateful if I receive some answer(s).\n\nKind regards\nEvans\nps. Sorry if the numbers don\'t show too nice above...','',0,'gA==','131tf23w',1,0,'',455,0,0),(19565,4426,3,455,0,'195.97.105.161',1159385536,1,0,1,1,1,0,'','PICTURE &quot;@!&quot; PROBLEM','Hi all,\nI have this problem with my greek language applications:\n\nRegardless if used in resource dialog, or dialog created by code, if I use this:\nREDEFINE GET oget VAR cGet PICTURE \"@!\"  ..... (Upper case)\nIf I type in latin (english language), everything works fine.\nIf I shift my keybord to greek, and type something, the displayed characters are not readable. \n\nIf I remove the PICTURE \"@!\" from the above example, and type something in my native language, then it shows just fine!  Of course, if I type in lower case either english or greek, the string respects the case.\n\nAnyone can verify and tell me if it happens to other languages (e.g. italian or spanish or whatever), and if you have come with some workaround?\n\nThanks to all\nKind regards\nEvans','',0,'gA==','xenrqh82',1,0,'',455,0,0),(19566,4397,3,217,0,'200.159.120.34',1159385741,1,0,1,1,1,0,'','','Evans,\n\nThanks for your words. \nThe only different thing into these my \"deffective resource\" is a txbrowse control.\nBased on what you said I must do in my main program:\n\nTxBrowse():Register()\n\nIs this right?\n\nRegards\nMaurilio','',0,'gA==','2aauupi5',1,0,'',217,0,0),(19567,4427,19,18,0,'200.67.188.236',1159385934,1,0,1,1,1,1,'','OT : Necesito de su cooperación.','Un saludo a todos.\n\nEn esta ocasión le quiero pedir un enorme favor a todos ustedes, la manera de ayudarme es realmente muy sencilla.\n\nY lo que voy a obtener es conocer en persona a Bárbara Mori, una actriz uruguaya muy linda en persona.\n\nLa manera en que me pueden apoyar es la siguiente,  hace ya casí un año comenzo un proyecto de Radio por Internet en la empresa donde presto mis servicios, por motivos de trabajo yo no he estado al aire estos ultimos 2 meses, sin embago una compañera de la estación, me hizo un propuesta y en concreto es que su programa lo escuche el mayor número de internautas en línea.\n\nY bueno, yo gano conocer a Bárbarita Mori, asi que pues , sabiendo que somos una gran familia los invito a que me ayuden en este mini reto.\n\nLes dejo una imagen de como pueden sintonizar la radio.\n\n[b:2jvu4qg2]La cita es el día de mañana 28 de Septiembre de 2006 a las 5:00 Pm Hora de la Ciudad de México\noseas -0500 GTM[/b:2jvu4qg2]\n[img:2jvu4qg2]http&#58;//vikthor&#46;com&#46;mx/radio/winamp&#46;jpg[/img:2jvu4qg2]','',0,'SA==','2jvu4qg2',1,0,'',18,0,0),(19568,4425,3,3,0,'82.248.18.157',1159386727,1,0,1,1,1,1,'','Re: Numeric comparisons','[quote=&quot;E. Bartzokas&quot;:v22iowyt]Hi all,\nEither I got crazy, or something else is happening...\nI have a problem with the 32-bit that does not exist in the 16-bit, or DOS.\n\nTo better describe the problem:\n\n1. I have a database with four CHAR fields (width 20) that hold some numbers (amounts) with four decimals in them.\n\nExample:\n  Soc.Security       Medicare     Withholding        Total Amount\n     1172.0200      275.2700        839.0600           2291.3500\n\nIf I get the VAL() of each database field from the above, round them to 2 decimals, then add them up, I get the result 2291.35 (CORRECT) !!!\n\nNow, the second record in the database contains these:\n  Soc.Security       Medicare     Withholding        Total Amount\n    1019.5000        238.4400      679.9000             1937.8400\n\nIn my loops, I need to compare if the three first values of the fields, are equal to the Total Amount.  \n\nAs I state above, the first example record results to .T. (equal).\nThe second record, and many more records (practically all of them are equal, if I add them up they match the total amount value, which notice that it is also of CHAR type in the field, converted to VAL(), and Rounded to 2 decimals, I get the same incorrect result (.F.), when I do the comparison.\n\nSince I made the thought that either I\'m too stressed from working too much, or getting too old, I wouldn\'t like to mention about having problems with FWH numeric comparisons.... thus, I copied the code from the 32-bit PRG and pasted it into a stand-alone PRG which I compiled in FW 16-bit, and another one in MS-DOS.\n\nBoth the 16-bit applications came up with .T. everywhere where they should be .T. of course.  To make things easier, all the fields match the Total amount in the same record.\n\nNow I am sitting down and do nothing further because this issue has driven me crazy.  I have more than 30 years in the field, and am sure that there is nothing wrong with my code... simple things, that in addition, are working perfectly in the 16-bit environment.\n\nCan some of my friends try to reproduce and verify that the above numbers, if read from a dbf stored as characters, do not match the total amount?\n\nI would be grateful if I receive some answer(s).\n\nKind regards\nEvans\nps. Sorry if the numbers don\'t show too nice above...[/quote:v22iowyt]\n\nEvans\n\nI can understand your anger. There are problems like this that can sometimes drive us nuts ! \n\nMany of us have been through this type of situations.\n\nNumeric comparison can be a pain, i hve faced big problems in my software with it.\n\nThe only reliable way i have found to test and make sure numbers are equal is :\n\nIF ABS(VALUE1 -VALUE2) &lt; 0.009\n\nLooks stupid but it has worked for me.\n\nHTH\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> There is always a solution !\n\nRichard','',0,'gA==','v22iowyt',1,0,'',3,0,0),(19569,4426,3,3,0,'82.248.18.157',1159386924,1,0,1,1,1,1,'','Re: PICTURE &quot;@!&quot; PROBLEM','[quote=&quot;E. Bartzokas&quot;:2ayq4z8p]Hi all,\nI have this problem with my greek language applications:\n\nRegardless if used in resource dialog, or dialog created by code, if I use this:\nREDEFINE GET oget VAR cGet PICTURE \"@!\"  ..... (Upper case)\nIf I type in latin (english language), everything works fine.\nIf I shift my keybord to greek, and type something, the displayed characters are not readable. \n\nIf I remove the PICTURE \"@!\" from the above example, and type something in my native language, then it shows just fine!  Of course, if I type in lower case either english or greek, the string respects the case.\n\nAnyone can verify and tell me if it happens to other languages (e.g. italian or spanish or whatever), and if you have come with some workaround?\n\nThanks to all\nKind regards\nEvans[/quote:2ayq4z8p]\n\nAre you using a oemtoansi conversion ?','',0,'gA==','2ayq4z8p',1,0,'',3,0,0),(19570,4428,6,52,0,'201.212.71.153',1159387289,1,0,1,1,1,1,'','Tsbrowse 7.0','Estimados,\n\nAlguien tiene la Tsbrowse 7.0 ( fuentes ) para xHarbour? \n\nGracias.','',0,'gA==','1aevjvwk',1,0,'',52,0,0),(19571,4397,3,455,0,'195.97.105.161',1159387438,1,0,1,1,1,0,'','','[quote=&quot;Maurilio Viana&quot;:39leaje5]Evans,\n\nThanks for your words. \nThe only different thing into these my \"deffective resource\" is a txbrowse control.\nBased on what you said I must do in my main program:\n\nTxBrowse():Register()\n\nIs this right?\n\nRegards\nMaurilio[/quote:39leaje5]\n\nMore or less YES.\nI don\'t use TXBROWSE, however, you  can try it, and in most cases you will have no problems with your dialogs using this control.\n\nKind regards\nEvans','',0,'gA==','39leaje5',1,0,'',455,0,0),(19572,4427,19,18,0,'200.67.188.236',1159387601,1,0,1,1,1,1,'','','uupsssss, se me olvidaba, aquí le dejos una imagen de ¡¡¡ Bárbara Mori !!!\n\n[img:32dqoxe0]http&#58;//vikthor&#46;com&#46;mx/radio/BarbaraMori&#46;jpg[/img:32dqoxe0]','',0,'CA==','32dqoxe0',1,0,'',18,0,0),(19573,4426,3,455,0,'195.97.105.161',1159387658,1,0,1,1,1,0,'','Re: PICTURE &quot;@!&quot; PROBLEM','[quote:3dnu7ujz]Are you using a oemtoansi conversion ?[/quote:3dnu7ujz]\n\nThanks for the reply my friend!\nNo I am not using OEMTOANSI... \nI load a greek font as follows:\nDEFINE FONT ofont NAME \"COURIER NEW GREEK\" size 0,-12\n\nand use the font in my GET object, e.g.\nREDEFINE GET oget VAR cget ID ... of oDlg FONT ofont\n\nIt\'s the picture clause that makes everything change.\nWithout the picture, I get normal greek letters shown.\nIf I have PICTURE \"@!\", I see characters that have nothing to do with the greek language... Most likely, the codepage for the font is changed inside either FWH or XHarbour.\n\nThanks for the reply and my kindest regards\nEvans','',0,'gA==','3dnu7ujz',1,0,'',455,0,0),(19574,4426,3,3,0,'82.248.18.157',1159387879,1,0,1,1,1,1,'','Re: PICTURE &quot;@!&quot; PROBLEM','[quote=&quot;E. Bartzokas&quot;:l9y7xieq][quote:l9y7xieq]Are you using a oemtoansi conversion ?[/quote:l9y7xieq]\n\nThanks for the reply my friend!\nNo I am not using OEMTOANSI... \nI load a greek font as follows:\nDEFINE FONT ofont NAME \"COURIER NEW GREEK\" size 0,-12\n\nand use the font in my GET object, e.g.\nREDEFINE GET oget VAR cget ID ... of oDlg FONT ofont\n\nIt\'s the picture clause that makes everything change.\nWithout the picture, I get normal greek letters shown.\nIf I have PICTURE \"@!\", I see characters that have nothing to do with the greek language... Most likely, the codepage for the font is changed inside either FWH or XHarbour.\n\nThanks for the reply and my kindest regards\nEvans[/quote:l9y7xieq]\n\nEvans\n\nI have a lot of \"@!\" in my app and as you know it is in french.\n\nI do not have this type of problems. Have you tried another font ?\n\nAre you using a HB_ lang  statement ?\n\nRichard','',0,'gA==','l9y7xieq',1,0,'',3,0,0),(19575,4425,3,3,0,'82.248.18.157',1159388047,1,0,1,1,1,1,'','Re: Numeric comparisons','[quote=&quot;E. Bartzokas&quot;:ma0s8gz7]Hi all,\nEither I got crazy, or something else is happening...\nI have a problem with the 32-bit that does not exist in the 16-bit, or DOS.\n\nTo better describe the problem:\n\n1. I have a database with four CHAR fields (width 20) that hold some numbers (amounts) with four decimals in them.\n\nExample:\n  Soc.Security       Medicare     Withholding        Total Amount\n     1172.0200      275.2700        839.0600           2291.3500\n\nIf I get the VAL() of each database field from the above, round them to 2 decimals, then add them up, I get the result 2291.35 (CORRECT) !!!\n\nNow, the second record in the database contains these:\n  Soc.Security       Medicare     Withholding        Total Amount\n    1019.5000        238.4400      679.9000             1937.8400\n\nIn my loops, I need to compare if the three first values of the fields, are equal to the Total Amount.  \n\nAs I state above, the first example record results to .T. (equal).\nThe second record, and many more records (practically all of them are equal, if I add them up they match the total amount value, which notice that it is also of CHAR type in the field, converted to VAL(), and Rounded to 2 decimals, I get the same incorrect result (.F.), when I do the comparison.\n\nSince I made the thought that either I\'m too stressed from working too much, or getting too old, I wouldn\'t like to mention about having problems with FWH numeric comparisons.... thus, I copied the code from the 32-bit PRG and pasted it into a stand-alone PRG which I compiled in FW 16-bit, and another one in MS-DOS.\n\nBoth the 16-bit applications came up with .T. everywhere where they should be .T. of course.  To make things easier, all the fields match the Total amount in the same record.\n\nNow I am sitting down and do nothing further because this issue has driven me crazy.  I have more than 30 years in the field, and am sure that there is nothing wrong with my code... simple things, that in addition, are working perfectly in the 16-bit environment.\n\nCan some of my friends try to reproduce and verify that the above numbers, if read from a dbf stored as characters, do not match the total amount?\n\nI would be grateful if I receive some answer(s).\n\nKind regards\nEvans\nps. Sorry if the numbers don\'t show too nice above...[/quote:ma0s8gz7]\n\nEvans \n\nwithout rounding, if you add your first 3 values the result is 2286.35 for the first record, second is ok\n\nHere is a piece of code that shows that record 1 is not ok but record 2 is OK\n\nI only test on fwh xharbour 32 bits\n\n#INCLUDE \"FIVEWIN.CH\"\n\nREQUEST DBFCDX\n\nFUNCTION MAIN()\n\nLOCAL aadbf := {}\n\nRDDSETDEFAULT(\"DBFCDX\")\n\nERASE \"EVANS.DBF\"\naADBF := {}\nAADD(aADBF, {\"F1\",    \"N\", 10, 4 })\nAADD(aADBF, {\"F2\",    \"N\", 10, 4 })\nAADD(aADBF, {\"F3\",    \"N\", 10, 4 })\nAADD(aADBF, {\"F4\",    \"N\", 10, 2 })\nDBCREATE(\"EVANS\", aADBF)\n\nUSE EVANS NEW\nAPPEND BLANK\nREPLACE F1  WITH 1172.0200\nREPLACE F2  WITH 275.2700\nREPLACE F3  WITH 839.0600\nREPLACE F4  WITH 2291.3500\n\nAPPEND BLANK\nREPLACE F1  WITH 1019.5000\nREPLACE F2  WITH 238.4400\nREPLACE F3  WITH 679.9000\nREPLACE F4  WITH 1937.8400\n\nDBGOTOP()\n\nDTOT := F1 + F2 + F3\nIF ABS(DTOT - F4) &lt; 0.009\n   MSGINFO(\"FIRST IS OK\")\n ELSE\n   MSGINFO(\"FIRST IS not ok\")\nENDIF\n\nDBSKIP()\n\nDTOT := F1 + F2 + F3\nIF ABS(DTOT - F4) &lt; 0.009\n   MSGINFO(\"SECOND IS OK\")\n ELSE\n   MSGINFO(\"SECOND IS not ok\")\nENDIF\n\nEVANS-&gt;(DBCLOSEAREA())\n\nRETURN NIL','',0,'gA==','ma0s8gz7',1,0,'',3,0,0),(19576,4427,19,52,0,'201.212.71.153',1159388092,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:10cye1zt]uupsssss, se me olvidaba, aquí le dejos una imagen de ¡¡¡ Bárbara Mori !!!\n\n[img:10cye1zt]http&#58;//vikthor&#46;com&#46;mx/radio/BarbaraMori&#46;jpg[/img:10cye1zt][/quote:10cye1zt]\n\nOk, ok.\n\nY les aseguro que personalmente esta buenísima, la conocí en Buenos Aires una de las veces que visito mi República Argentina. <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->','',0,'iA==','10cye1zt',1,0,'',52,0,0),(19577,4429,6,389,0,'189.133.20.186',1159388511,1,0,1,1,1,0,'','Un modulo Touch hecho con FWH','[img:2qn5ciu3]http&#58;//hyperupload&#46;com/download/021f693b92/Touch&#46;JPG&#46;html[/img:2qn5ciu3]\n\nSaludos\nGABO','',0,'CA==','2qn5ciu3',1,0,'',389,0,0),(19578,4425,3,6,0,'82.53.175.210',1159388697,1,0,1,1,1,1,'','Re: Numeric comparisons','[quote=&quot;E. Bartzokas&quot;:av7gm0n8]Hi all,\nEither I got crazy, or something else is happening...\nI have a problem with the 32-bit that does not exist in the 16-bit, or DOS.[/quote:av7gm0n8]\n\nIt is a very well known problem with floating point numbers and it doesn\'t depend on platform or language used. The simple solution is: round before compare.\n\nEMG','',0,'gA==','av7gm0n8',1,0,'',6,0,0),(19579,4425,3,455,0,'195.97.105.161',1159388931,1,0,1,1,1,0,'','Re: Numeric comparisons','[quote=&quot;Richard Chidiak&quot;:3ui9jv7r]\n\nEvans\n\nI can understand your anger. There are problems like this that can sometimes drive us nuts ! \n\nMany of us have been through this type of situations.\n\nNumeric comparison can be a pain, i hve faced big problems in my software with it.\n\nThe only reliable way i have found to test and make sure numbers are equal is :\n\nIF ABS(VALUE1 -VALUE2) &lt; 0.009\n\nLooks stupid but it has worked for me.\n\nHTH\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> There is always a solution !\n\nRichard[/quote:3ui9jv7r]\n\nRichard,\nThanks again...\nIt still does not work...\nNo matter what I have tried...\nABS() doesn\'t work either.\n\nThanks though...\nKind regards\nEvans','',0,'gA==','3ui9jv7r',1,0,'',455,0,0),(19580,4429,6,389,0,'189.133.20.186',1159389047,1,0,1,1,1,0,'','Va de nuevo el link...','espero que ahora si funcione\n\n[img:1dbs6u1k]http&#58;//img87&#46;imageshack&#46;us/img87/8489/touchnj7&#46;jpg[/img:1dbs6u1k]\n\nSaludos','',0,'CA==','1dbs6u1k',1,0,'',389,0,0),(19581,4427,19,54,0,'189.132.107.131',1159389275,1,0,1,1,1,1,'','','[quote=&quot;goosfancito&quot;:uybqgkdp][quote=&quot;Vikthor&quot;:uybqgkdp]uupsssss, se me olvidaba, aquí le dejos una imagen de ¡¡¡ Bárbara Mori !!!\n\n[img:uybqgkdp]http&#58;//vikthor&#46;com&#46;mx/radio/BarbaraMori&#46;jpg[/img:uybqgkdp][/quote:uybqgkdp]\n\nOk, ok.\n\nY les aseguro que personalmente esta buenísima, la conocí en Buenos Aires una de las veces que visito mi República Argentina. <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->[/quote:uybqgkdp]\n\nExcelente mi estimado.\n\nSoló que como decimos por acá, es hacerse una mental.\n\njjejje, sin animos de agraviar, jjejje','',0,'iA==','uybqgkdp',1,0,'',54,0,0),(19582,4425,3,2,0,'87.218.146.193',1159390517,1,0,1,1,1,1,'','','Evans,\n\nDon\'t use decimals numbers for the comparison. This sample works fine:\n[code:2dwkerjo]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; &#40; 1019&#46;5000 + 238&#46;4400 + 679&#46;9000 &#41; * 10000 == 1937&#46;8400 * 10000 &#41;\n   \nreturn nil   \n[/code:2dwkerjo]','',0,'AIA=','2dwkerjo',1,0,'',2,0,0),(19583,4425,3,303,0,'72.199.41.171',1159391669,1,0,1,1,1,0,'','','Evans,\n\nAs Enrico says, it is a constant problem with floating point numbers.\n\nHowever, the below code seems to work. The trick is to convert the sum to string then back to numeric. Give it a try on more numbers.\n\nTested with FWH Aug 2006 build and xHarbour.\n\nJames\n\n[code:2qc69rv3]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local ss, med, with, total\n\n   ss&#58;= val&#40;&quot;1019&#46;5000&quot;&#41;\n   med&#58;=val&#40;&quot;238&#46;4400&quot;&#41;\n   with&#58;=val&#40;&quot;679&#46;9000&quot;&#41;\n   total&#58;= val&#40;&quot;1937&#46;8400&quot;&#41;\n\n   msgInfo&#40; val&#40;str&#40;ss+med+with&#41;&#41; = total &#41;\n\nreturn nil[/code:2qc69rv3]','',0,'AIA=','2qc69rv3',1,0,'',303,0,0),(19585,4425,3,455,0,'195.97.105.161',1159393791,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:xoi5phy5]Evans,\n\nAs Enrico says, it is a constant problem with floating point numbers.\n\nHowever, the below code seems to work. The trick is to convert the sum to string then back to numeric. Give it a try on more numbers.\n\nTested with FWH Aug 2006 build and xHarbour.\n\nJames\n\n[code:xoi5phy5]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local ss, med, with, total\n\n   ss&#58;= val&#40;&quot;1019&#46;5000&quot;&#41;\n   med&#58;=val&#40;&quot;238&#46;4400&quot;&#41;\n   with&#58;=val&#40;&quot;679&#46;9000&quot;&#41;\n   total&#58;= val&#40;&quot;1937&#46;8400&quot;&#41;\n\n   msgInfo&#40; val&#40;str&#40;ss+med+with&#41;&#41; = total &#41;\n\nreturn nil[/code:xoi5phy5][/quote:xoi5phy5]\n\nYou guys are all terific... Thanks...\nI\'m sure that one of the suggested solutions will work (somehow).\nI\'ll do the code changes in the morning, and will post my code.\n\nThanks to all of you.\nYou are wonderful....\n\nEvans\n\nps. Any possibility to have a \"real\" floating point library solution ?','',0,'gIA=','xoi5phy5',1,0,'',455,0,0),(19586,4426,3,455,0,'195.97.105.161',1159393982,1,0,1,1,1,0,'','Re: PICTURE &quot;@!&quot; PROBLEM','[quote=&quot;Richard Chidiak&quot;:mhasndf5][quote=&quot;E. Bartzokas&quot;:mhasndf5][quote:mhasndf5]Are you using a oemtoansi conversion ?[/quote:mhasndf5]\n\nThanks for the reply my friend!\nNo I am not using OEMTOANSI... \nI load a greek font as follows:\nDEFINE FONT ofont NAME \"COURIER NEW GREEK\" size 0,-12\n\nand use the font in my GET object, e.g.\nREDEFINE GET oget VAR cget ID ... of oDlg FONT ofont\n\nIt\'s the picture clause that makes everything change.\nWithout the picture, I get normal greek letters shown.\nIf I have PICTURE \"@!\", I see characters that have nothing to do with the greek language... Most likely, the codepage for the font is changed inside either FWH or XHarbour.\n\nThanks for the reply and my kindest regards\nEvans[/quote:mhasndf5]\n\nEvans\n\nI have a lot of \"@!\" in my app and as you know it is in french.\n\nI do not have this type of problems. Have you tried another font ?\n\nAre you using a HB_ lang  statement ?\n\nRichard[/quote:mhasndf5]\n\nRichard\nCan you please tell me where to find the definitions for my language?\nI currently use these, because I couldn\'t find anything better...\n\n  REQUEST HB_LANG_EN // _EN\n   HB_LANGSELECT(\'EN\')  // \'EN\'\n\n   Request DBFCDX\n   RDDSETDEFAULT(\"DBFCDX\")\n   \n    rddInfo( RDDI_MEMOTYPE, DB_MEMO_DBT, \"DBFCDX\" )   // From XHB NG\n\nThanks again...\nEvans','',0,'gA==','mhasndf5',1,0,'',455,0,0),(19587,4385,6,18,0,'200.67.188.236',1159394241,1,0,1,1,1,1,'','Re: Dudas con Word','[quote=&quot;Manuel Valdenebro&quot;:2nqvs7yg]Estoy utilizando desde hace tiempo Word, directamente con Ole, a plena satisfacción. En una función que tengo que REEMPLAZA código (mailmerge), quiero que al reescribir la variable, lo haga con un color distinto al actual del documento. He puesto lo siguiente, pero me da problemas:\n\noDoc:Invoke(\'Color\', 255)\n\n¿Alguna idea para solucionarlo?[/quote:2nqvs7yg]\n\nManuel\n\nAqui te dejo el código fuente del método que yo uso en la Clase TWord que hace lo mismo que tu estas haciendo.\n\n[code:2nqvs7yg]\nMETHOD AddField&#40; cField , nEnd , cFuente, nSize, lBold, lShadow, nColor  &#41; CLASS TWord     // Vikthor\n       LOCAL oRange &#58;= &#58;&#58;oSelection&#58;Range&#40;&#41;\n       LOCAL oFont\n       DEFAULT nEnd &#58;= oRange&#58;Get&#40;&quot;End&quot;&#41;\n       oRange&#58;SetRange&#40; nEnd , nEnd &#41;\n\n       oFont  &#58;= oRange&#58;Get&#40;&quot;Font&quot;&#41;\n       DEFAULT cFuente &#58;= &quot;Tahoma&quot; ,;\n               nSize   &#58;= 10       ,;\n               lBold   &#58;= &#46;F&#46;      ,;\n               lShadow &#58;= &#46;F&#46;      ,;\n               nColor  &#58;= 0\n\n       oFont&#58;Set&#40; &quot;Name&quot;, cFuente &#41;\n       oFont&#58;Set&#40; &quot;Size&quot;, nSize &#41;\n       oFont&#58;Set&#40; &quot;Bold&quot;, lBold &#41;\n       oFont&#58;Set&#40; &quot;Emboss&quot;, lShadow &#41;\n       oFont&#58;Set&#40; &quot;Color&quot;, nColor &#41;\n\n       &#58;&#58;oFields&#58;Invoke&#40;&quot;Add&quot;, oRange , cField &#41;\n\n       oFont&#58;Invoke&#40; &quot;Reset&quot; &#41;\n       RELEASE oFont , oRange\n\nRETURN&#40; Nil &#41;\n[/code:2nqvs7yg]','',0,'gIA=','2nqvs7yg',1,0,'',18,0,0),(19588,4431,3,207,0,'148.233.32.162',1159394297,1,0,1,1,1,0,'','subrayado en tword con write()','Que tal Amigos:\n\nTengo documento creado con tword solo que quiero subrayar una parte del texto, con la funcion write() no me da esa opcion, ya le puse VK_VCONTROL+\"S\" ,\"^S\", entre otros y nada, creo que debe ser mas sencillo pero.... no se como. \nLes agradezco su ayuda...\nSaludos','',0,'gIA=','2eewbvvl',1,0,'',207,0,0),(19589,4428,6,18,0,'200.67.188.236',1159394493,1,0,1,1,1,1,'','','Gus :\n\nRevisa tu cuenta de correo','',0,'gIA=','11c6x9v8',1,0,'',18,0,0),(19590,4432,3,49,0,'62.13.172.78',1159396594,1,0,1,1,1,1,'','sample to print a memo filed','Someone have a sample to print a memo filed  with printer class ?\nI must add this filed to a report\nRegard','',0,'gIA=','x113zj3i',1,0,'',49,0,0),(19591,4428,6,52,0,'201.212.71.153',1159397788,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:28q3lb1l]Gus :\n\nRevisa tu cuenta de correo[/quote:28q3lb1l]\nOk, gracias\ntermino de revisar y no llego nada.','',0,'gA==','28q3lb1l',1,0,'',52,0,0),(19592,4422,2,138,0,'189.141.70.60',1159404508,1,0,1,1,1,1,'','','No no no, a ver, retomemos....\n\nSi tienes un maestro / detalle, con relaciones, el campo maestro, relacionado contra un campo detalle, el SET RELATION lo que hace es posicionarte en el primer campo de la tabla hija que coincida con el campo de relacion en la tabla padre... hasta aqui creo que lo entediste bien.\n\nAhora, en Clipper 5.3 existia el comando SET RELATION .... INTO ... SCOPED que lo hacia era hacer un SCOPE en la tabla hija con respecto al campo en la tabla padre, lo que ocmente es que ignoraba si en (x)Harbour, el comando SET RELATION soportaba la clausula SCOPED, si no la soporta, la tabla hija NO ES FILTRADA pero es facil \"barrer\" los registros en la tabla hija simplmente haciendo un:\n\nDO WHILE  (aliashija)-&gt;campo = (aliaspadre)-&gt;campo\n...\n...\n...\n(aliashija)-(DBSKIP())\n\nENNDO\n\nDigamos que gracias al SET RELATION te ahorras hacer un SELECT y luego un SEEK sobre la base hija.','',0,'gA==','1pquo3ar',1,0,'',138,0,0),(19593,4392,7,138,0,'189.141.70.60',1159405177,1,0,1,1,1,1,'','','Jeje, he aqui otro cliente contento de google, y seguramente del buen amigo Jose Maria Garcia, que es un hacha en el tema de GPS, ese amigo se lo sabe todo.','',0,'gA==','2g652j70',1,0,'',138,0,0),(19594,4393,3,15,0,'203.73.55.183',1159406099,1,0,1,1,1,0,'','','Hello Antonio,\n\n[quote=&quot;Antonio Linares&quot;:3gqv8ed6]Richard,\n\nDo you mean that oActiveX&#058;Do( \"Open\", \"c:\\&#35336;&#31639;.xls\" ) \n does not work ?[/quote:3gqv8ed6]\n\nYes, it\'s not work(Disappear).\n\nRichard','',0,'gA==','3gqv8ed6',1,0,'',15,0,0),(19595,4424,6,138,0,'189.141.70.60',1159406390,1,0,1,1,1,1,'','','jejejeje\n\nEn realidad es un \"efecto visual\" como casi todo en Windows.\n\nNo es que tengas que hacer HIND Controls, cuando tienes el Control Outlook en lado izquierdo de la ventana Main, con un Spliter, lo que vas a poner de lado derecho es OTRA VENTANA MAXIMIZADA, o bien un DIALOGO que se ajuste al tamaño del area que esta a la derecha del Splitter.\n\nDentro de la ventana o dialgo vas aponer todos tus controles y a trabaja de manera normal, pero eso no es mas un truco visual. \n\nEsto es sumamente util cuando trabajas con MDI','',0,'gA==','109abnsi',1,0,'',138,0,0),(19596,4383,3,239,0,'219.137.143.14',1159408120,1,0,1,1,1,0,'','','1. insert and delete record\nobrow:bKeyDown := {|nKey| if(nKey==VK_DELETE, (if(msgyesno(\"Delte ?\",\"pls confirm\"),(odb2:DELETE(),obrow:Refresh())),)),if(nkey==VK_INSERT,(obrow:gobottom(),obrow:godown(),obrow:goleftmost()),)) }\n\n2.  append \n\noCol := obrow:AddCol()\n	oCol:bStrData := {||odb2:stockid}\n	oCol:cHeader := \"ID\"\n	oCol:bEditValue := {||odb2:stockid}\n	oCol:nEditType := {||if(ledit,1,0)}\n	oCol:bOnPostEdit := {|o, v, n| if( n != VK_ESCAPE .and. v != odb2:stockid,;\n	                                        (if(odb2:EOF(),;\n	                                                (odb2:stockid:=v,odb2:lmrp:=\"Y\",odb2:APPEND(),if(!oserver:lerror,obrow:SEEK(v),msgstop(\"&#65281;\",\"stop\"))),;\n	                                                (stockid1:=odb2:stockid,odb2:stockid:=v,odb2:save(),if(oserver:lError,(msgstop(\"&#65281;\",\"stop\"),obrow:SEEK(stockid1)),obrow:SEEK(v)) );\n	                                             ),;\n	                                         ), ;\n	                                  )  }\n\nShuming Wang','',0,'gA==','213rw9q4',1,0,'',239,0,0),(19597,4383,3,239,0,'219.137.143.14',1159408225,1,0,1,1,1,0,'','','samples\n\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sample1.prg\">http://www.xtech.com.cn/down/sample1.prg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sample2.prg\">http://www.xtech.com.cn/down/sample2.prg</a><!-- m -->\n\n\nShuming Wang','',0,'gA==','1ik9vf4u',1,0,'',239,0,0),(19598,4433,3,234,0,'65.240.119.152',1159408291,1,0,1,1,1,1,'','Copy &amp; Paste problem','Hello,\n\nI am having a problem with copy and pasting in to a GET field. A user copies from one field then pastes to another field, the paste only copies the first 6 characters. How can I resolve this problem?\n\nThank you,','',0,'gA==','has58rt9',1,0,'',234,0,0),(19599,4387,3,239,0,'219.137.143.14',1159408581,1,0,1,1,1,0,'','','obrow := TXBrowse():New( odlg )\n\nfor i:=1 to len(array1)\noCol := obrow:addCol()\n  addcol(ocol,i)\nnext\n\nreturn \n\n\n\nfunction  addcol(ocol,i)\n\noCol:cHeader   :=\'aaa\'\noCol:bStrData  := { ||array1[i]}\nocol:beditvalue:={||array[i]}\nocol:nedittype:= 1\noCol:bOnPostEdit := {|o, v, n| if( n != VK_ESCAPE  .... }\n\nreturn \n\nShuming Wang','',0,'','krk0qqd9',1,0,'',239,0,0),(19600,4434,7,18,0,'200.67.136.213',1159408725,1,0,1,1,1,1,'','Controles Radio','Antonio :\n\nEstoy trabajando con el control Radio, y veo un comportamiento extraño en los controles que se agregan a un RadioMenu\n\nAqui te anexo el ejemplo :\n[code:1og50r0v]\nnRAD&#58;= 1\nDEFINE  DIALOG  oDlgRad FROM 0, 0  TO 220, 240 OF oWnd TITLE &quot;RADIO&quot; PIXEL\n @   1,   1 GROUP oGrp TO 120, 210  PROMPT &quot;Radio!&quot; PIXEL\n *@ 180,  20 BUTTON oBtn OF oDlg PROMPT &quot;Valor&quot; SIZE 80, 30 ACTION MsgInfo&#40; Str&#40; nRAD &#41; &#41; PIXEL\n ACTIVATE DIALOG oDlgRad ONINIT CW&#58;RADIO&#40;oGrp&#41;\nRETURN\n*\nFUNCTION RADIO&#40;&#41;\nPARAM oGrp\n@   1,   2 RADIO oRadMenu VAR nRAD ITEMS &#123;&quot;One&quot;,&quot;Two&quot;,&quot;Three&quot;&#125; SIZE 80, 15 OF oGrp\n@ 130, 150 RADIOITEM oRitem3 PROMPT &quot;Six&quot;  MENU oRadMenu SIZE 40, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;0,255,255&#41;\n@ 130,  70 RADIOITEM oRitem1  PROMPT &quot;Four&quot; MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;255,0,255&#41;\n@ 130,  2 RADIOITEM oRitem2 PROMPT &quot;Five&quot; MENU oRadMenu SIZE 40, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;0,255,0&#41;\n@ 145,  40 RADIOITEM oRitem4  PROMPT &quot;Four&quot; MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;255,0,255&#41;\n@ 160,  65 RADIOITEM oRitem5  PROMPT &quot;Four&quot; MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;255,0,255&#41;\noRitem5&#58;SetText&#40; lTrim&#40; Str&#40; oRitem5&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem5&#58;nRight-4 &#41; &#41; &#41;\noRitem4&#58;SetText&#40; lTrim&#40; Str&#40; oRitem4&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem4&#58;nRight-4 &#41; &#41; &#41;\noRitem3&#58;SetText&#40; lTrim&#40; Str&#40; oRitem3&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem3&#58;nRight-4 &#41; &#41; &#41;\noRitem2&#58;SetText&#40; lTrim&#40; Str&#40; oRitem2&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem2&#58;nRight-4 &#41; &#41; &#41;\noRitem1&#58;SetText&#40; lTrim&#40; Str&#40; oRitem1&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem1&#58;nRight-4 &#41; &#41; &#41;\n@ 180,  20 BUTTON oBtn PROMPT &quot;Valor&quot; OF oDlg SIZE 80, 30 ACTION MsgInfo&#40; Str&#40; nRad &#41; &#41; PIXEL\nRETURN\n[/code:1og50r0v]\n\nLe agrege colores para que se claramente que el ancho que pinta el control no es el mismo que se define.\n\nAdjunto también una imagen de como se ve.\n[img:1og50r0v]http&#58;//vikthor&#46;com&#46;mx/images/testradio&#46;jpg[/img:1og50r0v]','',0,'CIA=','1og50r0v',1,0,'',18,0,0),(19601,4425,3,138,0,'189.141.70.60',1159408892,1,0,1,1,1,1,'','','Turn numeric to string, then compare\n\nx:= 199.50\ny:= 199.50\n\nIF x = y // this will fail !!!!!\n\nIF STR(x,2) = STR(y,2) // this will work....\n\nand unfortunatly no, there\'s no solution for such problem, no in xHabour, nor in Clipper, nor in Visual Bullshit, sorry Basic, nor in Delphi, or in Java, all the languages handling floating point routines have the very same behave.','',0,'CIA=','3ut40cmv',1,0,'',138,0,0),(19602,4435,4,18,0,'200.67.136.213',1159409257,1,0,1,1,1,1,'','Radio Controls doesn\'t display correctly','Hi :\n\nI was working with radio control and I see a strange performace with them.\n\nWhen I defined size cordenates , and after I run my app, the controls doesn\'t display correctly.\n\nSee this source code :\n[code:11mb5awa]\nnRAD&#58;= 1\nDEFINE  DIALOG  oDlgRad FROM 0, 0  TO 220, 240 OF oWnd TITLE &quot;RADIO&quot; PIXEL\n @   1,   1 GROUP oGrp TO 120, 210  PROMPT &quot;Radio!&quot; PIXEL\n *@ 180,  20 BUTTON oBtn OF oDlg PROMPT &quot;Valor&quot; SIZE 80, 30 ACTION MsgInfo&#40; Str&#40; nRAD &#41; &#41; PIXEL\n ACTIVATE DIALOG oDlgRad ONINIT CW&#58;RADIO&#40;oGrp&#41;\nRETURN\n*\nFUNCTION RADIO&#40;&#41;\nPARAM oGrp\n@   1,   2 RADIO oRadMenu VAR nRAD ITEMS &#123;&quot;One&quot;,&quot;Two&quot;,&quot;Three&quot;&#125; SIZE 80, 15 OF oGrp\n@ 130, 150 RADIOITEM oRitem3 PROMPT &quot;Six&quot;  MENU oRadMenu SIZE 40, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;0,255,255&#41;\n@ 130,  70 RADIOITEM oRitem1  PROMPT &quot;Four&quot; MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;255,0,255&#41;\n@ 130,  2 RADIOITEM oRitem2 PROMPT &quot;Five&quot; MENU oRadMenu SIZE 40, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;0,255,0&#41;\n@ 145,  40 RADIOITEM oRitem4  PROMPT &quot;Four&quot; MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;255,0,255&#41;\n@ 160,  65 RADIOITEM oRitem5  PROMPT &quot;Four&quot; MENU oRadMenu SIZE 5, 15 OF oDlgRad PIXEL COLORS nRGB&#40;0,0,0&#41;,nRGB&#40;255,0,255&#41;\noRitem5&#58;SetText&#40; lTrim&#40; Str&#40; oRitem5&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem5&#58;nRight-4 &#41; &#41; &#41;\noRitem4&#58;SetText&#40; lTrim&#40; Str&#40; oRitem4&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem4&#58;nRight-4 &#41; &#41; &#41;\noRitem3&#58;SetText&#40; lTrim&#40; Str&#40; oRitem3&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem3&#58;nRight-4 &#41; &#41; &#41;\noRitem2&#58;SetText&#40; lTrim&#40; Str&#40; oRitem2&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem2&#58;nRight-4 &#41; &#41; &#41;\noRitem1&#58;SetText&#40; lTrim&#40; Str&#40; oRitem1&#58;nLeft-4 &#41; &#41; +&quot;,&quot;+lTrim&#40; Str&#40; oRitem1&#58;nRight-4 &#41; &#41; &#41;\n@ 180,  20 BUTTON oBtn PROMPT &quot;Valor&quot; OF oDlg SIZE 80, 30 ACTION MsgInfo&#40; Str&#40; nRad &#41; &#41; PIXEL\nRETURN\n[/code:11mb5awa]\n\nLook this image, the sizes doesn\'t like I was defined\n[img:11mb5awa]http&#58;//vikthor&#46;com&#46;mx/images/testradio&#46;jpg[/img:11mb5awa]','',0,'CIA=','11mb5awa',1,0,'',18,0,0),(19603,4385,6,9,0,'85.59.47.139',1159421204,1,0,1,1,1,1,'','','Muchas gracias Vikthor por contestar. \n\nHe hecho algunas rectificaciones en mi módulo, de las conclusiones que he sacado de su Method, pero me sigue dando error. Algo estoy haciendo mal. Este es mi código:\n[code:3qfmyrb1]\nSTATIC FUNCTION REEMPLACE &#40;oDoc, cViejo, cNuevo&#41;\nLOCAL oSelection, oTexto, oFind, oFont\n\n         oSelection &#58;= oDoc\n         oTexto &#58;= oSelection&#58;Range\n         oFind  &#58;= oTexto&#58;Find\n         // oFont&#58;Set&#40;&quot;Color&quot;, RGB&#40;255,255,255&#41; &#41;  // aqui da error\n         // oFont&#58;Set&#40;&quot;Bold&quot;, &#46;t&#46;&#41;                            // aqui da error\n         oFind&#58;Text&#58;= cViejo\n         oFind&#58;Forward&#58;=&#46;T&#46;\n         oFind&#58;Wrap&#58;= INT&#40;1&#41;\n         oFind&#58;Format&#58;=&#46;f&#46;\n         oFind&#58;MatchCase&#58;=&#46;f&#46;\n         oFind&#58;Execute&#40;&#41;\n         // oFont&#58;Invoke&#40; &quot;Reset&quot; &#41;\n\n         WHILE oFind&#58;Found\n             oTexto&#58;Text&#58;=cNuevo\n             oFind&#58;Execute&#40;&#41;\n         Enddo\n  RETURN nil\n[/code:3qfmyrb1]\n\n¿Podrias ayudarme?','',0,'AIA=','3qfmyrb1',1,0,'',9,0,0),(19604,4433,3,2,0,'87.218.146.193',1159421977,1,0,1,1,1,1,'','','Darrell,\n\nWhats the variable length used on the GET where you paste ?','',0,'AIA=','2jhfqarz',1,0,'',2,0,0),(19605,4393,3,2,0,'87.218.146.193',1159422063,1,0,1,1,1,1,'','','Richard,\n\nWhat do you mean with \"disappear\" ? Does the ActiveX gets hidden ?','',0,'AIA=','2e1q538p',1,0,'',2,0,0),(19606,4433,3,234,0,'65.240.119.152',1159422115,1,0,1,1,1,1,'','','Hi Antonio,\n\nThe character length is 45\n\nRegards,','',0,'AIA=','2noga6zn',1,0,'',234,0,0),(19607,4432,3,2,0,'87.218.146.193',1159422197,1,0,1,1,1,1,'','','Silvio,\n\nIt is already implemented in GETs multilines. Please review the source code of METHOD Print() CLASS TMultiGet.','',0,'AIA=','19zul7ob',1,0,'',2,0,0),(19608,4433,3,2,0,'87.218.146.193',1159422245,1,0,1,1,1,1,'','','Darrell,\n\nAnd whats the variable length in the GET where you copy ?','',0,'AIA=','37v31zlt',1,0,'',2,0,0),(19609,4426,3,2,0,'87.218.146.193',1159422419,1,0,1,1,1,1,'','','Evans,\n\nREQUEST HB_LANG_EL\nREQUEST HB_CODEPAGE_ELWIN\nHB_LangSelect(\"EL\")\nHB_SetCodePage(\"ELWIN\")','',0,'AIA=','2vmam5hk',1,0,'',2,0,0),(19610,4433,3,234,0,'65.240.119.152',1159422470,1,0,1,1,1,1,'','','The source length was 20 characters','',0,'AIA=','1ldwzyx1',1,0,'',234,0,0),(19611,4433,3,2,0,'87.218.146.193',1159422803,1,0,1,1,1,1,'','','Darrell,\n\nPlease test samples\\TestGet2.prg. Copy the first GET content, then erase it content, tab to other GETs, then go back and paste. The paste works fine.\n\nWhat FWH version and build are you using ?','',0,'AIA=','3vb1mu8x',1,0,'',2,0,0),(19612,4433,3,234,0,'65.240.119.152',1159423590,1,0,1,1,1,1,'','','Antonio,\n\nThat seems to work. I need to check further with my client. I will get back to you soon.','',0,'AIA=','3txbki58',1,0,'',234,0,0),(19613,4436,1,190,0,'202.65.134.27',1159425297,1,0,1,1,1,0,'','How  to find Serial No. of a HDD in CA-Clipper?','Hi all\n\nIs there any function/library available to find the Serial No. of a\nHard Disk Driver in CA-Clipper similar to xHarbour Function nSerialHd().\n\nThanks\n\n- Ramesh Babu P','',0,'AIA=','3t48tgrf',1,0,'',190,0,0),(19614,4436,1,2,0,'87.218.146.193',1159427047,1,0,1,1,1,1,'','','Ramesh,\n\nFiveWin 16 bits provides nSerialHD( [&lt;cDrive&gt;] )','',0,'','2l0134mi',1,0,'',2,0,0),(19615,4417,2,2,0,'87.218.146.193',1159427266,1,0,1,1,1,1,'','','Ricardo,\n\nRevisa las funciones AnsiToOem() y OemToAnsi().','',0,'','1570seu9',1,0,'',2,0,0),(19616,4436,1,190,0,'202.65.134.27',1159428107,1,0,1,1,1,0,'','','Dear Mr.Antonio\n\nThanks for your quick reply.\n\nI know about FW\'s nSerialHd() function.  I want to have a similar\nfunctonality in pure CA-Clipper also.  Is there any way out?\n\nRegards to you\n\n- Ramesh Babu P','',0,'','3cgofrj8',1,0,'',190,0,0),(19617,4432,3,130,0,'141.51.32.24',1159428908,1,0,1,1,1,0,'','','Silvio,\n\nyou can extract every line with memoline() and print it with  tPrinter:CmSay().\n\nStefan','',0,'','2dxq3xcl',1,0,'',130,0,0),(19618,4436,1,2,0,'87.218.146.193',1159429618,1,0,1,1,1,1,'','','Ramesh,\n\nYou may try to adap FW source\\function\\harddisk.c source code to MsDos.','',0,'','3r7bfwcp',1,0,'',2,0,0),(19619,4425,3,455,0,'195.97.105.161',1159429843,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:1t377t09]Turn numeric to string, then compare\n\nx:= 199.50\ny:= 199.50\n\nIF x = y // this will fail !!!!!\n\nIF STR(x,2) = STR(y,2) // this will work....\n\nand unfortunatly no, there\'s no solution for such problem, no in xHabour, nor in Clipper, nor in Visual Bullshit, sorry Basic, nor in Delphi, or in Java, all the languages handling floating point routines have the very same behave.[/quote:1t377t09]\n\nYou guys are all great!\nI couldn\'t be getting any more help than this provided to me with this posting.\n\nI solved the problem by comparing the resulted numerics, by converting them to strings such as Str( 1.30 + 2.30 + 3.30,  15,2) == Str(6.90,15,2)\n\nAnd I was thinking about going back to elementary school \n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nThanks to all for one more time\n\nKind regards from Corinth, Greece\nEvans','',0,'gA==','1t377t09',1,0,'',455,0,0),(19620,4426,3,455,0,'195.97.105.161',1159430156,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:11td666u]Evans,\n\nREQUEST HB_LANG_EL\nREQUEST HB_CODEPAGE_ELWIN\nHB_LangSelect(\"EL\")\nHB_SetCodePage(\"ELWIN\")[/quote:11td666u]\n\nHola Antonio,\n\nxBuilder complains about missing external function:\n(Unresolved external symbol)\nHB_FUN_HB_LANG_EL\nUsing xBuild Wizzard ver. 4.01 (Jan 24, 2006)\n\nIs there some way I can find these definitions please?\n\nGracias/saludos\nEvans\nps. Getting closer to fixing the problem through your help','',0,'gA==','11td666u',1,0,'',455,0,0),(19621,4432,3,49,0,'213.82.134.66',1159431276,1,0,1,1,1,1,'','','thanks I resolve it','',0,'gA==','1z2qpc1r',1,0,'',49,0,0),(19622,4426,3,2,0,'87.218.146.193',1159432230,1,0,1,1,1,1,'','','Evans,\n\nThey are located at harbour\\source\\codepage\\cpelwin.c but it looks as it has not been included in the libs.\n\n * Harbour Project source code:\n * National Collation Support Module ( Greek WIN )\n *\n * Copyright 2004 Pete Dionisopoulos &lt;pete_westg@yahoo.gr&gt;\n * www - <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org\">http://www.harbour-project.org</a><!-- m -->\n * v1.0 2004 Panayotis (Pete) Dionysopoulos &lt;pete_westg@yahoo.gr&gt;','',0,'gA==','2ons0sp8',1,0,'',2,0,0),(19623,4374,3,170,0,'83.179.175.24',1159440688,1,0,1,1,1,1,'','','Luis,\n\nPlease look at SetClipboardViewer() API (w98 and 2000) if you don\'t know.\n\nThis is a part of \"SAMS Windows 2000 API SuperBible\" :\n\n\"SetClipBoardViewer places the given windows at the lead of the chain\nof the clipboard viewers. The value returned, the handle of the next clipboard viewer on the chain, must be saved by the caller and kept up-to-date by processing the WM_CHANGECBCHAIN message. The handle of the next clipboard viewer is needed to process the WM_DRAWCLIPBOARD, WM_CHANGECBCHAIN, and WM_DESTROY messages.\n\n\nSyntax : HWND SetClipboardViewer( HWND hWnd )\"\n\n\nHope this help,  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','1ofdzslk',1,0,'',170,0,0),(19624,4437,6,63,0,'80.37.102.128',1159445609,1,0,1,1,1,0,'','Antonio: Está disponible SetFTime() / SetFDate() en FWH 2.8?','Antonio:\na) Está disponible SetFTime() (o equivalente) en 2.8?  Yo aún uso FWH 2.6 y no está implementada.\nb) En el mismo orden de cosas, TxBrowse() en FWH 2.6 tiene algunas anomalías, como el que no detecta RClick sobre una casilla ya seleccionada.  Está solucionado?\nGracias,\nRafael','',0,'gA==','2w06v6ee',1,0,'',63,0,0),(19625,4424,6,147,0,'200.45.54.134',1159451083,1,0,1,1,1,1,'','','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  gracias Maestro; esa es la idea abrir ventanas MDI\n\nSaludos','',0,'gA==','epwphb9y',1,0,'',147,0,0),(19626,1751,6,801,0,'200.175.20.38',1159451090,1,0,1,1,1,0,'','','I am needing to make TREE (TTreeView) trasnparente, will be that nao has as to use one of the resources commented in this topico?\n\nThanks !','',0,'gA==','2d3q3bqz',1,0,'',801,0,0),(19627,4417,2,124,0,'201.253.80.60',1159452200,1,0,1,1,1,0,'','','Antonio:\n\nEstamos trabajando con OemToAnsi y AnsiToOem, y la visualización es correcta ( migramos los datos de DOS a ansi para compatibilizarlos con los nuevos datos grabados bajo windows ).\n\nEl problema que tenemos es solamente la secuencia de ordenamiento de los datos indexados, donde vistos desde el sistema o cualquier editor de dbfs ocurre que las Ññ y las vocales acentuadas no ocupan la posicion que \"deberían\" en español.\n\nEspero tu comentario.\nGracias.\nRicardo.-','',0,'gA==','1ipy7pna',1,0,'',124,0,0),(19628,4438,4,47,0,'203.144.143.7',1159452207,1,0,1,1,1,0,'','TTxtFile() is support?','Dear Antonio,\n\nTTxtFile() is still exist in FWPPC?  I try but it show link error.  If not, what I use instead of?\n\nBest regards,\nDutch','',0,'gA==','9r5p1mh3',1,0,'',47,0,0),(19629,4436,1,190,0,'202.65.134.41',1159454187,1,0,1,1,1,0,'','','Mr.Antonio\n\nI will try it.\n\nThanks\n\n- Ramesh Babu P','',0,'gA==','2w1rzxvn',1,0,'',190,0,0),(19630,4427,19,215,0,'189.136.235.205',1159455604,1,0,1,1,1,0,'','','Y eso que en esta foto aún no se operaba las bubis.... Grrrrr','',0,'gA==','3vss0fqd',1,0,'',215,0,0),(19631,4439,3,497,0,'82.217.182.197',1159457685,1,0,1,0,1,0,'','FWH and xBuilder versions','Dear Antonio,\n\nI bought FWH 2.7 in April 2006 and use that.\n\nWhen I link an app with xBuilder Octber 2005 I have no errors\n\nWhen I link an app with xBuilder March 2006, I get an _hb_stack_  unresolved external symbol problem\n\nRon Pinkas tells me that that is because I use an FWH version prior to Octboer 2005.\n\nI can not understand the logic of that.\n\nMy question to you is:\n\nShould I have updated my 2.7 from this forum?\n\nCan you think of a reason why I get this error?\n\nLater in time I will order 2.8 and use the latest xBuilder.\nBut I would like to understand why I have this error.\n\nRegards,\n\nJules de Pierre','',0,'gA==','l265mqhq',1,0,'',497,0,0),(19632,4440,2,518,0,'201.124.175.181',1159460303,1,0,1,1,1,0,'','proteccion contra pirateria de software','Hola,\n\nTengo un sistemita hecho en FW16 que corre en clientes windows y los datos estan en un servidor.\n\nQue opciones tengo para poder proteger el sistema de que no se lo lleven a otra parte y me lo pirateen.. ahorita no tengo nada de proteccion .\n\nGracias','',0,'gA==','2iwpa760',1,0,'',518,0,0),(19633,4441,3,190,0,'202.65.134.41',1159463655,1,0,1,1,1,0,'','Error log is not generated in FWH 2.8 September Build','Hi Mr.Antonio\n\nAfter upgradation to FWH 2.8 September Build I am not getting the \nerror.log generated and the only  the following message is shown.\n\n[quote:p2wkz4w8]Error BASE/1122 Argument Error: TRANSFORM from Errorsys, \nline: 0[/quote:p2wkz4w8]\n\nPlease advise me what to do.\n\nRegards\n\n- Ramesh Babu P[/quote]','',0,'gA==','p2wkz4w8',1,0,'',190,0,0),(19634,4429,6,228,0,'201.245.222.85',1159464202,1,0,1,1,1,1,'','Como haces los botones?','Amigo primero que todo excelente trabajo.. de verdad que se ve espectacular. Felicitaciobes  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSegundo que todo me gustaria saber como hiciste los botones sobre todo los verdes de la derecha. Excelente diseño.','',0,'gA==','1yyrqxkf',1,0,'',228,0,0),(19635,4413,6,774,0,'200.72.65.192',1159465414,1,0,1,1,1,1,'','','porfa responde','',0,'gA==','1xzup22y',1,0,'',774,0,0),(19636,4437,6,2,0,'87.218.146.96',1159465456,1,0,1,1,1,1,'','','Rafael,\n\n&gt;\na) Está disponible SetFTime() (o equivalente) en 2.8? Yo aún uso FWH 2.6 y no está implementada. \n&gt;\n\nNo, aún no está implementada.\n\n&gt;\nb) En el mismo orden de cosas, TxBrowse() en FWH 2.6 tiene algunas anomalías, como el que no detecta RClick sobre una casilla ya seleccionada. Está solucionado? \n&gt;\n\nLe hemos añadido todos los cambios que se han publicado en estos foros. habría que probar en concreto el comportamiento que comentas.','',0,'gA==','2cvedyvh',1,0,'',2,0,0),(19637,4441,3,2,0,'87.218.146.96',1159466889,1,0,1,1,1,1,'','','Ramesh,\n\nPlease try samples\\TestErro.prg. Here it works ok.','',0,'gA==','op98slrt',1,0,'',2,0,0),(19638,4439,3,2,0,'87.218.146.96',1159467056,1,0,1,1,1,1,'','','Jules,\n\nPlease add this code to your main PRG:\n[code:1lnwbfc8]\n#pragma BEGINDUMP \n\n#include &quot;hbstack&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \n   return pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n[/code:1lnwbfc8]\nAnyhow due to latest changes in xHarbour, is highly convenient to use a recent xHB builder beta and latest FWH 2.8.','',0,'AIA=','1lnwbfc8',1,0,'',2,0,0),(19639,4438,4,2,0,'87.218.146.96',1159467190,1,0,1,1,1,1,'','','Dutch,\n\nNo, it is not available yet. You may use standard FOpen(), FRead(), etc. functions.','',0,'AIA=','2gbuqdrd',1,0,'',2,0,0),(19640,4440,2,2,0,'87.218.146.96',1159467380,1,0,1,1,1,1,'','','Puedes usar la función nSerialHD() que te devuelve el número de serie del disco duro y asi comprobar el ordenador sobre el que funciona.\n\nOtros sistemas más sencillos son, por ejemplo, tener un determinado fichero en algún directorio del ordenor (c:\\windows) y si dicho fichero no está, terminar la ejecución del programa. Cuando copien tu programa, no copiarán ese fichero.','',0,'AIA=','2suzcn8r',1,0,'',2,0,0),(19641,4417,2,2,0,'87.218.146.96',1159467613,1,0,1,1,1,1,'','','Ricardo,\n\nEste tema está mjy bien implementado en Harbour/xHarbour. El consejo sería aprovechar ese problema para migrar la aplicación a 32 bits.','',0,'AIA=','2ywo21k2',1,0,'',2,0,0),(19642,4368,3,801,0,'200.175.20.38',1159467741,1,0,1,1,1,0,'','','Still I am needing. If they any person to souper and will be able to inform, I am been thankful to me!','',0,'AIA=','3ufbxyqb',1,0,'',801,0,0),(19643,4423,3,801,0,'200.175.20.38',1159467784,1,0,1,1,1,0,'','','Still I am needing. If they any person to souper and will be able to inform, I am been thankful to me!','',0,'AIA=','4f4tqq4m',1,0,'',801,0,0),(19644,4413,6,2,0,'87.218.146.96',1159467811,1,0,1,1,1,1,'','','Comprueba que se esté llamando a bcc32.exe y que se genere el fichero OBJ. Si se llama y no se genera, tiene que aparecerte un error de Borland en pantalla.','',0,'AIA=','mvuqxqlq',1,0,'',2,0,0),(19645,4368,3,2,0,'87.218.146.96',1159468034,1,0,1,1,1,1,'','','Enter key is used to open and close a tree branch, so you should not use it to fire an action. You may use mouse double click event oTree:bLDblClick = { || MsgInfo( \"double click\" ) }','',0,'AIA=','2myyg5lt',1,0,'',2,0,0),(19646,4423,3,2,0,'87.218.146.96',1159468129,1,0,1,1,1,1,'','','Enter is used to open/close a tree branch. Its a standard Windows behavior for trees.','',0,'AIA=','269gwlj1',1,0,'',2,0,0),(19647,4438,4,47,0,'203.144.143.6',1159468154,1,0,1,1,1,0,'','','Dear Antonio,\n\nThanks for prompt reply.  I got it and I use MEMOREAD(), MLCOUNT(), MEMOLINE() instead. \n\nThanks&amp;Regards,\nDutch','',0,'AIA=','2ddmucda',1,0,'',47,0,0),(19648,4427,19,53,0,'189.139.10.243',1159468932,1,0,1,1,1,1,'','','Vikthor:\n\nDesde luego que cuentas con mi apoyo, pero yo te recomiendo\nque dejes de pensar en \"eso\" mirate en la foto como estas quedando ! \nJeje\n<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos, Armando','',0,'AIA=','1q7xv3uz',1,0,'',53,0,0),(19649,4438,4,2,0,'87.218.146.96',1159472615,1,0,1,1,1,1,'','','Dutch,\n\nYes, those functions are simpler for text lines management.','',0,'AIA=','33z6t68h',1,0,'',2,0,0),(19650,4406,6,396,0,'201.210.129.11',1159474830,1,0,1,1,1,1,'','','Antonio aca dejo el error que me da desde el arcivo .log, estoy usando FWH 2.4 \nApplication\n===========\n   Path and name: C:\\SISINGE\\FARMACIA\\FARMACIA.EXE (32 bits)\n   Size: 1,267,712 bytes\n   Time from start: 0 hours 1 mins 27 secs \n   Error occurred at: 28/09/2006, 08:55:30\n   Error description: Error BASE/1110  Argument error: SUBSTR\n   Args:\n     [   1] = U   \n     [   2] = N   1\n     [   3] = N   1\n\nStack Calls\n===========\n   Called from SUBSTR(0)\n   Called from GET:UNTRANSFORM(604)\n   Called from TGET:LOSTFOCUS(0)\n   Called from TCONTROL:KILLFOCUS(0)\n   Called from TCONTROL:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from FCOMPRA(467)\n   Called from EVAL(57)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from BRWCOMPRA(99)\n   Called from EVAL(74)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(104)\n\nSystem\n======\n   CPU type: Pentium II 233 Mhz\n   Hardware memory: 96 megs\n\n   Free System resources: 74 %\n        GDI    resources: 74 %\n        User   resources: 77 %\n\n   Compiler version: Harbour Alpha build 43.0 Intl. (Flex)\n   Windows version: 4.10, Build 67766446  A \n\n   Windows total applications running: 0','',0,'','6kcwsv6j',1,0,'',396,0,0),(19651,4406,6,2,0,'87.218.146.96',1159478032,1,0,1,1,1,1,'','','Jose Luis,\n\nEstás usando unas versiones bastante antiguas ya de FWH y de Harbour. Ese error se corrigió en Harbour, si no recuerdo mal.','',0,'','bt0k8pjv',1,0,'',2,0,0),(19652,4440,2,518,0,'201.124.175.181',1159478532,1,0,1,1,1,0,'','','Gracias antonio... pero he visto algunos dispositivos USB que se colocan en las maquinas cliente... alguien sabe algo de eso ?\n\nRene','',0,'','3kn2350o',1,0,'',518,0,0),(19653,4405,2,774,0,'200.72.65.192',1159480095,1,0,1,1,1,1,'','','antonio,, Help\n\nno has respondido mi consulta sobre manual de Tprint, Treport\n\nGracias','',0,'','1pjcvgry',1,0,'',774,0,0),(19654,4442,6,396,0,'201.210.129.11',1159480617,1,0,1,1,1,1,'','DIALOG colgado en una Ventana MDI','Hola a todos, se que esto lo deben a ver preguntado antes, pero revise el foro  y no consegui ningun tema anterior. necesito un ejemplo de como colgar 1 DIALOG en una VENTANA MDI y que se reduzca cuando minimize el dialogo, este dialog esta desde recurso, o si alguien tiene algun ejemplo de BROWSE en VENTANAS MDI, en fin, lo que necesito es como usar MDI con controles BROWSE y demas, espero me haan entendido... COMO USAR MDI PARA ABRIR VARIOS MODULOS A LA VES QUE TENDRAN BROWSE..... gracias a todos desde ya.ojo, use la guia que encontre de Eduardo Rizzolo y pude hacer las ventanas pero no colgar los dialogos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'','lqwys90f',1,0,'',396,0,0),(19655,4429,6,389,0,'200.66.198.235',1159483182,1,0,1,1,1,0,'','','Leandro\n\nLos controles de la pantalla son xBrowse, ButtonBmp y Todos los botones de la derecha son TsButton de manuel mercado.. la clase te permite pintar los botones con aparencia degradada tanto cuando tiene el foco y aun no teniendolo..\ngracias por tu comentario.. la pantalla es el modulo principal de captura, pero depues esta la entrada de datos por teclado virtual.. y muchas opciones mas\nsaludos\nGABO','',0,'','1o29y0xr',1,0,'',389,0,0),(19656,4385,6,18,0,'200.67.136.213',1159486934,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:10bsxwl7]Muchas gracias Vikthor por contestar. \n\nHe hecho algunas rectificaciones en mi módulo, de las conclusiones que he sacado de su Method, pero me sigue dando error. Algo estoy haciendo mal. Este es mi código:\n[code:10bsxwl7]\nSTATIC FUNCTION REEMPLACE &#40;oDoc, cViejo, cNuevo&#41;\nLOCAL oSelection, oTexto, oFind, oFont\n\n         oSelection &#58;= oDoc\n         oTexto &#58;= oSelection&#58;Range\n         oFind  &#58;= oTexto&#58;Find\n         // oFont&#58;Set&#40;&quot;Color&quot;, RGB&#40;255,255,255&#41; &#41;  // aqui da error\n         // oFont&#58;Set&#40;&quot;Bold&quot;, &#46;t&#46;&#41;                            // aqui da error\n         oFind&#58;Text&#58;= cViejo\n         oFind&#58;Forward&#58;=&#46;T&#46;\n         oFind&#58;Wrap&#58;= INT&#40;1&#41;\n         oFind&#58;Format&#58;=&#46;f&#46;\n         oFind&#58;MatchCase&#58;=&#46;f&#46;\n         oFind&#58;Execute&#40;&#41;\n         // oFont&#58;Invoke&#40; &quot;Reset&quot; &#41;\n\n         WHILE oFind&#58;Found\n             oTexto&#58;Text&#58;=cNuevo\n             oFind&#58;Execute&#40;&#41;\n         Enddo\n  RETURN nil\n[/code:10bsxwl7]\n\n¿Podrias ayudarme?[/quote:10bsxwl7]\n\nCreo que te hace falta un :\n[code:10bsxwl7]\noFont  &#58;= oRange&#58;Get&#40;&quot;Font&quot;&#41; \n[/code:10bsxwl7]','',0,'gIA=','10bsxwl7',1,0,'',18,0,0),(19657,4440,2,138,0,'148.233.151.30',1159499778,1,0,1,1,1,1,'','','yo siempre he dicho que lo que entra por software, tarde o temprano sale por software (si no no existirian los \"cracks\"), definitivamente la mejor forma de proteger un programa es por medio de una llave de hardware de puerto paralelo o usb digamos que es la unica infalible.\n\na 32 bits puedes jugar un poco mas, por ejemplo nosotros tenemos un sistema de proteccion basado en advantage internet server que exige que el usuario tenga que conectarse a internet por lo menos una vez al mes para poder continuar usando el programa.\n\nla otra forma es generar archivos en directorios estrategicos, por ejemplo archivos .MEM disfrazados de DLLs en la carpeta windows/system\n\nesto de los archivos evita que copien el programa de una computadora a otra, pero no evita que se copie el disco original de instalacion\n\nlos sistemas de proteccion por internet tambien funcionan muy bien, los sistemas de clave y contra clave funcionan muy bien\n\nCuando el usuario arranca el programa y esta coentado a internet, se conecta nuestro servidor AIS se busca el numero nic de su tarjeta de red (para no tener problema cuando el usuario formatea o cambia el disco duro) en un dbf y se verifica en que fecha vence la suscripcion.','',0,'gIA=','3jwsrlx8',1,1159548421,'',138,1,0),(19658,4443,3,109,0,'200.77.28.210',1159500006,1,0,1,1,1,0,'','Color de fondo en ventana principal','Tengo fwh ver. 2.7, y el fondo de la ventana de mi aplicacion es de color \"BLANCO\" (Perfecto, asi lo quiere el cliente), con un bitmap del Logo de la empresa.\n\nPues bien MIGRE MI APLICACION a fwh 2.7 build de Feb 2006, y el fondo de la ventana principal la \"PINTA\" de GRIS (del color de los Botones) ??????.\n\nAclarando que SOLO HE RECOMPILADO la aplicacion, con las librerias del BUILD DE FEBRERO 2006, SIN CAMBIARLE NADA de NADA.\n\nMe falta ALGO???\n\nGracias','',0,'gIA=','3lim9avz',1,0,'',109,0,0),(19659,4412,3,159,0,'210.243.203.20',1159500657,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:36974ymf]Hi Jeff\n\nThank you very much for quick reply.  \n\nNow your solution to the problem in subject is complete.\n\nRegards\n\n- Ramesh Babu P[/quote:36974ymf]\n\nreference the web link:\n<!-- m --><a class=\"postlink\" href=\"http://www4.zzz.com.tw/phpbb2/viewtopic.php?t=26\">http://www4.zzz.com.tw/phpbb2/viewtopic.php?t=26</a><!-- m -->\n\nYou can get HDD Lower level serial-number!!','',0,'gA==','36974ymf',1,0,'',159,0,0),(19660,4385,6,9,0,'85.59.47.139',1159505450,1,0,1,1,1,1,'','','Vikthor,\n\nAhora funciona SET(\"Bold\", .t.).- Pero cuando intento cambiar el color del oRange  SET(\"Color\", 32768), me da el siguiente error:\n\nError description: Error Word.Application:DOCUMENTS:OPEN:RANGE:FONT/16389  E_FAIL: COLOR\n   Args:\n     [   1] = N   32768\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:COLOR(0)\n   Called from:  =&gt; HB_EXECFROMARRAY(0)\n   Called from: win32ole.prg =&gt; TOLEAUTO:SET(405)\n\n\n¿Alguna idea?\n\nMuchas gracias por tu ayuda','',0,'','2w5c0mlp',1,0,'',9,0,0),(19661,4443,3,2,0,'87.218.146.96',1159511214,1,0,1,1,1,1,'','','Ricardo,\n\nAñade esto:\n\n#define COLOR_WINDOW            5\n#define COLOR_WINDOWTEXT     8\n\nDEFINE WINDOW oWnd ... ;\nCOLOR GetSysColor( COLOR_WINDOWTEXT ), GetSysColor( COLOR_WINDOW )','',0,'','2um0xna9',1,0,'',2,0,0),(19662,4405,2,2,0,'87.218.146.96',1159511537,1,0,1,1,1,1,'','','Usa oPrn:cmSay( ... ) en vez de oPrn:Say(), asi imprimes el texto en una determinada posición absoluta.','',0,'','2n3bkjun',1,0,'',2,0,0),(19663,4393,3,15,0,'61.59.237.21',1159513625,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1tb6kntx]Richard,\n\nWhat do you mean with \"disappear\" ? Does the ActiveX gets hidden ?[/quote:1tb6kntx]\n\nHello Antonio,\n\nLook it.\nDEFINE WINDOW OK.\n[url=http&#58;//imageshack&#46;us:1tb6kntx][img:1tb6kntx]http&#58;//img222&#46;imageshack&#46;us/img222/5853/acxwndgu9&#46;jpg[/img:1tb6kntx][/url:1tb6kntx]\n\nDEFINE DIALOG\nREDEFINE ACTIVEX not display\n[url=http&#58;//imageshack&#46;us:1tb6kntx][img:1tb6kntx]http&#58;//img213&#46;imageshack&#46;us/img213/6762/acxdlgco5&#46;jpg[/img:1tb6kntx][/url:1tb6kntx]\n\nRichard','',0,'mA==','1tb6kntx',1,0,'',15,0,0),(19664,4393,3,2,0,'87.218.146.96',1159514708,1,0,1,1,1,1,'','','Richard,\n\nThat was fixed on a past FWH build.\n\nPlease email me your sample code and we will build it here.','',0,'mA==','199y3lln',1,0,'',2,0,0),(19665,4393,3,15,0,'61.59.237.21',1159516725,1,0,1,1,1,0,'','','Antonio,\n\nOk. I\'ll send to you.\n\nRichard','',0,'mA==','9pdp6iw2',1,0,'',15,0,0),(19666,4393,3,2,0,'87.218.146.96',1159517976,1,0,1,1,1,1,'','','Richard,\n\nTested and working ok using \"OWC11.Spreadsheet\"','',0,'mA==','28n8kqkd',1,0,'',2,0,0),(19667,4392,7,413,0,'194.106.16.43',1159519147,1,0,1,1,1,0,'','','Luis he descargado el fichero unas cuantas veces y me da error de cabecera y es imposible repararlo, no puedo descomprimirlo con winrar. Supongo que es del todo imposible arreglarlo, puedes enviarme el fichero a mi privado o volverlo a subir.\n\nMil gracias.','',0,'mA==','1jg96dox',1,0,'',413,0,0),(19668,4393,3,15,0,'61.59.237.21',1159520028,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:pginkt4r]Richard,\n\nTested and working ok using \"OWC11.Spreadsheet\"[/quote:pginkt4r]\n\nAntonio,\n\nYes, it\'s working within Dialog.\n\nBut I use some 3rd party ActiveX to help my customer.\n\nAny idea or suggestion?\n\nRichard','',0,'gA==','pginkt4r',1,0,'',15,0,0),(19669,4393,3,2,0,'87.218.146.96',1159524238,1,0,1,1,1,1,'','','What OCX is it ?','',0,'gA==','2le020n6',1,0,'',2,0,0),(19670,4444,3,335,0,'68.193.88.53',1159524648,1,0,1,1,1,0,'','Errors with new Dell touchpad','Antonio,\n\nAn important customer with a new Dell Inspiron laptop with XP multi-media version is getting GoUp() and GoDown() ??? errors with both FW 16 bits and FWH 32 bits apps.  Nobody else is getting these errors.\n\nIt seems that the touchpad on his new laptop may be causing the problem, but he isn\'t getting similar errors with any other apps on his computer.\n\nFrom the following exerpts from the error.log files from both 16 bit and 32 bit FW/FWH apps, can you see what may be causing these errors and how I can solve the problem?\n\nI will email to you a zip file containing the complete error.log files, in case more complete info is necessary.  Thanks for taking a look.\n\n- Roger\n\n[code:33ay859p]FIRST ERROR&#58;  &#40;With new Dell Inspiron laptop, XP multi-media version, touchpad&#41;\n\nUsing FW 16 bit app&#46;&#46;&#46;&#46;\n\nError description&#58; Error Objects/8  No Object Msg&#46;&#58; UNDEFINED&#58;GODOWN\nCalled from LOCKERRHAN&#40;0&#41;\nCalled from &#40;b&#41;INITHANDL$&#40;0&#41;\nCalled from GODOWN&#40;0&#41;\nCalled from TBUTTON&#58;HSCROLL&#40;0&#41;\nCalled from TBUTTON&#58;HANDLEEVEN&#40;0&#41;\nCalled from DIALOGBOX&#40;0&#41;\nCalled from TDIALOG&#58;ACTIVATE&#40;0&#41;\nCalled from CODEPROC&#40;1200&#41;\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1&#58;    O    Class&#58; ERROR\n     Param   2&#58;    B    &#123; || &#46;&#46;&#46; &#125; CodeBlock\n   &#40;b&#41;INITHANDL$\n     Param   1&#58;    O    Class&#58; ERROR\n   GODOWN\n   TBUTTON&#58;HSCROLL\n     Param   1&#58;    N    1\n     Param   2&#58;    N    0\n     Local   1&#58;    O    Class&#58; TBUTTON\n     Local   2&#58;    N    0\n     Local   3&#58;    N    1\n     Local   4&#58;    N    0\n   TBUTTON&#58;HANDLEEVEN\n     Param   1&#58;    N    276\n     Param   2&#58;    N    1\n     Param   3&#58;    N    0\n   DIALOGBOX\n     Param   1&#58;    N    5479\n     Param   2&#58;    C    &quot;MsgOK&quot;\n     Param   3&#58;    N    1254\n     Param   4&#58;    O    Class&#58; TDIALOG\n   TDIALOG&#58;ACTIVATE\n     Param   1&#58;    U    \n     Param   2&#58;    U    \n     Param   3&#58;    U    \n     Param   4&#58;    L    &#46;T&#46;\n     Param   5&#58;    U    \n     Param   6&#58;    L    &#46;T&#46;\n     Param   7&#58;    B    &#123; || &#46;&#46;&#46; &#125; CodeBlock\n     Param   8&#58;    U    \n     Param   9&#58;    U    \n     Local   1&#58;    O    Class&#58; TDIALOG\n     Local   2&#58;    N    1254\n     Local   3&#58;    U    \n     Local   4&#58;    U    \n     Local   5&#58;    U    \n     Local   6&#58;    O    Class&#58; TDIALOG\n\n//------------------------------------------------//\n\nSECOND ERROR&#58;\n\nWith FW 16 bit app&#46;&#46;&#46;&#46;\n\nWindows and MsDos versions&#58;  3&#46;95,  5&#46; 0\nApplication max file handles permited&#58; &#40; SetHandleCount&#40;&#41; &#41; 101\n\nWindows total applications running&#58;   2\n   1 C&#58;\\WINDOWS\\SYSTEM32\\USER&#46;EXE\n   2 explorer&#46;exe\n   3 WINWORD&#46;EXE\n   4 OUTLOOK&#46;EXE\n   5 C&#58;\\PROGRA~1\\LSA\\QCS360X\\S360&#46;DLL\n   6 C&#58;\\PROGRA~1\\LSA\\QCS360X\\PROPLUS4&#46;EXE\n   7 C&#58;\\WINDOWS\\SYSTEM32\\MMSYSTEM&#46;DLL\n   8 C&#58;\\WINDOWS\\SYSTEM32\\WOWEXEC&#46;EXE\n\nError description&#58; Error Objects/8  No Object Msg&#46;&#58; UNDEFINED&#58;GOUP\nCalled from LOCKERRHAN&#40;0&#41;\nCalled from &#40;b&#41;INITHANDL$&#40;0&#41;\nCalled from GOUP&#40;0&#41;\nCalled from TBUTTON&#58;HSCROLL&#40;0&#41;\nCalled from TBUTTON&#58;HANDLEEVEN&#40;0&#41;\nCalled from DIALOGBOX&#40;0&#41;\nCalled from TDIALOG&#58;ACTIVATE&#40;0&#41;\nCalled from DEMOFUNC&#40;988&#41;\nCalled from DOPROPLUS&#40;571&#41;\nCalled from &#40;b&#41;TIMESTART&#40;259&#41;\nCalled from TIMEREVENT&#40;0&#41;\nCalled from &#40;b&#41;TWINDOW&#40;0&#41;\nCalled from TWINDOW&#58;HANDLEEVEN&#40;0&#41;\nCalled from WINRUN&#40;0&#41;\nCalled from TWINDOW&#58;ACTIVATE&#40;0&#41;\nCalled from MAIN&#40;239&#41;\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1&#58;    O    Class&#58; ERROR\n     Param   2&#58;    B    &#123; || &#46;&#46;&#46; &#125; CodeBlock\n   &#40;b&#41;INITHANDL$\n     Param   1&#58;    O    Class&#58; ERROR\n   GOUP\n\n   TBUTTON&#58;HSCROLL\n     Param   1&#58;    N    0\n     Param   2&#58;    N    0\n     Local   1&#58;    O    Class&#58; TBUTTON\n     Local   2&#58;    N    0\n     Local   3&#58;    N    0\n     Local   4&#58;    N    0\n   TBUTTON&#58;HANDLEEVEN\n     Param   1&#58;    N    276\n     Param   2&#58;    N    0\n     Param   3&#58;    N    0\n   DIALOGBOX\n     Param   1&#58;    N    4623\n     Param   2&#58;    C    &quot;STARTUP_A&quot;\n     Param   3&#58;    N    1126\n     Param   4&#58;    O    Class&#58; TDIALOG\n   TDIALOG&#58;ACTIVATE\n     Param   1&#58;    U    \n     Param   2&#58;    U    \n     Param   3&#58;    U    \n     Param   4&#58;    L    &#46;T&#46;\n     Param   5&#58;    U    \n     Param   6&#58;    L    &#46;T&#46;\n     Param   7&#58;    B    &#123; || &#46;&#46;&#46; &#125; CodeBlock\n     Param   8&#58;    U    \n     Param   9&#58;    U    \n     Local   1&#58;    O    Class&#58; TDIALOG\n     Local   2&#58;    N    1126\n     Local   3&#58;    U    \n     Local   4&#58;    U    \n     Local   5&#58;    U    \n     Local   6&#58;    O    Class&#58; TDIALOG\n   DEMOFUNC\n     Param   1&#58;    N    77\n     Param   2&#58;    L    &#46;F&#46;\n     Local   1&#58;    U    \n     Local   2&#58;    L    &#46;F&#46;\n     Local   3&#58;    O    Class&#58; TDIALOG\n     Local   4&#58;    U    \n     Local   5&#58;    O    Class&#58; TGET\n     Local   6&#58;    O    Class&#58; TSAY\n     Local   7&#58;    N    0\n     Local   8&#58;    C    &quot; 0&quot;\n     Local   9&#58;    C    &quot;04/14/06&quot;\n     Local  10&#58;    U    \n     Local  11&#58;    U    \n     Local  12&#58;    C    &quot; &quot;\n     Local  13&#58;    C    &quot;This is a test&#46;&quot;\n\n//------------------------------------------------//\n\nTHIRD ERROR&#58;\n\nUsing FWH 2&#46;7 and xHB&#46;&#46;&#46;\n\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; GOUP\n   Args&#58;\n\nStack Calls\n===========\n   Called from GOUP&#40;0&#41;\n   Called from TBUTTON&#58;HSCROLL&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TBUTTON&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;0&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from MAIN&#40;1043&#41;  // Code to activate app\'s main window&#46;\n\nSystem\n======\n   CPU type&#58; Genuine Intel&#40;R&#41; CPU           T2050  @ 1&#46;60GHz\n   Hardware memory&#58; 1063641856 &#40;1038712 megas&#41;\n\n   Free System resources&#58; % 90\n        GDI    resources&#58; % 90\n        User   resources&#58; % 90\n\n   Windows and MsDos versions&#58;  5&#46; 1, **&#46; 2\n\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   GOUP\n     Local   1&#58;    U    \n     Local   2&#58;    U    \n     Local   3&#58;    N    0\n   TBUTTON&#58;HSCROLL\n     Param   1&#58;    N    0\n     Param   2&#58;    N    0\n     Local   1&#58;    O    Class&#58; TBUTTON\n     Local   2&#58;    N    0\n     Local   3&#58;    N    0\n     Local   4&#58;    N    0\n   TWINDOW&#58;HANDLEEVENT\n     Param   1&#58;    N    276\n     Param   2&#58;    N    0\n     Param   3&#58;    N    0\n   TBUTTON&#58;HANDLEEVENT\n     Param   1&#58;    N    276\n     Param   2&#58;    N    0\n     Param   3&#58;    N    0\n     Local   1&#58;    O    Class&#58; TBUTTON\n   _FWH\n     Param   1&#58;    N    0\n     Param   2&#58;    N    276\n     Param   3&#58;    N    0\n     Param   4&#58;    N    0\n     Param   5&#58;    N    20\n     Local   1&#58;    O    Class&#58; TBUTTON\n   WINRUN\n     Param   1&#58;    N    3343336\n   TMDIFRAME&#58;ACTIVATE\n     Param   1&#58;    C    &quot;MAXIMIZED&quot;\n     Param   2&#58;    U    \n     Param   3&#58;    U    \n     Param   4&#58;    B    &#123;|| &#46;&#46;&#46; &#125;\n     Param   5&#58;    U    \n     Param   6&#58;    U    \n     Param   7&#58;    U    \n     Param   8&#58;    B    &#123;|| &#46;&#46;&#46; &#125;\n\n//---------------------------------------//\n\nFOURTH ERROR&#58;\n\nUsing FWH 2&#46;7 and xHB&#46;&#46;&#46;\n\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; GOUP\n   Args&#58;\n\nStack Calls\n===========\n   Called from GOUP&#40;0&#41;\n   Called from TBUTTON&#58;HSCROLL&#40;0&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TBUTTON&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;0&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from MAIN&#40;1043&#41;  // Code to activate app\'s main window&#46;\n\nSystem\n======\n   CPU type&#58; Genuine Intel&#40;R&#41; CPU           T2050  @ 1&#46;60GHz\n   Hardware memory&#58; 1063641856 &#40;1038712 megas&#41;\n\n   Free System resources&#58; % 90\n        GDI    resources&#58; % 90\n        User   resources&#58; % 90\n\n   Windows and MsDos versions&#58;  5&#46; 1, **&#46; 2\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   GOUP\n     Local   1&#58;    U    \n     Local   2&#58;    U    \n     Local   3&#58;    N    0\n   TBUTTON&#58;HSCROLL\n     Param   1&#58;    N    0\n     Param   2&#58;    N    0\n     Local   1&#58;    O    Class&#58; TBUTTON\n     Local   2&#58;    N    0\n     Local   3&#58;    N    0\n     Local   4&#58;    N    0\n   TWINDOW&#58;HANDLEEVENT\n     Param   1&#58;    N    276\n     Param   2&#58;    N    0\n     Param   3&#58;    N    0\n   TBUTTON&#58;HANDLEEVENT\n     Param   1&#58;    N    276\n     Param   2&#58;    N    0\n     Param   3&#58;    N    0\n     Local   1&#58;    O    Class&#58; TBUTTON\n   _FWH\n     Param   1&#58;    N    0\n     Param   2&#58;    N    276\n     Param   3&#58;    N    0\n     Param   4&#58;    N    0\n     Param   5&#58;    N    20\n     Local   1&#58;    O    Class&#58; TBUTTON\n   WINRUN\n     Param   1&#58;    N    394514\n   TMDIFRAME&#58;ACTIVATE\n     Param   1&#58;    C    &quot;MAXIMIZED&quot;\n     Param   2&#58;    U    \n     Param   3&#58;    U    \n     Param   4&#58;    B    &#123;|| &#46;&#46;&#46; &#125;\n     Param   5&#58;    U    \n     Param   6&#58;    U    \n     Param   7&#58;    U    \n     Param   8&#58;    B    &#123;|| &#46;&#46;&#46; &#125;\n     Param   9&#58;    U    \n     Param  10&#58;    U    \n     Param  11&#58;    U    \n     Param  12&#58;    U    \n     Param  13&#58;    U    \n     Param  14&#58;    U    \n     Param  15&#58;    U    \n     Param  16&#58;    U    \n     Param  17&#58;    U    \n     Param  18&#58;    U    \n     Param  19&#58;    U    \n     Local   1&#58;    O    Class&#58; TMDIFRAME\n     Local   2&#58;    U    \n     Local   3&#58;    U    \n[/code:33ay859p]','',0,'AIA=','33ay859p',1,0,'',335,0,0),(19671,4383,3,148,0,'82.201.206.6',1159528959,1,0,1,1,1,0,'','','What about header files ? is there english for that Chinese Site ?','',0,'AIA=','6jb3m6el',1,0,'',148,0,0),(19672,4440,2,217,0,'200.159.120.34',1159529964,1,0,1,1,1,0,'','','Rene, como puede obtener el numero nic de la tarjeta de red?\n\nSaludos de Brasil\nMaurilio','',0,'AIA=','sqptp9pp',1,0,'',217,0,0),(19673,4444,3,2,0,'87.218.146.96',1159531088,1,0,1,1,1,1,'','','Roger,\n\nPlease try it again adding this method to class TButton:\n\nMethod HScroll() VIRTUAL','',0,'AIA=','2m4pdzbq',1,0,'',2,0,0),(19674,4440,2,2,0,'87.218.146.96',1159531264,1,0,1,1,1,1,'','','Maurilio,\n\nGetNetCardId()','',0,'AIA=','urnxw7mi',1,0,'',2,0,0),(19675,3308,6,180,0,'83.61.174.117',1159532131,1,0,1,1,1,0,'','','Me está ocurriendo el mismo problema. \nAquí está el enlace con la imagen :\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02008d0184/PintadoXbrowse.bmp.html\">http://hyperupload.com/download/02008d0 ... e.bmp.html</a><!-- m -->\n\nUn saludo,\nManuel','',0,'AIA=','15vv5tlt',1,0,'',180,0,0),(19676,3308,6,2,0,'87.218.146.96',1159532317,1,0,1,1,1,1,'','','Manuel,\n\nPor favor pon la imagen en <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y publica aqui la dirección que te da, gracias','',0,'AIA=','3ms7gxin',1,0,'',2,0,0),(19677,4393,3,707,0,'222.124.20.50',1159532885,1,0,1,1,1,0,'','','Enrico,\n\nThank to reply about timer on dialog\nI missing to add oTmr:hWndOwner := oDlg:hWnd\n\nNow work fine.\n\nHow about OCX with DIALOG ?\n\n\nBest Regard\nAreang','',0,'AIA=','33id6s6m',1,0,'',707,0,0),(19678,3308,6,180,0,'83.61.174.117',1159533384,1,0,1,1,1,0,'','','Esta es la dirección de la imagen:\n<!-- m --><a class=\"postlink\" href=\"http://img133.imageshack.us/img133/8103/pintadozh6.jpg\">http://img133.imageshack.us/img133/8103/pintadozh6.jpg</a><!-- m -->','',0,'AIA=','3redv5cb',1,0,'',180,0,0),(19679,4440,2,217,0,'200.159.120.34',1159534258,1,0,1,1,1,0,'','','Thanks!!!!\n\nRegards\nMaurilio','',0,'AIA=','24kqm95u',1,0,'',217,0,0),(19680,4285,3,69,0,'206.210.97.138',1159534933,1,0,1,1,1,0,'','','Antonio,\n\nI still get the error every now and then ... any idea how to get rid of it?\n\nThanks,\n\nJeff','',0,'AIA=','2yqznoei',1,0,'',69,0,0),(19681,4393,3,6,0,'82.57.161.102',1159535301,1,0,1,1,1,1,'','','[quote=&quot;areang&quot;:13ne1bno]Enrico,\n\nThank to reply about timer on dialog\nI missing to add oTmr:hWndOwner := oDlg:hWnd\n\nNow work fine.\n\nHow about OCX with DIALOG ?\n\n\nBest Regard\nAreang[/quote:13ne1bno]\n\nI don\'t know, sorry.\n\nEMG','',0,'gA==','13ne1bno',1,0,'',6,0,0),(19682,4417,2,124,0,'201.252.209.135',1159536356,1,0,1,1,1,0,'','','Antonio:\n\nGracias, tenemos avanzada la migración pero por otro lado por la forma en que programamos no es tan directa, y necesitamos pegarle bastantes recursos ( que como siempre son escasos ), puede ser la meta para fin de año o primer trimestre de 2007.\n\nTenes algo que podamos hacer mientras tanto?, para darle soporte a los clientes que estan actualmente funcionando.....\n\nGracias.\nRicardo.-','',0,'gA==','2vsub008',1,0,'',124,0,0),(19683,4445,3,137,0,'151.38.8.195',1159538138,1,0,1,1,1,0,'','Activex and enumerators','is it possibile to use string enumrators with fw activex?\n\nI don\'t know how to find the correspondent numeric of a string enumerator.\n\nRegards,\nRoberto Parisi','',0,'gA==','1o2stzx3',1,0,'',137,0,0),(19684,4446,6,127,0,'83.35.190.116',1159543608,1,0,1,1,1,0,'','Calculo del digito de control de cuenta bancaria','Ruego por favor si alguien sabe el algoritmo utilizado para el calculo del digito de control de un numero de cuenta bancaria.\n\nGracias','',0,'gA==','vx61qr8k',1,0,'',127,0,0),(19685,4393,3,2,0,'87.218.146.96',1159545219,1,0,1,1,1,1,'','','Areang,\n\n&gt; How about OCX with DIALOG ? \n\nWe have tested it and it works fine.','',0,'gA==','1ycyui3w',1,0,'',2,0,0),(19686,4285,3,2,0,'87.218.146.96',1159545433,1,0,1,1,1,1,'','','Jeff,\n\nCould you please check what free memory you have in Windows when you get such error (Ctrl+Alt+Del) ? Thanks,','',0,'gA==','1w96ayjp',1,0,'',2,0,0),(19687,4446,6,2,0,'87.218.146.96',1159545644,1,0,1,1,1,1,'','','Julio,\n\nAquí está el código en php. Es fácil pasarlo a Clipper:\n<!-- m --><a class=\"postlink\" href=\"http://bulma.net/body.phtml?nIdNoticia=1396\">http://bulma.net/body.phtml?nIdNoticia=1396</a><!-- m -->','',0,'gA==','gcoyqkck',1,0,'',2,0,0),(19688,4445,3,2,0,'87.218.146.96',1159545873,1,0,1,1,1,1,'','','Roberto,\n\nCould you please post a little sample of what you need ? thanks,','',0,'gA==','1madwm8w',1,0,'',2,0,0),(19690,4417,2,2,0,'87.218.146.96',1159546150,1,0,1,1,1,1,'','','Ricardo,\n\nEnvíame por email NTXSPA.OBJ, gracias.','',0,'gA==','18732eo6',1,0,'',2,0,0),(19691,4445,3,137,0,'151.38.8.195',1159546169,1,0,1,1,1,0,'','Activex and enumerators','oObj := TActiveX():New(...)\n\noObj:SetProp(\"Alignment\", taRight)\n\ntaRight is a numeric enumerator, but I don\'t know what number is, how to get it?\n\nI hope you understand my bad english.\n\nRegards,\nRoberto','',0,'gA==','isthk9lc',1,0,'',137,0,0),(19693,4445,3,2,0,'87.218.146.96',1159546446,1,0,1,1,1,1,'','','Roberto,\n\nI see what you mean, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\ntaRight is a constant value that may be defined in a header file. Anyhow, you may try with 0, 1, 2, 3, etc.','',0,'gA==','sv2yywtk',1,0,'',2,0,0),(19694,4445,3,137,0,'151.38.8.195',1159546738,1,0,1,1,1,0,'','Activex and enumerators','Many thx Antonio.\n\nOk... my problem is that with complex activex with tens of enumrations i don\'t know what number I must use. Is there a way to get a list (like an array) of enumrations? Reading many commercial activex docs I see they give for an activex the following groups:\n- Properties\n- Methods\n- Events\n- Enumrations\n\nI get properties, methods and events lists, but I don\'t know how to get enumerations list.\n\nThx in advance,\nRoberto','',0,'gA==','2gawi8t6',1,0,'',137,0,0),(19695,4446,6,180,0,'83.61.174.117',1159546861,1,0,1,1,1,0,'','','Aquí la tienes para clipper:\ncBanco:=SPACE(4)\ncSucursal:=SPACE(4)\ncRefer2:=SPACE(10)\n@ 24,0 SAY SPACE(80)\n@ 24,4 SAY \"Introduzca Banco, Sucursal y N£m. de cuenta......\"\nDibujaCuadro(11,8,15,70, \"W+/B\",.T.)\n @ 11,10 SAY \"  CALCULO DE DIGITOS DE CUENTA BANCARIA  \" COLOR \"W+/R\"\n SetCursor(3)\n@ 13,15 SAY \"  Banco    Sucursal    DC       Cuenta\" COLOR \"W+/B\"\n@ 14,15 SAY \"  [    ]    [    ]    [  ]   [          ]\" COLOR \"G/B\"\n@ 14,18 GET cBanco PICTURE \"9999\" COLOR \"GR+/B\"\n@ 14,28 GET cSucursal PICTURE \"9999\" COLOR \"GR+/B\"\n@ 14,45 GET cRefer2 PICTURE \"9999999999\" COLOR \"GR+/B\"\n  READ\ncRefer1=cBanco+cSucursal\n@ 14,38 SAY digBanco(cRefer1,cRefer2) COLOR \"W+/R\"\n\n\n************************************************************************* \nFUNCTION Digbanco(cRefer1,cRefer2) \n************************************************************************* \nLOCAL nDigitos := 10 \nLOCAL aDigito  := ARRAY( nDigitos ) \nLOCAL aPeso    := { 1, 2, 4, 8, 5, 10, 9, 7, 3, 6 } \nLOCAL nSuma    := 0 \nLOCAL nCont \nLOCAL nModulo \nLOCAL nResto \nLOCAL cDigito1 \nLOCAL cDigito2 \n \ncRefer1 := STRTRAN(cRefer1,\'-\') \ncRefer1 := STRTRAN(cRefer1,\'.\') \ncRefer1 := STRTRAN(cRefer1,\'/\') \ncRefer1 := STRTRAN(cRefer1,\' \') \ncRefer1 := RIGHT(cRefer1,nDigitos) \ncRefer1 := PADL(cRefer1,nDigitos,\'0\') \n \ncRefer2 := STRTRAN(cRefer2,\'-\') \ncRefer2 := STRTRAN(cRefer2,\'.\') \ncRefer2 := STRTRAN(cRefer2,\'/\') \ncRefer2 := STRTRAN(cRefer2,\' \') \ncRefer2 := RIGHT(cRefer2,nDigitos) \ncRefer2 := PADL(cRefer2,nDigitos,\'0\') \n \nFOR nCont := 1 to nDigitos \n   aDigito[ nCont ] := VAL( SUBSTR( cRefer1, nCont, 1 ) ) \n   nSuma += ( aDigito[ nCont ] * aPeso[ nCont ] ) \nNEXT \nnModulo  := 11 - INT( nSuma % 11 ) \nnResto   := IF( nModulo == 10, 1, IF( nModulo == 11, 0, nModulo ) ) \ncDigito1 := LTRIM(STR(nResto)) \n \nnSuma := 0 \nFOR nCont := 1 to nDigitos \n   aDigito[ nCont ] := VAL( SUBSTR( cRefer2, nCont, 1 ) ) \n   nSuma += ( aDigito[ nCont ] * aPeso[ nCont ] ) \nNEXT \nnModulo  := 11 - INT( nSuma % 11 ) \nnResto   := IF( nModulo == 10, 1, IF( nModulo == 11, 0, nModulo ) ) \ncDigito2 := LTRIM(STR(nResto)) \n \nRETURN(cDigito1+cDigito2)','',0,'','46tzn1kq',1,0,'',180,0,0),(19696,4446,6,519,0,'88.16.8.70',1159546946,1,0,1,1,1,0,'','','Function cDcontrol( cEntidad, cOficina, cCuenta )\n   Local nSuma, nPos, nResto, cDc\n   Local anPeso := {1,2,4,8,5,10,9,7,3,6}\n  \n   if empty(cCuenta)\n   return cCuenta\n   Endif\n\n \n\n   // Primer digito de control\n   nSuma := 0\n   FOR nPos := 1 TO 8\n      nSuma += Val( SubStr( cEntidad + cOficina, nPos, 1 ) ) * anPeso[nPos + 2]\n   NEXT nBuc\n   nResto := 11 - (nSuma % 11)\n   cDc    := If( nResto = 10, \'1\', If( nResto = 11, \'0\', Str( nResto, 1 ) ) )\n \n   // Segundo digito de control\n   nSuma := 0\n   FOR nPos := 1 TO 10\n      nSuma += Val( SubStr( cCuenta, nPos, 1 ) ) * anPeso[nPos]\n   NEXT nPos\n   nResto := 11 - (nSuma % 11)\n   cDc    += If( nResto = 10, \'1\', If( nResto = 11, \'0\', Str( nResto, 1 ) ) )\n \n  RETURN cDc\n\n\n\n /*','',0,'','13doy4mk',1,0,'',519,0,0),(19697,4445,3,2,0,'87.218.146.96',1159547753,1,0,1,1,1,1,'','','Roberto,\n\nNo, sorry, we don\'t know how to get those enumerations values yet. You may review the OCX with Microsoft OleView tool to get all its info.\n\nWhat OCX are you using ?','',0,'','25h2iry1',1,0,'',2,0,0),(19698,4447,20,446,0,'82.59.174.65',1159552293,1,0,1,1,1,0,'','CGI','Ciao a tutti,\nsto facendo alcuni test con applicazioni CGI, il problema è che mentre sembra funzionare con Iexplorer, con Mozilla Firefox mi visualizza in output tutti i tag HTML senza interpretarli, da cosa può dipendere ?\nUso Apache installato in locale e Firefox 1.5.0.7\n\nP.S. qualcuno conosce o ha mai usato il CMS Typo3 ?\n\nRoberto Chiaiese','',0,'','w2edyywt',1,0,'',446,0,0),(19699,4448,6,180,0,'83.61.174.117',1159553018,1,0,1,1,1,0,'','LISTBOX  versus TXBROWSE','Voy avanzando en el paso de FW a FWH. He llegado a los browses y he probado el XBrowse. Desde luego no hay color en cuanto a estética, pero me estoy encontrando algún problema que otro. Por ejemplo:\n\noLbx:bKeydown:={|nKey|BUSCATECLA(nKey,oLbx,oBtn7,cAnMes,nSerie,nRango),;\n                   ValidaAnMes(cAnMes,oBtnNuevo,oBtnModificar,oBtnBorrar,;\n                   oBtnImprimir) }\n\nva perfecta con LISTBOX. La función ValidaAnMes() activa/desactiva algunos botones según ciertos valores de cada registro. Con Xbrowse no tiene efecto alguno. En cambio, esta misma función se ejecuta desde otro control (un Combobox) y va perfecta, lo que me hace pensar que es cosa de bKeydown, que seguro que algo estaré haciendo mal.\n\nUn saludo,\nManuel','',0,'','1u08o6e1',1,0,'',180,0,0),(19700,4449,6,52,0,'201.212.71.153',1159553862,1,0,1,1,1,1,'','los Warnings de las clases','Amigos,\n\nMe estoy enloqueciendo con las clases tbtnget y tsbrowse, necesito migrar de 16 a 32 bits y no logro generar las clases sin las WARNING, alguien tiene la ts y tBtnGet que  no contengan estas WARNINGs?\n\nGracias.','',0,'','1zlqbe6u',1,0,'',52,0,0),(19701,4446,6,127,0,'83.35.190.116',1159556123,1,0,1,1,1,0,'','','Muchas gracias a todos, no solo el algoritmo, ya esta la función hecha.\n\nLo dicho muy agradecido. Un saludo.','',0,'','dk1aqduc',1,0,'',127,0,0),(19702,4449,6,362,0,'201.81.104.67',1159558267,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=587\">http://www.fivewin.com.br/exibedicas.asp?id=587</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=585\">http://www.fivewin.com.br/exibedicas.asp?id=585</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=257\">http://www.fivewin.com.br/exibedicas.asp?id=257</a><!-- m -->','',0,'','gdq7n43g',1,0,'',362,0,0),(19704,4449,6,52,0,'201.212.71.153',1159559020,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:20mqen10]http://www.fivewin.com.br/exibedicas.asp?id=587\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=585\">http://www.fivewin.com.br/exibedicas.asp?id=585</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=257\">http://www.fivewin.com.br/exibedicas.asp?id=257</a><!-- m -->[/quote:20mqen10]\n\nGracias.','',0,'gA==','20mqen10',1,0,'',52,0,0),(19705,4450,2,774,0,'200.72.65.192',1159560571,1,0,1,1,1,1,'','Dudas con TsBrowse','Hola a todos,, primero q nada me complace mucho pertenecer a este foro,, me ha sido de mucha ayuda,, LOS FELICITO !!!! sigan asi..\n\nBueno tengo el siguiente problema y no se si se puede solucionar\n\nUso TsBrowse,, nose si ese sera mi pecado... no use el LISTBOX de fivewin,, nose porque me tinco Tsbrowse...\n\nBueno el problema es o mejor dicho son varios::\n\n1) no puedo hacer q en el browse se vea las lineas a dos colores en forma intermedia... ya que no funciona bien,, se pinta al principio,, pero si habro otro Dialogo y lo mueve encima del browse,, este al repintarse queda en un solo color,,.. bueno que hice use un solo color,, ni MODO\n\n2) y este es el que me urge mas...:: \n\n       supongamos que hay una DBF crea asi..\n\nUSE TABLA1 NEW\nINDEX ON Tabla1-&gt;codigo   TAG OrdTabla1  FOR Tabla1-&gt;filtro=1\nINDEX ON Tabla1-&gt;codpago TAG OrdTabla2  FOR Tabla1-&gt;filtro=2\n\n\nen el primer indices tengo datos de facturas y en segundo tengo datos de pagos de las facturas\n\nImaginemos que crea en DIALOG con un browse donde listo todas las facturas del sistemas,, use el indice 1 y la base tabla1.\nluego al posicionarme dentro del browse sobre un registro cualquiera,, y seleccionarlo abro otro DIALOG con otro browse donde muestro el pago de dicha factura,, hasta aqui super bien...\n\nel problema es que como debo usar el indice 2 para el nuevo browse,,, el primer browse al repintarse tambien cambia ,,, ya que se trata de la misma base DBF,, existe alguna forma de que el browse trabaje con indice especifico...\no quizas yo lo empleo mal...\n\n\nhe aqui el codigo::\n\nUSE Tabla1 NEW ALIAS Tabla1 SHARED\nDATABASE oTabla1\noTabla1:SetOrder(1)\noTabla1:Gotop()\n\n\nREDEFINE BROWSE oTbr ID 1 OF oWndChilds[1] FONT oFont1\n\nADD COLUMN TO BROWSE oTbr DATA oTabla1:codigo;\n    HEADER  oemtoansi(\"Código\");\n    SIZE 270 ;\n    PICTURE \"@!\";\n    ALIGN DT_LEFT;\n    3DLOOK TRUE\n\noTbr:Setcolor({2,15},{;\n             nRGB(255,255,220),; //Fondo Linea\n             nRGB(255,200,255) ; //Lineas del Grid\n             })\n\noTbr:SetOdbf(oTabla1)\n\n//////////////////////////////////////////\n\nen el segundo browse \n\n/////////////////////////////////////////\n\n\noTabla1:SetOrder(2)\noTabla1:Gotop()\n\n\nREDEFINE BROWSE oTbr1 ID 2 OF oWnd FONT oFont1\n\nADD COLUMN TO BROWSE oTbr1 DATA oTabla1:codpago;\n    HEADER  \"Pago\";\n    SIZE 70 ;\n    PICTURE \"@!\";\n    ALIGN DT_LEFT;\n    3DLOOK TRUE\n\noTbr1:Setcolor({2,15},{;\n             nRGB(255,255,220),; //Fondo Linea\n             nRGB(255,200,255) ; //Lineas del Grid\n             })\n\noTbr1:SetOdbf(oTabla1)\n  \n//////////////////////////////////\n\nla pregunta repito en ADD COLUMN hay alguna manera de especificarle a la columna que quiero trabajar con la DBF tabla1, el campo codpago y con el segundo indice,, y no mencionarlo en forma general con  oTabla1:SetOrder(2)\n\n\n\nESPERANDO RESPUESTA\n\nGRACIAS','',0,'','2drs9ct5',1,0,'',774,0,0),(19706,4451,6,798,0,'201.1.14.133',1159561235,1,0,1,1,1,0,'','APPBOX para 32','Existe AppBox para FWH 2.6\n\nDaniel Segura\n<!-- e --><a href=\"mailto:ciacpd@terra.com.br\">ciacpd@terra.com.br</a><!-- e -->','',0,'','2rgf4r0y',1,0,'',798,0,0),(19707,4452,6,52,0,'201.212.71.153',1159562093,1,0,1,1,1,1,'','Una vida sin WARNING... ( quien mas se anima? )','Para quien quiera prenderse del proyecto,\nAca dejo scroll.c sin WARNING.\n\n[code:3b1n7lhe]// Modificado por José Gimenez para desplegar las barras de scroll proporcionales &#40;tipo W95/98/2000&#41;\n// Modified by Manuel Mercado for TSBrowse, last update&#58; February 27th, 2002\n\n#include &lt;WinTen&#46;h&gt;   // set proper path if needed\n#include &lt;Windows&#46;h&gt;\n\n#ifndef __HARBOUR__\n   #include &lt;ClipApi&#46;h&gt;  // set proper path if needed\n#else\n   #include &lt;hbapi&#46;h&gt;\n#endif\n\n#ifndef __FLAT__\n#ifndef __HARBOUR__\n\n   typedef struct\n   &#123;\n      DWORD cbSize ;\n      DWORD fMask ;\n      long  nMin ;\n      long  nMax ;\n      DWORD nPage ;\n      long  nPos ;\n      long  nTrackPos ;\n   &#125; SCROLLINFO ;\n   typedef SCROLLINFO FAR * LPSCROLLINFO ;\n\n   #define SIF_RANGE           1\n   #define SIF_PAGE            2\n   #define SIF_POS             4\n   #define SIF_DISABLENOSCROLL 8\n   #define SIF_TRACKPOS       16\n#endif\n#endif\n\n//----------------------------------------------------------------------------//\n\nstatic BOOL SetScrInfo&#40; HWND hWnd, int nScrollBar, LPSCROLLINFO si, BOOL lRedraw&#41;\n&#123;\n   #ifndef __HARBOUR__\n      typedef BOOL &#40; WINAPI * FN &#41;&#40; HWND, int, LPSCROLLINFO, BOOL &#41; ;\n\n      FN p = &#40; FN &#41; GetProcAddress&#40; GetModuleHandle&#40; &quot;USER&quot; &#41;, &quot;SetScrollInfo&quot; &#41; ;\n\n      if&#40; p &#41;\n         return &#40; p&#40; &#40; HWND &#41; hWnd, nScrollBar, si, lRedraw &#41; &#41; ;\n      else\n         return &#40; FALSE &#41; ;\n   #else\n      return SetScrollInfo&#40; hWnd, nScrollBar, si, lRedraw &#41; ;\n   #endif\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC &#40; SETSCROLLRANGE &#41; // &#40; hWnd, nFlags, nMin, nMax, lRepaint, lDisable, l32Bit &#41;\n#else\n   CLIPPER SETSCROLLR&#40; PARAMS &#41;    // ANGE&#40;&#41;\n#endif\n&#123;\n   SCROLLINFO si ;\n\n   si&#46;cbSize = sizeof&#40; si &#41; ;\n   si&#46;fMask  = SIF_RANGE ;\n\n   #ifndef __HARBOUR__\n      si&#46;nMin   = _parni&#40; 3 &#41; ;\n      si&#46;nMax   = _parni&#40; 4 &#41; ;\n\n      if &#40;_parl&#40;6&#41;&#41;\n         si&#46;fMask = SIF_RANGE + SIF_DISABLENOSCROLL ;\n\n      if &#40;_parl&#40;7&#41;&#41;\n         _retl&#40; SetScrInfo&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, &amp;si, _parl&#40; 5 &#41; &#41; &#41; ;\n      else                                          // NT does not support SetScrollInfo&#40;&#41; API function\n         _retni&#40; SetScrollRange&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;,        // its hWnd\n                                         _parni&#40; 2 &#41;,         // Scroll Bar flags\n                                         _parni&#40; 3 &#41;,         // Min\n                                         _parni&#40; 4 &#41;,         // Max\n                                         _parl&#40; 5 &#41; &#41; &#41; ;     // ReDraw\n   #else\n      si&#46;nMin   = hb_parni&#40; 3 &#41; ;\n      si&#46;nMax   = hb_parni&#40; 4 &#41; ;\n\n      if &#40;hb_parl&#40;6&#41;&#41;\n         si&#46;fMask = SIF_RANGE + SIF_DISABLENOSCROLL ;\n\n      if &#40;hb_parl&#40;7&#41;&#41;\n         hb_retl&#40; SetScrInfo&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, &amp;si, hb_parl&#40; 5 &#41; &#41; &#41; ;\n      else                                          // NT does not support SetScrollInfo&#40;&#41; API function\n         hb_retni&#40; SetScrollRange&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;,        // its hWnd\n                                         hb_parni&#40; 2 &#41;,         // Scroll Bar flags\n                                         hb_parni&#40; 3 &#41;,         // Min\n                                         hb_parni&#40; 4 &#41;,         // Max\n                                         hb_parl&#40; 5 &#41; &#41; &#41; ;     // ReDraw\n   #endif\n\n\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC &#40; SETSCROLLPOS &#41; // &#40; HWND, NFLAGS, NPOS, LREPAINT, LDISABLE, L32BIT &#41;\n#else\n   CLIPPER SETSCROLLP&#40; PARAMS &#41;  // OS\n#endif\n&#123;\n   SCROLLINFO si;\n\n   #ifndef __HARBOUR__\n\n      si&#46;cbSize = sizeof&#40; si &#41;;\n      si&#46;fMask  = SIF_POS;\n      si&#46;nPos   = _parni&#40; 3 &#41;;\n\n      if &#40;_parl&#40;5&#41;&#41;\n         si&#46;fMask = SIF_POS + SIF_DISABLENOSCROLL ;\n\n      if &#40; _parl&#40; 6 &#41; &#41;\n         _retl&#40; SetScrInfo&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, &amp;si, _parl&#40; 4 &#41; &#41; &#41; ;\n      else                                               // NT does not support SetScrollInfo&#40;&#41; API function\n         _retl&#40; SetScrollPos&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;,     // its hWnd\n                                       _parni&#40; 2 &#41;,     // Scroll Bar flags\n                                       _parni&#40; 3 &#41;,     // new Position\n                                       _parl&#40; 4 &#41; &#41; &#41; ; // repaint\n\n   #else\n      si&#46;cbSize = sizeof&#40; si &#41;;\n      si&#46;fMask  = SIF_POS;\n      si&#46;nPos   = hb_parni&#40; 3 &#41;;\n\n      if &#40;hb_parl&#40;5&#41;&#41;\n         si&#46;fMask = SIF_POS + SIF_DISABLENOSCROLL ;\n\n      if &#40; hb_parl&#40; 6 &#41; &#41;\n         hb_retl&#40; SetScrInfo&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, &amp;si, hb_parl&#40; 4 &#41; &#41; &#41; ;\n      else                                               // NT does not support SetScrollInfo&#40;&#41; API function\n         hb_retl&#40; SetScrollPos&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;,     // its hWnd\n                                       hb_parni&#40; 2 &#41;,     // Scroll Bar flags\n                                       hb_parni&#40; 3 &#41;,     // new Position\n                                       hb_parl&#40; 4 &#41; &#41; &#41; ; // repaint\n\n   #endif\n\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC &#40; GETSCROLLRANGE &#41;\n#else\n   CLIPPER GETSCROLLR&#40; PARAMS &#41;   // ANGE\n#endif\n&#123;\n   int iMin = 0, iMax = 0 ;\n\n   #ifdef __FLAT__\n      #ifndef __HARBOUR__\n         #define _storni&#40; x, y, z &#41; STORNI&#40; x, params, y, z &#41;\n      #endif\n   #endif\n\n   #ifndef __HARBOUR__\n      GetScrollRange&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;,  // its hWnd\n                      _parni&#40; 2 &#41;,           // Scroll bar flags\n                      &amp;iMin,\n                      &amp;iMax &#41; ;\n\n      _reta&#40; 2 &#41; ;                            // &#123; nMin, nMax &#125;\n\n      _storni&#40; iMin, -1, 1 &#41; ;\n      _storni&#40; iMax, -1, 2 &#41; ;\n\n   #else\n      GetScrollRange&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;,  // its hWnd\n                      hb_parni&#40; 2 &#41;,           // Scroll bar flags\n                      &amp;iMin,\n                      &amp;iMax &#41; ;\n\n      hb_reta&#40; 2 &#41; ;                            // &#123; nMin, nMax &#125;\n\n      hb_storni&#40; iMin, -1, 1 &#41; ;\n      hb_storni&#40; iMax, -1, 2 &#41; ;\n\n   #endif\n\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC &#40; GETSCROLLPOS &#41; // &#40; HWND, NFLAGS &#41;\n#else\n   CLIPPER GETSCROLLP&#40; PARAMS &#41; // OS\n#endif\n&#123;\n   #ifndef __HARBOUR__\n      _retni&#40; GetScrollPos&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;,     // its hWnd\n                               _parni&#40; 2 &#41; &#41; &#41; ;         // Scroll bar flags\n\n   #else\n      hb_retni&#40; GetScrollPos&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;,     // its hWnd\n                               hb_parni&#40; 2 &#41; &#41; &#41; ;         // Scroll bar flags\n\n   #endif\n\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC &#40; SETSCROLLINFO &#41; // &#40; HWND, NFLAGS, NSIZE, LREDRAW, LSHOWDISABLED &#41;\n#else\n   CLIPPER SETSCROLLI&#40; PARAMS &#41;   // NFO&#40;&#41;\n#endif\n&#123;\n   SCROLLINFO si;\n   si&#46;cbSize = sizeof&#40; si &#41;;\n   si&#46;fMask  = SIF_PAGE ;\n\n   #ifndef __HARBOUR__\n      si&#46;nPage  = _parni&#40; 3 &#41;;\n\n      if &#40; _parl&#40; 5 &#41; &#41;\n         si&#46;fMask += SIF_DISABLENOSCROLL ;\n\n      _retl&#40; SetScrInfo&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, &amp;si, _parl&#40; 4 &#41; &#41; &#41; ;\n\n   #else\n      si&#46;nPage  = hb_parni&#40; 3 &#41;;\n\n      if &#40; hb_parl&#40; 5 &#41; &#41;\n         si&#46;fMask += SIF_DISABLENOSCROLL ;\n\n      hb_retl&#40; SetScrInfo&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, &amp;si, hb_parl&#40; 4 &#41; &#41; &#41; ;\n\n   #endif\n\n&#125;\n\n//----------------------------------------------------------------------------//\n[/code:3b1n7lhe]','',0,'AIA=','3b1n7lhe',1,0,'',52,0,0),(19708,4453,6,73,0,'200.66.33.19',1159563861,1,0,1,1,1,0,'','visualizar ventanas java..','hola foro, tengo una pregunta a ver si se puede,\ntengo 2 pantallas hechas en java que despliega informacion y estas se actualizan cada minuto automaticamente, que es lo que quiero:\n1. poder cargar c/u de esas pantallas por medio de una ventana\n2. poder juntar esas 2 pantallas, que c/u ocupe la mitad de la ventana\n3. estar actualizando esas ventanas mostradas cada minuto\n4. eliminar la ventana de windows tan molesta, esto es para darle estetica\na lo mejor para acomodarlas en mi ventana pudiera ser por medio de coordenadas, alguna pista?\n\ngracias\nsalu2\npaco','',0,'AIA=','1jqjmb9g',1,0,'',73,0,0),(19709,4447,20,6,0,'82.59.197.87',1159564055,1,0,1,1,1,1,'','Re: CGI','[quote=&quot;chiaiese&quot;:562yqo9j]Ciao a tutti,\nsto facendo alcuni test con applicazioni CGI, il problema è che mentre sembra funzionare con Iexplorer, con Mozilla Firefox mi visualizza in output tutti i tag HTML senza interpretarli, da cosa può dipendere ?\nUso Apache installato in locale e Firefox 1.5.0.7[/quote:562yqo9j]\n\nControlla di aver inviato il Content-type:\n\n[code:562yqo9j]?? &#91;Content-type&#58; text/html&#93;\n?\n? &#91;&lt;HTML&gt;&#93;\n&#46;&#46;&#46;[/code:562yqo9j]\n\nEMG','',0,'gIA=','562yqo9j',1,0,'',6,0,0),(19710,4447,20,446,0,'82.59.175.220',1159566481,1,0,1,1,1,0,'','CGI','questo è il sorgente che dovrebbe creare la pagina\n\n        ? [Content-type: text/html]\n        ? [&lt;HTML&gt;]\n        ? [&lt;HEAD&gt;]\n        ? [&lt;TITLE&gt;My test&lt;/TITLE&gt;]\n        ? [&lt;/HEAD&gt;]\n        ? [&lt;BODY&gt;]\n        ? [&lt;p1&gt;Parametri ]+cUsr+\" \"+cPwd+[&lt;br&gt;&lt;/p1&gt;]\n        ? [&lt;A HREF = \"test.htm\"&gt;&lt;H3&gt;Torna indietro&lt;/H3&gt;&lt;/A&gt;]\n        ? [&lt;/BODY&gt;]\n        ? [&lt;/HTML&gt;]\n\ne questo è l\'output che genera a video su Firefox (IExplorer è ok)\n\nContent-type: text/html\n&lt;HTML&gt;\n&lt;HEAD&gt;\n&lt;TITLE&gt;My test&lt;/TITLE&gt;\n&lt;/HEAD&gt;\n&lt;BODY&gt;\n&lt;p1&gt;Parametri admin system    &lt;br&gt;&lt;/p1&gt;\n&lt;A HREF = \"test.htm\"&gt;&lt;H3&gt;Torna indietro&lt;/H3&gt;&lt;/A&gt;\n&lt;/BODY&gt;\n&lt;/HTML&gt;\n\nho trovato su internet qualcuno che segnala un errore simile, dicono sia un problema di MIME-TYPE ?? Cos\'è esattamente ?\n\nho provato anche a mettere il doppio ?? come nel tuo esempio ma mi dà errore del server 500\n\nciao e grazie\nRoberto','',0,'','2zxijvlr',1,0,'',446,0,0),(19711,4415,6,52,0,'201.212.71.153',1159568245,1,0,1,1,1,1,'','','Si queres enviarme un ejemplo lo compilo usando el entorno xMate, hasta el momento, no me dio mas que satisfacciones con el FWH (x)harbour, con clipper + FW no pude.','',0,'','3hqtbuv3',1,0,'',52,0,0),(19712,4429,6,376,0,'201.230.214.86',1159569570,1,0,1,1,1,0,'','Re: Va de nuevo el link...','Lo que hiciste es espectacular!!!\n\nTengo una aplicación para restaurantes que lo tengo en desarrollo pero me quedé en la selección de los platos. Al ver tu aplicación mejor no sigo. Para cuando lo termines a ver si te lo promociono en Perú.\n\n[quote=&quot;gabo&quot;:xwullxw6]espero que ahora si funcione\n\n[img:xwullxw6]http&#58;//img87&#46;imageshack&#46;us/img87/8489/touchnj7&#46;jpg[/img:xwullxw6]\n\nSaludos[/quote:xwullxw6]','',0,'iA==','xwullxw6',1,0,'',376,0,0),(19713,4454,6,694,0,'200.181.206.43',1159573091,1,0,1,1,1,1,'','problemas com rede!','Amigos, estou com uma REDE com IP fixo em cada MICRO, são 6 micros\n\n98   =SERVIDOR\nXP   =ESTAÇÃO\n2000=ESTAÇÃO \n****************\nEsta acontecendo muito de dar o erro: LOCK REQUIRED, mais eu travo o registro antes de alguma coisa... \n\nEu abro os arquivos assim: \\\\SERVIDOR\\banco\\arquiv.dbf  .or. CDX\nAlguma idéia?\nFIQUEM COM DEUS','',0,'iA==','ompeelpz',1,0,'',694,0,0),(19714,4455,1,312,0,'24.150.179.34',1159576662,1,0,1,1,1,0,'','Clipper 5.3b exe','Hi All \n\n I reinstalled my clipper 5.3a ... and applied the 5.3b US patch , but the clipper.exe doesn\'t seem take the patch .. all other files do. This has come about because I\'m now getting a memory low error and I\'m trying to get rid of it. Apparently, clipper.exe for 5.3b with the updates to the errsysw.prg gets rid of it. But I can\'t get it patched to 5.3b as i stated earlier. I was wondering if anyone would be willing to send the clipper.exe for 5.3b to me, or if anyone can assist in fixing it I would appreciate it.\n\nAfter the 5.3b patch ...  my clipper.exe is  date/time stamped 06/20/1995 5.30a and 208,185 in size.\n\nUpdate: found the solution:\n\nOptedit 5.3a update has to be installed first for the 5.3a and 5.3b updates can be patched. Last time it did it,  it so long ago I forgot about this requirement. \n\nThanks for reading.','',0,'iA==','3erbflmb',1,0,'',312,0,0),(19715,4392,7,598,0,'200.109.12.218',1159577096,1,0,1,1,1,1,'','','Ah... ya vi cual era el problema. el archivo es un .doc no un .zip lo que pasa es que hyperdowndoad.com le corta el nombre en el primer underscroll q consigue... pincha el link y cuando te indique guardar ponle el nombre que tu quieras con extension .doc','',0,'iA==','25si42o1',1,0,'',598,0,0),(19716,4456,19,337,0,'189.168.73.108',1159578491,1,0,1,1,1,0,'','O.T. Alguien conoce o sabe algo de SIGAL  / Clipper / Mexico','Hola a todos.\n\nalguien conoció el Programa SIGAL desarrollado en clipper?\nEL propósito de ese programa era para control volumétrico\nde gasolineras, así como para el monitoreo del despacho de \ncombusitible en los dispensarios.\n\nTengo un cliente que me pidió apoyo, pero actualmente la empresa\nque lo desarrolló dejó de existir.. asi que les agradeceré \nsi alguien pudiera proporcionarme algún teléfono, link o correo\nde gente que conozca dicho sistema\n\nSaludos\ny gracias de antemano!\n\nDavid Vega M.\n\ninformática C&amp;C','',0,'iA==','3p2dntec',1,0,'',337,0,0),(19719,4412,3,190,0,'202.65.134.41',1159583809,1,0,1,1,1,0,'','','Hi ssbbs\n\nPosting in Fivewin, Taiwan forum are very Interesting!.\n\nRegards,\n\n- Ramesh Babu P','',0,'iA==','1hhx8f54',1,0,'',190,0,0),(19720,4458,6,171,0,'71.232.193.197',1159584654,1,0,1,1,1,0,'','ESPACIOS EN SUB-MENU','Hola foro,\n\nHabra alguna forma de eliminar los ESPACIOS de mas que salen en los sub-menu.\nEs decir cuando usamos MENUITEM para crear los sub-menu los espacios a la derecha son mayores que el mensaje, eso se ve bien feo. He buscado por todo lado en la clase menu pero no encuentro nada que me ayude a solucionar ese problema de estetica.\n\nAlguna sugerencia?\n\nSaludos\n\n\nGeorge','',0,'iA==','110d9k90',1,0,'',171,0,0),(19721,4451,6,2,0,'87.218.146.96',1159592883,1,0,1,1,1,1,'','','Daniel,\n\nQue es AppBox ?','',0,'iA==','36ugp35r',1,0,'',2,0,0),(19722,4453,6,2,0,'87.218.146.96',1159593008,1,0,1,1,1,1,'','','Paco,\n\nHas probado a localizar el handle de cada ventana usando FindWindow() ? Una vez tengas sus handles puedes enviarles mensajes.','',0,'iA==','1ledyu2o',1,0,'',2,0,0),(19723,4454,6,2,0,'87.218.146.96',1159593251,1,0,1,1,1,1,'','','Aokisantos,\n\nNo debes usar Windows 98 como servidor para Windows XP. De hecho, no se deben usar en la misma red, 98 y XP.','',0,'iA==','37tv2591',1,0,'',2,0,0),(19724,4458,6,2,0,'87.218.146.96',1159593577,1,0,1,1,1,1,'','','George,\n\nPrueba a modificar rct.right en source\\winapi\\menus.c función MENUDRAWITEM()','',0,'iA==','1snzlzo1',1,0,'',2,0,0),(19725,4459,7,180,0,'83.35.19.209',1159598764,1,0,1,1,1,0,'','Dispositivo lector para Pocket PC ?','Desde hace algún tiempo y por simple curiosidad sigo este foro, aunque nunca pensé que pudieran afectarme este tipo de desarrollos. La cuestión es que tengo una aplicación para la generación de recibos de comunidades de regantes. La mecánica es sencilla: periódicamente se desplaza una persona a cada finca y toma nota de la lectura de los contadores, la introducen en el programa y generan los recibos correspondientes.\nAhora la idea es desarrollar un módulo para PPC y que directamente anoten la lectura en el PPC y luego volcar los datos al PC. Hasta ahí, por lo leido en este foro creo que no hay problema. Pero un cliente quiere ir más allá aún y es leer con un dispositivo conectado al PPC la lectura del contador para evitar errores y ahorrar tiempo. Mi pregunta es la siguiente: ¿existen estos dispositivos y es posible hacerlos funcionar desde una aplicación fivewin para Pocket PC? Ojo, me estoy refiriendo a un dispositivo que lea los números y los vuelque en un campo, no a un lector de códigos de barras.\nUn saludo,\nManuel','',0,'iA==','2sffk0gh',1,0,'',180,0,0),(19726,4447,20,6,0,'87.17.186.65',1159602107,1,0,1,1,1,1,'','Re: CGI','[quote=&quot;chiaiese&quot;:2b7dadyn]questo è il sorgente che dovrebbe creare la pagina\n\n        ? [Content-type: text/html]\n        ? [&lt;HTML&gt;][/quote:2b7dadyn]\n\nNo, così è sbagliato. Devi inviare una riga vuota tra il Content-type e il tag HTML. Fai esattamente come nel mio esempio e vedrai che funziona.\n\nEMG','',0,'gA==','2b7dadyn',1,0,'',6,0,0),(19727,4459,7,2,0,'87.218.146.96',1159602280,1,0,1,1,1,1,'','','Manuel,\n\nCualquier dispositivo que se conecte al Pocket PC por el puerto serie puede ser leido. Sólo hace falta que exista ese dispositivo y el API que proporcione su fabricante.','',0,'gA==','2tkk5a4i',1,0,'',2,0,0),(19728,4460,6,533,0,'88.8.29.161',1159604435,1,0,1,1,1,0,'','Empezando con XBROWSE','Buenos días Foro:\n\n   Mirad, estoy empezando a usar el xBrowse (fw 2.5) y en el ejemplo que trae veo que no puede ser colocado (x,y) donde quiero si lo defino desde código. ¿Hay alguna manera?\n\nUN SALUDO.','',0,'gA==','q3e66rbn',1,0,'',533,0,0),(19729,4461,7,533,0,'88.8.29.161',1159604579,1,0,1,1,1,0,'','para Antonio','Buenos Días Antonio:\n\n    ¿sabes algo de lo que te puse en el Post de las PDAS PTT2800?, ya que hize lo que me dijiste y no me funcionó.\n\n  UN SALUDO y muchas gracias','',0,'gA==','2rqskv4o',1,0,'',533,0,0),(19730,4393,3,15,0,'59.104.138.2',1159604675,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:e9pzjhhk]What OCX is it ?[/quote:e9pzjhhk]\n\nAntonio,\n\nPlease visit this web.\n[url:e9pzjhhk]http&#58;//www&#46;officeocx&#46;com/OfficeActiveX&#46;htm[/url:e9pzjhhk]\n\nRichard','',0,'kA==','e9pzjhhk',1,0,'',15,0,0),(19732,4463,3,533,0,'88.8.29.161',1159611883,1,0,1,1,1,0,'','Help with TxBrowse','Can I help me? \n\nI\'m trying to build an example with TxBrowse ( FW 2.5 ), but the brow always appears in coordenates (0,0). I would like to put on different coordenates. With resources I can, but in code NO. \n\nP.d. (Sorry, my English is so bad) \n\nREGARDS','',0,'kA==','3b1t7jn3',1,0,'',533,0,0),(19733,4463,3,2,0,'87.218.146.96',1159612239,1,0,1,1,1,1,'','','Mike,\n\noBrowse:nTop = ...\noBrowse:nLeft = ...\noBrowse:nWidth = ...\noBrowse:nHeight = ...','',0,'kA==','cnx4zpoq',1,0,'',2,0,0),(19734,4460,6,2,0,'87.218.146.96',1159612323,1,0,1,1,1,1,'','','Mike, \n\noBrowse:nTop = ... \noBrowse:nLeft = ... \noBrowse:nWidth = ... \noBrowse:nHeight = ...','',0,'kA==','264rqdxu',1,0,'',2,0,0),(19735,4365,7,2,0,'87.218.146.96',1159612837,1,0,1,1,1,1,'','','Mike,\n\nHaz lo siguiente antes de enlazar:\n\nlib /REMOVE:AYGSHELL.obj FiveCEC.lib','',0,'kA==','7vhdwnf0',1,0,'',2,0,0),(19736,4026,2,180,0,'83.35.19.209',1159612838,1,0,1,1,1,0,'','','Hola Antonio, he modificado la clase tal como señalas y ahora no funciona el wbrowse, no es posible pasar de un registro a otro con las teclas de cursos o con AvPag, RegPag , Inicio o Fin. La verdad es que me cuesta comprender como algo que funcionaba perfectamente en un ListBox no esté implementado de \"serie\" en TXBrowse para una cuestión que a mi me parece bastante importante y haya que meterse a modificar la clase con lo que esto conlleva para algunos de nosotros.\n\nSaludos,\nManuel Aranda','',0,'kA==','3f4a5rek',1,0,'',180,0,0),(19737,4461,7,2,0,'87.218.146.96',1159612871,1,0,1,1,1,1,'','','Mike,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=19735#19735\">http://fivetechsoft.com/forums/viewtopi ... 9735#19735</a><!-- m -->','',0,'kA==','2bso0rcx',1,0,'',2,0,0),(19738,4026,2,2,0,'87.218.146.96',1159613063,1,0,1,1,1,1,'','','Manuel,\n\nHay que quitar \"return nil\" de esa modificación.\n\nVamos a revisar lo que comentas del browse, gracias.','',0,'kA==','9b9x23dq',1,0,'',2,0,0),(19739,4464,2,292,0,'201.243.99.57',1159613970,1,0,1,1,1,1,'','Detectar Aplicación','Colegas,\n\nNecesito determinar si alguna aplicación está instalada \"excel\".','',0,'kA==','284w6luf',1,0,'',292,0,0),(19740,4026,2,180,0,'83.35.19.209',1159614041,1,0,1,1,1,0,'','','Ya me he dado cuenta y lo he hecho, pero ahora el comportamiento es  anómalo. Se ejecuta la función asociada pero se corresponde con el registro anterior, no en el que se sitúa el puntero. Además al pulsar INTRO para modificar el registro me ejecuta la acción dos veces seguidas.\nYa te digo, bastante extraño todo.\nDe momento estoy bloqueado con este tema y me estoy cuestionando el volver al LISTBOX. Esperaré a ver si encuentras una solución.\n\nSaludos y gracias,\nManuel','',0,'kA==','1m5dyft0',1,0,'',180,0,0),(19741,4408,6,292,0,'201.243.99.57',1159614487,1,0,1,1,1,1,'','Re: Crear funcion en tiempo de ejecucion','Carles,\nPuedes crear un programa con extesión PRG que posea la function\n\n/*\n// Programa TEST.PRG\n*/\n\nFUNCTION MYFUNCTION(xValue)\n   LOCAL nValue:=xValue*2\nRETURN nValue\n\nLuego lo compilas con xharbour generando un modulo TEST.HRB\nLo cargas en tu aplicacion HRBLOAD(\"TEST.HRB\")\n\ny finalmente llamas a tu funcion MYFUNCTION()\n\n[quote=&quot;Carles&quot;:1e1wqtjm]Hola,\n\nSabeis si es posible crear una funcion en tiempo de ejecucion ?\n\nGracias[/quote:1e1wqtjm]','',0,'gA==','1e1wqtjm',1,0,'',292,0,0),(19742,4444,3,335,0,'68.193.88.53',1159616579,1,0,1,1,1,0,'','','Antonio,\n\nMany thanks for your quick response. I think your suggested fix worked.\nI\'ll know for sure on Monday when I hear from my customer again. It\'s\nreally great to know that I can always count on you to help me out when\nI get stuck trying to solve a problem!\n\nAll the best,\n\n- Roger','',0,'gA==','22o5cfny',1,0,'',335,0,0),(19743,4451,6,798,0,'201.1.193.176',1159617157,1,0,1,1,1,0,'','','uma classe\n\nIncrustando ventanas externas / Embedding external windows\n\ntorna aplicações externas como se fosse feitas em fivewin\n\ndentro de uma dialog ou window voce coloca o internet explore como se fosse um componente, fica muito bom para fundo de dialog\n\nse quiser mando um exemplo em fw20 é so informar o email.\n\nbaixado de <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/ulfiles/Appbox.zip\">http://www.fivewin.info/ulfiles/Appbox.zip</a><!-- m -->\n\nDaniel Segura\n<!-- e --><a href=\"mailto:ciacpd@terra.com.br\">ciacpd@terra.com.br</a><!-- e -->','',0,'gA==','omick9x4',1,1159649077,'',798,1,0),(19744,4383,3,328,0,'190.56.8.232',1159619430,1,0,1,1,1,0,'','','ShumingWang, in your samples (sample1.prg &amp; sample2.prg) are this lines:\n\n[code:3vt2s1ir]\nobrow1 &#58;= TXBrowse&#40;&#41;&#58;New&#40; odlg &#41;\nobrow1&#58;SetMySQL&#40;@odb0&#41;\n[/code:3vt2s1ir]\n\ncan you show the code of the method [b:3vt2s1ir]SetMySql[/b:3vt2s1ir] ?\n\nBest regards.\n\nCarlos Sincuir','',0,'QIA=','3vt2s1ir',1,0,'',328,0,0),(19745,4458,6,171,0,'71.232.193.197',1159619844,1,0,1,1,1,0,'','','Antonio,\n\nGracias por la sugerencia. Ahi esta la solucion.\n\nEl problema que tengo es que al tratar de compilar el programa añadiendo el archivo \"MENUS.C\" me genera el siguiente error: \n\nSource File   Type     Description\nMenus.obj    Error     Couldn\'t build\n\nEstoy usando xHarbour Builder RC9 + FWH 2.7 aug 06\n\nColoque los include (.h) en el directorio del programa pero no corrigio el problema.\n\nSera que debo enlazar otro archivo adicional al MENU.C?\n\nSaludos\n\n\nGeorge','',0,'QIA=','30da9hzq',1,0,'',171,0,0),(19746,4450,2,774,0,'200.72.179.172',1159625230,1,0,1,1,1,1,'','','Al parecer nadie sabe ,,  ANTONIO alguna sugerencia\no de frenton no se puede hacer lo que digo...\n\nGRACIAS','',0,'QIA=','roxf4kn0',1,0,'',774,0,0),(19747,4447,20,446,0,'87.11.225.240',1159628126,1,0,1,1,1,0,'','CGI','è vero, ora funziona, sono necessari sia il doppio ?? che la riga vuota dopo il content-type\ngrazie Enrico.\n\nora, che tu sappia è possibile integrare i cgi con php ?\nho provato qualcosa del genere ma non ha funzionato:\n[code:21ykbmpf]\n?? &#91;Content-type&#58; application/php&#93;\n        ?\n        ? &#91;&lt;HTML&gt;&#93;\n        ? &#91;&lt;HEAD&gt;&#93;\n        ? &#91;&lt;TITLE&gt;Errore&lt;/TITLE&gt;&#93;\n        ? &#91;&lt;/HEAD&gt;&#93;\n        ? &#91;&lt;BODY&gt;&#93;\n        ? \'&lt;?php echo $_SERVER&#91;&quot;HTTP_USER_AGENT&quot;&#93;; ?&gt;\'\n        ? &#91;&lt;p1&gt;Parametri &#93;+cUsr+&quot; &quot;+cPwd+&#91;&lt;br&gt;&lt;/p1&gt;&#93;\n        ? &#91;&lt;A HREF = &quot;test&#46;htm&quot;&gt;&lt;H3&gt;Torna indietro&lt;/H3&gt;&lt;/A&gt;&#93;\n        ? &#91;&lt;/BODY&gt;&#93;\n        ? &#91;&lt;/HTML&gt;&#93;\n[/code:21ykbmpf]\n\nprobabilmente perché l\'output viene inviato direttamente al browser senza essere riprocessato dal server\nhai qualche idea ?\n\nRoberto','',0,'AIA=','21ykbmpf',1,0,'',446,0,0),(19748,4365,7,533,0,'88.8.29.161',1159630148,1,0,1,1,1,0,'','','Te comento,\n\n   He cogido, me ha compilado (quitando tambien las funciones de showkeyboard y hidekeyboard) , pero el resultado sigue siendo el mismo.','',0,'AIA=','ze6zpuuz',1,0,'',533,0,0),(19749,4447,20,6,0,'82.59.197.205',1159635105,1,0,1,1,1,1,'','Re: CGI','[quote=&quot;chiaiese&quot;:12xdzoom]ora, che tu sappia è possibile integrare i cgi con php ?[/quote:12xdzoom]\n\nNon credo. Se è il CGI che genera l\'output come può questo essere generato anche da un altro linguaggio server-side? Invece si può tranquillamente utilizzare il Javascript che è un linguaggio client-side.\n\nEMG','',0,'gA==','12xdzoom',1,0,'',6,0,0),(19750,4365,7,2,0,'87.218.146.96',1159636051,1,0,1,1,1,1,'','','Mike,\n\nPuedes copiar aqui el error que te aparece ?','',0,'gA==','15d8h5n6',1,0,'',2,0,0),(19751,4451,6,2,0,'87.218.146.96',1159636116,1,0,1,1,1,1,'','','Daniel,\n\nDe donde se puede descargar AppBox ?','',0,'gA==','1wg6yilz',1,0,'',2,0,0),(19752,4450,2,2,0,'87.218.146.96',1159636287,1,0,1,1,1,1,'','','A&amp;C,\n\nNo puedes tener dos tags de un índice activos al mismo tiempo.  O bien ocultas el browse que hay debajo, ó planteas el código e interface de otra forma.','',0,'gA==','31j3w3qf',1,0,'',2,0,0),(19753,4465,6,53,0,'189.139.23.53',1159637965,1,0,1,1,1,1,'','Centrar controles en Resource Builder','Amigos:\n\nHe estado probando Resource Builder 2.5 y la verdad es que me parece excelente y como dice el Master RF, da más de lo que vale, sin embargo no he encontrado la forma de centrar controles en un diálogo, por ejemplo, los clásicos botones ACEPTAR y CANCELAR deseo centrarlos en el diálogo que los contiene.\n\nEs o no posible ?, o es que no he visto cómo se hace ? <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos, Armando','',0,'gA==','2obsrwa3',1,0,'',53,0,0),(19755,4365,7,533,0,'88.8.29.161',1159645546,1,0,1,1,1,0,'','','A lo mejor no me he explicado bien, ya compila perfectamente el problema es que me sale el mismo error que te puse en el primer post, es decir, al ejecutar la aplicacion en estas PDA\'s sale un dialogo:\n\nCannot find &lt;nombre_programa&gt; (or one of its components). Make sure the path and filename are correct and all the required libraries are \navailable\" \n\nEl mismo ejecutable lo paso a mi PDA y funciona correctamente (HP con windows mobile 5)\n\nSi te sirve este dato:\n   \n     En las PDAs (PPT 2800 Symbol) en Version sale:\n\n        Microsoft Pocket PC\n        Version 3.0.11171 (Build 11178)\n        [...]\n        Processor: ARM SA1110','',0,'','1jowk2ci',1,0,'',533,0,0),(19756,4466,6,471,0,'190.40.127.19',1159646861,1,0,1,1,1,1,'','readbitmap usado directamente en twbrowse colapsa el sistema','Amigos necesito mostrar fotos en un browse\n\n\nle paso como parametro para que dibuje las fotos \n\n\noLbx:bLine:={ || { readbitmap(0,\"foto.bmp\"}}\n\nfunciona ok\n\npero despues de salir y entrar a esta opcion unas 10 veces\nla decima vez ya no muestra las fotos\n\nentiendo que con el objeto bitmap se tiene un objeto al que \npuedo destruitr con obmp:end() y se supone q libero el manejador\ny po rconsiguiente el recurso\n\npero en este caso  com hago por que supongo q mi error es que \nno estoy liberando recursos\n\n\n\nGracias por la ayuda','',0,'','j5injibi',1,0,'',471,0,0),(19757,4365,7,2,0,'87.218.146.96',1159649506,1,0,1,1,1,1,'','','Mike,\n\nPuedes por favor construir samples\\Tutor01 y probarlo en tu Pocket PC ? \n\nPor favor incluye en él las funciones que te he indicado anteriormente. Gracias,','',0,'','3rzodqd8',1,0,'',2,0,0),(19758,4466,6,2,0,'87.218.146.96',1159649761,1,0,1,1,1,1,'','','Vladimir,\n\nPrueba así:\n[code:2dw1ilhe]\nstatic hBitmap\n\n&#46;&#46;&#46;\n\noLbx&#58;bLine&#58;=&#123; || If&#40; hBitmap != nil, &#40; DeleteObject&#40; hBitmap &#41;, hBitmap &#58;= nil &#41;,&#41; &#123; hBitmap &#58;= readbitmap&#40; 0, &quot;foto&#46;bmp&quot; &#41; &#125;&#125; \n[/code:2dw1ilhe]','',0,'AIA=','2dw1ilhe',1,0,'',2,0,0),(19759,4458,6,2,0,'87.218.146.96',1159649990,1,0,1,1,1,1,'','','George,\n\nTienes que usar fwh\\tools\\clp2harb.exe menus.c menus_.c y luego usar menus_.c','',0,'AIA=','1ruhy394',1,0,'',2,0,0),(19760,4365,7,533,0,'88.8.29.161',1159650830,1,0,1,1,1,0,'','','Asi queda tutor01.prg:\n\n\n// FiveWin for Pocket PC - Hello World! sample\n\n//----------------------------------------------------------\n\nfunction Main()\n\n   MsgInfo( \"Hello World!\", \"FiveWin for Pocket PC\" )\n\nreturn nil\n\n// Windows CE temporary fix\nfunction CeSetmenu() ; return nil\nfunction GetMenu() ; return nil\nfunction ReadBitmap() ; return nil\nfunction PalBmpRead() ; return nil\n\n no tengo problemas de compilación, pero me da el mismo error:\n\n   \"Cannot find \'tutor01\' (or one of its components). Make sure the path and filename are correct and all the required libraries are available\"','',0,'AIA=','2bx56939',1,0,'',533,0,0),(19761,4467,6,496,0,'200.107.36.176',1159671408,1,0,1,1,1,0,'','Cómo subir archivos con FWH?','Un saludo amigos del foro.\n\nEstoy realizando una pequeña aplicación para el mantenimiento de tablas MySQL. Para esto uso ADO. \n\nEl problema que se me presenta es que tengo un campo con un enlace para una foto x. Cómo subo la foto para grabarlo en una carpeta del servidor web. Por via http o fttp, cúal es mejor y un ejemplo de cómo hacerlo. Y cómo haría en la forma inversa, es decir bajarlo y mostrarlo en mi aplicación heha en FWH.\n\nAclaro que no uso campos BLOB, las fotos deben estar fuera de la tabla.\nCon PHP esto se resuelve fácilmente, pero con FWH, no se cómo hacerlo.\n\nAyuda por favor.\n\n\nMarcelo Jingo','',0,'AIA=','3l5jgzh0',1,0,'',496,0,0),(19762,4412,3,190,0,'202.65.134.42',1159685645,1,0,1,1,1,0,'','','Hi Mr.Antonio\n\nI need few clarifications in respect of nSerialHd()\n\nThis is the code I used for testing nSerialHd().\n\n[quote:29tk280w]\n\n#include \"fivewin.ch\"\n\nFUNCTION Main()\n\nLOCAL cSerialNos := \"\", cDrive, n, nSerial, aDrives\n\ncSerialNos += \"Default Drive Serial No.\"+STR(nSerialHD())+CRLF+CRLF\n\naDrives := aDrives()\n\nFOR n = 1 TO LEN(aDrives)\n      cDrive  := aDrives[n]\n      nSerial := LTRIM(STR(nSerialHD( cDrive )))\n      IF cDrive == \"A:\"\n          IF IsDiskette()\n              cSerialNos += \"Drive \"+cDrive+\" Serial No.\"+LTRIM(STR(nSerialA()) )+CRLF\n          ELSE\n              cSerialNos += \"Drive \"+cDrive+\" Serial No.\"+LTRIM(STR(nSerialA()) )+\" ( No Floppy Present in Drive )\"+CRLF\n         ENDIF\n      ELSE\n         IF !IsCdRom(cDrive)\n            cSerialNos += \"Drive \"+cDrive+\" Serial No.\"+nSerial + CRLF\n         ELSE\n            cSerialNos += \"Drive \"+cDrive+\" is a CD Rom Drive\"+CRLF\n         ENDIF  \n      ENDIF\nNEXT\n\nMsgInfo(cSerialNos)\n\nRETURN nil\n\n[/quote:29tk280w]\n\nAnd following is the output generated by above program.\n\n[url=http&#58;//img141&#46;imageshack&#46;us/my&#46;php?image=hddslno1zb8&#46;png:29tk280w][img:29tk280w]http&#58;//img141&#46;imageshack&#46;us/img141/5077/hddslno1zb8&#46;th&#46;png[/img:29tk280w][/url:29tk280w]\n\nThe return value of nSerialHd() is exactly what?\na) Wether is the actual serial number printed on the Hard Disk Drive, \nb) Or it is a number generated by the OS ?\nc) Will it change when the Hard Disk Drive is formatted ?\nd) What are these numbers when called nSerialHd() without any parameter and\n   when called with nSerialHd(\"C:\"), nSerialHd(\"D:\") and so on...\n\nI have checked another library called \"smart.lib\" ( the link is provided in this topic itself )\nI am getting the following output.\n\n[url=http&#58;//img96&#46;imageshack&#46;us/my&#46;php?image=hddslno2ca6&#46;png:29tk280w][img:29tk280w]http&#58;//img96&#46;imageshack&#46;us/img96/4421/hddslno2ca6&#46;th&#46;png[/img:29tk280w][/url:29tk280w]\n\nWhen I compared Serial No., Model No. and Firmware shown in the above output, they are exactly the same printed on\nthe Hard Disk Drive.\n\nKindly clarify the points from a to d.\n\nRegards to you\n\n- Ramesh Babu P[code:29tk280w][/code:29tk280w][code:29tk280w][/code:29tk280w]','',0,'mIA=','29tk280w',1,0,'',190,0,0),(19763,4412,3,6,0,'87.16.213.36',1159687067,1,0,1,1,1,1,'','','[quote=&quot;RAMESHBABU&quot;:28nwtzq9]The return value of nSerialHd() is exactly what?[/quote:28nwtzq9]\n\nIt is the volume serial number generated by the OS (check console VOL command that is in hex).\n\n[quote=&quot;RAMESHBABU&quot;:28nwtzq9]c) Will it change when the Hard Disk Drive is formatted ?[/quote:28nwtzq9]\n\nYes.\n\nEMG','',0,'gA==','28nwtzq9',1,0,'',6,0,0),(19764,4412,3,190,0,'202.65.134.42',1159687334,1,0,1,1,1,0,'','','Hi ssbbs\n\nThank you very much for your \"SMART.LIB\".\n\nI need some guidance from you.\n\n[quote:2hy9d6xb]nRet   := SmartFindATADisk(255)[/quote:2hy9d6xb]\n\nis returning the correct number of ATA Disks fixed in the Computer System.\n\n[quote:2hy9d6xb]aData  :=  SmartIdentify(0)[/quote:2hy9d6xb]\n\nis holding the information about Model No, Serial No. and Firmware\n\nAs you said the \'0\' parameter used in SmartIdentify indicates `C Drive`.\nIs it `C` Drive or 1st or Default Hard Disk?\n\nAnd I want to know How to get the information abount the 2nd and other Hard disks fixed in the System.\n\nWhen I tested like\n\naData1 := SmartIdentify(1)\n\naData1 is holding the same information of \"aData  :=  SmartIdentify(0)\"\n\nPlease guide me how to get the information of 2nd and ... hard disks.\n\nRegards to you,\n\n- Ramesh Babu P','',0,'gA==','2hy9d6xb',1,0,'',190,0,0),(19765,4412,3,190,0,'202.65.134.42',1159687603,1,0,1,1,1,0,'','','Hello Mr.Enrico\n\nThank you very much for your quick reply.\n\nYour guidence is always very useful to me in particular and all of us in general.  Keep it up\n\nRegards to you\n\n- Ramesh Babu P','',0,'gA==','5udio0rc',1,0,'',190,0,0),(19766,4412,3,707,0,'222.124.20.50',1159689239,1,0,1,1,1,0,'','','Hi Rameshbabu,\n\nif you knew a serial number of hardisk, so you can write on your application like this :\ne.g\n\nif nSerialHd() == \"316371276\"\n   MsgAlert(\"yes, go to application\")\nelse\n   MsgAlert(\"No, you don\'t to continue..\")\nendif\nby the ghost application from Simanthec, can duplicate your hardisk serial number.\nIf you want to protect your EXE file, good way by motherboard serial number or information from BIOS of CMOS .\n\nBest Regard\nAreang','',0,'gA==','2rkabqls',1,0,'',707,0,0),(19767,4412,3,190,0,'202.65.134.42',1159689924,1,0,1,1,1,0,'','','Mr.Areang\n\nThanks for your suggestion.\n\nThe method we were discussing above is one among many ways to \nprotect the piracy to some extent (not fully!).\n\nBy the way do you any functions which can return the information about\n\"motherboard serial number or information from BIOS of CMOS .\" \n\nRegards to you\n\n- Ramesh Babu P','',0,'gA==','3gz3kopm',1,0,'',190,0,0),(19768,4412,3,707,0,'222.124.20.50',1159691488,1,0,1,1,1,0,'','','I will send you by your private email\n\nAreang','',0,'gA==','1uja0j7t',1,0,'',707,0,0),(19769,4412,3,65,0,'88.255.17.44',1159692892,1,0,1,1,1,0,'','','I always use the function GetNetCardID(), which gives Mac address of the ethernet card to protec my EXE\n\n[code:2sotrni6]\nif GetNetCardID&#40;&#41; &lt;&gt; \'XXXXXXX\'\n   MsgInfo&#40;\'This Computer is not licensed\'&#41;\nendif\n[/code:2sotrni6]','',0,'AIA=','2sotrni6',1,0,'',65,0,0),(19770,4412,3,190,0,'202.65.134.42',1159693834,1,0,1,1,1,0,'','','Hi betoncu\n\n[quote:3c2sfgme]\nif GetNetCardID() &lt;&gt; \'XXXXXXX\' \n   MsgInfo(\'This Computer is not licensed\') \nendif \n[/quote:3c2sfgme]\n\nThis is useful only when the user has an eithernet card in his P.C \nand to control multi-user  applications. It may not be useful for stand\nalone applications.\n\nIf the user has several eithernet cards in his P.C ?\nor\nIf he keep changing his eithernet cards frequently ?\n\n\nRegards to you\n\n- Ramesh Babu P','',0,'gA==','3c2sfgme',1,0,'',190,0,0),(19771,4364,3,190,0,'202.65.134.42',1159695487,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\n[quote:2vp7017y]\n\nCLIPPER TVSETCOLOR( PARAMS ) // hWnd, nClrFore, nClrBack \n{ \n   TreeView_SetBkColor( ( HWND ) _parnl( 1 ), _parnl( 3 ) ); \n   TreeView_SetTextColor( ( HWND ) _parnl( 1 ), _parnl( 2 ) );       \n} \n[/quote:2vp7017y]\n\nshould be included where?\n\nRegards \n\n-Ramesh Babu P','',0,'gA==','2vp7017y',1,0,'',190,0,0),(19772,4365,7,2,0,'87.218.146.96',1159700211,1,0,1,1,1,1,'','','Parece que hay alguna DLL de Windows Mobile que usa el EXE y no está en tu versión de Windows Mobile.','',0,'gA==','3qnj3xh8',1,0,'',2,0,0),(19773,4365,7,2,0,'87.218.146.96',1159700560,1,0,1,1,1,1,'','','Mike,\n\nInspecciona tu EXE con esta utilidad:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02dcd0cd18/windump.exe.html\">http://hyperupload.com/download/02dcd0c ... p.exe.html</a><!-- m -->\n\nEn la sección de Imports debería aparecerte solamente esto:\n[url=http&#58;//imageshack&#46;us:1gs8xd4e][img:1gs8xd4e]http&#58;//img436&#46;imageshack&#46;us/img436/8272/windumpoi9&#46;jpg[/img:1gs8xd4e][/url:1gs8xd4e]\nTambién puede ser que uno de los números que aparecen no existan en CoreDLL.DLL de tu Windows Mobile, por tratarse de una versión más antigua.','',0,'GA==','1gs8xd4e',1,0,'',2,0,0),(19774,4364,3,2,0,'87.218.146.96',1159700946,1,0,1,1,1,1,'','','Ramesh,\n\nInto source\\winapi\\treeview.c','',0,'GA==','167yxa11',1,0,'',2,0,0),(19775,4364,3,190,0,'202.65.134.42',1159712407,1,0,1,1,1,0,'','','Hello Mr. Antonio\n\nThank you for your suggestion.\n\nI have inserted the following code at the bottom of treeview.c in \nwinapi directory and tried to compile it.  It is giving the following\nerrors:\n\n[quote:n04rwgja]\nWarning W8019 treeview.c 234: Code has no effect in function TVSETCOLOR\n\nWarning W8019 treeview.c 235: Code has no effect in function TVSETCOLOR\n[/quote:n04rwgja]\n\nI don\'t have knowledge in C.  \n\nPlease advise me what to do. Or else please provide me the correct\ntreeview.c link to compile without any warnings.\n\n- Ramesh Babu P','',0,'gA==','n04rwgja',1,0,'',190,0,0),(19776,4468,6,53,0,'189.139.16.104',1159713426,1,0,1,1,1,1,'','Cual browse','Amigos del foro:\n\nActualmente utilizo la excelente clase TSBrowse de Manuel Mercado (saludos Manuel) con muy buenos resultados, sin embargo pretendo usar solo las clases nativas de FWH, cual browse me recomiendan para sustituir a la TSBrowse ?\n\nSaludos, Armando','',0,'gA==','3no6mjd7',1,0,'',53,0,0),(19777,4412,3,65,0,'88.255.17.12',1159717848,1,0,1,1,1,0,'','','Dear Ramesh,\n\nNowadays each computer has an ethernet card embedded on the main board.\n\nIf your customer changes the main board he will need another exe from you. But don\'t forget that he can change the harddisk also.\n\nIf there are two ethernet cards?\nMay be you are right here. I haven\'t check this function on a computer which has two ethernet cards. So I don\'t know.\n\nRegards,\nBirol Betoncu','',0,'gA==','1y768qfo',1,0,'',65,0,0),(19778,4468,6,138,0,'148.233.159.24',1159719425,1,0,1,1,1,1,'','','Los browses nativos de FW son el TWBrowse y XBrowse, en lo perosnla usaria yo el Xbrowse, funciona bastante bien.','',0,'gA==','3w2fc2kq',1,0,'',138,0,0),(19779,4468,6,53,0,'189.139.16.104',1159721216,1,0,1,1,1,1,'','','Maestro:\n\nTu palabra es ley, le voy a hincar el diente a la xBrowse.\n\nSaludos, Armando\n\nPD: Trabajando en domingo ???','',0,'gA==','38pcwv3o',1,0,'',53,0,0),(19780,2934,6,52,0,'201.212.71.153',1159722884,1,0,1,1,1,1,'','Re: Errores en cambio de 16 a 32 bits, Ayuda por favor','Podrías por favor pasarme la clase btnget para xharbour? \n\nGracias.\n\n[quote=&quot;sjingo&quot;:2cbpzbfa]Por fín he terminado de revisar y corregir los errores de declaración de variables, pero ahora estoy atorado en otros problemas durante la compilación y enlazado, estos son:\n\n1. No se puede compilar la librería HBOLE.LIB, me da el siguiente error:\n\nError: \'C:\\FWH\\LIB\\HBOLE.LIB\' contains invalid OMF record, type 0x21 (possibly COFF)\n\n2. Al compilar la librería tbtnget32.lib da el error\n\nError: Unresolved external \'_HB_FUN_TCLASS\' referenced from C:\\FWH\\LIB\\TBTNGET32.LIB|btnget\n\n3. Cómo transformo mi archivo de recursos .RES de 16 bits (generado en workshop) en uno de 32 bits?.\n\n\nUn saludo a todos y Gracias[/quote:2cbpzbfa]','',0,'gA==','2cbpzbfa',1,0,'',52,0,0),(19781,4364,3,2,0,'87.218.146.96',1159726855,1,0,1,1,1,1,'','','Ramesh,\n\nYou can ignore those warnings.','',0,'gA==','x5adcwdg',1,0,'',2,0,0),(19782,2934,6,496,0,'200.107.36.176',1159727832,1,0,1,1,1,0,'','','La lib que tengo lo uso con Harbour, así que a lo mejor no funcione con xharbour, pero si aún lo deseas por favor confirmar.\n\nun saludo \n\nMarcelo Jingo','',0,'gA==','3nfs20ji',1,0,'',496,0,0),(19783,2477,3,811,0,'200.118.216.53',1159729160,1,0,1,1,1,0,'','Librerias VeriFinger','Buenas Tardes Foro:\n\nRecientemente consegui las librerias para manejar censores de lectura de huella digital Verifinger.dll y ScanMan.dll, sin embargo tengo muchas dudas con las llamadas a funciones externas.\n\nEl siguiente fragmento es el que estoy usando en mi prueba:\n-----------------------------------------------------------------------------------\n....\nbioInicia=SMInitialize()\nMsgInfo(bioInicia,\"Inicializo\")      // Escribe 10813440 y esperaba otra cosa\nnIndex=SMGetScannerCount()\nMsgInfo(nIndex,\"Conectados\")   // Escribe 1179648 y esperaba 1\n\n....\nDLL32 FUNCTION SMInitialize() AS _INT PASCAL LIB \"SCANMAN.DLL\"\nDLL32 FUNCTION SMGetScannerCount() AS _INT PASCAL LIB \"SCANMAN.DLL\"\n-----------------------------------------------------------------------------------\n\nAl parecer recibo apuntadores pero ignoro como extraer el contenido de ese apuntador desde FWH. La documenacion define asi las funciones:\n\nINT SCANMAN_API SMInitialize();\nINT SCANMAN_API SMGetScannerCount();\n\nEn fin si alguien esta injteresado en experimentar sobre esas librerias, se las puedo enviar y de paso me podria compartir como puedo poner a funcionar el dichoso sensor.\n\nCordial Saludo, Ricardo','',0,'gA==','3d6rvv3y',1,0,'',811,0,0),(19784,2934,6,52,0,'201.212.71.153',1159730334,1,0,1,1,1,1,'','','[quote=&quot;sjingo&quot;:4h60fn58]La lib que tengo lo uso con Harbour, así que a lo mejor no funcione con xharbour, pero si aún lo deseas por favor confirmar.\n\nun saludo \n\nMarcelo Jingo[/quote:4h60fn58]\n\nSi por favor, en sí, el problema es con el archvo fwbmp.c que tiene los encabezados para CLIPPER.\n\nGracias.','',0,'gA==','4h60fn58',1,0,'',52,0,0),(19785,4469,6,574,0,'201.236.168.180',1159735467,1,0,1,1,1,0,'','DOS Error 4','Tengo una duda respecto a Xharbour, al compilar con harbour no tengo ningun problema, pero al compilar con xharbour al iniciar el programa me arroja DOS Error 4 DBFNTX/1001  open Error TABLA.DBF\nMe parece que es la cantidad de tablas abiertas, pero porque el error no se da con harbour que me funciona perfectamente, el problema se da con xharbour, tengo XP service pack 2, y las configuraciones del autoexec.nt y config.nt estan bien.','',0,'gA==','265biikc',1,0,'',574,0,0),(19786,4468,6,519,0,'88.16.10.122',1159740691,1,0,1,1,1,0,'','','No estoy de acuerdo con Rene, el xbrowse tiene muchos errores, para mi es el mejor browse es el de Hernan, va super rapido y no da ningun tipo de problemas.','',0,'gA==','2uvxswq8',1,0,'',519,0,0),(19787,2934,6,496,0,'200.107.36.176',1159742624,1,0,1,1,1,0,'','','Goosfancito\n\nMira tu correo\n\nSaludos\n\nMarcelo Jingo','',0,'gA==','273zp9g3',1,0,'',496,0,0),(19788,4468,6,496,0,'200.107.36.176',1159745072,1,0,1,1,1,0,'','','Hasta hoy estuve probando la XBROWSE por algunos días; lamentablemente he tenido que dejarlo porque lo veo algo complicado a la hora de trabajar con arrays y bmps, hay que meter más código, en fin, me dio tantos dolores de cabeza que decidí regresar al wbrowse de Hernan.  \n\nLo que me gustó del XBROWSE es que tiene implementado la ordenación automática de cada columna, así como el indicador de posicionamiento de registro actual a la izquierda; se puede tambien alterar la posición de las columnas, también se puede editar directamente las celdas al estilo de excel; me gustó la colocación de combobox, o boton en cada celda.\n\nSi el wbrowse de Hernán tuviera lo anterior sería el éxito; esperemos que Hernán no la haya abandonado porque no se ha sabido nada de la nueva versión.\n\nTodo depende de lo uno busque alcanzar y en el que se sienta más cómodo.\n\nMarcelo Jingo','',0,'gA==','1052pb3z',1,0,'',496,0,0),(19789,4468,6,53,0,'189.139.16.104',1159748331,1,0,1,1,1,1,'','','Frafive y SJingo:\n\nAgradezco mucho sus conceptos y sugerencias, y como dice sjingo depende de lo que uno busque y en el que se sienta cómodo.\n\nTSBrowse para mi esta excelente y me siento como pez en el agua perooo  lo que busco es no depender de LIBs de terceros, eso no quiere decir que no sean buenas, son excelentes, incluida la TWBrowse de Hernán, pero cada que actualizo la versión de FWH me resulta \"un parto\" volver a echarlas a andar.\n\nSaludos a todos, Armando','',0,'gA==','2se4kooy',1,0,'',53,0,0),(19790,4452,6,52,0,'201.212.71.153',1159750808,1,0,1,1,1,1,'','','No puedo con esta clase, como pasaría a ser para xharbour?\n\nGracias.\n[code:n4h6bf6x]#define __HARBOUR__\n#define STRICT\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n#ifdef __cplusplus\n extern &quot;C&quot; &#123;\n#endif\n\n#ifdef __cplusplus\n &#125;\n#endif\n\n#ifndef __HARBOUR__\n   CLIPPER GETBTN&#40; PARAMS &#41;  // &#40; hWnd, nLen &#41; --&gt; Nil\n#else\n   HARBOUR HB_FUN_GETBTN&#40; PARAMS &#41;\n#endif\n&#123;\n    HWND hWnd = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n\n    RECT rect;\n\n   GetClientRect&#40; hWnd, &amp;rect &#41;;\n   rect&#46;right -= &#40;short&#41;_parni&#40; 2 &#41; ;\n   SendMessage&#40; hWnd, EM_SETRECTNP, 0, &#40; LONG &#41; &amp;rect &#41;;\n&#125;[/code:n4h6bf6x]','',0,'AIA=','n4h6bf6x',1,0,'',52,0,0),(19791,2934,6,73,0,'200.66.32.97',1159751050,1,0,1,1,1,0,'','Re: Errores en cambio de 16 a 32 bits, Ayuda por favor','[quote=&quot;goosfancito&quot;:1axnqm84]Podrías por favor pasarme la clase btnget para xharbour? \n\nGracias.\n\n[quote=&quot;sjingo&quot;:1axnqm84]Por fín he terminado de revisar y corregir los errores de declaración de variables, pero ahora estoy atorado en otros problemas durante la compilación y enlazado, estos son:\n\n1. No se puede compilar la librería HBOLE.LIB, me da el siguiente error:\n\nError: \'C:\\FWH\\LIB\\HBOLE.LIB\' contains invalid OMF record, type 0x21 (possibly COFF)\n\n2. Al compilar la librería tbtnget32.lib da el error\n\nError: Unresolved external \'_HB_FUN_TCLASS\' referenced from C:\\FWH\\LIB\\TBTNGET32.LIB|btnget\n\n3. Cómo transformo mi archivo de recursos .RES de 16 bits (generado en workshop) en uno de 32 bits?.\n\n\nUn saludo a todos y Gracias[/quote:1axnqm84][/quote:1axnqm84]\n\n\n3. en mi experiencia personal, cuando cambie de 16 a 32 bits, algo sufri sobre todo con el archivo de recursos, yo usaba .rc y workshop, opte por probar pellesc y .res, al principio me dio muchos dolores de cabeza porque exporte mi archivo .rc y luego al abrirlo con pellesc tronaba, JCSO me paso un tip, al creal el ejecutable meter el archivo de recursos, luego abrir el pellesc y leer el .exe ahi automaticfamente te carga todos los recursos, ya nomas lo que hice fue grabarlos como .res y listo, a partir de ahi ningun problema, espero te sirva.\nsalu2\npaco','',0,'gA==','1axnqm84',1,0,'',73,0,0),(19792,4452,6,2,0,'87.218.146.96',1159758013,1,0,1,1,1,1,'','','Gustavo,\n[code:3m47yn30]\n#include &lt;hbapi&#46;h&gt; \n#include &lt;Windows&#46;h&gt; \n\nHB_FUNC&#40; GETBTN &#41;\n&#123; \n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;; \n   RECT rect; \n\n   GetClientRect&#40; hWnd, &amp;rect &#41;; \n   rect&#46;right -= hb_parni&#40; 2 &#41; ; \n   SendMessage&#40; hWnd, EM_SETRECTNP, 0, &#40; LONG &#41; &amp;rect &#41;; \n&#125;\n[/code:3m47yn30]','',0,'AIA=','3m47yn30',1,0,'',2,0,0),(19793,4469,6,2,0,'87.218.146.96',1159758347,1,0,1,1,1,1,'','','Omar,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.cms-track.com/Support/webhelp/html/idh_dos_error_4.htm\">http://www.cms-track.com/Support/webhel ... rror_4.htm</a><!-- m -->','',0,'AIA=','17f2d885',1,0,'',2,0,0),(19794,4448,6,2,0,'87.218.146.96',1159759517,1,0,1,1,1,1,'','','Manuel,\n\nAñade estas líneas al comienzo del método KeyDown():\n[code:84wzbl35]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TXBrowse\n\n   if &#58;&#58;bKeyDown != nil\n      Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41;\n   endif   \n\n   &#46;&#46;&#46;\n[/code:84wzbl35]','',0,'AIA=','84wzbl35',1,0,'',2,0,0),(19795,4414,2,2,0,'87.218.146.96',1159759794,1,0,1,1,1,1,'','','Lubin,\n\nLocaliza el handle de esa nueva ventana con FindWindow() y llama a SetForeGroundWindow( hWnd )','',0,'AIA=','jtngfuqo',1,0,'',2,0,0),(19796,4442,6,2,0,'87.218.146.96',1159759879,1,0,1,1,1,1,'','','Revisa samples\\TestMdi4.prg','',0,'AIA=','1rehw90i',1,0,'',2,0,0),(19797,4398,2,2,0,'87.218.146.96',1159759936,1,0,1,1,1,1,'','','Jorge,\n\nPlantéate pasarte a 32 bits usando FWH y Harbour/xharbour.','',0,'AIA=','10zd903m',1,0,'',2,0,0),(19798,4388,6,2,0,'87.218.146.96',1159760001,1,0,1,1,1,1,'','','En el autoexec.bat puedes salvar a un fichero la hora que es.','',0,'AIA=','ybvovf0v',1,0,'',2,0,0),(19799,4262,7,2,0,'87.218.146.96',1159760074,1,0,1,1,1,1,'','','Jose,\n\nQue error te da ?','',0,'AIA=','ajwx8az9',1,0,'',2,0,0),(19800,4322,6,2,0,'87.218.146.96',1159760117,1,0,1,1,1,1,'','','Rafael,\n\nSolucionado, te he enviado el fix, y será incluido en el próximo build.','',0,'AIA=','263dnhtu',1,0,'',2,0,0),(19801,4310,3,2,0,'87.218.146.96',1159760178,1,0,1,1,1,1,'','','Rafael,\n\nFixed, I have sent you the fix and it will be included in next FWH build.','',0,'AIA=','2m1z1ka3',1,0,'',2,0,0),(19802,4352,6,2,0,'87.218.146.96',1159760222,1,0,1,1,1,1,'','','Que errores ?','',0,'AIA=','14qen3l0',1,0,'',2,0,0),(19803,4290,6,2,0,'87.218.146.96',1159760283,1,0,1,1,1,1,'','','Syda,\n\nvamos a implementarlo en FWH también.','',0,'AIA=','2mpv401w',1,0,'',2,0,0),(19804,4452,6,52,0,'201.212.71.153',1159769781,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:34bbtkg7]Gustavo,\n[code:34bbtkg7]\n#include &lt;hbapi&#46;h&gt; \n#include &lt;Windows&#46;h&gt; \n\nHB_FUNC&#40; GETBTN &#41;\n&#123; \n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;; \n   RECT rect; \n\n   GetClientRect&#40; hWnd, &amp;rect &#41;; \n   rect&#46;right -= hb_parni&#40; 2 &#41; ; \n   SendMessage&#40; hWnd, EM_SETRECTNP, 0, &#40; LONG &#41; &amp;rect &#41;; \n&#125;\n[/code:34bbtkg7][/quote:34bbtkg7]\n\nVielen Danke meine Freund.','',0,'gIA=','34bbtkg7',1,0,'',52,0,0),(19805,4455,1,170,0,'80.170.38.185',1159774854,1,0,1,1,1,1,'','','Hello,\n\nPut the files provided with the Clipper 5.3b patch in the root directory of clipper (by default \\CLIP53), then load PATCH.EXE. This is the way for the\n5.3b international version.\n\nFiles to copy into Clipper 5.3 root directory :\n53A_BI.RTP\nPATCH.EXE\nCLIP53BI.TXT\n\nRegards,','',0,'gIA=','3bjbbfwn',1,0,'',170,0,0),(19806,4365,7,533,0,'88.8.29.161',1159777601,1,0,1,1,1,0,'','','Buenas días Antonio:\n\n    Creo que el enlace de la aplicacion no es correcto, me baja un windump.exe de 0 bytes. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','zo7le25c',1,0,'',533,0,0),(19807,4470,2,584,0,'85.91.80.130',1159785888,1,0,1,1,1,0,'','Angel Canudas Rey','Hola..\n\nMe gustaría saber si alguien tiene el correo o alguna página web de Angel Canudas,,, porque estuve buscando información y no encuentro nada..\n\nse agradece la colaboración\njosé manuel','',0,'gIA=','ypzfqbrn',1,0,'',584,0,0),(19808,4388,6,75,0,'88.0.181.121',1159786996,1,0,1,1,1,0,'','','Pero: ¿el autoexec.bat funciona en Windows XP\"? o ¿esta solución solo me valdría para  win &lt;= w98?','',0,'gIA=','b7vobp33',1,0,'',75,0,0),(19809,4365,7,2,0,'87.218.146.96',1159789613,1,0,1,1,1,1,'','','Mike,\n\nPrueba con este link:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/023141c273/windump.zip.html\">http://hyperupload.com/download/023141c ... p.zip.html</a><!-- m -->','',0,'gIA=','1s5hmnem',1,0,'',2,0,0),(19810,4452,6,2,0,'87.218.146.96',1159789716,1,0,1,1,1,1,'','','du bist willkommen','',0,'gIA=','2t50ty2n',1,0,'',2,0,0),(19811,4388,6,2,0,'87.218.146.96',1159789793,1,0,1,1,1,1,'','','c:\\windows\\system32\\autoexec.nt','',0,'gIA=','1eiuo0z6',1,0,'',2,0,0),(19812,4408,6,449,0,'212.64.224.241',1159790162,1,0,1,1,1,1,'','','Hola,\n\nSi ya he probe esta opcion pero  a veces me genera Gpf\'s. De todas maneras uso la version de harbour 0.45. Quizas una nueva me iria bien, no se. La idea de todas maneras es esta. A una aplicacion cerrada poder ir añadiendole modulos. \n\nGracias.','',0,'gIA=','2441xnit',1,0,'',449,0,0),(19813,4408,6,2,0,'87.218.146.96',1159791705,1,0,1,1,1,1,'','','Carles,\n\nPor qué no usas DLLs de PRG en su interior ? Añadiendo nuevas DLLs ó reemplazándolas, amplias la funcionalidad de la aplicación.','',0,'gIA=','2x6jr5s3',1,0,'',2,0,0),(19814,4458,6,171,0,'71.232.193.197',1159793139,1,0,1,1,1,0,'','','Antonio,\n\nHice lo anterior, pero sigue el mismo mensaje \"Error menus_.obj couldn\'t build\".\n\nEste es el codigo de menus_.c generadro por clp2harb\n\n[code:1h4b4f1n]\n#define OEMRESOURCE\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\nBOOL bStrAt&#40; BYTE bChar, LPSTR szText &#41;;\nLPSTR StrToken&#40; LPSTR szText, WORD wOcurrence, BYTE bSeparator, LPWORD pwLen &#41;;\n\nvoid WindowBoxIn&#40; HDC hDC, RECT * pRect &#41;;\nvoid WndDrawBox&#40; HDC hDC, RECT * rct, HPEN hPUpLeft, HPEN hPBotRit &#41;;\nvoid WindowInset&#40; HDC hDC, RECT * pRect &#41;;\nvoid WindowRaised&#40; HDC hDC, RECT * pRect &#41;;\nvoid DrawBitmap&#40; HDC, HBITMAP, WORD, WORD, WORD, WORD, DWORD &#41;;\nvoid DrawMasked&#40; HDC, HBITMAP, WORD, WORD &#41;;\nvoid DrawGrayed&#40; HDC, HBITMAP, int, int &#41;;\nvoid RectDisable&#40; HDC, LPRECT &#41;;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; CREATEMENU&#41;\n&#123;\n   _retnl&#40; &#40; LONG &#41; CreateMenu&#40;&#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; CREATEPOPUPMENU&#41;\n#else\n   HB_FUNC&#40; CREATEPOPU&#41;\n#endif\n&#123;\n   _retnl&#40; &#40; LONG &#41; CreatePopupMenu&#40;&#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; TRACKPOPUP&#41;\n&#123;\n  _retl&#40; TrackPopupMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 4 &#41;,\n         _parni&#40; 3 &#41;, _parni&#40; 5 &#41;, &#40; HWND &#41; _parni&#40; 6 &#41;, NULL &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; ENABLEMENUITEM&#41;\n#else\n   HB_FUNC&#40; ENABLEMENU&#41;   // ITEM&#40;&#41;\n#endif\n&#123;\n   _retl&#40; EnableMenuItem&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; CHECKMENUITEM&#41;   // &#40;&#41;\n#else\n   HB_FUNC&#40; CHECKMENUI&#41;   // TEM&#40;&#41;\n#endif\n&#123;\n   _retl&#40; CheckMenuItem&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; GETMITEMCOUNT&#41;   // &#40;&#41;\n#else\n   HB_FUNC&#40; GETMITEMCO&#41;   // UNT&#40;&#41;\n#endif\n&#123;\n   _retni&#40; GetMenuItemCount&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; GETMITEMID&#41;    // hMenu, nPos\n&#123;\n   _retni&#40; GetMenuItemID&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; GETSYSTEMMENU&#41;    // &#40;&#41;\n#else\n   HB_FUNC&#40; GETSYSTEMM&#41;    // ENU&#40;&#41;\n#endif\n&#123;\n   _retnl&#40; &#40; LONG &#41; GetSystemMenu&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, _parl&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; DESTROYMENU&#41;   //  &#40;&#41;   hMenu\n#else\n   HB_FUNC&#40; DESTROYMEN&#41;   //  U&#40;&#41;   hMenu\n#endif\n&#123;\n   _retl&#40; DestroyMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; GETSUBMENU&#41;    // hMenu, nPos\n&#123;\n   _retnl&#40; &#40; LONG &#41; GetSubMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; GETMENUSTRING&#41;    // &#40;&#41;   hMenu, nId, nPosOrValue\n#else\n   HB_FUNC&#40; GETMENUSTR&#41;    // ING&#40;&#41;   hMenu, nId, nPosOrValue\n#endif\n&#123;\n   BYTE bBuffer&#91; 200 &#93;;\n   WORD wLen = GetMenuString&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, &#40; char * &#41; bBuffer,\n                              199, _parni&#40; 3 &#41; &#41;;\n\n   _retclen&#40; &#40; char * &#41; bBuffer, wLen &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; GETMENUSTATE&#41;    // &#40;&#41;   hMenu, nId, nFlags\n#else\n   HB_FUNC&#40; GETMENUSTA&#41;    // TE&#40;&#41;   hMenu, nId, nFlags\n#endif\n&#123;\n   _retni&#40; GetMenuState&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; DRAWMENUBAR&#41;    // &#40;&#41;    hWnd\n#else\n   HB_FUNC&#40; DRAWMENUBA&#41;    // R&#40;&#41;    hWnd\n#endif\n&#123;\n   DrawMenuBar&#40; &#40; HWND &#41; _parnl&#40; 1 &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; HILITEMENUITEM&#41;  // &#40;&#41;  hWnd, hMenu, idItem, nHiliteFlags\n#else\n   HB_FUNC&#40; HILITEMENU&#41;  // ITEM&#40;&#41;  hWnd, hMenu, idItem, nHiliteFlags\n#endif\n&#123;\n   _retl&#40; HiliteMenuItem&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; HMENU &#41; _parnl&#40; 2 &#41;,\n                          _parni&#40; 3 &#41;, _parni&#40; 4 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; LOADMENU&#41;\n&#123;\n   _retnl&#40; &#40; LONG &#41; LoadMenu&#40; &#40; HINSTANCE &#41; _parnl&#40; 1 &#41;,\n                     &#40; LPSTR &#41; IF&#40; ISCHAR&#40; 2 &#41;, _parc&#40; 2 &#41;,\n                                   MAKEINTRESOURCE&#40; _parni&#40; 2 &#41; &#41; &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; APPENDMENU&#41;\n&#123;\n   _retl&#40; AppendMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, &#40; UINT &#41; _parnl&#40; 2 &#41;, _parnl&#40; 3 &#41;,\n                       IF&#40; ISCHAR&#40; 4 &#41;, _parc&#40; 4 &#41;, &#40; LPSTR &#41; _parnl&#40; 4 &#41; &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; SETMENU&#41;\n&#123;\n   _retl&#40; SetMenu&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; HMENU &#41; _parnl&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; MODIFYMENU&#41;\n&#123;\n   _retl&#40; ModifyMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, &#40; UINT &#41; _parni&#40; 2 &#41;,\n          _parni&#40; 3 &#41;, &#40; UINT &#41; _parni&#40; 4 &#41;,\n          IF&#40; ISCHAR&#40; 5 &#41;, _parc&#40; 5 &#41;, &#40; LPSTR &#41; _parnl&#40; 5 &#41; &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; INSERTMENU&#41; // &#40; hMenu, nIdItem, nFlags, nNewItem, cPrompt &#41; --&gt; lSuccess\n&#123;\n   _retl&#40; InsertMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41;,\n                      _parni&#40; 4 &#41;, _parc&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; REMOVEMENU&#41; // &#40; hMenu, nItem, nFlags &#41; --&gt; lSuccess\n&#123;\n   _retl&#40; RemoveMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;,\n                      &#40; UINT &#41; _parni&#40; 2 &#41;,\n                      &#40; UINT &#41; _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; MENUDRAWITEM&#41; // &#40; pDrawItemStruct, cPrompt, lTop, hBitmap &#41;\n#else\n   HB_FUNC&#40; MENUDRAWIT&#41; // EM&#40; pDrawItemStruct, cPrompt, lTop, hBitmap &#41;\n#endif\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n   LPSTR szPrompt = _parc&#40; 2 &#41;;\n   BOOL bTab = bStrAt&#40; 9, szPrompt &#41;;\n   WORD wLen;\n   BOOL bTop = _parl&#40; 3 &#41;;\n   HPEN hNormal;\n   HBRUSH hBrush;\n   LOGBRUSH lb;\n   RECT rct;\n   HBITMAP hBmp = &#40; HBITMAP &#41; _parnl&#40; 4 &#41;;\n\n   switch&#40; lpdis-&gt;itemAction &#41;\n   &#123;\n      case ODA_DRAWENTIRE&#58;\n      case ODA_SELECT&#58;\n           lb&#46;lbStyle = BS_SOLID;\n\n           lb&#46;lbColor = GetSysColor&#40; COLOR_MENU &#41;;\n           hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n           FillRect&#40; lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem, hBrush &#41;;\n           DeleteObject&#40; hBrush &#41;;\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_SELECTED &amp;&amp;\n               ! &#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41; &#41;\n           &#123;\n              lb&#46;lbColor = GetSysColor&#40; COLOR_HIGHLIGHT &#41;;\n              SetBkColor&#40; lpdis-&gt;hDC, GetSysColor&#40; COLOR_HIGHLIGHT &#41; &#41;;\n              SetTextColor&#40; lpdis-&gt;hDC, GetSysColor&#40; COLOR_HIGHLIGHTTEXT &#41; &#41;;\n              lpdis-&gt;rcItem&#46;left += 19;\n           &#125;\n           else\n              lb&#46;lbColor = GetSysColor&#40; COLOR_MENU &#41;;\n\n           hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n           FillRect&#40; lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem, hBrush &#41;;\n           DeleteObject&#40; hBrush &#41;;\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_SELECTED &amp;&amp;\n              ! &#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41; &#41;\n              lpdis-&gt;rcItem&#46;left -= 19;\n\n           rct&#46;top    = lpdis-&gt;rcItem&#46;top;\n           rct&#46;left   = lpdis-&gt;rcItem&#46;left;\n           rct&#46;right  = 7;\n           rct&#46;bottom = lpdis-&gt;rcItem&#46;bottom - 1;\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_SELECTED &#41;\n              if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41; &amp;&amp;\n                  ! &#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41; &#41;\n                 if&#40; hBmp &#41;\n                    WindowRaised&#40; lpdis-&gt;hDC, &amp;rct &#41;;\n                 else\n                 &#123;\n                     lb&#46;lbColor = GetSysColor&#40; COLOR_HIGHLIGHT &#41;;\n                     hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n                     rct&#46;right += 2;\n                     rct&#46;bottom++;\n                     FillRect&#40; lpdis-&gt;hDC, &amp;rct, hBrush &#41;;\n                     rct&#46;right -= 2;\n                     rct&#46;bottom--;\n                     DeleteObject&#40; hBrush &#41;;\n                 &#125;\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41;\n           &#123;\n              HBITMAP hBmp = LoadBitmap&#40; 0, MAKEINTRESOURCE&#40; OBM_CHECK &#41; &#41;;\n\n              if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_SELECTED &#41; &#41;\n                 DrawGrayed&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                             lpdis-&gt;rcItem&#46;left + 1 &#41;;\n              else\n                 DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                             lpdis-&gt;rcItem&#46;left + 1 &#41;;\n              DeleteObject&#40; hBmp &#41;;\n              // WindowInset&#40; lpdis-&gt;hDC, &amp;rct &#41;;\n           &#125;\n\n           if&#40; hBmp &#41;\n           &#123;\n              if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41; &#41;\n                 DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                             lpdis-&gt;rcItem&#46;left + 1 &#41;;\n              else\n                 if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_SELECTED &#41; &#41;\n                    DrawGrayed&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                                lpdis-&gt;rcItem&#46;left + 1 &#41;;\n                 else\n                    DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                                lpdis-&gt;rcItem&#46;left + 1 &#41;;\n           &#125;\n\n           lpdis-&gt;rcItem&#46;top  += 2;\n           lpdis-&gt;rcItem&#46;left += 21;\n           if&#40; !bTab &#41;\n           &#123;\n              DrawText&#40; lpdis-&gt;hDC, szPrompt, -1, &amp;lpdis-&gt;rcItem, DT_LEFT &#41;;\n           &#125;\n           else\n           &#123;\n              lpdis-&gt;rcItem&#46;right -= 21;\n              StrToken&#40; szPrompt, 1, 9, &amp;wLen &#41;; // 32 bits does not fill wLen before\n              DrawText&#40; lpdis-&gt;hDC, StrToken&#40;szPrompt, 1, 9, &amp;wLen&#41;, wLen, &amp;lpdis-&gt;rcItem, DT_LEFT &#41;;\n              StrToken&#40; szPrompt, 2, 9, &amp;wLen &#41;; // 32 bits does not fill wLen before\n              DrawText&#40; lpdis-&gt;hDC, StrToken&#40;szPrompt, 2, 9, &amp;wLen&#41;, wLen, &amp;lpdis-&gt;rcItem, DT_RIGHT &#41;;\n              lpdis-&gt;rcItem&#46;right += 21;\n           &#125;\n           lpdis-&gt;rcItem&#46;top  -= 2;\n           lpdis-&gt;rcItem&#46;left -= 21;\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41;\n              RectDisable&#40; lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem &#41;;\n\n           _retl&#40; TRUE &#41;;\n           break;\n\n      case ODA_FOCUS&#58;\n           _retl&#40; FALSE &#41;;\n           break;\n   &#125;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; MENUMEASUREITEM&#41; // &#40; pMeasureItemStruct, nLen &#41;\n#else\n   HB_FUNC&#40; MENUMEASUR&#41; // EITEM&#40; pMeasureItemStruct, nLen &#41;\n#endif\n&#123;\n   LPMEASUREITEMSTRUCT lp = &#40; LPMEASUREITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   lp-&gt;itemWidth  = _parni&#40; 2 &#41;;\n   lp-&gt;itemHeight = GetSystemMetrics&#40; SM_CYMENU &#41;; // 18\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; GETMEAITEM&#41; // &#40; pMeasureItemStruct &#41; --&gt; nMenuItemID\n&#123;\n   LPMEASUREITEMSTRUCT lp = &#40; LPMEASUREITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _retnl&#40; lp-&gt;itemID &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; GETDRAWITEM&#41; // &#40; pDrawItemStruct &#41; --&gt; nMenuItemID\n#else\n   HB_FUNC&#40; GETDRAWITE&#41; // M&#40; pDrawItemStruct &#41; --&gt; nMenuItemID\n#endif\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _retnl&#40; lpdis-&gt;itemID &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   HB_FUNC&#40; GETDRAWMENU&#41; // &#40; pDrawItemStruct &#41; --&gt; hMenu\n#else\n   HB_FUNC&#40; GETDRAWMEN&#41; // U&#40; pDrawItemStruct &#41; --&gt; hMenu\n#endif\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _retnl&#40; &#40; LONG &#41; lpdis-&gt;hwndItem &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; ISMENU&#41;\n&#123;\n   _retl&#40; IsMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\n[/code:1h4b4f1n]\n\n\nSaludos\n\n\n\nGeorge\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n[/code]','',0,'AIA=','1h4b4f1n',1,0,'',171,0,0),(19815,4352,6,66,0,'201.212.77.163',1159793617,1,0,1,0,1,0,'','','Ya encontre la solucion utilizando freeimage\n\nGracias\n\nFabian','',0,'AIA=','4r591avc',1,0,'',66,0,0),(19816,4471,6,811,0,'200.93.182.116',1159794367,1,0,1,1,1,0,'','Dudas con DLL32 FUNCTION','Buenas Tardes Foro:\n\nRecientemente consegui las librerias para manejar censores de lectura de huella digital Verifinger.dll y ScanMan.dll, sin embargo tengo muchas dudas con las llamadas a funciones externas.\n\nEl siguiente fragmento es el que estoy usando en mi prueba:\n-----------------------------------------------------------------------------------\n....\nbioInicia=SMInitialize()\nMsgInfo(bioInicia,\"Inicializo\") // Escribe 10813440 y esperaba otra cosa\nnIndex=SMGetScannerCount()\nMsgInfo(nIndex,\"Conectados\") // Escribe 1179648 y esperaba 1\n\n....\nDLL32 FUNCTION SMInitialize() AS _INT PASCAL LIB \"SCANMAN.DLL\"\nDLL32 FUNCTION SMGetScannerCount() AS _INT PASCAL LIB \"SCANMAN.DLL\"\n-----------------------------------------------------------------------------------\n\nAl parecer recibo apuntadores pero ignoro como extraer el contenido de ese apuntador desde FWH. La documenacion define asi las funciones:\n\nINT SCANMAN_API SMInitialize();\nINT SCANMAN_API SMGetScannerCount();\n\nEn fin si alguien esta injteresado en experimentar sobre esas librerias, se las puedo enviar y de paso me podria compartir como puedo poner a funcionar el dichoso sensor.\n\nCordial Saludo, Ricardo','',0,'AIA=','yvaiql1d',1,0,'',811,0,0),(19817,4388,6,75,0,'88.0.181.121',1159797406,1,0,1,1,1,0,'','','Antonio creo que no me expresé bien antes.\n\nLo que quería saber es si windows XP procesa el archivo autoexec.nt  antes de entrar en la selección de cuentas de usuario y de dar acceso a la modificación del reloj.\n\nTenía entendido que el autoexec.nt era solo para meter comandos de configuración de la consola de ms-dos para hacer compatible al XP con versiones de programas hechos para correr en ms-dos.\n\nSaludos.','',0,'AIA=','m3ketb3w',1,0,'',75,0,0),(19818,4322,6,43,0,'189.128.28.35',1159798066,1,0,1,1,1,0,'','','Hola Antonio\n\nHablando de xBrowse, seria posible que las cabeceras del mismo tomaran los temas de xp.\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','3igbw4lj',1,0,'',43,0,0),(19819,4414,2,348,0,'201.230.65.83',1159799887,1,0,1,1,1,0,'','','Gracias Antonio\nle dare una revisada..\n\n\n[quote=&quot;Antonio Linares&quot;:r5z68wpg]Lubin,\n\nLocaliza el handle de esa nueva ventana con FindWindow() y llama a SetForeGroundWindow( hWnd )[/quote:r5z68wpg]','',0,'gA==','r5z68wpg',1,0,'',348,0,0),(19820,4444,3,335,0,'68.193.88.53',1159803785,1,0,1,1,1,0,'','','The customer said this morning that this works.  Thanks again, Antonio! \n\n- Roger','',0,'gA==','2kxxjbhi',1,0,'',335,0,0),(19821,4472,3,89,0,'213.21.136.60',1159804431,1,0,1,1,1,0,'','Tree with check','I have a Tree with TVS_CHECKBOXES.\nIs it possible to know if CHECKBOX  is ON or OFF  ( without  use :Cargo ) ?\n\nRegards Maurizio','',0,'gA==','1cidywbw',1,0,'',89,0,0),(19822,4365,7,533,0,'88.8.29.161',1159805485,1,0,1,1,1,0,'','','Buenas tardes Antonio, esto es lo que sale:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0227861a40/report.bmp.html\">http://hyperupload.com/download/0227861 ... t.bmp.html</a><!-- m --> \n\n¿Tiene solución? <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','ie4l3hlr',1,0,'',533,0,0),(19823,4473,7,105,0,'200.72.140.34',1159806211,1,0,1,1,1,1,'','NecesioInformacion sobre compatibilidad','Hola a todos\n\n1.- En que maquinas, procesadores, versiones de SO esta funcionando FWPPC, estoy iniciando un proyecto y quiero saber si las maquinas que se van a adquirir seran compatibles o no. Dependiendo de las respuestas puedo sugerir cambiar lo cotizado.\n\n2.- Soporta xHarbour.Com  o solo se puede programar con Harbour \n\n3.- Algun problema grande de compatibilidad o no ?\n\n4.- DEseo incorporar  unas dbf al Pocket PC y sincronizarlas externamente, la velocidad de trabajo local es buena ?\n\n5.- Impresion, solo con maqunas windows o puedo al estilo DOS ?\n\nEso...\n\nGracias por su tiempo...\n\nDesde Chile, Adolfo','',0,'gA==','59gy5ubq',1,0,'',105,0,0),(19824,4365,7,2,0,'87.218.146.96',1159807430,1,0,1,1,1,1,'','','Mike,\n\nSi, sólo CoreDLL.DLL. En principio no tiene solución pues debe estar buscando una función que no tiene CoreDLL.DLL.\n\nDe que fecha es ese Pocket PC ? No tienes la opción de actualizarle el sistema operativo ?','',0,'gA==','3ht2i2ze',1,0,'',2,0,0),(19825,4473,7,2,0,'87.218.146.96',1159807635,1,0,1,1,1,1,'','','Adolfo,\n\n&gt;\n1.- En que maquinas, procesadores, versiones de SO esta funcionando FWPPC, estoy iniciando un proyecto y quiero saber si las maquinas que se van a adquirir seran compatibles o no. Dependiendo de las respuestas puedo sugerir cambiar lo cotizado. \n&gt;\n\nWindows Mobile 2003 en adelante. Procesadores compatibles ARM, los más comunes son los Intel Xscale.\n\n&gt; 2.- Soporta xHarbour.Com o solo se puede programar con Harbour \n\nNo soporta xHarbour. Solo Harbour.\n\n&gt; 3.- Algun problema grande de compatibilidad o no ? \n\nEn Windows Mobile 2003 no existe la opción SHARED. No la soporta el sistea operativo.\n\n&gt;\n4.- DEseo incorporar unas dbf al Pocket PC y sincronizarlas externamente, la velocidad de trabajo local es buena ? \n&gt;\n\nMuy buena.\n\n&gt; 5.- Impresion, solo con maqunas windows o puedo al estilo DOS ?\n\nImpresoras con adaptadores bluetooth.','',0,'gA==','24i2orev',1,0,'',2,0,0),(19826,4322,6,2,0,'87.218.146.96',1159807703,1,0,1,1,1,1,'','','Marco,\n\nNo sería dificil de implementar.','',0,'gA==','622siors',1,0,'',2,0,0),(19827,4471,6,2,0,'87.218.146.96',1159807818,1,0,1,1,1,1,'','','Ricardo,\n\nMira a ver como está definido SCANMAN_API','',0,'gA==','33veb9af',1,0,'',2,0,0),(19828,4444,3,2,0,'87.218.146.96',1159807875,1,0,1,1,1,1,'','','Roger,\n\nGlad to know that we found a working solution <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','22cgghy6',1,0,'',2,0,0),(19829,2477,3,2,0,'87.218.146.96',1159807962,1,0,1,1,1,1,'','','Richardo,\n\nMira a ver como está definido SCANMAN_API. Te recomiendo que uses LONG en vez de _INT.','',0,'gA==','1mrg63df',1,0,'',2,0,0),(19830,4474,6,533,0,'88.8.29.161',1159808059,1,0,1,1,1,0,'','MySql + ayuda','BUenas tardes foro!\n\n   Os comento, he instalado el servidor de Mysql en mi maquina, he desempolvado los libros de bases de datos relacionales, he creado 2 tablas y he insertado tuplas (desde la consola del mysql). Ahora queda lo mejor, teneis un ejemplo que pueda analizar para conectar five con el servidor?\n\nfw 2.5 (harbour y xharbour)\n\nUN SALUDO y muchas gracias por todo','',0,'gA==','33w84yqm',1,0,'',533,0,0),(19831,4365,7,533,0,'88.8.29.161',1159810631,1,0,1,1,1,0,'','','Buenas tardes Antonio:\n\n   Siempre gracias por tus prontas respuestas. La PDA es de 2002 aprox. El problema es que ya está descatalogada y hemos estado buscando en la red para actualizar el sistema y creo que o no se puede o sale mas caro que comprarse una nueva (que es lo que estoy tratando de evitar). De todas formas muchas gracias por todo el trabajazo que te has dado y que si sale algo para esto que lo avises.\n\n\nPor si te interesa verla:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.scansmart.com/catalog/ppt2800.asp\">http://www.scansmart.com/catalog/ppt2800.asp</a><!-- m -->\n\nUN SALUDO.','',0,'gA==','wfxjanv8',1,0,'',533,0,0),(19832,4388,6,396,0,'201.210.129.11',1159816054,1,0,1,1,1,1,'','','Dependiendo de los comandos te los ejecuta, ya que lo uso, en algunas variables de entorno como SET no las toma en cuenta. si necesitas ejecutar algo antes de Windows puedes usar win.ini con el comando run=  o el load=   , espero te sirva. te sugiero que al usuario en su cuenta la crees con limitaciones  le restringes el uso del panel de control y lo que desees que no use.','',0,'gA==','26ug79tq',1,0,'',396,0,0),(19833,3703,6,435,0,'200.155.207.66',1159816441,1,0,1,1,1,0,'','Ado','Tentei usar o ADO\n\ndiz que nao tem o Provider intalado, Provider=Microsoft.Jet.OlEDB.4.0\n\n??\n\nAri','',0,'gA==','2vadzvbu',1,0,'',435,0,0),(19834,4365,7,2,0,'87.218.146.96',1159821614,1,0,1,1,1,1,'','','Mike,\n\nEl problema parece claro que se debe a que tiene una versión antigua de Windows Mobile. Si pudiésemos copiar su CoreDLL.DLL (Windows Mobile no permite copiar ficheros del sistema operativo) entonces podriamos ver que funciones exporta y así tal vez encontrar una solución reemplazando las funciones que le falten.','',0,'gA==','115pl80o',1,0,'',2,0,0),(19835,4475,1,812,0,'201.214.35.220',1159821879,1,0,1,1,1,0,'','Favor Ayuda Problemas al Imprimir','Hola amigos:\n\nSoy nuevo en Fivewin, recurro a ustedes, yaque tengo un problema al imprimir, lo puedo hacer en impresoras okidatas, Cannon BJ 200 o 250, pero  al seleccionar una Epson cualquiera sea o HP 692C, 690C, arroja un error de memoria, junto a esto anexo RMK, LNK y el Programa. El sistema es super chico, me urge poder solucionar este problema.\n\nLes agradece que me puedan ayudar, \n\nMiguel Rivera.\n***\nMuy buenos dias, disculpa el atrebimiento de pedirte ayuda, pero se que eres el SUPER GENIO, soy de Santiago Chile y tengo un problema super grande, siempre he desarrollado en clipper 5.2e, pero me han llamado de una empresa que tiene five win ver 2.4 y blinker 5.1, he tenido que hacer un programa chico pero muy importante, el cual tiene como funcion mostrar por pantalla e imprimir informes de examenes medicos.\n\nYo puedo mostrar la informacion por pantalla con un browse, puedo imprimir con una impresora okidata 320 o una CANNON 200 o 250 de tinta, me previsualiza en pantalla y luego imprimo, mi sorpresa y problema es que al tratar de imprimir en una HP 692, 690 o cualquier impresora de la linea EPSON C43, C80 u otras, el sistema se cae arrojando el error que te describo mas abajo, pero con las impresoras antes mensionadas, imprime sin ningun problema.\n\nEstoy tan complicado porque no logro dar con la solucion, se que es un problema de memoria, lo he probado en diferentes PC P. IV 1,6 GH, 128 RAM intel, otro PC 2,4 GH, 256 RAM y otros con win 98 o WX, y siempre tengo el mismo resultado. Necesito que por favor me orientes, te envio el programa y el error.\n\nEnormemente agradecido, se despide,\n\nMiguel Rivera.\n\n****** ERROR ***\n\nFIVEWIN provocó un error de protección general\nen el módulo MENU3.EXE de 000a:000003f9.\nRegistros:\nEAX=000000a7 CS=43b7 EIP=000003f9 EFLGS=00000216\nEBX=0147029c CS=563f ESP=0000635a EBP=00006362\nECX=00000000 DS=563f ESI=00024493 FS=0000\nEDX=00003b4f ES=4337 EDI=00024337 GS=0000\nBytes en CS:EIP\n,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x\nVolcado de pila:\n,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x\n \n\n****** LNK\n\nBLINKER  executable compress\nblinker INCREMENTAL OFF\nBLINKER CLIPPER SYMBOL OFF\nBLINKER SEGMENT THRESHOLD 65500\nSTACK 7068\nBLINKER PROCEDURE DEPTH 70\n\n MAP A,S\n\nDEFBEGIN\n   name        FiveWin\n   description \'Clipper for Windows library\'\n   exetype     Windows 3.1\n   code        preload moveable discardable\n   data        preload moveable\n   stacksize   10000\n   heapsize    8500\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\nbeginarea\n File  Menu3\n File  TcBrowse\n File  TcColumn\n File  Rayos\nendarea\n\nLib c:\\fw24\\lib\\five\nLib c:\\fw24\\lib\\fivec\nLib c:\\fw24\\lib\\objects\nLib c:\\fw24\\lib\\winapi\nLib c:\\lib\\dbfCDX\n\n \n\n***** RMK\n\n\ncompile = c:\\clipper5\\bin\\clipper $&lt; /i /n /d\nlink = c:\\bl51\\bin\\blinker;C:\\util\\obj\n\n\n.Prg.Obj:\n    $(compile)\n\nMenu3.Obj     : Menu3.Prg\nTcBrowse.Obj  : TcBrowse.Prg\nTcColumn.Obj  : TcColumn.Prg\nRayos.obj     : Rayos.Prg\nEcos.obj      : Ecos.prg\nScanner.obj   : Scanner.prg\n\nmenu3.Exe  : menu3.Obj    TcBrowse.obj    TcColumn.obj    Rayos.obj\\\n         Scanner.obj Ecos.obj\n \\bl51\\bin\\Blinker @compi1.Lnk\n\n\n***** PROGRAMA PRG\n\n#include \"FiveWin.ch\"\n#Include \"TcBrowse.ch\"\n#include \"report.ch\"\n#Include \"Font.Ch\"\n\nFUNCTION Scanner()\n   Local Dialog,oDlg,oNom,oFec\n   Local odbginfsc,odbdinfsc\n   bBusca=1\n   oFolio:=0\n   cFolio:=0\n\n   sele 1\n   Use Geinfsc Shared\n   DATABASE oDbGinfsc\n \n   Set inde to Geinfsc\n   sele 2\n   Use Deinfsc Shared\n   DATABASE oDbDinfsc\n\n \n   Set inde to Deinfsc\n   if !file(\"pasosca.dbf\")\n      Copy struc to pasosca\n   endif\n\n   sele 3\n   Use Detarayo Shared\n \n   Set inde to Detarayo\n\n   Sele 4\n   Use Profesio Shared\n \n   Set inde to Profesio\n\n   Sele 5\n   Use pasosca Exclusi\n\n   Define Dialog oDlg ResName \"Pide_nro_bono\"      Title  \"Datos del Paciente\"\n     Redefine Get oFolio Var cFolio    Id 102 Of oDlg Color \"w+/b*\" Update Picture \"@9999999999\"\n     Redefine Button Id 201 Of oDlg ;\n       Action (bBusca:=1,Muestra_datos(),lGrabar:=.f.,cFolio:=0)\n     Redefine Button Id 101 Of oDlg ;\n       Action (bBusca:=0,Busca_fol(),lGrabar:=.f.)\n\n     Redefine Button Id 150 Of oDlg ;\n       Action (Dbcloseall(),oDlg:END())\n\n    Activate Dialog oDlg Centered\n\n  RETURN nil\n\nStatic FUNCTION Muestra_datos()\n  Local oDlg,Dialog,oCod,cCod\n  if bBusca=1\n     Sele a\n     DbSetorder(1)\n     seek cFolio\n     lSalida := .T.\n     lGrabar:=.t.\n     if eof()\n        MsgInfo(\"Nº de Ingreso no Existe\")\n        lSalida := .F.\n        lGrabar:=.f.\n        Return\n     Endif\n  else\n     cFolio=a-&gt;Nro_bon\n  Endif\n  sele c\n  seek cFolio\n  cCod=\"\"\n  Do while (Fol_ray=cFolio).and.!eof()\n     cCod=cCod+cod_ara+\" \"\n     Dbskip()\n  Enddo\n  Sele a\n\n  Define Dialog oDlg ResName \"Pide_paci\"      Title  \"Datos del Paciente\"\n     Redefine Say oFolio Prompt a-&gt;nro_bon             Id 102 Of oDlg Color \"w+/b*\"\n     REDEFINE Say oNom Prompt OemToAnsi(a-&gt;nom_pac)    ID 103 OF oDlg  Color \"w+/b*\"\n     REDEFINE Say oFec Prompt a-&gt;fec_inf               ID 104 OF oDlg  Color \"w+/b*\"\n     REDEFINE Say oCod Prompt cCod                     ID 105 OF oDlg  Color \"w+/b*\"\n     Redefine Button Id 210 Of oDlg ;\n       Action Imprime()\n\n     Redefine Button Id 190 Of oDlg ;\n       Action Muestra_inf()\n\n\n     Redefine Button Id 150 Of oDlg ;\n            Action (oDlg:END())\n\n\n    Activate Dialog oDlg Centered\n\n     cFolio:=0\n     oFolio:=0\n\n  Return\n\n\n  Static Function Imprim()\n    LOCAL  oFont,oFont1,oFont2\n    Private oReport\n\n    Sele d\n    DbSeek(a-&gt;med_rad)\n    Sele b\n    Set inde to Deinfsc\n    DbSeek(cFolio)\n    if eof()\n       MsgInfo(\"No Existe Registro \"+str(cFolio,10)+\" de Ingreso no Existe\")\n       Return\n    endif\n                                                  //-17\n    DEFINE FONT oFont NAME \"Courier New\" SIZE 0,-15\n   \n    REPORT oReport Title \" \",\" \",\" \",spac(32)+\" Santiago \"+spac(8)+subs(a-&gt;fec_inf,1,2)+spac(11)+aMeses[val(subs(a-&gt;fec_inf,4,2))]+space(7)+subs(a-&gt;fec_inf,7,4),\" \",;\n           \"Sr(a)DR(a) : \"+OemToAnsi(trim(a-&gt;med_sol)),\" \",\" \",\"Presente \",OemToAnsi(trim(a-&gt;tip_exa)),\" \",\" \",OemToAnsi(trim(a-&gt;nom_pac)),\" \",\" \",\" \",\" \",\" \";\n        FONT oFont;\n        PREVIEW\n\n       COLUMN  DATA spac(6)+OemToAnsi(b-&gt;Cod_det) SIZE 71\n\n    END REPORT\n\n     oReport:nTitleUpLine := RPT_NOLINE\n     oReport:nTitleDnLine := RPT_NOLINE\n     oReport:Margin(.15,RPT_LEFT,RPT_INCHES)\n     oReport:Margin(.25,RPT_TOP,RPT_INCHES)\n     oReport:Margin(.25,RPT_BOTTOM,RPT_INCHES)\n\n     ACTIVATE Report oReport While b-&gt;Nro_bon=cFolio.and.!eof() ON END Finsc(oReport)\n\n    oFont:End()\n\n    Sele b\n    Seek cFolio\n\n      Return\n\n\nStatic   FUNCTION Busca_fol()\n    local oDlgPa\n    local oLbx1,oFont\n    cFolio:=0\n    oFolio:=0\n    Sele a\n    go bott\n    aa=nro_bon-10\n    Dbseek(aa)\n   \n    Define Dialog oDlgPa ResName \"Listado_paci\" Title \"Paciente Ingresados\"\n\n    Redefine Browse oLbx1 Grid Id 110 Of oDlgPa;\n        On DblClick (bBusca:=0,Muestra_datos(),oLbx1:Refresh(), oLbx1:SetFocus())\n\n      oLbx1:oFont   := TFont():New( \"MS Sans Serif\", 0, -14,, .T. )\n      oLbx1:nFreeze := 3\n\n      oLbx1:nClrBackFocus := RGB(48,207,100)\n      oLbx1:bKeyChar := {| nKey, nFlags | iIf(nKey == 13,Muestra_datos(),)}\n\n      Add Column To Browse oLbx1 Data a-&gt;Nro_bon ;\n   Head \"Nro. Bono\" Width 70\n      Add Column To Browse oLbx1 Data OemToAnsi(a-&gt;Nom_pac) ;\n   Head \"Nombre del Paciente\" Width 350\n      Add Column To Browse oLbx1 Data a-&gt;Fec_inf ;\n   Head \"Fecha de Informe\" Width 450\n\n      Define Column oCol Head \"\" Size 1\n      oLbx1:AddColumn(oCol)\n\n  \n      oLbx1:SetFocus()\n\n    Redefine Button Id 150 Of oDlgpa ;\n      Action (oDlgpa:END())\n\n    Activate Dialog oDlgPa Centered\n\n     Sele a\n     DbSetorder(1)\n\n  Return\n\nStatic  FUNCTION Muestra_Inf()\n    local oDlgDeta\n    local oLbx1,oFont\n    Local Deta_inf[200]\n    cFolio:=a-&gt;Nro_bon\n    oFolio:=0\n    Sele b\n    set inde to deinfsc\n    Dbseek(a-&gt;nro_bon)\n    Do while (nro_bon=a-&gt;nro_bon).and.!eof()\n       sele e\n       Appen Blank\n       Repl nro_lin with b-&gt;nro_lin,cod_det with b-&gt;cod_det\n       Dbcommit()\n       Dbunlock()\n       sele b\n       Dbskip()\n    Enddo\n\n   \n    Sele e\n    Dbgotop()\n    Define Dialog oDlgDeta ResName \"Detalle_info\"\n\n    REDEFINE Say oNom Prompt OemToAnsi(a-&gt;nom_pac)    ID 103 OF oDlgDeta  Color \"w+/b*\"\n\n    Redefine Browse oLbx1 Grid Id 106 Of oDlgDeta;\n        On DblClick (oLbx1:Refresh(), oLbx1:SetFocus())\n\n      oLbx1:oFont   := TFont():New( \"MS Sans Serif\", 0, -15,,.T. )\n      oLbx1:nFreeze := 1\n\n      oLbx1:nClrBackFocus := RGB(48,207,100)\n  \n      oLbx1:bKeyChar := {| nKey, nFlags | iIf(nKey == 13,Imprime(),)}\n      Add Column To Browse oLbx1 Data OemToAnsi(e-&gt;Cod_Det);\n            Head \"\" Width 580  Tag OemToAnsi(\"e-&gt;Cod_Det\")\n\n      Define Column oCol Head \"\" Size 1\n      oLbx1:AddColumn(oCol)\n\n  \n      oLbx1:SetFocus()\n\n   Redefine Button Id 210 Of oDlgDeta ;\n       Action (Imprime(),oDlgDeta:END())\n\n    Redefine Button Id 150 Of oDlgDeta ;\n      Action (oDlgDeta:END())\n \n\n    Activate Dialog oDlgDeta Centered\n\n     Sele e\n\n  Return\n\n \nStatic Function Imprime()\n Local oPrint, oFont1, oFont2, cTipo, oFont3, oFont4, oPen, oFont5\n Local nFila, nColumna, nVertical, nHorizontal\n Print oPrint   From User    Preview\n  Define Font oFont1 Name \"Arial\" Size 0,14 Of oPrint\n  Define Font oFont2 Name \"Arial\" Size 0,18 Of oPrint\n  Define Font oFont5 Name \"Arial\" Size 0,16 Of oPrint\n  Define Font oFont3 Name \"Arial\" Size 0,12 Of oPrint Bold UnderLine\n  Define Font oFont4 Name \"Arial\" Size 0,24 Of oPrint Bold Italic\n  Define Pen oPen Style 0 width 5\n  nVertical   := oPrint:nVertRes()\n  nHorizontal := oPrint:nHorzRes()\n  nFila := Round(nVertical/60,0)\n  nColumna := Round(nHorizontal/80,0)\n  Fil=nFila\n  col=nColumna\n  Page\n   oPrint:Say(nFila*5,nColumna*40,\" Santiago \"+spac(8)+subs(a-&gt;fec_inf,1,2)+spac(11)+aMeses[val(subs(a-&gt;fec_inf,4,2))]+space(7);\n          +subs(a-&gt;fec_inf,7,4),oFont1)\n   oPrint:Say(nFila*7,nColumna*20,\"Sr(a)DR(a) : \"+OemToAnsi(trim(a-&gt;med_sol)),oFont2)\n   oPrint:Say(nFila*9,nColumna*20,\"Presente \",oFont2)\n   oPrint:Say(nFila*11,nColumna*20,OemToAnsi(trim(a-&gt;tip_exa)),oFont2)\n   oPrint:Say(nFila*13,nColumna*20,OemToAnsi(trim(a-&gt;nom_pac)),oFont2)\n   nAvance := 15.9\n   Sele b\n   Set inde to Deinfsc\n   DbSeek(cFolio)\n   nPosicion=15.5\n   nLinea=0\n   Do While (nro_bon=cFolio).and.!Eof()\n    nLinea=nLinea+1\n    nPosicion := nPosicion+1.4\n    oPrint:Say(nFila*nPosicion,nColumna*10,OemToAnsi(b-&gt;cod_det),oFont5)\n    DbSkip()\n    if nLinea&gt;29\n       nFila:=fil\n       nPosicion:=5\n       nColumna:=col\n       nLinea:=0\n       Endpage\n       Page\n    endif\n   EndDo\n   nPosocion := 35.7\n  EndPage\n EndPrint\n oFont1:End()\n oFont2:End()\n oFont3:End()\n oFont4:End()\n oFont5:End()\nReturn(Nil)','',0,'','27f7jvs3',1,0,'',812,0,0),(19837,4365,7,2,0,'87.218.146.96',1159824300,1,0,1,1,1,1,'','','Una solución es proporcionarle una coredll.lib y una coredllc.lib vacias y enlazar un pequeño ejemplo. \n\nLo hemos probado y se producen del orden de 256 referencias externas no encontradas y ahora habría que ir probando función por función para ver cuales son las que no estan en esa versión de Windows Mobile.\n\nSería la única forma de solucionarlo.','',0,'','er2jc5m0',1,0,'',2,0,0),(19838,4474,6,2,0,'87.218.146.96',1159824417,1,0,1,1,1,1,'','','Mike,\n\nHaz una búsqueda por MySQL en estos foros (opción \"search\" arriba).','',0,'','1iif0068',1,0,'',2,0,0),(19839,4476,2,812,0,'201.214.35.220',1159825417,1,0,1,1,1,0,'','Favor Ayuda oara Imprimir','Hola Amigos, soy nuevo en Fivewin, y tengo un problema super grande, como nuestro querido Clipper, necesita un ambiente windows, es logico llegar aqui, tengo five win ver 2.4 y blinker 5.1, he tenido que hacer un programa chico pero muy importante, el cual tiene como funcion mostrar por pantalla e imprimir informes de examenes medicos.\n\nYo puedo mostrar la informacion por pantalla con un browse, puedo imprimir con una impresora okidata 320 o una CANNON BJ 200 o 250 de tinta, me previsualiza en pantalla y luego imprimo, mi sorpresa y problema es que al tratar de imprimir en una HP 692, 690 o cualquier impresora de la linea EPSON C43, C80 u otras, el sistema se cae arrojando el error que te describo mas abajo, pero con las impresoras antes mensionadas, imprime sin ningun problema.\n\nEstoy tan complicado porque no logro dar con la solucion, se que es un problema de memoria, lo he probado en diferentes PC P. IV 1,6 GH, 128 RAM intel, otro PC 2,4 GH, 256 RAM y otros con win 98 o WX, y siempre tengo el mismo resultado. Necesito que por favor me orientes, te envio el programa y el error.\n\nEnormemente agradecido, se despide,\n\nMiguel Rivera.\n\n****** ERROR ***\n\nFIVEWIN provocó un error de protección general\nen el módulo MENU3.EXE de 000a:000003f9.\nRegistros:\nEAX=000000a7 CS=43b7 EIP=000003f9 EFLGS=00000216\nEBX=0147029c CS=563f ESP=0000635a EBP=00006362\nECX=00000000 DS=563f ESI=00024493 FS=0000\nEDX=00003b4f ES=4337 EDI=00024337 GS=0000\nBytes en CS:EIP\n,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x\nVolcado de pila:\n,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x\n \n\n****** LNK\n\nBLINKER  executable compress\nblinker INCREMENTAL OFF\nBLINKER CLIPPER SYMBOL OFF\nBLINKER SEGMENT THRESHOLD 65500\nSTACK 7068\nBLINKER PROCEDURE DEPTH 70\n\n MAP A,S\n\nDEFBEGIN\n   name        FiveWin\n   description \'Clipper for Windows library\'\n   exetype     Windows 3.1\n   code        preload moveable discardable\n   data        preload moveable\n   stacksize   10000\n   heapsize    8500\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\nbeginarea\n File  Menu3\n File  TcBrowse\n File  TcColumn\n File  Rayos\nendarea\n\nLib c:\\fw24\\lib\\five\nLib c:\\fw24\\lib\\fivec\nLib c:\\fw24\\lib\\objects\nLib c:\\fw24\\lib\\winapi\nLib c:\\lib\\dbfCDX\n\n \n\n***** RMK\n\n\ncompile = c:\\clipper5\\bin\\clipper $&lt; /i /n /d\nlink = c:\\bl51\\bin\\blinker;C:\\util\\obj\n\n\n.Prg.Obj:\n    $(compile)\n\nMenu3.Obj     : Menu3.Prg\nTcBrowse.Obj  : TcBrowse.Prg\nTcColumn.Obj  : TcColumn.Prg\nRayos.obj     : Rayos.Prg\nEcos.obj      : Ecos.prg\nScanner.obj   : Scanner.prg\n\nmenu3.Exe  : menu3.Obj    TcBrowse.obj    TcColumn.obj    Rayos.obj\\\n         Scanner.obj Ecos.obj\n \\bl51\\bin\\Blinker @compi1.Lnk\n\n\n***** PROGRAMA PRG\n\n#include \"FiveWin.ch\"\n#Include \"TcBrowse.ch\"\n#include \"report.ch\"\n#Include \"Font.Ch\"\n\nFUNCTION Scanner()\n   Local Dialog,oDlg,oNom,oFec\n   Local odbginfsc,odbdinfsc\n   bBusca=1\n   oFolio:=0\n   cFolio:=0\n\n   sele 1\n   Use Geinfsc Shared\n   DATABASE oDbGinfsc\n \n   Set inde to Geinfsc\n   sele 2\n   Use Deinfsc Shared\n   DATABASE oDbDinfsc\n\n \n   Set inde to Deinfsc\n   if !file(\"pasosca.dbf\")\n      Copy struc to pasosca\n   endif\n\n   sele 3\n   Use Detarayo Shared\n \n   Set inde to Detarayo\n\n   Sele 4\n   Use Profesio Shared\n \n   Set inde to Profesio\n\n   Sele 5\n   Use pasosca Exclusi\n\n   Define Dialog oDlg ResName \"Pide_nro_bono\"      Title  \"Datos del Paciente\"\n     Redefine Get oFolio Var cFolio    Id 102 Of oDlg Color \"w+/b*\" Update Picture \"@9999999999\"\n     Redefine Button Id 201 Of oDlg ;\n       Action (bBusca:=1,Muestra_datos(),lGrabar:=.f.,cFolio:=0)\n     Redefine Button Id 101 Of oDlg ;\n       Action (bBusca:=0,Busca_fol(),lGrabar:=.f.)\n\n     Redefine Button Id 150 Of oDlg ;\n       Action (Dbcloseall(),oDlg:END())\n\n    Activate Dialog oDlg Centered\n\n  RETURN nil\n\nStatic FUNCTION Muestra_datos()\n  Local oDlg,Dialog,oCod,cCod\n  if bBusca=1\n     Sele a\n     DbSetorder(1)\n     seek cFolio\n     lSalida := .T.\n     lGrabar:=.t.\n     if eof()\n        MsgInfo(\"Nº de Ingreso no Existe\")\n        lSalida := .F.\n        lGrabar:=.f.\n        Return\n     Endif\n  else\n     cFolio=a-&gt;Nro_bon\n  Endif\n  sele c\n  seek cFolio\n  cCod=\"\"\n  Do while (Fol_ray=cFolio).and.!eof()\n     cCod=cCod+cod_ara+\" \"\n     Dbskip()\n  Enddo\n  Sele a\n\n  Define Dialog oDlg ResName \"Pide_paci\"      Title  \"Datos del Paciente\"\n     Redefine Say oFolio Prompt a-&gt;nro_bon             Id 102 Of oDlg Color \"w+/b*\"\n     REDEFINE Say oNom Prompt OemToAnsi(a-&gt;nom_pac)    ID 103 OF oDlg  Color \"w+/b*\"\n     REDEFINE Say oFec Prompt a-&gt;fec_inf               ID 104 OF oDlg  Color \"w+/b*\"\n     REDEFINE Say oCod Prompt cCod                     ID 105 OF oDlg  Color \"w+/b*\"\n     Redefine Button Id 210 Of oDlg ;\n       Action Imprime()\n\n     Redefine Button Id 190 Of oDlg ;\n       Action Muestra_inf()\n\n\n     Redefine Button Id 150 Of oDlg ;\n            Action (oDlg:END())\n\n\n    Activate Dialog oDlg Centered\n\n     cFolio:=0\n     oFolio:=0\n\n  Return\n\n\n  Static Function Imprim()\n    LOCAL  oFont,oFont1,oFont2\n    Private oReport\n\n    Sele d\n    DbSeek(a-&gt;med_rad)\n    Sele b\n    Set inde to Deinfsc\n    DbSeek(cFolio)\n    if eof()\n       MsgInfo(\"No Existe Registro \"+str(cFolio,10)+\" de Ingreso no Existe\")\n       Return\n    endif\n                                                  //-17\n    DEFINE FONT oFont NAME \"Courier New\" SIZE 0,-15\n   \n    REPORT oReport Title \" \",\" \",\" \",spac(32)+\" Santiago \"+spac(8)+subs(a-&gt;fec_inf,1,2)+spac(11)+aMeses[val(subs(a-&gt;fec_inf,4,2))]+space(7)+subs(a-&gt;fec_inf,7,4),\" \",;\n           \"Sr(a)DR(a) : \"+OemToAnsi(trim(a-&gt;med_sol)),\" \",\" \",\"Presente \",OemToAnsi(trim(a-&gt;tip_exa)),\" \",\" \",OemToAnsi(trim(a-&gt;nom_pac)),\" \",\" \",\" \",\" \",\" \";\n        FONT oFont;\n        PREVIEW\n\n       COLUMN  DATA spac(6)+OemToAnsi(b-&gt;Cod_det) SIZE 71\n\n    END REPORT\n\n     oReport:nTitleUpLine := RPT_NOLINE\n     oReport:nTitleDnLine := RPT_NOLINE\n     oReport:Margin(.15,RPT_LEFT,RPT_INCHES)\n     oReport:Margin(.25,RPT_TOP,RPT_INCHES)\n     oReport:Margin(.25,RPT_BOTTOM,RPT_INCHES)\n\n     ACTIVATE Report oReport While b-&gt;Nro_bon=cFolio.and.!eof() ON END Finsc(oReport)\n\n    oFont:End()\n\n    Sele b\n    Seek cFolio\n\n      Return\n\n\nStatic   FUNCTION Busca_fol()\n    local oDlgPa\n    local oLbx1,oFont\n    cFolio:=0\n    oFolio:=0\n    Sele a\n    go bott\n    aa=nro_bon-10\n    Dbseek(aa)\n   \n    Define Dialog oDlgPa ResName \"Listado_paci\" Title \"Paciente Ingresados\"\n\n    Redefine Browse oLbx1 Grid Id 110 Of oDlgPa;\n        On DblClick (bBusca:=0,Muestra_datos(),oLbx1:Refresh(), oLbx1:SetFocus())\n\n      oLbx1:oFont   := TFont():New( \"MS Sans Serif\", 0, -14,, .T. )\n      oLbx1:nFreeze := 3\n\n      oLbx1:nClrBackFocus := RGB(48,207,100)\n      oLbx1:bKeyChar := {| nKey, nFlags | iIf(nKey == 13,Muestra_datos(),)}\n\n      Add Column To Browse oLbx1 Data a-&gt;Nro_bon ;\n   Head \"Nro. Bono\" Width 70\n      Add Column To Browse oLbx1 Data OemToAnsi(a-&gt;Nom_pac) ;\n   Head \"Nombre del Paciente\" Width 350\n      Add Column To Browse oLbx1 Data a-&gt;Fec_inf ;\n   Head \"Fecha de Informe\" Width 450\n\n      Define Column oCol Head \"\" Size 1\n      oLbx1:AddColumn(oCol)\n\n  \n      oLbx1:SetFocus()\n\n    Redefine Button Id 150 Of oDlgpa ;\n      Action (oDlgpa:END())\n\n    Activate Dialog oDlgPa Centered\n\n     Sele a\n     DbSetorder(1)\n\n  Return\n\nStatic  FUNCTION Muestra_Inf()\n    local oDlgDeta\n    local oLbx1,oFont\n    Local Deta_inf[200]\n    cFolio:=a-&gt;Nro_bon\n    oFolio:=0\n    Sele b\n    set inde to deinfsc\n    Dbseek(a-&gt;nro_bon)\n    Do while (nro_bon=a-&gt;nro_bon).and.!eof()\n       sele e\n       Appen Blank\n       Repl nro_lin with b-&gt;nro_lin,cod_det with b-&gt;cod_det\n       Dbcommit()\n       Dbunlock()\n       sele b\n       Dbskip()\n    Enddo\n\n   \n    Sele e\n    Dbgotop()\n    Define Dialog oDlgDeta ResName \"Detalle_info\"\n\n    REDEFINE Say oNom Prompt OemToAnsi(a-&gt;nom_pac)    ID 103 OF oDlgDeta  Color \"w+/b*\"\n\n    Redefine Browse oLbx1 Grid Id 106 Of oDlgDeta;\n        On DblClick (oLbx1:Refresh(), oLbx1:SetFocus())\n\n      oLbx1:oFont   := TFont():New( \"MS Sans Serif\", 0, -15,,.T. )\n      oLbx1:nFreeze := 1\n\n      oLbx1:nClrBackFocus := RGB(48,207,100)\n  \n      oLbx1:bKeyChar := {| nKey, nFlags | iIf(nKey == 13,Imprime(),)}\n      Add Column To Browse oLbx1 Data OemToAnsi(e-&gt;Cod_Det);\n            Head \"\" Width 580  Tag OemToAnsi(\"e-&gt;Cod_Det\")\n\n      Define Column oCol Head \"\" Size 1\n      oLbx1:AddColumn(oCol)\n\n  \n      oLbx1:SetFocus()\n\n   Redefine Button Id 210 Of oDlgDeta ;\n       Action (Imprime(),oDlgDeta:END())\n\n    Redefine Button Id 150 Of oDlgDeta ;\n      Action (oDlgDeta:END())\n \n\n    Activate Dialog oDlgDeta Centered\n\n     Sele e\n\n  Return\n\n \nStatic Function Imprime()\n Local oPrint, oFont1, oFont2, cTipo, oFont3, oFont4, oPen, oFont5\n Local nFila, nColumna, nVertical, nHorizontal\n Print oPrint   From User    Preview\n  Define Font oFont1 Name \"Arial\" Size 0,14 Of oPrint\n  Define Font oFont2 Name \"Arial\" Size 0,18 Of oPrint\n  Define Font oFont5 Name \"Arial\" Size 0,16 Of oPrint\n  Define Font oFont3 Name \"Arial\" Size 0,12 Of oPrint Bold UnderLine\n  Define Font oFont4 Name \"Arial\" Size 0,24 Of oPrint Bold Italic\n  Define Pen oPen Style 0 width 5\n  nVertical   := oPrint:nVertRes()\n  nHorizontal := oPrint:nHorzRes()\n  nFila := Round(nVertical/60,0)\n  nColumna := Round(nHorizontal/80,0)\n  Fil=nFila\n  col=nColumna\n  Page\n   oPrint:Say(nFila*5,nColumna*40,\" Santiago \"+spac(8)+subs(a-&gt;fec_inf,1,2)+spac(11)+aMeses[val(subs(a-&gt;fec_inf,4,2))]+space(7);\n          +subs(a-&gt;fec_inf,7,4),oFont1)\n   oPrint:Say(nFila*7,nColumna*20,\"Sr(a)DR(a) : \"+OemToAnsi(trim(a-&gt;med_sol)),oFont2)\n   oPrint:Say(nFila*9,nColumna*20,\"Presente \",oFont2)\n   oPrint:Say(nFila*11,nColumna*20,OemToAnsi(trim(a-&gt;tip_exa)),oFont2)\n   oPrint:Say(nFila*13,nColumna*20,OemToAnsi(trim(a-&gt;nom_pac)),oFont2)\n   nAvance := 15.9\n   Sele b\n   Set inde to Deinfsc\n   DbSeek(cFolio)\n   nPosicion=15.5\n   nLinea=0\n   Do While (nro_bon=cFolio).and.!Eof()\n    nLinea=nLinea+1\n    nPosicion := nPosicion+1.4\n    oPrint:Say(nFila*nPosicion,nColumna*10,OemToAnsi(b-&gt;cod_det),oFont5)\n    DbSkip()\n    if nLinea&gt;29\n       nFila:=fil\n       nPosicion:=5\n       nColumna:=col\n       nLinea:=0\n       Endpage\n       Page\n    endif\n   EndDo\n   nPosocion := 35.7\n  EndPage\n EndPrint\n oFont1:End()\n oFont2:End()\n oFont3:End()\n oFont4:End()\n oFont5:End()\nReturn(Nil)','',0,'','ku68jnp7',1,0,'',812,0,0),(19840,4477,2,235,0,'201.140.14.153',1159827657,1,0,1,1,1,0,'','control de un cybercafe por medio de fw','alguien ha implementado algun sistema de control de usuarios de un cybercafe, que me pueda ayudar ya que tengo un cliente que necesita un programa de control de tiempos de uso de internet, ya que estoy en blanco en este tema.\n\nuso clipper 53b, fivewin 2.2 y blinker 5\n\nde antemano muchas gracias','',0,'','3qsddjhd',1,0,'',235,0,0),(19841,4478,2,790,0,'201.122.21.224',1159828500,1,0,1,1,1,0,'','website 2.0','Hola\nAlguien tendra de casualida el website de o\'reilly version 2.0  ya que me comentaron que esta mas estable el la verison 1.0, agradeceria si me la pudieran pasar o donde la consigo\n\n\nGracias Elias','',0,'','1rjd2pr7',1,0,'',790,0,0),(19842,4471,6,811,0,'200.93.182.116',1159829276,1,0,1,1,1,0,'','','Antonio, gracias por la respuesta, en efecto consulte los headers de la documentacion de las librerias y encontre lo siguiente:\n\n------------------------------------------------------\n...\n#define SCANMAN_API __stdcall\n\n// Initialization\nINT SCANMAN_API SMInitialize();\nINT SCANMAN_API SMFinalize();\n\n// Scanner enumeration\nINT SCANMAN_API SMGetScannerCount();\nINT SCANMAN_API SMGetScannerId(INT index, CHAR *id, INT len);\n...\n------------------------------------------------------\n\nSeguire revisando algo de la documentacion y buscando mas literatura sobre el DLL32 FUNCTION (aun no encuentro mucho) y ver la posibilidad de utilizar TComObject() tambien. \n\nSaludos\n\nRicardo\n\n\n\n[quote=&quot;Antonio Linares&quot;:2o1dizpp]Ricardo,\n\nMira a ver como está definido SCANMAN_API[/quote:2o1dizpp]','',0,'gA==','2o1dizpp',1,0,'',811,0,0),(19843,4479,6,196,0,'190.48.210.220',1159830019,1,0,1,1,1,0,'','Multi preview','Hola a todos.\n\nAlguien tendra la mpreview.lib que funcione correctamente?\nTrate de crearla, pero no logro que funcione.\n\nMuchas gracias\nJorge Jaurena','',0,'gA==','imemcybt',1,0,'',196,0,0),(19844,4478,2,138,0,'189.141.70.60',1159834702,1,0,1,1,1,1,'','','Yo lo tengo, pero como te comente, tu problema no es el WebSite, tu problmea es que te tienes que pasar tu aplicacion a 32 bits, sino vas a seguir teniendo los mismos problemas que teines actualmente con tu aplicacion Clipper.','',0,'gA==','y1d31wnq',1,0,'',138,0,0),(19845,4479,6,138,0,'189.141.70.60',1159836968,1,0,1,1,1,1,'','','Yo recompile el codigo fuente de clase junto con todos mis PRGs y funciono sin ningun problema... ¿ qué errores te está marcando ?','',0,'gA==','3a1etlzm',1,0,'',138,0,0),(19846,4474,6,496,0,'200.107.36.176',1159837938,1,0,1,1,1,0,'','','Mike\n\nComo ya tienes instalado mysql, ahora debes instalar el MyOdbc que lo puedes bajar fácilmente de internet. Esto te permitirá acceder a las tablas mediante ADO.\n\nUna vez instalado debes configurar el myodbc en: Panel de Control-&gt; Herramientas administrativas -&gt; Orígenes de Datos (ODBC), y en la pstaña DSN de usuario se agrega el nuevo tipo de conexión (MySql ODBC 3.51), ingresas los datos de nombre del servidor, usuario, pasword y base de datos. Si todo va bien obtendrás un \"Succes, conection was made! \"\n\nAhora tu aplicación debe poseer soporte para OLE, con xHarbour no tienes que hacer nada, porque tiene implementado por defecto, con Harbour debes añadir la librería HBOLE.lib.\n\nEl siguiente paso es crear tu aplicación.  El siguiente código que lo he bajado de este mismo foro establece la conexion, se crea el objeto RecordSet, a éste puedes manipularlo desde tu aplicación haciendo uso de sus propiedades y métodos. Más información detallada de éstos lo puedes hallar en MSDN : [url:25hlkxz4]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/ado270/htm/mdobjodbrec&#46;asp[/url:25hlkxz4]. También lo puedes pasar a un array para visualizarlo con un browse:\n\n\n\n#define adOpenForwardOnly 0 \n#define adOpenKeyset 1 \n#define adOpenDynamic 2 \n#define adOpenStatic 3 \n\n#define adLockReadOnly 1 \n#define adLockPessimistic 2 \n#define adLockOptimistic 3 \n#define adLockBatchOptimistic 4 \n#define adUseServer 2 \n#define adUseClient 3 \n\n\ncQuery:= \"SELECT  campo1,campo2,campo3 FROM mitabla\"\ncConnection := \"DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=localhost;DATABASE=tuDB;USER=usuario;PASSWORD=miclave\" \n\noCon:=toleauto():new(\"adodb.connection\") \noRS := TOleAuto():New(\"adodb.recordset\") \noRs:CursorLocation = adUseClient \noRs:Open( cQuery , cConnection, adOpenKeyset, adLockOptimistic ) \n\noRs:MoveFirst() // equivale a GO TOP \naDatos:={}\n\n//paso los datos a un arreglo\nWHILE !oRs:Eof()\n  aReg := {}\n  for nPos := 0 to oRs:Fields:Count() -1\n      AAdd(aReg,Value(oRs,nPos))\n  next\n  AAdd(aDatos,aReg)\n  oRs:MoveNext()\nEND\n\noRs:Close()\n\n////////////////////////////////\nLuego de pasado al arreglo lo puedes visualizar como tal\n\n\nPuede ayudarte de mucho una excelente aplicación llamada TALLER, gentilmente cedida por Miguel Angel, que usa ADO para el acceso a datos.\n[url:25hlkxz4]http&#58;//chileforge&#46;cl/frs/download&#46;php/220/Taller&#46;zip[/url:25hlkxz4]\n\nNo soy bueno explicando, pero espero te sirva de algo, y como dice Antonio, sigue buscando en el Foro y encontrarás más información\n\nUn saludo\n\nMarcelo Jingo','',0,'EA==','25hlkxz4',1,0,'',496,0,0),(19847,4480,6,37,0,'190.40.30.205',1159847638,1,0,1,1,1,1,'','Error en xHarbour : Unrecoverable error 9009','Amigos, algiuen tiene idea de porque pasa esto, es un codigo que en FW y CLIPPER funciona 100% Ok y en xHarbour de 5 veces 1 funciona y 4 vuela, el texto que bota el error es el siguiente :\n\nhb_xrealloc can\'t reallocate memory\n\nNo tengo ni idea, alguien me ayuda\n\nesta es la parte del codigo donde me bota, mencionar que solo me pasa cuando trabajo con Tablas MySQL, con DBFs no sucede, Gracias\n\n            sele 3\n            dbseek(alltrim(cCta))\n            if found()\n               for i=3 to 17         *** ACA\n                  for j=1 to 4\n                     sele 99\n                     campo:=fieldname(i+(j-1)*15)\n                     valor:=&amp;campo\n                     sele 3\n                     replace &amp;campo with valor\n                  next\n               next\n               sysrefresh()\n            endi','',0,'EA==','3grq1xpy',1,0,'',37,0,0),(19848,4472,3,2,0,'87.218.146.96',1159853384,1,0,1,1,1,1,'','','Maurizio,\n[code:3192zqci]\nHB_FUNC&#40; TVISCHECKED &#41;  // hTreeView, hItem\n&#123;\n   hb_retl&#40; TreeView_GetCheckState&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, &#40; HTREEITEM &#41; hb_parnl&#40; 2 &#41; &#41; &#41;;\n&#125;\n[/code:3192zqci]\n\nMsgInfo( TVIsChecked( oTree:hWnd, oTVItem:hItem ) )','',0,'AIA=','3192zqci',1,0,'',2,0,0),(19849,4475,1,2,0,'87.218.146.96',1159853530,1,0,1,1,1,1,'','','Miguel,\n\nBusca en el fichero MAP (ya que usas MAP A,S desde el fichero LNK) el rango de direcciones en donde está contenido 000a:000003f9. Aparecerá dos veces, una al comienzo y otra al final. En la segunda aparición te mostrará un nombre de función, que es en donde se produce el GPF.\n\nSi tienes dudas de como localizarlo, sube tu fichero a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y pon aqui el link de descarga que te proporcionará.','',0,'AIA=','37c7mc9u',1,0,'',2,0,0),(19850,4480,6,2,0,'87.218.146.96',1159853681,1,0,1,1,1,1,'','','Enrique,\n\nEn que línea de esas, te aparece el error exactamente ?','',0,'AIA=','37ajdikl',1,0,'',2,0,0),(19851,4472,3,89,0,'213.21.136.60',1159857396,1,0,1,1,1,0,'','','It works. \n\nThanks again, Antonio','',0,'AIA=','33vz9rsj',1,0,'',89,0,0),(19852,4472,3,89,0,'213.21.136.60',1159858633,1,0,1,1,1,0,'','','Hello Antonio\n\nis possible enable or disable CHECKBOX ?\n\nRegards Maurizio','',0,'AIA=','2mj2px0u',1,0,'',89,0,0),(19853,4481,3,67,0,'62.235.24.124',1159862122,1,0,1,1,1,0,'','Changing color from say','Hello,\n\nI try to change the text color from a say object with :\n\noSay:Setcolor(CLR_HRED) ; oSay:refresh()\n\nBut , it doesn\'t work.\n\nI Tryed it also in testsay2.prg , no succes\n\n[code:2rhqud6m]\n// A sample showing to to let a SAY accept Clicks events\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oSay, oCursor\n\n   DEFINE CURSOR oCursor HAND\n\n   DEFINE DIALOG oDlg\n\n   @ 2, 2 SAY oSay PROMPT &quot;Test&quot;\n\n   oSay&#58;lWantClick = &#46;t&#46;\n   oSay&#58;bLClicked  = &#123; || oSay&#58;SetColor&#40;CLR_HRED&#41; , oSay&#58;refresh&#40;&#41; &#125;\n   //oSay&#58;bLClicked  = &#123; || MsgInfo&#40; &quot;Hello&quot; &#41; &#125;\n   oSay&#58;oCursor    = oCursor\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n[/code:2rhqud6m]\n\nFrank','',0,'AIA=','2rhqud6m',1,0,'',67,0,0),(19854,4472,3,2,0,'87.218.146.96',1159862709,1,0,1,1,1,1,'','','Maurizio,\n[code:2mxz493f]\nHB_FUNC&#40; TVSETCHECK &#41;  // hTreeView, hItem, lOnOff \n&#123; \n   hb_retl&#40; TreeView_SetCheckState&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, &#40; HTREEITEM &#41; hb_parnl&#40; 2 &#41;, hb_parl&#40; 3 &#41; &#41; &#41;; \n&#125;\n[/code:2mxz493f]','',0,'AIA=','2mxz493f',1,0,'',2,0,0),(19855,4481,3,2,0,'87.218.146.96',1159863050,1,0,1,1,1,1,'','','Frank,\n\nThis code works fine:\n[code:bk6uqr3w]\n#define COLOR_BTNFACE       15\n&#46;&#46;&#46;\n   oSay&#58;bLClicked  = &#123; || oSay&#58;SetColor&#40; CLR_WHITE, GetSysColor&#40; COLOR_BTNFACE &#41; &#41;, oSay&#58;Refresh&#40;&#41;, MsgInfo&#40; &quot;Hello&quot; &#41; &#125;\n[/code:bk6uqr3w]','',0,'AIA=','bk6uqr3w',1,0,'',2,0,0),(19856,4365,7,533,0,'88.8.29.161',1159863677,1,0,1,1,1,0,'','','Muchas Gracias Antonio:\n\n   Investigaré todo lo del tema de COREDLL.DLL. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','m3zxc4ib',1,0,'',533,0,0),(19857,4474,6,533,0,'88.8.29.161',1159864075,1,0,1,1,1,0,'','','Muchas gracias Marcelo y Antonio:\n\n   Ya se que vienen cosas de mysql en el foro, pero por ejemplo, no he llegado a ver lo que me comentas de myodbc, porque ahí,  precisamente fue donde me quede cuando ya tenía todo hecho, y era que me metía en herramientas administrativas &gt;&gt; orígenes de datos (odbc) y al agregar uno nuevo, no encontraba el driver de mysql.\n\n   Ahora que ya creo que puedo empezar a hacer algo, seguiré mirando en el foro.\n\nMUCHAS GRACIAS y SALUDOS.','',0,'AIA=','18wrwhrf',1,0,'',533,0,0),(19858,4481,3,67,0,'62.235.24.124',1159864997,1,0,1,1,1,0,'','','Antonio,\n\nOk , it seems that the background color can\'t be omitted. I supposed that when it is nil , it has not to change. Now i have to know what this color is or ,\n\n oSay:SetColor( CLR_HRED , osay:nClrPane )\n\nFrank','',0,'AIA=','td29rgq7',1,0,'',67,0,0),(19859,4474,6,177,0,'194.30.62.6',1159865060,1,0,1,1,1,0,'','','Mike,\n\ntambién puedes usar Eagle1 de mi amigo Manu Expósito. Te puedes poner en contacto con él en manuexposito arroba terra.es\n\nEagle1 es una libreria (jerarquía de clases) para atacar directamente a MySQL.\n\nSaludos.','',0,'AIA=','1u1ltlxt',1,0,'',177,0,0),(19860,4472,3,89,0,'213.21.136.60',1159865449,1,0,1,1,1,0,'','','Hello Antonio \n\nI have this error \n\nExpression syntax in function HB_FUN_TVSETCHECK.\n\nBut the function  TreeView_SetCheckState , chek or unchek the CHEKBOX, that I need is to disable or hide the chekbox in front of the Item .\n\nRegrads Maurizio','',0,'AIA=','3gm6qj0k',1,0,'',89,0,0),(19861,4472,3,2,0,'87.218.146.96',1159869275,1,0,1,1,1,1,'','','Maurizio,\n\nI don\'t know if it is possible to hide it.','',0,'AIA=','34ex2qbz',1,0,'',2,0,0),(19862,4459,7,150,0,'62.15.122.92',1159871100,1,0,1,1,1,1,'','','Hola.\n\nEn la Symbol mc70 han puesto un \"imager\" que permite leer códigos de barras unidireccionales, bidireccionales y escanear imagenes. Una vez que tienes la imagen con un ocr podrás leer los numeros. (Yo no se como se hace \nni si es práctico, solo es una idea)','',0,'AIA=','1nx6nzmt',1,0,'',150,0,0),(19863,4474,6,52,0,'201.212.71.153',1159877021,1,0,1,1,1,1,'','','[quote=&quot;Baxajaun&quot;:12x3vvru]Mike,\n\ntambién puedes usar Eagle1 de mi amigo Manu Expósito. Te puedes poner en contacto con él en manuexposito arroba terra.es\n\nEagle1 es una libreria (jerarquía de clases) para atacar directamente a MySQL.\n\nSaludos.[/quote:12x3vvru]\n\nEsa dire funciona? porque no llegan los mensajes a manu.','',0,'gA==','12x3vvru',1,0,'',52,0,0),(19864,4417,2,124,0,'200.117.35.37',1159878984,1,0,1,1,1,0,'','','Antonio:\n\nTe envié hace un par de días los archivos solicitados con uno con datos, ¿te llegaron?\n\nSaludos.\nRicardo.-','',0,'gA==','1fzed6us',1,0,'',124,0,0),(19865,4474,6,177,0,'194.30.62.6',1159879121,1,0,1,1,1,0,'','','Sí, si que funciona. \n\nSaludos.','',0,'gA==','3qk31vxr',1,0,'',177,0,0),(19866,4473,7,105,0,'200.72.140.34',1159879331,1,0,1,1,1,1,'','','Gracias Antonio...\n\nCon esta informacion ya tengo para empezar a generar el proyecto.\n\nDesde Chile...\nAdolfo','',0,'gA==','1cft8vyh',1,0,'',105,0,0),(19867,4474,6,52,0,'201.212.71.153',1159879889,1,0,1,1,1,1,'','','[quote=&quot;Baxajaun&quot;:23ta8kde]Sí, si que funciona. \n\nSaludos.[/quote:23ta8kde]\n\n[quote:23ta8kde]This is an automatically generated Delivery Status Notification\n\nDelivery to the following recipient failed permanently:\n\n     manuexposito arroba terra.com\n\nTechnical details of permanent failure: \nPERM_FAILURE: SMTP Error (state 9): 550 User unknown[/quote:23ta8kde]\n\nlo separe. pero puse todo junto y cambie @','',0,'gA==','23ta8kde',1,0,'',52,0,0),(19868,4417,2,2,0,'87.218.146.96',1159881208,1,0,1,1,1,1,'','','Ricardo,\n\nSí, lo hemos recibido y lo vamos a estudiar.','',0,'gA==','1svxj5bl',1,0,'',2,0,0),(19869,4479,6,196,0,'190.48.209.151',1159881477,1,0,1,1,1,0,'','','Yo hice lo mismo, pero es que como si no compilara nada, no produce el mas minimo cambio.\n\nGracias\nJorge Jaurena','',0,'gA==','258evlzt',1,0,'',196,0,0),(19870,4482,2,812,0,'200.83.124.152',1159884824,1,0,1,1,1,0,'','Favor Ayuda Urgente Error de Memoria al imprimir','Hola Amigos, soy nuevo en Fivewin, y tengo un problema super grande, como nuestro querido Clipper, necesita un ambiente windows, es logico llegar aqui, tengo five win ver 2.4 y blinker 5.1, he tenido que hacer un programa chico pero muy importante, el cual tiene como funcion mostrar por pantalla e imprimir informes de examenes medicos. \n\nYo puedo mostrar la informacion por pantalla con un browse, puedo imprimir con una impresora okidata 320 o una CANNON BJ 200 o 250 de tinta, me previsualiza en pantalla y luego imprimo, mi sorpresa y problema es que al tratar de imprimir en una HP 692, 690 o cualquier impresora de la linea EPSON C43, C80 u otras, el sistema se cae arrojando el error que te describo mas abajo, pero con las impresoras antes mensionadas, imprime sin ningun problema. \n\nEstoy tan complicado porque no logro dar con la solucion, se que es un problema de memoria, lo he probado en diferentes PC P. IV 1,6 GH, 128 RAM intel, otro PC 2,4 GH, 256 RAM y otros con win 98 o WX, y siempre tengo el mismo resultado. Necesito que por favor me orientes, te envio el programa y el error. \n\nEnormemente agradecido, se despide, \n\nMiguel Rivera. \n\n****** ERROR *** \n\nFIVEWIN provocó un error de protección general \nen el módulo MENU3.EXE de 000a:000003f9. \nRegistros: \nEAX=000000a7 CS=43b7 EIP=000003f9 EFLGS=00000216 \nEBX=0147029c CS=563f ESP=0000635a EBP=00006362 \nECX=00000000 DS=563f ESI=00024493 FS=0000 \nEDX=00003b4f ES=4337 EDI=00024337 GS=0000 \nBytes en CS:EIP \n,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x,02x \nVolcado de pila: \n,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x,08x \n\n\n****** LNK \n\nBLINKER executable compress \nblinker INCREMENTAL OFF \nBLINKER CLIPPER SYMBOL OFF \nBLINKER SEGMENT THRESHOLD 65500 \nSTACK 7068 \nBLINKER PROCEDURE DEPTH 70 \n\nMAP A,S \n\nDEFBEGIN \nname FiveWin \ndescription \'Clipper for Windows library\' \nexetype Windows 3.1 \ncode preload moveable discardable \ndata preload moveable \nstacksize 10000 \nheapsize 8500 \nsegment \'PLANKTON_TEXT\' nondiscardable \nsegment \'EXTEND_TEXT\' nondiscardable \nsegment \'OM_TEXT\' nondiscardable \nsegment \'OSMEM_TEXT\' nondiscardable \nsegment \'SORTOF_TEXT\' nondiscardable \nsegment \'STACK_TEXT\' nondiscardable \nDEFEND \nbeginarea \nFile Menu3 \nFile TcBrowse \nFile TcColumn \nFile Rayos \nendarea \n\nLib c:\\fw24\\lib\\five \nLib c:\\fw24\\lib\\fivec \nLib c:\\fw24\\lib\\objects \nLib c:\\fw24\\lib\\winapi \nLib c:\\lib\\dbfCDX \n\n\n\n***** RMK \n\n\ncompile = c:\\clipper5\\bin\\clipper $&lt; /i /n /d \nlink = c:\\bl51\\bin\\blinker;C:\\util\\obj \n\n\n.Prg.Obj: \n$(compile) \n\nMenu3.Obj : Menu3.Prg \nTcBrowse.Obj : TcBrowse.Prg \nTcColumn.Obj : TcColumn.Prg \nRayos.obj : Rayos.Prg \nEcos.obj : Ecos.prg \nScanner.obj : Scanner.prg \n\nmenu3.Exe : menu3.Obj TcBrowse.obj TcColumn.obj Rayos.obj\\ \nScanner.obj Ecos.obj \n\\bl51\\bin\\Blinker @compi1.Lnk','',0,'gA==','8u2pgjaw',1,0,'',812,0,0),(19871,4482,2,180,0,'81.38.53.97',1159888023,1,0,1,1,1,0,'','','Es lo que tiene fw16, que no soporta drivers de impresora a 32 bit. Ese puede ser el problema. En muchas impresoras HP que dan problemas se \"arregla\" el asunto instalando un driver de HP de un modelo más antiguo, yo al menos no he encontrado otra solución.\n\n\nUn saludo,\nManuel','',0,'gA==','c7n1ocnr',1,0,'',180,0,0),(19872,4459,7,180,0,'81.38.53.97',1159888249,1,0,1,1,1,0,'','','Gracias José, ya es un comienzo.\n\nSaludos,\nManuel','',0,'gA==','1k0zacha',1,0,'',180,0,0),(19873,4475,1,812,0,'200.83.124.152',1159889030,1,0,1,1,1,0,'','Link del Archivo MAP, para Antonio Linares','[quote=&quot;Antonio Linares&quot;:2zk82ix5]Miguel,\n\nBusca en el fichero MAP (ya que usas MAP A,S desde el fichero LNK) el rango de direcciones en donde está contenido 000a:000003f9. Aparecerá dos veces, una al comienzo y otra al final. En la segunda aparición te mostrará un nombre de función, que es en donde se produce el GPF.\n\nSi tienes dudas de como localizarlo, sube tu fichero a <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> y pon aqui el link de descarga que te proporcionará.[/quote:2zk82ix5]\n\nAntonio:\nEnvio el Link donde he subido el archivo MAP, llamado MENU3.map\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02fe9a8c80/Menu3.map.html\">http://hyperupload.com/download/02fe9a8 ... 3.map.html</a><!-- m -->\n\nMiguel Rivera','',0,'gA==','2zk82ix5',1,0,'',812,0,0),(19874,4480,6,37,0,'200.121.191.86',1159890931,1,0,1,1,1,1,'','','Antonio, en la linea donde estan los tres ***\nGracias','',0,'gA==','1ymd91ht',1,0,'',37,0,0),(19878,4480,6,2,0,'87.218.146.96',1159896070,1,0,1,1,1,1,'','','Enrique,\n\n&gt; hb_xrealloc can\'t reallocate memory\n\nEse error significa que un bloque de memoria no puede ser redimensionado. Deberías intentar reproducir el error en un ejemplo pequeño, que no use FWH, y poder así reportarlo en la lista de Harbour.','',0,'gA==','192az50v',1,0,'',2,0,0),(19879,4475,1,2,0,'87.218.146.96',1159896514,1,0,1,1,1,1,'','','Miguel,\n\nEl GPF se produce en la maquina de Clipper (__PLANKTON), prueba a bajar el valor del stacksize e intenta usar la versión de Clipper más actualizada.\n\nSi siguiera fallando entonces tienes que plantearte pasar tu aplicación a 32 bits usando FWH y Harbour.','',0,'gA==','1wi2aq5p',1,0,'',2,0,0),(19882,4474,6,177,0,'82.130.233.166',1159899075,1,0,1,1,1,0,'','','Goos,\n\nmanuexpositoarrobaterra.es\n\ncambia arroba por @ y debe llegarle los mensajes.\n\nSaludos','',0,'gA==','4asbso6x',1,0,'',177,0,0),(19883,4475,1,812,0,'200.83.124.152',1159899300,1,0,1,1,1,0,'','Para Antonio Linares','Antonio:\n\nProbe cambian el Stacksize y persiste el problema, no puedo subir a 32 por estar en una red novel 3.12 y trabajamos a 16.\n\nDebe haber otra solucion, como lo hacen los demas Fivewineros, que son muchos por lo que puedo darme cuenta. Debo dar una solucion sobre lo que tengo si puede existir otra forma, te lo agradeceria me lo hicieras saber.\n\nMiguel Rivera\n\n[quote=&quot;Antonio Linares&quot;:gd9y0vt1]Miguel,\n\nEl GPF se produce en la maquina de Clipper (__PLANKTON), prueba a bajar el valor del stacksize e intenta usar la versión de Clipper más actualizada.\n\nSi siguiera fallando entonces tienes que plantearte pasar tu aplicación a 32 bits usando FWH y Harbour.[/quote:gd9y0vt1]','',0,'gA==','gd9y0vt1',1,0,'',812,0,0),(19884,4480,6,37,0,'200.121.191.86',1159899782,1,0,1,1,1,1,'','','Ok, Antonio gracias por tu sugerencia, aislare el codigo y vere procesarlo sin FWH. reportare por esta via el problema si sucede\nSaludos','',0,'gA==','231crb03',1,0,'',37,0,0),(19885,4475,1,2,0,'87.218.146.96',1159902287,1,0,1,1,1,1,'','','Miguel,\n\nSólo se nos ocurre que uses unos drivers de impresora lo más actualizados posible, y si el problema persiste que pases la aplicación a 32 bits.','',0,'gA==','304wfex0',1,0,'',2,0,0),(19886,4322,6,43,0,'189.128.28.35',1159903598,1,0,1,1,1,0,'','','Gracias Antonio\n\nEsperare el proximo build\n\nSaludos\nMarco A. Delgado.','',0,'gA==','3d69pao7',1,0,'',43,0,0),(19887,4485,3,190,0,'202.65.134.40',1159907799,1,0,1,1,1,0,'','buildhd.bat babudll is generating errors in FWH 2.8 Sept.','Hello Mr.Antonio\n\nWhen I tried to build BABUDLL.DLL with BUILDHD BABUDLL,\nI am getting the following error:\n\n[quote:2al1vs4w]\nError: Unresolved external \'_hb_vmProcessSymbolxEx\'Referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ALERT\n[/quote:2al1vs4w]\n\nPlease guide me what to do.\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','2al1vs4w',1,0,'',190,0,0),(19888,4472,3,104,0,'201.58.28.243',1159909142,1,0,1,1,1,0,'','','Olá Maurizio, \n\nTente Isto: Mude em \\fwh\\source\\classes\\TTREEVIE.PRG\n\n[code:k7dngkkq]\n&#46;&#46;&#46;\n   METHOD SetCheck&#40; nIt, lFlag &#41; INLINE TVSetCheck&#40; &#58;&#58;hWnd, nIt, lFlag &#41;\n\n   METHOD IsChecked&#40; nIt &#41; INLINE TVIsChecked&#40; &#58;&#58;hWnd, nIt &#41;\n&#46;&#46;&#46;\n[/code:k7dngkkq]\n\ne isto\n\n[code:k7dngkkq]\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;commctrl&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; TVSETCHECK &#41; // hTreeView, hItem, lOnOff\n&#123;\nTVITEM tvItem;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;; \n   HTREEITEM hItem = &#40; HTREEITEM &#41; hb_parnl&#40; 2 &#41;;\n\ntvItem&#46;mask = TVIF_HANDLE | TVIF_STATE;\ntvItem&#46;hItem = hItem;\ntvItem&#46;stateMask = TVIS_STATEIMAGEMASK;\n\n/*\nSince state images are one-based, 1 in this macro turns the check off,\nand\n2 turns it on&#46;\n*/\ntvItem&#46;state = INDEXTOSTATEIMAGEMASK&#40;&#40; hb_parl&#40; 3 &#41; ? 2 &#58; 1&#41;&#41;;\n\n   hb_retl&#40; &#40; BOOL &#41; TreeView_SetItem&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, &amp;tvItem &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; TVISCHECKED &#41; // hTreeView, hItem\n&#123;\nTVITEM tvItem;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;; \n   HTREEITEM hItem = &#40; HTREEITEM &#41; hb_parnl&#40; 2 &#41;; \n\n// Prepare to receive the desired information&#46;\ntvItem&#46;mask = TVIF_HANDLE | TVIF_STATE;\ntvItem&#46;hItem = hItem;\ntvItem&#46;stateMask = TVIS_STATEIMAGEMASK;\n\n// Request the information&#46;\n   hb_retl&#40; &#40; BOOL &#41; TreeView_GetItem&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, &amp;tvItem &#41; &#41;;\n\n// Return zero if it\'s not checked, or nonzero otherwise&#46;\n   hb_retl&#40; &#40;BOOL&#41; &#40;tvItem&#46;state &gt;&gt; 12&#41; -1 &#41; ;\n&#125;\n\n#pragma ENDDUMP\n[/code:k7dngkkq]\n\n\nUse assim:\n[code:k7dngkkq]\nPara Setar o status&#58;\n\noTree&#58;SetCheck&#40; oItem&#58;hItem, &#46;F&#46; &#41; &amp;&amp; Uncheck\n\nou\n\noTree&#58;SetCheck&#40; oItem&#58;hItem, &#46;T&#46; &#41; &amp;&amp; check\n\nPara Ler o status&#58;\n\nmsgstop&#40; oTree&#58;IsChecked&#40; oItem&#58;hItem &#41; &#41;\n[/code:k7dngkkq]\n\nAbraços,\n\nRossine.','',0,'AIA=','k7dngkkq',1,0,'',104,0,0),(19889,4486,6,264,0,'200.91.3.10',1159909930,1,0,1,1,1,1,'','Select an option ....','Hola a todos.\nSe suponia que con este par de instrucciones las cajas de mensajes quedarian con textos en español....\n\n[code:p144pyns]\n* Requiere CodePage&#46;lib\nREQUEST HB_Lang_ES        // Para establecer idioma de Mensajes, fechas, etc&#46;&#46;\nREQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español &#40;Ordenación, etc&#46;&#46;&#41;\n\n* Idioma por defecto&#58; Español&#46;&#46;&#46;\nHB_LangSelect&#40;&quot;ES&quot;&#41;     // Para mensajes, fechas, etc&#46;&#46;\nHB_SetCodePage&#40;&quot;ESWIN&quot;&#41; // Para ordenación &#40;arrays, cadenas, etc&#46;&#46;&#41;\n[/code:p144pyns]\n\nPero ocurre que quedan en ingles.....\nEsta algo mal constuido ?\nSe debe agregar algo mas ?\n\nSaludos','',0,'AIA=','p144pyns',1,0,'',264,0,0),(19890,4486,6,2,0,'87.218.146.96',1159912043,1,0,1,1,1,1,'','','Julio,\n\nTienes que modificar ese literal en source\\function\\msgs','',0,'AIA=','1il6kqtm',1,0,'',2,0,0),(19893,4486,6,264,0,'200.91.3.10',1159912439,1,0,1,1,1,1,'','','ok, pero para que serviria eso entonces, para nada ?','',0,'AIA=','10gyp5aa',1,0,'',264,0,0),(19894,4485,3,2,0,'87.218.146.96',1159912559,1,0,1,1,1,1,'','','Ramesh,\n\nPlease use this harbour build:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02817d0b38/harbour.zip.html\">http://hyperupload.com/download/02817d0 ... r.zip.html</a><!-- m -->','',0,'AIA=','67m6m6wp',1,0,'',2,0,0),(19895,4486,6,2,0,'87.218.146.96',1159912647,1,0,1,1,1,1,'','','Julio,\n\nEsas funciones son para ordenación, mensajes, etc. pero en concreto esa función de FWH no lo usa ya que no es un mensaje estandard de Clipper/harbour.','',0,'AIA=','1t0zz8ys',1,0,'',2,0,0),(19896,4486,6,264,0,'200.91.3.10',1159913167,1,0,1,1,1,1,'','','ok, gracias.','',0,'AIA=','36c5kqeg',1,0,'',264,0,0),(19897,4485,3,190,0,'202.65.134.40',1159927621,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nNow after installing harbour form the download, I could build the \nBABUDLL.DLL without errors.\n\nNow when I try to check it with BABU.EXE the code from the DLL is\nnot working and only \"ok from EXE\" which is from the exe itself is\ndisplayed using xHarbour. \n\nWhen I tried to check it with HARBOUR.EXE I am getting the follwing\nmessage\n\n[quote:3lx8t1ip]\nError: Unresolved external \'_hb_fun__CLSCNTCLASSES\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|errsysw\n[/quote:3lx8t1ip]\n\nI am not clear here:\n\na) Can\'t we build Self contained DLLs from XHARBOUR ? (The buildhd.bat\n    is calling harbour.exe from HARBOUR directory from FWH\\SAMPLES\n    folder)\n\nb) If we can\'t build them from XHARBOUR, all our functions/procedures \n    meant for storing in DLL are to be re-written in HARBOUR ? (all third\n    party libs meant for xHARBOUR, may not work with HARBOUR).\n\nAny solution?\n\nRegards to you,\n\n- Ramesh Babu P','',0,'gA==','3lx8t1ip',1,0,'',190,0,0),(19898,4412,3,397,0,'201.13.91.185',1159936390,1,0,1,0,1,1,'','','Amiguinhos \n\nO modulo aqui apresentado permite colocar em seus sistemas uma forma profissional de registro de uso do sistema. \n\nÉ composto por um código que deve ser colocado em sua aplicação para interagir com o modulo e finalmente um modulo a parte que serve para registrar a aplicação. \n\nNo que consiste? \n\nA aplicação, ao abrir fará uma verificação do registro e se o mesmo ainda não estiver gravado no mesmo fará a chamada ao modulo de registro. \n\nO modulo de registro permitira que o usuario rode a demonstração do aplicativo que tem um prazo prédefinido na variavel MAXDAYS e verificado pela função MAXTRIAL. \n\nCaso o registro seja efetivado com exito toda informação de registro sera grafada, isto mesmo, grafada dentro do aplicativo, nada de uso de arquivos externos. \n\nA rotina funcionou muito bem com BLinker sem compressão e Harbour. \n\nO modulo de registro é composto por um .RC que contem a definição da DIALOG de registro e um .PRG contendo o código. \n\nArquivo REGISTRO.RC \n\n[code:loxv1ycw]\nregistro DIALOG 77, 49, 211, 175 \nSTYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX \nCAPTION &quot;Acesso ao sistema&quot; \nFONT 8, &quot;MS Sans Serif&quot; \n&#123; \n EDITTEXT 103, 98, 130, 102, 12, ES_UPPERCASE | WS_BORDER | WS_TABSTOP \n PUSHBUTTON &quot;C&amp;onfirma&quot;, 201, 5, 157, 64, 14 \n PUSHBUTTON &quot;&amp;Cancela&quot;, 203, 76, 157, 62, 14 \n PUSHBUTTON &quot;Demonstração&quot;, 204, 145, 157, 62, 14 \n EDITTEXT 101, 98, 113, 102, 12, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP \n LTEXT &quot;&quot;, 98, 311, 21, 98, 148, NOT WS_GROUP \n ICON &quot;icon_Chaves&quot;, -1, 8, 9, 21, 20 \n LTEXT &quot;Este aplicativo está em MODO DEMONSTRAÇÃO&#46;&quot;, 90, 35, 9, 170, 18 \n GROUPBOX &quot;&quot;, -1, 5, 101, 202, 50, BS_GROUPBOX \n CONTROL &quot;&quot;, 97, &quot;static&quot;, SS_BLACKRECT | WS_CHILD | WS_VISIBLE, 219, 3, 202, 66 \n LTEXT &quot;Número de Série&#58;&quot;, 95, 12, 115, 60, 8 \n LTEXT &quot;Código de Liberação&#58;&quot;, 96, 12, 131, 72, 8 \n LTEXT &quot;Para avaliar a Versão de Demonstração clique no botão Demonstração&#46;&quot;, 91, 35, 27, 170, 18 \n LTEXT &quot;Registre o programa e receba o Código de Liberação para utilizar o produto completo&#46;&quot;, 92, 35, 55, 170, 18 \n LTEXT &quot;Entre em contato com o suporte através do telefone &#40;11&#41; 3903-4461&quot;, 93, 35, 84, 170, 18 \n&#125; \n\nicon_Chaves ICON \n&#123; \n\'00 00 01 00 01 00 20 20 10 00 00 00 00 00 E8 02\' \n\'00 00 16 00 00 00 28 00 00 00 20 00 00 00 40 00\' \n\'00 00 01 00 04 00 00 00 00 00 80 02 00 00 00 00\' \n\'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\' \n\'00 00 00 00 80 00 00 80 00 00 00 80 80 00 80 00\' \n\'00 00 80 00 80 00 80 80 00 00 80 80 80 00 C0 C0\' \n\'C0 00 00 00 FF 00 00 FF 00 00 00 FF FF 00 FF 00\' \n\'00 00 FF 00 FF 00 FF FF 00 00 FF FF FF 00 00 00\' \n\'00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00\' \n\'00 00 00 00 08 80 00 00 00 00 00 00 00 00 00 00\' \n\'00 00 00 00 F8 78 00 00 00 00 00 00 00 00 00 00\' \n\'00 08 80 07 08 78 00 00 00 00 00 00 00 00 00 00\' \n\'07 78 88 00 78 78 00 00 00 00 00 00 00 00 00 00\' \n\'07 F8 78 7F 88 78 00 00 00 00 00 00 70 00 00 00\' \n\'07 F8 78 07 F8 78 00 00 00 00 00 07 B3 30 00 00\' \n\'00 08 78 0F 08 78 00 00 00 00 07 00 BB 70 00 00\' \n\'00 78 78 00 78 78 00 00 00 00 73 3B B7 00 00 00\' \n\'7F 88 78 7F 88 78 00 00 00 00 7B BB 70 30 00 00\' \n\'07 F8 78 7F 88 78 00 00 00 70 0B B7 03 00 00 00\' \n\'00 08 78 07 F8 78 00 00 07 33 BB 70 30 00 00 00\' \n\'00 78 78 07 F8 77 00 00 7B BB B7 03 00 00 00 00\' \n\'7F 88 78 7F 88 F7 00 00 7B BB 70 30 00 00 00 00\' \n\'7F 88 77 F8 8F 88 70 00 BB B7 03 00 00 00 00 00\' \n\'07 F8 7F 88 F0 00 00 0B BB 70 30 00 00 00 00 00\' \n\'07 F7 F8 80 07 77 77 7B B7 03 00 00 00 00 00 00\' \n\'7F 7F 88 07 7B BB BB BB 70 30 00 00 00 00 00 07\' \n\'F8 7F 80 7B BB BB BB B8 B3 00 00 00 00 00 00 7F\' \n\'88 7F 80 BB BB 8B 8B 8B 83 00 00 00 00 00 07 F8\' \n\'8F 7F 0B BB B0 B0 B8 B8 B3 00 00 00 00 00 7F 88\' \n\'F8 7F 7B BB BB 0B 0B 8B 83 00 00 00 00 00 7F 88\' \n\'8F 87 7B BB BB B0 B0 B8 B3 00 00 00 00 00 7F 88\' \n\'F8 00 7B BB 77 0B 0B 0B 83 00 00 00 00 00 7F 88\' \n\'80 7F 7B B0 F8 80 B0 B8 30 00 00 00 00 00 7F 88\' \n\'F0 78 7B B0 0F 80 BB B8 30 00 00 00 00 00 07 F8\' \n\'80 77 07 B0 07 F0 BB 83 00 00 00 00 00 00 00 7F\' \n\'88 00 08 77 00 0B B3 30 00 00 00 00 00 00 00 07\' \n\'FF F0 78 70 88 88 30 00 00 00 00 00 00 00 00 00\' \n\'77 70 77 70 77 77 00 00 00 00 00 00 00 00 00 00\' \n\'00 00 70 00 70 00 00 00 00 00 00 00 00 00 00 00\' \n\'00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF F9\' \n\'FF FF FF F0 FF FF FE 60 7F FF FC 00 7F FF F8 00\' \n\'7F FF F8 00 7F F1 F8 00 7F E0 FC 00 7F 80 F8 00\' \n\'7F 00 F0 00 7F 00 F8 00 7C 01 FC 00 78 03 F8 00\' \n\'70 07 F0 00 70 0F F0 00 20 1F F8 00 00 3F F8 00\' \n\'00 7F F0 00 00 FF E0 00 01 FF C0 00 01 FF 80 00\' \n\'01 FF 00 00 01 FF 00 00 01 FF 00 00 01 FF 00 00\' \n\'03 FF 00 00 03 FF 80 00 07 FF C0 00 0F FF E0 00\' \n\'1F FF F0 10 7F FF FE 73 FF FF FF 07 FF FF\' \n&#125; \n[/code:loxv1ycw]\n\nCodigo REGISTRO.PRG \n\n[code:loxv1ycw]\n/* *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** * \n * Procedure_&#58; REGISTRO&#46;PRG                                        \n * Autor_____&#58; Jose Carlos da Rocha - Konectiva Automacao        \n * Cria‡„o___&#58; 13 de Dezembro de 2005                            \n * Objetivo__&#58; Pedir codigo de registro para habilitar aplicacao totalmente \n * Rotina____&#58; Executavel stand-alone chamado pelo aplicativo principal \n * Direitos__&#58; Qualquer alteração neste código pode ser feita deste que \n *             seja mantida a autoria principal&#46; \n * Alterado__&#58; ___/___/____ \n * por_______&#58; ___________________________________________ \n * *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** */ \n#include &quot;FiveWin&#46;ch&quot; \n\n//----------------------------------------------------------------------------// \nfunction Main&#40;&#41; \n   local oDlg, oGet, oText1, oText2 \n   local nSerie    &#58;= substr&#40;HDSERIAL&#40;&#41;,1,8&#41; \n   local nLiberacao&#58;= space&#40;8&#41; \n   SET _3DLOOK ON \n   DEFINE DIALOG oDlg NAME &quot;registro&quot; COLOR RGB&#40;000,000,000&#41;,RGB&#40;255,255,255&#41; \n   REDEFINE SAY ID 90 OF oDlg COLOR RGB&#40;000,000,000&#41;,RGB&#40;255,255,255&#41; \n   REDEFINE SAY ID 91 OF oDlg COLOR RGB&#40;000,000,000&#41;,RGB&#40;255,255,255&#41; \n   REDEFINE SAY ID 92 OF oDlg COLOR RGB&#40;000,000,000&#41;,RGB&#40;255,255,255&#41; \n   REDEFINE SAY ID 93 OF oDlg COLOR RGB&#40;000,000,000&#41;,RGB&#40;255,255,255&#41; \n   REDEFINE SAY ID 95 OF oDlg COLOR RGB&#40;000,000,000&#41;,RGB&#40;255,255,255&#41; \n   REDEFINE SAY ID 96 OF oDlg COLOR RGB&#40;000,000,000&#41;,RGB&#40;255,255,255&#41; \n   // Altere os comandos WinExec para chamarem o seu aplicativo principal \n   REDEFINE BUTTON oBtn201 ID 201 OF oDlg ACTION &#40; PROTECT3&#40;&#41;, WinExec&#40; &quot;NFWH&#46;EXE&quot; &#41;, oDlg&#58;End&#40;&#41; &#41; \n   REDEFINE BUTTON         ID 203 OF oDlg ACTION oDlg&#58;End&#40;&#41; \n   REDEFINE BUTTON         ID 204 OF oDlg ACTION &#40; WinExec&#40; &quot;NFWH&#46;EXE demo&quot; &#41;, oDlg&#58;End&#40;&#41;&#41; \n   // \n   REDEFINE GET oText1 VAR nSerie     ID 101 PICTURE &quot;@!&quot; OF oDlg COLOR RGB&#40;255,255,255&#41;,RGB&#40;000,000,255&#41; NO MODIFY \n   REDEFINE GET oText2 VAR nLiberacao ID 103 PICTURE &quot;@!&quot; OF oDlg VALID lOkPassword&#40;nLiberacao,nSerie,oBtn201&#41; \n   ACTIVATE DIALOG oDlg CENTERED ON INIT &#40;oBtn201&#58;Disable&#40;&#41;,oText2&#58;SetFocus&#40;&#41;&#41; \n   return nil \n\nFUNCTION PROTECT3&#40;&#41; \n   PRIVATE ARQ, BUFFERS, RET, PALAVRA, P, T, ARQUIVO1 \n   SET CENTURY OFF \n   REGISTRO &#58;= &quot;HDHDHDHDRBRBRBRB99999999YYYYYYYYYYYY&quot; \n   HDSERIAL &#58;= SUBSTR&#40;HDSERIAL&#40;&#41;,1,8&#41;                // Serial do HD \n   MAXDAYS  &#58;= &quot;30&quot;                                  // Tempo maximo de DIAS de uso \n   ROMBIOS  &#58;= &quot;RBRBRB&quot;                              // CheckSum da RomBios \n   MAXUSERS &#58;= &quot;05&quot;                                  // Maximo de usuarios por sessao \n   MAXTRIAL &#58;= SUBSTR&#40;STRTRAN&#40;DTOC&#40;MAXTRIAL&#40;MAXDAYS&#41;&#41;,\'/\',\'\'&#41;,1,6&#41; // Tempo maximo de uso \n   ARQUIVO1 &#58;= &quot;NFWH&#46;EXE&quot;                            // Nome do aplicativo \n   PALAVRA  &#58;= &quot;KONECTIVA&quot;                           // String a ser protegida ate 10 caracteres \n   PROTEGER &#58;= HDSERIAL+MAXDAYS+ROMBIOS+MAXUSERS+MAXTRIAL    // Dados para serem armazenados \n   IF REPL&#40;&quot;HD&quot;,4&#41; $ REGISTRO \n      //MSGRUN&#40; &quot;Protegendo&#46;&#46;&#46;&quot; &#41; \n      ARQ &#58;= FOPEN&#40;ARQUIVO1,2&#41; \n      IF FERROR&#40;&#41; # 0 \n         MSGRUN&#40;  &quot;Erro na abertura do arquivo &quot;+ARQUIVO1 &#41; \n         QUIT \n      ENDIF \n      T = FSEEK&#40;ARQ,0,2&#41; \n      FSEEK&#40;ARQ,0,0&#41; \n      BUFFER &#58;= SPACE&#40;512&#41; \n      BUFFE0 &#58;= PROTEGER+SPACE&#40;512-LEN&#40;PROTEGER&#41;&#41; \n      P      &#58;= 0 \n      FOR A = 1 TO 512 \n          P &#58;= P + ASC&#40;SUBS&#40;SUBSTR&#40;ROMBIOS+SPACE&#40;12&#41;,1,12&#41;,A,1&#41;&#41; + A \n      NEXT \n      PALAVRA &#58;= ALLTRIM&#40;PALAVRA&#41; \n      PS     &#58;= ACHOU&#40;PALAVRA&#41; \n      IF PS = 0 \n         //MSGRUN&#40; &quot;String nao encontrada em &quot;+ARQUIVO1 &#41; \n         QUIT \n      ENDIF \n      BYTES1 &#58;= 0 \n      FOR A = 1 TO 512 \n          BYTES1 &#58;= BYTES1 + ASC&#40;SUBS&#40;BUFFE0,A,1&#41;&#41; + A \n      NEXT \n      IF ACHOU&#40;REPL&#40;&quot;HD&quot;,4&#41;&#41; = 0 \n         //MSGRUN&#40;  &quot;String de prote‡„o nao foi encontrada em &quot;+ARQUIVO1 &#41; \n         RETURN 0 \n      ENDIF \n      L = AT&#40;&quot;HDHD&quot;,BUFFER&#41; \n      BUFFER1 &#58;= SUBS&#40;PROTEGER+SPACE&#40;24&#41;,1,24&#41;+STRZERO&#40;P,12&#41; \n      BUFFER  &#58;= STUFF&#40;BUFFER,L,36,BUFFER1&#41; \n      FSEEK&#40;ARQ,-512,1&#41; \n      FWRITE&#40;ARQ,BUFFER&#41; \n      FCLOSE&#40;ARQ&#41; \n      //MSGRUN&#40; &quot;Protegido&#46;&#46;&#46; &quot; &#41; \n      //@ 4,0 SAY &quot;Verifica‡„o conferida&quot; \n      //INKEY&#40;3&#41; \n   ELSE \n      //MSGRUN&#40; &quot;Ambientando&#46;&#46;&#46;&quot; &#41; \n      ARQUIVO  &#58;= &quot;NFWH&#46;EXE&quot; \n      HDSERIAL &#58;= SUBS&#40;REGISTRO, 1, 8&#41;      // Serial do HD \n      MAXDAYS  &#58;= VAL&#40;SUBS&#40;REGISTRO, 9, 2&#41;&#41; // Maximo de Dias \n      ROMBIOS  &#58;= SUBS&#40;REGISTRO,11, 6&#41;      // STR&#40;ROMCKSUM&#40;&#41;,8&#41;          // CheckSum da RomBios \n      MAXUSERS &#58;= VAL&#40;SUBS&#40;REGISTRO,17, 2&#41;&#41; // Maximo de usuarios por sessao \n      MAXTRIAL &#58;= CTOD&#40;SUBS&#40;REGISTRO,21, 2&#41;+&quot;/&quot;+; \n                       SUBS&#40;REGISTRO,19, 2&#41;+&quot;/&quot;+; \n                       SUBS&#40;REGISTRO,23, 2&#41;&#41; \n      DESLOCA  &#58;= VAL&#40;SUBS&#40;REGISTRO,25,12&#41;&#41; \n      // \n      // -&gt; Rotinas de verificacao de travas \n      IF HDSERIAL&#40;&#41; &lt;&gt; HDSERIAL        ; RETURN 1; ENDIF \n      IF ROMBIOS&#40;ROMBIOS&#41; &lt;&gt; ROMBIOS   ; RETURN 2; ENDIF \n      IF MAXUSERS&#40;MAXUSERS&#41; &gt; MAXUSERS ; RETURN 3; ENDIF \n      IF &#40;MAXTRIAL&#40;&#41; &gt; MAXTRIAL+30&#41; &#46;OR&#46; &#40;MAXTRIAL &gt; DATE&#40;&#41;&#41;; RETURN 4; ENDIF \n   ENDIF \n   RETURN 0 \nFUNCTION HDSERIAL&#40;&#41; \n   RETURN ALLTRIM&#40;STR&#40;nSerialHD&#40;&#41;&#41;&#41; \nFUNCTION MAXUSERS&#40;MAXUSERS&#41; \n   RETURN 0 \nFUNCTION ROMBIOS&#40;ROMBIOS&#41; \n   RETURN ROMBIOS \nFUNCTION MAXTRIAL&#40;MAXDAYS&#41; \n   RETURN date&#40;&#41;+val&#40;MAXDAYS&#41; \nFUNCTION ACHOU&#40;PALAVRA&#41; \n   PRIVATE Q \n   FSEEK&#40;ARQ,0,0&#41; \n   FOR Q = 0 TO T STEP + 512 \n       FREAD&#40;ARQ, @BUFFER, 512&#41; \n       IF AT&#40;PALAVRA, BUFFER&#41; # 0 \n          RETURN Q \n       ENDIF \n   NEXT \n   RETURN 0 \nFUNCTION lOkPassword&#40;nLiberacao,nSerie&#41; \n   if val&#40;nLiberacao&#41;+val&#40;nSerie&#41;=99999999 \n      oBtn201&#58;Enable&#40;&#41; \n   else \n      oBtn201&#58;Disable&#40;&#41; \n   endif \n   return &#46;t&#46; \n[/code:loxv1ycw] \n\nA parte que vai dentro do aplicativo esta descrita abaixo: \n\nfunction main(M_O_D_O) // Necessario receber este parametro \n... \nif M_O_D_O = NIL // Arqui o parametro sera criticado \nPROTERRO := PROTECT3() // Funcao que verifica se o aplicativo foi registrado \nIF PROTERRO &gt; 0 \nIF PROTERRO = 1; PROTMENS := \'NAO REGISTRADO\' ; WinExec( \"REGISTRO.EXE\" ); QUIT ; ENDIF \nIF PROTERRO = 2; PROTMENS := \'ROMBIOS ERRADO\' ; ENDIF \nIF PROTERRO = 3; PROTMENS := \'MUITOS USUARIOS\' ; ENDIF \nIF PROTERRO = 4; PROTMENS := \'TEMPO ESTOURADO\' ; ENDIF \nCLEAR SCREEN \nIF PROTERRO &gt; 1 \ncMensa := OemToAnsi( \"(****\" + PROTMENS + \"****)\"+CRLF+CRLF+; \n\"Um erro grave ocorreu na inicializacao do sistema\"+CRLF+; \n\"Favor entrar em contato com o:\"+CRLF+; \n\"Suporte tecnico SuaEmpresa Ltda\"+CRLF+; \n\" Telefones:\"+CRLF+; \n\" Central: (0xx11) 9999-9999\"+CRLF+; \n\" Email: <!-- e --><a href=\"mailto:suporte@suaempresa.com.br\">suporte@suaempresa.com.br</a><!-- e -->\" ) \nMsgStop( cMensa ) \nQUIT \nENDIF \nENDIF \nendif \n... \nResto do codigo principal do aplicativo contendo Window, Menus, Buttons, etc \n... \n// Funcoes de critica do registro \nFUNCTION PROTECT3() \nPRIVATE ARQ, BUFFERS, RET, PALAVRA, P, T, ARQUIVO1 \nSET CENTURY OFF \nREGISTRO := \"HDHDHDHDRBRBRBRB99999999YYYYYYYYYYYY\" // Nao altere este conteudo \nHDSERIAL := SUBSTR(HDSERIAL(),1,8) // Serial do HD \nMAXDAYS := \"30\" // Tempo maximo de DIAS de uso com no maximo 2 digitos \nROMBIOS := \"RBRBRB\" // CheckSum da RomBios, nunca modifique esta variavel \nMAXUSERS := \"05\" // Maximo de usuarios por sessao \nMAXTRIAL := SUBSTR(STRTRAN(DTOC(MAXTRIAL(MAXDAYS)),\'/\',\'\'),1,6) // Tempo maximo de uso \n// Altere estas 3 linhas com o nome de seu aplicativo principal \nARQUIVO1 := \"NFWH.EXE\" // Nome do aplicativo \nPALAVRA := \"KONECTIVA\" // String a ser protegida \nARQUIVO := \"NFWH.EXE\" \n// \nPROTEGER := HDSERIAL+MAXDAYS+ROMBIOS+MAXUSERS+MAXTRIAL // Dados para serem armazenados \n// Verifica a protecao \nHDSERIAL := SUBS(REGISTRO, 1, 8) // Serial do HD \nMAXDAYS := VAL(SUBS(REGISTRO, 9, 2)) // Maximo de Dias \nROMBIOS := SUBS(REGISTRO,11, 6) // STR(ROMCKSUM(),8) // CheckSum da RomBios \nMAXUSERS := VAL(SUBS(REGISTRO,17, 2)) // Maximo de usuarios por sessao \nMAXTRIAL := CTOD(SUBS(REGISTRO,21, 2)+\"/\"+; \nSUBS(REGISTRO,19, 2)+\"/\"+; \nSUBS(REGISTRO,23, 2)) \nDESLOCA := VAL(SUBS(REGISTRO,25,12)) \n// \n// -&gt; Rotinas de verificacao de travas \nIF HDSERIAL() &lt;&gt; HDSERIAL ; RETURN 1; ENDIF \nIF ROMBIOS(ROMBIOS) &lt;&gt; ROMBIOS ; RETURN 2; ENDIF \nIF MAXUSERS(MAXUSERS) &gt; MAXUSERS ; RETURN 3; ENDIF \nIF DATE() &gt; MAXTRIAL ; RETURN 4; ENDIF \nRETURN 0 \nFUNCTION HDSERIAL() \nRETURN ALLTRIM(STR(nSerialHD())) \nFUNCTION MAXUSERS(MAXUSERS) \nRETURN 0 \nFUNCTION ROMBIOS(ROMBIOS) \nRETURN ROMBIOS \nFUNCTION MAXTRIAL(MAXDAYS) \nRETURN date()+val(MAXDAYS) \nFUNCTION ACHOU(PALAVRA) \nPRIVATE Q \nFSEEK(ARQ,0,0) \nFOR Q = 0 TO T STEP + 512 \nFREAD(ARQ, @BUFFER, 512) \nIF AT(STRING, BUFFER) # 0 \nRETURN Q \nENDIF \nNEXT \nRETURN 0 \n\nEstas rotinas poderão ser usadas também em aplicativos DOS bastando modificar o codigo do REGISTRO.EXE retirando o que for referente ao FIVEWIN. \n\nUma vez gravada a informação de registro o aplicativo sera executado somente na maquina em que foi instalado. se por acaso for copiado ele não executara mais. \n\nPortanto após compilar o aplicativo o mesmo já deve ser empacotado para entrega/instalação, pois se for executado não rodará na maquina do cliente. \n\nAs funções trabalham com o numero serial do hd em que foram instalados e portanto para saber qual o codigo de liberação para este exemplo basta calcular: \n\n99999999 - Serial do Hd = Codigo de liberação \n\nOu seja: \n\n99999999 - 3210-9876 = 67890123 \n\nMas voces poderão criar qualquer tipo de geração de código de registro e contrasenha. \n\nSe quizerem aprender sobre criptografia acessem este link aqui \n\n@braços :?)','',0,'AIA=','loxv1ycw',1,1160009086,'',397,1,0),(19899,4417,2,2,0,'87.218.146.96',1159941975,1,0,1,1,1,1,'','','Ricardo,\n\nLa idea era ver que contiene el módulo NTXSPA.obj y ver la forma de reemplazarlo ó corregirlo:\n\nEstas son las funciones que contiene:\n\nNTXSPA  	size = 2628\n	ISALPHA                           ISDIGIT\n	ISLOWER                           ISUPPER\n	_NATSORTVE                        __ch_type\n	__dcmp                            __locase\n	__nLexId                          __nScanId\n	__nascii                          __natrddver\n	__ncopylc                         __ncopyuc\n	__ndbcs                           __nget\n	__nnexti                          __node_search\n	__nprevi                          __nput\n	__ntrimlen                        __s_order\n	__scann                           __scanw\n	__tcmp                            __upcase\n	__xcmp                          \n\nEl problema es estan escritas en C (ó en ensamblador) y no es algo inmediato el poder analizarlas.','',0,'AIA=','14s7udo7',1,0,'',2,0,0),(19900,4417,2,2,0,'87.218.146.96',1159942204,1,0,1,1,1,1,'','','Ricardo,\n\nSi editas ntxspa.obj con un editor binario, verás que usa las siguientes secuencias. Imagino que tendrías que modificarlas para ordenar según tus necesidades:\n\n !\"#$%&amp;\'()*+,-./0123456789:;&lt;=&gt;?@ABCDEGHIJKLMNOQRSTUVWXYZ[]abcdefgijklnopqstuvwy{|}~\n\n !\"#$%&amp;\'()*+,-./0123456789:;&lt;=&gt;?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~\n\n !\"#$%&amp;\'()*+,-./0123456789:;&lt;=&gt;?@abcdefghijklmnopqrstuvwxyz[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~','',0,'','3plmbxra',1,0,'',2,0,0),(19901,4485,3,2,0,'87.218.146.96',1159942739,1,0,1,1,1,1,'','','Ramesh,\n\nsamples\\babu.prg and babudll.prg were properly working with previous Harbour builds. It looks as something has changed into Harbour and now the DLL is no longer working. This is an issue that has to be checked with the Harbour developers list.\n\n&gt;\na) Can\'t we build Self contained DLLs from XHARBOUR ? (The buildhd.bat \nis calling harbour.exe from HARBOUR directory from FWH\\SAMPLES \nfolder) \n&gt;\n\nxharbour should be compatible with Harbour on this issue.\n\n&gt;\nb) If we can\'t build them from XHARBOUR, all our functions/procedures \nmeant for storing in DLL are to be re-written in HARBOUR ? (all third \nparty libs meant for xHARBOUR, may not work with HARBOUR). \n&gt;\n\nIf the DLL is a self contained one and does not use the EXE virtual machine, then you could have you EXE built in any language.\n\nAnyhow, these are Harbour/xHarbour issues, not FWH ones.','',0,'','1d828aq7',1,0,'',2,0,0),(19902,4485,3,2,0,'87.218.146.96',1159944544,1,0,1,1,1,1,'','','Ramesh,\n\nUse this Harbour build:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02817d0b26/harbour.zip.html\">http://hyperupload.com/download/02817d0 ... r.zip.html</a><!-- m -->\n\nAnd both samples\\babu.prg and babudll.prg work fine.','',0,'','3pmbn44g',1,0,'',2,0,0),(19903,4488,7,720,0,'80.36.244.134',1159955520,1,0,1,1,1,0,'','problema con un listbox....','Hola a todos...\n\nTengo declarado un ListBox en el que muestro 4 campos de una tabla, el codigo(declarado como Caracter), la descripcion(tambien como caracter), la cantidad y el precio (ambos numericos)\n\nEl problema es que no se porque muestra solamente los dos primeros y sin embargo los dos datos numericos no lo muestra...\n\nEl codigo que empleo es el siguiente...\n\nredefine LISTBOX oBrw ;\nFIELDS articulos-&gt;cod_art,articulos-&gt;nom_art,articulos-&gt;cant,\narticulos-&gt;precio ;\n HEADERS \"Código\", \"Descripción\", \"Cant\", \"Precio\" ID 100 OF oDlg\n\nAlguien sabe porque me ocurre esto?\n\n\nUn saludo y gracias...\n\nElías Torres.','',0,'','dbdsjdlh',1,0,'',720,0,0),(19904,4488,7,2,0,'87.218.146.96',1159960940,1,0,1,1,1,1,'','','Elías,\n\nLos valores numéricos has de pasarlos a texto usando Str():\n\nFIELDS articulos-&gt;cod_art,articulos-&gt;nom_art, Str( articulos-&gt;cant ), \nStr( articulos-&gt;precio )\n\nya que los números se identifican como handles de bitmaps a dibujar.','',0,'','ms8ymebn',1,0,'',2,0,0),(19905,4488,7,720,0,'80.36.244.134',1159962610,1,0,1,1,1,0,'','','Gracias Antonio, ya está solucionado.....\n\n\nSaludos\n\nElías Torres','',0,'','2d147h99',1,0,'',720,0,0),(19906,4489,6,179,0,'200.69.181.39',1159965741,1,0,1,1,1,1,'','controles sobre dialog con color degradado','buenos dias compañeros\nTengo un dialogo con color degradado con una funcion que baje del foro\nComo debo poner un Say o un Get en ese dialogo para que me respete\nel color degradado del dialogo ?\n\nHe probado\n\noSay:Setcolor( CLR_BLACK, oSay:nClrPane )\n\no con \noSay:lTransparent := .T.\n\nsin resultados\n\nSe puede ?\n\nGracias','',0,'','21fdraxx',1,0,'',179,0,0),(19907,4478,2,790,0,'201.122.21.224',1159966420,1,0,1,1,1,0,'','gracias','de hecho ya tengo un 50% de cambio por eso quiero probrar con la v2.0\n\nGracias.','',0,'','3cbbh0sd',1,0,'',790,0,0),(19908,4489,6,2,0,'87.218.146.96',1159966848,1,0,1,1,1,1,'','','Wilson,\n\nPrueba llamando a FixSays( ::hWnd ) desde la claúsula ON INIT:\n\nACTIVATE DIALOG oDlg ON INIT FixSays( oDlg:hWnd )','',0,'','55jmusaw',1,0,'',2,0,0),(19909,1975,3,397,0,'201.13.91.185',1159966867,1,0,1,0,1,1,'','','Antonio\n\nYou can email this file for me in <!-- e --><a href=\"mailto:irochinha@itelefonica.com.br\">irochinha@itelefonica.com.br</a><!-- e -->?\n\ntanks.\n\nRochinha','',0,'','1cmy2wib',1,0,'',397,0,0),(19910,4333,2,790,0,'201.122.21.224',1159966880,1,0,1,1,1,0,'','Hola A&amp;C','Disculpa  con LLIBG pudistes quitar el consumo del cpu, o como le pudistes hacer,  tambien donde puedo conseguir esta libreria.\n\nGracias\nOros.','',0,'','1jpmfgaw',1,0,'',790,0,0),(19911,4490,3,435,0,'200.155.195.53',1159967394,1,0,1,1,1,0,'','TOle com IncrediMail ?','Alguem já consegui enviar email com IncrediMail e com anexo ?\n\nAri','',0,'','3v3d2fgu',1,0,'',435,0,0),(19912,1751,6,397,0,'201.13.91.185',1159968257,1,0,1,0,1,1,'','','Amiguinho\n\nTry this:\n\nFUNCTION TranspColor( oWnd, nRGB ) \n    SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, WS_BORDER ) \n    SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, WS_EX_LAYERED )\n    SetLayeredWindowAttributes( oWnd:hWnd, nRgb, 0, LWA_COLORKEY ) \n    RETURN NIL','',0,'','20j2d8xw',1,0,'',397,0,0),(19913,4485,3,190,0,'202.65.134.43',1159969138,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nThank you very much for your answers and revised harbour.exe\n\nI know these are Harbour issues.\n\nWhere should we go!. We will first bother you only because you are our master.\n\nRegards to you,\n\n- Ramesh Babu P','',0,'','1e3bnvbk',1,0,'',190,0,0),(19914,1975,3,190,0,'202.65.134.43',1159971160,1,0,1,1,1,0,'','','Mr.Antonio\n\nClicking on the HotSpots.zip link is resulting to \"BAD URL\".\n\nCan you please upload it once again.\n\nThanks\n\n- Ramesh Babu P','',0,'','1c70sjhz',1,0,'',190,0,0),(19915,4491,3,217,0,'200.159.120.34',1159971199,1,0,1,1,1,0,'','Change a no modal dialog  to modal after activate','Is possible change a no modal dialog to modal after activate him?\n\nI refer to any like:\n\n(...)\nactivate dialog oDlg NoWait centered\n\n// do anything\n\n// turn oDlg to modal here!\n\nRegards,\nMaurilio','',0,'','20b7lumv',1,0,'',217,0,0),(19916,4492,3,67,0,'62.235.24.124',1159972489,1,0,1,1,1,0,'','Button , text on two lines','Hello\n\nIs it possible to have a button , where the text (cCaption) is locatedt in two rows ?\n\nI tryed with : \n\n[code:3nvr22gf]\n@ 1,18 BUTTON &quot;Kies inputtype en &quot; + CRLF + &quot;klik om verder te gaan&quot;   OF oDlg ACTION &#40;lOk &#58;= &#46;T&#46; , oDlg&#58;end&#40;&#41;&#41; SIZE 110 , 28\n[/code:3nvr22gf]\n\nNo succes\n\nFrank','',0,'AIA=','3nvr22gf',1,0,'',67,0,0),(19917,4493,6,409,0,'201.246.67.189',1159972815,1,0,1,1,1,0,'','PARA RALPH DEL CASTILLO','Ralph la clases (txtpreview y fGet) tiene problemas cuanto uno se muve hacia la derecha desaparece todo en pantalla.\n\nSaludos','',0,'AIA=','bjrf5s7t',1,0,'',409,0,0),(19918,4491,3,303,0,'72.199.41.171',1159972946,1,0,1,1,1,0,'','','Maurilio,\n\nWhat you descibe doesn\'t sound very useful.\n\nExample. You put up a non-modal dialog over a parent window and the user clicks on the toolbar on the parent window, but instead of the button working, the dialog becomes modal. I can imagine a very confused user.\n\nPerhaps I am not understanding what you are trying to do?\n\nJames','',0,'AIA=','2wekh4pi',1,0,'',303,0,0),(19919,4489,6,179,0,'200.69.181.39',1159973003,1,0,1,1,1,1,'','','gracias Antonio, lo voy a probar\nPero como declaro los colores de los Say o Get ?\nlos dejo como transparentes\n\nSaludos','',0,'AIA=','3qbgncum',1,0,'',179,0,0),(19920,4492,3,303,0,'72.199.41.171',1159973106,1,0,1,1,1,0,'','','Frank,\n\nHere are some previous messages about that.\n\nJames\n\n\n[quote:27bykk5j]From: André Venturini Scaravelli &lt;andrevs@theway.com.br&gt;\nSubject: 2 rows in button\'s caption\nDate: Thursday, December 21, 2000 4:16 PM\n\nHi,\nCan a button\'s caption has 2 rows?\n\nAdd to Style Button the number 8192\n----------------------------\n#define CR  Chr( 13 )\n//\nFUNCTION uMultLineBtn_Test()\n \n   local oDlg, oBtn\n   local cCaption := \'Botones con...\' + CR + ;\n      \'caption multilínea.-\' + CR + ;\n      \'Para conseguirlo basta con emitir la sencilla sentencia...\' + CR + ;\n      \'oBtn:nStyle := \' + CR + ;\n      \'nOr( oBtn:nStyle, 8192 )\'\n \n   DEFINE DIALOG oDlg         ;\n      FROM 00, 00 TO 17, 100  ;\n      TITLE cCaption\n \n      @ 03, 03 BUTTON oBtn PROMPT cCaption   ;\n         OF oDlg                             ;\n         SIZE 100, 070\n\n      oBtn:nStyle := nOr( oBtn:nStyle, 8192 ) // this works fine!\n \n   ACTIVATE DIALOG oDlg CENTERED\n \nRETURN NIL\n\n-------------------------------------------\nHere is how to do it with resources:\n\n&gt; I am still looking for a solution which enables me to put 2 (or even more)\n&gt; lines of text on a button which is created from a .dll resource. I\'ve tried\n&gt; several things but still haven\'t found a working solution.\n\nYou have to:\n\n1. Open your DIALOG resource and go to Edit as text mode.\n\n2. Add the value 8192 at the end of the PUSHBUTTON statement (separate\nit by a comma).\n\n3. Inside the ON INIT clause of the DIALOG command use oBtn:cTitle()\nmethod to set the caption of the button (separate the lines by a CHR( 13\n)).\n\nThat\'s all.\n\nEMG\n\n--\nEMAG Software Homepage:     <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it\">http://www.emagsoftware.it</a><!-- m -->\nThe EMG\'s ZX-Spectrum Page: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/spectrum\">http://www.emagsoftware.it/spectrum</a><!-- m -->\nThe Best of Spectrum Games: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/tbosg\">http://www.emagsoftware.it/tbosg</a><!-- m -->[/quote:27bykk5j]','',0,'gA==','27bykk5j',1,0,'',303,0,0),(19921,4491,3,217,0,'200.159.120.34',1159973327,1,0,1,1,1,0,'','','James,\n\nWhat I want do is create a black or gray dialog and turn it transparent (it will causa a shadow over my screen) and after I activate my dialog.\nThe effect I want is like when whe click Start / Shutdown where the backgroud turn shadowed.\n\nNow I do this sequence:\n1. create a non modal dialog (shadow) \n2. create a modal dialog\n3. when close the modal close shadow too\n\nMy problem:\nThe shadow effect display ok, but if I click in non modal dialog (shadow) it appear over the modal dialog and I can\'t get back...\n\nRegards\nMaurilio','',0,'gA==','3hrtqq8t',1,0,'',217,0,0),(19922,4491,3,303,0,'72.199.41.171',1159974604,1,0,1,1,1,0,'','','Maurilio,\n\nHmm. The modal/non-modal state is set via the STYLE clause and I don\'t think an object can have it\'s style changed after it is created (but I may be wrong).\n\nCan you just make both dialogs modal? You can call one modal dialog from another, but the user wouldn\'t be able to click on the first dialog (the shadow). I mean, they could click on it, but the click would be ignored. You can close the first dialog via code after the second one is opened.\n\nI don\'t know it that helps.\n\nJames','',0,'gA==','3ngpv984',1,0,'',303,0,0),(19923,4489,6,2,0,'87.218.146.96',1159975786,1,0,1,1,1,1,'','','La función FixSays() los hace transparentes.','',0,'gA==','13fa9pw0',1,0,'',2,0,0),(19924,4491,3,2,0,'87.218.146.96',1159975935,1,0,1,1,1,1,'','','Maurilio,\n\nIf you disable (oWnd:Disable()) all windows and dialogs under the dialog, it will act as a modal dialog.','',0,'gA==','3o6hkihd',1,0,'',2,0,0),(19925,4333,2,138,0,'189.141.70.60',1159976012,1,0,1,1,1,1,'','','El consumo de CPU con apicaciones de 16 bits no es facil de reducir, sobre todo porque tienes que ejecutar 2 programas mas para poder correr sobre XP o NT, como son el NTDVM.EXE y WOWEXEC.EXE, asi que de todas formas vas a tener consumo de CPU.\n\nLa LLIBG.LIG es el Light Lib Graphics, una libreria para interfaces graficas que viene incluida en el Clipper 5.3.','',0,'gA==','14sx6e5n',1,0,'',138,0,0),(19926,4494,3,817,0,'83.13.6.58',1159976656,1,0,1,1,1,0,'','buildx  samples 2.8','Hello Mr.Antonio \n\nWhen I tried to build samples with buildx.bat + xHarbour9960, \nI am getting the following error: \n\nunable to open file gtgui.lib\n\nwhat is gtgui.lib ,  where can i found this lib  \n\nIf I use gtwin.lib instead , I am getting :\n\nUnresolved external \'_hb_objHasMessage\' referenced from FIVEHC.LIB|FFDLGPRC\nUnresolved external \'_HB_FUN___CLSCNTCLASSES\' referenced from FIVEHX.LIB|ERRSYSW\n \n\n\nRegards,','',0,'gA==','30tyjebc',1,0,'',817,0,0),(19927,4495,7,57,0,'88.0.86.53',1159977281,1,0,1,1,1,1,'','Antonio, Es posible incluir tTxtFile class','Antonio\nNecesito utilizar la clase tTxtFile. ¿Es posible incluirla en FWPPC?\n\nSaludos','',0,'gA==','3or405l4',1,0,'',57,0,0),(19928,4412,3,159,0,'210.243.203.20',1159977657,1,0,1,1,1,0,'','','You can try this:\n<!-- m --><a class=\"postlink\" href=\"http://www4.zzz.com.tw/phpbb2/viewtopic.php?t=28\">http://www4.zzz.com.tw/phpbb2/viewtopic.php?t=28</a><!-- m -->\n\nThe sample can get more networks!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[code:17xb28nj]\n#INCLUDE &quot;FIVEWIN&#46;CH&quot; \nFunc    Test&#40;&#41; \nLocal   aNet      &#58;= &#123;&#125;,; \n        nI        &#58;= 0 \n\n        msgInfo&#40; &quot;Test Begin&#46;&#46;&#46;&quot; &#41; \n        aNet &#58;= GetMacAddress&#40;&#41; \n        msgInfo&#40; &quot;Test OK&quot; &#41; \n        If Len&#40;aNet&#41; &gt; 0 \n           MsgInfo&#40; &quot;You have&#58;&#91;&quot;+Str&#40; Len&#40;aNet&#41;, 2, 0 &#41;+&quot;&#93; Network Cards!&quot; &#41; \n           For nI &#58;= 1 To Len&#40;aNet&#41; \n               cStr &#58;= &#91;&#93; \n               cStr += &#91;Card Num&#58;&#93;+Str&#40;nI,2,0&#41;+CRLF \n               cStr += &#91;Desc&#58;&#93;+aNet&#91;nI,1&#93;+CRLF \n               cStr += &#91;Mac Address&#58;&#93;+aNet&#91;nI,2&#93;+CRLF \n               msgInfo&#40; cStr, &quot;Your Network Cards&quot; &#41; \n           Next nI \n        Else \n           Tone&#40; 1000, 1 &#41; \n           MsgStop&#40; &quot;No any Network Card!!&quot; &#41; \n        EndIf \n\nReturn  NIL \n[/code:17xb28nj]\n\n[quote:17xb28nj]\nif GetNetCardID() &lt;&gt; \'XXXXXXX\' \n   MsgInfo(\'This Computer is not licensed\') \nendif \n\nThis is useful only when the user has an eithernet card in his P.C \nand to control multi-user  applications. It may not be useful for stand\nalone applications.\n\nIf the user has several eithernet cards in his P.C ?\nor\nIf he keep changing his eithernet cards frequently ?\n[/quote:17xb28nj]','',0,'gIA=','17xb28nj',1,0,'',159,0,0),(19929,4494,3,2,0,'87.218.146.96',1159977889,1,0,1,1,1,1,'','','Please use the xHarbour build setup that we provide.','',0,'gIA=','7x0gntnq',1,0,'',2,0,0),(19930,4491,3,217,0,'200.159.120.34',1159977944,1,0,1,1,1,0,'','','James and Antonio,\n\nI\'ll do some tests.\n\nThanks a lot!\nMaurilio','',0,'gIA=','n00xsaij',1,0,'',217,0,0),(19931,4412,3,190,0,'202.65.134.43',1159979310,1,0,1,1,1,0,'','','Hi ssbbs\n\nThanks for your MAC.LIB which is holding \nGetMacAddress() to know the no. of Network cards,\ntheir manufacturer and Mac Address.\n\n- Ramesh Babu P','',0,'gIA=','np6szjtb',1,0,'',190,0,0),(19932,1975,3,2,0,'87.218.146.96',1159982038,1,0,1,1,1,1,'','','Rochinha,\n\nWe don\'t have it, sorry and it looks as the download url is broken.\n\nmaybe someone else has it and can help us.','',0,'gIA=','1i0niwsy',1,0,'',2,0,0),(19933,4489,6,179,0,'200.69.181.39',1159984722,1,0,1,1,1,1,'','','Gracias Antonio, funciona con los Say y los Get\npero no con los CheckBox\n\nHay alguna solucion ?\n\nSaludos','',0,'gIA=','usk6aik3',1,0,'',179,0,0),(19934,4404,6,237,0,'200.68.70.89',1159985501,1,0,1,1,1,0,'','???','Las versiones que te di, las saque de la manera que me sugeristes y son los numeros que figuran tanto en el registro del sistema, como en los dialogos \"Acerca de...\"\nCabe destacar que oportunamente descargue todas las actualizaciones de Microsoft Office para word y excel. \nNo veo que el problema sea de version, ya que ejemplo de pdf tampoco me funciona.\nHe probado copiar los ejemplos generados a otra pc con w98se con igual resultado, todo se cuelga.\n\nMuchos saludos!','',0,'gIA=','3i4db5os',1,0,'',237,0,0),(19935,4489,6,2,0,'87.218.146.96',1159985999,1,0,1,1,1,1,'','','Wilson,\n\nNo por el momento.','',0,'gIA=','po2foq5f',1,0,'',2,0,0),(19936,4404,6,2,0,'87.218.146.96',1159986078,1,0,1,1,1,1,'','','Puedes probarlo con Microsoft Office 2003 ?\n\nAqui todos los ejemplos funcionan correctamente con Office 2003.','',0,'gIA=','3pr0eq0c',1,0,'',2,0,0),(19937,4489,6,179,0,'200.69.181.39',1159986402,1,0,1,1,1,1,'','','ok Antonio\nGracias','',0,'gIA=','2iiwgkaz',1,0,'',179,0,0),(19938,4496,6,75,0,'83.36.141.74',1159988594,1,0,1,1,1,0,'','Calculadora','¿Alguien tiene desarrollada una calculadora que simule rollo de papel?.','',0,'gIA=','2s8rdo2h',1,0,'',75,0,0),(19939,1975,3,343,0,'24.173.70.25',1159990874,1,0,1,1,1,0,'','','I have uploaded a copy of hotspot.zip\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/023041ea66/hotspot.zip.html\">http://hyperupload.com/download/023041e ... t.zip.html</a><!-- m -->','',0,'gIA=','1xl6em1v',1,0,'',343,0,0),(19940,4497,6,9,0,'85.60.54.140',1159992547,1,0,1,1,1,1,'','Actualizar Header Listbox','Estoy usando un listbox cuyos Header (31) defino en una matriz. Una de las opciones, es cambiar los Header, por lo que lo envió a la función que crea la matriz y me devuelve correctamente los valores, pero al actualizar el listbox (oDlg:UPDATE(), oLbx:Refresh()) no me cambia nada.\n¿Alguna idea?','',0,'gIA=','2e02dun4',1,0,'',9,0,0),(19941,1975,3,2,0,'87.218.146.96',1159993488,1,0,1,1,1,1,'','','Gale,\n\nThanks!','',0,'gIA=','2hv5jq61',1,0,'',2,0,0),(19942,4497,6,492,0,'189.147.20.93',1160000647,1,0,1,1,1,1,'','','Hola Manuel\n\nYa probaste con oLstBrw:aHeaders := aTuArreglo\n\nEsto, usando el browse de Hernan.\n\n\nSaludos','',0,'gIA=','4b8au417',1,0,'',492,0,0),(19943,4498,3,34,0,'68.4.154.81',1160000829,1,0,1,1,1,1,'','Multi Column Array Combo box','I\'m used to using a pop up browse whenever the value of a combo box requires more than 1 column be displayed.  I show the value in column 1 and a description in column 2.  When I select the element, the value is returned.\n\nDo we have this capability yet in FW within the combobox get field ?\n\nTim','',0,'gIA=','hzx4n7s3',1,0,'',34,0,0),(19944,4285,3,69,0,'74.13.28.98',1160003833,1,0,1,1,1,0,'','','Here is a screen shot for the memory...\n\n[img:yq5tmegr]http&#58;//www&#46;can-soft&#46;net/dl/Memory&#46;JPG[/img:yq5tmegr]','',0,'CA==','yq5tmegr',1,0,'',69,0,0),(19945,4498,3,303,0,'72.199.41.171',1160005746,1,0,1,1,1,0,'','','Tim,\n\nYou can do this with a DBCombo. If the data is already in a DBF and you don\'t really need to display the value, then just display the description and DBCombo returns the value.\n\nREDEFINE DBCOMBO oCbx VAR cDeptCode ID 101 OF oDlg ;\n        ALIAS \'DEPT\' ;\n        ITEMFIELD \'DEPTCODE\' ;\n        LISTFIELD \'DEPTNAME\'\n\nOtherwise, if you really must display the value, then create two arrays, one containing both the value and the description concantenated, and another containing just the value. Use the concantenated array as the description (aList) array and the value array as the other (aItem). The value will then be returned.\n\noCbx:setItems( aItem, aList )\n\nI find that most users don\'t care a bit about the value (custno, etc.). It is the computer that needs that, so I usually just display the value. \n\nJames','',0,'CA==','2x74zmtp',1,0,'',303,0,0),(19946,1975,3,397,0,'201.13.91.185',1160007608,1,0,1,0,1,1,'','','Good\n\nThanks to all!!!','',0,'CA==','1m00nj83',1,0,'',397,0,0),(19947,4262,7,150,0,'62.15.122.92',1160007848,1,0,1,1,1,1,'','','Hola Antonio\n\n      USE (cFich) NEW  VIA \"DBFCDX\"  ALIAS TIC //SHARED\n\nSin la clausula SHARED funciona perfectamente en el emulador y en la pda Symbol mc-70.\n\nCuando pongo SHARED en el emulador se queda colgado y pone al 100% el procesador.\n\nEn la pda se queda colgado y preciso de un softreset.\n\nSaludos','',0,'CA==','10yy2vl8',1,0,'',150,0,0),(19948,4490,3,397,0,'201.13.91.185',1160008099,1,0,1,0,1,1,'','','Amiguinho\n\nIf Incredimail use MAPI you can try this:\n\n[code:39es4wq0]\n   local oMail\n\n   DEFINE MAIL oMail ;\n      SUBJECT &quot;FiveWin Mail-control power&quot; ;\n      FILES   &quot;c&#58;\\test&#46;doc&quot;, &quot;test&#46;doc&quot;;\n      TEXT    &quot;This is real xBase power at your fingertips!&quot; ;\n      TO      &quot;ALinares&quot;, &quot;FAX&#58; 05909294&quot;\n\n   ACTIVATE MAIL oMail\n[/code:39es4wq0]','',0,'AIA=','39es4wq0',1,0,'',397,0,0),(19949,1975,3,397,0,'201.13.91.185',1160008350,1,0,1,0,1,1,'','','??????\n\nThe file is empty!\n\n :cry:','',0,'AIA=','12yyguhl',1,0,'',397,0,0),(19950,4393,3,15,0,'203.73.66.233',1160012932,1,0,1,1,1,0,'','','Hello Antonio,\n\nCould you try Play GIF ActiveX within Resource Dialog?\nCould you fix this problem?\n\nRegards,\n\nRichard','',0,'AIA=','2kx99mbw',1,0,'',15,0,0),(19951,1975,3,303,0,'72.199.41.171',1160013816,1,0,1,1,1,0,'','','Rochina,\n\n&gt;The file is empty! \n\nMine download wasn\'t. Try downloading it again.\n\nJames','',0,'AIA=','cuqghiwh',1,0,'',303,0,0),(19952,4477,2,66,0,'200.127.97.223',1160016563,1,0,1,0,1,0,'','','Gerardo\n\nComunicate conmigo a mi email, te puedo dar una mano  \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','1azgm9g1',1,0,'',66,0,0),(19953,4417,2,124,0,'201.252.221.224',1160021370,1,0,1,1,1,0,'','','Antonio:\n\nGracias, haré la prueba.\n\nUn abrazo.\nRicardo.-','',0,'AIA=','1vb07kb2',1,0,'',124,0,0),(19954,4262,7,2,0,'87.218.146.24',1160022198,1,0,1,1,1,1,'','','Jose,\n\nPues por lo que parece no lo puedes usar con SHARED. Tendrás que usar una DBF temporal u otra solución.','',0,'AIA=','fvf0o2e9',1,0,'',2,0,0),(19955,4393,3,2,0,'87.218.146.24',1160022273,1,0,1,1,1,1,'','','Richard,\n\nThe animated GIF is properly working on a dialog, though the OCX control does not paint very well (it paints a strange border around).','',0,'AIA=','3tck42qn',1,0,'',2,0,0),(19956,4285,3,2,0,'87.218.146.24',1160022402,1,0,1,1,1,1,'','','Jeff,\n\nmemory seems ok so it looks as a xHarbour problem. Any chance to provide a small sample to reproduce the error ? Thanks,','',0,'AIA=','274m5qy1',1,0,'',2,0,0),(19957,4393,3,15,0,'203.73.66.233',1160024053,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3lbpswzq]Richard,\n\nThe animated GIF is properly working on a dialog, though the OCX control does not paint very well (it paints a strange border around).[/quote:3lbpswzq]\n\nAntonio,\n\nSo how to do it? or any suggestion or solution?\n\nRichard','',0,'gA==','3lbpswzq',1,0,'',15,0,0),(19958,4393,3,2,0,'87.218.146.24',1160024601,1,0,1,1,1,1,'','','Richard,\n\nYou may ask the OCX manufacturer. We have noticed the same strange behavior with Visual Basic. This is the working code:\n[code:jnue6qo6]\n#include &quot;FiveWin&#46;ch&quot;\n\nFunction TestActiveX_Dlg&#40;&#41;   \n\n   LOCAL oDlg, oActiveX\n\n   DEFINE WINDOW oDlg\n\n   @ 1, 1 ACTIVEX oActiveX OF oDlg ;\n      PROGID &quot;ANIMATEDGIF&#46;AnimatedGifCtrl&#46;1&quot;        \n\n   oActiveX&#58;Do&#40; &quot;AnimatedGif&quot;, &quot;world&#46;gif&quot; &#41;\n   oActiveX&#58;Do&#40; &quot;Play&quot; &#41;\n   \n   ACTIVATE WINDOW oDlg\n      \nRETURN NIL\n[/code:jnue6qo6]\nAnd here you have an AVI file:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0230e60253/world.zip.html\">http://hyperupload.com/download/0230e60 ... d.zip.html</a><!-- m -->','',0,'AIA=','jnue6qo6',1,0,'',2,0,0),(19959,4393,3,2,0,'87.218.146.24',1160024911,1,0,1,1,1,1,'','','Here you have the EXE:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ea275455/TestActX.zip.html\">http://hyperupload.com/download/02ea275 ... X.zip.html</a><!-- m -->','',0,'AIA=','3emtn1hk',1,0,'',2,0,0),(19960,4497,6,9,0,'85.60.54.140',1160025834,1,0,1,1,1,1,'','','Raymundo,\n\nMuchas gracias. Funcionó perfectamente.','',0,'AIA=','kv33enpa',1,0,'',9,0,0),(19961,4393,3,15,0,'203.73.66.233',1160026248,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2r1bk94x]Here you have the EXE:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ea275455/TestActX.zip.html\">http://hyperupload.com/download/02ea275 ... X.zip.html</a><!-- m -->[/quote:2r1bk94x]\n\nAntonio,\n\nBut I test some ActiveX( maybe OCX ) components,\nDefine Window work OK, but Resource Dialog not work.\n\nI just think why Window OK, Resource Dialog not OK\n\nRichard','',0,'gA==','2r1bk94x',1,0,'',15,0,0),(19962,4393,3,2,0,'87.218.146.24',1160027379,1,0,1,1,1,1,'','','Richard,\n\nThe EXE we have provided you is a DIALOG and it works fine.','',0,'gA==','1xxwwy5j',1,0,'',2,0,0),(19963,4499,6,456,0,'217.127.39.57',1160039634,1,0,1,1,1,1,'','TdbOdbcDirect problema con metodo :Update()','Estoy utilizando la clase TdbOdbcDirect, tengo asignado a un boton que ejecute el metodo Update, el problema es que si se pulsa Ok, y no se ha modificado ningun campo, la sentencia que genera es del tipo [code:1p8r2ie0]UPDATE tabla SET WHERE &#46;&#46;&#46;[/code:1p8r2ie0]\nesta cadena al ejutarla produce un error puesto que no hay ningun campo a acuatilizar despues del SET.\n\nAlguna idea para solucionarlo, yo he modificado el metodo :Update la linea que pone \n[code:1p8r2ie0]lRet &#58;= &#58;&#58;Execute&#40;cSql, &quot;TDbOdbcDirect&#58;Update&#40;&#41;&quot;&#41;[/code:1p8r2ie0]\npor esta otra\n[code:1p8r2ie0]lRet &#58;= IF&#40;Empty&#40;&#58;&#58;GenUpdate&#41;,&#46;T&#46;,&#58;&#58;Execute&#40;cSql, &quot;TDbOdbcDirect&#58;Update&#40;&#41;&quot;&#41;&#41; //Biel[/code:1p8r2ie0]\nEsto funciona correctamente, pero agradeceria si alguien le ha dado solución por otra via, u otra idea.','',0,'AIA=','1p8r2ie0',1,0,'',456,0,0),(19964,4500,4,89,0,'213.21.136.60',1160050224,1,0,1,1,1,0,'','Windows Ce.net','Hello Antonio \n\nI use for my programm (make with FWPPC ) a palm with  Windows CE.NET  4.20  Processor Intel(R) PXA255   a PSC Falcon 4200 , all the programms works very well .\n\nNow I have a cash register with Windows CE.NET 4.20 and Processor Intel(R) PXA255  the same as the palm  , but when I execute the program\nI get the message \"This program cannot be run in CE.NET\"\n\nI know that this problem could be due to the cash.\nAntonio , are you able to give me some clue as to solve this problem ? \n\nRegards Maurizio','',0,'AIA=','wedpf32u',1,0,'',89,0,0),(19965,4500,4,2,0,'87.218.146.24',1160051543,1,0,1,1,1,1,'','','Maurizio,\n\nBuild this little sample and test it on that Pocket PC:\n[code:zlt9sd1k]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; &quot;hello world!&quot; &#41;\n\nreturn nil\n\nfunction CeSetmenu&#40;&#41; ; return nil\nfunction GetMenu&#40;&#41; ; return nil\nfunction ReadBitmap&#40;&#41; ; return nil\nfunction PalBmpRead&#40;&#41; ; return nil\n[/code:zlt9sd1k]','',0,'AIA=','zlt9sd1k',1,0,'',2,0,0),(19966,4501,3,308,0,'84.148.20.106',1160052864,1,0,1,1,1,0,'','call visual-basic routin in an excel .xls','Hello Fivewinners,\n\nI have inserted a button in an Excel xls-File which invokes a Visual-Basic routine.\nhow can I invoke this routine cmdButton_Click() with ole?\n\nbest regards, Norbert','',0,'AIA=','1wnczxhf',1,0,'',308,0,0),(19967,4501,3,69,0,'206.210.97.138',1160053154,1,0,1,1,1,0,'','','Norbert,\n\nI don\'t know if this will help but you can try to record a macro, then click your button.  Now edit the macro and look at the code, it might give you an idea as to how to incoke from FW.\n\nJeff','',0,'AIA=','20mro1s4',1,0,'',69,0,0),(19968,4501,3,308,0,'84.148.20.106',1160054623,1,0,1,1,1,0,'','','Jeff, \n\n[quote=&quot;Jeff Barnes&quot;:18m728w5]Norbert,\n\nI don\'t know if this will help but you can try to record a macro, then click your button.  Now edit the macro and look at the code, it might give you an idea as to how to incoke from FW.\n\nJeff[/quote:18m728w5]\n\ngood idea but the click on the button isn\'t recorded in the Macro.\n\nNorbert','',0,'gA==','18m728w5',1,0,'',308,0,0),(19970,4501,3,343,0,'24.173.70.25',1160055124,1,0,1,1,1,0,'','','Try recording a macro. \nThen record another macro that runs the first macro.\nThen debug code and you will find something like\n    Application.Run \"Book1!Macro1\"\n\nMaybe this gives you a clue.','',0,'gA==','16quztnb',1,0,'',343,0,0),(19971,4404,6,237,0,'200.68.70.89',1160056061,1,0,1,1,1,0,'','Sigo igual','Antonio:\n\nDejemos de lado los ejemplos word y excel. Digamos que es la version...\n\nQue hay con respecto a pdf.prg ? por que se cuelga de la misma manera ?\nHe probado desinstalando la version que tenia y descargado recien mismo la ultima version disponible de la web 7.0.8 y sigo sin poder avanzar con este tema.\n\nNo se si tiene o no que ver por mi conocimiento de controles activex es muy reducido pero tambien intenté reemplazar el .6 del ejemplo por .7 ( por la version descargada )\n\noActiveX = TActiveX():New( oWnd, \"PDF.PdfCtrl.6\" ) por\noActiveX = TActiveX():New( oWnd, \"PDF.PdfCtrl.7\" )\n\nTampoco funciona.\nRealmente estoy empantanado por que no se que buscar.','',0,'gA==','38ei94hz',1,0,'',237,0,0),(19972,4500,4,89,0,'213.21.136.60',1160056424,1,0,1,1,1,0,'','','Antonio \n\nMany thanks for your quick response\n\nYour test work , but if I try this function in my Prg I have this error\n\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_CESETMENU(void)\"\n (?HB_FUN_CESETMENU@@YAXXZ) already defined in MASTROCE.obj\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_GETMENU(void)\" (\n?HB_FUN_GETMENU@@YAXXZ) already defined in MASTROCE.obj\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_READBITMAP(void)\n\" (?HB_FUN_READBITMAP@@YAXXZ) already defined in MASTROCE.obj\nFiveCEC.lib(AYGSHELL.obj) : error LNK2005: \"void __cdecl HB_FUN_PALBMPREAD(void)\n\" (?HB_FUN_PALBMPREAD@@YAXXZ) already defined in MASTROCE.obj\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_CESETMENU(void\n)\" (?HB_FUN_CESETMENU@@YAXXZ) already defined in MASTROCE.obj; second definition\n ignored\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_GETMENU(void)\"\n (?HB_FUN_GETMENU@@YAXXZ) already defined in MASTROCE.obj; second definition ign\nored\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_READBITMAP(voi\nd)\" (?HB_FUN_READBITMAP@@YAXXZ) already defined in MASTROCE.obj; second definiti\non ignored\nFiveCEC.lib(AYGSHELL.obj) : warning LNK4006: \"void __cdecl HB_FUN_PALBMPREAD(voi\nd)\" (?HB_FUN_PALBMPREAD@@YAXXZ) already defined in MASTROCE.obj; second definiti\non ignored\n   Creating library MASTROCE.lib and object MASTROCE.exp\nMASTROCE.exe : fatal error LNK1169: one or more multiply defined symbols found','',0,'gA==','541xdye0',1,0,'',89,0,0),(19973,4501,3,308,0,'84.148.20.106',1160056438,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:692uk7hl]Try recording a macro. \nThen record another macro that runs the first macro.\nThen debug code and you will find something like\n    Application.Run \"Book1!Macro1\"\n\nMaybe this gives you a clue.[/quote:692uk7hl]\n\nUnfortunately, this doesn\'t work either since the keystroke isn\'t recorded in the macro.\n\nI would like simply to fill a table with values and then reprocess these data by a routine which I have put on a key.\n[code:692uk7hl]\nPrivate Sub cmdCreateBeleg_Click&#40;&#41;\n\n    If &#40;bOLAnmeldung&#41; Then\n        \'MsgBox &quot;Anmeldung erfolgreich&quot;\n        bAngemeldet = True\n    End If\n    ReadCells\n    If bAngemeldet Then\n        bOk = bSetBelegKopf\n        bOk = bSetPositionen\n        bOk = bSaveBeleg\n        WriteErgebnis\n    Else\n\'         MsgBox &quot;Sie sind nicht an der Office Line angemeldet&#46;&quot;\n    End If\n\n    Clear\n\nEnd Sub\n[/code:692uk7hl]\n\nIsn\'t it possible to start a Visual-BASIC routine with OLE, then?\n\nNorbert','',0,'gIA=','692uk7hl',1,0,'',308,0,0),(19974,4262,7,150,0,'62.15.122.92',1160056979,1,0,1,1,1,1,'','','Gracias Antonio.\n\nPara este caso (en que la conectividad esta asegurda en todo el almacen) una solución muy buena es la que propone Astursoft que es usar Terminal Server.\n\nLa solución con ficheros temporales es posible, pero engorrosa. Si a alguien le funciona SHARED que por favor nos diga como lo hace.','',0,'gIA=','wd3r2a16',1,0,'',150,0,0),(19975,4501,3,343,0,'24.173.70.25',1160057355,1,0,1,1,1,0,'','','Why not put the code that is now in cmdCreateBeleg_Click() in a macro.\nThen call the macro from cmdCreateBeleg_Click(), and from external program.','',0,'gIA=','f0yz6bbg',1,0,'',343,0,0),(19976,4393,3,15,0,'59.121.155.75',1160057409,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:tisr9k3j]Richard,\n\nThe EXE we have provided you is a DIALOG and it works fine.[/quote:tisr9k3j]\n\nAntonio,\n\nI look your sample code not Dialog.\nIt\'s Window. I want Resource Dialog and REDEFINE ActiveX oActiveX ..ID\n\nRichard','',0,'gA==','tisr9k3j',1,0,'',15,0,0),(19977,4501,3,308,0,'84.148.20.106',1160058354,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:1j953sdi]Why not put the code that is now in cmdCreateBeleg_Click() in a macro.\nThen call the macro from cmdCreateBeleg_Click(), and from external program.[/quote:1j953sdi]\n\nBecause within this routine further Functionen are invoked.\nI have tested it. An error message \"Function or Sub not defined\" then comes\n\nNorbert','',0,'gA==','1j953sdi',1,0,'',308,0,0),(19978,4501,3,308,0,'84.148.20.106',1160058958,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:cs3ughgo]Why not put the code that is now in cmdCreateBeleg_Click() in a macro.\nThen call the macro from cmdCreateBeleg_Click(), and from external program.[/quote:cs3ughgo]\n\nI have worked to execute the routine as Macro (simple this Private remove).\nCan you still give me a tip as I start a Macro with OLE?\n\nNorbert','',0,'gA==','cs3ughgo',1,0,'',308,0,0),(19979,4501,3,343,0,'24.173.70.25',1160060197,1,0,1,1,1,0,'','','This works for me.[code:2759idju]function test&#40;&#41;\n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Excel&#46;Application&quot;&#41;\n   oExcel&#58;WorkBooks&#58;Open&#40; &quot;H&#58;\\My Documents\\test&#46;xls&quot; &#41;\n   oExcel&#58;Visible &#58;= &#46;t&#46;\n   oExcel&#58;Run&#40; &quot;test&#46;xls!Sheet1&#46;CommandButton1_Click&quot; &#41;\nreturn&#40; &#46;t&#46; &#41;\n[/code:2759idju]','',0,'AIA=','2759idju',1,0,'',343,0,0),(19980,4501,3,343,0,'24.173.70.25',1160060310,1,0,1,1,1,0,'','','Here is the code for my button in sheet1\n[code:1y4tsutg]Sub CommandButton1_Click&#40;&#41;\n  MsgBox &quot;Sie sind nicht an der Office Line angemeldet&#46;&quot;\nEnd Sub\n[/code:1y4tsutg]','',0,'AIA=','1y4tsutg',1,0,'',343,0,0),(19981,4503,3,299,0,'24.233.172.101',1160061007,1,0,1,0,1,0,'','SMTP Class','Hi.\n\nI\'m able to send email using tsmtp class just fine, but only from certain systems.    The very same code at other instalations with other ISPs I get the error below:\n[quote:hr66s1bc]\n10/05/2006 11:01:15: 554-rmail Microsoft MAIL Service, Version: 6.0.3790.211\n554-Your access to this mail system has been rejected due to the sending MTA\'s poor reputation.  Please reference the following URL for more information:\n554 <!-- m --><a class=\"postlink\" href=\"http://www.senderbase.org/search?searchString=196.12.172.21\">http://www.senderbase.org/search?search ... .12.172.21</a><!-- m -->\n[/quote:hr66s1bc]\n\nHow can I solve this problem?   Any ideas?\n\nThank you,\n\n\nReinaldo','',0,'gA==','hr66s1bc',1,0,'',299,0,0),(19982,4504,3,631,0,'200.228.66.196',1160061027,1,0,1,1,1,1,'','Error: Unresolved external \'_HB_FUN_HICON\' referenced from','Que lib devo carregar para não ver esse erro? O que devo fazer?\nEstou usando conf. segue\n  oIcon := HIcon():AddRESOURCE( \"ICON_1\" )\n\nGrato','',0,'gA==','143upoa1',1,0,'',631,0,0),(19983,4505,6,152,0,'201.236.46.203',1160061435,1,0,1,1,1,1,'','Loop con clase Report','Este proceso lee correctamente el primer registro y luego repite el mismo registro eternamente. He hecho todo tipo de cambios y el error persiste.\n\nAgradezco de antemanos a quien me pueda dar una luz.\n\n[code:2krrm1bb]\n Function ImprimeIngresos&#40; aVars &#41;\n*-------------------------------\n   &#40;cPAGMOV&#41;-&gt;&#40;DbSeek&#40;&quot;IN&quot; + DTOS&#40;dFecIni&#41; + &quot;000000&quot;, &#46;T&#46; &#41;&#41;\n\n   REPORT oInforme CAPTION &quot;Ingresos en Caja&quot; ;\n      TITLE &quot; &quot;, &quot; &quot;, &quot;Ingresos desde &quot;+DTOC&#40;dFecIni&#41;+&quot; al &quot;+DTOC&#40;dFecFin&#41;;\n      HEADER  &quot;COMERCIAL NITOBEL LTDA&#46;&quot; + SPACE&#40;100&#41; + &quot;Fecha &#58; &quot;+DTOC&#40;DATE&#40;&#41;&#41;;\n      FOOTER &quot;Pagina &#58; &quot;+STR&#40;oInforme&#58;nPage,3&#41; CENTER ;\n      PREVIEW\n\n                  COLUMN TITLE &quot;Tipo&quot;        ;\n                  DATA &#40;cPAGMOV&#41;-&gt;Tipo\n\n                  COLUMN TITLE &quot;Numero&quot;      ;\n                  DATA &#40;cPAGMOV&#41;-&gt;Numero\n\n                  COLUMN TITLE &quot;Fecha&quot;       ;\n                  DATA &#40;cPAGMOV&#41;-&gt;Fecha\n\n                  COLUMN TITLE &quot;Monto&quot;       ;\n                  DATA &#40;cPAGMOV&#41;-&gt;Pagado ;\n                  PICTURE &quot;@E 9,999,999&quot;     ;\n                  TOTAL ;\n                  GRID\n\n   END REPORT\n\n   ACTIVATE REPORT oInforme  ;\n          WHILE  &#46;NOT&#46;&#40;cPAGMOV&#41;-&gt;&#40;EOF&#40;&#41;&#41; &#46;AND&#46; &#40;cPAGMOV&#41;-&gt;Tipo = &quot;IN&quot; ;\n          FOR &#40;cPAGMOV&#41;-&gt;Fecha &gt;= dFecIni &#46;AND&#46; &#40;cPAGMOV&#41;-&gt;Fecha &lt;= dFecFin\n                \n[/code:2krrm1bb]','',0,'AIA=','2krrm1bb',1,0,'',152,0,0),(19984,4503,3,6,0,'82.57.160.211',1160064117,1,0,1,1,1,1,'','Re: SMTP Class','It seems that your SMTP server is currently blacklisted.\n\nEMG','',0,'AIA=','3r0m5m8b',1,0,'',6,0,0),(19985,4506,6,471,0,'190.40.127.19',1160064364,1,0,1,1,1,1,'','Que relacion hay entre una oFont de pantalla vs ofont impre','Hola,\n\nSabeis q relacion existe entre el tamaño de una oFont en la pantalla y \nla impresora ?. Si yo creo p.e.:\n\n    DEFINE FONT oFont NAME \'Andale Mono\' SIZE 0,12\ny\n    DEFINE FONT oFont NAME \'Andale Mono\' SIZE 0,12 OF oPrinter\n\nEn el primer caso oFont:nHeight = 12 y en el segudo oFont:nHeight=50.\n\nSupongo q debe ser en relacion a la cantidad de pixeles, pero....   ya \nno se donde buscar.\n\nMi gran problema es como crear una font igual en impresora q en pantalla.\n\n\nSalutacions.\nC.\n\nParece ser q en el metodo oFont:New() hay :\n\n   if oDevice != nil\n      ::nInpHeight = ( oDevice:nLogPixelY() / 72 ) * ::nInpHeight\n   endif\n\nCon lo q deduzco q en funcion de la resolucion de pantalla corrige el \ntamaño, para q siempre sea el mismo independiente de la impresora, pero:\n\nPor q 72 ?\n\nSaludos.\nC.','',0,'AIA=','3bbtmz3u',1,0,'',471,0,0),(19986,4503,3,299,0,'24.233.172.101',1160064636,1,0,1,0,1,0,'','','Enrico;\n\nThank you for your reply.  \n\nIndeed you are right.   Just confirmed it.\n\nI\'m going to try to speak to the ISP to see how to get out of the list or if they can simply provide a different ip to my customer.\n\nThanks,\n\n\nReinaldo.','',0,'AIA=','sghzz9ro',1,0,'',299,0,0),(19987,4500,4,2,0,'87.218.146.24',1160064712,1,0,1,1,1,1,'','','Mauricio,\n\nDo this:\n\nlib /REMOVE:AYGSHELL.obj FiveCEC.lib\n\nand try it again','',0,'AIA=','1d1ho2x2',1,0,'',2,0,0),(19988,4404,6,2,0,'87.218.146.24',1160064877,1,0,1,1,1,1,'','','Por favor prueba este ejemplo:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0287ba6816/pdf.zip.html\">http://hyperupload.com/download/0287ba6816/pdf.zip.html</a><!-- m -->\n\nAquí funciona correctamente','',0,'AIA=','26p17qgi',1,0,'',2,0,0),(19989,4507,6,579,0,'148.223.141.242',1160065303,1,0,1,1,1,1,'','U3 – Nuevo software incluido en las memorias USB','Hola cuates, tengo un sistema que les entrego a mis clientes dentro de una memoria USB con la idea de que lo corran ahí mismo.\n\nRecientemente recibí unas nuevas memorias “micro cruzar” de SanDisk (para mi gusto la mejor marca de memorias) y veo que ahora incluyen un software llamado U3, que lo que hace es que cuando se conecta la memoria al equipo, te presenta un menú con los “Accesos directos” para que selecciones el que deseas correr.\n\nAlguien sabe como puedo incluir en ese menú un acceso al EXE que les incluyo?','',0,'AIA=','qxm09sy0',1,0,'',579,0,0),(19990,4508,2,579,0,'148.223.141.242',1160065366,1,0,1,1,1,1,'','U3 – Nuevo software incluido en las memorias USB','Hola cuates, tengo un sistema que les entrego a mis clientes dentro de una memoria USB con la idea de que lo corran ahí mismo.\n\nRecientemente recibí unas nuevas memorias “micro cruzar” de SanDisk (para mi gusto la mejor marca de memorias) y veo que ahora incluyen un software llamado U3, que lo que hace es que cuando se conecta la memoria al equipo, te presenta un menú con los “Accesos directos” para que selecciones el que deseas correr.\n\nAlguien sabe como puedo incluir en ese menú un acceso al EXE que les incluyo?','',0,'AIA=','kg5vqkja',1,0,'',579,0,0),(19991,4501,3,308,0,'84.148.20.106',1160065380,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:1b57q0xs]This works for me.[code:1b57q0xs]function test&#40;&#41;\n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Excel&#46;Application&quot;&#41;\n   oExcel&#58;WorkBooks&#58;Open&#40; &quot;H&#58;\\My Documents\\test&#46;xls&quot; &#41;\n   oExcel&#58;Visible &#58;= &#46;t&#46;\n   oExcel&#58;Run&#40; &quot;test&#46;xls!Sheet1&#46;CommandButton1_Click&quot; &#41;\nreturn&#40; &#46;t&#46; &#41;\n[/code:1b57q0xs][/quote:1b57q0xs]\n\nIt works. Many thanks to you.\n\nNorbert','',0,'gIA=','1b57q0xs',1,0,'',308,0,0),(19992,4505,6,53,0,'189.139.10.217',1160067165,1,0,1,1,1,1,'','','gdeteran:\n\nYo simplemente lo haría así:\n\n\nACTIVATE REPORT oInforme FOR (cPAGMOV)-&gt;Fecha &gt;= dFecIni .AND. (cPAGMOV)-&gt;Fecha &lt;= dFecFin .AND. (cPAGMOV)-&gt;Tipo = \"IN\";\nWHILE ! EOF()\n\nProbar no cuesta\n\nSaludos, Armando','',0,'gIA=','19j78nqt',1,0,'',53,0,0),(19993,4509,6,389,0,'189.133.23.16',1160068978,1,0,1,1,1,0,'','OT: Donde solicitar informacion de vTaskBar ?','Saludos','',0,'gIA=','3769ea3v',1,0,'',389,0,0),(19994,4509,6,439,0,'190.0.129.233',1160069684,1,0,1,1,1,1,'','','Esta clase pertenece a Paco.\n<!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->','',0,'gIA=','2v93w20c',1,0,'',439,0,0),(19995,3308,6,180,0,'81.38.5.147',1160071371,1,0,1,1,1,0,'','','Hola de nuevo Antonio, \n¿ Hay algo nuevo sobre este asunto ?\n<!-- m --><a class=\"postlink\" href=\"http://img512.imageshack.us/img512/1092/pintadolb5.png\">http://img512.imageshack.us/img512/1092/pintadolb5.png</a><!-- m -->\n\nEl efecto queda bastante antiestético.\n\nUn saludo,\nManuel','',0,'gIA=','1nkdgjm0',1,0,'',180,0,0),(19996,4498,3,34,0,'68.4.154.81',1160071679,1,0,1,1,1,1,'','DBCombo','Of course, I\'m using tData ... and replacing a field in an existing database with a lookup value ....\n\nTim','',0,'gIA=','3tuyxxza',1,0,'',34,0,0),(19997,4510,6,138,0,'189.141.70.60',1160072840,1,0,1,1,1,1,'','CanalFive ya disponible en Mexico.','Pues a todos nuestros clientes de Mexico, les informo que hemos llegado a un acuerdo con Paco para distribuir sus controles en Mexico.\n\nActualmente tenemos disponible la clase VTaskBar, pero pronto tendremos mas sorpresas, paco me va a matar, pero bueno... aqui esta una primicia: Control tipo barra de Outlook con un VTaskBar.\n\n[img:1d6p4qtz]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/c52&#46;jpg[/img:1d6p4qtz]\n\nTambien tenemos en la chistera una nueva clase MENU, un calendario nuevo muy bonito, una clase para titulos en dialogos, y ademas, esto: que todavia esta en una etapa temprana de desarrollo:\n\n[img:1d6p4qtz]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/c51&#46;jpg[/img:1d6p4qtz]','',0,'CA==','1d6p4qtz',1,0,'',138,0,0),(19998,4404,6,237,0,'200.68.70.89',1160072949,1,0,1,1,1,0,'','Error','Cuando ejecuto el ejemplo al menos no se cuelga como los generados en mi pc sino que muestra una dialog box con lo siquiente:\n\nHarbour Exeption ( titulo )\n\nCalled from CREATEACTIVEX(0)\nCalled from TACTIVEX&#058;NEW(0)\n\nCuando acepto este dialogo, se cuelga como los demas ejemplos.\n\nGracias.','',0,'CA==','dwxx1awi',1,0,'',237,0,0),(19999,4498,3,303,0,'72.199.41.171',1160073189,1,0,1,1,1,0,'','','Tim,\n\n&gt;Of course, I\'m using tData ... and replacing a field in an existing database with a lookup value .... \n\nGreat, then something like this will work:\n\nREDEFINE DBCOMBO oCbx VAR oDept:deptCode ID 101 OF oDlg ; \nALIAS oDept:cAlias ; \nITEMFIELD \'DEPTCODE\' ; \nLISTFIELD \'DEPTNAME\';\nUPDATE\n\nThis will display the field DEPTNAME and post the oDept:deptCode var back into the DEPTCODE field.\n\nIf you want to display both fields, then you will have to use arrays as I mentioned in my previous message.\n\nI forgot to mention that the current version of DBCombo also has built-in incremental searching. The database must be indexed on the displayed field using the UPPER() function. The backspace key is functional, and the spacebar resets the search. You can also use the up and down arrow keys when the incremental search gets close to a match.\n\nJames','',0,'CA==','1srkl682',1,0,'',303,0,0),(20000,4507,6,138,0,'189.141.70.60',1160076168,1,0,1,1,1,1,'','','Hasta donde tnego entendido, el U3 es una tecnolgoia que te permite instalar cualquier software en la memoria USB sin necesidad de tener que instalarlo en  una computadora portatil o de escritorio, esto con el fin de que no tengas que ir cargando una computadora para utilizar tus programas, por ejemplo imaginate que instalas el Office en una memoria USB con U3, y que te llevas tu office, con tus docuemtnos, tus configuraciones y todo  de una compu para otra y que ademas lo puedas utilizar sin necesidad de instalar el o los programas en la computadora donde conectas la USB con U3, o bien, si utilizar por ejemplo Thunderbird para tu correo electronico, que te lleves tu clinte de correo ya instalado y que puedas descargar tu correo desde cualquier computadora sin perden ningun mensaje.\n\nHe usado memorias con U3 y lo que yo se, es que tienes que realizar un proceso de instalacion (no solo de copiado delos datos) completo de Windows a travez de un archivo MSI (Microsoft Installer), tienes que conectar la memora USB U3 a tu equipo de escritorio, cargar el softwre de U3 y decirle a tu instalador, cuando selecciones donde quieres instalar, que lo haga sobre la memoria USB, en ese momento U3 detecta una instalacion en el dispositivo removible, y hace la instalacion correspondiente, dando de alta el nuevo software instalado dentro del acceso directo de U3.','',0,'CA==','3d6h3l7w',1,0,'',138,0,0),(20001,4506,6,138,0,'189.141.70.60',1160076440,1,0,1,1,1,1,'','','Esos calculos no te dicen nada, porque no puedes crear fonts universales para pantalla y para impresora.\n\nLa razon es muy simple: la resolucion de la impresora, no todas las impresoras tienen la misma resolucion, por eso los fonts hay que crearlos al momento de acuerdo a la impresora.\n\nEl Objeto printer es altamente dependiente del driver de impresora que estes utilizando, cuando tu defines un objeto printer, este va y busca dentro de los datos proporcionados por el driver de la impresora que se le ha asignado al objeto, los factores de conversion que debera aplicar a fuentes, brushes, lineas y todos los elementos graficos, para poder desplegar en los tamaños adecuados, pero esto no lo puedes saber hasta que la impresora ha sido asignada a un objeto printer.','',0,'CA==','qpv9lcdl',1,0,'',138,0,0),(20002,4499,6,138,0,'189.141.70.60',1160076523,1,0,1,1,1,1,'','','Biel:\n\nNo mates pulgas a cañonazos, hazlo por ADO que va como una moto, sin complicacines de ODBC, DSN, conectores, cursores en memoria ni nada.','',0,'CA==','a6g4zsuy',1,0,'',138,0,0),(20003,4404,6,2,0,'87.218.146.24',1160077148,1,0,1,1,1,1,'','','Posiblemente el PROGID que se está usando no coincida con la versión de Adobe Acrobat Reader que tengas instalada en tu ordenador. Por favor, instala la versión más actualizada de Adobe.','',0,'CA==','qbp8lt7g',1,0,'',2,0,0),(20004,3308,6,2,0,'87.218.146.24',1160077555,1,0,1,1,1,1,'','','Manuel,\n\nAún no. Lo tenemos pendiente de revisar cuanto antes.','',0,'CA==','r0yo4ebt',1,0,'',2,0,0),(20005,4507,6,579,0,'148.223.141.242',1160077920,1,0,1,1,1,1,'','','Hola Maestro,\n\nMira, uso el CreateInstall para hacer que mi programa se instale, lo hice, como me indicaste, instlandolo e indicando que lo hiciera a la memoria, apague la maquina, retire el chupon, la volvi a encender, inserté el chupon, arranca automáticamente el U3, doy clic en el icono de \"U3\" y no aparece ningun acceso directo al sistema, en el LaunchPad.\n\nSe me hacía muy lógico lo que dices pero no jaló. Cualquier otra sugerencia será bienvenida.','',0,'CA==','3hvuq214',1,0,'',579,0,0),(20006,1975,3,397,0,'201.13.91.185',1160081894,1,0,1,0,1,1,'','','Ohhhh yes!!!\n\n\nthanks','',0,'CA==','36w7krda',1,0,'',397,0,0),(20007,4285,3,213,0,'24.242.230.43',1160083492,1,0,1,1,1,0,'','','Jeff,\n\nAre you still having the same problem with the latest xharbour release?\n\nAre you using the FWH 2.7 Apr 2006 release?\n\nRegards,\nRandal Ferguson','',0,'CA==','2lmsr267',1,0,'',213,0,0),(20008,4505,6,152,0,'201.236.46.203',1160085491,1,0,1,1,1,1,'','Loop con clase Report','Armando :\n\nDesgraciadamente persiste el error.\n\nUso CDX, no se si el RDD este con error.\n\nGracias','',0,'CA==','1do1migm',1,0,'',152,0,0),(20009,4505,6,53,0,'189.139.26.69',1160088619,1,0,1,1,1,1,'','','Gonzalo:\n\nNo creo que sea el RDD, yo tambien uso CDX y no he tenido problemas, por no dejar quita el WHILE ! EOF()\n\nSaludos, Armando','',0,'CA==','1udz0ytj',1,0,'',53,0,0),(20010,4498,3,34,0,'68.4.154.81',1160091071,1,0,1,1,1,1,'','DBCombo','Actually, the problem I had was with the .RC file.  I used a standard combo box control but it didn\'t display correctly with this command.  \n\nI use the Pelles C resource program, and compile it in xHarbour, so its a little different than the example Antonio provides.\n\nI\'ll have to play with it ... \n\nTim','',0,'CA==','1ejfh9bv',1,0,'',34,0,0),(20011,4511,2,501,0,'200.32.103.127',1160097548,1,0,1,1,1,0,'','Pregunta sobre tDosPrn','La clase tdosprn soporta imprimir en \"\\\\Servidor\\EpsonLX300\", tengo que hacer unos cambios en un sistema y no me funciona cuando la impresora no esta en LPT1 o 2, etc.\n\nGracias.','',0,'CA==','1scrjnx6',1,0,'',501,0,0),(20012,4285,3,69,0,'74.13.28.98',1160098616,1,0,1,1,1,0,'','','Hi Randal,\n\nI am using FWH 2.7 July 2006 Build \n\nxHarbour Compiler build 0.99.61 (SimpLex)\n\n\nJeff','',0,'CA==','1p22644e',1,0,'',69,0,0),(20013,4512,6,18,0,'189.143.38.56',1160102381,1,0,1,1,1,1,'','Ftp y InternetWriteFile()','Un saludo a todos :\n\nEstoy usando la función InternetWriteFile() para realizar actualizaciones a un FTP y cuando el archivo tiene un tamaño mayor a 9kb la transaccion se corta.\n\nEste es ejemplo del código que estoy usando :\n\n[code:3me17gcy]\n\nFUNCTION FtpWriteFile&#40;cFtpSite,cFtpUser,cFtpPassword,cFtpLocal,cFtpRemote,oFtpMeter,nMeterStart,nMeterEnd&#41;\n\n    LOCAL hInternet, hConnect,lReturn, i\n    local cBuffer&#58;=space&#40;1024&#41;\n    local nBufSize&#58;=1024\n    local handle\n    local nSize\n    local nProgress\n    local nWritten&#58;=0\n    local lValue\n    local nRange\n    local hFile\n    local nBytes\n\n    nSize&#58;=fsize&#40;cFTPlocal&#41;\n\n    if oFTPMeter&lt;&gt;NIL\n        nRange&#58;=nMeterEnd-nMeterStart\n    endif\n\n    ftplog&#40;&quot;&quot;&#41;\n    ftplog&#40;&quot;Session FTPWRITEFILE - Site&#58; &quot;+cFtpRemote+&quot; Local file&#58;&quot;+cFtpLocal+&quot; Remote file&#58; &quot;+cFtpRemote&#41;\n\n    ftplog&#40;&quot;Loading Wininet&#46;dll&quot;&#41;\n    hLib &#58;= LoadLibrary&#40; &quot;\\Windows\\System32\\wininet&#46;dll&quot; &#41;\n*    hLib &#58;= Control&#40;&quot;wininet&#46;dll&quot;,oDlg&#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hLib,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling InetOpen&quot;&#41;\n    hInternet &#58;= INETOPEN&#40; &quot;Anystring&quot;, 0, 0, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hInternet,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling hConnect&quot;&#41;\n    hConnect = INETCONNECT&#40; hInternet, cFtpSite, 21, cFtpUser, cFtpPassword,INTERNET_SERVICE_FTP, 0, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hConnect,10&#41;&#41;\n\n    ftplog&#40;&quot;Calling FtpOpenFile&quot;&#41;\n    hFile &#58;= FtpOpenFile&#40; hConnect, cFtpRemote, GENERIC_WRITE, FTP_TRANSFER_TYPE_BINARY, 0 &#41;\n    ftplog&#40;&quot;Done&#46; Handle&#58;&quot;+str&#40;hFile,10&#41;&#41;\n\n    nProgress&#58;=0\n    handle&#58;=fopen&#40;cFtpLocal&#41;\n        while &#40; nBytes &#58;= FRead&#40; handle, @cBuffer, nBufSize &#41; &#41; &gt; 0\n            lReturn&#58;=InternetWriteFile&#40;hFile, cBuffer, nBytes, @nWritten &#41;\n            if lReturn=&#46;f&#46;\n                ftplog&#40;&quot;Write error&#46;&quot;+str&#40;hFile,10&#41;&#41;\n            endif\n\n            nProgress += nWritten\n            ftplog&#40;&quot;Wrote &quot;+alltrim&#40;str&#40;nProgress,10&#41;&#41;+&quot; of &quot;+alltrim&#40;str&#40;nSize,10&#41;&#41;&#41;\n            if oFTPMeter&lt;&gt;NIL\n                oFTPMeter&#58;Set&#40;nMeterStart+&#40;nProgress*nRange&#41;/nSize&#41;\n            endif\n        end\n        FClose&#40; handle &#41;\n\n    lValue&#58;=INETCLOSE&#40; hFile &#41;\n    if lValue\n        ftplog&#40;&quot;Closing FtpOpenFile&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing FtpOpenFile&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;=INETCLOSE&#40; hConnect &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HCONNECT&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HCONNECT&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;=INETCLOSE&#40; hInternet &#41;\n    if lValue\n        ftplog&#40;&quot;Closing HINTERNET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing HINTERNET&#46; Error&#46;&quot;&#41;\n    endif\n\n    lValue&#58;= FreeLibrary&#40; hLib &#41;\n    if lValue&lt;&gt;0\n        ftplog&#40;&quot;Closing WININET&#46; Ok&#46;&quot;&#41;\n    else\n        ftplog&#40;&quot;Closing WININET&#46; Error&#46;&quot;&#41;\n    endif\n    RETURN lReturn\n[/code:3me17gcy]','',0,'AIA=','3me17gcy',1,0,'',18,0,0),(20014,4513,6,73,0,'201.132.237.33',1160104340,1,0,1,1,1,0,'','texto en buttonbmp','Hola, quisiera saber como se si un buttonbmp desde recurso tiene texto o esta en blanco?, probe con ::cCaption y si funciona, parece que esto es desde codigo, probe con ::cPrompt y no funciona truena, pense que este era para saberlo desde recurso, alguna idea?\ngracias\nPaco','',0,'AIA=','1kndh0ic',1,0,'',73,0,0),(20015,4514,6,18,0,'189.143.38.56',1160107149,1,0,1,1,1,1,'','Libreria TIP de xHarbour para Internet','Alguien a usado la libreria Tip de xHarbour para usar los protocolos de Internet.\n\n\nEstoy usando la Clase tUrl() y al momento de llamar al método New, me muestra un GPF\n\n[code:33cdtqru]\nFUNCTION Test&#40;&#41;\nLOCAL oFtp\nLOCAL lTrace &#58;= &#46;T&#46;\n\noCred&#58;= tIPCredentials&#40;&#41;\n\ncServer   &#58;= &quot;vikthor&#46;com&#46;mx&quot;\ncUser     &#58;= &quot;MyUser&quot;\ncPassword &#58;= &quot;MyPassword&quot;\n?cUrl      &#58;= &quot;ftp&#58;//&quot; + cUser + &quot;&#58;&quot; + cPassword + &quot;@&quot; + cServer\n\noUrl &#58;= tURL&#40;&#41;&#58;New&#40; cUrl &#41;\n\n?oUrl&#58;cUserId\n?oUrl&#58;cPassword\n?oUrl&#58;cServer\n?oUrl&#58;nPort\n[/code:33cdtqru]','',0,'AIA=','33cdtqru',1,0,'',18,0,0),(20016,4515,3,18,0,'189.143.38.56',1160107569,1,0,1,1,1,1,'','TIP library','Hi all :\n\nI\'m using TIP library to update somes file into my FTP\n\nThis code gives me a beautiful GPF\n[code:3fklrjzv]\nFUNCTION Test&#40;&#41;\nLOCAL oFtp\nLOCAL lTrace &#58;= &#46;T&#46;\n\noCred&#58;= tIPCredentials&#40;&#41;\ncServer   &#58;= &quot;vikthor&#46;com&#46;mx&quot;\ncUser     &#58;= &quot;MyUser&quot;\ncPassword &#58;= &quot;MyPassword&quot;\n?cUrl      &#58;= &quot;ftp&#58;//&quot; + cUser + &quot;&#58;&quot; + cPassword + &quot;@&quot; + cServer\n\noUrl &#58;= tURL&#40;&#41;&#58;New&#40; cUrl &#41;    &lt;&lt;&lt; ------ ERROR &#58;&#41;\n\n?oUrl&#58;cUserId\n?oUrl&#58;cPassword\n?oUrl&#58;cServer\n?oUrl&#58;nPort\nRETURN\n\n[/code:3fklrjzv]\n\nany suggest ?','',0,'AIA=','3fklrjzv',1,0,'',18,0,0),(20017,4510,6,215,0,'189.136.236.64',1160109436,1,0,1,1,1,0,'','Super','Rene,\nTodo un look profesional al alcanze... Me interesa.\nPersonalmente me reuso a usar clases de terceros, por que al cambiar de versión en fivewin pueden ya no ser compatibles y esperar a que el desarrollador entrege una versión nueva... ni hablar.\n\nPero, estoy dispuesto a correr el riesgo. Un look profesional vende muy bien el programa al cliente. \n\nFelicidades a Paco.\n\nSaludos','',0,'AIA=','22t2s0ky',1,0,'',215,0,0),(20018,4512,6,492,0,'189.147.20.93',1160111327,1,0,1,1,1,1,'','','Hola Vikthor\n\nTe mande algo al respecto a tu privado.\n\nSaludos','',0,'AIA=','1y1k232t',1,0,'',492,0,0),(20019,4510,6,701,0,'194.179.55.36',1160122432,1,0,1,1,1,0,'','','Pues mira que suerte teneis por ahí, por que por aquí en España no es fácil encontrar información sobre los productos de Canalfive. Su web lleva inactiva bastante tiempo.\n\nUn saludo,\nFenix','',0,'AIA=','2c8af1i5',1,0,'',701,0,0),(20020,4516,7,720,0,'80.59.110.137',1160128050,1,0,1,1,1,0,'','duda sobre la localizacion de registros mediante indices...','Hola a todos..\n\nTengo una duda sobre la busqueda por indices y es que al declararme la tabla y especificarle el indice intento realizar un seek sobre el indice y me da error...\n\nLa tabla la declaro de la siguiente forma:\n\nUSE ( CurDir() + \"\\articulos\" ) VIA \"DBFCDX\" new\narticulos-&gt;( OrdSetFocus( \"cod_art\" ) )\ncAliasArticulos := Alias()\n\nLuego intento hacer un seek(\"codigodelarticulo\") y me da error. Puede ser simplemente que la declaracion del seek no sea asi. La verdad es que no he encontrado nada que me diga como es. Por eso recurro de nuevo aqui....\n\n¿Alguien sabe algo?\n\nSaludos y gracias.\n\n\nElías Torres.','',0,'AIA=','25sfg90w',1,0,'',720,0,0),(20021,4517,6,63,0,'80.37.102.128',1160129049,1,0,1,1,1,0,'','Imprimir con TGraph()','Alguien sabe cómo imprimir con la clase TGraph() desde FWH 2.6?\nSimplemente estoy haciendo esto pero me da un error raro:  \"Error (6) Deleting enhanced metafile\" y el preview sale en blanco.\n\n[code:1dxb2s8w]\n  oPr &#58;= PrintBegin&#40;&quot;TGraph test&quot;, &#46;T&#46;, &#46;T&#46;, , &#46;T&#46;&#41;\n  oPr&#58;lPrvModal&#58;=&#46;T&#46;\n  PageBegin&#40;&#41;\n       oGraph&#58;Print&#40;oPr, 0, 0, 1000, 1000&#41;\n  PageEnd&#40;&#41;\n  PrintEnd&#40;&#41;\n[/code:1dxb2s8w]\n\nAlguien lo tiene resuelto?\nGracias\nRafael','',0,'AIA=','1dxb2s8w',1,0,'',63,0,0),(20022,4516,7,449,0,'212.64.224.241',1160130635,1,0,1,1,1,1,'','','Hola,\n\n(cAliasArticulos)-&gt;( DbSeek( tucodigodelarticulo ) )\n\nAdios','',0,'AIA=','23n036ym',1,0,'',449,0,0),(20023,4516,7,720,0,'80.59.110.137',1160132817,1,0,1,1,1,0,'','','Hola Carles,\n\nGracias por la información pero no me funciona. Se supone que el dbseek() lo que hace es posicionar el puntero en el registro de la tabla que se indique en base a la relación que se ponga y a partir de ahi se podría mostrar cualquier campo del registro, correcto?, pues no me va.....\n\nNo me da error pero no me muestra nada...\n\n\nSeguiré averiguando el por que.....\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'AIA=','2zfoqjc2',1,0,'',720,0,0),(20024,4518,6,180,0,'194.179.55.36',1160135838,1,0,1,1,1,0,'','Nuevo problema de pintado en XBROWSE','Aparte del problema comentado de desbordamiento de caracteres por la derecha, al desplazarse y mantener pulsada la techa FLECHA ABAJO se produce una repetición del penúltimo registro de 12 veces. No ocurre si se utiliza AVPAG. (La BD está filtrada con un SCOPE con índices CDX)\n Adjunto imagen con el efecto:\n<!-- m --><a class=\"postlink\" href=\"http://img183.imageshack.us/img183/3865/pintadoiu7.jpg\">http://img183.imageshack.us/img183/3865/pintadoiu7.jpg</a><!-- m -->\n\nUn saludo.\nManuel Aranda','',0,'AIA=','7jbkty2f',1,0,'',180,0,0),(20025,4516,7,449,0,'212.64.224.241',1160137983,1,0,1,1,1,1,'','','Elias,\n\n- Tienes correctos los indices ?\n- Hay registros q cumplen la condicion ?\n\nPrueba de abrir la tabla y crear el indice de nuevo.\n\n[code:3figz9dj]\nUSE &#46;&#46;&#46;\nINDEX ON &#46;&#46; TO &#46;&#46;&#46;\n&#46;&#46;&#46;\n\n&#40;cAlias&#41;-&gt;&#40; DbSeek&#40; codigodearticulo, &#46;t&#46; &#41; &#41;\n\nWHILE &#40;cAlias&#41;-&gt;codigo == codigodearticulo &#46;AND&#46; &#40;cAlias&#41;-&gt;&#40; !Eof&#40;&#41; &#41;\n \n   MsgInfo&#40; &#40;cAlias&#41;-&gt;&#40;FieldGet&#40;1&#41; &#41; &#41;\n\n   &#40;cAlias&#41;-&gt;&#40; DbSkip&#40;&#41; &#41;\n\nEND\n[/code:3figz9dj]\n\nSiau.','',0,'AIA=','3figz9dj',1,0,'',449,0,0),(20026,4404,6,237,0,'200.68.70.89',1160142685,1,0,1,1,1,0,'','?','Antonio:\n\nEn el mensaje anterior ya te habia dicho que desinstale el acrobat reader que tenia y descargue la ultima version ( V 7.0.8  ) que esta disponible y nada.\n\nLo unico que pude averiguar poniendo unos msgstop en el fuente de la clase activex es que se cuelga cuando ejecuta esta linea:\n\n::hActiveX = CreateActiveX( ::hWnd, cProgID, Self )\n\nHize otra prueba:\nDeje de lado el xharbour que tengo ( yo lo actualizo diariamente desde el cvs y recompilo fwh ) y utilize el xharbour proporcionado por fivetech.\nEl ejecutable ahi me dio el mismo error que el que me pasastes tu. Lo unico que no entiendo es por que este xharbour no tenia la lib gtwin.lib.\n\nGracias.','',0,'AIA=','1d8glauf',1,0,'',237,0,0),(20027,4512,6,18,0,'200.67.188.236',1160143898,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:1v0bjlvu]Hola Vikthor\n\nTe mande algo al respecto a tu privado.\n\nSaludos[/quote:1v0bjlvu]\n\nRaymundo :\n\nArchivo recibido , gracias.\n\nAnalizando el código que tengo vs el tuyo, la diferencia está en el envío de los parámetros, la ruta de destino que yo estaba enviando , no era correcta.','',0,'gA==','1v0bjlvu',1,0,'',18,0,0),(20028,4519,3,810,0,'84.172.63.58',1160145172,1,0,1,1,1,0,'','Active X Explorer','<!-- m --><a class=\"postlink\" href=\"http://nolp.dhl.de/nextt-online-public/track.do?lang=de\">http://nolp.dhl.de/nextt-online-public/track.do?lang=de</a><!-- m -->\n\n\nThis a tracking Page from DHL\n\n\nHow can i put Data from a dbf into Fields in Internet Explorer ?\n\n\nTx','',0,'gA==','3av21sse',1,0,'',810,0,0),(20029,4520,6,74,0,'200.127.99.216',1160145726,1,0,1,1,1,1,'','Crystal','Amigos de la lista:\nEstoy usando la clase de crystal xharbour y quiseria saber si alguien me puede decir como hacer para que me aparecezce la ventana del preview maximizada desde ya muchas gracias\nSaludos\n\nDaniel \nMar del Plata','',0,'gA==','2b8ul91f',1,0,'',74,0,0),(20030,4498,3,303,0,'72.199.41.171',1160147583,1,0,1,1,1,0,'','','Tim,\n\nI wrote a lot of the DBCombo code so if you want to send me a small example of code and the Pelles RC file, I will see if I can find anything. When you say it didn\'t display correctly, could you be a little more specific?\n\nJames','',0,'gA==','oogo7w1d',1,0,'',303,0,0),(20031,4521,6,811,0,'200.93.182.116',1160148223,1,0,1,1,1,0,'','Clases Exportadas de una DLL (COM Wrapper Lib)','Buenos Dias Foro:\n\nTengo una libreria \"sslCom.dll\" que el fabricante describe como \"COM wrapper library \" y ella me exporta dos clases: \"FPScanner\" y \"FPScannerMan\". Utilizando FWH 2.4 + Harbour o xHarbour podria instanciar estas clases...? Alguna funcionalidad como ActiveX u OLE...? O que literatura debo buscar....?\n\nEn Visual Basic .NET la utilizan asi:\nImports SSLCOMLib\nPublic ScannerManager As FPScannerMan = Nothing\nScannerManager = New FPScannerMan()\nScannerManager.Initialize()\n\nSaludos\n\nRicardo','',0,'gA==','3cj8zz6f',1,0,'',811,0,0),(20032,2713,6,294,0,'201.250.204.145',1160149321,1,0,1,1,1,0,'','Perfecto','Gracias Carlos, a mi tambien me fue muy util.\nCesar','',0,'gA==','2d6kk2fq',1,0,'',294,0,0),(20033,4514,6,138,0,'189.141.70.60',1160149831,1,0,1,1,1,1,'','','CREO, ojo CREO, que la clase TURL solo se puede aplicar para servicios WWW, no para servicio FTP.','',0,'gA==','3vql2erp',1,0,'',138,0,0),(20034,4511,2,138,0,'189.141.70.60',1160150393,1,0,1,1,1,1,'','','Si la impresora no es local al equipo donde estas trabajando, por ejemplo es un equipo en red, tienes que \"capturar\" el puerto correspondiente.\n\nEl metodo constructor de TDOSPrn, recibe como parametro el puerto al cual vas a conectar:\n\nTDosPrn():New(\"lpt1:\")\n\nPero es necesario que tu windows tenga capturado dicho puerto, si no hay una impresora conectada a tu puerto paralelo.','',0,'gA==','131su40b',1,0,'',138,0,0),(20035,4516,7,720,0,'80.59.110.137',1160151572,1,0,1,1,1,0,'','','Hola Carles,\n\nAl final he solucionado el tema de los indices, gracias. Lo que me pasa es que me surgió otro problema... Cuando me posiciono con el indice en la tabla me muestra de ahi para abajo. Te pongo un ejemplo, supongamos que de la tabla solo quiero mostrar los dos primeros registros que son los que cumple las condicion de los indices, pero me muestra esos dos mas el resto....\n\nEstoy utilizando un LISTBOX para mostrar la informacion, pero no se como decirle que si cambia el codigo del cliente no me siga mostrando ningun registro. \n\nEn definitiva, lo que pretendo es hacer lo mismo que hace set filter pero con indices, no se si me he explicado.....\n\n(cAliasArticulos)-&gt;( DbSeek( (cAliasCliente)-&gt;codcli, .t. ) ) \n\nDEFINE dialog odlg resource \"Cliente_articulos\" \n\nredefine LISTBOX oBrw ;\n   FIELDS articulos-&gt;cod_art,articulos-&gt;nom_art,STR(articulos-&gt;cant),STR(articulos-&gt;precio) ;\n  HEADERS \"Código\", \"Descripción\", \"Cant\", \"Precio\" ID 100 OF oDlg\n\nACTIVATE dialog odlg\n\nSaludos y gracias....\n\nElías Torres.','',0,'gA==','3rio493t',1,0,'',720,0,0),(20036,4404,6,2,0,'87.218.146.80',1160153311,1,0,1,1,1,1,'','','gtwin.lib ya no existe, ahora se llama gtgui.lib.\n\nPuedes probar nuestro ejemplo en otro ordenador que no sea el tuyo ?','',0,'gA==','1kntjpb0',1,0,'',2,0,0),(20037,4516,7,2,0,'87.218.146.80',1160153693,1,0,1,1,1,1,'','','Elías,\n\nAñade esto:\n\nredefine LISTBOX oBrw ; \nFIELDS articulos-&gt;cod_art,articulos-&gt;nom_art,STR(articulos-&gt;cant),STR(articulos-&gt;precio) ; \nHEADERS \"Código\", \"Descripción\", \"Cant\", \"Precio\" ID 100 OF oDlg ;\nSELECT articulos-&gt;cod_cli FOR (cAliasCliente)-&gt;codcli','',0,'gA==','3que1mmg',1,0,'',2,0,0),(20038,4498,3,34,0,'68.4.154.81',1160155459,1,0,1,1,1,1,'','Combo box','This is a standard combo box control in the .rc script&#058;\n\n  CONTROL \"\", 101, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 126, 10, 147, 163\n\nThe box displayed has no dropdown icon when used with DBCOMBO, but it works fine with the regular FWH COMBOBOX code.  If I clickon the box itself, it changes color and has a bold line beneath it, but no list.\n\nTim','',0,'gA==','1f3xxayo',1,0,'',34,0,0),(20039,4522,6,439,0,'200.125.40.8',1160156053,1,0,1,1,1,1,'','Insertar Campos de un registro activo en un Fget','Es posible insertar el contenido de un campo en un Fget, de tal modo que si tengo un documento, este muestre el contenido de ese campo del registro activo de la base en uso?\n\nLo necesito para generar varios documentos personalizados con los datos de cada registro de una base utilizando un documentos modelo que se escribiría en un Fget.\n\nSi no, ¿Es posible hacerlo de otra manera?\n\nPor favor, cualquier ayuda que pueda recibir será muy valorada, dado que se me ha complicado solucionarlo y es para un cliente. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gA==','1sin58q9',1,0,'',439,0,0),(20040,4523,2,518,0,'201.121.43.182',1160156970,1,0,1,1,1,0,'','Capturar error en conexion Mysql por odbc','Hola,\n\nTengo un sistemita que se conecta por medio de internet a un servidor MYsql .\n\nPara inicializar la conexion tengo la siguiente funcion:\n\nfunction cargaSQL()\n\npublic oRdd:= Trddodbc():New(\"subsec\", \"subsec\", \"xxxxx\")\npublic oODBC:= oRdd:oOdbc\n\nIf oOdbc:lSuccess\n  MSGINFO(\"Sistema inicializado correctamente\",\"Conexión\")\n\nelse\n\n  msgalert(\"El sistema no pudo abrir la base de datos, cerrando aplicacion...\")\n  oOdbc:showerrorlist()\n  oRDD:OOdbc:end()\n  quit\n\nEndif\n\n\nEl problema que tengo que cuando la conexion nno esta disponible o se tarda mucho el programa no captura el error y manda un error de odbc y el programa se cierra de manera abrupta.\n\nComo puedo capturar el error para que no ocurra esto ?\n\nGracias\nRene','',0,'gA==','3rnx3f3d',1,0,'',518,0,0),(20041,4404,6,237,0,'200.68.70.89',1160158686,1,0,1,1,1,0,'','Igual','Antonio:\n\nCorrecto con lo de gtgui.lib, reemplaze esa lib.\nCorri el ejemplo en otras dos pc distintas, ambas con xp prof. sp2, una un piv y otra una notebook toshiba centrino con los mismos errores de siempre.  ; jamas uso ninguna de estas pc y no tienen cargado nada de tema programacion, por lo tanto la prueba es concluyente.\nTu mismo has probado ese ejemplo en otra pc que no sea las que usas de costumbre?\n\nSaludos','',0,'gA==','28hxic08',1,0,'',237,0,0),(20042,4518,6,180,0,'83.33.11.13',1160159863,1,0,1,1,1,0,'','','Bueno, he descubierto que la repetición del penúltimo registro tiene que ver con las dimensiones de la ventana. He reducido unos milímitros la altura de la ventana y ya no se produce el efecto. Algo se adelanta.\n\nUn saludo,\nManuel','',0,'gA==','og46wvmg',1,0,'',180,0,0),(20043,4524,2,774,0,'200.72.65.44',1160161130,1,0,1,1,1,1,'','ERROR AL IMPRIMIR','hola al foro,,, tengo un error al imprimir,, cuando llamo a la rutina de impresion,, el usuario selecciona a que impresora dirigira la impresion,, pero si le doy un cancelar a la seleccion me tira un error,, si selecciono la impresora funciona bien,,, que sera::\n\neste error marca\n\nApplication\n===========\n   Path and name: D:\\SIS\\SISADM.EXE (16 bits)\n   Size: 1,299,712 bytes\n   Max files handles permited: ( SetHandleCount() ) 250\n   Time from start: 0 hours 1 mins 6 secs \n   Error occurred at: 06/10/2006, 14:50:27\n   Error description: Error BASE/1082  Argument error: -\n   Args:\n     [   1] = N   0\n     [   2] = U   \n\nStack Calls\n===========\n   Called from TPRINTER:CMTR2PIX(0)\n   Called from (b)TPRINTER(0)\n   Called from IMPNP(1322)\n\n\n\nAhi es codigo de la rutina\n\n\nFunction ImpCotiza()\nLocal oPrn\nLocal oFont\nLocal cCol:=0\nLocal cFil:=0\n\nPRINT oPrn NAME \"COTIZACIONES\" PREVIEW FROM USER\nDEFINE FONT oFont  NAME \"Arial\" SIZE 0,-12  OF oPrn\nDEFINE FONT oFontV NAME \"Arial\" SIZE 0,-4.5 BOLD NESCAPEMENT 900 OF oPrn\n\nPAGE\noPrn:cmsay(00,00,oemtoansi(\"Elisa Flores y Compa¤ia Limitada\"),oFont)\noPrn:cmsay(01,00,oemtoansi(\"Barraca de Maredas\"),oFont)\noPrn:cmsay(02,00,oemtoansi(\"Materiales de Construcci¢n\"),oFont)\nENDPAGE\n\n\nENDPRINT\noFont:end()\nReturn','',0,'','broko7rd',1,0,'',774,0,0),(20044,3091,1,186,0,'66.130.50.142',1160162842,1,0,1,1,1,1,'','','Hi all,\n\n\n   Sorry it took so long to reply, too muxh work I guess.\n\nI dont have any menuitem with MESSAGE `Login`\n\nI also tried James Bott solution but it did`nt work.\n\n\nRegards,\n\nGilbert <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','nzyoir61',1,0,'',186,0,0),(20045,4498,3,303,0,'72.199.41.171',1160163149,1,0,1,1,1,0,'','','Tim,\n\nOK, I tried using the same style by editing a Workshop generated RC to create the exact same style attibutes, and the DBCombo still works for me (FWH Aug 2006 build/xHarbour/BCC55 under XP Pro).\n\nAre you using the Pelles C compiler?\n\nWhat version of FWH are you using?\n\nAre you using Harbour or xHarbour?\n\nWhat is the date of your dbcombo.prg file? (Mine is 7/6/06)\n\nIt still might be helpful if you can create a small stand alone program with the RC file that I can test here.\n\nJames','',0,'','1pcpx339',1,0,'',303,0,0),(20046,3091,1,303,0,'72.199.41.171',1160163626,1,0,1,1,1,0,'','','Gilbert,\n\nSorry, you also need to do a refresh().\n\n[code:28zkjcua]// Purpose&#58; To test changing the message bar message\n\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd,oBar\n   local cUsername&#58;= &quot;James&quot;\n\n   define window oWnd\n\n   define buttonbar oBar of oWnd\n   define button of oBar ;\n     action &#40;oWnd&#58;oMsgBar&#58;cMsgDef&#58;= cUsername, oWnd&#58;oMsgBar&#58;setMsg&#40;&quot;&quot;&#41;,oWnd&#58;oMsgBar&#58;refresh&#40;&#41;&#41;\n\n   set message of oWnd to &quot;Login&quot;\n\n   activate window oWnd\n\nreturn nil[/code:28zkjcua]','',0,'AIA=','28zkjcua',1,0,'',303,0,0),(20047,4522,6,492,0,'189.147.20.93',1160164816,1,0,1,1,1,1,'','','Hola Jose   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nA primera vista, bastaria con que asignes el valor de tu campo a una variable o en forma directa desde el mismo campo al control.\n\nChecate el TESTFGET de samples, hay varias formas de hacerlo.\n\n\nSaludos','',0,'AIA=','3sj5lkcg',1,0,'',492,0,0),(20048,3143,1,186,0,'66.130.50.142',1160165022,1,0,1,1,1,1,'','','Bonjour Badara,\n\n\n    En fouillant sur le forum je suis tomber sur cet interessant message qui pour moi peut-être une solution à plusieurs problèmes surtout au niveau de la gestion des imprimantes sous Windows. \n\n   Je voudrais savoir si les solutions présenté fonctionnent aussi sur Win98 et XP\n\n\nMerci\n\nGilbert <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1zrwgz5i',1,0,'',186,0,0),(20049,4518,6,492,0,'189.147.20.93',1160165157,1,0,1,1,1,1,'','','Hola Manuel\n\nUn par de preguntas : Es el unico browse en el dialogo/ventana ??, tienen diferente tamaño de fonts los browses ??\n\nTe comento, porque a mi me paso algo muy similar y resulto ser que usaba fonts diferentes en tamaño en cada browse y cuando recorria hacia abajo, se llenaba con los valores del registro varias lineas/registros.\nBasto con poner el mismo font en los browses para solucionarse.\n\nAclaro, esto fue con el browse de Hernan, quizas no aplique al XBrowse.\n\nSaludos','',0,'AIA=','15k8e5e2',1,0,'',492,0,0),(20050,4525,6,121,0,'189.138.25.6',1160168688,1,0,1,1,1,1,'','tsbrowse','Alguien tiene una version de Tsbrowse de M.Mercado y\nque funcione para consultas mysql\n\nGracias','',0,'AIA=','isxt2e6n',1,0,'',121,0,0),(20051,4518,6,180,0,'83.33.11.13',1160170400,1,0,1,1,1,0,'','','Hola Raymundo:\n\nSolo hay un xbrowse en la ventana y parece que la repetición del penúltimo registro varias veces tiene que ver con las dimensiones en altura del control. Parece ser que si no hay espacio suficiente para un nuevo registro se produce ese efecto. He ajustado el control y ya va perfectamente. \nRespecto al desbordamiento de caracteres por la derecha parece ser que solo se produce cuando el control se crea desde recursos. Si se crea desde código no se el problema.\n\nUn saludo,\nManuel','',0,'AIA=','3590zamj',1,0,'',180,0,0),(20052,4526,6,471,0,'190.40.127.19',1160173146,1,0,1,1,1,1,'','calculo de font s de pantalla en impresora','Estimados colegas \n\nExiste algun algoritmo para que me coincidan la ubicacion exacta de los \nobjetos en pantalla con que imprimo en la impresora, alguien tendria un ejemplo \n\n\nlo hare despues de tener la resolucion calculada\n\nGracias','',0,'AIA=','3f6egsee',1,0,'',471,0,0),(20053,4285,3,69,0,'74.13.50.54',1160177728,1,0,1,1,1,0,'','','Antonio,\n\nThis was my original QuitApp() code\n\n[code:1nsi52gw]\nfunction quitapp&#40;&#41;\n      dbcloseall&#40;&#41;\n      freelibrary&#40; hBorland &#41;\n      set resources to\n      clear memory\n      ResAllFree&#40;&#41;\n      if ! empty&#40; oMainWnd &#41;\n         oMainWnd&#58;end&#40;&#41;\n      endif\n      Syswait&#40;&#46;01&#41;\n      quit\nreturn &#46;f&#46;\n[/code:1nsi52gw]\n\nBy removing:\n\n[code:1nsi52gw]\n     if ! empty&#40; oMainWnd &#41;\n        oMainWnd&#58;end&#40;&#41;\n     endif\n[/code:1nsi52gw]\n\nI no longer get the error.\n\nAny idea why the above would cause the error ??\n\nThans \nJeff','',0,'AIA=','1nsi52gw',1,0,'',69,0,0),(20054,2713,6,110,0,'165.98.169.198',1160178087,1,0,1,1,1,1,'','','de nada <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'AIA=','1mjabftc',1,0,'',110,0,0),(20055,4510,6,110,0,'165.98.169.198',1160178258,1,0,1,1,1,1,'','','Lo bueno de los controles de paco, aparte de su look es que proporciona el 100% del codigo por lo que ante cualquier cambio grade en los compiladores es nbecesario solamente una recompilacion para recrear las librerias.\n\nsalu2\ncarlos vargas','',0,'AIA=','kiy3xmep',1,0,'',110,0,0),(20056,4404,6,2,0,'87.218.146.80',1160178286,1,0,1,1,1,1,'','','Aqui lo tienes funcionando en Windows Vista (ojo, que en Vista el ProgID es \"AcroPDF.PDF.1\")\n[url=http&#58;//imageshack&#46;us:2i1pgp0k][img:2i1pgp0k]http&#58;//img301&#46;imageshack&#46;us/img301/9145/vistajr6&#46;jpg[/img:2i1pgp0k][/url:2i1pgp0k]','',0,'GA==','2i1pgp0k',1,0,'',2,0,0),(20057,4404,6,2,0,'87.218.146.80',1160179275,1,0,1,1,1,1,'','','Aqui funcionando en XP Profesional 64 bits (ojo, usa el mismo PROGID que en Vista, quizá ese sea el error):\n[url=http&#58;//imageshack&#46;us:2325q9sy][img:2325q9sy]http&#58;//img224&#46;imageshack&#46;us/img224/361/xp64gn3&#46;jpg[/img:2325q9sy][/url:2325q9sy]','',0,'GA==','2325q9sy',1,0,'',2,0,0),(20058,4466,6,471,0,'190.40.127.19',1160181626,1,0,1,1,1,1,'','muchas gracias funciona perfecto','muchas gracias funciona perfecto','',0,'GA==','2gdln5h3',1,0,'',471,0,0),(20059,4404,6,2,0,'87.218.146.80',1160181633,1,0,1,1,1,1,'','','En Windows 98 SE, usando el PROGID \"PDF.PdfCtrl.6\"\n[url=http&#58;//imageshack&#46;us:1dx0ntgx][img:1dx0ntgx]http&#58;//img143&#46;imageshack&#46;us/img143/4219/dibujokz8&#46;png[/img:1dx0ntgx][/url:1dx0ntgx]','',0,'GA==','1dx0ntgx',1,0,'',2,0,0),(20060,4519,3,397,0,'201.13.17.118',1160182127,1,0,1,0,1,1,'','','Amiguinho\n\nYou can try a ASP Script, submiting data with GET METHOD:\n\n[code:1zwxed3a]\n&lt;%@LANGUAGE = VBScript%&gt;\n&lt;%\nDim nome,senha\n\nnome = replace&#40;request&#46;form&#40;&quot;nome&quot;&#41;, &quot;\'&quot;, &quot;\'\'&quot;&#41;\nsenha = replace&#40;request&#46;form&#40;&quot;senha&quot;&#41;, &quot;\'&quot;, &quot;\'\'&quot;&#41;\n\nSet DB = Server&#46;CreateObject&#40;&quot;ADODB&#46;Connection&quot;&#41;\n\ncnpath=&quot;DBQ=&quot; &amp; server&#46;mappath&#40;&quot;&#46;\\&quot;&#41;\nDB&#46;Open &quot;Driver=&#123;Microsoft dBase Driver &#40;*&#46;dbf&#41;&#125;;;&quot; &amp; cnpath\n\ninserir = &quot;INSERT INTO users &#40;nome,senha&#41; &quot; &amp; _\n&quot;VALUES &#40;\'&quot; &amp; nome &amp; &quot;\',\'&quot; &amp; senha &amp; &quot;\',\'&quot; &amp; pagina &amp; &quot;\'&#41;&quot;\nDB&#46;Execute&#40;inserir&#41;\n%&gt;\n[/code:1zwxed3a]\n\nFivewin code:\n\n[code:1zwxed3a]\nSTATIC FUNCTION NAVEGAR&#40; MyName, MyPass &#41;\n   local hE \n   hE &#58;= CreateOleObject&#40;&quot;InternetExplorer&#46;Application&quot;&#41; \n   OLESetProperty&#40;hE,&quot;Visible&quot;  , &#46;T&#46;&#41; \n   OLESetProperty&#40;hE,&quot;ToolBar&quot;  , &#46;F&#46;&#41; \n   OLESetProperty&#40;hE,&quot;StatusBar&quot;, &#46;T&#46;&#41; \n   OLESetProperty&#40;hE,&quot;MenuBar&quot;  , &#46;T&#46;&#41; \n   OLEInvoke&#40;hE,&quot;Navigate&quot;,&quot;http&#58;//www&#46;YourSite&#46;com/adiciona&#46;asp?nome=&quot;+MyName+&quot;&amp;senha=&quot;+MyPass&#41;\n   SysRefresh&#40;&#41; \n   return nil\n[/code:1zwxed3a]','',0,'AIA=','1zwxed3a',1,0,'',397,0,0),(20061,4506,6,471,0,'190.40.127.19',1160182145,1,0,1,1,1,1,'','','tengo ya la impresora  sido asignada a un objeto printer.\n\nmando a impirmir con el font de la pantalla y me sale una letra \ngigantesca \n\nentre cuanto lo divido para que me salga una letra proporcional\n\n\ngracias por la ayuda','',0,'AIA=','2aelmywo',1,0,'',471,0,0),(20062,4527,3,109,0,'200.56.184.202',1160196904,1,0,1,1,1,0,'','Degradado en Ventanas, Dialogos, Botones etc','Estuve siguiendo el hilo de la solicitud que hacia el Sr. ReinaldoCrespo SOBRE LOS DEGRADADOS, en CONTROLES. En el mes de Enero de 2006.\n  y en el que tambien intervinian los Sres. Linares , Vagner , Taiwan, Paco Garcia, Carlos Vargas, y el Sr. Arturo Tamayo Daza (Quien originalmente solicito ayuda sobre este tema.)\n\n  Y les pregunto si tuvo solucion lo propuesto en ese tema?\n\n   Si la hubo, serián tan amables en decirme como debo hacerle para los degradados?.\n   Yo hice todo lo que ahi comentaban y NO, NO pasa nada con el     DEGRADADO.\n   \n\nPor su atención gracias.','',0,'AIA=','19qrn6dq',1,0,'',109,0,0),(20063,4511,2,501,0,'200.32.103.66',1160202291,1,0,1,1,1,0,'','','[b:2a78vhl3]Gracias Rene[/b:2a78vhl3], comprendido. Lo que pasa es que las impresoras estan en red y desde la terminal que estamos intentando enviar, los puertos LPT1 y 2 tambien estan ocupados, probe de mandar al LPT3 y no salio nada.\nDespues le hice net use lpt1 \\\\Facturacion\\EpsonLX300 y lanze el reporte y salio bien pero solo una vez, despues perdi la conexion con el lpt1 y 2 y tuve que reiniciar, es decir despues de la primera impresion se pierde el puerto, probe con persistent:yes y /yes tambien lo borre con el parametro /D para que lo vuelva a capturar y nada tuve que apagar sin mas remedio. WINDOWS XP SP2 en la terminal, Windows2000 en donde estan las impresoras, Linux Fedora con Samba en el servidor.\n\n[b:2a78vhl3]Pienso que por ahi hay una tDosPrn mas nueva para mi FiveWin 2.1a + Clipper 5.2 y Blinker5, actualmente estoy usando todo lo que compre de google (no planche nada de esa clase con algo mas nuevo).[/b:2a78vhl3]\n\nTe comento de paso que me estoy pasando a xHarbour + FiveWin 2.6 y voy bien, ya resolvi unos temas que me tenian atorados y era todo por conflictos de versiones, no se si por ahi me convien usar tDosPrn o alguna otra del estilo pero con FWH y poder mandar a \"\\\\Server\\LX3..\" o eso directamente no se puede?\n\nGracias Rene nuevamente y coordiales saludos.','',0,'QA==','2a78vhl3',1,0,'',501,0,0),(20064,4519,3,810,0,'84.172.38.207',1160204741,1,0,1,1,1,0,'','Tx','I will try it !!!\n\nis it also possible with active x ???\n\ntx','',0,'QA==','1dsdru34',1,0,'',810,0,0),(20065,4528,6,23,0,'213.96.85.49',1160207356,1,0,1,1,1,1,'','Enlace con Outlook','Hola gente!! mucho tiempo sin escribir por aqui... pero de nuevo con inquietudes.\nVereis, quisiera saber si hay forma de enlazar com Outlook, lo que quiero es poder crear anotaciones en el calendario desde mi aplicación .. ¿es esto posible??? o estoy alucionando??\n\nGracias anticipadas.\n\nUn saludo.','',0,'QA==','2mvlgozb',1,0,'',23,0,0),(20066,4528,6,23,0,'213.96.85.49',1160208898,1,0,1,1,1,1,'','','Encontré información aqui : \n\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/default.aspx?scid=kb%3Bes%3B291120\">http://support.microsoft.com/default.as ... s%3B291120</a><!-- m -->\n\npero no soy capaz de \"traducirlo\" a fwh ...','',0,'QA==','2c1wsmdt',1,0,'',23,0,0),(20067,4429,6,49,0,'213.82.134.66',1160209787,1,0,1,1,1,1,'','','Dear GAbo,\n\nCan YOU release a sample source code of this ?\n\nRegards','',0,'QA==','2f5t4juc',1,0,'',49,0,0),(20068,4404,6,2,0,'87.218.146.80',1160212001,1,0,1,1,1,1,'','','En Linux (Knoppix 5) usando Wine (y \"PDF.PdfCtrl.1\" como PROGID):\n[url=http&#58;//imageshack&#46;us:1vzgd5av][img:1vzgd5av]http&#58;//img180&#46;imageshack&#46;us/img180/8036/linuxoe1&#46;jpg[/img:1vzgd5av][/url:1vzgd5av]','',0,'GA==','1vzgd5av',1,0,'',2,0,0),(20069,4412,3,160,0,'220.225.17.210',1160217943,1,0,1,1,1,0,'','','[quote=&quot;areang&quot;:341puxls]I will send you by your private email\n\nAreang[/quote:341puxls]\n\nDear Areang,\n\nCan you help me too with those routines that will help me protect my application ?\n\nWith best regards,\n\nMilan.','',0,'gA==','341puxls',1,0,'',160,0,0),(20070,3143,1,170,0,'213.103.53.201',1160220071,1,0,1,1,1,1,'','','My next message was here also','',0,'gA==','1o1xdrzo',1,1160231847,'',170,2,0),(20071,3143,1,170,0,'213.103.53.201',1160220254,1,0,1,1,1,1,'','','Bonjour Gilbert,\n\nÇa doit fonctionner de la même façon sous tous les Windows ayant un registre, sinon c\'est que l\'adressage dans le registre est différent\npour certains Windows. Pour le vérifier, ouvre le registre (regedit.exe)\net ouvre les chemins que tente d\'utiliser WinGetPrn() pour aller\nchercher l\'information là où elle est. Si tu trouves bien l\'information\nrecherchée, WinGetPrn() la trouveras.\n\nJ\'utilise depuis plusieurs années WinGetPrn() et les autres que j\'ai fourni sur le forum Fivewin, et aucun problème signalé par mes clients depuis\nmaintenant plus de 6 mois à ce sujet, après de nombreuses recherches\net mises au point.\n\nCes fonctions d\'impression peuvent aussi servir sous FWH\nou tout autre outil permettant l\'accès au registre Windows.\n\nMerci de me signaler le moindre problème que tu pourrais rencontrer\navec ces fonctions, je me ferai un devoir de le régler au plus vite,\nne serait-ce que pour mes clients...','',0,'gA==','4uzaxlho',1,0,'',170,0,0),(20072,4529,6,694,0,'200.181.206.63',1160224168,1,0,1,1,1,1,'','perdendo recursos com TWORD','Vikthor, Antonio:\n\nSinto que utilizando a Tword, as vezes meu sistema operacional WIN2000 fica muito lento ou trava, sera perca de recurso isso? Eu utilizo o xharb 99.50+FWH2.5, tenho que finalizar o objeto ou algo assim?\n\nComo estou usando:\n\n*************************************************\nSTATIC function ContratoWord( aCampos,NA1,CAMIFO)\n*************************************************\nlocal x, cModelo:=CurDrive()+\':\\\'+Curdir()+\'\\oficiomo.dot\',;\n         CIP1,CIP2,CIP3\n\nprivate ToWord\n\nToWord := TWord():New()                 // inicia o objeto OLE Word\nif ToWord:IsVisible()\n   ToWord:Hide()\nendif\nif SIS_2C22=.F. .or. !empty(sis_1nim)\n   CIP1  :=ALLTRIM(CAM2)     \n   CIP2  :=SUBSTR(CIP1,4,LEN(CIP1)) \n   CIP3  :=ALLTRIM(SIS_1NIM)\n   CAMIFO:=CIP3+CIP2+NA1\nELSE\n   CAMIFO:=\"&amp;CAM2.\"+NA1\nENDIF\nToWord:OpenDoc( cModelo )                 // abre o documento modelo\nfor x=1 to len( aCampos )\n    ToWord:Replace( \'[\'+aCampos[x,1]+\']\' , aCampos[x,2] )\nnext\nToWord:Save(CAMIFO)\nToWord:visualizar()\nreturn nil','',0,'','1rqxdmzk',1,0,'',694,0,0),(20073,4496,6,776,0,'201.253.25.82',1160225570,1,0,1,1,1,0,'','','Verhoven,\nyo tengo una función pero es con clipper...\nsi te sirve...','',0,'','2ucvbiy6',1,0,'',776,0,0),(20074,4525,6,52,0,'201.212.71.153',1160225871,1,0,1,1,1,1,'','Re: tsbrowse','[quote=&quot;Marco Augusto&quot;:270ifbnm]Alguien tiene una version de Tsbrowse de M.Mercado y\nque funcione para consultas mysql\n\nGracias[/quote:270ifbnm]\n\nSi es que vas a implementar la TS ( tsbrowse ) por primera vez, te recomiendo la xBrowse.\n\nGustavo.','',0,'gA==','270ifbnm',1,0,'',52,0,0),(20075,4530,6,694,0,'200.181.206.63',1160226113,1,0,1,1,1,1,'','Imprimir DIALOG!','Antonio e amigos: Eu utilizo o seguinte código para poder imprimir o conteúdo de uma DIALOG direto para impressora. Funciona bem na minha maquina, mais em outras simplesmente imprime a folha em branco. O que devo fazer?\n**************************\nSTATIC FUNCTION PRINTEME()\n**************************\nLocal oPrn\n\nPrint oPrn NAME \"GRÁGICO\"\nPAGE\n      odnd:print(oprn,1,1,5)    //odnd OBJETO da DIALOG\nENDPAGE\nENDPRINT\nreturn  nil','',0,'gA==','3doht1k3',1,0,'',694,0,0),(20076,4014,17,15,0,'61.59.236.218',1160226372,1,0,1,1,1,0,'','','Hello George,\n\nI use TSButton, but I got error message:\nNIL -&gt; Error BASE/1132 Bound error:array access\n\nFWH26 BCC551+xHarbour 0.99.61\n\nIf I use xHarbour 0.99.4 work fine.\n\nSame code below:\n\n::oDlg:bStart := {|| ::StartButtonBar() ...\n\n//---------------------------------------------------------------------------//\n\nMETHOD StartButtonBar() CLASS MP010PRO\n\nLOCAL oDlgBtn := Array(11)\nLOCAL nI    := 1\nLOCAL oRect := ::oDlg:GetCliRect()\n\n      ::oDlgBar := TSBar():NewAt( oRect:nTop, 00, oRect:nRight, 36,;\n                                  34, 34, ::oDlg, .T. )\n\n\nRichard','',0,'gA==','337z7886',1,0,'',15,0,0),(20077,4429,6,141,0,'200.88.94.228',1160233528,1,0,1,1,1,1,'','','Esta muy bien....\n\nUna sola pregunta: ¿Que tiene \"traspaso\" como propósito? ¿Que hace esta opcion/botón?','',0,'gA==','2fzu87jt',1,0,'',141,0,0),(20078,4528,6,138,0,'148.233.151.30',1160234419,1,0,1,1,1,1,'','','se puede hacer perfectamente con OLE, eso y muchas cosas mas, si utilizas xHarbour ya estas ahí, para harbour tendras que linkar externamente clase toleautomat\n\nsi buscas en msdn outlook ole encontraras todas la propiedades del objeto outlook para ahacer lo que quieres','',0,'gA==','3s3ckt4x',1,0,'',138,0,0),(20079,4500,4,89,0,'213.21.136.60',1160238524,1,0,1,1,1,0,'','','Antonio\n\nhow I use it \n\nThank','',0,'gA==','1bm1m0dt',1,0,'',89,0,0),(20080,4531,6,73,0,'201.132.231.87',1160239432,1,0,1,1,1,0,'','actualizar clausula when en botones','Hola, quiero actualizar los \"when\" de unos botones toolbar conforme a unos datos ya probe con oBar:ForWhen() y no me hace nada, probe con oBar:aButtons[x]:Forwhen() y me da error, alguna pista...\npor lo pronto lo estoy haciendo de uno por uno asi:\noBar:EnableButton( x, .T. ), pero no quiero habilitarlos directo esto conforme a la clausuala when que tiene cada boton\noBar:\nsalu2\npaco','',0,'','21liv37c',1,0,'',73,0,0),(20081,4500,4,2,0,'87.218.146.80',1160241995,1,0,1,1,1,1,'','','Maurizio,\n\nlib.exe its located at vce\\bin directory.','',0,'','2o7otr36',1,0,'',2,0,0),(20082,4285,3,2,0,'87.218.146.80',1160242141,1,0,1,1,1,1,'','','Jeff,\n\nThe method End() releases several GDI objects, though they are also released automatically by the system when the app is finished.','',0,'','1v4l2xhz',1,0,'',2,0,0),(20083,4531,6,138,0,'189.141.70.60',1160244652,1,0,1,1,1,1,'','','Veamos, oBar:ForWhen() no funciona porque el objeto bar es contenedor, no es el objeto perse.\n\noBar:aButtons[x]:Forwhen() tampoco va a funcionar porque la barra contenedora no tiene ninguna data llamada aButtons, por lo taunto cuasra error.\n\nHaz probado con oBar:aControls[x]:ForWhen() ?????','',0,'','2nidc8u1',1,0,'',138,0,0),(20084,4517,6,54,0,'189.132.106.50',1160244907,1,0,1,1,1,1,'','Re: Imprimir con TGraph()','[quote=&quot;Rafael Clemente&quot;:1s8jqwv6]Alguien sabe cómo imprimir con la clase TGraph() desde FWH 2.6?\nSimplemente estoy haciendo esto pero me da un error raro:  \"Error (6) Deleting enhanced metafile\" y el preview sale en blanco.\n\n[code:1s8jqwv6]\n  oPr &#58;= PrintBegin&#40;&quot;TGraph test&quot;, &#46;T&#46;, &#46;T&#46;, , &#46;T&#46;&#41;\n  oPr&#58;lPrvModal&#58;=&#46;T&#46;\n  PageBegin&#40;&#41;\n       oGraph&#58;Print&#40;oPr, 0, 0, 1000, 1000&#41;\n  PageEnd&#40;&#41;\n  PrintEnd&#40;&#41;\n[/code:1s8jqwv6]\n\nAlguien lo tiene resuelto?\nGracias\nRafael[/quote:1s8jqwv6]\n\nRafael,\n\nLo he solucionado de la siguiente manera.\n\n[code:1s8jqwv6]oDlg&#58;SaveToBmp&#40; &quot;grafica&#46;bmp&quot; &#41;\n[/code:1s8jqwv6]\n\nY mando a imprimir el archivo.\n\nSaludos','',0,'gIA=','1s8jqwv6',1,0,'',54,0,0),(20085,4505,6,54,0,'189.132.106.50',1160245867,1,0,1,1,1,1,'','Re: Loop con clase Report','[quote=&quot;gdeteran&quot;:2ma9lj1d]Armando :\n\nDesgraciadamente persiste el error.\n\nUso CDX, no se si el RDD este con error.\n\nGracias[/quote:2ma9lj1d]\n\nSi se trata de probar,\n\n[code:2ma9lj1d]oRpt&#58;bSkip &#58;= &#123;|| cAlias-&gt;&#40;DBSkip&#40;&#41;&#41; &#125;\n[/code:2ma9lj1d]\n\nSaludos','',0,'gIA=','2ma9lj1d',1,0,'',54,0,0),(20086,4429,6,54,0,'189.132.106.50',1160246319,1,0,1,1,1,1,'','','[quote=&quot;jllinas&quot;:ldkwhsmh]Esta muy bien....\n\nUna sola pregunta: ¿Que tiene \"traspaso\" como propósito? ¿Que hace esta opcion/botón?[/quote:ldkwhsmh]\n\njllinas,\n\nTraspaso es para pasar (valga la rebusnancia) el consumo de una mesa a otra.\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','ldkwhsmh',1,0,'',54,0,0),(20087,4531,6,73,0,'201.132.231.87',1160246661,1,0,1,1,1,0,'','','fijate que lo probe como me sugieres y me manda un error de arreglo. \nBasicamente lo que hago es en un browse en una ventana y los botones, pero si el browse esta sin registros ciertos botones se deshabilitan y si tiene registros se habilitan, estaba viendo la clase toolbar y nomas veo que se evalua el bwhen al crear el objeto boton, dejo mi codigo\n\n   IF lNew .AND. (oDCaj)-&gt;(OrdKeyCount())==0\n      FOR x := 1 TO LEN(oBar:aButtons)\n         oBar:aControls[x]:ForWhen()\n      NEXT\n   ENDIF\n\ncon oBar:aButtons[x]:ForWhen() como comentas el error es no export method,  algo mas?\ngracias\npaco','',0,'','2ne58jj7',1,0,'',73,0,0),(20088,4514,6,54,0,'189.132.106.50',1160246981,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:hylvm43p]CREO, ojo CREO, que la clase TURL solo se puede aplicar para servicios WWW, no para servicio FTP.[/quote:hylvm43p]\n\nRene,\n\nNegativo, jjejje\n\nSolo hay que agregar la LIB pcrepos y listo el pollo\n\n\njajajajajaja, alusión al amigo Vikthor.','',0,'gA==','hylvm43p',1,0,'',54,0,0),(20089,4500,4,89,0,'87.5.108.49',1160250614,1,0,1,1,1,0,'','','Antonio\nI have this error :\n\nC:\\VCE\\bin&gt;lib /REMOVE:AYGSHELL.obj FiveCEC.lib\nMicrosoft (R) Library Manager Version 6.24.3077\nCopyright (C) Microsoft Corporation.  All rights reserved.\n\nLIB : warning LNK4014: cannot find member object AYGSHELL.obj\n\nRegards','',0,'gA==','10kr0mwf',1,0,'',89,0,0),(20090,4531,6,53,0,'189.139.14.133',1160255008,1,0,1,1,1,1,'','','Paco:\n\npruebas con\n\noDlg:AEvalWhen()\n\nArriba el \"Atletico san pancho\"  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nArmando','',0,'gA==','38vw5byx',1,0,'',53,0,0),(20091,4517,6,63,0,'80.37.102.128',1160255329,1,0,1,1,1,0,'','','Gracias, William.  Esa posibilidad está indicada en los ejemplos y como último recurso, vale.  Yo me refería a si alguien ha conseguido hacer funcionar el método Print() en FWH y XP\nUn saludo,\nRafael','',0,'gA==','r5i2jvsn',1,0,'',63,0,0),(20092,4531,6,73,0,'201.132.231.87',1160255527,1,0,1,1,1,0,'','','nop tampoco armando, solo se ejecuta para los controles de la ventana no para la barra de botones\nsalu2\npaco','',0,'gA==','1rxrfq0n',1,0,'',73,0,0),(20093,4500,4,2,0,'87.218.146.80',1160257819,1,0,1,1,1,1,'','','Maurizio,\n\nlib /remove:objcec\\AYGSHELL.obj fivecec.lib','',0,'gA==','cu178hy5',1,0,'',2,0,0),(20094,4532,19,2,0,'87.218.146.80',1160260210,1,0,1,1,1,1,'','Windows Vista RC2','<!-- m --><a class=\"postlink\" href=\"http://download.windowsvista.com/preview/rc2/en/download.htm\">http://download.windowsvista.com/previe ... wnload.htm</a><!-- m -->','',0,'gA==','3h90yock',1,0,'',2,0,0),(20095,4496,6,75,0,'83.57.16.76',1160260450,1,0,1,1,1,0,'','','Esa también la tengo. En cualquier caso gracias por el ofrecimiento.','',0,'gA==','2vwf0rm8',1,0,'',75,0,0),(20096,4496,6,49,0,'62.13.172.78',1160263582,1,0,1,1,1,1,'','','go to fivewin.br.com I remember something of it ...','',0,'gA==','h1enzmzy',1,0,'',49,0,0),(20097,4533,3,190,0,'202.65.134.40',1160280583,1,0,1,1,1,0,'','RMAKE is generating error in WINXP. But Ok in WIN98.','Hi all\n\nI am using RMAKE to compile my FWH/xHarbour programs. The follwing\nis the contents of .RMK file\n\n[quote:w1ebz8qj]\n// defining some preprocessor directives for bcc32\nDef=\"__HARBOUR__;HB_FM_STATISTICS_OFF\"\n\nmakepath[.prg]=\"c:\\fwh\\Application\"\nmakepath[.c]=\"c:\\fwh\\Application\"\n\n.prg.c:\n   c:\\xharbour\\bin\\harbour  /n /w /i;c:\\Fwh\\include;c:\\fwh\\Application\\include &gt; prg.log\n\n.c.obj:\n     c:\\bcc55\\bin\\bcc32 -D$(Def) -O2 -c -Ic:\\xharbour\\include;c:\\fwh\\include $&lt;  &gt;&gt; c.log\n\nprg1.c : prg1.prg\nprg1.obj : prg1.c\n\nprg2.c : prg2.prg\nprg2.obj : prgc.c\n\n..\n..\n\n[/quote:w1ebz8qj]\n\nIt is working OK in Win98. When I try to compile in XP environment\nRMAKE is generating an error and the programs are not compiling.\n\nI am calling this .RMK file from a batchfile using CALL PROG.RMK.\n\nCan anybody guide me to come out of this problem.\n\n- Ramesh Babu P','',0,'gA==','w1ebz8qj',1,0,'',190,0,0),(20098,4467,6,496,0,'200.107.36.176',1160282067,1,0,1,1,1,0,'','','Saludos\n\nYa he logrado subir archivos al servidor, usando TSOCKET, guiándome con los ejemplos sockcli y sockserv,...... y ahora cómo los puedo bajar para que se copien en una carpeta determinada del pc cliente?.  Me pueden ayudar con un ejemplo, por fa\n\n\nMarcelo Jingo','',0,'gA==','1wfuaaau',1,0,'',496,0,0),(20099,4517,6,73,0,'201.132.231.87',1160283611,1,0,1,1,1,0,'','','Rafa, a mi me va bien, defino el tamaño en cm del area de impresion, pero luego cambio a pixeles ese tamañao para que funcione con cualquier impresora, te paso el codigo como lo uso si necesitas la lib te la envio..\n\n   LOCAL oPrn, nTop := 2.0, nLeft := 2.0, nHeight := 11.5, nWidth := 20\n\n    oPrn:=PrintBegin(\"Imprimir Grafica de Clientes\",.F.,.T.,,.T.)\n\n    oPrn:SetPortrait()\n    oPrn:Cmtr2Pix(@nTop  , @nLeft)\n    oPrn:Cmtr2Pix(@nWidth, @nHeight)\n\n  Page\n    oGra:Print( oPrn, nTop, nLeft, nWidth, nHeight )\n  PageEnd()\n  PrintEnd()\n  sysRefresh()\n  oPrn:End()\n  DeleteObject(oPrn)\n\nsalu2\nPaco','',0,'gA==','3qmdbi09',1,0,'',73,0,0),(20100,4533,3,707,0,'222.124.20.50',1160288908,1,0,1,1,1,0,'','','Ramesh,\n\nin your WindowXP to many Environment Variables.\n\nif you want to call rmake on command prompt please remove it ( see in your windows Environment Variables )\n\nBest Regard\nAreang','',0,'gA==','361c65g2',1,0,'',707,0,0),(20101,4531,6,2,0,'87.218.146.80',1160294675,1,0,1,1,1,1,'','','Francisco,\n\nEn la clase TToolBar modifica esta línea:\n[code:1ehgz4pn]\nMETHOD AddButton&#40; bAction, cToolTip, cText, bWhen, cMsg &#41; CLASS TToolBar\n\n   AAdd&#40; &#58;&#58;aButtons, &#123; bAction, cToolTip, cMsg,, bWhen &#125; &#41;  // esta\n   &#46;&#46;&#46;\n[/code:1ehgz4pn]\nY añade este método:\n[code:1ehgz4pn]\nMETHOD AEvalWhen&#40;&#41; CLASS TToolBar\n\n   local n\n\n   for n = 1 to Len&#40; &#58;&#58;aButtons &#41;\n      If &#58;&#58;aButtons&#91; n &#93;&#91; 5 &#93; != nil\n         &#58;&#58;EnableButton&#40; n, Eval&#40; &#58;&#58;aButtons&#91; n &#93;&#91; 5 &#93; &#41; &#41;\n      endif\n   next\n\nreturn nil\n[/code:1ehgz4pn]','',0,'AIA=','1ehgz4pn',1,0,'',2,0,0),(20102,4533,3,2,0,'87.218.146.80',1160295031,1,0,1,1,1,1,'','','Ramesh,\n\nYou may review fwh\\makes\\bormake.zip','',0,'AIA=','3co3injp',1,0,'',2,0,0),(20103,4533,3,190,0,'202.65.134.40',1160297873,1,0,1,1,1,0,'','','Mr.Antonio\n\nThank you very much.\n\nI have not noticed the makes directory <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nI will convert my Clipper\'s .RMK files to  Borland\'s make utility.\n\nRegards to you\n\n- Ramesh Babu P','',0,'AIA=','1rwg6utu',1,0,'',190,0,0),(20104,4517,6,63,0,'80.37.102.128',1160304879,1,0,1,1,1,0,'','','Paco:\nHe probado tu código (que era básicamente idéntico al mio) y tampoco va.  \nMe sigue dando el error \"Error (6) Deleting enhanced metafile\" y el preview sale en blanco.\nMe pregunto si tendrá algo que ver con mi versión de FWH (2.6).  Me puedes enviar tu lib, a ver...?  Mi correo es: <!-- e --><a href=\"mailto:rclemente@ya.com\">rclemente@ya.com</a><!-- e -->\nGracias\nRafa','',0,'AIA=','1zagsqny',1,0,'',63,0,0),(20105,4497,6,9,0,'85.60.54.140',1160331167,1,0,1,1,1,1,'','','Raymundo,\n\n¿Los campos del listbox tambien los podia incluir en un arreglo?\n\nHe probado con oLbx:aItems:= aMiArreglo  pero da error.\n\n¿Alguna ayuda?','',0,'AIA=','1x3lz4az',1,0,'',9,0,0),(20106,4517,6,73,0,'201.132.231.87',1160332525,1,0,1,1,1,0,'','','Enviada...\nsalu2\nPaco','',0,'AIA=','1zrh3zzg',1,0,'',73,0,0),(20107,4531,6,73,0,'201.132.231.87',1160335507,1,0,1,1,1,0,'','','Perfecto, gracias antonio\nsalu2\nPaco','',0,'AIA=','3952ohvc',1,0,'',73,0,0),(20108,4500,4,89,0,'213.21.136.60',1160374815,1,0,1,1,1,0,'','','Antonio\n\nThank now work\n\nMAurizio','',0,'AIA=','32hd0a1b',1,0,'',89,0,0),(20109,4532,19,177,0,'194.30.62.6',1160390825,1,0,1,1,1,0,'','','Antonio,\n\nthanks a lot !!!\n\nRegards,\n\nFelix','',0,'AIA=','15ndrkdd',1,0,'',177,0,0),(20110,4534,3,217,0,'200.159.120.34',1160397975,1,0,1,1,1,0,'','How to convert BMP to TIFF','Hi!\n\nI need to convert bmp (or jpg) file to tiff file. Does anybody know how do to it?\nI\'m searching for FWH source code or a little utility based in line command to call with WinExec( ).\n\nRegards!\nMaurilio','',0,'AIA=','16heduky',1,0,'',217,0,0),(20111,4529,6,18,0,'200.67.188.236',1160402556,1,0,1,1,1,1,'','','ToWord:OpenDoc( cModelo ) // abre o documento modelo \nfor x=1 to len( aCampos ) \nToWord:Replace( \'[\'+aCampos[x,1]+\']\' , aCampos[x,2] ) \nnext \nToWord:Save(CAMIFO) \n[b:39pr1ra9]ToWord:End()\nShellExecute( oWnd:hWnd, \"open\" , camifo  , , , )[/b:39pr1ra9]\nreturn nil','',0,'QA==','39pr1ra9',1,0,'',18,0,0),(20112,4514,6,18,0,'200.67.188.236',1160402623,1,0,1,1,1,1,'','','[quote=&quot;wmormar&quot;:36pgii86][quote=&quot;RF&quot;:36pgii86]CREO, ojo CREO, que la clase TURL solo se puede aplicar para servicios WWW, no para servicio FTP.[/quote:36pgii86]\n\nRene,\n\nNegativo, jjejje\n\nSolo hay que agregar la LIB pcrepos y listo el pollo\n\n\njajajajajaja, alusión al amigo Vikthor.[/quote:36pgii86]\n\nOkie dokie , gracias a ambos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','36pgii86',1,0,'',18,0,0),(20113,4499,6,456,0,'217.127.39.57',1160404163,1,0,1,1,1,1,'','','Gracias Rene por el consejo, la verdad es que con tOdbc y TDbOdbcDirect me funciona bastante bien.  \n\nDe todas maneras si que tengo previsto el probar ADO, y si funciona segun lo esperado ir migrando. \n\nPor lo leido, es bastante mas rapido, y eso siempre viene bien.','',0,'gA==','22943djd',1,0,'',456,0,0),(20114,4535,7,63,0,'80.37.102.128',1160412769,1,0,1,1,1,0,'','Puede hacerse un Soft Reset del Pocket desde el programa???','Quisiera incluir en mi programa un botón que fuerce un soft reset del PC.\n(lo necesito por si pierdo el enlace con un dispositivo Bluetooth para poder reponerlo.  O alguien sabe alguna forma más elegante?)\n\nSupongo que en el API debe haber alguna forma de forzar el reset del ordenador. Alguien podría postear el código necesario?\nGracias\n\nRafael','',0,'gA==','2oahwizm',1,0,'',63,0,0),(20115,4536,19,73,0,'201.132.230.108',1160417499,1,0,1,1,1,0,'','Antivirus','aqui les dejo este site parece estar bueno, hay de todo para evaluar, les dejo para los que han estado batallando con los virus\n<!-- m --><a class=\"postlink\" href=\"http://anti-virus-software-review.toptenreviews.com/\">http://anti-virus-software-review.toptenreviews.com/</a><!-- m -->\nsalu2\nPaco','',0,'gA==','2dz3jcpq',1,0,'',73,0,0),(20116,4497,6,492,0,'189.147.31.160',1160422681,1,0,1,1,1,1,'','','Hola Manuel\n\nSupongo que los campos los deseas usar para mostrar sus valores en el browse verdad ?\n\nREDEFINE LISTBOX lbSrcSis ;\n	FIELDS CATSISS-&gt;SNM ;\n	HEAD \"NOMBRE\" ;\n	ID 103 ;\n	ALIAS \"CATSISS\" ;\n	FONT oBrwFnt ;	\n	OF oFldSrc:aDialogs[2]\n\n	lbSrcSis:nLineStyle  := 2\n	lbSrcSis:lDrawFocusRect := .F.\n	lbSrcSis:nClrLine    := CLR_WHITE\n	lbSrcSis:nClrPane   := { || IIF( CATSISS-&gt;(OrdKeyNo() )%2=0, CLR_A, CLR_B ) }\n\n\nSaludos','',0,'','2xozzs7p',1,0,'',492,0,0),(20117,4510,6,492,0,'189.147.31.160',1160422940,1,0,1,1,1,1,'','','Master FLORES\n\nAdemas de la vTaskBar que esta fabulosa, que otros controles/clases estan disponibles ??\n\nMe interesaria mucho el de los Folders  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos','',0,'','3lbri76f',1,0,'',492,0,0),(20118,4497,6,9,0,'85.60.54.140',1160424783,1,0,1,1,1,1,'','','Raymundo,\n\nEl tema es un poco mas complicado. Se trata de actualizar (refrescar) un browse compuestos por bitmap, al cambiar la información. Todo funciona bien, para al pulsar el botón CALENDA (te lo señalo en rojo), el programa actualiza bien la base de datos (treservas), pero despues no refleja ese cambio en el browse, a pesar del refresh y del Updated. Gracias a tu idea, con oLbx:aHeaders:=aDia, conseguí actualizar las cabeceras, pero no logro actualizar los campos. Por eso te decia si puedo utilizar otra matriz. Este es el código:\n\n\nFUNCTION RESERVAS ()\nlocal oLbx, oDlg, oFont, oBmp, oBtn := ARRAY(10),  ;\n      aDia := ARRAY (33), n, ofecha1, oSay1, lOk := .f.,;\n      dFecha1 := DATE()\nlocal aBit := {  LOADBitmap( GetResources(), \"bverde\"  ), ;\n                 LoadBitmap( GetResources(), \"brojo\" ), ;\n                 LoadBitmap( GetResources(), \"bCeles\"  ), ;\n                 LoadBitmap( GetResources(), \"bamari\" )  }\n\nFIELD CON_INM\n\n aDia := C_RESERDIA( aDia, dFecha1 )  // calcula cabeceras listbox\n\n DEFINE FONT oFont   NAME \"MS Sans Serif\" SIZE 0, -14 BOLD\n\n ABRE (\"RESERVA\", \"RESERVA\", \"RESERVA\" )\n ORDSETFOCUS(\"CON_INM\")                    \n\n ABRE ( \"inqui\", \"inqui\", \"inqui\" )        \n ORDSETFOCUS(\"CON_INM\")            \n\n ABRE (\"fincas\", \"fincas\", \"fincas\" )\n SET RELA TO CON_INM INTO inqui\n\n // calcula la informacion del listbox\n MSGRUN (\" \", \"Cuadro Reservas.\", ;\n     { | oDlg | C_RESERVA ( oDlg, dFecha1, .t. ) } )\n\n SELE tReserva\n DBGOTOP()\n DEFINE DIALOG oDlg ;\n     TITLE \"Cuadro de Reservas\" ;\n     FROM 5, 2 TO 32, 99\n\n @ 0.1, 11.0 SAY oSay1 VAR dFecha1 SIZE 80, 8 UPDATE\n @ 0.1, 20.0 SAY \"Ocupado\" SIZE 24,8\n @ 0.25,18.5 BITMAP oBmp OF oDlg RESOURCE \"brojo\" NOBORDER ;\n             SIZE 8,8\n\n @ 0.1, 31.0 SAY \"Libre\" SIZE 15,8\n @ 0.25, 25.5 BITMAP oBmp OF oDlg RESOURCE \"bverde\" NOBORDER ;\n             SIZE 8,8\n\n @ 0.1, 40.0 SAY \"Entrada\" SIZE 20,8\n @ 0.25, 33.0 BITMAP oBmp OF oDlg RESOURCE \"bamari\" NOBORDER ;\n             SIZE 8,8\n\n @ 0.1, 50.0 SAY \"Salida\" SIZE 15,8\n @ 0.25, 40.0 BITMAP oBmp OF oDlg RESOURCE \"bCeles\" NOBORDER ;\n             SIZE 8,8\n\n @ 1,1 LISTBOX oLbx ;\n           FIELDS tReserva-&gt;FINCA , ;\n                  Num2Str(tReserva-&gt;DORM,1,0), ;\n                  aBit[Max(1,treserva-&gt;D01+1)], ;\n                  aBit[Max(1,treserva-&gt;D02+1)], ;\n                  aBit[Max(1,treserva-&gt;D03+1)], ;\n                  aBit[Max(1,treserva-&gt;D04+1)], ;\n                  aBit[Max(1,treserva-&gt;D05+1)], ;\n                  aBit[Max(1,treserva-&gt;D06+1)], ;\n                  aBit[Max(1,treserva-&gt;D07+1)], ;\n                  aBit[Max(1,treserva-&gt;D08+1)], ;\n                  aBit[Max(1,treserva-&gt;D09+1)], ;\n                  aBit[Max(1,treserva-&gt;D10+1)], ;\n                  aBit[Max(1,treserva-&gt;D11+1)], ;\n                  aBit[Max(1,treserva-&gt;D12+1)], ;\n                  aBit[Max(1,treserva-&gt;D13+1)], ;\n                  aBit[Max(1,treserva-&gt;D14+1)], ;\n                  aBit[Max(1,treserva-&gt;D15+1)], ;\n                  aBit[Max(1,treserva-&gt;D16+1)], ;\n                  aBit[Max(1,treserva-&gt;D17+1)], ;\n                  aBit[Max(1,treserva-&gt;D18+1)], ;\n                  aBit[Max(1,treserva-&gt;D19+1)], ;\n                  aBit[Max(1,treserva-&gt;D20+1)], ;\n                  aBit[Max(1,treserva-&gt;D21+1)], ;\n                  aBit[Max(1,treserva-&gt;D22+1)], ;\n                  aBit[Max(1,treserva-&gt;D23+1)], ;\n                  aBit[Max(1,treserva-&gt;D24+1)], ;\n                  aBit[Max(1,treserva-&gt;D25+1)], ;\n                  aBit[Max(1,treserva-&gt;D26+1)], ;\n                  aBit[Max(1,treserva-&gt;D27+1)], ;\n                  aBit[Max(1,treserva-&gt;D28+1)], ;\n                  aBit[Max(1,treserva-&gt;D29+1)], ;\n                  aBit[Max(1,treserva-&gt;D30+1)], ;\n                  aBit[Max(1,treserva-&gt;D31+1)]  ;\n            FIELDSIZES 95, 15, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, ;\n                       20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, ;\n                       20, 20, 20, 20, 20, 20 ;\n            SIZE 366,138 FONT oFont OF oDlg UPDATE;\n            ON DBLCLICK ( FINCAS( \"Reserva\", tReserva-&gt;CON_INM) , ;\n                  C_RESERVA (oDlg, dFecha1, .f.), oDlg:REFRESH() )\n\n      oLbx:nClrPane:={|| IIF((oLbx:cAlias)-&gt;(OrdKeyNo())%  2==0,CELE,GRIS)}\n      oLbx:nClrForeHead := AZUL   // gracias Raymundo\n      oLbx:bKeyDown:={|nK| IIF ( nK != VK_RETURN, , (FINCAS( \"Reserva\", tReserva-&gt;CON_INM) , oDlg:End()))}\n      oLbx:aHeaders:=aDia\n\n      **\n\n\n  [color=red:3hoyz4kc]    @ 165,198 BUTTONBMP oBtn[4]  OF oDlg ;\n                SIZE 42,16 PIXEL ;\n                ACTION ( dFecha1 := CALENDAR(dFecha1), ;\n                   aDia := C_RESERDIA( aDia, dFecha1 ), ;\n                   C_RESERVA (oDlg, dFecha1, .f., .t. ), ;\n                   oLbx:REFRESH(), oDlg:UPDATED()  ) ;\n                MESSAGE \" Ver calendario.\" ;\n                PROMPT SPACE(3) + \"&amp;Calenda\" ;\n                BITMAP \"calendar1\" TEXTRIGHT[/color:3hoyz4kc]\n\n      @ 165,258 BUTTONBMP oBtn[6] OF oDlg ;\n                 SIZE 42,16 PIXEL ;\n                 ACTION Fayuda( cChmFich, \"reservas.htm#cuadro\") ;\n                 MESSAGE \" Ayuda\"  ;\n                 PROMPT SPACE(5) + \"a&amp;Yuda\"  ;\n                 BITMAP \"Ayuda\" TEXTRIGHT\n\n      @ 165,318 BUTTONBMP oBtn[7] OF oDlg ;\n                 SIZE 42,16 PIXEL ;\n                 ACTION (oDlg:End()) ;\n                 MESSAGE \" Salir de esta ventana\" ;\n                 PROMPT SPACE(4) + \"&amp;Salir\"  ;\n                 BITMAP \"salir1\" TEXTRIGHT\n\n\n      ACTIVATE DIALOG oDlg CENTERED ;\n           ON INIT (oDlg:lHelpIcon:=.f., ;\n           PonBarra(oDlg, \" Cuadro de reservas.\",.f.) )\n\n   CLOSE tReserva\n   CLOSE fincas\n   CLOSE reserva\n RETURN nil\n\n///////////////////////////////////////////////\n/// calculo de la cabecera listbox\n///////////////////////////////////////////////\nSTATIC FUNCTION C_RESERDIA( aDia, dFecha )\nlocal n := 3 // , aDia := ARRAY (31)\naDia[1] := \"Fincas\"\naDia[2] := \"D\"\n\n   WHILE n &lt;= 33\n      aDia[n] := Str( DAY (dFecha), 2, 0 )\n      n++\n      dFecha++\n   ENDD\n\nRETURN aDia\n\n///////////////////////////////////////////////\n/// calculo del Cuadro de Reservas (planin)\n///////////////////////////////////////////////\nSTATIC FUNCTION C_RESERVA( oDlg, dFecha1, lOpcion, lCalendar)\nlocal N, dF, dFecha2 := (dFecha1 + 31), aDbf := {}, nRec1 := 0\nDefault lCalendar := .f.\n\nif lOpcion   // inicio o cambio de dia\n   //\n   // primero, vamos a preparar un fichero temporal\n   //\n   AADD(aDbf,{\"CON_INM\"   ,\"N\",    6, 0})     // control inmueble\n   AADD(aDbf,{\"FINCA\"     ,\"C\",   10, 0})     // direccion del inmueble\n   AADD(aDbf,{\"DORM\"      ,\"N\",    1, 0})     // numero dormitorios\n   AADD(aDbf,{\"D01\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D02\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D03\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D04\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D05\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D06\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D07\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D08\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D09\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D10\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D11\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D12\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D13\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D14\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D15\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D16\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D17\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D18\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D19\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D20\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D21\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D22\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D23\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D24\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D25\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D26\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D27\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D28\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D29\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D30\"       ,\"N\",    1, 0})\n   AADD(aDbf,{\"D31\"       ,\"N\",    1, 0})\n   DBCREATE( cDirEsta + \"TRESERVA.DBF\", aDbf, \"DBFCDX\")\n\n   USE (cDirEsta + \"TRESERVA\") NEW\n ENDI\n\n IF lCalendar\n    SELE tReserva\n    DBGOTOP()\n ENDI\n\n SELE fincas  // indice por nombres\n while !eof()\n    nRec1++\n    // refresca msgrun\n    oDlg:cMsg := \"Alta recibo \"+ LTrim( Str( nRec1 ) )\n    oDlg:Refresh()\n    SysRefresh()\n\n    SELE tReserva\n    IF lOpcion     // alta\n       ALTA_R(5)\n       tReserva-&gt;CON_INM := fincas-&gt;CON_INM\n    ELSE\n       BLOQ_R(5)\n    ENDI\n    tReserva-&gt;DORM    := fincas-&gt;DORMITORIO\n    tReserva-&gt;FINCA   := fincas-&gt;NOMBRE\n\n    // fincas ocupadas\n    IF fincas-&gt;INQUILIN &gt; 0\n       dF := dFecha1\n       N  := 4\n       WHILE dF &lt;= dFecha2\n          IF dF &lt; inqui-&gt;VTO  // hasta el dia antes del vto\n             IF dF = inqui-&gt;FINI\n                tReserva-&gt;(FIELDPUT(n, 3))\n             ELSEIF dF &gt; inqui-&gt;FINI\n                tReserva-&gt;(FIELDPUT(n, 1))\n             ENDI\n          ELSEIF dF = inqui-&gt;VTO\n             tReserva-&gt;(FIELDPUT(n, 2))\n          ENDI\n          n++\n          dF++\n          IF dF &gt; inqui-&gt;VTO\n             EXIT\n          ENDI\n        ENDD\n    ENDI\n\n    // anota las reservas\n    SELE reserva\n    ORDSETFOCUS(\"CON_INM\")                    // control inmuebles\n    DBSEEK(fincas-&gt;CON_INM)\n    IF FOUND()\n       WHILE reserva-&gt;CON_INM = fincas-&gt;CON_INM\n          IF reserva-&gt;FENTRA &lt;= dFecha2 .and. reserva-&gt;FSALE &gt;= dFecha1\n             dF  := dFecha1\n             N := 4\n             WHILE dF &lt;= dFecha2\n                IF dF &gt;= reserva-&gt;FENTRA .and. dF &lt; reserva-&gt;FSALE\n                   IF dF = reserva-&gt;FENTRA\n                      tReserva-&gt;(FIELDPUT(n, 3))\n                   ELSE\n                      tReserva-&gt;(FIELDPUT(n, 1))\n                   ENDI\n                ELSEIF dF = reserva-&gt;FSALE\n                   tReserva-&gt;(FIELDPUT(n, 2))\n                ENDI\n                n++\n                dF++\n                IF dF &gt; reserva-&gt;FSALE\n                   EXIT\n                ENDI\n             ENDD\n          ENDI\n          SELE reserva\n          DBSKIP()\n       ENDD\n    ENDI\n    SELE tReserva\n    UNLOCK\n    IF lOpcion .or. lCalendar\n       SELE fincas\n       DBSKIP()\n    ELSE\n       EXIT\n    ENDI\n ENDD\n\n RETURN nil','',0,'Ag==','3hoyz4kc',1,0,'',9,0,0),(20119,4537,1,418,0,'83.156.148.251',1160426070,1,0,1,1,1,0,'','Report','Hi everybody may be i am becoming crazy, but I have a small problem with the report engine, but i am a beginner with Fivewin and i think you will laugh,but you can help me\nI have a database with 25 fields\nHow can i a make a report with data sorted by field \n\nex:\n\n      title fieldname(i)\n\n    column field(1) when field(i)#0\n     column field(2) when field(i)#0\n      column field(i)  when field(i)#0\n       total for field(i)\n\n        title fieldname(i+1)\n        \n     column field(1) when field(i+1)#0\n     column field(2) when field(i+1)#0\n     column field(i+1)  when field(i+1)#0\n      total for field(i+1)\n\n \n      title fieldname(i+2)\n     column field(1) when field(i+2)#0\n     column field(2) when field(i+2)#0\n     column field(i+2)  when field(i+2)#0\n      total for field(i+2)\n\netc etc\n\nThanks for your help','',0,'Ag==','ktyug3mm',1,0,'',418,0,0),(20120,4496,6,362,0,'200.168.52.156',1160429136,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3pc4jtpm]go to fivewin.br.com I remember something of it ...[/quote:3pc4jtpm]\n\nCongratulations Silvio...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=635\">http://www.fivewin.com.br/exibedicas.asp?id=635</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=626\">http://www.fivewin.com.br/exibedicas.asp?id=626</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=625\">http://www.fivewin.com.br/exibedicas.asp?id=625</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=621\">http://www.fivewin.com.br/exibedicas.asp?id=621</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=619\">http://www.fivewin.com.br/exibedicas.asp?id=619</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=617\">http://www.fivewin.com.br/exibedicas.asp?id=617</a><!-- m -->','',0,'gA==','3pc4jtpm',1,0,'',362,0,0),(20121,4538,3,227,0,'201.92.241.207',1160429920,1,0,1,1,1,1,'','Toolbar','Amigos...\n\nComo desabilitar um unico botão da TOOLBAR ??\n\n[quote:zcnemytl]\nSTATIC FUNCTION BARRABOTOES()\n**** TOOLBAR - TAMANHOS DOS BOTÕES\noImageList = TImageList():New(35,35)\n\n**** TOOLBAR - IMAGENS DOS BOTÕES\noImageList:AddMasked(TBitmap():Define( \"NOVODLG\"        ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"ALTERADLG\"      ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"SALVARDLG\"      ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"APAGARDLG\"      ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"IMPRESSAODLG\"   ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"IMPRESSAODOSDLG\",,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"BUSCADLG\"       ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"REGISTROTOP\"    ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"REGISTROANT\"    ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"REGISTROPROX\"   ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"REGISTRODOWN\"   ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"AJUDADLG\"       ,,oDlgPermissoes),nRGB(255,0,255))\noImageList:AddMasked(TBitmap():Define( \"ENCERRADLG\"     ,,oDlgPermissoes),nRGB(255,0,255))\n\n**** TOOLBAR - DEFINE\nDEFINE TOOLBAR oToolBarDlg OF oDlgPermissoes SIZE 38,38 ;\n      IMAGELIST oImageList BALLOON\n\n**** TOOLBAR - AÇÃO DOS BOTÕES\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION INCUSER();\n       TOOLTIP ANSITOOEM(\"Novo Registro\")\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"teste\") ;\n       TOOLTIP ANSITOOEM(\"Alterar Registro\")\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"teste\") ;\n       TOOLTIP ANSITOOEM(\"Salvar Registro\")\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"Backup\") ;\n       TOOLTIP ANSITOOEM(\"Elimina Registro\")\n\nDEFINE TBSEPARATOR OF oToolBarDlg\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"teste\") ;\n       TOOLTIP ANSITOOEM(\"Relatório Modo Gráfico\")\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"teste\");\n       TOOLTIP ANSITOOEM(\"Relatório Modo Texto\")\n\nDEFINE TBSEPARATOR OF oToolBarDlg\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"teste\");\n       TOOLTIP ANSITOOEM(\"Pesquisa Registros\")\n\nDEFINE TBSEPARATOR OF oToolBarDlg\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"teste\") ;\n       TOOLTIP ANSITOOEM(\"Início dos Registros\")\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  MSGINFO(\"teste\") ;\n       TOOLTIP ANSITOOEM(\"Registro Anterior\")\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  ENCERRA(oDlgPermissoes) ;\n       TOOLTIP ANSITOOEM(\"Registro Posterior\")\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  ENCERRA(oDlgPermissoes) ;\n       TOOLTIP ANSITOOEM(\"Final dos Registros\")\n\nDEFINE TBSEPARATOR OF oToolBarDlg\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  ENCERRA(oDlgPermissoes) ;\n       TOOLTIP ANSITOOEM(\"Ajuda\")\n\nDEFINE TBSEPARATOR OF oToolBarDlg\n\nDEFINE TBBUTTON OF oToolBarDlg ;\n       ACTION  ENCERRA(oDlgPermissoes) ;\n       TOOLTIP ANSITOOEM(\"Encerra o Módulo\")\n[/quote:zcnemytl]\n\nDesta maneira tudo funciona, a única coisa que preciso é ativar e desativar em tempo de execução.\n\nAgradeço a ajuda antecipadamente.','',0,'gA==','zcnemytl',1,0,'',227,0,0),(20122,4538,3,2,0,'87.218.146.183',1160432749,1,0,1,1,1,1,'','','oToolBar:EnableButton( &lt;nButton&gt;, .f. )','',0,'gA==','1icw81zt',1,0,'',2,0,0),(20123,4498,3,34,0,'68.4.154.81',1160437718,1,0,1,1,1,1,'','DBCombo','I\'m using xHarbour Builder October 2006\n\nI\'m using FWH from March 2006\nThe DBCombo.prg is from 2/26/2006\n\nI\'m using Pelles to create the RC but its actually being compiled in xHarbour.\n\nI will try building a small sample to test it.\n\nTim','',0,'gA==','2suxaqs6',1,0,'',34,0,0),(20124,4539,1,819,0,'216.34.194.113',1160438136,1,0,1,1,1,0,'','alert custumization','Hi,\n\nClient request to customize the color of the alert dialog. I am trying to edit the alert.prg with the following code.\n\nsetTextColor(hDC,CLR_YELLOW) but the color doesn\'t change.\n\nIs this the correct approach ? \n\nHow can I get the hDC of a oDlg?\n\nTIA,\n\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> XHBCoder\n\nSTATIC FUNCTION DlgInit(oDlg, oFont, cMsg, aOptions, cTitle, nDefault, xIcon)\n\n   Local oGet, oBtn, oIcon\n   Local cSay, cLine\n   Local nMaxWidth, nMaxHeight, nWidth, nHeight, nLines, nFor\n   Local nBtnWidth, nBtnOffset, nBtnHeight, nBtnLength\n   Local lHScroll, lVScroll\n// jdd \n	local hDC\n 	hDC := oDlg:GetDC()\n 	setTextColor(hDC, CLR_YELLOW)\n//','',0,'gA==','3vwuf82b',1,0,'',819,0,0),(20125,4538,3,227,0,'201.92.102.183',1160439559,1,0,1,1,1,1,'','','Gracias...','',0,'gA==','1emxtflf',1,0,'',227,0,0),(20126,4429,6,389,0,'189.132.2.150',1160439978,1,0,1,1,1,0,'','Que hace el boton traspaso','El boton \"traspaso\" lo que realiza es cambiar el producto de una mesa \"10\" a la mesa \"20\".. a veces el cajero o vendedor (mesero) se equivoca en la captura\n[code:3kjtekio]\n\n DEFINE DIALOG oDlgMesas RESOURCE &quot;DLG_PRODUCTOSCOMANDERO&quot; OF oApp&#58;oWndMain;\n        TITLE &quot;MESA&#58; &quot; + aDatosMesa&#91;1&#93; + &quot; &quot; + aDatosMesa&#91;3&#93;\n\n REDEFINE BUTTONBMP aBtnsConsu&#91;1&#93; ID 600 OF oDlgMesas BITMAP &quot;BMP_NUEVACOMANDA&quot;;\n          PROMPT &quot;&amp;Agregar&quot; TEXTBOTTOM\n\n REDEFINE BUTTONBMP aBtnsConsu&#91;2&#93; ID 605 OF oDlgMesas BITMAP &quot;BMP_MASUNO&quot;;\n          ACTION OnActionMasUno&#40;oBrwConsu, oSaysGet&#41; ;\n          PROMPT &quot;&#40;+&#41; Uno&quot;+CRLF+&quot; &quot; TEXTBOTTOM\n&#46;\n&#46;\n&#46;\n\n\n // Botones de lineas ----------------------------\n REDEFINE SBUTTON aBtnsLines&#91; 1&#93; ID 900 OF oDlgMesas\n&#46;\n&#46;\n\n // Botones de productos por lineas ----------------------------\n REDEFINE SBUTTON aBtnsProdu&#91; 1&#93; ID 914 OF oDlgMesas\n REDEFINE SBUTTON aBtnsProdu&#91; 2&#93; ID 915 OF oDlgMesas\n REDEFINE SBUTTON aBtnsProdu&#91; 3&#93; ID 916 OF oDlgMesas\n&#46;\n&#46;\n&#46;\n\n// carga los botones de las lineas\n\n FOR EACH oBtn IN aBtnsLines\n     IF hb_EnumIndex&#40;&#41; &lt;= Len&#40; aLineas &#41;\n       oBtn&#58;cCaption&#58;= Str2Lines&#40; AllTrim&#40; aLineas&#91; hb_EnumIndex&#40;&#41;, 1 &#93; &#41;, &quot; &quot; &#41;\n                       //Str2Lines&#40; AllTrim&#40;produc-&gt;DESC1&#41;, &quot; &quot; &#41;\n\n       oBtn&#58;nClrText&#58;= &#123; |oB| If&#40; oB&#58;lMouseOver, CLR_WHITE, CLR_RED &#41; &#125;\n       oBtn&#58;nClrBack&#58;= &#123; |oB| If&#40; oB&#58;lMouseOver, &#123; nRgb&#40;0,119,176&#41;, nRgb&#40;255,255,255&#41;, 1 &#125;, ;\n                                                 &#123; nRgb&#40;128,128,255&#41;, nRgb&#40;255,255,255&#41;, 1 &#125; &#41; &#125;\n       oBtn&#58;cargo   &#58;= &#123; &#46;F&#46;, aLineas&#91;hb_EnumIndex&#40;&#41;, 3&#93; &#125;\n       oBtn&#58;bAction &#58;= &#123; || AEVAL&#40; aBtnsLines, ;\n                          &#123; |oB| IF&#40; oB&#58;lEverPress, &#40;oB&#58;lEverPress&#58;= &#46;F&#46;, oB&#58;cargo&#91;1&#93;&#58;= &#46;F&#46;,;\n                             oB&#58;nClrBack&#58;= &#123; nRgb&#40;128,128,255&#41;, nRgb&#40;255,255,255&#41;, 1 &#125;,oB&#58;refresh&#40;&#41; &#41;, &#46;F&#46; &#41; &#125; &#41;, ;\n                            oBtn&#58;cargo&#91;1&#93;&#58;= !oBtn&#58;cargo&#91;1&#93;, ;\n                        If&#40; oBtn&#58;cargo&#91;1&#93;, ;\n                          &#40; oBtn&#58;lEverPress &#58;= &#46;T&#46;, ;\n                            oBtn&#58;nClrBack&#58;= &#123; nRgb&#40;0,119,176 &#41;, nRgb&#40;255,255,255&#41;, 5 &#125;, ;\n                            GetProductoPorLinea&#40; oBtn&#58;cargo&#91;2&#93;, aBtnsProdu, oBrwConsu, aBtnScroll, ;\n                                                 oSaysGet, oFntBrow &#41; &#41; , ;\n                          &#40; oBtn&#58;lEverPress &#58;= &#46;F&#46;, oBtn&#58;cargo&#91;2&#93;&#58;= &quot;   &quot;,;\n                            oBtn&#58;nClrBack&#58;= &#123; nRgb&#40;128,128,255&#41;, nRgb&#40;255,255,255&#41;, 1 &#125; &#41; &#41;, ;\n                            oBtn&#58;refresh&#40;&#41; &#125;\n       oBtn&#58;oFont&#58;= oFntSays\n       oBtn&#58;Refresh&#40;&#41;\n     ELSE\n        oBtn&#58;disable&#40;&#41;\n     ENDIF\n NEXT\n\n // Botones de scroll de lineas y productos por lineas\n REDEFINE BUTTONBMP aBtnScroll&#91;1&#93; ID 912 OF oDlgMesas BITMAP &quot;BMP_UP_BTN&quot;;\n          ACTION OnActionUpLines&#40; @aBtnsLines, aLineas, aCargos, aBtnScroll, oBrwConsu, aBtnsProdu &#41;\n\n REDEFINE BUTTONBMP aBtnScroll&#91;2&#93; ID 913 OF oDlgMesas BITMAP &quot;BMP_DOWN_BTN&quot;;\n          ACTION OnActionDownLines&#40; @aBtnsLines, aLineas, aCargos, aBtnScroll, oBrwConsu, aBtnsProdu &#41;\n\n REDEFINE BUTTONBMP aBtnScroll&#91;3&#93; ID 938 OF oDlgMesas BITMAP &quot;BMP_UP_BTN&quot;;\n          ACTION OnActionUpProducto&#40; aBtnsProdu, aBtnScroll &#41;\n\n REDEFINE BUTTONBMP aBtnScroll&#91;4&#93; ID 939 OF oDlgMesas BITMAP &quot;BMP_DOWN_BTN&quot;;\n          ACTION OnActionDownProducto&#40; aBtnsProdu, aBtnScroll &#41;\n\n REDEFINE BUTTONBMP oBtnExit ID 549 OF oDlgMesas BITMAP &quot;BMP_SALIRTPV&quot; ;\n          PROMPT &quot;S&quot; + CRLF + &quot;a&quot;  + CRLF + &quot;l&quot;  + CRLF + &quot;i&quot;  + CRLF + &quot;r&quot;+CRLF + &quot; &quot;;\n          ACTION &#40; lSalida&#58;= TRUE, oDlgMesas&#58;End&#40;&#41; &#41;;\n          TEXTBOTTOM\n\n WITH OBJECT oBrwConsu&#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlgMesas &#41;\n      &#58;nHeaderHeight       &#58;= 25\n      &#58;nRowHeight          &#58;= 35\n      &#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n      &#58;nColDividerStyle    &#58;= LINESTYLE_LIGHTGRAY\n      &#58;nRowDividerStyle    &#58;= LINESTYLE_LIGHTGRAY\n      &#58;lColDividerComplete &#58;= &#46;T&#46;\n      &#58;lHScroll            &#58;= &#46;T&#46;\n      &#58;lVScroll            &#58;= &#46;T&#46;\n      // &#58;oFont               &#58;= oFntBrow\n      &#58;bChange&#58;= &#123;|| oSaysGet&#91;6&#93;&#58;SetText&#40; RTRIM&#40; consum-&gt;NOTA1 &#41; + &quot; &quot; + RTRIM&#40;consum-&gt;NOTA2&#41; &#41;, ;\n                     oSaysGet&#91;6&#93;&#58;refresh&#40;&#41; &#125;\n END\n WITH OBJECT oCol &#58;= oBrwConsu&#58;AddCol&#40;&#41;\n      &#58;bStrData  &#58;= &#123; || TRANSFORM&#40; consum-&gt;CANTIDAD, &quot;999,999&quot; &#41; &#125;\n      &#58;cHeader   &#58;= &quot;Cantidad&quot;\n      &#58;nDataStrAlign&#58;= AL_RIGHT\n      &#58;nWidth    &#58;= 40\n      &#58;cHeader   &#58;= &quot;Canti&quot;\n      &#58;oHeaderFont&#58;= oFntHead\n      &#58;oDataFont  &#58;= oFntBrow\n END\n WITH OBJECT oCol &#58;= oBrwConsu&#58;AddCol&#40;&#41;\n      &#58;bStrData  &#58;= &#123; || HB_OemToAnsi&#40;consum-&gt;NOMB_PROD&#41; &#125;\n      &#58;nWidth    &#58;= 200\n      &#58;cHeader   &#58;= &quot;Nombre del producto&quot;\n      &#58;oHeaderFont&#58;= oFntHead\n      &#58;oDataFont  &#58;= oFntBrow\n END\n&#46;\n&#46;\n&#46;\n\n oBrwConsu&#58;SetRDD&#40;&#41;\n oBrwConsu&#58;CreateFromResource&#40;550&#41;\n\n REDEFINE GSAY oSaysGet&#91;1&#93; VAR aVars&#91;1&#93; ID 750 OF oDlgMesas PICTURE \'99,999,999\' ;\n&#46;\n&#46;\n&#46;\n\n ACTIVATE DIALOG oDlgMesas ;\n          ON INIT &#40; OnInitProductos&#40; @aVars, @aConsumo &#41;, oBrwConsu&#58;SetFocus&#40;&#41; &#41; ;\n          ON PAINT DrawBitmap&#40; oDlgMesas&#58;hDC, oBmpFondo&#58;hBitmap, 0, 0, oBmpFondo&#58;nWidth&#40;&#41;, ;\n                   oBmpFondo&#58;nHeight&#40;&#41;,  aBtnsConsu&#91;1&#93;&#58;disable&#40;&#41;, aBtnsConsu&#91;1&#93;&#58;hide&#40;&#41;, ;\n                   aBtnsConsu&#91;1&#93;&#58;refresh&#40;&#41;, aBtnsConsu&#91;8&#93;&#58;disable&#40;&#41;, aBtnsConsu&#91;8&#93;&#58;hide&#40;&#41;, aBtnsConsu&#91;8&#93;&#58;refresh&#40;&#41;&#41;;\n          CENTERED VALID &#40; oFntSays&#58;End&#40;&#41;, oFntGets&#58;End&#40;&#41;, oFntBrow&#58;End&#40;&#41;, ;\n                           oFntTota&#58;End&#40;&#41;, DestroyBtns&#40; aBtnsLines &#41;, ;\n                           DestroyBtns&#40; aBtnScroll &#41;, DestroyBtns&#40; aBtnsProdu &#41;,  nPageLines&#58;= 0, ;\n                           nElemenLines&#58;= 12, consum-&gt;&#40; ORDSCOPE&#40; 0, NIL &#41; &#41;, ;\n                           consum-&gt;&#40; ORDSCOPE&#40; 1, NIL  &#41; &#41;, lSalida &#41;\n\n[/code:3kjtekio]\n\nSaludos','',0,'AIA=','3kjtekio',1,0,'',389,0,0),(20127,4529,6,694,0,'200.181.206.238',1160440553,1,0,1,1,1,1,'','Vikthor','Vikthor... Me desculpe a minha ignorancia...Mais o que significa estas linhas?\n\nToWord:End()\nShellExecute( oWnd:hWnd, \"open\" , camifo , , , ) \n\n\nOutra coisa, com o xHarb posso usar ToWord:end() ???\n\nFique com Deus\nAokiSantos','',0,'AIA=','2cma9as7',1,0,'',694,0,0),(20128,4540,6,307,0,'200.76.229.117',1160440708,1,0,1,1,1,0,'','report','saludos, se puede cambiar el tamanio de la hoja en treport?\ncon la otra clase se puede con esto oPrn:SetPage(5) //LEGAL\n  oPrn:SetLandScape(), pero en Report como?  , como se puede poner encabezados como los superheaders del tsbrowse?\n\ngracias\narnulfo','',0,'AIA=','18tf7q40',1,0,'',307,0,0),(20129,4529,6,54,0,'189.132.106.50',1160441747,1,0,1,1,1,1,'','Re: Vikthor','[quote=&quot;AOKISANTOS&quot;:26mzoqrd]Vikthor... Me desculpe a minha ignorancia...Mais o que significa estas linhas?\n\nToWord:End()\nShellExecute( oWnd:hWnd, \"open\" , camifo , , , ) \n\n\nOutra coisa, com o xHarb posso usar ToWord:end() ???\n\nFique com Deus\nAokiSantos[/quote:26mzoqrd]\n\nAOKISANTOS,\n\nToWord:End(), libera la clase Word y por lo tanto recursos\nShellExecute(), lanza el word o la aplicación asociada al tipo de archivo en cuestión.','',0,'gA==','26mzoqrd',1,0,'',54,0,0),(20130,4540,6,54,0,'189.132.106.50',1160442097,1,0,1,1,1,1,'','Re: report','[quote=&quot;Arvisnet&quot;:1d7xumee]saludos, se puede cambiar el tamanio de la hoja en treport?\ncon la otra clase se puede con esto oPrn:SetPage(5) //LEGAL\n  oPrn:SetLandScape(), pero en Report como?  , como se puede poner encabezados como los superheaders del tsbrowse?\n\ngracias\narnulfo[/quote:1d7xumee]\n\nArvisnet,\n\n[code:1d7xumee]oReport&#58;oDevice&#58;setpage&#40;&#41;\noReport&#58;oDevice&#58;SetLandScape&#40;&#41;[/code:1d7xumee]','',0,'gIA=','1d7xumee',1,0,'',54,0,0),(20131,4541,12,16,0,'189.164.111.231',1160445892,1,0,1,1,1,1,'','Información acerca de la más reciente versión para Linux','Que tal mi estimado Antonio, Espero te encuentres bien, hace mucho tiempo que no estaba por aquí.\n\nTe comento que decidimos mover las aplicaciones nuevas a Linux-Php-Java-JavaScript-mySql ya va para un año y medio casi, ya tenemos varios sistemas grandes funcionando bajo este esquema.\n\nEstamos muy casados con Linux, pero tenemos muchos sistemas con FiveWin funcionando y queremos saber como va FiveLinux para migrar estas apps. ( FiveWin 2 FiveLinux )\n\nLa distribución que usamos es Ubuntu.\n\nRecibe un afectuoso saludo.\n\nAtte.\nCarlos Velázquez\nGuadalajara, Jalisco, México.','',0,'gIA=','1lkhipz0',1,0,'',16,0,0),(20132,4542,3,190,0,'202.65.134.44',1160446683,1,0,1,1,1,0,'','Underline for shortcut key is not visible in WINXP !','Hi all\n\nThe underline for shortcut key is visible OK in WIN98 \nbut the same is not visible in WINXP untill we don\'t press\nALT key !\n\nIs it the standard behaviour of XP ?(I have not checked)\nor is there any problem with FWH !.\n\n- Ramesh Babu P','',0,'gIA=','q70dwde3',1,0,'',190,0,0),(20133,4542,3,190,0,'202.65.134.26',1160453502,1,0,1,1,1,0,'','','Hi all\n\nFound solution under Display Properties -&gt; Appearance Tab -&gt;Effects Dialog-&gt;\"Hide underlined letters for keyboard navigation until I press the Alt key\" Checkbox of WinXp.\n\n- Ramesh Babu','',0,'gIA=','3lv96nq6',1,0,'',190,0,0),(20134,4543,3,31,0,'195.182.84.105',1160456313,1,0,1,1,1,1,'','Graphics with Unicode inscriptions','Hi ! \n\n  It\'s needful to work with application in some languages . One of them can be Russian with Cyrilic alphabet . As I know , the best way to view true inscriptions in menus , dialogs &amp; windows says is Unicode text . Can you get me a sample , how I can to do that working ? I\'ll store all needfuls inscriptions in txt files ( lt.txt , ru.txt , en.txt and etc. ) with unique IDs . So when user at program startup moment will choose language I will direct to needful txt file and will get needfuls inscriptions . But I don\'t know how to put them in dialogs say as Unicode string ...  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n  Many thanks in advance ! With best regards ! Rimantas','',0,'gIA=','pb2b164h',1,0,'',31,0,0),(20135,4543,3,707,0,'222.124.20.50',1160464598,1,0,1,1,1,0,'','','Rimantas,\n\nSave all dialog information on ini files.\n\nbest regard\nareang','',0,'gIA=','36oi77on',1,0,'',707,0,0),(20136,4544,3,32,0,'168.209.98.43',1160466228,1,0,1,1,1,0,'','FixSays in rpreview.prg','Hi,\n\nI understand that the FixSays function is supposed to fix the background color of all say objects of a particular window.\n\nThe problem is that when you move to a new page, the settext resets the color, and even putting FixSays(::oBar:hWnd) after the settext has no effect.\n\nIs there anything else I can try?\n\nThanks,\nAlex','',0,'gIA=','1szxp0zj',1,0,'',32,0,0),(20137,4500,4,51,0,'80.122.88.242',1160466621,1,0,1,1,1,0,'','','Hello Maurizio,\n\n&gt;Now I have a cash register \nWhat kind of hardware is this?\n\nGreetings from Sillian\nOtto','',0,'gIA=','5fldq62j',1,0,'',51,0,0),(20138,4447,20,446,0,'87.6.219.204',1160468884,1,0,1,1,1,0,'','CGI','è possibile invece inserire il risultato del CGI come \"parte\" della pagina invece che generarne una completamente nuova:\nes:\n[code:1bs0j3kr]\n&lt;html&gt;\n&lt;head&gt;\nhtml&#46;&#46;&#46;\n&lt;/head&gt;\n&lt;body&gt;\nhtml&#46;&#46;&#46;\n\ncome eseguo mycgi&#46;cgi&#40;params&#41; che restituisce una tabella ?\n\naltro html&#46;&#46;&#46;\n\n&lt;/body&gt;\n&lt;/html&gt;\n[/code:1bs0j3kr]\n\nRoberto','',0,'AIA=','1bs0j3kr',1,0,'',446,0,0),(20139,4447,20,6,0,'87.19.208.46',1160469196,1,0,1,1,1,1,'','Re: CGI','Potresti mettere nella pagina un simbolo riconoscibile che poi vai a sostituire. Quindi: carichi la pagina con MemoRead(), sostituisci il simbolo (sarà una stringa di caratteri riconoscibile) con l\'HTML aggiuntivo da inserire precedentemente preparato, poi spari il tutto in output.\n\nEMG','',0,'AIA=','2mfiwam6',1,0,'',6,0,0),(20140,4544,3,2,0,'87.218.146.252',1160469266,1,0,1,1,1,1,'','','Alex,\n\nDo you mean on the preview window ?','',0,'AIA=','2isihwhp',1,0,'',2,0,0),(20141,4543,3,2,0,'87.218.146.252',1160469397,1,0,1,1,1,1,'','','Rimantas,\n\nYou may use AnsiToWide( &lt;cAnsiText&gt; ) -- &gt; &lt;cUnicodeText&gt; and WideToAnsi( &lt;cUnicodeText&gt; ) --&gt; &lt;cAnsiText&gt; to manage unicode strings.','',0,'AIA=','2tllgunk',1,0,'',2,0,0),(20142,4534,3,2,0,'87.218.146.252',1160469467,1,0,1,1,1,1,'','','Maurilio,\n\nYou may use a Class TImage object to load a TIFF file and then save it as a BMP, using &lt;oImage&gt;:SaveToBmp( &lt;cBmpFile&gt; )','',0,'AIA=','a043bfa4',1,0,'',2,0,0),(20143,4534,3,2,0,'87.218.146.252',1160469555,1,0,1,1,1,1,'','','ops, you need it the other way around. Probably FreeImage.dll provides a function for that purpose.','',0,'AIA=','2mkijnbh',1,0,'',2,0,0),(20144,4545,19,177,0,'194.30.62.6',1160469878,1,0,1,1,1,0,'','Profesión Informático: La vida misma','Te sientes identificado ?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.planseldon.com/blog/ver-porno/\">http://www.planseldon.com/blog/ver-porno/</a><!-- m -->\n\nSaludos,\n\nFelix','',0,'AIA=','2h32gjru',1,0,'',177,0,0),(20145,4535,7,2,0,'87.218.146.252',1160469954,1,0,1,1,1,1,'','','Rafael,\n\nPrueba así:\n[code:3ciwcwtp]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; EXITWINDOWSEX &#41;\n&#123;\n   hb_retl&#40; ExitWindowsEx&#40; EWX_REBOOT, 0 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:3ciwcwtp]','',0,'AIA=','3ciwcwtp',1,0,'',2,0,0),(20146,4539,1,2,0,'87.218.146.252',1160471329,1,0,1,1,1,1,'','','You may modify source\\function\\alert.prg this way:\n\n   DEFINE DIALOG oDlg TITLE cTitle FONT oFont COLOR \"N/GR*\"','',0,'AIA=','1955iq51',1,0,'',2,0,0),(20147,4429,6,49,0,'213.82.134.66',1160471710,1,0,1,1,1,1,'','','GOOD ...Mr Gabo\n\ncan I see the Str2Lines() function ?\n\nREGARDS','',0,'AIA=','2ypb271q',1,0,'',49,0,0),(20148,1854,17,49,0,'213.82.134.66',1160471958,1,0,1,1,1,1,'','','I CANNOT DOWNLOAD TGSAY \n\nCan you send it me at private email ?\n\nRegards','',0,'AIA=','2l1lha8d',1,0,'',49,0,0),(20149,4544,3,32,0,'168.209.98.43',1160472164,1,0,1,1,1,0,'','Preview window','[quote:2ikfjn9x]Alex,\n\nDo you mean on the preview window ?[/quote:2ikfjn9x]\n\nYes, in the toolbar for a themed app, the page no text\n\nAlex','',0,'gA==','2ikfjn9x',1,0,'',32,0,0),(20150,4519,3,49,0,'213.82.134.66',1160472415,1,0,1,1,1,1,'','','yes there is an sample on this forum but   the method *DO* not run well or we not Know how make active the component of the activex\nsee this \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4121&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'gA==','sdax0lyu',1,0,'',49,0,0),(20151,4544,3,2,0,'87.218.146.252',1160473764,1,0,1,1,1,1,'','','Alex,\n\nPlease test samples\\TestPrn2.prg. Here it works ok.','',0,'gA==','1zpdcc2y',1,0,'',2,0,0),(20152,4519,3,2,0,'87.218.146.252',1160473847,1,0,1,1,1,1,'','','Silvio,\n\nMethod Do() runs ok. Its an ActiveX issue.','',0,'gA==','kc3lrwmg',1,0,'',2,0,0),(20153,4519,3,49,0,'213.82.134.66',1160475599,1,0,1,1,1,1,'','','ok Antonio, \n\nthese commands not run ok\n\n   oActiveX&#058;SetProp( \"StatusBar\", .T. )       // not run ??? \n   oActiveX&#058;SetProp( \"AddressBar\", .T. )     // not run ??? \n   oActiveX&#058;SetProp( \"ToolBar\", .T. )         // not run ??? \n   oActiveX&#058;SetProp( \"LinksBar\", .T. )         // not run ??? \n   oActiveX&#058;SetProp( \"ToolbarOptions\", .T. )    // not run ??? \n---------------------------------------------------------------------------','',0,'gA==','1ue79qlq',1,0,'',49,0,0),(20154,4544,3,32,0,'168.209.98.43',1160475662,1,0,1,1,1,0,'','preview colours','Thanks, found the problem\n\nWe have converted rpreview to be a class, and I had missed the addtion of oBar:Refresh()\n\nAlex','',0,'gA==','3dsuqfnj',1,0,'',32,0,0),(20155,4537,1,58,0,'84.149.245.45',1160475913,1,0,1,1,1,0,'','','Patili,\n\nbecause i do not really understand your problem this may be a poor advice.\n\nPerhaps you could work with a temporary dbf file and fill it\'s records by mean of something like : [code:3hw0800b]tmp-&gt;&#40; fieldput&#40; n, &#40; your_alias &#41;-&gt;&#40; fieldget&#40; n &#41; &#41; &#41; &#41;[/code:3hw0800b]\nOr could you provide some more details that i get a better idea of your task.\n\nBest regards,\nDetlef','',0,'AIA=','3hw0800b',1,0,'',58,0,0),(20156,1854,17,384,0,'201.27.193.179',1160476034,1,0,1,1,1,1,'','','I cannot download TGSay','',0,'AIA=','1c9ccqh9',1,0,'',384,0,0),(20157,4519,3,2,0,'87.218.146.252',1160477187,1,0,1,1,1,1,'','','Silvio,\n\nTry to do it in Visual Basic. Its not a FWH issue.','',0,'AIA=','2s1c6ns1',1,0,'',2,0,0),(20158,4546,4,47,0,'203.190.250.106',1160477342,1,0,1,1,1,0,'','PPC cannot connect to Netware 5','Dear All,\n\nI have got a big trouble.  I load tcpip already and it works fine for lan cable (PC) but I cannot connect PPC to Netware Server 5.  PPC can connect to access point but cannot see server.  \n\nBest regards,\nDutch','',0,'AIA=','1djh9f6m',1,0,'',47,0,0),(20159,4535,7,63,0,'80.37.102.128',1160478068,1,0,1,1,1,0,'','','Antonio:\nCreo que me falta algo.  Al compilar me da:\n\n error C2065: \'ExitWindowsEx\' : undeclared identifier\n\n(Utilizo la versión FWPPC de 24 agosto 2006)  Un saludo,\n\nRafael','',0,'AIA=','2c0u6e2w',1,0,'',63,0,0),(20160,4547,19,92,0,'213.96.45.9',1160478727,1,0,1,1,1,0,'','ShellExecute(oWnd,&quot;Open&quot;,&quot;mailto:elmail@cali.','Hola a todos,\n\nSi realizo ShellExecute(oWnd,\"Open\",\"mailto:elmail@cali.com\",,,0 ) en mi ordenador se abre el Outlook con el valor <!-- e --><a href=\"mailto:\'elmail@cali.com\">\'elmail@cali.com</a><!-- e -->\' en el campo \'To:\'.\n\nSi deseo que este valor se asigne al campo \'Bcc:\' como debo realizar la función?\n\nSaludos y gracias\nCarlos G.','',0,'AIA=','dij92ahp',1,0,'',92,0,0),(20161,4548,6,791,0,'190.37.142.29',1160479071,1,0,1,1,1,0,'','Conexcion con MySql','Hola colegas, que tengan buen dia \n\nEstoy programando con FwH, y estoy tratando de conectarme con MySql de manera Remota en la Red.\n\nTengo un computador con MySql Server con IP: 192.168.0.3, conectado con un Router con IP:192.168.0.1, y quiero conectarme desde un Computador Cliente con IP: 192.168.0.5, los dos computadores tiene la misma puerta de enlace la del Router ( 192.168.0.1 ), estoy tratando de ejecutar desdes el Cliente de esta maneja: \nMySql -u root -h 192.168.0.3 \n\nEl tarda unos segundos, pero no logro conectarme no se si estare haciendo algo mal, por favor les agrades la ayuda que me puedan dar. \n\nGracias.','',0,'AIA=','319kwm3e',1,0,'',791,0,0),(20162,4535,7,2,0,'87.218.146.235',1160480946,1,0,1,1,1,1,'','','Rafael,\n\nTienes que enlazar aygshell.lib tambien.','',0,'AIA=','1tuqqb24',1,0,'',2,0,0),(20163,4547,19,2,0,'87.218.146.235',1160481267,1,0,1,1,1,1,'','','Carlos,\n\nPrueba con:\nShellExecute(oWnd,\"Open\",\"bccto:elmail@cali.com\",,,0 )','',0,'AIA=','13iv7q2n',1,0,'',2,0,0),(20164,4537,1,418,0,'88.122.145.83',1160482064,1,0,1,1,1,0,'','','ex:\n\ndatabase structure:\n\nfield 1 : cash\nfield 2: credit card\nfied 3 :  VAT\nfield 4 : drug\nfield 5 : rental\nfield 6 : material\nfield 7: salary\nfield 8: assurance\netc etc\nIt is for a personal comptability\n\nI need a report like that\n\n[i:qh0zh2dq]title \"DRUGS\"[/i:qh0zh2dq]\n\n[b:qh0zh2dq]order      cash    c card   vat  [/b:qh0zh2dq] \n\nachat         100        0       15.6\nautre             0     200         7.2\n\n[b:qh0zh2dq]total           100      200       22.8[/b:qh0zh2dq]\n\n[i:qh0zh2dq]title \"RENTAL\"[/i:qh0zh2dq]\n\n[b:qh0zh2dq]order      cash    c card   vat [/b:qh0zh2dq]\n  \nlocation                1000    156\n\n[b:qh0zh2dq]total                     1000    156[/b:qh0zh2dq]\n\n[i:qh0zh2dq]title \"MATERIAL\"[/i:qh0zh2dq]\n\n[b:qh0zh2dq]order      cash    c card   vat[/b:qh0zh2dq]  \n \ndrill                       500     750\nhammer       10                 1.56\n\n[b:qh0zh2dq]total             10      500      751.56[/b:qh0zh2dq]\n\n\n\netc etc  for all fields when this fields are not empty\n\n\n\nWhen i use \"Group\" it didn\'t work like i want','',0,'YA==','qh0zh2dq',1,0,'',418,0,0),(20165,4535,7,63,0,'80.37.102.128',1160482763,1,0,1,1,1,0,'','','Antonio:\n\nYa la enlazaba pero sigue sin compilar. ¿aygshell.lib ha de ir en alguna posición especial?  Yo utilizo el bat de compilación estándard que viene con el FWPPC.   Aclaro que por ahora me he limitado a copiar tu código al final de mi fuente, sin ni siquiera hacerle ninguna llamada.\n\nMe sigue faltando algo...\nRafael','',0,'YA==','5vcjmmlx',1,0,'',63,0,0),(20166,4548,6,177,0,'194.30.62.6',1160484769,1,0,1,1,1,0,'','','Hola Arturo,\n\nsi los equipos están en la misma red y así lo parece (192.168.0.x) no debieras tener ningún problema. \n\nHas probado hacioendo un ping al servidor desde la máquina cliente ?\n\nping 192.168.0.3 \n\nSaludos,\n\nFelix','',0,'YA==','3rizvwtx',1,0,'',177,0,0),(20167,4549,3,32,0,'168.209.98.43',1160485505,1,0,1,1,1,0,'','Retrieve printer capabilites','Hi,\n\nHow would I go about finding out if a printer has multiple bins/duplex capabilities, etc.?\n\nAlex','',0,'YA==','3d90fpnv',1,0,'',32,0,0),(20168,4500,4,89,0,'213.21.136.60',1160488270,1,0,1,1,1,0,'','','Ciao Otto \n\nE\' un registratore di cassa fiscale del nostro fornitore RCH .\n\nSi chiama GLOBE \n\n<!-- m --><a class=\"postlink\" href=\"http://www.rch.it\">http://www.rch.it</a><!-- m -->','',0,'YA==','9piy8uvp',1,0,'',89,0,0),(20169,4548,6,121,0,'189.142.93.82',1160489709,1,0,1,1,1,1,'','','Haz la prueba configurando o deshabiltando\nel firewall de windows del servidor en dondes tienes instalado Mysql','',0,'YA==','2cbjrwl0',1,0,'',121,0,0),(20170,4497,6,507,0,'200.67.110.120',1160490363,1,0,1,1,1,0,'','','manuel especificamente que es lo que hace este modulo ?\n\nme puedes mostrar una pantalla para darme una idea ?\n\nsaludos\n\nLuis Fernando Rubio Rubio\nTequila, Jalisco, Mexico.','',0,'YA==','2by8oskd',1,0,'',507,0,0),(20171,4548,6,24,0,'80.37.55.44',1160490467,1,0,1,1,1,1,'','Re:','Amigo, recuerda que por defecto te pregunta si quieres o no que te puedas conectar como root desde fuera de tu maquina donde tienes\nel servidor MySql corriendo.\n\nPrueba con otro usuario distinto a root.\n\nEl como cambiarlo, si fuese eso, no tengo ni idea <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos\nRafa Carmona','',0,'YA==','3p835u71',1,0,'',24,0,0),(20172,4550,7,383,0,'201.240.100.147',1160490644,1,0,1,1,1,0,'','ORIENTACION PARA APLICAR FIVEWIN POCKET PC','Ante todo, gracias por sus repuestas que de seguro seran muy valiosas.\n\nBueno, actualmente tengo una aplicacion desarrollada para unos clientes con fivewin 2.5 for xHarbour sobre tablas dbf y corre excelente. Actualmente, se requiere la toma de pedidos y cobranzas via Pocket Pc, la empresa esta dispuesta a invertir en la compra de 12 de estos equipos.\n\nAqui Telefonica del Peru, cuenta con un servicio de transmision de datos. Para usarlo hay que conectar el telefono movil al Pocket Pc para enviar datos.\n\nBueno de mi parte lo primero es comprar a FiveTech el Fivewin Pocket Pc que desde luego sera asi.\n\nPero necesito orientacion ya que soy nuevo en el tema:\n\n1. Cuando envie y reciba los datos necesitare una IP (direccion fija) en Internet con sitio FTP para guardar los archivos de envio o existe otro metodo.\n\n2. Que tipo de equipos usare. Bueno aqui en Peru se venden Pocket Pc de la Marca HP modelo IPaq 1950, 2940, etc. En caso contrario que marca y modelo recomiendan adquirir.\n\n3. Es necesario migrar mi tablas Dbf a una Base de datos relacional (Mysql, Sql Server, etc.). Tomando en cuenta, que la empresa necesita su solucion movil en tiempo record de un mes.\n\n\nMuchas Gracias por disipar mis dudas.','',0,'YA==','2m3t2633',1,0,'',383,0,0),(20173,4505,6,152,0,'201.236.42.211',1160491332,1,0,1,1,1,1,'','','Gracias William, \n\nCon bskip funcionó perfecto, me encantaria saber porque sucede, tengo otros informes que funcionan sin bSkip.\n\nGracias Armando por tu ayuda.','',0,'YA==','17oimt38',1,0,'',152,0,0),(20174,4429,6,389,0,'189.132.1.51',1160492018,1,0,1,1,1,0,'','','Hi, silvio\nthe function Str2Lines() it is an adaptation the function Str2a() the what32. the function Str2Lines() returns a string with character CRLF in the place the character Space\n\n example:\n a:= Str2Lines(\"Hi silvio is a example\")\n\n ? a\n\n Hi\n Silvio\n is\n a \n example\n\n Regards\nGABO','',0,'YA==','bme2iskw',1,0,'',389,0,0),(20175,4551,6,24,0,'80.37.55.44',1160497510,1,0,1,1,1,1,'','Browse con Combobox','Alguien tiene por aqui un ejemplo que una columna sea editable , pero con un combo... ?\n\nA ser posible, con la TWBrowse de Hernan o en su defecto la TSBrowse de Manuel..\n\nNo encuentro los samples de Hernan, ¿ sabe alguien DONDE estan ?\n\nGracias\nRafa Carmona','',0,'YA==','1ny8oa6s',1,0,'',24,0,0),(20176,4552,6,100,0,'201.16.38.61',1160501245,1,0,1,1,1,1,'','TFOLDER com GET numerico','Ola amigo ANTONIO LINHARES\n\nPercebi que a CLASSE TFOLDER não atualiza o valor numerico quando usado em conjunto com a BUTTONBMP, isso quando vc utiliza aceleradores\n\n\nDesde já agradeço a atenção','',0,'YA==','16eknych',1,0,'',100,0,0),(20177,4551,6,138,0,'189.141.70.60',1160502096,1,0,1,1,1,1,'','','Rafa:\n\nToda la gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar:\n\n oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255))\n\n@xVar es el valor que tu quieres editar, puedes hacer por ejemplo\n\nxVar := 0\n \no bien \n\nxVar := SPACE(20)\n\ny ahora la magia:\n\nxVar := {\"enero\", \"febrero\",\"marzo\",\"abril\"....}\n\nCuando la variable es un ARRAY, AUTOMATICAMENTE, al momenot de editar se crea un combo.\n\nAsi de facil, parece una tonteria, pero realmente es una estupidez.','',0,'YA==','137mahmt',1,0,'',138,0,0),(20178,4550,7,138,0,'189.141.70.60',1160506571,1,0,1,1,1,1,'','','Mi experiencia:\n\nPrimero, el mejor aparato que te puedes comprar es un PocketPC que integre adcionalmente un telefono, con eso te evitas tener 2 apartos por separado  el telefono movil y el pocket PC con eso logras una conectividad extraordinaria yo sugeriria:\n\nHewllet Packard :HP h6340 o HP hw6515 o HP hw6915\nQTEK 9000, 9100 o 9600\nI-MATE  JAQ o el JASJAM\nBENQ E7100\n\nEstos son algunos modelos que yo escogeria porque son Pocket y ademas cuentan con un telefono GSM que te permite tener acceso a internet por GPRS o EDGE, mirate ademas que el equipo que escojas tenga ademas conectividad por bluetooth y por WiFi\n\nVamos a la parte del software:\n\nCon FWPPC puedes hacer un programa que se ejecute en tu Pocket PC, pero el problema viene con el acceso a datos\n\nSi estas dentro de una LAN con acceso inalambrico WiFi, y tu Pocket PC tiene tajerta Inalambrica y Windows Mobile 5, entonces si puedes abrir archivos DBFs que esten en un servidor dentro de tu LAN desde el pocket y manipularlos, otra cosa es cuando te tienes que mover fuera de la cobertura de la red de area local.\n\nCon el Pocket PC pasa lo mismo que con cualquier computadora, o lap top, si no hay conexion a la red, no hay acceso a los datos, por lo mismo, deberas poner en tu Pocket PC tus DBFs y trabajarlo \"localmente\" dentro de la misma Pocket PC, y luego deberas de tener algun mecanismo que te permita mover esos DBF para ser procesados por una estacion de trabajo conectada a tu red, esto lo puedes hacer simplmente compiando los datos del pocket a una computadora de escritor, o enviandolos por ftp o por mail desde el pocket pc a donde tengan que se preocesados, pero no puedes trabajar con datos EN LINEA por mucha conexion de datos que tenga tu pocket PC.\n\nNo es necesario moverte a ninguna base de datos relcional, porque simple y sencillamente, no hay cilentes ODBC o ADO para conexion con Pocket PC, por lo tanto no te puedes conectar en linea a ningun SQL.\n\nSi quieres trabajar las cosas en linea, lo que nos ha funcionado a nosotros estupendametnemente bien, es hacer aplicaciones basadas en WEB, que por medio de CGI acceden a los datos en tiempo real. ¿ Como se hace ?\n\nEs muy facil, todos los Pocket PC tienen navegadores de internet, luego entonces, montas un servidor WEB ENT US OFICINAS, abres el puerto 80 de tu ADSL y lo asignas la equipo que tenga el server WEB instalado, y listo, haces programas CGI que despachen codigo HTML muy sencillito y pequeñito y listo, tienes tus datos disponbiles en tiempo real y desde cualquier parte.','',0,'YA==','1jwaluvj',1,0,'',138,0,0),(20179,4550,7,383,0,'201.240.236.98',1160509449,1,0,1,1,1,0,'','FIVEWIN POCKET PC','[quote=&quot;RF&quot;:1cpwup1u]Mi experiencia:\n\nSi quieres trabajar las cosas en linea, lo que nos ha funcionado a nosotros estupendametnemente bien, es hacer aplicaciones basadas en WEB, que por medio de CGI acceden a los datos en tiempo real. ¿ Como se hace ?\n\nEs muy facil, todos los Pocket PC tienen navegadores de internet, luego entonces, montas un servidor WEB ENT US OFICINAS, abres el puerto 80 de tu ADSL y lo asignas la equipo que tenga el server WEB instalado, y listo, haces programas CGI que despachen codigo HTML muy sencillito y pequeñito y listo, tienes tus datos disponbiles en tiempo real y desde cualquier parte.[/quote:1cpwup1u]\n\nGracias por su respuesta. Me gustaria saber si puedo implementar un servidor web con windows xp service pack 2. \nQue servidor web me recomiendan para tablas dbf y que otras herramientas necesitaria para que la informaciòn se encuentre en linea. Por lo tanto, con esta soluciòn no seria necesario el fivewin pocket pc\n\nEn caso de usar el servidor web seria suficiente usar solo los pocket pc.\n\nSaludos','',0,'gA==','1cpwup1u',1,0,'',383,0,0),(20180,4537,1,418,0,'88.122.145.83',1160511556,1,0,1,1,1,0,'','','I\'ve found a solution:\nI make a   for-next   loop and create one report for each field\nIt work good  but\n\n\nCan everybody say me how to mask the window\n\n\"Fivewin report\" Printing page.. at each report\nIt is very long\n\nAnd how to suppress the page eject between each report\n\nOr any other idea\n\nThanks','',0,'gA==','5rx9bun0',1,0,'',418,0,0),(20181,4549,3,6,0,'87.11.229.216',1160512458,1,0,1,1,1,1,'','Re: Retrieve printer capabilites','Have a look at devcaps.prg sample.\n\nEMG','',0,'gA==','3aamn01k',1,0,'',6,0,0),(20182,4497,6,9,0,'85.60.54.140',1160515637,1,0,1,1,1,1,'','','Luis Fernando,\n\nEsta es la pantalla:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02061b7033/screen6.bmp.html\">http://hyperupload.com/download/02061b7 ... 6.bmp.html</a><!-- m -->\n\nLa función realiza lo siguiente:\n\n1) Carga los Headers con  aDia := C_RESERDIA( aDia, dFecha1 )\n\n2) Crea una dbf temporal (tReserva) con los datos,  C_RESERVA(oDlg, dFecha1)\n\n3) Carga el Listbox\n\nHasta aqui todo correcto. Pero si a través del botón CALENDA, cambio la fecha de inicio (dFecha1), y vuelve a realizar C_RESERDIA + C_RESERVA\ny refresco el listbox, refresca los headers correctamente, el fichero lo actualiza con los nuevos valores pero NO REFRESCA LAS BOLITAS DEL LISTBOX.\n\nAgradeceria cualquier ayuda.','',0,'gA==','3vds0fug',1,0,'',9,0,0),(20183,4553,2,774,0,'200.72.70.156',1160516052,1,0,1,1,1,1,'','EFECTO 3D EN TSBROWSE','el efecto 3D en el browse no funciona,, ojo creo el browse con editor de recursos,, y luego los redefino con REDEFINE BROWSE\nnose si eso infuira\n\nALGUNA OBSERVACION o como se puede generar el efecto 3D','',0,'gA==','17fpenyo',1,0,'',774,0,0),(20184,4429,6,49,0,'62.13.172.78',1160516403,1,0,1,1,1,1,'','','I have a problem :\nI created a coffee touch screen bar \nI can to set ( configuration) each button on product but when I inset the description on a button it  run bad because I founding a function to divide the strings \nexample \n\ncod :=1\ndesc:=\"Prosciutto cotto con formaggio e pomodoro\"\n\nI wanted  insert on a button  \n\"Prosciutto cotto\"\n\"con formaggio\"\n\"e pomodoro\"\n\nHave you an idea ?','',0,'gA==','3w0o8suj',1,0,'',49,0,0),(20185,4554,7,598,0,'200.11.139.61',1160517393,1,0,1,1,1,1,'','Lentitud al cerrar la aplicacion','Tengo mi aplicacion en fwppc todo bien, pero al cerrar se queda colgado por unos 20-30 seg antes de regresar a la pantalla del explorador de windows, alguno de uds  les ha pasado esto? o alguna idea de porque pueda estar sucediendo?','',0,'gA==','2oj2row2',1,0,'',598,0,0),(20186,4519,3,49,0,'62.13.172.78',1160517916,1,0,1,1,1,1,'','','I don\'t Like VB , I hatred VB because  I have lost many ex clipper friends','',0,'gA==','1nmyixon',1,0,'',49,0,0),(20187,4550,7,138,0,'189.141.70.60',1160519997,1,0,1,1,1,1,'','','Si requieres los datos en linea, requerias que el pocket pc adicoinalmente tuviera conexion a internet.\n\nY si, si puedes montar un servidor Web en una maquina con Windows XP, de hecho, ya trae montando el internet information server, con eso puedes trabajar.\n\nAdemas de usar CGI, puedes utilizar ASP, xHarbour tiene el xHBScript que te permite utilizar el servidor Internet Information server, con ASP, para accesar a bases de datos DBFs con lenguaje nativo xHarbour.\n\nHace unos dias un colega puso un mensaje muy completo sobre como instalar y configurar el Internet Information Server y como instalar el xHBScript para accesar a los DBFs.','',0,'gA==','17uyawk5',1,0,'',138,0,0),(20188,4535,7,2,0,'87.218.146.235',1160521730,1,0,1,1,1,1,'','','Rafael,\n\nLo estamos revisando...','',0,'gA==','5zbc6dgu',1,0,'',2,0,0),(20189,4510,6,215,0,'189.136.234.65',1160522166,1,0,1,1,1,0,'','','Rene,\nhace algunos dias te envie un mail para saber cuanto dolares por la vTaskBar. La página de canalfive solo tiene una imagen... no hay nada.\nPlease, cuando tengas un tiempo contactame con los detalles.\n\n<!-- e --><a href=\"mailto:visitante32@hotmail.com\">visitante32@hotmail.com</a><!-- e -->\n\nSaludos\nFernando','',0,'gA==','2c12n687',1,0,'',215,0,0),(20190,4535,7,2,0,'87.218.146.235',1160522168,1,0,1,1,1,1,'','','Rafael,\n\nEste es el código correcto, pero no hace reboot de momento...\n[code:2pnrgt1o]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n   \n   DEFINE WINDOW oWnd TITLE &quot;Exit&quot;\n   \n   @ 2, 2 BUTTON &quot;Reboot&quot; SIZE 80, 20 ACTION MsgInfo&#40; ExitWindowsEx&#40;&#41; &#41;\n   \n   ACTIVATE WINDOW oWnd \n   \nreturn nil\n\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt; \n#include &lt;hbapi&#46;h&gt; \n\nextern &quot;C&quot; &#123; BOOL ExitWindowsEx&#40; UINT uFlags, DWORD dwReserved &#41;; &#125;\n\nHB_FUNC&#40; EXITWINDOWSEX &#41; \n&#123; \n   hb_retl&#40; ExitWindowsEx&#40; EWX_REBOOT, 0 &#41; &#41;; \n&#125; \n\n#pragma ENDDUMP\n[/code:2pnrgt1o]','',0,'AIA=','2pnrgt1o',1,0,'',2,0,0),(20191,4547,19,92,0,'62.151.112.29',1160522847,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2n60g1fl]Carlos,\n\nPrueba con:\nShellExecute(oWnd,\"Open\",\"bccto:elmail@cali.com\",,,0 )[/quote:2n60g1fl]\n\nGracias Antonio, pero no quiere funcionar.\n\nEstoy bajo XP y con Outlook Express 6.\n\nSaludos y gracias\nCarlos G.','',0,'gA==','2n60g1fl',1,0,'',92,0,0),(20192,4554,7,2,0,'87.218.146.235',1160522935,1,0,1,1,1,1,'','','Luis,\n\nHaces alguna operación final sobre datos en la tarjeta SD ? \n\nTe ocurre tambien con algún ejemplo de FWPPC ?','',0,'gA==','19xfu3me',1,0,'',2,0,0),(20193,1854,17,439,0,'200.125.42.113',1160523042,1,0,1,1,1,1,'','','[quote=&quot;toya&quot;:ihhh13cq]I cannot download TGSay[/quote:ihhh13cq]\n\nManu, estoy en la misma, me da \"Bad URL\" y no puedo bajarlo, podrías poner un nuevo link para bajar?\n\nMuy buen trabajo!!!!!! y gracias desde ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','ihhh13cq',1,0,'',439,0,0),(20194,4555,19,92,0,'62.151.112.29',1160523652,1,0,1,1,1,0,'','Error BASE/1075.000000  Argument error: &gt;','Hola a todos,\n\nEste error me aparece aleatoriamente según pulso unas letras (de un nombre) en un TGet que tiene una cláusula ON CHANGE.\n\nSaben si puede ser algún problema de Harbour que ya esté resuelto?\n\nFíjense en el error.log de abajo; por mucho que investigo no veo donde puede estar el error. La cláusula ON CHANGE llega afinalizar y realiza lo previsto.\n\nEn la cláusula ON CHANGE realizo un Self:Assign(), por si les sirve de orientación\n\nStack Calls\n===========\n   Called from GET:INSERT(816.000000)\n   Called from TWINDOW:KEYCHAR(0.000000)\n   Called from TWINDOW:HANDLEEVENT(0.000000)\n   Called from TWINDOW:HANDLEEVENT(0.000000)\n   Called from _FWH(0.000000)\n   Called from WINRUN(0.000000)\n   Called from TWINDOW:ACTIVATE(0.000000)\n   Called from MAIN(122.000000)\n....\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   GET:INSERT\n     Param   1:    C    \"M\"\n     Local   1:    O    Class: TCLIPGET\n     Local   2:    U    \n     Local   3:    N    60.000000\n     Local   4:    U    \n     Local   5:    N    60.000000\n   TWINDOW:KEYCHAR\n     Param   1:    N    77.000000\n     Param   2:    N    3276801.000000\n     Local   1:    O    Class: TGET\n     Local   2:    N    2.000000\n     Local   3:    N    2.000000\n     Local   4:    L    .T.\n     Local   5:    U    \n     Local   6:    U    \n...','',0,'gA==','2wk760vr',1,0,'',92,0,0),(20195,4497,6,492,0,'189.147.31.160',1160523793,1,0,1,1,1,1,'','','Manuel\n\nQuizas no sea la mas elegante, pero creo que tiene que funcionar :\n\nYa cheque algo que hice parecido, ( claro, con menos bitmaps )  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> y es esto :\n\nSi tomas los datos de una DBF para mostrar en el browse, lo modificas y lo grabas a la DBF, solo bastaria con que \"vaciaras\" el contenido del browse y vuelvas a llenarlo.\n\nYa que las columnas ( bolitas de color ) no tiene relacion directa a campos, sino a una condicion relacionada a los mismos. Por eso no cambian de color se tendria que revalidar para hacerlo.\n\nEspero me haya explicado  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nSaludos','',0,'gA==','szdsyecp',1,0,'',492,0,0),(20196,4556,6,439,0,'200.125.50.244',1160532700,1,0,1,1,1,1,'','Promedio en lugar de Total en una columna de TReport','Tengo un reporte con 4 columnas numéricas, una contiene la cantidad de animales faenados en ese lote, otra contiene el peso en pie del lote, otra contiene los pesos de las medias reses resultantes de la faena de ese lote y una cuarta columna lleva un porcentaje obtenido a partir de la del cociente entre las dos columnas previas.\n\nNo tiene sentido naturalmente totalizar esta cuarta columna, pero sería interesante poder promediarla. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\n¿Como puedo hacer esto, es decir en lugar de obtener un total de una columna por grupo obtener un promedio? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nDesde ya gracias por cualquier ayuda. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','38fprhz0',1,0,'',439,0,0),(20197,4557,6,708,0,'201.246.7.222',1160537495,1,0,1,1,1,0,'','nuevo con Fwh','Amigos, empece con FWH, 2.7 build diciembre, \nHarbour 0.45, borland cc.5.5\n\n\nApplication\n===========\n   Path and name: C:\\prgfwh\\gestionh.Exe (32 bits)\n   Size: 1,608,192 bytes\n   Time from start: 0 hours 0 mins 8 secs \n   Error occurred at: 10/10/06, 23:16:58\n   Error description: Error BASE/1004  Class: \'LOGICAL\' has no exported method: EVAL\n   Args:\n\na que se debe esto amigos','',0,'gA==','9ud6g2y4',1,0,'',708,0,0),(20198,4557,6,708,0,'201.246.7.222',1160537823,1,0,1,1,1,0,'','me olvide decir que..','esto me ocurre cuando pincho un boton con btnget y usando un browse con tsbrowse\n\n\nRedefine BtnBmp oBot1  Id 1001 Resource \"BTO_NUEVO\" Of oDlgFam;\n           NoBorder;\n           Message \"Agrega Nuevo Registro...\" Action (EditFamilia(.T.,oLbx1), oLbx1:Reset())','',0,'gA==','3s9qvd8e',1,0,'',708,0,0),(20199,4383,3,239,0,'218.19.77.107',1160539410,1,0,1,1,1,0,'','','METHOD SetMySQL(oQuery)\n   METHOD Report( cTitle, lPreview, aheaders,afooters,oFont, nLang, cCaption, lModal )     \n   METHOD RPTSKIP()\n   METHOD NTOTAL()\n   METHOD SAVE()\n   METHOD end() INLINE ::Destroy()\n\nMETHOD SetMySQL(oquery,ledit) CLASS TXBrowse\n	\n		::nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n		::nColDividerStyle    := LINESTYLE_LIGHTGRAY\n		::nRowDividerStyle    := LINESTYLE_LIGHTGRAY\n		::lColDividerComplete := .t.\n		::nRowHeight			 := 23\n		::lfastedit				 := .t.\n		::nDataType := DATATYPE_MYSQL\n      \n	DEFAULT	::bGoTop    := {|| oQuery: GoTop() },;\n				::bGoBottom := {|| oQuery: GoBottom() },;\n   	                        ::bSkip     := {| n |oQuery: SKIP( n ) },;\n   	                        ::bSkipper  := {| n |oQuery: SKIPPER( n ) },;\n				::bBof      := {|| oQuery: Bof() },;\n				::bEof      := {|| oQuery: Eof() },;\n				::bBookMark := {| n | if( n == nil, oQuery:RecNo(),oQuery:Goto( n ))},;\n				::bKeyNo    := ::bBookMark,;\n				::bKeyCount := {|| oQuery:LastRec() },;\n	                        ::odbf:=oQuery\n\nreturn nil\n\n\nMETHOD Report( cTitle, lPreview, aHeaders, aFooters, oFont,cCaption, lModal ) CLASS TXBrowse\n\n   Local oRpt, oColumn, nRecNo, nI, nAt, cType, lNoResetPos, ;\n         nCols := Len( ::acols ), ofont2,ofont3,nRpos,oldbskip:=::bskip\n   local odevice,cmsg:={\"&#25171;&#21360;\",\"&#26085;&#26399;\",\"&#26102;&#38388;\",\"&#31532;\",\"&#39029;\"},i      \n         \n     oDevice  := TPrinter():New(cmsg[1],.F.)\n    if odevice:hdc==0; odevice:end(); return .f.; end\n    odevice:end()\n       \n     Default cTitle := ::oWnd:GetText(), ;\n           lPreview := .T., ;\n           aHeaders := {cmsg[2] + DTOC(DATE())+ \" \"+cmsg[3]+TIME()},;\n           cCaption := ::oWnd:GetText(), ;\n           lModal := .F.\n                 \n        \n   if SELECT(\"lang\")&gt;0\n     SELECT lang\n     for i:=1 TO LEN(cmsg)\n        lang-&gt;(DBSEEK(cmsg[i]))      \n        if lang-&gt;(FOUND())          \n           cmsg[i]:=ALLTRIM(lang-&gt;(FIELDGET(nlang)))\n        end\n     next i\n      if VALTYPE(ctitle)==\"C\" \n        if LEN(ctitle )&gt;0       \n           lang-&gt;(DBSEEK(ctitle))  \n           if lang-&gt;(FOUND())\n             ctitle :=ALLTRIM(lang-&gt;(FIELDGET(nlang)))\n           end\n        end\n      end  \n      \n       if VALTYPE(ccaption)==\"C\" \n        if LEN(ccaption )&gt;0\n           lang-&gt;(DBSEEK(ccaption)) \n           if lang-&gt;(FOUND())\n             ccaption :=ALLTRIM(lang-&gt;(FIELDGET(nlang)))\n           end\n        end\n      end  \n      \n      if aheaders&lt;&gt;NIL\n        for i:=1 TO LEN(aheaders)\n          if LEN(aheaders[i])&gt;0\n             lang-&gt;(DBSEEK(aheaders[i]))     \n             if lang-&gt;(FOUND())\n                aheaders[i]:=ALLTRIM(lang-&gt;(FIELDGET(nlang)))\n             end\n          end\n        next i          \n      end  \n      \n   end\n         \n   \n  \n   if EVAL(::beof)\n     if (EVAL(::bBookMark)==EVAL(::bKeycount)+1).and.(len(::aSelected)==1) ; return self ; end    \n     ::SKIP(-1)\n   end \n   if ::nDataType==DATATYPE_MYSQL      \n     ::bskip:=::bskipper    \n   end\n  \n   ::gotop()\n \n     define font ofont2 name \"arial\" size 0,-18\n     DEFINE font ofont3 name \"Times New Roma\" size 0,-11\n     //if ofont==nil\n        ofont:=ofont3\n     //end   \n\n	If lPreview\n      REPORT oRpt TITLE cTitle FONT oFont3,ofont2 ;\n      CAPTION cCaption  PREVIEW ;\n      HEADER aHeaders[1];             \n      FOOTER cmsg[4] + Str( oRpt:nPage, 3 )+cmsg[5] ;\n      CENTER\n	Else\n      REPORT oRpt TITLE cTitle CAPTION cCaption FONT oFont3,ofont2 ;\n      HEADER aHeaders[1];            \n      FOOTER cmsg[4]+ Str( oRpt:nPage, 3 )+cmsg[5] ;\n      CENTER\n   EndIf\n\n   oRpt:oDevice:lPrvModal := lModal\n   oRpt:bPostEnd  := {|| ::SetFocus() }\n        // best way to make sure focus get\'s back to where we want, not the damn WinAPI\n\n		For nI := 1 To nCols\n//         If  len(::aCols[ nI ]:abitmaps)==0 .and. !::aCols[nI]:lHide\n         If  !::aCols[nI]:lHide\n				\n				oRpt:AddColumn( TrColumn():New( { GenHead( ::acols, nI ) },, ;\n						 { GenData( ::aCols, nI ) },::acols[ni]:nwidth*0.12, ;							 \n                           { If( ! Empty( ::acols[ nI ]:cEditPicture), ;\n                            ::acols[ nI ]:cEditPicture, \"\" ) },, ;\n                            ( len(::acols[ nI ]:cFooter)&gt;0 .and.::acols[nI]:nDataStrAlign==1 ),, ;  // prints footings if the column has one (numeric only)\n                            If( ::acols[nI]:nDataStrAlign==1, \"RIGHT\", Nil ),,,, oRpt ) )\n\n         EndIf\n\n		Next\n\n	END REPORT\n\n        oRpt:bSkip := { || oRpt:Cargo := ::rptSKIP(  ) }\n        oRpt:Cargo := 1\n        oRpt:cellview()\n        oRpt:otitle:aFont[1] := {|| 2 }\n        orpt:ntitleupline:=1\n        orpt:ntitlednline:=1\n        orpt:ntotalline:=1\n        \n        IF len(::aselected)&gt;0\n          While AScan( ::aSelected, ;\n            If( ::NDATATYPE==DATATYPE_ARRAY,::nArrayAt,eval(::bKeyno)))==0\n               ::skip(1)          \n            End       \n        end       \n      \n\n	ACTIVATE REPORT oRpt ;\n		WHILE If( ::ndatatype == DATATYPE_ARRAY,;\n					 oRpt:nCounter &lt;= Max( ( Eval( ::bLogicLen ) ) - 1, 1 ),;\n					 oRpt:Cargo &gt;= 1 )\n					\n    \n   ::bskip:=oldbskip\n   ::GoTop()\n   ofont2:end()\n   ofont3:end()\n\nReturn Self\n// Call for report()\nStatic Function GenHead( aArray, nPos )\n\nReturn {|| aArray[nPos]:cHeader }\n\n// Call for Report\nStatic Function GenData( aArray, nPos )\n\nReturn If( ValType(Eval(aArray[nPos]:bStrData)) != \"U\", ;\n           if(len(aArray[nPos]:cfooter)&gt;=1.and.aArray[nPos]:nfootStrAlign==1,aArray[ nPos ]:bStrData,aArray[ nPos ]:bStrData), {|| \"\" } )  // check for \"phantom\" columns\n           \n           \nMethod Rptskip() class Txbrowse\nlocal n1,n1old\n   \n   \n   n1old:=::skip(1)\n   n1:=n1old\n   \n   IF  len(::aSelected)&gt;0                          \n              While AScan( ::aSelected, If( ::nDatatype==DATATYPE_ARRAY,::nArrayAt,eval(::bKeyno)))==0\n                      n1+=::skip(1) \n                     if ::nDATATYPE&lt;&gt;DATATYPE_ARRAY\n                        if eval(::bKeyno)==eval(::bkeyCount)\n                       n1:=0\n                       exit\n                     end\n                   else\n                    if ::nArrayAt==len(::aArray)  \n                      n1:=0\n                      exit\n                    end\n                 end       \n                 if n1==n1old                    \n                    exit\n                 end   \n                 n1old:=n1 \n                \n              enddo     \n    end     \nreturn n1                 \n           \n           \n\nMethod nTotal() class TXbrowse\nlocal i,i2,i1\n      \n     ::lfooter:=.t.   \n     if len(::acols)&gt;1;   ::acols[1]:cfooter:=\"&#21512;&#35745;\"; end    \n     \n     for i:=2 to len(::acols)\n         if len(::acols[i]:cfooter)&gt;=1\n            ::acols[i]:cfooter:=\" \"           \n         end\n     next     \n      eval(::bgotop)      \n     while !eval(::bEof)\n           if len(::aSelected)&gt;0.and.aScan(::aSelected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n           for i2:=2 to len(::acols)\n             if len(::acols[i2]:cfooter)&gt;=1\n                 ::acols[i2]:cfooter:=cvaltochar(val(::acols[i2]:cfooter)+val(cvaltochar(eval(::acols[i2]:bStrData))))\n              end\n           next i2\n           eval(::bSkip)\n     end    \n  \n \n   ::adjust()\n   ::GoTop()\n   ::Refresh()\nReturn Nil\n\n//-----------------------------------------\nMETHOD Save() CLASS TXBrowse\n/*return msgrun(\"&#27491;&#22312;&#20934;&#22791;&#25968;&#25454;……\",\"&#35831;&#31245;&#20505;\",{||xbrowsesave()})\n\nSTATIC function txbrowsesave()\n*/\n\nLOCAL oExcel, oHoja\nLOCAL nRow := 1, nCol,i,i2,nchoice:=1,lok:=.f.\nLOCAL cBuffer \nlocal cDBF\nLOCAL cValue  \nLOCAL cTable  \nLOCAL nHandle \nLOCAL nFields \nLOCAL nField  \nLOCAL nPos    ,ofont14,odlg2,cvaltype\nLOCAL aarray1 \nlocal Arry1:={},arry2:={},cfile1:=\"d:\\aaa.dbf\"+SPACE(15),arry3,cAlias1,utmpvar,utmpvar1\nlocal noldrowsel:=::nrowsel\n\n  if Eval(::bKeyCount)==0; Return \"\"; End\n\n  nchoice:=Alert(\"&#24403;&#21069;&#34920;&#26684;&#25968;&#25454;&#21478;&#23384;&#20986;\",{\"Excel\",\"DBF&#25991;&#20214;\",\"XML\"})\n\nDo case\n\n Case Nchoice==1\n \n   oExcel := TOleAuto():New( \"Excel.Application\" )\n\n   oExcel:WorkBooks:Add()\n\n   oHoja := oExcel:Get( \"ActiveSheet\" )\n   Eval(::bGotop)\n    i2:=1\n   for i:=1 to len(::Acols)\n    if !::acols[i]:lhide\n      oHoja:Cells( nRow, i2 ):Value := ::acols[i]:cHeader\n      i2++\n     end \n   NEXT\n   Eval(::bGotop)\n \n   DO WHILE !Eval(::bEof)\n      if len(::aSelected)&gt;0.and.aScan(::aSelected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n      nRow++\n      i2:=1\n      FOR nCol := 1 TO len(::Acols) \n        if !::acols[ncol]:lhide     \n           utmpvar1:=EVAL(::acols[nCol]:bStrdata)\n           if VALTYPE(utmpvar1)==\"U\".or.valtype(utmpvar1)==NIL\n              utmpvar:=\"\"\n            else\n              utmpvar:=utmpvar1\n           end    \n           if VALTYPE(utmpvar)==\"D\".and.utmpvar==CTOD(\"..\")\n              utmpvar:=\"\"\n           end  \n           if VALTYPE(utmpvar)==\"C\"\n               oHoja:Cells( nRow, i2 ):NumberFormat := \"@\"\n           end         \n           oHoja:Cells( nRow, i2 ):Value := utmpvar\n           i2++\n        end \n      NEXT\n      Eval(::bSkip)\n   ENDDO\n\n   FOR nCol := 1 TO  len(::aCols)\n      oHoja:Columns( nCol ):AutoFit()\n   NEXT\n\n   oExcel:Visible := .T.\n\n   //oHoja:End()\n  // oExcel:End()\n  \n case  nchoice==2\n     \n  if !MsgGet(\"&#25991;&#20214;&#21517;&#31532;&#19968;&#20010;&#20026;&#23383;&#27597;&#65292;&#25991;&#20214;&#21517;&#19981;&#33021;&#26377;&#27721;&#23383;\",\"&#21478;&#23384;&#36335;&#24452;&#21644;&#25991;&#20214;\",@cFile1)\n     \n     return NIL\n  end\n   cFile1:=alltrim(cFile1) \n   \n   	aarray1:={}\n		 \n		 DEFINE dialog odlg2  from 4,6 to len(::acols)*2+5,50 title \"&#29983;&#25104;DBF\"  \n		 // style nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU ,WS_VSCROLL)\n		 i:=1\n		 i2:=1\n		for i:=1 to len(::acols)\n		    if !::acols[i]:lhide\n			 @i2*0.86,2 say ::acols[i]:cheader of odlg2\n			 AADD(aarray1,\"a\"+padl(cvaltochar(i2),3,\'0\')+space(11))		         \n			 TGet():New( i2, 5, GenLocalBlock( aarray1, i2), odlg2, 75,12 )			\n			 i2++\n		    end	 \n		next\n		@i2*0.86,2 say \"&#27880;&#24847;:&#23383;&#27573;&#21517;&#31216;&#19981;&#33021;&#26377;&#27721;&#23383;,&#24517;&#39035;&#20197;&#23383;&#27597;&#24320;&#22836;\" of odlg2		\n		@1,22 BUTTON \"&#30830;&#23450;\" OF odlg2 ACTION (lok:=.t.,odlg2:end())\n		@2,22 BUTTON \"&#36820;&#22238;\" OF odlg2 ACTION odlg2:end()\n\n	 ACTIVATE DIALOG odlg2 CENTER\n	 \n         if !lok; return nil; end\n   i2:=1\n  for i:=1  to len(::aCols)\n     \n     if !::acols[i]:lhide\n        utmpvar:=EVAL(::acols[i]:bStrdata)\n        cvaltype:=valtype(utmpvar)\n        if cvaltype&lt;&gt;\"D\".and.cvaltype&lt;&gt;\"L\".and.cvaltype&lt;&gt;\"C\".and.cvaltype&lt;&gt;\"N\"\n           cvaltype:=\"C\"\n        end          \n        \n        aadd(Arry2,{aarray1[i2],cvaltype,max(len(cvaltochar(utmpvar)),int(::acols[i]:nWidth/7)),if(cvaltype==\"N\",len(cvaltochar(utmpvar))-at(\".\",cvaltochar(utmpvar)),0)})\n       \n        i2+=1\n     end  \n  next\n  dbcreate(cFile1,Arry2)\n  use (cfile1)  new\n  cAlias1:=alias()\n  \n  Eval(::bGoTop)\n  while !Eval(::bEof)\n     if len(::Aselected)&gt;0.and.Ascan(::Aselected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n     select (cAlias1)\n     append blank\n     i2:=1\n     for i:=1 to len(::acols)           \n       if !::acols[i]:lhide\n        utmpvar:=eval(::acols[i]:bStrdata)\n        select (cAlias1)\n        fieldput(i2,if(valtype(utmpvar)==\"U\".or.valtype(utmpvar)==NIL,cvaltochar(utmpvar),utmpvar))\n        i2++\n       end \n     next\n     Eval(::bSkip)\n end\n select (cAlias1)\n close\n  msginfo(trans2(\"&#24050;&#32463;&#29983;&#25104;&#25991;&#20214;\")+cfile1,\"&#25552;&#31034;\")\n\n  case Nchoice==3\n        if !MsgGet(\"&#21478;&#23384;\",\"&#36335;&#24452;&#21644;&#25991;&#20214;\",@cFile1)\n            return NIL\n        end\n                          \n		aarray1:={}\n		 \n		 DEFINE dialog odlg2  from 4,6 to len(::acols)*4+5,50 title \"&#29983;&#25104;XML\" \n		 i:=1\n		 i2:=1\n		 \n		for i:=1 to len(::acols)\n		    if !::acols[i]:lhide\n			 @i2*0.9,2 say ::acols[i]:cheader of odlg2\n			 AADD(aarray1,padr(::acols[i]:cheader,15,\" \"))		         \n			 TGet():New( i2, 5, GenLocalBlock( aarray1, i2), odlg2, 75,12 )			\n		    \n		    i2++\n		    end\n		next\n				\n		@i2,6 BUTTON \"&#30830;&#23450;\" ACTION (lok:=.t.,odlg2:end())\n		@i2,12 BUTTON \"&#36820;&#22238;\" ACTION odlg2:end()\n\n	 ACTIVATE DIALOG odlg2 CENTER\n	 \n         if !lok; return nil; end\n         \n         cfile1:=alltrim(cfile1)     \n         cDBF   := lower(cfile1)                       \n         cFile1  := StrTran( cfile1, \".dbf\", \".xml\" )  \n         if !\".xml\"$cfile1\n           cfile1+=\".xml\"\n         end   \n         cTable := Left( cDbf, At( \".\", cfile1 ) - 1 )\n         \n         nHandle := fCreate( cFile1 )\n         \n        // Writes XML header \n       fWrite( nHandle, [&lt;?xml version=\"1.0\" encoding=\"GB2312\" ?&gt;] + CRLF )\n       fWrite( nHandle, Space( 0 ) + \"&lt;\"  + cDbf + \"&gt;\" + CRLF )\n\n       Eval(::bGoTop)      \n       while !Eval(::bEof)\n             \n             if len(::Aselected)&gt;0.and.Ascan(::Aselected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n          \n             cBuffer := Space( 2 ) + \"&lt;\" + cTable + \"&gt;\"  + CRLF\n             fWrite( nHandle, cBuffer )\n             i2:=1\n             for i:=1 to len(::acols)   \n                if !::acols[i]:lhide\n                  cBuffer:= Space( 4 ) + \"&lt;\" + aarray1[i2] + \"&gt;\"\n                  utmpvar:=eval(::acols[i]:bStrdata)                \n                  DO CASE\n                      CASE valtype(utmpvar) == \"D\"\n                            cValue := Dtos(utmpvar)\n\n                      CASE valtype(utmpvar) == \"N\"\n                            cValue := Str( utmpvar)\n\n                      CASE valtype(utmpvar) == \"L\"\n                           cValue := If( utmpvar, \"True\", \"False\" )\n\n                      OTHERWISE\n                           cValue := cvaltochar(utmpvar)\n                  ENDCASE\n                  \n                   cValue:= strTran(cValue,\"&amp;\",\"&amp;amp;\")\n                   cValue:= strTran(cValue,\"&lt;\",\"&amp;lt;\")    \n                   cValue:= strTran(cValue,\"&gt;\",\"&amp;gt;\")    \n                   cValue:= strTran(cValue,\"\'\",\"&amp;apos;\")  \n                   cValue:= strTran(cValue,[\"],[&amp;quot;])  \n                                                          \n                   cBuffer := cBuffer             + ;     \n                              Alltrim( cValue )   + ;     \n                              \"&lt;/\"                + ;     \n                              aarray1[i2]+ ;     \n                              \"&gt;\"                 + ;     \n                              CRLF                        \n                                                          \n                   fWrite( nHandle, cBuffer ) \n                   i2++\n                endif               \n             next\n             fWrite( nHandle, Space( 2 ) + \"&lt;/\" + cTable + \"&gt;\"  + CRLF )\n             Eval(::bSkip)\n       end\n       fWrite( nHandle, Space(0) + \"&lt;/\" + cDbf + \"&gt;\" + CRLF )\n       fClose( nHandle )\n       msginfo(trans2(\"&#24050;&#32463;&#29983;&#25104;&#25991;&#20214;\")+cfile1,\"&#25552;&#31034;\")\n endcase \n \n  // Eval(::bGoTo)\n   ::setfocus()\n   ::refresh() \nreturn cfile1\n\nstatic function GenLocalBlock( aGets,n)\nreturn bSETGET( aGets[ n ] )\n\n\nSTATIC FUNCTION GenFieldBlock( cAlias, aStruc, nField, lAsString )\n\n   local cType, cField, cMacro\n   local nLength, nDecim\n\n   DEFAULT lAsString := .t.\n\n   cType   := aStruc[ nField, 2] //DBS_TYPE ]\n   cField  := aStruc[ nField, 1] //DBS_NAME ]\n   nLength := aStruc[ nField, 3] //DBS_LEN ]\n   nDecim  := aStruc[ nField, 4] //DBS_DEC ]\n\n   If !lAsString\n      cMacro := \"{|| \" + cAlias + \"-&gt;\" + cField + \"}\"\n   else\n      Do Case\n      Case cType == \"C\" .or. cType == \"M\"\n         cMacro := \"{|| \" + cAlias + \"-&gt;\" + cField + \"}\"\n      Case cType == \"N\"\n         cMacro := \"{|| Str( \" + cAlias + \"-&gt;\" + cField + \", \" + ;\n                   Str( nLength, 2 ) + \", \" + Str( nDecim, 1 ) + \" ) }\"\n      Case cType == \"L\"\n         cMacro := \"{|| iif( \" + cAlias + \"-&gt;\" + cField + \", \'.T.\', \'.F.\' ) }\"\n      Case cType == \"D\"\n         cMacro := \"{|| Dtoc( \" + cAlias + \"-&gt;\" + cField + \" ) }\"\n      End Case\n   Endif\n\nreturn &amp;cMacro','',0,'','292gea6x',1,0,'',239,0,0),(20200,4558,22,239,0,'218.19.77.107',1160540037,1,0,1,1,1,0,'','bbs forum to add a contrib','Hi, \n  For people to post contributions  include enhanced , new classes and functions , samples .\n\nTKS!\n\nShuming Wang','',0,'','d7fzabmf',1,0,'',239,0,0),(20201,4559,4,831,0,'68.254.17.189',1160540181,1,0,1,0,1,0,'','Getting Started','I am having some trouble getting everything set up and going for programming with fwppc. I downloaded all of the setup/installation files available to me upon the purchase of the software but while trying to compile the sample programs is where the trouble begins. According to the description on the site [color=red:3hborg6d]\"With FWPPC and the Microsoft compiler, you do not need anything else to create true Pocket PC 32 bit applications.\"[/color:3hborg6d]\nThe Microsoft compiler was not included in the installation, so I tried the harbour compiler and ran in to trouble because no obj file was created. I happened to stumble across the Microsoft compiler in the \\bin directory of some fw trial stuff that I downloaded but after compiling I had trouble still this time when I tried to link the file because again... there was not an obj file present. \n\nThe help file seems to not really be geared toward the pocket pc side of FiveWin, but I am quite [color=green:3hborg6d]GREEN[/color:3hborg6d] when it comes to programming. So any information to get me tracking would be so greatly appreciated.\n\nThanks in advance.','',0,'Ag==','3hborg6d',1,0,'',831,0,0),(20202,4497,6,9,0,'85.60.54.140',1160543805,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:1j1p2cdv]Manuel\n\nYa cheque algo que hice parecido, ( claro, con menos bitmaps )  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> y es esto :\n\nSi tomas los datos de una DBF para mostrar en el browse, lo modificas y lo grabas a la DBF, solo bastaria con que \"vaciaras\" el contenido del browse y vuelvas a llenarlo.\n\n[/quote:1j1p2cdv]\n\nRaymundo,\n\n¿Podrias enviarme un código de ejemplo con lo que tienes hecho?\n\nQuiero ver como \"vacias y llenas\" el browse.\n\nMuchas gracias.','',0,'gA==','1j1p2cdv',1,0,'',9,0,0),(20203,4559,4,2,0,'87.218.146.235',1160546882,1,0,1,1,1,1,'','','Tom,\n\nThe Microsoft VCE compiler is available from <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/software/fwppc/vce.zip\">http://fivetechsoft.com/software/fwppc/vce.zip</a><!-- m --> and it shows a download url on the screen as: \"VCE Microsoft free Pocket PC C compiler (ARM processor)\" \n\nPlease download it and copy it to your harddisk, keeping its directories structure.\n\nWelcome aboard and feel free to ask as many questions as needed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2sqyl8xc',1,0,'',2,0,0),(20204,4558,22,2,0,'87.218.146.235',1160547164,1,0,1,1,1,1,'','','Shuming,\n\nPlease use the Utilities section of these forums located at <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewforum.php?f=17\">http://fivetechsoft.com/forums/viewforum.php?f=17</a><!-- m --> and use <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> to store the files and then provide the download url at that section. Thanks,','',0,'gA==','20f41qhz',1,0,'',2,0,0),(20205,4557,6,2,0,'87.218.146.235',1160547392,1,0,1,1,1,1,'','','Luis,\n\n&gt;\nError description: Error BASE/1004 Class: \'LOGICAL\' has no exported method: EVAL \nArgs: \n&gt;\n\nCopia las siguientes líneas del error, gracias.','',0,'gA==','n4y4s4py',1,0,'',2,0,0),(20206,4543,3,31,0,'195.182.84.105',1160552710,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1pmhx0fg]\nYou may use AnsiToWide( &lt;cAnsiText&gt; ) -- &gt; &lt;cUnicodeText&gt; and WideToAnsi( &lt;cUnicodeText&gt; ) --&gt; &lt;cAnsiText&gt; to manage unicode strings.[/quote:1pmhx0fg]\n\n  Hi , Antonio ! Thanks for the answer <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . It seems that AnsiToWide(cString) will get me what I want .\n\n  Regards !','',0,'gA==','1pmhx0fg',1,0,'',31,0,0),(20207,4560,3,31,0,'195.182.84.105',1160553539,1,0,1,1,1,1,'','Animated GIFs','Hi !\n\n   Maybe you know how to display Animated GIF ? With FreeImg lib ? Or can you direct to freeware OCX for that ? \n\n  Many thanks in advance !','',0,'gA==','34q43i7v',1,0,'',31,0,0),(20208,4561,6,656,0,'83.230.172.215',1160558066,1,0,1,1,1,1,'','CAMBIAR FONT DE HEARDER TREPORT','Buenas, lo que intento hacer es que el header del informe me lo ponga en letra mas grande, hago lo siguiente\n\n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -26\n\n   REPORT oReport TITLE \"TITULO\" HEADER \"CABECERA\" ......\n     COLUMN ...\n     ...\n     ...\n   END REPORT\n\n   oReport:oHeader:aFont[1] := oFont\n \n   ACTIVATE REPORT oReport\n\n  y me da un error de no existe el metodo EVAL al evaluar tfont\n  lo estoy haciendo mal ¿verdad ?\n\nMuchas gracias\nSalu2\nJavi','',0,'','2ofrzmht',1,0,'',656,0,0),(20209,4560,3,49,0,'213.82.134.66',1160559235,1,0,1,1,1,1,'','','use gif98 class \nyou can found it on this forum ( Utilities)','',0,'','3vmwykn0',1,0,'',49,0,0),(20210,4561,6,456,0,'217.127.39.57',1160560651,1,0,1,1,1,1,'','','DEFINE FONT oFont NAME \"Arial\" SIZE 0, -26 \n\nREPORT oReport TITLE \"TITULO\" HEADER \"CABECERA\" ...... \n[b:25m6uh5y]FONT oFont [/b:25m6uh5y]\nCOLUMN ... \n... \n... \nEND REPORT','',0,'QA==','25m6uh5y',1,0,'',456,0,0),(20211,4561,6,656,0,'83.230.172.215',1160562079,1,0,1,1,1,1,'','','En los puntos .... iba la definición que me has puesto, eso es para poner el font del informe, lo que yo quiero es cambiar el font del header, con eso tendría todo el informe en Arial 26, solo el header.\n\nMuchas Gracias\nSalu2\nJAvi','',0,'QA==','2kr4soul',1,0,'',656,0,0),(20212,4560,3,31,0,'195.182.84.105',1160562208,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:25nv1fcn]use gif98 class \nyou can found it on this forum ( Utilities)[/quote:25nv1fcn]\n\n  Silvio , reviewed Utiities , but didn\'t found GIF assiocated or similar post . Maybe you have this class ? Can you send me directly ?\n\n   With best regards !','',0,'gA==','25nv1fcn',1,0,'',31,0,0),(20213,4560,3,31,0,'195.182.84.105',1160562416,1,0,1,1,1,1,'','','[quote=&quot;Rimantas&quot;:2mu5tbx3][quote=&quot;Silvio&quot;:2mu5tbx3]use gif98 class \nyou can found it on this forum ( Utilities)[/quote:2mu5tbx3]\n\n  Silvio , reviewed Utiities , but didn\'t found GIF assiocated or similar post . Maybe you have this class ? Can you send me directly ?\n\n   With best regards ![/quote:2mu5tbx3]\n\n I found it - Lozada-LLinas, Class TGif89 - . Something was with my eyes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) .\n\n   Regards !','',0,'gA==','2mu5tbx3',1,0,'',31,0,0),(20214,4560,3,31,0,'195.182.84.105',1160562982,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:qzd19njp]use gif98 class \nyou can found it on this forum ( Utilities)[/quote:qzd19njp]\n\n  Silvio , in this class exist acronim \"BYNAME\" . And harbour compiler don\'t recognize this . Can you advice with which I can change this ?\n\n   Regards !','',0,'gA==','qzd19njp',1,0,'',31,0,0),(20215,4560,3,2,0,'87.218.146.235',1160563578,1,0,1,1,1,1,'','','Rimantas,\n[code:2l97vaqr]\n#xtranslate BYNAME &lt;V&gt; &#91;, &lt;VN&gt; &#93;     =&gt; &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; &#91;; &#58;&#58;&lt;VN&gt; &#58;= &lt;VN&gt; &#93;\n#xtranslate BYNAME &lt;V&gt; DEFAULT &lt;Val&gt; =&gt; &#58;&#58;&lt;V&gt; &#58;= BYDEFAULT &lt;V&gt;, &lt;Val&gt;\n#xtranslate BYNAME &lt;V&gt; IFNONIL       =&gt; ;\n                            if &lt;V&gt; != NIL ;;\n                                &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; ;;\n                            end\n#xtranslate BYDEFAULT &lt;V&gt;, &lt;Val&gt;     =&gt; if&#40; &lt;V&gt; == NIL, &lt;Val&gt;, &lt;V&gt; &#41;\n[/code:2l97vaqr]','',0,'AIA=','2l97vaqr',1,0,'',2,0,0),(20216,4560,3,31,0,'195.182.84.105',1160564252,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:qso7iabo]Rimantas,\n[code:qso7iabo]\n#xtranslate BYNAME &lt;V&gt; &#91;, &lt;VN&gt; &#93;     =&gt; &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; &#91;; &#58;&#58;&lt;VN&gt; &#58;= &lt;VN&gt; &#93;\n#xtranslate BYNAME &lt;V&gt; DEFAULT &lt;Val&gt; =&gt; &#58;&#58;&lt;V&gt; &#58;= BYDEFAULT &lt;V&gt;, &lt;Val&gt;\n#xtranslate BYNAME &lt;V&gt; IFNONIL       =&gt; ;\n                            if &lt;V&gt; != NIL ;;\n                                &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; ;;\n                            end\n#xtranslate BYDEFAULT &lt;V&gt;, &lt;Val&gt;     =&gt; if&#40; &lt;V&gt; == NIL, &lt;Val&gt;, &lt;V&gt; &#41;\n[/code:qso7iabo][/quote:qso7iabo]\n\n  Found this ClipX site , but was not ensured that this will be good ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->) . Thanks , Antonio !','',0,'gIA=','qso7iabo',1,0,'',31,0,0),(20217,4541,12,2,0,'87.218.146.235',1160566180,1,0,1,1,1,1,'','','Carlos,\n\nFiveLinux funciona bien aunque no ofrece aún todas las características propias de FiveWin, por lo que no se puede recompilar y listo. Sería equivalente a unas de las primeras versiones de FiveWin.\n\nPor otra parte es una lástima que no haya más usuarios en Linux, aunque seguro que gracias a distros como Ubuntu, cada vez habrá más usuarios.','',0,'gIA=','2m810rdy',1,0,'',2,0,0),(20218,4562,6,228,0,'201.245.193.4',1160568619,1,0,1,1,1,1,'','Ejemplo Clase Texcel','Amigos del foro he descargado la clase que modifico vickthor de su sitio... He estado revisando los ejemplos, pero todavia no la tengo clara .....\n\nSi alguien me pudiera ayudar con un ejemplo que pase una base de datos a excel se lo agradeceria... de Antemano gracias.','',0,'gIA=','3ax2u5dg',1,0,'',228,0,0),(20219,4563,6,439,0,'200.125.35.189',1160569241,1,0,1,1,1,1,'','ocultar columnas en tReport','Es posible ocultar una columna de un tReport de modo que podamos solo desplegar los totales o trabajar con ellos?','',0,'gIA=','2jpp2b2y',1,0,'',439,0,0),(20220,4560,3,31,0,'195.182.84.105',1160570287,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2nnf5s71]Rimantas,\n[code:2nnf5s71]\n#xtranslate BYNAME &lt;V&gt; &#91;, &lt;VN&gt; &#93;     =&gt; &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; &#91;; &#58;&#58;&lt;VN&gt; &#58;= &lt;VN&gt; &#93;\n#xtranslate BYNAME &lt;V&gt; DEFAULT &lt;Val&gt; =&gt; &#58;&#58;&lt;V&gt; &#58;= BYDEFAULT &lt;V&gt;, &lt;Val&gt;\n#xtranslate BYNAME &lt;V&gt; IFNONIL       =&gt; ;\n                            if &lt;V&gt; != NIL ;;\n                                &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; ;;\n                            end\n#xtranslate BYDEFAULT &lt;V&gt;, &lt;Val&gt;     =&gt; if&#40; &lt;V&gt; == NIL, &lt;Val&gt;, &lt;V&gt; &#41;\n[/code:2nnf5s71][/quote:2nnf5s71]\n\n  Antonio , \n\n  This old TGif89 class is adopted to Clipper+FW . And now when I created applic. from samples of this class on runtime I get an error : \n\n[code:2nnf5s71]\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; ACONTROLS\n   Args&#58;\n   Called from ACONTROLS&#40;0&#41;\n   Called from STARTGIFS&#40;78&#41;\n[/code:2nnf5s71]\n\n  Can you help in this situation ? \n\n  Regards !','',0,'gIA=','2nnf5s71',1,0,'',31,0,0),(20221,4564,6,656,0,'83.230.172.216',1160572229,1,0,1,1,1,1,'','CAMBIAR FONT DE HEADER EN TREPORT','Buenas, lo que intento hacer es que el header del informe me lo ponga en letra mas grande, hago lo siguiente \n\nDEFINE FONT oFont NAME \"Arial\" SIZE 0, -26 \n\nREPORT oReport TITLE \"TITULO\" HEADER \"CABECERA\" ...... \nCOLUMN ... \n... \n... \nEND REPORT \n\noReport:oHeader:aFont[1] := oFont \n\nACTIVATE REPORT oReport \n\ny me da un error de no existe el metodo EVAL al evaluar tfont \nlo estoy haciendo mal ¿verdad ? \n\nMuchas gracias \nSalu2 \nJavi','',0,'','348g8q99',1,0,'',656,0,0),(20222,4565,7,449,0,'212.64.224.241',1160573794,1,0,1,1,1,1,'','Upx en PPC','Hola,\n\nA quien le interese, esta la version Upx para PPC en <!-- m --><a class=\"postlink\" href=\"http://www.pocketpcfreewares.com/en/index.php?soft=1524\">http://www.pocketpcfreewares.com/en/index.php?soft=1524</a><!-- m --> \n\nLo he probado y me va perfecto\n\nSiau.','',0,'','28t23qkp',1,0,'',449,0,0),(20223,4566,6,409,0,'201.246.67.95',1160574129,1,0,1,1,1,0,'','BUTTOMBMP PARA HARBOUR','Necesito descarga ButtomBmp para harbour y algun ejemplo desde ya muchas gracias\nSaludos','',0,'','1uguxzb7',1,0,'',409,0,0),(20224,4562,6,18,0,'200.67.188.236',1160575370,1,0,1,1,1,1,'','Re: Ejemplo Clase Texcel','[quote=&quot;leandro&quot;:1epp47sv]Amigos del foro he descargado la clase que modifico vickthor de su sitio... He estado revisando los ejemplos, pero todavia no la tengo clara .....\n\nSi alguien me pudiera ayudar con un ejemplo que pase una base de datos a excel se lo agradeceria... de Antemano gracias.[/quote:1epp47sv]\n\nLeandro :\n\nEl siguiente código crea un libro y en la primera hoja, vacia todo el contenido de un archivo .dbf , se asigna formato a las columnas , se define el nombre para un rango , se cambia el tipo de letra, se renombra la hoja.\n\nEspero que te ayude.\n\n\n[code:1epp47sv]\n        oExcel &#58;= TExcelScript&#40;&#41;&#58;New&#40;&#41;\n\n        oExcel&#58;Create&#40; cFile+&quot;&#46;xls&quot; &#41;\n\n        oExcel&#58;oSheet&#58;Range&#40; &quot;A&#58;E&quot; &#41;&#58;NumberFormat = &quot;@&quot;\n\n        // Hoja para los lotes\n\n        uData &#58;= &quot;NUMBER&quot;+Chr&#40; 9 &#41;+&quot;ITEM&quot;+Chr&#40; 9 &#41;+&quot;LOTE&quot;+Chr&#40; 9 &#41;+&quot;QUANTY&quot;+Chr&#40; 9 &#41;+&quot;ALMACEN&quot;+ CRLF\n        bAdd &#58;= &#123; || uData += Alltrim&#40; &#40; cLt &#41;-&gt;Number &#41;+ Chr&#40; 9 &#41; , ;\n                     uData += Alltrim&#40; &#40; cLt &#41;-&gt;Item &#41;+ Chr&#40; 9 &#41; , ;\n                     uData += Alltrim&#40; Transform&#40; &#40; cLt &#41;-&gt;Lote , &quot;XXXXXXXX&quot;&#41; &#41;+ Chr&#40; 9 &#41; , ;\n                     uData += Alltrim&#40; Transform&#40; &#40; cLt &#41;-&gt;Quanty , &quot;##,###,###&quot;&#41; &#41;+ Chr&#40; 9 &#41; , ;\n                     uData += Alltrim&#40; &#40; cLt &#41;-&gt;Almacen &#41; , ;\n                     uData += CRLF &#125;\n\n\n       &#40; cLt &#41;-&gt;&#40; DbGoTop&#40;&#41; &#41;\n        nStart &#58;= 1\n        nLine &#58;= 1\n        oClip &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\n        DO WHILE &#40; cLt &#41;-&gt;&#40; !Eof&#40;&#41; &#41;\n           nLine++\n           Eval&#40; bAdd &#41;\n           IF Len&#40; uData &#41; &gt; 50000\n              oClip&#58;Clear&#40;&#41;\n              oClip&#58;SetText&#40; uData &#41;\n              cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41;\n              oExcel&#58;SetPos&#40; cCell &#41;\n              oExcel&#58;Paste&#40;&#41;\n              nStart &#58;= nLine + 1\n              uData &#58;= &quot;&quot;\n           ENDIF\n           &#40; cLt &#41;-&gt;&#40; DbSkip&#40; 1 &#41; &#41;\n        ENDDO\n        IF Len&#40; uData &#41; &gt; 0\n           oClip&#58;Clear&#40;&#41;\n           oClip&#58;SetText&#40; uData &#41;\n           cCell &#58;= &quot;A&quot; + Alltrim&#40; Str&#40; nStart &#41; &#41;\n           oExcel&#58;SetPos&#40; cCell &#41;\n           oExcel&#58;Paste&#40;&#41;\n        ENDIF\n        cRange &#58;= &quot;A1&#58;E&quot; + Alltrim&#40; Str&#40; nLine &#41; &#41;\n        oExcel&#58;oSheet&#58;Range&#40; cRange &#41;&#58;Select&#40;&#41;\n        oClip&#58;Clear&#40;&#41;\n        oExcel&#58;NameSheet&#40; &quot;Hoja1&quot; , &quot;LOTES&quot; &#41;\n        oExcel&#58;oExcel&#58;Selection&#58;Name &#58;= &quot;LOTES&quot;\n        oExcel&#58;oExcel&#58;Selection&#58;Font&#58;Name &#58;= &quot;Tahoma&quot;\n        oExcel&#58;oExcel&#58;Selection&#58;AutoFit&#40;&#41;\n        oClip&#58;End&#40;&#41;\n        &#40; cLt &#41;-&gt; &#40; DbCloseArea&#40;&#41; &#41;\n\n[/code:1epp47sv]','',0,'gIA=','1epp47sv',1,0,'',18,0,0),(20225,4564,6,53,0,'189.139.19.156',1160575564,1,0,1,1,1,1,'','','Javi:\n\nDebes indicar que el font definido lo use el objeto oReport\n\nDEFINE FONT oFont NAME \"Arial\" SIZE 0, -26\nDEFINE FONT oFnt NAME \"Arial\" SIZE 0, -10\n\nREPORT oReporte .....;\nFONT oFont,oFnt\n\nY despues\n\noReport:oHeader:aFont[1] := {||1}\n\nObserva que el 1 esta definiendo el número de font que le has asignado al objeto oReport  en función al orden en que los asignaste\n\noFont será el 1, oFnt será el 2 etc etc\n\n\nOjalá esto te ayude.\n\nSaludos, Armando','',0,'','yvkblvs3',1,0,'',53,0,0),(20226,4499,6,18,0,'200.67.188.236',1160576038,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:1ae83295]Gracias Rene por el consejo, la verdad es que con tOdbc y TDbOdbcDirect me funciona bastante bien.  \n\nDe todas maneras si que tengo previsto el probar ADO, y si funciona segun lo esperado ir migrando. \n\nPor lo leido, es bastante mas rapido, y eso siempre viene bien.[/quote:1ae83295]\n\nBiel :\n\nPara cuando decidas usa ADO la solución a tu problema se resuelve evaluando el valor de EditMode\n\nEditMode Señala el estado de edición de un registro. Existen tres posibilidades:\n\n[code:1ae83295]\nadEditNone&#46;         El registro no se encuentra editado&#46; \nadEditInProgress&#46; El registro se encuentra editado, pero no se ha grabado&#46; \nadEditAdd&#46;           Se ha llamado al método AddNew \n[/code:1ae83295]\n\n¡ Más sencillo no se puede ! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','1ae83295',1,0,'',18,0,0),(20227,4567,19,786,0,'84.123.49.11',1160576367,1,0,1,1,1,0,'','Vuestra opinion sobre programa estandard o CGI','Hola a todos:\n\nNo quiero enrrollarme mucho, concretare lo maximo que se pueda sobre mi pregunta.\n\nLlevo mucho tiempo dandole vueltas al mismo tema, pero no me decido en cual de las dos seguir trabajando:\n\nContarme vuestra opinion, respecto a cual de las dos formas de crear una aplicacion es mas aconsejable, segura, estable, comoda, viable, etc.\n\n1.- Programas EXE basados en windows, linux, etc\n2.- Programas CGI basados en WEB.\n\nObviamente no me refiero a programas muy concretos y especializados como pueden ser: crear programas que creen seudo-codigos en AFP, Xerox, XGF, etc como he estado desarrollando durante algunos años con fivewin para un banco.\n\nPor ejemplo, estos trabajos estan creados con fivewin 2.0 embebiendo otros lenguajes como XGF, Xerox, AFP, CR70: son aplicaciones para alta produccion que generan un volumen de documentos entre 80.000 a 200.000 documentos, en distintos formatos e idiomas.\n\n<!-- m --><a class=\"postlink\" href=\"http://bancaja.es/perfiles/banca/Pdfs/FL03512E.pdf\">http://bancaja.es/perfiles/banca/Pdfs/FL03512E.pdf</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://bancaja.es/perfiles/banca/pdfs/ofertainversion.pdf\">http://bancaja.es/perfiles/banca/pdfs/o ... ersion.pdf</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.gebasa.es/guias/guias1.asp\">http://www.gebasa.es/guias/guias1.asp</a><!-- m --> , haz click en TODOS y luego pulsar el boton VER.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.gebasa.es/guias/guias2.asp\">http://www.gebasa.es/guias/guias2.asp</a><!-- m -->, haz click en TODOS y luego pulsar el boton VER.\n\nMuchas gracias de antemano a todos.\n\nUn Saludo.','',0,'gIA=','2fxhsu03',1,0,'',786,0,0),(20228,4564,6,18,0,'200.67.188.236',1160576530,1,0,1,1,1,1,'','Re: CAMBIAR FONT DE HEADER EN TREPORT','[quote=&quot;helvant&quot;:2i0h5tx9]Buenas, lo que intento hacer es que el header del informe me lo ponga en letra mas grande, hago lo siguiente \n\nDEFINE FONT oFont NAME \"Arial\" SIZE 0, -26 \n\nREPORT oReport TITLE \"TITULO\" HEADER \"CABECERA\" ...... \nCOLUMN ... \n... \n... \nEND REPORT \n\noReport:oHeader:aFont[1] := oFont \n\nACTIVATE REPORT oReport \n\ny me da un error de no existe el metodo EVAL al evaluar tfont \nlo estoy haciendo mal ¿verdad ? \n\nMuchas gracias \nSalu2 \nJavi[/quote:2i0h5tx9]\n\nHelvat :\n\nTe recomiendo que te bajes la Mini-Faq de TheFull.\n[url:2i0h5tx9]http&#58;//vikthor&#46;com&#46;mx/fivewin/files/docs/mini-faq&#46;zip[/url:2i0h5tx9]','',0,'kA==','2i0h5tx9',1,0,'',18,0,0),(20229,4563,6,18,0,'200.67.188.236',1160576665,1,0,1,1,1,1,'','Re: ocultar columnas en tReport','[quote=&quot;jose_murugosa&quot;:a3ll9tpc]Es posible ocultar una columna de un tReport de modo que podamos solo desplegar los totales o trabajar con ellos?[/quote:a3ll9tpc]\n\n\nJosé :\n\nMe parece que en la mini-faq de TheFull hay un ejemplo de lo que necesitas :\n\n[url:a3ll9tpc]http&#58;//vikthor&#46;com&#46;mx/fivewin/files/docs/mini-faq&#46;zip[/url:a3ll9tpc]','',0,'kA==','a3ll9tpc',1,0,'',18,0,0),(20230,4563,6,439,0,'200.125.42.204',1160577264,1,0,1,1,1,1,'','','Muchas Gracias Master!!!!!\nLo revisaré','',0,'kA==','3s5wv4u0',1,0,'',439,0,0),(20231,4497,6,18,0,'200.67.188.236',1160577295,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:bpj0gi2r][quote=&quot;Raymundo Islas M.&quot;:bpj0gi2r]Manuel\n\nYa cheque algo que hice parecido, ( claro, con menos bitmaps )  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> y es esto :\n\nSi tomas los datos de una DBF para mostrar en el browse, lo modificas y lo grabas a la DBF, solo bastaria con que \"vaciaras\" el contenido del browse y vuelvas a llenarlo.\n\n[/quote:bpj0gi2r]\n\nRaymundo,\n\n¿Podrias enviarme un código de ejemplo con lo que tienes hecho?\n\nQuiero ver como \"vacias y llenas\" el browse.\n\nMuchas gracias.[/quote:bpj0gi2r]\n\nManuel :\n\nSi estas trabajando con arreglos en un browse, por que no usas el método SetArray() para cambiar el contenido de tu vista.','',0,'gA==','bpj0gi2r',1,0,'',18,0,0),(20232,4563,6,18,0,'200.67.188.236',1160577326,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:1ply086i]Muchas Gracias Master!!!!!\nLo revisaré[/quote:1ply086i]\n\nNo hay de que............so nomás de papa.','',0,'gA==','1ply086i',1,0,'',18,0,0),(20233,4556,6,18,0,'200.67.188.236',1160577377,1,0,1,1,1,1,'','Re: Promedio en lugar de Total en una columna de TReport','[quote=&quot;jose_murugosa&quot;:3bosilak]Tengo un reporte con 4 columnas numéricas, una contiene la cantidad de animales faenados en ese lote, otra contiene el peso en pie del lote, otra contiene los pesos de las medias reses resultantes de la faena de ese lote y una cuarta columna lleva un porcentaje obtenido a partir de la del cociente entre las dos columnas previas.\n\nNo tiene sentido naturalmente totalizar esta cuarta columna, pero sería interesante poder promediarla. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\n¿Como puedo hacer esto, es decir en lugar de obtener un total de una columna por grupo obtener un promedio? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nDesde ya gracias por cualquier ayuda. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:3bosilak]\n\nJosé :\n\nDe nuevo la respuesta correcta es........... Mini-Faq de TheFull','',0,'gA==','3bosilak',1,0,'',18,0,0),(20234,4556,6,439,0,'200.125.42.204',1160577537,1,0,1,1,1,1,'','Re: Promedio en lugar de Total en una columna de TReport','[quote=&quot;Vikthor&quot;:12532mr1]\nJosé :\n\nDe nuevo la respuesta correcta es........... Mini-Faq de TheFull[/quote:12532mr1]\n\nDe nuevo MUCHAS GRACIAS!!!!','',0,'gA==','12532mr1',1,0,'',439,0,0),(20235,4554,7,598,0,'200.11.139.61',1160578255,1,0,1,1,1,1,'','','pues no.. tampoco cierro las bases de datos, lo q pasa es q no se como capturar el evento End() del programa, tampoco llamo en ninguna parte al evento End() de ninguno de los controles ya que los reutilizo todos. la tarjeta SD q uso es de 133x..','',0,'gA==','32la4eno',1,0,'',598,0,0),(20236,4497,6,492,0,'189.147.31.160',1160580421,1,0,1,1,1,1,'','','Manuel\n\nRealiza una busqueda en el foro con la palabra [color=red:1m0e3rt6]iBackUp[/color:1m0e3rt6] y descargate el codigo, ahi esta lo que te comento.\n\nEfectivamente, como dice Vikthor, trabajandolo sobre Arrays, se facilita mas el asunto.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos','',0,'Ag==','1m0e3rt6',1,0,'',492,0,0),(20237,4568,4,13,0,'213.76.252.200',1160580849,1,0,1,1,1,0,'','Properly method to destroy objects','Antonio,\n\nWhat is properly method to destroy objects in window. I create window with several controls eg. listbox, say, get. When this window is loaded several times memory is not freed after window End() procedure. This generally provide to Internal Error without error description (ca up to 85% load memory use).  I try assign object to control and End() or Destroy() method use but no success. Memory usage grow after load window.\n\nThanks\nPawel','',0,'Ag==','31mbrg24',1,0,'',13,0,0),(20238,4565,7,598,0,'200.11.139.61',1160581466,1,0,1,1,1,1,'','','esta buenisimo! redujo mi exe de 1.8 M a 475K, otra cosa.. como hago para hacer un instalador de mi aplicacion?? osea un setup.exe ?? ... se q hay otro hilo q habla sobre un ezsetup pero este me pide q haga los archivos .inf y .cab pero nose como crearlos para fivewin... me puedes ayudar con esto? de antemano muchisimas gracias.','',0,'Ag==','3nt0r6ko',1,0,'',598,0,0),(20239,4519,3,810,0,'84.172.60.234',1160581487,1,0,1,1,1,0,'','Anyone read the question ???','Anyone read the question ???\n\n-:)','',0,'Ag==','2a1yyy3i',1,0,'',810,0,0),(20240,4554,7,2,0,'87.218.146.235',1160581514,1,0,1,1,1,1,'','','Luis,\n\nLos ejemplos de FWPPC te funcionan bien ?','',0,'Ag==','1krx2eon',1,0,'',2,0,0),(20241,4568,4,2,0,'87.218.146.235',1160581588,1,0,1,1,1,1,'','','Pawel,\n\nWhat FWPPC build (date) are you using ?','',0,'Ag==','2fb7jt9i',1,0,'',2,0,0),(20242,4569,4,779,0,'200.67.153.171',1160582118,1,0,1,1,1,0,'','osay:SetText(Time()) no me funciona!!!','Alguna sugerencia? <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'Ag==','2g59k52z',1,0,'',779,0,0),(20243,4557,6,708,0,'201.215.32.223',1160582961,1,0,1,1,1,0,'','aca va el resto de la linea','Stack Calls\n===========\n   Called from:  =&gt; (b)EVAL(0)\n   Called from:  =&gt; __EVAL(0)\n   Called from:  =&gt; TWINDOW:LVALID(0)\n   Called from:  =&gt; TCONTROL:FWLOSTFOCUS(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(8592)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; SYSREFRESH(0)\n   Called from:  =&gt; TWINDOW:LBUTTONDOWN(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; PRG_101(99)\n   Called from:  =&gt; (b)BUILDMENU(130)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(112)\n\nSystem\n======\n   CPU type: Pentium III 1583 Mhz\n   Hardware memory: 224 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 45.0 Intl. (Flex)\n   Windows version: 5.2, Build 3790 Service Pack 1\n\n   Windows total applications running: 39\n      1 Barra de acceso directo de Office\n      2 Menú Inicio\n      3 SysFader\n      4 CiceroUIWndFrame\n      5 TF_FloatingLangBar_WndTitle\n      6 Maestro de Familias\n      7 Sistema de Control y Gestion 2005 Version 3.0\n      8 C:\\prgfwh\n      9 Armando - Conversación\n     10 DDE Server Window\n     11 MCI command handling window\n     12 MSNUnnamedWindow\n     13 MSNMSGRAbsConnWindow\n     14 Dummy Video Parent\n     15 EchoPortManagerWnd\n     16 IHW2\n     17 File Open Message Window\n     18 Aviso\n     19 Búsqueda rápida\n     20 Connections Tray\n     21 Medidor de energía\n     22 MS_WebcheckMonitor\n     23 NOD32KrnSvcWindow\n     24 Cuarentena\n     25 Registros de NOD32 Scanner\n     26 Registros de amenazas\n     27 Registros del sistema NOD32\n     28 Tareas programadas\n     29 Información\n     30 Configuración general del sistema NOD32\n     31 NOD32 Kernel\n     32 AMON - Monitor del sistema de archivos\n     33 DMON - Protección de documentos Microsoft Office\n     34 EMON - Protección de correo para Microsoft Outlook\n     35 IMON - Protección para el tráfico de Internet\n     36 NOD32 Scanner\n     37 NOD32 Update\n     38 NOD32 2.5 Control Center\n     39 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   (b)EVAL\n   __EVAL\n     Param   1:    O    Class: TSBROWSE\n   TWINDOW:LVALID\n   TCONTROL:FWLOSTFOCUS\n     Param   1:    N    328564\n     Local   1:    O    Class: TSBROWSE\n     Local   2:    U    \n   TCONTROL:HANDLEEVENT\n     Param   1:    N    2057\n     Param   2:    N    328564\n     Param   3:    N    0\n     Local   1:    O    Class: TSBROWSE\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    2057\n     Param   2:    N    328564\n     Param   3:    N    0\n     Local   1:    O    Class: TSBROWSE\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n   _FWH\n     Param   1:    N    0\n     Param   2:    N    2057\n     Param   3:    N    328564\n     Param   4:    N    0\n     Param   5:    N    16\n     Local   1:    O    Class: TSBROWSE\n   SYSREFRESH\n   TWINDOW:LBUTTONDOWN\n     Param   1:    N    13\n     Param   2:    N    57\n     Param   3:    O    Class: TBTNBMP\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    513\n     Param   2:    N    1\n     Param   3:    N    852025\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    513\n     Param   2:    N    1\n     Param   3:    N    852025\n     Local   1:    O    Class: TBTNBMP\n   _FWH\n     Param   1:    N    852025\n     Param   2:    N    513\n     Param   3:    N    1\n     Param   4:    N    852025\n     Param   5:    N    10\n     Local   1:    O    Class: TBTNBMP\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"P_VENTANA\"\n     Param   3:    N    197576\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    197576\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   PRG_101\n     Local   1:    O    Class: TSBROWSE\n     Local   2:    O    Class: TDIALOG\n     Local   3:    N    1\n     Local   4:    A    Len:    2\n     Local   5:    L    .F.\n     Local   6:    O    Class: TSAY\n     Local   7:    O    Class: TFONT\n     Local   8:    O    Class: TFONT\n     Local   9:    C    \"DOBLE CLICK SOBRE TITULO (  ), ORDENA DESCENDENTE...\"\n     Local  10:    O    Class: TSAY\n     Local  11:    O    Class: TFONT\n     Local  12:    O    Class: TBTNBMP\n     Local  13:    O    Class: TBTNBMP\n     Local  14:    O    Class: TBTNBMP\n     Local  15:    O    Class: TBTNBMP\n     Local  16:    O    Class: TBTNBMP\n     Local  17:    U    \n     Local  18:    U    \n   (b)BUILDMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20002\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20002\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20002\n     Local   4:    N    0\n   TWINDOW:COMMAND\n     Param   1:    N    20002\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    L    .F.\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20002\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20002\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TMDIFRAME\n   WINRUN\n     Param   1:    N    197576\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    B    {|| ... }\n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    O    Class: TBAR\n     Local   3:    O    Class: TCURSOR\n     Local   4:    U    \n     Local   5:    O    Class: TFONT\n     Local   6:    U    \n     Local   7:    C    \"                    \"\n     Local   8:    C    \"                              \"\n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    U    \n     Local  12:    C    \"                                                  \"\n     Local  13:    L    .F.\n     Local  14:    O    Class: TBITMAP\n     Local  15:    U    \n     Local  16:    O    Class: TICON\n     Local  17:    U    \n     Local  18:    U    \n     Local  19:    U    \n     Local  20:    A    Len:    9\n     Local  21:    A    Len:    2\n     Local  22:    L    .F.\n     Local  23:    O    Class: TBTNBMP\n     Local  24:    O    Class: TBTNBMP\n     Local  25:    O    Class: TBTNBMP\n     Local  26:    O    Class: TBTNBMP\n     Local  27:    O    Class: TBTNBMP\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFCDX\n   DBFNTX\n\nDataBases in use\n================\n\n  1: =&gt; B_FAMI                             RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          2      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; Cod_Fam                            B_FAMI1\n           Nom_Fam                            B_FAMI2\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TCURSOR\n     4 TWINDOW\n     5 TCONTROL\n     6 TICON\n     7 TBRUSH\n     8 TFONT\n     9 TBITMAP\n    10 TMDIFRAME\n    11 TMENU\n    12 TMENUITEM\n    13 TMDICLIENT\n    14 TMSGBAR\n    15 TRECT\n    16 TMSGITEM\n    17 TTIMER\n    18 TBAR\n    19 TBTNBMP\n    20 TDIALOG\n    21 TSAY\n    22 TSBROWSE\n    23 ERROR\n    24 TSCOLUMN\n    25 TSBSCRLBAR\n\nMemory Analysis\n===============\n      132 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes','',0,'Ag==','vd9z32bz',1,0,'',708,0,0),(20244,4568,4,13,0,'213.76.252.200',1160583977,1,0,1,1,1,0,'','','Antonio,\n\nI use FWPPC 08/September/2006 build.\nIn EVC Rempte System Information memory usage like this:\nprogram load: 37%\nsecond window with 36 get control load 20 times:  42%\nprogram crash when momory usage is ca 85%\n\nPawel','',0,'Ag==','j3toh8z0',1,1160667365,'',13,1,0),(20245,4570,2,832,0,'201.122.21.224',1160585232,1,0,1,1,1,0,'','COMO ENVIAR DATOS A UN CGI DESDE FIVE-WIN','HOLA A TODOS ME PODRINA AYUDAR, PARA PODER ENVIAR DATOS DE FIVE A UN CGI.\n\n TAL COMO ESTO: EN WEB......\n \nSAVE ALL LIKE N* TO (Nnarch_mem)\n         oOutFile:say(nContador++,0,\"&lt;TR&gt;\")\n         oOutFile:say(nContador++,0,\"&lt;/TABLE&gt;\")\n         oOutFile:say(nContador++,0,\"&lt;/center&gt;\")\n         oOutFile:say(nContador++,0,\"&lt;FORM ACTION=\'/cgi-win/12345/CARGASTA.exe\' METHOD=POST &gt;\")\n         oOutFile:say(nContador++,0,\'&lt;CENTER&gt;&lt;input name=\"Archivo\" type=\"hidden\" VALUE=\"\'+nnarch_htm2+\'\"&gt;&lt;BR&gt;\')\n         oOutFile:say(nContador++,0,\"&lt;/font&gt;\")\n         oOutFile:say(nContador++,0,\"&lt;/BODY&gt;\" )\n         oOutFile:say(nContador++,0,\"&lt;/HTML&gt;\" )\n         SET DEVICE TO SCREEN\n         SET PRINT OFF\n\nPERO YO LO QUIERO PARA FIVE WIN..\nY NO ES UNA APLICACION WEB, YA QUE PARA ESTO EN WEB SI FUNCIONA..','',0,'Ag==','3f42eila',1,0,'',832,0,0),(20247,4281,7,449,0,'88.14.186.19',1160587672,1,0,1,1,1,1,'','','Hola,\n\nComo me lo estan pidiendo por privado, dejo aqui los ficheros necesarios\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e07bdd74/Instala.rar.html\">http://hyperupload.com/download/02e07bd ... a.rar.html</a><!-- m -->\n\nSiau.','',0,'Ag==','101pkgnt',1,0,'',449,0,0),(20248,4565,7,449,0,'88.14.186.19',1160587749,1,0,1,1,1,1,'','','Luis,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=20247#20247\">http://fivetechsoft.com/forums/viewtopi ... 0247#20247</a><!-- m -->\n\nSiau.','',0,'Ag==','2k4pdno5',1,0,'',449,0,0),(20249,4550,7,383,0,'201.240.213.170',1160591236,1,0,1,1,1,0,'','','Las pocket Pc si tendran acceso a internet.\n\nBueno ya instale el xhscript y servidor web de winodws xp, todo correcto. Pero existen ejemplos o existe algun enlace para realizar mis pruebas\n\nPor otro lado, sera suficiente con estas herramientas para poner en linea mis dbf con las Pocket Pc o necesitare de alguna ip fija de internet para conectarme a mi server web. Que limitaciones con el servidor web de Windows xp porque existen otros tomcat, apache, etc.\n\nAdemás, si existen manuales o un curso para implementar esta solucion asi tenga costo estoy muy interesado tengo un mes para implementar dicha solución. Deseo tener exito.\n\nMuchas Gracias por sus constantes ayudas.','',0,'Ag==','1gto3mef',1,0,'',383,0,0),(20250,4567,19,138,0,'189.141.70.60',1160592411,1,0,1,1,1,1,'','','Javier:\n\nUna de las cosas que hemos estado observando ultimamente es un constante movimiento a aplicaciones basadas en web, llamese CGI, ASP, PHP o HTML puro y duro por las sigientes razones:\n\n1) Indepedencia del sistema operativo, una aplicaicon basada en Web se puede ejecutar desde cualqiuer sistema operativo, MacOS, Windows, Linux, Unix, etc.\n\n2) Cero coste de cambio de equipos, de la mano de lo anterior, una aplicacion basada en web por ejemplo con CGIs que es la forma mas basica, puede correr en un navegador \"estandar\" , por ejemplo en un Explorer 5 o 6, o bien en uno gratuito como FireFox.\n\n3) Inversion minima en la plataforma de desarrollo, ya sea que trabajes con Linux, o con Windows como tu back end no importa lo que tengas en tus puesto de trabajo, el costo de comprar un buen servidor una buena base de datos, simpere sera mucho menor que tener que actualizar puestos de trabajo porque ya estan obsoletos.\n\n4) Movilidad, una apliccion basada en web puede viajar contigo, ya sea que quieras trabajar desde una wifi en un cafe Starbucks en New York o desde tu pocket PC en un aeropuerto, las aplicaciones web ofrece mas movilidad que una aplicacion basada en Windows o Linux.\n\nClaro las aplicaciones windows tambien tienen su encanto, sobre todo por el tema de los infomres y de la exportacion de datos a distintos formatos, pero basicamente, ciertamente las aplicaciones basadas en Web es un segmento que no debemos pasar por alto.','',0,'Ag==','2rys5il5',1,0,'',138,0,0),(20251,4571,6,127,0,'83.35.190.116',1160594711,1,0,1,1,1,0,'','De Excel a DBF','He bajado un ejemplo que hay por aquí por el foro para leer un archivo \"XLS\" y meterlo en una dbf.\n\nUtilizo harbour con borland (BCC55)\n\nAl compilar me da el siguiente error:\nError: Unresolved external \'_HB_FUN_TOLEAUTO\' referenced from C:\\HARBPROG\\_OTROS\\EXCELDBF\\EXCELDBF.OBJ                                  \n\n¿ Algún alma caritativa sabe si falta alguna librería ? Y abusando de vuestra amabilidad ¿ Dónde está dicha librería ?\n\nMuchas gracias a todos y un cordial saludo.','',0,'Ag==','uvxv39hr',1,0,'',127,0,0),(20252,4555,19,2,0,'87.218.146.235',1160599140,1,0,1,1,1,1,'','','Carlos,\n\nEs un bug reciente de Harbour (en el caso de que estés usando Harbour). \nDescarga la versión más reciente del CVS de Harbour.','',0,'Ag==','2n2far73',1,0,'',2,0,0),(20253,4571,6,138,0,'189.141.70.60',1160599681,1,0,1,1,1,1,'','','La clase TOLEAUTO esta includa en xHarbour, mas no asi en Harbour, deberas incluir el archivo correspondiente (OLEAUTOMAT.LIB) para poder utilizar el ejemplo','',0,'Ag==','1fzpku8y',1,0,'',138,0,0),(20254,4569,4,2,0,'87.218.146.235',1160599988,1,0,1,1,1,1,'','','Ignacio,\n\nEste ejemplo funciona correctamente:\n[code:3ohiq7n9]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oSay\n   \n   DEFINE WINDOW oWnd TITLE &quot;TestSay&quot;\n   \n   @ 1, 2 SAY oSay PROMPT &quot;Test&quot; SIZE 100, 20\n   \n   @ 3, 2 BUTTON &quot;SetText&quot; SIZE 80, 20 ACTION oSay&#58;SetText&#40; Time&#40;&#41; &#41;\n   \n   ACTIVATE WINDOW oWnd \n   \nreturn nil\n[/code:3ohiq7n9]','',0,'AIA=','3ohiq7n9',1,0,'',2,0,0),(20255,4568,4,2,0,'87.218.146.235',1160600095,1,0,1,1,1,1,'','','Pawel,\n\nPlease download a more recent FWPPC build, thanks.','',0,'AIA=','7x00swg6',1,0,'',2,0,0),(20256,4555,19,92,0,'62.151.112.60',1160600245,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:faxc8gfp]Carlos,\n\nEs un bug reciente de Harbour (en el caso de que estés usando Harbour). \nDescarga la versión más reciente del CVS de Harbour.[/quote:faxc8gfp]\n\n\nGracias Antonio.\n\nUtilizo la versión 0.45 de hace un año junto con FiveWin 2.6 y esto y tu mensaje me dicen que quizás no sea HarbouR; he empezado a desmenuzar mi código y he visto que quizás sea mi clàusula ON CHANGE.\n\nSigo en ello.\nCarlos G.','',0,'gA==','faxc8gfp',1,0,'',92,0,0),(20257,4557,6,2,0,'87.218.146.235',1160600368,1,0,1,1,1,1,'','','Luis,\n\nEstás usando un VALID en el control TSBROWSE ?\n\nPrueba a hacer oBrowse:bValid = nil','',0,'gA==','2gwsjvwy',1,0,'',2,0,0),(20258,4561,6,456,0,'217.124.41.133',1160601306,1,0,1,1,1,1,'','','[code:1bluehzw]\n DEFINE FONT oFont1 NAME &quot;ARIAL&quot; SIZE 0,-10\n DEFINE FONT oFont2 NAME &quot;ARIAL&quot; SIZE 0,-26 BOLD\n\nREPORT oReport TITLE &quot;TITULO&quot; HEADER &quot;CABECERA&quot; &#46;&#46;&#46;&#46;&#46;&#46; \nFONT oFont1,oFont2\nCOLUMN &#46;&#46;&#46; \n&#46;&#46;&#46; \n&#46;&#46;&#46; \nEND REPORT \n\noReport&#58;oHeader&#58;aFont&#91;1&#93; &#58;= &#123;||2&#125;\n\nACTIVATE REPORT oReport \n\n[/code:1bluehzw]','',0,'AIA=','1bluehzw',1,0,'',456,0,0),(20259,4557,6,708,0,'201.215.32.223',1160602640,1,0,1,1,1,0,'','es extraño, pero porque ??','amigos hice el siguiente cambio y se arreglo el problema\n\nRedefine BtnBmp oBot1  Id 1001 Resource \"BTO_NUEVO\" Of oDlgFam;\n           NoBorder;\n           Message \"Agrega Nuevo Registro...\" Action (EditFamilia([b:39bx9h6r].T.[/b:39bx9h6r],oLbx1), oLbx1:Reset())\n\npor este otro\n\nlok1:= .T.\n\nRedefine BtnBmp oBot1  Id 1001 Resource \"BTO_NUEVO\" Of oDlgFam;\n           NoBorder;\n           Message \"Agrega Nuevo Registro...\" Action (EditFamilia([b:39bx9h6r]lOk1[/b:39bx9h6r],oLbx1), oLbx1:Reset())','',0,'QA==','39bx9h6r',1,0,'',708,0,0),(20260,4569,4,779,0,'200.67.153.171',1160603165,1,0,1,1,1,0,'','','Gracias Antonio','',0,'QA==','3a1nf6gx',1,0,'',779,0,0),(20261,4447,20,446,0,'87.10.5.28',1160603179,1,0,1,1,1,0,'','','se a qualcuno interessa l\'argomento... finalmente ho trovato una soluzione, forse non è la migliore ma funziona:\n\n[code:13ol7l38]\n&lt;body&gt;\nhtml&#46;&#46;&#46;\n\n&lt;! genero la mia tabella da harbour !! &gt;\n&lt;?php passthru&#40; &quot;testexe1&#46;exe params&quot; &#41;; ?&gt;\n\naltro html&#46;&#46;&#46;\n\n&lt;/body&gt;\n[/code:13ol7l38]\n\nin realtà sto lavorando in un CMS (content management system) e non ho il controllo sulla pagina che viene generata perchè è il  CMS che la genera.\nDi conseguenza ci posso solo inserire un \"elemento di contenuto\" tramite uno script che richiama il mio eseguibile nel modo mostrato sopra\n\nciao a tutti\nRoberto','',0,'AIA=','13ol7l38',1,0,'',446,0,0),(20262,4572,7,779,0,'200.67.153.171',1160603269,1,0,1,1,1,0,'','_ftime() not implemented','Tratando de usar RND()\n\nComo puedo generar Numeros aleatorios?','',0,'AIA=','lqwqjd4u',1,0,'',779,0,0),(20263,4573,6,66,0,'200.127.58.81',1160605025,1,0,1,0,1,0,'','Consulta Twbrowse Maestro-Detalle en Red','Estimados Colegas\n\nTengo una aplicacion en red con  un Twbrowse Maestro-detalle  la cual   \nacceden varios usuarios a la vez como puedo hacer para optimizarla\nCuando el usuario navegue por el browse maestro, al otro usuario no \nle aparezca fichero bloqueado por usuario\n\ndesde ya mucha gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\n\n   \n   sele 15\n    USE ARTICULO alias articulo shared\n    if .not. neterr()\n   \n    index on upper(articulo-&gt;descri) to articulo\n    set index to articulo\n    else\n    alert(\"archivo Bloqueado por otro usuario\")\n    endif\n\n   \n     REDEFINE  LISTBOX oLbx FIELDS       ;\n      ARTICULO-&gt;CODIGO,ARTICULO-&gt;DESCRI ,str(ARTICULO-&gt;PRECIO) ;\n      HEADER \"CODIGO\",\"Descripcion\",\"Precio\" ;\n      sizes 100,250,150 ;\n      ALIAS \"articulo\"                     ;\n      ID 199  OF ODLG ;\n      on change detail(olbx3)\n\n      Use garan2t alias garan2t shared \n      if .not. neterr()\n      INDEX ON (garan2t-&gt;codart) TO garan2t\n      SET INDEX TO garan2t\n      else\n      Alert(\"Archivo Bloqueado por otro usuario\")\n      ENDIF\n\n\n      REDEFINE  LISTBOX oLbx3 FIELDS       ;\n      garan2t-&gt;codart,garan2t-&gt;DENOMI,Str(garan2t-&gt;pventa);\n      HEADER \"Codigo\",\"Articulo\",\"Precio Venta\" ;\n      sizes 150,150,150 ;\n      alias \"garan2t\";\n      ID 77 OF ODLG\n\nFunction Detail(olbx3)\n\nLocal xxXX\n\nStore articulo-&gt;garantia to xxXX\nUse garan2T \n\nif .not. neterr()\nset filter to garan2T-&gt;codgar=xxXX\nolbx3:refresh()\nelse\nalert(\"Archivo Bloqueado Por uusuario\",,\"Red\")\nendif','',0,'AIA=','3lu48xn5',1,0,'',66,0,0),(20264,4572,7,779,0,'200.67.153.171',1160605215,1,0,1,1,1,0,'','Not Implemented clock()','esta tampoco....','',0,'AIA=','27y8xfq7',1,0,'',779,0,0),(20265,4429,6,389,0,'189.133.4.103',1160608094,1,0,1,1,1,0,'','','Silvio,\n\nmy mail is gornelas at prodigy.net.mx \n\nRegards\n\nGABO','',0,'AIA=','364ilhva',1,0,'',389,0,0),(20266,4573,6,492,0,'189.147.31.160',1160614256,1,0,1,1,1,1,'','','Hola Fabian\n\nUn par de observaciones que veo :\n\n- Estas intentando abrir el mismo archivo 2 veces (garan2T) primero compartido y despues exclusivo, no entiendo la razon.\nPorque precisamente en ese momento es que sucede lo que comentas\n\n- Porque no usas una base temporal o un arreglo para el detalle\n\nHe usado esto en varios browses como el que indicas y no he tenido problema alguno.\n\n\nSaludos','',0,'AIA=','z1skkkee',1,0,'',492,0,0),(20267,4573,6,138,0,'189.141.70.60',1160616017,1,0,1,1,1,1,'','','Matando pulgas a cañonazos......\n\nMas rapido y mas facil\n\n1) no creo que tengas necesidad de crear el indice cada vez que entres a consultar, los indices no se tienen que estar creando a cada momento, se crean una vez y se reconstruyen hasta que fallan.\n\n2) utiliza un scope, asi cada vez que te muevas en la base de datos padre, haces un scope en la base de datos hija y funciona como una bala.\n\n[code:3v5dqjox]USE ARTICULO shared new\nset index to articulo \nUSE garantt shared new\nset index to garan2t\n\nREDEFINE LISTBOX oLbx&#46;&#46;&#46;&#46;&#46;&#46; ON CHANGE &#40;garan2t-&gt;&#40;QuickScope&#40;articulo-&gt;codigo&#41;, oLbx3&#58;Refresh&#40;&#41;&#41;\n&#46;&#46;&#46;&#46;&#46;\nREDEFINE LISTBOX oLbx3 Fields&#46;&#46;&#46;&#46;&#46;&#46; blha blha bla\n\nREturn&#46;\n\n/***************************\n mi mundialmente famosa funcion QuickScope\n&#40;c&#41; 1996-2006 google\nParametros&#58;\n&lt;cTop&gt;&#58; valor superior del scope\n&lt;cBottom&gt;&#58; valor inferior del scope\nNotas&#58;\n1&#41; ambos valores son opcionales, si se omiten el scope se elimina y se\nretorna la base de datos al estado original\n2&#41; si se omite el segundo valor, toma por omision el valor del primero, esto hara un filtro dentro un rango determinado de datos\n3&#41; funciona solo con indices CDX en Clipper, y con NTX y CDX en harbour\n*********************************/\n\nFunction QuickScope&#40;cTop,cBottom&#41;\n   DEFAULT cTop &#58;= NIL\n   DEFAULT cBottom cTop\n   OrdScope&#40;0,cTop&#41;\n   OrdScope&#40;1,cBottom&#41;\n  DBGOTOP&#40;&#41;\nRETURN[/code:3v5dqjox][/list][/code]','',0,'AIA=','3v5dqjox',1,0,'',138,0,0),(20268,4546,4,68,0,'203.13.90.2',1160616243,1,0,1,1,1,1,'','','Dutch\nVia File Exporer have you tried opening a path to the NW5 server eg Open Path to \\\\MyNW5Server\\MyDir  then use full pathname in PPC for remote file usage. Works fine for std windows lan. hth.','',0,'AIA=','1iqy9yv4',1,0,'',68,0,0),(20269,4282,4,68,0,'203.13.90.2',1160616806,1,0,1,1,1,1,'','','Richard\nMy application writes out via BT using similar code.  Except I always use:\n#define GENERIC_REWRITE 0xC0000000 \ninstead.\nMonitoring is a problem - the emulator is flaky and BillSerialMonitor doesn\'t like BT ports...\nhth','',0,'AIA=','3lunl7i9',1,0,'',68,0,0),(20270,4574,19,215,0,'189.136.217.216',1160618687,1,0,1,1,1,0,'','OT:  Visual Basic 6','Buenas foro,\n\nNecesito una licencia de Visual Basic 6.0 ORIGINAL.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEl asunto es este:\nRecien conseguí un nuevo cliente y el ex programador trabajaba en una versión pirata. Lo malo del asunto es que este cliente tiene un programa comercial y tiene licencia pirata. La conciencia le ha molestado y ya se está preocupando por conseguir el software original.\n\nYo me ofrecí a cambiarle su programa a Fivewin, pero eso me llevaría muchos meses. Mientras tanto solo tengo una interface con su programa.\n\nEn sintexis.\nSi alguien sabe donde conseguir una licencia original del VB 6. Alguien que ya no la use y quiera venderla. Favor de decirmelo.\n\nGracias\nFernando\nMéxico, DF','',0,'AIA=','2doqo8kl',1,0,'',215,0,0),(20271,4575,3,215,0,'189.136.217.216',1160620405,1,0,1,1,1,0,'','Where\'s auto text in gets ???','I looking for this class..\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1786\">http://fivetechsoft.com/forums/viewtopic.php?t=1786</a><!-- m -->\n\nThanks\nFernando','',0,'AIA=','1617bjlt',1,0,'',215,0,0),(20272,4546,4,47,0,'61.91.191.9',1160621272,1,0,1,1,1,0,'','','Dear Jon,\n\nI tried but it cannot open (*The network path was not found*).  I can ping the NW5 server IP via Network Browser Program on PPC.  How can I map the network drive?\n\nBest regards,\nDutch','',0,'AIA=','15kqc6q9',1,0,'',47,0,0),(20273,4572,7,2,0,'87.218.146.235',1160637334,1,0,1,1,1,1,'','','Ignacio,\n\nSon funciones que no proporciona Windows Mobile y para las que tenemos que buscar un reemplazo.','',0,'AIA=','iz0nw7ec',1,0,'',2,0,0),(20274,4519,3,2,0,'87.218.146.235',1160637438,1,0,1,1,1,1,'','','Uwe,\n\nRochinha has provided you a valid answer.','',0,'AIA=','27o67ot6',1,0,'',2,0,0),(20275,4282,4,2,0,'87.218.146.235',1160637522,1,0,1,1,1,1,'','','Richard,\n\nSorry, we don\'t know how to monitorize it yet.','',0,'AIA=','32q8q5et',1,0,'',2,0,0),(20276,4566,6,2,0,'87.218.146.235',1160637772,1,0,1,1,1,1,'','','Jose,\n\nEsa clase pertenece a FWH y no es de libre descarga. Necesitas una versión actualizada de FWH.','',0,'AIA=','1o3wwnru',1,0,'',2,0,0),(20277,4552,6,2,0,'87.218.146.235',1160637830,1,0,1,1,1,1,'','','Jackson,\n\nPuedes proporcionar un pequeño ejemplo de lo que comentas ? gracias,','',0,'AIA=','20r0mlm0',1,0,'',2,0,0),(20278,4570,2,2,0,'87.218.146.235',1160637908,1,0,1,1,1,1,'','','Pedro,\n\nTienes que usar sockets.','',0,'AIA=','10xkpsop',1,0,'',2,0,0),(20279,4519,3,810,0,'84.172.61.207',1160638352,1,0,1,1,1,0,'','','Yes i read it but im searching for a solution with active x \n\ni want to use it in a FW Dialog \n\nTx Uwe D','',0,'AIA=','2tenrvsc',1,0,'',810,0,0),(20280,4571,6,127,0,'83.35.190.116',1160641411,1,0,1,1,1,0,'','','Muchas gracias Rene, no encuentro en ningún sitio la librería esa que me dices OLEAUTOMAT.LIB, pero lo he compilado con xHarbour y me da el siguiente error:\n\nError description: Error TOleAuto/-1  CO_E_CLASSSTRING: TOLEAUTO:NEW\n   Args:\n     [   1] = C   Excel.Application\n\nStack Calls\n===========\n   Called from:  =&gt; THROW(0)\n   Called from: win32ole.prg =&gt; TOLEAUTO:NEW(319)\n   Called from: ExcelDbf.prg =&gt; MAIN(7)\n\nel código es el mismo que publicas tu en otro post:\n #include \"FiveWin.ch\" \n\n Function Main()\n\n  LOCAL oExcel, oHoja, nRows, nCols \n    LOCAL TCampos:={}, nRow, nCol \n\n    oExcel := TOleAuto():New( \"Excel.Application\" ) \n\n    oExcel:Visible := .T. // por si quieres ver la hoja abierta \n\n    oExcel:WorkBooks:Open(cGetFile(\"*.XLS\", \"Seleccione Fichero\")) \n\n    oHoja := oExcel:Get( \"ActiveSheet\" ) \n\n    nRows := oHoja:UsedRange:Rows:Count() \n    nCols := oHoja:UsedRange:Columns:Count() \n/*\n   USE &lt;tu dbf&gt; \n\n   FOR nRow := 2 TO nRows \n      APPEND BLANK \n      FOR nCol := 1 TO nCols \n         xValue := oHoja:Cells(nRow,nCol):Value \n         FieldPut(nCol,xValue) \n         SysRefresh() \n      NEXT \n      DBCOMMIT() \n      Memory(-1) \n   NEXT \n*/\n   oExcel:Quit() \n   oHoja:End() \n   oExcel:End() \n\n Return NIL\n\nSupongo que estaré haciendo algo mal pero no se el qué.\n\nSi esto llega a funcionar con xHarbour haré un ejecutable aparte que llamaré desde mi aplicaión compilada con harbour.\n\nMuchas gracias de nuevo y un saludo.','',0,'','11y1bl0l',1,0,'',127,0,0),(20281,4519,3,2,0,'87.218.146.235',1160645776,1,0,1,1,1,1,'','','Uwe,\n\nPlease review samples\\webexp.prg','',0,'','1fz9jn86',1,0,'',2,0,0),(20282,4576,4,833,0,'81.74.125.87',1160646127,1,0,1,1,1,0,'','SOY NUEVO EN ESTO DEL FWPPC','Saludos,\n\nTrabajo en una empresa como programador. ultimamente nacio la necesidad de utilizar Pocketc Pc per el trabajo de prelevar los pedidos de nuestros clientes. son Pockets enlazados a la red en forma inalambrica. quisiera saber como iniciar. he escuchado que se me haria mas facil ya que el gestional de nuestra empresa esta desarrollado en Visual FoxPro 8.0 ya en pasado desarrolle aplicaciones en Clipper, pero esta seria mi primera vez en años. \n\nQues es lo que tengo que hacer para empezar? algun manual-guia para poder orientarme donde lo consigo?\n\nque programas necesito comprar para iniciar a programar para Pockect PC?\n\nquisiera un poco de luz para el camino que tengo que seguir...\n\nGracias a los que respondan.\n\n\nEnrique Vasquez\nGenova - Italia','',0,'','1vzsd6aq',1,0,'',833,0,0),(20283,4143,1,170,0,'80.170.237.128',1160647833,1,0,1,1,1,1,'','','ShowOwnedPopups(hWnd, .F.) return not always .T. when there is not\nOwned popups for the window, depending on unknown reason.\nProblem found on a pc with XP Home edition.','',0,'','2w0mi0sm',1,0,'',170,0,0),(20284,4576,4,2,0,'87.218.146.235',1160648196,1,0,1,1,1,1,'','','Enrique,\n\n&gt;\nQue es lo que tengo que hacer para empezar? algun manual-guia para poder orientarme donde lo consigo? \n&gt;\n\nLee la información del producto FWPPC (FiveWin para Pocket PC) en <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwppc.html\">http://www.fivetechsoft.com/spanish/fwppc.html</a><!-- m -->\n\n&gt;\nque programas necesito comprar para iniciar a programar para Pockect PC? \n&gt;\n\nFWPPC. Puedes comprarlo en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos.\n\nAdemás de los ejemplos que se incluyen y la documentación, va incluida una aplicación completa con código fuente que puedes modificar y usar como base de tu aplicación.','',0,'','1oe5b3x9',1,0,'',2,0,0),(20285,4497,6,9,0,'85.53.79.198',1160649295,1,0,1,1,1,1,'','','Muchas gracias Raymundo y Vikthor.- Todo se ha solucionado.','',0,'','31lden85',1,0,'',9,0,0),(20286,4577,3,805,0,'88.36.233.74',1160649679,1,0,1,1,1,0,'','Msginfo Problem','Hi to all FWH users!!\n\nTest this:\nMsginfo(DATE()) .\n\nI\'ve GPF error .\n\nNormally i use dont\'use this but today i\'m making some test and I\'ve found it.\n\nIf you write MSGINFO(dtoc(DATE())) all is ok.\n\nBye\nGiuliano','',0,'','32i62fhk',1,0,'',805,0,0),(20287,4578,1,161,0,'213.119.247.171',1160654077,1,0,1,1,1,0,'','Listbox split','Hi,\n\nIs there a possibility to split a listbox in two?\nNow I have create two seperate listboxes. The first one contain the first part of the data, and the second the rest.\nIt would be nice if I browse the first one, and if the last record on the screen is displayed, \nthe next will be the first of the second listbox.\n\nWhat I want is:\n\n[code:1rqtqv9p]LISTBOX 1    LISTBOX 2\n\nITEM 01      ITEM 13\nITEM 02      ITEM 14\nITEM 03      ITEM 15\nITEM 04      ITEM 16\nITEM 05      ITEM 17\nITEM 06      ITEM 18\nITEM 07      ITEM 19\nITEM 08      ITEM 20\nITEM 09      ITEM 21\nITEM 10      ITEM 22\nITEM 11      ITEM 23\nITEM 12      ITEM 24[/code:1rqtqv9p]\n\nIf \'ITEM 12\' is selected and you press the DOWN-key, ITEM 13 should be selected.\nIf \'ITEM 24\' is selected and you press the DOWN-key, listbox 2 and listbox 1 should scoll down, and ITEM 25 should me selected.\n\nIs this possible?\n\nThanks,\nMarc','',0,'AIA=','1rqtqv9p',1,0,'',161,0,0),(20288,4544,3,31,0,'195.182.84.105',1160656839,1,0,1,1,1,1,'','Re: preview colours','[quote=&quot;AlexSchaft&quot;:3t2azln1]Thanks, found the problem\n\nWe have converted rpreview to be a class, and I had missed the addtion of oBar:Refresh()\n\nAlex[/quote:3t2azln1]\n\n   Alex , can you share with your converted class ? \n\n   With best regards !','',0,'gA==','3t2azln1',1,0,'',31,0,0),(20289,4565,7,106,0,'85.34.123.173',1160657060,1,0,0,1,1,1,'','','Buenisimo!!! justo estaba buscando uno.','',0,'gA==','1d4l1lwq',1,0,'',106,0,0),(20290,4282,4,3,0,'82.120.28.175',1160658329,1,0,1,1,1,1,'','','[quote=&quot;Jon Munro&quot;:1v4tej0u]Richard\nMy application writes out via BT using similar code.  Except I always use:\n#define GENERIC_REWRITE 0xC0000000 \ninstead.\nMonitoring is a problem - the emulator is flaky and BillSerialMonitor doesn\'t like BT ports...\nhth[/quote:1v4tej0u]\n\nJon\n\nThank you for the reply, but still with GENERIC_REWRITE this printer will not print from fwppc.... I really do not know why ! I can print the txt file from the print panel without problems but not from my app.\n\nRichard','',0,'gA==','1v4tej0u',1,0,'',3,0,0),(20291,4282,4,3,0,'82.120.28.175',1160658421,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2szd25lc]Richard,\n\nSorry, we don\'t know how to monitorize it yet.[/quote:2szd25lc]\n\nAntonio   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNot a problem for the moment, i am just puzzled why it does not want to print. \n\nI will try next week on another type of BT printer.\n\nRegards\n\nRichard','',0,'gA==','2szd25lc',1,0,'',3,0,0),(20292,4579,20,154,0,'151.21.75.51',1160658593,1,0,1,1,1,1,'','Incolla su TGet','In un Redefine Get cercando di incollare del testo copiato da un\'altro campo identico, ne incolla solo la prima parte e sempre della stessa lunghezza, ho provato a creare un prg di demo ma funziona perfettamente  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nQualche suggerimento?\n\nGrazie.','',0,'gA==','2pt0bkn5',1,0,'',154,0,0),(20293,4577,3,6,0,'87.6.210.143',1160658612,1,0,1,1,1,1,'','Re: Msginfo Problem','I confirm the problem.\n\nEMG','',0,'gA==','1k8vg0t0',1,0,'',6,0,0),(20294,4579,20,6,0,'87.6.210.143',1160658711,1,0,1,1,1,1,'','Re: Incolla su TGet','Prova a mettere la spunta su Automatic scroll -&gt; Horizontal nelle proprietà della GET.\n\nEMG','',0,'gA==','2roepefk',1,0,'',6,0,0),(20295,4579,20,154,0,'151.21.75.51',1160658935,1,0,1,1,1,1,'','Re: Incolla su TGet','[quote=&quot;EnricoMaria&quot;:2ispud6x]Prova a mettere la spunta su Automatic scroll -&gt; Horizontal nelle proprietà della GET.\n\nEMG[/quote:2ispud6x]\n\nPiù veloce della luce!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nFunziona alla grande,\ngrazie!','',0,'gA==','2ispud6x',1,0,'',154,0,0),(20296,4580,6,52,0,'201.212.71.153',1160659188,1,0,1,1,1,1,'','[16 a 32]: Variables no declaradas en 16 bits...','Gente,\n\nSi tengo esto:\n\n[code:26vs4c6i]function suma&#40; x, y &#41;\n   z&#58;= x + y\n   return &#40; z &#41;[/code:26vs4c6i]\n\nAsumiendo que es un ejemplo y que la \"z\" no esta declarada, cuando tenía esa definicion en clipper + FW las variables se tomaban como privadas al no declararla; es así?\n\nAhora en xHarbour, no pasa lo mismo?','',0,'AIA=','26vs4c6i',1,0,'',52,0,0),(20297,4544,3,32,0,'168.209.98.43',1160659496,1,0,1,1,1,0,'','rpreview class','There might still be changes coming\n\n[url:263cptc1]http&#58;//home&#46;quicksoftware&#46;co&#46;za/rpreview&#46;zip[/url:263cptc1]','',0,'EA==','263cptc1',1,0,'',32,0,0),(20298,4570,2,832,0,'201.122.21.224',1160660149,1,0,1,1,1,0,'','ayuda','oye y no tienes un pequeño ejemplo de como hacerlo, porque yo la verdad no se nada de sockets','',0,'EA==','37escqpy',1,0,'',832,0,0),(20299,4581,2,832,0,'201.122.21.224',1160660303,1,0,1,1,1,0,'','COMO UTILIZAR sockets','ALGUIEN ME PODRIA AYUDAR PARA CONOCER ALGO DE sockets., O ENVIAR UN PEQUEÑO EJEMPLO DE UN SOCKET,\nLO QUE PASA QUE QUIERO ENVIAR VALORES DE VARIBLES POR MEDIO DE SOCKET','',0,'EA==','b9lhsri8',1,0,'',832,0,0),(20300,4582,6,278,0,'200.72.147.243',1160663184,1,0,1,1,1,1,'','Cuanto cuesta ?','Hola Rene:\n\nCuanto cuestan las librerias en dólares ?  ( detallar c/u )\n\nComo se puede pagar , tarjeta credito - western union ?\n\nPor favor darnos esta información , me apura comprar este ultimo vtaskbar.\n\nConsulta, los upgrades gratis por cuanto tiempo son ?\n\nAlgun correo de contacto, la página de canalfive esta sin datos.\n\nSaludos,\n\nJC','',0,'EA==','3s918ku2',1,0,'',278,0,0),(20301,4583,3,234,0,'75.34.217.174',1160664872,1,0,1,1,1,1,'','Problem reading text file','I am having a problem when reading text from a file. The file is large 1.5MB to 4MB (200,000 lines or more). Usuaally around 100,000 lines the program exits prematurely with no errors. I would appreciate any help. Here is the code for reading file.\n\n             DO WHILE ! lEof\n\n                // Init...\n                cLine   := \"\"\n\n                // Read...\n                Ureadln( hCTS, @cLine, 1, @lEof )\n\n                // Criteria...\n                IF EMPTY( cLine )\n                   LOOP\n                ENDIF\n                nLine++\n\n                // Log...\n                cDat := cCTS + \" EOF = \" + IF(lEof,\"YES\",\"NO\") + \" = \" + LTRIM(TRANSF(nLine,\"999,999\")) + cEol\n                FWRITE( hLog, cDat )\n\n                // Tag...\n                cTag   := UPPER( LEFT( cLine, AT(\"*\",cLine)-1 ) )\n                cValue := UPPER( SUBSTR( cLine, AT(\"*\",cLine)+1 ) )\n\n                DO CASE\n                   CASE ( cTag == \"OVERSEAS\" )\n                        cOverseas := cValue\n                   CASE ( cTag == \"USA\"      )\n                        cUsa      := cValue\n                   CASE ( cTag == \"PROFILE\"  )\n                        cProfile  := cValue\n\n                   CASE ( cTag == \"SHIPNAME\" )\n                        cShipname := cValue\n                   CASE ( cTag == \"SHIPADD1\" )\n                        cShipadd1 := cValue\n                   CASE ( cTag == \"SHIPADD2\" )\n                        cShipadd2 := cValue\n                   CASE ( cTag == \"SHIPADD3\" )\n                        cShipadd3 := cValue\n                   CASE ( cTag == \"SHIPADD4\" )\n                        cShipadd4 := cValue\n\n                   CASE ( cTag == \"SVC\"      )\n                        cSvc      := cValue\n                   CASE ( cTag == \"REF\"      )\n                        cRef      := cValue\n                   CASE ( cTag == \"MBL\"      )\n                        cMbl      := cValue\n                   CASE ( cTag == \"HBL\"      )\n                        cHbl      := cValue\n                   CASE ( cTag == \"BKG\"      )\n                        cBkg      := cValue\n\n                   CASE ( cTag == \"CONSNAME\" )\n                        cConsname := cValue\n                   CASE ( cTag == \"CONSADD1\" )\n                        cConsadd1 := cValue\n                   CASE ( cTag == \"CONSADD2\" )\n                        cConsadd2 := cValue\n                   CASE ( cTag == \"CONSADD3\" )\n                        cConsadd3 := cValue\n                   CASE ( cTag == \"CONSADD4\" )\n                        cConsadd4 := cValue\n\n                   CASE ( cTag == \"NOTINAME\" )\n                        cNotiname := cValue\n                   CASE ( cTag == \"NOTIADD1\" )\n                        cNotiadd1 := cValue\n                   CASE ( cTag == \"NOTIADD2\" )\n                        cNotiadd2 := cValue\n                   CASE ( cTag == \"NOTIADD3\" )\n                        cNotiadd3 := cValue\n                   CASE ( cTag == \"NOTIADD4\" )\n                        cNotiadd4 := cValue\n\n                   CASE ( cTag =  \"RCPTCD\"   )\n                        cRcptcd   := cValue\n                   CASE ( cTag == \"RCPT\"     )\n                        cRcpt     := cValue\n                   CASE ( cTag == \"POLCD\"    )\n                        cPolcd    := cValue\n                   CASE ( cTag == \"POL\"      )\n                        cPol      := cValue\n                   CASE ( cTag == \"POULCD\"   )\n                        cPoulcd   := cValue\n                   CASE ( cTag == \"POUL\"     )\n                        cPoul     := cValue\n                   CASE ( cTag == \"DSTCD\"    )\n                        cDstcd    := cValue\n                   CASE ( cTag == \"DEST\"     )\n                        cDest     := cValue\n                   CASE ( cTag == \"CARRIER\"  )\n                        cCarrier  := cValue\n                   CASE ( cTag == \"VESSEL\"   )\n                        cVessel   := cValue\n                   CASE ( cTag == \"VOY\"      )\n                        cVoy      := cValue\n                   CASE ( cTag == \"COMM\"     )\n                        cComm     := cValue\n                   CASE ( cTag == \"PCS\"      )\n                        cPcs      := cValue\n                   CASE ( cTag == \"PKG\"      )\n                        cPkg      := cValue\n                   CASE ( cTag == \"KGS\"      )\n                        cKgs      := cValue\n                   CASE ( cTag == \"CBM\"      )\n                        cCbm      := cValue\n                   CASE ( cTag == \"ETD\"      )\n                        cEtd      := cValue\n                   CASE ( cTag == \"ETA\"      )\n                        cEta      := cValue\n                   CASE ( cTag == \"WK\"       )\n                        cWk       := cValue\n\n                   CASE ( cTag == \"SONO\"     )\n                        cSoNo     := cValue\n                   CASE ( cTag == \"OBL\"      )\n                        cObtype   := cValue\n                   CASE ( cTag == \"DOOR\"     )\n                        cDoor     := cValue\n                   CASE ( cTag == \"BLFORM\"   )\n                        cBlform   := cValue\n\n                   CASE ( cTag == \"SALES\"    )\n                        cSales    := cValue\n                   CASE ( cTag == \"DOCDATE\"  )\n                        cDocdate  := cValue\n\n                   CASE ( cTag == \"CTNR\"     )\n                        nCtnr++\n                        aCtnr[nCtnr] := cValue\n\n                   CASE ( cTag == \"PONO\"     )\n                        nPo++\n                        aPo[nPo] := cValue\n\n                   CASE ( cTag == \"END\"      )\n                        lStart := .T.\n                ENDCASE\n\n                // Update...\n                IF lStart\n\n                   // Init...\n                   lProcess := .T.\n                   lEmail   := .F.\n                   lDest    := .F.\n                   cUsa1    := \"\"\n                   lObl     := .F.\n                   cObl1    := \"\"\n                   cTo      := \"\"\n                   cCClist  := \"\"\n                   cSubject := \"Apex_CTS_destination_station_change\"\n\n                   cSay := \"Uploading RCA \" + cOverseas + \" - \" + cHbl + \" . . .\"\n                   oSay:Refresh()\n                   SysRefresh()\n\n                   SELECT rca\n                   SET ORDER TO TAG S5\n                   GO TOP\n                   SEEK LEFT( cHbl + SPACE(20), 20 )\n                   IF ! FOUND()\n                      APPEND BLANK\n                    ELSE\n                      cUsa1 := rca-&gt;usa\n                      cObl1 := rca-&gt;obltype\n                   ENDIF\n                   DO WHILE (.T.)\n                      IF rca-&gt;( rlock() )\n                         rca-&gt;shipname       := cShipname\n                         rca-&gt;shipadd1       := cShipadd1\n                         rca-&gt;shipadd2       := cShipadd2\n                         rca-&gt;shipadd3       := cShipadd3\n                         rca-&gt;shipadd4       := cShipadd4\n                         rca-&gt;consname       := cConsname\n                         rca-&gt;consadd1       := cConsadd1\n                         rca-&gt;consadd2       := cConsadd2\n                         rca-&gt;consadd3       := cConsadd3\n                         rca-&gt;consadd4       := cConsadd4\n                         rca-&gt;notiname       := cNotiname\n                         rca-&gt;notiadd1       := cNotiadd1\n                         rca-&gt;notiadd2       := cNotiadd2\n                         rca-&gt;notiadd3       := cNotiadd3\n                         rca-&gt;notiadd4       := cNotiadd4\n                         rca-&gt;mode           := \"O\"\n                         rca-&gt;trans          := \"E\"\n                         rca-&gt;svc            := cSvc\n                         rca-&gt;ref            := cRef\n                         rca-&gt;master         := cMbl\n                         rca-&gt;house          := cHbl\n                         rca-&gt;booking        := cBkg\n                         rca-&gt;orgcd          := cRcptcd\n                         rca-&gt;origin         := cRcpt\n                         rca-&gt;polcd          := cPolcd\n                         rca-&gt;pol            := cPol\n                         rca-&gt;poulcd         := cPoulcd\n                         rca-&gt;poul           := cPoul\n                         rca-&gt;destcd         := cDstcd\n                         rca-&gt;dest           := cDest\n                         rca-&gt;plccd          := cDstcd\n                         rca-&gt;plc_delv       := cDest\n                         rca-&gt;carrier        := cCarrier\n                         rca-&gt;vessel         := cVessel\n                         rca-&gt;voyage         := cVoy\n                         rca-&gt;comm           := cComm\n                         rca-&gt;pcs            := VAL( cPcs )\n                         rca-&gt;pkg            := cPkg\n                         rca-&gt;kgs            := VAL( cKgs )\n                         rca-&gt;cm             := VAL( cCbm )\n                         rca-&gt;etd            := CTOD( cEtd )\n                         rca-&gt;eta            := CTOD( cEta )\n                         rca-&gt;date           := DATE()\n                         rca-&gt;time           := TIME()\n                         rca-&gt;serial         := cRef\n                         rca-&gt;overseas       := cOverseas\n                         rca-&gt;usa            := cUsa\n                         rca-&gt;week           := cWk\n                         rca-&gt;sono           := cSoNo\n                         rca-&gt;obltype        := cObtype\n                         rca-&gt;door           := cDoor\n                         rca-&gt;blform         := cBlform\n                         rca-&gt;sales1         := cSales\n                         rca-&gt;docdate        := CTOD( cDocdate )\n                         rca-&gt;lastdate       := DATE()\n                         rca-&gt;lasttime       := LEFT(TIME(),5)\n\n                         // USA Destination changes...\n                         IF ! EMPTY( cUsa1 )\n                            IF ! ( ALLTRIM( cUsa1 ) == ALLTRIM( cUsa ) )\n                               rca-&gt;manifest := \"\"\n                               rca-&gt;file     := \"\"\n                               rca-&gt;usaold   := cUsa1\n                               rca-&gt;usadate  := DATE()\n                               rca-&gt;usatime  := TIME()\n                               rca-&gt;prthd    := CTOD( \"  /  /  \" )\n                               rca-&gt;prtmd    := CTOD( \"  /  /  \" )\n                               rca-&gt;prtfd    := CTOD( \"  /  /  \" )\n                               rca-&gt;prtid    := CTOD( \"  /  /  \" )\n                               lEmail        := .T.\n                               lDest         := .T.\n                            ENDIF\n                         ENDIF\n\n                         IF ! EMPTY( cObl1 )\n                            IF ( ALLTRIM( cObl1 )$\"3S\" ) .AND. ( ALLTRIM(cObtype)=\"0\" )\n                               rca-&gt;obltypeold  := cObl1\n                               rca-&gt;obltypedte  := DATE()\n                               rca-&gt;obltypetme  := TIME()\n                               lEmail           := .T.\n                               lObl             := .T.\n                            ENDIF\n                         ENDIF\n\n                         rca-&gt;( dbunlock() )\n                         EXIT\n                      ENDIF\n                   ENDDO\n                   rca-&gt;( dbcommit() )\n\n                   // Email...\n                   IF lEmail\n\n                      DO CASE\n                         CASE lDest .AND. lObl\n                              cSubject := \"Apex_CTS_destination_station_change_AND_telex_release_notification\"\n                         CASE lDest\n                              cSubject := \"Apex_CTS_destination_station_change\"\n                         CASE lObl\n                              cSubject := \"Apex_CTS_telex_release_notification\"\n                      ENDCASE\n\n                      // Init...\n                      cTo := <!-- e --><a href=\"mailto:\'info@cdmsoft.com\">\'info@cdmsoft.com</a><!-- e -->\'\n                      cCClist := \"&lt;darrell.ortiz@cdmsoft.com&gt;\"\n\n                      cMsg := LEFT( \"EMAIL TO\"              + SPACE(20), 20 ) + \" : \" + cTo           + cEol\n                      cMsg += LEFT( \"EMAIL CC\"              + SPACE(20), 20 ) + \" : \" + cCClist       + cEol\n                      cMsg += LEFT( \"ORIGIN STATION\"        + SPACE(20), 20 ) + \" : \" + cOverseas     + cEol\n                      cMsg += LEFT( \"OLD USA STATION\"       + SPACE(20), 20 ) + \" : \" + cUsa1         + cEol\n                      cMsg += LEFT( \"NEW USA STATION\"       + SPACE(20), 20 ) + \" : \" + cUsa          + cEol\n                      cMsg += LEFT( \"APEX HBL\"              + SPACE(20), 20 ) + \" : \" + cHbl          + cEol\n                      cMsg += LEFT( \"MBL\"                   + SPACE(20), 20 ) + \" : \" + cMbl          + cEol\n                      cMsg += LEFT( \"CARRIER\"               + SPACE(20), 20 ) + \" : \" + cCarrier      + cEol\n                      cMsg += LEFT( \"VESSEL\"                + SPACE(20), 20 ) + \" : \" + cVessel       + cEol\n                      cMsg += LEFT( \"VOYAGE\"                + SPACE(20), 20 ) + \" : \" + cVoy          + cEol\n                      cMsg += LEFT( \"ETD\"                   + SPACE(20), 20 ) + \" : \" + cEtd          + cEol\n                      cMsg += LEFT( \"PORT OF LOADING\"       + SPACE(20), 20 ) + \" : \" + cPol          + cEol\n                      cMsg += LEFT( \"PORT OF DISCHARGE\"     + SPACE(20), 20 ) + \" : \" + cPoul         + cEol\n                      cMsg += LEFT( \"ETA\"                   + SPACE(20), 20 ) + \" : \" + cEta          + cEol\n                      cMsg += LEFT( \"FINAL DESTINATION\"     + SPACE(20), 20 ) + \" : \" + cDest         + cEol\n                      cMsg += LEFT( \"SHIPPER\"               + SPACE(20), 20 ) + \" : \" + cShipname     + cEol\n                      cMsg += LEFT( \"CONSIGNEE\"             + SPACE(20), 20 ) + \" : \" + cConsname     + cEol\n                      cMsg += LEFT( \"OBL TYPE\"              + SPACE(20), 20 ) + \" : \" + cObtype       + cEol\n\n                      // Create file...\n                      cMsgfile = ALLTRIM(cHbl)+\".TXT\"\n                      hCts = FCREATE( cMsgfile, 0)\n                      FWRITE( hCts, cMsg )\n                      FCLOSE( hCts )\n\n                      // Send email...\n                      IF ! EMPTY( cTo )\n                         cCmd := \"mailer \" + cFrom + \' \' + cTo + \' \' + cSubject + \' \' + cMsgfile + \' \' + cCClist\n                         WaitRun( cCmd, 2 )\n                      ENDIF\n                   ENDIF\n\n                   cSay := \"Resetting RCACTNR \" + cOverseas + \" - \" + cHbl + \" . . .\"\n                   oSay:Refresh()\n                   SysRefresh()\n\n                   // RCACTNR...\n                   SELECT rcactnr\n                   SET ORDER TO TAG S1\n                   GO TOP\n                   SEEK rca-&gt;serial\n                   IF FOUND()\n                      DO WHILE ! EOF() .AND. ( rca-&gt;serial == rcactnr-&gt;serial )\n                         DO WHILE (.T.)\n                            IF rcactnr-&gt;( rlock() )\n                               rcactnr-&gt;code    := SPACE(1)\n                               rcactnr-&gt;( dbunlock() )\n                               EXIT\n                            ENDIF\n                         ENDDO\n                         SELECT rcactnr\n                         SKIP\n                      ENDDO\n                   ENDIF\n\n                   cSay := \"Resetting RCAPO \" + cOverseas + \" - \" + cHbl + \" . . .\"\n                   oSay:Refresh()\n                   SysRefresh()\n\n                   // RCAPO...\n                   DO WHILE (.T.)\n                      SELECT rcapo\n                      SET ORDER TO TAG S1\n                      GO TOP\n                      SEEK rca-&gt;serial\n                      IF FOUND()\n                         DO WHILE (.T.)\n                            IF rcapo-&gt;( rlock() )\n                               rcapo-&gt;( dbdelete() )\n                               rcapo-&gt;( dbunlock() )\n                               EXIT\n                            ENDIF\n                         ENDDO\n                       ELSE\n                         EXIT\n                      ENDIF\n                   ENDDO\n\n                   // Container...\n                   FOR nC=1 TO nCtnr\n\n                       // Init...\n                       cCC := aCtnr[nC]\n                       nCC := 0\n                       cTT := \"\"\n                       AFILL( aCC, \"\" )\n\n                       FOR nC1=1 TO LEN(cCC)\n                           cChar := SUBSTR( cCC, nC1, 1 )\n                           IF cChar=\"*\" .OR. ( nC1 = LEN(cCC) )\n                              IF (nCC&lt;9)\n                                 IF ( nC1 = LEN(cCC) )\n                                    cTT += cChar\n                                 ENDIF\n                                 nCC++\n                                 aCC[nCC] := cTT\n                              ENDIF\n                              cTT      := \"\"\n                            ELSE\n                              cTT      += cChar\n                           ENDIF\n                       NEXT nC1\n\n                       cSay := \"Uploading RCACTNR \" + cOverseas + \" - \" + cHbl + \" . . .\"\n                       oSay:Refresh()\n                       SysRefresh()\n\n                       // Update...\n                       SELECT rcactnr\n                       SET ORDER TO TAG S1\n                       GO TOP\n                       SEEK LEFT( cRef + SPACE(10), 10) + LEFT( aCC[01] + SPACE(15), 15 )\n                       IF ! FOUND()\n                          APPEND BLANK\n                       ENDIF\n                       DO WHILE (.T.)\n                          IF rcactnr-&gt;( rlock() )\n                             rcactnr-&gt;serial         := cRef\n                             rcactnr-&gt;ctnr           := aCC[01]\n                             rcactnr-&gt;size           := aCC[02]\n                             rcactnr-&gt;seal           := aCC[03]\n                             rcactnr-&gt;pcs            := VAL(aCC[04])\n                             rcactnr-&gt;uom            := aCC[05]\n                             rcactnr-&gt;svc            := aCC[06]\n                             rcactnr-&gt;kgs            := VAL(aCC[07])\n                             rcactnr-&gt;cbm            := VAL(aCC[08])\n                             rcactnr-&gt;packmemo       := aCC[09]\n                             rcactnr-&gt;code           := \"U\"\n                             rcactnr-&gt;( dbunlock() )\n                             EXIT\n                          ENDIF\n                       ENDDO\n                       rcactnr-&gt;( dbcommit() )\n\n                   NEXT nC\n\n                   // Remove Non-Updated containers...\n                   DO WHILE (.T.)\n                      SELECT rcactnr\n                      SET ORDER TO TAG S2\n                      GO TOP\n                      SEEK rca-&gt;serial + SPACE(1)\n                      IF FOUND()\n                         DO WHILE (.T.)\n                            IF rcactnr-&gt;( rlock() )\n                               rcactnr-&gt;( dbdelete() )\n                               rcactnr-&gt;( dbunlock() )\n                               EXIT\n                            ENDIF\n                         ENDDO\n                       ELSE\n                         EXIT\n                      ENDIF\n                   ENDDO\n\n                   // Purchase Orders...\n                   FOR nP=1 TO nPo\n\n                       // Init...\n                       cCC := aPo[nP]\n                       nCC := 0\n                       cTT := \"\"\n                       AFILL( aCC, \"\" )\n\n                       FOR nC1=1 TO LEN(cCC)\n                           cChar := SUBSTR( cCC, nC1, 1 )\n                           IF cChar=\"*\" .OR. ( nC1 = LEN(cCC) )\n                              IF ( nC1 = LEN(cCC) )\n                                 cTT += cChar\n                              ENDIF\n                              nCC++\n                              aCC[nCC] := cTT\n                              cTT      := \"\"\n                            ELSE\n                              cTT      += cChar\n                           ENDIF\n                       NEXT nC1\n\n                       cSay := \"Uploading RCAPO \" + cOverseas + \" - \" + cHbl + \" . . .\"\n                       oSay:Refresh()\n                       SysRefresh()\n\n                       // Update...\n                       SELECT rcapo\n                       SET ORDER TO TAG S1\n                       GO TOP\n                       SEEK LEFT( cRef + SPACE(10), 10) + LEFT( aCC[01] + SPACE(35), 35 ) + LEFT( aCC[02] + SPACE(35), 35 ) + LEFT( aCC[04] + SPACE(15), 15 )\n                       IF ! FOUND()\n                          APPEND BLANK\n                       ENDIF\n                       DO WHILE (.T.)\n                          IF rcapo-&gt;( rlock() )\n                             rcapo-&gt;serial         := cRef\n                             rcapo-&gt;ponum          := aCC[01]\n                             rcapo-&gt;invoice        := aCC[02]\n                             rcapo-&gt;item           := aCC[03]\n                             rcapo-&gt;ctnr           := aCC[04]\n                             rcapo-&gt;( dbunlock() )\n                             EXIT\n                          ENDIF\n                       ENDDO\n                       rcapo-&gt;( dbcommit() )\n                   NEXT nP\n\n                   // Init...\n                   cOverseas := \"\"\n                   cUsa      := \"\"\n                   cProfile  := \"\"\n                   cShipname := \"\"\n                   cShipadd1 := \"\"\n                   cShipadd2 := \"\"\n                   cShipadd3 := \"\"\n                   cShipadd4 := \"\"\n                   cSvc      := \"\"\n                   cRef      := \"\"\n                   cMbl      := \"\"\n                   cHbl      := \"\"\n                   cBkg      := \"\"\n                   cConsname := \"\"\n                   cConsadd1 := \"\"\n                   cConsadd2 := \"\"\n                   cConsadd3 := \"\"\n                   cConsadd4 := \"\"\n                   cNotiname := \"\"\n                   cNotiadd1 := \"\"\n                   cNotiadd2 := \"\"\n                   cNotiadd3 := \"\"\n                   cNotiadd4 := \"\"\n                   cRcptcd   := \"\"\n                   cRcpt     := \"\"\n                   cPolcd    := \"\"\n                   cPol      := \"\"\n                   cPoulcd   := \"\"\n                   cPoul     := \"\"\n                   cDstcd    := \"\"\n                   cDest     := \"\"\n                   cCarrier  := \"\"\n                   cVessel   := \"\"\n                   cVoy      := \"\"\n                   cComm     := \"\"\n                   cPcs      := \"\"\n                   cPkg      := \"\"\n                   cKgs      := \"\"\n                   cCbm      := \"\"\n                   cEtd      := \"\"\n                   cDocdate  := \"\"\n                   cEta      := \"\"\n                   cWk       := \"\"\n                   cSoNo     := \"\"\n                   cObtype   := \"\"\n                   cDoor     := \"\"\n                   cBlform   := \"\"\n                   cSales    := \"\"\n                   nCtnr     := 0\n                   nPo       := 0\n                   lStart    := .F.\n                   AFILL( aCtnr, \"\" )\n                   AFILL( aPo  , \"\" )\n\n                ENDIF\n\n             ENDDO\n\n             // Close...\n             FCLOSE( hCTS )\n             FCLOSE( hLog )','',0,'','2v20qq2h',1,0,'',234,0,0),(20302,4568,4,13,0,'213.76.252.200',1160667605,1,0,1,1,1,0,'','','Antonio,\n\nThis is memory log and test procedure for test with new FWPPC build. It\'s look like nothing is change.\n\nRegards\nPawel\n\nMemory before: 40,464,384\n 1 call, before: 40,259,584 after: 39,862,272\n 2 call, before: 39,862,272 after: 39,727,104\n 3 call, before: 39,727,104 after: 39,575,552\n 4 call, before: 39,575,552 after: 39,436,288\n 5 call, before: 39,436,288 after: 39,284,736\n 6 call, before: 39,284,736 after: 39,124,992\n 7 call, before: 39,124,992 after: 38,985,728\n 8 call, before: 38,985,728 after: 38,825,984\n 9 call, before: 38,825,984 after: 38,678,528\n10 call, before: 38,678,528 after: 38,522,880\n11 call, before: 38,522,880 after: 38,375,424\n12 call, before: 38,375,424 after: 38,227,968\n13 call, before: 38,227,968 after: 38,076,416\n14 call, before: 38,076,416 after: 37,916,672\n15 call, before: 37,916,672 after: 37,773,312\n16 call, before: 37,773,312 after: 37,613,568\n17 call, before: 37,613,568 after: 37,474,304\n18 call, before: 37,474,304 after: 37,318,656\n19 call, before: 37,318,656 after: 37,163,008\n20 call, before: 37,163,008 after: 37,027,840\nMemory after: 37,027,840\nMemory lost:  3,436,544\n\ntest procedure:\n[code:2v35se6f]\n#Include \'FwCe&#46;Ch\'\n\n#Define CRLF Chr &#40;13&#41; + Chr &#40;10&#41;\n\nFunction TestMem &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local nHn &#58;= 0\n   Local i &#58;= 0\n   Local j &#58;= 0\n   Local k &#58;= 0\n   Local aMem &#58;= &#123;0, 0&#125;\n\n   nHn &#58;= FCreate &#40;\'MEM&#46;INFO\'&#41;\n   FWrite &#40;nHn, \'Memory before&#58;\' + TransForm &#40;j &#58;= MemInfo &#40;&#41;, \'999,999,999\'&#41; + CRLF&#41;\n\n   Define Window oWnd Title \'Test Memory\'\n   @ 226, 176 Button \'Ok\' Size 60, 20 Pixel Action &#40;aMem&#91;1&#93; &#58;= MemInfo &#40;&#41;, NextWnd &#40;++ i&#41;, aMem&#91;2&#93; &#58;= MemInfo &#40;&#41;, MemStatus &#40;nHn, i, aMem&#41;&#41;\n   Activate Window oWnd\n\n   FWrite &#40;nHn, \' Memory after&#58;\' + TransForm &#40;k &#58;= MemInfo &#40;&#41;, \'999,999,999\'&#41; + CRLF&#41;\n   FWrite &#40;nHn, \'  Memory lost&#58;\' + TransForm &#40;j - k, \'999,999,999\'&#41; + CRLF&#41;\n   FClose &#40;nHn&#41;\n\nReturn &#46;T&#46;\n\nFunction NextWnd &#40;nCnt&#41;\n\n   Local oWnd &#58;= Nil\n   Local cGet &#58;= Space &#40;20&#41;\n\n   Define Window oWnd Title \'Next Window\'\n   @  24,  5 Get cGet Size 50, 20 Pixel\n   @  24, 60 Get cGet Size 50, 20 Pixel\n   @  24,120 Get cGet Size 50, 20 Pixel\n   @  24,180 Get cGet Size 50, 20 Pixel\n   @  46,  5 Get cGet Size 50, 20 Pixel\n   @  46, 60 Get cGet Size 50, 20 Pixel\n   @  46,120 Get cGet Size 50, 20 Pixel\n   @  46,180 Get cGet Size 50, 20 Pixel\n   @  68,  5 Get cGet Size 50, 20 Pixel\n   @  68, 60 Get cGet Size 50, 20 Pixel\n   @  68,120 Get cGet Size 50, 20 Pixel\n   @  68,180 Get cGet Size 50, 20 Pixel\n   @  90,  5 Get cGet Size 50, 20 Pixel\n   @  90, 60 Get cGet Size 50, 20 Pixel\n   @  90,120 Get cGet Size 50, 20 Pixel\n   @  90,180 Get cGet Size 50, 20 Pixel\n   @ 112,  5 Get cGet Size 50, 20 Pixel\n   @ 112, 60 Get cGet Size 50, 20 Pixel\n   @ 112,120 Get cGet Size 50, 20 Pixel\n   @ 112,180 Get cGet Size 50, 20 Pixel\n   @ 134,  5 Get cGet Size 50, 20 Pixel\n   @ 134, 60 Get cGet Size 50, 20 Pixel\n   @ 134,120 Get cGet Size 50, 20 Pixel\n   @ 134,180 Get cGet Size 50, 20 Pixel\n   @ 156,  5 Get cGet Size 50, 20 Pixel\n   @ 156, 60 Get cGet Size 50, 20 Pixel\n   @ 156,120 Get cGet Size 50, 20 Pixel\n   @ 156,180 Get cGet Size 50, 20 Pixel\n   @ 178,  5 Get cGet Size 50, 20 Pixel\n   @ 178, 60 Get cGet Size 50, 20 Pixel\n   @ 178,120 Get cGet Size 50, 20 Pixel\n   @ 178,180 Get cGet Size 50, 20 Pixel\n   @ 200,  5 Get cGet Size 50, 20 Pixel\n   @ 200, 60 Get cGet Size 50, 20 Pixel\n   @ 200,120 Get cGet Size 50, 20 Pixel\n   @ 200,180 Get cGet Size 50, 20 Pixel\n   @ 222,  0 Say \'Window&#58;\' + PadL &#40;nCnt, 3&#41; Size 150, 15 Pixel\n   @ 246, 176 Button \'Close\' Size 60, 20 Pixel Action oWnd &#58; End &#40;&#41;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n\nFunction MemStatus &#40;nHn, nCnt, aMem&#41;\n\n   FWrite &#40;nHn, PadL &#40;nCnt, 2&#41; + \' call, before&#58;\' + TransForm &#40;aMem&#91;1&#93;, \'999,999,999\'&#41; + \' after&#58;\' + TransForm &#40;aMem&#91;2&#93;, \'999,999,999\'&#41; + CRLF&#41;\n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC &#40;MEMINFO&#41;\n&#123;\n   MEMORYSTATUS st;\n   GlobalMemoryStatus &#40;&amp;st&#41;;\n\n   hb_retnl &#40;&#40;ULONG&#41; st&#46;dwAvailPhys&#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:2v35se6f]','',0,'AIA=','2v35se6f',1,0,'',13,0,0),(20303,4584,6,36,0,'200.113.56.235',1160667798,1,0,1,1,1,0,'','ADS ROLLBACK','Hola!!\n\nTengo dos preguntas si alguien me las puede responder\n\nComo funciona AdsRollBack()\n\nHe estado probando que el sistema cree un error y en el errorsys ejecuto la funcion AdsRollBack(), pero igual los datos quedan en las bases, hay algun metodo como hacerlo funcionar\n\notra cosa, en los campos memos no se pueden grabar arreglos, hay que colocar alguna libreria adicional?\n\n\nSaludos\nPatricio','',0,'AIA=','2h4rrno0',1,0,'',36,0,0),(20304,4585,3,394,0,'207.219.124.134',1160669220,1,0,1,1,1,0,'','Is 128 bit encryption available.','I am looking for a way to create 128 bit encryption text to text in memory has anyone accomplished this. I have made sockets to pass data thru the internet and would like to use strong encrypton with them, to protect sensitive data. It would be nice to be able to use a commerical lib I feel that our end users would be more comfortable with.','',0,'AIA=','2dsrs3bk',1,0,'',394,0,0),(20305,4584,6,138,0,'189.141.70.60',1160669402,1,0,1,1,1,1,'','','Patricio:\n\nLAs transacciones con ADS solo funcionan cuando trabajas con el servidor remoto y con el servidor internet, con el servdiro local las instrucciones estan soportadas por compatibilidad pero no hacen nada.\n\nADSRollback() solo funciona si es llamado entre la llamada a un ADSBeginTransaction() y un ADSCommitTransaction()\n\nEjemplo:\n\nADSBeginTransaction()\nSELECT x\nREPLACE ....\nREPLACE ....\n\nTRY .....\nCATCH\n..... ADSRollBack()\n\nSELECT Y\nREPLACE\nREPLACE\nADSCommitTransaction().\n\nEn general no necesitas llamar manualmente a ADSRollback(), porque si ADS detecta un ADSBeginTransaction() abierto, y no detecta un ADSCommitTransaction(), porque el programa haya fallado, se haya ejecutado una insturccion invalida o se haya perdido la conexion con el servidor,  el Rollback() se hace de manera automatica.','',0,'AIA=','woa0wdrf',1,0,'',138,0,0),(20306,4582,6,138,0,'189.141.70.60',1160670090,1,0,1,1,1,1,'','','El precio de la VTaskBar es de 65€ o 80.00 USD en todo el mundo mundial.\n\nPara clientes fuera de Mexico puedes pagar con tarjeta via PayPal (<!-- w --><a class=\"postlink\" href=\"http://www.paypal.com\">www.paypal.com</a><!-- w -->) o por Western Union, como te acomode mejor\n\nClientes en España pueden pagar por un ingreso a una cuenta que tenemos alla con Bankinter. \n\nClientes en Mexico pueden pagar por un deposito en cuenta bancaria aqui en Banamex.\n\nLas actualizaciones son sin costo por 6 meses.\n\nEn los proximos dias tendremos lista la pagina de pedido con cargo a tajeta de credito para todo el mundo.\n\nY ya tenemos listo el nuevo control Office2007, estamos en periodo de pruebas finales pero aqui hay una muestra:\n\n[img:3lppfwvz]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/pacoimage2&#46;jpg[/img:3lppfwvz]\n\nPara mas detalles contactame por correo privado: <!-- e --><a href=\"mailto:rflores@google.com\">rflores@google.com</a><!-- e -->','',0,'CA==','3lppfwvz',1,0,'',138,0,0),(20307,4570,2,138,0,'189.141.70.60',1160670322,1,0,1,1,1,1,'','','A 32 bits tienes la clase TURL y es tan sencillo como hacer esto:\n\noIntenet := TURL():New(\"www.tuweb.com/cgi-win/12345/cargasta.exe?Archivo=\"+nnarch_htm2)\noInternet:Open()\n\nY listo, la clase TURL que esta en libreria TIP se encarga de gestionar todo el acceso al la web.','',0,'CA==','3ef34m64',1,0,'',138,0,0),(20308,4580,6,138,0,'189.141.70.60',1160670379,1,0,1,1,1,1,'','','Pasa exactamente lo mismo, solo que si estas compilando con el switch /w entonces no compilara correctamente','',0,'CA==','f978ch2e',1,0,'',138,0,0),(20309,4582,6,278,0,'200.72.147.243',1160670497,1,0,1,1,1,1,'','Entendido','Gracias Rene por responder, me contacto contigo por mail privado.\n\nAtte,\n\nJC','',0,'CA==','1jnhcd2p',1,0,'',278,0,0),(20310,4571,6,138,0,'189.141.70.60',1160670608,1,0,1,1,1,1,'','','Ese ejemplo precisamente lo hice yo, y me funciona estupendamente.\n\nNecesitaria saber, que version de xHB estas usando y si tienes Excel debidamente instalado en el equipo donde estas probando el ejemplo.','',0,'CA==','3udbbwjw',1,0,'',138,0,0),(20311,4581,2,138,0,'189.141.70.60',1160670751,1,0,1,1,1,1,'','','¿ Que parte del socket quieres implementar. la parte cliente o la parte servidora ?\n\nUsar Sockets sobre FW es un pelin complicado si no sabes exactamente que es lo quieres hacer, tendria que saber si vas a conectarte a un servicio establecido de internet (www. ftp, pop3, smtp, telnet) para saber el protocolo a utilizar. o bien si tu estas haciendo tu propio protocolo','',0,'CA==','2e6042vg',1,0,'',138,0,0),(20312,4586,6,203,0,'201.217.109.91',1160670870,1,0,1,1,1,1,'','Para Marcelo Jingo','Hola Marcelo\n\nMi nombre es Oscar soy de Quito-Ecuador y si no es molestia me gustaria hacerte un par de consultas, no se si te puedo escribir a algun email, o un numero telefonico.\n\nagradecería obtener tu respuesta, mi correo\n\n\n<!-- e --><a href=\"mailto:easysoft@andinanet.net\">easysoft@andinanet.net</a><!-- e -->\n\n\n\nSaludos\n\n\nOscar','',0,'CA==','1z8ct0oo',1,0,'',203,0,0),(20313,4571,6,127,0,'81.38.64.84',1160671200,1,0,1,1,1,0,'','','Gracias Rene, vas a tener razón en lo del excel, pues yo no lo tengo instalado, sino que tengo un excel del Office 97 que lo copio al disco con sus dll\'s y no lo instalo.\n\nA lo mejor no se registra correctamente.\n\nEn cuanto a la versión de xHarbour la he bajado esta mañana de la página de fivetech en la pagina que se entra con el password que me dio Silvia cundo adquirí la versión de FWH 2.8 hace unos días.\n\nPorbaré con un Excel bien instalado.\n\nGracias y un saludo','',0,'CA==','30724lrx',1,0,'',127,0,0),(20314,4583,3,138,0,'189.141.70.60',1160671266,1,0,1,1,1,1,'','','Forget about low level acces to a text file.\n\nGo straight with a BIG string, I mean, add the values to a single string variable, and then do a MEMORIT() and you are donde.\n\nAt 32 bits you are not longer limited to the 64 kbytes of clipper, now you string variables can hold up to 4Gbytes of information, then a simple Memowrit() can you what you want.','',0,'CA==','3ku1fmk2',1,0,'',138,0,0),(20315,4582,6,36,0,'200.113.56.235',1160671366,1,0,1,1,1,0,'','','Hola Rene\n\nconsulta, que version se necesita de fwh y de xharbour? para utilizar esos controles?\n\nSaludos\nPatricio','',0,'CA==','wdcm1xps',1,0,'',36,0,0),(20316,1854,17,439,0,'200.125.43.233',1160678055,1,0,1,1,1,1,'','Clase TGSay','Alguien del foro que haya podido bajar esta clase <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> , podría tener la bondad de enviármela a mi mail <!-- e --><a href=\"mailto:jmurugosa@hotmail.com\">jmurugosa@hotmail.com</a><!-- e -->, POR FAVOR!! <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSería muy apreciado. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'CA==','2mtnewsd',1,0,'',439,0,0),(20317,4562,6,228,0,'201.245.222.85',1160680837,1,0,1,1,1,1,'','Amigo Gracias lo voy a probar','<!-- s:arrow: --><img src=\"{SMILIES_PATH}/icon_arrow.gif\" alt=\":arrow:\" title=\"Arrow\" /><!-- s:arrow: -->  Amigo muchas gracias voy a probar y te comento.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','jmyk3xzo',1,0,'',228,0,0),(20318,4568,4,2,0,'87.218.146.235',1160695556,1,0,1,1,1,1,'','','Pawel,\n\nWe are doing some tests with your sample code, thanks.','',0,'CA==','zucnxruw',1,0,'',2,0,0),(20319,4577,3,2,0,'87.218.146.235',1160696361,1,0,1,1,1,1,'','','Giuliano, Enrico,\n\nIt works fine with Harbour but GPFs with xHarbour.\n\nWe are going to review it, thanks.','',0,'CA==','r6m3c7wu',1,0,'',2,0,0),(20320,4577,3,2,0,'87.218.146.235',1160698175,1,0,1,1,1,1,'','','Fixed. At source\\function\\msgs.c:\n[code:2qwzrcef]\n   #include &lt;hbvm&#46;h&gt;\n   &#46;&#46;&#46;\n      case HB_IT_DATE&#58;\n           &#123;\n              hb_vmPushSymbol&#40; hb_dynsymSymbol&#40; hb_dynsymFindName&#40; &quot;DTOC&quot; &#41; &#41; &#41;;	\n              hb_vmPushNil&#40;&#41;;\n              hb_vmPush&#40; item &#41;;\n              hb_vmDo&#40; 1 &#41;;  \n           &#125;\n           break;\n[/code:2qwzrcef]','',0,'AIA=','2qwzrcef',1,0,'',2,0,0),(20321,4568,4,2,0,'87.218.146.235',1160701244,1,0,1,1,1,1,'','','Pawel,\n\nPlace a call to hb_gcAll() after closing the second window:\n[code:tioffezc]\n   @ 222,  0 Say \'Window&#58;\' + PadL &#40;nCnt, 3&#41; Size 150, 15 Pixel \n   @ 246, 176 Button \'Close\' Size 60, 20 Pixel Action oWnd &#58; End &#40;&#41; \n   Activate Window oWnd \n   \n   hb_gcAll&#40;&#41;\n[/code:tioffezc]\nhb_gcAll() invokes the Harbour garbage collector. Anyhow, we keep doing more tests.','',0,'AIA=','tioffezc',1,0,'',2,0,0),(20322,4587,2,834,0,'189.155.94.46',1160701718,1,0,1,1,1,0,'','no se despliega Icono','Esta pregunta ya la han hecho en otras ocasiones\n\n\nEn este ejemplo si me muestraa el ICONO factura.ico\n\n   define icon  oIco   FILENAME \"factura.ICO\"\n   define brush oBrush filename mxempre-&gt;mfondo\n\n    DEFINE Window oWnd of oMenu FROM 1, 1 TO 400,600 pixel;\n      TITLE \"Menu Principal de Ventas\";\n      ICON  oIco;\n      MENU  BuildMenu() ;\n      brush  oBrush\n\n   DEFINE MESSAGE OF oWnd ;\n      NOINSET CENTERED KEYBOARD DATE CLOCK\n\n   ACTIVATE WINDOW oWnd ;\n      VALID MsgYesNo( \"Salir?\" );\n      MAXIMIZED\n\n\n\nEn este otro ejemplo NO FUNCIONA!!\n\n\n define ICON oIcon filename \"Factura.ico\"\n\n define DIALOG oVentana  of Ventana TITLE \"Facturas/Cotizaciones\";\n         FROM 0,0 TO 35,100;\n         ICON oIcon;\n         FONT oletra\n\n         oVentana:nStyle:=NOR(WS_MAXIMIZEBOX,WS_MINIMIZEBOX)\n         \n   ACTIVATE DIALOG oVentana CENTER  valid(sale)   \n\n\n\ncada ejemplo esta en diferente programa, el primero un menu y el segundo un dialogo.\n\nSe ve muy feo el cuadrito blanco que me muestra sin la imagen!!\n\nGracias por su ayuda!!','',0,'AIA=','ksub75uu',1,0,'',834,0,0),(20323,4588,6,215,0,'189.136.239.28',1160704464,1,0,1,1,1,0,'','CANCEL en button en folder no funciona','Dado el caso de tener el foco en un get donde tengo una validación...\n\ny el botón de salir tambien dentro del mismo folder.\n\nREDEFINE BUTTON aBtns[6] ID 506 OF oFld:aDialogs[2] CANCEL ;  // Salir\n            ACTION ( oDlg:End() )\n\n\nCon la cláusula CANCEL, la tecla aceleradora no funciona. Alt + S\nSi le quito el CANCEL al button, entonces... entra la validación.\n\nLo que quiero es usar CANCEL para salir. Esto solo sucede en folders\n\nFWH 2.7 build mayo + harbour\nGracias','',0,'','dc9fpu9y',1,0,'',215,0,0),(20324,1854,17,130,0,'141.51.32.24',1160725903,1,0,1,1,1,0,'','','here is a new link, it should work\n\n[url:2xjkshou]http&#58;//hyperupload&#46;com/download/02c35ea639/TGSAY&#46;zip&#46;html[/url:2xjkshou]\n\nStefan','',0,'EA==','2xjkshou',1,0,'',130,0,0),(20325,4589,2,542,0,'88.7.15.225',1160728727,1,0,1,1,1,0,'','Pregunta sobre SAY','Hola amigos me gustaria saber si existe la posibilidad de que si pongo un campo de un fichero o una variable muy grande, 140 caracteres, con @ x,y SAY esta se pueda representar en dos o tres renglones haciendo una ventana mas ancha y no hacer una tan larga.\n\nUn saludo\n\nCarlos','',0,'EA==','2vvf8flw',1,0,'',542,0,0),(20326,4590,2,542,0,'88.7.15.225',1160729240,1,0,1,1,1,0,'','Transformar ficheros Access en DBF','Hola de nuevo:\n\nQuisiera saber si existe una manera de usar ficheros de Access con Clipper/Fivewin, o si hay alguna manera fácil de transformarlos en DBF.\n\nUn saludo\n\nCarlos','',0,'EA==','2yocp9ty',1,0,'',542,0,0),(20327,4571,6,127,0,'83.35.190.116',1160729978,1,0,1,1,1,0,'','','Efectivamente Rene no funcionaba porque no tenía el Excel instalado, pues ahora funciona perfectamente.\n\nLo único es que me daba un error al terminar por cerrar la hoja:\n\n  oHoja:End() \n  oHoja:Quit() \n\nMe lo daba con los dos métodos, Quit y End pero se lo he comentado y funciona perfectamente.\n\nTe lo agradezco mucho porque tengo 3 aplicaciones que se lo mandan en Excel y yo lo que hacía era guardarlo desde Excel como archivo DBF y despues desde este importarlo al mío, y era un rollo.\n\nAl final el que me funciona bien es este:\n\n #include \"FiveWin.ch\" \n\n\n #define NL  Chr( 10 ) + Chr( 13 )\n\n\n Function MAin()\n\n LOCAL oExcel, oHoja, nRows, nCols \n LOCAL aCampos:={}, nRow, nCol\n LOCAL cTexto := Space( 0 ), xValue \n\n    oExcel := TOleAuto():New( \"Excel.Application\" ) \n\n    oExcel:Visible := .T. // por si quieres ver la hoja abierta \n\n    oExcel:WorkBooks:Open( cGetFile32(\"*.XLS\", \"Seleccione Fichero\") ) \n\n    oHoja := oExcel:Get( \"ActiveSheet\" ) \n\n    nRows := oHoja:UsedRange:Rows:Count() \n    nCols := oHoja:UsedRange:Columns:Count() \n/*\n   USE &lt;tu dbf&gt; \n\n   FOR nRow := 2 TO nRows \n      APPEND BLANK \n      FOR nCol := 1 TO nCols \n         xValue := oHoja:Cells(nRow,nCol):Value \n         FieldPut(nCol,xValue) \n         SysRefresh() \n      NEXT \n      DBCOMMIT() \n      Memory(-1) \n   NEXT \n*/\n   FOR nRow := 2 TO nRows \n     cTexto := Space( 0 )       \n     FOR nCol := 1 TO nCols \n       xValue := oHoja:Cells(nRow,nCol):Value\n//       MsgInfo( ValType( xValue ) )\n       cTexto += xValue + NL\n//     SysRefresh() \n     NEXT\n     MsgInfo( cTexto )\n   NEXT \n   \n   Memory(-1) \n//   oHoja:End() \n//   oHoja:Quit() \n   oExcel:Quit() \n//   oExcel:End() \n\n\n Return NIL\n\nMuchisimas gracias de nuevo y quedo a tu disposición para lo que gustes.\n\nUn saludo.','',0,'EA==','1xc28bwo',1,0,'',127,0,0),(20328,4568,4,2,0,'87.218.146.235',1160732309,1,0,1,1,1,1,'','','Pawel,\n\nThis sample starts having a memory leak when you click on the button for 20 times or so. We are trying to locate which method is consuming the memory:\n[code:2ogtpxm5]\n#include &quot;FWCE&#46;ch&quot; \n\nstatic oWnd, oSay, nStart\n\nfunction Main&#40;&#41; \n\n   nStart = MemInfo&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;MemTest&quot;\n\n   @ 11,  2 SAY oSay PROMPT &quot;Diff&#58; &quot; + Transform&#40; 0, &quot;999,999,999&quot; &#41; SIZE 150, 20\n\n   @ 13, 13 BUTTON &quot;Go&quot; SIZE 70, 22 ACTION Test&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil \n\nfunction Test&#40;&#41;\n\n   local cTest &#58;= Space&#40; 10 &#41;, n\n\n   /*\n   @ 2,  3 GET cTest SIZE 80, 20\n   @ 2, 16 GET cTest SIZE 80, 20\n   @ 4,  3 GET cTest SIZE 80, 20\n   @ 4, 16 GET cTest SIZE 80, 20\n   @ 6,  3 GET cTest SIZE 80, 20\n   @ 6, 16 GET cTest SIZE 80, 20\n   */\n\n   // @ 2, 2 BUTTON &quot;Test&quot; SIZE 80, 20\n   TButtonX&#40;&#41;&#58;New&#40; 2, 2, &quot;Test&quot;,,, 80, 20 &#41;\n   TButtonX&#40;&#41;&#58;New&#40; 4, 2, &quot;Another&quot;,,, 80, 20 &#41;\n\n   for n = 3 to Len&#40; oWnd&#58;aControls &#41;\n      oWnd&#58;aControls&#91; n &#93;&#58;End&#40;&#41;\n   next   \n\n   hb_gcAll&#40;&#41;\n\n   oSay&#58;SetText&#40; &quot;Diff&#58; &quot; + Transform&#40; nStart - MemInfo&#40;&#41;, &quot;999,999,999&quot; &#41; &#41;   \n   nStart = MemInfo&#40;&#41;\n   \nreturn nil   \n\nCLASS TButtonX FROM TButton\n\n   CLASSDATA lRegistered\n   \n   // METHOD New&#40;&#41; INLINE &#58;&#58;Create&#40; &quot;BUTTON&quot; &#41;\n   METHOD Initiate&#40;&#41; INLINE MsgInfo&#40; &quot;Initiate&quot; &#41;\n   METHOD Colors&#40;&#41; VIRTUAL\n   METHOD GetFont&#40;&#41; VIRTUAL\n   METHOD HandleEvent&#40;&#41; VIRTUAL\n   METHOD SetFont&#40;&#41; VIRTUAL\n   METHOD Register&#40;&#41; VIRTUAL\n   METHOD Create&#40;&#41; VIRTUAL\n   METHOD Link&#40;&#41; VIRTUAL\n   \nENDCLASS   \n\n#pragma BEGINDUMP \n\n#include &lt;hbapi&#46;h&gt; \n#include &lt;windows&#46;h&gt; \n#include &lt;aygshell&#46;h&gt; \n\nHB_FUNC&#40; MEMINFO &#41; \n&#123; \n   MEMORYSTATUS st; \n   GlobalMemoryStatus&#40; &amp;st &#41;; \n\n   hb_retnl&#40; &#40; ULONG &#41; st&#46;dwAvailPhys &#41;; \n&#125; \n\n#pragma ENDDUMP\n[/code:2ogtpxm5]','',0,'AIA=','2ogtpxm5',1,0,'',2,0,0),(20329,4555,19,92,0,'213.96.45.9',1160737498,1,0,1,1,1,0,'','Solucionado.','Ya he podido solucionar el problema.\n\nResulta que la rutina (estándar en mi aplicación) que utilizaba en la cláusula ON CHANGE, entre varias barbaridades (uno también sabe hacer chapuzas), cambiaba el foco a otro control de la ventana (en concreto un browse).\n\nDe momento, para solucionar el problema he establecido que lo último que hace ON CHANGE sea un Self%:SetFocus(), ya que para esa situación en concreto no tenía sentido el cambio de foco.\n\nSaludos.\nCarlos G.','',0,'AIA=','3e4lmdqk',1,0,'',92,0,0),(20330,4567,19,786,0,'84.123.49.11',1160741318,1,0,1,1,1,0,'','Vuestra opinion sobre programa estandard o CGI','Muchas gracias RENE, por tu comentario.\n\nGracias.','',0,'AIA=','3kbbc3t9',1,0,'',786,0,0),(20331,4567,19,786,0,'84.123.49.11',1160741583,1,0,1,1,1,0,'','Vuestra opinion sobre programa estandard o CGI','Muchas gracias RENE, por tu comentario.\n\nGracias.','',0,'AIA=','14tul015',1,0,'',786,0,0),(20332,4561,6,656,0,'83.230.172.216',1160742301,1,0,1,1,1,1,'','','queda perfecto, muchas gracias\n\nSalu2\nJavi','',0,'AIA=','1yjybdjz',1,0,'',656,0,0),(20333,4568,4,2,0,'87.218.146.235',1160743183,1,0,1,1,1,1,'','','Pawel,\n\nLets check all the static variables of the application with array type, to see if one of them is growing on each call:\n[code:2rwg4yhd]\nstatic aStatSizes\n&#46;&#46;&#46;\n   local n, aSizes\n\n   if aStatSizes == Nil\n      aStatSizes = Array&#40; HB_DBG_VMVARSLEN&#40;&#41; &#41;\n      for n = 1 to HB_DBG_VMVARSLEN&#40;&#41;\n         if ValType&#40; HB_DBG_VMVARSGET&#40; n &#41; &#41; == &quot;A&quot;\n            aStatSizes&#91; n &#93; = Len&#40; HB_DBG_VMVARSGET&#40; n &#41; &#41;\n         endif\n      next       \n   else\n      for n = 1 to HB_DBG_VMVARSLEN&#40;&#41;\n         if ValType&#40; HB_DBG_VMVARSGET&#40; n &#41; &#41; == &quot;A&quot;\n            if aStatSizes&#91; n &#93; != Len&#40; HB_DBG_VMVARSGET&#40; n &#41; &#41;\n               MsgInfo&#40; &quot;Static &quot; + Str&#40; n &#41; + &quot; has grown!&quot; &#41;\n            endif   \n         endif\n      next       \n      aSizes = Array&#40; HB_DBG_VMVARSLEN&#40;&#41; &#41;\n      for n = 1 to HB_DBG_VMVARSLEN&#40;&#41;\n         if ValType&#40; HB_DBG_VMVARSGET&#40; n &#41; &#41; == &quot;A&quot;\n            aSizes&#91; n &#93; = Len&#40; HB_DBG_VMVARSGET&#40; n &#41; &#41;\n         endif\n      next       \n      aStatSizes = aSizes\n   endif   \n[/code:2rwg4yhd]','',0,'AIA=','2rwg4yhd',1,0,'',2,0,0),(20334,4591,2,832,0,'201.122.21.224',1160745430,1,0,1,1,1,0,'','ayuda para enviar varibles en un socket','ya encontre como utilizar un socket,pero ahora alguien me puede ayudar para enviar valores de variables del clientes al servidor, esta parte de codigo es del clientes, pero en esta unicamente me envia un archivo y no se como enviar el valor de las variables\n\n local cFileName := cGetFile( \"*.*\", \"Select a file to send by Internet\" )\n   if ! Empty( cFileName ) .and. File( cFileName )\n      oSocket:SendData( \"SENDFILE \" + cFileName( cFileName ))\n      oSocket:SendFile( cFileName )\n      oSocket:End()\n      MsgInfo( \"archivo enviado\" )\n   endif\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> por otra parte de la parte del server tengo lo siguiente:\n\n#include \"FiveWin.ch\"\n\n#define ST_COMMAND  1\n#define ST_SENDFILE 2\n\n\n#define FILE_BLOCK 8000\n\nstatic oWnd, oSocket, oClient\n\n//------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oBar\n\n   DEFINE WINDOW oWnd TITLE \"Server socket\"\n\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n\n   DEFINE BUTTON OF oBar ACTION Server() TOOLTIP \"Listen\"\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nfunction Server()\n\n   oSocket = TSocket():New( 2000 )\n\n  oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),;\n                       oClient:Cargo := ST_COMMAND,;\n                       oClient:bRead := { | oSocket | OnRead( oSocket ) },;\n                       oClient:bClose := { | oSocket | OnClose( oSocket ) } }\n    oSocket:Listen()\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nfunction OnRead( oSocket )\n   local cData := oSocket:GetData()\n   local cToken\n   LogFile( \"sockserv.txt\", { Len( cData ) } )\n   do case\n      case oSocket:Cargo == ST_COMMAND\n           cToken = StrToken( cData, 1 )\n           do case\n              case cToken == \"SENDFILE\"\n                   oSocket:Cargo = ST_SENDFILE\n                   oSocket:hFile = fcreate( StrToken( cData, 2 ) )\n              case cToken == \"MSG\"\n                   MsgInfo( SubStr( cData, 5 ) )\n                 endcase\n\n      case oSocket:Cargo == ST_SENDFILE\n           fwrite( oSocket:hFile, cData, Len( cData ) )\n           LogFile( \"sockserv.txt\", { \"writting...\" } )\n           if Len( cData ) &lt; FILE_BLOCK\n              // fclose( oSocket:hFile )\n              // MsgInfo( Len( cData ) )\n              // oSocket:Cargo = ST_COMMAND\n           endif\n   endcase\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nfunction OnClose( oSocket )\n\n   MsgInfo( \"Client has closed!\" )\n\n   do case\n      case oSocket:Cargo == ST_SENDFILE\n           fclose( oSocket:hFile )\n   endcase\n\n   oSocket:End()\n\nreturn nil','',0,'AIA=','3ujn2kee',1,0,'',832,0,0),(20335,4585,3,215,0,'189.136.234.66',1160746863,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://www.secureaction.com/encryption_pro/\">http://www.secureaction.com/encryption_pro/</a><!-- m -->','',0,'AIA=','3jd0xznq',1,0,'',215,0,0),(20336,4592,3,159,0,'210.243.203.20',1160748102,1,0,1,1,1,0,'','Get SNTP Server Time and Set LocalTime','The Library is compile use BCC5 for xHarbour and Fivewin(free).\n\n[url=http&#58;//www4&#46;zzz&#46;com&#46;tw/phpbb2/viewtopic&#46;php?t=29:1tyqk45b]link:http://www4.zzz.com.tw/phpbb2/viewtopic.php?t=29[/url:1tyqk45b]\n\n[code:1tyqk45b]\nFunc    Test&#40;&#41;\nLocal   aNet      &#58;= &#123;&#125;,;\n        nPort     &#58;= 123,;\n        cIp       &#58;= &quot;time&#46;windows&#46;com&quot;,;\n        lSync     &#58;= &#46;T&#46;,;\n        oSntp     &#58;= NIL\n\n        ? &quot;test begin&quot;\n\n        // test-1\n        // lSync = &#46;T&#46;, Set LocalTime same as NTP Server time\n         oSntp &#58;= TSntp&#40;&#41;&#58;New&#40; cIP, nPort, lSync &#41;\n        // or oSntp &#58;= TSntp&#40;&#41;&#58;New&#40;&#41;; oSntp&#58;cIp &#58;= \'&#46;&#46;&#46;&#46;\'; oSntp&#58;nPort = &#46;&#46;&#46;&#46;\n        If oSntp&#58;GetData&#40;&#41;\n           ? oSntp&#58;Date&#40;&#41;, &quot;date&quot;\n           ? oSntp&#58;Time&#40;&#41;, &quot;time&quot;\n           ? oSntp&#58;nWeek, &quot;Week&quot;\n           ? oSntp&#58;nDayOfYear, &quot;Day Of Year&quot;\n        Else\n           ? &quot;Fail&quot;\n        EndIf\n\n        // test-2\n        If oSntp&#58;GetData&#40;&#41;\n           ? oSntp&#58;Date&#40;&#41;, &quot;date&quot;\n           ? oSntp&#58;Time&#40;&#41;, &quot;time&quot;\n        Else\n           ? &quot;Fail&quot;\n        EndIf\n\n        ? &quot;test end&quot;\n\nReturn  NIL\n\n[/code:1tyqk45b]','',0,'EIA=','1tyqk45b',1,0,'',159,0,0),(20337,2767,4,267,0,'200.208.238.2',1160748351,1,0,1,1,1,1,'','','Hi Enrico,\n\n When trying to send archives the system is stopping! Already I verified that it connects, the archive is servant, but the size is always in ZERO, or either, no byte is sent! \n\nYou can help me?','',0,'EIA=','3qnpr7qo',1,0,'',267,0,0),(20338,1854,17,439,0,'200.125.32.145',1160752069,1,0,1,1,1,1,'','','[quote=&quot;StefanHaupt&quot;:1ni7jdxs]here is a new link, it should work\n\n[url:1ni7jdxs]http&#58;//hyperupload&#46;com/download/02c35ea639/TGSAY&#46;zip&#46;html[/url:1ni7jdxs]\n\nStefan[/quote:1ni7jdxs]\n\nMuchas Gracias Estefan','',0,'kA==','1ni7jdxs',1,0,'',439,0,0),(20339,2767,4,6,0,'87.17.213.24',1160753059,1,0,1,1,1,1,'','','No, sorry. As far as I know it should work fine.\n\nEMG','',0,'kA==','d2j65xuh',1,0,'',6,0,0),(20340,4593,19,26,0,'84.52.130.249',1160753217,1,0,1,1,1,1,'','Interesting facts about Aero Basic in Vista','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://shellrevealed.com/blogs/shellblog/archive/2006/10/12/Frequently-asked-questions-about-the-Aero-Basic-window-frame.aspx\">http://shellrevealed.com/blogs/shellblo ... frame.aspx</a><!-- m -->\n[quote:3hs3c4ka]\n[b:3hs3c4ka]Why isn\'t the Close button oversized compared to the Minimize and Maximize buttons, like in Aero?[/b:3hs3c4ka]\nIn pre-DWM Windows, all buttons must have the same size, because there\'s only one set of metrics to query the size of a button (SM_CXSIZE and SM_CYSIZE, see GetSystemMetrics()). If you look at the TITLEBARINFO structure returned by GetTitleBarInfo(), it says nothing about the size of the individual buttons.\nA lot of applications draw their own buttons or even their own captions. Lots of accessibility tools report the position of the caption buttons. Some applications trigger actions by simulating a mouse click to a precise position. All those applications compute the position of buttons based on a multiple of SM_CXSIZE (plus delta), so if the Close button was bigger than SM_CXSIZE, those applications would get all their button positions wrong, so they could draw a new button right in the middle of existing buttons, or click on the Close button when thinking clicking on the Maximize button.\nFor Vista we fixed this by exposing a new API, WM_GETTITLEBARINFOEX, but of course no application outside of Windows is using it yet. The Accessibility framework has been updated to use it.\n\n[b:3hs3c4ka]Then how is the DWM getting away with it?[/b:3hs3c4ka]\nThe DWM doesn\'t have any legacy worries because applications cannot draw inside the glass frame, since it\'s rendered and managed by a totally different process. If an application tries to do it, Windows will detect it and remove the glass frame entirely (and therefore revert to the Basic frame), so that the application can draw what it wants to draw.\n[/quote:3hs3c4ka]\n\nRegards, Roman','',0,'wA==','3hs3c4ka',1,0,'',26,0,0),(20341,2767,4,3,0,'82.65.90.223',1160756396,1,0,1,1,1,1,'','','[quote=&quot;vilian&quot;:2mw8rken]Hi Enrico,\n\n When trying to send archives the system is stopping! Already I verified that it connects, the archive is servant, but the size is always in ZERO, or either, no byte is sent! \n\nYou can help me?[/quote:2mw8rken]\n\nVilian\n\nCan you show your offending code ? \n\nFtp works quite ok with fwppc, my app uses it a lot.\n\nRichard','',0,'gA==','2mw8rken',1,0,'',3,0,0),(20342,4575,3,217,0,'200.159.120.34',1160757807,1,0,1,1,1,0,'','Re: Where\'s auto text in gets ???','Fernando,\n\nI created a TAutoGet class that inherit from TGet. I\'ll create a self contained sample and post it here monday (I\'m not in house for a few days...).\nIf I forget, please remember me!\n\nRegards\nMaurilio','',0,'gA==','10eavea1',1,0,'',217,0,0),(20343,4574,19,217,0,'200.159.120.34',1160758189,1,0,1,1,1,0,'','Re: OT:  Visual Basic 6','Puedes bajar desde site de Microsoft VB.NET Express Edition que és free.\nCreo que programas creados con VB 6 pueden ser compilados con VB.NET EE...\n\nSaludos\nMaurilio','',0,'gA==','35mw988a',1,0,'',217,0,0),(20344,4551,6,24,0,'80.37.55.44',1160758336,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:ag2epfvm]Rafa:\n\nToda la gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar:\n\n oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255))\n\n@xVar es el valor que tu quieres editar, puedes hacer por ejemplo\n\nxVar := 0\n \no bien \n\nxVar := SPACE(20)\n\ny ahora la magia:\n\nxVar := {\"enero\", \"febrero\",\"marzo\",\"abril\"....}\n\nCuando la variable es un ARRAY, AUTOMATICAMENTE, al momenot de editar se crea un combo.\n\nAsi de facil, parece una tonteria, pero realmente es una estupidez.[/quote:ag2epfvm]\n\nBueno, Rene ya de paso, me puedes pasar un ejemplo funcional ?\nPerdona que en estos momentos no tengo mucha lucidez con el tema de los browses.\n\nTengo que crear un browse en runtime que las celdas sean todas con combobox, y ademas , modifiquen directamente en la dbf.\n\nHe intentando usar la TsBrowse 7.0 de Manuel , y la verdad , funciona flancamente mal, muy mal.\n\n\n\nSaludos\nRafa Carmona','',0,'gA==','ag2epfvm',1,0,'',24,0,0),(20345,4563,6,24,0,'80.37.55.44',1160758470,1,0,1,1,1,1,'','Re:','[quote=&quot;Vikthor&quot;:27u7smdu][quote=&quot;jose_murugosa&quot;:27u7smdu]Muchas Gracias Master!!!!!\nLo revisaré[/quote:27u7smdu]\n\nNo hay de que............so nomás de papa.[/quote:27u7smdu]\n\nArg!! Todavia sigue por aqui rulando la mini-faq... ?\nPues que exito a tenido la condenada .. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','27u7smdu',1,0,'',24,0,0),(20346,4525,6,24,0,'80.37.55.44',1160758620,1,0,1,1,1,1,'','Re: tsbrowse','[quote=&quot;goosfancito&quot;:3sh2ag49][quote=&quot;Marco Augusto&quot;:3sh2ag49]Alguien tiene una version de Tsbrowse de M.Mercado y\nque funcione para consultas mysql\n\nGracias[/quote:3sh2ag49]\n\nSi es que vas a implementar la TS ( tsbrowse ) por primera vez, te recomiendo la xBrowse.\n\nGustavo.[/quote:3sh2ag49]\n\nPregunta.. donde esta la xBrowse ? De quien es... ? Cuando vale... ?','',0,'gA==','3sh2ag49',1,0,'',24,0,0),(20347,4525,6,138,0,'189.141.70.60',1160759108,1,0,1,1,1,1,'','','Viene incluida en el FiveWin,','',0,'gA==','fdryh0at',1,0,'',138,0,0),(20348,4525,6,138,0,'189.141.70.60',1160759612,1,0,1,1,1,1,'','Re: tsbrowse','[quote=&quot;Marco Augusto&quot;:1d1rgpax]Alguien tiene una version de Tsbrowse de M.Mercado y\nque funcione para consultas mysql\n\nGracias[/quote:1d1rgpax]\n\nTodos y a la vez ningun browse te sirve para manipular MySQL.\n\nMe explico mejor:\n\nA menos que trabajes con ADO es posible \"browsear\" directamente un RecordSet, cualquier otra froma de acceso a MySQL, llamese ODBC, Eagle, RDD SQL u otro, requiere forzosamente que pase el contenido del cursor al un arreglo y que de ahi al browse correspondiente.\n\nPara browsear un RecordSet de ADO lo uedes hacer con cualqieur Browse, solo tienes que crear un cursor typo adOpenSetKey y modificar unas datas del browse, y escribir una funcion Skipper\n\nPor ejemplo con Access (para my sql, solo cambia la cadena de conexion)\n\n[code:1d1rgpax]oMiConexion &#58;= TOleAuto&#40;&#41;&#58;New&#40;“adodb&#46;connection”&#41;\noMiConexion&#58;Open&#40;“MicroSoft&#46;Jet&#46;OLEDB&#46;4&#46;0; Data Source=&#46;\\taller&#46;mdb”&#41;\n\noRecordSet &#58;= TOleAuto&#40;&#41;&#58;New&#40;“adodb&#46;recordset”&#41;\noRecordSet&#58;LockType &#58;= adLockOptimistic\noRecordSet&#58;CursorType &#58;= adOpenKeySet\noRecordSet&#58;ActiveConnection&#40;oMiConexion&#41;\noRecordSet&#58;Source &#58;= “Select * from Clientes”\noRecordSet&#58;Open&#40;&#41;\noRecordSet&#58;MoveFirst&#40;&#41;\n\n@ 0, 0 LISTBOX oBrw FIELDS oRecordSet&#58;Fields&#40;“nombre”&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;“apellido”&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;“id”&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;“edad”&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;“ciudad”&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;“estado”&#41;&#58;value;\n           HEADERS &quot;Nombre&quot;,”Apellido”,”Id”,”Edad”,”Ciudad”,”Estado”\n\n/* esto es lo que cambia */\n\noBrw&#58;bLogicLen = &#123; || oRecordSet&#58;RecordCount &#125; \noBrw&#58;bGoTop    = &#123; || oRecordSet&#58;MoveFirst&#40;&#41; &#125; \noBrw&#58;bGoBottom = &#123; || oRecordSet&#58;MoveLast&#40;&#41; &#125; \noBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRecordSet, nSkip &#41; &#125; \noBrw&#58;cAlias    = &quot;ARRAY&quot; \n\nSTATIC FUNCTION SKIPPER&#40; oRs, nSkip &#41; \n\n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition \n\n    oRs&#58;Move&#40; nSkip &#41; \n\n    IF oRs&#58;EOF; oRs&#58;MoveLast&#40;&#41;; ENDIF \n    IF oRs&#58;BOF; oRs&#58;MoveFirst&#40;&#41;; ENDIF \n\nRETURN oRs&#58;AbsolutePosition – nRe\n[/code:1d1rgpax]\n\nCon esto cualquier browse (Xbrowse, TWBrowse, Browse de Hernan, TSbrowse, etc,) te funciona para una tabla de MySQL','',0,'gIA=','1d1rgpax',1,0,'',138,0,0),(20349,4563,6,439,0,'200.125.37.203',1160759939,1,0,1,1,1,1,'','Re:','[quote=&quot;thefull&quot;:2grfa0oo] Arg!! Todavia sigue por aqui rulando la mini-faq... ?\nPues que exito a tenido la condenada .. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->[/quote:2grfa0oo]\n\nSi Maestro, y me permitio resolver mi necesidad, gracias. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2grfa0oo',1,0,'',439,0,0),(20350,2767,4,267,0,'200.208.238.2',1160761857,1,0,1,1,1,1,'','','Hi Richard,\n\nFUNCTION EnvArqFtp(cArq)\nLOCAL hInternet, hConnect\n\n    hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )\n\n    hConnect = INTERNETCONNECT( hInternet, MyIpServer, INTERNET_INVALID_PORT_NUMBER, MyUser,MyPassword, INTERNET_SERVICE_FTP, 0, 0 )\n\n    nRet := FTPPUTFILE( hConnect, CurDir()+\"\\\"+cArq, \"/sav/\"+cArq, 0, 0 )\n\n    INTERNETCLOSEHANDLE( hConnect )\n\n    INTERNETCLOSEHANDLE( hInternet )\n\nRETURN NIL','',0,'gA==','2abaocan',1,0,'',267,0,0),(20351,4594,6,180,0,'83.35.215.148',1160761920,1,0,1,1,1,0,'','HBZipFile, hb_UnZipFile y Meter','Estoy pasando de FW a FWH y me he encontrado con el inesperado problema de las copias comprimidas, algo que tenia perfectamente implementado en FW. Buceando por estos lugares he logrado comprimir y descomprimir con HBZip pero estoy teniendo problemas para visualizar el proceso mediante un meter. ¿Alguien de Vds. me puede facilitar un  ejemplo de copias ZIP con meter utilizando HBZip?\n\nUn saludo,\nManuel Aranda','',0,'gA==','7othyon5',1,0,'',180,0,0),(20352,2767,4,6,0,'87.17.213.24',1160762379,1,0,1,1,1,1,'','','[quote=&quot;vilian&quot;:b9pdt4jc]nRet := FTPPUTFILE( hConnect, CurDir()+\"&quot;+cArq, \"/sav/\"+cArq, 0, 0 )[/quote:b9pdt4jc]\n\nTry using the full destination path.\n\nEMG','',0,'gA==','b9pdt4jc',1,0,'',6,0,0),(20353,4589,2,180,0,'83.35.215.148',1160762594,1,0,1,1,1,0,'','','Sí se puede, solo tienes que determinar las dimensiones del objeto SAY con SIZE.  Ej. \n@ 1, 1 SAY \"Pon lo que tu quiera  aquí\" OF oDlg SIZE 30, 20\n\nUn saludo,\nManuel','',0,'gA==','1w3l3vls',1,0,'',180,0,0),(20354,2767,4,267,0,'200.208.238.2',1160762810,1,0,1,1,1,1,'','','Hi Enrico,\n\n  \"/sav/\" this is full destination path.','',0,'gA==','lrtbplrm',1,0,'',267,0,0),(20355,2767,4,6,0,'87.17.213.24',1160764478,1,0,1,1,1,1,'','','Are you sure? As an example, a path to my website would be\n\n/emagsoftware.it/subdir/test.txt\n\nI think you can\'t copy a file to the main directory of a website.\n\nEMG','',0,'gA==','qt5r28ge',1,0,'',6,0,0),(20356,2767,4,267,0,'200.208.238.2',1160766903,1,0,1,1,1,1,'','','Hi Enrico,\n\nThanks for help.\n\nI changed the folder for a sub-folder. The program initiates the transference, the archive is created in the selected folder, but the sending is not finishes, stopping the system!','',0,'gA==','3ri7oo51',1,0,'',267,0,0),(20357,4595,6,75,0,'81.36.96.246',1160773400,1,0,1,1,1,0,'','OrdScope vs filter','Tengo entendido que con el uso de los scopes es más rápido realizar filtrados de bases de datos grandes, lo cual se convierte en especialmente necesario en caso de trabajar en red. \n\nAlguien podría darme unas instrucciones de como acometer la sustitución de los filter por los scope.\n\nGracias.','',0,'gA==','1dmtvgdq',1,0,'',75,0,0),(20358,4539,1,819,0,'216.34.194.113',1160778161,1,0,1,1,1,0,'','','FW, \n\nThanks.  Works fine.','',0,'gA==','161z881z',1,0,'',819,0,0),(20359,4596,1,819,0,'216.34.194.113',1160779332,1,0,1,1,1,0,'','Conversion Clipper/FW to (x)Harbour/FW','FW,\n\nI wish to know how much recoding would be necessary to convert a Clipper+FW24 POS application to (X)Harbour + FW24\n\nIn the link script I saw reference to the following lib which I am not familiar if directly supported by (x)Harbour + FW.\n\n1. COMIX\n2. Telepathy\n\nKindlly comments on how much re-coding woud be necessary.\n\nTIA,\n\nXHBCODER\n\nHere\'s the link script&#058;\n\nBLINKER HOST PASSUP OFF\n#BLINKER INCREMENTAL OFF\n#BLINKER EXECUTABLE COMPRESS 1\nBLINKER CLIPPER SYMBOL OFF\n\nPACKCODE\nPACKDATA\n\nMAP=EXE\\52\\PCREGW.MAP S,A\n\nDEFBEGIN\n   name        PCREGW\n   description \'PC/Register\'\n   exetype     Windows 3.1\n   code        preload moveable discardable\n   data        preload moveable\n   stacksize   10000\n   heapsize    2000\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nNOBELL\n\nFILE ADDALIAS, ADDNDX, ALTC, AREA1, AREA1_A, AREA1_B,\nAREA1_C, AREA1_D, AREA1_DB, AREA2, AREA2_A, AREA2_B,\nAREA2_C, AREA2_C2, AREA2_D, AREA2_E, AREA2_F, AREA2_H,\nAREA3, AREA3_A, AREA3_B, AREA3_C, AREA4, AREA4_A,\nAREA4_B, AREA4_C, AREA4_D, AUTHCOMM, AUTHSUP, AUTHTRAN,\nBATCHADM, CL_IPC, CL_PORTB, CONCORD,\nENOUGH, FDBF, FEXPFILE,\nFLIVE, FMULTI, FPAD, FPCJOUR, FRENLAR, FRENCFG, FSCALE,\nFSUSPEND, FTAXRAM, FTXTVIEW, FUNIQUE, FUSEFILE, GENIO, GETPSW,\nGETSERI, GO, HARDWARE, IBM4694W, IBMSUP, ICSETUP, ICVERIFY,\nLUHN, MODE, OPENFILE, OPENSUSP, PCLW, PHYSICAL, PINPAD,\nPLU_FUNC, PRINTCFG, REGSETUP, RFLINE, ROOT, SCANNER, SHELL, TIMER, VERSION,\nJRNARCHV,LS_ALERT,LS_funcs\n\n#Platform specific\nFILE CAPFIRST, CCOMM,\nCCOPYDAT, CBUTTON, CDIALOG, CGET, CHTML, CPCREG, CRECT, CSHIFT4, CSTREAM, CWINDOW,\nDATASHET, ERRSYSW, HANDY,\nNOCOLOR, NOTECSUP,\nRAWPRINT, TELEPATH,\nTGET,\nXTIMER\n\nFILE COPYDATA, COMSTAT\nnodeflib\n\n#Modified DBCMD1 from CLIPPER.LIB version 5.2e\nFILE DBCMD1, DBFT\n\n# Comix RDD\nFILE cmx52, cmxFox52\nLIB cmx52\n@cmx.lnk\n\n#Telepathy extraction from TPOVL52.LIB\nFI TPBIN\n\n#Clipper extraction from Clipper.Lib ver 5.3, Fivewin recommends using\nFI ALLOC, MEMORY\n\n#After adding blxclp52, Clipper Internal Error - Unrecoveralbe error 332 is now traceable\n#and under windows xp - the error \"§ caused an access violation in CUI.EXE at 0x77f57aec.\"\n#now only appears when application exits and not at startup.\nFI \\DEV\\BLI5\\OBJ\\BLXCLP52\n\n#Blinker fix for Clipper Windows applications accross 32k boundaries\nFI \\DEV\\BLI5\\OBJ\\MPAR\n\nLIB Five, FiveC, Objects, WinApi, Clipper, Extend, Terminal\n\nRC WINDOWS\\PCREG.RES\nRC WINDOWS\\KEYBOARD.RES','',0,'gA==','3pljm2tq',1,0,'',819,0,0),(20360,4594,6,110,0,'165.98.169.198',1160788111,1,0,1,1,1,1,'','','prueba xbackup lite\npuedes usar el codigo como gustes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.megaupload.com/es/?d=RL9PL07U\">http://www.megaupload.com/es/?d=RL9PL07U</a><!-- m -->\n\nmirate esta utilidad hecha con xharbour y fivewin for harbour\nla hemos realizado kleyber derick y tu servidor. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'gA==','2fkkzwod',1,0,'',110,0,0),(20361,4518,6,110,0,'165.98.169.198',1160788480,1,0,1,1,1,1,'','','Exacto solo se modifica el alto del control txbrowse y se corrige el problema <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'gA==','2y8w4nrr',1,0,'',110,0,0),(20362,4597,1,173,0,'203.190.250.105',1160804088,1,0,1,1,1,0,'','VALID of GET','Dear all\n\nHow skip to next GET if no need Alert box from VALID of now GET ?\n\nThank you\n\nPeter <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','qs8sibsp',1,0,'',173,0,0),(20363,2767,4,3,0,'82.65.90.223',1160804513,1,0,1,1,1,1,'','','[quote=&quot;vilian&quot;:37c9bh1m]Hi Enrico,\n\nThanks for help.\n\nI changed the folder for a sub-folder. The program initiates the transference, the archive is created in the selected folder, but the sending is not finishes, stopping the system![/quote:37c9bh1m]\n\nVilan\n\nIl you are transmitting several files at the same time, yo will need to create one connection per file like the sample below otherwise you will be missing files and it couls hang, i have been through this\n\nFOR I = 1 TO LEN(TFIC)\n    AADD(HCON,NIL)\n\n    hCon[I] = INTERNETCONNECT( hInternet, DSITE,0, DUSER, DPASS, INTERNET_SERVICE_FTP, 0,0 )\n    IF HCON[I] = 0\n       MSGINFO(\"ERREUR Création CONNEXION FTP ... Abandon transmission \")\n       RETURN .F.\n    ENDIF\n\n    DFICL := CurDir() + \"\\SORTANT&quot; + ALLTRIM(TFIC[I])   // Fichier local\n    DFICR := ALLTRIM(DDIR) + ALLTRIM(TFIC[I])   // FICHIER REMOTE\n    IF FTPPUTFILE( hCon[I], DFICL, DFICR, 0, 0 )\n       AADD(LOGOUT,TFIC[I])\n    ENDIF\n    INTERNETCLOSEHANDLE( hCon[I] )\nNEXT\n\nHTH\n\nRichard','',0,'gA==','37c9bh1m',1,0,'',3,0,0),(20364,4598,3,160,0,'220.225.17.210',1160804781,1,0,1,1,1,0,'','Can I avoid console window when I run FWH application ?','Hello All,\n\nWhen I run an FWH application, a console window also pop up along with main window. Can I avoid it ? I am using May 2006 build.\n\nTIA\nMilan.','',0,'gA==','3nt44dv9',1,0,'',160,0,0),(20365,4598,3,2,0,'87.218.146.235',1160808321,1,0,1,1,1,1,'','','Milan,\n\nPlease use GTGUI.lib instead of GTWIN.lib.','',0,'gA==','3fy46ipm',1,0,'',2,0,0),(20366,4596,1,2,0,'87.218.146.235',1160808588,1,0,1,1,1,1,'','','&gt;\nI wish to know how much recoding would be necessary to convert a Clipper+FW24 POS application to (X)Harbour + FW24 \n&gt;\n\nFWH is fully source code compatible with FW 16 bits, so practically no recoding is required.\n\n&gt;\nIn the link script I saw reference to the following lib which I am not familiar if directly supported by (x)Harbour + FW. \n\n1. COMIX \n2. Telepathy \n&gt;\n\nYou may use (x)Harbour built-in DBFCDX RDD instead of Comix. That will require just some changes in your app. \n\nYou do need a 32 bits version of Telepathy.','',0,'gA==','352fycic',1,0,'',2,0,0),(20367,4590,2,2,0,'87.218.146.235',1160808737,1,0,1,1,1,1,'','','Carlos,\n\nLo idóneo es que uses ADO para acceder a las bases de datos en Access. Busca en estos foros por ADO ó por Access.\n\nEs preferible que uses FWH 32 bits en vez de FW 16 bits.','',0,'gA==','2iig9ogr',1,0,'',2,0,0),(20368,4594,6,180,0,'81.39.229.31',1160814577,1,0,1,1,1,0,'','','Muchas gracias Carlos. La bajo y ya te contaré.\n\nUn saludo,\nManuel','',0,'gA==','nhv2ilfh',1,0,'',180,0,0),(20369,4598,3,160,0,'220.225.17.210',1160816341,1,0,1,1,1,0,'','','Dear Antonio,\n\nI am still getting two windows open after linking GtGui.Lib instead of GtWin.Lib. Do I need to do anything else ?\n\nTIA\nMilan.','',0,'gA==','1bq7id8t',1,0,'',160,0,0),(20370,2767,4,267,0,'200.208.238.2',1160832470,1,0,1,1,1,1,'','','Hi Richard,\n\nThanks for help,\n\nI need to send only one archive for time. As already it said before, the archive arrives to be created in the remote directory, but the complete transference not if. \n\nI use a Pocket Dell with WIndows Mobile 2003, what you use?','',0,'gA==','9qln218z',1,0,'',267,0,0),(20371,4599,3,67,0,'62.235.24.60',1160834580,1,0,1,1,1,0,'','DBGENTRY','Trying to compile a example with borland , i have a external :\n\n_HB_FUN__DBGENTRY referencerd from ...errorsysw.obj\n\nFrank\n\nfw2.8 , cvs from a month ago','',0,'gA==','az7ac94h',1,0,'',67,0,0),(20372,2767,4,13,0,'213.76.252.200',1160836928,1,0,1,1,1,0,'','','Vilian,\n\nYou may use free DataReelCE library. This provide FTP and URL acces function. Don\'t forget to change transfer type to passive mode.\n\nRegards\nPawel','',0,'gA==','3chcl76a',1,0,'',13,0,0),(20373,4600,3,6,0,'87.17.186.13',1160842339,1,0,1,1,1,1,'','Bug in TWBrowse:nClrPane','This is the sample (you will see that all the not focused cells of the current row are black):\n\n[code:3l6h7khv]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;nClrPane &#58;= &#123; || CLR_HGREEN &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:3l6h7khv]\n\nEMG','',0,'AIA=','3l6h7khv',1,0,'',6,0,0),(20374,4601,20,836,0,'151.37.215.12',1160849002,1,0,1,1,1,0,'','Visualizzare un file Testo.','Avrei la necessita\' con FWPPC di visualizzare dei file testo di grosse dimensioni.\nNon conoscendo comandi specifici  ho utilizzato la seguente funzione :\n*-------------------------------------\nfunction visua_txt(cFile)\nlocal oBrw,vi_ofont\nferase(curdir()+\'\\pp.dbf\')\ndbcreate(curdir()+\'\\pp.dbf\',{{\'rec\',\'c\',300,0},{\'ee\',\'c\',1,0}})\nuse (curdir()+\'\\pp\') alias pp new\nselect pp\nappend from(curdir()+\'\\\'+cfile) sdf\npp-&gt;(dbgotop())\nv1 := 1\n\n\nDEFINE FONT vi_oFont NAME \"Courier New\" SIZE 0, -12 \nDEFINE WINDOW CO_oWnd TITLE \"Controllo\"\n\n\n@ 0, 0  LISTBOX oBrw FIELDS \"\"  ;\n                     alias \"pp\" ;\n                     HEADERS \"Testo\" ;\n                     FIELDSIZES 300 ;\n                     SIZE 240,200 ;\n                     FONT vi_oFont ;\n                     PIXEL \n\noBrw:nLineStyle := 0\noBrw:bLine = { || { substr(pp-&gt;rec,v1,v2) } } \noBrw:setFont(vi_oFont)\noBrw:oHScroll:SETRANGE(0,300) \n\n    @ 235 ,1   BTNBMP obnt1 file(CurDir()+\'\\res\\left1.bmp\') ;\n               pixel SIZE 60,30 ;\n               action visua_txt_s(obrw)\n    @ 235 ,90  BTNBMP oBnt3 file(CurDir()+\'\\res\\exit.bmp\') ;\n               PIXEL size 60,30 ;\n               action CO_oWnd:end() CANCEL     \n    @ 235 ,179 BTNBMP oBnt2 file(CurDir()+\'\\res\\right1.bmp\') ;\n               pixel SIZE 60,30 ;\n               action visua_txt_d(obrw) \n\n    ACTIVATE WINDOW CO_oWnd \n    \n    close pp\n    vi_oFont:end()\nreturn\n*-----------\nFunction visua_txt_d(obrw)\nv1:=v1+5\nIF V1 &gt; 300\n   V1 := 300\nENDIF   \neval(obrw:bLine)\nobrw:refresh()\nreturn\n*--------------------\nFunction visua_txt_s(obrw)\nv1:=v1-5\nif v1 &lt; 0\n   v1 := 1\nendif   \neval(obrw:bLine)\nobrw:refresh()\nreturn\n*---------------------------------------\n\nEsiste la possibilita\' di attivare una SCROLLBAR  per gestire\nal meglio lo spostamento laterale?','',0,'AIA=','3kjxrpcg',1,0,'',836,0,0),(20375,4601,20,6,0,'82.57.160.15',1160849152,1,0,1,1,1,1,'','Re: Visualizzare un file Testo.','Purtroppo non si può con una sola colonna. Hai già provato, immagino, le GET multilinea (GET ... MEMO) vero?\n\nEMG','',0,'AIA=','1mrnek97',1,0,'',6,0,0),(20376,4601,20,836,0,'151.37.215.12',1160851891,1,0,1,1,1,0,'','','Ho provato con la Get MEMO ma per file che superano una certa \ndimensione viene visualizzata solo una parte.','',0,'AIA=','k4l9hyqx',1,0,'',836,0,0),(20377,4598,3,2,0,'87.218.146.125',1160853335,1,0,1,1,1,1,'','','Milan,\n\nPlease check that you are using these flags when calling ilink32:\n\nilink32 -Gn -aa -Tpe -s -v ...\n\nWhat Windows version are you using ? Can you reproduce it using a FWH sample ?','',0,'AIA=','xorzunic',1,0,'',2,0,0),(20378,4599,3,2,0,'87.218.146.125',1160853540,1,0,1,1,1,1,'','','Frank,\n\nPlease check that you are linking Harbour/xHarbour debug.lib and that you have not used /b to compile any PRGs.','',0,'AIA=','gnriowzv',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (20379,4602,3,394,0,'207.219.124.134',1160866580,1,0,1,1,1,0,'','FWH and xharbour activex error?','Application\n===========\n   Path and name: C:\\FWH\\SAMPLES\\media.exe (32 bits)\n   Size: 1,555,968 bytes\nI am using xharbour from xharbour.com current release and current release of fwh.\nI get the following error. \n  Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 10/14/06, 18:55:42\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: TActiveX.prg =&gt; CREATEACTIVEX(184)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: media.prg =&gt; MAIN(11)\n\nSystem','',0,'AIA=','vrsvtkez',1,0,'',394,0,0),(20380,4598,3,160,0,'220.225.17.210',1160890976,1,0,1,1,1,0,'','','Dear Antonio,\n\nYes it did solve the problem. Thanks a lot.\n\nWith best regards,\n\nMilan.','',0,'AIA=','2080wqb8',1,0,'',160,0,0),(20381,4603,4,836,0,'151.37.221.137',1160896679,1,0,1,1,1,0,'','Scrollbar','How to insert a  SCROLLBAR control  (Horizontal or Vertical) in a\nWindows ?','',0,'AIA=','16fwhgxo',1,0,'',836,0,0),(20382,4594,6,180,0,'83.38.240.132',1160912463,1,0,1,1,1,0,'','','Hola de nuevo Carlos:\n\nEs una herramienta excelente y te vuelvo a dar las gracias por ponerla al servicio de la comunidad de foma desinteresada. \nEstoy adaptándola a mis necesidades y me he encontrado con un problemilla que no acabo de solucionar y es que quiero prescindir de TSBROWSE y sustituirlo por un TXBROWSE o un ListBox. En xblite.prg solo he sustituido las lineas que te detallo más abajo y sin embargo la comprensión la hace correcta, pero en la descomprensión da error y no sé por qué. Le podrías echar una mirada al código sustituído, por favor.\nGracias de antemano.\n[code:2npqo7oh]/*\n   REDEFINE Browse oBrowseZip ;\n            ID 104 OF PAGE1 FONT oFont ;\n            COLOR CLR_BLACK, CLR_YELLOW01\n\n   oBrowseZip&#58;SetArray&#40; acFilesToZip &#41;\n\n   ADD COLUMN TO oBrowseZip Array ELEMENT 1 ;\n   TITLE &quot;Nombre&quot; SIZE 140 ;\n   FOOTER &#123; || Transform&#40; nTotalFilesToZip, &quot;99,999 ficheros&quot; &#41; &#125;\n\n   ADD COLUMN TO oBrowseZip Array ELEMENT 2 ;\n   TITLE &quot;Tamaño&quot; ;\n   SIZE 100 ;\n   PICTURE &quot;9,999,999&#46;99 Kb&quot; ;\n   FOOTER &#123; || Transform&#40; nSizeFilesToZip, &quot;9,999,999&#46;99 KB&quot; &#41; &#125; ;\n   ALIGN DT_RIGHT\n\n   ADD COLUMN TO oBrowseZip Array ELEMENT 3 ;\n   TITLE &quot;Fecha&quot; SIZE 70 ;\n   ALIGN DT_CENTER\n\n   ADD COLUMN TO oBrowseZip Array ELEMENT 4 ;\n   TITLE &quot;Ruta&quot; SIZE 180\n*/\n   /*propiedades de objeto browse*/\n/*\n   WITH OBJECT oBrowseZip\n      &#58;nFreeze     &#58;= 1\n      &#58;lNoVScroll  &#58;= FALSE\n      &#58;nHeightHead &#58;= 18\n      &#58;nHeightCell &#58;= 18\n      &#58;nHeightFoot &#58;= 18\n      &#58;SetColor&#40; &#123; CLR_HEADF, CLR_FOOTF &#125;, &#123; &#123; || CLR_BLUE &#125;, &#123; || CLR_RED &#125; &#125; &#41;\n   END WITH\n */\n\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n   oBrowseZip &#58;= TXBrowse&#40;&#41;&#58;New&#40;PAGE1&#41;\n   oBrowseZip &#58; nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\n   oBrowseZip &#58; nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrowseZip &#58; lColDividerComplete &#58;= &#46;t&#46;\n   oBrowseZip &#58; nHeaderLines      &#58;= 1\n   oBrowseZip &#58; nFooterLines      &#58;= 1\n   oBrowseZip &#58; nDataLines        &#58;= 1\n   oBrowseZip &#58; CreateFromResource&#40;104&#41;\n   oBrowseZip &#58; lFooter           &#58;= &#46;t&#46;\n   oBrowseZip &#58; nFreeze           &#58;= 1\n   oBrowseZip &#58; SetArray&#40; acFilesToZip &#41;\n\n   oBrowseZip &#58;aCols&#91;1&#93;&#58;cHeader &#58;= &quot;Nombre&quot;\n   oBrowseZip &#58;aCols&#91;1&#93;&#58;cFooter &#58;=  STR&#40; nTotalFilesToZip,5&#41;+&quot;   ficheros&quot;\n   oBrowseZip &#58;aCols&#91;1&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseZip &#58;aCols&#91;1&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n   //\n   oBrowseZip &#58;aCols&#91;2&#93;&#58;cHeader &#58;= &quot;Tamaño Kb&quot;\n   oBrowseZip &#58;aCols&#91;2&#93;&#58;cFooter &#58;=  STR&#40; nSizeFilesToZip,9,2&#41;\n   oBrowseZip &#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseZip &#58;aCols&#91;2&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n   //\n   oBrowseZip &#58;aCols&#91;3&#93;&#58;cHeader &#58;= &quot;Fecha&quot;\n   oBrowseZip &#58;aCols&#91;3&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseZip &#58;aCols&#91;3&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n      //\n   oBrowseZip &#58;aCols&#91;4&#93;&#58;cHeader &#58;= &quot;Ruta&quot;\n   oBrowseZip &#58;aCols&#91;4&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseZip &#58;aCols&#91;4&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n\n   REDEFINE CHECKBOX oZipToFloppy ;\n            VAR lZipToFloppy ;\n            ID 105 OF PAGE1 ;\n            ON CHANGE &#40; cFolderTargetZip &#58;= &quot;&quot;, oFolderTargetZip&#58;Refresh&#40;&#41; &#41;\n\n   REDEFINE GET oFolderTargetZip ;\n            VAR cFolderTargetZip ;\n            ID 106 OF PAGE1 ;\n            WHEN FALSE COLOR CLR_BLACK, CLR_MENTA2\n\n   REDEFINE BUTTON oGetFolderTargetZip ;\n            ID 107 OF PAGE1 ;\n            ACTION SetFileZip&#40;&#41;\n\n   oFilesCountZip &#58;= TProgress&#40;&#41; &#58;Redefine&#40; 108, PAGE1 &#41;\n\n   REDEFINE BUTTON oDoCompress ;\n            ID 109 OF PAGE1 ;\n            ACTION DoMakeZip&#40; oBrowseZip &#41;\n\n   /*redefinicion de controles de pagina #2*/\n   REDEFINE GET oSourceUnZip ;\n            VAR cSourceUnZip ;\n            ID 101 OF PAGE2 ;\n            WHEN FALSE COLOR CLR_BLACK, CLR_MENTA2\n\n   REDEFINE BUTTON oGetSourceUnZip ;\n            ID 102 OF PAGE2 ;\n            ACTION GetFileToUnZip&#40; oBrowseUnZip &#41;\n/*\n   REDEFINE Browse oBrowseUnZip ;\n            ID 103 OF PAGE2 FONT oFont ;\n            COLOR CLR_BLACK, CLR_YELLOW01\n\n   oBrowseUnZip&#58;SetArray&#40; acFilesToUnZip &#41;\n\n   ADD COLUMN TO oBrowseUnZip Array ELEMENT 1 ;\n   TITLE &quot;Nombre&quot; SIZE 140 ;\n   FOOTER &#123; || Transform&#40; nTotalFilesToUnZip, &quot;99,999 Ficheros&quot; &#41; &#125;\n\n   ADD COLUMN TO oBrowseUnZip Array ELEMENT 2 ;\n   TITLE &quot;Tamaño Normal&quot; ;\n   SIZE 100 ;\n   PICTURE &quot;9,999,999&#46;99 KB&quot; ;\n   FOOTER &#123; || Transform&#40; nSizeFilesToUnZip, &quot;9,999,999&#46;99 KB&quot; &#41; &#125; ;\n   ALIGN DT_RIGHT\n\n   ADD COLUMN TO oBrowseUnZip Array ELEMENT 3 ;\n   TITLE &quot;Tamaño Comp&#46;&quot; ;\n   SIZE 100 ;\n   PICTURE &quot;9,999,999&#46;99 KB&quot; ;\n   FOOTER &#123; || Transform&#40; nSizeFilesToUnZipC, &quot;9,999,999&#46;99 KB&quot; &#41; &#125; ;\n   ALIGN DT_RIGHT\n\n   ADD COLUMN TO oBrowseUnZip Array ELEMENT 4 ;\n   TITLE &quot;Fecha&quot; SIZE 70 ;\n   ALIGN DT_CENTER\n\n   ADD COLUMN TO oBrowseUnZip Array ELEMENT 5 ;\n   TITLE &quot;Ruta&quot; SIZE 180\n*/\n   /*propiedades de objeto browse*/\n/*\n   WITH OBJECT oBrowseUnZip\n      &#58;nFreeze     &#58;= 1\n      &#58;lNoVScroll  &#58;= FALSE\n      &#58;nHeightHead &#58;= 18\n      &#58;nHeightCell &#58;= 18\n      &#58;nHeightFoot &#58;= 18\n      &#58;SetColor&#40; &#123; CLR_HEADF, CLR_FOOTF &#125;, &#123; &#123; || CLR_BLUE &#125;, &#123; || CLR_RED &#125; &#125; &#41;\n   END WITH\n*/\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n   oBrowseUnZip &#58;= TXBrowse&#40;&#41;&#58;New&#40;PAGE2&#41;\n   oBrowseUnZip &#58; nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\n   oBrowseUnZip &#58; nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrowseUnZip &#58; lColDividerComplete &#58;= &#46;t&#46;\n   oBrowseUnZip &#58; nHeaderLines      &#58;= 1\n   oBrowseUnZip &#58; nFooterLines      &#58;= 1\n   oBrowseUnZip &#58; nDataLines        &#58;= 1\n   oBrowseUnZip &#58; CreateFromResource&#40;103&#41;\n   oBrowseUnZip &#58; lFooter           &#58;= &#46;t&#46;\n   oBrowseUnZip &#58; nFreeze           &#58;= 1\n   oBrowseUnZip &#58; SetArray&#40; acFilesToUnZip &#41;\n\n   oBrowseUnZip &#58;aCols&#91;1&#93;&#58;cHeader &#58;= &quot;Nombre&quot;\n   oBrowseUnZip &#58;aCols&#91;1&#93;&#58;cFooter &#58;=  STR&#40; nTotalFilesToUnZip,5&#41;+&quot;   ficheros&quot;\n   oBrowseUnZip &#58;aCols&#91;1&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseUnZip &#58;aCols&#91;1&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n   //\n   oBrowseUnZip &#58;aCols&#91;2&#93;&#58;cHeader &#58;= &quot;Tamaño Normal&quot;\n   oBrowseUnZip &#58;aCols&#91;2&#93;&#58;cFooter &#58;=  STR&#40;nSizeFilesToUnZip,9,2&#41;\n   oBrowseUnZip &#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseUnZip &#58;aCols&#91;2&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n   //\n   oBrowseUnZip &#58;aCols&#91;3&#93;&#58;cHeader &#58;= &quot;Tamaño Compr&#46;&quot;\n   oBrowseUnZip &#58;aCols&#91;3&#93;&#58;cFooter &#58;=  STR&#40;nSizeFilesToUnZipC,9,2&#41;\n   oBrowseUnZip &#58;aCols&#91;3&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseUnZip &#58;aCols&#91;3&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n   //\n   oBrowseUnZip &#58;aCols&#91;4&#93;&#58;cHeader &#58;= &quot;Fecha&quot;\n   oBrowseUnZip &#58;aCols&#91;4&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseUnZip &#58;aCols&#91;4&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n   //\n   oBrowseUnZip &#58;aCols&#91;5&#93;&#58;cHeader &#58;= &quot;Ruta&quot;\n   oBrowseUnZip &#58;aCols&#91;5&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrowseUnZip &#58;aCols&#91;5&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n////////////////////////////////////////////////////////////////////////////////////////////////////////////\n\n   REDEFINE CHECKBOX oUnZipWithPath ;\n            VAR lUnZipWithPath ;\n            ID 104 OF PAGE2\n[/code:2npqo7oh]','',0,'AIA=','2npqo7oh',1,0,'',180,0,0),(20383,2767,4,267,0,'201.9.123.197',1160912661,1,0,1,1,1,1,'','','Pawel,\n\nYou have an example of use of this DLL?','',0,'AIA=','3lm61b2p',1,0,'',267,0,0),(20384,4552,6,100,0,'201.16.38.61',1160922605,1,0,1,1,1,1,'','','ola amigo Linhares\n\nAmigo talvez naum seja com relação a TFOLDER e sim como estou gerando as minhas LIBs, e os meus EXEs uso o xMate\n\n[b:3hb7nnz8]\nFlags\nxHarbour\n\n[u:3hb7nnz8]Harbour.exe[/u:3hb7nnz8] /m /n0 /gc0 /es2\n\n\nFlags\nBCC55\n\n[u:3hb7nnz8]Bcc32.Exe[/u:3hb7nnz8] -M -c -e -O2 -tW -d -5 -6 -a8 -v- -X \n-D__WIN32__ \n-D__HARBOUR__ \n-D__FLAT__  \n-DWIN32 \n-DHB_OS_WIN_32  \n-DHB_FM_STATISTICS_OFF \n-DHB_NO_DEFAULT_API_MACROS  \n-DHB_NO_DEFAULT_STACK_MACROS\n\n[u:3hb7nnz8]TLib.Exe[/u:3hb7nnz8] /P32 /0 \n\n[u:3hb7nnz8]iLink32.Exe[/u:3hb7nnz8] -Gn -aa -Tpe -s \n\n[u:3hb7nnz8]Brc32.Exe[/u:3hb7nnz8] -r  -fo\n\n[/b:3hb7nnz8]\n\nAlguma sugerencia amigo\n\nfico no aguardo','',0,'QQ==','3hb7nnz8',1,0,'',100,0,0),(20385,4600,3,303,0,'72.199.41.171',1160929408,1,0,1,1,1,0,'','','Enrico,\n\nI confirm the problem--with the Aug 2006/xHarbour build.\n\nJames','',0,'QQ==','2payvkki',1,0,'',303,0,0),(20386,4604,6,180,0,'83.38.240.132',1160929576,1,0,1,1,1,0,'','De Clipper a Harbour/xHarbour','Estoy tratando de compilar/enlazar un sencillo prg en clipper para pasarlo a 32 bit en modo consola , con el siguiente build.bat que encontré en este foro para tal fín, he probado tanto con harbour como con xharbour y el resultado es que no se ve nada por pantalla aunque se crea el ejecutable.  ¿Que estoy haciendo mal?\n[code:ccp70rjz]@ECHO OFF\nCLS\n\nif A%1 == A GOTO &#58;SINTAX\nif NOT EXIST %1&#46;prg GOTO &#58;NOEXIST\n\nECHO Compiling&#46;&#46;&#46;\n\nset hdir=c&#58;\\harbour\nset bcdir=c&#58;\\borland\\bcc55\\bin\n\n%hdir%\\bin\\harbour %1 /n /i&#46;&#46;\\include;%hdir%\\include /p %2 %3 &gt; clip&#46;log\n@type clip&#46;log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1&#46;exe -I%hdir%\\include %1&#46;c &gt; b32&#46;bc\n%bcdir%\\bcc32 -M -c @b32&#46;bc\n&#58;ENDCOMPILE\n\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtwin&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\codepage&#46;lib + &gt;&gt; b32&#46;bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc  \nrem echo %hdir%\\lib\\ace32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib, &gt;&gt; b32&#46;bc\n\nECHO * \nECHO Linking&#46;&#46;&#46;\n%bcdir%\\ilink32 -Gn -Tpe -s @b32&#46;bc\n\nrem delete temporary files\nrem @del %1&#46;c\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\n&#58;LINKERROR\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n&#58;SINTAX\nECHO    SYNTAX&#58; Build &#91;Program&#93;     &#123;-- No especifiques la extensi¢n PRG\nECHO                                &#123;-- Don\'t specify &#46;PRG extension\nGOTO EXIT\n\n&#58;NOEXIST\nECHO The specified PRG %1 does not exist\n\n&#58;EXIT\n[/code:ccp70rjz]','',0,'AIA=','ccp70rjz',1,0,'',180,0,0),(20387,4604,6,2,0,'87.218.146.108',1160939308,1,0,1,1,1,1,'','','Manuel,\n\nEn principio debería funcionar bien. Prueba con un pequeño ejemplo y recuerda hacer scroll verticalmente, por si la salida a pantalla se realiza más hacia abajo.','',0,'AIA=','3jxw7myb',1,0,'',2,0,0),(20388,4604,6,180,0,'83.38.240.132',1160940962,1,0,1,1,1,0,'','','Hola Antonio:\n\nYa lo probé con un pequeño ejemplo, y nada, tanto con Harbour como con xHarbour se crea el exe pero solo aparece una ventana negra al ejecutarlo. ¿Te importaría probarlo? Gracias.\n\nUn saludo,\nManuel','',0,'AIA=','2k5a6x2k',1,0,'',180,0,0),(20389,4600,3,2,0,'87.218.146.108',1160942686,1,0,1,1,1,1,'','','Enrico, James,\n\nThis change is required at source\\classes\\wbrowse.prg line 2268:\n[code:1b92n1kc]\n            if nRowPos != 0\n               SetTextColor&#40; hDC, If&#40; nColAct != nil, If&#40; ValType&#40; nClrTxt &#41; == &quot;B&quot;,;\n                             Eval&#40; nClrTxt &#41;, nClrTxt &#41;, nClrText &#41; &#41;\n               SetBkColor&#40; hDC, If&#40; nRowPos == 0, GetSysColor&#40; COLOR_BTNFACE &#41;,;\n                           If&#40; nColAct == nil, nClrPane,;\n                           If&#40; ValType&#40; nClrBack &#41; == &quot;B&quot;, Eval&#40; nClrBack &#41;, nClrBack &#41; &#41; &#41; &#41;\n            endif\n[/code:1b92n1kc]','',0,'AIA=','1b92n1kc',1,0,'',2,0,0),(20390,4600,3,2,0,'87.218.146.108',1160942854,1,0,1,1,1,1,'','','A better version:\n[code:3tcc8qpe]\n            if nRowPos != 0\n               SetTextColor&#40; hDC, If&#40; nColAct != nil, If&#40; ValType&#40; nClrTxt &#41; == &quot;B&quot;,;\n                             Eval&#40; nClrTxt &#41;, nClrTxt &#41;, nClrText &#41; &#41;\n               SetBkColor&#40; hDC, If&#40; nColAct != nil, If&#40; ValType&#40; nClrBack &#41; == &quot;B&quot;,;\n                             Eval&#40; nClrBack &#41;, nClrBack &#41;, nClrPane &#41; &#41;\n            endif\n[/code:3tcc8qpe]','',0,'AIA=','3tcc8qpe',1,0,'',2,0,0),(20391,4604,6,2,0,'87.218.146.108',1160943072,1,0,1,1,1,1,'','','Manuel,\n\nLo hemos probado con el Harbour más reciente del CVS y funciona bien. El ejemplo es harbour\\tests\\clasname.prg:\n[url=http&#58;//imageshack&#46;us:2xixwy13][img:2xixwy13]http&#58;//img74&#46;imageshack&#46;us/img74/6724/consolemi8&#46;jpg[/img:2xixwy13][/url:2xixwy13]','',0,'GA==','2xixwy13',1,0,'',2,0,0),(20392,4603,4,2,0,'87.218.146.108',1160943924,1,0,1,1,1,1,'','','Franko,\n\nWe are building a sample and a new FWPPC build as some changes are required.','',0,'GA==','3mkpxab2',1,0,'',2,0,0),(20393,4602,3,2,0,'87.218.146.108',1160945734,1,0,1,1,1,1,'','','Mike,\n\n&gt; I am using xharbour from xharbour.com\n\nxHarbourBuilder-Personal-Oct2006.exe ? (or Professional)\n\n&gt; current release and current release of fwh\n\n2.8 September 2006 ?','',0,'GA==','1k8kfxnx',1,0,'',2,0,0),(20394,4604,6,180,0,'81.38.52.204',1160948715,1,0,1,1,1,0,'','','Pues no me lo explico, pues con la misma versión de Harbour, el mismo build.bat y el mismo prg los resultados son distintos. He probado el ejecutable en dos sistemas con XP y en otro con W98 y no funciona. ¿¿¿???\n[img:2ir47fsa]http&#58;//img479&#46;imageshack&#46;us/img479/734/pruebapk5&#46;jpg[/img:2ir47fsa]','',0,'CA==','2ir47fsa',1,0,'',180,0,0),(20395,4594,6,180,0,'81.38.52.204',1160949309,1,0,1,1,1,0,'','','Hola de nuevo Carlos:\n\nHe pensado que quizá el problema esté en la hbzip.lib que esto usando.\nPuedes enviarme la que tu usas con xblite?\n\nUn saludo,\nManuel','',0,'CA==','1muevqru',1,0,'',180,0,0),(20396,4604,6,2,0,'87.218.146.108',1160951424,1,0,1,1,1,1,'','','Manuel,\n\nTe envio por email el build que he usado.','',0,'CA==','2pgbrjy3',1,0,'',2,0,0),(20397,4507,6,53,0,'189.139.13.46',1160955892,1,0,1,1,1,1,'','','Rodolfo:\n\nSi aún no resuelves el problema, echale una mirada a\n\n<!-- m --><a class=\"postlink\" href=\"http://www.portablefreeware.com/?p=3\">http://www.portablefreeware.com/?p=3</a><!-- m -->\n\nÉxito, Armando','',0,'CA==','3ffcy0k0',1,0,'',53,0,0),(20398,4600,3,6,0,'82.58.168.165',1160982694,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'CA==','1s1wfz6t',1,0,'',6,0,0),(20399,4605,3,810,0,'84.172.63.244',1160983205,1,0,1,1,1,0,'','Active x tooooo much scrollbar in Dialog','When i use active x Shell explorer i have vert and horz Scrollbar on the active x control and vert and horz scrollbars on the Dialog\n\ntx','',0,'CA==','3lhgyctu',1,0,'',810,0,0),(20400,4605,3,2,0,'87.218.146.108',1160985021,1,0,1,1,1,1,'','','Uwe,\n\nCould you please provide a small sample to reproduce it ? thanks,','',0,'CA==','15u8pd58',1,0,'',2,0,0),(20401,4606,2,350,0,'80.32.243.219',1160989144,1,0,1,1,1,0,'','Rueda del ratón','Hola a todos, a ver si alguien me puede echar una mano.\n\nUsando la rueda del ratón, tanto en WBrowse como en Preview, la mueva para donde la mueva siempre va hacia abajo.\n\n¿ Alguna pista de donde puede estar el problema ?\n\nSaludos','',0,'CA==','yq037hnu',1,0,'',350,0,0),(20402,4552,6,2,0,'87.218.146.108',1161002969,1,0,1,1,1,1,'','','Jackson,\n\nLos parámetros de compilación estan bien. Puedes proporcionarnos un ejemplo que reproduzca el error ? gracias,','',0,'CA==','ezd2lwe4',1,0,'',2,0,0),(20403,4606,2,2,0,'87.218.146.108',1161003067,1,0,1,1,1,1,'','','Sebastián,\n\nEse comportamiento es normal (y no deseable) en 16 bits. No se puede corregir. \n\nSólo funciona bien en 32 bits.','',0,'CA==','2dzokyh3',1,0,'',2,0,0),(20404,4607,2,832,0,'201.122.21.224',1161007518,1,0,1,1,1,0,'','AYUDA URGENTE !!!! COMO ENVIAR DATOS CON SOCKTES','ME PREGUNTA ES COMO ENVIAR ALGUN VALOR DE UNA VARIABLE EN UN SOCKET\n\nEL SIGUIENTE EJEMPLO ME ENVIA  EN ARCHIVO DEL CLIENTE AL SERVER.. PERO COMO LE HAGO PARA ENVIAR VALOR EN ESPECIFICO DE VARIABLES....\n\n  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> POR LA PARTE DEL CLIENTE..\n\n#include \"FiveWin.ch\"\n\nstatic oWnd, oSocket\n\nfunction Main()\n   local oBar\n   DEFINE WINDOW oWnd TITLE \"Client socket\"\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n   DEFINE BUTTON OF oBar ACTION Client() TOOLTIP \"Connect\"\n   DEFINE BUTTON OF oBar ;\n      ACTION oSocket:SendData( \"MSG This is a test\" ) ;\n      TOOLTIP \"Send data\"\n   DEFINE BUTTON OF oBar ;\n      ACTION SendFile() TOOLTIP \"Send file\"\n   DEFINE BUTTON OF oBar ;\n      ACTION SendDb() TOOLTIP \"Send Db\"\n   ACTIVATE WINDOW oWnd\nreturn nil\n//*****************************************************\nfunction Client()\n   oSocket = TSocket():New( 2000 )\n   oSocket:bRead    = { | oSocket | MsgInfo( oSocket:GetData() ) }\n   // Never use a MsgInfo() here because it hangs Windows!!!\n   oSocket:bConnect = { || oWnd:SetText( \"Connected!\" ) }\n   oSocket:bClose   = { || MsgInfo( \"Server has closed!\" ) }\n   oSocket:Connect( \"128.50.1.179\" ) // use the server IP address here\nreturn nil\n//**************************************************\nfunction SendFile()\n   local cFileName := cGetFile( \"*.*\", \"Select a file to send by Internet\")\n   if ! Empty( cFileName ) .and. File( cFileName )\n      Socket:SendData( \"SENDFILE \" + cFileName( cFileName ))\n      oSocket:SendFile( cFileName )\n      oSocket:End()\n      MsgInfo( \"archivo enviado\" )\n   endif\nreturn nil\n\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> POR PARTE DEL SERVER\n\n#include \"FiveWin.ch\"\n\n#define ST_COMMAND  1\n#define ST_SENDFILE 2\n#define ST_OPENDB   3\n\n#define FILE_BLOCK 8000\n\nstatic oWnd, oSocket, oClient\n//------------------------------------------------------------------------//\nfunction Main()\n   local oBar\n   DEFINE WINDOW oWnd TITLE \"Server socket\"\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n   DEFINE BUTTON OF oBar ACTION Server() TOOLTIP \"Listen\"\n   ACTIVATE WINDOW oWnd\nreturn nil\n\n//------------------------------------------------------------------------//\nfunction Server()\n   oSocket = TSocket():New( 2000 )\n  oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),;\n                       oClient:Cargo := ST_COMMAND,;\n                       oClient:bRead := { | oSocket | OnRead( oSocket ) },;\n                       oClient:bClose := { | oSocket | OnClose( oSocket ) } }\n   oSocket:Listen()\nreturn nil\n\n//------------------------------------------------------------------------//\n\nfunction OnRead( oSocket )\n   local cData := oSocket:GetData()\n   local cToken\n   LogFile( \"sockserv.txt\", { Len( cData ) } )\n   do case\n      case oSocket:Cargo == ST_COMMAND\n           cToken = StrToken( cData, 1 )\n           do case\n              case cToken == \"SENDFILE\"\n                   oSocket:Cargo = ST_SENDFILE\n                   oSocket:hFile = fcreate( StrToken( cData, 2 ) )\n              case cToken == \"MSG\"\n                   MsgInfo( SubStr( cData, 5 ) )\n           endcase\n      case oSocket:Cargo == ST_SENDFILE\n           fwrite( oSocket:hFile, cData, Len( cData ) )\n           LogFile( \"sockserv.txt\", { \"writting...\" } )\n           if Len( cData ) &lt; FILE_BLOCK\n              // fclose( oSocket:hFile )\n              // MsgInfo( Len( cData ) )\n              // oSocket:Cargo = ST_COMMAND\n           endif\n   endcase\nreturn nil\n//------------------------------------------------------------------------//\n\nfunction OnClose( oSocket )\n   MsgInfo( \"Client has closed!\" )\n   do case\n      case oSocket:Cargo == ST_SENDFILE\n           fclose( oSocket:hFile )\n   endcase\n   oSocket:End()\nreturn nil','',0,'CA==','c8qjko2q',1,0,'',832,0,0),(20405,4134,4,267,0,'200.208.238.2',1161008010,1,0,1,1,1,1,'','','Antonio,\n\nYou already have a forecast of when you will have TFTP and TFTPFILE for FwPpc?','',0,'CA==','29un78k9',1,0,'',267,0,0),(20406,4608,7,598,0,'200.11.139.61',1161010281,1,0,1,1,1,1,'','Puedo comprar el fwppc con una transferencia bancaria??','Que tal Don Antonio, \ncomo hago para comprar el fwppc con una transferencia bancaria, el site de pago de fw solo me permite hacerlo con tarjeta de credito, pero en mi pais hay control de cambio y ya no tengo cupo en moneda extranjera en mi tarjeta para comprar.. como podria yo hacer?','',0,'CA==','30s7amr3',1,0,'',598,0,0),(20407,4604,6,180,0,'83.34.155.222',1161013107,1,0,1,1,1,0,'','','Disculpa Antonio, ¿te importaría enviarmelo de nuevo a <!-- e --><a href=\"mailto:mareli@tiscali.es\">mareli@tiscali.es</a><!-- e --> ?\nTenia el e-mail desactualizado en el perfíl. Ya lo corregí.\n\nSaludos y gracias.\nManuel','',0,'CA==','1u9qzo26',1,0,'',180,0,0),(20408,2767,4,13,0,'213.76.252.200',1161015272,1,0,1,1,1,0,'','','Vilian,\n\nThis is simple function to do it (I use static libary no DLL):\n\nRegards\nPawel\n\n[code:znp9spmh]\n#pragma BEGINDUMP\n\n#include &lt;gxsftp&#46;h&gt;\n#include &lt;dfileb&#46;h&gt;\n\nHB_FUNC &#40;FTPDOWNLOAD&#41;\n&#123;\n  const char *server = hb_parc &#40;1&#41;;\n  const char *user = hb_parc &#40;2&#41;;\n  const char *pass = hb_parc &#40;3&#41;;\n  const char *file = hb_parc &#40;4&#41;;\n  gxsFTPClient ftp;\n  FAU_t bytes;\n  BOOL ret = FALSE;\n\n  ftp&#46;SetTimeOut &#40;10, 0&#41;;\n  if &#40;ftp&#46;ConnectClient &#40;&#40;const char *&#41; server, 21&#41; == 0&#41;\n  &#123;\n     ftp&#46;FTPPassive &#40;&#41;;\n     ftp&#46;FTPImageType &#40;\'B\'&#41;;\n     if &#40;ftp&#46;FTPLogin &#40;&#40;const char *&#41; user, &#40;const char *&#41; pass&#41; == 0&#41;\n     &#123;\n        DiskFileB stream &#40;&#40;const char *&#41; file, DiskFileB&#58;&#58;df_READWRITE, DiskFileB&#58;&#58;df_CREATE&#41;;\n        if &#40;!stream&#41; ret = FALSE;\n        else\n        &#123;\n           if &#40;ftp&#46;FTPGet &#40;&#40;const char *&#41; file, stream, bytes&#41; != 0&#41; ret = FALSE;\n           else ret = TRUE;\n        &#125;\n        ftp&#46;FTPLogout &#40;&#41;;\n     &#125;\n     else ret = FALSE;\n  &#125;\n  else ret = FALSE;\n  ftp&#46;Close &#40;&#41;;\n  hb_retl &#40;ret&#41;;\n&#125;\n\nHB_FUNC &#40;FTPUPLOAD&#41;\n&#123;\n  const char *server = hb_parc &#40;1&#41;;\n  const char *user = hb_parc &#40;2&#41;;\n  const char *pass = hb_parc &#40;3&#41;;\n  const char *file = hb_parc &#40;4&#41;;\n  gxsFTPClient ftp;\n  FAU_t bytes;\n  BOOL ret = FALSE;\n\n  ftp&#46;SetTimeOut &#40;10, 0&#41;;\n  if &#40;ftp&#46;ConnectClient &#40;&#40;const char *&#41; server, 21&#41; == 0&#41;\n  &#123;\n     ftp&#46;FTPPassive &#40;&#41;;\n     ftp&#46;FTPImageType &#40;\'B\'&#41;;\n     if &#40;ftp&#46;FTPLogin &#40;&#40;const char *&#41; user, &#40;const char *&#41; pass&#41; == 0&#41;\n     &#123;\n        DiskFileB stream &#40;&#40;const char *&#41; file&#41;;\n        if &#40;!stream&#41; ret = FALSE;\n        else\n        &#123;\n           if &#40;ftp&#46;FTPPut &#40;&#40;const char *&#41; file, stream, bytes&#41; != 0&#41; ret = FALSE;\n           else ret = TRUE;\n        &#125;\n        ftp&#46;FTPLogout &#40;&#41;;\n     &#125;\n     else ret = FALSE;\n  &#125;\n  else ret = FALSE;\n  ftp&#46;Close &#40;&#41;;\n  hb_retl &#40;ret&#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:znp9spmh]','',0,'AIA=','znp9spmh',1,0,'',13,0,0),(20409,4608,7,2,0,'87.218.146.108',1161016283,1,0,1,1,1,1,'','','Luis,\n\nTe enviamos por email los datos necesarios, gracias.','',0,'AIA=','sgvewpl7',1,0,'',2,0,0),(20410,4604,6,2,0,'87.218.146.108',1161016601,1,0,1,1,1,1,'','','Manuel,\n\nEnviado,','',0,'AIA=','2e70d3po',1,0,'',2,0,0),(20411,4608,7,2,0,'87.218.146.108',1161016711,1,0,1,1,1,1,'','','Luis,\n\nTienes otra cuenta de email differente a la de <!-- e --><a href=\"mailto:luissanteliz@cantv.net\">luissanteliz@cantv.net</a><!-- e --> ?\n\nEs que no podemos enviar ningún email a las de cantv.net (no sabemos por que).','',0,'AIA=','12deh4ls',1,0,'',2,0,0),(20412,4134,4,2,0,'87.218.146.108',1161016832,1,0,1,1,1,1,'','','Vilian,\n\nIts on our todo list, though actually we are busy building a new Harbour for Pocket PC build, using the most recent Harbour CVS files.','',0,'AIA=','36j3dgfa',1,0,'',2,0,0),(20413,4607,2,2,0,'87.218.146.108',1161017161,1,0,1,1,1,1,'','','Pedro,\n\nTendrías que implementar un nuevo mensaje, como por ejemplo:\n\noSocket:SendData( \"VAR C Hola que tal\" )\n\nVAR indicaría que envías un valor de una variable, C su tipo, y a continuación el valor.\n\nEl código del servidor has de modificarlo para que lo reconozca:\n[code:rhkjz5dw]\ncase cToken == &quot;VAR&quot; \n   do case\n        case SubStr&#40; cData, 5, 1 &#41; == &quot;C&quot;\n               MsgInfo&#40; SubStr&#40; cData, 7 &#41; &#41; \n\n        case SubStr&#40; cData, 5, 1 &#41; == &quot;N&quot;\n               &#46;&#46;&#46;\n[/code:rhkjz5dw]','',0,'AIA=','rhkjz5dw',1,0,'',2,0,0),(20414,4608,7,598,0,'200.11.139.61',1161018112,1,0,1,1,1,1,'','','por messenger : <!-- e --><a href=\"mailto:erguevittoriano@hotmail.com\">erguevittoriano@hotmail.com</a><!-- e -->','',0,'AIA=','1m6sx99i',1,0,'',598,0,0),(20415,4586,6,496,0,'157.100.180.226',1161019488,1,0,1,1,1,0,'','','Un saludo\n\nTe he contestado a tu email, pero sin respuesta. De todas formas tambien puedes escribirme a [url]mjingo@hotmail.com[/url] que lo puedo revisar desde cualquier lado.\n\nQue gusto saber que más ecuatorianos van conformando esta comunidad.\n\n\nMarcelo Jingo','',0,'EA==','3pqwxpq4',1,0,'',496,0,0),(20416,2767,4,267,0,'200.208.238.2',1161019776,1,0,1,1,1,1,'','','Pawel ,\n\nThanks for help,\n\nYou have lib already generated? I make download the file in the site, but he points the lack of some archives!','',0,'EA==','134jhugl',1,0,'',267,0,0),(20417,4609,6,72,0,'189.146.15.198',1161023452,1,0,1,1,1,0,'','Solo para presumir...','No había trabajado sin usar recursos, pero finalmente rompí esa resistencia y después de dos semanas lo logré. \n\nHe aquí una imagen de los alcances obtenidos con esta maravillosa herramienta FiveWin. Los browses contienen solo arreglos por lo que la información puede ser obtenida desde cualquier medio de almacenamiento (en este caso desde Acces y xBase).\n\nMe costó entender el comportamiento de los Spliters, después de escarbar aquí en el foro entendí como trabajarlos, hice algunos ajustes al WBrowse de nuestro querido colega hDC para manejarlo con mayor flexibilidad. La vista tipo OutLook?, TSSay de Avendaño.\n\nTodas las áreas de la imagen son totalmente flexibles!\n\n<!-- m --><a class=\"postlink\" href=\"http://img261.imageshack.us/img261/7591/dibujoro5.jpg\">http://img261.imageshack.us/img261/7591/dibujoro5.jpg</a><!-- m -->','',0,'EA==','gxhirw51',1,0,'',72,0,0),(20418,4134,4,267,0,'200.208.238.2',1161030219,1,0,1,1,1,1,'','','Antonio,\n\nI know that the friend must is full of things to make, but to conclude our first application with FWPPC, lacks only the sending and act of receiving of data saw ftp, thus would be grateful if the implementation of class ftp could place enters its priorities.','',0,'EA==','30upb2td',1,0,'',267,0,0),(20419,4608,7,2,0,'87.218.146.108',1161032580,1,0,1,1,1,1,'','','Luis,\n\nEnviado a ese email, gracias','',0,'EA==','31hmqj2c',1,0,'',2,0,0),(20420,4609,6,2,0,'87.218.146.108',1161032733,1,0,1,1,1,1,'','','Alfredo,\n\nExcelente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','3b4qft4u',1,0,'',2,0,0),(20421,4609,6,36,0,'200.113.56.235',1161035070,1,0,1,1,1,0,'','','Alfredo\n\nSe ve buenisimo, felicitaciones\n\nSaludos\nPatricio\n\npd. nunca he utilizado spliter, si que me voy actualizar un poquito <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','15w1nq54',1,0,'',36,0,0),(20422,4551,6,138,0,'189.141.70.60',1161040684,1,0,1,1,1,1,'','','Tu pide por esa boca....\n\nEnviado a tu privado','',0,'EA==','2nej49tz',1,0,'',138,0,0),(20423,4609,6,72,0,'189.146.15.198',1161042681,1,0,1,1,1,0,'','','Gracias familia... no hay magia solo efectos especiales.\n\nSi a alguien le interesa parte del código puede descargarlo desde <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/an-var.zip\">http://www.despachoarteaga.com.mx/an-var.zip</a><!-- m --> incluye cambios en WBrowse (revisar Leeme.Txt).','',0,'EA==','soi3w4d6',1,0,'',72,0,0),(20424,4609,6,785,0,'190.64.96.246',1161052411,1,0,1,1,1,0,'','','Alfredo:\n\nEsto esta ESPECTACULAR.\n\nFelicitaciones, se ve realmente muy bien.\n\nSaludos\n\nRuben Fernandez.','',0,'EA==','u3usc7c8',1,0,'',785,0,0),(20425,4609,6,582,0,'201.253.73.69',1161056290,1,0,1,1,1,0,'','Re: Solo para presumir...','Conociendo como conozco tu trabajo, era de imaginar TROESMA !!!\n\nFelicitaciones !!!\n\nUn abrazo enorme. El Loco =&gt;))','',0,'EA==','27s801g5',1,0,'',582,0,0),(20426,4282,4,68,0,'203.13.90.2',1161056921,1,0,1,1,1,1,'','','Richard,\nPerhaps its a flow control issue - is it using Xon/Xoff ?\nhth','',0,'EA==','ngcdltly',1,0,'',68,0,0),(20427,4546,4,68,0,'203.13.90.2',1161057225,1,0,1,1,1,1,'','','Dutch,\nDo you have the Netware drivers installed on your PDA? You may need to review/search the Novell support sites... good luck.\nhth','',0,'EA==','2m4dwr8k',1,0,'',68,0,0),(20428,4610,3,297,0,'217.57.213.130',1161066941,1,0,1,1,1,0,'','LISTBOX HEADERS special characters','To put in evidence if order type is descending or not I need to write in headers of my listboxs a character like down arrow or up arrow (in outlook there are triangles ) \nI use \"MS Sans Serif\" font and the only two characters approximately seem an arrow are \"&lt;\" and \"&gt;\" but they are horizontal. I need vertical\ncharacter.\nAny ideas?\nThanks\nMarco','',0,'EA==','2xh8wgye',1,0,'',297,0,0),(20429,4611,6,28,0,'213.27.201.254',1161078250,1,0,1,1,1,0,'','Clonar un objeto','Hola a todos\n\n¿alguien sabría como clonar un objeto, hacer un duplicado del mismo?\n\nUn saludo','',0,'EA==','3rj7ueud',1,0,'',28,0,0),(20430,4611,6,123,0,'83.44.43.12',1161110826,1,0,1,1,1,0,'','','Hola Paco,\n\nPrueba __objClone( o )\n\nSaludos,\nJosé Luis Capel','',0,'EA==','cdwyy9b2',1,0,'',123,0,0),(20431,4282,4,3,0,'82.65.175.73',1161111141,1,0,1,1,1,1,'','','[quote=&quot;Jon Munro&quot;:3kgorgg9]Richard,\nPerhaps its a flow control issue - is it using Xon/Xoff ?\nhth[/quote:3kgorgg9]\n\nJon\n\nI do not know how to control if it is using xon/xoff\n\nWhere can i check this ?\n\nTia\n\nRichard','',0,'gA==','3kgorgg9',1,0,'',3,0,0),(20432,4602,3,394,0,'207.219.124.134',1161120675,1,0,1,1,1,0,'','','I am using -\nxHarbourBuilder-Enterprise-Oct2006.exe','',0,'gA==','3s4zud13',1,0,'',394,0,0),(20433,4612,6,278,0,'164.77.166.80',1161122504,1,0,1,1,1,1,'','Uso correcto del ADO (1)','Hola Foro:\n\nNecesito una orientacion de que es mejor al trabajar con ADO.\n \n( disculpen si son medias básicas , pero es mas claro para mi )\n\n1) Es necesario tener que abrir cada vez que abro un recordset abrir tambien un objeto conexion.  Pues he usado unos ejemplos directos del recordset y funcionan OK.  Es su funcionamiento asi ?\nPorque o sino cual es el objeto de hacer una conexion , si puedo obtener los datos directamente !!\n\n2) Una vez realizada una conexion , por ejemplo al inicio del programa, esta durará me imagino , mientras yo no la cierre. Pero, puede ocurrir que la conexion  me la cierre el servidor y no el programa cliente. Hay forma de validar esto. Oh solo con usar la propiedad Activeconection basta !!  Que es lo mejor aqui.\n\n3) Existe algun limite en el numero de conexiones realizadas por el cliente en forma simultanea  ? Que problemas puede traer ?\n\n\n4) Al \"browsear\" un recordset directamente con ADO ( use el ejemplo del master Rene ) , existe alguna forma de poder usar 2 colores en el browse, para diferenciar mejor los datos. Antes con los dbf usaba por ejemplo el ( recno() , nAT , %2 ) , pero en ADO no existe este concepto, que se puede hacer ??\n\nEstoy probando con Access y va muy bien, pero  aun  estoy con duditas, cualquier orientación se les agradece.\n\nJuan\n\nPD: Uso FWH  + xHarbour','',0,'gA==','gq3qz4l3',1,0,'',278,0,0),(20434,4611,6,28,0,'87.218.46.227',1161122535,1,0,1,1,1,0,'','?','Supongo que no inicializa metodos ni nada por el estilo, vamos que no llama al constructor.\nLos codebloks ¿se duplican también?\nSaludos','',0,'gA==','w4mfetgm',1,0,'',28,0,0),(20435,4602,3,2,0,'87.218.146.157',1161124684,1,0,1,1,1,1,'','','Mike,\n\nHere it is working fine. Are you linking FWH libraries before xHB ones ? Are you using standard xHB to build the samples ?','',0,'gA==','24wqhjh3',1,0,'',2,0,0),(20436,4610,3,343,0,'24.173.70.29',1161124769,1,0,1,1,1,0,'','','How about \\/ and /\\ which are the left and right slashes','',0,'gA==','1mhdmsjc',1,0,'',343,0,0),(20437,4602,3,343,0,'24.173.70.29',1161125074,1,0,1,1,1,0,'','','I am getting the same error. \nThere is no obvious way to change the link order of FWH with xHarbour Builder','',0,'gA==','1iyazg0r',1,0,'',343,0,0),(20438,4613,4,18,0,'200.67.153.171',1161129339,1,0,1,1,1,1,'','Function GetHostByName() is Working on FWPPC ?','Hi , just that <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3mmpp2tl',1,0,'',18,0,0),(20439,4614,7,18,0,'200.67.153.171',1161129440,1,0,1,1,1,1,'','La función GetHostByName() funciona en FWPPC ?','Hola a todos.\n\nMe esta devolviendo siempre 0.0.0.0','',0,'gA==','2ksuhabx',1,0,'',18,0,0),(20440,4615,6,328,0,'72.252.68.135',1161139290,1,0,1,1,1,0,'','Sort en Excel...','Hola a todos.\nAlguien sabe como se tendría que hacer este Macro en Fivewin, para hacer un sort en una hoja Excel:\n[code:3hp7nwog]\nSelection&#46;Sort Key1&#58;=Range&#40;&quot;A9&quot;&#41;, Order1&#58;=xlAscending, Key2&#58;=Range&#40;&quot;R9&quot;&#41; _\n        , Order2&#58;=xlDescending, Header&#58;=xlGuess, OrderCustom&#58;=1, MatchCase&#58;= _\n        False, Orientation&#58;=xlTopToBottom, DataOption1&#58;=xlSortNormal, DataOption2 _\n        &#58;=xlSortNormal\n[/code:3hp7nwog]\n\nHe encontrado, que la funcion Sort, es miembro de Excel.range, definida de esta forma\n[code:3hp7nwog]\nFunction Sort&#40;&#91;Key1&#93;, &#91;Order1 As XlSortOrder = xlAscending&#93;, &#91;Key2&#93;, &#91;Type&#93;, &#91;Order2 As XlSortOrder = xlAscending&#93;, &#91;Key3&#93;, &#91;Order3 As XlSortOrder = xlAscending&#93;, &#91;Header As XlYesNoGuess = xlNo&#93;, &#91;OrderCustom&#93;, &#91;MatchCase&#93;, &#91;Orientation As XlSortOrientation = xlSortRows&#93;, &#91;SortMethod As XlSortMethod = xlPinYin&#93;, &#91;DataOption1 As XlSortDataOption = xlSortNormal&#93;, &#91;DataOption2 As XlSortDataOption = xlSortNormal&#93;, &#91;DataOption3 As XlSortDataOption = xlSortNormal&#93;&#41;\n[/code:3hp7nwog]\n\ny he tratado de utilizarla de esta manera:\n[code:3hp7nwog]\n#define xlAscending 1\n#define xlDescending 2\n#define xlGuess 0\n#define xlTopToBottom 1\n#define xlSortNormal 0\n&#46;&#46;&#46;\noRan1 &#58;= oSheet&#58;Range&#40;&quot;A9&quot;&#41;\noRan2 &#58;= oSheet&#58;Range&#40;&quot;R9&quot;&#41;\noExcel&#58;Range&#58;Selection&#58;Sort&#40; oRan1, xlAscending, oRan2, xlDescending,,,xlGuess,1,&#46;f&#46;,xlTopToBottom,,xlSortNormal,xlSortNormal&#41;\n[/code:3hp7nwog]\n\nPero obtengo el mensaje:\n[code:3hp7nwog]\nError  DIS_E_BADPARAMCOUNT&#58;RANGE\n[/code:3hp7nwog]\n\nAlguien ha podido hacer un sort en una hoja Excel desde Fivewin?\n\nGracias.\n\nCarlos Sincuir','',0,'AIA=','3hp7nwog',1,0,'',328,0,0),(20441,4616,3,678,0,'168.209.98.43',1161148584,1,0,1,1,1,1,'','CallDll32 funny','Hi Antonio\n\nI have a Fwh and xHb aplication using latest Sept/Oct2006 Fw28/xHb\nThis app call the tMutex.prg class Create method below. The tMutex create method calls CallDLL32(.....). In my application when CallDLL32 is called, i get a pop up msgalert \"CallDll32\", with a title of \"calldll.c\". I have tracked this down to \\fwh\\source\\winapi\\calldll.c which contains\n#ifdef __BORLANDC__\n..........\n#else\n   CLIPPER CALLDLL32( PARAMS )\n   {\n      #ifndef UNICODE\n         MessageBox( 0, \"CallDll32\", \"CallDll.c\", 0 );\n      #else   \n         MessageBox( 0, L\"CallDll32\", L\"CallDll.c\", 0 );\n      #endif   \n   }\n\nIt seems the above CLIPPER CALLDLL32 is being called in error?\nIn addition, if I ignore the above msgalert, in the line of code below (::hMutex := CallDLL32(...) is set to an array (in stead of a numeric handle), the 2nd element of which is the correct hMutex handle\n\nIf I move tMutex.prg to earlier in my xbp link script, the problem is resolved, but that is an unsatisfactory solution \n\nCan you think what might be causing this?\nThanks\nPeter\n\n\n\n\n*********************\nMethod Create( sMutexAttr, lInitialOwner, cName ) Class TMutex\n\nLocal hDLL := LoadLib32( iKERNEL )\nLocal cFarProc, cFunc := \"CreateMutexA\", cBuffer := Nil\n\nDefault lInitialOwner := .F., cName := \"FiveWin App\"\n\nIf ValType( sMutexAttr ) == \"O\" .and. ;\n      Upper( sMutexAttr:className() ) == \"TSTRUCT\"\n   cBuffer := sMutexAttr:cBuffer\nEndif\n\n::cName := cName\n\nIf Abs( hDLL ) &gt; 32                                   /*LPSTR*/ // LPSTR fails under 32bits!\n   cFarProc := GetProc32( hDLL, cFunc, iASPASCAL, LONG, LONG, LONG, STRING )\n   ::hMutex := CallDLL32( cFarProc, ;\n      If( cBuffer # Nil, @cBuffer, cBuffer ), ;  // lpMutexAttributes, security descriptor structure or nil\n      Bool2Int( lInitialOwner ), ;               // bInitialOwner, initial owner\n      cName + Chr(0) )                           // lpName, object name\n   FreeLib32( hDLL )\n   If cBuffer # Nil\n      sMutexAttr:cBuffer := cBuffer\n   Endif\n\nElse\n   ::Failed( hDLL, cFunc )\nEndif\n\nReturn Self\n*********************','',0,'AIA=','2rdvrevo',1,0,'',678,0,0),(20442,4602,3,2,0,'87.218.146.157',1161152705,1,0,1,1,1,1,'','','Please review this file:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02cc868269/media.zip.html\">http://hyperupload.com/download/02cc868 ... a.zip.html</a><!-- m -->','',0,'AIA=','2fn2ff1x',1,0,'',2,0,0),(20443,4616,3,2,0,'87.218.146.157',1161153026,1,0,1,1,1,1,'','','Peter,\n\nIn 32 bits you have to use CallDLL() and GetProcAddress(). \n\nThe functions you are using are just for 16 bits, to access 32 bits ones.','',0,'AIA=','3vqzhlzl',1,0,'',2,0,0),(20444,4610,3,297,0,'217.57.213.130',1161154012,1,0,1,1,1,0,'','','You are in right!\nYesterday I analized my keyboard and thinked up the same idea\n\nIn my opinion all developer would appreciate this feature of twbrowse class:\n\ntwo (up&amp;down) 3d triangle in every index column header.\nLike outlook and all other popular software.','',0,'AIA=','1nzvo91b',1,0,'',297,0,0),(20445,4617,7,63,0,'80.37.102.128',1161154203,1,0,1,1,1,0,'','DatePicker no respeta Set Date ni SetCentury?','Por las pruebas que he hecho, Date Picker (versión Agosto 2006) no parece respetar las clausulas SET DATE BRITISH ni SET CENTURY ON.  Alguna solución?\n\nGracias,\n\nRafael','',0,'AIA=','3ekggcd4',1,0,'',63,0,0),(20446,4618,3,707,0,'222.124.20.50',1161154606,1,0,1,1,1,0,'','nKey return Value','Hi All !\n\nHow to get nKey return value of  Alt+F1, Ctrl+F1 and Shift+F1\n\nThanks\n\nBest Regard\nAreang','',0,'AIA=','1i0twpzw',1,0,'',707,0,0),(20447,4282,4,68,0,'203.13.90.2',1161154772,1,0,1,1,1,1,'','','Richard,\nPrinting directly from FWPPC I presume that you will need to send all the necessary printer control commands - just like the old days. By using the Windows \'save to file\' feature you may be able to pre-generate and capture what you need and then merge printer control fragments with your data and write it from FWPPC. Depending on printer memory and print volume you may not even need flow-control. Just a suggestion...hth.','',0,'AIA=','5zrhw1j2',1,0,'',68,0,0),(20448,4618,3,6,0,'87.19.15.24',1161156251,1,0,1,1,1,1,'','Re: nKey return Value','This is a sample for Ctrl+F1 and Shift+F1:\n\n[code:3ibbwbcf]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    SETKEY&#40; VK_F1, &#123; || Keys&#40;&#41; &#125; &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET cVar OF oDlg\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION KEYS&#40;&#41;\n\n    IF GETKEYSTATE&#40; VK_CONTROL &#41;\n        ? &quot;CTRL-F1&quot;\n    ENDIF\n\n    IF GETKEYSTATE&#40; VK_SHIFT &#41;\n        ? &quot;SHIFT-F1&quot;\n    ENDIF\n\n    RETURN NIL[/code:3ibbwbcf]\n\nEMG','',0,'AIA=','3ibbwbcf',1,0,'',6,0,0),(20449,4617,7,456,0,'217.127.39.57',1161159366,1,0,1,1,1,1,'','','Hola Rafael,\ncreo que puedes solucionarlo, configurando Regional Settings.','',0,'AIA=','5siwh21u',1,0,'',456,0,0),(20450,4594,6,180,0,'194.179.55.36',1161161153,1,0,1,1,1,0,'','','Bueno, gracias a Carlos que por privado me ha ayudado he podido solucionar el problema. No se trata del XBrowse o ListBox, el problema estaba en que hay que enlazar también con la libreria pcrepos.lib disponible en xharbour\\lib. Ya todo funciona perfectamente.\nDe nuevo gracias, Carlos y Kleyber, por el desarrollo de xBackup lite.\n\nUn saludo,\nManuel','',0,'AIA=','sd8doh1g',1,0,'',180,0,0),(20451,4282,4,3,0,'82.124.242.148',1161161627,1,0,1,1,1,1,'','','[quote=&quot;Jon Munro&quot;:42mo6q9z]Richard,\nPrinting directly from FWPPC I presume that you will need to send all the necessary printer control commands - just like the old days. By using the Windows \'save to file\' feature you may be able to pre-generate and capture what you need and then merge printer control fragments with your data and write it from FWPPC. Depending on printer memory and print volume you may not even need flow-control. Just a suggestion...hth.[/quote:42mo6q9z]\n\nJon\n\nWell actually what i do is write to a txt file and then manually print it with the print control panel, it works ok so far\n\nThanks for the help\n\nRichard','',0,'gA==','42mo6q9z',1,0,'',3,0,0),(20452,4617,7,63,0,'80.37.102.128',1161163417,1,0,1,1,1,0,'','','Hola, Biel\n\nEfectivamente.  Ajustando los settings tanto del emulador como del propio iPAQ se ha solucionado.  Muchas gracias y un saludo,\n\nRafael','',0,'gA==','2zokvydz',1,0,'',63,0,0),(20453,4616,3,678,0,'168.209.98.43',1161164216,1,0,1,1,1,1,'','','Thank you \n\nI now see that tMutex.prg does have the following at the bottom of the tMutex.prg (see end of mail)\n\nSo that would mean the fwh calldll.c function \'CLIPPER CALLDLL32( PARAMS )\' is being called instead of the \'Function CallDLL32\' below (in tMutex). \n\nThis should only happen if calldll.c (in FiveHcm.lib) is linked in before tMutex.prg. I am using xBuildW.exe which links FiveHcm.lib in automatically - I will have to investigate further\n\n\n\n****************\n#ifdef __HARBOUR__\nFunction LoadLib32( cDll )\nReturn LoadLibrary( cDll )\n\nFunction FreeLib32( hDll )\nReturn FreeLibrary( hDll )\n\nFunction GetProc32( hDLL, cFunc, lType, nRetType, nPType1, nPType2, nPType3, nPType4, nPType5, nPType6, nPType7, nPType8, nPType9, nPType10 )\nReturn GetProcAddress( hDLL, cFunc, lType, nRetType, nPType1, nPType2, nPType3, nPType4, nPType5, nPType6, nPType7, nPType8, nPType9, nPType10 )\n\nFunction CallDLL32( cFarProc, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6, uParam7, uParam8, uParam9, uParam10 )\nReturn CallDLL( cFarProc, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6, uParam7, uParam8, uParam9, uParam10 )\n#endif','',0,'gA==','1y22fflh',1,0,'',678,0,0),(20454,4616,3,2,0,'87.218.146.157',1161166845,1,0,1,1,1,1,'','','Peter,\n\nBetter do a search &amp; replace for those functions names in TMutex source code instead of using those wrappers.','',0,'gA==','3i21rxxv',1,0,'',2,0,0),(20455,4619,3,631,0,'200.245.0.31',1161169708,1,0,1,1,1,1,'','Unresolved external \'_HB_FUN_TSTATUSBAR\'','Error: Unresolved external \'_HB_FUN_TSTATUSBAR\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|RPREVIEW\n\nFWH 2.6 xHARBOUR 0.99.50','',0,'gA==','2lidlw1k',1,0,'',631,0,0),(20456,4619,3,2,0,'87.218.146.157',1161171401,1,0,1,1,1,1,'','','Evaldo,\n\nsource\\classes\\statusba.prg is missing in your FWH libraries.\n\nAs a workardound, you may add:\n\nfunction TStatusBar\nreturn nil','',0,'gA==','189eoyrp',1,0,'',2,0,0),(20457,4620,6,212,0,'190.64.11.239',1161175570,1,0,1,1,1,0,'','Error extraño con  un Get','En ocasiones cuando intento ingresar información me da este error javascript&#058;emoticon(\':(\')\nSad\nApplication\n===========\n   Path and name: C:\\DATASOL\\Datasol.Exe (32 bits)\n   Size: 2,958,848 bytes\n   Time from start: 0 hours 0 mins 47 secs \n   Error occurred at: 18/10/2006, 09:29:26\n   Error description: Error BASE/1068  Argument error: array access\n   Args:\n     [   1] = U   \n     [   2] = U   \n\nStack Calls\n===========\n   Called from: tget.prg =&gt; TCLIPGET:DELETE(1535)\n   Called from: TGET.PRG =&gt; TBTNGET:KEYDOWN(724)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNGET:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(3114)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(254)\n   Called from: FACTURA.PRG =&gt; FACTURAR(534)\n   Called from: GEST.PRG =&gt; (b)EVAL(403)\n   Called from: GEST.PRG =&gt; EJECUTO(1144)\n   Called from: GEST.PRG =&gt; (b)MENUPRINCIPAL(403)\n   Called from: TSBUTTON.PRG =&gt; TSBUTTON:CLICK(804)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: TSBUTTON.PRG =&gt; TSBUTTON:HANDLEEVENT(1308)\n   Called from: WINDOW.PRG =&gt; _FWH(3114)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(878)\n   Called from: GEST.PRG =&gt; MENUPRINCIPAL(452)\n   Called from: GEST.PRG =&gt; MAIN(232)\n\n///Aquí está el código\n REDEFINE BTNGET oGET[5] VAR oVAR[5] ID 106 of oDlgF PICTURE \"999\" ;\n            RESOURCE \"LUPA\" SPINNER ;\n            ON UP (++oVar[5],oGet[5]:Refresh(),FUNBUSCLI(oVar,oSayP,\"VEN\",3,5,@lOkVen,1)) ;\n            ON DOWN (--oVar[5],oGet[5]:Refresh(),FUNBUSCLI(oVar,oSayP,\"VEN\",3,5,@lOkVen,1)) ;\n            ACTION (oVar[5]:=0,FbProv(@oGet,@oVar,4,oSayP,5,lMod)) ;\n            Valid FUNBUSCLI(oVar,oSayP,\"VEN\",3,5,@lOkVen,1)\n            oGet[5]:bGotFocus:={ || oGet[5]:SelectAll() }\n\nLa variable es de Numérica\nEl problema es que no siempre da el error, y pueden pasar días sin problemas.\n\nUn saludo cordial\nRicardo <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','2jgttkqo',1,0,'',212,0,0),(20458,4621,2,832,0,'201.122.21.224',1161179919,1,0,1,1,1,0,'','AYUDA !!!  EL SOCKET SERVIDOR PUEDE ENVIAR DATOS AL CLIENTE','HOLA BUENOS DIAS A TODOS, MI DUDA ES COMO LE HAGO PARA QUE EL SOCKET SERVIDOR LE ENVIE UNA RESPUESTA AL CLIENTE,ES DECIR CUANDO SE HAYA TERMINADO DE EJECUTAR ALGUN PROCESO, O COMO HACER QUE EL SERVIDOR LE ENVIE DATOS DE REGRESO AL CLIENTE\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  EL CODIGO DEL CLIENTE ES EL SIGUINETE\n\n  oSocket = TSocket():New( 2000 )\n   oSocket:bRead    = { | oSocket | MsgInfo( oSocket:GetData() ) }\n   // Never use a MsgInfo() here because it hangs Windows!!!\n   oSocket:bConnect = { || oPedcli:SetText( \"Connected  128.50.1.179\" ) }\n   oSocket:bClose   = { || MsgInfo( \"Server has closed!\" ) }\n   oSocket:Connect( \"128.50.1.179\" ) // use the server IP address here\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> POR LA PARTE DEL SERVER\n\nfunction Server()\n  oSocket = TSocket():New(2000)\n  oSocket:bAccept = { | oSocket | oClient := TSocket():Accept( oSocket:nSocket ),;\n                       oClient:Cargo := ST_COMMAND,;\n                       oClient:bRead := { | oSocket | OnRead( oSocket,\"F:\\LOC\\POS\\CAMBIO\\BASE0001.DBF\")},;\n                       oClient:bClose := { | oSocket | OnClose( oSocket ) } }\n  oSocket:Listen()\nreturn nil\n\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  ESPERO Y ME PUEDAN AYUDAR Y MUCHAS GRACIAS','',0,'','29hd0pzb',1,0,'',832,0,0),(20459,4615,6,18,0,'200.67.188.236',1161180587,1,0,1,1,1,1,'','','Carlos :\n\nEsta es la manera de hacerlo:\n\noExcel:oSheet:Range( \"B5:C13\" ):Select()\noExcel:oExcel:Selection:Sort( \"B6\" , _y tus otros parámetros_)','',0,'','283jk7hj',1,0,'',18,0,0),(20460,4602,3,394,0,'207.219.124.134',1161181332,1,0,1,1,1,0,'','New Error','Now I get the following error, when I try with media.zip you uploaded.\nThanks Mike.\nType: C &gt;&gt;&gt;xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:\"C:\\xHB\\lib\" -LIBPATH:\"C:\\xHB\\c_lib\" -LIBPATH:\"C:\\xHB\\c_lib\\win\"  -LIBPATH:\"C:\\fwh\\libx\" -LIBPATH:\"C:\\fwh\\lib\" \"media.obj\" FiveHCM.lib FiveHMX.lib OptG.lib xhb.lib dbf.lib ntx.lib cdx.lib rmdbfcdx.lib activex.lib crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:\"media.exe\"&lt;&lt;&lt;\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_TREBAR\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_TTOOLBAR\'.\n\nxLINK: fatal error: 2 unresolved external(s).\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: media.exe&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1275&lt;&lt;&lt;','',0,'','2gto5y4w',1,0,'',394,0,0),(20461,4585,3,781,0,'201.68.75.108',1161183126,1,0,1,1,1,0,'','','mike, \ntake a look at the Matteo Baccan\'s xHarbour Socket Interface 1.05. (<!-- w --><a class=\"postlink\" href=\"http://www.baccan.it\">www.baccan.it</a><!-- w -->)\nthere\'s a class called \'TDecode\', it contains the  \'Encode64()\' method, used to make a 64 bit string encryption.\n\nregards','',0,'','1bpk390f',1,0,'',781,0,0),(20462,4622,2,184,0,'201.222.6.66',1161183268,1,0,1,1,1,0,'','Pregunta sobre wbrowse.','Es posible usar el boton derecho del raton para seleccionar la fila del browse y posteriormente mostrar un menu.\n\nprobe usando, \n\noBrw:brClicked := { || Menu() }\n\ny me muestra el menu pero no me cambia la fila reslatada.','',0,'','3ur7f3wy',1,0,'',184,0,0),(20463,4611,6,123,0,'88.0.86.53',1161183555,1,0,1,1,1,0,'','','Paco,\n\n[code:y8ptpxt5]Function Main&#40;&#41;\nLOCAL u,v\n\nu &#58;= miClase&#40;&#41;&#58;c&#40;&#41;\nu&#58;s &#58;= &quot;objeto u&quot;\n\nv &#58;= __objClone&#40; u &#41;\n\n? v&#58;s // &quot;objecto u&quot;\n? v&#58;b&#40;&#41; // 1\n\nRETURN NIL\n\nCLASS miClase\n  DATA s\n  DATA t\n  METHOD a&#40;&#41;\n  METHOD B INLINE a&#40;&#41; // esto crea un codeblock\n  METHOD c&#40;&#41; \nENDCLASS\n\nMETHOD c&#40;&#41; CLASS miClase\nRETURN Self\n\nMETHOD a&#40;&#41; CLASS miClase\nRETURN 1[/code:y8ptpxt5]\n\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','y8ptpxt5',1,1161323759,'',123,1,0),(20464,4623,7,274,0,'200.171.101.122',1161184584,1,0,1,1,1,0,'','ShellExecute não abre página web criada','Olá a todos\n\nEstou com problemas para abrir um arquivo HTML criado pelo aplicativo.\nEm minha aplicação, alguns relatórios são criados em formato HTML.\nDepois de prontos são chamados por:\n\nShellExecute(0, \"open\", arq )\n\nou\n\nShellExecute(oT210:hWnd, \"open\", arq )\n\nsendo que arq := CurDir()+\"\\html\\ANALISE2.HTM\"\n\nA resposta do iexplorer é \"o caminho de rede não foi encontrado \"  e não abre o arquivo criado.\n\nEm outro caso, é criado um arquivo TXT neste caso \narq := CurDir()+\'\\html\\pedido.txt\'\ne é chamado por ShellExecute(0, \"open\", arq ) que abre perfeitamente o wordpad e exibe o arquivo txt.\n\nO problema com os arquivos HTM ocorre em todos os meus clientes que estão testando o programa em vários pocket\'s diferentes.\n\nSe utilizo o FileExplorer e clico no arquivo criado na pasta html, é aberto perfeitamente.\n\nAlguém sabe qual seria o problema?\n\n[]\'s\n\nRogerio','',0,'','1b2zlufr',1,0,'',274,0,0),(20465,4624,1,819,0,'216.34.194.113',1161185621,1,0,1,1,1,0,'','Where to find 32 bit Telepathy lib?','Hi all,\n\nAnybody knows where to get a 32 bit version of Telepathy lib?\n\nTIA','',0,'','27pzri2t',1,0,'',819,0,0),(20466,4282,4,598,0,'200.11.139.61',1161187304,1,0,1,1,1,1,'','','hi richard..\n\ni have the brother MPrintSDK, with programing guide, ESC codes for MW-100, 120 and 140, may be useful for you... if you need it email me..\n\n\n\nregards','',0,'','30kih5o8',1,0,'',598,0,0),(20467,4624,1,138,0,'189.141.70.60',1161188179,1,0,1,1,1,1,'','','There\'s not a 32 bits version of Telepathy.\n\nIn the xHarbour page you can find \"some\" Telepathy related functions, but not all the library has been moved to 32 bits.\n\nIn the (x)Harbour world you have to use the HBComm library to handle serial ports.','',0,'','r29ip53b',1,0,'',138,0,0),(20468,4602,3,2,0,'87.218.146.157',1161188487,1,0,1,1,1,1,'','','Mike,\n\nThose symbols should be provided in FiveHMX.lib. \n\nHave you recompiled FiveHMX.lib yourself ?','',0,'','1aiqront',1,0,'',2,0,0),(20469,4613,4,2,0,'87.218.146.157',1161189089,1,0,1,1,1,1,'','','Vikthor,\n\nIf your Pocket PC network is properly setup, then this code should work fine:\n[code:134zth4p]\nfunction Main&#40;&#41;\n\n   WSAStartup&#40;&#41;\n   MsgInfo&#40; GetHostByName&#40; &quot;www&#46;fivetechsoft&#46;com&quot; &#41; &#41;\n   WSACleanup&#40;&#41;\n\nreturn nil\n[/code:134zth4p]','',0,'AIA=','134zth4p',1,0,'',2,0,0),(20470,4622,2,2,0,'87.218.146.157',1161189344,1,0,1,1,1,1,'','','Simon,\n\nPrueba así:\n\noBrw:bRClicked := { | nRow, nCol, nFlags | oBrw:LButtonDown( nRow, nCol, nFlags ), Menu() }','',0,'AIA=','284kc56k',1,0,'',2,0,0),(20471,4614,7,2,0,'87.218.146.157',1161189567,1,0,1,1,1,1,'','','Vikthor,\n\nTienes bien configurado el acceso a red de la Pocket PC ó del emulador ?','',0,'AIA=','39kftfcl',1,0,'',2,0,0),(20472,4620,6,2,0,'87.218.146.157',1161189999,1,0,1,1,1,1,'','','Ricardo,\n\nEstás usando Harbour ó xHarbour ? Que build ?','',0,'AIA=','25l66ft5',1,0,'',2,0,0),(20473,4621,2,2,0,'87.218.146.157',1161190245,1,0,1,1,1,1,'','','Pedro,\n\noClient:SendData( \"...lo que sea...\" )','',0,'AIA=','1qt4hqq6',1,0,'',2,0,0),(20474,4620,6,212,0,'190.64.11.239',1161190632,1,0,1,1,1,0,'','Error extraño con  un Get','Uso xHarbour 0.99.60','',0,'AIA=','139nc92m',1,0,'',212,0,0),(20475,4613,4,779,0,'200.67.153.171',1161191103,1,0,1,1,1,0,'','','Perdon por la Ignorancia pero\n¿cuando es cuando debemos usar?\n\nWSAStartup() y  WSACleanup() \n\n¿Es solo en Windows Mobile Verdad?','',0,'AIA=','2wwtasrv',1,0,'',779,0,0),(20476,4619,3,631,0,'200.245.0.31',1161191966,1,0,1,1,1,1,'','','New error\n\nApplication\n===========\n   Path and name: C:\\FWH\\CMJFROTAH\\CMJFrota.Exe (32 bits)\n   Size: 1,562,624 bytes\n   Time from start: 0 hours 0 mins 11 secs \n   Error occurred at: 18/10/2006, 14:16:16\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: NEW\n   Args:\n     [   1] = O   Object\n     [   2] = C     Preview\n     [   3] = U   \n     [   4] = U   \n     [   5] = U   \n\nStack Calls\n===========\n   Called from NEW(0)\n   Called from RPREVIEW(222)\n   Called from (b)TREPORT:NEW(176)\n   Called from TREPORT:ACTIVATE(853)\n   Called from REPORT(26)','',0,'','3pc8cd0h',1,0,'',631,0,0),(20477,4625,6,37,0,'200.121.191.86',1161192286,1,0,1,1,1,1,'','Cantidad de Copias a Imprimir en Preview de FWH','Saludos, una consulta.\nEn el prev32.dll que viene con FWH 2.7 solo tenemos las opciones de imprimir todo, solo pagina actual o un rango de paginas, existe algun preview/clase que solicite mas datos, como cantidad de copias, pares, impares, Paginas especificas, etc.\nGracias por contestar','',0,'','rn4qcnvk',1,0,'',37,0,0),(20478,4622,2,184,0,'201.222.6.66',1161196017,1,0,1,1,1,0,'','','Antonio, Mucha Gracias.[/quote]','',0,'','52of5km0',1,0,'',184,0,0),(20479,4621,2,832,0,'201.122.21.224',1161196492,1,0,1,1,1,0,'','si esto ya esta','OYE ANTONIO SI ESTO SI ES ASI, PERO LO QUE YO DECEO ES COMO EL SERVER TOME DATOS Y SE LOS ENVIE AL CLIENTE','',0,'','1g4c7rna',1,0,'',832,0,0),(20480,4626,2,832,0,'201.122.21.224',1161196728,1,0,1,1,1,0,'','URGENTE AYUDA !!!!!','PERO LO QUE YO DECEO ES COMO EL SERVER TOME DATOS Y SE LOS ENVIE AL CLIENTE, ES DECIR YO HAGO UNA CONSULTA A UNA DBF POR ALGUN CAMPO DESDE EL CLIENTES Y QUIERO QUE EL SOCKET SERVIDOR LE ENVIE AL CLIENTE DOS O MAS CAMPOS DE ESTA CONSULTA PARA QUE EL CLIENTE PUEDA VISULIZARLOS\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> POR AHI ALGUIEN ME PODRIA YAUDAR, MUCHAS GRACIAS','',0,'','2psg3jeg',1,0,'',832,0,0),(20481,4610,3,303,0,'72.199.41.171',1161198242,1,0,1,1,1,0,'','','Marco,\n\nYou can also use a bitmap graphic that contains both the symbol and the text.\n\nJames','',0,'','2de5ltnn',1,0,'',303,0,0),(20482,4618,3,303,0,'72.199.41.171',1161198515,1,0,1,1,1,0,'','','Areang,\n\nI believe the Alt keys are reserved for Windows (menus and hot-keys).\n\nJames','',0,'','mwstvfyz',1,0,'',303,0,0),(20483,4614,7,18,0,'200.67.188.236',1161200131,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3aszd4qn]Vikthor,\n\nTienes bien configurado el acceso a red de la Pocket PC ó del emulador ?[/quote:3aszd4qn]\n\nSi , lo tengo bien configurado, incluso también con una BenQ P50 me devuelve 0.0.0.0','',0,'gA==','3aszd4qn',1,0,'',18,0,0),(20484,4626,2,138,0,'189.141.70.60',1161201005,1,0,1,1,1,1,'','','Ahora caigo en lo que quieres hacer....\n\nEso ya esta inventado, se llama Advantage Internet Server y funciona muy bien.\n\nBajate un demo:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/aiswin32.zip\">www.google.d2g.com/ads/demos/aiswin32.zip</a><!-- w -->','',0,'gA==','1h3tjmp5',1,0,'',138,0,0),(20485,4620,6,2,0,'87.218.146.157',1161201994,1,0,1,1,1,1,'','','Ricardo,\n\nCopia aqui el código fuente de Harbour\\source\\rtl\\tget.prg lineas 1530-1540 aprox. gracias,','',0,'gA==','2gsg0rba',1,0,'',2,0,0),(20486,4627,1,819,0,'216.34.194.113',1161205299,1,0,1,1,1,0,'','Adding a pullldown menu at runtime.','Hi all,\n\nI was able to add a menu item in the system menu that was created in the resource file at runtime.\n\nMy next task requires to add a pulldown menu at runtime.\n\nIs it posible? How?\n\nMany thanks!','',0,'gA==','1m868lel',1,0,'',819,0,0),(20487,4627,1,6,0,'87.17.218.196',1161206473,1,0,1,1,1,1,'','Re: Adding a pullldown menu at runtime.','Have a look at TMenu:Add() or TMenu:Insert() methods.\n\nEMG','',0,'gA==','2bpgjbtb',1,0,'',6,0,0),(20488,4610,3,6,0,'87.17.218.196',1161206838,1,0,1,1,1,1,'','','And where would you put those bitmaps? Please note that Marco needs to put them on the TWBrowse headers.\n\nAnyway, I solved the problem using DIALOG\'s ON PAINT clause.\n\nIf Marco doesn\'t mind I can put the sample here. Marco?\n\nEMG','',0,'gA==','26fsq99e',1,0,'',6,0,0),(20489,4627,1,819,0,'216.34.194.113',1161208186,1,0,1,1,1,0,'','','Got it. \n\nRegards!','',0,'gA==','3fnyjsge',1,0,'',819,0,0),(20490,4619,3,362,0,'200.168.52.156',1161208425,1,0,1,1,1,1,'','','TROQUE O RPREVIEW QUE VOCE ESTA USANDO, PELO ORIGINAL DA SUA VERSAO, POIS ESTAIS TENTANDO USAR UM RPREVIEW DE UMA VERSAO NAO COMPATIVEL COM O FIVEWIN 2.6. Abraços.','',0,'gA==','2epmxfgn',1,0,'',362,0,0),(20491,4628,6,264,0,'200.91.3.10',1161208702,1,0,1,1,1,1,'','Numero de Tarjeta ( ya tengo IP )','Hola a todos.\nYa tengo el numero de IP del PC, como puedo obtener el numero de tarjeta, pues en ocaciones los IP son variables y requiero saber exactamente cual es la maquina que realizo tal tarea.\nAgradecido de antemano.','',0,'gA==','2kq8mgof',1,0,'',264,0,0),(20492,4629,6,97,0,'200.23.84.231',1161208746,1,0,1,1,1,1,'','Error hb_vmDo','Tengo una aplicacion que estoy probando pero al ejecutarle me marca este error en el browse Unrecoverable erro: 9015,  Symbol Item from hb_vmDo() y se sale de la aplicacion trabajo con fwh27 y xharbour 99.60 simples....\n\n\n\nsaludos.\nfernando sandoval','',0,'gA==','2ud2zgm1',1,0,'',97,0,0),(20493,4628,6,2,0,'87.218.146.157',1161209212,1,0,1,1,1,1,'','','Julio,\n\nMsgInfo( GetNetCardID() )','',0,'gA==','1mkrtl4t',1,0,'',2,0,0),(20494,4629,6,2,0,'87.218.146.157',1161209414,1,0,1,1,1,1,'','','Fernando,\n\nQue browse es ? Usa código en C ?','',0,'gA==','2ipap78h',1,0,'',2,0,0),(20495,4629,6,97,0,'200.23.84.231',1161211987,1,0,1,1,1,1,'','Use TSBROWSE y el nativo de fwh','Antonio uso el tsbrowse pero donde me esta marcando el erro no estoy haciendo uso de el, ahi estoy usando el wbrowse nativo de fwh.....','',0,'gA==','34yjsinp',1,0,'',97,0,0),(20496,4630,1,779,0,'200.67.153.171',1161212014,1,0,1,1,1,0,'','COMBOBOX Con error en Centrino DUo con HP HOME SP2','Resulta que en esa maquina (Toshiba) el combobox (ya sea por codigo o por recursos) me inserta 2 elementos al inicio con basura.\n\nTambien me pasa en una VAIO XP-PROF SP2\n\nEn todas las demas maquinas no.\n\n\na alguien le ha ocurrido eso?','',0,'gA==','2dhjke3x',1,0,'',779,0,0),(20497,4624,1,819,0,'216.34.194.113',1161213980,1,0,1,1,1,0,'','Is HBComm.lib is source code compatible with telepathy?','Rene,\n\nThanks for the info.\n\nMay I know if HBComm.lib is source code compatible with telepathy?\n\nDo I need to re-write my PRGs to use HBComm.lib?\n\nRegards.','',0,'gA==','2xqakoqk',1,0,'',819,0,0),(20498,4610,3,303,0,'72.199.41.171',1161216283,1,0,1,1,1,0,'','','Enrico,\n\nYou can use bitmaps as headers just like you can use them as data.\n\nhBMP1:=loadbitmap( getresources(),\"cust\")\n\n@ 0,0 listbox...headers hBMP1, \"Address\"...\n\nJames','',0,'gA==','3kn9uxza',1,0,'',303,0,0),(20499,4615,6,328,0,'72.252.44.206',1161223309,1,0,1,1,1,0,'','','Vikthor, gracias por contestarme. \nProbe como tu me dices, pero igual me sigue dando el mismo error, ya me dolio la cabeza de estar probando y probando desde el día de ayer y no logro que me funcione el sort.\n\nBueno tendre que seguir investigando y probando.\n\nGracias y saludos.','',0,'gA==','2csahxc6',1,0,'',328,0,0),(20500,4613,4,18,0,'200.67.153.171',1161223365,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ofdh4dq]Vikthor,\n\nIf your Pocket PC network is properly setup, then this code should work fine:\n[code:1ofdh4dq]\nfunction Main&#40;&#41;\n\n   WSAStartup&#40;&#41;\n   MsgInfo&#40; GetHostByName&#40; &quot;www&#46;fivetechsoft&#46;com&quot; &#41; &#41;\n   WSACleanup&#40;&#41;\n\nreturn nil\n[/code:1ofdh4dq][/quote:1ofdh4dq]\n\nAntonio :\n\nthat code doesn\'t work with emulator and BenQ P50','',0,'gIA=','1ofdh4dq',1,0,'',18,0,0),(20501,4631,4,18,0,'200.67.153.171',1161229520,1,0,1,1,1,1,'','Method ConnectTO() doesn\'t work fine','I\'m working with Sockets and when I tried to established an connection with a Server ( NTTP )  using Socket, the method connect doesn\'t work fine.\n\nLoos this code :\n[code:1a5xhplq]\nFUNCTION CONNECTNEWS&#40;&#41;\nPARAM oSocket,oStatus,oBoton1\nnPort &#58;= 119\ncServerIP &#58;= &quot;200&#46;67&#46;153&#46;171&quot;\noStatus&#58;cText&#40; &quot; Conectando a &quot;+cServerIP +CRLF &#41;\ncTxt &#58;= oStatus&#58;cText\noStatus&#58;cText&#40; cTxt+&quot; Esperando respuesta &#46;&#46;&#46;&#46;&#46;&#46;&quot;+CRLF &#41;\noSocket   &#58;= TSocket&#40;&#41;\noSocket&#58;New&#40; nPort &#41;\noSocket&#58;Connect&#40; cServerIP, nPort &#41;   // &lt;----- ¡¡ error is here !!\n\noSocket&#58;bConnect &#58;= &#123; |o| NewsOn&#40;o , oStatus &#41; &#125;\noSocket&#58;bRead    &#58;= &#123; |o| NewsRead&#40;o , oStatus&#41; &#125;\n\nRETURN&#40; oSocket &#41;\n\nFUNCTION NEWSON&#40;&#41;\nPARAM oSocket,oStatus,cServerIp\ncTxt &#58;= oStatus&#58;cText\noStatus&#58;cText&#40; cTxt + &quot; Ahora estas conectado&#46; &quot;+CRLF &#41;\nRETURN\n[/code:1a5xhplq]','',0,'AIA=','1a5xhplq',1,0,'',18,0,0),(20502,4632,7,18,0,'200.67.153.171',1161229888,1,0,1,1,1,1,'','Clase TSocket','Usando la clase TSocket para establecer una comunicación con un servidor NTTP, al realizar la conección el método ConnectTO() se queda en ¡¡¡ el limbo !!!\n\nAquí les muestro una parte del código.\n\n[code:1qmudtsk]\nFUNCTION CONNECTNEWS&#40;&#41;\nPARAM oSocket,oStatus,oBoton1\n nPort &#58;= 119\n cServerIP &#58;= &quot;200&#46;67&#46;153&#46;171&quot;\n oStatus&#58;cText&#40; &quot; Conectando a &quot;+cServerIP +CRLF &#41;\n cTxt &#58;= oStatus&#58;cText\n oStatus&#58;cText&#40; cTxt+&quot; Esperando respuesta &#46;&#46;&#46;&#46;&#46;&#46;&quot;+CRLF &#41;\n oSocket   &#58;= TSocket&#40;&#41;\n oSocket&#58;New&#40; nPort &#41;\n oSocket&#58;Connect&#40; cServerIP, nPort &#41;  &lt;------- Aquí se pierde\n\noSocket&#58;bConnect &#58;= &#123; |o| NewsOn&#40;o , oStatus &#41; &#125;\noSocket&#58;bRead    &#58;= &#123; |o| NewsRead&#40;o , oStatus&#41; &#125;\n\nRETURN&#40; oSocket &#41;\n\nFUNCTION NEWSON&#40;&#41;\nPARAM oSocket,oStatus,cServerIp\ncTxt &#58;= oStatus&#58;cText\noStatus&#58;cText&#40; cTxt + &quot; Ahora estas conectado&#46; &quot;+CRLF &#41;\nRETURN\n[/code:1qmudtsk]','',0,'AIA=','1qmudtsk',1,0,'',18,0,0),(20503,4615,6,18,0,'200.67.153.171',1161230008,1,0,1,1,1,1,'','','[quote=&quot;Carlos Sincuir&quot;:2gj95pxe]Vikthor, gracias por contestarme. \nProbe como tu me dices, pero igual me sigue dando el mismo error, ya me dolio la cabeza de estar probando y probando desde el día de ayer y no logro que me funcione el sort.\n\nBueno tendre que seguir investigando y probando.\n\nGracias y saludos.[/quote:2gj95pxe]\n\nCarlos :\n\nTe hago un pequeño y le envio.\nSolo te aclaro que yo uso la clase TExcel','',0,'gA==','2gj95pxe',1,0,'',18,0,0),(20504,4633,3,678,0,'168.209.98.43',1161239179,1,0,1,1,1,1,'','FWH 2.8 Twbrowse header colours not working with XP theme','Hi Antonio\n\nAfter upgrading to Fwh2.8/latest xHb, I have noticed that our Twbrowse headers no longer obey the colours we set them. This problem only exists when running \"Windows XP\" desktop theme. When running \"Windows Classic\" desktop theme, the colours work fine.\n\neg. in some of our code we set twbrowse \'nClrBackHead\' to a different colour. This no longer works in themed apps\n\nAre you aware of this / has there been a fix for it. or is this the correct behavior for themed apps?\n\nThanks\nPeter','',0,'gA==','3o0irfzh',1,0,'',678,0,0),(20506,4610,3,6,0,'87.11.236.35',1161241613,1,0,1,1,1,1,'','','Wow! I absolutely wasn\'t aware of that feature!\n\nThank you!\n\nEMG','',0,'gA==','1hbd7uw3',1,0,'',6,0,0),(20507,4610,3,6,0,'87.11.236.35',1161241945,1,0,1,1,1,1,'','','Anyway, my solution can still be useful as it doesn\'t require to put the text inside the bitmap (text in bitmap will not get the font of the browse).\n\nEMG','',0,'gA==','2lp0r3g8',1,0,'',6,0,0),(20508,4611,6,28,0,'213.27.201.254',1161242746,1,0,1,1,1,0,'','','Muchas gracias voy a probarlo','',0,'gA==','2jk5q1uv',1,0,'',28,0,0),(20509,4629,6,2,0,'87.218.146.8',1161243789,1,0,1,1,1,1,'','','Fernando,\n\nHas recompilado los PRGs de FWH con el build de xHarbour que estás usando ?\n\nPuedes proporcionar un ejemplo que reproduzca el error ?','',0,'gA==','2kok758t',1,0,'',2,0,0),(20510,4613,4,2,0,'87.218.146.8',1161243923,1,0,1,1,1,1,'','','Ignacio,\n\nSolo es preciso usar esas funciones (en FWH también) si no usas la clase TSocket, ya que esta hace las llamadas automaticamente.','',0,'gA==','uwrjkj5g',1,0,'',2,0,0),(20511,4587,2,2,0,'87.218.146.8',1161244567,1,0,1,1,1,1,'','','Haz ACTIVATE DIALOG oVentana CENTER valid(sale) ON INIT oVentana:SetIcon( oIcon )','',0,'gA==','lq0a2lbh',1,0,'',2,0,0),(20512,4633,3,2,0,'87.218.146.8',1161244649,1,0,1,1,1,1,'','','Peter,\n\n&gt; is this the correct behavior for themed apps? \n\nYes','',0,'gA==','4iuapj51',1,0,'',2,0,0),(20513,4610,3,456,0,'217.127.39.57',1161252786,1,0,1,1,1,1,'','','[quote:3mdqt1r7]Anyway, I solved the problem using DIALOG\'s ON PAINT clause. \n\nIf Marco doesn\'t mind I can put the sample here. Marco?[/quote:3mdqt1r7]\nHi Enrico, will be nice to see your solution.','',0,'gA==','3mdqt1r7',1,0,'',456,0,0),(20514,4634,3,49,0,'213.82.134.66',1161258704,1,0,1,1,1,1,'','to call Infoser','Someone can give me number phone or email of Infoser ( Spain)\n\n--------------------------------','',0,'gA==','204man72',1,0,'',49,0,0),(20515,4635,3,486,0,'200.184.85.3',1161259032,1,0,1,1,1,0,'','AdsEnableEncryption()','Hi,\n\nI used DBF open with ADS usually and I never had problems.  \n  \nNow I am using AdsEnableEncryption () and this working ok  \n  \nThe times in some customers when the energy falls this corrupting files, and normal that using AdsEnableEncryption ()?\n\nClemerson','',0,'gA==','p2gwp731',1,0,'',486,0,0),(20516,4620,6,212,0,'190.64.4.5',1161259547,1,0,1,1,1,0,'','Error extraño con un Get','METHOD _Delete( lDisplay ) CLASS Get\n\n   LOCAL nMaxLen := ::nMaxLen, n\n\n   DEFAULT lDisplay TO .t.\n\n   ::Clear := .f.\n   ::lEdit := .t.\n\n   if ::lPicComplex\n      // Calculating diferent nMaxLen for ::lPicComplex\n      for n := ::Pos to nMaxLen\n         if !::IsEditable( n )\n           exit\n         endif\n      next\n      nMaxLen := n - 1\n   endif\n\n   if ::type == \"N\" .and. SubStr( ::buffer, ::Pos, 1 ) IN \"(-\"\n      ::minus := .f.\n   endif\n\n   ::buffer := PadR( SubStr( ::buffer, 1, ::Pos - 1 ) + ;\n               SubStr( ::buffer, ::Pos + 1, nMaxLen - ::Pos ) + \" \" +;\n               SubStr( ::buffer, nMaxLen + 1 ), ::nMaxLen )\n\n   if ::type == \"D\"\n      ::BadDate := IsBadDate( ::buffer, ::cPicFunc )\n   else\n      ::BadDate := .f.\n   endif\n   ::Changed    := .T.\n\n   if lDisplay\n      ::Display()\n   endif\n\nreturn Self','',0,'gA==','2wvnyedw',1,0,'',212,0,0),(20517,4635,3,394,0,'207.219.124.134',1161259667,1,0,1,1,1,0,'','','I use AdsEnableEncryption () for last 4 years with no problems at all.\nMike Buckler','',0,'gA==','2bitnkdw',1,0,'',394,0,0),(20518,4635,3,486,0,'200.184.85.3',1161261791,1,0,1,1,1,0,'','','[quote=&quot;Mike Buckler&quot;:2d3bzrdk]I use AdsEnableEncryption () for last 4 years with no problems at all.\nMike Buckler[/quote:2d3bzrdk]\n\ndo I use local ads and you use local ads or server?\n\nClemerson','',0,'gA==','2d3bzrdk',1,0,'',486,0,0),(20519,4635,3,486,0,'200.184.85.3',1161271488,1,0,1,1,1,0,'','','this and the error:  \n  \n7016     Corrupt table  \nProblem:  The specified table contains corrupted data in the file or field headers.\n\n* ADS Local Version 8.1\n\nClemerson','',0,'gA==','39h9969l',1,0,'',486,0,0),(20520,4636,3,49,0,'213.82.134.66',1161273472,1,0,1,1,1,1,'','to FGamboa','Can you write me at private email, pls\n--------------------------------------------------','',0,'gA==','2c3qqt54',1,0,'',49,0,0),(20521,4637,6,456,0,'217.127.39.57',1161273585,1,0,1,1,1,1,'','CLASS TDbOdbcDirect, metodo Eof()','En la clase TdbOdbcDirect el metodo Eof  es :\n[code:3id1h4ar]METHOD  Eof&#40;&#41; INLINE &#40; &#40;&#58;&#58;cAlias&#41;-&gt;&#40;RecCount&#40;&#41;&#41; == &#40;&#58;&#58;cAlias&#41;-&gt;&#40;Recno&#40;&#41;&#41; &#46;and&#46; &#58;&#58;hStmt == 0 &#41;[/code:3id1h4ar]\nEs un tema de concepto, en xBase Eof era verdadero una vez superado el último registro, tal cual está este metodo, Eof es verdadero cuando estamos en el último registro. Código del tipo \n[code:3id1h4ar]\noDbf&#58;GoTop&#40;&#41;\nWhile !oDbf&#58;Eof&#40;&#41;\n   &#46;&#46;&#46;&#46; //hago algo\n   oDbf&#58;Skip&#40;&#41;\nEnd[/code:3id1h4ar]\nprocesaria todos los registros, menos el ultimo. \nHay algun motivo porque esto sea así, seria mas correcto y dentro de la filosofia xBase que metodo Eof() fuese\n\n[code:3id1h4ar]METHOD  Eof&#40;&#41; INLINE &#40; &#40;&#58;&#58;cAlias&#41;-&gt;&#40;Eof&#40;&#41;&#41; &#46;and&#46; &#58;&#58;hStmt == 0 &#41;[/code:3id1h4ar]\n\n\n[b:3id1h4ar]PD[/b:3id1h4ar]\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Ya se que debiera usar ADO, estamos en ello.','',0,'QIA=','3id1h4ar',1,1161276372,'',456,1,0),(20522,2477,3,49,0,'213.82.134.66',1161273650,1,0,1,1,1,1,'','','Clemerson have you made another tries  to use finger microsoft reader ?\nwrite me at private e mail pls\n-------------------------','',0,'QIA=','3nuzf3xd',1,0,'',49,0,0),(20523,2935,3,49,0,'213.82.134.66',1161274782,1,0,1,1,1,1,'','','it is compatible with microsoft fingerprint reader ?','',0,'QIA=','3ax63efy',1,0,'',49,0,0),(20524,4637,6,456,0,'217.127.39.57',1161274962,1,0,1,1,1,1,'','','Buffff, para que esto funcionase habria que cambiar tambien el metodo Skip, y tendria repercusiones sobre la descarga asincrona de los datos. \n\nVisto lo visto  + vale dejarlo como esta.','',0,'QIA=','zc2c7opq',1,0,'',456,0,0),(20525,4638,2,838,0,'80.34.222.112',1161284028,1,0,1,1,1,0,'','Codigo de Barras PDF147','Hola amigos\n\nHe visto que alguna vez alguien ha puesto ésta pregunta en el foro, pero no encuentro respuestas, ahora necesito yo sobre éste tema, a ver si alguien me ayuda.\n\nNecesito crear un código de barras de unos 250 dígitos alfanuméricos, y claro, si lo hago con barlib con cualquiera de los tipos normales, me voy a un codigo de 2 líneas, por lo tanto creo que necesito el PDF417, y mi pregunta es cómo puedo generarlo en uno de mis listados, es decir en un listado pongo el cliente, y a continuación el código que al leerlo con un scanner me lea un montón de datos que estén en éste código.\n\nPuedo hacerlo con alguna librería five, o con algún programa externo.\n\nGracias y saludos','',0,'QIA=','3fekvg1i',1,0,'',838,0,0),(20526,3183,6,384,0,'201.43.145.180',1161284039,1,0,1,1,1,1,'','OutPortByte() e InPortByte()','Tambem procuro solução para o envio de uma string via porta (XP).\nExemplo:\n   OutPortByte(96,246) // inicializa\n   OutPortByte(96,212) // limpa display\n\nVejam este link:\n<!-- m --><a class=\"postlink\" href=\"http://www.logix4u.net/inpout32.htm\">http://www.logix4u.net/inpout32.htm</a><!-- m -->','',0,'QIA=','hi375bs6',1,0,'',384,0,0),(20527,4612,6,123,0,'88.0.84.46',1161287040,1,0,1,1,1,0,'','','Juan,\n\n[quote:hlxe9hmw]1) Es necesario tener que abrir cada vez que abro un recordset abrir tambien un objeto conexion. Pues he usado unos ejemplos directos del recordset y funcionan OK. Es su funcionamiento asi ? \nPorque o sino cual es el objeto de hacer una conexion , si puedo obtener los datos directamente !! [/quote:hlxe9hmw]\n\nNo... puedes abrir un connection al principio de la aplicación.\n\n[quote:hlxe9hmw]2) Una vez realizada una conexion , por ejemplo al inicio del programa, esta durará me imagino , mientras yo no la cierre. Pero, puede ocurrir que la conexion me la cierre el servidor y no el programa cliente. Hay forma de validar esto. Oh solo con usar la propiedad Activeconection basta !! Que es lo mejor aqui. [/quote:hlxe9hmw]\n\nPuedes consultar el estado de la conexión con la propiedad state del objeto connection\n\n[quote:hlxe9hmw]3) Existe algun limite en el numero de conexiones realizadas por el cliente en forma simultanea ? Que problemas puede traer ? [/quote:hlxe9hmw]\n\nNormalmente está limitada por el servidor al que te conectes, y por los recursos disponibles en el servidor en ese momento.\n\n\n[quote:hlxe9hmw]4) Al \"browsear\" un recordset directamente con ADO ( use el ejemplo del master Rene ) , existe alguna forma de poder usar 2 colores en el browse, para diferenciar mejor los datos. Antes con los dbf usaba por ejemplo el ( recno() , nAT , %2 ) , pero en ADO no existe este concepto, que se puede hacer ?? [/quote:hlxe9hmw]\n\nCon la propiedad Absoluteposition puedes simular el RECNO con lo que puedes hacerlo igual que lo haces con una dbf.  No obstante, no todos los proveedores y/o cursores tienen disponible ese dato.\n\nPuedes consultar artículos míos en <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> Ahí podrás ver ejemplos funcionando de ADO, clases (básicas) listas para usar y más cosas.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','hlxe9hmw',1,0,'',123,0,0),(20528,4639,3,425,0,'213.22.46.67',1161287737,1,0,1,1,1,0,'','Font in Folders','Hi\n\nI have a Dialog Box with a Folder.\n\nThe Font in the Gets and in the Buttons is too big.\nHow can i Fix the font . I never declared any font in dialogs.\n\nRegards\n\n                 Pedro','',0,'gA==','13zuj65z',1,0,'',425,0,0),(20529,4629,6,97,0,'200.23.84.231',1161288974,1,0,1,1,1,1,'','No los he recompilado','Gracias Inge fijate que no he recompilado los prg de fwh, algo raro pasa porque cuando el cursos no esta en el browser es cuando ocurre el erro mas sin embargo cuando el cursos esta en cualquier registro puedo hacer cualquier cosa sin ningun problema....\n\n\nti tengo la aplicacion ya que esta muy chica dado que apenas la estoy iniciando esta alojada en este ftp\n\n<!-- m --><a class=\"postlink\" href=\"ftp://200.23.84.231\">ftp://200.23.84.231</a><!-- m --> \n\nusuario:fivewin\npassword:fivewin','',0,'gA==','1foybaet',1,0,'',97,0,0),(20530,4635,3,394,0,'207.219.124.134',1161293789,1,0,1,1,1,0,'','','I use both ads server and local ads 8 with encrypted files. We have never had a problem with corruption???\nMike','',0,'gA==','3dytgkt1',1,0,'',394,0,0),(20531,4640,1,819,0,'216.34.194.113',1161295009,1,0,1,1,1,0,'','Inquiry about C codes in Clipper+Fw application.','Hi All,\n\nThere are several functions written in C that make up our POS.\n\nAre C codes can be simply recompiled and link to xhabour without rewriting?\n\nTIA,\n\nxhbCoder <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x -->','',0,'gA==','2rbxqyqg',1,0,'',819,0,0),(20532,4635,3,303,0,'72.199.41.171',1161296318,1,0,1,1,1,0,'','','Clemerson,\n\nConsider the possibility that the corruption may not be due to encryption but rather something else.\n\nJames','',0,'gA==','39d4epq0',1,0,'',303,0,0),(20533,4635,3,138,0,'189.141.70.60',1161301026,1,0,1,1,1,1,'','','From the ADS knowledge base:\n\n\nProblem:  The specified table contains corrupted data in the file or field headers.\nSolution:  Make sure the specified file is a valid table. Also, make sure you are not attempting to open a DBF table with an ADT table type, or vice versa.\nIf you have an existing data dictionary that was created with any 6.0 Beta release of Advantage, the ADT database tables are not compatible with the 6.0 release of the Advantage clients and servers. You will get a 7016 error when attempting to open those ADT tables using the Advantage 6.0 release product. A utility is provided to update those ADT tables to make them compatible with the 6.0 release of the Advantage clients and servers. The utility (update_r6b2.exe) is installed in the same directory as the Advantage Data Architect (arc32.exe) utility, and it can be called from the command line.','',0,'gA==','1yfsjzdo',1,0,'',138,0,0),(20534,4594,6,110,0,'165.98.169.198',1161302840,1,0,1,1,1,1,'','','de nada <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'gA==','3d429nw9',1,0,'',110,0,0),(20535,4615,6,328,0,'190.56.9.126',1161308687,1,0,1,1,1,0,'','','Vikthor, te lo agradecería mucho, y no hay problema con la TExcel, yo tambien la utilizo, ya que me ayuda bastante con lo de trabajar con Excel.\n\nGracias por tu ayuda.','',0,'gA==','20f1bq9n',1,0,'',328,0,0),(20536,4641,3,206,0,'125.160.82.27',1161316505,1,0,1,1,1,0,'','32 bit toolbar on dialog','Dear All,\n\nhow to put 32bit toolbar on dialog?\nreviewed toolbar1.prg but not luck.\n\nthanks.','',0,'gA==','sol97dnx',1,0,'',206,0,0),(20537,4641,3,6,0,'87.20.217.152',1161326405,1,0,1,1,1,1,'','Re: 32 bit toolbar on dialog','Try building it in the ACTIVATE DIALOG .. ON INIT clause.\n\nEMG','',0,'gA==','1evrskvm',1,0,'',6,0,0),(20538,4640,1,6,0,'87.20.217.152',1161326686,1,0,1,1,1,1,'','Re: Inquiry about C codes in Clipper+Fw application.','Yes, if your C functions are Windows 16 bit compatible and you are using the proper Clipper API to retrieve parameters and return the value.\n\nEMG','',0,'gA==','27lnndyc',1,0,'',6,0,0),(20539,4641,3,206,0,'125.160.82.27',1161330264,1,0,1,1,1,0,'','','Dear Enrico,\n\nThanks. Its works.  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nHiong','',0,'gA==','4qauuypq',1,0,'',206,0,0),(20540,4641,3,206,0,'125.160.82.27',1161332756,1,0,1,1,1,0,'','','Dear Enrico,\n\ncan i move last button to the right side of toolbar?\n\nthanks','',0,'gA==','2dzp607a',1,0,'',206,0,0),(20541,4641,3,6,0,'87.20.217.152',1161333753,1,0,1,1,1,1,'','','I don\'t know, sorry.\n\nEMG','',0,'gA==','2v8i8t1s',1,0,'',6,0,0),(20542,4610,3,6,0,'87.20.217.152',1161333788,1,0,1,1,1,1,'','','Here it is:\n\n[code:1vvw49a3]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define MO_NONE 0\n#define MO_ASC  1\n#define MO_DESC 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw, oFnt\n\n    LOCAL hBmp1 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkon&#46;bmp&quot; &#41;\n    LOCAL hBmp2 &#58;= READBITMAP&#40; 0, &quot;\\fwharbour\\bitmaps\\checkoff&#46;bmp&quot; &#41;\n\n    LOCAL aOrd &#58;= &#123; MO_ASC, MO_DESC, MO_NONE, MO_NONE &#125;\n\n    OVERRIDE METHOD SetPos CLASS TScrollbar WITH MySetPos\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -12\n\n    @ 0, 0 LISTBOX oBrw FIELDS TEST -&gt; last,;\n                               TEST -&gt; first,;\n                               IF&#40; TEST -&gt; last = &quot;S&quot;, hBmp1, hBmp2 &#41;,;\n                               &quot;&quot;;\n           HEADER &quot;LAST&quot;, &quot;FIRST&quot;, &quot; S&quot;, hBmp1;\n           SIZES 100, 100, 16, 0;\n           FONT oFnt\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;bLClicked = &#123; | nRow, nCol | If&#40; oBrw&#58;nAtCol&#40; nCol &#41; = 3, Cambia&#40; oDlg, oBrw, nRow &#41;, &#41; &#125;\n\n    oBrw&#58;bLButtonUp = &#123; || oDlg&#58;Refresh&#40; &#46;F&#46; &#41; &#125;\n\n    oDlg&#58;bStart = &#123; || oBrw&#58;oHScroll&#58;bGoUp &#58;= &#123; || oDlg&#58;Refresh&#40; &#46;F&#46; &#41; &#125;,;\n                       oBrw&#58;oHScroll&#58;bGoDown &#58;= &#123; || oDlg&#58;Refresh&#40; &#46;F&#46; &#41; &#125;,;\n                       oBrw&#58;bChange &#58;= &#123; || oDlg&#58;Refresh&#40; &#46;F&#46; &#41; &#125; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             ON PAINT MARCAORDINE&#40; oDlg, hDC, oBrw, aOrd &#41;;\n             CENTER\n\n    CLOSE\n\n    DELETEOBJECT&#40; hBmp1 &#41;\n    DELETEOBJECT&#40; hBmp2 &#41;\n\n    RELEASE FONT oFnt\n\n    RETURN NIL\n\n\nSTATIC FUNCTION CAMBIA&#40; oDlg, oBrw, nRow &#41;\n\n    IF NWROW&#40; oBrw&#58;hWnd, oBrw&#58;hDC, nRow, IF&#40; oBrw&#58;oFont != nil, oBrw&#58;oFont&#58;hFont, 0 &#41; &#41; = 0\n        RETURN NIL\n    ENDIF\n\n    ? &quot;Qui cambi il valore che determina la spunta&quot;\n\n    oBrw&#58;Refresh&#40; &#46;F&#46; &#41;\n\n    oDlg&#58;Refresh&#40; &#46;F&#46; &#41;\n\n    RETURN NIL\n\n\n#define SM_CYHSCROLL 3\n\n\nSTATIC FUNCTION MARCAORDINE&#40; oDlg, hDC, oBrw, aOrd &#41;\n\n    LOCAL aValues   &#58;= oBrw&#58;aHeaders\n    LOCAL aColSizes &#58;= oBrw&#58;GetColSizes&#40;&#41;\n\n    LOCAL nWidth &#58;= WNDWIDTH&#40; oBrw&#58;hWnd &#41; - IF&#40; oBrw&#58;oVScroll != nil &#46;AND&#46; EVAL&#40; oBrw&#58;bLogicLen &#41; &gt; 1, GETSYSMETRICS&#40; SM_CYHSCROLL &#41; + 3, 0 &#41;\n\n    LOCAL nColStart &#58;= -1\n\n    LOCAL nTop, nLeft, nRight\n\n    LOCAL hGPen, hWPen\n\n    LOCAL i\n\n    SYSREFRESH&#40;&#41;\n\n    hGPen = CREATEPEN&#40; 0, 1, CLR_GRAY &#41;\n    hWPen = CREATEPEN&#40; 0, 1, CLR_WHITE &#41;\n\n    nTop = oBrw&#58;nTop + 6\n\n    FOR i = oBrw&#58;nColPos TO LEN&#40; aValues &#41;\n        nLeft  = nColStart + 1\n        nRight = MIN&#40; nColStart &#58;= &#40; nLeft + aColSizes&#91; i &#93; - 1 &#41;, nWidth &#41;\n\n        IF nLeft &gt; nWidth\n            EXIT\n        ENDIF\n\n        IF i == LEN&#40; aValues &#41;\n           nRight = nWidth\n        ENDIF\n\n        nRight -= 12\n\n        IF aOrd&#91; i &#93; = MO_ASC\n            MOVETO&#40; hDC, nRight, nTop &#41;\n\n            LINETO&#40; hDC, nRight + 6, nTop, hGPen &#41;\n            LINETO&#40; hDC, nRight + 3, nTop + 6, hWPen &#41;\n            LINETO&#40; hDC, nRight, nTop, hGPen &#41;\n        ENDIF\n\n        IF aOrd&#91; i &#93; = MO_DESC\n            MOVETO&#40; hDC, nRight, nTop + 6 &#41;\n\n            LINETO&#40; hDC, nRight + 6, nTop + 6, hGPen &#41;\n            LINETO&#40; hDC, nRight + 3, nTop, hWPen &#41;\n            LINETO&#40; hDC, nRight, nTop + 6, hGPen &#41;\n        ENDIF\n    NEXT\n\n    DELETEOBJECT&#40; hWPen &#41;\n    DELETEOBJECT&#40; hGPen &#41;\n\n    RETURN NIL\n\n\n#define SB_HORZ         0\n#define SB_VERT         1\n#define SB_CTL          2\n\n\nSTATIC FUNCTION MYSETPOS&#40; nPos &#41;\n\n    LOCAL Self &#58;= HB_QSELF&#40;&#41;\n\n    &#58;&#58;oWnd&#58;oWnd&#58;Refresh&#40; &#46;F&#46; &#41;\n\n    RETURN SETSCROLLPOS&#40; IF&#40; &#58;&#58;lIsChild, &#58;&#58;oWnd&#58;hWnd, &#58;&#58;hWnd &#41;, IF&#40; &#58;&#58;lIsChild, IF&#40; &#58;&#58;lVertical, SB_VERT, SB_HORZ &#41;, SB_CTL &#41;, nPos, &#58;&#58;lReDraw &#41;[/code:1vvw49a3]\n\nEMG','',0,'AIA=','1vvw49a3',1,0,'',6,0,0),(20543,4642,6,180,0,'194.179.55.36',1161334517,1,0,1,1,1,0,'','Efecto de parpadeo en GET','¿ Es posible obtener el efecto de parpadeo en el contenido de un GET ?\n Un saludo,\nManuel','',0,'AIA=','1m64032e',1,0,'',180,0,0),(20544,4643,4,2,0,'87.218.146.229',1161335701,1,0,1,1,1,1,'','Important fix!','Please add this code to your FWPPC main PRG:\n[code:1bpyuxvu]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nLPSTR WideToAnsi&#40; LPWSTR &#41;;\n\nHB_FUNC&#40; GETWINDOWTEXT &#41;\n&#123;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   int iLen = GetWindowTextLength&#40; hWnd &#41;;\n   LPWSTR pText = &#40; LPWSTR &#41; hb_xgrab&#40; &#40; iLen * 2 &#41; + 2 &#41;;\n   LPSTR pAnsi;\n   \n   GetWindowText&#40; hWnd, pText, iLen + 1 &#41;;\n   \n   pAnsi = WideToAnsi&#40; pText &#41;;\n   hb_retc&#40; pAnsi &#41;;\n   hb_xfree&#40; pAnsi &#41;;\n   hb_xfree&#40; pText &#41;;\n&#125;	\n\n#pragma ENDDUMP \n[/code:1bpyuxvu]','',0,'AIA=','1bpyuxvu',1,0,'',2,0,0),(20545,4644,7,2,0,'87.218.146.229',1161335764,1,0,1,1,1,1,'','Arreglo importante!','Por favor añadir este código al PRG principal de vuestra aplicación:\n[code:9kb04jc3]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nLPSTR WideToAnsi&#40; LPWSTR &#41;;\n\nHB_FUNC&#40; GETWINDOWTEXT &#41;\n&#123;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   int iLen = GetWindowTextLength&#40; hWnd &#41;;\n   LPWSTR pText = &#40; LPWSTR &#41; hb_xgrab&#40; &#40; iLen * 2 &#41; + 2 &#41;;\n   LPSTR pAnsi;\n   \n   GetWindowText&#40; hWnd, pText, iLen + 1 &#41;;\n   \n   pAnsi = WideToAnsi&#40; pText &#41;;\n   hb_retc&#40; pAnsi &#41;;\n   hb_xfree&#40; pAnsi &#41;;\n   hb_xfree&#40; pText &#41;;\n&#125;	\n\n#pragma ENDDUMP \n[/code:9kb04jc3]','',0,'AIA=','9kb04jc3',1,0,'',2,0,0),(20546,4644,7,449,0,'212.64.224.241',1161336644,1,0,1,1,1,1,'','','Antonio,\n\nQ reporta este arreglo ? (tema de perdida de memoria ?)\n\nGracias.','',0,'AIA=','2as7tf2x',1,0,'',449,0,0),(20547,4645,7,63,0,'80.37.102.128',1161338445,1,0,1,1,1,0,'','Scroll en BITMAP','Sé que esta pregunta se ha planteado otras veces en este foro pero no he encontrado respuesta:\n\nQuiero visualizar un BMP mayor que la pantalla del Pocket.  Con este código aparecen las barras de scroll horizontal o vertical pero la imagen no se desplaza.  ¿Alguien lo ha resuelto?\n\n[code:ks3q9wvl]\n@ 0,0 BITMAP oBmp FILENAME CurDir&#40;&#41;+&quot;\\Test&#46;bmp&quot; SIZE 290,240 PIXEL SCROLL OF oWnd\n[/code:ks3q9wvl]\n\nGracias,\nRafael','',0,'AIA=','ks3q9wvl',1,0,'',63,0,0),(20548,4644,7,2,0,'87.218.146.40',1161340093,1,0,1,1,1,1,'','','Carles,\n\nSe estaba corrompiendo la memoria!  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> y Harbour no podía liberarla luego. Ahora esta correcto.\n\nDe todas formas vamos a publicar en breve un nuevo build en el que se ha hecho una revisión a fondo del consumo de memoria.','',0,'AIA=','34i4d635',1,0,'',2,0,0),(20549,4643,4,13,0,'213.76.252.200',1161341372,1,0,1,1,1,0,'','','Antonio,\n\nWhat this code change ?\n\nThanks\nPawel','',0,'AIA=','1kt7rjpr',1,0,'',13,0,0),(20550,4635,3,486,0,'200.184.85.3',1161344387,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:30yvfb1c]Clemerson,\n\nConsider the possibility that the corruption may not be due to encryption but rather something else.\n\nJames[/quote:30yvfb1c]\n\nI am thinking it is another thing even.\n\nClemerson','',0,'gA==','30yvfb1c',1,0,'',486,0,0),(20551,4635,3,486,0,'200.184.85.3',1161344632,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:3pfon6kv]From the ADS knowledge base:\n\n\nProblem:  The specified table contains corrupted data in the file or field headers.\nSolution:  Make sure the specified file is a valid table. Also, make sure you are not attempting to open a DBF table with an ADT table type, or vice versa.\nIf you have an existing data dictionary that was created with any 6.0 Beta release of Advantage, the ADT database tables are not compatible with the 6.0 release of the Advantage clients and servers. You will get a 7016 error when attempting to open those ADT tables using the Advantage 6.0 release product. A utility is provided to update those ADT tables to make them compatible with the 6.0 release of the Advantage clients and servers. The utility (update_r6b2.exe) is installed in the same directory as the Advantage Data Architect (arc32.exe) utility, and it can be called from the command line.[/quote:3pfon6kv]\n\nI noticed that in these customers that he gave the error before he had an older version of my software and it updated now and in the fall of energy he gave the problem, I will verify this update_r6b2.exe.\n\nClemerson','',0,'gA==','3pfon6kv',1,0,'',486,0,0),(20552,4635,3,486,0,'200.184.85.3',1161344754,1,0,1,1,1,0,'','','[quote=&quot;Mike Buckler&quot;:14dworjj]I use both ads server and local ads 8 with encrypted files. We have never had a problem with corruption???\nMike[/quote:14dworjj]\n\nthen for the comment of all no and problem of the encrypted files.\n\nClemerson','',0,'gA==','14dworjj',1,0,'',486,0,0),(20553,4623,7,778,0,'200.152.43.193',1161345528,1,0,1,1,1,0,'','','Rogerio, tente assim\n\nShellExecute( oWnd:hWnd, \"open\", \"//index.html\" )\n\neu testei com o testwait.prg do samples e coloquei o index.html no próprio samples  e ele funcionou perfeitamente.\nTalvez seja porque ele precisa do \"//\" antes do nome do arquivo\nAbraços, saludos\n\nMauro','',0,'gA==','3wdyrlj1',1,0,'',778,0,0),(20554,4610,3,15,0,'211.72.233.8',1161348165,1,0,1,1,1,0,'','','Hello EMG,\n\nLooks nice job.\nCould you show me this sample screen shot?\n\nThank you.\n\nRichard','',0,'gA==','j7wof1ah',1,0,'',15,0,0),(20555,4635,3,486,0,'200.184.85.3',1161348366,1,0,1,1,1,0,'','','Does a thing find strange that observed, did I open the file DBF with MED and did I verify the parts that it damaged in DBF, recorded in DBF leaves of another file temporary DBF, will it be that that help?\n\n[img:1888ua19]http&#58;//www&#46;sysfar&#46;com&#46;br/imagens/estat&#46;jpg[/img:1888ua19]\n\nClemerson','',0,'CA==','1888ua19',1,0,'',486,0,0),(20556,4646,20,89,0,'213.21.136.60',1161348414,1,0,1,1,1,0,'','per enrico problema con  WORd oTable:cell','Ciao Enrico \nho trovato questo tuo esempio , ma quando lo uso ho questo errore :\nrror description: Error BASE/1004  Class: \'NIL\' has no exported method: CELL\nUso FW27 con xHArbour \n\nGrazie per il tuo aiuto\n\nMAurizio\n\n\nLOCAL oWord, oDoc, oTable\n    oWord = CREATEOBJECT( \"Word.Application\" )\n    oDoc = oWord:Documents:Add()\n    oTable = oDoc:Tables:Add( oWord:Selection:Range, 3, 5 )\n\n    oTable:Cell( 1, 1 ):Range:InsertAfter( \"Prima\" )\n    oTable:Cell( 1, 2 ):Range:InlineShapes:AddPicture(\"c:\\fwharbour\\bitmaps\\magic.bmp\" )\n    oTable:Cell( 3, 5 ):Range:InsertAfter( \"Ultima\" )\n\n    oWord:Visible = .T.\n    oWord:WindowState = 1\n\n    RETURN NIL','',0,'CA==','3g7ml0nv',1,0,'',89,0,0),(20557,4643,4,2,0,'87.218.146.38',1161348631,1,0,1,1,1,1,'','','Pawel,\n\nIt fixes internal memory corruption. Anyhow a new FWPPC build is coming with more changes.','',0,'CA==','2uzkzjkq',1,0,'',2,0,0),(20558,4647,4,224,0,'162.83.94.176',1161349372,1,0,1,1,1,1,'','Windows CE RAPI Functions','I hope Antonio doesn\'t mind me posting this question...\n\nHas anyone here worked with the RAPI functions to interact with your FWPPC app? I am trying to invoke a maintenance routine from the desktop using Rapi, but with little success. Specifically, I am trying to use the CeCreateProcess function to start this. I am able to successfully initialize/uninitialize the Rapi session, but when I call CeCreateProcess, I consistently get a Winerror #2 -- File Not Found.\n\nI am using Xbase++ on the desktop. Here\'s a sample trying to invoke the calculator. I get error #2 regardless of the way I specify the app name (ie; \"calc.exe\", \"\\\\My Device\\Windows\\calc.exe\", \"calc\", etc)\n[code:2nlhpy7r]\n#include &quot;DLL&#46;CH&quot;\n\n#define NULL 0\n\nProcedure Main\nLocal xVal\n\n   xVal &#58;= CeRapiInit&#40;&#41;\n   ? xVal\n\n   If xVal &lt;&gt; 0\n      QUIT\n   Endif\n\n   xVal &#58;= CeCreateProcess&#40; &quot;\\Windows\\calc&#46;exe&quot;, ;\n                            &quot;&quot;, ;\n                            NULL, ;\n                            NULL, ;\n                            &#46;f&#46;, ;\n                            NULL, ;\n                            NULL, ;\n                            NULL, ;\n                            NULL, ;\n                            NULL &#41;\n   ? xVal\n   ? CeRapiGetError&#40;&#41;\n   ? CeGetLastError&#40;&#41;\n\n   xVal &#58;= CERapiUninit&#40;&#41;\n   ? xVal\n\nRETURN\n\nDLLFUNCTION CeRapiGetError&#40;&#41; USING STDCALL FROM RAPI&#46;DLL\nDLLFUNCTION CeGetLastError&#40;&#41; USING STDCALL FROM RAPI&#46;DLL\nDLLFUNCTION CeRapiInit&#40;&#41; USING STDCALL FROM RAPI&#46;DLL\nDLLFUNCTION CeRapiUninit&#40;&#41; USING STDCALL FROM RAPI&#46;DLL\nDLLFUNCTION CeRapiInvoke&#40; cPath, ;\n                 cFunction, ;\n                 nInputBytes, ;\n                 nInput, ;\n                 nOutPutBytes, ;\n                 nOutput, ;\n                 nNull &#41; USING STDCALL FROM RAPI&#46;DLL\nDLLFUNCTION CeCreateProcess&#40;cApp, ;\n                            cParm, ;\n                            nZip1, ;\n                            nZip2, ;\n                            lFalse, ;\n                            nZero, ;\n                            nZip3, ;\n                            nZip4, ;\n                            nZip5, ;\n                            nZip6 &#41; USING STDCALL FROM RAPI&#46;DLL[/code:2nlhpy7r]\n\nThanks in advance for any ideas.','',0,'AIA=','2nlhpy7r',1,0,'',224,0,0),(20559,4639,3,206,0,'203.83.30.2',1161350539,1,0,1,1,1,0,'','','Pedro,\n\nIs it only happened in one dialog or all dialog?\nDid you change GetSysFont()?','',0,'AIA=','2ne75mlo',1,0,'',206,0,0),(20560,4646,20,6,0,'87.17.226.113',1161351956,1,0,1,1,1,1,'','Re: per enrico problema con  WORd oTable:cell','A che riga ti dà l\'errore? Forse non hai il bitmap nel persorso indicato?\n\nEMG','',0,'AIA=','2nlg3dko',1,0,'',6,0,0),(20561,4644,7,179,0,'64.46.80.210',1161352012,1,0,1,1,1,1,'','','Antonio \ntengo Fwppc con las librerias de estas fechas\n\nFivece.lib 01/09/2006\nfivecec.lib 30/08/2006\n\nel parche que publicas me aplicaria a la version que yo tengo ?\nSaludos\n\nAtt','',0,'AIA=','1x69mcdt',1,0,'',179,0,0),(20562,4623,7,274,0,'201.1.8.175',1161352100,1,0,1,1,1,0,'','','Mauro,\n\nvocê testou no emulador ou em um pocket de verdade?\n\nNo emulador não abre nem avisa erro.\nPara testar num pocket de verdade tenho que enviar aos clientes.\n\n[]\'s\n\nRogerio','',0,'','1youf1wu',1,0,'',274,0,0),(20563,4610,3,6,0,'87.17.226.113',1161352383,1,0,1,1,1,1,'','','Sent to your private email.\n\nEMG','',0,'','ecmoxzga',1,0,'',6,0,0),(20564,4646,20,89,0,'213.21.136.60',1161352981,1,0,1,1,1,0,'','','L\'errore è alla riga \noTable:Cell( 1, 1 ):Range:InsertAfter( \"Prima\" ) \n\nin effetti ho lo stesso errore anche eliminando\noTable:Cell( 1, 2 ):Range:InlineShapes:AddPicture(\"c:\\fwharbour\\bitmaps\\magic.bmp\" ) \n\nMAurizio','',0,'','2n43qi6c',1,0,'',89,0,0),(20565,4639,3,425,0,'213.22.46.67',1161353740,1,0,1,1,1,0,'','','Hi Yam\n\nIt\'s happen with all the dialog , Bottons , Gets , Says, Folders Titles\n\nGetsysFont is declared in a function as:\n\nFunction GetSysFont()\nReturn(\"Ms Sans Serif\")\n\n\n\nFwH 2.6','',0,'','2nfe9ff7',1,0,'',425,0,0),(20566,4639,3,206,0,'203.83.30.2',1161355728,1,0,1,1,1,0,'','','Hi Pedro,\n\nIt is possible that your display settings has been changed?\nfor example, your font settings changed to 120% on display properties?\ncould you provide screen capture of your problem?\n\nRegards,\nHiong','',0,'','2c4shnk1',1,0,'',206,0,0),(20567,4623,7,778,0,'200.152.43.193',1161356670,1,0,1,1,1,0,'','','Rogerio, testei nos dois...\nno emulador funciona perfeitamente, e no pocket mudei assim\nShellExecute( oWnd:hWnd, \"open\", cFile ,Curdir()) - 4o. parametro é o diretório de funcionamento...\n\nele dá um erro dizendo que não encontrou o caminho, mas monta a página,\ne observei o seguinte\n\nno pocket := file://\\\\index.html\\\n-----------------------^\n|\nse você retirar esta primeira contra barra e der um refresh no browse, funciona sem erros, espero ter ajudado.\n\nAbraços saludos\ndesde Brasilia, DF, Brasil\n\nMauro','',0,'','3n147uyf',1,0,'',778,0,0),(20568,4648,3,343,0,'24.173.70.29',1161358707,1,0,1,1,1,0,'','error in treport','In the lates FWH there is an error in tReport():new() when the device is not defined\n\n   if Empty( ::oDevice:hDC )\n      return nil   // &lt;-- this is an error\n   else\n      ::lCreated := .t.\n   endif\n\nso I changed code to \n\n   if Empty( ::oDevice:hDC )\n      ::lCreated := .f.\n      return Self\n   else\n      ::lCreated := .t.\n   endif\n\nIs there anything else I need to do?','',0,'','dkeg3sbz',1,0,'',343,0,0),(20569,4649,6,428,0,'200.55.19.126',1161358734,1,0,1,1,1,0,'','EJECUTAR COMANDO COMO FUNCION','Hola amigos,\n\nEstoy tratando de ejecutar un comando de Clipper o Harbour, por ejemplo: COPY ALL TO C:ARCHI.DBF VIA \"DBFCDX\", la idea es ejecutarlo usando una MacroSustitucion \"&amp;\" o un CODEBLOCK, pero no encuentro la forma, alguien puede sugerirme alguna opción?.\n\nGracias y Saludos\n\nMiguel','',0,'','1qbqb9m0',1,0,'',428,0,0),(20570,4650,3,67,0,'62.235.24.58',1161361446,1,0,1,1,1,0,'','Richedit','Hello,\n\n[code:3lf675bf]\n\nnFrom &#58;= oRtf&#58;Printbox&#40;If&#40; oPrn&#58;lMeta , oPrn&#58;hDCOut, oPrn&#58;hDC &#41; , Rij*Rijstap , LeftMarge, nWidth - 100 , &#40;Rij + 1&#41;*Rijstap , nFrom&#41; //4590\n\n\nMETHOD PrintBox&#40; hDC, nTop, nLeft, nRight, nBottom, nFrom &#41; CLASS TRichEdit\n\n   DEFAULT nFrom &#58;= 0\n\n   if hDC != 0\n      nFrom &#58;= REPrintBox&#40; &#58;&#58;hWnd, hDC, &#58;&#58;IsSelection&#40;&#41;, ;\n                           nTop, nLeft, nRight, nBottom, nFrom &#41;\n   endif\n\nreturn nFrom\n[/code:3lf675bf]\n\nWhen this method is called , a array is returned.\n\nSomething changed in 2.8 ?????\n\nI have code that works in 2.7 , not anymore in 2.8','',0,'AIA=','3lf675bf',1,0,'',67,0,0),(20571,4646,20,6,0,'87.17.226.113',1161362261,1,0,1,1,1,1,'','','Non so che dirti, a me funziona con Office 2000. Può essere cambiato qualcosa nella tua versione di Office?\n\nEMG','',0,'AIA=','13ch14ui',1,0,'',6,0,0),(20572,4612,6,278,0,'164.77.166.80',1161362798,1,0,1,1,1,1,'','Gracias','Gracias por tu respuesta Jose Luis , voy a probar tus comentarios.\n\nSaludos,','',0,'AIA=','3edpax0z',1,0,'',278,0,0),(20573,4639,3,425,0,'213.22.46.67',1161363797,1,0,1,1,1,0,'','Images Tfolder','[url]http://psfaro.spaces.live.com/?_c11_PhotoAlbum_spaHandler=TWljcm9zb2Z0LlNwYWNlcy5XZWIuUGFydHMuUGhvdG9BbGJ1bS5GdWxsTW9kZUNvbnRyb2xsZXI%24&amp;_c11_PhotoAlbum_spaFolderID=cns!CC8545F5EBEC1F74!107&amp;_c11_PhotoAlbum_startingImageIndex=1&amp;_c11_PhotoAlbum_commentsExpand=0&amp;_c11_PhotoAlbum_addCommentExpand=0&amp;_c11_PhotoAlbum_addCommentFocus=0&amp;_c=PhotoAlbum\n\nHi \n\nTanxs for your reply\n\nYou can see the 2 images  .\n\nthe teste1  is Ok.  When i run the Dialog the first time it\'s ok.\nIf i exit and open again i get the test2 .\n\n\nBest regards\n   Pedro\n[/url]','',0,'','3qcwkmrq',1,0,'',425,0,0),(20574,4649,6,533,0,'80.32.177.143',1161364874,1,0,1,1,1,0,'','','Hola Miguel:\n\n   No se si es lo que necesitas pero yo uso muchas veces lineas como éstas:\n\n   cFichero:=\"pruebas.dbf\"\n\n   sele &lt;fichero.dbf&gt;\n   copy to &amp;cFichero for &lt;condiciones&gt;\n\n   y me funciona correctamente.','',0,'','1gzf8oum',1,0,'',533,0,0),(20575,4505,6,533,0,'80.32.177.143',1161365354,1,0,1,1,1,0,'','','Hola gdeteran:\n\nCreo que el problema que tienes en los otros archivos es porque habrá seleccionado otro alias. A mi me pasaba lo mismo y lo arregle poniendo la siguiente línea antes del report :\n\nselect &lt;tabla dbf del informe&gt;\n\nen tu caso seria\n\nselect (cpagmov)\n\n \n\nFunction ImprimeIngresos( aVars ) \n*------------------------------- \n\n\n   [b:1ji6jao9]sele (cpagmov) &lt;------------- AQUI POR EJEMPLO[/b:1ji6jao9]\n\n\n  (cPAGMOV)-&gt;(DbSeek(\"IN\" + DTOS(dFecIni) + \"000000\", .T. )) \n\n   REPORT oInforme CAPTION \"Ingresos en Caja\" ; \n      TITLE \" \", \" \", \"Ingresos desde \"+DTOC(dFecIni)+\" al \"+DTOC(dFecFin); \n      HEADER  \"COMERCIAL NITOBEL LTDA.\" + SPACE(100) + \"Fecha : \"+DTOC(DATE()); \n      FOOTER \"Pagina : \"+STR(oInforme:nPage,3) CENTER ; \n      PREVIEW \n\n                  COLUMN TITLE \"Tipo\"        ; \n                  DATA (cPAGMOV)-&gt;Tipo \n\n                  COLUMN TITLE \"Numero\"      ; \n                  DATA (cPAGMOV)-&gt;Numero \n\n                  COLUMN TITLE \"Fecha\"       ; \n                  DATA (cPAGMOV)-&gt;Fecha \n\n                  COLUMN TITLE \"Monto\"       ; \n                  DATA (cPAGMOV)-&gt;Pagado ; \n                  PICTURE \"@E 9,999,999\"     ; \n                  TOTAL ; \n                  GRID \n\n   END REPORT \n\n   ACTIVATE REPORT oInforme  ; \n          WHILE  .NOT.(cPAGMOV)-&gt;(EOF()) .AND. (cPAGMOV)-&gt;Tipo = \"IN\" ; \n          FOR (cPAGMOV)-&gt;Fecha &gt;= dFecIni .AND. (cPAGMOV)-&gt;Fecha &lt;= dFecFin \n                \n \n \n \n \n\n\nPowered','',0,'QA==','1ji6jao9',1,0,'',533,0,0),(20576,4637,6,123,0,'88.0.86.53',1161365548,1,0,1,1,1,0,'','','Hola Biel,\n\nEstas modificaciones las tengo funcionando 100x100 en mis aplicaciones desde hace tiempo:\n\n[code:29uwdhz3]METHOD Eof&#40;&#41; INLINE &#40; &#40;&#58;&#58;cAlias&#41;-&gt;&#40;Eof&#40;&#41;&#41; &#46;and&#46; &#58;&#58;hStmt == 0 &#41;\n\n\nMETHOD Skip&#40; nRecs &#41; CLASS TDbOdbcDirect\n\n   local nTotal, nRecno\n\n   DEFAULT nRecs &#58;= 1\n\n   if &#58;&#58;hStmt == 0 &#46;or&#46; nRecs &lt;= 0\n      &#40;&#58;&#58;cAlias&#41;-&gt;&#40;DbSkip&#40; nRecs &#41;&#41;\n      return nil\n   endif\n\n   If &#40;&#58;&#58;cAlias&#41;-&gt;&#40;IndexOrd&#40;&#41;&#41; == 0\n      nTotal &#58;= &#40;&#58;&#58;cAlias&#41;-&gt;&#40;RecCount&#40;&#41;&#41;\n      nRecno &#58;= &#40;&#58;&#58;cAlias&#41;-&gt;&#40;Recno&#40;&#41;&#41;\n\n      If &#40; nRecno + nRecs &#41;&lt;= nTotal\n         &#40;&#58;&#58;cAlias&#41;-&gt;&#40;DbSkip&#40; nRecs &#41;&#41;\n      else\n         &#58;&#58;Fill&#40; nRecno - nTotal + nRecs &#41;\n      Endif\n   else\n      &#58;&#58;Complete&#40;&#41;\n      &#40;&#58;&#58;cAlias&#41;-&gt;&#40;DbSkip&#40; nRecs &#41;&#41;\n   endif\n\nreturn nil[/code:29uwdhz3]\n\n\nY sí... deberías plantearte la ìdea de cambiar a Ado.  En <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> hay dos artículos míos sobre este tema.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','29uwdhz3',1,0,'',123,0,0),(20577,4651,3,281,0,'24.78.163.16',1161370193,1,0,1,1,1,1,'','Questions about WinSock TCP/IP.','Hi all.\n\nQuestions about WinSock TCP/IP.\n\nWe are Server, others are Clients.\n\nClients can send message to server.\n\nHow can server send a message to specific client ? \n\nHow does server send a message to client anytime ?\n\nThanks.\n\nyunbg.\n\nFWH USER.','',0,'AIA=','1n2h6kcu',1,0,'',281,0,0),(20578,4652,6,12,0,'200.88.146.65',1161370484,1,0,1,1,1,1,'','OT: Presumiendo un poco','Saludos,\n\nHoy hen probado mi sistema de venta de loteria en Linux Fedora Core 5, el cual esta desarrollado en FiveWin y xHarbour, este usa la magnifica libreria Eagle1 para Mysql.\n\nAqui les dejo una imagen:\n\n[img:1cafk2h5]http&#58;//www&#46;lotenet&#46;com/imagenes/lotenet&#46;png[/img:1cafk2h5]','',0,'CA==','1cafk2h5',1,0,'',12,0,0),(20579,4653,2,348,0,'201.230.65.83',1161370621,1,0,1,1,1,0,'','listbox con Select','Buenos dias con todos :\n\nUna consulta, tengo un Listbox de una base de datos  ordenados por ejemplo asi :   INDEX :  GRUPO + NOMBRE \n\ny este por ejemplo lo activo  con el SELECT  GRUPO FOR \"OFICINA\"\n\nEsto me permite listar solo el GRUPO de \"OFICINA\"  y ordenado por NOMBRE:\n\nBueno la pregunta...:  \nyo ya tengo un posible nombre a ubicar  entonces antes de activar el dialogo  realizo lo siguiente : \n\nXNOMBRE := \"PEREZ\"\n*Busco Aproximadamente con el Softseek\nSET SOFTSEEK ON\nSEEK \"OFICINA\"+ XNOMBRE\nSET SOFTSEEK OFF\n\nREDEFINE LISTBOX  oLBX  FIELDS  PERSONA-&gt;NOMBRE, PERSONA-&gt;SUELDO ;\nHEADER \"NOBRE\",\"SUELDO MENSUAL\" ;\nFIELDSIZE  30 , 50 ;\nSELECT  GRUPO FOR \"OFICINA\" ;\nID 190\n\ncon esto, esperaba que al abrir el Browse se ubicara al menos lo mas cerca o sobre el registro donde se encuentra \"PEREZ\", pero no es asi, se ubica  al principio de la lista del Grupo \"OFICNA\" \n\nCreo que estoy mal en conceptos  o falta algo, pues desearia que el registro activo (azul) sea lo mas cercano a \"PEREZ\" por ejemplo\n\nGracias por la ayuda anticipada\n\nlubin','',0,'CA==','1sqtag60',1,0,'',348,0,0),(20580,4647,4,224,0,'162.83.94.176',1161372299,1,0,1,1,1,1,'','','It appears that the problem is the way I specify the file name that cuases file not found. Today I played with the CeCreateFile function and it works, but the resulting file on the PPC is placed at the root with a filename of \"????????\". Here\'s the function prototype:\n[code:2ecias10]CeCreateFile&#40;LPCWSTR, DWORD, DWORD, LPSECURITY_ATTRIBUTES, DWORD, DWORD, HANDLE&#41;;[/code:2ecias10]\nI call this function as follows in Xbase++...\n[code:2ecias10]   nHnd &#58;= CeCreateFile&#40; &quot;\\Temp\\regmanip&#46;txt&quot;, ;\n                         GENERIC_WRITE, ;\n                         FILE_SHARE_WRITE, ;\n                         0, ;\n                         CREATE_ALWAYS, ;\n                         FILE_ATTRIBUTE_ARCHIVE, ;\n                         0 &#41;[/code:2ecias10]\nAny suggestions on how the file name should be passed?','',0,'AIA=','2ecias10',1,0,'',224,0,0),(20581,4604,6,52,0,'200.127.194.107',1161376097,1,0,1,1,1,1,'','','[quote=&quot;Manuel Aranda&quot;:32vcdzgc]Disculpa Antonio, ¿te importaría enviarmelo de nuevo a <!-- e --><a href=\"mailto:mareli@tiscali.es\">mareli@tiscali.es</a><!-- e --> ?\nTenia el e-mail desactualizado en el perfíl. Ya lo corregí.\n\nSaludos y gracias.\nManuel[/quote:32vcdzgc]\n\nNo probaste usar el xmate?','',0,'gA==','32vcdzgc',1,0,'',52,0,0),(20582,4654,4,20,0,'82.57.150.147',1161378867,1,0,1,1,1,0,'','REDEFINE BITMAP','When I use\n\nREDEFINE BITMAP oBmp RESOURCE \"LOGO\" ID ...\noBmp:lTransparent := .t.\n\nFWPPC show this error:\n\nArgument error\n%\nstack calls:\nTCONTROL:PAINT(0)\n__EVAL(0)\nTCONTROL:DISPLAY(0)\nTCONTROL:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nSHOWDIALOG(156)\n\n...\n\nI found in the BITMAP CLASS - Paint method this line\n\nSetBrushOrgEx( ::hDC, 8 - ::nLeft() % 8, 8 - ::nTop() % 8 )\n\nAny idea?\n\nRegards\nPier Luigi','',0,'gA==','3p3lrszd',1,0,'',20,0,0),(20583,4649,6,428,0,'200.55.19.126',1161385872,1,0,1,1,1,0,'','','Gracias Mike,\n\nEl tema es que tengo programado un Interprete del tipo Script, pero que hasta ahora funciona muy bien si escribo renglones de codigo que siempre sean funciones o bien asignacion de variables, tambien le agregue IF-ENDIF,  FOR-NEXT, DO-ENDDO entre otras y logre que en dicho codigo pueda definir procedimientos y los ejecute, pero eso es facil de lograr con el caracter \"&amp;\" aunque para los IF,FOR,DO y Proced. hice una logica distinta, el problema es que si deseo que interprete un comando como el del ejemplo (COPY ALL TO ARCHIVO.DBF VIA \"DBFCDX\") no me funciona  usando  \"&amp;\" por lo cual deberia usar otra forma, mi idea es que interprete todos los comandos de Clipper.\nImagino que debe ser algo relativamente \"simple\", pero no se me ocurre como.\n\nSaludos\nMiguel','',0,'gA==','5bi8joda',1,0,'',428,0,0),(20584,4639,3,206,0,'125.160.80.228',1161394352,1,0,1,1,1,0,'','','Dear Pedro,\n\n1. Try to create simple dialog on other prg and see if this happen too.\n2. Do you try to run this app on other computer?\n\nmy point is, you should find out where the problem located, is it on your prg or your computer os.\nIf the problem on your prg, then find out if you have modified any classes, class twindow maybe?\n\nRegards,\nHiong','',0,'gA==','mjp5yke2',1,0,'',206,0,0),(20585,4649,6,644,0,'200.125.105.209',1161398594,1,0,1,1,1,0,'','','se me ocurre que tendrás que buscar las funciones que define ese comando y después ver la manera que se corresponda con la cadena \'copy to etc \'. Por ejemplo el comando QUIT invoca a la funcion __quit() y así con cada comando\nsalu2 <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','1ivwnh0o',1,0,'',644,0,0),(20586,4609,6,72,0,'189.136.202.252',1161404088,1,0,1,1,1,0,'','','Gracias por tu apreciación Miguel Angel, hace tiempo que no veo tu participación en estos foros. \n\nUn saludo.','',0,'gA==','1s944boh',1,0,'',72,0,0),(20587,4628,6,100,0,'201.16.38.3',1161408960,1,0,1,1,1,1,'','','Ola amigo Antonio\n\nTentei usar MsgInfo( GetNetCardID() )\n\nmais me retorna este erro\n[b:38ghnp89]\nError: Unresolved external \'GetAdaptersInfo\' referenced from G:\\FWH27\\LIB\\FIVEHC.LIB|NETCRDID\n[/b:38ghnp89]\n\n\nprecisa de alguma LIB especifica ??','',0,'QA==','38ghnp89',1,0,'',100,0,0),(20588,3143,1,170,0,'213.103.205.221',1161426901,1,0,1,1,1,1,'','','Hello,\n\nI have rewritted the functions WinGetPrn() and WinGetPrnP()\nbecause there are some shared printers who are not registered\nin the same path in the Windows registry, under NT, XP, and\ni think also under 2000, 2003, Vista. \n\nTheses functions must work under all Windows since 95,\nelse i have something to change.\n\nThank you to say me any problem found.\n\nRegards,\n\n\n[code:1c5yot7w]\n******************\nFUNCTION WinGetPrn&#40;&#41;\n******************\n* Recherche les imprimantes installées sous windows\n* dans le registre de Windows &#40;remplace le WIN&#46;INI qui est obsolète sous Windows 2000 et suivants&#41;\n* Auteur Badara Thiam\n\nLOCAL TIMP &#58;= &#123;&#125;\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL nok\nLOCAL nLen\nLOCAL cSubkeys\nLOCAL aHKey &#58;= HKEY_LOCAL_MACHINE\nLOCAL TSERVEURS &#58;= &#123;&#125;\nLOCAL X\n\n* Recherche des imprimantes disponibles depuis le poste courant\ncSubKeys &#58;= &quot;System\\CurrentControlSet\\Control\\Print\\Printers&quot;\n\nIF RegOpenKey&#40; aHKey,  cSubKeys,  @nHandle &#41; == 0\n    n1 &#58;= 0\n    DO WHILE &#46;T&#46;\n      cValue &#58;= &quot;&quot;\n      n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n      SysRefresh&#40;&#41;\n      IF n2 = 0\n        IF ASCAN&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n          AADD&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n        ENDIF\n      ELSE\n        EXIT\n      ENDIF\n      n1 ++\n    ENDDO\n    RegCloseKey&#40; nHandle &#41;\nENDIF\n\n* Recherche des imprimantes réseau non répertoriées dans la clé précédente &#40;ci-dessus&#41;\n* Ajouté le 20/10/2006\nTSERVEURS &#58;= WinGetSerP&#40;&#41;\nIF !EMPTY&#40;TSERVEURS&#41;\n  FOR X &#58;= 1 TO LEN&#40;TSERVEURS&#41;\n    cSubKeys &#58;= &quot;SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers&quot; ;\n    + &quot;\\&quot; + TSERVEURS&#91;X&#93; + &quot;\\Printers&quot;\n\n    IF RegOpenKey&#40; aHKey,  cSubKeys,  @nHandle &#41; == 0\n      n1 &#58;= 0\n      DO WHILE &#46;T&#46;\n        cValue &#58;= &quot;&quot;\n        n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n        SysRefresh&#40;&#41;\n        IF n2 = 0\n          IF ASCAN&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n            AADD&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n          ENDIF\n        ELSE\n          EXIT\n        ENDIF\n        n1 ++\n      ENDDO\n      RegCloseKey&#40; nHandle &#41;\n    ENDIF\n  NEXT X\nENDIF\n\nRETURN ACLONE&#40;TIMP&#41;\n\n[/code:1c5yot7w][code:1c5yot7w]\n\n*******************\nFUNCTION WinGetSerP&#40;&#41;\n*******************\n* Renvoie les noms des serveurs d\'impression disponibles pour le poste courant\n* Auteur Badara Thiam\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL cSubkeys\nLOCAL aHKey &#58;= HKEY_LOCAL_MACHINE\nLOCAL TSERVEURS &#58;= &#123;&#125;\n\ncSubKeys &#58;= &quot;SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers&quot;\nIF RegOpenKey&#40; aHKey,  cSubKeys,  @nHandle &#41; == 0\n\n    * Recherche des serveurs accessibles\n    n1 &#58;= 0\n    TSERVEURS &#58;= &#123;&#125;\n    DO WHILE &#46;T&#46;\n      cValue &#58;= &quot;&quot;\n      n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n      SysRefresh&#40;&#41;\n      IF n2 = 0\n        AADD&#40;TSERVEURS, cValue&#41;\n      ELSE\n        EXIT\n      ENDIF\n      n1 ++\n    ENDDO\n\n    RegCloseKey&#40; nHandle &#41;\nENDIF\nRETURN ACLONE&#40;TSERVEURS&#41;\n\n[/code:1c5yot7w][code:1c5yot7w]\n\n*******************\nFUNCTION WinGetPrnD&#40;cNomDriver&#41;\n*******************\n* Recherche le driver d\'une imprimante installée sous windows\n* dans le registre de Windows &#40;remplace le WIN&#46;INI qui est obsolète sous Windows 2000 et suivants&#41;\n* Auteur Badara THIAM\n\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL nok\nLOCAL nLen\nLOCAL cSubkeys\nLOCAL cSubkeys2\nLOCAL X, X2\nLOCAL TENV &#58;= &#123;&#125;\nLOCAL TENVDRIVER &#58;= &#123;&#125;\nLOCAL oReg\nLOCAL cDriver &#58;= &quot;&quot;\n\ncSubKeys &#58;= &quot;System\\CurrentControlSet\\Control\\Print\\Environments&quot;\n\nIF RegOpenKey&#40; HKEY_LOCAL_MACHINE,  cSubKeys,  @nHandle &#41; == 0\n  SysRefresh&#40;&#41;\n  n1 &#58;= 0\n  DO WHILE &#46;T&#46;\n    cValue &#58;= &quot;&quot;\n    n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n    IF n2 = 0\n      IF ASCAN&#40;TENV, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n        AADD&#40;TENV, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n      ENDIF\n    ELSE\n      EXIT\n    ENDIF\n    n1 ++\n    SysRefresh&#40;&#41;\n  ENDDO\n  RegCloseKey&#40; nHandle &#41;\n  SysRefresh&#40;&#41;\n\n  FOR X &#58;= 1 TO LEN&#40;TENV&#41;\n    cSubKeys2 &#58;= cSubKeys + &quot;\\&quot; + TENV&#91;X&#93; + &quot;\\Drivers&quot;\n\n    oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, cSubKeys2 + &quot;\\&quot; + cNomDriver&#41;\n\n    IF oReg&#58;nError = 0\n      cDriver &#58;= oReg&#58;Get&#40;&quot;Driver&quot;, &quot;&quot;&#41;\n      oReg&#58;Close&#40;&#41;\n      oReg &#58;= NIL\n      IF !EMPTY&#40;cDriver&#41;\n        cDriver &#58;= IIF&#40;&quot;&#46;&quot; $ cDriver, LEFT&#40;cDriver, AT&#40;&quot;&#46;&quot;, cDriver&#41; - 1&#41;, cDriver&#41;\n        EXIT\n      ENDIF\n    ELSE\n      oReg&#58;Close&#40;&#41;\n      oReg &#58;= NIL\n      IF RegOpenKey&#40; HKEY_LOCAL_MACHINE,  cSubKeys2,  @nHandle &#41; == 0\n        n1 &#58;= 0\n        TENVDRIVER &#58;= &#123;&#125;\n        DO WHILE &#46;T&#46;\n          cValue &#58;= &quot;&quot;\n          n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n          IF n2 = 0\n            IF ASCAN&#40;TENVDRIVER, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n              AADD&#40;TENVDRIVER, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n            ENDIF\n          ELSE\n            EXIT\n          ENDIF\n          SysRefresh&#40;&#41;\n          n1 ++\n        ENDDO\n        RegCloseKey&#40; nHandle &#41;\n        SysRefresh&#40;&#41;\n\n        FOR X2 &#58;= 1 TO LEN&#40;TENVDRIVER&#41;\n\n          oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, cSubKeys2 + &quot;\\&quot; + TENVDRIVER&#91;X2&#93; + &quot;\\&quot; + cNomDriver&#41;\n          IF oReg&#58;nError = 0\n            cDriver &#58;= oReg&#58;Get&#40;&quot;Driver&quot;, &quot;&quot;&#41;\n            oReg&#58;Close&#40;&#41;\n            oReg &#58;= NIL\n            IF !EMPTY&#40;cDriver&#41;\n              cDriver &#58;= IIF&#40;&quot;&#46;&quot; $ cDriver, LEFT&#40;cDriver, AT&#40;&quot;&#46;&quot;, cDriver&#41; - 1&#41;, cDriver&#41;\n              EXIT\n            ENDIF\n          ELSE\n            oReg&#58;Close&#40;&#41;\n            oReg &#58;= NIL\n          ENDIF\n          SysRefresh&#40;&#41;\n\n        NEXT X2\n        IF !EMPTY&#40;cDriver&#41;\n          EXIT\n        ENDIF\n      ENDIF\n    ENDIF\n    SysRefresh&#40;&#41;\n  NEXT X\nENDIF\nSysRefresh&#40;&#41;\nRETURN cDriver\n\n[/code:1c5yot7w][code:1c5yot7w]\n\n*******************\nFUNCTION WinGetPrnP&#40;cNomImpr&#41;\n*******************\n* Renvoie le &#40;nom du fichier&#41; Driver et le Port de l\'imprimante dont le nom est le contenu de cNomImpr&#46;\n* Le Driver et le Port sont renvoyés dans une chaine, séparés par une virgule&#46;\n* Auteur Badara THIAM\n\nLOCAL cDriver &#58;= &quot;&quot;\nLOCAL cNomDriver &#58;= &quot;&quot;\nLOCAL cPort &#58;= &quot;&quot;\nLOCAL oReg\nLOCAL X\nLOCAL Y\nLOCAL TIMP &#58;= WinGetPrn&#40;&#41;\nLOCAL TSERVEURS &#58;= &#123;&#125;\n\n* Recherche l\'imprimante Windows ayant le même nom,\n* en convertissant en minuscule et en supprimant les espaces\nFOR X &#58;= 1 TO LEN&#40;TIMP&#41;\n  IF MEMEIMPRIM&#40;@cNomImpr, TIMP&#91;X&#93;&#41;\n  * Si c\'est la même imprimante\n    EXIT\n  ENDIF\nNEXT X\n\nIF X &lt;= LEN&#40;TIMP&#41;\n\n  oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE,;\n  &quot;System\\CurrentControlSet\\Control\\Print\\Printers\\&quot; + STRTRAN&#40;TIMP&#91;X&#93;,&quot;\\&quot;,&quot;,&quot;&#41;&#41;\n\n  IF oReg&#58;nError &lt;&gt; 0\n\n    * Recherche les imprimantes réseau non répertoriées &#40;ajouté le 20/10/2006&#41;\n    oReg&#58;Close&#40;&#41;\n    oReg &#58;= NIL\n    TSERVEURS &#58;= WinGetSerP&#40;&#41;\n\n    FOR Y &#58;= 1 TO LEN&#40;TSERVEURS&#41;\n\n      oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE,;\n      &quot;SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers&quot; ;\n      + &quot;\\&quot; + TSERVEURS&#91;Y&#93; + &quot;\\Printers\\&quot; + STRTRAN&#40;TIMP&#91;X&#93;,&quot;\\&quot;,&quot;,&quot;&#41;&#41;\n\n      IF oReg&#58;nError = 0\n        EXIT\n      ELSE\n        oReg&#58;Close&#40;&#41;\n        oReg &#58;= NIL\n      ENDIF\n    NEXT Y\n\n  ENDIF\n  IF oReg != NIL\n    IF oReg&#58;nError = 0\n      cPort &#58;= oReg&#58;Get&#40;&quot;Port&quot;, &quot;&quot;&#41;\n      cNomDriver &#58;= oReg&#58;Get&#40;&quot;Printer Driver&quot;, &quot;&quot;&#41;\n    ENDIF\n    oReg&#58;Close&#40;&#41;\n    oReg &#58;= NIL\n  ENDIF\n  IF cNomDriver != &quot;&quot;\n    cDriver &#58;= WinGetPrnD&#40;@cNomDriver&#41;\n  ENDIF\nENDIF\nRETURN cDriver + &quot;,&quot; + cPort\n[/code:1c5yot7w]','',0,'AIA=','1c5yot7w',1,0,'',170,0,0),(20589,4639,3,425,0,'87.196.163.196',1161429989,1,0,1,1,1,0,'','','Hi\n\nI\'ts not the version of FWH (2.6) ?\n\nI see all the posts about problems in TFOLDER but nothing like mine.\n\nTansk anyway .,\n\nI will try to contact Fivetwch directly to see wat\'s the problem\n\n\nRegards\n\n                   Pedro','',0,'AIA=','2f369tox',1,0,'',425,0,0),(20590,4650,3,67,0,'62.235.24.58',1161436372,1,0,1,1,1,0,'','','I have tested testrtf-file , \n\nstatic function PrintBox( lPreview )\n\n         ...................................................\n\n         oPrn:Box( 1000, 500, 2500, 3000 )\n\n         ? REPrintBox( oRTF:hWnd, If( lPreview, oPrn:hDCOut, oPrn:hDC ), ;\n                     oRTF:IsSelection(), 1020, 510, 2990, 2490 )\n\n\n\nWith fwh2.7 : returns 399\n\nWith fw2.8  : returns array ,{ 399 , 2424,17 }\n\nIt seems that the first element is nFrom , the second ????\n\nWhere is this change documented ???????????\n\nIt is impossible for us after a upgrade from fw to test ALL modules from a big fw-aplication. Onfurtunately , this error was found by the custumer\n\nFrank\n\nThis behaviour make all programs which used the nfrom clause from reprintbox','',0,'AIA=','1rh98h7x',1,0,'',67,0,0),(20591,4649,6,428,0,'200.55.19.126',1161440183,1,0,1,1,1,0,'','','Al fin descubri la solución, el preprocesador se encarga de de transformar esos comandos en funciones,  por lo que ya resuelve mi problema.\n\nGracias a todos los que se interesaron.\n\nSaludos\nMiguel','',0,'AIA=','ecb9aoxy',1,0,'',428,0,0),(20592,4655,3,148,0,'196.205.181.184',1161441669,1,0,1,1,1,0,'','Updating an existing Excel Sheet','How can I update the last column of an excel sheet of data derived from DBF. How can the FWH detect the last column filled . I want to fill column after the last was filled .','',0,'AIA=','2assvu47',1,0,'',148,0,0),(20593,4656,3,487,0,'151.42.116.87',1161442414,1,0,1,1,1,0,'','DeletePrinter()','Hello all.\n\nI\'m trying to automatically delete a printer by the source below, but I always receive Error 5 and I don\'t find where\'s the error.\nDo you see something wrong ?\n\nThanks,\nDavide.\n\n[code:7smh5c75]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Struct&#46;ch&quot;\n// #include &quot;WinSpool&#46;h&quot;\n#define PRINTER_ACCESS_ADMINISTER   0x00000004\n\nfunction DelPrn&#40; cName &#41;\n\nLocal Result&#58;=&#46;f&#46;,oPrnDefaults,hDC \n\nDEFAULT cName &#58;= &quot;Test&quot;\n\n  STRUCT oPrnDefaults\n     MEMBER pDatatype           AS LPSTR\n     MEMBER pDevMode            AS LPSTR  // LPDEVMODE \n     MEMBER DesiredAccess       AS DWORD  // ACCESS_MASK\n  ENDSTRUCT\n\n  oPrnDefaults&#58;DesiredAccess    = PRINTER_ACCESS_ADMINISTER\n\n  IF &#40; ASCAN&#40;aDevName&#40;&#41;,&#123;|x| Upper&#40;x&#41; == Upper&#40;cName&#41;&#125;&#41; &gt;0 &#41;    \n\n    If OpenPrinter&#40;cName , @hDC , oPrnDefaults&#58;cBuffer &#41;\n      If hDC # 0\n        Result &#58;= DelPrinter&#40; hDC &#41; \n        If !Result ; MsgAlert&#40; \'DelPrn Error \' + Str&#40; GetLastError&#40;&#41; &#41; &#41; ; Endif\n        //\n        // --- Always receive Error 5 here !!! ---\n        // \n        ClosePrinter&#40; hDC &#41;\n      Endif\n    Endif\n\n  Endif\n\nReturn Result\n\n//------------------------------------------------------------------------//\n\nDLL32 FUNCTION ClosePrinter&#40; pPrinter AS LONG &#41; AS BOOL PASCAL ;\n                             FROM &quot;ClosePrinterA&quot; LIB &quot;winspool&#46;drv&quot;\n\n//------------------------------------------------------------------------//\n\nDLL32 FUNCTION DelPrinter&#40; pPrinter AS LONG &#41; AS BOOL PASCAL ;\n                             FROM &quot;DeletePrinter&quot; LIB &quot;winspool&#46;drv&quot;\n\n//------------------------------------------------------------------------//\n\nDLL32 FUNCTION OpenPrinter&#40; pName AS LPSTR, @pPrinter AS LONG, pDef AS LPSTR &#41; ;\n                             AS BOOL PASCAL ;\n                             FROM &quot;OpenPrinterA&quot; LIB &quot;winspool&#46;drv&quot;\n\n//------------------------------------------------------------------------//\n[/code:7smh5c75]','',0,'AIA=','7smh5c75',1,0,'',487,0,0),(20594,4657,6,438,0,'166.114.112.202',1161443500,1,0,1,1,1,0,'','Problema con MACROS largos','Hola Amigos:\n\nEstoy pasando de  [b:1ky3euiu]Clipper53/FW24/Blinker7  [/b:1ky3euiu]a  [b:1ky3euiu]Harbour 42/FWH24/BCC5.[/b:1ky3euiu]\nEn Clipper/FW uso la antigua libreria [b:1ky3euiu]FiveScrip v2.1[/b:1ky3euiu], y todo funciona bien.\n\nAhora compile FiveScript con harbour(realizando algunas modificaciones minimas), y todo compilo y enlazo OK y FiveScript funciona.\n\nEl problema es cuando tengo una macro muy compleja (FiveScript hace uso extenso de las macros).\n\nEn FiveScript con Clipper/FW esto funciona Ok\n\n   [b:1ky3euiu]oTipo:bLostFocus :={|| oTipo:Assign(),oTDescripcion:Set( oEdit:Tipo ),oTDescripcion:Refresh() } [/b:1ky3euiu]\n.. incluso expresiones mas complejas, limitadas solo por el largo de la cadena que no puede pasar de 255.\n\nlo que hace FiveScript es:\n\n   [b:1ky3euiu]oTipo:bLostFocus :=&amp;\"{|| oTipo:Assign(),...,oTDescripcion:Refresh() }\" [/b:1ky3euiu]\n \n\nAhora en Harbour (el problema no es de FWH), con la misma instruccion el programa muere directamente sin ningun mensage, ni siquiea genera un GPF.\nLo mas que acepta es: \n\n   [b:1ky3euiu]oTipo:bLostFocus :={|| oTipo:Assign(), oTDescripcion:Set( oEdit:Tipo ) } //,oTDescripcion:Refresh() } [/b:1ky3euiu]\n\nes decir en macro \n\n   [b:1ky3euiu]oTipo:bLostFocus :=&amp;\"{|| oTipo:Assign(),oTDescripcion:Set( oEdit:Tipo ) }\" [/b:1ky3euiu]\nEn resumen:\n   En FW/Clipper la macro genera un Codeblock con tres instrucciones dentro, separadas por \",\". \n   En Harbour solo permite generar Codeblock con DOS instrucciones dentro, separadas por \",\".\n\n[b:1ky3euiu]La pregunta es:[/b:1ky3euiu] Hay algun parametro que indique a Harbour para que permita generar programas que ejecuten macros mas complejas?\n\nDe atemano gracias por la respuestas.\n\nRolando Salazar\nCochabamba-Bolivia','',0,'QA==','1ky3euiu',1,0,'',438,0,0),(20595,4658,6,73,0,'201.132.230.81',1161445369,1,0,1,1,1,0,'','filtros con scopes..','tengo una dbf con mas de 300,000 registros y quiero hacer filtros por muchos campos, probe el setfilter pero es muy lento, he hecho scopes con el campo como llave y va muy bien, mi pregunta es:\nes necesario tener el indice por el scope que se necesita para hacer el filtro? o que me recomiendan para hacer multi-filtros rapidos?\nsalu2\ngracias\nPaco','',0,'QA==','1z5fwqz0',1,0,'',73,0,0),(20596,4659,6,73,0,'201.132.230.81',1161447235,1,0,1,1,1,0,'','get no toma datos...','hola, tengo un dialogo con 5 campos Get y un boton, el primer get es el nombre \nREDEFINE GET oGet[1] VAR cGet[1] OF ......\nsi yo escribo el nombre y no doy enter o tab para cambiar al siguiente campo y me quedo posicionado en este get, y doy click en el boton (ahi el action es para grabar los datos a la dbf) bueno pues valido al grabar en la dbf que la variable cGet[1] no este vacia, y que creen? la variable cGet[1]  me la detecta como vacia, si me cambio de Get si me la toma bien, esto nomas sucede en xHarbour con Harbour no sucede, si me lo acpeta?, saben como corregir esto en xHarbour?\ngracias\npaco','',0,'','17sdv6sh',1,0,'',73,0,0),(20597,4660,6,52,0,'200.127.194.107',1161449828,1,0,1,1,1,1,'','[aspecto de dialogos] uno de 100 x 100 se muetra 80 x 80...','Estimados,\n\nHace un tiempo hicieron esta pregunta, pero estoy buscando y no logro encontrarlo.\n\nEn el workshop diseño un dialogo de 100 x 100 pixels, pero luego en mi app corriendo el dialogo es de 80 x 80, esto se solucionaba agregando algo de HF4 o algo asi, podrían decirme como era?\n\nGracias.','',0,'','17yapxvb',1,0,'',52,0,0),(20598,4609,6,582,0,'201.253.67.98',1161452469,1,0,1,1,1,0,'','','[quote=&quot;Alfredo Arteaga&quot;:19jjhvll]Gracias por tu apreciación Miguel Angel, hace tiempo que no veo tu participación en estos foros. \n\nUn saludo.[/quote:19jjhvll]\n\nLo que pasa es que tengo mis dias.......\nHay a veces que esta enfermedad (diabetes) me da batalla.....\nPero con la ayuda de seres queridos y amigos voy saliendo.\n\nAprovecho esta oportunidad, ya que en su momento no lo hice, es agradecer a Antonio Linares por la paciencia y buena boluntad que me ha tenido.\n\nUn abrazo. El Loco  =&gt;))\n\nPD. A mis no tan amigos, no se preocupen, hay \"Loco\" para rato.','',0,'gA==','19jjhvll',1,0,'',582,0,0),(20599,4661,6,519,0,'88.14.211.49',1161453108,1,0,1,1,1,0,'','Twbrowse ?','Hola\n\n   La clase twbrowse de fwh toma los header   con los temas del xp  ?\n\n\n   Un saludo','',0,'gA==','3h96gjs6',1,0,'',519,0,0),(20600,4647,4,2,0,'87.218.146.97',1161453535,1,0,1,1,1,1,'','','Bill,\n\nLPCWSTR means an unicode string not an ansi one. \n\nTry with AnsiToWide( &lt;cAnsiText&gt; ) --&gt; cUnicodeText','',0,'gA==','2aknk3u9',1,0,'',2,0,0),(20601,4658,6,138,0,'189.141.70.60',1161453840,1,0,1,1,1,1,'','','Hay 2 formas la primera es aplicar el SCOPE y luego un filtro sobre el scope, lo cual resulta mucho mas rapido porque hay que filtrar menos datos, pero de entrada, siempre es necesario que exista un indice para poder \"scopear\".\n\nLo que yo hago, es hacer multiples indices con multiples llaves para hacer \"multi-filtros\" como tu los llamas, ya que capacidad de un CDX es de hasta 50 indices por archivo, tengo DBFs que tiene mas de 35 ordenes en cada CDX, basado en combiancines de campos y clauslas restrictivias (INDEX ON campo+otrocampo+ campo TAG nombre FOR condicion)y funcionan bastante bien. Eso cuando tengo que trabajar con CDX puros y duros.\n\nCuando trabajas con ADS puedes utilizar Queries de SQL que funcionan alucinamente bien, o bien los famoso AOF (Advantage Optimized Filters) que son filtros sumamente eficientes y super rapidos basados en la funcion DBSETFILTER','',0,'gA==','1w71prw8',1,0,'',138,0,0),(20602,4656,3,2,0,'87.218.146.97',1161453969,1,0,1,1,1,1,'','','Davide,\n\n#define EACCES     5    /* Permission denied                */\n\nDo you have enough privileges to delete it ?','',0,'gA==','361pl7x7',1,0,'',2,0,0),(20603,4644,7,2,0,'87.218.146.97',1161454143,1,0,1,1,1,1,'','','Wilson,\n\nSí, tienes que incluirlo.','',0,'gA==','1euzqd6t',1,0,'',2,0,0),(20604,4661,6,2,0,'87.218.146.97',1161454259,1,0,1,1,1,1,'','','Sí, de momento los dibuja con el tema seleccionado, aunque no se está creando un auténtico header aún.','',0,'gA==','322a99fs',1,0,'',2,0,0),(20605,4628,6,2,0,'87.218.146.97',1161454609,1,0,1,1,1,1,'','','Jackson,\n\nc:\\bcc55\\lib\\psdk\\iphlpapi.lib','',0,'gA==','7ulrm6dr',1,0,'',2,0,0),(20606,4655,3,6,0,'87.17.226.239',1161455087,1,0,1,1,1,1,'','Re: Updating an existing Excel Sheet','oSheet:UsedRange:Columns:Count\n\nEMG','',0,'gA==','1m9j2o53',1,0,'',6,0,0),(20607,4659,6,2,0,'87.218.146.97',1161455430,1,0,1,1,1,1,'','','Paco,\n\nEn la acción del botón haz primero oGet[1]:Assign()\n\nEstas diferencias de comportamiento entre Harbour y xHarbour se deben a que sus clases TGet son distintas.','',0,'','c31w45e6',1,0,'',2,0,0),(20608,4650,3,299,0,'24.233.172.101',1161455525,1,0,1,0,1,0,'','','Frank;\n\nIt is better now.  Now the function also returns the exact place in the page where it finished printing in pixels.  This was a very much needed feature.  Suppose you are printing a series of rtfs.  How do you know where in the current page the last rtf finished printing so you know where to start printing the next?  That\'s exactly what comes back on  the 2nd element that reprintbox returns ({ nFrom, nBottom }).\n\nI think the feature was document on what\'s new.\n\nI\'m currently using it with very much success.  I hope my comment helps.\n\nReinaldo.','',0,'','3311lc9m',1,0,'',299,0,0),(20609,4657,6,2,0,'87.218.146.97',1161455667,1,0,1,1,1,1,'','','Rolando,\n\nDeberías usar una versión de Harbour más reciente. La actual es la 46.2\n\nHan habido muchísimos cambios en Harbour.','',0,'','3imda7ll',1,0,'',2,0,0),(20610,4651,3,299,0,'24.233.172.101',1161455800,1,0,1,0,1,0,'','','Yunbg1;\n\nI\'m no expert but I\'m currently doing it via a tsocket connection.    Communication is both ways with a TCP/IP socket connection.\n\nReinaldo.','',0,'','2lh7qou7',1,0,'',299,0,0),(20611,4648,3,2,0,'87.218.146.97',1161456406,1,0,1,1,1,1,'','','Gale,\n\nIt looks as a right fix, thanks.\n\nDo you get any error with it ?','',0,'','28rgeda6',1,0,'',2,0,0),(20612,4651,3,2,0,'87.218.146.97',1161456509,1,0,1,1,1,1,'','','Yubg,\n\noClient:SendData( ... )','',0,'','2rdkfbj3',1,0,'',2,0,0),(20613,4650,3,2,0,'87.218.146.97',1161456662,1,0,1,1,1,1,'','','Frank,\n\nWe try to keep backwards compatibility as much as possible. Sometimes a change is required and usually we report it in whatsnew.txt','',0,'','xvm7acra',1,0,'',2,0,0),(20614,4653,2,2,0,'87.218.146.97',1161457036,1,0,1,1,1,1,'','','Lubin,\n\n&gt; SEEK \"OFICINA\"+ XNOMBRE\n\nDeberías usar:\n\nSEEK XGRUPO + XNOMBRE','',0,'','2fj59d86',1,0,'',2,0,0),(20615,4609,6,72,0,'189.136.208.74',1161459727,1,0,1,1,1,0,'','','... hay \"Loco\" para rato.\n\nEspero y así sea para tí, para Antonio y para TODOS!\n\nAfortunadamente me siento de 18 años (sin complicaciones por el momento), pero el futuro es incierto...\n\nUn Abrazo.','',0,'','3v9mjzf8',1,0,'',72,0,0),(20616,4655,3,148,0,'196.205.181.184',1161461684,1,0,1,1,1,0,'','','Where can I find full documentation about OLE calls and functions ?','',0,'','2t5y528h',1,0,'',148,0,0),(20617,4662,2,774,0,'200.72.196.95',1161469656,1,0,1,1,1,1,'','BROWSE CON ARRAY ALGUIEN ME LO EXPLICA','Alguien me podria explicar como usar BROWSE con ARRAY, \n\nyo uso TSBROWSE,, ahi defino con ADD COLUMN TO Obrw ARRAY ELEMENT \n\nalgun ejemplo util\n\nGRACIAS','',0,'','tmrgestn',1,0,'',774,0,0),(20618,4609,6,439,0,'200.125.51.118',1161471394,1,0,1,1,1,1,'','','Vamos Alfredo!!!!! no hay futuro incierto si te cuidas, tienes lo esencial, estás bien y tienes ganas de dar mucha pelea!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nTodos deseamos seguirte encontrando aquí, especialmente yo que necesito aprender mucho.\n\nUN ABRAZO! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1l7nw1hy',1,0,'',439,0,0),(20619,4659,6,73,0,'201.132.230.81',1161473719,1,0,1,1,1,0,'','','en efecto asi es...\ngracias\nPaco','',0,'','19gehy9l',1,0,'',73,0,0),(20620,4658,6,73,0,'201.132.230.81',1161473784,1,0,1,1,1,0,'','','bien explicado rene, a trabajar con muchos indices...\nsalu2\npaco','',0,'','2m2oj9ra',1,0,'',73,0,0),(20621,4660,6,52,0,'200.127.194.107',1161474828,1,0,1,1,1,1,'','Re: [aspecto de dialogos] uno de 100 x 100 se muetra 80 x 80','[quote=&quot;goosfancito&quot;:1u7737dr]Estimados,\n\nHace un tiempo hicieron esta pregunta, pero estoy buscando y no logro encontrarlo.\n\nEn el workshop diseño un dialogo de 100 x 100 pixels, pero luego en mi app corriendo el dialogo es de 80 x 80, esto se solucionaba agregando algo de HF4 o algo asi, podrían decirme como era?\n\nGracias.[/quote:1u7737dr]\n\nSTYLE DS_MODALFRAME |[b:1u7737dr] 0x4L[/b:1u7737dr] | WS_POPUP | WS_VISIBLE','',0,'wA==','1u7737dr',1,0,'',52,0,0),(20622,4656,3,487,0,'151.38.111.51',1161475188,1,0,1,1,1,0,'','','Antonio,\n\nthank you for your reply.\n\n[quote=&quot;Antonio Linares&quot;:2fcact5v]\nDo you have enough privileges to delete it ?[/quote:2fcact5v]\n\nYes, I can delete it either by the GUI dialog or by RUNDLL32 PRINTUI.DLL,PrintUIEntry .... (which would not work on Win9x - that\'s why I\'m trying to do it with the APIs, even on XP)\n\nPerhaps the problem may be in the data type of DesiredAccess ? (I already tried to pass NIL instead of the PrinterDefaults structure in OpenPrinter(), with the same results, so I though that probably I have to open the printer with administrative permissions to be allowed to delete it)\n\nThank you\nDavide','',0,'gA==','2fcact5v',1,0,'',487,0,0),(20623,4663,6,49,0,'62.13.172.78',1161479706,1,0,1,1,1,1,'','hoja A4','Como puedo mostrar un hoja A4 dentro de un dialogo con su \ntamaño real en cm y/o pixels y la posibilidad de hacer zoom in-out \nsobre ella\n\n---------------------------','',0,'gA==','3fucok66',1,0,'',49,0,0),(20624,4631,4,18,0,'189.143.73.143',1161482765,1,0,1,1,1,1,'','','Antonio :\n\nAny suggestion','',0,'gA==','juby0yhu',1,0,'',18,0,0),(20625,4652,6,307,0,'200.76.229.34',1161485563,1,0,1,1,1,0,'','linux','hola, una pregunta.. es fwh normal o para linux?.. hay una version para linux? o es el compilador el que hace la diferencia??\n\nsaludos y felicidades!! yo tengo corriendo programas en las dos plataformas pero no nativos en linux con fwh.\n\nme interesa saber la mecanica para poder hacer correr mis programas en linux nativo..\n\narvisnet.\npuedo contactarte a tu privado?','',0,'gA==','3bzx1btp',1,0,'',307,0,0),(20626,4653,2,348,0,'200.106.111.193',1161492188,1,0,1,1,1,0,'','','Gracias Antonio por la respuesta,  pero si la variable XGRUPO o campo indexado es de siete caracteres de igual manera funciona usandolo con XGRUPO o con \"OFICINA\",  yo lo probe con variables y constantes y el resultado es el mismo problema.  quizas falte algo mas al momento de reubicar el puntero del registro ?? \n\n\n[quote=&quot;Antonio Linares&quot;:2jslx7ov]Lubin,\n\n&gt; SEEK \"OFICINA\"+ XNOMBRE\n\nDeberías usar:\n\nSEEK XGRUPO + XNOMBRE[/quote:2jslx7ov]','',0,'gA==','2jslx7ov',1,0,'',348,0,0),(20627,4631,4,2,0,'87.218.146.125',1161505967,1,0,1,1,1,1,'','','Vikthor,\n\nWe are going to review it asap,','',0,'gA==','1urrcdqe',1,0,'',2,0,0),(20628,4652,6,2,0,'87.218.146.125',1161506123,1,0,1,1,1,1,'','','Está usando el emulador \"Wine\" en Linux. Es una aplicación nativa Windows.','',0,'gA==','26ie4f0a',1,0,'',2,0,0),(20629,4663,6,2,0,'87.218.146.125',1161506270,1,0,1,1,1,1,'','','Silvio,\n\nPuedes usar un control TMetaFile como los que usa el preview de FWH.','',0,'gA==','m8losng5',1,0,'',2,0,0),(20630,4507,6,413,0,'194.106.16.43',1161506980,1,0,1,1,1,0,'','','Te dejo una guia de como hacer portable cualquier programa, esta es la nueva tecnologia que ha surgido a raiz de los sistemas de arranque live en cd/dvd/usb para evitar que el sistema se cargue con programas que cargan el registro y por lo tanto que su arranque se haga cada vez mas lento. Muchos de ellos lo unico que hacen es actualizar el registro en tiempo de ejecucion (si necesitas que se actualice) y lo borran cuando finalizan. Yo ya lo he aplicado sobre todo en entornos de red donde pongo todas las aplicaciones que necesito solo utilizar en algun momento sin tener que cargarlo en el sistema, asi por ejemplo puedes tener de este modo antyspy o antivirus, sin tenerlos instalados (debido a que muchos antivirus entran en problemas con otros programas) o utilidades de configuracion, etc. Piensa en la ventaja que supone este sistema, planteate el siguiente supuesto: un USB con 4 gigas (baratitos no mas de 60€) en el cargas un sistema con solamente lo que quieras que carge (eso quiere decir que le puedes quitar exploradores y demas programas, y poner los programas imprescincibles como por ejemplo un TPV) ese usb lo pones en un usb 2.0 interno (tienes adaptadores o targetas), y le dices a tu bios que arranque el sitema desde el USB y ya tienes un sistema muy compacto de TPV (y rápido). Uno de los problemas que he tenido en los TPV compactos es que los discos duros se calientan mucho y por lo tanto se rompen mucho creo que esto evitara gran parte de los problemas ya que no hara falta discos duros, ademas tengo probado que lo mejor es cambiar los discos duros cada dos o maximo tres años para evitar problemas (en sistemas 24h), por contrario las memorias USB duran toda la vida si se trantan bien ya que no tienen ese componente mecanico de los discos duros, ademas tienes un sin fin de programas que tratan los usb. Ahora estoy realizando pruebas y de momento son muy satisfactorias. Os dejo la guia (dentro estan los programas) y otro link de interes para crear PE (Sistemas Personales).\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.de/files/34984809/Hacerportable.rar\">http://rapidshare.de/files/34984809/Hacerportable.rar</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.nu2.nu/pebuilder/\">http://www.nu2.nu/pebuilder/</a><!-- m --> \n\nMola verdad, espero que sea de utilidad.','',0,'gA==','vfw5ooww',1,0,'',413,0,0),(20631,4638,2,600,0,'84.123.222.86',1161507712,1,0,1,1,1,0,'','Re: Codigo de Barras PDF147','Jose Luis, hasta donde he llegado a consultar lo mejor es hablar con el propietario de la pistola lectora, para saber si soporta ese código. Si es así te proporcionará una librería para que puedas enlazarla con distintos lenguajes. Uno de ellos es Visual Basic y otro C, pero estoy a la espera de que me respondan.\n\nUn saludo\nJuanjo\n\n\n\n\n\n\n\n\n[quote=&quot;JoseLuis&quot;:lmrcl3ls]Hola amigos\n\nHe visto que alguna vez alguien ha puesto ésta pregunta en el foro, pero no encuentro respuestas, ahora necesito yo sobre éste tema, a ver si alguien me ayuda.\n\nNecesito crear un código de barras de unos 250 dígitos alfanuméricos, y claro, si lo hago con barlib con cualquiera de los tipos normales, me voy a un codigo de 2 líneas, por lo tanto creo que necesito el PDF417, y mi pregunta es cómo puedo generarlo en uno de mis listados, es decir en un listado pongo el cliente, y a continuación el código que al leerlo con un scanner me lea un montón de datos que estén en éste código.\n\nPuedo hacerlo con alguna librería five, o con algún programa externo.\n\nGracias y saludos[/quote:lmrcl3ls]','',0,'gA==','lmrcl3ls',1,0,'',600,0,0),(20632,4658,6,456,0,'217.124.40.149',1161508481,1,0,1,1,1,1,'','','Yo hago algo parecido, monto unos cuantos indices. Cuando voy a filtrar, segun los datos que me han introducido elijo el filtro que creo que me va a devolver menor numero de registros despues de hacer un scope.( si tengo indice por fecha e indice por cliente, si quieren filtrar por cliente y fecha, cojo scope de cliente que casi seguro es mas pequeno que por fecha), y sobre el resultado si me quedan campos para filtrar, creo un indice custom. Con el indice custom siempre sera mas rapido para manipular el resultado(browse, listados,...) que no con un filtro. Un filtro evalua el codeblock de filtro por cada registro, con el indice custom, solo una vez al crearlo. \nCada inidice adicional, hace que sea mas lento los procesos de acutlizacion de la tabla, aunque CDX es muy rapido, lo importante es encontrar un buen equilibrio(como todo en la vida). \nEsa es la opinion de un novato(cada dia intento aprender mas, pero todavia me queda mucho).','',0,'gA==','1yhiv33r',1,0,'',456,0,0),(20633,4637,6,456,0,'217.124.40.149',1161508843,1,0,1,1,1,1,'','','Hola Jose Luis,\nme alegra no ser el único al que le parezca interesnate cambiar el metodo Eof.\nAunque en el post puse \"mejor dejarlo tal cual esta\", la verdad es que no pude resistirme a cambiarlo. En el metodo skip no lo deje igual que el tuyo(me faltaba probar con open asincrono), el lunes lprobare tal cual lo tienes tu.\n\nLe he dado un vistazo a tu blog, a los articulos sobre Ado, muy buenos, me estan ayudando para poder empezar a dar mis primieros pasos por Ado.','',0,'gA==','u38spym7',1,0,'',456,0,0),(20634,4661,6,519,0,'83.60.227.9',1161510417,1,0,1,1,1,0,'','','Para cuando estara disponible la creación de autentico header en el twbrowse  ?\n\n   un saludo y gracias','',0,'gA==','1s9qvn75',1,0,'',519,0,0),(20635,4661,6,2,0,'87.218.146.125',1161517374,1,0,1,1,1,1,'','','Está en nuestra lista de pendientes de implementar. Lo antes posible.','',0,'gA==','b326rqmh',1,0,'',2,0,0),(20636,4655,3,6,0,'87.18.215.211',1161519646,1,0,1,1,1,1,'','','Search your hard disk or you Office CD for VBA*.CHM or similar help files.\n\nEMG','',0,'gA==','3datxa7j',1,0,'',6,0,0),(20637,4610,3,6,0,'87.18.215.211',1161526813,1,0,1,1,1,1,'','','This is a much better version using inheritance:\n\n[code:2ex154a7]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define MO_NONE 0\n#define MO_ASC  1\n#define MO_DESC 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    oBrw = TMyWBrowse&#40;&#41;&#58;New&#40; 0, 0, , ,;\n                             &#123; || &#123; TEST -&gt; last, TEST -&gt; first, &quot;&quot; &#125; &#125;,;\n                             &#123; &quot;LAST&quot;, &quot;FIRST&quot;, &quot;&quot; &#125;,;\n                             &#123; 150, 150, 0 &#125; &#41;\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;aOrd = &#123; &#123; || MO_ASC &#125;, &#123; || MO_DESC &#125;, &#123; || MO_NONE &#125;, &#123; || MO_NONE &#125; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL\n\n\nCLASS TMyWBrowse FROM TWBrowse\n\n    DATA aOrd\n\n    METHOD Paint&#40;&#41;\n\nENDCLASS\n\n\nMETHOD Paint&#40;&#41; CLASS TMyWBrowse\n\n    Super&#58;Paint&#40;&#41;\n\n    MARCAORDINE&#40; &#58;&#58;oWnd, &#58;&#58;hDC, Self, &#58;&#58;aOrd &#41;\n\n    RETURN 0\n\n\n#define SM_CYHSCROLL 3\n\n\nSTATIC FUNCTION MARCAORDINE&#40; oDlg, hDC, oBrw, abOrd &#41;\n\n    LOCAL aValues   &#58;= oBrw&#58;aHeaders\n    LOCAL aColSizes &#58;= oBrw&#58;GetColSizes&#40;&#41;\n\n    LOCAL nWidth &#58;= WNDWIDTH&#40; oBrw&#58;hWnd &#41; - IF&#40; oBrw&#58;oVScroll != nil &#46;AND&#46; EVAL&#40; oBrw&#58;bLogicLen &#41; &gt; 1, GETSYSMETRICS&#40; SM_CYHSCROLL &#41; + 3, 0 &#41;\n\n    LOCAL nColStart &#58;= -1\n\n    LOCAL nTop, nLeft, nRight\n\n    LOCAL hGPen, hWPen\n\n    LOCAL i\n\n    hGPen = CREATEPEN&#40; 0, 1, CLR_GRAY &#41;\n    hWPen = CREATEPEN&#40; 0, 1, CLR_WHITE &#41;\n\n    nTop = oBrw&#58;nTop + 5\n\n    FOR i = oBrw&#58;nColPos TO LEN&#40; aValues &#41;\n        nLeft  = nColStart + 1\n        nRight = MIN&#40; nColStart &#58;= &#40; nLeft + aColSizes&#91; i &#93; - 1 &#41;, nWidth &#41;\n\n        IF nLeft &gt; nWidth\n            EXIT\n        ENDIF\n\n        IF i == LEN&#40; aValues &#41;\n           nRight = nWidth\n        ENDIF\n\n        nRight -= 10\n\n        IF EVAL&#40; abOrd&#91; i &#93; &#41; = MO_ASC\n            MOVETO&#40; hDC, nRight, nTop &#41;\n\n            LINETO&#40; hDC, nRight + 6, nTop, hGPen &#41;\n            LINETO&#40; hDC, nRight + 3, nTop + 6, hWPen &#41;\n            LINETO&#40; hDC, nRight, nTop, hGPen &#41;\n        ENDIF\n\n        IF EVAL&#40; abOrd&#91; i &#93; &#41; = MO_DESC\n            MOVETO&#40; hDC, nRight, nTop + 6 &#41;\n\n            LINETO&#40; hDC, nRight + 6, nTop + 6, hGPen &#41;\n            LINETO&#40; hDC, nRight + 3, nTop, hWPen &#41;\n            LINETO&#40; hDC, nRight, nTop + 6, hGPen &#41;\n        ENDIF\n    NEXT\n\n    DELETEOBJECT&#40; hWPen &#41;\n    DELETEOBJECT&#40; hGPen &#41;\n\n    RETURN NIL[/code:2ex154a7]\n\nEMG','',0,'AIA=','2ex154a7',1,0,'',6,0,0),(20638,2935,3,397,0,'201.13.92.164',1161536923,1,0,1,0,1,1,'','','Hi fGamboa\n\nYou can\'t use oActiveX&#058;bOnEvent if used CreateOleObject(). This features return a handle and not a object.\n\nIf use oActiveX = TActiveX():New( oWnd, \"GrFingerX.[b:1nrsjb07]GrFingerXCtrl.1[/b:1nrsjb07]\") the result is better.\n\nI post this code below to help you in database control:\n\nMy ADODB.CH:\n[code:1nrsjb07]\n#command ADO APPEND BLANK  =&gt; oRs&#58;AddNew&#40;&#41;\n#command ADO EDIT          =&gt; oRs&#58;Edit&#40;&#41;\n#command ADO COMMIT        =&gt; oRs&#58;Update&#40;&#41;\n#command ADO SKIP          =&gt; oRs&#58;Move&#40; oRs&#58;AbsolutePosition &#41;\n#command ADO REGLOCK       =&gt; dbNetRegLock&#40; 0 &#41;    ; dbCommitLog&#40;\'M\', PROCNAME&#40;&#41;&#41;\n#command ADO DELETE        =&gt; oRs&#58;Delete&#40;&#41;\n#command ADO REPLACE &lt;f1&gt; WITH &lt;v1&gt; =&gt; oRs&#58;Fields&#40; &lt;&#40;f1&#41;&gt; &#41;&#58;Value &#58;= &lt;v1&gt;\n#command ADO GOTOP         =&gt; oRs&#58;MoveFirst&#40;&#41;\n#command ADO GOBOTTOM      =&gt; oRs&#58;MoveLast&#40;&#41;    \n#command ADORECNO&#40;&#41;        =&gt; oRs&#58;AbsolutePosition \n#command ADOFILE&#40;&lt;tB&gt;&#41;     =&gt; iif&#40;oRs&#58;Table&#40;&lt;tB&gt;&#41;==&lt;tB&gt;,&#46;t&#46;,&#46;f&#46;&#41;\n#command ADO USE           =&gt; oRs&#58;Close&#40;&#41;    \n#command ADO CLOSE         =&gt; oRs&#58;Close&#40;&#41;    \n#command ADO SAVE &lt;CfILE&gt;  =&gt; oRs&#58;Save&#40; &lt;CfILE&gt;, adPersistXML &#41;\n#command ADO EXECUTE &lt;Sql&gt; =&gt; oRs&#58;Open&#40; &lt;Sql&gt;, StrConnection, 1, 3 &#41;\n#command ADO CONNECT ON &lt;StrServer&gt;                               ;\n                    &#91;PORT &lt;StrPort&gt;&#93;                                    ;\n                    &#91;DATABASE &lt;StrDatabase&gt;&#93;                            ;\n                    &#91;USER &lt;StrUserID&gt;&#93;                                  ;\n                    &#91;PASSWORD &lt;StrUserPWD&gt;&#93;                             ;\n                    &#91;OPTIONS &lt;nFlags&gt;&#93;                                  ;\n                     DRIVER &lt;StrDriver&gt;                              =&gt; ;\n                      StrConnection &#58;= &quot;driver=&#123;&quot;+&lt;StrDriver&gt;+&quot;&#125;;database=&quot;+&lt;StrDatabase&gt;+&quot;;server=&quot;+&lt;StrServer&gt;+&quot;;uid=&quot;+&lt;StrUserID&gt;+&quot;;pwd=&quot;+&lt;StrUserPWD&gt;+&quot;;option=35&quot; ;\n                    ; oRs &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;ADODB&#46;Recordset&quot; &#41;      ;\n                    ; oRS&#58;CursorType     &#58;= adOpenStatic      ;\n                    ; oRS&#58;CursorLocation &#58;= adUseClient       ;\n                    ; oRS&#58;LockType       &#58;= adLockPessimistic \n\n/*---- CursorTypeEnum Values ----*/\n#define adOpenForwardOnly 0\n#define adOpenKeyset 1\n#define adOpenDynamic 2\n#define adOpenStatic 3\n\n/*---- LockTypeEnum Values ----*/\n#define adLockReadOnly 1\n#define adLockPessimistic 2\n#define adLockOptimistic 3\n#define adLockBatchOptimistic 4\n\n/*---- CursorLocationEnum Values ----*/\n#define adUseServer 2\n#define adUseClient 3\n\n/*---- DataTypeEnum Values ----*/\n#define adEmpty 0\n#define adTinyInt 16\n#define adSmallInt 2\n#define adInteger 3\n#define adBigInt 20\n#define adUnsignedTinyInt 17\n#define adUnsignedSmallInt 18\n#define adUnsignedInt 19\n#define adUnsignedBigInt 21\n#define adSingle 4\n#define adDouble 5\n#define adCurrency 6\n#define adDecimal 14\n#define adNumeric 131\n#define adBoolean 11\n#define adError 10\n#define adUserDefined 132\n#define adVariant 12\n#define adIDispatch 9\n#define adIUnknown 13\n#define adGUID 72\n#define adDate 7\n#define adDBDate 133\n#define adDBTime 134\n#define adDBTimeStamp 135\n#define adBSTR 8\n#define adChar 129\n#define adVarChar 200\n#define adLongVarChar 201\n#define adWChar 130\n#define adVarWChar 202\n#define adLongVarWChar 203\n#define adBinary 128\n#define adVarBinary 204\n#define adLongVarBinary 205\n#define adChapter 136\n#define adFileTime 64\n#define adPropVariant 138\n#define adVarNumeric 139\n#define adArray &amp;H2000\n\n/*---- GetRowsOptionEnum Values ----*/\n#define adGetRowsRest -1\n\n/*---- PositionEnum Values ----*/\n#define adPosUnknown -1\n#define adPosBOF -2\n#define adPosEOF -3\n\n/*---- BookmarkEnum Values ----*/\n#define adBookmarkCurrent 0\n#define adBookmarkFirst 1\n#define adBookmarkLast 2\n\n/*---- MarshalOptionsEnum Values ----*/\n#define adMarshalAll 0\n#define adMarshalModifiedOnly 1\n\n/*---- AffectEnum Values ----*/\n#define adAffectCurrent 1\n#define adAffectGroup 2\n#define adAffectAllChapters 4\n\n/*---- ResyncEnum Values ----*/\n#define adResyncUnderlyingValues 1\n#define adResyncAllValues 2\n\n/*---- CompareEnum Values ----*/\n#define adCompareLessThan 0\n#define adCompareEqual 1\n#define adCompareGreaterThan 2\n#define adCompareNotEqual 3\n#define adCompareNotComparable 4\n\n/*---- FilterGroupEnum Values ----*/\n#define adFilterNone 0\n#define adFilterPendingRecords 1\n#define adFilterAffectedRecords 2\n#define adFilterFetchedRecords 3\n#define adFilterConflictingRecords 5\n\n/*---- SearchDirectionEnum Values ----*/\n#define adSearchForward 1\n#define adSearchBackward -1\n\n/*---- PersistFormatEnum Values ----*/\n#define adPersistADTG 0\n#define adPersistXML 1\n\n/*---- StringFormatEnum Values ----*/\n#define adClipString 2\n\n/*---- ConnectPromptEnum Values ----*/\n#define adPromptAlways 1\n#define adPromptComplete 2\n#define adPromptCompleteRequired 3\n#define adPromptNever 4\n\n/*---- ConnectModeEnum Values ----*/\n#define adModeUnknown 0\n#define adModeRead 1\n#define adModeWrite 2\n#define adModeReadWrite 3\n#define adModeShareDenyRead 4\n#define adModeShareDenyWrite 8\n\n/*---- EventReasonEnum Values ----*/\n#define adRsnAddNew 1\n#define adRsnDelete 2\n#define adRsnUpdate 3\n#define adRsnUndoUpdate 4\n#define adRsnUndoAddNew 5\n#define adRsnUndoDelete 6\n#define adRsnRequery 7\n#define adRsnResynch 8\n#define adRsnClose 9\n#define adRsnMove 10\n#define adRsnFirstChange 11\n#define adRsnMoveFirst 12\n#define adRsnMoveNext 13\n#define adRsnMovePrevious 14\n#define adRsnMoveLast 15\n\n/*---- SchemaEnum Values ----*/\n#define adSchemaProviderSpecific -1\n#define adSchemaAsserts 0\n#define adSchemaCatalogs 1\n#define adSchemaCharacterSets 2\n#define adSchemaCollations 3\n#define adSchemaColumns 4\n#define adSchemaCheckConstraints 5\n#define adSchemaConstraintColumnUsage 6\n#define adSchemaConstraintTableUsage 7\n#define adSchemaKeyColumnUsage 8\n#define adSchemaReferentialConstraints 9\n#define adSchemaTableConstraints 10\n#define adSchemaColumnsDomainUsage 11\n#define adSchemaIndexes 12\n#define adSchemaColumnPrivileges 13\n#define adSchemaTablePrivileges 14\n#define adSchemaUsagePrivileges 15\n#define adSchemaProcedures 16\n#define adSchemaSchemata 17\n#define adSchemaSQLLanguages 18\n#define adSchemaStatistics 19\n#define adSchemaTables 20\n#define adSchemaTranslations 21\n#define adSchemaProviderTypes 22\n#define adSchemaViews 23\n#define adSchemaViewColumnUsage 24\n#define adSchemaViewTableUsage 25\n#define adSchemaProcedureParameters 26\n#define adSchemaForeignKeys 27\n#define adSchemaPrimaryKeys 28\n#define adSchemaProcedureColumns 29\n#define adSchemaDBInfoKeywords 30\n#define adSchemaDBInfoLiterals 31\n#define adSchemaCubes 32\n#define adSchemaDimensions 33\n#define adSchemaHierarchies 34\n#define adSchemaLevels 35\n#define adSchemaMeasures 36\n#define adSchemaProperties 37\n#define adSchemaMembers 38\n#define adSchemaTrustees 39\n\n/*---- FieldStatusEnum Values ----*/\n#define adFieldOK 0\n#define adFieldCantConvertValue 2\n#define adFieldIsNull 3\n#define adFieldTruncated 4\n#define adFieldSignMismatch 5\n#define adFieldDataOverflow 6\n#define adFieldCantCreate 7\n#define adFieldUnavailable 8\n#define adFieldPermissionDenied 9\n#define adFieldIntegrityViolation 10\n#define adFieldSchemaViolation 11\n#define adFieldBadStatus 12\n#define adFieldDefault 13\n#define adFieldIgnore 15\n#define adFieldDoesNotExist 16\n#define adFieldInvalidURL 17\n#define adFieldResourceLocked 18\n#define adFieldResourceExists 19\n#define adFieldCannotComplete 20\n#define adFieldVolumeNotFound 21\n#define adFieldOutOfSpace 22\n#define adFieldCannotDeleteSource 23\n#define adFieldReadOnly 24\n#define adFieldResourceOutOfScope 25\n#define adFieldAlreadyExists 26\n#define adFieldPendingInsert &amp;H10000\n#define adFieldPendingDelete &amp;H20000\n#define adFieldPendingChange &amp;H40000\n#define adFieldPendingUnknown &amp;H80000\n#define adFieldPendingUnknownDelete &amp;H100000\n\n/*---- SeekEnum Values ----*/\n#define adSeekFirstEQ &amp;H1\n#define adSeekLastEQ &amp;H2\n#define adSeekAfterEQ &amp;H4\n#define adSeekAfter &amp;H8\n#define adSeekBeforeEQ &amp;H10\n#define adSeekBefore &amp;H20\n\n/*---- ADCPROP_UPDATECRITERIA_ENUM Values ----*/\n#define adCriteriaKey 0\n#define adCriteriaAllCols 1\n#define adCriteriaUpdCols 2\n#define adCriteriaTimeStamp 3\n\n/*---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ----*/\n#define adPriorityLowest 1\n#define adPriorityBelowNormal 2\n#define adPriorityNormal 3\n#define adPriorityAboveNormal 4\n#define adPriorityHighest 5\n\n/*---- ADCPROP_AUTORECALC_ENUM Values ----*/\n#define adRecalcUpFront 0\n#define adRecalcAlways 1\n\n/*---- ADCPROP_UPDATERESYNC_ENUM Values ----*/\n\n/*---- ADCPROP_UPDATERESYNC_ENUM Values ----*/\n\n/*---- MoveRecordOptionsEnum Values ----*/\n#define adMoveUnspecified -1\n#define adMoveOverWrite 1\n#define adMoveDontUpdateLinks 2\n#define adMoveAllowEmulation 4\n\n/*---- CopyRecordOptionsEnum Values ----*/\n#define adCopyUnspecified -1\n#define adCopyOverWrite 1\n#define adCopyAllowEmulation 4\n#define adCopyNonRecursive 2\n\n/*---- StreamTypeEnum Values ----*/\n#define adTypeBinary 1\n#define adTypeText 2\n\n/*---- LineSeparatorEnum Values ----*/\n#define adLF 10\n#define adCR 13\n#define adCRLF -1\n\n/*---- StreamOpenOptionsEnum Values ----*/\n#define adOpenStreamUnspecified -1\n#define adOpenStreamAsync 1\n#define adOpenStreamFromRecord 4\n\n/*---- StreamWriteEnum Values ----*/\n#define adWriteChar 0\n#define adWriteLine 1\n\n/*---- SaveOptionsEnum Values ----*/\n#define adSaveCreateNotExist 1\n#define adSaveCreateOverWrite 2\n\n/*---- FieldEnum Values ----*/\n#define adDefaultStream -1\n#define adRecordURL -2\n\n/*---- StreamReadEnum Values ----*/\n#define adReadAll -1\n#define adReadLine -2\n\n/*---- RecordTypeEnum Values ----*/\n#define adSimpleRecord 0\n#define adCollectionRecord 1\n#define adStructDoc 2\n[/code:1nrsjb07]\n\nMy sample database:\n[code:1nrsjb07]\n/*\n *\n * Mais informacoes sobre ADO em \n * http&#58;//www&#46;microsoft&#46;com/brasil/technet/Colunas/scriptcenter/resources/officetips/nov05/tips1103&#46;mspx\n *\n */\n#include &quot;Fivewin&#46;ch&quot; \n#include &quot;adodb&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n    PUBLIC oRs\n\n    StrDatabase   &#58;= &#91;DBMRDELIVERY&#93;\n    StrServer     &#58;= &#91;127&#46;0&#46;0&#46;1&#93;\n    StrPort       &#58;= 3306\n    StrUserID     &#58;= &#91;root&#93;\n    StrUserPWD    &#58;= &#91;&#93;\n    StrDriver     &#58;= &quot;MySQL ODBC 3&#46;51 Driver&quot;\n\n    StrTable      &#58;= &#91;TBCLIENTE&#93;\n    StrField      &#58;= &#91;ddd&#93;\n    StrField2     &#58;= &#91;nome&#93;\n    StrWhere      &#58;= StrField+&#91;=&quot;034&quot;&#93;\n\n    StrSqlCommand &#58;= &#91;SELECT * FROM &#93; + StrTable + &#91; WHERE &#93; + StrWhere\n\n    ADO CONNECT ON StrServer ;\n                PORT StrPort ;\n                DATABASE StrDatabase ;\n		USER StrUserID ;\n                PASSWORD StrUserPWD ;\n                OPTIONS 35 ;\n		DRIVER StrDriver\n\n    ADO EXECUTE StrSqlCommand\n\n    ADO GOTOP\n\n    Browse&#40; oRs &#41;\n\n    ADO CLOSE\n\n    RETURN NIL\n\nfunction WBrowseRecordSet&#40; oRs, cStrField &#41; \n    LOCAL oDlg, oBrw, nRec \n    DEFINE DIALOG oDlg SIZE 300, 300 \n    @ 0, 0 LISTBOX oBrw FIELDS oRs&#58;Fields&#40; &quot;nome&quot; &#41;&#58;Value ; \n           HEADERS &quot;Nome do Cliente&quot; ;\n           FIELDSIZES 300 ;\n           ON RIGHT CLICK &#40; nRec &#58;= oRs&#58;AbsolutePosition,; \n                            oBrw&#58;Report&#40; &quot;TWBrowse report&quot;, &#46;T&#46; &#41;,; \n                            oRs&#58;MoveFirst&#40;&#41;,; \n                            oRs&#58;Move&#40; nRec - 1 &#41; &#41; \n    oBrw&#58;bLDblClick&#58;= &#123; |nRow,nCol| MsgStop&#40; oRs&#58;Fields&#40; &quot;BAIRRO&quot; &#41;&#58;Value &#41; &#125;\n    oBrw&#58;nHeaderStyle  &#58;= 2\n    oBrw&#58;nHeaderHeight &#58;= 20\n    oBrw&#58;nLineHeight   &#58;= 15\n    oBrw&#58;bLogicLen &#58;= &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    &#58;= &#123; || oRs&#58;MoveFirst&#40;&#41; &#125; \n    oBrw&#58;bGoBottom &#58;= &#123; || oRs&#58;MoveLast&#40;&#41; &#125; \n    oBrw&#58;bSkip     &#58;= &#123; | nSkip | ADOSkipper&#40; oRs, nSkip &#41; &#125; \n    oBrw&#58;cAlias    &#58;= &quot;ARRAY&quot; \n    ACTIVATE DIALOG oDlg; \n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;; \n             CENTER \n    RETURN NIL\n\nfunction browse&#40;oRs, bPrc, bAdc, bAlt, bExc, bImp, bSai&#41;\n    LOCAL oDlg, oBrw, nRec \n    LOCAL aData &#58;= &#123;&#125;\n    LOCAL nFor\n    LOCAL oLbx, cItem\n    LOCAL btnPrc, btnAdc, btnAlt, btnExc, btnImp, btnsai\n\n    DEFAULT bPrc    &#58;= &#123; || RecPrc&#40; oLbx &#41; &#125;,;\n            bAdc    &#58;= &#123; || RecInc&#40; oLbx &#41; &#125;,;\n            bAlt    &#58;= &#123; || RecAlt&#40; oLbx &#41; &#125;,;\n            bExc    &#58;= &#123; || RecExc&#40; oLbx &#41; &#125;,;\n            bImp    &#58;= &#123; || RecImp&#40; oLbx &#41; &#125;,;\n            bSai    &#58;= &#123; || oDlg2&#58;End&#40;&#41; &#125;\n\n    DEFINE DIALOG oDlg2 From 0,0 To 800,1020 Pixel TITLE &quot; ListBox da Tabela &quot;\n    @ 05,15 listbox oBrw Fields oRs&#58;Fields&#40; &quot;nome&quot; &#41;&#58;Value, oRs&#58;Fields&#40; &quot;fone&quot; &#41;&#58;Value;\n             headers &quot;Nome&quot;,&quot;Telefone&quot;;\n             fieldsizes 250,100   ;\n             pixel size 400,300 of odlg2\n\n    //oBrw&#58;bLDblClick&#58;= &#123; |nRow,nCol| MsgStop&#40; oRs&#58;Fields&#40; &quot;apelido&quot; &#41;&#58;Value &#41; &#125;\n    oBrw&#58;nHeaderStyle  &#58;= 2\n    oBrw&#58;nHeaderHeight &#58;= 20\n    oBrw&#58;nLineHeight   &#58;= 15\n    oBrw&#58;bLogicLen &#58;= &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    &#58;= &#123; || oRs&#58;MoveFirst&#40;&#41; &#125; \n    oBrw&#58;bGoBottom &#58;= &#123; || oRs&#58;MoveLast&#40;&#41; &#125; \n    oBrw&#58;bSkip     &#58;= &#123; | nSkip | ADOSkipper&#40; oRs, nSkip &#41; &#125; \n    oBrw&#58;cAlias    &#58;= &quot;ARRAY&quot; \n\n    @ 18&#46;7 , 05 button btnprc prompt &quot;&amp;Procurar&quot;  of oDlg2 size 40,12 Action RecPrc&#40;oBrw&#41;\n    @ 18&#46;7 , 15 button btnadc prompt &quot;&amp;Adicionar&quot; of oDlg2 size 40,12 Action RecInc&#40;oBrw&#41;\n    @ 18&#46;7 , 25 button btnalt prompt &quot;A&amp;lterar&quot;   of oDlg2 size 40,12 Action RecAlt&#40;oBrw&#41;\n    @ 18&#46;7 , 35 button btnexc prompt &quot;&amp;Excluir&quot;   of oDlg2 size 40,12 Action RecExc&#40;oBrw&#41;\n    @ 18&#46;7 , 45 button btnimp prompt &quot;&amp;Imprimir&quot;  of oDlg2 size 40,12 \n    @ 18&#46;7 , 55 button btnsai prompt &quot;&amp;Sair&quot;      of oDlg2 size 40,12 Action oDlg2&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg2 //; \n             //ON INIT oDlg2&#58;SetControl&#40; oBrw &#41;; \n             //CENTER \n    RETURN NIL\n\nfunction ADOSkipper&#40; oRs, nSkip &#41; \n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition \n    oRs&#58;Move&#40; nSkip &#41; \n    IF oRs&#58;EOF; oRs&#58;MoveLast&#40;&#41;; ENDIF \n    IF oRs&#58;BOF; oRs&#58;MoveFirst&#40;&#41;; ENDIF \n    RETURN oRs&#58;AbsolutePosition - nRec\n\n//-----------------------------------------------------------\nstatic function  RecPrc&#40;oLbx&#41;\n    Local odlg1\n    Local cCodigo&#58;=0\n    Local cSair&#58;=&quot; &quot;\n    Local sql\n    DEFINE DIALOG oDlg1 From 0,0 To 160,250  PIXEL;\n           TITLE &quot; Procura na Tabela em Access &quot; \n    DEFINE FONT oFont NAME &quot;FIXEDSYS&quot; SIZE 10, -10    &amp;&amp; Use a Nonproportional font\n    SET FONT OF oDlg1 TO oFont                         &amp;&amp; so characters line up in Says\n    @ 02,05 say &quot;Codigo &#58; &quot; OF oDlg1 \n    @ 02&#46;2,10 get cCodigo   OF oDlg1 picture &quot;9999&quot; size 20,10 \n    @ 02&#46;7 , 10 button &quot;Procurar&quot;  of oDlg1 size 40,12 action &#40;cSair&#58;=&quot;*&quot;,oDlg1&#58;End&#40;&#41;&#41;\n    ACTIVATE DIALOG oDlg1 centered \n    if cSair=&quot;*&quot;\n       //locate for &#40;odbf&#58;cAlias&#41;-&gt;field_0001 = cCodigo\n       criterio = &quot;idpessoa Like \'&quot; + cCodigo + &quot;%\'&quot;\n       //oRs&#58;MoveFirst&#40;&#41;\n       //oRs&#58;Find criterio, 0, adSearchFoward\n       if eof&#40;&#41;\n          msgAlert&#40;&quot;NÆo encontrado !!!&quot;&#41;\n          go top\n       endif\n       oLbx&#58;Refresh&#40;&#41;\n    endif\n    return nil\n\n//-----------------------------------------------------------\nstatic function  RecInc&#40;oLbx&#41;\n    LOCAL odlg3\n    LOCAL cNome     &#58;= space&#40;40&#41;\n    LOCAL cTelefone &#58;= space&#40;14&#41;\n    LOCAL cEndereco &#58;= space&#40;45&#41;\n    LOCAL cSair     &#58;= &quot; &quot;\n    DEFINE DIALOG oDlg3 From 0,0 To 230,500 PIXEL TITLE &quot; Inclusao na Tabela em Access &quot; \n    DEFINE FONT oFont NAME &quot;FIXEDSYS&quot; SIZE 10, -10    &amp;&amp; Use a Nonproportional font\n    SET FONT OF oDlg3 TO oFont                         &amp;&amp; so characters line up in Says\n    @ 02,05 say &quot;Nome_____&#58; &quot; OF oDlg3 \n    @ 03,05 say &quot;Telefone_&#58; &quot; OF oDlg3\n    @ 04,05 say &quot;Endereco_&#58; &quot; OF oDlg3 \n    //go bottom\n    //cCodigo &#58;= odbf&#58;au_id+1\n    @ 02&#46;2,10 get cNome     OF oDlg3 picture &quot;@!&quot; size 150,10\n    @ 03&#46;3,10 get cTelefone OF oDlg3 picture &quot;&#40;99&#41;9999-9999&quot; size 100,10   valid !empty&#40;cNome&#41;\n    @ 04&#46;4,10 get cEndereco OF oDlg3 picture &quot;@!&quot; size 150,10\n    @ 04&#46;7 , 15 button &quot;Salvar&quot;   of oDlg3 size 40,12 action &#40;cSair&#58;=&quot;*&quot;,oDlg3&#58;End&#40;&#41;&#41;\n    ACTIVATE DIALOG oDlg3 centered \n    if cSair=&quot;*&quot;\n       ADO APPEND BLANK\n       ADO REPLACE nome        WITH cNome\n       ADO REPLACE fone        WITH cTelefone\n       ADO REPLACE endereco    WITH cEndereco\n       ADO COMMIT \n       oLbx&#58;Refresh&#40;&#41;\n       //oLbx&#58;UpStable&#40;&#41;\n    endif\n    return nil\n\n//-----------------------------------------------------------\nstatic function  RecExc&#40;oLbx&#41;\n    if MsgYesNo&#40; &quot;Excluir este Registro ?&quot;, &quot;Por Favor, confirme&quot; &#41;\n       ADO DELETE\n       ADO SKIP\n       oLbx&#58;Refresh&#40;&#41;\n       //oLbx&#58;UpStable&#40;&#41;\n    endif\n    return nil\n\n//-----------------------------------------------------------\nstatic function  RecAlt&#40;oLbx&#41;\n    LOCAL odlg3\n    LOCAL cNome     &#58;= oRs&#58;Fields&#40; &quot;nome&quot; &#41;&#58;Value\n    LOCAL cTelefone &#58;= oRs&#58;Fields&#40; &quot;fone&quot; &#41;&#58;Value\n    LOCAL cEstado   &#58;= oRs&#58;Fields&#40; &quot;endereco&quot; &#41;&#58;Value\n    LOCAL cSair     &#58;= &quot; &quot;\n    DEFINE DIALOG oDlg3 From 0,0 To 230,500 PIXEL TITLE &quot; Inclusao na Tabela em Access &quot; \n    DEFINE FONT oFont NAME &quot;FIXEDSYS&quot; SIZE 10, -10    &amp;&amp; Use a Nonproportional font\n    SET FONT OF oDlg3 TO oFont                         &amp;&amp; so characters line up in Says\n    @ 02,05 say &quot;Nome_____&#58; &quot; OF oDlg3 \n    @ 03,05 say &quot;Telefone_&#58; &quot; OF oDlg3\n    @ 04,05 say &quot;Endereco_&#58; &quot; OF oDlg3 \n    //go bottom\n    //cCodigo &#58;= odbf&#58;au_id+1\n    @ 02&#46;2,10 get cNome     OF oDlg3 picture &quot;@!&quot; size 150,10\n    @ 03&#46;3,10 get cTelefone OF oDlg3 picture &quot;&#40;99&#41;9999-9999&quot; size 100,10   valid !empty&#40;cNome&#41;\n    @ 04&#46;4,10 get cEndereco OF oDlg3 picture &quot;@!&quot; size 150,10\n    @ 04&#46;7 , 15 button &quot;Salvar&quot;   of oDlg3 size 40,12 action &#40;cSair&#58;=&quot;*&quot;,oDlg3&#58;End&#40;&#41;&#41;\n    ACTIVATE DIALOG oDlg3 centered \n    if cSair=&quot;*&quot;\n       ADO APPEND BLANK\n       ADO REPLACE nome        WITH cNome\n       ADO REPLACE fone        WITH cTelefone\n       ADO REPLACE endereco    WITH cEndereco\n       ADO COMMIT \n       oLbx&#58;Refresh&#40;&#41;\n       //oLbx&#58;UpStable&#40;&#41;\n    endif\n    return nil\n\n//-----------------------------------------------------------\nstatic function RecImp&#40; oLbx &#41;\n/*\n   local oRpt\n   local n\n   local cAlias &#58;= If&#40; oLbx != nil, oLbx&#58;cAlias, Alias&#40;&#41; &#41;\n\n   REPORT oRpt TITLE &quot;Report&#58; &quot; + cAlias ;\n      HEADER &quot;Date&#58; &quot; + DToC&#40; Date&#40;&#41; &#41; + &quot;, Time&#58; &quot; + Time&#40;&#41; ;\n      FOOTER &quot;Page&#58; &quot; + Str&#40; oRpt&#58;nPage, 3 &#41; ;\n      PREVIEW\n\n      if Empty&#40; oRpt &#41; &#46;or&#46; oRpt&#58;oDevice&#58;hDC == 0\n         return nil\n      endif\n\n      for n = 1 to FCount&#40;&#41;\n         oRpt&#58;AddColumn&#40; TrColumn&#40;&#41;&#58;New&#40; &#123; FInfo1&#40; cAlias, n &#41; &#125;,,;\n                     &#123; FInfo2&#40; cAlias, n &#41; &#125;,,,,,,,,,, oRpt &#41; &#41;\n      next\n\n   ENDREPORT\n\n   ACTIVATE REPORT oRpt\n\n   GO TOP\n*/\nreturn nil\n\n//--------------------------------------------\nstatic function FInfo1&#40; cAlias, n &#41;\nreturn &#123; || &#40; cAlias &#41;-&gt;&#40; FieldName&#40; n &#41; &#41; &#125;\n\n//-----------------------------------------------------------\nstatic function FInfo2&#40; cAlias, n &#41;\nreturn &#123; || &#40; cAlias &#41;-&gt;&#40; FieldGet&#40; n &#41; &#41; &#125;\n\nFunction DbfDbt&#40;&#41;\nReturn Nil\n[/code:1nrsjb07]\n\nThis samples works with MySQL, but you can modify to work with Access.\n\nNo i sent in private, i prefer to share this information.\n\nGood work.','',0,'QIA=','1nrsjb07',1,0,'',397,0,0),(20639,4662,2,774,0,'200.72.191.167',1161539206,1,0,1,1,1,1,'','','Algun Ejemplo URGENTE','',0,'QIA=','spm83pgi',1,0,'',774,0,0),(20640,4662,2,2,0,'87.218.146.125',1161551058,1,0,1,1,1,1,'','','Pon una copia de tu pregunta en la sección de FWH, posiblemente puedan orientarte.\n\nNosotros no sabemos como ayudarte pues TSBrowse no es estandard de FWH y no estamos familiarizados con él.','',0,'QIA=','g1sy9qgn',1,0,'',2,0,0),(20641,4651,3,281,0,'24.78.163.16',1161551147,1,0,1,1,1,1,'','','Hello Antonio.\n\nThank you.\n\n..','',0,'QIA=','1hkotqqm',1,1161640106,'',281,2,0),(20643,4610,3,303,0,'72.199.41.171',1161554597,1,0,1,1,1,0,'','','Enrico,\n\nMay I ask why did you subclass then put all the code in a static function?\n\nWouldn\'t it be better to put all the code in the new Paint method?\n\nJames','',0,'QIA=','11ilj0ms',1,0,'',303,0,0),(20644,4664,6,774,0,'200.72.191.167',1161555090,1,0,1,1,1,1,'','ARRAY EN BROWSE ( TSBROWSE)','Alguien me podria explicar como usar BROWSE con ARRAY, \n\nyo uso TSBROWSE,, ahi defino con ADD COLUMN TO Obrw ARRAY ELEMENT \n\nalgun ejemplo util \n\nGRACIAS','',0,'QIA=','1hgh84lj',1,0,'',774,0,0),(20645,4663,6,49,0,'62.13.172.78',1161556871,1,0,1,1,1,1,'','','grazias, Antonio\nPuedes hacer una pequeña muestra...\ndonde puedo encontrar una muestra con scrollbar\n\n\nSoy hago un curso de Lengua española','',0,'QIA=','3bjfb3w5',1,0,'',49,0,0),(20646,4610,3,6,0,'87.18.215.211',1161556925,1,0,1,1,1,1,'','','Yes, it was just an experiment.\n\nEMG','',0,'QIA=','29xwu0vs',1,0,'',6,0,0),(20647,4665,3,49,0,'62.13.172.78',1161559182,1,0,1,1,1,1,'','A window with a metafile','I want create a metafile into a window but it not found oDevice and nHorzRes() and nVertRes()\n\n\nHow I can create it on a window ?\n\nthis my test \n\n[code:3ouhf57d]\nFunction test&#40;&#41;\nLocal oWnd,oTest\n\nDEFINE WINDOW oWnd COLOR CLR_BLACK, CLR_HGRAY ;\n VSCROLL HSCROLL\n\n oTest&#58;=TMetaFile&#40;&#41;&#58;New&#40; 0,0,0,0,&quot;&quot;,;\n                  oWnd,CLR_BLACK,CLR_WHITE,oDevice&#58;nHorzRes&#40;&#41;,;\n                  oDevice&#58;nVertRes&#40;&#41; &#41;\n\nACTIVATE WINDOW oWnd\n[/code:3ouhf57d]','',0,'AIA=','3ouhf57d',1,0,'',49,0,0),(20648,4658,6,53,0,'189.139.27.173',1161562908,1,0,1,1,1,1,'','','Paco:\n\nPor no dejar podrías probar sin tener que hacer ningun SCOPE ni FILTER, por ejemplo si quiero leer el detalle de una factura cuyo índice esta formado por dos campos DET_FAC + DET_PRO  (Número de factura y código del producto facturado) hago lo siguiente:\n\n(cDetFac)-&gt;(DBSEEK((cHdrFac)HDR_FAC))\n// El puntero se coloca en el primer registro del detalle de la factura\nDO WHILE (cDetFac)-&gt;(! EOF()) .AND.;\n     (cDetFac)-&gt;DET_FAC == (cHdrFac)-&gt;HDR_FAC\n      .....\n      .....        // Resto del código para listar el detalle\n      .....  \n      (cDetFac)-&gt;(DBSKIP())\nENDDO\n\nEvidentemente esto no te libera de tener los TAG necesarios, pero como bien explicó el Master René, eso no es mayor problema.\n\nUn Abrazo, Armando','',0,'AIA=','37f9syhl',1,0,'',53,0,0),(20649,4666,6,53,0,'189.139.27.173',1161563199,1,0,1,1,1,1,'','Un ejmplo con TXBrowse','Amigos:\n\nAlguna alma caritativa que tenga un ejemplo de Txbrowse con adición de nuevos registros y la quiera compartir ????\n\nHe visto el ejemplo que viene con FWH pero no encuentro cómo agregar un nuevo registro a la DBF.\n\nMuy agradecido, Armando','',0,'AIA=','1jdbe06k',1,0,'',53,0,0),(20650,4664,6,396,0,'200.71.170.1',1161566686,1,0,1,1,1,1,'','','te envie algo a tu privado, espero te ayude, es de ayuda de otros colegas.','',0,'AIA=','1t8ir688',1,0,'',396,0,0),(20651,4651,3,281,0,'24.78.163.16',1161568416,1,0,1,1,1,1,'','','Hello Mr. Antonio\n\nThank you for answer my questions.\n\n  1. Ex.1 code is available.\n  2. Ex.2 code is not available.\n\nEx.1 (oClient:bWrite) is working.\noClient:bWrite := { | oClient | OnConnect( oClient ) } &lt;- Here\n\nEx.2 (oClient:bConnect) is not working. Why it does not work ?\noClient:bConnect := { | oClient | OnConnect( oClient ) }\nClient does not have METHOD of bConnect ?\n\n-------------------------------------------------------------------------------------\n  1. Ex.1 code is available.\n-------------------------------------------------------------------------------------\n\nEX 1]\n\n[code:38njv9g8]\noSocket &#58;= TSocket&#40;&#41;&#58;New&#40; 8000 &#41; \noSocket&#58;cLogFile &#58;= &quot;c&#58;\\tcpip&#46;txt&quot;\noSocket&#58;lDebug &#58;= &#46;t&#46;\n\noSocket&#58;bAccept &#58;= &#123; | oSocket | ;\n               oClient &#58;= TSocket&#40;&#41;&#58;Accept&#40; oSocket&#58;nSocket &#41;,;\n               oClient&#58;Cargo &#58;= ST_COMMAND,;\n               oClient&#58;bRead &#58;= &#123; | oSocket | OnRead1&#40; oSocket &#41; &#125;,;\n               oClient&#58;bWrite &#58;= &#123; | oClient | OnConnect&#40; oClient &#41; &#125;,; &lt;- Here\n               oClient&#58;bClose &#58;= &#123; | oSocket | OnClose1&#40; oSocket &#41; &#125; &#125;\n\noSocket&#58;Listen&#40;&#41;\n\n//-----------------------------------------------------------------------------------\nFUNC OnConnect&#40;oClient&#41;\noField&#91;01&#93;&#58;Append&#40; time&#40;&#41;+ str&#40;oClient&#58;nSocket,5&#41; + &quot; &#58; Client Connect&#46;&#46;&#46;&quot; + CRLF, 1&#41;\nRETU NIL\n\n[/code:38njv9g8]\n\n[View \'C:\\tcpip.txt\' Code]\n\n10/23/06 09:59:28: Accept	Socket handle:      1892	\n10/23/06 09:59:28: Write	Socket handle:      1860	\n10/23/06 09:59:28: Write	Socket handle:      1860	\n\n\n\n-------------------------------------------------------------------------------------\n   2. Ex.2 code is not available.\n-------------------------------------------------------------------------------------\n\nEX 2]\n\n[code:38njv9g8]\noSocket &#58;= TSocket&#40;&#41;&#58;New&#40; 8000 &#41; \noSocket&#58;cLogFile &#58;= &quot;c&#58;\\tcpip&#46;txt&quot;\noSocket&#58;lDebug &#58;= &#46;t&#46;\n\noSocket&#58;bAccept &#58;= &#123; | oSocket | ;\n                       oClient &#58;= TSocket&#40;&#41;&#58;Accept&#40; oSocket&#58;nSocket &#41;,;\n                       oClient&#58;Cargo &#58;= ST_COMMAND,;\n                       oClient&#58;bRead &#58;= &#123; | oSocket | OnRead1&#40; oSocket &#41; &#125;,;\n                       oClient&#58;bConnect &#58;= &#123; | oClient | OnConnect&#40; oClient &#41; &#125;,; &lt;- Here\n                       oClient&#58;bClose &#58;= &#123; | oSocket | OnClose1&#40; oSocket &#41; &#125; &#125;\n\noSocket&#58;Listen&#40;&#41;\n\n//-----------------------------------------------------------------------------------\nFUNC OnConnect&#40;oClient&#41;\noField&#91;01&#93;&#58;Append&#40; time&#40;&#41;+ str&#40;oClient&#58;nSocket,5&#41; + &quot; &#58; Client Connect&#46;&#46;&#46;&quot; + CRLF, 1&#41;\nRETU NIL\n[/code:38njv9g8]\n\n\nyunbg.','',0,'AIA=','38njv9g8',1,0,'',281,0,0),(20652,4667,1,379,0,'59.167.220.3',1161574199,1,0,1,1,1,0,'','Character Set','How does one store and then display characters like ô in DBF files?????\n\nBy the Way, I am reading this in from a txt file on disk.','',0,'AIA=','3t39t4c2',1,0,'',379,0,0),(20653,4646,20,89,0,'213.21.136.60',1161586970,1,0,1,1,1,0,'','','Enrico ho risolto, \nera un problema con la versione di xharbour che uso \n\ngrazie','',0,'AIA=','3ua5w0km',1,0,'',89,0,0),(20654,4646,20,6,0,'87.3.212.190',1161587565,1,0,1,1,1,1,'','','Benissimo.\n\nEMG','',0,'AIA=','11rzpjtf',1,0,'',6,0,0),(20655,4668,3,49,0,'213.82.134.66',1161603347,1,0,1,1,1,1,'','TO Antonio','I made a personal control modiying Tabs class to show an object on a window\nNow I wanted  the final user must insert  a new control after the previous control like one line of a listbox \nI want also the user can delete one line ( Control) or many lines( controls)\n\nI not found a methos ADD into tabs class\nHave you a small sample to make it ?\n\nHow I can make it ?\n\n---------------------------','',0,'AIA=','20a1xf8o',1,0,'',49,0,0),(20656,4669,6,28,0,'213.27.201.254',1161604290,1,0,1,1,1,0,'','Objetos y demás zarandajas','Hola a todos:\n\nA ver si alguien me puede decir como se podría hacer esto:\n\n[code:l57877m2]\n\nlocal o &#58;= CString&#40;&#41;&#58;New&#40; &quot;Hola que tal estas&quot; &#41;\n\n? o - &quot;que tal &quot; ---&gt; &quot;Hola estas&quot;\n\n\nCLASS CString\n\n      DATA cBuffer\n\n      METHOD New&#40; cBuffer &#41; CONSTRUCTOR\n      METHOD Menos&#40; cAux &#41;   OPERATOR &quot;-&quot;\n\nENDCLASS\n\nMETHOD New&#40; cBuffer &#41; CLASS CString\n\n  &#58;&#58;cBuffer &#58;= cBuffer\n\nreturn self\n\n\nMETHOD Menos&#40; cAux &#41; CLASS CString\n\nreturn strtran&#40; &#58;&#58;cBuffer, cAux, &quot;&quot; &#41;\n[/code:l57877m2]\n\n\ny que en vez de poner o:cBuffer - \"que tal \", \npusiera \"o\" y que apunte a cBuffer.\n\nUn saludo\n\nPaco García','',0,'AIA=','l57877m2',1,0,'',28,0,0),(20657,4664,6,264,0,'200.91.3.10',1161605461,1,0,1,1,1,1,'','','Asi lo tengo yo\nSaludos\n\n[code:25jo9lws]\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;CreateFromResource&#40; 100 &#41;\n\n   oBrw&#58;SetArray&#40; aDatos, &#46;t&#46; &#41;  // &#46;t&#46; para que haga sort de los datos\n\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader &#58;= &quot;TD&quot;\n   oBrw&#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= 0    // 0=izq  1=der\n\n   oBrw&#58;aCols&#91;2&#93;&#58;cHeader &#58;= &quot;#Número&quot;\n   oBrw&#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= 0\n\n   oBrw&#58;aCols&#91;3&#93;&#58;cHeader &#58;= &quot;F&#46;Emisión&quot;\n   oBrw&#58;aCols&#91;3&#93;&#58;nDataStrAlign &#58;= 0\n\n   oBrw&#58;aCols&#91;4&#93;&#58;cHeader &#58;= &quot;F&#46;Ult&#46;Venc&#46;&quot;\n   oBrw&#58;aCols&#91;4&#93;&#58;nDataStrAlign &#58;= 0\n\n   oBrw&#58;aCols&#91;5&#93;&#58;cHeader &#58;= &quot;Mo&#46;&quot;\n   oBrw&#58;aCols&#91;5&#93;&#58;nDataStrAlign &#58;= 0\n\n   oBrw&#58;aCols&#91;6&#93;&#58;cHeader &#58;= &quot;V&#46;Bruto&quot;\n   oBrw&#58;aCols&#91;6&#93;&#58;nDataStrAlign &#58;= 1\n\n   oBrw&#58;aCols&#91;7&#93;&#58;cHeader &#58;= &quot;Saldo&quot;\n   oBrw&#58;aCols&#91;7&#93;&#58;nDataStrAlign &#58;= 1\n\n   oBrw&#58;aCols&#91;8&#93;&#58;cHeader &#58;= &quot;Tasa&quot;\n   oBrw&#58;aCols&#91;8&#93;&#58;nDataStrAlign &#58;= 1\n\n   oBrw&#58;aCols&#91;9&#93;&#58;cHeader &#58;= &quot;ID&quot;\n   oBrw&#58;aCols&#91;9&#93;&#58;nDataStrAlign &#58;= 1\n\n   oBrw&#58;lHScroll &#58;= &#46;T&#46;\n   oBrw&#58;lVScroll &#58;= &#46;T&#46;\n\n   oBrw&#58;nRowDividerStyle &#58;= 4\n   oBrw&#58;nColDividerStyle &#58;= 4\n   oBrw&#58;nMarqueeStyle    &#58;= 5\n   oBrw&#58;lRecordSelector  &#58;= &#46;f&#46;\n\n[/code:25jo9lws]','',0,'AIA=','25jo9lws',1,0,'',264,0,0),(20658,4670,6,294,0,'201.250.193.212',1161605692,1,0,1,1,1,1,'','Consulta sobre TSBUTTON','Hola Gente:\nEstoy usando la libreria TSBUTTON junto con TSBROWSE. Los botones tienen un PROMPT y cuando cierro la ventana y la vuelvo a abrir, me cambia los fonts del DIALOG y de los prompt de los botones. Alguien sabe que puede ser.\nDesde ya muchas gracias.','',0,'AIA=','1ln7p2vg',1,0,'',294,0,0),(20659,4671,6,362,0,'200.168.52.156',1161608959,1,0,1,1,1,1,'','CAMBIAR COLOR DEL BUTTON ÉS POSIBLE?','Antonio... Buenas.\n\nComo puedo hacer, para CAMBIAR EL COLOR DEL BUTTON??','',0,'AIA=','rwwqy6gm',1,0,'',362,0,0),(20660,4631,4,18,0,'200.67.188.236',1161611080,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:16ty1hru]Vikthor,\n\nWe are going to review it asap,[/quote:16ty1hru]\n\nMany Thanks Antonio','',0,'gA==','16ty1hru',1,0,'',18,0,0),(20661,4672,3,31,0,'89.190.104.93',1161613284,1,0,1,1,1,1,'','Regional &amp; language options ...','Hi !\n\n  How to detect from system what settings are for decimal symbol and digit grouping ? Any DLL or registry call ? It\'s some problem with other programs with that , so I\'ll be thankfull for any help .\n\n  With best regards !','',0,'gA==','160waoec',1,0,'',31,0,0),(20663,4664,6,496,0,'157.100.180.226',1161621232,1,0,1,1,1,0,'','','Yo uso el wbrowse de Hernán y funciona muy bien con arrays\n\n\n@15,1 listbox listrubros fields str(arubros[listrubros:nat][1],10,0)),;\n                                           arubros[listrubros:nat,2],;\n		           arubros[listrubros:nat,3];\n            headers \"Rubro\", \"Descripcion\", \"Medida\";\n            fieldsizes 50,200,50;\n            of oFolde:aDialogs[2] font ofont size 330, 120 update pixel\n           listrubros:ajustify:={.f.,.f.,.f.}\n           listrubros:cAlias    := \"ARRAY\"\n           listrubros:setarray(arubros)\n           listrubros:lcellstyle:=.t.\n           listrubros:nlinestyle:=1\n\n\nUn saludo\n\nMarcelo Jingo','',0,'','1xd8eqqd',1,0,'',496,0,0),(20664,4604,6,180,0,'83.38.241.64',1161622725,1,0,1,1,1,0,'','','Gracias Goosfancito, ya lo creo que he probado xMate pero tampoco. Me marcar los siguientes errores:\n[code:39bhby9b]\nError&#58; Unresolved external \'_hb_sxDeCrypt\' referenced from C&#58;\\HARBOUR\\LIB\\RDD&#46;LIB|dbf1\nError&#58; Unresolved external \'_hb_sxPtoD\' referenced from C&#58;\\HARBOUR\\LIB\\RDD&#46;LIB|dbf1\nError&#58; Unresolved external \'_hb_sxDtoP\' referenced from C&#58;\\HARBOUR\\LIB\\RDD&#46;LIB|dbf1\nError&#58; Unresolved external \'_hb_sxEnCrypt\' referenced from C&#58;\\HARBOUR\\LIB\\RDD&#46;LIB|dbf1\nError&#58; Unresolved external \'_HB_FUN_DBFFPT\' referenced from C&#58;\\HARBOUR\\LIB\\RDD&#46;LIB|rddsys\nInfo&#58; Link time = 0&#46;36 seconds\n[/code:39bhby9b]\nCreo que pudiera tratarse de las lib C:\\Harbour\\dbffpt.lib y \nC:\\Harbour\\hbsix.lib. \nMi pregunta es: pueden incluirse estas librerias tocando algún fichero de xMate? No he logrado encontrar el fichero de configuración.\n\nUn  saludo,\nManuel','',0,'AIA=','39bhby9b',1,0,'',180,0,0),(20665,4644,7,598,0,'200.11.139.61',1161623568,1,0,1,1,1,1,'','','Me dio problemas al compilar.. sera q estoy haciendo algo mal? <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  (recien termine de instalar la actualizacion de fwppc)\n\n\n\n[quote:2ubuni0e]\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'PRUEBA2.prg\' and generating preprocessed output to \'PRUEBA2.ppo\'...\n\nLines 179, Functions/Procedures 4\nGenerating C source output to \'PRUEBA2.c\'... Done.\nPRUEBA2.c\nMicrosoft (R) Incremental Linker Version 6.24.3077\nCopyright (C) Microsoft Corporation.  All rights reserved.\n\nPRUEBA2.obj \nc:\\fwppc\\lib\\FiveCE.lib c:\\fwppc\\lib\\FiveCEC.lib \nc:\\harbour_CE\\lib\\rtl.lib \nc:\\harbour_CE\\lib\\vm.lib \nc:\\harbour_CE\\lib\\gtwin.lib \nc:\\harbour_CE\\lib\\lang.lib \nc:\\harbour_CE\\lib\\macro.lib \nc:\\harbour_CE\\lib\\rdd.lib \nc:\\harbour_CE\\lib\\dbfntx.lib \nc:\\harbour_CE\\lib\\dbfcdx.lib \nc:\\harbour_CE\\lib\\dbffpt.lib \nc:\\harbour_CE\\lib\\hbsix.lib \nc:\\harbour_CE\\lib\\debug.lib \nc:\\harbour_CE\\lib\\common.lib \nc:\\harbour_CE\\lib\\pp.lib \nc:\\harbour_CE\\lib\\codepage.lib \nc:\\vce\\lib\\arm\\coredll.lib \nc:\\vce\\lib\\arm\\corelibc.lib \nc:\\vce\\lib\\arm\\aygshell.lib \nc:\\vce\\lib\\arm\\ws2.lib \nc:\\vce\\lib\\arm\\mfcce400.lib \nc:\\vce\\lib\\arm\\ole32.lib \nc:\\vce\\lib\\arm\\ceshell.lib \nc:\\vce\\lib\\arm\\commctrl.lib \nc:\\vce\\lib\\arm\\wininet.lib \nFiveCEC.lib(GETTEXT.obj) : error LNK2005: \"void __cdecl HB_FUN_GETWINDOWTEXT(void)\" (?HB_FUN_GETWINDOWTEXT@@YAXXZ) already defined in PRUEBA2.obj\nFiveCEC.lib(GETTEXT.obj) : warning LNK4006: \"void __cdecl HB_FUN_GETWINDOWTEXT(void)\" (?HB_FUN_GETWINDOWTEXT@@YAXXZ) already defined in PRUEBA2.obj; second definition ignored\n   Creating library PRUEBA2.lib and object PRUEBA2.exp\nPRUEBA2.exe : fatal error LNK1169: one or more multiply defined symbols found\n* Application successfully built\n[code][/code][/quote:2ubuni0e]','',0,'gA==','2ubuni0e',1,0,'',598,0,0),(20666,4672,3,31,0,'89.190.104.93',1161623704,1,0,1,1,1,1,'','Re: Regional &amp; language options ...','[quote=&quot;Rimantas&quot;:rntrc1ph]Hi !\n\n  How to detect from system what settings are for decimal symbol and digit grouping ? Any DLL or registry call ? It\'s some problem with other programs with that , so I\'ll be thankfull for any help .\n\n  With best regards ![/quote:rntrc1ph]\n\n Hi , again !\n\n  I found solution for that . Sample :\n\n[code:rntrc1ph]\nfunction read_reg&#40;&#41;\nlocal uVar\nlocal aRet &#58;= &#123;&#125;\nlocal oReg\n#define  HKEY_CURRENT_USER       2147483649\noReg &#58;= TReg32&#40;&#41;&#58;New&#40; HKEY_CURRENT_USER, &quot;Control Panel\\International&quot; &#41;\nuVar &#58;= oReg&#58;Get&#40; &quot;sMonDecimalSep&quot;, &quot; &quot; &#41;\nif uVar # NIL\n   aadd&#40; aRet, uVar &#41;\n   uVar &#58;= oReg&#58;Get&#40; &quot;sMonThousandSep&quot;, &quot; &quot; &#41;\n   aadd&#40; aRet, uVar &#41;\nendif\noReg&#58;Close&#40;&#41;\nreturn&#40; aRet &#41;\n[/code:rntrc1ph]\n\n  Works fine .  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n \n  Regards !','',0,'gIA=','rntrc1ph',1,0,'',31,0,0),(20667,4664,6,644,0,'200.125.105.209',1161624102,1,0,1,1,1,0,'','','mandame tu correo y te mando un ejemplo. El mio es <!-- e --><a href=\"mailto:horacio_dellacasa@yahoo.com.ar\">horacio_dellacasa@yahoo.com.ar</a><!-- e -->\n\nSaludos','',0,'gIA=','1i76c1ld',1,0,'',644,0,0),(20668,2261,17,375,0,'84.122.113.107',1161625242,1,0,1,1,1,1,'','','Perdonadme pero he estado de vacaciones, además cambié de ordenador / excuse me but I was on hollidays and i also changed my computer.\n\nAhí va la nueva versión / here is the new version:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01c35ea620/TGSAY.zip.html\">http://hyperupload.com/download/01c35ea ... Y.zip.html</a><!-- m -->','',0,'gIA=','2jsq69si',1,0,'',375,0,0),(20669,4644,7,2,0,'87.218.146.65',1161636139,1,0,1,1,1,1,'','','Luis,\n\nHay que extraer este módulo previamente:\n\nlib /remove:objcec\\GETTEXT.obj fivecec.lib','',0,'gIA=','3v71mv4e',1,0,'',2,0,0),(20670,4673,7,18,0,'200.67.188.236',1161636453,1,0,1,1,1,1,'','Compilando Winsock.c','Antonio :\n\nMe podrías decir cuales son los flags correspondientes para compilar correctamente el programa Winsock.c.','',0,'gIA=','200rr2tp',1,0,'',18,0,0),(20671,4668,3,2,0,'87.218.146.65',1161636848,1,0,1,1,1,1,'','','Silvio,\n\nYou may use METHOD SetTabs( aTabs, nOption ) CLASS TTabs to set all the new tabs again.','',0,'gIA=','357rhrge',1,0,'',2,0,0),(20672,4673,7,2,0,'87.218.146.65',1161638227,1,0,1,1,1,1,'','','Victor,\n\n-DARM -DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__\n\ny primero tienes que llamar a tools\\clp2harb.exe para que adapte el fichero C a formato compatible con Harbour.','',0,'gIA=','129gora4',1,0,'',2,0,0),(20673,4671,6,2,0,'87.218.146.65',1161638738,1,0,1,1,1,1,'','','João,\n\nNo puedes hacerlo con botones estandard. Haz de usar TBtnBmp y usar un bitmap que tenga un determinado color de fondo.','',0,'gIA=','18fz489z',1,0,'',2,0,0),(20674,4671,6,362,0,'200.168.52.156',1161640031,1,0,1,1,1,1,'','','Gracias Maestro...\n\nPero, si jo usar BTNBMP, como poner TECLAS DE ATAJO??\n\nSolo usando el COMANDO PROMPT??','',0,'gIA=','401r3znr',1,0,'',362,0,0),(20675,4668,3,49,0,'62.13.172.78',1161640571,1,0,1,1,1,1,'','','I not Know How I can make it \n\nI want explain you \nI  male a grapghic line on this line I insert some data \nThen I want create another line after the previous line with some data\nI want renumber each line and save it on a dbf \nI used TTab to design the control How you sad me but I have some problems now because I think I need your help','',0,'gIA=','3erkq9s0',1,0,'',49,0,0),(20676,4673,7,18,0,'200.67.188.236',1161642075,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:tnkuhudl]Victor,\n\n-DARM -DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__\n\ny primero tienes que llamar a tools\\clp2harb.exe para que adapte el fichero C a formato compatible con Harbour.[/quote:tnkuhudl]\n\nAntonio :\nGracias por la respuesta\nY aprovechando que es gerundio, de dónde puedo bajar clp2harb.exe','',0,'gA==','tnkuhudl',1,0,'',18,0,0),(20677,4668,3,2,0,'87.218.146.13',1161646538,1,0,1,1,1,1,'','','Silvio,\n\nPlease provide a small sample PRG.','',0,'gA==','xv3zkjfa',1,0,'',2,0,0),(20678,4673,7,2,0,'87.218.146.13',1161646599,1,0,1,1,1,1,'','','Victor,\n\nLo tienes en el directorio fwh\\tools','',0,'gA==','1wf5g8ur',1,0,'',2,0,0),(20679,4671,6,2,0,'87.218.146.13',1161646677,1,0,1,1,1,1,'','','João,\n\nPuedes usar un control TButtonBmp','',0,'gA==','f5cujeet',1,0,'',2,0,0),(20680,4609,6,322,0,'201.134.185.82',1161646825,1,0,1,1,1,0,'','','Ing. Alfredo\nCon este tipo de anuncios, espero este bién.\n\nDesde mi PC le envio una virtual VIKY bien fría, y salud por los exitos.\n\nT.S.J.D.F.\nNazario','',0,'gA==','19zle74z',1,0,'',322,0,0),(20681,4604,6,110,0,'165.98.169.198',1161649725,1,0,1,1,1,1,'','','la forma rapida y simple es que agreges esas dos librerias a tu propyecto.\nen xmate.\n\nlo mas seguro es editar el entorno y en la pestaña del exe agregar esas librerias.\n\n\n\nsalu2\ncarlos vargas','',0,'gA==','2r1a9ifi',1,0,'',110,0,0),(20682,4669,6,110,0,'165.98.169.198',1161650028,1,0,1,1,1,1,'','','paco no se si te sirva:\n\n\nASSOCIATE CLASS:\n----------------\nThe ASSOCIATE CLASS syntax allows the xHarbour developer to replace the\nstandard classes for native types with any alternative class, including\nclasses dervied from the standard classes. As well as complete support\nfor Operator Overloading for native types.\n\n   Syntax:\n   -------\n\n   ASSOCIATE CLASS &lt;ClassName&gt; WITH TYPE\n             ARRAY|BLOCK|CHARACTER|DATE|LOGICAL|NIL|NUMERIC|POINTER','',0,'gA==','1jqknrza',1,0,'',110,0,0),(20683,4674,7,840,0,'190.76.2.126',1161657327,1,0,1,1,1,0,'','Emulador FWPPC','Saludos de Venezuela.\n\ntengo 2 dias con el fwppc baje el programa que ustedes recomienda,\npero no funciona le agradesco que me expliquen el proceso de instalacion o de ejecucion.\n\nle agradesco si me pueden envial via email el emudador.\n\nGRACIAS. \nDARIO FERREIRA.','',0,'gA==','2hneomau',1,0,'',840,0,0),(20684,2261,17,15,0,'203.73.69.227',1161661443,1,0,1,1,1,0,'','','Hi manuramos,\n\nThanks your solution.\n\nRichard','',0,'gA==','2jgyv10r',1,0,'',15,0,0),(20685,4675,20,837,0,'81.208.83.249',1161677408,1,0,1,1,1,1,'','News Group Italiano','Salve a tutti,\n\nmi stò avvicinando a FiveWin da qualche giorno.\n\nVorrei sapere se è disponibile un newsgroup in italiano, scaricabile con Outlook ?\n\nGrazie, Andrea.','',0,'gA==','3215h6kx',1,0,'',837,0,0),(20686,4676,6,656,0,'83.230.172.252',1161685584,1,0,1,1,1,1,'','BUTTOMBAR EN DIALOG','buenas, estoy intentando poner una buttombar en un dialog, es un recurso de la dll de mi programa, y cuando defino la buttombar el programa me da error en ejecución de que no puede crear el dialog.\n¿ cómo puedo hacerlo?\n\nmuchas gracias.\nsalu2\nJavier Pérez','',0,'gA==','1ai8i9xu',1,0,'',656,0,0),(20687,4675,20,6,0,'87.19.15.42',1161686204,1,0,1,1,1,1,'','Re: News Group Italiano','No, l\'unico è questo forum.\n\nEMG','',0,'gA==','sqvoeq4r',1,0,'',6,0,0),(20688,4674,7,2,0,'87.218.146.172',1161690442,1,0,1,1,1,1,'','','Dario,\n\nEl emulador lo puedes descargar desde Microsoft (es gratuito) ó directamente desde la página de descarga que te hemos proporcionado: \n\nPulsa sobre \"Microsoft free EMULATOR\"','',0,'gA==','3rwanqmq',1,0,'',2,0,0),(20689,4674,7,2,0,'87.218.146.172',1161690632,1,0,1,1,1,1,'','','Dario,\n\nUna vez instales el emulador, ve al directorio c:\\Archivos de programa\\Microsoft\\Device Emulator Preview\\PPC_2003_SE\\ y crea el fichero go.bat con este contenido:\n\n..\\deviceemulator ppc_2003_se_wwe_armv4.bin /skin Pocketpc_2003_skin.xml /memsize 128 /sharedfolder c:\\fwppc\\samples\n\nLuego ejecuta go.bat para que arranque correctamente el emulador. El directorio c:\\fwppc\\samples será visible desde el emulador como la tarjeta de memoria.','',0,'gA==','3eb4ntmg',1,0,'',2,0,0),(20690,4671,6,362,0,'200.168.52.156',1161691155,1,0,1,1,1,1,'','','Como és esto maestro?\n\nPuedes postar un ejemplo?\n\nMil gracias.\n\nSaludos.','',0,'gA==','39yhn0ba',1,0,'',362,0,0),(20691,4669,6,2,0,'87.218.146.172',1161691165,1,0,1,1,1,1,'','','Paco,\n\nEl código que has publicado funciona perfectamente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','f79hfx65',1,0,'',2,0,0),(20692,4677,6,294,0,'201.250.194.36',1161691167,1,0,1,1,1,1,'','Funciones de archivos ZIP no andan','Estimados:\nQuiero utilizar las funciones para menejo de archivos zip, y no me funcionan. \nCuando compilo el ejemplo que TESTZIP, me da los siguientes errores:\nError: Unresolved external ´_HB_FUN_ZIPFILE´\nError: Unresolved external ´_HB_FUN_ZIPTYPE´\nError: Unresolved external ´_HB_FUN_ZIPBLOCK´\nError: Unresolved external ´_HB_FUN_ZIPMSG´\nAlguien me puede dar una mano\nAtte.','',0,'gA==','3jwoy3ye',1,0,'',294,0,0),(20693,4677,6,2,0,'87.218.146.172',1161691470,1,0,1,1,1,1,'','','Esas funciones de FW no están disponibles en 32 bits.\n\nTienes que usar la librería hbzip.lib de xharbour. Tienes ejemplos de uso en xharbour\\tests','',0,'gA==','340n95kr',1,0,'',2,0,0),(20694,4677,6,294,0,'201.250.194.36',1161691796,1,0,1,1,1,1,'','','Gracias Antonio por tu pronta respuesta.\nDisculpa mi ignorancia, estas funciones no andan con HARBOUR + FWH?\nSi es así, que puedo utilizar para manejar archivos ZIP con HARBOUR + FWH?','',0,'gA==','jjdd5rv7',1,0,'',294,0,0),(20695,4678,6,104,0,'201.58.91.192',1161696138,1,0,1,1,1,0,'','Erro ao criar Indice com ADS','Olá,\n\nAo tentar criar um indice com ADS me ocorre o seguinte erro:\n\nErro ADSCDX/3211  Erro de criação do arquivo.\n\nComo seria as linhas abaixo:\n\n[code:277ygr3x]\nUSE &quot;CLIENTES&quot; alias &quot;CLIE&quot; shared new via &quot;ADS&quot;\n\nif !file&#40; &quot;CLIENTES&#46;CDX&quot; &#41;\n   index on CLI_CODI tag CODI to &#40; &quot;CLIENTES&quot; &#41; for !CLIE-&gt;&#40; deleted&#40;&#41; &#41;\n   index on CLI_NOME tag NOME to &#40; &quot;CLIENTES&quot; &#41; for !CLIE-&gt;&#40; deleted&#40;&#41; &#41;\nendif\n\nset index to &#40; &quot;CLIENTES&quot; &#41;\n\n[/code:277ygr3x]\n\nObrigado,\n\nRossine.','',0,'AIA=','277ygr3x',1,0,'',104,0,0),(20696,4679,6,105,0,'200.72.140.34',1161698402,1,0,1,1,1,1,'','Problemas con FWH/HARBOUR','Antonio...\n\nYo trabajo con xHarbour.com de Febrero 2006 y FWH2.6,  uso RMDBFCDX y no he tenido problemas.\n\nA solicitud de una empresa que trabaja con Harbour y FWH28 he empezado a traspasar unos modulos que yo poseo en Xharbour.com para un sistema muy grande que ellos poseen. Sin embargo no he podido hacer absolutamente nada...  a continuacion los errores y problemas que he tenido.\n\n1.- Situacion.\n\nFWH28 \nFiveh.lib    1.395 kb   17/09/2006   13:35\nFivehc.lib     341 kb   18/09/2006   1.56\nHarbour ( version descargada desde Fivetechsoft.com)\n\nEl xMate se queja de la inexistencia de GTWIN.LIB, lo mismo Verce.\nAl colocar \"solo\" las libs que vienen con esta version de FWH en los parametros del linkeador, se genera el exe, pero no realiza absolutamente nada.\n\n\n2.- Situacion.\n\nFWH28 \nFiveh.lib    1.395 kb   17/09/2006   13:35\nFivehc.lib     341 kb   18/09/2006   1.56\nHarbour ( version descargada desde Harbour-Project.org)\n\nEl xMate se queja de referencias externas _hb_ProcessSymbolsEx y de _hb_objHasMessage  y no linkea.\n\nAlguna ayuda, que tengo mal.... si lo hago a travez del Buildh.bat, ocurre exactamente lo mismo.\n\nSi el mismo ejemplo lo compilo y linkeo a travez del Xbuild de xHB y mis versiones de Xhb y FWH no tengo problemas.\n\nAgradecido de antemano.','',0,'AIA=','2y4dih66',1,0,'',105,0,0),(20697,4680,3,6,0,'87.19.15.42',1161699229,1,0,1,1,1,1,'','TestFold.prg sample: bitmaps won\'t show','In testfold.prg sample the bitmaps of the imagelist are not displayed.\n\nEMG','',0,'AIA=','1nxutgtj',1,0,'',6,0,0),(20698,4673,7,18,0,'200.67.188.236',1161703531,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ebiisfrq]Victor,\n\nLo tienes en el directorio fwh\\tools[/quote:ebiisfrq]\n\nAntonio :\n\nAgregue los flag que me comentaste y al  momento de compilar me devuelve estos errores.\n[code:ebiisfrq]\n\nTSOCKET&#46;c\nclarm&#46;exe -TP -W3 -c -DARM -DUNICODE-D__HARBOUR__-DHB_API_MACROS-D__FLAT__ -IC&#58;\\harbourc\\include;c&#58;\\fwppc\\Include -Ic&#58;\\FWPPC\\INCLUDE -IC&#58;\\harbourc\\Include -IC&#58;\\vce\\Include\\arm winsock&#46;c\nMicrosoft &#40;R&#41; C/C++ Optimizing Compiler Version 12&#46;20&#46;9615 for ARM\nCopyright &#40;C&#41; Microsoft Corp 1984-2002&#46; All rights reserved&#46;\n\nc&#58;\\fwppc\\source\\winapi\\winsock&#46;c&#40;185&#41; &#58; error C2664&#58; \'_bset\' &#58; cannot convert parameter 1 from \'char *\' to \'unsigned char *\'\n        Types pointed to are unrelated; conversion requires reinterpret_cast, C-style cast or function-style cast\nc&#58;\\fwppc\\source\\winapi\\winsock&#46;c&#40;276&#41; &#58; error C2065&#58; \'_send\' &#58; undeclared identifier\nc&#58;\\fwppc\\source\\winapi\\winsock&#46;c&#40;305&#41; &#58; error C2664&#58; \'_bset\' &#58; cannot convert parameter 1 from \'char *\' to \'unsigned char *\'\n        Types pointed to are unrelated; conversion requires reinterpret_cast, C-style cast or function-style cast\nc&#58;\\fwppc\\source\\winapi\\winsock&#46;c&#40;339&#41; &#58; error C2664&#58; \'_bset\' &#58; cannot convert parameter 1 from \'char *\' to \'unsigned char *\'\n        Types pointed to are unrelated; conversion requires c&#58;\\fwppc\\source\\winapi\\winsock&#46;c&#40;386&#41; &#58; error C2664&#58; \'_bset\' &#58; cannot convert parameter 1 from \'char *\' to \'unsigned char *\'\n        Types pointed to are unrelated; conversion requires reinterpret_cast, C-style cast or function-style cast\nc&#58;\\fwppc\\source\\winapi\\winsock&#46;c&#40;404&#41; &#58; error C2664&#58; \'_bset\' &#58; cannot convert parameter 1 from \'char *\' to \'unsigned char *\'\n        Types pointed to are unrelated; conversion requires reinterpret_cast, C-style cast or function-style cast\n[/code:ebiisfrq]\n\nY este el cógio fuente del primer error\n[code:ebiisfrq]\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_BINDTOPORT&#40; PARAMS &#41;   // nSocket, nPort, nAddr1, nAddr2, nAddr3, nAddr4 --&gt; lSuccess\n#else\n    HB_FUN_BINDTOPORT&#40; PARAMS &#41;   // nSocket, nPort, nAddr1, nAddr2, nAddr3, nAddr4 --&gt; lSuccess\n#endif\n&#123;\n   SOCKADDR_IN sa; // sockaddr_in sa;\n\n   _bset&#40; &#40; char * &#41; &amp;sa, 0, sizeof&#40; sa &#41; &#41;;\n\n   sa&#46;sin_family       = AF_INET;\n   sa&#46;sin_port         = htons&#40; _parni&#40; 2 &#41; &#41;;\n/*\n   sa&#46;sin_addr&#46;s_net   = _parni&#40; 3 &#41;;\n   sa&#46;sin_addr&#46;s_host  = _parni&#40; 4 &#41;;\n   sa&#46;sin_addr&#46;s_lh    = _parni&#40; 5 &#41;;\n   sa&#46;sin_addr&#46;s_impno = _parni&#40; 6 &#41;;\n */\n   sa&#46;sin_addr&#46;s_addr  = htonl&#40; INADDR_ANY &#41;;\n\n   _retl&#40; bind&#40; _parni&#40; 1 &#41;, &#40; SOCKADDR * &#41; &amp;sa, sizeof&#40; sa &#41; &#41; == 0 &#41;;\n&#125;\n[/code:ebiisfrq]','',0,'gIA=','ebiisfrq',1,0,'',18,0,0),(20699,4679,6,180,0,'83.61.174.165',1161703689,1,0,1,1,1,0,'','','Al parecer Gtwin.lib dejó de existir. Para  que VERCE te deje seguir copia en  harbour/lib gtgui.lib como gtwin.lib\n\nUn saludo,\nManuel','',0,'gIA=','1yqqw54h',1,0,'',180,0,0),(20700,4677,6,180,0,'83.61.174.165',1161703920,1,0,1,1,1,0,'','','Hola cmSoft, tienes que utilizar xHarbour, en Harbour no está disponible hbzip.lib. Mírate esto <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4594\">http://fivetechsoft.com/forums/viewtopic.php?t=4594</a><!-- m -->\n\nUn saludo,\nManuel','',0,'gIA=','df75sa58',1,0,'',180,0,0),(20701,4604,6,180,0,'83.61.174.165',1161704385,1,0,1,1,1,0,'','','Gracias Carlos, no había caido en cuenta que podría hacerlo así. De cualquier manera, aunque he conseguido compilar/enlazar sin fallos los resultados siguen siendo los mismos que con el bat: Se crea el ejecutable pero no veo nada por pantalla.\n\nUn saludo,\nManuel','',0,'gIA=','3684wqfr',1,0,'',180,0,0),(20702,4679,6,105,0,'200.72.140.34',1161704425,1,0,1,1,1,1,'','','Manuel.. \n\nSi GTWIN \"dejo de existir\" no deberia eso estar comentado en algun lugar, quizas en el \"what\'s new\" o algo parecido... si no es asi.. algo esta mal... o no.\n\nSin embargo en la version descargada desde Harbour-Project.. si existe y se instala.\n\nAun con esa version aparecen esas referencias externas y no linkea...\n\nAntonio ?','',0,'gIA=','iy3w1ob3',1,0,'',105,0,0),(20703,4681,6,413,0,'217.125.9.228',1161704426,1,0,1,1,1,0,'','Los SCOPES funcionan con NTX....','Nunca los he utilizado pero he leido en este foro que van muy bien y me irian muy bien si se puedieran aplicar a los ntx, pero todo lo que he leido es referentea los CDX. Alguien sabe si funcionan con NTX.... \n\nGracias.','',0,'gIA=','kq9qvcic',1,0,'',413,0,0),(20704,4681,6,138,0,'189.141.70.60',1161704586,1,0,1,1,1,1,'','','En (x)Harbour puedes hacer Scopes con NTX, en Clipper 16 bits no es posible.','',0,'gIA=','13jfv2uq',1,0,'',138,0,0),(20705,4676,6,180,0,'83.61.174.165',1161705067,1,0,1,1,1,0,'','','Así:\n[code:3tltx4w6]\nLocal oBarraBotones\n\n  DEFINE BUTTONBAR oBarraBotones;  // Se define Barra de Botones &#40;Objeto&#58; BUTTONBAR&#41;&#46;\n  SIZE 34,34;                      // Tama¤o en pixeles de los botones\n  3D;                              // Vista en efecto 3¦ dimensi¢n\n  TOP;                             // Se despliega en la parte superior de la ventana&#46;\n  OF oVentPrinc;                   // Se indica que pertenece a la ventana principal&#46;\n  CURSOR oCursorMano               // Se define tipo de cursor al posicionarse en la barra&#46;\n\n/********  Definimos Botones que incluiremos en la Barra de Botones */\n\n  DEFINE BUTTON oBtn&#91;1&#93; RESOURCE &quot;PTRABAJA&quot; OF oBarraBotones ;\n         TOOLTIP OemToAnsi&#40;&quot; Trabajadores &quot;&#41;;\n         NOBORDER;\n         ACTION &#40; oBtn&#91;1&#93;&#58;Toggle&#40;&#41;,; // Primero mantenemos Presionado el Bot¢n\n                  SndPlaySound&#40;&quot;click&#46;wav&quot;&#41;,;\n                  BrwDato&#40;&quot;TRABAJA&quot;,nSerie,nRango&#41;,;         // llamamos a la funci¢n\n                  oBtn&#91;1&#93;&#58;GoUp&#40;&#41; &#41;;  // Al terminar Levantamos el bot¢n\n         GROUP;                         // Se inicia nuevo grupo de iconos\n         MESSAGE &quot;Mantenimiento de la Base de Datos de Trabajadores&#46;&#46;&#46;&#46;&#46;&quot;\n\n  DEFINE BUTTON oBtn&#91;2&#93; RESOURCE &quot;PEMPRESA&quot; OF oBarraBotones ;\n         TOOLTIP OemToAnsi&#40;&quot; Empresas &quot;&#41; NOBORDER;\n         ACTION &#40; oBtn&#91;2&#93;&#58;Toggle&#40;&#41;,;\n                  SndPlaySound&#40;&quot;click&#46;wav&quot;&#41;,;\n                  BrwDato&#40;&quot;EMPRESAS&quot;,nSerie,nRango&#41;,;\n                  oBtn&#91;2&#93;&#58;GoUp&#40;&#41; &#41;;\n         MESSAGE &quot;Mantenimiento de la Base de Datos de Empresas&#46;&#46;&#46;&#46;&#46;&quot;\n\n[/code:3tltx4w6]','',0,'AIA=','3tltx4w6',1,0,'',180,0,0),(20706,4681,6,413,0,'217.125.9.228',1161705147,1,0,1,1,1,0,'','','Gracis Rene, tenia mis dudas pero estoy en Harbour osea que supongo que tambien funcionaran. Tu rapidez a mi pregunta ha sido inmediata, he tardado mas en escribirla que tu en contestar... jejejeje , mil gracias.','',0,'AIA=','3azfjfq1',1,0,'',413,0,0),(20707,4644,7,598,0,'200.11.139.61',1161705148,1,0,1,1,1,1,'','','ahora me da otros errores  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\n[quote:2d5fo927]FiveCE.lib(MGET.obj) : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_MGETREPLACE(void)\" (?HB_FUN_MGETREPLACE@@YAXXZ)\nFiveCE.lib(MGET.obj) : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_GETWINTXTLENGHT(void)\" (?HB_FUN_GETWINTXTLENGHT@@YAXXZ)\nFiveCE.lib(MGET.obj) : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_MGETLINE(void)\" (?HB_FUN_MGETLINE@@YAXXZ)\n[/quote:2d5fo927]','',0,'gA==','2d5fo927',1,0,'',598,0,0),(20708,4678,6,138,0,'189.141.70.60',1161705318,1,0,1,1,1,1,'','','1) You don\'t need to use \"\" to open the file prior to index:\n\nUSE CLIENTES alias CLIE Shared new via \"ADS\"\n\n2) You don\'t have to indicate the file name of the CDX file, since the name will be the same of the dbf:\n\nindex on CLI_CODI tag CODI\n\nand that\'s all\n\n3) You cannot use ANY program expression such ALIAS in no one part of the index:\n\nIncorrect:\n\nindex on CLI_CODE tag CODI to (\"CLIENTES\") for !CLIE-&gt;(deleted())\n\nCorrect:\n\nindex con CLI_CODE tag CODI for ! deleted()','',0,'gA==','1du415dr',1,0,'',138,0,0),(20709,4677,6,294,0,'201.250.194.36',1161705383,1,0,1,1,1,1,'','','Gracias Manuel: El link no funciona (por lo menos para mi pais), puedes pasarmelo por privado?\nDesde ya muchas gracias...','',0,'gA==','264ogtt5',1,0,'',294,0,0),(20710,4676,6,138,0,'189.141.70.60',1161705821,1,0,1,1,1,1,'','','Las barras de botones no pueden ser colocadas directamente en los dialogos como se hace con una ventana, tienes que recurrir al evento ON INIT del dialogo para colocarle la barra de botones, asi:\n\n[code:37ktkqnz]DEFINE DIALOG oDlg &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\nACTIVATE DIALOG oDlg ON INIT &#40;DlgBar&#40;oDlg&#41;&#41;\n\n/* en la funcion DlgBar vamos a construir la barra de botones */\n\nFUNCTION oDlgBar&#40;oDlg&#41;\n   LOCAL oBar\n   DEFINE BUTTONBAR oBar OF oDlg &#46;&#46;&#46;&#46;&#46;&#46;\n   DEFINE BUTTON OF oBar &#46;&#46;&#46;&#46;&#46;\n   &#46;&#46;&#46;&#46;\n   ,&#46;&#46;&#46;\nRETURN[/code:37ktkqnz]','',0,'AIA=','37ktkqnz',1,0,'',138,0,0),(20711,4677,6,180,0,'83.61.174.165',1161705871,1,0,1,1,1,0,'','','El link se corresponde con el título HBZipFile, hb_UnZipFile y Meter del dia 20-10-2006 en este mismo foro.\n\nSaludos,\nManuel','',0,'AIA=','2h72xijd',1,0,'',180,0,0),(20712,4644,7,2,0,'87.218.146.172',1161707112,1,0,1,1,1,1,'','','Luis,\n\nVamos a publicar un nuevo build de FWPPC en sólo unos dias. En cuanto salga lo tendrás y así no tienes que modificar nada.','',0,'AIA=','1udyxgzv',1,0,'',2,0,0),(20713,4680,3,2,0,'87.218.146.172',1161707259,1,0,1,1,1,1,'','','Enrico,\n\nIts not finished yet. We are close to complete it.','',0,'AIA=','k41q2tij',1,0,'',2,0,0),(20714,4677,6,28,0,'213.27.201.254',1161707502,1,0,1,1,1,0,'','Solución, creo','Hola, \n\nBuceando por esos mundos he encontrado dos DLLs que son freeware\n\nSe trata de LiteZip y LiteUnzip\n\n[url:38yjz1kt]http&#58;//www&#46;codeproject&#46;com/useritems/LiteZip&#46;asp[/url:38yjz1kt]\n\nDescargaros los fuentes y obteneis las dlls. Tambien teneis que utilizar los fichero .h que se incluyen en la sección #pragma BEGINDUMP\n\nEl ejemplo que seguro no funciona del todo correctamente pero ayudará en el camino hacia el exito, es este:\n\n\n[code:38yjz1kt]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\nlocal oWnd\nlocal oMenu\n\nMENU oMenu\n  MENUITEM &quot;Zip&quot; ACTION Test&#40;&#41;\nENDMENU\n\n\n\nDEFINE WINDOW oWnd TITLE &quot;Prueba de ventana&quot; MENU oMenu\n\n\n\n\n\nACTIVATE WINDOW oWnd MAXIMIZED\n\n\nreturn nil\n\n\n\n\nfunction test&#40;&#41;\nlocal oDlg\nlocal oLbx1\nlocal oLbx2\nlocal oMeter\nlocal oAdd, oOut, oName, oComprimir, oIn, oNameIn, oExtract\nlocal cFileOut &#58;= space&#40; 300 &#41;\nlocal cFileIn  &#58;= space&#40; 300 &#41;\n\nlocal aItems1 &#58;= &#123;&#125;\nlocal aItems2 &#58;= &#123;&#125;\nlocal cItem  &#58;= &quot;&quot;\n\nlocal nPercent &#58;= 0\n\n\n\n\n\nDEFINE DIALOG oDlg NAME &quot;IDD_ABOUTBOX&quot;\n\n\n       REDEFINE GET oIn VAR cFileIn                    ID 101 OF oDlg\n       REDEFINE BUTTON  oNameIn                        ID 102 OF oDlg ACTION SelName&#40; oIn &#41;\n       REDEFINE LISTBOX oLbx1  VAR cItem ITEMS aItems1 ID 103 OF oDlg\n       REDEFINE BUTTON  oExtract                       ID 104 OF oDlg ACTION Abrir&#40; cFileIn, oLbx1, oMeter &#41;\n\n       REDEFINE GET oOut VAR cFileOut                  ID 105 OF oDlg\n       REDEFINE BUTTON  oName                          ID 106 OF oDlg ACTION SelName&#40; oOut &#41;\n       REDEFINE LISTBOX oLbx2  VAR cItem ITEMS aItems2 ID 107 OF oDlg\n       REDEFINE BUTTON  oAdd                           ID 108 OF oDlg ACTION Add&#40; oLbx2 &#41;\n       REDEFINE BUTTON  oComprimir                     ID 109 OF oDlg ACTION Comprimir&#40; oLbx2, oOut, oMeter &#41;\n       REDEFINE METER oMeter VAR nPercent TOTAL 100    ID 110 OF oDlg\n\n\nACTIVATE DIALOG oDlg CENTERED\n\n\n\nreturn nil\n\n\n/////////////////////////////////////////////////////////////////////////////\n  static function Abrir&#40; cFileName,  oLbx, oMeter &#41;\n/////////////////////////////////////////////////////////////////////////////\nlocal n\nlocal hUnz\nlocal aInfo\nlocal nItems\nlocal cFile\nlocal cCurDir &#58;= curdrive&#40;&#41; + &quot;&#58;\\&quot; + curdir&#40;&#41; + &quot;\\&quot;\n\ncFileName &#58;= alltrim&#40; cFileName &#41;\n\nif empty&#40; cFileName &#41;\n   MsgStop&#40; &quot;Debe indicar un nombre de fichero&quot; &#41;\n   return 0\nendif\n\nif !File&#40; cFileName &#41;\n   MsgStop&#40; &quot;No se encuentra el fichero&#58;&quot; + CRLF + CRLF + cFileName &#41;\n   return 0\nendif\n\nhUnz &#58;= UnzipOpenFile&#40; cFileName &#41;\n\naInfo &#58;= UnzipGetItem&#40; hUnz, -1 &#41;\nnItems &#58;= aInfo&#91;2&#93;\noMeter&#58;SetTotal&#40; nItems &#41;\n\n for n &#58;= 0 to nItems-1\n     aInfo &#58;= UnzipGetItem&#40; hUnz, n &#41;\n     if !empty&#40; aInfo &#41;\n        cFile &#58;= aInfo&#91;7&#93;\n        if lower&#40; cCurdir &#41; $ lower&#40; cFile &#41;\n           cFile &#58;= substr&#40; cFile, len&#40; cCurDir &#41;+1 &#41;\n        endif\n        cFile &#58;= alltrim&#40; cFile &#41;\n        oLbx&#58;Add&#40; cFile &#41;\n     endif\n     oMeter&#58;Set&#40; n &#41;\n next\n UnzipClose&#40;&#41;\n\n\n\nreturn nil\n\n\n/////////////////////////////////////////////////////////////////////////////\n  static function Add&#40; oLbx &#41;\n/////////////////////////////////////////////////////////////////////////////\nlocal aFiles &#58;= cGetFileEx&#40; &quot;*&#46;*&quot;, &quot;Seleccione ficheros&quot; &#41;\nlocal n\n\nif empty&#40; aFiles &#41;\n   return 0\nendif\n\nif valtype&#40; aFiles &#41; == &quot;C&quot;\n   aFiles &#58;= &#123;aFiles&#125;\nendif\n\nfor n &#58;= 1 to len&#40; aFiles &#41;\n    oLbx&#58;Add&#40; aFiles&#91;n&#93; &#41;\nnext\n\nreturn nil\n\n/////////////////////////////////////////////////////////////////////////////\n  static function SelName&#40; oGet, lLoad &#41;\n/////////////////////////////////////////////////////////////////////////////\n\nlocal cFileName\nif lLoad == nil; lLoad &#58;= &#46;f&#46;; endif\n\ncFileName &#58;= cGetFile&#40; &quot;*&#46;zip&quot;,if&#40; lLoad, &quot;Seleccione fichero&quot;,&quot;Guardar como&#46;&#46;&#46;&quot;&#41;, 1, , lLoad &#41;\n\nif empty&#40; cFileName &#41;\n   MsgInfo&#40; &quot;Proceso cancelado&quot;,&quot;Atención&quot;&#41;\n   return 0\nendif\n\nif lLoad &#46;and&#46; !&#40; &quot;&#46;&quot; $ cFileName &#41;\n   cFileName += &quot;&#46;zip&quot;\nendif\n\noGet&#58;cText &#58;= cFileName\noGet&#58;Refresh&#40;&#41;\n\nif lLoad\n\n\n\nendif\n\n\n\nreturn 0\n\n/////////////////////////////////////////////////////////////////////////////\n  static function Comprimir&#40; oLbx, oGet, oMeter &#41;\n/////////////////////////////////////////////////////////////////////////////\n\nlocal cFileName\nlocal n\nlocal nLen &#58;= oLbx&#58;Len&#40;&#41;\nlocal hZip\nlocal cFile\n\nif nLen &lt;= 0\n   MsgStop&#40; &quot;Debe seleccionar ficheros para comprimir&quot;,&quot;Atención&quot;&#41;\n   return 0\nendif\n\ncFileName &#58;= alltrim&#40;oGet&#58;cText&#41;\n\nif empty&#40; cFileName &#41;\n   MsgStop&#40; &quot;Debe indicar el nombre de un fichero valido&quot;,&quot;Atención&quot;&#41;\n   return 0\nendif\n\nif !&#40; &quot;&#46;&quot; $ cFileName &#41;\n   cFileName += &quot;&#46;zip&quot;\nendif\n\n\noMeter&#58;SetTotal&#40; nLen &#41;\n\nhZip &#58;= ZipCreateFile&#40; cFileName &#41;\n\nfor n &#58;= 1 to nLen\n    cFile &#58;= oLbx&#58;aItems&#91;n&#93;\n    ZipAddFile&#40; hZip, cFileName&#40; cFile &#41;, cFile &#41;\n    oMeter&#58;Set&#40;n&#41;\nnext\n\nZipClose&#40; hZip &#41;\n\nMsgInfo&#40; &quot;Proceso concluido&quot; &#41;\n\n\nreturn nil\n\n\n\n\n\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &lt;shlobj&#46;h&gt;\n#include &lt;stdlib&#46;h&gt;\n#include &quot;j&#58;\\litezip&#46;h&quot;\n#include &quot;j&#58;\\liteunzip&#46;h&quot;\n\n\nstatic far char IniDir&#91;&#93; = &quot;&#46;\\\\&quot;;\nstatic char szDirName&#91; MAX_PATH &#93;;\nstatic far char Title&#91;&#93; = &quot;Select the file&quot;;\n\n#define S_ARRAY        0x8000\n\n\n\n\nHB_FUNC&#40; ZIPCREATEFILE &#41;\n&#123;\n    HZIP hz;\n    hb_retnl&#40;&#40;long&#41;ZipCreateFile&#40;&amp;hz, hb_parc&#40; 2 &#41;,0&#41;; // ,0 es la  pwd\n    hb_stornl&#40; &#40;long&#41;hz, 1 &#41;;\n\n&#125;\n\nHB_FUNC&#40; ZIPADDFILE &#41;\n&#123;\n   HZIP hz = &#40;HZIP&#41; hb_parnl&#40; 1 &#41;;\n   hb_retnl&#40; ZipAddFile&#40; hz, hb_parc&#40; 2 &#41;, hb_parc&#40; 3 &#41;&#41;&#41;;\n&#125;\n\nHB_FUNC&#40; ZIPCLOSE &#41;\n&#123;\n   hb_retnl&#40; ZipClose&#40;&#40;HZIP&#41; hb_parnl&#40; 1 &#41;&#41;&#41;;\n&#125;\n\nHB_FUNC&#40; UNZIPOPENFILE &#41;\n&#123;\n   HUNZIP huz;\n   hb_retnl&#40; &#40;long&#41; UnzipOpenFile&#40;&amp;huz, hb_parc&#40; 1 &#41;,0&#41;;  // ,0 es la  pwd\n   hb_stornl&#40;&#40;long&#41; huz, 1 &#41;;\n&#125;\n\nHB_FUNC&#40; UNZIPGETITEM &#41;\n&#123;\n   HUNZIP huz = &#40;HUNZIP&#41; hb_parnl&#40; 1 &#41;;\n   ZIPENTRY ze;\n   SYSTEMTIME stUTC;\n   char lpszString&#91;MAX_PATH&#93;;\n\n   ZeroMemory&#40; &amp;ze, sizeof&#40; ZIPENTRY &#41;&#41;;\n\n   if&#40; hb_pcount&#40;&#41; &gt; 1 &#41;\n   &#123;\n     ze&#46;Index = &#40;DWORD&#41; hb_parni&#40; 2 &#41;;\n   &#125;\n\n   UnzipGetItem&#40; huz, &amp;ze &#41;;\n\n   hb_reta&#40; 7 &#41;;\n   hb_stornl&#40; &#40;long&#41; &amp;ze,          -1, 1 &#41;;\n   hb_storni&#40; &#40;int&#41; ze&#46;Index,      -1, 2 &#41;;\n   hb_storni&#40; &#40;int&#41; ze&#46;Attributes, -1, 3 &#41;;\n\n   FileTimeToSystemTime&#40;&amp;ze&#46;ModifyTime,&amp;stUTC&#41;;\n   wsprintf&#40;lpszString, &quot;%02d/%02d/%d  %02d&#58;%02d&quot;, stUTC&#46;wDay, stUTC&#46;wMonth, stUTC&#46;wYear, stUTC&#46;wHour, stUTC&#46;wMinute&#41;;\n\n   hb_storc&#40; lpszString,           -1, 4 &#41;;\n   hb_stornl&#40; ze&#46;CompressedSize,   -1, 5 &#41;;\n   hb_stornl&#40; ze&#46;UncompressedSize, -1, 6 &#41;;\n   hb_storc&#40; ze&#46;Name,              -1, 7 &#41;;\n\n&#125;\n\nHB_FUNC&#40; UNZIPITEMTOFILE &#41;\n&#123;\n   HUNZIP huz = &#40;HUNZIP&#41; hb_parnl&#40; 1 &#41;;\n   UnzipItemToFile&#40; huz, hb_parc&#40; 2 &#41;, &#40;ZIPENTRY*&#41; hb_parnl&#40; 3 &#41; &#41;;\n   hb_ret&#40;&#41;;\n&#125;\n\nHB_FUNC&#40; UNZIPCLOSE &#41;\n&#123;\n   UnzipClose&#40; &#40;HUNZIP&#41; hb_parnl&#40; 1 &#41;&#41;;\n   hb_ret&#40;&#41;;\n&#125;\n\n\n\n\n\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n/////////////////////////////////////////////////////////////////////////////////////////////////////////\n\n\n\n\n\n\n\n\n\nHB_FUNC &#40; CGETFILEEX &#41;   \n&#123;\n        OPENFILENAME ofn;\n        char buffer&#91;65536&#93;;\n        char cFullName&#91;64&#93;&#91;1024&#93;;\n        char cCurDir&#91;512&#93;;\n        char cFileName&#91;512&#93;;\n        int iPosition = 0;\n        int iNumSelected = 0;\n        int n;\n   LPSTR  pFile,pFilter,pTitle,pDir;\n   WORD w = 0, wLen;\n        int flags =  OFN_ALLOWMULTISELECT | OFN_EXPLORER ; // | OFN_FILEMUSTEXIST\n\n        buffer&#91;0&#93; = 0 ;\n\n   // alloc for title\n\n   pTitle = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; hb_pcount&#40;&#41; &gt; 1 &amp;&amp; ISCHAR&#40; 2 &#41; &#41;\n   &#123;\n      wLen   = min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 2 &#41; &#41;;\n      CopyMemory&#40; pTitle, hb_parc&#40; 2 &#41;, wLen &#41;;\n      * &#40; pTitle + wLen &#41; = 0;\n\n   &#125;\n   else\n   &#123;\n      pTitle  = Title;\n   &#125;\n\n   // alloc for initial dir\n\n   pDir = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; hb_pcount&#40;&#41; &gt; 3 &amp;&amp; ISCHAR&#40; 4 &#41; &#41;\n   &#123;\n      wLen  = min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 4 &#41; &#41;;\n      CopyMemory&#40; pDir, hb_parc&#40; 4 &#41;, wLen &#41;;\n      * &#40; pDir + wLen &#41; = 0;\n   &#125;\n   else\n   &#123;\n      * &#40; pDir &#41; = 0;\n   &#125;\n\n   // alloc for file\n\n   pFile = &#40; LPSTR &#41; hb_xgrab&#40; 255 &#41;;\n\n   if &#40; hb_pcount&#40;&#41; &gt; 7 &amp;&amp; ISCHAR&#40; 8 &#41; &#41;\n   &#123;\n      wLen = min&#40; &#40; unsigned long &#41; 254, hb_parclen&#40; 8 &#41; &#41;;\n      CopyMemory&#40; pFile, hb_parc&#40; 8 &#41;, wLen &#41;;\n   &#125;\n   else\n   &#123;\n      wLen = min&#40; &#40; unsigned long &#41; 254, hb_parclen&#40; 1 &#41; &#41;;\n      CopyMemory&#40; pFile, hb_parc&#40; 1 &#41;, wLen &#41;;\n   &#125;\n   * &#40; pFile + wLen &#41; = 0;\n\n   // alloc for mask\n\n   pFilter = &#40; LPSTR &#41; hb_xgrab&#40; 400 &#41;;\n   wLen    = min&#40; &#40; unsigned long &#41; 398, hb_parclen&#40; 1 &#41; &#41;;\n   CopyMemory&#40; pFilter, hb_parc&#40; 1 &#41;, wLen &#41;;\n   * &#40; pFilter + wLen &#41; = 0;\n\n   #ifndef __FLAT__\n   //   _xunlock&#40;&#41;;\n   #endif\n\n   while&#40; * &#40; pFilter + w &#41; &#41;\n   &#123;\n      if&#40; * &#40; pFilter + w &#41; == \'|\' &#41;\n      &#123;\n         * &#40; pFilter + w &#41; = 0;\n         if &#40; hb_pcount&#40;&#41; &lt; 8 &#41;\n            * &#40;pFile&#41; = 0;\n      &#125;\n      w++;\n   &#125;\n\n   * &#40; pFilter + wLen  &#41; = 0;\n   * &#40; pFilter + wLen + 1 &#41; = 0;\n\n   if&#40; hb_pcount&#40;&#41; == 8 &#41;\n     strcpy&#40; buffer, hb_parc&#40;8&#41;&#41;;\n\n        memset&#40; &#40;void*&#41; &amp;ofn, 0, sizeof&#40; OPENFILENAME &#41; &#41;;\n        ofn&#46;lStructSize = sizeof&#40;ofn&#41;;\n        ofn&#46;hwndOwner = GetActiveWindow&#40;&#41;;\n        ofn&#46;lpstrFilter = pFilter;\n        ofn&#46;nFilterIndex = 1;\n        ofn&#46;lpstrFile = buffer;\n        ofn&#46;nMaxFile = sizeof&#40;buffer&#41;;\n        ofn&#46;lpstrInitialDir = hb_parc&#40;3&#41;;\n        ofn&#46;lpstrTitle = pTitle;\n        ofn&#46;nMaxFileTitle = 512;\n        ofn&#46;Flags = flags;\n\n        if&#40; GetOpenFileName&#40; &amp;ofn &#41; &#41;\n        &#123;\n                if&#40;ofn&#46;nFileExtension!=0&#41;\n                &#123;\n                        hb_retc&#40; ofn&#46;lpstrFile &#41;;\n                &#125;\n                else\n                &#123;\n                        wsprintf&#40;cCurDir,&quot;%s&quot;,&amp;buffer&#91;iPosition&#93;&#41;;\n                        iPosition=iPosition+strlen&#40;cCurDir&#41;+1;\n\n                        do\n                        &#123;\n                                iNumSelected++;\n                                wsprintf&#40;cFileName,&quot;%s&quot;,&amp;buffer&#91;iPosition&#93;&#41;;\n                                iPosition=iPosition+strlen&#40;cFileName&#41;+1;\n                                wsprintf&#40;cFullName&#91;iNumSelected&#93;,&quot;%s\\\\%s&quot;,cCurDir,cFileName&#41;;\n                        &#125;\n                        while&#40;  &#40;strlen&#40;cFileName&#41;!=0&#41; &amp;&amp; &#40; iNumSelected &lt;= 63 &#41; &#41;;\n\n                        if&#40;iNumSelected &gt; 1&#41;\n                        &#123;\n                                hb_reta&#40; iNumSelected - 1 &#41;;\n\n                                for &#40;n = 1; n &lt; iNumSelected; n++&#41;\n                                &#123;\n                                        hb_storc&#40; cFullName&#91;n&#93;, -1, n &#41;;\n                                &#125;\n                        &#125;\n                        else\n                        &#123;\n                                hb_retc&#40; &amp;buffer&#91;0&#93; &#41;;\n                        &#125;\n                &#125;\n        &#125;\n        else\n        &#123;\n                hb_retc&#40; &quot;&quot; &#41;;\n        &#125;\n&#125;\n\n// del msdn\nINT CALLBACK BrowseCallbackProc&#40;HWND hwnd,\n                                UINT uMsg,\n                                LPARAM lp,\n                                LPARAM pData&#41;\n&#123;\n   switch&#40;uMsg&#41;\n   &#123;\n   case BFFM_INITIALIZED&#58;\n      if &#40;szDirName&#41;\n      &#123;\n         // WParam is TRUE since you are passing a path&#46;\n         // It would be FALSE if you were passing a pidl&#46;\n         SendMessage&#40;hwnd, BFFM_SETSELECTION, TRUE, &#40;LPARAM&#41;szDirName&#41;;\n      &#125;\n      break;\n   &#125;\n   return 0;\n&#125;\n\n\n\n\n\n\n\n\n\n#pragma ENDDUMP\n\n\n\n\n/*\nprueba&#46;rc\n\nIDD_ABOUTBOX DIALOG 61, 128, 572, 280\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Zip - UnZip&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Fichero de origen&#58;&quot;, -1, 16, 17, 104, 8\n EDITTEXT 101, 16, 30, 242, 14, ES_AUTOHSCROLL\n PUSHBUTTON &quot;&#46;&#46;&#46;&quot;, 102, 262, 30, 16, 14\n LISTBOX 103, 16, 54, 242, 140, LBS_STANDARD\n PUSHBUTTON &quot;Abrir&quot;, 104, 210, 203, 50, 14\n LTEXT &quot;Fichero de destino&#58;&quot;, -1, 299, 17, 104, 8\n EDITTEXT 105, 299, 30, 242, 14, ES_AUTOHSCROLL\n PUSHBUTTON &quot;&#46;&#46;&#46;&quot;, 106, 545, 30, 16, 14\n LISTBOX 107, 299, 54, 242, 140, LBS_STANDARD\n PUSHBUTTON &quot;&#46;&#46;&#46;&quot;, 108, 545, 177, 16, 14\n PUSHBUTTON &quot;Comprimir&quot;, 109, 492, 203, 50, 14\n CONTROL &quot;&quot;, 110, &quot;TMeter&quot;, 0 | WS_CHILD | WS_VISIBLE, 17, 229, 520, 3\n DEFPUSHBUTTON &quot;OK&quot;, 1, 492, 256, 50, 14\n&#125;\n\n*/\n[/code:38yjz1kt]\n\nEn los ficheros hay uno en concreto que arroja algo de luz, a falta de documentación es \"vb.txt\" donde indica mas o menos lo que recibe cada parámetro.\n\nYo lo he enlazado con VC. \n\nHay que enlazar las libs correspondientes para poder llamar a las funciones de la dll\n\nSi estais con Borland, creo que se pueden sacar las libs de una dll con implib. Esto no lo tengo muy seguro.\n\nCreo que esto solucionaría en gran parte el problema de harbour con los zips.\n\nUn saludo\n\n\n[/url]','',0,'EIA=','38yjz1kt',1,0,'',28,0,0),(20715,4682,3,227,0,'201.93.198.242',1161707681,1,0,1,1,1,1,'','TOOLBAR','Amigos.\n\nComo fazer para trocar a imagem e a função de um botao de uma TOOLBAR ??\n\nObrigado desde ja pela ajuda.','',0,'EIA=','3c4u2c56',1,0,'',227,0,0),(20716,4677,6,28,0,'213.27.201.254',1161707760,1,0,1,1,1,0,'','Por cierto','Por cierto, me ha parecido entender que habia version para Windows CE','',0,'EIA=','vk400sds',1,0,'',28,0,0),(20717,4680,3,6,0,'87.19.15.42',1161707887,1,0,1,1,1,1,'','','Ah, ok.\n\nThank you.\n\nEMG','',0,'EIA=','2fg2ts23',1,0,'',6,0,0),(20718,4679,6,180,0,'83.61.174.165',1161708641,1,0,1,1,1,0,'','','Adolfo, lo leí en este mismo foro. Busca por \"GTWIN\" y encontrarás un montón de referencias. Por ejemplo: <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3569\">http://fivetechsoft.com/forums/viewtopic.php?t=3569</a><!-- m -->\n\nUn saludo,\nManuel','',0,'EIA=','2lun17zt',1,0,'',180,0,0),(20719,4672,3,303,0,'72.199.41.171',1161708703,1,0,1,1,1,0,'','','Rimantas,\n\nThanks for posting your solution.\n\nJames','',0,'EIA=','1ouckrf8',1,0,'',303,0,0),(20720,4644,7,598,0,'200.11.139.61',1161710993,1,0,1,1,1,1,'','','vale, vale.. yo espero; de momento lo he solucionado agregando las funciones q faltan en blanco.. muchas gracias por su atencion Don Antonio.','',0,'EIA=','27sf2rhu',1,0,'',598,0,0),(20721,4682,3,2,0,'87.218.146.172',1161714863,1,0,1,1,1,1,'','','Christiano,\n\noToolBar:ChangeBitmap( nButton, nImage )\n\nwhere nButton is the button order and nImage the imagelist bitmap order.','',0,'EIA=','xezwodd9',1,0,'',2,0,0),(20722,4679,6,2,0,'87.218.146.172',1161715166,1,0,1,1,1,1,'','','Adolfo,\n\n1) Renombra GTGUI.lib como GTWIN.lib\n\nEn FWH whatsnew.txt:\n\n * New: IMPORTANT: Due to recent changes in Harbour and xHarbour, GTGUI.LIB must be linked instead of GTWIN.LIB.','',0,'EIA=','7zg2hokq',1,0,'',2,0,0),(20723,4683,2,832,0,'201.122.21.224',1161716345,1,0,1,1,1,0,'','ayuda!!! COMO AGREGAR UN CAMPO A UNA DBF','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> HOLA A TODOS, UN FAVOR ALGUIEN ME PUEDE AYUDAR PARA AGREGAR UN CAMPO A UNA DBF DESDE FIVEWIN.\n\n\n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> COMO PROGRAMAR ESTE CASO, PARA AGREGAR CAMPOS, ESPERO Y ME PUEDAN AYUDAR','',0,'EIA=','2fr5xrdw',1,0,'',832,0,0),(20724,4682,3,227,0,'201.92.102.129',1161717619,1,0,1,1,1,1,'','','Obrigado Antonio...\n\nMas e para trocar o action ???','',0,'EIA=','n88ec9zn',1,0,'',227,0,0),(20725,4684,6,53,0,'189.139.11.112',1161717647,1,0,1,1,1,1,'','Una COMBOBOX','Amigos:\n\nEl siguiente código\n\nLOCAL nMes     := 1\nLOCAL aMeses := {\"Ene\",\"Feb\",\"Mzo\",\"Abr\",\"May\",\"Jun\",Jul\",;\n                            \"Ago\",\"Sep\",\"Oct\",\"Nov\",\"Dic\"}\n\nREDEFINE COMBOBOX aGets[2] VAR nMes ID 102 OF oDlg UPDATE;\n			PROMPTS aMeses\n\nEn Harbour el valor retornado es la posición del elemento seleccionado, por ejemplo: si el usuario selecciona JUL, el valor retornado es 7\n\nPero en xHarbour el valor que retorna es el texto \"JUL\" no su posición en el array.\n\nHay alguna forma de que con xHarbour me devuelva el mismo valor que con Harbour (7)\n\nSaludos, Armando','',0,'','116uuuor',1,0,'',53,0,0),(20726,4685,6,486,0,'200.184.85.3',1161718277,1,0,1,1,1,0,'','date/hour Server','How does he do to verify the date and current hour of the server of files to be same in all stations?\n\nClemerson','',0,'','38h8flps',1,0,'',486,0,0),(20727,4678,6,104,0,'201.58.91.192',1161719266,1,0,1,1,1,0,'','','Olá Rene,\n\nPrimeiramente obrigado por responder  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[code:2ba8y77j]\nIncorrect&#58;\n\nindex on CLI_CODE tag CODI to &#40;&quot;CLIENTES&quot;&#41; for !CLIE-&gt;&#40;deleted&#40;&#41;&#41;\n\nCorrect&#58;\n\nindex con CLI_CODE tag CODI for ! deleted&#40;&#41;\n[/code:2ba8y77j]\n\nRealmente foi só tirar o ALIAS e funcionou 100 %  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nGracias,\n\nRossine.','',0,'AIA=','2ba8y77j',1,0,'',104,0,0),(20728,4134,4,267,0,'200.208.238.2',1161719399,1,0,1,1,1,1,'','','Hi Antonio,\n\nWithout wanting to pressure you, but necessary to inform a date for conclusion of the system for my customer. How I am depending only on the support the ftp, you has some forecast pra to have this concluded class?','',0,'AIA=','37j5d741',1,0,'',267,0,0),(20729,4683,2,138,0,'189.141.70.60',1161721572,1,0,1,1,1,1,'','','es lo mismo para Clipper, xHarbour y FW, tienes que crear un dbf temporal:\n\n1) Abres la tabla a la cual le quieres agregar un campo\n\nUSE tabla\n\n2) Obtienes la estructura de la tabla\n\naEstructura := DBSTRUCT()\n\n3) Cerramos la tabla \n\nDBCLOSEAREA()\n\n4) Agregamos los campos a la estrctura obtenida\n\nAADD(aEstructura, {\"campo\",\"c\",30,0})\nAADD(aEstructura,{\"otrocamp,\"n\",10,2})\nAADD(aEstructura,{\"otromas\",\"l\",1,0})\n\n5) Creamos una tabla temporal\n\nDBCREATE(\"temp.dbf\",aEstructura)\n\n6) La abrimos\n\nUSE temp.dbf\n\n7) Agregamos los campos de la tabla anterior\n\nAPPEND FROM tabla\n\n<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Borramos la tabla vieja\n\nFERASE(\"tabla.dbf\")\n\n9) Renombramos la tabla temporal:\n\nFRENAME(\"temp.dbf\",\"tabla.dbF\")\n\nY lisot','',0,'AIA=','zasgfijj',1,0,'',138,0,0),(20730,4686,2,838,0,'80.59.225.15',1161727038,1,0,1,1,1,0,'','correo con blat','Hola de nuevo amigos\n\nEstoy utilizando para mandar emails con un adjunto, blat junto con una función sendmail, creo que de Bingen.\nRealmente soy yo el que recibo el email, ya que el envio me lo hacen mis agentes comerciales.\nPoco a poco he ido dejando de recibirlos, aunque éstos me dicen que no han cambiado nada en el equipo. Y ésto me lleva a pensar que no es un método muy seguro para enviar correo con adjunto.\nSabeis si hay algo para Five que no sea harbour (ya que lo he intentado muchas veces pero imposible migrar), y que mejore y sea más seguro que blat ?.\n\nUn saludo','',0,'AIA=','2uordyfb',1,0,'',838,0,0),(20731,4687,3,303,0,'72.199.41.171',1161730143,1,0,1,1,1,0,'','How to bring mdichild to foreground','Doews anyone have any idea how to bring a mdichild window to the foreground (make it active)? I have tried setForegroundWindow(), setFocus(), and setActiveWindow() and none seem to work.\n\nIn the following example, pressing any of the buttons should bring the clients window to the foreground--at least it appears that it should from the documentation. I must be doing something wrong.\n\nOh, I also tried showWindow() and that didn\'t work either.\n\nJames\n\n[code:2hc9u1k8]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd, oBar\n\n   define window oWnd MDI\n\n   define buttonbar oBar of oWnd\n\n   define button of oBar ;\n      action setForegroundWindow&#40; oWnd&#58;oWndClient&#58;aWnd&#91;1&#93;&#58;hWnd &#41;\n   define button of oBar ;\n      action setFocus&#40; oWnd&#58;oWndClient&#58;aWnd&#91;1&#93;&#58;hWnd &#41;\n   define button of oBar ;\n      action setActiveWindow&#40; oWnd&#58;oWndClient&#58;aWnd&#91;1&#93;&#58;hWnd &#41;\n\n   activate window oWnd on init &#40;clients&#40;&#41;, matters&#40;&#41; &#41;\n\nreturn nil\n\nfunction clients&#40;&#41;\n   local oWnd\n   define window oWnd title &quot;Clients&quot; mdichild of wndMain&#40;&#41;\n   activate window oWnd\nreturn nil\n\nfunction matters&#40;&#41;\n   local oWnd\n   define window oWnd title &quot;Matters&quot; mdichild of wndMain&#40;&#41;\n   activate window oWnd\nreturn nil[/code:2hc9u1k8]','',0,'AIA=','2hc9u1k8',1,0,'',303,0,0),(20732,4687,3,303,0,'72.199.41.171',1161731262,1,0,1,1,1,0,'','','I found the answer:\n\n   wndMain():oWndClient:aWnd[1]:setFocus()\n\nJames','',0,'','1po8rt1m',1,0,'',303,0,0),(20733,4684,6,73,0,'201.132.230.81',1161738210,1,0,1,1,1,0,'','','Armando creo que hay dos formas de poderlo hacer:\n1. oCbx:nAt  te da la poscion del dato seleccionado\n2. usa un ASCAN(aItems,cVar) y te devuelve la poscion donde esta \"Jul\" y cero si no existe en el arreglo\nSalu2\nPaco','',0,'','15gnjimq',1,0,'',73,0,0),(20734,4684,6,138,0,'148.221.197.247',1161742677,1,0,1,1,1,1,'','','Depende a que inicialices la variable que controla el combo.\n\nSi la inicializas con un valor numerico, regresa un numero, la posicion del elemento seleccionado y si la inicializas con un valor del array, te regresa una cadena de caracteres con el valor del elemento seleccionado\n\nEn tu caso, nMeses tendria que devolver siempre el valor, si inicializas nMeses =\"Ene\" te regresara el valor seleccionado y no el numero','',0,'','231ifi8m',1,0,'',138,0,0),(20735,4684,6,53,0,'189.139.11.112',1161745578,1,0,1,1,1,1,'','','Amigos:\n\nPrimero agradecer sus respuestas y luego lo siguiente. Paco, de una u otra forma hay solución solo que en Harbour el manejo era muy simple y no he querido agregar más código.\n\nRené, como siempre apoyando, fijate en la siguiente línea\nLOCAL nMes := 1 \nestoy asignando un valor a la variable pero no hay de piña, siempre me regresa una cadena y obviamente eso me provoca un error.\n\nUn abrazo a ambos','',0,'','xgdtxx2a',1,0,'',53,0,0),(20736,4684,6,53,0,'189.139.11.112',1161747568,1,0,1,1,1,1,'','','Master:\n\nEn realidad sí me devuelve un número o una cadena, dependiendo de cómo inicialize la variable, el problema esta en que el combo debería mostrar el texto del elemento seleccionado pero no es así, me muestra un 0 cuando inicializo la variable con un número y despues de elegir un nuevo elemento.\n\nSaludos','',0,'','1agiljjf',1,0,'',53,0,0),(20737,4672,3,31,0,'89.190.104.93',1161748688,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1be7gbq8]Rimantas,\n\nThanks for posting your solution.\n\nJames[/quote:1be7gbq8]\n\n  Oh ! I did mistake  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> ! After some test I found that this is correct :\n\n[code:1be7gbq8]\nfunction read_reg&#40;&#41;\nlocal aRet &#58;= &#123;&#125;\nlocal oReg &#58;= TReg32&#40;&#41;&#58;New&#40; 2147483649, &quot;Control Panel\\International&quot; &#41;\naadd&#40; aRet, alltrim&#40; oReg&#58;Get&#40; &quot;sDecimal&quot;,  &quot; &quot; &#41; &#41; &#41;\naadd&#40; aRet, alltrim&#40; oReg&#58;Get&#40; &quot;sThousand&quot;, &quot; &quot; &#41; &#41; &#41;\noReg&#58;Close&#40;&#41;\nreturn&#40; aRet &#41;\n[/code:1be7gbq8]\n\n It must be sDecimal &amp; sThousand . \n\n Regards !','',0,'gIA=','1be7gbq8',1,0,'',31,0,0),(20738,4684,6,53,0,'189.139.11.112',1161749552,1,0,1,1,1,1,'','','Amigos:\n\nProblema resuelto, por si a alguien le sirve la solución, el control lo tenia definido como DROPDOWN y debe ser DROPDOWN LIST\n\nMuchas gracias por su orientación, Armando','',0,'gIA=','xytkhx8k',1,0,'',53,0,0),(20739,4688,19,123,0,'83.53.67.25',1161753925,1,0,1,1,1,0,'','Máquina virtual de xHarbour IV','Hola,\n\nCuarto artículo sobre la máquina virtual de (x)Harbour by Walter Negro en <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=80\">http://www.capelblog.com/?p=80</a><!-- m -->\n\nSaludos\nJosé Luis Capel','',0,'gIA=','i9ks65wv',1,0,'',123,0,0),(20740,4689,3,239,0,'218.19.62.29',1161757568,1,0,1,1,1,0,'','How Could report save as a xls file ?','Hi,\n  Many of our customers ask if our report could save as excel file, for other software\' report engine  with functions  save as a  pdf, excel,jpg,...\n\nThanks!\nShuming Wang','',0,'gIA=','e91ovqa5',1,0,'',239,0,0),(20741,4690,19,2,0,'87.218.146.29',1161758644,1,0,1,1,1,1,'','Vista Transformation pack for XP','<!-- m --><a class=\"postlink\" href=\"http://www.windowsxlive.net/download/vtp5_5.zip\">http://www.windowsxlive.net/download/vtp5_5.zip</a><!-- m -->\n\nIt works fantastic and XP looks like Vista <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','2z6muoja',1,0,'',2,0,0),(20742,4669,6,28,0,'213.27.201.254',1161759892,1,0,1,1,1,0,'','','Pues si, acabo de comprobarlo. ¿Cual es la explicación de que funcione?','',0,'gIA=','fjjipwpj',1,0,'',28,0,0),(20743,4686,2,92,0,'213.96.45.9',1161760809,1,0,1,1,1,0,'','Re: correo con blat','[quote=&quot;JoseLuis&quot;:1w3qu7wb]Hola de nuevo amigos\n\nEstoy utilizando para mandar emails con un adjunto, blat junto con una función sendmail, creo que de Bingen.\nRealmente soy yo el que recibo el email, ya que el envio me lo hacen mis agentes comerciales.\nPoco a poco he ido dejando de recibirlos, aunque éstos me dicen que no han cambiado nada en el equipo. Y ésto me lleva a pensar que no es un método muy seguro para enviar correo con adjunto.\nSabeis si hay algo para Five que no sea harbour (ya que lo he intentado muchas veces pero imposible migrar), y que mejore y sea más seguro que blat ?.\n\nUn saludo[/quote:1w3qu7wb]\n\nA modo de información; yo he tenido el mismo problema.\n\nParece ser que al enviar un correo mediante Blat el \"camino\" que sigue el mensaje no es el mismo que si lo envías por Outlook (vaya barbaridad que acabo de decir).\nOtra posibilidad es que el mensaje lleve identificación de cual es el medio que lo está enviando (Blat - Outlook).\nLa consecuencia es la misma, es detectado por algún servidor antispam al cual no le gusta la cuenta de envío y evita su envío.\n\nMe volví loco intentando averiguar porqué con Outlook todo va bien y con Blat me eran rebotados (como ves no me he curado y escribo barbaridades).\n\nSi aún así sigues interesado con Blat (yo lo estoy) tengo una clase (que aun no he compartido) para el manejo de Blat desde FiveWin que incluso informa del éxito o no del envío.\n\nSaludos\nCarlos G.','',0,'gA==','1w3qu7wb',1,0,'',92,0,0),(20744,4669,6,123,0,'88.0.86.53',1161763095,1,0,1,1,1,0,'','','Paco,\n\nEs la sobrecarga de operadores.  Mira este ejemplo (continuado del tuyo).\n\n[code:1ghnk6pu]FUNCTION Main&#40;&#41;\nlocal o &#58;= CString&#40;&#41;&#58;New&#40; &quot;Hola que tal estas&quot; &#41;\n\nMsginfo&#40; o - &quot;que tal &quot;  &#41;  // \'Hola estas\'\nMsgInfo&#40; o + &quot; PepeLuis&quot;&#41; // Hola que tal estas PepeLuis\'\nMsgInfo&#40; STR&#40; o * 30&#41; &#41; // 150 \nRETURN NIL\n\nCLASS CString\n\n      DATA cBuffer\n      DATA nBuffer\n\n      METHOD New&#40; cBuffer &#41; CONSTRUCTOR\n      METHOD Menos&#40; cAux &#41;   OPERATOR &quot;-&quot;\n      METHOD Mas&#40; u &#41; OPERATOR &quot;+&quot;\n      METHOD Por&#40; u &#41; OPERATOR &quot;*&quot;\n\n\nENDCLASS\n\nMETHOD New&#40; cBuffer &#41; CLASS CString\n\n  &#58;&#58;cBuffer &#58;= cBuffer\n  &#58;&#58;nBuffer &#58;= 5\n\nreturn self\n\nMETHOD Menos&#40; cAux &#41; CLASS CString\nreturn strtran&#40; &#58;&#58;cBuffer, cAux, &quot;&quot; &#41;\n\nMETHOD MAS&#40; u &#41; CLASS cString\nRETURN &#58;&#58;cBuffer + u\n\nMETHOD POR&#40; u &#41; CLASS cString\nRETURN &#58;&#58;nBuffer * u[/code:1ghnk6pu]\n\nSe pueden sobrecargar prácticamente todos los operadores existentes en (x)harbour.  \n\nSaludos,\nJosé Luis Capel','',0,'AIA=','1ghnk6pu',1,0,'',123,0,0),(20745,4669,6,28,0,'213.27.201.254',1161763705,1,0,1,1,1,0,'','','Gracias, \n\nEl problema es que no me habia percatado de como funcionaban los operadores.','',0,'AIA=','3dqo12yr',1,0,'',28,0,0),(20746,4676,6,656,0,'83.230.172.252',1161763985,1,0,1,1,1,1,'','','FUNCIONA,\n muchas gracias, me traia un poco de cabeza.\n\nSalu2\nJavier','',0,'AIA=','rbegkmss',1,0,'',656,0,0),(20747,4686,2,838,0,'80.34.222.112',1161768076,1,0,1,1,1,0,'','','Fivewidi\n\nPor supuesto que estoy interesado, ya que tengo realizadas muchas rutinas de envio con blat.\nEl tema es que cuando estaba a fondo con la programación en Fivewin, me llegó información sobre Blat, y por eso me puse a trabajar con él. \n\nSi hubiera otra forma desde Fivewin de enviar correo no me imporatía probar, aunque prefiero ésto ya que como he dicho tengo rutinas de envío en distintos programas.\n\nSi me puedes mandar alguna ayudita te lo agracederé\n\nUn saludo\n\nJose Luis','',0,'AIA=','3i8k9gjg',1,0,'',838,0,0),(20748,4686,2,838,0,'80.34.222.112',1161769127,1,0,1,1,1,0,'','','Hola de nuevo\n\nCreo que se me ha olvidado decir en mi exposición anterior, que utilizo la clase sendmail de Bingen, modificada por Jesus Diez, y que me sale un cuadro de dialogo en el que visualizo nombre del servidor, etc.. Pues bien en éste cuado de dialogo me ofrece la posibilidad de hacer un test de envío, es decir mandar sólamente Asunto y un texto sin adjunto, y ésto sí funciona; es decir éste invento funciona si sólo mando texto. No envía el correo si lleva un adjunto, o por lo menos no llega a su destino, ya que me sale un diálogo que dice \"Enviando correo..\", pero como no me devuelve nada, ni llega a su destino, pues no se si es que no sale del host, o se pierde por el camino.\n\nAdemás de ésto, habría alguna manera de que como en cualquier programa de correo me enviara confirmación de que ha llegado?\n\nUn saludo y gracias\n\nJose Luis','',0,'AIA=','2u7cx0zw',1,0,'',838,0,0),(20749,4691,20,837,0,'81.208.83.249',1161771478,1,0,1,1,1,1,'','Gestione BMP esterni all\'EXE','E\' possibile gestire esternamente al programma (.EXE) i BMP (o JPG ...) per evitare che il programma .EXE sia troppo ingombrante ?\n\nGrazie a tutti.','',0,'AIA=','mimnx31p',1,0,'',837,0,0),(20750,4677,6,294,0,'201.250.195.155',1161773027,1,0,1,1,1,1,'','','Gracias Paco y Manuel, pruebo ambos y luego les cuento.','',0,'AIA=','1nuuuvwh',1,0,'',294,0,0),(20751,4686,2,838,0,'80.34.222.112',1161775997,1,0,1,1,1,0,'','','Rectifico, me llega cuando hago Test, pero veo en el outlook, que de: y para: son lo mismo, osea que yo me lo envío y yo lo recibo.\n\nJose Luis','',0,'AIA=','snw0be0w',1,0,'',838,0,0),(20752,4679,6,105,0,'200.72.140.34',1161777332,1,0,1,1,1,1,'','','Eso era Antonio.... Solucionado.\n\nSin embargo aun me encuentro con un problema que te habia comentado meses atras... necesito enviar dos CHR(0) a un ACTIVEX, pero no me es posible por lo siguiente. Ejecuta lo siguiente. Uso Harbour (de Fivetechsoft.com) y FWH28 (septiembre) para este ej.\n\nExtension:=chr(2) + Chr(1)\nMsgStop(len(Extension),\"Extension Len()\")\nMsgStop(Len(AnsiToWide( Extension )),\"Extension Len(AnsiToWide)\")\nMsgInfo(Len( WideToAnsi(AnsiToWide(Extension))) == Len(Extension))\n\nResultados 2,5,.T.    Todo Bien\n\nExtension:=chr(0) + Chr(1)\nMsgStop(len(Extension),\"Extension Len()\")\nMsgStop(Len(AnsiToWide( Extension )),\"Extension Len(AnsiToWide)\")\nMsgInfo(Len( WideToAnsi(AnsiToWide(Extension))) == Len(Extension))\n\nResultados 2,1,.F.    Todo mal\n\nExtension:=Chr(0) + Chr(0)\nMsgStop(len(Extension),\"Extension Len()\")\nMsgStop(Len(AnsiToWide( Extension )),\"Extension Len(AnsiToWide)\" )\nMsgInfo(Len( WideToAnsi(AnsiToWide(Extension))) == Len(Extension))\n\nResultados 2,1,.F.     Todo Mal\n\nPor lo que al enviar el String al OCX me falla, ya que no envia nada. Existira otra forma de Enviar los CHR(0) al OCX.\nEn xHarbour lo Solucione con la Ayuda de la Funcion VTArrayWrapper(), pero ahora lo necesito solo para Harbour..\n\nGracias de antemano..','',0,'AIA=','2aq92aya',1,0,'',105,0,0),(20753,4686,2,92,0,'213.96.45.9',1161778492,1,0,1,1,1,0,'','Clase para manejo de blat.exe desde FiveWin. V1.1','[quote=&quot;JoseLuis&quot;:13toeitt]Fivewidi\n\nPor supuesto que estoy interesado, ya que tengo realizadas muchas rutinas de envio con blat.\nEl tema es que cuando estaba a fondo con la programación en Fivewin, me llegó información sobre Blat, y por eso me puse a trabajar con él. \n\nSi hubiera otra forma desde Fivewin de enviar correo no me imporatía probar, aunque prefiero ésto ya que como he dicho tengo rutinas de envío en distintos programas.\n\nSi me puedes mandar alguna ayudita te lo agracederé\n\nUn saludo\n\nJose Luis[/quote:13toeitt]\n\nAquí va el link para bajar la clase:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0285db1b10/TfBlat.prg.html\">http://hyperupload.com/download/0285db1 ... t.prg.html</a><!-- m -->\n\nSaludos y suerte.\nCarlos G.','',0,'gA==','13toeitt',1,0,'',92,0,0),(20754,4692,17,92,0,'213.96.45.9',1161778585,1,0,1,1,1,0,'','Clase para manejo de blat.exe desde FiveWin. V1.1','Hola a todos,\n\nLink para bajar la clase:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0285db1b10/TfBlat.prg.html\">http://hyperupload.com/download/0285db1 ... t.prg.html</a><!-- m -->\n\nSaludos\nCarlos G.','',0,'gA==','12uqcjny',1,0,'',92,0,0),(20755,4686,2,838,0,'80.34.222.112',1161780132,1,0,1,1,1,0,'','','Me la bajo, pero tiene 0 Kb, y la abro y está vacía.\n\nSaludos','',0,'gA==','3dvinjn6',1,0,'',838,0,0),(20756,4693,2,832,0,'201.122.21.224',1161785155,1,0,1,1,1,0,'','COMO RECORRER UN DIRECTORIO en fw','<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  HOLA A TODOS Y GRACIAS POR EL APOYO QUE ME HAN BRINDADO..\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> MI DUDA AHORA ES COMO RECORRER UN DIRECTORIO Y CONOCER TODO LO QUE TIENE, Y SI EXISTEN CARPETAS DENTRO DE ESTE DIRECTORIO ENTRAR A ELLAS\n\n\n <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> ESPERO Y ME PUEDAN AYUDAR.............','',0,'gA==','3q4eq11e',1,0,'',832,0,0),(20757,4694,6,131,0,'194.179.55.36',1161786252,1,0,1,1,1,0,'','Formulario continuo de introducción de datos','Hola:\nQuiero crear un formulario continuo de introducción de datos. Esto es:\n1.- Desde un browse al pulsar nuevo lanzar un formulario de edición de datos en modo añadir\n2.- Rellenar el formulario y que tenga los botones [Aceptar y añadir] [Aceptar y salir] [Cancelar]. El segundo y tercero son los de siempre, pero al dar al segundo quiero que el formulario de edición quede en blanco y permita dar de alta otro registro.\nHe pensado en usar una función puente que sea llamada desde el browse y a su vez llame al formulario de edición y de este se vuelva a la función puente que implemente un bucle que haga llamadas.\nPero me parece poco elegante hacerlo así, y me gustaría hacerlo todo desde el la función que controla el formulario de edición.\n¿ Alguna idea ?\n\nsaludos,','',0,'','1faeao80',1,0,'',131,0,0),(20758,4694,6,785,0,'190.64.103.54',1161791224,1,0,1,1,1,0,'','','José Luis:\n\nNo se si esta es la idea: Al dar Aceptar y Añadir guardas los datos\nen la base de datos y en el mismo boton reinicializas tus variables-gets,\nVariable1:=space(20),oGet1:Refresh(), variable2:=Date(),oget2:Refresh(),\noGet1:SetFocus().\n\nSaludos\n\nRuben Fernandez.','',0,'','f25sh9pf',1,0,'',785,0,0),(20759,4695,3,32,0,'168.209.98.43',1161793326,1,0,1,1,1,0,'','Shfile function','Hi, \n\nI\'m guessing SHFile uses SHFileOperation, and the structure SHFILEOPSTRUCT?\n\nIs there any way to populate fFlags with FOF_ALLOWUNDO+ FOF_NOCONFIRMATION to recycle a file?\n\nAlex','',0,'','3584ionf',1,0,'',32,0,0),(20760,4692,17,439,0,'200.125.33.37',1161796467,1,0,1,1,1,1,'','','Amigo el link baja un archivo de 0 bytes. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'','2tu9qrlh',1,0,'',439,0,0),(20761,4689,3,439,0,'200.125.33.37',1161796952,1,0,1,1,1,1,'','Re: How Could report save as a xls file ?','[quote=&quot;ShumingWang&quot;:34778ps5]Hi,\n  Many of our customers ask if our report could save as excel file, for other software\' report engine  with functions  save as a  pdf, excel,jpg,...\n\nThanks!\nShuming Wang[/quote:34778ps5]\n\nSee this topic, I think it could be what you are looking for...\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3023\">http://fivetechsoft.com/forums/viewtopic.php?t=3023</a><!-- m -->','',0,'gA==','34778ps5',1,0,'',439,0,0),(20762,4695,3,2,0,'87.218.146.201',1161797452,1,0,1,1,1,1,'','','Alex,\n\noStruct:fFlags = nAnd( FOF_ALLOWUNDO, FOF_NOCONFIRMATION )','',0,'gA==','10gvhkyd',1,0,'',2,0,0),(20763,4679,6,2,0,'87.218.146.201',1161800040,1,0,1,1,1,1,'','','Adolfo,\n\nPor lo visto los dobles ceros son interpretados como final de cadena por las funciones de Windows de conversión a wide.\n\nUna solución sería que guardes el valor de cada byte convertido a wide (dos bytes) y que construyas tu mismo la cadena a enviar:\n[code:3id9pip0]\n   local WCero &#58;= AnsiToWide&#40; Chr&#40; 0 &#41; &#41;\n   local WUno  &#58;= AnsiToWide&#40; Chr&#40; 1 &#41; &#41;\n   local WDos  &#58;= AnsiToWide&#40; Chr&#40; 2 &#41; &#41;\n\n   local WExtension &#58;= WCero + WUno\n   &#46;&#46;&#46;\n[/code:3id9pip0]','',0,'AIA=','3id9pip0',1,0,'',2,0,0),(20764,4682,3,2,0,'87.218.146.201',1161800348,1,0,1,1,1,1,'','','Christiano,\n\noToolBar:aButtons[ n ][ 1 ] := { || ... }','',0,'','24xu4at1',1,0,'',2,0,0),(20765,4134,4,2,0,'87.218.146.201',1161800499,1,0,1,1,1,1,'','','Vilian,\n\nWe are finishing the new FWPPC build (much improved memory management and use of current Harbour CVS files). In a matter of two or three days we may be able to continue development with WinINet.dll','',0,'','bciisvth',1,0,'',2,0,0),(20766,4686,2,838,0,'80.59.225.15',1161800679,1,0,1,1,1,0,'','','Ya tengo la clase en mi poder, pero al intentar mandar un fichero me da errores por todos los sitios.\nEn la clase me viene a titulo de ejemplo que una linea para enviar podria ser:\n******************************\n     oblat := Tfblat():New( \"Amiservidor.calimero.com\", ;\n                            \"miemailde@envio.com\", ;\n                            \"c:\\utilidades\\Blat\\Blat.exe\", ;\n                            \"c:\\temp\\\", ;\n                            {\"fivewidi@jazzfree.com\", \"mitia@lola.com\"}, ;\n                            {\"cgelabert@laleche.com\", \"cogeeldinero@ycorre.com\"}, ;\n                            {\"ghermano@laleche.com\", \"control@emails.com\"}, ;\n                            \"Asuntito prueba mensaje\", ;\n                            \"el mensajito\" ;\n                          ):Send():End()\n*********************************\nY sobre ésto tengo varias dudas:\nDonde dice \"Amiservidor.calimero.com\", supongo que será mi servidor.\nLo que pasa es que yo no se cual podrá ser, ya que como te indico, el programa lo ejecutan mis comerciales y cada uno tendrá el suyo, ¿que tendría que poner ahí para que como hace la clase de bingen lo detecte automáticamente?\nY luego está el adjunto.- ¿donde pongo el fichero adjunto?, por ejemplo (c:\\impresos\\130.pdf)\n\nEn resumen como quedaría una línea de envío que hiciera lo siguiente:\n\n(\"mi correo desde el que mando\",\"destino\",\"asunto\",\"comentario\",\"fichero adjunto\"). Esto es sólo lo que mando, teniendo en cuenta que no se la variable \"mi correo desde el que mando\", y si conozco el resto.\nYo pongo lo siguiente:\n oblat := Tfblat():New( , ;\n                            \"micorreo@telefonica.net\", ;\n                            \"c:\\mocwin\\Blat.exe\", ;\n                            \"c:\\temp\\\", ;\n                            {\"destino@yahoo.es\"}, ;\n                            {\"Copia@yahoo.es\"}, ;\n                            {\"Copia146@yahoo.es\"}, ;\n                            \"Asuntito prueba mensaje\", ;\n                            \"el mensajito\" ;\n                          ):Send():End()\n\nSi lo hago así a modo de prueba, me da error send()\n\n*********************************\n   Size:   684,864 bytes\n   Max files handles permited: ( SetHandleCount() )  91\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 25/10/06, 20:50:11\n   Error description: Error Objects/13  No Command Obj: ARRAY:SEND\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from TFBLAT:SEND(0)\n   Called from MANDAPDF(31)\n   Called from (b)HAZMENU(307)\n\nNo se si estaré aburriendo, pero es que lo necesito.\n\nGracias y saludos\n\nJose Luis','',0,'','34468p9m',1,0,'',838,0,0),(20767,4696,6,180,0,'83.34.25.228',1161805017,1,0,1,1,1,0,'','Búsqueda incremental en xHarbour','En Clipper+Fivewin el siguiente código funciona correctamente, es decir cada vez que se introduce una letra en el GET el Listbox se mueve hasta el registro que contiene esas letras, sin embargo con FWH el Listbox no se mueve conforme se van introduciendo letras, solamente cuando se pulsa la tecla retroceso después de introdocir una cadena. Por favor, pueden echarle un vistazo al código ?, tal vez sea necesaria alguna optimización para xHarbour pero no encuentro que puede ser:\n\n[code:2w4ss14n] REDEFINE GET oGet VAR cText ID 801 PICTURE &quot;@!&quot; OF oDlg;\n     ON CHANGE &#40; Self&#58;Assign&#40;&#41;,;\n     Locator&#40;&quot;&quot;+SubStr&#40;cText,1,Self&#58;nPos-1&#41;+Upper&#40;Chr&#40; nKey &#41;&#41;,oLbx,cUsaBase&#41; &#41;\n\n\n*********#######*****************\nFUNCTION LOCATOR&#40;cKey,oB,cUsaBase&#41;\n*********#######*****************\n// oB = TWBrowse Object, cKey = Contenido del Get\nlocal nSeekrec\n//\nnSeekrec&#58;=&#40;cUsaBase&#41;-&gt;&#40;Recno&#40;&#41;&#41;\nIF GetASyncKey&#40; VK_BACK &#41;\ncKey &#58;= SubStr&#40;cKey,1,Len&#40;cKey&#41;-1&#41;\nEndIF\n\n&#40;cUsaBase&#41;-&gt;&#40;DbSeek&#40;cKey,&#46;T&#46;&#41;&#41;\nIf !Found&#40;&#41;\nGO nSeekrec\nEndIF\n//\noB&#58;Refresh&#40;&#41;\n//\nRETURN&#40; NIL &#41;\n//\n[/code:2w4ss14n]','',0,'AIA=','2w4ss14n',1,0,'',180,0,0),(20768,4691,20,6,0,'87.18.239.117',1161805906,1,0,1,1,1,1,'','Re: Gestione BMP esterni all\'EXE','Sì, ogni comando ha la clausola FILE per caricarlo da file e RESOURCE per caricarlo da risorsa.\n\nEMG','',0,'AIA=','36w4g0yc',1,0,'',6,0,0),(20769,4697,6,180,0,'83.34.25.228',1161805947,1,0,1,1,1,0,'','nSerialHD() distinto resultado en FW que FWH','He observado que el resultado de nSerialHD() es distinto en FW que en FWH.\nEn FW te devuelve el número de serie de la unidad donde se ejecuta.\nEn FWH devuelve siempre el número de serie de la unidad C, independiente de la unidad donde se ejecute.\nNo deberían funcionar igual o estoy en un error ?\n\nsaludos,\nManuel','',0,'AIA=','2j4tk9mn',1,0,'',180,0,0),(20770,4698,2,832,0,'201.122.21.224',1161808936,1,0,1,1,1,0,'','CONOCER LOS CAMPOS DE UNA DBF EN FW ????','HOLA A TODOS...\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ALGUIEN ME PUEDE DECIR COMO ACCESO A LOS CAMPOS DE UNA DBF\n\n\naEstructura := DBSTRUCT()\n\nDe esta forma\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> ESPERO Y ME PUEDAN AYUDAR','',0,'AIA=','2hm4z8f8',1,1161824714,'',832,1,0),(20771,4692,17,92,0,'62.151.116.82',1161809928,1,0,1,1,1,0,'','Clase para manejar Blat.exe ....','[quote=&quot;jose_murugosa&quot;:jxn4l2tb]Amigo el link baja un archivo de 0 bytes. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->[/quote:jxn4l2tb]\n\nPerdona, no me había dado cuenta.\nParece ser que no puedo subir nada a HyperUpLoad.\n\n¿Vosotros podeis?\n\nSaludos\nCarlos G.\n\nAun así aquí va todo el código de la clase:\n\n********************************************\n\n/* C.Gelabert octubre\'06.\n\n   02/10/2006 Añadido DelFiles(), SendAgain(lEspera), LaunchBat(lEspera)\n              Contempla posibilidad de envío esperando resultado.\n   01/10/2006 Añadido MakeFBody( cMensaje ) y ::cfBodyBlat\n   23/09/2006 Añadido control de éxito en el envío del email.\n              DATA \'lSendok\' que indica si el envío ha tenido éxito.\n              DATA \'cFileError\' que será de uso interno.\n              Método \'End()\' devuelve .T. o .F. si el envío ha tenido éxito.\n\n   16/09/2006 Primera versión de la clase.\n\n   -------------------------------------------------------------------------------------------\n   Esta clase tiene como finalidad lanzar la utilidad Blat.exe para el envío de correos\n   electrónicos, es de libre distribución y es de agradecer que si alguién la amplía\n   me envíe la nueva versión.\n\n   Algunas de sus características són:\n   - Utiliza ficheros auxiliares que la propia clase elimina, evitando con ello la limitación\n     del modo consola (DOS) en la longitud del uso de comandos desde el PROMPT.\n   - Permite conservar los emails enviados por si fuera necesario reenviarlos.\n     (::lDeleteTemp := .F. evita el borrado de los ficheros de la clase que se utilizan)\n   - Esta clase es fácilmente ampliable con el resto de opciones que utiliza Blat.exe.\n   - Con una sola llamada a la clase se envía un email.\n     ej.\n     lExito := Tfblat():New( \"Amiservidor.calimero.com\", ;\n                             \"miemailde@envio.com\", ;\n                             \"c:\\utilidades\\Blat\\Blat.exe\", ;\n                             \"c:\\temp&quot;, ;\n                             {\"fivewidi@laleche.com\", \"mitia@lola.com\"}, ;\n                             {\"cgelabert@laleche.com\", \"cogeeldinero@ycorre.com\"}, ;\n                             {\"ghermano@laleche.com\", \"control@emails.com\"}, ;\n                             \"Asuntito prueba mensaje\", ;\n                             \"el mensajito\" ;\n                           ):Send():End()\n\n\n   Inconvenientes:\n   - Si se desea enviar una batería de emails sería conveniente (pero no obligatorio)\n     realizar un Inkey(1) entre mensajes para evitar que los nombres de los ficheros\n     coincidan.\n\n*/\n\n\n#include \"Obj2Hb.ch\"\n#include \"Fileio.Ch\"\n\n#define  HKEY_LOCAL_MACHINE      2147483650        // 0x80000002\n\n//----------------------------------------------------------------------------//\n\nCLASS TfBlat\n\n    CLASSDATA lRegistered AS LOGICAL\n\n    DATA   cVersion      AS STRING  // Versión de la clase.\n\n    DATA   lInstall      AS LOGICAL // Indicador de si Blat.exe ja ha estado registrado en el sistema.\n    DATA   cServer       AS STRING  // Servidor de correo para envío. (correo.lapera.com)\n    DATA   cMailsender   AS STRING  // Mail de envío.\n    DATA   lSendOk       AS LOGICAL // Indica si el envío se ha realizado con éxito\n\n    DATA   cPathBlat     AS STRING  // Path completo de la ubicación de BLAT.EXE (C:\\micarpeta\\elblat\\blat.exe)\n    DATA   cPathWork     AS STRING  // Path de trabajo para la creación de ficheros auxiliares. (C:\\Temp\\)\n    DATA   cFileBat      AS STRING  // Fichero .BAT que será lanzado para el envío de los mails.\n    DATA   cFileError    AS STRING  // Fichero .TXT que indicará si se ha realizado el envío con éxito.\n    DATA   cFileOptions  AS STRING  // Fichero con las opciones de envío. (20080907145815.op [día i hora]))\n    DATA   lDeleteTemp   AS LOGICAL // Indicador de borrado de ficheros temporales.\n\n    DATA   aTo           AS ARRAY   // Array de los Destinatarios.\n    DATA   cTf           AS STRING  // Fichero con los Destinatarios. (20080907145815.tf [día i hora]))\n    DATA   aCc           AS ARRAY   // Array de los Destinatarios de la Copia.\n    DATA   cCf           AS STRING  // Fichero con los Destinatarios de la Copia. (20080907145815.cf [día i hora]))\n    DATA   aBcc          AS ARRAY   // Array de los Destinatarios de la Copia Oculta.\n    DATA   cBf           AS STRING  // Fichero con los Destinatarios de la Copia Oculta. (20080907145815.bf [día i hora]))\n\n    DATA   cSubject      AS STRING  // Asunto.\n    DATA   cSf           AS STRING  // Fichero que contiene el asunto.\n\n    DATA   cBody         AS STRING  // Cuerpo del mensaje.\n    DATA   cfBody        AS STRING  // Fichero del USUARIO que contine el cuerpo del mensaje.\n    DATA   cfBodyBlat    AS STRING  // Fichero de la CLASE que contine el cuerpo del mensaje.\n\n    DATA   cSig          AS STRING  // Fichero que contiene la firma a insertar al final del cuerpo del mensaje.\n    DATA   cPs           AS STRING  // Fichero que contiene un final para el mensaje (posterior a la firma).\n\n    DATA   cAttachi      AS STRING  // Fichero insertado en el mensaje.\n\n    DATA   aAf           AS ARRAY   // Array de los ficheros binarios a adjuntar.\n    DATA   cAf           AS STRING  // Fichero que contiene la lista de ficheros binarios a adjuntar. (20080907145815.fbi [día i hora]))\n\n    DATA   aAtf          AS ARRAY   // Array de los ficheros de textos a adjuntar.\n    DATA   cAtf          AS STRING  // Fichero que contiene la lista de ficheros de texto a adjuntar. (20080907145815.ftx [día i hora]))\n\n    DATA   cMailFrom     AS STRING  // No tiene porque coincidir con el mail de envío original, será el mail que utiliza el \'Responder\'.\n    DATA   cOrg          AS STRING  // Nombre de la Organización.\n    DATA   nPriority     AS NUMERIC // Prioridad del mensaje.  (0=baja, 1=alta).\n    DATA   lAcuserecibo  AS LOGICAL // Solicita acuse de recibo a Destinatario.\n    DATA   lToScreen     AS LOGICAL // Echo por pantalla.\n\n\n    METHOD New( cservidor, ;\n                cMaildeenvio, ;\n                cUbicacionBlat, ;\n                cPathdeTrabajo, ;\n                aDestinatario, ;\n                aCopiaa, ;\n                aCopiaocultaa, ;\n                cAsunto, ;\n                cMensaje ) CONSTRUCTOR\n\n    METHOD Server( cServidor ) INLINE If( Empty(cServidor), ::cServer, ::cServer := cServidor )\n    METHOD MailSender( cMaildeenvio ) INLINE If( Empty(cMaildeenvio), ::cmailsender, ::cmailsender := cMaildeenvio )\n    METHOD PathBlat( cUbicacionBlat ) INLINE If( Empty(cUbicacionBlat), ::cPathBlat, ::cPathBlat := cUbicacionBlat )\n    METHOD PathWork( cPathdeTrabajo ) INLINE If( Empty(cPathdeTrabajo), ::cPathWork, ::cPathWork := cPathdeTrabajo )\n\n    METHOD Init()\n    METHOD IsBlatInstall()\n\n    METHOD AddTo( cDestinatario ) INLINE If(Empty(cDestinatario), Nil, AADD( ::aTo, cDestinatario ) )\n    METHOD AddCc( cCopiaa ) INLINE If(Empty(cCopiaa), Nil, AADD( ::aCc, cCopiaa ) )\n    METHOD AddBCc( cCopiaOcultaa ) INLINE If(Empty(cCopiaOcultaa), Nil, AADD( ::aBcc, cCopiaOcultaa ) )\n\n    METHOD Subject( cAsunto ) INLINE If( Empty(cAsunto), ::cSubject, ::cSubject := cAsunto )\n    METHOD Body( cMensaje ) INLINE If( Empty(cMensaje), ::cBody, ( ::cfBody := \"\", ::cBody := cMensaje ) )\n    METHOD FBody( cFileMensaje ) INLINE If( Empty(cFileMensaje), ::cfBody, ( ::cBody := \"\", ::cfBody := cFileMensaje ) )\n    METHOD MakeFBody( cMensaje ) INLINE ( MemoWrit( ::cfBodyBlat, cMensaje), ::FBody( ::cfBodyBlat ) )\n\n    METHOD FSig( cFileFirma ) INLINE  If( Empty(cFileFirma), ::cSig, ::cSig := cFileFirma )\n    METHOD FPs( cFileEnd ) INLINE  If( Empty(cFileEnd), ::cPs, ::cPs := cFileEnd )\n\n    METHOD FAttachi( cFileInBody ) INLINE  If( Empty(cFileInBody), ::cAttachi, ::cAttachi := cFileInBody )\n    METHOD FAttach( cFileBin ) INLINE If(Empty(cFileBin), Nil, AADD( ::aAf, cFileBin ) )\n    METHOD FAttact( cFileTxt ) INLINE If(Empty(cFileTxt), Nil, AADD( ::aAtf, cFileTxt ) )\n\n    METHOD MailFrom( cMailRespuesta ) INLINE If( Empty(cMailRespuesta), ::cMailFrom, ::cMailFrom := cMailRespuesta )\n    METHOD Org( corganizacion ) INLINE If( Empty(cOrganizacion), ::cOrg, ::cOrg := cOrganizacion )\n    METHOD Priority( nPrioridad ) INLINE If( Empty(nPrioridad), ::nPriority, ::nPriority := nPrioridad )\n    METHOD Acuserecibo( lAutoRespuesta ) INLINE If( Empty(lAutoRespuesta), ::lAcuserecibo, ::lAcuserecibo := lAutoRespuesta )\n    METHOD Screen( lApantalla ) INLINE If( Empty(lApantalla), ::lToScreen, ::lToScreen := lApantalla )\n\n    METHOD MakeFiles()\n    METHOD DelFiles()\n\n    METHOD Send()\n    METHOD SendAgain()\n\n    METHOD LaunchBat()\n\n    METHOD End()\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New( cServidor, ;\n            cMaildeenvio, ;\n            cUbicacionBlat, ;\n            cPathdeTrabajo, ;\n            aDestinatario, ;\n            aCopiaa, ;\n            aCopiaocultaa, ;\n            cAsunto, ;\n            cMensaje ) CLASS TfBlat\n\nDEFAULT cServidor      := \"Servidor.no.especificado\"\nDEFAULT cMaildeenvio   := \"Noseespecifico@emailde.envio\"\nDEFAULT cUbicacionBlat := Curdrive() + \":&quot; + Curdir() + \"\\Blat&quot;\nDEFAULT cPathdeTrabajo := Curdrive() + \":&quot; + Curdir() + \"\\Blat\\Work&quot;\nDEFAULT aDestinatario  := { \"No se especificó destinatario\" }\nDEFAULT aCopiaa        := {}\nDEFAULT aCopiaOcultaa  := {}\nDEFAULT cAsunto        := \"Email por Blat.exe\"\nDEFAULT cMensaje       := \"\"\n\n::cVersion     := \"1.1\"\n\n::cServer      := cServidor\n::cMailsender  := cMaildeenvio\n::cPathBlat    := cUbicacionBlat\n::cPathWork    := cPathdeTrabajo\n\n::Init()\n\n::aTo          := aDestinatario\n::aCc          := aCopiaa\n::aBcc         := aCopiaOcultaa\n\n//AEVal( aDestinatario,  {|cDestinatario|  ::AddTo( cDestinatario )  }  )\n//AEVal( aCopiaa,        {|cCopiaa|        ::AddCc( cCopiaa )        }  )\n//AEVal( aCopiaOcultaa,  {|cCopiaocultaa|  ::AddBcc( cCopiaOcultaa ) }  )\n\n::Subject( \'\"\' + cAsunto + \'\"\' )\n::Body( \'\"\' + cMensaje + \'\"\' )\n\nRETURN Self\n//----------------------------------------------------------------------------//\n//----------------------------------------------------------------------------//\nMETHOD Init() CLASS TfBlat\n\nLocal cDummy1 := \"\", cDummy2 := \"\", nContador := 0\n\nIf !lIsdir( ::PathWork() )\n\n    cDummy1 := StrToken( ::PathWork(), ++nContador, \"&quot; )\n    cDummy2 := StrToken( ::PathWork(), ++nContador, \"&quot; )\n\n    While AllTrim( cDummy2 ) &lt;&gt; \"\"\n        cDummy1 := cDummy1 + \"&quot; + cDummy2\n        lMkDir( cDummy1 )\n        cDummy2 := StrToken( ::PathWork(), ++nContador, \"&quot; )\n    End\n\nEndIf\n\n::lSendOk := .F.\n\n::aTo   := {}\n::aCc   := {}\n::aBcc  := {}\n::aAf   := {}\n::aAtf  := {}\n\n::cFileBat :=     ;\n::cFileError :=   ;\n::cFileOptions := ;\n::cfBodyBlat   := ;\n::cTf := ::cCf := ;\n::cBf := ::cAf := ;\n::cAtf         := ::PathWork() + DToS( Date() ) + StrTran( Time(), \":\" )\n\n::cFileBat     := ::cFileBat + \".bat\"\n::cFileError   := ::cFileError + \"_Error.Txt\"\n::cFileOptions := ::cFileOptions + \".op\"\n::cfBodyBlat   := ::cfBodyBlat + \".men\"\n::cTf          := ::cTf + \".tf\"\n::cCf          := ::cCf + \".cf\"\n::cBf          := ::cBf + \".bf\"\n::cAf          := ::cAf + \".fbi\"\n::cAtf         := ::cAtf + \".ftx\"\n\n::nPriority    := 0\n::lAcuserecibo := .F.\n::lToScreen    := .T.\n::lDeleteTemp  := .T.\n\n::lInstall     := .T.\n\n/* Habilite la siguiente línea si desea que se realice un \'install\' del Blat.exe\n   en caso de que el sistema no tenga guardados los parámetros del Blat.\n   Para enviar correos, en principio en una configuración estándar no será\n   necesario.\n   -------------------------------------------------------------------------- */\n//::lInstall     := ::IsBlatInstall()\n\nRETURN Nil\n//----------------------------------------------------------------------------//\n/* ********************************************************\n  Comprueba si Blat.exe ha estado \'instalado\' en el sistema\n  leyendo Datos de Configuración de Blat en el Registro.\n******************************************************** */\nMETHOD IsBlatInstall() CLASS TfBlat\nLOCAL oReg\nLocal cDummy  := \"\"\n\noReg := TReg32():New(HKEY_LOCAL_MACHINE,\"SOFTWARE\\Public Domain\\Blat\")\n\ncDummy := PadR(oReg:Get(\"SMTP server\", cDummy),250)\n\n//Traza(1, \"AllTrim(cDummy)=\", allTrim(cDummy) )\n\n/*\n ::cDe       := PadR(oReg:Get(\"Sender\"     , ::cDe)  ,250)\n ::cSMTP     := PadR(oReg:Get(\"SMTP server\", ::cSMTP),250)\n ::nPuerto   := PadR(oReg:Get(\"SMTP Port\"  , ::nPuerto),4)\n ::nIntentos := PadR(oReg:Get(\"Try\"        , ::nIntentos),2)\n ::cConexion := PadR(oReg:Get(\"Conexion\"   , ::cConexion),250)\n\n ::lSeguro   := oReg:Get(\"SECURE server\", ::lSeguro)\n ::cUsuario  := PadR(oReg:Get(\"User name\"    , ::cUsuario),250)\n ::cClave    := PadR(DeCrypt(oReg:Get(\"User password\",::cClave), \"BlAt\"),50)\n*/\n\noReg:Close()\n\nRETURN Len(AllTrim( cDummy )) &lt;&gt; 0\n\n/* Método no utilizado y sólo comentado.\n*******************************************************\n* Graba Datos de Configuraci¢n de Blat en el Registro *\n*******************************************************\nMETHOD GrabaBlat() CLASS TfBlat\nLOCAL oReg\n\n oReg := TReg32():New(HKEY_LOCAL_MACHINE,\"SOFTWARE\\Public Domain\\Blat\")\n oReg:Set(\"Sender\"       , AllTrim(::cDe))\n oReg:Set(\"SMTP server\"  , AllTrim(::cSMTP))\n oReg:Set(\"SMTP Port\"    , Alltrim(::nPuerto)     )\n oReg:Set(\"Conexion\"     , AllTrim(::cConexion) )\n oReg:Set(\"Try\"          , Alltrim(::nIntentos) )\n oReg:Set(\"SECURE server\", ::lSeguro   )\n oReg:Set(\"User name\"    , AllTrim(::cUsuario) )\n oReg:Set(\"User password\", AllTrim(EnCrypt(::cClave, \"BlAt\")) )\n\n oReg:Close()\n\nRETURN .T.\n*/\n//----------------------------------------------------------------------------//\nMETHOD MakeFiles() CLASS TfBlat\n\nLocal lResultado := .T.\nLocal nContador  := 0\nLocal hFile      := 0\nLocal cOpciones  := \"\"\n\nIf Len( ::aTo ) &gt; 0\n    cOpciones  := cOpciones + \" -tf \" + ::cTf\n    IF ( hFile := FCREATE( ::cTf, FC_NORMAL)) == -1\n       lResultado := .F.\n      Else\n        FWRITE( hFile, ::aTo[1] )\n        For nContador := 2 To Len( ::aTo )\n            FWRITE( hFile, \",\" + ::aTo[nContador] )\n        EndFor\n        FCLOSE( hFile )\n    EndIf\nEndIf\nIf Len( ::aCc ) &gt; 0\n    cOpciones  := cOpciones + \" -cf \" + ::cCf\n    IF ( hFile := FCREATE( ::cCf, FC_NORMAL)) == -1\n       lResultado := .F.\n      Else\n        FWRITE( hFile, ::aCc[1] )\n        For nContador := 2 To Len( ::aCc )\n            FWRITE( hFile, \",\" + ::aCc[nContador] )\n        EndFor\n        FCLOSE( hFile )\n    EndIf\nEndIf\nIf Len( ::aBcc ) &gt; 0\n    cOpciones  := cOpciones + \" -bf \" + ::cBf\n    IF ( hFile := FCREATE( ::cBf, FC_NORMAL)) == -1\n       lResultado := .F.\n      Else\n        FWRITE( hFile, ::aBcc[1] )\n        For nContador := 2 To Len( ::aBcc )\n            FWRITE( hFile, \",\" + ::aBcc[nContador] )\n        EndFor\n        FCLOSE( hFile )\n    EndIf\nEndIf\n\nIf Len( ::aAf ) &gt; 0\n    cOpciones  := cOpciones + \" -af \" + ::cAf\n    IF ( hFile := FCREATE( ::cAf, FC_NORMAL)) == -1\n       lResultado := .F.\n      Else\n        FWRITE( hFile, ::aAf[1] )\n        For nContador := 2 To Len( ::aAf )\n            FWRITE( hFile, \",\" + ::aAf[nContador] )\n        EndFor\n        FCLOSE( hFile )\n    EndIf\nEndIf\nIf Len( ::aAtf ) &gt; 0\n    cOpciones  := cOpciones + \" -atf \" + ::cAtf\n    IF ( hFile := FCREATE( ::cAtf, FC_NORMAL)) == -1\n       lResultado := .F.\n      Else\n        FWRITE( hFile, ::aAtf[1] )\n        For nContador := 2 To Len( ::aAtf )\n            FWRITE( hFile, \",\" + ::aAtf[nContador] )\n        EndFor\n        FCLOSE( hFile )\n    EndIf\nEndIf\n\nIf !Empty( ::cSubject )\n    cOpciones  := cOpciones + \" -subject \" + ::cSubject\nEndIf\nIf !Empty( ::cSf )\n    cOpciones  := cOpciones + \" -sf \" + ::cSf\nEndIf\n\nIF ( hFile := FCREATE( ::cFileOptions, FC_NORMAL)) == -1\n   //traza( 1, \"NO Ok ::cFileOptions=\", ::cFileOptions, \".-.\", LTrim( cOpciones ) )\n   lResultado := .F.\n  Else\n    FWRITE( hFile, LTrim( cOpciones ) )\n    FCLOSE( hFile )\n   //traza( 1, \"Ok ::cFileOptions=\", ::cFileOptions, \".-.\", LTrim( cOpciones ) )\nEndIf\n\nIF ( hFile := FCREATE( ::cFileBat, FC_NORMAL)) == -1\n   lResultado := .F.\n  Else\n\n    If !::lInstall\n\n        FWRITE( hFile, Chr(13) + Chr(10) + \"REM ******************************************************************************\" )\n        FWRITE( hFile, Chr(13) + Chr(10) + \"REM Instalación de Blat.exe desde FiveWin mediante la clase TfBlat (versión \" + ::cVersion + \" )\" )\n        FWRITE( hFile, Chr(13) + Chr(10) + \"REM ******************************************************************************\" )\n\n        FWRITE( hFile, Chr(13) + Chr(10) + ::cPathBlat )\n        FWRITE( hFile, \" -install \" + ::cServer + \" \" + ::cMailsender )\n        FWRITE( hFile, Chr(13) + Chr(10) + \" \" )\n        FWRITE( hFile, Chr(13) + Chr(10) )\n    EndIf\n\n    FWRITE( hFile, Chr(13) + Chr(10) + \"REM *************************************************************************************\" )\n    FWRITE( hFile, Chr(13) + Chr(10) + \"REM Envío de email usando Blat.exe desde FiveWin mediante la clase TfBlat (versión \" + ::cVersion + \" )\" )\n    FWRITE( hFile, Chr(13) + Chr(10) + \"REM *************************************************************************************\" )\n\n    FWRITE( hFile, Chr(13) + Chr(10) + ::cPathBlat )\n\n    If !Empty(  ::cBody )\n        FWRITE( hFile, \" - -body \" + ::cBody )\n    EndIf\n    If !Empty( ::cfBody )\n        FWRITE( hFile, \" \" + ::cfBody )\n    EndIf\n    FWRITE( hFile, \" -of \" + ::cFileOptions )\n    FWRITE( hFile, \" -server \" + ::cServer + ;\n                   \" -f \" + ::cMailsender + ;  //  \" -i <!-- e --><a href=\"mailto:paam12paam12@paam12paam12.com\">paam12paam12@paam12paam12.com</a><!-- e --> \" ;\n                   \" -priority \" + Str(::nPriority,1,0) + ;\n                   If(::lAcuserecibo, \" -r\", \"\") + ;\n                   If(::lToScreen, \"\", \" -q\" ) )\n\n    If !Empty( ::cMailFrom )\n        FWRITE( hFile, \" -mailfrom \" + ::cMailFrom )\n    EndIf\n\n\n    FWRITE( hFile, Chr(13) + Chr(10) + \" \" )\n    FWRITE( hFile, Chr(13) + Chr(10) + \"If %errorlevel%==0 Goto NoError\" )\n    FWRITE( hFile, Chr(13) + Chr(10) + \"Echo Mensaje_no_enviado__Error_%errorlevel% &gt; \" + ::cFileError )\n    FWRITE( hFile, Chr(13) + Chr(10) + \":Noerror\" )\n    FWRITE( hFile, Chr(13) + Chr(10) + \" \" )\n\n    //FWRITE( hFile, Chr(13) + Chr(10) + \" \" )\n    //FWRITE( hFile, Chr(13) + Chr(10) + \"Pause Pulsa Intro para continuar.\" )\n    //FWRITE( hFile, Chr(13) + Chr(10) + \" \" )\n\n    FCLOSE( hFile )\n\nEndIf\n\nReturn lResultado\n//----------------------------------------------------------------------------//\n//----------------------------------------------------------------------------//\nMETHOD Send( lEspera ) CLASS TfBlat\n\n::LaunchBat( lEspera )\n\nReturn Self\n//----------------------------------------------------------------------------//\n//----------------------------------------------------------------------------//\nMETHOD SendAgain( lEspera ) CLASS TfBlat\n\n::lSendOk   := .F.\n::DelFiles()\n::MakeFiles()\n\n::LaunchBat( lEspera )\n\nReturn Self\n//----------------------------------------------------------------------------//\n//----------------------------------------------------------------------------//\nMETHOD LaunchBat( lEspera ) CLASS TfBlat\n\nDEFAULT lEspera  := .T.\n\nIf .not. File( ::cFileBat )\n    ::MakeFiles()\nEndIf\n\n// así funciona  ShellExecute( 0, 0, ::cFileBat, 0, 0, 1 )\n\n/*\n#define SW_NORMAL              1\n#define SW_MAXIMIZE            3\n#define SW_MINIMIZE            6\n#define SW_RESTORE             9\n\n#define SW_HIDE                0\n#define SW_SHOWNA              8\n*/\n\n#define SW_HIDE                0\n\n//Traza( 1, ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE ) )\n\n//ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE )\n\nIf lEspera\n    WaitRun( ::cFileBat )\n    If .not. File( ::cFileError )\n        ::lSendOk := .T.\n    EndIf\n  Else\n    ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE )\nEndIf\n\nReturn Self\n//----------------------------------------------------------------------------//\nMETHOD DelFiles() CLASS TfBlat\n\n    FErase( ::cFileBat )       // fitxer .BAT\n    FErase( ::cFileError)      // fitxer indicador d\'error .TXT\n    FErase( ::cFileOptions )   // fitxer amb les opcions per llençar el Blat.exe\n    FErase( ::cfBodyBlat )     // fitxer amb el cos del missatge creat automàticament per la clase, NO per l\'usuari.\n    FErase( ::cTf )            // fitxer amb els destinataris del mail\n    FErase( ::cCf )            // fitxer amb els destinataris de la copia del mail\n    FErase( ::cBf )            // fitxer amb els destinataris de la copia oculta del mail\n    FErase( ::cAf )            // fitxer amb els fitxers binaris a adjuntar al mail\n    FErase( ::cAtf )           // fitxer amb els fitxers plans (tipus TXT) a adjuntar al mail\n\nReturn Nil\n//----------------------------------------------------------------------------//\nMETHOD End() CLASS TfBlat\nLocal lEnviocorrecto\n\nlEnviocorrecto := ::lSendOk\n\nIf ::lDeleteTemp\n    ::DelFiles()\nEndIf\n\n::aTo    := {}\n::aCc    := {}\n::aBcc   := {}\n::aAf    := {}\n::aAtf   := {}\n\nSelf := Nil\n\nReturn lEnviocorrecto\n//----------------------------------------------------------------------------//\n\n\n********************************************','',0,'gA==','jxn4l2tb',1,0,'',92,0,0),(20772,4322,6,180,0,'83.34.25.228',1161810374,1,0,1,1,1,0,'','','Agradecería me enviaran el fix del RClick\n\nGracias de antemano.\n\nSaludos,\nManuel','',0,'gA==','2xhihrj6',1,0,'',180,0,0),(20773,4699,1,186,0,'66.130.50.142',1161813625,1,0,1,1,1,1,'','Why use MESSAGE in Classes','Hi All, \n\n\nWhy does certain classes, like TDATABASE, use the syntax:\n\nMESSAGE Delete   METHOD  _Delete()\n\nwhy not simply use:\n\nMETHOD Delete() \n\nRegards\nGilbert Vaillancourt <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'gA==','2gi0vw0e',1,0,'',186,0,0),(20774,4700,3,425,0,'87.196.165.79',1161814054,1,0,1,1,1,0,'','Configuring Uestudio','Hi\n\nCan anyone send my the files to configure Uestudio for Xharbour+FwH?\n\nThe ones that are in this newsGroup as expired is time for downloading\n\nBest regards\n\nPedro','',0,'gA==','y1vo35n0',1,0,'',425,0,0),(20775,4701,6,36,0,'200.113.56.235',1161814298,1,0,1,1,1,0,'','ADS  con servidor','Consulta\n\nTengo que hacer otro sistema, pero requiero conectarme a otro que ya esta en funcionamiento\n\nmi pregunta es la siguiente:\n\n¿Se puede hacer otro diccionario de datos y conectarse a otro diccionario para modificar datos?\n\no hay que hacerlo en un solo diccionariode datos y agregar todas las tablas ...\n\n\nsaludos\nPatricio','',0,'gA==','2kj90s8r',1,0,'',36,0,0),(20776,4697,6,2,0,'87.218.146.194',1161814688,1,0,1,1,1,1,'','','Manuel,\n\nEsas funciones en 16 y 32 bits usan distinto código. De todas formas nSerialHD() admite el parámetro de la unidad a comprobar, nSerialHD( \"D:\" )','',0,'gA==','35y1n61k',1,0,'',2,0,0),(20777,4700,3,2,0,'87.218.146.194',1161815652,1,0,1,1,1,1,'','','Pedro,\n\nAlready sent to your email. \n\nHyperupload is not working today <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gA==','2lnwcarw',1,0,'',2,0,0),(20778,4667,1,2,0,'87.218.146.194',1161815782,1,0,1,1,1,1,'','','You may use AnsiToOem() and OemToAnsi()','',0,'gA==','eibjl2pu',1,0,'',2,0,0),(20779,4699,1,2,0,'87.218.146.194',1161815840,1,0,1,1,1,1,'','','Gilbert,\n\nBecause Delete() is a reserved function name so it can not be used.','',0,'gA==','2fxlrxlt',1,0,'',2,0,0),(20780,4696,6,2,0,'87.218.146.194',1161815989,1,0,1,1,1,1,'','','Manuel,\n\nAqui tienes un ejemplo completo:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3869&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=incremental\">http://fivetechsoft.com/forums/viewtopi ... ncremental</a><!-- m -->','',0,'gA==','iuroyi21',1,0,'',2,0,0),(20781,4322,6,2,0,'87.218.146.194',1161816204,1,0,1,1,1,1,'','','Manuel,\n\nLocaliza estas líneas en xbrowse.prg y añade el else final:\n[code:4irjqkqm]\n      if oCol&#58;bRClickData != nil\n         return Eval&#40; oCol&#58;bRClickData, nRow, nCol, nKeyFlags, oCol &#41;\n      endif\n   else      // Nuevo\n      if oCol&#58;bRClickData != nil   // Nuevo\n         return Eval&#40; oCol&#58;bRClickData, nRow, nCol, nKeyFlags, oCol &#41; // Nuevo\n      endif  // Nuevo\n   endif \n[/code:4irjqkqm]','',0,'AIA=','4irjqkqm',1,0,'',2,0,0),(20782,4698,2,2,0,'87.218.146.194',1161816352,1,0,1,1,1,1,'','','Pedro,\n\nA que te refieres ? Usando un objeto DATABASE ?\n\nUsando funciones Clipper ?','',0,'AIA=','24rygrj9',1,0,'',2,0,0),(20783,4702,3,69,0,'74.13.30.203',1161822127,1,0,1,1,1,0,'','Conversions','Hi Everybody,\n\nA while ago I came across a function  STR2HEX() ... I have no idea how I found this.\n\n1. Where is this documented ... I can\'t find it under FWH or xHarbour.\n\n2. Is there a similar function to convert Hex to Dec  ?\n\n\nThanks,\n\nJeff','',0,'AIA=','1r1enhhp',1,0,'',69,0,0),(20784,4703,6,791,0,'190.37.173.141',1161824901,1,0,1,1,1,0,'','FiveWin y MySql','Hola, amigos\n\nLa Mejor manera de accesar el MySql 5 y FiveWin, es con ODBC, ADO o EAGLE, y donde consigo informacion de esa mejor forma de acceso. Por supuesto con FiveWin.\n\nGracias,','',0,'AIA=','3ozm9zkb',1,0,'',791,0,0),(20785,4703,6,54,0,'189.132.105.139',1161825454,1,0,1,1,1,1,'','Re: FiveWin y MySql','[quote=&quot;Arturo Nava&quot;:20dwn4cm]Hola, amigos\n\nLa Mejor manera de accesar el MySql 5 y FiveWin, es con ODBC, ADO o EAGLE, y donde consigo informacion de esa mejor forma de acceso. Por supuesto con FiveWin.\n\nGracias,[/quote:20dwn4cm]\n\nArturo,\n\nCreo que la mejor manera es con la que uno le saque el mejor provecho a la herramienta.\n\nODBC es para accesar cualquier motor de base de datos, desde luego, que tenga el cliente ODBC instalado en el equipo, sino, no hay conexión.\n\nADO de igual manera accede a varios motores, y no necesita clientes ni nada instalado en el equipo cliente, tan solo la cadena de conexión que por ahi anda una página conteniendo dichas cadenas de conexión.\n\nEAGLE1, es para conexión a mysql, es una jerarquía de clases y que funciona de igual manera bien, tampoco se necesita tener nada instalado en el equipo cliente.','',0,'gA==','20dwn4cm',1,0,'',54,0,0),(20786,4703,6,138,0,'189.141.64.226',1161825635,1,0,1,1,1,1,'','','Desde mi punto de vista lo mas rapido es ADO es muy simple de entender, simula el modelo XBase (al final de cuentas va a resultar que siempre hemos tenido razon nosotros).\n\nJose Luis Capel en <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> hizo unos ejemplos que te ayudaran a entender como funciona ADO.\n\nADO es accesible tanto desde aplicaciones visuales, como desde aplicaciones para modo de terminal','',0,'gA==','3ftxin9g',1,0,'',138,0,0),(20787,4701,6,138,0,'189.141.64.226',1161826037,1,0,1,1,1,1,'','','Precisamente acabo de terminar una aplicacion que hace justo eso.\n\nSe conecta a 2 diccionarios de datos remotos por medio del AIS, lee datos de 2 tablas distintas de los 2 diccionarios y luego se conecta a un tercer diccionario en otro servidor ADS en una lan y vuelca los datos ahi.\n\nUn Simple AdsConnect60() para cada diccionario hace la magia','',0,'gA==','c8ro2109',1,0,'',138,0,0),(20788,4703,6,791,0,'190.37.173.141',1161826897,1,0,1,1,1,0,'','','Gracias por sus respuestas, este ADO tambien funciona bien con LINUX, digo si trabajo con FIVELINUX.','',0,'gA==','paelb2qd',1,0,'',791,0,0),(20789,4702,3,2,0,'87.218.146.194',1161827268,1,0,1,1,1,1,'','','Jeff,\n\nThey are FWH functions:\n\nSTR2HEX( cStr ) --&gt; cHexStr\n\nHEX2STR( cHexStr ) --&gt; cStr','',0,'gA==','20a7j95l',1,0,'',2,0,0),(20790,4702,3,2,0,'87.218.146.194',1161827386,1,0,1,1,1,1,'','','code sample:\n[code:1bq857op]\n   MsgInfo&#40; Str2Hex&#40; &quot;Hello&quot; &#41; &#41;\n\n   MsgInfo&#40; Hex2Str&#40; Str2Hex&#40; &quot;Hello&quot; &#41; &#41; &#41;\n[/code:1bq857op]','',0,'AIA=','1bq857op',1,0,'',2,0,0),(20791,4699,1,186,0,'66.130.50.142',1161830022,1,0,1,1,1,1,'','','Hi Antonio,\n\n\nThanks for your answer. It make sense.\n\nI have another one. I am trying to figure out how does TDATABASE class create the object for each field of a database record. I was looking at the class and could not figure out how it does that. Can you tell me wich portion of code generates the field objects.\n\nRegards <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'AIA=','3134coeg',1,0,'',186,0,0),(20792,4695,3,32,0,'168.209.98.43',1161832102,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1ka2fu17]Alex,\n\noStruct:fFlags = nAnd( FOF_ALLOWUNDO, FOF_NOCONFIRMATION )[/quote:1ka2fu17]\n\nI know this, but how do I tell the shfile function this?\n\nOr, how do I declare the ShFileOperation function\n\nAlex','',0,'gA==','1ka2fu17',1,0,'',32,0,0),(20793,4704,6,73,0,'201.132.252.163',1161839577,1,0,1,1,1,0,'','Escape en PostMsg','Hola foro,\ntengo un dialogo y por medio de un vk_f9 llama a otra funcion y se abre un dialogo con botones, si en este dialogo presionan un boton, hago un proceso cierro mi dialogo secundario y mando un oGet:postmsg(256,27,0) que se supone esta en el primer get de mi dialogo principal y mando una supuesta pulsacion de la tecla \"ESCAPE\", ok. Pues no funciona probe cambiando oGet:postmsg(256,13,0) un \"ENTER\" y si funciona, mi pregunta es como hago para mandar la tecla \"ESCAPE\"?\nsalu2\nPaco','',0,'gA==','2r2h6jo1',1,0,'',73,0,0),(20794,4696,6,73,0,'201.132.252.163',1161840210,1,0,1,1,1,0,'','','que tal manuel,\nyo uso la busqueda incremental en la msgbar con la twbrowse tee paso un ejemplo de su uso, espero te sirva:\n\nLOCAL cDefaulMsg:=\"\"\nDEFINE DIALOG oDls  bla bla bla...\n REDEFINE LISTBOX oBrs ;\n         FIELDS (oDCli)-&gt;Nombre, (oDCli)-&gt;Codigo  bla bla bla ....\n\noBrs:bSeek        := {|lRet| oBrs:DbfSeek(.T.) }\noBrs:bUpdateBuffer:= {|| UpdateBuffer( oDls:oMsgBar, ;\n                                           cDefaultMsg, oBrs:cBuffer ) }\n\n      ACTIVATE DIALOG oDls CENTERED;\n           ON INIT MsgBarra(oDls,cDefaultMsg)\n\nSTAT FUNCTION MsgBarra(oDls,cDefaultMsg)\n    SET MESSAGE OF oDls TO cDefaultMsg NOINSET\nRETURN Nil\n\nFUNCTION UpdateBuffer( oMsgBar, cDefaultMsg, cBuffer )\n local nClrText:= oMsgBar:nClrText\n local cMsg, oFont\n\n DEFINE FONT oFont NAME \"Ms Sans Serif\" SIZE 0,-10 BOLD\n\n    if Len( cBuffer ) &gt; 0\n       cMsg:= \"Buscando: \" + upper(cBuffer)\n       oMsgBar:nClrText:= CLR_BLUE\n       oMsgBar:SetFont(oFont)\n    else\n       cMsg:= cDefaultMsg\n    endif\n    oMsgBar:SetMsg( PadR( cMsg ,200) )\n    oMsgBar:nClrText:= nClrText\n    oFont:End()\nreturn Nil\n\nSalu2\nPaco','',0,'gA==','2zuc522n',1,0,'',73,0,0),(20795,3023,17,239,0,'218.19.62.29',1161842055,1,0,1,1,1,0,'','','Great!\n  Could it save visualreport (VRD)  into an excel file ?\n\nThanks !\nShuming Wang','',0,'gA==','33fae2km',1,0,'',239,0,0),(20796,4689,3,239,0,'218.19.62.29',1161842319,1,0,1,1,1,0,'','','José Murugosa ,\n  Great!\n  Could support visual report (VRD) save as  a xls file ?\nThanks !\n Shuming Wang','',0,'gA==','2ku6ijly',1,0,'',239,0,0),(20797,4691,20,837,0,'81.208.83.249',1161845216,1,0,1,1,1,1,'','Re: Gestione BMP esterni all\'EXE','[quote=&quot;EnricoMaria&quot;:1i386tim]Sì, ogni comando ha la clausola FILE per caricarlo da file e RESOURCE per caricarlo da risorsa.\n\nEMG[/quote:1i386tim]\n\nGrazie, Andrea','',0,'gA==','1i386tim',1,0,'',837,0,0),(20798,4703,6,37,0,'200.121.251.45',1161845854,1,0,1,1,1,1,'','','Arturo, una opcion mas, SQLLIB, Yo lo utilizo y funcion 100 puntos, te permite trabajar con tus comandos xBase o si gustas pasando sentencias SQL directas al servidor, funciona con MySQL y PostGreSQL.\nEs para Harbour y xHarbour, pero no tengo ni idea si funciona en Linux, creo que no.\nLa web :\n<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com\">www.sqllib.com</a><!-- w -->\n\nSaludos','',0,'gA==','236bljg4',1,0,'',37,0,0),(20799,4699,1,6,0,'87.16.213.60',1161845862,1,0,1,1,1,1,'','','Have a look at OnError() method. By the way, the fields objects are not generated at all.\n\nEMG','',0,'gA==','2ucg2ae8',1,0,'',6,0,0),(20800,4704,6,2,0,'87.218.146.248',1161848828,1,0,1,1,1,1,'','','Paco,\n\nHas probado a enviárselo al diálogo en vez de al get ?','',0,'gA==','3efxoqfh',1,0,'',2,0,0),(20801,4686,2,838,0,'80.34.222.112',1161857571,1,0,1,1,1,0,'','','También estoy probando con TSMTP, pruebas y pruebas, pero no consigo nada.\n\nYo veo en el foro que mandais ficheros con fivewin, me podeis decir como lo haceis?, ya que estoy dando mas vueltas que un tonto.\n\nSaludos','',0,'gA==','39r3wbc8',1,0,'',838,0,0),(20802,2261,17,130,0,'141.51.32.24',1161860894,1,0,1,1,1,0,'','','Hi Manuramos,\n\nI just tried you new class and I get some errors:\n\nMisFunc.ch is not available\nunresolved external: Oscuro () and AClaro()\n\nCan you help ?\n\nStefan','',0,'gA==','fdsay30r',1,0,'',130,0,0),(20803,4703,6,791,0,'190.37.173.141',1161861112,1,0,1,1,1,0,'','','Gracias, por la respuesta, estoy buscando algo que funciones bien en ambos mundos ( Guindows, Linux )','',0,'gA==','16j40tzk',1,0,'',791,0,0),(20804,4705,6,791,0,'190.37.173.141',1161861270,1,0,1,1,1,0,'','ADO y FiveWin','Hola amigos\n\nDonde puedo encontrar la manera de usar ADO con FiveWin Harbour.\n\nY si esta tecnologia es compatible con FiveLinux.\n\nGracias.','',0,'gA==','o6jsgy0s',1,0,'',791,0,0),(20805,4696,6,180,0,'194.179.55.36',1161862201,1,0,1,1,1,0,'','','Gracias Antonio y Francisco. Lo pruebo.\n\nUn saludo,\nManuel','',0,'gA==','njsoco3e',1,0,'',180,0,0),(20806,3143,1,170,0,'83.179.205.218',1161862857,1,0,1,1,1,1,'','','Hello,\n\nAfter news severals tests, there is now a new upgrade,\nspecialy for Windows 32 bits operating systems\nand only about shared printers.\n\nRegards,\n\n[code:86jsy2iz]\n******************\nFUNCTION WinGetPrn&#40;&#41;\n******************\n* Recherche les imprimantes installées sous windows\n* dans le registre de Windows &#40;remplace le WIN&#46;INI qui est obsolète sous Windows 2000 et suivants&#41;\n* Auteur Badara Thiam\n\nLOCAL TIMP &#58;= &#123;&#125;\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL nok\nLOCAL nLen\nLOCAL cSubkeys\nLOCAL aHKey &#58;= HKEY_LOCAL_MACHINE\nLOCAL TSERVEURS &#58;= &#123;&#125;\nLOCAL X\n\n* Recherche des imprimantes disponibles depuis le poste courant\ncSubKeys &#58;= &quot;System\\CurrentControlSet\\Control\\Print\\Printers&quot;\n\nIF RegOpenKey&#40; aHKey,  cSubKeys,  @nHandle &#41; == 0\n    n1 &#58;= 0\n    DO WHILE &#46;T&#46;\n      cValue &#58;= &quot;&quot;\n      n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n      SysRefresh&#40;&#41;\n      IF n2 = 0\n        IF ASCAN&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n          AADD&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n        ENDIF\n      ELSE\n        EXIT\n      ENDIF\n      n1 ++\n    ENDDO\n    RegCloseKey&#40; nHandle &#41;\nENDIF\n\n* Recherche des imprimantes réseau non répertoriées dans la clé précédente &#40;ci-dessus&#41;\n* Ajouté le 20/10/2006\nTSERVEURS &#58;= WinGetSerP&#40;&#41;\nIF !EMPTY&#40;TSERVEURS&#41;\n  FOR X &#58;= 1 TO LEN&#40;TSERVEURS&#41;\n    cSubKeys &#58;= &quot;SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers&quot; ;\n    + &quot;\\&quot; + TSERVEURS&#91;X&#93; + &quot;\\Printers&quot;\n\n    IF RegOpenKey&#40; aHKey,  cSubKeys,  @nHandle &#41; == 0\n      n1 &#58;= 0\n      DO WHILE &#46;T&#46;\n        cValue &#58;= &quot;&quot;\n        n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n        SysRefresh&#40;&#41;\n        IF n2 = 0\n          IF ASCAN&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n            IF &quot;,&quot; $ cValue\n              AADD&#40;TIMP, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n            ELSE\n              AADD&#40;TIMP, &quot;\\\\&quot; + TSERVEURS&#91;X&#93; + &quot;\\&quot; + cValue&#41;\n            ENDIF\n          ENDIF\n        ELSE\n          EXIT\n        ENDIF\n        n1 ++\n      ENDDO\n      RegCloseKey&#40; nHandle &#41;\n    ENDIF\n  NEXT X\nENDIF\n\nRETURN ACLONE&#40;TIMP&#41;\n\n[/code:86jsy2iz][code:86jsy2iz]\n\n*******************\nFUNCTION WinGetSerP&#40;&#41;\n*******************\n* Renvoie les noms des serveurs d\'impression disponibles pour le poste courant\n* Auteur Badara Thiam\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL cSubkeys\nLOCAL aHKey &#58;= HKEY_LOCAL_MACHINE\nLOCAL TSERVEURS &#58;= &#123;&#125;\n\ncSubKeys &#58;= &quot;SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers&quot;\nIF RegOpenKey&#40; aHKey,  cSubKeys,  @nHandle &#41; == 0\n\n    * Recherche des serveurs accessibles\n    n1 &#58;= 0\n    TSERVEURS &#58;= &#123;&#125;\n    DO WHILE &#46;T&#46;\n      cValue &#58;= &quot;&quot;\n      n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n      SysRefresh&#40;&#41;\n      IF n2 = 0\n        AADD&#40;TSERVEURS, cValue&#41;\n      ELSE\n        EXIT\n      ENDIF\n      n1 ++\n    ENDDO\n\n    RegCloseKey&#40; nHandle &#41;\nENDIF\nRETURN ACLONE&#40;TSERVEURS&#41;\n\n[/code:86jsy2iz][code:86jsy2iz]\n\n*******************\nFUNCTION WinGetPrnD&#40;cNomDriver&#41;\n*******************\n* Recherche le driver d\'une imprimante installée sous windows\n* dans le registre de Windows &#40;remplace le WIN&#46;INI qui est obsolète sous Windows 2000 et suivants&#41;\n* Auteur Badara THIAM\n\nLOCAL nHandle\nLOCAL cValue\nLOCAL n1\nLOCAL n2\nLOCAL nok\nLOCAL nLen\nLOCAL cSubkeys\nLOCAL cSubkeys2\nLOCAL X, X2\nLOCAL TENV &#58;= &#123;&#125;\nLOCAL TENVDRIVER &#58;= &#123;&#125;\nLOCAL oReg\nLOCAL cDriver &#58;= &quot;&quot;\n\ncSubKeys &#58;= &quot;System\\CurrentControlSet\\Control\\Print\\Environments&quot;\n\nIF RegOpenKey&#40; HKEY_LOCAL_MACHINE,  cSubKeys,  @nHandle &#41; == 0\n  SysRefresh&#40;&#41;\n  n1 &#58;= 0\n  DO WHILE &#46;T&#46;\n    cValue &#58;= &quot;&quot;\n    n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n    IF n2 = 0\n      IF ASCAN&#40;TENV, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n        AADD&#40;TENV, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n      ENDIF\n    ELSE\n      EXIT\n    ENDIF\n    n1 ++\n    SysRefresh&#40;&#41;\n  ENDDO\n  RegCloseKey&#40; nHandle &#41;\n  SysRefresh&#40;&#41;\n\n  FOR X &#58;= 1 TO LEN&#40;TENV&#41;\n    cSubKeys2 &#58;= cSubKeys + &quot;\\&quot; + TENV&#91;X&#93; + &quot;\\Drivers&quot;\n\n    oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, cSubKeys2 + &quot;\\&quot; + cNomDriver&#41;\n\n    IF oReg&#58;nError = 0\n      cDriver &#58;= oReg&#58;Get&#40;&quot;Driver&quot;, &quot;&quot;&#41;\n      oReg&#58;Close&#40;&#41;\n      oReg &#58;= NIL\n      IF !EMPTY&#40;cDriver&#41;\n        cDriver &#58;= IIF&#40;&quot;&#46;&quot; $ cDriver, LEFT&#40;cDriver, AT&#40;&quot;&#46;&quot;, cDriver&#41; - 1&#41;, cDriver&#41;\n        EXIT\n      ENDIF\n    ELSE\n      oReg&#58;Close&#40;&#41;\n      oReg &#58;= NIL\n      IF RegOpenKey&#40; HKEY_LOCAL_MACHINE,  cSubKeys2,  @nHandle &#41; == 0\n        n1 &#58;= 0\n        TENVDRIVER &#58;= &#123;&#125;\n        DO WHILE &#46;T&#46;\n          cValue &#58;= &quot;&quot;\n          n2 &#58;= RegEnumKey&#40; nHandle, n1,  @cvalue  &#41;\n          IF n2 = 0\n            IF ASCAN&#40;TENVDRIVER, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41; = 0\n              AADD&#40;TENVDRIVER, STRTRAN&#40;cValue, &quot;,&quot; , &quot;\\&quot;&#41;&#41;\n            ENDIF\n          ELSE\n            EXIT\n          ENDIF\n          SysRefresh&#40;&#41;\n          n1 ++\n        ENDDO\n        RegCloseKey&#40; nHandle &#41;\n        SysRefresh&#40;&#41;\n\n        FOR X2 &#58;= 1 TO LEN&#40;TENVDRIVER&#41;\n\n          oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, cSubKeys2 + &quot;\\&quot; + TENVDRIVER&#91;X2&#93; + &quot;\\&quot; + cNomDriver&#41;\n          IF oReg&#58;nError = 0\n            cDriver &#58;= oReg&#58;Get&#40;&quot;Driver&quot;, &quot;&quot;&#41;\n            oReg&#58;Close&#40;&#41;\n            oReg &#58;= NIL\n            IF !EMPTY&#40;cDriver&#41;\n              cDriver &#58;= IIF&#40;&quot;&#46;&quot; $ cDriver, LEFT&#40;cDriver, AT&#40;&quot;&#46;&quot;, cDriver&#41; - 1&#41;, cDriver&#41;\n              EXIT\n            ENDIF\n          ELSE\n            oReg&#58;Close&#40;&#41;\n            oReg &#58;= NIL\n          ENDIF\n          SysRefresh&#40;&#41;\n\n        NEXT X2\n        IF !EMPTY&#40;cDriver&#41;\n          EXIT\n        ENDIF\n      ENDIF\n    ENDIF\n    SysRefresh&#40;&#41;\n  NEXT X\nENDIF\nSysRefresh&#40;&#41;\nRETURN cDriver\n\n[/code:86jsy2iz][code:86jsy2iz]\n\n*******************\nFUNCTION WinGetPrnP&#40;cNomImpr&#41;\n*******************\n* Renvoie le &#40;nom du fichier&#41; Driver et le Port de l\'imprimante dont le nom est le contenu de cNomImpr&#46;\n* Le Driver et le Port sont renvoyés dans une chaine, séparés par une virgule&#46;\n* Auteur Badara THIAM\n\nLOCAL cDriver &#58;= &quot;&quot;\nLOCAL cNomDriver &#58;= &quot;&quot;\nLOCAL cPort &#58;= &quot;&quot;\nLOCAL oReg\nLOCAL X\nLOCAL Y\nLOCAL TIMP &#58;= WinGetPrn&#40;&#41;\nLOCAL TSERVEURS &#58;= &#123;&#125;\n\n* Recherche l\'imprimante Windows ayant le même nom,\n* en convertissant en minuscule et en supprimant les espaces\nFOR X &#58;= 1 TO LEN&#40;TIMP&#41;\n  IF MEMEIMPRIM&#40;@cNomImpr, TIMP&#91;X&#93;&#41;\n  * Si c\'est la même imprimante\n    EXIT\n  ENDIF\nNEXT X\n\nIF X &lt;= LEN&#40;TIMP&#41;\n\n  oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE,;\n  &quot;System\\CurrentControlSet\\Control\\Print\\Printers\\&quot; + STRTRAN&#40;TIMP&#91;X&#93;,&quot;\\&quot;,&quot;,&quot;&#41;&#41;\n\n  IF oReg&#58;nError &lt;&gt; 0\n\n    * Recherche les imprimantes réseau non répertoriées &#40;ajouté le 20/10/2006&#41;\n    oReg&#58;Close&#40;&#41;\n    oReg &#58;= NIL\n    TSERVEURS &#58;= WinGetSerP&#40;&#41;\n\n    FOR Y &#58;= 1 TO LEN&#40;TSERVEURS&#41;\n\n      oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE,;\n      &quot;SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers&quot; ;\n      + &quot;\\&quot; + TSERVEURS&#91;Y&#93; + &quot;\\Printers\\&quot; + STRTRAN&#40;TIMP&#91;X&#93;,&quot;\\&quot;,&quot;,&quot;&#41;&#41;\n\n      IF oReg&#58;nError = 0\n        EXIT\n      ELSEIF &quot;\\&quot; $ TIMP&#91;X&#93;\n        * Si &quot;\\&quot; est présent dans le nom d\'imprimante, c\'est &quot;peut-être&quot; la fonction WinGetPrn&#40;&#41;\n        * qui a inséré le nom de serveur dans le nom d\'imprimante&#46; Pour le vérifier,\n        * recherche également le nom de l\'imprimante sans le nom de serveur\n        oReg&#58;Close&#40;&#41;\n        oReg &#58;= NIL\n        oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE,;\n        &quot;SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers&quot; ;\n        + &quot;\\&quot; + TSERVEURS&#91;Y&#93; + &quot;\\Printers\\&quot; + SUBSTR&#40;TIMP&#91;X&#93;, RAT&#40;&quot;\\&quot;,TIMP&#91;X&#93;&#41; + 1 &#41; &#41;\n        IF oReg&#58;nError = 0\n          EXIT\n        ENDIF\n      ENDIF\n      oReg&#58;Close&#40;&#41;\n      oReg &#58;= NIL\n    NEXT Y\n\n  ENDIF\n  IF oReg != NIL\n    IF oReg&#58;nError = 0\n      cPort &#58;= oReg&#58;Get&#40;&quot;Port&quot;, &quot;&quot;&#41;\n      cNomDriver &#58;= oReg&#58;Get&#40;&quot;Printer Driver&quot;, &quot;&quot;&#41;\n    ENDIF\n    oReg&#58;Close&#40;&#41;\n    oReg &#58;= NIL\n  ENDIF\n  IF cNomDriver != &quot;&quot;\n    cDriver &#58;= WinGetPrnD&#40;@cNomDriver&#41;\n  ENDIF\nENDIF\nRETURN cDriver + &quot;,&quot; + cPort\n[/code:86jsy2iz]','',0,'AIA=','86jsy2iz',1,0,'',170,0,0),(20807,4705,6,123,0,'88.0.86.53',1161863653,1,0,1,1,1,0,'','','Arturo,\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> hay dos artículos que hablan sobre ADO.  Tambien vas a encontrar dos clases básicas para acceso a bases de datos con ADO y tOleauto.  En linux creo que va a ser complicado que funcionen.  ADO solo funciona bajo Windows.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','3bjy3bqk',1,0,'',123,0,0),(20808,4703,6,123,0,'88.0.86.53',1161863781,1,0,1,1,1,0,'','','Arturo,\n\n[quote:3qg8xq92]Gracias, por la respuesta, estoy buscando algo que funciones bien en ambos mundos ( Guindows, Linux )[/quote:3qg8xq92]\n\nEntonces no lo dudes... vete a odbc de la mano de Condor1.  Es multiplataforma.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','3qg8xq92',1,0,'',123,0,0),(20809,4679,6,105,0,'200.72.140.34',1161864737,1,0,1,1,1,1,'','','Antonio....\n\nEso soluciona lo de las pruebas, pero aun no envia bien  los CHR(0)..\nexistira alguna forma de hacer un CHR2(), como para lograr enviar el correcto valor que requiere el OCX, porque segun la descripcion de la funcion   en el Codigo fuente, el CHR(0) no envia el valor, sino que el caracter NULL y eso causa mi problema...\n\nCaulquier ayuda sera bienvenida.. \n\nGrax....','',0,'gA==','1958rmzy',1,0,'',105,0,0),(20810,4706,3,160,0,'220.225.17.210',1161868037,1,0,1,1,1,0,'','DbCombo Problem','Dear All,\n\nI am using May-2006 build. I face two problem while using a Numeric Item Field.\n\n1) I have to initialise the variable with Record Position + 1, instead of actual value. This is not the case with Character value.\n2) In above case, variable is initialised with above Record Position. If Dbcombo, do not get the focus, its value remains record position only.\n3) While issuing oDbc:Refill(), I get error on DbCombo.PRG =&gt; TDBCOMBO:RILL(167). It seems typo, Rill instead of Fill.\n\nCan anybody shed light on it ?\n\nBelow is the sample code.\n\nTIA\nMilan.\n\n---------------------------Cut-------------------------------------\n# include \"fivewin.ch\"\n# include \"DBCOMBO.CH\"\n\nfunction Main()\n\n   local oDlg, oCbx, obtn, nItemCode\n   local cName := \'         \'\n\n   Cret_Test()\n\n   DEFINE DIALOG oDlg FROM 10, 10 TO 20, 50 ;\n      TITLE \"DBomboBox Test\"\n\n   nItemCode := 3\n\n   SELECT Test\n   Locate for Itemcode==nItemCode\n   IF found()\n      nItemCode := RecNo() + 1\n   ELSE\n      nItemCode := 0\n   endif\n\n   @ 0.5, 1    GET cName PICTURE \"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\"\n\n   @ 1.5, 1 DBCOMBO oCbx VAR nItemCode ALIAS \"TEST\" ITEMFIELD \"ITEMCODE\" LISTFIELD \"ITEMNAME\"\n\n   @ 2,   1    SAY nItemCode PICT \'999\'\n\n   @ 3, 1 BUTTON obtn ACTION  New_Rec(oCbx)\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   MsgInfo (nItemCode)\n\nRETURN NIL\n\nPROCEDURE Cret_Test\n    LOCAL aTest := {;\n                 { \"ITEMCODE\"  , \"N\",     5,    0 },;\n                 { \"ITEMNAME\"  , \"C\",    30,    0 } }\n    DBCREATE (\'TEST\', aTest)\n\n    SELE 0\n    USE TEST\n    FOR I = 1 TO 10\n    APPE BLANK\n    REPLACE ITEMCODE WITH 11-I\n    REPLACE ITEMNAME WITH \'ITEM-\'+STR(11-I,5)\n    NEXT\nRETURN\n\nPROCEDURE add_rec()\n    LOCAL nRec\n\n    SELECT Test\n    appe blank\n    nRec := LASTREC() + 1\n\n    REPLACE ITEMCODE WITH nRec\n    REPLACE ITEMNAME WITH \'ITEM-\' + LTRIM (Str(nRec,5))\n\n    COMMIT\n    RETURN\n\nPROCEDURE New_Rec(oCbx)\n   add_rec()\n   oCbx:Refill()\n   oCbx:ReSet()\n   oCbx:DEFAULT()\nreturn\n---------------------------Paste----------------------------------','',0,'gA==','hzvtv6ql',1,0,'',160,0,0),(20811,4707,3,781,0,'201.43.156.81',1161868801,1,0,1,1,1,0,'','Problems in FWH 2.8 using NOWAIT Dialogs','Hello,\n   I\'ve compiled the sources of the new fwh 2.8 version and I\'ve noticed some problem with dialogs using the NOWAIT (or NOMODAL) clause.\n   When I\'ve tried to run the program executable, I got a Windows error message, saying \'This program has performed an illegal operation and will be shut down.\'\n   Here\'s a sample that I\'ve make to try to simulate the error:\n\n//---------------------------------------------------------------------------------//\nfunction Main()\n   local oDlg\n\n   DEFINE DIALOG oDlg ; \n               FROM 1,10 TO 30,50 ; \n               TITLE \"NoWait\"\n\n   MsgInfo(\"Before ACTIVATE\")\n\n   ACTIVATE DIALOG oDlg NOWAIT // error occurred at this line.\n\n   MsgInfo(\"After ACTIVATE\")\n\nreturn NIL\n//---------------------------------------------------------------------------------//\n    I\'ve already tried to recompile the DIALOG.PRG from the \\FWH\\SOURCE\\CLASSES folder, but I\'ve got no solution. \n    Can someone help me to figure this out?\n\nBest Regards,','',0,'gA==','1pbtk85l',1,0,'',781,0,0),(20812,4704,6,53,0,'189.139.20.158',1161869507,1,0,1,1,1,1,'','','Paco:\n\nEste es un ejemplo del Master René\n\nON DBLCLICK (cCve := (cPersonal)-&gt;PER_CVE,Teclado(oDlg,13,1),;\n			oDlgBus:End())\n\n\nFUNCTION Teclado(oDlg,nKey,nVeces)\n	LOCAL nVez\n	DEFAULT nVeces := 1\n	oDlg:SETFOCUS()\n	FOR nVez := 1 TO nVeces\n		oDlg:POSTMSG(WM_KEYDOWN,nKey,0)\n	NEXT\nRETURN (NIL)\n\nOjalá te sirva\n\nSaludos, Armando','',0,'gA==','1bmmz21p',1,0,'',53,0,0),(20813,4708,6,104,0,'201.58.9.142',1161874796,1,0,1,1,1,0,'','Manual de ADS','Olá,\n\nExiste algum manual com exemplos de como usar o ADS e suas funções ?\n\nObrigado,\n\nRossine.','',0,'gA==','2c5ozesg',1,0,'',104,0,0),(20814,4709,3,388,0,'61.94.40.52',1161875208,1,0,1,1,1,0,'','Fatal : access Violation. Link Terminated','Hi, all,\n\nDoes anyone know what the meaning of this error ? ( as subject )\n\nThanks.\n\nRegards\n\nKok joek hoa\n\nnote : Fwh 2.7 + Harbour + Borland C  and inlink32.exe version 5.66','',0,'gA==','13j8ka53',1,0,'',388,0,0),(20815,4710,1,819,0,'216.34.194.113',1161876271,1,0,1,1,1,0,'','Arrow keys don\'t work in ListBox in FW24 and XP','Five Win,\n\nWe\'ve hit a wall with arrow keys in some part of our POS. The Up and Down arrow keys is not working in a the List Box but in other part of the program like in popup menus it works fine. \n\nEnvironment: XP, Clipper5.2, comix and FW24\n\nIs there any FW update in the List box that may correct the this behavior?\n\nOr there is anything I can tweak in the list box?\n\nTIA','',0,'gA==','3cjljdxj',1,0,'',819,0,0),(20816,4646,20,89,0,'213.21.136.60',1161877670,1,0,1,1,1,0,'','','Ciao Enrico \n\nHo aggiunto al documento un Tab con il codice seguente , e funziona correttamente .  \nNon riesco pero a posizionarmi su quel TAB per inserire una scritta .\n\nVolevo chiederti se tu sai come fare. \n\nMAurizio\n\n\n\n#include \"fivewin.ch\"\nFunction MAin()\nLOCAL oWord, oDoc, oParagraphFormat , oTabstop\noWord = CREATEOBJECT( \"Word.Application\" ) \noDoc = oWord:Documents:Add() \n\n oParagraphFormat := oDoc:Get( \'ParagraphFormat\')\n otabstop := oParagraphFormat:Get( \'TabStops\')\n oTabstop:Invoke(\'Add\', 300 ,2)   \n oWord:Visible = .T. \n oWord:WindowState = 1 \n\nRETURN NIL','',0,'gA==','3raofhf2',1,0,'',89,0,0),(20817,4708,6,138,0,'189.141.64.226',1161878742,1,0,1,1,1,1,'','','Si, yo hice mi propio manual que incluye:\n\n1) Instalacion para Novell y Windows\n2) Tipos de Servidores: Local, Remoto, Internet\n3) Configuracion de los disitintos tipos de servidores\n4) Puesta a punto, asingacion de puertos y balance de carga\n5) Formatos de archivos soportados (DBF y ADT)\n6) Uso del Advantage Data Architech\n7) Uso de Filtros Optimizados Advantage\n<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Uso de transacciones\n9) Advantage Internet Server, instalacion y configuracion\n10) Uso de ADS con Clipper\n11) Uso de ADS con (x)Harbour\n12) Referencia de Funciones para (x)Harbour\n13) Referencia de Funciones para Clipper\n14) Referencia de instrucciones para el Streamline SQL\n\nSon un poco mas de 100+ paginas y esta totalmente escrito en español.\n\nEsta en español y lo damos sin costo a nuestros clientes','',0,'gA==','38vakkaf',1,0,'',138,0,0),(20818,4683,2,543,0,'80.35.53.178',1161879322,1,0,1,1,1,0,'','Y ten en cuenta los campos MEMO.','Pues eso, que si tienes en tu tabla algún campo de tipo MEMO, cuando crees la nueva tabla temporal (y si utilizas COMIX), te creará un archivo TEMPORAL.FPT, que tendrás que renombrar al igual que el archivo temporal TEMPORAL.DBF.\n\nUn saludo,\nFernando','',0,'gA==','kotip4p6',1,0,'',543,0,0),(20819,4707,3,2,0,'87.218.146.247',1161879522,1,0,1,1,1,1,'','','We have just tested your code using FWH 2.8 with both Harbour and xHarbour and it works ok. \n\nHave you modified the FWH classes source code ?','',0,'gA==','2f1sthi5',1,0,'',2,0,0),(20820,4709,3,2,0,'87.218.146.247',1161879686,1,0,1,1,1,1,'','','The OBJ may be corrupted. Have you tried to recompile it ?\n\nAlso please check that the LIBs and RES files are ok.','',0,'gA==','2gkskffl',1,0,'',2,0,0),(20821,4710,1,2,0,'87.218.146.247',1161879784,1,0,1,1,1,1,'','','Check that the listbox has the focus:\n\noListBox:SetFocus()','',0,'gA==','25j0q0jo',1,0,'',2,0,0),(20822,4646,20,6,0,'87.16.213.60',1161880855,1,0,1,1,1,1,'','','Eccoti un esempio funzionante:\n\n[code:1chgj8pl]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord, oDoc, oSel\n\n    oWord = CREATEOBJECT&#40; &quot;Word&#46;Application&quot; &#41;\n\n    oDoc  = oWord&#58;Documents&#58;Add&#40;&#41;\n\n    oDoc&#58;Paragraphs&#58;TabStops&#58;Add&#40; 300 &#41;\n\n    oDoc&#58;Select&#40;&#41;\n\n    oSel = oWord&#58;Selection\n\n    oSel&#58;InsertAfter&#40; CHR&#40; 9 &#41; + &quot;This is a test&#46;&quot; &#41;\n\n    oSel&#58;Collapse&#40;&#41;\n\n    oWord&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:1chgj8pl]\n\nEMG','',0,'AIA=','1chgj8pl',1,0,'',6,0,0),(20823,4686,2,838,0,'80.34.222.112',1161881012,1,0,1,1,1,0,'','','Hola de nuevo\n\nEjecutando blat desde la linea de comandos, me ocurre lo mismo, es decir, que sólo me puedo enviar correos a mí mismo.\n\nBlat -to(aquí pongo <!-- e --><a href=\"mailto:destino@destino.com\">destino@destino.com</a><!-- e -->, que es el correo de destino), pues simplemente con ésto, me dice que no conoce ésta dirección. Y yo digo ¿para que quiere conocerla? lo que tiene que hacer es mandarlo.\n\nsin embargo si digo blat -to(mi correo) sí lo manda por correo, y al rato recibo un correo, y el remitente soy yo mismo.\n\nSerá de la configuración?\n\nQue hago mal\n\nUn saludo','',0,'AIA=','3lrol4d7',1,0,'',838,0,0),(20824,4711,6,131,0,'83.38.69.1',1161881279,1,0,1,1,1,0,'','xDevStudio','Siguiendo un enlace del foro he llegado a la página de xDevStudio <!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/download.php?id=xDevStudio\">http://www.sqllib.com.br/download.php?id=xDevStudio</a><!-- m --> . Alguien sabe si hay una versión en castellano o sólo está en portugues.\n\nSaludos,','',0,'AIA=','1qypkxhn',1,0,'',131,0,0),(20825,4706,3,303,0,'72.199.41.171',1161885414,1,0,1,1,1,0,'','','Milan,\n\nThe rill() typo was fixed in the next release.\n\nDBCombo is a subclass of the Combobox class and the Combobox class was designed to use character data only. I received a number of requests to allow the use of numeric data for the itemfield value so I attempted to provide this capability, but the more I worked on it the more complicated it became. The problem is that the Combobox class allows the use of numeric values in some of its methods but it assumes that if they are numeric they are record numbers, not data. This may be fixable, but it is going to require a lot of work and I don\'t know when I will be able to look at it.\n\nI have never used a numeric value for a code (itemno, custno, etc) so it has never been a problem for me. If you are developing a new application, I suggest simply not using numeric values for codes. If you have a legacy application, then I suggest using arrays and the dbcombo:setItems( aItems, aList ) method. File the aItems array with cValToChar( itemcode). And if you wish to use the incremental search then don\'t forget to index the database on upper(itemname) before loading the arrays.\n\nJames','',0,'AIA=','jl26bjtk',1,0,'',303,0,0),(20826,4689,3,31,0,'89.190.104.93',1161885838,1,0,1,1,1,1,'','Re: How Could report save as a xls file ?','[quote=&quot;jose_murugosa&quot;:1z6ofecp]\n\nSee this topic, I think it could be what you are looking for...\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3023\">http://fivetechsoft.com/forums/viewtopic.php?t=3023</a><!-- m -->[/quote:1z6ofecp]\n\n   Hello Jose !\n\n   Maybe you can send any .bc or .bat to build sample for that ?\n\n   Regards !','',0,'gA==','1z6ofecp',1,0,'',31,0,0),(20827,4686,2,92,0,'213.96.45.6',1161886413,1,0,1,1,1,0,'','Ejemplo de uso de TFBlat.','Hola,\n\nEn otro mail de este foro dejé el código completo de la clase, por favor usa ese.\n\nY para enviar emails, en teroría el siguiente código debería funcionarte:\n\n******************************************\n/* Hay un pequeño detalle:\n   New() y Send() devuelven el objeto oTFBlat\n   End() devuelve .T. o .F.\n*/\n\n    CursorWait()\n\n    oBlat := TfBlat():New( AllTrim(cServer), ;\n                           AllTrim(cMailsend), ;\n                           cUbicacionBlat, ;\n                           \"C:\\TEMP\\\", ;\n                           { AllTrim(cMailsend) }, ;\n                           Nil, ;\n                           aSelectMail, ;\n                           AllTrim(cAssumpte), ;\n                           \"\" ;\n                        )\n\n\n    oBlat:FAttach( elficheroadjunto.pdf )\n    oBlat:lDeleteTemp := .T.\n    oBlat:MakeFBody( cCuerpo )\n    oBlat:MailFrom( cMailresp )\n    oBlat:Send()\n\n    CursorArrow()\n\n    If !oBlat:lSendOk\n        While !oBlat:lSendOk .and. MsgYesNo( \"Mail no tramès, s\'ha produit un error. El Vol tornar a trametre?\", \"Atenció\" )\n            CursorWait()\n            oBlat:SendAgain( )\n            CursorArrow()\n        End\n        If !oBlat:lSendOk\n            If MsgNoYes( \"Error en la tramesa del mail, vols CONSERVAR el mail i reintentar manualment l\'enviament?\", ;\n                          \"Atenció\" )\n                MsgAlert( \"Per l\'enviament manual del mail llença el fitxer: \" + oBlat:cFileBat , \"Atenció\" )\n                oBlat:lDeleteTemp := .F.\n            Endif\n        EndIf\n    EndIf\n\n    oBlat:End()\n******************************************\n\nSaludos y Suerte\nCarlos G.','',0,'gA==','2zuzdb39',1,0,'',92,0,0),(20828,4281,7,840,0,'201.242.74.34',1161890626,1,0,1,1,1,0,'','','SALUDOS, DESDE VENEZUELA \nDARIO FERREIRA\n\n[quote=&quot;Mike Serra&quot;:1auoexfr]Carles, serias tan amable de enviarme a mi tambien el ejemplo?\n\n\nMUCHAS GRACIAS![/quote:1auoexfr]','',0,'gA==','1auoexfr',1,0,'',840,0,0),(20829,4703,6,791,0,'190.37.160.6',1161891272,1,0,1,1,1,0,'','','Condor1 que es y donde busco  informacion sobre el tema.\n\nGracias,','',0,'gA==','2r4libqf',1,0,'',791,0,0),(20830,4703,6,54,0,'189.132.105.139',1161891928,1,0,1,1,1,1,'','','[quote=&quot;Arturo Nava&quot;:3oodtu75]Condor1 que es y donde busco  informacion sobre el tema.\n\nGracias,[/quote:3oodtu75]\n\nArturo,\n\nCondor1 es de la autoria de Manú Expósito, \n\nTe puedes dar de alta desde aqui\n\n<!-- m --><a class=\"postlink\" href=\"http://es.groups.yahoo.com/group/condor1\">http://es.groups.yahoo.com/group/condor1</a><!-- m -->\n\nSaludos, espero te sirva','',0,'gA==','3oodtu75',1,0,'',54,0,0),(20831,4705,6,791,0,'190.37.160.6',1161892067,1,0,1,1,1,0,'','','Gracias por la informacion, entonces que tecnologia puedo usar para accesar las Bases de Datos tanto en Guindows y Linux, para no tener que reprogramar al pasar de un SO al otro.','',0,'gA==','26818ebf',1,0,'',791,0,0),(20832,4712,7,840,0,'201.242.74.34',1161892518,1,0,1,1,1,0,'','COMO PUEDO LEER UN ARCHIVO DESDE OTRA COMPUTADOR','ELA FUNCION CURDIR() NO LA CONSIGO EN EL MANUAL\n\nALGUIEN ME PUEDE EXPLICAR COMO FUNCIONA.\n\nQUIERO LEER DE MI POCKET PC UN ARCHIVO X QUE ESTA EN OTRA COMPUTADORA( EN RED WIFI) \n\nTAMBIEN TENGO UN PROBLEMA QUE GENERO UN INDEX NTX, O CDX\nY NO LO CRAE EN EL DIRECTORIO, EL PROGRAMA ME FUNCIONA EN  PRIMERA BUSQUEDA, ALGUIEN ME PUEDE DAR UN EJEMPLO..\n\nGRACIAS.\n\n\n<!-- e --><a href=\"mailto:dario.datamatic@gmail.com\">dario.datamatic@gmail.com</a><!-- e -->','',0,'gA==','3bibq83f',1,0,'',840,0,0),(20833,4704,6,73,0,'201.132.252.163',1161892814,1,0,1,1,1,0,'','','Gracias Antonio y Armando, ya funciono\nsalu2\nPaco','',0,'gA==','2t6w351g',1,0,'',73,0,0),(20834,4686,2,838,0,'80.59.225.15',1161893731,1,0,1,1,1,0,'','','Gracias por tu respuesta\n\nEstoy utilizando tu clase, y nada. El problema creo que está en el blat.exe, porque como dije anteriormente, no me deja enviar un email, sin adjunto ni nada desde simbolo del sistema, osea a pelo. Siempre me dice que el email al que mando es desconocido, creo que me dice eso, porque está en Inglés y no lo entiendo muy bien.\nNo se si estará mal registrado blat o que, pero el caso es que no me puedo mandar correo nada mas que a mi mismo.\n\nSi con tu clase el envio me lo hago a mi propio correo funciona, como desde el simbolo de sistema, pero no puedo mandar a nadie, y lo he probado desde mi casa y desde mi trabajo con el mismo resultado, no se si es que no sabré instalar blat o que.\n\nDesde simbolo de sistema pongo blat -to(correo de destinatario) -body(cuerpo que quiero mandar), y responde:\n***********************\nSending stdin.txt to (correo de destinatario)\nLogin name is (mi correo)\nTe SMTP server does not like the sender name.\nHave you set your mail address correctly?\n******************************\nEntiendo que me dice que no le gusta el nombre de destino.\n\nHay solucion?\n\nUn saludo','',0,'gA==','1m1trwv9',1,0,'',838,0,0),(20835,4689,3,439,0,'200.125.37.64',1161893896,1,0,1,1,1,1,'','Re: How Could report save as a xls file ?','[quote=&quot;Rimantas&quot;:37e3xh3s][quote=&quot;jose_murugosa&quot;:37e3xh3s]\n\nSee this topic, I think it could be what you are looking for...\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3023\">http://fivetechsoft.com/forums/viewtopic.php?t=3023</a><!-- m -->[/quote:37e3xh3s]\n\n   Hello Jose !\n\n   Maybe you can send any .bc or .bat to build sample for that ?\n\n   Regards ![/quote:37e3xh3s]\n\nIn the zip file you will find everything you need, there is a .vrc file you can use with VerCE to build the sample.\n\nYou can download VerCE in : <!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\nis an aplication like xmate an others.','',0,'gA==','37e3xh3s',1,0,'',439,0,0),(20836,4700,3,425,0,'213.22.46.10',1161894990,1,0,1,1,1,0,'','','Hi Antonio\n\nTanxs for your answer, But i didn´t receive any mail\n\n<!-- e --><a href=\"mailto:psfaro@netcabo.pt\">psfaro@netcabo.pt</a><!-- e -->\npsfaro@hotmail\n\nBest regards\n\n        Pedro','',0,'gA==','1grqlqid',1,0,'',425,0,0),(20837,4708,6,104,0,'201.58.9.142',1161895574,1,0,1,1,1,0,'','','Olá Rene,\n\nNo meu caso que estou iniciando os testes com ads 8.0, teria como você me enviar este manual ?\n\nOutra pergunta: O ADS é mais seguro que o CDX tradicional ? Já tive problemas de duplicação de registros com o CDX, por isto retornei para .NTX\n\nGracias,','',0,'gA==','34ja28o7',1,0,'',104,0,0),(20838,4700,3,2,0,'87.218.146.247',1161896749,1,0,1,1,1,1,'','','Pedro,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/1D26ZJ3W/UEStudio.zip.html\">http://www.uploading.com/files/1D26ZJ3W ... o.zip.html</a><!-- m -->','',0,'gA==','1rowfqvd',1,0,'',2,0,0),(20839,4712,7,2,0,'87.218.146.247',1161897381,1,0,1,1,1,1,'','','Dario,\n\n&gt; LA FUNCION CURDIR() NO LA CONSIGO EN EL MANUAL \n\nCurDir() --&gt; cCurrentDirectory\n\nOjo, en Pocket PC no hay identificador de unidad, es decir no hay C: ó similar.\n\nPuedes probarla así: MsgInfo( CurDir() )\n\n&gt;\nQUIERO LEER DE MI POCKET PC UN ARCHIVO X QUE ESTA EN OTRA COMPUTADORA( EN RED WIFI) \n&gt;\n\nHas de mapear el directorio de esa computadora para que sea accesible desde el Pocket PC haciendo \\\\NombreOtraComputadora\\path\\NombreFichero. Puedes usar MemoRead() para cargarlo en memoria:\n\nMsgInfo( MemoRead( \"\\\\NombreOtraComputadora\\path\\NombreFichero\" ) )\n\n&gt;\nTAMBIEN TENGO UN PROBLEMA QUE GENERO UN INDEX NTX, O CDX \nY NO LO CRAE EN EL DIRECTORIO, EL PROGRAMA ME FUNCIONA EN PRIMERA BUSQUEDA, ALGUIEN ME PUEDE DAR UN EJEMPLO.. \n&gt;\n[code:2zvgpo7z]\n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41; VIA &quot;DBFCDX&quot;\n   INDEX ON Customer-&gt;Last TO &quot;LAST&quot;\n   Customer-&gt;&#40; OrdSetFocus&#40; &quot;LAST&quot; &#41; &#41;\n   Customer-&gt;&#40; DbGoTop&#40;&#41; &#41;\n[/code:2zvgpo7z]\nRevisa samples\\TestBrwS.prg','',0,'AIA=','2zvgpo7z',1,0,'',2,0,0),(20840,4713,6,37,0,'201.240.141.37',1161897423,1,0,1,1,1,1,'','Acceder a sistema desde ubicaciones remotas.','Estimados co-listeros, me inmagino que mas de uno ya habra evaluado esta necesidad, en resumen :\n\nTengo un servidor windows 2000, ahi tengo instalada mi aplicacion FW, tengo 3 versiones de la misma, puedo usar cualquier FW-Clipper-DBFCDX FWH-xHarbour-DBFCDX y FWH-xHarbour-MySQL.\nObviamente de manera local en mi RED ingresamos varios usuarios sin problemas.\n\nPregunta : de que manera, con que software, cual es la mejor forma de acceder al sistema que esta en el servidor, como si fuera un usuario mas de la RED, osea no solo una conexion remota sino unas 10 o mas.\nAlguien tiene experiencia, resultados concretos.\n\nMuchas gracias por sus comentarios','',0,'AIA=','103mirpi',1,0,'',37,0,0),(20841,4703,6,791,0,'190.37.160.6',1161898940,1,0,1,1,1,0,'','','Gracias por la informacion.','',0,'AIA=','28aqn5k6',1,0,'',791,0,0),(20842,4604,6,110,0,'165.98.169.198',1161907143,1,0,1,1,1,1,'','','de ser posible enviame el prg para ver que pasa.\n\nuna sugerencia, cuando uses modo consola, usa\n\n[code:2sftdok7]\n#include &quot;misincludes&#46;ch&quot;\n\n/*programa principal*/\nprocedure Main&#40;&#41;\n  &#46;&#46;&#46;&#46;\n  SetMode&#40;25,80&#41;\n  Alert&#40;&quot;Hola Mundo &#58;-&#41;&quot;&#41;   /`/para comprobar\n  &#46;&#46;&#46;&#46;\nreturn\n\n[/code:2sftdok7]\n\nAdemas debes verificar que se este usando gtwin.lib y no otra lib como gtgui.lib (esta se usa soloamente en fwh y otras librerias gui)','',0,'AIA=','2sftdok7',1,0,'',110,0,0),(20843,4271,6,307,0,'200.76.229.34',1161907165,1,0,1,1,1,0,'','un ejemplo','tendran un ejemplo de como poner las pantallas mas bonitas con imagenes..??\n\ngracias\n\narnulfo','',0,'AIA=','1hcnmwn7',1,0,'',307,0,0),(20844,4714,3,69,0,'74.13.30.203',1161907782,1,0,1,1,1,0,'','Latest FWH Manuals','Hi Antonio,\n\nWhere can I get the latest up to date FWH manuals ?\n\n\nThanks,\n\nJeff','',0,'AIA=','1wk6fip2',1,0,'',69,0,0),(20845,4667,1,379,0,'59.167.115.201',1161908800,1,0,1,1,1,0,'','Character Set','I use AnsitoOem on reading and OemtoAnsi on display and still get weird characters.  Probably something simple but got me stumped.','',0,'AIA=','lnrhgxby',1,0,'',379,0,0),(20846,4715,6,100,0,'201.16.38.3',1161922817,1,0,1,1,1,1,'','LoadLibrary OR LoadLib32','Ola amigos\n\nTem diferença entre LoadLibrary e LoadLib32 ??\n\nElas pertencem a quem xHarbour ou FWH ??\n\n\nGratos','',0,'AIA=','3p252ygp',1,0,'',100,0,0),(20847,4689,3,31,0,'195.182.84.105',1161924283,1,0,1,1,1,1,'','Re: How Could report save as a xls file ?','[quote=&quot;jose_murugosa&quot;:2ecuj87q]\nIn the zip file you will find everything you need, there is a .vrc file you can use with VerCE to build the sample.\n\nYou can download VerCE in : <!-- m --><a class=\"postlink\" href=\"http://www.esm.com.mx/fivewin/index.htm\">http://www.esm.com.mx/fivewin/index.htm</a><!-- m -->\nis an aplication like xmate an others.[/quote:2ecuj87q]\n\n  The problem is that this Verce works only in Spanish language . The .bc ot .bat file for samples or test it\'s more suitable for that . \n\n  Regards ,','',0,'gA==','2ecuj87q',1,0,'',31,0,0),(20848,4686,2,838,0,'80.34.222.112',1161931883,1,0,1,1,1,0,'','','Para aclarar lo anterior, en el registro tengo:\n*************************\nPredeterminado: valor no establecido\nConexion:\nLoguin:\nPwd:\nSecure Server:.F.\nSender:mi correo@mi correo.com\nSMTP Port:25\nSMTP server:smtp.telefonica.net\nTry:1\nUser name:\nUser password:\n*****************************\n\nEsta esto bien?\n\nSaludos[/img]','',0,'','2qpa6an4',1,0,'',838,0,0),(20849,4714,3,2,0,'87.218.146.192',1161934175,1,0,1,1,1,1,'','','Jeff,\n\nThey were included with the FWH distribution that you have. Changes are in whatsnew.txt, and manuals get upgraded from it periodically.','',0,'','3uqka1xf',1,0,'',2,0,0),(20850,4610,3,6,0,'87.16.223.191',1161934213,1,0,1,1,1,1,'','','Updated and fixed version:\n\n[code:sapnplp9]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define MO_NONE 0\n#define MO_ASC  1\n#define MO_DESC 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    oBrw = TMyWBrowse&#40;&#41;&#58;New&#40; 0, 0, , ,;\n                             &#123; || &#123; TEST -&gt; last, TEST -&gt; first, &quot;&quot; &#125; &#125;,;\n                             &#123; &quot;LAST&quot;, &quot;FIRST&quot;, &quot;&quot; &#125;,;\n                             &#123; 150, 150, 0 &#125; &#41;\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;abOrd = &#123; &#123; || MO_ASC &#125;, &#123; || MO_DESC &#125;, &#123; || MO_NONE &#125;, &#123; || MO_NONE &#125; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL\n\n\nCLASS TMyWBrowse FROM TWBrowse\n\n    DATA abOrd\n\n    METHOD Paint&#40;&#41;\n\nENDCLASS\n\n\n#define SM_CYHSCROLL 3\n\n\nMETHOD Paint&#40;&#41; CLASS TMyWBrowse\n\n    LOCAL aValues   &#58;= &#58;&#58;aHeaders\n    LOCAL aColSizes &#58;= &#58;&#58;GetColSizes&#40;&#41;\n\n    LOCAL nWidth &#58;= WNDWIDTH&#40; &#58;&#58;hWnd &#41; - IF&#40; &#58;&#58;oVScroll != nil &#46;AND&#46; EVAL&#40; &#58;&#58;bLogicLen &#41; &gt; 1, GETSYSMETRICS&#40; SM_CYHSCROLL &#41; + 3, 0 &#41;\n\n    LOCAL nColStart &#58;= -1\n\n    LOCAL nTop, nLeft, nRight\n\n    LOCAL hGPen, hWPen\n\n    LOCAL i\n\n    Super&#58;Paint&#40;&#41;\n\n    hGPen = CREATEPEN&#40; 0, 1, CLR_GRAY &#41;\n    hWPen = CREATEPEN&#40; 0, 1, CLR_WHITE &#41;\n\n    nTop = 3\n\n    FOR i = &#58;&#58;nColPos TO LEN&#40; aValues &#41;\n        nLeft  = nColStart + 1\n        nRight = MIN&#40; nColStart &#58;= &#40; nLeft + aColSizes&#91; i &#93; - 1 &#41;, nWidth &#41;\n\n        IF nLeft &gt; nWidth\n            EXIT\n        ENDIF\n\n        IF i == LEN&#40; aValues &#41;\n           nRight = nWidth\n        ENDIF\n\n        nRight -= 10\n\n        IF EVAL&#40; &#58;&#58;abOrd&#91; i &#93; &#41; = MO_ASC\n            MOVETO&#40; &#58;&#58;hDC, nRight, nTop &#41;\n\n            LINETO&#40; &#58;&#58;hDC, nRight + 6, nTop, hGPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight + 3, nTop + 6, hWPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight, nTop, hGPen &#41;\n        ENDIF\n\n        IF EVAL&#40; &#58;&#58;abOrd&#91; i &#93; &#41; = MO_DESC\n            MOVETO&#40; &#58;&#58;hDC, nRight, nTop + 6 &#41;\n\n            LINETO&#40; &#58;&#58;hDC, nRight + 6, nTop + 6, hGPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight + 3, nTop, hWPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight, nTop + 6, hGPen &#41;\n        ENDIF\n    NEXT\n\n    DELETEOBJECT&#40; hWPen &#41;\n    DELETEOBJECT&#40; hGPen &#41;\n\n    RETURN 0[/code:sapnplp9]\n\nEMG','',0,'AIA=','sapnplp9',1,0,'',6,0,0),(20851,4715,6,2,0,'87.218.146.192',1161934228,1,0,1,1,1,1,'','','LoadLib32() is just for FW 16 bits.\n\nYou should use LoadLibrary().','',0,'AIA=','s1w5x6k9',1,0,'',2,0,0),(20852,4271,6,2,0,'87.218.146.192',1161934320,1,0,1,1,1,1,'','','Arnulfo,\n\nRevisa el código de samples\\TestFldb.prg','',0,'AIA=','1hfx8vrq',1,0,'',2,0,0),(20853,4716,6,791,0,'190.37.173.141',1161936614,1,0,1,1,1,0,'','FiveWin e Eagle1','Hola, Saludos\n\nComo aprovecha el Eagle1 las nuevas caracteristicas del MySql 5 (\nTRIGGERS y Procedimientos Almacenados ).\n\nSi el Eagle1 sirve tanto para Guindows como para FiveLinux, osea se\npuede usar Eagle1 directamente en Linux.\n\nYo tengo la Version 2 de Eagle1, cuanto cuesta la nueva Version y como\npuedo adquirirla.\n\nAgradesco quien pueda darme informacion,\nSaludos, y Gracias','',0,'AIA=','36rljglu',1,0,'',791,0,0),(20854,4693,2,248,0,'212.145.179.68',1161942376,1,0,1,1,1,0,'','COMO RECORRER UN DIRECTORIO en fw','Has probado con :\n\nDIRECTORY() \n Crea una matriz de información de directorios y de ficheros','',0,'AIA=','92cf5nm7',1,0,'',248,0,0),(20855,4604,6,180,0,'194.179.55.36',1161942863,1,0,1,1,1,0,'','','Gracias por contestar, Carlos, pero no hay manera. Te importaría compilar\\enlazar\\ejecutar  harbour\\tests\\build clasname.prg a ver que resultados obtienes tú? Más arriba puedes ver un pantallazo de mi resultado y el resultado de Antonio Linares, obviamente debo tener algo mal configurado, aunque no se lo que es pues he utilizado el build de harbour que Antonio me envió. Repito que el ejecutable se crea pero sin resultados visibles al ejecutarlo.\n\nUn saludo.\nManuel','',0,'AIA=','h8c2x8fp',1,0,'',180,0,0),(20856,4271,6,547,0,'189.146.139.219',1161945106,1,0,1,1,1,0,'','otro look','Aqui esta.. muy similar a lo que podria ser una interfase generada con VB, pero no, es FWH  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[img:2v2z4rqn]http&#58;//www&#46;alfasistemas&#46;net/seguridad&#46;jpg[/img:2v2z4rqn]\n\nEstá generado con Resource WorkShop.\n... y no son bitmaps <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','2v2z4rqn',1,0,'',547,0,0),(20857,4713,6,77,0,'217.126.90.142',1161950561,1,0,1,1,1,0,'','','hola enrique, yo lo tengo en mi empresa y lo estoy haciendo con conexion mediante terminal server sobre una aplicación  echa en fivewin + clipper con dbfcdx, la velocidad es muy buena.\n\nsaludos.','',0,'CA==','ud0c56xw',1,0,'',77,0,0),(20858,4711,6,362,0,'200.168.52.156',1161951235,1,0,1,1,1,1,'','','Sólo en Português...\n\nPuedes hablar directamente con el Autor del Proyecto:\n\nVailton Renato\n\n<!-- e --><a href=\"mailto:renato@kssoftware.com.br\">renato@kssoftware.com.br</a><!-- e -->\n\nCreo que tenga una Vérsion en Ingléz...','',0,'CA==','201tqu30',1,0,'',362,0,0),(20859,4717,6,92,0,'213.96.45.9',1161951429,1,0,1,1,1,0,'','FileXLS Library de Ramón Avendaño','Hola a todos,\n\n¿Alguien tiene esta clase de Ramón que permita colorear celdas?\n\nLa que tengo yo es de 1999 !!!\n(por cierto lo poco que hago con ella va de perlas)\n\nSaludos\nCarlos G.','',0,'CA==','6o465yms',1,0,'',92,0,0),(20860,4686,2,92,0,'213.96.45.9',1161951726,1,0,1,1,1,0,'','Correo con Blat i FiveWin.','Creo que si.\n\nYo he conseguido enviar correo incluso sin tener nada en el registro.\n\nPor lo que he leído, lo que está en el registro simplemente es para no tener que teclearlo/indicarlo cada vez que se lanza Blat.exe\n\nEl problema que tenía yo es que mi cuenta era rebotada por estar en un servidor antispam y ¡¡¡A veces si a veces no!!!.\n\nIntenta indicar el cláusula \'log\' del blat para ver realmente que código/mensaje de error responde.\n\nSaludos\nCarlos G.','',0,'CA==','1120vaft',1,0,'',92,0,0),(20861,4718,6,519,0,'83.32.109.123',1161952120,1,0,1,1,1,0,'','Bitmap en Header','Alguien tiene  alguna idea de como se podria poner en un header algo parecido a esto ?\n \n \n  ::oBrw:aHeaders[nColpres]:=FwBmpAsc()+\"ok\"\n \n\n  Quiero poner un pequeño bitmap con  y despues el texto del header-\n\n  Un saludo y gracias','',0,'','14w0xq3u',1,0,'',519,0,0),(20862,4707,3,781,0,'201.13.199.162',1161953555,1,0,1,1,1,1,'','','Ok Antonio.\n\nI\'m grateful for your attention.\n\nSo I\'m gonna try to recompile the sources cuz\' I didn\'t modified\'em anyway.\n\n\nCould it be a problem with my xHarbour version? (0.99.6.1)','',0,'','1b3oh5v3',1,0,'',781,0,0),(20863,4707,3,781,0,'201.13.199.162',1161954904,1,0,1,1,1,1,'','','I\'ve solved the problem!\nJust reinstalled the xHarbour 0.99.6.1 (from the FWH 2.<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> and recompiled the sources!\n\nRegards, \nGrato','',0,'','3i0wpd6e',1,0,'',781,0,0),(20864,4689,3,160,0,'220.225.17.210',1161956176,1,0,1,1,1,0,'','Where can I get FileXls.Ch ?','While trying to build above mentioned TMReport Class, I need FileXls.Ch file. Where can I get it ?\n\nTIA\nMilan.','',0,'','1a56bn2u',1,0,'',160,0,0),(20865,4713,6,37,0,'200.121.251.45',1161956724,1,0,1,1,1,1,'','','Terminal Server, ese es algo que viene con WinXP y Windows 2000 o 2003 server creo ?\nSabes si necesito IP Fija ??\nPor favor algun link donde pueda acceder a informacion de como trabajar con Terminal Server ??\nMuchas gracias por contestar','',0,'','2lwavog8',1,0,'',37,0,0),(20866,4713,6,43,0,'189.128.87.123',1161957246,1,0,1,1,1,0,'','','Hola\n\nTambien puedes usar no-ip, si no tienes una ip fija o igualmente si la tienes.\n\nesta la direccion para mas informacion <!-- w --><a class=\"postlink\" href=\"http://www.no-ip.com\">www.no-ip.com</a><!-- w -->\n\n\nSaludos\nMarco A. Delgado','',0,'','r2skl7c1',1,0,'',43,0,0),(20867,4689,3,439,0,'200.125.36.188',1161959740,1,0,1,1,1,1,'','','Filexls.ch and filexls.lib are in:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2519\">http://fivetechsoft.com/forums/viewtopic.php?t=2519</a><!-- m -->','',0,'','2mk09s4q',1,0,'',439,0,0),(20868,4610,3,303,0,'72.199.41.171',1161960323,1,0,1,1,1,0,'','','Good work, Enrico. \n\nIf you look at the way Microsoft does column sorting, contrary to what you might think, they use the up arrow when the column is ascending and the down arrow when it is descending. I presume this is supposed to show what will happen when you click on the header rather than the current state of the sort. I have never be able to get used to this, but it is the standard. \n\nI am thinking about how to make this generic. I suppose we need a flag for each column containing the column status, ascending, descending or none (A, D, or N). \n\nThen I guess we need another instance var to hold an array of index orders. If a user clicks on a column then we check the sort status flag. If A then change to D, if D then change to A, if N then change to A and change all other column flags to N.\n\nWe would also have to make allowances for columns that don\'t have indexes. Either we create a temp index or we don\'t allow sorting. Perhaps we could use the size of the table to decide whether to build a temp index or not.\n\nIt would be really nice to have all this capability built into TWBrowse.\n\nJames','',0,'','3a3o4y7d',1,0,'',303,0,0),(20869,4713,6,215,0,'189.136.236.124',1161961753,1,0,1,1,1,0,'','¿Cómo se hace?','Lo del IP me queda claro... pero lo del terminal server ni idea.\n¿Alguien podría darnos los pasos por favor?\n\nGracias','',0,'','1fkiapo4',1,0,'',215,0,0),(20870,4610,3,303,0,'72.199.41.171',1161962259,1,0,1,1,1,0,'','','Enrico,\n\nSilly me. After looking at your code again, I see you already have added an array containing the sort status. I am curious as to why you used a codeblock instead of just a value?\n\nJames','',0,'','1epmuehd',1,0,'',303,0,0),(20871,4610,3,6,0,'87.16.223.191',1161962978,1,0,1,1,1,1,'','','Because that way the condition can be dynamic (ie. calculated during runtime). As an example you can use the status of ORDDESCEND().\n\nEMG','',0,'','ehc4gmrc',1,0,'',6,0,0),(20872,4271,6,52,0,'201.212.26.112',1161963377,1,0,1,1,1,1,'','Re: otro look','[quote=&quot;Alberto Juárez&quot;:3qrldevu]Aqui esta.. muy similar a lo que podria ser una interfase generada con VB, pero no, es FWH  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[img:3qrldevu]http&#58;//www&#46;alfasistemas&#46;net/seguridad&#46;jpg[/img:3qrldevu]\n\nEstá generado con Resource WorkShop.\n... y no son bitmaps <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->[/quote:3qrldevu]\n\nAlberto, en tu ejemplo, como haces para desactivar el prime boton, el que dice \"consulta\".\n\nGracias.','',0,'iA==','3qrldevu',1,0,'',52,0,0),(20873,4719,4,63,0,'80.37.102.128',1161963633,1,0,1,1,1,0,'','Scroll bars on Bitmap','I am trying to display a Bmp image larger than the screen.  I use the following line:\n[code:q37art27]\n@ 0,0 BITMAP oBmp FILENAME CurDir&#40;&#41;+&quot;\\Test&#46;bmp&quot; SIZE 290,240 PIXEL SCROLL OF oWnd \n[/code:q37art27]\n\nI get the horizontal and vertical bars but they are not operative, that is, the image does not move when I move the bars.  Has anybody found a cure for that?\nThanks\n\nRafael','',0,'AIA=','q37art27',1,0,'',63,0,0),(20874,4716,6,533,0,'80.32.177.143',1161963780,1,0,1,1,1,0,'','','Buenas Arturo:\n\n    Ponte en contacto con su autor, Manuel Expósito.\n\n    <!-- e --><a href=\"mailto:manuexposito@terra.es\">manuexposito@terra.es</a><!-- e -->\n\n    SALUDOS','',0,'AIA=','2ge9t0bh',1,0,'',533,0,0),(20875,4713,6,138,0,'189.141.64.226',1161964629,1,0,1,1,1,1,'','','Lo de terminal server depende muchismo del ancho de banda que tengas, y del \"punch\" que tenga el servidor.\n\nActualmente tenemos un cliente que tiene 25 conexiones remotas con terminal server sobre un ancho de banda de 1.3 Mbps, a un procesador Xeon de 2.4 GHZ con 1 GByte de memoria ram y la aplicacion es tremendamente lenta, sin embargo cuando tienes menos de 10 usuarios la velocidad es aceptable y funciona bien , para atender a los 25 usuarios remotos tendiramos que duplicar la capacidad del server metiendo otro procesador y otro Gbyte de memoria mas y doblar el ancho de banda pero el presupuesto no nos llega.\n\nLa solucion a estos problemas ha sido en todo caso, montar una VPN y utilizar Advantage Internet Server o bien la conexion internet de MySQL.\n\nLa solucion de terminales remotas que tenemos se basa mas que nada en conexiones diretamente a la IP del servidor mediante puertos, tanto para MySQL como para Advantage, con eso le hemos quitado carga de trabajo al servidor y lo hemos dejado solo para manejo de la base de datos, en vez de dividirlo entre procesamiento y servidor de bd.','',0,'AIA=','387517yc',1,0,'',138,0,0),(20876,4719,4,138,0,'189.141.64.226',1161964828,1,0,1,1,1,1,'','','I did the trick once upon a time.\n\nThe scrolls bars are independent controls, not the ones in the bitmap.\n\nYou have to define the window contaniner, then define INDIVUALLY the scrollbars, and after that you have to define the bitmap.\n\nOnce created, you have to catch the events of movement of the scrollbar, and manually move the bitmap.\n\nLet me check to see if I do have the program I made.','',0,'AIA=','1y4n5wkr',1,0,'',138,0,0),(20877,4686,2,838,0,'80.34.222.112',1161964897,1,0,1,1,1,0,'','','el log me dice esto\n\n\n2006.10.27 17:44:08 (Fri)------------Start of Session-----------------\nBlat v2.5.0 w/GSS encryption (build : Sep 14 2005 22:46:29)\nSending stdin.txt to <!-- e --><a href=\"mailto:jlglopez@telefonica.net\">jlglopez@telefonica.net</a><!-- e -->\nLogin name is <!-- e --><a href=\"mailto:serviruta@serviruta.e.telefonica.net\">serviruta@serviruta.e.telefonica.net</a><!-- e -->\nThe SMTP server does not like the name <!-- e --><a href=\"mailto:jlglopez@telefonica.net\">jlglopez@telefonica.net</a><!-- e -->.\nHave you set the \'To:\' field correctly, or do you need authorization (-u/-pw) ?\nThe SMTP server response was -&gt; 550 5.7.1 Unable to relay for <!-- e --><a href=\"mailto:jlglopez@telefonica.net\">jlglopez@telefonica.net</a><!-- e -->\n2006.10.27 17:44:08 (Fri)-------------End of Session------------------\n\n\nSi me voy a la configuración de outlook en Herramientas-&gt;Cuentas-&gt;propiedades, está marcada \"El servidor requiera autenticación\", y en el botón configuración está marcado \"Usar la misma confirguración que el servidor de correo entrante\".\n\nTiene ésto algo que ver.\n\nPorque con ésto he hecho también multitud de pruebas, y siempre que le doy a blat desde sistema, es que no pasa de una milésima de segundo cuando me responde lo de que no le gusta la dirección de correo que le doy, he desactivado el Firewall, y el antivirus, luego de eso no es.\n\nUn saludo\n\nJose Luis','',0,'AIA=','wg5yq2gx',1,0,'',838,0,0),(20878,4710,1,819,0,'216.34.194.113',1161965156,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the quick reply.\n\n&gt;Check that the listbox has the focus: \n&gt;oListBox:SetFocus()\n\nThe list box has focused. But somehow fivewin cannot process the up/down arrow keys.\n\nHere\'s fragment of the code:\n\n	@ 0,0 listbox aObject[AO_JOURNALLIST] fields headers \'Journal xx\' alias \'ARRAY\' pixel\n\n	#define LINES_NONE	0\n	aObject[AO_JOURNALLIST]:nLineStyle := LINES_NONE\n\n	// aObject[AO_JOURNALLIST]:AdjClient()\n	// Below statement does same as above and handles resize\n	aObject[AO_JOURNALWINDOW]:SetControl(aObject[AO_JOURNALLIST])\n	aObject[AO_JOURNALLIST]:bKeyChar := GetWndFrame():bKeyChar\n\n	// Apply font and color after journal list box is created 03/17/2004 11:42AM\n	activate window aObject[AO_JOURNALWINDOW] on init ( oRect:Apply( self ), ClickEvent( aObject[AO_JOURNALLIST], \'Journal\' ) ) ;\n	valid oRect:Save( aObject[AO_JOURNALWINDOW] ) .and. lChildEnd()\n	// logmsg( \'res.txt\',\'Font \' +\'aObject[AO_JOURNALWINDOW]:oFont:hFont\' +\' handle: \' +char( aObject[AO_JOURNALWINDOW]:oFont:hFont ) )\n\n	aObject[AO_JOURNALWINDOW]:Refresh()\n	\n	aObject[AO_JOURNALWINDOW]:SetFocus()  // FW recommendation - jdd\n\n	aObject[AO_JOURNALLIST]:bKeyDown:={||msgInfo(\"KeyCode: \"+str(LS_getKeyPressed())+ \"  lastkey:\" +str(lastkey()) )}\n\n\nObservation:\n\nThe b:KeyDown is invoked by FW when Up/down Arrow keys is pressed.\n\nThe value of nKeyPressed is 255 in both up/down Arrow keys.\n\n*************************\nfunction LS_getKeyPressed\n*************************\nlocal i:=0,nKeyPressed:=0\nfor i=0 to 255\n	//if getKeyStat(i)\n	if getAsyncKey(i)\n		nKeyPressed=i\n		exit\n	endif\nnext i\nreturn nKeyPressed\n\n\n***************\n\nGracias,','',0,'','36r3hn81',1,0,'',819,0,0),(20879,4610,3,303,0,'72.199.41.171',1161965284,1,0,1,1,1,0,'','','Here is a working example with the capabilities that I mentioned in my previous message.\n\nSome of this needs to be implemented better such as setting default values in the new() method. \n\nJames\n\n[code:1dh3ouhh]/*\nPurpose&#58; Test ascending/descending arrows in headers in TWBrowse\nAuthor &#58; Enrico Maria Giordano\nDate   &#58; 10/27/2006 7&#58;11AM\nRevised&#58; James Bott\n*/\n\n#include &quot;Fivewin&#46;ch&quot;\n\n\n#define MO_NONE 0\n#define MO_ASC  1\n#define MO_DESC 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE customer alias test\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    oBrw = TMyWBrowse&#40;&#41;&#58;New&#40; 0, 0, , ,;\n                             &#123; || &#123; TEST -&gt; last, TEST -&gt; first, &quot;&quot; &#125; &#125;,;\n                             &#123; &quot;LAST&quot;, &quot;FIRST&quot;, &quot;&quot; &#125;,;\n                             &#123; 150, 150, 0 &#125; &#41;\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;abOrd = &#123; &#123; || MO_NONE &#125;, &#123; || MO_NONE &#125;, &#123; || MO_NONE &#125; &#125;\n\n    oBrw&#58;aActions &#58;= &#123; &#123;|self,nRow,nCol| &#58;&#58;sort&#40;nCol&#41;&#125;, &#123;|self,nRow,nCol| &#58;&#58;sort&#40;nCol&#41;&#125;, &#123;|self,nRow,nCol| &#58;&#58;sort&#40;nCol&#41;&#125; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL\n\n\nCLASS TMyWBrowse FROM TWBrowse\n\n    DATA abOrd\n\n    METHOD Paint&#40;&#41;\n\n    METHOD Sort&#40;&#41;\n\nENDCLASS\n\n\n#define SM_CYHSCROLL 3\n\n\nMETHOD Paint&#40;&#41; CLASS TMyWBrowse\n\n    LOCAL aValues   &#58;= &#58;&#58;aHeaders\n    LOCAL aColSizes &#58;= &#58;&#58;GetColSizes&#40;&#41;\n\n    LOCAL nWidth &#58;= WNDWIDTH&#40; &#58;&#58;hWnd &#41; - IF&#40; &#58;&#58;oVScroll != nil &#46;AND&#46; EVAL&#40; &#58;&#58;bLogicLen &#41; &gt; 1, GETSYSMETRICS&#40; SM_CYHSCROLL &#41; + 3, 0 &#41;\n\n    LOCAL nColStart &#58;= -1\n\n    LOCAL nTop, nLeft, nRight\n\n    LOCAL hGPen, hWPen\n\n    LOCAL i\n\n    Super&#58;Paint&#40;&#41;\n\n    hGPen = CREATEPEN&#40; 0, 1, CLR_GRAY &#41;\n    hWPen = CREATEPEN&#40; 0, 1, CLR_WHITE &#41;\n\n    nTop = 3\n\n    FOR i = &#58;&#58;nColPos TO LEN&#40; aValues &#41;\n        nLeft  = nColStart + 1\n        nRight = MIN&#40; nColStart &#58;= &#40; nLeft + aColSizes&#91; i &#93; - 1 &#41;, nWidth &#41;\n\n        IF nLeft &gt; nWidth\n            EXIT\n        ENDIF\n\n        IF i == LEN&#40; aValues &#41;\n           nRight = nWidth\n        ENDIF\n\n        nRight -= 15\n\n        IF EVAL&#40; &#58;&#58;abOrd&#91; i &#93; &#41; = MO_DESC\n            MOVETO&#40; &#58;&#58;hDC, nRight, nTop &#41;\n\n            LINETO&#40; &#58;&#58;hDC, nRight + 6, nTop, hGPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight + 3, nTop + 6, hWPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight, nTop, hGPen &#41;\n        ENDIF\n\n        IF EVAL&#40; &#58;&#58;abOrd&#91; i &#93; &#41; = MO_ASC\n            MOVETO&#40; &#58;&#58;hDC, nRight, nTop + 6 &#41;\n\n            LINETO&#40; &#58;&#58;hDC, nRight + 6, nTop + 6, hGPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight + 3, nTop, hWPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight, nTop + 6, hGPen &#41;\n        ENDIF\n    NEXT\n\n    DELETEOBJECT&#40; hWPen &#41;\n    DELETEOBJECT&#40; hGPen &#41;\n\nRETURN 0\n\n\nMETHOD SORT&#40; nCol &#41; CLASS TMyWBrowse\n   LOCAL i&#58;=0\n   LOCAL nColNo &#58;= &#58;&#58;nAtCol&#40;nCol&#41;\n   do case\n      case eval&#40; &#58;&#58;abOrd&#91;nColNo&#93; &#41; == MO_ASC\n         &#58;&#58;abOrd&#91;nColNo&#93; &#58;= &#123;|| MO_DESC &#125;\n      case eval&#40; &#58;&#58;abOrd&#91;nColNo&#93; &#41; == MO_DESC\n         &#58;&#58;abOrd&#91;nColNo&#93; &#58;= &#123;|| MO_ASC &#125;\n      otherwise\n         &#58;&#58;abOrd&#91;nColNo&#93; &#58;= &#123;|| MO_ASC &#125;\n   endcase\n   for i&#58;=1 to len&#40; &#58;&#58;aHeaders &#41;\n      if i != nColNo\n         &#58;&#58;abOrd&#91;i&#93; &#58;= &#123;|| MO_NONE &#125;\n      endif\n   next\n   &#58;&#58;PAINT&#40;&#41;\nRETURN NIL\n\n// eof[/code:1dh3ouhh]','',0,'AIA=','1dh3ouhh',1,1161987333,'',303,1,0),(20880,4715,6,100,0,'201.16.38.3',1161965528,1,0,1,1,1,1,'','','Ola amigo Antonio\n\nMais a [b:1ppxohvc]LoadLibrary[/b:1ppxohvc] é de quem do xHarbour ou do FWH ??\n\nGrato','',0,'QA==','1ppxohvc',1,0,'',100,0,0),(20881,4271,6,138,0,'189.141.64.226',1161965704,1,0,1,1,1,1,'','','Un poco de diseño grafico (contraten a alguien, vale la pena) y unos bitmpas de fondo para el sistema RedPDV de mi amigo Yucif Santano 100% FiveWin 100% google Consulting  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n[img:1oxqakj9]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/yucif1&#46;jpg[/img:1oxqakj9]\n[img:1oxqakj9]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/yucif2&#46;jpg[/img:1oxqakj9]\n\nPero quien se lleva las palmas sin duda Patrick Mast: (<!-- w --><a class=\"postlink\" href=\"http://www.winfakt.com\">www.winfakt.com</a><!-- w -->) y eso a 16 bits aun:\n\n[img:1oxqakj9]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/patrick1&#46;jpg[/img:1oxqakj9]\n[img:1oxqakj9]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/patrick2&#46;jpg[/img:1oxqakj9]\n[img:1oxqakj9]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/patrick3&#46;jpg[/img:1oxqakj9]','',0,'CA==','1oxqakj9',1,0,'',138,0,0),(20882,4610,3,303,0,'72.199.41.171',1161965866,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Because that way the condition can be dynamic (ie. calculated during runtime). As an example you can use the status of ORDDESCEND().\n\nOK. What I was thinking is we need a protected array that cannot be changed by the programmer--it is set by user clicks on the header only. It must contain only one column with an A or D and all other columns must contain N. You wouldn\'t need to check the RDD status, you would just force it to be ascending, descending or change the order (and set to ascending) depending on the status array.\n\nOK, I just realized that you do need someway for the programmer to set the status array for the initial display of the browse. For example, if the browse is already sorted. Ill have to think about that some more...\n\nJames','',0,'CA==','1jovwmop',1,0,'',303,0,0),(20883,4719,4,63,0,'80.37.102.128',1161966062,1,0,1,1,1,0,'','','I\'ll appreciate it very much, René\n\nRafael','',0,'CA==','n0vgk27m',1,0,'',63,0,0),(20884,4646,20,89,0,'213.21.136.60',1161968320,1,0,1,1,1,0,'','','Funziona \n\nGrazie tante Enrico','',0,'CA==','hyqgiaet',1,0,'',89,0,0),(20885,4686,2,9,0,'85.53.86.166',1161972335,1,0,1,1,1,1,'','','Jose Luis\n\nSi te sirve te ayuda, hay un foro sobre Blat bastante eficiente (pero en inglés).- Esta es su dirección:\n\n<!-- m --><a class=\"postlink\" href=\"http://tech.groups.yahoo.com/group/blat/\">http://tech.groups.yahoo.com/group/blat/</a><!-- m -->','',0,'CA==','29x94es0',1,0,'',9,0,0),(20886,4693,2,9,0,'85.53.86.166',1161972598,1,0,1,1,1,1,'','','Quizás lo que buscas en la función cGetFile ()\n\n\ncDcano := cGetFile( \"*.*\", \"Elija un fichero\" )','',0,'CA==','3cmj8l44',1,0,'',9,0,0),(20887,4610,3,303,0,'72.199.41.171',1161973141,1,0,1,1,1,0,'','','Here is an slightly improved version that actually displays the data column sorted in addition to showing the header arrow.\n\nJames\n[code:1iuol0eg]\n/*\nPurpose&#58; Test ascending/descending arrows in headers in TWBrowse\nAuthor &#58; Enrico Maria Giordano\nDate   &#58; 10/27/2006 7&#58;11AM\n*/\n\n#include &quot;Fivewin&#46;ch&quot;\n\n\n#define MO_NONE 0\n#define MO_ASC  1\n#define MO_DESC 2\n\nexternal ordkeyno, ordkeycount, ordKeygoto\n\nFUNCTION MAIN&#40;&#41;\n\n   LOCAL oDlg, oBrw\n   FIELD FIRST,LAST\n\n   REQUEST DBFCDX\n   RddSetDefault&#40; &quot;DBFCDX&quot; &#41;\n\n   USE customer alias test\n   index on upper&#40;first&#41; to customer //tag &quot;first&quot;\n   index on upper&#40;last&#41; to cutomer //tag &quot;last&quot;\n\n   DEFINE DIALOG oDlg SIZE 400, 300\n\n   oBrw = TMyWBrowse&#40;&#41;&#58;New&#40; 0, 0, , ,;\n                             &#123; || &#123; TEST -&gt; last, TEST -&gt; first, &quot;&quot; &#125; &#125;,;\n                             &#123; &quot;LAST&quot;, &quot;FIRST&quot;, &quot;&quot; &#125;,;\n                             &#123; 150, 150, 0 &#125; &#41;\n\n   oBrw&#58;lCellStyle = &#46;T&#46;\n\n   oBrw&#58;abOrd = &#123; &#123; || MO_NONE &#125;, &#123; || MO_NONE &#125;, &#123; || MO_NONE &#125; &#125;\n\n   oBrw&#58;aOrders &#58;= &#123; 2,1,0 &#125;\n\n   oBrw&#58;aActions &#58;= &#123; &#123;|self,nRow,nCol| &#58;&#58;sort&#40;nCol&#41;&#125;, &#123;|self,nRow,nCol| &#58;&#58;sort&#40;nCol&#41;&#125;, &#123;|self,nRow,nCol| &#58;&#58;sort&#40;nCol&#41;&#125; &#125;\n\n   ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n   CLOSE\n\nRETURN NIL\n\n\nCLASS TMyWBrowse FROM TWBrowse\n\n    DATA abOrd,aOrders\n\n    METHOD Paint&#40;&#41;\n\n    METHOD Sort&#40;&#41;\n\nENDCLASS\n\n\n#define SM_CYHSCROLL 3\n\n\nMETHOD Paint&#40;&#41; CLASS TMyWBrowse\n\n    LOCAL aValues   &#58;= &#58;&#58;aHeaders\n    LOCAL aColSizes &#58;= &#58;&#58;GetColSizes&#40;&#41;\n\n    LOCAL nWidth &#58;= WNDWIDTH&#40; &#58;&#58;hWnd &#41; - IF&#40; &#58;&#58;oVScroll != nil &#46;AND&#46; EVAL&#40; &#58;&#58;bLogicLen &#41; &gt; 1, GETSYSMETRICS&#40; SM_CYHSCROLL &#41; + 3, 0 &#41;\n\n    LOCAL nColStart &#58;= -1\n\n    LOCAL nTop, nLeft, nRight\n\n    LOCAL hGPen, hWPen\n\n    LOCAL i\n\n    Super&#58;Paint&#40;&#41;\n\n    hGPen = CREATEPEN&#40; 0, 1, CLR_GRAY &#41;\n    hWPen = CREATEPEN&#40; 0, 1, CLR_WHITE &#41;\n\n    nTop = 3\n\n    FOR i = &#58;&#58;nColPos TO LEN&#40; aValues &#41;\n        nLeft  = nColStart + 1\n        nRight = MIN&#40; nColStart &#58;= &#40; nLeft + aColSizes&#91; i &#93; - 1 &#41;, nWidth &#41;\n\n        IF nLeft &gt; nWidth\n            EXIT\n        ENDIF\n\n        IF i == LEN&#40; aValues &#41;\n           nRight = nWidth\n        ENDIF\n\n        nRight -= 15\n\n        IF EVAL&#40; &#58;&#58;abOrd&#91; i &#93; &#41; = MO_DESC\n            MOVETO&#40; &#58;&#58;hDC, nRight, nTop &#41;\n\n            LINETO&#40; &#58;&#58;hDC, nRight + 6, nTop, hGPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight + 3, nTop + 6, hWPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight, nTop, hGPen &#41;\n        ENDIF\n\n        IF EVAL&#40; &#58;&#58;abOrd&#91; i &#93; &#41; = MO_ASC\n            MOVETO&#40; &#58;&#58;hDC, nRight, nTop + 6 &#41;\n\n            LINETO&#40; &#58;&#58;hDC, nRight + 6, nTop + 6, hGPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight + 3, nTop, hWPen &#41;\n            LINETO&#40; &#58;&#58;hDC, nRight, nTop + 6, hGPen &#41;\n        ENDIF\n    NEXT\n\n    DELETEOBJECT&#40; hWPen &#41;\n    DELETEOBJECT&#40; hGPen &#41;\n\n    RETURN 0\n\n// Note&#58; nCol is in pixels--it is not the column number\nMETHOD SORT&#40; nCol &#41; CLASS TMyWBrowse\n   LOCAL i&#58;=0\n   LOCAL nColNo &#58;= &#58;&#58;nAtCol&#40;nCol&#41;\n   &#40;&#58;&#58;cAlias&#41;-&gt;&#40;dbsetorder&#40; &#58;&#58;aOrders&#91;nColNo&#93; &#41;&#41;\n   do case\n      case eval&#40; &#58;&#58;abOrd&#91;nColNo&#93; &#41; == MO_ASC\n         &#58;&#58;abOrd&#91;nColNo&#93; &#58;= &#123;|| MO_DESC &#125;\n         &#40;&#58;&#58;cAlias&#41;-&gt;&#40;orddescend&#40;,,&#46;t&#46;&#41;&#41; // set to descending\n      case eval&#40; &#58;&#58;abOrd&#91;nColNo&#93; &#41; == MO_DESC\n         &#58;&#58;abOrd&#91;nColNo&#93; &#58;= &#123;|| MO_ASC &#125;\n         &#40;&#58;&#58;cAlias&#41;-&gt;&#40;orddescend&#40;,,&#46;f&#46;&#41;&#41; // set to ascending\n      otherwise\n         &#58;&#58;abOrd&#91;nColNo&#93; &#58;= &#123;|| MO_ASC &#125;\n   endcase\n   for i&#58;=1 to len&#40; &#58;&#58;aHeaders &#41;\n      if i != nColNo\n         &#58;&#58;abOrd&#91;i&#93; &#58;= &#123;|| MO_NONE &#125;\n      endif\n   next\n   &#40;&#58;&#58;cAlias&#41;-&gt;&#40;dbgotop&#40;&#41;&#41;\n   &#58;&#58;paint&#40;&#41;\nRETURN NIL[/code:1iuol0eg]','',0,'AIA=','1iuol0eg',1,1161987390,'',303,1,0),(20888,4713,6,37,0,'200.121.251.45',1161973895,1,0,1,1,1,1,'','','Rene, una consulta, Yo he probado trabajar directamente via el IP a mi BD MySQL pero alojada en un proveedor de Hosting externo, y me parecio demasiado lento, si monto Yo un server con IP y la BD MySQL acceder a la BD via IP no depende tambien de un Super Ancho de Bando y un maquinon ???\nGracias por tus comentarios','',0,'AIA=','3t35l103',1,0,'',37,0,0),(20889,4709,3,388,0,'61.5.68.148',1161974915,1,0,1,1,1,0,'','Fatal : access Violation. Link Terminated','Dear Antonio,\n\nI think the problem come from Ilink32.exe ( even I use the new version ), if my xxx.rc smaller than 1 MG , the program run ok.\n\nI have solve the problem.\nfirst I link my program with ilink32.exe without resource file, after finish then I use brc32.exe to combine my resource into my program.Now my program run ok.\n\nThanks,\n\nRegards,\n\nKok Joek Hoa','',0,'AIA=','211i0cxo',1,0,'',388,0,0),(20892,4610,3,6,0,'87.16.223.191',1161975407,1,0,1,1,1,1,'','','Great. But please fix my name\n\n[quote=&quot;James Bott&quot;:2k6633vg]Author : Ericro Maria Giordano[/quote:2k6633vg]\n\nand add your name as\n\nImproved by: James Bott\n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEMG','',0,'gA==','2k6633vg',1,0,'',6,0,0),(20893,4271,6,228,0,'201.245.222.85',1161975871,1,0,1,1,1,1,'','aqui hay otro','Aqui les dejo otro...\n\n[img]\n\n[url=http&#58;//img286&#46;imageshack&#46;us/my&#46;php?image=busmaticmp0&#46;jpg:25l1n8ei][img=http://img286.imageshack.us/img286/3995/busmaticmp0.th.jpg][/url:25l1n8ei]\n\n[/img]','',0,'EA==','25l1n8ei',1,0,'',228,0,0),(20894,4271,6,54,0,'189.132.107.28',1161982384,1,0,1,1,1,1,'','Re: aqui hay otro','[quote=&quot;leandro&quot;:2z8wjdam]Aqui les dejo otro...\n\n[/quote:2z8wjdam]\n\nAmigo, este es el correcto\n\n[img:2z8wjdam]http&#58;//www&#46;incos&#46;com&#46;mx/busmaticmp0&#46;jpg[/img:2z8wjdam]','',0,'iA==','2z8wjdam',1,0,'',54,0,0),(20895,4720,6,28,0,'87.218.47.241',1161984698,1,0,1,1,1,0,'','para Francisco Gamboa','Por favor, estoy intentando conectar contigo. Mi dirección de correo es <!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->\n\nUn saludo','',0,'iA==','304yszie',1,0,'',28,0,0),(20896,4721,3,28,0,'87.218.47.241',1161985871,1,0,1,1,1,0,'','Message for Francisco Gamboa','Hello Francisco I am trying to connect with you. Please, it responds to my direction <!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->\n\nA greeting','',0,'iA==','3cfk00lr',1,0,'',28,0,0),(20897,4610,3,303,0,'72.199.41.171',1161987630,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Great. But please fix my name \n\nOops! A multi-typo. When I do something I go all out. Sorry.\n\nFixed.\n\nJames','',0,'iA==','3c9jzwev',1,0,'',303,0,0),(20898,4271,6,49,0,'62.13.172.78',1161989209,1,0,1,1,1,1,'','','[img:2jyf6brd]http&#58;//img133&#46;imageshack&#46;us/my&#46;php?image=gturniyc9&#46;jpg[/img:2jyf6brd]\n\nthi is my application','',0,'CA==','2jyf6brd',1,0,'',49,0,0),(20899,4271,6,49,0,'62.13.172.78',1161989231,1,0,1,1,1,1,'','','thi is my application\n\n[img:1qixgqqi]http&#58;//img133&#46;imageshack&#46;us/img133/3406/gturniyc9&#46;jpg[/img:1qixgqqi]','',0,'CA==','1qixgqqi',1,0,'',49,0,0),(20900,4722,3,69,0,'74.13.30.203',1161989769,1,0,1,1,1,0,'','PC IP Address','Hi Everybody,\n\nI\'m trying to have my program store the end users internal IP Address but I can not seem to get the actual address.\n\nI am using:\n\nGetHostByName( GetHostName() )\n\nBut it always returns 0.0.0.0\n\nWhat am I doing wrong?\n\nThanks,\nJeff','',0,'CA==','2rdlcqmi',1,0,'',69,0,0),(20901,4714,3,69,0,'74.13.30.203',1161989841,1,0,1,1,1,0,'','','Thanks.','',0,'CA==','1p4wtqam',1,0,'',69,0,0),(20902,4723,6,533,0,'88.9.18.54',1161990018,1,0,1,1,1,0,'','Registro de Windows','Buenas Foro!!\n\n   Alguna clase para acceder al registro, añadir y/o modificar claves del registros, etc. . . Nunca lo he hecho.\n\nUN SALUDO\n\nFW 2.4  / 2.5','',0,'CA==','29vty3q9',1,0,'',533,0,0),(20903,4716,6,791,0,'190.37.173.141',1161992757,1,0,1,1,1,0,'','','Gracias por la informacion, ya le escribo\n\nok,','',0,'CA==','3d2rfnfg',1,0,'',791,0,0),(20904,4724,6,215,0,'189.136.232.55',1161997152,1,0,1,1,1,0,'','Detectar flecha arriba, flecha abajo en un button','Hola gente,\n¿Como detecto cuando el usuario ha oprimido las teclas de flecha arriba ó flecha abajo en un botón?\n\nGracias','',0,'CA==','zkv0gfdq',1,0,'',215,0,0),(20905,4724,6,54,0,'189.132.107.28',1162000331,1,0,1,1,1,1,'','Re: Detectar flecha arriba, flecha abajo en un button','[quote=&quot;fleal&quot;:dza9y8ph]Hola gente,\n¿Como detecto cuando el usuario ha oprimido las teclas de flecha arriba ó flecha abajo en un botón?\n\nGracias[/quote:dza9y8ph]\n\noBtn:bKeyDown := {|nKey| pulsa(nKey)}\n\nfunction pulsa(nkey)\n ? nKey\nreturn .t.\n\nEs al vuelo, espero te ayude','',0,'gA==','dza9y8ph',1,0,'',54,0,0),(20906,4722,3,303,0,'72.199.41.171',1162002877,1,0,1,1,1,0,'','','Jeff,\n\nYou must add WsaStartup() before the call to Gethostbyname() and add a WsaCleanup() after the call.\n\nTry this:\n\nFunction GetIP()\n   Local cVar1\n   WsaStartUp()\n   cVar1 := GetHostByName( GetHostName() )\n   WsaCleanUp()\nreturn cVar1\n\nJames','',0,'gA==','3coec2kj',1,0,'',303,0,0),(20907,4689,3,160,0,'220.225.17.210',1162010195,1,0,1,1,1,0,'','','Either Hyperload is not working today or the link seems to have expired. If possible, can anybody send the FileXls.lib and FileXls.ch to me on private mail ?\n\nTIA\nMilan.','',0,'gA==','1p94csrh',1,0,'',160,0,0),(20908,4725,6,9,0,'85.53.86.166',1162018067,1,0,1,1,1,1,'','Problemas con Word','Desde hace tiempo, vengo usando Word directamente con Oleauto, a plena satisfacción. Pero me ha surgido el siguiente problema.\n\nEn un proceso, donde creo un nuevo documento y reemplazo una serie de variables, el contenido de algunas de estas variables son introducidas por el usuario durante dicho proceso. El problema surge, cuando el usuario, al pedirle una de estas variables, cancela el proceso. Todo parece estar bien, pero WINWORD.EXE continua en memoria y la próxima vez que se intenta realizar el proceso, da error. En síntesis, la programación es la siguiente:\n\n///////////////////////////////////////////////////////////////////////////\n      oWord:=CREATEOBJECT( \"Word.Application\" )\n      oDoc:oWord:Documents:ADD()   \n      // le pide una de las variables al usuario\n      IF (MSJMEMO ( RTRIM(moderefe-&gt;VIEJO),  @cNuevo)\n           ......\n      ELSE  // [b:ho277ele]si corta el proceso AQUI SE PRODUCE EL PROBLEMA[/b:ho277ele]\n           oDoc := oWord:Get(\"ActiveDocument\")  // documento activo)\n           oDoc:Invoke(\'Close\',0)               // cierra fichero\n           OleUninitialize()\n           RETURN nil\n      ENDI\n\n/////////////////////////////////////////////////////////////////////////////\n\n¿Alguna ayuda?','',0,'QA==','ho277ele',1,0,'',9,0,0),(20909,4726,4,20,0,'82.57.150.147',1162025160,1,0,1,1,1,0,'','setup','I use ezsetup to install the program. It works fine.\nButi in the shortcut the icon does not appear.\nIn the install.ini I write\n\n[CEAppManager]\nVersion = 1.0\nComponent = K1\n\n[K1]\nDescription = Mio programma\nIconFile = logo.ico\nIconIndex = 0\nDeviceFile = k1.exe\nCabfiles = install.PPC2003_ARM.CAB\n\nAny idea?\n\nRegards\nPier Luigi','',0,'','2q44r2ud',1,0,'',20,0,0),(20910,4727,3,266,0,'60.50.62.137',1162027924,1,0,1,1,1,1,'','internet IP (plz translate)','Following is Visual Foxpro code to get internet IP.\n\nAnyone can help to translate it to FWH plz  :-\n\nloExplorer = CreateObject(\"InternetExplorer.Application\")\nloExplorer.Navigate2(\"www.whatismyip.com\")\nDO WHILE loExplorer.readystate &lt;&gt; 4\nENDDO\nloDoc = loExplorer.Document\ncIp = UPPER(loDoc.Body.Innertext)','',0,'','3180o2cu',1,0,'',266,0,0),(20911,4686,2,838,0,'80.59.225.15',1162028494,1,0,1,1,1,0,'','','Gracias Manuel\n\nSaludos\n\nJose Luis','',0,'','35nac2jr',1,0,'',838,0,0),(20912,4728,3,190,0,'202.65.134.24',1162033030,1,0,1,1,1,0,'','How to check the selected printer is Windows only Printer?','Hi all\n\nCan anybody please guide me to check the selected printer is windows \nonly printer ?\n\nI am providing both DOS and Windows Printing feature in my application.\nI have a problem in implementing both the features.  When the user has \nselected  the DOS printer or the default printer is DOS printer and the\nWindows only printer is switched on and currently available for printing,\nthe windows only printer is  printing junk due to the presence of ESC \nsequence character in DOS output.\n\nSo before I release the print command, I want check that the selected\nprinter is Windows only printer or not and act accordingly.\n\nHow to check this?\n\nThanks\n\n- Ramesh Babu P','',0,'','1lnp9qmy',1,0,'',190,0,0),(20913,4727,3,6,0,'87.10.10.154',1162036376,1,0,1,1,1,1,'','Re: internet IP (plz translate)','This is a working sample in pure xHarbour:\n\n[code:3qulls64]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExplorer &#58;= CREATEOBJECT&#40; &quot;InternetExplorer&#46;Application&quot; &#41;\n\n    oExplorer&#58;Navigate2&#40; &quot;www&#46;whatismyip&#46;com&quot; &#41;\n\n    WHILE oExplorer&#58;ReadyState &lt;&gt; 4\n        HB_IDLESLEEP&#40; 1 &#41;\n    ENDDO\n\n    ? UPPER&#40; oExplorer&#58;Document&#58;Body&#58;InnerText &#41;\n\n    oExplorer&#58;Quit&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:3qulls64]\n\nEMG','',0,'AIA=','3qulls64',1,0,'',6,0,0),(20914,4720,6,28,0,'87.218.47.241',1162042800,1,0,1,1,1,0,'','','tambien puedes contactar con mi messenger\n<!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e -->','',0,'AIA=','2sq5xaal',1,0,'',28,0,0),(20915,4724,6,215,0,'189.136.238.62',1162043060,1,0,1,1,1,0,'','','Ya había probado a usar oBtn:bKeyDown y oBtn:bKeyChar.  Las teclas no son detectadas.\nProbe a usar oBtn:bLostFocus := {|nKey| msginfo(nKey)}  pero regresa nil en flecha arriba, flecha abajo.\n\n¿Alguna idea mas?\n\nGracias','',0,'AIA=','18i4pzcp',1,0,'',215,0,0),(20916,4713,6,215,0,'189.136.238.62',1162043877,1,0,1,1,1,0,'','','Enrrique,\nTerminal Server es un sistema operativo para servidor. Por lo tanto caer en ésta categoría tiene un costo de 1,200 a 2,500 dolares. Este costo me lo paso un amigo.\nEl Internet information server de ADS tiene un costo de 2,490 euros... <!-- w --><a class=\"postlink\" href=\"http://www.abox.com\">www.abox.com</a><!-- w -->\nXhabour + mysql ¿¿Para ejecutar un programa fivewin via internet?? Más bien, creo que es para consultar y agregar información a una base de datos. \n\nOtra idea es que te planteras el consultar las bases de datos que están en tu servidor windows 2000. Siendo asi la solución podría ser usando xbscript y tiene un costo de 395 dolares. Entonces puedes agregar, modificar, consultar DBFs via internet.... <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.com\">www.xharbour.com</a><!-- w -->','',0,'AIA=','1ep0470p',1,0,'',215,0,0),(20917,4724,6,54,0,'189.132.107.28',1162044847,1,0,1,1,1,1,'','','[quote=&quot;fleal&quot;:otxw6pgj]Ya había probado a usar oBtn:bKeyDown y oBtn:bKeyChar.  Las teclas no son detectadas.\nProbe a usar oBtn:bLostFocus := {|nKey| msginfo(nKey)}  pero regresa nil en flecha arriba, flecha abajo.\n\n¿Alguna idea mas?\n\nGracias[/quote:otxw6pgj]\n\noBtn:bChange := {|| pulsa() }\n\nFUNCTION pulsa()\nIF GetKeyState(VK_UP)\n ? \"Flecha arriba\"\nELSEIF GetKeyState(VK_DOWN)\n ? \"Flecha abajo\"\nENDIF\nRETURN .t.','',0,'gA==','otxw6pgj',1,0,'',54,0,0),(20918,4713,6,138,0,'189.141.64.226',1162057528,1,0,1,1,1,1,'','','[quote=&quot;Enrrique Vertiz&quot;:t2aeu02k]Rene, una consulta, Yo he probado trabajar directamente via el IP a mi BD MySQL pero alojada en un proveedor de Hosting externo, y me parecio demasiado lento, si monto Yo un server con IP y la BD MySQL acceder a la BD via IP no depende tambien de un Super Ancho de Bando y un maquinon ???\nGracias por tus comentarios[/quote:t2aeu02k]\n\nNO, si tu te lo montas \"en casa\" no tienes problemas:\n\n1) Los hostings comerciales no siempre estan en tu mismo pais, por lo tanto tienes que dar un montol de saltos sobre Internet para llegar hasta el servidor MySQL de tu proveedor de hosting, lo mismo nos pasa aqui con los demos de Advantage Internet Server que tenemos en nuestra pagina web (<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">www.google.d2g.com/ads/demos/</a><!-- w -->), si tu lo corres dentro de Mexico, aun con un moden de 56 kbps es alucinantemente rapido, si te lo llevas a USA funciona bien, pero si lo tratas de ejecutar desde España por ejemplo, es bastante lento, la razon: el numero de saltos que tienes que dar para llegar al servidor.\n\n2) En un hosting comercial, el ancho de banda esta compartido no solo por ti, sino por toda la gente tiene contratados servicios, por eso mismo, los proveedores restringen el ancho de banda y lo dividen en cargas que aprovechen para surtir el servicio a todos los clientes, con lo cual el montaje del servidor sobre un hosting comercial tampoco es una opcion.\n\nSi te lo quieres motnar en casa, te dire que nuestro server para ADS es un Pentium IV a 2.4 GH, tiene 512 Megs de ram y un ancho de banda de 1.3 Mbps ADSL. y nos fuciona de maravilla.','',0,'gA==','t2aeu02k',1,0,'',138,0,0),(20919,4713,6,43,0,'189.128.87.123',1162058878,1,0,1,1,1,0,'','','[quote:r61i9bt8]1) Los hostings comerciales no siempre estan en tu mismo pais, por lo tanto tienes que dar un montol de saltos sobre Internet para llegar hasta el servidor MySQL de tu proveedor de hosting, lo mismo nos pasa aqui con los demos de Advantage Internet Server que tenemos en nuestra pagina web (<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">www.google.d2g.com/ads/demos/</a><!-- w -->), si tu lo corres dentro de Mexico, aun con un moden de 56 kbps es alucinantemente rapido, si te lo llevas a USA funciona bien, pero si lo tratas de ejecutar desde España por ejemplo, es bastante lento, la razon: el numero de saltos que tienes que dar para llegar al servidor.\n[/quote:r61i9bt8]\n\nA eso me referia con no-ip\n\nActualmente tengo montado un sistema hecho con fwh, xharbour y tmysql y por supuesto con una BD MySQL.\n\nY se conectan alrededor de 20 usuarios y la velocidad es muy aceptable se realizan alrededor de 150 consultas diarias, asi como modificaciones y altas de registros y les dire que tengo como servidor una PIV 2.8 GH con 1 Gb de memoria y un HD de 40 GB.\n\nMi direccion ip no es fija y mediante no-ip todos ellos se pueden conectar a la BD de MySQL sin ningun problema.\n\nSaludos\n\nMarco A. Delgado.','',0,'gA==','r61i9bt8',1,0,'',43,0,0),(20920,4713,6,12,0,'200.88.146.85',1162064978,1,0,1,1,1,1,'','','Saludos,\n\nTu solucion es la siguente:\n\nMontate un servidor Linux ( Fedora, Mandriva, etc. Prefiero Fedora ), alli montas tu base de datos MySql, asi como una vpn, adicional a esto hay un script que se llama ddclient para trabajar en Linux esto funciona para dyndns.com.\n\nYo tengo en un servidor 60 conexiones de esa manera. Cada una de esas conexiones realiza unas 300 operaciones diarias.','',0,'gA==','1xlbtx7v',1,0,'',12,0,0),(20921,4724,6,215,0,'189.136.229.183',1162091311,1,0,1,1,1,0,'','','William, \nLo resolví usando el VALID del botón,\n\nREDEFINE BUTTON aBtns[1] ID 501 OF oFld:aDialogs[1]  ;  // Siguiente\n             VALID GetKeyState( VK_UP ) OR ;\n                   GetKeyState( VK_RETURN ) ;\n            ACTION ( Siguiente( aGets, aCampos ) )\n\nSucede que al llegar al botón de Siguiente y oprimir flecha abajo el focus se pasa el primer get del dialogo. Pero no puedes regresar con flecha arriba para que el focus se ponga en el botón nuevamente. Asi que al llegar al botón de Siguiente, la única opción que estoy dejando es Flecha arriba y Enter. \nSi es flecha arriba pues el focus se pone en el último get del dialogo antes de entrar al botón.\nSi es Enter se activará la función Siguiente( )\n\nGracias','',0,'','1pxc1eog',1,0,'',215,0,0),(20922,4724,6,54,0,'189.132.114.168',1162091657,1,0,1,1,1,1,'','','[quote=&quot;fleal&quot;:1qtanwjk]William, \nLo resolví usando el VALID del botón,\n\nREDEFINE BUTTON aBtns[1] ID 501 OF oFld:aDialogs[1]  ;  // Siguiente\n             VALID GetKeyState( VK_UP ) OR ;\n                   GetKeyState( VK_RETURN ) ;\n            ACTION ( Siguiente( aGets, aCampos ) )\n\nSucede que al llegar al botón de Siguiente y oprimir flecha abajo el focus se pasa el primer get del dialogo. Pero no puedes regresar con flecha arriba para que el focus se ponga en el botón nuevamente. Asi que al llegar al botón de Siguiente, la única opción que estoy dejando es Flecha arriba y Enter. \nSi es flecha arriba pues el focus se pone en el último get del dialogo antes de entrar al botón.\nSi es Enter se activará la función Siguiente( )\n\nGracias[/quote:1qtanwjk]\n\nExcelente amigo.\n\nSaludos','',0,'gA==','1qtanwjk',1,0,'',54,0,0),(20923,2486,16,2,0,'87.218.146.3',1162109013,1,0,1,1,1,1,'','','October 29 2006 builds:\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/OK7SM8J0/harbour.EXE.html\">http://www.uploading.com/files/OK7SM8J0 ... r.EXE.html</a><!-- m -->\n\nHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/AFJ8024F/harbourm.EXE.html\">http://www.uploading.com/files/AFJ8024F ... m.EXE.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/W9GZLI71/xharbour.EXE.html\">http://www.uploading.com/files/W9GZLI71 ... r.EXE.html</a><!-- m -->\n\nxHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/RIDO8N3J/xharbourm.EXE.html\">http://www.uploading.com/files/RIDO8N3J ... m.EXE.html</a><!-- m -->','',0,'gA==','2x0b9msm',1,0,'',2,0,0),(20924,4729,16,2,0,'87.218.146.3',1162114744,1,0,1,1,1,1,'','FTDN new October 2006 build / nuevo build de Octubre 2006','October 2006 build\n==============\n \n * Enhancement: FWH Class TMGet Method GoBottom() now scrolls down the multiline get control, so the bottom line gets visible.\n\n * Enhancement: Class TGet Method Paint() minor fix.\n\n * Fix: function TVSETITEMTEXT() GPF. Now it is ok.\n  \n * New: samples\\Terminal.prg, a working sample of a simple ASCII terminal program developed by Enrico M. Giordano.\n   \n * Enhancement: Class TTreeView properly sets the background color of its items when clause COLOR &lt;nColorFore&gt;, &lt;nClrBack&gt; is used.\n \n * Fix: Class TTreeView and TTVItem method Colapse... renamed as Collapse... .\n \n * Enhancement: Class TXBrowse processes &lt;oCol&gt;:bRClickData if the mouse is right clicked on a selected cell too.\n   \n * New: @ &lt;nRow&gt;, &lt;nCol&gt; ACTIVEX &lt;oActX&gt; ... command implemented. Please review include\\FiveWin.ch for its full syntax.\n \n * Enhancement: Class TXBrowse Method KeyDown() now properly process bKeyDown codeblock.\n \n * Enhancement: samples\\TestSay2.prg has been modified to show how to change the color of the SAY once it is clicked.\n \n * Enhancement: Minor change on Class TDbOdbcDirect.\n\n * New: Class TToolBar Method AEvalWhen(), to evaluate all toolbar buttons bWhen.\n   \n * Fix: Minor fix on MsgInfo() and similar Msg... functions when displaying a date using xHarbour.\n \n * Fix: Minor fix on Class TWBrowse when using lCellStyle as true and a codeblock for the background color.\n   \n * Fix: FWPPC, function GetWindowText() was corrupting the Pocket PC memory. Now it is ok!\n \n * Fix: Minor fix on Class TReport Method New() when the device is not defined.\n \n * Enhancement: FWPPC has been greatly enhanced for memory management optimitation.\n \n * Enhancement: FWH is fully compatible with the most current Harbour and xHarbour CVS code, for both Borland and Microsoft.\n   \n * Enhancement: FWPPC, due to recent CVS syncronization, -TP flag is no longer needed from buildce.bat. Please update your makefiles. Important: GTWIN.lib is no longer used. Use GTGUI.lib instead. IMPORTANT: Please download Harb-arm.exe again, reinstall it and \nrebuild all your PRGs with it.\n\n* Enhancement: FWH is fully compatible with xHarbour Builder October 2006.','',0,'gA==','9u2vw1tg',1,0,'',2,0,0),(20927,4723,6,2,0,'87.218.146.3',1162116913,1,0,1,1,1,1,'','','Mike,\n\nRevisa samples\\TestRg32.prg','',0,'gA==','20um3cyl',1,0,'',2,0,0),(20928,4710,1,2,0,'87.218.146.3',1162117915,1,0,1,1,1,1,'','','If you are using a DBF index, please rebuild it, in case it may be corrupted.','',0,'gA==','iaikrlns',1,0,'',2,0,0),(20929,4710,1,2,0,'87.218.146.3',1162118046,1,0,1,1,1,1,'','','Test it this way:\n\naObject[AO_JOURNALLIST]:bKeyDown:={| nKey | MsgInfo( nKey ) }','',0,'','30dvgxmq',1,0,'',2,0,0),(20930,4732,4,13,0,'213.76.252.200',1162120893,1,0,1,1,1,0,'','Resource dialog destroy method','Antonio,\n\nWhat is properly method for new FWPPC build to destroy resource dialog object ? In this moment where I call End() method dialog still visible. Below is sample code.\n\nRegards\nPawel\n\n[code:1pdaklwe]\n// testrdlg&#46;prg\n#Include \'FwCe&#46;Ch\'\n\n// destroy object test\nFunction TestRDlg &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local aCtl &#58;= Array &#40;4&#41;\n   Local cGet &#58;= Space &#40;10&#41;\n   Local cSay &#58;= \'TestH04\'\n\n   Define Window oWnd Title \'TestH04\'\n   @  20, 100 Get aCtl&#91;1&#93; Var cGet Size 100, 20 Pixel\n   @  42, 100 Get aCtl&#91;2&#93; Var cGet Size 100, 20 Pixel\n   @  64, 100 Say aCtl&#91;3&#93; Prompt cSay Size 100, 15 Pixel\n   @ 200, 176 Button aCtl&#91;4&#93; Prompt \'Ok\' Size 60, 20 Pixel Action CtlDst &#40;oWnd, aCtl&#41;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n\n// destroy object test\nFunction CtlDst &#40;oWnd, aCtl&#41;\n\n   Local i &#58;= 0\n\n   DateTime &#40;oWnd&#41;\n\n   For i &#58;= 1 To Len &#40;aCtl&#41;\n       aCtl&#91;i&#93; &#58; End &#40;&#41;\n   Next\n\n   @ 200, 110 Button \'Ok2\' Size 60, 20 Pixel Action oWnd &#58; End &#40;&#41; Of oWnd\n\nReturn &#46;T&#46;\n\n// simple dialog\nFunction DateTime &#40;oWnd&#41;\n\n   Local oDlg &#58;= Nil\n   Local dDate &#58;= Date &#40;&#41;\n   Local cTime &#58;= Left &#40;Time &#40;&#41;, 5&#41;\n   Local lRet &#58;= &#46;F&#46;\n\n   Define Dialog oDlg Resource \'DateTime\' Of oWnd\n\n   ReDefine Get dDate Id 1003 Of oDlg Picture \'@D\' ReadOnly\n   ReDefine Get cTime Id 1004 Of oDlg ReadOnly\n   ReDefine Button Id 1005 Of oDlg Action &#40;lRet &#58;= &#46;T&#46;, oDlg &#58; End &#40;&#41;&#41;\n   ReDefine Button Id 1006 Of oDlg Action &#40;lRet &#58;= &#46;F&#46;, oDlg &#58; End &#40;&#41;&#41;\n\n   Activate Dialog oDlg Centered\n\nReturn lRet\n\n// testrdlg&#46;rc\n#include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n#include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n\nLANGUAGE LANG_POLISH,SUBLANG_DEFAULT\n\nDateTime DIALOG DISCARDABLE 0, 0, 126, 54\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;Data and time&quot;\nFONT 8, &quot;MS Shell Dlg&quot;\nBEGIN\n  CONTROL &quot;System date&#58;&quot;, 1001, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 2, 8, 60, 12\n  CONTROL &quot;System time&#58;&quot;, 1002, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 2, 21, 60, 12\n  CONTROL &quot;&quot;, 1003, &quot;Edit&quot;, ES_READONLY|WS_BORDER|WS_TABSTOP, 64, 8, 50, 12\n  CONTROL &quot;&quot;, 1004, &quot;Edit&quot;, ES_READONLY|WS_BORDER|WS_TABSTOP, 64, 21, 50, 12\n  CONTROL &quot;OK&quot;, 1005, &quot;Button&quot;, WS_TABSTOP, 56, 38, 32, 12\n  CONTROL &quot;Cancel&quot;, 1006, &quot;Button&quot;, WS_TABSTOP, 90, 38, 32, 12\nEND\n[/code:1pdaklwe]','',0,'AIA=','1pdaklwe',1,0,'',13,0,0),(20931,4732,4,2,0,'87.218.146.3',1162126063,1,0,1,1,1,1,'','','Pawel,\n\nIt looks like a bug introduced with recent changes. \n\nWe are reviewing it, Thanks.','',0,'AIA=','urzsezqd',1,0,'',2,0,0),(20932,4722,3,69,0,'74.13.30.203',1162132040,1,0,1,1,1,0,'','','Thanks James.\n\nWorks perfectly.\n\n\nJeff','',0,'AIA=','3azm7flv',1,0,'',69,0,0),(20933,4686,2,838,0,'80.59.225.15',1162133892,1,0,1,1,1,0,'','','Hola a todos\n\nParece que voy adelantando algo; si a la función que envia el correo le paso variables con un valor, no me lo envía, pero si en la propia función sustituyo esas variables por valores entre comillas, sí lo envia, aunque haya comprobado que los valores de las variables sean los mismos.\n\nPara comprobar si hay algún error en la función que hace realmente el envío, le pido el valor de retorno a WaitRun, y me retorna como valor 24, y comprobando los códigos de retorno deésta función llegan hasta el 21, ¿qué significa el código de retorno 24?\n\nSaludos\n\nJose Luis','',0,'AIA=','12u9wp1g',1,1162139390,'',838,1,0),(20934,4732,4,2,0,'87.218.146.3',1162137500,1,0,1,1,1,1,'','','Pawel,\n\nAlready fixed. Please download a new FWPPC build, thanks','',0,'AIA=','2ed6yawo',1,0,'',2,0,0),(20935,4686,2,838,0,'80.59.225.15',1162139346,1,0,1,1,1,0,'','','Me contesto a mi mismo\n\nConseguido!!!!! , tras horas y horas probando y probando, había algo que repetía siempre y no me daba cuenta de ello en todas las máquinas. Y ésto era el directorio donde tenía que bustar los ficheros adjuntos.\n\nLos tenía depositados con una profundidad de 6 directorios osea el fichero se llamaba \"C:\\Programas\\empresa\\agencia\\portes\\Ficheros\\Pdf\\Empres81.Pdf\".\nHa sido, por probar, cambiar todo a \"C:\\Pdffiles\\Empres81.Pdf\", y .... Marchando.\n\nYa puedo disfrutar de lo que queda del fin de semana\n\nSaludos y gracias\n\nJose Luis','',0,'AIA=','173dl139',1,0,'',838,0,0),(20936,4630,1,842,0,'206.170.49.219',1162141811,1,0,1,1,1,0,'','','I have the same problem. Check out this image [img:rp1i158c]http&#58;//www&#46;psmps&#46;com/images/Image2&#46;gif[/img:rp1i158c]. Notice the three garbage elements at the top of the list. The first item im my array is \"All Tables\".','',0,'CA==','rp1i158c',1,0,'',842,0,0),(20937,4725,6,9,0,'85.53.86.166',1162145040,1,0,1,1,1,1,'','','Solucionado gracias a un mensaje antiguo de Giordano, en el foro de xHarbour:\n\noWord:QUIT()','',0,'CA==','2wqwqzus',1,0,'',9,0,0),(20938,4713,6,37,0,'200.121.251.45',1162145800,1,0,1,1,1,1,'','','Amigos, como siempre, aca en el foro hay alternativas varias y siempre apuntando a la solucion, tomare en cuenta sus sugerencias, que en resumen significan montar el MySQL en un server en casa y veremos.\nGracias por sus opiniones','',0,'CA==','2zfqpgnw',1,0,'',37,0,0),(20939,4733,3,69,0,'74.13.30.203',1162147858,1,0,1,1,1,0,'','Sharing a local folder','Hi Everybody,\n\nIs it possible in FiveWin to assign \"SHARING\" to a windows folder.\n\n\nI want the folder where my program is installed to be shared when it is installed.\n\n\nThanks,\n\nJeff','',0,'CA==','14s4ojnd',1,0,'',69,0,0),(20940,4734,4,13,0,'213.76.252.200',1162148189,1,0,1,1,1,0,'','AnsiToWide function','Antonio,\n\nIs there possible in a new build to use AnsiToWide function ? Previously this function is exists visible - now this don\'t. Below is sample where I use this useful function. Program source probable must compile with -TP switch. Compile without this switch generates many compilation errors.\n\nRegards\nPawel\n\nCompilation errors:\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'TESTRUN.prg\'...\n\nLines 58, Functions/Procedures 1\nGenerating C source output to \'TESTRUN.c\'... Done.\nTESTRUN.C\nTESTRUN.prg(23) : warning C4047: \'function\' : \'int \' differs in levels of indirection from \'void *\'\nTESTRUN.prg(23) : warning C4024: \'CreateProcessW\' : different types for formal and actual parameter 5\nTESTRUN.prg(23) : warning C4047: \'function\' : \'unsigned long \' differs in levels of indirection from \'void *\'\nTESTRUN.prg(23) : warning C4024: \'CreateProcessW\' : different types for formal and actual parameter 6\n\nLink errors (compile with -TP switch):\n   Creating library TESTRUN.lib and object TESTRUN.exp\nTESTRUN.OBJ : error LNK2019: unresolved external symbol \"unsigned short * __cdecl AnsiToWide(char *)\" (?AnsiToWide@@YAPAGPAD@Z) referenced in function HB_FUN_RUNEXE\nTESTRUN.exe : fatal error LNK1120: 1 unresolved externals\n\n[code:3uwlfaf6]\nFunction TestRun &#40;&#41;\n\n   RunExe &#40;\'Prog&#46;Exe\', \'param1\'&#41;   \n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapirdd&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nLPWSTR AnsiToWide &#40;char *&#41;;\n\nHB_FUNC &#40;RUNEXE&#41;\n&#123;\n   PROCESS_INFORMATION pi;\n   LPSTR lpExe = hb_parc &#40;1&#41;;\n   LPSTR lpCmd = hb_parc &#40;2&#41;;\n   DWORD dwExit;\n   DWORD dwSleep = 50;\n   DWORD dwTime = 0;\n   BOOL bErr = FALSE;\n\n   if &#40;!CreateProcess &#40;AnsiToWide &#40;lpExe&#41;, AnsiToWide &#40;lpCmd&#41;, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &amp;pi&#41;&#41;\n   &#123;\n      hb_retl &#40;FALSE&#41;;\n   &#125;\n   else\n   &#123;\n      do\n      &#123;\n         Sleep &#40;dwSleep&#41;;\n         GetExitCodeProcess &#40;pi&#46;hProcess, &amp;dwExit&#41;;\n         dwTime += dwSleep;\n         if &#40;dwTime &gt;= &#40;1000 * 60 * 5&#41;&#41; // 5 minutes delay\n            &#123;\n            TerminateProcess &#40;pi&#46;hProcess, dwExit&#41;;\n            bErr = TRUE;\n            break;\n            &#125;\n      &#125;\n      while &#40;dwExit == STILL_ACTIVE&#41;;\n      CloseHandle &#40;pi&#46;hThread&#41;;\n      CloseHandle &#40;pi&#46;hProcess&#41;;\n      if &#40;bErr&#41;\n         hb_retl &#40;FALSE&#41;;\n      else\n         hb_retl &#40;TRUE&#41;;\n   &#125;\n&#125;\n\n#pragma ENDDUMP\n[/code:3uwlfaf6]','',0,'AIA=','3uwlfaf6',1,0,'',13,0,0),(20941,4732,4,2,0,'87.218.146.219',1162148214,1,0,1,1,1,1,'','','Pawel,\n\nPlease download it again, thanks. \n\nWe had an extra call to method Destroy(). Now it is ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','an36xnk4',1,0,'',2,0,0),(20942,4734,4,2,0,'87.218.146.219',1162148933,1,0,1,1,1,1,'','','Pawel,\n\nDon\'t use clarm.exe -TP flag. Here this code works fine:\n\nMsgInfo( WideToAnsi( AnsiToWide( \"Hello\" ) ) )  // Hello is shown','',0,'AIA=','33qo1xnp',1,0,'',2,0,0),(20943,4734,4,13,0,'213.76.252.200',1162148960,1,0,1,1,1,0,'','','Antonio,\n\nThis \"error\" is warning but compilation with -TP don\'t generates any warning and erros.\n\nPawel','',0,'AIA=','1lwqpbs6',1,0,'',13,0,0),(20944,4734,4,13,0,'213.76.252.200',1162149958,1,0,1,1,1,0,'','','Antonio,\n\nThis is my library what I use in my program. This use DataReelCe library for HTTP download file. Where I compile it without -Tp switch error log is created. Below a source and sample.\n\nRegards\nPawel\n\n// compilation error\nLib03.C\nc:\\vce\\include\\datareelce\\strutil.h(134) : error C2061: syntax error : identifier \'gxwchar\'\nc:\\vce\\include\\datareelce\\strutil.h(134) : error C2059: syntax error : \';\'\nc:\\vce\\include\\datareelce\\strutil.h(135) : error C2449: found \'{\' at file scope (missing function header?)\nc:\\vce\\include\\datareelce\\strutil.h(151) : error C2059: syntax error : \'}\'\nc:\\vce\\include\\datareelce\\strutil.h(161) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(161) : error C2085: \'gxstrcpy\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(161) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(164) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(164) : error C2085: \'gxstrlen\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(164) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(165) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(165) : error C2085: \'gxstrcat\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(165) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(166) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(166) : error C2085: \'gxstrcmp\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(166) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(175) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(175) : error C2143: syntax error : missing \')\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(175) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(175) : warning C4228: nonstandard extension used : qualifiers after comma in declarator list are ignored\nc:\\vce\\include\\datareelce\\strutil.h(175) : error C2143: syntax error : missing \';\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(175) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(176) : error C2143: syntax error : missing \')\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(176) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(176) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(177) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(177) : error C2143: syntax error : missing \')\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(177) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(177) : warning C4228: nonstandard extension used : qualifiers after comma in declarator list are ignored\nc:\\vce\\include\\datareelce\\strutil.h(177) : error C2143: syntax error : missing \';\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(177) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(178) : error C2143: syntax error : missing \')\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(178) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(178) : warning C4228: nonstandard extension used : qualifiers after comma in declarator list are ignored\nc:\\vce\\include\\datareelce\\strutil.h(178) : error C2143: syntax error : missing \';\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(178) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(185) : error C2146: syntax error : missing \')\' before identifier \'st\'\nc:\\vce\\include\\datareelce\\strutil.h(185) : error C2081: \'gxStringType\' : name in formal parameter list illegal\nc:\\vce\\include\\datareelce\\strutil.h(185) : error C2061: syntax error : identifier \'st\'\nc:\\vce\\include\\datareelce\\strutil.h(185) : error C2059: syntax error : \';\'\nc:\\vce\\include\\datareelce\\strutil.h(185) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(190) : error C2146: syntax error : missing \')\' before identifier \'st\'\nc:\\vce\\include\\datareelce\\strutil.h(190) : error C2081: \'gxStringType\' : name in formal parameter list illegal\nc:\\vce\\include\\datareelce\\strutil.h(190) : error C2061: syntax error : identifier \'st\'\nc:\\vce\\include\\datareelce\\strutil.h(190) : error C2059: syntax error : \';\'\nc:\\vce\\include\\datareelce\\strutil.h(190) : error C2059: syntax error : \',\'\nc:\\vce\\include\\datareelce\\strutil.h(190) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(193) : error C2146: syntax error : missing \')\' before identifier \'st\'\nc:\\vce\\include\\datareelce\\strutil.h(193) : error C2081: \'gxStringType\' : name in formal parameter list illegal\nc:\\vce\\include\\datareelce\\strutil.h(193) : error C2061: syntax error : identifier \'st\'\nc:\\vce\\include\\datareelce\\strutil.h(193) : error C2059: syntax error : \';\'\nc:\\vce\\include\\datareelce\\strutil.h(193) : error C2059: syntax error : \',\'\nc:\\vce\\include\\datareelce\\strutil.h(194) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(197) : error C2143: syntax error : missing \')\' before \'=\'\nc:\\vce\\include\\datareelce\\strutil.h(197) : error C2072: \'Unicode2ASCII\' : initialization of a function\nc:\\vce\\include\\datareelce\\strutil.h(198) : error C2059: syntax error : \'type\'\nc:\\vce\\include\\datareelce\\strutil.h(198) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(199) : error C2143: syntax error : missing \')\' before \'=\'\nc:\\vce\\include\\datareelce\\strutil.h(199) : error C2072: \'ASCII2Unicode\' : initialization of a function\nc:\\vce\\include\\datareelce\\strutil.h(200) : error C2370: \'wchar_t\' : redefinition; different storage class\n        c:\\vce\\include\\arm\\stdlib.h(58) : see declaration of \'wchar_t\'\nc:\\vce\\include\\datareelce\\strutil.h(200) : error C2143: syntax error : missing \';\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(200) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(201) : error C2143: syntax error : missing \')\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(201) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(202) : error C2059: syntax error : \'type\'\nc:\\vce\\include\\datareelce\\strutil.h(203) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(204) : error C2143: syntax error : missing \')\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(204) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(204) : error C2059: syntax error : \'type\'\nc:\\vce\\include\\datareelce\\strutil.h(205) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(206) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(206) : error C2143: syntax error : missing \')\' before \'=\'\nc:\\vce\\include\\datareelce\\strutil.h(206) : error C2072: \'ASCII2gxwchar_t\' : initialization of a function\nc:\\vce\\include\\datareelce\\strutil.h(207) : error C2143: syntax error : missing \';\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(207) : error C2374: \'nsptr\' : redefinition; multiple initialization\n        c:\\vce\\include\\datareelce\\strutil.h(200) : see declaration of \'nsptr\'\nc:\\vce\\include\\datareelce\\strutil.h(207) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(208) : error C2143: syntax error : missing \'{\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(209) : error C2143: syntax error : missing \')\' before \'=\'\nc:\\vce\\include\\datareelce\\strutil.h(209) : error C2072: \'Unicode2gxwchar_t\' : initialization of a function\nc:\\vce\\include\\datareelce\\strutil.h(210) : error C2143: syntax error : missing \';\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(210) : error C2374: \'nsptr\' : redefinition; multiple initialization\n        c:\\vce\\include\\datareelce\\strutil.h(200) : see declaration of \'nsptr\'\nc:\\vce\\include\\datareelce\\strutil.h(210) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(213) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(213) : error C2085: \'gxLTCHAR\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(213) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(217) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(217) : error C2085: \'gxLTCHAR\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(217) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(221) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(221) : error C2085: \'gxLTCHAR\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(221) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(225) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(225) : error C2085: \'gxLTCHAR\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(225) : error C2143: syntax error : missing \';\' before \'{\'\nc:\\vce\\include\\datareelce\\strutil.h(229) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(229) : error C2143: syntax error : missing \')\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(229) : error C2085: \'gxLTCHAR\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(229) : error C2143: syntax error : missing \';\' before \'*\'\nc:\\vce\\include\\datareelce\\strutil.h(229) : error C2059: syntax error : \')\'\nc:\\vce\\include\\datareelce\\strutil.h(233) : error C2054: expected \'(\' to follow \'inline\'\nc:\\vce\\include\\datareelce\\strutil.h(233) : error C2146: syntax error : missing \')\' before identifier \'c\'\nc:\\vce\\include\\datareelce\\strutil.h(233) : error C2085: \'gxLTCHAR\' : not in formal parameter list\nc:\\vce\\include\\datareelce\\strutil.h(233) : error C2146: syntax error : missing \',\' before identifier \'c\'\nc:\\vce\\include\\datareelce\\strutil.h(233) : error C2059: syntax error : \'type\'\nc:\\vce\\include\\datareelce\\strutil.h(233) : fatal error C1003: error count exceeds 100; stopping compilation\n// end error\n\n[code:3rzryx36]\nFunction Test &#40;&#41;\n\n   Local x &#58;= 0\n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapirdd&#46;h&gt;\n\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n#include &lt;gxshttp&#46;h&gt;\n#include &lt;gxshttpc&#46;h&gt;\n#include &lt;dfileb&#46;h&gt;\n#include &lt;gxs_ver&#46;h&gt;\n#include &lt;gxscomm&#46;h&gt;\n#include &lt;objbase&#46;h&gt;\n#include &lt;initguid&#46;h&gt;\n#include &lt;connmgr&#46;h&gt;\n#include &lt;wininet&#46;h&gt;\n#include &lt;tlhelp32&#46;h&gt;\n\n#define MAX_TASKS 256\n#define PROCESS_SIZE 128\n#define TITLE_SIZE 64\n\ntypedef struct _TASK_LIST\n&#123;\n   DWORD cntUsage;\n   DWORD dwProcessId;\n   DWORD dwInheritedFromProcessId;\n   DWORD cntThreads;\n   DWORD th32ModuleID;\n   DWORD th32DefaultHeapID;\n   LONG  pcPriClassBase;\n   BOOL  flags;\n   HWND  hwnd;\n   TCHAR ProcessName&#91;PROCESS_SIZE&#93;;\n   TCHAR WindowTitle&#91;TITLE_SIZE&#93;;\n&#125;\nTASK_LIST, *PTASK_LIST;\n\nLPWSTR AnsiToWide &#40;char *&#41;;\ndwCount&#41;;\nDWORD dwCount, DWORD dwTimeout&#41;;\nDWORD GetTaskListCE &#40;PTASK_LIST pTask, DWORD dwNumTasks&#41;;\nBOOL KillProcess &#40;PTASK_LIST tlist, BOOL fForce = TRUE&#41;;\n\ngxSerialComm dev;\n\n// 2005-11-13 22&#58;09&#58;41\n// puste menu\nHB_FUNC &#40;EMPTYMENU&#41;\n&#123;\n   SHINITDLGINFO shidi;\n   HWND hWnd = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = hWnd;\n   shidi&#46;dwFlags = SHIDIF_EMPTYMENU;\n   SHInitDialog &#40;&amp;shidi&#41;;\n&#125;\n\n// 2005-11-28 22&#58;01&#58;01\n// opoznienie\nHB_FUNC &#40;DELAY&#41;\n&#123;\n   DWORD dwSleep = &#40;DWORD&#41; hb_parnl &#40;1&#41;;\n   Sleep &#40;dwSleep&#41;;\n&#125;\n\n// 2006-04-10 09&#58;28&#58;51\n// informacje o stanie baterii\nHB_FUNC &#40;BATTERYLIFE&#41;\n&#123;\n   BOOL iRet;\n   SYSTEM_POWER_STATUS_EX status;\n   iRet = GetSystemPowerStatusEx &#40;&amp;status, TRUE&#41;;\n\n   hb_retnl &#40;&#40;INT&#41; status&#46;BatteryLifePercent&#41;;\n&#125;\n\n// 2006-04-10 09&#58;29&#58;25\n// informacja o ilosci wolnego miejsca\nHB_FUNC &#40;DISKFREE&#41;\n&#123;\n  BOOL iRet;\n  unsigned __int64 i64FreeBytesToCaller, i64TotalBytes, i64FreeBytes;\n\n  iRet = GetDiskFreeSpaceEx &#40;NULL,\n  &#40;PULARGE_INTEGER&#41; &amp;i64FreeBytesToCaller,\n  &#40;PULARGE_INTEGER&#41; &amp;i64TotalBytes,\n  &#40;PULARGE_INTEGER&#41; &amp;i64FreeBytes&#41;;\n  hb_retnl &#40;&#40;ULONG&#41; i64FreeBytes&#41;;\n&#125;\n\n// 2006-04-10 09&#58;29&#58;50\n// utworzenie procesu\nHB_FUNC &#40;MOBIEXE&#41;\n&#123;\n   PROCESS_INFORMATION pi;\n   LPSTR lpExe = hb_parc &#40;1&#41;;\n   LPSTR lpCmd = hb_parc &#40;2&#41;;\n   // int iTime = &#40;ISNIL &#40;3&#41; ? 5 &#58; &#40;int&#41; hb_parni &#40;3&#41;&#41;;\n   DWORD dwExit;\n   DWORD dwSleep = 50;\n   DWORD dwTime = 0;\n   BOOL bErr = FALSE;\n\n   // if &#40;iTime &lt;= 0&#41; iTime = 5;\n\n   if &#40;!CreateProcess &#40;AnsiToWide &#40;lpExe&#41;, AnsiToWide &#40;lpCmd&#41;, NULL, NULL, NULL, NULL, NULL, NULL, NULL, &amp;pi&#41;&#41;\n   &#123;\n      hb_retl &#40;FALSE&#41;;\n   &#125;\n   else\n   &#123;\n      do\n      &#123;\n         Sleep &#40;dwSleep&#41;;\n         GetExitCodeProcess &#40;pi&#46;hProcess, &amp;dwExit&#41;;\n         dwTime += dwSleep;\n         if &#40;dwTime &gt;= &#40;1000 * 60 * 5&#41;&#41; // 5 minut\n            &#123;\n            TerminateProcess &#40;pi&#46;hProcess, dwExit&#41;;\n            bErr = TRUE;\n            break;\n            &#125;\n      &#125;\n      while &#40;dwExit == STILL_ACTIVE&#41;;\n      CloseHandle &#40;pi&#46;hThread&#41;;\n      CloseHandle &#40;pi&#46;hProcess&#41;;\n      if &#40;bErr&#41;\n         hb_retl &#40;FALSE&#41;;\n      else\n         hb_retl &#40;TRUE&#41;;\n   &#125;\n&#125;\n\n// 2006-04-10 09&#58;30&#58;02\n// dlugosc pola\nHB_FUNC &#40;FIELDSIZE&#41;\n&#123;\n   USHORT uiField;\n   LPFIELD pField;\n   AREAP pArea;\n\n   uiField = hb_parni &#40;1&#41;;\n   pArea = &#40;AREAP&#41; hb_rddGetCurrentWorkAreaPointer &#40;&#41;;\n   pField = pArea-&gt;lpFields + uiField - 1;\n\n   hb_retni &#40;pField-&gt;uiLen&#41;;\n&#125;\n\n// 2006-04-10 09&#58;30&#58;09\n// dlugosc pola\nHB_FUNC &#40;FIELDDECI&#41;\n&#123;\n   USHORT uiField;\n   LPFIELD pField;\n   AREAP pArea;\n\n   uiField = hb_parni &#40;1&#41;;\n   pArea = &#40;AREAP&#41; hb_rddGetCurrentWorkAreaPointer &#40;&#41;;\n   pField = pArea-&gt;lpFields + uiField - 1;\n\n   hb_retni &#40;pField-&gt;uiDec&#41;;\n&#125;\n\n// 2006-04-18 09&#58;29&#58;27\n// pobranie pliku z serwera HTTP\nHB_FUNC &#40;HTTPDOWNLOAD&#41;\n&#123;\n  const char *URL = hb_parc &#40;1&#41;;\n  gxsHTTPClient client;\n  gxsURL url;\n  gxsURLInfo u;\n\n  if &#40;!url&#46;ParseURL &#40;URL, u&#41;&#41; hb_retl &#40;FALSE&#41;;\n  gxString sbuf &#40;u&#46;dir&#41;;\n  if &#40;u&#46;file == &quot;?&quot;&#41;\n  &#123;\n    while &#40;sbuf&#46;DeleteBeforeIncluding &#40;&quot;/&quot;&#41;&#41;;\n    u&#46;file = sbuf;\n    u&#46;dir&#46;DeleteAfterIncluding &#40;sbuf&#46;c_str &#40;&#41;&#41;;\n  &#125;\n  if &#40;!u&#46;file&#41; hb_retl &#40;FALSE&#41;;\n\n  DiskFileB outfile &#40;u&#46;file&#46;c_str &#40;&#41;, DiskFileB&#58;&#58;df_WRITEONLY, DiskFileB&#58;&#58;df_CREATE&#41;;\n  if &#40;!outfile&#41; hb_retl &#40;FALSE&#41;;\n\n  gxsHTTPHeader hdr;\n  if &#40;client&#46;RequestHeader &#40;u, hdr&#41; != 0&#41; hb_retl &#40;FALSE&#41;;\n  if &#40;client&#46;RequestFile &#40;u, hdr, outfile&#46;df_FileStream &#40;&#41;&#41; != 0&#41; hb_retl &#40;FALSE&#41;;\n  client&#46;Flush &#40;&#41;;\n  outfile&#46;df_Close &#40;&#41;;\n  hb_retl &#40;TRUE&#41;;\n&#125;\n\n// 2006-04-18 09&#58;29&#58;32\n// wywolanie polaczenia internetowego\nHB_FUNC &#40;GPRSCONNECTION&#41;\n&#123;\n   // int iRet = ISNIL &#40;1&#41; ? 6 &#58; hb_parni &#40;1&#41;;\n   HANDLE phWebConnection = NULL;\n   DWORD pdwStatus = 0;\n\n   ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;;\n   if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41;\n   &#123;\n      hb_retl &#40;TRUE&#41;;\n   &#125;\n   else\n   &#123;\n      CONNMGR_CONNECTIONINFO sConInfo;\n      memset &#40;&amp;sConInfo,0, sizeof &#40;CONNMGR_CONNECTIONINFO&#41;&#41;;\n      sConInfo&#46;cbSize = sizeof &#40;CONNMGR_CONNECTIONINFO&#41;;\n      sConInfo&#46;dwParams = CONNMGR_PARAM_GUIDDESTNET;\n      sConInfo&#46;dwPriority = CONNMGR_PRIORITY_USERINTERACTIVE;\n      sConInfo&#46;dwFlags = CONNMGR_FLAG_PROXY_HTTP;\n      sConInfo&#46;bExclusive = FALSE;\n      sConInfo&#46;bDisabled = FALSE;\n      sConInfo&#46;guidDestNet = IID_DestNetInternet;\n\n      if &#40;ConnMgrEstablishConnection &#40;&amp;sConInfo, &amp;phWebConnection&#41; == S_OK&#41;\n      &#123;\n         for &#40;unsigned int k = 0; k &lt; 8; k ++&#41;\n         &#123;\n            ConnMgrConnectionStatus&#40;phWebConnection,&amp;pdwStatus&#41;;\n            if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41;\n            &#123;\n               hb_retl &#40;TRUE&#41;;\n            &#125;\n            else\n            &#123;\n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41;\n               &#123;\n                  hb_retl &#40;FALSE&#41;;\n               &#125;\n               Sleep &#40;4000&#41;;\n               ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;;\n               if &#40;pdwStatus == CONNMGR_STATUS_WAITINGCONNECTION&#41;\n               &#123;&#125;\n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41;\n               &#123;\n                  hb_retl &#40;FALSE&#41;;\n               &#125;\n            &#125;\n         &#125;\n         hb_retl &#40;FALSE&#41;;\n      &#125;\n      else\n      &#123;\n         hb_retl &#40;FALSE&#41;;\n      &#125;\n   &#125;\n&#125;\n\n// 2006-05-11 20&#58;29&#58;54\nHB_FUNC &#40;MOBITASK&#41;\n&#123;\n   DWORD i = 0, j = 0, k = 0;\n   TASK_LIST tlist&#91;MAX_TASKS&#93;;\n   DWORD numTasks;\n   BOOL bRet = FALSE;\n\n   k = GetCurrentProcessId &#40;&#41;;\n   memset &#40;&amp;tlist, 0, sizeof &#40;TASK_LIST&#41; * MAX_TASKS&#41;;\n   numTasks = GetTaskListCE &#40;tlist, MAX_TASKS&#41;;\n   for &#40;i = 0; i &lt; numTasks; i ++&#41;\n   &#123;\n      if &#40;k != tlist&#91;i&#93;&#46;dwProcessId &amp;&amp; &#40;_tcscmp &#40;_tcsupr &#40;tlist&#91;i&#93;&#46;ProcessName&#41;, TEXT &#40;&quot;MOBI&#46;EXE&quot;&#41;&#41; == 0 || _tcscmp &#40;_tcsupr &#40;tlist&#91;i&#93;&#46;ProcessName&#41;, TEXT &#40;&quot;MOBISYNC&#46;EXE&quot;&#41;&#41; == 0&#41;&#41;\n      &#123;\n         KillProcess &#40;&amp;tlist&#91;i&#93;&#41;;\n         bRet = TRUE;\n      &#125;\n   &#125;\n   hb_retl &#40;bRet&#41;;\n&#125;\n\n// 2006-05-11 20&#58;02&#58;13\nDWORD GetTaskListCE &#40;PTASK_LIST pTask, DWORD dwNumTasks&#41;\n&#123;\n   HINSTANCE hProcessSnap = NULL;\n   PROCESSENTRY32 pe32 = &#123;0&#125;;\n   DWORD dwTaskCount = 0;\n\n   if &#40;dwNumTasks == 0&#41; return 0;\n   hProcessSnap = &#40;HINSTANCE&#41; CreateToolhelp32Snapshot &#40;TH32CS_SNAPPROCESS, 0&#41;;\n   if &#40;hProcessSnap == &#40;HANDLE&#41; -1&#41; return 0;\n   dwTaskCount = 0;\n   pe32&#46;dwSize = sizeof &#40;PROCESSENTRY32&#41;;\n   if &#40;Process32First &#40;hProcessSnap, &amp;pe32&#41;&#41;\n   &#123;\n      do\n      &#123;\n         LPTSTR pCurChar;\n         if &#40;_tcsstr &#40;pe32&#46;szExeFile, L&quot;\\\\&quot;&#41;&#41;\n             pCurChar = _tcsrchr &#40;pe32&#46;szExeFile, \'\\\\\'&#41;;\n         else\n             pCurChar = pe32&#46;szExeFile;\n         lstrcpy &#40;pTask-&gt;ProcessName, pCurChar&#41;;\n         pTask-&gt;flags = 0;\n         pTask-&gt;dwProcessId = pe32&#46;th32ProcessID;\n         pTask-&gt;cntThreads = pe32&#46;cntThreads;\n         pTask-&gt;cntUsage = pe32&#46;cntUsage;\n         pTask-&gt;dwInheritedFromProcessId = pe32&#46;th32ParentProcessID;\n         pTask-&gt;th32ModuleID = pe32&#46;th32ModuleID;\n         ++ dwTaskCount;\n         ++ pTask;\n      &#125;\n      while &#40;dwTaskCount &lt; dwNumTasks &amp;&amp; Process32Next &#40;hProcessSnap, &amp;pe32&#41;&#41;;\n   &#125;\n   else dwTaskCount = 0;\n   CloseHandle &#40;hProcessSnap&#41;;\n   CloseToolhelp32Snapshot &#40;hProcessSnap&#41;;\n   return dwTaskCount;\n&#125;\n\n// 2006-05-11 20&#58;02&#58;10\nBOOL KillProcess &#40;PTASK_LIST tlist, BOOL fForce&#41;\n&#123;\n   HANDLE hProcess;\n\n   if &#40;fForce || !tlist-&gt;hwnd&#41;\n   &#123;\n      hProcess = OpenProcess &#40;PROCESS_ALL_ACCESS, FALSE, tlist-&gt;dwProcessId&#41;;\n      if &#40;hProcess&#41;\n      &#123;\n         hProcess = OpenProcess &#40;PROCESS_ALL_ACCESS, FALSE, tlist-&gt;dwProcessId&#41;;\n         if &#40;hProcess == NULL&#41;\n         &#123;\n            return FALSE;\n         &#125;\n         if &#40;!TerminateProcess &#40;hProcess, 1&#41;&#41;\n         &#123;\n            CloseHandle &#40;hProcess&#41;;\n            return FALSE;\n         &#125;\n         CloseHandle &#40;hProcess&#41;;\n         return TRUE;\n      &#125;\n   &#125;\n   PostMessage &#40;tlist-&gt;hwnd, WM_CLOSE, 0, 0&#41;;\n   return TRUE;\n&#125;\n\n#pragma ENDDUMP\n[/code:3rzryx36]','',0,'AIA=','3rzryx36',1,0,'',13,0,0),(20945,4734,4,2,0,'87.218.146.219',1162151315,1,0,1,1,1,1,'','','Pawel,\n\nYour above code is leaking memory. BTW you may use FWPPC WinExec().\n\nThis is the fix for your code:\n[code:128y7i5n]\n   LPSTR lpExe = hb_parc &#40;1&#41;; \n   LPSTR lpCmd = hb_parc &#40;2&#41;; \n   LPWSTR lpWExe = AnsiToWide&#40; lpExe &#41;; \n   LPWSTR lpWCmd = AnsiToWide&#40; lpCmd &#41;;\n   &#46;&#46;&#46;\n   hb_xfree&#40; lpExe &#41;;\n   hb_xfree&#40; lpCmd &#41;;\n[/code:128y7i5n]','',0,'AIA=','128y7i5n',1,0,'',2,0,0),(20946,4733,3,69,0,'74.13.30.203',1162151744,1,0,1,1,1,0,'','','Problem Solved.','',0,'AIA=','2jy9ly1s',1,0,'',69,0,0),(20947,4734,4,2,0,'87.218.146.219',1162152341,1,0,1,1,1,1,'','','Pawel,\n\nWhat code is it there ?\n\nc:\\vce\\include\\datareelce\\strutil.h(134) : error C2061: syntax error : identifier \'gxwchar\' \nc:\\vce\\include\\datareelce\\strutil.h(134) : error C2059: syntax error : \';\'','',0,'AIA=','1w29x10u',1,0,'',2,0,0),(20948,4734,4,13,0,'213.76.252.200',1162152655,1,0,1,1,1,0,'','','Antonio,\n\nYes, you are right.\nWinExec provides method to stop this function above time running limit (I use this function with GPRS connection, in some situation break connection is only way to back to execution program code) ?\nWhat is the method to compile and link my sample code with your change in current FWPPC build ?\n\nThanks\nPawel','',0,'AIA=','3ruq48et',1,0,'',13,0,0),(20949,4734,4,2,0,'87.218.146.219',1162152833,1,0,1,1,1,1,'','','Pawel,\n\nA simpler solution <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nCurrent Harbour (the one used by FWPPC) lets you mix C and C++ code. So you can compile your code with -TP to avoid the errors and simply use this:\n\nextern \"C\"\n{\n   LPWSTR AnsiToWide( LPSTR );\n}','',0,'AIA=','1f7evu7w',1,0,'',2,0,0),(20950,4735,3,844,0,'212.200.100.8',1162158208,1,0,1,1,1,0,'','fiveh.lib and xcc','I\'ve got fiveh.lib compiled with bordland compiler and when used with xharbour professional (xcc) it gives an error \nxLINK: fatal error: Corrupt library: \'D:\\fwh\\lib\\Fiveh.lib\'. \nSo is there fiveh.lib compatible with xharbour?','',0,'AIA=','3fiei902',1,0,'',844,0,0),(20951,4710,1,819,0,'67.125.131.169',1162159659,1,0,1,1,1,0,'','','Antonio, \n\n\n   I am  using array not  DBF file . What is the value o:nLastKey? It is the same as getAsynckey(i)? I am getting 255 on up, down, left, right, and some other keys on POS keyboard. Is there any fivewin function that can properly identify these POS keys?\n   \n\n   TIA,\n\n   Jose','',0,'AIA=','wc6oo9v8',1,0,'',819,0,0),(20952,4735,3,2,0,'87.218.146.171',1162166539,1,0,1,1,1,1,'','','You have to use FiveHMX.lib and FiveHCM.lib for xHarbour and xcc.','',0,'AIA=','2yqwbmk2',1,0,'',2,0,0),(20953,4710,1,2,0,'87.218.146.171',1162166655,1,0,1,1,1,1,'','','Jose,\n\nCheck the values that you get here:\n\naObject[AO_JOURNALLIST]:bKeyDown:={| nKey | MsgInfo( nKey ) }','',0,'','1vhyem2b',1,0,'',2,0,0),(20954,4736,6,305,0,'201.230.245.204',1162169564,1,0,1,1,1,0,'','como redimensionar una imagen','Amigos del foro:\n\nTengo una parte de mi programa en la que asocio una imagen a un alumno en un recuadro.  Como las imagenes originales a asociar pueden tener cualquier tamaño y para evitar que se distorsionen al mostrarlas, las convierto a imagenes cuadradas.\n\nUso la aplicacion nconvert.exe con los comandos:\n[code:2xuml0jz]nconvert -out jpeg -resize 300 300 -ratio *&#46;jpg\nnconvert -out jpeg -canvas 300 300 *&#46;jpg[/code:2xuml0jz]\n\nPero al ajustarlas de tamaño, el fondo queda en color negro.  Alguien sabe como hacer para que este fondo sea blanco en lugar de negro?\n\nVean unas imagenes de ejemplo:  <!-- w --><a class=\"postlink\" href=\"http://www.sgedukit.com/files/test/nconv.zip\">www.sgedukit.com/files/test/nconv.zip</a><!-- w -->\n\nO existe alguna funcion en FWH de ajustar las dimensiones de una imagen?\n\nSaludos\n\nRalph','',0,'AIA=','2xuml0jz',1,0,'',305,0,0),(20955,4737,6,694,0,'200.138.82.210',1162172615,1,0,1,1,1,1,'','TWORD como usar CRLF?','Amigos,\nUso a TWORD para substituir campos no WORD por variaveis minha, porém estou com uma dúvida:\n\nPreciso concatenar uma STRING tipo assim:\nVEICULOS:=\"Variant Placa AAA-111 \"+CRLF+\"Passat Placa EEE-111\"\nNo word tenho [VEICULOS]\n\nPorem preciso que fique um veículo por linha. Alguem sabe fazer?\n\nAokisantos\nFwh25+xharb+Mysql+SQLLIB','',0,'','1r3yv6lj',1,0,'',694,0,0),(20956,4610,3,397,0,'201.43.234.4',1162173699,1,0,1,0,1,1,'','','Hi,\n\nTake look im my release.\n\n[code:khwadcrd]\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg, oBrw \n\n    USE part\n    INDEX ON partno     TAG part01 TO part\n    INDEX ON partnAME TAG part02 TO part\n    SET INDEX to part // I create the index to test\n\n    DEFINE DIALOG oDlg SIZE 400, 300 \n\n    oBrw = TMyWBrowse&#40;&#41;&#58;New&#40; 0, 0, , ,; \n                             &#123; || &#123; part-&gt;partno, part-&gt;partname &#125; &#125;,; \n                             &#123; &quot;LAST&quot;, &quot;FIRST&quot; &#125;,; \n                             &#123; 150, 150, 0 &#125; &#41; \n\n     // with double click feature put data in especific order\n     oBrw&#58;bLDblClick &#58;= &#123; |nRow,nCol | &#40;iif&#40; nRow&lt;12,&#40; iif&#40; oBrw&#58;nAtCol&#40;nCol&#41;=2, OrdSetFocus&#40;2&#41;, OrdSetFocus&#40;1&#41;&#41;, oBrw&#58;GoTop&#40;&#41;, oBrw&#58;Refresh&#40;&#41;&#41;,&#46;t&#46;&#41; &#41; &#125;\n    oBrw&#58;aOrd       &#58;= &#123; &#123; || iif&#40;IndexOrd&#40;&#41;=1,MO_ASC,MO_NONE&#41; &#125;, &#123; || iif&#40;IndexOrd&#40;&#41;=2,MO_ASC,MO_NONE&#41; &#125;, &#123; || MO_NONE &#125;, &#123; || MO_NONE &#125; &#125; \n\n    oBrw&#58;lCellStyle &#58;= &#46;T&#46; \n\n    ACTIVATE DIALOG oDlg; \n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;; \n             CENTER \n\n    CLOSE \n\n    RETURN NIL \n[/code:khwadcrd]\n\nThanks,','',0,'AIA=','khwadcrd',1,0,'',397,0,0),(20957,4379,6,299,0,'24.233.172.101',1162174658,1,0,1,0,1,0,'','','Me había resisitido hasta el final.  Pero de repente (luego de remover norton antivirus) mi computadora ya no me permite ejecutar 16 bit apps.  Así que me ví obligado a buscar un editor de recursos 32 bits.\n\nPorque sus consejos me han servido en el pasado, decidí dar la oportunidad al \"resource builder\", como lo aconseja René.  No me tardé 5 minutos en ser productivo.\n\nRené, gracias por el \"post\".  \n\n\n\nReinaldo Crespo-Bazán','',0,'AIA=','boejiow5',1,0,'',299,0,0),(20958,4738,6,725,0,'200.65.178.209',1162174757,1,0,1,1,1,1,'','error de memoria','Estoy emepzando con la conversión de mi aplicación de 16 bits a 32 bits ya pude compilar sin embargo después de abrir una ventana hija y salir de la aplicación me envia un error de memoria:\n\nLa instruccion en \"0x0045d737\" hace referncia a la memoria en \"0x0000000\". La memoria no se puede \"read\" Haga clic en aceptar para finalizar este programa.\n\nno estoy usando nada raro ni biblioteca adicional solo estoy empezando a hacer pruebas espro su ayuda gracias[/img]','',0,'','3ux6ay20',1,0,'',725,0,0),(20959,4739,3,707,0,'222.124.20.50',1162177676,1,0,1,1,1,0,'','Hi Enrico !','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> How to create games with xHarbour <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nI used FWH and xHB.\n\n\nfunction Games()\nlocal oBmpBackGround, oBmpSprite1, oBmpSprite2\n\nDEFINE WINDOW oWnd \n\n@0,0 bitmap oBmpBackGround FILE \"room.bmp\" pixel of oWnd\n\n@20,10 bitmap oBmpSprite1 FILE \"ball.bmp\" pixel of oWnd\n\noBmpSprite1:lTransparent := .t.\n\n?????????????????????????????\n// But Not Transparent  //\n?????????????????????????????\n\n\nACTIVATE WINDOW oWnd\n\nreturn nil\n\nThank\'s\n\nBest Regard\nAreang','',0,'','1we9fsmm',1,0,'',707,0,0),(20960,4740,4,13,0,'213.76.252.200',1162183234,1,0,1,1,1,0,'','Menu actions','Antonio,\n\nWhen I call window with menu program don\'t stop execution after activate clause. Below is sample.\n\nRegards\nPawel\n\n[code:1zny79hn]\n// testmenu&#46;prg\n#Include \'FwCe&#46;Ch\'\n\nFunction TestMenu &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oMnu &#58;= Nil\n\n   Define Menu oMnu Resource 1001\n   ReDefine MenuItem Id 1011 Of oMnu Action oWnd &#58; End &#40;&#41;\n   ReDefine MenuItem Id 1021 Of oMnu Action Window1 &#40;&#41;\n   ReDefine MenuItem Id 1022 Of oMnu Action Window2 &#40;&#41;\n\n   Define Window oWnd Title \'Test menu\' Menu oMnu\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n\nFunction Window1 &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oGrp &#58;= Nil\n   Local nGrp &#58;= 1\n\n   Define Window oWnd Title \'Window1\'\n\n   @   5,   5 Group oGrp To 219, 230 Prompt \'Wybierz czynno&#347;&#263; do wykonania\' Pixel\n   @   1,   2 Radio nGrp Items \'Archiwizacja danych\', \'Weryfikacja tabel\', ;\n   \'Reindeksacja tabel\', \'Usuni&#281;cie tabel\', \'Ograniczenie danych\', ;\n   \'Pobranie nowej wersji\', \'Lista parametrów\' Of oGrp Size 150, 15\n   @ 246, 116 Button \'OK\' Pixel Size 60, 20 Action oWnd &#58; End &#40;&#41;\n   @ 246, 178 Button \'Anuluj\' Pixel Size 60, 20 Action oWnd &#58; End &#40;&#41;\n\n   Activate Window oWnd On Init EmptyMenu &#40;oWnd &#58; hWnd&#41;\n\n   MsgInfo &#40;\'Action after activate window\'&#41;\n\nReturn &#46;T&#46;\n\nFunction Window2 &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oGrp &#58;= Nil\n   Local nGrp &#58;= 1\n\n   Define Window oWnd Title \'Window2\'\n\n   @   5,   5 Group oGrp To 175, 230 Prompt \'Wybierz dane konfiguracyjne\' Pixel\n   @   1,   2 Radio nGrp Items \'u&#380;ytkownik\', \'o firmie\', \'uprawnienia\', \'lista magazynów\', \'adresy serwerów\' Of oGrp Size 160, 15\n   @ 246, 116 Button \'OK\' Pixel Size 60, 20 Action Nil\n   @ 246, 178 Button \'Anuluj\' Pixel Size 60, 20 Action oWnd &#58; End &#40;&#41;\n\n   Activate Window oWnd On Init EmptyMenu &#40;oWnd &#58; hWnd&#41;\n\n   MsgInfo &#40;\'Action after activate window\'&#41;\n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapirdd&#46;h&gt;\n\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC &#40;EMPTYMENU&#41;\n&#123;\n   SHINITDLGINFO shidi;\n   HWND hWnd = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = hWnd;\n   shidi&#46;dwFlags = SHIDIF_EMPTYMENU;\n   SHInitDialog &#40;&amp;shidi&#41;;\n&#125;\n\n#pragma ENDDUMP\n\n// testmenu&#46;rc\n#include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n#include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n\nLANGUAGE LANG_POLISH,SUBLANG_DEFAULT\n\n1001 RCDATA\nBEGIN\n  1001, 2\n  &#40;-2&#41;, 10001, 4, 24, 10001, 0, 0\n  &#40;-2&#41;, 10002, 4, 24, 10002, 0, 1\nEND\n\n1001 MENU\nBEGIN\n  POPUP &quot;File&quot;\n  BEGIN\n    MENUITEM &quot;Exit&quot;, 1011\n  END\n  POPUP &quot;Test&quot;\n  BEGIN\n    MENUITEM &quot;Window2&quot;, 1022\n    MENUITEM &quot;Window1&quot;, 1021\n  END\nEND\n\nSTRINGTABLE\nBEGIN\n  10001, &quot;File&quot;\n  10002, &quot;Test&quot;\nEND\n[/code:1zny79hn]','',0,'AIA=','1zny79hn',1,0,'',13,0,0),(20961,4741,4,13,0,'213.76.252.200',1162185451,1,0,1,1,1,0,'','Errorsys redefinition','Antonio,\n\nI create own errorsys procedure which may prevent for use open database or generally for terminate sleeping program process (in pocket memory in some situation exists only program process without any window and database may still open). When error handler is call program show error: \"Too many recursive error handler calls\". How to fix this ?\n\nThanks for reply\nPawel\n\nSample code:\n[code:23a8wqqb]\n#Include \'FwCe&#46;Ch\'\n\nFunction TestErr &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   \n   AppIni &#40;&#41;\n\n   Define Window oWnd Title \'Test error\'\n   @ 100, 100 Button \'Open1\' Size 60, 20 Pixel Action OpenTest &#40;&#41;\n   @ 130, 100 Button \'Open2\' Size 60, 20 Pixel Action OpenTest &#40;&#41;\n   Activate Window oWnd\n   \n   DbCloseAll &#40;&#41;\n\nReturn &#46;T&#46;\n\nFunction OpenTest &#40;&#41;\n\n   Local aStr &#58;= &#123;&#125;\n\n   If !File &#40;\'TESTERR&#46;DBF\'&#41;\n      AAdd &#40;aStr, &#123;\'F1\', \'C\', 10, 0&#125;&#41;\n      DbCreate &#40;\'TESTERR\', aStr&#41;\n      Use TestErr New\n   Else\n      Use TestErr New\n   Endif\n   \n   MsgInfo &#40;\'Database in use\'&#41;\n\nReturn &#46;T&#46;\n\n// 2006-03-18 14&#58;24&#58;03\nFunction ErrorSys &#40;&#41;\n\n   ErrorBlock &#40;&#123;|o| ShowError &#40;o&#41;&#125;&#41;\n\nReturn &#46;T&#46;\n\n// 2006-03-18 14&#58;24&#58;03\nStatic Function ShowError &#40;oError&#41;\n\n   Local cError &#58;= \'\'\n   Local n &#58;= 2\n   Local nHn &#58;= 0\n\n   If oError &#58; GenCode == EG_OPEN // this generates error &quot;Too many recursive error handler calls&quot;\n      MsgInfo &#40;\'Program process is still running !\', PROGNAME&#41;\n      DbCloseAll &#40;&#41;\n      // ProgramTask &#40;&#41; // procedure to kill program process\n      PostQuitMessage &#40;0&#41;\n      Quit\n   Endif\n\n   cError &#58;= oError &#58; Description\n\n   If !Empty &#40;oError &#58; Operation&#41;\n      cError += Hb_OsNewLine &#40;&#41; + oError &#58; Operation\n   Endif\n\n   cError += Hb_OsNewLine &#40;&#41; + \'Call history&#58;\' + Hb_OsNewLine &#40;&#41;\n\n   Do While !Empty &#40;ProcName &#40;n&#41;&#41;\n      cError += AllTrim &#40;ProcName &#40;n&#41;&#41; + \' &#40;\' + AllTrim &#40;Str &#40;ProcLine &#40;n&#41;&#41;&#41; + \'&#41;\' + Hb_OsNewLine &#40;&#41;\n      n ++\n   Enddo\n\n   If !File &#40;\'Error&#46;Txt\'&#41;\n      nHn &#58;= FCreate &#40;\'Error&#46;Txt\'&#41;\n   Else\n      nHn &#58;= FOpen &#40;\'Error&#46;Txt\', 2&#41;\n      FSeek &#40;nHn, 0, 2&#41;\n   Endif\n   FWrite &#40;nHn, DToC &#40;Date &#40;&#41;&#41; + \' \' + Time &#40;&#41; + Hb_OsNewLine &#40;&#41;&#41;\n   FWrite &#40;nHn, cError&#41;\n   FWrite &#40;nHn, Replicate &#40;\'-\', 40&#41; + Hb_OsNewLine &#40;&#41;&#41;\n   FClose &#40;nHn&#41;\n\n   MsgInfo &#40;cError, \'Program error\'&#41;\n\n   DbCloseAll &#40;&#41;\n   // ProgramTask &#40;&#41; // procedure to kill program process\n   PostQuitMessage &#40;0&#41;\n   Quit\n\nReturn &#46;T&#46;\n\n// system defaults\nFunction AppIni &#40;&#41;\n\n   Request DbfCdx\n   Request DbfFpt\n   RddSetDefault &#40;\'DbfCdx\'&#41;\n   Request Hb_Lang_PL852\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PL852\n   Request Hb_CodePage_PLWIN\n\n   Set Century On\n   Set Epoch To 2000\n   Set Date German\n   Set Deleted On\n   Hb_LangSelect &#40;\'PL\'&#41;\n   Hb_SetCodePage &#40;\'PLWIN\'&#41;\n\nReturn &#46;T&#46;\n\n[/code:23a8wqqb]','',0,'AIA=','23a8wqqb',1,0,'',13,0,0),(20962,4740,4,6,0,'87.3.184.83',1162195133,1,0,1,1,1,1,'','Re: Menu actions','It\'s normal behavior. Just don\'t put anything after the inner ACTIVATE WINDOW command. Use VALID clause instead.\n\nEMG','',0,'AIA=','2j0diowf',1,0,'',6,0,0),(20963,4741,4,6,0,'87.3.184.83',1162195239,1,0,1,1,1,1,'','Re: Errorsys redefinition','Add\n\n? oError : GenCode\n\nat the beginning of the error handler and let me know what you get.\n\nEMG','',0,'AIA=','2ilvj4ja',1,0,'',6,0,0),(20964,4740,4,13,0,'213.76.252.200',1162196125,1,0,1,1,1,0,'','','Enrico,\n\nYes, but when I\'m use previous version of FWPPC, commands after activate window clause were run after window close. In this moment probably I must change program code.\n\nRegards\nPawel','',0,'AIA=','1t1ell0l',1,0,'',13,0,0),(20965,4742,7,600,0,'195.66.150.52',1162196180,1,0,1,1,1,0,'','Clase TBtnp','Buenas, tengo dos consultas a realizar:\n\n- No logro poner el tooltip en el botón. Aparentemente la clase lo soporta. Ejemplo:\n\n@ 0,0 BTNBMP NAME \"Salir\" SIZE 30,30 OF oWnd ;\n         ACTION iif( MsgYesNo( \"¿ Desea Salir ?,\"Sistema\"), oWnd:End(),) ;\n         TOOLTIP \"Salir\"\n\nEl compilador genera el siguiente error: \nERROR E0022 Invalid lvalue: \'String\'\n\n- En esta misma instrucción la función MsgYesNo utiliza los botones en Ingles: Yes - No\n¿Es posible que aparezca en Castellano?\n\nUn saludo\nJuan José','',0,'AIA=','1rbdho5g',1,0,'',600,0,0),(20966,4741,4,13,0,'213.76.252.200',1162196373,1,0,1,1,1,0,'','','Enrico,\n\nNothing is change. Error message still exists this same.\n\nPawel','',0,'AIA=','2nj2f4tm',1,0,'',13,0,0),(20967,4740,4,13,0,'213.76.252.200',1162197169,1,0,1,1,1,0,'','','Enrico,\n\nSome samples: in first procedure message is show after window closed, in seconds before ... What is properly - my opinion after.\n\nRegards\nPawel\n\n[code:r2k24v2f]\nFunction TestWnd &#40;&#41;\n\n   Local oWnd &#58;= Nil\n\n   Define Window oWnd Title \'Test Window\'\n\n   @ 100, 100 Button \'Window2\' Size 60, 20 Pixel Action Wnd2 &#40;&#41;\n\n   Activate Window oWnd\n\n   // this is evaluated after window closed\n   MsgInfo &#40;\'Commands after window activate\'&#41;\n\nReturn &#46;T&#46;\n\nFunction Wnd2 &#40;&#41;\n\n   Local oWnd &#58;= Nil\n\n   Define Window oWnd Title \'Window 2\'\n   Activate Window oWnd\n\n   // this is eveluated before window closed\n   MsgInfo &#40;\'Commands after window activate\'&#41;\n\nReturn &#46;T&#46;\n[/code:r2k24v2f]','',0,'AIA=','r2k24v2f',1,0,'',13,0,0),(20968,4729,16,2,0,'87.218.146.240',1162198336,1,0,1,1,1,1,'','','Construcción Octubre 2006\n===================\n\n* Mejora: En FWH, el método GoBottom() de la clase TMGet ahora desliza el control get multilínea, así que el texto más abajo queda visible.\n\n* Mejora: Pequeñas correcciones en el método Paint() de la clase TGet. \n\n* Corrección: La función TVSETITEMTEXT() daba errores de GPF. Ahora está bien.  \n\n* Nuevo: Ejemplo de un \"simple\" terminal ASCII funcionando, programa desarrollado por Enrico M. Giordano. El ejemplo lo puedes encontrar en\nsamples\\Terminal.prg.  \n\n* Mejora: En la clase TTreeView, se pone correctamente el color de fondo de los items cuando se utliza la clausula COLOR &lt;nColorFore&gt;, &lt;nClrBack&gt;.\n\n* Corrección: En las clases TTreeView y TTVItem el método Colapse ha sido renombrado a Collapse. \n\n* Mejora: La clase TXBrowse procesa &lt;oCol&gt;:bRClickData si el botón derecho del ratón es pulsado sobre una celda seleccionada.  \n\n* Nuevo: Se ha implementado el comando @ &lt;nRow&gt;, &lt;nCol&gt; ACTIVEX &lt;oActX&gt; ... Por favor revisa include\\FiveWin.ch para conocer la sintaxis completa. \n\n* Mejora: El método KeyDown() de la clase TXBrowse procesa correctamente el bloque de código bkeyDown. \n\n* Mejora: Se ha modificado el ejemplo samples\\TestSay2.prg para mostrar como cambiar el color de un SAY una vez que se ha pulsado sobre el.  \n\n* Mejora: Pequeños cambios sobre la clase TDbOdbcDirect. \n\n* Nuevo: Nuevo método AEvalWhen() en la clase TToolBar para evaluar todos los botones de la barra de herramientas.\n\n* Corrección: Pequeqas correcciones en la funcisn MsgInfo() y las funciones similares Msg... cuando visualizan una fecha usando xHarbour. \n\n* Corrección: Pequeqa corrección sobre la clase TWBrowse cuando se usa lCellStyle como \".T.\" y un bloque de código como color de fondo. \n\n* Corrección: En FWPPC, la función GetWindowText() estaba corrompiendo la memoria del Pocket PC. Ahora funciona correctamente. \n\n* Corrección: Pequeqa corrección en el mitodo New() de la clase TReport cuando el dispositivo no esta definido. \n\n* Mejora: Se ha mejorado mucho el manejo de la memoria en FWPPC. \n\n* Mejora: FWH es completamente compatible con el código de los CVSs de Harbour y xHarbour, tanto para Borland como Microsoft. \n\n* Mejora: En FWPPC, debido a la sincronización con los recientes CVSs, el flag -TP no es necesario en el fichero buildce.bat. Por favor actualiza\ntus ficheros make. IMPORTANTE: Tienes que reconstruir todos tus PRGs. Ahora se usa GTGUI.lib en vez de GTWIN.lib. \n\n* Mejora: FWH es totalmente compatible con xHarbour Builder de Octubre de 2006.','',0,'AIA=','249gdh2q',1,0,'',2,0,0),(20969,4739,3,6,0,'87.3.184.83',1162199535,1,0,1,1,1,1,'','Re: Hi Enrico !','This is a working sample:\n\n[code:3h9qcddi]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    local oWnd, oBrush, oSprite, oTimer\n\n    DEFINE BRUSH oBrush;\n           FILE &quot;c&#58;\\fwharbour\\bitmaps\\backgrnd\\beach&#46;bmp&quot;\n\n    DEFINE WINDOW oWnd;\n           BRUSH oBrush\n\n    @ 0, 0 BITMAP oSprite;\n           FILE &quot;c&#58;\\fwharbour\\bitmaps\\fdem5&#46;bmp&quot;;\n           PIXEL NOBORDER\n\n    oSprite&#58;lTransparent = &#46;T&#46;\n\n    DEFINE TIMER oTimer OF oWnd;\n           INTERVAL 10;\n           ACTION MOVESPRITE&#40; oWnd, oSprite &#41;\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT oTimer&#58;Activate&#40;&#41;\n\n    RELEASE TIMER oTimer\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MOVESPRITE&#40; oWnd, oSprite &#41;\n\n    LOCAL aWndRect &#58;= GETCLIENTRECT&#40; oWnd&#58;hWnd &#41;\n\n    LOCAL nWndWidth  &#58;= aWndRect&#91; 4 &#93; - aWndRect&#91; 2 &#93;\n    LOCAL nWndHeight &#58;= aWndRect&#91; 3 &#93; - aWndRect&#91; 1 &#93;\n\n    LOCAL nXPos, nYPos\n\n    STATIC nXStep &#58;= 5\n    STATIC nYStep &#58;= 5\n\n    nXPos = oSprite&#58;nLeft + nXStep\n    nYPos = oSprite&#58;nTop + nYStep\n\n    IF nXPos &lt; 0\n        nXPos = 0\n        nXStep = -nXStep\n    ENDIF\n\n    IF nYPos &lt; 0\n        nYPos = 0\n        nYStep = -nYStep\n    ENDIF\n\n    IF nXPos + oSprite&#58;nWidth &gt;= nWndWidth\n        nXPos = nWndWidth - oSprite&#58;nWidth - 1\n        nXStep = -nXStep\n    ENDIF\n\n    IF nYPos + oSprite&#58;nHeight &gt; nWndHeight\n        nYPos = nWndHeight - oSprite&#58;nHeight\n        nYStep = -nYStep\n    ENDIF\n\n    oSprite&#58;Move&#40; nYPos, nXPos, , , &#46;T&#46; &#41;\n\n    RETURN NIL[/code:3h9qcddi]\n\nEMG','',0,'AIA=','3h9qcddi',1,0,'',6,0,0),(20970,4740,4,6,0,'87.3.184.83',1162199664,1,0,1,1,1,1,'','','This is expected, as far as I know.\n\nEMG','',0,'AIA=','3ux28ku4',1,0,'',6,0,0),(20971,4741,4,6,0,'87.3.184.83',1162199831,1,0,1,1,1,1,'','','If you have\n\n? oError : GenCode \n\njust before\n\nIf oError : GenCode == EG_OPEN\n\nthen it seems that your error handler is not called.\n\nEMG','',0,'AIA=','1k2n70v1',1,0,'',6,0,0),(20972,4740,4,13,0,'213.76.252.200',1162199948,1,0,1,1,1,0,'','','Enrico,\n\nOther test - comma list: after button press all three window is created and focus is for Window 3 (?).\n\nPawel\n\n[code:3oqqscmc]\nFunction TestWnd &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local i &#58;= 0\n\n   Define Window oWnd Title \'Test Window\'\n\n   @ 100, 100 Button \'Window2\' Size 60, 20 Pixel Action &#40;Wnd1 &#40;++ i&#41;, Wnd1 &#40;++ i&#41;, Wnd1 &#40;++ i&#41;&#41;\n\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n\nFunction Wnd1 &#40;i&#41;\n\n   Local oWnd &#58;= Nil\n\n   Define Window oWnd Title \'Window \' + AllTrim &#40;Str &#40;i&#41;&#41;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n[/code:3oqqscmc]','',0,'AIA=','3oqqscmc',1,0,'',13,0,0),(20973,4743,4,20,0,'82.57.150.147',1162200519,1,0,1,1,1,0,'','Serial Number','In the new FWPPC build the SerialNumber() function don\'t work.\nIt return various values in the same program.\n\nFor example, on my Pocket (Acer N50 with Windows Mobile 2003) some times return 00E6B6699D7BF5000, other times return 0000AE6B66967ABF5.\n\nRegards\nPier Luigi','',0,'AIA=','2u2elhsk',1,0,'',20,0,0),(20974,4741,4,2,0,'87.218.146.240',1162202644,1,0,1,1,1,1,'','','Pawel,\n\nTry as Enrico says using \n\nMsgInfo( oError : GenCode )','',0,'AIA=','qkk3fu6a',1,0,'',2,0,0),(20975,4741,4,6,0,'87.3.184.83',1162202817,1,0,1,1,1,1,'','','Right!\n\nEMG','',0,'AIA=','1j9526bq',1,0,'',6,0,0),(20976,4743,4,2,0,'87.218.146.240',1162203021,1,0,1,1,1,1,'','','Pier,\n\nWe have emailed you a modified FiveCEC.lib for your test, thanks.','',0,'AIA=','1xjnwcbd',1,0,'',2,0,0),(20977,4740,4,2,0,'87.218.146.240',1162203246,1,0,1,1,1,1,'','','Pawel,\n\nWe have modified previous FWPPC behavior to turn it FW compatible.\n\nOnly the first ACTIVATE WINDOW waits in a modal way. Next ACTIVATE WINDOW just show it but don\'t wait.','',0,'AIA=','3363thwk',1,0,'',2,0,0),(20978,4738,6,2,0,'87.218.146.240',1162203397,1,0,1,1,1,1,'','','Héctor,\n\nTe ocurre igual al construir samples\\Tutor02.prg ?\n\nPuedes publicar aqui un pequeño ejemplo que reproduzca el error ? gracias','',0,'AIA=','2ka010ml',1,0,'',2,0,0),(20979,4736,6,2,0,'87.218.146.240',1162203505,1,0,1,1,1,1,'','','Ralph,\n\n@ &lt;nRow&gt;, &lt;nCol&gt; Image &lt;oBmp&gt; ... SIZE ..., ... ADJUST','',0,'AIA=','hxbrpizt',1,0,'',2,0,0),(20980,4741,4,13,0,'213.76.252.200',1162204805,1,0,1,1,1,0,'','','Antonio,\n\nError code is show (21) but next \"Too many recursive ...\" message is diplay.\n\nPawel','',0,'AIA=','cwdjo4ov',1,0,'',13,0,0),(20981,4644,7,262,0,'87.235.159.190',1162205315,1,0,1,1,1,1,'','','antonio yo me quede sin actualizaciones en septiembre ( al caducar la version 1 ) ... si es un fix importante tendria que aplicarlo pero me salen los errores arriba indicados y no tengo manera de acceder a las ultimas actualizaciones ... pondras un fix completo para la version 1 o debemos quedarnos com estamos ?','',0,'AIA=','2ql1xr2l',1,0,'',262,0,0),(20982,4743,4,20,0,'82.57.150.147',1162205457,1,0,1,1,1,0,'','','Still it does not work well.\n\nIf I confront the string returned by SerialNumber() with a constant, it returns always false.\n\nRegards\nPier Luigi','',0,'AIA=','1nx8wr8o',1,0,'',20,0,0),(20983,4740,4,13,0,'213.76.252.200',1162205487,1,0,1,1,1,0,'','','Antonio,\n\nThis mean that I can\'t use commands eg:\n\n(BuildAndWaitWithWindow1(), DoOtherCommandsAfterWindow1Close ())\n\nThanks for reply\nPawel','',0,'AIA=','3kgq10w6',1,0,'',13,0,0),(20984,4740,4,6,0,'87.3.184.83',1162205532,1,0,1,1,1,1,'','','No, just use VALID clause, as I already said.\n\nEMG','',0,'AIA=','32e7fdbi',1,0,'',6,0,0),(20985,4741,4,6,0,'87.3.184.83',1162205720,1,0,1,1,1,1,'','','It seems that PROGNAME is not defined, or am I wrong?\n\nEMG','',0,'AIA=','1p08jmnh',1,0,'',6,0,0),(20986,4743,4,20,0,'82.57.150.147',1162205738,1,0,1,1,1,0,'','','On emulator work fine, on Pocket no.\n\nRegards\nPier Luigi','',0,'AIA=','2yuxa9yt',1,0,'',20,0,0),(20987,4740,4,20,0,'82.57.150.147',1162205861,1,0,1,1,1,0,'','','Enrico,\n\nusing VALID clause work fine.\n\nPier Luigi','',0,'AIA=','3pcq6gs2',1,0,'',20,0,0),(20988,4740,4,13,0,'213.76.252.200',1162206016,1,0,1,1,1,0,'','','Enrico,\n\nWhat would be in Valid clause for my test code ?\n\nThanks\nPawel','',0,'AIA=','11zzf9gs',1,0,'',13,0,0),(20989,4743,4,2,0,'87.218.146.138',1162206042,1,0,1,1,1,1,'','','Pier,\n\nWe have not modified its source code from previous FWPPC build.\n\nWas it working ok before ?','',0,'AIA=','1h3ksln4',1,0,'',2,0,0),(20990,4740,4,6,0,'87.3.184.83',1162206281,1,0,1,1,1,1,'','','[code:3bbot95k]ACTIVATE WINDOW oWnd\n         VALID MYCLOSEFUNCTION&#40;&#41;\n\nSTATIC FUNCTION MYCLOSEFUNCTION&#40;&#41;\n\n    // Do what you want\n\n    RETURN &#46;T&#46;[/code:3bbot95k]\n\nEMG','',0,'AIA=','3bbot95k',1,0,'',6,0,0),(20991,4741,4,13,0,'213.76.252.200',1162206388,1,0,1,1,1,0,'','','Enrico,\n\nPROGNAME is defined as \'Program\' (#Define PROGNAME \'Program\').\n\nPawel','',0,'AIA=','3lksw3h4',1,0,'',13,0,0),(20992,4744,4,49,0,'213.82.134.66',1162206480,1,0,1,1,1,1,'','Palm compatibles','Can You make a list of all most palm compatibles  with fwppc ?\nthanks','',0,'AIA=','7x4ki4pc',1,0,'',49,0,0),(20993,4740,4,13,0,'213.76.252.200',1162206603,1,0,1,1,1,0,'','','Enrico,\n\nWhat this change in this code:\n\n[code:utzr0y6w]\nFunction Window1 &#40;&#41;\n\n   Local oWnd &#58;= Nil\n\n   Define Window oWnd Title \'Window 1\'\n   @ 100, 100 Button \'Window 2\' Size 80, 20 Pixel Action &#40;Wnd2 &#40;&#41;, MsgBox &#40;\'Ok\'&#41;&#41;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n\nFunction Wnd2 &#40;&#41;\n\n   Define Window oWnd Title \'Window 2\'\n   @ 100, 100 Button \'Close\' Size 80, 20 Pixel Action oWnd &#58; End &#40;&#41;\n   // oWnd &#58; bValid &#58;= &#123;|| ???&#125;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n[/code:utzr0y6w]','',0,'AIA=','utzr0y6w',1,0,'',13,0,0),(20994,4741,4,2,0,'87.218.146.138',1162206611,1,0,1,1,1,1,'','','Pawel,\n\nHave you included the define for EG_OPEN ?','',0,'AIA=','2a7qy4jc',1,0,'',2,0,0),(20995,4743,4,20,0,'82.57.150.147',1162206612,1,0,1,1,1,0,'','','Before was ok (on emulator, on WM 2003, on WM2005).\n\nPier Luigi','',0,'AIA=','2qmle9a6',1,0,'',20,0,0),(20996,4741,4,13,0,'213.76.252.200',1162206860,1,0,1,1,1,0,'','','Antonio,\n\nYou\'re right. \'Error.Ch\' must be included. \nThanks for help. \n\nPawel','',0,'AIA=','2b35cgtp',1,0,'',13,0,0),(20997,4743,4,2,0,'87.218.146.138',1162206919,1,0,1,1,1,1,'','','Pier,\n\nPlease try it again with a new lib we are emailing you now. It should be fixed this time <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','5gs8znz0',1,0,'',2,0,0),(20998,4743,4,20,0,'82.57.150.147',1162207389,1,0,1,1,1,0,'','','Great Antonio!\n\nWork fine now <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nPier Luigi','',0,'AIA=','97bf5wtp',1,0,'',20,0,0),(20999,4740,4,2,0,'87.218.146.138',1162207406,1,0,1,1,1,1,'','','Pawel,\n[code:3tfwelbw]\n\nFunction Window1 &#40;&#41; \n\n   Local oWnd &#58;= Nil \n\n   Define Window oWnd Title \'Window 1\' \n   @ 100, 100 Button \'Window 2\' Size 80, 20 Pixel Action Wnd2&#40;&#41; \n   Activate Window oWnd \n\nReturn &#46;T&#46; \n\nFunction Wnd2 &#40;&#41; \n\n   Define Window oWnd Title \'Window 2\' \n   @ 100, 100 Button \'Close\' Size 80, 20 Pixel Action oWnd &#58; End &#40;&#41; \n   Activate Window oWnd ;\n      VALID &#40; MsgBox&#40; &quot;Ok&quot; &#41;, &#46;t&#46; &#41;\n\nReturn &#46;T&#46;\n[/code:3tfwelbw]','',0,'AIA=','3tfwelbw',1,0,'',2,0,0),(21000,4743,4,2,0,'87.218.146.138',1162207491,1,0,1,1,1,1,'','','Pier,\n\nok, thanks for your fedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThere is a new FWPPC build to be downloaded for other FWPPC users too.','',0,'AIA=','3ki3rv24',1,0,'',2,0,0),(21001,4740,4,13,0,'213.76.252.200',1162207560,1,0,1,1,1,0,'','','Antonio,\n\nThanks for help.\n\nPawel','',0,'AIA=','23intyan',1,0,'',13,0,0),(21002,4744,4,2,0,'87.218.146.138',1162207606,1,0,1,1,1,1,'','','Silvio,\n\nIf the Palm uses Windows Mobile, and its processor is Intel PXA compatible, then FWPPC should work ok on it.','',0,'AIA=','3ix5vr23',1,0,'',2,0,0),(21003,4644,7,2,0,'87.218.146.138',1162207941,1,0,1,1,1,1,'','','Jose Luis,\n\nNo es sólo eso. El nuevo build de FWPPC que hemos publicado ya, usa el Harbour más reciente (46.2) y ha sido rediseñado interiormente para optimizar el uso de la memoria.\n\nAdemás se han cambiado clases importantes, para hacerlo funcionar mejor. Y del Harbour anterior a este nuevo existen muchas diferencias.\n\nNo hay un parche aislado que se pueda publicar, sino lo haríamos.','',0,'AIA=','3p2w3q1k',1,0,'',2,0,0),(21004,4644,7,262,0,'87.235.159.190',1162208595,1,0,1,1,1,1,'','','entonces ¿ lo dejo estar ? ... ( de momento no hemos tenido problemas, y actualizarse a la nueva version no se plantea hasta tener mas parque de aplicaciones instaladas .. )\nGracias por tu atencion','',0,'AIA=','25oe1z3b',1,0,'',262,0,0),(21005,4740,4,13,0,'213.76.252.200',1162213993,1,0,1,1,1,0,'','','Antonio,\n\nI check code my apps. Places where I use comma separated commands based on window are too much. In this moment I probably must think about completly rewriting program code. \nThis is very bad news for me ...\n\nPawel','',0,'AIA=','ij7gdmgn',1,0,'',13,0,0),(21006,4745,1,367,0,'201.34.237.156',1162214025,1,0,1,1,1,1,'','WebService','I am needing to have access a webservice developed with technology SOAP protocol WSDL, somebody would know where I can find some documentation or example.','',0,'AIA=','1zxapush',1,0,'',367,0,0),(21007,4746,3,367,0,'201.34.237.156',1162214131,1,0,1,1,1,1,'','WebService','I am needing to have access a webservice developed with technology SOAP protocol WSDL, somebody would know where I can find some documentation or example.','',0,'AIA=','vp9pqk2b',1,0,'',367,0,0),(21008,4630,1,779,0,'200.67.153.171',1162220100,1,0,1,1,1,0,'','Ese es el error pero....','Exactamente ese es el error, curiosamente si desactivo el lector de Huella Digital ya no se genera!!!!\n\n¿Sera un caso para la araña?','',0,'AIA=','3273qjvs',1,0,'',779,0,0),(21009,4740,4,2,0,'87.218.146.138',1162221247,1,0,1,1,1,1,'','','Pawel,\n\nPlace all that code inside a function and call just that function. Its easy.','',0,'AIA=','3uhb7ybn',1,0,'',2,0,0),(21010,4644,7,2,0,'87.218.146.138',1162221356,1,0,1,1,1,1,'','','Jose Luis,\n\nSí, puedes dejarlo como está. Solo en aplicaciones que funcionan muchas horas seguidas es donde puede notarse el problema de la memoria, que ya está solucionado.','',0,'AIA=','1h5gcymn',1,0,'',2,0,0),(21011,4747,6,409,0,'201.246.66.227',1162223131,1,0,1,1,1,0,'','BUTTONBMP Varios Click','Amigo tengo un Problema con la Clase ButtonBmp a veces el boton le tengo que presionar varios click para q se ejecute.','',0,'AIA=','33dc7tmy',1,0,'',409,0,0),(21012,4736,6,305,0,'201.230.46.66',1162224760,1,0,1,1,1,0,'','','Antonio:\n\nLa sintaxis que mencionas es la que yo uso:\n\ncFile := \"\\fotos\\foto1.jpg\"\n\nDEFINE DIALOG oDlg FROM 0, 0 TO 20, 52 \n\n@ 0, 0 IMAGE oImage SIZE 300, 300 OF oDlg ADJUST\n\noImage:Loadbmp(cFile)\n....\n\nEn la imagen yo defino las dimensiones en las que se va a mostrar la foto (300x300), y la clausula ADJUST muestra a escala la imagen original (que podria medir 500x500, 400x400, etc).  \n\nEl problema es cuando los archivos jpg no guardan proporcion con las dimensiones a mostrar (ejm: 200 x300), por lo que previamente necesito convertirlas a la escala adecuada para evitar distorsiones como puedes ver en el archivo problema.jpg que esta en nconv.zip\n\nA proposito, como puedo saber las dimensiones de un archivo jpg ?\n\nGracias por cualquier ayuda.\n\nRalph','',0,'AIA=','2azq3pp9',1,0,'',305,0,0),(21013,4748,3,49,0,'62.13.172.78',1162225587,1,0,1,1,1,1,'','CALL Functions','I not found these function \n\nregopenkeyexa\nRegQueryValueExA\n\nHow I can make to call these functions ?','',0,'AIA=','3lyxn0b6',1,0,'',49,0,0),(21014,4746,3,846,0,'201.2.39.99',1162225833,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=565\">http://www.fivewin.com.br/exibedicas.asp?id=565</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=480\">http://www.fivewin.com.br/exibedicas.asp?id=480</a><!-- m -->','',0,'AIA=','zokccwh1',1,0,'',846,0,0),(21015,3023,17,49,0,'62.13.172.78',1162226317,1,0,1,1,1,1,'','','the rar and the  exe  crc failed !!!\ncan you send me the files at my private email pls','',0,'AIA=','2vk4o0bt',1,0,'',49,0,0),(21016,4749,3,49,0,'62.13.172.78',1162226905,1,0,1,1,1,1,'','EMF2BMP','CAn I save a EMF to BMP FILE ?','',0,'AIA=','d80sg5vg',1,0,'',49,0,0),(21017,4750,7,720,0,'80.36.244.134',1162227616,1,0,1,1,1,0,'','como marcar lineas en un LISTBOX','Hola a todos....\n\nEsta vez me encuentro con que necesito marcar o resaltar cada linea que toco de un listbox. La verdad es que no se como hacerlo. Imagino que cogiendo el recno() de la linea y luego no se como decirle que esa linea me la pinte de un color....\n\nAlguien me puede indicar el camino...\n\n\nSaludos y gracias\n\nElías Torres.','',0,'AIA=','2az9riql',1,0,'',720,0,0),(21018,4751,2,518,0,'189.170.5.53',1162228115,1,0,1,1,1,0,'','wowexe.exe y ntvdm.exe','Hola,\n\ncada vez que inicio un programa en FW16 en windows XP, si ejecutan siempre estos 2 programitas. Yo se que es algo para que funcionen estas aplicaciones en Xp.\n\nLA cosa es que al cerrar el programa de FW16 estos programas se quedan ejecutandose... y cada vez que entro y salgo del programa de FW16 como que acomulan algo a tal grado que se me acaban los recursos o se pone lenta la maquina despues de muchas entradas y salidas.\n\nSegun yo estoy cerrando todo bien. Que deberia de checar al momento de cerrar ?\n\nSaludos\nRene','',0,'AIA=','ryn7mw16',1,0,'',518,0,0),(21019,4752,6,114,0,'189.169.42.25',1162228671,1,0,1,1,1,0,'','ACTUALIZAR A FWH28','Hola Compañeros, despues de un laaarrgo rato de ausencia por aqui, volvemos a las andadas y lo primero que estoy tratando de hacer es actualizar mi fwh y mi xharbour pero me encuentro con los siguientes problemas:\n\n1) No se encuentra la lib dbfdbt.lib, ya revise en xharbour\\lib y efectivamente no esta, si la copio de mi version de xharbour 99.5 funcionara sin problemas o de donde la obtengo???\n\n2) Alguien tendra por ahi la twbrowse de Hernan para FWH28?? ya que me da un error de _hb_socket en wbrwline.c\n\nSaludos y gracias\n\nLCP Eduardo Borondón Muñiz','',0,'AIA=','1xs9pfvy',1,0,'',114,0,0),(21020,4752,6,54,0,'189.132.114.168',1162230086,1,0,1,1,1,1,'','Re: ACTUALIZAR A FWH28','[quote=&quot;EBM&quot;:25cnyef3]Hola Compañeros, despues de un laaarrgo rato de ausencia por aqui, volvemos a las andadas y lo primero que estoy tratando de hacer es actualizar mi fwh y mi xharbour pero me encuentro con los siguientes problemas:\n\n1) No se encuentra la lib dbfdbt.lib, ya revise en xharbour\\lib y efectivamente no esta, si la copio de mi version de xharbour 99.5 funcionara sin problemas o de donde la obtengo???\n\n2) Alguien tendra por ahi la twbrowse de Hernan para FWH28?? ya que me da un error de _hb_socket en wbrwline.c\n\nSaludos y gracias\n\nLCP Eduardo Borondón Muñiz[/quote:25cnyef3]\n\nEduardo,\n\nen lugar de dbfdbt, hay que incluir hbsix.lib, con eso podrias compilar sin problemas.\n\nPor lo de WBrowse, no la uso.\n\nEspero te ayude','',0,'gA==','25cnyef3',1,0,'',54,0,0),(21021,78,6,180,0,'83.45.249.190',1162230806,1,0,1,1,1,0,'','','Pues eso, se puede poner un JPG de fondo en la pantalla principal\nAhora tengo un BMP que pongo con el siguiente código:\n[code:2te2dssj]DEFINE BITMAP oBmp FILENAME &quot;FOTO&#46;BMP&quot;\noVentPrinc&#58;bPainted &#58;= &#123;|hDC| PalBmpDraw&#40; hDC, 0, 0,oBmp&#58;hBitmap,, oVentPrinc&#58;nWidth, oVentPrinc&#58;nHeight,, &#46;T&#46;&#41; &#125;[/code:2te2dssj]\ny va perfecto, ¿puedo hacerlo con un JPG? ¿cómo?\n\nSaludos,\nManuel','',0,'AIA=','2te2dssj',1,0,'',180,0,0),(21022,4753,6,114,0,'189.169.42.25',1162230817,1,0,1,1,1,0,'','ACTUALIZAR FWH28','Ya inclui la lib hbsix.lib y la dbffpt.lib a mi script como me lo indico William morales y ya quedo resuelto ese tema, mil gracias, ahora en lo referente a la TWbrowse de Hernan el error que me marca es:\n\n     unresolved external _hb_stack en wbrwline\n\nAlguna idea???\n\nSaludos !!!\n\nLCP Eduardo Borondón Muñiz','',0,'AIA=','a4cggepc',1,0,'',114,0,0),(21023,4752,6,114,0,'189.169.42.25',1162230870,1,0,1,1,1,0,'','','Gracias William, un problema resuelto\n\nSaludos !!!','',0,'AIA=','33r12p4v',1,0,'',114,0,0),(21024,4746,3,367,0,'201.34.237.156',1162230956,1,0,1,1,1,1,'','','Necessary of example with SOAP. This example does not have what necessary.','',0,'AIA=','2xugjtwv',1,0,'',367,0,0),(21025,4750,7,2,0,'87.218.146.138',1162233385,1,0,1,1,1,1,'','','Elias,\n\nAñade un nuevo campo lógico (lSelect) a la DBF. Cuando el usuario seleccione ese registro, cambias el valor a .t.. Y usas el siguiente codeblock para el color:\n\noBrowse:nClrPane :=  { || If( Tabla-&gt;lSelect, COLOR_&lt;uno&gt;, COLOR_&lt;otro&gt; ) }','',0,'AIA=','39nt3du0',1,0,'',2,0,0),(21026,4748,3,2,0,'87.218.146.138',1162233668,1,0,1,1,1,1,'','','Silvio,\n\nPlease review source\\classes\\reg32.prg','',0,'AIA=','17egxd7y',1,0,'',2,0,0),(21027,4748,3,49,0,'62.13.172.78',1162235262,1,0,1,1,1,1,'','','thanks antonio \nI trying to recompiled a small sample from 16 bit','',0,'AIA=','3qeksk8p',1,0,'',49,0,0),(21028,4754,7,840,0,'201.242.74.49',1162236054,1,0,1,1,1,0,'','LEER UN FICHERO EN RED DESDE OTRA COMPUTADORA BAJO FWPPC','SALUDOS ANTONIO.\n\nNO ME EXPIQUE BIEN,  LA PREGUNTA ES  \nQUIERO LEER DE MI POCKET PC UN FICHERO X QUE ESTA EN OTRA COMPUTADORA( EN RED WIFI)  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\n [b:2fztizax]\"DESDE BAJO UN PROGRA FWPPC\"[/b:2fztizax]\n\n**   NO PURDO CAMBIAR LA VARIABLE CURDIR()  **\n\n** CUANDO COLOCO UN SAY EN MI PROGRAMA APARACE LA PRIMERA VEZ, LA SEGUNDA VEZ COLOCO EL SAY EN LA MISMA POSISCION LA \nVARIABLE QUE ESTA EN LA MISMA POSICION NO APARECE, PERO SI LA COLOCO UNA LINEA MAS ABAJO APARECE, COMO SI NO REFRECARA LA PANTALLA O QUEDA ABAJO DEL PRIMER SAY, QUE ME RECOMIENDAS. \n\nGRACIAS.','',0,'QA==','2fztizax',1,0,'',840,0,0),(21029,4710,1,819,0,'216.34.194.113',1162244843,1,0,1,1,1,0,'','','&gt;Check the values that you get here: \n\n&gt;aObject[AO_JOURNALLIST]:bKeyDown:={| nKey | MsgInfo( nKey ) }\n\nThat helps a lot! \n\nI wonder why it is not mentioned in the documentation that it can receive two parameters (nKey, nFlags)?  Or I just missed it?\n\nnFlag value was the essential data in this particular case.\n\nMUCHAS GRACIAS AMIGO !!!!\n\nJose','',0,'','4whd71p8',1,0,'',819,0,0),(21030,4710,1,2,0,'87.218.146.138',1162249193,1,0,1,1,1,1,'','','Jose,\n\nDe la documentación de classes de FWH:\n\n&lt;bKeyDown&gt; Whenever the window has focus and a NON-SYSTEM key is pressed (ie the &lt;Alt&gt; key was not pressed in conjunction with this key), this codeblock will be called. When &lt;bKeyDown&gt; is called it receives two parameters: &lt;nKey&gt; The virtual key code of the key. &lt;nFlags&gt; Specifies several internal values like repeat code and scan code. For more information about these values please read a MS-Windows APIdescription about the WM_KEYDOWN message.','',0,'','28rq75og',1,0,'',2,0,0),(21031,4755,3,847,0,'207.6.40.166',1162249898,1,0,1,1,1,0,'','Remote access solution','Does anyone have good ideas for efficiently running the FiveWin/xHarbour/Advantage Database Server combination remotely?  A new client of ours needs to have half a dozen people using our app. from different locations around the country, and we want to be able to recommend the most efficient solution right up front.  \n\nOur app is designed so that it must be in the same folder as the data, so without a lot of modification, it\'s not practical to have it resident on the workstation; it must remain on the server. \n\nThanks!\nDoug','',0,'','1908kyce',1,0,'',847,0,0),(21032,4753,6,2,0,'87.218.146.110',1162251627,1,0,1,1,1,1,'','','Eduardo,\n\nPrueba a incluir este código en tu PRG:\n[code:13rk71f2]\n#pragma BEGINDUMP \n\n#include &quot;hbstack&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\n#pragma ENDDUMP\n[/code:13rk71f2]','',0,'AIA=','13rk71f2',1,0,'',2,0,0),(21033,4754,7,2,0,'87.218.146.110',1162252104,1,0,1,1,1,1,'','','Dario,\n\n&gt;\nNO ME EXPIQUE BIEN, LA PREGUNTA ES \nQUIERO LEER DE MI POCKET PC UN FICHERO X QUE ESTA EN OTRA COMPUTADORA( EN RED WIFI)\n&gt;\n\nPrueba con MsgInfo( MemoRead( \"\\\\computadora\\path\\fichero.txt\" ) )   \n\n&gt; ** NO PURDO CAMBIAR LA VARIABLE CURDIR() ** \n\nAún no hemos implementado lChDir( &lt;cDirName&gt; )\n\n&gt;\n** CUANDO COLOCO UN SAY EN MI PROGRAMA APARACE LA PRIMERA VEZ, LA SEGUNDA VEZ COLOCO EL SAY EN LA MISMA POSISCION LA \nVARIABLE QUE ESTA EN LA MISMA POSICION NO APARECE, PERO SI LA COLOCO UNA LINEA MAS ABAJO APARECE, COMO SI NO REFRECARA LA PANTALLA O QUEDA ABAJO DEL PRIMER SAY, QUE ME RECOMIENDAS. \n&gt;\n\nUn objeto SAY solo se crea una vez, luego se le cambia el texto:\n\n@ 2, 2 SAY oSay PROMPT \"Hola\" OF oWnd\n\n...\n\noSay:SetText( \"test\" )','',0,'AIA=','2raml79n',1,0,'',2,0,0),(21034,4756,6,793,0,'201.225.19.210',1162255011,1,0,1,1,1,0,'','Aplicaciones de fw y fwh ejecutandose a la vez','Quisiera saber si puedo correr aplicaciones de fw y fwh utilizando las mismas tablas dbf.\nLo he probado y la aplicacion de fwh corre tan lenta como la de fw en una red inalambrica\n\nAlguien puede explicarme por que\n\n\nSaludos \nerick','',0,'AIA=','4fmo93mr',1,0,'',793,0,0),(21035,4757,3,34,0,'68.4.154.81',1162258359,1,0,1,1,1,1,'','Create and Email PDF\'s from FWH','The question has been raised several times about being able to email a report / document, from rpreview, as a PDF.  There have been some elaborate solutions proposed, but I have finished incorporating a product that works very well for this task.\n\nEssentially, I pass the aFiles array of EMF names to this product ( it is a .DLL ), and it creates the PDF and I then simply attach it to an email.  It all happens with the click of an email icon in a Preview using the .dll and pure FWH / xHarbour code.\n\nI had an initial problem with graphic backgrounds ( grey ) but those were fixed within a couple of hours, and now the output is excellent.  A special utility capability in the latest version creates PDF from EMF/WMF files that are much smaller, and it works very quickly.\n\nIf you are looking for this solution, go to <!-- w --><a class=\"postlink\" href=\"http://www.utilitywarrior.com\">www.utilitywarrior.com</a><!-- w --> and check out Image2PDF, the .DLL version.  The price is very reasonable ... $60 / US for a royalty free license for a single application, or $260 / US for a royalty free for an unlimited number of licenses ( one developer of course ).  The support is fast, pleasant, and this is a product well worth supporting.\n\nIf you need any help implementing it, I\'d be happy to provide a copy of my changes to the rpreview.prg as I\'ve modified it.  Just send me an email to <!-- e --><a href=\"mailto:timstone@masterlinksoftware.com\">timstone@masterlinksoftware.com</a><!-- e --> and I\'ll send it by reply.  I will send only the added function(s) and notes on how to implement them into your version of rpreview !\n\nDo check this out.  This is a nice person doing a good job ! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3vkssa8g',1,0,'',34,0,0),(21036,4758,3,15,0,'203.73.50.200',1162260695,1,0,1,1,1,0,'','Crystal Reports problem?','Hello \n\nI test Crystal Reports preview report and print report OK.\nBut I run print report( not preview ) not work and get some\nError message.\n\nAnd someone any idea or solution?\n\nRegards,\n\nRichard','',0,'AIA=','2b4d72x3',1,0,'',15,0,0),(21037,4757,3,239,0,'219.137.195.112',1162261031,1,0,1,1,1,0,'','','Support VRD /Visual report ?\n\nThanks !\n\nShuming Wang','',0,'AIA=','31kztzmy',1,0,'',239,0,0),(21038,4755,3,239,0,'219.137.195.112',1162261353,1,0,1,1,1,0,'','','[x]harbour+fwh+tmysql+mysql  works geate!\nOnly need tmysql.prg,mysql.c,libmysql.lib ( import from libmysql.dll from mysql)  link to your exe.\nAt runtime , only need a libmysql.dll .\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/tmysql.prg\">http://www.xtech.com.cn/down/tmysql.prg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sample1.prg\">http://www.xtech.com.cn/down/sample1.prg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sample2.prg\">http://www.xtech.com.cn/down/sample2.prg</a><!-- m -->\n\nRegards!\n\nShuming Wang','',0,'','30povtwk',1,0,'',239,0,0),(21039,4755,3,98,0,'70.71.111.92',1162261899,1,0,1,1,1,1,'','','Shuming:\n\n[quote=&quot;ShumingWang&quot;:1yeuhd62][x]harbour+fwh+tmysql+mysql  works geate!\n[/quote:1yeuhd62]\n\nI think Doug is currently using ADS, so he want to know how to use Advantage Internet Server to extend his current system.  I\'ve only used\nRemote Server so maybe someone that has use AIS can chime in as of how to use it, even a sample.','',0,'gA==','1yeuhd62',1,0,'',98,0,0),(21040,4755,3,138,0,'189.170.15.203',1162270686,1,0,1,1,1,1,'','','That\'s my area of expertise:\n\nAIS (Advantage Internet Server) is a little complicate to understand but it works the way you want, what you need is:\n\n1) a Data dictionary to validate the remote users (See the ARC manual to do this), you have to setup new users, and your tables within the same dictionary, you have also to enable internet access to both, dictionary and users.\n\n2) In the advantage configuration utility you have to assign a port for the internet server and a compresion of the data, do so in your server.\n\n3) You have to open and forward the same port established in the previous step in your router to your internal server.\n\n4) In your code, you have to set the server type to 7, this way the same application will run in your LAN or in internet, depending of the first available server (AdsSetServerType(7)).\n\n5) In your code, you have to connect to the remote server using the AdsConnect60() function,  passing this parameters:\n\nAdsConnect60(\"\\\\server\\share\\folder\\dictionary.add\",7,\"user\",\"password\")\n\nplease notice that you have to connect to the dictionary using the UNC, thi s UNC will be solved in the next step.\n\n6) In you code, remove the reference to the path when opening databases, once you have registered the table in the dictionary, you not longer need the path to open.\n\n7 ) How does ADS knows where is the server, or who ADS knows that the server is running over internet ?, very easy, ADS uses a configuration file called ADS.INI that must exist in the same directory where the AXCWS32.DLL is, this ADS.INI file looks like this\n\n[server]\nINTERNET_IP= 200.67.37.111\nINTERNET_PORT=whatever.\n\nthe entry \"server\" is where the ADS must look for the public IP, so any reference in your code inthe URL for \\\\server will point to the internet server.\n\nExample:\n\nIn you code:\n\nAdsConnect60(\"\\\\server\\cursos\\adsdemo\\stc\\dic.add\",7,\"demo\",\"demo\")\n\nIn the ADS.INI\n\n[googleserver]\nINTERNET_IP=google.d2g.com\nINTERNET_PORT=2000\n\nPlease check samples of AIS\n\nDon\'t hesitate on contactme to my private mail if you want further information.','',0,'','3hufm4xs',1,0,'',138,0,0),(21041,4756,6,138,0,'189.170.15.203',1162270839,1,0,1,1,1,1,'','','Ni FiveWin ni FWH funcionan rapido con redes inalambricas, a menos que utilices una herraienta cliente servidor como ADS, o algun SQL.','',0,'','ca2u58bl',1,0,'',138,0,0),(21042,4753,6,138,0,'189.170.15.203',1162271187,1,0,1,1,1,1,'','','no me hagas mucho caso, pero creo que tendiras que volver a generar la libreria del WBrowse de Hernan con la nueva version de FW','',0,'','17seh8c7',1,0,'',138,0,0),(21043,4739,3,707,0,'222.124.20.50',1162276526,1,0,1,1,1,0,'','','Thank\'s Enrico,\n\nbut the BMP size must fixed with window size.\nwhen it not fixed the brush makes tiles on window surfaces.\n\n\nBest Regard\nAreang','',0,'','1a51wdbi',1,0,'',707,0,0),(21044,4759,3,28,0,'213.27.201.254',1162281853,1,0,1,1,1,0,'','Francisco Gamboa','Please, Francisco, you establishes contact urgently with me \n\n<!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->\n\nthank you','',0,'','2is4kgtn',1,0,'',28,0,0),(21045,4760,6,28,0,'213.27.201.254',1162281961,1,0,1,1,1,0,'','Francisco Gamboa','Por favor, Francisco, establece contacto conmigo a cualquiera de estas dos direcciones:\n\n<!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e --> o\n<!-- e --><a href=\"mailto:paco@canalfive.com\">paco@canalfive.com</a><!-- e -->\n\n\nGracias','',0,'','2j09y57i',1,0,'',28,0,0),(21046,4736,6,2,0,'87.218.146.110',1162288539,1,0,1,1,1,1,'','','Ralph,\n\n&gt; A proposito, como puedo saber las dimensiones de un archivo jpg ?\n\nUna vez tienes creado el objeto oImage:\n\noImage:nWidth()\noImage:nHeight()','',0,'','1g5ko5kf',1,0,'',2,0,0),(21047,78,6,2,0,'87.218.146.110',1162288649,1,0,1,1,1,1,'','','Manuel,\n\nEn vez de \n\nDEFINE BITMAP oBmp FILENAME \"FOTO.BMP\"\n\nusa\n\noBmp = TImage():Define( , \"FOTO.JPG\" )\n\nel resto del código sigue igual','',0,'','31sdf31t',1,0,'',2,0,0),(21048,4751,2,2,0,'87.218.146.110',1162289136,1,0,1,1,1,1,'','','Rene,\n\nFW termina automaticamente la aplicación, revisa samples\\tutor02.prg. \n\nEs la forma correcta de terminar una aplicación, no hay que llamar a QUIT ni a nada más.','',0,'','24rwitmj',1,0,'',2,0,0),(21049,4761,20,837,0,'81.208.83.249',1162293026,1,0,1,1,1,1,'','Ricompilare le librerie FWH','In fase di esecuzione di EXE non vengono visualizzate le icone.\n\nMi è stato detto di ricompilare le librerie FWH, cosa che è stata fatta (è stata ricompilata la libreria \\FWH\\LIB\\fivehx.lib) ma il problema persiste.\n\nQualcuno sà darmi una mano ed al limite fornirmi le istruzioni ed i file .BAT per ricompilarle.\n\nGrazie, Andrea.','',0,'','2hxd6m1w',1,0,'',837,0,0),(21050,4761,20,6,0,'87.11.229.85',1162294156,1,0,1,1,1,1,'','Re: Ricompilare le librerie FWH','[quote=&quot;aerrigo&quot;:26wuuo0n]In fase di esecuzione di EXE non vengono visualizzate le icone.[/quote:26wuuo0n]\n\nSpiegati meglio, che intendi dire? Magari con due righe di PRG compilabile che mostrino il problema sarebbe più facile aiutarti.\n\nEMG','',0,'gA==','26wuuo0n',1,0,'',6,0,0),(21051,4762,1,161,0,'213.119.247.80',1162294159,1,0,1,1,1,0,'','Create directory with long-name','Hi,\n\nIs there a function available to create directory\'s with more than 8 characters?\n\nThanks,\nMarc','',0,'gA==','1oci0z2p',1,0,'',161,0,0),(21052,4762,1,6,0,'87.11.229.85',1162294256,1,0,1,1,1,1,'','Re: Create directory with long-name','[code:2d4b1hew]DLL32 FUNCTION CREATEDIRECTORY&#40; cPathName AS LPSTR, nAttrib AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;CreateDirectoryA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:2d4b1hew]\n\nEMG','',0,'AIA=','2d4b1hew',1,0,'',6,0,0),(21053,4761,20,837,0,'81.208.83.249',1162294896,1,0,1,1,1,1,'','','PROCEDURE main()\n  \nLOCAL oBar\n\n	SET DATE british\n	SET EPOCH TO 1940\n	SET DATE FORMAT \"dd/mm/yyyy\"\n	SET DELETED on\n	SET DECIMAL TO 2\n\n	DEFINE WINDOW oWnd	;\n                TITLE \"Test\"		;\n	ICON \"geoage\"		;\n\n	MENU Buildmenu()\n\n                SET MESSAGE OF oWnd TO \"\"     	;\n                TIME                             	;\n                DATE                             	;\n                KEYBOARD\n\n\n       oMsg:=oWnd:oMsgBar\n   \n       DEFINE BUTTONBAR oBar OF oWnd 3DLOOK   ;\n       SIZE 46,46\n\n       DEFINE BUTTON NAME \"UTENTI\" OF oBar TOOLTIP \"Utenti\" ;\n       NOBORDER                         ;\n       ACTION Utenti()\n\n       DEFINE BUTTON NAME \"AZIENDE\" OF oBar TOOLTIP \"Prova\" ;\n       NOBORDER                         ;\n       ACTION nil\n	  \n       DEFINE BUTTON NAME \"COMUNI\" OF oBar TOOLTIP \"Prova2\" ;\n       NOBORDER                         ;\n       ACTION nil\n\n       DEFINE BUTTON NAME \"ANAZIE\" OF oBar TOOLTIP \"Prova3\" ;\n       NOBORDER                         ;\n       ACTION nil\n\n       DEFINE BUTTON NAME \"uscita\"   OF oBar TOOLTIP \"Termina il programma\" ;\n      NOBORDER                         ;\n      GROUP                            ;\n      ACTION oWnd:End()\n\n      ACTIVATE WINDOW oWnd MAXIMIZED	 VALID If( MsgYesNo( \"Sei sicuro di voler chiudere Test ?\",\"Avvertenza\"), .T., .F. )	;\n		ON PAINT ( FillBlue( oWnd ), Sfondo( hDc, oWnd ) )\n	\nRETURN\n\n----EOF MAIN.PRG\n\nIl problema è che il codice sopra riportato punta ad un .RES esterno e compilato su un PC, le icone si vedono, su un\'altra macchina quando si clicca sull\'icona Utenti viene restituito il seguente errore :\n\n\nApplication\n===========\n   Path and name: G:\\FWH\\XXXX\\p.exe (32 bits)\n   Size: 1,510,400 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 31/10/2006, 12:36:37\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: UTENTI\n\nStack Calls\n===========\n   Called from CREATEDLGERROR(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from UTENTI(50)\n   Called from (b)MAIN(38)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TBTNBMP:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(61)\n\nIl programma UTENTI.PRG è indicato di seguito :\n\n#include \"fivewin.ch\"\n\nFunction Utenti()\n   LOCAL oDlg,oLbx\n   LOCAL cLbx,nRec,lCanc\n   \n   USE UTENTI NEW	\n   \n   INDEX ON UTENTI-&gt;UTE_DES TO UTENTI\n   \n   DEFINE DIALOG oDlg RESOURCE \"UTENTI\" TITLE \"Utenti\"\n\n   oDlg:lHelpIcon := .f.\n   lCanc := .F.\n   nRec := Lastrec()\n   \n\n   REDEFINE LISTBOX oLbx var cLbx	                                        ;\n   FIELDS UTENTI-&gt;UTE_COD,UTENTI-&gt;UTE_DES,UTENTI-&gt;UTE_PWD,UTENTI-&gt;UTE_AZI  ;\n   HEADERS    \"UTE_COD\", \"UTE_DES\",\"UTE_PWD\",\"UTE_AZI\"                      ;\n   FIELDSIZES 80, 150,100,10                                                  ;\n   ID 101 OF oDlg   \n         \n   oLbx:aJustify = { .f., .f.,.f.,.f.}\n   oLbx:lFocused  := .T.\n   \n   REDEFINE  BUTTON  ID 201 OF oDlg         ;      \n   ACTION NuovoUtente(oLbx)\n   \n   REDEFINE  BUTTON  ID 202 OF oDlg         ;      \n   ACTION SchedaUtenti(oLbx)\n   \n   REDEFINE  BUTTON  ID 203 OF oDlg         ;      \n   ACTION CercaUtent( oLbx )\n   \n   REDEFINE  BUTTON  ID 204 OF oDlg         ;      \n     WHEN nRec &gt; 0													                   ;\n            ACTION ( If( MsgYesNo(\"Elimino l\'utente in evidenza?\", \"Avvertenza!\"), ;\n                      ( UTENTI-&gt;( Elimina(oLbx) ), 			;\n                        lCanc:=.T.),    						;                      \n                        oLbx:SetFocus() ))    \n   \n   REDEFINE  BUTTON  ID 205 OF oDlg         ;      \n   ACTION oDlg:End()\n\n   \n    ACTIVATE DIALOG oDlg CENTER \n	\n   \n   CLOSE UTENTI\n   \nReturn Nil\nFunction SchedaUtenti(oLbx)\n\n\nCiao, Andrea.','',0,'AIA=','33dltloo',1,0,'',837,0,0),(21054,4692,17,838,0,'80.34.222.112',1162295281,1,0,1,1,1,0,'','','Perdona Carlos\n\nCompilo tu clase con verce, y me da un error, ¿Donde puedo encontrar Obj2hb.ch? ya que de ahí me viene el error\n\nUn saludo\n\nJose Luis','',0,'AIA=','38wvng6s',1,0,'',838,0,0),(21055,4761,20,6,0,'87.11.229.85',1162295447,1,0,1,1,1,1,'','','[quote=&quot;aerrigo&quot;:11u8qv8k]Il problema è che il codice sopra riportato punta ad un .RES esterno[/quote:11u8qv8k]\n\nUn .RES non può essere esterno, deve per forza essere inglobato nell\'EXE. Solo una DLL può essere esterna. Controlla che nell\'EXE ci siano le risorse aprendolo con il Resource Workshop o altro editor di risorse.\n\nEMG','',0,'gA==','11u8qv8k',1,0,'',6,0,0),(21056,4761,20,837,0,'81.208.83.249',1162295872,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2tg82834][quote=&quot;aerrigo&quot;:2tg82834]Il problema è che il codice sopra riportato punta ad un .RES esterno[/quote:2tg82834]\n\nUn .RES non può essere esterno, deve per forza essere inglobato nell\'EXE. Solo una DLL può essere esterna. Controlla che nell\'EXE ci siano le risorse aprendolo con il Resource Workshop o altro editor di risorse.\n\nEMG[/quote:2tg82834]\n\nSi scusa, le risorse sono nel .EXE, ed in effetti aprendo i 2 .EXE in quello che non visualizza le icone, non c\'è praticamente niente.\n\nSai dirmi cosa posso controllare poichè \"a prima vista\" l\'ambiente è identico, solo che su un PC c\'è Win XP e sull\'altro Win 2000 PRO, l\'unica differenza mi sembra questa.\n\nCiao, Andrea.','',0,'gA==','2tg82834',1,0,'',837,0,0),(21057,4761,20,6,0,'87.11.229.85',1162296056,1,0,1,1,1,1,'','','La versione di Windows non fa alcuna differenza. Devi controllare il batch di compilazione e in particolare il punto in cui il linker inserisce le risorse nell\'EXE.\n\nEMG','',0,'gA==','5kcixx3a',1,0,'',6,0,0),(21058,4763,2,542,0,'83.61.39.51',1162297970,1,0,1,1,1,0,'','mandar un email masivo','Hola amigos:\n\nNecesito mandar un email que lo que contiene son dos imagenes JPG y lo tengo que mandar a 161000 direcciones.\n\nMe podeis ayudar\n\nGracias\n\nCarlos','',0,'gA==','29twhnwb',1,0,'',542,0,0),(21059,4761,20,837,0,'81.208.83.249',1162298365,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:c88gr49k]La versione di Windows non fa alcuna differenza. Devi controllare il batch di compilazione e in particolare il punto in cui il linker inserisce le risorse nell\'EXE.\n\nEMG[/quote:c88gr49k]\n\n[b:c88gr49k]Il file per linkare è questo :[/b:c88gr49k]\n@ECHO OFF\nCLS\n\nrem set paths\n\nIF \"%BOCC%\"==\"\" SET BOCC=d:\\Fwh\\bcc55\nIF \"%ROOT%\"==\"\" SET ROOT=d:\\Fwh\n\nIF exist %1.exe del %1.exe\n\nREM linka\n\n%BOCC%\\bin\\ilink32 -Gn -Tpe -aa -L%BOCC%\\lib; @Flink32.bc\n\n[b:c88gr49k]e il Flink32.bc è questo :[/b:c88gr49k]\n\nc0w32.obj +\n@ListObjs.rsp, +\np.exe, +\np.map, +\n@ListLibs.rsp, \np.res\n\nFra l\'altro sono gli stessi che stanno sul\'altro PC.\n\nCiao, Andrea.','',0,'wA==','c88gr49k',1,0,'',837,0,0),(21060,4764,11,2,0,'87.218.146.138',1162298761,1,0,1,1,1,1,'','FiveLinux on Ubuntu','In order to run FiveLinux on Ubuntu, you need to install these packages:\n\nsudo apt-get install libgtk2.0-dev\nsudo apt-get install gcc\nsudo apt-get install libncurses5-dev\nsudo apt-get install libgpmg1-dev\nsudo apt-get install libgnomeprintui2.2-dev\nsudo apt-get install glade\nsudo apt-get install libglade2-dev\nsudo apt-get install unixODBC-dev\n\nFor MySQL:\nsudo apt-get install libmysqlclient-dev','26d3d74149d0fb3b514ba10db6bc0e8a',0,'','1heczbox',1,1185954553,'',2,3,0),(21061,4761,20,6,0,'87.11.229.85',1162298970,1,0,1,1,1,1,'','','La sintassi non mi sembra corretta (non ci vuole il punto e virgola dopo il percorso delle librerie e tra la lista delle librerie e il RES c\'è il parametro opzionale deffile) però se dici che sull\'altro PC funziona...\n\nMagari prova a portare tutto (ma proprio tutto) l\'ambiente da un PC all\'altro e vedi se funziona.\n\nAltro non mi viene in mente.\n\nEMG','',0,'wA==','105u5wtt',1,0,'',6,0,0),(21062,4764,11,2,0,'87.218.146.138',1162299275,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1rngbkdz][img:1rngbkdz]http&#58;//img505&#46;imageshack&#46;us/img505/1800/ubuntuzz1&#46;jpg[/img:1rngbkdz][/url:1rngbkdz]','',0,'GA==','1rngbkdz',1,0,'',2,0,0),(21063,4765,12,2,0,'87.218.146.138',1162299407,1,0,1,1,1,1,'','FiveLinux en Ubuntu','Para usar FiveLinux en Ubuntu hay que instalar estos paquetes:\n\nsudo apt-get install libgtk2.0-dev\nsudo apt-get install gcc\nsudo apt-get install libncurses5-dev\nsudo apt-get install libgpmg1-dev\nsudo apt-get install libgnomeprintui2.2-dev\nsudo apt-get install libglade2-dev \nsudo apt-get install glade\n\nPara MySQL:\nsudo apt-get install libmysqlclient-dev','8ee902e8e8a594bf749aeccfb906e7b3',0,'','1emsnh51',1,1163890260,'',2,1,0),(21064,4765,12,2,0,'87.218.146.138',1162299453,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1lweu2so][img:1lweu2so]http&#58;//img505&#46;imageshack&#46;us/img505/1800/ubuntuzz1&#46;jpg[/img:1lweu2so][/url:1lweu2so]','',0,'GA==','1lweu2so',1,0,'',2,0,0),(21065,4761,20,837,0,'81.208.83.249',1162299675,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:p66908pb]La sintassi non mi sembra corretta (non ci vuole il punto e virgola dopo il percorso delle librerie e tra la lista delle librerie e il RES c\'è il parametro opzionale deffile) però se dici che sull\'altro PC funziona...\n\nMagari prova a portare tutto (ma proprio tutto) l\'ambiente da un PC all\'altro e vedi se funziona.\n\nAltro non mi viene in mente.\n\nEMG[/quote:p66908pb]\n\nOra nel file L.bat è così :\n%BOCC%\\bin\\ilink32 -Gn -Tpe -aa -L%BOCC%\\lib @Flink32.bc\n\nA quale parametro opzionale ti riferisci ?\n\nCiao, Andrea.','',0,'gA==','p66908pb',1,0,'',837,0,0),(21066,4766,3,335,0,'68.193.88.53',1162299808,1,0,1,1,1,0,'','Possible TReport problem with ::NeedNewPage()','Antonio,\n\nI had a problem with occasionally getting a blank page printed out between other normal pages. So I took a close look at the way ::NeedNewPage() is implemented in TReport and found that ::nStdLineHeight gets added twice in immediate succession to ::nRow, and this seemed to be the source of my problem.  Apparently it should have only been added once.  \n\nHere is how it happens...\n\n1. In ::EndLine()...\n\n   DEFAULT nHeight := ::nStdLineHeight\n\n   ::nRow  += nHeight\n\n   IF ::NeedNewPage()\n       ::EndPage()\n   ENDIF\n\n2. In the definition of ::NeedNewPage()...\n\nMETHOD NeedNewPage INLINE ( ::nRow + ::nStdLineHeight &gt;= ::nBottomRow )\n\nIsn\'t the addition of ::nStdLineHeight in this method an unnecessary duplication of the addition of this same value immediately prior in ::EndLine() ?\n\nAdding this value a second time sometimes pushes the value of ::nRow to a number greater than ::nBottomRow, even though the bottom of the page has actually not quite yet been reached, thereby forcing an ::EndPage() before it is actually needed.\n\n- Roger','',0,'gA==','3ta406vc',1,0,'',335,0,0),(21067,4735,3,844,0,'212.200.100.79',1162301287,1,0,1,1,1,0,'','','Hi Antonio,\nI used those libs as you suggested but I still have problems. I tried compiling you testsql1.prg.\nHere is xbp file:\nCINI = \nC_OUTPUTFOLDER = \nDEFFILE = \nINCLUDEFOLDERS = \nLAUTORUN = \nLDEBUG = .F.\nLGUI = .T.\nLIBFOLDERS = \nLMT = .F.\nLPRG_CLASSICDEBUG = .F.\nLPRG_DEBUG = .F.\nLUSEDLL = .F.\nMAPFILE = \nMYC_FLAGS =  \nMYDEFINES = \nMYLINK_FLAGS = \nMYPRG_FLAGS = \nMYRC_FLAGS = \nMYSLY_FLAGS = \nOUTPUTFOLDER = \nPRG_OUTPUTFOLDER = \nRC_OUTPUTFOLDER = \nRUNARGUMENTS = \nSLY_OUTPUTFOLDER = \nSTARTIN = \nTARGETFOLDER = \n\n[TESTSQL1.PRG]\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n[TEST.RC]\nMYDEFINES = \nMYRC_FLAGS = \n\n[fivehmx.lib]\n\n[fivehcm.lib]\n\nEnd log of the error it produces:\nType: C &gt;&gt;&gt;xlink.exe -NOEXPOBJ -MAP -FORCE:MULTIPLE -NOIMPLIB -subsystem:windows -UNMANGLE -LIBPATH:\"d:\\xhb\\lib\" -LIBPATH:\"d:\\xhb\\c_lib\" -LIBPATH:\"d:\\xhb\\c_lib\\win\"  -LIBPATH:\"D:\\fw\\lib\" \"TESTSQL1.obj\" \"TEST.res\" fivehmx.lib fivehcm.lib OptG.lib sql.lib ace32.lib xhb.lib dbf.lib ntx.lib cdx.lib rmdbfcdx.lib activex.lib crt.lib kernel32.lib user32.lib winspool.lib ole32.lib oleaut32.lib odbc32.lib odbccp32.lib uuid.lib wsock32.lib ws2_32.lib wininet.lib advapi32.lib shlwapi.lib comctl32.lib comdlg32.lib gdi32.lib shell32.lib winmm.lib lz32.lib Netapi32.lib -out:\"testsql1.exe\"&lt;&lt;&lt;\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_INIODBC32\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_ENDODBC32\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN__TRDD\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_RDDSETFIELDEXTENT\'.\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_RDDADDFIELD\'.\n\nxLINK: fatal error: 5 unresolved external(s).\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: testsql1.exe&lt;&lt;&lt;','',0,'','2trk314a',1,0,'',844,0,0),(21068,4692,17,92,0,'213.96.45.9',1162302055,1,0,1,1,1,0,'','','[quote=&quot;JoseLuis&quot;:2efrlaqe]Perdona Carlos\n\nCompilo tu clase con verce, y me da un error, ¿Donde puedo encontrar Obj2hb.ch? ya que de ahí me viene el error\n\nUn saludo\n\nJose Luis[/quote:2efrlaqe]\n\nCreo que en el include de Harbour.\n\nSaludos y suerte\nCarlos G.','',0,'gA==','2efrlaqe',1,0,'',92,0,0),(21069,4762,1,161,0,'213.119.247.63',1162302835,1,0,1,1,1,0,'','','Thanks Enrico, it\'s working fine!!!\n\nMarc','',0,'gA==','22xiu6jd',1,0,'',161,0,0),(21070,4767,6,644,0,'201.253.242.172',1162306045,1,0,1,1,1,0,'','Browse desde recursos con pelles','Estoy usando pelles para editar recursos y estoy usando un archivo .rc creado con el workshop. no tengo mayores problemas pero cuando quiero poner un wbrowse de hernán no me muestra las barras de scroll. No tengo manera de ponerlas desde recursos y tampoco los toma desde codigo. Alguien tiene idea ??? Muchas gracias por todo','',0,'gA==','3sahin6u',1,0,'',644,0,0),(21071,4768,3,190,0,'202.65.134.36',1162306307,1,0,1,1,1,0,'','Printing of Images on Printers having different resolutions','Hi all\n\nCan anybody guide me how to print the images exactly at the desired\nrow, col co-ordinates (whether in pixels or Cm) on different printers with different resolutions.\n\nWith  the following code I got this out using different printers with different \nprinter resolutions:\n\n[url=http&#58;//img290&#46;imageshack&#46;us/my&#46;php?image=testrepbu0&#46;png:36whm9wh][img:36whm9wh]http&#58;//img290&#46;imageshack&#46;us/img290/7191/testrepbu0&#46;th&#46;png[/img:36whm9wh][/url:36whm9wh]\n\n[code:36whm9wh]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define PAD_LEFT      0\n#define PAD_RIGHT     1\n#define PAD_CENTER    2\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oPrn, oPen, oFont, oFont1, oFont2, oFont3\nLOCAL pno &#58;= 1, nLs &#58;= 0, n, nLinI, nColI, nLinF, nColF,nColL \nLOCAL aRowCol &#58;= &#123;&#125;, aData &#58;= &#123;&#125;\n\n******\n\nFOR n = 1 TO 90\n    AADD&#40;aData,&#123;&quot;1234&quot;,&quot;12345&quot;,REPLI&#40;&quot;A&quot;,20&#41;,REPLI&#40;&quot;B&quot;,20&#41;, &quot;C&quot;, REPLI&#40;&quot;D&quot;,8&#41;,REPLI&#40;&quot;E&quot;,8&#41;, &quot;99/99/9999&quot;, &quot;99/99/9999&quot;&#125;&#41;\nNEXT\n\nPRINT oPrn NAME &quot;Testing Windows Printing&quot; PREVIEW FROM USER\n\n      DEFINE PEN  oPen   WIDTH  2 OF oPrn\n      DEFINE FONT oFont  NAME &quot;Arial Bold&quot;   SIZE 0, -16 OF oPrn\n      DEFINE FONT oFont1 NAME &quot;Arial Italic&quot; SIZE 0, - 8 OF oPrn \n      DEFINE FONT oFont2 NAME &quot;Arial Bold&quot;   SIZE 0, - 9 OF oPrn\n      DEFINE FONT oFont3 NAME &quot;Arial&quot;        SIZE 0, - 8 OF oPrn\n\n      oPrn&#58;SetPage&#40;9&#41;    \n      oPrn&#58;SetPortrait&#40;&#41; \n\n      PAGE\n  \n         nLinI &#58;= 03&#46;75\n         nLinF &#58;= 27&#46;25\n\n         IF &#46;NOT&#46; OS_IsWinXP&#40;&#41;\n            nColI &#58;= 01&#46;00\n            nColF &#58;= 20&#46;75\n            nColL &#58;= 00&#46;20 \n         ELSE\n            nColI &#58;= 00&#46;70\n            nColF &#58;= 20&#46;25\n            nColL &#58;= 00&#46;45 \n         ENDIF\n         \n         oPrn&#58;Cmtr2Pix&#40;@nLinI, @nColI&#41;\n         oPrn&#58;cmtr2Pix&#40;@nLinF, @nColF&#41;\n\n         aRowCol &#58;= oPrn&#58;Cmtr2Pix&#40;1,1&#41;\n         \n         oPrn&#58;SayBitmap&#40;aRowCol&#91;1&#93;, aRowCol&#91;2&#93;,&quot;c&#58;\\fwh\\bitmaps\\fivewin&#46;bmp&quot;&#41; //, 131, 168&#41;\n\n         oPrn&#58;CmSay&#40;1&#46;00, 10&#46;50-nColL, &quot;NAME OF THE COMPANY&quot;, oFont,,CLR_BLACK,,PAD_CENTER &#41;\n         oPrn&#58;CmSay&#40;1&#46;55, 10&#46;50-nColL, &quot;This is the place where address of the company is printed&quot;, oFont1,,CLR_BLACK,,PAD_CENTER &#41;\n         oPrn&#58;CmSay&#40;2&#46;15, 10&#46;50-nColL, &quot;THIS IS THE HEADING OF REPORT&quot;, oFont2,,CLR_BLACK,,PAD_CENTER &#41;\n\n         oPrn&#58;Box&#40;nLinI, nColI, nLinF, nColF, oPen &#41;\n         oPrn&#58;Box&#40;nLinI-&#40;oFont2&#58;nHeight&#40;&#41;*2&#46;75&#41;, nColI, nLinI+&#40;oFont2&#58;nHeight&#40;&#41;*&#46;75&#41;, nColF, oPen  &#41;\n\n         oPrn&#58;CmSay&#40;3&#46;05,01&#46;35-nColL,&quot;SL&#46;&quot;,  oFont2&#41;\n         oPrn&#58;CmSay&#40;3&#46;05,02&#46;15-nColL,&quot;AAAA&quot;, oFont2&#41;\n         oPrn&#58;CmSay&#40;3&#46;05,03&#46;25-nColL,&quot;BBBB&quot;, oFont2&#41;\n         oPrn&#58;CmSay&#40;3&#46;05,04&#46;55-nColL,&quot;CCCCCCCCCCCCCCCCC&quot;, oFont2&#41;   \n         oPrn&#58;CmSay&#40;3&#46;05,08&#46;60-nColL,&quot;DDDDDDDDDDDDD&quot;, oFont2&#41;   \n         oPrn&#58;CmSay&#40;3&#46;05,12&#46;70-nColL,&quot;EEE&quot;,     oFont2&#41;   \n         oPrn&#58;CmSay&#40;3&#46;05,13&#46;60-nColL,&quot;FFFFFFF&quot;, oFont2&#41;   \n         oPrn&#58;CmSay&#40;3&#46;05,15&#46;70-nColL,&quot;GGGGGGG&quot;, oFont2&#41;   \n         oPrn&#58;CmSay&#40;3&#46;05,17&#46;60-nColL,&quot;HHHHHH&quot;,  oFont2&#41;   \n         oPrn&#58;CmSay&#40;3&#46;05,19&#46;25-nColL,&quot;KKKKKK&quot;,  oFont2&#41;   \n \n         oPrn&#58;CmSay&#40;3&#46;50,01&#46;35-nColL,&quot;NO&#46;&quot;, oFont2&#41;\n         oPrn&#58;CmSay&#40;3&#46;50,02&#46;15-nColL,&quot;AAA&quot;, oFont2&#41;\n         oPrn&#58;CmSay&#40;3&#46;50,03&#46;25-nColL,&quot;BBB&quot;, oFont2&#41;\n\n         FOR n = 1 TO LEN&#40;aData&#41;\n             \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,01&#46;35-nColL, STR&#40;n,3,0&#41;, oFont3 &#41;\n             oPrn&#58;CmSay&#40;4&#46;50+nLs,02&#46;15-nColL, aData&#91;n,1&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,03&#46;25-nColL, aData&#91;n,2&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,04&#46;55-nColL, aData&#91;n,3&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,08&#46;60-nColL, aData&#91;n,4&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,12&#46;85-nColL, aData&#91;n,5&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,13&#46;50-nColL, aData&#91;n,6&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,15&#46;70-nColL, aData&#91;n,7&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,17&#46;60-nColL, aData&#91;n,8&#93;,oFont3&#41; \n             oPrn&#58;CmSay&#40;4&#46;50+nLs,19&#46;25-nColL, aData&#91;n,9&#93;,oFont3&#41; \n                  \n             nLs &#58;= nLs + &#46;50\n\n             IF nLs &gt; 22\n\n                oPrn&#58;CmSay&#40;27&#46;25,20&#46;90-nColL,&quot;Contd &#46;&#46; &quot;+LTRIM&#40;STR&#40;pno&#41;&#41;+&quot;/&quot;, oFont3,,CLR_BLACK,,PAD_RIGHT&#41; \n\n                ENDPAGE\n\n                PAGE\n\n                pno ++\n\n                oPrn&#58;CmSay&#40;1&#46;00, 10&#46;50-nColL, &quot;Page No&#46; &quot;+LTRIM&#40;STR&#40;pno&#41;&#41;, oFont2,,CLR_BLACK,,PAD_CENTER &#41;      \n                oPrn&#58;CmSay&#40;1&#46;80, 10&#46;50-nColL, &quot;THIS IS THE HEADING OF REPORT&quot;, oFont2,,CLR_BLACK,,PAD_CENTER &#41;\n                      \n                oPrn&#58;Box&#40;nLinI, nColI, nLinF, nColF, oPen &#41;\n                oPrn&#58;Box&#40;nLinI-&#40;oFont2&#58;nHeight&#40;&#41;*2&#46;75&#41;, nColI, nLinI+&#40;oFont2&#58;nHeight&#40;&#41;*&#46;75&#41;, nColF, oPen  &#41;\n\n                oPrn&#58;CmSay&#40;3&#46;05,01&#46;35-nColL,&quot;SL&#46;&quot;,   oFont2&#41;\n                oPrn&#58;CmSay&#40;3&#46;05,02&#46;15-nColL,&quot;AAAA&quot;,  oFont2&#41;\n                oPrn&#58;CmSay&#40;3&#46;05,03&#46;25-nColL,&quot;BBBB&quot;,  oFont2&#41;\n                oPrn&#58;CmSay&#40;3&#46;05,04&#46;55-nColL,&quot;CCCCCCCCCCCCCCCC&quot;, oFont2&#41;   \n                oPrn&#58;CmSay&#40;3&#46;05,08&#46;60-nColL,&quot;DDDDDDDDDDDDD&quot;, oFont2&#41;   \n                oPrn&#58;CmSay&#40;3&#46;05,12&#46;70-nColL,&quot;EEE&quot;,     oFont2&#41;   \n                oPrn&#58;CmSay&#40;3&#46;05,13&#46;60-nColL,&quot;FFFFFFF&quot;, oFont2&#41;   \n                oPrn&#58;CmSay&#40;3&#46;05,15&#46;70-nColL,&quot;GGGGGGG&quot;, oFont2&#41;   \n                oPrn&#58;CmSay&#40;3&#46;05,17&#46;60-nColL,&quot;HHHHHH&quot;,  oFont2&#41;   \n                oPrn&#58;CmSay&#40;3&#46;05,19&#46;25-nColL,&quot;KKKKKK&quot;,  oFont2&#41;   \n \n                oPrn&#58;CmSay&#40;3&#46;50,01&#46;35-nColL,&quot;NO&#46;&quot;, oFont2&#41;\n                oPrn&#58;CmSay&#40;3&#46;50,02&#46;15-nColL,&quot;AAA&quot;, oFont2&#41;\n                oPrn&#58;CmSay&#40;3&#46;50,03&#46;25-nColL,&quot;BBB&quot;, oFont2&#41;\n\n                nLs &#58;= 0\n\n              ENDIF\n\n         NEXT\n\n      ENDPAGE\n\nENDPRINT\n\nRETURN nil\n\n[/code:36whm9wh]\n\nThanks in advance\n\n- Ramesh Babu P','',0,'GIA=','36whm9wh',1,0,'',190,0,0),(21072,4738,6,725,0,'189.145.28.240',1162308926,1,0,1,1,1,1,'','','ya encontre la solución a la falla de memoria, el problema es que al cerrar la aplicación con el valid  enviaba una instrucion quit que sustitui por un ownd:end() y termina adecuadamente gracias, supongo que son las diferencias entre los 16 y 32 bits <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'GIA=','1afgd0s9',1,0,'',725,0,0),(21073,4769,3,289,0,'82.167.38.73',1162310589,1,0,1,1,1,0,'','help me in function SaveToBmp','TO ALL I want the use function SaveToBmp with \n# define NOTSRCCOPY\nregards,hathal','',0,'GIA=','35rptfwi',1,0,'',289,0,0),(21074,4692,17,838,0,'80.59.225.15',1162310743,1,0,1,1,1,0,'','','Pues no lo encuentro a pesar de haber buscado en versiones anteriores\n\nSi eres tan amable, me lo envias.\n\nUn saludo\n\nJose Luis','',0,'GIA=','1jk2zi6u',1,0,'',838,0,0),(21075,4692,17,217,0,'200.159.120.34',1162312790,1,0,1,1,1,0,'','','Puedes dejar alguno ejemplo de como usar la clase y donde puedo bajar blat.exe?\n\nSaludos de Brasil!\nMaurilio','',0,'GIA=','myaztu0q',1,1162559610,'',217,1,0),(21076,4768,3,138,0,'189.170.17.25',1162313044,1,0,1,1,1,1,'','','Your error is here:\n\n         oPrn:SayBitmap(aRowCol[1], aRowCol[2],\"c:\\fwh\\bitmaps\\fivewin.bmp\") //, 131, 168) \n\n4th and 5th parameter are the SIZE of the image, (131,168) you have to transform the size into centimeters (the same way you did with the coordinates of the position.)','',0,'','rsz3j77m',1,0,'',138,0,0),(21077,4757,3,171,0,'72.93.20.30',1162314381,1,0,1,1,1,0,'','','Tim,\n\nI agreed 100% with you.\n\nThis product is Excellent!!! and Adrian is nice and him answer quickly any question that someone could have about his product.\n\nRegards\n\n\n\nGeorge','',0,'','vwfcl55u',1,0,'',171,0,0),(21078,78,6,305,0,'190.40.18.25',1162315075,1,0,1,1,1,0,'','','Yo lo hago asi:\n[code:4f56myft]\n&#46;&#46;&#46;&#46;\n   ACTIVATE WINDOW oWndMain MAXIMIZED ;\n            ON INIT &#40; Showlogo&#40;oWndMain&#41; &#41;\n\n&#46;&#46;&#46;\n\nFunction ShowLogo&#40;oWnd&#41;\n    Local oBmp00, _nFil, _nCol\n    cFileFondo&#58;=&quot;mifondo&#46;jpg&quot;\n\n    _nFil &#58;= GetWndRect&#40;GetDesktopWindow&#40;&#41;&#41;&#91;3&#93;\n    _nCol &#58;= GetWndRect&#40;GetDesktopWindow&#40;&#41;&#41;&#91;4&#93;\n\n    If File&#40;cFileFondo&#41;\n        @ 0,0 Image oBmp00 FILENAME &quot;&quot; OF oWnd&#58;oWndClient ;\n                           SIZE _nCol,_nFil NOBORDER PIXEL\n        oBmp00&#58;LoadImage&#40;,cFileFondo&#41;\n        oBmp00&#58;refresh&#40;&#41;\n     Endif\n\nreturn nil\n[/code:4f56myft]\n\nespero te sirva\n\nRalph','',0,'AIA=','4f56myft',1,0,'',305,0,0),(21079,4757,3,137,0,'151.38.8.195',1162315324,1,0,1,1,1,0,'','','Bought!\n\nExcellent.\n\nRegards.','',0,'AIA=','34o0udcy',1,0,'',137,0,0),(21080,4766,3,6,0,'87.20.217.138',1162316182,1,0,1,1,1,1,'','Re: Possible TReport problem with ::NeedNewPage()','I agree. I always used\n\n[code:161i5806]METHOD NeedNewPage&#40;&#41; INLINE &#40; &#58;&#58;nRow &gt;= &#58;&#58;nBottomRow &#41;[/code:161i5806]\n\nin my customized TReport.\n\nEMG','',0,'AIA=','161i5806',1,0,'',6,0,0),(21081,4761,20,6,0,'87.20.217.138',1162316306,1,0,1,1,1,1,'','','deffile. Dalla documentazione:\n\n[quote:8zo2crn0]ILINK32 [@respfile][options] startup myobjs, [exe], [mapfile], [libraries], [deffile], [resfile][/quote:8zo2crn0]\n\nEMG','',0,'gA==','8zo2crn0',1,0,'',6,0,0),(21082,4761,20,837,0,'81.208.83.249',1162317067,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:suwn4qne]deffile. Dalla documentazione:\n\n[quote:suwn4qne]ILINK32 [@respfile][options] startup myobjs, [exe], [mapfile], [libraries], [deffile], [resfile][/quote:suwn4qne]\n\nEMG[/quote:suwn4qne]\n\nSi, scusa avrai notato che non sono una scheggia.\n\nMa da qualche parte non c\'è una documentazione di riferimento ?\n\nGrazie, Andrea.','',0,'gA==','suwn4qne',1,0,'',837,0,0),(21083,78,6,180,0,'83.34.25.93',1162317174,1,0,1,1,1,0,'','','Gracias Antonio. ¡¡Perfecto!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3lubwwcv',1,0,'',180,0,0),(21084,4768,3,303,0,'72.199.41.171',1162317584,1,0,1,1,1,0,'','','Ramesh,\n\nI find that often print drivers are inaccurate. They don\'t report the proper values for width, height, and x and y offsets (non-printable areas). So first I would check these.\n\noPrn:nXOffset\noPrn:nYOffset\n\nAlso check:\noPrn:nVertSize()\noPrn:nHorzSize()\noPrn:nVertRes()\noPrn:nHorzRes()\n\nTo see if they are accurate.\n\nJames','',0,'gA==','2uo8heyx',1,0,'',303,0,0),(21085,4761,20,6,0,'87.20.217.138',1162317915,1,0,1,1,1,1,'','','Sì, certo. E\' appunto da quella che ho tratto la sintassi che ti ho citato. La puoi scaricare dal sito della Borland. Oppure mi scrivi in privato e te la mando io.\n\nEMG','',0,'gA==','2uw4tmyb',1,0,'',6,0,0),(21086,4761,20,837,0,'81.208.83.249',1162318144,1,0,1,1,1,1,'','Compilazione Librerie','Caro Enrico,\n\nvolevo ringraziarti, ho risolto il problema.\n\nSinceramente non ho ancora capito come perchè ho fatto tante prove.\n\nAppena ne vengo a capo lo pubblico, così se qualcuno ne ha bisogno potrà trovarlo qui.\n\nGrazie ancora, Andrea.','',0,'gA==','23lensw9',1,0,'',837,0,0),(21089,4772,7,832,0,'201.122.21.224',1162319783,1,0,1,1,1,0,'','AYUDA URGENTE!!! INDICES NTX','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> HOLA A TODO COMO PUEDO FILTAR UNA DBF POR ENDICES EN FWPPC\n\n\nLO UNIC QUE TENGO ES LO SIGUIENTE:\n\nUSE (curdir()+\'\\BASES\\\'+\"CLIENTES.DBF\") NEW\n\nPERO YO NECESITO ALGO ASI\n\nUSE (curdir()+\'\\BASES\\\'+\"CLIENTES.DBF\") INDEX \"INDEX1.NTX\" NEW\n\nY AS VES COMO HAGO UN FILTRO\n\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\n   dbsetorder(1)\n   dbgotop()\n   IF dbseek(cart)\n      dbgoto(RecNo())\n      IF BASETMP-&gt;(RLOCK())\n         IF cCjaoPza = \'C\'   //cajas\n            BASETMP-&gt;cantidad +=(ncant*nuni) //sumamos la conversion de cajas a piezas\n         ELSE               //piezas\n            BASETMP-&gt;cantidad += ncant\n         ENDIF\n         BASETMP-&gt;TOTAL += ntotal\n         basetmp-&gt;(dbcommitall())\n         basetmp-&gt;(dbunlock())\n       ENDIF\nENDIF\n\nALGO DE ESTO PERO NO LO PUEDO HACER EN UN POCKET PC\n\nESPERO Y ALGUIEN ME PUEDA AYUDAR','',0,'CA==','2qox92uv',1,0,'',832,0,0),(21090,4753,6,114,0,'189.169.51.77',1162319855,1,0,1,1,1,0,'','','Gracias Antonio:\n\n   Incluí el codigo que me indicas y ya esta funcionando, Gracias!!!! \n\nSaludos !!!\n\nLCP Eduardo Borondón Muñiz','',0,'CA==','3cuc3f4s',1,0,'',114,0,0),(21091,4761,20,6,0,'87.20.217.138',1162320816,1,0,1,1,1,1,'','Re: Compilazione Librerie','Benissimo!\n\nEMG','',0,'CA==','7xw5mwet',1,0,'',6,0,0),(21092,4727,3,266,0,'210.186.100.131',1162322918,1,0,1,1,1,1,'','','Thanks. Can get Harbour version ?','',0,'CA==','3v1nlkdv',1,0,'',266,0,0),(21093,4727,3,6,0,'87.20.217.138',1162323110,1,0,1,1,1,1,'','','Here it is (please note that you need of hbole.lib):\n\n[code:na9iabtr]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExplorer &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;InternetExplorer&#46;Application&quot; &#41;\n\n    oExplorer&#58;Navigate2&#40; &quot;www&#46;whatismyip&#46;com&quot; &#41;\n\n    WHILE oExplorer&#58;ReadyState &lt;&gt; 4\n        HB_IDLESLEEP&#40; 1 &#41;\n    ENDDO\n\n    ? UPPER&#40; oExplorer&#58;Document&#58;Body&#58;InnerText &#41;\n\n    oExplorer&#58;Quit&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:na9iabtr]\n\nEMG','',0,'AIA=','na9iabtr',1,0,'',6,0,0),(21094,4773,6,104,0,'201.58.5.40',1162324271,1,0,1,1,1,0,'','Como Setar um objeto com uma font usando choosefont','Olá,\n\nComo faço para setar o objeto em foco, uma font que eu escolher usando a função choosefont() ?\n\nObrigado,\n\nRossine.','',0,'AIA=','127rx46m',1,0,'',104,0,0),(21095,4770,3,303,0,'72.199.41.171',1162325023,1,0,1,1,1,0,'','','Fernando,\n\nThis is very impressive and exciting! I have a couple of questions.\n\n1) I looked at two of the demos. Some of the bitmaps and all of the buttons are chopped off on the right side and bottom. Is this a design problem with the demo or a bug in the library? [I am running XP Pro with themes].\n\n2) Can we also use 32bit bitmaps for the application icon (the one that displays on the desktop and in Windows Explorer?\n\nReally nice work.\n\nJames','',0,'','3132n35c',1,0,'',303,0,0),(21096,4774,3,435,0,'200.155.199.119',1162328109,1,0,1,1,1,0,'','TOpenOffice para OPenOffice','Class TOO\n\nOnde posso encontrar a mais recente ?\n\nAri','',0,'','39at5ff9',1,0,'',435,0,0),(21097,4775,3,343,0,'24.173.70.29',1162330540,1,0,1,1,1,0,'','How to change browse view','I am using TSBrowse() and would like to be able to change the \"View\" without closing the window. The view includes cmfilter and columns  including the column order.\nMy thought is not to delete each column and add them back with the new information.\nI have tried to do \n\noBrw:destroy()\n// create new browse then\noWnd:SetControl( oBrw )\n\nThis works except the mouse does not work inside browse. The arrow keys work and the button bar works, it seems to be just a problem with the mouse.\n\nAny better ideas on changing \"Views\" like this?','',0,'','15dggyzt',1,0,'',343,0,0),(21098,4776,6,73,0,'200.66.32.97',1162332594,1,0,1,1,1,0,'','texcelscript','Necesito exportar una .dbf a excel, ya tengo la clase texcelscript que tan amablemente me la paso victor, ya la enlace y todo ok, pero al intentar crear el archivo me truena con:\nError Excel.Application:WORKBOOKS/16389 E_FAIL: OPEN\ncomo soy novato en esto pues no se por donde buscarle.\nestoy usando fwh, xharbour (99.60 simplex)\nAlguien la tendra funcionando para xharbour que me la pudiera proporcionar, o acaso la toleauto no la tengo actualizada?\nsaludos\npaco','',0,'','2fze9ggb',1,0,'',73,0,0),(21099,4735,3,2,0,'87.218.146.110',1162333702,1,0,1,1,1,1,'','','Class TRdd is available for FiveWin 16 bits only. Please try other samples.','',0,'','1vml21v3',1,0,'',2,0,0),(21100,4775,3,2,0,'87.218.146.110',1162333865,1,0,1,1,1,1,'','','Gale,\n\nTry with oBrw:End() instead of oBrw:destroy()','',0,'','125vk0bf',1,0,'',2,0,0),(21101,4777,6,114,0,'189.169.51.77',1162334228,1,0,1,1,1,0,'','ACTUALIZAR A FWH28 CON EAGLE','Tengo una aplicacion con xHarbour 0.99.5 + FWH2.6 + EAGLE 2.5 donde solamente utilizo las funciones en C. Estoy haciendo la migración a FWH28 y xHarbour 0.99.61 pero al recompilar todos los modulos se me genera el siguiente error:\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\EAGLE\\EAGLE1C.LIB|MSAPI\n\nEl mismo error se me producia con la WBrowse de Hernan y Antonio Linares en un post anterior me dijo que incluyera este codigo en mi aplicacion:\n\n#pragma BEGINDUMP\n\n#include \"hbstack.h\"\n#include \"hbapiitm.h\"\n\nvoid * hb_stack = &amp;HB_VM_STACK;\n\n#pragma ENDDUMP\n\ny el problema se corrigio, pero en éste caso, se genera la aplicación correctamente pero me empieza a dar errores al hacer las llamadas a las funciones para conectarme a MySql.  Yo solamente uso la eagle1C.Lib donde se supone que solamente vienen funciones escritas en C y no se deberia requerir volver a crear la lib y no puedo crearla por que no tengo los fuentes de eagle 2.5 de las funciones en C. Alguien me pudiera orientar sobre que puedo hacer???  Con FWH 2.6 + xHarbour 0.99.5 funciona perfectamente, asi que es algo con las nuevas versiones pero no se que pueda ser, si alguien me pudiera dar una mano, se lo agradeceria.\n\nSaludos !!!\n\nLCP Eduardo Borondón Muñiz','',0,'','1xf81ny2',1,0,'',114,0,0),(21102,4755,3,847,0,'207.6.40.166',1162335373,1,0,1,1,1,0,'','','Hi, Rene,\nThank you for your very comprehensive reply.  This will take some time to digest, but I expect I will be in touch with you later with other questions that come up as we try to implement this solution.','',0,'','ju5r172z',1,0,'',847,0,0),(21103,4708,6,299,0,'24.233.172.101',1162337768,1,0,1,0,1,0,'','','René;\n\nTe ruego, si es posible, me envies una copia del manual en un attachment a mi correo.\n\nMuchas gracias.\n\n\n\nReinaldo','',0,'','mui6vvtw',1,0,'',299,0,0),(21104,4767,6,582,0,'201.252.74.46',1162340231,1,0,1,1,1,0,'','Re: Browse desde recursos con pelles','[quote=&quot;horacio&quot;:107ktjrt]Estoy usando pelles para editar recursos y estoy usando un archivo .rc creado con el workshop. no tengo mayores problemas pero cuando quiero poner un wbrowse de hernán no me muestra las barras de scroll. No tengo manera de ponerlas desde recursos y tampoco los toma desde codigo. Alguien tiene idea ??? Muchas gracias por todo[/quote:107ktjrt]\n\nTenes que definirlo como \"CUSTOM CONTROL\" y en\nWindows style           = 0x50210000\nExtend windows style = 0x00000000\nClass name               = TWBrowse\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','107ktjrt',1,0,'',582,0,0),(21105,4776,6,73,0,'200.66.32.97',1162342709,1,0,1,1,1,0,'','','listo ya exporta, gracias','',0,'gA==','2u4cnr65',1,0,'',73,0,0),(21106,4767,6,73,0,'200.66.32.97',1162342925,1,0,1,1,1,0,'','','En el window style:\n0x50A10000  scroll vertical\n0x50B10000  scroll horizontal\nsalu2\npaco','',0,'gA==','3jqt5jyd',1,0,'',73,0,0),(21107,4778,3,109,0,'200.77.10.67',1162350922,1,0,1,1,1,0,'','Ayuda con el build de mi aplicacion','Pues eso que estoy haciendo pruebas con rutinas escritas en .c y no se como agrgarlas a mi exe, con el archivo .mak.\n\n Ya se que esas rutinas las puedo agregar en los .prg, pero quiero aprender como se hace desde el .mak. Si alguien me puediera ayudar con un .mak que este funcionando.\n\n\n  FWH 2.7 Feb 2006\n  Harbour\n\nGracias','',0,'gA==','3rgr6scl',1,0,'',109,0,0),(21108,4768,3,190,0,'202.65.134.25',1162355010,1,0,1,1,1,0,'','','Thank you Mr.Rene and Thank you Mr.James\n\nI am testing it now after conversion of Bitmap\'s height and width into\ncentimeters.\n\nRegards to both of you\n\n- Ramesh Babu P','',0,'gA==','22fwy3vc',1,0,'',190,0,0),(21109,4772,7,2,0,'87.218.146.110',1162360456,1,0,1,1,1,1,'','','Pedro,\n\n&gt; USE (curdir()+\'\\BASES\\\'+\"CLIENTES.DBF\") INDEX \"INDEX1.NTX\" NEW \n\nPuedes hacerlo perfectamente. Primero debes tener el índice NTX creado:\n\nUSE (curdir()+\'\\BASES\\\'+\"CLIENTES.DBF\") NEW\n\nINDEX ON NombreCampo TO \"INDEX1.NTX\"\n\nSET INDEX TO \"INDEX1.NTX\"\n\nEs preferible que uses índices CDXs ya que usas un sólo fichero para todos los índices:\n\nREQUEST DBFCDX\n\nUSE (curdir()+\'\\BASES\\\'+\"CLIENTES.DBF\") VIA \"DBFCDX\" NEW\n\nINDEX ON NombreCampo TO \"TagNombre\"','',0,'gA==','1gvhiau2',1,0,'',2,0,0),(21110,4778,3,2,0,'87.218.146.43',1162366701,1,0,1,1,1,1,'','','Ricardo,\n\nRevisa el directorio fwh\\makes \n\nTienes uno para Borland y otro para Microsoft.','',0,'gA==','kdi0knk0',1,0,'',2,0,0),(21111,4779,5,2,0,'87.218.146.43',1162367156,1,0,1,1,1,1,'','FiveMac - first screenshots','FiveTech Software is proud to present the first FiveMac screenshots for Apple Mac OSX. \n\nFiveMac is a product in development, targeted for early 2007:\n[img:1wwxe8is]https&#58;//bitbucket&#46;org/fivetech/screenshots/downloads/fivemac_fivedbu&#46;png[/img:1wwxe8is]\n\n[img:1wwxe8is]https&#58;//bitbucket&#46;org/fivetech/screenshots/downloads/fivemac_fileman&#46;png[/img:1wwxe8is]','9f239553eb85a1abbebbbf16b05ccbaa',0,'CA==','1wwxe8is',1,1163507735,'',2,3,0),(194463,23539,6,644,0,'181.111.220.50',1475498904,1,0,1,1,1,1,'','Re: HOWTO. BorlandC y OpenSSL','Antonio, obtengo los mismos errores incorporando la ibrería hbssls.lib. Gracias\n\nSaludos','45730c8eedda6499a1adb0cc64be75b8',0,'','2ayr9vec',1,0,'',0,0,0),(194464,33023,6,644,0,'181.111.220.50',1475499192,1,0,1,1,1,1,'','Re: Calendario integrado a Google Calendar','El ejemplo no es funcional. \n\nSaludos','c471bbdffbf28835f7f25fbe11742138',0,'','32htxng3',1,0,'',0,0,0),(194465,33024,6,1313,0,'177.125.217.138',1475502825,1,0,1,1,1,1,'','EXCEL - Desalineado con la ventana.','Sr. Cristobal,\n\nEn un oficce con la versión : 16.0.7070.2033 , que está pasando en el siguiente problema de la pantalla . \n\nSe desalineado con la ventana. \n\nGracias\n\n[url=https&#58;//postimg&#46;org/image/8ehjz37df/:26u7jr9y][img:26u7jr9y]https&#58;//s13&#46;postimg&#46;org/8ehjz37df/teste&#46;png[/img:26u7jr9y][/url:26u7jr9y]\n\n/*********************************************/\nprocedure AbrePlanilhaExcel( cPlanilha )\n/*\n*/\nlocal oError, oExcel, cTitulo\n\nDefault cPlanilha := \'\'\n\nif s_oWndExcel != nil\nif !iszoomed(s_oWndExcel:hwnd)\ns_oWndExcel:Maximize()\nendif\nreturn\nendif\n\nif !Empty(cPlanilha) .and. !File(cPlanilha)\nMsgStop(\'Planilha informada não foi localizada. Verifique!\', \'Atenção!\')\nreturn\nendif\n\nTRY\noExcel := CreateObject( &quot;Excel.Application&quot; )\nCATCH oError \nRetornaErrorTryCatch( oError, \'PLANILHA EXCEL\' )\nReturn\nEND \n\ncTitulo := &quot;.:: EXCEL ::. &quot;+Alltrim(cPlanilha) \noExcel:Workbooks:Open(cPlanilha)\nSysRefresh()\n\ndefine window s_oWndExcel mdichild of M-&gt;oWnd vscroll title cTitulo\n\ns_oWndExcel:bKeyDown := {| nKey | IIf(nKey==VK_ESCAPE,s_oWndExcel:end(),;\nIIf(nKey==VK_F6 .and. len(M-&gt;oWnd:oWndClient:aWnd) &gt; 1, M-&gt;oWnd:NextWindow(),))}\n\nactivate window s_oWndExcel maximized ON Init(OnInitExcel(@oExcel));\nValid(ValidExcel( oExcel ))\n\nreturn\n\n/*********************************************/\nstatic procedure OnInitExcel(oExcel) \n/*\n*/\nSetWindowLong(oExcel:hWnd,-16,&quot;L&quot;)\noExcel:DisplayAlerts := .F.\noExcel:ActiveWorkBook:Protect(\'\',.f.,.f.) //Para poder manupilar el estado de la venta del libro\noExcel:WindowState := -4137 //Se quitan los botones de maximizar, minimizar y cerrar\noExcel:Windows(1):WindowState := -4137 //Se maximiza Excel en mi ventana\noExcel:ScreenUpdating := .T.\noExcel:Visible := .T.\noExcel:DisplayAlerts := .F.\n\ns_oWndExcel:bGotFocus := { || IIf( s_oWndExcel != nil, s_oWndExcel:Refresh(),) } \nSetParent(oExcel:hWnd, s_oWndExcel:hWnd) //Incrusta Excel en mi ventana\nreturn\n\n/*********************************************/\nstatic function ValidExcel( oExcel )\n/*\n*/\noWorkBooks := oExcel:WorkBooks\noWorkBooks:Close()\noWorkBooks:= NIL\n\noExcel:Quit()\noExcel:= NIL\n\nHb_GCall(.t.)\ns_oWndExcel := nil\n\nreturn(.t.)','2843911b2ead6e202fc3e5faa921577d',0,'GA==','26u7jr9y',1,0,'',0,0,0),(21112,4780,8,2,0,'87.218.146.43',1162367596,1,0,1,1,1,1,'','FiveMac - primeras imágenes','FiveTech Software se complace en presentar las primeras imágenes de  FiveMac para Apple Mac OSX. \n\nFiveMac es un producto en desarrollo, previsto para comienzos del 2007:\n[url=http&#58;//imageshack&#46;us:2bo5oqlj][img:2bo5oqlj]http&#58;//img132&#46;imageshack&#46;us/img132/9195/picture1xx9&#46;png[/img:2bo5oqlj][/url:2bo5oqlj]\n\n[url=http&#58;//imageshack&#46;us:2bo5oqlj][img:2bo5oqlj]http&#58;//img138&#46;imageshack&#46;us/img138/1051/fivemac2be1&#46;png[/img:2bo5oqlj][/url:2bo5oqlj]\n\n[url=http&#58;//imageshack&#46;us:2bo5oqlj][img:2bo5oqlj]http&#58;//img166&#46;imageshack&#46;us/img166/3483/fivemac4um6&#46;png[/img:2bo5oqlj][/url:2bo5oqlj]\n\n[url=http&#58;//imageshack&#46;us:2bo5oqlj][img:2bo5oqlj]http&#58;//img294&#46;imageshack&#46;us/img294/8681/picture1zc4&#46;png[/img:2bo5oqlj][/url:2bo5oqlj]\n\n[url=http&#58;//imageshack&#46;us:2bo5oqlj][img:2bo5oqlj]http&#58;//img96&#46;imageshack&#46;us/img96/5759/picture1ex6&#46;png[/img:2bo5oqlj][/url:2bo5oqlj]','',0,'GA==','2bo5oqlj',1,1163507672,'',2,2,0),(21113,4766,3,2,0,'87.218.146.43',1162368592,1,0,1,1,1,1,'','','Roger,\n\n&gt;\nIsn\'t the addition of ::nStdLineHeight in this method an unnecessary duplication of the addition of this same value immediately prior in ::EndLine() ? \n&gt;\n\nYes, it looks so. Is it working fine now with your fix ?\n\nThanks for your feedback,','',0,'GA==','1sbeul6n',1,0,'',2,0,0),(21114,4779,5,20,0,'82.57.150.147',1162369123,1,0,1,1,1,0,'','Re: FiveMac - first screenshots','Great news  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAfter FiveWin, FiveLinux, FWPPC, also FiveMac for me.\nFivetech has been one chosen winning for me  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nPier Luigi','',0,'GA==','2qm5ex98',1,0,'',20,0,0),(21115,4779,5,28,0,'87.218.47.144',1162370840,1,0,1,1,1,0,'','','¡¡¡ NO ME LO PUEDO CREEER !!!\n\nLo has vuelto a hacer\n\n¿Donde hay que firmar?\n\n¡¡¡ Enhorabuena !!','',0,'GA==','1cfhws01',1,0,'',28,0,0),(21116,2261,17,130,0,'141.51.32.24',1162372715,1,0,1,1,1,0,'','','found it\n\nStefan','',0,'GA==','3szerskh',1,0,'',130,0,0),(21117,3308,6,180,0,'83.54.15.25',1162376438,1,0,1,1,1,0,'','','Estimado Antonio:\n\nEsperaba que en la construcción de Octubre estuviera solucionado este problema. Creo haber concluído con éxito el paso de FW a FWH y solo me queda este punto. Estarás conmingo en que queda bastante antiestético\n¿no?\n\nUn saludo,\nManuel','',0,'GA==','1dzp9lfd',1,0,'',180,0,0),(21118,4780,8,439,0,'200.125.47.236',1162376868,1,0,1,1,1,1,'','','Excelente trabajo!!\n\nEn horabuena','',0,'GA==','16q8rpnl',1,0,'',439,0,0),(21119,4780,8,6,0,'82.54.221.124',1162378064,1,0,1,1,1,1,'','Re: FiveMac - primeras imágenes','Wonderful!\n\nEMG','',0,'GA==','3sj8zwid',1,0,'',6,0,0),(21120,4779,5,6,0,'82.54.221.124',1162378115,1,0,1,1,1,1,'','Re: FiveMac - first screenshots','Wonderful!\n\nEMG','',0,'GA==','2l7itvka',1,0,'',6,0,0),(21121,4781,6,838,0,'80.59.225.15',1162380191,1,0,1,1,1,0,'','Listbox: Justificacion de cabeceras','Hola amigos\n\nYa estoy \"liao\" con harbour, me salían muchos errores de declaración de variables que he corregido, pero ahora me sale el siguiente error:\n*********************\n Size: 1,738,752 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 01/11/06, 12:07:45\n   Error description: Error BASE/1005  Message not found: TWBROWSE:_AHJUSTIFY\n\nStack Calls\n===========\n   Called from __ERRRT_SBASE(0)\n   Called from HBOBJECT:ERROR(176)\n   Called from __EVAL(105)\n   Called from HBOBJECT:MSGNOTFOUND(0)\n   Called from TWBROWSE:_AHJUSTIFY(169)\n   Called from PROVE(95)\n   Called from (b)MAIN(75)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n***********************\n\nEsto es en un listbox\nEs que ya no puedo utilizar el centrado de cabecera?\n\nSaludos\n\nJose Luis','',0,'GA==','3tlyid2g',1,0,'',838,0,0),(21122,4134,4,267,0,'200.208.238.2',1162382031,1,0,1,1,1,1,'','','Antonio,\n\nThanks,\n\nI am here counting the minutes while I wait.','',0,'GA==','alcpcrnj',1,0,'',267,0,0),(21123,4781,6,180,0,'83.54.15.25',1162383778,1,0,1,1,1,0,'','','Con xBrowse puedes centrar la cabecera así:\n\noCol:nHeadStrAlign:= AL_CENTER\n\nUn saludo,\nManuel','',0,'GA==','3kxjut26',1,0,'',180,0,0),(21125,4770,3,15,0,'59.121.140.224',1162389911,1,0,1,1,1,0,'','','Dear Fernando,\n\nNice product.\n\nCould you make TGantt function or different Folder/TAB interface control?\n\nRegards,\n\nRichard','',0,'','2d60vmhl',1,0,'',15,0,0),(21126,4782,1,161,0,'81.164.212.146',1162390947,1,0,1,1,1,0,'','Rename/delete directory with long-name','Hi,\n\nIs there also a 32 bit function-call to rename a directory with a long-name?\nIs there also one to delete a directory with long-name?\nEnrico?\n\n\nThanks,\nMarc','',0,'','h9qye125',1,0,'',161,0,0),(21127,4783,7,832,0,'201.122.21.224',1162397259,1,0,1,1,1,0,'','VERSION DEL POCKET PC QUE SOPORTA ????','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> TENGO UN PROBLEMA NO PUEDO HACES ESTO EN EL UMULADOR DE LA PDA\n\n\nUSE (curdir()+\'\\BASES\\CLIENTES.DBF\') INDEX (curdir()+\'\\BASES\\kcliente.ntx\') NEW\n\n\nME MARCA ERROR \n\nLochFileEx()  not supported in this windows mobie version\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> CLARO ES QUE NO SOPORTA ESTO LA VERSION DE DEL WINDOWS DE LA PDA PERO, ENTONCES COMO LE HAGO PARA QUE TOME INDICES MI VERSION \n\n\n\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  LA VERSION QUE TENGO DEL EMULADOR ES LA::\n\nMICROSOFT DEVICE EMULATOR 8.0.50215.35','',0,'','1l0687ua',1,0,'',832,0,0),(21128,4783,7,2,0,'87.218.146.43',1162398803,1,0,1,1,1,1,'','','Pedro,\n\nEl soporte de bloqueo de ficheros en Windows Mobile sólo está disponible desde la versión 2005. \n\nEs una limitación de Windows Mobile 2003, no de FWPPC.','',0,'','2rfwewln',1,0,'',2,0,0),(21129,4779,5,303,0,'72.199.41.171',1162399774,1,0,1,1,1,0,'','','Impressive!\n\nJames','',0,'','19n9bd3k',1,0,'',303,0,0),(21130,4782,1,6,0,'82.54.221.124',1162402095,1,0,1,1,1,1,'','Re: Rename/delete directory with long-name','[code:1ah54tig]DLL32 FUNCTION MOVEFILE&#40; cExistingFileName AS LPSTR, cNewFileName AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;MoveFileA&quot; LIB &quot;kernel32&#46;dll&quot;\n\nDLL32 FUNCTION REMOVEDIR&#40; cPathName AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;RemoveDirectoryA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:1ah54tig]\n\nEMG','',0,'AIA=','1ah54tig',1,0,'',6,0,0),(21131,3308,6,519,0,'88.16.14.154',1162404334,1,0,1,1,1,0,'','','Eso es un fallo del algun hdc que no lo pinta bien , el xbrowse funciona mal desde principio, nunca ha funcionado bien,  esta clase ha sido una de las que mas dolores de cabeza me ha dado  y hace unos meses que la quita de un sistema que tengo, falla por todos sitios, yo utilizaria el twbrowse de Hernan.\n\n\n  Antonio tendria que  revisar toda la clase completamente.\n\n\n   Un saludo','',0,'AIA=','3uorvzzq',1,0,'',519,0,0),(21132,4784,6,114,0,'189.169.59.147',1162404460,1,0,1,1,1,0,'','Imagen de fondo','Con la nueva version de FWH 2.8 en una aplicación donde pongo un JPG de fondo en la ventana principal, con la version 2.6 funcionaba perfectamente, pero ahora con la 2.8 me pinta la imagen, pero como no abarca toda la zona cliente de la ventana, en los espacios que sobran, no se rellena con el color de fondo de la ventana sino que se queda lo que tengo yo en mi escritorio de windows, o si genero un report, me deja parte del reporte en el area cliente. Como se soluciona ese problema??\n\nLa funcion GetNetCardId() no funciona todavia en fwh2.8?? me genera el siguiente error:\n\nError: Unresolved external \'GetAdaptersInfo\' referenced from C:\\FWH28\\LIB\\FIVEHC.LIB|NETCRDID\n\nSaludos!!!\n\nLCP Eduardo Borondón Muñiz','',0,'AIA=','3kgzjfgi',1,0,'',114,0,0),(21134,4777,6,114,0,'189.169.59.147',1162404546,1,0,1,1,1,0,'','','Solucionado!!!\n\n    Ya localice en mis respaldos los fuentes en c de eagle 2.5, volvi a crear la lib y problema resuelto. \n\n\nGracias \n\nLCP Eduardo Borondón Muñiz','',0,'AIA=','fe7so7mo',1,0,'',114,0,0),(21136,4770,3,303,0,'72.199.41.171',1162406658,1,0,1,1,1,0,'','','Fernando,\n\n&gt;The problem was not a bug in the library, but an error in the resource size. You can download again the samples, and see how the paint is correct now.\n\nAh, yes, they all look great now. \n\n&gt;In the example of the screenshot, the glass type buttons are bitmaps, which are transparent in the background.\n\nHow did you make these button bitmaps? Using special software to create 32bit bitmap buttons? If so, which one?\n\nCan Workshop handle these 32bit bitmaps? If not, which resource editors can?\n\nJames','',0,'CA==','3a1i9r8v',1,0,'',303,0,0),(21137,4785,6,123,0,'88.1.152.50',1162406665,1,0,1,1,1,0,'','Mundoxbase entrevista a Antonio Linares','Hola,\n\nAntonio Linares es entrevistado en <!-- w --><a class=\"postlink\" href=\"http://www.mundoxbase.info\">www.mundoxbase.info</a><!-- w -->\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'CA==','228jivgh',1,0,'',123,0,0),(21138,4784,6,114,0,'189.169.59.147',1162407515,1,0,1,1,1,0,'','','Solucionado el problema de la imagen, solo me queda el problema del GetNetCardId()\n\nSaludos !!!\n\nLCP Eduardo Borondón Muñiz','',0,'CA==','1pl6eh5b',1,0,'',114,0,0),(21139,4770,3,6,0,'82.54.221.124',1162407613,1,0,1,1,1,1,'','','As far as I know, you can load 32bit bitmaps in Borland Resource Workshop but you can\'t open or edit them using it.\n\nEMG','',0,'CA==','3q44f1oq',1,0,'',6,0,0),(21140,4786,6,838,0,'80.59.225.15',1162408656,1,0,1,1,1,0,'','Recursos','Hola amigos\n\nEstoy intentando pasar algunas de mis aplicaciones a FWH, y me ocurren algunas cosas.\n\nEn algunos Recursos que antes los tenia en una libreria, y que la he convertido a RC, me sale el mensaje de que no puede crear el recurso, y si embargo otros si me funcionan.\n\nAl convertir la dll en rc, ya no hay que decir:\n      hBorland := LoadLibrary( \"BWCC.DLL\" )\n      SET RESOURCES TO \"Email.dll\"\nEsto es asi?\n\nEsto me ocurre incluso al intentar imprimir, me dice que no puede crear Preview Proc.\n\nTengo que usar otra libreria distinta de mi preview.dll?, o es que la tengo que convertir a RC como mi libreria.\n\nSaludos\n\nJose Luis','',0,'CA==','21tgi8n4',1,1162410481,'',838,1,0),(21141,4786,6,838,0,'80.59.225.15',1162409278,1,0,1,1,1,0,'','','Me contesto a una parte\n\nLo del preview ya lo he averiguado, copiar el prev32sp.dll de FWH al directorio de la aplicacion y renombrarlo como prev32.dll.\n\nAhora me queda el resto\n\nSaludos\n\nJose Luis','',0,'CA==','3beyr3uk',1,0,'',838,0,0),(21142,4779,5,297,0,'151.47.146.147',1162409396,1,0,1,1,1,0,'','','Good news especially for our customers!\n\nMuy Bravo!\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','399je5yb',1,0,'',297,0,0),(21143,4787,7,840,0,'201.242.74.49',1162412181,1,0,1,1,1,0,'','USO DE ARCHIVOS COMPARTIDOS','SALUDOS.\n\nHE MODIFICADO EL PROGRAMA CON LA SIGUIENTE INSTRUCION,\n\nUSE  FILE  VIA \"DBFCDX\" SHARED \nUSE  FILE  VIA \"DBFCDX\" SHARED NEW,  Y AMBAS NO ME FUNCIONA,\nY LO EJECUTE CON WINDOWS MOBILE 2005, EL PROGRAMA NO SALE \nLA PANTALLA, PERO QUEDA EN MEMORIA.\nME PUEDES DAR UN EJEMPLO DEL USO COMPARITO.\n\n\n******\nEL EJEMPLO QUE ME DISTE PARA CONECTAME DE DESDE OTRA COMPUTADORA NO FUNCIONO CON EL MSGINFO(MEMOREAD)\nSIGO PROBANDO OTRAS OPCIONES\n******\n\nCOMO PUEDO EJECUTAR DESDE MI POCKET PC UN PROGRAMA MSDOS. O WINDOWS QUE ESTA EN OTRA COMPUTADORA UNA VEZ CONECTADO\n\n*****\n\nHAY PROGRAMAS COMO EL TUTOR06 QUE EN EL DIRECTORIO SAMPLES\nCONTIENE UN ARCHIVO TUTOR06.RC PARA QUE SIRVE Y COMO SE GENERA, YA QUE LO COPIO CON OTRO NOMBRE COMO ZTUTOR06.PRG \nLO COMPILO NO GENERA EL ZTUTOR06.RC Y NO FUNCIONA EL PROGRAMA POR QUE.','',0,'CA==','u2hmsnng',1,0,'',840,0,0),(21144,4751,2,518,0,'189.170.5.53',1162412338,1,0,1,1,1,0,'','','ANTONIO,\n\nAsi como dices termino yo mis programas pero sigue quedandose esos procesos abiertos.  Es mas si corro el programa de tuto02.exe y lo cierro esos 2 procesos se quedan igual abiertos ....\n\n\nRene','',0,'CA==','qcntchk0',1,0,'',518,0,0),(21145,4788,7,600,0,'84.123.222.86',1162413186,1,0,1,1,1,0,'','Habilitando / desabilitando MENUS','Muy buenas, tengo el siguiente problema y no se como resolverlo:\n\nTengo un menu en la funcion principal del programa, y quisiera que al pasar a una funcion llamada por esta se deshabilite el menu, es más, que ni siquiera se vea, pero al salir de esa función quisiera que se volviese a ver.\n\nY Ya puesto quisera poder cambiar los iconos y acciones de los botones de una barra de botones\n\nEspero haberme explicado\n\nUn saludo\nJuan José','',0,'CA==','2k1rg025',1,0,'',600,0,0),(21146,4789,6,180,0,'83.54.15.25',1162416943,1,0,1,1,1,0,'','KeyDown() de TXBrowse no funciona correctamente','Ahora en la construcción de Octubre bKeyDown en XBrowse no funciona correctamente. Por ejemplo VK_RETURN se procesa dos veces y VK_SPACE no se procesa.\n\nUn saludo,\nManuel','',0,'CA==','22a6iq0x',1,0,'',180,0,0),(21147,3308,6,180,0,'83.54.15.25',1162417561,1,0,1,1,1,0,'','','Pues la verdad es que el \"bug\" se reportó por primera vez hace más de cuatro meses, por lo que  la solución no debe ser fácil. De cualquier manera, hasta ahora es el único problema que he encontrado en TXBrowse y de momento, me resisto a utilizar clases ajenas al producto original, a menos que no me quede más remedio, claro.\n\nSaludos,\nManuel','',0,'CA==','1v6k6xyb',1,0,'',180,0,0),(21148,4778,3,109,0,'200.77.41.132',1162418597,1,0,1,1,1,0,'','','Sr. Antonio, Gracias por contestar, he hecho una prueba y me arroja el error:\n    To Many Exe file names: obj\\tsys.obj\n\nAlguna sugerencia?.\n\n\nGracias','',0,'CA==','1wgyyagy',1,0,'',109,0,0),(21149,4692,17,92,0,'62.151.92.33',1162419698,1,0,1,1,1,0,'','','[quote=&quot;JoseLuis&quot;:wdwjed13]Pues no lo encuentro a pesar de haber buscado en versiones anteriores\n\nSi eres tan amable, me lo envias.\n\nUn saludo\n\nJose Luis[/quote:wdwjed13]\n\nPerdona, pertenece a la magnífica clase TDBF de Manuel Expósito.\nAquí adjunto su código:\n*****************************\n//----------------------------------------------------------------------------//\n//  AUTOR.....: Manuel Exp¢sito Su rez    Soft 4U \'98                         //\n//  e-Mail....: <!-- e --><a href=\"mailto:expo2001@wanadoo.es\">expo2001@wanadoo.es</a><!-- e -->                                           //\n//  CLASE.....: Obj2Hb.CH                                                     //\n//  FECHA MOD.: 17/04/2002                                                    //\n//  VERSION...: 12.00                                                         //\n//  PROPOSITO.: Compatibiliza HARBOUR OOP con Objects                         //\n//----------------------------------------------------------------------------//\n\n\n#ifdef __HARBOUR__\n\n    #xtranslate AS ALL     =&gt; AS ANYTYPE     // Compatible con OBJECTS\n    #xtranslate AS BLOCK   =&gt; AS CODEBLOCK\n\n    #xcommand DEFAULT &lt;xVar1&gt; := &lt;xDefaultValue1&gt;                                  ;\n               [, &lt;xVarN&gt; := &lt;xDefaultValueN&gt; ] =&gt;                             ;\n                  &lt;xVar1&gt; := If( &lt;xVar1&gt; == nil, &lt;xDefaultValue1&gt;, &lt;xVar1&gt; );  ;\n                [ &lt;xVarN&gt; := If( &lt;xVarN&gt; == nil, &lt;xDefaultValueN&gt;, &lt;xVarN&gt; );]\n\n    // Extraido de Objects.ch\n\n    #xtranslate BYNAME &lt;V&gt; [, &lt;VN&gt; ]     =&gt; ::&lt;V&gt; := &lt;V&gt; [; ::&lt;VN&gt; := &lt;VN&gt; ]\n    #xtranslate BYNAME &lt;V&gt; DEFAULT &lt;Val&gt; =&gt; ::&lt;V&gt; := BYDEFAULT &lt;V&gt;, &lt;Val&gt;\n    #xtranslate BYDEFAULT &lt;V&gt;, &lt;Val&gt;     =&gt; if( &lt;V&gt; == NIL, &lt;Val&gt;, &lt;V&gt; )\n    #xtranslate BYNAME &lt;V&gt; IFNONIL       =&gt; if( &lt;V&gt; != NIL, ::&lt;V&gt; := &lt;V&gt;, )\n\n    #include \"HBClass.ch\"\n\n#else\n\n    #include \"Objects.ch\"\n\n#endif\n\n//----------------------------------------------------------------------------//\n*****************************\n\nSaludos y suerte\nCarlos G.','',0,'gA==','wdwjed13',1,0,'',92,0,0),(21150,4782,1,161,0,'81.164.212.146',1162419731,1,0,1,1,1,0,'','','Thanks Enrico!!\n\nMarc','',0,'gA==','12tq4zma',1,0,'',161,0,0),(21151,4790,1,779,0,'200.67.153.171',1162419872,1,0,1,1,1,0,'','PAra la factura electronica necesito usar encripcion RSA...','PKCs8 y RSA\n\nAlguien tiene algo al respecto?','',0,'gA==','vwa3oj44',1,0,'',779,0,0),(21152,4692,17,92,0,'62.151.92.33',1162420069,1,0,1,1,1,0,'','www.blat.net','[quote=&quot;Maurilio Viana&quot;:y9xeqce0]Pueder dejar alguno ejemplo de como usar la clase y donde puedo bajar blat.exe?\n\nSaludos de Brasil!\nMaurilio[/quote:y9xeqce0]\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.blat.net\">www.blat.net</a><!-- w -->\n\nEn el código que dejé en este hilo puede verse su uso más sencillo; y mirando un poco el código creo que se entiende fácilmente.\n\nSaludos y suerte\nCarlos G.','',0,'gA==','y9xeqce0',1,0,'',92,0,0),(21153,4778,3,2,0,'87.218.146.66',1162420717,1,0,1,1,1,1,'','','Ricardo,\n\nCómo lo has modificado ? Muéstranos los cambios','',0,'gA==','2x0r7cgu',1,0,'',2,0,0),(21154,4791,6,180,0,'83.54.15.25',1162421458,1,0,1,1,1,0,'','hbzip.lib de xHarbour en distribución de Octubre  mal','Por si utilizan hbzip.lib de xharbour: He podido constatar que se produce un GPF al tratar de realizar copias de seguridad con la hbzip.lib distribuida con xharbour en la construcción de Octubre. La he sustituido por la anterior de Septiembre y ya funciona correctamente.\n\nUn saludo,\nManuel','',0,'gA==','by93j2pg',1,0,'',180,0,0),(21155,4784,6,114,0,'189.169.59.147',1162421970,1,0,1,1,1,0,'','','Solucionado tambien el problema del GetNetCardId(), me faltaba enlazar a mi aplicacion la lib iphlpapi.lib\n\nGracias de todas formas !!!\n\nLCP Eduardo Borondón Muñiz','',0,'gA==','1dyo4ffb',1,0,'',114,0,0),(21156,3308,6,43,0,'189.128.87.123',1162422337,1,0,1,1,1,0,'','','Hola\n\nPodrias poner una pedazo de tu codigo para poder verlo, yo utilizo xbrowse y me funciona perfectamente.\n\nSaludos\nMarco A. Delgado.','',0,'gA==','2sjd4x0s',1,0,'',43,0,0),(21157,4699,1,186,0,'66.130.50.142',1162423056,1,0,1,1,1,1,'','','Hi Enrico,\n\n\nYou`re right, tho OnError METHOD handles the fields content to return when an error occurs in the class by doing cString := oDbf:fieldname or \noDbf:fieldname := cString\n\nDoing some test I also figured out than an `_` is passed in front of the fieldname when doing oDbf:filedname := cString, limiting the lenght of the fieldname to 9 positions. Does that mean that the field name of the database must not have more than 9 positions ? \n\nThis limitation seems to be only for FiveWin + Clipper. Am I right ?\n\nRegards','',0,'gA==','1si6vtjv',1,0,'',186,0,0),(21158,4792,6,838,0,'80.59.225.15',1162423797,1,0,1,1,1,0,'','Error con Twbrowse','Hola amigos\n\nSi utilizo la clase Twbrowse version 1.7 de Hernán, al compilar mediante verce me sale el siguiente error\n\nError: Unresolved external \'_hb_dynsymSymbol\' referenced from C:\\FWH\\LIB\\TWBRW32.LIB|wbrwline\n\nSin embargo si lo hago con la anterior twbrw16, me funciona perfectamente, que puede ser?\n\nUn saludo\n\nJose Luis','',0,'gA==','232bevdk',1,0,'',838,0,0),(21159,4793,1,186,0,'66.130.50.142',1162424019,1,0,1,1,1,1,'','Database readwrite and read only detection','Hi all,\n\n\nI would like to know if any of you has a way of detecting if a database has been opened in readwrite or readonly mode.\n\nIn Clipper 5.3 there is a function called dbInfo() which allows to detect retreive multiple information from an opened database, but could not find anything that would retreive this information.\n\nAlso have another situation where I need to retreive either the number of opened index or a list of opened index of an area. This can be known if using OrderBag, but for technical reasons (interfacing with an external application) I must open each index individually. Since I don`t want to keep track of how many indexes have been opened or closed while processing, I`m looking for a function that could evaluate the opened indexes when needed.\n\nRegards, <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->','',0,'gA==','85kizvq6',1,0,'',186,0,0),(21160,4786,6,838,0,'80.59.225.15',1162424934,1,0,1,1,1,0,'','','También me contesto a la otra cuestión.\n\nLos recursos que no me funcionaban eran porque estaban creados con Tfolder, y he tenido que poner después de las variables locales Tfolder():Register(), y listo el pollo.\n\nSaludos\n\nJose Luis','',0,'gA==','1engos2c',1,0,'',838,0,0),(21161,2224,1,186,0,'66.130.50.142',1162425614,1,0,1,1,1,1,'','','Hi guys,\n\n\nJust strolling along the forum I came across this one, which I find very interesting.  I am a Clipper maniac since 1988. I went true Summer 87, Cliper 5.0, 5.1, 5.2, 5.3a, b, c and d.\n\nAs years go buy I heard about 200,000 that Windows 2000 would not support DOS and 16Bits apps. Then when XP came along, same story.  \nStill I have many customer who still uses my old DOS applications and they work fine. \n\nThe fact is that Microsoft cannot discard at their will everything that has been developped over the years. First they don`t have the right to do so, second they are not crazy. They may try to discourage the developer to use old languages or may encourage the developper to go to new technologies, but I don`t think they would dare do it. \n\nI can tell you that many major enterprises, all over the world, still uses old DOS applications that cost a fortue in developpement and maintenance and are often reluctant od going true a redevelopement of a Windows application. The cost of developpement, installation, configuration and training is sometime so heavy.\n\nIn conclusion, I would be very suprised if Microsoft would cut the rope of 16Bits applications. Anyway I`ll beleive it when I see it.\n\nRegards, <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','qm1xe3cy',1,0,'',186,0,0),(21162,2224,1,186,0,'66.130.50.142',1162426456,1,0,1,1,1,1,'','','Hi again,\n\nI`ts true some printers don`t support multi copies commands. But most of the laser printers do. \n\nI don`t agree that only 32 bits applications will resolve this issue. I am able to bo so whit an old Clipper DOS application by controling the printer within my application using printer escape codes. Nad it works fine.\n\nSo why a Windows appilcation could not do so ? Maybe because the so called Windows language rely to much on Windows explotation system. \nWhy not provide functions that would allow the programmer to control the printer as he wishes, just like the DOS way...\n\nWindows may be nice for the user but not always nice to the programmer...\n\nRegards, <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gA==','2foxqbju',1,0,'',186,0,0),(21163,4794,6,694,0,'200.138.82.178',1162429356,1,0,1,1,1,1,'','Ajúda com MYSQL+SQLLIB','Amigos tenho a seguinte linha:\n\ncmd:=\"SELECT co_tipo,co_tfla,co_natu FROM bdacon WHERE co_tipo=´\"+VAR+\"\' ORDER BY co_tipo DESC\"\nUSE SQL(cmd) NEW ALIAS TEMP125\nSELECT TEMP125\nDO WHILE ! EOF()\n   SELECT NATUREZA\n   DBSETORDER(1)\n   DBSEEK(TEMP125-&gt;co_natu)\n   SELECT TEMP125\n   AADD(array,{NATUREZA-&gt;na_nome,TEMP125-&gt;co_tipo})\n   DBSKIP()    \nENDDO\n\nAcontece que, para carregar cerca de 600 registros dessa forma esta demorando nos terminais 4 a 6 segundos. Como posso melhorar isso, parece que este relacionamento que faço, esta deixando lento o processo. \n\nFiquem com Deus\nAOKISANTOS','',0,'gA==','2xh8rnh7',1,0,'',694,0,0),(21164,4779,5,239,0,'218.19.75.178',1162436315,1,0,1,1,1,0,'','','Great!\n\nShuming Wang','',0,'gA==','ryl9qso6',1,0,'',239,0,0),(21165,4682,3,227,0,'201.92.240.48',1162436438,1,0,1,1,1,1,'','','[b:rayau62o]Gracias[/b:rayau62o]','',0,'QA==','rayau62o',1,0,'',227,0,0),(21166,4779,5,779,0,'200.67.153.171',1162439020,1,0,1,1,1,0,'','Exclente!!!','Me parece magnifico, Felicidades!','',0,'QA==','1zj96od0',1,0,'',779,0,0),(21167,4770,3,233,0,'219.95.150.45',1162451051,1,0,1,1,1,0,'','','Is the library actually finished or a work in progress? How soon till it can also work on Win98? As James has said, it\'s impresive and with users nowadays tend to judge more on looks whatever tools we have to go into that direction would be helpful','',0,'QA==','1erqfow4',1,0,'',233,0,0),(21168,4791,6,2,0,'87.218.146.66',1162453992,1,0,1,1,1,1,'','','Manuel,\n\nGracias por la información,','',0,'QA==','98ytzepi',1,0,'',2,0,0),(21169,4699,1,2,0,'87.218.146.66',1162454097,1,0,1,1,1,1,'','','Gilbert,\n\nYes, it is a Clipper limitation. With Harbour there is no such limitation.','',0,'QA==','1mi1pbkc',1,0,'',2,0,0),(21170,4792,6,2,0,'87.218.146.66',1162454187,1,0,1,1,1,1,'','','Jose Luis,\n\nAñade este código a tu PRG:\n[code:2szx4hml]\n#pragma BEGINDUMP \n\n#include &quot;hbstack&#46;h&quot; \n#include &quot;hbapiitm&#46;h&quot; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \n   return pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP\n[/code:2szx4hml]','',0,'AIA=','2szx4hml',1,0,'',2,0,0),(21171,4795,6,83,0,'80.35.196.60',1162456298,1,0,1,1,1,0,'','Intento generar MySql.lib','Hola,\n\nPues eso, en el intento me quedo, se genera el siguiente error\n\nError E2139 C:\\MySql\\include\\mysql_com.h 184: Declaration missing\nError E2147 C:\\MySql\\include\\mysql_com.h 354: \'SOCKET\' cannot start a parameter declaration.\n\nEstoy seguro que el problema es mio porque no creo que mysql_com.h esté mal, pero no sé como seguir ni donde buscar porque ya he seguido todas las instrucciones de la documentación que acompaña al paquete de MySql server.\n\nxHarbour 0.99.61 + MySQL Server 5.0\n\nSi alguien ha pasado por esto y quiere compartir la solucion o decirme como conseguir la LIB ya compilada....\n\nGracias de antemano\nSaludos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','1cecfarb',1,0,'',83,0,0),(21172,3308,6,180,0,'194.179.55.36',1162456720,1,0,1,1,1,0,'','','Me ocurre solo en los controles creados desde recursos. Además Antonio me ha contestado que están pendientes de revisar el código, por lo que creo que es sabedor de esta anomalía. No obstante ahí va el código por si acaso vieras algo raro:\n[code:21a1w704]  \nDEFINE DIALOG oDlg RESOURCE &quot;MENUDATO&quot; TITLE cTitulo FONT oFont1\n   oDlg&#58;lHelpIcon&#58;=&#46;F&#46;\n   oLbx &#58;= TXBrowse&#40;&#41;&#58;New&#40;oDlg&#41;\n   oLbx&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n   oLbx&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oLbx&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oLbx&#58;nHeaderLines      &#58;= 1\n   oLbx&#58;nFooterLines      &#58;= 1\n   oLbx&#58;nDataLines        &#58;= 1\n   oLbx&#58;CreateFromResource&#40;200&#41;\n   oLbx&#58;lFooter           &#58;= &#46;t&#46;\n   oLbx&#58;nFreeze           &#58;= 3\n   oLbx&#58;bClrStd &#58;= &#123; || &#123;CLR_BLACK,SelColor2&#40;Trabaja-&gt;NumTrabaja+&quot;-&quot;+Trabaja-&gt;NombreTra,aSeleccion&#41;,CLR_WHITE &#125; &#125;\n   oLbx&#58;bkeydown&#58;=&#123;|nKey|DOKEYCHECK&#40;nKey,oLbx,oBtn7,cUsaBase,nSerie,nRango&#41;&#125;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;AddResource&#40;&quot;LEVELB&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;LEVELR&quot;&#41;\n   oCol&#58;bBmpData   &#58;= &#123; || IIF&#40;ASCAN&#40;aSeleccion,TRABAJA-&gt;NumTrabaja+&quot;-&quot;+TRABAJA-&gt;NombreTra&#41;=0,1,2 &#41; &#125;\n   oCol&#58;cHeader   &#58;= &quot;S&quot;\n   AADD&#40;aCols,1&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || TRABAJA-&gt;NumTrabaja&#125;\n   oCol&#58;cHeader   &#58;= OemtoAnSi&#40;&quot;N£m&#46;&quot;&#41;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,2&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || SUBSTR&#40;TRABAJA-&gt;NombreTra,1,33&#41;&#125;\n   oCol&#58;cHeader   &#58;= &quot;   Apellidos y Nombre&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,3&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || STR&#40;TRABAJA-&gt;TTipoDo&#41;&#125;\n   oCol&#58;cHeader   &#58;= &quot;T&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,4&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || TRABAJA-&gt;DniTra&#125;\n   oCol&#58;cHeader   &#58;= &quot;    N&#46;I&#46;F&#46;&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,5&#41;\n      //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;AddResource&#40;&quot;LEVELB&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;LEVELA&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;LEVELY&quot;&#41;\n   oCol&#58;bBmpData   &#58;= &#123; || IIF&#40;TRABAJA-&gt;FijoEven=&quot;F&quot;,2,IIF&#40;TRABAJA-&gt;COrigen,3,1 &#41; &#41; &#125;\n   oCol&#58;cHeader   &#58;= &quot;F/E&quot;\n   AADD&#40;aCols,6&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;AddResource&#40;&quot;LEVELB&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;LEVELAZ&quot;&#41;\n   oCol&#58;bBmpData   &#58;= &#123; || IIF&#40;TRABAJA-&gt;Anotacion=&quot; &quot;,1,2 &#41;&#125;\n   oCol&#58;cHeader   &#58;= &quot;Not&#46;&quot;\n   AADD&#40;aCols,7&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || TRABAJA-&gt;Naftra&#125;\n   oCol&#58;cHeader   &#58;= &quot;  Núm&#46;Afiliación&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,8&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || TRABAJA-&gt;TelefoTra&#125;\n   oCol&#58;cHeader   &#58;= &quot;Teléfono&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,9&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || TRABAJA-&gt;CPosTra&#125;\n   oCol&#58;cHeader   &#58;= &quot;C&#46;Postal&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,10&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || TRABAJA-&gt;LocaTra&#125;\n   oCol&#58;cHeader   &#58;= &quot; Localidad&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,11&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || TRABAJA-&gt;ProvinTra&#125;\n   oCol&#58;cHeader   &#58;= &quot; Provincia&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,12&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;HM&#125;\n   oCol&#58;cHeader   &#58;= &quot;H/M&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,13&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || DTOC&#40;TRABAJA-&gt;NaciTra&#41;&#125;\n   oCol&#58;cHeader   &#58;= &quot;F&#46;Nacmto&#46;&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,14&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;GrupoCo&#125;\n   oCol&#58;cHeader   &#58;= &quot;G&#46;Cot&#46;&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,15&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;Catetra&#125;\n   oCol&#58;cHeader   &#58;= &quot;Categ&#46; Prof&#46;&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,16&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;TCodicon&#125;\n   oCol&#58;cHeader   &#58;= &quot;Contrato&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,17&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;TipoCon&#125;\n   oCol&#58;cHeader   &#58;= &quot;Tipo Contrato&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,18&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;Estudios&#125;\n   oCol&#58;cHeader   &#58;= &quot;Estudios&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,19&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;CodiProTra&#125;\n   oCol&#58;cHeader   &#58;= &quot;Cód&#46;Prov&#46;&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,20&#41;\n   //\n   oCol &#58;= oLbx&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || +TRABAJA-&gt;SgTra+&quot;  &quot;+ALLTRIM&#40;TRABAJA-&gt;DomiTra&#41;+&quot;   &quot;+TRABAJA-&gt;NumDoTra+&quot;  &quot;+TRABAJA-&gt;EscaTra+&quot;  &quot;+TRABAJA-&gt;PisoTra+&quot;  &quot;+TRABAJA-&gt;PuertaTra&#125;\n   oCol&#58;cHeader   &#58;= &quot; Domicilio&quot;\n   oCol&#58;oDataFont &#58;= oFont1\n   AADD&#40;aCols,21&#41;\n   //\n   //\n   for nFor &#58;= 1 to len&#40;aCols&#41;\n      oLbx&#58;aCols&#91; nFor &#93;&#58;blDClickData  &#58;= &#123;|| &#40;Trabajadores&#40;oLbx,&quot;Ver/Modificar datos&quot;,&#46;F&#46;,nSerie&#41;,oLbx&#58;Refresh&#40;&#41; &#41; &#125;\n      oLbx&#58;aCols&#91; nFor &#93;&#58;bRClickData   &#58;= &#123;|| &#40;Seleccionar&#40;oLbx&#41;,oLbx&#58;refresh&#40;&#41;,IIF&#40;LEN&#40;aSeleccion&#41; &gt; 0,oBtn7&#58;enable&#40;&#41;,oBtn7&#58;disable&#40;&#41;&#41;   &#41; &#125;\n   next\n   //\n\n[/code:21a1w704]\n\nSaludos,\nManuel','',0,'AIA=','21a1w704',1,0,'',180,0,0),(21173,3308,6,54,0,'189.132.114.168',1162458613,1,0,1,1,1,1,'','','[quote=&quot;Manuel Aranda&quot;:3bvhruqr]Me ocurre solo en los controles creados desde recursos. Además Antonio me ha contestado que están pendientes de revisar el código, por lo que creo que es sabedor de esta anomalía. No obstante ahí va el código por si acaso vieras algo raro:\n\nSaludos,\nManuel[/quote:3bvhruqr]\n\nManuel,\n\nNo veo nada raro en tu código, aunque :CreateFromResource, usualmente lo coloco al fnal de la creación de las columnas, y tampoco he tenido problemas con xBrowse.','',0,'gA==','3bvhruqr',1,0,'',54,0,0),(21176,4779,5,190,0,'202.65.134.36',1162475231,1,0,1,1,1,0,'','','Simply superb.\n\nHappy to know that OUR FIVETECH \nis becoming stronger and stronger.\n\n- Ramesh Babu P','',0,'gA==','hbjcikkb',1,0,'',190,0,0),(21177,4796,6,104,0,'201.58.77.121',1162476233,1,0,1,1,1,0,'','Classe para exibir regua (centometros)','Olá,\n\nAlguém sabe se existe alguma classe para desenhar uma regua em uma window/dialog ?\n\n[img:mnenidqf]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/regua&#46;png[/img:mnenidqf]\n\nObrigado,\n\nRossine.','',0,'CA==','mnenidqf',1,0,'',104,0,0),(21178,4797,6,294,0,'201.250.192.167',1162478034,1,0,1,1,1,1,'','Error en Windows 95','Hola Gente:\nTengo una varias terminales con Windows 95 y cuando quiero abrir una .DBF me da error de corrupcion. El mismo programa en Windows XP funciona correctamente. Alguien tuvo una situacion parecida. Uso DBFNTX, HARBOUR Y FWH 2.7 de Marzo de 2006 y Harbour build 45.0','',0,'CA==','nqh8r81j',1,0,'',294,0,0),(21179,4779,5,335,0,'68.193.88.53',1162479180,1,0,1,1,1,0,'','','This will greatly expand the market for our applications. Soon we won\'t have to turn away Mac users who don\'t want to use their Macs in \"Windows emulation\" mode (which many don\'t even have) in order to run our apps. Terrific!\n\n- Roger','',0,'CA==','11r7sr0b',1,0,'',335,0,0),(21180,4766,3,335,0,'68.193.88.53',1162479368,1,0,1,1,1,0,'','','Yes, Enrico\'s fix works fine.  Thanks.\n\n- Roger','',0,'CA==','3a9ms68q',1,0,'',335,0,0),(21181,4797,6,138,0,'189.170.15.203',1162480511,1,0,1,1,1,1,'','','Corrijanme si estoy equivocado, pero tengo entendido que las aplicaciones de 32 bits hechas con Harbour solo funcionan en sistemas operativos Windows 98 SE y superiores, asi que necesitarás cambiar el SO de los terminales 95','',0,'CA==','3h3linj4',1,0,'',138,0,0),(21182,4779,5,49,0,'213.82.134.66',1162481333,1,0,1,1,1,1,'','','U\' RE FANTASTIC...\nWHEN An FIVENET ?','',0,'CA==','stje8tkd',1,0,'',49,0,0),(21183,4796,6,49,0,'213.82.134.66',1162481472,1,0,1,1,1,1,'','','THERE WAS TREGLA BUt I not know where u can download it \n\nPls ROssine can you send me at private email  . Tanks','',0,'CA==','3e27p0zn',1,0,'',49,0,0),(21184,4768,3,335,0,'68.193.88.53',1162482389,1,0,1,1,1,0,'','','Rene,\n\nDid you mean to say \"trnasform the size into pixels\" instead of \"transform the size into centimeters\"?\n\nHere is what you said:\n\n\"4th and 5th parameter are the SIZE of the image, (131,168) you have to transform the size into centimeters (the same way you did with the coordinates of the position.)\"\n\nThis appears to be how the coordinates of the position are set in the code:\n\naRowCol := oPrn:Cmtr2Pix(1,1) \n\nThe TPrinter method Cmtr2Pix() apparently transforms a number from centimeters into pixels instead of from pixels into centimeters.\n\nAlthough TPrinter has a method to convert pixels into inches, it doesn\'t seem to have a method to convert pixels into centimeters (which one could easily create).\n\nIf you are correct that the dimensional values of the bitmap have to be given in centimeters in order to properly show the bitmap at the same size regardless of printer resolution, this is an important concept for us to understand.  (I\'ve had to wrestle with it myself.) But if so, apparently Cmtr2Pix() isn\'t the way to make that transformation - another method is needed.\n\n- Roger','',0,'CA==','2e2my1si',1,0,'',335,0,0),(21185,4768,3,335,0,'68.193.88.53',1162482575,1,0,1,1,1,0,'','','Rene,\n\nDid you mean to say \"transform the size into pixels\" instead of \"transform the size into centimeters\"?\n\nHere is what you said:\n\n\"4th and 5th parameter are the SIZE of the image, (131,168) you have to transform the size into centimeters (the same way you did with the coordinates of the position.)\"\n\nThis appears to be how the coordinates of the position are set in the code:\n\naRowCol := oPrn:Cmtr2Pix(1,1) \n\nThe TPrinter method Cmtr2Pix() apparently transforms a number from centimeters into pixels instead of from pixels into centimeters.\n\nAlthough TPrinter has a method to convert pixels into inches, it doesn\'t seem to have a method to convert pixels into centimeters (which one could easily create).\n\nIf you indeed meant that the dimensional values of the bitmap have to be given in centimeters in order to properly show the bitmap at the same size regardless of printer resolution, this is an important concept for us to understand.  (I\'ve had to wrestle with it myself.) But if so, apparently Cmtr2Pix() isn\'t the way to make that transformation - another method is needed.\n\n- Roger','',0,'CA==','1qfw9qru',1,0,'',335,0,0),(21186,4779,5,335,0,'68.193.88.53',1162482860,1,0,1,1,1,0,'','','Silvio,\n\nWe\'ll just have to clone Antonio in order to get everything right now.\n\n- Roger','',0,'CA==','3o0syk8r',1,0,'',335,0,0),(21187,4768,3,6,0,'87.19.208.175',1162483416,1,0,1,1,1,1,'','Re: Printing of Images on Printers having different resoluti','[code:1gfgy00r]         aRowCol &#58;= oPrn&#58;Cmtr2Pix&#40;1,1&#41; \n         aSize   &#58;= oPrn&#58;Cmtr2Pix&#40;1&#46;5,1&#46;5&#41; \n          \n         oPrn&#58;SayBitmap&#40;aRowCol&#91;1&#93;, aRowCol&#91;2&#93;,&quot;c&#58;\\fwharbour\\bitmaps\\fivewin&#46;bmp&quot;, aSize&#91;2&#93;, aSize&#91;1&#93;&#41;[/code:1gfgy00r]\n\nEMG','',0,'AIA=','1gfgy00r',1,0,'',6,0,0),(21188,4798,4,13,0,'213.76.252.200',1162486241,1,0,1,1,1,0,'','Class method','Antonio,\n\nIs this possible to create class like this where ::ShowTest() method is call for get object ?\n\nThanks for help\nPawel\n\n[code:19levqht]\nFunction ClassTest &#40;&#41;\n\n   Local oTest &#58;= Nil\n\n   oTest &#58;= Test &#40;&#41; &#58; New &#40;&#41;\n\nReturn &#46;T&#46;\n\nClass Test\n\n   Data oWnd\n   Data oGet1\n   Data cGet1 Init Space &#40;10&#41;\n\n   Method New &#40;&#41;\n   Method ReadTest &#40;&#41;\n   Method ShowTest &#40;&#41;\n\nEndClass\n\nMethod New &#40;&#41; Class Test\n\n   Define Window &#58;&#58;oWnd Title \'Class Test\'\n   @ 10, 10 Button \'Ok\' Size 60, 20 Pixel Action &#58;&#58;ReadTest &#40;&#41;\n   Activate Window &#58;&#58;oWnd\n\nReturn Self\n\nMethod ReadTest &#40;&#41; Class Test\n\n   @ 40, 10 Get &#58;&#58;oGet1 Var &#58;&#58;cGet1 Size 100, 20 Pixel On Change &#58;&#58;ShowTest &#40;&#41; Of &#58;&#58;oWnd // this generate error message not found TGET&#58;SHOWTEST\n   @ 70, 10 Button \'Ok\' Size 60, 20 Pixel Action MsgInfo &#40;Str &#40;&#58;&#58;oGet1 &#58; nPos&#41;&#41;\n\nReturn &#46;T&#46;\n\nMethod ShowTest &#40;&#41; Class Test\n\n   MsgInfo &#40;Str &#40;&#58;&#58;oGet1 &#58; nPos&#41;&#41;\n\nReturn &#46;T&#46;\n[/code:19levqht]','',0,'AIA=','19levqht',1,0,'',13,0,0),(21189,3308,6,180,0,'83.45.251.182',1162486587,1,0,1,1,1,0,'','','Gracias wmormar, desgraciadamente el orden en que lo pongas no tiene incidencia alguna.\n\nUn saludo,\nManuel','',0,'AIA=','2bf9vn7v',1,0,'',180,0,0),(21190,4271,6,73,0,'200.66.32.97',1162490211,1,0,1,1,1,0,'','','ai va otra mas...\n<!-- m --><a class=\"postlink\" href=\"http://img334.imageshack.us/my.php?image=pdvck9.jpg\">http://img334.imageshack.us/my.php?image=pdvck9.jpg</a><!-- m -->\nsalu2\npaco[/quote]','',0,'','3si547b3',1,0,'',73,0,0),(21191,4271,6,73,0,'200.66.32.97',1162490577,1,0,1,1,1,0,'','','otra mas...\n<!-- m --><a class=\"postlink\" href=\"http://img67.imageshack.us/img67/3259/moneyvv2.jpg\">http://img67.imageshack.us/img67/3259/moneyvv2.jpg</a><!-- m -->','',0,'','tty04f25',1,0,'',73,0,0),(21192,4750,7,720,0,'80.36.244.134',1162490684,1,0,1,1,1,0,'','','Gracias Antonio por la ayuda. La verdad es que me falta poco para que me funcione lo que quiero. El problema que me encuentro es que no se como hacer que  cuando se pulse en una linea se cambie de color y cuando se vuelva a pulsar en el mismo sitio vuelva a cambiar el color....\n\n\nEl codigo en el que quiero poner eso es este..\n\n--------------------------------------\nFUNCTION Listado_de_articulos()\n--------------------------------------\n\nLOCAL hBmp := ReadBitmap( CurDir() + \"\\go.bmp\" )\nLOCAL ocolor:=RGB(255,255,255),ocolor2:=RGB(123,123,123)\n   \n    SELECT articulos\n    articulos-&gt;(DbGoTop())	\n    DEFINE dialog odlg resource \"Listado_articulos\"\n    \n       redefine LISTBOX oBrw;\n        FIELDS hBmp, articulos-&gt;cod_art, articulos-&gt;nom_art;\n        HEADERS \"\",\"Código\", \"Descripción\" ID 500 OF oDlg\n        	   	\n       redefine button id 140 of odlg action;\n      ( nRecno := articulos-&gt;( Recno() ),oDlg:End(),cesta_de_compra())\n       redefine button id 150 of odlg action odlg:end(),registros()\n\n       oBrw:nClrPane := { || If( articulos-&gt;lSelect, ocolor2, ocolor ) }   \n       odlg:setcolor(RGB(1,1,1),RGB(230,184,94))\n     \n    ACTIVATE dialog odlg\n\nRETU nil\n\nSaludos y gracias \n\nElías Torres.','',0,'','wh5fn3dt',1,0,'',720,0,0),(21193,4778,3,109,0,'200.52.196.1',1162492930,1,0,1,1,1,0,'','','Sr. Linars\nAqui los Cambios\n[quote:1c7og2qz]\n\n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=c:\\xHarb27f\nBCDIR=c:\\bc5527\nFWDIR=c:\\fwh27F\nRGDIR=c:\\rglib\n\n#change these paths as needed\n.path.PRG = $(RGDIR)\\fuentes\n.path.OBJ = $(RGDIR)\\obj\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include;$(RGDIR)\\include\n.path.C   = $(RGDIR)\\fuentes\n.path.rc  = $(RGDIR)\\fuentes\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\nPRG =        \\\n    testsis.PRG \\\n    factura.PRG \\\n    systab.PRG \\\n    mantcata.PRG \\\n    tsys.PRG \\\n    ttable.PRG \\\n    tfield.PRG \\\n    tindex.PRG \\\n    tmaint.PRG \\\n    maint_.PRG \\\n    fnext.PRG \\\n    xfer.PRG \\\n    tdetail.PRG \\\n    tcbrowse.PRG \\\n    rgflib.PRG\n\n\nC =          \\\nrgfuncs.C\n\nPROJECT    : Testsis.exe\n\nTestsis.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) Testsis.res\n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n   echo obj\\testsis.obj obj\\factura.obj obj\\systab.obj, + &gt;&gt; b32.bc\n   echo obj\\mantcata.obj obj\\tsys.obj obj\\ttable.obj, + &gt;&gt; b32.bc\n   echo obj\\tfield.obj obj\\tindex.obj obj\\tmaint.obj, + &gt;&gt; b32.bc\n   echo obj\\maint_.obj obj\\fnext.obj obj\\xfer.obj, + &gt;&gt; b32.bc\n   echo obj\\tdetail.obj obj\\tcbrowse.obj obj\\rgflib.obj, + &gt;&gt; b32.bc\n   echo obj\\rgfuncs.obj, + &gt;&gt; b32.bc\n   echo Testsis.exe, + &gt;&gt; b32.bc\n   echo testsis.map, + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveHX.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\gtwin.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\dbfcdx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\dbffpt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\hbsix.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\codepage.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\b32\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\b32\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\n   IF EXIST Testsis.res echo Testsis.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n   del b32.bc\n\n.PRG.OBJ:\n  $(HBDIR)\\bin\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include;$(RGDIR)\\include\n  $(BCDIR)\\bin\\bcc32 -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n  del tmp\n\nTestsis.res : Testsis.rc\n  $(BCDIR)\\bin\\brc32.exe -r Testsis.rc[/quote:1c7og2qz]','',0,'gA==','1c7og2qz',1,0,'',109,0,0),(21194,4799,6,73,0,'200.66.32.97',1162494439,1,0,1,1,1,0,'','error en tgraph','me he percatado que al imprimir un grafica pero en tipo: \"puntos y lineas en 2d\" truena el programa, con \"barras y pie en 2d y 3d\" no pasa, alguna sugerencia?\n<!-- m --><a class=\"postlink\" href=\"http://img119.imageshack.us/img119/6479/errorgraficafl3.jpg\">http://img119.imageshack.us/img119/6479 ... icafl3.jpg</a><!-- m -->\ngracias\nPaco','',0,'gA==','1zx8rrbu',1,0,'',73,0,0),(21196,4778,3,109,0,'200.52.196.1',1162497864,1,0,1,1,1,0,'','','Sr. Linares.\n\n  Aprovechando el hilo.\n\n   La funcion FixSays(), en donde la puedo encontrar ?.\n   ó biene en alguna libreria? (FIVEHC, FIVEHX????)\n\n\n\n   Trabajo con FWH 2.7 y el Build de Febrero 2006.\n\n\nGracias','',0,'CA==','i1a81m7r',1,0,'',109,0,0),(21197,4793,1,170,0,'83.179.68.139',1162503680,1,0,1,1,1,1,'','Re: Database readwrite and read only detection','Bonjour Gilbert,\n\n[quote=&quot;Gilbert&quot;:2mh90pzn]I`m looking for a function that could evaluate the opened indexes when needed.[/quote:2mh90pzn]\n\nVoici une fonction 100 % opérationnelle !\n\n\n[code:2mh90pzn]\n*******************\nFUNCTION INDEXACTIF&#40;&#41;\n*******************\n* Creation le 10/09/1998\n* Auteur Badara Thiam\n* Retourne les index actifs dans la base de données courante,\n* sous forme d\'un tableau dont chaque élément est un index\nLOCAL TT &#58;= &#123; &#123;&#125;, 1, NIL &#125;\nDO WHILE &#46;T&#46;\n  TT&#91;3&#93; &#58;= ORDNAME&#40;TT&#91;2&#93;, ORDBAGNAME&#40;TT&#91;2&#93;&#41;&#41;\n  IF TT&#91;3&#93; != &quot;&quot;\n    AADD&#40;TT&#91;1&#93;, TT&#91;3&#93;&#41;\n    TT&#91;2&#93; ++\n  ELSE\n    EXIT\n  ENDIF\nENDDO\nRETURN ACLONE&#40;TT&#91;1&#93;&#41;\n[/code:2mh90pzn]\n\nRegards,  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gIA=','2mh90pzn',1,0,'',170,0,0),(21198,4271,6,582,0,'201.252.36.35',1162507635,1,0,1,1,1,0,'','','[quote=&quot;Francisco Horta&quot;:y7xaccdf]otra mas...\n<!-- m --><a class=\"postlink\" href=\"http://img67.imageshack.us/img67/3259/moneyvv2.jpg\">http://img67.imageshack.us/img67/3259/moneyvv2.jpg</a><!-- m -->[/quote:y7xaccdf]\n\nMuy buena !!!\nAhora Francisco como lograste los get con el estilo \"FLAT\"?\nO es un theme que estas usando ?\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','y7xaccdf',1,0,'',582,0,0),(21199,4271,6,73,0,'200.66.32.97',1162511524,1,0,1,1,1,0,'','','Loco, son simples editbox con la btnget, uso themes de xp pero no me los toma, ya que con el xp normal se ven igual.\nSalu2\nPaco','',0,'gA==','1zdqwcza',1,0,'',73,0,0),(21200,2730,6,49,0,'62.13.172.78',1162514157,1,0,1,1,1,1,'','','Vladimir, \ncan you send me at private email your visual designer for label ?','',0,'gA==','6q7tkyr0',1,0,'',49,0,0),(21201,4793,1,186,0,'66.130.50.142',1162517260,1,0,1,1,1,1,'','','Bonjour Badara,\n\n\nMerci, je teste ca immédiatement  et je t`en donnes des nouvelles.\n\n\n\n\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','1fzcck1x',1,0,'',186,0,0),(21202,4271,6,307,0,'200.79.146.231',1162517705,1,0,1,1,1,0,'','pantallas','saludos,muy bonitas pantallas, el caso es.. algun ejemplo de codigo de Como poner los diseños en las pantallas.. o de como manipular el workshop para que por ejemplo los dialogos diseñados se puedan modificar en tiempo de corrida por ejem. cambiarle el tipo y el color de la letra, etc.. no solo dejarlo como lo hace el workshop sin colores.\n\nsaludos\n\nArvisnet','',0,'gA==','3pq1pv6v',1,0,'',307,0,0),(21203,4793,1,186,0,'66.130.50.142',1162521399,1,0,1,1,1,1,'','','Bonjour Badara,\n\n\nJe te remercie pour le petit truc. Ca fonctionne à merveille avec les index multiples .CDX, par contre j`ai aussi besoin de faire la même chose avec des index indépendants. C`est à dire plusieurs .CDX ouvert individuellement.\n\nGrace à ton truc j`ai réussi à faire les deux. Il fallait y penser et ton truc ma mis sur la piste. Voici le code:\n\nlocal cOrders\nlocal nOrders := 0\n\ndo while .T.\n   cOrders := OrdBagName(nOrders +1)\n   if cOrder == ``\n      exit\n   endif\n   ++nOrders\nenddo\n\nEt voilà, le tour est joué. \n \nMerci <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[/code]','',0,'','1eqwhv3o',1,0,'',186,0,0),(21204,4799,6,72,0,'189.136.200.239',1162526562,1,0,1,1,1,0,'','','Mmm... ya ví.\n\nEl culpable el pintado a doble buffer, se está perdiendo el recurso hPen. Pero no se como se come eso, ya Antonio me había comentado una solución pero no recuerdo.','',0,'','2pddx2yn',1,0,'',72,0,0),(21205,4271,6,582,0,'201.252.97.67',1162526905,1,0,1,1,1,0,'','','[quote=&quot;Francisco Horta&quot;:1rlzc8ya]Loco, son simples editbox con la btnget, uso themes de xp pero no me los toma, ya que con el xp normal se ven igual.\nSalu2\nPaco[/quote:1rlzc8ya]\nPaco gracias por la aclaracion.\nUn abrazo. El Loco =&gt;))','',0,'gA==','1rlzc8ya',1,0,'',582,0,0),(21206,4271,6,72,0,'189.136.200.239',1162532313,1,0,1,1,1,0,'','','Arvisnet, puedes colocar lo que gustes, si buscas código puedes revisar el mensaje \'Solo para presumir...\' ahí está una imágen y una liga al código; todas lás áreas son controladas por spliters, son totalmente flexibles y pueden ser modificadas como se desee durante la ejecución. \n\nTodo es cuestión de imaginación (diseño, como sugiere René) y habilidad en el manejo de estas herramientas.','',0,'gA==','21zm9x50',1,0,'',72,0,0),(21207,4750,7,720,0,'80.36.244.134',1162545247,1,0,1,1,1,0,'','','Hola a todos....\n\nBueno he sacado la forma de marcar y desmarcar la linea, lo malo es que solo he podido hacerlo de la siguiente manera, marco con el botón izquierdo y desmarco con el derecho. Esto me funciona pero creo que no es  la mejor forma (para lo que yo quiero). Entonces se me ha ocurrido que lo mejor seria poner un \'check\' para cada linea con lo que si lo marco se marcaria la linea y si lo desmarco se desmarcaría esa linea...¿esto es posible?. ¿Existe alguna forma de integrar un check box en el brows?...\n\n\nUn saludo y gracias por la respuesta Antonio, ha sido de gran  ayuda como siempre...\n\nElías Torres.','',0,'gA==','14b7ffb2',1,0,'',720,0,0),(21208,4750,7,456,0,'62.43.194.117',1162548880,1,0,1,1,1,1,'','','Hola Elias, no se si he entendido bien lo que quieres hacer. \nPrueba con el siguiente codigo.\n[code:15vzvb44]oBrw&#58;blClicked&#58;=&#123;||Articulos-&gt;lSelect&#58;=!Articulos-&gt;lSelect,oBrw&#58;Refresh&#40;&#41;&#125;[/code:15vzvb44]','',0,'AIA=','15vzvb44',1,0,'',456,0,0),(21209,4797,6,294,0,'201.250.192.37',1162548965,1,0,1,1,1,1,'','','Gracias Rene...  O sea que si la compilo con FW para Clipper, tendria que andar??','',0,'AIA=','39q41c78',1,0,'',294,0,0),(21210,4800,3,67,0,'62.235.24.72',1162551631,1,0,1,1,1,0,'','Autofill get from first chatacter','Hello,\n\nNext code did work with previous versions from fw , now it fails :\n\n[code:2pc7jotk]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n   LOCAL oDlg , butok\n   LOCAL cCad &#58;= &quot;         &quot; \n   DEFINE DIALOG oDlg TITLE &quot;TGet from &quot; + FWDESCRIPTION\n   @ 1,    2 SAY &quot;Text&#46;&#46;&#58;&quot; OF oDlg\n   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;   ;\nON CHANGE VulGetAan&#40;oGet , &#123;&quot;E&quot;,&quot;P&quot;&#125; , &#123;&quot;e-mail&quot;,&quot;Pakjes&quot;&#125; , ButOk&#41;//tracelog&#40;oGet&#91;3&#93;&#58;nLastKey &#41;\n   @ 3,    7 BUTTON ButOk PROMPT &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3,   16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n\n   ACTIVATE DIALOG oDlg CENTERED \n\nreturn nil\n//------------------------------------------------------------------------//\nPROC VulGetAan&#40;oGet, ArrCode , ArrVal , ButOk&#41;\n**********************************************\nLOCAL x &#58;= CHR&#40;oGet&#58;nLastKey&#41; , i\nIF x == CHR&#40;13&#41;\n	ButOk&#58;setFocus&#40;&#41;\nEND\n\ntracelog&#40;x , oGet&#58;nPos&#41;\nIF oGet&#58;nPos &gt; 1\n	RETURN\nEND\nIF &#40; i &#58;= ASCAN&#40;ArrCode , x&#41; &#41; &gt; 0\n	oGet&#58;oGet&#58;Buffer &#58;= ArrVal&#91;i&#93;\n	oGet&#58;Assign&#40;&#41;\n	oGet&#58;Refresh&#40;&#41;\nEND\nRETURN\n\n[/code:2pc7jotk]\n\nIt seems that now oGet:nPos starts with 2 , changing \n\nIF oGet:nPos &gt; 1 in oGet:nPos &gt; 2 \n\nThen it works\n\nAnother problem is that the cursor remains on position 1 , i can\'t move it to the next position.\n\nI tryed with oGet:Setpos(3) , oGet:npos := oGet:oGet:npos := 3 , ......\n\nFrank','',0,'AIA=','2pc7jotk',1,0,'',67,0,0),(21211,4750,7,720,0,'80.36.244.134',1162551786,1,0,1,1,1,0,'','','Hola Biel, gracias por la ayuda es lo que me hacia falta.\n\nUna duda..cuando estoy en un dialogo y desde alli llamo a otro, cuando salgo de este ultimo me vuelve al anterior. Es como que no se cierra el dialogo antes de llamar al segundo. Yo lo que estoy haciendo antes de llamar al segundo es terminar el primero con action odlg:end(), pero parece que no hace lo que pretendo...\n\nUn saludo y gracias por la ayuda, sin este foro las cosas se me complicarían mucho....\n\nElías Torres.','',0,'AIA=','xoi77wju',1,0,'',720,0,0),(21212,4750,7,2,0,'87.218.146.202',1162552516,1,0,1,1,1,1,'','','Elías,\n\nSi desde un diálogo modal llamas a otro, el anterior permanece activo. La forma de hacer lo que quieres es llamar al segundo despues de la activación del primero:\n\nDEFINE DIALOG oDlg1 ...\n\nACTIVATE DIALOG oDlg1\n\n// Aqui ya se ha terminado con oDlg1\n\nDEFINE DIALOG oDlg2 ...\n\nACTIVATE DIALOG oDlg2','',0,'AIA=','ia5tch4n',1,0,'',2,0,0),(21213,4801,6,81,0,'80.28.244.140',1162554675,1,0,1,1,1,0,'','nStrhash','Llamo a la funcion nstrhash y me devuelve:\nError: Unresolved external \'_HB_FUN_NSTRHASH\' referenced from \nEsta funcion esta incluida en fwh 2.4 ??\nHay que hacer algo para que la encuentre o solo linkando la libreria fwhc.lib es suficiente??\nAlguien ha tenido que generar la clave hash que se necesita en los tpv virtuales?? \nEsta funcion es adecuada para que me devuelva la clave que necesito??\nSaludos y gracias.','',0,'AIA=','3h66sw4t',1,0,'',81,0,0),(21214,4708,6,196,0,'190.48.200.249',1162555687,1,0,1,1,1,0,'','','Rene, aunque no sea tu cliente, hay posibilidad de tener una copia de ese manual.\n\nGracias\nJorge Jaurena\n<!-- e --><a href=\"mailto:jjaurena@yahoo.com\">jjaurena@yahoo.com</a><!-- e -->','',0,'AIA=','3jt3v0n0',1,0,'',196,0,0),(21215,4802,7,425,0,'213.22.46.89',1162555925,1,0,1,1,1,0,'','attach files with MailTo','Hi\n\nIs possible to attach files using MailTo: \n\nI can´t use SMTP because the Intranet uses a exchange server\n\nRegards\n\n        Pedro','',0,'AIA=','a9kwz1tn',1,0,'',425,0,0),(21216,4803,3,425,0,'213.22.46.89',1162556020,1,0,1,1,1,0,'','Attach Files using MailTo:','Hi \n\nIs possible to attach files using MailTo: \n\nI can´t use SMTP because the Intranet uses a exchange server \n\nRegards \n\nPedro','',0,'AIA=','1kkfm2lx',1,0,'',425,0,0),(21217,4740,4,13,0,'213.76.252.200',1162561643,1,0,1,1,1,0,'','','Antonio,\n\nCall this function don\'t solve problem. In several places program show important data for user and should by wait for end user actions. In other situation window contents is dependent of other window and I must to know when second window is closed and do action eg. refresh objects in first window etc. Where we have little big project with many windows and many objects like browse, say, get, button and other is there little problem to multiple pass parameters to function where window is activate.\n\nComma separated commands with modal-only window were is the best programming solution in FWPPC. Program code were simple and forceful.\n\nThanks\nPawel','',0,'AIA=','2o1qippp',1,0,'',13,0,0),(21218,4803,3,217,0,'200.159.120.34',1162563724,1,0,1,1,1,0,'','Re: Attach Files using MailTo:','Pedro,\n\nIf you refer to use Windows \"mailto:\" command it\'s not possible.\n\nRegards,\nMaurilio','',0,'AIA=','11q11e14',1,0,'',217,0,0),(21219,4803,3,456,0,'62.43.194.117',1162570723,1,0,1,1,1,1,'','','[code:2dyforn6]\n   LOCAL cTexto&#58;=  &quot;txt &#46;&#46;&#46;&#46;&quot;,;\n         eSubject&#58;=&quot;?Subject=&quot;+ cTexto,;\n         eBody&#58;=&quot;&amp;body=&quot; + cTexto ,;\n         eTo&#58;=&quot;mailto&#58;bmaimo@piema&#46;info&quot;,;\n         eAttachment&#58;=&quot;&amp;attach=\\My Documents\\file&#46;txt&quot;,;\n         CmdLine &#58;= eTo+eSubject+ebody+eAttachment\n\n   Shellexecute&#40;ownd&#58;hWnd,&quot;open&quot;,cMdLine &#41;\n[/code:2dyforn6]','',0,'AIA=','2dyforn6',1,1162578061,'',456,1,0),(21220,3308,6,43,0,'189.128.87.123',1162571813,1,0,1,1,1,0,'','','Eso mismo William\n\nYo he experimentado cambio de comportamiento del xbrowse cuando cambias de lugar el :CreateFromResource.\n\nManuel deberias de probar moverlo de lugar a ver que sucede.\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','1ud035ew',1,0,'',43,0,0),(21221,4803,3,217,0,'200.159.120.34',1162572654,1,0,1,1,1,0,'','','Biel,\n\nI think mailto: have not \'Attach\' parameter  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/workshop/networking/predefined/mailto.asp\">http://msdn.microsoft.com/library/defau ... mailto.asp</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.ianr.unl.edu/internet/mailto.html\">http://www.ianr.unl.edu/internet/mailto.html</a><!-- m -->\n\nRegards\nMaurilio','',0,'AIA=','38c6jwd6',1,0,'',217,0,0),(21222,2767,4,13,0,'213.76.252.200',1162573519,1,0,1,1,1,0,'','','Vilian\n\nYou may build lib with MS eVC++. Simply add source and header files to static library new project. It\'s build with no problems.\n\nRegards\nPawel','',0,'AIA=','3oenfu4h',1,0,'',13,0,0),(21223,4803,3,456,0,'62.43.194.117',1162578040,1,0,1,1,1,1,'','','You are right Maurilio, maybe in the past, but today &amp;Attach is not running. \nI have an old VB code using &amp;Attach, but after testing  today I can see it\'s not running. [code:147o28lu]&#46;&#46;&#46;\nsAddedText = sAddedText &amp; &quot;&amp;Attach=&quot; &amp; Chr&#40;34&#41; &amp; txtAttachmentFileLocation &amp; Chr&#40;34&#41;\nCall ShellExecute&#40;Me&#46;hWnd, &quot;open&quot;, sText, vbNullString, vbNullString, SW_SHOWNORMAL&#41;\n   [/code:147o28lu]','',0,'AIA=','147o28lu',1,0,'',456,0,0),(21224,4799,6,73,0,'200.66.32.97',1162578621,1,0,1,1,1,0,'','','ok, esperemos a ver que resulta de la memoria, \ngracias, alfredo, de cualquier forma pues intentare mandarlo grabar a un bmp y luego imprimir ese bmp, de momento es lo que se me ocurre para darle solucion, aunque pues no la considero correcta.\npor cierto hice unas pequeñas modificaciones en la clase para los graficos tipo pie, que se salia del recuadro y se comia parte de los subtitulos, por ahi me atrevi a moverle y parece que ya quedo...\nsalu2\npaco','',0,'AIA=','1zumw5sn',1,0,'',73,0,0),(21225,4780,8,45,0,'201.253.1.124',1162586734,1,0,1,1,1,0,'','Re: FiveMac - primeras imágenes','IMMMMMMpresionante  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','2p844aco',1,0,'',45,0,0),(21226,4804,6,53,0,'189.139.20.79',1162587134,1,0,1,1,1,1,'','Ficheros .MEM','Amigos:\n\nxHarbour soporta los ficheros .MEM  ?????\n\nSAVE TO (GetSysDir()+cFilNam) ALL LIKE dFecha*\nRESTORE FROM (GetSysDir()+cFilNam) ADDITIVE\n\nLo he intentado pero no me recupera las variables salvadas.\n\nSaludos, Armando','',0,'AIA=','fntevptl',1,0,'',53,0,0),(21227,4475,1,10,0,'85.155.146.89',1162587453,1,0,1,1,1,0,'','','Miguel:\nPrueba quitando las líneas que te digo:\n\nBLINKER executable compress \nblinker INCREMENTAL OFF \nBLINKER CLIPPER SYMBOL OFF \nBLINKER SEGMENT THRESHOLD 65500 &lt;--- (ELIMINALA)\nSTACK 7068 &lt;----------------------------------(ELIMINALA)\nBLINKER PROCEDURE DEPTH 70 &lt;-----------(ELIMINALA)\n\nPor otro lado veo que tienes el Blinker 5.1, intenta linkarlo con la v.7.0\n\n¡¡¡Suerte!!!','',0,'AIA=','iqan9906',1,0,'',10,0,0),(21228,4482,2,10,0,'85.155.146.89',1162587561,1,0,1,1,1,0,'','','Publicado: Vie Nov 03, 2006 8:57 pm    Asunto:      \n\n--------------------------------------------------------------------------------\n \nMiguel: \nPrueba quitando las líneas que te digo: \n\nBLINKER executable compress \nblinker INCREMENTAL OFF \nBLINKER CLIPPER SYMBOL OFF \nBLINKER SEGMENT THRESHOLD 65500 &lt;--- (ELIMINALA) \nSTACK 7068 &lt;----------------------------------(ELIMINALA) \nBLINKER PROCEDURE DEPTH 70 &lt;-----------(ELIMINALA) \n\nPor otro lado veo que tienes el Blinker 5.1, intenta linkarlo con la v.7.0 \n\n¡¡¡Suerte!!!','',0,'AIA=','1gmyw70q',1,0,'',10,0,0),(21230,4780,8,496,0,'200.107.36.176',1162592106,1,0,1,1,1,0,'','','Fantástico!!!!\n\nFelicitaciones, eso era lo que nos hacía falta  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nUn saludo\n\nMarcelo Jingo','',0,'AIA=','21bxg87x',1,0,'',496,0,0),(21231,4805,6,519,0,'83.32.144.238',1162593603,1,0,1,1,1,0,'','Twbrowse de Hernan  ?','Hola\n\n   Hernan para cuando la nueva versión 18  ?\n\n    Venga hombre animate y nos das una pequeña alegria que somos muchos los  que utilizamos tu clase.\n\n\n  Un saludo','',0,'AIA=','1s2fmx24',1,0,'',519,0,0),(21232,4527,3,109,0,'200.77.6.235',1162593898,1,0,1,1,1,0,'','','Me contesto yo solo\n\n   SOLUCIONADO.','',0,'AIA=','3o8xvxzw',1,0,'',109,0,0),(21233,4740,4,2,0,'87.218.146.202',1162595664,1,0,1,1,1,1,'','','Pawel,\n\nYou may try this modification: In source\\classes\\window.prg Method Activate():\n\n   // if Self == oWndMain\n      WinRun()\n   // endif   \n\nThis way, it will execute in a modal way. Please try it there and lets see how it works for you.','',0,'AIA=','3akf1i94',1,0,'',2,0,0),(21234,4806,2,774,0,'164.77.167.254',1162596371,1,0,1,1,1,1,'','URGENTE F1 HELP COMO QUITARLO','Mi duda es como evito que al precionar la tecla F1 entre al Help\n\nYa que si lo preciono varias veces seguidas, y como mi sistema no requiere Ayuda,, se habre una y otra vez el help hasta q se agota la memoria y se cae el programa\n\nalguien sabe como hacer\n\nGRACIAS','',0,'AIA=','1d5zkk2b',1,0,'',774,0,0),(21235,4787,7,150,0,'62.15.125.243',1162596730,1,0,1,1,1,1,'','','Para usar la clausula SHARED se requiere Mobile 5. Aún asi a mi no me funcionó (usando mc-70 de symbol)\n\nResolví el problema usando Terminal Server. Mira unos mensajes de RF que te pueden ser útiles.\n\nTambién lo puedes plantear usando ficheros de intercambio, mira un mensaje de Antonio','',0,'AIA=','lgew4crz',1,0,'',150,0,0),(21236,4770,3,190,0,'202.65.134.36',1162596819,1,0,1,1,1,0,'','','Hi Fernando Mancera.\n\nThis is an excellent work.  I need some clarifications.\n\nA) Can I take the focus on to the required buttons with Keyboard !.\n    ( I did not find it in your demos ).  I did not find any effect of Tab \n    Key on these buttons and there is no any shortcut key. In such \n    case the mouse is not working, it would  a problem to handle the\n    dialog.\n    \nB) Can we have the buttons to the sizes required by us.\n\nC) Can we use selected fonts on the controls ?.\n\nRegards\n\n- Ramesh Babu P','',0,'AIA=','2hv2cvw6',1,1162615728,'',190,1,0),(21237,4770,3,49,0,'62.13.172.78',1162600834,1,0,1,1,1,1,'','','Dear Richard\nIf you want tgant class 32 bit  you can use my  tplan class\nwrite to private email for the information','',0,'AIA=','2p267qxk',1,0,'',49,0,0),(21238,4527,3,215,0,'189.136.215.165',1162604798,1,0,1,1,1,0,'','','Hola,\n¿Y cual fué la solución?\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nSaludos','',0,'AIA=','195zdzow',1,0,'',215,0,0),(21239,4805,6,45,0,'200.117.129.207',1162606053,1,0,1,1,1,0,'','Re: Twbrowse de Hernan  ?','[quote=&quot;Frafive&quot;:12s15lf0]Hola\n\n   Hernan para cuando la nueva versión 18  ?\n\n    Venga hombre animate y nos das una pequeña alegria que somos muchos los  que utilizamos tu clase.\n\n\n  Un saludo[/quote:12s15lf0]\n\nFraFive,\n   Estoy Vivooo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->))))\n   No le he podido incorporar muchas cosas, solo algunas optimizaciones y correcciones. Aver si mañana me hago un tiempillo y dejo algo para este querido foro  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n   \nUn Abrazo a todo el foro\nHernan','',0,'gA==','12s15lf0',1,0,'',45,0,0),(21240,4807,3,190,0,'202.65.134.36',1162606119,1,0,1,1,1,0,'','Radio and Check Box Prompts disappearing in Transparent Dlgs','Hello Mr.Antonio\n\nI suspect that there is a bug in FWH 2.8 September + 0.99.1 (Simplex).\nWhen I use TRANSPARENT clause in DIALOGS in WIN98 SE or even \nwithout TRANSPARENT clause in WINXP, the Radio Button prompts and\nCheck Box prompts are disappearing when the focus is on them as shown\nin the following images.\n\nPlease advise me the solution.\n\nRegards to you\n\n- Ramesh Babu P\n\n[url=http&#58;//img168&#46;imageshack&#46;us/my&#46;php?image=transerrsn1&#46;jpg:3a3rvsz9][img:3a3rvsz9]http&#58;//img168&#46;imageshack&#46;us/img168/4130/transerrsn1&#46;th&#46;jpg[/img:3a3rvsz9][/url:3a3rvsz9]','',0,'GA==','3a3rvsz9',1,0,'',190,0,0),(21241,4805,6,492,0,'189.147.23.225',1162607533,1,0,1,1,1,1,'','','Fabuloso !!!!!!\n\nEsa es una noticia que mas de mil  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  queriamos escuchar Master !!!!!\n\nMuchas Gracias por tu estupenda clase.\n\n\nSaludos','',0,'GA==','1b3lpmkr',1,0,'',492,0,0),(21242,4805,6,785,0,'190.64.110.84',1162610170,1,0,1,1,1,0,'','','Gracias Hernán:\n\nPor cierto que somos muchos los que usamos tu clase.\n\nSaludos\n\nRuben Fernandez','',0,'GA==','3qwg1vrx',1,0,'',785,0,0),(21243,4780,8,785,0,'190.64.110.84',1162610226,1,0,1,1,1,0,'','','Recontra espectacular Maestro.\n\nGracias.\n\nRuben Fernandez','',0,'GA==','3giys5pq',1,0,'',785,0,0),(21244,4805,6,73,0,'200.66.32.97',1162616963,1,0,1,1,1,0,'','','Otro usuario FFFFFeeeeeeliz, me uno a la peticon, felicidades MMMMMaaaster!!\ndesde que uso fw uso wbrowse!!!\nsalu2\npaco','',0,'GA==','3ue65dw9',1,0,'',73,0,0),(21245,4740,4,13,0,'213.76.252.200',1162624519,1,0,1,1,1,0,'','','Antonio,\n\nAfter change this code only first call create second window. Message is show after close main window. I check process in PPC environment and when main window is closed program process still running.\nWhen I change this in Window.Prg:\n\n[code:qg1ish85]\n   if Self == oWndMain\n      oWndMain = nil\n      // PostQuitMessage&#40; 0 &#41;     \n   endif  \n   PostQuitMessage&#40; 0 &#41;     \n[/code:qg1ish85]\n\nit\'s look like windows is really modal now (windows and process is properly created and closed).\n\nThanks for help\nPawel\n\nSample code:\n[code:qg1ish85]\nFunction TestWnd1 &#40;&#41;\n   Local oWnd &#58;= Nil\n   Define Window oWnd Title \'Window 1\'\n   @ 50, 50 Button \'Window 2\' Size 100, 20 Pixel Action TestWnd2 &#40;&#41;\n   Activate Window oWnd\nReturn &#46;T&#46;\n\nFunction TestWnd2 &#40;&#41;\n   Local oWnd &#58;= Nil\n   Define Window oWnd Title \'Window 2\'\n   Activate Window oWnd\n   MsgInfo &#40;\'Window closed\'&#41;\nReturn &#46;T&#46;\n[/code:qg1ish85]','',0,'AIA=','qg1ish85',1,0,'',13,0,0),(21246,4808,20,837,0,'81.208.83.249',1162625867,1,0,1,1,1,1,'','Quale IDE GUI per FiveWin ?','Esistono degli IDE / GUI per FiveWin integrati con la gestione dei database ?\n\nAttualmente uso PellesC, è bello ma non lo trovo molto \"integrato\".\n\nEsistono prodotti migliori per lo sviluppo su FiveWin ?\n\nGrazie, Andrea.','',0,'AIA=','1hn20uaq',1,0,'',837,0,0),(21247,4779,5,163,0,'87.0.236.7',1162628000,1,0,1,1,1,0,'','','Hi Antonio.\nGreat work, fantastic. Many compliments.\nA little question. Next year I want to buy the FTDN. Will be this\nnew product included inside ?\nThanks a lot.\nMassimo.','',0,'AIA=','216wrk1i',1,0,'',163,0,0),(21248,4740,4,13,0,'213.76.252.200',1162633636,1,0,1,1,1,0,'','','Antonio,\n\nIf there changes for window.prg is valid please update command for activate window eg. add clause modal (activate window wnd modal).\n\nThanks for help\nPawel\n\nChanges for window.prg\n[code:2ritpe35]\n   if Self == oWndMain &#46;Or&#46; &#58;&#58;lModal\n      WinRun&#40;&#41;\n   endif \n   if Self == oWndMain\n      oWndMain = nil\n      PostQuitMessage&#40; 0 &#41; \n   else\n       if &#58;&#58;lModal\n          PostQuitMessage&#40; 0 &#41; \n       endif\n   endif \n[/code:2ritpe35]','',0,'AIA=','2ritpe35',1,0,'',13,0,0),(21249,4809,3,372,0,'83.118.100.14',1162638408,1,0,1,1,1,0,'','How to get Date and Time with oFTP','Hi,\n\ni\'m using oFTP:Directory(\"*.*\"), but it seems it only returns the name and file size. Is there any way to also retrieve the file\'s date and time?\n\nThanks,\n\nJohn.','',0,'AIA=','pdmxeeyd',1,0,'',372,0,0),(21250,4779,5,2,0,'87.218.146.211',1162641183,1,0,1,1,1,1,'','','Massimo,\n\nIt will not be included in the FTDN for the product launch, lets say one year aproximately.','',0,'AIA=','29omigxr',1,0,'',2,0,0),(21252,4770,3,190,0,'202.65.134.36',1162648536,1,0,1,1,1,0,'','','Mr.Fernando Mancera\n\nThank you for your clarifications.\n\nWaiting for November build.\n\n- Ramesh Babu P','',0,'AIA=','359jsiks',1,0,'',190,0,0),(21254,4805,6,72,0,'189.136.200.239',1162652340,1,0,1,1,1,0,'','','He aquí a otro usuario satisfecho. Gracias hDC.','',0,'AIA=','p9kj7mwe',1,0,'',72,0,0),(21255,4799,6,72,0,'189.136.200.239',1162652513,1,0,1,1,1,0,'','','Te agradeceré me hagas llegar esos ajustes al pie. Saludos Paco.','',0,'AIA=','sd8138rc',1,0,'',72,0,0),(21256,4792,6,838,0,'80.59.225.15',1162656679,1,0,1,1,1,0,'','','Gracias Antonio\n\nLo que pasa es que ahora me da el siguiente error:\n****************************\nCompilado y Enlazado de: [C:\\fuentes\\harbour\\mocwin2006\\gespaq.Exe]\nEjecución No. 3\nEjecutada a las: 17:00:27\n============================================================\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\fuentes\\harbour\\mocwin2006\\PRG\\gespaq.prg\'...\nLines 1205, Functions/Procedures 13\nGenerating C source output to \'C:\\fuentes\\harbour\\mocwin2006\\OBJ\\gespaq.hrb\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nC:\\fuentes\\harbour\\mocwin2006\\OBJ\\gespaq.hrb:\nError E2139 C:\\harbour\\Include\\hbstack.h 72: Declaration missing ;\nError E2238 C:\\harbour\\Include\\hbstack.h 73: Multiple declaration for \'PHB_ITEM\'\nError E2344 C:\\harbour\\Include\\hbstack.h 72: Earlier declaration of \'PHB_ITEM\'\nError E2139 C:\\harbour\\Include\\hbstack.h 73: Declaration missing ;\nError E2139 C:\\harbour\\Include\\hbstack.h 75: Declaration missing ;\nError E2238 C:\\harbour\\Include\\hbstack.h 76: Multiple declaration for \'PHB_ITEM\'\nError E2344 C:\\harbour\\Include\\hbstack.h 72: Earlier declaration of \'PHB_ITEM\'\nError E2139 C:\\harbour\\Include\\hbstack.h 76: Declaration missing ;\nError E2238 C:\\harbour\\Include\\hbstack.h 77: Multiple declaration for \'PHB_ITEM\'\nError E2344 C:\\harbour\\Include\\hbstack.h 72: Earlier declaration of \'PHB_ITEM\'\nError E2139 C:\\harbour\\Include\\hbstack.h 77: Declaration missing ;\nError E2141 C:\\harbour\\Include\\hbstack.h 151: Declaration syntax error\nError E2238 C:\\harbour\\Include\\hbapi.h 269: Multiple declaration for \'HB_ITEM_PTR\'\n*** 13 errors in Compile ***\n******************\n\nQue puede ser?\n\nSaludos\n\nJose Luis','',0,'','18jgjary',1,0,'',838,0,0),(21257,4757,3,299,0,'24.233.172.101',1162659201,1,0,1,0,1,0,'','','Hi.\n\nI also purchased the .dll version.  It is excellent.  My users love it.\n\nTim, thank you very much for the info.\n\n\nReinaldo Crespo-Bazán','',0,'','1ju62enl',1,0,'',299,0,0),(21258,4727,3,266,0,'202.188.50.36',1162661534,1,0,1,1,1,1,'','','where can I download hbole.lib ?','',0,'','1d66zrvp',1,0,'',266,0,0),(21259,4727,3,6,0,'87.11.236.249',1162661715,1,0,1,1,1,1,'','','Sent to your private email.\n\nEMG','',0,'','19v2zzfd',1,0,'',6,0,0),(21260,3308,6,299,0,'24.233.172.101',1162661766,1,0,1,0,1,0,'','','Manuel;\n\nRecuerdo que cuando comencé a trabajar con xbrowse tuve el mismo problema.  Pero hace tanto tiempo que ahora no recuerdo exactamente que lo causaba.\n\nIntenta poner el mando \"CreateFromResource(200)\" al final (es decir, despues del resto del código que muestras).  Si esto no funciona, me siento un rato a tratar de recordar.\n\n\n\n\nReinaldo Crespo-Bazán.','',0,'','3700u8ti',1,0,'',299,0,0),(21261,4810,3,141,0,'200.88.94.186',1162664045,1,0,1,1,1,1,'','Error BASE/1004  Message not found: TRFILE:HDCOUT','A ver...\n\nesto me pasa al tratar de generar un reporte como archivo de texto (que se genera correctamente cuando es a una impresora, y se imprime).  Lo extraño es que el error no ocurre al inicio de la impresion, sino en la pagina 10 de un reporte de 71 paginas.\n\nEn versiones anteriores de FW me estaba funcionando.... algo paso?\n\nFWH 2.7 + Borland 5.5.1 + xHarbour 0.99.6','',0,'','1n9an3cs',1,0,'',141,0,0),(21262,4811,6,435,0,'200.155.199.188',1162670741,1,0,1,1,1,0,'','TOpenOffice','Class TOO \n\nOnde posso encontrar a mais recente ? \n\nAri\n\n $Id: TOO.prg,v 1.2 2006/04/22 02:17:52 oskar Exp $\n   Lira Lira Oscar Joel - oSkAr\n   Proyecto: TExcelR\n   Archivo : TOO.prg\n   Creado  : 01/13/2006, 19:53\n   Ultima Actualizacion :&gt;: 04/21/2006 20:13\n   Historial de Cambios :&gt;&gt;\n\n   Referencias\n   ================================================================================================\n   <!-- m --><a class=\"postlink\" href=\"http://www.diariolinux.com/tiki-read_article.php?articleId=7092&amp;page=3\">http://www.diariolinux.com/tiki-read_ar ... 092&amp;page=3</a><!-- m -->\n   <!-- m --><a class=\"postlink\" href=\"ftp://docs-pdf.sun.com/817-1826/817-1826.pdf\">ftp://docs-pdf.sun.com/817-1826/817-1826.pdf</a><!-- m --> //Guia de programacion\n   <!-- m --><a class=\"postlink\" href=\"http://www.oooforum.org/forum\">http://www.oooforum.org/forum</a><!-- m -->                //Foro de Soporte','',0,'','13elyo2t',1,0,'',435,0,0),(21263,4812,6,435,0,'200.155.199.188',1162675313,1,0,1,1,1,0,'','StatusBar','DEFINE WINDOW ::oWnd FROM 0,0 TO 150,400 PIXEL[b:3fwhroye] MDICHILD [/b:3fwhroye]OF ::oMain TITLE cTitle\n\n  ::oMsgBar := TStatusBar():New( ::oWnd, \"Sisrev Informática Ltda.\",;\n               {300,100}, {\"Sisrev Informática Ltda.\", \"www.sisrev.com.br\"} )\n\n ! Não apresenta o segundo prompts \n\n só aparece o primeiro\n\npelo teste \\fwh27\\samples\\stbar.prg dá certo.\n\na difetença que a minha janela é uma MDICHILD\n\nAri','',0,'QA==','3fwhroye',1,0,'',435,0,0),(21264,4779,5,2,0,'87.218.146.110',1162680468,1,0,1,1,1,1,'','','DBF browses in Mac OSX <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[img:cnfke4zj]https&#58;//bitbucket&#46;org/fivetech/screenshots/downloads/fivemac_fivedbu&#46;png[/img:cnfke4zj]','0923704d319fcacbea875056006e162e',0,'CA==','cnfke4zj',1,0,'',2,0,0),(21265,4780,8,2,0,'87.218.146.211',1162680868,1,0,1,1,1,1,'','','DBF Browses en Mac OSX <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:xgyr8a73][img:xgyr8a73]http&#58;//img179&#46;imageshack&#46;us/img179/5655/picture1om2&#46;png[/img:xgyr8a73][/url:xgyr8a73]','',0,'GA==','xgyr8a73',1,0,'',2,0,0),(21266,4779,5,2,0,'87.218.146.110',1162681366,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1kezfk90][img:1kezfk90]http&#58;//img176&#46;imageshack&#46;us/img176/7710/picture1wp7&#46;png[/img:1kezfk90][/url:1kezfk90]','',0,'GA==','1kezfk90',1,0,'',2,0,0),(21267,4780,8,2,0,'87.218.146.110',1162681947,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2y6nzucl][img:2y6nzucl]http&#58;//img176&#46;imageshack&#46;us/img176/7710/picture1wp7&#46;png[/img:2y6nzucl][/url:2y6nzucl]','',0,'GA==','2y6nzucl',1,0,'',2,0,0),(21268,4794,6,435,0,'200.155.202.200',1162684977,1,0,1,1,1,0,'','Criar um index','Consegui bons resultados criando indice na coluna que vc coloca no WHERE\n\n\nmelhora bastante\n\nAri','',0,'GA==','89piojq4',1,0,'',435,0,0),(21269,4813,3,69,0,'74.13.62.29',1162690694,1,0,1,1,1,0,'','List of COMPUTER names','Hi Everybody,\n\nIs there a function that will allow the user to select a computer on the netowrk by the \"Computer Name\"\n\n\nThanks,\n\nJeff','',0,'GA==','2w972lw2',1,0,'',69,0,0),(21270,4727,3,266,0,'202.188.50.90',1162699390,1,0,1,1,1,1,'','','Thanks, got it.\n\nBut after link got this error when running BUILDH.BAT :\n\nError: Unresolved external \'_hb_vmMessage\' referenced from HBOLE.LIB|ole2','',0,'GA==','2lsymxi6',1,0,'',266,0,0),(21271,4814,6,492,0,'189.147.23.225',1162705514,1,0,1,1,1,1,'','Cambiar leyenda a Radios por Recursos','Hola a Todos\n\nCual seria la forma para cambiar la leyenda a un Radio creado desde recursos ?\n\nREDEFINE RADIO oSrvFnc VAR nSrvFSld  ID 103,104,105,108 OF dbSrvFin\n\n(0) Opcion 1\n( ) Opcion 2\n( ) Opcion 3\n( ) Opcion 4\n\nPara que quede :\n\n(0) Otro texto 1\n( ) Otro texto 2\n( ) Otro texto 3\n( ) Otro texto 4\n\nYa vi que haciendo desde codigo esta facil, @ X,Y RADIO ITEMS XXX, hay alguna forma para hacerlo desde un recurso ??\n\nGracias y Saludos','',0,'GA==','2g6h0855',1,0,'',492,0,0),(21272,4814,6,72,0,'189.136.200.239',1162710736,1,0,1,1,1,0,'','','oRad:aItems[n]:SetText(cTexo))','',0,'','13zamtk8',1,0,'',72,0,0),(21273,4807,3,2,0,'87.218.146.211',1162713713,1,0,1,1,1,1,'','','Ramesh,\n\nPlease place the groups definition in the RC _before_ the controls and redefine them in your code, i.e.:\n\nREDEFINE GROUP ID 5 OF oDlg\n\n... redefine controls contained into it\n\nYou may review samples\\TestFldb.prg as a sample.','',0,'','2rqoundm',1,0,'',2,0,0),(21274,4810,3,2,0,'87.218.146.211',1162713963,1,0,1,1,1,1,'','','Julio,\n\nAñade este método a la clase source\\classes\\rfile.prg:\n\nMETHOD hDCOut() INLINE ::hDC\n\ny veamos si así se soluciona y luego veremos desde donde se está llamando. Gracias,','',0,'','1t8bfwew',1,0,'',2,0,0),(21275,4812,6,2,0,'87.218.146.211',1162714080,1,0,1,1,1,1,'','','Ari,\n\nCambia {300,100} por {300, 400} \n\nLos valores son absolutos desde el inicio del lado izquierdo.','',0,'','vs2tocnj',1,0,'',2,0,0),(21276,4740,4,2,0,'87.218.146.211',1162715869,1,0,1,1,1,1,'','','Pawel,\n\nOk, already implemented. Thanks,','',0,'','2v6d6tqy',1,0,'',2,0,0),(21277,4806,2,2,0,'87.218.146.211',1162716271,1,0,1,1,1,1,'','','Tienes que modificar la clase TWindow y TControl para que no respondan a WM_HELP. Si usas FW 2.8, puedes hacer:\n\nen source\\classes\\window.prg:\nMETHOD Help() VIRTUAL\n\nen source\\classes\\control.prg:\nMETHOD HelpTopic() VIRTUAL','',0,'','2dqqyyyq',1,0,'',2,0,0),(21278,4727,3,6,0,'87.20.218.243',1162719424,1,0,1,1,1,1,'','','Sorry, it seems that your Harbour version is too old and I have no way to build a hbole.lib compatible with it.\n\nEMG','',0,'','12xwby5j',1,0,'',6,0,0),(21279,3308,6,180,0,'81.39.151.80',1162720908,1,0,1,1,1,0,'','','Gracias Marco y Reinaldo, creo que no se trata de la posición donde ponga\noLbx:CreateFromResource(200), pues lo he cambiado de sitio linea por linea y los resultados son los mismos.\n\nUn saludo,\nManuel','',0,'','3cmnbqgr',1,0,'',180,0,0),(21280,4812,6,435,0,'200.155.193.9',1162721735,1,0,1,1,1,0,'','StatusBar','é isso ai, deu certo. ok.\n\nAri','',0,'','36zuyk15',1,0,'',435,0,0),(21281,4807,3,190,0,'202.65.134.36',1162725135,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nThe result of the samples\\TestFldb.prg  is below.\n\n[url=http&#58;//img165&#46;imageshack&#46;us/my&#46;php?image=transer1yi1&#46;jpg:fdgvjcw5][img:fdgvjcw5]http&#58;//img165&#46;imageshack&#46;us/img165/6021/transer1yi1&#46;th&#46;jpg[/img:fdgvjcw5][/url:fdgvjcw5]\n\nRegards to you,\n\n- Ramesh Babu P','',0,'GA==','fdgvjcw5',1,0,'',190,0,0),(21282,4807,3,2,0,'87.218.146.211',1162727121,1,0,1,1,1,1,'','','Ramesh,\n\nThen it looks as a themes related issue. \n\nWe are going to review it asap, thanks.','',0,'GA==','6931narv',1,0,'',2,0,0),(21283,4807,3,2,0,'87.218.146.211',1162730239,1,0,1,1,1,1,'','','Ramesh,\n\ncheckboxes get almost fixed with this change in source\\classes\\control.prg Method Colors():\n[code:23w09doy]\n   if &#58;&#58;lTransparent &#46;and&#46; GetFocus&#40;&#41; != &#58;&#58;hWnd\n\ninstead of&#58;\n\n   if &#58;&#58;lTransparent\n[/code:23w09doy]\nWe are still doing research for radios.','',0,'AIA=','23w09doy',1,0,'',2,0,0),(21284,4774,3,435,0,'200.155.193.9',1162731364,1,0,1,1,1,0,'','','eu já vi estas classes aqui, baixei elas, mas nunca usei, autor é \n\ncomo eu posso entrar em contato com Author ?\n\n $Id: TOO.prg,v 1.2 2006/04/22 02:17:52 oskar Exp $\n   Lira Lira Oscar Joel [oSkAr]\n   Proyecto: TExcelR\n   Archivo : TOO.prg\n   Creado  : 01/13/2006, 19:53\n   Ultima Actualizacion :&gt;: 04/21/2006 20:13\n   Historial de Cambios :&gt;&gt;\n\n   Referencias\n   ================================================================================================\n   <!-- m --><a class=\"postlink\" href=\"http://www.diariolinux.com/tiki-read_article.php?articleId=7092&amp;page=3\">http://www.diariolinux.com/tiki-read_ar ... 092&amp;page=3</a><!-- m -->\n   <!-- m --><a class=\"postlink\" href=\"ftp://docs-pdf.sun.com/817-1826/817-1826.pdf\">ftp://docs-pdf.sun.com/817-1826/817-1826.pdf</a><!-- m --> //Guia de programacion\n   <!-- m --><a class=\"postlink\" href=\"http://www.oooforum.org/forum\">http://www.oooforum.org/forum</a><!-- m -->                //Foro de Soporte','',0,'','1u4unfqs',1,0,'',435,0,0),(21285,4740,4,13,0,'213.76.252.200',1162735725,1,0,1,1,1,0,'','','Antonio,\n\nFinally I change window.prg as is:\n\n[code:1jtgv1gc]\n   if Self == oWndMain \n      oWndMain = nil \n      PostQuitMessage&#40; 0 &#41; \n   else \n       if &#58;&#58;lModal &#46;And&#46; &#58;&#58;ClassName&#40;&#41; == &quot;TWINDOW&quot;\n          PostQuitMessage&#40; 0 &#41; \n       endif \n   endif \n[/code:1jtgv1gc]\n\nRegards\nPawel','',0,'AIA=','1jtgv1gc',1,0,'',13,0,0),(21286,4814,6,492,0,'189.147.23.225',1162740947,1,0,1,1,1,1,'','','Funciona Excelente !!!\n\nTe lo agradezco mucho Alfredo   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nSaludos','',0,'AIA=','38hl7ny6',1,0,'',492,0,0),(21287,4779,5,2,0,'87.218.146.52',1162742793,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3jo2e2q9][img:3jo2e2q9]http&#58;//img128&#46;imageshack&#46;us/img128/8306/picture1di6&#46;png[/img:3jo2e2q9][/url:3jo2e2q9]','',0,'GA==','3jo2e2q9',1,0,'',2,0,0),(21288,4780,8,2,0,'87.218.146.52',1162742860,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:33ba59lh][img:33ba59lh]http&#58;//img128&#46;imageshack&#46;us/img128/8306/picture1di6&#46;png[/img:33ba59lh][/url:33ba59lh]','',0,'GA==','33ba59lh',1,0,'',2,0,0),(21289,4740,4,2,0,'87.218.146.211',1162743069,1,0,1,1,1,1,'','','Pawel,\n\nThanks!','',0,'GA==','3ke56521',1,0,'',2,0,0),(21290,4807,3,190,0,'202.65.134.36',1162743204,1,0,1,1,1,0,'','','Hell Mr.Antonio\n\nThanks for your attention.\n\nWith the fix you have suggested in CONTROL.PRG, the check boxes are\ndisplayed properly now.\n\nAs far as RADIO buttons are concerned, unlike earlier now only the \nprompt of the current RADIO button on which the focus is present\nis disappearing.\n\nKindly suggest me the proper fix as early as possible.\n\nRegards\n\n- Ramesh Babu P','',0,'GA==','1dor5yp8',1,0,'',190,0,0),(21291,4807,3,2,0,'87.218.146.211',1162743698,1,0,1,1,1,1,'','','Ramesh,\n\nWe don\'t have a quick fix for radios. \n\nIt looks as the transparency feature just works properly for radios with XP themed dialogs. \n\nYou may disable transparency for radios, but it will not look nice.','',0,'GA==','2zauneza',1,0,'',2,0,0),(21292,4815,6,9,0,'85.59.74.135',1162766535,1,0,1,1,1,1,'','REPORT y LISTBOX','Desde un dialogo con un Listbox (browse), tengo un botón que lo imprime mediante un Report con preview. La base de datos esta filtrada mediante un indice temporal. Todo funciona perfecto. Pero a un usuario se le ha ocurrido minimizar el previo y se ha asustado cuando ha visto que el listbox le mostraba una pantalla con un registro vacio (me imagino que por el eof). Cuando se cierra el preview, se refresca el dialogo, pero queda feo y para este usuario estresante. He intentado poner en el On Init del Report un DBGOTOP(), pero no da resultado.\n\n¿Hay alguna manera de arreglar esto?','',0,'GA==','zelpay8q',1,0,'',9,0,0),(21293,4779,5,95,0,'189.155.115.94',1162771712,1,0,1,1,1,0,'','','Felicidades Antonio\n\nY como siempre, abriendo nuevos caminos.\n\n1.- Dime, FiveMac, sigue con las mismas instrucciones y commandos que los demas producto, FivWin FivePocket, etc,etc ?\n\n2.- Vi en las pantallas el uso de harbour, que cosas mejores trae vs xharbour ?\n\n3.- El uso de ActiveX en Windows, hay algo similar para OSX, ?\n\n4.- Los usos como de las dll\'s de windows como son sockets,mapi, ftp;s, etc,etc , cuales son las contrapartes en OSX ?\n\n\nPor utimo .... Felicidades y como siempre, a probar estos productos.\n\nSaludos\nOsvaldo Ramirez','',0,'GA==','5tb32990',1,0,'',95,0,0),(21294,4805,6,179,0,'200.69.181.39',1162772781,1,0,1,1,1,1,'','','Maestro, yo uso tu browse y es rapido y sobre todo MUUUUY estable\nlo unico que quisiera le adiciones es que al digitar una tecla de caracter\nde teclado entrara en edicion con esa tecla como primer caracter en ese campo\n\nGracias x tu tiempo','',0,'GA==','2p01wzcq',1,0,'',179,0,0),(21295,4806,2,774,0,'200.72.102.235',1162774681,1,0,1,1,1,1,'','','Antonio uso FW24 + clipper 5.3\n\nse puede hacer algo si no uso 2.8 FWH\n\nAh.. ojo el problema se presenta solo en los DIALOGOS , osea cuando :\n\nDEFINE DIALOG \n\nAVTIVE DIALOG\n\ncon DEFINE WINDOW no pasa lo mismo \n\nOjala se pudiera hacer algo','',0,'GA==','2q1hcwt5',1,0,'',774,0,0),(21296,4815,6,496,0,'200.107.36.176',1162775168,1,0,1,1,1,0,'','','Hola Manuel\n\nHas el refresto en el  ON POSTEND  allí puedes mandar a que se ubique en el registro que se quedó antes de llamar al Report, o lo que quieras\n\nPor ejemplo:\n\nACTIVATE REPORT oReport ON POSTEND (funcion_fin_pag(),oBrw:gotop())\n\nUn saludo\n\nMarcelo Jingo','',0,'GA==','264cbk0q',1,0,'',496,0,0),(21297,4805,6,496,0,'200.107.36.176',1162776423,1,0,1,1,1,0,'','','Gracias a Dios que aún estás con nosotros!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , y la verdad que nos da mucha alegría saber de tí.  Yo uso tu Browse desde que decidiste hacerle cambios a la wbrowse de fivewin. \n\nGracias por ese aporte desinteresado que nos has brindado.\n\n\nMarcelo Jingo','',0,'GA==','7ljvuo7o',1,0,'',496,0,0),(21298,4816,3,529,0,'200.159.198.4',1162780504,1,0,1,1,1,0,'','ads questions (rene)','HI Rene , how are you? can you help me with ads? i have 3 questions:\n \n1) how access files in ads server without map drive letters??\n2) how use ais to access remotely programs?\n3) i use dbfcdxax , how move to adt files?\n \ni use xharbour+fwh+ads server\n \nthanks','',0,'GA==','2p7vzcl2',1,0,'',529,0,0),(21299,4817,3,529,0,'200.159.198.4',1162780611,1,0,1,1,1,0,'','adt files','hi, someone have a little sample of use adt files? thanks','',0,'GA==','26lfia5h',1,0,'',529,0,0),(21300,4811,6,54,0,'189.132.114.238',1162786375,1,0,1,1,1,1,'','Re: TOpenOffice','Ari,\n\n<!-- m --><a class=\"postlink\" href=\"http://oskar.sytes.net\">http://oskar.sytes.net</a><!-- m -->\n\n\nSaludos','',0,'GA==','1i68tlyi',1,0,'',54,0,0),(21301,4815,6,9,0,'85.59.74.135',1162787048,1,0,1,1,1,1,'','','Marcelo, ha funcionado perfectamente. Muchas gracias.','',0,'GA==','315m0jwp',1,0,'',9,0,0),(21302,4818,6,73,0,'200.66.32.97',1162792501,1,0,1,1,1,0,'','encriptar dbf','hola foro, nuevamente por aqui, ahora quiero encriptar las dbf de mi sistema, como lo puedo hacer, no quiero que ningun software las pueda leer, unicamente por medio de mi sistema, alguna funcion, algun ejemplo?\ngracias\npaco','',0,'GA==','tqi5gxo6',1,0,'',73,0,0),(21305,4798,4,449,0,'212.64.224.241',1162798898,1,0,1,1,1,1,'','','Hello,\n\nCan you try\n\n[code:1kx7npal]\n&#46;&#46;&#46;\n&#58;&#58;oGet1&#58;bChange &#58;= &#123;|| &#58;&#58;ShowTest&#40;&#41; &#125;\n&#46;&#46;&#46;[/code:1kx7npal]\n\nRegards.','',0,'AIA=','1kx7npal',1,0,'',449,0,0),(21306,4802,7,262,0,'87.235.159.190',1162803615,1,0,1,1,1,1,'','','con la version 2003 olvidate ( usando outlook) , es un bug del sistema .... se puede solucionar usando otro programa de correo como predeterminado...\nEn 2005 no tengo ni idea .\nsaludos.','',0,'AIA=','2g6npr9r',1,0,'',262,0,0),(21307,4807,3,190,0,'202.65.134.25',1162806862,1,0,1,1,1,0,'','','Dear Mr.Antonio\n\nHere is the fix for METHOD Colors() in CONTROL.PRG for both RADIO \nBUTTONS and CHECKBOXES both THEMED AND NON-THEMED situations.\n\n[code:3twjfe40]\n\n\n   if &#58;&#58;lTransparent\n      SetBkMode&#40; hDC, 1 &#41; // TRANSPARENT\n      if IsAppThemed&#40;&#41;\n         if ! Empty&#40; &#58;&#58;oBrush&#58;hBitmap &#41;\n            SetBrushOrgEx&#40; hDC, nBmpWidth&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nLeft, nBmpHeight&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nTop &#41;\n            FillRect&#40; hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41;\n         else            //  This condition is added by RAMESH BABU P on Nov&#46; 06, 2006\n           if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; $ &quot;TCHECKBOX;TRADIO&quot;\n              DrawPBack&#40; &#58;&#58;hWnd,  hDC &#41;\n           endif   \n         endif\n      endif\n   else     \n      if IsAppThemed&#40;&#41; &#46;and&#46; Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; $ &quot;TCHECKBOX;TRADIO&quot;\n         DrawPBack&#40; &#58;&#58;hWnd,  hDC &#41;\n      endif   \n   endif   \n[/code:3twjfe40]\n\nand the restult is :\n\n[url=http&#58;//img183&#46;imageshack&#46;us/my&#46;php?image=transer2dx0&#46;jpg:3twjfe40][img:3twjfe40]http&#58;//img183&#46;imageshack&#46;us/img183/502/transer2dx0&#46;th&#46;jpg[/img:3twjfe40][/url:3twjfe40]\n\nI have tested in all the situations and found it to be working.\n\nPlease have look.\n\nRegards to you\n\n- Ramesh Babu P','',0,'GIA=','3twjfe40',1,0,'',190,0,0),(21308,4807,3,2,0,'87.218.146.211',1162809612,1,0,1,1,1,1,'','','Ramesh,\n\nExcellent! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nMany thanks,','',0,'GIA=','3hqyj981',1,0,'',2,0,0),(21309,4798,4,2,0,'87.218.146.211',1162809772,1,0,1,1,1,1,'','','Pawel,\n\nBesides Carles solution, you may do:\n[code:1jyy3dik]\nMethod ReadTest &#40;&#41; Class Test \n   \n   local oThis &#58;= Self\n\n   @ 40, 10 Get &#58;&#58;oGet1 Var &#58;&#58;cGet1 Size 100, 20 Pixel On Change oThis&#58;ShowTest &#40;&#41; Of &#58;&#58;oWnd\n   @ 70, 10 Button \'Ok\' Size 60, 20 Pixel Action MsgInfo &#40;Str &#40;&#58;&#58;oGet1 &#58; nPos&#41;&#41; \n\nReturn &#46;T&#46; \n[/code:1jyy3dik]','',0,'AIA=','1jyy3dik',1,0,'',2,0,0),(21310,4811,6,435,0,'200.155.201.138',1162809862,1,0,1,1,1,0,'','','Obrigado pelo interesse em ajudar\n\n<!-- m --><a class=\"postlink\" href=\"http://oskar.sytes.net\">http://oskar.sytes.net</a><!-- m -->\n\nmas..site não encontrado ..error','',0,'AIA=','2al754is',1,0,'',435,0,0),(21311,4779,5,2,0,'87.218.146.211',1162809977,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt;\n1.- Dime, FiveMac, sigue con las mismas instrucciones y commandos que los demas producto, FivWin FivePocket, etc,etc ? \n&gt;\n\nFiveMac usa la misma arquitectura que FiveWin, y se asemeja tanto a él como Mac OSX se lo permite.\n\n&gt;\n2.- Vi en las pantallas el uso de harbour, que cosas mejores trae vs xharbour ? \n&gt;\n\nDe momento el desarrollo lo estamos haciendo con Harbour. Posteriormente se probará con xHarbour tambien.\n\n&gt; 3.- El uso de ActiveX en Windows, hay algo similar para OSX, ? \n\nDe momento no lo sabemos.\n\n&gt;\n4.- Los usos como de las dll\'s de windows como son sockets,mapi, ftp;s, etc,etc , cuales son las contrapartes en OSX ? \n&gt;\n\nEstamos estudiando toda la información posible de OSX. En cuanto vayamos descubriendo más cosas iremos comentándolas y publicando ejemplos.','',0,'AIA=','1k3dwfmb',1,0,'',2,0,0),(21312,4806,2,2,0,'87.218.146.211',1162810100,1,0,1,1,1,1,'','','Busca en las clases de window y control los métodos que te hemos indicado y cámbialos.','',0,'AIA=','2p6jhodq',1,0,'',2,0,0),(21313,4818,6,2,0,'87.218.146.211',1162810169,1,0,1,1,1,1,'','','Paco,\n\nA parte de usar ADS para hacerlo, puedes usar las funciones Encrypt() y Decrypt() de FWH, para encriptar antes de guardar los datos.','',0,'AIA=','37t9duaj',1,0,'',2,0,0),(21314,4806,2,774,0,'200.72.74.12',1162812779,1,0,1,1,1,1,'','','Antonio,, una duda si modifico las clases tw.. y tc... debo cimplilarles de nuevo en .LIB para q los cambios tomen efecto..\n\n\nInstruyeme\n\nGRACIAS','',0,'AIA=','30vwjxcg',1,0,'',774,0,0),(21315,4819,6,435,0,'200.155.201.138',1162812866,1,0,1,1,1,0,'','MdiChild de fwh27','Antonio,\n\nMontei o sistema com a Fwh27, em uma opção do programa que uso a mdichild ao teclar ALT-?? qualquer coisa sai do programa, verifiquei que o problema é na MdIChild.. veja:\n[b:tfnw3cu2]\n/fwh27/Source/classes/mdichild.prg[/b:tfnw3cu2]\n   METHOD IsZoomed() INLINE IsZoomed( ::hWnd )\n   METHOD IsIconic() INLINE IsIconic( ::hWnd )\n\n   METHOD SetSize( nWidth, nHeight ) INLINE ; // to properly resize contained dialogs\n          ( ::Hide(), Super:SetSize( nWidth, nHeight, .t. ), ::Show() )\n\n   // coloquei isto resolveu !\n   [b:tfnw3cu2]METHOD GetHotPos( nChar ) INLINE 0 [/b:tfnw3cu2] [b:tfnw3cu2]&lt;&lt;-  nao tem ![/b:tfnw3cu2]\n   \nENDCLASS\n\n\n\nAri','',0,'QA==','tfnw3cu2',1,0,'',435,0,0),(21316,4490,3,435,0,'200.155.201.138',1162813812,1,0,1,1,1,0,'','','A versão atual do Incredimail, não anexa o arquivo.\n\nAri','',0,'QA==','hpztb3kd',1,0,'',435,0,0),(21317,4820,21,384,0,'201.42.134.105',1162822421,1,0,1,1,1,1,'','Linha do ListBox e HScroll','1-Quando seleciono uma linha do Listbox a linha horizontal ultrapassa os limites da coluna a direita\n\n2-O scroll horizontal não funciona.\n\nVejam a imagem atraves do link:\n[url=http&#58;//img140&#46;imageshack&#46;us/my&#46;php?image=erro001jt3&#46;jpg:1bgh5y0x][img=http://img140.imageshack.us/img140/5803/erro001jt3.th.jpg][/url:1bgh5y0x] \n\n [code:1bgh5y0x]\nREDEFINE LISTBOX aoLbx&#91;01&#93;;\n        FIELDS;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, apago&#91;iif&#40; !empty&#40; lanc-&gt;data_pag &#41;, 2, iif&#40; lanc-&gt;data_ven&lt;date&#40;&#41;, 3, 1 &#41; &#41;&#93;, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, lanc-&gt;docto, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, lanc-&gt;clifor, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, lanc-&gt;conta, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, lanc-&gt;bcoagecc, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, lanc-&gt;tipo, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, lanc-&gt;empresa, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, Caracter&#40; lanc-&gt;aceite &#41;, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, lanc-&gt;historico, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, iif&#40; empty&#40; lanc-&gt;data_pag &#41;,;\n        iif&#40; ascan&#40; aMarcador, lanc-&gt;&#40; recno&#40;&#41; &#41; &#41;&gt;0, aMarca&#91;1&#93;, aMarca&#91;2&#93; &#41;, aMarca&#91;3&#93; &#41;, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, transform&#40; lanc-&gt;valor_pre, \'@E 99,999,999&#46;99\' &#41;, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, dtoc&#40; lanc-&gt;data_emi &#41;, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, dtoc&#40; lanc-&gt;data_ven &#41;, \'\' &#41;,;\n        iif&#40; !lanc-&gt;&#40; eof&#40;&#41; &#41;, dtoc&#40; lanc-&gt;data_pag &#41;, \'\' &#41;,;\n        \' \';\n        HEADERS &amp;&#40; cHeaders &#41;;\n        ALIAS \'lanc\';\n        ID 102 OF oDlg UPDATE;\n        ON CHANGE&#40; &#123; eval&#40; aRefresh&#91;01&#93; &#41; &#125; &#41;\n        aoLbx&#91;01&#93;&#58;nClrPane&#58;=&#123; || iif&#40; lanc-&gt;&#40; OrdKeyNo&#40;&#41; &#41;%2==0,COR_1PANE,COR_2PANE &#41; &#125;\n        aoLbx&#91;01&#93;&#58;aJustify&#58;=aJustifica\n        aoLbx&#91;01&#93;&#58;bKeyChar&#58;=&#123; |tecla1, tecla2| &#123;;\n        iif&#40; tecla1==32 &#46;and&#46; empty&#40; lanc-&gt;data_pag &#41;,;\n        &#123; VerMarcados&#40; lanc-&gt;&#40; recno&#40;&#41; &#41;, aoLbx, @aMarcador &#41;, iif&#40; ascan&#40; aMarcador, lanc-&gt;&#40; recno&#40;&#41; &#41; &#41;&gt;0, aMarca&#91;1&#93;, aMarca&#91;2&#93; &#41; &#125;, &#46;t&#46; &#41; &#125; &#125;\n[/code:1bgh5y0x]','',0,'EIA=','1bgh5y0x',1,0,'',384,0,0),(21318,4805,6,439,0,'200.125.34.59',1162825447,1,0,1,1,1,1,'','','Yo he probado practicamente todos los browses de FW, léase xbrowse, sbrowse, tcbrowse y twbrowse, he optado por tu clase twbrowse y estoy muy satisfecho, me alegraré profundamente cuando vea la esperada versión 18.','',0,'EIA=','3vqm80t3',1,0,'',439,0,0),(21319,4811,6,439,0,'200.125.34.59',1162825762,1,0,1,1,1,1,'','','Puedes encontrar esta clase y tener la última versión desde elCVS de :\n<!-- m --><a class=\"postlink\" href=\"http://oskar.sytes.net\">http://oskar.sytes.net</a><!-- m -->\nInsiste, persevera y triunfarás.','',0,'EIA=','1igy938o',1,0,'',439,0,0),(21320,4821,3,678,0,'168.209.98.43',1162826264,1,0,1,1,1,1,'','Adding bitmaps to themed rPreview toolbar','Hi Antonio\n\nI am trying to add different bitmaps to the themed rPreview toolbar\nThese bitmaps are contained in my normal RES file (not in Prev32.dll)\nI cant get this to work\neg below even thing Bmp_Pdf exists in my resources, it wont display\n\n* Code snippet*\n::oImageList:AddMasked( TBitmap():Define( \"\"BMP_Pdf\"\",, ::oWnd ), nRGB( 192, 192, 192 ) )\n\nDo image lists require special kinds of bmps?\nWould appreciate any assistance\n\nThanks\nPeter','',0,'EIA=','3ru5l81w',1,0,'',678,0,0),(21321,4822,3,678,0,'168.209.98.43',1162826281,1,0,1,1,1,1,'','Adding bitmaps to themed rPreview toolbar','Hi Antonio\n\nI am trying to add different bitmaps to the themed rPreview toolbar\nThese bitmaps are contained in my normal RES file (not in Prev32.dll)\nI cant get this to work\neg below even though Bmp_Pdf exists in my resources, it wont display\n\n* Code snippet*\n::oImageList:AddMasked( TBitmap():Define( \"\"BMP_Pdf\"\",, ::oWnd ), nRGB( 192, 192, 192 ) )\n\nDo image lists require special kinds of bmps?\nWould appreciate any assistance\n\nThanks\nPeter','',0,'EIA=','1xbjpaqp',1,0,'',678,0,0),(21322,4779,5,95,0,'189.155.115.94',1162827683,1,0,1,1,1,0,'','','Estimado Antonio\n\n\nTengo un cliente el cual tiene Mac  y Windows\n\nEl cual, el esta encantado con Mac, y que porcierto tenemos 3 puntos de venta corriendo sobre minimac pero usando XP.\n\nMi idea seria migrar mi punto de venta a Mac, pero si requiero bastente el uso de ftp,smtp. \n\nCreo que existe mucho codigo en C, y con todo gusto me gustaria colaborar en dicho procesos de integrar mas herramientas a dicho lenguage para Mac.\n\nAhora, uso mucho los thread,... como se manejan en harbour ?\nEs simple de usar o emular como lo hace Xbase ?\n\nSaludos\nOsvaldo Ramirez','',0,'EIA=','mjuh1kbn',1,0,'',95,0,0),(21323,4818,6,73,0,'200.66.32.97',1162828001,1,0,1,1,1,0,'','','Gracias Antonio por tu respuesta, esto entiendo es para encriptar los datos, no es asi? mas bien lo que me interesaria seria algo asi como poder modificar la cabecera del .dbf para que no se pueda abrir, ni por dbwide, ni por adr, ni por dbf viewer,esot es por ai alguien llea  a apoderarse de las dbf no las puedan leer. Esa funciones me sirven para eso?\nsalud2\npaco','',0,'EIA=','aaxhqr5c',1,0,'',73,0,0),(21324,4823,6,362,0,'200.168.52.156',1162830810,1,0,1,1,1,1,'','WINOLDAP - NET USE','Antonio,\n\nPorque cuando uso el comando NET USE en el Windows 98, mi retorna WINOLDAP en la Ventana del CTRL+ALT+DEL del Windows?','',0,'EIA=','1f1eqryl',1,0,'',362,0,0),(21325,4824,6,384,0,'201.68.7.193',1162832717,1,0,1,1,1,1,'','Limpar buffer do teclado','Temos algo semelhante ao Clear Typeahead  do Clipper em FWH ?','',0,'EIA=','pgeoxp2z',1,0,'',384,0,0),(21326,4825,3,35,0,'167.7.140.254',1162833133,1,0,1,1,1,0,'','What does the Windows manifest and Themes give you','To All\n\nI have looked at adding the Windows manifest code to my .rc files .. but was just curious .. just what does adding Themes ( really ) give you ??\n\nRick Lipkin\nSC Dept of Health, USA\n\n// Add this to your resources RC file\n\n#ifdef __FLAT__\n   1 24 \"WindowsXP.Manifest\"\n#endif\n\n#ifdef __64__\n   1 24 \"WinXP/WindowsXP.Manifest64\"\n#endif','',0,'EIA=','2ueamj1i',1,0,'',35,0,0),(21327,4825,3,6,0,'87.19.15.63',1162833670,1,0,1,1,1,1,'','Re: What does the Windows manifest and Themes give you','Just the Windows XP look. Only under Windows XP, of course.\n\nEMG','',0,'EIA=','3o2fyt2o',1,0,'',6,0,0),(21328,4806,2,54,0,'189.132.114.238',1162833950,1,0,1,1,1,1,'','','[quote=&quot;A&amp;C&quot;:3b95iu0k]Antonio,, una duda si modifico las clases tw.. y tc... debo cimplilarles de nuevo en .LIB para q los cambios tomen efecto..\n\n\nInstruyeme\n\nGRACIAS[/quote:3b95iu0k]\n\nPuedes incluirlos en tu proyecto como un PRG mas. Aunque sería mejor generar la LIB.\n\nHay una herramienta del amigo Jorge Mason para recompilar FiveWin.\n\n[url:3b95iu0k]http&#58;//www&#46;htcsoft&#46;cl/[/url:3b95iu0k]','',0,'kA==','3b95iu0k',1,0,'',54,0,0),(21329,4826,3,69,0,'206.210.97.138',1162834369,1,0,1,1,1,0,'','Finding Most Occurrences of a number','Hi Everybody,\n\nI am trying to find a way to find the most occurrences of a number in a database field ... I do not want to get an avarage.\n\nEx:  100,95,95,95,100,50,50,60, ....   I would want to pick the \"95\"\n\nCan someone please point me in the right direction.\n\nThanks,\n\nJeff','',0,'kA==','2ubkl435',1,0,'',69,0,0),(21330,4816,3,138,0,'189.141.64.226',1162834454,1,0,1,1,1,1,'','Re: ads questions (rene)','[quote=&quot;Nop&quot;:1eiosq39] \n1) how access files in ads server without map drive letters??\n[/quote:1eiosq39]\n\nYou can: \n\nUSE \\\\servername\\sharedresource\\folder\\dbffile\n\nHow ever if you want to work with TCP IP address you have to create an ADS.INI file containing the follow:\n\n[servername]\nLAN_IP= xxx.xxx.xxx.xxx\nLAN_PORT= 2000\n\nAXWCS32.DLL will look for this INI file in order to connect to the ADS server.\n\n[quote=&quot;Nop&quot;:1eiosq39] \n2) how use ais to access remotely programs?\n[/quote:1eiosq39]\n\nThis is a little bit complicated to explain, these are the main clues.\n\n1) You have to create a Data Dictionary in the server machine, enable the INTERNET ACCESS to such dictionary, and register at least one user, its password, and enable the internet access to the just created user. To the Data dictionary you have also to register your tables.\n\n2) In your source code, before anything else you have to connect to the data dictionary using the ADSConnect60() function:\n\nIF ADSConnect60(\"\\\\server\\share\\folder\\file.add\",7,\"user\", \"password\")\n\nWhere:\n\n\"\\\\server\\share\\folder\\file.add\" is the location of the dictionary over the internet. ADS will use the ADS.INI to try to resolve the internet address of the dictionary, in the section server you have to include these two lines:\n\n[server]\nINTERNET_IP=your public internet address or a domain name\nINTERENT_PORT=2001 (or whatever port you configured in the Advantage Configuration utility)\n\nFor example in the samples you can download from: <!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">www.google.d2g.com/ads/demos/</a><!-- w --> you will see in the source code something similar to this:\n\nIF ADSConnect60(\"\\\\googleserver\\cursos\\adsdemos\\cibconwn\\stc\\internte.add\",4,\"demo\",\"demo\")\n\nThis means:\n\n1.- The location of the dictionary IN THE LAN \n2.- The server type (4 means AIS but you can try 7)\n3.- User Name assigned in the datadictionary\n4.- Password assigned\n\nAgain, the client DLL AXWCS32.DLL will use the ADS.INI to resolve the public internet access:\n\n[googleserver]\nLAN_IP=192.168.2.2\nLAN_PORT=2001\nINTERNET_IP=google.d2g.com\nINTERNET_PORT=2000\n\nAgain, the parameters INTERNET* in the INI file will be used to resolve the name of the computer over the internet.\n\n[quote=&quot;Nop&quot;:1eiosq39] \n3) i use dbfcdxax , how move to adt files?\n[/quote:1eiosq39]\n\nJust change the ADSSetFileType(3) and all the files will be ADT, how ever you have to migrate the old DBFCDX files to turn them into ADT\n\nREQUEST ADS\nRDDSETDEFAULT(\"ADS)\nADSSetServerType(7)\nADSSetFileType(7) // ADT Tables\n\nUSE oldfile VIA \"DBFCDX\"\nCOPY TO newfile\n\nAnd you are done\n \ni use xharbour+fwh+ads server','',0,'gA==','1eiosq39',1,0,'',138,0,0),(21331,4822,3,49,0,'62.13.172.78',1162834488,1,0,1,1,1,1,'','','How can you converte the preview in pdf file ?','',0,'gA==','c767j9fe',1,0,'',49,0,0),(21332,4827,2,774,0,'200.72.74.12',1162835822,1,0,1,1,1,1,'','DIALOG COMO EVITAR Q','Una duda como se puede evitar q el usuario mueva un a ventana tipo DIALOG\n\n\nREFEDINE DIALOG\n\nACTIVE DIALOG\n\n\ntengo una venta q necesito q no se pueda mover \n\n\nalguien sabe como.. o de frenton no se puede evitar','',0,'gA==','5ts4qw7s',1,0,'',774,0,0),(21333,4818,6,138,0,'189.141.64.226',1162835937,1,0,1,1,1,1,'','','Francisco:\n\nADS hace exactametne eso que tu quieres, ADS encripta tanto los datos como las cabeceras, el ARC no puede abrir los archivos encriptados, te pide la contraclave de desencriptamiento.\n\nEl truco de cambiar el primer byte de la cabecera te funciona, pero para abrir los datos desde algun editor, es eficiente pero no del todo, porque de todas formas el contenido de los archivos esta visible con cualuier editor de textos.','',0,'gA==','1a7u4m99',1,0,'',138,0,0),(21334,4826,3,303,0,'72.199.41.171',1162835998,1,0,1,1,1,0,'','','[code:1txi8azf]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n\n   local aItems&#58;= &#123;100,95,95,95,100,50,50,60&#125;\n\n   msgInfo&#40; mostFrequent&#40; aItems &#41; &#41;\n\nreturn nil\n\n//-------------------------------------------//\n\n// Return the most frequent item in aItems\nfunction mostFrequent&#40; aItems &#41;\n   local aItems, nMax, nCount,nLocation,uLast,i\n\n   aItems&#58;= asort&#40;aItems&#41;\n   nMax&#58;=0\n   nCount&#58;=0\n   nLocation&#58;= 0\n   uLast&#58;= aItems&#91;1&#93;\n\n   for i&#58;=2 to len&#40; aItems &#41;\n      if aItems&#91;i&#93; == uLast\n        nCount++\n      else\n        nCount&#58;=0\n        uLast&#58;= aItems&#91;i&#93;\n      endif\n      if nCount &gt; nMax\n         nMax &#58;= nCount\n         nLocation&#58;= i\n      endif\n   next\n\nreturn aItems&#91; nLocation &#93;[/code:1txi8azf]','',0,'AIA=','1txi8azf',1,0,'',303,0,0),(21335,4828,6,471,0,'190.41.15.140',1162836778,1,0,1,1,1,1,'','Como se pone una funcion en un dll y como se invoca','Estimados Amigos\n\nComo se pone una funcion en un dll y como se invoca\nluego desde otro programa en xharbour\n\n\n\nSaludos\n\nVladimir Zorrilla Llerena','',0,'AIA=','3gqvbugd',1,0,'',471,0,0),(21336,4826,3,69,0,'206.210.97.138',1162836959,1,0,1,1,1,0,'','','Thanks James,\n\nThis looks like it will do exactly what I need.\n\n\nJeff','',0,'AIA=','3pf00aia',1,0,'',69,0,0),(21337,4825,3,303,0,'72.199.41.171',1162837214,1,0,1,1,1,0,'','Re: What does the Windows manifest and Themes give you','&gt;.. just what does adding Themes ( really ) give you ??\n\nProfessional looking applications.\n\nIf one is marketing their software, I would say this is incredibly important. Us programmers think logically, and we figure if it works, then it is not so important what it looks like. The rest of the population, generally are not logical thinkers. They figure if it looks professional, then it must work professional, and visa versa--if it looks bad, then it must work the same.\n\nI have mentioned this example before, but consider the IPod. Last year they did 15 million dollars in sales. Most IPods just play music, some display pictures and movies. My PDA does all of that and ten times more. But all PDA sales combined only sold 7 million dollars worth last year. What does the IPod have--style! It sells on its \"cool factor,\" not on its feature list. Apple has twice the sales with a shorter feature list, just because the product looks good.\n\nRick, since your users are employess, software sales is not an issue. But, your professional image is, so I would still say the it is very important for your software to look professional.\n\nAnd adding themes capability is so simple that I can\'t think of any reason not to do it.\n\nRegards,\nJames','',0,'AIA=','3p4214r5',1,0,'',303,0,0),(21338,4829,6,228,0,'201.245.193.4',1162841553,1,0,1,1,1,1,'','Como saber las coordenadas de un get (definido por recursos)','Como dice el encabezado, ¿como puedo saber las coordenadas de un get?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nDe Antemano Gracias','',0,'AIA=','2722hpex',1,0,'',228,0,0),(21339,4830,4,13,0,'213.76.252.200',1162842503,1,0,1,1,1,0,'','DTPicker on change clause','Antonio,\n\nIn current version of FWPPC this command is invalid:\n\n[code:2zh6fmc8]\n   @ 20, 20 DTPicker oDTP Var dDate Size 80, 20 Pixel On Change DTPChange &#40;oDTP&#41;\n[/code:2zh6fmc8]\n\nError is show: No exported method GETDATE. When we use bChange code block control is properly created.\n\nRegards\nPawel\n\nTest procedure:\n[code:2zh6fmc8]\nFunction TestH &#40;&#41;\n\n   Local oWnd &#58;= Nil\n   Local oDTP &#58;= Nil\n   Local dDate &#58;= Date &#40;&#41;\n\n   Define Window oWnd\n   @ 20, 20 DTPicker oDTP Var dDate Size 80, 20 Pixel On Change DTPChange &#40;oDTP&#41;\n   Activate Window oWnd\n\nReturn &#46;T&#46;\n\nFunction DTPChange &#40;oDTP&#41;\n\n   LOcal dDate &#58;= oDTP &#58; GetDate &#40;&#41;\n\nReturn &#46;T&#46;\n[/code:2zh6fmc8]','',0,'AIA=','2zh6fmc8',1,0,'',13,0,0),(21340,4740,4,13,0,'213.76.252.200',1162842909,1,0,1,1,1,0,'','','Antonio,\n\nThis is finally construct for today (modal window with TFolder object doesn\'t executing clause after window close):\n\n[code:3v2d2u53]\n       if &#58;&#58;lModal &#46;And&#46; &#58;&#58;ClassName&#40;&#41; $ &quot;TFOLDER;TWINDOW&quot; \n          PostQuitMessage&#40; 0 &#41; \n       endif \n[/code:3v2d2u53]\n\nRegards\nPawel','',0,'AIA=','3v2d2u53',1,0,'',13,0,0),(21341,4823,6,362,0,'200.168.52.156',1162843126,1,0,1,1,1,1,'','','Resuelto.\n\nEn la CARPETA C:\\WINDOWS\\, Buscar NET.EXE, Clicar em PROPRIEDADS, PROGRAMA.\n\nClicar en CERRAR AL SALIR.\n\nMuchas Gracias.\n\nUn Gran saludos a todos.','',0,'AIA=','226il3m5',1,0,'',362,0,0),(21342,4799,6,73,0,'200.66.32.97',1162843481,1,0,1,1,1,0,'','','enviada...\nsalu2\npaco','',0,'AIA=','dxbdygew',1,0,'',73,0,0),(21343,4831,6,774,0,'200.72.74.12',1162843660,1,0,1,1,1,1,'','AYUDA URGENTE SOBRE DIALOG O WINDOW','Supongamos que existe una DBF con dos indeces,, \n\nTengo en un barra de botones dos boton cada uno hace mencion a la misma DBF, pero a indices distintos,,\n\nAhora. al presionar cada boton abro un DIALog con un browse dentro que lista la DBF por el indice asignado en un DATABASE\n\nAhora la pregunta del millon,,, me pasa esto ,, que cuando abro cualquiera de los dos DIALOG el q abro ultimo queda el indice activo, y al mover el DIALOG sobre el DIALOG de fondo se redibuja y toma los valores del indice activo ultimo,,\n\nse que esto paso porque es una misma base de datos a la q estoy haciendo alucion,, pero necesito que sea asi..\n\nalguien se le ocurre como puedo solucionar este problemita...\n\n\nhe pensado q tal vez,, con ON PAINT y funciona pero siempre q se repinte el DIALOG.. y a veces no sucede eso\n\nquizas podria haber alguna instruccion con cuando tome el foco el dialogo decirle q recupere el indice que yo desee y repinte todo,, pero nose si existe esta instruccion,, alguien puede AYUDARME\n\n\nGRACIAS','',0,'AIA=','32ltfd2o',1,0,'',774,0,0),(21344,4832,2,774,0,'200.72.74.12',1162843701,1,0,1,1,1,1,'','AYUDA CON DIALOG','Supongamos que existe una DBF con dos indeces,, \n\nTengo en un barra de botones dos boton cada uno hace mencion a la misma DBF, pero a indices distintos,,\n\nAhora. al presionar cada boton abro un DIALog con un browse dentro que lista la DBF por el indice asignado en un DATABASE\n\nAhora la pregunta del millon,,, me pasa esto ,, que cuando abro cualquiera de los dos DIALOG el q abro ultimo queda el indice activo, y al mover el DIALOG sobre el DIALOG de fondo se redibuja y toma los valores del indice activo ultimo,,\n\nse que esto paso porque es una misma base de datos a la q estoy haciendo alucion,, pero necesito que sea asi..\n\nalguien se le ocurre como puedo solucionar este problemita...\n\n\nhe pensado q tal vez,, con ON PAINT y funciona pero siempre q se repinte el DIALOG.. y a veces no sucede eso\n\nquizas podria haber alguna instruccion con cuando tome el foco el dialogo decirle q recupere el indice que yo desee y repinte todo,, pero nose si existe esta instruccion,, alguien puede AYUDARME\n\n\nGRACIAS','',0,'AIA=','uc6xc3jm',1,0,'',774,0,0),(21345,4831,6,123,0,'83.53.67.55',1162843998,1,0,1,1,1,0,'','','A&amp;C,\n\nPrueba a des-habilitar el diálogo que no usas.  O mejor, el browse que no usas.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.mundoxbase.info\">www.mundoxbase.info</a><!-- w -->','',0,'AIA=','154ubqxw',1,0,'',123,0,0),(21346,4799,6,439,0,'200.125.34.59',1162844147,1,0,1,1,1,1,'','','Francisco, sería excelente que pudieras poner la clase corregida con un link de hyperupload en Utilities/Utilidades, para el beneficio de todos.\n\nBuen trabajo,','',0,'AIA=','3sjogqn0',1,0,'',439,0,0),(21347,4829,6,471,0,'190.41.15.140',1162844199,1,0,1,1,1,1,'','','oCtr:nTop\n\noCtrl:nLeft','',0,'AIA=','1z7thjby',1,0,'',471,0,0),(21348,4816,3,529,0,'200.159.198.4',1162847821,1,0,1,1,1,0,'','','Rene, very thanks again.','',0,'AIA=','14dyzpro',1,0,'',529,0,0),(21349,4828,6,2,0,'87.218.146.211',1162848238,1,0,1,1,1,1,'','','Vladimir,\n\nLa función a poner en la DLL es en C ó en PRG ?','',0,'AIA=','2k9x1y4y',1,0,'',2,0,0),(21350,4740,4,2,0,'87.218.146.211',1162848367,1,0,1,1,1,1,'','','Pawel,\n\nthanks,','',0,'AIA=','b9vgiwlt',1,0,'',2,0,0),(21351,4833,4,856,0,'89.142.96.140',1162849264,1,0,1,1,1,0,'','1 Question','Ok if i get this right, this FWPPC is a program that runs on a PocketPC, where u can write and compile code directly, without PC \n\nis this true?\n\nand if it is where can i get this FWPPC?','',0,'AIA=','1wv0vr1k',1,0,'',856,0,0),(21352,4823,6,362,0,'200.168.52.156',1162850211,1,0,1,1,1,1,'','','Antonio Por favor,\n\nDonde si encuentra ejemplos sobre esto:\n\n\nWNetAddCon(\"\\\\SERVIDOR\\DRIVE_C\",\"password\",\"F:\") ///nection\n\nWNetAddCon(\"\\\\192.168.0.1\\DRIVE_C\",\"password\",\"F:\") ///nection\n\nwNetDelConnection(\"F:\",.T.)','',0,'AIA=','1l8rzsps',1,0,'',362,0,0),(21353,4832,2,54,0,'189.132.114.238',1162851762,1,0,1,1,1,1,'','Re: AYUDA CON DIALOG','[quote=&quot;A&amp;C&quot;:3if49j2p]Supongamos que existe una DBF con dos indeces,, \n\nTengo en un barra de botones dos boton cada uno hace mencion a la misma DBF, pero a indices distintos,,\n\nAhora. al presionar cada boton abro un DIALog con un browse dentro que lista la DBF por el indice asignado en un DATABASE\n\nAhora la pregunta del millon,,, me pasa esto ,, que cuando abro cualquiera de los dos DIALOG el q abro ultimo queda el indice activo, y al mover el DIALOG sobre el DIALOG de fondo se redibuja y toma los valores del indice activo ultimo,,\n\nse que esto paso porque es una misma base de datos a la q estoy haciendo alucion,, pero necesito que sea asi..\n\nalguien se le ocurre como puedo solucionar este problemita...\n\n\nhe pensado q tal vez,, con ON PAINT y funciona pero siempre q se repinte el DIALOG.. y a veces no sucede eso\n\nquizas podria haber alguna instruccion con cuando tome el foco el dialogo decirle q recupere el indice que yo desee y repinte todo,, pero nose si existe esta instruccion,, alguien puede AYUDARME\n\n\nGRACIAS[/quote:3if49j2p]\n\nA&amp;C,\n\nPodrias intentarlo haciendo uso de la misma DBF, pero en áreas diferentes, asi no importaria que fuera inclusive el mismo indices.','',0,'gA==','3if49j2p',1,0,'',54,0,0),(21354,4805,6,45,0,'190.30.75.118',1162854776,1,0,1,1,1,0,'','','Gracias a todos por el apoyo, pronto novedades <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','k7tdl3cq',1,0,'',45,0,0),(21355,4825,3,35,0,'65.188.6.143',1162854785,1,0,1,1,1,0,'','','James\n\nThe reason I asked about themes is more along the line of Vista and \'aero\'. I always use MDI and Mdi Children for most of my applications. \n\nI stated up \'aero\' on one of my Mdi applications and indeed I had a transparent frame .. mdichilds seem to be imune to \'aero\'.\n\nI guess my idea of themes is colors, backgrounds are all chosen by the user. I generally add color to my dialogs and listboxes.\n\nWas just curious if I added the manifest what effect it would have and if it would also work with Vista.\n\nThanks\nRick Lipkin','',0,'gA==','oh4f4nl4',1,0,'',35,0,0),(21356,4780,8,45,0,'190.30.75.118',1162855020,1,0,1,1,1,0,'','','Me ha quedado una maravillosa duda <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->\nEl tema es que veo que estas corrienda FiveMac  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> sobre PowerPC, y los Macs nuevos son Intel x86, por lo pronto los ejecutables son para powerpc y corren sobre los Mactel sobre \"Rosetta\" (en forma de simulador), o simplemente va a haber 2 builds de FiveMac y Harbour ? (Cada uno para correr nativamente en distintas arquitecturas, sea la de IBM PPC y por otro lado la x86 compatible ) y a aprovechar asi el maximo la performance.\n\nUn Abrazo\nHernan','',0,'gA==','3f4w3nlw',1,0,'',45,0,0),(21357,4833,4,2,0,'87.218.146.91',1162856738,1,0,1,1,1,1,'','','&gt;\nOk if i get this right, this FWPPC is a program that runs on a PocketPC, where u can write and compile code directly, without PC\n&gt;\n\nNo. You write and compile the code at the PC. Then you get a native Pocket PC application that can run on the Pocket PC or from the Microsoft Pocket PC emulator.\n\n&gt; and if it is where can i get this FWPPC?\n\nYou may order it from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> purchase section.','',0,'gA==','zqmidcd0',1,0,'',2,0,0),(21358,4825,3,2,0,'87.218.146.91',1162856939,1,0,1,1,1,1,'','','Rick,\n\n&gt; Was just curious if I added the manifest what effect it would have and if it would also work with Vista. \n\nVista also uses themes, the Vista one, but it doesn\'t look like the XP one. \n\nChanges are mostly on the way the standard Windows controls are painted.','',0,'gA==','24zwsnbp',1,0,'',2,0,0),(21359,4780,8,2,0,'87.218.146.91',1162857289,1,0,1,1,1,1,'','','Hernan,\n\nNosotros estamos probando FiveMac sobre PowerPC y sobre Intel tambien. No estamos usando Rosetta, sino ejecutables nativos para cada plataforma.\n\nFiveMac proporcionará librerías para ambas plataformas. Se pueden crear aplicaciones nativas para PowerPC, ó para Intel, y también \"universal binaries\", es decir ejecutables que llevan ambas plataformas \"incrustadas\" en el ejecutable final.\n\nUsamos el gcc (GNU C compiler) que viene incluido en  Mac y el crear para una u otra plataforma, ó para crear universal binaries, es cuestion tan simple como pasarle unos flags al gcc <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','39stfpvv',1,0,'',2,0,0),(21360,4832,2,774,0,'164.77.169.161',1162859666,1,0,1,1,1,1,'','','podrias orientarme como utilizas tu los alias para las dbf.... yo no lo ocupo mucho en realidad casi nada... mira como lo uso yo... en reliadad prove dnd otro nombre al ALIAS pero me da un error alias no definido\n\nmira::\n\n//----------------------------Apertura de DBF -------------------------\n\nIf SELECT(\"Bt_vta\")&gt;0\nSELECT Bt_vta\nElse\nUSE Bt_vta NEW ALIAS Bt_vta SHARED\nEndif\nDATABASE oBtvta\noBtvta:SetOrder(19)\noBtvta:bBof:={||NIL}\noBtvta:bEof:={||NIL}\noBtvta:Gotop()\n\nIf SELECT(\"Bt_val\")&gt;0\nSELECT Bt_val\nElse\nUSE Bt_val NEW ALIAS Bt_val SHARED\nEndif\nDATABASE oBtval\noBtval:SetOrder(15)\noBtval:bBof:={||NIL}\noBtval:bEof:={||NIL}\noBtval:Gotop()\n\n\n//----------------------------Fin Apertura de DBF -------------------------\n\n\nno se si lo usas asi tu...\npara crear los indices con los TAG uso una rutina fuera del sistema','',0,'gA==','3nnvov4m',1,0,'',774,0,0),(21361,4834,1,186,0,'66.130.50.142',1162859810,1,0,1,1,1,1,'','Browsing arrays','Hi all,\n\nI have a situation where I need to browse an array. The problem is that it can be a one or two dimension array. At the time the array is passed to my function I still don`t know what type of array the function will have to browse and how many columns it includes.\n\nSo I want the function to determine this by itself and display all the elements and columns. So far I partly solved the problem execpt for oLbx:bLine where I have no idea of how I can display all columns.\n\nAny ideas\n\nRegards, <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->','',0,'gA==','36ty6dgw',1,0,'',186,0,0),(21362,4805,6,219,0,'189.132.129.88',1162860964,1,0,1,1,1,0,'','','Hola a todos:\n\nPerdonen pero no se que estoy haciendo mal o que me falta pero no he podido tan siquiera, echar a andar los programas de ejemplo que trae la clase, como que observo que en vez de correr la clase de hernan corre la fivewin, y me he serciorado ( segun yo) que en verdad sea linkada dicha lib.\n\nUn saludo\n\nJosé Luis Aguilar','',0,'gA==','pi4asz6g',1,0,'',219,0,0),(21363,4832,2,54,0,'189.132.114.238',1162864644,1,0,1,1,1,1,'','','A&amp;C,\n\nEsta es la sintaxis correcta, segun manual:\n[code:1j4h0erq]USE &#91;&lt;xcDatabase&gt;&#91;INDEX &lt;xcIndex list&gt;&#93;&#91;ALIAS &lt;xcAlias&gt;&#93; &#91;EXCLUSIVE | SHARED&#93;&#91;NEW&#93; &#91;READONLY&#93;&#91;VIA &lt;cDriver&gt;&#93;&#93;[/code:1j4h0erq]\n\nSegún veo en tu codigo, validaz si el área está abierta, ahi es donde tienes que \"permitir\" usar un alias diferente. En lugar de utilizar el mismo, permitirle otro nombre de alias.','',0,'AIA=','1j4h0erq',1,0,'',54,0,0),(21364,4835,6,49,0,'62.13.172.78',1162865080,1,0,1,1,1,1,'','help sample','anyone have an small sample of interpoint ?','',0,'AIA=','2fp11g8k',1,0,'',49,0,0),(21365,4825,3,303,0,'72.199.41.171',1162865213,1,0,1,1,1,0,'','','Rick,\n\n&gt;I guess my idea of themes is colors, backgrounds are all chosen by the user. I generally add color to my dialogs and listboxes. \n\nA theme is a set of colors and icons and button and scrollbar tab shapes,  etc. The user can change some of the colors but not all and none of the rest of the items.\n\n&gt;Was just curious if I added the manifest what effect it would have and if it would also work with Vista.\n\nThe simple thing to do is add a manifest file to the same directory as your application, then run it--it will be theme enabled. Put this text into an ASCII file and name it [your app name].exe.manifest (yes, it has two extensions). You don\'t have to change anything else.\n\n&lt;?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?&gt;\n&lt;assembly xmlns=\"urn:schemas-microsoft-com:asm.v1\" manifestVersion=\"1.0\"&gt;\n&lt;assemblyIdentity version=\"1.0.0.0\" processorArchitecture=\"X86\" name=\"CompanyName.ProductName.YourApp\" type=\"win32\"/&gt;\n&lt;description&gt;YourApp&lt;/description&gt;\n&lt;dependency&gt;\n&lt;dependentAssembly&gt;\n&lt;assemblyIdentity type=\"win32\" name=\"Microsoft.Windows.Common-Controls\" version=\"6.0.0.0\" processorArchitecture=\"X86\" publicKeyToken=\"6595b64144ccf1df\" language=\"*\" /&gt; &lt;/dependentAssembly&gt;\n&lt;/dependency&gt;\n&lt;/assembly&gt;\n\nWhen you run the app, it will now be theme enabled. Of course, it has to be running under XP or Vista and a theme has to be selected.\n\nThere is an issue which I don\'t know the answer to yet, and that is if you are coloring your application, it may not look good when run under different themes. This is not really a new problem since Windows has always had color schemes and users have been able to even change those colors. But, it would be nice if we could detect which theme was running, so we could use different color sets depending on the theme.\n\nJames','',0,'','1k5lm45l',1,0,'',303,0,0),(21366,4822,3,303,0,'72.199.41.171',1162865733,1,0,1,1,1,0,'','','Peter,\n\nWhere are you adding that code? If it is inside the rpreview function then you have to switch to your resources to load your bitmap, then switch back (see getResources() and setResources() near the top of the rpreview function in rpreview.prg). I also note that oImageList and oWnd are locals in this routine but you have them as instance vars.\n\nJames','',0,'','2niv3tqe',1,0,'',303,0,0),(21367,4816,3,299,0,'24.233.172.101',1162866790,1,0,1,0,1,0,'','','Hi,\n\nWhat are the advantages of switching to adt vs dbf/cdx?\n\nReinaldo.','',0,'','345u1j0b',1,0,'',299,0,0),(21368,4822,3,299,0,'24.233.172.101',1162867422,1,0,1,0,1,0,'','','Silvio;\n\nRead here:\n\n[/url]\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4757\">http://fivetechsoft.com/forums/viewtopic.php?t=4757</a><!-- m -->\n[url]\n\n\nIt absolutely works great!\n\nReinaldo.','',0,'','1nfspkjg',1,0,'',299,0,0),(21369,4833,4,856,0,'89.142.96.140',1162873604,1,0,1,1,1,0,'','','ok this s**, i need a program that can write and compile just on ppc\n\nanyone knows?','',0,'','12r5bp4x',1,0,'',856,0,0),(21370,4822,3,678,0,'168.209.98.43',1162876034,1,0,1,1,1,1,'','','1) :: is there because we have converted rPreview to a class\n\n2) The pdf utility we are using is <!-- w --><a class=\"postlink\" href=\"http://www.utilitywarrior.com\">www.utilitywarrior.com</a><!-- w --> product\n\n3) I did try \"SET RESOURCES TO\" before the\n\"::oImageList:AddMasked( TBitmap():Define( \"BMP_Pdf\",   , ::oWnd ), nRGB( 255, 255, 255 ) )\" line, but this does not work\n\n4) I tried putting the bitmap in prev32.dll (using resource builder) - that also did not work\n\nI am thinking that maybe theming requires a special type of bitmap ?\nI have run out of ideas\n\nThanks\nPeter','',0,'','qunvi1v0',1,0,'',678,0,0),(21371,4833,4,13,0,'213.76.252.200',1162879344,1,0,1,1,1,0,'','','Gapipro,\n\nYou may use Pocket GCC or other compiler. You may find it in internet search engine. \n\nPS. We don\'t think about FWPPC that is \"s**\". This is proffesional software.\n\nRegards\nPawel','',0,'','1jdixvb9',1,0,'',13,0,0),(21372,4799,6,73,0,'200.66.32.97',1162881354,1,0,1,1,1,0,'','','que tal Jose,\nno me trevi a publicarla ya que me quieria serciorar con el master de la lib que la revisara y le diera el vo.bo., ya que no me considero un aceptable modificador de clases, siendo asi estoy seguro que alfredo pronto la revisara y la podra liberar y que nos la publique por aqui. de cualquier forma si la necesitas te la envio con mucho gusto. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nsalu2\nPaco','',0,'','2qqhbwla',1,0,'',73,0,0),(21373,4816,3,529,0,'200.159.198.4',1162888579,1,0,1,1,1,0,'','more one thing','Rene, and if i need use adt and dbfcdx files toguether , in same program? whats the initial configuration??\n\nthanks again','',0,'','1ctripxl',1,0,'',529,0,0),(21374,4677,6,28,0,'213.27.201.254',1162890324,1,0,1,1,1,0,'','rectificación de la función UnzipClose','Donde puse:\n\n[color=red:3fz7bhhe][b:3fz7bhhe]UnzipClose() [/b:3fz7bhhe][/color:3fz7bhhe]\n\ndebe decir\n\n[b:3fz7bhhe][color=red:3fz7bhhe]UnzipClose( hUnz )[/color:3fz7bhhe][/b:3fz7bhhe]\n\nsi no es asi irá perdiendo memoria porque la dll no puede liberar lo que se pillo en el Open\n\nPor lo demas he comprobado que funciona a las mil maravillas','',0,'Qg==','3fz7bhhe',1,0,'',28,0,0),(21375,4836,7,720,0,'80.36.244.134',1162891669,1,0,1,1,1,0,'','pregunta facil sobre botones....','Hola a todos. En su día creo que leí en este foro algo relacionado con los botones transparentes pero ahora no encuentro nada. Quería saber si se pueden poner los botones de forma que no se vean sino sólo la imagen, para dar una apariencia más elegante a la aplicación...\n\nPor cierto yo los botones los creo algunos con el pelles C y otros a codigo directo...\nUn saludo y gracias a todos...\n\nElías Torres.','',0,'Qg==','3n8cq13j',1,0,'',720,0,0),(21376,4788,7,2,0,'87.218.146.91',1162891865,1,0,1,1,1,1,'','','Juan José,\n\nEl deshabilitar items del menu aún no está implementado.\n\nPara cambiar las imágenes de los botones tienes que hacer lo siguiente:\n\noBtn:LoadBitmaps( ,, &lt;cBmpFile&gt; )\noBtn:Refresh()\n\ny para cambiar su acción:\n\noBtn:bAction = { || ... código ... }','',0,'Qg==','2z2nonkw',1,0,'',2,0,0),(21377,4836,7,2,0,'87.218.146.91',1162892037,1,0,1,1,1,1,'','','Elias,\n\nDe momento no hay nada implementado como describes.','',0,'Qg==','1bv1xmkw',1,0,'',2,0,0),(21378,4757,3,49,0,'213.82.134.66',1162893579,1,0,1,1,1,1,'','','TImm,\ncan you pubblish the function to use th eimage2pdf  on this forum ?','',0,'Qg==','1abveann',1,0,'',49,0,0),(21379,4832,2,774,0,'200.72.74.12',1162901272,1,0,1,1,1,1,'','','Defini Alias distinto y no funciona,, al parecer como el browse esta definido a la misma Dbf,, asume igualmente el cambio\n\n\nLo q he hecho, es usar la Instrucciones ON PAINT Y ON MOVE para cambiar el indice activo de la Dbf,, funciona pero como tengo q refresh() en Obj. browse,, preduce un parpadeo porque siempre se esta repintado el obj...: y esto quedo poco estetico..  \n\nsabes si existe alguna instruccion q te permita saber si la caja de Dialog, toma el foco y si lo toma q ejecute alguna accion..\n\nGRACIAS','',0,'Qg==','dkrul9w4',1,0,'',774,0,0),(21380,1709,3,15,0,'59.121.154.55',1162904431,1,0,1,1,1,0,'','','Hello Silvio,\n\nI try link OpenDesign 3rd LIB and get error below:\n\nT:\\DWGCAD&gt;t:\\drlib32x\\bc5\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_od_atof\' referenced from T:\\DWGCAD\\ADB5ND3.LIB|adrent\n\nAny idea or suggestion?\n\nThank you\n\nRichard','',0,'Qg==','3g9ncufk',1,0,'',15,0,0),(21381,4816,3,299,0,'24.233.172.101',1162905778,1,0,1,0,1,0,'','','NOP;\n\nThere is no problem using some tables as DBF/NTX, others as DBF/CDX, and others as ADT/ADI with ADS.  You simply specify the RDD used with each.\n\nI\'ve found out that the best way to use ADS is with a Data Dictionary.  That way you can even execute SQL statements against you data.  And you can keep access to the dbfs restricted to your application away from users on the network browsing the network drive.  It works.  It is fast.  It is secure.\n\nReinaldo.','',0,'Qg==','v8wokqpe',1,0,'',299,0,0),(21382,4833,4,856,0,'86.61.113.217',1162907607,1,0,1,1,1,0,'','','ok, I have that compiler but doesn\'t work, the CMD doesn\'t open and i don\'t know why. I have Ipaq 1950 with windows mobile 5.\n\nI didn\'t say that this software s**, I just said that becouse all compilers need computer and can\'t work alone on the ppc.\n\nIf you have any other program that is running alone on ppc tell me plz?\n\nthanks','',0,'Qg==','2a2ivnt8',1,0,'',856,0,0),(21383,4818,6,73,0,'201.132.233.137',1162909294,1,0,1,1,1,0,'','','como simpre buen teacher,\ngracias rene\nsalu2\npaco','',0,'Qg==','1005hzsl',1,0,'',73,0,0),(21384,4779,5,95,0,'189.155.115.94',1162910137,1,0,1,1,1,0,'','','Estimado Antonio...\n\nSe puede bajar de algun lado los binarios de harbour para OSX o tengo que compilarlos ?\n\nEn el caso de compilarlos, algun tipo de script ?\n\nSaludos y Gracias de antemano.\n\nOsvaldo Ramirez','',0,'Qg==','yoad6t3t',1,0,'',95,0,0),(21385,4837,6,147,0,'200.45.54.145',1162910293,1,0,1,0,1,1,'','Ventanas MDI','Hola Gente\nCuando una ventana x tiene el foco, como puedo saber numericamente, de que ventana se trata?.\nLo puedo hacer recorriendo aWnd y preguntando por el nombre de la que tiene el foco; no obstante existe alguna otra manera, mas directa?\n\ngracias','',0,'Qg==','1sus765x',1,0,'',147,0,0),(21386,4838,6,471,0,'190.41.47.153',1162910756,1,0,1,1,1,1,'','Es una funcion en PRG','Es una funcion en PRG\n\nGracias por responder\n\nSalu2','',0,'Qg==','3irvbgru',1,0,'',471,0,0),(21387,4828,6,471,0,'190.41.47.153',1162910963,1,0,1,1,1,1,'','sobre un prg','el programa a poner en el dll es un archivo prg\n\n\nGracias','',0,'Qg==','1qwnjbm6',1,0,'',471,0,0),(21388,4839,2,124,0,'200.82.56.111',1162914291,1,0,1,1,1,0,'','UNA IMPRESORA ESTÁ EN LINEA?  COMO IMPRIMIR LANDSCAPE?','Amigos:\n\nEstamos usando tdosprn y necesito saber un par de cosas con respecto a la impresion:\n\n- Se puede saber si una impresora está en linea antes de enviar la impresión (obviamente para evitar el error)?\n\n- Si hubiera error de impresión, ¿cómo se captura?\n\n- Cómo se hace con tdosprn para imprimir apaisado (landscape)?\n\nDesde ya mil gracias.\nRicardo. \nRosario / Argentina.','',0,'Qg==','5czrg9c8',1,0,'',124,0,0),(21389,4840,2,124,0,'200.82.56.111',1162914599,1,0,1,1,1,0,'','COMO DESACTIVAR O PROGRAMA LA &quot;X&quot; DE CIERRE DE LOS','Amigos:\n\nTenemos las TDialog bastante tocadas a nuestra necesidad, la salida de la ventana también tiene código, pero si el usuario sale por la \"x\" standard de windows genera errores en determinadas situaciones.\n\nIntentamos pero no pudimos programar la \"x\" con algún evento pero no nos resultó ( seguramente hacemos algo mal ).\n\nLo que solicitamos es que alguien nos des-asne en ¿ómo programar el evento que ocurre al oprimir la X de cierre de una t_dialog?\n\nSi esto no se pudiera hacer ( o no viene bien tambien saberlo ) ¿cómo se desactiva esta X?\n\nMuchas Gracias.\nRicardo','',0,'Qg==','3i44m4i9',1,0,'',124,0,0),(21390,4841,6,104,0,'201.58.86.7',1162915080,1,0,1,1,1,0,'','Como travar DESIGN ?','Olá,\n\nTem como eu trava um objeto quando ele estiver em modo DESIGN para não sair fora da tela ?\n\nAbaixo a imagem correta:\n\n[img:1lxm1l0g]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/design1&#46;PNG[/img:1lxm1l0g]\n\nImagem errada:\n\n[img:1lxm1l0g]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/DESIGN&#46;PNG[/img:1lxm1l0g]\n\nGracias,\n\nRossine.','',0,'CA==','1lxm1l0g',1,0,'',104,0,0),(21391,4828,6,2,0,'87.218.146.167',1162915707,1,0,1,1,1,1,'','','Vladimir,\n\nRevisa los siguientes ejemplos de FWH:\n\nbabu.prg\nbabudll.prg\ntestdll.prg\ntestdllp.prg\npcodedll.prg','',0,'CA==','1utwt9d5',1,0,'',2,0,0),(21392,4779,5,2,0,'87.218.146.167',1162915896,1,0,1,1,1,1,'','','Osvaldo,\n\nDe momento lo más sencillo es que lo descargues del CVS de Harbour y lo construyas en OSX usando make_gnu.sh','',0,'CA==','1yjpplwb',1,0,'',2,0,0),(21393,4840,2,2,0,'87.218.146.167',1162916082,1,0,1,1,1,1,'','','Ricardo,\n\nlocal lSalir := .f.\n\nACTIVATE DIALOG oDlg ... VALID ( ..., lSalir )\n\nAsi hay que cambiar el valor de lSalir para poder cerrar el diálogo.','',0,'CA==','35b8uzy9',1,0,'',2,0,0),(21394,4822,3,2,0,'87.218.146.167',1162916209,1,0,1,1,1,1,'','','Peter,\n\nHas the bitmap the same dimensions of the other bitmaps ?','',0,'CA==','5hwpcl9z',1,0,'',2,0,0),(21395,4757,3,171,0,'72.93.20.30',1162916228,1,0,1,1,1,0,'','','Silvio,\n\nThese are the wrappers that I am using with image2pdf.dll\n\n[code:2y94bjwd]\nDLL32 Function I2PDF_AddImage&#40;image as LPSTR&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_AddImage&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_SetProducer&#40;producer as LPSTR&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_SetProducer&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\n\nDLL32 Function I2PDF_GetDLLVersion&#40;&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_GetDLLVersion&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\n\nDLL32 Function I2PDF_License&#40;code As LPSTR&#41;;\nAS LPSTR PASCAL FROM &quot;I2PDF_License&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\n\nDLL32 Function I2PDF_MetaImageMaxMP&#40;maxmp as LONG&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_MetaImageMaxMP&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_DeleteImagesOnConvert&#40;&#41;;\nAS VOID PASCAL FROM &quot;I2PDF_DeleteImagesOnConvert&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_SetDPI&#40;dpi as LONG&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_SetDPI&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_MakePDF&#40;output As LPSTR, options as LONG, @cBuffer As LPSTR, ;\n	maxErrorTextSize As LONG&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_MakePDF&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_SetPermissionPrint&#40;&#41;;\nAS VOID PASCAL FROM &quot;I2PDF_SetPermissionPrint&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_MetaImageMaxMP_Int&#40;maxmp as LONG&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_MetaImageMaxMP_Int&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_UseEMFDeviceSize&#40;&#41;;\nAS VOID PASCAL FROM &quot;I2PDF_UseEMFDeviceSize&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_MetaToNativePDF&#40;&#41;;\nAS VOID PASCAL FROM &quot;I2PDF_MetaToNativePDF&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\nDLL32 Function I2PDF_Log&#40;logFilename As LPSTR, logLevel as LONG&#41;;\nAS LONG PASCAL FROM &quot;I2PDF_Log&quot; LIB &quot;IMAGE2PDF&#46;DLL&quot;\n\n[/code:2y94bjwd]\n\nThe help file that come with \"image2pdf.dll\" is complete and easy to understand.\n\nRegards\n\n\n\nGeorge','',0,'AIA=','2y94bjwd',1,0,'',171,0,0),(21396,4822,3,303,0,'72.199.41.171',1162916520,1,0,1,1,1,0,'','','Peter,\n\n&gt;1) :: is there because we have converted rPreview to a class \n\nThen, are you sure this code is getting linked in and used? One way to find out is to put a msgInfo() in it.\n\n&gt;I am thinking that maybe theming requires a special type of bitmap?\n\nNot so, all my apps are themed and all my bitmaps work fine.\n\nJames','',0,'AIA=','kwgjqf68',1,0,'',303,0,0),(21397,4774,3,397,0,'201.13.19.186',1162918927,1,0,1,0,1,1,'','','Amiguinho\n\nPelo visto voce esta querendo produzir arquivos XLS, estou certo.\n\nVoce ja tentou usar OLE para isto:\n\nExemplo simples\n[code:1fspadpm]\n*\n* ----------------------------------------------------------------\n*\nFUNCTION OLEEXCEL97&#40;&#41;\n   LOCAL oExcel, oHoja\n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\n   oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oHoja &#58;= oExcel&#58;ActiveSheet&#40;&#41;\n   oHoja&#58;Cells&#58;Font&#58;Name &#58;= &quot;Arial&quot;\n   oHoja&#58;Cells&#58;Font&#58;Size &#58;= 12\n   oHoja&#58;Cells&#40; 3, 1 &#41;&#58;Value &#58;= &quot;Texto&#58;&quot;\n   oHoja&#58;Cells&#40; 3, 2 &#41;&#58;Value &#58;= &quot;Esto es un texto&quot;\n   oHoja&#58;Cells&#40; 4, 1 &#41;&#58;Value &#58;= &quot;Número&#58;&quot;\n   oHoja&#58;Cells&#40; 4, 2 &#41;&#58;NumberFormat &#58;= &quot;#&#46;##0,00&quot;\n   oHoja&#58;Cells&#40; 4, 2 &#41;&#58;Value &#58;= 1234&#46;50\n   oHoja&#58;Cells&#40; 5, 1 &#41;&#58;Value &#58;= &quot;Lógico&#58;&quot;\n   oHoja&#58;Cells&#40; 5, 2 &#41;&#58;Value &#58;= &#46;T&#46;\n   oHoja&#58;Cells&#40; 6, 1 &#41;&#58;Value &#58;= &quot;Fecha&#58;&quot;\n   oHoja&#58;Cells&#40; 6, 2 &#41;&#58;Value &#58;= DATE&#40;&#41;\n   oHoja&#58;Columns&#40; 1 &#41;&#58;Font&#58;Bold &#58;= &#46;T&#46;\n   oHoja&#58;Columns&#40; 2 &#41;&#58;HorizontalAlignment &#58;= -4152  // xlRight\n   oHoja&#58;Columns&#40; 1 &#41;&#58;AutoFit&#40;&#41;\n   oHoja&#58;Columns&#40; 2 &#41;&#58;AutoFit&#40;&#41;\n   oHoja&#58;Cells&#40; 1, 1 &#41;&#58;Value &#58;= &quot;OLE desde FW&quot;\n   oHoja&#58;Cells&#40; 1, 1 &#41;&#58;Font&#58;Size &#58;= 16\n   oHoja&#58;Range&#40; &quot;A1&#58;B1&quot; &#41;&#58;HorizontalAlignment &#58;= 7\n   oHoja&#58;Cells&#40; 1, 1 &#41;&#58;Select&#40;&#41;\n   oExcel&#58;Visible &#58;= &#46;T&#46;\n   oHoja&#58;End&#40;&#41;\n   oExcel&#58;End&#40;&#41;\n   RETURN\n[/code:1fspadpm]\n\nExemplo mais completo com escrita e leitura de XLS\'s\n[code:1fspadpm]\n*\n* ----------------------------------------------------------------\n*\nFUNCTION OLEExcel&#40;&#41;\n   LOCAL oWnd, oMenu\n   MENU oMenu\n      MENUITEM &quot;&amp;Probar Excel y DBF&quot;\n      MENU\n         MENUITEM &quot;&amp;Leer SIGLAS&#46;XLS&quot; ACTION LEER&#40;&#41;\n         MENUITEM &quot;&amp;Enviar SIGLAS&#46;DBF a Excel&quot; ACTION ENVIAR&#40;&#41; WHEN FILE&#40; &quot;SIGLAS&#46;DBF&quot; &#41;\n         SEPARATOR\n         MENUITEM &quot;&amp;Salir&quot; ACTION oWnd&#58;End&#40;&#41;\n      ENDMENU\n   ENDMENU\n   DEFINE WINDOW oWnd FROM 0,0 TO 20,70 MENU oMenu TITLE &quot;Probar Excel y DBF&quot;\n   ACTIVATE WINDOW oWnd MAXIMIZED\n   RETURN\n\nFUNCTION LEER&#40;&#41;\n   LOCAL oExcel, oHoja, nRows, nCols\n   LOCAL aCampos&#58;=&#123;&#125;, nRow, nCol\n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\n   oExcel&#58;WorkBooks&#58;Open&#40;SFN2LFN&#40;cFilePath&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41;+&quot;SIGLAS&#46;xls&quot;&#41;&#41;\n   oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n   nRows &#58;= oHoja&#58;UsedRange&#58;Rows&#58;Count&#40;&#41;\n   nCols &#58;= oHoja&#58;UsedRange&#58;Columns&#58;Count&#40;&#41;\n   FOR nCol &#58;= 1 TO nCols\n      IF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;C&quot;\n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;C&quot;, 80, 0 &#125; &#41;\n\n      ELSEIF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;N&quot;\n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;N&quot;, 15, 4 &#125; &#41;\n\n      ELSEIF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;L&quot;\n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;L&quot;, 1, 0 &#125; &#41;\n\n      ELSEIF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;D&quot;\n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;D&quot;, 8, 0 &#125; &#41;\n      ENDIF\n   NEXT\n   DBCREATE&#40; &quot;EXCEL&quot;, aCampos &#41;\n   USE &quot;EXCEL&quot; NEW\n   FOR nRow &#58;= 2 TO nRows\n      APPEND BLANK\n      FOR nCol &#58;= 1 TO nCols\n         FIELDPUT&#40; nCol, oHoja&#58;Cells&#40; nRow, nCol &#41;&#58;Value &#41;\n      NEXT\n   NEXT\n   CLOSE DATABASES\n   oExcel&#58;Quit&#40;&#41;\n   oHoja&#58;End&#40;&#41;\n   oExcel&#58;End&#40;&#41;\n   MsgInfo&#40; &quot;Foi criado o arquivo EXCEL&#46;DBF&quot; &#41;\n   RETURN\n\nFUNCTION ENVIAR&#40;&#41;\n   LOCAL oExcel, oHoja\n   LOCAL nRow &#58;= 1, nCol\n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\n   oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n   USE &quot;SIGLAS&quot; NEW\n   FOR nCol &#58;= 1 TO FCOUNT&#40;&#41;\n      oHoja&#58;Cells&#40; nRow, nCol &#41;&#58;Value &#58;= FieldName&#40; nCol &#41;\n   NEXT\n   DO WHILE &#46;NOT&#46; EOF&#40;&#41;\n      nRow++\n      FOR nCol &#58;= 1 TO FCOUNT&#40;&#41;\n         oHoja&#58;Cells&#40; nRow, nCol &#41;&#58;Value &#58;= FieldGet&#40; nCol &#41;\n      NEXT\n      SKIP\n   ENDDO\n   FOR nCol &#58;= 1 TO FCOUNT&#40;&#41;\n      oHoja&#58;Columns&#40; nCol &#41;&#58;AutoFit&#40;&#41;\n   NEXT\n   CLOSE DATABASES\n   oExcel&#58;Visible &#58;= &#46;T&#46;\n   oHoja&#58;End&#40;&#41;\n   oExcel&#58;End&#40;&#41;\n   RETURN\n[/code:1fspadpm]\n\n@braços : ? )','',0,'AIA=','1fspadpm',1,0,'',397,0,0),(21398,4803,3,397,0,'201.13.19.186',1162919193,1,0,1,0,1,1,'','','Amiguinho\n\nEsta solução para envio de email é bem aplicada para o teu caso.\n\nOs programas são muito pequenos e tem funcionamento muito simples.\n\n[b:3bk0f4ya]GetMail[/b:3bk0f4ya]\nBaixa as mensagens uma a uma em arquivos TeXTo e desta forma bastaria analisar o código e interpretar a mensagem podendo ser apresentado dentro de campos memo.\n\nCliquem neste [url=http&#58;//www&#46;interlog&#46;com/~tcharron/getmail&#46;html:3bk0f4ya]link[/url:3bk0f4ya] e baixem-no.\n\nA sintaxe é apresentada somente digitando no prompt do DOS a palavra GETMAIL\n\nVejam:\n\nGETMAIL -u <!-- e --><a href=\"mailto:usuario@provedor.com.br\">usuario@provedor.com.br</a><!-- e --> -pw senha -s pop3.provedor.com.br\n\n[b:3bk0f4ya]Blat[/b:3bk0f4ya]\nTalvez o mais conhecido de todos possui caracteristicas de suportar anexos e agora pode autenticar as mensagens. Peguem neste [url=http&#58;//www&#46;blat&#46;net/:3bk0f4ya]link[/url:3bk0f4ya].\n\nSintaxe:\n\nBLAT -body \"Corpo da mensagem\" -server smtp.ig.com.br \n        -to <!-- e --><a href=\"mailto:toledo@pctoledo.com.br\">toledo@pctoledo.com.br</a><!-- e --> -f <!-- e --><a href=\"mailto:jscrocha@terra.com.br\">jscrocha@terra.com.br</a><!-- e -->\n        -subject \"Assunto\" -u jscrocha -pw senha -attach c:\\teste.txt\n\n[b:3bk0f4ya]SendMail[/b:3bk0f4ya]\nAchei o mesmo muito bom e esta contido em um executavel de 32k. Contem os recursos de anexos e autenticação. Peguem neste [url=http&#58;//www&#46;petri&#46;co&#46;il/sendmail&#46;htm:3bk0f4ya]link[/url:3bk0f4ya].\n\nSintaxe:\n\nSendMail  /smtpserver smtp.itelefonica.com.br\n               /from <!-- e --><a href=\"mailto:jscrocha@terra.com.br\">jscrocha@terra.com.br</a><!-- e -->\n               /subject Teste com sendmail\n               /body Corpo da mensagem\n               /smtpport 25\n               /attachment c:\\teste.txt\n               /user irochinha\n               /password senha\n\nOs comandos devem estar em somente uma linha.\n\n[b:3bk0f4ya]mapisend[/b:3bk0f4ya]\n\nmapisend -u \"&lt;profile&gt;\" -p &lt;anything&gt; -r &lt;recipient&gt; -s \"&lt;subject&gt;\" -t &lt;text file containing the message&gt;\ne.g. mapisend -u \"john savill\" -p anything -r <!-- e --><a href=\"mailto:john@savilltech.com\">john@savilltech.com</a><!-- e --> -s \"Test message\" -t c:\\message\\mail4.txt\n\n-u Nome de quem envia\n-p Senha da conta de email\n-i Pede senha e usuario em prompt\n-r Email Recipiente(de quem vai receber a memsagem)\n-c Email de copia\n-s Assunto\n-m Conteudo do email \n-t Texto externo anexo ao corpo da mensagem\n-f Arquivo anexo externo\n-v Gera resumo sobre a operação\n\nBaixe deste [url=http&#58;//www&#46;dynawell&#46;com/support/Reskit/download/ex2kmapisend&#46;asp:3bk0f4ya]link[/url:3bk0f4ya]. Cortesia de Dudu_xBase.\n\nCom o codigo exemplo exemplificado mais a frente será fácil implementar este utilitario ao codigo e usar em seus aplicativos.\n\nPensando em utiliza-los em meus sistemas preparei um teste através de um pequeno aplicativo em Fivewin que pode ser entendido e re-escrito em Clipper DOS.\n\nCodigo completo:\n[code:3bk0f4ya]\n// Testing FiveWin new Internet Outgoing mail &#40;SMTP protocol&#41; Class\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\nfunction eudora&#40;&#41;\n   local oBar\n   DEFINE WINDOW oWnd TITLE &quot;Gerenciador de E-Mail&quot;\n   DEFINE BUTTONBAR oBar _3D OF oWnd\n   DEFINE BUTTON OF oBar ;\n                 ACTION Blat&#40; &quot;Este e o corpo da mensagem&quot;,;\n                              &quot;smtp&#46;itelefonica&#46;com&#46;br&quot;,;\n                              &quot;jscrocha@terra&#46;com&#46;br&quot;,;\n                              &quot;irochinha@itelefonica&#46;com&#46;br&quot;,;\n                              &quot;Greetings from Joe!&quot;,;\n                              &quot;Usuario&quot;,;\n                              &quot;Senha&quot;,;\n                              &quot;c&#58;\\drvgames&#46;txt&quot; &#41; TOOLTIP &quot;Enviar Mail&quot;\n   DEFINE BUTTON OF oBar ;\n                 ACTION GetMail&#40; &quot;usuario&quot;,;\n                                 &quot;Senha&quot;,;\n                                 &quot;pop&#46;sao&#46;terra&#46;com&#46;br&quot; &#41; TOOLTIP &quot;Receber Mail&quot;\n   DEFINE BUTTON OF oBar ;\n                 ACTION SendMail&#40; &quot;smtp&#46;itelefonica&#46;com&#46;br&quot;,;\n                                  &quot;jscrocha@terra&#46;com&#46;br&quot;,;\n                                  &quot;irochinha@itelefonica&#46;com&#46;br&quot;,;\n                                  &quot;SendMail teste&quot; ,;\n                                  &quot;Este foi um teste com SendMail&quot; ,;\n                                  25 ,;\n                                  &quot;c&#58;\\drvgames&#46;txt&quot; ,;\n                                  &quot;usuario&quot; ,;\n                                  &quot;Senha&quot; &#41;\n   SET MESSAGE OF oWnd TO &quot;SoftClever&quot; NOINSET DATE TIME KEYBOARD\n   ACTIVATE WINDOW oWnd \n   return nil\n\n//----------------------------------------------------------------------------//\nfunction blat&#40; cbody ,;\n               cserver ,;\n               cto ,;\n               cf ,;\n               csubject ,;\n               cu ,;\n               cpw ,;\n               cattach &#41;\n     BlatCMD &#58;= &#91; -body &quot;&#93;    + alltrim&#40;cbody&#41; + &#91;&quot;&#93; + ;\n                &#91; -server &#93;   + alltrim&#40;cserver&#41; + ;\n                &#91; -to &#93;       + alltrim&#40;cto&#41; + ;\n                &#91; -f &#93;        + alltrim&#40;cf&#41; + ;\n                &#91; -subject &quot;&#93; + alltrim&#40;csubject&#41; + &#91;&quot;&#93; + ;\n                &#91; -u &#93;        + alltrim&#40;cu&#41; + ;\n                &#91; -pw &#93;       + alltrim&#40;cpw&#41; + ;\n                &#91; -attach &#93;   + alltrim&#40;cattach&#41; \n     cMacro=&quot;BLAT&#46;EXE&quot; + BlatCMD\n     memowrit&#40; &quot;put&#46;bat&quot;, cMacro &#41;\n     ? cMacro\n     MsgRun&#40; &quot;Enviando a &quot;+LOWER&#40;cServer&#41;+&quot;&#46;&#46;&#46;&quot; &#41;\n     WinExec&#40; &quot;put&#46;bat&quot;, 7 &#41;\n     RETURN &#46;T&#46;\n\nfunction GetMail&#40; cuser ,;\n                  cpass ,;\n                  cserver &#41;\n     GetMCMD &#58;= &quot; -u &quot;   + alltrim&#40;cuser&#41; + ;\n                &quot; -pw &quot;  + alltrim&#40;cpass&#41; + ;\n                &quot; -s &quot;   + alltrim&#40;cserver&#41;\n     cMacro=&quot;GETMAIL&#46;EXE&quot; + GetMCMD\n     memowrit&#40; &quot;get&#46;bat&quot;, cMacro &#41;\n     ? cMacro\n     MsgRun&#40; &quot;Recebendo de &quot;+LOWER&#40;cServer&#41;+&quot;&#46;&#46;&#46;&quot; &#41;\n     WinExec&#40; &quot;get&#46;bat&quot;, 7 &#41;\n     RETURN &#46;T&#46;\n\nfunction SendMail&#40; cSmtpServer ,;\n                   cTo ,;\n                   cFrom ,;\n                   cSubject ,;\n                   cBody ,;\n                   nSmtpPort ,;\n                   cAttachment ,;\n                   cUser ,;\n                   cPassword &#41;\n     SendMail &#58;= &quot; /smtpserver &quot; + alltrim&#40;cSmtpServer&#41; +;\n                 &quot; /to &quot;         + alltrim&#40;cTo&#41; +;\n                 &quot; /from &quot;       + alltrim&#40;cFrom&#41; +;\n                 &quot; /subject &quot;    + alltrim&#40;cSubject&#41; +;\n                 &quot; /body &quot;       + alltrim&#40;cBody&#41; +;\n                 &quot; /smtpport &quot;   +     str&#40;nSmtpPort&#41; +;\n                 &quot; /attachment &quot; + alltrim&#40;cAttachment&#41; +;\n                 &quot; /user &quot;       + alltrim&#40;cUser&#41; +;\n                 &quot; /password &quot;   + alltrim&#40;cPassword&#41;\n     cMacro=&quot;SENDMAIL &quot; + SendMail\n     memowrit&#40; cMacro &#41;\n     ? cMacro\n     memowrit&#40;&quot;sendmail&#46;bat&quot;,cMacro&#41;\n     MsgRun&#40; &quot;Conectando a &quot;+LOWER&#40;cSmtpServer&#41;+&quot;&#46;&#46;&#46;&quot; &#41;\n     WinExec&#40; cMacro, 7 &#41;\n     RETURN &#46;T&#46;\n[/code:3bk0f4ya]\n\nA linha [b:3bk0f4ya]? cMacro[/b:3bk0f4ya] apenas apresenta o conteudo da linha de comando não tendo efeito nenhum no processamento.\n\n@braços :?)','',0,'UIA=','3bk0f4ya',1,0,'',397,0,0),(21399,4774,3,435,0,'200.155.196.29',1162919871,1,0,1,1,1,0,'','','Obrigado mesmo assim: mas o meu cliente quer usar o OpenOffive.org no lugar do MS-Office e o Oskar tá desenvolvendo esta classe, é que tentei usar o exemplo que ele postou faz tempo e dá erros, ai estava tentando achar ele para conversar.\n\nNo Brasil tão usando o BRoffice.\n\nAri','',0,'UIA=','32tf3s5z',1,0,'',435,0,0),(21400,4842,3,69,0,'206.210.97.138',1162921371,1,0,1,1,1,0,'','Resource Workshop and StringTables','Hi Everybody,\n\nI am looking at adding a second language to one of my program and it looks like the \"StringTable\" feature of Resource Workshop would work well for this.\n\nHas anyone used this?\n\nHow do I display the info from the stringtable in my app?\n\nThanks,\n\nJeff','',0,'UIA=','3qhrw14g',1,0,'',69,0,0),(21401,4843,2,184,0,'201.222.6.66',1162921379,1,0,1,1,1,0,'','MAC Address','Como puedo obtener la MAC Address de un equipo usando FW16 ?','',0,'UIA=','vf6uw7d5',1,0,'',184,0,0),(21402,4842,3,6,0,'87.20.227.72',1162922268,1,0,1,1,1,1,'','Re: Resource Workshop and StringTables','Have a look at how rpreview.prg does it.\n\nEMG','',0,'UIA=','3krfyo9e',1,0,'',6,0,0),(21403,4844,3,98,0,'70.71.111.92',1162922797,1,0,1,1,1,1,'','Expand a branch on Tree object','Hi everyone\n\nI was wondering if someone has already come with a solution to be able to expand only a branch on a tree (not the whole tree).\n\nI guess it\'s just a matter of traversiing ::aItems for that branch, so I\'m just hoping someone already made that method.\n\nRegards,\n\nLuis','',0,'UIA=','tbn9yppx',1,0,'',98,0,0),(21404,4844,3,303,0,'72.199.41.171',1162923188,1,0,1,1,1,0,'','','Luis,\n\nHave you tried oTree:aItems[n]:expand()?\n\nJames','',0,'','3rmy58g9',1,0,'',303,0,0),(21405,4799,6,439,0,'200.125.44.124',1162923347,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:lu76pqk6]que tal Jose,\nno me trevi a publicarla ya que me quieria serciorar con el master de la lib que la revisara y le diera el vo.bo., ya que no me considero un aceptable modificador de clases, siendo asi estoy seguro que alfredo pronto la revisara y la podra liberar y que nos la publique por aqui. de cualquier forma si la necesitas te la envio con mucho gusto. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nsalu2\nPaco[/quote:lu76pqk6]\n\nFrancisco, gracias por tu aclaración, de hecho me parece muy propio.','',0,'gA==','lu76pqk6',1,0,'',439,0,0),(21406,4845,6,152,0,'201.236.42.130',1162924218,1,0,1,1,1,1,'','Error con tDosPrn','Algo hice que al cambiar a las version 2.7 de FWH no me reconoce las instrucciones de tDosPrn :\n\nError BASE/1004: No existe el método: STARTPAGE\n\nAgradezco de antemano a quien me puede dar una mano.','',0,'gA==','3s3yt0z4',1,0,'',152,0,0),(21407,4846,6,533,0,'80.32.177.143',1162924529,1,0,1,1,1,0,'','Actualización FW 2.8 (Para Antonio)','Buenas Tardes Antonio (y al Foro <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ):\n\n   Ya nos hemos actualizado a la versión y para tener mejor organizado la estructura de mis proyectos estoy empezando desde cero en una máquina. Ha instalado fwh.exe y xharbour. Lo único que he copiado del ordenador de los proyectos es la carpeta bcc55, pero al compilar me salen los siguientes errores:\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for xHarbour 2.8 - October 2006         xHarbour development power ³Ü\n³ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\' and generating preprocessed output to \'tutor01.ppo\'...\n\nLines 24, Functions/Procedures 2\nGenerating C source output to \'tutor01.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntutor01.c:\nError E2209 c:\\xharbour\\include\\hbdefs.h 58: Unable to open include file \'stdarg.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 59: Unable to open include file \'stdio.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 60: Unable to open include file \'stdlib.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 61: Unable to open include file \'string.h\'\nError E2209 c:\\xharbour\\include\\hbsetup.h 61: Unable to open include file \'limits.h\'\nError E2188 c:\\xharbour\\include\\hbdefs.h 411: Expression syntax\nError E2257 c:\\xharbour\\include\\hbdefs.h 436: , expected\nError E2139 c:\\xharbour\\include\\hbvmpub.h 227: Declaration missing ;\nError E2451 tutor01.c 25: Undefined symbol \'NULL\'\nError E2141 tutor01.c 25: Declaration syntax error\nError E2190 tutor01.c 25: Unexpected }\nError E2190 tutor01.c 25: Unexpected }\nError E2040 tutor01.c 25: Declaration terminated incorrectly\nError E2190 tutor01.c 31: Unexpected }\nError E2190 tutor01.c 31: Unexpected }\nError E2109 tutor01.c 31: Not an allowed type in function hb_vm_SymbolInit_TUTOR01\n*** 16 errors in Compile ***\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'C0W32.OBJ\'\n* There are errors\n\n\n\nPense que la carpeta bcc55 sería a lo mejor antigua (yo tenía fw 2.4) pero me he bajado la actual de la Web y sigue igual.\n\nGRACIAS','',0,'gA==','3msytji0',1,0,'',533,0,0),(21408,4846,6,2,0,'87.218.146.167',1162925253,1,0,1,1,1,1,'','','Mike,\n\nTienes que crear los ficheros bcc32.cfg y ilink32.cfg en c:\\bcc55\\bin ó en el path en donde hayas instalado Borland. \n\nEl contenido de esos ficheros ha de ser:\n\nbcc32.cfg:\n-I\"C:\\Bcc55\\include\" \n-L\"C:\\Bcc55\\lib\"  \n\nilink32.cfg:\n-L\"C:\\Bcc55\\lib\"','',0,'gA==','3pprrc4b',1,0,'',2,0,0),(21409,4847,6,180,0,'83.61.175.201',1162927002,1,0,1,1,1,0,'','Error bRClickHeader en XBrowse','Al pulsar con el botón derecho del ratón sobre un Header se produce el error que reproduzco. Podría evitarlo con  oLbx:aCols[ nFor ]:bRClickHeader := {|r,c,f,o| NIL }, pero esto no tiene efecto en la primera y última columnas.\n[code:1e4qanpx]   Called from&#58; menu&#46;prg =&gt; MENUDRAWITEM&#40;1370&#41;\n   Called from&#58; window&#46;prg =&gt; TXBROWSE&#58;DRAWITEM&#40;1053&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TXBROWSE&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3169&#41;\n   Called from&#58;  =&gt; TRACKPOPUP&#40;0&#41;\n   Called from&#58; MENU&#46;PRG =&gt; TMENU&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; xbrowse&#46;prg =&gt; TXBROWSE&#58;SETCOLUMNS&#40;2944&#41;\n   Called from&#58; xbrowse&#46;prg =&gt; TXBROWSE&#58;RBUTTONDOWN&#40;2297&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TXBROWSE&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3169&#41;\n   Called from&#58;  =&gt; DIALOGBOX&#40;0&#41;\n   Called from&#58; DIALOG&#46;PRG =&gt; TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; tc28&#46;prg =&gt; TC28&#40;460&#41;\n   Called from&#58; agrario&#46;prg =&gt; &#40;b&#41;PRINCIPAL&#40;299&#41;\n   Called from&#58; TOOLBAR&#46;PRG =&gt; TTOOLBAR&#58;COMMAND&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;COMMAND&#40;939&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3169&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;[/code:1e4qanpx]\n¿Alguna solución?\n\nUn saludo,\nManuel','',0,'AIA=','1e4qanpx',1,0,'',180,0,0),(21410,4848,6,104,0,'201.58.86.7',1162927389,1,0,1,1,1,0,'','a janela está maximizada ?','Olá,\n\nComo saber se uma dialog/window está maximizada ?\n\nObrigado,','',0,'AIA=','3royogau',1,0,'',104,0,0),(21411,4840,2,124,0,'200.82.56.111',1162928680,1,0,1,1,1,0,'','','Antonio:\n\nGracias por contestar, pero se ve que no me expresé bien, necesito poder programar o manejar de alguna manera el evento de cierre por la \"X\", ya que al cierre ( por ej. desde un botón puertita salir que agregamos o desde el ESC que está también manejado, hay código que se ejecuta. No se como manejar el evento cuando se oprime la \"x\" para cerrar la ventana.\n\ngracias.\nRicardo.-','',0,'AIA=','sx31ljbk',1,0,'',124,0,0),(21412,4699,1,186,0,'66.130.50.142',1162932995,1,0,1,1,1,1,'','','Hi Antonio,\n\n\nThanks\n\nI would like to know what possibility I have to implement an idea of mine.\n\nThe OnError METHOD receives an cFieldName an nError parameters. Is nError always the same or could it be different ?  Where is nError comes from ?\n\n\nRegards','',0,'AIA=','m1ju447q',1,0,'',186,0,0),(21413,4779,5,26,0,'84.52.130.249',1162935310,1,0,1,1,1,1,'','','Hello!\n\n<!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->\nNice screenshots!      <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nIs FiveMac based on QT 4 library?\n<!-- m --><a class=\"postlink\" href=\"http://www.trolltech.com/products/qt/features/crossplatform/mac\">http://www.trolltech.com/products/qt/fe ... atform/mac</a><!-- m -->\n\nThanks, Roman','',0,'AIA=','15gylhr5',1,0,'',26,0,0),(21414,4849,4,13,0,'213.76.252.200',1162935719,1,0,1,1,1,0,'','MoBi works with new FWPPC !','Antonio,\n\nIt\'s look like my main products MoBi work fine with new version of FWPPC. \n\nShortly:\n- this system is create for FMCG brand\n- user may create order and cash documents for customer\n- system have implemented unique algorithm for save individual trade discount eg. M* or M??A* or *\n- user synchronize data with central / managment system, size of synchronize with GPRS links data is minimal \n\nSome screenshoots are available in this link:\n<!-- m --><a class=\"postlink\" href=\"http://www.softech.net.pl/mobirys.html\">http://www.softech.net.pl/mobirys.html</a><!-- m -->\n\nAntonio,\nThanks for your great work.\n\nPS. Memory consumption at the end is acceptable value - too much lower compare older version.\n\nRegards\nPawel','',0,'AIA=','3iwlhk2e',1,0,'',13,0,0),(21415,4848,6,45,0,'201.253.50.34',1162936340,1,0,1,1,1,0,'','Re: a janela está maximizada ?','[quote=&quot;Rossine&quot;:2baykers]Olá,\n\nComo saber se uma dialog/window está maximizada ?\n\nObrigado,[/quote:2baykers]\n\nRossine,\n    Cuando Windows envia el mensaje WM_SIZE que puede ser capturado por el bloque de codigo ::bResized, le envia como \"primer\" argumento al bloque el tipo de estado de la ventana, que usted puede capturar tranquilamente a traves de una variable de su programa para posterior verificar el estado de la misma.\n\n/*\n * WM_SIZE message wParam values\n */\n#define SIZE_RESTORED       0\n#define SIZE_MINIMIZED      1\n#define SIZE_MAXIMIZED      2\n#define SIZE_MAXSHOW        3\n#define SIZE_MAXHIDE        4\n\n/*\n * Obsolete constant names\n */\n#define SIZENORMAL          SIZE_RESTORED\n#define SIZEICONIC          SIZE_MINIMIZED\n#define SIZEFULLSCREEN      SIZE_MAXIMIZED\n#define SIZEZOOMSHOW        SIZE_MAXSHOW\n#define SIZEZOOMHIDE        SIZE_MAXHIDE\n\nEjemplo:\n[code:2baykers]\nlocal nSizeType&#58;= 0\n\nDEFINE WINDOW oWnd  \n   @0,0 BUTTON oBtn PROMPT &quot;Ver Estado&quot; OF oWnd ACTION Alert&#40;Str&#40;nSizeType&#41;&#41;\n  \n  oWnd&#58;bResized&#58;= &#123;|wParam| nSizeType&#58;= wParam &#125;\n\nACTIVATE WINDOW oWnd \n[/code:2baykers]\n\n\nSaludos\nHernan','',0,'gIA=','2baykers',1,0,'',45,0,0),(21416,4849,4,2,0,'87.218.146.167',1162937974,1,0,1,1,1,1,'','','Pawel,\n\nVery good! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nYour application looks very nice and professional, congratulations!','',0,'gIA=','2qzbxfpr',1,0,'',2,0,0),(21417,4779,5,2,0,'87.218.146.167',1162938448,1,0,1,1,1,1,'','','Roman,\n\n&gt; Nice screenshots!  \n\nThanks,\n\n&gt; Is FiveMac based on QT 4 library?\n\nNo. FiveMac uses OSX own GUI \"Cocoa\" API directly. Its been developed from scratch, keeping as much compatibility with FiveWin as possible.','',0,'gIA=','tywyg1gh',1,0,'',2,0,0),(21418,4822,3,49,0,'62.13.172.78',1162941503,1,0,1,1,1,1,'','','to converte rpreview to a class is easy... and then ?','',0,'gIA=','3criyiys',1,0,'',49,0,0),(21419,1709,3,49,0,'62.13.172.78',1162942900,1,0,1,1,1,1,'','','I recompiled all \n all ok \nI compiled the class and my sample ok \n\nI not understand What happened to you ...perhaps U wrong...','',0,'gIA=','18wmlwzx',1,0,'',49,0,0),(21420,1709,3,49,0,'62.13.172.78',1162942969,1,0,1,1,1,1,'','','Perhaps I use.....Xmate to compile all ( lib,Dll. and prg) with success !!!!!!!','',0,'gIA=','2f18zkti',1,0,'',49,0,0),(21421,4850,2,760,0,'200.60.126.177',1162944468,1,0,1,1,1,0,'','Problemas con SetFocus()','Hola amigos del foro\n\nTengo el siguiente problema, tengo un dialogo con 10 controles, entre gets y buttons.\n\ndefine dialog...\nredefine get oget[1] var odbf:cuenta  ....\nredefine get oget[1] var odbf:nombre  ....\nredefine get oget[1] var odbf:dh  ....\nredefine get oget[1] var odbf:importe  ....\nredefine button oBtn[1] action grabar()\nredefine button oBtn[1] action oDlg:end()\nactivate dialog...\nlo que quiero es que al presionar el boton de grabar el cursor vaya al get1, he usado el oget[1]:setfocus, pero pasa el foco al boton de salir...\nQue puedo hacer?   Quisiera saber en que numero de control me encuentro para hacer oDlg:aControls[numero]:Setfocus()...\n\nAyuda por favor...\n\nSalu2','',0,'','w8v0m5ow',1,0,'',760,0,0),(21422,4842,3,69,0,'74.13.39.69',1162944636,1,0,1,1,1,0,'','','Thanks Enrico,\n\nExactly what I was looking for.\n\n\nJeff','',0,'','1yv2glse',1,0,'',69,0,0),(21423,4840,2,774,0,'200.72.145.224',1162947838,1,0,1,1,1,1,'','','Como te indico Antonio,,\n\nlocal lSalir := .f. \n\nACTIVATE DIALOG oDlg ... VALID ( ..., lSalir ) \n\nPrimero defines la variable local.. lSalir\nposteriormente le asignas .T. solamente atravez del boton, o el evento q tu definas para tal efecto,, y claro cuando el usuario presione la famosa X como le llamas tu,, la variable lSalir aun estara en .F. y el Valid del Dialog.. hara su trabajito y no dejara q el usuario se salgo de este,, para q no cause los problemas q tu ya bien conoces,,, y que yo ya tube en placer de poder corregir asi como al Gran Antinio me lo indico en su momento\n\nMe Explique o no !!! si tienes dudas escribe el codigo PRG.','',0,'','3re9npw4',1,0,'',774,0,0),(21424,4832,2,774,0,'200.72.145.224',1162947918,1,0,1,1,1,1,'','','Hola aun pensando','',0,'','117hkj68',1,0,'',774,0,0),(21425,4779,5,26,0,'84.52.130.249',1162948185,1,0,1,1,1,1,'','','Hello!\n\n[quote=&quot;Antonio Linares&quot;:kkbsin7a]Roman,\n\n&gt; Nice screenshots!  \n\nThanks,\n\n&gt; Is FiveMac based on QT 4 library?\n\nNo. FiveMac uses OSX own GUI \"Cocoa\" API directly. Its been developed from scratch, keeping as much compatibility with FiveWin as possible.[/quote:kkbsin7a]\n\nCongratulations!\n\nRegards, Roman\n\nP.S. I\'ve found this two links about history of Cocoa/NeXTSTEP:\n<!-- m --><a class=\"postlink\" href=\"http://developer.apple.com/documentation/Cocoa/Conceptual/CocoaFundamentals/WhatIsCocoa/chapter_2_section_6.html\">http://developer.apple.com/documentatio ... ion_6.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.oreillynet.com/pub/a/mac/2002/05/03/cocoa_history_one.html\">http://www.oreillynet.com/pub/a/mac/200 ... y_one.html</a><!-- m -->','',0,'gA==','kkbsin7a',1,0,'',26,0,0),(21426,4851,2,708,0,'201.246.7.248',1162952131,1,0,1,1,1,0,'','Error con Tprinter. ??','Amigos, programo con FW2.2, clipper 5.3e, blinker 5.0 y workshop\nel asunto es que tengo que imprimir en una impresora matricial, okidata 320 turbo, el tema es que si mando la impresion con .\nopr:say(....)\n\no con opr:Cmsay(....) ocurre lo siguiente\n\na) no me respeta el salto de linea y me se me salta dos en vez de uno, es decir no me respeta el salto de linea con el say(), ademas que no puedo decirle que en vez de imprimir la cadena completa del campo, solo quiero 30 caracteres y no los 50.\n\nb) cuando imprimo con el cmsay, los margenes me los hace bolsa, nada cuadra\nmando a imprimir a la linea 4.0 cm y me sale en la 2.xx, asunto le tuve que sumar 2.6 cms a la fila para que quedara mas  o menos\npero el problema es cuando le doy las columnas, hay pasa cualquier cosa\nes decir si digo \nopr:cmsay(4.0,3.0...) sale como al borde de la hoja, ok, le sumo 2.5 a los tres pensando en los bordes\nopr:cmsay(4.0,5.6, ....), bien me sale, pero me paso a la siguiente fila y no esta en la liena que quiero, es decir si le digo opr:Cmsay(5.0.5.6..), no me sale realmente en la fila 5 cms y el margen que antes funciono, ahora se me fue 1 cms mas a la derecha...\n\nprobe con los dos con Say, como decia se me pega un salto de linea de mas, y con el Cmsay no me respeta los parametros e imprime en cualquier lado..\n\ncomo controlo los parametros de manera adecuada y como le digo a la impresion que no quiero todo si no que una parte del texto.\n\n\nsera la okidata.. en windows xp\n\npor favor ayuda','',0,'gA==','3a0h9i2n',1,0,'',708,0,0),(21427,4852,6,73,0,'201.132.233.137',1162952707,1,0,1,1,1,0,'','bitmaps en pellesc','alguien sabra como configurar el pellesc para al momento de tener abierto el arbol de bitmaps y estarlas seleccionando estas me las muestre sin tener que abrirlas con \"enter\", si abro directamente el .exe estas si me las muestra asi...\nsalu2\npaco','',0,'gA==','2zonzoj6',1,0,'',73,0,0),(21428,4852,6,582,0,'201.252.121.79',1162959105,1,0,1,1,1,0,'','Re: bitmaps en pellesc','[quote=&quot;Francisco Horta&quot;:10vpmhxd]alguien sabra como configurar el pellesc para al momento de tener abierto el arbol de bitmaps y estarlas seleccionando estas me las muestre sin tener que abrirlas con \"enter\", si abro directamente el .exe estas si me las muestra asi...\nsalu2\npaco[/quote:10vpmhxd]\n\nPaco, a la izquierda del arbol del recurso hay una barra que es un splitter.\nSelecionalo hacia la derecha, y listo el pollo !!!\n\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','10vpmhxd',1,0,'',582,0,0),(21429,4853,6,307,0,'200.79.146.231',1162961138,1,1,1,1,1,0,'','reparar dbfs','saludos, alguien sabe de una utileria para reparar dbfs dañadas??\nse me fue la luz y se me daño una tabla immportante y no puedo recuperarla..\n\nsaludos\n\narvisnet','',0,'gA==','34du659i',1,0,'',307,0,0),(21430,4852,6,73,0,'201.132.233.137',1162961408,1,0,1,1,1,0,'','','ups, que wei, que facil, nunca me habia dado una vuelta tan a la izquierda, jajaja\nsalu2\npaco','',0,'gA==','1i3jxj58',1,0,'',73,0,0),(21431,4853,6,73,0,'201.132.233.137',1162961486,1,0,1,1,1,0,'','','Arvisnet, \nsi es DBF ai te va: esta el Advanced DBF repair\nsalu2\npaco','',0,'gA==','2cfd04to',1,0,'',73,0,0),(21432,4832,2,54,0,'189.132.114.238',1162963482,1,0,1,1,1,1,'','','[quote=&quot;A&amp;C&quot;:24hy6f39]Hola aun pensando[/quote:24hy6f39]\n\nSorry,\n\n[code:24hy6f39]oDlg&#58;bGotFocus &#58;= &#123;|| mifuncion&#40;&#41;&#125;[/code:24hy6f39]\n\nSaludos','',0,'gIA=','24hy6f39',1,0,'',54,0,0),(21433,4844,3,98,0,'70.71.111.92',1162970144,1,0,1,1,1,1,'','','James:\n\n[quote=&quot;James Bott&quot;:19amhf40]\nHave you tried oTree:aItems[n]:expand()?\n[/quote:19amhf40]\n\nIndeed.  I was looking for an efficient way to walk through the branches and either expand or collapse all branches below any given node.\n\nI added a few new methods, and made a minor enhancement to the way the static funcition ScanItems() in TTreeView class works to support a toggle mode.  \n\nHere\'s what I added to TtvItem.prg:\n\n[code:19amhf40]\n\n#define TVE_TOGGLE        3\n\n#define TVM_ENSUREVISIBLE TV_FIRST + 20\n\n&#46;&#46;&#46;&#46;\n\n   METHOD Toggle&#40;&#41; INLINE ;\n      SendMessage&#40; &#58;&#58;oTree&#58;hWnd, TVM_EXPAND, TVE_TOGGLE, &#58;&#58;hItem &#41;\n\n   METHOD MakeVisible&#40;&#41; INLINE ;\n      SendMessage&#40; &#58;&#58;oTree&#58;hWnd, TVM_ENSUREVISIBLE, 0, &#58;&#58;hItem &#41;\n\n[/code:19amhf40]\n\nAnd here\'s what I added to TTreeVie.prg (ehnancements in bold):\n[ Note: it seems bold doesn\'t work inside the code bbcode, so look out for\n[ b ] .... [ / b ] and strip it out from the actual code\n\n[code:19amhf40]\n\n   METHOD CollapseAll&#40; &#91;b&#93;oItem&#91;/b&#93; &#41; INLINE ScanItems&#40; &#58;&#58;aItems, &#46;f&#46; &#41;, ;\n      &#91;b&#93;oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, if&#40; oItem &lt;&gt; nil, oItem&#58;MakeVisible&#40;&#41;, nil &#41;&#91;/b&#93;\n\n   METHOD CollapseBranch&#40; oItem &#41; INLINE ;\n      if&#40; oItem == nil, oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, nil &#41;, ;\n      if&#40; oItem &lt;&gt; nil, &#40; oItem&#58;Collapse&#40;&#41;, ScanItems&#40; oItem&#58;aItems, &#46;f&#46; &#41;, oItem&#58;MakeVisible&#40;&#41; &#41;, nil &#41;\n\n   METHOD ExpandAll&#40; &#91;b&#93;oItem&#91;/b&#93; &#41; INLINE ScanItems&#40; &#58;&#58;aItems, &#46;t&#46; &#41;, ;\n      &#91;b&#93;oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, if&#40; oItem &lt;&gt; nil, oItem&#58;MakeVisible&#40;&#41;, nil &#41;&#91;/b&#93;\n\n   METHOD ExpandBranch&#40; oItem &#41; INLINE ;\n      if&#40; oItem == nil, oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, nil &#41;, ;\n      if&#40; oItem &lt;&gt; nil, &#40; oItem&#58;Expand&#40;&#41;, ScanItems&#40; oItem&#58;aItems, &#46;t&#46; &#41;, oItem&#58;MakeVisible&#40;&#41; &#41;, nil &#41;\n\n   METHOD Toggle&#40;&#41; INLINE AEval&#40; &#58;&#58;aItems, &#123; | oItem | oItem&#58;Toggle&#40;&#41; &#125; &#41;\n\n   METHOD ToggleAll&#40; oItem &#41; INLINE ScanItems&#40; &#58;&#58;aItems, , &#46;t&#46; &#41;, ;\n      oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, if&#40; oItem &lt;&gt; nil, oItem&#58;MakeVisible&#40;&#41;, nil &#41;\n\n   METHOD ToggleBranch&#40; oItem &#41; INLINE ;\n      if&#40; oItem == nil, oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, nil &#41;, ;\n      if&#40; oItem &lt;&gt; nil, &#40; oItem&#58;Toggle&#40;&#41;, ScanItems&#40; oItem&#58;aItems, , &#46;t&#46; &#41;, oItem&#58;MakeVisible&#40;&#41; &#41;, nil &#41;\n\n&#46;&#46;&#46;&#46;\n\nstatic function ScanItems&#40; aItems, lExpand&#91;b&#93;, lToggle&#91;/b&#93; &#41;\n\n   local oItem, i\n\n   DEFAULT lExpand &#58;= &#46;t&#46;&#91;b&#93;, lToggle &#58;= &#46;f&#46;&#91;/b&#93;\n\n   for i &#58;= 1 to Len&#40; aItems &#41;\n       oItem = aItems&#91; i &#93;\n\n       &#91;b&#93;if lToggle\n          oItem&#58;Toggle&#40;&#41;\n       else&#91;/b&#93;if lExpand\n          oItem&#58;Expand&#40;&#41;\n       else\n          oItem&#58;Collapse&#40;&#41;\n       endif\n\n       if Len&#40; oItem&#58;aItems &#41; != 0\n          ScanItems&#40; oItem&#58;aItems&#91;b&#93;, lExpand, lToggle&#91;/b&#93; &#41;\n       endif\n   next\n\nreturn nil\n\n\n[/code:19amhf40]\n\nAs you can see, I added a 3rd param to ScanItems to handle the toggle mode (which overrides lExpand param).\n\nThe previously existing methods ExpandAll() and CollapseAll() were just augmented with a call to the new TTvItem method MakeVisible() to ensure that when you have lots of branches in your tree, the selected item remains within the visible area.\n\nThe ToggleBranch() method was precisely what I was aiming for; with this new method you just pass the oItem you want to expand all the way down, with a single call.  Toggle() will just act like Expand() or Collapse(), only acting upon the specified oItem, but not on the rest of the items below the specified one.\n\nHope this is useful for others, and Antonio, please add it to FWH.\n\nRegards,\n\nLuis','',0,'gIA=','19amhf40',1,1163000432,'',98,1,0),(21434,4854,6,96,0,'200.126.179.22',1162970279,1,0,1,1,1,0,'','ADO + FWH + DBF + SQL','Buenas a todos,\n\n1) De donde puedo sacar información de las propiedades y metodos de ADO??\n\n2) Quisiera saber que estoy haciendo mal en este código. El Browse con el primer recordset me lo muestra de maravilla, ahora cuando quiero insertar en la tabla F10TAA.DBF el contenido de F10T01 (Las dos son iguales) me da el siguiente error.\n\n   Error occurred at: 11/08/06, 04:14:32\n   Error description: Error ADODB.RecordSet/14  DISP_E_BADPARAMCOUNT: EXECUTE\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:EXECUTE(0)\n   Called from: TestAdo.prg =&gt; MAIN(105)\n\nEl código más abajo. \n\n\nFUNCTION MAIN() \n\n    LOCAL oRs, oRs1, cConn , cConn1 , oErr ,cSQL, cSQL1, cSQL_select, cSQL_from, cSQL_where, cSQL_order\n\n   cSQL_select = \"select F10T01.CODINTPRD, F10T01.NOMPRD, F10T01.PRCSUG, F10T01.CODRUB, F10G02.NOMRUB, F10T01.CODBAR \"\n   cSQL_from   = \"from F10T01, F10G02 \"\n   cSQL_where  = \"where F10T01.CODRUB = F10G02.CODRUB and F10T01.CODBAR = \'8888888888888\'\"\n   cSQL_order  = \"order by F10T01.NOMPRD\"\n  \n   cSQL = cSQL_select + cSQL_from +  cSQL_where + cSQL_order\n    \n	 oRs := CreateObject(\"ADODB.RecordSet\") \n	 oRs:CursorLocation := adUseClient \n	 oRs:LockType := adLockOptimistic \n	 oRs:CursorType := adOpenDynamic \n	 oRs:ActiveConnection := \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\ft\\apl;Extended Properties=dBASE IV\" \n	 oRs:Source := cSQL\n \n    TRY \n       oRs:Open()\n       oRs:MoveFirst()\n        \n    CATCH oErr \n        ? oErr:Description \n        RETURN NIL \n    END TRY \n\n    // Funciona OK!!!!\n\n    TCBROWSERECORDSET( oRs ) \n\n   oRs:Close()  \n	 \n	 oRs := CreateObject(\"ADODB.RecordSet\") \n	 oRs:CursorLocation := adUseClient \n	 oRs:LockType := adLockOptimistic \n	 oRs:CursorType := adOpenDynamic \n	 oRs:ActiveConnection := \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\ft\\apl;Extended Properties=dBASE IV\" \n	 oRs:Source := cSQL1\n\n// Aquí es donde da el error\n    \n   cSQL1 = \"insert into F10TAA ( CODINTPRD, NOMPRD, PRCVTA, PRCSUG, CODBAR ) select CODINTPRD, NOMPRD, PRCVTA, PRCSUG, CODBAR from F10T01 where CODBAR = \'8888888888888\'\"\n\n   oRs:Open()\n   oRs:Update()\n\n    \n   oRs:Close() \n\n    RETURN NIL\n\n---------------------------------------------------------------------------------\n\nMuchas Gracias a todos,\n\nAriel S Gigliotti','',0,'gIA=','2o4qepsd',1,0,'',96,0,0),(21435,4822,3,678,0,'168.209.98.43',1162978252,1,0,1,1,1,1,'','','Hi All\nI have resolved this. The problem was caused because the no of bitmaps in the imagelist is &gt; than the no of btns, and I was assuming the my new pdf btn corresponded to the correct bmp in the imagelist. \n\nI had to add a call to ::oBar:ChangeBitmap()  to set my Pdf btn to the correct bmp. All ok now.\n\nThanks for the assistance\nPeter','',0,'gIA=','mwgfs9ur',1,0,'',678,0,0),(21436,4855,6,24,0,'80.37.55.44',1162984905,1,0,1,1,1,1,'','TsBrowse y la scroll vertical','¿ A alguien le funciona correctamente las scrollbar de la tsbrowse ?\nNo marca bien la cantidad de registros ni desde dbf ni desde array.\n\nHe intentado jugar con el bLogicLen , pero nanai de la china...\n\nCualquier ayuda sera bien recibida.\n\nSaludos','',0,'gIA=','onjg7q8f',1,0,'',24,0,0),(21437,4856,7,600,0,'195.66.150.52',1162985678,1,0,1,1,1,0,'','COnversion de cadena a numero','Buenas, tengo un campo cadena de un fichero dbf funcionando en entorno Windows donde los usuarios graban una tasa (numerico con 2 decimales) de la siguiente forma:\n\n3.22\n2.10\n...\nUtilizando la funcion: val( campo ) me devuelve un valor numerico con 2 decimales.\nPero, desde FWPPC me devuelve 0 y creo que es por el . decimal que no lo admite ¿Es asi? o ¿simplemte tengo que seleccionar el lenguaje español en el programa ?\nLa funcion MsgYsNo me sale en Ingles ¿Que estoy haciendo mal?\n\nGracias y espero ayuda \n\nJuan José.','',0,'gIA=','14b5yvz7',1,0,'',600,0,0),(21438,4805,6,147,0,'200.45.54.133',1162986694,1,0,1,0,1,1,'','','Una manera es usar algún metodo que solo lo tiene la wBrowse de Hernán\npor ej:\n\n   [b:1bvp519b]TWbrowse():lHScroll := .F.[/b:1bvp519b]  // No está presente en wBrowse de FW\n   @0,0  LISTBOX  oBrw ;\n   .....\n\nVerificá que la TwBrw32.lib esté, en tu archivo enlazador, antes de la fiveh[x].lib de FW\n\nSaludos','',0,'QA==','1bvp519b',1,0,'',147,0,0),(21439,4594,6,147,0,'200.45.54.133',1162987154,1,0,1,0,1,1,'','','Por favor; podrían subir xbackup lite a [url:36zwf0a1]http&#58;//www&#46;hyperupload&#46;com/[/url:36zwf0a1] \nAl acceder al enlace que dajaron siempre me dá el  mismo mensaje: [i:36zwf0a1]Todos los puertos de descarga asignados a su país (Argentina) están en uso.[/i:36zwf0a1]\n\ngracias\nSaludos','',0,'MA==','36zwf0a1',1,0,'',147,0,0),(21440,4831,6,147,0,'200.45.54.133',1162987906,1,0,1,0,1,1,'','','Efectivamente si una ventana tiene un indice activo, al darle el foco a la otra ventana esta hará un refresh sobre el ultimo indice activo. La solución es que   en cada dlg pongas:\noDlg1:bGotFocus:= {|| indice1 }\n\ny lo mismo en el otro Dlg para el indice correspondiente\n\nSaludos','',0,'MA==','dejv7f5k',1,0,'',147,0,0),(21441,4857,7,600,0,'195.66.150.52',1162988085,1,0,1,1,1,0,'','Funcionamiento de los menus','No logro entender el funcionamiento de los menus.\nMiro el ejemplo menus.prg y, vale, lo compilo y funciona, pero intento reproducir un menú más amplio como el de la aplicacion SV y no me funciona.\n¿ Podria alguien indicarme como es su funcionamiento? o donde existe documentacion al respecto?\n\nUn saludo\nJuan José','',0,'MA==','2wkgil08',1,0,'',600,0,0),(21442,4858,6,838,0,'80.34.222.112',1162988682,1,0,1,1,1,0,'','Barlib y harbour','Hola amigos\n\nAl compilar con la libreria barlib, me da el siguiente error\n\n*************************\n\nError: Unresolved external \'_HB_FUN_CODE3_9\' referenced from C:\\FUENTES\\HARBOUR\\MOCWIN2006\\OBJ\\ALBARAN.OBJ\n\n****************************\nQue puede ser ?\n\nSaludos \n\nJose Luis','',0,'MA==','1mguv62m',1,0,'',838,0,0),(21443,4858,6,362,0,'200.168.52.156',1162990708,1,0,1,1,1,1,'','','Mira aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=676\">http://www.fivewin.com.br/exibedicas.asp?id=676</a><!-- m -->\n\nSaludos.','',0,'MA==','258dapib',1,0,'',362,0,0),(21444,4594,6,362,0,'200.168.52.156',1162990967,1,0,1,1,1,1,'','','Nueva Version\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=674\">http://www.fivewin.com.br/exibedicas.asp?id=674</a><!-- m -->\n\nSaludos','',0,'MA==','3b4yenlr',1,0,'',362,0,0),(21445,4805,6,582,0,'201.252.121.79',1162991092,1,0,1,1,1,0,'','','[quote=&quot;jlaguilars&quot;:7waetixk]Hola a todos:\n\nPerdonen pero no se que estoy haciendo mal o que me falta pero no he podido tan siquiera, echar a andar los programas de ejemplo que trae la clase, como que observo que en vez de correr la clase de hernan corre la fivewin, y me he serciorado ( segun yo) que en verdad sea linkada dicha lib.\n\nUn saludo\n\nJosé Luis Aguilar[/quote:7waetixk]\nJose Luis, asegurate que la lib de Hernan debe ser linkada antes de las de fiveWin.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','7waetixk',1,0,'',582,0,0),(21446,4594,6,147,0,'200.45.54.133',1162991521,1,0,1,0,1,1,'','','muchas gracias!','',0,'gA==','2bhaw5b6',1,0,'',147,0,0),(21447,4848,6,104,0,'201.58.11.161',1162991620,1,0,1,1,1,0,'','','Exatamente isto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias Maestro,\n\nRossine.','',0,'gA==','1hj51mc6',1,0,'',104,0,0),(21448,4856,7,2,0,'87.218.146.167',1162992407,1,0,1,1,1,1,'','','Juan José,\n\nEste código funciona correctamente en FWPPC:\n\nMsgInfo( Val( \"3.22\" ) )\n\n&gt; La funcion MsgYsNo me sale en Ingles ¿Que estoy haciendo mal? \n\nMsgYesNo() admite dos parámetros:\n\nMsgYesNo( \"¿ Desea finalizar ?\", \"Seleccione\" )','',0,'gA==','22cdazmt',1,0,'',2,0,0),(21449,4858,6,838,0,'80.34.222.112',1162993695,1,0,1,1,1,0,'','','Gracias por tu ayuda\n\nSaludos\n\nJose Luis','',0,'gA==','2hc2mrd3',1,0,'',838,0,0),(21450,4856,7,600,0,'195.66.150.52',1162993813,1,0,1,1,1,0,'','Conversion de cadena a numero','Antonio, MsgYesno, se como funciona, pero el caso es que el dialogo me aparece en ingles y creo que todo mi problema está en que no se como decirle a la aplicacion que funciones en castellano.\n\nJuanjosé','',0,'gA==','13mt1ode',1,0,'',600,0,0),(21451,4859,1,173,0,'203.190.250.104',1162998241,1,0,1,1,1,0,'','How many component in a dialog ?','Dear all,\n\nI\'m use Fw2.1c and Blinker 7 now, I got error in my app. when open sub dialog. Inside sub dialog have 41 of Get, 41 of Say, 1 of Folder and 2 of sbutton. If I remove out of get to 20 the system work fine. How I fix if ?\n\nBest Regrad,\n\nPeter\n \n\n** This error ****\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nTitle: \n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from CREATEDLGE(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from TFOLDER:DEFAULT(0)\n   Called from TFOLDER:INITIATE(0)\n   Called from ASEND(0)\n   Called from TDIALOG:INITIATE(0)\n   Called from TDIALOG:HANDLEEVEN(0)\n   Called from DIALOGBOXI(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PAEF(1868)\n   Called from (b)ANSTOPICME(386)\n   Called from TSBUTTON:CLICK(700)\n   Called from TSBUTTON:HANDLEEVEN(0)\n   Called from TSBUTTON:HANDLEEVEN(1154)\n   Called from DIALOGBOXI(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ANSTOPICME(455)\n   Called from (b)MAINANESTH(201)\n   Called from TSBUTTON:CLICK(700)\n   Called from TSBUTTON:HANDLEEVEN(0)\n   Called from TSBUTTON:HANDLEEVEN(1154)\n   Called from DIALOGBOXI(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from MAINANESTH(298)\n   Called from (b)MAIN(277)\n   Called from TSBUTTON:CLICK(700)\n   Called from TSBUTTON:HANDLEEVEN(0)\n   Called from TSBUTTON:HANDLEEVEN(1154)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(397)','',0,'gA==','1bpu3zkp',1,0,'',173,0,0),(21452,4844,3,98,0,'70.71.111.92',1162999776,1,0,1,1,1,1,'','Re: Expand a branch on Tree object','Antonio:\n\nI just spotted an odd thing.\n\nInside ScanItems() itself we have another call to ScanItems() to make it recursive.\n\nWhat I just noticed is that this call doesn\'t pass down the value of lExpand.\nI realized I hadn\'t passed down lToggle either, but now that I realize you didn\'t pass lExpand in the original code, I\'m a bit confused how come this function actually works as expected.\n\nWhat am I missing here?\n\n\nRegards,\n\nLuis','',0,'gA==','367wpwx6',1,0,'',98,0,0),(21453,4844,3,98,0,'70.71.111.92',1163000386,1,0,1,1,1,1,'','Re: Expand a branch on Tree object','Antonio:\n\nI think I now understand what\'s going on.\n\nIf you don\'t pass down the additional params to the recursive call, that means that all TTvItem objects below the orignal one will *always* be expanded, even if the original call is collapsing the current one.\n\nThe different wasn\'t obvious at first because you can\'t see that the branches below the collapsed one are actually expanded <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.\n\nSo indeed we need to pass down lExpand (and lToggle in my extension) so that all depending branches are executed with the same method call.\n\nI\'ve just edited my original posting with the code to reflect this adjustment.\n\n\nRegards,\n\nLuis','',0,'gA==','31kc8brq',1,0,'',98,0,0),(21454,2492,6,435,0,'200.155.196.59',1163001663,1,0,1,1,1,0,'','','function Main()\n\n   local nStatus := PrnStatus( \"LPT1: \")\n\n   MsgInfo( nStatus )\n\n   // sempre retorna 4096\n\nreturn nil','',0,'gA==','1esr21t3',1,0,'',435,0,0),(21455,2492,6,362,0,'200.168.52.156',1163002997,1,0,1,1,1,1,'','','Testem este ejemplo de TDOSPRN.PRG Espero que ayude.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=496\">http://www.fivewin.com.br/exibedicas.asp?id=496</a><!-- m -->','',0,'gA==','2e7ha9cz',1,0,'',362,0,0),(21456,4860,6,57,0,'88.0.86.53',1163004019,1,0,1,1,1,1,'','Problema con nHelpTopic en Dialogos','Antonio\nEn alguna de los últimos builds, se ha realizado algun cambio que afecta al comportamiento de la llamada a ficheros de ayuda.\nAsigno en cada dialogo un valor numerico a la DATA nHelpId que corresponde a un topic numerico del fichero de ayudas. Esto funcionaba correctamente y ahora no funciona. nHelpId no recibe ningun valor. \n\n¿Que cambios se han realizado para que esto no funcione?\n\nSaludos','',0,'gA==','b2psmz8u',1,0,'',57,0,0),(21457,4855,6,138,0,'189.141.64.226',1163005367,1,0,1,1,1,1,'','','Tengo entendido que el TSBrowse utiliza una version modificada de la clase TScrollbar, por lo menos en el build que yo tengo hay un fichero .C con un codigo de control de la barra de scroll.\n\nLo que yo hago (uso el browse de hernan) es asignar el blogiclen a un valor fijo (por el uso de ADS asi evito estar pingeando al servidor en cada OrdKeyCount())\n\nEjemplo:\n\nnNumRegs := (alias)-&gt;(OrdKeyCount())\n\n@ .... listbox oBrw Fields......\n\noBrw:bLogicLen := {|| nNumRegs} \n\npor ahi si que me funciona.\n\nPor otro lado recuerdo que en los viejos tiempos de TWBrowse puro y duro, hacia un oBrw:oVScroll:SetPos() y luego refrescaba la barra, a pelo.','',0,'gA==','2szfyucv',1,0,'',138,0,0),(21458,4801,6,81,0,'80.28.244.140',1163007400,1,0,1,1,1,0,'','','....\nNadie la utiliza??\nSaludos','',0,'gA==','3rsb5ny2',1,0,'',81,0,0),(21459,4801,6,2,0,'87.218.146.15',1163010083,1,0,1,1,1,1,'','','Rafa,\n\nLa función está en source\\function\\hash.c\n\nAñádela a tu aplicación, aunque no creo que sea la que usan los TPVs.','',0,'gA==','14t9llum',1,0,'',2,0,0),(21460,4860,6,2,0,'87.218.146.15',1163010385,1,0,1,1,1,1,'','','Toni,\n\nSe modificó la respuesta a WM_HELP para evitar dobles llamadas a HelpTopic(), pero el código sigue siendo el mismo.\n\nEl código está en source\\classes\\control.prg METHOD __HelpTopic()','',0,'gA==','j2pmp415',1,0,'',2,0,0),(21461,4856,7,2,0,'87.218.146.15',1163010668,1,0,1,1,1,1,'','','Juan José, \n\nEl diálogo te saldrá en inglés si usas un Pocket PC con idioma inglés, ya que MsgYesNo() usa una función propia del API de Windows. Configura el idioma de tu Pocket PC.\n\nOtra opción es crear tu mismo un diálogo semejante al de MsgYesNo().','',0,'gA==','3cc4ot14',1,0,'',2,0,0),(21462,4843,2,248,0,'212.145.179.68',1163011412,1,0,1,1,1,0,'','MAC Address','No se si existe alguna forma de hacerlo.\nPero una solucion que se me ocurre es hacer un fichero de texto con:\nipconfig /all &gt;ip.txt\n\nabrir el fichero y buscar la direccion.','',0,'gA==','1z24kjt2',1,0,'',248,0,0),(21463,4860,6,57,0,'88.0.86.53',1163012188,1,0,1,1,1,1,'','','Antonio\nHe visto el cambio, pero no entiendo el resultado que obtengo. \nPrueba este ejemplo:\n\nEl ejemplo debería abrir la ayuda de fwfun y situarse en el topic \"3\" que corresponde a la funcion aBrwPosRec() al pulsar F1.\nAntes lo hacia correctamente y ahora NO. Al parecer el Metodo __HelpTopic() de la clase control, nHelpId es siempre NIL.\n\nSaludos\n\n//----------------------------------------------------------------------------//\n\n#include \"FiveWin.ch\"\n\n   static oWnd\n\nfunction Main()\n\n   SETHELPFILE( \"..\\manual\\fwfun.hlp\")\n\n   DEFINE WINDOW oWnd TITLE \"A Window\"\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT ShowDlg()\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction ShowDlg()\n\n   local oDlg\n\n   DEFINE DIALOG oDlg FROM 5, 5 TO 20, 40 TITLE \"A Dialog Box\"\n     oDlg:nHelpId := 3\n\n   ACTIVATE DIALOG oDlg NOWAIT ;\n      ON PAINT oDlg:Say( 1, 1, \"Hello\" ) ;\n      VALID ( MsgInfo( \"Valid Clause\" ), .t. )\n\nreturn nil','',0,'gA==','1riofp25',1,0,'',57,0,0),(21464,4861,19,26,0,'84.52.130.249',1163012215,1,0,1,1,1,1,'','Windows Vista RTM','Hello!\n\nWindows Vista RTM\n<!-- m --><a class=\"postlink\" href=\"http://windowsvistablog.com/blogs/windowsvista/archive/2006/11/08/it-s-time.aspx\">http://windowsvistablog.com/blogs/windo ... -time.aspx</a><!-- m -->\n[quote:1v4jdh6d]\nIt\'s time!\n[/quote:1v4jdh6d]\n\nCheers, Roman','',0,'gA==','1v4jdh6d',1,0,'',26,0,0),(21465,4833,4,856,0,'193.77.115.186',1163015323,1,0,1,1,1,0,'','','anyone else?','',0,'gA==','3b6lto2p',1,0,'',856,0,0),(21466,4862,1,186,0,'66.130.50.142',1163016835,1,0,1,1,1,1,'','Major flaw in TDataBase CLASS','Hi all,\n\nI use a database that has 148 records in it. No indexes are used at all.\n\nIf I call oDbf:GoTop() and test the RecNo() \n    I get recno 14 instead of 1\nIf I call oDbf:GoBottom() and test the RecNo()\n    I get recno 142 instead of 148\n\nCan anyone tell me why this weird result.   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRegards','',0,'gA==','qapaz1w6',1,0,'',186,0,0),(21467,4863,6,109,0,'200.52.196.1',1163017384,1,0,1,1,1,0,'','Say\'s  (Center, Derecha) Transparentes','Por que motivo, los SAY que se definen en el .RC, como CENTER, ó RIGHT, no aparecen TRANSPARENTES EN UN DIALOGO DEGRADADO????\n\n\n   Utilizo :\n   Fwh 2.7 Feb 2006\n\n   DEFINE DIALOG oDlg .....\n          ...........\n   ON INIT ( FixSays( oDlg:hWnd ) );\n   ON PAINT ( DegradaDlg(.....) )\n\n\n  Gracias','',0,'gA==','26pqsdny',1,0,'',109,0,0),(21468,4856,7,600,0,'84.123.222.86',1163019261,1,0,1,1,1,0,'','','Tengo lo siguiente en el programa:\n\n      SET DELETED ON\n      SET DATE TO ITALIAN\n      SET SOFTSEEK ON\n      SET CENTURY ON\n      SET EPOCH TO 2000\n      SET SOFTSEEK  ON\n\n      HB_LANGSELECT( \"ESWIN\" )\n      HB_SetCodePage(\"ESWIN\")               // Para ordenación (arrays, cadenas, etc..) \n      HB_LangSelect(\'ES\') \n  \n      REQUEST HB_LANG_ES                    // Para establecer español para Mensajes, fechas, etc.. \n      REQUEST HB_CODEPAGE_ESWIN             // Para establecer código de página a Español (Ordenación, etc..) \n      REQUEST DBFCDX\n      \n      RddSetDefault(\"DBFCDX\")\n\nCon esto, supongo que ya tengo el idioma en castellano(Lo he visto en algún ejemplo). Pues en el emulador y en la PDA me aparece el dichoso MsgYesNo en ingles, y en ambos la configuracion regional está en Español -  Alfabetizacion Internacional. \n\nNo se donde puede estar el problema.\n\nUn saludo\nJuan José','',0,'gA==','b845cmqa',1,0,'',600,0,0),(21469,4864,6,838,0,'80.59.225.15',1163020144,1,0,1,1,1,0,'','Ayuda con error al compilar','Hola amigos\nTodo iba bien en la aplicación que estoy pasando a harbour, cuando apareció la necesidad de utilizar un campo memo, y entonces apareció:\n\nError: Unresolved external \'_HB_FUN_DBFFTP\' referenced from C:\\FUENTES\\HARBOUR\\MOCWIN2006\\OBJ\\GESPAQ.OBJ\n\nHice lo que me decíais sobre poner el request REQUEST DBFCDX,DBFFTP, y añadir la libreria dbfftp, hbsix, y renombrar gtgui por gtwin, y cada vez mas errores. He puesto la version de fwh de octubre, y harbour ultima la de Junio, y todavia mas errores. Ahora además del error anterior me sale\n\nError: Unresolved external \'_hb_objHasMessage\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC.\n\nPara intentar arreglar ésto Antonio dijo que añadieramos al prg principal una secuencia que empieza por pragma...., nada sigue saliendo, y ahora además me salen los siguientes:\n\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\FWH\\LIB\\FIVEH.LIB|ERRSYSW\n\nError: Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from C:\\HARBOUR\\LIB\\RTL.LIB|gtsys.\n\nEsto es normal que cada vez que voy intentando arreglar algo me salga un error nuevo?\n\nTotal que a ver si alguien me ayuda y puedo continuar porque estoy parao.\n\nUn saludo\n\nJose Luis','',0,'gA==','1vbe99w1',1,0,'',838,0,0),(21470,4850,2,180,0,'81.38.52.150',1163020288,1,0,1,1,1,0,'','','Prueba esto:\n\noBtn[1]:oJump:=oGet[1]\n\nSaludos,\nManuel','',0,'','z6wfy9nl',1,0,'',180,0,0),(21471,4864,6,2,0,'87.218.146.123',1163024841,1,0,1,1,1,1,'','','Jose Luis,\n\nParece que estas usando versiones no compatibles de Harbour y FWH. \n\nDesinstálalas y vuelve a instalar desde cero tanto Harbour como FWH, y recompila todos tus PRGs y librerías que uses.','',0,'','2b47w1gg',1,0,'',2,0,0),(21472,4708,6,850,0,'201.255.78.145',1163025305,1,0,1,1,1,0,'','','Rene, igualmente a los pedidos anteriores, podrias enviarme el manual a la direccion <!-- e --><a href=\"mailto:abc@credil.com\">abc@credil.com</a><!-- e --> \ndesde ya muchas gracias\n\nAndres','',0,'','2nz84o30',1,0,'',850,0,0),(21473,4865,6,501,0,'200.80.5.121',1163027575,1,0,1,1,1,0,'','Dónde se cargan las propiedades de una app para verlas...','al presionar boton derecho sobre la misma, en XP hay un folder Resumen que estaria bueno poder dejar unos datillos en esa sección.\n\nEn fivewin las definia dentro del .LNK ahora no encuentro dónde.\n\nMuchas gracias.','',0,'','weyo701y',1,0,'',501,0,0),(21474,4866,3,49,0,'62.13.172.78',1163029115,1,0,1,1,1,1,'','PellesC with Xmate','I want use Pellec instead Brc on Xmate \n\nNow I  use brc command :\n[code:2ehiieib]%C_BIN_INSTALL%\\Brc32&#46;Exe -r  -fo%RES%  %RC%[/code:2ehiieib]\n\nHow I can insert to use PellesC to compile resources with xmate ?','',0,'AIA=','2ehiieib',1,0,'',49,0,0),(21475,4779,5,2,0,'87.218.146.123',1163031304,1,0,1,1,1,1,'','','Using \"textured\" windows:\n\n[url=http&#58;//imageshack&#46;us:k7h5z511][img:k7h5z511]http&#58;//img469&#46;imageshack&#46;us/img469/6246/imagen1go2&#46;png[/img:k7h5z511][/url:k7h5z511]','',0,'GA==','k7h5z511',1,0,'',2,0,0),(21476,4850,2,760,0,'200.37.76.93',1163031541,1,0,1,1,1,0,'','Problemas con Setfocus()','Amigo Manuel\n\nMi fw es 2.0 y no se si se podrá, en caso no se pueda.\nOtra alternativa?\n\nSalu2','',0,'GA==','1hg9q324',1,0,'',760,0,0),(21477,4780,8,2,0,'87.218.146.123',1163031601,1,0,1,1,1,1,'','','Usando ventanas \"textured\":\n\n[url=http&#58;//imageshack&#46;us:2xl1cl7h][img:2xl1cl7h]http&#58;//img469&#46;imageshack&#46;us/img469/6246/imagen1go2&#46;png[/img:2xl1cl7h][/url:2xl1cl7h]','',0,'GA==','2xl1cl7h',1,0,'',2,0,0),(21478,4867,6,185,0,'200.105.142.14',1163038430,1,0,1,1,1,0,'','Clase Tdwg','Hola Foro\n\nLa clase Tdwg para visualizacion de archivos Dwg y Dxf del autocad esta disponible en <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.con\">www.quark-costos.con</a><!-- w --> en la zona de desgargas, los interesados pueden bajarla\n\nsuerte\n\nSaludos\n\nArturo Tamayo','',0,'GA==','y0egs6xq',1,0,'',185,0,0),(21479,4867,6,185,0,'200.105.142.14',1163038497,1,0,1,1,1,0,'','','perdon <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->','',0,'GA==','38fx4dm5',1,0,'',185,0,0),(21480,4868,17,185,0,'200.105.142.14',1163038888,1,0,1,1,1,0,'','Clase twg','Las fuentes de la clase Tdwg estan disponibles en <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->\n\nsaludos\n\nArturo Tamayo Daza','',0,'GA==','1sy3qbro',1,0,'',185,0,0),(21481,4866,3,456,0,'62.43.194.117',1163059320,1,0,1,1,1,1,'','','Hi Silvio,  \n[code:39zidbvy]C&#58;\\archiv~1\\PellesC\\Bin\\PORC&#46;EXE  %RC%  /I c&#58;\\archiv~1\\pellesc\\include /I c&#58;\\archiv~1\\pellesc\\include\\win[/code:39zidbvy]','',0,'AIA=','39zidbvy',1,0,'',456,0,0),(21482,4862,1,456,0,'62.43.194.117',1163060481,1,0,1,1,1,1,'','','Probably you are working with SET DELETE ON, and you have deleted records. So REcno 14 is the first non deleted record in your DBF.\n\nPACK, or SET DELETE OFF.','',0,'AIA=','2csdrzf7',1,0,'',456,0,0),(21483,4855,6,24,0,'80.37.55.44',1163060914,1,0,1,1,1,1,'','Re:','Amigo Rene, la clase TWbrowse de Hernan es la que uso por defecto, creo que es la más rápida.\n\nAhora bien, necesito usar a veces la TSbrowse , por que me da la posibilidad\nde crear los SuperHead, y los necesito sin falta.\n\nComo comentas, hay realice esas pruebas, pero creo que la clase scroll de la TsBrowse tiene un problema....','',0,'AIA=','23dn6zm2',1,0,'',24,0,0),(21484,4867,6,24,0,'80.37.55.44',1163060968,1,0,1,1,1,1,'','','[quote=&quot;Arturo Tamayo Daza&quot;:h9982zee]perdon <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->[/quote:h9982zee]\n\nPues va a ser que no....:\nThis Account Has Been Suspended','',0,'gA==','h9982zee',1,0,'',24,0,0),(21485,4864,6,838,0,'80.34.222.112',1163065372,1,0,1,1,1,0,'','','Gracias Antonio\n\nHe instalado todo de nuevo, y ahora ya no me da errores de compilación, al ejecutar el programa me da el siguiente error:\n*********************************\nApplication\n===========\n   Path and name: C:\\mocwinpruebas\\GESPAQ.EXE (32 bits)\n   Size:   769,024 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 09/11/06, 10:31:24\n   Error description: Error BASE/1069  Argument error: array assign\n   Args:\n     [   1] = N   1\n\nStack Calls\n===========\n   Called from:  =&gt; (b)REDEFINE(513)\n   Called from:  =&gt; AEVAL(0)\n   Called from:  =&gt; TSBUTTON:REDEFINE(513)\n   Called from: C:\\fuentes\\harbour\\mocwin2006\\PRG\\gespaq.prg =&gt; INICIO(789)\n   Called from: C:\\fuentes\\harbour\\mocwin2006\\PRG\\gespaq.prg =&gt; (b)MAIN(141)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: C:\\fuentes\\harbour\\mocwin2006\\PRG\\gespaq.prg =&gt; MAIN(141)\n************************\nla linea 789 en el prg a la que hace referencia es:\n\n REDEFINE SBUTTON oBtn1    ID 550 OF oDlg RESOURCE \"Lamp1\", \"Lamp2\",, \"Lamp3\", \'shape3\' SHAPE PROMPT \"Aceptar\" TEXT ON_RIGHT ;\n                           ACTION iif( ValidaUser(cClave, @oClave,\"C\" ) ,;\n                           (Seguir:=.T., SEAT1-&gt;(rlock()),SEAT1-&gt;Activo:=.t.,dbUnlock(),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ) )\n\nQue puede ser?\n\nUn Saludo\n\nJose Luis','',0,'','1bpjol5x',1,0,'',838,0,0),(21486,4869,7,490,0,'80.24.224.89',1163067949,1,0,1,1,1,0,'','Problema con IsExeRunning','Hola,\n\nHe intentado probar IsExeRunning en Windows CE y resulta que:\n\n msginfo( cFileName( HB_ArgV( 0 ) ) )\n    msginfo( HB_ArgV( 0 ) )\n\n    if IsExeRunning( cFileName( HB_ArgV( 0 ) ) )\n      return nil\n    endif\n\n\nEn los 2 msginfo muestra \"\\\" \n\n¿No debería mostrar el nombre del ejecutable? ¿Que hago para que funcione correctamente?\n\nUn Saludo,\nJoaquín','',0,'','2x3qtp5h',1,0,'',490,0,0),(21487,4869,7,490,0,'80.24.224.89',1163068329,1,0,1,1,1,0,'','','Lo he probado en el emulador y también me muestra \"\\\" y a continuación produce un gpf que dice:\n\n   FWPPC GPF ocurred\n\n   Fix GPFStack()!\n\n\n¿Que ocurre con esta función?\n\nUn Saludo,\nJoaquín','',0,'','13zhgztz',1,0,'',490,0,0),(21488,4870,7,720,0,'80.36.244.134',1163069439,1,0,1,1,1,0,'','Comentario sobre una busqueda...','Hola a todos...\n\nLo que pretendo es que al introducir un código me realice una búsqueda en la tabla de articulos y me muestre el nombre de este y la cantidad. El codigo que estoy usando es el siguiente...\n\n\nAlguien podría decirme si este codigo está mal?\n\n.....\n\nDEFINE FONT oFont NAME \"Courier New\" SIZE 6, -14\n               odlg:bKeyChar = { | nKey, nFlags | Search_art(nKey,@cSearch,Nombre ),oSay:REFRESH()}\n\n               redefine say oSay prompt cSearch id 130 of odlg     \n               redefine get oGetNombre var nombre id 4004 of odlg\n               odlg:REFRESH()\nACTIVATE dialog odlg\n\n\n\ny la llamada a search_art es la siguiente\n\n*--------------------------------------------------\nfunction Search_art( nKey, cSearch,Nombre ) \n*--------------------------------------------------\n   \n   if nKey = 8 \n      cSearch = SubStr( cSearch, 1, Len( cSearch ) - 1 ) \n   else \n      cSearch += Upper( Chr( nKey ) ) \n   ENDIF\n   articulos-&gt;( DbSeek( cSearch, .t. ) ) \n   nombre:=articulos-&gt;nom_art\n\nreturn nil \n\nLa verdad es que no veo en que está fallando... Por cierto si pongo en la funcion de arriba el nkey=13, ¿estoy preguntando si se ha pulsado la tecla intro?\n\nUn saludo y gracias..\n\nElías Torres','',0,'','2q6cvepe',1,0,'',720,0,0),(21489,4862,1,186,0,'66.130.50.142',1163075258,1,0,1,1,1,1,'','','Hi Biel,\n\n\nIt`s true I always used set delete on. I don`t want to see deleted records anyway. But my database as no deleted records. \n\nMade a second test: if i use Clipper dbGoTop() &amp; dbGoBottom() everything works fine. Only if I use TDataBase problem returns.\n\n\nRegard','',0,'','2w0ogp4m',1,0,'',186,0,0),(21490,4864,6,147,0,'200.45.54.134',1163078847,1,0,1,0,1,1,'','','Jose Luis\nAl parecer TSButton te está tirando un error. Bajate la versión que está en este foro en la sección Utilidades.\n\nsaludos','',0,'','2yi6q9ax',1,0,'',147,0,0),(21491,4865,6,46,0,'195.8.27.135',1163079111,1,0,1,1,1,0,'','','En el fichero de recursos seccion \"version\"\nal menos esto en el pelles...\nque editor de recursos utilizas?\n\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->[/quote]','',0,'','1wg8tpmd',1,0,'',46,0,0),(21492,4708,6,147,0,'200.45.54.134',1163079205,1,0,1,0,1,1,'','','Y...como de pedir se trata; Maestro Rene le propongo que contemple la posibilidad de hacer un aporte, más :-), al foro y se la pase a Antonio para que la suba a Utilidades\n\nmuchas gracias\nSaludos','',0,'','14lq0fsf',1,0,'',147,0,0),(21493,4862,1,456,0,'62.43.194.117',1163081899,1,0,1,1,1,1,'','','Hi Gilbert, \n[code:v0qdyxyl]\nMETHOD GoTop&#40;&#41;             INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; DBGoTop&#40;&#41; &#41;,;\n                                     If&#40; &#58;&#58;lBuffer, &#58;&#58;Load&#40;&#41;, &#41;\nMETHOD GoBottom&#40;&#41;          INLINE &#40; &#58;&#58;nArea &#41;-&gt;&#40; DBGoBottom&#40;&#41; &#41;,;\n                                     If&#40; &#58;&#58;lBuffer, &#58;&#58;Load&#40;&#41;, &#41;[/code:v0qdyxyl]\nLike can you see, the tDatabase is doing the same, (::nArea)-&gt;(dbGoTop()), (::Load() don\'t move the record pointer). \n\nTry to execute [code:v0qdyxyl]\n&#40;oDbf&#58;nArea&#41;-&gt;&#40;dbGoTop&#40;&#41;&#41;[/code:v0qdyxyl]\n\nCheck oDbf:nArea if is the correct data  Area.','',0,'AIA=','v0qdyxyl',1,0,'',456,0,0),(21494,4865,6,501,0,'200.80.6.142',1163083130,1,0,1,1,1,0,'','Uso WorkShop.','Uso WorkShop.\nGracias.','',0,'AIA=','3pfwk16a',1,0,'',501,0,0),(21495,4827,2,774,0,'200.72.65.113',1163083403,1,0,1,1,1,1,'','','Hola aun no sabe nadie o no se puede hacer','',0,'AIA=','3u73hvqr',1,0,'',774,0,0),(21496,4799,6,72,0,'189.136.186.51',1163083723,1,0,1,1,1,0,'','','Listo!\n\n- El culpable del error en impresión de gráficas tipo Puntos y Líneas era ::Circle(), se agregó un método local.\n- Se modificó la presentación de valores en todos los gráficos.\n- Se depuró la impresión del gráfico tipo torta o pie.\n- ... y otros detalles no significativos.\n\nAun hay detalles que podrían mejorarse, ya nuestro colega David desarrollo una lib, esto seguirá siendo una clase.\n\nDisfrútenla.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/tgraph.zip\">http://www.despachoarteaga.com.mx/tgraph.zip</a><!-- m -->','',0,'AIA=','jxveny6j',1,0,'',72,0,0),(21497,4871,3,72,0,'189.136.186.51',1163084141,1,0,1,1,1,0,'','TGraph','TGraph updated...  <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/tgraph.zip\">http://www.despachoarteaga.com.mx/tgraph.zip</a><!-- m -->\n\nEnjoy it!','',0,'AIA=','3jyhbqe5',1,0,'',72,0,0),(21498,4872,2,861,0,'190.49.9.4',1163084142,1,0,1,1,1,0,'','REEMPLAZO DE FUNCIONES DE CA-TOOLS','Estimado Antonio\n\nRecurro a ti para ver si me puedes dar una mano con el siguiente problema.\nTengo una aplicacion en FW240 que funciona de maravillas, el problema radica en que debo realizar impresiones de facturas en Impresor Fiscal Epson y Hasar Olivetti. Bajo dos esto es muy facil porque vienen librerias con las funciones para hacerlo pero con Windows se complica porque estas funciones usan las CA-TOOLS y estas en windows no andan!\nUna solución sería pasar a HARBOUR y usar OCX pero no tengo tiempo para encarar esa tarea.Estoy en 16 bits.\nLas funciones de COMM que trae FW son insuficientes ya que necesito setear el HANDSHAKE y contar bits enviados y recibidos y no encuentro ninguna que haga esto!\nMe puedes ayudar o darme alguna idea de como resolver el problema?\nDesde ya agradecido\n\nun abrazo\n\nRAUL','',0,'AIA=','ltix1tu0',1,0,'',861,0,0),(21499,4867,6,396,0,'201.210.7.71',1163087657,1,0,1,1,1,0,'','','Al tratar de acceder al lnk da este mensaje (Please contact the billing/support department as soon as possible)','',0,'AIA=','11fy1m29',1,0,'',396,0,0),(21500,4780,8,396,0,'201.210.7.71',1163087926,1,0,1,1,1,0,'','','SIN PALABRAS...eso se llama dedicarse al trabajo.','',0,'AIA=','2jcz1fna',1,0,'',396,0,0),(21501,4867,6,185,0,'200.87.81.53',1163089212,1,0,1,1,1,0,'','','ya se encuentra habilitada la cuenta pueden bajar el tdwg \n<!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->','',0,'AIA=','2h6q7t72',1,0,'',185,0,0),(21502,221,4,224,0,'162.83.94.176',1163090330,1,0,1,1,1,1,'','','[quote=&quot;Jon Munro&quot;:1bf4tc8m]I have used hbcrypt to encrypt the values stored in the registry[/quote:1bf4tc8m]\nHi Jon,\n\nMight you share some snippets of your implementaiton of hbCrypt? I need to do something similar and need a jump start!\n\nThanks,','',0,'gA==','1bf4tc8m',1,0,'',224,0,0),(21503,4774,3,397,0,'201.1.114.212',1163091601,1,0,1,0,1,1,'','','Amiguinho\n\nSe voce encontrar na documentaçao do OpenOffice algo sobre seus controles activex ou OCX talvez seja possivel criar uma ponte usando OLE e Activex do Fivewin para manipular-los\n\nUm bom programa para isto é o ActiveXXX que lista todas DLLs e OCX instaladas e apresenta as propriedades e métodos ficando mais fácil trabalhar com elas\n\nEu inclisve andei fuçando nele para usar os mais nnovos controles do Windows para minhas interfaces.\n\nqualquer coisa me contacte no <!-- e --><a href=\"mailto:fivolution@hotmail.com\">fivolution@hotmail.com</a><!-- e --> a noite que batemos um papinho.\n\n@braços :?)','',0,'gA==','2vfsy4la',1,0,'',397,0,0),(21504,4779,5,2,0,'87.218.146.35',1163091675,1,0,1,1,1,1,'','','Using folders:\n\n[url=http&#58;//imageshack&#46;us:1rqmyp1b][img:1rqmyp1b]http&#58;//img511&#46;imageshack&#46;us/img511/9589/imagen1tm4&#46;png[/img:1rqmyp1b][/url:1rqmyp1b]','',0,'GA==','1rqmyp1b',1,0,'',2,0,0),(21505,4780,8,2,0,'87.218.146.35',1163091865,1,0,1,1,1,1,'','','Usando folders:\n\n[url=http&#58;//imageshack&#46;us:loc0ooqe][img:loc0ooqe]http&#58;//img511&#46;imageshack&#46;us/img511/9589/imagen1tm4&#46;png[/img:loc0ooqe][/url:loc0ooqe]','',0,'GA==','loc0ooqe',1,0,'',2,0,0),(21506,4873,7,123,0,'88.0.86.53',1163092300,1,0,1,1,1,0,'','Forzar scroll horizontal de un wbrowse','Hola,\n\nMe gustaría saber si se puede (y como) forzar la barra de desplazamiento horizontal de un wbrowse con una sola columna cuando el ancho de la columna es superior al area visible.\n\nSaludos y gracias,\nJosé Luis Capel[/img]','',0,'','1d2qmv2c',1,0,'',123,0,0),(21507,4874,6,264,0,'200.91.3.10',1163094697,1,0,1,1,1,1,'','OutLook bloquea en envio...','Hola a todos.\nTengo una aplicacion que intenta enviar unos correos a quien el usuario decida, y utilicé esta instruccion.\n\n[code:31mq2wcp]\n      DEFINE MAIL oMail ;\n         SUBJECT cAsunto ;\n         TEXT cText ;       \n         FILES cAdjunto, cFile ;\n         TO cTo ;\n         RECEIPT\n\n      ACTIVATE MAIL oMail\n[/code:31mq2wcp]\n\nPero el sistema me indica que OutLook cree que es un virus...\nEsta es la imagen : <!-- w --><a class=\"postlink\" href=\"http://www.random.cl/envios/outlook.jpg\">www.random.cl/envios/outlook.jpg</a><!-- w -->\n\nAlguna sugerencia para evitar dicho problema ?\nGracia de antemano.','',0,'AIA=','31mq2wcp',1,0,'',264,0,0),(21508,4870,7,720,0,'80.36.244.134',1163095774,1,0,1,1,1,0,'','','Hola a todos...\n\nAl final creo que he solucionado el tema con lo que tenia, pero lo que pasa es que no se como refrescar un get....\n\nLa informacion a buscar la quiero poner en :\n\nredefine get oGetNombre var articulos-&gt;nom_art id 4004 of odlg\n\nHe probado a refrescar el odlg completo pero no me refresca ese get. El valor que tiene articulos-&gt;nom_art despues de la busqueda es correcto porque pongo un msginfo(articulos-&gt;nom_art) y cambia dependiendo de la busqueda, pero luego no me lo pone en el GET..\n\nAlguien sabe por que?\n\nUn saludo y gracias..\n\nElías Torres.','',0,'AIA=','x80ac87v',1,0,'',720,0,0),(21509,4774,3,435,0,'200.155.197.4',1163096213,1,0,1,1,1,0,'','','eu consegui contato com o cara que fez a TopenOffice mas ainda nao consegui passar do ponto em que se conecta com o office. mas na abertura da planilha dá um pau.\n\nAri','',0,'AIA=','jkvjg5me',1,0,'',435,0,0),(21510,4875,20,29,0,'88.149.161.130',1163097131,1,0,1,1,1,0,'','Problema di comparazione valori numerici decimali negativi','Salve a tutti,\nsono stato parecchio indaffarato con il lavoro ed è un pò che manco dal forum ne approfitto quindi per rientrare con un bel (si fa per dire) problemino.\n\nCredo che xharbour abbia dei problemi nella comparazione di valori negativi con decimali ed interi.\n\nQuesto self contained parte da un valore 4 contenuto nella variabile IL.\nViene quindi fatto un confronto tra questo valore decrementato di 10360 e di 1 e diviso per 250 tra l\'intero dello stesso numero.\n\nIl confronto avviene tra -41.3 e -41 e vengono considerati UGUALI !!!\nNel test che ho fatto ho anche attivato SET EXACT ma il risultato non cambia. \n\nQualche idea ? Sono io che sbaglio qualcosa ?\n\nGrazie in anticipo\n\nSaluti\n\nMarco Turco\n\n**********************************\n** Self contained che mostra il problema\n**********************************       \nFunction Test()\n\nil:=4\nMSGINFO((il-10360-1)/250)\nMSGINFO(INT((il-10360-1)/250))\nif ((il-10360-1)/250)&lt;&gt;(int(il-10360-1)/250)\n    msginfo(\"differenti\")\nelse\n    msginfo(\"uguali\")\nendif\nreturn','',0,'AIA=','3n10dgju',1,0,'',29,0,0),(21511,4870,7,179,0,'200.69.181.39',1163098995,1,0,1,1,1,1,'','','Elias prueba\noGetNombre:Refresh()\n\nSaludos','',0,'AIA=','1w2kdat3',1,0,'',179,0,0),(21512,4840,2,124,0,'200.117.29.149',1163099807,1,0,1,1,1,0,'','','Muchas gracias!. \n\nEntendido.','',0,'AIA=','2lbk69lv',1,0,'',124,0,0),(21513,4869,7,2,0,'87.218.146.15',1163099903,1,0,1,1,1,1,'','','Joaquín,\n\nHazlo de esta manera:\n\n   MsgInfo( cFileName( GetModuleFileName( GetInstance() ) ) )','',0,'AIA=','28o53ppx',1,0,'',2,0,0),(21514,4870,7,720,0,'80.36.244.134',1163100944,1,0,1,1,1,0,'','','Gracias wilsongamboa, efectivamente era esa boberia....\n\nUna curiosidad, a ver si alguien me puede responder.. Si mirais el procedimiento de arriba vereis que en nkey controlo la tecla que se pulsa. Hasta ahi correcto. Pero mi sorpresa viene cuando compruebo que la tecla intro, tanto en el teclado virtual con en el otro, no tiene su correspondiente numeración. Me explico, si se pulsa la tecla de borrar y ponemos msginfo(nkey) nos devuelve un 8, si pulsamos el espacio nos devuelve un 32 (creo) pero cuando se pulsa en el intro no hace nada. Es como que no tiene accion ninguna. ¿Alguien sabe porque ocurre esto, y si tiene alguna solución?. En mi caso lo que pretendo hacer es que escribo un codigo y hasta que no le de al intro no realiza la actualizacion de la pantalla, pero claro por ahora lo tengo para que me funcione al pulsar el espacio, pero me gustaria que fuera con la tecla intro.\n\nUn saludo y gracias..\n\nElías Torres.','',0,'AIA=','2xgdzrtj',1,0,'',720,0,0),(21515,4865,6,46,0,'195.8.11.168',1163101961,1,0,1,1,1,0,'','','Menu Resource/New/VERSIONINFO\n\n[code:1d2v5aq9]\n1 VERSIONINFO \nFILEVERSION 1, 0, 0, 0\nPRODUCTVERSION 1, 0, 0, 0\nFILEOS VOS_DOS_WINDOWS16\nFILETYPE VFT_APP\n&#123;\n BLOCK &quot;StringFileInfo&quot;\n &#123;\n  BLOCK &quot;040904E4&quot;\n  &#123;\n   VALUE &quot;CompanyName&quot;, &quot;Tu CIA\\000\\000&quot;\n   VALUE &quot;FileDescription&quot;, 26963, 29811, 28005, 8289, 30273, 28257, 25063, 28516, 25632, 8293, 28483, 29806, 25185, 27753, 25705, 25697, 8293, 19524, 8268, 26956, 29282, 29281, 121\n   VALUE &quot;FileVersion&quot;, &quot;1&#46;00\\000\\000&quot;\n   VALUE &quot;InternalName&quot;, &quot;Tu Nombre\\000&quot;\n   VALUE &quot;LegalCopyright&quot;, &quot;Copyright nnn Juanito \\000\\000&quot;\n   VALUE &quot;OriginalFilename&quot;, &quot;tuapl&#46;exe o dll\\000&quot;\n  &#125;\n\n &#125;\n\n\n&#125;\n[/code:1d2v5aq9]\n\ntienesmas descripciones...\n\nSalu2','',0,'AIA=','1d2v5aq9',1,0,'',46,0,0),(21516,4876,6,850,0,'201.255.89.131',1163103582,1,0,1,1,1,0,'','Error en ace32.dll','Hola a todos, esta semana compre el fwh 2.8 y estoy probando correr una aplicacion xharbour en mi red (tengo un servidor advantage 6 sobre una red novell 5), cuando ejecuto el .exe me da el siguiente error: \"No se encuentra el ordinal 438 en la biblioteca de vinculos dinamicos ACE32.DLL\",  desde ya muchas gracias.\n\nAndres','',0,'AIA=','11wgkcb1',1,0,'',850,0,0),(21517,4875,20,6,0,'82.55.208.56',1163104432,1,0,1,1,1,1,'','Re: Problema di comparazione valori numerici decimali negati','Questo\n\nMSGINFO([b:2hg020nx]INT((il-10360-1)/250)[/b:2hg020nx])\n\ne questo\n\nif ((il-10360-1)/250)&lt;&gt;([b:2hg020nx]int(il-10360-1)/250[/b:2hg020nx])\n\nnon sono la stessa cosa.\n\nEMG','',0,'QA==','2hg020nx',1,0,'',6,0,0),(21518,4867,6,496,0,'157.100.180.226',1163105580,1,0,1,1,1,0,'','','Un saludo Arturo:\n\nQue grata sorpresa, saber de Arturo. Pues he tratado por varias ocasiones de contactarme contigo y nó ha sido posible. Por lo que aprovecho (disculpen por salirme del tema) para solicitar a Arturo lo siguiente:\n\nSucede que estoy usando la clase TGANT facilitada por  tí,  pero lamentablemente está en 16 bits. La aplicación que la usa ya la he pasado a 32 bits, pero con el módulo del cronograma sigue en 16 bits.  Será mucho abusar de tí para solicitarte de favor  nos facilites la librería para 32 bits?\n\nLe he aumentado algunas nuevas funcionalidades al cronograma como imprimir en papel y obtener el cronograma valorado y que quiero seguirla usando en mi aplicación a 32 bits. \n\nNuevamente pido disculpas por el \"off topic\", pero no me pude resistir.\n\nGracias Arturo por tu tiempo y espero tu respuesta positiva.\n\n\n\nMarcelo Jingo','',0,'QA==','bgib2ucs',1,0,'',496,0,0),(21519,4877,2,375,0,'84.122.103.121',1163106643,1,0,1,1,1,1,'','PalBmpDraw()','La cuestion es que utilizo PalBmpDraw() con el Raster \"SRCAND\" para, de cierta manera, fundir un grafico BMP (con fondo blanco) con el color de fondo del Dialogo. Todo bien, ya lo he hecho varias veces. La cuestion es que cuando intento variar el tamaño del grafico, entonces \"SRCAND\" no actúa. Lo mismo ocurre con otros valor de Raster. SCRPAINT, ETC\n\n¿alguna sugerencia?\n¿Con xHarbour si lo haría?\n\nGracias','',0,'QA==','9ehba7r7',1,0,'',375,0,0),(21520,4878,6,123,0,'83.59.154.141',1163109442,1,0,1,1,1,0,'','OT: Mapas de Google con FWH','Hola,\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=83\">www.capelblog.com/?p=83</a><!-- w --> podemos ver como colocar mapas de google en nuestras aplicaciones fwh.\n\nSaludos,\nJosé Luis Capel','',0,'QA==','2624ta71',1,0,'',123,0,0),(21521,4871,3,49,0,'62.13.172.78',1163119256,1,0,1,1,1,1,'','','thanks alfredo !!!\n\nWhat\'s new ?','',0,'QA==','hrtoltlj',1,0,'',49,0,0),(21522,4867,6,49,0,'62.13.172.78',1163119845,1,0,1,1,1,1,'','','Marcelo I can send you tplan 32 bit \nsend an private  email','',0,'QA==','lve8tr8w',1,0,'',49,0,0),(21523,4879,3,185,0,'200.105.142.14',1163120002,1,0,1,1,1,0,'','Class TDwg for view drawing Dwg and DXF AutoCad','Hola \n\nPuden descargar la fuentes desde <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->\n\nSaludos\n\nArturo','',0,'QA==','3h4fqgld',1,0,'',185,0,0),(21524,4880,6,661,0,'189.155.21.196',1163120058,1,0,1,1,1,0,'','ayuda error con AIS','que tal, pues una vez mas solicitando de su ayuda para resolver un problema que se me presenta en mi aplicacion con aquellos usuarios que se conectan atraves del AIS, no se si el servidor los desconecta despues de un tiempo de inactividad o simplemente se pierda la comunicacion... este es el error:\n\nApplication\n===========\n   Path and name: C:\\SIV\\NXTMenu.exe (32 bits)\n   Size: 2,595,328 bytes\n   Time from start: 0 hours 29 mins 32 secs \n   Error occurred at: 09/11/2006, 10:04:04\n   Error description: Error adodb.connection/9  Error 6421:  The IP address for the given server was invalid or not found in ADS.INI.  axServerConnect   AdsConnect: OPEN\n   Args:\n     [   1] = C   Provider=Advantage.OLEDB.1;User ID=adssys;Data Source=\\\\miserver\\app\\SIV\\bases\\dictionary.add;Persist Security Info=False;ServerType=ADS_AIS_SERVER;LockMode=ADS_COMPATIBLE_LOCKING\n\nStack Calls\n===========\n   Called from TOLEAUTO:OPEN(0)\n   Called from CARGAR(70)\n   Called from (b)EVAL(57)\n   Called from (b)MSGRUN(0)\n   Called from (b)TDIALOG(0)\n   Called from TDIALOG:DISPLAY(0)\n   Called from TDIALOG:HANDLEEVENT(0)\n   Called from DIALOGBOXINDIRECT(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from MSGRUN(0)\n   Called from (b)Z_EXIS(57)\n   Called from TDIALOG:INITIATE(0)\n   Called from TDIALOG:HANDLEEVENT(0)\n   Called from CREATEDLGINDIRECT(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from Z_EXIS(57)\n   Called from (b)FMENU(112)\n   Called from TMENU:COMMAND(0)\n   Called from TWINDOW:COMMAND(929)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(878)\n   Called from MAIN(76)\n\ngracias por su ayuda','',0,'','14lzixwq',1,0,'',661,0,0),(21525,4881,6,661,0,'189.155.21.196',1163120266,1,0,1,1,1,0,'','como tener multiples ventanas de preview?','una mas, en mi aplicacion tengo varios reportes pero solo puedo abrir de uno a la vez ya que si intento sacar mas de uno me manda el siguiente error:\n\ngracias por su ayuda\n\nApplication\n===========\n   Path and name: C:\\SIV\\SIV\\NXTMenu.exe (32 bits)\n   Size: 2,595,328 bytes\n   Time from start: 1 hours 20 mins 10 secs \n   Error occurred at: 09/11/2006, 11:32:50\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: END\n   Args:\n\nStack Calls\n===========\n   Called from END(0)\n   Called from (b)C23031(62)\n   Called from TBUTTON:CLICK(0)\n   Called from TBUTTON:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from SENDMESSAGE(0)\n   Called from TDIALOG:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TDIALOG:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(878)\n   Called from MAIN(76)','',0,'','lq9nlkn1',1,0,'',661,0,0),(21526,4882,3,98,0,'70.71.111.92',1163120876,1,0,1,1,1,1,'','VK_RETURN handling in Tree class','Antonio:\n\nAny idea why the Enter key isn\'t trapped inside oTree:bKeyDown?\n\n[code:1h3fau7d]\noTree&#58;bKeyDown &#58;= &#123;|nKey,nFlags| ;\n   if&#40; nKey == VK_RETURN, msginfo&#40;&quot;never happens&quot;&#41;, ;\n   if&#40; nKey == VK_SPACE, msginfo&#40;&quot;space bar&quot;&#41;, nil &#41; &#41; &#125;\n[/code:1h3fau7d]\n\nI can handle VK_INSERT, VK_DELETE and others, but VK_RETURN never\ngets passed down to ::bKeyDown by the TTreeView class.\n\nI just noticed that TTreeView:HandleEvent() has code pertaining VK_RETURN.  I commented it out, but it makes no difference.... the Enter key doesn\'t get processed <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\nThanks!','',0,'AIA=','1h3fau7d',1,0,'',98,0,0),(21527,4871,3,72,0,'189.146.15.198',1163126534,1,0,1,1,1,0,'','','- Bug fixed when print Point or Lines graph.\n- New internal method Circle().\n- Pie graph depured.\n- Values adjust.\n- ... other minor details.\n\nRegards.','',0,'AIA=','36watgso',1,0,'',72,0,0),(21528,4854,6,496,0,'200.107.36.176',1163127678,1,0,1,1,1,0,'','','Ariel\n\nMe invadió la duda.... pero prueba a colocar la declaración de la consulta cSQL1 antes de asignarle a\noRs:Source\n\n\ncSQL1 = \"insert into F10TAA ( CODINTPRD, NOMPRD, PRCVTA, PRCSUG, CODBAR ) select CODINTPRD, NOMPRD, PRCVTA, PRCSUG, CODBAR from F10T01 where CODBAR = \'8888888888888\'\" \n\noRs:Source := cSQL1 \n\n\n\nPuedes enontrar  más información de los objetos ADO en  \n\n\n[url:qyipp1g4]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/ado270/htm/mdobjfield&#46;asp[/url:qyipp1g4]\n\n\nMarcelo Jingo','',0,'EA==','qyipp1g4',1,0,'',496,0,0),(21529,4880,6,138,0,'148.233.159.24',1163137512,1,0,1,1,1,1,'','','Alex:\n\nPueden ser 2 cosas, la primera que estes perdiendo la conexión, es decir que tu red este cayendo, cosa que veo dificil.\n\nLa segunda es, que a diferencia del RDD de xHarbour, que mantiene abiertas las tablas todo el tiempo miestras este viva la aplicación, cuando trabajas con ADO, las tablas no estan permanentemente abiertas, solo se abren cuando haces un query y se cierran, luego el control pasa al RecordSet, que esta en la memoria del equipo.\n\nPuedes probar 2 cosas:\n\n1) busca en la documentacion de ADO si existe un cursor tipo \"keep alive\", no recuerdo ahora si es una propiedad del cursor o de la conexion, pero hechale una mirada a la documentacion.\n\n2) Otra cosa que puedes hacer, es aumentar el intervalo de tiempo para la desconexion, este parametro esta establecido por defaul a 240 segundos (4 minutos), este parametro se puede cambiar con el ADS Configuration Utility directo en el servidor.','',0,'EA==','2kvae12w',1,0,'',138,0,0),(21530,4881,6,138,0,'148.233.159.24',1163137667,1,0,1,1,1,1,'','','Alex:\n\nPor ahi anda rodando la clase MPreview, que no recuerdo quien la hizo,creo es de Jose Lalín, perdon si le estoy quitando el merito a alguien y que te sirve precisamente para tener varias ventanas con reportes abiertos, uno en cada ventana.\n\nDebe de estar en el CD de utilidades de FiveWin, y si no la encuentras, mandame un mensaje a mi correo privado y te la envio, yo la utilizo bastante.','',0,'EA==','33sa3ay0',1,0,'',138,0,0),(21531,4854,6,138,0,'148.233.159.24',1163138029,1,0,1,1,1,1,'','','Segun mi conocimiento de ADO no deberias de modificar o insertar datos usando un query, ADO tiene metodos para hacer eso directamente.\n\nSi quieres por ejemplo modificar un dato del record set haces:\n\noRs:field(x):Value := lo que quieras\noRs:Update()\n\nsi haces un query que inserte datos en una tabla o que los modfique el resultado de la ejecucion de dicho query, sobre un recordset, lo que este recordset te devuelve  NO ES LA TABLA CON EL REGISTRO ACTUALIZADO O MODIFICADO, el recorset regresa el resultado de la operacion realizada, puede ser un valor numerico, o un valor logico, pero nunca regresa una tabla.','',0,'EA==','1l8ygxan',1,0,'',138,0,0),(21532,4860,6,2,0,'87.218.146.15',1163142809,1,0,1,1,1,1,'','','Toni,\n\nAl no haber ningún control definido en el diálogo, lo que ocurre es que WM_HELP es enviado tanto al diálogo primero, como a la ventana despues. De hecho aparece primero la ayuda del diálogo, pero no se aprecia con la vista (hay que usar un breakpoint tipo MsgInfo()). \n\nAl situar un control en el diálogo, WM_HELP es enviado al diálogo.\nPrueba tu ejemplo, modificado así, y luego quítale el control GET:\n\n#include \"FiveWin.ch\" \n\nstatic oWnd \n\nfunction Main() \n\nSETHELPFILE( \"fwfun.hlp\") \n\nDEFINE WINDOW oWnd TITLE \"A Window\"\n\noWnd:nHelpId = 2 \n\nACTIVATE WINDOW oWnd ; \nON INIT ShowDlg() \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction ShowDlg() \n\nlocal oDlg, cTest := Space( 10 )\n\n  DEFINE DIALOG oDlg FROM 5, 5 TO 20, 40 TITLE \"A Dialog Box\" \n\n  oDlg:nHelpId := 3 \n  \n  @ 2, 2 GET cTest OF oDlg HELPID 4\n  \nACTIVATE DIALOG oDlg ; \n   ON PAINT oDlg:Say( 1, 1, \"Hello\" ) ; \n   ON CLICK MsgInfo( oDlg:nHelpId )\n\nreturn nil','',0,'EA==','3n4v6owy',1,0,'',2,0,0),(21533,4882,3,2,0,'87.218.146.15',1163143094,1,0,1,1,1,1,'','','Luis,\n\nDo you have a default pushbutton on the same dialog ? If so, VK_RETURN will be routed to it.\n\nI have modified samples\\TestTree.prg with\n\noTree:bKeyDown := {|nKey,nFlags| ; \n   if( nKey == VK_RETURN, msginfo(\"never happens\"), ; \n   if( nKey == VK_SPACE, msginfo(\"space bar\"), nil ) ) } \n\nand it works fine for VK_RETURN','',0,'EA==','3bjz1tjo',1,0,'',2,0,0),(21534,4809,3,2,0,'87.218.146.15',1163143856,1,0,1,1,1,1,'','','John,\n\nPlease modify Class TFtp Method Directory this way:\n[code:3t46a9qe]\n&#46;&#46;&#46;\n      if ! Empty&#40; oWin32FindData&#58;cFileName &#41;\n         AAdd&#40; aFiles, &#123; oWin32FindData&#58;cFileName,;\n                         oWin32FindData&#58;nSizeLow,;\n                         oWin32FindData&#58;nLastWriteAccess,;\n                         oWin32FindData&#58;nCreationTime &#125; &#41;\n         while InternetFindNextFile&#40; hFTPDir, @cBuffer &#41;\n            oWin32FindData&#58;cBuffer = cBuffer\n            AAdd&#40; aFiles, &#123; oWin32FindData&#58;cFileName,;\n                            oWin32FindData&#58;nSizeLow,;\n                            oWin32FindData&#58;nLastWriteAccess,;\n                            oWin32FindData&#58;nCreationTime &#125; &#41;\n         end\n      endif\n&#46;&#46;&#46;\n[/code:3t46a9qe]','',0,'AIA=','3t46a9qe',1,0,'',2,0,0),(21535,4863,6,2,0,'87.218.146.15',1163144036,1,0,1,1,1,1,'','','Ricardo,\n\nEs un bug que se corrigió en un build posterior al que usas. \n\nNo tenemos un patch que poder proporcionarte <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'AIA=','1imfqxaa',1,0,'',2,0,0),(21536,4876,6,2,0,'87.218.146.15',1163144273,1,0,1,1,1,1,'','','Andres,\n\nVuelve a crear ACE32.LIB desde ACE32.DLL (la que usas):\n\nimplib.exe ace32.lib ace32.dll','',0,'AIA=','73ay4apr',1,0,'',2,0,0),(21537,4844,3,2,0,'87.218.146.15',1163145455,1,0,1,1,1,1,'','','Luis,\n\nAdded to FWH.\n\nMany thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3n9241zh',1,0,'',2,0,0),(21538,4871,3,2,0,'87.218.146.15',1163145528,1,0,1,1,1,1,'','','Alfredo,\n\nThanks!','',0,'AIA=','gig4cbdp',1,0,'',2,0,0),(21539,4873,7,2,0,'87.218.146.15',1163145909,1,0,1,1,1,1,'','','Jose Luis,\n\nEsa capacidad no está implementada. \n\nUna solución sería añadir una ó varias columnas más con el contenido extra que no cabe en la primera columna.','',0,'AIA=','4zm99vrm',1,0,'',2,0,0),(21540,4872,2,2,0,'87.218.146.15',1163146776,1,0,1,1,1,1,'','','Raul,\n\nRevisa los ejemplos samples\\phone.prg y samples\\TestComm.prg\n\nEn cuanto a handshake y contar bits, has probado a buscar información en google ?','',0,'AIA=','3inkn4iv',1,0,'',2,0,0),(21541,4877,2,2,0,'87.218.146.15',1163147245,1,0,1,1,1,1,'','','Manu,\n\nPuedes indicarle a la función que dibuje transparente:\n\nPALBMPDRAW( hDC, row, col, hbitmap, hPalette, nWidth, nHeight,\n                      nlRaster, lTransparent, nClrPane )','',0,'AIA=','1hphewth',1,0,'',2,0,0),(21542,4809,3,372,0,'195.193.90.30',1163147418,1,0,1,1,1,0,'','','Hi Antonio,\n\nthanks for the reply. It seems i only get the time returned in this case?\n\nRegards,\n\nJohn.','',0,'AIA=','1wd41b2l',1,0,'',372,0,0),(21543,4779,5,2,0,'87.218.146.35',1163150546,1,0,1,1,1,1,'','','folders and browses:\n\n[url=http&#58;//imageshack&#46;us:154ml90a][img:154ml90a]http&#58;//img299&#46;imageshack&#46;us/img299/1396/imagen1zc8&#46;png[/img:154ml90a][/url:154ml90a]','',0,'GA==','154ml90a',1,0,'',2,0,0),(21544,4780,8,2,0,'87.218.146.35',1163150661,1,0,1,1,1,1,'','','folders y browses:\n\n[url=http&#58;//imageshack&#46;us:3tbozyj0][img:3tbozyj0]http&#58;//img299&#46;imageshack&#46;us/img299/1396/imagen1zc8&#46;png[/img:3tbozyj0][/url:3tbozyj0]','',0,'GA==','3tbozyj0',1,0,'',2,0,0),(21545,4809,3,2,0,'87.218.146.35',1163150840,1,0,1,1,1,1,'','','John,\n\nWhat value do you get for oWin32FindData:nLastWriteAccess ?','',0,'GA==','13tu99f6',1,0,'',2,0,0),(21546,4883,7,106,0,'85.34.123.173',1163152646,1,0,0,1,1,1,'','Imprimir','Tengo que imprimir en una impresora que viene integrada en un pocket.\nTengo el SDK del productor con manuales y todo... Tengo la .lib (que supongo bastaría agregarla a mi buildce.bat)\nComo hago para llamar a cada funcion para imprimir?\nTengo tambien algunas DLL... supongo que contienen lo mismo que las .lib\n\n\nGracias por su atencion.\n\n\n  Int Prt_Open( );\n  Int Prt_Close( );\n  INT Prt_PortRelease() \n  INT Prt_PortOpen()\n  Int Prt_PrinterInit( )\n Int Prt_TestPrint( )\n INT Prt_PrintText(char *textOut, int option)\nINT Prt_PrintBarcode(char *barData, int height, int width, int \nbarcodeSystem, int codeHRI);\nINT Prt_PrintBitmap(LPCTSTR prtFile); \n INT Prt_LineFeed(int number);\n   INT Prt_LineFeedByLine(int line); \n  INT Prt_BackFeed(int number); \n  INT Prt_SetDensity(int density); \n  INT Prt_SetLineSpacing(int linespace); \n INT Prt_CheckStatus(PRT_STATUS *status);  \n INT Prt_CheckPaper(BOOL *blPaper);\n  INT Prt_CheckHeadTemper(BOOL *blTemper)','',0,'GA==','2jmbdjgj',1,0,'',106,0,0),(21547,4870,7,2,0,'87.218.146.15',1163153051,1,0,1,1,1,1,'','','Elías,\n\nPor favor muestra el código de cómo lo estás haciendo, gracias','',0,'GA==','12l7xnfv',1,0,'',2,0,0),(21548,4883,7,2,0,'87.218.146.15',1163153406,1,0,1,1,1,1,'','','Pedro,\n\nPuedes implementar unas funciones en C desde tu PRG:\n[code:858td92k]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nint Prt_Open&#40; void &#41;; \n\nHB_FUNC&#40; PRT_OPEN &#41;\n&#123;\n   hb_retnl&#40; Prt_Open&#40;&#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:858td92k]\ny enlazar con tu librería. O bien, puedes implementar accesos dinámicos a las funciones de la DLL:\n\nDLL FUNCTION Prt_Open() AS LONG FROM \"Prt_Open\" LIB \n\"TuDll.dll\"\n\nEn este caso no necesitas enlazar la librería.','',0,'AIA=','858td92k',1,0,'',2,0,0),(21549,4883,7,106,0,'85.34.123.173',1163153690,1,0,0,1,1,1,'','','Gracias Antonio, \n\n\nharé las pruebas correspondientes.','',0,'AIA=','29tzezle',1,0,'',106,0,0),(21550,4870,7,720,0,'80.36.244.134',1163155398,1,0,1,1,1,0,'','','Perdona Antonio, se me paso poner el codigo....\n\nBueno, estas son las dos funciones que estoy utilizando. Lo que pretendo hacer es un inventario, en el que al introducir un codigo muestre la descripcion y las cantidades(estas ultimas se podrán modificar) y asi sucesivamente....\n\nYo creo que el motivo por el que no funciona el intro (ni en el emulador ni en el teclado) es por el procedimiento de busqueda que realizo, pero mi duda es porque el borrar si lo hace....\n\nSi tienes alguna sugerencia de como realizar la busqueda una vez introducido el codigo, comentamela...te lo agradeceria mucho.\n\nEl codigo es el siguiente....\n\n******************\nFUNCTION Registros()\n******************\nlocal oDlg\nLOCAL oGetInventario, oGetNombre, oGetAcumulado, oGetCantidad, LOCAL oGetFecha, cantidad:=0,acumulado:=0, cSearch := \"\",nombre\n\n     SELECT inventario\n     IF EOF()\n             c=1\n     ELSE\n            inventario-&gt;(dbgobottom())\n            c=val(inventario-&gt;numdoc)+1\n     endif\n     oGetInventario_cod=RIGHT(STR(1000000+c),6)\n     oGetFecha=(DTOC(date())+\' \'+cValToChar((TIME())))\n     Inventario-&gt;(dbappend())\n     inventario-&gt;numdoc:=oGetInventario_cod\n     inventario-&gt;fecha_doc:=oGetFecha\n     showkeyboard()\n    (cAliasInventario)-&gt;(DbSeek((cAliasArticulos)-&gt;cod_art,.t.))\n   \n   DEFINE dialog odlg resource \"Inventario\" \n\n   redefine group ogrp id 600 of odlg color CLR_RED,RGB(230,184,94)\n       \n       DEFINE font oFont2 name \"Courier New\" bold \n       redefine say id 4001 of odlg color CLR_RED, RGB(230,184,94) \n       redefine say id 4002 of odlg color CLR_RED, RGB(230,184,94)\n       redefine say id 4003 of odlg color CLR_RED, RGB(230,184,94)\n       redefine say id 120 of odlg color CLR_RED, RGB(230,184,94) \n       redefine say id 4010 of odlg color RGB(1,1,1),RGB(230,184,94)\n       redefine say id 4011 of odlg color RGB(1,1,1),RGB(230,184,94)\n       DEFINE FONT oFont NAME \"Courier New\" SIZE 6, -14\n   \n   redefine say oSay prompt cSearch id 130 of odlg COLOR CLR_BLACK, CLR_WHITE	   \n   oSay:bKeyChar = { | nKey, nFlags | Search_art( nKey, @cSearch),oSay:REFRESH(),oGetNombre:Refresh()}\n   	  \n     redefine get oGetAcumulado var acumulado id 4007 of odlg \n     redefine get oGetCantidad var cantidad id 4005 of odlg\n     redefine get oGetNombre var articulos-&gt;nom_art id 4004 of odlg\n     redefine get oGetNumDoc var oGetInventario_cod id 4008 of odlg \n     redefine get oGetFecha_Doc var oGetFecha id 4009 of odlg \n     odlg:setcolor(RGB(1,1,1),RGB(230,184,94))\n     inventario-&gt;codigo:=articulos-&gt;cod_art\n     inventario-&gt;pvp:=articulos-&gt;precio\n     inventario-&gt;nombre:=articulos-&gt;nom_art\n     inventario-&gt;stock:= acumulado\n     inventario-&gt;cant:= cantidad\nACTIVATE dialog odlg;\n   on init barra_desplazamiento( odlg)\n   oFont:End()	\nRETURN nil\n\n\n************************************\nfunction Search_art( nkey,cSearch,nombre ) \n************************************\n\n   if nKey = 8 &amp;&amp;equivale a pulsar la tecla de borrar\n      cSearch = SubStr( cSearch, 1, Len( cSearch ) - 1 ) \n   else \n      cSearch += Upper( Chr( nKey ) ) \n   ENDIF\n   IF nKey = 32  &amp;&amp;equivale a pulsar el espacio\n 	articulos-&gt;( DbSeek( ALLTRIM(@cSearch)),.t.)\n 	cSearch=\"\"\n   endif\nreturn nil \n\n\nUn saludo y gracias.\n\nElías Torres.','',0,'AIA=','3kile675',1,0,'',720,0,0),(21551,4884,19,123,0,'88.0.86.53',1163155710,1,0,1,1,1,0,'','Mapas de Google con FWH','Hola,\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> podeis ver como se \'meten\' mapas de google en un diálogo de nuestra aplicación FWH.\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'AIA=','3ksh2702',1,0,'',123,0,0),(21552,4870,7,2,0,'87.218.146.15',1163156375,1,0,1,1,1,1,'','','Elías,\n\nPrueba a usar:\n\noSay:bKeyDown = { | nKey, nFlags | If( nKey == VK_RETURN, MsgInfo( \"return\" ),) }','',0,'AIA=','18g6kt4v',1,0,'',2,0,0),(21553,4870,7,720,0,'80.36.244.134',1163156802,1,0,1,1,1,0,'','','Antonio, he probado lo que me has dicho pero no funciona. En nkey no se registra el VK_RETURN. Cualquier otra cosa si pero ese no....\n\nSaludos...\n\nElías Torres.','',0,'AIA=','33n9sh2t',1,0,'',720,0,0),(21554,4885,3,529,0,'200.233.185.181',1163157859,1,0,1,1,1,0,'','last xharbour behavior','hi, after compile fwh27 july build with last cvs, (30/10), my appl works, but open e close an cmd prompt quick, this is right?\nthanks <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'AIA=','9qepisr1',1,0,'',529,0,0),(21555,4886,3,529,0,'200.233.185.181',1163158075,1,0,1,1,1,0,'','activex','hi, where i find this lib/function:\n\nError: Unresolved external \'_HB_FUN_TACTIVEX\' referenced from D:\\_PRJ\\SCAS\\SCAS_M.OBJ','',0,'AIA=','17hd642o',1,0,'',529,0,0),(21556,4878,6,529,0,'200.233.185.181',1163158262,1,0,1,1,1,0,'','','hi, in my appl i receive the error:\nError: Unresolved external \'_HB_FUN_TACTIVEX\' referenced from D:\\_PRJ\\SCAS\\SCAS_M.OBJ','',0,'AIA=','1di8qv6e',1,0,'',529,0,0),(21557,4887,3,497,0,'82.217.182.197',1163158648,1,0,1,0,1,0,'','Printing Labels in Colour','Can anyone give me an indication how or where to look for printing label lines in different [b:1mhmger3]colours[/b:1mhmger3]?\nThanks,\n\nJules de Pierre\n[b[/b]','',0,'QA==','1mhmger3',1,0,'',497,0,0),(21558,4876,6,850,0,'201.255.89.131',1163158789,1,0,1,1,1,0,'','','Gracias por la respuesta Antonio, hice lo que me dijiste pero ahora cuando compilo me da el siguiente error:\n\nError: Unresolved external \'AdsFlushFileBuffers\' referenced from K:\\HARBOUR\\XHARBOUR\\LIB\\RDDADS.LIB|ads1\nError: Unresolved external \'AdsGetNumActiveLinks\' referenced from K:\\HARBOUR\\XHARBOUR\\LIB\\RDDADS.LIB|adsfunc\nError: Unresolved external \'AdsCloseCachedTables\' referenced from K:\\HARBOUR\\XHARBOUR\\LIB\\RDDADS.LIB|adsfunc\n\nSaludos y gracias.\n\nAndres','',0,'QA==','3i45hq0i',1,0,'',850,0,0),(21559,4870,7,2,0,'87.218.146.15',1163159096,1,0,1,1,1,1,'','','Elías,\n\nEste ejemplo funciona correctamente:\n[code:31l9bx48]\n// FiveWin for Pocket PC - Testing browses with incremental search\n\n#include &quot;FWCE&#46;ch&quot;\n\nREQUEST DBFCDX\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBrw, hBmp &#58;= ReadBitmap&#40; CurDir&#40;&#41; + &quot;\\go&#46;bmp&quot; &#41;\n   local oSay, cSearch &#58;= &quot;&quot;\n\n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41; VIA &quot;DBFCDX&quot;\n   INDEX ON Customer-&gt;Last TO &quot;LAST&quot;\n   Customer-&gt;&#40; OrdSetFocus&#40; &quot;LAST&quot; &#41; &#41;\n   Customer-&gt;&#40; DbGoTop&#40;&#41; &#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;IncSearch&quot;\n   \n   @ 1, 1 LISTBOX oBrw ;\n      FIELDS hBmp, Customer-&gt;Last, Customer-&gt;First ;\n      HEADERS &quot;&quot;, &quot;Last&quot;, &quot;First&quot; ;\n      SIZE 220, 167\n   \n   oBrw&#58;bKeyChar = &#123; | nKey, nFlags | Search&#40; nKey, @cSearch &#41;, oBrw&#58;Refresh&#40;&#41;,;\n                                      oSay&#58;Refresh&#40;&#41; &#125; \n   \n   @ 14,  2 SAY &quot;Searching&#58;&quot; SIZE 60, 30\n   @ 14, 12 SAY oSay PROMPT cSearch SIZE 80, 30\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Search&#40; nKey, cSearch &#41;\n\n   #define VK_RETURN 13\n\n   if nKey == VK_RETURN\n      MsgInfo&#40; &quot;ok&quot; &#41;\n   endif   \n\n   if nKey = 8 \n      cSearch = SubStr&#40; cSearch, 1, Len&#40; cSearch &#41; - 1 &#41; \n   else \n      cSearch += Upper&#40; Chr&#40; nKey &#41; &#41; \n   endif\n    \n   Customer-&gt;&#40; DbSeek&#40; cSearch, &#46;t&#46; &#41; &#41; \n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:31l9bx48]','',0,'AIA=','31l9bx48',1,0,'',2,0,0),(21560,4888,3,190,0,'202.65.134.36',1163159125,1,0,1,1,1,0,'',':SetFocus problem with WHEN clause in Gets and Pushbuttons','I have a problem with :SetFocus()\n\nIn the following code I have three gets and three pushbuttons.\n\nBy default the Gets are disabled and when the \"Create\" button\nis pressed, the gets should be enabled and the focus should be\nplaced on the 1st get.  The \"Create\" and \"Save\" functions of my\ncode below is working Ok enabling and disabling the gets.  \n\nBut the oGet1:SetFocus() in Create() function and oBtn1:SetFocus()\nin Save() function are not working at all. \n\nI tried with oDlg:Update() and oDlg:Refresh() also in both Create()\nand Save() functions without sucess.\n\nCan anybody look into the code and suggest me where I am going\nwrong?\n\nI am using FWH 2.8 (September Build) + xHarbour 0.99.61 (Simplex)\n\nThanks \n\n- Ramesh Babu P \n\n\n[code:18tn724t]\n#include &quot;fivewin&#46;ch&quot;\n\nFUNCTION main&#40;&#41;\n\nLOCAL oDlg, oGet1, oGet2, oGet3, oBtn1, oBtn2, oBtn3, cGet1, cGet2, cGet3\nLOCAL lCreate &#58;= &#46;T&#46;, lSave &#58;= &#46;F&#46;, lGo &#58;= &#46;F&#46;\n\nSTORE SPACE&#40;30&#41; TO cGet1, cGet2, cGet3\n\nDEFINE DIALOG oDlg RESOURCE &quot;TESTFOCUS&quot;\n\nREDEFINE GET oGet1 VAR cGet1 ID 101 OF oDlg UPDATE WHEN lGo \nREDEFINE GET oGet2 VAR cGet2 ID 102 OF oDlg UPDATE WHEN lGo \nREDEFINE GET oGet3 VAR cGet3 ID 103 OF oDlg UPDATE WHEN lGo \n\nREDEFINE BUTTON oBtn1 ID 104 OF oDlg WHEN lCreate ;\n         UPDATE ACTION Create&#40;@lCreate,@lSave,@lGo,@oGet1&#41;\n\nREDEFINE BUTTON oBtn2 ID 105 OF oDlg WHEN lSave   ;\n         UPDATE ACTION Save&#40;@lCreate,@lSave,@lGo,@oBtn1&#41;\n\nREDEFINE BUTTON oBtn3 ID 106 OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\nACTIVATE DIALOG oDlg CENTERED ON INIT oBtn1&#58;SetFocus&#40;&#41;\n\nRETURN nil\n\n**********\n\nFUNCTION Create&#40;lCreate, lSave, lGo, oGet1&#41;\n\nlSave   &#58;= &#46;T&#46;\nlCreate &#58;= &#46;F&#46;\nlGo     &#58;= &#46;T&#46;\n\noGet1&#58;SetFocus&#40;&#41;\n\nRETURN nil\n\n**********\n\nFUNCTION Save&#40;lCreate, lSave, lGo, oBtn1&#41;\n\nlSave   &#58;= &#46;F&#46;\nlCreate &#58;= &#46;T&#46;\nlGo     &#58;= &#46;F&#46;\n\noBtn1&#58;SetFocus&#40;&#41;\n\nRETURN nil\n\n**********\n\n/****************************************************************************\nget&#46;rc\nproduced by Borland Resource Workshop\n*****************************************************************************/\n\nTESTFOCUS DIALOG 6, 15, 207, 113\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Testing Focus&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n GROUPBOX &quot;&quot;, 301, 8, 3, 192, 82, BS_GROUPBOX\n LTEXT &quot;Get - 1&quot;, -1, 20, 23, 30, 8\n EDITTEXT 101, 58, 20, 132, 13\n LTEXT &quot;Get - 2&quot;, -1, 19, 44, 30, 8\n EDITTEXT 102, 58, 41, 132, 13\n LTEXT &quot;Get - 3&quot;, -1, 19, 65, 30, 8\n EDITTEXT 103, 58, 62, 132, 13\n PUSHBUTTON &quot;&amp;Create&quot;, 104, 74, 92, 40, 15\n PUSHBUTTON &quot;&amp;Save&quot;, 105, 117, 92, 40, 15\n PUSHBUTTON &quot;&amp;Ok&quot;, 106, 160, 92, 40, 15\n&#125;\n\n[/code:18tn724t]','',0,'AIA=','18tn724t',1,0,'',190,0,0),(21561,4860,6,57,0,'88.0.86.53',1163159183,1,0,1,1,1,1,'','','Antonio\nEfectivamente el Metodo ON CLICK recoge el valor de nHelpId pero sigue sin funcionar aun cuando hay controles en el propio dialogo y pulsas F1 NO accede al HelpId especificado y antes funcionaba correctamente.\n\nSaludos','',0,'AIA=','20xhaiws',1,0,'',57,0,0),(21562,4886,3,2,0,'87.218.146.15',1163159586,1,0,1,1,1,1,'','','Norberto,\n\nIt is a FWH Class available from September 2004 build on','',0,'AIA=','1ednyz1z',1,0,'',2,0,0),(21563,4864,6,838,0,'80.34.222.112',1163159667,1,0,1,1,1,0,'','','Hola\n\nMe he bajado la que está en utilidades de Manuel Mercado, ya que la de Antonio Linares no me la descarga, y me da el siguient error\n**************************\nError: \'C:\\HARBOUR\\TSBUTTON.LIB\' contains invalid OMF record, type 0x21 (possibly COFF)\n\n***************************\n\nQue puede ser?\n\nSaludos\n\nJose Luis','',0,'AIA=','250ok7v3',1,0,'',838,0,0),(21564,4885,3,2,0,'87.218.146.15',1163159846,1,0,1,1,1,1,'','','Norberto,\n\n&gt; but open e close an cmd prompt quick, this is right?\n\nWhat do you mean ? Please explain it,','',0,'AIA=','33456i9e',1,0,'',2,0,0),(21565,4888,3,2,0,'87.218.146.15',1163160048,1,0,1,1,1,1,'','','Ramesh,\n\nTry this:\n\noGet1:PostMsg( WM_SETFOCUS ) instead of oGet1:SetFocus()','',0,'AIA=','33lk91en',1,0,'',2,0,0),(21566,4860,6,2,0,'87.218.146.15',1163160303,1,0,1,1,1,1,'','','Toni,\n\nEsta imagen es de tu ejemplo con la modificación que te he indicado. Funciona bien:\n[url=http&#58;//imageshack&#46;us:2xbbox3v][img:2xbbox3v]http&#58;//img154&#46;imageshack&#46;us/img154/81/image2dq7&#46;png[/img:2xbbox3v][/url:2xbbox3v]','',0,'GA==','2xbbox3v',1,0,'',2,0,0),(21567,4870,7,720,0,'80.36.244.134',1163160395,1,0,1,1,1,0,'','','Antonio, efectivamente el ejemplo que me pasas funciona correctamente pero para mi aplicacion no va..... He estado comparandolos y la unica diferencia que veo es que en el ejemplo se trabaja con un browse y mi aplicacion con un say, ¿puede ser ese el problema?.. \n\n**********\nMi aplicacion\n**********\n\noSay:bKeyChar = { | nKey, nFlags | Search_art( nKey, @cSearch),oSay:REFRESH(),oGetNombre:Refresh()}   \n\n\n**********\nEl ejemplo\n**********\n\noBrw:bKeyChar = { | nKey, nFlags | Search( nKey, @cSearch ), oBrw:Refresh(),oSay:Refresh() } \n\n\nAdemas he colocado el #define VK_RETURN 13  en el Search(nkey,@cSearch) porque eso si que no lo tenia, pero nada, no va....\n\n\nUn saludo y gracias.\n\nElías Torres.','',0,'GA==','3v548iik',1,0,'',720,0,0),(21568,4876,6,2,0,'87.218.146.15',1163160478,1,0,1,1,1,1,'','','Andrés,\n\nParece que necesitas una ACE32.DLL más reciente.','',0,'GA==','1vxj6dvt',1,0,'',2,0,0),(21569,4876,6,850,0,'201.255.89.131',1163160986,1,0,1,1,1,0,'','','Antonio, si le pongo un ace32.lib mas reciente no da error de compilacion pero da el error que no encuentra el ordinal 438, por otra parte si le pongo otras .dll que no corresponden a la version 6 del avantage no se conecta por el cliente ser mas moderno que el servidor. Te agradecere cualquier sugerencia.\n\nMuchas gracias\n\nAndres','',0,'GA==','21rl8bnb',1,0,'',850,0,0),(21570,4888,3,190,0,'202.65.134.26',1163161039,1,0,1,1,1,0,'','','Mr.Antonio\n\nAmazing to get a solution in 5 minues time.\n\nIt is working now Ok. \n\nThank you very much. \n\nBTW, why :SetFocus() is not working!\n\nRegards to you\n\n- Ramesh Babu P','',0,'GA==','2dmk4yjd',1,0,'',190,0,0),(21571,4889,3,135,0,'82.91.87.23',1163161296,1,0,1,1,1,0,'','Interfacing DLL usbcddll.dll with fivewin','I don\'t know how use the function into the DLL usbcddll.dll with the fivewin\nPlease Help me !\n\nthe USBCDDLL.DLL is for delphi 5\n<!-- m --><a class=\"postlink\" href=\"http://www.eurosoftsnc.net/download/CDLIB_D5.ZIP\">http://www.eurosoftsnc.net/download/CDLIB_D5.ZIP</a><!-- m -->\n\nI need to use the following functions in USBCDDLL.DLL\nInitUSBCDLibrary\nCloseUSBCDLibrary\nSetCDCallbackProc\nGetDeviceNumber\nEnumDevice\nUSBCDReset\nUSBCDMoveto\nUSBCDGetCDDown\nUSBCDLEDON\nUSBCDLEDOFF\nUSBCDGetStatus\n\n-----------------------------------------------------------\n \nexample in C\n \n#ifndef _USBCDDLL_HPP\n#define _USBCDDLL_HPP\n\n#define DEVICE_COMMANDOK   0\n#define DEVICE_IDERROR     1\n#define DEVICE_BUSY        2\n#define DEVICE_UNKNOWERROR  3\n \nextern \"C\"\n{\ntypedef void (CALLBACK* CDDeviceChangePROC )(int);\n \nWINUSERAPI VOID WINAPI InitUSBCDLibrary();\nWINUSERAPI VOID WINAPI CloseUSBCDLibrary();\nWINUSERAPI VOID WINAPI SetCDCallbackProc( CDDeviceChangePROC lpProc );\nWINUSERAPI int WINAPI GetDeviceNumber();\nWINUSERAPI int WINAPI EnumDevice( int);\n \n// CD Device Operate function below\nWINUSERAPI int WINAPI USBCDReset( int ID );\nWINUSERAPI int WINAPI USBCDMoveto( int ID, int Index );\nWINUSERAPI int WINAPI USBCDGetCDDown( int ID );\nWINUSERAPI int WINAPI USBCDLEDON( int ID );\nWINUSERAPI int WINAPI USBCDLEDOFF( int ID );\nWINUSERAPI int WINAPI USBCDGetStatus( int ID );\n}\n#endif\n \n=================All Dll Functions (Copied From Dll Extractor)========================\nFunction Name            Address    Relative Ad    Ordinal        Filename\nCloseUSBCDLibrary        0x0043f470    0x0003f470    23 (0x17)    USBCDDLL.dll\nCloseUSBCDLibrary@0        0x0043f470    0x0003f470    11 (0xb)        \nEnumDevice            0x0043f498    0x0003f498    20 (0x14)        \nEnumDevice@4            0x0043f498    0x0003f498    8 (0x8)        \nGetDeviceNumber        0x0043f48c    0x0003f48c    21 (0x15)        \nGetDeviceNumber@0        0x0043f48c    0x0003f48c    9 (0x9)        \nInitUSBCDLibrary        0x0043f448    0x0003f448    24 (0x18)        \nInitUSBCDLibrary@0        0x0043f448    0x0003f448    12 (0xc)        \nSetCDCallbackProc        0x0043f47c    0x0003f47c    22 (0x16)        \nSetCDCallbackProc@4        0x0043f47c    0x0003f47c    10 (0xa)        \nUSBCDGetCDDown        0x0043f4d8    0x0003f4d8    17 (0x11)        \nUSBCDGetCDDown@4        0x0043f4d8    0x0003f4d8    5 (0x5)        \nUSBCDGetCDUp        0x0043f4ec    0x0003f4ec    16 (0x10)        \nUSBCDGetCDUp@4        0x0043f4ec    0x0003f4ec    4 (0x4)        \nUSBCDGetStatus        0x0043f528    0x0003f528    13 (0xd)        \nUSBCDGetStatus@4        0x0043f528    0x0003f528    1 (0x1)        \nUSBCDLEDOFF        0x0043f514    0x0003f514    14 (0xe)        \nUSBCDLEDOFF@4        0x0043f514    0x0003f514    2 (0x2)        \nUSBCDLEDON            0x0043f500    0x0003f500    15 (0xf)        \nUSBCDLEDON@4        0x0043f500    0x0003f500    3 (0x3)        \nUSBCDMoveto            0x0043f4c0    0x0003f4c0    18 (0x12)        \nUSBCDMoveto@8        0x0043f4c0    0x0003f4c0    6 (0x6)        \nUSBCDReset            0x0043f4ac    0x0003f4ac    19 (0x13)        \nUSBCDReset@4        0x0043f4ac    0x0003f4ac    7 (0x7)','',0,'GA==','30cnaf2u',1,0,'',135,0,0),(21572,4890,6,413,0,'194.106.16.43',1163162765,1,0,1,1,1,0,'','Capturar pantalla desde un programa fivewin.','Alguien sabe si existe algo implementado en fivewin o harbour que permita capturar pantalla o trozo de pantalla del mismo programa hecho con fivewin, sin depender de un programa externo.\nMe refiero a que quiero capturar un trozo de la pantalla para que luego el programa realice una serie de cosas con la pantalla capturada. A modo de ejmplo, si estamos mostrando un mapa o una foto dentro de fivewin, necesito poder tomar un area o la pantalla completa de esa foto, para que luego el mismo programa haga una serie de acciones como mandarla por mail, imprimirla o insertarla en un escrito y demas. Lo he visto con programa externo que te permiten capturar el trozo de pantalla que quieres y te genera el tipico BMP con el que posteriormente trabajas. Pero mi intencion es que sea fivewin que lo haga.\nEn mi caso concreo he implementado un ejemplo de jlcapel sobre como mostrar los mapas google en un programa fivewin mediante los activex <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=83\">http://www.capelblog.com/?p=83</a><!-- m --> , funciona muy bien, y nos facilitaria mucho el trabajo, mi intencion es definir un punto en el mapa para poderlo enviar por correo, indicando la zona de una averia viaria, para que los que reciben el correo acudan a ese lugar. Igual se puede hacer desde el api de google pero creo que mas facil seria poderlo implementar desde fivewin.\n\nGracias de antemando.','',0,'GA==','hrlgipj6',1,0,'',413,0,0),(21573,4883,7,106,0,'85.34.123.173',1163162803,1,0,0,1,1,0,'','','Definí asi la funcion:\n\nDLL FUNCTION Prt_TestPr() AS LONG FROM \"Prt_TestPrint\" LIB \"Mobitron.Devices.dll\"\n\n\nPero me da el siguiente error:\n\nCompiling \'teve.prg\' and generating preprocessed output to \'teve.ppo\'...\nteve.prg(894) Error E0030  Syntax error: \"parse error at \' Prt_TestPr() AS LONG\nFROM \"Prt_TestPrint\" LIB \"Mobitron.Devices.dll\"\n\'\"\n1 error\n\n\nProbé a hacerlo con las .lib pero me da otra serie de errores que no tengo idea de como corregir: (escribo aqui una parte)\n\n\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'teve.prg\' and generating preprocessed output to \'teve.ppo\'...\nLines 891, Functions/Procedures 19\nGenerating C source output to \'teve.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nteve.c\nc:\\lavwin\\teve\\mobitron\\inc\\printer.h(22) : error C2146: syntax error : missing\n\';\' before identifier \'Prt_CheckCover\'\nc:\\lavwin\\teve\\mobitron\\inc\\printer.h(22) : error C2501: \'INT\' : missing storage\n-class or type specifiers\nc:\\lavwin\\teve\\mobitron\\inc\\printer.h(23) : error C2146: syntax error : missing\n\';\' before identifier \'Prt_CheckHeadTemper\'\n\n\n\n\n\nAlguna idea?\n\n\nGracias','',0,'GA==','1is606nb',1,0,'',106,0,0),(21574,4864,6,147,0,'200.45.54.134',1163163749,1,0,1,0,1,1,'','','Escribime a mi correo privado y te paso los fuentes que tengo\n\nsaludos','',0,'GA==','q3chkehk',1,0,'',147,0,0),(21575,4891,6,41,0,'200.87.67.10',1163163844,1,0,1,1,1,0,'','Problemas con el WorkShop','Holas,\n\naqui en la oficina me dieron una nueva portatil Toshiba Tecra M6, la estoy utilizando con la instalacion que viene por defecto, ya que no viene con instaladores.\n\nMi problema es con el workshop, cada rato me saca que hubo un error en la aplicacion\nque  WORKSHOP caused a General Protection Faul in module WORKLIB2.DLL ....\n\nsaben como puedo detectar con que aplicacion tiene conflicto, o como podria solucionar este problema, uso WinXP SP2 version 2002 (ingles)\n\nsaludos\n\nMarcelo','',0,'GA==','1yulru4d',1,0,'',41,0,0),(21576,4876,6,2,0,'87.218.146.15',1163165109,1,0,1,1,1,1,'','','Andres,\n\nPrueba a incluir estas funciones en tu PRG y a ver si te funciona bien:\n[code:2d4ljqgw]\n#pragma BEGINDUMP\n\nvoid AdsFlushFileBuffers&#40; void &#41; &#123;&#125;\nvoid AdsGetNumActiveLinks&#40; void &#41; &#123;&#125;\nvoid AdsCloseCachedTables&#40; void &#41; &#123;&#125;\n\n#pragma ENDDUMP\n[/code:2d4ljqgw]\nEsto no es nada aconsejable pero a ver si te sirve de momento.','',0,'AIA=','2d4ljqgw',1,0,'',2,0,0),(21577,4860,6,57,0,'88.0.86.53',1163165205,1,0,1,1,1,1,'','','Antonio \nNo se si bien o mal, funciona diferente.\n\nCompilado con la version 2.7 de Diciembre 2005. \n[img:1ftj858u]http&#58;//hyperupload&#46;com/download/0239509578/ClipBoard&#46;jpg&#46;html[/img:1ftj858u]\n\nCompilado con la version 2.7 de Octubre 2006 \n[img:1ftj858u]http&#58;//hyperupload&#46;com/download/02f9b22586/ClipBoard2&#46;jpg&#46;html[/img:1ftj858u]\n\nAntes indicando en el dialog oDlg:nHelpId:= nTopic, mostraba directamente la ayuda del nTopic. \n\nSaludos','',0,'CA==','1ftj858u',1,0,'',57,0,0),(21578,4883,7,2,0,'87.218.146.15',1163165387,1,0,1,1,1,1,'','','Pedro,\n\nTienes que añadir a tu PRG\n\n#include \"dll.ch\"','',0,'CA==','e7fdndrn',1,0,'',2,0,0),(21579,4870,7,2,0,'87.218.146.15',1163165485,1,0,1,1,1,1,'','','Elías,\n\nUn SAY no responde a los eventos de teclado. No puedes usarlo.','',0,'CA==','1ek3h6vi',1,0,'',2,0,0),(21580,221,4,68,0,'203.45.173.100',1163165561,1,0,1,1,1,1,'','','Bill,\nI use xharbour\\source\\rtl\\hbcrypt.c (from xharbour.org) correcting lines 448 and 478 to use hb_retclen.  I use hb_crypt to scramble the user registration key details when storing in the registry.  What snippets would you like?\n\nhth','',0,'CA==','znzz1yhd',1,0,'',68,0,0),(21581,4883,7,106,0,'85.34.123.173',1163165781,1,0,0,1,1,1,'','','Je... lo acabo de descubrir recién, justo en este momento.\n\nGracias por tu tiempo.\n\n\nHago otra pregunta, visto que no me funciona.\n\ntengo el SDK con dos carpetas\n1) Microsoft Embedded Visual C++ Version\n2) Microsoft Visual Studio .Net Version\n\nEl tema es que las dll estàn en la segunda, esta bien si uso esas? porque en la primera tengo solo las .lib y con esas no funcionó.\n\nDisculpen la ignorancia, pero es el unico modo de aprender...','',0,'CA==','vwm27pxe',1,0,'',106,0,0),(21582,4888,3,190,0,'202.65.134.26',1163166677,1,0,1,1,1,0,'','','Hi Mr.Antonio\n\nOnce the focus is passed on to a get with oGet1:PostMsg(EM_SETFOCUS) \nand when I click on any other controls or press tab,  the blinking cursor  is\nstill showing on old control (oGet1) and bLostFocus is also not working \nproperly.\n\nJust add the following lines to the above code after redefinition of GETS,\nimplement the  oGet1:SetFocus(WM_SETFOCUS) in place of \noGet1:SetFocus(), oBtn1:SetFocus(WM_SETFOCUS) in place of \noBtn1:SetFocus() and test it. You will find the anomaly.\n\n[code:2ayt9kra]\noGet1&#58;bGotFocus  &#58;= &#123;||oGet1&#58;SetColor&#40;nRGB&#40;0,0,0&#41;, nRGB&#40;193,193,255&#41;&#41;&#125;\noGet1&#58;bLostFocus &#58;= &#123;||oGet1&#58;SetColor&#40;nRGB&#40;0,0,0&#41;, nRGB&#40;255,255,255&#41;&#41;&#125;\n[/code:2ayt9kra]\n\nThanks to you\n\n- Ramesh Babu P','',0,'AIA=','2ayt9kra',1,1163166964,'',190,1,0),(21583,4883,7,2,0,'87.218.146.15',1163166680,1,0,1,1,1,1,'','','Pedro,\n\nPrueba a usarlas. Puede ser que sean autocontenidas ó no (ese es el problema de .NET que precisa de un runtime externo).\n\nUna forma rápida de comprobar si puedes usarlas es:\n\nlocal hDLL := LoadLibrary( \"nombre_dll.dll\" )\n\nMsgInfo( hDLL )\n\nFreeLibrary( hDLL )','',0,'AIA=','ost598me',1,0,'',2,0,0),(21584,4890,6,519,0,'83.32.110.60',1163166707,1,0,1,1,1,0,'','','Andres \n\n   Tengo el mismo problema que tu , si encuentras alguna solucion por favor  , la pones  por aqui.\n\n  Una duda como le pasas el punto al mapa,  se le podria pasar por ejemplo una localidad o provincia  ?\n\n Un saludo','',0,'AIA=','29n8syh1',1,0,'',519,0,0),(21585,4888,3,2,0,'87.218.146.15',1163166924,1,0,1,1,1,1,'','','Ramesh,\n\nTry this:\n\noGet1:PostMsg( WM_SETFOCUS )\noBtn1:oJump = oGet1','',0,'AIA=','1zbti4sl',1,0,'',2,0,0),(21586,4883,7,106,0,'85.34.123.173',1163167125,1,0,0,1,1,0,'','','ya hice el ejemplo y me devuelve un numero: -2088611840, eso quiere decir que funciona o que no?\n\ngracias.','',0,'AIA=','2m9qcyzd',1,0,'',106,0,0),(21587,4888,3,2,0,'87.218.146.15',1163167186,1,0,1,1,1,1,'','','Ramesh,\n\n&gt; BTW, why :SetFocus() is not working\n\nBecause Windows returns the focus to the button, after processing the ACTION of the button, so we can not interrupt that process.','',0,'AIA=','5xxrfqpt',1,0,'',2,0,0),(21588,221,4,224,0,'162.83.94.176',1163167273,1,0,1,1,1,1,'','','Ahh!  Jon, thanks for the reply... When I saw hbcrypt, I thought you were referring to the hbCrypt library from DogTek.  I\'ve need for the Rijndael algo they\'ve implemented.\n\nThanks again!','',0,'AIA=','3m06144q',1,0,'',224,0,0),(21589,4883,7,2,0,'87.218.146.15',1163167280,1,0,1,1,1,1,'','','Pedro,\n\nFunciona <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ya que estás obteniendo un handle a la DLL.','',0,'AIA=','2gi6as2n',1,0,'',2,0,0),(21590,4883,7,106,0,'85.34.123.173',1163167317,1,0,0,1,1,1,'','','Perfecto  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ahora a ver entonces por cual motivo no imprime.\n\n\ngracias nuevamente.','',0,'AIA=','1eigj4kw',1,0,'',106,0,0),(21591,4883,7,2,0,'87.218.146.15',1163167524,1,0,1,1,1,1,'','','Pedro,\n\nPrueba a hacerlo de esta forma para mantener el handle de la DLL en uso:\n\nlocal hDLL := LoadLibrary( \"TuDLL.dll\" )\n\n... tu código\n\nFreeLibrary( hDLL )\n\nDLL FUNCTION Prt_Open() AS LONG FROM \"Prt_Open\" LIB hDLL','',0,'AIA=','3cmgdkzz',1,0,'',2,0,0),(21592,4888,3,190,0,'202.65.134.26',1163167624,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nThanks again for immediate attention.\n\n[quote:1mje3lqr]\noBtn1:oJump = oGet1\n[/quote:1mje3lqr]\n\nIf we do not know in advance that the user will jump to oGet1 from oBtn1?\n\nThanks \n\nRamesh Babu P','',0,'gA==','1mje3lqr',1,0,'',190,0,0),(21593,4860,6,2,0,'87.218.146.15',1163167674,1,0,1,1,1,1,'','','Toni,\n\n&gt;\nAntes indicando en el dialog oDlg:nHelpId:= nTopic, mostraba directamente la ayuda del nTopic. \n&gt;\n\nPrueba a cambiar el nHelpId de la ventana anterior al diálogo tambien, al mismo valor que oDlg:nHelpId','',0,'gA==','1pc89kkv',1,0,'',2,0,0),(21594,4888,3,2,0,'87.218.146.15',1163167854,1,0,1,1,1,1,'','','Ramesh,\n\n&gt; If we do not know in advance that the user will jump to oGet1 from oBtn1?\n\nYou set it from the Create() function where you know where it will go.','',0,'gA==','2a5gkz5s',1,0,'',2,0,0),(21595,4883,7,106,0,'85.34.123.173',1163168447,1,0,0,1,1,1,'','','En este caso aparece un Alert con este texto: Error code: 0 loading 0\n\n\n\nLuego de modificar todo de nuevo y probar con las .lib, me da este error:\n\n\nteve.c\nprinterAPI.lib(PRINTERAPI.dll) : fatal error LNK1112: module machine type \'THUMB\n\' conflicts with target machine type \'ARM\'\n\n\nentiendo que las .lib estan para WM 5.0 y nosotros compilamos para ce 4.2, se puede arreglar en algun modo?','',0,'gA==','r03tgnj4',1,0,'',106,0,0),(21596,4888,3,190,0,'202.65.134.26',1163168479,1,0,1,1,1,0,'','','Mr.Antonio\n\nKindly test the above code with the changes you have suggested \nand give me the suitable solution please.\n\nI tried with the all your suggestions with fail.\n\nRegards to you\n\n- Ramesh Babu P','',0,'gA==','1z2fp9a4',1,0,'',190,0,0),(21597,4876,6,850,0,'201.255.89.131',1163168836,1,0,1,1,1,0,'','','Hola Antonio, probe incluir estas sentencias pero persiste el mismo error. Probe con Harbour y anda bien, el problema es con el xHarbour. Lo que sucede es que queria acceder al sql Server de Microsoft via ADO con la libreria de José Luis Capel y acceder al servidor advantage 6 tambien, y la libreria de José Luis esta para xHarbour. Gracias por tus respuesta.\n\nAndres','',0,'gA==','1zdn9wxu',1,0,'',850,0,0),(21598,4886,3,529,0,'200.159.198.4',1163168966,1,0,1,1,1,0,'','','Antonio, 2004, i use fwh 2.7. july 2006 build, why this dont work?','',0,'gA==','1rzr1wej',1,0,'',529,0,0),(21599,4878,6,123,0,'88.1.152.109',1163169020,1,0,1,1,1,0,'','','Hi Nop,\n\nMaybe you don\'t have an early version of FWH.  What version do you have?\n\nRegards,\nJosé Luis Capel','',0,'gA==','1bdy0ww8',1,0,'',123,0,0),(21600,4885,3,529,0,'200.159.198.4',1163169121,1,0,1,1,1,0,'','','Antonio, when i call the aplication, an fast dos prompt is open and closed.but all runs ok. only guess this strange because this dont ocour in version more old;','',0,'gA==','ygkt8b1p',1,0,'',529,0,0),(21601,4886,3,529,0,'200.159.198.4',1163169188,1,0,1,1,1,0,'','','i compile the source of fwh, the make can stay wrong? you have a new  one?','',0,'gA==','dwy3tcgh',1,0,'',529,0,0),(21602,4860,6,57,0,'88.0.86.53',1163171293,1,0,1,1,1,1,'','','Ok, Así funciona\n\nSaludos','',0,'gA==','2cwh2543',1,0,'',57,0,0),(21603,4890,6,72,0,'189.146.15.198',1163171384,1,0,1,1,1,0,'','','... se me ocurre.\n\n   WndBitmap( Self:hWnd )            // to image\no\n   WndCopy( Self:hWnd, .F., .T. )   // to clipboard','',0,'gA==','2drr9tky',1,0,'',72,0,0),(21604,4892,6,862,0,'80.34.9.135',1163171810,1,0,1,1,1,0,'','Problema con Rpreview en Fivewin 2.8','Hola\n\n    En la ultima versión de FWH 2.8 Octubre el rpreview tiene un pequeño problema.  Cuando la previsualización es de más de una página, al cambiar de página no refresca bien la numeración y siempre se queda en la página 1/n. \n\n    Hemos solucionado esto en el rpreview.prg quitando la instrucción oBar:Refresh() en las funciones NextPage(), PrevPage()....\n\nSaludos\nJosé Luis Izquierdo\n<!-- w --><a class=\"postlink\" href=\"http://www.ipgsoft.com\">www.ipgsoft.com</a><!-- w -->','',0,'gA==','3r1brsqm',1,0,'',862,0,0),(21605,4891,6,362,0,'200.168.52.156',1163172510,1,0,1,1,1,1,'','','Mira Aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=519\">http://www.fivewin.com.br/exibedicas.asp?id=519</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=467\">http://www.fivewin.com.br/exibedicas.asp?id=467</a><!-- m -->\n\nRegards, Saludos.','',0,'gA==','yil78xkv',1,0,'',362,0,0),(21606,4885,3,6,0,'87.17.213.147',1163172835,1,0,1,1,1,1,'','','Replace gtwin.lib with gtgui.lib.\n\nEMG','',0,'gA==','1zs3455k',1,0,'',6,0,0),(21607,4878,6,456,0,'62.43.194.117',1163173045,1,0,1,1,1,1,'','','Hola José Luis, muy interesante.\n Funciona perfecto, revisare el API de google, el tema de mapas , distancias,rumbos,..., me interesa mucho. Un saludo, y gracias por la aportación.\n\n\nPD. En el codigo que pones de ejemplo estan invertidos estatua de libertad &lt;-&gt; Torres Eifel','',0,'gA==','1wzhs0um',1,0,'',456,0,0),(21608,4863,6,582,0,'201.252.121.79',1163176228,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:7ldq0mhw]Ricardo,\n\nEs un bug que se corrigió en un build posterior al que usas. \n\nNo tenemos un patch que poder proporcionarte <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->[/quote:7ldq0mhw]\n\nAntonio, a proposito de FixSays() hay un tema.\nCuando tenes definido oDlg:SetFont(oFont) en los say no toma el font definido., como tampocol color.\nEn los Get,Get de solo lectura,button si los toma correctamente.\nNo he probado otros controles.\nAhora, si le sacas el FixSays(), toma el font correctamente.\n\nUn abrazo. El Loco =&gt;))\n\nPD. Build de octubre 2006','',0,'gA==','7ldq0mhw',1,0,'',582,0,0),(21609,4876,6,138,0,'189.141.64.226',1163176442,1,0,1,1,1,1,'','','A ver, a ver, aver...\n\nOs estais liando ambos.\n\nPrimero, necesito saber que version de (x)Harbour estabas utilizando ANTES de actualizarte a FW 2.8\n\nHubo cambios MUY IMPORTANTES en el RDDADS que en las ultimas versiones estan causando problemas sobre todo con servidores 6.x, con los servidores 7 y 8 funcionan bien.','',0,'gA==','3jbw390n',1,0,'',138,0,0),(21610,4886,3,2,0,'87.218.146.15',1163177076,1,0,1,1,1,1,'','','Norberto,\n\nThe source code of Class TActiveX was not included in your build.','',0,'gA==','3ddkqeo7',1,0,'',2,0,0),(21611,4893,6,207,0,'148.233.32.164',1163177740,1,0,1,1,1,0,'','Graficar poligonos con coordenadas','Que tal todos:\n\nNecesito dibujar unos poligonos a partir de ciertas coordenadas, he visto la funcion polypolygon, solo que sus parámetros estan de 0 a 400, los que yo tengo son x=588458, y=2443823 , estas fueron tomadas por un GPS, o si alguien sabe la formula para calcular el area de un poligono a partir de este tipo de datos, me sería muy util. \n(obviamente el ejemplo es solo un vertice  para cada poligono tengo minimo 3 vertices)\n\nSaludo a todos\ndesde México','',0,'gA==','9ti39cxt',1,0,'',207,0,0),(21613,4863,6,582,0,'201.252.121.79',1163177829,1,0,1,1,1,0,'','','[quote=&quot;El Loco&quot;:38yaxlpc][quote=&quot;Antonio Linares&quot;:38yaxlpc]Ricardo,\n\nEs un bug que se corrigió en un build posterior al que usas. \n\nNo tenemos un patch que poder proporcionarte <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->[/quote:38yaxlpc]\n\nAntonio, a proposito de FixSays() hay un tema.\nCuando tenes definido oDlg:SetFont(oFont) en los say definidos desde recursos no toma el font definido, como tampoco el color.\nEn los Get,Get de solo lectura,button si los toma correctamente.\nNo he probado otros controles.\nSi redefines los say en el programa funciona todo ok.\nAhora, si le sacas el FixSays(), toma el font correctamente.\nEse comportamiento en normal ?\n\n\nUn abrazo. El Loco =&gt;))\n\nPD. Build de octubre 2006[/quote:38yaxlpc]','',0,'gA==','38yaxlpc',1,0,'',582,0,0),(21614,4894,3,65,0,'193.201.130.18',1163179356,1,0,1,1,1,0,'','fm.log','When I run my program it creates a file \"fm.log\" as below. Why?\n\nMemory Allocation Report\nApplication: C:\\X\\y\\upx203w\\MUS40.Exe\nxHarbour Version: xHarbour build 0.99.50 Intl. (SimpLex)\nCompiler: Borland C++ 5.5.1\nPlatform: Windows XP Professional 5.01.2600 Service Pack 2\nTime Occured: 2006.11.10 19:14:06\nTotal 75451 allocations (12290 reallocation), of which 75450 freed.\nHighest total allocated 4182282 bytes in 21779 blocks.\nWARNING! Memory allocated but not released: 24 bytes (1 blocks)\nBlock 1 00D561A8 (size 24) KEYBON(0), \"0080000000000000A020D200110000000000000090E6D100\"\n--------------------------------------------------------------------------------\n\nMany thanks,\nBirol\n\n\nxHarbour 0.99.5 · FiveWin for xHarbour 2.6','',0,'gA==','10mztc3u',1,0,'',65,0,0),(21615,4878,6,179,0,'200.24.221.138',1163180121,1,0,1,1,1,1,'','','Exelente Trabajo\ny gracias x compartirlo\n\nUna pregunta y perdon la ignorancia, generalmente se dan las coordenas\nalgo asi\n\nLatitud = 0 grados 4 Minutos 40.8 Segundos  S (Sur) \nLongitud =  78°27\'47.69\"W\n\nComo paso estos valores a decimal que es lo que tienes en tu ejemplo\nSaludos\ny Gracias x Todo (Funciona ok)','',0,'gA==','1pf0anaz',1,0,'',179,0,0),(21616,4834,1,58,0,'84.149.229.228',1163180980,1,0,1,1,1,0,'','','Gilbert,\n\nas far as i know you can not browse one dimensional arrays.\nAt least not with TWBrowse and TSBrowse.\n\nOne dimension you can list in a normal listbox.\n\nRegards,\nDetlef','',0,'gA==','3fyxr0ze',1,0,'',58,0,0),(21617,4779,5,2,0,'87.218.146.35',1163181265,1,0,1,1,1,1,'','','Using images:\n\n[url=http&#58;//imageshack&#46;us:2mcbqq9g][img:2mcbqq9g]http&#58;//img465&#46;imageshack&#46;us/img465/6918/picture1je5&#46;png[/img:2mcbqq9g][/url:2mcbqq9g]','',0,'GA==','2mcbqq9g',1,0,'',2,0,0),(21618,4876,6,850,0,'201.255.101.175',1163181321,1,0,1,1,1,0,'','','Hola Rene, no estaba usando xHarbour antes. El tema es que el Harbour que me vino con el FHW 2.8 anda muy bien con el ace32.lib y con el servidor advantage 6.0, los programas andan bien, pero cuando los compilo con el xHarbour es que da los problemas. Quiero usar el xHarbour para poder utilizar la biblioteca de Jose L. Capel para acceder al Ms-Sql, que se compila unicamente en xHarbour. Espero haber sido claro y gracias por contestar.\n\nAndres','',0,'GA==','3j6x8l2w',1,0,'',850,0,0),(21619,4780,8,2,0,'87.218.146.35',1163181360,1,0,1,1,1,1,'','','Usando \"images\"\n\n[url=http&#58;//imageshack&#46;us:1kgncg4j][img:1kgncg4j]http&#58;//img465&#46;imageshack&#46;us/img465/6918/picture1je5&#46;png[/img:1kgncg4j][/url:1kgncg4j]','',0,'GA==','1kgncg4j',1,0,'',2,0,0),(21620,4891,6,41,0,'200.87.67.10',1163182507,1,0,1,1,1,0,'','','Gracias, pero no fue la solucion, tendre que reinstalar todo, era lo ultimo que deseaba hacer\n\nsaludos\n\nMarcelo','',0,'GA==','326ppn7e',1,0,'',41,0,0),(21621,4876,6,54,0,'189.132.114.238',1163185949,1,0,1,1,1,1,'','','[quote=&quot;acartucho&quot;:ntacqco5]Hola Rene, no estaba usando xHarbour antes. El tema es que el Harbour que me vino con el FHW 2.8 anda muy bien con el ace32.lib y con el servidor advantage 6.0, los programas andan bien, pero cuando los compilo con el xHarbour es que da los problemas. Quiero usar el xHarbour para poder utilizar la biblioteca de Jose L. Capel para acceder al Ms-Sql, que se compila unicamente en xHarbour. Espero haber sido claro y gracias por contestar.\n\nAndres[/quote:ntacqco5]\n\nAndres, no se si te refieras a ADO, lo cual se puede usar con harbour de igual manera sin problemas.\n\nEn la sección de utilidades de este foro, podras descar la HBOle, la cual se tiene que ligar con harbour para usar ADO sin problemas.\n\nSaludos','',0,'gA==','ntacqco5',1,0,'',54,0,0),(21622,4739,3,104,0,'201.58.10.118',1163186123,1,0,1,1,1,0,'','','Hi Areang,\n\nTry this:\n\n[code:39w0axgq]\n\n&#46;&#46;&#46;\n  IF nYPos + oSprite&#58;nHeight &gt; nWndHeight\n        nYPos = nWndHeight - oSprite&#58;nHeight\n        nYStep = -nYStep\n    ENDIF\n\n    oSprite&#58;refresh&#40;&#41;  &amp;&amp;&lt;&lt;&lt;--- Inside This \n\n    oSprite&#58;Move&#40; nYPos, nXPos, , , &#46;T&#46; &#41;\n\n    RETURN NIL\n[/code:39w0axgq]\n\nRegards,\n\nRossine.','',0,'AIA=','39w0axgq',1,0,'',104,0,0),(21623,4739,3,6,0,'87.17.213.147',1163187575,1,0,1,1,1,1,'','','Great!\n\nEMG','',0,'AIA=','2mc34yn1',1,0,'',6,0,0),(21624,4876,6,850,0,'201.255.101.175',1163189627,1,0,1,1,1,0,'','','Hola William, si lo que quiero es usar ADO para conectarme a MS-SQL, voy a probar HBOle para conectarme con ADO.\nMuchas Gracias\n\nAndres','',0,'AIA=','2gbodj7z',1,0,'',850,0,0),(21625,3861,3,435,0,'200.155.201.52',1163192896,1,0,1,1,1,0,'','','DEFINE MAIL\n\ncom incredimail não aparece o texto corretamente\n\n<!-- w --><a class=\"postlink\" href=\"http://www.incredimail.com\">www.incredimail.com</a><!-- w -->\n\nAri','',0,'AIA=','3erzw7lh',1,0,'',435,0,0),(21626,4882,3,98,0,'70.71.111.92',1163195095,1,0,1,1,1,1,'','','Antonio:\n\n[quote=&quot;Antonio Linares&quot;:1vb3v85f]\nDo you have a default pushbutton on the same dialog ? If so, VK_RETURN will be routed to it.\n[/quote:1vb3v85f]\n\nIt seems I have a little mystery in my hands.  You\'re right, it works just fine in testtree.prg.  In my case the tree is on a modal dialog with a toolbar, but no standard buttons, so there are no default pushbuttons.\n\nFor some reason, when the tree is on a dialog, the Enter key is not processed!\n\nAny idea what could be \"eating\" the Enter key?\n\nRegards,\n\nLuis','',0,'gA==','1vb3v85f',1,0,'',98,0,0),(21627,4895,6,471,0,'190.40.186.100',1163197198,1,0,1,1,1,1,'','alquien conoce un depurador  para xhb o fw que muestre las','Amigos\n\nAlquien conoce un depurador  para xhb o fw que muestre las \nlineas a medidaque se ejecutan com lo tiene Visual FOX PRO\n\n\nGracias','',0,'gA==','3oe0khxm',1,0,'',471,0,0),(21628,4878,6,123,0,'83.45.103.111',1163197548,1,0,1,1,1,0,'','','Wilson,\n\n[quote:12vrpl1t]Latitud = 0 grados 4 Minutos 40.8 Segundos S (Sur) \nLongitud = 78°27\'47.69\"W \n\nComo paso estos valores a decimal que es lo que tienes en tu ejemplo [/quote:12vrpl1t]\n\nMírate el API de google.  Si aún así no lo consigues, avísame que te digo como <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'gA==','12vrpl1t',1,0,'',123,0,0),(21629,4882,3,2,0,'87.218.146.15',1163198465,1,0,1,1,1,1,'','','Luis,\n\nYou may need to set oTree:nDlgCode := DLGC_WANTALLKEYS','',0,'gA==','yayc9g3e',1,0,'',2,0,0),(21630,4863,6,109,0,'200.52.196.1',1163199426,1,0,1,1,1,0,'','','Sr. Linares\n\n   Por su atencion muchas gracias.','',0,'gA==','1t2pwhym',1,0,'',109,0,0),(21631,4878,6,179,0,'200.125.135.241',1163200558,1,0,1,1,1,1,'','','gracias Jose Luis\n\nya he revisado pero no doy....\n\nSaludos','',0,'gA==','3va94adj',1,0,'',179,0,0),(21632,4895,6,2,0,'87.218.146.15',1163201488,1,0,1,1,1,1,'','','Vladimir,\n\nPuedes usar el propio debugger de Harbour. Compila tus PRGs con /b y aparece automaticamente al arrancar la aplicación.','',0,'gA==','3bopwwa5',1,0,'',2,0,0),(21633,4854,6,96,0,'200.126.179.22',1163203309,1,0,1,1,1,0,'','ADO + FWH + DBF + SQL II','Gracias por la ayuda, me podrían decir como veo los metodos y propiedades para trabajar con ADO en FHW?, \n\nGracias.\n\nAriel,','',0,'gA==','1kujdszc',1,0,'',96,0,0),(21634,4896,6,389,0,'148.235.143.253',1163205654,1,0,1,1,1,0,'','para manuramos clase tgsay','Hola manu..\n\ncreo que hay un bug en tu clase.. no se refrescan los controles cuando se utiliza el metodo refresh ejemplo.. \n\nREDEFINE GSAY ::aSayGet[ 8] VAR ::aVarsTpv[ 8] ID 770 OF ::oDlgMain PICTURE \'99,999,999.99\' RIGHT;\n           FONT ::oFontTot BOX;\n           COLOR RGB( 0, 215, 0 ), RGB( 0, 0, 0 )\n\nSi actualizo la variable ::aVarsTpv[8]:= \"001\" y despues el objeto ::aSayGet[8]:refresh(), no toma el nuevo valor..\n\nen cambio con los gets normales de FWH funciona ok..\n\nSaludos\nGABO','',0,'','32zdarxx',1,0,'',389,0,0),(21635,4876,6,138,0,'189.141.64.226',1163207644,1,0,1,1,1,1,'','','yo llevo años trabjando con el RDD ADS de (x)Harbour y funciona de maravilla.\n\nLo que tienes que hacer es irte a lapagina <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w -->, entrar en la seccion de descargas, contribuciones y descargarte la version mas reciente de xHarbour junto con el RDDADS, prueba con esa version debe de funcionar correctamente.\n\nPor alguna extraña razon, el (x)Harbour de la distribucion de FW no me funciona correctamente, pero el de la pagina de xHarbour.org si.[/list]','',0,'','384eawgc',1,0,'',138,0,0),(21636,4882,3,98,0,'70.71.111.92',1163208505,1,0,1,1,1,1,'','','Antonio:\n\n[quote=&quot;Antonio Linares&quot;:amxl3yql]You may need to set oTree:nDlgCode := DLGC_WANTALLKEYS[/quote:amxl3yql]\n\nThanks a million - that did the trick!\n\nRegards,\n\nLuis','',0,'gA==','amxl3yql',1,0,'',98,0,0),(21637,4739,3,49,0,'62.13.172.78',1163209009,1,0,1,1,1,1,'','','And if I want move the sprite with cursor key How I can make it ?','',0,'gA==','1nvxohzf',1,0,'',49,0,0),(21638,4893,6,72,0,'189.146.13.31',1163209149,1,0,1,1,1,0,'','','Las coordenadas geodesicas son muy diferentes de las coordenadas cartesianas, existe más de un método para generarlas y por lo tanto para obtener el posicionamiento global.\n\nHace álgún tiempo tuve oportunidad de participar en un proyecto... veré si encuentro algo. Tal vez sea bueno consultar algún GIS.','',0,'gA==','19qgozxb',1,0,'',72,0,0),(21639,4739,3,6,0,'82.59.188.213',1163232064,1,0,1,1,1,1,'','','[code:14l2o7o3]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    local oWnd, oBrush, oSprite\n\n    DEFINE BRUSH oBrush;\n           FILE &quot;c&#58;\\fwharbour\\bitmaps\\backgrnd\\beach&#46;bmp&quot;\n\n    DEFINE WINDOW oWnd;\n           BRUSH oBrush\n\n    oWnd&#58;bKeyDown = &#123; | nKey | MoveSprite&#40; oWnd, oSprite, nKey &#41; &#125;\n\n    @ 0, 0 BITMAP oSprite;\n           FILE &quot;c&#58;\\fwharbour\\bitmaps\\fdem5&#46;bmp&quot;;\n           PIXEL NOBORDER\n\n    oSprite&#58;lTransparent = &#46;T&#46;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MOVESPRITE&#40; oWnd, oSprite, nKey &#41;\n\n    LOCAL aWndRect &#58;= GETCLIENTRECT&#40; oWnd&#58;hWnd &#41;\n\n    LOCAL nWndWidth  &#58;= aWndRect&#91; 4 &#93; - aWndRect&#91; 2 &#93;\n    LOCAL nWndHeight &#58;= aWndRect&#91; 3 &#93; - aWndRect&#91; 1 &#93;\n\n    LOCAL nXPos, nYPos\n\n    LOCAL nXStep &#58;= 0\n    LOCAL nYStep &#58;= 0\n\n    IF nKey = VK_RIGHT; nXStep = 5; ENDIF\n    IF nKey = VK_LEFT; nXStep = -5; ENDIF\n\n    IF nKey = VK_DOWN; nYStep = 5; ENDIF\n    IF nKey = VK_UP; nYStep = -5; ENDIF\n\n    nXPos = oSprite&#58;nLeft + nXStep\n    nYPos = oSprite&#58;nTop + nYStep\n\n    IF nXPos &lt; 0\n        nXPos = 0\n        nXStep = -nXStep\n    ENDIF\n\n    IF nYPos &lt; 0\n        nYPos = 0\n        nYStep = -nYStep\n    ENDIF\n\n    IF nXPos + oSprite&#58;nWidth &gt;= nWndWidth\n        nXPos = nWndWidth - oSprite&#58;nWidth - 1\n        nXStep = -nXStep\n    ENDIF\n\n    IF nYPos + oSprite&#58;nHeight &gt; nWndHeight\n        nYPos = nWndHeight - oSprite&#58;nHeight\n        nYStep = -nYStep\n    ENDIF\n\n    oSprite&#58;Refresh&#40;&#41;\n\n    oSprite&#58;Move&#40; nYPos, nXPos, , , &#46;T&#46; &#41;\n\n    RETURN NIL[/code:14l2o7o3]\n\nEMG','',0,'AIA=','14l2o7o3',1,0,'',6,0,0),(21640,4779,5,2,0,'87.218.146.35',1163234216,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:30b4h91y][img:30b4h91y]http&#58;//img294&#46;imageshack&#46;us/img294/8681/picture1zc4&#46;png[/img:30b4h91y][/url:30b4h91y]','',0,'GA==','30b4h91y',1,0,'',2,0,0),(21641,4780,8,2,0,'87.218.146.35',1163234384,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:x70rxrwd][img:x70rxrwd]http&#58;//img294&#46;imageshack&#46;us/img294/8681/picture1zc4&#46;png[/img:x70rxrwd][/url:x70rxrwd]','',0,'GA==','x70rxrwd',1,0,'',2,0,0),(21642,4809,3,372,0,'83.118.100.14',1163234779,1,0,1,1,1,0,'','','Hi Antonio,\n\ni probably did something wrong because i get only empty strings returned for the date and time:\n\naFtpList:=oFTP:Directory(\"*.*\")\nShowArr(aFtpList)\n\nFunction ShowArr(aDirList)\n   aEval(aDirList,{|i,t| iif(Valtype(i)==\"A\",(ShowArr(i)),(msgalert(i)) ) })\nReturn (.t.)\n\nAny suggestions?\n\nRegards,\n\nJohn.','',0,'GA==','2h57yup0',1,0,'',372,0,0),(21643,4876,6,2,0,'87.218.146.35',1163234949,1,0,1,1,1,1,'','','Rene,\n\n&gt; el (x)Harbour de la distribucion de FW no me funciona correctamente,\n\nAqui funciona bien. En que te falla ?','',0,'GA==','2zad33ar',1,0,'',2,0,0),(21644,4809,3,2,0,'87.218.146.15',1163237002,1,0,1,1,1,1,'','','John,\n\nPlease try this:\n\naFtpList:=oFTP:Directory(\"*.*\") \nMsgInfo( Len( aFtpList[ 1 ][ 3 ] ) )\n\nand let me know what you get, thanks','',0,'','2lraetcy',1,0,'',2,0,0),(21645,4883,7,2,0,'87.218.146.15',1163237219,1,0,1,1,1,1,'','','Pedro,\n\n&gt; En este caso aparece un Alert con este texto: Error code: 0 loading 0 \n\nHas reemplazado \"TuDLL.dll\" por el nombre \"PRINTERAPI.dll\" ?\n\n&gt; printerAPI.lib(PRINTERAPI.dll) : fatal error LNK1112: module machine type \'THUMB \n\' conflicts with target machine type \'ARM\'\n\nEsa librería no es para Pocket PC.\n\nPuedes generar una librería a partir de la DLL, haciendo:\n\nimplib.exe PRINTERAPI.lib PRINTERAPI.dll\n\nY prueba a enlazar con esa PRINTERAPI.lib nueva','',0,'','1xxb3z39',1,0,'',2,0,0),(21646,4897,6,180,0,'83.34.56.166',1163238406,1,0,1,1,1,0,'','ACTIVEX PDF y fusión de datos','Con ACTIVEX PDF logro visualizar por pantalla un formulario PDF con campos editables para rellenar. Sería un gran avance poder rellenar esos campos automáticamente con los datos contenidos en un registro de una BD. ¿Es posible esto? Alguien sabe cómo se hace o existe documentación al respecto?\n\nUn saludo,\nManuel Aranda\n\n-------------------------------------------------\nFWH 2.8 Octubre/2006','',0,'','3afmbuna',1,0,'',180,0,0),(21647,4883,7,106,0,'85.34.123.173',1163240771,1,0,0,1,1,1,'','','en este ejemplo, reeemplacé TuDLL.dll con Mobitron.Devices.dll\ny donde dice ... tu còdigo, puse mis lineas de codigo.\n\nlocal hDLL := LoadLibrary( \"TuDLL.dll\" )\n\n... tu código\n\nFreeLibrary( hDLL ) \n\n\n\n\n\n--&gt; con implib\n\nC:\\lavwin\\teve&gt;\\BCC55\\bin\\implib.exe Mobitron.devices.lib Mobitron.Devices.dll\n\nBorland Implib Version 3.0.22 Copyright (c) 1991, 2000 Inprise Corporation\nWarning Mobitron.Devices.dll: no exports\n\n\n-----------------------------------------\n\nComo te dije antes, con todo lo que me mandò el fabricante tengo dos carpetas:\n\n\nSDK\\Microsoft Embedded Visual C++ Version\ny\nSDK\\Microsoft Visual Studio .Net Version\n\n\n\nsupongo que tengo que usar la primera.\nen esa tengo las .lib que me dan ese error.\n\n\n-------------------------\n\nEsto es parte de un index que tengo en la primera carpeta\n\nINDEX\n\n\nThis document shows constitution of SDK CD. SDK CD has three folders that contains API’ documents, library files, header files and sample sources.\n\n-	Documents : contains API’ document and SDK reference note.\n-	Sample Codes : contains several sample code to help developing of MDT-9000 series.\n-	SDK Files : constituted of three folders. Each folder contain header files, lib files and dll files. \nn	inc : contains header files.\nn	lib : contains lib files.\nn	target : contains dll files.\n  \nDetail Explanation of Each Folder\n\nDocuments folder has two pdf files. \n\n“MDT-9000 Series API Reference.PDF” file is MDP-9000 series SDK API. The API describes each c++ function and that usage. \n\n“MDT-9000 Series SDK Release Note.PDF” file introduce the overview of MDT-9000 SDK, and describes the usage of SDK.\n\n\n(NOTA: en realidad la carpeta con las dll no està, estan solo inc y lib, yo usè las dll de la carpeta de visual studio .NET)','',0,'','2mub8rjh',1,0,'',106,0,0),(21648,4779,5,2,0,'87.218.146.35',1163241015,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3da0m43s][img:3da0m43s]http&#58;//img96&#46;imageshack&#46;us/img96/5759/picture1ex6&#46;png[/img:3da0m43s][/url:3da0m43s]','',0,'GA==','3da0m43s',1,0,'',2,0,0),(21649,4780,8,2,0,'87.218.146.35',1163241142,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:bsna4d1n][img:bsna4d1n]http&#58;//img96&#46;imageshack&#46;us/img96/5759/picture1ex6&#46;png[/img:bsna4d1n][/url:bsna4d1n]','',0,'GA==','bsna4d1n',1,0,'',2,0,0),(21650,4898,6,180,0,'83.34.56.166',1163247862,1,0,1,1,1,0,'','Hojear PDF asociado a Base de datos','Con el siguiente código puedo  visualizar un archivo pdf asociado a un listbox. La idea es que al cambiar de registro se refresque el pdf, pero no lo consigo. Si activo oPdf con bchange en vez del ON INIT de ACTIVATE DIALOG se produce un cuelgue. ¿Alguna idea?\n[code:2f8jk7tz]***************************\nSTATIC FUNCTION VerPdf&#40;&#41;\n***************************\nLocal oDlg\nLocal oLbx\nLocal oPdf\nLocal cPdf&#58;=ALLTRIM&#40;DOCU-&gt;Ubicado&#41;\n//\nDEFINE DIALOG oDlg RESOURCE &quot;IMAGEN&quot;\n\nREDEFINE LISTBOX oLbx ;\n            FIELDS ;\n            &quot; &quot;+DOCU-&gt;Concepto+&quot; &quot;,;\n            &quot; &quot;+DOCU-&gt;Ubicado+&quot; &quot;;\n            FIELDSIZES 240,240 ;\n            HEADERS &quot;Descripción del documento&quot;,&quot;Ubicación del documento&quot;&#41;;\n            ID 509\n            OF oDlg\n\n\nREDEFINE ACTIVEX oPdf ID 800 OF oDlg PROGID &quot;AcroPDF&#46;PDF&#46;1&quot;\n\n//oLbx&#58;bChange&#58;= &#123;|| cFoto&#58;=ALLTRIM&#40;DOCU-&gt;Ubicado&#41;,PonPdf&#40;oPdf,cPdf,oDlg&#41; &#125;\n\nACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT &#40;oPdf&#58;Do&#40; &quot;LoadFile&quot;, cPdf &#41;,oPdf&#58;Do&#40; &quot;SetCurrentPage&quot;, 1 &#41;  &#41;\n//\noPdf&#58; End&#40;&#41;\n//\nRETURN NIL\n//\n****************************************\nSTATIC FUNCTION PonPdf&#40;oPdf,cPdf,oDlg&#41;\n****************************************\n//\noPdf&#58;Do&#40; &quot;LoadFile&quot;, cPdf &#41;\noPdf&#58;Do&#40; &quot;SetCurrentPage&quot;, 1 &#41;\noPdf&#58;Refresh&#40;&#41;\n//\nRETURN NIL\n//\n\n[/code:2f8jk7tz]','',0,'AIA=','2f8jk7tz',1,0,'',180,0,0),(21651,4739,3,49,0,'62.13.172.78',1163252040,1,0,1,1,1,1,'','','thanks Enrico !!!','',0,'AIA=','11wl4zua',1,0,'',49,0,0),(21652,4827,2,228,0,'190.12.135.32',1163252417,1,0,1,1,1,1,'','Amigo...','Intenta quitando el caption....\n\nEspero te sirva','',0,'AIA=','2y9tye5k',1,0,'',228,0,0),(21653,4779,5,49,0,'62.13.172.78',1163252607,1,0,1,1,1,1,'','','it\'s  wonderfull than windows graphics','',0,'AIA=','129rue11',1,0,'',49,0,0),(21654,4739,3,49,0,'62.13.172.78',1163252948,1,0,1,1,1,1,'','','And if I want press space key and fire another small sprite ?\nand ihow I make if I want  make collision on another sprite \nthink about space invaders....','',0,'AIA=','2u1acux3',1,0,'',49,0,0),(21655,4899,3,148,0,'196.205.220.211',1163252974,1,0,1,1,1,0,'','txbrowse from code','I am trying to build a dialog of txbrowse and I don\'t know what is missing ?\n\n[code:2n2ygyld]\nSTATIC FUNCTION NewDialog&#40; oWnd &#41;\n\n   local oDlg, oBrw, oCol\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;Customer browse &quot;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   ACTIVATE DIALOG oDlg\n\nRETURN NIL\n[/code:2n2ygyld]','',0,'AIA=','2n2ygyld',1,0,'',148,0,0),(21656,4900,3,267,0,'200.208.238.2',1163257227,1,0,1,1,1,1,'','AdsSeekLast function','Hi,\n\nHow I can use the AdsSeekLast function with FWH/xHarbour?','',0,'AIA=','1je3arut',1,0,'',267,0,0),(21657,4899,3,2,0,'87.218.146.35',1163258243,1,0,1,1,1,1,'','','[code:we5qkja9]\n\nSTATIC FUNCTION NewDialog&#40; oWnd &#41;\n\n   local oDlg, oBrw, oCol\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;Customer browse &quot;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT oBrw &#58;= BuildBrowse&#40; oDlg &#41;\n\nRETURN NIL \n\nfunction BuildBrowse&#40; oWnd &#41;\n   \n   local oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\nreturn oBrw\n[/code:we5qkja9]','',0,'AIA=','we5qkja9',1,0,'',2,0,0),(21658,4809,3,372,0,'83.118.100.14',1163258741,1,0,1,1,1,0,'','','Antonio,\n\nit returns an 8, but i can\'t relate that to a file present...\n\nRegards,\n\nJohn.','',0,'AIA=','2kmfk3f8',1,0,'',372,0,0),(21659,4878,6,123,0,'83.53.64.171',1163261526,1,0,1,1,1,0,'','','Wilson:\n\nUna manera de hacerlo (hay varias) es colocar un \'listener\' para que en cada movimento de la ventana del navegador de indique la posición geodésica en centesimal.  Sigue este enlace [url]http://www.google.com/apis/maps/documentation/#Geocoding_Examples\n[/url].  No obstante, estoy preparando otro ejemplo con más \'cosas\', tales como puntos de interés, etiquetas, trazas de rutas, etc...\n\nSaludos,\nJosé Luis Capel\n<!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->','',0,'','2xlwkidm',1,0,'',123,0,0),(21660,4901,6,838,0,'80.59.225.15',1163268380,1,0,1,1,1,0,'','Error en Database','Hola amigos\n\nA que puede ser debido el error:\n****************************\nApplication\n===========\n   Path and name: C:\\mocwin\\GESPAQ.EXE (32 bits)\n   Size:   772,608 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 11/11/06, 19:01:36\n   Error description: Error BASE/44  Assigned value is wrong class: TDATABASE:CALIAS\n   Args:\n     [   1] = C   PROPIE\n\nStack Calls\n===========\n   Called from:  =&gt; TDATABASE:_CALIAS(0)\n   Called from:  =&gt; TDATABASE:NEW(0)\n   Called from: C:\\fuentes\\harbour\\mocwin2006\\PRG\\empresa.prg =&gt; EMPRESA(41)\n********************************************\n\nEn la linea 45 a la que hace referencia es:\n\n   dbUseArea(.T.,,cUbica+\"\\PROPIE\",,.T.)\n   propie-&gt;(Ordsetfocus(\"Codigo\"))\n   propie-&gt;(Dbgotop())\n   Database Publicas:oDbfprop  &lt;= Esta es la linea 41\n\nEsto funcionaba en fivewin.\n\nUn saludo\n\nJose Luis','',0,'','2mzwlbb6',1,0,'',838,0,0),(21661,4897,6,496,0,'200.107.36.176',1163268481,1,0,1,1,1,0,'','','Hola Manuel\n\nNo sé exactamente cómo funciona el activeX PDF, pero te puedo dar una pista que espero te funcione.\n\nComo sabes al crear el PDF con campos editables se crea un archivo similar de extensión FDF (Forms Data Format) qe es el que guarda los nombres de los campos y su contenido. Entonces el truco está en acceder a este archivo con funciones de bajo nivel y modificar sus datos. Y eso sería todo.\n\nA continuación te muestro el código que hace esto pero en PHP (lo encontré en Internet), con el que te puedes guiar, pasarlo  a Harbour y probar:\n\n\n\n&lt;?php\n// -----------------------------------------------------------------------------------------------\n// Class:		PHP2PDF\n// Subject:	Incrustar varibles de PHP en formularios PDF\n// Mail:      <!-- e --><a href=\"mailto:arturo@pinrel.com\">arturo@pinrel.com</a><!-- e -->\n// Version:   1.0\n// Update:    2004-01-20\n// -----------------------------------------------------------------------------------------------\n\nclass PHP2PDF\n{\n	var $matriz;\n	\n	function Push ($campo, $valor)\n	{\n		$this-&gt;matriz[$campo]=$valor;\n	}\n	\n	function Make ($FicheroPDF, $FicheroFDF)\n	{\n		$buscar = array(\'\\\\\', \'(\', \')\');\n		$reemplazar = array(\'\\\\\\\\\', \'\\(\', \'\\)\');\n		$fdf = \"%FDF-1.2\\n%‚„œ”\\n1 0 obj \\n&lt;&lt; /FDF &lt;&lt; /Fields [\\n\"; \n		foreach ($this-&gt;matriz as $campo =&gt; $valor)\n		{\n			$campo_bueno = str_replace($buscar, $reemplazar, $campo);\n			$valor_bueno = str_replace($buscar, $reemplazar, $valor);\n			$fdf .= \"&lt;&lt; /V ($valor_bueno)/T ($campo_bueno) &gt;&gt; \\n\";\n		}\n		$fdf .= \"]\\n/F ($FicheroPDF) &gt;&gt; &gt;&gt;\\nendobj\\ntrailer\\n&lt;&lt;\\n/Root 1 0 R \\n\\n&gt;&gt;\\n%%EOF\";\n		// Genera el Fichero de Intercambio de datos FDF\n		$f_out=fopen($FicheroFDF,\"w\");\n		fputs($f_out, $fdf);\n		fclose($f_out);\n		// Salta al fichero PDF\n		header(\"Location:$FicheroPDF\");\n	}\n} // Fin de la Clase\n?&gt;\n\n\nEspero que te sirva el dato . También me interesa el tema.\nSuerte y un Saludo\n\n\nMarcelo Jingo','',0,'','1hv4188w',1,1163270807,'',496,3,0),(21662,4897,6,180,0,'83.34.56.166',1163269062,1,0,1,1,1,0,'','','Gracias, sjingo\n\nYa es algo por donde empezar. Me pongo manos a la obra y ya contaré.\n\nUn saludo,\nManuel','',0,'','2t15mx3v',1,0,'',180,0,0),(21663,4901,6,519,0,'83.32.149.205',1163269253,1,0,1,1,1,0,'','','Como creas el objeto Database  ?','',0,'','1i0b9atr',1,0,'',519,0,0),(21664,4902,6,104,0,'201.58.82.203',1163270438,1,0,1,1,1,0,'','Como gravar uma imagem usando freeimage.dll','Olá, \n\nÉ possível, usando FREEIMAGE.DLL capturar a imagem que esta em uma determinada janela (dialog/window) e gravá-la no formato .JPG ?\n\nObrigado,\n\nRossine.','',0,'','1nycgucx',1,0,'',104,0,0),(21665,4739,3,104,0,'201.58.82.203',1163271295,1,0,1,1,1,0,'','','Hi Enrico,\n\nIt is possible, using FREEIMAGE.DLL capture the image that this in a determined window (dialog/window) and record-her in the format. JPG?  \n\nExcuse me.  I am using a translator  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','1smwerrp',1,0,'',104,0,0),(21666,4875,20,29,0,'88.149.161.130',1163271396,1,0,1,1,1,0,'','','Arghh !! Hai ragione. Devo cercare subito un oculista !!!\n\nGrazie\n\nSaluti\n\nMarco','',0,'','3gd6who7',1,0,'',29,0,0),(21667,4899,3,148,0,'196.205.220.211',1163272841,1,0,1,1,1,0,'','','How can I fill the dialog with the columns of txbrowse ?','',0,'','3agnwldh',1,0,'',148,0,0),(21668,4899,3,303,0,'72.199.41.171',1163273707,1,0,1,1,1,0,'','','Try oDlg:oClient := oBrw\n\nJames','',0,'','bljy3wwq',1,0,'',303,0,0),(21669,4899,3,148,0,'196.205.220.211',1163275308,1,0,1,1,1,0,'','','No Not work I tried it before . I think the code should be like this . I mean BuildBrowse does not know nothing about oWnd.\n\n[code:31nwqqny]\nSTATIC FUNCTION NewDialog&#40; oWnd &#41; \n\n   local oDlg, oBrw, oCol \n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;Customer browse &quot; \n\n   ACTIVATE DIALOG oDlg ; \n      ON INIT oBrw &#58;= BuildBrowse&#40; oDlg &#41; \n\nRETURN NIL \n\nfunction BuildBrowse&#40; oDlg &#41; \n    \n   local oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n\n   oBrw&#58;CreateFromCode&#40;&#41; \n   oDlg&#58;oClient&#58;=oBrw\n\nreturn oBrw \n\n\n\n[/code:31nwqqny]','',0,'AIA=','31nwqqny',1,0,'',148,0,0),(21670,4854,6,496,0,'200.107.36.176',1163276340,1,0,1,1,1,0,'','','El siguiente link puede serte de gran ayuda \n\n[url:1n99odyj]http&#58;//www&#46;aspfacil&#46;com/articulos/040401&#46;asp[/url:1n99odyj]\n\n\nUn saludo\n\nMarcelo Jingo','',0,'EA==','1n99odyj',1,0,'',496,0,0),(21671,4878,6,413,0,'217.125.9.228',1163277263,1,0,1,1,1,0,'','','JL excelente trabajo, deje el viernes una consulta al respecto puesto que lo localice antes de que pusieras el mensaje en este foro en tu pagina y por supuesto me alegre infinitamente puesto que de cara a mi trabajo esto aporta unas ventajas exceletes. Estoy estudiando el api para implementar cosas que se me van ocurriendo entre ellas la de capturar la imagen por ello la consulta que hice, se te ocurre alguna forma de hacerlo?. Tambien el tema de las coordenadas es algo que tengo en mente, aunque como sabemos las coordenadas de las urbanizaciones del termino, no me planteaba mucho trabajo, pero si la forma de localizar el punto exacto en los casos de siturar un accidente de trafico, una averia viaria o cualquier tema relacionado con posiciones de nuestro término. No se si hay alguna forma de situar una cruz en el centro o un sistema de coordeadas para localizar la latitud y la longitud, segun comentas parece que sí. \nDesde aqui mi sincero reconocimiento a este trabajo que aunque comentas que es heradado del foxpro, siempre es de agradecer tener estas herramientas para añadir a nuestros diseños.\n\nGracias.','',0,'EA==','4q2brobz',1,0,'',413,0,0),(21672,4901,6,838,0,'80.59.225.15',1163282462,1,0,1,1,1,0,'','','Como lo utilizo en muchas partes del programa, lo declaro como publico en el prg principal\n\nPublicas:=miclase()\n\nCLASS miclase()\nDATA oDbfProp\nENDCLASS\n\nluego en el prg en cuestion declaro memvar la variable Publicas\n\nUn Saludo\n\nJose Luis','',0,'EA==','prc8r79v',1,0,'',838,0,0),(21673,4901,6,2,0,'87.218.146.15',1163287725,1,0,1,1,1,1,'','','Jose Luis,\n\nEn source\\classes\\database.prg modifica esta línea:\n\n   DATA   cAlias, cFile, cDriver AS String INIT \"\"\n\npor\n\n   DATA   cAlias, cFile, cDriver','',0,'EA==','36nbn9uy',1,0,'',2,0,0),(21674,4883,7,2,0,'87.218.146.15',1163288245,1,0,1,1,1,1,'','','Pedro,\n\nSi la DLL necesita de .NET y si la lib no es para Pocket PC (procesador ARM), necesitarás contactar con el fabricante para que te proporcione una DLL que no sea para .NET ó una LIB que sea para Pocket PC.','',0,'EA==','16814gb6',1,0,'',2,0,0),(21675,4901,6,838,0,'80.59.225.15',1163290751,1,0,1,1,1,0,'','','Joer Antonio, es que los maestros no duermen?\nSiempre estás al pié del cañón.\n\nBueno he hecho el cambio y sigue igual.\nO es que hay que recompilar alguna libreria o algo?\n\nUn saludo\n\nJose Luis','',0,'EA==','qgu6dwos',1,0,'',838,0,0),(21676,4875,20,49,0,'62.13.172.78',1163292271,1,0,1,1,1,1,'','','marco ti avevo scritto in privato ultimamente ....','',0,'EA==','1m7pp0ut',1,0,'',49,0,0),(21677,4900,3,98,0,'70.71.111.92',1163294079,1,0,1,1,1,1,'','Re: AdsSeekLast function','Vilian\n\n[quote=&quot;vilian&quot;:1gsotyqr]How I can use the AdsSeekLast function with FWH/xHarbour?[/quote:1gsotyqr]\nMost of ADS\' functions are integrated at the RDD level, so just use\n\ndbSeek( xSeek, lSoftSeek, lLast )\n\nregardless of the RDD you use (check the Clipper 5.3 NG for details).\nor \n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/xhdn/index.asp?page=ref_detail.asp&amp;src=xhb&amp;id=569&amp;show_i=20&amp;show_sub=3\">http://www.xharbour.com/xhdn/index.asp? ... show_sub=3</a><!-- m -->\n\nIn you case, just pass a TRUE for the 3rd param.','',0,'gA==','1gsotyqr',1,0,'',98,0,0),(21678,4903,6,73,0,'200.66.32.97',1163297474,1,0,1,1,1,0,'','error en toolbar','ha alguien le ha salido este error en la toolbar?\nError: Unresolved external \'_HB_FUN___DBGENTRY\'\nsalu2\npaco','',0,'gA==','374jfxpz',1,0,'',73,0,0),(21679,4779,5,397,0,'201.13.91.225',1163304986,1,0,1,0,1,1,'','','Hi, Antonio\n\nYou have tests in a Mac machine with the Tiger version or/and Mac OS on Virtual PC.\n\nI have a PearPC with Mac OS X Panther, works fine in this version too?\n\nthanks','',0,'gA==','18v37pw1',1,0,'',397,0,0),(21680,4779,5,2,0,'87.218.146.15',1163312957,1,0,1,1,1,1,'','','Rochinha,\n\nWe use a Mac Mini (powerpc) for development. \n\nWe have also done some tests on vmware and standard PC, to check intel compatibility.\n\nIt works nicely on both powerpc and intel.\n\nPearPC runs very slow.','',0,'gA==','1d2c6yb1',1,0,'',2,0,0),(21681,4901,6,2,0,'87.218.146.15',1163313412,1,0,1,1,1,1,'','','Jose Luis,\n\nSe duerme de vez en cuando <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nTienes que compilar database.prg después de ese cambio y o bien enlazas database.obj en tu aplicación ó lo reemplazas en fivehc.lib','',0,'gA==','3pbtzszs',1,0,'',2,0,0),(21682,4903,6,2,0,'87.218.146.15',1163313519,1,0,1,1,1,1,'','','Has compilado algún PRG con /b y está llamando al debugger de Harbour.\n\nO bien enlazas debug.lib ó quitas el /b.','',0,'gA==','1fpk3iqr',1,0,'',2,0,0),(21683,4739,3,707,0,'222.124.20.50',1163318824,1,0,1,1,1,0,'','','Hi Enrico.\n\nFor the future the game is the good way for all clipper needed.\nJust move the image object, click object, show object, hide object, rotate, scale and more. Play the sound and video file.\n\nThink\'s the object are : image, sound and video\n\nCan you make the lib for this ?\n\nAnd I will buy the lib from you.\n\nThank\'s\nBest Regard\nAreang','',0,'gA==','521sq7j5',1,0,'',707,0,0),(21684,4901,6,838,0,'80.59.225.15',1163321046,1,0,1,1,1,0,'','','Perfecto Antonio.\n\nHe hecho lo mismo con bBof, ya que me daba el mismo error\n\nSaludos\n\nJose Luis','',0,'gA==','23q17bh6',1,0,'',838,0,0),(21685,4757,3,54,0,'189.132.114.238',1163322926,1,0,1,1,1,1,'','','George,\n\nPodrias colgar un ejemplo de uso?\n\nGracias de antemano','',0,'gA==','1jli8fsl',1,0,'',54,0,0),(21686,4904,6,838,0,'80.59.225.15',1163327733,1,0,1,1,1,0,'','Transparencias','Hola amigos\n\nDos cuestiones:\n\nPrimera pregunta:\n\nA fin de no utilizar clases ajenas en éste tema (vengo utilizando ssay), he leido que para hacer transparentes says de un dialogo primero hay que hacer DEFINE Brush oBrush, luego cuando se define el dialogo hay que poner TRANSPARENT oBrush, y ya todos los says son transparentes.\nBueno pues a mi me funciona a medias. Efectivamente son transparentes pero no con el fondo que le tocaría en ese momento sino con el fondo de otra parte de la pantalla. No me explico?\nOs pongo una imagen\n\n<!-- m --><a class=\"postlink\" href=\"http://img182.imageshack.us/my.php?image=emprejy6.png\">http://img182.imageshack.us/my.php?image=emprejy6.png</a><!-- m -->\n\nSegunda pregunta:\n\nQuiero utilizar para editar recursos pellesc, pero cuando abro un .RC, me lo presenta en modo texto y no se como ponerlo en visualización como Worshop para ver dialogos, bmps, etc.\n\nUna ayuda en los dos temas plis.\n\nSaludos\n\nJose Luis','',0,'gA==','2iu7m4se',1,0,'',838,0,0),(21687,4904,6,2,0,'87.218.146.35',1163335364,1,0,1,1,1,1,'','','Jose Luis,\n\nEn source\\classes\\control.prg método Colors() tienes un ejemplo de como hay que llamar a SetBrushOrgEx() y a FillRect() para rellenar el fondo correctamente.','',0,'gA==','2m3skzq3',1,0,'',2,0,0),(21688,4757,3,53,0,'189.139.18.161',1163341030,1,0,1,1,1,1,'','','Timm or George:\n\nCould you please upload a little sample using image2pdf.dll ?\n\nRegards, Armando','',0,'gA==','1f9azp7f',1,0,'',53,0,0),(21689,4904,6,53,0,'189.139.18.161',1163341348,1,0,1,1,1,1,'','','José Luis:\n\nPara usar PelleC, lo más prudente es que te olvides de los ficheros .RC y te enfoques a trabajar con los ficheros .RES, PellesC se comporta EXCELENTE con este tipo de ficheros y sin problemas, ah y olvidate de reusar WS.\n\nDesde luego debes incluir el fichero .RES en tu aplicación en lugar de los ficheros .RC\n\nSaludos, Armando','',0,'gA==','19g041xi',1,0,'',53,0,0),(21690,4905,1,27,0,'62.174.195.220',1163344764,1,0,1,1,1,1,'','Totals at 45 degrees in a report','I have a report with a lot of columns and the totals overwrite each other.\nIs there any way to use a different Font for the totals to write them at 45 %.','',0,'gA==','31wsyios',1,0,'',27,0,0),(21691,4904,6,838,0,'80.59.225.15',1163344974,1,0,1,1,1,0,'','','Gracias Armando, así lo haré\n\nReferente a los says transparentes, he visto que sí, que se hacen transparentes cuando en lugar de utilizar el bmp desde resources, lo utilizo desde File, aunque solo los say, si utilizo Group o algún otro tipo no.\n\nSaludos\n\nJose Luis','',0,'gA==','2137bc0f',1,0,'',838,0,0),(21692,4906,6,644,0,'190.49.68.30',1163345495,1,0,1,1,1,0,'','problemas con bchange en get','El bChange del control get no funciona. Estoy compilando con xharbour 0.99.60 y fwh 2.7, sin embargo con harbour lo hace perfectamente. Supongo que es un problema de la versión de xharbour o es otro motivo ?. Los demás controles funcionan bien con esta versión. Alguna idea que me pueda orientar ??? Desde ya muchisimas gracias.','',0,'gA==','2tymk7q8',1,0,'',644,0,0),(21693,4903,6,73,0,'200.66.32.97',1163349173,1,0,1,1,1,0,'','','Gracias, Antonio efectivamente quitando el /b\nPaco','',0,'gA==','2iuw5zrq',1,0,'',73,0,0),(21694,4904,6,2,0,'87.218.146.194',1163355726,1,0,1,1,1,1,'','','Jose Luis,\n\nLos GROUPs tienes que redefinirlos para que se vean transparentes tambien.','',0,'gA==','1sydyzas',1,0,'',2,0,0),(21695,4897,6,180,0,'83.34.56.166',1163365246,1,0,1,1,1,0,'','','Bueno, por si a alguno de Vds. le interesa: He conseguido, ¡¡¡¡ por fín  !!! fusionar un fichero PDF con un registro de la base de datos. Es tan simple como enviar a un fichero XML los datos de que se trate. El fichero XML tiene que tener el mismo nombre que el fichero PDF y contener los mismos nombres de campos que el fichero PDF. Después se ejecuta con WinExec el ejecutable de Acrobat seguido del fichero XML, y se produce la magia.\n\nAsí que tenemos PRUEBA.PDF\n                         PRUEBA.XML\n\n[code:207e7qna]\nLocal cFicheroXML&#58;= \'C&#58;\\MAR\\pdf\\Prueba&#46;pdf&quot;\nLocal cLugarAcrobat&#58;=&quot;C&#58;\\Archivos de programa\\Adobe\\Acrobat 7&#46;0\\Reader\\AcroRd32&#46;exe&quot;\n Winexec&#40;cLugarAcrobat+&quot; &quot;+cFicheroXML&#41;  \n[/code:207e7qna]\n\nEl fichero XML queda como sigue\n[code:207e7qna]\n&lt;?xml version=\'1&#46;0\' encoding=\'ISO-8859-1\' ?&gt;\n&lt;xfdf xmlns=\'http&#58;//ns&#46;adobe&#46;com/xfdf/\' xml&#58;space=\'preserve\'&gt;\n&lt;fields&gt;\n&lt;field name=\'nif\'&gt;\n&lt;value&gt; 23787664Y&lt;/value&gt;\n&lt;/field&gt;\n&lt;field name=\'sexo\'&gt;\n&lt;value&gt;H&lt;/value&gt;\n&lt;/field&gt;\n&lt;field name=\'apellido1\'&gt;\n&lt;value&gt;JIMENEZ         &lt;/value&gt;\n&lt;/field&gt;\n&lt;field name=\'apellido2\'&gt;\n&lt;value&gt;GONZALEZ       &lt;/value&gt;\n&lt;/field&gt;\n&lt;field name=\'nombre\'&gt;\n&lt;value&gt;ANTONIO MANUEL      &lt;/value&gt;\n&lt;/field&gt;\n&lt;field name=\'provincia\'&gt;\n&lt;value&gt;GRANADA        &lt;/value&gt;\n&lt;/field&gt;\n&lt;field name=\'telefono\'&gt;\n&lt;value&gt;958824464&lt;/value&gt;\n&lt;/field&gt;\n&lt;/fields&gt;\n&lt;f href=\'C&#58;\\MAR\\pdf\\Prueba&#46;pdf\'/&gt;\n&lt;/xfdf&gt;\n[/code:207e7qna]\n\nEso sí, lo que no he conseguido es ejecutarlo desde ACTIVEX y que no reconoce la extensión XML. Si se lanza con el fichero PDF no recoge los datos del XML. \n\nUn saludo,\nManuel Aranda','',0,'AIA=','207e7qna',1,0,'',180,0,0),(21696,4904,6,53,0,'189.139.20.228',1163368346,1,0,1,1,1,1,'','','José Luis:\n\nIntenta asignando  -1   (1 negativo) como NAME o ID de los SAY y GROUP PellesC te lo cambiará a (UNUSED)\n\nSaludos, Armando','',0,'AIA=','17py6575',1,0,'',53,0,0),(21698,4907,3,9,0,'85.60.9.48',1163397636,1,0,1,1,1,1,'','EasyBackup','Timm,\n\nI am using your program (version 1.1.2) in all my aplications satisfactoryly. Congratulation and thank.\n\nIn a new aplication, for security reason, I have not enable \"Show Target Page\" and I have declaration \"OutPutFilePath\" in backup.ini file.\n\nThere is any way I can define also in backup.ini a password?\n\nRegards','',0,'AIA=','3duinusa',1,0,'',9,0,0),(21699,4908,17,56,0,'217.251.230.5',1163399154,1,0,1,1,1,0,'','New version of BackupBuilder released!','Hello,\n\nBackupBuilder is a script driven, multilingual backup and restore tool.\nYou can call it from your applications or from the command line in order\nto give your customers the possibility to save and restore their datas.\nBackupBuilder has a lot of configuration switches so you can set it up the\nway you need it. You can define different backup tasks, the backups can\nbe password protected and you can use several path, date and time\nconstants in the scripts.\nBackupBuilder is freeware and available at <!-- w --><a class=\"postlink\" href=\"http://www.backupbuilder.com\">www.backupbuilder.com</a><!-- w -->.\n\nBeside several bugfixes I have added these features to the new version:\n- Possibility to execute an external application after backup, restore and exit.\n- The selected folder and file name can be saved in order to use them\n  automatically for the next backup.\n- After a backup or restore process is finished BackupBuilder adds the\n  section [LastBackup] respectively [LastRestore] to the ini file. \nThe sections contain the entries date, time and file.\n- New entries in the script&#058;\n  SilentMode - hides the dialog window and sets the SHOWxxx entries to NO.\n  ShowProcessPage - hides/shows the process page.\n\nLet me know if you need any additional features.\n\nBest regards, Timm.\n\n    Timm Sodtalbers\n    Sodtalbers IT\n    <!-- w --><a class=\"postlink\" href=\"http://www.backupbuilder.com\">www.backupbuilder.com</a><!-- w -->\n    <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->\n    <!-- e --><a href=\"mailto:info@reportdesigner.info\">info@reportdesigner.info</a><!-- e -->','',0,'','f9ui8f42',1,0,'',56,0,0),(21700,4779,5,2,0,'87.218.146.194',1163400531,1,0,1,1,1,1,'','','osxpro application, developed using FiveMac:\n[url=http&#58;//imageshack&#46;us:2pf6wwa1][img:2pf6wwa1]http&#58;//img93&#46;imageshack&#46;us/img93/3130/picture1kk1&#46;png[/img:2pf6wwa1][/url:2pf6wwa1]','',0,'GA==','2pf6wwa1',1,0,'',2,0,0),(21701,4780,8,2,0,'87.218.146.194',1163400985,1,0,1,1,1,1,'','','aplicación osxpro, desarrollada con FiveMac:\n\n[url=http&#58;//imageshack&#46;us:la4ola94][img:la4ola94]http&#58;//img93&#46;imageshack&#46;us/img93/3130/picture1kk1&#46;png[/img:la4ola94][/url:la4ola94]','',0,'GA==','la4ola94',1,0,'',2,0,0),(21702,4809,3,2,0,'87.218.146.30',1163402693,1,0,1,1,1,1,'','','John, \n\nIt looks like there is something different from a number there.\nPlease try this: \n[code:1ayofiel]\naFtpList&#58;=oFTP&#58;Directory&#40;&quot;*&#46;*&quot;&#41; \nfor n = 1 to Len&#40; aFtpList&#91; 1 &#93;&#91; 3 &#93; &#41;\n   MsgInfo&#40; Asc&#40; SubStr&#40; aFtpList&#91; 1 &#93;&#91; 3 &#93;, n, 1 &#41; &#41; &#41;\nnext\n[/code:1ayofiel]\nand let me know what you get, thanks','',0,'AIA=','1ayofiel',1,0,'',2,0,0),(21703,4904,6,838,0,'80.34.222.112',1163406732,1,0,1,1,1,0,'','','Esto ya lo dejo por imposible. no soy capaz de hacer transparente el group box, ni declarándolo ni ponendolo como -1\n\nSaludos\n\nJose Luis','',0,'AIA=','1gz60jmg',1,0,'',838,0,0),(21704,4904,6,2,0,'87.218.146.30',1163407963,1,0,1,1,1,1,'','','Jose Luis,\n\nRevisa samples\\TestFldB.prg\n\n[url=http&#58;//imageshack&#46;us:1o5e6mxr][img:1o5e6mxr]http&#58;//img167&#46;imageshack&#46;us/img167/5000/image1pj0&#46;png[/img:1o5e6mxr][/url:1o5e6mxr]','',0,'GA==','1o5e6mxr',1,0,'',2,0,0),(21705,4902,6,2,0,'87.218.146.30',1163408471,1,0,1,1,1,1,'','','Rossine,\n\nPlease review Class TImage Method SaveImage( cFile, nFormat, nQuality ) source code.\n\n   //   0 -&gt; Bmp\n   //   2 -&gt; Jpg\n   //  13 -&gt; Png','',0,'GA==','1gajqycq',1,0,'',2,0,0),(21706,4909,6,449,0,'212.64.224.241',1163409223,1,0,1,1,1,1,'','Listbox multiselect. Cambio de estilo.','Hola,\n\nEs posible cambiar en tiempo de ejecucion el estilo de un listbox ? Deseo pasar de multiselect a normal.\n\nEn la clase se define nStyle := nOr( ..., If( lMulti, LBS_MULTIPLESEL, 0 )...)\n\nGracias','',0,'GA==','2381vu76',1,0,'',449,0,0),(21707,4888,3,2,0,'87.218.146.38',1163410134,1,0,1,1,1,1,'','','Ramesh,\n[code:keztvzom]\nFUNCTION Create&#40;lCreate, lSave, lGo, oGet1 &#41; \n\nlSave   &#58;= &#46;T&#46; \nlCreate &#58;= &#46;F&#46; \nlGo     &#58;= &#46;T&#46; \n\noGet1&#58;PostMsg&#40; WM_LBUTTONDOWN &#41;\noGet1&#58;PostMsg&#40; WM_LBUTTONUP &#41;\n\nRETURN nil \n[/code:keztvzom]','',0,'AIA=','keztvzom',1,0,'',2,0,0),(21708,4894,3,2,0,'87.218.146.38',1163410783,1,0,1,1,1,1,'','','Birol,\n\nxharbour creates such log file when there is some unreleased memory in your application. \n\nYou should try it with the most recent xharbour build 0.99.61','',0,'AIA=','1qgrqgmo',1,0,'',2,0,0),(21709,4909,6,2,0,'87.218.146.38',1163411112,1,0,1,1,1,1,'','','Carles,\n\nPrueba con:\n\nSetWindowLong( oListBox:hWnd, GWL_STYLE, nStyle )','',0,'AIA=','2q34xv43',1,0,'',2,0,0),(21710,4883,7,106,0,'85.34.123.173',1163411996,1,0,0,1,1,0,'','','Antonio: puedo enviarte los .lib a ver si tu los puedes hacer funcionar? porque de repente soy yo que no logra hacerlo funcionar, capaz que me falta hacer algo, no lo se.','',0,'AIA=','23172kah',1,0,'',106,0,0),(21711,4909,6,449,0,'212.64.224.241',1163412155,1,0,1,1,1,1,'','','Hola Antonio,\n\nLa idea parece buena, pero no funciona  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> . Ejemplo:\n\n[code:2vr11j5m]#include &quot;fivewin&#46;ch&quot;\n\nSTATIC oWnd, oLbx\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oBar\n   LOCAL aItems &#58;= &#123; \'Primero\', \'Segundo\', \'Tercero\' &#125;\n   LOCAL cVar   &#58;= \'\'\n\n   DEFINE WINDOW oWnd\n\n      DEFINE BUTTONBAR oBar OF oWnd\n      DEFINE BUTTON OF oBar ACTION   TestStyle&#40;&#41;\n\n      @50, 50 LISTBOX oLbx VAR cVar ITEMS aItems PIXEL SIZE 100, 100 OF oWnd\n\n   ACTIVATE WINDOW oWnd\n\nRETU &#46;T&#46;\n\n/*\n * Window field offsets for GetWindowLong&#40;&#41;\n */\n\n#define GWL_WNDPROC         &#40;-4&#41;\n#define GWL_HINSTANCE       &#40;-6&#41;\n#define GWL_HWNDPARENT      &#40;-8&#41;\n#define GWL_STYLE           &#40;-16&#41;\n#define GWL_EXSTYLE         &#40;-20&#41;\n#define GWL_USERDATA        &#40;-21&#41;\n#define GWL_ID              &#40;-12&#41;\n\nSTATIC FUNCTION TestStyle&#40;&#41;\n\n LOCAL nStyle &#58;= nOr&#40; GetWindowLong&#40; oLbx&#58;hWnd, GWL_STYLE &#41;, LBS_MULTIPLESEL &#41;\n\n SetWindowLong&#40; oLbx&#58;hWnd, GWL_STYLE, nStyle &#41;\n\nRETU NIL[/code:2vr11j5m]\n\nAlguna idea mas ?','',0,'AIA=','2vr11j5m',1,0,'',449,0,0),(21713,4906,6,2,0,'87.218.146.38',1163412851,1,0,1,1,1,1,'','','Horacio,\n\nLa Clase TGet de Harbour y xharbour no son iguales, de ahí la diferencia de comportamiento.\n\nPuedes mostrarnos un ejemplo de lo que estás haciendo ? gracias,','',0,'AIA=','3lv0wtml',1,0,'',2,0,0),(21714,4878,6,456,0,'62.43.194.117',1163413283,1,0,1,1,1,1,'','','Para convertir de formato grados a decimal \n[code:3szi25c4]FUNCTION Gra2Dec&#40;nGra,nMin,nSec&#41; //- Sur y oeste signo negativo&#46;\nRETURN nGra+&#40;nMin/60&#41;+&#40;nSec/3600&#41;[/code:3szi25c4]\n\nPuede implementarse con otro parametro y pasarle (N)orte, (S)ur, ...','',0,'AIA=','3szi25c4',1,0,'',456,0,0),(21715,4909,6,2,0,'87.218.146.38',1163413299,1,0,1,1,1,1,'','','Carles,\n\nPor lo visto no permite cambiar ese estilo dinamicamente. \n\nLa solución es reconstruir el control:\n[code:14wwp08h]\n   DEFINE BUTTON OF oBar ACTION ReBuild&#40; oWnd, oLbx, aItems, @cVar &#41; \n   &#46;&#46;&#46;\n\nfunction ReBuild&#40; oWnd, oLbx, aItems, cVar &#41;\n\n   oLbx&#58;End&#40;&#41;\n\n   @50, 50 LISTBOX oLbx VAR cVar ITEMS aItems PIXEL SIZE 100, 100 OF oWnd MULTISEL\n   \nreturn nil   \n[/code:14wwp08h]','',0,'AIA=','14wwp08h',1,0,'',2,0,0),(21716,4909,6,449,0,'212.64.224.241',1163414306,1,0,1,1,1,1,'','','Antonio,\n\nEra la ultima solucion a realizar  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nGracias','',0,'AIA=','326xuqh7',1,0,'',449,0,0),(21717,4900,3,267,0,'200.208.238.2',1163416401,1,0,1,1,1,1,'','','Hi antonio,\n\nThanks,','',0,'AIA=','270cv1qy',1,0,'',267,0,0),(21718,4878,6,179,0,'200.69.181.39',1163417876,1,0,1,1,1,1,'','','Gracias Biel\n\nSaludos','',0,'AIA=','1v3px5lu',1,0,'',179,0,0),(21719,4897,6,36,0,'200.113.56.235',1163421162,1,0,1,1,1,0,'','','Hola Manuel\n\n  Se ve interesante \n\nPodrias colocar un ejemplo pequeño funcional para poder mejor entender\n\nSaludos\nPatricio','',0,'AIA=','3s5y368t',1,0,'',36,0,0),(21720,4779,5,2,0,'87.218.146.194',1163422345,1,0,1,1,1,1,'','','inspecting a form (\".scx\") file:\n\n[url=http&#58;//imageshack&#46;us:cdsgf7t0][img:cdsgf7t0]http&#58;//img89&#46;imageshack&#46;us/img89/5871/picture1sz7&#46;png[/img:cdsgf7t0][/url:cdsgf7t0]','',0,'GA==','cdsgf7t0',1,0,'',2,0,0),(21721,4780,8,2,0,'87.218.146.194',1163422642,1,0,1,1,1,1,'','','inspeccionando un fichero form (\".scx\"):\n\n[url=http&#58;//imageshack&#46;us:351k2g17][img:351k2g17]http&#58;//img89&#46;imageshack&#46;us/img89/5871/picture1sz7&#46;png[/img:351k2g17][/url:351k2g17]','',0,'GA==','351k2g17',1,0,'',2,0,0),(21722,4893,6,185,0,'200.87.81.1',1163423642,1,0,1,1,1,0,'','','porque no te fijas en el Tdwg, esta toda la metodoligia para calcular areas de poligonos asi como primetros en funcion de coordenadas\n\nsaludos\narturo','',0,'GA==','3ulzybor',1,0,'',185,0,0),(21723,4910,6,73,0,'200.66.32.97',1163426180,1,0,1,1,1,0,'','bloqueo de sistema ...','Hasta hace poco nunca habia hecho esta prueba en mi pantalla del punto de venta.\n\nAl momento de cargarla por medio de un DIALOGO mientras no le sobreponga ninguna otra ventana externa al sistema esta se comporta bien, pero si le encimo otra y esta la arrastro por encima de la del punto de venta esta se va borrando y se me bloquea el sistema.\n\nNo he podido dar con ese error, a alguien le ha sucedido? alguna sugerencia?\n\nDejo aqui la imagen\n\n<!-- m --><a class=\"postlink\" href=\"http://img91.imageshack.us/img91/3100/bloqueook0.jpg\">http://img91.imageshack.us/img91/3100/bloqueook0.jpg</a><!-- m -->\n\nsalu2\nPaco','',0,'GA==','3ppac3kh',1,0,'',73,0,0),(21724,4902,6,104,0,'201.58.37.125',1163426426,1,0,1,1,1,0,'','','Olá Antonio, gracias por responder.\n\nO código abaixo não funciona  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n[code:2zfexcrj]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oImg\n\n    DEFINE DIALOG oDlg SIZE 700, 500\n\n    @ 2, 1 IMAGE oImg FILE &quot;FIVEWIN&#46;BMP&quot; SIZE 200, 200 ADJUST\n\n    @3, 2 say &quot;Texto Teste&quot; color rgb&#40; 255,255,255&#41;, rgb&#40;255,0,0&#41;\n\n    @ 0,  1 BUTTON &quot;Save&quot;  ACTION msgstop&#40; iif&#40; oImg&#58;SaveImage&#40; &quot;TESTE&quot;, 2 &#41;, &quot;Image saved&quot;, &quot;Image not saved&#46; Why ??&quot; &#41; &#41;\n    @ 0,  7 BUTTON &quot;Load&quot;  ACTION msgstop&#40; iif&#40; oImg&#58;LoadImage&#40; , &quot;TESTE&#46;JPG&quot; &#41;, oImg&#58;refresh&#40;&#41;, &quot;Image not load&quot; &#41; &#41;\n    @ 0, 13 BUTTON &quot;Print&quot; ACTION PRINT&#40; oImg &#41;\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    RETURN NIL\n\nSTATIC FUNCTION PRINT&#40; oImg &#41;\n\n    LOCAL oPrn\n\n    PRINT oPrn PREVIEW MODAL\n        PAGE\n            oPrn&#58;SayImage&#40; 0, 0, oImg, oPrn&#58;nHorzRes&#40;&#41;, oPrn&#58;nVertRes&#40;&#41; &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RETURN NIL\n[/code:2zfexcrj]\n\nNa verdade o que preciso é capturar a imagem de uma dialog/window e salvá-la em disco, ou seja, não só o \"FIVEWIN.BMP\" transformá-lo em \"TESTE.JPG\" e sim o &lt;FIVEWIN.BMP + SAY \"Texto Teste\"&gt;\n\nVeja abaixo como preciso que salve o TESTE.JPG:\n\n[img:2zfexcrj]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/texto&#46;png[/img:2zfexcrj]\n\nComo fazer isto funcionar ?\n\nObrigado,\n\nRossine.','',0,'CIA=','2zfexcrj',1,0,'',104,0,0),(21725,4890,6,28,0,'213.27.201.254',1163429258,1,0,1,1,1,0,'','una idea','Hola \n\nDe esta forma se puede copiar toda la ventana. \n\n[code:1jifhd2d]#include &quot;fivewin&#46;ch&quot;\nfunction main&#40;&#41;\n   local oWnd, oBrush\n   DEFINE BRUSH oBrush STYLE &quot;NULL&quot;\n   syswait&#40;0&#46;3&#41;\n   DEFINE WINDOW oWnd FROM 0, 0 TO GetSysMetrics&#40; 1 &#41;, GetSysMetrics&#40; 0 &#41; PIXEL STYLE WS_POPUP  BRUSH oBrush\n   oWnd&#58;Show&#40;&#41;\n   DibWrite&#40; &quot;screen&#46;bmp&quot;, DibFromBitmap&#40; WndBitmap&#40; oWnd&#58;hWnd &#41; &#41; &#41;\n  // para ver lo capturado  \n  ShellExecute&#40; GetActiveWindow&#40;&#41; ,nil, cFilePath&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41; + &quot;screen&#46;bmp&quot;,\'\',\'\',5&#41;\nreturn nil[/code:1jifhd2d]\n\nSi tienes cualquier otro manejador (hWnd) es cuestión de sustituirlo, donde pone oWnd:hWnd pon el manejador.\n\n\nUn saludo','',0,'AIA=','1jifhd2d',1,0,'',28,0,0),(21726,4911,7,832,0,'201.122.21.224',1163432435,1,0,1,1,1,0,'','COMO UTILIZAR INDICES CDX','HOLA TODOS ALGUIEN ME PODRIA AYUDAR PARA UTILIZAR INDICES \n\n\nEN UNA PALICACION DE POCKET PC..\n\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ESPERO Y ALGUIEN ME PUEDA AYUDAR.........','',0,'AIA=','3577ufam',1,0,'',832,0,0),(21727,4779,5,217,0,'200.159.120.34',1163433862,1,0,1,1,1,0,'','','Antonio,\n\nWhat we must use to replace our .RC files. \nDoes exists a software like Resource Workshop to design our forms?\n\nRegards!\nMaurilio','',0,'AIA=','ym5gnrws',1,0,'',217,0,0),(21728,4911,7,179,0,'200.69.181.39',1163436673,1,0,1,1,1,1,'','','Pedro, iguel que en Fwh\nes decir \n\n#include \'fwce.ch\'\nRequest DbfCdx\n\nFunction Main()\n\n    local oWnd\n    local oBmp\n\n\n    if IsExeRunning( cFileName( HB_ArgV( 0 ) ) )\n        MsgInfo( \"No puedes abrir dos veces el programa\", SISTEMA)\n        Return Nil\n    End\n\n    ......\n\nReturn Nil\n\npara crear los indices\n\n    //construyo camell3 para reporte de cobros por clientes\n   #define RDD_SISTEMA \'DbfCdx\'\n   cFile_03 := Curdir() +\'\\Temporal_03.Dbf\'\'\n   cNtx_03 := Curdir() +\'\\Temporal_03.Cdx\'\'\n   aStru_03:= {}\n    AADD( aStru_03, {\'Cliente\'   ,\'C\',30            ,0})\n    AADD( aStru_03, {\'Valor\'     ,\'N\',14            ,2})\n\n    If File( cFile_03 )\n       Ferase( cFile_03 )\n       Ferase( cNtx_03 )\n    End\n\n    DbCreate( cFile_03, aStru_03, RDD_SISTEMA)\n    Use (cFile_03) new Alias Camell3 Exclusive Via RDD_SISTEMA\n    Index on Cliente Tag Cliente\n    DbSetOrder ( 1 )\n\nEspero te ayude\nSaludos\nAtt','',0,'AIA=','10opkrmn',1,0,'',179,0,0),(21729,4912,2,304,0,'201.155.7.216',1163436880,1,0,1,1,1,0,'','Inhibe Windows XP Sp2','Hola:\nUso fw 2.3, clipper 5.3 y blinker 6.0\nCuando ejecuto un programa desarrollado con esas caracteristicas funciona correctamente en windows Me o 98, pero al correrlo con windows XP SP 2, si se deja de usar la maquina x espacio de 5 minutos aprox. la maquina se inhibe (no responde ninguna tecla, y no queda mas que reiniciar), aclaro que se inhibe cuando el programa desarrollado en Fw esta abierto, ya probe con varias maquinas y en todas hace lo mismo, si el programa es usado continuamente no pasa nada...\nespero haberme explicado correctamente.......Saludos','',0,'AIA=','3c7kcp6u',1,0,'',304,0,0),(21730,4799,6,28,0,'213.27.201.254',1163440008,1,0,1,1,1,0,'','Alfredo','Hola Alfredo, \n\nHe estado viendo tu maginifica clase TGraph y no puedo mas que darte la enhorabuena. Magnifico trabajo.\n\nHay una cosa que queria comentarte. Cuando haces grafico de pastel, las líneas no separan bien los trozos de tarta. \n\nCreo que el problema es que pintas las separaciones \"a mano\" y creo que hay que dejar al sistema que las pinte solas:\n\nMas o menos por la línea 1240 hay:\n\n[code:30le0skb]\n      IF &#40;nAngle-nAngT&#41;&gt;1\n         hPen2 &#58;= CreatePen&#40; PS_SOLID, 1 , 0 &#41;\n         hOldPen2 &#58;= SelectObject&#40; hMemCDC, hPen2 &#41;\n         Pie&#40; hMemCDC, aGRect&#91;1&#93;, aGRect&#91;2&#93;, aGRect&#91;3&#93;+1, aGRect&#91;4&#93;+1, ;\n                       aPT2&#91;2&#93;, aPT2&#91;1&#93;, aPT1&#91;2&#93;, aPT1&#91;1&#93; &#41;\n         SelectObject&#40; hMemCDC, hPen2 &#41;\n         DeleteObject&#40; hPen2 &#41;\n      ENDIF\n      SelectObject&#40; hMemCDC, hPen &#41;\n      IF Len&#40; aItems &#41; &gt; 1\n         //MoveTo&#40; hMemCDC, aPT1&#91;1&#93;, aPT1&#91;2&#93; &#41;\n         //LineTo&#40; hMemCDC, &#40;&#40;aGRect&#91;4&#93;-aGRect&#91;2&#93;&#41; / 2&#41; + aGRect&#91;2&#93;, ; // Center\n         //                 &#40;&#40;aGRect&#91;3&#93;-aGRect&#91;1&#93;&#41; / 2&#41; + aGRect&#91;1&#93; &#41;\n         //MoveTo&#40; hMemCDC, aPT2&#91;1&#93;, aPT2&#91;2&#93; &#41;\n         //LineTo&#40; hMemCDC, &#40;&#40;aGRect&#91;4&#93;-aGRect&#91;2&#93;&#41; / 2&#41; + aGRect&#91;2&#93;, ; // Center\n         //                 &#40;&#40;aGRect&#91;3&#93;-aGRect&#91;1&#93;&#41; / 2&#41; + aGRect&#91;1&#93; &#41;\n&#46;&#46;&#46;\n\n\n[/code:30le0skb]\n\nSi comentas esas líneas y cuando pintas el \"Pie\" le seleccionas un pincel, te pinta solo las separaciones. También, si haces esto, no es necesario pintar la elipse.\n\nUn saludo','',0,'AIA=','30le0skb',1,0,'',28,0,0),(21731,4883,7,2,0,'87.218.146.211',1163440197,1,0,1,1,1,1,'','','Pedro,\n\nEnvíamelos en un ZIP,  gracias','',0,'AIA=','35rng5do',1,0,'',2,0,0),(21732,4779,5,2,0,'87.218.146.211',1163440562,1,0,1,1,1,1,'','','Maurilio,\n\n&gt;\nWhat we must use to replace our .RC files. \nDoes exists a software like Resource Workshop to design our forms? \n&gt;\n\nMac OSX provides an \"Interface Builder\", included for free with Mac OSX, where you can visually design the user interface. It creates \"NIB\" files (\"Next Interface Builder\") that will be accessed from the application.\n\nFor FoxPro users, we are going to provide support for DO FORM &lt;form.scx&gt; command.','',0,'AIA=','1rkdtlz7',1,0,'',2,0,0),(21733,4904,6,838,0,'80.59.225.15',1163440644,1,0,1,1,1,0,'','','Pues... a mi que me lo expliquen.\n\nLos grupos son \"Datos\" y \"Datos Bancarios\"\n\nSi no declaro Group se ve así\n \n<!-- m --><a class=\"postlink\" href=\"http://img113.imageshack.us/my.php?image=nodeclarahf2.jpg\">http://img113.imageshack.us/my.php?imag ... arahf2.jpg</a><!-- m -->\n\nSi declaro Group se ve así\n\n<!-- m --><a class=\"postlink\" href=\"http://img372.imageshack.us/my.php?image=declaradaci2.jpg\">http://img372.imageshack.us/my.php?imag ... adaci2.jpg</a><!-- m -->\n\nO nos pasamos o no llegamos.\n\nEl código es simple:\n\n****************************\n#include \"FiveWin.ch\"\n#include \"btnget.ch\"\n#include \"tsbutton.ch\"\n//#include \"Ssay.ch\"\n#define COLOR_BTNFACE  15\n\n//-----------------------------------------\n\nmemvar publicas\nFUNCTION Empresa()\n\n   local oDlg,oDlg1	\n   local vuelta,osay,i,oboton,oboton1\n   local nccodmun,ncnommun,nccodprov,ncnomprov\n   local hacer:=0,oculta,oculta1,oculta2,oculta3,oculta4,oculta5\n   local oNombre,oLbx,obmp\n   local Grabar:=.F.\n   SET _3DLOOK ON\n   dbUseArea(.T.,,Publicas:cUnidad+\"\\MUNICI\",,.T.)\n   munici-&gt;(ordSetfocus(\"ccodmun\"))\n\n   dbUseArea(.T.,,Publicas:cUnidad+\"\\PROVIN\",,.T.)\n   provin-&gt;(ordSetfocus(\"ncodprov\"))\n\n\n   dbUseArea(.T.,,Publicas:cUnidad+\"\\PROPIE\",,.T.)\n   propie-&gt;(Ordsetfocus(\"Codigo\"))\n   propie-&gt;(Dbgotop())\n   Database Publicas:oDbfprop\n   nccodmun:=Publicas:oDbfprop:codpobla\n    DEFINE BRUSH Publicas:oBrush RESOURCE \"Nubes\"\n    DEFINE DIALOG oDlg1 RESOURCE \"BRWGENERI1\" BRUSH Publicas:oBrush TRANSPARENT\n    REDEFINE BtnBMP RESOURCE \"PBMPADD1\",\"PBMPADD2\",\"PBMPADD3\" ID 172 OF oDlg1 MESSAGE \"Añadir\"      ACTION (Publicas:cTitulo:=\"Creación de nuevas Empresas \",;\n                        Hacer:=1,oDlg1:End());\n                        WHEN Publicas:cAccesoA;\n			TOOLTIP \"Añadir\"\n    REDEFINE BtnBMP RESOURCE \"PBMPMOD1\",\"PBMPMOD2\",\"PBMPMOD3\" ID 173 OF oDlg1 MESSAGE \"Modificar\"   ACTION (Publicas:cTitulo:=\"Modificación de Empresas \",hacer:=2,oDlg1:End());\n                        WHEN Publicas:cAccesoM;\n			TOOLTIP \"Modificar\"\n    REDEFINE BtnBMP RESOURCE \"PBMPDEL1\",\"PBMPDEL2\",\"PBMPDEL3\" ID 174 OF oDlg1 MESSAGE \"Eliminar\"    ACTION (iif(!Propie-&gt;(eof()),(borraem(Publicas:oWPpal),oLbx:UpStable(),oLbx:Refresh()),.T.));\n                        WHEN Publicas:cAccesoA;\n			TOOLTIP \"Eliminar\"\n  REDEFINE BtnBMP RESOURCE \"PBMPEND1\",\"PBMPEND2\",\"PBMPEND3\" ID 178 OF oDlg1 MESSAGE \"Salir\"       ACTION oDlg1:END();\n			TOOLTIP \"Salir\"\n  REDEFINE Btnbmp oculta  ID 175 OF oDlg1\n  REDEFINE Btnbmp oculta1 ID 176 OF oDlg1\n  REDEFINE Btnbmp oculta2 ID 177 OF oDlg1\n  REDEFINE Btnbmp oculta3 ID 179 OF oDlg1\n  REDEFINE Btnbmp oculta4 ID 180 OF oDlg1\n  REDEFINE Btnbmp oculta5 ID 181 OF oDlg1\n  REDEFINE LISTBOX oLbx FIELDS Propie-&gt;Codigo,;\n                               Propie-&gt;Nombre;\n                  HEADER \"Cód\",\"Empresa\";\n                  FIELDSIZES 30,200;\n                  ALIAS \"PROPIE\";\n		  COLOR CLR_BLACK, GetSysColor( COLOR_BTNFACE ) ;\n		  ID 110 OF oDlg\n   oLbx:nClrPane:={||iIF((oLbx:cAlias)-&gt;(OrdKeyNo())%2==0,nRGB(245,219,175),nRGB(245,239,191))}\n    oLbx:aJustify := {.F.,.F.}\n   ACTIVATE DIALOG Odlg1 CENTERED ON INIT (oculta:Hide(),oculta1:Hide(),oculta2:Hide(),oculta3:Hide(),oculta4:Hide(),oculta5:Hide())\n  do case\n     case hacer=1 \n          Publicas:oDbfprop:Blank()\n     case hacer=2\n          Publicas:oDbfprop:Load()\n  end case\n   if hacer&lt;&gt;0      \n    DEFINE DIALOG oDlg RESOURCE \"Empresas\" BRUSH Publicas:oBrush TRANSPARENT\n  //  REDEFINE GROUP ID 48 of oDlg \n    for i = 1 to 16\n     REDEFINE SAY ID i OF oDlg\n    next i\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Codigo    ID 101 OF oDlg\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Nombre    ID 102 OF oDlg Picture \"@!\"\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Domicilio ID 103 OF oDlg\n    REDEFINE BTNGET oNombre VAR nccodmun           ID 104 OF oDlg Update Picture \"XXXXX\";\n                Valid ((nccodmun:= Padl(alltrim(nccodmun),5,\"0\"),oDlg:Update()),;\n      IIf (!munici-&gt;(dbSeek(nccodmun)) .OR. nccodmun=\'00000\',;\n                (Locmun(@oDlg,@nccodmun,@ncnommun),oDlg:Update(),.F.),;\n                (Publicas:oDbfprop:Poblacion:= munici-&gt;cnommun,;\n                Publicas:oDbfprop:codpobla:=munici-&gt;ccodmun,;\n                provin-&gt;(dbseek(substr(nccodmun,1,2))),;\n                Publicas:oDbfprop:codprovin:=provin-&gt;ncodprov,;\n                Publicas:oDbfprop:codpos:=provin-&gt;ncodprov+\"000\",;\n                Publicas:oDbfprop:Provin:=provin-&gt;cnomprov,oDlg:Update(),.T. )))\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Poblacion ID 105 OF oDlg Update\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:codprovin ID 106 OF oDlg Update\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Provin    ID 107 OF oDlg Update\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Nif       ID 108 OF oDlg\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:codpos    ID 109 OF oDlg Update picture \"XXXXX\"\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Telefono  ID 110 OF oDlg picture \"XXXXXXXXX\"\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Fax       ID 116 OF oDlg picture \"XXXXXXXXX\"\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Email     ID 117 OF oDlg picture \"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX\"\n    //REDEFINE GROUP ID 49 of oDlg \n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Banco     ID 111 OF oDlg Update\n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:Entidad   ID 112 OF oDlg Update picture \'@X\' \n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:agencia   ID 113 OF oDlg Update picture \'@X\' \n    REDEFINE BTNGET oNombre VAR Publicas:oDbfprop:dc        ID 114 OF oDlg Update NO MODIFY \n    REDEFINE BTNGET oNombre var Publicas:oDbfprop:cuenta    ID 115 OF oDlg update picture \'@X\' ;\n        valid eval({|| vuelta := cdc(Publicas:oDbfprop:entidad+Publicas:oDbfprop:agencia,Publicas:oDbfprop:cuenta),Publicas:oDbfprop:dc := vuelta,odlg:Update(),.T.})\n    REDEFINE BITMAP oBmp RESOURCE \"Lupin\" ID 200 OF oDlg ADJUST;\n                        ON LEFT CLICK ( Locmun(@oDlg,@nccodmun,@ncnommun),oDlg:Update())\n    REDEFINE SBUTTON oboton ID 550 OF oDlg RESOURCE \"Lamp1\", \"Lamp2\",, \"Lamp3\", \'shape3\' SHAPE PROMPT \"Aceptar\" TEXT ON_RIGHT ;\n                                  ACTION (Grabar := .T., oDlg:End())\n    REDEFINE SBUTTON oboton1 ID 551 OF oDlg RESOURCE \"Lampr1\", \"Lampr2\",, \"Lampr1\", \'shape3\' SHAPE PROMPT \"Cancelar\" TEXT ON_RIGHT ;\n                                  ACTION (Grabar := .F., oDlg:End())\n    ACTIVATE DIALOG oDlg CENTERED \n\n  IF Grabar\n   While .not. propie-&gt;(Rlock()); end\n    Publicas:oDbfprop:Save()\n    Propie-&gt;(dbUnlock())\n  ENDIF\n   endif\n    PROPIE-&gt;(dbCloseArea() )\n    MUNICI-&gt;(dbCloseArea() )\n    PROVIN-&gt;(dbCloseArea() )\nRETURN NIL\n\n***********************\n\nSaludos\n\nJose Luis','',0,'AIA=','kxqeubdv',1,0,'',838,0,0),(21734,4904,6,2,0,'87.218.146.211',1163440891,1,0,1,1,1,1,'','','Jose Luis,\n\nPuedes mostrarnos el RC de ese diálogo ? gracias,','',0,'AIA=','293g6cos',1,0,'',2,0,0),(21735,4912,2,2,0,'87.218.146.211',1163441003,1,0,1,1,1,1,'','','Tienes instalado algún salvapantallas en XP ? Estandard de XP ?','',0,'AIA=','3ghymboz',1,0,'',2,0,0),(21736,4913,6,53,0,'189.139.21.96',1163441149,1,0,1,1,1,1,'','Mostrar imagenes en un diálogo','Saludos:\n\nAlguien que pueda indicarme cómo mostrar imagenes en un diálogo y cambiarlas dinamicamente. ojala sean imagenes menos pesadas que las .BMP\n\nAgradezco la ayuda\n\nArmando','',0,'AIA=','16wqrh1v',1,0,'',53,0,0),(21737,4878,6,456,0,'62.43.194.117',1163441167,1,0,1,1,1,1,'','','[code:23n9esgf]\nFUNCTION GraMinSec2Dec&#40;nGra,nMin,nSec&#41; //- Sur y oeste signo negativo&#46;\nRETURN &#40;Abs&#40;nGra&#41;+&#40;nMin/60&#41;+&#40;nSec/3600&#41;&#41;*IF&#40;nGra&lt;1,-1,1&#41;\n\nFUNCTION Dec2Gra&#40;nVal&#41;;RETURN Int&#40;nVal&#41;\nFUNCTION Dec2Min&#40;nVal&#41;;RETURN Abs&#40;Int&#40;nVal%Dec2Gra&#40;nVal&#41;*60&#41;&#41;\nFUNCTION Dec2Sec&#40;nVal&#41;;RETURN Abs&#40;&#40;&#40;nVal%Dec2Gra&#40;nVal&#41;*60&#41;%Dec2Min&#40;nVal&#41;&#41;*60&#41;[/code:23n9esgf]','',0,'AIA=','23n9esgf',1,0,'',456,0,0),(21738,4912,2,304,0,'201.155.7.216',1163441224,1,0,1,1,1,0,'','','al principio tenia uno standar propio de windows xp, pero lo deshabilite y aun lo sigue haciendo','',0,'AIA=','1kzg3suf',1,0,'',304,0,0),(21739,4906,6,644,0,'201.252.5.87',1163442549,1,0,1,1,1,0,'','','Antonio :\nAnte todo te agradezco que me hayas contestado. Te mando un ejemplo de los samples que trae fwh, solamente le modifiqué el primer get para ver si este error se reproducia lo mismo que sucede en la aplicación que estoy haciendo.\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n   LOCAL oDlg, oGet\n   LOCAL cCad := \"Testing    \" // pad(\"Testing Gets\",40)\n   LOCAL nNum := 0\n   LOCAL dDat := Date()\n\n   Set century On\n   Set Date Ansi\n   Set Date format \"mm/dd/yyyy\"\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg TITLE \"TGet from \" + FWDESCRIPTION\n\n   @ 1,    2 SAY \"Text..:\" OF oDlg \n   //este get es el modificado\n   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR \"W/G\"  PICTURE \"@K\" On Change( oDlg : SetText( cCad ) )\n   @ 1.8,  2 SAY \"Number:\" OF oDlg\n   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE \"9999999.99\"\n   @ 2.6,  2 SAY \"Date:\" OF oDlg\n   @ 3,    6 GET oGet VAR dDat PICTURE \"@E\" OF oDlg SIZE 60, 10  // \"@D\"\n   @ 3,    7 BUTTON \"&amp;Ok\" OF oDlg SIZE 30, 12 ACTION oDlg:End()\n   @ 3,   16 BUTTON \"&amp;Cancel\" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nprocedure appsys\nreturn','',0,'AIA=','2jg0rcoo',1,0,'',644,0,0),(21740,4799,6,72,0,'189.146.13.31',1163444036,1,0,1,1,1,0,'','','Perfecto!, gracias Paco(s).\n\nSi alguién más ha realizado cambios y considera que deben estar incluidos haganlos llegar a mi correo (abajo) y los incluiremos para todos.\n\nDefinitivamente una cabeza piensa menos que muchas.','',0,'AIA=','3mqjrfeh',1,0,'',72,0,0),(21741,4834,1,186,0,'66.130.50.142',1163447423,1,0,1,1,1,1,'','','Hi Detlef,\n\nSorry to tell you that I have browse array with TWBrowse without any problems in many of my applications so far.\n\nThat is not my problem. My real problem is that in the application under developpement I need to browse a 2 dimensions array not knowing how many column I will need. If the array was a fixed structure that would be no problem, but it the lenght of the second dimension change depending on what the user does.\n\nSince all the columns must be predefine when calling TWBrowse I cannot use a loop to create the needed columns. That is my problem.\n\n\nRegards,','',0,'AIA=','gjjw1rlq',1,0,'',186,0,0),(21742,4862,1,186,0,'66.130.50.142',1163447702,1,0,1,1,1,1,'','','Hi Biel,\n\nI finally found what the problem was. The database I was testing with contains special ASCII code that are in the range of 0 to 31. That was causing the problem. I did some testing with another database and everything works well.\n\nRegards,','',0,'AIA=','ygidf5jp',1,0,'',186,0,0),(21743,4914,4,224,0,'162.83.94.176',1163450657,1,0,1,1,1,1,'','Create FWPPC DLL?','Is it possible to create a DLL with FWPPC?  I would like to build a DLL from which I can call functions using RAPI on the desktop.\n\nThanks,','',0,'AIA=','108vpb7x',1,0,'',224,0,0),(21744,4915,3,6,0,'87.9.34.106',1163450943,1,0,1,1,1,1,'','Error compiling with Harbour from CVS','This is what I get compiling any PRG:\n\n[quote:ktb99tmj]&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for Harbour 2.8 - October 2006          Harbour development power  &#9474;\n&#9474; (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;\n\n  Compiling...\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'foldertest.prg\' and generating preprocessed output to \'foldertest.ppo\'...\nLines 32, Functions/Procedures 1\nGenerating C source output to \'foldertest.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nfoldertest.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'WinMain\' referenced from C:\\BCC55\\LIB\\C0W32.OBJ\n* There are errors[/quote:ktb99tmj]\n\nDo I have to build Harbour with any special flag?\n\nEMG','',0,'gA==','ktb99tmj',1,0,'',6,0,0),(21745,4916,6,237,0,'200.68.70.89',1163451643,1,0,1,1,1,0,'','Ejemplos de la clase TPDF ???','Amigos:\n\n\nComo muchos otros estoy necesitando resolver el tema de la generacion\nde archivos pdf.\n\nPuntualmente: Lo que necesito NO ES convertir un listado a un archivo pdf sino multiples archivos pdf, y que cada uno corresonda a cada boleta de pago que estoy imprimiendo. fw te genera varios wmf, uno por cada hoja, lo que necesito es generar un pdf por cada wmf ( se imprimen de a cientos juntos ).\n\nSe me ocurre que la clase tpdf lo pueda hacer si es que lee los archivos wmf, caso contrario, como se puede hacer esto? \nEl famoso open source pdfcreator lo puede hacer?\n\nAlguien tendra algun ejemplo que se pueda aplicar a lo que necesito ???\n\n\nDesde ya, muchas gracias!!!\nAlejandro Cebolido, Buenos Aires, Argentina.','',0,'gA==','tn73r0mt',1,0,'',237,0,0),(21746,4876,6,850,0,'201.255.101.175',1163451985,1,0,1,1,1,0,'','','Ya lo solucione, gracias a todos por el aporte. Como me dijo Rene, me baje el rddads de xHarbour y detecte que en ads1.c y adsfunc.c hace una pregunta por ADS_REQUIRE_VERSION &gt;=6, cuando en realidad recien en la version 6.2 del Advantage Server estan esas funciones, cambie la pregunta recompile y listo ya funciona el xHarbour con el Advantage Server version 6.0.\n\nGracias\n\nAndres','',0,'gA==','1mi4400k',1,0,'',850,0,0),(21747,4917,3,343,0,'24.173.70.29',1163452357,1,0,1,1,1,0,'','cancel clause with tsbutton still fires valid','I have run across a problem with tsbutton, latest FWH, and Xharbour builder.\n\nI create a dialog with some gets with valids and tsbutton with cancel clause. When I press the button it still executes the valid on the get that has focus at the time.\n\nIs anyone else having this problem?\nDo you need for me to create sample?','',0,'gA==','2u9h0171',1,0,'',343,0,0),(21748,4904,6,838,0,'80.59.225.15',1163456813,1,0,1,1,1,0,'','','Aquí está\n**********************************\n\nEMPRESAS DIALOG 34, 98, 272, 197\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Tratamiento de Empresas\"\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT 101, 58, 20, 25, 12\n EDITTEXT 108, 210, 18, 42, 12\n EDITTEXT 102, 58, 34, 197, 12\n EDITTEXT 103, 58, 50, 197, 12\n EDITTEXT 104, 69, 63, 25, 12\n EDITTEXT 105, 100, 63, 155, 12\n EDITTEXT 106, 69, 76, 25, 12\n EDITTEXT 107, 100, 76, 155, 12\n EDITTEXT 109, 61, 90, 30, 12\n EDITTEXT 110, 129, 90, 42, 12\n EDITTEXT 116, 211, 90, 42, 12\n EDITTEXT 117, 61, 104, 127, 12\n EDITTEXT 111, 69, 129, 187, 12\n EDITTEXT 112, 69, 154, 20, 12\n EDITTEXT 113, 99, 154, 20, 12\n EDITTEXT 115, 165, 154, 47, 12\n PUSHBUTTON \"Aceptar\", 550, 162, 180, 50, 14\n PUSHBUTTON \"Cancelar\", 551, 215, 180, 50, 14\n LTEXT \"Nombre\", 3, 11, 37, 42, 8\n LTEXT \"Domicilio\", 4, 9, 52, 44, 8\n LTEXT \"Poblacion\", 5, 9, 66, 44, 8\n LTEXT \"Cif\", 2, 157, 21, 44, 8\n LTEXT \"Provincia\", 6, 9, 79, 44, 8\n CONTROL \"\", 200, \"tbitmap\", WS_CHILD | WS_VISIBLE, 58, 66, 8, 8\n LTEXT \"Cod.Postal\", 7, 11, 93, 37, 8\n LTEXT \"Telefono\", 8, 96, 92, 32, 8\n GROUPBOX \"Datos Generales\", 48, 6, 9, 258, 111, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP\n GROUPBOX \"Datos Bancarios\", 49, 6, 122, 258, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP\n LTEXT \"Banco\", 11, 13, 133, 42, 8\n EDITTEXT 114, 132, 154, 14, 12\n LTEXT \"Cuenta\", 16, 13, 152, 42, 8\n LTEXT \"Entidad\", 12, 66, 143, 28, 8\n LTEXT \"Agencia\", 13, 96, 143, 28, 8\n LTEXT \"D.C.\", 14, 131, 143, 15, 8\n LTEXT \"Cuenta\", 15, 175, 143, 28, 8\n LTEXT \"Codigo\", 1, 11, 23, 32, 8\n LTEXT \"Email\", 10, 13, 105, 37, 8\n LTEXT \"Fax\", 9, 186, 92, 22, 8\n}\n***********************************\n\nSaludos\n\nJose Luis','',0,'gA==','24ocx2mu',1,0,'',838,0,0),(21749,4779,5,95,0,'189.155.115.94',1163457534,1,0,1,1,1,0,'','','So,\n\nWill there two way to desings form\'s ?\n\nI mean, via VFP and Interface Builder ?\n\nIf VFP form, could be loaded from prg ... All the object propierties will accesed from prg level ?\n\n\nTell us the price and Dates for testing FiveMac, I would like to get some things like FWPCC, ... until a stable release.\n\nBest Regards\nOsvaldo Ramirez','',0,'gA==','1qju305c',1,0,'',95,0,0),(21750,4910,6,95,0,'189.155.115.94',1163458553,1,0,1,1,1,0,'','','Estimado ....\n\nEn mi caso, este tipo de anomalia, es cuando tengo mal instalada la tarjeta de video.\n\nA lo mejor no se si sea tu caso, pero es una sugerencia.\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','2otsc7a9',1,0,'',95,0,0),(21751,4918,6,533,0,'88.8.27.230',1163459781,1,0,1,1,1,0,'','Error al Compilar!!','Buenas Noches Foro:\n\n   Con la última versión de FW 2.8 compilo un pequeño programa, ya que estoy empezando de 0 con esta versión y me sale el siguiente error:\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for xHarbour 2.8 - October 2006            xHarbour development power ³Ü\n³ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'rutinas.prg\'...\n\n 100\nLines 171, Functions/Procedures 8\nGenerating C source output to \'rutinas.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nrutinas.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_dynsymSymbol\' referenced from C:\\PROYECTOS\\LIBRERIA\\GENERAL\\FIVEHC.LIB|HARBOURC\nError: Unresolved external \'_hb_stackReturnItem\' referenced from C:\\PROYECTOS\\LIBRERIA\\GENERAL\\FIVEHC.LIB|HARBOURC\nError: Unresolved external \'_hb_objGetClass\' referenced from C:\\PROYECTOS\\LIBRERIA\\GENERAL\\FIVEHC.LIB|MSGS\nError: Unresolved external \'_hb_parnll\' referenced from C:\\PROYECTOS\\LIBRERIA\\GENERAL\\FIVEHC.LIB|ole\nError: Unresolved external \'_hb_objHasMessage\' referenced from C:\\PROYECTOS\\LIBRERIA\\GENERAL\\FIVEHC.LIB|FFDLGPRC\nError: Unresolved external \'_HB_FUN___CLSCNTCLASSES\' referenced from C:\\PROYECTOS\\LIBRERIA\\GENERAL\\FIVEHX.LIB|ERRSYSW\n* Application successfully built\nEl sistema no puede hallar el archivo especificado.\n\n\nCreo que los tiros van porque me faltan algunar LIB (Las que en el buildx hacen referencia a la carpeta psdk), si fuera asi ¿donde las puedo conseguir?\n\n\nGRACIAS DE ANTEMANO','',0,'gA==','xugyrru0',1,0,'',533,0,0),(21752,4904,6,53,0,'189.139.21.96',1163459989,1,0,1,1,1,1,'','','José Luis:\n\nPues mira que he hecho una prueba y se ve muy bien\n\n<!-- m --><a class=\"postlink\" href=\"http://img247.imageshack.us/my.php?image=clip1ga0.jpg\">http://img247.imageshack.us/my.php?image=clip1ga0.jpg</a><!-- m -->\n\nSaludos, Armando','',0,'gA==','24ge125d',1,0,'',53,0,0),(21753,4834,1,58,0,'84.149.229.136',1163460072,1,0,1,1,1,0,'','','Gilbert,\n\nif you need a variable number of columns try this:\n\n[code:1sy7f0to]   DEFINE DIALOG oDlg NAME &quot;STATBROWSE&quot; ;\n          TITLE OemToAnsi&#40; cTitle &#41;;\n          of oWnd\n\n   REDEFINE COLUMN BROWSE oBrow ID 40 OF oDlg\n\n   oBrow&#58;SetArray&#40; gaStatArr &#41;\n   oBrow&#58;nFreeze &#58;= 1\n\n\n   ADD COLUMN TO oBrow ARRAY ELEM 1;\n      HEADER  aHeader&#91;1&#93;;\n      SIZE    aSize&#91;1&#93;;\n      PICTURE aPict&#91;1&#93;;\n      NOBAR;\n      LEFT\n\n   for n &#58;= 2 to len&#40; aHeader &#41;\n      oBrow&#58;AddColumn&#40; TCColumn&#40;&#41;&#58;New&#40;;\n            OemToAnsi&#40; aHeader&#91; n &#93; &#41;, MakeBlock&#40; n, oBrow &#41;,;\n            aPict&#91; n &#93;,,, If&#40; !&#46;T&#46;, &quot;LEFT&quot;, Upper&#40; &quot;RIGHT&quot; &#41; &#41;, aSize&#91; n &#93;, &#46;F&#46;, &#46;F&#46;,,,, &#46;F&#46; &#41; &#41;\n   next\n\n   ADD COLUMN TO oBrow ;// ARRAY ELEM 1;\n      HEADER  &quot; &quot;;\n      SIZE    16;\n      PICTURE NIL;\n      NOBAR;\n      LEFT\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\n//////////////////////////////////\nSTATIC FUNCTION MakeBlock&#40;n, oBrw&#41;\n//////////////////////////////////\nRETURN &#40; &#123;|x| if&#40;pcount&#40;&#41; &gt; 0, oBrw&#58;aArray&#91;oBrw&#58;nAt&#93;&#91;n&#93; &#58;= x, oBrw&#58;aArray&#91;oBrw&#58;nAt&#93;&#91;n&#93;&#41;&#125; &#41;\n[/code:1sy7f0to]\n\nThis is sample when i use TSBrowse.\nMaybe this could help you?\n\nBest regards,\nDetlef','',0,'AIA=','1sy7f0to',1,0,'',58,0,0),(21754,4919,1,292,0,'201.242.155.247',1163460601,1,0,1,1,1,1,'','detectar Drive','Colegas,\nNecesito determinar si la unidad \"A:\", \"H:\" etc, existe?\nAlguna función o acceso al registro de windows.','',0,'AIA=','tym8xiqn',1,0,'',292,0,0),(21755,4920,6,292,0,'201.242.155.247',1163460702,1,0,1,1,1,1,'','Detectar Unidad o Drive','Colegas,\n\nNecesito determina si la unidad \"A:\" o \"H:\" existe','',0,'AIA=','joy1i5ww',1,0,'',292,0,0),(21756,4904,6,838,0,'80.59.225.15',1163462048,1,0,1,1,1,0,'','','No se.... No se.\n\nEs raro porque todo iba bien el five, y algo habre tocado al pasarlo a fwh.\nLo he intentado de mil maneras y algo se me escapa, miraré a ver si es el bmp del .RES, o sino revisaré todo el código en fin mañana seguiré a ver si hay mas suerte.\nGracias por todo Antonio\n\nJose Luis','',0,'AIA=','2sfk60fm',1,0,'',838,0,0),(21757,4920,6,72,0,'189.146.13.31',1163462059,1,0,1,1,1,0,'','','aDrv:=ADrives()  // para obtener las unidades disponibles','',0,'AIA=','2ztvx2qb',1,0,'',72,0,0),(21758,4917,3,384,0,'201.27.193.252',1163462886,1,0,1,1,1,1,'','','I use:\n\n[code:2kvd9ewo]\n////////////////\nfunction teste&#40;&#41;\n////////////////\n\nlocal lButton&#58;=&#46;f&#46;\n\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\nREDEFINE GET aoGets&#91;01&#93; VAR aDados&#91;01&#93; ID 101 OF oDlg PICTURE \'99999\' ;\n        VALID lButton&#40;@lButton&#41; &#46;and&#46; VerDados&#40; @aDados, aoGets, 1, 5, \'99999\' &#41;\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\nREDEFINE SBUTTON aoBtn&#91;02&#93; ID 510 OF oDlg RESOURCE \'EXIT\' ACTION &#40; lButton&#58;=&#46;t&#46;, oDlg&#58;end&#40;&#41; &#41;\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\nACTIVATE DIALOG oDlg CENTERED\nreturn nil\n\n\n///////////////////////////\nfunction lButton&#40; lButton &#41;\n///////////////////////////\nlocal lOk&#58;=&#46;t&#46;\nif lButton\n       lOk&#58;=&#46;f&#46;\nendif\nlButton&#58;=&#46;f&#46;\nreturn lOk\n[/code:2kvd9ewo]','',0,'AIA=','2kvd9ewo',1,0,'',384,0,0),(21759,4853,6,196,0,'190.48.238.200',1163463654,1,0,1,1,1,0,'','','Francisco, serias tan amable de enviarmelo tambien? Aun uso el viejo filefix del NU8.\n\nGracias\n<!-- e --><a href=\"mailto:jjaurena@yahoo.com\">jjaurena@yahoo.com</a><!-- e -->','',0,'AIA=','1l6bnry7',1,0,'',196,0,0),(21760,4779,5,2,0,'87.218.146.211',1163464267,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; Will there two way to desings form\'s ? \n&gt; I mean, via VFP and Interface Builder ? \n\nYes, we want that FoxPro users may be able to reuse their existing Windows forms with FiveMac. \n\nOur plan is to provide a form designer built-in with FiveMac, that will allow to modify existing forms and create new ones. \n\nInterface Builder creates NIB files (XML format) that may be also used from FiveMac.\n\n&gt;\nIf VFP form, could be loaded from prg ... All the object propierties will accesed from prg level ? \n&gt;\n\nYes, a true object is created using and providing the same properties.\n\n&gt;\nTell us the price and Dates for testing FiveMac, I would like to get some things like FWPCC, ... until a stable release. \n&gt;\n\nA pre-release may be available for early january 2007. Price 290 euros, internet delivery.','',0,'AIA=','354rssxn',1,0,'',2,0,0),(21761,4915,3,2,0,'87.218.146.211',1163464456,1,0,1,1,1,1,'','','Enrico,\n\nyes, use -DHARBOUR_MAIN_WIN','',0,'AIA=','19uqx3kz',1,0,'',2,0,0),(21762,4914,4,2,0,'87.218.146.211',1163464738,1,0,1,1,1,1,'','','Bill,\n\nI assume that you want to have PRG code into the DLL, and build a self contained DLL, right ?\n\nWe can do that with FWH, and it should be quite similar for FWPPC, though we have not tested it yet. We are going to do some tests and we will let you know our results.','',0,'AIA=','2mkil7x4',1,0,'',2,0,0),(21763,4918,6,2,0,'87.218.146.211',1163464877,1,0,1,1,1,1,'','','Mike,\n\nEstas usando el build de xHarbour que distribuimos con FWH 2.8 ?\n\nAsegurate de que lo instalas y de que no tienes otro instalado.','',0,'AIA=','wbyi10mp',1,0,'',2,0,0),(21764,4910,6,2,0,'87.218.146.211',1163465086,1,0,1,1,1,1,'','','Paco,\n\nUsas degradados en esa ventana principal, si ? \n\nQue función usas para dibujarlos ?','',0,'AIA=','lp3c3jwe',1,0,'',2,0,0),(21765,4779,5,95,0,'189.155.115.94',1163465574,1,0,1,1,1,0,'','','Excelent...\n\nSo, all VFP users, that want to migrate your project will be more easy than Xbase++ users ... atlest the forms files.\n\n\nTell me, what is osxpro ?\n\nThe function to read and save .frm, will be available to FiveWin or FiveWin++. ?\n\nAgain, contratulation to your work\n\nBest Regards\nOsvaldo Ramirez','',0,'AIA=','3nvotn49',1,0,'',95,0,0),(21766,4914,4,224,0,'66.225.99.139',1163470104,1,0,1,1,1,1,'','','Hi Antonio,\n\nThanks for the reply. Yes, you are correct -- I would like to have a free-standing DLL built with .prg code.  I appreciate your tests and await the results!\n\nThanks again,','',0,'AIA=','3jc74c74',1,0,'',224,0,0),(21767,4888,3,190,0,'202.65.134.26',1163470601,1,0,1,1,1,0,'','','Mr.Antonio \n\nThank you very much for your reply.\n\nAfter spending some time on this, I could get the \nrequired effect with the following statement.\n\n [quote:xmxfaeqj]\noGet1:PostMsg( WM_RBUTTONDOWN )\n[/quote:xmxfaeqj]\n\nRegards to you\n\n- Ramesh Babu P','',0,'gA==','xmxfaeqj',1,0,'',190,0,0),(21768,4917,3,785,0,'190.64.107.128',1163473770,1,0,1,1,1,0,'','','Gale:\n\nTry this: In Control.prg Method KillFocus() add TSBUTTON like this line\n\nMETHOD KillFocus( hCtlFocus ) CLASS TControl\n\n   local oWnd\n\n   if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ;\n      ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ;\n      Upper( oWnd:Classname() ) $ \"TBUTTON;TBTNBMP;TBUTTONBMP;TSBUTTON\" .and. ;\n \nTell me what about.\n\nRegards\nRuben Fernandez.','',0,'gA==','367j7e1u',1,0,'',785,0,0),(21769,4921,3,261,0,'63.197.46.139',1163477354,1,0,1,1,1,1,'','DataLinks with ADO in FiveWin','FYI,\n\nI wanted to utilize the Datalink Wizard to obtain a properly formatted ADO connection string below is how to do this.\n\nLocal oDataLink := CreateObject(\"Datalinks\")\nLocal oConn      := oDataLink:PromptNew()\n\nI spend a long time trying to find this, I can\'t believe it was this easy...\n\nByron,','',0,'gA==','2obco1rp',1,0,'',261,0,0),(21770,4922,4,47,0,'203.144.143.8',1163477756,1,0,1,1,1,0,'','button color','Dear Antonio,\n\nCan I assign color for button?\n\nBest regards,\nDutch','',0,'gA==','9eahi2e4',1,0,'',47,0,0),(21771,4915,3,6,0,'87.20.218.232',1163492307,1,0,1,1,1,1,'','','Using\n\n[code:30g1sv0v]SET CFLAGS=-DHARBOUR_MAIN_WIN[/code:30g1sv0v]\n\nI get\n\n[quote:30g1sv0v]obj\\b32\\hbrun.c:\nobj\\b32\\external.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_main\' referenced from C:\\BCC55\\LIB\\C0X32.OBJ\n\n** error 1 ** deleting bin\\b32\\hbrun.exe[/quote:30g1sv0v]\n\nEMG','',0,'gIA=','30g1sv0v',1,0,'',6,0,0),(21772,4883,7,106,0,'85.34.123.173',1163494154,1,0,0,1,1,1,'','','enviado a tu privado.\n\n\ngracias.','',0,'gIA=','2cjuy06q',1,0,'',106,0,0),(21773,4878,6,413,0,'194.106.16.43',1163494971,1,0,1,1,1,0,'','','Biel revisa tu correo.','',0,'gIA=','1s198asl',1,0,'',413,0,0),(21774,4878,6,384,0,'201.27.193.163',1163495733,1,0,1,1,1,1,'','','Ótimo!!!\nSaberias me dizer quais são os limites do ZOOM ?\n\nMe localizo em:\n                nLat := 20.211945\n                nLon := -50.9269528','',0,'gIA=','169kyasz',1,0,'',384,0,0),(21775,4779,5,2,0,'87.218.146.59',1163496812,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; Tell me, what is osxpro ?\n\nIts an application, developed using FiveMac, for VFP users. Its source code will be available with FiveMac.\n\n&gt;\nThe function to read and save .frm, will be available to FiveWin or FiveWin++. ? \n&gt;\n\nActually its been developed and tested with FiveMac, and may be ported to FiveWin, FiveWin++ also. It uses .scx and .sct files.','',0,'gIA=','1ld4viv5',1,0,'',2,0,0),(21776,4915,3,2,0,'87.218.146.59',1163496955,1,0,1,1,1,1,'','','Enrico,\n\nYes, we get it too, the hbrun make file should be modified.','',0,'gIA=','y37cda5g',1,0,'',2,0,0),(21777,4921,3,177,0,'194.30.62.6',1163497004,1,0,1,1,1,0,'','','Hi Byron,\n\nyour code: \n\n[code:3jdjbud6]\nLocal oDataLink &#58;= CreateObject&#40;&quot;Datalinks&quot;&#41; \nLocal oConn &#58;= oDataLink&#58;PromptNew&#40;&#41; \n[/code:3jdjbud6]\n\nis working for me, you can see the image\n\n[img]\n<!-- m --><a class=\"postlink\" href=\"http://img300.imageshack.us/my.php?image=sshot1nb8.png\">http://img300.imageshack.us/my.php?image=sshot1nb8.png</a><!-- m -->\n[/img]\n\nRegards,\n\nFelix','',0,'AIA=','3jdjbud6',1,0,'',177,0,0),(21778,4920,6,292,0,'201.242.155.247',1163501232,1,0,1,1,1,1,'','','Alfredo,\nMuchas gracias, \ndevuelve 0,  en que lib está?\n\n[quote=&quot;Alfredo Arteaga&quot;:1win3ip6]aDrv:=ADrives()  // para obtener las unidades disponibles[/quote:1win3ip6]','',0,'gA==','1win3ip6',1,0,'',292,0,0),(21779,4904,6,838,0,'80.34.222.112',1163501962,1,0,1,1,1,0,'','','Vuelvo a retomar el tema\n\nHe observado que, como si declaro el group se queda opaco todo lo que hay dentro de él, si voy haciendo click con el ratón  van apareciendo los get con sus valores, y los says transparentes que hay donde hago click.\n\nSerá entonces tema de refresco o algo aí?, porque he desmontado entero el prg y sigue igual. o es que las librerias que utilizo interfieren, como btnget.\n\nUn saludo\n\nJose Luis','',0,'gA==','9jhobq1i',1,0,'',838,0,0),(21780,4779,5,2,0,'87.218.146.249',1163502586,1,0,1,1,1,1,'','','Using a VFP form from FiveMac:\n[url=http&#58;//imageshack&#46;us:fdjxtqfy][img:fdjxtqfy]http&#58;//img218&#46;imageshack&#46;us/img218/9350/vfpkf7&#46;png[/img:fdjxtqfy][/url:fdjxtqfy]\n[url=http&#58;//imageshack&#46;us:fdjxtqfy][img:fdjxtqfy]http&#58;//img80&#46;imageshack&#46;us/img80/5204/picture1we2&#46;png[/img:fdjxtqfy][/url:fdjxtqfy]','',0,'GA==','fdjxtqfy',1,0,'',2,0,0),(21781,4780,8,2,0,'87.218.146.122',1163502991,1,0,1,1,1,1,'','','Usando un form de VFP desde FiveMac:\n[url=http&#58;//imageshack&#46;us:2emxvpz7][img:2emxvpz7]http&#58;//img218&#46;imageshack&#46;us/img218/9350/vfpkf7&#46;png[/img:2emxvpz7][/url:2emxvpz7]\n[url=http&#58;//imageshack&#46;us:2emxvpz7][img:2emxvpz7]http&#58;//img80&#46;imageshack&#46;us/img80/5204/picture1we2&#46;png[/img:2emxvpz7][/url:2emxvpz7]','',0,'GA==','2emxvpz7',1,0,'',2,0,0),(21782,4923,3,267,0,'200.208.238.2',1163503912,1,0,1,1,1,1,'','ADSBEGINTRANSACTION(&lt;hConnect&gt;)','Hi,\n\nHow I can get &lt;hConnect&gt; to use in ADSBEGINTRANSACTION()?','',0,'GA==','3bpihgyl',1,0,'',267,0,0),(21783,4904,6,362,0,'200.168.52.156',1163505015,1,0,1,1,1,1,'','','Holá...\n\nUsted Debes usar, BUTTON STYLE,  y no RECURSOS BORLAND.\n\nGROUP BOX.\n\n\nRegards, Saludos.','',0,'GA==','18wou35u',1,0,'',362,0,0),(21784,4841,6,49,0,'213.82.134.66',1163505409,1,0,1,1,1,1,'','','rossine send at private email','',0,'GA==','1rvxms74',1,0,'',49,0,0),(21785,4915,3,6,0,'87.20.218.232',1163508603,1,0,1,1,1,1,'','','Can you fix the problem or report it to the Harbour developers list?\n\nEMG','',0,'GA==','3lxr7up7',1,0,'',6,0,0),(21786,4915,3,2,0,'87.218.146.52',1163508807,1,0,1,1,1,1,'','','Enrico,\n\nWe are going to revert that change, that I wrongly introduced for building with MSVC, as its already solved.','',0,'GA==','1e4qutsy',1,0,'',2,0,0),(21787,4904,6,838,0,'80.34.222.112',1163509030,1,0,1,1,1,0,'','','El recurso está hecho con PellesC, el que funcionaba con Fivewin estaba hecho con Worshop.\n\nSaludos\n\nJose Luis','',0,'GA==','2j5mh4q9',1,0,'',838,0,0),(21788,4915,3,6,0,'87.20.218.232',1163509131,1,0,1,1,1,1,'','','Yes, I just read it in the developers list.\n\nThank you.\n\nEMG','',0,'GA==','18tfqv6x',1,0,'',6,0,0),(21789,4924,6,41,0,'200.87.67.10',1163509423,1,0,1,1,1,0,'','Rebar y Toolbar','Hola,\n\n* es posible tener mas de una toolbar, eso esta ok, pero la pregunta es como hago para que estas se visualicen una encima de otra al inicio, no una tras otra sin tener que arrastrarlas manualmente.\n\n* Otra las toolbars tienen botones como puede definir que uno de los botones se quede pressed como se hacia utilizando la DATA lpressed\n\nGracias\n\nMarcelo\n\nP.D. estoy tras de hacer mi propio SUDOKO a la FW <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3mho24ox',1,0,'',41,0,0),(21790,4923,3,32,0,'168.209.98.43',1163510052,1,0,1,1,1,0,'','Connection handle','Hi,\n\nUse AdsConnection()\n\nMight I suggest that you put your ads questions on the Xhb newsgroup? You\'ll find a lot more ads users there <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAlex','',0,'GA==','1yhwz443',1,0,'',32,0,0),(21791,4910,6,73,0,'200.66.32.97',1163513592,1,0,1,1,1,0,'','','Osvaldo, la tarjeta la revise y esta ok, el sistema lo probe en otras 3 pc y hace lo mismo.\nAntonio, no uso degradados directamente sobre el dialogo uso exclusivamente color:\n\nDEFINE DIALOG oDlg RESOURCE \"PV2100\" COLOR nRGB(0,64,128),nRGB(0,64,128)\n\nACTIVATE DIALOG oDlg CENTERED ;\n         ON INIT ( Inicia(), Msg_Barra(oDlg,oMsg,oMsgItem,oFnt) ) ;\n         VALID ( Checa(@oBTmp,@lSalir),IF(lSalir .OR. lCorteCaja,.T.,lSalir) )\n\nla funcion Inicia()=inicializacion de variables y funciones\n\nPero uso 5 veces la \"vbox\"  para los GROUP uno de ellos tiene degradado:\n\nREDEFINE GROUP ID 901 OF oDlg LABEL Des_Fecha(dFecha,\" de \",.f.,.t.,.t.) ;\n               COLOR CLR_YELLOW TRANSPARENTE DERECHA FONT oFnt[1]\n      REDEFINE GROUP ID 902 OF oDlg LABEL \"\" COLOR CLR_WHITE,CLR_RED TRANSPARENTE\n      REDEFINE GROUP ID 903 OF oDlg LABEL \"\" COLOR CLR_WHITE,CLR_RED\n      REDEFINE GROUP ID 904 OF oDlg LABEL \"\" COLOR CLR_WHITE,CLR_BLACK\n      REDEFINE GROUP ID 905 OF oDlg LABEL \"\" COLOR nRgb(85,143,253),{rgb(255,255,255),rgb(218,222,219)}\n\n\nAparte uso TsButton y casi todos los botones tienen degradado:\n\n      REDEFINE SBUTTON oBtns[1] ID 301 OF oDlg ;\n         RESOURCE \"F2\" ;\n         CAPTION \"Agrega\"+CRLF+\"Partida\" ;\n         TEXT 3 ;\n         COLORS { |oBtn| If( oBtn:lMouseOver, CLR_GRAY, CLR_BLACK) }, { nRGB(255,255,255), nRGB(160,160,160), 3 } ;\n         FONT oFnt[8]\n\nUtilizo de terceros lo siguiente:\nBtnGet, TsButton, Ssay, vBox\n\nGracias.\nPaco','',0,'','2bjezcpz',1,0,'',73,0,0),(21792,4910,6,2,0,'87.218.146.52',1163513879,1,0,1,1,1,1,'','','Paco,\n\nEl problema suele ser por los degradados que enlentecen el proceso de pintado. \n\nIntenta probar la aplicación sin usar degradados, aunque sea modificando esas clases para que no lo usen.','',0,'','2al1k7i4',1,0,'',2,0,0),(21793,4904,6,362,0,'200.168.52.156',1163516630,1,0,1,1,1,1,'','','#Define CLR_BERMEJO  nRGB( 255, 000, 000 )  //--&gt; Vermelho Para a Letra\n#Define CLR_AMARILLO nRGB( 255, 255, 000 ) //--&gt; Amarelo Para o Fundo\n\n    //-&gt; Color en el Group Box de la Dialog\n    REDEFINE GROUP oGroup ID 501 COLOR CLR_BERMEJO, CLR_AMARILLO   OF oDlg    ;\n             FONT oFont TRANSPARENT\n\nConmigo, funciona perfecto.  Uso BUTTON STYLE de WorkShop.Exe\n\nSaludos.','',0,'','bgd6oy0b',1,0,'',362,0,0),(21794,4894,3,65,0,'88.255.17.70',1163517132,1,0,1,1,1,0,'','','Thanks for your help.\n\nBirol','',0,'','2j5yilel',1,0,'',65,0,0),(21795,4920,6,72,0,'189.146.13.31',1163517172,1,0,1,1,1,0,'','','Mmmm... está en FiveH y FiveHX, en versiones anteriores FiveC.\n\nLa rutina está en FileName.Prg y Drives.C.','',0,'','u0v9bm5a',1,0,'',72,0,0),(21796,4780,8,255,0,'189.140.234.203',1163519861,1,0,1,1,1,1,'','','Antonio, esto se ve muy interesante...\nDime... para editar los recursos se usaria Visual fox pro ???','',0,'','16vlaxxw',1,0,'',255,0,0),(21797,4923,3,41,0,'200.87.67.10',1163520584,1,0,1,1,1,0,'','','Hi,\n\ncheck the parameter #6 of the adsconnect60 function \n\nsaludos\n\nMarcelo','',0,'','a10v2jhz',1,0,'',41,0,0),(21798,4925,19,26,0,'84.52.130.249',1163521757,1,0,1,1,1,1,'','MSDN Library and DDK available as free download!','Hello!\n\nMSDN Library August 2006\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=6671f8da-b0cb-41de-ad93-798fc71d344d&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->\n\nDDK Windows Driver Development Kit\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/whdc/devtools/ddk/default.mspx\">http://www.microsoft.com/whdc/devtools/ddk/default.mspx</a><!-- m -->\n\nRoman','',0,'','1ljgbjuy',1,0,'',26,0,0),(21799,4912,2,304,0,'201.155.7.216',1163522719,1,0,1,1,1,0,'','','Hola Antonio, fijate que quite todos los sub programas, dejando solo el menu principal para saber si habia algo mal en la programacion, y aun se inhibe, esto solo pasa con windows xp sp2.\nincluso con maquinas q se acaban de formatear, tambien lo hace con maquinas dell y hp con software prehinstalado, que puede ser ????\nsaludos\ngracias por tu ayudo\nveracruz, mexico','',0,'','y0di1t20',1,0,'',304,0,0),(21800,4919,1,138,0,'189.141.64.226',1163523643,1,0,1,1,1,1,'','','Muy facil Juan:\n\nIF File (\"H:\\.\") // notese el punto \".\" al final\n   MsgInfo(\"La unidad H existe\nENDIF\n\nel punto \".\" es un archivo del sistema operativo que indica \"directorio actual\" no se exactamente como funciona, pero en todas las carpeta existe el famoso \".\" y los dos puntos \"..\" que hacen referencia al directorio anterior. De tal forma que si quieres saber si existe una unidad determianda, simplemente haces refencia al punto, inidicando la unidad deseada y la carpeta razi (todas las unidads tienen carpeta raiz)','',0,'','2k2imrrm',1,0,'',138,0,0),(21801,4913,6,138,0,'189.141.64.226',1163524187,1,0,1,1,1,1,'','','Armando:\n\nUtiliza la clase TIMAGE que utiliza archivos JPG, GIF, etc, \n\nEl mejor resultado se obtiene cuando utilizas la DLL FreeIMAGE, tiene mejor controlado el tema del despliegue de imagenes, y practicamente no tienes que cambiar nada de la programacion porque la Freeimage trae una clase TIMAGE clon de la de FiveWn, pero diseñada para manejar esa DLL-','',0,'','3nr01xx7',1,0,'',138,0,0),(21802,4910,6,73,0,'200.66.32.97',1163525798,1,0,1,1,1,0,'','','ya quite los degradados de los group y de lo sbutton, sin quitar las clases unicamente el degradado, pero no se corrigio <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nVoy a probar usando unicamente controles nativos a ver como funciona aunque sacrifique apariencia.\ngracias\nPaco','',0,'','3vwwxsbc',1,0,'',73,0,0),(21803,4900,3,98,0,'70.71.111.92',1163526156,1,0,1,1,1,1,'','','Vilian:\n\nNo problem... but I\'m Luis, not Antonio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote=&quot;vilian&quot;:3kkozrcy]Hi antonio,\n\nThanks,[/quote:3kkozrcy]','',0,'gA==','3kkozrcy',1,0,'',98,0,0),(21804,4683,2,507,0,'200.67.110.120',1163526424,1,0,1,1,1,1,'','modstruc','Hola, yo tengo una funcion que hace eso sin tantas ondas raras, mandame un mail <!-- e --><a href=\"mailto:rubio.luisfernando@gmail.com\">rubio.luisfernando@gmail.com</a><!-- e --> y te lo paso...\n\nLuis Fernando Rubio\nTequila, Jalisco, Mexico.','',0,'gA==','k9gq721y',1,0,'',507,0,0),(21805,4926,6,854,0,'200.95.238.251',1163528584,1,0,1,1,1,0,'','En busca de TALbum para xHarbour','Que tal saludos.\n\nEstoy buscando la clase Talbum que viene una archivo que se llama ces.obj, alguien tendria esta clase ya modificada para xharbour.\n\nGracias.','',0,'gA==','34zlj0c8',1,0,'',854,0,0),(21806,4893,6,207,0,'148.233.32.164',1163530155,1,0,1,1,1,0,'','','Gracias amigos, vere la tdwg, si encuentras algo Alfredo, te lo agadeceré mucho, ya que es la primera vez que me pongo a trabajar  con coordenadas geodesicas y soy novato en esto.\n\nun saludo cordial','',0,'gA==','y9fpj4lg',1,0,'',207,0,0),(21807,4912,2,248,0,'212.145.179.68',1163531733,1,0,1,1,1,0,'','','Hola, usas parametros para ejecutar la aplicacion.Si es asi fijate si hay un espacio entre el el exe y la / del parametro. \nHay problemas si no hay ese espacio.No se si sera eso.\n\n¿Es una aplicacion ejecutada a traves de la red?','',0,'gA==','1g67503n',1,0,'',248,0,0),(21808,4912,2,248,0,'212.145.179.68',1163531928,1,0,1,1,1,0,'','','una cosa más ¿Has revisado en visor de sucesos?','',0,'gA==','2tv75quj',1,0,'',248,0,0),(21809,4927,6,180,0,'81.38.52.38',1163532781,1,0,1,1,1,0,'','Error irrecuperable 9020','Existe un límite en la declaración de variables locales en un PRG ?\nCuando declaro más de 250 variales locales (aproximandamente) me sale el mensaje [color=darkred:9lt4ticu]error irrecuperable 9020 : un item estaba siendo copiado sobre sí mismo desde hb_itemForwardValue()[/color:9lt4ticu]\nSaludos,\nManuel','',0,'Ag==','9lt4ticu',1,0,'',180,0,0),(21810,4780,8,2,0,'87.218.146.52',1163534269,1,0,1,1,1,1,'','','Juan Carlos,\n\nSí, así es, aunque la idea principal es permitirle a los usuarios de VFP reusar sus pantallas en Mac OSX, sin tener que volver a crearlas.','',0,'Ag==','1cgr7r0a',1,0,'',2,0,0),(21811,4913,6,2,0,'87.218.146.52',1163534661,1,0,1,1,1,1,'','','Armando,\n\nRevisa samples\\TestImg.prg','',0,'Ag==','g6gv5fug',1,0,'',2,0,0),(21812,4927,6,2,0,'87.218.146.52',1163534831,1,0,1,1,1,1,'','','Manuel,\n\nSería beneficioso para todos que lo reportes en la lista de desarrollo de Harbour ó xHarbour para que se revise, gracias.','',0,'Ag==','223mgjlr',1,0,'',2,0,0),(21813,4902,6,104,0,'201.58.23.155',1163535810,1,0,1,1,1,0,'','','Olá Pessoal,\n\nEu realmente estou precisando muito disto. Alguém poderia me ajudar ??\n\nObrigado,\n\nRossine.','',0,'Ag==','2n9ufnvb',1,0,'',104,0,0),(21814,4893,6,72,0,'189.146.13.31',1163536717,1,0,1,1,1,0,'','','Ya busque la rutina y no la encontré (seguramente se fue al cesto), me puse a ver por la red y la mejor referencia sobre GIS (Geographic Information System) la vi en Wikipedia.\n\nEnviame un mensaje a mi privado y te envio un artículo del Doctor Guzman Arenas que describe un algoritmo para la determinación de áreas en superficies curvas o búscalo en la red.','',0,'Ag==','somu31s1',1,0,'',72,0,0),(21815,4609,6,207,0,'148.233.32.164',1163539240,1,0,1,1,1,0,'','','Hay buenas noticias, para Miguel Angel \"el loco\".Segun vi en el noticiero hay unas nuevas capsulas para diabeticos, son a base de saliva del monstruo de Gila (un reptil de Sonora en México), este medicamento provee una sustancia que dejan de productir las personas diabeticas, mejorando con esto su calidad de vida y ayuda a evitar hasta la ceguera.\npor el momento se esta comercializando en EEUU y en un año estará en México. \n\nSuerte y Animo.\n\nPD. (perdon si te produce asco)','',0,'Ag==','2daut1cp',1,0,'',207,0,0),(21816,4902,6,785,0,'190.64.107.119',1163539245,1,0,1,1,1,0,'','','Rossine:\nAqui va un ejemplo, no lo probe, pero se que funciona.\n(Usando FreeImade.DLL)\n\n#include \"FiveWin.ch\"\n\n#xcommand DEFINE IMAGE [&lt;oBmp&gt;] ;\n          [ &lt;resource: RESOURCE, NAME, RESNAME&gt; &lt;cResName&gt; ] ;\n          [ &lt;file: FILE, FILENAME, DISK&gt; &lt;cBmpFile&gt; ] ;\n          [ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n    =&gt; ;\n          &lt;oBmp&gt;:=TImage():Define( &lt;cResName&gt;, &lt;cBmpFile&gt;, &lt;oWnd&gt; )\n\nProcedure Main()\nLOCAL oBmp,oDlg\n\nDEFINE DIALOG oDlg FROM 0,0 TO 21,65 TITLE \"Test FreeImage\"\n\nDEFINE IMAGE oBmp FILE \"Test.jpg\" OF oDlg\n\noDlg:bPainted:={|hDC|PalBmpDraw(hDC,0,0,oBmp:hBitmap,,,0)}\n\nACTIVATE DIALOG oDlg CENTER\n\nMsgInfo( \"About to save the image to Test.png \")\n\noBmp:SaveImage( \"Test2.png\", 13)\n\nMsgInfo( \"Done!\" )\n\nRETURN\n\n\nSaludos\n\nRuben Fernandez','',0,'','1kuu704d',1,0,'',785,0,0),(21817,4904,6,838,0,'80.59.225.15',1163539616,1,0,1,1,1,0,'','','Lo acabo de solucionar.. Aleluya!\n\nPor si le ocurre a alguien más que sea tan torpe como yo, que ya es dificil, el fallo estaba en el recurso, ya fuera en rc o en res, algo en lo que no había pensado nunca, el orden de los identificadores del recurso.\n\nYo siempre los ponía por orden que quería que recibieran el foco, y siempre al final los que no quería que recibieran el foco nunca, Grupos, etc.; bueno pues ahí estaba el tema, que los grupos hay que ponerlos los primeros, para que sean transparentes a lo que venga después. Me he dado cuenta al agregar un nuevo control posterior a los grupos y que éste si era visible, vaya tonteria que me ha traido loco.\n\nUn saludo y gracias\n\nJose Luis','',0,'','20v4l903',1,0,'',838,0,0),(21818,4902,6,2,0,'87.218.146.52',1163541037,1,0,1,1,1,1,'','','Rossine,\n[code:640db2l3]\n&#46;&#46;&#46;\n    @ 0,  1 BUTTON &quot;Save&quot;  ACTION msgstop&#40; iif&#40; SaveJPG&#40; oImg &#41;, &quot;Image saved&quot;, &quot;Image not saved&#46; Why ??&quot; &#41; &#41; \n&#46;&#46;&#46;\nfunction SaveJPG&#40; oImg &#41;\n\n   local hBitmap &#58;= oImg&#58;hBitmap\n   local lResult &#58;= &#46;t&#46;\n   \n   oImg&#58;hBitmap = WndBitmap&#40; oImg&#58;hWnd &#41;\n   lResult = oImg&#58;SaveImage&#40; &quot;TESTE&#46;JPG&quot;, 2 &#41;\n   DeleteObject&#40; oImg&#58;hBitmap &#41;\n   oImg&#58;hBitmap = hBitmap\n\nreturn lResult\n[/code:640db2l3]','',0,'AIA=','640db2l3',1,0,'',2,0,0),(21819,4922,4,2,0,'87.218.146.52',1163541318,1,0,1,1,1,1,'','','Dutch,\n\nYou need to use a TBtnBmp instead of a TButton.','',0,'AIA=','3odh2684',1,0,'',2,0,0),(21820,4928,7,490,0,'88.15.176.156',1163542728,1,0,1,1,1,0,'','Duda respecto a directorios','Hola,\n\nNecesito estando la aplicación en el directorio:\n\n        Miapli\\  en la RAM o \n        \n       SD Card\\Miapli\\ en la tarjeta de memoria\n\n       Abrir una dbf en el raíz ¿ Cómo se averigua el raiz en cada uno de los casos ? ¿ Cual es el raíz de la RAM y de la tarjeta ?\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','2e59hzxn',1,0,'',490,0,0),(21821,4912,2,304,0,'201.155.7.216',1163543109,1,0,1,1,1,0,'','','Hola Garbi\nNo uso la aplicacion en red, esta instalado localmente en una computadora y no puedo ni siquiera saber q aplicacion la inhibe por que el mouse y el teclado tambien queden \"inhertes\" , queda bloqueada por completo,  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nsaludos','',0,'AIA=','2cwzdo8g',1,0,'',304,0,0),(21822,4913,6,53,0,'189.139.25.151',1163543979,1,0,1,1,1,1,'','','Porngo manos a la obra.\n\nMuchas gracias a ambos. Moustros !\n\nUn abrazo, Armando','',0,'AIA=','3v6evr45',1,0,'',53,0,0),(21823,4929,3,49,0,'62.13.172.78',1163544469,1,0,1,1,1,1,'','where is Jose Ignacio Jimenez Alarcon','some can give his email ?','',0,'AIA=','2bsgtfmd',1,0,'',49,0,0),(21824,4930,6,49,0,'62.13.172.78',1163544515,1,0,1,1,1,1,'','where is Jose Ignacio Jimenez Alarcon','some can give me his email ?','',0,'AIA=','1500knum',1,0,'',49,0,0),(21825,4914,4,2,0,'87.218.146.52',1163548945,1,0,1,1,1,1,'','','Bill,\n\nWe have been doing several tests and it looks as there are some troubles that we need to solve with the Harbour development team, so unfortunately we can not provide you a quick solution for this.\n\nBasically this is what we have tested:\n\n1. Copy buildce.bat to builddll.bat and modify it this way:\necho %1.obj %hdir%\\obj\\vc\\maindll.obj &gt; msvc.tmp\n...\n... link ... /DLL /ENTRY:DllEntryPoint\n\nmaindll.obj is not included in the Harbour for Pocket PC distribution, so we built it here. We may email it to you if you want  to try it.\n\nWe are not exactly sure about link /ENTRY:DllEntryPoint flag behavior. Acording to Microsoft docs, it should not be needed as DllEntryPoint() may be called automatically, but that was not the case. So we need to force its call.\n\nThe DLL gets properly built and it loads fine, but the Harbour virtual machine is not properly initialized. So it seems there is a problem somewhere in the startup code of the DLL that we need to trace.','',0,'AIA=','1layhnol',1,0,'',2,0,0),(21826,4928,7,2,0,'87.218.146.52',1163549377,1,0,1,1,1,1,'','','Joaquín,\n\nEl raiz de la tarjeta es \"SD Card\\\" y el raiz de la RAM es nada por defecto.\n\nPor ejemplo, si haces MemoWrit( \"test.txt\", \"123\" ) irá al raiz de la ram. Si haces MemoWrit( \"SD Card\\test.txt\", \"123\" ) irá al raiz de la tarjeta.','',0,'AIA=','1wba2op4',1,0,'',2,0,0),(21827,4914,4,224,0,'162.83.94.176',1163549719,1,0,1,1,1,1,'','','Antonio,\n\nThank you for your efforts!  I hope the problem can be tracked down without too much effort.  If you don\'t mind emailing the maindll.obj file to me that would be appreciated.\n\nThanks,','',0,'AIA=','3fyrqk9w',1,0,'',224,0,0),(21828,4923,3,267,0,'201.9.142.191',1163551609,1,0,1,1,1,1,'','','Hi,\n\nThanks','',0,'AIA=','2qqv7h7u',1,0,'',267,0,0),(21829,4914,4,2,0,'87.218.146.52',1163551942,1,0,1,1,1,1,'','','Bill,\n\nWe have solved it! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\n/ENTRY:DllEntryPoint is NOT needed, but hb_vmInit() has to be called from HBDLLENTRY() as DllEntryPoint() is not automatically called by the DLL startup (this is just a reminder for me <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ).\n\nWe email you a working sample and the required files,','',0,'AIA=','37dbeac4',1,0,'',2,0,0),(21830,4922,4,47,0,'203.144.143.8',1163554159,1,0,1,1,1,0,'','TBtnBmp does support color clause?','Dear Antonio,\n\nDoes TBtnBmp support color clause?\n\nBest regards,\nDutch','',0,'AIA=','3m30iw8w',1,0,'',47,0,0),(21831,4834,1,186,0,'66.130.50.142',1163557409,1,0,1,1,1,1,'','','Hi Biel,\n\n\nAt first look it seem like that`s what I was looking for. I will get on it this coming weekend.\n\nThanks \n\nGilbert','',0,'AIA=','3kma1b6s',1,0,'',186,0,0),(21832,4931,1,186,0,'66.130.50.142',1163558128,1,0,1,1,1,1,'','Message to Badara','Hi Badara,\n\nI started doing some testing with your Printer functions. It works fine execpt for WinDefPrn(). Works well with 98, 98SE and ME but not for 2000.\nDid`nt check XP yet...\n\nWhen I looked at Windows 2000 register HKEY_CURRENT_CONFIG,\nSystem\\CurrentControlSet\\Control\\Print\\Printers has no value in `Default`\nSo it`s returning nothing. Thus not detecting the default printer.\n\nI will check for XP tonight to see if there is any differences.\n\nI also have another question. Is it possible, from the Windows register, to somehow detect what type of printer it correspond to.\nex.: Laser, InkJet, Dot Matrix or Thermal.\n\nI closely examined the register and could not figure out if this information was present. But I tought it was hidden somewhere esle.\n\nRegards,\n\nGilbert','',0,'AIA=','ad4w8gi1',1,0,'',186,0,0),(21833,4904,6,582,0,'201.252.85.126',1163564593,1,0,1,1,1,0,'','Re: Transparencias','[quote=&quot;JoseLuis&quot;:2nrd3ibo]Hola amigos\n\nSegunda pregunta:\n\nQuiero utilizar para editar recursos pellesc, pero cuando abro un .RC, me lo presenta en modo texto y no se como ponerlo en visualización como Worshop para ver dialogos, bmps, etc.\n\nJose Luis[/quote:2nrd3ibo]\n\nEl PellesC te permite trabajar perfectamente con archivos .rc.\nLo que te esta pasando es que debes tener algun parametro o sentencia dentro del archivo .rc que el PellesC no encuentra o no \"entiende\".\nPor ejemplo no encuentra la ruta de un archivo .ch o .h o algun bmp.\nCuando todo esta bien el PellesC, por defecto te lo abre tipo el WorkShop.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','2nrd3ibo',1,0,'',582,0,0),(21834,4609,6,582,0,'201.252.85.126',1163565050,1,0,1,1,1,0,'','','[quote=&quot;Miguel Salas&quot;:4rqi5b50]Hay buenas noticias, para Miguel Angel \"el loco\".Segun vi en el noticiero hay unas nuevas capsulas para diabeticos, son a base de saliva del monstruo de Gila (un reptil de Sonora en México), este medicamento provee una sustancia que dejan de productir las personas diabeticas, mejorando con esto su calidad de vida y ayuda a evitar hasta la ceguera.\npor el momento se esta comercializando en EEUU y en un año estará en México. \n\nSuerte y Animo.\n\nPD. (perdon si te produce asco)[/quote:4rqi5b50]\n\nGracias tocayo por la info.\nYa mi medico me la habia comentado.\nPero no es para todos, depende del tipo de diabetes que tengas.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','4rqi5b50',1,0,'',582,0,0),(21835,4932,1,173,0,'203.190.250.105',1163570255,1,0,1,1,1,0,'','How to fix it ?','Dear all,\n\n\n*-----------------------*\nfunction Main()\n\nlocal odlg,ofol,oget,obtn\nlocal cVar := space(5),lsave := .f.\nlocal [color=red:1cmd3dfh]nVar[/color:1cmd3dfh] := 0\n\nopen file xx\n\ndefine dialog...\n\n   @ 5,5 folder ofol ....\n   \n   ofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol,[color=red:1cmd3dfh]nVar[/color:1cmd3dfh]),)}\n\n   @ 5,5 Get oget Var cVar....Of oFol:aDialogs[1]\n\n   @ 10,10 button obtn of odlg....action (lsave := .t.,odlg:end())\n\nactivate dialog...\n\nif lsave\n   xx-&gt;dbappend()\n  if xx-&gt;(rlock())\n    xx-&gt;1 := cVar\n    xx-&gt;2 := [color=red:1cmd3dfh]nVar[/color:1cmd3dfh]\n  endif\n  xx-&gt;(dbcommit())\n  xx-&gt;(dbunlock())\n   \nendif\n\n\nclose file xx\n\nReturn nil\n\n*-----------------*\nfunction OpenFol2(oFol,[color=red:1cmd3dfh]nVar[/color:1cmd3dfh])\nlocal oget\n\n@ 5,5 Get oget Var [color=red:1cmd3dfh]nVar[/color:1cmd3dfh]....of ofol:aDialogs[2]\n\nreturn Nil\n*---------------------*\n\n   Why I can not get anything in [color=red:1cmd3dfh]nVar[/color:1cmd3dfh] ? How to fix it for ture way ?\n\nBest Regrad,\n\nPeter\n\nPS. I\'m use Fw2.1c and Blinker 7','',0,'Ag==','1cmd3dfh',1,0,'',173,0,0),(21836,4899,3,148,0,'196.205.220.211',1163571812,1,0,1,1,1,0,'','','Adding buttons in such way overlaps the columns of xbrowse .\n[code:24k2wv3b]\n\nSTATIC FUNCTION NewDialog&#40; oWnd &#41; \n\n   local oDlg, oBrw, oCol \n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;Customer browse &quot;\n\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT oBrw &#58;= BuildBrowse&#40; oDlg &#41;\n\n\n\nRETURN NIL \n\nfunction BuildBrowse&#40; oDlg &#41; \n    \n   local oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n\n  oBrw&#58;CreateFromCode&#40;&#41;\n  oDlg&#58;oClient&#58;=oBrw\n\n  oDlg&#58;ReSize&#40;&#41;\n\n   @ 17,   1 BUTTON &quot;&amp;New&quot;    OF oDlg SIZE 40, 12 //ACTION Editcust&#40; oLbx, &#46;t&#46; &#41;\n   @ 17,  8 BUTTON &quot;&amp;Modify&quot; OF oDlg SIZE 40, 12 //ACTION Editcust&#40; oLbx, &#46;f&#46; &#41;\n   @ 17, 15 BUTTON &quot;&amp;Delete&quot; OF oDlg  SIZE 40, 12 //ACTION Delrecord&#40; oLbx &#41;\n   @ 17, 22 BUTTON &quot;&amp;Search&quot; OF oDlg SIZE 40, 12 //ACTION SeekCust&#40; oLbx &#41;\n   @ 17, 29 BUTTON &quot;&amp;Print&quot;  OF oDlg \n      //ACTION oLbx&#58;Report&#40; &quot;Customers  Report&quot;, &#46;t&#46; &#41; ;  // &#46;t&#46; --&gt; wants preview\n      //SIZE 40, 12\n   @ 17, 36 BUTTON &quot;&amp;Exit&quot;   OF oDlg //ACTION oDlg&#58;End&#40;&#41; SIZE 40, 12\n\n   @ 18,  1 BUTTON &quot;&amp;Order&quot;    OF oDlg //ACTION ordercust&#40;oLbx&#41; SIZE 40, 12\n   @ 18,  8 BUTTON &quot;&amp;Filter&quot;    OF oDlg //ACTION filtercust&#40;oLbx&#41; SIZE 40, 12\n   @ 18,  15 BUTTON &quot;&amp;Unfilter&quot; OF oDlg //ACTION Nonfiltercust&#40;oLbx&#41; SIZE 40, 12\n\nreturn oBrw \n[/code:24k2wv3b]','',0,'AIA=','24k2wv3b',1,0,'',148,0,0),(21837,4933,7,533,0,'88.9.154.197',1163572960,1,0,1,1,1,0,'','Escritorio Remoto','Buenos Días Foro!!\n\n   Mirad, tengo una aplicación a la que se conectan por escritorio remoto, esta aplicación me generera una impresión en tickets perfectamente, pero el problema es que tengo que aperturar el cajon portamonedas que está enchufado a la impresora de ticket, y es que como sabeis la clases tprinter no acepta secuencias de escape con lo cual no puedo abrir el cajón. Con tdosprn, el problema es que tengo que imprimir en un puerto, y en cada sesion de escritorio remoto me pueden asignar un puerto distinto, con lo cual no se el puerto a enviar secuencias de escape. ¿alguna idea?\n\nGRACIAS DE ANTEMANO','',0,'AIA=','1fksycyd',1,0,'',533,0,0),(21838,4934,6,533,0,'88.9.154.197',1163573563,1,0,1,1,1,0,'','TIMER','Buenos días foro: \n\n   Tengo 1 máquina con dos sesiones abiertas de MS-DOS, en una de ellas ejecuto el programa que a continuación os propongo, en la otra sesión genero el fichero que necesita la primera sesión. Bueno, pues el timer se vuelve loco. Espero haberme explicado correctamente:\n\n\n// This sample shows how to call a function in an interval time.\n#include \"FiveWin.ch\"\nstatic oWnd\n/----------------------------------------------------------------------------//\nfunction Main()\n   local oTmr\n   DEFINE WINDOW oWnd TITLE \"Checking File\"\n      DEFINE TIMER oTmr INTERVAL 1 ACTION CheckFile(oTmr) OF oWnd\n      ACTIVATE TIMER oTmr\n   ACTIVATE WINDOW oWnd ICONIZED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction CheckFile(oTmr)\n\n   if file (\"c:\\pruebras.txt\")\n      oTmr:Deactivate\n      waitrun(\"apertura.exe\") &lt;--Este programa no tarda nada en ejecutarse\n     ferase(\"C:\\pruebas.txt\")\n    oTmr:Activate\n   endif\nreturn nil\n\n\n\n//Como podeis observar este programa lo único que hace es estar observando si existe un fichero en un sitio determinado, bueno pues cuando existe no para de ejecutar &lt;apertura.exe&gt;[/b]','',0,'','1y7ne8t6',1,0,'',533,0,0),(21839,4935,6,533,0,'88.9.154.197',1163573842,1,0,1,1,1,0,'','Escritorio Remoto','Buenos días denuevo foro:\n\n   Imaginad que estoy conectado por escritorio remoto y en dicha sesion de escritorio ejecuto mi aplicación, imprimo una serie de tickets sin ningún problema, pero me piden que cuando los imprima, abra un cajon portamonedas, para abrir el cajon necesito imprimir secuencias de escape en la impresora, y para ello necesito saber un puerto a enviar a tdosprn!\n\nalguna idea','',0,'','2kiinbb2',1,0,'',533,0,0),(21840,4936,3,678,0,'168.209.98.43',1163574322,1,0,1,1,1,1,'','Image2Pdf.dll','We have purchased this cool product that converts rPreview emf files to pdf via a dll (not a printer driver).\n\nWe have modified our rPreview to allow the user to click a btn to very easily send the preview to a pdf. Becuase it uses a dll instead of a printer driver its convenient and fast as well.\n\nTheir support has been excellent in resolving a pie graph issue we had.\n\nI can recommend ths product to others.\nPeter','',0,'','35anqgkl',1,0,'',678,0,0),(21841,4937,3,846,0,'200.140.89.217',1163577884,1,0,1,1,1,0,'','DICA - COMO TRABALHAR COM VETOR E GET','AUTOR  : DORNELES\nEMPRESA: SOFT-TRES \nPAIS   : BRASIL\n\nEssa funcao, ja utilizo em clip 5.3 a muito tempo, passei a utilizar\ntambem no fivewin, o grande diferencial dela, é o ganho de tempo no \ndesenvolvimento e sua utilizacao é bem simples, porque ela cria um \nvetor do arquivo(dbf) com o nomes dos campo, ela e semelhante a \nDATABASE. É uma alternativa para quem não quer ficar declarando as variavel.\n\nPara utilizar a D3 tem que ter um arquivo cabecalho.ch com os nomes dos \ncampo(D3CH gera o arquivo cabecalho com os campo)\n\n\n   Ex. CLIENTE.CH  //conteudo do arquivo cabecalho\n	#xtranslate.cl_codigo     =&gt; \\[01]\n	#xtranslate.cl_nome       =&gt; \\[02]\n	#xtranslate.cl_endereco   =&gt; \\[03]\n	#xtranslate.cl_cidade     =&gt; \\[04]\n	#xtranslate.cl_cpf        =&gt; \\[05]\n		\n\n[code:tsc5wa11]\n#INCLUDE &quot;&#46;\\Include\\FiveWin&#46;ch&quot;\n#INCLUDE &quot;&#46;\\Include\\cliente&#46;Ch&quot;\n#include &quot;&#46;\\Include\\error&#46;ch&quot;\n\n******************\nFUNCTION CLIENTE&#40;&#41;\n******************\nSTATIC aGetCli  &#58;= &#123;&#125;\nSTATIC oGetCli  &#58;= &#123;&#125;\nSTATIC oDlg\n\nIF !AbreDbfNtx&#40;&#123;&quot;Cliente&quot;&#125;&#41; //abertura do arquivo\n    RETURN NIL\nEND\n\nSelect Cliente\nSet orde TO 1\nGO BOTTOM\nSKIP\naGetCli &#58;= D3GET&#40;&#41; //carregar o vetor\noGetCli &#58;= D3GET&#40;&#41; \n\nDEFINE DIALOG oDlg RESOURCE 1032 ;\n  TITLE &quot;Cadastro de Cliente&quot;\n\n    REDEFINE TBTNGET oGetCli&#46;cl_codigo VAR aGetCli&#46;cl_codigo ID 4095 PICTURE &quot;@E 999999999999999&quot;  OF oDlg ;\n    VALID AchaCliente&#40;@aGetCli&#41; UPDATE\n\n    REDEFINE TBTNGET oGetCli&#46;cl_nome     VAR aGetCli&#46;cl_nome     ID 4001 OF oDlg PICTURE &quot;@!&quot; \n    REDEFINE TBTNGET oGetCli&#46;cl_endereco VAR aGetCli&#46;cl_endereco ID 4002 OF oDlg PICTURE &quot;@!&quot;\n    REDEFINE TBTNGET oGetCli&#46;cl_cidade   VAR aGetCli&#46;cl_cidade   ID 4003 OF oDlg PICTURE &quot;@!&quot;\n    REDEFINE TBTNGET oGetCli&#46;cl_cpf      VAR aGetCli&#46;cl_cpf      ID 4004 OF oDlg PICTURE &quot;@e 999&#46;999&#46;999-99&quot; VALID CPF&#40;@aGetCli&#41;		\n\n    REDEFINE BUTTON ID 4002 OF oDlg WHEN !lBotaoR ACTION &#40;GravaCli&#40;@aGetCli&#41;&#41; UPDATE\n    REDEFINE BUTTON ID 701  OF oDlg WHEN !lBotaoR ACTION &#40;Cancela&#40;oGetCli,@aGetCli&#41;&#41; UPDATE CANCEL\n\nACTIVATE DIALOG oDlg CENTERED ON MOVE&#40;oDlg&#58;Center&#41;\n\nCLOSE Cliente\n\nEndDialog&#40;&#41;\noDlg&#58;End&#40;&#41;\nRelease All\nSysRefresh&#40;&#41;\n\nRETURN\n\n************************************\nSTATIC FUNCTION AchaCLIENTE&#40;aGetCli&#41;\n************************************\n  LOCAL lRetorno &#58;= &#46;F&#46;\n\n  Select Cliente\n  Set ORDE TO 2\n\n  IF Cliente-&gt;&#40;DbSeek&#40;aGetCli&#46;codigo&#41;&#41;\n     aGetCli &#58;= D3GET&#40;&#41;\n     lRetorno &#58;= &#46;T&#46;		\n  ENDIF\n\n  RefreshObj&#40;&#41;\n\n  RETURN&#40;lFound&#41;\n\n*******************************************************************************\nSTATIC FUNCTION CPF&#40;aGetCli&#41;		\n****************************\n\n IF ValCPF&#40;aGetCli&#46;cl_cpf&#41;\n    RETURN&#40;&#46;T&#46;&#41;\n ENDIF \n\n RETURN&#40;&#46;F&#46;&#41;\n*******************************************************************************\nSTATIC FUNCTION GravaCli&#40;aGetCli,modo&#41;\n**************************************\nLOCAL nCod &#58;= nID &#58;= 0\n\n\nSelect Cliente\nIF modo = &quot;I&quot; //inclusao\n\n   IF AddRec&#40;10&#41;\n      aGetCli&#46;cl_codigo &#58;= BuscaCodigo&#40;&quot;Codigo&quot;,1&#41;\n      D3Repl&#40;aGetCli&#41;\n      FINALI&#40;&#41;\n   ENDIF\n\nELSEIF modo = &quot;A&quot; //alteracao\n   IF BloqReg&#40;10&#41;\n      D3Repl&#40;aGetCli&#41;\n      FINALI&#40;&#41;\n   ENDIF\nENDIF\n\nlFound    &#58;= &#46;F&#46;\nlDisableR &#58;= &#46;F&#46;\nlBotaoR   &#58;= &#46;T&#46;\n\nSelect Cliente\nSet ORDE TO 1\nGO BOTTOM\nSKIP\naGetCli &#58;= D3GET&#40;&#41; \n\noGetCli&#46;cl_nome     &#58;Refresh&#40;&#41;\noGetCli&#46;cl_endereco &#58;Refresh&#40;&#41;\noGetCli&#46;cl_cidade   &#58;Refresh&#40;&#41;\noGetCli&#46;cl_cpf      &#58;Refresh&#40;&#41;\n\noDlg&#58;Update&#40;&#41;        // Atualiza os gets&#46;&#46;&#46;\noDlg&#58;aEvalWhen&#40;&#41;     // Reavalia os whens&#46;&#46;&#46;\n\nRETURN&#40;&#46;T&#46;&#41;\n*******************************************************************************\nFUNCTION D3Get&#40;&#41;\n****************\n   //\n   LOCAL aGets &#58;= ARRAY&#40;FCOUNT&#40;&#41;&#41;\n   //\n   AEVAL&#40;aGets,&#123;|x,nl| aGets&#91;nl&#93; &#58;= FIELDGET&#40;nl&#41;&#125;&#41;\n   //\nRETURN aGets\n*******************************************************************************\nFUNCTION D3Repl&#40;aGets&#41;\n**********************\n   //\n   AEVAL&#40;aGets,&#123;|x,nl| FIELDPUT&#40;nl,x&#41;&#125;&#41;\n   //\nRETURN NIL\n*******************************************************************************\n\n[/code:tsc5wa11]','',0,'AIA=','tsc5wa11',1,0,'',846,0,0),(21842,4938,6,846,0,'200.140.89.217',1163578258,1,0,1,1,1,0,'','DICA - COMO TRABALHAR COM VETOR E GET','AUTOR  : DORNELES\nEMPRESA: SOFT-TRES \nPAIS   : BRASIL\n\n\nEssa funcao, ja utilizo em clip 5.3 a muito tempo, passei a utilizar\ntambem no fivewin, o grande diferencial dela, é o ganho de tempo no \ndesenvolvimento e sua utilizacao é bem simples, porque ela cria um \nvetor do arquivo(dbf) com o nomes dos campo, ela e semelhante a \nDATABASE. É uma alternativa para quem não quer ficar declarando as variavel.\n\nPara utilizar a D3 tem que ter um arquivo cabecalho.ch com os nomes dos \ncampo(D3CH gera o arquivo cabecalho com os campo)\n\n\n   Ex. CLIENTE.CH  //conteudo do arquivo cabecalho\n	#xtranslate.cl_codigo     =&gt; \\[01]\n	#xtranslate.cl_nome       =&gt; \\[02]\n	#xtranslate.cl_endereco   =&gt; \\[03]\n	#xtranslate.cl_cidade     =&gt; \\[04]\n	#xtranslate.cl_cpf        =&gt; \\[05]\n		\n\n[code:1fbdr4df]\n\n#INCLUDE &quot;&#46;\\Include\\FiveWin&#46;ch&quot;\n#INCLUDE &quot;&#46;\\Include\\cliente&#46;Ch&quot;\n#include &quot;&#46;\\Include\\error&#46;ch&quot;\n\n******************\nFUNCTION CLIENTE&#40;&#41;\n******************\nSTATIC aGetCli  &#58;= &#123;&#125;\nSTATIC oGetCli  &#58;= &#123;&#125;\nSTATIC oDlg\n\nIF !AbreDbfNtx&#40;&#123;&quot;Cliente&quot;&#125;&#41; //abertura do arquivo\n    RETURN NIL\nEND\n\nSelect Cliente\nSet orde TO 1\nGO BOTTOM\nSKIP\naGetCli &#58;= D3GET&#40;&#41; //carregar o vetor\noGetCli &#58;= D3GET&#40;&#41; \n\nDEFINE DIALOG oDlg RESOURCE 1032 ;\n  TITLE &quot;Cadastro de Cliente&quot;\n\n    REDEFINE TBTNGET oGetCli&#46;cl_codigo VAR aGetCli&#46;cl_codigo ID 4095 PICTURE &quot;@E 999999999999999&quot;  OF oDlg ;\n    VALID AchaCliente&#40;@aGetCli&#41; UPDATE\n\n    REDEFINE TBTNGET oGetCli&#46;cl_nome     VAR aGetCli&#46;cl_nome     ID 4001 OF oDlg PICTURE &quot;@!&quot; \n    REDEFINE TBTNGET oGetCli&#46;cl_endereco VAR aGetCli&#46;cl_endereco ID 4002 OF oDlg PICTURE &quot;@!&quot;\n    REDEFINE TBTNGET oGetCli&#46;cl_cidade   VAR aGetCli&#46;cl_cidade   ID 4003 OF oDlg PICTURE &quot;@!&quot;\n    REDEFINE TBTNGET oGetCli&#46;cl_cpf      VAR aGetCli&#46;cl_cpf      ID 4004 OF oDlg PICTURE &quot;@e 999&#46;999&#46;999-99&quot; VALID CPF&#40;@aGetCli&#41;		\n\n    REDEFINE BUTTON ID 4002 OF oDlg WHEN !lBotaoR ACTION &#40;GravaCli&#40;@aGetCli&#41;&#41; UPDATE\n    REDEFINE BUTTON ID 701  OF oDlg WHEN !lBotaoR ACTION &#40;Cancela&#40;oGetCli,@aGetCli&#41;&#41; UPDATE CANCEL\n\nACTIVATE DIALOG oDlg CENTERED ON MOVE&#40;oDlg&#58;Center&#41;\n\nCLOSE Cliente\n\nEndDialog&#40;&#41;\noDlg&#58;End&#40;&#41;\nRelease All\nSysRefresh&#40;&#41;\n\nRETURN\n\n************************************\nSTATIC FUNCTION AchaCLIENTE&#40;aGetCli&#41;\n************************************\n  LOCAL lRetorno &#58;= &#46;F&#46;\n\n  Select Cliente\n  Set ORDE TO 2\n\n  IF Cliente-&gt;&#40;DbSeek&#40;aGetCli&#46;codigo&#41;&#41;\n     aGetCli &#58;= D3GET&#40;&#41;\n     lRetorno &#58;= &#46;T&#46;		\n  ENDIF\n\n  RefreshObj&#40;&#41;\n\n  RETURN&#40;lFound&#41;\n\n*******************************************************************************\nSTATIC FUNCTION CPF&#40;aGetCli&#41;		\n****************************\n\n IF ValCPF&#40;aGetCli&#46;cl_cpf&#41;\n    RETURN&#40;&#46;T&#46;&#41;\n ENDIF \n\n RETURN&#40;&#46;F&#46;&#41;\n*******************************************************************************\nSTATIC FUNCTION GravaCli&#40;aGetCli,modo&#41;\n**************************************\nLOCAL nCod &#58;= nID &#58;= 0\n\n\nSelect Cliente\nIF modo = &quot;I&quot; //inclusao\n\n   IF AddRec&#40;10&#41;\n      aGetCli&#46;cl_codigo &#58;= BuscaCodigo&#40;&quot;Codigo&quot;,1&#41;\n      D3Repl&#40;aGetCli&#41;\n      FINALI&#40;&#41;\n   ENDIF\n\nELSEIF modo = &quot;A&quot; //alteracao\n   IF BloqReg&#40;10&#41;\n      D3Repl&#40;aGetCli&#41;\n      FINALI&#40;&#41;\n   ENDIF\nENDIF\n\nlFound    &#58;= &#46;F&#46;\nlDisableR &#58;= &#46;F&#46;\nlBotaoR   &#58;= &#46;T&#46;\n\nSelect Cliente\nSet ORDE TO 1\nGO BOTTOM\nSKIP\naGetCli &#58;= D3GET&#40;&#41; \n\noGetCli&#46;cl_nome     &#58;Refresh&#40;&#41;\noGetCli&#46;cl_endereco &#58;Refresh&#40;&#41;\noGetCli&#46;cl_cidade   &#58;Refresh&#40;&#41;\noGetCli&#46;cl_cpf      &#58;Refresh&#40;&#41;\n\noDlg&#58;Update&#40;&#41;        // Atualiza os gets&#46;&#46;&#46;\noDlg&#58;aEvalWhen&#40;&#41;     // Reavalia os whens&#46;&#46;&#46;\n\nRETURN&#40;&#46;T&#46;&#41;\n*******************************************************************************\nFUNCTION D3Get&#40;&#41;\n****************\n   //\n   LOCAL aGets &#58;= ARRAY&#40;FCOUNT&#40;&#41;&#41;\n   //\n   AEVAL&#40;aGets,&#123;|x,nl| aGets&#91;nl&#93; &#58;= FIELDGET&#40;nl&#41;&#125;&#41;\n   //\nRETURN aGets\n*******************************************************************************\nFUNCTION D3Repl&#40;aGets&#41;\n**********************\n   //\n   AEVAL&#40;aGets,&#123;|x,nl| FIELDPUT&#40;nl,x&#41;&#125;&#41;\n   //\nRETURN NIL\n*******************************************************************************\n\n[/code:1fbdr4df]','',0,'AIA=','1fbdr4df',1,0,'',846,0,0),(21843,4927,6,180,0,'194.179.55.36',1163578583,1,0,1,1,1,0,'','','Por favor, le importaría a alguien poner el mensaje en el foro correspondiente. Mi ingles no es muy bueno.\nGracias.\n\nManuel','',0,'AIA=','q2g5hxal',1,0,'',180,0,0),(21844,4936,3,49,0,'213.82.134.66',1163579207,1,0,1,1,1,1,'','','I agree','',0,'AIA=','v49olaip',1,0,'',49,0,0),(21845,4939,3,80,0,'202.72.164.124',1163579399,1,0,1,1,1,0,'','Richedit','Hi All\n\n\nI am trying to get RichEdit to work but come up with un resolved externals\n\nxLINK: error: Unresolved external symbol \'_GetFileVersionInfoSizeA\'.\n\nxLINK: error: Unresolved external symbol \'_GetFileVersionInfoA\'.\n\nxLINK: error: Unresolved external symbol \'_VerQueryValueA\'.\n\nxLINK: fatal error: 3 unresolved external(s).\n\nI have tried to build the samples in \\fwh\\samples but get the same errors.\n\n\nCheers\n\nColin','',0,'AIA=','14lmmdbu',1,0,'',80,0,0),(21846,4922,4,456,0,'62.43.194.117',1163579706,1,0,1,1,1,1,'','','[code:21hu0k2s]oBtnBmp&#58;SetColor&#40; nClrText, nClrPane &#41; \n[/code:21hu0k2s]\n\nBest Regads','',0,'AIA=','21hu0k2s',1,0,'',456,0,0),(21847,4883,7,106,0,'85.34.123.173',1163580192,1,0,1,1,1,1,'','','Antonio: me han enviado las nuevas librerias creadas para ARMV4, pero me sigue dando errores.\n\n[code:30rv7k6f]\nteve&#46;c\n   Creating library teve&#46;lib and object teve&#46;exp\nteve&#46;obj &#58; error LNK2019&#58; unresolved external symbol &quot;int __cdecl Prt_TestPrint&#40;\nvoid&#41;&quot; &#40;?Prt_TestPrint@@YAHXZ&#41; referenced in function &quot;void __cdecl HB_FUN_PRT_T\nESTPRINT&#40;void&#41;&quot; &#40;?HB_FUN_PRT_TESTPRINT@@YAXXZ&#41;\nteve&#46;exe &#58; fatal error LNK1120&#58; 1 unresolved externals[/code:30rv7k6f]\n\n\n\nMi funcion:\n\n[code:30rv7k6f]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n//#include &lt;c&#58;\\lavwin\\teve\\mobitron\\inc\\printer&#46;h&gt;\n#include &lt;c&#58;\\lavwin\\teve\\mobitron\\inc\\printerNET&#46;h&gt;\n\nint Prt_TestPrint&#40; void &#41;;\n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   hb_retnl&#40; Prt_TestPrint&#40;&#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:30rv7k6f]\n\ny esto lo agregué en buildce.bat\n\n\n[code:30rv7k6f]\necho \\lavwin\\teve\\mobitron\\lib\\printerNET&#46;lib &gt;&gt; msvc&#46;tmp\necho \\lavwin\\teve\\mobitron\\lib\\printerAPI&#46;lib &gt;&gt; msvc&#46;tmp\n[/code:30rv7k6f]','',0,'AIA=','30rv7k6f',1,0,'',106,0,0),(21848,4899,3,2,0,'87.218.146.52',1163580357,1,0,1,1,1,1,'','','Ehab,\n\nThats because you are using oDlg:oClient:=oBrw and that means to use the entire dialog area.\n\nYou may change oDlg:oClient:=oBrw into:\n\noBrw:nTop = ...\noBrw:nLeft = ...\noBrw:nWidth = ...\noBrw:nHeight = ...','',0,'AIA=','3liwj3ly',1,0,'',2,0,0),(21849,4932,1,2,0,'87.218.146.52',1163580493,1,0,1,1,1,1,'','','Peter,\n\nofol:bChange := {|| if(ofol:nOption=2,OpenFol2(oFol,[color=red:1qhfb7i4]@[/color:1qhfb7i4]nVar),)}','',0,'Ag==','1qhfb7i4',1,0,'',2,0,0),(21850,4939,3,2,0,'87.218.146.52',1163580743,1,0,1,1,1,1,'','','Colin,\n\nYou have to link version.lib from xHB\\c_lib\\Win\\version.lib','',0,'Ag==','3vp9y2i2',1,0,'',2,0,0),(21851,4883,7,2,0,'87.218.146.52',1163581186,1,0,1,1,1,1,'','','Pedro,\n\nHaz este cambio:\n\nextern \"C\" {\nint Prt_TestPrint( void );\n}\n\nEn la nueva versión de FWPPC ya no es preciso, ya que no se compila en modo C++ (flag -TP).','',0,'Ag==','c1ug3a2d',1,0,'',2,0,0),(21852,4927,6,2,0,'87.218.146.52',1163581441,1,0,1,1,1,1,'','','Manuel,\n\nNo importa que lo pongas en español.','',0,'Ag==','f28ek903',1,0,'',2,0,0),(21853,4934,6,2,0,'87.218.146.52',1163581752,1,0,1,1,1,1,'','','Mike,\n\nPrueba así:\n[code:21g4n9al]\nfunction CheckFile&#40;oTmr&#41; \n\n   static lFound &#58;= &#46;f&#46;\n\n   if ! lFound &#46;and&#46; file &#40;&quot;c&#58;\\pruebras&#46;txt&quot;&#41; \n      lFound = &#46;t&#46;\n      oTmr&#58;Deactivate \n      waitrun&#40;&quot;apertura&#46;exe&quot;&#41; &lt;--Este programa no tarda nada en ejecutarse \n      ferase&#40;&quot;C&#58;\\pruebas&#46;txt&quot;&#41; \n      oTmr&#58;Activate \n      lFound = &#46;f&#46;\n   endif \n\nreturn nil\n[/code:21g4n9al]','',0,'AIA=','21g4n9al',1,0,'',2,0,0),(21854,4940,3,297,0,'217.57.213.130',1163581874,1,0,1,1,1,0,'','To vary error.log name','Is it possible to vary error.log name?\nwithout #include \"fivewin.ch\" Yes\nIs very useful for me to trace to check several user errors....\n\n#include \"fivewin.ch\"\nFUNCTION MAIN(par_ute)\nLOCAL cProg\nLOCAL cNumber\nLOCAL nNumber\nLOCAL cError\n// settaggio error.log\ncProg   := hb_argv(0)\n? cProg\ncProg   := STRTRAN(UPPER(SUBSTR(cProg, RAT(\"\\\",cProg)+1)),\".EXE\",\"\")\n? cProg\ncError  := par_ute + \"_\" + ALLTRIM(cProg) + \".ERR\"\n? cError\n\nSET ERRORLOG TO &amp;cError\n? nNumber + cNumber\n\n\nRETURN NIL','',0,'AIA=','29nvbtz8',1,0,'',297,0,0),(21855,4933,7,533,0,'80.32.177.143',1163582372,1,0,1,1,1,0,'','','Perdón, este post es para fivewin for [x]Harbour','',0,'','3zuj698c',1,0,'',533,0,0),(21856,4939,3,80,0,'202.72.164.124',1163584213,1,0,1,1,1,0,'','Richedit','Thanks Antonio - got both samples working - \ndo I  have to use version.lib because I have not\nupdated to the latest xHarbour.\n\nCheers\n\nColin','',0,'','1empzpgr',1,0,'',80,0,0),(21857,4883,7,106,0,'85.34.123.173',1163585504,1,0,1,1,1,1,'','','Antonio: supongo que tenia que dejarlo asi:\nPero sigue sin funcionar\n \n\n [code:1958rlyj]\n#pragma BEGINDUMP\n \n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;c&#58;\\lavwin\\teve\\mobitron\\inc\\printer&#46;h&gt;\n \nextern &quot;C&quot; &#123;\nint Prt_TestPrint&#40; void &#41;;\n&#125;\n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   hb_retnl&#40; Prt_TestPrint&#40;&#41; &#41;;\n&#125;\n \n#pragma ENDDUMP\n[/code:1958rlyj] \n \n \nEl error:\n\n [code:1958rlyj] \nteve&#46;obj &#58; error LNK2019&#58; unresolved external symbol Prt_TestPrint referenced in\n function &quot;void __cdecl HB_FUN_PRT_TESTPRINT&#40;void&#41;&quot; &#40;?HB_FUN_PRT_TESTPRINT@@YAXX\nZ&#41;\n\n[/code:1958rlyj]','',0,'AIA=','1958rlyj',1,0,'',106,0,0),(21858,4941,3,678,0,'168.209.98.43',1163585926,1,0,1,1,1,1,'','wbrowse.prg function nwrows returning huge no','Hi Antonio\n\nI have a situation where wbrowse.prg method nRowCount is returning 53000 rows! This causes one of my browses on a dbf (which has +- 160,000 records in it) to take ages to open.\n\nnRowCount calls nwrows which calls GetWindowRows (extracted below)\n\nnRowCount should obviously never return more than the no of rows a browse could theoretically display with its font - say 100\n\nIt only happens on the 1st call to nRowCount (in our case from upstable), which causes UpStable to skip through 53000 records. Thereafter it returns the correct no of rows (39)\n\nThe font object in Wbrowse has a valid handle and seems fine.\n\nCan you comment on what might be causing this ?\n\nThanks\nPeter\n\n\n\n*********************************\nWORD GetWindowRows( HWND hWnd, HDC hDC, HFONT hFont )\n{\n   TEXTMETRIC tm;\n   RECT rct;\n   WORD wRows;\n   BOOL bDCDestroy = FALSE;\n   HFONT hOldFont;\n\n   if( ! hDC )\n   {\n      bDCDestroy = TRUE;\n      hDC = GetDC( hWnd );\n   }\n\n   if( hFont )\n      hOldFont = ( HFONT ) SelectObject( hDC, hFont );\n\n   GetTextMetrics( hDC, &amp;tm );\n   tm.tmHeight += 1;\n\n   GetClientRect( hWnd, &amp;rct );\n   wRows = ( rct.bottom - rct.top ) / tm.tmHeight;\n\n   if( hFont )\n      SelectObject( hDC, hOldFont );\n\n   if( bDCDestroy )\n      ReleaseDC( hWnd, hDC );\n\n   return wRows;\n}\n\n//----------------------------------------------------------------------------//\n\nCLIPPER NWROWS( PARAMS )        // hWnd, hDC, hFont\n{\n   _retni( GetWindowRows( ( HWND ) _parnl( 1 ), ( HDC ) _parnl( 2 ),\n                          ( HFONT ) _parnl( 3 ) ) );\n}','',0,'AIA=','68rj83pg',1,0,'',678,0,0),(21859,4942,6,177,0,'194.30.62.6',1163586450,1,0,1,1,1,0,'','Pelles C','Buenas,\n\nsabe alguien si se puede deshabilitar que el editor del Pelles nos introduzca estas lineas:\n\n#include &lt;windows.h&gt;\n#include &lt;commctrl.h&gt;\n#include &lt;richedit.h&gt;\n\nen el fichero .rc \n\nSaludos,\n\nFélix','',0,'AIA=','yxmp9pi7',1,0,'',177,0,0),(21860,4943,20,8,0,'82.51.111.82',1163586614,1,0,1,1,1,0,'','SayBitmap','Ciao a tutti, vi espongo il problema : nella stampa di una fattura ( realizzata con la classe TPrinter ) ho inserito un logo in formato bmp utilizzando il metodo :SayBitmap(). Ora ho notato che cambiando il tipo di stampante la dimensione della bitmap è diversa, suppongo che sia un problema di risoluzione della stampante ma non ho idea di come rendere la visualizzazione della bitmap indipendente da ciò !\nSaluti e grazie in anticipo a chi mi aiutera a risolvere l\'enigma.','',0,'AIA=','3fb03dka',1,0,'',8,0,0),(21861,4924,6,2,0,'87.218.146.224',1163590937,1,0,1,1,1,1,'','','Marcelo,\n\noToolBar:SetPressed( nButton, lOnOff )\n\nEn cuanto a como mostrar la toolbar en dos líneas, revisa el ejemplo samples\\rebar.prg por si te puede servir.','',0,'AIA=','24dkwmpz',1,0,'',2,0,0),(21862,4883,7,2,0,'87.218.146.224',1163591801,1,0,1,1,1,1,'','','Pedro,\n\nSi revisas la LIB por dentro, con un editor binario, verás que el nombre de la función es distinto:\n[code:wrnq2emy]\n#pragma BEGINDUMP\n \n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;c&#58;\\lavwin\\teve\\mobitron\\inc\\printer&#46;h&gt;\n \nextern &quot;C&quot; &#123;\nint PRT_TestPrint&#40; void &#41;;\n&#125;\n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   hb_retnl&#40; PRT_TestPrint&#40;&#41; &#41;;\n&#125;\n \n#pragma ENDDUMP \n[/code:wrnq2emy]','',0,'AIA=','wrnq2emy',1,0,'',2,0,0),(21863,4939,3,2,0,'87.218.146.224',1163592279,1,0,1,1,1,1,'','','Colin,\n\n&gt;\ndo I have to use version.lib because I have not\nupdated to the latest xHarbour. \n&gt;\n\nNo, it is because your xHB does not include version.lib when linking.\n\nThe october xHB includes it.','',0,'AIA=','1ztaw1xc',1,0,'',2,0,0),(21864,4940,3,2,0,'87.218.146.224',1163592397,1,0,1,1,1,1,'','','Marco,\n\nyes, you may modify its name at source\\function\\errsysw.prg','',0,'AIA=','33qx9af3',1,0,'',2,0,0),(21865,4941,3,2,0,'87.218.146.224',1163592632,1,0,1,1,1,1,'','','Peter,\n\nAre you calling the UpStable method before the browse is created by Windows ? (oBrw:hWnd != 0 )\n\nIs it placed on a dialog ? If so, please call UpStable from here:\n\nACTIVATE DIALOG oDlg ON INIT oBrw:UpStable()','',0,'AIA=','1ejd0hts',1,0,'',2,0,0),(21866,4924,6,41,0,'200.87.67.10',1163592843,1,0,1,1,1,0,'','','Antonio,\n\ngracias por responder\n\n1.- oToolBar:SetPressed( nButton, lOnOff )  seguro que esto esta implementado en una version posterior a la 2.6, yo no lo tengo\n\n2.- no tengo el ejemplo samples\\rebar.prg solo  samples\\rebars.prg y se muestra como    poner un panel y un folder en una rebar, es ese el ejemplo al que haces referencia\n\nmuchas gracias de todas formas\n\nMarcelo','',0,'AIA=','1dyd9t82',1,0,'',41,0,0),(21867,4887,3,2,0,'87.218.146.224',1163592853,1,0,1,1,1,1,'','','Jules,\n\nAre you using samples\\labels Class TLabel ?','',0,'AIA=','15z8fel1',1,0,'',2,0,0),(21868,4944,7,720,0,'80.36.244.134',1163593910,1,0,1,1,1,0,'','duda sobre las cabeceras de los brows','Hola a todos...\n\nQuería saber si cuando se coloca un brows se pueden poner acciones sobre las cabeceras, por ejemplo para que al pinchar se ordene todo el grid  por el tipo de dato de esa columna...\n\nOtra solución que he probado es la de poner un boton justo encima de cada cabecera para que al pulsarlo haga la accion que quiero, pero no se como pintar el boton encima del grid, ya que me lo pinta siempre por detras, con lo que no puedo pulsarlo... Nose si habrá alguna forma de enviarlo al frente..\n\nAlguien tiene alguna idea al respecto...\n\nSaludos..\n\nElías Torres.','',0,'AIA=','dnr1tv5c',1,0,'',720,0,0),(21869,4883,7,106,0,'85.34.123.173',1163596005,1,0,1,1,1,1,'','','Antonio, (parece una pesadilla)\n\nRevisé la lib por dentro (printerApi.lib) y lo veo escrito asi:\n\n[quote:2pxhtdgy]Prt_TestPrint[/quote:2pxhtdgy]\n\n\npor lo cual escribí el codigo asi:\n\n[code:2pxhtdgy]#pragma BEGINDUMP\n \n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;c&#58;\\lavwin\\teve\\mobitron\\inc\\printer&#46;h&gt;\n \nextern &quot;C&quot; &#123;\nint Prt_TestPrint&#40; void &#41;;\n&#125;\n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   hb_retnl&#40; Prt_TestPrint&#40;&#41; &#41;;\n&#125;\n \n#pragma ENDDUMP[/code:2pxhtdgy]\n\n\nagregada la libreria en buildce.bat\n\n\nal compilar me da este error:\n\n[quote:2pxhtdgy]\nteve.c\n   Creating library teve.lib and object teve.exp\nteve.obj : error LNK2019: unresolved external symbol Prt_TestPrint referenced in\n function \"void __cdecl HB_FUN_PRT_TESTPRINT(void)\" (?HB_FUN_PRT_TESTPRINT@@YAXX\nZ)\nteve.exe : fatal error LNK1120: 1 unresolved externals\n\n\n[/quote:2pxhtdgy]\n\n\n\nP.D. Tu pudiste compilarlo y no te da errores?','',0,'gIA=','2pxhtdgy',1,0,'',106,0,0),(21870,4914,4,224,0,'162.83.94.176',1163596542,1,0,1,1,1,1,'','','Antonio,\n\nMany, many thanks!  I have received your email and will begin work on it this morning!!\n\nThanks again,','',0,'gIA=','31do7r8q',1,0,'',224,0,0),(21871,4893,6,185,0,'200.87.81.58',1163596840,1,0,1,1,1,0,'','','Hola\n\nesta es la funcion\n\nFUNCTION CalculaPolig(nArea,nPerimetro) \nlocal Px1:=0,Py1:=0,Pz1:=0\nlocal Px2:={},Py2:={},Pz2:={}\nlocal nDist1:=0,nArea1:=0,nArea2:=0\nlocal I:=0\n   for i=1 to nI\n/// Cargar los puntos del poligonos en un array si necesitas las de eje z es posible definirlas\n     AAdd(px2,px1)\n     AAdd(py2,py1)\n     AAdd(pz2,pz1)\n   next\nif len(px2) &gt;0\n  for i=1 to nI-1\n    nArea1+= (Px2[i]*Py2[i+1])\n    nArea2+= (Px2[i+1]*Py2[i])\n    ndist1+=sqrt( (px2[i]-px2[i+1])^2 + (py2[i]-py2[i+1])^2)\n  next\nendif\n  narea:=Abs(nArea1-nArea2)/2 \n  nPerimetro:=ndist1\nReturn NIL //( {x,y,z} )','',0,'','3oj3qadx',1,0,'',185,0,0),(21872,4941,3,678,0,'168.209.98.43',1163597050,1,0,1,1,1,1,'','','Antonio\n\nYes you are correct! I am calling upstable while the Brw ::hWnd is 0\n\nMay I suggest you change wBrowse nRowCount method as follows to prevent other users wasting time on the same issue\n\nMETHOD nRowCount() INLINE ;\nif(::hWnd &gt; 0, nWRows( ::hWnd, 0, If( ::oFont != nil, ::oFont:hFont, 0 ) ) - 1, 0)\n\nThanks for the assistance\nPeter','',0,'','xwt2w1ih',1,0,'',678,0,0),(21873,4945,7,656,0,'83.230.172.214',1163597082,1,0,1,1,1,1,'','ERROR LINKANDO','buenas a todos, \n  estoy empezando con FWPPC, he pasado un par de opciones de un programa hecho en FWH y despues de conseguir que me compile, me da el siguiente error linkando.\n\n NMAKE: fatal error U1077: \'p:\\vce\\bin\\link\' : return code 0x49d\n Stop.\n\n ¿ que me está pasando ?\n\n Muchas gracias por vuestro tiempo\n\n Salu2\n\n Javier Pérez','',0,'','3uh686n6',1,0,'',656,0,0),(21874,4902,6,104,0,'201.58.65.132',1163597236,1,0,1,1,1,0,'','','Olá Ruben e Antonio, Gracias pelos exemplos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAntonio, a função oWnd:SaveToBmp( \".\\test.bmp\" ) faz o que eu estou precisando, mas gostaria que fosse \".JPG\", e usando oWnd:SaveToBmp( \".\\test.bmp\" ) não consigo abrir o arquivo \"TEST.BMP\" dentro do paint de windows. Me retorna a mensagem \"Este não é um arquivo bitmap válido ou não há suporte para o formato atualmente\" Porque ?\n\nGracias e saludos,\n\nRossine.','',0,'','3cfpiex3',1,0,'',104,0,0),(21875,4941,3,2,0,'87.218.146.200',1163597396,1,0,1,1,1,1,'','','Peter,\n\nChanged, thanks.\n\nPlease use ::hWnd != 0 instead of ::hWnd &gt; 0','',0,'','1efz7i8m',1,0,'',2,0,0),(21876,4945,7,656,0,'83.230.172.214',1163598298,1,0,1,1,1,1,'','','bueno, estaba creando con el Workshop un .res y es posible que ese sea el problema, ¡digo yo!, y ahora con el .rc, al generar el .res me dice :\n\n     prueba32.rc (13): error RC2135 : file not found : BITMAP\n     prueba32.rc (14): error RC2135 : file not found : 36\n\n ¿ que me esta pasando ?\n\nMuchas gracias\n\nSalu2\nJavier Pérez','',0,'','3ndnosud',1,0,'',656,0,0),(21877,4946,18,210,0,'80.121.104.47',1163602416,1,0,1,1,1,0,'','Bug in GET','Hello all! \nI found a bug in get. When a picture template \"@R\" and the clausula ON CHANGE is used then came when i leave the get with TAB a error-message from get:untransform()! When i leave the get with ENTER then it is ok.','',0,'','4kbzk6p9',1,0,'',210,0,0),(21878,4947,3,213,0,'24.242.230.43',1163604751,1,0,1,1,1,0,'','Off Topic - Programmer(s) needed','All,\n\nI\'m looking for some advice in hiring one or more programmers.  I want to outsource much of the work I normally do myself.  The programmer(s) can work remotely, i.e. I don\'t need someone to report to my location.  \n\nI am hoping some of you that have done this can give me some advice on what to look for, going rates, types of arrangements, quality control,  overseas outsourcing, etc.\n\nIf you prefer you can email me directly at <!-- e --><a href=\"mailto:ridemy919@yahoo.com\">ridemy919@yahoo.com</a><!-- e -->.\n\nThanks,\nRandal Ferguson','',0,'','2mhcf8gw',1,0,'',213,0,0),(21879,4944,7,138,0,'189.141.64.226',1163607496,1,0,1,1,1,1,'','','El browse tiene una data llamada ::aActions la cual es una array de bloques de codigo, uno por cada columna del browse, cuando haces click sobre la cabecera del browse se ejecutan las acciones metidas en el bloque de codigo:\n\noBrw:aActions :=  {{|| DBSETORDER(2), oBrw:Refresh()}, {|| DBSETORDER(3), oBrw:Upstable()},{|| NIL}}','',0,'','2oeq4caa',1,0,'',138,0,0),(21880,4943,20,6,0,'87.19.15.221',1163607553,1,0,1,1,1,1,'','Re: SayBitmap','Basta utilizzare almeno uno dei due parametri nWidth o nHeight e dovresti risolvere il problema.\n\nEMG','',0,'','14iypl1r',1,0,'',6,0,0),(21881,4945,7,2,0,'87.218.146.200',1163608164,1,0,1,1,1,1,'','','Javier,\n\n&gt;\nprueba32.rc (13): error RC2135 : file not found : BITMAP \nprueba32.rc (14): error RC2135 : file not found : 36\n&gt;\n\nQue hay en esas líneas de tu RC ?','',0,'','1ct9uem1',1,0,'',2,0,0),(21882,4902,6,2,0,'87.218.146.200',1163608447,1,0,1,1,1,1,'','','Rossine,\n\n&gt; não consigo abrir o arquivo \"TEST.BMP\" dentro do paint de windows.\n\nHas probado a abrirlo con otros programas ó a visualizarlo con XP ?','',0,'','zwgboeug',1,0,'',2,0,0),(21883,4912,2,248,0,'212.145.179.68',1163609969,1,0,1,1,1,0,'','','Si quieres puedes enviarme el ejecutable (ese sin subprogramas) y lo pruebo yo. Enviamelo a <!-- e --><a href=\"mailto:joseluis@mancomputer.com\">joseluis@mancomputer.com</a><!-- e -->','',0,'','2cz2q5i8',1,0,'',248,0,0),(21884,4948,4,224,0,'162.83.94.176',1163610452,1,0,1,1,1,1,'','Program Authentication','We have moved onto Windows Mobile 5 (aka 2005).  In this OS, Microsoft has adopted a routine to authenticate programs. If not authenticated, the first time your program runs, the user gets the dialog shown below. Anyone know what must be done to avoid getting this?\n\nTIA!\n\n[img:2hkd2vrd]http&#58;//www&#46;simmeth&#46;com/images/auth&#46;JPG[/img:2hkd2vrd]','',0,'CA==','2hkd2vrd',1,0,'',224,0,0),(21885,4949,4,13,0,'213.76.252.200',1163610642,1,0,1,1,1,0,'','Pack and memo field','Antonio,\n\nIt\'s look like Harbour for Pocket PC don\'t remove data from FPT memo file when PACK command is use. Below is sample code.\n\nRegards\nPawel\n\n[code:8jd9j2s9]\n#Include \'FwCe&#46;Ch\'\n\nFunction TestTr &#40;&#41;\n\n  Local aStr &#58;= &#123;&#125;\n  Local i &#58;= 0 \n  Local j &#58;= 0\n  Local k &#58;= 0\n\n  AppIni &#40;&#41; \n\n  AAdd &#40;aStr, &#123;\'F1\', \'N\',  5, 0&#125;&#41;\n  AAdd &#40;aStr, &#123;\'F2\', \'M\', 10, 0&#125;&#41;\n  DbCreate &#40;CurDir &#40;&#41; + \'\\TESTTR\', aStr&#41;\n  Use &#40;CurDir &#40;&#41; + \'\\TESTTR\'&#41; New CodePage \'PLWIN\'\n\n  For i &#58;= 1 To 200\n      TestTr-&gt;&#40;DbAppend &#40;&#41;&#41;\n      TestTr-&gt;F1 &#58;= i\n      TestTr-&gt;F2 &#58;= PadL &#40;i, 10, \'0\'&#41;\n  Next\n\n  TestTr-&gt;&#40;DbGoTop &#40;&#41;&#41;\n  Do While !TestTr-&gt;&#40;Eof &#40;&#41;&#41; \n     TestTr-&gt;&#40;DbDelete &#40;&#41;&#41;\n\n     TestTr-&gt;&#40;DbSkip &#40;&#41;&#41;\n  Enddo\n\n  Select TestTr\n  Copy To &#40;CurDir &#40;&#41; + \'\\TESTTRC\'&#41; All // &lt;-- this works ok\n\n  Select TestTr\n  Pack // &lt;--- this don\'t remove data from memo file for deleted records\n  TestTr-&gt;&#40;DbCloseArea &#40;&#41;&#41;\n \n  i &#58;= FOpen &#40;CurDir &#40;&#41; + \'\\TESTTR&#46;FPT\'&#41;\n  j &#58;= FSeek &#40;i, 0, 2&#41;\n  FClose &#40;i&#41;\n\n  i &#58;= FOpen &#40;CurDir &#40;&#41; + \'\\TESTTRC&#46;FPT\'&#41;\n  k &#58;= FSeek &#40;i, 0, 2&#41;\n  FClose &#40;i&#41;\n\n  MsgInfo &#40;Str &#40;j&#41; + IIf &#40;j == k, \' == \', \' != \'&#41; + Str &#40;k&#41;&#41;\n\nReturn &#46;T&#46;\n\nFunction AppIni &#40;&#41;\n\n   Request DbfCdx\n   Request DbfFpt\n   RddSetDefault &#40;\'DbfCdx\'&#41;\n   Request Hb_Lang_PL852\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PL852\n   Request Hb_CodePage_PLWIN\n\n   Set Century On\n   Set Epoch To 2000\n   Set Date German\n   Set Deleted On\n   Hb_LangSelect &#40;\'PL\'&#41;\n   Hb_SetCodePage &#40;\'PLWIN\'&#41;\n\nReturn &#46;T&#46;\n[/code:8jd9j2s9]','',0,'AIA=','8jd9j2s9',1,0,'',13,0,0),(21886,4922,4,47,0,'203.144.143.8',1163611299,1,0,1,1,1,0,'','','Thanks Biel,\n\nBut TBTNBMP is not support multiline and TBUTTON is not support color clause.\n\nBest regards,\nDutch','',0,'AIA=','2vm0yf7j',1,0,'',47,0,0),(21887,4944,7,720,0,'80.36.244.134',1163612696,1,0,1,1,1,0,'','','Hola Rene.\n\nGracias por la ayuda...he solucionado el problema que tenía.\n\nMe gustaría conseguir algun buen manual sobre fivewin y he visto el link que tienes y me he registrado para descargarme el cd con las utilidades y manuales...pero aun no me ha llegado el correo de confirmación de registro...\n\n\nUn saludo.\n\nElías Torres.','',0,'AIA=','1n77lhgz',1,0,'',720,0,0),(21888,4949,4,2,0,'87.218.146.200',1163612784,1,0,1,1,1,1,'','','Pawel,\n\nHave you tested the same code with Harbour on a PC ?','',0,'AIA=','2nkk148t',1,0,'',2,0,0),(21889,4883,7,2,0,'87.218.146.200',1163613292,1,0,1,1,1,1,'','','Pedro,\n\nTienes clases en C++ dentro de la libreria!:\n[code:2usepm8j]\nclass __declspec&#40;dllexport&#41; CPrinter  \n&#123;\npublic&#58;\n//	INT Prt_CheckCover&#40;BOOL *blCover&#41;;\n	INT Prt_CheckHeadTemper&#40;BOOL *blTemper&#41;;\n	INT Prt_CheckPaper&#40;BOOL *blPaper&#41;;\n	INT WriteBitmap_BelowStandard&#40;LPCTSTR bmFile&#41;;\n	INT Prt_BackFeed&#40;int n&#41;;\n	INT getSerialProperty&#40;DCB *lpDcb&#41;;\n	INT PrinterDeSelect&#40;HANDLE prt_pHandle&#41;;\n	INT Prt_PortOpen&#40;&#41;;\n	INT Prt_PortRelease&#40;&#41;;\n	INT Prt_PrintBarcode&#40;char *barData, int height, int width, int barcodeSystem, int codeHRI&#41;;\n	INT Prt_CheckStatus&#40;PRT_STATUS * status&#41;;\n	INT Prt_TestPrint&#40;&#41;;\n                &#46;&#46;&#46;\n[/code:2usepm8j]\nVas a tener que instanciar un objeto en C++ y usarlo desde tu aplicación.\n\nPrueba esto:\n[code:2usepm8j]\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n#include &quot;Printer&#46;h&quot;  // de los ficheros que te han enviado\n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   CPrinter * printer = new CPrinter;\n\n   printer-&gt;Prt_TestPrint&#40;&#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:2usepm8j]','',0,'AIA=','2usepm8j',1,0,'',2,0,0),(21890,4922,4,2,0,'87.218.146.200',1163613576,1,0,1,1,1,1,'','','Dutch,\n\nYou may place the text on a bitmap (modify the bitmap) and use it from TBtnBmp','',0,'AIA=','15nezabn',1,0,'',2,0,0),(21891,4912,2,2,0,'87.218.146.200',1163613750,1,0,1,1,1,1,'','','Danos más información de lo que hace tu programa.\n\nTe ocurre igual si pruebas samples\\Tutor02.prg ?','',0,'AIA=','1o7fyvro',1,0,'',2,0,0),(21892,4946,18,2,0,'87.218.146.200',1163613832,1,0,1,1,1,1,'','','Please provide a small and self contained PRG to reproduce the bug, thanks','',0,'AIA=','3quwfc4q',1,0,'',2,0,0),(21893,4949,4,13,0,'213.76.252.200',1163613893,1,0,1,1,1,0,'','','Antonio,\n\nIn Harbour for PC PACK works exactly as in Pocket PC - wrong.\n\nPawel','',0,'AIA=','m32jrngs',1,0,'',13,0,0),(21894,4950,1,186,0,'66.130.50.142',1163614157,1,0,1,1,1,1,'','TXBrowse','Hi All,\n\n\nCan anyone tell me why TxBrowse only works with FWH. Is it because of the syntax or because it uses xHB functions\n\nRegards,','',0,'AIA=','h8y3xvsa',1,0,'',186,0,0),(21895,4883,7,106,0,'85.34.123.173',1163614527,1,0,1,1,1,1,'','','Antonio: ahora compila sin errores.\n\nhago la prueba de imprimir y no imprime, supongo que porque tengo que abrir la impresora luego hacer el test y luego cerrarla, lo hago de este modo, pero tampoco funciona, alguna idea?\n\n[code:3hreec62]\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;c&#58;\\lavwin\\teve\\mobitron\\inc\\Printer&#46;h&quot;\n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   CPrinter * printer = new CPrinter;\n\n   printer-&gt;Prt_Open&#40;&#41;;\n   printer-&gt;Prt_TestPrint&#40;&#41;;\n   printer-&gt;Prt_Close&#40;&#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:3hreec62]\n\nQue estoy haciendo mal?\n\nGracias','',0,'AIA=','3hreec62',1,0,'',106,0,0),(21896,4951,7,832,0,'201.122.21.224',1163614979,1,0,1,1,1,0,'','como progamar un Meter','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> HOLA A TODOS\n\n\n\nTENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER\n\n\nEN   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> FW ES ASI PERO EN PC POCKET COMO LO UTILIZO..\n\n\n DEFINE DIALOG oCopia RESOURCE \"envia\"  TITLE \"Copiando Archivo al sitio \" + cFTPSite\n      REDEFINE BITMAP RESOURCE \"GFTP\" ID 117 OF oCopia\n      REDEFINE SAY oSay1 ID 110 OF oCopia\n      REDEFINE SAY oSay2 ID 120 OF oCopia\n      <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  REDEFINE METER oMeter1 VAR nAmount1 ID 111 OF oCopia;\n             PROMPT \" \" ;\n             COLORS CLR_HGRAY, CLR_BLUE ;\n             BARCOLOR CLR_HGREEN, CLR_BLUE\n      REDEFINE SAY oSay3 ID 140 OF oCopia\n       <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia;\n             PROMPT \" \" ;\n             COLORS CLR_HGRAY, CLR_BLUE ;\n             BARCOLOR CLR_HRED, CLR_BLUE\n     oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,;\n                          @lEnd, oCopia, oFTP ,cFTPSite)}\n   ACTIVATE DIALOG oCopia CENTERED\n\n\nESPERO Y ALGUIEN ME PUEDA AYUDAR','',0,'AIA=','1xln7awx',1,0,'',832,0,0),(21897,4931,1,170,0,'83.179.164.131',1163615084,1,0,1,1,1,1,'','Re: Message to Badara','Hi Gilbert,\n\n[quote=&quot;Gilbert&quot;:3p952ymg]\n\nI started doing some testing with your Printer functions.\n[/quote:3p952ymg]\n\nThank you. You are the first returning a problem with.\nThis greatly interest me.\n\n[quote:3p952ymg]\nIt works fine except for WinDefPrn(). Works well with 98, 98SE and ME but not for 2000. Did`nt check XP yet...\n[/quote:3p952ymg]\n\nI don\'t remember if i have tested Default printer under XP,\nbecause i don\'t use never this information.\n\n[quote:3p952ymg]\n\nWhen I looked at Windows 2000 register HKEY_CURRENT_CONFIG,\nSystem\\CurrentControlSet\\Control\\Print\\Printers has no value in `Default`\nSo it`s returning nothing. Thus not detecting the default printer.\n\nI will check for XP tonight to see if there is any differences.\n\nI closely examined the register and could not figure out if this information was present. But I tought it was hidden somewhere esle.\n\n[/quote:3p952ymg]\n\nTo see if there is anywhere this information in the Windows 2000 registry,\nplease look and note all keys where the printer \"My printer\" is repertoried,\nand look again after set it the default printer under Windows.\nYou will find something different, after. If yes, change again the default\nprinter to another, and verify if the new default printer is in the same path\nin the Windows 2000 registry.\n\nEveryBody who have another OS can greatly help us to definitely solve\nprinters problems in very little time. Thanks by advance.\n\n\n[quote:3p952ymg]\nI also have another question. Is it possible, from the Windows register, to somehow detect what type of printer it correspond to.\nex.: Laser, InkJet, Dot Matrix or Thermal.\n\n[/quote:3p952ymg]\n\nI will see soon\n\nRegards,\nBadara\n[/quote]','',0,'gA==','3p952ymg',1,0,'',170,0,0),(21898,4949,4,2,0,'87.218.146.200',1163615660,1,0,1,1,1,1,'','','Pawel,\n\nThen it looks as a Harbour issue.\n\nCould you please report it at the Harbour development list providing your sample ? thanks,','',0,'gA==','pid3cqid',1,0,'',2,0,0),(21899,4951,7,2,0,'87.218.146.200',1163615777,1,0,1,1,1,1,'','','Pedro,\n\nLos meters aún no estan implementados en FWPPC.','',0,'gA==','23cvj0m9',1,0,'',2,0,0),(21900,4883,7,2,0,'87.218.146.200',1163615890,1,0,1,1,1,1,'','','Pedro,\n\nTendrás que revisar la documentación de ese producto y los ejemplos que proporcionan para ver como es la secuencia correcta de llamadas.','',0,'gA==','1de2c0ad',1,0,'',2,0,0),(21901,4952,6,36,0,'200.113.56.235',1163616224,1,0,1,1,1,0,'','toolbar','Hola\n\nConsulta como puedo enviar el mensaje que cuando se presiona el boton del toolbar se active el menu \n\n[code:1lzh7son]\nDEFINE TBMENU OF aToolBar&#91;1&#93;			;\n      ACTION  ListArtCli&#40;&#46;t&#46;&#41;   				;//aqui al presionar que active el popup\n      TOOLTIP ansitooem&#40;&quot;Mantención·Clientes&quot;&#41;	;\n      PROMPT  &quot;Clientes&quot;                      	;\n		WHEN &#46;F&#46;                                	;\n		MENU ShowPopup&#40; &#41;\n\n&#46;&#46;&#46;\n\nfunction showpopu&#40;&#41;\nlocal oPopup\n\nMENU oPopup POPUP\n  MENUITEM &quot;opcion1&quot; ACTION fAccion1&#40;&#41; \n  MENUITEM &quot;opcion1&quot; ACTION fAccion2&#40;&#41; \nENDMENU\nreturn&#40; oPopup &#41;\n[/code:1lzh7son]\n\n\nSaludos \nPatricio','',0,'AIA=','1lzh7son',1,0,'',36,0,0),(21902,4950,1,2,0,'87.218.146.200',1163616297,1,0,1,1,1,1,'','','Gilbert,\n\nProbably you may able to use it with some minor changes.','',0,'AIA=','2jk0gh94',1,0,'',2,0,0),(21903,4922,4,47,0,'203.144.143.8',1163616430,1,0,1,1,1,0,'','','Dear Antonio,\n\nI use for our Point Of Sale and BUTTON are menu item as following picture.  The menu can change by customer\n[img:33w9e8ht]http&#58;//www&#46;easyfo&#46;com/pda-pos&#46;JPG[/img:33w9e8ht]\n\nBest regards,\nDutch','',0,'CA==','33w9e8ht',1,0,'',47,0,0),(21904,4922,4,2,0,'87.218.146.200',1163617571,1,0,1,1,1,1,'','','Dutch,\n\nYou may have to modify Class TBtnBmp to display multiple text lines.','',0,'CA==','43it9hqx',1,0,'',2,0,0),(21905,4948,4,224,0,'162.83.94.176',1163621563,1,0,1,1,1,1,'','','After more Googling, I found the answer. It of course involves paying money!\n\n[url:32oaybob]http&#58;//msdn&#46;microsoft&#46;com/windowsmobile/partners/mobile2market/smartphoneapps/default&#46;aspx[/url:32oaybob]\n\nHope this info helps someone!','',0,'EA==','32oaybob',1,0,'',224,0,0),(21906,4953,19,177,0,'82.130.228.220',1163622171,1,0,1,1,1,0,'','Pelles C Resource','Hi,\n\nhere you are a Pelles C Resource:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.johnfindlay.plus.com/pellesc/index.html\">http://www.johnfindlay.plus.com/pellesc/index.html</a><!-- m -->\n\nBest regards,\n\nFelix','',0,'EA==','2pxoqolu',1,0,'',177,0,0),(21907,4954,6,180,0,'83.44.34.139',1163625543,1,0,1,1,1,0,'','Colores en TREEVIEW','Existe algún problema con los colores de la clase TTREVIEW definida desde recursos? Pues no me respeta los colores, da igual lo que le pongas que siempre el fondo es negro. En cambio desde código funciona perfectamente.\n[code:45k8mc87]\n@ 0, 0 TREEVIEW oTree OF oDlg SIZE 80, 60 COLOR CLR_WHITE, CLR_GREEN    // funciona perfectamente\n\noTree &#58;= TTreeView&#40;&#41;&#58;ReDefine&#40; 100, oDlg,CLR_WHITE,CLR_GREEN, &#46;T&#46; ,&quot;11&quot; &#41; // no funciona\n[/code:45k8mc87]\n\nUso FWH2.8 de Octubre/2006 y PellesC\n\nUn saludo,\nManuel Aranda','',0,'AIA=','45k8mc87',1,0,'',180,0,0),(21908,4955,6,180,0,'83.44.34.139',1163627172,1,0,1,1,1,0,'','Acción en Items TreeView','Al seleccionar una Items en un TreeView se puede ejecutar una acción ?\n¿Como?\n\nSaludos,\nManuel','',0,'AIA=','nrbm2z9z',1,0,'',180,0,0),(21909,4854,6,397,0,'201.26.12.211',1163632300,1,0,1,0,1,1,'','','Amiguinho\n\nUstedes podes visualizar en:\n\n[url=http&#58;//ns7&#46;webmasters&#46;com/caspdoc/html/ado_component_reference&#46;htm:1x31ap2r]SunChilliSoft.ASP[/url:1x31ap2r]\n\nÉs mui simples usar ADO con Fivewin.','',0,'EA==','1x31ap2r',1,0,'',397,0,0),(21910,4956,2,760,0,'200.37.76.90',1163634024,1,0,1,1,1,0,'','Edicion en TWBrowse','Hola a todos del foro\n\nComo puedo editar una dbf con twbrowse?\nAsi como el dbedit del clipper...Se que se usa el bEdit, lEdit...\npero no se como....\nUn ejemplo por favor...\nRevise los ejemplos del twbrowse, pero solo es para arrays y no para dbf\nUso FW2.0, Blinker4.0, WorkShop4.5, TDBF12k, TWBrowse y Clipper5.3\nEl fin es que quiero seleccionar cualquier DBF de una carpeta, y visualizarla con la opcion de poder modificar, borrar, etc...\nTodo esto hacer en el propio campo de edicion como en los viejos tiempos del DBEdit.\n\nSalu2','',0,'EA==','2aa0exrr',1,0,'',760,0,0),(21911,4934,6,533,0,'88.9.154.197',1163634374,1,0,1,1,1,0,'','','Buenas noches Antonio:\n\n     Solo quería decirte que funcionó correctamente, lo que si te pediria, cuando tengas tiempo, me digas que diferencias existe entre crear lfound como local en el main y pasarselo por referencia a checkfile (este caso no funciona) y generarla como static dentro de checkfile\n\nUN SALUDO y muchas gracias ante todo','',0,'EA==','14dj6bz0',1,0,'',533,0,0),(21912,4956,2,138,0,'189.141.64.226',1163635347,1,0,1,1,1,1,'','','Vete a la carpeta :\n\n\\FWxx\\source\\function\n\ny busca el programa BROWSE.PRG ahi viene el codigo fuente de la funcion BROWSE() de FW que te dara una muy buena idea de como hacer las cosas','',0,'EA==','1ab11o5n',1,0,'',138,0,0),(21913,4957,7,840,0,'201.242.73.50',1163635729,1,0,1,1,1,0,'','CON SHARED COMO PUEDO CREAR EL CDX QUE NO SEA EN LA RAIZ','SALUDOS A TODOS.\n\nCON EL PROGRAMA  \"TESTBRWS.PRG\" COLOQUE EN AL FINAL DE LA INSTRUCCION USE,  [b:3w38uchb]SHARED\n\n\nCON ESTA OPCION CREA EL INDEX \".CDX\" EN EL DIRECTORIO RAIZ\nDEL POCKEP PC Y NO EN EL DIRECTORIO QUE SE ENCUENTRA EL\nFICHERO.DBF QUE NO DEBERIA SER.\n\n SI YA NENGO CREADO UN CDX POR OTRO SISTEMA NO LO PUEDO LEER\nEN OTRA RUTA 0 DIRECTORIO DE TRABAJO.\n\nHICE LA PRUEBA CON \n                                 INDEX ON CODIGO  TO CURDIR()+\"\\CODIGO\"\n\nY NO FUNCIONA CREA EL CDX EN CERO Y DA ERROR.\n\nQUIEN ME PUEDE AYUDAR CON ESTO.\n\nSALUDOS.\n                 DARIO FERREIRA [/b:3w38uchb]','',0,'QA==','3w38uchb',1,0,'',840,0,0),(21914,4958,3,49,0,'62.13.172.78',1163636864,1,0,1,1,1,1,'','Where I can found these functions?','On tregla class I saw :\n GflPolyLine and  GflLine\nWhere I can found these functions ?','',0,'QA==','1atvch0c',1,0,'',49,0,0),(21915,4959,6,295,0,'201.222.158.84',1163639997,1,0,1,1,1,1,'','cronometro','Amigos,\n\nNecesito poner un cronometro en un dialogo de ingreso de datos y que el usuario puede ponerlo en pausa cuando deje de ingresar datos y cuendo retome el ingreso de datos lo active nuevamente\n\nGracias de antemano por sus respuestas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','224u0q41',1,0,'',295,0,0),(21916,4960,6,743,0,'200.67.230.223',1163643472,1,0,1,1,1,0,'','dudas TBtnGet','tengo la siguiente duda utilizo esta clase en donde pone un boton dentro del get, \n   \nlo primero: cuando pondo el raton el en get me tapa el boton compeltamente, pondiendome el blanco todo el get y segundo\n\ncomo puedo quitarle el color del boton, que me apareciera en blanco \nespero que me entiendan, si no me gustaria poner una imagen solo que no se como\n\nsaludos estoy utilizando fw y clipper gracias\n\n\nAntonio....','',0,'QA==','2oulm7b5',1,0,'',743,0,0),(21917,4951,7,18,0,'200.67.153.171',1163651855,1,0,1,1,1,1,'','Re: como progamar un Meter','[quote=&quot;prm_pedro&quot;:2euzhmie]:lol: HOLA A TODOS\n\n\n\nTENGO UN DUDA DE COMO VA LA ESCRUCTURA DE UN METER\n\n\nEN   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> FW ES ASI PERO EN PC POCKET COMO LO UTILIZO..\n\n\n DEFINE DIALOG oCopia RESOURCE \"envia\"  TITLE \"Copiando Archivo al sitio \" + cFTPSite\n      REDEFINE BITMAP RESOURCE \"GFTP\" ID 117 OF oCopia\n      REDEFINE SAY oSay1 ID 110 OF oCopia\n      REDEFINE SAY oSay2 ID 120 OF oCopia\n      <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  REDEFINE METER oMeter1 VAR nAmount1 ID 111 OF oCopia;\n             PROMPT \" \" ;\n             COLORS CLR_HGRAY, CLR_BLUE ;\n             BARCOLOR CLR_HGREEN, CLR_BLUE\n      REDEFINE SAY oSay3 ID 140 OF oCopia\n       <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> REDEFINE METER oMeter2 VAR nAmount2 ID 112 OF oCopia;\n             PROMPT \" \" ;\n             COLORS CLR_HGRAY, CLR_BLUE ;\n             BARCOLOR CLR_HRED, CLR_BLUE\n     oCopia:bStart := { || SendFiles( aSource, aTarget, nBufSize, oSay1, oSay2, oMeter1, oSay3, oMeter2,;\n                          @lEnd, oCopia, oFTP ,cFTPSite)}\n   ACTIVATE DIALOG oCopia CENTERED\n\n\nESPERO Y ALGUIEN ME PUEDA AYUDAR[/quote:2euzhmie]\n\nPara que quieres meter si tienes TProgress\n\n[code:2euzhmie]   @  75, 1 PROGRESS oPrg OF oPanel POSITION 50 PIXEL SIZE 100, 20 COLORS 7646455, 324325345\n[/code:2euzhmie]','',0,'gIA=','2euzhmie',1,0,'',18,0,0),(21918,4961,6,75,0,'83.54.31.213',1163663437,1,0,1,1,1,0,'','Envio diario por modem','Necesito enviar por modem, conlínea de teléfono analógica, todos los días unos ficheros.\nHasta ahora con Win 98 y MS-Dos no tenía problema con las configuraciones de las irq de los ordenadores y los modems, pero ahora como los modems son pnp y  win modem me dan problemas con los programas de terminal que utilizo pues son unos scripts configurados para el envío automático.\n\nAhora a cambiar a W-XP todo esto está empezando a funcionar mal.\n\nQue me recomiendan para hacer estos envíos. No tengo ADSL. Ni internet.\n\nGracias.','',0,'gIA=','r71oeogw',1,0,'',75,0,0),(21919,4883,7,106,0,'85.34.123.173',1163665654,1,0,1,1,1,1,'','','Antonio,\n\nla secuencia sería como està escrito en el codigo que te enviè antes. La pregunta es: esta bien escrito lo que puse?, porque por lo que entiendo, las llamadas a open, printest y close son metodos de la clase print, es asi?\n\ngracias','',0,'gIA=','2hdculi9',1,0,'',106,0,0),(21920,4957,7,456,0,'62.43.194.117',1163667017,1,0,1,1,1,1,'','','[code:3j8k0sqn]SET&#40; _SET_DEFAULT,    CURDIR&#40;&#41;+&quot;\\CODIGO\\&quot; &#41;[/code:3j8k0sqn]\no bien\n[code:3j8k0sqn]\nINDEX ON CODIGO TO &#40;CURDIR&#40;&#41;+&quot;\\CODIGO&quot;&#41;\n[/code:3j8k0sqn]','',0,'AIA=','3j8k0sqn',1,0,'',456,0,0),(21921,4962,6,449,0,'212.64.224.241',1163667153,1,0,1,1,1,1,'','Printer - Funciones()','Hola,\n\nAlguien me puede decir para que sirven las siguientes funciones ?\n[code:3j4aghf5]\nnLogPixelX&#40;&#41;\nnLogPixelY&#40;&#41;\nSetPixelMode&#40;&#41;\nSetTwipsMode&#40;&#41;\nSetLoInchMode&#40;&#41;\nSetHiInchMode&#40;&#41;\nSetLoMetricMode&#40;&#41;\nSetHiMetricMode&#40;&#41;\nSetIsotropicMode&#40;&#41;\nSetAnisotropicMode&#40;&#41;[/code:3j4aghf5]\n\nGracias.','',0,'AIA=','3j4aghf5',1,0,'',449,0,0),(21922,4963,2,350,0,'80.32.243.219',1163668041,1,0,1,1,1,0,'','Problemas de memoria','Hola a todos.\n\nTengo una aplicación que el ejecutable ocupa 4 Megas, además de 4 DLLs con recursos.\n\nEl problema es que en cuanto añado algo más, al ejecutarla Windows (2000) me dice que no tiene memoria suficiente para ejecutar la aplicación.\n\nActualmente a Blinker le tengo puesto:\nBLINKER ONCREMENTAL ON\nBLINKER EXECUTABLE ALIGNMENT 128\n\nEsto último es para que me enlace, si no lo pongo me marca el error:\nBLINKER : 1141 : new .EXE need larger file alignment value\nYa se que esto aumenta un poco el tamaño del ejecutable, pero si no lo pongo no me enlaza.\n\n¿ Le puedo indicar algo a Blinker para solucionar el problema ?. Ya se que debería pasarla a 32 bits, pero tras varios intentos fallidos, tengo que seguir añadiendole cosas urgentes hasta que tenga tiempo de ponerme en serio a pasarla a 32 bits, cosa que he hecho con alguna otra aplicación más pequeña.\n\nUtilizo:\nBlinker 6.00\nClipper 5.3b\n\n\nSaludos','',0,'AIA=','2hknygx6',1,0,'',350,0,0),(21923,4883,7,2,0,'87.218.146.200',1163669375,1,0,1,1,1,1,'','','Pedro,\n\nSí, tu código es correcto.','',0,'AIA=','1hv2176c',1,0,'',2,0,0),(21924,4945,7,656,0,'83.230.172.214',1163669711,1,0,1,1,1,1,'','','pues la definición de un bitmap, concretamente:\n\n linea 13 : IMPRIMIR BITMAP\n linea 14 : {\n\n no entiendo lo que pasa','',0,'AIA=','y9kf4eh1',1,0,'',656,0,0),(21925,4883,7,106,0,'85.34.123.173',1163670007,1,0,1,1,1,1,'','','Antonio, \n\n\nGracias\n\n\nVoy a tratar de entender entonces por cual motivo no funciona, voy a usar el beep que es mas simple para hacer las pruebas.','',0,'AIA=','1kgvs0fs',1,0,'',106,0,0),(21926,4922,4,47,0,'203.144.143.5',1163672351,1,0,1,1,1,0,'','','I\'ll try.  Thanks,\n\nBest regards,\nDutch','',0,'AIA=','bbmit96i',1,0,'',47,0,0),(21927,4962,6,2,0,'87.218.146.200',1163672737,1,0,1,1,1,1,'','','Carles,\n\n<!-- m --><a class=\"postlink\" href=\"http://winapi.conclase.net/curso/index.php?fun=GetDeviceCaps\">http://winapi.conclase.net/curso/index. ... DeviceCaps</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://winapi.conclase.net/curso/index.php?fun=SetMapMode\">http://winapi.conclase.net/curso/index. ... SetMapMode</a><!-- m -->','',0,'AIA=','104p5iwv',1,0,'',2,0,0),(21928,4934,6,2,0,'87.218.146.200',1163672948,1,0,1,1,1,1,'','','Mike,\n\nAl declararla static dentro de la función se reusa su valor para multiples llamadas. \n\nLas variables locales se crean en la pila, y se crean y se destruyen para cada llamada, luego no puedes usarlas para ese propósito.','',0,'AIA=','25ca9mvg',1,0,'',2,0,0),(21929,4883,7,106,0,'85.34.123.173',1163673285,1,0,1,1,1,1,'','','Antonio,\n\n\nLa clase Beep funciona   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\n[code:26azg1k4]\n\n***************\nSTATIC FUNCTION ProvaStampa&#40;&#41;\n***************\nLOCAL i\n\nFOR i &#58;= 1 TO 100\n  Beep_on&#40; 200 + i * 100, 100 &#41;\nNEXT\n\nRETURN NIL\n*\n** eof ProvaStampa\n\n\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;c&#58;\\lavwin\\teve\\mobitron\\inc\\Printer&#46;h&quot;  \n#include &quot;c&#58;\\lavwin\\teve\\mobitron\\inc\\Beep&#46;h&quot;  \n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   CPrinter * printer = new CPrinter;\n\n   printer-&gt;Prt_Open&#40;&#41;;\n   printer-&gt;Prt_TestPrint&#40;&#41;;\n   //printer-&gt;Prt_Close&#40;&#41;;\n&#125;\n\n\nHB_FUNC&#40; BEEP_ON &#41;\n&#123;\n   CBeep * Beep = new CBeep;\n\n   Beep-&gt;Beep_On&#40; hb_parni&#40;1&#41;, hb_parni&#40;2&#41;&#41;;\n\n&#125;\n\n#pragma ENDDUMP [/code:26azg1k4]\n\n\n\n\nAhora voy  a tratar de entender por que no funciona la impresora.\nTe agradezco muchisimo tu ayuda para resolver mi problema.\nAhora, a aprender un poco de C++....','',0,'AIA=','26azg1k4',1,0,'',106,0,0),(21930,4962,6,449,0,'212.64.224.241',1163675027,1,0,1,1,1,1,'','','Antonio,\n\nGracias por la pagina (ademas de interesante). Voy a ver q pillo.','',0,'AIA=','1kssxu5p',1,0,'',449,0,0),(21931,4897,6,24,0,'80.37.55.44',1163675439,1,0,1,1,1,1,'','RE:','Creo que esto esta mal;\nLocal cFicheroXML:= \'C:\\MAR\\pdf\\Prueba.pdf\"\n\nDeberia ser .XML , no ?\n\nPor cierto, me gustaria saber como consigues crear un PDF con campos editables....','',0,'AIA=','eqltrcr1',1,0,'',24,0,0),(21932,4964,3,678,0,'168.209.98.43',1163676518,1,0,1,1,1,1,'','CursorWait()','Hi Antonio\n\nIs the following correct:\n\nWhen your application calls CursorWait() and the hour glass cursor is displayed, this DISABLES all keyboard and mouse clicking in your application until you call CursorArrow() \n\nCan you please confirm the above or explain better\n\nThanks\nPeter','',0,'AIA=','159n3x10',1,0,'',678,0,0),(21933,4965,2,774,0,'200.72.65.34',1163676721,1,0,1,1,1,1,'','Ayuda con Array en Browse','Uso TSbrowse con Array y no me aparece la Barra de desplazamiento Vertical,, a alguien le ha pasado lo mismo y sin han encontrado la solucion pora compartanla\n\n\nGRACIAS','',0,'AIA=','3vrn095z',1,0,'',774,0,0),(21934,4960,6,362,0,'200.168.52.156',1163679259,1,0,1,1,1,1,'','','Mira aki:\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=587\">http://www.fivewin.com.br/exibedicas.asp?id=587</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=585\">http://www.fivewin.com.br/exibedicas.asp?id=585</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=459\">http://www.fivewin.com.br/exibedicas.asp?id=459</a><!-- m -->','',0,'AIA=','1w8zjknl',1,0,'',362,0,0),(21935,4902,6,104,0,'201.58.52.33',1163679699,1,0,1,1,1,0,'','','Olá Antonio,\n\n&gt; Has probado a abrirlo con otros programas...\n\nVB6 e Delphi7, os dois acusaram \"Invalid picture\"\n\n&gt;... ó a visualizarlo con XP ?\n\nSim, XP SP1 . Testando tambem com WIN98 + paint ocorre o mesmo erro.\n\nGracias, saludos,\n\nRossine.','',0,'AIA=','23p5qznj',1,0,'',104,0,0),(21936,4964,3,2,0,'87.218.146.200',1163679858,1,0,1,1,1,1,'','','Peter,\n\nNo, not at all. The keyboard and mouse events keep being processed, unless you <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable() the window.','',0,'AIA=','2pgj8muh',1,0,'',2,0,0),(21937,4902,6,2,0,'87.218.146.200',1163680109,1,0,1,1,1,1,'','','Rossine,\n\nEste ejemplo funciona correctamente y el bitmap creado se puede abrir con cualquier utilidad:\n[code:aie84okn]\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION Main&#40;&#41; \n\n   LOCAL oWnd \n\n   DEFINE WINDOW oWnd TITLE &quot;Progress&quot; \n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK oWnd&#58;SaveToBmp&#40; &quot;test&#46;bmp&quot; &#41;\n\nRETURN NIL \n[/code:aie84okn]\n[url=http&#58;//imageshack&#46;us:aie84okn][img:aie84okn]http&#58;//img247&#46;imageshack&#46;us/img247/6730/testck8&#46;png[/img:aie84okn][/url:aie84okn]','',0,'GIA=','aie84okn',1,0,'',2,0,0),(21938,4897,6,180,0,'194.179.55.36',1163681598,1,0,1,1,1,0,'','Re: RE:','[quote=&quot;thefull&quot;:69g8zlob]Creo que esto esta mal;\nLocal cFicheroXML:= \'C:\\MAR\\pdf\\Prueba.pdf\"\n\nDeberia ser .XML , no ?\n\nPor cierto, me gustaria saber como consigues crear un PDF con campos editables....[/quote:69g8zlob]\n\nEfectivamente, está mal, debe ser .XML.\n\nSiento no poder ayudarte en cuanto a crear un PDF con campos editables, pues no lo sé. Hasta ahora lo que he hecho ha sido editar ficheros PDF ya creados con el Adobe Acrobat y cambiarles el nombre de los campos para que coincidan con los campos del fichero .XML\n\nUn saludo,\nManuel','',0,'gA==','69g8zlob',1,0,'',180,0,0),(21939,4966,20,154,0,'151.21.74.217',1163683170,1,0,1,1,1,1,'','GetHostByName','Ciao a tutti,\ndovrei risolvere alcuni nomi di siti in ip ma GetHostByName non mi funziona.\npotrebbe essere un problem di firewall?\nquali porte/protocolli usa?\n\nGrazie,\nUgo','',0,'gA==','2jtsj2fq',1,0,'',154,0,0),(21940,4967,7,720,0,'80.36.244.134',1163684216,1,0,1,1,1,0,'','Como conectar y transferir archivos por wifi','Hola a todos....\n\nHe leido por el foro que para poder acceder desde la pocket pc a un archivo ubicado en otra maquina se ha de mapear el directorio de esa computadora para que sea accesible haciendo \n\n\\\\NombreOtraComputadora\\path\\NombreFichero. \n\nYo realizo eso pero no me abre el archivo... Lo que pretendo es descargarme (para luego volver a volcar la informacion) una tabla desde otra ubicacion mediante wifi...\n\nHe leido tambien que se debe cargar en memoria con la funcion MemoRead(). Lo hago y cuando pongo MsgInfo( MemoRead( \"\\\\NombreOtraComputadora\\path\\NombreFichero\" ) )  me aparece el cuadro de dialogo vacio. Me gustaria que alguien me guiara un poco sobre este tema, o de donde puedo obtener mas informacion...\n\n\nGracias y un saludo a todos...\n\nElías Torres.','',0,'gA==','3i20dptj',1,0,'',720,0,0),(21941,4968,6,9,0,'85.59.46.255',1163684339,1,0,1,1,1,1,'','Problemas con Preview','En una aplicación que funciona perfectamente, al instarla en un nuevo equipo, al intentar imprimir (con RPREVIEW), el ordenador se queda pensado (reloj de arena) y se bloquea. Tengo instalado el prev32.dll.- \n\n¿Cual puede ser el problema? ¿Es necesario algún otro fichero? ¿Problema de memoria?.\n\nMuchas gracias por vuestra ayuda','',0,'gA==','2f8dizze',1,0,'',9,0,0),(21942,4968,6,2,0,'87.218.146.200',1163685626,1,0,1,1,1,1,'','','Manuel,\n\nTienes una impresora instalada y configurada en ese ordenador ?','',0,'gA==','mdzz2zy7',1,0,'',2,0,0),(21943,4969,7,832,0,'201.122.21.224',1163686611,1,0,1,1,1,0,'','AYUDA URGENTE ¡¡¡ COMO ENVIAR UN ARCHIVO POR FTP !!!','<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->   HOLA A TODOS\n\n\n\nOIGAN ALGUIEN ME PUEDE ENVIAR UN EJEMPLO DE COMO ENVIA UN ARCHIVO POR FTP...\n\n\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->    ESPERO Y ALGUIEN ME PUEDA AYUDAR\n\n\nY GRACIAS POR SU AYUDA.... <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'gA==','16hrng0f',1,0,'',832,0,0),(21944,4966,20,6,0,'82.61.68.53',1163688157,1,0,1,1,1,1,'','Re: GetHostByName','Ricordati di mettere WSAStartup() prima e WSACleanUp() dopo.\n\nEMG','',0,'gA==','3oe9s8nz',1,0,'',6,0,0),(21945,4897,6,24,0,'80.37.55.44',1163690410,1,0,1,1,1,1,'','Re: RE:','[quote=&quot;Manuel Aranda&quot;:2pd14k97][quote=&quot;thefull&quot;:2pd14k97]Creo que esto esta mal;\nLocal cFicheroXML:= \'C:\\MAR\\pdf\\Prueba.pdf\"\n\nDeberia ser .XML , no ?\n\nPor cierto, me gustaria saber como consigues crear un PDF con campos editables....[/quote:2pd14k97]\n\nEfectivamente, está mal, debe ser .XML.\n\nSiento no poder ayudarte en cuanto a crear un PDF con campos editables, pues no lo sé. Hasta ahora lo que he hecho ha sido editar ficheros PDF ya creados con el Adobe Acrobat y cambiarles el nombre de los campos para que coincidan con los campos del fichero .XML\n\nUn saludo,\nManuel[/quote:2pd14k97]\nOstras Manuel!!! \n¿ Entonces que sentido tiene esto si no se puede crear uno un propio PDF <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> ?  Quizas usar uno ya creado ...? Seria de utilidad poder experimentar más sobre ello. ¿ puedes enviarme por mail para poder experimentar ? Gracias','',0,'gA==','2pd14k97',1,0,'',24,0,0),(21946,4940,3,297,0,'217.57.213.130',1163690411,1,0,1,1,1,0,'','','Thanks  You Antonio','',0,'gA==','2zrayc62',1,0,'',297,0,0),(21947,4963,2,138,0,'189.141.64.226',1163692225,1,0,1,1,1,1,'','','Yo tengo una app que mide 6 megs mas DLLs y no tiene ese problema.\n\nRecuerda que en los windows \"true 32\" (NT / 2000 / 2003 / XP) para que una  aplicacion de 16 bits corra bien necesitas crearle un acceso directo y luego indicar \"corra en su propio espacio de memoria\"','',0,'gA==','1ajaoaq7',1,0,'',138,0,0),(21948,4967,7,138,0,'189.141.64.226',1163692392,1,0,1,1,1,1,'','','Elias:\n\nRecuerda que para eso necesitas tener el PPC con Windows Mobile 2005, las versiones anteriores (CE o Mobile 2003) no funcionan para abrir ficheros compartidos por la red.','',0,'gA==','242vnytd',1,0,'',138,0,0),(21949,4970,6,743,0,'200.79.46.141',1163693006,1,0,1,1,1,0,'','gracias','gracias \n\n\nkarinha\n\nlo probe','',0,'gA==','1p4aro06',1,0,'',743,0,0),(21950,4897,6,24,0,'80.37.55.44',1163693892,1,0,1,1,1,1,'','Re: RE:','Por cierto Manuel, ¿ y si en vez de XML la extension le pones .XFDF ? Ahi quizás si que te funcione....','',0,'gA==','3ggk5nct',1,0,'',24,0,0),(21951,4967,7,720,0,'80.36.244.134',1163697973,1,0,1,1,1,0,'','','Gracias Rene, he descargado el emulador para la version 5. Por cierto va super lento, pero es la unica forma que tengo de poder probar la aplicacion, puesto que todavia no dispongo de ninguna pocket pc con la version 5....\n\nLo que he hecho ha sido lo siguiente...\n\nPara probar he puesto una tabla .dbf y .cdx en otra maquina. Mi intencion es que cuando arranque la aplicacion esta localice de esa maquina los archivos en cuestion y me los pueda descargar en la pda (en algun directorio) para poder trabajar de forma autonoma con ellos y luego hacer lo mismo pero en sentido contrario, es decir volver a volcar la tabla modificada en la maquina donde la cogi...\n\n\nComo comentaba antes he leido que se necesita guardar la ruta previa de la maquina donde se encuentre los archivos que necesito descargar... Lo que he hecho es:\n\nMemoRead( \"\\\\maquina\\path\\articulos\" )\nUSE (CurDir() + \"\\\\maquina\\path\\articulos\") VIA \"DBFCDX\" new\narticulos-&gt;( OrdSetFocus( \"cod_art+nom_art+codcli\" ) )\nINDEX ON cod_art+nom_art+codcli TO articulos\nAliasArticulos := Alias()\n\nPero esto no me funciona me dice que no puede abrir la tabla....\n\nQue es lo que me falta??\n\n\nUn saludo...\n\nElías Torres.','',0,'gA==','298290d0',1,0,'',720,0,0),(21952,4968,6,9,0,'85.59.46.255',1163699106,1,0,1,1,1,1,'','','Antonio,\n\nGracias por tu rápida respuesta. \n\nCreo que hay instalada una impresora de red. Voy  comprobarlo el próximo dia que vaya por la empresa y te lo confirmo.','',0,'gA==','25i7zsip',1,0,'',9,0,0),(21953,4958,3,303,0,'72.199.41.171',1163699586,1,0,1,1,1,0,'','','Silvio,\n\nTRegla does not appear to be a FW class. Is this a third party product?\n\nJames','',0,'gA==','23cguod5',1,0,'',303,0,0),(21954,4966,20,154,0,'151.21.74.217',1163700122,1,0,1,1,1,1,'','Re: GetHostByName','[quote=&quot;EnricoMaria&quot;:kb7hrn9i]Ricordati di mettere WSAStartup() prima e WSACleanUp() dopo.[/quote:kb7hrn9i]\n\nGrazie, ci provo!','',0,'gA==','kb7hrn9i',1,0,'',154,0,0),(21955,4958,3,49,0,'62.13.172.78',1163700461,1,0,1,1,1,1,'','','yes it is of Jose Ignacio Jimenez Alarcon\nbut there is another version correct by thefull\nI have the Alarcon\'s class and I\'ll want the tregla  modify bt rafa carmona(thefull)\nI write they but they have not still answered me !!!!!!!!!!!!!!!\nIf you succeed to contact they.....','',0,'gA==','2cyxvd6a',1,0,'',49,0,0),(21956,4809,3,372,0,'83.118.100.14',1163701320,1,0,1,1,1,0,'','','Hi Antonio,\n\nthe following files are present in the ftp directory:\n[url=http&#58;//img106&#46;imageshack&#46;us/my&#46;php?image=ftpoj6&#46;jpg:8kyhs0jc][img:8kyhs0jc]http&#58;//img106&#46;imageshack&#46;us/img106/4289/ftpoj6&#46;th&#46;jpg[/img:8kyhs0jc][/url:8kyhs0jc]\n\nI get the following results:\n0, 46, 46, 201, 78, 240, 198, 1\n\nBest regards,\n\nJohn.','',0,'GA==','8kyhs0jc',1,0,'',372,0,0),(21957,4809,3,2,0,'87.218.146.200',1163702084,1,0,1,1,1,1,'','','John,\n\nPlease copy here the values that you get for each of the four items that you have in the directory, thanks.','',0,'GA==','3ab1mye2',1,0,'',2,0,0),(21958,4963,2,2,0,'87.218.146.200',1163702189,1,0,1,1,1,1,'','','Sebastián,\n\nPrueba a cambiar a \nBLINKER INCREMENTAL OFF','',0,'GA==','2ebjw67v',1,0,'',2,0,0),(21959,4967,7,2,0,'87.218.146.200',1163702542,1,0,1,1,1,1,'','','Elías,\n\n&gt; MemoRead( \"\\\\maquina\\path\\articulos\" ) \n\nEso lee el contenido de ese fichero a memoria. No es necesario si vas a hacer un USE luego.\n\n&gt; USE (CurDir() + \"\\\\maquina\\path\\articulos\") VIA \"DBFCDX\" new\n\nUsa:\n\nUSE \"\\\\maquina\\path\\articulos\" VIA \"DBFCDX\" new','',0,'GA==','2ht12upt',1,0,'',2,0,0),(21960,4971,6,838,0,'80.59.225.15',1163702648,1,0,1,1,1,0,'','Bitmap en folder','Hola amigos\n\nNecesito poner en las pestañas de un folder un bitmap junto con un nombre, y veo que con fwh no puedo, así que he visto clases, lib, etc en el foro y he visto una en fivewin brasil de Joao Santos, que me ha gustado, la he adaptado a harbour, y por mas pruebas que hago siempre obtengo el sesultado siguiente:\n\n<!-- m --><a class=\"postlink\" href=\"http://img441.imageshack.us/my.php?image=folderam7.jpg\">http://img441.imageshack.us/my.php?image=folderam7.jpg</a><!-- m -->\n\nComo vereis, las pestañas ni cogen el color del folder, ni pintan el bitmap.\n\nEl codigo es el siguiente:\n\n**************************\n    Redefine Folder oFol Id 47 Of oDlg;\n    Prompts  \"&amp;General\", \"&amp;Banco\", \"&amp;Albaranes\", \"&amp;Facturas\",\"A&amp;lmacenes\";\n    Dialogs  \"CLI1\", \"CLI2\", \"CLI5\", \"CLI7\", \"CLI8\";\n    Bitmaps  \"casa\", \"casa\", \"casa\", \"casa\", \"casa\"        ;\n    TABCOLOR   CLR_HBLUE                               ;\n    FOCUSCOLOR CLR_HRED                                ;\n    COLORS CLR_BLACK, CLR_YELLOW ;\n     ADJUST\n******************************\n\nQue puede ser?\n\nSaludos\n\nJose Luis','',0,'GA==','2tgad10x',1,0,'',838,0,0),(21961,4972,7,527,0,'88.11.6.239',1163703420,1,0,1,1,1,0,'','Problema urgente por favor, estoy parado','Tengo el siguiente codigo RC:\n************************************************************\n#ifdef _CE\n   #include \"c:\\vce\\include\\arm\\windows.h\"\n   #include \"c:\\vce\\include\\arm\\commctrl.h\"\n#endif\n\n#define DIALOG_2	2\nsub1 DIALOG 1, 2, 125, 99\nSTYLE WS_CHILD | 4\n{\n LTEXT \"Fecha alta\", 10, 82, 2, 26, 8\n LTEXT \"Codigo\", 11, 4, 2, 26, 8\n LTEXT \"CIF/NIF\", 13, 40, 2, 26, 8\n [b:290c3iqr]EDITTEXT 210, 4, 16, 29, 12[/b:290c3iqr]}\n\n\nTestFld DIALOG 3, 6, 131, 124\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Ficha cliente\"\nFONT 8, \"System\"\n{\n CONTROL \"\", 800, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE, 1, 2, 128, 118\n}\nsub2 DIALOG 1, 2, 125, 99\nSTYLE WS_CHILD | 4\n{\n CONTROL \"One\", 110, \"BUTTON\", BS_AUTORADIOBUTTON | WS_GROUP | WS_TABSTOP, 4, 1, 28, 12\n CONTROL \"Two\", 120, \"BUTTON\", BS_AUTORADIOBUTTON | WS_TABSTOP, 15, 12, 36, 12\n CONTROL \"Three\", 130, \"BUTTON\", BS_AUTORADIOBUTTON | WS_TABSTOP, 4, 23, 36, 12\n}\n************************************************************\nAHORA TENGO EL SIGUIENTE CODIGO EN UN FICHERO PRG\n*************************************************************\n\nFUNCTION ficha_cliente(numero_registro,obmpcli)\n   local oDlg, oFld, cValue\n   \n   DEFINE DIALOG oDlg NAME \"TestFld\"\n                                                             \n     REDEFINE FOLDER oFld ID 800 OF oDlg;\n              PROMPTS \"General\", \"Detalles\" ;\n              DIALOGS \"sub1\", \"sub2\"\n\n     REDEFINE GET ID 210 OF oFld:aDialogs[ 1 ] PICTURE \"XXXXXXX\"\n   \n   ACTIVATE DIALOG   oDlg ;\n            ON INIT  oFld:InitDialogs()\nRETURN 0\n*************************************************************\nEL PROBLEMA QUE TENGO ES EN LA LINEA DEL REDEFINE, NO SOY CAPAZ DE REALIZAR EL REDEFINE DEL GET DEL FICHERO RC\n*************************************************************\n     [b:290c3iqr]REDEFINE GET ID 210 OF oFld:aDialogs[ 1 ] PICTURE \"XXXXXXX[/b:290c3iqr]\"\n\n\nALGUNO PUEDE AYUARME POR FAVOR ESTOY DESESPERADO.','',0,'QA==','290c3iqr',1,0,'',527,0,0),(21962,4973,7,527,0,'88.11.6.239',1163703885,1,0,1,1,1,0,'','AYUDA POR FAVOR ESTOY PARADO','Tengo el siguiente codigo RC: \n************************************************************ \n#ifdef _CE \n#include \"c:\\vce\\include\\arm\\windows.h\" \n#include \"c:\\vce\\include\\arm\\commctrl.h\" \n#endif \n\n#define DIALOG_2 2 \nsub1 DIALOG 1, 2, 125, 99 \nSTYLE WS_CHILD | 4 \n{ \nLTEXT \"Fecha alta\", 10, 82, 2, 26, 8 \nLTEXT \"Codigo\", 11, 4, 2, 26, 8 \nLTEXT \"CIF/NIF\", 13, 40, 2, 26, 8 \nEDITTEXT 210, 4, 16, 29, 12} \n\n\nTestFld DIALOG 3, 6, 131, 124 \nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU \nCAPTION \"Ficha cliente\" \nFONT 8, \"System\" \n{ \nCONTROL \"\", 800, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE, 1, 2, 128, 118 \n} \nsub2 DIALOG 1, 2, 125, 99 \nSTYLE WS_CHILD | 4 \n{ \nCONTROL \"One\", 110, \"BUTTON\", BS_AUTORADIOBUTTON | WS_GROUP | WS_TABSTOP, 4, 1, 28, 12 \nCONTROL \"Two\", 120, \"BUTTON\", BS_AUTORADIOBUTTON | WS_TABSTOP, 15, 12, 36, 12 \nCONTROL \"Three\", 130, \"BUTTON\", BS_AUTORADIOBUTTON | WS_TABSTOP, 4, 23, 36, 12 \n} \n************************************************************ \nAHORA TENGO EL SIGUIENTE CODIGO EN UN FICHERO PRG \n************************************************************* \n\nFUNCTION ficha_cliente(numero_registro,obmpcli) \nlocal oDlg, oFld, cValue \n\nDEFINE DIALOG oDlg NAME \"TestFld\" \n\nREDEFINE FOLDER oFld ID 800 OF oDlg; \nPROMPTS \"General\", \"Detalles\" ; \nDIALOGS \"sub1\", \"sub2\" \n\nREDEFINE GET ID 210 OF oFld:aDialogs[ 1 ] PICTURE \"XXXXXXX\" \n\nACTIVATE DIALOG oDlg ; \nON INIT oFld:InitDialogs() \nRETURN 0 \n************************************************************* \nEL PROBLEMA QUE TENGO ES EN LA LINEA DEL REDEFINE, NO SOY CAPAZ DE REALIZAR EL REDEFINE DEL GET DEL FICHERO RC \n************************************************************* \nREDEFINE GET ID 210 OF oFld:aDialogs[ 1 ] PICTURE \"XXXXXXX\" \n\n\nALGUNO PUEDE AYUARME POR FAVOR ESTOY DESESPERADO.','',0,'','2id0xo0i',1,0,'',527,0,0),(21963,4967,7,720,0,'80.59.110.137',1163705156,1,0,1,1,1,0,'','','Gracias Antonio, me ha funcionado...\n\nQueria comentarte otra cosilla..He cogido el programa ftp.prg y lo he modificado con los datos de ip de mi ftp, el usuario y la contraseña\n\nPUBLIC server:=\"ftp://ip\"+space(15) \nPUBLIC user:=\"usuario\"+space(15) \nPUBLIC pass:=\"pass\"+space(15) \nPUBLIC loc_archivo:=curdir()+\"\\users.bmp\"+space(15) \nPUBLIC rem_archivo:=\"users.bmp\"+space(40) \n\nEl archivo que pretendo enviar como prueba es una imagen llamada users.bmp. Lo he puesto como te muestro. Mi pregunta es: ¿se supone que el archivo que envio al servidor lo está cogiendo de la carpeta samples? Si quisiera darle otra ubicacion, ¿como lo hago?. \n\nPor ultimo, entendiendo que esto está bien, cuando le doy al boton de enviar me muestra un msginfo con un 6 y no me carga nada en el ftp, ¿esto que significa?....\n\nUn saludo y gracias por la ayuda...\n\nElías Torres.','',0,'','enkznqjs',1,0,'',720,0,0),(21964,4974,20,837,0,'81.208.83.249',1163706077,1,0,1,1,1,1,'','Programma per creare help in CHM','Qualcuno conosce programmi open source per creare gli help delle procedure in formato CHM ?\n\nGrazie, Andrea.','',0,'','35iqis56',1,0,'',837,0,0),(21965,4971,6,362,0,'200.168.52.156',1163707033,1,0,1,1,1,1,'','','No Tengo Certezca, pero kreo ke no és posible con HARBOUR.\n\nSolo con XHARBOUR. -&gt; Funciona Perfecto con XHARBOUR, porke no migras a XHARBOUR??? És mui fácil.\n\nSaludos.','',0,'','1o339p44',1,0,'',362,0,0),(21966,4971,6,362,0,'200.168.52.156',1163707446,1,0,1,1,1,1,'','','Hola...\n\nIncorpora a tu proyecto:\n\nFOLDER.PRG y\n\\FwH27\\lib\\FoldBmp32.lib\n\nMODIFIQUE TU DIALOG EN LAS PROPRIEDADS DEL FOLDER, PARA \"TFOLDER\" y NO\nSYSTABCONTROL32\n\nIntente...  en contrario, migres a XHARBOUR.\n\nSaludos.','',0,'','3p4l6yyv',1,0,'',362,0,0),(21967,4893,6,207,0,'148.233.32.164',1163708006,1,0,1,1,1,0,'','','Muchas Gracias Arturo un placer conocer gente agradable.\n\nsaludos','',0,'','2iej0siy',1,0,'',207,0,0),(21968,4973,7,2,0,'87.218.146.200',1163709424,1,0,1,1,1,1,'','','te falta especificar el nombre de la variable:\n\nlocal cValue := Space( 20 ) \n\n...\n\nREDEFINE GET [color=red:23sj0tqp]cValue[/color:23sj0tqp] ID 210 OF oFld:aDialogs[ 1 ] PICTURE \"XXXXXXX\"','',0,'Ag==','23sj0tqp',1,0,'',2,0,0),(21969,4972,7,2,0,'87.218.146.200',1163709601,1,0,1,1,1,1,'','','te falta especificar el nombre de la variable:\n\nlocal cValue := Space( 20 ) \n\n...\n\nREDEFINE GET [color=red:1bufmqwd]cValue[/color:1bufmqwd] ID 210 OF oFld:aDialogs[ 1 ] PICTURE \"XXXXXXX\"','',0,'Ag==','1bufmqwd',1,0,'',2,0,0),(21970,4967,7,2,0,'87.218.146.200',1163709903,1,0,1,1,1,1,'','','Elías,\n\n&gt; Si quisiera darle otra ubicacion, ¿como lo hago?. \n\nCambia CurDir() por la ubicación que quieras.\n\n&gt;\nPor ultimo, entendiendo que esto está bien, cuando le doy al boton de enviar me muestra un msginfo con un 6 y no me carga nada en el ftp, ¿esto que significa?.... \n&gt;\n\nEl ejemplo ftp.prg sólo muestra el valor de FTPPUTFILE() y esa función devuelve un valor lógico. No se de donde te sale un 6. \n\nCómo has modificado ftp.prg ?','',0,'Ag==','3kiulxec',1,0,'',2,0,0),(21971,4935,6,793,0,'201.225.210.59',1163713152,1,0,1,1,1,0,'','','Hola Mike \n\npara abrir la caja de dinero puedes hacerlo con este codigo\n\nfunc abrecash\nlocal puerto\nPUERTO:=oPenComm(\"com1:\",1024,128)\n       Writecomm(puerto,\"adadadada\")\n       Closecomm(puerto)\nreturn(nil)\n\nSi estas utilizando una impresora fiscal de matrix \nme avisas por que ahora no recuerdo la secuencia\npero va por aqui\n\n\nsaludo \n\nerick almanza','',0,'Ag==','9iovu4ac',1,0,'',793,0,0),(21972,4957,7,840,0,'201.242.73.50',1163722251,1,0,1,1,1,0,'','','No me funciono con la opcion shared crea el index en cero y da error','',0,'Ag==','3ej7eumc',1,0,'',840,0,0),(21973,4957,7,840,0,'201.242.73.50',1163722340,1,0,1,1,1,0,'','','[quote=&quot;dario&quot;:3l7r2rcx]No me funciono con la opcion shared crea el index en cero y da error[/quote:3l7r2rcx]','',0,'gA==','3l7r2rcx',1,0,'',840,0,0),(21974,4910,6,73,0,'201.132.226.142',1163722744,1,0,1,1,1,0,'','','Pues aqui de nuevo, con la noticia de que ya omiti todos los degradados y colores en el programa, entonces trabaje con btnget,twbrowse y tsbutton, y el resultado es el mismo, ahora como que se tardo un poquito mas en bloquearse, pero se sigue produciendo el error del bloqueo...\nalguna otra sugerencia? <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nel dialogo es creado desde  recurso, de hecho he probado otro dialgo del mismo sistema y con las mismas propiedades y no sucede lo mismo, adjunto imagen de la que no se bloquea\n<!-- m --><a class=\"postlink\" href=\"http://img381.imageshack.us/img381/3677/dibujofr9.jpg\">http://img381.imageshack.us/img381/3677/dibujofr9.jpg</a><!-- m -->\n\ngracias\npaco','',0,'gA==','3r2wnnyz',1,0,'',73,0,0),(21975,4957,7,2,0,'87.218.146.200',1163726709,1,0,1,1,1,1,'','','Dario,\n\nEfectivamente la opción SHARED no funciona bien en el Pocket PC.\n\nTendrás que usar las DBFs en modo no compartido.','',0,'gA==','13xlqpno',1,0,'',2,0,0),(21976,4910,6,2,0,'87.218.146.200',1163726818,1,0,1,1,1,1,'','','Paco,\n\nPrueba a modificar estos métodos de la Clase TWindow:\n\nMETHOD DispBegin() VIRTUAL\nMETHOD DispEnd() VIRTUAL','',0,'gA==','3ipom0zm',1,0,'',2,0,0),(21977,4975,6,18,0,'200.67.153.171',1163738515,1,0,1,1,1,1,'','Creación de DLL con xHarbour','Hola a todos :\n\nEstoy intentando crear un archivo dll desde un Prg, más sin embargo aunque la creación del archivo dll sí se realiza, cuando hago el llamado a alguna función desde otro PRG, simplemente no se ejecuta.\n\nLos archivos que estoy usando de prueba son tutor01.prg y testdll.prg\n[code:39cl9mfn]\n\nCompiling&#46;&#46;&#46;\nxHarbour Compiler build 0&#46;99&#46;61 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'tutor01&#46;prg\' and generating preprocessed output to \'tutor01&#46;ppo\'&#46;&#46;&#46;\nLines 26, Functions/Procedures 3\nGenerating C source output to \'tutor01&#46;c\'&#46;&#46;&#46;\nDone&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\ntutor01&#46;c&#58;\nBorland Resource Compiler  Version 5&#46;40\nCopyright &#40;c&#41; 1990, 1999 Inprise Corporation&#46;  All rights reserved&#46;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\n* self contained DLL successfully built\n[/code:39cl9mfn]\n\nAquí me indica que la creación de la dll fue correcta.\n\n\nEsta es la configuración del archivo buildhd.bat que estoy usando para crear la DLL\n\n[code:39cl9mfn]\nif A%1 == A GOTO &#58;SINTAX\nif NOT EXIST %1&#46;prg GOTO &#58;NOEXIST\n\nECHO Compiling&#46;&#46;&#46;\n\nset hdir=c&#58;\\xharbour\nset bcdir=c&#58;\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i&#46;&#46;\\include;%hdir%\\include /w /p %2 %3 &gt; clip&#46;log\n@type clip&#46;log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -I%hdir%\\include %1&#46;c &gt; b32&#46;bc\n%bcdir%\\bin\\bcc32 -M -c @b32&#46;bc\n&#58;ENDCOMPILE\n\nIF EXIST %1&#46;rc %bcdir%\\bin\\brc32 -r %1\n\necho c0d32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;dll, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho &#46;&#46;\\lib\\FiveHx&#46;lib &#46;&#46;\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\nrem echo %hdir%\\lib\\gtwin&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtgui&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\nrem echo %hdir%\\lib\\codepage&#46;lib + &gt;&gt; b32&#46;bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\b32\\rddads&#46;lib + &gt;&gt; b32&#46;bc\nrem echo &#46;&#46;\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\odbc32&#46;lib, &gt;&gt; b32&#46;bc\nIF EXIST %1&#46;res echo %1&#46;res &gt;&gt; b32&#46;bc\n%bcdir%\\bin\\ilink32 -Tpd -aa @b32&#46;bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * self contained DLL successfully built\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1&#46;c\n@del %1&#46;il?\n\n&#58;LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n&#58;SINTAX\nECHO    SYNTAX&#58; Build &#91;Program&#93;     &#123;-- No especifiques la extensi¢n PRG\nECHO                                &#123;-- Don\'t specify &#46;PRG extension\nGOTO EXIT\n\n&#58;NOEXIST\nECHO The specified PRG %1 does not exist\n\n&#58;EXIT\n[/code:39cl9mfn]\n\nEstoy usando xHarbour.\n\nAlguna sugerencia de que estoy mal.','',0,'AIA=','39cl9mfn',1,0,'',18,0,0),(21978,4950,1,186,0,'66.130.50.142',1163739606,1,0,1,1,1,1,'','','Hi Antonio,\n\nI scattered around TxBrowse sources and found out that there is a few functions used that does not exist in FW.\n\nCan you tell what small changes have to be made...\n\n\nRegards','',0,'AIA=','8maxiqm6',1,0,'',186,0,0),(21979,4931,1,186,0,'66.130.50.142',1163741091,1,0,1,1,1,1,'','','Hi Badara,\n\nSearching for My Printer did not give any result but...\nI did some exhaustive testing using the default printer name and found out that the default when changed was found under\n\nHKEY_CURRENT_USER \nSoftware\\Microsoft\\Windows NT\\Current Version\\Windows\n`Device` value correspond to the default printer.\n\nI did many changes and found the default printer name at the same place every single time.\n\nWhen I think of it, it make sense. Since the default printer is not define globaly (like Windows 98) but by active user it is normal to find it under CURRENT_USER.\n\nI will do some testing under Windows 2000 as soon as I can and let you know about my finding.\n\nCan you to confirm if I`m right or not.\n\nRegards[/u]','',0,'','kuq5ameh',1,0,'',186,0,0),(21980,4897,6,131,0,'194.179.55.36',1163746879,1,0,1,1,1,0,'','','Hola:\nPara crear PDF con campos editables necesitas la versión más completa del Adobe Acrobat, creo que es la edición profesional. \n\nManuel, estaría bien que publicaras un ejemplo de lo que haces.\n\nSaludos,','',0,'','2t8cstqo',1,0,'',131,0,0),(21981,4950,1,2,0,'87.218.146.200',1163748218,1,0,1,1,1,1,'','','Gilbert,\n\n&gt; there is a few functions used that does not exist in FW.\n\nWhich ones ?\n\n&gt; Can you tell what small changes have to be made... \n\nThe xbrowse.prg contains two classes inside. You may need to separate them in two PRGs.','',0,'','2me6r2jf',1,0,'',2,0,0),(21982,4809,3,2,0,'87.218.146.200',1163748373,1,0,1,1,1,1,'','','John,\n[code:23v2dqaq]\naFtpList&#58;=oFTP&#58;Directory&#40;&quot;*&#46;*&quot;&#41;\nfor m = 1 to Len&#40; aFtpList &#41;\n   for n = 1 to Len&#40; aFtpList&#91; m &#93;&#91; 3 &#93; &#41;\n      MsgInfo&#40; Asc&#40; SubStr&#40; aFtpList&#91; m &#93;&#91; 3 &#93;, n, 1 &#41; &#41; &#41;\n   next\nnext\n[/code:23v2dqaq]\nso we can see the eight bytes for each file.','',0,'AIA=','23v2dqaq',1,0,'',2,0,0),(21983,4971,6,838,0,'80.34.222.112',1163749445,1,0,1,1,1,0,'','','Hola Joao\n\nMe preguntas que porqué no migro a xharbour.\n\nNo me importaría, ahora que estoy empezando con harbour, lo que quiero es escojer algo que sea  el más utilizado dentro de nuestra comunidad xbase, y me parecía por la cantidad de post, y en las antiguas news que lo más manejado era harbour.\nYo por ser lo más cómodo utilizo Verce 4.3, y creo que no habría problema.\nAyer recompilé en xharbour la aplicación que estoy migrando de fivewin, y empezaron de nuevo los errores de compilación que ya tenía superados en harbour, así que si no me aconsejan otra cosa seguiré con harbour, salvo que me indiquen si hay muchas diferencias tanto en el resultado final de la aplicación, como en la problematica de generación de aplicaciones.\n\nUn saludo\n\nJose Luis','',0,'AIA=','r4c2e4q3',1,0,'',838,0,0),(21984,4972,7,527,0,'88.11.6.84',1163751888,1,0,1,1,1,0,'','Gracias','Gracias me ha ido perfectamente.\n\nComo siempre estais ahi cuando os necesitamos\ngracias','',0,'AIA=','32pt3q8i',1,0,'',527,0,0),(21985,4973,7,527,0,'88.11.6.84',1163751991,1,0,1,1,1,0,'','Otra pregunta por favor','Como puedo colcarle un color o un bmp de fondo a las pestañas\ngracias por vuestras contestaciones','',0,'AIA=','2f7t5qab',1,0,'',527,0,0),(21986,4974,20,837,0,'81.208.83.249',1163752031,1,0,1,1,1,1,'','Re: Programma per creare help in CHM','[quote=&quot;aerrigo&quot;:1oazoicf]Qualcuno conosce programmi open source per creare gli help delle procedure in formato CHM ?\n\nGrazie, Andrea.[/quote:1oazoicf]\n\nSul Forum di xharbour mi hanno segnalato questo prodotto.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.vizacc.com/gen_download.php\">http://www.vizacc.com/gen_download.php</a><!-- m -->\n\nL\'ho scaricato e lo stò usando sembra fatto bene.\n\nSalve a tutti, Andrea.','',0,'gA==','1oazoicf',1,0,'',837,0,0),(21987,4958,3,130,0,'141.51.32.24',1163753429,1,0,1,1,1,0,'','','what is  this class for ?\n\nI have a version without these missing functions, i send you to your private email.\n\nStefan','',0,'gA==','1nne6yv9',1,0,'',130,0,0),(21988,4883,7,106,0,'85.34.123.173',1163753779,1,0,1,1,1,1,'','','Antonio, ME FUNCIONA LA IMPRESION!!!\n\n\n\n[quote:1zy8zwcu]\nDear Mr. Pedro \n \nTo warm up the printer, it needs to take a few milliseconds.\n \nWe modified your code, and it work.\n \nHB_FUNC( PRT_TESTPRINT )\n{\n   CPrinter * printer = new CPrinter;\n \n   printer-&gt;Prt_Open();\n   Sleep(30);\n   printer-&gt;Prt_TestPrint();\n}\n \nBut I do not recommend to use Prt_Open() function at the same routine together with any printing commands.[/quote:1zy8zwcu]\n\n\nVisto que me recomiendan usar Prt_Open() al abrir el programa y no todo junto, como puedo hacer para crear un objeto (el objeto printer) y tenerlo ahi y usarlo cuando quiera.\nPor ejemplo asi:\n\n\noPrn := ClaseCPrinter()\n\noPrn:TestPrint()\n\no \n\nTestPrint( oPrn )\n\nGracias','',0,'gA==','1zy8zwcu',1,0,'',106,0,0),(21989,4976,1,31,0,'195.182.84.105',1163754049,1,0,1,1,1,1,'','Barcode lib/class/source for FW+Clipper','Hi !\n\n  I losed this in old PC <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->( . Ant it\'s needful to add in one place Code 39 barcode for old FW+Clipper application . Please send me directly if you have solution for that ...\n\n   With best regards and many thanks in advance !','',0,'gA==','1g19qkpu',1,0,'',31,0,0),(21990,4977,3,31,0,'195.182.84.105',1163754121,1,0,1,1,1,1,'','Barcode lib/class/source for FW+Clipper','Hi ! \n\nI losed this in old PC <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> . Ant it\'s needful to add in one place Code 39 barcode for old FW+Clipper application . Please send me directly if you have solution for that ... \n\nWith best regards and many thanks in advance !','',0,'gA==','18n503ct',1,0,'',31,0,0),(21991,4931,1,170,0,'83.179.164.131',1163755528,1,0,1,1,1,1,'','','Hi Gilbert,\n\nYesterday i seek in XP registry but not found, and today\nyou give me the right way !  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nI confirm this work under XP.\n\nI shall put a new upgrade today in \"Printer functions\" thread.\n\n\nMerci.\n\nRegardes,  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','a9euuxfm',1,0,'',170,0,0),(21992,4978,20,29,0,'88.149.164.244',1163756154,1,0,1,1,1,0,'','Impostare i margini della stampante','Salve,\nesiste una funzione per impostare i margini dell\'area non stampabile di una stampante ?\n\nPer esempio, con la funzione prnoffset(oPrn:hDC) posso ottenere i margini superiore e sinistro. Vorrei però poterli impostare sulla stampante tramite fivewin.\n\nQualche idea ?\n\nGrazie in anticipo\n\nSaluti\n\nMarco Turco','',0,'gA==','25jj1q5a',1,0,'',29,0,0),(21993,3143,1,170,0,'83.179.164.131',1163757183,1,0,1,1,1,1,'','','Hello,\n\nHere is an upgrade of WinDefPrn(), made to work\nwith Windows 2000 operating systems.\n\nThank to Gilbert for his good seek !   <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> \n\n( the registry is not \"easy to eat\" )\n\nRegards,\n\n[code:3r7qlj9x]\n******************\nFUNCTION WinDefPrn&#40;&#41;\n******************\n* Dernière modification le 17/11/2006\n* Retourne le nom de l\'imprimante par défaut en allant le chercher dans le registre Windows\n* &#40;regedit&#46;exe&#41;\nLOCAL cDefPrn &#58;= &quot;&quot;\n* Adresse dans le registre pour Windows 2000 et suivants\nLOCAL oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows&quot;&#41;\nIF oReg&#58;nError = 0\n  cDefPrn &#58;= oReg&#58;Get&#40;&quot;Device&quot;, &quot;&quot;&#41;\n  IF &quot;,&quot; $ cDefPrn\n    * Suppression du Pilote et du Port, non requis ici\n    cDefPrn &#58;= LEFT&#40;cDefPrn, AT&#40;&quot;,&quot;,cDefPrn&#41; -1&#41;\n  ENDIF\nELSE\n  * Alternative pour Windows 9x et Millennium\n  oReg&#58;Close&#40;&#41;\n  oReg &#58;= NIL\n  oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_CONFIG, &quot;System\\CurrentControlSet\\Control\\Print\\Printers&quot;&#41;\n  IF oReg&#58;nError = 0\n    cDefPrn &#58;= oReg&#58;Get&#40;&quot;Default&quot;, &quot;&quot;&#41;\n  ENDIF\nENDIF\noReg&#58;Close&#40;&#41;\noReg &#58;= NIL\nRETURN cDefPrn\n\n\n[/code:3r7qlj9x]','',0,'AIA=','3r7qlj9x',1,0,'',170,0,0),(21994,4943,20,8,0,'82.51.111.217',1163757636,1,0,1,1,1,0,'','','Purtroppo non va, la bitmap viene riscalata in base alla risoluzione della stampante. Altra idea ?','',0,'AIA=','yy83uf69',1,0,'',8,0,0),(21995,4902,6,104,0,'201.58.93.3',1163759741,1,0,1,1,1,0,'','','Olá Antonio,\n\nVeja se você consegue abrir a imagem que esta anexa neste arquivo.\nJá tentei abrí-la no paint / photopaint / office picture paint e não consigo <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n[url:2e93xgph]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/TEST&#46;ZIP[/url:2e93xgph]\n\nGracias,\n\nRossine.','',0,'EA==','2e93xgph',1,0,'',104,0,0),(21996,4979,6,352,0,'80.33.23.230',1163761006,1,0,1,1,1,0,'','Error al enlazar con FWH 2.8','Hola\nAl compilar con FWH 2.8, ilink32 produce el siguiente error:\n\nError: Unresolved external \'_hb_vmProcessSymbolEx\' referenced from C:FWH\\LIB\\FIVEH.LIB|DIALOG\nError: Unresolved external \'_hb_objHasMesage\' referenced from C:FWH\\LIB\\FIVEH.LIB|FFDLGPRC\n\nAlguien sabe que puede pasar ?\n\nGracias','',0,'EA==','1d3j65tq',1,0,'',352,0,0),(21997,4980,20,29,0,'88.149.164.244',1163762084,1,0,1,1,1,0,'','Versione del driver della stampante in uso','Salve,\nsapete se esiste una funzione per ottenere la versione del driver della stampante in uso ?\n\nGrazie\n\nMarco','',0,'EA==','q9rpocf7',1,0,'',29,0,0),(21998,4963,2,350,0,'80.32.243.219',1163762810,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:kyrt26k6]Yo tengo una app que mide 6 megs mas DLLs y no tiene ese problema.\n\nRecuerda que en los windows \"true 32\" (NT / 2000 / 2003 / XP) para que una  aplicacion de 16 bits corra bien necesitas crearle un acceso directo y luego indicar \"corra en su propio espacio de memoria\"[/quote:kyrt26k6]\n\nHola Rene, gracias eso no lo he probado. La semana que viene lo probaré el el domicilio del cliente, porque en mi ordenador no me pasa.\n\nSaludos','',0,'gA==','kyrt26k6',1,0,'',350,0,0),(21999,4943,20,6,0,'87.17.218.147',1163763123,1,0,1,1,1,1,'','','No, quella tecnica funziona perfettamente. Devi solo calcolare le dimensioni dell\'immagine in modo indipendente dalla stampante utilizzando il metodo oPrn:Cmtr2Pix().\n\nEMG','',0,'gA==','6keykxnp',1,0,'',6,0,0),(22000,4963,2,350,0,'80.32.243.219',1163763183,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3sjyytcg]Sebastián,\n\nPrueba a cambiar a \nBLINKER INCREMENTAL OFF[/quote:3sjyytcg]\n\nHola Antonio. Si pongo BLINKER INCREMENTAL OFF, me da el mensaje:\n\nBLINKER CLIPPER SYMBOL OFF required for huge symbol table\n\nNo me crea el ejecutable y ahí me pierdo. ¿ Algún ejemplo de como linkarlo poniendo INCREMENTAL OFF ?\n\nSaludos','',0,'gA==','3sjyytcg',1,0,'',350,0,0),(22001,4978,20,6,0,'87.17.218.147',1163763251,1,0,1,1,1,1,'','Re: Impostare i margini della stampante','Non si possono impostare dato che fanno parte delle caratteristiche fisico-costruttive della stampante.\n\nSe hai bisogno di margini tuoi (naturalmente non possono essere esterni a quelli fisici) puoi gestirli da programma.\n\nEMG','',0,'gA==','1ratv1c9',1,0,'',6,0,0),(22002,4977,3,6,0,'87.17.218.147',1163763418,1,0,1,1,1,1,'','Re: Barcode lib/class/source for FW+Clipper','Sent to your private email.\n\nEMG','',0,'gA==','35t3sn6i',1,0,'',6,0,0),(22003,4967,7,720,0,'80.59.110.137',1163763684,1,0,1,1,1,0,'','','Hola Antonio.\n\nEl ftp.prg lo he modificado solamente las lineas:\n\nPUBLIC server:=\"ftp://ip\"+space(15) \nPUBLIC user:=\"usuario\"+space(15) \nPUBLIC pass:=\"pass\"+space(15) \nPUBLIC loc_archivo:=curdir()+\"\\users.bmp\"+space(15) \nPUBLIC rem_archivo:=\"users.bmp\"+space(40) \n\ncorrespondientes a la funcion MAIN. Donde pone ip pongo logicamente la direccion del ftp, en usuario el login y en pass la contraseña. Users.bmp es el archivo que pretendo enviar...\n\nPor lo demas no he cambiado nada... No se si ese será el problema. No se si entendi mal el post anterior, ¿el programa no realiza la transmision fisicamente?...\n\nSi este fuera el caso me podrías indicar como hacerlo? Te lo agradecería..\n\nUn saludo y gracias-\n\nElías Torres.','',0,'gA==','3s8yp8om',1,0,'',720,0,0),(22004,4971,6,409,0,'201.246.67.53',1163763979,1,0,1,1,1,0,'','Esto te puede Ayudar','REDEFINE GET cBitmap ID 116 OF oFld:aDialogs[ 1 ] ;\n                ON CHANGE( cBitmap := AllTrim( oDbf:Ma_Bitmap ), ;\n                oBmp:Load( cBitmap ), oBmp:Refresh() ) UPDATE\n\nSaludos','',0,'','3553ykd9',1,0,'',409,0,0),(22005,4971,6,838,0,'80.34.222.112',1163766075,1,0,1,1,1,0,'','','Hola jbrita\n\nCon esto que me pones podré colocar un bitmap en cada pestaña?\n\nTengo que redefinir un bitmap para cada pesteña del folder?\n\nCuando puedas me contestas .\n\nDe todas formas, con tanto trasiego de poner librerias, cambiar includes, cambiar codigo a ver si funciona de una manera o de otra, ahora resulta que el folder que antes se veía así\n\n<!-- m --><a class=\"postlink\" href=\"http://img220.imageshack.us/my.php?image=clien1er9.jpg\">http://img220.imageshack.us/my.php?image=clien1er9.jpg</a><!-- m -->\n\nEs decir, las pestañas del color del resto\n\nAhora se ve así\n\n<!-- m --><a class=\"postlink\" href=\"http://img220.imageshack.us/my.php?image=clientesij9.jpg\">http://img220.imageshack.us/my.php?imag ... tesij9.jpg</a><!-- m -->\n\nEs decir las pestañas del folder se ven gris y el resto del color brush que tengo definido.\n\nSerá cuestión del recurso o del fuente. Ya he hecho de todo y nada.\n\nPor otra parte y con respecto a lo que me dijo joao que hiciera para probar, si denomino al recurso como Tfolder e incluyo la libreria foldbmp32.lib en la compilación, al ejecutar el programa me da el error:\n*******************************\nError description: Error BASE/3003  Cannot find super class: __CLSINSTSUPER\n**************************************\n\nSaludos y gracias\n\nJose luis','',0,'','3o0n6rio',1,0,'',838,0,0),(22006,4981,3,289,0,'82.167.7.51',1163767081,1,0,1,1,1,0,'','I have Good News with the images Jpg &amp; Gif &amp; bmp','Welcome to  Fivewin User\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nI have Good News with the images Jpg &amp; Gif &amp; bmp .\nNow Save &amp; Read Jpg Gif Up   Resourec.\nWith out Any DLL Or LIB.\nbut there is a problem with .\n1 - Of size picture  .\n2 -view Up with Resourec.\n3 -Wanted \'Class\'.\nPlease help me  for the production  \'CLASS\' For This.\nDownload  Test  From <!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/fwh/Image_jpg_gif.zip\">http://www.livesystem.net/fwh/Image_jpg_gif.zip</a><!-- m -->\nThank you\nHathal.\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1w67mlra',1,1164480902,'',289,1,0),(22007,4883,7,2,0,'87.218.146.117',1163767894,1,0,1,1,1,1,'','','Pedro,\n[code:11ot3mgp]\nstatic CPrinter * printer = NULL;\n \nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n      printer = new CPrinter;\n\n   printer-&gt;Prt_Open&#40;&#41;;\n   Sleep&#40;30&#41;;\n   printer-&gt;Prt_TestPrint&#40;&#41;;\n&#125;\n[/code:11ot3mgp]','',0,'AIA=','11ot3mgp',1,0,'',2,0,0),(22008,4883,7,2,0,'87.218.146.117',1163767978,1,0,1,1,1,1,'','','o bien:\n[code:10kx3k01]\nstatic CPrinter * printer = NULL;\n \nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n   &#123;\n      printer = new CPrinter;\n      printer-&gt;Prt_Open&#40;&#41;;\n      Sleep&#40;30&#41;;\n   &#125;\n\n   printer-&gt;Prt_TestPrint&#40;&#41;;\n&#125; \n[/code:10kx3k01]','',0,'AIA=','10kx3k01',1,0,'',2,0,0),(22009,4967,7,2,0,'87.218.146.117',1163768133,1,0,1,1,1,1,'','','Tienes alguna llamada a MsgInfo() en tu código ?\n\nSolo tienes un \"?\" ?\n\nCopia aqui el código completo.','',0,'AIA=','1zu5n9jl',1,0,'',2,0,0),(22010,4973,7,2,0,'87.218.146.117',1163768247,1,0,1,1,1,1,'','','De momento no está soportado lo que indicas.','',0,'AIA=','654y30e8',1,0,'',2,0,0),(22011,4979,6,2,0,'87.218.146.117',1163768319,1,0,1,1,1,1,'','','Ignacio,\n\nDescarga e instala Harbour ó xHarbour desde nuestra página de descarga de FWH. No estás usando la versión más reciente.','',0,'AIA=','2o7h98xw',1,0,'',2,0,0),(22012,4902,6,2,0,'87.218.146.117',1163768409,1,0,1,1,1,1,'','','Rossine,\n\nQue build de FWH estás usando ?','',0,'AIA=','1434e27f',1,0,'',2,0,0),(22013,4963,2,2,0,'87.218.146.117',1163768542,1,0,1,1,1,1,'','','Sebastián,\n\nPonle tambien:\nBLINKER CLIPPER SYMBOL OFF','',0,'AIA=','30wxwr07',1,0,'',2,0,0),(22014,4971,6,409,0,'201.246.67.53',1163768579,1,0,1,1,1,0,'','','cBitmap1  := AllTrim( oDbf:MA_Bitmap1 )\ncBitmap2  := AllTrim( oDbf:MA_Bitmap2 )\n\n   DEFINE DIALOG oDlg RESOURCE \"ART_FOLDER\" TITLE cTitulo OF oVentPrinc\n        \n   REDEFINE FOLDER oFld ID 99 OF oDlg ;\n            PROMPT  \"&amp;General\",\"&amp;Comercial\" ;\n            DIALOGS \"ART_GENERAL\" , \"ART_COMERCIAL\"\n\n   REDEFINE BITMAP oBmp FILENAME cBitmap1 ADJUST ID 114 OF oFld:aDialogs[ 1 ]  UPDATE\n   REDEFINE BITMAP oBmp FILENAME cBitmap2 ADJUST ID 118 OF oFld:aDialogs[ 2 ]  UPDATE','',0,'','3sic72tn',1,0,'',409,0,0),(22015,4902,6,104,0,'201.58.93.3',1163769056,1,0,1,1,1,0,'','','Antonio, fwh 2.7 fevereiro/2006.\n\nGracias,\n\nRossine.','',0,'','3i3nqecb',1,0,'',104,0,0),(22016,4967,7,720,0,'80.59.110.137',1163769322,1,0,1,1,1,0,'','','Antonio el codigo es el siguiente...\n\n\n#include \"Fwce.ch\" \n\n// \n// File attributes \n// \n\n#define FILE_ATTRIBUTE_READONLY  1 \n#define FILE_ATTRIBUTE_HIDDEN    2 \n#define FILE_ATTRIBUTE_SYSTEM    4 \n#define FILE_ATTRIBUTE_DIRECTORY 16 \n#define FILE_ATTRIBUTE_ARCHIVE   32 \n#define FILE_ATTRIBUTE_NORMAL    128 \n#define FILE_ATTRIBUTE_TEMPORARY 256 \n\n\n// \n// access types for InternetOpen() \n// \n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration \n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net \n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy \n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS \n\n\n// \n// manifests \n// \n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default \n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers \n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    \"     \" gopher \" \n#define INTERNET_DEFAULT_HTTP_PORT      80          //    \"     \" HTTP   \" \n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    \"     \" HTTPS  \" \n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers. \n\n\n// \n// service types for InternetConnect() \n// \n\n#define INTERNET_SERVICE_FTP     1 \n#define INTERNET_SERVICE_GOPHER  2 \n#define INTERNET_SERVICE_HTTP    3 \n\n\n// \n// flags for FTP \n// \n\n#define INTERNET_FLAG_TRANSFER_ASCII  1 \n#define INTERNET_FLAG_TRANSFER_BINARY 2 \n\n\nFUNCTION MAIN() \n    LOCAL oWnd \n    PUBLIC server:=\"ftp://ipftp\"+space(15) \n    PUBLIC user:=\"usuario\"+space(15) \n    PUBLIC pass:=\"pass\"+space(15) \n    PUBLIC loc_archivo:=curdir()+\"\\users.bmp\"+space(15) \n    PUBLIC rem_archivo:=\"users.bmp\"+space(40) \n    PUBLIC lSobreescribir:=.T. \n    PUBLIC lBinary:=.T. \n    DEFINE WINDOW oWND TITLE \"Prueba FTP\" \n    #DEFINE margen_derecho                 5 \n    #DEFINE largo_say                     100 \n    #DEFINE largo_get                     130 \n    #DEFINE ancho                          20 \n    #DEFINE separacion_entre_lineas       ancho+10 \n \n** SERVIDOR: \n    \n    #DEFINE oSay1 oWND:aControls[1] \n    @10,margen_derecho SAY \"Servidor: \" SIZE largo_say, ancho PIXEL OF oWND \n    @ oSay1:ntop, oSay1:nRight+1 GET server SIZE largo_get, ancho PIXEL OF oWnd \n \n** USER: \n \n    #DEFINE oSay2 oWnd:aControls[3] \n    @ oSay1:nTop+separacion_entre_lineas, margen_derecho SAY \"User:\" SIZE largo_say, ancho PIXEL OF oWnd \n    @ oSay2:nTop, oSay2:nRight+1 GET user SIZE largo_get,ancho PIXEL OF oWnd \n \n** PASS: \n \n    #DEFINE oSay3 oWnd:aControls[5] \n    @ oSay2:nTop+separacion_entre_lineas,  margen_derecho SAY \"Password:\" SIZE largo_say, ancho PIXEL OF oWnd \n    @ oSay3:nTop, oSay3:nRight+1 GET pass SIZE largo_get,ancho PIXEL OF oWnd \n \n* ARCHIVO LOCAL: \n \n    #DEFINE oSay4 oWnd:aControls[7] \n    @ oSay3:nTop+separacion_entre_lineas,  margen_derecho SAY \"Archivo local:\" SIZE largo_say, ancho PIXEL OF oWnd \n    @ oSay4:nTop, oSay4:nRight+1 GET loc_archivo SIZE largo_get,ancho PIXEL OF oWnd \n \n* ARCHIVO REMOTO: \n \n    #DEFINE oSay5 oWnd:aControls[9] \n    @ oSay4:nTop+separacion_entre_lineas,  margen_derecho SAY \"Archivo Remoto:\" SIZE largo_say, ancho PIXEL OF oWnd \n    @ oSay5:nTop, oSay5:nRight+1 GET rem_archivo SIZE largo_get,ancho PIXEL OF oWnd \n \n* ENVIAR \n \n    #DEFINE oButton1 oWnd:aControls[11] \n    @ oSay5:nTop+separacion_entre_lineas, margen_derecho+10 BUTTON \"Enviar\" SIZE 50, ancho  PIXEL ACTION msginfo(enviar()) OF oWnd \n \n* TRAER \n \n    #DEFINE oButton2 oWnd:aControls[12] \n    @ oButton1:nTop, oButton1:nRight+20 BUTTON \"Traer\" SIZE 50, ancho  PIXEL ACTION msginfo(traer()) OF oWnd \n \n* SOBREESCRIBIR \n \n    #DEFINE oChk1 oWnd:aControls[13] \n    @ oButton1:nTop+separacion_entre_lineas, margen_derecho CHECKBOX lSobreescribir PROMPT \"Sobreescribir\" SIZE 150, ancho  PIXEL OF oWnd \n \n* BINARY \n \n    #DEFINE oChk2 oWnd:aControls[14] \n    @ oChk1:nTop+separacion_entre_lineas, margen_derecho CHECKBOX lBinary PROMPT \"Transferencia Binaria\" SIZE 150, ancho  PIXEL OF oWnd \n\n   ACTIVATE WINDOW oWND \nRETURN NIL \n\nFUNCTION Enviar() \n    LOCAL nRet \n    LOCAL hInternet, hConnect \n    hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \n    hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 ) \n    IF FTPPUTFILE( hConnect, rtrim(loc_archivo), rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 ) \n       nRet:=0 \n    ELSE \n       nRet:=GetLAstError() \n    ENDIF \n    INTERNETCLOSEHANDLE( hConnect ) \n    INTERNETCLOSEHANDLE( hInternet ) \nRETURN nRet \n\nFUNCTION Traer() \n    LOCAL nRet \n    LOCAL hInternet, hConnect \n    hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \n    hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 ) \n    IF FTPGETFILE( hConnect, rtrim(rem_archivo), rtrim(loc_archivo), IIF( lSobreescribir,0,1), FILE_ATTRIBUTE_ARCHIVE, 0, 0 ) \n       nRet:=0 \n    ELSE \n       nRet:=GetLAstError() \n    ENDIF \n    INTERNETCLOSEHANDLE( hConnect ) \n    INTERNETCLOSEHANDLE( hInternet ) \nRETURN nRet \n\n#pragma BEGINDUMP \n\n#include \"windows.h\" \n#include \"wininet.h\" \n#include \"hbapi.h\" \n\n\nLPWSTR AnsiToWide( LPSTR ); \n\n\nHB_FUNC( INTERNETOPEN ) \n{ \n    LPWSTR cAgent = AnsiToWide( hb_parc( 1 ) ); \n    LPWSTR cProxyName = AnsiToWide( hb_parc( 3 ) ); \n    LPWSTR cProxyBypass = AnsiToWide( hb_parc( 4 ) ); \n    HINTERNET hInternet = InternetOpen( cAgent, hb_parnl( 2 ), cProxyName, cProxyBypass, hb_parnl( 5 ) ); \n    hb_xfree( cAgent ); \n    hb_xfree( cProxyName ); \n    hb_xfree( cProxyBypass ); \n    hb_retnl( ( LONG ) hInternet ); \n} \n\nHB_FUNC( INTERNETCLOSEHANDLE ) \n{ \n    hb_retl( InternetCloseHandle( ( HINTERNET ) hb_parnl( 1 ) ) ); \n} \n\nHB_FUNC( INTERNETCONNECT ) \n{ \n    LPWSTR cServerName = AnsiToWide( hb_parc( 2 ) ); \n    LPWSTR cUserName = AnsiToWide( hb_parc( 4 ) ); \n    LPWSTR cPassword = AnsiToWide( hb_parc( 5 ) ); \n    HINTERNET hInternet = InternetConnect( ( HINTERNET ) hb_parnl( 1 ), cServerName, ( INTERNET_PORT ) hb_parnl( 3 ), cUserName, cPassword, hb_parnl( 6 ), hb_parnl( 7 ), hb_parnl( 8 ) ); \n    hb_xfree( cServerName ); \n    hb_xfree( cUserName ); \n    hb_xfree( cPassword ); \n    hb_retnl( ( LONG ) hInternet ); \n} \n\nHB_FUNC( FTPGETFILE ) \n{ \n    LPWSTR cRemoteFile = AnsiToWide( hb_parc( 2 ) ); \n    LPWSTR cNewFile = AnsiToWide( hb_parc( 3 ) ); \n    hb_retl( FtpGetFile( ( HINTERNET ) hb_parnl( 1 ), cRemoteFile, cNewFile, hb_parl( 4 ), hb_parnl( 5 ), hb_parnl( 6 ), hb_parnl( 7 ) ) ); \n    hb_xfree( cRemoteFile ); \n    hb_xfree( cNewFile ); \n} \n\nHB_FUNC( FTPPUTFILE ) \n{ \n    LPWSTR cLocalFile = AnsiToWide( hb_parc( 2 ) ); \n    LPWSTR cNewRemoteFile = AnsiToWide( hb_parc( 3 ) ); \n    hb_retl( FtpPutFile( ( HINTERNET ) hb_parnl( 1 ), cLocalFile, cNewRemoteFile, hb_parnl( 4 ), hb_parnl( 5 ) ) ); \n    hb_xfree( cLocalFile ); \n    hb_xfree( cNewRemoteFile ); \n} \n\n#pragma ENDDUMP \n\n\nSaludos...\n\nElías Torres.','',0,'','3nn3k558',1,0,'',720,0,0),(22017,4979,6,352,0,'80.33.23.230',1163769388,1,0,1,1,1,0,'','','ok, lo hice pero no actualicé bien las rutas\nGracias','',0,'','2oix0iq9',1,0,'',352,0,0),(22018,4971,6,838,0,'80.34.222.112',1163770447,1,0,1,1,1,0,'','','Hola jbrita\n\nEsto que me has mandado, salvo error lo que hace es pintar un bitmap en un folder, pero mi porblema está en las pestañitas de cada folder, en la parte superior, al lado de donde pone \"General\" y \"Comercial\", un bmp de esos pequeños de 16x16.\n\nDe todas las maneras como explico anteriormente ya lo he desechado, porque me ha dicho Joao que no se puede en harbour, y ahora mi problema viene porque esas pestañitas no me cogen el color del resto del folder como he explicado también.\n\nUn saludo\n\nJose Luis','',0,'','2b5nc7c9',1,0,'',838,0,0),(22019,4897,6,180,0,'83.37.0.5',1163770769,1,0,1,1,1,0,'','','En primer lugar, Acrobat Reader solo sirve para visualizar ficheros PDF. Si quieres modificarlos y/o editar campos necesitas Adobe Acrobat, con la herramienta Form se crean/modifican los campos.\nEl ejemplo es tan sencillo como esto:\n[code:3g5rek5x]\nLocal cFicheroXML&#58;= &quot;nomina&#46;xml&quot; \nLocal cLugarAcrobat&#58;=&quot;C&#58;\\Archivos de programa\\Adobe\\Acrobat 7&#46;0\\Reader\\AcroRd32&#46;exe&quot; \n Winexec&#40;cLugarAcrobat+&quot; &quot;+cFicheroXML&#41;  \n[/code:3g5rek5x]\n\nAquí teneis los ficheros:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029aaf6b33/nomina.pdf.html\">http://hyperupload.com/download/029aaf6 ... a.pdf.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02339bd179/nomina.xml.html\">http://hyperupload.com/download/02339bd ... a.xml.html</a><!-- m -->\n\nSaludos,\nManuel','',0,'AIA=','3g5rek5x',1,0,'',180,0,0),(22020,4883,7,106,0,'85.34.123.173',1163771414,1,0,1,1,1,1,'','','Antonio,\n\n\nUn espectaculo!!!! FUNCIONA  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nMuchas gracias por tu invalorable ayuda.\nDe verdad, no se que hubiera hecho si no me respondías tu.\n\nYa empecé a escribir las primeras funciones que necesito para imprimir:\n\n\n[code:8il02zs0]\n#ifdef MOBITRON\n\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;c&#58;\\lavwin\\teve\\mobitron\\inc\\Printer&#46;h&quot;  \n#include &quot;c&#58;\\lavwin\\teve\\mobitron\\inc\\Beep&#46;h&quot;\n\n\nstatic CPrinter * printer = NULL;\n \nHB_FUNC&#40; PRT_OPEN &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n   &#123;\n      printer = new CPrinter;\n   &#125;\n   printer-&gt;Prt_Open&#40;&#41;;\n   Sleep&#40;30&#41;;\n&#125;\n\n\nHB_FUNC&#40; PRT_CLOSE &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n   &#123;\n      printer = new CPrinter;\n   &#125;\n   printer-&gt;Prt_Close&#40;&#41;;\n&#125;\n\n\n\nHB_FUNC&#40; PRT_PRINTTEXT &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n   &#123;\n      printer = new CPrinter;\n   &#125;\n   printer-&gt;Prt_PrintText&#40; hb_parc&#40;1&#41;, hb_parni&#40;2&#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; PRT_SETLINESPACING &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n   &#123;\n      printer = new CPrinter;\n   &#125;\n   printer-&gt;Prt_SetLineSpacing&#40; hb_parni&#40;1&#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; PRT_LINEFEEDBYLINE &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n   &#123;\n      printer = new CPrinter;\n   &#125;\n   printer-&gt;Prt_LineFeedByLine&#40; hb_parni&#40;1&#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; PRT_TESTPRINT &#41;\n&#123;\n   CPrinter * printer = new CPrinter;\n\n   printer-&gt;Prt_Open&#40;&#41;;\n   Sleep&#40;30&#41;;\n   printer-&gt;Prt_TestPrint&#40;&#41;;\n   //printer-&gt;Prt_Close&#40;&#41;;\n&#125;\n\n\nHB_FUNC&#40; BEEP_ON &#41; // nTone, nTime\n&#123;\n   CBeep * Beep = new CBeep;\n\n   Beep-&gt;Beep_On&#40; hb_parni&#40;1&#41;, hb_parni&#40;2&#41;&#41;;\n\n&#125;\n\n#pragma ENDDUMP\n\n#else\n  FUNCTION Prt_TestPrint&#40;&#41;; RETURN 0\n  FUNCTION Beep_On&#40;&#41;; RETURN 0\n#endif\n[/code:8il02zs0]\n\n\nSolo me queda una cosa para resolver, que de todos modos no \nes un grave problema, pero es lo siguiente, mando a imprimir y no lo hace\nhasta que no pongo un msginfo(), y bueno, le pongo uno que dice msginfo(\"FIN IMPRESION\")\nsin esto, imprime solo una linea y nada mas...\n\nGRACIAS, GRACIAS, GRACIAS\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','8il02zs0',1,0,'',106,0,0),(22021,4982,2,501,0,'200.32.103.179',1163773040,1,0,1,1,1,0,'','Para Ricardo Becares','Estimado Ricardo si no es molestia me podrías tirar una ayuda con Mediator.\n\nSi preferís te puedo preguntar por correo o como vos me digas, te dejo el mio para que me contactes si puede ser. \n\n<!-- e --><a href=\"mailto:cortiz@assistinfo.com.ar\">cortiz@assistinfo.com.ar</a><!-- e -->\n\nDesde ya muchas gracias.','',0,'AIA=','1dx3jjlo',1,0,'',501,0,0),(22022,4872,2,501,0,'200.32.103.179',1163773656,1,0,1,1,1,0,'','','Raul tengo algo adaptado para FiveWin usando lo que en su momento proporciono Epson, es medio viejo pero andaba, si queres te dejo mi correo para que me contactes en provado y vemos de que pruebes estas librerias.\n\n<!-- e --><a href=\"mailto:cortiz@assistinfo.com.ar\">cortiz@assistinfo.com.ar</a><!-- e -->\n\nAtte. CO.','',0,'AIA=','q7tizml1',1,0,'',501,0,0),(22023,4971,6,362,0,'200.168.52.156',1163777169,1,0,1,1,1,1,'','','CAMBIASTES SYSTABCONTROL32 POR \"TFOLDER\" EN LAS PROPRIEDADS DEL FOLDER???','',0,'AIA=','1f40akg7',1,0,'',362,0,0),(22024,4983,4,89,0,'213.21.136.60',1163777258,1,0,1,1,1,0,'','DLL','Hello Antonio \n\nI have a cash register with Windows CE.NET 4.20 \nThe program works very well. \n\nNow I have to link with a DLL , I need only 3 functions \n1) DLL FUNCTION RCHOpen() AS LONG PASCAL FROM \"RCHOpen\" LIB \"RCHGlobe.dll\" \n2) DLL FUNCTION RCHClose() AS LONG PASCAL FROM \"RCHClose\" LIB \"RCHGlobe.dll\"\n\nThis 2 functions works and return correctly 0\n\n3) DLL FUNCTION RCHSendData(sIn  AS STRING ,sOut AS STRING) AS LONG	PASCAL FROM \"RCHSendData\" LIB \"RCHGlobe.dll\"\n\n VB.NET Code is =   Public Shared Function RCHSendData(ByVal a As String, ByVal b As String) As Int32 )\n\nI call the function \n\n      sIn := AnsiToWide(\"=K\")\n      sOut := AnsiToWide(space(40))\n      nRet := RchSendData(sIn,sOut)\n\n\nBut return always an error \n(I try without AnsiToWide)\n\n\nAntonio , are you able to give me some clue as to solve this problem ? \n\nRegards MAurizio\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n \n\nI know that this problem could be due to the cash. \nAntonio , are you able to give me some clue as to solve this problem ?','',0,'AIA=','14rzjm29',1,0,'',89,0,0),(22025,4973,7,527,0,'83.40.174.110',1163779580,1,0,1,1,1,0,'','Gracias','Gracias','',0,'AIA=','1mawgly1',1,0,'',527,0,0),(22026,4984,6,743,0,'200.79.46.141',1163779997,1,0,1,1,1,0,'','duda TWBrowse','como puedo quitar el espacio en blanco o que me dimensione toda la pantalla del TWBrowse(), quiero poner una imagen pero como la coloco\n\nsaludos,\n\n [/img][/url]','',0,'','1auubzft',1,0,'',743,0,0),(22027,4983,4,6,0,'87.17.218.147',1163780825,1,0,1,1,1,1,'','Re: DLL','[quote=&quot;Maurizio&quot;:3h8fwdq6]3) DLL FUNCTION RCHSendData(sIn  AS STRING ,sOut AS STRING) AS LONG	PASCAL FROM \"RCHSendData\" LIB \"RCHGlobe.dll\"[/quote:3h8fwdq6]\n\nTry AS LPSTR instead of the two AS STRING.\n\nEMG','',0,'gA==','3h8fwdq6',1,0,'',6,0,0),(22028,4883,7,2,0,'87.218.146.117',1163782347,1,0,1,1,1,1,'','','Pedro,\n\nPrueba a llamar a SysRefresh() en vez de llamar a MsgInfo()','',0,'gA==','3h5bdepq',1,0,'',2,0,0),(22029,4780,8,255,0,'189.140.242.8',1163782452,1,0,1,1,1,1,'','','Y los que no somos usuarios de visual fox pro ????\ncomo le vamos a hacer con los recursos???\n\nDe paso aprovecho para preguntarte sobre\nFiveLinux..... como editar los recursos ????\n\nGracias antonio.','',0,'gA==','1yj8b9vv',1,0,'',255,0,0),(22030,4967,7,2,0,'87.218.146.117',1163782510,1,0,1,1,1,1,'','','Elías,\n\nSi te aparece un 6 debe ser el resultado de GetLAstError().\n\nHas buscado que significa ese código de error ?','',0,'gA==','1d5bg602',1,0,'',2,0,0),(22031,4967,7,720,0,'80.59.110.137',1163782591,1,0,1,1,1,0,'','','Hola..\n\nAntonio al final he solucionado el tema del ftp. He cogido otro ejemplo del foro y me funciona correctamente. Viendo el funcionamiento del ftp al que se le pasa la direccion ip, el usuario y la contraseña se me ha ocurrido si existe alguna funcion que haga ese uso a la hora de coger un archivo desde otra maquina....\n\nYo el archivo desde otra maquina lo uso asi:\n\nUSE (\"\\\\maquina\\path\\archivo.dbf\") share\n\nLo que pasa es que cada vez que entro me pide el usuario y la contraseña que tiene el equipo... Se puede pasar por parametros a alguna funcion para que haga la validacion sobre la marcha???\n\n\nGracias a todos lo que poneis ejemplos en el foro, nos sirven de mucho..\n\nSaludos.\n\nElías Torres.','',0,'gA==','18dbnyla',1,0,'',720,0,0),(22032,4780,8,2,0,'87.218.146.117',1163782685,1,0,1,1,1,1,'','','Juan Carlos,\n\nLa idea es usar el \"Interface Builder\" de Mac OSX hasta que tengamos disponible nuestro propio editor de ventanas. Viene incluido en Mac OSX.\n\nEn Linux el equivalente es \"Glade\".','',0,'gA==','3tft7ib0',1,0,'',2,0,0),(22033,4967,7,2,0,'87.218.146.117',1163782819,1,0,1,1,1,1,'','','Elías,\n\nNo lo sé, habría que buscar documentación al respecto.','',0,'gA==','2jljh20v',1,0,'',2,0,0),(22034,4902,6,2,0,'87.218.146.117',1163782911,1,0,1,1,1,1,'','','Rossine,\n\nEl ejemplo que te he indicado funciona correctamente con FWH 2.8 y el bitmap es un bitmap estandard. No se que puede estar ocurriéndote.','',0,'gA==','19kh259m',1,0,'',2,0,0),(22035,4984,6,2,0,'87.218.146.117',1163783138,1,0,1,1,1,1,'','','Asi se pone una imagen, cambia los &lt; &gt; por [  ]:\n\n&lt;img]http://img132.imageshack.us/img132/9195/picture1xx9.png[/img&gt;','',0,'','3iheleq1',1,0,'',2,0,0),(22036,4935,6,77,0,'217.126.90.142',1163783305,1,0,1,1,1,0,'','','hOLA, creo que la mejor solucion es que instales  una impresora Generico solo texto en el servidor, a la cual le envias los datos como por tdosprn pero con print  y entonces podras abrir el cajon sin problemas enviando el codigo chr del cajon, de todas formas, creo que tengo un ejemplo en cuanto pueda te lo remito.\n\nsaludos.','',0,'','e8y6njlw',1,0,'',77,0,0),(22037,4609,6,255,0,'189.140.242.8',1163783702,1,0,1,1,1,1,'','','Compadre! viejo amigo.....\neso que pusiste ya me lo habias mostrado con anterioridad\ny te repito lo que te dije en ese entonces...\nsimplemente fabuloso !!!\nEn hora buena.. ah otra cosa... ya dame mas chamba no ???\nSaludos','',0,'','1m7ukate',1,0,'',255,0,0),(22038,4983,4,89,0,'213.21.136.60',1163784102,1,0,1,1,1,0,'','','Ciao Enrico\n\nunfortunately I have already tryed   .\n\nThank Maurizio','',0,'','ic8in4wd',1,0,'',89,0,0),(22039,4983,4,6,0,'87.17.218.147',1163784560,1,0,1,1,1,1,'','','It may be that the DLL command is not fully implemented in FWPPC yet.\n\nAntonio?\n\nEMG','',0,'','3i9nk6u1',1,0,'',6,0,0),(22040,4984,6,743,0,'200.67.230.223',1163784808,1,0,1,1,1,0,'','','[img:1hbqr9pi]http&#58;//img398&#46;imageshack&#46;us/my&#46;php?image=mandarjw6&#46;png[/img:1hbqr9pi]\n\naqui esta la imagen si alguien tiene la respuesta por favor mandar \n\nsaludos','',0,'CA==','1hbqr9pi',1,0,'',743,0,0),(22041,4967,7,720,0,'80.59.110.137',1163784952,1,0,1,1,1,0,'','','Antonio:\n\nSe que lo que voy a preguntar es una boberia pero resulta que no se como leer una tabla con un select y quedarme solo con algunos campos y almacenarlos en una tabla o cursor temporal.....\n\nEn fox si se como es pero aqui no me va me da error....\n\n\nsaludos.\n\nElías Torres.','',0,'CA==','211ahabu',1,0,'',720,0,0),(22042,4883,7,106,0,'85.34.123.173',1163785551,1,0,1,1,1,1,'','','Antonio,\n\nProbé a aponer el sysrefresh, pero por algun motivo no imprime ni siquiera una linea.\nSeguramente es que apago la impresora antes de que comience a imprimir.\n\nDe este modo mando a imprimir, pongo el mensaje, luego que hago click en el mensaje cierro la impresora.\n\n\nGracias','',0,'CA==','2y6r4n1v',1,0,'',106,0,0),(22043,4969,7,832,0,'201.122.21.224',1163791249,1,0,1,1,1,0,'','Re: AYUDA URGENTE ¡¡¡ COMO ENVIAR UN ARCHIVO POR FTP !!!','[quote=&quot;prm_pedro&quot;:1dx6jkzf]8)   HOLA A TODOS\n\n\n\nOIGAN ALGUIEN ME PUEDE ENVIAR UN EJEMPLO DE COMO ENVIA UN ARCHIVO POR FTP...\n\n\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->    ESPERO Y ALGUIEN ME PUEDA AYUDAR\n\n\nY GRACIAS POR SU AYUDA.... <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:1dx6jkzf]\n\n\nAYUDA URGENTE','',0,'gA==','1dx6jkzf',1,0,'',832,0,0),(22044,4943,20,8,0,'213.45.245.233',1163791420,1,0,1,1,1,0,'','','Ok grazie, ci provo !','',0,'gA==','1837n3ng',1,0,'',8,0,0),(22045,4969,7,720,0,'80.59.110.137',1163792526,1,0,1,1,1,0,'','','Hola...\n\n\nPrueba con este codigo. Solo debes modificar un par de cosillas, la ip del ftp, el usuario, la contraseña, el directorio remoto y el local. Espero te sirva.. Por cierto este codigo es del ftp.prg del directorio samples.....\n\n\n// FTP sample developed by Enrico Maria Giordano\n\n#include \"Fwce.ch\" \n\n// \n// File attributes \n// \n\n#define FILE_ATTRIBUTE_READONLY  1 \n#define FILE_ATTRIBUTE_HIDDEN    2 \n#define FILE_ATTRIBUTE_SYSTEM    4 \n#define FILE_ATTRIBUTE_DIRECTORY 16 \n#define FILE_ATTRIBUTE_ARCHIVE   32 \n#define FILE_ATTRIBUTE_NORMAL    128 \n#define FILE_ATTRIBUTE_TEMPORARY 256 \n\n\n// \n// access types for InternetOpen() \n// \n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration \n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net \n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy \n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS \n\n\n// \n// manifests \n// \n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default \n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers \n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    \"     \" gopher \" \n#define INTERNET_DEFAULT_HTTP_PORT      80          //    \"     \" HTTP   \" \n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    \"     \" HTTPS  \" \n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers. \n\n\n// \n// service types for InternetConnect() \n// \n\n#define INTERNET_SERVICE_FTP     1 \n#define INTERNET_SERVICE_GOPHER  2 \n#define INTERNET_SERVICE_HTTP    3 \n\n\n// \n// flags for FTP \n// \n\n#define INTERNET_FLAG_TRANSFER_ASCII  1 \n#define INTERNET_FLAG_TRANSFER_BINARY 2 \n\n\nFUNCTION MAIN() \n\n    LOCAL hInternet, hConnect \n\n    hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \n\n    hConnect = INTERNETCONNECT( hInternet, \"Your ftp address\", INTERNET_INVALID_PORT_NUMBER, \"userid\", \"password\", INTERNET_SERVICE_FTP, 0, 0 ) \n\n//    ? FTPGETFILE( hConnect, \"Your remote file\", \"Your local file\", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 ) \n\n    ? FTPPUTFILE( hConnect, \"Your local file\", \"Your remote file\", 0, 0 ) \n\n    INTERNETCLOSEHANDLE( hConnect ) \n\n    INTERNETCLOSEHANDLE( hInternet ) \n\n    RETURN NIL \n\n\n#pragma BEGINDUMP \n\n#include \"windows.h\" \n#include \"wininet.h\" \n#include \"hbapi.h\" \n\n\nLPWSTR AnsiToWide( LPSTR ); \n\n\nHB_FUNC( INTERNETOPEN ) \n{ \n    LPWSTR cAgent = AnsiToWide( hb_parc( 1 ) ); \n    LPWSTR cProxyName = AnsiToWide( hb_parc( 3 ) ); \n    LPWSTR cProxyBypass = AnsiToWide( hb_parc( 4 ) ); \n\n    HINTERNET hInternet = InternetOpen( cAgent, hb_parnl( 2 ), cProxyName, cProxyBypass, hb_parnl( 5 ) ); \n\n    hb_xfree( cAgent ); \n    hb_xfree( cProxyName ); \n    hb_xfree( cProxyBypass ); \n\n    hb_retnl( ( LONG ) hInternet ); \n} \n\n\nHB_FUNC( INTERNETCLOSEHANDLE ) \n{ \n    hb_retl( InternetCloseHandle( ( HINTERNET ) hb_parnl( 1 ) ) ); \n} \n\n\nHB_FUNC( INTERNETCONNECT ) \n{ \n    LPWSTR cServerName = AnsiToWide( hb_parc( 2 ) ); \n    LPWSTR cUserName = AnsiToWide( hb_parc( 4 ) ); \n    LPWSTR cPassword = AnsiToWide( hb_parc( 5 ) ); \n\n    HINTERNET hInternet = InternetConnect( ( HINTERNET ) hb_parnl( 1 ), cServerName, ( INTERNET_PORT ) hb_parnl( 3 ), cUserName, cPassword, hb_parnl( 6 ), hb_parnl( 7 ), hb_parnl( 8 ) ); \n\n    hb_xfree( cServerName ); \n    hb_xfree( cUserName ); \n    hb_xfree( cPassword ); \n\n    hb_retnl( ( LONG ) hInternet ); \n} \n\n\nHB_FUNC( FTPGETFILE ) \n{ \n    LPWSTR cRemoteFile = AnsiToWide( hb_parc( 2 ) ); \n    LPWSTR cNewFile = AnsiToWide( hb_parc( 3 ) ); \n\n    hb_retl( FtpGetFile( ( HINTERNET ) hb_parnl( 1 ), cRemoteFile, cNewFile, hb_parl( 4 ), hb_parnl( 5 ), hb_parnl( 6 ), hb_parnl( 7 ) ) ); \n\n    hb_xfree( cRemoteFile ); \n    hb_xfree( cNewFile ); \n} \n\n\nHB_FUNC( FTPPUTFILE ) \n{ \n    LPWSTR cLocalFile = AnsiToWide( hb_parc( 2 ) ); \n    LPWSTR cNewRemoteFile = AnsiToWide( hb_parc( 3 ) ); \n\n    hb_retl( FtpPutFile( ( HINTERNET ) hb_parnl( 1 ), cLocalFile, cNewRemoteFile, hb_parnl( 4 ), hb_parnl( 5 ) ) ); \n\n    hb_xfree( cLocalFile ); \n    hb_xfree( cNewRemoteFile ); \n} \n\n#pragma ENDDUMP\n\n\n\n\nSaludos...\n\nElías Torres','',0,'gA==','3gsc1wdg',1,0,'',720,0,0),(22046,4971,6,838,0,'80.59.225.15',1163793147,1,0,1,1,1,0,'','','Si, hice todo tipo de cambios y probaturas y nada.\n\nSi nos olvidamos de los bitmaps, lo que no entiendo es porqué al principio las orejas del folder se veían así\n\n[url=http&#58;//img299&#46;imageshack&#46;us/my&#46;php?image=fold1mf5&#46;jpg:8gupgodv][img:8gupgodv]http&#58;//img299&#46;imageshack&#46;us/img299/7977/fold1mf5&#46;th&#46;jpg[/img:8gupgodv][/url:8gupgodv]\n\nes decir orejas con color.\nAhora las veo así\n\n[url=http&#58;//img480&#46;imageshack&#46;us/my&#46;php?image=fold2ii6&#46;jpg:8gupgodv][img:8gupgodv]http&#58;//img480&#46;imageshack&#46;us/img480/2299/fold2ii6&#46;th&#46;jpg[/img:8gupgodv][/url:8gupgodv]\n\nEs decir sin color\n\nY en el ejemplo de Fwh se ve así\n\n[url=http&#58;//img54&#46;imageshack&#46;us/my&#46;php?image=fold3jz7&#46;jpg:8gupgodv][img:8gupgodv]http&#58;//img54&#46;imageshack&#46;us/img54/7391/fold3jz7&#46;th&#46;jpg[/img:8gupgodv][/url:8gupgodv]\n\nEs decir con una rayita amarilla en la parte superior que queda muy bien.\n\nAlguna sugerencia?\n\nSaludos\n\nJose Luis','',0,'GA==','8gupgodv',1,0,'',838,0,0),(22047,4985,3,234,0,'75.34.217.174',1163794273,1,0,1,1,1,1,'','Printer Preview page counter bug','Hello,\n\nThere is a bug with the page counter on the printer preview. Is there an update to correct the problem?\n\nThank you,','',0,'GA==','3gzqz94k',1,0,'',234,0,0),(22048,4971,6,362,0,'200.168.52.156',1163795618,1,0,1,1,1,1,'','','Compile estes ejemplos con HARBOUR...\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=674\">http://www.fivewin.com.br/exibedicas.asp?id=674</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=673\">http://www.fivewin.com.br/exibedicas.asp?id=673</a><!-- m -->\n\nEn contrário... Migres a XHARBOUR.','',0,'GA==','xk1as16k',1,0,'',362,0,0),(22049,4869,7,490,0,'88.11.38.47',1163797581,1,0,1,1,1,0,'','','Antonio,\n\nIsExecRunning() con ese parámetro funciona con mobile 2003 y windows CE, pero con Mobile 2005 da un GPF.\n\n¿Se puede ver por qué?\n\n\nUn Saludo,\nJoaquín','',0,'GA==','1yvz9zht',1,0,'',490,0,0),(22050,4931,1,186,0,'66.130.50.142',1163798484,1,0,1,1,1,1,'','','Ho Badara,\n\n\nI did more research &amp; testing today. What I fiind out on XP worked well on 2000 but not on XP. Still will search for an answer and let you know later on.','',0,'GA==','pdwau7qo',1,0,'',186,0,0),(22051,4985,3,9,0,'85.59.46.255',1163799272,1,0,1,1,1,1,'','','Try to change in preview.prg, Sebastian Almiron solution:\n\n@ 7, 410 SAY oPAGE PROMPT \"Número de página: \" + ;\n           ltrim(str(nPage,4,0)) ;\n            +\" / \"+ltrim(str(len(aFiles))) SIZE 180, 15 ;\n           PIXEL OF oBar FONT oFont','',0,'GA==','zh8883gl',1,0,'',9,0,0),(22052,4950,1,186,0,'66.130.50.142',1163799975,1,0,1,1,1,1,'','','Hi Antonio,\n\n\nFirst, a lot of define are longer than 10 char with similar syntax.\nex.: INACTIVECAPTION...\nBut that can be arrange by changing the syntax I guess\n\nSecond, many METHOD also have more than 10 char with similar syntax.\nex.: CreateFromCode(), CreateFromResource()\nThis to can be arrage by changing the syntax\n\nThird, and that`s the one bugging me is two functions called\nXBrwScroll() and IsWindowEnable()\nCan`t fing any trace of these two functions in FiveWin.\n\nRegards','',0,'GA==','3dwuwui2',1,0,'',186,0,0),(22053,4986,3,234,0,'75.34.217.174',1163800931,1,0,1,1,1,1,'','Memoline Harbour Exception','I am receiving a Harbour Exception using MEMOLINE. Can someone help?\n\nThank you,','',0,'GA==','3w2kwnsl',1,0,'',234,0,0),(22054,4987,1,286,0,'200.90.115.154',1163801488,1,0,1,1,1,1,'','Problema con foco','Estimados amigos\n\nTengo un conjunto de get\'s en un dialogo y un browse. Se me está presentando un problema curioso que es el siguiente: El browse tiene un evento asociado al bloque bKeyDown el cual permite o no la seleccion de filas de acuerdo a un criterio pre-establecido. Si el usuario no puede seleccionar la fila se muestra un MsgStop() pero al cerrar el mensaje el foco no queda sobre el browse sino que toma hacia uno de los gets.\n\nTiene alguno de ustedes una idea de por que no se mantiene el foco en el browse? \n\nEsto pasa incluso si me muevo a otra ventana (Alt-Tab) \n\nMuchas gracias','',0,'GA==','2uzusrdh',1,0,'',286,0,0),(22055,4967,7,2,0,'87.218.146.117',1163802417,1,0,1,1,1,1,'','','Elías,\n\nUna forma de hacerlo es crear un índice por la condición que necesites.','',0,'GA==','3qilcdrv',1,0,'',2,0,0),(22056,4986,3,2,0,'87.218.146.117',1163802508,1,0,1,1,1,1,'','','Darrell,\n\nWhat Harbour build are you using ?\n\nPlease try it again with a recent build.','',0,'GA==','1tqdzui2',1,0,'',2,0,0),(22057,4983,4,2,0,'87.218.146.117',1163802598,1,0,1,1,1,1,'','','Enrico,\n\nThe DLL command is fully working.\n\nMaurizio, what error code do you get ?','',0,'GA==','2zw2hplz',1,0,'',2,0,0),(22058,4988,6,215,0,'189.136.226.9',1163810631,1,0,1,1,1,0,'','OCR con fivewin','Hola gente,\nme urge contactar con alguien que use OCR.\nNo importa que no este en mi pais... pago via wester union.\n\nGracias\nFernando\nMéxico DF','',0,'GA==','1chajl11',1,0,'',215,0,0),(22059,4986,3,234,0,'75.34.217.174',1163818933,1,0,1,1,1,1,'','','Hi Antonio, \n\nI have xharbour October 2006 installed.','',0,'GA==','8qlaecp1',1,0,'',234,0,0),(22060,4989,6,299,0,'24.233.172.101',1163823652,1,0,1,0,1,0,'','Annoying borders on TSbuttons','Hi everyone;\n\nTake a look at the image below.\n\nI\'d like to get rid of the border around the images.  \n\nCan someone help?\n\n\n\n[url=http&#58;//imageshack&#46;us:16jblz0t][img:16jblz0t]http&#58;//img149&#46;imageshack&#46;us/img149/3126/tsbuttonssz7&#46;jpg[/img:16jblz0t][/url:16jblz0t]\nReinaldo.','',0,'GA==','16jblz0t',1,0,'',299,0,0),(22061,4990,6,582,0,'201.253.71.224',1163824690,1,0,1,1,1,0,'','Una mas de Folder','Antonio, quisiera saber si con FiveWin 2.8 Build de Octubre 2006 se puede usar folder multilinea.\nSi bien desde el PellesC lo defino y desde el programa ( a modo de prueba) me los muestra perfecto, cuando empiezo a asignarles los sub_dialogos, estos pisan la segunda o tercera linea de los items.\n\nSi se puede, como es?\nHay forma de indicar en que posicion del folder (nTop,nBotton) se debe posicionar los sub_dialogos?\n\nDesde ya muchas gracias.\nUn abrazo. El Loco =&gt;))','',0,'GA==','18bb3v7p',1,0,'',582,0,0),(22062,4809,3,372,0,'83.118.100.14',1163827493,1,0,1,1,1,0,'','','Antonio,\n\nthe values are:\n0, 46, 46, 201, 78, 240, 198, 1, 0, 232, 33, 111, 190, 255, 198, 1, 0, 46, 46, 201, 78, 240, 198, 1, 0, 46, 46, 201, 78, 240, 198, 1.\n\nSaludos,\n\nJohn.','',0,'GA==','2nouokug',1,0,'',372,0,0),(22063,4986,3,2,0,'87.218.146.117',1163835478,1,0,1,1,1,1,'','','Darrell,\n\nCould you provide a sample to reproduce it ?','',0,'GA==','38a8dpw0',1,0,'',2,0,0),(22064,4809,3,2,0,'87.218.146.117',1163835640,1,0,1,1,1,1,'','','John,\n\nIt looks as three files have the same date:\n\n0, 46, 46, 201, 78, 240, 198, 1 \n0, 46, 46, 201, 78, 240, 198, 1 \n0, 46, 46, 201, 78, 240, 198, 1\n0, 232, 33, 111, 190, 255, 198, 1 \n\nFrom the image that you provided, three have the same date too:\n\n15-10-2006\n15-10-2006\n15-10-2006\n4-11-2006\n\nNow we need to find in what data format the dates are stored.','',0,'GA==','sf4o9hs6',1,0,'',2,0,0),(22065,4809,3,2,0,'87.218.146.117',1163837175,1,0,1,1,1,1,'','','The FILETIME structure is a 64-bit value representing the number of 100-nanosecond intervals since January 1, 1601. \n\ntypedef struct _FILETIME { // ft \n    DWORD dwLowDateTime; \n    DWORD dwHighDateTime; \n} FILETIME;\n\nLets see how to get a Clipper date and time from that <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','322c2c63',1,0,'',2,0,0),(22066,4809,3,2,0,'87.218.146.117',1163838164,1,0,1,1,1,1,'','','This is the API function to use:\n\nThe FileTimeToSystemTime function converts a 64-bit file time to system time format. \n\nBOOL FileTimeToSystemTime(\n\n    CONST FILETIME *lpFileTime,	// pointer to file time to convert \n    LPSYSTEMTIME lpSystemTime 	// pointer to structure to receive system time  \n   );','',0,'GA==','3c8bnshs',1,0,'',2,0,0),(22067,4991,20,29,0,'88.149.164.244',1163838510,1,0,1,1,1,0,'','Wrapper','Salve,\nqualcuno di voi potrebbe convertirmi questo codice (credo in VB) in xHarbour.\n\nSi tratta di una funzione che restituisce la versione del driver amyuni di conversione emf-&gt;rtf\n\nGrazie in anticipo.\n\nSaluti\n\nMarco Turco\n\n\n\n************\nDim CDIntfMajor As Long\nDim CDIntfMinor As Long\nDim PrinterDriverMajor As Long\nDim PrinterDriverMinor As Long\n\n\nPDF.GetVersionInformation CDIntfMajor, CDIntfMinor, PrinterDriverMajor, PrinterDriverMinor\n\n   \n\nMsgBox \"Printer Info\" &amp; vbNewLine &amp; _\n\n            \"Major: \" &amp; CDIntfMajor &amp; vbNewLine &amp; _\n\n            \"Minor: \" &amp; CDIntfMinor &amp; vbNewLine &amp; _\n\n            \"PrinterDriverMajor: \" &amp; PrinterDriverMajor &amp; vbNewLine &amp; _\n\n            \"PrinterDriverMinor: \" &amp; PrinterDriverMinor\n\n**********','',0,'GA==','1fqstsp2',1,0,'',29,0,0),(22068,4983,4,89,0,'87.0.52.47',1163838852,1,0,1,1,1,0,'','','The Function RCHSendData return -104 , parameters non correctly.\n\nMaurizio','',0,'GA==','rv6cxsph',1,0,'',89,0,0),(22069,4809,3,2,0,'87.218.146.117',1163838882,1,0,1,1,1,1,'','','This is the implementation:\n[code:3n8bbb92]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; FILETIMETODATE &#41; // cFileTime --&gt; dDate\n&#123;\n   SYSTEMTIME st;\n   \n   FileTimeToSystemTime&#40; &#40; FILETIME * &#41; hb_parc&#40; 1 &#41;, &amp;st &#41;;\n   \n   hb_retd&#40; st&#46;wYear, st&#46;wMonth, st&#46;wDay &#41;;\n&#125;    	\n\n#pragma ENDDUMP\n[/code:3n8bbb92]','',0,'AIA=','3n8bbb92',1,0,'',2,0,0),(22070,4809,3,2,0,'87.218.146.117',1163839063,1,0,1,1,1,1,'','','This is a sample of use (using your bytes):\n[code:a0yvr6dv]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; FileTimeToDate&#40; Chr&#40; 0 &#41; + Chr&#40; 46 &#41; + Chr&#40; 46 &#41; + Chr&#40; 201 &#41; + ;\n                            Chr&#40; 78 &#41; + Chr&#40; 240 &#41; + Chr&#40; 198 &#41; + Chr&#40; 1 &#41; &#41; &#41;\n   \nreturn nil\n[/code:a0yvr6dv]\nThe shown date is 10/15/06 which it is correct <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe are going to modify Class TFtp to automatically use this function.','',0,'AIA=','a0yvr6dv',1,0,'',2,0,0),(22071,4809,3,372,0,'83.118.100.14',1163839631,1,0,1,1,1,0,'','','Antonio,\n\nlooks great! How can i implement this?\n\nOr shall i wait for your modifications and test them here?\n\nRegards,\n\nJohn.','',0,'AIA=','2hlvxzdy',1,0,'',372,0,0),(22072,4809,3,2,0,'87.218.146.117',1163839864,1,0,1,1,1,1,'','','To get the time a similar function is needed:\n[code:14xc4l12]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; FILETIMETOTIME &#41;\n&#123;\n   SYSTEMTIME st;\n   char * buffer&#91; 5 &#93;;\n   \n   FileTimeToSystemTime&#40; &#40; FILETIME * &#41; hb_parc&#40; 1 &#41;, &amp;st &#41;;\n\n   wsprintf&#40; buffer, &quot;%i&#58;%i&quot;, st&#46;wHour, st&#46;wMinute &#41;;\n   \n   hb_retclen&#40; buffer, 5 &#41;;\n&#125;    	\n#pragma ENDDUMP\n[/code:14xc4l12]','',0,'AIA=','14xc4l12',1,0,'',2,0,0),(22073,4809,3,2,0,'87.218.146.117',1163840007,1,0,1,1,1,1,'','','This is the final code for Class TFtp:\n[code:2dzm4r12]\n      if ! Empty&#40; oWin32FindData&#58;cFileName &#41;\n         AAdd&#40; aFiles, &#123; oWin32FindData&#58;cFileName,;\n                         oWin32FindData&#58;nSizeLow,;\n                         FileTimeToDate&#40; oWin32FindData&#58;nLastWriteAccess &#41;,;\n                         FileTimeToTime&#40; oWin32FindData&#58;nLastWriteAccess &#41; &#125; &#41;\n         while InternetFindNextFile&#40; hFTPDir, @cBuffer &#41;\n            oWin32FindData&#58;cBuffer = cBuffer\n            AAdd&#40; aFiles, &#123; oWin32FindData&#58;cFileName,;\n                            oWin32FindData&#58;nSizeLow,;\n                            FileTimeToDate&#40; oWin32FindData&#58;nLastWriteAccess &#41;,;\n                            FileTimeToTime&#40; oWin32FindData&#58;nLastWriteAccess &#41; &#125; &#41;\n         end\n      endif\n[/code:2dzm4r12]','',0,'AIA=','2dzm4r12',1,0,'',2,0,0),(22074,4983,4,2,0,'87.218.146.117',1163840725,1,0,1,1,1,1,'','','Maurizio,\n\nHave you tried to supply the parameters without calling AnsiToWide() ? \n\nPlease use LPSTR as Enrico has pointed,','',0,'AIA=','1obmi0p0',1,0,'',2,0,0),(22075,4950,1,2,0,'87.218.146.117',1163840907,1,0,1,1,1,1,'','','Gilbert,\n\n&gt; XBrwScroll() and IsWindowEnable() \n\nIsWindowEnabled() is a Windows API function.\n\nUse this meanwhile we may port it to 16 bits:\n\nfunction XBrwScroll()\nreturn nil','',0,'AIA=','1qbttzoh',1,0,'',2,0,0),(22076,4990,6,2,0,'87.218.146.117',1163842805,1,0,1,1,1,1,'','','Miguel Angel,\n\nHabría que modificar oFolder:nFdHeight y asignarle el alto de las dos filas de pestañas.','',0,'AIA=','1p6mkr9f',1,0,'',2,0,0),(22077,4984,6,2,0,'87.218.146.117',1163842960,1,0,1,1,1,1,'','','Tienes que modificar un poco las dimensiones del browse para que no se vea ese espacio.','',0,'AIA=','r0xl1jc1',1,0,'',2,0,0),(22078,4989,6,2,0,'87.218.146.117',1163843025,1,0,1,1,1,1,'','','Reinaldo,\n\nUse the clause TRANSPARENT','',0,'AIA=','2osfac3x',1,0,'',2,0,0),(22079,4971,6,838,0,'80.59.225.15',1163843783,1,0,1,1,1,0,'','','Hola\n\nEsta noche he empezado a pasar todo otra vez ahora a xharbour como me ha recomendado Joao, a ver si se acaban los problemas de la migración y puedo dedicarme a la programación en sí.\n\nDespués de compilar para xharbour librerias que tenía para harbour, me da error en tsbutton.\n***********************\nApplication\n===========\n   Path and name: c:\\fuentes\\xharbour\\mocwin2006\\gespaq.Exe (32 bits)\n   Size:   816,128 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 18/11/06, 10:43:31\n   Error description: Error BASE/1086  Argument error: ++\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TSBUTTON(0)\n   Called from: C:\\fuentes\\xharbour\\mocwin2006\\PRG\\gespaq.prg =&gt; INICIO(791)\n   Called from: C:\\fuentes\\xharbour\\mocwin2006\\PRG\\gespaq.prg =&gt; (b)MAIN(143)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: C:\\fuentes\\xharbour\\mocwin2006\\PRG\\gespaq.prg =&gt; MAIN(143)\n**********************\n\nLa parte del programa a la que hace referencia es\n\n REDEFINE SBUTTON oBtn1    ID 550 OF oDlg RESOURCE \"Lamp1\", \"Lamp2\",, \"Lamp3\", \'shape3\' SHAPE PROMPT \"Aceptar\" TEXT ON_RIGHT ;\n                           ACTION iif( ValidaUser(cClave, @oClave,\"C\" ) ,;\n                           (Seguir:=.T., SEAT1-&gt;(rlock()),SEAT1-&gt;Activo:=.t.,seat1-&gt;(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ) )\n\nEsto en harbour me funciona; creo recordar que éste error me salió el otro día cuando estaba pasando de Five a harbour y la verdad, no sé cómo lo solucioné.\n\nUn saludo\n\nJose Luis','',0,'','qqwu6y6i',1,0,'',838,0,0),(22080,4991,20,6,0,'87.21.213.223',1163844469,1,0,1,1,1,1,'','Re: Wrapper','Manca la cosa più importante: come viene istanziato l\'oggetto PDF.\n\nEMG','',0,'','u6ssl996',1,0,'',6,0,0),(22081,4809,3,372,0,'83.118.100.14',1163844636,1,0,1,1,1,0,'','','Antonio,\n\nwhen adding the two implementations and the code i get this compiling message:\n\nWarning W8075 TFTP.PRG 151: Suspicious pointer conversion in function HB_FUN_FIL ETIMETOTIME\nWarning W8075 TFTP.PRG 153: Suspicious pointer conversion in function HB_FUN_FIL ETIMETOTIME\n\nit refers to this:\nwsprintf( buffer, \"%i:%i\", st.wHour, st.wMinute ); \n    \nhb_retclen( buffer, 5 ); \n\nThe date is returned fine, the time returns 3:8 instead of 3:08\n\nRegards,\n\nJohn.','',0,'','nopizqo1',1,0,'',372,0,0),(22082,4809,3,2,0,'87.218.146.117',1163846759,1,0,1,1,1,1,'','','John,\n\nThis is wrong:\n  char * buffer[ 5 ];\n\nIt should be:\n  char buffer[ 5 ];\n\nAlso, we need to change \"%i:%i\" in order to get two digits format for each value. We are searching for the right format.','',0,'','hk5p21sr',1,0,'',2,0,0),(22083,4809,3,2,0,'87.218.146.117',1163846907,1,0,1,1,1,1,'','','This is the right mask:\n\n\"%02i:%02i\"','',0,'','3u37frbl',1,0,'',2,0,0),(22084,4971,6,2,0,'87.218.146.117',1163847181,1,0,1,1,1,1,'','','Jose Luis,\n\n&gt; Error description: Error BASE/1086 Argument error: ++ \n&gt;\nREDEFINE SBUTTON oBtn1 ID 550 OF oDlg RESOURCE \"Lamp1\", \"Lamp2\",, \"Lamp3\", \'shape3\' SHAPE PROMPT \"Aceptar\" TEXT ON_RIGHT ; \nACTION iif( ValidaUser(cClave, @oClave,\"C\" ) ,; \n(Seguir:=.T., SEAT1-&gt;(rlock()),SEAT1-&gt;Activo:=.t.,seat1-&gt;(dbUnlock()),oDlg:End()) , oBtn2:sendmsg( FM_CHANGEFOCUS ) \n&gt;\n\nAhi no se ve ningún \"++\"\n\nBusca dentro del fuente de TSButton','',0,'','1mniyn5b',1,0,'',2,0,0),(22085,4971,6,362,0,'200.168.52.156',1163848278,1,0,1,1,1,1,'','','Cual és la versión de FIVEWIN y XHARBOUR que usas??\n\nKreo ke necesitas de una TSBUTTON/TSBROWSE generada para la Versión que usted usas.','',0,'','3at3rh9y',1,0,'',362,0,0),(22086,4989,6,2,0,'87.218.146.117',1163848713,1,0,1,1,1,1,'','','ops, I just realized you were talking about TSButtons.\n\nTSButton should be changed to use FWH TransBmp() function. There is a sample of use in source\\classes\\bitmap.prg','',0,'','378i7xyn',1,0,'',2,0,0),(22087,4971,6,838,0,'80.59.225.15',1163850561,1,0,1,1,1,0,'','','Creo que es la 2.8 (la revisión de Octubre).\n\nHe recompilado Tsbutton con ésta version a través de verce 4.3.\n\nEn fin, seguiré probando\n\nSaludos\n\nJose Luis','',0,'','1lckmgm1',1,0,'',838,0,0),(22088,4971,6,362,0,'200.168.52.156',1163851065,1,0,1,1,1,1,'','','Intente en HARBOUR:\n\nNo Incorpore a tu proyecto, la Libreria FOLDBMP32.LIB(XHARBOUR) y si, FOLDBMP.LIB(HARBOUR).\n\nKreo, ke és esto.\n\n\nOriginal:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=473\">http://www.fivewin.com.br/exibedicas.asp?id=473</a><!-- m -->\n\nSaludos','',0,'','t0adx0n8',1,0,'',362,0,0),(22089,4991,20,29,0,'88.149.164.244',1163851250,1,0,1,1,1,0,'','','#INCLUDE \"FIVEWIN.CH\"\n\nstatic hRtfLib\nstatic hRtfPrinter\nstatic cRtfPrinter\nstatic lGuest\n\nhRTFLib = LOADLIB32( \"cdintf.dll\" )\ncRtfPrinter=\"SXP Printer\"\n\nhRTFPrinter:=RTFDriverOpen(cRTFPrinter)\n\n*********\n\n&amp;&amp; qui voglio richiamare la funzione per conoscere la versione\n\n******\n\nFREELIBRARY(HRTFLIB)\n\n*********************\n** amyuni wrapper  **\n*********************\n\n\nDLL32 FUNCTION RtfDriverInit( cPrinterName AS LPSTR ) AS LONG;\n      PASCAL FROM \"RTFDriverInit\" LIB hRTFLib\n\nDLL32 FUNCTION RtfDriverOpen( cPrinterName AS LPSTR ) AS LONG;\n      PASCAL FROM \"DriverInit\" LIB hRTFLib\n\nDLL32 FUNCTION RtfDriverEnd(hRTFPrinter AS LONG) AS VOID;\n      PASCAL FROM \"DriverEnd\" LIB hRTFLib\n\nDLL32 FUNCTION RtfSetDefaultPrinter(hRTFPrinter AS LONG) AS LONG;\n      PASCAL FROM \"SetDefaultPrinter\" LIB hRTFLib\n\nDLL32 FUNCTION RtfSetDefaultConfig(hRTFPrinter AS LONG) AS LONG;\n      PASCAL FROM \"SetDefaultConfig\" LIB hRTFLib\n\nDLL32 FUNCTION RtfRestoreDefaultPrinter(hRTFPrinter AS LONG) AS LONG;\n      PASCAL FROM \"RestoreDefaultPrinter\" LIB hRTFLib\n\nDLL32 FUNCTION RtfSetHorizontalMargin(hRTFPrinter AS LONG, nMargin AS LONG) AS LONG;\n      PASCAL FROM \"SetHorizontalMargin\" LIB hRTFLib\n\nDLL32 FUNCTION RtfSetVerticalMargin(hRTFPrinter AS LONG, nMargin AS LONG) AS LONG;\n      PASCAL FROM \"SetVerticalMargin\" LIB hRTFLib\n\nDLL32 FUNCTION EnablePrinter(hRTFPrinter AS LONG, cRTFCompany AS LPSTR, cRTFCode AS LPSTR) AS LONG;\n      PASCAL FROM \"EnablePrinter\" LIB hRTFLib\n\nDLL32 FUNCTION RTFSetDefaultFileName(hRTFPrinter AS LONG, cRTFCompany AS LPSTR) AS LONG;\n      PASCAL FROM \"SetDefaultFileName\" LIB hRTFLib\n\nDLL32 FUNCTION RTFFileNameOptions(hRTFPrinter AS LONG, nRTFOption AS _INT) AS LONG;\n      PASCAL FROM \"SetFileNameOptions\" LIB hRTFLib\n\nDLL32 FUNCTION RTFSetPrinterParam(hRTFPrinter AS LONG, cRTFParam AS LPSTR, nRTFValue AS LONG) AS _INT;\n      PASCAL FROM \"SetPrinterParamInt\" LIB hRTFLib\n\nDLL32 FUNCTION RTFSetDefaultDirectory(hRTFPrinter AS LONG, cRTFParam AS LPSTR) AS LONG;\n      PASCAL FROM \"SetDefaultDirectory\" LIB hRTFLib','',0,'','7kg4m94m',1,0,'',29,0,0),(22090,4971,6,362,0,'200.168.52.156',1163851383,1,0,1,1,1,1,'','','Mira estes ejemplos también:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=627\">http://www.fivewin.com.br/exibedicas.asp?id=627</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=603\">http://www.fivewin.com.br/exibedicas.asp?id=603</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=549\">http://www.fivewin.com.br/exibedicas.asp?id=549</a><!-- m -->','',0,'','12ku1l3n',1,0,'',362,0,0);
INSERT INTO `phpbb_posts` VALUES (22091,4971,6,838,0,'80.59.225.15',1163851446,1,0,1,1,1,0,'','','Sabeis lo que me pasa?\n\nPues que me pierdo con la cantidad de librerias para lo mismo. Sbutton, Sbuttonh, Tsbutton, etc.. y ya no se ni que version de tsbutton.Compilo una tsbutton, y me da algun error, compilo otra y me da otro error, y ya la que no me da error al compilar, pue la meto en la aplicación, y empiezan los errores como éste.\n\nPor ejemplo ayer estuve con el tema de probar en lugar de harbour, xharbour desde las 9 de la mañana hasta las 3 de la madrugada solo descansando para comer, y lo mas frustrante es que no avanzo nada. Me gustaria que funcionara todo como en fivewin y definitivamente tener tiempo para dedicarme a mejorar la aplicación en sí con cosas que necesito, pero como no soy capaz de que funcione nada, pues estoy parado y preocupado porque la aplicación se necesita acabada en mi empresa.\n\nUn saludo\n\nJose Luis','',0,'','1qp1gu76',1,0,'',838,0,0),(22092,4983,4,89,0,'213.21.136.60',1163852058,1,0,1,1,1,0,'','','Yes I  tryed without AnsiToWide() and with LPSTR\nbut without success\n\nMaurizio','',0,'','qwenko4v',1,0,'',89,0,0),(22093,4971,6,362,0,'200.168.52.156',1163852221,1,0,1,1,1,1,'','','José, cuando si está iniciando, el ideal, és que siempre se use CONTROLES NATIVOS DEL FIVEWIN, y no cosas de terceros.\n\nSiempre que usted tengas una versión nueva de FIVEWIN o XHARBOUR, és necesario, REGENERAR LAS LIBRERIAS.','',0,'','c4ofpewo',1,0,'',362,0,0),(22094,4971,6,362,0,'200.168.52.156',1163852599,1,0,1,1,1,1,'','','Aki, un ejemplo de como GENERAR LA LIBRERIA DE TSBUTTON.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/520BAR_TSBUT.zip\">http://www.fivewin.com.br/Dicas/520BAR_TSBUT.zip</a><!-- m -->','',0,'','1tbbk8ec',1,0,'',362,0,0),(22095,4991,20,6,0,'87.21.213.223',1163852810,1,0,1,1,1,1,'','','Non vedo traccia nel tuo esempio dell\'oggetto PDF. A quanto riporti sembra che GetVersionInformation() sia un metodo dell\'oggetto PDF ma questo oggetto da dove salta fuori?\n\nEMG','',0,'','ngahvxvw',1,0,'',6,0,0),(22096,4991,20,29,0,'88.149.164.244',1163853759,1,0,1,1,1,0,'','','Scusa,\nl\'oggetto PDF non è altro che hRTFPrinter.\n\nMarco','',0,'','32ns1y0n',1,0,'',29,0,0),(22097,4978,20,29,0,'88.149.164.244',1163853902,1,0,1,1,1,0,'','','Quello che temevo.\n\nPurtroppo c\'è un bug nelle librerie Amyuni che mi impedisce di settare i margini del file RTF generato. Questo crea il fastidioso messaggio di errore di Word \"Uno o più margini sono incorretti\" quando l\'utente prova a stampare il documento generato. \n\nComunque non è un errore bloccante, \nnon mi resta che attendere la correzione del bug da parte di Amyuni.\n\nGrazie\n\nMarco','',0,'','1i4ym236',1,0,'',29,0,0),(22098,4897,6,180,0,'83.54.15.182',1163853921,1,0,1,1,1,0,'','Re: RE:','[quote=&quot;thefull&quot;:1kb748p9]Por cierto Manuel, ¿ y si en vez de XML la extension le pones .XFDF ? Ahi quizás si que te funcione....[/quote:1kb748p9]\n\nDesde ACTIVEX no funciona ni con .XML y con .XFDF., solo con .PDF. Al menos hasta donde mis modestos conocimientos llegan.\nAquí adjunto un nuevo ejemplo más completo de un PDF bajado de la web de la DGT.\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/028d829820/SolicitudBajaVehiculo.pdf.html\">http://hyperupload.com/download/028d829 ... o.pdf.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0245249758/SolicitudBajaVehiculo.xml.html\">http://hyperupload.com/download/0245249 ... o.xml.html</a><!-- m -->\n\nUn saludo,\nManuel','',0,'gA==','1kb748p9',1,0,'',180,0,0),(22099,4989,6,299,0,'24.233.172.101',1163854163,1,0,1,0,1,0,'','','Anotnio;\n\nthank you.   \n\nsource\\classes\\bitmap.prg is the source for the actual class tbitmap.  It does not show a sample on how to use it.\n\nPlease try again,\n\n\n\nReinaldo.','',0,'gA==','hgp69ccj',1,0,'',299,0,0),(22100,4983,4,2,0,'87.218.146.117',1163854188,1,0,1,1,1,1,'','','Maurizio,\n\nI suggest you that you try a C wrapper, without using DLL FUNCTION to see if that makes a difference.','',0,'gA==','dtbr8zko',1,0,'',2,0,0),(22101,4983,4,2,0,'87.218.146.117',1163854336,1,0,1,1,1,1,'','','[code:2nco4y3t]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; RCHSENDDATA &#41;\n&#123;\n   hb_retnl&#40; RCHSendData&#40; hb_parc&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:2nco4y3t]\nYou need to link RCHGlobe.lib.','',0,'AIA=','2nco4y3t',1,0,'',2,0,0),(22102,4989,6,2,0,'87.218.146.117',1163854509,1,0,1,1,1,1,'','','Reinaldo,\n\nFrom source\\classes\\bitmap.prg:\n[code:pjrtgjec]\n            hBmpOld = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;hBitmap &#41;\n            nZeroZeroClr = GetPixel&#40; &#58;&#58;hDC, 0, 0 &#41;\n            SelectObject&#40; &#58;&#58;hDC, hBmpOld &#41;\n            nOldClr = SetBkColor&#40; &#58;&#58;hDC, nRGB&#40; 255, 255, 255 &#41; &#41;\n            TransBmp&#40; &#58;&#58;hBitmap, &#58;&#58;nWidth&#40;&#41;, &#58;&#58;nHeight&#40;&#41;, nZeroZeroClr, &#58;&#58;hDC,;\n                      &#58;&#58;nX, &#58;&#58;nY, Super&#58;nWidth&#40;&#41;, Super&#58;nHeight&#40;&#41; &#41;\n            SetBkColor&#40; &#58;&#58;hDC, nOldClr &#41;          \n[/code:pjrtgjec]','',0,'AIA=','pjrtgjec',1,0,'',2,0,0),(22103,4991,20,6,0,'87.21.213.223',1163855721,1,0,1,1,1,1,'','','No, hRTFPrinter è solo un handle restituito, a quanto scrivi, dalla funzione RTFDriverOpen. Non essendo né un oggetto Fivewin né un oggetto OLE non puoi chiamare suoi metodi. Devi vedere da dove proviene l\'oggetto PDF dell\'esempio in VB.\n\nEMG','',0,'AIA=','1kr10l7q',1,0,'',6,0,0),(22104,4983,4,89,0,'213.21.136.60',1163856044,1,0,1,1,1,0,'','','Antonio\n \nI Try \n\nimplib.exe RCHGlobe.lib RCHGlobe.DLL \nand I have the LIB \n\nbut when I link RCHGlobe.lib i had \nc:\\harbour_ce\\lib\\RCHglobe.lib : fatal error LNK1136: invalid or corrupt file\n\nMaurizio','',0,'AIA=','1actj0gi',1,0,'',89,0,0),(22105,4983,4,6,0,'87.21.213.223',1163856447,1,0,1,1,1,1,'','','Did you use MSVCE implib?\n\nEMG','',0,'AIA=','35xeee1t',1,0,'',6,0,0),(22106,4983,4,89,0,'213.21.136.60',1163856742,1,0,1,1,1,0,'','','Enrico \n\nnella cartella VCE non trovo implib.exe \nho usato quella di Borland \ndove posso trovarla quella per MSVCE ? \nMAurizio','',0,'AIA=','2k6bfa1d',1,0,'',89,0,0),(22107,4983,4,6,0,'87.21.213.223',1163857073,1,0,1,1,1,1,'','','Usa LINK.EXE con lo switch /IMPLIB (link /? per le varie opzioni).\n\nEMG','',0,'AIA=','8ofzj8d8',1,0,'',6,0,0),(22108,4809,3,372,0,'83.118.100.14',1163857173,1,0,1,1,1,0,'','','Antonio,\n\nThat solved the problem!\n\nI\'ve tested the results but the time 14:58 gets interpreted as 08:58. Also the seconds seem to be missing?\n\nBest regards,\n\nJohn.','',0,'AIA=','3h95y997',1,0,'',372,0,0),(22109,4989,6,299,0,'24.233.172.101',1163860216,1,0,1,0,1,0,'','','ohh, I see.\n\nPerhaps someone has already patch Tsbutton to work with TRANSPARENT clause?\n\n\nReinaldo.','',0,'AIA=','3ekeabvd',1,0,'',299,0,0),(22110,4809,3,2,0,'87.218.146.117',1163864353,1,0,1,1,1,1,'','','John,\n\nTry this one:\n[code:bj0xrrsv]\n#pragma BEGINDUMP \n\n#include &lt;hbapi&#46;h&gt; \n#include &lt;windows&#46;h&gt; \n\nHB_FUNC&#40; FILETIMETOTIME &#41; \n&#123; \n   SYSTEMTIME st;\n   char buffer&#91; 9 &#93;;\n   \n   FileTimeToSystemTime&#40; &#40; FILETIME * &#41; hb_parc&#40; 1 &#41;, &amp;st &#41;;\n\n   wsprintf&#40; buffer, &quot;%02i&#58;%02i&#58;%02i&quot;, st&#46;wHour, st&#46;wMinute, st&#46;wSecond &#41;;\n   \n   hb_retclen&#40; buffer, 8 &#41;;\n&#125;        \n#pragma ENDDUMP \n[/code:bj0xrrsv]','',0,'AIA=','bj0xrrsv',1,0,'',2,0,0),(22111,4992,3,299,0,'24.233.172.101',1163865351,1,0,1,0,1,0,'','SHAPE &amp; TRANSPARENT Clause using TsButton','Hi,\n\nWhen using the SHAPE clause with TsButton I get an annoying border when the dialog that contains the button has some kind of background color. \n\nAntonio suggested to fix the tsbutton class using FWTransBmp() function and showed the code below as called from FW Tbitmap Class:\n\n[code:1rq3zgum]\n            hBmpOld = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;hBitmap &#41; \n            nZeroZeroClr = GetPixel&#40; &#58;&#58;hDC, 0, 0 &#41; \n            SelectObject&#40; &#58;&#58;hDC, hBmpOld &#41; \n            nOldClr = SetBkColor&#40; &#58;&#58;hDC, nRGB&#40; 255, 255, 255 &#41; &#41; \n            TransBmp&#40; &#58;&#58;hBitmap, &#58;&#58;nWidth&#40;&#41;, &#58;&#58;nHeight&#40;&#41;, nZeroZeroClr, &#58;&#58;hDC,; \n                      &#58;&#58;nX, &#58;&#58;nY, Super&#58;nWidth&#40;&#41;, Super&#58;nHeight&#40;&#41; &#41; \n            SetBkColor&#40; &#58;&#58;hDC, nOldClr &#41;          \n[/code:1rq3zgum]\n\nHere\'s an image of the annoying border I\'m referring to:\n[url=http&#58;//imageshack&#46;us:1rq3zgum][img:1rq3zgum]http&#58;//img297&#46;imageshack&#46;us/img297/8305/tsbuttonsta8&#46;jpg[/img:1rq3zgum][/url:1rq3zgum]\n\nPerhaps someone has already patch Tsbutton to work with transparencies and would like to share the code or show how?\n\n\nReinaldo.','',0,'GIA=','1rq3zgum',1,0,'',299,0,0),(22112,4877,2,375,0,'84.122.115.165',1163866315,1,0,1,1,1,1,'','','¿Antonio, que color hay que poner de fondo para que sea transparente? con el blanco no me sale\n\nGracias','',0,'GIA=','9w8yxt0e',1,0,'',375,0,0),(22113,4990,6,582,0,'201.253.71.224',1163866405,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2ugqk2o1]Miguel Angel,\n\nHabría que modificar oFolder:nFdHeight y asignarle el alto de las dos filas de pestañas.[/quote:2ugqk2o1]\n\nAntonio, perfecto !!!\nGracias y disculpa las molestias, eso me pasa por no revisar la clase.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','2ugqk2o1',1,0,'',582,0,0),(22114,4904,6,375,0,'84.122.115.165',1163867085,1,0,1,1,1,1,'','','No se como funciona PelleC, pero en Worshop, dependiendo del orden en que se declaran los objetos así se ven. Primero habría que dseclarar los grupos y despues los says y demás. En el código procura conservar el mismo orden.\n\nSuerte','',0,'gA==','23im7wy0',1,0,'',375,0,0),(22115,4809,3,372,0,'83.118.100.14',1163868505,1,0,1,1,1,0,'','','Hi Antonio,\n\neverything seems to work fine now, thanks! Will this be implemented in one of the next releases?\n\nSaludos,\n\nJohn.','',0,'gA==','cirns1kt',1,0,'',372,0,0),(22116,4992,3,299,0,'24.233.172.101',1163868987,1,0,1,0,1,0,'','','I get the same ill effect when using TbtnBmp class:\n\n[url=http&#58;//imageshack&#46;us:11na7ome][img:11na7ome]http&#58;//img150&#46;imageshack&#46;us/img150/499/tbtnbmpdw8&#46;jpg[/img:11na7ome][/url:11na7ome]\n\nhere is the code:\n[code:11na7ome]\n	REDEFINE BTNBMP aoBtns&#91; 1 &#93; ID 170 OF oDlg RESOURCE &quot;Save48&quot; TOOLTIP &quot;Save to Disk&quot; NOBORDER ACTION SavePatient&#40; odbf, oFld &#41;\n	REDEFINE BTNBMP aoBtns&#91; 2 &#93; ID 240 OF oDlg RESOURCE &quot;Exit48&quot; TOOLTIP &quot;Exit&quot; NOBORDER ACTION odlg&#58;end&#40;&#41;\n	aoBtns&#91; 1 &#93;&#58;ltransparent &#58;= &#46;t&#46;\n	aoBtns&#91; 2 &#93;&#58;ltransparent &#58;= &#46;t&#46;\n[/code:11na7ome]\n\nAny ideas?\n\nReinaldo.','',0,'GIA=','11na7ome',1,0,'',299,0,0),(22117,4967,7,832,0,'201.122.21.224',1163877566,1,0,1,1,1,0,'','ayuda','oye elias me podrias conceder tu codi del ftp para reutilizarlo\n\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> bueno si se puede...\n\n\nespero y me lo puedas proporcionar','',0,'GIA=','2cw0sku3',1,0,'',832,0,0),(22118,4967,7,832,0,'201.122.21.224',1163877590,1,0,1,1,1,0,'','ayuda','oye elias me podrias conceder tu codi del ftp para reutilizarlo\n\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> bueno si se puede...\n\n\nespero y me lo puedas proporcionar','',0,'GIA=','1bgk78a0',1,0,'',832,0,0),(22119,4992,3,2,0,'87.218.146.117',1163880607,1,0,1,1,1,1,'','','Reinaldo,\n\nMake this change in Class TBtnBmp:\n[code:3e5q2kud]\n   &#46;&#46;&#46;\n   local hBmpOld, nZeroZeroClr, nOldClr \n   &#46;&#46;&#46;\n   if &#58;&#58;lTransparent\n      hBmpOld = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;hBitmap1 &#41;\n      nZeroZeroClr = GetPixel&#40; &#58;&#58;hDC, 0, 0 &#41;\n      SelectObject&#40; &#58;&#58;hDC, hBmpOld &#41;\n      nOldClr = SetBkColor&#40; &#58;&#58;hDC, nRGB&#40; 255, 255, 255 &#41; &#41;\n      TransBmp&#40; &#58;&#58;hBitmap1, nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41;, nZeroZeroClr, &#58;&#58;hDC,;\n                If&#40; &#58;&#58;lPressed, 2, 1 &#41;, If&#40; &#58;&#58;lPressed, 2, 1 &#41;,;\n                nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41; &#41;\n      SetBkColor&#40; &#58;&#58;hDC, nOldClr &#41;          \n   else   \n      PalBtnPaint&#40; &#58;&#58;hWnd, &#58;&#58;hBitmap1, &#58;&#58;hPalette1, &#58;&#58;hBitmap2, &#58;&#58;hPalette2,;\n                   &#58;&#58;hBitmap3, &#58;&#58;hPalette3, &#58;&#58;lPressed, &#58;&#58;lAdjust, &#58;&#58;lBorder,;\n                   &#58;&#58;oPopup != nil, &#58;&#58;nClrPane,  &#58;&#58;cCaption, &#58;&#58;nLayout,;\n                   If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#58;&#58;nClrText, &#58;&#58;hDC &#41;\n   endif             \n[/code:3e5q2kud]\n[url=http&#58;//imageshack&#46;us:3e5q2kud][img:3e5q2kud]http&#58;//img329&#46;imageshack&#46;us/img329/4017/btnbmpwp0&#46;png[/img:3e5q2kud][/url:3e5q2kud]','',0,'GIA=','3e5q2kud',1,0,'',2,0,0),(22120,4992,3,299,0,'24.233.172.101',1163882744,1,0,1,0,1,0,'','','Antonio;\n\nBetter.  But still.  The problem is that I have a grading effect on the background.\n\n[code:2qrrc3p1]\n      nZeroZeroClr = GetPixel&#40; &#58;&#58;hDC, 0,0 &#41;\n[/code:2qrrc3p1]\n\nSeems to be taking the color information from the top pixel on the dialog and not from where the actual bmp is to be displayed.  I tried using ::ntop, ::nleft; but it made it worse.\n\nAny other idea?\n\nReinaldo.','',0,'AIA=','2qrrc3p1',1,0,'',299,0,0),(22121,4958,3,49,0,'62.13.172.78',1163889744,1,0,1,1,1,1,'','','there is anothe method into tregla :\nMETHOD SetSel(aPosic) CLASS TRegla\n\n   LOCAL hDc\n   LOCAL InicX,FinX,InicY,Finy\n\n   InicX   :=iif(::lHorizontal,aPosic[2],::nWidth)\n   InicY   :=iif(::lHorizontal,::nHeight,aPosic[1])\n   FinX   :=iif(::lHorizontal,aPosic[2],0)\n   FinY   :=iif(::lHorizontal,0,aPosic[1])\n\n   hDc:=::GetDc()\n   IF ::lHorizontal\n   GflPolyLine(hDc,{InicX,InicX-3,InicX+3,InicX},{InicY,InicY-5,InicY-5,InicY})\n   ELSE\n      GflPolyLine(hDc,{InicX,InicX-5,InicX-5,InicX},{InicY,InicY-3,InicY+3,InicY})\n   ENDIF\n   GflLine(hDc,InicX,InicY,FinX,FinY)\n\n   ::ReleaseDc()\nRETURN NIL','',0,'','1zkjw8ug',1,0,'',49,0,0),(22122,4992,3,2,0,'87.218.146.117',1163891057,1,0,1,1,1,1,'','','Reinaldo,\n\nnZeroZeroClr is the color of the bitmap at 0, 0, used to build a mask to do the transparency.\n\nTransBmp() should paint ok on a gradient. How does it looks ? Please post an image.','',0,'','1crau87x',1,0,'',2,0,0),(22123,4809,3,2,0,'87.218.146.117',1163923876,1,0,1,1,1,1,'','','John,\n\n&gt; Will this be implemented in one of the next releases? \n\nyes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2qoxhunq',1,0,'',2,0,0),(22124,4993,6,180,0,'83.54.15.182',1163933390,1,0,1,1,1,0,'','Ayuda con TREE','Alguen podría pasarme un ejemplo con TREE con ejecución de acción al seleccionar un ITEM ? El ejemplo de treedlg.prg es bastante básico y el de treedemo no me funciona.\n\nUn saludo,\nManuel Aranda','',0,'','27t5t83c',1,0,'',180,0,0),(22125,4993,6,180,0,'83.54.15.182',1163939583,1,0,1,1,1,0,'','','Paseando por el foro ya encontre la solución.\n\nGracias.\nManuel','',0,'','2k8607p4',1,0,'',180,0,0),(22126,4971,6,838,0,'80.59.225.15',1163939869,1,0,1,1,1,0,'','','Hola Joao\n\nMuchas gracias por tu interés.\n\n- Con respecto a lo del folder en harbour: Si enlazo con la libreria que me has dicho, me sale este error\n\n***************************\nApplication\n===========\n   Path and name: C:\\fuentes\\harbour\\mocwin2006\\gespaq.Exe (32 bits)\n   Size:   813,056 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 19/11/06, 13:23:17\n   Error description: Error BASE/1086  Argument error: ++\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TFOLDER(0)\n   Called from: C:\\fuentes\\harbour\\mocwin2006\\PRG\\prove.prg =&gt; ENTREG(205)\n   Called from: C:\\fuentes\\harbour\\mocwin2006\\PRG\\prove.prg =&gt; (b)PROVE(111)\n\n**********************\n\n- Con respecto al tema del button en xharbour: si enlazo con la que me dices me sale el siguiente error\n\n***********************\n\nApplication\n===========\n   Path and name: C:\\fuentes\\xharbour\\mocwin2006\\gespaq.Exe (32 bits)\n   Size:   813,056 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 19/11/06, 13:23:17\n   Error description: Error BASE/1086  Argument error: ++\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TSBUTTON(0)\n   Called from: C:\\fuentes\\xharbour\\mocwin2006\\PRG\\gespaq.prg =&gt; ENTREG(789)\n   Called from: C:\\fuentes\\xharbour\\mocwin2006\\PRG\\gespaq.prg =&gt; (b)PROVE(102)\n\n****************************\n\nY como ya me constesto Antonio, que en las líneas a las que hace referencia no hay ningún argumento ++, por lo que tiene que estar en las \nlibrerias.\n\nEl caso es que ésto siempre me ocurre con cualquier libreria externa que yo intento enlazar tanto en harbour como en xharbour, tanto si creo las librerias con los rmake que me vienen en ellas, como si lo hago con verce 4.3.\n\nAsí que como creo que soy incapaz, y que mis conocimientos no son suficientes para gestionar este maremagnum de errores, librerias, etc., voy a seguir con mi fivewin de siempre, y que no me da ningun problema. Incluso, aunque dispongo de todos los hasta las 2.8, sigo utilizando la 2.4, ya que a partir de ella, si intento hacer algo, siempre hay algún error en algún sitio.\n\nEs una lástima porque llevo intentando aplicar harbour ó xharbour desde que salió el primer proyecto harbour, pero pierdo muchisimo tiempo. A lo más que he llegado es a poder compilar los ejemplos que vienen con cada revisión, y funcionan perfectamente, pero luego los aplico a mis programas y empiezan los errores y ya estamos en el ajo.\n\nGracias a todos y Saludos\n\nJose Luis','',0,'','x4jl6ks4',1,0,'',838,0,0),(22127,4994,6,384,0,'201.42.134.141',1163945995,1,0,1,1,1,1,'','ViaCoral','Alguem já está utilizando o ViaCoral ?\nTentei compilar os exemplos mas encontro este erro:\n[code:1jm78tf0]\nxHarbour Compiler build 0&#46;99&#46;50 &#40;SimpLex&#41;\nCopyright 1999-2005, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'demo15&#46;prg\' and generating preprocessed output to \'demo15&#46;ppo\'&#46;&#46;&#46;\n\ndemo15&#46;prg&#40;56&#41; Error E0030  Syntax error&#58; &quot;syntax error at \'REBAR\'&quot;\n\n1 error\n\nNo code generated\n[/code:1jm78tf0]','',0,'AIA=','1jm78tf0',1,0,'',384,0,0),(22129,4992,3,299,0,'24.233.172.101',1163963660,1,0,1,0,1,0,'','','Antonio;\n\nThank you so much for your interest and for answering every question.\n\nBelow is a screen shoot.  Notice how the border around the btnbmp is painted with the pixel color of the first leftmost pixel.\n\n[url=http&#58;//imageshack&#46;us:17nrxp9k][img:17nrxp9k]http&#58;//img110&#46;imageshack&#46;us/img110/1540/screenzj5&#46;jpg[/img:17nrxp9k][/url:17nrxp9k]\n\nReinaldo','',0,'GA==','17nrxp9k',1,0,'',299,0,0),(22130,4995,4,13,0,'213.76.252.200',1163966462,1,0,1,1,1,0,'','Harbour updates','Antonio,\n\nDo you planned update Harbour with latest changes with Harbour PC sources (PP change).\n\nThanks\nPawel','',0,'GA==','2j4sk7nl',1,0,'',13,0,0),(22131,4995,4,2,0,'87.218.146.117',1163972614,1,0,1,1,1,1,'','','Pawel,\n\nWe may wait for some time before it gets enough tested.','',0,'GA==','3q0mwero',1,0,'',2,0,0),(22132,4992,3,2,0,'87.218.146.117',1163972881,1,0,1,1,1,1,'','','Reinaldo,\n\nHow are you painting the gradient ? \n\nIs it a brush ?','',0,'GA==','2enfu8rb',1,0,'',2,0,0),(22133,4992,3,299,0,'24.233.172.101',1163973707,1,0,1,0,1,0,'','','Yes, it is a brush.\n\n[code:81kvppla]\n	DEFINE BRUSH oBrush RESOURCE &quot;Bckg&quot;\n	DEFINE DIALOG oDlg NAME &#46;&#46;&#46; ;\n	ICON oIcon OF oOwner TRANSPARENT BRUSH oBrush\n\n[/code:81kvppla]\n\nReinaldo.','',0,'AIA=','81kvppla',1,0,'',299,0,0),(22134,4992,3,2,0,'87.218.146.117',1163974633,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease email me the brush file, thanks','',0,'AIA=','1gyfvk4i',1,0,'',2,0,0),(22135,4996,6,533,0,'88.8.20.148',1163978559,1,0,1,1,1,0,'','Dudas sobre TXBrowse','Buenas noches foro!!\n\n    Tengo un par de preguntitas, a ver si se puede:\n\n   1) Tengo un array anexado a un TXBrowse con 3 campos, el primero autoincremental, un código y un nombre. ¿Cómo puedo en base al primer campo (autoincremental) poner una línea de un color y la otra de otra?\n\n   2) En este mismo array, lo he creado para ordenar por columnas y realizar búsquedas incrementales, pero cada vez que pulso sobre una tecla las cabeceras y el selector de registro me desaparecen.\n\n//////////////EL CÖDIGO////////////////\n\n   DEFINE DIALOG oDlg RESOURCE \"PRUEBAS.TXBROWSE\" \n        redefine button obton1 id 301 of odlg action odlg:end()\n        oBrw := TXBrowse():New( oDlg )\n        oBrw:SetArray( acDatos,.t.)\n        oBrw:aCols[1]:cHeader := \"  *  \"\n        oBrw:aCols[2]:cHeader := \"Cabecera 1\" + space(5)\n        oBrw:aCols[3]:cHeader := \"Cabecera 2\" + space(5)\n        oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW\n        oBrw:nColDividerStyle    := LINESTYLE_BLACK\n        oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n        oBrw:CreateFromResource( 501 )\n    ACTIVATE DIALOG oDlg center\n\n\nMUCHAS GRANCIAS','',0,'','1yijjwxv',1,0,'',533,0,0),(22136,4997,1,186,0,'66.130.50.142',1163999119,1,0,1,1,1,1,'','Dialog without class','Hi All,\n\nI have a situation where I need to display a Dialog box that will contain 5 Listbox and 1 Button. Now, I want this function to be CLASS independant. \n\nIs there a way to do this without using TDialog, TListbox and TButton. Just pure code.\n\nRegards','',0,'','1zt6qs4s',1,0,'',186,0,0),(22137,4931,1,186,0,'66.130.50.142',1164000777,1,0,1,1,1,1,'','','Hi Barada,\n\nI did more searching, specialy in XP registers, and find out that there is two places were available printers can be found:\n\nFor two shared printers installed on a station running Windows 98:\nHKEY_LOCAL_MACHINE\\system\\CurrentControlSet\\COntrol\\Print\\Printers\n\nand\n\nFor two shared printers installed on a station running Windows 2000:\nHKEY_CURRENT_USER\\Printers\\Connections\n\nSeems that shared printers from 98 technologie are stored elsewhere than for NT technologie. Is it possible for you to confirm my findings ?\n\n\n\nAlso discovered that under XP it is possible to retreive printers capabilities directly from the registers.\n\nThese capabilities are:\n\nprintBinNames                          Array of paper bins\nprintCollate                              Binary of collate type \nprintDuplexSupport                   Binary of type of duplex\nprintMaxResolutionSupported     Binary of maximum resolution\nprintMediaSupported                  Array of paper sizes\nprintOrientationSupported          Array of orientations\n\nThey can be found under:\n\nFor two shared printers installed on a station running Windows 98:\nHKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers\\&lt;PRINTERNAME&gt;\\DsDriver\n\nand\n\nFor two shared printers installed on a station running Windows 2000:\nHKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers\\&lt;SERVERNAME&gt;\\Printers&lt;PRINTERNAME&gt;\\DsDriver\n\nIs it also possible for you to confirm these findings ?\n\nIn the later &lt;SERVERNAME&gt; can be anything depending on wich server we are attached to. Is it possible, from the register, to retreive the server to wich a station is attached to ?\n\n\nI also would like Antonio to get invole in this thread. It would be most helpfull.\n\nRegards,','',0,'','dt5cccnm',1,0,'',186,0,0),(22138,4983,4,89,0,'213.21.136.60',1164007162,1,0,1,1,1,0,'','','Antonio \ncann you help me with a problem . I am not able to transform the DLL in the LIB . \nThank to Enrico\'s help I use this command , but it dosnt work. \n\nc:\\vce\\bin\\link corelibc.lib /LIBPATH:c:\\vce\\lib\\arm /NOLOGO /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM /DLL /IMPLIB:rchglobe.dll /OUT:rchglobe.lib \n\nRegards MAurizio','',0,'','lln1pztv',1,0,'',89,0,0),(22139,4998,3,239,0,'219.137.198.185',1164010183,1,0,1,1,1,0,'','how to change tsbutton bmp background color ?','Hi,\n\n  redefine  tsbutton of odlg resource \"mydllbmp\" when  .f.\n\n The disabled button bmp always shows dark gray, how to  change it to CLR_HGRAY ?\n\nBest regard !\n\nShuming Wang','',0,'','3bzdp0jw',1,0,'',239,0,0),(22140,4490,3,397,0,'200.207.62.201',1164013548,1,0,1,0,1,1,'','','Ari\n\nVoce poderá enviar email diretamente de seu aplicativo com autenticação usando o Persits mailSender sem precisar enviar para IncrediMail, Outlook, etc.\n\nVeja:\n\n[code:339nupzm]\nFunction EmailSender&#40;&#41;\n   LOCAL Mail, lHtml &#58;= &#46;f&#46;\n   Mail &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Persits&#46;MailSender&#46;4&quot;&#41;\n   Mail&#58;Host &#58;= &quot;smtp&#46;itelefonica&#46;com&#46;br&quot;\n   Mail&#58;Port &#58;= 25 \n\n   // Destinatario e Anexo\n   Mail&#58;AddAddress&#40; &quot;softclever@itelefonica&#46;com&#46;br&quot; &#41;\n   Mail&#58;AddAttachment&#40; &quot;forum&#46;txt&quot; &#41;\n\n   // Seus Dados\n   Mail&#58;From     &#58;= &quot;irochinha@itelefonica&#46;com&#46;br&quot;\n   Mail&#58;FromName &#58;= &quot;Rochinha&quot;\n\n   // Dados para Autenticação\n   Mail&#58;UserName &#58;= &quot;SeuUserName&quot;\n   Mail&#58;PassWord &#58;= &quot;SuaSenha&quot;\n\n   // Assunto e corpo do texto\n   Mail&#58;Subject  &#58;= &quot;somente um teste&quot;\n   if lHtml = &#46;f&#46;\n      Mail&#58;Body     &#58;= &quot;eu estou enviando um email para mim mesmo&quot;\n   else\n      Mail&#58;IsHtml   &#58;= &#46;t&#46;\n      Mail&#58;Body     &#58;= &quot;&lt;html&gt;&lt;body&gt;Texto em HTML&lt;/body&gt;&lt;/html&gt;&quot;\n   endif\n   Mail&#58;Send&#40;&#41;\n   Mail&#58;End&#40;&#41;\n   return &#46;t&#46;\n[/code:339nupzm]\n\nFaça o download de <!-- w --><a class=\"postlink\" href=\"http://www.aspemail.com\">www.aspemail.com</a><!-- w --> e instale e comece a usar.','',0,'AIA=','339nupzm',1,0,'',397,0,0),(22141,4992,3,2,0,'87.218.146.117',1164014943,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease remove this line from Class TBtnBmp Method Paint():\n\nFillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )','',0,'AIA=','3pdu3jwd',1,0,'',2,0,0),(22142,4983,4,2,0,'87.218.146.117',1164015270,1,0,1,1,1,1,'','','Maurizio,\n\nTry it this way:\n\nc:\\vce\\bin\\link /IMPLIB:rchglobe.dll /OUT:rchglobe.lib','',0,'AIA=','294p3uy2',1,0,'',2,0,0),(22143,4983,4,6,0,'87.17.226.60',1164015799,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2qoga9z3]Maurizio,\n\nTry it this way:\n\nc:\\vce\\bin\\link /IMPLIB:rchglobe.dll /OUT:rchglobe.lib[/quote:2qoga9z3]\n\nThis is the result:\n\n[quote:2qoga9z3]Microsoft (R) Incremental Linker Version 6.24.3077\nCopyright (C) Microsoft Corporation.  All rights reserved.\n\nLINK : warning LNK4001: no object files specified; libraries used\nLINK : warning LNK4068: /MACHINE not specified; defaulting to X86\nLINK : fatal error LNK1561: entry point must be defined[/quote:2qoga9z3]\n\nEMG','',0,'gA==','2qoga9z3',1,0,'',6,0,0),(22144,4999,3,67,0,'62.235.24.45',1164015826,1,0,1,1,1,0,'','DtePick','Hello,\n\nI try to improve the visibility from Dtepicker when it has focus , from resources with DTS_SHOWNONE .\n\nWhen the Date object receives focus , the checkbox should indicate he has focus , but this isn\'t always clear . In one from mine aplications , there are 3 date objects. All off them seems to have focus.\n\nSo i try to use bgotfocus , to activate the first numeric get (nDay) when the object receives focus (blue !!!) simulating to press VK_RIGHT ( it works , but .... )\n\nThe problem is , when we leave the get object , and give it focus again , it give focus to the next element (nMonth) , .....\n\nSo this work arround suppose that the checkbox has focus , then the first numeric get is activated . BUT I FOUND NOTHING TO KNOW WHICH FROM THE 4 (Checkbox , nDay , nMonth , nYear) has focus when bgotfocus is activated.\n\nCan this be done ???\n\nFrank\n\nTesting on Samples\\testdtp :\n\n[code:80socscr]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;dtpicker&#46;ch&quot;\n# include &quot;vKey&#46;ch&quot;\n#xtranslate bDtePick       =&gt; &#40; &#123;|el|IIF&#40;EMPTY&#40;el&#58;Varget&#40;&#41;&#41; , ,  el&#58;PostMsg&#40;  WM_KEYDOWN , VK_RIGHT , 0&#41;&#41; , nil&#125; &#41;\n\nFUNCTION Main&#40;&#41;\n\n   local oWnd, oSay\n   local dDate &#58;= Date&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;DTPicker from code &#46;&#46;&#46;&#46;&quot;\n\n   @ 2, 2 DTPICKER dDate OF oWnd ON CHANGE If&#40; oSay != nil, oSay&#58;Refresh&#40;&#41;,&#41;\n\n   @ 3, 30 SAY oSay PROMPT &quot;Date&#58; &quot;+ Dtoc&#40; dDate &#41; OF oWnd SIZE 200, 20\n\n   @ 6, 2 BUTTON &quot;From resources &#46;&#46;&#46;&quot; OF oWnd ACTION FromRes&#40; oWnd &#41; SIZE 150, 30\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nFUNCTION FromRes&#40; oWnd &#41;\n   local oDlg, oSay , obj\n   local dDate &#58;= Date&#40;&#41;\n	 local Geh\n   DEFINE DIALOG oDlg RESOURCE &quot;DTPTEST&quot;\n\n   REDEFINE DTPICKER obj VAR dDate ID 101 OF oDlg ;\n      ON CHANGE oSay&#58;Refresh&#40;&#41;\n	 Obj&#58;bGotFocus  &#58;= bDtePick //&#123;|el|IIF&#40;EMPTY&#40;el&#58;Varget&#40;&#41;&#41; , ,  el&#58;PostMsg&#40;  WM_KEYDOWN , 39 , 0&#41;&#41; , nil&#125;\n   REDEFINE SAY oSay PROMPT &quot;Date&#58; &quot;+ Dtoc&#40;dDate&#41; ID 102 OF oDlg\n   ACTIVATE DIALOG oDlg CENTERED\nreturn nil\n\n#include &quot;&#46;&#46;\\include\\WinApi&#46;ch&quot;\n\nDTPTEST DIALOG 6, 15, 207, 56\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;DTPicker test from resources &#46;&#46;&#46;&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;&quot;, 101, &quot;SysDateTimePick32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP| DTS_SHOWNONE, 16, 13, 81, 14\n EDITTEXT 102, 16, 33, 81, 11\n DEFPUSHBUTTON &quot;Close&quot;, IDOK, 148, 6, 50, 14\n&#125;\n\n\n[/code:80socscr]','',0,'AIA=','80socscr',1,0,'',67,0,0),(22145,4983,4,2,0,'87.218.146.117',1164016184,1,0,1,1,1,1,'','','The above was wrong. This should be the right way:\n\nc:\\vce\\bin\\lib /list:rchglobe.def rchglobe.dll\n\nc:\\vce\\bin\\lib /def:rchglobe.def /out:rchglobe.lib /machine:arm /subsystem:windowsce','',0,'AIA=','39hqyf92',1,0,'',2,0,0),(22146,4983,4,2,0,'87.218.146.117',1164016428,1,0,1,1,1,1,'','','To create the DEF file, better use Borland:\n\nimpdef.exe rchglobe.def rchglobe.dll\n\nand then use Microsoft lib as explained','',0,'AIA=','2t2f86pw',1,0,'',2,0,0),(22147,4997,1,2,0,'87.218.146.117',1164016820,1,0,1,1,1,1,'','','Gilbert,\n\nDo you mean C code or PRG code ?','',0,'AIA=','23g5ysmk',1,0,'',2,0,0),(22148,4983,4,6,0,'87.17.226.60',1164016961,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:fi9j5bic]To create the DEF file, better use Borland:\n\nimpdef.exe rchglobe.def rchglobe.dll\n\nand then use Microsoft lib as explained[/quote:fi9j5bic]\n\nOk, the lib is created (but it was with my command too).\n\nMaurizio please try it.\n\nEMG','',0,'gA==','fi9j5bic',1,0,'',6,0,0),(22149,4490,3,435,0,'200.155.200.182',1164018206,1,0,1,1,1,0,'','','Obrigado pela resposta: ele é gratuito ?\n\npode ser usado livremente ?\n\nAri','',0,'gA==','3q2514jo',1,0,'',435,0,0),(22150,4999,3,2,0,'87.218.146.117',1164019241,1,0,1,1,1,1,'','','Frank,\n\nI have tried using EM_GETSEL to know what portion is selected but without success.','',0,'gA==','d0st3sgr',1,0,'',2,0,0),(22151,4983,4,2,0,'87.218.146.117',1164019374,1,0,1,1,1,1,'','','Enrico,\n\nops, I missed your command','',0,'gA==','3l7w7t0o',1,0,'',2,0,0),(22152,4967,7,720,0,'80.59.110.137',1164019605,1,0,1,1,1,0,'','','Hola pedro....\n\nEn el post que has escrito mas abajo te he contestado a tu pregunta.. He de decir que el codigo no es mio y que lo he cogido para guiarme en la realizacion del mio. El que te pongo funciona perfectamente.\n\n\nUn saludo y aprovecho para dar las gracias a todas esas personas que aportais mucho a este foro....\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','24uwl7ce',1,0,'',720,0,0),(22153,5000,7,720,0,'80.59.110.137',1164019999,1,0,1,1,1,0,'','Como saber si existe conexion con otro equipo???','Hola a todos.\n\nEstoy desarrollando un modulo para la trasferencia de ficheros via wifi. Lo unico que me queda es controlar si se corta la conexion para no permitirle que pueda actualizar los datos y que trabaje de forma local hasta que la conexion sea buena. Estoy utilizando un timer para lanzar cada x tiempo una comprobacion de acceso a otro equipo(donde se encuentra la informacion). El problema es que no se como controlar eso cuando no existe la conexion. Me explico, cada x tiempo quiero lanzar una funcion que me diga si se puede o no acceder a una maquina en concreto...\n\n\nYo estoy utilizando este codigo...\n\nFUNCTION estado_conexion(oTmr)\n\noTmr:DeActivate() &amp;&amp;se desactiva el temporizador para poder hacer las acciones pertinentes\nuse(\"\\\\maquina\\ruta\\articulos.dbf\")\n	IF used(\"\\\\maquina\\ruta\\articulos.dbf\")\n		msginfo(\'Hay Conexion\')\n	else\n		msginfo(\'No hay Conexion\')\n	endif\noTmr:Activate()&amp;&amp;se vuelve activar el temporizador\nRETURN nil\n\nPero no es esto lo que pretendo ya que si no hay conexion el use me da un error y eso es lo que quiero controlar para que no se me cuelgue la aplicacion..\n\n\nAlguien me puede dar una idea...\n\nSaludos...\n\nElías Torres.','',0,'gA==','yxrpf95d',1,0,'',720,0,0),(22154,4983,4,6,0,'87.17.226.60',1164021858,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2vmnrt40]Enrico,\n\nops, I missed your command[/quote:2vmnrt40]\n\nNo problem. My command doesn\'t work anyway. The lib is created but errors out when is linked to the application.\n\nEMG','',0,'gA==','2vmnrt40',1,0,'',6,0,0),(22155,5000,7,720,0,'80.59.110.137',1164023706,1,0,1,1,1,0,'','','He probado con esto....\n\nFUNCTION estado_conexion(oTmr)\noTmr:DeActivate() &amp;&amp;se desactiva el temporizador para poder hacer las acciones pertinentes\nIF File(\"\\\\maquina\\ruta\\articulos.dbf\")\n	msginfo(\'Hay Conexion\')\nelse\n	msginfo(\'No Hay Conexion\')\nendif\noTmr:Activate()&amp;&amp;se vuelve activar el temporizador\nRETURN nil\n\n\nEste codigo funciona y me detecta si hay o no conexion en base a si puede o no localizar el archivo en cuestion. Lo que ocurre es que se hace extremadamente largo el tiempo que emplea en detectar el archivo(no si hay conexion.La tardanza es cuando no existe la conexion).... La verdad es que nose porque hay tanto tiempo de retardo...Si alguien encuentra otra solucion más rápida se lo agradeceria..\n\nUn saludo..\n\nElías Torres.','',0,'gA==','3m76vyb9',1,0,'',720,0,0),(22156,4945,7,656,0,'83.230.172.214',1164025223,1,0,1,1,1,1,'','','Me siendo un poco ignorado, pero seguiré por si un alma caritativa me quiere ayudar;\n  He conseguido solucionar el problema, he abierto el .rc con Pelles C, lo he guardado y solucionado, despues de incluir los dos includer que he visto por aquí que pone todo el mundo.\n\n  Pero ahora me dice que no encuentra el archivo :\n\n           \\harbour_ce\\lib\\gtwin.lib\n\n   y es cierto que no está, ahora bien, ¿ puedo copiar el gtwin.lib que tengo en el directorio \\harbour\\lib ?, ¿ sirve el mismo ?\n\n Muchas gracias por vuestra atención\n\nSalu2\nJavier Pérez','',0,'gA==','18crwytk',1,0,'',656,0,0),(22157,5001,6,176,0,'201.255.143.3',1164026845,1,0,1,1,1,0,'','fwh25','Hola grupo tengo el siguiente problema, estoy pasando una aplicación de 16 bits a 32, se ejecuta pero en algunas pantallas me da ejemplo:\n  Error description: Error FiveWin/1  Non defined Id: No:    126\nel cual está declarado de la siguiente forma:\n\n  LOCAL oPla\n  LOCAL cPla := \"Contado\"\n  local aplazos :=  {\"Contado\",\"7 Días f/f\",\"7 Días c/val\",\"10 Días\", \"10 Días C/Val\",\"15 Días\",\"15 Días C/val\",\"21 Días f/f\",\"21 Días c/val\",;\n\"60 Días f/f\",\"60 Días c/val\"}\n\n////\n  REDEFINE COMBOBOX oPla VAR cPla id 126 items aPlazos of  oDlgcli \n\ny en el Rc está bien el id que le designe, es decir (126), pero me lo hace en varias rutinas. Tengo un programa hecho en FWH25 y no me ocurrió esto que les relato.\nOtra cuestión es que no me muestra los bitmaps cuando utilizo BTNBMP en el recurso utilizó las fwctrls y uso el Tbtnbmp\n\n  REDEFINE BTNBMP oNbut[4] id 105 of oDlg resource \"btnborra\",\"btnborr1\" ACTION DelClient( oLbx,oMae,oMae:nape) NOBORDER\n\n\nDesde ya muchas gracias\n\nLuis','',0,'','36xfnp7p',1,0,'',176,0,0),(22158,4945,7,2,0,'87.218.146.117',1164027740,1,0,1,1,1,1,'','','Javier,\n\n&gt;\nlinea 13 : IMPRIMIR BITMAP \nlinea 14 : { \n&gt;\n\nEse tipo de definición de bitmap en un RC sólo sirve para Borland. En Microsoft tienes que usar IMPRIMIR BITMAP \"nombre_fichero_bitmap\"\n\n&gt; gtwin.lib\n\nAhora no se usa gtwin.lib, se usa gtgui.lib. Es debido a cambios en harbour.','',0,'','ferftehm',1,0,'',2,0,0),(22159,5000,7,2,0,'87.218.146.117',1164027886,1,0,1,1,1,1,'','','Elías,\n\nSupongo que Windows Mobile reintenta en caso de no haber conexión.\n\nHabría que buscar información en google por si hay forma de reducir ese tiempo de reintento.','',0,'','31eet7ub',1,0,'',2,0,0),(22160,5001,6,2,0,'87.218.146.117',1164028057,1,0,1,1,1,1,'','','Luis,\n\nMuéstranos la parte del RC en donde tienes definida esa caja de diálogo.','',0,'','z4mheuxa',1,0,'',2,0,0),(22161,4877,2,2,0,'87.218.146.117',1164028167,1,0,1,1,1,1,'','','Manu,\n\nUsa un color que no esté en la imagen del bitmap, solo en su contorno, ya que con ese color se construye la máscara para dibujarlo transparente.','',0,'','20k1gnn0',1,0,'',2,0,0),(22162,4998,3,190,0,'202.65.134.26',1164029410,1,0,1,1,1,0,'','','Mr.ShumingWang\n\nThis is the code:\n\n[code:7xlf5t0k]\n\n         COLORS &#123;|oBtn|IF&#40;oBtn&#58;lActive,                                 ;\n                       IF&#40;oBtn&#58;lMouseOver, nRGB&#40;80,145,210&#41;, CLR_WHITE&#41;,;\n                        CLR_GRAY &#41; &#125;,                                  ;\n                        &#123;|oBtn| If&#40; oBtn&#58;lActive,                       ;\n                        &#123;&#123;CLR_WHITE, nRGB&#40;80,145,210&#41;&#125;, 4 &#125;,            ; \n                         CLR_HGRAY &#41; &#125; ;\n         ACTION &#40; &#46;T&#46; &#41; \n[/code:7xlf5t0k]\n\nand the result is : \n\n[url=http&#58;//img291&#46;imageshack&#46;us/my&#46;php?image=tsbuttonuj0&#46;png:7xlf5t0k][img:7xlf5t0k]http&#58;//img291&#46;imageshack&#46;us/img291/2634/tsbuttonuj0&#46;th&#46;png[/img:7xlf5t0k][/url:7xlf5t0k]\n\nRegards\n\n- Ramesh Babu P','',0,'GIA=','7xlf5t0k',1,0,'',190,0,0),(22163,5001,6,176,0,'201.255.143.3',1164031782,1,0,1,1,1,0,'','fwh','Aquí envío el rc en txt\n\n\n\nDIA_CLIF1 DIALOG 46, 43, 255, 290\nSTYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME | WS_MINIMIZEBOX\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT 106, 47, 3, 36, 11, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 107, 47, 17, 149, 12\n EDITTEXT 108, 46, 33, 137, 12\n EDITTEXT 109, 46, 47, 122, 12\n EDITTEXT 118, 212, 47, 31, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 120, 46, 61, 116, 12\n COMBOBOX 110, 46, 75, 102, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n EDITTEXT 119, 207, 75, 36, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 111, 46, 92, 105, 13\n EDITTEXT 129, 207, 92, 36, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 113, 38, 152, 82, 12\n COMBOBOX 116, 167, 150, 86, 58, CBS_DROPDOWNLIST | WS_TABSTOP\n EDITTEXT 114, 37, 169, 56, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 115, 98, 184, 46, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 117, 45, 201, 31, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n COMBOBOX 126, 72, 237, 100, 33, CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON \"&amp;Aceptar\", 104, 8, 264, 54, 14\n PUSHBUTTON \"&amp;Salir \", 105, 68, 264, 54, 14\n PUSHBUTTON \"&amp;Cta Cte\", 122, 128, 264, 54, 14\n PUSHBUTTON \"&amp;Datos\", 123, 188, 264, 54, 14\n CHECKBOX \"Incobrable:\", 103, 6, 120, 52, 10, BS_AUTOCHECKBOX | BS_LEFTTEXT | WS_TABSTOP\n PUSHBUTTON \"Transportes\", 121, 186, 195, 56, 11\n LTEXT \"Codigo:\", -1, 6, 5, 30, 10\n LTEXT \"Razón Social:\", -1, 6, 22, 29, 8\n LTEXT \"Domicilio:\", -1, 6, 37, 30, 10\n LTEXT \"C. Postal:\", -1, 176, 50, 33, 10\n LTEXT \"Localidad:\", -1, 6, 54, 35, 10\n LTEXT \"Provincia:\", -1, 6, 86, 35, 10\n LTEXT \"Cedronar:\", -1, 175, 77, 32, 10\n LTEXT \"Rubro:\", -1, 6, 103, 26, 10\n LTEXT \"Cuit:\", -1, 6, 154, 17, 10\n LTEXT \"Condición:\", -1, 128, 153, 32, 10\n LTEXT \"Saldo:\", -1, 6, 171, 23, 10\n LTEXT \"Último promedio de pago:\", -1, 6, 188, 84, 10\n LTEXT \"días\", -1, 149, 186, 15, 8\n LTEXT \"Vendedor:\", -1, 6, 205, 35, 10\n LTEXT \"Teléfono:\", -1, 6, 71, 34, 8\n CHECKBOX \"Exento Ingresos Brutos:\", 124, 6, 137, 87, 10, BS_AUTOCHECKBOX | BS_LEFTTEXT | WS_TABSTOP\n CHECKBOX \"Factura en dólares:\", 125, 127, 133, 84, 10, BS_AUTOCHECKBOX | BS_LEFTTEXT | WS_TABSTOP\n LTEXT \"Condición de pago:\", -1, 6, 239, 65, 10\n PUSHBUTTON \"Agre&amp;gar direcciones\", 127, 180, 237, 71, 14\n CHECKBOX \"Bloquear remito\", 112, 128, 117, 73, 10, BS_AUTOCHECKBOX | BS_LEFTTEXT | WS_TABSTOP\n EDITTEXT 128, 68, 219, 87, 12, ES_RIGHT | WS_BORDER | WS_TABSTOP\n LTEXT \"Atiende por T.E. :\", -1, 6, 222, 59, 10\n LTEXT \"Vto Cedronar:\", -1, 163, 94, 44, 10\n}\n\n\nGracias por tu atención \n\nLuis','',0,'GIA=','30yocs8o',1,0,'',176,0,0),(22164,4936,3,267,0,'200.208.238.2',1164031895,1,0,1,1,1,1,'','','Hi,\n\nYou can poste an example of the use?','',0,'GIA=','6a0rap0x',1,0,'',267,0,0),(22165,5001,6,176,0,'201.255.143.3',1164032925,1,0,1,1,1,0,'','fwh25','Aclaro que el id 126 estaba como el id 110 y lo cambié basasdo en otro programa que está funcionando en fwh25, por eso la diferencia de declaración\n\nLuis','',0,'GIA=','gagd2t3i',1,0,'',176,0,0),(22166,4992,3,299,0,'24.233.172.101',1164033325,1,0,1,0,1,0,'','','Antonio;\n\nAfter commenting that line, here is what I get:\n\n[url=http&#58;//imageshack&#46;us:2bvg720z][img:2bvg720z]http&#58;//img218&#46;imageshack&#46;us/img218/622/screeniw3&#46;jpg[/img:2bvg720z][/url:2bvg720z]\n\nReinaldo.','',0,'GA==','2bvg720z',1,0,'',299,0,0),(22167,4983,4,89,0,'213.21.136.60',1164035452,1,0,1,1,1,0,'','','Thank Antonio and Enrico \n\nNow I have the LIB , and I cann link it without problem .\n\nI try this function \n\n#pragma BEGINDUMP \n\n#include &lt;hbapi.h&gt; \n\nHB_FUNC( RCHSENDDATA ) \n{ \n   hb_retnl( RCHSendData( hb_parc( 1 ), hb_parc( 2 ) ) ); \n} \n\n#pragma ENDDUMP \n\nBut I have this error :\n\nRCH.obj : error LNK2019: unresolved external symbol \"int __cdecl RCHOpen(void)\" (?RCHOpen@@YAHXZ) referenced in function \"void __cdecl HB_FUN_RCHOpen(void)\" (?HB_FUN_RCHOpen@@YAXXZ)\nRCH.exe : fatal error LNK1120: 1 unresolved externals\n//---------------------------------------------------------------------------\nI Try this function \n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\nint RCHOpen( void );\n\nHB_FUNC( RCHOpen )\n{\n   hb_retnl( RCHOpen() );\n}\n\n#pragma ENDDUMP\n\n\n\n   Creating library RCH.lib and object RCH.exp\nRCH.obj : error LNK2019: unresolved external symbol \"int __cdecl RCHOpen(void)\" (?RCHOpen@@YAHXZ) referenced in function \"void __cdecl HB_FUN_RCHOpen(void)\" (?HB_FUN_RCHOpen@@YAXXZ)\nRCH.exe : fatal error LNK1120: 1 unresolved externals\n\nWhat is my error ? \n\nRegards MAurizio','',0,'GA==','59wegtix',1,0,'',89,0,0),(22168,4998,3,239,0,'219.137.198.185',1164035966,1,0,1,1,1,0,'','','The text color could be changed,  but bmp color seems could not be changed,as a tsbutton contians text and bmp.\n\nShuming Wang','',0,'GA==','1doo66xx',1,0,'',239,0,0),(22169,5002,3,869,0,'201.43.61.50',1164042766,1,0,1,1,1,1,'','VALID in ADD COLUMN don\'t work.','Hi,\n\nI\'m using Fivewin 2.7 for Harbour - April 2006 release + xHarbour Builder - October 2006 release + WinXP. \n\nThe problem is:\n\nI got this code on Fivewin Samples Folder and changed last line.\n\nADD COLUMN TO BROWSE oBrw ;\nDATA FieldWBlock(\"BAKIYE\", Select(\"Stok\")) ;\nHEADER \"Bakiye\" ;\nPICTURE \"###,###.##\" ;\nEDITABLE ;\nWIDTH 70 PIXELS ;\n[b:1dkn63nt]VALID {|o| MyFunction( o:varGet() ) }\n[/b:1dkn63nt]\n\nWhen MyFunction() returns FALSE, the browse advances to the next field or get and it should stay in the same get. \n\nThe same code, when compiled in Clipper 5.2e + Fivewin 2.4 works fine!\n\nI tried this way too:\n\n[b:1dkn63nt]VALID IF MyFunction( o ) [/b:1dkn63nt]\n\nBut the problem persist!\n\nThank\'s\n\nLuciano','',0,'QA==','1dkn63nt',1,0,'',869,0,0),(22170,5002,3,53,0,'189.139.11.164',1164043419,1,0,1,1,1,1,'','','Luciano:\n\npls try this way\n\noBrw:aColumns[ 1 ]:bValid := { | uVar | MyFunction(uVar) }\n\nBest regards, Armando','',0,'','1m7dkl4b',1,0,'',53,0,0),(22171,5003,7,720,0,'80.59.110.137',1164043601,1,0,1,1,1,0,'','Como hacer un ping a una maquina...','Hola a todos...\n\nNecesito hacer un ping a una direccion para ver si puedo conectar con ella.Alguien sabe alguna forma sencilla de comprobar si una maquina está activa??\n\nUn saludo y gracias..\n\nElías Torres...','',0,'','7dyuxp7o',1,0,'',720,0,0),(22172,4984,6,743,0,'200.79.46.141',1164044414,1,0,1,1,1,0,'','','gracias antonio por tu respuesta, abusando de tu conocimiento y experiencia en que metodo de la clase de puede modificar las dimenciones del browser\n\ngracias\n\n\nAntonio','',0,'','hpobxy89',1,0,'',743,0,0),(22173,4983,4,6,0,'87.6.210.160',1164044453,1,0,1,1,1,1,'','','It seems a name-mangling problem as if the lib was compiled in C++.\n\nEMG','',0,'','10tzorgv',1,0,'',6,0,0),(22174,5002,3,869,0,'201.43.61.50',1164044560,1,0,1,1,1,1,'','VALID in ADD COLUMN don\'t work.','Armando,\n\nThank you for your help.\n\nI tried your sugestion\n\noBrw:aColumns[ 1 ]:bValid := { | uVar | MyFunction(uVar) } \n\nBut the problem happened again.\n\nHave you any other idea?\n\nThank\'s','',0,'','1mgu835s',1,0,'',869,0,0),(22175,5002,3,53,0,'189.139.11.164',1164048114,1,0,1,1,1,1,'','','Luciano:\n\nit woks fine to me, perhaps the problem is in your valid FUNCTION\n\nPls, show a little part of you code. (Column code and valid function)\n\nRegards','',0,'','1x496qjl',1,0,'',53,0,0),(22176,5004,6,59,0,'217.127.31.7',1164048433,1,0,1,1,1,0,'','Pagina de Vikthor','Hola, alguien sabe que le pasa al sitio de Vikthor?, he intentado bajar su clase texcel y no entra en la pagina\n\nSaludos y Gracias','',0,'','3qu8ea7e',1,0,'',59,0,0),(22177,4983,4,2,0,'87.218.146.117',1164050014,1,0,1,1,1,1,'','','Maurizio,\n\nYou have to include this in your code before your HB_FUNC()s:\n[code:15g9jzfv]\nextern &quot;C&quot; &#123;\nLONG RCHSendData&#40; LPSTR, LPSTR &#41;;\nLONG RCHOpen&#40; void &#41;;\nLONG RCHClose&#40; void &#41;;\n&#125;\n[/code:15g9jzfv]','',0,'AIA=','15g9jzfv',1,0,'',2,0,0),(22178,4992,3,2,0,'87.218.146.117',1164050340,1,0,1,1,1,1,'','','Reinaldo,\n\nThis should be the right code:\n[code:38y4ppaf]\n   if &#58;&#58;lTransparent &#46;and&#46; ! Empty&#40; &#58;&#58;oBrush&#58;hBitmap &#41; \n      SetBrushOrgEx&#40; &#58;&#58;hDC, nBmpWidth&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nLeft, nBmpHeight&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nTop &#41; \n   endif \n   FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41;\n[/code:38y4ppaf]','',0,'AIA=','38y4ppaf',1,0,'',2,0,0),(22179,4997,1,186,0,'66.130.50.142',1164050480,1,0,1,1,1,1,'','','Hi Antonio,\n\n\nI mean PRG. I`m not to good at C.\n\nBy the way, is it poosible for you to take a peak at the thread MESSAGE TO BADARA. I called this way because I did`nt know how to call it.\nThis thread is about Windows Available Printers retreival form Windows Register. Badara has done a tremendous job on this and I`m trying to adapt my own ideas to it`s work. But there is so many unknown thing that it`s not easy to takle. I would apreciate if you could help.\n\nRegards,','',0,'AIA=','q9vhvyq8',1,0,'',186,0,0),(22180,4997,1,2,0,'87.218.146.117',1164050589,1,0,1,1,1,1,'','','Gilbert,\n\nWhy don\'t you want to use the classes in your PRG code ?','',0,'AIA=','2t7pfmg1',1,0,'',2,0,0),(22181,4992,3,299,0,'24.233.172.101',1164050832,1,0,1,0,1,0,'','','YES!!!!\n\nThank you.\n\n\nReinaldo.','',0,'AIA=','3huzrazq',1,0,'',299,0,0),(22182,5001,6,2,0,'87.218.146.117',1164050923,1,0,1,1,1,1,'','','Luis,\n\nEl RC parece correcto, no debería fallar. \n\nFunciona a veces ó falla siempre ?','',0,'AIA=','hwjwqlk0',1,0,'',2,0,0),(22183,4984,6,2,0,'87.218.146.117',1164050981,1,0,1,1,1,1,'','','oBrowse:nHeight = &lt;nValor&gt;','',0,'AIA=','1q7maaun',1,0,'',2,0,0),(22184,4997,1,186,0,'66.130.50.142',1164051449,1,0,1,1,1,1,'','','Hi Antonio,\n\nThis function I`m developing as to be completely independant form any CLASSES because of portability. Also want to reduce code to a maximum.\nI would like to use pure code instead of CLASSES.\n\nRegards','',0,'AIA=','3mv6mz1q',1,0,'',186,0,0),(22185,4931,1,186,0,'66.130.50.142',1164051581,1,0,1,1,1,1,'','','Hi Badara,\n\n\nI did more searching and found out that the printer capabilities available under 2000 and XP cannot be found anywhere in Windows 98.\n\nCould you validate this ?\n\nRegards','',0,'AIA=','2bk95d70',1,0,'',186,0,0),(22186,4997,1,2,0,'87.218.146.117',1164052615,1,0,1,1,1,1,'','','Gilbert,\n\nThe only way to avoid the use of classes is to develop it in pure C code.','',0,'AIA=','3mhucinv',1,0,'',2,0,0),(22187,4984,6,743,0,'200.79.46.141',1164053055,1,0,1,1,1,0,'','','gracias antonio\n\notra cosa estoy usando la clase BTNGET, y quiero que el boton sea trasparente comompuedo hacer eso\n\n\nantonio','',0,'AIA=','xkd423xu',1,0,'',743,0,0),(22188,5005,2,867,0,'148.243.37.162',1164053747,1,0,1,1,1,0,'','Hola soy nueva en este foro','Hola como estan todos ustedes, soy nueva en este foro necesito ayuda urgente y pasando mis aplicaciones de clipper a fivewin, y me quede atorada en un detalle, alguien me propociona un ejemplo de como capturar en una pantalla de facturacion, que me pida num factura, num cliente,  y agregar detalles de articulos y cantidad y precio.\nSu amiga Susy \nsaludos a todos los colegas','',0,'AIA=','1zc074hl',1,0,'',867,0,0),(22189,5006,6,867,0,'148.243.37.162',1164053881,1,0,1,1,1,0,'','facturacion','Hola como estan todos ustedes, soy nueva en este foro necesito ayuda urgente y pasando mis aplicaciones de clipper a fivewin, y me quede atorada en un detalle, alguien me propociona un ejemplo de codigo fuente como capturar en una pantalla de facturacion, que me pida num factura, num cliente, y agregar detalles de articulos y cantidad y precio. \nestoy tratando de usar listbox para captura de detalles\nSu amiga Susy \nsaludos a todos los colegas','',0,'AIA=','2zuofb7q',1,0,'',867,0,0),(22190,5004,6,54,0,'189.132.105.21',1164055096,1,0,1,1,1,1,'','Re: Pagina de Vikthor','[quote=&quot;pablinux&quot;:s2h6td9c]Hola, alguien sabe que le pasa al sitio de Vikthor?, he intentado bajar su clase texcel y no entra en la pagina\n\nSaludos y Gracias[/quote:s2h6td9c]\n\nPablinux,\n\nSu server está tronado, muerto, cadaver.\n\nSaludos','',0,'gA==','s2h6td9c',1,0,'',54,0,0),(22191,5007,1,186,0,'66.130.50.142',1164059256,1,0,1,1,1,1,'','API Calls','Hi All,\n\n\nI want to retreive a list of available printers using an API Call. \nI looked at DllTest, wich does nothing actually and also at DllCall, Wich does not say much either, and I can`t figure out how to do this.\n\nCan anyone help me with the syntax.\n\nRegards,','',0,'gA==','2ueufkx6',1,0,'',186,0,0),(22192,5008,6,63,0,'84.77.241.10',1164060338,1,0,1,1,1,0,'','Utilizar un Bmp como cursor','Tengo un pequeño Bmp que quisiera utilizar momentáneamente como cursor en lugar de la flecha de siempre.  Supongo que se utiliza SetCursor() pero no he conseguido ir más allá.  Alguien me podría poner un ejemplo de cómo hacerlo?  Gracias\n\nRafael','',0,'gA==','3s0j251f',1,0,'',63,0,0),(22193,5004,6,228,0,'200.105.63.26',1164066874,1,0,1,1,1,1,'','Si es urgente..','Amigo si es urgente.. yo descargue una copia hace como 20 días si te sirve escribeme al privado y con gusto te la envio.','',0,'gA==','1gu94sb8',1,0,'',228,0,0),(22194,5009,6,501,0,'200.32.103.37',1164066914,1,0,1,1,1,0,'','Ayuda con Apollo Database Server','No se que poner o que configurar para que la aplicación use los archivos definidos con Apollo Database Manager.\n\nSi alguien tiene un ejemplo de como se usa el Apollo Database Server como para orientarme desde ya muchas gracias.\n\nBaje algo de Patrick Mask pero es local y es solo para mencionar que usa los indices NSX.\n\nGracias.','',0,'gA==','1xau4nhg',1,0,'',501,0,0),(22195,5010,6,501,0,'200.32.103.37',1164067372,1,0,1,1,1,0,'','Andó -&gt; FWH + Mediator + Postgress','Por si a alquien le sirve despues de un rato pude manipular tablas con Mediator y PostGres de por medio, para mi que no he trabajado casi con motores de datos ha sido una sorpresa haber dado en la tecla con una serie de cosas que no conocia.\n\nSeguire probando para ver que onda en una red con cosas un poco mas pesadas.\n\nSaludos.\n\n( Tambien estoy probando el RDD de Apollo pero no se como configurarlo para que se conecte al motor Apollo 6.1 )','',0,'gA==','1mpclsgd',1,0,'',501,0,0),(22196,5006,6,501,0,'200.32.103.37',1164067810,1,0,1,1,1,0,'','','[b:801ix3a2]Hola Susy, bienvenida.[/b:801ix3a2]\n\nPasame una cuenta de correo que te mando algo, contame antes que browser estas usando.\n\nsalu2. carlosortiz','',0,'QA==','801ix3a2',1,0,'',501,0,0),(22197,5011,6,53,0,'189.139.11.164',1164070442,1,0,1,1,1,1,'','ON TOP','Saludos amigos del foro:\n\nTengo un pequeño diálogo con un reloj digital y necesito tenerlo siempre al frente (ALWAYS ON TOP), podrian indicarme cómo lograrlo ?\n\nUn abrazo, Armando','',0,'QA==','2ney2zze',1,0,'',53,0,0),(22198,5011,6,54,0,'189.132.105.21',1164072863,1,0,1,1,1,1,'','Re: ON TOP','[quote=&quot;Armando&quot;:1o168sx1]Saludos amigos del foro:\n\nTengo un pequeño diálogo con un reloj digital y necesito tenerlo siempre al frente (ALWAYS ON TOP), podrian indicarme cómo lograrlo ?\n\nUn abrazo, Armando[/quote:1o168sx1]\n\nArmando,\n\n[code:1o168sx1]SetWindowPos&#40; oWnd&#58;hWnd, -1,0,0,0,0,3 &#41;[/code:1o168sx1]\n\nServido sr.\n\nSaludos','',0,'gIA=','1o168sx1',1,0,'',54,0,0),(22199,5012,1,186,0,'66.130.50.142',1164075487,1,0,1,1,1,1,'','DATA declaration','Hi All,\n\nCan someone tell me the difference between:\n\nDATA  nValue  AS NUMERIC\n\nand:\n\nDATA  nValue\n\nAlso, if I want to declare a DATA variable and initialize it at declaration.\nCan I use:\n\nDATA  nValue INIT 0\n\nor I must use:\n\nDATA  nValue AS NUMERIC INIT 0\n\n\n\nRegards,','',0,'gIA=','2ce83ej1',1,0,'',186,0,0),(22200,4998,3,15,0,'203.73.69.63',1164075784,1,0,1,1,1,0,'','','Hello ShumingWang,\n\nI guess TSButton only support Text for Disable function.\nYou can use it below:\n\nREDEFINE TSButton Of oDlg ;\n               RESOURCE \"1\",\"2\",\"Disable bmp\",\"4\"\n\nRegards,\n\nRichard','',0,'gIA=','2nsc7gtw',1,0,'',15,0,0),(22201,5011,6,53,0,'189.139.11.164',1164076468,1,0,1,1,1,1,'','','\'Chas gracias William.\n\nComo siempre, funciona de 10\n\nSaludos, Armando','',0,'gIA=','2lqpvl4b',1,0,'',53,0,0),(22202,5013,7,533,0,'88.8.20.148',1164089754,1,0,1,1,1,0,'','Generación de una DLL','Buenos días foro:\n\n   Permitidme que os plantee una duda, ¿de que maneras hay para guardar imagenes en un fichero, sin que tenga que generarme una carpeta de imagenes e ir incluyendo ahi todas las que vaya usando en el programa?. Tengo problemas a la hora de guardar las imagenes estaticas (bitmaps pequenos, etc. . .) dentro del fichero de recursos del Microsoft Visual c++  y al final siempre acabo poniendo el fichero en la carpeta de imagenes. \n\n    GRACIAS DE ANTEMANO.','',0,'gIA=','2gjykl3m',1,0,'',533,0,0),(22203,4936,3,678,0,'168.209.98.43',1164094381,1,0,1,1,1,1,'','','Check your private mail, will send eg','',0,'gIA=','qfr9876m',1,0,'',678,0,0),(22204,4964,3,678,0,'168.209.98.43',1164094586,1,0,1,1,1,1,'','','Antonio\n\nThe cursorwait hourglass cursor does not let you click on anything so in that way it seems to disable clicking\n\nThanks\nPeter','',0,'gIA=','kbkhfoow',1,0,'',678,0,0),(22205,5013,7,2,0,'87.218.146.117',1164096333,1,0,1,1,1,1,'','','Mike,\n\nInclúyelas en tu fichero RC como:\n\nnombre BITMAP \"fichero.bmp\"','',0,'gIA=','3jns1h17',1,0,'',2,0,0),(22206,4964,3,2,0,'87.218.146.117',1164096580,1,0,1,1,1,1,'','','Peter,\n\nWhat process are you doing in your application after you call CursorWait() ?\n\nThe process may be consuming all the CPU cycles and thats why it seems that events are not processed. Turning one cursor into another, will not make the application stop processing events.','',0,'gIA=','29gth45m',1,0,'',2,0,0),(22207,5012,1,2,0,'87.218.146.117',1164096756,1,0,1,1,1,1,'','','Gilbert,\n\n&gt; DATA nValue AS NUMERIC \n\nThe DATA can only hold a number value.\n\n&gt; DATA nValue \n\nThe DATA can hold any type value.\n\n&gt; DATA nValue INIT 0 \n\nThe DATA can hold any type and it will be initialized with zero.\n\n&gt; DATA nValue AS NUMERIC INIT 0\n\nThe DATA can only hold a number and it will be initalized with zero.','',0,'gIA=','1skfkzvl',1,0,'',2,0,0),(22208,4931,1,170,0,'83.179.233.208',1164097536,1,0,1,1,1,1,'','','Hi Gilbert,\n\nSorry, i was not here these days.\n\nI answer you today.\n\nRegards,','',0,'gIA=','hrc2ujy6',1,0,'',170,0,0),(22209,5013,7,533,0,'80.32.177.143',1164098862,1,0,1,1,1,0,'','','Gracias Antonio\n\n   Te comento una cosa, yo no uso ningún fichero .rc, utilizo .res, entonces mi duda está en si la solución seria generarme yo el fichero rc, incluir como me has comentado las imagenes y modificar mi fichero por lotes (compilar) de esta manera:\n\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for xHarbour 2.8 - October 2006         xHarbour development power ³Ü\nECHO ³ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\xharbour\nset bcdir=c:\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /L /M /i..\\..\\include\n\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\n%bcdir%\\bin\\bcc32 -M -c -v -O2 -e%1.exe -I%hdir%\\include %1.c\n:ENDCOMPILE\n\nrem IF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1               [b:1tjd90qi]&lt;-- quitar el rem de esta línea[/b:1tjd90qi]\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v @cdigest.bc\n\nrem delete temporary files\n@del %1.c\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\ncopy main.exe ..\\\ncd ..\nmain\ncd fue\nGOTO EXIT\nECHO\n\n:LINKERROR\nrem if exist meminfo.txt notepad meminfo.txt\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n\n\n\n\n[b:1tjd90qi]P.D.: Por otro lado, ¿cómo hago referencia a éstas imágenes desde mi programa?, ¿con el nombre?[/b:1tjd90qi]  \n\nMUCHAS GRACIAS','',0,'QA==','1tjd90qi',1,0,'',533,0,0),(22210,5014,7,106,0,'85.34.123.173',1164099066,1,0,1,1,1,1,'','OT: Emulador no abre las bases de datos...','Quería preguntar si es solo a mi que me pasa, o tambien les pasa a ustedes que despues de cargar varias veces el programa, deja de abrir las bases de datos el emulador.\nEl mio es la version: 8.0.50215.35 y sucede luego de abrir el programa 6 o 7 veces. Visto que no abre mas las bases de datos, tengo que reiniciarlo y todo se resuelve, pero es un poco molesto...\n\nLas bases de datos las abro, hago lo necesario y las cierro enseguida, y estan en una unidad compartida.\n\nEste es uno de los modos que abro el emulador:\n\n[code:1f26t9en]\n&quot;\\Programmi\\Microsoft\\Device Emulator Preview\\deviceemulator&#46;exe&quot; &quot;\\Programmi\\Microsoft\\Device Emulator Preview\\PPC_2003_SE\\ppc_2003_se_wwe_armv4&#46;bin&quot; /skin &quot;\\Programmi\\Microsoft\\Device Emulator Preview\\PPC_2003_SE\\Pocketpc_2003_skin&#46;xml&quot; /memsize 128 /sharedfolder c&#58;\\lavwin\\teve\n[/code:1f26t9en]\n\nSaludos','',0,'AIA=','1f26t9en',1,0,'',106,0,0),(22211,5015,7,106,0,'85.34.123.173',1164099744,1,0,1,1,1,1,'','Funcion en C++','Tengo esta funcion que me imprime un bitmap pasandole la ruta del archivo:\n\n[code:i41akkqj]\nHB_FUNC&#40; PRT_PRINTBITMAP &#41;\n&#123;\n   if&#40; printer == NULL &#41;\n   &#123;\n      printer = new CPrinter;\n   &#125;\n//   printer-&gt;Prt_PrintBitmap&#40; hb_parni&#40;1&#41; &#41;;\n//printer-&gt;Prt_PrintBitmap&#40;&#40;LPCTSTR&#41; hb_parc&#40;1&#41;&#41;;\n \n  printer-&gt;Prt_PrintBitmap&#40;_T&#40;&quot;&#46;&#46;/Windows/b&#46;bmp&quot;&#41;&#41;;\n\n&#125;\n[/code:i41akkqj]\n\n\nComo hago para pasarlo como parametro desde mi funcion?\n\n  Prt_PrintBitmap(\"miarchivo.bmp\")\n\nO lo que sería mucho mejor aun, como puedo hacer para imprimir un bmp que tengo en mi .RC\n\n\nGracias.','',0,'AIA=','i41akkqj',1,0,'',106,0,0),(22212,4945,7,656,0,'83.230.172.214',1164100394,1,0,1,1,1,1,'','','ok, ya casi tengo mi primer programa listo, me falta que al linkar me dice :\n\n      unresolved externals HB_FUN_TMETER\n\n ¿ no reconoce el TMeter ?\n\nMuchas Gracias','',0,'AIA=','24j2ut01',1,0,'',656,0,0),(22213,4964,3,678,0,'168.209.98.43',1164100664,1,0,1,1,1,1,'','','Antonio\n\nThe proces is an intensive loop through a dbf, so you are probably correct\n\nI am confused because sometimes they seem to work and other times they seem to get reset to the default cursor\n\nI will try read up on them\n\nThanks for your assistance\n\nPeter','',0,'AIA=','933jkqnb',1,0,'',678,0,0),(22214,4936,3,49,0,'213.82.134.66',1164101533,1,0,1,1,1,1,'','','peterk can you send me also....','',0,'AIA=','3t1xjtv0',1,0,'',49,0,0),(22215,4945,7,449,0,'212.64.224.241',1164101652,1,0,1,1,1,1,'','','Hola,\n\nHasta donde yo tengo, la clase TMeter no esta implementada. Usa la progress\n\n[code:196z9fho]REDEFINE PROGRESS oPgr ID 200 OF oDlg\n&#46;&#46;&#46;\noPgr&#58;SetRange&#40; 0, nTotal &#41;\n&#46;&#46;&#46;\noPgr&#58;nPosition &#58;= oPgr&#58;nPos + 1\n&#46;&#46;&#46;\n[/code:196z9fho]','',0,'AIA=','196z9fho',1,0,'',449,0,0),(22216,5016,20,49,0,'213.82.134.66',1164101846,1,0,1,1,1,1,'','barcode','modificando questa libreria mi sono accorto che alcuni barcode ( barlib e poi ripreso anche da vdrbarcode class) sono errati perchè il lettore non li leggeva bene : avete avuto anche voi questo problema ?','',0,'AIA=','ll5vn7u5',1,0,'',49,0,0),(22217,5017,19,49,0,'213.82.134.66',1164101953,1,0,1,1,1,1,'','I need santiago Perez','Santiago,\n can you send me at private email, pls','',0,'AIA=','1xtb7py6',1,0,'',49,0,0),(22219,5013,7,2,0,'87.218.146.117',1164102410,1,0,1,1,1,1,'','','Mike,\n\nPuedes hacerlo de varias maneras. Puedes construir el rc, compilarlo a res y seguir construyendo como lo estás haciendo. O puedes usar el fichero bat y construir siempre el res a partir del rc. Como prefieras.\n\nComo vas a usar las imágenes desde la aplicación ? Como @ ... IMAGE ... ? Como bitmap a mostrar en un browse ? Como botones TBtnBmp con imágenes ? Cada forma tiene su propia sintaxis.','',0,'AIA=','3quylsei',1,0,'',2,0,0),(22220,1297,1,49,0,'213.82.134.66',1164102551,1,0,1,1,1,1,'','','Yes,\nWe can confirm Tplan  32 bit Version 1.02  \nOn the package : Manual help file, Test Samples\n€ 199,99 \n\nWrite email for information  to <!-- e --><a href=\"mailto:silvio_falconi@tin.it\">silvio_falconi@tin.it</a><!-- e -->','',0,'AIA=','2ei86y56',1,0,'',49,0,0),(22221,4964,3,2,0,'87.218.146.117',1164102625,1,0,1,1,1,1,'','','Peter,\n\nIf you don\'t want to process any events, simply <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable() the window. When you are done, :Enable() it.\n\nAlso if you do an intensive loop, you should call SysRefresh(), at certain places, to let Windows process its pending messages, or Windows will stop responding.','',0,'AIA=','v5y09tz1',1,0,'',2,0,0),(22222,5014,7,2,0,'87.218.146.117',1164102795,1,0,1,1,1,1,'','','Pedro,\n\nHay un nuevo build de FWPPC disponible que administra mucho mejor la memoria del sistema. Es recomedable actualizarse a este nuevo build, ya que el anterior puede dar problemas después de un cierto tiempo de uso.','',0,'AIA=','2kqd7anf',1,0,'',2,0,0),(22223,5015,7,2,0,'87.218.146.117',1164103061,1,0,1,1,1,1,'','','Pedro,\n\nUsa la función AnsiToWide() para pasar de ansi a unicode:\n\nDesde PRG:\nPRT_PRINTBITMAP( AnsiToWide( \"../Windows/b.bmp\" ) )\n\nSi la función en C PRT_PrintBitmap() espera el nombre de un fichero en disco, no puedes darle el nombre de recurso de un bitmap.\n\nPregúntale al fabricante si puede proporcionarte una función para imprimir un bitmap desde recursos.\n\nDesde FWPPC se podría hacer pero requiere pasar de un recurso a un fichero temporal, y es un tanto complicado.','',0,'AIA=','2g262plp',1,0,'',2,0,0),(22224,5014,7,106,0,'85.34.123.173',1164103355,1,0,1,1,1,1,'','','Ok, voy a compilar con la ultima version que tengo en mi poder, que es la del 30 de Octubre a ver si se resuelve este problema.','',0,'AIA=','1navc9e2',1,0,'',106,0,0),(22225,5013,7,533,0,'80.32.177.143',1164104032,1,0,1,1,1,0,'','','Antonio:\n\n   Perdona mi ignorancia pero no acabo de entender lo que me explicas de que [b:17s7y8po]construya el rc y lo compile a res [/b:17s7y8po]e incluso la segunda opcion tampoco de que [b:17s7y8po]puedo usar el fichero bat para construir siempre el res a partir del rc[/b:17s7y8po]. Yo lo que hago (y si puedes orientarme mejor, aceptaré tus consejos) es que tengo un fichero .res que modifico con el Microsoft Visual C++ y ya ese es el que linko con mi aplicación. \n\n   Si eres tan amable de indicarme algún pequeño ejemplo que pueda construir o haya algo en samples.\n\n   P.D.: En relación a la segunda pregunta de [b:17s7y8po]¿cómo hacer referencias a las imagenes que haga referencia en este fichero .rc?[/b:17s7y8po], te comento, cuando yo en el programa quiero hacer referencia a un dialogo, lo hago haciendo referencia al identificador del fichero .res, es decir, resource &lt;identificador&gt;, y mi pregunta correcta sería, en el caso de las imagenes del fichero .rc que me has comentado que cree, el identificar que sería, ¿el &lt;nombre&gt; que me has indicado?\n\n   Como te comenté por telefono, antes de adquirir FW 2.8, ahora creo que es el momento de quitar ciertos vícios que teníamos en el departamento a la hora de programa, y por eso, cualquier cambio que me pudieras proponer será corregído. Si hay algo en lo que no me haya explicado correctamente, y no te importa, puedo llamarte en el momento que me digas.','',0,'QA==','17s7y8po',1,0,'',533,0,0),(22226,5013,7,2,0,'87.218.146.117',1164106601,1,0,1,1,1,1,'','','Mike,\n\nMejor me llamas y te lo explico por teléfono,','',0,'QA==','1ps6bhud',1,0,'',2,0,0),(22227,4983,4,89,0,'213.21.136.60',1164106624,1,0,1,1,1,0,'','','Thank Antonio\nNow I have this error \n\nRCH.prg(317) : error C2556: \'int __cdecl RCHOpen(void)\' : overloaded function di\nffers only by return type from \'long __cdecl RCHOpen(void)\'\n        RCH.prg(309) : see declaration of \'RCHOpen\'\nRCH.prg(317) : error C2371: \'RCHOpen\' : redefinition; different basic types\n        RCH.prg(309) : see declaration of \'RCHOpen\'\nRCH.prg(324) : error C2556: \'int __cdecl RCHOpen(void)\' : overloaded function di\nffers only by return type from \'long __cdecl RCHOpen(void)\'\n        RCH.prg(309) : see declaration of \'RCHOpen\'\nNMAKE : fatal error U1077: \'c:\\vce\\bin\\clarm\' : return code \'0x2\'\n---------------------------------------------------------------------------\nThis is the source\n\n#pragma BEGINDUMP\n#include &lt;Windows.h&gt;\n#include &lt;hbapi.h&gt;\nextern \"C\" {\nLONG RCHSendData( LPSTR, LPSTR );\nLONG RCHOpen( void );\nLONG RCHClose( void );\n}\nHB_FUNC(RCHSENDDATA)\n{\n   hb_retnl(RCHSendData(hb_parc(1),hb_parc(2)));\n}\n\nint RCHOpen( void );\n\nHB_FUNC( RCHOpen )\n{\n   hb_retnl( RCHOpen() );\n}\n\nint RCHOpen( void );\nHB_FUNC( RCHOClose )\n{\n   hb_retnl( RCHOpen() );\n}\n#pragma ENDDUMP','',0,'QA==','2hltfmh1',1,0,'',89,0,0),(22228,4983,4,2,0,'87.218.146.117',1164106912,1,0,1,1,1,1,'','','Maurizio,\n\nRemove these lines from your code:\n[code:fz874wma]\n// int RCHOpen&#40; void &#41;;  this!\n\nHB_FUNC&#40; RCHOpen &#41; \n&#123; \nhb_retnl&#40; RCHOpen&#40;&#41; &#41;; \n&#125; \n\n// int RCHOpen&#40; void &#41;; this!\n\nHB_FUNC&#40; RCHOClose &#41; \n&#123; \nhb_retnl&#40; RCHOpen&#40;&#41; &#41;; \n&#125; \n[/code:fz874wma]','',0,'AIA=','fz874wma',1,0,'',2,0,0),(22229,4936,3,267,0,'200.208.238.2',1164106924,1,0,1,1,1,1,'','','Thanks, Peter.','',0,'AIA=','u9k0562h',1,0,'',267,0,0),(22230,4983,4,2,0,'87.218.146.117',1164107021,1,0,1,1,1,1,'','','BTW,\n\nThis is wrong:\n\nHB_FUNC( RCHOClose ) \n{ \nhb_retnl( RCHOpen() ); \n} \n\nit should be\n\nHB_FUNC( RCHClose ) \n{ \nhb_retnl( RCHClose() ); \n}','',0,'AIA=','2iweplb7',1,0,'',2,0,0),(22231,4983,4,2,0,'87.218.146.117',1164107132,1,0,1,1,1,1,'','','Finally, please use uppercase for names HB_FUNC ( ...Uppercase!... )\n\ni.e.:\n\nHB_FUNC( RCHCLOSE )','',0,'AIA=','2vfcelzs',1,0,'',2,0,0),(22232,5001,6,176,0,'201.255.173.60',1164107191,1,0,1,1,1,0,'','fwh25','Antonio, recién empezé a pasarlo, y me da esa falla en ese diálogo y en otros tantos siempre con la misma descripción del error, la pantalla principal y el browse desde el cual llamo a las rutinas, funcionan bien sólo  no me muestran los botones con los bitmaps, pero eso de momento no me preocupa ya le encontraré la solución. Me falla cada vez que pruebo esta rutina y las de proveedores, productos, vendedores, etc. Que no son iguales a esta pero muy parecidas. Estaba pensando en generar el rc nuevamente, ya que este que utilizço es el mismo que en 16bits, solo que en aquel lo uso como dll y lo pasè a rc, quizàs sea ese el problema? \n\nMe da bronca estar trabado aquí, ya que el programa es bastante extenso.\n\nGracias por tu atención','',0,'AIA=','333o10wd',1,0,'',176,0,0),(22233,5001,6,2,0,'87.218.146.117',1164107317,1,0,1,1,1,1,'','','Luis,\n\nFijate bien que el ID que vayas a redefinir esté en diálogo que usas, y que no te confundas de diálogo. No debe fallar.','',0,'AIA=','335z51jz',1,0,'',2,0,0),(22234,5019,3,6,0,'87.16.213.44',1164107565,1,0,1,1,1,1,'','TWBrowse flickering on dialog','This is the sample (try to resize the dialog):\n\n[code:2yklaper]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg\n\n    oDlg&#58;nStyle = NOR&#40; oDlg&#58;nStyle, WS_THICKFRAME &#41;\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:2yklaper]\n\nHow can I get rid of the flickering?\n\nEMG','',0,'AIA=','2yklaper',1,0,'',6,0,0),(22235,5020,3,308,0,'84.148.33.217',1164108676,1,0,1,1,1,0,'','delivered directly a HTML-code at the Shell.explorer ?','Hello\n\nIs it possible, to delivered directly a HTML-code at the Shell.explorer ?\n\n[code:sw4e64u3]\n         oActiveX = TActiveX&#40;&#41;&#58;New&#40; oDlg, &quot;Shell&#46;Explorer&quot; &#41;\n         oActiveX&#58;SetProp&#40; &quot;ToolBar&quot;, &#46;T&#46; &#41;\n         oActiveX&#58;SetProp&#40; &quot;StatusBar&quot;, &#46;T&#46; &#41;\n         oActiveX&#58;SetProp&#40; &quot;MenuBar&quot;, &#46;T&#46; &#41;\n         oActiveX&#58;SetProp&#40; &quot;Visible&quot;, &#46;T&#46; &#41;\n         cHtmlCode &#58;= \'&lt;a href=&quot;http&#58;//www&#46;wetter&#46;com/home/extern/ex_search&#46;php?ms=1&amp;ss=1&amp;sss=2&amp;search=90562&quot; target=&quot;_blank&quot;&gt;&lt;img src=&quot;http&#58;//www&#46;wetter&#46;com/home/woys/woys&#46;php?,F,1,DEPLZ,90562&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/a&gt;\'\n ?????????\n         oDlg&#58;oClient = oActiveX\n[/code:sw4e64u3]\nBest Regards, Norbert','',0,'AIA=','sw4e64u3',1,0,'',308,0,0),(22236,5019,3,2,0,'87.218.146.117',1164109271,1,0,1,1,1,1,'','','Enrico,\n\ndialogboxes don\'t use buffer painting (Methods DispBegin() and DispEnd()) because it may slowdown the overall performance as there are many controls that get also repainted, thats why you see the flickering.','',0,'AIA=','24eean11',1,0,'',2,0,0),(22237,4945,7,656,0,'83.230.172.214',1164109399,1,0,1,1,1,1,'','','ok, ya no me da errores, pero solo me sale la ventana principal del programa, creo que no estoy definiendo los POPUP, ¿ hay que hacerlo ?, no encuentro como, POR FAVOOOOOOORR\n\nMuchas Gracias','',0,'AIA=','276qjsp3',1,0,'',656,0,0),(22238,4857,7,656,0,'83.230.172.214',1164110250,1,0,1,1,1,1,'','','estoy en las mismas, creo el menu pero no me sale en pantalla, solo sale la pantalla inicial. He escribo este reply para posicionarlo arriba por si alguien nos ayuda.\n\nSalu2\n\nJavier','',0,'AIA=','39sngapj',1,0,'',656,0,0),(22239,5003,7,720,0,'80.59.110.137',1164110801,1,0,1,1,1,0,'','','Hola a todos...\n\nHe encontrado un codigo que se supone hace un ping a una direccion que le pongamos y nos dice si tiene conexion o no...\n\nEl codigo es el siguiente:\n\n\n********************************************************************* PING.PRG\n*                                                                            *\n*                           PING.PRG 01-10-2002                              *\n*                                                                            *\n*                   Hecho por JOSE MARIA GARCIA MARTINEZ                     *\n*                                                                            *\n*                    Lenguaje de programación CLIPPER 5.3                    *\n*                        Librería Windows FIVEWIN 2.3a                       *\n*                   Librería de proposito general FUNCKY-II                  *\n*                      Linkador Windows/DOS BLINKER 5.0                      *\n*                 Herramientas de apoyo BORLAND WORK-SHOP 4.0                *\n*               Compilador de recursos RESOURCE COMPILER MS 7.0              *\n*                                                                            *\n******************************************************************************\n\n********************************************************************* INCLUDES\n#include\"FiveWin.ch\"\n\n*********************************************************************** Main()\nfunction main()\nlocal IcmpHandle,Replicas\nlocal DestinationAddress:=\"direccionip\",;\n      RequestData:=\"Esto es un ping\",;\n      RequestSize:=15,;\n      RequestOptions:=\"\",;\n      ReplyBuffer:=space(278),;\n      ReplySize:=278,;\n      Timeout:=2000 &amp;&amp; Milisegundos de espera\n\nDestinationAddress:=left(alltrim(DestinationAddress)+space(15),15)\nMsgGet(\"Ping...\",\"Introduzca dirección IP\",@DestinationAddress)\n*---\nIcmpHandle:=IcmpCreateFile()\nReplicas:=IcmpSendEcho(IcmpHandle,;\n                       inet_addr(DestinationAddress),;\n                       RequestData,;\n                       RequestSize,0,;\n                       ReplyBuffer,;\n                       ReplySize,;\n                       Timeout)\nmsginfo(Replicas)\nIcmpCloseHandle(IcmpHandle)\n*---\nif Replicas&gt;0\n   msginfo(\"La máquina \"+alltrim(DestinationAddress)+\" EXISTE\")\nelse\n   msginfo(\"La máquina \"+alltrim(DestinationAddress)+\" NO existe\")\nendif\nreturn nil\n\n************************************************** LLAMADAS A DLL\'s DE WINDOWS\nDLL32 FUNCTION inet_addr(cIP AS STRING) AS LONG PASCAL FROM \"inet_addr\" LIB \"wsock32.dll\"\nDLL32 FUNCTION IcmpCreateFile() AS LONG PASCAL FROM \"IcmpCreateFile\" LIB \"icmp.dll\"\nDLL32 FUNCTION IcmpCloseHandle(IcmpHandle AS LONG) AS LONG PASCAL FROM \"IcmpCloseHandle\" LIB \"icmp.dll\"\nDLL32 FUNCTION IcmpSendEcho(IcmpHandle AS LONG,;\n                            DestinationAddress AS LONG,;\n                            RequestData AS STRING,;\n                            RequestSize AS LONG,;\n                            RequestOptions AS LONG,;\n                            ReplyBuffer AS LPSTR,;\n                            ReplySize AS LONG,;\n                            Timeout AS LONG) AS LONG PASCAL FROM \"IcmpSendEcho\" LIB \"icmp.dll\"\nDLL32 FUNCTION WSAGetLastError() AS _INT PASCAL FROM \"WSAGetLastError\" LIB \"wsock32.dll\"\n******************************************************************************\n/*\nCompilar con Clipper 5.3:\n	clipper ping.prg /n/a/v/p\n\nLinkar con Blinker 5.0:\n	blinker fi ping @COMPILA.LNK\n\nCOMPILA.LNK:\n	blinker incremental OFF\n	fi \\bases\\blinker5\\BLXCLP53\n	DEFBEGIN\n	  name        FIVEEXE\n	  description \'FiveWin Windows executable to call a DLL function\'\n	  exetype      Windows 3.1\n	  Stacksize    8500\n	  Heapsize     8500\n	  code         preload moveable discardable\n	  data         preload moveable\n	  segment      \'PLANKTON_TEXT\'  nondiscardable\n	  segment      \'EXTEND_TEXT\'    nondiscardable\n	  segment      \'OM_TEXT\'        nondiscardable\n	  segment      \'OSMEM_TEXT\'     nondiscardable\n	  segment      \'SORTOF_TEXT\'    nondiscardable\n	  segment      \'STACK_TEXT\'     nondiscardable\n	DEFEND\n	lib Five,FiveC,Objects,WinApi\n	lib Clipper,Llibca51\n	lib Fivestub\n	lib Extend,DbfNtx,DbfCdx,Terminal\n*/\n\n\nEl problema es que al ejecutarlo me da error en las dos dll que usa. Entonces mi pregunta es la siguiente hay que registrar las dll esas??. Si es así como lo hago??\n\n\nUn saludo y gracias..\n\nElías Torres','',0,'AIA=','2lbh4avl',1,0,'',720,0,0),(22240,5019,3,6,0,'87.16.213.44',1164111391,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'AIA=','1fw4e532',1,0,'',6,0,0),(22241,4857,7,2,0,'87.218.146.117',1164111805,1,0,1,1,1,1,'','','Juan José, Javier,\n\nLos menus en Pocket PC no están practicamente documentados por Microsoft, y son un poco liosos. Teneis un ejemplo en tutor03.rc y tutor03.prg:\n\n1. No se pueden crear desde código. Siempre hay que definirlos en el fichero de recursos.\n\n2. En el fichero de recursos se usan TRES partes para crearlos:\n\n1a parte:\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n  102, 2,\n  I_IMAGENONE, 202, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 202, 0, 0,  \n  I_IMAGENONE, 203, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 203, 0, 1,  \nEND\n#endif \n\nUsamos ese #ifdef porque los editores de recursos habituales no saben interpretar esos valores. RCDATA significa \"datos adicionales\". Hay que darle el mismo número que tenga el menu (102), y se repite nuevamente después de BEGIN.\n\nA continuación viene el valor 2, que indica cuantos menuitems tiene. A más menuitems, hay que aumentar ese valor.\n\nCada menuitem termina en 0, salvo el último que termina en 1.\n\nEl texto de cada menuitem no se especifica ahí, sino que se indica por un número. En este caso 202 y 203. Esos valores se buscan en una tabla de cadenas que hay que declarar a continuación:\n\n2a parte:\n\nSTRINGTABLE DISCARDABLE \nBEGIN\n   202 \"First\"\n   203 \"Second\"\nEND\n\nPor último viene la definición del menú:\n\n3a parte:\n\n102 MENU DISCARDABLE \nBEGIN\n    POPUP \"\"\n    BEGIN\n        MENUITEM \"it works\", 100\n    END\n\n    POPUP \"\"\n    BEGIN\n        MENUITEM \"Test\", 110\n    END\nEND\n\nFijaros en que usa el valor 102 que es el mismo que usa su RCDATA. Cada menuitem tiene un número (100, 110) que es él identificador del menuitem y que usaremos desde el PRG:\n\n   DEFINE MENU oMenu RESOURCE 102  // Usa el menu 102\n   \n   REDEFINE MENUITEM ID 100 OF oMenu ACTION MsgInfo( \"MenuItem action\" ) WHEN .f. // Define la acción para el menuitem código 100\n\n   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgAlert( \"FWCE power!\" ) // Define la acción para el menuitem código 110\n\nEs un tanto lioso, pero es así como lo ha diseñado Microsoft para Windows Mobile y no tenemos otra forma de hacerlo.','',0,'AIA=','12vco7bq',1,1164181980,'',2,1,0),(22242,4945,7,2,0,'87.218.146.117',1164112031,1,0,1,1,1,1,'','','Te refieres al menú de la aplicación ?\n\nPor favor lee estos mensajes:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4857\">http://fivetechsoft.com/forums/viewtopic.php?t=4857</a><!-- m -->','',0,'AIA=','1zi7pon7',1,0,'',2,0,0),(22243,4936,3,53,0,'189.139.10.23',1164112482,1,0,1,1,1,1,'','','Peterk:\n\nI Think it\'s better upload your sample for all the forum. tnks.\n\nRegards, Armando','',0,'AIA=','2lmkznqs',1,0,'',53,0,0),(22244,5003,7,2,0,'87.218.146.117',1164112533,1,0,1,1,1,1,'','','Elías,\n\nParece que \"icmp.dll\" no está en Windows Mobile pero sí esta \"icmplib.lib\". Habria que probar cambiando el nombre.\n\nIgualmente usar \"ws2.lib\" (ó \"winsock.lib\" ) en vez de \"wsock32.dll\"','',0,'AIA=','14cwtxu7',1,0,'',2,0,0),(22245,4976,1,170,0,'83.179.152.143',1164112630,1,0,1,1,1,1,'','','Rimantas,\n\nYou can download clipper source code for Barcode 39\non the-oasis.net\n\nBest regards,','',0,'AIA=','3jxki6tt',1,0,'',170,0,0),(22246,5003,7,720,0,'80.59.110.137',1164115087,1,0,1,1,1,0,'','','Hola Antonio. \n\nHe cambiado el nombre (entiendo que en la aplicacion) por esos dos, pero me sigue dando el mismo error:\n\n\"Error code: 0 loading icmplib.lib\"\n\"Error code: 0 loading sw2.lib\"\n\n\nSeguiré buscando....\n\n\nSaludos..\n\nElías Torres.','',0,'AIA=','27n2jlub',1,0,'',720,0,0),(22247,5021,3,92,0,'80.33.133.32',1164116536,1,0,1,1,1,0,'','Creación de ficheros XLS en FiveWin.','Hola a todos,\n\nAlguién dispone de alguna clase/función/librería que permita crear ficheros XLS, y que permita colorear celdas, asignar anchura a columnas, asignar tipos de letra y dar formato a la celda?\n\nY si es así, la solución precisa tener instalado Excel en el PC?\n\nY para rizar el rizo, alguién tiene algún ejemplo?\n\nUtilizo FiveWin y Harbour\n\nSaludos y gracias.\nCarlos G.','',0,'AIA=','3jmdeo3n',1,0,'',92,0,0),(22248,5012,1,186,0,'66.130.50.142',1164119518,1,0,1,1,1,1,'','','Hi Antonio,\n\n\nThanks for the clarifications. \n\n\n\nRegards','',0,'AIA=','2p51mi1j',1,0,'',186,0,0),(22249,4904,6,397,0,'201.26.10.80',1164120013,1,0,1,0,1,1,'','','Amiguinho\n\nO problema esta en la posicion de control groupbox in .RC.\n\nDebes colocar-lo en primero via alteracion in modo texto.\n\n[code:1j9w1e3b]\nEMPRESAS DIALOG 34, 98, 272, 197 \nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU \nCAPTION &quot;Tratamiento de Empresas&quot; \nFONT 8, &quot;MS Sans Serif&quot; \n&#123; \nGROUPBOX &quot;Datos Generales&quot;, 48, 6, 9, 258, 111, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP \nGROUPBOX &quot;Datos Bancarios&quot;, 49, 6, 122, 258, 50, BS_GROUPBOX | BS_LEFTTEXT | WS_GROUP \n\nEDITTEXT 101, 58, 20, 25, 12 \nEDITTEXT 108, 210, 18, 42, 12 \n&#46;&#46;&#46;\n[/code:1j9w1e3b]','',0,'AIA=','1j9w1e3b',1,0,'',397,0,0),(22250,4931,1,186,0,'66.130.50.142',1164120174,1,0,1,1,1,1,'','','Hi Barada,\n\n\nYesterday, I was talking to one of my friend that is very familliar with API calls. Unfortenatly he doesnt work with FiveWin but he says that all printers informations are available trought API Calls. \n\nHe says that trying to retreive this information from the register is a difficult task and he strongly suggested to forget the Windows register.\n\nSo, after talking to him, I downloaded API Guide and start investigating. I found out that all available printers under Windows 98, ME, 20, XP etc. is effectively retreivable from a few API Calls.\n\nThe only problem is that API Calls are made though DLL32 Class and I`m not familiar with it yet. I started a new thread on this subject, but have no reply yet.\n\nI will try out some testing and let you know as I move along.\n\nRegards,','',0,'AIA=','3av4rc8t',1,0,'',186,0,0),(22251,5011,6,73,0,'201.165.193.18',1164120554,1,0,1,1,1,0,'','','Armando pudieras mostrar la pantalla con tu reloj digital?\nsalu2\npaco','',0,'AIA=','orxgefnn',1,0,'',73,0,0),(22252,5022,6,73,0,'201.165.193.18',1164120682,1,0,1,1,1,0,'','Ventana sobrepuesta...','Como no he encontrado alguna solucion al problema del bloqueo al sobreponer ventanas, ya genere el dialogo desde cero y con la ayuda de los comentarios de antonio y nada, bueno pues loq ue quiero es para que no se bloquee, como hago para que el dialogo no permita que ninguna ventana de ningun tipo este por encima de ese dialogo?\nsalu2\nPaco','',0,'AIA=','1wjj6zhw',1,0,'',73,0,0),(22253,5006,6,867,0,'148.243.37.162',1164121330,1,0,1,1,1,0,'','Estoy usando Listbox','[quote=&quot;carlosortiz&quot;:23w0shj3][b:23w0shj3]Hola Susy, bienvenida.[/b:23w0shj3]\n\nPasame una cuenta de correo que te mando algo, contame antes que browser estas usando.\n\nsalu2. carlosortiz[/quote:23w0shj3]\n\nHola Carlitos como esta corazon, estoy usando Listbox\nSaludos y te lo agradecere mucho cuidate corazon\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e --> este es mi correo','',0,'wA==','23w0shj3',1,0,'',867,0,0),(22254,5004,6,18,0,'201.116.74.117',1164121361,1,0,1,1,1,1,'','Re: Pagina de Vikthor','[quote=&quot;pablinux&quot;:2ojf99zy]Hola, alguien sabe que le pasa al sitio de Vikthor?, he intentado bajar su clase texcel y no entra en la pagina\n\nSaludos y Gracias[/quote:2ojf99zy]\n\nEl dominio vikthor.com.mx no está funcionando en estos días.\nSean pacientes una semana y esta de nuevo en línea.','',0,'gA==','2ojf99zy',1,0,'',18,0,0),(22255,4975,6,18,0,'201.116.74.117',1164121435,1,0,1,1,1,1,'','Re: Creación de DLL con xHarbour','[quote=&quot;Vikthor&quot;:615fuzor]Hola a todos :\n\nEstoy intentando crear un archivo dll desde un Prg, más sin embargo aunque la creación del archivo dll sí se realiza, cuando hago el llamado a alguna función desde otro PRG, simplemente no se ejecuta......................................[/quote:615fuzor]\n\nAntonio alguna sugerencia ?','',0,'gA==','615fuzor',1,0,'',18,0,0),(22256,5019,3,6,0,'87.16.213.44',1164122221,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ekomgfv]Enrico,\n\ndialogboxes don\'t use buffer painting (Methods DispBegin() and DispEnd()) because it may slowdown the overall performance as there are many controls that get also repainted, thats why you see the flickering.[/quote:1ekomgfv]\n\nCan I activate double buffer painting on a specific dialog? How?\n\nEMG','',0,'gA==','1ekomgfv',1,0,'',6,0,0),(22257,5011,6,53,0,'189.139.10.23',1164122775,1,0,1,1,1,1,'','','Paco:\n\nSigue la línea\n\n<!-- m --><a class=\"postlink\" href=\"http://img150.imageshack.us/my.php?image=clip1ke1.jpg\">http://img150.imageshack.us/my.php?image=clip1ke1.jpg</a><!-- m -->\n\n\nPor cierto, y si usas ALWAYS ON TOP para no permitir sobreponer ninguna ventana a tu diálogo ?\n\n\nSaludos, Armando','',0,'gA==','s37mwc4j',1,0,'',53,0,0),(22258,5020,3,397,0,'201.26.10.80',1164123580,1,0,1,0,1,1,'','','Amiguinho\n\nÉ possivel sim:\n\n[code:nmrqtcx7]\ncURLHtml &#58;= &#91;http&#58;//www&#46;wetter&#46;com/home/extern/ex_search&#46;php?ms=1&amp;ss=1&amp;sss=2&amp;search=90562&quot; target=&quot;_blank&quot;&gt;&lt;img src=&quot;http&#58;//www&#46;wetter&#46;com/home/woys/woys&#46;php?,F,1,DEPLZ,90562&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/a&gt;&#93;\nDEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; \n           oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&#46;2&quot; &#41;\n           oWnd&#58;oClient = oActiveX\n           oActiveX&#58;Do&#40;&quot;Navigate2&quot;,cURLHtml&#41;\n   ACTIVATE WINDOW oWnd\n[/code:nmrqtcx7]','',0,'AIA=','nmrqtcx7',1,0,'',397,0,0),(22259,4490,3,397,0,'201.26.10.80',1164123724,1,0,1,0,1,1,'','','Amiguinho\n\nÉ sim mas é voltado para ambiente ASP em internet e eu adaptei para usa-lo no desktop.\n\nCoisiquinha simples.','',0,'AIA=','1tw3c8cx',1,0,'',397,0,0),(22260,5023,6,694,0,'200.181.156.79',1164124639,1,0,1,1,1,1,'','Abrir documento WORD somente LEITURA com TWORD é POSSIVEL?','Amigos, é possível abrir um documento do WORD somente LEITURA com a TWORD? Ou seja de forma que o usuário não possa alterar o documento.\n\nFiquem com Deus\n\nAokisantos','',0,'AIA=','2l9m746k',1,0,'',694,0,0),(22261,5022,6,54,0,'189.132.104.4',1164126371,1,0,1,1,1,1,'','Re: Ventana sobrepuesta...','[quote=&quot;Francisco Horta&quot;:2ndjgs5w]Como no he encontrado alguna solucion al problema del bloqueo al sobreponer ventanas, ya genere el dialogo desde cero y con la ayuda de los comentarios de antonio y nada, bueno pues loq ue quiero es para que no se bloquee, como hago para que el dialogo no permita que ninguna ventana de ningun tipo este por encima de ese dialogo?\nsalu2\nPaco[/quote:2ndjgs5w]\n\nPaco,\n\n[code:2ndjgs5w]ACTIVATE DIALOG&#46;&#46;&#46;&#46; ON INIT SetWindowPos&#40; oDlg&#58;hWnd, -1,0,0,0,0,3 &#41;[/code:2ndjgs5w]\n\nEspero te sirva','',0,'gIA=','2ndjgs5w',1,0,'',54,0,0),(22262,5004,6,54,0,'189.132.104.4',1164126442,1,0,1,1,1,1,'','Re: Pagina de Vikthor','[quote=&quot;Vikthor&quot;:1ru4huzf][quote=&quot;pablinux&quot;:1ru4huzf]Hola, alguien sabe que le pasa al sitio de Vikthor?, he intentado bajar su clase texcel y no entra en la pagina\n\nSaludos y Gracias[/quote:1ru4huzf]\n\nEl dominio vikthor.com.mx no está funcionando en estos días.\nSean pacientes una semana y esta de nuevo en línea.[/quote:1ru4huzf]\n\nGracias Vik\n\nSaludos','',0,'gA==','1ru4huzf',1,0,'',54,0,0),(22263,5024,20,49,0,'213.82.134.66',1164127519,1,0,1,1,1,1,'','per un traduzione','Cari Italiani,\navevo chiesto a  Timm di tradurre il programma per fare i backup ed improvvisam,ente ho visto che tim ha chiesto la traduzione ad un certo tipo che non ho mai sentito  ne in questa communitry ne in quella di xharbour.org : sono molto dispiaciuto perchè in fondo timm non ci ha chiesto a tutti noi il suo aiuto .\nIo ho cercato mio malgrado di tradurre per esempio Xmate anche se  sono indietro tantissimo anche perchè Andy esce ogni settimana con una versione diversa con altri nuovi vocaboli.\nVoi per caso cono scete Andrea Bruni ?\nIn 20 anni che lavoro nel momdo di clipper e ultimanete xharbour e fivewin non ho mai sentito parlare di lui : davvero questo mi desta molta maraviglia ....questa volta mi devo arrendere!!!!!!!!!!\n\nsaluti.','',0,'gA==','26ydfptr',1,0,'',49,0,0),(22264,4974,20,49,0,'213.82.134.66',1164127678,1,0,1,1,1,1,'','','io ho provato a fare un file ma quando compila non ci mette tutti i documenti e quindi il file ha solo il menu \n\nsecondo te dove ho sbagliato ?\n\nhai fatto qualche prova ?','',0,'gA==','2kryob8l',1,0,'',49,0,0),(22265,5003,7,2,0,'87.218.146.117',1164128809,1,0,1,1,1,1,'','','Elías,\n\nEste código construye bien y funciona y puede servirte para continuar implementando lo que quieres:\n[code:17qupiaq]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; IcmpCreateFile&#40;&#41; &#41;\n   \nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;icmpapi&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; ICMPCREATEFILE &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; IcmpCreateFile&#40;&#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:17qupiaq]\nTienes que enlazar tambien (en buildce.bat ó en tu propio bat/make):\n\necho %vcdir%\\lib\\arm\\icmplib.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\winsock.lib  &gt;&gt; msvc.tmp','',0,'AIA=','17qupiaq',1,1164213392,'',2,1,0),(22266,5020,3,308,0,'84.148.21.38',1164130878,1,0,1,1,1,0,'','','[quote=&quot;Rochinha&quot;:3dssbwl5]Amiguinho\n\nÉ possivel sim:\n\n[code:3dssbwl5]\ncURLHtml &#58;= &#91;http&#58;//www&#46;wetter&#46;com/home/extern/ex_search&#46;php?ms=1&amp;ss=1&amp;sss=2&amp;search=90562&quot; target=&quot;_blank&quot;&gt;&lt;img src=&quot;http&#58;//www&#46;wetter&#46;com/home/woys/woys&#46;php?,F,1,DEPLZ,90562&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/a&gt;&#93;\nDEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; \n           oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&#46;2&quot; &#41;\n           oWnd&#58;oClient = oActiveX\n           oActiveX&#58;Do&#40;&quot;Navigate2&quot;,cURLHtml&#41;\n   ACTIVATE WINDOW oWnd\n[/code:3dssbwl5][/quote:3dssbwl5]\n\nExample 1 does not function\nIExporer Message \"Action interrupted was able to produce Internet Explorer no connection to the requested web page.  Possibly it is temporarily not available.\"\ne )\n\n[code:3dssbwl5]\n        cLink &#58;= &#91;&lt;a href=&quot;http&#58;//www&#46;wetter&#46;com/home/extern/ex_search&#46;php?ms=1&amp;ss=1&amp;sss=2&amp;search=90562&quot; target=&quot;_blank&quot;&gt;&lt;img src=&quot;http&#58;//www&#46;wetter&#46;com/home/woys/woys&#46;php?,F,1,DEPLZ,90562&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/a&gt;&#93;\n        oActiveX = TActiveX&#40;&#41;&#58;New&#40; oDlg, &quot;Shell&#46;Explorer&#46;2&quot; &#41;\n        oDlg&#58;oClient = oActiveX\n        oActiveX&#58;Do&#40;&quot;Navigate2&quot;,cLink&#41;\n[/code:3dssbwl5]\n\nExample 2 works, but I would like to generate not each time a file.\ne )\n\n[code:3dssbwl5]\n        cLink &#58;= &#91;&lt;a href=&quot;http&#58;//www&#46;wetter&#46;com/home/extern/ex_search&#46;php?ms=1&amp;ss=1&amp;sss=2&amp;search=90562&quot; target=&quot;_blank&quot;&gt;&lt;img src=&quot;http&#58;//www&#46;wetter&#46;com/home/woys/woys&#46;php?,F,1,DEPLZ,90562&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/a&gt;&#93;\n        memowrite&#40;&quot;C&#58;\\alpha-VIS\\TEMP\\x&#46;html&quot;,cLink&#41;\n\n        oActiveX = TActiveX&#40;&#41;&#58;New&#40; oDlg, &quot;Shell&#46;Explorer&quot; &#41;\n        oDlg&#58;oClient = oActiveX\n        cLinkFile &#58;= &quot;file&#58;///C&#58;/alpha-vis/temp/x&#46;html&quot;\n        oActiveX&#58;DO&#40; &quot;Navigate&quot;, cLinkFile&#41;\n[/code:3dssbwl5]\n\nany other ideas ?\n\nRegards, Norbert','',0,'gIA=','3dssbwl5',1,0,'',308,0,0),(22267,4931,1,170,0,'83.179.153.52',1164131418,1,0,1,1,1,1,'','','Gilbert,\n\n[quote=&quot;Gilbert&quot;:zjzhmbqp]Hi Barada,\n\nI did more searching, specialy in XP registers, and find out that there is two places were available printers can be found:\n[/quote:zjzhmbqp]\n\nMore than 2 places, but there is some place where :\n\n1 - There is not the information needed\n2 - The datas are not upgraded (or deleted )\n     when i delete the printer driver.\n\n[quote:zjzhmbqp]\n\nFor two shared printers installed on a station running Windows 98:\nHKEY_LOCAL_MACHINE\\system\\CurrentControlSet\\COntrol\\Print\\Printers\n\nand\n\nFor two shared printers installed on a station running Windows 2000:\nHKEY_CURRENT_USER\\Printers\\Connections\n\nSeems that shared printers from 98 technologie are stored elsewhere than for NT technologie. Is it possible for you to confirm my findings ?\n\n[/quote:zjzhmbqp]\nYes, but have you tested my last upgrade off WinGetPrn() and others ?\nThere is more way where this function search.\n[quote:zjzhmbqp]\n\nAlso discovered that under XP it is possible to retreive printers capabilities directly from the registers.\n\nThese capabilities are:\n\nprintBinNames                          Array of paper bins\nprintCollate                              Binary of collate type \nprintDuplexSupport                   Binary of type of duplex\nprintMaxResolutionSupported     Binary of maximum resolution\nprintMediaSupported                  Array of paper sizes\nprintOrientationSupported          Array of orientations\n\nThey can be found under:\n\nFor two shared printers installed on a station running Windows 98:\nHKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Printers\\&lt;PRINTERNAME&gt;\\DsDriver\n\nand\n\nFor two shared printers installed on a station running Windows 2000:\nHKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Print\\Providers\\LanMan Print Services\\Servers\\&lt;SERVERNAME&gt;\\Printers&lt;PRINTERNAME&gt;\\DsDriver\n\nIs it also possible for you to confirm these findings ?\n\n\n[/quote:zjzhmbqp]\nI have upgrade WinGetPrn() to retrieve with the key you give for 2000,\nbut for XP. The key for w98 is not complete for me. It stop to :\n\nHKEY_LOCAL_MACHINE\\Software\\Microsoft\\Windows NT\\CurrentVersion\n\n[quote:zjzhmbqp]\n\n\nIn the later &lt;SERVERNAME&gt; can be anything depending on wich server we are attached to. Is it possible, from the register, to retreive the server to wich a station is attached to ?\n[/quote:zjzhmbqp]\nThis seem the case for the printers servers. I have put it in the upgrade,\nin \"Print system function\" thread.\n[quote:zjzhmbqp]\n\nI also would like Antonio to get invole in this thread. It would be most helpfull.\n\n[/quote:zjzhmbqp]\n\nYes, he can perhaps help to translate binary data\ninto a clipper usable format. Or other, i don\'t know.','',0,'gA==','zjzhmbqp',1,0,'',170,0,0),(22268,5022,6,73,0,'200.66.32.97',1164131537,1,0,1,1,1,0,'','','Gracias, will, funciona ok <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nsalu2\nPaco','',0,'gA==','t8mxtw6y',1,0,'',73,0,0),(22269,5025,6,644,0,'201.252.5.87',1164131755,1,0,1,1,1,0,'','saber el path de una base de datos','Estoy trabajando con varias bases que se repiten pero se encuentran en distintos directorios. Hay alguna manera de saber el path de una base de datos. Set( _SET_PATH ) no me sirve ya que por el trabajo que hace el programa no lo utilizo. Alguien sabe ??. Desde ya muchas gracias','',0,'gA==','3sfsi3tc',1,0,'',644,0,0),(22270,4931,1,170,0,'83.179.153.52',1164132090,1,0,1,1,1,1,'','','[quote=&quot;Gilbert&quot;:38tanadr]Hi Badara,\n\n\nI did more searching and found out that the printer capabilities available under 2000 and XP cannot be found anywhere in Windows 98.\n\nCould you validate this ?\n\n[/quote:38tanadr]\n\nI don\'t know exactly, because there is informations\nin binary datas than i can\'t analyse.\n\nFor sample, i have created there is many months this function\nfor w98, and i have not finished because this line :\n\n  cDevMode := oReg:Get(\"Default DevMode\", \"\")\n\ncan\'t work with binary datas. I forgot this work.\n\n[code:38tanadr]\n******************\nFUNCTION WinDevMode&#40;cNomImpr&#41;\n******************\n* Retourne le contenu DevMode en allant le chercher dans le registre Windows\n* &#40;regedit&#46;exe&#41;\n\n* Inutilisée pour le moment &#40;conversion en données compréhensibles à faire\n* pour le contenu récupéré &#41;\n\nLOCAL cDevMode &#58;= &quot;&quot;\nLOCAL oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE,;\n&quot;System\\CurrentControlSet\\Control\\Print\\Printers&quot; + STRTRAN&#40;cNomImpr, &quot;&quot;, &quot;,&quot;&#41;&#41;\nIF oReg&#58;nError = 0\n  cDevMode &#58;= oReg&#58;Get&#40;&quot;Default DevMode&quot;, &quot;&quot;&#41;\nENDIF\noReg&#58;Close&#40;&#41;\noReg &#58;= NIL\nRETURN cDevMode\n[/code:38tanadr]','',0,'gIA=','38tanadr',1,0,'',170,0,0),(22271,5026,1,186,0,'66.130.50.142',1164136810,1,0,1,1,1,1,'','function dbInfo ()','Hi All,\n\nYes another problem.\n\nIf I want to detect if a database is opened in READONLY mode, the \ndbInfo(DBI_CANCUTREC) function should return .T. or .F.  according to the mode of the database.\n\nYet it always return .F. (READWRITE) even if the database is opened in READONLY.\n\nIs there a workaround to this problem.\n\nRegards,','',0,'gIA=','c1cznmxj',1,0,'',186,0,0),(22272,5025,6,180,0,'83.61.171.223',1164137069,1,0,1,1,1,0,'','Re: saber el path de una base de datos','[quote=&quot;horacio&quot;:a74ya0ef]Estoy trabajando con varias bases que se repiten pero se encuentran en distintos directorios. Hay alguna manera de saber el path de una base de datos. Set( _SET_PATH ) no me sirve ya que por el trabajo que hace el programa no lo utilizo. Alguien sabe ??. Desde ya muchas gracias[/quote:a74ya0ef]\n\nHola Horacio:\n\ncFilePath()(&lt;cNomArch&gt;) --&gt;  &lt;cRuta&gt;\nDevuelve la ruta de un nombre de archivo con ruta, nombre y extension\n\ncFileSubDir( &lt;cNomArch&gt;) --&gt;  &lt;cNomDir&gt;\nDevuelve el nombre del subdirectorio de un nombre con ruta, unidad de disco y nombre de archivo\n\nUn saludo,\nManuel','',0,'gA==','a74ya0ef',1,0,'',180,0,0),(22273,4134,4,267,0,'200.208.238.2',1164137619,1,0,1,1,1,1,'','','Hi Antonio, \n\nYou already have a date to complete this development?','',0,'gA==','1v3i0bal',1,0,'',267,0,0),(22274,4983,4,89,0,'87.5.108.89',1164138135,1,0,1,1,1,0,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->   Wow !!   \nFinally, thanks to your help the link to the LIB works.\n\nMany, many thanks to Antonio and Enrico for your assistance. \n\nThe strange thing is that when I linked the LIB and inserted the code to\ncall the functions in the LIB, the calls to the DLL now works. \nThis might explain the reason why the calls to the DLL did not work before?\n\nMaurizio','',0,'gA==','2bmv64rb',1,0,'',89,0,0),(22275,5023,6,9,0,'85.59.46.255',1164140520,1,0,1,1,1,1,'','','Una manera muy fácil, es marcar el fichero como \"solo lectura\".','',0,'gA==','3uflvgps',1,0,'',9,0,0),(22276,4981,3,289,0,'82.167.47.100',1164141969,1,0,1,1,1,0,'','I have Good News with the images Jpg &amp; Gif &amp; bmp','[color=red:1m9bypwl]Not Did anyone  help me, I am not happy \nI worked myself full draft will be available for Want only.\nDownload test Source From <!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/fwh/Image_jpg_gif.zip\">http://www.livesystem.net/fwh/Image_jpg_gif.zip</a><!-- m --> \nregards, \nHathal. [/color:1m9bypwl]','',0,'Ag==','1m9bypwl',1,0,'',289,0,0),(22277,5027,1,161,0,'81.164.212.146',1164146675,1,0,1,1,1,0,'','FTP problem with INETCONNECT','I\'m using\n\n[code:bvkfxd77]\nhInternet = INETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\nhConnect = INETCONNECT&#40; hInternet, vip, INTERNET_INVALID_PORT_NUMBER, vuser, vpass,INTERNET_SERVICE_FTP, 0, 0 &#41;\n\nret_val = FTPGETFILE&#40; hConnect, vrfilenaam, vlfilenaam, 0,FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n\n\nINETCLOSEHANDLE&#40; hConnect &#41;\n\nINETCLOSEHANDLE&#40; hInternet &#41;\n[/code:bvkfxd77]\n\nIt was working all the time but, a couple of months ag I received problems of customes the have GPF-errors. I also have them.\n\nThe function-call [b:bvkfxd77] INETCONNECT[/b:bvkfxd77] is giving the GPF.\n\nAre there some problems with new XP-updates? I\'am using XP-professional. But also XP-home give this error.\n\nThanks,\nMarc','',0,'QIA=','bvkfxd77',1,0,'',161,0,0),(22278,4983,4,2,0,'87.218.146.117',1164147711,1,0,1,1,1,1,'','','Maurizio,\n\nThe linked functions from the LIB are forcing the DLL to get loaded when the application starts. This is automatically performed by Windows.','',0,'QIA=','2dnhwkio',1,0,'',2,0,0),(22280,5023,6,694,0,'200.181.156.7',1164151175,1,0,1,1,1,1,'','como fazer?','Mais como marcar o arquivo como leitura com FW?\n\nA classe TWORD não faz isso?\n\nFique com Deus\nAokisantos <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'QIA=','3ni3c8yo',1,0,'',694,0,0),(22281,4134,4,2,0,'87.218.146.117',1164151514,1,0,1,1,1,1,'','','Vilian,\n\nIt is almost finished. It may be ready for tomorrow, probably.','',0,'QIA=','1x26b8ki',1,0,'',2,0,0),(22282,5028,6,179,0,'200.24.221.138',1164152830,1,0,1,1,1,1,'','ot: compilar harbour del cvs con bcc55','buenas noches compañeros\nalguna alma caritativa que tenga un archivo .bat\npara hacerlo, yo tengo solo para xharbour y quisiera\nhacer pruebas con Harboursobre todo en modo consola\n\nnecesitaria el .bat con los seteos necesarios\npara el compilador bcc55 en windows\n\nPor su atencion gracias\n\nAtt.','',0,'QIA=','2k6lupfm',1,0,'',179,0,0),(22283,4134,4,2,0,'87.218.146.117',1164156222,1,0,1,1,1,1,'','','Vilian,\n\nFirst tests are working fine: samples\\ftpdir.prg:\n[code:4pkvq9my]\n// Testing the FiveWin Internet Classes\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oInternet &#58;= TInternet&#40;&#41;&#58;New&#40;&#41;\n   local oFTP      &#58;= TFTP&#40;&#41;&#58;New&#40; &quot;ftp&#46;microsoft&#46;com&quot;, oInternet &#41; // Microsoft FTP\n   local aFiles\n\n   if ! Empty&#40; oFTP&#58;hFTP &#41;\n      aFiles = oFTP&#58;Directory&#40; &quot;*&#46;*&quot; &#41;\n      MsgInfo&#40; Len&#40; aFiles &#41; &#41;\n      AEval&#40; aFiles, &#123; | aFile | MsgInfo&#40; aFile&#91; 1 &#93; &#41; &#125; &#41;\n   else\n      MsgAlert&#40; &quot;oFTP&#58;hFTP is null&quot; &#41;\n   endif\n\n   oInternet&#58;End&#40;&#41;\n\n   MsgInfo&#40; &quot;Done!&quot; &#41;\n\nreturn nil\n[/code:4pkvq9my]\n[url=http&#58;//imageshack&#46;us:4pkvq9my][img:4pkvq9my]http&#58;//img150&#46;imageshack&#46;us/img150/1328/pocketzd9&#46;png[/img:4pkvq9my][/url:4pkvq9my]\n\nFrom XP:\n[url=http&#58;//imageshack&#46;us:4pkvq9my][img:4pkvq9my]http&#58;//img244&#46;imageshack&#46;us/img244/6328/xpuy7&#46;png[/img:4pkvq9my][/url:4pkvq9my]','',0,'GIA=','4pkvq9my',1,0,'',2,0,0),(22284,4981,3,110,0,'165.98.169.198',1164156445,1,0,1,1,1,1,'','','<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> time to time. \n\ni look the code.\n\nsorry for the bad english.\n\nsalu2\ncarlos vargas','',0,'GIA=','3ocn7i6a',1,0,'',110,0,0),(22285,5028,6,2,0,'87.218.146.117',1164156620,1,0,1,1,1,1,'','','Wilson,\n\nUna vez descargues Harbour del CVS, ejecuta make_b32.bat que está en el directorio raiz y te construirá Harbour con sus librerías.\n\nUna vez lo tengas, puedo enviarte un build.bat sencillo para que construyas en modo consola, ya que el que proporciona Harbour es muy complicado.','',0,'GIA=','26c0pfaa',1,0,'',2,0,0),(22286,5020,3,397,0,'201.26.10.80',1164158541,1,0,1,0,1,1,'','','Amiguinho\n\nLook this\n\nThis works fine\n\n[code:1uxct4zk]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main\ncURLHtml &#58;= &#91;http&#58;//www&#46;wetter&#46;com/home/extern/ex_search&#46;php?ms=1&amp;ss=1&amp;sss=2&amp;search=90562&#93;\n//&quot; target=&quot;_blank&quot;&gt;&lt;img src=&quot;http&#58;//www&#46;wetter&#46;com/home/woys/woys&#46;php?,F,1,DEPLZ,90562&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/a&gt;&#93; \nDEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; \n       oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&#46;2&quot; &#41; \n       oWnd&#58;oClient = oActiveX \n       oActiveX&#58;Do&#40;&quot;Navigate2&quot;,cURLHtml&#41; \nACTIVATE WINDOW oWnd\n[/code:1uxct4zk]','',0,'AIA=','1uxct4zk',1,0,'',397,0,0),(22287,5029,3,35,0,'65.188.6.143',1164159101,1,0,1,1,1,0,'','Pelles C resource editor','To All\n\nJust received my RTM Vista Business version and quickly found that Borland\'s Resource Editor will NOT run... \n\nI have downloaded SI Componants resource editor .. and Pelles C IDE. I am not too thrilled with either .. \n\nOne of the most anoying problems with Pelles C IDE is when you create a form (.rc ) the editor places header include files in the .rc\n\n// RESOURCE SCRIPT generated by \"Pelles C for Windows, version 4.50\".\n\n#include &lt;windows.h&gt;\n#include &lt;commctrl.h&gt;\n#include &lt;richedit.h&gt;\n\nLANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US\n\nCOMPANY DIALOG DISCARDABLE 34, 26, 329, 305\nSTYLE WS_POPUP|DS_SYSMODAL|DS_3DLOOK|WS_CAPTION\nFONT 8, \"Arial\"\n\n\nMy question .. is there a way to configure the Pelles C IDE to \'turn off\' the insertion of the #include lines ??\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','3s5adjj4',1,0,'',35,0,0),(22288,5029,3,35,0,'65.188.6.143',1164161431,1,0,1,1,1,0,'','','To All\n\nFound out a way to run Borland Workshop in Vista RTM .. you can NOT open Workshop with File and drill to your form .. Workshop will \'barf\' .. but you can click on the .rc file and tell it to open with Resource workshop and it let Workshop open and Edit your resource file .. \n\nStill not a good solution .. you can not create a new form .. have to right click and \'open with\' Workshop to use this \'hack\' ..\n\nStill, I would like to find a better solution !\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','3q762k4t',1,0,'',35,0,0),(22289,4981,3,49,0,'62.13.172.78',1164162101,1,0,1,1,1,1,'','','yes I can help you but you must send me the source code of the class .....','',0,'AIA=','1gscvmw9',1,0,'',49,0,0),(22290,5030,3,239,0,'219.137.198.239',1164165407,1,0,1,1,1,0,'','Could [x]harbour+fwh support Unicode ?','Hi,\n  A case must support sevaral languages , some input datas from  unicode  files ,Could [x]harbour+fwh  support Unicode ?\n\nThanks !\n\nShuming Wang','',0,'','x3498550',1,0,'',239,0,0),(22291,4981,3,289,0,'82.167.47.100',1164165939,1,0,1,1,1,0,'','','I am sorry for the bad english.\nI am Not English.\nI am from the third world.\nBut I thank  all reply to me.\n <!-- s:arrow: --><img src=\"{SMILIES_PATH}/icon_arrow.gif\" alt=\":arrow:\" title=\"Arrow\" /><!-- s:arrow: --> carlos vargas .\nIf it wants to write in any language see following link : \n<!-- m --><a class=\"postlink\" href=\"http://translate.google.com/translate_t\">http://translate.google.com/translate_t</a><!-- m -->\nBest Regards,\nhathal','',0,'','r3pw0z7l',1,1164209170,'',289,1,0),(22292,5009,6,138,0,'189.141.16.56',1164171023,1,0,1,1,1,1,'','','El RDD de Apollo no soporta la parte cliente servidor, solo la parte de creacion de indices y manipulacion de datos.\n\nEl Apollo Database manager solo puede utilizarse via SQL, no se puede utilizar como RDD de (x)Harbor.','',0,'','1dliyb1w',1,0,'',138,0,0),(22293,5023,6,9,0,'85.59.46.255',1164173185,1,0,1,1,1,1,'','Re: como fazer?','[quote=&quot;AOKISANTOS&quot;:2noay39t]Mais como marcar o arquivo como leitura com FW?([/quote:2noay39t]\n\nNo se hace desde FW sino desde Windows.\n\nMiPC + c: + directorio  en el fichero pincha botón derecho y en propiedades del arquivo marcar como \"solo lectura\".','',0,'gA==','2noay39t',1,0,'',9,0,0),(22294,4936,3,678,0,'168.209.98.43',1164178386,1,0,1,1,1,1,'','','Hi All\n\nThe sample I have used is from Tim Stone. He said in a previous post that anybody wanting it shoud feel free to contact him via email to get it.\n\nTim\'s email is <!-- e --><a href=\"mailto:TimStone@MasterLinkSoftware.com\">TimStone@MasterLinkSoftware.com</a><!-- e -->\n\nThanks\nPeter','',0,'gA==','kkjkkami',1,0,'',678,0,0),(22295,4974,20,837,0,'213.140.21.233',1164181045,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:2kq0vwi6]io ho provato a fare un file ma quando compila non ci mette tutti i documenti e quindi il file ha solo il menu \n\nsecondo te dove ho sbagliato ?\n\nhai fatto qualche prova ?[/quote:2kq0vwi6]\n\nA quale menù ti riferisci ?\n\nGià con i parametri che ti indica quando fai un nuovo progetto ti inserisce 3 capitoli con 1 Topic x ogni articolo.\n\nNella finestra di dx puoi inserire il testo da visualizzare nel topic.\n\nCiao, Andrea.','',0,'gA==','2kq0vwi6',1,0,'',837,0,0),(22296,4857,7,600,0,'195.66.150.53',1164181071,1,0,1,1,1,0,'','Creacon de Menus','Gracias Antonio, ya habia empezado a utilizr botones.\n\nUn saludo\nJuan José','',0,'gA==','1cyv0zjm',1,0,'',600,0,0),(22297,4761,20,837,0,'213.140.21.233',1164181329,1,0,1,1,1,1,'','Re: Compilazione Librerie','[quote=&quot;EnricoMaria&quot;:2ezhyamm]Benissimo!\n\nEMG[/quote:2ezhyamm]\nAllora da quello che ho capito, rivedendo i file di compilazione/link sembra che se non indichi l\'unità disco nel file ListLibs.rsp non viene caricato il .RES.\n\nStò ancora indagando, ma la cosa mi sembra alquanto strana.\n\nAndrea.','',0,'gA==','2ezhyamm',1,0,'',837,0,0),(22298,5031,3,529,0,'200.159.199.26',1164181492,1,0,1,1,1,0,'','adsmgt for ads server 7,1','hi, where i find the utility adsmgt for ads server 7.1 , in version 5.7 this exist.... thanks','',0,'gA==','2vgva032',1,0,'',529,0,0),(22299,4761,20,6,0,'87.18.239.49',1164181612,1,0,1,1,1,1,'','Re: Compilazione Librerie','Io normalmente nell\'RSP metto solo i nomi delle librerie senza percorso e mi funziona tutto bene. Quindi il problema dev\'essere da qualche altra parte.\n\nEMG','',0,'gA==','73gz48ik',1,0,'',6,0,0),(22300,5030,3,2,0,'87.218.146.117',1164182130,1,0,1,1,1,1,'','','Shuming,\n\nYes. FWPPC uses unicode. FWH provides AnsiToWide() and WideToAnsi() so you can convert from ansi to unicode and viceversa.','',0,'gA==','9wp87wrl',1,0,'',2,0,0),(22301,5029,3,2,0,'87.218.146.117',1164182265,1,0,1,1,1,1,'','','Rick,\n\nYou may use PellesC with your RES file, not with your RC file.','',0,'gA==','1vz6dzbq',1,0,'',2,0,0),(22302,4975,6,2,0,'87.218.146.117',1164182466,1,0,1,1,1,1,'','','Vikthor,\n\nCómo estas llamando a las funciones de la DLL ?','',0,'gA==','200tmjsj',1,0,'',2,0,0),(22303,5008,6,2,0,'87.218.146.117',1164182596,1,0,1,1,1,1,'','','Rafael,\n\nUsando el Borland Resources Workshop (por ejemplo), crea un cursor y \"pégale\" encima la imagen del bitmap.\n\nLuego revisa samples\\TestCurs.prg','',0,'gA==','1mha90dp',1,0,'',2,0,0),(22304,5008,6,63,0,'84.77.241.10',1164183098,1,0,1,1,1,0,'','','Antonio:\nGracias, pero mi problema es algo diferente:  Estoy cortando un trozo de un bitmap en pantalla y me gustaría pegarlo sobre otra imagen también en pantalla.  Ahora lo hago ya mediante el cursor normal (flecha) apuntando a donde quiero pegarlo; me gustaría saber si sería posible convertir momentáneamente la flecha en el trozo recortado para arrastrarlo a su posición final.\n\nEs sólo un capricho de estética pero supongo que podría quedar bonito...\n\nRafael','',0,'gA==','3l3yuqj1',1,0,'',63,0,0),(22305,5032,6,838,0,'80.34.222.112',1164183862,1,0,1,1,1,0,'','Error al compilar Twbrowse','Hola amigos\n\nQuiero utilizar la clase twbrowse de hernan, y al compilarla con verce, me da el siguiente error\n*********************\nC:\\TWBROWSE\\SOURCE\\CLASSES\\WBROWSE.PRG(733) Warning W0001  Ambiguous reference: \'NELEMENTS\'\nC:\\TWBROWSE\\SOURCE\\CLASSES\\WBROWSE.PRG(735) Warning W0001  Ambiguous reference: \'NELEMENTS\'\nC:\\TWBROWSE\\SOURCE\\CLASSES\\WBROWSE.PRG(736) Warning W0001  Ambiguous reference: \'N\'\n*******************\nY es que efectivamente no están declaradas estas varibales en el prg.\nQue valor hay que poner?\n\nPor otra parte, si utilizo una libreria ya compilada, que me he descargado de éste foro, al crear el browse (   @ 0.5, 0.5 COLUMN BROWSE oBrw  OF oDlg), me da el siguiente error.\n\n***************************\nApplication\n===========\n   Path and name: C:\\fuentes\\harbour\\mocwin2006\\gespaq.Exe (32 bits)\n   Size:   812,032 bytes\n   Time from start: 0 hours 0 mins 10 secs \n   Error occurred at: 22/11/06, 09:09:02\n   Error description: Error BASE/3003  Cannot find super class: __CLSINSTSUPER\n\nStack Calls\n===========\n   Called from:  =&gt; __CLSINSTSUPER(0)\n   Called from:  =&gt; HBCLASS:CREATE(214)\n   Called from: .\\source\\classes\\TCBROWSE.PRG =&gt; TCBROWSE(0)\n   Called from: C:\\fuentes\\harbour\\mocwin2006\\PRG\\tipos.prg =&gt; TIPOS(26)\n****************************\nNo se si lo estaré haciendo bien, pero yo para enlazar ésta libreria con mi programa hago lo siguiente:\n- el include de la cabecera de mi prg es el tcbrowse.ch de siempre\n- en Verce-&gt;librerias de terceros, pongo twbrose32. y ya está.\nSi no es así, a ver si alguien me indica el método tanto para crear las librerías, como para utilizarlas en mis programas sin que den conflictos con las ya implementadas por el sistema.\n\nSaludos\n\nJose Luis','',0,'gA==','3unweahz',1,0,'',838,0,0),(22306,4974,20,49,0,'213.82.134.66',1164185245,1,0,1,1,1,1,'','','Niente come non detto \nEra settato la modalità HTML e non WinHelp','',0,'gA==','2mahwvj2',1,0,'',49,0,0),(22307,4981,3,49,0,'213.82.134.66',1164185623,1,0,1,1,1,1,'','','&#1610;&#1585;&#1587;&#1604; &#1604;&#1610; &#1588;&#1601;&#1585;&#1607; &#1575;&#1604;&#1605;&#1589;&#1583;&#1585; &#1573;&#1584;&#1575; &#1575;&#1585;&#1583;&#1578;&#1605; &#1575;&#1604;&#1605;&#1587;&#1575;&#1593;&#1583;&#1577;\n\n\nEnglish\nSend me the source code If you want Help \n\nEspana\nEnviarme el código de fuente si deseas ayuda\n\nPortogallo\nEmitir-me o código de fonte se você quiser a ajuda\n\nGermany\nMir das Quellenprogramm schicken, wenn du Hilfe wünschst','',0,'gA==','k1yc87c1',1,0,'',49,0,0),(22308,4959,6,49,0,'213.82.134.66',1164185827,1,0,1,1,1,1,'','','if you found the solution can you send me also to my private email .\n\nthanks','',0,'gA==','zbyhwmgm',1,0,'',49,0,0),(22309,5033,3,678,0,'168.209.98.43',1164187036,1,0,1,1,1,1,'','Valid DBF field names','Can anyone advise the official list of what chrs are allowed in field names. I can\'t find any documentation on this.\n\nSo far I have:\nA to Z\n0 to 9\n_ (underscore)\n- (hash)\n\nAny others ?\n\nThanks\nPeter','',0,'gA==','7fjdy13m',1,0,'',678,0,0),(22310,5029,3,130,0,'141.51.32.24',1164187501,1,0,1,1,1,0,'','','Rick,\n\nI use PellesC without problems, also with rc-files. You have just to add an includepath in the brc-command:\n\n%C_BIN_INSTALL%\\Brc32.Exe -r  -iD:\\PellesC\\include;D:\\PellesC\\include\\win  -fo%RES%  %RC%\n\nThe includes are needed to resolve the #defines PellesC uses.\n\nFinally there are two issues to solve, PellesC uses DIALOGEX instead of DIALOG and MANIFEST instead of 24. You can solve this by using another includefile (&lt;name_of_the_resourcefile&gt;.h) in your projectdir with this content:\n\n// INCLUDE FILE generated by \"Pelles C für Windows, Version 4.00\".\n#define MANIFEST 24\n#define DIALOGEX DIALOG\n\n \nStefan','',0,'gA==','zbwirc39',1,0,'',130,0,0),(22311,4857,7,656,0,'83.230.172.214',1164189549,1,0,1,1,1,1,'','','Muchas gracias Antonio, estoy en ello\n\nSalu2\nJavier','',0,'gA==','1q5bpa1k',1,0,'',656,0,0),(22312,5034,7,720,0,'80.59.110.137',1164189634,1,0,1,1,1,0,'','Manejo de ficheros *.ini','Hola a todos..\n\nAlguien podría indicarme donde puedo conseguir un ejemplo o una explicacion de como usar ficheros *.ini para mi aplicacion??\n\nHe estado leyendo y lo primero que hay que hacer es abrir dicho fichero mediante un comando que no se cual es...\n\n\nSaludos..\n\nElías Torres.','',0,'gA==','6or4qrhj',1,0,'',720,0,0),(22313,5033,3,2,0,'87.218.146.117',1164191921,1,0,1,1,1,1,'','','Peter,\n\nThose are the valid ones. And they can not start with a number.','',0,'gA==','3twe0xvi',1,0,'',2,0,0),(22314,1744,1,838,0,'80.34.222.112',1164192880,1,0,1,1,1,0,'','','Yo estoy tambíen detrás de ello.\n\nUn conocido utiliza combit list&amp;label, pero en una aplicación que tiene en Visual Basic.\nSegún los fabricantes, las librerias son accesibles desde Fivewin, pero yo me he leido y releido las instrucciones (vamos me las han tenido que leer y releer ya que están en ingles), y no consigo aclararme en nada para su utilización.\n\nA ver si alaguien sabe alguna forma de poder enlazar con fivewin éste código de barras, o cualquier otro de 2 dimensiones, matrix etc., ya que con los códigos convencionales no puedo grabar una información que conste de nombre, domicilio, etc.. así hasta mil y pico caracteres.\n\nUn saludo\n\nJose Luis','',0,'gA==','3n71vlmm',1,0,'',838,0,0),(22315,5008,6,2,0,'87.218.146.117',1164193935,1,0,1,1,1,1,'','','Rafael,\n\nRevisa los fuentes de source\\classes\\xbrowse.prg, cuando se arrastra una cabecera de una columna con el ratón.','',0,'gA==','apzsrne0',1,0,'',2,0,0),(22316,4959,6,2,0,'87.218.146.117',1164193989,1,0,1,1,1,1,'','','Luis,\n\nUsa un timer.','',0,'gA==','1f1pjo09',1,0,'',2,0,0),(22317,4761,20,444,0,'80.183.235.162',1164194899,1,0,1,1,1,0,'','','Boun Giorno!\n\nEnrico i batch che usa Andrea sono quelli che usiamo io e  Mario,\na me non danno nessun problema!\n\nDino','',0,'gA==','ehogv960',1,0,'',444,0,0),(22318,5034,7,720,0,'80.59.110.137',1164195958,1,0,1,1,1,0,'','','He encontrado la forma de hacerlo...\n\nINI oIni FILE CURDIR() + \"\\inventario.ini\"  &amp;&amp;abre el fichero .ini\nGET oruta SECTION \"CONEXION\" ENTRY \"ruta\" default \"\" OF oIni  &amp;&amp;guarda en oruta lo que quiero obtener\n\n\nPero al compilar me da un error en la clase tIni. Supongo que habrá que incluir alguna cabecera pero no se cual. Alguien puede decirme donde se encuentra la clase tIni???\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'gA==','3boful0v',1,0,'',720,0,0),(22319,5008,6,28,0,'213.27.201.254',1164197026,1,0,1,1,1,0,'','','Hola Rafael\n\nCreo que lo que quieres hacer has de enfocarlo por medio de un Imagelist.\n\nExisten unas macros que hacen el proceso:\n\nBOOL ImageList_BeginDrag(  HIMAGELIST himlTrack,\n    int iTrack,\n    int dxHotspot,\n    int dyHotspot\n);\n\nBOOL ImageList_DragMove(          int x,\n    int y\n);\n\nVOID ImageList_EndDrag(VOID);\n\nYo creo que si buscas en Google seguro que encuentras lo que te digo.\n\nUn saludo\n\nPaco\n\n[code:15ckje8s]\n// Operaciones DRAG\nHB_FUNC&#40; IMAGELIST_BEGINDRAG &#41;\n&#123;\n     hb_retl&#40; ImageList_BeginDrag&#40; &#40; HIMAGELIST &#41; hb_parnl&#40;1&#41;,\n                  hb_parni&#40;2&#41;,\n                  hb_parni&#40;3&#41;,\n                  hb_parni&#40;4&#41;&#41;&#41;;\n&#125;\n\nHB_FUNC&#40; IMAGELIST_DRAGENTER &#41;\n&#123;\n     hb_retl&#40; ImageList_DragEnter&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, hb_parni&#40;3&#41;, hb_parni&#40;2&#41;&#41;&#41;;\n&#125;\n\nHB_FUNC&#40; IMAGELIST_DRAGLEAVE &#41;\n&#123;\n     hb_retl&#40; ImageList_DragLeave&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; IMAGELIST_DRAGMOVE &#41;\n&#123;\n     hb_retl&#40; ImageList_DragMove&#40;  hb_parni&#40;2&#41;, hb_parni&#40;1&#41;&#41;&#41;;\n&#125;\n[/code:15ckje8s]','',0,'AIA=','15ckje8s',1,0,'',28,0,0),(22320,5002,3,869,0,'201.43.60.1',1164197423,1,0,1,1,1,1,'','','Armando,\n\nI am using a piece of \\FWH\\Samples\\TestTcBr.prg as example. I just changed:\n\nADD COLUMN TO BROWSE oBrw ;\nDATA FieldWBlock(\"BAKIYE\", Select(\"Stok\")) ;\nHEADER \"Bakiye\" ;\nPICTURE \"###,###.##\" ;\nEDITABLE ;\nWIDTH 70 PIXELS ;\n[b:oluguuh4]VALID {|o| MyFunction( o:varGet() ) }[/b:oluguuh4]\n\nMy code is:\n\n#include \"fivewin.ch\"\n#include \"TCBrowse.ch\"\n\n// always put TCBrowse.ch AFTER filewin.ch\n\nStatic MainWnd\n\nFunction Main()\n         Local hBWCC\n\n         Set Date Format \"dd/mm/yyyy\"\n\n         SET _3DLOOK ON\n\n         hBWCC  := LoadLibrary( \"BWCC32.DLL\" )\n         SET RESOURCES TO \"TCBR32.DLL\"               // Our stored screens\n         BWCCRegister( GetResources() )\n\n         DEFINE WINDOW MainWnd FROM 1, 1 TO 22, 75 ;\n                TITLE \"Test SAMPLE TESTCBR.PRG 08/11/2006\" ;\n                MENU BuildMenu()\n\n         SET MESSAGE OF MainWnd TO \"Great idea by Salim Anter\" CENTERED\n\n         USE Stok\n         IF ! ( File(\"StokName.NTX\") .and. File(\"MaliYet.NTX\") )\n           INDEX ON Stok-&gt;MaliYet  TO MaliYet\n           INDEX ON Stok-&gt;StokName TO StokName\n         ELSE\n           SET INDEX TO StokName, MaliYet\n         ENDIF\n\n         ACTIVATE WINDOW MainWnd MAXIMIZED\n\n         SET RESOURCES TO\n\nReturn( NIL )\n\nFunction BuildMenu\n         local oMenu\n\n         MENU oMenu\n              MENUITEM OemToAnsi( \"&amp;Create\" ) ;\n                       ACTION NewBrowse( )\n         ENDMENU\n\nReturn( oMenu )\n\n#define OBM_CLOSE           32754\n#define OBM_UPARROW         32753\n#define OBM_DNARROW         32752\n#define OBM_CHECKBOXES      32759\n#define OBM_CHECK           32760\n#define OCR_NORMAL          32512\n#define OCR_CROSS           32515\n\nFunction NewBrowse( )\n         Static aX\n         Local oDlg, oBrw, oCol, oFont, oSay\n\n  Local _hOn  := LoadBitMap(0, OBM_CHECK) // Use OEM system resources\n  Local _hOff := Chr(160) // This will be treated as if it were bitmap\n\n         if aX == nil\n\n          aX    := Array(3)\n          aX[1] := LoadBitMap( GetResources(), \"Z_Green_X\")\n          aX[2] := LoadBitMap( GetResources(), \"Z_Red_X\")\n          aX[3] := LoadBitMap( GetResources(), \"Z_Blank\")\n\n         endif\n\n         DEFINE FONT oFont NAME \"System\" SIZE 8, 16 BOLD  // 6, 15\n\n         DEFINE DIALOG oDlg of MainWnd NAME \"Aktivite\"\n\n         REDEFINE BROWSE oBrw  ID 999  OF oDlg ;\n           MESSAGE \"You may open multi-copies, DblCkick to edit, \"+ ;\n           \"1st column frozen\" FONT oFont ;\n           ON RIGHT CLICK MsgInfo( \"RightClick\" ) ;\n           ON CHANGE MsgBeep()\n\n         oBrw:lLogicDrop := .t.  // use crazy logic dropbox\n         oBrw:lNoHScroll := .t.  // don\'t use that pesky horiz scroll bar\n         oBrw:nAdjColumn := 3    // expand this column to flush table right\n         oBrw:nFreeze    := 3       // 0 disables freezing 1 is leftmost\n         oBrw:hBmpCursor := LoadBitmap( GetResources(), \"Z_Triangle\" )\n\n         oBrw:bLDblClick := { | nRow, nCol | EditCell( oBrw, nRow, nCol ) }\n\n         ADD COLUMN TO  oBrw DATA \"\" SIZE 15 // blank cursor colm\n\n         //ADD COLUMN TO  oBrw NOBAR ;\n         //    BITMAP DATA If ( Stok-&gt;FATURA &gt; Stok-&gt;BAKIYE , aX[1] , ;\n         //             If ( Stok -&gt; FATURA &lt; Stok-&gt;BAKIYE , aX[2], aX[3] ) )\n\n         //ADD COLUMN TO BROWSE oBrw ;\n         // DATA  OemToAnsi( Stok -&gt;STOKNAME ) TAG StokName ;\n         // HEADER \"Stok\" SIZE 100\n\n         ADD COLUMN TO BROWSE oBrw ;\n           DATA FieldWBlock(\"BAKIYE\", Select(\"Stok\")) ; // we can edit it\n           HEADER \"Bakiye\" OEM ALIGN RIGHT  ;\n           PICTURE \"###,###.##\" EDITABLE WIDTH 70  PIXELS ;\n            COLOR If( Stok-&gt;BAKIYE &lt; 0, CLR_RED, CLR_BLACK), {||CLR_GREEN } ;\n            MESSAGE \"Enter a negative number\" ;\n            [b:oluguuh4]VALID {|o| MyFunction( o:varGet() ) }[/b:oluguuh4]\n            ERROR MESSAGE \"Value must be\"+CRLF+\"positive or 0\"\n\n         ADD COLUMN TO BROWSE oBrw ;\n           DATA FieldWBlock(\"BAKIYE\", Select(\"Stok\")) ; // we can edit it\n           HEADER \"Bakiye\" OEM ALIGN RIGHT  ;\n           PICTURE \"###,###.##\" EDITABLE WIDTH 70  PIXELS ;\n            COLOR If( Stok-&gt;BAKIYE &lt; 0, CLR_RED, CLR_BLACK), {||CLR_GREEN } ;\n            MESSAGE \"Enter a negative number\" ;\n            VALID IF ValCampo( x )  ;\n            ERROR MESSAGE \"Value must be\"+CRLF+\"positive or 0\"\n\n         oBrw:AddColumn( TCColumn( ):New( OemToAnsi( \"Fatura\" ) , ;\n                   FieldWBlock(\"Fatura\", Select(\"Stok\")), ;\n                    \"###,###.##\" , nil, nil, DT_RIGHT, 90 , nil, .t.) )\n\n         DEFINE COLUMN oCol ;\n            DATA If ( Stok-&gt;FATURA &gt; Stok-&gt;BAKIYE , _hOn , _hOff) BITMAP;\n            NOHILITE SIZE 15 COLOR \"N/R\" CENTER\n\n         oBrw:AddColumn( oCol )\n\n         //ADD COLUMN TO oBrw ALIGN RIGHT TAG \"MaliYet\" SIZE 100 ;\n         //   DATA Stok -&gt; MALIYET PICTURE \"##,###,###\"  ;\n         //   HEAD \"Maliyet\"\n\n         //ADD COLUMN TO oBrw ALIGN RIGHT ;\n         //   HEAD \"Ciro\" DATA FieldBlock(\"CIRO\") ;\n         //   PICT \"@Z #,###,###.##\" SIZE 90 ;\n         //   EDIT VALID {|o| o:varGet() &lt; 0}  ;\n         //   MESSAGE \"Current data causes lots of errors\" ;\n         //   ERROR MESSAGE \"Value Must be\"+CRLF+\"Less than 0\"\n\n         // ADD COLUMN TO BROWSE oBrw ;\n         //   HEADER \"Devirtarih\"  ALIGN CENTER  ;\n         //   DATA FieldBlock(\"Devirtarih\") PICTURE \"@D\" EDIT\n\n         // ADD COLUMN TO  oBrw  TITLE \"L\"  PICT \"Y\"  SIZE 15 ;\n         //  DATA  Stok-&gt;FATURA &gt; Stok-&gt;BAKIYE  EDITABLE // but not savable\n\n         REDEFINE BUTTON ID IDOK  OF oDlg ACTION oDlg:End( ) ;\n           MESSAGE \"Get outta here\"\n\n         REDEFINE SAY oSay VAR oBrw:cSeek  ID 211 OF oDlg ;\n            COLORS CLR_WHITE, CLR_CYAN\n\n         oBrw:bSeekChange  := {|| oSay:Refresh() }\n\n         REDEFINE BUTTON ID 101 OF oDlg ;\n           ACTION oBrw:SwitchCols(5, 9):Exchange(3, 6) ;\n           MESSAGE \"Switch columns 5 and 9, exchange columns 3 and 6\"\n\n         REDEFINE BUTTON ID 102 OF oDlg ;\n           ACTION ( If(oBrw:oCtx != Nil, oBrw:oCtx:Display(), nil ), ;\n           oBrw:SetFocus() )   MESSAGE \"Display Context\"\n\n         REDEFINE BUTTON ID 103 OF oDlg ;\n           ACTION oBrw:Report() ;\n           MESSAGE \"Print a Report\"\n\n         ACTIVATE DIALOG oDlg CENTERED NOWAIT\n\nReturn( NIL )\n\n\nDLL FUNCTION BWCCRegister( hInst AS LONG ) AS LONG PASCAL ;\n    LIB \"BWCC32.DLL\"\n\nprocedure AppSys  // XBase++ requirement\n\nreturn\n\n////////////////////////////////////////////////////////////////////////////////////\nfunction MyFunction( valnum )\n\nlocal retorno := .t.\n\nif valnum &gt;= 500\n retorno := .t.\nelse\n retorno := .f.\n ?  \"return: FALSE\"\nendif\n\nreturn( retorno )\n\nThank you,\n\nLuciano','',0,'QA==','oluguuh4',1,0,'',869,0,0),(22321,1744,1,27,0,'212.145.65.52',1164197614,1,0,1,1,1,1,'','Impresión Codigo de Barras PDF417','Usando un impresora Zebra 2844 y enviando los codigos de impresión \nel la puerto LPT1 via TDOSPRN si que saco una etiqueta con PDF417\n\nSi tienes un Zebra 2844 enviarles esto por la LPT1:\n\nO\nN\nq816\nQ1583,24+17\nS3\nD8\nZT\nLO20,510,752,4\nLO20,1559,752,4\nLO20,513,5,1047\nLO767,513,5,1047\nLO89,1446,683,2\nLO85,1035,687,1\nLO85,832,687,1\nLO568,512,1,320\nLO570,774,202,1\nLO568,719,204,1\nLO568,663,198,1\nLO570,587,202,1\nLO83,514,1,1045\nA757,1551,2,1,1,2,N,\"414490048 Rapid Express, S.A.)\"\nA30,1527,3,1,1,1,N,\"                              \"\nA757,1516,2,1,1,2,N,\"METALURGIA, 4                                                 \"\nA757,1481,2,1,1,2,N,\"28108 ALCOBENDAS                   \"\nA300,1481,2,1,1,2,N,\"Telf.:91 661 48 18   \"\nA620,1411,2,1,2,2,N,\"14547500333333301000121\"\nB686,1358,2,1,3,3,256,N,\"14547500333333301000121\"\nA751,1017,2,1,1,2,N,\"A                                  \"\nA300,1017,2,1,1,2,N,\"Telf.:               \"\nA751,0989,2,1,1,2,N,\"ATT:                               \"\nA300,0989,2,1,1,2,N,\"Ref:               \"\nA757,0960,2,1,1,2,N,\"                                   \"\nA757,0928,2,3,2,3,N,\"12\"\nA560,0928,2,2,2,3,N,\"CASTELLON  \"\nA757,0869,2,1,2,3,N,\"CASTELLON                 \"\nA755,815,2,1,1,1,N,\"PESO:\"\nA688,805,2,1,1,2,N,\"1 Kgs.\"\nA755,762,2,1,1,1,N,\"BULTOS:\"\nA747,743,2,1,2,2,N,\"1 de 1  \"\nA755,707,2,1,1,1,N,\"PRODUCTO:\"\nA750,687,2,1,2,2,N,\"CHRONO 10\"\nA755,648,2,1,1,1,N,\"REEMBOLSO :\"\nA747,618,2,1,2,2,N,\"            \"\nA755,575,2,1,1,1,N,\"TIPO DE PORTES:\"\nA747,546,2,1,2,2,N,\" PAGADOS\"\nA325,61,2,1,3,3,N,\"\"\nA528,528,2,1,1,1,N,\"\"\nA550,810,2,1,2,3,N,\"EXP:1454750033333333\"\nb548,770,P,800,600,s5,f0,x2,y8,l9,t0,o2,\"\n414490048 POAS (RAPID EXPRESS)\nMETALURGIA, 4\n28108 ALCOBENDAS - TELEFONO:91 661 48 18\n\n\n12      -SAN FDO DE HENARES           ,CASTELLON  \nTELEFONO:916779837      14547500333333301000121691\n1,1\"\nB668,382,2,1,3,2,127,N,\"14547500333333301000121\"\nA112,370,2,2,1,1,N,\"P/P\"\nA112,285,2,2,1,1,N,\"P/P\"\nA710,481,2,2,1,1,N,\"414490048 (RAPID EXPRESS)                (CHR10)\"\nA710,459,2,2,1,1,N,\"A                                                    \"\nA710,436,2,2,1,1,N,\"                                   \"\nA185,451,2,2,1,2,N,\"        \"\nA700,414,2,1,1,2,N,\"14547500333333301000121\"\nA420,414,2,1,1,2,N,\"Ref:1454750033333333\"\nA200,414,2,1,1,2,N,\"1 Kgs\"\nA700,247,2,1,1,2,N,\"14547500333333301000121\"\nA420,247,2,1,1,2,N,\"Ref:1454750033333333\"\nA200,247,2,1,1,2,N,\"1 Kgs\"\nA710,218,2,2,1,1,N,\"414490048                 (CHR10)\"\nA710,195,2,2,1,1,N,\"A                                                    \"\nA710,172,2,2,1,1,N,\"                                   \"\n\nA380,30,2,1,2,2,N,\"FECHA:31/10/2006\"\nP1\nP1','',0,'QA==','3tslv5e8',1,0,'',27,0,0),(22322,4959,6,49,0,'213.82.134.66',1164197901,1,0,1,1,1,1,'','','or the clock class of canalfive with event class....','',0,'QA==','10dtv1h9',1,0,'',49,0,0),(22323,4761,20,49,0,'213.82.134.66',1164198270,1,0,1,1,1,1,'','','Se chiedi a Garombo lui aveva fatto un batch facilissimo per ricompilare le librerie : io ce l\'ho ma devo cercare ....dato che non lo uso piu\'\n\nùAdesso mi sono fatto una procedura per cui uso Xmate per fare tutto : Lib, Dll e programmi','',0,'QA==','3s01lris',1,0,'',49,0,0),(22324,5035,3,49,0,'213.82.134.66',1164198414,1,0,1,1,1,1,'','pdf417','someone has a routine for it  or Vb or delphi I can translate in barlib func ?','',0,'QA==','2b6zx0hg',1,0,'',49,0,0),(22325,5036,1,418,0,'83.156.146.214',1164199065,1,0,1,1,1,0,'','ERROR RUNTIME','Hi everybody\ni have a strange error in my app:\nwhen i run a function first from main window it didn\'t work\nI have this error \n[size=75:1b497q03]\nApplication\n===========\n   Path and name: D:\\FIVE\\TITUS.EXE\n   Size: 1,056,768 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Error ocurred at: 22/11/06, 12:49:29\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = C   Resource: \n     [   2] = N   Resource: \n\nStack Calls\n===========\n   Called from CREATEDLGE(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PAYE(283)\n   Called from (b)SALAIRE(15)\n   Called from TBUTTON:CLICK(0)\n   Called from TBUTTON:HANDLEEVEN(0)\n   Called from SENDMESSAG(0)\n   Called from TDIALOG:COMMAND(0)\n   Called from TDIALOG:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from SALAIRE(21)\n   Called from (b)BARRE(474)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TBTNBMP:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from PRINCIPALE(310)\n\n\n[/size:1b497q03]\n\n\nThe dialog 27 seems to not work\n\n[size=75:1b497q03]function paye(tabt)\n\nlocal sa,l1\n\ndefine dialog pa name 27 of f1 title \"LISTE DES FICHES DE PAYE\"\n\n\n     redefine listbox l1  id 101 of pa\n\n     redefine button id 102 of pa\n     redefine button id 103 of pa\n     redefine button id 104 of pa action pa:end()\n\n\nactivate dialog pa center\n\n\nreturn nil\n\n[/size:1b497q03]\n\n\nIt is a very simple dialog\n\nWhen i run this function after any other function  even if it use the dialog n°27  It work very well\n\nI don\'t understand the error   (caracter and numeric in the createdlg())\nAny idea?','',0,'BA==','1b497q03',1,0,'',418,0,0),(22326,5034,7,2,0,'87.218.146.117',1164199320,1,0,1,1,1,1,'','','Elías,\n\nLa sintaxis es correcta lo que ocurre es que el soporte de ficheros INI aún no está implementado en FWPPC. Lo tenemos previsto para próximos builds.','',0,'BA==','39zbo7iw',1,0,'',2,0,0),(22327,5034,7,720,0,'80.59.110.137',1164200032,1,0,1,1,1,0,'','','Gracias Antonio, ¿hay alguna otra alternativa a este tema que pueda usar ahora?\n\nSaludos.\n\nElías Torres.','',0,'BA==','1qrmnxbi',1,0,'',720,0,0),(22328,1744,1,838,0,'80.34.222.112',1164200617,1,0,1,1,1,0,'','','Hola Paul\n\nSegún veo, me da la impresión que la aplicación que genera esto es para una agencia de transportes.\n\nMe gustaría que me confirmaras si ésto es así, ya que mi aplicación principal es para precisamente ésto, una agencia de transportes.\n\nPodríamos intercambiar experiencias\n\nSaludos\n\nJose Luis','',0,'BA==','kwwbgt58',1,0,'',838,0,0),(22329,5037,20,837,0,'213.140.21.233',1164201499,1,0,1,1,1,1,'','Software per seguire lo sviluppo di applicazioni','Esiste che qualcuno sappia un prodotto per gestire le fasi di sviluppo, test, anomalie, bug / fix di un prodotto software.\n\nPossibilmente da pubblicare sul web.\n\nGrazie Andrea.','',0,'BA==','p0v8c0h5',1,0,'',837,0,0),(22330,5028,6,179,0,'201.217.81.243',1164202031,1,0,1,1,1,1,'','','gracias Antonio\nal hacerlo me sale este error\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\nsource\\common\\expropt1.c:\nsource\\common\\expropt2.c:\nsource\\common\\hbarch.c:\nsource\\common\\hbfhnd.c:\nsource\\common\\hbfsapi.c:\nsource\\common\\hbgete.c:\nsource\\common\\hbhash.c:\nsource\\common\\hbdate.c:\nsource\\common\\hbstr.c:\nsource\\common\\hbtrace.c:\nsource\\common\\hbver.c:\nsource\\common\\hbverdsp.c:\nsource\\common\\reserved.c:\nTLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation\n+obj\\b32\\expropt1.obj &amp;\n+obj\\b32\\expropt2.obj &amp;\n+obj\\b32\\hbarch.obj &amp;\n+obj\\b32\\hbfhnd.obj &amp;\n+obj\\b32\\hbfsapi.obj &amp;\n+obj\\b32\\hbgete.obj &amp;\n+obj\\b32\\hbhash.obj &amp;\n+obj\\b32\\hbdate.obj &amp;\n+obj\\b32\\hbstr.obj &amp;\n+obj\\b32\\hbtrace.obj &amp;\n+obj\\b32\\hbver.obj &amp;\n+obj\\b32\\hbverdsp.obj &amp;\n+obj\\b32\\reserved.obj &amp;\n+\nsource\\pp\\ppgen.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nsource\\pp\\pptable.c:\nsource\\pp\\ppcore.c:\nsource\\pp\\pplib.c:\nsource\\pp\\pplib2.c:\nsource\\pp\\pplib3.c:\nTLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation\n+obj\\b32\\pptable.obj &amp;\n+obj\\b32\\ppcore.obj &amp;\n+obj\\b32\\pplib.obj &amp;\n+obj\\b32\\pplib2.obj &amp;\n+obj\\b32\\pplib3.obj &amp;\n+\nsource\\compiler\\harbour.c:\n\n** error 1 ** deleting obj\\b32\\harboury.c','',0,'BA==','2dvc3kkb',1,0,'',179,0,0),(22331,4981,3,289,0,'82.167.47.100',1164202399,1,0,1,1,1,0,'','','I Am  sent to you e-Mail with  full source Link\nThank you to write in Arabic.\nI am the translator from Arabic to English\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nGrazie scrivere in arabo.\nHATHAL.','',0,'BA==','vtvqxdt0',1,0,'',289,0,0),(22332,5036,1,6,0,'87.10.1.58',1164202658,1,0,1,1,1,1,'','Re: ERROR RUNTIME','Try\n\n[code:27d43q8s]define dialog pa name &quot;27&quot; of f1 title &quot;LISTE DES FICHES DE PAYE&quot;[/code:27d43q8s]\n\nEMG','',0,'AIA=','27d43q8s',1,0,'',6,0,0),(22333,4761,20,6,0,'87.10.1.58',1164202736,1,0,1,1,1,1,'','','[quote=&quot;Dino Alessandri&quot;:2xxsmdy1]Boun Giorno!\n\nEnrico i batch che usa Andrea sono quelli che usiamo io e  Mario,\na me non danno nessun problema!\n\nDino[/quote:2xxsmdy1]\n\nAppunto. Quindi il problema, come dicevo, è da qualche altra parte.\n\nEMG','',0,'gA==','2xxsmdy1',1,0,'',6,0,0),(22334,5020,3,308,0,'84.148.21.38',1164203128,1,0,1,1,1,0,'','','[quote=&quot;Rochinha&quot;:6fz21fjs]Amiguinho\n\nLook this\n\nThis works fine\n\n[code:6fz21fjs]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main\ncURLHtml &#58;= &#91;http&#58;//www&#46;wetter&#46;com/home/extern/ex_search&#46;php?ms=1&amp;ss=1&amp;sss=2&amp;search=90562&#93;\n//&quot; target=&quot;_blank&quot;&gt;&lt;img src=&quot;http&#58;//www&#46;wetter&#46;com/home/woys/woys&#46;php?,F,1,DEPLZ,90562&quot; border=&quot;0&quot; alt=&quot;&quot;&gt;&lt;/a&gt;&#93; \nDEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; \n       oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&#46;2&quot; &#41; \n       oWnd&#58;oClient = oActiveX \n       oActiveX&#58;Do&#40;&quot;Navigate2&quot;,cURLHtml&#41; \nACTIVATE WINDOW oWnd\n[/code:6fz21fjs][/quote:6fz21fjs]\n\nWith the url alone it does go agrees naturally, the representation then simply.  \n\nOnly with the URL:\n[url:6fz21fjs]http&#58;//www&#46;alphasoft&#46;de/test/bad&#46;bmp[/url:6fz21fjs]\n\nwith full html-Code:\n[img:6fz21fjs]http&#58;//www&#46;alphasoft&#46;de/test/ok&#46;bmp[/img:6fz21fjs]\n\nThere is codes of different bidders for the own homepages.  I would like to use that.  Then I must would go simply the way over the external File.  \n\nThank you very much for your aid. \n\nNorbert','',0,'mIA=','6fz21fjs',1,0,'',308,0,0),(22335,4975,6,18,0,'200.67.188.236',1164205573,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:20tvq488]Vikthor,\n\nCómo estas llamando a las funciones de la DLL ?[/quote:20tvq488]\n[code:20tvq488]\n// Using Harbour DLLs\n// To build Tutor01&#46;dll do&#58; buildhd&#46;bat tutor01\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   HbDLLEntry&#40; &quot;MAIN&quot; &#41;\n   MsgInfo&#40; &quot;ok from EXE&quot; &#41;\n\nreturn nil\n\nDLL FUNCTION HBDLLENTRY&#40; cProc AS LPSTR &#41; AS LONG PASCAL LIB &quot;Tutor01&#46;dll&quot;\n[/code:20tvq488]','',0,'gIA=','20tvq488',1,0,'',18,0,0),(22336,5023,6,18,0,'200.67.188.236',1164206686,1,0,1,1,1,1,'','Re: Abrir documento WORD somente LEITURA com TWORD é POSSIVE','[quote=&quot;AOKISANTOS&quot;:2vskpesz]Amigos, é possível abrir um documento do WORD somente LEITURA com a TWORD? Ou seja de forma que o usuário não possa alterar o documento.\n\nFiquem com Deus\n\nAokisantos[/quote:2vskpesz]\n\nAokisantos :\n\nNecesitas cambiar el método OpenDoc()\n\nPor default lReadOnly en FALSE , si es TRUE el documento se abrirá como sólo lectura\n\n[code:2vskpesz]\nMETHOD OpenDoc&#40; cNombreDoc , lReadOnly &#41;  CLASS TWord  &lt;---- // Vikthor\n       local sal &#58;= &#46;t&#46;\n       DEFAULT lReadOnly &#58;= &#46;F&#46;    &lt;-------   // Vikthor\n       &#58;&#58;oDocs &#58;= &#58;&#58;oWord&#58;Get&#40; &quot;Documents&quot; &#41;\n       if file&#40; cNombreDoc &#41;\n         &#58;&#58;oActiveDoc  &#58;= &#58;&#58;oDocs&#58;Invoke&#40; &quot;Open&quot;,cNombreDoc , , lReadOnly &#41; &lt;------- // Vikthor\n          if valtype&#40;&#58;&#58;oActiveDoc&#41; &lt;&gt; \'O\'\n             sal &#58;= &#46;f&#46;\n          endif\n       else\n          sal &#58;= &#46;f&#46;\n       endif\n       &#58;&#58;oTexto        &#58;= &#58;&#58;oWord&#58;Get&#40; &quot;Selection&quot; &#41;\n       &#58;&#58;oOptions      &#58;= &#58;&#58;oWord&#58;Get&#40;&quot;Options&quot;&#41;              // Vikthor\n       &#58;&#58;oMailMerge    &#58;= &#58;&#58;oActiveDoc&#58;Get&#40; &quot;MailMerge&quot;&#41;    // Vikthor\n       &#58;&#58;oTables       &#58;= &#58;&#58;oActiveDoc&#58;Get&#40; &quot;Tables&quot;&#41;              // Vikthor\n       &#58;&#58;cNombreDoc    &#58;= cNombreDoc\n       &#58;&#58;nLinea        &#58;= 0\n       &#58;&#58;nCol          &#58;= 0\n       &#58;&#58;nPage         &#58;= 0\n       &#58;&#58;nYoffset      &#58;= 0\n       &#58;&#58;nXoffset      &#58;= 0\n       &#58;&#58;oSelection    &#58;= &#58;&#58;oActiveDoc\n       &#58;&#58;lstartpag     &#58;= &#46;t&#46;\n       &#58;&#58;lsetcm        &#58;= &#46;f&#46;\n       &#58;&#58;lOverflowing  &#58;= &#46;f&#46;\n       &#58;&#58;nlastrow      &#58;= 0\n       &#58;&#58;ctextoverflow &#58;= \'\'\n\n       RETURN sal\n[/code:2vskpesz]','',0,'gIA=','2vskpesz',1,0,'',18,0,0),(22337,5031,3,138,0,'200.67.153.135',1164206979,1,0,1,1,1,1,'','','ADS Management Utility not longer exists as an indepent program un the new releases of ADS (Ver. 6.x and greater).\n\nThe managment utility is integrated in the ARC (Advantage Data Architech), along with other monitoring tools.\n\nARC is available at:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/ver7/arc32.exe\">www.google.d2g.com/ads/ver7/arc32.exe</a><!-- w -->','',0,'gIA=','1ppe18zr',1,0,'',138,0,0),(22338,5038,7,18,0,'200.67.188.236',1164207082,1,0,1,1,1,1,'','Avance en TSockets ?','Antonio :\n\nLos sockets no estan funcionando correctamente , tendrás algún avance para su correcto funcionamiento.','',0,'gIA=','31ndouvr',1,0,'',18,0,0),(22339,5025,6,644,0,'201.252.5.87',1164207668,1,0,1,1,1,0,'','','Manuel\n\nTe agrdezco mucho tu respuesta. Lo voy a probar','',0,'gIA=','7iojy0tm',1,0,'',644,0,0),(22340,5039,2,779,0,'189.141.16.56',1164209142,1,0,1,1,1,0,'','Limite en la recursividad','Hola estoy utilizando rutinas recursivas para recorrer arboles genealogicos\n[url:oxhfcdg1]http&#58;//www&#46;genealogia&#46;com&#46;mx[/url:oxhfcdg1] el problema es que cuando llamo a una rutina mas de 13 veces marca el error\n\nEVAL STACK FAULT \n\nEstoy usando blinker 7\n\nSe supone que el blinker procedure depth 30 \nindicaria cuantas veces se pueden anidar procesos o funciones\nla verdad es que si le pongo 0,30 o 100 se comporta igual\nsiempre truena en 15\n\nEjemplo de una rutina para pruebas\n\n[code:oxhfcdg1]\nTEST&#40;0&#41;\n\nFUNCTION TEST&#40;&#41;\nPARAM n\nn&#58;=n+1\nMsginfo&#40;n&#41;\nTest&#40;n&#41;\n\n[/code:oxhfcdg1]\n\n\n\n\n\n [code:oxhfcdg1][/code:oxhfcdg1]','',0,'EIA=','oxhfcdg1',1,0,'',779,0,0),(22341,5040,7,832,0,'201.122.21.224',1164210394,1,0,1,1,1,0,'','COMO UTILIZAR EL FTP','<!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->   HOLA A TODOS...\n\n\n\nALGUIEN ME PODRIA AYUDAR PARA CONECTARME UN SERVIDOR POR FTP Y ENVIAR UN ARCHIVO. TOME EL EJEMPLO DE BIENE DE FTP PERO ME MARCA UN ERROR SIEMPRE...   SERA POR QUE NO UTILIZO PROXY\nO A QUE SE DEBE EL ERROR.\n\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  EPERO Y ME PUEDAN AYUDAR....','',0,'EIA=','hsi27h7h',1,0,'',832,0,0),(22342,4956,2,74,0,'190.49.99.225',1164210772,1,0,1,1,1,1,'','','Francis:\n\n[code:6yrl2d5e]\n		  				oBrwMov&#58;lAutoEdit  &#58;= &#46;t&#46;\n		  				oBrwMov&#58;bKeyChar &#58;= &#123;|nK| if&#40; nK==VK_RETURN,oBrwMov&#58;Edit&#40;oBrwMov&#58;nColAct,&#46;t&#46;&#41;,&#41; &#125;\n		  				oBrwMov&#58;bEdit&#58;= &#123;|nCol, cBuffer, lFirstEdit| EditaCelda&#40; @fCant,@fCantV,@fCantC,oBrwMov, nCol, cBuffer, &#46;T&#46;,cAlias &#41; &#125;\n\n//---------------------------------------------------------------------------------------------------------\n\nSTATIC Function EditaCelda&#40; fCant , fCantV, fCantC,oLbx   , nCol           , cBuffer                         , lFirstEdit,cAlias &#41;\n\nLocal uBuffer&#58;=cBuffer,nColReal&#58;= nCol,lContinue&#58;=&#46;f&#46;,bValid,cSaldo&#58;=0,xSaldo&#58;=0,cDifSaldo&#58;=0\n\n       Do Case\n				Case nCol = 5 &#46;and&#46; lFirstEdit\n					 	uBuffer&#58;=&#40;cAlias&#41;-&gt;SALDO\n						cSaldo&#58;=&#40;cAlias&#41;-&gt;SALDO\n						If lContinue&#58;= oLbx&#58;lEditCol&#40; nColReal,  @uBuffer, &quot;@ZE 999999&quot;,bValid,,&#40;nRgb&#40;15,15,15&#41;,nRgb&#40;255,255,255&#41;&#41;&#41;\n								IF uBuffer # cSaldo\n										IF MSGYESNO&#40;&quot;El saldo ha sido cambiado,&quot;+CRLF+CRLF+;\n																\'El sistema generará un movimiento de ajuste de inventario automáticamente,\'+CRLF+CRLF+;\n																\'Confirma la operación ?\',\'Atención\'&#41;\n														 xSaldo&#58;=RECUNSALDO&#40;1,&#40;cAlias&#41;-&gt;COD&#41;\n														&#40;cAlias&#41;-&gt;SALDO&#58;=uBuffer\n														cDifSaldo&#58;=uBuffer - xSaldo\n														&#40;CALIAS&#41;-&gt;&#40;DBCOMMIT&#40;&#41;&#41;\n														oLbx&#58;Refresh&#40;&#41;\n														 IF !empty&#40;&#40;cAlias&#41;-&gt;AT1&#41; &#46;or&#46; !empty&#40;&#40;cAlias&#41;-&gt;AT2&#41;\n														 ELSE\n																if cDifSaldo # 0\n																	AJUSINV&#40;&#40;cAlias&#41;-&gt;COD,cDifSaldo,&#40;cAlias&#41;-&gt;AT1,&#40;cAlias&#41;-&gt;AT1&#41;\n																endif\n														 ENDIF\n														 ART-&gt;&#40;DBSETORDER&#40;1&#41;&#41;\n										 					ART-&gt;&#40;DBSETORDER&#40;1&#41;&#41;\n										 					IF ART-&gt;&#40;DBSEEK&#40;MOVART-&gt;MCOD,&#46;F&#46;&#41;&#41;\n										 							IF ART-&gt;&#40;DBRLOCK&#40;&#41;&#41;\n										 								REPL ART-&gt;SALDO WITH ART-&gt;SALDO + MOVART-&gt;MCAN\n										 								ART-&gt;&#40;DBUNLOCK&#40;&#41;&#41;\n										 							ENDIF\n									 						 					    ENDIF\n										ENDIF\n								ENDIF\n						ENDIF\n			 EndCase\n\nRETURN NIL\n\n[/code:6yrl2d5e]\n\nSaludos,','',0,'AIA=','6yrl2d5e',1,0,'',74,0,0),(22343,5041,3,529,0,'200.159.199.26',1164211219,1,0,1,1,1,0,'','AIS behind internet server (Rene)','Rene, sorry to make any questions to you, but you´re the master in ads. jeje\ni try to access ais in my intranet, i have an windows nt server with ads and ais installed, but the access to internet is made an another computer using an software like wingate, winproxy, etc. there any way to access the ais? how to make this? i config the ais or wingate-like? \n\nthanks again','',0,'AIA=','3p4uiuv0',1,0,'',529,0,0),(22344,5031,3,529,0,'200.159.199.26',1164211299,1,0,1,1,1,0,'','Rene, link dont work.','as subject.','',0,'AIA=','2uwblx8q',1,0,'',529,0,0),(22345,5003,7,720,0,'80.59.110.137',1164213053,1,0,1,1,1,0,'','','Gracias Antonio..\n\nPero tengo que decirte que no entiendo el codigo.. Eso que has puesto que es? ¿Es la definicion de la funcion IcmpCreateFile() ? Disculpa pero esto se me hace un poco grande, puesto que principalmente desconozco el tratamiento que hay que hacer a los datos en redes,direcciones ip,etc... \n\nTe agradeceria si me explicaras o me guiaras un poco en lo que tengo que hacer...\n\nSaludos y mil gracias.\n\nElías Torres.','',0,'AIA=','1i493w5g',1,0,'',720,0,0),(22346,5042,3,382,0,'80.140.236.18',1164215621,1,0,1,1,1,1,'','TFOLDER Tab-ID','How can I get the ID\'s of the tabs in TFolder-TDialogs?\nFor example to set the folder 2 by default.','',0,'AIA=','t96q0drv',1,0,'',382,0,0),(22348,5044,7,720,0,'80.59.110.137',1164215814,1,0,1,1,1,0,'','como seleccionar algunos campos....','Hola a todos...\n\nActualmente mi aplicacion se conecta a otra maquina desde la cual me traigo una tabla. El problema es que me la traigo entera y me interesaria traerme solo algunos campos determinados... Para luego almacenarlos en una tabla local para poder trabajar con ella....\n\n\nAlguien puede poner un ejemplo de como lo debo hacer??\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'AIA=','2wkcr2yo',1,0,'',720,0,0),(22349,5045,3,439,0,'200.125.47.170',1164215926,1,0,1,1,1,1,'','FWH Class for graphics','Hi to everybody,\n\nSorry for my English, I need a class for FWH for graphs (bars, cake,etc)\n\nThe ones I found in samples seems to work on clipper.\n\nCan somebody please help me?\n\nThanks','',0,'AIA=','3ay5kt99',1,0,'',439,0,0),(22350,5046,6,439,0,'200.125.47.170',1164216059,1,0,1,1,1,1,'','Clase para creación vista e impresión de graficos','Hola a todos,\n\nAparentemente las clases que he encontrado en mi directorio de FWH que crean gráficos parecen ser para Clipper.\n\nAlguien podría orientarme para encontrar una clase nativa de FWH o gratuita, o paga de última que tenga esta utilidad y que funcione con xHarbour?\n\nGracias desde ya.','',0,'AIA=','qscw8ci0',1,0,'',439,0,0),(22351,5005,2,376,0,'201.230.208.78',1164216239,1,0,1,1,1,0,'','','Visita esta página y podrás encontrar un ejemplo completo de lo que quieres\n\n<!-- w --><a class=\"postlink\" href=\"http://www.geocities.com/sisgemeirl\">www.geocities.com/sisgemeirl</a><!-- w -->\n\nUn saludo\n\nArmando','',0,'AIA=','1ourd88b',1,0,'',376,0,0),(22352,5047,6,52,0,'200.127.196.8',1164216725,1,0,1,1,1,1,'','Eagle y Ts','Estimados,\n\nNecesito ayuda con esto:\n\nEstoy utilizando eagle y quiero mostrar en una TS los datos que obtengo del mysql, el problema es que no se muestran bien los datos en la ts.\n\nDejo una imagen.\n\n[url=http&#58;//img131&#46;imageshack&#46;us/my&#46;php?image=dibujotj1&#46;jpg:3gc2jx8k][img:3gc2jx8k]http&#58;//img131&#46;imageshack&#46;us/img131/8033/dibujotj1&#46;th&#46;jpg[/img:3gc2jx8k][/url:3gc2jx8k]','',0,'GA==','3gc2jx8k',1,0,'',52,0,0),(22353,5006,6,376,0,'201.230.208.78',1164216848,1,0,1,1,1,0,'','','Susy\n\nEn el foro para Clipper te indico que puedes visitar el siguiente site para verr un ejemplo de lo que buscas:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.geocities.com/sisgemeirl\">www.geocities.com/sisgemeirl</a><!-- w -->\n\nSaludos\n\nArmando','',0,'GA==','23kll2y8',1,0,'',376,0,0),(22354,5045,3,6,0,'87.10.1.58',1164216935,1,0,1,1,1,1,'','Re: FWH Class for graphics','This is a sample:\n\n[code:1msda6od]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;TGraph&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oGraph\n\n    DEFINE DIALOG oDlg;\n           SIZE 600, 600\n\n    @ 1, 1 GRAPH oGraph;\n           SIZE 250, 200;\n           TYPE 1;\n           YVALUES 3D XGRID YGRID XVALUES LEGENDS\n\n//    oGraph&#58;aSeries = &#123; &#123; &quot;Serie 1&quot;, CLR_CYAN &#125; &#125;\n\n    oGraph&#58;aSeries = &#123; &#123; &quot;Serie 1&quot;, CLR_CYAN &#125;,;\n                       &#123; &quot;Serie 2&quot;, CLR_YELLOW &#125;,;\n                       &#123; &quot;Serie 3&quot;, CLR_HRED &#125; &#125;\n\n//    oGraph&#58;aYVals = &#123; &quot;Jan&quot;, &quot;Feb&quot;, &quot;Mar&quot;, &quot;Apr&quot;, &quot;May&quot; &#125;\n\n//    oGraph&#58;aData = &#123; &#123; 14280, 20420, 12870, 25347, 7640 &#125; &#125;\n\n    oGraph&#58;aData = &#123; &#123; 14280, 20420, 12870, 25347, 7640 &#125;,;\n                     &#123; 8350, 10315, 15870, 5347, 12340 &#125;,;\n                     &#123; 12345, -8945, 10560, 15600, 17610 &#125; &#125;\n\n    oGraph&#58;nClrX = CLR_GREEN\n    oGraph&#58;nClrY = CLR_RED\n\n    @ 0, 0 BUTTON &quot;Cambia&quot; ACTION &#40; oGraph&#58;nType &#58;= 4, oGraph&#58;Refresh&#40;&#41; &#41;\n//    @ 0, 0 BUTTON &quot;Cambia&quot; ACTION oDlg&#58;Print&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1msda6od]\n\nEMG','',0,'AIA=','1msda6od',1,0,'',6,0,0),(22355,5003,7,2,0,'87.218.146.117',1164217076,1,0,1,1,1,1,'','','Elías,\n\nEste es el código completo, sin embargo en el emulador de Pocket PC está devolviendo cero. A ver si a ti te funciona,\nNos hemos guiado por este ejemplo: <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iphlp/iphlp/icmpsendecho.asp\">http://msdn.microsoft.com/library/defau ... ndecho.asp</a><!-- m -->\n[code:30imfsit]\nfunction Main&#40;&#41; \n\n   local hICMP &#58;= IcmpCreateFile&#40;&#41;\n   local cData &#58;= &quot;Esto es un ping&quot;\n   local cReply &#58;= Space&#40; ICMP_ECHO_REPLY&#40;&#41; + Len&#40; cData &#41; &#41;\n   local nResult &#58;= IcmpSendEcho&#40; hICMP, inet_addr&#40; &quot;192&#46;168&#46;0&#46;16&quot; &#41;, cData,;\n                                  Len&#40; cData &#41; + ICMP_ECHO_REPLY&#40;&#41;, 0,;\n                                  cReply, Len&#40; cData &#41;, 1000 &#41;\n   \n   if nResult &gt; 0\n      MsgInfo&#40; &quot;hay conexión con esa máquina&quot; &#41;\n   else   \n      MsgInfo&#40; &quot;no hay conexión&quot; &#41;\n   endif    \n\n   IcmpCloseHandle&#40; hIcmp &#41;\n    \nreturn nil \n\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt; \n#include &lt;icmpapi&#46;h&gt; \n#include &lt;winsock&#46;h&gt;\n#include &lt;hbapi&#46;h&gt; \n\nHB_FUNC&#40; ICMPCREATEFILE &#41; \n&#123; \n   hb_retnl&#40; &#40; LONG &#41; IcmpCreateFile&#40;&#41; &#41;; \n&#125; \n\nHB_FUNC&#40; ICMPCLOSEHANDLE &#41;\n&#123;\n   hb_retl&#40; IcmpCloseHandle&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; ICMPSENDECHO &#41;\n&#123;\n   hb_retnl&#40; IcmpSendEcho&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;,\n                           &#40; IPAddr &#41; hb_parnl&#40; 2 &#41;,\n                           &#40; LPVOID &#41; hb_parc&#40; 3 &#41;,\n                           &#40; WORD &#41; hb_parnl&#40; 4 &#41;,\n                           &#40; PIP_OPTION_INFORMATION &#41; hb_parnl&#40; 5 &#41;,\n                           &#40; LPVOID &#41; hb_parc&#40; 6 &#41;,\n                           &#40; DWORD &#41; hb_parnl&#40; 7 &#41;,\n                           &#40; DWORD &#41; hb_parnl&#40; 8 &#41; &#41; &#41;;\n&#125;                           \n\nHB_FUNC&#40; INET_ADDR &#41;\n&#123;\n   hb_retnl&#40; inet_addr&#40; hb_parc&#40; 1 &#41; &#41; &#41;;\n&#125;   \n\nHB_FUNC&#40; ICMP_ECHO_REPLY &#41;\n&#123;\n   hb_retnl&#40; sizeof&#40; ICMP_ECHO_REPLY &#41; &#41;;\n&#125;   \n\n#pragma ENDDUMP \n[/code:30imfsit]','',0,'AIA=','30imfsit',1,0,'',2,0,0),(22356,5006,6,18,0,'200.67.188.236',1164217311,1,0,1,1,1,1,'','Re: facturacion','[quote=&quot;Susy&quot;:2fueihwx]Hola como estan todos ustedes, soy nueva en este foro necesito ayuda urgente y pasando mis aplicaciones de clipper a fivewin, y me quede atorada en un detalle, alguien me propociona un ejemplo de codigo fuente como capturar en una pantalla de facturacion, que me pida num factura, num cliente, y agregar detalles de articulos y cantidad y precio. \nestoy tratando de usar listbox para captura de detalles\nSu amiga Susy \nsaludos a todos los colegas[/quote:2fueihwx]\n\nmmm un detallito... podrías ser más clara en que tipo de detallito.\n\nSi lo que quieres es editar sobre el browse los registros y poder hacer validaciones y modificación con los valores de esos campos o lo que desea hacer es mostrar un dialogo y capturar todos los datos.\n\nQue versión de FiveWin estas usando ?\ny que versión de xHarbour ?\nEstas usando la clase Wbrowse original de FiveWin ?\no la clase modificada por Hernán Ceccarelli ?','',0,'gA==','2fueihwx',1,0,'',18,0,0),(22357,4975,6,2,0,'87.218.146.117',1164217435,1,0,1,1,1,1,'','','Vikthor,\n\nHaz un impdef de la DLL y asegúrate de que HBDLLENTRY() está exportada.','',0,'gA==','3oc3jfb8',1,0,'',2,0,0),(22358,5038,7,2,0,'87.218.146.117',1164217554,1,0,1,1,1,1,'','','Vikthor,\n\nQue ejemplo estás probando ?','',0,'gA==','36zay1rr',1,0,'',2,0,0),(22359,5003,7,720,0,'80.59.110.137',1164217829,1,0,1,1,1,0,'','','Hola Antonio..\n\nHe probado el codigo (ante todo muchas gracias por tu tiempo) pero efectivamente a mi tambien me devuelve cero...\n\nHe probado a aumentarle el tiempo de respuesta por si acaso fuese que intenta conectar y se la acaba el tiempo antes....pero nada\n\nHabrá que seguir probando.\n\nSaludos.\n\nElías Torres.','',0,'gA==','107trpqw',1,0,'',720,0,0),(22360,4975,6,18,0,'200.67.188.236',1164217849,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2nxsj1gs]Vikthor,\n\nHaz un impdef de la DLL y asegúrate de que HBDLLENTRY() está exportada.[/quote:2nxsj1gs]\n\nAhora si navego con bandera de ignorante, ¿ me podrías explicar que significa lo que estas sugiriendo ?','',0,'gA==','2nxsj1gs',1,0,'',18,0,0),(22361,5044,7,2,0,'87.218.146.117',1164218394,1,0,1,1,1,1,'','','Elías,\n\n&gt; ... desde la cual me traigo una tabla\n\nCómo lo haces ?','',0,'gA==','20w8jrra',1,0,'',2,0,0),(22362,4975,6,2,0,'87.218.146.117',1164218483,1,0,1,1,1,1,'','','Vikthor,\n\nimpdef.exe tutor01.def tutor01.dll\n\nMira dentro de tutor01.def (es un fichero ascii) a ver si está HBDLLENTRY.','',0,'gA==','2d1l9z9y',1,0,'',2,0,0),(22363,5042,3,2,0,'87.218.146.117',1164218631,1,0,1,1,1,1,'','','Frank-Peter,\n\noFolder:SetOption( 2 )','',0,'gA==','1k0j3t07',1,0,'',2,0,0),(22364,5038,7,18,0,'200.67.188.236',1164218836,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1jf5ckxp]Vikthor,\n\nQue ejemplo estás probando ?[/quote:1jf5ckxp]\n[code:1jf5ckxp]\n\nEsta una parte del código\n\n\nFUNCTION CONNECTNEWS&#40;&#41; \nPARAM oSocket,oStatus,oBoton1 \n nPort &#58;= 119 \n cServerIP &#58;= &quot;200&#46;67&#46;153&#46;171&quot; \n oStatus&#58;cText&#40; &quot; Conectando a &quot;+cServerIP +CRLF &#41; \n cTxt &#58;= oStatus&#58;cText \n oStatus&#58;cText&#40; cTxt+&quot; Esperando respuesta &#46;&#46;&#46;&#46;&#46;&#46;&quot;+CRLF &#41; \n oSocket   &#58;= TSocket&#40;&#41; \n oSocket&#58;New&#40; nPort &#41; \n oSocket&#58;Connect&#40; cServerIP, nPort &#41;  &lt;------- Aquí se pierde \n\noSocket&#58;bConnect &#58;= &#123; |o| NewsOn&#40;o , oStatus &#41; &#125; \noSocket&#58;bRead    &#58;= &#123; |o| NewsRead&#40;o , oStatus&#41; &#125; \n\nRETURN&#40; oSocket &#41; \n\nFUNCTION NEWSON&#40;&#41; \nPARAM oSocket,oStatus,cServerIp \ncTxt &#58;= oStatus&#58;cText \noStatus&#58;cText&#40; cTxt + &quot; Ahora estas conectado&#46; &quot;+CRLF &#41; \nRETURN \n[/code:1jf5ckxp]','',0,'gIA=','1jf5ckxp',1,0,'',18,0,0),(22365,5044,7,720,0,'80.59.110.137',1164219101,1,0,1,1,1,0,'','','Antonio,\n\nme he explicado mal. Yo lo que hago es copiar una tabla que se encuentra en una maquina aparte en el directorio de mi aplicacion para poder trabajar con ella de forma local.\n\nCOPY FILE \"\\\\maquina\\ruta\\articulos.dbf\" TO (CURDIR()+\"\\temporal.dbf\")\nCOPY FILE \"\\\\maquina\\ruta\\articulos.cdx\" TO (CURDIR()+\"\\temporal.cdx\")\n\nCon lo que ahora trabajo con la tabla temporal...\n\n\nPero claro con esto lo que estoy haciendo es copiandome toda la tabla con todos sus campos, pero lo que necesito es copiar solo algunos campos.\n\nNo se si  ahora está mejor explicado...jejeje\n\nsaludos.\n\nElías Torres.','',0,'gIA=','95bdcrql',1,0,'',720,0,0),(22366,5048,3,267,0,'200.208.238.2',1164219192,1,0,1,1,1,1,'','Problem with the File() function','Hi,\n\nThe archive \"c:\\config.sys\" exists, but File(\"c:\\config.sys\") is returning .F.\n\nFor what  ?','',0,'gIA=','333490pk',1,0,'',267,0,0),(22367,5006,6,867,0,'148.243.37.162',1164220644,1,0,1,1,1,0,'','Estoy usando Listbox','Hola corazones gracias por contestar, estoy usando fivewin vers 2.6 y xharbour 0.99.60 y nada del browse estoy usando, no tengo conocimientos de esa clase, estoy tratando de usar listbox, o que me recomiendan hacer, estoy atrancada en ese detalle lo demas no tengo ningun problema, solo cuando ya planee hacer modulo de facturacion y sus validaciones es ahi que no tengo idea de como usar el wbrowse, echenme la mano por favor un ejemplo de codigo sencillo con su validacion de campos\nSu amiga Susy ah y no puedo entrar al messenger, en la empresa donde trabajo no nos permite usar el messenger politica de la empresa\ngracias a todos y les agradecere de corazon con un codigo de ejemplo corazones\nSusy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gIA=','1tdjw03s',1,0,'',867,0,0),(22368,5042,3,382,0,'80.140.236.18',1164221914,1,0,1,1,1,1,'','','Gracias Antonio','',0,'gIA=','1hgkutqp',1,0,'',382,0,0),(22369,5003,7,720,0,'80.59.110.137',1164222925,1,0,1,1,1,0,'','','Hola Antonio...\n\nPor fin lo he solucionado. Te pongo el codigo para que le heches un vistazo y de paso por si le sirve a alguien..\n\n\nfunction main()\nlocal IcmpHandle,Replicas\nlocal DestinationAddress:=\"192.168.0.31\",;\n      RequestData:=\"Esto es un ping\",;\n      RequestSize:=15,;\n      RequestOptions:=\"\",;\n      ReplyBuffer:=space(278),;\n      ReplySize:=278,;\n      Timeout:=1000 &amp;&amp; Milisegundos de espera\n\n*---\nIcmpHandle:=IcmpCreateFile()\nReplicas:=IcmpSendEcho(IcmpHandle,;\n                       inet_addr(DestinationAddress),;\n                       RequestData,;\n                       RequestSize,0,;\n                       ReplyBuffer,;\n                       ReplySize,;\n                       Timeout)\n\nIcmpCloseHandle(IcmpHandle)\n*---\nif Replicas&gt;0\n   msginfo(\"La máquina \"+alltrim(DestinationAddress)+\" EXISTE\")\nelse\n   msginfo(\"La máquina \"+alltrim(DestinationAddress)+\" NO existe\")\nendif\nreturn nil\n\n#pragma BEGINDUMP \n\n#include &lt;windows.h&gt; \n#include &lt;icmpapi.h&gt; \n#include &lt;winsock.h&gt; \n#include &lt;hbapi.h&gt; \n\nHB_FUNC( ICMPCREATEFILE ) \n{ \n   hb_retnl( ( LONG ) IcmpCreateFile() ); \n} \n\nHB_FUNC( ICMPCLOSEHANDLE ) \n{ \n   hb_retl( IcmpCloseHandle( ( HANDLE ) hb_parnl( 1 ) ) ); \n} \n\nHB_FUNC( ICMPSENDECHO ) \n{ \n   hb_retnl( IcmpSendEcho( ( HANDLE ) hb_parnl( 1 ), \n                           ( IPAddr ) hb_parnl( 2 ), \n                           ( LPVOID ) hb_parc( 3 ), \n                           ( WORD ) hb_parnl( 4 ), \n                           ( PIP_OPTION_INFORMATION ) hb_parnl( 5 ), \n                           ( LPVOID ) hb_parc( 6 ), \n                           ( DWORD ) hb_parnl( 7 ), \n                           ( DWORD ) hb_parnl( 8 ) ) ); \n}                            \n\nHB_FUNC( INET_ADDR ) \n{ \n   hb_retnl( inet_addr( hb_parc( 1 ) ) ); \n}    \n\nHB_FUNC( ICMP_ECHO_REPLY ) \n{ \n   hb_retnl( sizeof( ICMP_ECHO_REPLY ) ); \n}    \n\n#pragma ENDDUMP \n\n\nSaludos y gracias por la ayuda...\n\nElías Torres.','',0,'gIA=','27laxdda',1,0,'',720,0,0),(22371,5048,3,289,0,'82.167.47.100',1164224349,1,0,1,1,1,0,'','','Hi vilian.\nuse \n....\nlocal ret:=.f.\nret:=File(\"c:\\config.sys\") \nif ret=.t.\n?\"ok true\"\nelse\n?\" bad  false\" \nendif\nregards. \nhathal.','',0,'gIA=','yos7j4iy',1,0,'',289,0,0),(22372,5036,1,418,0,'83.156.146.214',1164225346,1,0,1,1,1,0,'','','I didn\'t work  (with \"27\" )\nI have the runtime error\n\nError description: Error FiveWin/3  Cannot create Dialog Box: \nResource: 27\n\n\nAnd what i don\'t understand is why it don\'t work when i call it first  and work fine when i call it after any other function????','',0,'gIA=','9oeymgeo',1,0,'',418,0,0),(22373,5006,6,396,0,'201.210.115.249',1164226339,1,0,1,1,1,1,'','','Susy un dato para conectarte con el mundo sin tene messenger, visita <!-- w --><a class=\"postlink\" href=\"http://www.e-messenger.net\">www.e-messenger.net</a><!-- w --> alli puedes conectarte a hotmail, yahoo y aol, espero te sirva y si puedes y te envian algo de lo de facturacion mucho te agradeceria si me puedes enviar una copia, estoy en algo parecido a ver en que nos ayudamos, gracias, saludos y un beso desde Venezuela.','',0,'gIA=','2u5oopvz',1,0,'',396,0,0),(22374,5040,7,598,0,'200.11.139.61',1164226399,1,0,1,1,1,1,'','','si nos dices el error que te marca te podemos ayudar mejor ...  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'gIA=','1vkq4kbu',1,0,'',598,0,0),(22375,5049,6,743,0,'200.79.46.141',1164228700,1,0,1,1,1,0,'','twbrowse','si alguien tiene el conocimiento para saber cual es la funcion del la clase twbrowse que me de las cordenadas o pinte el browse para poder dimensionarlo lo trabajo por medio de un recurso RC, le agradesco\n\n\n\n\n\n\nAntonio','',0,'gIA=','2laeiwg2',1,0,'',743,0,0),(22376,5006,6,18,0,'200.67.188.236',1164228828,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:q1o40ltn]Susy un dato para conectarte con el mundo sin tene messenger, visita <!-- w --><a class=\"postlink\" href=\"http://www.e-messenger.net\">www.e-messenger.net</a><!-- w --> alli puedes conectarte a hotmail, yahoo y aol, espero te sirva y si puedes y te envian algo de lo de facturacion mucho te agradeceria si me puedes enviar una copia, estoy en algo parecido a ver en que nos ayudamos, gracias, saludos y un beso desde Venezuela.[/quote:q1o40ltn]\n\nHace poco más de 4 años liberé el fuente de una solución similar a la que necesitan, la puedn buscar en el foro anterior de FiveWin y si no la encuentran se las envío a su correo personal.','',0,'gA==','q1o40ltn',1,0,'',18,0,0),(22377,5049,6,18,0,'200.67.188.236',1164229121,1,0,1,1,1,1,'','Re: twbrowse','[quote=&quot;tomafa&quot;:3r9qwd7m]si alguien tiene el conocimiento para saber cual es la funcion del la clase twbrowse que me de las cordenadas o pinte el browse para poder dimensionarlo lo trabajo por medio de un recurso RC, le agradesco\n\n\n\n\n\n\nAntonio[/quote:3r9qwd7m]\n\nAntonio , no me quedó clara la necesidad que tienes con el uso de la clase WBrowse.\n\nPodrías ser más especifico en tu problema.\n\nTratando de darme una idea con lo que pides, si estas trabajando con recursos, no necesitas la ubicación de ningún control, debido a que los controles ya están diseñados previamente por tí con el editor de recursos, en todo caso lo que tienes que usar es el comando:\n\nREDEFEINE bla.bla.bla.bla','',0,'gA==','3r9qwd7m',1,0,'',18,0,0),(22378,5046,6,18,0,'200.67.188.236',1164229347,1,0,1,1,1,1,'','Re: Clase para creación vista e impresión de graficos','[quote=&quot;jose_murugosa&quot;:2evljvki]Hola a todos,\n\nAparentemente las clases que he encontrado en mi directorio de FWH que crean gráficos parecen ser para Clipper.\n\nAlguien podría orientarme para encontrar una clase nativa de FWH o gratuita, o paga de última que tenga esta utilidad y que funcione con xHarbour?\n\nGracias desde ya.[/quote:2evljvki]\n\nJosé :\n\nTienes varias opciones.\n\nIncluida en FWH está la clase TGraph de Alfredo Artega\n\nOtra opción es TGraph modificada por Arturo Macías\nTambién tienes disponible TChartFX escrita por mi.\nOtra opción podría ser el uso de RMCHart con Activex\n\nCómo ves tienes una amplia baraja de opciones.','',0,'gA==','2evljvki',1,0,'',18,0,0),(22379,5046,6,439,0,'200.125.47.143',1164229636,1,0,1,1,1,1,'','Re: Clase para creación vista e impresión de graficos','[quote=&quot;Vikthor&quot;:9s8hbwvk][quote=&quot;jose_murugosa&quot;:9s8hbwvk]Hola a todos,\n\nAparentemente las clases que he encontrado en mi directorio de FWH que crean gráficos parecen ser para Clipper.\n\nAlguien podría orientarme para encontrar una clase nativa de FWH o gratuita, o paga de última que tenga esta utilidad y que funcione con xHarbour?\n\nGracias desde ya.[/quote:9s8hbwvk]\n\nJosé :\n\nTienes varias opciones.\n\nIncluida en FWH está la clase TGraph de Alfredo Artega\n\nOtra opción es TGraph modificada por Arturo Macías\nTambién tienes disponible TChartFX escrita por mi.\nOtra opción podría ser el uso de RMCHart con Activex\n\nCómo ves tienes una amplia baraja de opciones.[/quote:9s8hbwvk]\n\nVikthor,\n\nTChartFX funciona con FWH y xHarbour?\nDonde puedo bajar la versión más reciente? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','9s8hbwvk',1,0,'',439,0,0),(22380,5045,3,439,0,'200.125.47.143',1164229769,1,0,1,1,1,1,'','Thanks!!!!','Thank you very much,\n\nIm trying it, Your example works perfectly.\n\nThanks for your quick response.','',0,'gA==','1h6r28pr',1,0,'',439,0,0),(22381,5046,6,18,0,'200.67.188.236',1164229860,1,0,1,1,1,1,'','Re: Clase para creación vista e impresión de graficos','[quote=&quot;jose_murugosa&quot;:sp1ukbnm][quote=&quot;Vikthor&quot;:sp1ukbnm][quote=&quot;jose_murugosa&quot;:sp1ukbnm]Hola a todos,\n\nAparentemente las clases que he encontrado en mi directorio de FWH que crean gráficos parecen ser para Clipper.\n\nAlguien podría orientarme para encontrar una clase nativa de FWH o gratuita, o paga de última que tenga esta utilidad y que funcione con xHarbour?\n\nGracias desde ya.[/quote:sp1ukbnm]\n\nJosé :\n\nTienes varias opciones.\n\nIncluida en FWH está la clase TGraph de Alfredo Artega\n\nOtra opción es TGraph modificada por Arturo Macías\nTambién tienes disponible TChartFX escrita por mi.\nOtra opción podría ser el uso de RMCHart con Activex\n\nCómo ves tienes una amplia baraja de opciones.[/quote:sp1ukbnm]\n\nVikthor,\n\nTChartFX funciona con FWH y xHarbour?\nDonde puedo bajar la versión más reciente? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:sp1ukbnm]\n\nMi dominio tiene problemas así que de momento no la puedo subir a vikthor.com.mx , sin embargo dime a que e-mail te la envío. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','sp1ukbnm',1,0,'',18,0,0),(22382,5046,6,439,0,'200.125.47.143',1164229955,1,0,1,1,1,1,'','Re: Clase para creación vista e impresión de graficos','[quote=&quot;Vikthor&quot;:1ez0jhjq][quote=&quot;jose_murugosa&quot;:1ez0jhjq][quote=&quot;Vikthor&quot;:1ez0jhjq][quote=&quot;jose_murugosa&quot;:1ez0jhjq]Hola a todos,\n\nAparentemente las clases que he encontrado en mi directorio de FWH que crean gráficos parecen ser para Clipper.\n\nAlguien podría orientarme para encontrar una clase nativa de FWH o gratuita, o paga de última que tenga esta utilidad y que funcione con xHarbour?\n\nGracias desde ya.[/quote:1ez0jhjq]\n\nJosé :\n\nTienes varias opciones.\n\nIncluida en FWH está la clase TGraph de Alfredo Artega\n\nOtra opción es TGraph modificada por Arturo Macías\nTambién tienes disponible TChartFX escrita por mi.\nOtra opción podría ser el uso de RMCHart con Activex\n\nCómo ves tienes una amplia baraja de opciones.[/quote:1ez0jhjq]\n\nVikthor,\n\nTChartFX funciona con FWH y xHarbour?\nDonde puedo bajar la versión más reciente? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:1ez0jhjq]\n\nMi dominio tiene problemas así que de momento no la puedo subir a vikthor.com.mx , sin embargo dime a que e-mail te la envío. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1ez0jhjq]\n\nGracias Vikthor\n\n<!-- e --><a href=\"mailto:Jmurugosa@yahoo.com\">Jmurugosa@yahoo.com</a><!-- e -->','',0,'gA==','1ez0jhjq',1,0,'',439,0,0),(22383,5008,6,63,0,'84.77.241.10',1164230942,1,0,1,1,1,0,'','','Paco:\nNo tenía ni idea de que existiesen estas funciones.  Las probaré y ya te diré algo.  Entretanto, muchas gracias!\nRafael','',0,'gA==','3ixpx761',1,0,'',63,0,0),(22384,5003,7,2,0,'87.218.146.117',1164233812,1,0,1,1,1,1,'','','Elías,\n\nEstupendo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPor lo visto era una cuestión de los parámetros a usar.','',0,'gA==','27wstyxf',1,0,'',2,0,0),(22385,5050,6,203,0,'201.217.109.91',1164236823,1,0,1,1,1,1,'','REPORTES CON TDOSPRN','Hola Amigos de foro\nMi problema es el siguiente he creado reportes con tdosprn\ngeneré reportes que los cuadre en una impresora LX-300, al utilizar el programa con otra impresora ya sea inyección o laser, los informes se dañan completamente o aumentan desproporcinadamente el tamaño de la letra y lo cotrario, agradeceria algún comentario.\n\n\n\nSaludos\nOscar','',0,'gA==','euj2j1uu',1,0,'',203,0,0),(22386,5049,6,743,0,'200.79.46.141',1164236862,1,0,1,1,1,0,'','','gracias vikthor por la respuesta, me es dificil explicar lo que quiero, lo explico rapido, tengo un browse en donde desplego informacion, el detalle es que quiero eliminar un espacio que me pinta en blanco, se pintan todos los registros pero al final se queda un espacio no se dimenciona hasta el borde del browse, es por eso que preguntaba esto\n\n\nsaludos','',0,'gA==','35v68xc6',1,0,'',743,0,0),(22387,5036,1,2,0,'87.218.146.117',1164241243,1,0,1,1,1,1,'','','Please post the resource code for that dialog, thanks\n\nIs it a browse what you have in the dialogbox resource ?','',0,'gA==','2zk1avze',1,0,'',2,0,0),(22388,5051,3,49,0,'62.13.172.78',1164241785,1,0,1,1,1,1,'','zipfiles','I tryed to compile testuzip.prg\nbut it make errors\nI also insert into file batch hbzip.lib  but the compilation not  found these functions\n \n[code:1inbbykx]\n&#91;1&#93;&#58;iLink32&#46;Exe -Gn -aa -Tpe -s @testuzip&#46;bcl\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_UNZIPFILE\' referenced from C&#58;\\WORK\\FWH\\SAMPLES\\OBJ\\TESTUZIP&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_ISZIP\' referenced from C&#58;\\WORK\\FWH\\SAMPLES\\OBJ\\TESTUZIP&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_GETFIRSTINZIP\' referenced from C&#58;\\WORK\\FWH\\SAMPLES\\OBJ\\TESTUZIP&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_GETNEXTINZIP\' referenced from C&#58;\\WORK\\FWH\\SAMPLES\\OBJ\\TESTUZIP&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_CLOSEZIPFILE\' referenced from C&#58;\\WORK\\FWH\\SAMPLES\\OBJ\\TESTUZIP&#46;OBJ\n[/code:1inbbykx]\n\nHow I can compile it ?','',0,'AIA=','1inbbykx',1,0,'',49,0,0),(22389,5049,6,18,0,'200.67.153.171',1164243453,1,0,1,1,1,1,'','','[quote=&quot;tomafa&quot;:2ek6w1vp]gracias vikthor por la respuesta, me es dificil explicar lo que quiero, lo explico rapido, tengo un browse en donde desplego informacion, el detalle es que quiero eliminar un espacio que me pinta en blanco, se pintan todos los registros pero al final se queda un espacio no se dimenciona hasta el borde del browse, es por eso que preguntaba esto\n\n\nsaludos[/quote:2ek6w1vp]\n\nAsi más claro ni el agua.\n\nEso resuelve indicando en una variable de instancia de la clase wBrowse que la ultima fila se \"alargue\" hasta el borde el browse.\n\nRevisa el codigo fuente de la clase y encontraras esa variable.','',0,'gA==','2ek6w1vp',1,0,'',18,0,0),(22390,5049,6,743,0,'200.67.230.223',1164244129,1,0,1,1,1,0,'','','gracias\n\npero cuales si no te molesta decirme','',0,'gA==','2wqbctan',1,0,'',743,0,0),(22391,4975,6,18,0,'200.67.153.171',1164244488,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1tpsfjqv]Vikthor,\n\nimpdef.exe tutor01.def tutor01.dll\n\nMira dentro de tutor01.def (es un fichero ascii) a ver si está HBDLLENTRY.[/quote:1tpsfjqv]\n\nAntonio :\n\nHice lo que me sugeriste y no esta contenida HBDLLENTRY. dentro de tutor01.dll\n[code:1tpsfjqv]\nLIBRARY     TUTOR01&#46;DLL\n\nEXPORTS\n    _WndFrameProc                  @1   ; _WndFrameProc\n    __DbgWndProc                   @3   ; __DbgWndProc\n    __WndProc                      @2   ; __WndProc\n    ___CPPdebugHook                @4   ; ___CPPdebugHook\n[/code:1tpsfjqv]','',0,'gIA=','1tpsfjqv',1,0,'',18,0,0),(22392,5032,6,496,0,'200.107.36.176',1164246176,1,0,1,1,1,0,'','','Hola José Luis.\n\nLo que sucede es que estás usando una sentencia de tcbrowse.\n\nEl código correcto para el wbrowse de Hernán es:\n\n@10,10 listbox olbx Fields alias-&gt;campo1, alias-&gt;campo2;\n                         headers \"titulo1\",\"titulo2\";\n                         fieldsizes 10,40;\n 	         of oDlg size 150,55 \n\nUn saludo\n\nMarcelo Jingo','',0,'gIA=','5qumpgv1',1,0,'',496,0,0),(22393,5052,3,222,0,'201.243.187.168',1164247402,1,0,1,1,1,0,'','JPG in resources','Any way to store JPG images in resources?\n\nThanks','',0,'gIA=','2adrdawx',1,0,'',222,0,0),(22394,4867,6,865,0,'201.151.102.71',1164250678,1,0,1,1,1,0,'','Clase Tdwg para programar info de y hacia autocad','Hola Arturo,\n\nCon tu clase tDwg o parte de ella ( o con tu apoyo ) podría programar desde fivewin para resolver lo siguiente:\n\nNecesito leer los atributos del bloque del pie de plano para despues leer de una base de datos por ejemplo descripción del plano, fecha de elaboración, temperatura, presion, dibujante, etc. etc. etc. y regresarlos al mismo archivo autocad, salvarlo y cerralo.\n\nMe podrias orientar con que info pudiera lograrlo ?\n\nGracias mil\nGraciano Tecuanhuey\nSaludos desde Mexico','',0,'gIA=','1gf5ahuo',1,0,'',865,0,0),(22395,5053,6,66,0,'200.127.77.14',1164251809,1,0,1,0,1,0,'','Tsbutton y Tsbrowse  con fwh27 (dic2005) y xharbour .99.51','Estimados Colegas\n\nAlguien tiene tsbutton y tsbrowse para fwh27 build diciembre de 2005\ny xharbour .99 .51 compiladas o algun bat para hacerlo \n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gIA=','3q7wgyp2',1,0,'',66,0,0),(22396,5020,3,397,0,'201.13.88.28',1164252265,1,0,1,0,1,1,'','','Amiguinho\n\nI understand now. External file is your best way.\n\nBye','',0,'gIA=','db0km6ge',1,0,'',397,0,0),(22397,5049,6,439,0,'200.125.50.153',1164252822,1,0,1,1,1,1,'','','[quote=&quot;tomafa&quot;:r5272dvj]gracias\n\npero cuales si no te molesta decirme[/quote:r5272dvj]\n\nPerdón que me meta, pero quisiera saber si el espacio en blanco que deseas corregir es a la derecha del browse o se produce abajo.\nSi es a la derecha del browse la variable que se menciona es:\n\noLbx:lAdjLastCol:= .F.  //.t. estira ultima columna a tamaño del control .f. no lo hace\n\nSi es abajo, (he visto post en el foro sobre ese espacio) no se como resolverlo, pero en 3d se ve más prolijo.\n    	oLbx:Set3DStyle()','',0,'gA==','r5272dvj',1,0,'',439,0,0),(22398,5036,1,418,0,'91.163.255.182',1164262928,1,0,1,1,1,0,'','','27 DIALOG 0, 0, 530, 315\nSTYLE DS_MODALFRAME | DS_3DLOOK | DS_CONTEXTHELP | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME\nFONT 8, \"MS Sans Serif\"\n{\n CONTROL \"\", 101, \"TWBROWSE\", 0 | WS_CHILD | WS_VSCROLL | WS_HSCROLL | WS_BORDER | WS_VISIBLE, 10, 20, 510, 260\n CONTROL \"\", 102, \"button\", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE, 95, 290, 50, 14\n CONTROL \"\", 103, \"button\", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE, 240, 290, 50, 14\n CONTROL \"Quitter\", 104, \"button\", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 385, 290, 50, 14\n}\n\n\n\nYou see it is a very simple dialog  from general use\nI use it in many functions and it work without problem in the other\n\nI use an rc file which is linked in the *.exe','',0,'gA==','14x1wiss',1,0,'',418,0,0),(22399,5051,3,28,0,'87.218.46.164',1164262983,1,0,1,1,1,0,'','','Hello Silvio\n\nSee you this link\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4677&amp;highlight=litezip\">http://fivetechsoft.com/forums/viewtopi ... ht=litezip</a><!-- m -->\n\nI make the wraper to two dlls\n\nA greeting','',0,'gA==','rdbz9an9',1,0,'',28,0,0),(22400,5036,1,2,0,'87.218.146.117',1164267934,1,0,1,1,1,1,'','','Patili,\n\nChange this:\n\nredefine listbox l1 id 101 of pa \n\ninto:\n\nredefine listbox l1 FIELDS id 101 of pa','',0,'gA==','59q3lebj',1,0,'',2,0,0),(22401,4975,6,2,0,'87.218.146.117',1164268246,1,0,1,1,1,1,'','','Vikthor,\n\nEse es el problema, por eso no te funciona, porque no está exportada la función HBDLLENTRY.\n\nEstás usando xHarbour ? Revisa xharbour\\source\\vm\\maindll.c y comprueba que tienes esto:\n[code:3df5el1r]\nLONG HB_EXPORT PASCAL HBDLLENTRY&#40; char * cProcName &#41;\n&#123;\n   hb_itemDoC&#40; cProcName, 0, 0 &#41;;\n\n   return 0;\n&#125;\n[/code:3df5el1r]\nObserva que usa HB_EXPORT por lo que finalmente debería aparecer en el fichero DEF. Mientras no aparezca, no te funcionará.','',0,'AIA=','3df5el1r',1,0,'',2,0,0),(22402,5032,6,838,0,'80.34.222.112',1164269405,1,0,1,1,1,0,'','','Gracias Marcelo.\n\nEs que me lio.\n\nUn saludo\n\nJose Luis','',0,'AIA=','23uny1oh',1,0,'',838,0,0),(22403,5052,3,2,0,'87.218.146.117',1164270095,1,0,1,1,1,1,'','','César,\n\nIn your RC:\n\n#define RCDATA 10\nname RCDATA \"YourJpeg.JPEG\"\n\nFrom your application:\n\n#define RT_RCDATA  MAKEINTRESOURCE(10)\nlocal hRes := FindResource( GetResources(), \"name\", RT_RCDATA )\nlocal hGlobal := LoadResource( GetResources(), hRes )\n\nNow we have the JPEG in memory, next is to convert it into a hBitmap. We still don\'t know how <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'AIA=','2pyofd1z',1,0,'',2,0,0),(22404,5049,6,2,0,'87.218.146.117',1164270988,1,0,1,1,1,1,'','','Varia la altura del browse con oBrowse:nHeight = &lt;nValor&gt;','',0,'AIA=','qike0g49',1,0,'',2,0,0),(22405,4981,3,707,0,'222.124.20.50',1164271859,1,0,1,1,1,0,'','','Hi All\n\nI think HATHAL don\'t have for this class with stand alone source code.\n\nBut I used freeimage.dll for view any image.\n\n\nAreang','',0,'AIA=','1a8u45yh',1,0,'',707,0,0),(22406,5054,3,707,0,'222.124.20.50',1164274045,1,0,1,1,1,0,'','texplorer bar class','Hi All !\n\n[img:3meet4j9]http&#58;//planetsourcecode&#46;com/Upload_PSC/ScreenShots/PIC2004621221246286&#46;jpg[/img:3meet4j9]\n\nVb source code :\n[url:3meet4j9]http&#58;//planetsourcecode&#46;com/vb/scripts/ShowCode&#46;asp?txtCodeId=53572&amp;lngWId=1[/url:3meet4j9]\n\nCan you help me ? Please translate to fivewin.\n\nbest regard\nareang','',0,'GA==','3meet4j9',1,0,'',707,0,0),(22407,5054,3,707,0,'222.124.20.50',1164274464,1,0,1,1,1,0,'','','Vb source code for explorer bar :\n\n[url:1m8xf5pa]http&#58;//planetsourcecode&#46;com/vb/scripts/ShowCode&#46;asp?txtCodeId=61899&amp;lngWId=1[/url:1m8xf5pa]\n\nPlease translate to fivewin\n\nThank\'s\nareang','',0,'EA==','1m8xf5pa',1,0,'',707,0,0),(22408,5055,3,707,0,'222.124.20.50',1164275098,1,0,1,1,1,0,'','rotate image','Hi All !\n\nto rotate image\n\n[img:3r2y9ih2]http&#58;//planetsourcecode&#46;com/Upload_PSC/ScreenShots/PIC200412225113070&#46;jpg[/img:3r2y9ih2]\n\nVB Source code :\n[url:3r2y9ih2]http&#58;//planetsourcecode&#46;com/vb/scripts/ShowCode&#46;asp?txtCodeId=51162&amp;lngWId=1[/url:3r2y9ih2]\n\nThis is Window API function.\nPlease translate to fivewin.\n\nThank\'s\nAreang','',0,'GA==','3r2y9ih2',1,0,'',707,0,0),(22409,5049,6,439,0,'200.125.34.139',1164276759,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:11x0janc]Varia la altura del browse con oBrowse:nHeight = &lt;nValor&gt;[/quote:11x0janc]\n\nGracias Master Antonio.','',0,'gA==','11x0janc',1,0,'',439,0,0),(22410,5056,6,456,0,'62.43.194.117',1164282223,1,0,1,1,1,1,'','ADO AddNew','Hola  a todos.\nHace unas semanas he empezado a trabajar con ADO, tengo una duda (bueno tengo mas de una). \nEstoy visualizando un recordset con un txbrowse, dicho recordset por su naturaleza no me permite ejecutar AddNew.\n\nCual seria la manera mas eficiente y comoda para realizar un alta.\n1.- Ejecutar un insert con el metodo Execute del objeto connection.\n2.- Lo mismo que antes pero con el objeto command\n3.-Crear otro recordset con solo los campos de la tabla en cuestion y me permita hacer AddNew. Esta segunda parece mas comoda, pero que source le pongo, si realmente no me interesa me recupere ningun registro¿?. O puedo poner el cursor en el lado del cliente y asi no descarga registros ?¿ o ...?¿\n4.- ...\n\nPlease opiniones de los expertos, gracias anticipadas.','',0,'gA==','1yixmi36',1,0,'',456,0,0),(22411,5036,1,418,0,'91.163.255.182',1164283287,1,0,1,1,1,0,'','','Yeah\nit work very well\nSo i understand that the error  occurs because i have not defined the fields.\nIn fact it was the first time that i test the dialog before  completing it.\nThanks','',0,'gA==','185e53yr',1,0,'',418,0,0),(22412,5036,1,2,0,'87.218.146.117',1164284518,1,0,1,1,1,1,'','','Patili,\n\n&gt; So i understand that the error occurs because i have not defined the fields.\n\nIf you don\'t use the FIELDS clause then you are building a listbox instead of a browse, and in your RC you have defined a browse.','',0,'gA==','2gmpnv3m',1,0,'',2,0,0),(22413,5039,2,375,0,'84.122.58.220',1164286100,1,0,1,1,1,1,'','','La funcion está muy bien, pero tendràs que ponerle un limite a la recursividad para que no se ejecute indefinidamente, (varios miles de veces por segundo)\n\nPor ejemplo:\n\nIF n &lt; 31\nTest(n)\nENDIF\nRETURN (n)\n\nAdemás, a cada vez que entras te crea el PARAM n (unos pocos de miles), mucho uso de memoria.\nPorqué no creas una sola varable \"n\" y la pasa por referencia. O una variable PUBLICa que no tiene que pasar ni por parámetro ni nada. Mucho ahorro de memoria y la recursividad puede ser indefinida sin aumentar la memoria (creo que ahí está tu problema).\n\nUn saludo.','',0,'gA==','2evh4xs9',1,0,'',375,0,0),(22414,5036,1,418,0,'91.163.255.182',1164287370,1,0,1,1,1,0,'','','Thanks   very clear','',0,'gA==','148yahn6',1,0,'',418,0,0),(22415,4959,6,295,0,'201.246.147.94',1164287647,1,0,1,1,1,1,'','','Antonio,\n\nDisculpa mi ingnorancia pero como implemento esto, El timer es una clase ? viene con FWH?\n\nGracias de antemano, por tus comentarios','',0,'gA==','1u08wff1',1,0,'',295,0,0),(22416,4981,3,49,0,'213.82.134.66',1164291838,1,0,1,1,1,1,'','','No he has the source code ...\nhe sent the source code to me and I \'m studying it','',0,'gA==','s03vnjyo',1,0,'',49,0,0),(22417,4959,6,49,0,'213.82.134.66',1164291963,1,0,1,1,1,1,'','','yes there is a class','',0,'gA==','olewukaz',1,0,'',49,0,0),(22418,4867,6,49,0,'213.82.134.66',1164292039,1,0,1,1,1,1,'','','if you go to the website of Arthuro you can download tdwg class ....','',0,'gA==','gslnqzt4',1,0,'',49,0,0),(22419,5054,3,49,0,'213.82.134.66',1164292216,1,0,1,1,1,1,'','','YOU MUST USE Vtaskbar CLASS  of Canalfive  FOR IT\n\nsend a message to <!-- e --><a href=\"mailto:Paco@canalfive.com\">Paco@canalfive.com</a><!-- e -->','',0,'gA==','1f00lka1',1,0,'',49,0,0),(22420,4959,6,362,0,'200.168.52.156',1164292358,1,0,1,1,1,1,'','','Cronometro:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=1488\">http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=1488</a><!-- m -->','',0,'gA==','o47ma3a0',1,0,'',362,0,0),(22421,5051,3,49,0,'213.82.134.66',1164292368,1,0,1,1,1,1,'','','Paco thanks but I have this old program and I want use it \n\nAntonio,\nI have compiled also testunzip.prg  of fwh  and I insert hbzip on batch compilation \n\nthe procedure not compile it and it make errors','',0,'gA==','3jjggc0t',1,0,'',49,0,0),(22422,5057,6,36,0,'200.113.56.235',1164292427,1,0,1,1,1,0,'','TGET','Estimados\n\n[b:2gcq59ws]Como puedo dejar los get inactivos con color gris y no blanco como salen[/b:2gcq59ws]\n\nREDEFINE GET aGet[id_numcot-20,1]				  ;\n			VAR _numcot					  ;\n			ID id_numcot OF oDlg UPDATE		  ;\n			COLOR CLR_BLACK, RGB(255,255,200)  ;\n			PICTURE \"9999999999\"                                          ;\n			VALID vCotiza( aGet, oLbx, aButton[1], oSay, cOpcion );  		        WHEN cOpcion &lt;&gt; \"I\"\n\n\nhe cambiado este variable de instancia pero sale de color blanco el fondo?\naGet[id_numcot-20,1]:lDisColors := .t.\n\nsi le coloco .f. este sale igual que los otros controles\n\n[url:2gcq59ws]http&#58;//img364&#46;imageshack&#46;us/my&#46;php?image=pasotn4&#46;jpg[/url:2gcq59ws]\n\ndesde ya gracias\n\nSaludos\nPatricio','',0,'UA==','2gcq59ws',1,0,'',36,0,0),(22423,5040,7,832,0,'201.122.21.224',1164292486,1,0,1,1,1,0,'','','EN ESTE FRAGMENTO DE CODIGO, ES DONDE  SE VA AL ERROR, ADEMAS NO SE COMO SABER CUANDO SE CONECTA AL SERVICIO DE FTP O QUE VALOR  ME DA...\n\nFUNCTION Enviar()\n    LOCAL nRet\n    LOCAL hInternet, hConnect\n    hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )\n    hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )\n    //hConnect = INTERNETCONNECT(0, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )\n    msginfo(hConnect )\n    IF FTPPUTFILE( hConnect, rtrim(loc_archivo), rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 )\n       nRet:=0\n       msgalert(\"enviado\")\n   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   ELSE\n       nRet:=GetLAstError() //AQUIE ES EN DONDE ENTRA\n       msgalert(\"error\")\n    ENDIF\n    INTERNETCLOSEHANDLE( hConnect )\n    INTERNETCLOSEHANDLE( hInternet )\nRETURN nRet','',0,'UA==','36av5n01',1,0,'',832,0,0),(22424,5058,7,832,0,'201.122.21.224',1164292788,1,0,1,1,1,0,'','COMO IMPRIMIR EN CITIZEN','TENGO UNA PEQUEÑA DUDA, NO SE COMO HACER PARA QUE PUEDA IMPRIMIR EN UNA IMPRESORA CITIZEN CMP-10 DESDE EL EMULADOR DE POCKET PC..\n\n\n\nNECESITO ALGUN CABLE O LA MAQUINA DE PRUEBAS DEBE DE TENER BLUETOTH.\n\n\nALGUIEN ME PODRIA AYUDAR...........','',0,'UA==','3nw3leqr',1,0,'',832,0,0),(22425,5006,6,867,0,'148.243.37.162',1164294964,1,0,1,1,1,0,'','Hola Vikthor','Hola corazon no encontre en el foro de fivewin el codigo fuente que usted libero me la puede enviar a mi correo por favor corazon\nYa me urge mucho empezar y por mas que le intento no le hayo \n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->\nSusy su amiga ayuda por favor','',0,'UA==','2xoztvq7',1,0,'',867,0,0),(22426,5059,6,362,0,'200.168.52.156',1164294991,1,0,1,1,1,1,'','Un Relog(Relógio)','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=698\">http://www.fivewin.com.br/exibedicas.asp?id=698</a><!-- m -->','',0,'UA==','2px1j8dx',1,0,'',362,0,0),(22427,4981,3,289,0,'82.167.47.100',1164295312,1,0,1,1,1,0,'','','Yes, I have many sources.\nBut the amendment of transcription little difficult to Borland\nI Am end work  many of From  More Function \nFor more had used such as\nRapi &amp; cximage saveimage bmp &amp;Jpg Gif &amp; Tif &amp;Pcx &amp; Tga\nAll source  Up To lib without DLL, working %100 Now With FWH But More In Testing\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\nDownload test Cximage With FWH  From <!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/fwh/HPIC_T.ZIP\">http://www.livesystem.net/fwh/HPIC_T.ZIP</a><!-- m --> \nregards, \nHathal.','',0,'UA==','2lhmsg35',1,1164296992,'',289,1,0),(22428,4981,3,49,0,'213.82.134.66',1164296261,1,0,1,1,1,1,'','','HATHAL,\nI write to your private email ! please see it','',0,'UA==','2kfv1zuo',1,0,'',49,0,0),(22429,5055,3,49,0,'213.82.134.66',1164296904,1,0,1,1,1,1,'','','you must use the utility of thefull : class Tcanvas','',0,'UA==','27eystj7',1,0,'',49,0,0),(22430,5060,7,720,0,'80.59.110.137',1164299324,1,0,1,1,1,0,'','Conexiones ADO','Hola a todos....\n\nTengo una duda, ¿se puede establecer conexiones ado para pocket pc?. Lo digo porque creo que he visto un post del amigo Rene diciendo que para pocket no se puede....\n\nEs que lo que pretendo es conectarme a un equipo para traerme una tabla y pasarle en la conexion el nombre de usuario y la contraseña, para no tener que escribirla sino que sea automática.\n\n\nAlguien puede informarme si esto es correcto.??\n\n\nSaludos.\n\nElías Torres.','',0,'UA==','5hn2556u',1,0,'',720,0,0),(22432,4959,6,2,0,'87.218.146.117',1164299991,1,0,1,1,1,1,'','','Luis,\n\nRevisa samples\\TestTime.prg','',0,'UA==','38ih036s',1,0,'',2,0,0),(22433,5051,3,2,0,'87.218.146.117',1164300058,1,0,1,1,1,1,'','','Silvio,\n\nFW 16 bits ZIP functions are not available in FWH, because we were using an external library that its not available for 32 bits.','',0,'UA==','2mjw2may',1,0,'',2,0,0),(22434,5054,3,810,0,'84.172.60.110',1164300503,1,0,1,1,1,0,'','Paco','I send him a lot of Emails and never get an answer\n\nIm looking fir Vtaskbar tooooo','',0,'UA==','f2oh5mw5',1,0,'',810,0,0),(22435,5054,3,785,0,'190.64.109.122',1164300701,1,0,1,1,1,0,'','','Uwe:\n\nMr. RF is a Canal Five reseller\nContat him by email.\nHe tell us here about it.\n\n(Sorry for my bad English)\n\nBest Regards\n\nRuben Fernandez','',0,'UA==','s807q003',1,0,'',785,0,0),(22436,5051,3,49,0,'213.82.134.66',1164301142,1,0,1,1,1,1,'','','good Mr Linares,\ni want use 32 bit code... but\n\nI have try to compile  your   testzip.prg and testuzip.prg  \n\nthese files are in fwh\\samples directory\n\nI use into batch file also hbzip.lib  \n\nI need these functions\n\niszip()\ngetfirstinzip()\ngetnextinzip()\nclosezipfile()\nunzipfile()\n\n\nCan you explain me How I can use it ?','',0,'UA==','1lvqo3yd',1,0,'',49,0,0),(22437,5049,6,743,0,'200.79.46.141',1164302790,1,0,1,1,1,0,'','','jose_murugosa\n\ngracias por el apoyo, el problema es que quiero que se ajuste el browse para abajo siempre deja un espacio en blanco, espero me respondan','',0,'UA==','2coqj84d',1,0,'',743,0,0),(22438,5061,3,138,0,'189.141.64.226',1164308184,1,0,1,1,1,1,'','MySQL, ADO and Browse','Does anybody out there has the correct connection string to make a MySQL Recordset to be \"browseable\" ??????\n\nI have browsed recordsets of Oracle, ADS, Access, SQL Server, and ALL these using the very same methodology, I mean modifying the movement blocks for the browse, and all worked as expecte, exept mysql.\n\nAny workaround ?','',0,'UA==','1fd8k9x1',1,0,'',138,0,0),(22439,5059,6,362,0,'200.168.52.156',1164310690,1,0,1,1,1,1,'','','Nueva Versión.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=699\">http://www.fivewin.com.br/exibedicas.asp?id=699</a><!-- m -->','',0,'UA==','3h7nwb81',1,0,'',362,0,0),(22440,5062,6,123,0,'88.0.86.53',1164312570,1,0,1,1,1,0,'','OT: Se precisa programador FWH/FWPPC full-time','Hola,\n\nNecesitamos un programador a tiempo completo para incorporación inmediata en nuestra empresa, para desarrollo de proyectos Fivewin y FiveWin para Pocket Pc en Valencia (España).\n\nPara más información, enviad un correo con vuestro currículum a jose.luis (arroba) iaicom.com\n\nSaludos,\nJosé Luis Capel','',0,'UA==','qeaale1n',1,0,'',123,0,0),(22441,5061,3,397,0,'201.43.233.47',1164312756,1,0,1,0,1,1,'','','Hi Rene\n\nlook this\n\n[code:3v2odcuw]\n    &#46;&#46;&#46;\n    StrDatabase   &#58;= &#91;SGEA&#93;\n    StrServer     &#58;= &#91;127&#46;0&#46;0&#46;1&#93;\n    StrUserID     &#58;= &#91;root&#93;\n    StrUserPWD    &#58;= &#91;root&#93;\n\n    StrTable      &#58;= &#91;pessoas&#93;\n    StrField      &#58;= &#91;estado&#93;\n    StrField2     &#58;= &#91;nome&#93;\n    StrWhere      &#58;= StrField+&#91;=&quot;PR&quot;&#93;\n\n    StrConnection &#58;= &#91;driver=&#123;MySQL ODBC 3&#46;51 Driver&#125;;database=&#93;+StrDatabase+&#91;;server=&#93;+StrServer+&#91;;uid=&#93;+StrUserID+&#91;;pwd=&#93;+StrUserPWD+&#91;;option=35&#93;\n    StrSqlCommand &#58;= &#91;SELECT * FROM &#93; + StrTable + &#91; WHERE &#93; + StrWhere\n\n    oRs &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRS&#58;CursorType     &#58;= adOpenStatic\n    oRS&#58;CursorLocation &#58;= adUseClient\n    oRS&#58;LockType       &#58;= adLockPessimistic\n\n    oRS&#58;Open&#40; StrSqlCommand, StrConnection, 1, 3 &#41;\n    &#46;&#46;&#46;\n[/code:3v2odcuw]\n\nThis help you?','',0,'AIA=','3v2odcuw',1,0,'',397,0,0),(22442,5056,6,397,0,'201.43.233.47',1164313229,1,0,1,0,1,1,'','','HOla\n\nMira:\n\nInserir registro:\n\n[code:2600aazp]\n    oRs&#58;AddNew&#40;&#41;\n    oRs&#58;Fields&#40; &quot;id&quot; &#41;&#58;Value         &#58;= &quot;00001&quot; \n    oRs&#58;Fields&#40; &quot;nombre&quot; &#41;&#58;Value &#58;= &quot;JOSE CARLOS DA ROCHA&quot;\n    oRs&#58;Fields&#40; &quot;apelido&quot; &#41;&#58;Value  &#58;= &quot;ROCHINHA&quot;\n    oRs&#58;Fields&#40; &quot;pais&quot; &#41;&#58;Value       &#58;= &quot;BRASIL&quot;\n    oRs&#58;Update&#40;&#41; // Actualiza o recordset\n[/code:2600aazp]\n\nAlterar registro:\n\n[code:2600aazp]\n    oRs&#58;Fields&#40; &quot;id&quot; &#41;&#58;Value         &#58;= &quot;00001&quot; \n    oRs&#58;Fields&#40; &quot;nombre&quot; &#41;&#58;Value &#58;= &quot;JOSE CARLOS DA ROCHA&quot;\n    oRs&#58;Fields&#40; &quot;apelido&quot; &#41;&#58;Value  &#58;= &quot;ROCHINHA&quot;\n    oRs&#58;Fields&#40; &quot;pais&quot; &#41;&#58;Value       &#58;= &quot;BRASIL&quot;\n    oRs&#58;Update&#40;&#41; // Actualiza o recordset\n[/code:2600aazp]\n\nBorrar registro:\n\n[code:2600aazp]\n    oRs&#58;Delete&#40;&#41;\n    oRs&#58;ReQuery&#40;&#41; // opcional\n[/code:2600aazp]\n\nOk?','',0,'AIA=','2600aazp',1,0,'',397,0,0),(22443,5061,3,138,0,'189.141.64.226',1164313596,1,0,1,1,1,1,'','','Thanks a lot !!!!!\n\nI was missing the cursor location, I wonder why this was working on other databases.','',0,'AIA=','31ctx1f0',1,0,'',138,0,0),(22444,5061,3,397,0,'201.43.233.47',1164314050,1,0,1,0,1,1,'','','Rene \n\nWith ADO you can work with various DBs\n\nThis is ShowDeBola!!!','',0,'AIA=','3p31pvmr',1,0,'',397,0,0),(22445,5054,3,138,0,'189.141.64.226',1164318392,1,0,1,1,1,1,'','Re: Paco','Uwe:\n\nNow We are handling the CanalFive distribuition WorldWide.\n\nVtaskBar is the best way to go the way you want, we delivery inmediatly and you can pay worldwide by PayPal\n\nPleas feel free to contact me: <!-- e --><a href=\"mailto:rflores@google.com\">rflores@google.com</a><!-- e -->','',0,'AIA=','336fvdrb',1,0,'',138,0,0),(22446,5063,1,186,0,'66.130.50.142',1164322530,1,0,1,1,1,1,'','Printers, Printers, Printers...','Hi All,\n\nCan anyone can tell me, since Antonio Linares can`t, why DeviceCapabilities(), GetDeviceCaps() and DevMode don`t work at all !!!\n\nI`ve been struggling whit these 3 functions for the past year and can`t get nothing out of them. Why ?\n\nAnd please, don`t suggest me to use TPrinter CLASS. It does not work properly either.\n\nRegards,  <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x -->','',0,'AIA=','je942atc',1,0,'',186,0,0),(22447,5064,6,492,0,'189.147.23.225',1164324712,1,0,1,1,1,1,'','Error en aplicaciones con unidades USB','Hola a todos\n\nAntonio, esta pasando algo raro :\n\nMe genera un error la aplicacion cuando conecto mi mp3 player, que como todos sabemos, crea una(s) unidad(es) en la Pc.\n\nEl error dice : No hay disco en la unidad.Inserte un disco en la unidad \\device\\Harddisk3\\DR9\n\n[ Cancelar  ]      [ Reintentar ]     [ Continuar ]\n\n\n\nAsi mismo, me lo han reportado algunos clientes que tienen lectoras de memorias instalados en sus Pcs.\n\nComento que, basta con precionar la opcion Cancelar y todo continua normal, tan solo es ese aviso. \n\nLe ha sucedido a alguien mas ???\n\n\nSaludos','',0,'','13pvcx1p',1,0,'',492,0,0),(22448,5065,3,138,0,'189.141.64.226',1164326962,1,0,1,1,1,1,'','VtaskBar (Explorer Bar) now available for sale','Hi all:\n\nAfter we reach to an agreement with CanalFive, we are proud to offer you the All-new set of CanalFive Controls\n\nIf you are interested on purchasing, feel free to contact me in my private mail, credit car payment is available worldwide via PAYPAL, no matter if you don´t have an account\n\nThe new controls are:\n\n[b:2phaz0qe]VTASKBAR:[/b:2phaz0qe]\n[b:2phaz0qe]TOUTLOOKBAR[/b:2phaz0qe]\n[b:2phaz0qe]DATE / TIME CONTROLS[/b:2phaz0qe]\n[b:2phaz0qe]VTITLE[/b:2phaz0qe]\nAnd Comming Soon (Mid December):\n\n[b:2phaz0qe]Office 2007 Toolbar:[/b:2phaz0qe]\n\nCanalFive Controls are 100% FiveWin Compatible, runing on both Harbour and xHarbour.\n\nOur controls are very accesible in price, starting at 30€ / 45 USD for the Time/Date or VTitle, 60€/80 USD for VTaskBar or TOutlook Bar or 100€ / 120 USD for the Office 2007 Toolbar, similar controls in the market are over 200 USD.\n\nWatch them all in action !!!','',0,'QA==','2phaz0qe',1,0,'',138,0,0),(22449,5063,1,138,0,'189.141.64.226',1164327909,1,0,1,1,1,1,'','','I guess there should be a problem with the 16 bits stuff and the USB printers, but is an issue for the 16 bits app.\n\nHave you tried it on 32 bits ?','',0,'QA==','2opx6111',1,0,'',138,0,0),(22450,5066,1,173,0,'203.190.250.105',1164333959,1,0,1,1,1,0,'','Radio Button','Dear all,\n\nIt\'s possible to Define Radio button with horizontal style ? If possible how to ?\n\nBest regard,\n\nPeter\n\nPS. I\'m use Fw2.1c Blinker 7','',0,'QA==','3l942893',1,0,'',173,0,0),(22451,5067,6,743,0,'200.67.230.223',1164336658,1,0,1,1,1,0,'','wbrose duda urgente','alguien sabe donde se colorea la celda seleccionada del browse, en que funcion, o alguien tiene una funcion para cambiar el estilo de los bordes cuando toma la celda el focus\n\ngracias','',0,'QA==','13zu8qks',1,0,'',743,0,0),(22452,5065,3,15,0,'203.73.48.35',1164341376,1,0,1,1,1,0,'','','Hello \n\nI wait it long time ago.\nNow, it publish.\n\nCould you send to me Full control?\nLet me test it that compatible with Chinese and Non Themes interface.\n\nRegards,\n\nRichard','',0,'QA==','2rvd7zjn',1,0,'',15,0,0),(22453,5063,1,186,0,'66.130.50.142',1164343131,1,0,1,1,1,1,'','','Hi,\n\nNot yet, but I`m trying to port to xHarbour &amp; FiveWinH. I still have things to solve like modify my personal library, figure out what`s the problem with xBuild that will not compile my application, redo all my resource in 32 bits and a few other things. This will take a few weeks and I`m affraid that these functions still won`t work.\n\nRegards','',0,'QA==','10qid8to',1,0,'',186,0,0),(22454,5063,1,186,0,'66.130.50.142',1164343687,1,0,1,1,1,1,'','','Hi again,\n\nActually I am not yet testing with USB printers, just local and network printers. \n\nI found Badara Thiam, on the forum concerning this problem. He had made a tremendous job in trying, like me to find a work around to this problem. With Windows 98 it is posible and quite simple to solve a big part of this problem by using Windows register. But for Win 2000 and XP it is absolutely crazy. So I had to forget this idea and try to find something else. Also had the idea of using API Calls, but I don`t know enough about Windows API. I left a message to Antonio about this, but again no reply. \n\nSo I`m left alone with my problem and I`m kind of deseperated...\n\nI just want to find a solution to a problem that seem to be unresolvable.\n\nRegard,','',0,'QA==','1kax03sx',1,0,'',186,0,0),(22455,5067,6,492,0,'189.147.23.225',1164344978,1,0,1,1,1,1,'','','Hola\n\nCheca este link, creo que es lo que necesitas  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4377\">http://fivetechsoft.com/forums/viewtopic.php?t=4377</a><!-- m -->\n\nSaludos','',0,'QA==','29vkoj5e',1,0,'',492,0,0),(22456,5066,1,2,0,'87.218.146.117',1164352765,1,0,1,1,1,1,'','','Peter,\n\nIf you are building it from resource, simply place it horizontal. If you are creating it from source code, change the position of each radio, once created, using:_\n\noRadMenu:aItems[ n ]:nTop = ... \noRadMenu:aItems[ n ]:nLeft = ...\noRadMenu:aItems[ n ]:nWidth = ...\noRadMenu:aItems[ n ]:nHeight = ...','',0,'','1wotudd2',1,0,'',2,0,0),(22457,5063,1,6,0,'87.18.239.179',1164355138,1,0,1,1,1,1,'','Re: Printers, Printers, Printers...','[quote=&quot;Gilbert&quot;:3psby9r2]Hi All,\n\nCan anyone can tell me, since Antonio Linares can`t, why DeviceCapabilities(), GetDeviceCaps() and DevMode don`t work at all !!![/quote:3psby9r2]\n\nI don\'t use Clipper/Fivewin anymore but my Clipper/Fivewin apps did print just fine. I think you may have a bugged printer driver. Try updating it or installing a generic one.\n\nEMG','',0,'gA==','3psby9r2',1,0,'',6,0,0),(22458,5056,6,456,0,'62.43.194.117',1164356602,1,0,1,1,1,1,'','','Gracias Rochinha, pero eso no es exactamente lo que estaba preguntando. Yo ya conozco los metodos para altas bajas y modificaciones. El problema es que el browse esta basado sobre un recordset (oRS) no editable. Y la pregunta,  es cual seria el metodo mas rapido para dar el alta. Otro recordset que permita addnew, inser con execute, ...','',0,'gA==','1giap417',1,0,'',456,0,0),(22459,5068,3,382,0,'80.140.217.169',1164359448,1,0,1,1,1,1,'','::Classname()','I want to create own classes inherit e.g. from TDialog like\n\n[code:3bvyvshj]CLASS MYTDIALOG FROM TDIALOG\n\nDATA &#46;&#46;&#46;\nMETHOD &#46;&#46;&#46;\n\nENDCLASS\n[/code:3bvyvshj]\n\nBut now, the Method ::ClassName() returns \"MYTDIALOG\".\n\nAs I see,  some methods check for ::Classname() like\n\n[code:3bvyvshj]IF &#58;&#58;ClassName&#40;&#41; $ &quot;TDIALOG,&#46;&#46;&#46;&quot;\n[/code:3bvyvshj]\n\nso \"MYTDIALOG\" is not checked. \n\nIs that a problem?\n\nThanks.','',0,'AIA=','3bvyvshj',1,0,'',382,0,0),(22460,5040,7,720,0,'80.59.110.137',1164359561,1,0,1,1,1,0,'','','Has colocado la ip del servidor al que te vas a conectar, el nombre de usuario, la contraseña, el directorio local (de donde vas a coger el archivo para enviar) y el directorio remoto (donde vas a colocar el archivo en el servidor)???\n\n\nSaludos...\n\nElías Torres.','',0,'AIA=','sar7mvap',1,0,'',720,0,0),(22461,5059,6,49,0,'213.82.134.66',1164365228,1,0,1,1,1,1,'','','thanks\n\nI want ask you How I can set a time \nI explain you I want show only for one hour and the clock must go back\n01:00\n00:59\n00:58\n00:57\necc\nand then when th etime is 00:00 it must sing a song\n\nit is possible ?','',0,'AIA=','1ie3ejhf',1,0,'',49,0,0),(22462,5024,20,49,0,'213.82.134.66',1164365461,1,0,1,1,1,1,'','','Timm mi ha risposto che  è uno che programma in Delphi : quindi non è della nostra communità, perchè il programma è usato anche da quelli che usano il delphi...pare...','',0,'AIA=','12evujcs',1,0,'',49,0,0),(22463,5037,20,49,0,'213.82.134.66',1164365901,1,0,1,1,1,1,'','','Mi ricordo che Marco Turco lo aveva fatto tanto tempo fa (mmdata) ma non credo che lui lo possa pubblicare ..\nOppure nella vecchia versione di fivewin la 14 o addirittura la 12 credo c\'era un semplice programmino per la registrazione dei supporti e la manutenzione ma in 16 non funzionava perchè forse era un progetto mai finito: era formata in una videata che raccoglieva le telefonate dei clienti : anomalie dei computer o del software e assegnava ad un certo operatore il lavoro.\nAltrimenti ti consiglio di provare a fare qualcosa de genere . non dovrebbe essere difficile   la mia classe Tplan(<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1297&amp;highlight=tplan\">http://fivetechsoft.com/forums/viewtopi ... ight=tplan</a><!-- m -->)\n inoltre puo gestire un cronogramma dei lavori quindi potrebbe gestire le fasi di sviluppo di un certo prodotto perchè no ?','',0,'AIA=','3spzoekm',1,0,'',49,0,0),(22464,5059,6,362,0,'200.168.52.156',1164366370,1,0,1,1,1,1,'','','Silvio,\n\nPlease, Translate for Spanish (language).\n\nUse Google.\n\nRegards, saludos.','',0,'AIA=','3emebbz9',1,0,'',362,0,0),(22465,5059,6,49,0,'213.82.134.66',1164367155,1,0,1,1,1,1,'','','Desearía crear un cronómetro para fijar la época del uso de una computadora a partir de una hora a cero y en el extremo cantar una canción.\nEspero que hayas entendido que deseo creo un mini despertador','',0,'AIA=','1urd2d7a',1,0,'',49,0,0),(22466,5059,6,362,0,'200.168.52.156',1164368516,1,0,1,1,1,1,'','','//-&gt; Original by c:\\FWH27\\SAMPLES\\LEDDISP.PRG\n\n#Include \"FiveWin.Ch\"\n\nStatic nGet\nStatic oBmp1, oBmp2, oBmp3, oBmp4, oBmp5\n\n//----------------------------------------------------------------------------//\n\nFunction Velocimetro()\n\nLocal oDlg, oGet\n\nnGet := 0\n\nDEFINE DIALOG oDlg FROM 0, 0 TO 20, 60 ;\nTITLE \"Mostrando um Velocimetro/Cronômetro\"\n\noDlg:lHelpIcon := .F.\n\n//--------------------Área do DisPlay do Cronômetro------------------------\n\n/* Cada dígito é de 34 x 48 */\n\n/* Copie o \"DisPlay.Bmp\" de \\FW..\\BitMaps\\ Para o Seu Diretório de Uso */\n\n@ 002, 001 SAY \'Contador : \' OF oDlg\n\n@ 000, 000 BITMAP oBmp1 FILE \"..\\BitMaps\\DisPlay.Bmp\" OF oDlg\n\n@ 000, 000 BITMAP oBmp2 FILE \"..\\BitMaps\\DisPlay.Bmp\" OF oDlg\n\n@ 000, 000 BITMAP oBmp3 FILE \"..\\BitMaps\\DisPlay.Bmp\" OF oDlg\n\n@ 000, 000 BITMAP oBmp4 FILE \"..\\BitMaps\\DisPlay.Bmp\" OF oDlg\n\n@ 000, 000 BITMAP oBmp5 FILE \"..\\BitMaps\\DisPlay.Bmp\" OF oDlg\n\n//-------------------------------------------------------------------------\n\noBmp1:nTop := 28\noBmp1:nLeft := 80\noBmp1:nBottom := 52\noBmp1:nRight := 97\n\noBmp2:nTop := 28\noBmp2:nLeft := 98\noBmp2:nBottom := 52\noBmp2:nRight := 115\n\noBmp3:nTop := 28\noBmp3:nLeft := 116\noBmp3:nBottom := 52\noBmp3:nRight := 133\n\noBmp4:nTop := 28\noBmp4:nLeft := 134\noBmp4:nBottom := 52\noBmp4:nRight := 151\n\noBmp5:nTop := 28\noBmp5:nLeft := 152\noBmp5:nBottom := 52\noBmp5:nRight := 169\n\n//--------------------Área dos Say\'s---------------------------------------\n\n@ 002, 030 SAY \"Evandro 1 Minuto\" OF oDlg\n@ 2.5, 030 SAY \"Tem 60 Segundos \" OF oDlg\n\n@ 004, 010 SAY \"Use Sua Imaginação... Estás Trabalhando Com Horas...\" OF oDlg\n\n@ 005, 010 SAY \"Vai Contar até 180 Milésimos de Secs = 3 Segundos. \" OF oDlg\n\n@ 006, 010 SAY \"By João Santos - In FiveWin The Best! \" OF oDlg\n\n@ 007, 010 SAY \"Todos os Direitos Reservados - 27/12/2003 \" OF oDlg\n\n//--------------------Área dos Botões--------------------------------------\n\n@ 007, 002 BUTTON \"&amp;Aumentar\" OF oDlg SIZE 40, 12 ;\nACTION ( nGet++, Por_Bmp( oBmp1, oBmp2, oBmp3, oBmp4, oBmp5, nGet ) )\n\n@ 007, 010 BUTTON \"&amp;Diminuir\" OF oDlg SIZE 40, 12 ;\nACTION ( nGet--, Por_Bmp( oBmp1, oBmp2, oBmp3, oBmp4, oBmp5, nGet ) )\n\n@ 007, 018 BUTTON \"&amp;Executar\" OF oDlg SIZE 40, 12 ;\nACTION Executar_Bmp()\n\n@ 007, 026 BUTTON \"&amp;Saida\" OF oDlg ;\nACTION ( oDlg:End ) CANCEL\n\nACTIVATE DIALOG oDlg CENTERED\n\nEndDialog() // Fechar a Dialog\n\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nFunction Executar_Bmp()\n\nLocal I\n\nLocal nSegundos\n\n// 1 Hora = 3600 Segundos - ( 60 * 60 )\n// 3 Segundos = 180 Milésimos de Segundos\n\n// Fórmula Para Calculo de Horas, Minutos, Segundos, Etc... Ex. Simples\nnSegundos := Seconds() + ( 3600 + 5 ) / 60 * 3 //( 3 = Qtde. de Segundos)\n\nFor I = 1 To ( nSegundos - Seconds() )\n\nPor_Bmp( oBmp1, oBmp2, oBmp3, oBmp4, oBmp5, I )\n\nSysRefresh()\n\nNext I\n\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nFunction Por_Bmp ( oBjeto1, oBjeto2, oBjeto3, oBjeto4, oBjeto5, nQuantidade )\n\nLocal cNum := SPACE( 5 )\nLocal nLen := 3\nLocal nDigito1 := 3\nLocal nDigito2 := 3\nLocal nDigito3 := 3\nLocal nDigito4 := 3\nLocal nDigito5 := 3\n\ncNum := STR( nQuantidade )\nnLen := LEN( cNum )\n\nnDigito1 := VAL( SUBSTR( cNum, nLen - 4, 1 ) )\n\nIf nDigito1 = 0\noBjeto1:nX := -528 // 0 - (11 * 48) \nElse\noBjeto1:nX := 0 - ( nDigito1 * 48 )\nEndif\n\nnDigito2 := VAL( SUBSTR( cNum, nLen - 3, 1 ) )\n\nIf nDigito2 = 0 .AND. nDigito1 = 0\noBjeto2:nX := -528\nElse\noBjeto2:nX := 0 - ( nDigito2 * 48 )\nEndif\n\nnDigito3 := VAL( SUBSTR( cNum, nLen - 2, 1 ) )\n\nIf nDigito3 = 0 .AND. nDigito2 = 0 .AND. nDigito1 = 0\noBjeto3:nX := -528\nElse\noBjeto3:nX := 0 - ( nDigito3 * 48 )\nEndif\n\nnDigito4 := VAL( SUBSTR( cNum, nLen - 1, 1 ) )\n\nIf nDigito4 = 0 .AND. nDigito3 = 0 .AND. nDigito2 = 0 .AND. nDigito1 = 0\noBjeto4:nX := -528\nElse\noBjeto4:nX := 0 - ( nDigito4 * 48 )\nEndif\n\nnDigito5 := VAL( SUBSTR( cNum, nLen, 1 ) )\n\noBjeto5:nX := 0 - ( nDigito5 * 48 )\n\noBjeto5:Refresh( .F. )\noBjeto4:Refresh( .F. )\noBjeto3:Refresh( .F. )\noBjeto2:Refresh( .F. )\noBjeto1:Refresh( .F. )\n\nSysRefresh()\n\nReturn Nil','',0,'AIA=','230cpp50',1,0,'',362,0,0),(22467,5001,6,176,0,'201.255.129.190',1164369702,1,0,1,1,1,0,'','fwh25','Bueno al final el problema era que estaba declarando que el recurso era una dll y en verdad era un rc. Me fijé en la anterior compilación y descubrí el error.\n\nGracias Antonio\n\nLuis','',0,'AIA=','38lew2up',1,0,'',176,0,0),(22468,5049,6,147,0,'200.45.54.134',1164369721,1,0,1,0,1,1,'','','tomafa:\nutilizando wBrowse de Hernán lo puedes hacer así:\n\noBrw:SetColor( clrTexto, clrFondo )\n\nsaludos','',0,'AIA=','3ewj7c1d',1,0,'',147,0,0),(22469,5069,6,176,0,'201.255.129.190',1164370233,1,0,1,1,1,0,'','ButtonBar y BTNBMP','Solucionado mi consulta anterior, lo que no visualizo son los ButtonBar y BTNBMP, los cuales en fw16 sí lo hacen. Estan todos declarados en forma y los leo del recurso creado. Puede ser un error de compilación...\n\nEstan declarados de la siguiente forma:\n\n  DEFINE BUTTON RESOURCE \"remito\" of oBarrabotones;\n        TOOLTIP \"Remitos\";\n        ACTION remito()  ;\n        MESSAGE (\"Formulario de remitos\")  NOBORDER  \n\n\ny el btnbmp\n\n  REDEFINE BTNBMP oNbut[6] id 109 OF oDlg resource \"btnsalir\",\"btnsali1\" etc etc\n\nen el recurso estan indicados en tipo bitmaps\n\nGracias\n\nLuis','',0,'','3km6ilmu',1,0,'',176,0,0),(22470,5059,6,49,0,'213.82.134.66',1164372110,1,0,1,1,1,1,'','','gracias - thanks \nBUT\nit not run ok \nI  tryed with xharbour /fw and it not run','',0,'','2qp98ytt',1,0,'',49,0,0),(22471,4982,2,124,0,'200.82.65.172',1164375282,1,0,1,1,1,0,'','','Si, seguimos por correo privado.\nSaludos.','',0,'','15x8eztl',1,0,'',124,0,0),(22472,5056,6,397,0,'201.26.2.119',1164377179,1,0,1,0,1,1,'','','Amigo\n\nLo recordset esta basado en que tipo de BD?\n\nYo trabajo en modo local, cliente.\n\nRevisa se la abertura es ReadOnly\n\n[code:1elnc654]\nLOCAL oConn &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41; \nPRIVATE oRecordset &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;recordset&quot;&#41; \n\n   oConn&#58;Open&#40;&quot;Provider= MicroSoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=&#46;\\arquivo&#46;mdb;&quot;&#41; \n\n   oRecordSet&#58;LockType &#58;= adLockOptimistic // adLockReadOnly\n   oRecordSet&#58;CursorType &#58;= adOpenKeyset \n   oRecordSet&#58;ActiveConnection&#40;oConn&#41; \n   oRecordSet&#58;Source &#58;= &quot;Select * from clientes&quot; // tu query aqui \n   oRecordSet&#58;Open&#40;&#41; \n   oRecordSet&#58;MoveFirst&#40;&#41; \n\n   aDatos &#58;= &#123;&#125; \n\n   DO WHILE ! oRecordSet&#58;eof&#40;&#41; \n        aReng &#58;= &#123;&#125; \n        FOR x &#58;= 1 TO oRecordSet&#58;Fields&#58;Count&#40;&#41; \n            AADD&#40;aReng,oRecordSet&#58;Field&#40;x-1&#41;&#58;Value \n        NEXT \n        AADD&#40;aDatos,aReng&#41; \n        oRecordSet&#58;MoveNext \n   ENDDO \n\n   oRecordSet&#58;Close&#40;&#41; \n   oConn&#58;Close&#40;&#41;\n[/code:1elnc654]\n\nSaludos','',0,'AIA=','1elnc654',1,0,'',397,0,0),(22473,5049,6,492,0,'189.147.23.225',1164379008,1,0,1,1,1,1,'','','Hola \n\nPara corregir lo que comentas, debes hacer alguno de estos puntos :\n\n- Ajustar el area del browse dependiendo de los registro que se visualizen\n\n\n- Si el area del browse esta restringido, entonces :\n  - Cambiar font / tamaño para ajustar los registros al area\n  - Ajustar al alto de las lineas\n     tubrowse:nLineHeight  := 30\n\ncon cualquiera de estas opciones puedes lograr y evitar que salga una linea \"en blanco\" en la parte inferior del browse.\n\n\nSaludos','',0,'AIA=','2eshbbnd',1,0,'',492,0,0),(22474,5068,3,36,0,'200.113.56.235',1164379825,1,0,1,1,1,0,'','','[code:2q7nchf2]\nCLASS MYTDIALOG FROM TDIALOG\n\nDATA &#46;&#46;&#46;\nMETHOD &#46;&#46;&#46;\nMETHOD ClassName&#40;&#41; INLINE &quot;TDIALOG&quot;\n\nENDCLASS [/code:2q7nchf2]\n\n\nSaludos\nPatricio','',0,'AIA=','2q7nchf2',1,0,'',36,0,0),(22475,5056,6,456,0,'62.43.194.117',1164380425,1,0,1,1,1,1,'','','El recordset ataca una bases de datos DB2, y el source es [code:3rhsfa3d]\ncSql&#58;= &quot;SELECT EmpCod,Anyo,NumPed,Fecha,Hora,Usr,NetName,Servir,CliCod,Obs1,Obs2,&quot;+;\n&quot;Servido,Presu,Kilos,Ava3Tx,Ava4Tx,Ava6Tx,Ava7Tx,Ava8Tx,Ava9Tx,Avbatx,AvbCtx,AvbDtx&quot;+;\n&quot; FROM &#40;SELECT PedCab&#46;EmpCod AS TotEmp, PedCab&#46;Anyo as TotAny, PedCab&#46;NumPed as TotNum,&quot;+;\n&quot; SUM&#40;UDS*PESO&#41; AS KILOS FROM PEDCAB LEFT JOIN PEDDET ON PEDCAB&#46;EMPCOD= PEDDET&#46;EMPCOD AND&quot;+;\n&quot; PEDCAB&#46;ANYO=PEDDET&#46;ANYO AND PEDCAB&#46;NUMPED=PEDDET&#46;NUMPED GROUP BY&quot;+;\n&quot; PEDCAB&#46;EMPCOD, PEDCAB&#46;ANYO, PEDCAB&#46;NUMPED&#41; AS TOTAL, &quot; +;\n&quot; PedCab LEFT JOIN PiCliep ON EmpCod=Avaccd AND CliCod=Ava4cd&quot;+;\n&quot; WHERE PedCab&#46;EmpCod=Total&#46;TotEmp AND PedCab&#46;Anyo=Total&#46;TotAny AND PedCab&#46;NumPed=Total&#46;TotNum&quot;\n\n[/code:3rhsfa3d]\nEste recordset no me perimite hacer AddNew(supongo que por el join , o por alguna otra cosa, no por el tipo de cursor, ni tipo de blouqeo), entonces debo utilizar otro recordset sobre la tabla base PedCab, o capturar los datos en variables y volcarlos con excute \"insert ... \", y la pregunta cual es el metodo mejor.\n\nPD. Los nombre de atributos son rarillos porque la tabla clientes fue creada con una herammienta Case que maneja diccionario de datos, y les pone estos nombres tan chulos y a la vez descriptivos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> (Ava3Tx,Ava4Tx,Ava6Tx...)','',0,'AIA=','3rhsfa3d',1,0,'',456,0,0),(22476,4877,2,375,0,'84.122.116.12',1164382820,1,0,1,1,1,1,'','','El caso es que de esa forma saldría tranparente, yo quiero una coisa más traslucida. \n\nAl final lo he solucionado con el siguiente código:\n\nPRG de FW\n-------------\n\nDEFINE BITMAP oBmp NAME ...\n*\nhCDc  := CreateCDC(hDc)\nSelectObject(hCDC,oBmp:hBitmap)\nStretchBmp(hDc,10,20,nNeoWidth,nNeoHeight,hCDC,0,0,hBmp:nWidth,hBmp:nHeight, raster)\nDeleteDc(hCDc)\n\n\nDLL32 FUNCTION StretchBmp( hdc AS LONG,x AS LONG,y AS LONG,nWidth AS LONG,nHeight AS LONG, ;\n        hSrcDC AS LONG,xSrc AS LONG,ySrc AS LONG,nSrcWidth AS LONG,nSrcHeight AS LONG,dwRop AS LONG ) AS LONG ;\nPASCAL FROM \"StretchBlt\" LIB \"gdi32.dll\"\n\n\n\nen C:\n-----\n\nCLIPPER StretchMBitmap( PARAMS ) 	// ( HDC hdc, HBITMAP hBmp, RECT aRect, WORD raster )\n   {\n   HDC hdc      = ( HDC ) _parnl( 1 ) ;\n   HDC hDcTemp  = CreateCompatibleDC( hdc ) ;\n   HBITMAP hOld = ( HBITMAP ) SelectObject( hDcTemp, ( HBITMAP ) _parnl( 2 ) ) ;\n   DWORD raster = IF( PCOUNT() == 4, _parnl( 4 ), 0 ) ;\n   RECT    rct  ;\n   BITMAP  bmp  ;\n\n   rct.top    = _parnl( 3, 1 ) ;\n   rct.left   = _parnl( 3, 2 ) ;\n   rct.bottom = _parnl( 3, 3 ) ;\n   rct.right  = _parnl( 3, 4 ) ;\n\n   GetObject( ( HGDIOBJ ) _parnl( 2 ), sizeof( BITMAP ), ( LPSTR ) &amp;bmp ) ;\n\n   StretchBlt( hdc, rct.top, rct.left, rct.right-rct.left+1, rct.bottom-rct.top+1, hDcTemp, 0, 0, bmp.bmWidth, bmp.bmHeight, raster ) ;\n\n   DeleteObject( SelectObject(hDcTemp, hOld) ) ;\n   DeleteDC(hDcTemp) ;\n   }\n\n\nSin embargo, es curioso que el código FW no funciona en XP (o al menos en el mio) pero el escrito en C si funciona.','',0,'AIA=','1aorois8',1,0,'',375,0,0),(22477,5049,6,743,0,'200.79.46.141',1164385381,1,0,1,1,1,0,'','','gracias por su apoyo,\n\n  pero boy a poner mi duda, la mando en esta imagen para que me entiendad, lo que quiero es modificar la clase wbrowse para que el ultimo registro se ajuste al browse y no quede en blanco como lo muestro en la imagen, gracias\n\n\n[url:2s5mkyt3]http&#58;//img398&#46;imageshack&#46;us/my&#46;php?image=mandarjw6&#46;png[/url:2s5mkyt3][/url]','',0,'EA==','2s5mkyt3',1,0,'',743,0,0),(22478,279,6,579,0,'148.223.141.242',1164385602,1,0,1,1,1,1,'','','Me apunto también para recibir la clase para escanear. Mi correo:\n\n<!-- e --><a href=\"mailto:rodolfoerbg@gmail.com\">rodolfoerbg@gmail.com</a><!-- e -->\n\n\'chas gracias por anticipado.','',0,'EA==','1xfhxbmx',1,0,'',579,0,0),(22479,279,6,785,0,'190.64.111.75',1164386543,1,0,1,1,1,0,'','','Amigos:\n\nLas contribuciones de Rafa Carmona, TheFull están aquí en el foro\nsigan este link. \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2501\">http://fivetechsoft.com/forums/viewtopic.php?t=2501</a><!-- m -->\n\n(Utilidades-&gt;TheFull ...)\nSaludos\n\nRuben Fernandez','',0,'EA==','ddb6573x',1,0,'',785,0,0),(22480,5065,3,217,0,'200.159.120.34',1164391205,1,0,1,1,1,0,'','','Rene,\n\nVery good!!!\nCan you provide any exe to we test it?\n(And any sample code...)\n\nBest regards!\nMaurilio','',0,'EA==','14dk7ifn',1,0,'',217,0,0),(22481,5070,6,384,0,'201.27.193.103',1164395706,1,0,1,1,1,1,'','Fwh 2.8 - erro com DLL','Antonio, anteriormente esta rotina funcionava corretamente com a versão FWH 2.6 + xHarbour 0.99.5\n\nPorém, não esta funcionando com a versão FHW 2.8 (outubro/2006) + xHarbour 0.99.61\n\n[code:1w7c8oze]\n#include &quot;FiveWin&#46;ch&quot;\nSTATIC DLLDATAREGIS\n***********\nfunction main&#40;&#41;\n***********\n\n  ABREDATAREGIS&#40;&#41;\n\n  IF &#40;  nRet  &#58;= IF_Abre_Serial&#40;&quot;COM1&quot;&#41;  &#41; #  0    // &lt;---- Antonio O ERRO ESTA DANDO AQUI !!!!!!!!!\n      MsgStop&#40;&quot;Nenhuma impressora fiscal foi detectada !&quot;,&quot;Atenção&quot;&#41;\n     RETURN &#46;F&#46;\n  ENDIF\n\n  CLOSEDATAREGIS&#40;&#41;\nreturn nil\n\n\n********************\nFUNCTION ABREDATAREGIS&#40;&#41;\n********************\nDLLDATAREGIS  &#58;= LOADLIB32&#40; &quot;DTIF32&#46;DLL&quot; &#41;\n? DLLDATAREGIS\n\nRETURN NIL\n\n**********************\nFUNCTION CLOSEDATAREGIS&#40;&#41;\n*************************\nIF_Fecha_Serial&#40;&#41;\nRETURN NIL\n\n\n\nDLL32 function IF_ParamIni&#40;&#41;                                         AS LONG PASCAL LIB DLLDATAREGIS\nDLL32 function IF_Abre_Serial&#40;Porta AS STRING&#41;                       AS LONG PASCAL LIB DLLDATAREGIS\n\n\n\n[/code:1w7c8oze]\n\nSe puderes me ajudar, desde já agradeço...','',0,'AIA=','1w7c8oze',1,0,'',384,0,0),(22482,5006,6,221,0,'200.109.237.30',1164398592,1,0,1,1,1,0,'','SALUDOS','A MI IGUAL, GRACIAS DE ANTEMANO\n\n<!-- e --><a href=\"mailto:ALEX_PATINO74@HOTMAIL.COM\">ALEX_PATINO74@HOTMAIL.COM</a><!-- e -->','',0,'AIA=','24o2cw6v',1,0,'',221,0,0),(22483,5071,2,375,0,'84.122.116.12',1164402246,1,0,1,1,1,1,'','Dos cuestiones de C','Este es el código en C que utilizo para escribir palabras sin accentos:\n\n#include &lt;winten.h&gt;\n#include &lt;windows.h&gt;\n#include &lt;clipapi.h&gt;\n\nLPSTR Mayusculas( LPSTR szText, WORD lSize )\n   {\n   int i = 0 ;\n   for( i=0; i &lt; lSize; i++ )\n      {\n      if ( szText[i] &gt;= \'a\' &amp;&amp; szText[i] &lt;= \'z\' )\n	 szText[i] -= ( \'a\' - \'A\' ) ;\n      }\n   return( szText ) ;\n   }\n\nLPSTR SinEspa( LPSTR szText, LPWORD pwLen )\n   {\n   WORD nDesde = 0 ;\n   WORD nHasta = *pwLen ;\n\n   while( szText[nDesde] == \' \' &amp;&amp; nDesde &lt; nHasta )\n      ++nDesde ;\n\n   while( szText[nHasta-1] == \' \'  &amp;&amp; nHasta &gt; nDesde ) // nHasta-1 PORQUE EMPIEZA POR 0\n      --nHasta ;\n\n   *pwLen = nHasta - nDesde ;\n\n   return szText+nDesde ;\n   }\n\n\nCLIPPER TransDat( PARAMS )	// ( LPSTR cText, BOOL lMayusculas = .T.)\n   {\n   WORD   hancho = _parclen( 1 ) ;\n   LPSTR  cText  = SinEspa( _parc( 1 ), &amp;hancho ) ;\n   BOOL   lMayus = IF( PCOUNT() == 1, TRUE, _parl(2) ) ; \n   LPSTR  desde, hasta ;\n   int    i,j,k ;\n\n   if( lMayus )\n      {\n      desde = \"ÁÉÍÓÚÜáéíóúü-,.\" ;\n      hasta = \"AEIOUUaeiouu   \" ;\n      k = 15 ;\n      }\n   else\n      {\n      desde = \"ÁÉÍÓÚÜáéíóúü\" ;\n      hasta = \"AEIOUUaeiouu\" ;\n      k = 12 ;\n      }\n\n   i = 0 ;\n   while( i &lt; hancho )\n      {\n      for ( j=0; j &lt; k; j++ )\n	  {\n	  if (cText[i] == desde[j])\n	     {\n	     cText[i] = hasta[j] ;\n	     break ;\n	     }\n	  }\n	  i++ ;\n      }\n   if ( lMayus )\n      _retclen( Mayusculas(cText, hancho), hancho ) ;\n   else\n      _retclen( cText, hancho ) ;\n   }\n\nFunciona perfectamente, no obstante me surgen dos cuestiones que no consigo resolver.\n\n[u:235llqie][b:235llqie]1º) Indices[/b:235llqie][/u:235llqie]\n\nCon TLIB incluí esas funciones en Five.Lib para intentar utllizarlas a la hora de reindexar mis Bases de datos. funcionan muy bien en cualquier parte de mi programa, pero con los índices no cuela. Ni tal cual, ni como macro, ni nada... ¿Hay alguna forma de conseguirlo?\n\n[u:235llqie][b:235llqie]2º) Funciones Externas[/b:235llqie][/u:235llqie]\n\nComo veran, he tenido que rehacer las funciones ALLTRIM y UPPER porque no sé como utilizar las ya existentes en FW. ¿Alguien sabría decirme como hacerlo?\n\nPor cierto, ahora que caigo, funcionaría:  k = sizeof( nDesde ), no lo he intentado.\n\nMuchas gracias por adelantado.','',0,'QQ==','235llqie',1,0,'',375,0,0),(22484,5072,2,875,0,'64.76.108.179',1164406477,1,0,1,1,1,0,'','Ayuda con Twindow','Hola.\n \nQue version de compilador de clipper y de Blinker necesito para manejar ventanas Twindow(),RadioBotons(),Checkboton(), Twindow() con fondos,  Ademas que Librerias necesito enlazar.\n \n \nGracias de antemano.\n \nJaime Coronado','',0,'QQ==','29xo97y4',1,0,'',875,0,0),(22485,5057,6,73,0,'201.165.193.41',1164417991,1,0,1,1,1,0,'','','Patricio,\nprueba a meter el objeto y ahi prueba con oGet:SetColor(nColor1,nColor2)\nsalu2\nPaco','',0,'QQ==','jj0hl2g6',1,0,'',73,0,0),(22486,5057,6,743,0,'200.67.230.223',1164418978,1,0,1,1,1,0,'','','TBtnGet uso esta clase el problema que tengo es cuando el get piede el focus y me quiero posecionar por medio el mouse no me pinta nada y me quita la imagen las pongo las dos imagenes espero me explique\n[url:1mta37cd]http&#58;//img245&#46;imageshack&#46;us/my&#46;php?image=focushb4&#46;png[/url:1mta37cd]\n\n\n\nesta es la otra imagen\n\nesta es cuando quiero regresar al get con el mouse\n\n<!-- m --><a class=\"postlink\" href=\"http://img136.imageshack.us/my.php?image=focus2aw7.png\">http://img136.imageshack.us/my.php?image=focus2aw7.png</a><!-- m -->','',0,'EA==','1mta37cd',1,0,'',743,0,0),(22487,5030,3,239,0,'218.19.155.152',1164420920,1,0,1,1,1,0,'','','Antonio,\n    Could fwh directly display /say  and input/get  unicode/UTF-8 in a dialog ?  diffrent  languages items in one dialog , if convert items into ansi,  may display discorder codes .\n\nBest regard!\n\nShuming Wang','',0,'EA==','37hvh84y',1,0,'',239,0,0),(22488,5073,6,439,0,'200.125.48.213',1164424150,1,0,1,1,1,1,'','TWBrowse y controles','Hola a todos!\n\nHe visto varios temas y explicaciones en el foro pero no he podido lograr poner un Combobox y un Checkbox en un Browse. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nQuisiera que en un detalle que incluye un campo lógico se pueda tildar un casillero del browse o destildar de tal modo que el campo en la base pase de .t. a .f. respectivamente.\n\nEn cuanto al combobox, he leído una explicación de René, pero está claro que lo que para estos gurúes es sencillo, para mí es complejo  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\n\nSerá que alguien pueda explicarme más claramente o talvez sea preferible para mi torpeza, que ponga un ejemplo sencillo en el foro en el que se agreguen líneas con controles combobox y checkboxes?\n\nApreciaría mucho cualquier ayuda que me puedan brindar.\nUso el Browse de Hernán.\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'EA==','1c4lr2jx',1,0,'',439,0,0),(22489,5074,3,439,0,'200.125.48.213',1164424650,1,0,1,1,1,1,'','TWBrowse with Controls','Sorry, I know there are some posts about this topic, I read them, but I still did not make a browse with checboxes in logic fields and comboboxes to fill character fields <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\n\nEven Rene wrote about it, but I tried to do it, and I could´t <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .\n\nPlease If somebody can put in the forum a working sample of this kind of browse I will be very thankfull  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nI use TWbrowse of Hernán.\n\nThanks <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'EA==','zjzv8r59',1,0,'',439,0,0),(22490,5052,3,289,0,'82.167.47.100',1164424950,1,0,1,1,1,0,'','','Hi. All \nI had arrived at work results in the loading Jpg to the screen.\nSee the link below.\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4981\">http://fivetechsoft.com/forums/viewtopic.php?t=4981</a><!-- m -->\nregards, \nHathal.','',0,'EA==','3uapbvnm',1,0,'',289,0,0),(22491,5070,6,100,0,'201.18.231.75',1164424988,1,0,1,1,1,1,'','','Ola amigo\n\nJá passei por um problema destes, o que esta acontecendo ??\n\nPoste aki os parametros das funçoes da DLL\n\nPois o que aconteceu comigo é que estava eu colocar um parametro na função,mesmo que no manual informasse que o parametro era opcional','',0,'EA==','1jpqwl44',1,0,'',100,0,0),(22492,5075,16,2,0,'87.218.146.151',1164427670,1,0,1,1,1,1,'','FTDN new November 2006 build / nuevo build de Noviembre 2006','November 2006 build\n ================\n \n * Fix: Class TComboBox, brush resource leak fixed.\n \n * Fix: FWPPC, SerialNumber() initialization bug. Already fixed.\n \n * Enhancement: Class TReport Method NeedNewPage(). Ocasionally a blank page was generated. Now it is ok.\n   \n * New: FWPPC, new clause MODAL for ACTIVATE WINDOW ... [ MODAL ]. It lets you stop the application execution after activating a window. It is false by default.  \n \n * Enhancement: clause TRANSPARENT for dialogs is properly working on non XP themed applications. Thanks to Ramesh Babu!\n\n * New: Class TTVItem new Methods Toggle() and MakeVisible(). Class TTreeView new Methods CollapseBranch(), ExpandBranch(), Toggle(), ToggleAll(), ToggleBranch(). Improved methods CollapseAll(), ExpandAll(). Improved function ScanItems(). Thanks to Luis Krause! \n\n * Enhancement: Class TFolder Method Initiate() provides an improved dialogs resizing for better transparent painting.\n    \n * Enhancement: Class TWBrowse Method nRowCount() returns zero if the DATA hWnd is zero.\n    \n * New: Class TXBrowse Method SetAdo( oAdo ). New include\\ado.ch file. Thanks to Biel!\n    \n * Enhancement: Class TDbOdbcDirect Method Update() now checks if there is any pending change and avoid the error. Thanks to Biel!\n  \n * New: Functions FileTimeToDate() and FileTimeToTime(), used from Class TFtp, so dates and times of the FTP files are properly retrieved.\n   \n * Enhancement: Class TBtnBmp now detects if DATA lTransparent is .T. and if yes, then it paints itself transparent. Please review samples\\TestBtnB.prg\n   \n * Enhancement: FWPPC, Class TBtnBmp minor fix on Method GotFocus(). Also its dotted line painting has been improved.\n   \n * New: FWPPC, wininet support for Classes TInternet and TFTP are ready!  \n    \n * New: FWPPC samples\\ping.prg sample to check other computers existence on the IntraNet/Internet. Very usefull to check if the Pocket PC is properly conected to your LAN.','',0,'','2l1osmc7',1,0,'',2,0,0),(22493,4757,3,239,0,'218.19.155.152',1164428105,1,0,1,1,1,0,'','','This the test.c and include file come from  iamge2pdf.dll download package\n\n#include &lt;Windows.h&gt;\n#include \"Image2PDF.h\"\n\n\nUINT ShowError(char *which, UINT iErr)\n{\n	char message[200];\n	\n	wsprintf(message, \"%s returned error %d\", which, iErr);\n\n	MessageBox(NULL, message, \"Error Returned From Image2PDF DLL\", MB_OK | MB_ICONERROR);\n\n	return iErr;\n}\n\n\nint PASCAL WinMain(HINSTANCE hCurrentInstance, HINSTANCE hPreviousInstance,\n                   LPSTR lpszCommandLine, int iCommandShow)\n{\n	UINT	iErr;\n	char	appDir[MAX_PATH + 1];\n	char	imageFilename[MAX_PATH + 1];\n	char	pdfFilename[MAX_PATH + 1];\n	char	*p;\n	char	errorText[1024];\n\n	// determine where app is running\n	lstrcpy(appDir, GetCommandLine());\n	if (*appDir == \'\"\')\n		lstrcpy(appDir, GetCommandLine() + 1);\n	p = strrchr(appDir, \'\\\\\');\n	if (p) p[1] = 0;\n\n	wsprintf(imageFilename, \"%stest.jpg\", appDir);\n	wsprintf(pdfFilename, \"%stest.pdf\", appDir);\n\n	iErr = I2PDF_AddImage(imageFilename);			if (iErr) return ShowError(\"I2PDF_AddImage\", iErr);\n	iErr = I2PDF_SetDPI(96);						if (iErr) return ShowError(\"I2PDF_SetDPI\", iErr);\n	iErr = I2PDF_MakePDF(pdfFilename, OPTION_OPEN_PDF, errorText, sizeof(errorText));\n	if (iErr)\n	{\n		if (iErr == 3)\n			ShowError(errorText, iErr);\n		else\n			ShowError(\"I2PDF_MakePDF\", iErr);\n	}\n	return 0;\n}\n\n\n\n2. I write a test.prg\n\nACTIVATE REPORT oRpt ;\n		WHILE 	( oRpt:Cargo == 1 );\n					 on end save2pdf(orpt)\n\nFUNCTION save2pdf(orpt)\nprivate ctext:=SPACE(4096)\naFiles := orpt:oDevice:aMeta\nfor i:=1 TO LEN(afiles)\nI2PDF_AddImage(afiles[i])\nend\nI2PDF_MakePDF(\"d:\\aaa.pdf\", 1, @cTEXT, 4096)\n\nreturn .t.\n\nThis  do not create pdf file at all.\n\nBest Regard!\n\nShuming Wang','',0,'','1erz5o60',1,0,'',239,0,0),(22494,4757,3,239,0,'218.19.155.152',1164428239,1,0,1,1,1,0,'','','This the test.c and include file come from  iamge2pdf.dll download package\n\n#include &lt;Windows.h&gt;\n#include \"Image2PDF.h\"\n\n\nUINT ShowError(char *which, UINT iErr)\n{\n	char message[200];\n	\n	wsprintf(message, \"%s returned error %d\", which, iErr);\n\n	MessageBox(NULL, message, \"Error Returned From Image2PDF DLL\", MB_OK | MB_ICONERROR);\n\n	return iErr;\n}\n\n\nint PASCAL WinMain(HINSTANCE hCurrentInstance, HINSTANCE hPreviousInstance,\n                   LPSTR lpszCommandLine, int iCommandShow)\n{\n	UINT	iErr;\n	char	appDir[MAX_PATH + 1];\n	char	imageFilename[MAX_PATH + 1];\n	char	pdfFilename[MAX_PATH + 1];\n	char	*p;\n	char	errorText[1024];\n\n	// determine where app is running\n	lstrcpy(appDir, GetCommandLine());\n	if (*appDir == \'\"\')\n		lstrcpy(appDir, GetCommandLine() + 1);\n	p = strrchr(appDir, \'\\\\\');\n	if (p) p[1] = 0;\n\n	wsprintf(imageFilename, \"%stest.jpg\", appDir);\n	wsprintf(pdfFilename, \"%stest.pdf\", appDir);\n\n	iErr = I2PDF_AddImage(imageFilename);			if (iErr) return ShowError(\"I2PDF_AddImage\", iErr);\n	iErr = I2PDF_SetDPI(96);						if (iErr) return ShowError(\"I2PDF_SetDPI\", iErr);\n	iErr = I2PDF_MakePDF(pdfFilename, OPTION_OPEN_PDF, errorText, sizeof(errorText));\n	if (iErr)\n	{\n		if (iErr == 3)\n			ShowError(errorText, iErr);\n		else\n			ShowError(\"I2PDF_MakePDF\", iErr);\n	}\n	return 0;\n}\n\n\n\n2. I write a test.prg\n\nACTIVATE REPORT oRpt ;\n		WHILE 	( oRpt:Cargo == 1 );\n					 on end save2pdf(orpt)\n\nFUNCTION save2pdf(orpt)\nprivate ctext:=SPACE(4096)\naFiles := orpt:oDevice:aMeta\nfor i:=1 TO LEN(afiles)\nI2PDF_AddImage(afiles[i])\nnext\nI2PDF_MakePDF(\"d:\\aaa.pdf\", 1, @cTEXT, 4096)\n\nreturn .t.\n\n\nDLL32 Function I2PDF_AddImage(image as LPSTR); \nAS LONG PASCAL FROM \"I2PDF_AddImage\" LIB \"IMAGE2PDF.DLL\" \n\n\nDLL32 Function I2PDF_MakePDF(output As LPSTR, options as LONG, @cBuffer As LPSTR, ; \n   maxErrorTextSize As LONG); \nAS LONG PASCAL FROM \"I2PDF_MakePDF\" LIB \"IMAGE2PDF.DLL\" \n\nThis  do not create pdf file at all.\n\nBest Regard!\n\nShuming Wang','',0,'','3iv9xjcm',1,0,'',239,0,0),(22495,2486,16,2,0,'87.218.146.151',1164428578,1,0,1,1,1,1,'','','Harbour for Borland, November 12 2006 build:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/JRU0KNHA/harbour.EXE.html\">http://www.uploading.com/files/JRU0KNHA ... r.EXE.html</a><!-- m -->\n\nxHarbour for Borland, November 24 2006 build:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/ZI3B5TVH/xharbour.EXE.html\">http://www.uploading.com/files/ZI3B5TVH ... r.EXE.html</a><!-- m -->\n\nxHarbour for Microsoft, November 24 2006 build:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/U2QUK7FG/xharbourm.EXE.html\">http://www.uploading.com/files/U2QUK7FG ... m.EXE.html</a><!-- m -->','',0,'','2bnk65zk',1,0,'',2,0,0),(22498,5078,6,785,0,'190.64.126.250',1164432517,1,0,1,1,1,0,'','boton y dialogo','Amigos:\n\nTengo un btnget que al presionarlo muestra un dialogo nuevo.\n\nDeseo que este dialogo se posicione debajo del btnget.\n\nNo lo he logrado con oGet:ntop, oGet:nLeft\n\nAl pasarle la referencia del oGet.ntop y oGet:nleft\nno lo posiciona en el lugar correcto.(debajo del get.)\n\nSaludos y gracias.\n\nRuben Fernandez.','',0,'','1j2gg08g',1,0,'',785,0,0),(22499,5056,6,397,0,'201.13.16.139',1164434555,1,0,1,0,1,1,'','','Si\n\nEntonces debes usar INSERT pois con ele tu iras referenciar la tabla alvo mas directamente.','',0,'','h5fj7keg',1,0,'',397,0,0),(22500,5069,6,176,0,'201.255.137.22',1164457164,1,0,1,1,1,0,'','ButtonBar y BTNBMP','Tampoco me funcionan en los ejemplos que trae el fwh25, están compilados con los mak que trae el mismo. Cuando hice un programa con fwh25 me los mostraba, y ahora no me los muestra, hay que tener algún archivo en especial...\n\nGracias','',0,'','2cpjj6u0',1,0,'',176,0,0),(22501,5069,6,2,0,'87.218.146.151',1164458489,1,0,1,1,1,1,'','','Luis,\n\nPrueba el ejemplo samples\\TestBtnB.prg que debería funcionarte bien.','',0,'','1lon1487',1,0,'',2,0,0),(22502,5040,7,832,0,'201.122.21.224',1164464037,1,0,1,1,1,0,'','','SI EFECTIVAMENTE COLOQUE YA ESTOS DATOS PREVIAMENTE...\n\n\nPERO NO SE QUE VALOR ME DA CUANDO SE CONECTA...\n\n\n  LOCAL oWnd\n    PUBLIC server:=\"128.50.1.179\"+space(15)\n    PUBLIC user:=\"pedro\"+space(15)\n    PUBLIC pass:=\"pedro\"+space(15)\n    PUBLIC loc_archivo:= \"c:\\FWPPC\\SAMPLES\\BASES\" +\"\\ticket.dbf\"+space(15)\n    PUBLIC rem_archivo:=\"/sistemas/pedro/ticket.dbf\"+space(40)\n\n\n\nY DESPUES ESTO\n\n\n\nFUNCTION Enviar()\n    LOCAL nRet\n    LOCAL hInternet, hConnect\n    hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )\n    hConnect = INTERNETCONNECT(hInternet, rtrim(server), INTERNET_INVALID_PORT_NUMBER, rtrim(user), rtrim(pass), INTERNET_SERVICE_FTP, 0, 0 )\n       msginfo(hConnect )\n    IF FTPPUTFILE( hConnect, rtrim(loc_archivo), rtrim(rem_archivo),iif(lBinary,INTERNET_FLAG_TRANSFER_BINARY,INTERNET_FLAG_TRANSFER_ASCII), 0 )\n       nRet:=0\n       msgalert(\"enviado\")\n    ELSE\n       nRet:=GetLAstError()\n       msgalert(\"error\")\n    ENDIF\n    INTERNETCLOSEHANDLE( hConnect )\n    INTERNETCLOSEHANDLE( hInternet )\nRETURN nRet','',0,'','32d8n3wj',1,0,'',832,0,0),(22503,5073,6,492,0,'189.147.23.225',1164469077,1,0,1,1,1,1,'','','hola Jose\n\nTe comento como lo hago yo, seguro habra mas formas  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n-Para poner un combo\n\nEn el browse, pongo el metodo para capturar las teclas :\n     lbCapVta:bKeyDown   := { | nKey | CAPVTSKEY( nKey ) }\n\nen la funcion, determino la accion dependiendo de la tecla :\nIf nkey == VK_SPACE\n   blablabla\n...\n...\n...\nELSEIF nKey == VK_RETURN\n   EdtAllColsVta()\nENDIF\n\ny ya en la funcion que edita las celdas :\n\nsi quiero editar celda \"normal\" Char o Num\n	IF lbCapVta:lEditCol( aColAr[nQ], @xVal, aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN )\n[img:38giaqao]http&#58;//img143&#46;imageshack&#46;us/img143/1358/brwgetvy5&#46;jpg[/img:38giaqao]\n\nsi quiero abrir un combo, basta con agregar el arreglo\n	IF lbCapVta:lEditCol( aColAr[nQ], @xval, aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN, [color=blue:38giaqao]TuArreglo[/color:38giaqao] )\n[img:38giaqao]http&#58;//img175&#46;imageshack&#46;us/img175/9772/brwcmbjh2&#46;jpg[/img:38giaqao]\n\ny listo, lo demas lo hace la clase !!!\n\n\nPara poner el Checkbox como tal, no se si se pueda, lo que si se, es que se puede hacer de estas maneras :\n\n- Igual que los puntos anteriores, solo cambia esto :\n	IF lbCapVta:lEditCol( aColAr[nQ], [color=blue:38giaqao].T.[/color:38giaqao], aPicArr[aEleAr[nQ]], , CLR_YELLOW, CLR_CYAN )\ny te va a mostrar un combobox con .T. y .F.\n\n- Y la otra que es mucho mas nice  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> es usando un bitmap en la celda representando el estado de la seleccion\n[img:38giaqao]http&#58;//img146&#46;imageshack&#46;us/img146/4715/brwchkly0&#46;jpg[/img:38giaqao]\n\nEspero te sirva algo de esto\n\n\nSaludos','',0,'Cg==','38giaqao',1,0,'',492,0,0),(22504,5065,3,190,0,'202.65.134.36',1164471948,1,0,1,1,1,0,'','','Mr.Rene \n\nI have left a message in your private email box, seeking some clarifications regarding CANALFIVE Controls.\n\nPlease look into it.\n\nRegards\n\n- Ramesh Babu P','',0,'Cg==','1kdt15tt',1,0,'',190,0,0),(22505,5079,3,190,0,'202.65.134.36',1164474252,1,0,1,1,1,0,'','How to paint a transparent bitmap on a bitmap ?','Hi \n\nCan anybody suggest me how to paint a transparent bitmap on a bitmap\npainted at a particular location of a non-brushed dialog ?\n\n[code:7wtyoyij]\n// Text on a bitmap\n\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNC main&#40;&#41; \n\n   local oWnd, oBmp, oBmp1\n\n   DEFINE WINDOW oWnd TITLE &quot;Text on a bitmap&quot; \n\n   @ 1, 1 BITMAP oBmp FILENAME &quot;&#46;&#46;\\bitmaps\\magic&#46;bmp&quot; OF oWnd \n\n   oBmp&#58;bPainted = &#123; || SetBkMode&#40; oBmp&#58;hDC, 1 &#41;,; \n                        SetTextColor&#40; oBmp&#58;hDC, CLR_YELLOW &#41;,;\n                        TextOut&#40; oBmp&#58;hDC, 5, 5, &quot;Hello&quot; &#41; &#125; \n\n   @ 2, 1 BITMAP oBmp1 FILENAME &quot;&#46;&#46;\\bitmaps\\book&#46;bmp&quot; OF oBmp NO BORDER\n\n   ACTIVATE WINDOW oWnd \n\nRETURN NIL \n\n[/code:7wtyoyij]\n\nThe Result is :\n\n[url=http&#58;//img82&#46;imageshack&#46;us/my&#46;php?image=bmponbmpvp4&#46;jpg:7wtyoyij][img:7wtyoyij]http&#58;//img82&#46;imageshack&#46;us/img82/2721/bmponbmpvp4&#46;th&#46;jpg[/img:7wtyoyij][/url:7wtyoyij]\n\nBut I want the book\'s background should get merged with the  image in the background of the lady in the picture.\n\n\nThanks \n\n- Ramesh Babu P','',0,'GIA=','7wtyoyij',1,0,'',190,0,0),(22506,5079,3,2,0,'87.218.146.151',1164477978,1,0,1,1,1,1,'','','Ramesh,\n[code:1oomqpev]\n#include &quot;FiveWin&#46;ch&quot; \n\nFUNC main&#40;&#41; \n\n   local oWnd, oBmp, oBmp1, hBitmap\n\n   DEFINE WINDOW oWnd TITLE &quot;Text on a bitmap&quot; \n\n   hBitmap &#58;= ReadBitmap&#40; 0, &quot;&#46;&#46;\\bitmaps\\book&#46;bmp&quot; &#41;\n\n   @ 1, 1 BITMAP oBmp FILENAME &quot;&#46;&#46;\\bitmaps\\magic&#46;bmp&quot; OF oWnd \n\n   oBmp&#58;bPainted = &#123; || PaintTransparent&#40; oBmp&#58;hDC, hBitmap &#41;,;\n                        SetBkMode&#40; oBmp&#58;hDC, 1 &#41;,; \n                        SetTextColor&#40; oBmp&#58;hDC, CLR_YELLOW &#41;,; \n                        TextOut&#40; oBmp&#58;hDC, 5, 5, &quot;Hello&quot; &#41; &#125;\n\n   ACTIVATE WINDOW oWnd \n\n   DeleteObject&#40; hBitmap &#41;\n\nRETURN NIL\n\nfunction PaintTransparent&#40; hDC, hBitmap &#41;\n\n   local hBmpOld &#58;= SelectObject&#40; hDC, hBitmap &#41;\n   local nZeroZeroClr &#58;= GetPixel&#40; hDC, 0, 0 &#41;\n   local nOldClr \n\n   SelectObject&#40; hDC, hBmpOld &#41;\n   nOldClr = SetBkColor&#40; hDC, nRGB&#40; 255, 255, 255 &#41; &#41;\n   TransBmp&#40; hBitmap, nBmpWidth&#40; hBitmap &#41;, nBmpHeight&#40; hBitmap &#41;,;\n             nZeroZeroClr, hDC, 10, 20, nBmpWidth&#40; hBitmap &#41;, nBmpHeight&#40; hBitmap &#41; &#41;\n   SetBkColor&#40; hDC, nOldClr &#41;          \n\nreturn nil\n[/code:1oomqpev]\n[url=http&#58;//imageshack&#46;us:1oomqpev][img:1oomqpev]http&#58;//img146&#46;imageshack&#46;us/img146/5622/bpmonbmppj5&#46;png[/img:1oomqpev][/url:1oomqpev]\nAnd change book.bmp this way:\n[url=http&#58;//imageshack&#46;us:1oomqpev][img:1oomqpev]http&#58;//img166&#46;imageshack&#46;us/img166/4503/bookjp8&#46;png[/img:1oomqpev][/url:1oomqpev]','',0,'GIA=','1oomqpev',1,0,'',2,0,0),(22507,5074,3,2,0,'87.218.146.151',1164478753,1,0,1,1,1,1,'','','José,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3841&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'GIA=','364voeed',1,0,'',2,0,0),(22508,5052,3,2,0,'87.218.146.151',1164478922,1,0,1,1,1,1,'','','Hathal,\n\nThere is no source code at <!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/fwh/Image_jpg_gif.zip\">http://www.livesystem.net/fwh/Image_jpg_gif.zip</a><!-- m --> \n\n???','',0,'GIA=','2uczb7bj',1,0,'',2,0,0),(22509,5080,19,471,0,'190.40.133.36',1164479657,1,0,1,1,1,1,'','obtener hosting gratuito','Colegas\n\nsaben donde puedo conseguir hosting gratuito donde te permitan subir un diseño ya echo.\n\nGracias','',0,'GIA=','23mrpzc8',1,0,'',471,0,0),(22510,5052,3,289,0,'82.167.47.100',1164482784,1,0,1,1,1,0,'','','Antonio.\nI Sent you link the source.\nOpen your e-mail now.\nregards, \nHathal.','',0,'GIA=','1h2zu64i',1,0,'',289,0,0),(22511,5080,19,2,0,'87.218.146.151',1164484047,1,0,1,1,1,1,'','','Vladimir,\n\nGoogle Pages: \n<!-- m --><a class=\"postlink\" href=\"http://pages.google.com\">http://pages.google.com</a><!-- m -->\n\nPuedes crear tus páginas y subir las tuyas propias.','',0,'GIA=','hwkjvbja',1,0,'',2,0,0),(22512,5081,20,532,0,'84.222.81.200',1164486770,1,0,1,1,1,0,'','Password','Ho una funzione in un programma che vorrei venisse usata solo\ndopo aver inserito una password.\n\nE\' possibile usare un GET in modo che quando scrivo la password\nappaiano degli asterischi oppure nulla?\n\nHo provato con MSGGET ma non si può fare molto...\nnon so e accetta colori, ad esempio bianco su bianco.\n\nGrazie.','',0,'GIA=','272j4qm0',1,0,'',532,0,0),(22513,5072,2,375,0,'84.122.113.64',1164486840,1,0,1,1,1,1,'','','Yo empecé con FW 1.9 y Clipper 5.2 y Blinker 4.0. Ahora tengo el FW 2.3, Clipper 5.3 (Recomendado por el RDD CDX) y sigo con Blinker 4.0, pero puedes probar con otro (5.0, 6.0, 7.0)','',0,'GIA=','9kjgfcef',1,0,'',375,0,0),(22514,5057,6,375,0,'84.122.113.64',1164487410,1,0,1,1,1,1,'','','Yo, lo que hago, es que le digo que cuando reciba el foco que lo mande a otro lado. Por ejemplo:\n\noGet[1]:bGotFocus := { || oGet[2]:SetFocus() }  (o algo así, depende la situación)\n\nEl efecto es muy correcto. El Get nunca tiene el foco, y puedes darle el color que te de la gana.','',0,'','3gyyde17',1,0,'',375,0,0),(22515,5078,6,73,0,'201.165.193.41',1164496914,1,0,1,1,1,0,'','','Ruben prueba esto:\n\naRect := GetClientRect( oGet )\naRect[ 3 ] + 25  // para acomodarlo en filas\naRect[ 2 ] + 10  // para acomodarlo en columnas\n\nespero te sirva\nsalu2\nPaco','',0,'','jmunmotk',1,0,'',73,0,0),(22516,5081,20,6,0,'82.61.28.238',1164498333,1,0,1,1,1,1,'','Re: Password','[quote=&quot;ik1mtt&quot;:p6w4k02n]Ho una funzione in un programma che vorrei venisse usata solo\ndopo aver inserito una password.\n\nE\' possibile usare un GET in modo che quando scrivo la password\nappaiano degli asterischi oppure nulla?[/quote:p6w4k02n]\n\nCerto, basta utilizzare la clausola PASSWORD oppure oGet:lPassword = .T.\n\nEMG','',0,'gA==','p6w4k02n',1,0,'',6,0,0),(22517,5082,6,215,0,'189.136.222.197',1164498654,1,0,1,1,1,0,'','Gets transparentes','Pues eso,\nsería interesante hacer que los gets sean transparentes. Asi al usar la clausula TRANSPARENT en el dialogo.... va a tener un look muy bonito.\n\n¿Alguien usa gets transparentes?\n\nGracias\nFernando\nMéxico','',0,'gA==','ql0iiebc',1,0,'',215,0,0),(22518,5073,6,228,0,'200.119.44.192',1164507532,1,0,1,1,1,1,'','y con xbrowse?','Ray. Islas..\n\nAmigo de casualidad no sabes como hacer esto con un xbrowse?','',0,'gA==','3q81y8wi',1,0,'',228,0,0),(22519,5083,6,66,0,'200.123.66.54',1164510493,1,0,1,0,1,0,'','Ayuda con compilacion/make varios prgs','Estimados Colegas\n\nTengo el siguiente archivo  rmk y me esta dando\nerror de sintaxis alguien me podria indicar como\nsolucionarlo\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=c:\\Xharbour1\nBCDIR=c:\\bcc55\nFWDIR=c:\\fwh\n\n#change these paths as needed\n.path.PRG = .\\\n.path.OBJ = .\\obj\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\nPRG = \\\nGvta.PRG \\\nClientes.PRG \\\nCLIVen.PRG \\\ncondicuo.PRG \\\nrubros.PRG \\\ntipocli.PRG \\\nzonas.PRG \\\nEXPRESOS.PRG \\\nfpagos.PRG \\\nalm.PRG \\\nlibre.PRG \\\nPROVEEDO.PRG \\\ncodiva.PRG \\\nmonedas.PRG \\\nCLIPROVI.PRG \\\nTIPART.PRG \\\nGARTIC.PRG  \\\nTUNI.PRG   \\\nmarcas.PRG \\\nCOLORES.PRG \\\ntipcb.PRG    \\\nBANCO.PRG    \\\ntipmcb.PRG   \\\nzoomprov.PRG \\\ngenrep.PRG   \\\nZOOMEXP.PRG  \\\nZOOMCVE.PRG  \\\nREPRUB.PRG   \\\nREPTCLI.PRG  \\\nCOMPROB.PRG  \\\nTALONAR.PRG  \\\nprog_usu.PRG \\\nusucpb.PRG   \\\narchabm.PRG  \\\nindices.PRG  \\\nparametr.PRG \\\nARTICU.PRG   \\\nzoomreg.PRG  \\\nGRID.PRG     \\\nREPCLI.PRG   \\\nREPPROVE.PRG \\\nZoomVen.PRG  \\\nZoomTCL.PRG  \\\nREPPROV.PRG  \\\nREPCOV.PRG   \\\nREPZON.PRG   \\\nREPEXP.PRG   \\\nREPALM.PRG   \\\nZOOMMON.PRG  \\\nREPFPAG.PRG  \\\nREPCIVA.PRG  \\\nREPMON.PRG   \\\nREPROVI.PRG  \\\nzoomcli.PRG  \\\nzoomRUB.PRG  \\\nzoomtun.PRG  \\\nzoomPRO.PRG  \\\nzoomcol.PRG  \\\nREPART .PRG  \\\nREPTART.PRG  \\\nREPMAR.PRG   \\\nREPGAR.PRG   \\\nREPTUNI.PRG  \\\nREPCOL.PRG   \\\nREPBAN.PRG   \\\nREPTTCP.PRG  \\\nREPTMCB.PRG  \\\nPAISES.PRG   \\\nREPPAS.PRG   \\\nREPVEN.PRG   \\\nCLIART.PRG   \\\npCLIART.PRG  \\\nzoomart.PRG  \\\nREPLIST.PRG  \\\nPERSONAL.PRG \\\nREPERS.PRG   \\\nCUENTA.PRG   \\\nREPCUE.PRG   \\\nRElctabc.PRG \\\nzoomban.PRG  \\\nrepRELC.PRG  \\\nEPRODUC.PRG  \\\ncotiza.PRG   \\\nREPEPRO.PRG  \\\nREPCOTI.PRG\n\nC =          \\\n\n\n\nPROJECT : GVTA.exe\n\nGVTA.exe : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) GVTA.res\necho off\nEcho $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\necho obj\\Gvta.OBJ     obj\\Clientes.OBJ obj\\CLIVen.OBJ   obj\\condicuo.OBJ, + &gt; b32.bc\necho obj\\rubros.OBJ   obj\\tipocli.OBJ  obj\\zonas.OBJ    obj\\EXPRESOS.OBJ, + &gt; b32.bc\necho obj\\fpagos.OBJ   obj\\alm.OBJ      obj\\libre.OBJ    obj\\PROVEEDO.OBJ, + &gt; b32.bc\necho obj\\codiva.OBJ   obj\\monedas.OBJ  obj\\CLIPROVI.OBJ obj\\TIPART.OBJ  , + &gt; b32.bc\necho obj\\GARTIC.OBJ   obj\\TUNI.OBJ     obj\\marcas.OBJ   obj\\COLORES.OBJ , + &gt; b32.bc\necho obj\\tipcb.OBJ    obj\\BANCO.OBJ    obj\\tipmcb.OBJ   obj\\zoomprov.OBJ, + &gt; b32.bc\necho obj\\genrep.OBJ   obj\\ZOOMEXP.OBJ  obj\\ZOOMCVE.OBJ  obj\\REPRUB.OBJ  , + &gt; b32.bc\necho obj\\REPTCLI.OBJ  obj\\COMPROB.OBJ  obj\\TALONAR.OBJ  obj\\prog_usu.OBJ, + &gt; b32.bc\necho obj\\usucpb.OBJ   obj\\archabm.OBJ  obj\\indices.OBJ  obj\\parametr.OBJ, + &gt; b32.bc\necho obj\\ARTICU.OBJ   obj\\zoomreg.OBJ  obj\\GRID.OBJ     obj\\REPCLI.OBJ  , + &gt; b32.bc\necho obj\\REPPROVE.OBJ obj\\ZoomVen.OBJ  obj\\ZoomTCL.OBJ  obj\\REPPROV.OBJ , + &gt; b32.bc\necho obj\\REPCOV.OBJ   obj\\REPZON.OBJ   obj\\REPEXP.OBJ   obj\\REPALM.OBJ  , + &gt; b32.bc\necho obj\\ZOOMMON.OBJ  obj\\REPFPAG.OBJ  obj\\REPCIVA.OBJ  obj\\REPMON.OBJ  , + &gt; b32.bc\necho obj\\REPROVI.OBJ  obj\\zoomcli.OBJ  obj\\zoomRUB.OBJ  obj\\zoomtun.OBJ, + &gt; b32.bc\necho obj\\zoomPRO.OBJ  obj\\zoomcol.OBJ  obj\\REPART .OBJ  obj\\REPTART.OBJ , + &gt; b32.bc\necho obj\\REPMAR.OBJ   obj\\REPGAR.OBJ   obj\\REPTUNI.OBJ  obj\\REPCOL.OBJ  , + &gt; b32.bc\necho obj\\REPBAN.OBJ   obj\\REPTTCP.OBJ  obj\\REPTMCB.PRG  obj\\PAISES.OBJ  , + &gt; b32.bc\necho obj\\REPPAS.OBJ   obj\\REPVEN.OBJ   obj\\CLIART.OBJ   obj\\pCLIART.OBJ , + &gt; b32.bc\necho obj\\zoomart.OBJ  obj\\REPLIST.OBJ  obj\\REPTMCB.PRG  obj\\PAISES.OBJ  , + &gt; b32.bc\necho obj\\CUENTA.OBJ   obj\\REPCUE.OBJ   obj\\REPPAS.OBJ   obj\\REPVEN.OBJ  .\\RElctabc.OBJ  .\\zoomban.OBJ , + &gt; b32.bc\necho obj\\repRELC.OBJ  obj\\EPRODUC.OBJ  obj\\cotiza.OBJ   obj\\REPEPRO.OBJ  .\\PERSONAL.OBJ .\\REPERS.OBJ , + &gt; b32.bc\necho obj\\REPCOTI.OBJ\n\necho $(FWDIR)\\lib\\FiveH.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\gtwin.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\dbfcdx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\dbfdbt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\b32\\codepage.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\b32\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\b32\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\n   IF EXIST Alert.res echo Alert.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n   del b32.bc\n\n.PRG.OBJ:\n  $(HBDIR)\\bin\\b32\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(BCDIR)\\bin\\bcc32 -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n  del tmp\n\ngvta.res : gvta.rc\n  $(BCDIR)\\bin\\brc32.exe -r Alert.rc\n\Z','',0,'gA==','2feslcic',1,0,'',66,0,0),(22520,5073,6,439,0,'200.125.48.4',1164510803,1,0,1,1,1,1,'','','Muchas gracias por tu ayuda Raymundo, ya estoy trabajando con comboboxes y anduvo fantástico.','',0,'gA==','38nho9jb',1,0,'',439,0,0),(22521,5074,3,439,0,'200.125.48.4',1164510930,1,0,1,1,1,1,'','','Thankyou very much Antonio, that was what I was looking for. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nI will try the examples.','',0,'gA==','ys7tgrcq',1,0,'',439,0,0),(22522,5078,6,785,0,'190.64.99.252',1164514220,1,0,1,1,1,0,'','','Gracias Paco:\n\nNo funciono, pero lo sigo haciendo en forma normal,\nque el dialogo aparezca centrado.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','136qie78',1,0,'',785,0,0),(22523,5063,1,186,0,'66.130.50.142',1164517886,1,0,1,1,1,1,'','','Hi Enrico,\n\nI don `t have a corrupted driver or whatever. It never worked on any PC with any Priter for the past 3 years. It`s not a printer driver it`s a BUG.\n\nRegards,','',0,'gA==','14w4zlrx',1,0,'',186,0,0),(22524,5063,1,6,0,'87.16.238.110',1164531164,1,0,1,1,1,1,'','','[quote=&quot;Gilbert&quot;:37bpao26]Hi Enrico,\n\nI don `t have a corrupted driver or whatever. It never worked on any PC with any Priter for the past 3 years. It`s not a printer driver it`s a BUG.\n\nRegards,[/quote:37bpao26]\n\nAre you saying that I was just lucky? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Please note that you seem to be the only one that is having printing problem with FW 16bit, or am I wrong?\n\nEMG','',0,'gA==','37bpao26',1,0,'',6,0,0),(22525,5083,6,2,0,'87.218.146.151',1164532963,1,0,1,1,1,1,'','','&gt; me esta dando error de sintaxis\n\nQue error exactamente te aparece ?','',0,'gA==','1lkjeiwc',1,0,'',2,0,0),(22526,5079,3,190,0,'202.65.134.36',1164537549,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nThank you very much.  \n\nYour function \"PaintTransparent( hDC, hBitmap )\" has done the job. \n\nRegards\n\n- Ramesh Babu P','',0,'gA==','2455nqxz',1,0,'',190,0,0),(22527,5084,6,9,0,'85.59.66.130',1164542348,1,0,1,1,1,1,'','REDEFINIR CHECKBOX','En un dialogo, definido desde recursos (WS) tengo redefinido un checkbox de la siguiente forma:\n\n   REDEFINE CHECKBOX oAnu VAR lAnu ID 10 OF oDlg\n\n   IF cOpcion = \"Pagados\"\n      oAnu:SetText(\"Solo pagados por Banco\")\n   ENDI\n\nNo me funciona la redefinición del texto en tiempo de ejecución y continua apareciendo el texto definido en WS.\n\n¿Alguna ayuda?','',0,'gA==','mflh8iq1',1,0,'',9,0,0),(22528,5084,6,2,0,'87.218.146.151',1164547191,1,0,1,1,1,1,'','','Manuel,\n\nEl cambio del texto tienes que hacerlo desde la claúsula ON INIT del diálogo:\n\nACTIVATE DIALOG oDlg ON INIT CambiaTexto()','',0,'gA==','1icbguh9',1,0,'',2,0,0),(22529,5083,6,66,0,'200.123.83.191',1164547410,1,0,1,0,1,0,'','','Estimado Antonio\n\n\nen estas lineas y subsiguientes  me da   command syntax error\n\n\nEcho $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\necho obj\\Gvta.OBJ obj\\Clientes.OBJ obj\\CLIVen.OBJ obj\\condicuo.OBJ, + &gt; b32.bc\necho obj\\rubros.OBJ obj\\tipocli.OBJ obj\\zonas.OBJ obj\\EXPRESOS.OBJ, + &gt; b32.bc\necho obj\\fpagos.OBJ obj\\alm.OBJ obj\\libre.OBJ obj\\PROVEEDO.OBJ, + &gt; b32.bc\necho obj\\codiva.OBJ obj\\monedas.OBJ obj\\CLIPROVI.OBJ obj\\TIPART.OBJ , + &gt; b32.bc\necho obj\\GARTIC.OBJ obj\\TUNI.OBJ obj\\marcas.OBJ obj\\COLORES.OBJ , + &gt; b32.bc\necho obj\\tipcb.OBJ obj\\BANCO.OBJ obj\\tipmcb.OBJ obj\\zoomprov.OBJ, + &gt; b32.bc\necho obj\\genrep.OBJ obj\\ZOOMEXP.OBJ obj\\ZOOMCVE.OBJ obj\\REPRUB.OBJ , + &gt; b32.bc \n\n\n\nGracias\nSaludos\nFabian','',0,'gA==','1wh7j7n4',1,0,'',66,0,0),(22530,5069,6,176,0,'201.255.132.153',1164553069,1,0,1,1,1,0,'','','Antonio, lo que hice fue reinstalar el fwh (ya que compilaba también los ejemplos y pasaba lo mismo???), y bueno ahora los BTNBMP funcionan perfecto, lo que me sigue sin mostrar son las imágines de la barra de  botones, el ejemplo de fwh funciona pero estamos llamando a los bitmaps desde disco, y en mi caso lo hago desde el recurso, el código es el siguiente...\n\n DEFINE BUTTONBAR oBar 3D  OF oVentPrinc;\n            SIZE 50,30                           //tamaño de los bimaps requeridos\n\n\nDEFINE BUTTON RESOURCE \"cli_bar\" OF oBar ;\n         TOOLTIP \"Clientes\";\n         ACTION  BrwClient() GROUP;                  \n         MESSAGE \"Edición de Clientes\"  NOBORDER\n\ndónde todas la variables estan definidas como locales\n\nUso fwh25 versión Octubre 2004 y borland, quisiera poder seguir llamando a los botones desde el recurso (en lo posible).\n\nGracias por tu atención\n\nLuis','',0,'gA==','3en1mtmp',1,0,'',176,0,0),(22531,5073,6,176,0,'201.255.132.153',1164553841,1,0,1,1,1,0,'','','José, utilizo tambien el browse de hernán en cuanto a los combo lo que hice fue (version 17) comentar en la línea 3524 lo siguiente:\n\n      case aItems != nil\n           @  aPos[ 1 ] + 1, aPos[ 2 ] + 1 COMBOBOX ::oGet VAR uVar ITEMS aItems \n	   /*; SIZE nWidth, Max( 200, Len( aItems ) * 25 ) OF Self ;\n              FONT oFont COLOR nClrFore, nClrBack ;\n              ON CHANGE ::End() ;\n              PIXEL*/\n\nY hasta ahora me funciona perfecto\n\nLuis','',0,'','1s5hwxcp',1,0,'',176,0,0),(22532,5083,6,2,0,'87.218.146.151',1164554515,1,0,1,1,1,1,'','','Fabian,\n\nOjo que a partir de la segunda debes usar &gt;&gt; en vez de &gt;','',0,'','1rt4sd9c',1,0,'',2,0,0),(22533,5084,6,9,0,'85.59.66.130',1164558603,1,0,1,1,1,1,'','','Antonio,\n\nComo siempre, tu solución ha funcionado perfectamente. Muchas gracias.','',0,'','fz3a99l4',1,0,'',9,0,0),(22534,4377,6,52,0,'200.127.196.8',1164562795,1,0,1,1,1,1,'','','[quote=&quot;MarioG&quot;:1u8wtylf]Marco:\nSi está utilizando wBrowse de hernán en ael archivo de ayuda se puede leer:\n\n0) Nuevas variables ::bTextColor y ::bBkColor. Son bloques de codigo que\n   se evalúan en tiempo de pintado. Pueden devolver una valor NUMERICO,\n   que representa el color RGB con el cual se pintar  el texto o fondo,\n   segun el bloque. Si devuelve otro valor, los colores ser n los especi-\n   ficados en las respectivas varialbes de instancia de la clase.\n   Se env¡an 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n   nStyleLine, puede asumir los siguientes valores:\n             0 -&gt; Celda standard normal\n             1 -&gt; Celda Header\n             2 -&gt; Celda Footer\n             3 -&gt; Celda standard normal seleccionada\n\n0) Nueva variable: ::bFont. Es un bloque de codigo opcional, que se ejecuta\n   en tiempo de pintado, y envia 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n   nStyleLine, puede asumir los siguientes valores:\n             0 -&gt; Celda standard normal\n             1 -&gt; Celda Header\n             2 -&gt; Celda Footer\n             3 -&gt; Celda standard normal seleccionada\n\nsaludos[/quote:1u8wtylf]\n\nPodrias explicarme como es el uso del bfont, porque no lo entiendo, necesito que las celdas del tw tengan un determinado font.\n\nGracias.','',0,'gA==','1u8wtylf',1,0,'',52,0,0),(22535,4377,6,582,0,'201.252.103.20',1164566093,1,0,1,1,1,0,'','','[quote=&quot;goosfancito&quot;:647wmd5b][quote=&quot;MarioG&quot;:647wmd5b]Marco:\nSi está utilizando wBrowse de hernán en ael archivo de ayuda se puede leer:\n\n0) Nueva variable: ::bFont. Es un bloque de codigo opcional, que se ejecuta\n   en tiempo de pintado, y envia 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n   nStyleLine, puede asumir los siguientes valores:\n             0 -&gt; Celda standard normal\n             1 -&gt; Celda Header\n             2 -&gt; Celda Footer\n             3 -&gt; Celda standard normal seleccionada\n\nsaludos[/quote:647wmd5b]\n\nPodrias explicarme como es el uso del bfont, porque no lo entiendo, necesito que las celdas del tw tengan un determinado font.\n\nGracias.[/quote:647wmd5b]\n\nSi por ejemplo queres cambiar el font cuando la celda esta seleccionada:\n \n Define Font oFont1 Name \"Arial\" Size 0, -12\n Define Font oFont2 Name \"Arial\" Size 0, -12 Bold Italic\n\noBrw:bFont:= {|nRow,nCol,nStyleLine| Iif( nStyleLine = [b:647wmd5b]3[/b:647wmd5b] , oFont1:hFont , oFont2:hFont ) } \n\nTodas las celdas:\noBrw:bFont:= {|nRow,nCol,nStyleLine| Iif( nStyleLine = [b:647wmd5b]0[/b:647wmd5b] , oFont1:hFont , oFont2:hFont ) } \netc.\nEspero que esto te guie.\n\nUn abrazo. El Loco =&gt;))','',0,'wA==','647wmd5b',1,0,'',582,0,0),(22536,5085,6,439,0,'200.125.50.246',1164569822,1,0,1,1,1,1,'','Combobox en WBrowse de Hernán','Hola,\n\nGracias al aporte de Uds. estoy trabajando ya con el Browse de Hernán usando comboboxes en las celdas <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , pero no son muy estéticos <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> .\n\n[url=http&#58;//img432&#46;imageshack&#46;us/my&#46;php?image=defectoqy8&#46;png:sxd4xkox][img:sxd4xkox]http&#58;//img432&#46;imageshack&#46;us/img432/5793/defectoqy8&#46;th&#46;png[/img:sxd4xkox][/url:sxd4xkox]\n\nAlguien ha podido resolver este problema?\n\nSi alguien tiene la solución,  pues, soy todo oídos <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .\n\nGracias desde ya','',0,'GA==','sxd4xkox',1,0,'',439,0,0),(22537,5086,3,439,0,'200.125.50.246',1164570056,1,0,1,1,1,1,'','Comboboxes with Wbrowse of Hernán','Hi to Everybody,\n\nThanks for your help, because of it, I am working with Wbrowse of Hernán and with comboboxes in cells <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , But they don´t look very well <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> .\n\n[url=http&#58;//img432&#46;imageshack&#46;us/my&#46;php?image=defectoqy8&#46;png:393q5kgb][img:393q5kgb]http&#58;//img432&#46;imageshack&#46;us/img432/5793/defectoqy8&#46;th&#46;png[/img:393q5kgb][/url:393q5kgb]\n\nDoes somebody repair this unperfection?\n\nIf somebody has a solution, please, I will apreciate it <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .\n\nThanks','',0,'GA==','393q5kgb',1,0,'',439,0,0),(22538,5087,6,140,0,'201.211.53.139',1164583825,1,0,1,1,1,0,'','Folders por defecto en cGetDir() o cGetDir32()','Saludos a todos.\n\nTengo una aplicación para que los profesores transcriban las calificaciones que obtienen sus alumnos. Dicha aplicación utilizaba disquetes como medio de transporte, pero con la aparición de otros tantos medios de almacenamiento removibles (particularmente Pen Drives) tuve que eliminar la busqueda obligatoria de un disquete y sustituirlo por la función cGetdir().\n\nEl problema es que en Windows XP la funcion cGetDir() se comporta exactamente igual que cGetDir32() y no me permite establecer una carpeta por defecto, sino que el dialogo siempre se abre apuntando a MiPC, lo cual ciertamente hace fastidioso el tener que indicar siempre la ubicación de la carpeta donde se transportarán los datos.\n\nExiste alguna forma de poder establecer que el diálogo abra en una carpeta por defecto tal colo se puede hacer con la función cGetFile32()?\n\nxHarbour 0.993 + FWH2.4\n\nGracias de antemano por cualquier orientación.\n\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'GA==','3due769l',1,0,'',140,0,0),(22539,5087,6,54,0,'189.132.109.205',1164587547,1,0,1,1,1,1,'','Re: Folders por defecto en cGetDir() o cGetDir32()','GSabatino,\n\ncGetDir( &lt;cTitle&gt;, [&lt;cInitDir&gt;], &lt;nClsId&gt;, &lt;cTitle2&gt;, &lt;nFlags&gt; )\n\nestá es la sintaxis\n\nSaludos\n\n\n[quote=&quot;gsabattino&quot;:2qhsj88r]Saludos a todos.\n\nTengo una aplicación para que los profesores transcriban las calificaciones que obtienen sus alumnos. Dicha aplicación utilizaba disquetes como medio de transporte, pero con la aparición de otros tantos medios de almacenamiento removibles (particularmente Pen Drives) tuve que eliminar la busqueda obligatoria de un disquete y sustituirlo por la función cGetdir().\n\nEl problema es que en Windows XP la funcion cGetDir() se comporta exactamente igual que cGetDir32() y no me permite establecer una carpeta por defecto, sino que el dialogo siempre se abre apuntando a MiPC, lo cual ciertamente hace fastidioso el tener que indicar siempre la ubicación de la carpeta donde se transportarán los datos.\n\nExiste alguna forma de poder establecer que el diálogo abra en una carpeta por defecto tal colo se puede hacer con la función cGetFile32()?\n\nxHarbour 0.993 + FWH2.4\n\nGracias de antemano por cualquier orientación.\n\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela[/quote:2qhsj88r]','',0,'gA==','2qhsj88r',1,0,'',54,0,0),(22540,5088,17,439,0,'200.125.45.50',1164593662,1,0,1,1,1,1,'','PrimoDbf 3.2 Impresión de PDF´s gratis e ilimitada','Para aquellos que deseen tener totalmente gratis y con uso ilimitado un soft que de a los equipos una \"impresora a archivo pdf\" he utilizado este software y me ha resultado muy bien, funciona muy bien y genera los archivos casi instantáneamente.\n\nSe baja en:    <!-- m --><a class=\"postlink\" href=\"http://www.primopdf.com/\">http://www.primopdf.com/</a><!-- m -->\n\nEspero que pueda ser util a alguien.','',0,'gA==','2linagwz',1,0,'',439,0,0),(22541,5087,6,72,0,'189.136.201.196',1164595723,1,0,1,1,1,0,'','','... lo uso de esta forma y funciona.\n\n   cDbf:=cGetFile32(\"xBase (*.Dbf)|*.Dbf\",\"Seleccione DBF...\",,cPath,.T.)','',0,'gA==','2p7ckpfb',1,0,'',72,0,0),(22542,5089,6,397,0,'201.27.233.68',1164599646,1,0,1,0,1,1,'','Criptografar executável a 32 bits com Activex','Amiguinho\n\nEstive recentemente fazendo alguns testes com OCX para integra-las ao meu sistema em Fivewin e consegui exito usando NSLOCK15.OCX.\n\nUsei a versão 2.7 que possui uma classe tActivex que permite acesso direto a estas caracteristicas.\n\nNão sei qual biblioteca voce usa com o Harbour mas poderia adaptar o codigo a seguir usando o TAutoOLE do Harbour anexando a sua linkagem a HBOLE.LIB.\n\n[code:3kaf319o]\n// FiveWin ActiveX support demo - Using Adobe Acrobat Reader\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX, cLiberationKey &#58;= space&#40;16&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;nslock15vb5&#46;ActiveLock&quot; &#41;\n\n   oActiveX&#58;Do&#40; &quot;Password&quot;           , &quot;minhasenha&quot; &#41;\n   oActiveX&#58;Do&#40; &quot;SoftwareName&quot;       , &quot;NomeDoSistema&quot; &#41;\n   oActiveX&#58;Do&#40; &quot;LiberationKeyLength&quot;, 16 &#41;\n   oActiveX&#58;Do&#40; &quot;SoftwareCodeLength&quot; , 16 &#41;\n\n   //? oActiveX&#58;GetProp&#40; &quot;SoftwareCode&quot; &#41;\n\n   if ! oActiveX&#58;GetProp&#40; &quot;RegisteredUser&quot; &#41;\n      MsgGet&#40; &quot;Entre a chave de liberacao&quot;,; // Title\n              &quot;Chave&#58;&quot;,;                     // Label\n              @cLiberationKey &#41;              // A variable by reference\n      oActiveX&#58;Do&#40; &quot;LiberationKey&quot;, cLiberationKey &#41;\n   endif\n\n   if ! oActiveX&#58;GetProp&#40; &quot;RegisteredUser&quot; &#41;\n      if oActiveX&#58;GetProp&#40; &quot;LastRunDate&quot; &#41; &gt; date&#40;&#41;\n         ? \'Data foi retrocedida&#46; Programa sera encerrado\'\n      else\n         ? \'Faltam \' + Str&#40; 30 - oActiveX&#58;GetProp&#40; &quot;UsedDays&quot; &#41; &#41; + \' dias&#46;\'\n      endif\n      ? \'DEMONSTRACAO\'\n      oWnd&#58;cCaption &#58;= \'DEMONSTRACAO\'\n      SysRefresh&#40;&#41;\n   else\n      ? \'REGISTRADO\'\n      oWnd&#58;cCaption &#58;= \'REGISTRADO\'\n      SysRefresh&#40;&#41;\n   endif\n\n   //oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oWnd \nreturn nil\n[/code:3kaf319o]\n\nTroque as linhas para uso com o TAutoOLE\n\nPara manuseio do Activex através de TActiveX&#058;\n[code:3kaf319o]\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;nslock15vb5&#46;ActiveLock&quot; &#41;\n   // Métodos\n   oActiveX&#58;Do&#40; &quot;Metodo&quot;           , &quot;string&quot; &#41;\n   // Propriedades\n   oActiveX&#58;GetProp&#40; &quot;RegisteredUser&quot; &#41;\n   oActiveX&#58;SetProp&#40; &quot;Propriedade&quot;, 123 &#41;\n   oActiveX&#58;SetProp&#40; &quot;Propriedade&quot;, &quot;String&quot; &#41;\n[/code:3kaf319o]\n\nPara manuseio do Activex através de TAutoOLE:\n[code:3kaf319o]\n   oAutoOLE &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;nslock15vb5&#46;ActiveLock&quot; &#41;\n\n   // Propriedades\n   oAutoOLE&#58;Get&#40; &quot;propriedade&quot; &#41;\n   oAutoOLE&#58;Set&#40; &quot;propriedade&quot;  , 123 &#41;\n   oAutoOLE&#58;Set&#40; &quot;propriedade&quot;  , &quot;string&quot; &#41;\n\n   // Métodos\n   oActiveX&#58;Do&#40; &quot;Metodo&quot;           , &quot;string&quot; &#41;\n\n   // Termina objeto OLE\n   oAutoOLE&#58;End&#40;&#41;\n\n   ou\n\n   cVariavel &#58;= oAutoOLE&#58;propriedade // Usado para GET da propriedade\n   oAutoOLE&#58;propriedade &#58;= 123         // Usado para SET a propriedade\n   oAutoOLE&#58;propriedade &#58;= &quot;string&quot;\n[/code:3kaf319o]\n\nPara manuseio do Activex através de CreateOleObject:\n[code:3kaf319o]\n   hWordOle &#58;= CreateOleObject&#40; &quot;nslock15vb5&#46;ActiveLock&quot; &#41;\n\n   // Propriedades\n   OleGetProperty&#40; hWordOle, &quot;propriedade&quot; &#41;\n   OleSetProperty&#40; hMainWnd, &quot;propriedade&quot;, 123 &#41;\n   OleSetProperty&#40; hMainWnd, &quot;propriedade&quot;, &quot;string&quot; &#41;\n\n   // Métodos\n   OleInvoke&#40; hWordOle, &quot;Metodo&quot;, &quot;parametro&quot; &#41;\n   OleInvoke&#40; hWordOle, &quot;Metodo&quot; &#41;\n\n   // Termina objeto OLE\n   OleUninitialize&#40;&#41;\n[/code:3kaf319o]\n\nO que foi colocado aqui o que tirei de cabeça pode não estar tão correto mais basta dar uma pesquisada em exemplos de uso destes recursos e voce verá que é este o caminho.\n\nA NSLOCK pode ser baixada de:\n\n[url=http&#58;//www&#46;macoratti&#46;net/vb_nslc1&#46;htm:3kaf319o]VB - Protegendo sua aplicação com o nslock em 7 etapas. José Carlos Marcoratti[/url:3kaf319o]\n\n@braços :?)','',0,'EIA=','3kaf319o',1,0,'',397,0,0),(22543,5065,3,15,0,'203.73.54.168',1164600128,1,0,1,1,1,0,'','','Hello Rene,\n\nI had Paco\'s vTaskBar product.\nMay I upgrade it for this version?\nBecause I found put Icon or BMP within Title,\nBackground color bug. not Transparent\n\nRegards,\n\nRichard','',0,'EIA=','1edxh05w',1,0,'',15,0,0),(22544,5090,1,47,0,'203.144.143.9',1164602901,1,0,1,1,1,0,'','How can I open Rich Text File?','Dear All,\n\nI would like to open Rich Text File in FW.  Which class I should use to open it?\n\nBest regards,\nDutch','',0,'EIA=','37rejwzh',1,0,'',47,0,0),(22545,5057,6,92,0,'213.96.45.9',1164615031,1,0,1,1,1,0,'','Re: TGET','Buenas,\n\nYo utilizo 3 funciones:\n1ª Agrupa los controles que me interesan en una array y asigna color\n2ª Read Only YES -&gt; \"Deshabilita\" los controles\n3ª Read Only NO -&gt; Habilita los controles\n\n1ª Esta se llama al crear la ventana/diálogo\n\nFUNCTION lGroupGetEdit( oWnd, aGets )\nLocal nContador := 0\n\nIf ValType( oWnd:aControls ) = \"A\"\n\n    AEval( oWnd:aControls, {|oCtrl|  If( ( \"TGET\" $ oCtrl:ClassName() ), ;\n                                         AADD( aGets, oCtrl ), Nil ) } )\n\n\n    AEval( oWnd:aControls, {|oCtrl|  If( ( \"TJ02GET\" $ oCtrl:ClassName() ), ;\n                                         AADD( aGets, oCtrl ), Nil ) } )\n\n    AEval( oWnd:aControls, {|oCtrl|  If( ( \"TJ02GET\" $ oCtrl:ClassName() ), ;\n                                         ( oCtrl:nYFClrPane := J02CLRFONDOEDIT, ;\n                                           oCtrl:nYFClrText := J02CLRTEXTOEDIT ), ;\n                                         Nil ) } )\n\n    AEval( oWnd:aControls, {|oCtrl|  If( oCtrl:ClassName() == \"TGROUP\", ;\n                                         lGroupGetEdit( oCtrl, aGets ), Nil ) } )\n\n    AEval( oWnd:aControls, {|oCtrl|  If( oCtrl:ClassName() == \"TFOLDER\", ;\n                                         AEval( oCtrl:aDialogs, ;\n                                                {|oDlg| lGroupGetEdit( oDlg, aGets ) } ), ;\n                                         Nil ;\n                                       ) ;\n                           } ;\n         )\n\nEndIf\n\n2ª Esta se llama al crear la ventana/diálogo o cuando se acaba de modificar/editar los campos.\n\nFUNCTION ROYes( AMPAarra, aGets )\nLocal nContador := 0\n\nFor nContador := 1 To Len( aGets )\n    If \"CHECKBOX\" $ aGets[nContador]:ClassName()\n        /* Si el checkbox está deshabilitado no cambia el color del fondo, por tanto se procede\n           a habilitar el control y a continuación a realizar el cambio de color.\n           ------------------------------------------------------------------------------------\n        */\n        aGets[nContador]:Enable()\n        aGets[nContador]:SetColor( J02CLRTEXTO,J02CLRFONDO )\n        aGets[nContador]:Disable()\n    Else\n        aGets[nContador]:lReadOnly := .T.\n        aGets[nContador]:lUpdate   := .T.\n    EndIf\nEndfor\n\nReturn Nil\n\n\n3ª Esta se llama cuando se desea modificar/editar los campos.\n\nFUNCTION RONo( AMPAarra, aGets )\nLocal nContador := 0\n\nFor nContador := 1 To Len( aGets )\n    If \"CHECKBOX\" $ aGets[nContador]:ClassName()\n        aGets[nContador]:SetColor( J02CLRTEXTOEDIT, J02CLRFONDOEDIT )\n        aGets[nContador]:Enable()\n    Else\n        aGets[nContador]:Enable()\n        aGets[nContador]:lReadOnly := .F.\n        aGets[nContador]:lUpdate   := .F.\n    EndIf\nEndfor\n\nReturn Nil\n\nSaludos\nCarlos G.','',0,'','3uch7k6m',1,0,'',92,0,0),(22546,5060,7,720,0,'80.59.110.137',1164619914,1,0,1,1,1,0,'','','Hola a todos..\n\nSe puede montar conexiones ado en fivewin para pocket pc??. Si esto no es así como podría en una conexión pasarle un nombre de usuario y una contraseña para validar al usuario a la hora de entrar en una máquina???\n\n\nUn saludo y gracias.\n\nElías Torres.','',0,'','2k0up00r',1,0,'',720,0,0),(22547,5086,3,49,0,'213.82.134.66',1164619981,1,0,1,1,1,1,'','','there was an old class to use with twbrowse : I must found it on my cds\nwait...','',0,'','1lxrod4e',1,0,'',49,0,0),(22548,5086,3,31,0,'195.182.84.105',1164620033,1,0,1,1,1,1,'','Re: Comboboxes with Wbrowse of Hernán','[quote=&quot;jose_murugosa&quot;:nzw5pm3w]Hi to Everybody,\n\nDoes somebody repair this unperfection?\nIf somebody has a solution, please, I will apreciate it <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .\n[/quote:nzw5pm3w]\n\n\n   Hi Jose !\n\n  The solution is in twbrowse.prg . Please , search methods EditCols and etc. . You will find something similar as in below :\n\n[code:nzw5pm3w]\n      case aItems != nil\n           @  aPos&#91; 1 &#93; + 1, aPos&#91; 2 &#93; + 1 COMBOBOX &#58;&#58;oGet VAR uVar ITEMS aItems ;\n              SIZE nWidth, Max&#40; 200, Len&#40; aItems &#41; * 25 &#41; OF Self ;\n              FONT oFont COLOR nClrFore, nClrBack ;\n              ON CHANGE &#58;&#58;End&#40;&#41; ;\n              PIXEL\n[/code:nzw5pm3w]\n\n   In this place you can change parameters of combobox view height and width . \n\n   Hope this help to you . Regards !','',0,'gIA=','nzw5pm3w',1,0,'',31,0,0),(22549,5091,6,533,0,'80.32.177.143',1164623216,1,0,1,1,1,0,'','Tabs en Windows Principal','Buenos días foro:\n\n    Quiero hacer lo siguiente, poner un tab por encima de la statusbar, de manera, que cuando me meta en cualquier opción del programa aumente una pestaña del Tab.\n\n   De manera que si tengo varias pestañas (Clientes, Proveedores, Articulos), con pulsar la pestaña correspondiente se active dicha ventana. \n\n   Prácticamente sería algo parecido al control outlook, pero con tabs y en la parte de abajo de la ventana principal. \n\n   El problema es que haciendo pruebas, pinto un tabs con 2 pestañas, pero no me reacciona nada, es decir, es como si estuviese pintado y ya está.\n  \n   el código es el siguiente:\n\n\ndefine brush oBrush style borland \n	\n\n    aides:={\"Prueba1\",\"Prueba2\"}\n    define window oWndPrincipal title \"Principal\" brush oBrush  mdi menu BuildMenu()\n		define message oMsgBar of oWndPrincipal prompt \"Utilidades\" keyboard date time \n        @ 1, 1 TABS oTabs PROMPTS \"\" OF oWndPrincipal PIXEL SIZE 255,18 ACTION msginfo(\"Hola\")\n               oTabs:SetTabs(aIdes) \n    activate window oWndPrincipal maximized valid lSalir on init PonTab(oTabs,oWndPrincipal)\n	oBrush:end()\n\n\nstatic function PonTab(oTabs,oWndPrincipal)\n    oTabs:nTop := oWndPrincipal:nHeight - 200 //- Tambrow \nreturn','',0,'gIA=','1jsrhrcl',1,0,'',533,0,0),(22550,5090,1,6,0,'87.11.229.254',1164628032,1,0,1,1,1,1,'','Re: How can I open Rich Text File?','TRichEdit\n\nEMG','',0,'gIA=','5ahb5mgb',1,0,'',6,0,0),(22551,5092,6,52,0,'200.127.196.8',1164629310,1,0,1,1,1,1,'','[ Twbrowse ] Quien se ejecuta primero la original o la de H.','Estimados,\n\nNecesito saber algo, cuando estoy utilizando la clase de Hernan, la TwBrowse, y presiono una letra para comenzar a editar en celda, quien se ejecuta primero la clase original de FW o solo la de Hernana.\n\nMi pregunta va referida porque quiero ver como modificar el codigo para que la TwBrowse de Hernan tome la primer tecla que presiono al entrar a edición.\n\nMe explico: al entrar a editar y querer escribir \"hola\" presiono \"h\" y no es tomada en la de edicion si \"ola\", por lo tanto tengo que presionar 2 veces la \"h\" entonces toma \"hola\".\n\nGracias.','',0,'gIA=','3goyn7q5',1,0,'',52,0,0),(22552,5093,6,362,0,'200.168.52.156',1164633504,1,0,1,1,1,1,'','JUSTIFICAR CAMPO MEMO','Necesito justicar un campo MEMO.\n\nComo hacer??\n\nEjemplo aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=700\">http://www.fivewin.com.br/exibedicas.asp?id=700</a><!-- m -->\n\n\nGracias, saludos.','',0,'gIA=','keqwrnpr',1,0,'',362,0,0),(22553,5094,7,720,0,'80.59.110.137',1164634738,1,0,1,1,1,0,'','fusionar tablas...','Hola a todos...\n\nTengo un problema... Vamos a ver, tengo que \"unir\" varias tablas en una sola. En FOX utiliza un select ...from.... que te permite guardar la seleccion en un cursor o tabla temporal. He buscado mucho por ahi y lo único que he encontrado que dicen que funciona es la instrucción join with... que se supone que une la tabla que está activa con otra por medio de su alias y lo guarda en una tabla nueva siempre que se cumpla la condicion y ademas se pueden elegir los campos que se quieren guardar.\n\nLo estoy utilizando así:\n\n\nuse(ruta_base+\'precios.dbf\') new\nINDEX ON articulo TO precios\naliasPrecios:=ALIAS()\n\nuse(ruta_base+\'articulo.dbf\') new\nINDEX ON codart TO articulo\naliasArticulo:=ALIAS()\n\n&amp;&amp;temp es la tabla temporal en la que voy a guardar la seleccion\n&amp;&amp;precios es la tabla que no está activa..\njoin with aliasPrecios to temp for aliasPrecios-&gt;articulo=articulo-&gt;codart fields * \n\nUSE (ruta_base+\'temp.dbf\') new\n\nCOPY TO (CURDIR()+\"\\temporal.dbf\")\nCOPY TO (CURDIR()+\"\\temporal.cdx\")\n\nPero a mi no me funciona..\n\nNo me da error pero no me guarda nada...\n\nAlguien puede echarme una mano con esto, o indicarme otra forma de hacerlo,me urge y estoy estancado...\n\nSaludos y gracias..\n\nElías Torres.','',0,'gIA=','1lt7nms4',1,0,'',720,0,0),(22554,1808,2,52,0,'200.127.196.8',1164635657,1,0,1,1,1,1,'','','[quote=&quot;DanielPuente&quot;:2ejlvxgl]servicomver:\n\n                    La propia clase twbrowse de hernan te permite hacer eso, ya sea sobre matrices o sobre dbfs. Uno de los ejemplos que vienen con la clase (sample01.prg) hace justamente eso sobre matrices. Fijate estos metodos:\n\n           oLbx:lAutoEdit  := .t.\n           oLbx:bEdit:= {|nCol, cBuffer, lFirstEdit|;\n                          EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal ) }\n\n                    Algo similar podes hacer con browses sobre dbfs:\n\n		  oBcli:lAutoEdit  := .t.\n		  oBcli:bKeyChar := {|nK| if( nK==VK_RETURN,oBcli:Edit(oBcli:nColAct,.t.),) }\n		  oBcli:bEdit:= {|nCol, cBuffer, lFirstEdit|;\n                           Edita2Celda( oDlg,oBcli, nCol,cBuffer,lFirstEdit )}\n\nFunction Edita2Celda( oFld,oLbx, nCol, cBuffer, lFirstEdit )\n LOCAL lContinue:= .t., bValid, nColReal:= nCol\n\n       Do Case\n        Case nCol == 2\n							 cBuffer:=val( left( Personas-&gt;C4, 2 ))         //C41\n               bValid:= {|| If( cBuffer &lt; 0 , ;\n                            (MsgStop( \"Numero de Nucleos Familiares Incorrecto, ingrese: \"+CRLF+CRLF+;\n																			\"un valor\",oemtoansi(\"Dato Inv lido\") ),.f.), .T. ) }\n\n               If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, \"@ZE 99\", bValid,,CLR_YELLOW )\n								  TrPerson-&gt;C4:=PADL(cBuffer,2,\'0\')\n               EndIf\n 			Case nCol == 6\n							 cBuffer:=Personas-&gt;FECNAC\n               If lContinue:= oLbx:lEditCol( nColReal, @cBuffer, \"@d\", bValid,,CLR_YELLOW )\n								  TrPerson-&gt;FECNAC:=cBuffer\n               EndIf\nreturn lContinue\n\n               Con la variable lContinue controlas si sigue el ciclo de edicion (para pasar al siguiente registro y continuar agregando uno nuevo o si salis del modo de edicion).\n\n                La mayoria de las clases para browses (la tsbrowse de manuel mercado por ejemplo) permiten hacerlo.\n\nSaludos,[/quote:2ejlvxgl]\n\nNo logro refrescar la edicion de la celda.\n\nLo que quiero es poder ir editando en celda y que se actualicen los datos, no logro conseguir esto:\n\nMi código:\n[code:2ejlvxgl]FUNCTION Facturacion&#40;&#41;\n\n   LOCAL aDatos,          ;\n         nI      &#58;= 0,    ;\n         nLimite &#58;= 0\n \n   LOCAL oDlg,            ;\n         oBrw,            ;\n         aFuente&#58;= Array&#40; 7 &#41;\n \n   DEFINE FONT aFuente&#91;1&#93; name &quot;Arial Black&quot;   size 0, -13\n   DEFINE FONT aFuente&#91;2&#93; name &quot;Square721 BT&quot;  size 0, -13\n   DEFINE FONT aFuente&#91;3&#93; name &quot;MS Sans Serif&quot; size 0, -8\n   //define font aFuente&#91;4&#93; name &quot;Square721 BT&quot;  size 0, -12\n   DEFINE FONT aFuente&#91;4&#93; name &quot;Monospac821 BT&quot;  size 0, -13\n   DEFINE FONT aFuente&#91;5&#93; name &quot;Eras Bold ITC&quot; size 0, -16\n   DEFINE FONT aFuente&#91;6&#93; name &quot;Square721 BT&quot;  size 0, -12 BOLD\n   DEFINE FONT aFuente&#91;7&#93; name &quot;Square721 BT&quot;  size 0, -18 BOLD\n \n   // Array de línea en Factura\n \n   IF aSetVars&#91;32&#93;   //Terminal Fiscal\n      nLimite&#58;= 100\n   ELSE              //Terminal No Fiscal\n      nLimite&#58;= 15\n   ENDIF\n \n   aDatos&#58;= Array&#40; nLimite, 15 &#41;\n \n   FOR nItem&#58;= 1 TO nLimite\n      aDatos&#91;nItem,  1&#93; &#58;= space&#40;35&#41;  // Descripción\n      aDatos&#91;nItem,  2&#93; &#58;= 0&#46;00       // Cantidad\n      aDatos&#91;nItem,  3&#93; &#58;= 0&#46;00       // Precio Final    &#40;siempre para cualquier condición&#41;\n      aDatos&#91;nItem,  4&#93; &#58;= 0&#46;00       // % de Descuento de Linea\n      aDatos&#91;nItem,  5&#93; &#58;= 0&#46;00       // Total de Linea\n      aDatos&#91;nItem,  6&#93; &#58;= 0&#46;00       // Neto Gravado &#40;o exento si no tiene IVA&#41; No está descontado el descuento de linea\n      aDatos&#91;nItem,  7&#93; &#58;= 0&#46;00       // Alicuota IVA\n      aDatos&#91;nItem,  8&#93; &#58;= 0&#46;00       // Imp&#46; Internos &#40;$ x unidad&#41;\n      aDatos&#91;nItem,  9&#93; &#58;= 0&#46;00       // Libre\n      aDatos&#91;nItem, 10&#93; &#58;= 0&#46;00       // Libre\n      aDatos&#91;nItem, 11&#93; &#58;= space&#40;1&#41;   // Bienes o Servicios &#40;actualiza o no el stock&#41;\n      aDatos&#91;nItem, 12&#93; &#58;= space&#40;13&#41;  // Codigo del Articulo &#40;no visible&#41;\n      aDatos&#91;nItem, 13&#93; &#58;= space&#40;2&#41;   // Código de Lista de Precios\n      aDatos&#91;nItem, 14&#93; &#58;= 0&#46;00       // Libre\n      aDatos&#91;nItem, 15&#93; &#58;= space&#40;1&#41;   // Libre\n \n   NEXT nItem\n \n   //----------&#40; Dialogo Factura &#41;----------\n \n   DEFINE DIALOG oDlg RESOURCE &quot;FACTURA&quot;\n \n      REDEFINE LISTBOX oBrw ;\n         FIELDS  ;\n         sizes 300, 80, 80, 80, 80 ;\n         ID 110;\n         OF oDlg;\n         FONT aFuente&#91;2&#93;;\n         UPDATE;\n         colors CLR_BLACK, CLR_2 ;\n \n      oBrw&#58;nHeaderHeight &#58;= 20\n      oBrw&#58;nLineHeight   &#58;= 24\n \n      oBrw&#58;lCellStyle    &#58;= &#46;T&#46;\n      oBrw&#58;lAutoEdit     &#58;= &#46;T&#46;\n      oBrw&#58;ladjlastcol   &#58;= &#46;T&#46;\n \n      oBrw&#58;nLineStyle    &#58;= 2\n      oBrw&#58;nHeaderStyle&#58;= 2\n \n      oBrw&#58;aHEADERS      &#58;= &#123; &quot;Descripcion&quot;, &quot;Cantidad&quot;, &quot;Precio&quot;, &quot;% Dto&#46;&quot;, &quot;Total&quot; &#125;\n \n      oBrw&#58;bLine &#58;= &#123;|| &#123;  aDatos&#91;obrw&#58;nAt, 1&#93;, aDatos&#91;obrw&#58;nAt, 2&#93;,;\n                           aDatos&#91;obrw&#58;nAt, 3&#93;, aDatos&#91;obrw&#58;nAt, 4&#93;,;\n                           aDatos&#91;obrw&#58;nAt, 5&#93; &#125; &#125;\n \n      oBrw&#58;SetArray&#40; aDatos &#41;\n \n      // nStyle&#58;\n      //       0 = Celdas normales\n      //       3 = celda con el foco\n      //       1 = Cabecera\n      //       2 = footer\n \n      oBrw&#58;bFont         &#58;= &#123; | nRow, nCol, nStyle | ;\n                              IF &#40; nStyle == 0 &#46;or&#46; nStyle == 3, afuente&#91;2&#93;&#58;hFont, NIL  &#41; &#125;\n \n      oBrw&#58;aHJustify     &#58;= &#123; 2, 2, 2, 2, 2 &#125;\n      oBrw&#58;aJustify      &#58;= &#123; 2, &#46;F&#46; &#125;\n \n      obrw&#58;bBkColor      &#58;= &#123; | nRow, nCol, nStyle | ;\n                              IF &#40; nStyle =  0, if&#40; nRow % 2==0, CLR_1   , CLR_2 &#41;, &#41; &#125;\n \n      //----------&#40; Estos van juntos &#41;----------\n \n      oBrw&#58;bEdit&#58;= &#123; | nCol, cBuffer, lFirstEdit |;\n                          EditaCelda&#40; oBrw, nCol, cBuffer, @aDatos, lFirstEdit &#41; &#125;\n \n      oBrw&#58;bKeyChar &#58;= &#123; | nTecla | IF &#40; nTecla != VK_ESCAPE, oBrw&#58;Edit&#40; oBrw&#58;nColAct, &#46;T&#46; &#41;, &#41; &#125;\n \n \n      //------------------------------------------\n \n   ACTIVATE DIALOG oDlg CENTERED\n \n   RETURN &#40;  NIL &#41;\n \n//------------------------------------------------------------------------------\n \nFUNCTION EditaCelda&#40; oBrw, nCol, cBuffer, aDatos, lFirstEdit &#41;\n \n   LOCAL ubuffer,    ;\n         bValid,     ;\n         lContinuar, ;\n         aResultados\n \n   // Cantidad Unidades\n   LOCAL PictuCant &#58;= &quot;@EZ 999,999&quot; + if&#40; aSetVars&#91;60&#93; &lt;&gt; 0, substr&#40; &quot;&#46;9999&quot;, 1, aSetVars&#91;60&#93; + 1 &#41;, &quot;&quot; &#41;\n \n   // Precios Unitarios\n   LOCAL PictuUnit &#58;= &quot;@EZ 99,999&quot; + if&#40; aSetVars&#91;61&#93; &lt;&gt; 0, substr&#40;&quot;&#46;9999&quot;, 1, aSetVars&#91;61&#93; + 1 &#41;, &quot;&quot; &#41;\n \n   // Porcentaje Descuento\n   LOCAL PictuPorc &#58;= &quot;@EZ 999&#46;99&quot;\n \n   // Importes en Totales\n   LOCAL PictuImpo &#58;= &quot;@EZ 9,999,999&quot; + if&#40; aSetVars&#91;62&#93; &lt;&gt; 0, substr&#40;&quot;&#46;9999&quot;, 1, aSetVars&#91;62&#93; + 1 &#41;, &quot;&quot; &#41;\n \n   ubuffer&#58;= adatos&#91; oBrw&#58;nAt, nCol &#93;\n \n   DO CASE\n \n      // Para descripcion del producto\n      CASE nCol = 1\n         bValid&#58;= &#123;|| aResultados&#58;= Validar&#40; uBuffer &#41;, &#46;T&#46; &#125;\n \n         IF lContinuar&#58;= oBrw&#58;lEditCol&#40; nCol, @uBuffer, &quot;@KX&quot;, bValid, ,CLR_YELLOW &#41;\n            aDatos&#91; oBrw&#58;nAt, 1 &#93;&#58;= uBuffer\n            aDatos&#91; oBrw&#58;nAt, 2 &#93;&#58;= aResultados&#91; 1 &#93;\n            aDatos&#91; oBrw&#58;nAt, 3 &#93;&#58;= aResultados&#91; 2 &#93;\n         ENDIF\n \n      // Cantidad\n      CASE nCol = 2\n          oBrw&#58;lEditCol&#40; nCol, @uBuffer, &quot;@EZ 999,999&quot;,,,CLR_YELLOW &#41;\n \n      // Precio\n      CASE nCol = 3\n          oBrw&#58;lEditCol&#40; nCol, @uBuffer, PictuUnit,,,CLR_YELLOW &#41;\n \n      // Descuento\n      CASE nCol = 4\n          oBrw&#58;lEditCol&#40; nCol, @uBuffer, PictuPorc,,,CLR_YELLOW &#41;\n   END DO\n \n   RETURN lContinuar\n \n//------------------------------------------------------------------------------\n \nFUNCTION Validar&#40; uBuffer &#41;\n \n   LOCAL aResultados&#58;= Array&#40; 4 &#41;\n \n   aResultados&#91;1&#93; &#58;= 0&#46;00       // Cantidad\n   aResultados&#91;2&#93; &#58;= 0&#46;00       // Precio Final    &#40;siempre para cualquier condición&#41;\n   aResultados&#91;3&#93; &#58;= 0&#46;00       // % de Descuento de Linea\n \n   IF Empty&#40; ubuffer &#41;\n      MsgInfo&#40; &quot;no hay nada aca dentro&quot; &#41;\n   ENDIF\n \n   IF AllTrim&#40; uBuffer &#41; == &quot;1&quot;\n      aResultados&#91;1&#93;&#58;= 111\n      aResultados&#91;2&#93;&#58;= 1&#46;11\n      aResultados&#91;3&#93;&#58;= 11&#46;1\n   ENDIF\n \n   RETURN &#40; aResultados &#41;\n \n//------------------------------------------------------------------------------[/code:2ejlvxgl]','',0,'gIA=','2ejlvxgl',1,0,'',52,0,0),(22555,5073,6,492,0,'189.147.23.225',1164639260,1,0,1,1,1,1,'','','Hola Leandro\n\nLamento no poder ayudarte en ese punto, no uso el xBrowse, asi que desconozco las caracteristicas y bondades que ofrece.\n\nPero checando el testxbrw.prg tiene muchos ejemplos y en uno se ve como manejar un arreglo en una celda.\n\nSeria cuestion de echarle un ojo y algunas pruebas.\n\nSaludos','',0,'gIA=','2chncvzs',1,0,'',492,0,0),(22556,5073,6,492,0,'189.147.23.225',1164639593,1,0,1,1,1,1,'','','Excelente Jose !!\n\nQue bien que te sirvio lo anterior.\n\n\n\n\nEstimado SurGom :\n\nPregunta : Al parecer, pasa lo mismo al momento de editar, el texto se torna mas paqueño, aplicaste el mismo procedimiento en este punto ??\n\nSolicitud : Serias tan amable en facilitarme una copia de la lib ???, no se porque no puedo generarla  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\n\nSaludos','',0,'gIA=','njh1sz16',1,0,'',492,0,0),(22557,5072,2,875,0,'64.76.108.179',1164639703,1,0,1,1,1,0,'','','Pero que librerias necesito enlazar para que funcione Twindow(), ya que hasta ahora cuando enlazo me sale que no reconoce el objeto Twindow(), ¿Alquien sabe que libreria necesito? y si me la pueden pasar.\n\nGracias de antemano\n\nJaime','',0,'gIA=','3s7ldwyy',1,0,'',875,0,0),(22558,5095,3,6,0,'82.59.51.43',1164640575,1,0,1,1,1,1,'','Bug in latest FWH','The following sample bombs out with an error:\n\n[code:2u6rikcv]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd 3D\n\n    DEFINE BUTTON;\n           OF oBar;\n           FILE &quot;C&#58;\\FWH\\BITMAPS\\16x16\\close&#46;bmp&quot;;\n           ACTION oWnd&#58;End&#40;&#41;;\n           TOOLTIP &quot;Close&quot;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2u6rikcv]\n\nThis is the error:\n\n[quote:2u6rikcv]Error BASE/1066  Argument error: conditional[/quote:2u6rikcv]\n\nThis is the call stack:\n\n[quote:2u6rikcv]Stack Calls\n===========\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:PAINT(0)\n   Called from: BTNBMP.PRG =&gt; (b)TBTNBMP:TBTNBMP(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:DISPLAY(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; UPDATEWINDOW(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: BUG3.prg =&gt; MAIN(18)[/quote:2u6rikcv]\n\nEMG','',0,'gIA=','2u6rikcv',1,0,'',6,0,0),(22559,5087,6,140,0,'190.36.97.3',1164642899,1,0,1,1,1,0,'','','wmormar,\nCiertamente esta en la sintaxis, pero cGetDir() se comporta como es en los Windows 9x (que es precisamente lo que me interesa) pero en 2K/Xp se comporta como cGetDir32().\n\nAlfredo, saludos...\nVeo que los \"viejos\" aun andan por estos lares... jeje..\nMi inquietud esta con cGetDir() y cGetDir32()... cGetFile32() me funciona perfecto.\n\nGracias a ambos y sigo esperando alguna idea relacionada con el tema.\n\nGiancarlo.','',0,'gIA=','xgs3913e',1,0,'',140,0,0),(22560,5090,1,47,0,'203.144.143.9',1164644395,1,0,1,1,1,0,'','','Does it support FW+Clipper?  If not, has the other way to open it with FW+Clipper?\n\nBest regards,\nDutch','',0,'gIA=','72au0pnj',1,0,'',47,0,0),(22561,5090,1,6,0,'82.54.221.139',1164645175,1,0,1,1,1,1,'','','[quote=&quot;dutch&quot;:2is0725e]Does it support FW+Clipper?  If not, has the other way to open it with FW+Clipper?\n\nBest regards,\nDutch[/quote:2is0725e]\n\nI don\'t know, sorry.\n\nEMG','',0,'gA==','2is0725e',1,0,'',6,0,0),(22562,5065,3,215,0,'189.136.214.125',1164645298,1,0,1,1,1,0,'','¿Navegación y versiones windows?','Rene,\nLa vTaskBar y TOUTLOOKBAR  no tienen pinta de que puedan navegarse con el teclado.\n¿Se puede navegar con el teclado la vTaskBar?\n\nOtra. ¿Para que versiones de windows son los productos?\n\nGracias','',0,'gA==','3g7jgky1',1,0,'',215,0,0),(22563,5096,22,215,0,'189.136.214.125',1164645942,1,0,1,1,1,0,'','Fondo del get transparente','Mi sugerencia.\nHe visto que si contruyes un GET desde código, este get puede hacerse transperente.\nCuando es por Recursos NO.\n\nMi petición es que tambien se puedan hacer transparentes.\n\nGracias\nFernando\nMéxico, DF','',0,'gA==','3k7z01c3',1,0,'',215,0,0),(22564,5060,7,138,0,'189.141.64.226',1164649929,1,0,1,1,1,1,'','','Hasta donde tengo entendido, y corrijanme si me equivoco, no hay soporte OLE en el Pocket PC, luego entonces no hay ADO disponible tampoco.','',0,'gA==','1wkot3eh',1,0,'',138,0,0),(22565,5095,3,136,0,'66.201.225.194',1164651381,1,0,1,1,1,0,'','','Enrico,\n\nYour sample works fine for me...\nfwh 2.8 + xHarbour builder oct. 2006','',0,'gA==','1f150gd1',1,0,'',136,0,0),(22566,5095,3,6,0,'82.54.221.139',1164651799,1,0,1,1,1,1,'','','Yes, I know it was working fine with Oct 2006 build. The bug is in the latest, Nov 2006.\n\nEMG','',0,'gA==','nxkxoing',1,0,'',6,0,0),(22567,5097,2,875,0,'64.76.108.179',1164657990,1,0,1,1,1,0,'','problema con DEFINE WINDOW/ACTIVATE WINDOW','tengo el siguiente programa\n\n****************************\n#Include \'FiveWin.Ch\'\n\nStatic oWind\n\nDefine Window oWind Title \'Inicio\'\nActive Window oWind Maximized\n*****************************\n\nluego lo compilo y todo OK.\n\nPero cuando lo enlazo me sale el siguiente error\n\nBlinker:1115 Ventana.Obj(ventana) : \'Twindow\' : unresolved external\n\n\n¿Que Libreria necesito para esto? ¿creo que es el Fivewin.Lib y no lo tengo\n,alguien tiene esa Libreria o me puede decir como resolver el error?','',0,'gA==','3nvsp4pv',1,0,'',875,0,0),(22568,5073,6,228,0,'201.245.222.85',1164659497,1,0,1,1,1,1,'','Gracias...','Gracias de todas formas por tu respuesta ...','',0,'gA==','yjrxkly8',1,0,'',228,0,0),(22569,5073,6,439,0,'200.125.50.1',1164661395,1,0,1,1,1,1,'','','surGom\n\nAmigo, hice los cambios, pero a mí el combo se me presenta exactamente igual que en la imagen del post anterior.\n\nPodrías enviarme el source tuyo de la TWBrowse17 para comparar por favor, mi e-mail es <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->\n\nGracias desde Ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1h3czs0i',1,0,'',439,0,0),(22570,5098,6,53,0,'189.139.13.108',1164663691,1,0,1,1,1,1,'','Barra de desplazamiento en TWBrowse','Saludos:\n\nAmigos del foro, en un browse con la TWBrowse de Hernán resulta que la barra de desplazamiento vertical llega hasta el final del browse pero el apuntador apenas esta en el segundo registro.\n\nParece que el desplazamiento no es proporcional a la posición del apuntador.\n\nA alguien le sucede lo mismo ?, alguna posible solución ?\n\nComo una imagen vale más que 1000 palabras les dejo esta\n\n<!-- m --><a class=\"postlink\" href=\"http://img108.imageshack.us/img108/3213/clip1qp5.jpg\">http://img108.imageshack.us/img108/3213/clip1qp5.jpg</a><!-- m -->\n\nAbrazos, Armando','',0,'gA==','1f936lb5',1,0,'',53,0,0),(22571,5099,6,41,0,'200.87.67.10',1164664588,1,0,1,1,1,0,'','Multibar para FWH','Holas,\n\nalguien tiene por alli la clase multibar para fwh?\n\ngracias','',0,'gA==','269690cc',1,0,'',41,0,0),(22572,5006,6,396,0,'200.109.234.120',1164667012,1,0,1,1,1,1,'','','me sumo a la peticion mi correo <!-- e --><a href=\"mailto:joseluisysturiz@yahoo.com\">joseluisysturiz@yahoo.com</a><!-- e --> gracias de antemano','',0,'gA==','1uuhcim7',1,0,'',396,0,0),(22573,5065,3,49,0,'62.13.172.78',1164668085,1,0,1,1,1,1,'','','have you create a new cmenu32 ?','',0,'gA==','24a20cua',1,0,'',49,0,0),(22574,5063,1,186,0,'66.130.50.142',1164670060,1,0,1,1,1,1,'','','Hi Enrico,\n\nI`m not saying I have problem printing. I`m saying that DevMode(), DeviceCaps() and GetDeviceCaps() are resulting erroneaus results.\n\nRegards,','',0,'gA==','2mvyfx0r',1,0,'',186,0,0),(22575,5100,6,743,0,'200.67.230.223',1164675729,1,0,1,1,1,0,'','toolbar, tbitmap, urgente pro favor','saludos \n\n        programando con la version fwh 2.6 y harbour, quize poner un toolbar, todo bien pero pongo una imagen no me aparece trasnparente, como puedo hacer para que me aparesca del color del boton,\n\nesta es la imagen [url:382mlvx6]http&#58;//img148&#46;imageshack&#46;us/my&#46;php?image=dibujoja8&#46;png[/url:382mlvx6]','',0,'EA==','382mlvx6',1,0,'',743,0,0),(22576,4757,3,239,0,'219.137.143.152',1164679174,1,0,1,1,1,0,'','','George, \n\n   Your wraps require Adobe Acrobat software for creation?\nwhy mines not create a pdf file?\n\nBest regard!\n\nShuming Wang','',0,'EA==','lezg82ia',1,0,'',239,0,0),(22577,4757,3,239,0,'219.137.143.152',1164679443,1,0,1,1,1,0,'','','George,\n\n&gt; These are the wrappers that I am using with image2pdf.dll\n  Why my prg not create pdf ?\n\nctext:=space(1024)\n\nI2PDF_AddImage(\"logo.jpg\")\nI2PDF_SetDPI(96)\nI2PDF_MakePDF(\"d:\\abc.pdf\", 1, @ctext,1024)\nBest regard!\nShuming Wang','',0,'EA==','3eml9ano',1,0,'',239,0,0),(22578,5101,6,73,0,'201.165.193.41',1164682842,1,0,1,1,1,0,'','redimensionar ventanas','alguien que tenga funcionando la funcion AUTRESIZ() para harbour y fwh?\nme la pudiera facilitar,\ngracias\nsalu2\npaco','',0,'EA==','20nlrpef',1,0,'',73,0,0),(22579,5075,16,2,0,'87.218.146.203',1164700631,1,0,1,1,1,1,'','','Construcción Noviembre 2006\n=====================\n\n* Corrección: En la clase TComboBox, se ha corregido la pérdida de recursos con los brushes.\n\n* Corrección: En FWPPC, error en la inicialización de la función SerialNumber(). Ya corregido. \n\n* Mejora: En la clase TReport, el método NeedNewPage(). Ocasionalmente se generaba una página en blanco. Ahora está correctamente. \n\n* Nuevo: En FWPPC, nueva clausula MODAL en ACTIVATE WINDOW ... [ MODAL ]. Te permite parar la ejecución de la aplicación después de la\n  activación de la ventana. Su valor es FALSE por defecto. \n\n* Mejora: La clausula TRASPARENT para diálogos funciona correctamente en aplicaciones sin temas XP. Gracias a Ramesh Babu! \n\n* Nuevo: En la clase TTVItem, nuevos métodos Toggle() y MakeVisible(). En la clase TTreeView, nuevos métodos CollapseBranch(), \n  ExpandBranch(), Toggle(), ToggleAll() y ToggleBranch(). Se ha mejorado la función ScanItems(). Gracias a Luis Krause! \n\n* Mejora: En la clase TFolder, el método Initiate() proporciona diálogos mejorados para un mejor pintado transparente. \n\n* Mejora: En la clase TWBrowse, método nRowCount(), devuelve cero si la data hWnd es cero. \n\n* Nuevo: En la clase TXBrowse, método SetAdo( oAdo ). Nuevo fichero include include\\ado.ch. Gracias a Biel! \n\n* Mejora: En la clase TDbOdbcDirect, método Update(), ahora comprueba si hay algún cambio pendiente y evita el error. Gracias a Biel!\n\n* Nuevo: Funciones FileTimeToDate() y FileTimeToTime(), usadas en la clase TFtp, la fecha y la hora de los ficheros son devueltos correctamente.   \n\n* Mejora: La clase TBtnBmp ahora detecta si la data lTransparent es .T. y si es verdadero, entonces se pinta transparente. Por favor, revisa \n  el ejemplo samples\\TestBtnB.prg \n\n* Mejora: En FWPPC, en la clase TBtnBmp, pequeñas correcciones en el método GotFocus(). Ha sido mejorado el pintado de la línea punteada. \n\n* Nuevo: En FWPPC, soporte de wininet para las clases TInternet y TFtp ya está listo. \n\n* Nuevo: En FWPPC, un ejemplo para comprobar la existencia de Intranet/Internet. Muy útil para comprobar si el Pocket PC está correctamente conectado a tu red. El ejemplo lo puedes encontrar en samples\\ping.prg','',0,'','wdg33bvj',1,0,'',2,0,0),(22580,5060,7,2,0,'87.218.146.203',1164700796,1,0,1,1,1,1,'','','René,\n\nParece que sí hay soporte de OLE. Los ficheros de cabecera están en el compilador de Microsoft. \n\nAún no lo hemos implementado, pero lo tenemos previsto.','',0,'','3ingssw6',1,0,'',2,0,0),(22581,5099,6,52,0,'200.127.196.8',1164701008,1,0,1,1,1,1,'','Re: Multibar para FWH','[quote=&quot;Marcelo Via Giglio&quot;:2u5whblf]Holas,\n\nalguien tiene por alli la clase multibar para fwh?\n\ngracias[/quote:2u5whblf]\n\nLa envio a tu correo. No puedo aca.','',0,'gA==','2u5whblf',1,0,'',52,0,0),(22582,5063,1,6,0,'87.3.232.96',1164701261,1,0,1,1,1,1,'','','[quote=&quot;Gilbert&quot;:nlhxb6f1]Hi Enrico,\n\nI`m not saying I have problem printing. I`m saying that DevMode(), DeviceCaps() and GetDeviceCaps() are resulting erroneaus results.\n\nRegards,[/quote:nlhxb6f1]\n\nI don\'t know what DeviceCaps() is but the others are just direct wrappers to the Windows API. Look:\n\n[code:nlhxb6f1]#ifdef __HARBOUR__\n   CLIPPER GETDEVICECAPS&#40; PARAMS &#41;     //  &#40;&#41;    HDC, int iIndex\n#else\n   CLIPPER GETDEVICEC&#40; PARAMS &#41;     //  APS&#40;&#41;    HDC, int iIndex\n#endif\n&#123;\n   _retnl&#40; GetDeviceCaps&#40; &#40; HDC &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41; &#41; &#41;;\n&#125;[/code:nlhxb6f1]\n\nThen one of the two: the API is wrong or the driver is bugged. Nothing that FW can solve.\n\nEMG','',0,'gIA=','nlhxb6f1',1,0,'',6,0,0),(22583,5095,3,2,0,'87.218.146.203',1164701773,1,0,1,1,1,1,'','','Enrico,\n\nPlease add this line:\n\nMETHOD Paint() CLASS TBtnBmp\n\n...\n\n   DEFAULT ::lTransparent := .f.  //this!','',0,'gIA=','1ftgoff6',1,0,'',2,0,0),(22584,5095,3,6,0,'87.3.232.96',1164702314,1,0,1,1,1,1,'','','Antonio, I just found that if I copy/paste TBtnBmp class inside my sample PRG then it works fine without any changes. It seems that the source code is different from what it is in the LIB.\n\nEMG','',0,'gIA=','1m670fcv',1,0,'',6,0,0),(22585,5095,3,6,0,'87.3.232.96',1164703161,1,0,1,1,1,1,'','','Ok, it seems that your fix did the trick anyway.\n\nEMG','',0,'gIA=','pn84ma9j',1,0,'',6,0,0),(22586,5102,6,509,0,'80.34.248.50',1164703527,1,0,1,0,1,0,'','Localizar librera HBCT.LIB','¿Sabeis dónde puede bajar la librería HBCT.LIB para utilizar algunas funciones de las antiguas CaTools?\n\nSaludos.\n\nRicardo Patón','',0,'gIA=','3rubnpxt',1,0,'',509,0,0),(22587,5095,3,2,0,'87.218.146.203',1164703676,1,0,1,1,1,1,'','','Enrico,\n\nYes, you are right. Somehow the latest Class TBtnBmp didn\'t go into the LIB. We are going to publish the FWH build again. Thanks,','',0,'gIA=','2ezjmawa',1,1164703969,'',2,2,0),(22588,5095,3,6,0,'87.3.232.96',1164703780,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'gIA=','3vj5bo2i',1,0,'',6,0,0),(22589,5103,17,92,0,'80.33.133.32',1164705578,1,0,1,1,1,0,'','AutResiz()','Código fuente de la función que utilizo para dimensionar mis ventanas/diálogos/controles.\n\nSeguramente se puede perfeccionar mucho pero a mi me vale.\n\n/* ******************** */\n#Include \"FiveWin.ch\"\n\n/*\n   Los parámetros recibidos son:\n\n    lAutoresize:    permite prescindir de la funcionalidad de esta función; permitiendo\n                    de esta manera que la aplicación pueda tener un flag que\n                    permita/deniegue el autoredimensionado de las pantallas. 03/03/2006.\n    nWhatSize:      permite forzar el redimensionamiento a unos valores concretos;\n                    permitiendo de esta manera que la aplicación pueda tener un valor\n                    al cual redimensionar las pantallas. 03/03/2006.\n     oWnd:          Objeto/ventana/diálogo/control a ser redimensionado.\n     nResolution:   Número que identifica que resolución tenía la pantalla en la cual\n                    se diseñó el objeto.\n                    Este valor puede ser negativo, hecho que se interpretará como que\n                    la ventana ya ha estado redimensionada previamente y se pretende\n                    redimensionarla a su valor original. Esta característica es útil\n                    para provocar que un control (o ventana/dialogo) concreto se le\n                    devuelva su tamaño original según su valor de diseño. 03/03/2006\n     lRepaint:      Indicador de si debe repintarse el objeto una vez redimensionado.\n\n   Esta función permitirá que una aplicación desarrolada en un PC con una resolución\n   de pantalla de por ejemplo 1024 x 768 (nResolution valdría en este caso 3), se vea\n   redimensionada proporcionalmente en un PC con una resolución diferente, ya sea mayor\n   o menor.\n\n   A falta de perfeccionar el código, se comprueba solamente la variación de la anchura\n   de la resolución de la pantalla para aplicar la variación del tamaño, aunque cuando\n   ello se realiza se hace tanto en la anchura como en la altura.\n   Ahora se comprueba la altura. 09/12/2005.\n\n   Esta función está orientada a ser utilizada en el evento ON INIT del ACTIVATE\n   de las WINDOW y DIALOG con un valor fijo de lRepaint a .T. o sin él.\n   Además también puede utilizarse directamente sobre un control definido posteriormente\n   a la ACTIVACIÓN de su contenedor ya sea éste WINDOW o DIALOG, con la salvedad que\n   lRepaint debe valer .T. para forzar su repintado.\n\n   Ejemplos de uso:\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n          Se redimensiona toda la ventana oWnd y sus controles.\n\n          ACTIVATE oWnd ON INIT AutoResiz( .T., 0, oWnd, 3 )\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n          Se redimensiona todo el dialogo oDlg y sus controles. Además se fuerza que el control\n          oMyMulGet se redimensione como si la resolución de pantalla fuera del tipo 2.\n\n          ACTIVATE oDlg ON INIT AutoResiz( .T., 0, oWnd, 3 )\n\n          AutResiz( .T., 2, oMyMulGet, 0)\n\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n          Se redimensiona el control oTabs.\n          @ 185.50,8.00 TABS oTabs OF oWnd ITEMS \"Tab1\",\"Tab2\",\"Venga a ordenarrrrr!!\" ;\n          PIXEL COLORS CLR_BLUE,CLR_HCYAN SIZE 288.00,9.00 MESSAGE \"Mensaje del Tabs\"\n\n          AutoResiz( .T., 0, oTabs, 3, .T. )\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n*/\n\nFUNCTION AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint )\n\n// Resolución de la pantalla en el momento de definir los controles.\nLocal nOriWidth, nOriHeight\n\n// Lo normal sería que fuera la resolución actual de la pantalla (nWhatSize=0).\n// Se permite forzar esta resolución mediante el valor de nWhatSize=1,2,3,4,5,6,7,....\nLocal nWidth, nHeight\n\n// Son la relación entre la resolución de pantalla y la resolución de diseño.\nLocal nFactorWitdh, nFactorHeight\n\nLocal nContador\n\nDEFAULT lRepaint := .T.\n\nnOriWidth  := 0\nnOriHeight := 0\nnWidth     := 0\nnHeight    := 0\nnContador  := 0\n\nIf ABS(nResolution) = 1\n    nOriWidth  := 640\n    nOriHeight := 480\nElseIf ABS(nResolution) = 2\n    nOriWidth  := 800\n    nOriHeight := 600\nElseIf ABS(nResolution) = 3\n    nOriWidth  := 1024\n    nOriHeight := 768\nElseIf ABS(nResolution) = 4\n    nOriWidth  := 1152\n    nOriHeight := 864\nElseIf ABS(nResolution) = 5\n    nOriWidth  := 1280\n    nOriHeight := 800\nElseIf ABS(nResolution) = 6\n    nOriWidth  := 1280\n    nOriHeight := 1024\nElseIf ABS(nResolution) = 7\n    nOriWidth  := 1600\n    nOriHeight := 1200\nElseIf ABS(nResolution) = 8\n    nOriWidth  := 768\n    nOriHeight := 1024\nElse\n    ScrResolution( @nOriWidth, @nOriHeight )\nEndif\n\n\nIf nWhatSize = 1\n    nWidth  := 640\n    nHeight := 480\nElseIf nWhatSize = 2\n    nWidth  := 800\n    nHeight := 600\nElseIf nWhatSize = 3\n    nWidth  := 1024\n    nHeight := 768\nElseIf nWhatSize = 4\n    nWidth  := 1152\n    nHeight := 864\nElseIf nWhatSize = 5\n    nWidth  := 1280\n    nHeight := 800\nElseIf nWhatSize = 6\n    nWidth  := 1280\n    nHeight := 1024\nElseIf nWhatSize = 7\n    nWidth  := 1600\n    nHeight := 1200\nElseIf nWhatSize = 8\n    nWidth  := 768\n    nHeight := 1024\nElse\n\n    ScrResolution( @nWidth, @nHeight )\n\nEndif\n\n\nIf lAutoresize .and. nOriHeight != nHeight\n\n    /* Este será el caso habitual, en el cual se pretende redimensionar\n       los controles a la resolución de la pantalla en la cual se estan\n       viendo. 01/03/2006  */\n\n    If nResolution &gt; 0\n\n        nFactorWitdh  := nWidth / nOriWidth\n        nFactorHeight := nHeight / nOriHeight\n\n    /* Este será el caso en el cual se pretende deshacer el redimensionamiento\n       de los controles realizado previamente. */\n\n    ElseIf nResolution &lt; 0\n\n        nFactorWitdh  := nOriWidth / nWidth\n        nFactorHeight := nOriHeight / nHeight\n\n    EndIf\n\n    If lRepaint\n        oWnd:Hide()\n    EndIf\n\n    //If nFactorWitdh &gt; 1 // .or.\n    If nFactorHeight &gt; 1\n\n\n        If oWnd:ClassName() == \"kalimeroquetequiero\"\n\n        ElseIf oWnd:ClassName() $ \"/TJ02LISMN/TLISTBOX/\"\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight , ;\n                       .F. )\n        Else\n\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight * nFactorHeight , ;\n                       .F. )\n        EndIf\n    EndIf\n\n    If oWnd:ClassName() == \"TFOLDER\"\n        If ValType( oWnd:aDialogs ) = \"A\"\n            For nContador := 1 To Len( oWnd:aDialogs )\n                AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. )\n            EndFor\n        EndIf\n      Else\n        If ValType( oWnd:aControls ) = \"A\"\n            For nContador := 1 To Len( oWnd:aControls )\n                AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F. )\n            EndFor\n        EndIf\n    EndIf\n\n    //If nFactorWitdh &lt; 1 // .or.\n    If nFactorHeight &lt; 1\n\n        If oWnd:ClassName() == \"kalimeroquetequiero\"\n\n        ElseIf oWnd:ClassName() $ \"/TJ02LISMN/TLISTBOX/\"\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight , ;\n                       .F. )\n\n        Else\n\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight * nFactorHeight , ;\n                       .F. )\n        EndIf\n    EndIf\n\n    If lRepaint\n        oWnd:Show()\n    EndIf\n\nEndIf\n\nReturn Nil\n/* ******************** */\n\nSaludos\nCarlos G.','',0,'','dwcbahms',1,0,'',92,0,0),(22590,5101,6,92,0,'80.33.133.32',1164705686,1,0,1,1,1,0,'','Re: redimensionar ventanas','[quote=&quot;Francisco Horta&quot;:15xp3bwa]alguien que tenga funcionando la funcion AUTRESIZ() para harbour y fwh?\nme la pudiera facilitar,\ngracias\nsalu2\npaco[/quote:15xp3bwa]\n\nLa he puesto en UTILIDADES (en FWH 2.6 funciona):\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=22589#22589\">http://fivetechsoft.com/forums/viewtopi ... 2589#22589</a><!-- m -->\n\nSaludos\nCarlos G.','',0,'gA==','15xp3bwa',1,0,'',92,0,0),(22591,5104,3,169,0,'200.206.142.134',1164707872,1,0,1,1,1,0,'','How to draw in a mimized dialog ?','Hi friends.\n\nI need know, what I need to draw on the minimized dialog.\n\nFor example: when I click to minimize a dialog in my main window app, a little bar (like a tittle title dialog) appear in my app right ?  I need a way to draw a red line on it.\n\nThanks and best regards,\n\nToninho.','',0,'gA==','3v90epv4',1,0,'',169,0,0),(22592,5073,6,176,0,'201.255.158.2',1164710965,1,0,1,1,1,0,'','','Te lo envío a tu privado\n\nLuis','',0,'gA==','2hvfwjmh',1,0,'',176,0,0),(22593,5105,3,6,0,'87.3.232.96',1164711322,1,0,1,1,1,1,'','RESIZE16 clause on folder','Dialogs inside folders don\'t respect RESIZE16 clause. The following change in TFolder seems enough to solve the problem:\n\n[code:4plaom3p]      #ifdef __CLIPPER__\n         ACTIVATE DIALOG oDlg NOWAIT ;\n            ON INIT &#40; oDlg&#58;Move&#40; nHeight + 2, 3 &#41; &#41; ;\n            VALID &#46;f&#46;                // to avoid exiting pressing Esc !!!\n      #else\n         if !&#58;&#58;oWnd&#58;lResize16\n            ACTIVATE DIALOG oDlg NOWAIT ;\n               ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ;\n               VALID &#46;f&#46;                // to avoid exiting pressing Esc !!!\n         else\n            ACTIVATE DIALOG oDlg NOWAIT ;\n               ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ;\n               VALID &#46;f&#46; RESIZE16       // to avoid exiting pressing Esc !!!\n         endif\n      #endif[/code:4plaom3p]\n\nEMG','',0,'AIA=','4plaom3p',1,0,'',6,0,0),(22594,5073,6,176,0,'201.255.158.2',1164712215,1,0,1,1,1,0,'','','Raymundo me puedes enviar tu mail a <!-- e --><a href=\"mailto:luissaenz@cscom.com.ar\">luissaenz@cscom.com.ar</a><!-- e -->\n\nGracias','',0,'AIA=','3urnjx9l',1,0,'',176,0,0),(22595,2303,6,52,0,'200.127.196.8',1164712604,1,0,1,1,1,1,'','','[quote=&quot;RenOmaS&quot;:3olram48]te lo mande por el hotmail\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->[/quote:3olram48]\n\nPor favor podrias enviarmelo a mi tambien?\n\nGracias.','',0,'gA==','3olram48',1,0,'',52,0,0),(22596,2303,6,147,0,'200.45.54.134',1164713121,1,0,1,0,1,1,'','','Y no sería posible, si es púbico, enviarselo a Antonio para que lo suba a Utilidades y/o Viktor para que lo suba a DbWide?\n\ngracias','',0,'gA==','251crew8',1,0,'',147,0,0),(22597,5106,17,46,0,'195.8.27.245',1164715412,1,0,1,1,1,0,'','Tree Goran','<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0259030040/TreeGoran.zip.html\">http://hyperupload.com/download/0259030 ... n.zip.html</a><!-- m -->','',0,'gA==','4u1fnl3c',1,0,'',46,0,0),(22598,2303,6,46,0,'195.8.27.245',1164715465,1,0,1,1,1,0,'','','Vean en utilidades de este mismo foro','',0,'gA==','37foxzcd',1,0,'',46,0,0),(22599,5086,3,439,0,'200.125.37.97',1164718004,1,0,1,1,1,1,'','','Rimantas,\n\nI already tried to change height and width in both comboboxes (for arrays and for logical vars) without good results, If you resolve this problem could you please send me a copy of your wbrowse.prg so I can see how you did this changes.\n\nMy e-mail is <!-- e --><a href=\"mailto:jmurugosa@hotmail.com\">jmurugosa@hotmail.com</a><!-- e -->\n\nThanks for your post, and your help. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2j016nkk',1,0,'',439,0,0),(22600,5099,6,396,0,'200.71.170.1',1164721652,1,0,1,1,1,1,'','','si puedes enviamelo tambien estoy interesado en esa clase <!-- e --><a href=\"mailto:joseluisysturiz@yahoo.com\">joseluisysturiz@yahoo.com</a><!-- e -->','',0,'gA==','1swrlsla',1,0,'',396,0,0),(22601,5107,6,384,0,'201.42.133.92',1164722085,1,0,1,1,1,1,'','Declaração variaveis Static','Houve alguma alteração com relação a declaração de variaveis Static da versao FWH 2.6 para a FWH 2.8 ?','',0,'gA==','3eadbalr',1,0,'',384,0,0),(22602,5100,6,2,0,'87.218.146.203',1164724171,1,0,1,1,1,1,'','','Revisa samples\\toolbar1.prg y verás que para añadir una imagen has de hacer:\n\n   DEFINE IMGBITMAP OF oImageList NAME \"new\"      COLOR nRGB( 255, 0, 255 )\n\nEn donde nRGB( 255, 0, 255 ) -fucsia- indica el color que va a ser transparente y es el mismo que debes usar en el bitmap:\n\n[url=http&#58;//imageshack&#46;us:1337jiwf][img:1337jiwf]http&#58;//img100&#46;imageshack&#46;us/img100/479/internetur2&#46;png[/img:1337jiwf][/url:1337jiwf]','',0,'GA==','1337jiwf',1,0,'',2,0,0),(22603,5098,6,53,0,'189.139.12.15',1164726454,1,0,1,1,1,1,'','','Gracias a Paco Horta, problema solucionado\n\n\nSaludos, Armando','',0,'GA==','2imh4fgd',1,0,'',53,0,0),(22604,5063,1,186,0,'66.130.50.142',1164726676,1,0,1,1,1,1,'','','Hi Enrico,\n\nI agree with you up to a certain point.\n\nIf the API is wrong or the Driver is bugged, then it`s true that FW can`t do anything about it. In this case, that would mean that I have 7 PC`s plus 3 Servers connected to 3 Laser printers, 1 InkJet printer and 1 Matrix printer that have either an API problem or bugged printer drivers. Furthermore the test I`m doing on my Network has also been done on other (Customers) Network. Again that would mean that everyone has an API problem or bugged drivers no matter the OS used or Printers used...Hummmm! \n\nSo in this case, is there an explaination <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  why other languages like VB can retreive DevMode info without any problems, using the same computers and printers... ?\n\nOver the past 3 years I came up often with messages concerning 3 functions (DeviceCapabilities(), GetDeviceCaps() and DevMode()). Unfortunately it seems that these 3 functions are somehow lost in the dark cause nobody has been using them. But there is one person that can really clarify this mistery. I`m sure he has seen all the threads I left on the forums. I even sent personal message to him, but never got a reply on this matter. <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nMy question is simple. Do they work properly or not ? Someone somewhere must have the answer. \n\nI really apreciate you take time trying to help out.\n\nRegards','',0,'GA==','ut6u1ty4',1,0,'',186,0,0),(22605,5108,3,455,0,'195.97.105.161',1164729327,1,0,1,1,1,0,'','Colored multiline gets','Hi all,\n\nCan someone tell me if we can have a multicolored and multifont (if possible) GET object, such as when editing a memo, inside a dialog ?\n\nAny code samples will be welcome if answer is positive.\n\nThank you\nRegards\nEvans','',0,'GA==','lf98ljwt',1,0,'',455,0,0),(22606,5109,7,720,0,'80.59.110.137',1164730977,1,0,1,1,1,0,'','Problema con los campos memo...','Hola a todos...\n\nAlguien sabe porque al abrir una tabla que contenga un campo memo da un error que dice algo así como que la tabla está corrupta?? ¿Es que no se puede trabajar con campos memo? Lo digo porque si le quito este campo trabajo sin problemas...\n\n\nSaludos y gracias..\n\nElías Torres.','',0,'GA==','tsltb8lc',1,0,'',720,0,0),(22607,5100,6,743,0,'200.79.46.141',1164732832,1,0,1,1,1,0,'','','Antonio \n\nhice lo que me indicaste me fije en el ejemplo de los samples en fwh y viene la instruccion asi \n\noImageList:AddMasked( TBitmap():Define( \"new\",,      oWnd ), nRGB( 255, 0, 255 ) )    \n   oImageList:AddMasked( TBitmap():Define( \"open\",,     oWnd ), nRGB( 255, 0, 255 ) )    \n\nparte de mi codigo es este pero no me pone las imagenes transparentes al boton se ven con el fondo blanco estoy haciendo algo mal\n\noImgList:= TImageList():New( 32, 32 )\n      oImgList:AddMasked( oBmp[1] := TBitmap():Define( \"TOOL_CLIENTE\"  ,, oWnd ), nRGB( 255, 0, 255 ) )\n      oImgList:AddMasked( oBmp[2] := TBitmap():Define( \"TOOL_PROVEDOR\" ,, oWnd ), nRGB( 255, 0, 255 ) )\n      oImgList:AddMasked( oBmp[3] := TBitmap():Define( \"TOOL_PRODUCTO\" ,, oWnd ), nRGB( 255, 0, 255 ) )\n      oImgList:AddMasked( oBmp[4] := TBitmap():Define( \"TOOL_SERVICIOS\",, oWnd ), nRGB( 255, 0, 255 ) )','',0,'','1u9cqvhu',1,0,'',743,0,0),(22608,5108,3,289,0,'82.167.47.100',1164735668,1,0,1,1,1,0,'','','Hi. \nEvans.\nI hope that this source.\nTo View All xcommand REDEFINE GET,\nOpen file FiveWin.ch Say REDEFINE GET Command\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nRegards \n hathal.\n------\n[color=red:1b2ho6hc]#include \"FiveWin.ch\"\nfunction Main()\n   local oGet,ODLG,fntArial \n   local cText :=\"\"\nDEFINE FONT fntArial NAME \"Arial\" SIZE 20, 20\n   DEFINE DIALOG oDlg RESOURCE \"MemoEdit\" \n   REDEFINE GET oGet VAR cText MEMO ID 1 OF oDlg FONT fntArial COLOR \"R+,GR\" \n     REDEFINE BUTTON ID 2 OF oDlg ;\n      ACTION MEMOWRIT(\"Test.TXT\",cText)\n   REDEFINE BUTTON ID 3 OF oDlg ;\n      ACTION oDlg:End() \n   ACTIVATE DIALOG oDlg CENTERED\nRELEASE FONT fntArial\n return nil[/color:1b2ho6hc]\n/*\nRESOURCE file.rc\n********\n[color=blue:1b2ho6hc]MemoEdit DIALOG 67, 36, 187, 105\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION\nCAPTION \"MemoEditing\"\nFONT 6, \"MS Dialog\"\n{\n EDITTEXT 1, 4, 6, 180, 77, ES_RIGHT | ES_MULTILINE | ES_AUTOVSCROLL | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP\n DEFPUSHBUTTON \"ok\", 2, 18, 87, 36, 14\n PUSHBUTTON \"exit\", 3, 136, 87, 36, 14\n}[/color:1b2ho6hc]\n************\n*/','',0,'Ag==','1b2ho6hc',1,0,'',289,0,0),(22609,5110,6,28,0,'213.27.201.254',1164736398,1,0,1,1,1,0,'','Aplicación colgada','Hola\n\nDesde hace un mes mas o menos estamos teniendo \"cuelgues\" en las aplicaciones despues de un periodo de inactividad de media hora mas o menos. \nNo sale ni error.log ni gpf ni nada. A veces sale un MsgInfo con título [b:2yuvs4wl]\"Atenci¾n\"[/b:2yuvs4wl] sin texto en el interior. Otras simplemente una caja de diálog a medio hacer. Como cuando algún redefine ha fallado. El caso es que no hay perdida de recursos, fallo de memoria aparente.\nNo es achacable a \"ultima version\" ya que nos pasa en programas de años anteriores al último.\nAlguien tiene alguna idea.\n\nGracias','',0,'QA==','2yuvs4wl',1,0,'',28,0,0),(22610,5108,3,6,0,'87.3.232.96',1164737766,1,0,1,1,1,1,'','Re: Colored multiline gets','[quote=&quot;E. Bartzokas&quot;:3053h9tr]Hi all,\n\nCan someone tell me if we can have a multicolored and multifont (if possible) GET object, such as when editing a memo, inside a dialog ?\n\nAny code samples will be welcome if answer is positive.\n\nThank you\nRegards\nEvans[/quote:3053h9tr]\n\nYou have to use TRichEdit class.\n\nEMG','',0,'gA==','3053h9tr',1,0,'',6,0,0),(22611,5108,3,455,0,'195.97.105.161',1164737920,1,0,1,1,1,0,'','','Thank You All for you kind replies.\n\nI guess I will follow the TRichEdit class though,\nas suggested above.\n\nGreetings from Greece\n\nEvans','',0,'gA==','1zcwr0jq',1,0,'',455,0,0),(22612,5063,1,6,0,'87.3.232.96',1164738022,1,0,1,1,1,1,'','','Can you show us a reduced and self-contained sample showing the problem, please?\n\nEMG','',0,'gA==','33fo5656',1,0,'',6,0,0),(22613,5111,6,66,0,'200.127.64.17',1164739064,1,0,1,0,1,0,'','Ayuda bat para compilar y enlazar varios prg','Estimados Colegas\n\nAlguien tiene algun bat sencillo para compilar , enlazar  varios prg\ny generar un exe con xharbour\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','1ji61iug',1,0,'',66,0,0),(22614,5112,6,644,0,'201.252.59.86',1164741030,1,0,1,1,1,0,'','comportamiento raro','Estoy programando con fwh 2.7 y xharbour 0.99.60 sobre plataforma windows \'98. Hasta ahora he tenido pocos inconvenientes, pero al tratar de correr la aplicación sobre win 2000 las ventanas tienen un comportamiento raro. Al tratar de cerrarlas, efectivamente las cierra pero en la pantalla queda la ventana dibujada ( cuando digo que efectivamente las cierra es porque los controles dejan de funcionar ). Puedo abrir otras ventanas y sucede exactamente lo mismo. No ocurre con los dialogos. Alguna Idea ??\nDesde ya muchas gracias','',0,'gA==','2kxdo9ni',1,0,'',644,0,0),(22615,5113,6,121,0,'189.142.92.150',1164741449,1,0,1,1,1,1,'','Seguridad en acceso a dbfs','Existe alguna forma de deshabilitar el\nacceso a archivos dbf  desde excel?\n\n\nGracias','',0,'gA==','2oong8tu',1,0,'',121,0,0),(22616,5114,6,66,0,'200.127.64.17',1164742068,1,0,1,0,1,0,'','Consulta rmake varios prg  fwh\\makes  borland','Estimados Colegas\n\nEstoy tratando de generar un exe  de varios prg  ,corro el  archivo\nrmk borland que viene en la carpeta fhw\\makes ,  compilo bien\ny luego cuando voy a enlazar  me tira  el  error to many exe\nfilenames, \n\nPROJECT    : GVTA.exe\n\nGVTA.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) GVTA.rc\n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n   echo obj\\Gvta.obj obj\\Clientes.obj obj\\CLIVen.obj obj\\condicuo.obj, + &gt;&gt; b32.bc\n   \n  en esta linea me tira el error\necho obj\\rubros.obj obj\\zonas.obj obj\\EXPRESOS.obj, + &gt;&gt; b32.bc\nen esta\n   echo obj\\fpagos.obj obj\\alm.obj obj\\libre.obj obj\\PROVEEDO.obj, + &gt;&gt; b32.bc\n\nsi alguien me puede orientar\n\ngracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','2nfzunvf',1,0,'',66,0,0),(22617,5098,6,36,0,'200.113.56.235',1164746078,1,0,1,1,1,0,'','','Armando\n\ny cualfue la solucion?\n\nSaludos\nPatricio','',0,'gA==','3ox3rfzb',1,0,'',36,0,0),(22618,5097,2,875,0,'64.76.108.179',1164748251,1,0,1,1,1,0,'','Encontre Solucion','En vista que no hay nadie en este FORO, tuve que encontrar la solucion por mi mismo\n\nJaime','',0,'gA==','369qiuvj',1,0,'',875,0,0),(22619,5113,6,138,0,'189.141.64.226',1164750429,1,0,1,1,1,1,'','','No es posible, no hay forma de manipular excel para que no lea archivos DBFs.\n\nLo que nosotros hicimos fue encriptarlos con ADS y se acabo el problema, Excel no reconoce el formato encriptado de Advantage.\n\nLa solucion definitiva fue cambiar los DBF por tablas ADT, y ahi si, ni excel les mete mano.','',0,'gA==','2303i2jm',1,0,'',138,0,0),(22620,5101,6,73,0,'201.165.193.41',1164750547,1,0,1,1,1,0,'','','Carlos, ya probe y me truena, no me funciona en ningun dialogo, unicamente en ventanas con un control browse, donde tengo btnget,combobox,checkbox,sbutton,stsay, text, group no me va, alguna idea?\n\n aki me truena\n\nApplication\n===========\n   Path and name: C:\\Proyectos\\Harbour\\xPV2\\Caja5.Exe (32 bits)\n   Size: 2,373,120 bytes\n   Time from start: 0 hours 0 mins 10 secs \n   Error occurred at: 28/11/2006, 08:23:52\n   Error description: Error BASE/1083  Argument error: *\n   Args:\n     [   1] = U   \n     [   2] = N   1.25\n\nuso pellesc con archivos .res me supongo que debe ser algun control, todos deben estar definidos? porque algunos en el .res el pellesc me pone (unused)\ngracias\nPaco','',0,'','1zgu9b9z',1,0,'',73,0,0),(22621,5104,3,136,0,'66.201.225.194',1164750785,1,0,1,1,1,0,'','','Here\'s a try for mdi child windows inside a mdi frame.\n\n[code:3i14ahxa]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define WM_ERASEBKGND         20\n#define WM_ICONERASEBKGND     39\n#define WM_MDIACTIVATE       546\n#define WM_NCPAINT           133\n\nfunction Main&#40;&#41;\n\n  local oWin, oDlg\n\n  OVERRIDE METHOD NCPaint     IN CLASS TMdiChild WITH MyNCPaint\n  OVERRIDE METHOD Paint       IN CLASS TMdiChild WITH MyPaint\n  OVERRIDE METHOD MdiActivate IN CLASS TMdiChild WITH MyMdiActivate\n  OVERRIDE METHOD HandleEvent IN CLASS TMdiChild WITH MyHandleEvent\n\n\n  DEFINE WINDOW oWin TITLE &quot;Main Window&quot; MDI\n\n  ACTIVATE WINDOW oWin\n\n\nfunction RedLine&#40;oWnd&#41;\n\n  local hPen &#58;= CreatePen&#40;PS_SOLID,1,CLR_HRED&#41;\n  local hOldPen\n  local aRect, nLineDC\n\n  aRect &#58;= GetWndRect&#40;oWnd&#58;hWnd&#41;\n\n  nLineDC &#58;= GetWindowDC&#40;oWnd&#58;hWnd&#41;\n  hOldPen &#58;= SelectObject&#40;nLineDC,hPen&#41;\n  MoveTo&#40;nLineDC,0,10&#41;\n  LineTo&#40;nLineDC,aRect&#91;4&#93;-aRect&#91;2&#93;,10&#41;\n  SelectObject&#40;nLineDC,hOldpen&#41;\n  DeleteObject&#40;hPen&#41;\n  ReleaseDC&#40;nLineDC&#41;\n\n  return nil\n\n\n\nfunction MyMdiActivate&#40; lOn, hWndAct, hWndDeAct &#41;\n\n  local self &#58;= HB_QSelf&#40;&#41;\n\n     if lOn\n        if &#58;&#58;oMenu != nil\n           &#58;&#58;oWnd&#58;SetMenu&#40; &#58;&#58;oMenu, &#58;&#58;nMenuInfo &#41;\n        endif\n     else\n        if &#58;&#58;oMenu != nil\n           &#58;&#58;oWnd&#58;SetMenu&#40; &#58;&#58;oWnd&#58;oMenuStart &#41;\n        endif\n     endif\n\n     if IsIconic&#40;&#58;&#58;hWnd&#41;\n       RedLine&#40;Self&#41;\n     endif\n\n  return nil\n\nfunction myNCPaint&#40;nWParam&#41;\n\n  local self &#58;= HB_QSelf&#40;&#41;\n\n     if IsIconic&#40;&#58;&#58;hWnd&#41;\n       RedLine&#40;Self,nWParam&#41;\n     endif\n     return &#58;&#58;TWindow&#58;NCPaint&#40;&#41;\n\nfunction myPaint&#40;nWParam&#41;\n\n  local self &#58;= HB_QSelf&#40;&#41;\n\n     if IsIconic&#40;&#58;&#58;hWnd&#41;\n       RedLine&#40;Self,nWParam&#41;\n     endif\n     return &#58;&#58;TWindow&#58;Paint&#40;&#41;\n\nfunction MyHandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\n   local self &#58;= HB_QSelf&#40;&#41;\n      if nMsg == WM_MDIACTIVATE\n         return &#58;&#58;MdiActivate&#40; &#58;&#58;hWnd == nLParam, nLParam, nWParam &#41;\n      elseif nMsg == WM_NCPAINT\n        return &#58;&#58;NCPaint&#40;&#41;\n      endif\n\nreturn &#58;&#58;TWindow&#40;&#41;&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\n[/code:3i14ahxa]','',0,'AIA=','3i14ahxa',1,0,'',136,0,0),(22622,5101,6,92,0,'62.151.112.79',1164753260,1,0,1,1,1,0,'','Redimensionar ventanas','La funión en si lo que realiza és gestionar un :Move() sobre la ventana/diálogo/control que corresponda. Por tanto lo único que se me ocurre es probar de realizar un :Move() directamente sobre los controles a ver que pasa.\nDesconozco si todos los controles que mencionas son propios de FiveWin y si además disponen del metodo Move().\n\nSaludos y suerte\nCarlos G.','',0,'AIA=','kgdff031',1,0,'',92,0,0),(22623,5101,6,92,0,'62.151.116.72',1164753673,1,0,1,1,1,0,'','Redimensionar','Puedes poner un trozo de código donde te funciona y donde no?\n\nSaludos\nCarlos G.','',0,'AIA=','10c6u4xq',1,0,'',92,0,0),(22624,5114,6,2,0,'87.218.146.203',1164753967,1,0,1,1,1,1,'','','Fabian,\n\nTe sobra la coma del final:\n\necho obj\\rubros.obj obj\\zonas.obj obj\\EXPRESOS.obj, + &gt;&gt; b32.bc \n\nya que sólo tiene que haber una coma antes del nombre del EXE.','',0,'AIA=','19beqkh8',1,0,'',2,0,0),(22625,5112,6,2,0,'87.218.146.203',1164754043,1,0,1,1,1,1,'','','Horacio,\n\nPrueba samples\\tutor02.prg. Te sucede igual con ese ejemplo ?','',0,'AIA=','2seamxk7',1,0,'',2,0,0),(22626,5065,3,707,0,'222.124.20.50',1164759838,1,0,1,1,1,0,'','','Hello Rene,\n\nYes ! Yes ! Yes ! \n\nThat\'s good.\n\nThat\'s I want to need\n\n\nBest Regard\nAreang','',0,'AIA=','pgxyrpqf',1,0,'',707,0,0),(22627,5115,3,299,0,'24.233.172.101',1164761214,1,0,1,0,1,0,'','Text Autocompletion?','Anybody?\n\n\nReinaldo.','',0,'AIA=','bdjtmh82',1,0,'',299,0,0),(22628,5116,6,743,0,'200.67.230.223',1164765837,1,0,1,1,1,0,'','wbrowse urgente','alguien sabe por que no me pone los titulos en el browse de Rossine y cuando empiezo a utilizar las diferentes propiedades  que tiene la classe me descuadra todo el browse, alguien tiene la version actual o estable  les dejo una imagen con el defecto y tambien me pasa con los Footers\n\n[/url]http://img294.imageshack.us/my.php?image=wbrowseed6.png[url][/url]','',0,'EA==','2j6oddbo',1,0,'',743,0,0),(22629,5065,3,190,0,'202.65.134.26',1164769087,1,0,1,1,1,0,'','','Why Mr.RF is not responding to any of these postings or to his\nprivate mails!....\n\n- Ramesh Babu P','',0,'EA==','2aaoypqm',1,0,'',190,0,0),(22630,5063,1,186,0,'66.130.50.142',1164773440,1,0,1,1,1,1,'','','Hi Enrico,\n\nFor now I`m quite busy finishing up another application, but I will post a sample file illustrating the problem as soon as I can.\n\nRegards,','',0,'EA==','1b85371h',1,0,'',186,0,0),(22631,5065,3,15,0,'203.73.50.49',1164775031,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:1wwr5cmq]Why Mr.RF is not responding to any of these postings or to his\nprivate mails!....\n\n- Ramesh Babu P[/quote:1wwr5cmq]\n\nYes, I agree.\nI can\'t get any information from Rene.\n\nRichard','',0,'gA==','1wwr5cmq',1,0,'',15,0,0),(22632,5117,1,699,0,'59.125.100.114',1164781531,1,0,1,1,1,1,'','Show selected records in ListBox','Hi All,\n\nI use REDEFINE LISTBOX command, normally it shows all of the records in listbox. Is it possible to set filter in order to show the matched records only in listbox? How to do if possible? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','5qfsg5gq',1,0,'',699,0,0),(22633,5105,3,2,0,'87.218.146.203',1164782767,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3suckycz',1,0,'',2,0,0),(22634,5111,6,2,0,'87.218.146.203',1164782853,1,0,1,1,1,1,'','','Fabian,\n\nfwh\\makes\\bormake.zip y msmake.zip','',0,'gA==','2mppaaew',1,0,'',2,0,0),(22635,5110,6,2,0,'87.218.146.203',1164783182,1,0,1,1,1,1,'','','Paco,\n\nPodrías poner un LogFile( \"msgs.txt\", { nMsg, nWParam, nLParam } ) en el método HandleEvent() de TWindow y ver cuando se llega a esa situación que hay en msgs.txt.\n\nPosiblemente el contenido de msgs.txt os de la pista.','',0,'gA==','90kh3qi0',1,0,'',2,0,0),(22636,5109,7,2,0,'87.218.146.203',1164783423,1,0,1,1,1,1,'','','Elías,\n\nEstás accediendo y modificando esa base de datos desde otro programa en FoxPro, etc. ?','',0,'gA==','1drrr2na',1,0,'',2,0,0),(22637,5097,2,2,0,'87.218.146.203',1164783512,1,0,1,1,1,1,'','','Jaime,\n\nPara usar las clases de FiveWin tienes que enlazar las librerías de FiveWin.\n\nRevisa samples\\build.bat','',0,'gA==','3htifn7u',1,0,'',2,0,0),(22638,5072,2,2,0,'87.218.146.203',1164783647,1,0,1,1,1,1,'','','Jaime,\n\nRevisa samples\\build.bat que te indica claramente las librerías a usar.\n\nLas librerías de FiveWin son un producto comercial y con derechos de autor, y es ilegal \"que te las pasen\".\n\nPara más información visita <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'gA==','2xsfyqea',1,0,'',2,0,0),(22639,5117,1,2,0,'87.218.146.203',1164783740,1,0,1,1,1,1,'','','Andy,\n\nCreate an index for a certain condition and use it.','',0,'gA==','2s8c1bep',1,0,'',2,0,0),(22640,5115,3,2,0,'87.218.146.203',1164783939,1,0,1,1,1,1,'','','Reinaldo,\n\nUsing the GET bChange data you can search on a database and if the beginning of a word is found then you can modify the GET contents.','',0,'gA==','2hk1pmvn',1,0,'',2,0,0),(22641,5118,6,413,0,'194.106.16.43',1164785631,1,0,1,1,1,0,'','Folder protegido con password.','Alquien sabe si desde codigo se puede proteger una carpeta para que solo pueda ser abierta desde una aplicacion realizada con Fivewin. Mi intencion es poner en su interior reportes del crystal que segun tengo entendido no hay manera de protegerlos para que no se puedan modificar desde otro crystal y por lo tanto que solo se abran desde la aplicacion realizada en fivewin. Se que hay programas que lo hacen pero ignoro como se puede realizar desde codigo, alguna pista.\n\nGracias...\nSaludos','',0,'gA==','14fpax0p',1,0,'',413,0,0),(22642,5119,6,694,0,'200.181.156.168',1164785965,1,0,1,1,1,1,'','Código de Barras com TWORD é possível ?','Amigos, é possível gerar um código de barras em um documento WORD com a TWORD?\n\nAokisantos','',0,'gA==','3bhd308g',1,0,'',694,0,0),(22643,5110,6,28,0,'213.27.201.254',1164786600,1,0,1,1,1,0,'','','Ok, gracias voy a probarlo y os cuento','',0,'gA==','3baz698u',1,0,'',28,0,0),(22644,5096,22,2,0,'87.218.146.203',1164786609,1,0,1,1,1,1,'','','Fernando,\n\nTe refieres a que no tenga borde ? De ser así, no uses WS_BORDER en el estilo del GET en el recurso.','',0,'gA==','1t9w659w',1,0,'',2,0,0),(22645,5063,1,6,0,'87.16.213.96',1164786750,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'gA==','1zf3t72d',1,0,'',6,0,0),(22646,5117,1,699,0,'59.125.100.114',1164786887,1,0,1,1,1,1,'','','Antonio,\n\nThank you very much for your prompt reply and good solution.','',0,'gA==','2et3dnon',1,0,'',699,0,0),(22647,5065,3,137,0,'151.38.8.195',1164789054,1,0,1,1,1,0,'','','I too.\n\nI haven\'t got reply from Rene.\n\nRegards,\nRoberto Parisi','',0,'gA==','12fnhznq',1,0,'',137,0,0),(22648,5118,6,2,0,'87.218.146.203',1164790348,1,0,1,1,1,1,'','','Andrés,\n\nPodrias mantenerlos encriptados en disco y desencriptarlos justo antes de usarlos, para luego borrarlos. La función Encrypt() y Decrypt() de FWH te sirven.','',0,'gA==','gifta30c',1,0,'',2,0,0),(22649,5110,6,2,0,'87.218.146.203',1164790496,1,0,1,1,1,1,'','','Paco,\n\nSi puedes llámame por teléfono y hablamos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','y1hvzqz6',1,0,'',2,0,0),(22650,5109,7,720,0,'80.59.110.137',1164791956,1,0,1,1,1,0,'','','Hola Antonio. \n\nLa tablas pertenecen a un programa hecho en Fox, pero las tengo en una ubicación distinta de su aplicación. El tema es que deben ser esas tablas las que debo usar con la pda... ¿Existe algún problema si las tablas son de otra aplicación?. Entiendo yo que al estar en otra ubicación la aplicación principal no realiza cambios sobre estas tablas....\n\n\nSaludos...\n\nElías Torres.','',0,'gA==','27fmdqxk',1,0,'',720,0,0),(22651,5119,6,177,0,'194.30.62.6',1164795645,1,0,1,1,1,0,'','','AokiSantos,\n\nimagino que sí con el font adecuado. En el  post siguiente tienes el fuente  3 de 9 <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1701&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\nSaludos,\n\nBaxajaun','',0,'gA==','3l353ltj',1,0,'',177,0,0),(22652,5118,6,413,0,'194.106.16.43',1164796122,1,0,1,1,1,0,'','','Eso estaba pensando, pero en realidad lo que tengo que encriptar es el fichero de reporte, verdad Antonio. Bueno no lo hecho nunca,  voy a consultar las funciones para ver como lo hago, gracias.','',0,'gA==','3vkht7uo',1,0,'',413,0,0),(22653,5118,6,413,0,'194.106.16.43',1164796842,1,0,1,1,1,0,'','','Lo que comentas Antonio es muy basico, no encripta los datos tan solo lo que encriptas es el nombre del fichero, con volverlos a renombrar ya lo pueden ejecutar, si es eso a lo que te referias.','',0,'gA==','3hf6chmm',1,0,'',413,0,0),(22654,5098,6,176,0,'201.255.134.169',1164796882,1,0,1,1,1,0,'','','Armando puedes decir cual fue la solución ya que justo hoy iba a buscar el porque lo hace.\n\nGracias','',0,'gA==','1ki6cyno',1,0,'',176,0,0),(22655,5118,6,177,0,'194.30.62.6',1164798914,1,0,1,1,1,0,'','','Antonio,\n\npuedes utilizar la función del API Win32 GetFileSecurity\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-gb/library/aa446639.aspx\">http://msdn2.microsoft.com/en-gb/library/aa446639.aspx</a><!-- m -->\n\nSaludos','',0,'gA==','24bgkhkc',1,0,'',177,0,0),(22656,5120,3,678,0,'168.209.98.43',1164799359,1,0,1,1,1,1,'','MDI form focus','Hi Antonio\n\nIf you have 2 mdi dlgs open, dlg 1 partially on top of dlg 2. You then click somewhere on dlg 2 (the bottom one) [dont click the title bar]. Dlg 2 gets focus but does no re-draw itself on top of dlg 1 and its title bar remains light blue.\n\nIt only works correctly if you click the TITLE BAR of the form you want to give focus to.\n\nThis was an old problem. Was there a solution for this?\n\nRegds\nPeter','',0,'','1xhxirl3',1,0,'',678,0,0),(22657,5104,3,169,0,'200.206.142.134',1164799433,1,0,1,1,1,0,'','','[quote=&quot;Marc Boissinot&quot;:2xdo50o4]Here\'s a try for mdi child windows inside a mdi frame.[/quote:2xdo50o4]\n\nMarc, works fine. Is just that I need, thanks.\n\nToninho.','',0,'gA==','2xdo50o4',1,0,'',169,0,0),(22658,5118,6,177,0,'194.30.62.6',1164799473,1,0,1,1,1,0,'','','Antonio,\n\nmás información sobre el asunto:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/csharp/SetDACLs.asp\">http://www.codeproject.com/csharp/SetDACLs.asp</a><!-- m -->\n\n\nSaludos','',0,'gA==','12d66xdq',1,0,'',177,0,0),(22659,5121,6,838,0,'80.34.222.112',1164802323,1,0,1,1,1,0,'','Una pregunta sencilla sobre enlazado','Hola amigos\nTengo algunos problemas, y creo que es por no tener claro algunos temas sobre el enlazado con librerias externas.\n\n -1.- Quiero generar una libreria (yo lo hago con VERCE), en concreto una de las folder que andan por ahí, y como siempre me da errores (\"ambiguous reference N, etc), pues utilizo una ya generada que me han enviado.\n -2.- Ahora quiero utilizar ésta libreria y ahí viene el tema, creo que el problema lo tengo en el .ch, ya que en verce la pongo como libreria de terceros, y lo que hago con el .ch es modificar el folder.ch que viene con fwh en el sentido de sustituir las instrucciones de uno por otro, ya que necesito algunas instrucciones de la original, como la referencia a los TABS,y no funciona nada, da igual que renombre la libreria.\n\n- Esto me ocurre con todas las clases o librerias que se llaman igual que la original y que necesite algo de una y de otra, no me ocurre con las que se llamen de otra manera o que sustituya una totalmente por la otra.\n\nComo se puede arreglar esto?\n\nSaludos\n\nJose Luis','',0,'gA==','3qae7uk1',1,0,'',838,0,0),(22660,4912,2,28,0,'213.27.201.254',1164803896,1,0,1,1,1,0,'','','Hola,\n\nMe esta ocurriendo algo parecido. Yo tengo los programas con Harbour y cuando dejas el programa 20 o 25 minutos al lanzar una acción que abra una caja de diálogo, el programa se queda colgado, sin GPF, sin error.log sin na de na.\n\n¿Cómo solucionaste el problema?\n\nUn saludo\n\nPaco','',0,'gA==','227bb7b0',1,0,'',28,0,0),(22661,5063,1,170,0,'83.179.197.203',1164805686,1,0,1,1,1,1,'','','[quote=&quot;Gilbert&quot;:2i0mbf75]Hi Enrico,\n\nI`m not saying I have problem printing. I`m saying that DevMode(), DeviceCaps() and GetDeviceCaps() are resulting erroneaus results.\n\nRegards,[/quote:2i0mbf75]\n\nI have exactly the same problem with this functions Gilbert,\nsince the day i have purchased FW 2.5 and FWH 2.5.\nI have reported these bugs to Antonio there is o long time,\nnobody do nothing to solve this.\n\nSo, i have rewritted some \"obsoletes\" functions of fivewin\nto work properly, and some changes in TPrinter() class.\nAnd this work today, on 98 like XP.\nWhat problem have you under 2000 with my functions ?\n\nSure, you have not access to the datas you look before\nto buy Fivewin.\n\nI don\'t speak about FWH, i can do nothing with...\nOne product for the price of two.\n\nNow, i am waiting level zero bug before to see.\n\nRegards,','',0,'gA==','2i0mbf75',1,0,'',170,0,0),(22662,5109,7,2,0,'87.218.146.203',1164806731,1,0,1,1,1,1,'','','Elías,\n\nNosotros estamos usando ficheros FPT desde Harbour sin problemas. \nEstás usando el build más reciente de Harbour para Pocket PC ? \n\nDe que fecha es harbour.exe ?','',0,'gA==','807m70m6',1,0,'',2,0,0),(22663,5118,6,2,0,'87.218.146.203',1164806975,1,0,1,1,1,1,'','','Andrés,\n\nMe refiero a encriptar el fichero completo, no su nombre.\n\nEs tan sencillo como:\n\nMemoWrit( \"nombre.ext\", Encrypt( MemoRead( \"reporte_original\" ), \"clave tuya\" ) )\n\ny luego para usarlo:\n\nMemoWrit( \"reporte_original\", Decrypt( MemoRead( \"nombre.ext\" ), \"clave tuya\" ) )\n\nlo usas y luego borras \"reporte_original\".','',0,'gA==','2k3foeqx',1,0,'',2,0,0),(22664,5113,6,121,0,'189.142.91.175',1164807505,1,0,1,1,1,1,'','','gracias Rene','',0,'gA==','u9ckq964',1,0,'',121,0,0),(22665,4134,4,267,0,'200.208.238.2',1164808499,1,0,1,1,1,1,'','','Hi, Antonio,\n\nCongratulations, but when you intend to liberate this new version?','',0,'gA==','1dhnui6s',1,0,'',267,0,0),(22666,5122,6,832,0,'201.122.21.224',1164810349,1,0,1,1,1,0,'','LEER UN ARCHVIO TXT','<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  HOLA A TODOS ...\n\n\n\nALGUIEN ME PODRIA AYUDAR... NECESITO LEER UNA ARCHIVO TXT, Y EL TEXTO LO TENGO SEPARADO POR COMAS......\n\n\n\nY A SU VES ESTE TEXTO LO VOY AGREGAR A UNA DBF','',0,'gA==','2xftn13h',1,0,'',832,0,0),(22667,5123,6,36,0,'200.113.56.235',1164811681,1,0,1,1,1,0,'','Indexar con ADS','Estimados\nCon la actualizacion de xharbour 0.99.61 varios cambios he visto con las funciones ADS, ahora no he podido indexar \n\nhay alguno que ha podido??\n\nen forma local funciona bien, pero con remoto sale error...\n\nen mi aplicacion tengo lo siguiente:\n\n[code:g1je4ovt]	\n\nrddSetDefault&#40; &quot;ADS&quot; &#41;\nadsConnect&#40; oApp&#58;cPathDbf &#41;\nAdsSetServerType&#40; 2 &#41;\nif !AdsConnect60&#40; oApp&#58;AdsServer, 2, &quot;adssys&quot;, &quot;clave&quot;,, @hConnection &#41;\n	MsgInfo&#40; &quot;Hay problemas en el servidor&quot;+CRLF+&quot;intente mas tarde&quot;, &quot;usuario&quot; &#41;\n		MsgInfo&#40; &quot;Error&#58;&quot;+cValtochar&#40; AdsGetLastError&#40;&#41; &#41;+CRLF +;\n			&quot;Servidor&#58;&quot;+oApp&#58;AdsServer, &quot;Usuario&quot; &#41;\n		PostQuitMessage&#40;0&#41;\n		QUIT\n		return\nendif\n\nAdsSetSearchPath&#40; oApp&#58;cPathDbf &#41;\nAdsSetFileType&#40; ADS_CDX &#41;\nAdsLocking&#40; &#46;t&#46; &#41;\nAdsRightsCheck&#40; &#46;f&#46; &#41;\n\n[/code:g1je4ovt]\n\n\nahora abro las base de la siguiente manera\n\n[code:g1je4ovt]\n\ncDbf &#58;= &quot;ARTICU&quot;\nif lShared\n   SELE 0 ; USE &#40;cDbf&#41; NEW ALIAS &#40;cAlias&#41; VIA &quot;ADS&quot; SHARED		\nelse\n   SELE 0 ; USE &#40;cDbf&#41; ALIAS &#40;cAlias&#41; VIA &quot;ADS&quot; EXCLUSIVE NEW\nendif	\n\n[/code:g1je4ovt]\n\npara crear el indice lo hago de la siguiente manera\n\n[code:g1je4ovt]\n   cTag &#58;= &quot;ARTICU&quot;\n   cKey &#58;= &quot;CODIGO&quot;\n   cCdx &#58;= &quot;ARTICU&quot; //es el nombre de la base de dato\n// cCdx &#58;= ruttaservidor+&quot;\\ARTICU&quot; // ruta del servidor\n\nINDEX ON  &amp;cKey   ;\n          TAG &amp;cTag     ;\n          TO  &amp;cCdx\n\ndbCloseAll&#40;&#41;\n[/code:g1je4ovt]\n\nEl Error es el siguiente\nads/cdx 5089, ERROR DE CREACION??\n\n     Desde ya, gracias\n\nSaludos\nPatricio','',0,'AIA=','g1je4ovt',1,0,'',36,0,0),(22668,5097,2,875,0,'64.76.108.179',1164812766,1,0,1,1,1,0,'','OK','Antonio Gracias de todas maneras. Ahora si empezare a migrar mis aplicaciones de clipper(DOS) a windows poco a poco.\n\nJaime','',0,'AIA=','3e1scpav',1,0,'',875,0,0),(22669,5115,3,67,0,'62.235.24.56',1164812855,1,0,1,1,1,0,'','','[code:gq03kiu0]\n#include &quot;FiveWin&#46;ch&quot;\n\n//------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg\n	 local cText &#58;= &quot;AUTOFILL&quot;\n   local oGet\n\n   DEFINE DIALOG oDlg TITLE &quot;Just a get&quot;\n\n   @ 2,  2 SAY &quot;Date&#58;&quot; OF oDlg\n   @ 2,  6 GET oGet VAR cText OF oDlg SIZE 40, 10 ;\n      VALID ! Empty&#40; cText&#41; PICTURE &quot;@K!&quot;\n\n			oGet&#58;bChange &#58;= &#123;|self|test&#40;self , oGet&#41;&#125;\n\n   @ 3,  7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3, 16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n   ACTIVATE DIALOG oDlg CENTERED\nreturn nil\n//------------------------------------------------------------------------//\nProc Test&#40;nKey , OGet&#41;\n*******************\nLOCAL a &#58;= &#123;&quot;ABCD&quot; , &quot;ACBCDE&quot; , &quot;ABDCD&quot; , &quot;ABCDEFGH&quot;&#125; \nLOCAL Len\nLOCAL cBuf , n  , nPos &#58;= oGet&#58;nPos\nIF nKey == 8 // Delete character\n	RETURN\nEND\noGet&#58;Assign&#40;&#41;\ncBuf &#58;= oGet&#58;Varget&#40;&#41;\nLen &#58;= LEN&#40;cBuf&#41;\ncBuf &#58;= LEFT&#40;cBuf , nPos-1&#41;\nIF &#40;n &#58;= ASCAN&#40;a, cBuf&#41;&#41; &gt; 0\n	oGet&#58;Varput&#40;PAD&#40;a&#91;n&#93;,Len&#41;&#41;\n	oGet&#58;Refresh&#40;&#41;\n	oGet&#58;SetPos&#40;nPos&#41;\nEND\nRETURN\n[/code:gq03kiu0]','',0,'AIA=','gq03kiu0',1,0,'',67,0,0),(22670,5098,6,53,0,'189.139.21.186',1164813708,1,0,1,1,1,1,'','','Amigos:\n\nLa solución ?, agregar la siguiente línea al browse:\n\noBrw:bLogicLen     	:= {|| (cClientes)-&gt;(OrdKeyCount())}\n\nY todo gracias a Paco Horta.\n\nArmando','',0,'AIA=','d169g33j',1,0,'',53,0,0),(22671,5038,7,18,0,'200.67.188.236',1164813818,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:3u935g7y][quote=&quot;Antonio Linares&quot;:3u935g7y]Vikthor,\n\nQue ejemplo estás probando ?[/quote:3u935g7y]\n[code:3u935g7y]\n\nEsta una parte del código\n\n\nFUNCTION CONNECTNEWS&#40;&#41; \nPARAM oSocket,oStatus,oBoton1 \n nPort &#58;= 119 \n cServerIP &#58;= &quot;200&#46;67&#46;153&#46;171&quot; \n oStatus&#58;cText&#40; &quot; Conectando a &quot;+cServerIP +CRLF &#41; \n cTxt &#58;= oStatus&#58;cText \n oStatus&#58;cText&#40; cTxt+&quot; Esperando respuesta &#46;&#46;&#46;&#46;&#46;&#46;&quot;+CRLF &#41; \n oSocket   &#58;= TSocket&#40;&#41; \n oSocket&#58;New&#40; nPort &#41; \n oSocket&#58;Connect&#40; cServerIP, nPort &#41;  &lt;------- Aquí se pierde \n\noSocket&#58;bConnect &#58;= &#123; |o| NewsOn&#40;o , oStatus &#41; &#125; \noSocket&#58;bRead    &#58;= &#123; |o| NewsRead&#40;o , oStatus&#41; &#125; \n\nRETURN&#40; oSocket &#41; \n\nFUNCTION NEWSON&#40;&#41; \nPARAM oSocket,oStatus,cServerIp \ncTxt &#58;= oStatus&#58;cText \noStatus&#58;cText&#40; cTxt + &quot; Ahora estas conectado&#46; &quot;+CRLF &#41; \nRETURN \n[/code:3u935g7y][/quote:3u935g7y]\n\nAntonio , la Clase TSocket en el método Connect() es donde se inhibe.','',0,'gIA=','3u935g7y',1,0,'',18,0,0),(22672,5122,6,49,0,'62.13.172.78',1164814208,1,0,1,1,1,1,'','','you use FOpen to open a file \nFReadLn for each line of file txt\nthen FRead or FSeek\n\nif you need something you must explain what you mean for it .','',0,'gIA=','3rfq42hy',1,0,'',49,0,0),(22673,5124,7,832,0,'201.122.21.224',1164814430,1,0,1,1,1,0,'','AYUDA URGENTE DE TFTP()','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> HOLA A TODOS....\n\n\n\nEN POCKET PC PUEDO UTILIZAR ESTE CLASE.\n\nFunction Ftpconecta(conecta,cFtpsite,clog,cPass)\n   local swcontinua:=.t.\n   MsgRun(\"Conectando a: \"+cftpsite)\n    <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  oInternet := TInternet():New()\n    <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  oFTP := TFTP():New(cFtpSite,oInternet,clog,cPass)\n   if Empty( oFTP:hFTP )\n      swcontinua:=.f.\n      AADD(errores,cftpsite)\n      error += 1\n   endif\nreturn swcontinua','',0,'gIA=','26k4ru6w',1,0,'',832,0,0),(22674,5122,6,375,0,'84.122.113.64',1164815809,1,0,1,1,1,1,'','','Si el texto no es muy grande, MEMOREAD va bien, lo metes en una variable, después buscas las comas con AT y listo. Si es muy grande, lo mejor es con FOPEN como dice Silvio, pues una variable no maneja más de 64K.','',0,'gIA=','26dae1dc',1,0,'',375,0,0),(22675,5125,7,720,0,'80.59.110.137',1164817860,1,0,1,1,1,0,'','esto es correcto??','Hola a todos...\n\nVamos a ver.. Tengo dos tablas:\n\nSELECT 0\nUSE (CURDIR()+\"\\temporal.dbf\") new\ntemporal-&gt;( OrdSetFocus( \"nomart+codart\" ) )\nINDEX ON codart+nomart TO temporal\nAliastemporal := Alias() 	\n	\nSELECT 0\nUSE (CURDIR()+\"\\precios.dbf\") new\nprecios-&gt;(OrdSetFocus( \"articulo+numero\"))  &amp;&amp;articulo es el codigo\nINDEX ON articulo+numero TO precios\naliasPrecios:=ALIAS()\n\nEntonces realizo una búsqueda sobre la tabla precios según un parámetro. Esta busqueda la realizo asi:\n\nIF precios-&gt;(DbSeek(ALLTRIM(cod),.t.))\n     p:=precios-&gt;pvp\nelse\n     p:=0\nendif\ntemporal-&gt;pvp:=p\n\nMi pregunta es bien sencilla:\n\nprecios-&gt;(DbSeek(ALLTRIM(cod),.t.)) ¿¿me posiciona en el registro de la tabla precios para el cual se cumpla la condicion de que sea igual a cod??. Porque supuestamente la tabla está indexada por el codigo (que es lo que representa la variable cod).. Pero me está devolviendo otro valor que no es el que le corresponde. Es como si los indices no estuvieran trabajando bien....\n\n\nHay que poner algun set?? He probado a poner el set softseek on (por probar) pero no hay ningún cambio...\n\n\nEspero alguien me pueda aclarar esta duda..\n\nSaludos y gracias.\n\nElías Torres.','',0,'gIA=','2bz3mpw2',1,0,'',720,0,0),(22676,5126,1,161,0,'81.164.212.146',1164817909,1,0,1,1,1,0,'','Rotate bitmap 90 degrees in printout','Hello,\n\nI\'m using oPrint:SayBitmap() to print bitmaps. Is there a way to rotate the image 90 degrees. I know how to rotate the text, but I couldn\'t found a way to rotate the bitmap.\n\nThanks,\nMarc','',0,'gIA=','2egsn7s9',1,0,'',161,0,0),(22677,5112,6,644,0,'201.252.59.86',1164818116,1,0,1,1,1,0,'','','Antonio\n\nGracias por responder. Estuve mirando este problema y me parece que es el brush que pongo en la ventana madre. La toma como si fuera transparente\n\nEste el el código\n\nDefine Brush oBrush File \'c:\\fwh\\bitmaps\\backgrnd\\gray2.bmp\'\nDefine Window oWnd Mdi Brush oBrush\n\nlo saque y funciona perfectamente. Gracias de todas maneras','',0,'gIA=','277ub8mg',1,0,'',644,0,0),(22678,5127,6,73,0,'201.165.210.13',1164819388,1,0,1,1,1,0,'','Report','apens si empiezo a usar la report y me topo con una cuestion, parece facil pero si alguien me puede echar una manita muy agradecido,\nvoy a sacar un reporte de una dbf, hasta ahi todo bien, pero tengo una condicion de un campo si se cumple que lo imprima y si no pues no, con la tprinter lo hago metiendo un if dentro del while, aca que me recomiendan?\nsalu2\nPaco','',0,'gIA=','2q8gl3w2',1,0,'',73,0,0),(22679,5128,3,3,0,'82.124.114.96',1164819485,1,0,1,1,1,1,'','Printer Escape Command','Hello\n\nDoes anyone have a sample of using the \"ESCAPE\" command of the printer class.\n\nThanks for the help\n\nrichard','',0,'gIA=','2h970ow0',1,0,'',3,0,0),(22680,5121,6,439,0,'200.125.50.233',1164821275,1,0,1,1,1,1,'','','No se que librería externa estés usando, pero en general yo no tocaría los archivos .ch de fivewin, en último caso cambiaría el nombre del .ch que viene con la lib y cambiaría en el código la mención al .ch.','',0,'gIA=','bkzno6oz',1,0,'',439,0,0),(22681,5127,6,439,0,'200.125.50.233',1164821631,1,0,1,1,1,1,'','','No entiendo bien, pero si la consulta es como hacer para que seleccione que registros de la base imprimir de acuerdo a una condición:\n\nPRINTER FROM USER\nREPORT oReport;\n    TITLE  \"**Listado**\" ,;\n.........\n.........\nACTIVATE REPORT oReport;\n	[b:1v6haetz]FOR BASE-&gt;campo = \"lo que sea\" [/b:1v6haetz]\n\nNo se si entendi tu necesidad pero quedo a tus órdenes. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','1v6haetz',1,0,'',439,0,0),(22682,4134,4,2,0,'87.218.146.203',1164822134,1,0,1,1,1,1,'','','Vilian,\n\nWe have already published it though we have not tested it 100%, so in case there is a required little fix, we may do it asap.','',0,'QA==','2q2kqi65',1,0,'',2,0,0),(22683,5038,7,2,0,'87.218.146.203',1164822268,1,0,1,1,1,1,'','','Vikthor,\n\nAcabamos de terminar de implementar la clase TInternet y TFtp usando wininet, -ya está publicado- y lo próximo es revisar los sockets.','',0,'QA==','24u0nej2',1,0,'',2,0,0),(22684,5125,7,2,0,'87.218.146.203',1164822417,1,0,1,1,1,1,'','','Elías,\n\nPrueba a hacer los INDEX ON ... antes de llamar a OrdSetFocus()','',0,'QA==','rq0yk7xe',1,0,'',2,0,0),(22685,5128,3,2,0,'87.218.146.203',1164822653,1,0,1,1,1,1,'','','Richard,\n\nIn source\\winapi\\printdc.c there are several samples of Escape() use.','',0,'QA==','3j4vsrsv',1,0,'',2,0,0),(22686,5112,6,2,0,'87.218.146.203',1164822764,1,0,1,1,1,1,'','','Horacio,\n\nPuede ser que en el build de FWH que usas el contador de uso del brush se esté decrementando en exceso y FWH lo destruya.\n\nPrueba a hacer oBrush:nCount++','',0,'QA==','2dixt9u5',1,0,'',2,0,0),(22687,5096,22,215,0,'189.136.239.20',1164822839,1,0,1,1,1,0,'','','Antonio, \nEn la imagen anexada verás los gets que tienen un fondo blanco. Quiero hacerlos transparentes para que tomen el fondo del dialogo. Asi solo tendría el GET en color Blanco cuando obtenga el foco. De momento he coroloreado el get que tiene el foco de verde.\n\nDEFINE DIALOG oDlg RESOURCE \"Datos\" BRUSH oBrush FONT oFont OF oVentana \n\nUso un brush para el fondo del dialogo. Todos los controles los tengo en recursos.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://img325.imageshack.us/my.php?image=dibujoae7.png\">http://img325.imageshack.us/my.php?image=dibujoae7.png</a><!-- m -->','',0,'QA==','2fy6f5qn',1,0,'',215,0,0),(22688,5122,6,2,0,'87.218.146.203',1164823020,1,0,1,1,1,1,'','','Manu,\n\nEn 32 bits no existe el límite de los 64 Ks. El tamaño puede llegar hasta los 4 gigas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPara obtener el código delimitado por las comas, u otro separador, usa la función de FWH StrToken( cTexto, nOcurrencia, cSeparador) --&gt; cResultado','',0,'QA==','zd5srnxj',1,0,'',2,0,0),(22689,5125,7,720,0,'80.59.110.137',1164823822,1,0,1,1,1,0,'','','Hola Antonio...\n\nSi pongo los index antes me da error.. ¿Como puedo hacer una búsqueda combinada?¿La puedo hacer con un seek?\n\nSaludos.\n\nElías Torres.','',0,'QA==','3ftja0de',1,0,'',720,0,0),(22690,5122,6,215,0,'189.136.239.20',1164824036,1,0,1,1,1,0,'','','O si de plano quieres un ejemplo.... pues que mejor que recurrir a los SAMPLES de fivewin ubicados en el directorio SAMPLES.\n\nTESTTOK.PRG','',0,'QA==','fx01ke7z',1,0,'',215,0,0),(22691,5129,6,215,0,'189.136.239.20',1164824548,1,0,1,1,1,0,'','Copiar y pegar en GET','Algunos buscan más funcionalidad y otros que no la quieren.\nMe han solicitado quitar el Control+C y Control+V en los gets.\nTambien que no aparezca el menú al hacer click en el botón derecho del mouse.\n\n¿Ideas?','',0,'QA==','3vf879t7',1,0,'',215,0,0),(22692,5130,6,53,0,'189.139.21.186',1164827527,1,0,1,1,1,1,'','Un caso para la araña','Amigos:\n\nTengo una aplicación que inicia bien y muestra el menú principal pero cuando doy clic sobre una opción de menú simplemente se sale de la aplicación y no envía mensaje alguno.\n\nFWHX 2.7 June 2006  y xHarbour 0.99.61 descargado del sitio de FiveTechSoft.\n\nGracias por su apoyo, Armando','',0,'QA==','3p2q6pjo',1,0,'',53,0,0),(22693,5129,6,644,0,'201.252.59.86',1164827972,1,0,1,1,1,0,'','','fleal\n\nPodes usar oGet : bKeyDown para asignar acciones desde el teclado\ny para que no te aparezca el menu de contexto oGet : bRClicked := { || .t. }','',0,'QA==','3b319ywb',1,0,'',644,0,0),(22694,5131,3,335,0,'68.193.88.53',1164828158,1,0,1,1,1,0,'','Recovery of corrupted FPT files','Can anyone recommend a utility for fixing a corrupted FPT file?\n\nLooking for something similar to a utility that came with FlexFile that did a good job of recovering corrupted DBV files.\n\n- Roger','',0,'QA==','1bojal6f',1,0,'',335,0,0),(22696,5129,6,215,0,'189.136.239.20',1164828702,1,0,1,1,1,0,'','Buena idea, pero...','Horacio, \nbkeydown es buena idea.... ¿Pero como saber si han presionando Ctrl+C ó Ctrl+V ? \n\nPuedo saber si ha presiona una tecla pero no sé como identificar una combinación de teclas. \n\nGracias \nFernando','',0,'QA==','2p064ebu',1,0,'',215,0,0),(22697,5130,6,215,0,'189.136.239.20',1164828805,1,0,1,1,1,0,'','¿Usas alguna librería?','Armando,\n¿Construyes el menú desde código o desde recursos?\n¿Estas usando C5Menu?\n\nCompila el testmnu4.prg que viene en los samples a ver si te pasa lo mismo.\n\nOtra es que en tu programa donde tienes ese problema... solo deja tu ventana principal y el menú, bloquea todo lo demás y prueba a ver que sucede.','',0,'QA==','1lk7ityo',1,1164829205,'',215,1,0),(22698,5130,6,53,0,'189.139.21.186',1164828992,1,0,1,1,1,1,'','','Fer:\n\nConstruyo el menú desde código y no, no uso C5MENU.\n\nLo mas curioso es que el pequeño dialogo ACERCA DE..  lo muestra bien y no aborta.\n\nGracias por tu interés.\n\nSaludos, Armando','',0,'QA==','1pqxn9zt',1,0,'',53,0,0),(22699,5131,3,3,0,'82.253.182.220',1164830189,1,0,1,1,1,1,'','Re: Recovery of corrupted FPT files','[quote=&quot;Roger Seiler&quot;:hr8oroyl]Can anyone recommend a utility for fixing a corrupted FPT file?\n\nLooking for something similar to a utility that came with FlexFile that did a good job of recovering corrupted DBV files.\n\n- Roger[/quote:hr8oroyl]\n\nCDBFW\n\nExcellent product, it has recovered a lot of corrupted memo files at my customers.','',0,'gA==','hr8oroyl',1,0,'',3,0,0),(22700,5128,3,3,0,'82.253.182.220',1164830226,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ax5zhpya]Richard,\n\nIn source\\winapi\\printdc.c there are several samples of Escape() use.[/quote:ax5zhpya]\n\nThanks Antonio','',0,'gA==','ax5zhpya',1,0,'',3,0,0),(22702,5127,6,228,0,'201.245.222.85',1164830747,1,0,1,1,1,1,'','Amigo creo que esto es lo que necesitas..','Amigo creo que esto es lo que necesitas\n\n[code:2e011gwu]\nREPORT oRepor1 PREVIEW;\n  TITLE &quot;OMALDY LTDA&#46; &quot;,&quot;NIT &#58; 830&#46;118&#46;492-1 &quot;,&quot;Reportes Bonos Lideres&quot;,&quot;Campaña&#58;&quot;+oR3vg1+&quot; - Zona&#58;&quot;+oR3vg2+&quot;-&quot;+Noz;\n  HEADER &quot;Fecha&#58; &quot;+dtoc&#40;date&#40;&#41;&#41;+space&#40;44&#41;+&quot;Hora&#58;  &quot;+time&#40;&#41; ;\n  FOOTER &quot;Página&#58; &quot;+str&#40;oRepor1&#58;nPage,3&#41;;\n  CAPTION &quot;Reportes Bonos Lideres&quot;\n\n  SELE tRep3\n  DBGOTOP&#40;&#41;\n  COLUMN DATA tRep3-&gt;Cedula  TITLE &quot;Cedula&quot; SIZE 10 LEFT\n  COLUMN DATA tRep3-&gt;Nombre  TITLE &quot;Nombre&quot; SIZE 30 LEFT\n  COLUMN DATA IF&#40;tRep3-&gt;Valor#0,tRep3-&gt;Valor,&quot; &quot;&#41; TITLE &quot;Total Pedido&quot; PICTURE &quot;999,999,999&#46;99&quot; SIZE 10 RIGHT\n  COLUMN DATA IF&#40;tRep3-&gt;Valor#0,tRep3-&gt;Cantidad,&quot; &quot;&#41; TITLE &quot;Devoluciones&quot; PICTURE &quot;999,999,999&#46;99&quot; SIZE 10 RIGHT\n  COLUMN DATA IF&#40;tRep3-&gt;Valor#0,tRep3-&gt;Vrprom,&quot; &quot;&#41; TITLE &quot;Vr&#46;Bono&quot; PICTURE &quot;999,999,999&#46;99&quot; SIZE 10 RIGHT\n\nEND REPORT\nACTIVATE REPORT oRepor1\n[/code:2e011gwu]\n\nEspero te sirva','',0,'AIA=','2e011gwu',1,0,'',228,0,0),(22703,5040,7,598,0,'200.11.139.61',1164835753,1,0,1,1,1,1,'','','hazlo mejor asi:\n\nPUBLIC loc_archivo:= curdir()+\"\\ticket.dbf\"+space(15) \nPUBLIC rem_archivo:=\"ticket.dbf\"+space(40) \n\n\nacuerdate que tu sistema LOCAL es el pda y no puede tener el formato \"c:\\dir\\\" la raiz de un sistema de archivos PDA es \"\\\" y todos los directorios cuelgan de alli. la barra \"/\" no existe para ninguno de los dos sistemas de archivo (Windows y pocket pc). ese podria ser la razon por la cual se cuelga el programa.','',0,'AIA=','9xqbl927',1,0,'',598,0,0),(22704,5121,6,838,0,'80.59.225.15',1164837272,1,0,1,1,1,0,'','','Pues en concreto la clase tfolder de Jose Lalin o la clase tfolder de rossini, da igual, pero como se llaman igual que la original, y los ch se llaman también igual, pues no se que hacer para que utilice sentencias tanto de cualquiera de éstas dos como de la original.\n\nSaludos cordiales\n\nJose Luis','',0,'AIA=','2cjhs7qm',1,0,'',838,0,0),(22705,5133,7,832,0,'201.122.21.224',1164838488,1,0,1,1,1,0,'','COMO HABILITAR EL INTERNET EN EL EMULADOR','HOLA ATODOS ...\n\n\nME PODRIA AYUDAR PARA CONFIGUR MI EMULADOR PARA PODER ACCESAR DESDE EL A INTERNET EL EMULADOR QUE UTILIZO ES...\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> [color=red:1vy0h60a] POCKET PC 2003 SECOND EDITION [/color:1vy0h60a]','',0,'Ag==','1vy0h60a',1,0,'',832,0,0),(22706,5127,6,73,0,'201.165.210.13',1164839124,1,0,1,1,1,0,'','','Gracias a ambos, perfecto con su ayuda y la de armando, eso mero buscaba\nsalu2\nPaco','',0,'Ag==','3un8j941',1,0,'',73,0,0),(22707,5129,6,73,0,'201.165.210.13',1164839444,1,0,1,1,1,0,'','','Fer, para verificar la combinacion de teclas yo la uso asi sin problemas:\nGETASYNCKEY(VK_SHIFT,VK_TAB)\nespero te sirva\nsalu2\npaco','',0,'Ag==','2ikcgtvd',1,0,'',73,0,0),(22708,5129,6,215,0,'189.136.239.20',1164842177,1,0,1,1,1,0,'','Gracias','Paco,\nYa veo que hay más de un camino para lograr lo mismo.\n\nSucede que en la captura de un dato largo he importante, el capturista marca el get completo, entonces hace Ctrl+C y luego el programa solicita se confirme ese dato. Pues el muy listillo ahora solo usa Ctrl+V y pues ya se jodio la cosa. Por que ese paso está hecho para confirmar la veracidad de la información. Asi pues... al hacer eso el dato se confirma.\nPero si a patadas vamos... pues entonces. Yo he puesto esto:\n\naGets[1]:bKeyDown := { | nKey, nFlags, oGet | IF( GetKeyState( VK_CONTROL ) , ;\n       msgstop(\"blocked\") , TRUE ) }\n\naGets[1]:bRClicked := { | nRow, nCol, nFlags | msginfo(\"blocked\" ) }\n\nComo ves les estoy incapacitando el usar la tecla CONTROL y también el botón Derecho del mouse.  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  Como decimos aquí. ¡¡ A la Goma, que hagan bien el trabajo como se debe!! \n\nGracias','',0,'','1whufloj',1,0,'',215,0,0),(22709,5134,7,519,0,'83.32.145.167',1164842990,1,0,1,1,1,0,'','Pda  ?','Alguien me puede recomendar una pda que  este bien de precio y que vaya bien con fivewin para pda  ?','',0,'','2cijci33',1,0,'',519,0,0),(22710,4992,3,109,0,'200.52.200.250',1164869366,1,0,1,1,1,0,'','Pregunta sobre btnbmp','Sr. Linares\n\n    Al hacer las correcciones a la clase TbtnBmp, (como ud. le sugiere al sr. reinaldo), los bitmaps los coloca en la parte superior izquierda, ademas de borrar el texto del boton.\n\n    Me podria ayudar con este detalle. (tambien utilizo degradados)\n\n\nPor su atencion gracias','',0,'','bc624dha',1,0,'',109,0,0),(22711,5125,7,2,0,'87.218.146.203',1164871645,1,0,1,1,1,1,'','','Elías,\n\nDel ejemplo samples\\TestBrwS.prg:\n\n   USE ( CurDir() + \"\\Customer\" ) VIA \"DBFCDX\"\n   INDEX ON Customer-&gt;Last TO ( CurDir() + \"\\LAST\" )\n   Customer-&gt;( OrdSetFocus( \"LAST\" ) )\n   Customer-&gt;( DbGoTop() )\n...\nCustomer-&gt;( DbSeek( cSearch, .t. ) )','',0,'','ztr78n3a',1,0,'',2,0,0),(22712,4992,3,2,0,'87.218.146.203',1164871757,1,0,1,1,1,1,'','','Ricardo,\n\nPuedes proporcionar un pequeño ejemplo de como lo haces ? gracias','',0,'','1dpk0srk',1,0,'',2,0,0),(22713,5130,6,2,0,'87.218.146.203',1164871874,1,0,1,1,1,1,'','','Armando,\n\nMira a ver si hay un error.log en el disco.\n\nEn caso contrario, el sistema operativo solo \"termina\" una aplicación automaticamente cuando hay peligro para el sistema, como puede ser una llamada recursiva:\n\nfunction test()\n   test()\nreturn nil\n\nEso provoca una subida de pila muy peligrosa y el sistema operativo le da una \"patada\" a la aplicación <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','313xgmpb',1,0,'',2,0,0),(22714,5096,22,2,0,'87.218.146.203',1164872150,1,0,1,1,1,1,'','','Fernando,\n\nY ese efecto que quieres, puedes hacerlo desde código fuente ?','',0,'','2dbwdu3x',1,0,'',2,0,0),(22715,5125,7,456,0,'62.43.194.117',1164874647,1,0,1,1,1,1,'','','Veo que haces AllTrim En el seek, puede que ese sea el problema porque cuando indexas lo haces por el campo entero.\n\nCod=\'   1\'\nEn el indice tienes espacio+espacio+1\npero si buscas alltrim Cod, estas buscando 1 en la primera posicion.\n\nNo se si me explico.','',0,'','2kmyes4u',1,0,'',456,0,0),(22716,5065,3,28,0,'213.27.201.254',1164874978,1,0,1,1,1,0,'','','Hello  \nAll the questions that you want to make, can make them to me.  \nI believe that lately Rene has a lot of work.  \nA greeting  \nPaco García','',0,'','1le6o93i',1,0,'',28,0,0),(22717,5110,6,28,0,'213.27.201.254',1164878603,1,0,1,1,1,0,'','','Hola, \nAñado mas información por si acaso a alguno le suena el error. \nEsta mañana despues de dejar el ordenador encendido toda la noche he encontrado esta pantalla:\n\n[img:ve9q0nzw]http&#58;//www&#46;arrakis&#46;es/~canal_five/error&#46;jpg[/img:ve9q0nzw]\n\nEl texto que no se puede terminar de ver dice:\n\n\"\"Se ha detectado un Error Grave y la aplicaci¾n se cerrarß en 10 Seg.\"\"\n\nNi que decir tiene que no se ha cerrado. Ahi sigue.\n\nUn saludo','',0,'CA==','ve9q0nzw',1,1164878807,'',28,1,0),(22718,5110,6,2,0,'87.218.146.203',1164878707,1,0,1,1,1,1,'','','Paco,\n\nMe parece que voy a tener que darme una vueltecita por SP <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','1ixr4mjl',1,0,'',2,0,0),(22719,5135,20,49,0,'213.82.134.66',1164884950,1,0,1,1,1,1,'','classe BUTTONBMP','Non ho a disposizione l\'ultima versione di FIVEWIN (2.<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> e tra\nl\'altro ho letto che questo problema è stato risolto nell\'ultima\nversione.\nSemplicemente quando si utilizzano i metodi Enable() e Disable()\nsulla classe BUTTONBMP, le immagini della classe scompaiono\nqualcuno mi sa dire come fare per risolvere il problema ?','',0,'CA==','zrlosqmf',1,0,'',49,0,0),(22720,5115,3,299,0,'24.233.172.101',1164894980,1,0,1,0,1,0,'','','Antonio/Frank;\n\nThank you very, very much.  Very useful.\n\n\n\nReinaldo.','',0,'CA==','2t2on0bl',1,0,'',299,0,0),(22721,5136,6,52,0,'200.127.196.8',1164896163,1,0,1,1,1,1,'','[ FACTURADOR Twbrowse ] No consigo hacerlo. Ayuda. Gracias','Gente,\n\nNo logro hacer que el cursor pueda editar la celda de columna 2, 3, 4\nQ estoy haciendo mal?\n\nGracias de antemano\n[code:3dei21nj]FUNCTION Facturacion&#40;&#41;\n\n   LOCAL aDatos,          ;\n         nLimite &#58;= 0\n\n   LOCAL oDlg,            ;\n         oBrw,            ;\n         aFuentes&#58;= array&#40; 2 &#41;\n\n   DEFINE FONT aFuente&#91;2&#93; name &quot;Square721 BT&quot;  size 0, -13\n\n   // Array de línea en Factura\n\n   nLimite&#58;= 15\n\n   aDatos&#58;= Array&#40; nLimite, 5 &#41;\n\n   FOR nItem&#58;= 1 TO nLimite\n      aDatos&#91;nItem,  1&#93; &#58;= space&#40;35&#41;  // Descripción\n      aDatos&#91;nItem,  2&#93; &#58;= 0&#46;00       // Cantidad\n      aDatos&#91;nItem,  3&#93; &#58;= 0&#46;00       // Precio Final \n      aDatos&#91;nItem,  4&#93; &#58;= 0&#46;00       // % de Descuento de Linea\n      aDatos&#91;nItem,  5&#93; &#58;= 0&#46;00       // Total de Linea\n   NEXT nItem\n\n   //----------&#40; Dialogo Factura &#41;----------\n\n   DEFINE DIALOG oDlg RESOURCE &quot;FACTURA&quot;\n\n      REDEFINE LISTBOX oBrw ;\n         FIELDS &quot;&quot;;\n         sizes 300, 80, 80, 80, 80 ;\n         ID 110;\n         OF oDlg;\n         FONT aFuente&#91;2&#93;;\n         UPDATE;\n         colors CLR_BLACK, CLR_2 ;\n\n      oBrw&#58;bLogicLen    &#58;= &#123;|| LEN&#40; aDatos &#41; &#125;\n      oBrw&#58;SetArray&#40; aDatos &#41;\n\n      oBrw&#58;nHeaderHeight &#58;= 20\n      oBrw&#58;nLineHeight   &#58;= 24\n\n      oBrw&#58;lCellStyle    &#58;= &#46;T&#46;\n      oBrw&#58;lAutoEdit     &#58;= &#46;T&#46;\n      oBrw&#58;ladjlastcol   &#58;= &#46;T&#46;\n\n      oBrw&#58;nLineStyle    &#58;= 2\n      oBrw&#58;nHeaderStyle  &#58;= 2\n\n      oBrw&#58;aHeaders      &#58;= &#123; &quot;Descripcion&quot;, &quot;Cantidad&quot;, &quot;Precio&quot;, &quot;% Dto&#46;&quot;, &quot;Total&quot; &#125;\n\n      oBrw&#58;bLine         &#58;= &#123;|| &#123;  aDatos&#91;obrw&#58;nAt, 1&#93;, aDatos&#91;obrw&#58;nAt, 2&#93;,;\n                                   aDatos&#91;obrw&#58;nAt, 3&#93;, aDatos&#91;obrw&#58;nAt, 4&#93;,;\n                                   aDatos&#91;obrw&#58;nAt, 5&#93; &#125; &#125;\n\n      // nStyle&#58;\n      //       0 = Celdas normales\n      //       3 = celda con el foco\n      //       1 = Cabecera\n      //       2 = footer\n\n      oBrw&#58;bFont        &#58;= &#123; | nRow, nCol, nStyle | ;\n                             IF &#40; nStyle == 0 &#46;or&#46; nStyle == 3, afuente&#91;2&#93;&#58;hFont, NIL  &#41; &#125;\n\n      oBrw&#58;aHJustify    &#58;= &#123; 2, 2, 2, 2, 2 &#125;\n      oBrw&#58;aJustify     &#58;= &#123; 2, &#46;F&#46; &#125;\n\n      obrw&#58;bBkColor     &#58;= &#123; | nRow, nCol, nStyle | IF&#40; nStyle =  0, if&#40; nRow % 2==0, CLR_1   , CLR_2 &#41;, &#41; &#125;\n\n      //----------&#40; Estos van juntos &#41;----------\n\n      oBrw&#58;bKeyDown &#58;= &#123; | nTecla | IF &#40; nTecla != VK_ESCAPE, &#40; oBrw&#58;Edit&#40;&#41; &#41;, &#41; &#125;\n\n      oBrw&#58;bEdit&#58;= &#123; | nCol, cBuffer, lFirstEdit |  ;\n                          EditaCelda&#40; oBrw, nCol, cBuffer, lFirstEdit, aDatos &#41; &#125;\n\n\n      //------------------------------------------\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   RETURN &#40;  NIL &#41;\n\n//------------------------------------------------------------------------------\n\nFUNCTION EditaCelda&#40; oBrw, nCol, cBuffer, lFirstEdit, aDatos &#41;\n\n   LOCAL bValid,     ;\n         lValue&#58;= &#46;T&#46; , ;\n         aResultados\n\n   ? nCol   // Aca siempre me da 1, nunca 2 ni 3\n\n   DO CASE\n\n      CASE nCol = 1\n         oBrw&#58;lEditCol&#40; nCol, @cBuffer, &quot;@!&quot;,,,CLR_YELLOW &#41;\n      CASE nCol = 2\n         oBrw&#58;lEditCol&#40; nCol, @cBuffer, &quot;@!&quot;,,,CLR_YELLOW &#41;\n\n   ENDCASE\n\n   IF lValue\n       Do Case\n       Case obrw&#58;nLastKey == VK_UP\n          return If&#40; !GetKeyState&#40;VK_SHIFT&#41;, -3, -2 &#41;\n       Case obrw&#58;nLastKey == VK_DOWN\n          return If&#40; !GetKeyState&#40;VK_SHIFT&#41;,  3,  2 &#41;\n       Case obrw&#58;nLastKey == VK_TAB\n          return If&#40; GetKeyState&#40;VK_SHIFT&#41;, -1, 1 &#41;\n       EndCase\n    ENDIF\n\n   RETURN lValue\n\n//------------------------------------------------------------------------------\n[/code:3dei21nj]','',0,'AIA=','3dei21nj',1,0,'',52,0,0),(22722,5137,3,308,0,'84.148.24.105',1164896206,1,0,1,1,1,0,'','Windows Explorer in a MDI-Window ?','Hallo Fivewinners,\n\nis it possible to indicate the windows explorer (File-Explorer) in a MDI window and to purport a certain path?\n\nVia ActiveX ?\n\nRegards, Norbert','',0,'AIA=','20dceifk',1,0,'',308,0,0),(22723,5099,6,52,0,'200.127.196.8',1164896536,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:1q5jyi22]si puedes enviamelo tambien estoy interesado en esa clase <!-- e --><a href=\"mailto:joseluisysturiz@yahoo.com\">joseluisysturiz@yahoo.com</a><!-- e -->[/quote:1q5jyi22]\n\nEnviado.','',0,'gA==','1q5jyi22',1,0,'',52,0,0),(22724,5100,6,52,0,'200.127.196.8',1164896590,1,0,1,1,1,1,'','','[quote=&quot;tomafa&quot;:w4fd1lif]Antonio \n\nhice lo que me indicaste me fije en el ejemplo de los samples en fwh y viene la instruccion asi \n\noImageList:AddMasked( TBitmap():Define( \"new\",,      oWnd ), nRGB( 255, 0, 255 ) )    \n   oImageList:AddMasked( TBitmap():Define( \"open\",,     oWnd ), nRGB( 255, 0, 255 ) )    \n\nparte de mi codigo es este pero no me pone las imagenes transparentes al boton se ven con el fondo blanco estoy haciendo algo mal\n\noImgList:= TImageList():New( 32, 32 )\n      oImgList:AddMasked( oBmp[1] := TBitmap():Define( \"TOOL_CLIENTE\"  ,, oWnd ), nRGB( 255, 0, 255 ) )\n      oImgList:AddMasked( oBmp[2] := TBitmap():Define( \"TOOL_PROVEDOR\" ,, oWnd ), nRGB( 255, 0, 255 ) )\n      oImgList:AddMasked( oBmp[3] := TBitmap():Define( \"TOOL_PRODUCTO\" ,, oWnd ), nRGB( 255, 0, 255 ) )\n      oImgList:AddMasked( oBmp[4] := TBitmap():Define( \"TOOL_SERVICIOS\",, oWnd ), nRGB( 255, 0, 255 ) )[/quote:w4fd1lif]\n\nPodría llegar a ser el color que le pones a tu imagen en el fondo para que sea transparente.','',0,'gA==','w4fd1lif',1,0,'',52,0,0),(22725,5138,1,186,0,'66.130.50.142',1164901740,1,0,1,1,1,1,'','PrinterSetup()','Hi All,\n\nCan someone tell me why PrinterSetup() always return NIL.\n\nMy logic says that if the OK button is pressed I should get something like a logic .T. or numeric 1. And when the cancel button is pressed a logic .F. or numeric 0.\n\nWhen the Cancel button is pressed I want to cancel the printout. Is there a way of detecting if OK or Cancel button has been pressed.\n\nRegards,','',0,'gA==','3v3hx0a5',1,0,'',186,0,0),(22726,5112,6,644,0,'201.252.59.86',1164904379,1,0,1,1,1,0,'','','Antonio\n\nLo probaré. Muchas gracias por tus respuestas','',0,'gA==','6y06khwp',1,0,'',644,0,0),(22727,5130,6,53,0,'189.139.98.139',1164905434,1,0,1,1,1,1,'','','Antonio:\n\nGracias por tu interés.\n\nVeras, No no hay ningún archivo Error.Log, es lo mas extraño y en cuanto a la función recursiva tampoco creo que sea el problema pues la misma aplicación la he compilado con la versión FWH 2.7 de Mzo y todo funciona perfecto.\n\nSaludos, Armando','',0,'gA==','175z8tz7',1,0,'',53,0,0),(22728,5099,6,2,0,'87.218.146.203',1164905519,1,0,1,1,1,1,'','','Gustavo,\n\nPor favor súbela a <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> y pon en la sección de utilidades de estos foros el link de descarga, gracias!','',0,'gA==','2en8sfan',1,0,'',2,0,0),(22729,5130,6,2,0,'87.218.146.203',1164905603,1,0,1,1,1,1,'','','Armando,\n\nPuedes reproducir el error en un ejemplo pequeño que podamos probar aqui ? gracias,','',0,'gA==','1thahk72',1,0,'',2,0,0),(22730,5138,1,2,0,'87.218.146.203',1164906680,1,0,1,1,1,1,'','','Gilbert,\n\nPrinterSetup() is automatically used from Class TPrinter.\n\nPrinterSetup() calls Windows API PrintDlg. According to Microsoft docs:\n\nThe PrintDlg function displays a Print dialog box or a Print Setup dialog box. The Print dialog box enables the user to specify the properties of a particular print job. \n\nThe Print Setup dialog box should not be used in new applications. It has been superseded by the Page Setup common dialog box created by the PageSetupDlg function. \n\nBOOL PrintDlg(\n\n    LPPRINTDLG lppd 	// address of structure with initialization data\n   );	\n \n\nParameters\n\nlppd\n\nPointer to a PRINTDLG structure that contains information used to initialize the dialog box. When PrintDlg returns, this structure contains information about the user\'s selections. \n\n \n\nReturn Values\n\nIf the user clicks the OK button, the return value is nonzero. The members of the PRINTDLGstructure pointed to by the lppd parameter indicate the user\'s selections. \nIf the user cancels or closes the Print or Printer Setup dialog box or an error occurs, the return value is zero. To get extended error information, use the CommDlgExtendedError function, which can return one of the following values: \n\nCDERR_FINDRESFAILURE	PDERR_CREATEICFAILURE\nCDERR_INITIALIZATION	PDERR_DEFAULTDIFFERENT\nCDERR_LOADRESFAILURE	PDERR_DNDMMISMATCH\nCDERR_LOADSTRFAILURE	PDERR_GETDEVMODEFAIL\nCDERR_LOCKRESFAILURE	PDERR_INITFAILURE\nCDERR_MEMALLOCFAILURE	PDERR_LOADDRVFAILURE\nCDERR_MEMLOCKFAILURE	PDERR_NODEFAULTPRN\nCDERR_NOHINSTANCE	PDERR_NODEVICES\nCDERR_NOHOOK	PDERR_PARSEFAILURE\nCDERR_NOTEMPLATE	PDERR_PRINTERNOTFOUND\nCDERR_STRUCTSIZE	PDERR_RETDEFFAILURE\n \n\nRemarks\n\nIf the hook procedure (pointed to by the lpfnPrintHook or lpfnSetupHook member of the PRINTDLG structure) processes the WM_CTLCOLORDLG message, the hook procedure must return a handle for the brush that should be used to paint the control background. \n\nSee Also\n\nCommDlgExtendedError, CreateDC, DOCINFO, PRINTDLG, PrintHookProc, SetupHookProc, StartDoc, WM_CTLCOLORDLG \n\nIn FW, PrinterSetup() should return the handle of the device context if successfull:\n\n   _retnl( ( LONG ) ( PrintDlg( &amp;pd ) ? pd.hDC : 0 ) );','',0,'gA==','1ykm5vxj',1,0,'',2,0,0),(22731,5139,7,63,0,'84.77.241.10',1164908633,1,0,1,1,1,0,'','Como interrumpir un bucle?','Tengo un botón y un bucle Do while, en el que hago las mediciones. Quisiera que al pulsar el botón terminase el bucle.  Ahora lo hago así:\n\n[code:18rfa2ne]\n@ r,c, Button &quot;Stop&quot;&#46;&#46;&#46;&#46;&#46; ACTION lOk &#58;= &#46;F&#46; \nlOk &#58;= &#46;T&#46;\nDo While lOk\n     MiFuncionDeMedir&#40;&#41;\n     &#46;&#46;&#46;&#46;\nEnddo\n[/code:18rfa2ne]\n\nPero reacciona muy lentamente. O sea: Entre la pulsación del botón y el fin del bucle pasan algunos segundos.  ¿Hay alguna forma de hacer un Break inmediato? Existe alguna función del API de windows o algo así?  Gracias\n\nRafael','',0,'AIA=','18rfa2ne',1,0,'',63,0,0),(22732,5140,6,644,0,'201.252.59.86',1164908700,1,0,1,1,1,0,'','Texcelscript','Estoy usando esta clase y funciona perfectamente. El único drama que encontré es que puedo invocarlo una sola vez desde la aplicación. Si lo hago mas de una me aparece Excel pero el Body de la ventana aparece transparente. De todas maneras me genera el archivo. Alguien le a pasado lo mismo. Alguna Idea ???\nSaludos','',0,'AIA=','kl3r7m2y',1,0,'',644,0,0),(22733,5139,7,2,0,'87.218.146.203',1164909830,1,0,1,1,1,1,'','','Rafael,\n\nPrueba a llamar a SysRefresh() en el bucle:\n[code:3mq6qxfs]\nDo While lOk \n     MiFuncionDeMedir&#40;&#41; \n     SysRefresh&#40;&#41; \nEnddo\n[/code:3mq6qxfs]','',0,'AIA=','3mq6qxfs',1,0,'',2,0,0),(22734,5141,6,278,0,'164.77.49.185',1164913694,1,0,1,1,1,1,'','TXBrowse y ADO con recordset.','Hola Foro:\n\nNecesito una ayudita, mi problema es como puedo usar el TXBrowse con un RecordSet directamente, sin tener que pasar los datos a una DBF o Arreglo ( array ). \n\nMi problema es que no me muestra los datos del recordset, se muestra\nla ventana MDI, vacia, sin mostrar el browse. Que puede ser ??\n\n\nEn el recordset si hay datos, pues si los veo al testearlo con msginfo().\n\nNo se como asignar el recordset al TXbrowse. \n\nSi alguien tiene un ejemplo, se los agradecería mucho.\n\nSaludos\n\nJuan','',0,'AIA=','jw55a0qt',1,0,'',278,0,0),(22735,5142,3,869,0,'201.43.58.229',1164914223,1,0,1,1,1,1,'','Crystal Reports','Hola, \n\nEstoy utilizando Fivewin 2.7 + xHarbour + Crystal Reports 9.2 + WinXP. \n\nEm mi computador, donde instale CRYSTAL REPORTS mi TESTE.EXE funciona bién, pero en otro computador el no ejecuta. Ocurre lo error\n\n[b:2kpk7qqj]\"Could not output to Window!\"[/b:2kpk7qqj]\n\ncuándo ejecuta la linea abajo: \n\n[b:2kpk7qqj]oCrystal:PEOutputToWindow(oVentHija)\n[/b:2kpk7qqj]\n\nEso es mi PRG ejemplo:\n\n#INCLUDE \"fivewin.CH\"\n\nFUNCTION Main()\n   PUBLIC oWnd, oCrystal\n   oCrystal := TCCRPE():NEW()\n   DEFINE WINDOW oWnd MENU CreaMenu() MDI\n   ACTIVATE WINDOW oWnd VALID (oCrystal:PECloseEngine(),.T.) \nRETURN (.T.)\n\nFUNCTION CreaMenu()\n   LOCAL oMenu\n   MENU oMenu\n      MenuItem \"Prueba\" Action RunReport()\n   ENDMENU\nRETURN (oMenu)\n\n************************************\nFUNCTION RunReport()\n************************************   \n\nLOCAL oVentHija, hReport\n\ncReportName := cGetFile(\"*.rpt\",\"Choose Report\")\n\nDEFINE WINDOW oVentHija MDICHILD OF oWnd\n\noCrystal:PEOpenPrintJob(cReportName)\n\noCrystal:PEOutputToWindow(oVentHija)\n\noCrystal:PESetTabLocation(\"c:\\rpartic.dbf\")\n\nACTIVATE WINDOW oVentHija ON INIT (oCrystal:PeStartPrintJob(), hReport := oCrystal:PEGetWindowHandle(),WndSetSize(hReport,oVentHija:nWidth-7,oVentHija:nHeight-8,.T.));\nON PAINT (WndSetSize(hReport,oVentHija:nWidth-7,oVentHija:nHeight-8,.T.));\nVALID (oCrystal:PEClosePrintJob(),.T.)\n\nRETURN (.T.)\n\nYo copie las DLLs para C:\\WINDOWS\\SYSTEM32.\n\nHay algo más que yo pueda hacer?\n\nGracias adelantado,\n\nLuciano','',0,'QA==','2kpk7qqj',1,0,'',869,0,0),(22736,5139,7,63,0,'84.77.241.10',1164914390,1,0,1,1,1,0,'','','Antonio:\nTengo varios SysRefreh() tanto en el bucle como en MiFuncion().  La variable lOk está declarada como Pública.\n\nMás o menos la cosa funciona. \"Pastosa\", pero funciona. Sólo quería saber si había alguna función escondida por ahí que permitiese forzar una interrupción más ágil, algo así como una interrupción por teclado...\n\nGracias\n\nRafael','',0,'QA==','lxmllyiu',1,0,'',63,0,0),(22737,5143,1,879,0,'65.94.143.210',1164914642,1,0,0,0,1,0,'','The FiveWin Demo','Having never used FiveWin before, I am interested in just what it will do for me. As a result I have encountered the following problems, the last of which I am not able to resolve.\n\n1. From what I gather the FiveWin demo is for the 16 bit Clipper. As I only have Blinker 1.0 which came with Clipper, I had to download and install both the Borland 16 bit compiler and the MS linker.\n\n2. I had to learn how to create the app using the .bat file and modify it for my system.\n\n3. The .bat file calls for a 501_520 library but I cannot find a library with that name in my Clipper 5.3b or the FiveWin demo.\n\nWithout that library, all I get is a large number of errors. I hope that is not the nornal way FiveWin operates!\n\nAny suggestions to get a working demo would be appreciated.','',0,'QA==','1j1up76a',1,0,'',879,0,0),(22738,5136,6,41,0,'200.87.67.10',1164915634,1,0,1,1,1,0,'','','Gustavo trata algo asi en tu funcion de edicion\n\n[code:2tufko1s]\n\nDO CASE\n\n      CASE nCol = 1\n         cBuffer &#58;=   aDatos&#91;obrw&#58;nAt, nCol&#93;      \n         IF oBrw&#58;lEditCol&#40; nCol, @cBuffer, &quot;@!&quot;,,,CLR_YELLOW &#41;\n             aDatos&#91;obrw&#58;nAt, nCol&#93; &#58;= cBuffer\n         ENDIF\n      CASE nCol = 2\n         oBrw&#58;lEditCol&#40; nCol, @cBuffer, &quot;@!&quot;,,,CLR_YELLOW &#41;\n\n   ENDCASE \n[/code:2tufko1s]\n\nsaludos\n\nMarcelo[/b]','',0,'AIA=','2tufko1s',1,0,'',41,0,0),(22739,5100,6,533,0,'80.32.177.143',1164916224,1,0,1,1,1,0,'','','Buenas tomafa:\n\n   Es lo mismo que me pasaba a mi, pero si es el blanco es:\n\n   RGB(255,255,255)\n\n  SALUDOS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ,\n\nMiguel A.','',0,'AIA=','3apwxf3e',1,0,'',533,0,0),(22740,5138,1,186,0,'66.130.50.142',1164916730,1,0,1,1,1,1,'','','Hi Antonio,\n\nDo you mean that PrinterSetup will return a non zero value if OK button is presse and 0 value if Cancel button is pressed ?\n\nRegards','',0,'AIA=','292wwso2',1,0,'',186,0,0),(22741,5136,6,52,0,'200.127.196.8',1164917374,1,0,1,1,1,1,'','','[quote=&quot;Marcelo Via Giglio&quot;:1mwug6zi]Gustavo trata algo asi en tu funcion de edicion\n\n[code:1mwug6zi]\n\nDO CASE\n\n      CASE nCol = 1\n         cBuffer &#58;=   aDatos&#91;obrw&#58;nAt, nCol&#93;      \n         IF oBrw&#58;lEditCol&#40; nCol, @cBuffer, &quot;@!&quot;,,,CLR_YELLOW &#41;\n             aDatos&#91;obrw&#58;nAt, nCol&#93; &#58;= cBuffer\n         ENDIF\n      CASE nCol = 2\n         oBrw&#58;lEditCol&#40; nCol, @cBuffer, &quot;@!&quot;,,,CLR_YELLOW &#41;\n\n   ENDCASE \n[/code:1mwug6zi]\n\nsaludos\n\nMarcelo[/b][/quote:1mwug6zi]\n\nHago unas simples preguntas:\n\n1) en esta llamada a la funcion:\n[code:1mwug6zi]FUNCTION EditaCelda&#40; oBrw, nCol, cBuffer, lFirstEdit, aDatos &#41;[/code:1mwug6zi]\n\nes necesario hacer esto en la función que estoy llamando?\n         cBuffer :=   aDatos[obrw:nAt, nCol]      \n\n\n2) como trata la twbrowse para editar? edita una celda o edita el conjunto de celdas de la linea?. O sea, entro a la linea de un browse, tengo que continuar tratando dicha linea hasta el final de la linea? \n\nGracias.','',0,'gIA=','1mwug6zi',1,0,'',52,0,0),(22742,5143,1,186,0,'66.130.50.142',1164917433,1,0,1,1,1,1,'','','Hi Ken,\n\nFirst if want to go on with Fivewin 16 bits, you should get Blinker 7.0 for two reasons:\n\n1. I don`t think that Blinker 1.0 supports Fivewin since it came out much sooner. \n2. I remember having a lots of problems running applications under Win2000 and WinXP using Blinker 4.0. So I beleive that Blinker 1.0 would not do better. When I updated to 7.0, problems have vanished away.\n\nThe only thing that breaks my heart is that xHarbour cannot be linked with Blinker. Blinker beeing by far the best linker I have seen so far. So if you want to go 32 bits later on, Blinker will be of no use. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRegards\n\nGilbert','',0,'gIA=','m9x0v1tl',1,0,'',186,0,0),(22743,5144,1,186,0,'66.130.50.142',1164917530,1,0,1,1,1,1,'','What is XPP','Hi All,\n\nI often see __XPP__ in many classes. I would like to know what does it refer to ?\n\nRegards,','',0,'gIA=','vrb2h0yw',1,0,'',186,0,0),(22744,5145,1,186,0,'66.130.50.142',1164917811,1,0,1,1,1,1,'','Auto centering in dialog','Hi All,\n\nI would like to automatically center a button in a dialog box. I can`t find out how to do this. Is there a way it can be done ?\n\nRegards,','',0,'gIA=','jb9q05fw',1,0,'',186,0,0),(22745,5146,1,186,0,'66.130.50.142',1164918147,1,0,1,1,1,1,'','TMultiGet():New()','Hi All,\n\nÌ have a string of text that I want to display in a Multiline get. No matter what I use at end of each lines (CRLF, CR, LF or Chr(141) + Chr(10)) it has no effect on the display. All I get is my text with BAR character everywhere I`ve put in a line feed or carriage return.\n\nIn Clipper MemoEdit() usually a Char(141) + Chr(10) will force line feed.\nIs it different with Fivewin ?\n\nRegards,','',0,'gIA=','2xcfs5iy',1,0,'',186,0,0),(22746,5130,6,53,0,'189.139.98.139',1164918666,1,0,1,1,1,1,'','','Antonio:\n\nA que correo te hago llegar el ejemplo ?\n\nSaludos, Armando','',0,'gIA=','16loxtij',1,0,'',53,0,0),(22748,5133,7,598,0,'200.11.139.61',1164921740,1,0,1,1,1,1,'','','yo nunca pude... yo compre un PDA..  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gIA=','11t7359e',1,0,'',598,0,0),(22749,4992,3,109,0,'189.192.251.83',1164922425,1,0,1,1,1,0,'','Aqui va','Así explica ud que se hiciera la correcion en el\n  METHOD PAINT()   //de TBtnBmp\n\n   [code:1i0k2at0]\n  // REGF DESDE AQUI 29112006\n   if &#58;&#58;lTransparent       \n      hBmpOld = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;hBitmap1 &#41; \n      nZeroZeroClr = GetPixel&#40; &#58;&#58;hDC, 0, 0 &#41; \n      SelectObject&#40; &#58;&#58;hDC, hBmpOld &#41; \n      nOldClr = SetBkColor&#40; &#58;&#58;hDC, nRGB&#40; 255, 255, 255 &#41; &#41; \n      TransBmp&#40; &#58;&#58;hBitmap1, nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41;, nZeroZeroClr, &#58;&#58;hDC,; \n                If&#40; &#58;&#58;lPressed, 2, 1 &#41;, If&#40; &#58;&#58;lPressed, 2, 1 &#41;,;                 \n                nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41; &#41; \n      SetBkColor&#40; &#58;&#58;hDC, nOldClr &#41;\n   else      \n      PalBtnPaint &#40; &#58;&#58;hWnd, &#58;&#58;hBitmap1, &#58;&#58;hPalette1, &#58;&#58;hBitmap2, &#58;&#58;hPalette2,;\n                &#58;&#58;hBitmap3, &#58;&#58;hPalette3, &#58;&#58;lPressed, &#58;&#58;lAdjust, &#58;&#58;lBorder,;\n                &#58;&#58;oPopup != nil, &#58;&#58;nClrPane,  &#58;&#58;cCaption, &#58;&#58;nLayout,;\n                If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#58;&#58;nClrText, &#58;&#58;hDC &#41;  \n                    \n   EndIf\n[/code:1i0k2at0]\n\n   Pero mis botones se ven asi :\n[img:1i0k2at0]http&#58;//hyperupload&#46;com/download/027efb7750/ParaLinares1&#46;bmp&#46;html[/img:1i0k2at0]\n\nGracias','',0,'CIA=','1i0k2at0',1,0,'',109,0,0),(22750,5141,6,397,0,'201.13.88.74',1164922854,1,0,1,0,1,1,'','','Amigo\n\nUsteds pode tentar mi bilbioteca\n\nMira la explicacion em:\n\n[url=http&#58;//www&#46;pctoledo&#46;com&#46;br/forum/viewtopic&#46;php?t=4792&amp;sid=2ae9b0b3616c8959740754238f97c8a1:tqzqez7f]Explicacion en Portugues[/url:tqzqez7f]\n\nE baja la lib en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/hbado.zip\">http://www.shoppmarketing.com/forum/hbado.zip</a><!-- m -->','',0,'EA==','tqzqez7f',1,1165308609,'',397,1,0),(22751,5133,7,832,0,'201.122.21.224',1164923216,1,0,1,1,1,0,'','oye','DISCULPA MI IGNORANCI DE POCKET PC, PERO LA DUDA QUE TENGO ES QUE SI FUNCIONA EL FTP CON EL EMULADO O NECESITO TENER INTERNET PARA PODER SALI POR ESTE PROTOCOLO...\n\n\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> O NECESITO LA PDA PARA LA PRUEVA DE FTP','',0,'EA==','2jgzulat',1,0,'',832,0,0),(22752,4992,3,109,0,'189.192.251.83',1164923869,1,0,1,1,1,0,'','','Sr. Linares\n  Aqui esta el codigo que utilizo en la clase TbtnBmp, Metodo PAINT()...\n\n[code:q48fobgj]\nif &#58;&#58;lTransparent       \n      hBmpOld = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;hBitmap1 &#41; \n      nZeroZeroClr = GetPixel&#40; &#58;&#58;hDC, 0, 0 &#41; \n      SelectObject&#40; &#58;&#58;hDC, hBmpOld &#41; \n      nOldClr = SetBkColor&#40; &#58;&#58;hDC, nRGB&#40; 255, 255, 255 &#41; &#41; \n      TransBmp&#40; &#58;&#58;hBitmap1, nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41;, nZeroZeroClr, &#58;&#58;hDC,; \n                If&#40; &#58;&#58;lPressed, 2, 1 &#41;, If&#40; &#58;&#58;lPressed, 2, 1 &#41;,;                 \n                nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41; &#41; \n      SetBkColor&#40; &#58;&#58;hDC, nOldClr &#41;      \n      \n   else      \n      PalBtnPaint&#40; &#58;&#58;hWnd, &#58;&#58;hBitmap1, &#58;&#58;hPalette1, &#58;&#58;hBitmap2, &#58;&#58;hPalette2,;\n                &#58;&#58;hBitmap3, &#58;&#58;hPalette3, &#58;&#58;lPressed, &#58;&#58;lAdjust, &#58;&#58;lBorder,;\n                &#58;&#58;oPopup != nil, &#58;&#58;nClrPane,  &#58;&#58;cCaption, &#58;&#58;nLayout,;\n                If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#58;&#58;nClrText, &#58;&#58;hDC &#41;  \n                    \n   EndIf\n   \n   //REGF HASTA AQUI\n\nCuando utilizo TRANSPARENT, el bitmap, lo coloca en la parte sup&#46; izq&#46; del boton&#46;\n\n Le envie la imagen a su correo, porque al subirla al hyperload, subia 0 &#40;cero&#41; bytes&#46; &#40; Aun no aprendo como utilizar esa herramienta &#41;&#46;\n\nGracias[/code:q48fobgj]','',0,'AIA=','q48fobgj',1,0,'',109,0,0),(22753,5130,6,397,0,'201.13.88.74',1164923919,1,0,1,0,1,1,'','','Amiguinho\n\nRecompila tus libs non-harbour con la version harbour de tu novo Fivewin.\n\nTambien tive lo mismo problema, mas no lembro o que fiz.\n\n@braços :?)','',0,'AIA=','20plwlfu',1,0,'',397,0,0),(22754,5147,3,303,0,'72.199.41.171',1164924349,1,0,1,1,1,0,'','Instance var with READONLY attribute','Perhaps this is a xHarbour question, but if I create an instance variable with the READONLY attribute, shouldn\'t it be protected from having an assignment. xHarbour is allowing me to assign data directly to a READONLY variable. I think it should be generating an error.\n\nI am using the Sept 2006 version of FWH/xHarbour.\n\nJames\n\n#include \"fivewin.ch\"\n\nfunction main()\n\n   local oObj:= TTest():new()\n   oObj:cVar := \"Test readonly\"\n\n   msgInfo( oObj:cVar ) // returns \"Test readonly\"\n\nreturn nil\n\nclass TTest\n   data cVar READONLY\n   method new()\nendclass\n\nmethod new() class TTest\nreturn self\n\n// eof','',0,'AIA=','21l1mr19',1,0,'',303,0,0),(22755,5113,6,397,0,'201.13.88.74',1164924541,1,0,1,0,1,1,'','','Amiguinho\n\nSe tu usa su aplicacion em modo solo usa mis exemplos:\n\n[code:2qpt5r7u]\nFUNCTION UnProtec&#40; cDbf &#41; ; return&#40; DbProtec&#40; cDbf, 1 &#41; &#41;\nFUNCTION Protec&#40; cDbf &#41; ; return&#40; DbProtec&#40; cDbf, 0 &#41; &#41;\nFUNCTION DbProtec&#40; cDbf, nAction &#41;\n    local nHandle   &#58;= 0\n    local cBuffer   &#58;= space&#40; 32 &#41;\n    nHandle   &#58;= FOpen&#40; cDbf, FO_READWRITE + FO_SHARED &#41;\n    DEFAULT nAction &#58;= 1\n    if nHandle != -1\n        if FRead&#40; nHandle, @cBuffer, 32 &#41; == 32\n            if nAction == 0     // Proteger\n                if SubStr&#40; cBuffer, 1, 1 &#41; &lt;&gt; Chr&#40; 26 &#41;\n                    cBuffer &#58;= Chr&#40; 26 &#41; + SubStr&#40; cBuffer, 1, 31 &#41;\n                endif\n            else                // Desproteger\n                if SubStr&#40; cBuffer, 1, 1 &#41; == Chr&#40; 26 &#41;\n                    cBuffer &#58;= SubStr&#40; cBuffer, 2, 31 &#41; + Chr&#40; 0 &#41;\n                endif\n            endif\n            FSeek&#40; nHandle, 0 &#41;\n            FWrite&#40; nHandle, cBuffer, 32 &#41;\n        endif\n        FClose&#40; nHandle &#41;\n    endif\n    return&#40; FError&#40;&#41; &#41;\nFUNCTION lProtec&#40; cDbf &#41;\n    local nHandle   &#58;= 0\n    local cBuffer   &#58;= space&#40; 32 &#41;\n    local lRet      &#58;= &#46;f&#46;\n    if &#40; nHandle &#58;= FOpen&#40; cDbf, FO_READWRITE + FO_SHARED &#41; &#41; != -1\n       if FRead&#40; nHandle, @cBuffer, 32 &#41; == 32\n           lRet &#58;= if&#40; SubStr&#40; cBuffer, 1, 1 &#41; == Chr&#40; 26 &#41;, &#46;t&#46;, &#46;f&#46; &#41;\n       endif\n       FClose&#40; nHandle &#41;\n    else\n        MsgInfo&#40; &quot;No puedo abrir la DBF&#58; &quot; + cDbf &#41;\n    endif\n    return&#40; lRet &#41;\n[/code:2qpt5r7u]\n\nExemplo:\n\nUnProtect( \"arquivo\" )\nUSE arquivo\n...\nUSE // or CLOSE\nProtect( \"arquivo\" )\n\nMas si tus usas en rede tente la lib HBSIX.LIB con funciones de encryptacion de datos nos campos.','',0,'AIA=','2qpt5r7u',1,0,'',397,0,0),(22756,5118,6,397,0,'201.13.88.74',1164924859,1,0,1,0,1,1,'','','Amiguinhos\n\nPara esto jo uso BestCrypt\n\nCon BestCrypt tu creas un fichero de até 2Gb o mas con clave de 128bits\n\nÉs mui bueno\n\n[url=http&#58;//www&#46;jetico&#46;com/download&#46;htm:39e2oqhu]BestCrypt Download[/url:39e2oqhu]','',0,'EA==','39e2oqhu',1,0,'',397,0,0),(22757,5143,1,879,0,'65.94.143.210',1164925030,1,0,0,1,1,0,'','','Hi Gilbert,\n\nIt is my intention to use xHarbour. Currently my apps are now ported and now work with xHarbour. However, from what I have seen and read, the FiveWin demo only works with 16 bits.\n\nI understand their concerns re piracy, but it makes testing FiveWin difficult using the 16 bit version when ultimately I will be using 32 bits.\n\nRegards,\n\nKen','',0,'EA==','3d3zncw5',1,0,'',879,0,0),(22758,5107,6,397,0,'201.13.88.74',1164925066,1,0,1,0,1,1,'','','Amiguinho\n\nIsto também aconteceu comigo quando parti para a 2.7 e como estava com pressa fiz o que podia manualmente.\n\nMas não fui atras de respostas, mas se conseguir me de um alo.','',0,'EA==','2nb865h5',1,0,'',397,0,0),(22761,5150,3,234,0,'75.34.217.174',1164930445,1,0,1,1,1,1,'','Web based interface for FWH','Hello Everyone,\n\nI am looking for a reliable web based developmental tool that will read data from a FWH application. The web based developmental tool must support ADS. I tried to use xbScript but it does not seem to be reliable. I value your input.\n\nSincerely,','',0,'EA==','3fain80q',1,0,'',234,0,0),(22762,5148,3,49,0,'62.13.172.78',1164931045,1,0,1,1,1,1,'','','it is a good product, but speaking with You ...you have made me understand that at the moment of the purchase You will not send all the code source but only the classes. \nIf in the future, if your company ends, and I will have need to re-compile all files (c)  I will not be able more to make it… this not make honor you.','',0,'EA==','12kaw2ih',1,0,'',49,0,0),(22763,5119,6,694,0,'200.181.206.37',1164933409,1,0,1,1,1,1,'','Baxajaun','Baxajaun,\n\nos links que você passou não funcionaram... Pode me ajudar..estou precisando muito imprimir barras com a classe TWORD.\n\nFique com Deus\nAokisantos','',0,'EA==','2r2ioj7k',1,0,'',694,0,0),(22764,5143,1,186,0,'66.130.50.142',1164936715,1,0,1,1,1,1,'','','Hi Ken,\n\nIf you`re gonna port to Fivewin go with FWH right away, better do it right away. Then you can forget about upgrading Blinker. \n\nDont do like I did. I`m still using the 16 bit version, because I made major modifications to the class and would have to start over again. \n\nI know I`ll have to it someday but for now I must finish what I have started.\n\nRegards,\n\nGilbert','',0,'EA==','3nm4169d',1,0,'',186,0,0),(22765,5151,1,186,0,'66.130.50.142',1164944176,1,0,1,1,1,1,'','TSay Class','Hi All, \n\nIn TSay Class, what`s the difference between VarPut() and SetText() Methods ?\n\nRegards,','',0,'EA==','38umfzc9',1,0,'',186,0,0),(22766,5143,1,303,0,'72.199.41.171',1164947345,1,0,1,1,1,0,'','','Gilbert,\n\n&gt;Dont do like I did. I`m still using the 16 bit version, because I made major modifications to the class and would have to start over again. \n\nMaybe FWH already supports what you made your modifications to do? Modifying a class is not a good approach, if it can be avoided. There are lots of ways to change the classes behavior without modifying the class such as using class codeblocks like bChange, bGotFocus, bLostFocus, etc. You can also subclass.\n\n&gt;I know I`ll have to it someday but for now I must finish what I have started. \n\nWhy? As you say, you are going to have to move to 32bit sometime. It sounds lke you are just throwing away more of your time. You can get lots of help with your conversion here on the newsgroup.\n\nJames','',0,'EA==','2ctajowi',1,0,'',303,0,0),(22767,5119,6,177,0,'194.30.62.6',1164953320,1,0,1,1,1,0,'','','AokiSantos,\n\nte he enviado el font 3 de 9 a tu dirección de correo electrónico.\n\nSaludos','',0,'EA==','2bh8kldu',1,0,'',177,0,0),(22768,5150,3,137,0,'151.38.8.195',1164957446,1,0,1,1,1,0,'','','I agree with you.\n\nI\'m wondering about a fivewin on an ajax layer... Antonio, what about it?','',0,'EA==','3awdygxw',1,0,'',137,0,0),(22769,5152,19,233,0,'60.49.63.136',1164958650,1,0,1,1,1,0,'','Post created in WhatsNew forum doesn\'t generate RSS?','Looking back at RSS feeds generated by this forum, I can\'t seem to find feeds when [url=http&#58;//fivetechsoft&#46;com/forums/viewforum&#46;php?f=16:2zigkdmq]WhatsNew forum[/url:2zigkdmq] is updated. Is this done on purpose or is it an oversight?\n\nI rely solely on RSS for any updates to fivewin\'s forums and I hope it could be included.\n\nThanks','',0,'EA==','2zigkdmq',1,0,'',233,0,0),(22770,5153,22,233,0,'60.49.63.136',1164959394,1,0,1,1,1,0,'','Suggestions','Here\'s a couple of suggestion that I think will help a lot of fivewin users.\n\n1. Create a sticky for FAQs in relevant forums. For example of topics that crosses my mind that would qualify an entry in the FAQs would be,:\n    a. How to access/manipulate mdb files using ADO\n    b. How to interact with Office apps using OLE\n\n2. Have a wiki version of fivewin\'s manual. That way, if Antonio overlook something someone else could help make the entry/correction. For example, I notice in my Sept FWH2.8, oPrinter:new() actually has a new 5th parameter which I have no idea what it\'s supposed to be doing.\n\nThat\'s all I can think of for now.','',0,'EA==','15pzatpa',1,0,'',233,0,0),(22771,5147,3,6,0,'87.3.184.41',1164961905,1,0,1,1,1,1,'','Re: Instance var with READONLY attribute','As I already answered on xHarbour newsgroup, the access modifiers have no effect at the module level.\n\nEMG','',0,'EA==','21tdnqyy',1,0,'',6,0,0),(22772,5146,1,6,0,'87.3.184.41',1164962211,1,0,1,1,1,1,'','Re: TMultiGet():New()','Try this sample:\n\n[code:1q9bdl4y]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= &quot;This is a test&quot; + CRLF + &quot;The second line&quot;\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 GET oGet VAR cVar MEMO\n\n    oDlg&#58;bStart = &#123; || oGet&#58;SetPos&#40; 0 &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oGet &#41;;\n             CENTER\n\n    RETURN NIL[/code:1q9bdl4y]\n\nEMG','',0,'AIA=','1q9bdl4y',1,0,'',6,0,0),(22773,5145,1,6,0,'87.3.184.41',1164963986,1,0,1,1,1,1,'','Re: Auto centering in dialog','This is a working sample:\n\n[code:2ldk0iq0]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 BUTTON oBtn PROMPT &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT CENTERBTN&#40; oDlg, oBtn &#41;;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION CENTERBTN&#40; oDlg, oBtn &#41;\n\n    LOCAL aDlgRect &#58;= GETCLIENTRECT&#40; oDlg&#58;hWnd &#41;\n\n    LOCAL nDlgWidth  &#58;= aDlgRect&#91; 4 &#93; - aDlgRect&#91; 2 &#93;\n    LOCAL nDlgHeight &#58;= aDlgRect&#91; 3 &#93; - aDlgRect&#91; 1 &#93;\n\n    LOCAL nRow &#58;= &#40; nDlgHeight - oBtn&#58;nHeight&#40;&#41; &#41; / 2\n    LOCAL nCol &#58;= &#40; nDlgWidth - oBtn&#58;nWidth&#40;&#41; &#41; / 2\n\n    oBtn&#58;Move&#40; nRow, nCol &#41;\n\n    RETURN NIL[/code:2ldk0iq0]\n\nEMG','',0,'AIA=','2ldk0iq0',1,0,'',6,0,0),(22774,5144,1,6,0,'87.3.184.41',1164964114,1,0,1,1,1,1,'','Re: What is XPP','It\'s code related to Fivewin for xBase++.\n\nEMG','',0,'AIA=','222kw8iv',1,0,'',6,0,0),(22775,5147,3,303,0,'72.199.41.171',1164964318,1,0,1,1,1,0,'','','Enrico,\n\n&gt;As I already answered on xHarbour newsgroup, the access modifiers have no effect at the module level. \n\nI\'m sorry I\'m not sure what you are saying. Do you mean if the program and the class are in the same PRG?\n\nDid you answer my question on the xHarbour newsgroup? I tried to post the same question there, but it never showed up. I still don\'t see it.\n\nJames','',0,'AIA=','1dk7al5p',1,0,'',303,0,0),(22777,5148,3,15,0,'61.59.237.62',1164964713,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:1b9i76so]Silvio,\n\nWe do not provide our library C source code to avoid piracy.\n\nOur commitment with our customers is that if our company closes, all our customers will receive the full source code (PRg and C) of our product, same as other companies like Class(y) and SuperLib did in the past.\n\nRegards,\n\nFernando Mancera[/quote:1b9i76so]\n\nYes, I agree you said if close and send full codes.\nBut if I want to remark LIB. How to do it?\nbecause it\'s appear C function not found.\n\nRegards,\n\nRichard','',0,'gA==','1b9i76so',1,0,'',15,0,0),(22778,5147,3,6,0,'87.3.184.41',1164964931,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3mvoce9b]Enrico,\n\n&gt;As I already answered on xHarbour newsgroup, the access modifiers have no effect at the module level. \n\nI\'m sorry I\'m not sure what you are saying. Do you mean if the program and the class are in the same PRG?[/quote:3mvoce9b]\n\nExactly.\n\n[quote=&quot;James Bott&quot;:3mvoce9b]Did you answer my question on the xHarbour newsgroup? I tried to post the same question there, but it never showed up. I still don\'t see it.\n\nJames[/quote:3mvoce9b]\n\nFrom the xHarbour newsgroup:\n\n[quote:3mvoce9b]\"James Bott\" &lt;jbottREMOVE@compuserve.com&gt; ha scritto nel messaggio \nnews:456f5998@bekz-be....\n&gt;\n&gt; I do believe that if an instance variable is marked as READONLY then you \n&gt; should not be able to assign a value to it outside the class. But you \n&gt; can--no error is generated.\n\nFrom xdiff.txt:\n\nModule Scope:\n-------------\n\nOOP Scoping supports PRIVATE/HIDDEN, PROTECTED, and READONLY scopes. Classes\nsharing the SAME compilation unit may freely access such restricted access\nMembers, without causing any scope violation.\n\nEMG\n\n--\nEMAG Software Homepage:     <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it\">http://www.emagsoftware.it</a><!-- m -->\nThe EMG\'s ZX-Spectrum Page: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/spectrum\">http://www.emagsoftware.it/spectrum</a><!-- m -->\nThe Best of Spectrum Games: <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/tbosg\">http://www.emagsoftware.it/tbosg</a><!-- m -->\nThe EMG Music page:         <!-- m --><a class=\"postlink\" href=\"http://www.emagsoftware.it/emgmusic\">http://www.emagsoftware.it/emgmusic</a><!-- m -->[/quote:3mvoce9b] \n\nEMG','',0,'gA==','3mvoce9b',1,0,'',6,0,0),(22780,5133,7,720,0,'80.59.110.137',1164966632,1,0,1,1,1,0,'','','Hola Pedro..\n\nVamos a ver.. Si se puede configurar el emulador para que tenga salida a internet siempre y cuando, logicamente, el equipo donde ejecutas el emulador tenga conexión a internet. Solo debes (en mi caso me funcionó así) irte a configuración y ponerle los mismos parámetros de ip, mascara.... que tenga tu ordenador. Y por último ponerle que tiene salida a internet en vez de a la red de trabajo. \n\nEl *.prg del ftp si te funciona con el emulador, pero este debe tener internet, sino no hay nada que hacer....\n\n\n\nSaludos....\n\nElías Torres.','',0,'gA==','2g6g0g8h',1,0,'',720,0,0),(22781,5154,6,24,0,'80.37.55.44',1164969847,1,0,1,1,1,1,'','Esto puede ser un BUG?','Es curioso lo que me esta pasando....\nTeniendo este codigo...\n\n#include \"fivewin.ch\"\n\nFunction Main()\n  Local aValues := {0,0,0,0}\n  Loca g, n := 1\n\n  DEFINE DIALOG oDlg TITLE \"Its Bug ?\" SIZE 300,300\n\n     FOR g := 1 TO LEN( aValues )\n        @ 1+n,1 GET aValues[ g ] PICTURE \"9999.99\" OF oDlg PIXEL\n        n += 15\n     NEXT\n  \n  ACTIVATE DIALOG oDlg\n\nRETURN NIL\n\nSe produce este error:\nApplication\n===========\n   Path and name: C:\\FWH27\\SAMPLES\\testbug.exe (32 bits)\n   Size: 1,346,048 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 12/01/06, 11:35:05\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   5\n\nStack Calls\n===========\n   Called from: testbug.prg =&gt; (b)MAIN(12)\n   Called from: tget.prg =&gt; TCLIPGET:VARGET(737)\n   Called from: tget.prg =&gt; TCLIPGET:SETFOCUS(610)\n   Called from: TGET.PRG =&gt; TGET:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: testbug.prg =&gt; MAIN(16)\n\nVamos haber, ¿ DE DONDE SALE EL 5 ?\n\nEn fin, lo que vamos hacer ahora es AUMENTAR EL ARRAY a un nuevo elemento..., para seguir con el test:\n  Local aValues := {0,0,0,0,0}\n y el FOR para a  1 TO 4 // De lo contrario siempre necesita UN BUENO elemento.\n\nBIen, si se ejecuta este codigo, si en el primer get ponemos un valor, ESTE SE TRASLADA a los otros GETS, como si fuese la misma variable.\n\nYo creo que xHarbour se le va la olla....¿ Podeis confirmar que se debe a xharbour  , y no de Fivewin ? ( 100% que no es de Fivewin ... )\n\nEl xHarbour es que viene con la distribucion de Fwh 2.7, suministrada por Fivetech.\n\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nHarbour Build Info\n---------------------------\nVersion: xHarbour build 0.99.61 Intl. (SimpLex)\nPCode Version: 7\nCompiler: Borland C++ 5.5.1\nPlatform: Windows XP Professional 5.01.2600 Service Pack 2\n\nBuilt on: May 19 2006 12:37:05\nLast ChangeLog entry: 2006-02-06 17:52 UTC-0800 Ron Pinkas &lt;Ron in xHarbour.com&gt;\n\nChangeLog CVS version: ChangeLog,v 1.4807\n\nHarbour extensions: Yes\nCA-Clipper 5.2e undocumented: Yes\nCA-Clipper 5.2e strict compatibility: No\nCA-Clipper 5.3x compatible extensions: Yes\nAlaska Xbase++ compatible extensions: Yes\nCA-Visual Objects compatible extensions: No\nMultisoft Flagship compatible extensions: Yes\nMicrosoft FoxPro compatible extensions: No\ndBase compatible extensions: No\nObject file generation support: No\nANSI C usage: Non strict\nC++ mode: Off\nCompiler YACC debug mode: Off\nMemory tracing and statistics: Off\nMaximum symbol name length: 63\n---------------------------','',0,'','3sh1hdmw',1,0,'',24,0,0),(22782,5097,2,24,0,'80.37.55.44',1164971578,1,0,1,1,1,1,'','Re: OK','[quote=&quot;jacgsoft&quot;:1dp9ofjc]Antonio Gracias de todas maneras. Ahora si empezare a migrar mis aplicaciones de clipper(DOS) a windows poco a poco.\n\nJaime[/quote:1dp9ofjc]\n\nConsejo. Deja CLIPPER, olvidate de Fivewin /Clipper y usa\nFivewin para harbour. \nSaldrás ganando, como todos , y tendras menores dolores de cabeza,\ny podras usasr cosas como OLE, ACTIVEX, que con Clipper ni soñando <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','1dp9ofjc',1,0,'',24,0,0),(22783,5155,6,176,0,'201.255.129.134',1164973602,1,0,1,1,1,0,'','set scope','Hola amigos, uso el set scope y cuando compilo (estoy pasando de fw  a fwh25)no reconoce el comando, es un problema de la versión de xharbour es la simples 99.3? Ó hay que poner algún include específico de xharbour para que lo reconozca\n\nGracias','',0,'gA==','2hs1rfg0',1,0,'',176,0,0),(22784,5109,7,720,0,'80.59.110.137',1164974874,1,0,1,1,1,0,'','','Hola Antonio...\n\nLas tablas a las que accedo pertenecen a una aplicación que está corriendo por su cuenta. Yo simplemente pretendo acceder a ellas y luego descargarme solo los campos que necesito en la pda.\n\nEsto que te comento lo estoy haciendo asi:\n\n//abro la tabla de articulo para copiarme los campos que necesito en una \n//tabla temporal (puesto que la de articulo está pillada por el otro \n//programa) y luego descargarmela en la pda...y asi con las otras dos.\n\nuse(ruta_base+\"articulo.dbf\") new\nCOPY TO ruta_base+temp_art FIELDS codart,nomart,codbarart\nINDEX ON codart TO (ruta_base +\"temp_art.cdx\") \nCOPY FILE (ruta_base + \"temp_art.*\") to (CURDIR()+\"\\articulo.*\")\n		\nuse(ruta_base+\"precios.dbf\") new\nCOPY TO ruta_base+temp_pre FIELDS articulo,numero,pvp\nINDEX ON articulo+numero TO (ruta_base+\"temp_pre.cdx\")\nCOPY FILE (ruta_base + \"temp_pre.*\") TO (CURDIR()+\"\\precios.*\")\n			\nUSE (ruta_base+\"stock.dbf\") new\nCOPY TO ruta_base+temp_stok FIELDS artex,almex,cantex\nINDEX ON almex+artex TO (ruta_base+\"temp_stok.cdx\")\nCOPY FILE (ruta_base + \"temp_stok.*\") TO (CURDIR()+\"\\stock.*\")\n\n\n\nEl error que me da en la pda al ejecutar el codigo es el siguiente:\n\n\nCorruption detected\nstack calls:\nDBUSEAREA(0)\nINICIALIZA_DATOS(109)\n(b)MAIN(66)\nTBUTTON:CLICK(0)\nTCONTROL:HANDLEEVENT(0)\nSENDMESSAGE(0)\nTWINDOW:COMMAND(0)\nTWINDOW:HANDLEEVENT(0)\nTWINDOW:HANDLEEVENT(0)\nDIALOGBOX(0)\nTWINDOW:ACTIVATE(0)\nMAIN(70)\n\Z\n\nEn cuanto al tema de la version del harbour supongo que sea esta:\n\n\nHarbour Compiler Alpha build 45.0 (Flex)\n\nLuego aparece al compilar esto otro que no se si será tambien lo que me pides...\n\nMicrosoft (R) C/C++ Optimizing Compiler Vesion 12.20.9615 for ARM\n\n\n\nTodo esto es porque cuando intento hacer el use a la tabla articulo que contiene un campo memo me da el error...\n\nSaludos y gracias.\n\n\nElías Torres.','',0,'gA==','2ym3do7l',1,0,'',720,0,0),(22785,5156,6,176,0,'201.255.129.134',1164975094,1,0,1,1,1,0,'','desplazamiento browse hernán','Lo probé pero no era el problema, lo que me ocurre cuando uso las flechas de desplazamiento es que cuando llega al tope o al final de las celdas en vez de seguir desplazando las celdas sólo va cambiando la  primera fila  ó última, si me posicionó sobre la barra de desplazamiento un poco mas arriba que las flechas funciona perfecto...   <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  \nHay algo para solucionarlo\n\nfwh25 y xharbour 99.3\n\nGracias','',0,'gA==','1emrak4y',1,0,'',176,0,0),(22786,5154,6,24,0,'80.37.55.44',1164975289,1,0,1,1,1,1,'','Re: Esto puede ser un BUG?','Resulta que hay que usar los detached local.... ummm.... eso\npasa por querer seguir usando codigo viejo de clipper....\n\nPorque esto funciona perfectamente en clipper DOS:\n @ n,1  get aHurdle[g]        picture \"9999.99\"\n\npero no con Fivewin/Harbour.\n\nSaludos\nRafa Carmona','',0,'','13ef32jc',1,0,'',24,0,0),(22787,5109,7,449,0,'212.64.224.241',1164975319,1,0,1,1,1,1,'','','Elias,\n\nDonde casca ? : haciendo el use, el copy, el index ?. Por cierto, se puede hacer copy file ( ruta + \'fichero.*\' ) ? Cuando haces el use del fichero, compruebas si esta pillado por el otro programa ? Has probado copiarte a pelo la tabal a un sitio local para testear si realmente la puedes habrir bien (si tiene memo, copia el *.fpt) ?\n\nSaludos.\nC.','',0,'','2v9u6o4b',1,0,'',449,0,0),(22788,5150,3,2,0,'87.218.146.203',1164977068,1,0,1,1,1,1,'','','Roberto,\n\nWe are doing R+D for emerging new web technologies like Ajax.','',0,'','1bo2o22q',1,0,'',2,0,0),(22789,5109,7,720,0,'80.59.110.137',1164977117,1,0,1,1,1,0,'','','Hola Carles,\n\nHe probado hacer esto:\n\nuse(ruta_base+\"articulo.dbf\") new\nCOPY FILE (ruta_base + \"articulo.dbf\") to (CURDIR()+\"\\articulo.dbf\")\nCOPY FILE (ruta_base + \"articulo.fpt\") to (CURDIR()+\"\\articulo.fpt\")\nCOPY FILE (ruta_base + \"articulo.cdx\") to (CURDIR()+\"\\articulo.cdx\")\n\nuse(CURDIR()+\"\\articulo.dbf\")\n\ny me da error en el primer use puesto que no me copia las tablas en el directorio local....\n\nPor otro lado, si le quito el primer use, me copia las tablas pero al hacer el use(curdir()+\"\\articulo.dbf\") me da el siguiente error:\n\nCorruption detected\nstack calls:\nDBUSEAREA(0)\nINICIALIZA_DATOS(113)\n(b)MAIN(66)\nTBUTTON:CLICK(0)\nTCONTROL:HANDLEEVENT(0)\nSENDMESSAGE(0)\nTWINDOW:COMMAND(0)\nTWINDOW:HANDLEEVENT(0)\nTWINDOW:HANDLEEVENT(0)\nDIALOGBOX(0)\nTWINDOW:ACTIVATE(0)\nMAIN(70)\n\Z\n\n\nLa verdad es que no tengo ni idea de porque me da este error... En relacion a lo que me comentas de si compruebo si la tabla está pillada no se como hacerlo...\n\n\nUn saludo...\n\nUna curiosidad....¿puede que tenga algo que ver el que lo esté ejecutando en una pda windows CE 4.20??\n\n\nElías Torres.','',0,'','361p00t7',1,0,'',720,0,0),(22790,5148,3,810,0,'84.172.55.188',1164977152,1,0,1,1,1,0,'','U rebuild the libs free','u rebuild the libs for free after 4 month ????','',0,'','1kuusscg',1,0,'',810,0,0),(22791,5139,7,2,0,'87.218.146.203',1164977320,1,0,1,1,1,1,'','','Rafael,\n\nEse proceso lo estás haciendo en bases de datos en la tarjeta de memoria ? Procura hacerlo en ram, no en la tarjeta.','',0,'','y7ae57ov',1,0,'',2,0,0),(22792,5143,1,2,0,'87.218.146.203',1164977559,1,0,1,1,1,1,'','','Ken,\n\n&gt; Without that library, all I get is a large number of errors. \n\nWhat errors do you get ?','',0,'','lvjy3ke9',1,0,'',2,0,0),(22793,5138,1,2,0,'87.218.146.203',1164977672,1,0,1,1,1,1,'','','Gilbert,\n\nYes','',0,'','1d7xpg6g',1,0,'',2,0,0),(22794,5109,7,2,0,'87.218.146.203',1164977858,1,0,1,1,1,1,'','','Elías,\n\nEl build actual de Harbour para Pocket PC es el 46.2. \n\nEs muy importante que te actualices para usar las modificaciones más recientes en el uso de base de datos.','',0,'','4j7srbfv',1,1164977904,'',2,1,0),(22795,5109,7,449,0,'212.64.224.241',1164977862,1,0,1,1,1,1,'','','Elias, \n\n1.- Has probado de copiar solo la dbf y el fpt, sin el cdx ? (segun de q sistema estes trabajando, tienes q crearte tu los cdx, sino no son compatibles)\n2.- Has probado de copiar manualmente los 2 fichertes y ver si desde la pda los puedes abrir ?\n\n[code:3luhtvrl]Una curiosidad&#46;&#46;&#46;&#46;¿puede que tenga algo que ver el que lo esté ejecutando en una pda windows CE 4&#46;20?? [/code:3luhtvrl]\n\n3.- Has probado p.e. el .\\samples\\testbrws ?\n\nSaludos.\nC.','',0,'AIA=','3luhtvrl',1,0,'',449,0,0),(22796,5154,6,2,0,'87.218.146.203',1164978037,1,0,1,1,1,1,'','','Rafa,\n\nEn realidad lo que hace Clipper es crear automaticamente las \"detached locals\", pero eso tiene su punto de riesgo de no saber exactamente lo que está ocurriendo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3bkxg4k6',1,0,'',2,0,0),(22797,5139,7,63,0,'84.77.241.10',1164978071,1,0,1,1,1,0,'','','Antonio:\nEl proceso consiste simplemente en capturar unos strings de seis cifras que llegan via RS-232 a un ritmo de uno cada diez segundos. Una vez capturado, lo grabo en un Dbf.  Programa y datos los tengo en la tarjeta de memoria, en la misma carpeta.  Intentaré pasarlos a RAM.\n\nPor cierto, ahora abro las tablas como USE CurDir()+\"\\Tabla.dbf\".  Si pongo el programa en RAm pero mantendo las dbfs en la tarjeta, como he de acceder a ella?  Quiero decir: Ya no será Curdir(), no?\n\nSaludos,\n\nRafael','',0,'AIA=','9mx8ejt1',1,0,'',63,0,0),(22798,5139,7,2,0,'87.218.146.203',1164978386,1,0,1,1,1,1,'','','Rafael,\n\nLas tarjetas de memoria son algo lentas en acceso a escritura. Procura poner las DBFs en ram. Para usarlas puedes seguir usando CurDir(), si las tienes en donde esté la aplicación (en RAM también). Si no es el caso, especifica su path \"carpeta\\...\".\n\nCuando el proceso termine, cópialas a la tarjeta de memoria, en caso de que necesites llevarte la tarjeta a otra parte.','',0,'AIA=','6238aelg',1,0,'',2,0,0),(22800,5150,3,490,0,'80.24.224.89',1164978921,1,0,1,1,1,0,'','','Antonio,\n\n¿Me podrías explicar esa frase en castellano?\n\nEs que he leído que estáis haciendo algo R+D, pero no entiendo que significa?\n\nUn Saludo,\nJoaquín','',0,'AIA=','kzpgi0lx',1,0,'',490,0,0),(22801,5150,3,39,0,'201.220.111.122',1164979682,1,0,1,1,1,0,'','','Creo que se refiere a I+D ( Investigacion y Desarrollo ) o en english R+D ( Research and Development ) \n\n\nAtte.,\nLautaro','',0,'AIA=','22l5rc8b',1,0,'',39,0,0),(22802,5150,3,234,0,'75.34.217.174',1164980461,1,0,1,1,1,1,'','','THank you for your comments, however I need to find a reliable solution very soon. Is there anything out there now that will work?','',0,'AIA=','1fkl5s32',1,0,'',234,0,0),(22803,5136,6,41,0,'200.87.67.10',1164982679,1,0,1,1,1,0,'','','Hola\n\n1) en esta llamada a la funcion:\n    FUNCTION EditaCelda( oBrw, nCol, cBuffer, lFirstEdit, aDatos )\n    es necesario hacer esto en la función que estoy llamando?\n    cBuffer := aDatos[obrw:nAt, nCol]\n[i:37mssfte]\nSi tienes que alimentar el buffer\n[/i:37mssfte]\n2) como trata la twbrowse para editar? edita una celda o edita el conjunto de celdas de la linea?. O sea, entro a la linea de un browse, tengo que continuar tratando dicha linea hasta el final de la linea?\n\n[i:37mssfte]\nEsto depende de ti, si pones oLbx:lAutoSkip := .T. pasara a la siguiente celda editable una vez que ingreses en modo edicion\n[/i:37mssfte]\n\nAhora para que inicie a editar al precionar una tecla y esa tecla ya sea parte de la edicion debes de modificar el fuente de la clase, una vez lo hice y no es complicado, lo malo es que perdi el fuente, pero seguro que tu lo logras hacer.\n\nSaludos\n\nMarcelo\n[/i]','',0,'IA==','37mssfte',1,0,'',41,0,0),(22804,5149,6,104,0,'201.58.81.36',1164986448,1,0,1,1,1,0,'','','Olá Frenando,\n\nParabéns por esta excelente ferramenta <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nEla trabalha com o xhb comercial (xacc) ?\n\nGracias,\n\nRossine.','',0,'IA==','1z4fbyhl',1,0,'',104,0,0),(22805,5097,2,875,0,'64.76.108.179',1164987684,1,0,1,1,1,0,'','Manul','Oye Rafa Carmona, tendras algun manual de Five Win harbour  para ver las novedades que trae.\n\nAtentamente\n\nJaime','',0,'IA==','2ghf5aig',1,0,'',875,0,0),(22806,5133,7,598,0,'200.11.139.61',1164988314,1,0,1,1,1,1,'','','yo sigo prefiriendo la pda.. es mejor verlo funcionando en vivo y directo que una \"emulacion\" ademas cuando se lo quieres mostrar a alguien se ve mucho mas atractivo e interesante, hay q hacer un esfuercito y comprarse todos los jugueticos (pda-celular, router inalambrico, impresora portatil, etc).. jejejeje pero claro... cada quien con sus gustos. el emulador es bueno cuando estas programando la interfaz de usuario.\n\n\"seguro mató confiado\"\nanonimo  \n<!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'IA==','3cs9t33c',1,0,'',598,0,0),(22807,5131,3,335,0,'68.193.88.53',1164988462,1,0,1,1,1,0,'','','Thanks, Richard.  As usual, your advice is very helpful.\n\nIn doing a Google search on CDBFW, I found that there is more thatn one product with that name from different vendors.  Which one do you use, and from which vendor?\n\nTIA - Roger','',0,'IA==','3ihdoa4j',1,0,'',335,0,0),(22808,5133,7,720,0,'80.59.110.137',1164988782,1,0,1,1,1,0,'','','Efectivamente es mejor trabajar en la pda que en el emulador, sobre todo si lo que pretendemos es hacer rendir al maximo la aplicación porque hay que tener en cuenta que los tiempos de respuesta en el emulador son muchisimos mayores que en una pda,jejeje....\n\nPero bueno, el tema es que desde el emulador tambien se puede tener salida a internet a traves de la terjeta de red de la maquina en donde se ejecute... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos..\n\nElías Torres.','',0,'IA==','2abrv38a',1,0,'',720,0,0),(22809,5157,3,335,0,'68.193.88.53',1164988877,1,0,1,1,1,0,'','PrnGetName() problem','Antonio,\n\nIn rare cases where a workstation has a default printer selected that is a printer attached to another workstation that happens to be turned off, calling PrnGetName() can cause a GPF.  \n\nPerhaps, when you have a chance, you could modify the C code in PrintDC.c for this function so that it will trap this situation and prevent the GPF. Perhaps a way to do this, in such a case, is to display the standard printer selection dialog so that the user can select another active printer to be the default.\n\n- Roger','',0,'IA==','2h6l1vs8',1,0,'',335,0,0),(22810,5109,7,720,0,'80.59.110.137',1164989973,1,0,1,1,1,0,'','','Hola..\n\nLa verdad es que no he podido solucionar el tema de los campos memos. Creo, aunque no estoy muy seguro, que el error se va a deber no al tema de campos memos, sino a que no puedo acceder a una tabla que se encuentra en una base de datos de otra aplicacion, porque no consigo poder abrirla debido a que la tabla en cuestión está \"enganchada\" a toda la estructura de la base de datos. Digo esto porque no puedo hacer simplemente un USE a la tabla porque me dice que está corrupta...\n\nEn cambio si utilizo tablas libres no tengo ese problema.\n\nPor este lado alguien puede darme alguna pista de como podría afrontar el problema??? Nose si hay que abrir la tabla de algun modo especifico o si hay que controlar algún tema en la tabla a la hora de abrirla.....\n\nPor cierto Antonio, ¿que coste tiene actualizar a la última versión?\n\nSaludos...\n\nElias Torres.','',0,'IA==','39si0ck6',1,0,'',720,0,0),(22811,5150,3,2,0,'87.218.146.203',1164991334,1,0,1,1,1,1,'','','Darrell,\n\nNo, not in a short term, sorry.\n\nPHP supports dbase as one of the database engines, though we don\'t know how it may behave with ADS.','',0,'IA==','2zdukqj1',1,1164991464,'',2,1,0),(22812,5150,3,6,0,'87.21.211.115',1164991363,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:4laoxfnd]Roberto,\n\nWe are doing R+D for emerging new web technologies like Ajax.[/quote:4laoxfnd]\n\nAjax... new?...\n\nEMG','',0,'gA==','4laoxfnd',1,0,'',6,0,0),(22813,5150,3,2,0,'87.218.146.203',1164991507,1,0,1,1,1,1,'','','Enrico,\n\nNew for us... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1ivoatzf',1,0,'',2,0,0),(22814,5150,3,6,0,'87.21.211.115',1164991580,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:3tnblaeg][quote=&quot;Antonio Linares&quot;:3tnblaeg]Roberto,\n\nWe are doing R+D for emerging new web technologies like Ajax.[/quote:3tnblaeg]\n\nAjax... new?...\n\nEMG[/quote:3tnblaeg]\n\nI explain myself: new is the name (the acronym AJAX) not the technology.\n\nEMG','',0,'gA==','3tnblaeg',1,0,'',6,0,0),(22815,5150,3,6,0,'87.21.211.115',1164991603,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:nskpge46]Enrico,\n\nNew for us... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:nskpge46]\n\nAh, ok. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','nskpge46',1,0,'',6,0,0),(22816,5109,7,2,0,'87.218.146.203',1164991726,1,0,1,1,1,1,'','','Elías,\n\nEl problema puede residir en el uso de SHARE que parece que Windows Mobile 2005 aún no lo hace bien <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n&gt; Por cierto Antonio, ¿que coste tiene actualizar a la última versión? \n\n139.20 euros. Puedes solicitarlo desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos. Tiene muchos cambios y mejoras.','',0,'gA==','1smrxc3h',1,0,'',2,0,0),(22817,5131,3,3,0,'82.248.14.134',1164991861,1,0,1,1,1,1,'','','[quote=&quot;Roger Seiler&quot;:2tsofw6q]Thanks, Richard.  As usual, your advice is very helpful.\n\nIn doing a Google search on CDBFW, I found that there is more thatn one product with that name from different vendors.  Which one do you use, and from which vendor?\n\nTIA - Roger[/quote:2tsofw6q]\n\nRoger\n\n<!-- m --><a class=\"postlink\" href=\"http://www.whitetown.com\">http://www.whitetown.com</a><!-- m -->\n\nI can send you the evaluation version if you wish, you can use it for one month.\n\nlet me know via email\n\nRegards\n\nRichard','',0,'gA==','2tsofw6q',1,0,'',3,0,0),(22818,5137,3,2,0,'87.218.146.203',1164994041,1,0,1,1,1,1,'','','Norbert,\n\nPlease try this sample:\n[code:1uysdeni]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oWndChild, oActiveX\n   local cEvents &#58;= &quot;&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; MDI\n   \n   DEFINE WINDOW oWndChild MDICHILD OF oWnd\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWndChild, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oWndChild&#58;oClient = oActiveX // To fill the entire window surface\n   oWndChild&#58;Resize&#40;&#41;\n\n   oActiveX&#58;Do&#40; &quot;Navigate2&quot;, &quot;http&#58;//www&#46;fivetechsoft&#46;com&quot; &#41;\n\n   oActiveX&#58;bOnEvent = &#123; | event, aParams, pParams | cEvents += EventInfo&#40; event, aParams, pParams, oActiveX &#41; &#125;\n\n   ACTIVATE WINDOW oWnd ;\n      VALID &#40; MemoEdit&#40; cEvents &#41;, &#46;t&#46; &#41;\n\nreturn nil\n\nfunction EventInfo&#40; event, aParams, pParams, oActiveX &#41;\n\n   local cMsg &#58;= &quot;Event&#58; &quot; + cValToChar&#40; event &#41; + CRLF\n   local n\n   \n   cMsg += &quot;Params&#58; &quot; + CRLF\n   \n   for n = 1 to Len&#40; aParams &#41;\n      cMsg += cValToChar&#40; aParams&#91; n &#93; &#41; + CRLF\n   next\n   \n   if event == &quot;BeforeNavigate2&quot;\n      // MsgInfo&#40; aParams&#91; 2 &#93; &#41;\n      // SetEventParam&#40; pParams, 7, &#46;t&#46; &#41; // Comment this to allow navigation\n   endif   \n\nreturn cMsg + CRLF\n[/code:1uysdeni]\n[url=http&#58;//imageshack&#46;us:1uysdeni][img:1uysdeni]http&#58;//img334&#46;imageshack&#46;us/img334/3047/webexp3rp7&#46;png[/img:1uysdeni][/url:1uysdeni]','',0,'GIA=','1uysdeni',1,0,'',2,0,0),(22819,5150,3,234,0,'75.34.217.174',1164994047,1,0,1,1,1,1,'','','Hi Antonio,\n\nThank you. Can you recommend a website where I can get samples of PHP code?\n\nThank you,','',0,'GIA=','25lh5tz9',1,0,'',234,0,0),(22820,5158,6,278,0,'164.77.49.185',1164994342,1,0,1,1,1,1,'','TxBrowse - que tiene de malo - no ??','Hola Foro:\n\n1) Sigo tratando de solucionar mi problema con el uso de TxBrowse con ADO y los recordset.\n\nMi problema es que no se muestra nada en la ventana MDI que se crea OK, aparece la ventana vacia, sin mostrar el browse y su contenido.\nEl recordset   oRs , tiene datos , pero no sale nada.\n\nA alguien le funciona ??\n\nLes adjunto parte del código, para si me pueden decir , donde puede estar mi error. La función recibe un RecordSet con datos ( oRS )\n\n[code:1vguu46r]\n\n// ---------------------------------------------------------------------\nFunction Browse2&#40; oRS &#41;\n// ---------------------------------------------------------------------\n\n    Local oWinh     &#58;= NIL\n    Local oBrw      &#58;= NIL	\n \n		\n	If oRS&#58;RecordCount&#40;&#41; &gt; 0\n\n   		? oRs&#58;RecordCount&#40;&#41; \n			\n		oRs&#58;MoveFirst&#40;&#41;\n		\n	 	DEFINE WINDOW oWinh MDICHILD FROM 0,0 to 0, 0 TITLE &quot;Prueba de Browse&quot; OF oWnd PIXEL  \n\n    	oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWinH &#41; \n	   \n		oBrw&#58;AddCol&#40;&#41; \n    	oBrw&#58;bStrData   	&#58;= &#123; || oRS&#58;Fields&#40;&quot;Nombre&quot; &#41;&#58;Value &#125;\n    	oBrw&#58;cHeader    	&#58;= &quot;Nombre&quot;\n      	oBrw&#58;OnGetData 		&#58;= &#123; || oRS&#58;Fields&#40;&quot;Nombre&quot; &#41;&#58;Value &#125;\n\n		oBrw&#58;AddCol&#40;&#41; \n    	oBrw&#58;bStrData   	&#58;= &#123; || oRS&#58;Fields&#40;&quot;fono1&quot; &#41;&#58;Value &#125;\n    	oBrw&#58;cHeader    	&#58;= &quot;FONO 1&quot;\n		oBrw&#58;OnGetData 		&#58;= &#123; || oRS&#58;Fields&#40;&quot;fono1&quot; &#41;&#58;Value &#125;\n\n        oBrw&#58;OnGoTop        &#58;= &#123;|| oRs&#58;MoveFirst&#40;&#41; &#125;\n        oBrw&#58;OnGoBottom  	&#58;= &#123;|| oRs&#58;MoveLast&#40;&#41; &#125;\n        oBrw&#58;OnBof     		&#58;= &#123;|| oRs&#58;Bof&#40;&#41; &#125;\n        oBrw&#58;OnEof     	 	&#58;= &#123;|| oRs&#58;Eof&#40;&#41; &#125;\n		oBrw&#58;OnSkip       	&#58;= &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125; \n        oBrw&#58;OnKeyCount 	&#58;= &#123;|| oRs&#58;RecordCount&#40;&#41; &#125;\n\n   		oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW   \n   		oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_RAISED          \n   		oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_RAISED          \n				\n		oBrw&#58;SetRDD&#40;&#41;\n		oBrw&#58;Refresh&#40; &#46;t&#46; &#41;\n		oBrw&#58;CreateFromCode&#40;&#41;\n   \n		oWinh&#58;SetControl&#40; oBrw &#41;\n\n    	ACTIVATE WINDOW oWinh  VALID &#40; oBrw&#58;= NIL ,&#46;T&#46; &#41;\n			\n    	oWnd&#58;Cascade&#40;&#41;\n		oWinh&#58;Show&#40;&#41;\n		oWinh&#58;SetFocus&#40;&#41;\n	\n	EndIf		\n		\nRETURN NIL \n\n\n\nSTATIC FUNCTION SKIPPER&#40; oRs, nSkip &#41; \n\n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition \n\n    oRs&#58;Move&#40; nSkip &#41; \n\n    IF oRs&#58;EOF \n		oRs&#58;MoveLast&#40;&#41;\n	ENDIF \n    \n	IF oRs&#58;BOF\n		oRs&#58;MoveFirst&#40;&#41;\n	ENDIF \n\nRETURN oRs&#58;AbsolutePosition - nRec \n\n[/code:1vguu46r]\n\n2) Mirando la clase del TXbrowse, no aparece como asignarle a una columna un campo del recordset, solo existe una DATA bStrData,\npero parece ser que acepta solo campos de DBF o Array.  No se como\nasignarle un campo del recordset.  Faltará algo ahi ??\n\n3) Donde se encuentra la información del método :\n[code:1vguu46r]\noBrw&#58;CreateFromCode&#40;&#41;\n[/code:1vguu46r]\n\nNo la encuentro en los códigos fuentes , donde se crea y está  ?\n \n4) Otra cosita, si utilizo un Listbox funciona todo OK, es solo con el TXBrowse que no me funciona.  A mi me gusta el TXbrowse, por eso necesito saber si funciona o no en esta situación. ?\n\nGracias anticipadas por cualquier ayuda, saludos.','',0,'AIA=','1vguu46r',1,0,'',278,0,0),(22821,5150,3,2,0,'87.218.146.203',1164994482,1,0,1,1,1,1,'','','Darrell,\n\nThis is a great site to learn PHP and best of all: to test your samples online:\n<!-- m --><a class=\"postlink\" href=\"http://www.phpya.com.ar/\">http://www.phpya.com.ar/</a><!-- m -->\nIts in Spanish, but the provided info is mostly technical.','',0,'AIA=','3nh79zta',1,0,'',2,0,0),(22822,5113,6,121,0,'189.138.42.206',1164994582,1,0,1,1,1,1,'','','mil gracias Amiguinho','',0,'AIA=','35g45kw2',1,0,'',121,0,0),(22823,5159,20,837,0,'85.18.14.25',1164995611,1,0,1,1,1,1,'','Manuali e documentazione FWH','Esiste da qualche parte della documentazione di FW Harbour ?\n\nHo visto che in Spagnolo si scriv molto ma in italiano (o inglese).\n\nGrazie, Andrea.','',0,'AIA=','1inf3txx',1,0,'',837,0,0),(22824,5160,20,837,0,'85.18.14.25',1164996739,1,0,1,1,1,1,'','Spostarsi tra i campi con INVIO','Scusate la domanda banale.\n\nE\' possibile (modificando le opportune funzioni) spostarsi tra i campi di una forma con il tasto INVIO oltre al TAB ?\n\nGrazie, Andrea.','',0,'AIA=','2lvtltq3',1,0,'',837,0,0),(22825,5137,3,308,0,'84.148.61.21',1164997686,1,0,1,1,1,0,'','','Antonio,\n\nThank you very much for the example.  \n\nTo be sure I did not mean the Internet Explorer, i mean the Windows File Exporer.\n\nDo you have for that also an example?  \n\nRegards Norbet','',0,'AIA=','xc8tzo1g',1,0,'',308,0,0),(22826,5161,6,875,0,'64.76.108.179',1164998824,1,0,1,1,1,0,'','Error al compilar con Fwh','Cuando compilo   Buildh Tutor01   me sale el siguiente error \n\nError: Unresolved external \'_hb_objGetpMethod\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC\n\n\nEspero su ayuda \n\nGracias','',0,'AIA=','109k2cno',1,0,'',875,0,0),(22827,5150,3,490,0,'80.24.224.89',1165000193,1,0,1,1,1,0,'','','Lautaro,\n\nGracias, pero es que a lo que me refería era ¿que es lo que estaban haciendo nuevo en fivetech relacionado con la web?\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','3nblmssg',1,0,'',490,0,0),(22828,5141,6,278,0,'164.77.49.185',1165000565,1,0,1,1,1,1,'','','Gracias Rochinha, pero no es lo que necesito.','',0,'AIA=','1p12hlkq',1,0,'',278,0,0),(22829,5119,6,694,0,'200.138.82.83',1165001833,1,0,1,1,1,1,'','Baxajaun','Baxajaun, muito obrigado meu amigo.\n\nDeus te abençoe...\n\nAokisantos','',0,'AIA=','13lzomag',1,0,'',694,0,0),(22830,5143,1,879,0,'65.94.143.210',1165002677,1,0,0,1,1,0,'','','OK, seems like my post has spawned a couple of points.\n\nFirst, Antonio, my intention was to see what FW was capable of; hence my interest in the demo. I finally produced a working executable but it would have been nice if FW provided a little more introductory info such as:\n\n1.  To use the Demo, you must have Clipper 5.01 or 5.2. Clipper 5.3 will not work.\n2.  All linkers that come as part of the Clipper package are not able to link the resulting FW object files.\n\nSince the demo only supports Clipper 5.01 or 5.2, attempting to link with a 5.3 object leads to a whole lot of errors similar to the following:\nFive.lib(DIALOG) : error L2029: \'CLIPPER520\' : unresolved external bad references \n\nFW is looking for Clipper520 while the Clipper 5.3 compiled object contains Clipper530. FW should change its code to include Clipper 5.3 in it\'s Demo. Then there is the question about someone who has never had Clipper. How can they test FW?\n \nI have an unrelated question relating to my evaluation. I would like to clarify whether it is possible to migrate to FW in stages, that is, use some screens as a text console while others as GUI?  From the little I have learned so far, I would assume your answer to be no.\n\nI really can’t afford to purchase both xHarbour and FW at the moment. It may be callous but I feel that a number of xHarbour functions are still in the development stage especially debug. Also their documentation provides little info on most of xHarbour’s extended functions. There have been complaints regarding the documentation. While new documentation has just been released; who knows just how complete it is. One post asked about a GUI problem and the response was to use GTGUI, a non supported library that needed to be created instead of the supported GTWIN. I do not feel like paying for a package that is still in beta. At least FW has been around for many years and they have concentrated primarily on GUI. As a result, I would hope the documentation is detailed and the change from text console to GUI would be smooth.\n \nGilbert, to respond your comments. I was quite happy using the basic Clipper 5.3. Only within the past year did I add-on PageScript for Clipper. Prior to that I could run the app in either DOS or Windows; but now only Windows. I compile using Blinker 1.0 that came with 5.3 and the resulting executables works with all flavours of Windows OS’s  (at least Win 95 and up) without any problems. I found that as my files got larger I had to resort to moving more code to the overlay. I tried Exospace by I had problems especially when using debug so I just stuck with Blinker.\n\nWith the introduction of Vista next year, Microsoft will finally say good bye to the 16 bit apps and including DOS. It is for this reason that I am moving now while I have time to learn, experiment and perfect.  I would not want to miss a potential sale by not being able to run on Vista.  Fortunately, I have ported to xHarbour with few problems so you could say I am now Vista ready. The existing xHarbour Achoice and Tbrowse functions did have bugs but were quickly fixed although they not yet part of the Open Source or commercial libraries. I assume FW has replacements for these functions.\n\nIt sounds like you are still using Clipper + FW. I would agree with James that it is better to move sooner rather than later, that is unless you are under a time constraint. My situation is more dramatic in that I must move all my displays from a text console mode to Windows. On the other hand since I currently do not have FW, it was easier, and cheaper, to port to xHarbour.\n\n\nRegards,\n\nKen','',0,'AIA=','1ax95gwj',1,0,'',879,0,0),(22831,5147,3,303,0,'72.199.41.171',1165005151,1,0,1,1,1,0,'','','Thanks Enrico. How very strange that I cannot see either my message or your reply in the xHarbour newsgroup. I just checked it again this morning and I still can\'t see it. I do have 4 blocked senders for newsgroups but neither you or I are among them. I have never had this happen before.\n\nJames','',0,'AIA=','1kgj960z',1,0,'',303,0,0),(22833,5155,6,362,0,'200.168.52.156',1165005571,1,0,1,1,1,1,'','','USE EL COMANDO:\n\nORDSCOPE()','',0,'AIA=','2x5islgl',1,0,'',362,0,0),(22834,5162,4,538,0,'151.38.226.135',1165006570,1,0,1,1,1,0,'','Epson TM88 IV and bluetooth adapter','Some months ago I buyed FW for Pocket Pc to work with a HP PDA (windows Mobile 5) and a Zebra printer throught a bluetooth/usb adapter with very good result.\nNow my customer buy a Epson TM T88IV printer to replace Zebra printer. but this printer don\'t like bluetooth/usb adapter and HP PDA doen\'t read the printer.\nAnybody has a solution.\nAny help is needed.\nThanks.\nFranz','',0,'AIA=','1z3v3ihk',1,0,'',538,0,0),(22835,5143,1,303,0,'72.199.41.171',1165008190,1,0,1,1,1,0,'','','Ken,\n\n&gt;First, Antonio, my intention was to see what FW was capable of; hence my interest in the demo. I finally produced a working executable but it would have been nice if FW provided a little more introductory info such as:... \n\nProbably a good idea, but at this point I suspect there are very few people looking at the Demo. You are one of the last DOS holdouts.\n\n&gt;I would like to clarify whether it is possible to migrate to FW in stages, that is, use some screens as a text console while others as GUI? From the little I have learned so far, I would assume your answer to be no. \n\nNo, and I can\'t see why you would want to. Your users certainly wouldn\'t like it and you couldn\'t sell an application like that.\n\nWindows programs have a whole different set of interface standards. An application that had mixed Windows and DOS interfaces would be a nightmare for users.\n\nI will also make this point. My advice is not to try to make your Windows version of your DOS applications look and work like a DOS application. If don\'t do this and you have a current user base, they might complain for a few weeks, but that will end quickly.\n\nIf you do make a Windows app that works likes a DOS app you might not get as many complaints, but you just have a poorly designed Windows application that still needs to be reworked to use Windows interface design standards. It is much less work and easier for the users in the long run to redesign it to Windows standards while you are converting it to FW.\n\n&gt;I really can’t afford to purchase both xHarbour and FW at the moment.\n\nI am guessing that you are not aware that the free version of xHarbour comes with FWH. So, you only have to purchase FWH. There is another version of xHarbour (that costs) that provides additional features, but many of us either don\'t need them or are unwilling to pay the price.\n\n&gt;It may be callous but I feel that a number of xHarbour functions are still in the development stage especially debug. \n\nSuch as? In my experience xHarbour is far more stable and advanced than Clipper. And it is 32bit which eliminates all kinds of memory problems that Clipper has. \n\n&gt;Also their documentation provides little info on most of xHarbour’s extended functions. There have been complaints regarding the documentation. While new documentation has just been released; who knows just how complete it is. One post asked about a GUI problem and the response was to use GTGUI, a non supported library that needed to be created instead of the supported GTWIN. I do not feel like paying for a package that is still in beta. \n\nAs I said, xHarbour is free and just because it is called \"beta\" doesn\'t mean that it is not as stable as Clipper. Poor documentation is always an issue with any language, but you have an excellent support system in the newsgroups.\n\n&gt;At least FW has been around for many years and they have concentrated primarily on GUI. As a result, I would hope the documentation is detailed and the change from text console to GUI would be smooth.\n\nAgain you can always turn to the newgroup for questions not answered in the documentation. \n\n&gt;Gilbert, to respond your comments. I was quite happy using the basic Clipper 5.3. Only within the past year did I add-on PageScript for Clipper. \n\nHmm. You were quite happy, but what about your users? As programmers it is our job (generally) to make users happy, not ourselves. \n\n&gt;Prior to that I could run the app in either DOS or Windows; but now only Windows. I compile using Blinker 1.0 that came with 5.3 and the resulting executables works with all flavours of Windows OS’s (at least Win 95 and up) without any problems. I found that as my files got larger I had to resort to moving more code to the overlay. I tried Exospace by I had problems especially when using debug so I just stuck with Blinker.\n\nHow many DOS or Win 95 machines are there still? Not a market I would be going after.\n\nNo more EXE size limits nor memory problems with 32bit. \n\n&gt;With the introduction of Vista next year, Microsoft will finally say good bye to the 16 bit apps and including DOS. It is for this reason that I am moving now while I have time to learn, experiment and perfect. I would not want to miss a potential sale by not being able to run on Vista. \n\nMay I ask what type of application you are producing. I can think of very few, such as cash-register apps, that would not be much easier to sell with a Windows interface.\n\n&gt;Fortunately, I have ported to xHarbour with few problems so you could say I am now Vista ready. The existing xHarbour Achoice and Tbrowse functions did have bugs but were quickly fixed although they not yet part of the Open Source or commercial libraries. I assume FW has replacements for these functions.\n\nYes, you won\'t be using either achoice or tbrowse under FWH.  \n\nIt sounds like you are still using Clipper + FW. I would agree with James that it is better to move sooner rather than later, that is unless you are under a time constraint. \n\nI would say all the more reason to go directly to 32bit when one is under a time constraint. I can\'t tell you how many hours I spent trying to solve memory issues with FW/Clipper. Then there are printer driver issues too. And long filename issues, and...\n\n&gt;My situation is more dramatic in that I must move all my displays from a text console mode to Windows. On the other hand since I currently do not have FW, it was easier, and cheaper, to port to xHarbour.\n\nI highly recommend that you get a copy of Alan Cooper\'s book, \"About Face 2.0, The Essentials of Interaction Design.\" There is no better book on Windows interface design, and I consider it to be the most valuable computer book I own. You really need to read this BEFORE you start any conversion. You can find details about it on my website.\n\nThere are also several articles I wrote about FW there. There is one, \"Introduction to FW\" that will be most useful to you at this point.\n\nFind them here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nRegards,\nJames','',0,'AIA=','ahs07auy',1,0,'',303,0,0),(22836,5138,1,186,0,'66.130.50.142',1165008241,1,0,1,1,1,1,'','','Hi Antonio,\n\nI sure will do some testing on this. \n\nThanks\n\nRegards,\n\nGilbert','',0,'AIA=','71o4fj4d',1,0,'',186,0,0),(22837,5145,1,186,0,'66.130.50.142',1165008312,1,0,1,1,1,1,'','','Hi Enrico,\n\nHi sure will do some testing this week end.\n\nThanks\n\nRegards,\n\nGilbert','',0,'AIA=','1t11catp',1,0,'',186,0,0),(22838,5146,1,186,0,'66.130.50.142',1165008961,1,0,1,1,1,1,'','','Hi again Enrico,\n\n\nNot sure if that`s what I need but I still will give it a try.\n\nWhat I really am doing is a long text that I would like to display into TMultiGet() with a vertical schroll bar so that displayed information can be read from top to bottom. In this case the information that needs to be displayed will not fit in the get frame, I need to schroll up and down. That`s why I`m using TMultiGet(). The lines are not necessarly filled and I have to place someking of control in order to skip to the next line. I tried with Chr(13), Chr(10), Chr(13) + Chr(10, Chr(141), Chr(141) + Chr(10) (Like in Clipper MemoEdit() but none of those combination forces the line skip to happen.\n\nIf your`re proposed solution works out in a normal Get, I don`t understand why it should not work in a MultiGet.\n\nRegards,\n\nGilbert','',0,'AIA=','u3v0hu0b',1,0,'',186,0,0),(22839,5163,3,28,0,'87.218.47.34',1165009014,1,0,1,1,1,0,'','Office Bar News','Hello\n\nThe control is finished:\n\n[img:2o94eot3]http&#58;//www&#46;arrakis&#46;es/~canal_five/Image11&#46;png[/img:2o94eot3]\n\n[img:2o94eot3]http&#58;//www&#46;arrakis&#46;es/~canal_five/Image2&#46;png[/img:2o94eot3]\n\n[img:2o94eot3]http&#58;//www&#46;arrakis&#46;es/~canal_five/Image3&#46;png[/img:2o94eot3]\n\nA greeting.\n\nPaco García\n\n<!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e -->','',0,'CA==','2o94eot3',1,0,'',28,0,0),(22840,5164,6,28,0,'87.218.47.34',1165009107,1,0,1,1,1,0,'','Office Bar Noticias','Hola a todos. \n\nMe es grato anunciaros que el control esta terminado:\n\n\n[img:l410m7z1]http&#58;//www&#46;arrakis&#46;es/~canal_five/Image11&#46;png[/img:l410m7z1]\n\n[img:l410m7z1]http&#58;//www&#46;arrakis&#46;es/~canal_five/Image2&#46;png[/img:l410m7z1]\n\n[img:l410m7z1]http&#58;//www&#46;arrakis&#46;es/~canal_five/Image3&#46;png[/img:l410m7z1]\n\n\nUn cordial saludo\n\nPaco García\n\n<!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e -->','',0,'CA==','l410m7z1',1,0,'',28,0,0),(22841,5144,1,186,0,'66.130.50.142',1165009257,1,0,1,1,1,1,'','','Hi again again Enrico,\n\nThat`s what I thought but was not sure. Strange thing about this is why would anyone use FWH and xBase++ when Alaska has it own 32 bits GUI library...\n\nYou don`t have to answer this...\n\nRegards,\n\nGilbert','',0,'CA==','s8uesg7h',1,0,'',186,0,0),(22842,5164,6,215,0,'189.136.233.81',1165012210,1,0,1,1,1,0,'','Excelente','Paco,\nEl mejor look que he visto para fivewin.\n\n¿Tienes el C5Menu disponible para 32 bits?\n¿El control office es navegable por teclado?\n\n¿Aceptas pago por Wester Union?\n\nGracias\nFernando Leal\nMéxico, DF','',0,'CA==','11bvxjqz',1,0,'',215,0,0),(22843,5161,6,215,0,'189.136.233.81',1165012432,1,0,1,1,1,1,'','Mas datos','¿Con que estás compilando?\n¿Usas el bat que fivetech anexa en la instalación de fivewin? ó Estas usando Verce, Xmate o alguna otra.','',0,'CA==','338vhqax',1,0,'',215,0,0),(22844,5146,1,6,0,'87.21.211.115',1165012961,1,0,1,1,1,1,'','','In my sample there is not a normal GET. Look at the MEMO clause:\n\n[code:i3hkqz7x]@ 0, 0 GET oGet VAR cVar MEMO[/code:i3hkqz7x]\n\nEMG','',0,'AIA=','i3hkqz7x',1,0,'',6,0,0),(22845,5141,6,228,0,'200.119.62.188',1165013572,1,0,1,1,1,1,'','Amigo...','Oye contactame por el privado y hablamos a ver si puedo ayudarte..\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->','',0,'AIA=','2561iqfh',1,0,'',228,0,0),(22846,5160,20,6,0,'87.21.211.115',1165013697,1,0,1,1,1,1,'','Re: Spostarsi tra i campi con INVIO','E\' già possibile. Sono attivi sia il Tab che l\'Invio. L\'Invio non è attivo solo nelle GET multilinea, ovviamente.\n\nEMG','',0,'AIA=','3k8ef3il',1,0,'',6,0,0),(22847,5159,20,6,0,'87.21.211.115',1165013804,1,0,1,1,1,1,'','Re: Manuali e documentazione FWH','Nella cartella MANUAL delle FWH ci sono diversi files CHM. Dacci un\'occhiata.\n\nEMG','',0,'AIA=','ud9ypfy2',1,0,'',6,0,0),(22848,4757,3,171,0,'71.232.193.197',1165014131,1,0,1,1,1,0,'','','Sorry my friends; I was a month without my computer <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\n[code:3tjfukb6]\nFUNCTION SaveAsPDF&#40;cRepName&#41;\nLOCAL result\nLOCAL cBuffer&#58;=space&#40;300&#41;\n    hLib = LOADLIBRARY&#40; &quot;image2pdf&#46;dll&quot; &#41;\n	 \n	 nRc &#58;=  I2PDF_Log&#40;&quot;&#46;\\log&#46;txt&quot;, 3&#41; // To save a LOG \n	\n	 I2PDF_MetaTextFitBoundingRect&#40;&#41;\n\n	  nRc &#58;= I2PDF_UseEMFDeviceSize&#40;&#41;\n    \n	  nRc &#58;= I2PDF_MetaToNativePDF&#40;&#41;\n	\n	   nRc &#58;= I2PDF_SetDPI&#40;300&#41;   //- or to whatever value you require\n	 \n\n                DECLARE aEmf &#58;= &#123;&#125;\n	aEmf &#58;= directory&#40;&quot;*&#46;emf&quot;&#41; // Multiples pages\n\n	FOR nX &#58;= 1 TO  len&#40;aEmf&#41;\n	            nRc &#58;= I2PDF_AddImage&#40;alltrim&#40;aEmf&#91;nX, F_NAME&#93;&#41;&#41;\n	NEXT\n\n	nResult &#58;= I2PDF_MakePDF&#40;cRepName, 0, @cBuffer ,300&#41;\n	 	\n	 FreeLibrary&#40;hLib&#41;\n\nRETURN &#40;&#46;T&#46;&#41;\n[/code:3tjfukb6]\n\nRegards\n\n\nGeorge','',0,'AIA=','3tjfukb6',1,0,'',171,0,0),(22849,5163,3,28,0,'87.218.47.45',1165016419,1,0,1,1,1,0,'','download samples','Hello \nYou can download a sample from:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.arrakis.es/~canal_five/officebar.zip\">http://www.arrakis.es/~canal_five/officebar.zip</a><!-- m -->\n\nA greeting\n\nPaco Garcia','',0,'AIA=','14rm4fq3',1,0,'',28,0,0),(22850,5164,6,28,0,'87.218.47.45',1165016555,1,0,1,1,1,0,'','demo','Hola \n\nPodeis bajar una demo de:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.arrakis.es/~canal_five/officebar.zip\">http://www.arrakis.es/~canal_five/officebar.zip</a><!-- m -->\n\nSi, puedes pagar asi\n\nUn saludo\n\nPaco Garcia','',0,'AIA=','o0n34i9k',1,1165017125,'',28,2,0),(22851,5164,6,28,0,'87.218.47.45',1165016755,1,0,1,1,1,0,'','teclado','Las solapas se mueven con ctrl+tab y ctrl+shift+tab\n\nPuedo hacer que se maneje con teclado si lo veis necesario\n\nEl nuevo c5menu es para 32 bits\n\nunsaludo','',0,'AIA=','je1no488',1,0,'',28,0,0),(22852,5143,1,879,0,'65.94.143.210',1165018267,1,0,0,1,1,0,'','','James,\n\nEverything you say makes sense, however, I am puzzled by one comment. You say:\n\n \"the free version of xHarbour comes with FWH. So, you only have to purchase FWH\"\n\nWhy would you need to purchase FWH if it were free?\n\nIn the xHarbour Getting Started Guide, I have seen several references to the FW App.\n\nI have downloaded your article on FW and will read it tonight. As for the book, I see it is available at Amazon and will order it in the next few days.\n\nRegards,\n\nken\n\nRegards,\n\nKen','',0,'AIA=','3ldobpqf',1,0,'',879,0,0),(22853,5163,3,303,0,'72.199.41.171',1165018564,1,0,1,1,1,0,'','','Paco,\n\nWow! Very impressive.\n\nI find the prueba.exe does not show the bar (prueba2.exe works fine).\n\nI see references to TDotNetButton() in the sample code. Does this use the dot NET libraries?\n\nJames','',0,'AIA=','1ss821n2',1,0,'',303,0,0),(22854,5143,1,303,0,'72.199.41.171',1165018940,1,0,1,1,1,0,'','','Ken,\n\n&gt;\"the free version of xHarbour comes with FWH. So, you only have to purchase FWH\" \n\n&gt;Why would you need to purchase FWH if it were free? \n\nFWH is not free. xHarbour is free (or rather there is a free version). The free version of xHarbour comes with FWH.\n\n&gt;As for the book, I see it is available at Amazon and will order it in the next few days.\n\nIf you click on the link from my website it takes you directly to the Amazon page. If you purchase it by using my link, I get a (tiny) commisson. The price is the same and you are still purchasing it directly from Amazon. \n\nJames','',0,'AIA=','2866lpdd',1,0,'',303,0,0),(22855,5143,1,303,0,'72.199.41.171',1165019441,1,0,1,1,1,0,'','','Ken,\n\nYou may also find this article interesting.\n\nMagic and Software Design\n<!-- m --><a class=\"postlink\" href=\"http://www.asktog.com/papers/magic.html\">http://www.asktog.com/papers/magic.html</a><!-- m -->\n\nThis is a rather long article in small type, but it is worth wading through. It presents some unique thoughts.\n\nYou might also want to read some of my other postings on interface design on this forum. Try searching for \"design\" and author \"James Bott\"\n\nJames','',0,'AIA=','3gnu6pkq',1,0,'',303,0,0),(22856,5164,6,2,0,'87.218.146.203',1165019480,1,0,1,1,1,1,'','','Paco,\n\nEnhorabuena <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nRealmente excelente,','',0,'AIA=','3gem6ax4',1,0,'',2,0,0),(22857,5138,1,186,0,'66.130.50.142',1165019569,1,0,1,1,1,1,'','','Hi Antonio,\n\n\nSorry to tell you that PrinterSetup() return 0 whether I pressed OK or Cancel buttons.\n\nHere`s the code I used for testing:\n\n\nfunction Test()\nlocal hDC\n\nhDC := PrinterSetup()\nMsgInfo(Str(hDC))\n\nReturn (NIL)\n\nRegards,\n\nGilbert','',0,'AIA=','1qhnsif6',1,0,'',186,0,0),(22858,5161,6,2,0,'87.218.146.203',1165019877,1,0,1,1,1,1,'','','Estás usando versiones de Harbour/xharbour y FWH que no se corresponden. Quizá esto pueda servirte hasta que te actualices:\n[code:1k6thf5k]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapiitm&#46;h&gt;\n\nBOOL hb_objGetpMethod&#40; PHB_ITEM pObject, PHB_SYMB pMessage &#41;\n&#123;\n   return hb_objHasMessage&#40; pObject, pMessage-&gt;pDynSym &#41;;\n&#125;\n#pragma ENDDUMP\n[/code:1k6thf5k]','',0,'AIA=','1k6thf5k',1,0,'',2,0,0),(22859,5138,1,2,0,'87.218.146.203',1165020399,1,0,1,1,1,1,'','','Gilbert,\n\nYou are right. There was a missing flag at PrinterSetup() function:\n\n   pd.Flags     = PD_PRINTSETUP | PD_USEDEVMODECOPIES | PD_RETURNDC;\n\nPD_RETURNDC was missing. Now it behaves as expected: hDC, or zero if cancel is pressed. Thanks!','',0,'AIA=','1u5cqar0',1,0,'',2,0,0),(22860,5143,1,2,0,'87.218.146.203',1165021211,1,0,1,1,1,1,'','','Ken,\n\n&gt;\n1. To use the Demo, you must have Clipper 5.01 or 5.2. Clipper 5.3 will not work. \n&gt;\n\nClipper 5.3 works fine with FW. All you need is to declare this function in your code:\n\nfunction CLIPPER520()\nreturn nil\n\n&gt;\n2. All linkers that come as part of the Clipper package are not able to link the resulting FW object files. \n&gt;\n\nFW requires a Windows capable linker. Thats a Windows design requirement. You may use Microsoft free link.exe for your tests. Its available from different places, and you can find a copy here: <!-- m --><a class=\"postlink\" href=\"http://www.geocities.com/ninguno_todos/link.zip\">http://www.geocities.com/ninguno_todos/link.zip</a><!-- m -->\n\n&gt;\nThen there is the question about someone who has never had Clipper. How can they test FW? \n&gt;\n\nYes, you are right. Thats a limitation, though many Harbour users have been Clipper users too.','',0,'AIA=','1v6mu90d',1,0,'',2,0,0),(22861,5144,1,2,0,'87.218.146.203',1165021492,1,0,1,1,1,1,'','','Gilbert,\n\n&gt; why would anyone use FWH and xBase++ when Alaska has it own 32 bits GUI library... \n\nBecause there are Xbase++ users that prefeer the easy of use and the little learning curve of the FW GUI commands and classes.','',0,'AIA=','2hl3rygg',1,0,'',2,0,0),(22862,5150,3,2,0,'87.218.146.203',1165021738,1,0,1,1,1,1,'','','Joaquín,\n\nDe momento es muy pronto para comentar la línea de investigación que tenemos en relación a temas web.','',0,'AIA=','1fwf63gn',1,0,'',2,0,0),(22863,5138,1,186,0,'66.130.50.142',1165022115,1,0,1,1,1,1,'','','Hi Antonio,\n\nI knew there was someting about PrinterSetup(), cause I remember getting very frustrated trying to figure out why in the world was I not getting anything back.\n\nHow can I fix this function without recompiling the whole library ?\nI would like to solve this problem so I can go on with the rest of my project. Right now I`m stuck...\n\nRegards,','',0,'AIA=','15h46yqc',1,0,'',186,0,0),(22864,5146,1,186,0,'66.130.50.142',1165022307,1,0,1,1,1,1,'','','Hi Enrico,\n\nOoops...\n\nTesting your sample code, wich did behave exactly like my code, I discoverd that my define for CRLF was Chr(10) + Chr(13) instead of the other way around.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nNow it work fine.\n\nThanks,\nRegards,\n\nGilbert','',0,'AIA=','xv7nsgz8',1,0,'',186,0,0),(22865,5145,1,186,0,'66.130.50.142',1165022417,1,0,1,1,1,1,'','','Hi Enrico,\n\nIt`s a bit more complicated that I tought it would be, but it works nicely.\n\nThanks\nRegards,\n\nGilbert','',0,'AIA=','1143nh1z',1,0,'',186,0,0),(22866,5143,1,303,0,'72.199.41.171',1165022609,1,0,1,1,1,0,'','','Ken,\n\nOne more thing. While you are purchasing About Face, you should also get a copy of \"Business Engineering With Object Technology,\" David A. Taylor; also available via my site. You can get a used copy for 28 cents (plus shipping)!\n\nIf you don\'t already know this, FW is built using Object Oriented Programming, so you really need to understand OOP to get the most out of it.\n\nFW deals with interface objects. The book I am recommending is about building objects that simulate real-world objects, such as customers, orders, items, etc. It does not get into programming but only the concepts and it is easy to read.\n\nThere are also a couple of articles I wrote on this topic with FW code examples on my site.\n\nSince you are already going to be doing a conversion, now is the time to get a handle on this. I don\'t remember if I discussed the concept of OOP wrappers in my articles, but you can use wrappers around legacy code to get them into a class which makes subseqent programming much easier. I know it seems like it would be easier not to do this, but after having learned OOP, I can tell you it is very much easier than procedural programming.\n\nA little time spent learning interface design and OOP now will pay back greatly in the future.\n\nJames','',0,'AIA=','2dwbbq9z',1,0,'',303,0,0),(22867,5165,6,785,0,'190.64.117.224',1165036081,1,0,1,1,1,0,'','jpg en recursos','Amigos:\n\nGuarde un archivo jpg (un paisaje de un cielo) en mi archivo.res\nlo pongo como fondo de un dialogo, (un brush transparente), hasta aca bien\nporque lo muestra.\nPero cuando lo muevo o algun otro  dialogo se abre sobre este\nla imagen y los conbtroles se distorsionan.\n\nHabría alguna manera de que el dialogo se refrescara conjuntamente\ncon  la imagen ya que con un bmp no hay problema.\n(el jpg es mucho mas chico y la calidad de imagen es igual)\n\nMuchas gracias.\n\nRuben Fernandez','',0,'AIA=','c9yuvca1',1,1165039731,'',785,1,0),(22868,5165,6,785,0,'190.64.102.146',1165036514,1,0,1,1,1,0,'','','Probe con \n  ACTIVATE DIALOG oDlg CENTERED NOWAIT  ;\n           On MOVE oDlg:Refresh()\n\ny no funciona\n\nPero... como el dialogo es nowait, si lo iconizo y lo\nvuelvo a maximizar queda bien.\n\nGracias.\n\nRuben Fernandez.','',0,'AIA=','1k7m0glb',1,0,'',785,0,0),(22869,4757,3,54,0,'189.132.119.50',1165041802,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:1n78jn1r]Sorry my friends; I was a month without my computer <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\n[code:1n78jn1r]\nFUNCTION SaveAsPDF&#40;cRepName&#41;\nLOCAL result\nLOCAL cBuffer&#58;=space&#40;300&#41;\n    hLib = LOADLIBRARY&#40; &quot;image2pdf&#46;dll&quot; &#41;\n	 \n	 nRc &#58;=  I2PDF_Log&#40;&quot;&#46;\\log&#46;txt&quot;, 3&#41; // To save a LOG \n	\n	 I2PDF_MetaTextFitBoundingRect&#40;&#41;\n\n	  nRc &#58;= I2PDF_UseEMFDeviceSize&#40;&#41;\n    \n	  nRc &#58;= I2PDF_MetaToNativePDF&#40;&#41;\n	\n	   nRc &#58;= I2PDF_SetDPI&#40;300&#41;   //- or to whatever value you require\n	 \n\n                DECLARE aEmf &#58;= &#123;&#125;\n	aEmf &#58;= directory&#40;&quot;*&#46;emf&quot;&#41; // Multiples pages\n\n	FOR nX &#58;= 1 TO  len&#40;aEmf&#41;\n	            nRc &#58;= I2PDF_AddImage&#40;alltrim&#40;aEmf&#91;nX, F_NAME&#93;&#41;&#41;\n	NEXT\n\n	nResult &#58;= I2PDF_MakePDF&#40;cRepName, 0, @cBuffer ,300&#41;\n	 	\n	 FreeLibrary&#40;hLib&#41;\n\nRETURN &#40;&#46;T&#46;&#41;\n[/code:1n78jn1r]\n\nRegards\n\n\nGeorge[/quote:1n78jn1r]\n\nGeorce,\n\nThe next function not exist\n\n   I2PDF_Log()\n   I2PDF_MetaTextFitBoundingRect()\n   I2PDF_UseEMFDeviceSize()\n   I2PDF_MetaToNativePDF()\n   I2PDF_SetDPI()\n   I2PDF_AddImage()\n   I2PDF_MakePDF()\n\nsomething any idea?\n\nWilliam\n\nPD. sorry by bad english','',0,'gIA=','1n78jn1r',1,0,'',54,0,0),(22870,5163,3,707,0,'222.124.20.50',1165042857,1,0,1,1,1,0,'','','James,\n\n[img:24d1aqn3]http&#58;//planetsourcecode&#46;com/Upload_PSC/ScreenShots/PIC200610101055325820&#46;gif[/img:24d1aqn3]\n\nThis is source code from VB\n\nThank\'s\nAreang','',0,'CA==','24d1aqn3',1,0,'',707,0,0),(22871,5163,3,28,0,'87.218.47.45',1165043000,1,0,1,1,1,0,'','This is in design mode','Hello James\n\nNo. The name\'s class is remembering this class. I saw this group of classes for.NET and let us be moved pleasurably. Then I thought of making something same and I put him the same name. But at end all the people look the beta of Office to make this controls.\n\n\nPrueba.exe is in mode design. You can designer the Office Bar with the  right mouse button over the first ribbon of the control.\n\nYou can add tabs, add group, addbuttons customice the images, save the design to prg, load a design form a prg, etc.\n\nA greeting.\n\nPaco Garcia','',0,'CA==','3kh95r1p',1,0,'',28,0,0),(22872,5163,3,15,0,'61.59.236.84',1165043718,1,0,1,1,1,0,'','','Hello Paco,\n\nMay I use it in the Resource Dialog?\n\nRichard','',0,'CA==','i6w5zifr',1,0,'',15,0,0),(22873,5138,1,2,0,'87.218.146.203',1165050393,1,0,1,1,1,1,'','','Gilbert,\n\nYou may download printdc.obj for 16 bits from here:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/EPJWV6HS/PRINTDC.ZIP.html\">http://www.uploading.com/files/EPJWV6HS ... C.ZIP.html</a><!-- m -->\n\nJust link it to your application as another OBJ of your own.','',0,'CA==','hd3wquui',1,0,'',2,0,0),(22874,5151,1,2,0,'87.218.146.203',1165050530,1,0,1,1,1,1,'','','Gilbert,\n\nSetText() changes the text of the Windows GUI control.\n\nVarPut() changes the contents of the related Clipper variable.','',0,'CA==','195oi8kk',1,0,'',2,0,0),(22875,5158,6,456,0,'217.124.41.81',1165051863,1,0,1,1,1,1,'','','Yo utilizo xBrowse con ADO, sin ningun problema. A primera vista, tu codigo me parece correcto salvo lo siguiente que no se si es un error al escribir el mensaje.\n[quote:2jyf3l9r] oBrw:OnGoTop        := {|| oRs:MoveFirst() } \n        oBrw:OnGoBottom     := {|| oRs:MoveLast() } \n        oBrw:OnBof           := {|| oRs:Bof() } \n        oBrw:OnEof            := {|| oRs:Eof() } \n      oBrw:OnSkip          := { | nSkip | Skipper( oRs, nSkip ) } \n        oBrw:OnKeyCount    := {|| oRs:RecordCount() } \n\n[/quote:2jyf3l9r]\nEn lugar de OnGoTop debe ser bGoTop, etc. Tampoco es necesario que ejecutes SetRdd, pues lo unico que hace es inicializar el browse para manejo de tablas via Rdd sean DBF o Ads. \nEn el ultimo build de Fivewin Antonio tuvo a bien añadir una colaboracion que le envie, es el nuevo metodo SetAdo, y el codigo para utilizarlo seria el siguiente.\n[code:2jyf3l9r]\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWinH &#41;\noBrw&#58;SetAdo&#40;oRs&#41;\noBrw&#58;CreateFromCode&#40;&#41;\n[/code:2jyf3l9r]','',0,'gIA=','2jyf3l9r',1,0,'',456,0,0),(22876,5143,1,6,0,'87.20.219.246',1165056703,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:21gyo5i5]xHarbour is free (or rather there is a free version).[/quote:21gyo5i5]\n\nNo, xHarbour [b:21gyo5i5]is[/b:21gyo5i5] free. Is the distribution from xHarbour.com that is not free but xHarbour itself is and always will be free.\n\nEMG','',0,'wA==','21gyo5i5',1,0,'',6,0,0),(22877,5166,7,57,0,'88.0.86.53',1165063914,1,0,1,1,1,1,'','Estructuras','Antonio\n¿Es posible utilizar tExtruc en FWPPC? ¿Hash()?\n\nSaludos','',0,'wA==','13uomq4w',1,0,'',57,0,0),(22878,5163,3,28,0,'87.218.46.184',1165064891,1,0,1,1,1,0,'','','Not for the moment but there are not problem, a few changes and ready','',0,'wA==','2n4uxd2i',1,0,'',28,0,0),(22879,5167,6,66,0,'201.212.170.18',1165071967,1,0,1,0,1,0,'','Donde puedo descargar xharbour 0.99.4','Estimados Colegas\n\nDonde puedo descargar la version 0.99.4 de xharbour\n\ndesde ya muchas gracias\nfabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'wA==','3nouhdfg',1,0,'',66,0,0),(22880,5163,3,308,0,'84.148.61.21',1165073196,1,0,1,1,1,0,'','','Paco\n\n1. is the full source code included ?\n2. Price\n\nRegards Norbert','',0,'wA==','3tkp8jf4',1,0,'',308,0,0),(22881,5163,3,28,0,'87.218.46.184',1165074286,1,0,1,1,1,0,'','','Yes of course. All  the controls of CanalFive give the whole code source absolutely.','',0,'wA==','1bed4y4l',1,0,'',28,0,0),(22882,5168,3,28,0,'87.218.46.184',1165074376,1,0,1,1,1,0,'','Subidas las demos de CanalFive','I have upload several demos of the CanalFive controls.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/officebar.zip\">http://www.canalfive.com/officebar.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/samples.zip\">http://www.canalfive.com/samples.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/reloj1.zip\">http://www.canalfive.com/reloj1.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/reloj2.zip\">http://www.canalfive.com/reloj2.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/c5menu.zip\">http://www.canalfive.com/c5menu.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/outlookbar2.zip\">http://www.canalfive.com/outlookbar2.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/vtaskbar.zip\">http://www.canalfive.com/vtaskbar.zip</a><!-- m -->\n\n\nA greeting\n\nPaco García','',0,'wA==','ze1xxenh',1,0,'',28,0,0),(22883,5169,6,28,0,'87.218.46.184',1165074425,1,0,1,1,1,0,'','Demos de CanalFive','Hola a todos\n\nAcabo de subir las demos de los controles de CanalFive.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/officebar.zip\">http://www.canalfive.com/officebar.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/samples.zip\">http://www.canalfive.com/samples.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/reloj1.zip\">http://www.canalfive.com/reloj1.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/reloj2.zip\">http://www.canalfive.com/reloj2.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/c5menu.zip\">http://www.canalfive.com/c5menu.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/outlookbar2.zip\">http://www.canalfive.com/outlookbar2.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/vtaskbar.zip\">http://www.canalfive.com/vtaskbar.zip</a><!-- m -->\n\nUn saludo\n\nPaco García','',0,'wA==','2axqgfew',1,0,'',28,0,0),(22884,5168,3,51,0,'80.122.88.242',1165076079,1,0,1,1,1,0,'','','Hello Paco,\nvery nice demos.\nCould you please tell me where to get the controls.\nOtto','',0,'wA==','21a3wzjw',1,0,'',51,0,0),(22885,5162,4,13,0,'213.76.252.200',1165078792,1,0,1,1,1,0,'','','Franz,\n\nThis printer probably have RS interface. You may use it. Some model PDA eg. HP iPaq 2490 works very good with RS interface (you must have valid RS cable for PDA).\n\nRegards\nPawel','',0,'wA==','3hmihrbi',1,0,'',13,0,0),(22886,5168,3,28,0,'87.218.46.184',1165079841,1,0,1,1,1,0,'','','Yes of course, send me a email to <!-- e --><a href=\"mailto:pacogarcia@canalfive.com\">pacogarcia@canalfive.com</a><!-- e --> or <!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e --> and we speak about the controls. \n\nA greeting','',0,'wA==','2cm6hebg',1,0,'',28,0,0),(22887,5151,1,186,0,'66.130.50.142',1165081213,1,0,1,1,1,1,'','','Hi Antonio,\n\nThanks for the information. \n\nRegards,  \n\nGilbert','',0,'wA==','1tqzt2ni',1,0,'',186,0,0),(22888,5138,1,186,0,'66.130.50.142',1165081399,1,0,1,1,1,1,'','','Hi Antonio,\n\nThanks. I`getting on it right anway\n\nRegards,\n\nGilbert','',0,'wA==','3epl8jx9',1,0,'',186,0,0),(22889,4757,3,171,0,'71.232.193.197',1165081526,1,0,1,1,1,0,'','','Hola William,\n\nEn mi anterior post, en este mismo \"subject\" mas arriba, tu puedes ver todas esas funciones. En realidad son \"wrapper\" que te permiten usar las funciones originales que estan en \"IMAGE2PDF.DLL\"\n\n\nSaludos\n\n\nGeorge','',0,'wA==','1kof33m0',1,0,'',171,0,0),(22890,4757,3,54,0,'189.132.119.50',1165086049,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:1ttxsidi]Hola William,\n\nEn mi anterior post, en este mismo \"subject\" mas arriba, tu puedes ver todas esas funciones. En realidad son \"wrapper\" que te permiten usar las funciones originales que estan en \"IMAGE2PDF.DLL\"\n\n\nSaludos\n\n\nGeorge[/quote:1ttxsidi]\n\nGeorge,\n\ngracias por tu amable atención, checo.','',0,'gA==','1ttxsidi',1,0,'',54,0,0),(22891,5157,3,2,0,'87.218.146.203',1165086553,1,0,1,1,1,1,'','','Roger,\n\nThis may be a fix for it. We appreciate your feedback,\n[code:3pcg4ah9]\n\nCLIPPER PRNGETNAME&#40; PARAMS &#41; // &#40;&#41; --&gt; cPrinter\n&#123;\n   LPDEVNAMES lpDevNames;\n\n   PrinterInit&#40;&#41;;\n\n   if&#40; pd&#46;hDevNames &#41;\n   &#123;\n      lpDevNames = &#40;LPDEVNAMES&#41; GlobalLock&#40; pd&#46;hDevNames &#41;;\n\n      if&#40; lpDevNames &#41;\n      &#123;\n         _retc&#40; &#40; LPSTR &#41; lpDevNames + lpDevNames-&gt;wDeviceOffset &#41;;\n        GlobalUnlock&#40; pd&#46;hDevNames &#41;;\n      &#125;\n      else\n         _retc&#40; &quot;&quot; &#41;;\n   &#125;\n   else\n      _retc&#40; &quot;&quot; &#41;;\n&#125;\n[/code:3pcg4ah9]','',0,'AIA=','3pcg4ah9',1,0,'',2,0,0),(22892,4757,3,54,0,'189.132.119.50',1165089951,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:gfai73p0]Hola William,\n\nEn mi anterior post, en este mismo \"subject\" mas arriba, tu puedes ver todas esas funciones. En realidad son \"wrapper\" que te permiten usar las funciones originales que estan en \"IMAGE2PDF.DLL\"\n\n\nSaludos\n\n\nGeorge[/quote:gfai73p0]\n\nGeorge,\n\nExcelente, ya puedo exportar sin problemas\n\nSaludos y gracias','',0,'gA==','gfai73p0',1,0,'',54,0,0),(22893,5155,6,176,0,'200.61.143.152',1165091822,1,0,1,1,1,0,'','','Gracias Karina, después que envié el mail probé como vos indicas y funcionó bien, había presupuesto que si no andaba set scope tampoco lo haría ordscope().\n\nLuis','',0,'gA==','1la9dg6l',1,0,'',176,0,0),(22894,5170,6,54,0,'189.132.119.50',1165103561,1,0,1,1,1,1,'','FONT','Hola,\n\nSe podria generar o setear el FONT con un color?\n\nes posible esto?\n\nDEFINE FONT \"TAHOMA\" ... COLOR CLR_RED\n\nGracias de antemano por la tención\n\nWilliam Morales','',0,'gA==','qay3mjfk',1,0,'',54,0,0),(22895,5171,3,69,0,'74.13.29.247',1165106525,1,0,1,1,1,0,'','ON CHANGE help','Hi Everybody,\n\nI am having a problem using the \"ON CHANGE\" clause of a get.\n\nI want the program to run a function as the user enters data so I tried:\n\n[code:2z7szvku]\n      REDEFINE GET oGetLast VAR cLastName ID 101 OF oSearch  ON CHANGE UpDateSearch&#40;&#41; UPDATE\n[/code:2z7szvku]\n\nFor some reason nothing appears in the get and if I do a MsgInfo( cLastName) it shows that no value was stored to cLastName.\n\nIf I change the ON CHANGE to a VALID (and leave the field) my function works fine but I want to check as the user types.\n\nAny Ideas?\n\nThanks\n\nJeff','',0,'AIA=','2z7szvku',1,0,'',69,0,0),(22896,5172,3,69,0,'74.13.29.247',1165106893,1,0,1,1,1,0,'','Read files from GE Mac 5000 ECG Cart','Hi Everybody,\n\nHas anyone ever tried reading a \"GE Mac 5000 ECG file\" with FiveWin?\n\nIf so, I could use you help ... I need to have access to these files.\n\n\nThanks,\n\nJeff','',0,'AIA=','2vtkaoy3',1,0,'',69,0,0),(22897,5163,3,15,0,'61.59.237.118',1165114354,1,0,1,1,1,0,'','','[img:2vpxva4z]http&#58;//planetsourcecode&#46;com/Upload_PSC/ScreenShots/PIC200610101055325820&#46;gif[/img:2vpxva4z]\n\n\nHello Paco,\n\nHow to change color? Office 2007 is able to 3 three color interfaces.\n\nNow, Black, Gray\n\nRegards,\n\nRichard','',0,'CA==','2vpxva4z',1,0,'',15,0,0),(22898,5171,3,53,0,'189.139.26.210',1165115160,1,0,1,1,1,1,'','','Jeff:\n\nPerhaps you need an incremental search ?\n\nRegards, Armando','',0,'CA==','2m63rk39',1,0,'',53,0,0),(22899,5171,3,69,0,'74.13.29.247',1165116150,1,0,1,1,1,0,'','','Yes ... this is what I am trying to do with a few fields.\n\nCan you point me in the right direction?\n\nJeff','',0,'CA==','2igi8kki',1,0,'',69,0,0),(22902,5171,3,53,0,'189.139.26.210',1165119622,1,0,1,1,1,1,'','','Jeff:\n\nI use this one procedure\n\nPROCEDURE Busca(cAlias,cKey,oBrw)\nLOCAL nSeekRec := RECNO()\nIF GETASYNCKEY(VK_BACK)\n     cKey := SUBSTR(cKey,1,LEN(cKey)-1)\nENDIF\nIF ! (cAlias)-&gt;(DBSEEK(cKey,(.T.)))\n    GO nSeekRec\nENDIF\noBrw:REFRESH()\noBrw:oVScroll:SETPOS(RECNO())\nRETURN\n\nAnd this is the way to call to the procedure\n\nREDEFINE GET aGets[1] VAR cBusca ID 101 OF oDlg UPDATE;\nPICTURE \"@!K\";\nON CHANGE(SELF:ASSIGN(),;\nBusca((cAlias),SUBSTR(cBusca,1,SELF:nPos-1)+UPPER(CHR(nKey)),oBrw),oBrw:REFRESH())\n\nBest regards, Armando','',0,'','mamw1xfw',1,0,'',53,0,0),(22903,5171,3,53,0,'189.139.26.210',1165120003,1,0,1,1,1,1,'','','Jeff:\n\nI forgot to tell you that the incremental search works on the active index.\n\nRegards, Armando','',0,'','2frhqye3',1,0,'',53,0,0),(22904,5171,3,303,0,'72.199.41.171',1165125977,1,0,1,1,1,0,'','','Jeff,\n\nUse a DBCombo. It has built in incremental searching. You can use it with a DBF or an array.\n\nSee samples\\testdbc1.prg for examples.\n\nJames','',0,'','3oxwucvp',1,0,'',303,0,0),(22905,5175,4,20,0,'87.10.213.244',1165135411,1,0,1,1,1,0,'','Scrollbar','The clauses ON UP / ON DOWN do not work (see testscrl.prg).\n\nRegards.\nPier Luigi','',0,'','1omkrrt9',1,0,'',20,0,0),(22906,5176,7,600,0,'84.123.222.86',1165140355,1,0,1,1,1,0,'','LLamada al Tfno y correo desde aplicacion','Buenas, tengo una aplicacion hecha en la PDA que tiene la relacion de trabajadores, y quiera, teniendo en pantalla el tfno y el correo electronico, poder activar el telefono con el numero de la persona y el correo o sms.\n\n¿Es esto posible?\n\nUn saludo\nJuanjose','',0,'','2o769jbi',1,0,'',600,0,0),(22907,5175,4,2,0,'87.218.146.203',1165140418,1,0,1,1,1,1,'','','Pier,\n\nThere is a new FWPPC build ready to be downloaded that fixes it, thanks.','',0,'','3afa3566',1,0,'',2,0,0),(22908,5166,7,2,0,'87.218.146.203',1165140648,1,0,1,1,1,1,'','','Toni,\n\n&gt; ¿Es posible utilizar tExtruc en FWPPC? \n\nEn principio sólo tienes que coger la clase de FWH y añadirla a tu proyecto FWPPC.\n\n&gt; ¿Hash()? \n\nPara qué lo necesitas ? Por favor muéstranos un ejemplo de como lo usas en tu programa, gracias.','',0,'','13cdcdrq',1,0,'',2,0,0),(22909,5167,6,2,0,'87.218.146.203',1165140745,1,0,1,1,1,1,'','','Aqui tienes un histórico de builds de Harbour y xHarbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'','1dnoc267',1,0,'',2,0,0),(22910,5165,6,2,0,'87.218.146.203',1165140849,1,0,1,1,1,1,'','','Rubén,\n\nCómo creas el brush con el archivo jpg ?','',0,'','kcvde99t',1,0,'',2,0,0),(22911,5170,6,2,0,'87.218.146.203',1165141372,1,0,1,1,1,1,'','','William,\n\nNo. En principio el color es un atributo que no pertenece al font sino al hDC (device context):\n[code:3d30hhfv]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oFont\n\n   DEFINE WINDOW oWnd\n   \n   DEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 0, -20\n   \n   ACTIVATE WINDOW oWnd ;\n      ON PAINT oWnd&#58;Say&#40; 2, 2, &quot;Hello world!&quot;, CLR_HRED, CLR_WHITE, oFont &#41;\n   \n   oFont&#58;End&#40;&#41;\n\nreturn nil   \n[/code:3d30hhfv]\n[url=http&#58;//imageshack&#46;us:3d30hhfv][img:3d30hhfv]http&#58;//img156&#46;imageshack&#46;us/img156/8977/image1td1&#46;png[/img:3d30hhfv][/url:3d30hhfv]','',0,'GIA=','3d30hhfv',1,0,'',2,0,0),(22912,5175,4,20,0,'87.10.213.244',1165142438,1,0,1,1,1,0,'','','Antonio,\n\nNow it is ok  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMany thanks.\nPier Luigi','',0,'GIA=','1ygx7ggi',1,0,'',20,0,0),(22913,5109,7,720,0,'83.52.158.185',1165150139,1,0,1,1,1,0,'','','Hola....\n\nEl problema que tengo definitivamente no es por  los campos memos, sino porque no puedo acceder a ninguna tabla que no sea libre, es decir, no puedo usar ninguna tabla que se encuentre dentro de una base de datos, puesto que si intento abrirla me dice que está corrupta. Mi pregunta entonces es la siguiente: ¿No es posible utilizar tablas que ya estén definidas en otra base de datos?. ¿Siempre se ha de utilizar tablas libres?.  Y por último, en el caso de que no se pueda utilizar las tablas de otra base de datos(es decir, tablas que no son libres) ¿existe la posibilidad de cambiar esas tablas a tablas libres para poder luego trabajar con ellas?\n\nPor cierto Antonio, según comentas puede ser porque el window m5 no tiene bien implementado el uso de tablas compartidas. ¿Las nuevas actualizaciones de FWPPC contemplan estas mejoras??¿O aunque me actualice a la última versión del fwppc no voy a poder implementar lo que quiero?...\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'GIA=','2ttmkwim',1,0,'',720,0,0),(22914,5109,7,2,0,'87.218.146.203',1165165233,1,0,1,1,1,1,'','','Elías,\n\n&gt; no puedo usar ninguna tabla que se encuentre dentro de una base de datos\n\nA que te refieres exactamente ? Puedes poner un ejemplo ?','',0,'GIA=','3qmivhde',1,0,'',2,0,0),(22915,5163,3,26,0,'84.52.130.249',1165176414,1,0,1,1,1,1,'','','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.itwriting.com/blog/?p=59\">http://www.itwriting.com/blog/?p=59</a><!-- m -->\n[quote:3gxkt2ow]\n[quote:3gxkt2ow]\n…you, our customers, are not covered by our license agreement with Microsoft. The terms of the license are not transferable in that way: despite the fact that you are using our components, you will have to sign the Microsoft license yourselves for your own applications.\n[/quote:3gxkt2ow] \nShould you sign? Although it is royalty-free, the agreement is not without obligations. As Bucknall notes, it includes “the Office UI Design Guidelines that describe, in almost excruciating detail, how the ribbon and its associated controls must work and must look in an application in order to satisfy the license.” Signing the document means agreeing that you are making use of Microsoft’s intellectual property, and also limits what you can do with the UI.\n\nOn the whole I’m in favour of UI standards, but this seems rather extreme.\n[/quote:3gxkt2ow]','',0,'gA==','3gxkt2ow',1,0,'',26,0,0),(22916,5109,7,720,0,'83.52.158.185',1165177114,1,0,1,1,1,0,'','','Hola Antonio...\n\nEstoy desarrollando una aplicación que realiza un inventario, pero con la salvedad de que la información la envio a traves de wifi. Hasta ahi todo bien. El tema es que la tabla de articulo que necesito para comenzar con el inventario está dentro de una base de datos (*.dbc) de otra aplicacion. En definitiva, cada vez que requiera actualizar la tabla de articulos para realizar el inventario me tengo que conectar al servidor y \"traerme\" a la pda la tabla  articulo.dbf para poder trabajar con ella de forma local. El problema radica en que esta tabla forma parte de una base de datos (*.dbc), con lo que no puedo abrirla porque me dice que está corrupta. Puedo copiarla a otro lado con un copy file, pero a la hora de abrirla no encuentra el enlace con la base de datos y me dice que no se puede abrir. He probado incluso a traerme el *.dbc al directorio local (donde almaceno una copia de la tabla articulo.dbf) pero nada, no me deja abrirla. Sin embargo si esa tabla en vez de pertenecer a una base de datos fuera una tabla libre,entonces no hay ningun problema... Nose si me he explicado..\n\nSi hubiera alguna forma de romper ese vinculo con la base de datos para que la tabla articulo.dbf pasara a ser libre se solucionarían todos los problemas, pero no se como hacerlo...\n\n\nSaludos y gracias..\n\nElías Torres.','',0,'gA==','3mmnhniv',1,0,'',720,0,0),(22917,5118,6,413,0,'217.125.9.228',1165188430,1,0,1,1,1,0,'','','Gracias Antonio, voy a ver si lo consigo...','',0,'gA==','1lnhxzez',1,0,'',413,0,0),(22918,5177,6,176,0,'200.61.143.139',1165190232,1,0,1,1,1,0,'','Pasaje de Fw a Fwh','Bueno hoy terminé de pasar el programa hecho en fw25 a xharbour, y quiero agradecerles las ayudas que me han proporcionado. Cuando adquirí el Fwh25, hice un programa desde 0  para el uso de mi empresa (Vendo neumáticos)y funciona hasta el presente sin problemas. Con este tenía miedo de hacer el cambio ya que está hecho para una empresa de Importación y venta de Productos Químicos, y es el que lleva toda la administración de la misma,  uso la librería filexls y tenía entendido que no se podía usar en 32bits, pero en algún lado conseguí los fuentes los compilé con xHarbour y lo único que tuve que inventar es el archivo xlserror.ch ya que no lo consegguí (ahora se los solicito si alguien lo posee). Realmente pensaba que el pasaje de uno a otro sería mas engorroso, pero fuerón mínimos y generalmente por uso de programas externos, como la clase tarray de Hernan Diego Ceccarelli, que para mí es fantástica (sólo hay que poner comillas cuando se declara el field) \nAhora tengo unos problemitas que iré consultandolos para ver si se pueden solucionar.\n\nOtra vez muchas gracias\n\nLuis','',0,'gA==','196h7s1p',1,0,'',176,0,0),(22919,5178,6,176,0,'200.61.143.139',1165190788,1,0,1,1,1,0,'','IMAGE','Hola cuando empieza el programa pongo de fondo en la ventana una imagen si la declaro así\n\n	     @ 0,0 IMAGE oBmp SIZE 850,550  of oVentPrinc:oWndClient NO BORDER ADJUST\n	     oBmp:Progress( .f. )\n	     oBmp:LoadBmp(\"fondomeg.jpg\" )\n No me muesta la imagen \n\nSí lo hago de esta forma\n	     oBmp:LoadBmp(\"fondomeg.jpg\" )\n	     oBmp:Progress( .f. )\n\nMe muestra la barra de progeso y me muestra la imagen correctamente, Ahora si es un objeto no tendría que importar en el orden que está escrito?\nEn fw funciona bien es decir sin la barra de progreso\n\nLuis','',0,'gA==','154u0vx0',1,0,'',176,0,0),(22920,5179,6,176,0,'200.61.143.139',1165191128,1,0,1,1,1,0,'','Win32_','Quiero usar la clase tanimate en algunos mensajes por ejemplo como la copia de elementos, me funciona pero no sé como hago para que cuando terminé la copia o el proceso que estoy haciendo finalize el diálogo. \nMe podrían orientar?\n\nLuis','',0,'gA==','2xr3yqhy',1,0,'',176,0,0),(22921,5180,3,69,0,'74.13.29.247',1165192074,1,0,1,1,1,0,'','Force cursor to end of text in GET','Hi Everybody,\n\nHow can I force the cursor to move to the right side of the last text entry in a get.\n\n\nEx.\n\n\"This is the text.\"  appears in the get, I would like to force the cursor to go to the right side of the period.\n\n\nThanks,\nJeff','',0,'gA==','mcuzokhh',1,0,'',69,0,0),(22922,5163,3,49,0,'62.13.172.78',1165195302,1,0,1,1,1,1,'','Dear Paco','I sent you some email but U have some error on your  paco@','',0,'gA==','3v2ewfs5',1,0,'',49,0,0),(22923,5180,3,233,0,'60.49.63.136',1165195537,1,0,1,1,1,0,'','','The one that immediately come to mind is something like this.\nAt the point where you want the behaviour to be invoked, just place:\n\n[code:222db0yj]\nfwKeyboard&#40;oGet,VK_END&#41;\n&#46;\n&#46;\nfunction FWKeyBoard&#40;oWnd, nKey&#41;\n  oWnd&#58;SetFocus&#40;&#41;\n  oWnd&#58;PostMsg&#40;WM_KEYDOWN, nKey, 0&#41;\nreturn nil\n[/code:222db0yj]','',0,'AIA=','222db0yj',1,0,'',233,0,0),(22924,5109,7,2,0,'87.218.146.203',1165195628,1,0,1,1,1,1,'','','Elías,\n\nTe entiendo. Una base de datos (*.DBC) en FoxPro es en realidad una DBF renombrada y contiene los nombres de las tablas (DBFs) que controla.\n\nTal vez cambie algún byte en la cabecera de la DBF para indicar que pertenece a una DBC. Lo idóneo sería comparar a nivel bytes (binario) la DBF que pertenece a la DBC, y la misma libre. Tal vez podamos cambiar esos bytes y hacer que tenga la estrutura de una DBF normal.\n\nPor favor envíame por email una DBF que solo tenga un campo y que pertenezca a una DBC, y la misma DBF con la misma estructura, que no pertenezca a una DBC, y vamos a compararlas a bajo nivel.','',0,'AIA=','373pgzma',1,0,'',2,0,0),(22925,5170,6,54,0,'189.132.106.181',1165198780,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ctuo4of9]William,\n\nNo. En principio el color es un atributo que no pertenece al font sino al hDC (device context):\n[code:ctuo4of9]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oFont\n\n   DEFINE WINDOW oWnd\n   \n   DEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 0, -20\n   \n   ACTIVATE WINDOW oWnd ;\n      ON PAINT oWnd&#58;Say&#40; 2, 2, &quot;Hello world!&quot;, CLR_HRED, CLR_WHITE, oFont &#41;\n   \n   oFont&#58;End&#40;&#41;\n\nreturn nil   \n[/code:ctuo4of9]\n[url=http&#58;//imageshack&#46;us:ctuo4of9][img:ctuo4of9]http&#58;//img156&#46;imageshack&#46;us/img156/8977/image1td1&#46;png[/img:ctuo4of9][/url:ctuo4of9][/quote:ctuo4of9]\n\nAntonio,\n\nGracias antes que nada por la atención.\n\nEstuve revisando y efectivamente, parece que lo que busco no es posible\n\nSaludos','',0,'mIA=','ctuo4of9',1,0,'',54,0,0),(22926,5181,19,239,0,'219.137.37.121',1165199129,1,0,1,1,1,0,'','cvs one module commit error: waiting for locking modulename?','Hi,\ncvs one module commit error: waiting for locking modulename?\n Linux server\n\nThanks!\nShuming Wang','',0,'mIA=','vocau9x6',1,0,'',239,0,0),(22927,5165,6,785,0,'190.64.118.13',1165204010,1,0,1,1,1,0,'','','Antonio:\n\nLo he creado de varias maneras:\n\nDefine BRUSH ObrushFondo RESOURCE \"CIELO\" //este nombre es diferente a todos las  imagenes que hay en el .Res. De esta manera es cuando se distorsiona si otro dialogo pasa por encima o este se mueve.\n\noBrushFondo = TImage():Define( \"CIELO\" )\nDEFINE BITMAP oBrushFondo  RESOURCE \"CIELO\" \nDEFINE IMAGE oBrushFondo  RESOURCE \"CIELO\" \n\nCon image me da error TImage:New nCount\n\nSaludos.\n\nRuben Fernandez.','',0,'mIA=','3vlzbwxc',1,0,'',785,0,0),(22928,5182,6,100,0,'201.18.231.75',1165209372,1,0,1,1,1,1,'','DTPICKER','Ola amigos\n\nAntonio o TDTPICKER não funciona com a data em branco\n\nex:\ndData := Ctod(\"\") --&gt; \"  /  /  \"\nREDEFINE DTPICKER dData ID 100 OF oDlg\n\ncausa erro <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\ntem como usar com data em branco ??','',0,'mIA=','3sztg5gi',1,0,'',100,0,0),(22929,5163,3,28,0,'83.46.80.59',1165222719,1,0,1,1,1,0,'','','My addres is <!-- e --><a href=\"mailto:pacogarcia@canalfive.com\">pacogarcia@canalfive.com</a><!-- e -->\nThe spam killed the last address.\n\nOne color for this version.\n\nI think that ever the developer they copy the microsoft look. We working with Windows not with Linux. Microsoft show the way and after do not let come it?\nI do not understand. We not programming an Word or an Excell. Our programs do not are in the same segments by money by example.\nDo not put doors at the field, please.\nIf there are that get license, will have to get it. But this is not the way. I think.\nPaco','',0,'mIA=','3jrffr75',1,0,'',28,0,0),(22930,5109,7,720,0,'80.59.110.137',1165224045,1,0,1,1,1,0,'','','Enviado Antonio a tu correo....\n\n\nGracias.\n\nElías Torres.','',0,'mIA=','13qesyyj',1,0,'',720,0,0),(22931,5163,3,303,0,'72.199.41.171',1165224054,1,0,1,1,1,0,'','','Here is a lot more information on the licensing of Microsoft\'s new Ribbon Bar. \n\n<!-- m --><a class=\"postlink\" href=\"http://blogs.msdn.com/jensenh/archive/2006/11/21/licensing-the-2007-microsoft-office-user-interface.aspx\">http://blogs.msdn.com/jensenh/archive/2 ... rface.aspx</a><!-- m -->\n\nJames','',0,'mIA=','160p9eh2',1,0,'',303,0,0),(22932,5163,3,15,0,'203.73.66.99',1165224316,1,0,1,1,1,0,'','','[quote=&quot;Paco Garcia&quot;:a8wmsyer]My addres is <!-- e --><a href=\"mailto:pacogarcia@canalfive.com\">pacogarcia@canalfive.com</a><!-- e -->\nThe spam killed the last address.\n\nOne color for this version.\n\nI think that ever the developer they copy the microsoft look. We working with Windows not with Linux. Microsoft show the way and after do not let come it?\nI do not understand. We not programming an Word or an Excell. Our programs do not are in the same segments by money by example.\nDo not put doors at the field, please.\nIf there are that get license, will have to get it. But this is not the way. I think.\nPaco[/quote:a8wmsyer]\n\nYes, I think so.\nHow about this?\n[url:a8wmsyer]http&#58;//www&#46;codejock&#46;com/products/suitepro/[/url:a8wmsyer]\n\nIf I use this ActiveX components, I need to apply to Microsoft 2007 UI license?\n\nAnyway. Paco,\nMay I change Bar Color in your source code?\nI paste picture only mean colors.\n\nRegards,\n\nRichard','',0,'kA==','a8wmsyer',1,0,'',15,0,0),(22933,5176,7,600,0,'195.66.150.52',1165225577,1,0,1,1,1,0,'','Activando el tfno desde aplicacion','Bien,  ya sé como se activa el tfno, llamando al programa cProg, me lo que no consigo es pasarle como parametro el telefono que debe llamar.\n\n¿Sabe alguien como se hace?\n\nJuan José','',0,'kA==','2tewz832',1,0,'',600,0,0),(22934,5180,3,162,0,'141.201.51.83',1165226809,1,0,1,1,1,0,'','','Thats what I use:\n\n auGet:SetPos(len(trim(auGet:cText)))\n\nor\n\n auGet:KeyDown(VK_RIGHT)\n\nboth are working.\n\nDietmar','',0,'kA==','19ww9pj4',1,0,'',162,0,0),(22935,5183,3,162,0,'141.201.51.83',1165227287,1,0,1,1,1,0,'','Gets and languages','In this sample when I right click for the copy/paste menu I get it\n- in german (one line get)\n- in english (multiline get)\nwhy? how can I cange to german?\nThanks,\nDietmar\n\n\n\n#include \"Fivewin.ch\"\n\nFUNCTION MAIN()\n\n\n   DEFINE DIALOG copyDlg FROM 10, 20 TO 35, 90 TITLE \"RIDA-Indexdokument kopierbar\"\n\n   copyText = \"Memo   \"\n\n   @0.5, 0.5 GET copyText  of copyDlg;\n\n   @2, 2 GET copyText  of copyDlg;\n        MEMO;\n        SIZE 100, 100;\n        READONLY;\n\n   @ 9.5, 20 BUTTON \"&amp;Beenden\"  OF copyDlg SIZE 40, 12;\n      ACTION ( copyDlg:End(), lOk := .t. ) DEFAULT\n\n\n   ACTIVATE DIALOG copyDlg CENTERED\n\n RETURN NIL','',0,'kA==','57amgr2b',1,0,'',162,0,0),(22936,5183,3,15,0,'203.73.66.99',1165228183,1,0,1,1,1,0,'','','Hello Dietmar,\n\nCheck your TGet and MGet source code for Right click.\n\nRegards,\n\nRichard','',0,'kA==','2j6qlzez',1,0,'',15,0,0),(22937,5163,3,28,0,'83.46.80.59',1165228195,1,0,1,1,1,0,'','','This version do not manage the colors. If you want can redefine the colors data to data but I think that is better that this caracteristic will be implemented in the next versión, this colors and more. I have thinked make a TColors class that manage the colors and your proportions of a maner quickly an esay.\n\nA greeting','',0,'kA==','2ocoddpe',1,0,'',28,0,0),(22938,5163,3,15,0,'203.73.66.99',1165228288,1,0,1,1,1,0,'','','Hello Paco,\n\nSounds good.\n\nCould you send to me full controls price via private mail?\n\nRegards,\n\nRichard','',0,'kA==','mujowa8k',1,0,'',15,0,0),(22939,5183,3,162,0,'141.201.51.83',1165229985,1,0,1,1,1,0,'','','That\' what I did.\n\nI couldn\'t find anything in these two classes.\nI figured the code must be somewhere else - that\'s why I don\'t understand the difference in languages.\n\nDietmar','',0,'kA==','2si0g7rc',1,0,'',162,0,0),(22940,5176,7,449,0,'212.64.224.241',1165230438,1,0,1,1,1,1,'','','Hola,\n\nTengo la ppc \'jodidita\', pero creo recordar que era Winexec( \"cprog.exe -url tel:93358222\")\n\nSiau.\nC.','',0,'kA==','2jayeqxz',1,0,'',449,0,0),(22941,5183,3,15,0,'203.73.66.99',1165230444,1,0,1,1,1,0,'','','Check this in your source\\CLASS\n\n[code:24f9g389]\nMETHOD RButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TGet\nMETHOD RButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TMultiGet\n[/code:24f9g389]\n\nRichard','',0,'AIA=','24f9g389',1,0,'',15,0,0),(22942,5183,3,162,0,'141.201.51.83',1165230889,1,0,1,1,1,0,'','','Your are right:\n\ntGet invokes the default popup menu,\nmGet has its own in english.\n\nThanks!\nDiemtar','',0,'AIA=','29moisvv',1,0,'',162,0,0),(22943,5109,7,2,0,'87.218.146.203',1165230942,1,0,1,1,1,1,'','','Elias,\n\nEfectivamente los ficheros son iguales, a excepción de una referencia a la base de datos que lo contiene (en el que no es libre) y de ahi que se detecte la corrupción de datos.\n\nLa solución parece fácil <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, sólo hay que cambiar esos bytes usando una función que use FOpen(), FRead(), FWrite() y FClose(). Si no sabes cómo hacerla, te ayudamos.\n\n[url=http&#58;//imageshack&#46;us:2bsinlpn][img:2bsinlpn]http&#58;//img245&#46;imageshack&#46;us/img245/6938/conbasesq3&#46;png[/img:2bsinlpn][/url:2bsinlpn]\n[url=http&#58;//imageshack&#46;us:2bsinlpn][img:2bsinlpn]http&#58;//img139&#46;imageshack&#46;us/img139/6817/librejs5&#46;png[/img:2bsinlpn][/url:2bsinlpn]','',0,'GA==','2bsinlpn',1,0,'',2,0,0),(22944,5109,7,720,0,'80.59.110.137',1165231442,1,0,1,1,1,0,'','','Antonio,\n\ngracias por la información. Te agradeceria que me guiaras en la forma de hacerlo, puesto que no tengo ni idea de como afrontar esto. Es la primera vez que me topo con algo así y se me escapa de las manos....\n\nGracias...\n\nElías Torres.','',0,'GA==','113hbhf0',1,0,'',720,0,0),(22945,5184,3,264,0,'200.91.3.10',1165235647,1,0,1,1,1,1,'','TDsn o TMyDsn ( crear ODBC desde aplicacion )','Hola a todos.\nEl otro dia bajé del sitio de Patrick ( fivewin.info creo ) una clase para crear ODBC desde la aplicacion ( TDSN ), necesitaba hacerlo para una base en ACCESS, pero desafortunadamente no funcionó.\nExiste una clase mejorada para hacer esta tarea, o se debe hace de otra forma.\nDe antemano agradezco su ayuda.\nSaludos','',0,'GA==','7a91asok',1,0,'',264,0,0),(22946,5185,6,264,0,'200.91.3.10',1165235760,1,0,1,1,1,1,'','TDsn y TMyDsn ( crear ODBC desde aplicacion )','Hola a todos. \nEl otro dia bajé del sitio de Patrick ( fivewin.info creo ) una clase para crear ODBC desde la aplicacion ( TDSN ), necesitaba hacerlo para una base en ACCESS, pero desafortunadamente no funcionó. \nExiste una clase mejorada para hacer esta tarea, o se debe hace de otra forma. \nDe antemano agradezco su ayuda. \nSaludos\n\nPD. Por error meti este post en el foro ingles....disculpas !!','',0,'GA==','35uxnc3c',1,0,'',264,0,0),(22947,5179,6,362,0,'200.168.52.156',1165236657,1,0,1,1,1,1,'','','REDEFINE BUTTON ID 170 OF oDlg ACTION( ( oAnimate:Play() ), oDlg:End() )\n   REDEFINE BUTTON ID 180 OF oDlg ACTION( ( oAnimate:Stop() ), oDlg:End() )','',0,'GA==','3lsy0lx8',1,0,'',362,0,0),(22948,5186,7,527,0,'88.11.2.149',1165237807,1,0,1,1,1,0,'','Ayuda, estoy parado nuevamente','Existe la posibilidad de ejecutar mas de un comando un una instruccion ACTION\nPor ejemplo ON DLBCLICK ACTION function1(), a=b, function2()\n\n\nMuchas gracias.\n<!-- e --><a href=\"mailto:imjcc@mjccsl.com\">imjcc@mjccsl.com</a><!-- e -->','',0,'GA==','3f2mkgbi',1,0,'',527,0,0),(22949,5139,7,527,0,'88.11.2.149',1165237936,1,0,1,1,1,0,'','Estoy interado en esto','Como puedo colocar las bases de datos en RAM.\n\ngracias\n<!-- e --><a href=\"mailto:imjcc@mjccsl.com\">imjcc@mjccsl.com</a><!-- e -->','',0,'GA==','1ltngabz',1,0,'',527,0,0),(22950,5166,7,57,0,'88.0.86.53',1165238180,1,0,1,1,1,1,'','','Antonio\nLos hash los estoy utilizando con FWH + xHarbour y son tremendamente prácticas como alternativa a los arrays y con las pruebas que hemos realizado son mucho más rápidas que la utilización de arrays por medio de ADD + ASCAN.\n\nAdjunto un ejemplo del uso de HASH para acceder al registro de una Tabla utilizando HASH. \nLa utilizamos como alternativa a la TDATABASE con muchas menos opciones pero treméndamente más rápida.\n\n=======================================\nFunction AddFields( lAppendBlank, lBloqueaReg, lDateVacio, oOwner  )\n\nLOCAL oDatos, n, uDatoVacio, cAlias := Select()\nDEFAULT lAppendBlank:= .T.\nDEFAULT lBloqueaReg := .F.\nDEFAULT lDateVacio  := .F.\nDEFAULT oOwner:= oApWnd:oDlg\n\nlBloqueaReg := IF(lAppendBlank,.F.,lBloqueaReg)\noDatos := HSetCaseMatch(Hash(),.F.)\n   HashAddMember( { \"cAlias\" },\"C\", ALIAS(Select()), oDatos )\n   HashAddMember( { \"nRecno\"          },\"N\", (cAlias)-&gt;(RECNO()) , oDatos )             // Registro actual\n   HashAddMember( { \"lAppendBlank\"    },\"L\", lAppendBlank, oDatos )\n   HashAddMember( { \"lRecnoBloqueado\" },\"L\", lBloqueaReg , oDatos )\n   HashAddMember( { \"nRecnoBloqueado\" },\"N\", IF(lBloqueaReg, (cAlias)-&gt;(RECNO()),0) , oDatos )\n   FOR n = 1 to (cAlias)-&gt;(FCOUNT())\n      IF lAppendBlank\n         IF ValType( (cAlias)-&gt;(FieldGet(n)) ) = \'N\'\n            uDatoVacio :=  VAL( STR(0, Len( Str( (cAlias)-&gt;(FieldGet(n))))))\n         ELSEIF ValType( (cAlias)-&gt;(FieldGet(n) )) = \'C\'\n            uDatoVacio :=  Space( Len( (cAlias)-&gt;(FieldGet(n) ) ) )\n         ELSEIF ValType( (cAlias)-&gt;(FieldGet(n) )) = \'L\'\n            uDatoVacio :=  .F.\n         ELSEIF ValType( (cAlias)-&gt;(FieldGet(n) )) = \'D\'\n            uDatoVacio :=  IF(lDateVacio, CTOD(\"//\"), Date() )\n         ENDI\n      ENDIF\n      HashAddMember( { \"OBJ\" + (cAlias)-&gt;(FIELDNAME(n)) },\"O\",,oDatos )\n      HashAddMember( { \"VAR\" + (cAlias)-&gt;(FIELDNAME(n)) },;\n                      IF(ValType( (cAlias)-&gt;(FieldGet(n)) )=\"C\",\"S\", ValType( (cAlias)-&gt;(FieldGet(n) ))),;\n                      IF(!lAppendBlank, (cAlias)-&gt;(FIELDGET(n)) , uDatoVacio),oDatos )\n   NEXT n\nHSetAutoAdd(oDatos,.f. )\n\nIF lBloqueaReg\n   oDatos:lRecnobloqueado:= (cAlias)-&gt;(DBRLOCK( oDatos:nRecnoBloqueado ))\nENDI\nRETURN oDatos\n=======================================\n\nPor otro lado preguntaba la posibilidad de usar estructuras para modificar estas funciones en caso de no poder disponer de los HASH pero con la clase TStruct creo que seria complicado para mi llegar a generar lo mismo.\n\nSaludos','',0,'GA==','1dh8pjpe',1,0,'',57,0,0),(22951,5186,7,449,0,'212.64.224.241',1165238199,1,0,1,1,1,1,'','','Hola,\n\n\nON DLBCLICK ACTION ( function1(), a=b, function2() )\n\no \n\nobjeto:bAction := {|| ( function1(), a=b, function2() ) }\n\n\nSiau.\nC.','',0,'GA==','3tr7xm6b',1,0,'',449,0,0),(22952,5139,7,2,0,'87.218.146.203',1165239339,1,0,1,1,1,1,'','','&gt; Como puedo colocar las bases de datos en RAM. \n\ntenlas en cualquier directorio que no sea \"SD card\" ó \"Tarjeta Memoria\"','',0,'GA==','gamz6m9c',1,0,'',2,0,0),(22953,5139,7,527,0,'83.38.15.58',1165240045,1,0,1,1,1,0,'','Gracias','Gracias','',0,'GA==','mzmcalsk',1,0,'',527,0,0),(22954,5158,6,278,0,'164.77.49.167',1165240476,1,0,1,1,1,1,'','','Biel :\n\nMuchas Gracias por responderme. Esto me tranquiliza, pensaba que estaba por mal camino. Te lo agradezco mucho.\n\nVoy a bajar el ultimo build y lo probaré.\n\nSaludos,\nJuan','',0,'GA==','1jekxn9v',1,0,'',278,0,0),(22955,5187,6,264,0,'200.91.3.10',1165240494,1,0,1,1,1,1,'','direccion de correo del Maestro Herman (TWBrowse )?','Alguien sabe la direcicon de correo de Hermam ( TWBrowse )\nDecia en su sitio <!-- e --><a href=\"mailto:twbrowse@cesotech.com.ar\">twbrowse@cesotech.com.ar</a><!-- e -->\nPero rebota....\nAgradecido de antemano.\nSaludos','',0,'GA==','1yh3zyi2',1,0,'',264,0,0),(22956,5188,3,267,0,'200.208.238.2',1165241302,1,0,1,1,1,1,'','Error after to bring up to date for FWH/28 of October','Hi,\n\nAfter the update, started to appear the following error:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'AdsCloseCachedTables\' referenced from C:\\XHARBOUR\\LIB\\RDDADS.LIB|adsfunc','',0,'GA==','4ruww669',1,0,'',267,0,0),(22957,5141,6,278,0,'164.77.49.167',1165241376,1,0,1,1,1,1,'','','Leandro:\n\nGracias por responder, te escribo a tu privado.\n\nAtte.\n\nJuan','',0,'GA==','2boqalyd',1,0,'',278,0,0),(22958,5189,3,6,0,'87.18.232.234',1165243838,1,0,1,1,1,1,'','Error in TTreeView','ScanItem must be ScanItems:\n\n[code:3jju98z4]METHOD GetSelected&#40;&#41; CLASS TTreeView\n\nreturn ScanItem&#40; &#58;&#58;aItems, TVGetSelected&#40; &#58;&#58;hWnd &#41; &#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD GetItem&#40; hItem &#41; CLASS TTreeView\n\nreturn ScanItem&#40; &#58;&#58;aItems, hItem &#41;[/code:3jju98z4]\n\nEMG','',0,'AIA=','3jju98z4',1,0,'',6,0,0),(22959,5161,6,875,0,'64.76.108.179',1165244576,1,0,1,1,1,0,'','Gracias','Bueno Baje el HARBOUR que tu sugeriste a un usuario del foro <!-- w --><a class=\"postlink\" href=\"http://www.fivetech.com/files/harbour(creo\">www.fivetech.com/files/harbour(creo</a><!-- w --> que esa es la direcccion) y Ahora ya todo esta OK.\n\nDe igual manera Gracias Antonio\n\n\nJaime','',0,'AIA=','dry2s6og',1,0,'',875,0,0),(22960,5190,3,51,0,'80.122.88.242',1165244790,1,0,1,1,1,0,'','Is there any chance that OfficeBar is bundled into Fivewin?','Is there any chance that OfficeBar is bundled into Fivewin? \n\nFor me this would make sense. Otherwise there is too less  money  to keep up  serious development of this control.\n\nWhat do you think?\n\nRegards \nOtto','',0,'AIA=','2yuuoo3g',1,0,'',51,0,0),(22961,3421,6,221,0,'200.109.237.199',1165245604,1,0,1,1,1,0,'','compartir','me consegui este post y me gustaria lo compartan conmigo o con todos por que no, <!-- e --><a href=\"mailto:alex_patino74@hotmail.com\">alex_patino74@hotmail.com</a><!-- e -->, gracias','',0,'AIA=','3qvjtudg',1,0,'',221,0,0),(22962,5191,7,720,0,'80.59.110.137',1165248107,1,0,1,1,1,0,'','Se puede usar strtofile() y filetostr()???','Hola a todos...\n\nAlguien sabe si en fwppc existe alguna funcion similar a strtofile() y a filetostr()?\n\nSaludos..\n\nElías Torres.','',0,'AIA=','1asb4fv2',1,0,'',720,0,0),(22963,5189,3,6,0,'87.18.232.234',1165248189,1,0,1,1,1,1,'','Re: Error in TTreeView','No, it is not enough. Please look at\n\n[code:16zgrpnw]static function ScanItems&#40; aItems, lExpand, lToggle &#41;[/code:16zgrpnw] \n\nand at\n\n[code:16zgrpnw]return ScanItems&#40; &#58;&#58;aItems, TVGetSelected&#40; &#58;&#58;hWnd &#41; &#41;[/code:16zgrpnw]\n\nand\n\n[code:16zgrpnw]return ScanItems&#40; &#58;&#58;aItems, hItem &#41;[/code:16zgrpnw]\n\nIt seems that the second parameter has to be logical.\n\nWhat am I missing?\n\nEMG','',0,'AIA=','16zgrpnw',1,0,'',6,0,0),(22964,5006,6,221,0,'200.109.237.199',1165248234,1,0,1,1,1,0,'','sobre los browses','yo creo que los que pasamos de clipper a fivewin es el problema principal que nos tranco o tranca a todos y los ejemplos que vienen son muy basicos casi siempre con una tabla, etc, siempre y me incluyo tengo el problema de hacer una pantalla en que sn 2 partes, una parte encabezado y otra detalles, llamase asientos de contabilidad, facturacion, etc y no hay ningun ejemplo claro, yo todavia uso listbox porque el hecho de meterme con esos browse me da pavor, me pueden salir cualquier cantidad de detalles que me tranquen durante semanas, aunque se ven horribles, trato en principio de que funciones y luego me ocupare de la apariencia, ya que esos detalles de decoracion por decirlo de una manera quitan demasiado tiempo, estamos bombardeados con txwbrose, wbrose, sbrowse y la verdad nadie saber decir cual es el mejor ya que cada quien tiene una necesidad diferente, pero basicamente el lo que piden aqui, me gustaria un ejemplo tanbien claro de algo sencillo, sin rebusques de lo que digo, gracias','',0,'AIA=','13onftnc',1,0,'',221,0,0),(22965,5189,3,6,0,'87.18.232.234',1165248504,1,0,1,1,1,1,'','Re: Error in TTreeView','Found! It seems that ScanItem() function is missing from the latest TTreeView:\n\n[code:2ulk2e9z]static function ScanItem&#40; aItems, hItem &#41;\n\n   local n, oItem\n\n   for n = 1 to Len&#40; aItems &#41;\n      if Len&#40; aItems&#91; n &#93;&#58;aItems &#41; &gt; 0\n         if &#40; oItem &#58;= ScanItem&#40; aItems&#91; n &#93;&#58;aItems, hItem &#41; &#41; != nil\n            return oItem\n         endif\n      endif\n      if aItems&#91; n &#93;&#58;hItem == hItem\n         return aItems&#91; n &#93;\n      endif\n   next\n\nreturn nil[/code:2ulk2e9z]\n\nEMG','',0,'AIA=','2ulk2e9z',1,0,'',6,0,0),(22966,5109,7,720,0,'80.59.110.137',1165250414,1,0,1,1,1,0,'','','Antonio, \n\npara poder hacer que la tabla sea libre, no existe algo parecido a StrToFile() o a FileToStr() del fox pro??\n\nLo digo porque la solución sería mas rapida..(convierto a caracter el fichero *.dbf, busco la ristra que contenga el nombre de la base de datos *.dbc, la sustituyo por espacios en blanco, y luego vuelvo a pasarlo a fichero, con lo que ya tendría de forma directa la trasformación de la tabla....)\n\nSi por un casual esto no se puede hacer supongo que la otra forma seria algo asi:\n\n\nlnFile = fopen(curdir()+\"\\articulo.dbf\")\nif lnFile &lt; 0\n  msginfo(\"Error al abrir el archivo.\")\nelse\n  i = 0\n  do while !feof(lnFile)\n   \n&amp;&amp;aqui va el codigo que no lo tengo muy claro....\n\n  enddo\n  fclose(lnFile)\nendif\n\nAlguien puede hecharme una mano en esto???\n\n\nSaludos y gracias..\n\n\nElías Torres.','',0,'AIA=','2ncqybxm',1,0,'',720,0,0),(22967,5109,7,2,0,'87.218.146.203',1165251472,1,0,1,1,1,1,'','','Elías,\n\nEste sería un prototipo, y está funcionando bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->:\n[code:1ifixw3l]\nREQUEST DBFCDX\n\nfunction Main&#40;&#41;\n\n   FoxDBF&#40; &quot;articulo&#46;dbf&quot; &#41;\n   \n   USE articulo VIA &quot;DBFCDX&quot;\n   MsgInfo&#40; Alias&#40;&#41; &#41;\n   USE\n   \n   FoxDbf&#40; &quot;articulo&#46;dbf&quot;, &quot;datos&#46;dbc&quot; &#41;\n   \nreturn nil\n\nfunction FoxDbf&#40; cDbfName, cDbc &#41;\n\n   local hFile &#58;= FOpen&#40; cDbfName, 1 &#41;\n   \n   if hFile != -1\n      FSeek&#40; hFile, 0x41 &#41;\n      if cDbc == nil\n         FWrite&#40; hFile, Replicate&#40; Chr&#40; 0 &#41;, 15 &#41; &#41;\n      else\n         FWrite&#40; hFile, cDbc &#41;\n      endif      \n      FClose&#40; hFile &#41;\n   endif\n   \nreturn nil\n[/code:1ifixw3l]','',0,'AIA=','1ifixw3l',1,0,'',2,0,0),(22968,5191,7,2,0,'87.218.146.203',1165251986,1,0,1,1,1,1,'','','Elías,\n\nLas funciones equivalentes son MemoRead( cFileName ) --&gt; cText y MemoWrit( cFileName, cText )\n\nPero mira la solución que te hemos propuesto en tu otro mensaje, es más eficiente ya que no hay que cargar la DBF en memoria <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','t8d086wf',1,0,'',2,0,0),(22969,5190,3,2,0,'87.218.146.203',1165252368,1,0,1,1,1,1,'','','Otto,\n\nWe, FiveTech Software, are having conversations with Paco García, to make the official distribution of his new controls, bundled with our products.','',0,'AIA=','10bmyc2x',1,0,'',2,0,0),(22970,5188,3,2,0,'87.218.146.203',1165252598,1,0,1,1,1,1,'','','Vilian,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=21746#21746\">http://fivetechsoft.com/forums/viewtopi ... 1746#21746</a><!-- m -->','',0,'AIA=','25cxqn55',1,0,'',2,0,0),(22971,5190,3,51,0,'80.122.88.242',1165254097,1,0,1,1,1,0,'','','Antonio, Paco,\nI hope so much that the negotiations will be successfully.\nRegards\nOtto','',0,'AIA=','wp8hkbpe',1,0,'',51,0,0),(22972,5192,1,819,0,'216.34.194.113',1165255296,1,0,1,1,1,0,'','Duplicate/redifinition of','FW,\n\nI am recieving a Duplication/redifinition compilation error when I include the fivewin.ch\n\nAny Idea?','',0,'AIA=','2ql1zn4n',1,0,'',819,0,0),(22973,5193,1,819,0,'216.34.194.113',1165255766,1,0,1,1,1,0,'','Redifinition/duplicate','FW,\n\nI wonder if there is a difference between Clipper and XHarbour Fivewin.ch?','',0,'AIA=','3vy91ndl',1,0,'',819,0,0),(22974,5194,6,743,0,'200.67.230.223',1165256406,1,0,1,1,1,0,'','ado,  wbrowse duda','tengo la siguiente uregencia, quiero saber si se puede hacer una busqueda como lo hacia con dbf, cuando este tecleando las letras se posesione en el registo correspondiente, eso se puede hacer con ado, uso sql server \n\ngracias','',0,'AIA=','17gf1af8',1,0,'',743,0,0),(22975,5195,6,875,0,'64.76.108.179',1165256952,1,0,1,1,1,0,'','No aparece Ventana','El viernes pasado estuve compilando programas con Harbour sin problemas y cuando Hoy Lunes compile empezo a salir errores luego de varios cambios ya no salieron errores PERO NO APARECE NADA EN PANTALLA(un Ventana que habia creado).  Luego probe con el ejemplo TUTOR02 lo compile y creo el EXE sin problemas pero cuando lo ejecuto no o aparece nada en pantalla.   QUE PUEDE SER? . Lo mas raro es que con el ejemplo Tutor01 si aparece el mensaje en pantalla. Todo lo que sea con Define Window/Activate Window no aparece en pantalla. QUE PUEDE SER que de la noche a la mañana no funcione. \n\nJaime','',0,'AIA=','1n5zcvdj',1,0,'',875,0,0),(22976,5196,7,57,0,'88.0.86.53',1165257052,1,0,1,1,1,1,'','No cierra correctamente','Antonio\nHe actualizado mi FWPPC a la última versión y si cierro una aplicación desde la [X] de la ventana que utiliza Folders se cierra pero solo aparentemente. Si intentas eliminar el fichero EXE te indica que no permite su eliminación porque está todavía en uso. \n\nLas pruebas las he realizado con testfld.prg de samples\n\nSaludos\nToni Sales','',0,'','226u35w0',1,0,'',57,0,0),(22977,5197,3,455,0,'195.97.105.161',1165257153,1,0,1,1,1,0,'','Picture &quot;@!&quot; (upper case) problems','Hi all.\n\nIn my greek language programs, I am using the font\nCOURIER NEW GREEK.\nThere is no problem in display a GET variable if characters are in English language, when I use  PICTURE \"@!\".  Everything is in upper case.\n\nIf I use extended keyboard characters, e.g. ASCII Chr(129), I do not get the correct character....  I get something that I cannot read, or sometimes (with certain Chr(), I get something that is not even shown.\nSame applies, if I type something in \"EL\" language.\n\nThis does not  happen if I remove the clause PICTURE \"@!\" from the GET.\nIn this case, all the characters are shown correctly, in the same font and they are absolutely readable.\n\nPlease let me know if there is any solution to this problem, preferable, where to find the source code for this modification to upper case, when we use PICTURE \"@!\"\n\nThanks to all converned...\n\nps. I wonder if anyone else (non-english), has the same problem with their national language characters.','',0,'','2ncnzihx',1,0,'',455,0,0),(22978,5198,6,509,0,'83.33.158.120',1165257562,1,0,1,0,1,0,'','Enlazar fichero XSCRLL.C  del GRID de CanalFive','¿Cómo puedo solucionar este error:\nError: Unresolved external \'_HB_FUN_XHSCRLL\' referenced from C:\\RICARDO\\HWINAGE\\OBJ\\GRID.OBJ al enlazar el fichero XSCRLL.C de la librería GRID de CanalFive ?\n\n#include &lt;WinTen.h&gt;\n#include &lt;Windows.h&gt;\n#include &lt;ClipApi.h&gt;\n\n\nCLIPPER xVScrll() // ( hWnd, wRows, nHRow, nRows, lHeader, nHeader )\n{\n   HWND hWnd     = _parni( 1 );\n   WORD wRows    = _parni( 2 );\n   int  nHRow    = _parni( 3 );\n   int  nRows    = _parni( 4 );\n   HDC hDC     = GetDC( hWnd );\n   RECT rct;\n   BOOL bHeader = _parl( 5 );\n   WORD nHeader = _parni( 6 );\n\n   GetClientRect( hWnd, &amp;rct );\n\n   if ( bHeader )\n      rct.top    = nHeader + 1;\n      rct.bottom = ( nHRow * nRows ) - 1;\n      ScrollWindowEx( hWnd, 0, -( nHRow * wRows ), 0, &amp;rct, 0, 0, 0 );\n      ReleaseDC( hWnd, hDC );\n}\n\n//----------------------------------------------------------------------------//\n\nCLIPPER xHScrll() // ( hWnd, nCols, nLeft, nRight )\n{\n   HWND hWnd     = _parni( 1 );\n   WORD wCols    = _parni( 2 );\n   int nLeft   = _parni( 3 );\n   int nRight  = _parni( 4 );\n   HDC hDC     = GetDC( hWnd );\n   RECT rct;\n\n   GetClientRect( hWnd, &amp;rct );\n\n   if ( nLeft ) {\n      rct.left = nLeft;\n   }\n\n   if ( nRight ) {\n      rct.right = nRight;\n   }\n\n\n   ScrollWindowEx( hWnd, wCols, 0, 0, &amp;rct, 0, 0, 0 );\n\n\n   ReleaseDC( hWnd, hDC );\n}\n\n//----------------------------------------------------------------------------//\n\n\Z','',0,'','3abfoz3l',1,0,'',509,0,0),(22979,5197,3,303,0,'72.199.41.171',1165258548,1,0,1,1,1,0,'','','Ed,\n\nI don\'t work with non-English languages, but here is where the \"@!\" picture is processed. In TGET.PRG look at Method keyChar() and you will find this code:\n\n[code:maopd9d6]   if ! Empty&#40; &#58;&#58;cPicture &#41; &#46;and&#46; \'@!\' $ &#58;&#58;cPicture\n      nKey = Asc&#40; Upper&#40; Chr&#40; nKey &#41; &#41; &#41;\n   endif[/code:maopd9d6]\n\nYou could create a simple test program to see if it is converting your characters properly.\n\nRegards,\nJames\n\nP.S. Say Hi to Chris for me.','',0,'AIA=','maopd9d6',1,0,'',303,0,0),(22980,5192,1,303,0,'72.199.41.171',1165258691,1,0,1,1,1,0,'','','Probably one of the other includes you have is already being called by fivewin.ch.\n\nJames','',0,'AIA=','1gy16a77',1,0,'',303,0,0),(22981,5199,20,8,0,'213.45.250.182',1165259219,1,0,1,1,1,0,'','OT : Visualizzare un campo BLOB mysql con ASP','Salve a tutti, ho la necessità di visualizzare un campo blob da una tabella mysql in una pagina ASP. Il campo viene gestito da SQLRDD per simulare i campi memo e quindi memorizza al suo interno, in binario, il testo digitato. Avendo la necessita di visualizzare il contenuto in una pagina ASP non sono ancora riuscito a trovare un modo efficente per convertire il contenuto binario in testo usando vbscript. Qualche idea ?\nGrazie in anticipo.','',0,'AIA=','10qykde2',1,0,'',8,0,0),(22982,5194,6,456,0,'217.124.40.201',1165259340,1,0,1,1,1,1,'','','Si, utilizando el metodo Find del recordset. Yo lo tengo implementado con xBrowse, pero debe de ser igual para wBrowse.','',0,'AIA=','3n4ndd30',1,1165307798,'',456,1,0),(22983,5177,6,439,0,'190.64.39.122',1165261520,1,0,1,1,1,1,'','Re: Pasaje de Fw a Fwh','[quote=&quot;surGom&quot;:pdqrp1l5]Bueno ... xlserror.ch..ahora se los solicito si alguien lo posee. \nLuis[/quote:pdqrp1l5]\n\nCon gusto, te lo adjunto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c79a9783/XLSError.ch.html\">http://hyperupload.com/download/02c79a9 ... or.ch.html</a><!-- m -->','',0,'gA==','pdqrp1l5',1,0,'',439,0,0),(22984,5200,7,57,0,'88.0.86.53',1165261948,1,0,1,1,1,1,'','TGet en Folder no pinta correctamente','Antonio\nFíjate en las imágenes. En Gets dentro de folders el fondo no lo pinta completamente.\n\n[img:3cdd0q14]http&#58;//hyperupload&#46;com/download/0228d13328/BMP1&#46;bmp&#46;html[/img:3cdd0q14]\n\n[img:3cdd0q14]http&#58;//hyperupload&#46;com/download/02539f9f69/BMP2&#46;bmp&#46;html[/img:3cdd0q14]\n\nSaludos','',0,'CA==','3cdd0q14',1,0,'',57,0,0),(22985,5006,6,46,0,'217.168.114.145',1165262632,1,0,1,1,1,0,'','','He aqui un semicodigo para que puedan darse una idea...\nusando DATABASE...con Twbrowse... aun para losotros browse debe ser iguall y.. se sipone usando cdx.. por lo de ordscope\n\n\n[code:1ewtzh9z]\nFunction FacturaEdit&#40; lNuevo &#41;\nLocal oCli, oFac, oDet, oClon, oGet\nLocal oLbx, oBtn&#91; 3 &#93;\n\nUse Clientes New // Campos&#58; Codigo Nombre\nDATABASE oCli\n\nUse Facturas New // Campos&#58; Numero Codigo ValorTotal\nDATABASE oFac\n\nUser Detalle New // Campos&#58; Numero Detalle Valor\nDATABASE oDet\n\nIf lNuevo\n   oFac&#58;NUMERO &#58;= UnNuevoNumero&#40;&#41; //como incrementas tu numero de la factura !!\nEndIf\n\n&#40; oDet&#58;nArea &#41;-&gt;&#40; OrdScope&#40; 0, oFac&#58;NUMERO &#41; &#41;\n&#40; oDet&#58;nArea &#41;-&gt;&#40; OrdScope&#40; 1, oFac&#58;NUMERO &#41; &#41;\n\nDEFINE DIALOG oDlg &#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\n   REDEFINE GET oGet VAR oFac&#58;NUMERO ID 4002 OF oDlg READONLY\n\n   REDEFINE GET oGet VAR oFac&#58;CODIGO ID 4003 OF oDlg ;\n                     VALID oCli&#58;Seek&#40; oFac&#58;CODIGO &#41;\n\n    ///TWBROWSE &#46;&#46;&#46;&#46;&#46;\n    REDEFINE LISTBOX ID 4001 OF oDlg UPDATE ;\n                     FIELDS oDet&#58;DETALLE, oDer&#58;VALOR ;\n                     HEADERS &quot;Detalle&quot;, &quot;Valor&quot; ;\n                     SIZES 200, 90              ;\n                     ALIGN &#46;T&#46;, &#46;F&#46; ;\n\n\n           oDet&#58;bBof      &#58;= &#123;|| Nil &#125;\n           oDet&#58;bEof      &#58;= &#123;|| Nil &#125;\n           oDbf&#58;bNetError &#58;= &#123;|| Nil &#125;\n           oLbx&#58;cAlias    &#58;= oDet&#58;cAlias  //Importante\n\n           oLbx&#58;bLogicLen &#58;= &#123;|| oDet&#58;RecCount&#40;&#41; &#125;\n           oLbx&#58;bGoTop    &#58;= &#123;|| oDet&#58;GoTop&#40;&#41; &#125;\n           oLbx&#58;bGoBottom &#58;= &#123;|| oDet&#58;GoBottom&#40;&#41; &#125;\n           oLBx&#58;bSkip     &#58;= &#123;| nSkip | oDet&#58;Skipper&#40; nSkip &#41; &#125;\n\n    //botones\n    REDEFINE BUTTON oBtn&#91; 1 &#93; ID 4007 OF oDlg PROMPT \'Nuevo&quot; ;\n                              ACTION oClon &#58;= oClone&#40; oDet &#41;, ;\n                                     NuevoDetalle&#40; oClon, oFac &#41;, ;\n                                     oDlg&#58;Update&#40;&#41;\n\n\n    REDEFINE BUTTON oBtn&#91; 2 &#93; ID 4008 OF oDlg PROMPT \'Modificar&quot; ;\n                              ACTION oClon &#58;= oClone&#40; oDet &#41;, ;\n                                     ModificarDetalle&#40; oClon, oFac &#41;, ;\n                                     oDlg&#58;Update&#40;&#41;\n\n\n    REDEFINE BUTTON oBtn&#91; 3 &#93; ID 4009 OF oDlg PROMPT \'Eliminarr&quot; ;\n                              ACTION If&#40; MsgYesNo&#40; &quot;Quieres&quot; &#41;, ;\n                                         &#40; oDet&#58;Delete&#40;&#41;,\n                                           oDlg&#58;Update&#40;&#41; &#41;, &#41;\n\n    REDEFINE BUTTON ID 4010 OF oDlg PROMPT \'Grabar&quot; ;\n                            ACTION GrabarFactura&#40; oFac, lNuevo &#41;\n    &#46;&#46;&#46;&#46;&#46;&#46;\n    ACTIVATE DIALOG oDlg\n\n    Return Nil\n\nFunction NuevoDetalle&#40; oDet, oFac &#41;\n   Local oDlg, oGet\n\n   oDet&#58;Blank&#40;&#41;\n   oDet&#58;NUMERO &#58;= oFac&#58;NUMERO\n\n   DEFINE DIALOG oDlg RESOURCE \'EDITDETALLE\'\n          REDEFINE GET oGet VAR oDet&#58;DETALLE ID 4001 OF oDlg\n          REDEFINE GET oGet VAR oDet&#58;VALOR ID 4002 PICTURE \'999,999,999&#46;99\' OF oDlg\n\n   ACTIVATE DIALOG oDlg\n\n   oDet&#58;Append&#40;&#41;\n   oDet&#58;Save&#40;&#41;\n\n   Return Nil\n\nFunction ModificarDetalle&#40; oDet, oFac &#41;\n   Local oDlg, oGet\n\n   oDet&#58;Load&#40;&#41;\n\n   DEFINE DIALOG oDlg RESOURCE \'EDITDETALLE\'\n          REDEFINE GET oGet VAR oDet&#58;DETALLE ID 4001 OF oDlg\n          REDEFINE GET oGet VAR oDet&#58;VALOR ID 4002 PICTURE \'999,999,999&#46;99\' OF oDlg\n\n   ACTIVATE DIALOG oDlg\n\n   oDet&#58;Save&#40;&#41;\n\n   Return Nil\n\n\nFunction GrabarFactura&#40; oFac, lNuevo &#41;\n   If lNuevo\n      oFac&#58;Append&#40;&#41;\n   EndIf\n\n   oFac&#58;Save&#40;&#41;\n\n   Return Nil\n[/code:1ewtzh9z]\n\nSaludos','',0,'AIA=','1ewtzh9z',1,0,'',46,0,0),(22986,5194,6,743,0,'200.67.230.223',1165263459,1,0,1,1,1,0,'','','y tendras un ejemplo que me puedas mostrar por favor','',0,'AIA=','1lb7iecd',1,0,'',743,0,0),(22987,5195,6,54,0,'189.132.106.181',1165266196,1,0,1,1,1,1,'','Re: No aparece Ventana','[quote=&quot;jacgsoft&quot;:xl90z1pb]El viernes pasado estuve compilando programas con Harbour sin problemas y cuando Hoy Lunes compile empezo a salir errores luego de varios cambios ya no salieron errores PERO NO APARECE NADA EN PANTALLA(un Ventana que habia creado).  Luego probe con el ejemplo TUTOR02 lo compile y creo el EXE sin problemas pero cuando lo ejecuto no o aparece nada en pantalla.   QUE PUEDE SER? . Lo mas raro es que con el ejemplo Tutor01 si aparece el mensaje en pantalla. Todo lo que sea con Define Window/Activate Window no aparece en pantalla. QUE PUEDE SER que de la noche a la mañana no funcione. \n\nJaime[/quote:xl90z1pb]\n\nJaime,\n\nMe pasó lo mismo, y habia sido una actualizacion de xharbour que me genero el detalle, checale por ese lado.\n\nSaludos','',0,'gA==','xl90z1pb',1,0,'',54,0,0),(22989,5197,3,455,0,'195.97.105.161',1165267020,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:2zq4xbz1]Ed,\n\nI don\'t work with non-English languages, but here is where the \"@!\" picture is processed. In TGET.PRG look at Method keyChar() and you will find this code:\n\n[code:2zq4xbz1]   if ! Empty&#40; &#58;&#58;cPicture &#41; &#46;and&#46; \'@!\' $ &#58;&#58;cPicture\n      nKey = Asc&#40; Upper&#40; Chr&#40; nKey &#41; &#41; &#41;\n   endif[/code:2zq4xbz1]\n\nYou could create a simple test program to see if it is converting your characters properly.\n\nRegards,\nJames\n\nP.S. Say Hi to Chris for me.[/quote:2zq4xbz1]\n\nJames, \n\nThanks for the reply!\n\nMy name is not Ed, of course, but this is Ok...  <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nI knew about the above UPPER conversion a long time ago, and  had already changed this as follows (in TGET.PRG)\n\n[code:2zq4xbz1]   if ! Empty&#40; &#58;&#58;cPicture &#41; &#46;and&#46; \'@!\' $ &#58;&#58;cPicture\n      if Chr&#40;nKey&#41; $ \'abcdefghijklmnopqrstuvwxyz\'\n         nKey = Asc&#40; Upper&#40; Chr&#40; nKey &#41; &#41; &#41;\n      endif\n   endif[/code:2zq4xbz1]\n\nFollowing down the code, I have tracked the error...\n\nIt is in TRANSFORM() where the error is done... and unfortunately, I don\'t have the code for this function <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nI believe that the FWH/XHARBOUR gurus could probably tell me, why this is happening.???\n\nFor example, I input the character Chr(229), and the  function TRANSFORM() returns Chr(GodKnowsWhat),  which has nothing to do with the inputed character 229.\n\nAny help for the big guys will be welcome...\n\nps. No problem with the basic english (latin) characters...\nProblems start with characters after Chr(128) \n(The Chr(128) is an upper case \"A\" in the greek language)\n\nThanks to all and of course I\'m waiting...\n\nRegards to all\nEvans','',0,'gIA=','2zq4xbz1',1,0,'',455,0,0),(22990,5195,6,875,0,'64.76.108.179',1165268182,1,0,1,1,1,0,'','De nuevo','Pero yo estoy usando HARBOUR y no xHarbour. Hasta ahora no funciona que podra ser. Todo funciona menos lo que sea con Define Window/Activate Window (Ejemplo TUTOR02 no funciona). Encima no genera error cuando compila y genera el EXE, todo lo hace OK. PERO NO APARECE NADAAAAAAAAA    Mejor no hubiera apagado mi PC el viernes ja ja ja ja.  \n\n\nHelpppppppppppp\n\n\nJaime','',0,'gIA=','1jtyw83e',1,0,'',875,0,0),(22991,5154,6,867,0,'148.243.37.162',1165269408,1,0,1,1,1,0,'','Hola','Hola corazon , tal vez estes definidiendo mal la variable y sus elementos, le podrias indicar de esta manera si deseas sumarizar o totalizar x cantidad. ejemplo\n\naSum := {0,0,0,0} \n\ndo while !eof()\n     aSum[1,1] += IMPORTE\n     aSum[1,2] += CANTIDAD\n     aSum[1,3] += IVA\n     aSum[1,4] += TOTAL\nenddo\n\nDefinir sus 4 arreglos de elementos, espero que me haya explicado , a mi me funciona en fivewin\n\nSu amiga Susy','',0,'','3cm7rhmv',1,0,'',867,0,0),(22992,5202,6,519,0,'83.32.148.1',1165270995,1,0,1,1,1,0,'','Database  duda sobre como funciona','Hola\n\n   Estoy utilizando la clase database de fwh,, pero no se lo que pasa que al abrir un dialog y editar un registro al volver al browse algunas veces me duplica el registro y me borra otro, creo que el problema puede esta en el puntero que se mueve,  es una cosa  muy rara, como puedo controlar para que el puntero no se mueva al editar el registro ?\n\n\n  Un saludo y gracias desde ya','',0,'','1nlp8s33',1,0,'',519,0,0),(22993,5195,6,2,0,'87.218.146.5',1165271441,1,0,1,1,1,1,'','','Jaime,\n\nEstás compilando con /n ?\n\nSupongo que si porque tutor01.prg te funciona bien, si ?','',0,'','1mo3l22h',1,0,'',2,0,0),(22994,5193,1,2,0,'87.218.146.5',1165271528,1,0,1,1,1,1,'','','No, it is the same file.','',0,'','o8rowkgf',1,0,'',2,0,0),(22995,5197,3,303,0,'72.199.41.171',1165272806,1,0,1,1,1,0,'','','Evans,\n\n&gt;It is in TRANSFORM() where the error is done... and unfortunately, I don\'t have the code for this function.\n\nI remember there was a problem with this function--it seems like it was about a year ago. I posted the problem and it was fixed. However, the fixed version may still not have fixed your Greek language problem. Are you using a recent version of (x)Harbour (less than a year old)?\n\nI suggest posting a message on the xHarbour newsgroup (news.xHarbour.org).\n\nJames','',0,'','1oaxgj5j',1,0,'',303,0,0),(22996,5203,6,492,0,'189.147.23.225',1165276859,1,0,1,1,1,1,'','checar si esta instalado el FlashPlayer en el equipo...','Hola a todos \n\nExiste alguna manera de validar si esta instalado el FlashPlayer en el equipo al momento de iniciar la aplicacion ?? y en caso que no este, poder hacer algun proceso para instalarlo, ya sea desde archivo o por conexion a internet.\n\n\nEsto me ha pasado con clientes que tienen w2000 o w2003 server.\n\nMuchas gracias.\n\n\nSALUDOS','',0,'','3songf4y',1,0,'',492,0,0),(22997,5188,3,267,0,'201.9.156.55',1165280890,1,0,1,1,1,1,'','','Hi Antonio,\n\nThanks.','',0,'','2jnzlvox',1,0,'',267,0,0),(22998,5183,3,15,0,'203.73.54.46',1165284051,1,0,1,1,1,0,'','','[quote=&quot;Dietmar Jahnel&quot;:2mhxp098]Your are right:\n\ntGet invokes the default popup menu,\nmGet has its own in english.\n\nThanks!\nDiemtar[/quote:2mhxp098]\n\nYou\'re welcome. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRichard','',0,'gA==','2mhxp098',1,0,'',15,0,0),(22999,5198,6,15,0,'203.73.54.46',1165284882,1,0,1,1,1,0,'','','Hello\n\nI have C5 Grid full source code.\nHow do I help you?\n\nRichard','',0,'gA==','1wh4cysk',1,0,'',15,0,0),(23000,5190,3,215,0,'189.136.224.201',1165287389,1,0,1,1,1,1,'','yo tambien','Yo tambien. Espero que terminen en éxito que ya quiero mi C5Menu y el control office.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nSaludos\nFernando\nMéxico','',0,'gA==','2pynn3ro',1,0,'',215,0,0),(23001,5063,1,186,0,'66.130.50.142',1165289687,1,0,1,1,1,1,'','','Bonjour Badara,\n\nJe n`ai aucun problèmes avec tes fonctions, si tu parles de celles qui remplacent la recherche ses imprimantes sous Windows. Je travail présentement à développer une classe qui permettra de retracer les imprimantes actives sous Windows à partir de la base de registre. Je te remercie pour les sources que tu as poster sur le forum elles ont été une source d`inspiration. Je n`utilise pas ces fonctions telles que tu as publiées, mais l`idée derrière ces fonctions m`ont grandement aider à découvrir une méthode de contourner Fivewin. \n\nJ`étais rendu au point de récupérer les information (DevMode) des imprimantes configurées sous Windows. Malheureusement les fonctions de Fivewin qui devrait permettre d`y parvenir  n`ont pas l`air de fonctionner correctement. J`ai alors mis beaucoup de temps à décrotiquer la base de régistre de Windows pour découvrir que sous Win2000 et WinXP il est relativement facile d`extraire ces informations. Malheur, impossible d`en faire autant sous Win98. Je suis donc revenu à la casse départ encore un fois. \n\nTout comme toi, nombreux sont les messages que j`ai laisser sans jamais avoir de réponse. Même le principal concerné (AL) n`a jamais oser répondre. Pourquoi ? Je n`en sais rien, mais je crois qu`il ne veut pas se foutre dans la m...\n\nMalheureusement, j`ai dû laisser ce travail de côté pour un certain temps, le temps de régler une autre situation tout aussi complexe que celle des imprimantes.\n\nEntretemps je suis tombé sur de l`information intéressante concernant un autre interface GUI qui semble très intéressante. Je fait présentement des test avec cette dernière. Une fois ces tests terminés je devrai prendre une décision à savoir si je reste avec Fivewin ou non. En passant ce sont des gens de chez toi. Je ne peux révéler le nom du produit sur ce forum, mais si tu me laisse ton E-Mail je te ferai parvenir l`information discrètement.\n\nMon but est de transféré mes applications en 32Bits. Jusqu`à présent je me suis cogné le nez à de nombreux obstacles. Même si ont dit que FWH n`a pas les problèmes de Fivewin, je n`y crois pas. Le peu de test que j`ai fait avec FWH ont été aussi pénible qu`avec Fivewin. La syntax nèst pas mieux, la documentation non plus et toutes les fonctions qui ne fonctiones pas bien sous Fivewin ne fonctionnent pas plus sous FWH.\n\nDepuis trois ans que j`y travaille, la seule solution que je vois en bout de ligne est de réécrire toutes classe de Fivewin. Ce qui ne m`interesse pas.\nAlors, comme je disais précédemment, je fais présentement des test qui vont peut me faire quitter le monde de Fivewin.\n\nDe toute façon, j`en ai raz le bol de me battre avec un language qui ne fonctionne pas à moitié.\n\nRegards,\n\nGilbert','',0,'gA==','2gt33qi3',1,0,'',186,0,0),(23002,5189,3,2,0,'87.218.146.203',1165293246,1,0,1,1,1,1,'','','Enrico,\n\nYes, you are right, thanks! We accepted some Class modifications and they broke the code. Lets use different names to avoid conflicts:\n[code:3fmmdys7]\nMETHOD GetSelected&#40;&#41; CLASS TTreeView\n\nreturn SearchItem&#40; &#58;&#58;aItems, TVGetSelected&#40; &#58;&#58;hWnd &#41; &#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD GetItem&#40; hItem &#41; CLASS TTreeView\n\nreturn SearchItem&#40; &#58;&#58;aItems, hItem &#41;\n\n//----------------------------------------------------------------------------//\n\nstatic function SearchItem&#40; aItems, hItem &#41; \n\n&#46;&#46;&#46;\n\nreturn nil\n[/code:3fmmdys7]','',0,'AIA=','3fmmdys7',1,0,'',2,0,0),(23003,5063,1,2,0,'87.218.146.203',1165293568,1,0,1,1,1,1,'','','Gilbert, Badara,\n\n&gt;\nI`m saying that DevMode(), DeviceCaps() and GetDeviceCaps() are resulting erroneaus results. \n&gt;\n\nCould you please provide us a small sample to reproduce the errors ? Thanks,\n\n&gt;\nI have exactly the same problem with this functions Gilbert, \nsince the day i have purchased FW 2.5 and FWH 2.5. \nI have reported these bugs to Antonio there is o long time, \nnobody do nothing to solve this. \n&gt;\n\nSometimes we miss a tech support requirement. On those ocassions, PLEASE insist to get a fix from us. Thanks,','',0,'AIA=','c9nkmckg',1,0,'',2,0,0),(23004,5164,6,492,0,'189.147.23.225',1165295760,1,0,1,1,1,1,'','','Paco, esta excelente este control !! \n\nCongrats  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nMe surgen algunas preguntas :\n\n- No hay impedimento para montarlo en dialogos ?\n- Aunque suena raro, es posible hacerlo vertical ?\n- Mas raro aun, se puede montar mas de 1 en un window/dialog ?\n- A pesar que tiene los colores \"oficiales\", es posible cambiarlos ?\n\nMuchas Gracias \n\nSALUDOS','',0,'AIA=','2p0puh01',1,0,'',492,0,0),(23005,5196,7,2,0,'87.218.146.203',1165297022,1,0,1,1,1,1,'','','Toni,\n\nArreglado, gracias. Ya hay un nuevo build de FWPPC listo para descargar.','',0,'AIA=','1gorcimk',1,0,'',2,0,0),(23006,5176,7,600,0,'195.66.150.52',1165299717,1,0,1,1,1,0,'','','Carles, como me dice no funciona. La llamada la hago así:\n\nLocal cParametro := \"-url tel:925XXXXXX\"\n\nShellExecute( oWnd:hWnd,\"open\",\"cProg.exe\", cParametro )\n\nY lo único que consigo es activar el Tfno, pero no realiza la llamada, ni me aparece el telefono en el visor de la PDA.\n\nUn saludo\nJuan José','',0,'AIA=','1qngh4vl',1,0,'',600,0,0),(23007,5200,7,2,0,'87.218.146.203',1165299738,1,0,1,1,1,1,'','','Toni,\n\nHemos hecho todo tipo de pruebas -un montón- y no conseguimos de momento que se pinte correctamente. De hecho se pinta bien pero a continuación se cambia (es muy rápido de observar pero ocurre).\n\nTambién ocurre en los GETs en diálogos modales.\n\nEsto te funcionaba antes correctamente ?','',0,'AIA=','11vjkc30',1,0,'',2,0,0),(23008,5176,7,449,0,'212.64.224.241',1165303423,1,0,1,1,1,1,'','','Hola,\n\nHas probado \n\n[code:qwjlh69v]ShellExecute&#40; oWnd&#58;hWnd,&quot;open&quot;,&quot;cProg&#46;exe &quot; + cParametro &#41;[/code:qwjlh69v]\n\nSaludos.\nC.','',0,'AIA=','qwjlh69v',1,0,'',449,0,0),(23009,5194,6,397,0,'201.26.12.94',1165308418,1,0,1,0,1,1,'','','Amigo\n\nYo desarollo una lib con acesso con ADO mira lo exemplo no link:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/hbado.zip\">http://www.shoppmarketing.com/forum/hbado.zip</a><!-- m -->\n\nfunciona con mysql sql_server firebird access xls e xml nativamente','',0,'AIA=','27v270hu',1,0,'',397,0,0),(23010,5194,6,456,0,'62.43.194.117',1165308503,1,0,1,1,1,1,'','','Aqui tienes el ejemplo, con xBrowse se tiene que definir un say que es el que va visualizando la cadena buscada, y un codeblock que busque y devuelva falso o verdadero dependiendo de si ha encontrado o no.\n[code:1807kazx]\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40;oWnd&#41;\noBrw&#58;SetAdo&#40;oRs&#41;\noBrw&#58;CreateFromCode&#40;&#41;\noWnd&#58;oClient &#58;= oBrw\n\noBrw&#58;bSeek               &#58;= &#123; | c | Busca&#40;c,oRs&#41; &#125;\noBrw&#58;oSeek               &#58;= oSay\n\n//---------------------------------\nSTATIC FUNCTION Busca&#40;cBuscar,oRs&#41;\n   LOCAL nLen&#58;=Len&#40;cBuscar&#41;\n   STATIC nLenAnt\n   DEFAULT nLenAnt&#58;=0\n   IF Len&#40;cBuscar&#41;&gt;1\n      IF&#40;nLenAnt&gt;nLen,oRs&#58;MoveFirst&#40;&#41;,&#41;\n      oRs&#58;Find&#40; &quot;Nombre LIKE \'&quot;+cBuscar+&quot;*\'&quot;,,1&#41;\n   ELSE\n      oRs&#58;MoveFirst&#40;&#41;\n      IF !Empty&#40;cBuscar&#41;\n         oRs&#58;Find&#40; &quot;Nombre LIKE \'&quot;+cBuscar+&quot;*\'&quot;,,1&#41;\n      ENDIF\n   ENDIF\n   nLenAnt&#58;=nLen\nRETURN !&#40;oRs&#58;Eof&#46;OR&#46;oRs&#58;Bof&#41;\n[/code:1807kazx]','',0,'AIA=','1807kazx',1,0,'',456,0,0),(23011,5185,6,397,0,'201.26.12.94',1165308708,1,0,1,0,1,1,'','','Amigo\n\nNo te preocupes\n\nUsteds podes tentar mi bilbioteca\n\nMira la explicacion em:\n\n[url=http&#58;//www&#46;pctoledo&#46;com&#46;br/forum/viewtopic&#46;php?t=4792&amp;sid=2ae9b0b3616c8959740754238f97c8a1:2a5cags3]Explicacion en Portugues[/url:2a5cags3]\n\nE baja la lib en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/hbado.zip\">http://www.shoppmarketing.com/forum/hbado.zip</a><!-- m -->\n\nTiene exemplo de uso con mysql, sql-server, access, xml, firebird sem uso de ODBC, és praticamente nativo.','',0,'EA==','2a5cags3',1,0,'',397,0,0),(23012,5200,7,57,0,'88.0.86.53',1165308834,1,0,1,1,1,1,'','','Antonio\nTe adjunto imagen con la versión 1.0 de Julio.\n\nSaludos\n[img:i9tgpuqp]http&#58;//hyperupload&#46;com/download/0228d13317/BMP1&#46;bmp&#46;html[/img:i9tgpuqp]','',0,'CA==','i9tgpuqp',1,0,'',57,0,0),(23013,5176,7,600,0,'195.66.150.52',1165315255,1,0,1,1,1,0,'','','No, tampoco funciona, es más, da un casque.\n\n\nUn saludo\nJuanjose','',0,'CA==','i3dntj1i',1,0,'',600,0,0),(23014,5204,4,20,0,'87.10.213.244',1165317325,1,0,1,1,1,0,'','Folder','PostQuitMessage( 0 ) in the Destroy method close also the first window.\n\n[code:3vdozs6n]\n// FWPPC - Managing multiple windows\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Main&quot;\n\n   @ 2, 2 BUTTON &quot;Second&quot; SIZE 80, 25 ACTION Second_Window&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction Second_Window&#40;&#41;\n\n   local oWnd2, oFld\n\n   DEFINE WINDOW oWnd2 TITLE &quot;Second&quot;\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPTS &quot;One&quot;, &quot;Two&quot; ;\n      DIALOGS &quot;sub1&quot;, &quot;sub2&quot; ;\n      SIZE 225, 245\n\n   ACTIVATE WINDOW oWnd2\n\nreturn nil\n\n#include &quot;&#46;\\&#46;&#46;\\include\\WinApi&#46;ch&quot;\n\nsub1 DIALOG 18, 18, 129, 128\nSTYLE WS_CHILD | 4\n&#123;\n\n&#125;\n\nsub2 DIALOG 18, 18, 129, 128\nSTYLE WS_CHILD | 4\n&#123;\n\n&#125;\n[/code:3vdozs6n]\n\nRegards.\nPier Luigi','',0,'AIA=','3vdozs6n',1,0,'',20,0,0),(23015,5205,6,439,0,'200.125.42.65',1165318364,1,0,1,1,1,1,'','Menues Configurables','Hola a todos!!!!\n\nComo siempre me han ayudado mucho, me tomo el atrevimiento de tirar este tema para saber sus sugerencias y como lo han hecho.\n\nTengo aplicaciones en las que cada usuario tiene sus menúes y barras de botones personalizadas, pero (Rústico yo) <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , las he armado con varias secuencias de:\nIF tal usuario\n   tal menu\nELSEIF tal usuario\n  tal menu\n....\n\nYa sé, es muy elemental <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> , por eso me gustaría saber como lo han resuelto Uds. en sus aplicaciones, para darme algunas ideas.\n\nsi hay porciones de código con la explicación mucho mejor. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nGracias desde ya por sus invalorables aportes a mi rustiquez <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','32oqr9p6',1,0,'',439,0,0),(23017,5185,6,456,0,'62.43.194.117',1165319221,1,0,1,1,1,1,'','','Puedes hacerlo utilizando la funcion SQLConfigDataSource de ODBCCP32.dll\n\n[code:f3c4njz4]\n#include &quot;Fivewin&#46;ch&quot;\nFUNCTION CfgOdbc&#40;&#41;\n   LOCAL nRet,cDriver,cAttribute\n   cDriver   &#58;=&quot;Client Access ODBC Driver &#40;32-bit&#41;&quot;\n   cAttribute&#58;=&quot;DSN=BIEL&quot;+Chr&#40;0&#41;+&quot;DESCRIPTION=descipcion&quot;+Chr&#40;0&#41;+&quot;SERVER=192&#46;168&#46;101&#46;1&quot;\n   nRet&#58;=CrtDtaSrc&#40;0,1,cDriver, cAttribute &#41;\n   //nRet-&gt;0 no se ha creado, 1 creado ok\nRETURN NIL\n\nDLL32 FUNCTION CrtDtaSrc&#40;hWnd AS LONG, nRequest AS LONG, @cDriver as STRING  , @cAttributes as STRING&#41; ;\n   AS _INT PASCAL FROM &quot;SQLConfigDataSource&quot; LIB &quot;ODBCCP32&quot;\n[/code:f3c4njz4]\ncDriver es el nombre del driver por ejemplo \"SQL Server\", etc\nLos atributos varian dependiendo del controlador ODBC, los tipicos son DSN,SERVER, DESCRIPTION, DATABASE, ...','',0,'AIA=','f3c4njz4',1,0,'',456,0,0),(23018,5185,6,264,0,'200.91.3.10',1165321446,1,0,1,1,1,1,'','','gracias por la ayuda.\nla revisare y les comento.\nsaludos','',0,'AIA=','1cz1whde',1,0,'',264,0,0),(23019,5177,6,176,0,'201.255.148.133',1165325675,1,0,1,1,1,0,'','','Muchas Gracias José\n\n\nLuis','',0,'AIA=','1oiybehw',1,0,'',176,0,0),(23020,5179,6,176,0,'201.255.148.133',1165325883,1,0,1,1,1,0,'','','Gracias Karina por contestar pero lo que pretendo es que cuando termine de hacer una copia, o proceso, se detenga solo. Lo que me hace es animar el diálogo pero hasta que lo cierro, no hace la copia...\n\nTendré que declarar el diálogo como modal ?\n\n\nLuis','',0,'AIA=','1ir4jntw',1,0,'',176,0,0),(23021,5204,4,2,0,'87.218.146.203',1165326160,1,0,1,1,1,1,'','','Pier,\n\nThere is a new FWPPC build with some minor changes, please try it again, thanks','',0,'AIA=','1qpw56xf',1,0,'',2,0,0),(23022,5179,6,362,0,'200.168.52.156',1165326181,1,0,1,1,1,1,'','','Al Terminar la copia...\n\nSTATIC FUNCTION DESVIO_DE_FUNCION( oDlg )\n\n//-&gt; TU ROTINA...\n\noDlg:End()\n\nRETURN NIL','',0,'AIA=','ublv6sgn',1,0,'',362,0,0),(23023,5207,3,267,0,'200.208.238.2',1165328121,1,0,1,1,1,1,'','Error in chart1/nDbl2Flt','hi,\n\nWhen trying to use the program \\samples\\chart1.prg occurs an error GPF in the execution of the function nDbl2Flt! \n\nIf I comment the function, is ok.','',0,'AIA=','3cvzib0d',1,0,'',267,0,0),(23024,5195,6,875,0,'64.76.108.179',1165330565,1,0,1,1,1,0,'','Rspta','Antonio asi es Tutor01 si funciona, pero Tutor02  no aparece la ventana\nEsta bien raro esto. A ver si me puede ayudar.\n\nGracias de antemano\n\n\nJaime','',0,'AIA=','3am3m3id',1,0,'',875,0,0),(23025,5159,20,837,0,'85.18.14.25',1165334123,1,0,1,1,1,1,'','Re: Manuali e documentazione FWH','[quote=&quot;EnricoMaria&quot;:3ts15zok]Nella cartella MANUAL delle FWH ci sono diversi files CHM. Dacci un\'occhiata.\n\nEMG[/quote:3ts15zok]\n\nSi quella documentazione l\'ho vista e devo dire che è molto utile.\n\nHo visto che le comunità ispaniche in particolare sono molto attive anche nello scrivere \"piccoli\" manuali, mi riferivo a quelli.\n\nGrazie, Andrea','',0,'gA==','3ts15zok',1,0,'',837,0,0),(23026,5192,1,819,0,'216.34.194.113',1165334975,1,0,1,1,1,0,'','','James, \n\nThanks for the reply.  I found the problem.\n\nRegards,\n\nJose','',0,'gA==','296o4ecv',1,0,'',819,0,0),(23027,5193,1,819,0,'216.34.194.113',1165335044,1,0,1,1,1,0,'','','Antonio,\n\nGracias, amigo.\n\nSaludos,\n\nJose','',0,'gA==','vrwklu98',1,0,'',819,0,0),(23028,5208,1,819,0,'216.34.194.113',1165335372,1,0,1,1,1,0,'','About FiveWin ODBC','FW,\n\nMay I know those who had experienced using FiveODBC.  \n\nThanks,\n\nJose','',0,'gA==','2ns1zcqz',1,0,'',819,0,0),(23029,5198,6,509,0,'83.33.155.66',1165335458,1,0,1,0,1,0,'','','Hello:\n \nConnect file XSCRLL.C in VERGE and it appears to me the following error. How I can cause that these necessary functions for the GRID of CanalFive are recognized?\n\n[color=red:r5d70syi]Compilado y Enlazado de: [C:\\RICARDO\\HWINAGE\\HWINAGE.Exe]\nEjecución No. 1\nEjecutada a las: 17:16:19\n============================================================\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_XVSCRLL\' referenced from C:\\RICARDO\\HWINAGE\\OBJ\\GRID.OBJ\nError: Unresolved external \'_HB_FUN_XHSCRLL\' referenced from C:\\RICARDO\\HWINAGE\\OBJ\\GRID.OBJ\nWarning: Public symbol \'_HB_FUN_GETPPSECTION\' defined in both module C:\\RICARDO\\HWINAGE\\OBJ\\VRD.OBJ and C:\\RICARDO\\HWINAGE\\OBJ\\VRDINI.OBJ\nWarning: Public symbol \'_HB_FUN_GETPPSECTION\' defined in both module C:\\RICARDO\\HWINAGE\\OBJ\\VRD.OBJ and C:\\RICARDO\\HWINAGE\\OBJ\\OTROS.OBJ\nWarning: Public symbol \'_HB_FUN_GETPPSECTION\' defined in both module C:\\RICARDO\\HWINAGE\\OBJ\\VRDINI.OBJ and C:\\RICARDO\\HWINAGE\\OBJ\\OTROS.OBJ\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting C:\\RICARDO\\HWINAGE\\HWINAGE.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!![/color:r5d70syi]\n\n \nThank you very much.','',0,'Ag==','r5d70syi',1,0,'',509,0,0),(23030,5209,6,176,0,'201.255.148.133',1165335635,1,0,1,1,1,0,'','clase txtprev','Saben sii esta función trabaja con xharbour, ya que presenta el preview pero vacío\n\nLuis','',0,'Ag==','2uor1ayw',1,0,'',176,0,0),(23031,5164,6,28,0,'83.46.80.59',1165335655,1,0,1,1,1,0,'','','&gt;- No hay impedimento para montarlo en dialogos ? \n\nEn esta version no se puede\n\n&gt;- Aunque suena raro, es posible hacerlo vertical ? \nTampoco se puede en esta version\n\n&gt;- Mas raro aun, se puede montar mas de 1 en un window/dialog ? \n\nSi, se puede crear mas de una en una ventana o en una dialog pero no desde recursos\n\n&gt;- A pesar que tiene los colores \"oficiales\", es posible cambiarlos ? \nSe puede modificar los colores pero espero sacar una forma mas facil de modificarlos en la proxima version.\n\nUn saludo','',0,'Ag==','gavt1xmy',1,0,'',28,0,0),(23032,5204,4,20,0,'87.10.213.244',1165335665,1,0,1,1,1,0,'','','Antonio,\n\nIt is ok  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRegards\nPier Luigi','',0,'Ag==','2oike3co',1,0,'',20,0,0),(23033,5208,1,819,0,'216.34.194.113',1165336456,1,0,1,1,1,0,'','','What I mean is how\'s the performance, specially with MS SQL server.\n\nThanks.','',0,'Ag==','1ucu5n78',1,0,'',819,0,0),(23034,4757,3,34,0,'68.4.154.81',1165338535,1,0,1,1,1,1,'','Sorry','Sorry guys ... I didn\'t abandon the thread.  I had a total knee replacement two weeks ago and I\'ve been off the computer ever since.  I still have some residual issues that make programming a bit difficult ( focus ) but I\'ll see if I can help on this.\n\nI used a very simple implementation ( I think the modifications to rpreview have been fairly well distributed ) and I have no problem at all with the PDF creation.  The main thing is to declare the functions in RPREVIEW and if you use ones I didn\'t implement, be sure to declare them.\n\nTim <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','z16zpmxp',1,0,'',34,0,0),(23035,5210,3,234,0,'75.34.217.174',1165338754,1,0,1,1,1,1,'','Preview page counter','Hi Antonio,\n\nIs there an update to FWH to correct the problem with the preview page counter? I really need this asap.\n\nThank you,','',0,'Ag==','1t4vezr7',1,0,'',234,0,0),(23036,5211,3,233,0,'218.111.149.210',1165339408,1,0,1,1,1,0,'','Error BASE/1004  Message not found: TWINDOW:LRESIZE16','Testing the following code, I got an error as mentioned above. Where did I go wrong?\n\n[code:2svw2xf9]\n#include &quot;FiveWin&#46;ch&quot;\nstatic oWnd\n//----------------------------------------------------------------------------//\nfunction Main&#40;&#41;\n\n  local oFld1\n\n    USE Numbers\n    INDEX ON Str&#40; Numbers-&gt;Number, 2 &#41; TO Numbers\n    SET INDEX TO Numbers\n\n    GO TOP\n\n	DEFINE window oWnd from 0,0 to 200,200 pixel\n\n	@ 0&#46;5,0&#46;5 FOLDER oFld1 OF oWnd ;\n                PROMPT &quot;&amp;Page1&quot;, &quot;P&amp;age2&quot; ;\n		DIALOGS &quot;Sub1&quot;, &quot;Sub2&quot; ;\n\n	@ 0&#46;5,0&#46;5 LISTBOX oLbx1 ;\n                FIELDS Str&#40; Numbers-&gt;Number &#41; ;\n                HEADERS &quot;Field1&quot; ;\n                FIELDSIZES 100 ;\n		OF oFld1&#58;aDialogs&#91; 1 &#93;\n\n\n	ACTIVATE WINDOW oWnd\n\nreturn nil [/code:2svw2xf9]','',0,'AIA=','2svw2xf9',1,0,'',233,0,0),(23037,5109,7,720,0,'80.36.244.134',1165341141,1,0,1,1,1,0,'','','Hola Antonio...\n\nAntes de nada muchisimas gracias por la ayuda prestada. Comentarte un par de cosas..\n\nEl código que me pasastes no me ha funcionado, nose si quizas solo está probado para la tabla que te pasé, pero la tabla que tengo que utilizar es mucho más grande. Supongo que quizás sea por eso o simplemente que no lo estoy usando bien. A parte de que no me deja luego abrir la tabla, me devuelve una tabla que pesa más de 20 MB!!...Tengo una duda en cuanto a las sentencias que se encuentran en la funcion main, ¿para que sirve?. Las sentencias a las que me refiero son estas:\n\n1.................FoxDBF( \"articulo.dbf\" ) \n    \n2.................USE articulo VIA \"DBFCDX\" \n3.................MsgInfo( Alias() ) \n4.................USE \n    \n5.................FoxDbf( \"articulo.dbf\", \"datos.dbc\" ) \n\nOtra cuestión por lo que no se si será lo más acertado hacerlo así es que tendría que hacer esto mismo para cada una de las tres tablas que necesito, porque me tengo que montar una tabla con la combinación de otras tres(articulos, precios y stock), por lo que nose si el tiempo de respuesta será bueno.\n\nLo suyo sería que el propio FWPPC permitiera abrir tablas ubicadas en una *.dbc, <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nOtra opción que he pensado es la de crearme un programa en Fox, puesto que la aplicación desde donde tengo que coger las tablas está hecha en FOX, y utilizarlo como un servicio del servidor, para que desde que le de a la opcion de actualizar en la pda me haga el cambio a tabla libre con un copy to.... y aprovechar y usar un select para motar las 3 tablas en una y entonces devolvermela ya montada. Supongo que el tiempo de respuesta no será demasiado grande puesto que el trabajo lo hará el servidor... Por cierto existe la posibilidad de recibir la tabla comprimida y luego desde la pda poder descomprimirla??. Lo digo porque a lo mejor gano tiempo en enviar una tabla que pese poco...\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'AIA=','1p6bgrv4',1,0,'',720,0,0),(23038,5198,6,54,0,'189.132.114.169',1165343013,1,0,1,1,1,1,'','','[quote=&quot;RPATON&quot;:f3tuovb7]Hello:\n \nConnect file XSCRLL.C in VERGE and it appears to me the following error. How I can cause that these necessary functions for the GRID of CanalFive are recognized?\n\n[color=red:f3tuovb7]Compilado y Enlazado de: [C:\\RICARDO\\HWINAGE\\HWINAGE.Exe]\nEjecución No. 1\nEjecutada a las: 17:16:19\n============================================================\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_XVSCRLL\' referenced from C:\\RICARDO\\HWINAGE\\OBJ\\GRID.OBJ\nError: Unresolved external \'_HB_FUN_XHSCRLL\' referenced from C:\\RICARDO\\HWINAGE\\OBJ\\GRID.OBJ\nWarning: Public symbol \'_HB_FUN_GETPPSECTION\' defined in both module C:\\RICARDO\\HWINAGE\\OBJ\\VRD.OBJ and C:\\RICARDO\\HWINAGE\\OBJ\\VRDINI.OBJ\nWarning: Public symbol \'_HB_FUN_GETPPSECTION\' defined in both module C:\\RICARDO\\HWINAGE\\OBJ\\VRD.OBJ and C:\\RICARDO\\HWINAGE\\OBJ\\OTROS.OBJ\nWarning: Public symbol \'_HB_FUN_GETPPSECTION\' defined in both module C:\\RICARDO\\HWINAGE\\OBJ\\VRDINI.OBJ and C:\\RICARDO\\HWINAGE\\OBJ\\OTROS.OBJ\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting C:\\RICARDO\\HWINAGE\\HWINAGE.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!![/color:f3tuovb7]\n\n \nThank you very much.[/quote:f3tuovb7]\n\nHola.\n\nEl archivo .C es para Clipper y tu necesitas uno para 32 bits, posiblemente ahi esté el problema.\n\nSaludos','',0,'gg==','f3tuovb7',1,0,'',54,0,0),(23039,5212,5,884,0,'69.59.96.86',1165344920,1,0,1,1,1,1,'','TCBrowse  - nFreeze not a part of TCBrowse','xbase version 1.90.331 \nThis below is the problem description and my code:\n\n&gt; Called from TWBROWSE:LBUTTONDOW(1055)\n&gt; Called from TCBROWSE:LBUTTONDOW(1012)\n\nThis indicates that the method :lButtonDown of an object of the class TCBrowse\nis called. This calls the method :lButtonDown() of an object of the class TWBrowse.\nBoth methods coud successfully be called and therefore exist. The Runtime error\noccurs because\n\n&gt; oError:args         :\n&gt;           -&gt; VALTYPE: O CLASS: TCBrowse\n&gt; oError:description  : Object has no member with this name\n&gt; oError:operation    : nFreeze\n\nobviously the class TCBrowse does not have a member :nFreeze which is accessed in\nline 1055. However, this is not for sure since I do not know the class TCBrowse and\nI do not know the source code.\n\nDoes this help?\n\n \n\n&gt; Hello,\n&gt;\n&gt; Attached is the first problem I have not been able to resolve with the new 1.90 alaska and the latest fivewin.\n&gt; Please let me know what I am doing wrong.\n&gt;\n&gt; fred tarbox\n&gt;  \n&gt;\n\n\n     (Code)\n&gt; ACTIVATE WINDOW oWnd;\n&gt;          ON LEFT CLICK (FCT_Test(\"change in\"),Nothing());\n&gt;         ON INIT (FCT_Test(\"hello4\"),Sys_Main(),FCT_Test(\"hello4e\"),Get_Wind(),FCT_Test(\"hello4f\"));\n&gt;         ON RESIZE (FCT_Test(\"hello5\"),Get_Wind());\n&gt;         ON MOVE (FCT_Test(\"hello6\"),Get_Wind(),FCT_Test(\"hello6e\"));\n&gt;        ON LBUTTONUP (FCT_Test(\"LBUTTONUP\"));\n&gt;        ON RIGHT CLICK (FCT_Test(\"RIGHT CLICK\"));\n&gt;        ON PAINT (FCT_Test(\"PAINT\"));\n&gt;        ON LEFT (FCT_Test(\"LEFT\"));\n&gt;        VALID (FCT_Test(\"VALID Before\"),Get_Wind(),FCT_Test(\"VALID After\"))\n&gt;  \n&gt; I get the following error:\n&gt;\n&gt; ------------------------------------------------------------------------------\n&gt; ERROR LOG of \"O:\\netb10\\PRODUCTS\\visualnst32\\Nst-ms.exe\" Date: 12-04-2006 13:28:37\n&gt;\n&gt; Xbase++ version     : Xbase++ (R) Version 1.90.331\n&gt; Operating system    : Windows XP 05.01 Build 02600 Service Pack 2\n&gt; ------------------------------------------------------------------------------\n&gt; oError:args         :\n&gt;           -&gt; VALTYPE: O CLASS: TCBrowse\n&gt; oError:canDefault   : N\n&gt; oError:canRetry     : N\n&gt; oError:canSubstitute: Y\n&gt; oError:cargo        : NIL\n&gt; oError:description  : Object has no member with this name\n&gt; oError:filename     : oError:genCode      :         26\n&gt; oError:operation    : nFreeze\n&gt; oError:osCode       :          0\n&gt; oError:severity     :          2\n&gt; oError:subCode      :       2240\n&gt; oError:subSystem    : BASE\n&gt; oError:thread       :          1\n&gt; oError:tries        :          0\n&gt; ------------------------------------------------------------------------------\n&gt; CALLSTACK:\n&gt; ------------------------------------------------------------------------------\n&gt; Called from TWBROWSE:LBUTTONDOW(1055)\n&gt; Called from TCBROWSE:LBUTTONDOW(1012)\n&gt; Called from TWINDOW:HANDLEEVEN(3058)\n&gt; Called from TCONTROL:HANDLEEVEN(1354)\n&gt; Called from _XBPP(3165)\n&gt; Called from TWINDOW:ACTIVATE(883)\n&gt; Called from MAIN(165)\n&gt;\n&gt; To me it looks like TcBrowse is calling a LBUTTONDOWN function but there is none.\n&gt;\n&gt; What am I doing wrong?\n&gt;\n&gt; fred\n  end.','',0,'gg==','28o6dgpb',1,0,'',884,0,0),(23040,4757,3,303,0,'72.199.41.171',1165347629,1,0,1,1,1,0,'','','Tim,\n\nI wish you a speedy recovery. I know that surgery is major and recovery takes awhile.\n\nRegards,\nJames','',0,'gg==','2uvnygf5',1,0,'',303,0,0),(23041,5199,20,8,0,'213.45.245.185',1165348352,1,0,1,1,1,0,'','','risolto grazie lo stesso','',0,'gg==','2grqyv9f',1,0,'',8,0,0),(23043,5214,2,812,0,'201.236.189.241',1165350510,1,0,1,1,1,0,'','Favor Ayuda Urgente','Hola Amigos:\n\nNecesito Ayuda Urgente, se trata que al tratar de abrir un pantalla para actualizar vendedores, esta me arroja el que abajo de describe error:\nLo extraño es que si tengo la dll abierta con Workshop 4.5 puedo ejecutar sin probles, pero al cerra el workshop, ya no puedo abrir esta aplicacion,\nuso Clipper 5.2e y Fw 2.2, Blinker 5,1 o 7.0, no cambia el error.\n\nFavor que alguien me oriente, debo entregar este sistema y no puedo avanzar.\n\nError.:\n\nApplication\n===========\n   Path and name: C:\\UTIL\\VTADPTO\\INMOBILI.dwd\n   Size:         0 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Error ocurred at: 05-12-2006, 17:17:52\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nResource: LISTAMAE\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from CREATEDLGE(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ACTUVEN(71)\n   Called from (b)MENU(121)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from TUTOR(106)\n\nSystem\n======\n   CPU type: 486\n   Hardware memory: 66240 (64 megas)\n\n   Free System resources: % 61\n        GDI    resources: % 61\n        User   resources: % 72\n\n   Windows and MsDos versions:  3.95,  7.10\n   Windows total applications running:  22\n      1 C:\\WINDOWS\\EXPLORER.EXE\n      2 C:\\WINDOWS\\SYSTEM\\BROWSEUI.DLL\n      3 C:\\WINDOWS\\SYSTEM\\USER.EXE\n      4 C:\\WINDOWS\\SYSTEM\\SHLWAPI.DLL\n      5 C:\\WINDOWS\\SYSTEM\\COMCTL32.DLL\n      6 C:\\MULTIE~1\\MEWLIB32.DLL\n      7 C:\\ARCHIV~1\\WINAMP\\WINAMPA.EXE\n      8 C:\\UTIL\\VTADPTO\\INMOBILI.dwd\n      9 C:\\WINDOWS\\SYSTEM\\WINOA386.MOD\n     10 C:\\WINDOWS\\SYSTEM\\URLMON.DLL\n     11 C:\\WINDOWS\\SYSTEM\\MSHTML.DLL\n     12 C:\\WINDOWS\\SYSTEM\\OLE32.DLL\n     13 C:\\WINDOWS\\SYSTEM\\DDEML.DLL\n     14 C:\\ARCHIV~1\\SPYBOT~1\\SDHELPER.DLL\n     15 C:\\WINDOWS\\SYSTEM\\IMON.DLL\n     16 C:\\ARCHIV~1\\ARCHIV~1\\REAL\\UPDATE~1\\RNMS3270.DLL\n     17 C:\\WINDOWS\\SYSTEM\\DDHELP.EXE\n     18 C:\\ARCHIV~1\\WINZIP\\WZQKPICK.EXE\n     19 C:\\WINDOWS\\SYSTEM\\WEBCHECK.DLL\n     20 C:\\WINDOWS\\SYSTEM\\STIMON.EXE\n     21 C:\\WINDOWS\\SYSTEM\\SPOOL32.EXE\n     22 C:\\WINDOWS\\LOADQM.EXE\n     23 C:\\ARCHIV~1\\ARCHIV~1\\REAL\\UPDATE~1\\REALSC~1.EXE\n     24 C:\\WINDOWS\\SYSTEM\\SYSTRAY.EXE\n     25 C:\\WINDOWS\\PTSNOOP.EXE\n     26 C:\\WINDOWS\\TASKMON.EXE\n     27 C:\\WINDOWS\\SYSTEM\\MSTASK.EXE\n     28 C:\\WINDOWS\\SYSTEM\\MMSYSTEM.DLL\n     29 C:\\WINDOWS\\SYSTEM\\IENPSTUB.DLL\n     30 C:\\WINDOWS\\SYSTEM\\MSGSRV32.EXE\n     31 C:\\WINDOWS\\SYSTEM\\E_S5I4A1.EXE\n     32 C:\\WINDOWS\\SYSTEM\\SHDOC401.DLL\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   CREATEDLGE\n     Param   1:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2708\n     Local   3:    U    \n     Local   4:    U    \n   ACTUVEN\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    N    0\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    O    Class: TRADMENU\n     Local  12:    O    Class: TDATABASE\n     Local  13:    A    Len:    4\n     Local  14:    N    1\n     Local  15:    U    \n     Local  16:    O    Class: TDIALOG\n     Local  17:    O    Class: TCBROWSE\n     Local  18:    U    \n     Local  19:    N    1\n   (b)MENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20001\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TMDIFRAME:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20001\n     Local   4:    N    0\n   TMDIFRAME:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n   TMDIFRAME:HANDLEEVEN\n     Param   1:    N    273\n     Param   2:    N    20001\n     Param   3:    N    0\n   WINRUN\n     Param   1:    N    2708\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    { || ... } CodeBlock\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    { || ... } CodeBlock\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   TUTOR\n     Local   1:    U    \n     Local   2:    O    Class: TICON\n     Local   3:    U    \n     Local   4:    O    Class: TCURSOR\n     Local   5:    O    Class: TBAR\n     Local   6:    U    \n     Local   7:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFNTX\n\nDataBases in use\n================\n\n  1: =&gt; VENDEDOR                           RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          0      .T.   .T.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\nClasses in use:\n===============\n     1 TBRUSH\n     2 TWINDOW\n     3 TCONTROL\n     4 TICON\n     5 TCURSOR\n     6 TMDIFRAME\n     7 TMENU\n     8 TMENUITEM\n     9 TMDICLIENT\n    10 TDIALOG\n    11 TBAR\n    12 TRECT\n    13 TBTNBMP\n    14 TMSGBAR\n    15 TFONT\n    16 TMSGITEM\n    17 TTIMER\n    18 TDATABASE\n    19 TWBROWSE\n    20 TCBROWSE\n    21 TCCOLUMN\n    22 TRADMENU\n    23 TRADIO\n    24 TBUTTON\n    25 ERROR\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       29152 bytes  (SYMP=600, Stack=8192, Heap=2056)\n      Clipper Stack:      36215 bytes\n      12 Static variables: 168 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     691814 bytes\n      Highest Value:     726630 bytes','',0,'gg==','232h4zic',1,0,'',812,0,0),(23044,5209,6,36,0,'200.113.56.235',1165351196,1,0,1,1,1,0,'','','Hola\n\nYo la utilizo y funciona perfectamente  \n\n   Una vez tuve un problema parecido, y el error era que la carpeta donde estaba tenia mas de 8 caracteres, eso es por que hay un archivo bat que entra un commando DOS\n\nSaludos\nPatricio','',0,'gg==','1edhxhfy',1,0,'',36,0,0),(23045,5109,7,2,0,'87.218.146.203',1165351719,1,0,1,1,1,1,'','','Elias,\n\n&gt;\nEl código que me pasastes no me ha funcionado, nose si quizas solo está probado para la tabla que te pasé, pero la tabla que tengo que utilizar es mucho más grande.\n&gt;\n\nAqui ha funcionado correctamente. Envíame por email (como ZIP) la tabla que tienes que usar y la probamos.\n\n&gt; 1.................FoxDBF( \"articulo.dbf\" ) \n\nModifica la cabecera de \"articulo.dbf\" para que no tenga referencias a datos.dbc\n\n&gt;\n2.................USE articulo VIA \"DBFCDX\" \n3.................MsgInfo( Alias() ) \n4.................USE \n&gt;\n\nAbrimos la DBF una vez modificada, se abre bien, se muestra su alias y la cerramos. Es solo una prueba que demuestra el uso de la función FoxDBF().\n\n&gt; 5.................FoxDbf( \"articulo.dbf\", \"datos.dbc\" ) \n\nVolvemos a modificar la cabecera de \"articulo.dbf\" para dejarla como estaba.\n\n&gt; por lo que nose si el tiempo de respuesta será bueno. \n\nLa función FoxDBF() es muy muy rápida.\n\n&gt;\nLo suyo sería que el propio FWPPC permitiera abrir tablas ubicadas en una *.dbc,  \n&gt;\n\nTienes que entender la diferencia entre FWPPC y Harbour. Harbour es el compilador open source y el que se encarga de abrir y usar las DBFs, índices, etc. Nosotros no producimos Harbour, sólo colaboramos en su desarrollo ya que es un producto de software libre.\n\nFWPPC es la librería GUI que permite usar el entorno gráfico del Pocket PC usando Harbour. Luego la modificación a la que te refieres no pertenece a FWPPC, sino a Harbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> pero usando la función FoxDBF() podrías usar las DBFs sin problemas.','',0,'gg==','2gm4ygg0',1,0,'',2,0,0),(23047,5214,2,2,0,'87.218.146.203',1165351917,1,0,1,1,1,1,'','','Estás usando un control de Borland en la caja de diálogo, y no has inicializado la DLL de Borland. \n\nHaz esto al comienzo de tu programa: \n\nlocal hDLL := LoadLibrary( \"bwcc.dll\" ) \n\n... \n\ny al final \n\nFreeLibrary( hDLL )','',0,'gg==','32idzbk6',1,0,'',2,0,0),(23048,5195,6,2,0,'87.218.146.203',1165352010,1,0,1,1,1,1,'','','Jaime,\n\nEstás usando una instalación estandard de FWH junto al Harbour/xHarbour que nosotros proporcionamos ?\n\nDe ser asi, tiene que funcionar correctamente.','',0,'gg==','3jzdx5nv',1,0,'',2,0,0),(23049,5211,3,2,0,'87.218.146.203',1165352181,1,0,1,1,1,1,'','','Your Class TWindow may be missing the DATA lResize16. Please add it.\n\nProbably you are mixing different FWH versions source code.','',0,'gg==','1286dda3',1,0,'',2,0,0),(23050,5214,2,812,0,'201.236.189.241',1165353031,1,0,1,1,1,0,'','Muchas Gracias Guru','Antonio:\n\nMuchas gracias, por tu ayuda, hice lo que me dijistes y funciono como avion, eternamente agradecido,\n\nMiguel Rivera\n\n\n*****\n\n[quote=&quot;Antonio Linares&quot;:3umgva4b]Estás usando un control de Borland en la caja de diálogo, y no has inicializado la DLL de Borland. \n\nHaz esto al comienzo de tu programa: \n\nlocal hDLL := LoadLibrary( \"bwcc.dll\" ) \n\n... \n\ny al final \n\nFreeLibrary( hDLL )[/quote:3umgva4b]','',0,'gA==','3umgva4b',1,0,'',812,0,0),(23051,5212,5,2,0,'87.218.146.203',1165353186,1,0,1,1,1,1,'','','Fred,\n\nWe email you a modified Five32rt.dll, thanks','',0,'gA==','kikpkqe3',1,0,'',2,0,0),(23052,5210,3,2,0,'87.218.146.203',1165353444,1,0,1,1,1,1,'','','Darrell,\n\nPlease test samples\\TestPrn2.prg. Here it works fine.\n\nPlease confirm us if it works fine for you too, thanks.','',0,'gA==','3qfve6m4',1,0,'',2,0,0),(23053,5215,6,228,0,'190.24.7.15',1165353446,1,0,1,1,1,1,'','Verificar Conexion con Internet','Amigos del foro, tengan buena tarde...\n\n¿Existe alguna forma de saber si el pc esta conectado a internet?, y si se puede me podrian pasar un ejemplo.','',0,'gA==','2efjk3q1',1,0,'',228,0,0),(23054,5210,3,234,0,'75.34.217.174',1165353628,1,0,1,1,1,1,'','','Hi Antonio,\n\nI does not work with testprn2.prg.\n\nRegards,','',0,'gA==','3ii1b4s7',1,0,'',234,0,0),(23055,5210,3,2,0,'87.218.146.203',1165355362,1,0,1,1,1,1,'','','Darrell,\n\nThese are the screenshots for samples\\TestPrn2.prg. Do you get the same ? Thanks,\n[url=http&#58;//imageshack&#46;us:mis5ngov][img:mis5ngov]http&#58;//img230&#46;imageshack&#46;us/img230/3746/prn1am8&#46;png[/img:mis5ngov][/url:mis5ngov]\n[url=http&#58;//imageshack&#46;us:mis5ngov][img:mis5ngov]http&#58;//img70&#46;imageshack&#46;us/img70/3438/prn2km4&#46;png[/img:mis5ngov][/url:mis5ngov]','',0,'GA==','mis5ngov',1,0,'',2,0,0),(23056,5215,6,2,0,'87.218.146.203',1165355529,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5003\">http://fivetechsoft.com/forums/viewtopic.php?t=5003</a><!-- m -->','',0,'GA==','2n0o9eyj',1,0,'',2,0,0),(23057,5210,3,234,0,'75.34.217.174',1165355575,1,0,1,1,1,1,'','','Antonio,\n\nNo, it does not work. I scroll to the second page, but the page counter stays at 1.\n\nCan I download the latest version of FWH to see if the error is resolved in a newer version?\n\nThank you,','',0,'GA==','1sy8411l',1,0,'',234,0,0),(23058,5210,3,2,0,'87.218.146.203',1165355640,1,0,1,1,1,1,'','','Darrell,\n\nWhat FWH build are you using ? What date ?','',0,'GA==','30sqaccm',1,0,'',2,0,0),(23059,5210,3,234,0,'75.34.217.174',1165355982,1,0,1,1,1,1,'','','Antonio,\n\nMy fivehx.lib is dated 04/04/2006.\n\nRegards,','',0,'GA==','309e83dn',1,0,'',234,0,0),(23060,5215,6,138,0,'194.158.74.1',1165357454,1,0,1,1,1,1,'','','Una forma de hacerlo sin matar pulgas a cañonazos:\n\nFunction IsInternet()\n   WSAStartup()\nRETURN (IIF(GetHostByName(\"microsoft.com\")&lt;&gt;\"0.0.0.0\",.T.,.F.)','',0,'GA==','2uvdm4va',1,0,'',138,0,0),(23061,5179,6,644,0,'200.126.160.208',1165361192,1,0,1,1,1,0,'','','Surgom\n\nAcabo de hacer una clase para eso, si la necesitas edcribe tu correo y te la mando\nsaludos','',0,'GA==','1zocydcv',1,0,'',644,0,0),(23062,5216,6,389,0,'189.133.24.184',1165361550,1,0,1,1,1,0,'','Clase TFreeImage ?','Alguien que sea tan amable de subir la clase tFreeImage que funcione con la ultima de xharbur\nGracias\nGabo','',0,'GA==','19mbg02a',1,0,'',389,0,0),(23063,5210,3,2,0,'87.218.146.203',1165362401,1,0,1,1,1,1,'','','Darrell,\n\nCurrent FWH build is November 2006. Unfortunately we can\'t provide a patch from your build to the current one. There are many changes.','',0,'GA==','1886bxz7',1,0,'',2,0,0),(23064,5208,1,2,0,'87.218.146.203',1165362528,1,0,1,1,1,1,'','','It works fine, but you should upgrade to FWH 32 bits, as it offers a much better integration with the operating system.','',0,'GA==','297cqi1j',1,0,'',2,0,0),(23065,5216,6,49,0,'62.13.172.78',1165364629,1,0,1,1,1,1,'','','SEND A PRIVATE EMAIL PLS','',0,'GA==','3tspxc2k',1,0,'',49,0,0),(23066,5198,6,49,0,'62.13.172.78',1165364755,1,0,1,1,1,1,'','','i HAVE CONVERTE THE GRID  AND BANNER CLASS OF CANALFIVE INTO 32 BIT AND THEY RUN OK\n\n\n[img:n5bdw3ai]http&#58;//img453&#46;imageshack&#46;us/img453/5536/bannergrid32bitog2&#46;jpg[/img:n5bdw3ai]','',0,'CA==','n5bdw3ai',1,0,'',49,0,0),(23067,5210,3,234,0,'75.34.217.174',1165365108,1,0,1,1,1,1,'','','Antonio,\n\nCan I download the latest version? Do I need to pay any additional fees in addition to the fees I paid in April? \n\nThank you,','',0,'CA==','30516bzd',1,0,'',234,0,0),(23068,5198,6,49,0,'62.13.172.78',1165366408,1,0,1,1,1,1,'','','YOU MUST CHANGE XSCROLL.C,GRID.PRG.FOOT.PRG,HEADER.PRG,COLUMNA.PRG AND THEN THE OTHER C FILES....\nIT\'S EASY..\n\nREMEBER IN XHARBOUR THERE IS \nhB_PARNI(?)\n\n\nBUT i SAW PACO TRYING TO CREATE A NEW CONTROL GRID2 BIT .. YOU MUST ONLY WAIT ....','',0,'CA==','31lgpgm2',1,0,'',49,0,0),(23069,5210,3,2,0,'87.218.146.203',1165369007,1,0,1,1,1,1,'','','Darrell,\n\nAs we explain at the email that we send when a product is bought from us, you have two months of free upgrades. After that time, you have to buy new upgrades (you get two months of free upgrades again) whenever you want to upgrade to a newer build.\n\nYou may do it from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> purchase section, thanks','',0,'CA==','2tpdy6ym',1,0,'',2,0,0),(23070,5211,3,233,0,'218.111.22.218',1165369393,1,0,1,1,1,0,'','','[quote:3c587lw1]Your Class TWindow may be missing the DATA lResize16. Please add it.[/quote:3c587lw1]\n\nSurprisingly it is missing. Adding it and initializing it to false solved the issue. Thanks.\n\nBTW, I\'m using FWH 2.8 Nov, the latest built','',0,'gA==','3c587lw1',1,0,'',233,0,0),(23071,5210,3,234,0,'75.34.217.174',1165371190,1,0,1,1,1,1,'','','Hi Antonio,\n\nI placed the order online.\n\nThank you,','',0,'gA==','2j1csbyb',1,0,'',234,0,0),(23072,5217,6,251,0,'201.211.175.27',1165376467,1,0,1,1,1,1,'','como colocar dos barras una debajo de la otra','Hola saludos a todos, tengo en mi aplicacion una barra toolbar junto a una tipo folder, pero una se coloca despues de la otra y debo moverlas manualmente cada vez que comienzo el programa, como hago para colocarlas una seguida de la otra. una arriba y otra abajo. ya revise el ejemplo de rebars y es muy parecido a la mia, pero tiene exactamente el mismo detalle una detras de la otra y se deben mover manualmente.\n\nGracias.\n\nDomenico\nVenezuela','',0,'gA==','1z08wjke',1,0,'',251,0,0),(23073,223,6,251,0,'201.211.175.27',1165381641,1,0,1,1,1,1,'','Ballon en toolbars de Hernan Diego Ceccarelli','Hola saludos, problemas con los tooltips, ya busque por todo el forum y encontre esto, y es justamente mi problema, pero no tengo la solución y de verdad me urge full.\n\ncuando uso las tooltips tipo ballons en una button bar unciona bien, pero cuando la uso en una tooltips no funciona el ballons, lei en el foro que Hernan Diego habia logrado esto y de verdad me urge, porque estoy por entregar un proyecto y ahora tengo de los dos tipos de baloons y no se ve muy bien la mezcla.\n\nGracias de Antemano.\n\nSaludos.\nDomenico Di Gregorio\nVenezuela','',0,'gA==','dtypvo03',1,0,'',251,0,0),(23074,5185,6,73,0,'201.165.234.195',1165381676,1,0,1,1,1,0,'','','hace un par de semanas tenia la misma necesidad, accesasr y tomar datos de una .mdb y manipular la info, leerla, guardarla a dbf, no necesite nada de odbc, use ado y muy facil, eso si tuve que usar xharbour, pero muy sencillo lo que hice si requieres el ejemplo con gusto te lo paso.\nsalu2\npaco','',0,'gA==','2b6ewd7a',1,0,'',73,0,0),(23075,5218,6,251,0,'201.211.175.27',1165381911,1,0,1,1,1,1,'','modificacion del tooltips ballon en toolbar de Hernan Diego','Hola saludos, problemas con los tooltips, ya busque por todo el forum y encontre esto, y es justamente mi problema, pero no tengo la solución y de verdad me urge full. \n\ncuando uso las tooltips tipo ballons en una button bar unciona bien, pero cuando la uso en una tooltips no funciona el ballons, lei en el foro que Hernan Diego habia logrado esto y de verdad me urge, porque estoy por entregar un proyecto y ahora tengo de los dos tipos de baloons y no se ve muy bien la mezcla. \n\nGracias de Antemano. \n\nSaludos. \nDomenico Di Gregorio \nVenezuela\n_________________\nDomenico Di Gregorio \nNodoplus.com \nCaracas \nquotacom','',0,'gA==','2r5nozfi',1,0,'',251,0,0),(23076,5219,20,29,0,'88.149.160.109',1165392764,1,0,1,1,1,0,'','Aprire una pagina di un sito internet','Salve,\nesiste una funzione per aprire una pagina internet da un\'applicazione FWH ? Per aprire intendo eseguire internet explorer ed aprire la pagina che mi interessa.\n\nFinora ho utilizzato shellexecute ma in alcuni casi non mi apre la pagina.\n\nGrazie\n\nSaluti\n\nMarco.','',0,'gA==','28x16dl1',1,0,'',29,0,0),(23077,5220,6,54,0,'189.132.115.225',1165394933,1,0,1,1,1,1,'','Multiedit()','Hola,\n\nPodrian orientarme de como ir al final del texto?\n\nMe explico, tengo un GET MEMO para mostrar productos conforme los voy seleccionando, me gustaria que siempre fuera visible el final de todo lo que le voy adicionando, y no he podido bajo ninguna de las siguientes formas.\n\n[code:2m4lh02d]STATIC cProducto,cVar\nFUNCTION main&#40;&#41;\n cProducto &#58;= SPACE&#40;10&#41;\n cVar &#58;= &quot;&quot;\n DEFINE DIALOG &#46;&#46;&#46;&#46;\n  REDEFINE GET oGet1 VAR cProducto ID 101 OF oDlg UPDATE\n  REDEFINE GET oGet2 VAR cVar ID 102 MEMO OF oDlg UPDATE\n  REDEFINE BUTTON oBtn ID 201 ACTION adiciona&#40;&#41; OF oDlg\n ACTIVATE DIALOG &#46;&#46;&#46;\nRETURN NIL\n\nFUNCTION adiciona&#40;&#41;\n cVar += cProducto + CRLF\n oGet2&#58;refresh&#40;&#41;\n oGet2&#58;GoBottom&#40;&#41;\nRETURN &#46;t&#46;[/code:2m4lh02d]\n\nBueno, ahi está el ejemplo, saludos y espero su ayuda\n\nGracias de antemano','',0,'AIA=','2m4lh02d',1,0,'',54,0,0),(23078,5221,6,63,0,'84.77.241.10',1165396334,1,0,1,1,1,0,'','Como elegir una impresora para lanzar un Report?','Como puede forzarse a un REPORT a que permita elegir impresora?.  Algo similar a la orden PRINT ... FROM USER   Gracias\nRafael','',0,'AIA=','1jrm28qt',1,0,'',63,0,0),(23079,5211,3,2,0,'87.218.146.203',1165398842,1,0,1,1,1,1,'','','Hua,\n\nIts a bug introduced cause a recent modification in Class TFolder. This is the right code to use in Class TFolder:\n[code:3rs8g73h]\n         if ChildLevel&#40; &#58;&#58;oWnd, TDialog&#40;&#41; &#41; == 1\n            if ! &#58;&#58;oWnd&#58;lResize16 \n               ACTIVATE DIALOG oDlg NOWAIT ; \n                  ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ; \n                  VALID &#46;f&#46;                // to avoid exiting pressing Esc !!! \n            else      \n               ACTIVATE DIALOG oDlg NOWAIT ; \n                  ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ; \n                  VALID &#46;f&#46; RESIZE16       // to avoid exiting pressing Esc !!! \n            endif      \n         else \n            ACTIVATE DIALOG oDlg NOWAIT ; \n               ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ; \n               VALID &#46;f&#46;                   // to avoid exiting pressing Esc !!! \n         endif \n[/code:3rs8g73h]\nAnyhow your fix is ok, in the meantime, until we publish the next build. Thanks!','',0,'AIA=','3rs8g73h',1,0,'',2,0,0),(23080,5221,6,519,0,'83.60.225.124',1165401767,1,0,1,1,1,0,'','','Rafael, \n  \n\nPRINT oPrn NAME  \" Clientes \" PREVIEW    TO cPrinter\n         \n        \n          REPORT oReport TITLE  \" \" , \" \",\" \", \" \", \" \", \" \" ,\"  Clientes  \" , \" \", \" \" ;\n          CAPTION \" Clientes \" ;\n          HEADER \"Fecha: \"+dtoc(date()),;\n                 \"Hora:  \"+time() RIGHT;\n          FOOTER \" \",\" \",\"Página: \"+str(oReport:nPage,3) ;\n          FONT oFont1, oFont2,oFont3, oFont4 ;\n          PREVIEW  ;\n          TO DEVICE  oPrn','',0,'AIA=','m2q3o5wy',1,0,'',519,0,0),(23081,5209,6,176,0,'201.255.130.214',1165403339,1,0,1,1,1,0,'','','Gracias Patricio, no era ese el error,  pero tu comentario me hizo revisar el código, y ahí me dí cuenta que había cambiado la clase tdosprn (modificada por Hernán Cicarelli) por la original de fivewin y dambié los parámetros y funcionó bien\n\nLuis','',0,'AIA=','29oo9sqr',1,0,'',176,0,0),(23082,5200,7,2,0,'87.218.146.203',1165405131,1,0,1,1,1,1,'','','Toni,\n\nsamples\\TestDlg.prg, cambiando el color del GET, falla igual en la versión de Julio. Puedes por favor confirmarlo, gracias ?\n[code:35wg510w]\n#include &quot;FWCE&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, cText &#58;= &quot;Hello world!   &quot;\n\n   DEFINE DIALOG oDlg TITLE &quot;Source code Dialog&quot; ;\n      SIZE 200, 100\n   \n   @ 0&#46;7, 2 SAY &quot;Name&#58;&quot; SIZE 18, 10\n   \n   @ 1, 4 GET cText SIZE 50, 10 COLOR &quot;N/R&quot;\n   \n   @ 1&#46;8, 6 BUTTON &quot;End&quot; ACTION oDlg&#58;End&#40;&#41; SIZE 30, 10\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41; ;\n      VALID MsgYesNo&#40; &quot;want to end ?&quot; &#41;\n   \nreturn nil\n[/code:35wg510w]','',0,'AIA=','35wg510w',1,0,'',2,0,0),(23083,5200,7,2,0,'87.218.146.203',1165405547,1,0,1,1,1,1,'','','Toni,\n\nEn las cajas de diálogo es un bug de Windows Mobile 2003! Mira como se ve en 2003:\n[url=http&#58;//imageshack&#46;us:2bi07qb3][img:2bi07qb3]http&#58;//img227&#46;imageshack&#46;us/img227/8536/dlg1yy2&#46;png[/img:2bi07qb3][/url:2bi07qb3]\nAqui en Windows Mobile 2005, la misma aplicación:\n[url=http&#58;//imageshack&#46;us:2bi07qb3][img:2bi07qb3]http&#58;//img135&#46;imageshack&#46;us/img135/5339/dlg2ac9&#46;png[/img:2bi07qb3][/url:2bi07qb3]\nNos hemos vuelto locos haciendo pruebas  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> En cuanto a los folders, son cajas de diálogo no modales, y ahí si podemos tener una diferencia.','',0,'GA==','2bi07qb3',1,0,'',2,0,0),(23084,5200,7,2,0,'87.218.146.203',1165406965,1,0,1,1,1,1,'','','Toni,\n\nY en los folders es lo mismo. Mira como se ve en Windows Mobile 2005. Que versión de Pocket PC estás usando para las pruebas ?\n[url=http&#58;//imageshack&#46;us:1j6vjum0][img:1j6vjum0]http&#58;//img135&#46;imageshack&#46;us/img135/102/foldersmj6&#46;png[/img:1j6vjum0][/url:1j6vjum0]','',0,'GA==','1j6vjum0',1,0,'',2,0,0),(23085,5221,6,63,0,'84.77.241.10',1165408520,1,0,1,1,1,0,'','','Pues debo estar haciendo algo mal, porque con:\n\n[code:pekmw0gz]\nPRINT  oPrn NAME cTitulo FROM USER PREVIEW\nREPORT oReport ;\n       TITLE  cTitulo,;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n       TO DEVICE oPrn\n[/code:pekmw0gz]\nme deja escoger impresora pero sólo me imprime la primera linea del Report.\nAlguna otra sugerencia?,\nGracias,\nRafael','',0,'AIA=','pekmw0gz',1,0,'',63,0,0),(23086,5220,6,180,0,'83.44.32.125',1165409099,1,0,1,1,1,0,'','Re: Multiedit()','[quote=&quot;wmormar&quot;:16z6xm24]Hola,\n\nPodrian orientarme de como ir al final del texto?\n\nMe explico, tengo un GET MEMO para mostrar productos conforme los voy seleccionando, me gustaria que siempre fuera visible el final de todo lo que le voy adicionando, y no he podido bajo ninguna de las siguientes formas.\n\n[code:16z6xm24]STATIC cProducto,cVar\nFUNCTION main&#40;&#41;\n cProducto &#58;= SPACE&#40;10&#41;\n cVar &#58;= &quot;&quot;\n DEFINE DIALOG &#46;&#46;&#46;&#46;\n  REDEFINE GET oGet1 VAR cProducto ID 101 OF oDlg UPDATE\n  REDEFINE GET oGet2 VAR cVar ID 102 MEMO OF oDlg UPDATE\n  REDEFINE BUTTON oBtn ID 201 ACTION adiciona&#40;&#41; OF oDlg\n ACTIVATE DIALOG &#46;&#46;&#46;\nRETURN NIL\n\nFUNCTION adiciona&#40;&#41;\n cVar += cProducto + CRLF\n oGet2&#58;refresh&#40;&#41;\n oGet2&#58;GoBottom&#40;&#41;\nRETURN &#46;t&#46;[/code:16z6xm24]\n\nBueno, ahi está el ejemplo, saludos y espero su ayuda\n\nGracias de antemano[/quote:16z6xm24]\n\nHola wmormar:\n\nPrueba con esto:\n\noGet2:bGotFocus:={||oGet2:SetPos(Len(cVar)) }\n\nSaludos,\nManuel','',0,'gIA=','16z6xm24',1,0,'',180,0,0),(23088,5223,2,812,0,'200.83.124.193',1165409359,1,0,1,1,1,0,'','Otra vez Ayuda URGENTE','Hola a Todos:\n\nNuevamente necesito ayuda, sin bien es cierto ayer solucione el mismo problema con las indicaciones de Antonio, colocando: \nlocal hDLL := LoadLibrary( \"bwcc.dll\" ), al inicio del programa. Hoy dentro del mismo programa, pero al abrir otra pantalla para ingresar un nuevo registro, se cae el programa y me arroja el error que acontinuacion indico, estoy contra el tiempo, no se que puedo estar haciendo mal, necesito su ayuda muy urgente.\n\nEsperando su ayuda, se despide,\n\nMiguel Rivera.\n\n\nERROR\nApplication\n===========\n   Path and name: D:\\MIGUEL\\PROGRA2\\WINDOWS\\OTROS\\INMOBILI.EXE (16 bits)\n   Size:   355,904 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Time from start: 0 hours 0 mins 8 secs \n   Error ocurred at: 06-12-2006, 09:33:24\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nResource: Vendedor\n\nStack Calls\n===========\n   Called from CREATEDLGE(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ACTUVEN1(127)\n   Called from (b)ACTUVEN(37)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TBTNBMP:LBUTTONDOW(0)\n   Called from TBTNBMP:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ACTUVEN(73)\n   Called from (b)MENU(110)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from TUTOR(94)\n\nSystem\n======\n   CPU type: Pentium\n   Hardware memory: 128 megs\n\n   Free System resources: 61 %\n        GDI    resources: 61 %\n        User   resources: 70 %\n\n   Compiler version: Clipper (R) 5.2e Intl. (x216)  (1995.02.07)\n   Windows and MsDos versions: 3.95, 7.10\n\n   Windows total applications running: 29\n      1 C:\\WINDOWS\\EXPLORER.EXE\n      2 C:\\WINDOWS\\SYSTEM\\COMCTL32.DLL\n      3 D:\\MIGUEL\\MULTIE~1\\MEWLIB32.DLL\n      4 C:\\WINDOWS\\SYSTEM\\USER.EXE\n      5 C:\\WINDOWS\\SYSTEM\\BROWSEUI.DLL\n      6 D:\\MIGUEL\\PROGRA2\\WINDOWS\\OTROS\\INMOBILI.DLL\n      7 D:\\MIGUEL\\PROGRA2\\WINDOWS\\OTROS\\INMOBILI.EXE\n      8 C:\\WINDOWS\\SYSTEM\\WINOA386.MOD\n      9 C:\\WINDOWS\\SYSTEM\\OLE32.DLL\n     10 C:\\WINDOWS\\SYSTEM\\DDEML.DLL\n     11 C:\\ARCHIV~1\\SPYWAR~1\\RTL70.BPL\n     12 C:\\ARCHIV~1\\SPYWAR~1\\TOOLS\\IESDPB.DLL\n     13 C:\\ARCHIV~1\\SPYWAR~1\\SWDOCTOR.EXE\n     14 C:\\ARCHIV~1\\MICROS~1\\OFFICE\\MSO97.DLL\n     15 C:\\ARCHIV~1\\MICROS~1\\OFFICE\\FINDFAST.EXE\n     16 C:\\ARCHIV~1\\MICROS~1\\OFFICE\\OSA.EXE\n     17 C:\\WINDOWS\\SYSTEM\\SYSTRAY.EXE\n     18 C:\\WINDOWS\\TASKMON.EXE\n     19 C:\\WINDOWS\\SYSTEM\\MSHTML.DLL\n     20 C:\\WINDOWS\\SYSTEM\\URLMON.DLL\n     21 C:\\WINDOWS\\SYSTEM\\SHLWAPI.DLL\n     22 C:\\WINDOWS\\SYSTEM\\MSTASK.EXE\n     23 C:\\WINDOWS\\SYSTEM\\MMSYSTEM.DLL\n     24 C:\\WINDOWS\\SYSTEM\\KB918547\\KB918547.EXE\n     25 C:\\WINDOWS\\SYSTEM\\KB891711\\KB891711.EXE\n     26 C:\\WINDOWS\\SYSTEM\\MSGSRV32.EXE\n     27 C:\\WINDOWS\\SYSTEM\\WEBCHECK.DLL\n     28 C:\\ARCHIV~1\\SPYWAR~1\\VCL70.BPL\n     29 C:\\WINDOWS\\SYSTEM\\SHDOC401.DLL\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   CREATEDLGE\n     Param   1:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2644\n     Local   3:    U    \n     Local   4:    U    \n   ACTUVEN1\n     Param   1:    L    .T.\n     Local   1:    N    0\n     Local   2:    C    \"                                   \"\n     Local   3:    C    \"                                        \"\n     Local   4:    C    \"                                        \"\n     Local   5:    C    \"                    \"\n     Local   6:    C    \"                    \"\n     Local   7:    C    \"                    \"\n     Local   8:    C    \"                         \"\n     Local   9:    O    Class: TDIALOG\n     Local  10:    N    22646\n   (b)ACTUVEN\n     Param   1:    O    Class: TBTNBMP\n   TBTNBMP:CLICK\n     Local   1:    O    Class: TBTNBMP\n   TBTNBMP:LBUTTONUP\n     Param   1:    N    15\n     Param   2:    N    42\n     Local   1:    O    Class: TBTNBMP\n     Local   2:    U    \n     Local   3:    L    .T.\n   TBTNBMP:LBUTTONDOW\n     Param   1:    N    15\n     Param   2:    N    42\n     Param   3:    O    Class: TBTNBMP\n   TBTNBMP:HANDLEEVEN\n     Param   1:    N    513\n     Param   2:    N    1\n     Param   3:    N    983082\n   DIALOGBOX\n     Param   1:    N    20135\n     Param   2:    C    \"LISTAMAE\"\n     Param   3:    N    2604\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2604\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   ACTUVEN\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    N    0\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    O    Class: TRADMENU\n     Local  12:    O    Class: TDATABASE\n     Local  13:    A    Len:    4\n     Local  14:    N    1\n     Local  15:    U    \n     Local  16:    O    Class: TDIALOG\n     Local  17:    O    Class: TCBROWSE\n     Local  18:    U    \n     Local  19:    N    1\n     Local  20:    N    22646\n   (b)MENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20001\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TMDIFRAME:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20001\n     Local   4:    N    0\n   TMDIFRAME:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n   TMDIFRAME:HANDLEEVEN\n     Param   1:    N    273\n     Param   2:    N    20001\n     Param   3:    N    0\n   WINRUN\n     Param   1:    N    2604\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    { || ... } CodeBlock\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    { || ... } CodeBlock\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   TUTOR\n     Local   1:    O    Class: TBRUSH\n     Local   2:    O    Class: TICON\n     Local   3:    U    \n     Local   4:    O    Class: TCURSOR\n     Local   5:    O    Class: TBAR\n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    N    22646\n\nLinked RDDs\n===========\n   DBF\n   DBFCDX\n\nDataBases in use\n================\n\n  1: =&gt; VENDEDOR                           RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          0      .T.   .F.\n\n     Indexes in use                        TagName\n        =&gt; COD_VEN                            VENDE1\n           NOM_VEN                            VENDE2\n\n     Relations in use\n\nClasses in use:\n===============\n     1 TBRUSH\n     2 TWINDOW\n     3 TCONTROL\n     4 TICON\n     5 TCURSOR\n     6 TMDIFRAME\n     7 TMENU\n     8 TMENUITEM\n     9 TMDICLIENT\n    10 TFONT\n    11 TBAR\n    12 TRECT\n    13 TBTNBMP\n    14 TMSGBAR\n    15 TMSGITEM\n    16 TTIMER\n    17 TDATABASE\n    18 TDIALOG\n    19 TWBROWSE\n    20 TCBROWSE\n    21 TCCOLUMN\n    22 TRADMENU\n    23 TRADIO\n    24 TBUTTON\n    25 TSCROLLBAR\n    26 TGET\n    27 GET\n    28 ERROR\n    29 TSTRUCT\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       29792 bytes  (SYMP=608, Stack=8192, Heap=2056)\n      PRG Stack:          35533 bytes\n      15 Static variables: 210 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     690906 bytes\n      Highest Value:     814810 bytes','',0,'gIA=','2fbnjscr',1,0,'',812,0,0),(23089,5220,6,54,0,'189.132.115.225',1165409774,1,0,1,1,1,1,'','Re: Multiedit()','Manuel,\n\nAntes que nada gracias por responder.\n\nEs un Multiget ReadOnly.\n\nAdemás no tiene TABSTOP.\n\nMe interesa que desde otros GETS, pues ese nunca tendrá el foco, pueda moverlo segun mis necesidades.\n\nPor ejemplo a una linea específica o al final.\n\nEspero haberme explicado\n\nSaludos y gracias de nuevo','',0,'gIA=','ows6wmoo',1,0,'',54,0,0),(23090,5185,6,264,0,'200.91.3.10',1165409779,1,0,1,1,1,1,'','','Agradecido de cualquier ayuda.\nmi correo es <!-- e --><a href=\"mailto:jgv@random.cl\">jgv@random.cl</a><!-- e -->\nGracias.','',0,'gIA=','ggu4nfio',1,0,'',264,0,0),(23091,5215,6,278,0,'164.77.49.167',1165410209,1,0,1,1,1,1,'','','Leandro:\n\nEsta es la que yo utilizo:\n \nFunction IsInternet()\n\n      LOCAL cIp, cVret := .F.\n      \n      WsaStartUp()\n\n      cIp := GETHOSTBYNAME(\"microsoft.com\")\n\n      WsaCleanUp()\n\nRETURN (cIp&lt;&gt;\"0.0.0.0\")','',0,'gIA=','1ivu85jb',1,0,'',278,0,0),(23092,3421,6,41,0,'200.105.194.235',1165411106,1,0,1,1,1,0,'','','Perdon,\n\npero aqui faltan mensajes o es una mala impresion mia??\n\nsaludos\n\nMarcelo','',0,'gIA=','9wttd3c1',1,0,'',41,0,0),(23093,5224,6,54,0,'189.132.115.225',1165412016,1,0,1,1,1,1,'','__Keyboard','Amigos,\n\nPodria decirme alguien, como puedo pasarle un juego de teclas a un GET.\n\nPor ejemplo necesito pasarle\n CTRL-END\n\nestuve checando el keyboard, pero sigo hago lo siguiente, manda GPF\n\n__Keyboard( VK_CONTROL + VK_END )\n\nAlguna luz?\n\nSaludos y gracias de antemano','',0,'gIA=','31kvk9p5',1,0,'',54,0,0),(23094,5225,6,152,0,'201.236.43.5',1165413402,1,0,1,1,1,1,'','Error al compilar con Harbour Nov.2006 y FWH 2.7','Error BASE/1004  Message not found: TWINDOW:HANDLEEVENT\n\nAgradecere si alguien me puede ayudar.','',0,'gIA=','1hyxtm1y',1,0,'',152,0,0),(23096,5225,6,362,0,'200.168.52.156',1165417712,1,0,1,1,1,1,'','','NO ESTAIS HACIENDO UNA LLAMADA A UNA LIBRERIA DE TERCEROS ANTES DE LAS DEL FIVEWIN???','',0,'gIA=','32m6jh16',1,0,'',362,0,0),(23097,5225,6,152,0,'201.236.44.103',1165418223,1,0,1,1,1,1,'','','El unico que he cambiado es la version de Harbour. \nCon la version anterior funciona perfecto','',0,'gIA=','3ij2r3bn',1,0,'',152,0,0),(23098,5227,3,213,0,'24.242.230.43',1165418572,1,0,1,1,1,0,'','Programmer(s) Wanted','All,\n\nLooking for Fivewin/(x)Harbour Programmer(s) for short &amp; long term projects.  If you\'re interested please email me at: <!-- e --><a href=\"mailto:ridemy919@yahoo.com\">ridemy919@yahoo.com</a><!-- e -->.  Your location does not matter.\n\nThanks,\nRandal Ferguson','',0,'gIA=','1isk3odo',1,0,'',213,0,0),(23099,5228,3,234,0,'75.34.217.174',1165418609,1,0,1,1,1,1,'','gtgui.lib','Hi Antonio,\n\nI downloadeded the latest release and tried to build testprn2.prg; however I am getting an error stating gtgui.lib is missing. I checked the LIB folders for FWH and xHarbour (Oct2006) and it is misssing. Is the LIB required? If so, where can I download the file?\n\nThank you,','',0,'gIA=','1lmdzctq',1,0,'',234,0,0),(23100,5228,3,234,0,'75.34.217.174',1165418807,1,0,1,1,1,1,'','','Hi Antonio,\n\nAlso, I am getting invalid OMF record for ACE32.LIB; where can I get the latest version?\n\nThank you,','',0,'gIA=','n8r2gjsn',1,0,'',234,0,0),(23101,5228,3,234,0,'75.34.217.174',1165419520,1,0,1,1,1,1,'','','Antonio,\n\nI am also getting error linking testprn2.prg; I adding the coding at the top.\n\n// Sample showing how to manage the printer object\n#include \"FiveWin.ch\"\n#pragma BEGINDUMP\n#include \"hbapi.h\"\n#include \"hbapiitm.h\"\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\nreturn pDynSym-&gt;pSymbol;\n}\n#pragma ENDDUMP\n\nand I am getting the following error.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_dynsymSymbol\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|HARBOURC\nError: Unresolved external \'_hb_objHasMessage\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC\nError: Unresolved external \'_HB_FUN___CLSCNTCLASSES\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|ERRSYSW','',0,'gIA=','2hbqho1t',1,0,'',234,0,0),(23102,5225,6,362,0,'200.168.52.156',1165420019,1,0,1,1,1,1,'','','RECOMPILASTES LA LIBRERIA FIVEHX.LIB CON LA NUEVA VERSION DE XHARBOUR???\n\nC:\\FWH..\\LIB','',0,'gIA=','3mcfa04i',1,0,'',362,0,0),(23103,5229,6,743,0,'200.67.230.223',1165420877,1,0,1,1,1,0,'','para antonio lineares','Saludos Antonio\n\n\n una pregunta en que parte del codigo de la classe toolbar debo modificar para poner un tooltip tipo ballon, lo he intentado pero no me sale, que debo modificar dentro del codigo he visto que si se puede y que ya lo implementaro, pero como\n\ngracias','',0,'gIA=','1nd44e9l',1,0,'',743,0,0),(23104,5200,7,57,0,'83.53.71.205',1165421100,1,0,1,1,1,1,'','','Antonio\nEfectivamente estoy utilizando WM2003. Mañana pruebo en la oficina lo que me indicas. Dispongo de 2 maquinas con WM2003 y WM2005. \n\nSaludos','',0,'gIA=','2lpvsk9g',1,0,'',57,0,0),(23105,5228,3,234,0,'75.34.217.174',1165421410,1,0,1,1,1,1,'','','Antonio,\n\nSorry, I downloaded xHarbour from FWH and it corrected the problems below.\n\nHowever, the page counter on print preview is not working.\n\nThank you,','',0,'gIA=','3ah4burz',1,0,'',234,0,0),(23107,5228,3,2,0,'87.218.146.203',1165421984,1,0,1,1,1,1,'','','Darrell,\n\nPlease test samples\\TestPrn2.prg and check if it works fine, thanks.','',0,'gIA=','2npiiuvt',1,0,'',2,0,0),(23108,5224,6,2,0,'87.218.146.203',1165422223,1,0,1,1,1,1,'','','William,\n\nRevisa el código fuente de FWH ___KEYBOARD() en source\\winapi\\keybrd.c y verás como modificarlo facilmente para pasarle VK_CONTROL.','',0,'gIA=','ft1df0wh',1,0,'',2,0,0),(23109,5225,6,152,0,'201.236.44.103',1165422269,1,0,1,1,1,1,'','','karinha:\n\nUso Harbour no xHarbour. \nAlguna vez recompile FIVEH pero no me acuerdo como, me puedes enseñar como se hace.\n\nGracias','',0,'gIA=','247jgpo7',1,0,'',152,0,0),(23110,5228,3,234,0,'75.34.217.174',1165422344,1,0,1,1,1,1,'','','Antonio,\n\nIt does not work. I am sending an email to you with screen shots.\n\nRegards,','',0,'gIA=','esl92a4k',1,0,'',234,0,0),(23111,5223,2,2,0,'87.218.146.203',1165422430,1,0,1,1,1,1,'','','Miguel,\n\nMuéstranos la porción del RC de la caja de diálogo Vendedor.\n\nY por favor, pon los mensajes en español en el foro español, no en el ingles. Gracias,','',0,'gIA=','2waid55d',1,0,'',2,0,0),(23112,5185,6,73,0,'200.66.32.97',1165422768,1,0,1,1,1,0,'','','julio, aki dejo el ejemplo, ojala a alguien mas le sea de utilidad.\ncomo no supe como subir el archivo pues aki lo dejo, se que no es lo mejor.\n\n#include \"FiveWin.CH\"\n#include \"Ado.CH\"\n\n//  aDato := \"MiDatabase.MDB\"\n\nSTAT FUNC Importa(aDato)\nLOCAL oConexionAdo := TOLEAUTO():New(\"adodb.connection\")\nLOCAL oRS := TOLEAUTO():New(\"adodb.recordset\")\nLOCAL oOpen, Rec:=0, cFile := Alltrim(aDato[1]),;\n      aFields:={}, cCod:=\"\"\n\n   oOpen := \"Provider= MicroSoft.Jet.OLEDB.4.0;Data Source=\"+cFile+\";\"\n\n\n   AADD(aFields,{\"Color\",  \"C_Grade\"})\n   AADD(aFields,{\"SCI\",    \"SCI\"    })\n   AADD(aFields,{\"Length\", \"LEN\"    })\n\n   oConexionAdo:Open(oOpen)\n\n   oRS:LockType := adLockOptimistic\n   oRS:CursorType := adOpenKeyset\n   oRS:ActiveConnection(oConexionAdo)\n   oRS:Source := \"Select * from hvidata\" // tu query aqui\n   oRS:Open()\n\n\n   oRS:MoveFirst()\n\n   DO WHILE !oRS:eof()\n\n        cCod := oRS:Fields(\"Bale ID\"):Value   // tomamos valor de la tabla de access del campo Bale ID\n        FOR x := 1 TO LEN(aFields)\n            (oDBF)-&gt;&amp;(aFields[x,2]):=oRS:Fields(aFields[x,1]):Value  // tomo los valores de access de los campos y los pongo en la dbf de acuerdo al nombre en el arreglo\n        NEXT\n        oRS:MoveNext()\n   ENDDO\n\n\n   oRS:Close()\n   oConexionAdo:Close()\n\nRETURN NIL\nsalu2\npaco','',0,'','1uxfk0ke',1,0,'',73,0,0),(23113,5221,6,73,0,'200.66.32.97',1165423164,1,0,1,1,1,0,'','','Rafael, pues algo rapido seria antes del report meter printersetup(), no se si funcione tambien oReport:Setup()\n\nsalu2\npaco','',0,'','3nc39zj2',1,0,'',73,0,0),(23114,5218,6,180,0,'83.35.215.69',1165425984,1,0,1,1,1,0,'','','Tienes que modificar la clase TWINDOW.\nEn windows.prg busca \"ballon\" y cambia la linea por esto: \nhWnd = CreateToolTip( Self:hWnd,cToolTip, .t. ) //for ballon tooltips \n\nUn saludo,\nManuel','',0,'','35mv0etr',1,0,'',180,0,0),(23115,5231,3,308,0,'84.148.40.54',1165427070,1,0,1,1,1,0,'','Text-Color in an TBBUTTON','Hallo Fivewinners,\n\nHow can I change the text-color of an Prompt-Text in a TBBUTTON?  \n\nRegards Norbert','',0,'','2zz16cdo',1,0,'',308,0,0),(23117,5232,2,886,0,'201.122.21.224',1165427493,1,0,0,0,1,0,'','Ayuda: Imprimir mediante bluetooth o IrDA desde FiveWin (PC)','Hola Buenas tardes, Soy nuevo en el foro y novato en fivewin, necesito imprimir desde una aplicacion de FiveWin para PC en una Impresora Citizen Mobile Printer Model CMP - 10 ver 1.92EN, atravez de bluetooth o infrarojo, tengo un ejemplo de utilizacion del bluetooth pero es para Pocket, necesito saber como pasar una aplicacion de Pocket a PC o como le puedo hacer para realizar una aplicacion para PC de Windows imprima a esta impresora.\n\nPD: de antemano gracias.','',0,'','vlt7ph74',1,0,'',886,0,0),(23118,5231,3,303,0,'72.199.41.171',1165427516,1,0,1,1,1,0,'','','Norber,\n\nI think this is a Windows limitation. You can try using a BMP button (without the BMP).\n\n @ 30, 10 BTNBMP oBtn PROMPT \"Close\"; \n             ACTION oDlg:End() \n\n    oBtn:SetColor( CLR_RED, CLR_YELLOW ) \n\nJames','',0,'','taafmr22',1,0,'',303,0,0),(23119,5225,6,362,0,'200.168.52.156',1165430868,1,0,1,1,1,1,'','','JO USO HARB2LIB.EXE, PERO KREO KE VERCE.EXE TAMBIÉN FUNCIONA.\n\nAKI:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=582\">http://www.fivewin.com.br/exibedicas.asp?id=582</a><!-- m -->','',0,'','w90cw45l',1,0,'',362,0,0),(23120,5233,6,743,0,'200.67.230.223',1165431527,1,0,1,1,1,0,'','error al con xharbour','me surgen estos errores de cuando trabajo con xharbour uso fwh 2.6 c harbour xHarbour Compiler build 0.99.61 (SimpLex),\n\nestos son los errores \n\nError: Unresolved external \'_hb_stack\' referenced from C:\\FIVEWIN\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\n\nError: Unresolved external \'AdsFlushFileBuffers\' referenced from C:\\FIVEWIN\\XHB0610\\LIB\\RDDADS.LIB|ads1\n\nError: Unresolved external \'AdsGetNumActiveLinks\' referenced from C:\\FIVEWIN\\XHB0610\\LIB\\RDDADS.LIB|adsfunc\n\nError: Unresolved external \'_HB_FUN__ADS\' referenced from C:\\KCHORROS\\MENU.OBJ','',0,'','19ul8cj6',1,0,'',743,0,0),(23123,5228,3,2,0,'87.218.146.203',1165433305,1,0,1,1,1,1,'','','Darrell,\n\nFixed. It was not working on non XP themed apps.','',0,'','3i1vs0da',1,0,'',2,0,0),(23124,5233,6,2,0,'87.218.146.203',1165435994,1,0,1,1,1,1,'','','Busca la palabra \'_hb_stack\' en estos foros.\n\nTeneis que acostumbraros a usar la opción de búsqueda, que es muy potente, y para eso está <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','37tvqva4',1,0,'',2,0,0),(23125,5210,3,2,0,'87.218.146.203',1165436349,1,0,1,1,1,1,'','','Darrell,\n\nThanks!','',0,'','3o08bv1u',1,0,'',2,0,0),(23126,5210,3,234,0,'75.34.217.174',1165436657,1,0,1,1,1,1,'','','Hi Antonio,\n\nThank you for your help.','',0,'','ocvsp98c',1,0,'',234,0,0),(23127,5198,6,509,0,'88.8.143.244',1165438884,1,0,1,0,1,0,'','','Thanks. Solved the XSCRLL.C of this form: Another problem: \n\n[color=orange:1y3pxhis]\n#pragma BEGINDUMP\n#include &lt;windows.h&gt;\n#include \"hbapi.h\"\nHB_FUNC( XVSCRLL )\n{\n   HWND hWnd     = hb_parni( 1 );\n   WORD wRows    = hb_parni( 2 );\n   int  nHRow    = hb_parni( 3 );\n   int  nRows    = hb_parni( 4 );\n   HDC hDC     = GetDC( hWnd );\n   RECT rct;\n   BOOL bHeader = hb_parl( 5 );\n   WORD nHeader = hb_parni( 6 );\n   GetClientRect( hWnd, &amp;rct );\n   if ( bHeader )\n      rct.top    = nHeader + 1;\n      rct.bottom = ( nHRow * nRows ) - 1;\n      ScrollWindowEx( hWnd, 0, -( nHRow * wRows ), 0, &amp;rct, 0, 0, 0 );\n      ReleaseDC( hWnd, hDC );\n}\nHB_FUNC( XHSCRLL )\n{\n   HWND hWnd     = hb_parni( 1 );\n   WORD wCols    = hb_parni( 2 );\n   int nLeft   = hb_parni( 3 );\n   int nRight  = hb_parni( 4 );\n   HDC hDC     = GetDC( hWnd );\n   RECT rct;\n   GetClientRect( hWnd, &amp;rct );\n   if ( nLeft ) {\n      rct.left = nLeft;\n   }\n   if ( nRight ) {\n      rct.right = nRight;\n   }\n   ScrollWindowEx( hWnd, wCols, 0, 0, &amp;rct, 0, 0, 0 );\n   ReleaseDC( hWnd, hDC );\n}\n#pragma ENDDUMP[/color:1y3pxhis]\n[color=red:1y3pxhis]Another problem: I have the following error. To that it must?[/color:1y3pxhis]Application\n===========\n   Path and name: C:\\RICARDO\\HWINAGE\\HWINAGE.Exe (32 bits)\n   Size: 3,069,952 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 06/12/2006, 21:53:06\n   [color=red:1y3pxhis]Error description: Error BASE/1004  Class: NIL has no exported method: ATITLES[/color:1y3pxhis]   Args:\n\nStack Calls\n===========\n   Called from ATITLES(0)\n   Called from TGRID:ADDCOLUMN(756)\n   Called from TCOLGRID:NEW(170)\n   Called from ARTICULOS(64)\n   Called from (b)MAIN(137)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(180)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 3.00GHz 3000 Mhz\n   Hardware memory: 1024 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 45.0 Intl. (Flex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 22\n      1 M\n      2 Default IME\n      3 CiceroUIWndFrame\n      4 TF_FloatingLangBar_WndTitle\n      5 WIN AGENTES 8.105 - Empresa:CABALLERO S.C.                      Ejercicio:2006\n      6 VERCE v4.3, C:\\ricardo\\HWINAGE\\HWINAGE.VRC - [Ejecución No. 29]\n      7 Símbolo del sistema\n      8 Windows Defender\n      9 Connections Tray\n     10 Medidor de energía\n     11 DIEmWin\n     12 MS_WebcheckMonitor\n     13 keyboard\n     14 ATI Tray Icon Application\n     15 mouse\n     16 ATI video bios poller client\n     17 TmPfw\n     18 Trend Micro PC-cillin Internet Security 14\n     19 _CLS_PCCGuide\n     20 GDI+ Window\n     21 SysFader\n     22 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   ATITLES\n     Local   1:    U    \n     Local   2:    N    0\n   TGRID:ADDCOLUMN\n     Param   1:    O    Class: TCOLGRID\n     Local   1:    O    Class: TGRID\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    N    2\n     Local   6:    N    2\n     Local   7:    N    1\n     Local   8:    N    1\n     Local   9:    N    1\n     Local  10:    N    2\n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    O    Class: TGRID\n     Local  15:    N    1\n     Local  16:    N    0\n     Local  17:    U    \n     Local  18:    C    \"\"\n   TCOLGRID:NEW\n     Param   1:    C    \"art-&gt;codigo\"\n     Param   2:    U    \n     Param   3:    N    80\n     Param   4:    U    \n     Param   5:    O    Class: TGRID\n     Param   6:    O    Class: TFONT\n     Param   7:    N    12632256\n     Param   8:    N    0\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    C    \"LEFT\"\n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    C    \"CENTER\"\n     Param  16:    L    .F.\n     Param  17:    B    {|| ... }\n     Param  18:    B    {|| ... }\n     Param  19:    C    \"Valor no valido\"\n     Param  20:    C    \"Valor no valido\"\n     Param  21:    U    \n     Param  22:    U    \n     Param  23:    L    .F.\n     Param  24:    U    \n     Param  25:    L    .F.\n     Param  26:    L    .F.\n     Param  27:    U    \n     Param  28:    B    {|| ... }\n     Local   1:    O    Class: TCOLGRID\n     Local   2:    U    \n     Local   3:    U    \n   ARTICULOS\n     Local   1:    U    \n     Local   2:    O    Class: TMDICHILD\n     Local   3:    O    Class: TGRID\n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    U    \n     Local  16:    U    \n     Local  17:    U    \n     Local  18:    U    \n     Local  19:    U    \n     Local  20:    U    \n     Local  21:    U    \n     Local  22:    U    \n     Local  23:    U    \n     Local  24:    U    \n     Local  25:    U    \n     Local  26:    U    \n     Local  27:    U    \n     Local  28:    O    Class: TDATABASE\n     Local  29:    U    \n     Local  30:    C    \"                              \"\n     Local  31:    O    Class: TPANEL\n     Local  32:    O    Class: TTABS\n     Local  33:    U    \n   (b)MAIN','',0,'Ag==','1y3pxhis',1,0,'',509,0,0),(23128,5198,6,49,0,'62.13.172.78',1165439476,1,0,1,1,1,1,'','','can you send me the sample test for it .please ?','',0,'Ag==','vd72z3n7',1,0,'',49,0,0),(23129,5198,6,49,0,'62.13.172.78',1165439647,1,0,1,1,1,1,'','','you must compile also theader class of grid....','',0,'Ag==','3cpmrjp8',1,0,'',49,0,0),(23130,5235,6,867,0,'148.243.37.162',1165443453,1,0,1,1,1,0,'','Manual de ayuda','Hola hola como estan todos, alguien me puede proporcionar manual de ayuda en español de fivewin pues; que no sean guia de referencia rapida, necesito conocer la sintaxis y parametros; y ejemplos de cada funcion o comandos, me pueden ayudar por favor, el que trae fivewin, esta en ingles y se me hace complicada entenderle al 100% ingles.\nAyuda por favor ... que me envien a mi correo <!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->, y aun sigo atrancada con lo de facturacion, no doy ni una por fas\nSu amiga Susy','',0,'Ag==','jfdtkn7l',1,0,'',867,0,0),(23131,5224,6,54,0,'189.132.115.225',1165443625,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2lvaqeni]William,\n\nRevisa el código fuente de FWH ___KEYBOARD() en source\\winapi\\keybrd.c y verás como modificarlo facilmente para pasarle VK_CONTROL.[/quote:2lvaqeni]\n\nGracias','',0,'gA==','2lvaqeni',1,0,'',54,0,0),(23132,5063,1,170,0,'90.144.8.32',1165445892,1,0,1,1,1,1,'','','Gilbert,\n\n[quote:3gtvw8a6]\nmais si tu me laisse ton E-Mail je te ferai parvenir l`information\n[/quote:3gtvw8a6]\n\nJe t\'ai transmis un message privé,  l\'as-tu reçu ?\n\nRegards,','',0,'gA==','3gtvw8a6',1,0,'',170,0,0),(23133,5063,1,170,0,'90.144.8.32',1165446607,1,0,1,1,1,1,'','','Antonio,\n\nIt is easy to see DeviceCapa() don\'t work, like DevMode()\nand some others printing functions, and TPrinter() originale class,\nwith the FW 2.5 pack.\n\nRegards,','',0,'gA==','akgazg6y',1,0,'',170,0,0),(23134,5236,3,69,0,'209.196.238.130',1165446800,1,0,1,1,1,0,'','Can anyone read this file in FiveWin','Hi Everybody,\n\nI am told the following file is a \"digitized binary image\".\n\nCan someone let me know if there is any way to read it with Fivewin.\n\n\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02efc19d51/00000001.ECG.html\">http://hyperupload.com/download/02efc19 ... 1.ECG.html</a><!-- m --> \n[/url]\n\nThanks,\n\nJeff','',0,'','1doipyov',1,0,'',69,0,0),(23135,5237,3,205,0,'86.85.179.22',1165447094,1,0,1,1,1,0,'','Memory use','When I start my application the memory used by this proces often increases to &gt; 200.000 KB. After this peak the memory used is approx 20.000 KB. Is there a way to limit the maximum memory used (at startup) ?\n\nBest regards,\nKlaas den Dekker','',0,'','1em0hgfk',1,0,'',205,0,0),(23136,5238,3,205,0,'86.85.179.22',1165447270,1,0,1,1,1,0,'','Windows user','Is there a function (or method in a class) that returns the Windows user ?\n\nBest regards,\nKlaas den Dekker','',0,'','dr4mgh2n',1,0,'',205,0,0),(23137,5238,3,69,0,'209.196.238.130',1165447522,1,0,1,1,1,0,'','','Try  WNetGetUser()\n\n\nJeff','',0,'','2chvv9gk',1,0,'',69,0,0),(23138,5219,20,6,0,'87.18.210.125',1165448255,1,0,1,1,1,1,'','Re: Aprire una pagina di un sito internet','Quali casi? Un esempio?\n\nEMG','',0,'','1y044eb9',1,0,'',6,0,0),(23139,5219,20,54,0,'189.132.115.225',1165453240,1,0,1,1,1,1,'','Re: Aprire una pagina di un sito internet','[quote=&quot;Marco Turco&quot;:3k893as2]Salve,\nesiste una funzione per aprire una pagina internet da un\'applicazione FWH ? Per aprire intendo eseguire internet explorer ed aprire la pagina che mi interessa.\n\nFinora ho utilizzato shellexecute ma in alcuni casi non mi apre la pagina.\n\nGrazie\n\nSaluti\n\nMarco.[/quote:3k893as2]\n\nHola Marco,\n\nen la carpeta samples, viene el archivo webex, es con activex, funciona bien\n\nsaludos','',0,'gA==','3k893as2',1,0,'',54,0,0),(23140,5211,3,233,0,'218.111.22.218',1165454115,1,0,1,1,1,0,'','','Thanks!','',0,'gA==','1j48nd1k',1,0,'',233,0,0),(23141,5063,1,2,0,'87.218.146.203',1165454185,1,0,1,1,1,1,'','','Badara,\n\n&gt; It is easy to see DeviceCapa() don\'t work, like DevMode()\n\nIf it is so easy, then please provide a small sample, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','14g7lmy0',1,0,'',2,0,0),(23142,5063,1,879,0,'65.94.143.210',1165455540,1,0,0,1,1,0,'','','If you are using FW why not give PageScript 4 a try or PageScript32 if you are using xHarbour. There are demo versions for both. I used Pagescript 4 for the past year and the only trouble being printing patterns to a LJ 4 printer. Not sure if the pattern problem exists with PageScript32.\n\nA couple of problems I did have were resolved within less than 2 days. I am just starting to get acquainted with the FW demo so I am not sure if will be any compatibility problems with PageScript. One change I had to make was to alter the .ini in PageScript 4 or use PSSetUseDIB(.F.) in PageScript32 or I could not print images to a LJ 4 printer properly.\n\nSuggest you give PageScript a try. The site is <!-- w --><a class=\"postlink\" href=\"http://www.abeelabs.com\">www.abeelabs.com</a><!-- w -->. It is located in Quebec so any questions you have can be asked in French.\n\nGood Luck,\n\nKen','',0,'gA==','186xoski',1,0,'',879,0,0),(23143,5236,3,303,0,'72.199.41.171',1165455560,1,0,1,1,1,0,'','','Jeff,\n\nYou might look at <!-- w --><a class=\"postlink\" href=\"http://www.leadtools.com\">www.leadtools.com</a><!-- w -->. They have a medical imaging api and C++ class libraries. I don\'t know if they support your format.\n\nJames','',0,'gA==','20e94mea',1,0,'',303,0,0),(23144,5218,6,251,0,'201.211.175.27',1165456374,1,0,1,1,1,1,'','','[quote=&quot;Manuel Aranda&quot;:2cwg3hd9]Tienes que modificar la clase TWINDOW.\nEn windows.prg busca \"ballon\" y cambia la linea por esto: \nhWnd = CreateToolTip( Self:hWnd,cToolTip, .t. ) //for ballon tooltips \n\nUn saludo,\nManuel[/quote:2cwg3hd9]\n\nGracias Manuel por contestar, eso ya lo hize y funciona perfectamente en todo el programa, pero cuando la barra es de tipo toolbar en vez de barbutton no funciona los ballons, el Maestro Hernan parace que lo acomodo pero nadie me tiene noticias al respecto','',0,'gA==','2cwg3hd9',1,0,'',251,0,0),(23145,3421,6,439,0,'200.125.36.123',1165457212,1,0,1,1,1,1,'','','[quote=&quot;Marcelo Via Giglio&quot;:2ckl4y4g]Perdon,\n\npero aqui faltan mensajes o es una mala impresion mia??\n\nsaludos\n\nMarcelo[/quote:2ckl4y4g]\n\nEste post lo recuerdo y es bastante viejo <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , no se porqué esto apareció ahora y aparentemente con mensajes faltantes.\n\nSe habla de una clase de graficos......aunque en lo personal prefiero manejarme con la clases nativas de fivewin, si deseas información, escríbeme.\n\nSaludos.\n\nJosé.','',0,'gA==','2ckl4y4g',1,0,'',439,0,0),(23146,5239,2,812,0,'201.214.35.214',1165457628,1,0,1,1,1,0,'','Error al ejecutar programa en Windows XP','Hola a Todos:\n\nNecesito saber como puedo limpiar una pantalla de ingreso de datos despues de haber ya ingresado un registro y grabado, sigo manteniendo en pantalla el registro anterior.\n\nPor otra parte cuando ejecuto mi programa en WIn Xp, me indica el error que no encuentra el archivo \" BWCCESN.DLL \", uso una dll construida con Workshop 4.5, Clipper 5.2e y FW 2.2.\n\nDesde ya muchas gracias por su ayuda.\n\nMiguel Rivera.','',0,'gA==','2dn78a0z',1,0,'',812,0,0),(23147,5240,3,233,0,'218.111.22.218',1165462708,1,0,1,1,1,0,'','Error: Too many MAP file names:','Hi,\n  I recompiled TSBrowse 6 source that I\'ve been using all this while with the latest xHB 0.99.61+FWH 2.8 Nov. During the linking stage of the lib into my program I got the following error message\n[quote:1mig5mwb]Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Too many MAP file names: j:\\harbour\\xhb096\\tsbrowse\\lib\\sbrowsex.lib[/quote:1mig5mwb]\n\n   What on earth does it mean and how to solve it?\n\nThanks','',0,'gA==','1mig5mwb',1,1165475069,'',233,1,0),(23148,5241,3,190,0,'202.65.134.26',1165463191,1,0,1,1,1,0,'','GetMenuString() is not working for sub-menuitems in WINXP','Hello Friends\n\nThe following code is working Ok in Win98 and generating\nMenustrings of all main menu and sub-menu items.\n\nWhereas the same code is not working in WinXP and generating\nMenustrings only for main menu items.\n\nWhen bitmaps are used alongwith text in sub-menu items, no \nMenustrings (in text) are generated either in Win98 or in WinXp.\n\nThis is very essential for me to develop a mechanism to allot \nmenuitem-wise rights to different users.\n\nI am using these generated menu strings in a tree as shown below and \nallowing the superuser to allot rights to his sub-ordinate users by clicking\non the tree items.\n\n\n[img:1euh4cgf]http&#58;//img208&#46;imageshack&#46;us/img208/5390/menustl3&#46;png[/img:1euh4cgf]\n\nPlease help.\n\nRegards to you\n\n- Ramesh Babu P\n\n\n[code:1euh4cgf]\n#include &quot;FiveWin&#46;ch&quot;\n\n******\n\n#define MF_ENABLED       0\n#define MF_GRAYED        1\n#define MF_DISABLED      2\n#define MF_BITMAP        4\n#define MF_CHECKED       8\n#define MF_POPUP        16  // 0x0010\n#define MF_BREAK        64\n#define MF_BYPOSITION 1024  // 0x0400\n#define MF_SEPARATOR  2048  // 0x0800\n#define MF_HELP      16384  // 0x4000\n#define MF_HILITE      128  // 0x0080\n#define MF_UNHILITE      0\n#define MF_OWNERDRAW   256  // 0x0100\n\n******\n\nSTATIC oWnd\n\nFUNCTION main&#40;&#41;\n\nLOCAL oIco, oBar, oBmp\n\nDEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;\n       TITLE &quot;Testing to Get Menu Items&quot; ;\n       MENU  BuildMenu&#40;&#41; ;\n       ICON oIco\n\nACTIVATE WINDOW oWnd ;\n       VALID MsgYesNo&#40; &quot;Do you want to quit ?&quot; &#41;\n\nRETURN nil\n\n//----------------------------------------------------------------------------//\n\nFUNCTION BuildMenu&#40;&#41;\n\nLOCAL oMenu\nLOCAL n\n\nMENU oMenu\n     MENUITEM &quot;Information&quot;\n     MENU\n       MENUITEM &quot;&amp;About&#46;&#46;&#46;&quot; ;\n       ACTION MsgInfo&#40; FWDESCRIPTION &#41; \n       //FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\info&#46;bmp&quot;\n       SEPARATOR\n       MENUITEM &quot;&amp;End&#46;&#46;&#46;&quot;  ;\n       ACTION oWnd&#58;End&#40;&#41; //FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\exit&#46;bmp&quot;\n     ENDMENU\n     MENUITEM &quot;&amp;Clients&quot;\n     MENU\n       MENUITEM &quot;&amp;New&#46;&#46;&#46;&quot; ;\n       ACTION &#40; MsgStop&#40; &quot;New Clients&quot; &#41;,;\n                oWnd&#58;Say&#40; 5, 5, &quot;New Clients&#46;&#46;&#46;&quot;, &quot;GR+/G&quot; &#41; &#41; \n       //FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\faces&#46;bmp&quot;\n       MENUITEM &quot;&amp;Modify&#46;&#46;&#46;&quot;  ACTION MsgInfo&#40; &quot;Modif&#46; Clients&quot; &#41; \n       //FILENAME &quot;&#46;&#46;\\bitmaps\\edit&#46;bmp&quot;\n       MENUITEM &quot;&amp;Delete&#46;&#46;&#46;&quot;  ACTION MsgAlert&#40; &quot;Del Clients&quot; &#41; \n       //FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\delete&#46;bmp&quot;\n       SEPARATOR\n       MENUITEM &quot;&amp;Browse&#46;&#46;&#46;&quot;  ACTION MsgInfo&#40; &quot;Browse Clients&quot; &#41; \n       //FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\browse&#46;bmp&quot;\n     ENDMENU\n     MENUITEM &quot;&amp;Utilities&quot;\n     MENU\n       MENUITEM &quot;&amp;Calculator&#46;&#46;&#46;&quot; ACTION WinExec&#40; &quot;Calc&quot; &#41; \n       //FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\calc&#46;bmp&quot;\n       MENUITEM &quot;&amp;Internet&#46;&#46;&#46;&quot; ;\n       ACTION WinExec&#40; &quot;start iexplore www&#46;fivetech&#46;com&quot;, 0 &#41; \n       //FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\explorer&#46;bmp&quot;\n     ENDMENU\nENDMENU\n\nResBuild&#40; oMenu &#41;\n\nRETURN oMenu\n\n//----------------------------------------------------------------------------//\n\nFUNCTION ResBuild&#40; oMenu &#41;\n\nLOCAL n\nLOCAL hMenu &#58;= oMenu&#58;hMenu\nLOCAL hSubMenu\nLOCAL oSubMenu, oMenuItem\n\nFOR n = 1 to GetMItemCount&#40; hMenu &#41;\n\n    oMenuItem          = TMenuItem&#40;&#41;&#58;New&#40;&#41;\n    oMenuItem&#58;nId      = GetMItemID&#40; hMenu, n - 1 &#41;\n    oMenuItem&#58;cPrompt  = GetMenuString&#40; hMenu, n - 1, MF_BYPOSITION &#41;\n    oMenuItem&#58;cMsg     = &quot;&quot;\n    oMenuItem&#58;lChecked = lAnd&#40; GetMenuState&#40; hMenu, n - 1, MF_BYPOSITION &#41;, MF_CHECKED &#41;\n    oMenuItem&#58;lActive  = ! lAnd&#40; GetMenuState&#40; hMenu, n - 1,;\n                         MF_BYPOSITION &#41;, nOr&#40; MF_DISABLED, MF_GRAYED &#41; &#41;\n    oMenuItem&#58;oMenu    = oMenu\n    oMenuItem&#58;hBitmap  = 0\n    oMenuItem&#58;lHelp    = &#46;F&#46;\n    oMenuItem&#58;lBreak   = lAnd&#40; GetMenuState&#40; hMenu, n - 1, MF_BYPOSITION &#41;, MF_BREAK &#41;\n\n    AAdd&#40; oMenu&#58;aItems, oMenuItem &#41;\n\n?oMenu&#58;aItems&#91;n&#93;&#58;cPrompt\n\n    IF &#40; hSubMenu &#58;= GetSubMenu&#40; hMenu, n - 1 &#41; &#41; != 0\n       oSubMenu          = TMenu&#40;&#41;&#58;New&#40;&#41;\n       oSubMenu&#58;hMenu    = hSubMenu\n       oSubMenu&#58;lSysMenu = &#46;F&#46;\n       oSubMenu&#58;aItems   = &#123;&#125;\n       oMenuItem&#58;bAction = oSubMenu\n       ResBuild&#40; oSubMenu &#41; \n    ENDIF\n\nNEXT\n\nRETURN nil\n\n**********\n\n[/code:1euh4cgf]','',0,'CIA=','1euh4cgf',1,0,'',190,0,0),(23149,5240,3,190,0,'202.65.134.26',1165464422,1,0,1,1,1,0,'','','Dear Mr.hua\n\n[quote:27fe81e3]What on earth does it mean and how to solve it? [/quote:27fe81e3]\n\nIt is very simple and it means that you have omitted a\ncomma immediately after the \"[color=red:27fe81e3]echo %1.map[/color:27fe81e3]\"\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\n[color=blue:27fe81e3]echo %1.map, + &gt;&gt; b32.bc[/color:27fe81e3]\necho c:\\fwh\\lib\\Fivehx.lib c:\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n..\n..\n\n\nThats all\n\nRegards to you\n\n- Ramesh Babu P','',0,'gg==','27fe81e3',1,0,'',190,0,0),(23150,3421,6,73,0,'200.66.32.97',1165464906,1,0,1,1,1,0,'','','bueno pues yo encontre esto:\n<!-- m --><a class=\"postlink\" href=\"http://www.flash-menus.com/officebar.asp\">http://www.flash-menus.com/officebar.asp</a><!-- m -->\nsalu2\npaco','',0,'gg==','334ictm2',1,0,'',73,0,0),(23151,5236,3,69,0,'209.196.238.130',1165468064,1,0,1,1,1,0,'','','Thanks James ... I sent them an  e-mail.\n\nI hope they can help.\n\n\nJeff','',0,'gg==','2as5x5yu',1,0,'',69,0,0),(23152,5240,3,233,0,'218.111.22.218',1165470431,1,0,1,1,1,0,'','','Thank you Ramesh! Your suggestion put me on the right track and I realized that the last of my obj file is missing a comma.','',0,'gg==','3ilutbnc',1,0,'',233,0,0),(23153,5210,3,233,0,'218.111.22.218',1165470733,1,0,1,1,1,0,'','','Antonio, \n  How to fix this? It\'s also occuring on Win98. \n\n\n\nThanks\n\n--\nxHB0.99.61 + FWH 2.8 Nov','',0,'gg==','117trkor',1,0,'',233,0,0),(23154,5228,3,234,0,'75.34.217.174',1165471441,1,0,1,1,1,1,'','','Hi Antonio,\n\nI am having a problem with :Refresh(); it initializes but does not refresh.\n\ncText := \"1\"\noText:Refresh()  ===&gt; 1\n\ncText := \"2\"\noText:Refresh()  ===&gt; still shows 1\n\nRegards,','',0,'gg==','2dk1q52g',1,0,'',234,0,0),(23155,5228,3,233,0,'218.111.22.218',1165475345,1,0,1,1,1,0,'','','Antonio, \nHow to fix this bug? It\'s also occuring on Win98. \n\n\n\nThanks \n\n-- \nxHB0.99.61 + FWH 2.8 Nov','',0,'gg==','146nn848',1,0,'',233,0,0),(23156,5200,7,57,0,'88.0.86.53',1165479798,1,0,1,1,1,1,'','','Antonio\nHe realizado pruebas con un Terminal intermec con WM2003 y con la version de Junio funciona correctamente y en la última version no.\n\nTe adjunto nuevamente las imagenes:\n[url=http&#58;//imageshack&#46;us:6aiadwez][img:6aiadwez]http&#58;//img82&#46;imageshack&#46;us/img82/823/bmp1nn5&#46;png[/img:6aiadwez][/url:6aiadwez]\n\n[url=http&#58;//imageshack&#46;us:6aiadwez][img:6aiadwez]http&#58;//img222&#46;imageshack&#46;us/img222/5739/bmp2wa0&#46;png[/img:6aiadwez][/url:6aiadwez]\n\nSaludos[/img]','',0,'GA==','6aiadwez',1,0,'',57,0,0),(23157,5200,7,2,0,'87.218.146.203',1165480014,1,0,1,1,1,1,'','','Toni,\n\nPuedes probar samples\\TestDlg.prg (cambiando el color del GET) con la versión de Junio en tu PDA y tambien el el emulador WM2003 ? gracias','',0,'GA==','1ksiyj0c',1,0,'',2,0,0),(23158,5221,6,63,0,'84.77.241.10',1165480069,1,0,1,1,1,0,'','','Paco:\n\nPues sí señor, funciona. Tan fácil como poner PrinterSetup() antes del REPORT...   \nA veces las soluciones más obvias son las que más nos cuesta ver.  Muchas gracias y un saludo,\n\nRafael','',0,'GA==','3e8bdv7n',1,0,'',63,0,0),(23159,5210,3,2,0,'87.218.146.203',1165480226,1,0,1,1,1,1,'','','Hua,\n[code:xzm7if8b]\nMETHOD SetText&#40; cText &#41; CLASS TSay\n\n   &#46;&#46;&#46;\n   SetWindowText&#40; &#58;&#58;hWnd, &#58;&#58;cCaption &#41;\n   &#58;&#58;VarPut&#40; &#58;&#58;cCaption &#41;  // New!\n\nreturn nil\n[/code:xzm7if8b]','',0,'AIA=','xzm7if8b',1,0,'',2,0,0),(23160,5228,3,2,0,'87.218.146.203',1165480407,1,0,1,1,1,1,'','','Darrell,\n\nPlease do it this way:\n[code:26d4rx5o]\noText&#58;SetText&#40; &quot;1&quot; &#41;\n&#46;&#46;&#46;\noText&#58;SetText&#40; &quot;2&quot; &#41;\n[/code:26d4rx5o]','',0,'AIA=','26d4rx5o',1,0,'',2,0,0),(23161,5239,2,2,0,'87.218.146.203',1165480615,1,0,1,1,1,1,'','','Miguel,\n\nRenombra bwcc.dll como BWCCESN.DLL\n\nEn cuanto a tu primera cuestión, necesitamos ver un ejemplo, pequeño y autocontenido, de cómo lo estás haciendo.','',0,'AIA=','2f021v8a',1,0,'',2,0,0),(23162,5063,1,170,0,'90.144.8.32',1165481561,1,0,1,1,1,1,'','','Ken,\n\nPageScript 4 not work with Clipper Windows programs.\nJust for DOS Clipper. In the release i have. I use it since\nfew years in my DOS Clipper programs.\n\nI have rewritted all Pagescript functions i need,\nto work in the same way under Windows programs.\n\nI will see the last upgrades.\nThank you for the information.\n\nRegards,','',0,'AIA=','38ivtk5f',1,0,'',170,0,0),(23163,5063,1,170,0,'90.144.8.32',1165481804,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:iuvvwwtr]Badara,\n\n&gt; It is easy to see DeviceCapa() don\'t work, like DevMode()\n\nIf it is so easy, then please provide a small sample, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:iuvvwwtr]\n\nTo test, insert DeviceCapa() in your main PRG and test compile\nwith FW 2.5 (october 2004). You see like me, or you have not\nthe same FW 2.5 pack.\n\nDo the same with DevMode().\n\nRegards,','',0,'gA==','iuvvwwtr',1,0,'',170,0,0),(23164,5242,3,206,0,'125.160.81.148',1165481871,1,0,1,1,1,0,'','OLE objects and properties','Dear All,\n\nwhere i can find list of OLE objects/properties.\n\neg:EXCEL OLE properties? (:Value :Border :Format).....\n\nThanks\nHiong','',0,'gA==','25s2bfan',1,0,'',206,0,0),(23165,5210,3,233,0,'218.111.22.218',1165482166,1,0,1,1,1,0,'','','Thanks for the quick reply Antonio! The bug is confirmed fixed.','',0,'gA==','3o1h14tz',1,0,'',233,0,0),(23166,5200,7,57,0,'88.0.86.53',1165482304,1,0,1,1,1,1,'','','Antonio\nAdjunto resultado del TestDlg :\n[url=http&#58;//imageshack&#46;us:1khqxgem][img:1khqxgem]http&#58;//img152&#46;imageshack&#46;us/img152/5563/bmp1gm7&#46;png[/img:1khqxgem][/url:1khqxgem]\n\nPor contra TestFold se ve correctamente:\n[url=http&#58;//imageshack&#46;us:1khqxgem][img:1khqxgem]http&#58;//img152&#46;imageshack&#46;us/img152/6201/bmp2ll3&#46;png[/img:1khqxgem][/url:1khqxgem]\n\nSaludos','',0,'GA==','1khqxgem',1,0,'',57,0,0),(23167,5236,3,177,0,'194.30.62.6',1165482371,1,0,1,1,1,0,'','','Hi Jeff,\n\nECG is a Electro Cardio Graph. You must review the next articles in Code Project:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/tools/ecg_dsp.asp\">http://www.codeproject.com/tools/ecg_dsp.asp</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/tools/ECG_1_to_TXT.asp\">http://www.codeproject.com/tools/ECG_1_to_TXT.asp</a><!-- m -->\n\nBest regards,\n\nFelix','',0,'GA==','3b5mu0n4',1,0,'',177,0,0),(23168,5243,3,233,0,'218.111.22.218',1165482642,1,0,1,1,1,0,'','Samba','One of our customer recently got himself Linux with Samba 3.xx and run it as a fileserver. The clients machines are a mixture of Win98 and XP Home.\n\nTheir apps were compiled with xHB 0.99.41 + FWH2.6 + local ADS\n\nThey are now reporting error such as [b:2s6o60bh]Run Time Error: Cannot map file error 8[/b:2s6o60bh] and [b:2s6o60bh]Run Time Error: Cannot allocate buffer[/b:2s6o60bh].\n\nI have never came across such errors before. Anyone has any idea what I ought to do? I\'m not that familiar with linux myself. Thank you in advance','',0,'QA==','2s6o60bh',1,0,'',233,0,0),(23169,5244,3,15,0,'203.73.66.142',1165484557,1,0,1,1,1,0,'','Report Counter problem','Hello\n\nReport Counter record have problem.\nPage 1 show Counter 58 records, but I view 59 records\nPage 2 Show Counter 117 records, But I view 59 Records ...etc\n\nSource code Below:\n[code:1448r69e]\nREPORT oReport                                 ;                  \n   TITLE  cTL+REPL&#40;&quot;&#12288;&quot;,10&#41;+&quot;Date&#58;&quot;+DAT +REPL&#40;&quot;&#12288;&quot;,10&#41;+      ;\n          &quot;Page&#58; &quot;+str&#40;oReport&#58;nPage,3&#41;   LEFT           ;        \n   HEADER &#40;TNAME+&quot; Employee&quot;&#41;             ,;             \n   &quot; &quot;            CENTER                               ;          \n   FOOTER &quot; &quot;,;                                                   \n          &#40;&quot;Counter&#58;&quot;+STR&#40;oREPORT&#58;nCOUNTER,5&#41;+&quot; Person&quot;&#41;  CENTER ;   \n   FONT oFont1,oFont2,oFont3                           ;          \n   CAPTION &quot;Employee&quot;                   ;                     \n   TO PRINTER\n[/code:1448r69e]\n\nProblem is below:\n[code:1448r69e]oReport&#58;count&#40;&#41;[/code:1448r69e]\n\nFWH 2.6 SEP + BCC55 + xHarbour 0.99.61\n\nRegards,\n\nRichard','',0,'AIA=','1448r69e',1,0,'',15,0,0),(23170,5200,7,2,0,'87.218.146.203',1165486867,1,0,1,1,1,1,'','','Toni,\n\nEsta es la versión que nosotros estamos usando en el emulador. Puedes compararla con la tuya ? Me da la impresión de que son distintas:\n[url=http&#58;//imageshack&#46;us:var3cfkb][img:var3cfkb]http&#58;//img179&#46;imageshack&#46;us/img179/7273/infocl9&#46;png[/img:var3cfkb][/url:var3cfkb]','',0,'GA==','var3cfkb',1,0,'',2,0,0),(23171,5242,3,2,0,'87.218.146.203',1165487023,1,0,1,1,1,1,'','','Hiong,\n\nYou may use Microsoft OleView utility.','',0,'GA==','y99ftwln',1,0,'',2,0,0),(23172,5179,6,176,0,'201.255.162.74',1165487678,1,0,1,1,1,0,'','','Mi correo es <!-- e --><a href=\"mailto:luissaenz@cscom.com.ar\">luissaenz@cscom.com.ar</a><!-- e -->\n\nGracias','',0,'GA==','1xvd497k',1,0,'',176,0,0),(23173,5243,3,19,0,'217.153.83.2',1165489491,1,0,1,1,1,0,'','','Try this\n\n<!-- m --><a class=\"postlink\" href=\"http://www.drouillard.ca/Tips&amp;Tricks/Samba/Oplocks.htm\">http://www.drouillard.ca/Tips&amp;Tricks/Samba/Oplocks.htm</a><!-- m -->\n\nregards Eugeniusz','',0,'GA==','2vkzkbeb',1,0,'',19,0,0),(23174,5200,7,57,0,'88.0.86.53',1165489663,1,0,1,1,1,1,'','','Antonio\nSon ligeramente distintas. Pero Yo no estoy utilizando el Emulador. Estoy utilizando un Terminal INTERMEC. ¡¡ Supongo que debe ser igual !! .\n\nVersion 4.20.0 (Build 14053)\nProcesador: ARM PXA255\n\nSaludos','',0,'GA==','61cghv77',1,0,'',57,0,0),(23175,5200,7,57,0,'88.0.86.53',1165489813,1,0,1,1,1,1,'','','Y es PocketPC\nSe me olvidó la imagen\n\n[url=http&#58;//imageshack&#46;us:urvhfmwv][img:urvhfmwv]http&#58;//img171&#46;imageshack&#46;us/img171/4541/bmp1pv4&#46;png[/img:urvhfmwv][/url:urvhfmwv]','',0,'GA==','urvhfmwv',1,0,'',57,0,0),(23176,5242,3,6,0,'87.20.217.34',1165494486,1,0,1,1,1,1,'','','Or consult Office docs (VBAXL*.CHM) or MSDN.\n\nEMG','',0,'GA==','2rzovywp',1,0,'',6,0,0),(23177,5109,7,720,0,'80.36.244.134',1165495720,1,0,1,1,1,0,'','','Hola Antonio.\n\nEfectivamente el codigo que me has mandado funciona perfectamente. Yo era el que lo estaba usando mal. Lo que pasa es que por lo que veo la función localiza una dirección de memoria en concreto...Supongo que se ha preparado exclusivamente para la tabla que te mandé. El tema es que la tabla que uso es más grande o simplemente puede que un dia cambie porque se le añada un campo o porque se le quite. Lo que quiero decir  con esto es que no deberia pasarle una dirección, sino que lo ideal sería pasarle al seek una cadena con el nombre de la *.dbc, con lo que daría igual el tamaño de las tablas y se podría usar de forma genérica para cualquiera. ¿Esto que te comento se puede hacer? Por ejemplo:\n\nUsar FSeek( hFile, \'datos.dbc\' ) en vez de FSeek( hFile, 0x41 ) \n\nLa otra opción sería recorrer byte a byte toda la tabla buscando la cadena datos.dbc......., ¿no?\n\n\nSaludos\n\nElías Torres.','',0,'GA==','13wlyc6o',1,0,'',720,0,0),(23178,5245,3,486,0,'200.184.85.3',1165495727,1,0,1,1,1,0,'','printer and Matricial or Jet of Paint','Hi,\n\nDoes he have as knowing the installed printer and Matricial or Jet of Paint?\n\nClemerson','',0,'GA==','3mlpmsyb',1,0,'',486,0,0),(23179,5246,7,527,0,'88.12.144.187',1165495802,1,0,1,1,1,0,'','Ayuda con tipo de letra','REDEFINE LISTBOX oLbx ;\n              FIELDS lineas-&gt;articulo                      ,;\n                     lineas-&gt;nombre                        ,;\n                     transform(lineas-&gt;cantidad, \"999.99\") ,;\n                     transform(lineas-&gt;precio,   \"999.99\") ,;\n                     transform(lineas-&gt;dto,      \"999.99\") ,;\n                     transform(lineas-&gt;importe,  \"9999.99\") ;\n              ALIAS \"lineas\";\n              ID 101 OF oFld:aDialogs[ 3 ]\n\ntengo el siguiente codigo, como puedo colocarle un tipo de letra y un tamaño\nGRACIAS\n<!-- e --><a href=\"mailto:imjcc@mjccsl.com\">imjcc@mjccsl.com</a><!-- e -->','',0,'','1mqr7g5v',1,0,'',527,0,0),(23180,5246,7,720,0,'80.36.244.134',1165496057,1,0,1,1,1,0,'','','Hola..\n\nPrueba con esto..\n\nDEFINE FONT oFont NAME \"Courier New\" SIZE 10, -16 bold\n\n\nLuego solo tienes que usar el objeto oFont en donde quieras.\n\n\nSaludos.\n\nElías Torres.','',0,'','24ldaclf',1,0,'',720,0,0),(23181,5247,4,20,0,'87.10.213.244',1165496597,1,0,1,1,1,0,'','Folder - Prompts color','When I disable a folder item, the color of the prompt no change.\n\nHow I can make this?\n\nRegards.\nPier Luigi','',0,'','1kj8hqes',1,0,'',20,0,0),(23182,5246,7,527,0,'88.11.0.55',1165497095,1,0,1,1,1,0,'','Ejemplo por favor','Me podrias enviar un ejemplo con mi codigo por favor, estoy empezando y todavia no se unir instrucciones unas con otras\nEl tipo de letra no lo quiero en negrilla, y el tamaño serie un 8\n\nGracias','',0,'','2blx2w2u',1,0,'',527,0,0),(23183,5246,7,720,0,'80.36.244.134',1165498154,1,0,1,1,1,0,'','','Prueba con esto:\n\nDEFINE FONT oFont NAME \"Courier New\" SIZE 10, -16\nREDEFINE LISTBOX oLbx ; \nFIELDS lineas-&gt;articulo ,; \nlineas-&gt;nombre ,; \ntransform(lineas-&gt;cantidad, \"999.99\") ,; \ntransform(lineas-&gt;precio, \"999.99\") ,; \ntransform(lineas-&gt;dto, \"999.99\") ,; \ntransform(lineas-&gt;importe, \"9999.99\") ; \nALIAS \"lineas\"; \nID 101 font oFont OF oFld:aDialogs[ 3 ]  \n\nEn cuanto al tamaño, yo siempre me he hecho un lio, asi que lo mejor es que juegues con las cantidades y vas viendo el resultado....\n\n\nSaludos.\n\nElías Torres.','',0,'','10pyzhcr',1,0,'',720,0,0),(23184,5246,7,527,0,'88.11.7.153',1165498574,1,0,1,1,1,0,'','Barras de desplazamiento','Al asignarle un control de table, me pierde las barras de desplazamiento, sabes de que puede ser.\n\ngracias.','',0,'','kamidjdh',1,0,'',527,0,0),(23185,5248,2,812,0,'200.83.124.193',1165499341,1,0,1,1,1,0,'','Problemas Limpiar Pantalla ( Para Antonio Linares)','Hola Antonio:\n\nTe envio el segmento del programa, donde tengo el ingreso de un maestro, despues de ingresar y grabar un registro, necesito limpiar los datos anteriores para un nuevo ingreso.\n\nOtra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE.\n\nDisculta por las molestias causadas, hace muy poco que estoy ingresando al mundo de Fivewin, como todo clippero, me acostado pasar al ambiente windows.\n\nPor tu ayuda, muchas gracias.\n\nMiguel Rivera.\n\nTROZO DEL PRG\nFunction Actuven1(lPara)\n  Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1\n  Local oDlgEdit\n  If (lPara)\n      stor spac(3)  to cod_ven1\n      stor spac(40) to nom_ven1\n      stor spac(40) to dir_ven1,email1\n      stor spac(20) to com_ven1,ciu_ven1,fon_ven1\n      stor spac(25) to cel_ven1\n  Else\n      Cod_ven1:=oDbVendedor-&gt;Cod_ven\n      Nom_ven1:=oDbVendedor-&gt;Nom_ven\n      Dir_ven1:=oDbVendedor-&gt;dir_ven\n      Com_ven1:=oDbVendedor-&gt;Com_ven\n      Ciu_ven1:=oDbVendedor-&gt;Ciu_ven\n      Fon_ven1:=oDbVendedor-&gt;Fon_ven\n      Cel_ven1:=oDbVendedor-&gt;Cel_ven\n      Email1:=oDbVendedor-&gt;Email\n  Endif\n\n  Define Cursor oCurDedo Resource \"Dedo\"\n  Do while lPara\n     Define Dialog oDlgEdit Resname \"Vendedor\"\n     IF lPara\n        Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update Picture \"@!\" Color \"w+/bg\"\n     Else\n        Redefine Say oCod_ven1 Prompt Cod_ven1 Id 30 Of oDlgEdit Color \"w+/bg\"\n     Endif\n     Redefine Get oNom_ven1 Var Nom_ven1 Id 31 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n     Redefine Get oDir_ven1 Var Dir_ven1 Id 32 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n\n     Redefine Get oFon_ven1 Var Fon_ven1 Id 35 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n     Redefine Get oCel_ven1 Var Cel_ven1 Id 36 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n     Redefine Get oEmail1   Var Email1   Id 37 Of oDlgEdit Update  Picture \"@x\"  Color \"w+/bg\"\n\n     Redefine Button Id 180 Of oDlgEdit ;\n              Action Graba_ven()\n\n     Redefine Button Id 150 Of oDlgEdit ;\n       Action (lPara:=.F.,oDlgEdit:END())\n\n     Activate Dialog oDlgEdit Centered\n  Enddo\n\n  return\n\nFunction Graba_ven()\n         If nom_ven1=spac(40).or.cod_ven1=spac(3)\n            MsgInfo(\" ERROR, Código o Nombre Vacios \")\n            Return lPara:=.t.\n         endif\n         Sele a\n         a-&gt;(dbAppend())\n         Repl Cod_ven with Cod_ven1,Nom_ven with Nom_ven1,Dir_ven with Dir_ven1,;\n              Ciu_ven with Ciu_ven1,Com_ven with Com_ven1,Fon_ven with Fon_ven1,;\n              Cel_ven with Cel_ven1,Email with Email1\n         Dbcommit()\n         Dbunlock()\n         If (lPara)\n            stor spac(3)  to cod_ven1\n            stor spac(40) to nom_ven1\n            stor spac(40) to dir_ven1,email1\n            stor spac(20) to com_ven1,ciu_ven1,fon_ven1\n            stor spac(25) to cel_ven1\n         Endif\n\n         Return','',0,'','2jlkei2l',1,0,'',812,0,0),(23186,5228,3,234,0,'75.34.217.174',1165501075,1,0,1,1,1,1,'','','Antonio,\n\nThat worked.  However, we have over 300 prg that have the otext:refresh() that worked before I installed the upgrade. Please let me know if there is a fix for otext:refresh(); othererwise we will have to waste time reprogramming all the prg.\n\nThank you,','',0,'','1d8qtevq',1,0,'',234,0,0),(23187,5198,6,509,0,'83.33.158.151',1165503972,1,0,1,0,1,0,'','','I have sent you file ART_.PRG where I use class GRID. \n\nBest regards,\n\nRicardo Patón','',0,'','320rqjbo',1,0,'',509,0,0),(23188,5249,6,644,0,'201.252.59.86',1165505741,1,0,1,1,1,0,'','Folders con Pelles C','Estoy trabajando con Pelles y no tengo muchos dramas. Uno de ellos fue querer diseñar un folder desde recursos. Lo que hice fue pasar una dll que tenia el recurso de folder a .rc. Esta dll la tomé de los samples de FHW. Pero no funcionó. Cuál es la punta de este recurso. Desde ya muchas gracias','',0,'','2tqfw1sl',1,0,'',644,0,0),(23189,5063,1,879,0,'65.94.143.210',1165505954,1,0,0,1,1,0,'','','Badara,\n\nIn this highly technical world it is very easy to misinterpret what is meant or said.\n\nFirst, you are correct in saying that PageScript 4, currently at version 4.1.0, only works with DOS Clipper. If  FW, the DOS Clipper version were added, the combination would work with DOS Clipper.\n \nSecond, Stephan has stated many times that PageScript 4 could not be used with 32 bit programs and no 32 bit version was available. A couple of months ago AbeeLabs finally released PageScript32 version 1.0 which does work with 32 bit programs. The package contains all files needed to work with xHarbour, Xbase++ or Delphi. \n\nOne change is needed to migrate to xHarbour if PSTextOut() was used rather than Textout. In that case, one line is added for PageScript 4 compatibility.\n\nI am still looking at the FW demo. There are several things I do now in Clipper that I need to learn how to do before I purchase FWH.\n\nNeither FiveWin or xHarbour offer patches for older versions; you must either upgrade or subscribe. It may be that version 2.8 has fixed Gilbert\'s and your particular problems.\n\nThe solution to a post where a person with a problem in 2.7 was to purchase an upgrade. I wonder if the currently acknowledged problems in 2.8 will not get fixed until 2.9.\n\nBugs in the software should not require a user to pay for an upgrade to get the fix. There should be a limit on the time a version is supported but should exist in some form. The next version may contain a whole new set of bugs! Could this be a carefully designed plot???\n\nRegards,\n\nKen','',0,'','1xo5tw8h',1,0,'',879,0,0),(23190,4906,6,644,0,'201.252.59.86',1165508090,1,0,1,1,1,0,'','','Estuve haciendo varias pruebas sobre el change del get y sucede algo raro. si en el change pongo un MsgAlert() con la variable del get funciona. aunque me empieza a mostrar la cadena una vez que he ingresado dos caracteres. A partir del tercero lo muestra. Ahora si quiero cambiar el título de un dialogo con un change de un get no lo hace. Tendrá solución ?? Gracias por todo','',0,'','2xjkg1xn',1,0,'',644,0,0),(23191,5250,2,812,0,'200.83.124.193',1165508161,1,0,1,1,1,0,'','Favor, Necesito Ayuda','Hola Amigos:\n\nNo se como limpiar la pantalla despues de ingresar y grabar un registro, para el siguiente registro, sigue mostrando los datos anteriores. \n\nOtra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE. \n\nDisculpen por las molestias causadas, hace muy poco que estoy ingresando al mundo de Fivewin, como todo clippero, me acostado pasar al ambiente windows. \n\nPor tu ayuda, muchas gracias. \n\nMiguel Rivera. \n\nTROZO DEL PRG \nFunction Actuven1(lPara) \nLocal oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1 \nLocal oDlgEdit \nIf (lPara) \nstor spac(3) to cod_ven1 \nstor spac(40) to nom_ven1 \nstor spac(40) to dir_ven1,email1 \nstor spac(20) to com_ven1,ciu_ven1,fon_ven1 \nstor spac(25) to cel_ven1 \nElse \nCod_ven1:=oDbVendedor-&gt;Cod_ven \nNom_ven1:=oDbVendedor-&gt;Nom_ven \nDir_ven1:=oDbVendedor-&gt;dir_ven \nCom_ven1:=oDbVendedor-&gt;Com_ven \nCiu_ven1:=oDbVendedor-&gt;Ciu_ven \nFon_ven1:=oDbVendedor-&gt;Fon_ven \nCel_ven1:=oDbVendedor-&gt;Cel_ven \nEmail1:=oDbVendedor-&gt;Email \nEndif \n\nDefine Cursor oCurDedo Resource \"Dedo\" \nDo while lPara \nDefine Dialog oDlgEdit Resname \"Vendedor\" \nIF lPara \nRedefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update Picture \"@!\" Color \"w+/bg\" \nElse \nRedefine Say oCod_ven1 Prompt Cod_ven1 Id 30 Of oDlgEdit Color \"w+/bg\" \nEndif \nRedefine Get oNom_ven1 Var Nom_ven1 Id 31 Of oDlgEdit Update Picture \"@!\" Color \"w+/bg\" \nRedefine Get oDir_ven1 Var Dir_ven1 Id 32 Of oDlgEdit Update Picture \"@!\" Color \"w+/bg\" \n\nRedefine Get oFon_ven1 Var Fon_ven1 Id 35 Of oDlgEdit Update Picture \"@!\" Color \"w+/bg\" \nRedefine Get oCel_ven1 Var Cel_ven1 Id 36 Of oDlgEdit Update Picture \"@!\" Color \"w+/bg\" \nRedefine Get oEmail1 Var Email1 Id 37 Of oDlgEdit Update Picture \"@x\" Color \"w+/bg\" \n\nRedefine Button Id 180 Of oDlgEdit ; \nAction Graba_ven() \n\nRedefine Button Id 150 Of oDlgEdit ; \nAction (lPara:=.F.,oDlgEdit:END()) \n\nActivate Dialog oDlgEdit Centered \nEnddo \n\nreturn \n\nFunction Graba_ven() \nIf nom_ven1=spac(40).or.cod_ven1=spac(3) \nMsgInfo(\" ERROR, Código o Nombre Vacios \") \nReturn lPara:=.t. \nendif \nSele a \na-&gt;(dbAppend()) \nRepl Cod_ven with Cod_ven1,Nom_ven with Nom_ven1,Dir_ven with Dir_ven1,; \nCiu_ven with Ciu_ven1,Com_ven with Com_ven1,Fon_ven with Fon_ven1,; \nCel_ven with Cel_ven1,Email with Email1 \nDbcommit() \nDbunlock() \nIf (lPara) \nstor spac(3) to cod_ven1 \nstor spac(40) to nom_ven1 \nstor spac(40) to dir_ven1,email1 \nstor spac(20) to com_ven1,ciu_ven1,fon_ven1 \nstor spac(25) to cel_ven1 \nEndif \n\nReturn','',0,'','qtewvkbn',1,0,'',812,0,0),(23192,5251,6,53,0,'189.139.22.130',1165509904,1,0,1,1,1,1,'','Scroll en TWBrowse de Hernán','Amigos:\n\nExiste una versión de TWBrowse del Maestro Hernán que tenga funcionando la rueda de Scroll ?.\n\nSi alguien la tiene podría enviarme una copia ?, o que me guie para modificar la versión que tengo.\n\nSaludos, Armando','',0,'','21osnuhf',1,0,'',53,0,0),(23193,5248,2,54,0,'189.132.112.223',1165510672,1,0,1,1,1,1,'','Re: Problemas Limpiar Pantalla ( Para Antonio Linares)','[quote=&quot;Miguel Rivera&quot;:bvrfj79k]Hola Antonio:\n\nTe envio el segmento del programa, donde tengo el ingreso de un maestro, despues de ingresar y grabar un registro, necesito limpiar los datos anteriores para un nuevo ingreso.\n\nOtra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE.\n\nDisculta por las molestias causadas, hace muy poco que estoy ingresando al mundo de Fivewin, como todo clippero, me acostado pasar al ambiente windows.\n\nPor tu ayuda, muchas gracias.\n\nMiguel Rivera.\n\nTROZO DEL PRG\nFunction Actuven1(lPara)\n  Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1\n  Local oDlgEdit\n  If (lPara)\n      stor spac(3)  to cod_ven1\n      stor spac(40) to nom_ven1\n      stor spac(40) to dir_ven1,email1\n      stor spac(20) to com_ven1,ciu_ven1,fon_ven1\n      stor spac(25) to cel_ven1\n  Else\n      Cod_ven1:=oDbVendedor-&gt;Cod_ven\n      Nom_ven1:=oDbVendedor-&gt;Nom_ven\n      Dir_ven1:=oDbVendedor-&gt;dir_ven\n      Com_ven1:=oDbVendedor-&gt;Com_ven\n      Ciu_ven1:=oDbVendedor-&gt;Ciu_ven\n      Fon_ven1:=oDbVendedor-&gt;Fon_ven\n      Cel_ven1:=oDbVendedor-&gt;Cel_ven\n      Email1:=oDbVendedor-&gt;Email\n  Endif\n\n  Define Cursor oCurDedo Resource \"Dedo\"\n  Do while lPara\n     Define Dialog oDlgEdit Resname \"Vendedor\"\n     IF lPara\n        Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update Picture \"@!\" Color \"w+/bg\"\n     Else\n        Redefine Say oCod_ven1 Prompt Cod_ven1 Id 30 Of oDlgEdit Color \"w+/bg\"\n     Endif\n     Redefine Get oNom_ven1 Var Nom_ven1 Id 31 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n     Redefine Get oDir_ven1 Var Dir_ven1 Id 32 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n\n     Redefine Get oFon_ven1 Var Fon_ven1 Id 35 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n     Redefine Get oCel_ven1 Var Cel_ven1 Id 36 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/bg\"\n     Redefine Get oEmail1   Var Email1   Id 37 Of oDlgEdit Update  Picture \"@x\"  Color \"w+/bg\"\n\n     Redefine Button Id 180 Of oDlgEdit ;\n              Action Graba_ven()\n\n     Redefine Button Id 150 Of oDlgEdit ;\n       Action (lPara:=.F.,oDlgEdit:END())\n\n     Activate Dialog oDlgEdit Centered\n  Enddo\n\n  return\n\nFunction Graba_ven()\n         If nom_ven1=spac(40).or.cod_ven1=spac(3)\n            MsgInfo(\" ERROR, Código o Nombre Vacios \")\n            Return lPara:=.t.\n         endif\n         Sele a\n         a-&gt;(dbAppend())\n         Repl Cod_ven with Cod_ven1,Nom_ven with Nom_ven1,Dir_ven with Dir_ven1,;\n              Ciu_ven with Ciu_ven1,Com_ven with Com_ven1,Fon_ven with Fon_ven1,;\n              Cel_ven with Cel_ven1,Email with Email1\n         Dbcommit()\n         Dbunlock()\n         If (lPara)\n            stor spac(3)  to cod_ven1\n            stor spac(40) to nom_ven1\n            stor spac(40) to dir_ven1,email1\n            stor spac(20) to com_ven1,ciu_ven1,fon_ven1\n            stor spac(25) to cel_ven1\n         Endif\n\n         Return[/quote:bvrfj79k]\n\nMiguel,\n\nPuedes intentarlo de esta manera:\n\n[code:bvrfj79k]STATIC oCod_ven1, onom_ven1, odir_ven1, oemail1, ocom_ven1, ociu_ven1, ofon_ven1, ocel_ven1\nSTATIC oDlgEdit\nFunction Actuven1&#40;lPara&#41;\n\n  If &#40;lPara&#41;\n      stor spac&#40;3&#41;  to cod_ven1\n      stor spac&#40;40&#41; to nom_ven1\n      stor spac&#40;40&#41; to dir_ven1,email1\n      stor spac&#40;20&#41; to com_ven1,ciu_ven1,fon_ven1\n      stor spac&#40;25&#41; to cel_ven1\n  Else\n      Cod_ven1&#58;=oDbVendedor-&gt;Cod_ven\n      Nom_ven1&#58;=oDbVendedor-&gt;Nom_ven\n      Dir_ven1&#58;=oDbVendedor-&gt;dir_ven\n      Com_ven1&#58;=oDbVendedor-&gt;Com_ven\n      Ciu_ven1&#58;=oDbVendedor-&gt;Ciu_ven\n      Fon_ven1&#58;=oDbVendedor-&gt;Fon_ven\n      Cel_ven1&#58;=oDbVendedor-&gt;Cel_ven\n      Email1&#58;=oDbVendedor-&gt;Email\n  Endif\n\n  Define Cursor oCurDedo Resource &quot;Dedo&quot;\n\n     Define Dialog oDlgEdit Resname &quot;Vendedor&quot;\n     IF lPara\n        Redefine Get oCod_ven1 Var Cod_ven1 Id 30 Of oDlgEdit Update Picture &quot;@!&quot; Color &quot;w+/bg&quot;\n     Else\n        Redefine Say oCod_ven1 Prompt Cod_ven1 Id 30 Of oDlgEdit Color &quot;w+/bg&quot;\n     Endif\n     Redefine Get oNom_ven1 Var Nom_ven1 Id 31 Of oDlgEdit Update  Picture &quot;@!&quot;  Color &quot;w+/bg&quot;\n     Redefine Get oDir_ven1 Var Dir_ven1 Id 32 Of oDlgEdit Update  Picture &quot;@!&quot;  Color &quot;w+/bg&quot;\n\n     Redefine Get oFon_ven1 Var Fon_ven1 Id 35 Of oDlgEdit Update  Picture &quot;@!&quot;  Color &quot;w+/bg&quot;\n     Redefine Get oCel_ven1 Var Cel_ven1 Id 36 Of oDlgEdit Update  Picture &quot;@!&quot;  Color &quot;w+/bg&quot;\n     Redefine Get oEmail1   Var Email1   Id 37 Of oDlgEdit Update  Picture &quot;@x&quot;  Color &quot;w+/bg&quot;\n\n     Redefine Button Id 180 Of oDlgEdit ;\n              Action Graba_ven&#40;&#41;\n\n     Redefine Button Id 150 Of oDlgEdit ;\n       Action &#40;lPara&#58;=&#46;F&#46;,oDlgEdit&#58;END&#40;&#41;&#41;\n\n     Activate Dialog oDlgEdit Centered\n\n  return\n\nFunction Graba_ven&#40;&#41;\n         If nom_ven1=spac&#40;40&#41;&#46;or&#46;cod_ven1=spac&#40;3&#41;\n            MsgInfo&#40;&quot; ERROR, Código o Nombre Vacios &quot;&#41;\n            Return lPara&#58;=&#46;t&#46;\n         endif\n         Sele a\n         a-&gt;&#40;dbAppend&#40;&#41;&#41;\n         Repl Cod_ven with Cod_ven1,Nom_ven with Nom_ven1,Dir_ven with Dir_ven1,;\n              Ciu_ven with Ciu_ven1,Com_ven with Com_ven1,Fon_ven with Fon_ven1,;\n              Cel_ven with Cel_ven1,Email with Email1\n         Dbcommit&#40;&#41;\n         Dbunlock&#40;&#41;\n         If &#40;lPara&#41;\n            stor spac&#40;3&#41;  to cod_ven1\n            stor spac&#40;40&#41; to nom_ven1\n            stor spac&#40;40&#41; to dir_ven1,email1\n            stor spac&#40;20&#41; to com_ven1,ciu_ven1,fon_ven1\n            stor spac&#40;25&#41; to cel_ven1\n      oCod_ven1&#58;refresh&#40;&#41;\n      oNom_ven1&#58;refresh&#40;&#41;\n      oDir_ven1&#58;refresh&#40;&#41;\n      oCom_ven1&#58;refresh&#40;&#41;\n      oCiu_ven1&#58;refresh&#40;&#41;\n      oFon_ven1&#58;refresh&#40;&#41;\n      oCel_ven1&#58;refresh&#40;&#41;\n      oEmail1&#58;refresh&#40;&#41;\n         Endif\n\n         Return[/code:bvrfj79k]\n\nEspero te ayude\n\nSaludos','',0,'gIA=','bvrfj79k',1,0,'',54,0,0),(23194,5179,6,54,0,'189.132.112.223',1165510775,1,0,1,1,1,1,'','','[quote=&quot;horacio&quot;:3vbivpwd]Surgom\n\nAcabo de hacer una clase para eso, si la necesitas edcribe tu correo y te la mando\nsaludos[/quote:3vbivpwd]\n\nY este es el mio\n\n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->\n\nsaludos','',0,'gA==','3vbivpwd',1,0,'',54,0,0),(23195,5243,3,233,0,'60.48.218.153',1165511875,1,0,1,1,1,0,'','','Thanks Eugeniusz. Will give it a try','',0,'gA==','6j2b7hor',1,0,'',233,0,0),(23196,5228,3,2,0,'87.218.146.223',1165511922,1,0,1,1,1,1,'','','Darrell,\n\nPlease remove this line from Class TSay:\n\n   METHOD Refresh() INLINE If( ::bGet != nil, ::SetText( Eval( ::bGet ) ),)\n\nand try your app again, thanks','',0,'gA==','13q01s63',1,0,'',2,0,0),(23197,5228,3,303,0,'72.199.41.171',1165511999,1,0,1,1,1,0,'','','Darrell,\n\nCan\'t you just use a global replace? That should only take you a few seconds to fix 300 prgs.\n\nJames','',0,'gA==','1znu5zwc',1,0,'',303,0,0),(23198,5063,1,2,0,'87.218.146.223',1165512225,1,0,1,1,1,1,'','','Ken,\n\nAll bugs fixes are published on these forums for free. We don\'t ask money for fixes. But users miss to apply them or simply work with very old versions and/or modified versions by themselves.\n\nOn such scenario, only upgrading is the way to guarantie that they use the right software build.\n\nBesides that, when you buy a product from us you get two months of free upgrades.','',0,'gA==','4wk0jm2y',1,1165512410,'',2,1,0),(23199,5063,1,2,0,'87.218.146.223',1165512352,1,0,1,1,1,1,'','','[quote=&quot;Badara Thiam&quot;:4675f82e][quote=&quot;Antonio Linares&quot;:4675f82e]Badara,\n\n&gt; It is easy to see DeviceCapa() don\'t work, like DevMode()\n\nIf it is so easy, then please provide a small sample, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:4675f82e]\n\nTo test, insert DeviceCapa() in your main PRG and test compile\nwith FW 2.5 (october 2004). You see like me, or you have not\nthe same FW 2.5 pack.\n\nDo the same with DevMode().\n[/quote:4675f82e]\nPlease provide a small and self contained sample. The functions that you mention require parameters, what parameters are you using ? You need to provide us enough feedback so we can provide you the right tech support, thanks.','',0,'gA==','4675f82e',1,0,'',2,0,0),(23200,5063,1,303,0,'72.199.41.171',1165512954,1,0,1,1,1,0,'','','I remember reading somewhere that DeviceCaps() and DevMode() don\'t even work the same on different OSs, so this may be a Windows problem not a FWH issue. You might try Googling them to see what you can find.\n\nJames','',0,'gA==','3l8uh3cf',1,0,'',303,0,0),(23201,5241,3,2,0,'87.218.146.223',1165513027,1,0,1,1,1,1,'','','Ramesh,\n\nDo you build your menu from source code or from resources ?\n\nIf you build it from source code then you can inspect the Class TMenu DATA aItems to get all the menuitems prompts.\n\nI may not understand what you are trying to do.','',0,'gA==','15slivru',1,0,'',2,0,0),(23202,5246,7,2,0,'87.218.146.223',1165513266,1,0,1,1,1,1,'','','Las barras de desplazamiento no se ven si el número de registros mostrados no excede del número de líneas en pantalla.','',0,'gA==','iacwtg8e',1,0,'',2,0,0),(23203,5252,7,57,0,'88.0.86.53',1165513375,1,0,1,1,1,1,'','Indicar Alto celdas  en Wbrowse?','Antonio\nSeria posible incluir la opción en wbrowse que permita cambiar el alto de las lineas, cabecera y pie de un browse al estilo WBrowse de Hernan?\n\nP.e.: nLineHeight, nHeaderHeight y nFooterHeight\n\nMe harias un grato favor.\n\nSaludos','',0,'gA==','3vpra5hb',1,0,'',57,0,0),(23204,4906,6,2,0,'87.218.146.223',1165513527,1,0,1,1,1,1,'','','Horacio,\n\nEl MsgAlert() provoca una perdida de foco y en ese momento se asigna la variable asociada al GET.\n\nEl código al que haces referencia no es el mismo que el que has publicado aqui, si ? En tal caso, por favor, muéstranos lo que estás haciendo. A ser posible un ejemplo pequeño y autocontenido. Gracias,','',0,'gA==','2n4w36v1',1,0,'',2,0,0),(23205,5200,7,2,0,'87.218.146.223',1165514205,1,0,1,1,1,1,'','','Toni,\n\nPuedes probar en WM2005 también ? \n\nMe refiero con el build actual de FWPPC.','',0,'gA==','3o7f3ukh',1,0,'',2,0,0),(23206,5246,7,527,0,'83.42.42.33',1165515746,1,0,1,1,1,0,'','ok','Gracias, lo comprobare.','',0,'gA==','1z8oaxwd',1,0,'',527,0,0),(23207,5252,7,2,0,'87.218.146.223',1165516036,1,0,1,1,1,1,'','','Toni,\n\nJose Luis me comentó que estaba adaptando el browse de Hernan para FWPPC. Que tal le ha ido ?','',0,'gA==','2hmnkixl',1,0,'',2,0,0),(23208,5252,7,57,0,'88.0.86.53',1165517149,1,0,1,1,1,1,'','','Antonio\nLo intentamos pero tuvimos problemas pasando el fichero wbrwline.c y por tante desistimos. Lo siento pero esto supera nuestros conocimientos en C. JL seguro que con tiempo lo consigue pero necesitamos terminar el proyecto que tenemos entre manos antes de final de año. Creo que nos comeremos las uvas con una PDA en la mano.\n\nPara aplicación que estamos realizando el único ¡ pero ! con que me encuentro es con la altura de las celdas. Sería importante adaptar el tamaño, al tamaño de las manos de quien las usa. Piensa que estar facturando con algo tan pequeño para según quien, es complicado. \n\nSaludos','',0,'gA==','3pgf0fqr',1,0,'',57,0,0),(23209,5253,3,455,0,'195.97.105.161',1165517487,1,0,1,1,1,0,'','Printer Printable Area','Hi all, \nWe have this problem...\nWe try to print from printer to printer, having the same resolution (300x300 dpi), and same paper size (Letter 8.5x11 inches)\n\nThings would be fine, if we could have the same results from printer to printer (e.g. from one laser to another deskjet), but we don\'t!\n\nI am using 4 different printers here:\n1. HP 1320 LaserJet (with HP LaserJet Series II, to obtain 300x300 dpi)\n2. HP 6500 Inkjet\n3. Broadgun pdfMachine (PDF printer driver)\n4. PDF995 (PDF printer driver)\n\nAll in all, here are the results when I checked the various printers data...\n(See table below)\n\nI wonder if there is any way to:\n1. Know the top and leftmost printable margin of the printer, and adjust it (most likely to push the top margin down)\n\n2. If I can restrict the pinting within a certain area (HP 1320, is referenced as HP 1130 in the table, to avoid mixing up the real drivers with HP 1320). What I mean is if I can restrict the printers to make them print only within 268x203 mm, as with HP 1330, which, after all is the printer where we make all of our printouts to adjust.\n\n3. Any relevant ideas will be mostly welcome...\n\nThank you all from the bottom of my heart.\n\nMany regards\nEvans\n\n\n[code:3mzqwwww]\nPrinter      HP 1130     HP 6500         BroadgunPDF           PDF995\n\n-----------------------------------------------------------------------\nV&#46;Res&#46;        3160           3243               3300             3300\nH&#46;Res&#46;        2400           2475               2550             2550\n\nnVertSize&#40;&#41;   268             274                279              279\nnHorzSize&#40;&#41;   203             209                216              216\n\nAll of them have a Physical size of 215&#46;900 x 279&#46;400&#46;\nAll of them have resolution 300x300 dpi&#46;\n\n[/code:3mzqwwww]','',0,'AIA=','3mzqwwww',1,0,'',455,0,0),(23210,5200,7,57,0,'88.0.86.53',1165517629,1,0,1,1,1,1,'','','Antonio \nAdjunto resultado:\n[url=http&#58;//imageshack&#46;us:11kdx975][img:11kdx975]http&#58;//img123&#46;imageshack&#46;us/img123/856/bmp1ro0&#46;png[/img:11kdx975][/url:11kdx975]\n\n[url=http&#58;//imageshack&#46;us:11kdx975][img:11kdx975]http&#58;//img105&#46;imageshack&#46;us/img105/7726/bmp2eu7&#46;png[/img:11kdx975][/url:11kdx975]\n\nSaludos','',0,'GA==','11kdx975',1,0,'',57,0,0),(23211,5198,6,49,0,'62.13.172.78',1165525134,1,0,1,1,1,1,'','','good I \'m seeing it','',0,'GA==','2ym2hm3j',1,0,'',49,0,0),(23212,5195,6,875,0,'64.76.108.179',1165527544,1,0,1,1,1,0,'','asi es','antonio me podrias mandas el archivo Tutor02.exe para descartar otras cosas.\n\n\nJaime','',0,'GA==','31iqmc6w',1,0,'',875,0,0),(23213,5252,7,2,0,'87.218.146.223',1165527988,1,0,1,1,1,1,'','','Toni,\n\nEn estos foros se implementó el cambio de tamaño de filas del TWBrowse. Lo realizó un usuario. \n\nEstoy buscando por el foro a ver si localizo el mensaje.','',0,'GA==','172srcd0',1,0,'',2,0,0),(23214,5252,7,2,0,'87.218.146.223',1165528428,1,0,1,1,1,1,'','','Toni,\n\nSi creas un font algo mayor y se lo asignas al browse, las líneas se espaciarán más.\n\nDe todas formas, sigo buscando el mensaje con los cambios.','',0,'GA==','35xgwmsf',1,0,'',2,0,0),(23215,5200,7,2,0,'87.218.146.223',1165529273,1,0,1,1,1,1,'','','Toni,\n\nEstás usando alguna clase de FWPPC modificada por vosotros ?','',0,'GA==','2l1lbr94',1,0,'',2,0,0),(23216,5195,6,2,0,'87.218.146.223',1165529392,1,0,1,1,1,1,'','','Jaime,\n\nEnviado,','',0,'GA==','2ldbuu8a',1,0,'',2,0,0),(23217,5229,6,49,0,'62.13.172.78',1165531562,1,0,1,1,1,1,'','','windows.prg\nsearch:\n\nhWnd = CreateToolTip( Self:hWnd, cToolTip,.t. ) // , .t. ) for ballon tooltips !','',0,'GA==','3c487rz6',1,0,'',49,0,0),(23218,5254,3,148,0,'82.201.251.103',1165532284,1,0,1,1,1,0,'','sample error','I was compiling genfold.prg sample and I got that error :\n\nApplication\n===========\n   Path and name: E:\\COMPILER\\clipper\\FWH\\SAMPLES\\genfold.exe (32 bits)\n   Size: 1,070,080 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 12/08/06, 00:53:38\n   Error description: Error BASE/1004  Message not found: TWINDOW:LRESIZE16\n   Args:\n     [   1] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TWINDOW:ERROR(179)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(105)\n   Called from:  =&gt; TWINDOW:MSGNOTFOUND(0)\n   Called from:  =&gt; TWINDOW:LRESIZE16(169)\n   Called from:  =&gt; TFOLDER:DEFAULT(0)\n   Called from:  =&gt; TFOLDER:NEW(0)\n   Called from: genfold.prg =&gt; MAIN(14)','',0,'','2m24ygbn',1,0,'',148,0,0),(23219,5255,3,49,0,'62.13.172.78',1165532295,1,0,1,1,1,1,'','FSDI 2006','I download it from <!-- w --><a class=\"postlink\" href=\"http://www.avemundi.com\">www.avemundi.com</a><!-- w --> \n\nthis is a class [url:3bwwa407]http&#58;//www&#46;avemundi&#46;com/archivos/fsdi2006&#46;zip[/url:3bwwa407],\nyou must use vtasbar with it \n\nBut I  cannot compiled it  because it make errors \n\nIs There someone Who succeeded in compiling it ?\n\nThanks in advance !!!!','',0,'EA==','3bwwa407',1,0,'',49,0,0),(23220,5236,3,49,0,'62.13.172.78',1165532598,1,0,1,1,1,1,'','','you cam modify tgraph class\nthere is an sample Timer test as your egc graph\n[code:1r6fsed1]// Program &#58; Timer test &#40;Compilar con B&#46;Bat &#58; B TstTimer&#41;\n// Author  &#58; Arteaga\n\n#Include &quot;Fivewin&#46;Ch&quot;\n\n#Define GRAPH_TYPE_BAR   1\n#Define GRAPH_TYPE_LINE  2\n\nStatic oWnd, oGraph, oTimer, aVals, nP\n\nFUNCTION FWGraphics&#40;&#41;\n   LOCAL oReg, oIcon\n   nP&#58;=19\n   aVals&#58;=Array&#40;20&#41;\n   Afill&#40;aVals,0&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;TGraph, timer test&quot; FROM 0, 0 TO 7,40\n   oGraph&#58;=TGraph&#40;&#41;&#58;New&#40;0,0,oWnd,oWnd&#58;nWidth&#40;&#41;-8,oWnd&#58;nHeight&#40;&#41;-30&#41;\n   oGraph&#58;cPicture &#58;= &quot;999&quot;\n   oGraph&#58;l3D      &#58;= &#46;F&#46;\n   oGraph&#58;aYVals   &#58;= &#123;&#125;\n   oGraph&#58;lDotted  &#58;= &#46;F&#46;\n   oGraph&#58;lLegends &#58;= &#46;F&#46;\n   oGraph&#58;lTitle   &#58;= &#46;F&#46;\n   oGraph&#58;lPopUp   &#58;= &#46;T&#46;\n   oGraph&#58;nPenWidth&#58;= 1\n   oGraph&#58;nClrBack &#58;= CLR_BLACK\n   oGraph&#58;nClrGrid &#58;= CLR_GREEN\n   oGraph&#58;nType    &#58;= GRAPH_TYPE_LINE\n\n   aVals&#91;19&#93; &#58;=  15\n   aVals&#91;20&#93; &#58;= 150\n\n   oGraph&#58;AddSerie&#40;aVals, &quot;&quot;, RGB&#40;255, 255, 0&#41;&#41;\n\n   Define Timer oTimer Interval 900 Action Update&#40;&#41; OF oWnd\n   Activate Timer oTimer\n\n   WndCenter&#40;oWnd&#58;hWnd&#41;\n\n   ACTIVATE WINDOW oWnd                          ;\n      ON PAINT &#40;oGraph&#58;nWidth&#58;=oWnd&#58;nWidth&#40;&#41;- 8, ;\n                oGraph&#58;nHeight&#58;=oWnd&#58;nHeight-30, ;\n                oGraph&#58;Refresh&#40;&#46;f&#46;&#41;&#41;\n\n   oTimer&#58;End&#40;&#41;\n\nRETURN &#40;NIL&#41;\n\nFunction Update&#40;oReg&#41;\n  LOCAL aTmp &#58;=&#123;150, 15,135, 30,120, 45,105, 60, 90, 75,;\n                 75, 90, 60,105, 45,120, 30,135, 15,150 &#125;\n  LOCAL aTemp&#91;20&#93;\n  nP--\n  nP&#58;=IF&#40;nP=0,20,nP&#41;\n  ACopy&#40;aVals,aTemp,2&#41;\n  aTemp&#91;20&#93;&#58;=aTmp&#91;nP&#93;\n  aVals&#58;=AClone&#40;aTemp&#41;\n  SysRefresh&#40;&#41;\n  oGraph&#58;aData&#91;1&#93;&#58;=aVals\n  oGraph&#58;Refresh&#40;&#41;\nRETURN &#40;NIL&#41;[/code:1r6fsed1]','',0,'AIA=','1r6fsed1',1,0,'',49,0,0),(23221,4976,1,49,0,'62.13.172.78',1165533071,1,0,1,1,1,1,'','','you can download from this forum barlib or from <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w --> the vrdbarcode class ...','',0,'AIA=','1ex3wchq',1,0,'',49,0,0),(23222,5215,6,228,0,'190.12.135.32',1165533868,1,0,1,1,1,1,'','Gracias a todos','Muchas gracias a todos funciono de maravilla.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3t61d1j2',1,0,'',228,0,0),(23223,5200,7,57,0,'83.53.71.205',1165534714,1,0,1,1,1,1,'','','Antonio\nTengo modificada el método New de la clase TGet con lo siguiente:\n\n::bGotFocus  := {|| ::lSip:= Sip(.T.), ::SetColor(AICOM_CLRFOCUSTEXT, AICOM_CLRFOCUSPANE ), ::Refresh() }\n::bLostFocus := {|| Sip( ::lSip ), ::SetColor( ::nClrPFoText  , ::nClrPFoPane  ), ::Refresh() }\n\nPero esto me ha funcionado desde siempre con FWH. Por lo demas no hay nada que afecte. \n\nHe realizado pruebas con otra PDA (Ipaq 2750) con el siguiente SO y funciona correctamente. Utilizando siempre el mismo EXE y con el último build.\nTiene huev.... la cosa.\n\n[url=http&#58;//imageshack&#46;us:1rkxkpgn][img:1rkxkpgn]http&#58;//img175&#46;imageshack&#46;us/img175/3081/bmp1cr0&#46;png[/img:1rkxkpgn][/url:1rkxkpgn]\n\nSaludos','',0,'GA==','1rkxkpgn',1,0,'',57,0,0),(23224,5242,3,206,0,'125.160.83.214',1165539641,1,0,1,1,1,0,'','','Dear Antonio, Enrico\n\nThanks.\nHiong','',0,'GA==','1isy1pdr',1,0,'',206,0,0),(23225,5254,3,233,0,'218.111.22.218',1165540716,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5211\">http://fivetechsoft.com/forums/viewtopic.php?t=5211</a><!-- m -->','',0,'GA==','1oaix4re',1,0,'',233,0,0),(23226,5229,6,743,0,'200.67.230.223',1165543802,1,0,1,1,1,0,'','','gracias por responder\n\n\n  ya hice este cambio, me hace los tooltip en forma de ballon, pero no los del toolbar, estos los deja igual, que tengo que hacer para modificarlos\n\n\ngracias','',0,'GA==','kd9lfw00',1,0,'',743,0,0),(23227,5241,3,190,0,'202.65.134.26',1165553564,1,0,1,1,1,0,'','','Mr.Antonio\n\nThank you very much for your attention.\n\n[quote:3c4yaa0n]Do you build your menu from source code or from resources ? \n[/quote:3c4yaa0n]\n\nAs I have shown in the above code, I am building menu from source code.\n\n[quote:3c4yaa0n]If you build it from source code then you can inspect the Class TMenu DATA aItems to get all the menuitems prompts. \n[/quote:3c4yaa0n]\n\nUsing the [color=blue:3c4yaa0n]Resbuild[/color:3c4yaa0n] function shown above, I am \ngetting the menuitems and their submenu items prompts very well in\nWin98.  But the same code is not working in Winxp !.  \n\nPlease test the above code in Win98.  You will get all menu item prompts \nand their sub-menu item prompts very well.  But if you test it in WinXp,\nyou will get only the prompts of main menu items, not submenu-items \nprompts.\n\nI need it to work in winxp also with the same result.\n\n[quote:3c4yaa0n]I may not understand what you are trying to do.[/quote:3c4yaa0n]\n\nI am building a mechanism to allot access rights of each menu/sub-menu \nitems of the application by the super-user to his subordinate users.\n\nTo develop such mechanism, I am reading automatically the complete \nmenu/sub-menu items, once the oMenu is populated in Buildmenu() \nfunction, and building a treeview with all the main/sub-menu items \nprompts.  When the super-user clicks on a tree item, a pop-up dialog \nappears, as shown in the picture, with all sub-ordinate user names, and \npermisson check box, allowing the superuser to grant rights of the selected\nitem.\n\nI believe that I could explain my requirement clearly now.\n\nRegards to you\n\n- Ramesh Babu P\n\n[img:3c4yaa0n]http&#58;//img139&#46;imageshack&#46;us/img139/3401/menuitemww4&#46;jpg[/img:3c4yaa0n]','',0,'ig==','3c4yaa0n',1,0,'',190,0,0),(23228,5200,7,2,0,'87.218.146.223',1165555100,1,0,1,1,1,1,'','','Toni,\n\n&gt;\nHe realizado pruebas con otra PDA (Ipaq 2750) con el siguiente SO y funciona correctamente. Utilizando siempre el mismo EXE y con el último build. Tiene huev.... la cosa. \n&gt;\n\nPues si. Todo apunta a un bug de WM que se manifiesta en algunas versiones solo.\n\nAqui en el emulador con el WM2005 va bien, en el emulador con el WM2003 va mal. Y es el mismo EXE.','',0,'ig==','31r6cm1g',1,0,'',2,0,0),(23229,5200,7,2,0,'87.218.146.223',1165555429,1,0,1,1,1,1,'','','Además, el relleno del color de un GET se realiza devolviendo un brush en respuesta a un mensaje WM_CTLCOLOREDIT.\n\nHemos modificado el bucle de mensajes en C para devolver el brush directamente, sin pasar por la máquina virtual de Harbour,  y nada, la misma historia.\n\nDe la documentación de Windows:\nReturn Values:\nIf an application processes this message, it must return the handle of a brush. Windows uses the brush to paint the background of the edit control.\n\nSolo faltaría googlear un poco por si a alguien más le ha pasado y hay alguna solución.','',0,'ig==','2jhrj1ul',1,0,'',2,0,0),(23230,5221,6,73,0,'201.165.216.224',1165556689,1,0,1,1,1,0,'','','DND, que bueno que ya se soluciono\nsalu2\npaco','',0,'ig==','1k2te3j7',1,0,'',73,0,0),(23231,5241,3,2,0,'87.218.146.223',1165557201,1,0,1,1,1,1,'','','Ramesh,\n[code:1y8xijhy]\nFUNCTION ResBuild&#40; oMenu &#41; \n\n   LOCAL n \n\n   FOR n = 1 to Len&#40; oMenu&#58;aItems &#41;\n      ? oMenu&#58;aItems&#91;n&#93;&#58;cPrompt \n      \n      if ValType&#40; oMenu&#58;aItems&#91; n &#93;&#58;bAction &#41; == &quot;O&quot;\n         ResBuild&#40; oMenu&#58;aItems&#91; n &#93;&#58;bAction &#41;\n      endif   \n   NEXT \n\nRETURN nil \n[/code:1y8xijhy]','',0,'AIA=','1y8xijhy',1,0,'',2,0,0),(23232,5229,6,2,0,'87.218.146.223',1165557878,1,0,1,1,1,1,'','','Usa la claúsula BALLOON:\n\n   DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 ;\n      IMAGELIST oImageList BALLOON // tooltips balloon style','',0,'AIA=','bqtqm77l',1,0,'',2,0,0),(23233,5189,3,233,0,'218.111.22.218',1165570154,1,0,1,1,1,0,'','','After applying the instructions here, I tried compiling and running testtre2.prg in \\Samples. This is what I got:\n\n[url=http&#58;//imageshack&#46;us:2xcre7kk][img:2xcre7kk]http&#58;//img141&#46;imageshack&#46;us/img141/1535/treeel7&#46;jpg[/img:2xcre7kk][/url:2xcre7kk]\n\nCorrect me if I\'m mistaken but isn\'t the [b:2xcre7kk]+[/b:2xcre7kk]/[b:2xcre7kk]-[/b:2xcre7kk] sign is missing? Shouldn\'t there be texts to the right of the all 3 folder images?\n\nThanks. \n--\n[color=red:2xcre7kk]xHB 0.99.61 FWHX2.8 Nov BCC55 Win98SE[/color:2xcre7kk]','',0,'Wg==','2xcre7kk',1,0,'',233,0,0),(23234,5241,3,190,0,'202.65.134.26',1165570445,1,0,1,1,1,0,'','','Hello Mr.Antonio\n\nYour solution has servered my purpose 100% in Win98 and WinXp.\n\nThank you very much once again.\n\n- Ramesh Babu P','',0,'Wg==','2w7i17zt',1,0,'',190,0,0),(23235,5189,3,2,0,'87.218.146.223',1165572121,1,0,1,1,1,1,'','','Hua,\n\nSee how it looks here:\n[url=http&#58;//imageshack&#46;us:ryxoxweq][img:ryxoxweq]http&#58;//img154&#46;imageshack&#46;us/img154/702/folderbq7&#46;png[/img:ryxoxweq][/url:ryxoxweq]\nThough we use gray for the window color. Probably you don\'t see the text cause is painted in white color. Lets see how to change it.','',0,'GA==','ryxoxweq',1,0,'',2,0,0),(23236,5189,3,2,0,'87.218.146.223',1165572750,1,0,1,1,1,1,'','','Hua,\n\nMake this change in samples\\TestTre2.prg:\n\n   DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ; \n      TITLE \"Welcome to \" + FWVERSION COLOR \"N/W\"\n[url=http&#58;//imageshack&#46;us:femiwhgu][img:femiwhgu]http&#58;//img227&#46;imageshack&#46;us/img227/4318/image1vb3&#46;png[/img:femiwhgu][/url:femiwhgu]','',0,'GA==','femiwhgu',1,0,'',2,0,0),(23237,5256,7,527,0,'83.55.37.169',1165579548,1,0,1,1,1,0,'','Ayuda con decimales','Como puedo redondear una cantidad a dos decimales\npor ejemplo 2*3,18 = xxx\n\ngracias\n<!-- e --><a href=\"mailto:imjcc@mjccsl.com\">imjcc@mjccsl.com</a><!-- e -->','',0,'GA==','6d25bomx',1,0,'',527,0,0),(23238,5253,3,6,0,'82.59.188.178',1165580165,1,0,1,1,1,1,'','Re: Printer Printable Area','oPrn:CmSay() and oPrn:Cmtr2Pix() methods automatically take care of printable margin. Look also at oPrn:nXOffset and oPrn:nYOffset instance variables.\n\nEMG','',0,'GA==','2s9vtdgq',1,0,'',6,0,0),(23239,5063,1,170,0,'90.144.8.32',1165585875,1,0,1,1,1,1,'','','James,\n\nThanks, but i have this book (Editor SAMS) :\nMicrosoft Windows 2000 API SuperBible\n\nAnd he say DeviceCapabilities() work under\nWindows 98 and 2000. No restrictions.','',0,'GA==','ouauqg4n',1,0,'',170,0,0),(23240,5257,23,810,0,'84.172.58.6',1165587899,1,0,1,1,1,0,'','Alle gestorben ??','Oder arbeitet noch einer mit FW','',0,'GA==','dzjw6vr9',1,0,'',810,0,0),(23241,5229,6,743,0,'200.67.230.223',1165592362,1,0,1,1,1,0,'','','gracias por la clarasion  antonio\n\n\n  no existe la BALLOON en fivewin.ch que puedo hacer','',0,'GA==','3pdr76tt',1,0,'',743,0,0),(23242,5253,3,455,0,'195.97.105.161',1165594093,1,0,1,1,1,0,'','Re: Printer Printable Area','[quote=&quot;EnricoMaria&quot;:2af7g3cr]oPrn:CmSay() and oPrn:Cmtr2Pix() methods automatically take care of printable margin. Look also at oPrn:nXOffset and oPrn:nYOffset instance variables.\n\nEMG[/quote:2af7g3cr]\nThanks Enrico!\nThis has also been taken into consideration... Alredy known and used of course... \nIt\'s just that I still want to restrict all the printout (e.g. expanding a WMF file) inside the printable area. \n\nI still would like any additional advise from anywhere it might come...\n\nGracie my friend','',0,'gA==','2af7g3cr',1,0,'',455,0,0),(23243,5245,3,217,0,'200.159.120.34',1165599592,1,0,1,1,1,0,'','Re: printer and Matricial or Jet of Paint','Clemerson,\n\nI have the same problem: in my program I must know each printer type (inkjet, laser, dot matrix...). Based on printer type I must printer with tprinter or tdosprn or file and so on...\nI don\'t found a function to detect this information, then I created a printer database were I mark the printer type. If the selected printer isn\'t on database I search for keywords in the name like \"LASER\", \"INK\", \"LX\", \"LQ\" and I suppose the type...\n\nRegards\nMaurilio','',0,'gA==','1qrz280i',1,0,'',217,0,0),(23244,5229,6,2,0,'87.218.146.223',1165601068,1,0,1,1,1,1,'','','Actualizarte a una versión más reciente de FWH.','',0,'gA==','2idljlds',1,0,'',2,0,0),(23245,5198,6,509,0,'83.33.159.119',1165604285,1,0,1,0,1,0,'','','I believe that the error was the HEADER.PRG\n I have changed “RETURN nil” by “RETURN self” and now if it works. \n\nThanks for everything. \n\n[img]http://c:\\header.jpg[/img]','',0,'CA==','brtgr76q',1,0,'',509,0,0),(23246,5250,2,228,0,'190.12.135.32',1165604985,1,0,1,1,1,1,'','Amigo..','1- No se como limpiar la pantalla despues de ingresar y grabar un registro, para el siguiente registro, sigue mostrando los datos anteriores. \n\n Lo que debes hacer primero es limpiar las variables\n\nstor spac(3) to cod_ven1 \nstor spac(40) to nom_ven1 \nstor spac(40) to dir_ven1,email1 \nstor spac(20) to com_ven1,ciu_ven1,fon_ven1 \nstor spac(25) to cel_ven1 \n\nLuego actualizas el dialogo..\n\noDlgEdit :update()\n\n2-&gt; Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE. \n\nAmigo las dos tienen sus ventajas, yo he usado las dos opciones y hasta ahora han funcionado a la perfeccion. Pero ultimamente me ha gustado incluirla dentro del exe, para hacer mas facil aquello de las actualizaciones a los clientes.\n\nEspero te sirva','',0,'CA==','4t18di1t',1,0,'',228,0,0),(23247,5249,6,228,0,'190.12.135.32',1165605700,1,0,1,1,1,1,'','','Amigo si no estoy mal.. creo que lo tienes que cambiar es el tipo de control ... edita el archivo rc y define el folder de la siguiente manera:\n\nCONTROL \"\", 4004, \"SysTabControl32\", 0x00000000, 4, 44, 396, 240\n\nEspero te sirva','',0,'CA==','9401cafq',1,0,'',228,0,0),(23248,5179,6,228,0,'190.12.135.32',1165605943,1,0,1,1,1,1,'','jejejeje','y de paso este el mio\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->','',0,'CA==','2un8ppfr',1,0,'',228,0,0),(23249,5189,3,233,0,'60.48.86.228',1165610311,1,0,1,1,1,0,'','','thanks Antonio! that did the trick','',0,'CA==','rorowtuo',1,0,'',233,0,0),(23250,5256,7,54,0,'189.132.112.223',1165615132,1,0,1,1,1,1,'','Re: Ayuda con decimales','[quote=&quot;mjcc&quot;:3t1y8pk7]Como puedo redondear una cantidad a dos decimales\npor ejemplo 2*3,18 = xxx\n\ngracias\n<!-- e --><a href=\"mailto:imjcc@mjccsl.com\">imjcc@mjccsl.com</a><!-- e -->[/quote:3t1y8pk7]\n\nROUND( nVar,nDecimales )\n\nejemplo\n\nROUND( (2*3.18),2 )\n\nSaludos','',0,'gA==','3t1y8pk7',1,0,'',54,0,0),(23251,5258,6,207,0,'189.158.96.179',1165619755,1,0,1,1,1,0,'','detalle con filexls OBJNEWCLS...','Que tal Amigos, tengo la filexls compilandola con mis demas .prg\'s , solo que me manda que no ecuentra las sig. funciones OBJNEWCLS,OBJADDMET,OBJSETUSERDATA. ¿Que necesito hacer?\n\nde antemano , gracias\natte \n\nMiguel','',0,'gA==','21l44y90',1,0,'',207,0,0),(23252,5259,3,98,0,'70.71.111.92',1165621323,1,0,1,1,1,1,'','Drag &amp; Drop in Trees (TTreeView class)','Hi\n\nHas anyone done drag &amp; drop with TTreeView class?\n\nWondering if it\'s possible to use this approach to move branches in a tree around.\n\nAny hints are welcome!\n\nRegards,\n\nLuis','',0,'gA==','czngpa5l',1,0,'',98,0,0),(23253,5253,3,303,0,'72.199.41.171',1165622413,1,0,1,1,1,0,'','','Evans,\n\nIt would seem you can find the printable area by subtracting 2 * offset from the resolution. Have you tried this?\n\nI note that sometimes the drivers report incorrect and/or inconsistant information and that seems to be a object hard to overcome.\n\nI have seen others provide a data entry screen for users to enter a correction factor to adjust for problems with the driver.\n\nJames','',0,'gA==','k1vf21w4',1,0,'',303,0,0),(23254,5245,3,303,0,'72.199.41.171',1165622584,1,0,1,1,1,0,'','','Maurilio,\n\n&gt;If the selected printer isn\'t on database I search for keywords in the name like \"LASER\", \"INK\", \"LX\", \"LQ\" and I suppose the type... \n\nI like that! You are giving your program a tiny bit of intelligence. Good idea.\n\nJames','',0,'gA==','1se1p7rj',1,0,'',303,0,0),(23255,5253,3,6,0,'82.59.188.178',1165624727,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2wzfj2c4]It would seem you can find the printable area by subtracting 2 * offset from the resolution.[/quote:2wzfj2c4]\n\nYou you mean oPrn:nHorzRes() and oPrn:nVertRes() they [b:2wzfj2c4]are[/b:2wzfj2c4] the printable area.\n\nEMG','',0,'wA==','2wzfj2c4',1,0,'',6,0,0),(23256,5250,2,812,0,'201.214.35.214',1165627418,1,0,1,1,1,0,'','Re: Amigo..','Leandro:\n\nMuchas Gracias, funciono de maravilla.\n\nMiguel Rivera\n\n[quote=&quot;leandro&quot;:193krwos]1- No se como limpiar la pantalla despues de ingresar y grabar un registro, para el siguiente registro, sigue mostrando los datos anteriores. \n\n Lo que debes hacer primero es limpiar las variables\n\nstor spac(3) to cod_ven1 \nstor spac(40) to nom_ven1 \nstor spac(40) to dir_ven1,email1 \nstor spac(20) to com_ven1,ciu_ven1,fon_ven1 \nstor spac(25) to cel_ven1 \n\nLuego actualizas el dialogo..\n\noDlgEdit :update()\n\n2-&gt; Otra duda, que es mas aconsejable, trabajar con una DLL abierta, o ponerla como parte del EXE. \n\nAmigo las dos tienen sus ventajas, yo he usado las dos opciones y hasta ahora han funcionado a la perfeccion. Pero ultimamente me ha gustado incluirla dentro del exe, para hacer mas facil aquello de las actualizaciones a los clientes.\n\nEspero te sirva[/quote:193krwos]','',0,'gA==','193krwos',1,0,'',812,0,0),(23257,5229,6,743,0,'200.67.230.223',1165632227,1,0,1,1,1,0,'','','gracias por tu sugerencia Antonio.\n\n   investigando más pude realizar este cambio, me dices que actualiza, pero tan estable esta la version nueva de fivewin, en lo particular reconozco el esfuerzo que hacen para llevarnos más alla de lo que fue clipper, me imagino las personas que se compraron fw 1.9 la evolucion que este herramienta ha venido trallendo, es como cambiar de carro cada año, o cuando sale algo nuevo, aunque que nuevo hay, detodos modos tenemos que investigar para sacar adelante esto.\n\nSaludos A todos','',0,'gA==','14mf9fae',1,0,'',743,0,0),(23258,5253,3,303,0,'72.199.41.171',1165636203,1,0,1,1,1,0,'','','Enrico,\n\nIt looks like there is a problem. Note, below, that oPrn:nHorzSize() does not return the same size as the horzontal res - (2 * offset). The same is true for oPrn:nVertSize(). I think all these values are being returned by the device driver. I haven\'t tested the output to see which numbers are correct (or if none are correct). I don\'t have either printer available right now.\n\n[Note: These numbers are for the US standard paper size of 8.5x11 inches]\n\nJames\n\noPrn:cModel: HP DeskJet 420,winspool,LPT1:\noPrn:nHorzRes(): 2400\noPrn:nVertRes(): 3025\noPrn:nLogPixelx(): 300\noPrn:nLogPixely(): 300\noPrn:nXOffset: 75\noPrn:nYOffset: 75\noPrn:nHorzRes() - (2 * oPrn:nXOffset): 2250 [2250/300dpi = 7.5 in ]\noPrn:nVertRes() - (2 * oPrn:nYOffset): 2875 [2875/300dpi = 9.6 in ]\noPrn:nHorzSize() : 203 mm = 8.0 in\noPrn:nVertSize() : 256 mm = 10.1 in\noPrn:GetPhySize()[1]: 215.900\noPrn:GetPhySize()[2]: 279.400\n\n===========================\noPrn:cModel: hp officejet 5500 series,winspool,USB001\noPrn:nHorzRes(): 4800\noPrn:nVertRes(): 6258\noPrn:nLogPixelx(): 600\noPrn:nLogPixely(): 600\noPrn:nXOffset: 150\noPrn:nYOffset: 42\noPrn:nHorzRes() - (2 * oPrn:nXOffset): 4500 [4500/600dpi = 7.5 in]\noPrn:nVertRes() - (2 * oPrn:nYOffset): 6174 [6174/600dpi = 10.3 in]\noPrn:nHorzSize() : 203 mm = 8 in\noPrn:nVertSize() : 264 mm = 10.4 in\noPrn:GetPhySize()[1]: 215.900\noPrn:GetPhySize()[2]: 279.400','',0,'','fdoazcaf',1,0,'',303,0,0),(23259,5179,6,600,0,'84.123.222.86',1165654627,1,0,1,1,1,0,'','','Yo tambien la preciso. Si serias tan amable\n\nMuchas gracias\n\nmi correo es: <!-- e --><a href=\"mailto:juanjogascem@yahoo.es\">juanjogascem@yahoo.es</a><!-- e -->','',0,'','2wb211m5',1,0,'',600,0,0),(23260,5179,6,2,0,'87.218.146.228',1165661099,1,0,1,1,1,1,'','','Horacio,\n\nSi eres tan amable, por favor súbela a <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> y pon aqui el link de descarga para que la descargue quien lo desee. Gracias,','',0,'','21la8fdi',1,0,'',2,0,0),(23261,5253,3,6,0,'87.18.232.44',1165661642,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:54orzfya]It looks like there is a problem. Note, below, that oPrn:nHorzSize() does not return the same size as the horzontal res - (2 * offset).[/quote:54orzfya]\n\noPrn:nHorzSize() and oPrn:nVertSize() are for screen device only.\n\nEMG','',0,'gA==','54orzfya',1,0,'',6,0,0),(23262,5260,3,2,0,'87.218.146.228',1165665439,1,0,1,1,1,1,'','IMPORTANT: FiveWin version number system to change','We have been considering to change the FiveWin version number using the same way as Ubuntu Linux does:\n\nThe year and the month, i.e.: next build will be 6.12 meaning that is released on 2006 December. i.e.: Next year, February: 7.02\n\nThis way we don\'t have to ask users about the dates of the libraries that they are using. The FW/FWH/FWPPC version number will mean year and month.\n\nWe believe this is a very good idea in order to provide a better tech support. We appreciate your comments, thanks!','',0,'gA==','11wp2vu7',1,0,'',2,0,0),(23263,5261,6,2,0,'87.218.146.228',1165665777,1,0,1,1,1,1,'','IMPORTANTE: Nuevo sistema en la numeración de versión de FW','Hemos estado considerando el cambiar el sistema de numeración de versiones que usa FiveWin y usar el mismo que usa Ubuntu Linux:\n\nEl año y el mes, por ejemplo: el próximo build será 6.12 significando que se publica en diciembre del 2006. Por ejemplo: El próximo año en febrero, será: 7.02. Y así cada mes y cada año. \n\nDe esta forma no tenemos que preguntar a los usuarios las fechas de las librerías que usan. El número de versión de FW/FWH/FWPPC significará el año y el mes.\n\nCreemos que es una muy buena idea para proporcionar mejor soporte técnico. Agradecemos vuestros comentarios, gracias!','',0,'gA==','2jk0onrc',1,0,'',2,0,0),(23264,5263,16,2,0,'87.218.146.228',1165666204,1,0,1,1,1,1,'','IMPORTANT: FiveWin version number system to change','We have been considering to change the FiveWin version number using the same way as Ubuntu Linux does: \r\n\r\nThe year and the month, i.e.: next build will be 6.12 meaning that is released on 2006 December. i.e.: Next year, February: 7.02 \r\n\r\nThis way we don\'t have to ask users about the dates of the libraries that they are using. The FW/FWH/FWPPC version number will mean year and month. \r\n\r\nWe believe this is a very good idea in order to provide a better tech support. We appreciate your comments, thanks!','',0,'gA==','1wg9t6r2',1,1230481140,'',2,2,0),(23265,5263,16,2,0,'87.218.146.228',1165666267,1,0,1,1,1,1,'','IMPORTANTE: Nuevo sistema en la numeración de versión de FW','Hemos estado considerando el cambiar el sistema de numeración de versiones que usa FiveWin y usar el mismo que usa Ubuntu Linux: \n\nEl año y el mes, por ejemplo: el próximo build será 6.12 significando que se publica en diciembre del 2006. Por ejemplo: El próximo año en febrero, será: 7.02. Y así cada mes y cada año. \n\nDe esta forma no tenemos que preguntar a los usuarios las fechas de las librerías que usan. El número de versión de FW/FWH/FWPPC significará el año y el mes. \n\nCreemos que es una muy buena idea para proporcionar mejor soporte técnico. Agradecemos vuestros comentarios, gracias!','',0,'gA==','2ogv6cch',1,0,'',2,0,0),(23266,5263,16,439,0,'200.125.42.152',1165666663,1,0,1,1,1,1,'','','Me parece bien.','',0,'gA==','11jpmx90',1,0,'',439,0,0),(23267,5261,6,362,0,'200.168.52.156',1165670811,1,0,1,1,1,1,'','','Excelente, eximio, noble, notable, ótimo, poderoso, relevante, rico, soberbio, soberano, superior, superlativo. \n\nCongratulations, Maestro!\n\nRegards, saludos.','',0,'gA==','3qvb9kpg',1,0,'',362,0,0),(23268,5264,3,888,0,'201.253.26.12',1165672978,1,0,1,1,1,0,'','Compatibilidad entre versiones de FWH y (x)Harbour','Hola a todo el mundo, acabo de registrarme en el foro y anteriormente estuve navegando por el bastante y me parece muy bueno, además quiero hacer mi expresa mis felicitaciones a nivel y profesionalidad que aquí he podido observar.\n\nSoy programador desde hace unos 10 años y hace unos 5 que uso fivewin, estoy intentando migrar mis aplicaciones a 32bits pero los compiladores de (x)Harbour no paracen ser los correctos para mi version de FWH 2.6 de abril del 2005.\n\nEs posible saber que compilador es el correcto?\n\nDesde ya muchas gracias a todos\n\nSaludos\nPoloMesh\nRosario, Senta Fe, Argentina','',0,'gA==','1hhljfks',1,0,'',888,0,0),(23269,5265,22,53,0,'189.139.18.218',1165678636,1,0,1,1,1,1,'','RETURN de un Preview','Antonio:\n\nA ver si me puedo explicar, para mis aplicaciones es de suma importancia conocer si en el PREVIEW de un reporte su utilizó el botón impresora o si el usuario solo mostró el PREVIEW y no lo envió a la impresora.\n\nEn otras palabras, sería conveniente que el preview devuelva (.T.) si se utilizó el botón IMPRIMIR o (.F.) si no se utilizó.\n\nSaludos, Armando','',0,'gA==','31et4mau',1,0,'',53,0,0),(23270,5264,3,53,0,'189.139.18.218',1165679078,1,0,1,1,1,1,'','Bienvenido','PoloMesh:\n\nBienvenido seas al mundo FiveWin.\n\nVarias cosas, la primera y es la que motivó tu consulta, Antonio acostumbra que a cada actualización de FW crea tambien su correspondiente contraparte de compiladores, Harbour y xHarbour, estos los puedes encontrar en:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->\n\nLa segunda, en estos foros acostumbramos a \"firmar\" los mensajes con nuestros nombres propios.\n\nLa tercera, el foro que usaste es el foro en Inglés, existe un foro para mensajes en Español.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nPerooo, bienvenido seas, nuevamente\n\nArmando','',0,'gA==','58ojwhch',1,0,'',53,0,0),(23271,5261,6,179,0,'201.217.81.243',1165683097,1,0,1,1,1,1,'','','excelente idea maestro, luego de las fiestas nos actualizamos\nUn Abrazo','',0,'gA==','mujxq1qd',1,0,'',179,0,0),(23272,5266,2,375,0,'84.122.98.21',1165686466,1,0,1,1,1,1,'','Funciones en C para índices','Como se puede crear una función en C que se pueda utilizar para la creación de un índice. Lo he intentado incorporandola a Five.lib con TLIB pero nada de nada.\n\nAlguna idea?\n\nGracias','',0,'gA==','3iz23c4r',1,0,'',375,0,0),(23273,5267,6,104,0,'201.58.22.122',1165697684,1,0,1,1,1,0,'','Como imprimir bmp/jpg em centimetros','Olá Pessoal,\n\nEstou tentando imprimir um arquivo bmp ou jpg e as medidas que passo para serem impressas não saem corretamente. Exemplo:\n\n[code:147931zq]\naVetPix &#58;= oPrn&#58;Cmtr2Pix&#40;Altura_Cm,Tamanho_Cm&#41;\noPrn&#58;SayBitmap&#40;lin,col,cTexto,aVetPix&#91;2&#93;,aVetPix&#91;1&#93;&#41;\n[/code:147931zq]\n\nEu passei este parametros:\n\nAltura_Cm := 2.51 cm\nTamanho_Cm := 3.84 cm\n\nFoi impresso o bitmap nas seguinte proporções:\n\nAltura = 2.50\nTamanho = 3.20\n\nSerá por que não imprimiu as medidas que eu passei ?\nEstou imprimindo em uma lx-300. Estou precisando muito disto  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nObrigado,\n\nRossine.','',0,'AIA=','147931zq',1,0,'',104,0,0),(23274,5268,6,878,0,'190.30.225.12',1165701825,1,0,1,1,1,0,'','ADO + FWH + SQL SERVER','Hola,\nUna pregunta levanto un recordset con Ado usando la libreria de jlcapel y dependiendo la cantidad de campos que me retorne en el SELECT me da el error hb_xgrab(0) not allocate memory y tal vez son 20 campos, a alguien le paso ? y lo pudo solucionar.\nGracias.','',0,'AIA=','3g6wv13u',1,0,'',878,0,0),(23275,5106,17,49,0,'62.13.172.78',1165706019,1,0,1,1,1,1,'','','there is nothing to this url : the zip file is bad !!!!!!!!!!!!!!','',0,'AIA=','7tmv12lz',1,0,'',49,0,0),(23276,5106,17,439,0,'200.125.50.225',1165710859,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1twtvi69]there is nothing to this url : the zip file is bad !!!!!!!!!!!!!![/quote:1twtvi69]\n\nMy friend, \n\nThe zip is ok, I have just download it','',0,'gA==','1twtvi69',1,0,'',439,0,0),(23277,5269,2,774,0,'200.72.145.147',1165712314,1,0,1,1,1,1,'','una duda','usando fivewin 2.4 se pueden obtener dialog o windows,, tipo XP\n\nesos con los bordes redondos','',0,'gA==','btttbopz',1,0,'',774,0,0),(23278,5106,17,49,0,'62.13.172.78',1165714739,1,0,1,1,1,1,'','','I re download it\nwhen I open the zip there is not anything on it ....','',0,'gA==','1qhue525',1,0,'',49,0,0),(23279,5106,17,439,0,'200.125.50.225',1165715194,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3k2feedm]I re download it\nwhen I open the zip there is not anything on it ....[/quote:3k2feedm]\n\nMy friend, the zip file is ok, anyway, please check your mail, I sent a self extracting file with the files.','',0,'gA==','3k2feedm',1,0,'',439,0,0),(23280,2652,6,52,0,'190.7.24.185',1165757916,1,0,1,1,1,1,'','','[quote=&quot;thefull&quot;:uucbee1h][quote=&quot;Manuel Valdenebro&quot;:uucbee1h]Raymundo,\n\nA mi me da error los Box.- Me dice \"La aplicación GDI.EXE no es una imagen válida\".\n\n¿Que error te da a tí?.\n\nLe he enviado un email a Rafa Carmona, por si pudiera echarnos una mano.[/quote:uucbee1h]\n\nYa te envie las clases <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> para 32 bits.\nSeria cojonudo que Mister Antonio las incluyera como contrib en Fivewin,\n¿Antonio ?, tienes mi total consentimiento, como siempre <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->, en coger lo que done a la comunidad y ponerlo en Fivewin.\n\nLa solucion es la siguiente, en la clase TUtilPrn , poneis esto:\n******************************************************************************\n******************************************************************************\n#IFDEF __HARBOUR__\n   DLL FUNCTION RoundRect( hDC AS LONG, ;\n              iLeft AS _INT , iTop AS _INT, ;\n              iRight AS _INT, iBottom AS _INT, ;\n              iWidth AS _INT, iHeight AS _INT ) AS BOOL PASCAL LIB \"GDI32.DLL\"\n#ELSE\n   DLL FUNCTION RoundRect( hDC AS WORD, ;\n              iLeft AS _INT , iTop AS _INT, ;\n              iRight AS _INT, iBottom AS _INT, ;\n              iWidth AS _INT, iHeight AS _INT ) AS BOOL PASCAL LIB \"GDI.EXE\"\n#ENDIF\n\nSeria interesante que Fivewin imlemente esta funcion, si no lo hace ya, porque de esto hace muchisimo tiempo <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSaludos\nRafa Carmona[/quote:uucbee1h]\n\nUna consulta, en la version de 16 bits, utilizabamos esto:\n\n[quote:uucbee1h]// Rutinas de Impresión Gráfica por THEFULL.\n// Funciones habilitadas: \n// *  Caja()\n// *  Linea()\n// *  SayBitMap()\n// *  CajaRound()\n// *  TrazoH()\n// *  TrazoV()\n// ------------------------------------------------------------------------------------------- //\n/* Rev26.03.2000\n   Segunda Revision:\n   Ahora le podemos pasar cualquier Pen para dibujar el Rectangulo redondeado\n   Requiere incluir en el linkado el objeto DRAWING.OBJ\n*/\n// ------------------------------------------------------------------------------------------- //[/quote:uucbee1h]\n\nEsta clase que hablas ahora es la misma? perdón por la ignorancia. \n\nGracias.','',0,'gA==','uucbee1h',1,0,'',52,0,0),(23281,5270,3,509,0,'83.33.155.173',1165771459,1,0,1,0,1,0,'','Error EasyPreview al enlazar con Harbour','Hola:\n\nAl fin conseguir pasar uno de mis programas de Fivewin 16 bits a Harbour en 32 y de momento todo perfecto salvo el enlace con EasyPreview 161.\n\nTodos los listados los genero con EasyReport y los quiero previsualizar con EasyPreview. Para ello, al igual que en 16bits enlazo el fichero EASYPREV.PRG, compilo y en teoría todo debería ir bien, pero obtengo el siguiente error:\n\nApplication\n===========\n   [color=blue:2v9vozos]Path and name: C:\\WINAGEN\\EPREVIEW.exe (32 bits)\n   Size: 1,858,048 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 12/10/06, 13:33:37\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   1\n[/color:2v9vozos]\nStack Calls\n===========\n   Called from: epclass.prg =&gt; EPREVIEW:NEW(253)\n   Called from: epclass.prg =&gt; EASYPREVIEW(68)\n   Called from: epreview.prg =&gt; MAIN(68)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 3.00GHz 3000 Mhz\n   Hardware memory: 1024 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.60 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   EPREVIEW:NEW\n     Param   1:    O    Class: TPRINTER\n     Param   2:    C    \"Epson Stylus COLOR II ESC/P 2\"\n     Param   3:    C    \"C:\\DOCUME~1\\RPATON\\CONFIG~1\\Temp\\EPREVIEW.TMP\"\n     Local   1:    O    Class: EPREVIEW\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    C    \"\"\n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    A    Len:    0\n     Local  14:    U    \n     Local  15:    O    Class: EPREVIEW\n     Local  16:    U    \n     Local  17:    U    \n     Local  18:    U    \n     Local  19:    U    \n     Local  20:    A    Len:    0\n     Local  21:    N    1\n     Local  22:    U    \n     Local  23:    A    Len:    2\n   EASYPREVIEW\n     Param   1:    O    Class: TPRINTER\n     Param   2:    C    \"Epson Stylus COLOR II ESC/P 2\"\n     Param   3:    C    \"C:\\DOCUME~1\\RPATON\\CONFIG~1\\Temp\\EPREVIEW.TMP\"\n     Local   1:    U    \n   MAIN\n     Param   1:    C    \"C:\\DOCUME~1\\RPATON\\CONFIG~1\\Temp\\EPREVIEW.TMP\"\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    A    Len:    0\n     Local  16:    C    \"C:\\DOCUME~1\\RPATON\\CONFIG~1\\Temp\"\n     Local  17:    C    \"ALBARANES\"\n     Local  18:    U    \n     Local  19:    C    \"Epson Stylus COLOR II ESC/P 2\"\n     Local  20:    O    Class: TPRINTER\n     Local  21:    N    1\n     Local  22:    C    \"C:\\DOCUME~1\\RPATON\\CONFIG~1\\Temp\\EPREVIEW.TMP\"\n     Local  23:    A    Len:    0[/color]\n\nSaludos.\n\nRicardo Patón','',0,'Ag==','2v9vozos',1,0,'',509,0,0),(23282,5253,3,303,0,'72.199.41.171',1165779007,1,0,1,1,1,0,'','','Enrico,\n\nActually, nHorzSize() and nHorzRes() are both for printable area. I didn\'t realize this until now. All the vars except GetPhySize() are for printable area.\n\nJames','',0,'Ag==','126cnq4q',1,0,'',303,0,0),(23283,5271,7,57,0,'88.0.87.181',1165779101,1,0,1,1,1,1,'','GoNextCtrl se pierde en un tPanel','Antonio\nTe adjunto 2 ejemplos que deberian tener el mismo comportamiento al pasar el foco pero no es así. Si compruebas ambos ejemplos por separado veras que si pulsas enter sobre el primer Get el segundo ejemplo se queda en un bucle sin fin y se debe resetear la máquina.\n\n---------------- Primer ejemplo ------------------\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, oGroup, oGet, oGet1, oGet2\n   local cDir  := Space( 20 )\n   local cName := Space( 20 ), cAddress := Space( 30 )\n   \nDEFINE WINDOW oWnd TITLE \"Foco\"\n\n   @ 2, 8 GET oGet VAR cDir  OF oWnd   SIZE 100, 18\n   @ 3, 2  GROUP oGroup TO 10,30 OF oWnd\n\n   @  1, 3.8 SAY \"Name:\" OF oGroup SIZE 40, 15\n\n   @  2, 8 GET oGet1 VAR cName OF oGroup SIZE 100, 18\n\n   @  3.8, 2.1 SAY \"Address:\" OF oGroup SIZE 50, 15\n\n   @  4, 8 GET oGet2 VAR cAddress OF oGroup SIZE 120, 18\n   ACTIVATE WINDOW oWnd\nreturn nil\n\n---------------- Segundo ejemplo ------------------\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, oGroup, oGet, oGet1, oGet2\n   local cDir  := Space( 20 )\n   local cName := Space( 20 ), cAddress := Space( 30 )\n   \n   DEFINE WINDOW oWnd   TITLE \"Foco\"\n   @ 10, 10 PANEL oPanel OF oWnd ;\n      SIZE oWnd:nWidth() - 26, oWnd:nHeight() - 150 PIXEL\n\n\n   @ 2, 8 GET oGet VAR cDir  OF oPanel   SIZE 100, 18\n   @ 3, 2  GROUP oGroup TO 10,30 OF oPanel\n\n   @  1, 3.8 SAY \"Name:\" OF oGroup SIZE 40, 15\n\n   @  2, 8 GET oGet1 VAR cName OF oGroup SIZE 100, 18\n\n   @  3.8, 2.1 SAY \"Address:\" OF oGroup SIZE 50, 15\n\n   @  4, 8 GET oGet2 VAR cAddress OF oGroup SIZE 120, 18\n\n   ACTIVATE WINDOW oWnd\nreturn nil\n\n=========================================\nSaludos','',0,'Ag==','vibyy6mb',1,0,'',57,0,0),(23284,5253,3,303,0,'72.199.41.171',1165779265,1,0,1,1,1,0,'','','Evans,\n\n&gt;What I mean is if I can restrict the printers to make them print only within 268x203 mm, as with HP 1330, which, after all is the printer where we make all of our printouts to adjust. \n\nThe problem would be if some printers have a smaller printable area than 268x203. None of the ones you mention do, but there are a lot of printers out there.\n\nMaybe you could explain exactly what the printing problem is?\n\nJames','',0,'Ag==','d8vvej95',1,0,'',303,0,0),(23285,5253,3,6,0,'87.17.213.133',1165780206,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:r78o2hqu]Enrico,\n\nActually, nHorzSize() and nHorzRes() are both for printable area. I didn\'t realize this until now. All the vars except GetPhySize() are for printable area.\n\nJames[/quote:r78o2hqu]\n\nFrom MSDN:\n\n[quote:r78o2hqu]HORZSIZE Width, in millimeters, of the physical screen.\n\nVERTSIZE Height, in millimeters, of the physical screen. \n\nHORZRES Width, in pixels, of the screen; or for printers, the width, in pixels, of the printable area of the page.\n\nVERTRES Height, in raster lines, of the screen; or for printers, the height, in pixels, of the printable area of the page.[/quote:r78o2hqu]\n\nEMG','',0,'gA==','r78o2hqu',1,0,'',6,0,0),(23286,5253,3,303,0,'72.199.41.171',1165781868,1,0,1,1,1,0,'','','Enrico,\n\nOK, the MSDN reference is noted, but look at these numbers:\n\noPrn:cModel: HP DeskJet 420,winspool,LPT1:\noPrn:nHorzRes(): 2400 [2400/300 dpi = 8 inches]\noPrn:nVertRes(): 3025 [3025/300 dpi = 10.1 inches]\noPrn:nLogPixelx(): 300\noPrn:nLogPixely(): 300\noPrn:nXOffset: 75\noPrn:nYOffset: 75\noPrn:nHorzSize() : 203 mm = 8.0 inches\noPrn:nVertSize() : 256 mm = 10.1 inches \noPrn:GetPhySize()[1]: 215.900  [ 215.9 mm / 25.4 = 8.5 in ]\noPrn:GetPhySize()[2]: 279.400  [ 279.4 mm / 25.4 = 11 in ]\n\nNote that nHorzRes and nHorzSize are both showing the same values. The same for nVertRes and nVertSize.\n\nIf we calculate the printable area from the paper size minus the offset we get a number that is the same as nHorzRes():\n\n8.5 in * 300 dpi = 2550 pixels - (2 * nXOffset ) = 2400 pixels = nHorzRes\n\nI think that this means that code like this from TPrinter:Cmtr2Pix() is actually wrong:\n\n   nRow := Max( 0, ( nRow * 10 * ::nVertRes() / ::nVertSize() ) - ::nYoffset )\n   nCol := Max( 0, ( nCol * 10 * ::nHorzRes() / ::nHorzSize() ) - ::nXoffset )\n\nBecause the offset is being subtracted from the printable area. I\'m not sure that the offset values need to be used anywhere since printable area already takes in to account the offsets.\n\nJames','',0,'','2734s6do',1,0,'',303,0,0),(23287,5253,3,6,0,'87.17.213.133',1165783222,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3alftocj]I think that this means that code like this from TPrinter:Cmtr2Pix() is actually wrong:\n\n   nRow := Max( 0, ( nRow * 10 * ::nVertRes() / ::nVertSize() ) - ::nYoffset )\n   nCol := Max( 0, ( nCol * 10 * ::nHorzRes() / ::nHorzSize() ) - ::nXoffset )\n\nBecause the offset is being subtracted from the printable area. I\'m not sure that the offset values need to be used anywhere since printable area already takes in to account the offsets.[/quote:3alftocj]\n\nNo, it is correct. Without offset being subtracted, if you were print at 0 cm you would really print at the left printable margin that is not at 0 cm from the sheet physical left margin.\n\nEMG','',0,'gA==','3alftocj',1,0,'',6,0,0),(23288,4617,7,527,0,'83.45.97.212',1165783986,1,0,1,1,1,0,'','Ejemplo por favor','Me puedes indicar como usar este control desde FWPPC, gracias.','',0,'gA==','2837wzgw',1,0,'',527,0,0),(23289,4002,7,527,0,'83.45.97.212',1165784416,1,0,1,1,1,0,'','Me interesa','Me puedes enviar un ejemplo para ver como lo haces por favor, yo tengo ese mismo problema.','',0,'gA==','1vhnngu7',1,0,'',527,0,0),(23290,4002,7,57,0,'88.0.87.181',1165789646,1,0,1,1,1,1,'','Re: Me interesa','[quote=&quot;mjcc&quot;:ii4dctjt]Me puedes enviar un ejemplo para ver como lo haces por favor, yo tengo ese mismo problema.[/quote:ii4dctjt]\n\nModifica el metodo New de la clase tGet añadiendo lo siguiente:\n\nif lReadonly\n     ::SetColor( CLR_BLACK , GetSysColor( COLOR_BTNFACE ))\nEndif\n\nSaludos','',0,'gA==','ii4dctjt',1,0,'',57,0,0),(23291,4617,7,57,0,'83.56.204.63',1165789996,1,0,1,1,1,1,'','Re: Ejemplo por favor','[quote=&quot;mjcc&quot;:16vpfkv4]Me puedes indicar como usar este control desde FWPPC, gracias.[/quote:16vpfkv4]\n\nTienes un ejemplo en la carpeta samples: Se llama testdtp.prg\n\nSaludos','',0,'gA==','16vpfkv4',1,0,'',57,0,0),(23292,4617,7,63,0,'84.77.241.10',1165793716,1,0,1,1,1,0,'','','mj:\n\nPara usar DTPICKER simplemente haz algo así:\n\n@ nR, nC DTPICKER oFecha VAR dFecha OF oDlg SIZE  90, 20 PIXEL COLOR CLR_BLACK, CLR_WHITE\n\nEn el IPAQ, los ajustes del formato de fecha los tienes en:\nInicio - Configuracion - Sistema - Configuración regional - Fecha\n\nEn el emulador está en Start - Settings - System - Regional settings - Date\nRecuerda ajustar antes el idioma.  Curiosamente, mi emulador no admite el formato dd/mm/yyyy; solamente acepta el año con dos cifras.\n\nSaludos,\n\nRafael','',0,'gA==','1lo04sym',1,0,'',63,0,0),(23293,5253,3,303,0,'72.199.41.171',1165794749,1,0,1,1,1,0,'','','Enrico,\n\n&gt;No, it is correct. Without offset being subtracted, if you were print at 0 cm you would really print at the left printable margin that is not at 0 cm from the sheet physical left margin. \n\nOK, cmtr2pix() is calculating the absolute position on the paper, not the position in the printable area. I was thinking it was the printable area.\n\nSo, I think I can guess the problem Evans is having. I am somewhat familiar with the software that Evans is working on as I have also worked on it before. They do a lot of printing on top of an image of a form. So, if they put the form image at the top left of the printable area, then calculate the postions of the text base on the paper size, everything will work fine on that printer. But if another printer has a different printable area, then the form image is shifted compared to the absolute position of the text on the page. This makes the alignment off.\n\nThe solution may be tricky. Both the image and the text must be placed at absolute positions on the page, and hopefully they will both fall within the printable area. I suppose one could calcuate the absolute positions from the top left of the printable area instead of the paper. This way both the image and the text would always be in alignment and at least the top and left sides of the image &amp; text would never be cut off. In the case where the printable area is not large enough for the entire form image to fit, then the bottom and/or left of the image may get cut off. I don\'t know if any of the form images are large enough for that to be a problem or not.\n\nJames','',0,'gA==','2ew4bsz0',1,0,'',303,0,0),(23294,2652,6,439,0,'200.125.43.167',1165806732,1,0,1,1,1,1,'','','Gracias Manuel y Gracias Rafa!!!!!\n\nPor sus permanentes contribuciones.','',0,'gA==','1dxnl622',1,0,'',439,0,0),(23295,5272,6,53,0,'189.139.23.183',1165810141,1,0,1,1,1,1,'','ComboBox en TSBrowse','Amigos del foro:\n\nBuen inicio de semana, estoy usando la clase TSbrowse 7.01 de Manual Mercado y modificada por José Murugosa.\n\nCuando en una columna uso un ComboBox me tira un error al salir de dicha celda.\n\n   Path and name: C:\\Metalona\\SiaWin.Exe (32 bits)\n   Size:   747,520 bytes\n   Time from start: 0 hours 0 mins 18 secs \n   Error occurred at: 10/12/2006, 22:00:05\n   Error description: Error BASE/1111  Argument error: LEN\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; LEN(0)\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:EDITEXIT(2962)\n   Called from: TSBROWSE.PRG =&gt; (b)TSBROWSE:LEDITCOL(4955)\n   Called from: TSCOMBO.PRG =&gt; TSCOMBO:KEYDOWN(68)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: COMBOBOX.PRG =&gt; TCOMBOBOX:HANDLEEVENT(0)\n   Called from: TSCOMBO.PRG =&gt; TSCOMBO:HANDLEEVENT(56)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: siawin.prg =&gt; MAIN(176)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 3.00GHz 3000 Mhz\n   Hardware memory: 503 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n\nLa misma aplicación en 16 bits funciona muy bien. Algo estoy haciendo mal ?\n\nSaludos, Armando','',0,'','1lg5odql',1,0,'',53,0,0),(23296,5235,6,9,0,'85.53.98.58',1165818217,1,0,1,1,1,1,'','','En la carpeta Utilidades de este mismo Foro, puedes descargar un manual del amigo Romero, que en mi opinión, es bastante bueno.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2586\">http://fivetechsoft.com/forums/viewtopic.php?t=2586</a><!-- m -->\n\nEn solo una semana, puedes conocer FW y resolver muchas dudas, pero claro, es necesario LEERSELO.','',0,'','3aorf22y',1,0,'',9,0,0),(23297,5253,3,449,0,'212.64.224.241',1165830997,1,0,1,1,1,1,'','','Hello Enrico and James,  \n  \nIt is a very interesting topyc for my. I wanted to know your opinion on the following thing:  \n  \nIf I have an template using WMF with 4 points (Top/Left, Top/Right, Bottom/Left, Bottom/Right), it is possible to print 4 texts f.e. \"Hello print\", in the same points (Top/Left, Top / Right, Bottom/Left, Bottom/Right) using the method:: CmSay ()?   \n  \nIndependently of the printer that is used, I will see the same thing in screen (preview) that in the impression (real wisiwyg)? or will it always be approximate?   \n  \nMy obsession is to be able to print using a template (f.e using the method ::ImportWMF ()) and to add data indicating coordinates using f.e. method ::Say ()). Is it correct to use this methodology or do you know some better one?   \n  \nGreetings.','',0,'','1dnpp1b2',1,0,'',449,0,0),(23298,5245,3,486,0,'200.184.85.3',1165834425,1,0,1,1,1,0,'','','Today I do almost equal to you, I thought that FWH had some function.\n\nClemerson','',0,'','8a1j7p5g',1,0,'',486,0,0),(23299,5253,3,6,0,'87.17.218.183',1165835555,1,0,1,1,1,1,'','','[quote=&quot;Carles&quot;:38uq1s9n]If I have an template using WMF with 4 points (Top/Left, Top/Right, Bottom/Left, Bottom/Right), it is possible to print 4 texts f.e. \"Hello print\", in the same points (Top/Left, Top / Right, Bottom/Left, Bottom/Right) using the method:: CmSay ()?[/quote:38uq1s9n]\n\nYes. If your coordinates are in pixels you have to convert it to cm using oPrn:Cmtr2Pix() method.\n\nEMG','',0,'gA==','38uq1s9n',1,0,'',6,0,0),(23300,5253,3,6,0,'87.17.218.183',1165835650,1,0,1,1,1,1,'','','No, sorry, it is not as easy as it seem at first sight.\n\nEMG','',0,'gA==','79qtp5y5',1,0,'',6,0,0),(23301,5253,3,6,0,'87.17.218.183',1165835783,1,0,1,1,1,1,'','','What are the units of your coordinates?\n\nEMG','',0,'gA==','763pggor',1,0,'',6,0,0),(23302,5266,2,2,0,'87.218.146.234',1165836848,1,0,1,1,1,1,'','','Cómo es la función ? Que hace ?\n\nQue error te ha dado ?','',0,'gA==','4bx8me3s',1,0,'',2,0,0),(23303,5269,2,2,0,'87.218.146.234',1165836925,1,0,1,1,1,1,'','','Para conseguir la apariencia de XP tienes que usar FWH y Harbour/xHarbour, ya que sólo funciona en aplicaciones de 32 bits.','',0,'gA==','318otyzg',1,0,'',2,0,0),(23304,4946,18,210,0,'80.121.109.193',1165842381,1,0,1,1,1,0,'','','Mr. Linares\nI send you to your Email an EXE for this error to show.','',0,'gA==','2kq84za1',1,0,'',210,0,0),(23305,5251,6,147,0,'200.45.54.133',1165842918,1,0,1,0,1,1,'','','La versión que está en la sección Utilidades detecta el uso de la rueda. Solo funciona en 32bits.\n\nsaludos','',0,'gA==','2khbhdwk',1,0,'',147,0,0),(23306,5273,7,720,0,'80.36.244.134',1165843029,1,0,1,1,1,0,'','feof()???','Hola a todos...\n\nAlguien sabe si se puede usar la función feof()??. Si es así que cabecera hay que incluir, porque a mi no me lo está cogiendo....\n\n\nSaludos..\n\nElías Torres.','',0,'gA==','1rp8b8hk',1,0,'',720,0,0),(23307,4475,1,569,0,'201.209.68.95',1165846473,1,0,1,1,1,0,'','saludos miguel','Miguel prueba con el blinker 7, o el clipper5.3\nSaludos sildata.\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','27qbxkqa',1,0,'',569,0,0),(23308,5264,3,888,0,'201.253.20.83',1165846555,1,0,1,1,1,0,'','Gracias Armando','Gracias Armando por tu bienvenida.\n\nYa vi esos tópico, pero no tuve solución, más allá de eso he conseguido los compiladores para mi versión del FWH y he empezado con mi labor\n\nGracias y Saludos','',0,'gA==','15kqy81y',1,0,'',888,0,0),(23309,5274,6,362,0,'200.168.52.156',1165846567,1,0,1,1,1,1,'','DECLARAR AUTORÍA DEL PROGRAMA','Amigos, Como hacer para DECLARAR AL WINDOWS XP, la AUTORÍA, LABRA del Programa,  para que el WINDOWS XP, no retorne una mensageria pedindo el EDITOR/AUTOR del Programa??\n\nUso FiveWin 2.7 for xHarbour y un Archivo.bat y un Archivo.lnk para compilar.\n\n\nRegards, saludos.','',0,'gA==','3voanl8k',1,0,'',362,0,0),(23310,5232,2,832,0,'201.122.21.224',1165847265,1,0,1,1,1,0,'','Re: Oye novato','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> lo que puedes hacer es:\n\n\nPRIMERO TENDRAS QUE CONFIGURAR LA IMPRESO EN TU MAQUINA, SOLO CAMBIARAS EL PURTO DE IMPRESORA, POR EL DE INFRARROJO....\n\n\nSEGUNDO TENDRAS QUE HACER LA PRUEVAS REDUCIENDO EL FORMATO DE TU IMPRESION...\n\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  Y ESO ES TODO...\n\n\nESPERO Y TE AYUDE MI COMENTATRIO','',0,'gA==','2eptvqn9',1,0,'',832,0,0),(23311,4412,3,569,0,'201.209.68.95',1165847712,1,0,1,1,1,0,'','Saludos colega','Amigo: podrias intentar algo mas rudimentario como por ejemplo hacer un \"run dir &gt;dir.txt \" en el archivo que te crea esta opcion te viene el \"label\" y el numero del serial del HDD, la lees con memoread, la limpias y separas lo que te interesa.\nAdicionalmente tambien podrias agregar a tu rutina de seguridad la fecha del BIOS asi que esta string la guardas encriptada en algun subdirectorio de WINDOWS por ejemplo y con el nombre sugerido \"SEGURIDAD.DLL\"\npero sera un *.mem, el cual seria facil de leer y desencriptar solamente por ti.\nPienso que FECHABIOS+LABELHDD+SERIALHDD, pienso que seria bien dificil que te copien tu programa; yo lo utilizo y me va bien.\nSaludos sildata\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','5xuk66xm',1,0,'',569,0,0),(23312,5195,6,875,0,'64.76.108.179',1165849072,1,0,1,1,1,0,'','Gracias','Bueno el tutor02 que yo generaba no levantaba, pero el que tu me mandaste si, Asi que reinstale todo un poco mas y casi cambio de PC, y a la octava vez de reinstalar todo, recien funciono de nuevo todo(Es lo mas raro que me ha pasado).\n\nGracias Antonio\n\nJaime','',0,'gA==','4c48arzg',1,0,'',875,0,0),(23313,1934,7,569,0,'201.209.68.95',1165850118,1,0,1,1,1,0,'','Saludos colega','Amigo:\nYo estoy tratando de hacer algo parecido pero mucho mas sencillo para una aplicacion comun y silvestre FWH, modificacando el \"INSTALL\" que esta en los \"SAMPLES\" de FWH, y lo que me falta y no he podido hacerlo tadavia es que el programa de instalacion al finalizar la instalacion me agregue un ICONO en el escritorio desde donde pueda dispara la aplicacion, si alguien tiene una idea, agradecido y bienvenida.\nGracias\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','2d500qk0',1,0,'',569,0,0),(23314,5275,2,382,0,'194.77.237.245',1165850817,1,0,1,1,1,1,'','NtxPos','NtxPos should return the relativ index position of a recno (NTX-RDD). But it seems, that the return-value is allway 0. Why?','',0,'gA==','20oegmq1',1,0,'',382,0,0),(23315,5251,6,176,0,'201.255.156.237',1165850911,1,0,1,1,1,0,'','','Me puedes decir en que parte esta utilidades. El browse de Hernán que tengo es la versiob 17 hay posteriores...\n\nGracias Luis','',0,'gA==','2srvl1ub',1,0,'',176,0,0),(23316,5275,2,382,0,'194.77.237.245',1165850929,1,0,1,1,1,1,'','Re: NtxPos','[quote=&quot;fp&quot;:178lx4b7]NtxPos should return the relativ index position of a recno (NTX-RDD). But it seems, that the return-value is allway 0. Why?[/quote:178lx4b7]\n\nSorry, it\'s the wrong forum ... the problem is in FiveWin-Harbour','',0,'gA==','178lx4b7',1,0,'',382,0,0),(23317,5276,3,382,0,'194.77.237.245',1165851013,1,0,1,1,1,1,'','NtxPos','NtxPos should return the relativ index position of a recno (NTX-RDD). But it seems, that the return-value is allway 0. Why?','',0,'gA==','9h9w0ctw',1,0,'',382,0,0),(23318,5277,6,176,0,'201.255.156.237',1165851273,1,0,1,1,1,0,'','Verce','Alguien me puede decir la última versión del mismo y de dónde puedo bajarlo, ya que quiero entrar a la página de Juan Carlos Salinas y me da error.\n\nLuis','',0,'gA==','9irmcdcs',1,0,'',176,0,0),(23319,5251,6,53,0,'189.139.18.247',1165851633,1,0,1,1,1,1,'','','Mario:\n\nMuchas gracias, problema solucionado gracias tambien a Paco Horta.\n\nSurgom:\n\nEn la parte inferior de esta pantalla hay un combobox, el penultimo item es el de UTILIDADES.\n\n\nSaludos','',0,'gA==','1gk4oa33',1,0,'',53,0,0),(23320,5277,6,53,0,'189.139.18.247',1165851723,1,0,1,1,1,1,'','','Surgom:\n\nLa última, bueno la más reciente versión de VERCE es la 4.3 y tambien la encuentras en la sección de UTILIDADES.\n\nSaludos','',0,'gA==','1kqzitlc',1,0,'',53,0,0),(23321,5274,6,53,0,'189.139.18.247',1165852170,1,0,1,1,1,1,'','','Karinha:\n\nNo estoy seguro de que mi respuesta sea la que esperas pero nada se pierde con investigar.\n\nAl editar los recursos con PellesC, el último item del tree se llama VERSION, en él puedes incluir varias cosas, por ejemplo la versión de tu aplicación, fecha de creación y NOMBRE DEL AUTOR.\n\nSaludos, Armando','',0,'gA==','2qe7j05d',1,0,'',53,0,0),(23322,5276,3,6,0,'87.10.2.45',1165854340,1,0,1,1,1,1,'','Re: NtxPos','Use OrdKeyNo() instead.\n\nEMG','',0,'gA==','357osien',1,0,'',6,0,0),(23323,5276,3,382,0,'194.77.237.245',1165854615,1,0,1,1,1,1,'','Re: NtxPos','[quote=&quot;EnricoMaria&quot;:3pi3327g]Use OrdKeyNo() instead.\n\nEMG[/quote:3pi3327g]\n\nThanks','',0,'gA==','3pi3327g',1,0,'',382,0,0),(23324,1808,2,812,0,'200.83.125.98',1165856026,1,0,1,1,1,0,'','Me puede enviar la clase y los dos prg','Hola Daniel:\n\nTengo el mismo problema, me puedes enviar una copia por favor, a mi correo.\n\n<!-- e --><a href=\"mailto:marf2@tutopia.com\">marf2@tutopia.com</a><!-- e -->\n\nDesde ya muchas gracias.\n\nMiguel Rivera\n\n[quote=&quot;DanielPuente&quot;:34cayprw]Cristian: \n\n             Te envie a tu privado la clase y dos prg.\n\nSaludos,[/quote:34cayprw]','',0,'gA==','34cayprw',1,0,'',812,0,0),(23325,5278,2,52,0,'190.7.24.185',1165857734,1,0,1,1,1,1,'','sbrowse y wbrowse pueden convivir?','Estimados.,\n\nen un mismo .prg puede convivir una twbrowse y tsbrowse, para xharbour? Gracias.','',0,'gA==','3ltb6lnx',1,0,'',52,0,0),(23326,5109,7,720,0,'80.36.244.134',1165860509,1,0,1,1,1,0,'','','Hola...\n\nNecesito la ayuda de ustedes....\n\nVamos a ver tengo el siguiente código que lo que se supone deberia hacer es el suprimirme de la tabla el enlace a una *dbc.\n¿Cual es el problema? Pues logicamente que no me funciona.\n\nSi alguien puede echarme una mano se lo agradecería..llevo unos cuantos dias con esto..\n\n\n*** Abre fichero ***\nlocal a,b,c,n\na= fopen(\'articulo.dbf\',1)\n\n*** Si no logra abrirlo ***\nif a &lt; 0\nreturn \nendif\n\n*** Inicializa variables\nc= \'datos.dbc\'     &amp;&amp; se trata del enlace q tiene la tabla al *.dbc\nn= 0\n\ndo while !feof(a)\nb= lower(fread(a,1))\nn= n + 1\nc= right(c+b,11)\n\nif c= \'datos.dbc\'\nfseek(a,0,0)         &amp;&amp; se posiciona al principio del fichero\nfseek(a,n-15)       &amp;&amp; se posiciona al principio cadena encontrada\nfwrite(a,replicate(chr(0),15))	&amp;&amp; sustituye \nendif\nenddo\nfclose(a)\n\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'gA==','167xh2va',1,0,'',720,0,0),(23327,5279,2,542,0,'83.61.47.6',1165862687,1,0,1,1,1,0,'','Necesito el code 128c','Hola buenas que tal, necesitaria si pueden facilitarme alguna direccion donde encontrar la fuente CODE 128C para la impresion de datos con este formato.\n\nGracias','',0,'gA==','3pa36nnl',1,0,'',542,0,0),(23328,4338,2,569,0,'201.248.241.99',1165863601,1,0,1,1,1,0,'','Saludos de Sildata','Claudio creo tener lo que necesitas escrbeme.\nRodolfo Silva \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','1costz68',1,0,'',569,0,0),(23329,5274,6,362,0,'200.168.52.156',1165863827,1,0,1,1,1,1,'','','Gracias Armando. \n\nVoy Intentar.\n\nSaludos.','',0,'gA==','1lguy5uc',1,0,'',362,0,0),(23330,5280,6,104,0,'201.58.93.76',1165865642,1,0,1,1,1,0,'','Classe FreeImage de xharbour + fwh','Olá,\n\nNo xharbour existe uma classe para acessar a freeimage.dll, só que, quando incluo o \"freeimage.ch\", como no programa abaixo é gerado os erros abaixo:\n\n#include \"fivewin.ch\"\n#include \"FreeImage.ch\"\n#include \"common.ch\"\n\nfunction Main()\n\n   local oWnd, oBmp\n\n   DEFINE WINDOW oWnd TITLE \"SaveToBmp\"\n\n   ACTIVATE WINDOW oWnd\n   \nreturn nil\n\n\n\nApplication\n===========\n   Path and name: C:\\teste\\imag8.exe (32 bits)\n   Size: 1,565,184 bytes\n   Error occurred at: 12/11/06, 17:30:40\n   Error description: Error BASE/2023  Argument error: SizeOfCStructure\n   Args:\n     [   1] = A   { ... }\n\nStack Calls\n===========\n   Called from:  =&gt; HB_SIZEOFCSTRUCTURE(0)\n   Called from: cstruct.prg =&gt; __ACTIVESTRUCTURE(150)\n   Called from:  =&gt; __INIT_BITMAPINFOHEADER$(0)\n\nIsto é alguma incompatibilidade ? Como corrigir isto ?\n\nObrigado,\n\nRossine.','',0,'','2sf2dxx4',1,0,'',104,0,0),(23331,5281,6,221,0,'200.109.237.199',1165867435,1,0,1,1,1,0,'','SOBRE FOLDER','SALUDOS RESULTA QUE EN UN DIALOGO SACO DE UN LISTBOX EL CODIGO DE UN CLIENTE Y LO MANDO A ACTUALIZAR EN UN SAY Y QUE PASE A OTRO GET, BUENO EN EL DIALOGO FUNCIONA PERFECTO PERO SI LO HAGO DENTRO DE UNA PESTAÑA DE UN FOLDER NO LO HACE, ALGUIEN TENDRA ALGUNA IDEA DE PORQUE?\n\nGRACIAS DE ANTEMANDO Y LE DEJO EL CODIGO\n\n\n   DEFINE DIALOG DIALOGO TITLE \"X\" PIXEL FROM 5, 5 TO 505, 760  \n   @ 1,1 FOLDER FICHA prompts \"1\",\"2\" of dialogo SIZE 377,222 PIXEL  \n   @ 7,5 SAY OSAY VAR \"CLIENTE:\"  PIXEL OF FICHA:ADIALOGS[1]\n   @ 7, 145 SAY OSAY VAR \"CODIGO DE PIEZA:\" OF FICHA:ADIALOGS[1] PIXEL\n   @ 5, 35 COMBOBOX OBOX VAR TNOMBRE ITEMS ACLI OF FICHA:ADIALOGS[1] size 100,200 PIXEL ON CHANGE(TCOD_CLI:=SUBSTR(TNOMBRE,51,5),TCOD_PIE:=SUBSTR(TNOMBRE,56,5),TCOD_TODO=SUBSTR(TNOMBRE,51,10), osay2:refresh(),OGET2:SETFOCUS()) VALID TNOMBRE#SPACE(60) //TIMAGEN1=TCOD_CLI+TCOD_PIE+\"a\", TIMAGEN2=TCOD_CLI+TCOD_PIE+\"b\",\n\n   @ 7, 203 SAY OSAY2 VAR TCOD_TODO OF FICHA:ADIALOGS[1] PIXEL COLOR CLR_RED SIZE 30,10\n\n   @ 22, 5 SAY OSAY VAR \"TITULO:\" OF FICHA:ADIALOGS[1] PIXEL\n   @ 20, 55 GET OGET2 VAR TTITULO OF FICHA:ADIALOGS[1] PIXEL','',0,'','i1urdvtt',1,0,'',221,0,0),(23332,5270,3,509,0,'83.33.152.173',1165868206,1,0,1,0,1,0,'','','Hola:\n\nSolucionado. Timm me ha enviado corrección y ahora funciona perfecto.\n\nSaludos.\n\nRicardo Patón','',0,'','2iaxwlk7',1,0,'',509,0,0),(23333,5282,3,3,0,'82.255.215.1',1165868484,1,0,1,1,1,1,'','epson escape printing with usb printer','Good evening\n\nI am trying since quite a while to print escape codes on a usb printer without success.\n\nThe following code will open a cash tray when the printer is connected to a \"dos type\" parallel port (lpt1, lpt2 or lpt3)\n\n      CPORT   := OPRN:GETPORT()\n      CDOSPRT := TDOSPRN():NEW(CPORT)\n      Ntext   := SPACE(45)\n      Ntext   := \"CHR(27) +\'p\'+ CHR(0)+CHR(100)+CHR(100)\"\n      CDOSPRT:Say(0,00,&amp;(Ntext),.F.)    // open Cash\n      CDOSPRT:END()\n\n\nthe code will not work anymore if the printer is \"virtual epson lpt\" or worst if it is usb.\n\nI am trying to find a replacement as tdosprn can not be used anymore in my case and in today\'s printers.\n\nI have tried the following without succcess\n\n#define PASSTHROUGH 19\nESCAPE( oprn:hdc, PASSTHROUGH, nText)  // ntext is the same as above\n\nI have also tried xharbour functions without success\n\nprintsend(CHR(27) +\'p\'+ CHR(0)+CHR(100)+CHR(100),ICAISSE)  // icaisse is the correct name of the printer\n\nAnd also \nCFILE := \"c:\\test.TXT\"\nnHandle := fCreate( cFile )\nFWRITE( nHandle, NTEXT)\nfClose( nHandle )\nPrintFileRaw(ICAISSE,CFILE)\n\nAgain no success.\n\nI really do not know where to go from here....\n\nHas anyone succeeded sending escape codes to \"USB\" printer or Epson virtual printer (windows driver) ?\n\nIf yes, could you share a sample ?\n\nThanks in advance for your time,\n\nRichard','',0,'','883jt41t',1,0,'',3,0,0),(23334,5261,6,221,0,'200.109.237.199',1165868547,1,0,1,1,1,0,'','','EXCELENTE IDEA ASI AUTOMATICAMENTE SABEMOS EN DONDE ESTAMOS, YO HE HECHO ESO SIEMPRE CON LOS SOFTWARE QUE HAGO, CLARO UN POCO MAS COMPLICADITO PERO BASADO EN LA FECHA, EJ 0612.2101 OSEA AÑO, MES. DIA Y VERSION DEL DIA, CLARO ES MAS A DETALLE YA QUE A VECES EN UN DIA HAGO VARIAS COMPILACIONES, ETC','',0,'','2s0tdj0p',1,0,'',221,0,0),(23335,5280,6,49,0,'62.13.172.78',1165877352,1,0,1,1,1,1,'','','wich image class use ?','',0,'','16hnk4db',1,0,'',49,0,0),(23336,5279,2,49,0,'62.13.172.78',1165877786,1,0,1,1,1,1,'','','use barlib or vrdbarcode class !!!!!!!!!','',0,'','q4aunvhh',1,0,'',49,0,0),(23337,5238,3,205,0,'81.205.236.20',1165878314,1,0,1,1,1,0,'','','Works very well, thanks !','',0,'','6scxto57',1,0,'',205,0,0),(23338,5258,6,2,0,'87.218.146.234',1165879401,1,0,1,1,1,1,'','','Miguel,\n\nParece que no estas usando el objects.ch correcto de FWH.\n\nEsas funciones son de 16 bits y no se usan en 32 bits. FWH objects.ch usa las correctas de Harbour (hbclass.ch)','',0,'','5vb0bxqr',1,0,'',2,0,0),(23339,5273,7,2,0,'87.218.146.234',1165879550,1,0,1,1,1,1,'','','Elías,\n\nEs una función de FoxPro ? Que indica final de un fichero binario ó de texto ?\n\nComo necesitas usarlo ? Pon un ejemplo, gracias','',0,'','10whsi06',1,0,'',2,0,0),(23340,5281,6,2,0,'87.218.146.234',1165879889,1,0,1,1,1,1,'','','Aqui te falta lo marcado en rojo:\n\nTCOD_TODO [color=red:26l7wxy5]:=[/color:26l7wxy5] SUBSTR(TNOMBRE,51,10)','',0,'Ag==','26l7wxy5',1,0,'',2,0,0),(23341,5247,4,2,0,'87.218.146.234',1165880063,1,0,1,1,1,1,'','','Pier,\n\nIt looks as it is not supported in Windows Mobile. \n\nhave you seen another application that does it ?','',0,'Ag==','3afvfil6',1,0,'',2,0,0),(23342,5237,3,2,0,'87.218.146.234',1165881908,1,0,1,1,1,1,'','','Klaas,\n\nHarbour allocates memory for the virtual machine stack, and different subsystems. Why do you need to reduce that memory amount ?\n\nThese days those memory values are quite low.','',0,'Ag==','3o0rmpy8',1,0,'',2,0,0),(23343,5207,3,2,0,'87.218.146.234',1165882059,1,0,1,1,1,1,'','','Vilian,\n\nWe can\'t find samples\\chart1.prg, we only provide samples\\chart.prg and its working fine.','',0,'Ag==','17q3dw1v',1,0,'',2,0,0),(23344,5283,2,890,0,'200.69.108.238',1165884625,1,0,1,1,1,0,'','Clipper/fivewin','hola\n\ntengo una version demo de Fivewin quisiera saber si puedo hacer un ejecutable con las librerias que tiene este demo o no es posible. Por favor requiero que me enseñen a hacerlo, tengo el compilador de clipper 5.2 y el blinker demo 5.1 y las librerias que trae la version demo de fivewin. El ejecutable se esta haciendo pero no ejecuta no se si este bien el bli.lnk o que me falta[color=darkred][/color','',0,'','2scbyq66',1,0,'',890,0,0),(23345,5284,2,774,0,'200.72.191.38',1165884840,1,0,1,1,1,1,'','UNA DUDA sobre SCOPE','cuando tengo una dbf indexada por un campo con indices CDX..\nsupongamos q en cmapo es CODIGO\n\ndentro de un dialog digito el codigo\n\ny uso Ordscope para filtrar un codigo en especial en la DBf\n\nmi duda es::  el ordscope lo puedo realizar por solo por el campo q esta indexada la DBF o se puedo hacer por un campo que no sea el indice ???\n\nGRACIAS SI ALGUIEN ME ACLARA ESTA  DUDA','',0,'','3g20cl86',1,0,'',774,0,0),(23346,5207,3,267,0,'201.9.134.232',1165886984,1,0,1,1,1,1,'','','Hi Antonio,\n\nSorry, The file is samples\\chart2fx\\chart1.pg','',0,'','2vulo8xy',1,0,'',267,0,0),(23347,5285,2,774,0,'200.72.191.38',1165889173,1,0,1,1,1,1,'','UNA DUDA','el uso de Scope se limita solo a usarlo con el indice activo\no se puedo usar con un campo q no sea el indice','',0,'','2ennxssv',1,0,'',774,0,0),(23349,3060,3,206,0,'125.160.82.93',1165889306,1,0,1,1,1,0,'','','Dear Rameshbabu, \n\nDo you have solutions for your question?\n\nI face same problem too. Any advice?\n\nHiong','',0,'','3natn8rr',1,0,'',206,0,0),(23350,5287,2,774,0,'200.72.191.38',1165889310,1,0,1,1,1,1,'','USO DE SCOPES','alguien me lo explica\n\nGRACIAS','',0,'','1g4tgycm',1,0,'',774,0,0),(23351,5284,2,138,0,'189.141.72.221',1165889393,1,0,1,1,1,1,'','','El scope solo se aplica sobre el campo indexado.\n\nLo que puedes hacer es hacer primero un scope y luego aplicar un filtro funciona mas rapido que con Clipper comun ycorriente','',0,'','808ah318',1,0,'',138,0,0),(23352,3060,3,206,0,'125.160.82.93',1165889500,1,0,1,1,1,0,'','','Dear Rameshbabu,\n\nnever mind, i found the answer:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/viewtopic.php?t=3432&amp;highlight=desktop+shortcut\">http://www.fivetechsoft.com/forums/view ... p+shortcut</a><!-- m -->','',0,'','2y6n8znl',1,0,'',206,0,0),(23353,5282,3,303,0,'72.199.41.171',1165890136,1,0,1,1,1,0,'','','Richard,\n\nThere might be some clues here:\n\nHow To Use PASSTHROUGH Escape to Send Data Directly to Printer\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/q96795/\">http://support.microsoft.com/kb/q96795/</a><!-- m -->\n\nAnd from that page you can go here:\nHOWTO: Send Raw Data to a Printer by Using the Win32 API\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/138594/EN-US/\">http://support.microsoft.com/kb/138594/EN-US/</a><!-- m -->\n\nOn both pages I see that they tell the spooler that the print job is done right after the data is sent. Are you doing that?\n\nOn the second reference above there is a C program. Perhaps one of the C programmers here could translate that to FWH for you.\n\nJames','',0,'','337jjeax',1,0,'',303,0,0),(23354,5240,3,707,0,'222.124.20.50',1165900392,1,0,1,1,1,0,'','','Mr. Ramesh\n\nCan you give me the complete your rmk file ?\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nThank\'s\nAreang','',0,'','19gejzvy',1,0,'',707,0,0),(23355,5288,3,707,0,'222.124.20.50',1165904654,1,0,1,1,1,0,'','Free Source Code Fancy Button','Hi All !\n\n[url:7s2o98yc]http&#58;//www&#46;codeproject&#46;com/buttonctrl/CRoundButton2&#46;asp[/url:7s2o98yc]\n\n[img:7s2o98yc]http&#58;//www&#46;codeproject&#46;com/buttonctrl/CRoundButton2/CRoundButton21&#46;jpg[/img:7s2o98yc]\n\nIs posible with fivewin ?\n\nThank\'s\nareang','',0,'GA==','7s2o98yc',1,0,'',707,0,0),(23356,5240,3,190,0,'202.65.134.26',1165909195,1,0,1,1,1,0,'','','Dear Mr.Areang\n\nThis is my SbrowseH.LIB\'s RMAKE file.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0269d1c091/sbrowseh.rmk.html\">http://hyperupload.com/download/0269d1c ... h.rmk.html</a><!-- m --> \n\n\n[code:2rgo1cxw]\n// defining language ID\nLang=&quot;ENG&quot;\n\n// defining some preprocessor directives for bcc32\nDef=&quot;__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF&quot;\n\n&#46;prg&#46;c&#58;\n   c&#58;\\xharbour\\bin\\harbour $&lt; /n  /ic&#58;\\fwh\\insight\\tsbrowse;c&#58;\\Fwh\\include;c&#58;\\xharbour\\include &gt; prog&#46;log\n\n&#46;c&#46;obj&#58;\n     c&#58;\\bcc55\\bin\\bcc32 -D$&#40;Def&#41; -O2 -c -Ic&#58;\\xharbour\\include;c&#58;\\fwh\\include;c&#58;\\bcc55\\include $&lt;  &gt;&gt; comp&#46;log\n\nTSBrowse&#46;c     &#58; TSBrowse&#46;prg\nSBMsgENG&#46;c     &#58; SBMsgEng&#46;prg\nTSColumn&#46;c     &#58; TSColumn&#46;prg\nTSBtnGet&#46;c     &#58; TSBtnGet&#46;prg\nTSGet&#46;c        &#58; TSGet&#46;prg\nTSCombo&#46;c      &#58; TSCombo&#46;prg\nTSMulti&#46;c      &#58; TSMulti&#46;prg\nScrllBar&#46;c     &#58; ScrllBar&#46;prg\nBtnDown&#46;c      &#58; BtnDown&#46;prg\nRPreview&#46;c     &#58; RPreview&#46;prg\nTMetafil&#46;c     &#58; TMetafil&#46;prg\nScroll&#46;obj     &#58; Scroll&#46;c\nTSBrowse&#46;obj   &#58; TSBrowse&#46;c\nTSBFuncs&#46;obj   &#58; TSBFuncs&#46;c\nSBMsgEng&#46;obj   &#58; SBMsgEng&#46;c\nTSColumn&#46;obj   &#58; TSColumn&#46;c\nTSBtnGet&#46;obj   &#58; TSBtnGet&#46;c\nTSGet&#46;obj      &#58; TSGet&#46;c\nTSCombo&#46;obj    &#58; TSCombo&#46;c\nTSMulti&#46;obj    &#58; TSMulti&#46;c\nScrllBar&#46;obj   &#58; ScrllBar&#46;c\nBtnDown&#46;obj    &#58; BtnDown&#46;c\nRPreview&#46;obj   &#58; RPreview&#46;c\nTMetafil&#46;obj   &#58; TMetafil&#46;c\nGetBtn&#46;obj     &#58; GetBtn&#46;c\n\nTSBrowse&#46;exe   &#58; TSBrowse&#46;obj TSBFuncs&#46;obj TSBtnGet&#46;obj TSGet&#46;obj TSCombo&#46;obj TSMulti&#46;obj\n                 Del SbrowseH&#46;lib\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TsBrowse      &gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +SBMsgEng     &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TSBFuncs     &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TSColumn     &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TSBtnGet     &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TSGet        &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TSCombo      &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TSMulti      &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +ScrllBar     &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +RPreview     &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +TMetafil     &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +Scroll       &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +GetBtn       &gt;&gt; Lib&#46;log\n                 c&#58;\\bcc55\\bin\\Tlib SBrowseH +BtnDown      &gt;&gt; Lib&#46;log\n                 copy sbrowseh&#46;lib c&#58;\\fwh\\lib\n                 \n[/code:2rgo1cxw]\n\nRegards to you\n\n- Ramesh Babu P','',0,'AIA=','2rgo1cxw',1,0,'',190,0,0),(23357,5278,2,2,0,'87.218.146.234',1165909661,1,0,1,1,1,1,'','','Gustavo,\n\nEn principio sí, sin problemas, siempre y cuando no existan funciones con el mismo nombre.','',0,'AIA=','1vva9x9c',1,0,'',2,0,0),(23358,5283,2,2,0,'87.218.146.234',1165909838,1,0,1,1,1,1,'','','Con la versión demo puedes construir ejecutables perfectamente, sólo que saldrá una ventanita diciendo que es la versión demo.\n\nNecesitas una versión de Blinker superior ó igual a la 3.0. Tambien puedes usar el link.exe de Microsoft que es gratuito. Lo puedes decargar desde la página de descargas de <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->\n\nEn samples\\build.bat puedes ver como usar Blinker ó link.exe','',0,'AIA=','7jf3ln4w',1,0,'',2,0,0),(23359,4946,18,2,0,'87.218.146.234',1165909944,1,0,1,1,1,1,'','','Please send me the source code of the sample as a ZIP file, thanks.','',0,'AIA=','lk0bkuus',1,0,'',2,0,0),(23360,5255,3,49,0,'213.82.134.66',1165912510,1,0,1,1,1,1,'','','is there someone can help me ?','',0,'AIA=','3gdeqtle',1,0,'',49,0,0),(23361,3060,3,190,0,'202.65.134.26',1165912756,1,0,1,1,1,0,'','','Mr.Hiong\n\nThank you very much for your link.\n\nThe ZLnk Class of Mr.Carles is excellent in creating shortcuts\nof any application on windows desktop.\n\nRegards to you\n\n- Ramesh Babu P','',0,'AIA=','21k0zlw4',1,0,'',190,0,0),(23362,3432,3,190,0,'202.65.134.26',1165912880,1,0,1,1,1,0,'','','Mr.Carles\n\nExcellent contribution.\n\nKeep it up.\n\nRegards to you,\n\n- Ramesh Babu P','',0,'AIA=','3lc2k9t3',1,0,'',190,0,0),(23363,5247,4,20,0,'82.59.182.162',1165913485,1,0,1,1,1,0,'','','It is true: WM does not support this.\n\nNo problem. I follow an other way in order to resolve my problem.\n\nRegards.\nPier Luigi','',0,'AIA=','14dq6n1j',1,0,'',20,0,0),(23364,5273,7,720,0,'80.36.244.134',1165915279,1,0,1,1,1,0,'','','Hola Antonio. Si, se trata de una funcion que identifica el final del fichero binario. Lo que pretendo es poder quitar la cabecera de una tabla que esté enganchada a una *.dbc\n\nLo que pretendo es algo parecido a esto:\n\n*** Abre fichero *** \nlocal a,b,c,n \na= fopen(\'articulo.dbf\',1) \n\n*** Si no logra abrirlo *** \nif a &lt; 0 \nreturn \nendif \n\n*** Inicializa variables \nc= \'datos.dbc\' &amp;&amp; se trata del enlace q tiene la tabla al *.dbc \nn= 0 \n\ndo while !feof(a) \nb= lower(fread(a,1)) \nn= n + 1 \nc= right(c+b,9) \n\nif c= \'datos.dbc\' \nfseek(a,0,0) &amp;&amp; se posiciona al principio del fichero \nfseek(a,n-9) &amp;&amp; se posiciona al principio cadena encontrada \nfwrite(a,replicate(chr(0),9)) &amp;&amp; sustituye \nendif \nenddo \nfclose(a) \n\n\nPero claro no me funciona. El problema lo tengo cuando he localizado la ristra \'datos.dbc\'. Es decir, que en el if el valor de c es el que tiene que ser, es decir, que c=\'datos.dbc\', pero luego a la hora de sustituir con el fwrite() parece que no remplaza lo que deberia. Supongo que el problema es debido al fseek(). Esto lo he probado en Fox puesto que en fwppc no me reconoce la función FEOF()....\n\n\nGracias y saludos.\n\nElías Torres.','',0,'AIA=','h0kj5qi1',1,0,'',720,0,0),(23365,5273,7,456,0,'62.43.194.117',1165915318,1,0,1,1,1,1,'','','[code:jidrava5]\nFUNCTION fEof&#40; nHandle &#41; \n   LOCAL nCurPos, nEOF \n   nCurPos &#58;= fSeek&#40; nHandle, 0, 1 &#41;\n   nEOF    &#58;= fSeek&#40; nHandle, 0, 2 &#41;\n   fSeek&#40; nHandle, nCurPos, 0 &#41;\nRETURN nEOF &lt;= nCurPos \n[/code:jidrava5]','',0,'AIA=','jidrava5',1,0,'',456,0,0),(23366,5273,7,2,0,'87.218.146.234',1165916123,1,0,1,1,1,1,'','','Elías,\n\nOtra forma de cambiar la cabecera sería:\n\nMemoWrit( cDbfName, StrTran( MemoRead( cDbfName ), \"datos.dbc\", Replicate( Chr( 0 ), 9 ) ) )','',0,'AIA=','61p2bk1v',1,1165916202,'',2,1,0),(23367,5273,7,720,0,'80.36.244.134',1165916144,1,0,1,1,1,0,'','','Hola Biel, gracias por la respuesta. Entiendo que debo poner esa función en mi código, no es asi?....\n\nUna pregunta, ¿sabes porque el código que he puesto (un poco más arriba) no funciona?.....\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','2hgzgzf2',1,0,'',720,0,0),(23368,5289,4,20,0,'82.59.182.162',1165919777,1,0,1,1,1,0,'','Tribute','FWPPC is a great product!\n\nI have just as finished to develoe a program for a insurance company. \n\nFWPPC library is stable and reliable.\n\nSome screeshots.\n\n[img:2zmj65b7]http&#58;//img208&#46;imageshack&#46;us/img208/4852/image1zf4&#46;jpg[/img:2zmj65b7]\n\n[img:2zmj65b7]http&#58;//img215&#46;imageshack&#46;us/img215/2088/image2so8&#46;jpg[/img:2zmj65b7]\n\n[img:2zmj65b7]http&#58;//img209&#46;imageshack&#46;us/img209/3553/image3rk7&#46;jpg[/img:2zmj65b7]\n\n[img:2zmj65b7]http&#58;//img209&#46;imageshack&#46;us/img209/9657/image4ew7&#46;jpg[/img:2zmj65b7]\n\n\nFor an other program of accounting I have developed also the diagrams using the TGraph class of Alfredo Arteaga (with some small adaptation).\n\n[img:2zmj65b7]http&#58;//img213&#46;imageshack&#46;us/img213/4648/image5hg0&#46;jpg[/img:2zmj65b7]\n\n[img:2zmj65b7]http&#58;//img215&#46;imageshack&#46;us/img215/9059/image6ds1&#46;jpg[/img:2zmj65b7]\n\nThanks Antonio. \nI hope to program soon also with FiveMac <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards.\nPier Luigi','',0,'CA==','2zmj65b7',1,0,'',20,0,0),(23369,5273,7,720,0,'80.36.244.134',1165920519,1,0,1,1,1,0,'','','Antonio, \n\ngracias por la respuesta. Funciona perfectamente. Lo único es que con una de las tablas parece que me la libera pero luego al hacer un use sobre ella me dice que está corrupta. Con las otras dos todo va perfecto.... Te he enviado a tu correo las tablas para ver si el problema lo tengo por la versión de la que dispongo o es otra cosa. Te agradecería que le echaras un vistazo y me indicaras cual es el problema...\n\n\nGracias...\n\nElías Torres.\n\nPor cierto, el uso de la memoria para este tema se libera de alguna forma? o tengo que liberarla yo....','',0,'CA==','3lv81q9g',1,0,'',720,0,0),(23370,5280,6,104,0,'201.58.83.118',1165921855,1,0,1,1,1,0,'','','Hello Silvio,\n\nI am trying to use the class \\xharbour\\contrib\\freeimage\n\nBest regards.','',0,'CA==','3a7nrx17',1,0,'',104,0,0),(23371,5273,7,456,0,'62.43.194.117',1165921933,1,0,1,1,1,1,'','','Hola Elias, \nsi, debes añadir la funcion pues no existe fEof en Harbour.\nReferente a porque no te funciona, pues a primera vista y sin probarlo, estas utilizando fRead, y esta funciona retorna los bytes leidos, y no la cadena leida. O bien usas fReadStr, o a fRead le pasas como parametro una variable por referencia donde te colocara lo leido. \nCambia esto, y vuelve a probar.\n\n FREAD(&lt;nHandle&gt;, @&lt;cBufferVar&gt;, &lt;nBytes&gt;) --&gt; nBytes\n FREADSTR(&lt;nHandle&gt;, &lt;nBytes&gt;) --&gt; cString','',0,'CA==','3kazu5ix',1,0,'',456,0,0),(23372,5284,2,774,0,'200.72.65.39',1165923754,1,0,1,1,1,1,'','','Rene ::\n\nte refieres a q si tengo una DBF con 1000 registros indexada por el campo codigo \n\nhacer un scope para seleccionar unos cuantos\n\ny luego hacer un filtro para seleccionar otros  de esos cuantos ya seleccionados con Scope..\n\nmi duda ahora no seria mejor crear un indice con los campos del scope y del filtro \n\ny luego solamente scope\n\nseria mas rapido q usar scope y filter por separado o es lo mismo\n\nque opinas;;\n\nGRACIAS','',0,'CA==','1jixysle',1,0,'',774,0,0),(23373,5290,6,221,0,'200.109.237.199',1165925476,1,0,1,1,1,0,'','re','antonio agradezco te hayas en verdad tomado la molestia de leer el codigo, realmente no se como haces para leer todos los codigo que la gente manda, es un esfuerzo apreciable, la variables que me dices la defino despues, creo es la tercera y es yo diria una pirateria de mi parte ya que originalmente es la suma de las otras dos, de todos modos cuando estaba en el dialogo funcionaba pero cuando agregue el folder y las puse en la pestaña dejo de funcionar por lo que el folder no me permite refrescar el say, no le nuscare la 5 pata al gata asi que lo volvere a poner en un dialogo y lo que tenia en la segunda pestaña lo pondre a traves de un boton para que el usuario lo pida si necesita verlo, de todos modos gracias por un poco de tu valiosisimo tiempo se que debes de andar en cosas mas serias','',0,'CA==','3bnbvu7k',1,0,'',221,0,0),(23374,5289,4,2,0,'87.218.146.234',1165925517,1,0,1,1,1,1,'','','Pier,\n\nCongratulations! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nVery nice and professional applications!','',0,'CA==','2qrdoo4y',1,0,'',2,0,0),(23375,5281,6,221,0,'200.109.237.199',1165925528,1,0,1,1,1,0,'','re','bueno me equivoque y lo puse como un post nuevo, jejeje\n\nantonio agradezco te hayas en verdad tomado la molestia de leer el codigo, realmente no se como haces para leer todos los codigo que la gente manda, es un esfuerzo apreciable, la variables que me dices la defino despues, creo es la tercera y es yo diria una pirateria de mi parte ya que originalmente es la suma de las otras dos, de todos modos cuando estaba en el dialogo funcionaba pero cuando agregue el folder y las puse en la pestaña dejo de funcionar por lo que el folder no me permite refrescar el say, no le nuscare la 5 pata al gata asi que lo volvere a poner en un dialogo y lo que tenia en la segunda pestaña lo pondre a traves de un boton para que el usuario lo pida si necesita verlo, de todos modos gracias por un poco de tu valiosisimo tiempo se que debes de andar en cosas mas serias','',0,'CA==','22112uuv',1,0,'',221,0,0),(23376,5281,6,221,0,'200.109.237.199',1165925693,1,0,1,1,1,0,'','re 2','por eso digo que mas sabe el diablo por viejo que por diablo, vere si es porque solo puse el signo de igual sin los dos puntos','',0,'CA==','23cq2dsg',1,0,'',221,0,0),(23377,5281,6,221,0,'200.109.237.199',1165925888,1,0,1,1,1,0,'','pues si efectivamente','pues si antonio gracias si era por los 2 puntos que faltaba, hasta pena me da a ver puesto el post pero a veces las cosas mas principiantes son en las que menos uno piensa cuando tiene un problema, gracias de nuevo','',0,'CA==','3dqhs24n',1,0,'',221,0,0),(23378,5273,7,2,0,'87.218.146.234',1165926022,1,0,1,1,1,1,'','','Elias,\n\nLa memoria se libera automaticamente, no tienes que preocuparte por eso.\n\nEn cuanto a el uso de MemoWrit() funciona bien, lo que ocurre es que si más tarde quieres restaurar datos.dbc dentro de la DBF, hay que anotar la posición en donde estaba:\n\nlocal cDBF := MemoRead( cDbfName )\nlocal nAt := At( \"datos.dbc\", cDBF )\n\nMemoWrit( ... \n\n... tu código\n\ncDbf = MemoRead( cDbfName )\ncDbf = SubStr( cDbf, 1, nAt - 1 ) + \"datos.dbc\" + SubStr( cDbf, nAt + Len( \"datos.dbc\" ) )\nMemoWrit( cDbfName, cDbf )','',0,'CA==','3cbb59yl',1,0,'',2,0,0),(23379,5290,6,2,0,'87.218.146.234',1165926158,1,0,1,1,1,1,'','','Estamos para ayudarnos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','3uqnpyin',1,0,'',2,0,0),(23380,5281,6,2,0,'87.218.146.234',1165926243,1,0,1,1,1,1,'','','Estamos para ayudarnos unos a otros en esta vida y en estos foros <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','2eto2ftt',1,0,'',2,0,0),(23381,4757,3,169,0,'200.206.142.134',1165927910,1,0,1,1,1,0,'','','[quote=&quot;George&quot;:iz8v2y5j]These are the wrappers that I am using with image2pdf.dll[/quote:iz8v2y5j]\n\nHi,\n\nMy wrappers are GPFing in FWH + XHarbour. What is wrong ?\n\nThe code can be downloaded here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fwi.com.br/toninho/tutor01.prg\">http://www.fwi.com.br/toninho/tutor01.prg</a><!-- m -->\n\n\nThanks for any help.\n\nToninho.','',0,'gA==','iz8v2y5j',1,0,'',169,0,0),(23382,4596,1,569,0,'201.248.241.99',1165928491,1,0,1,1,1,0,'','Saludos colega','Amigo creo que tu version de Fivewin no es compatible con el XHARBOUR\nsigue consultando y me avisas la solucion, pues yo tambien estoy en el mismo problema.\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','270d36a0',1,0,'',569,0,0),(23383,5281,6,221,0,'200.109.237.199',1165928647,1,0,1,1,1,0,'','','lo curioso es que me lo decia el compilador y como no me afectaba la compilacion no le hacia caso:\n\n\"WARNING W0027 Meaningless use of expression \'string\'\"','',0,'gA==','150mxwsv',1,0,'',221,0,0),(23384,5291,6,409,0,'201.246.66.223',1165933449,1,0,1,1,1,0,'','PROBLEMA CON ARCHIVO DE TEXTO .PRN','Bueno amigos tengo este problema tengo una function q me genera un archivo de texto temporal para visualizar cierto registro. como por ejemplo:\n\nquiero ver el mes de enero/2006 perfecto pero si quiero ver febrero/2006 me muestra enero/2006 como puede cerra un archvo de texto temporal\n\nSaludos','',0,'gA==','1gn0xutw',1,0,'',409,0,0),(23385,5292,20,837,0,'85.18.14.25',1165935487,1,0,1,1,1,1,'','Uscrire da un loop con ESC','Non riesco a capire perchè con la pressione del tasto ESC non riesco ad uscire da un DO WHILE ... ENDDO.\n\nDi seguito il codice\n\nDO WHILE .T.\n  SEL_AZI(V_AZICOD,V_AZIRAGIO1,V_AZIRAGIO2,V_AZIANNOCO)\n\n  IF V_AZICOD = 0\n    EXIT\n  ENDDO\n\n  DO WHILE .T.\n   DEFINE DIALOG oDlg RESOURCE \"DOCUMENTI\" TITLE \"Elenco Documenti\"\n    \n . . .\n\n  REDEFINE  BUTTON  ID 205 OF oDlg ACTION oDlg:End()\n\n  IF LASTKEY() = 27\n      oDlg:End()\n  ENDIF\n   \n    ACTIVATE DIALOG oDlg CENTER \n  \n    EXIT\n  \n  ENDDO\n\nENDDO\n\nSe clicco sul bottone 205 (Uscita) riesco ad uscire dal loop, se premo ESC no.\n\nGrazie, Andrea','',0,'gA==','1jv7ya5f',1,0,'',837,0,0),(23386,1175,6,888,0,'201.253.13.119',1165936500,1,0,1,1,1,0,'','Dónde buscar la clase TTS','Sr. César E. Lozada, he querido descargar la clase Text-To-Speech pero en la página se anuncia que no esta presente hasta que el usuario vuelva a subir el archivo linkeado. Le agradecería me informe dónde poder conseguirla o en caso de ser posible me la enviase a mi mail; <!-- e --><a href=\"mailto:polomesh@hotmail.com\">polomesh@hotmail.com</a><!-- e -->\n\nDesde ya muchas gracias.\nSaludos\n\nPolo Mesh\nRosario, Santa Fe, Argentina','',0,'gA==','1uzt5ysh',1,0,'',888,0,0),(23387,5293,6,36,0,'200.113.56.235',1165937438,1,0,1,1,1,0,'','JPG','Estimados\n\nno he podido colocar imagen jpg en mis dialogos\n\nhe visto el EJEMPLO fwh\\samples\\testimg pero este esta hecho sin recurso\n\nalguien ha podido hacerlo con recurso?\n\npor ahi vi la picture pero no esta la clase\n\nCualquier ayudita es bienvenida\n\nsaludos\nPatricio','',0,'gA==','17qg4r7x',1,0,'',36,0,0),(23388,5240,3,707,0,'222.124.20.50',1165937983,1,0,1,1,1,0,'','','Mr. Ramesh\n\nThank\'s for Reply\n\nHow about RMK file for application, can you give me also any sample\n\nI tried to make RMK on bormake (zip file)  but get error.\n\nBest regards\nAreang','',0,'gA==','lxd6wy3f',1,0,'',707,0,0),(23389,5292,20,6,0,'82.53.175.177',1165938926,1,0,1,1,1,1,'','Re: Uscrire da un loop con ESC','Per prima cosa devi tenere presente che fintanto che una DIALOG è visualizzata l\'esecuzione si trova bloccata nel comando ACTIVATE DIALOG (più o meno come succedeva in Clipper con il comando READ).\n\nEMG','',0,'gA==','33prgty8',1,0,'',6,0,0),(23390,1175,6,413,0,'217.125.9.228',1165939650,1,0,1,1,1,0,'','','cesar o alguien que lo descargara en su momento me lo puede enviar a ni correo hace tiempo que estoy detras de tts para fw. Mi correo gmail\n<!-- e --><a href=\"mailto:zalezalon@gmail.com\">zalezalon@gmail.com</a><!-- e -->\n\nGracias','',0,'gA==','2w53nria',1,0,'',413,0,0),(23391,5292,20,837,0,'85.18.14.25',1165940107,1,0,1,1,1,1,'','Re: Uscrire da un loop con ESC','[quote=&quot;EnricoMaria&quot;:3unvmnom]Per prima cosa devi tenere presente che fintanto che una DIALOG è visualizzata l\'esecuzione si trova bloccata nel comando ACTIVATE DIALOG (più o meno come succedeva in Clipper con il comando READ).\n\nEMG[/quote:3unvmnom]\n\nIo  faccio esattamente questo, solo che se clicco sul bottone Uscita lui mi attiva il comando oDlg:End() ed esce regolarmente mentre se premo ESC è come se avessi confermato.\n\nHo provato con LASTKEY() ma anche quello sembra che non lo legga.\n\nAndrea','',0,'gA==','3unvmnom',1,0,'',837,0,0),(23392,5281,6,439,0,'200.125.39.36',1165940325,1,0,1,1,1,1,'','','Espero no lo tomes como un atrevimiento, pero como talvez no tengas claro el concepto de este operador me atrevo a explicar:\n\n:= es un operador de asignación\n= funciona en algunos casos como operador de asignación pero en otros como operador de comparación\n\nVale decir:\n\na=b asigna el valor de b a la variable a en ciertas circusntancias pero en otras dependiendo de la expresion donde esté contenida a=b es una comparación como preguntarse \"es a igual a b\" por lo que retornará .t. o .f. según corresponda, por eso no te funcionaba pero no te daba error de compilación, ya que la expresión es válida para el compilador.\n\nPara evitar esta ambiguedad y que siempre sepas que asignas valores utiliza el operador a:=b que es forzosamente interpretado como asignar el valor de b a la variable a, no teniendo ninguna otra interpretación.\n\nDisculpa si lo tenías claro, pero en tal caso seguramente será de ayuda para alguien más.\n\nSaludos desde Uruguay!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2munfw8y',1,0,'',439,0,0),(23393,5293,6,36,0,'200.113.56.235',1165940715,1,0,1,1,1,0,'','','Solucionado\n\nPara quien le sirva\n\n#include \"Image.ch\"\n\nREDEFINE IMAGE oImage FILENAME \"C:\\pc.jpg\" ID 104 OF oDlg UPDATE ADJUST\n\nen pellesc debe ser el recurso bitmap\n\nsaludos\nPatricio','',0,'gA==','2b5p4div',1,0,'',36,0,0),(23394,1175,6,439,0,'200.125.39.36',1165940732,1,0,1,1,1,1,'','','César o alguien que lo descargara en su momento podría subirlo nuevamente a un link de HiperUpload o Antonio, podrías agregarlo al foro de Utilidades, por favor, ya que ahora no está disponible el archivo.','',0,'gA==','138hwcnq',1,0,'',439,0,0),(23395,5273,7,720,0,'80.36.244.134',1165941031,1,0,1,1,1,0,'','','Gracias a los dos....\n\nEn cuanto a lo que me comentas Biel, no había caido en eso, lo probaré, gracias. Por otro lado Antonio, no se si me expliqué bien pero lo que me ocurre es que efectivamente la tabla me la libera (aparentemente) pero no puedo hacer uso de ella. Lo de restaurar datos.dbc no hace falta puesto que lo que hago es una copia a nivel local para poder trabajar con ellas y luego las elimino. Lo que pasa es que como te digo me funciona perfectamente para otras dos tablas pero para la tabla de articulos no me la abre, me vuelve a decir que está corrupta. Según me comentas ahí funciona por lo que me da que hay algo que yo no tengo en mi versión...\n\nEstaba ya casi a punto de conseguir lo que quiero pero una vez más me he topado con otra pared, jejeje.\n\n\nSeguiré mirando..\n\nSaludos.\n\nElías Torres.','',0,'gA==','2q9iivq1',1,0,'',720,0,0),(23396,4757,3,169,0,'200.206.142.134',1165941473,1,0,1,1,1,0,'','','Hi friends, \n\nthe code works, and DLL works too, the only that we need is use \"Image2PDF StdCall.dll\"\n\nRegards,\n\nToninho.','',0,'gA==','2bi1dd2v',1,0,'',169,0,0),(23397,5292,20,6,0,'82.53.175.177',1165942210,1,0,1,1,1,1,'','Re: Uscrire da un loop con ESC','Allora cerca di fare un esempio chiaro del tuo problema perché da quello che hai riportato non si capisce assolutamente.\n\nEMG','',0,'gA==','1wuxehh0',1,0,'',6,0,0),(23399,4757,3,435,0,'200.155.198.33',1165950992,1,0,1,1,1,0,'','','Precisa pagar para usar esta DLL ?  ela é Free ?\n\nAri','',0,'gA==','mlm2vc1u',1,1166012328,'',435,1,0),(23400,5273,7,720,0,'80.36.244.134',1165951011,1,0,1,1,1,0,'','','Hola...\n\nTengo una cosilla que comentar a ver que me podeis decir...\n\nEl problema que tenía al abrir la tabla articulo.dbf después de quitarle la cabecera \'datos.dbc\' era debido al uso de unos campos monetarios. Los he quitado de la tabla haciendo pruebas y he comprobado que si los pongo no funciona y en cambio si los quito entonces funciona perfectamente. Entonces mi pregunta es la siguiente, ¿este lenguaje soporta el uso de estos campos?... Yo supongo que si puesto que Antonio me comentó que le funcionaba correctamente. Entonces una vez más creo que voy a tener que actualizar la versión que tengo...\n\n\nSaludos..\n\nElías Torres.','',0,'gA==','1r58mlal',1,0,'',720,0,0),(23401,5282,3,3,0,'82.65.31.32',1165951541,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2ukjhpu1]Richard,\n\nThere might be some clues here:\n\nHow To Use PASSTHROUGH Escape to Send Data Directly to Printer\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/q96795/\">http://support.microsoft.com/kb/q96795/</a><!-- m -->\n\nAnd from that page you can go here:\nHOWTO: Send Raw Data to a Printer by Using the Win32 API\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/138594/EN-US/\">http://support.microsoft.com/kb/138594/EN-US/</a><!-- m -->\n\nOn both pages I see that they tell the spooler that the print job is done right after the data is sent. Are you doing that?\n\nOn the second reference above there is a C program. Perhaps one of the C programmers here could translate that to FWH for you.\n\nJames[/quote:2ukjhpu1]\n\nThank you James,\n\nPrintfileraw from xharbour was the solution i adapted and it is working in all cases. Now i can send all my \"Escape\" codes to any printer.\n\nThanks for the reply\n\nBest regards\n\nRichard\n\nPS : If anyone needs help on this matter (sending esc codes to any printer), feel free to ask.','',0,'gA==','2ukjhpu1',1,0,'',3,0,0),(23402,5273,7,2,0,'87.218.146.234',1165951866,1,0,1,1,1,1,'','','Elías,\n\nQue son los campos monetarios ? Pon un ejemplo, por favor.\n\nPuede ser que ese tipo de campos no esten soportados en harbour todavía.','',0,'gA==','21t1ihnh',1,0,'',2,0,0),(23403,5282,3,2,0,'87.218.146.234',1165952011,1,0,1,1,1,1,'','','Richard,\n\n&gt; Printfileraw from xharbour was the solution i adapted and it is working in all cases.\n\nWould you please post a small sample of its use ? many thanks!','',0,'gA==','axn4siq2',1,0,'',2,0,0),(23404,5280,6,104,0,'201.58.83.118',1165952060,1,0,1,1,1,0,'','','Olá,\n\nEsta classe realmente é muito boa e tem várias funções para se trabalhar com a freeimage, mas não consigo usá-la junto com FWH. \n\nVeja um exemplo abaixo:\n\n[code:243bd3g3]\n/*\n * $Id&#58; fitest&#46;prg,v 1&#46;3 2006/05/12 22&#58;55&#58;51 lculik Exp $\n */\n\n/*\n * Copyright 2005 Francesco Saverio Giudice &lt;info@fsgiudice&#46;com&gt;\n *\n * FreeImage API test file\n */\n\n#include &quot;FreeImage&#46;ch&quot;\n#include &quot;common&#46;ch&quot;\n\n#define IMAGES_IN  &quot;images_in/&quot;\n#define IMAGES_OUT &quot;images_out/&quot;\n\nPROCEDURE Main&#40;&#41;\n\n   LOCAL im, clone, rotated, rotatedEx, rescale, im2, im3\n   LOCAL centerX, centerY, width, height, appo\n   LOCAL bmpinfoheader IS BITMAPINFOHEADER\n   LOCAL bmpinfo       IS BITMAPINFO\n   LOCAL bkcolor       IS RGBQUAD\n   LOCAL iccprofile    IS FIICCPROFILE\n\n//   ? &quot;Press Alt-D + Enter to activate debug&quot;\n//   AltD&#40; &#46;T&#46; &#41;\n//   Inkey&#40;0&#41;\n\n*set console OFF\n*set printer ON\n\n altd&#40;&#41;\n   // Check output directory\n   IF !ISDirectory&#40; IMAGES_OUT &#41;\n      DirMake&#40; IMAGES_OUT &#41;\n   ENDIF\n\n   ? &quot;Initialise&quot;\n   fi_Initialise&#40;&#41;\n   //---------------------------//\n\n   ? &quot;Set Error Message&#58;&quot;, fi_SetOutPutMessage&#40; @fi_Error&#40;&#41; &#41;\n   //? &quot;Set Error Message&#58;&quot;, fi_SetOutPutMessage&#40; NIL &#41;\n\n   ? &quot;Version          &#58;&quot;, fi_GetVersion&#40;&#41;\n   ? &quot;Copyright        &#58;&quot;, fi_GetCopyrightMessage&#40;&#41;\n   ? &quot;File type        &#58;&quot;, fi_GetFileType&#40; IMAGES_IN + &quot;xharbour&#46;jpg&quot; &#41;\n   ? &quot;Load JPEG&quot;\n   im &#58;= fi_Load&#40; FIF_JPEG, IMAGES_IN + &quot;xharbour&#46;jpg&quot;, JPEG_DEFAULT &#41;\n\n   ? &quot;Clone image&quot;\n   clone &#58;= fi_Clone&#40; im &#41;\n\n   ? &quot;Pointer          &#58;&quot;, ValToPrg&#40; im &#41;\n\n   ? &quot;Image Type       &#58;&quot;, fi_GetImageType&#40; im &#41;\n   ? &quot;Color Used       &#58;&quot;, fi_GetColorsUsed&#40; im &#41;\n   ? &quot;Pixel size       &#58;&quot;, fi_GetBPP&#40; im &#41;\n   ? &quot;Width            &#58;&quot;, fi_GetWidth&#40; im &#41;\n   ? &quot;Height           &#58;&quot;, fi_GetHeight&#40; im &#41;\n   ? &quot;Byte Size        &#58;&quot;, fi_GetLine&#40; im &#41;\n   ? &quot;Pitch            &#58;&quot;, fi_GetPitch&#40; im &#41;\n   ? &quot;DIB Size         &#58;&quot;, fi_GetDIBSize&#40; im &#41;\n   ? &quot;Dots per Meter X &#58;&quot;, fi_GetDotsPerMeterX&#40; im &#41;\n   ? &quot;Dots per Meter Y &#58;&quot;, fi_GetDotsPerMeterY&#40; im &#41;\n   ? &quot;Color Type       &#58;&quot;, fi_GetColorType&#40; im &#41;\n   ? &quot;Red Mask         &#58;&quot;, fi_GetRedMask&#40; im &#41;\n   ? &quot;Green Mask       &#58;&quot;, fi_GetGreenMask&#40; im &#41;\n   ? &quot;Blue Mask        &#58;&quot;, fi_GetBlueMask&#40; im &#41;\n   ? &quot;Transp&#46; Count    &#58;&quot;, fi_GetTransparencyCount&#40; im &#41;\n   ? &quot;Is Transparent ? &#58;&quot;, fi_IsTransparent&#40; im &#41;\n   ?\n   ? &quot;Save BMP ?       &#58;&quot;, fi_Save&#40; FIF_BMP , im, IMAGES_OUT + &quot;xharbour&#46;bmp&quot;, BMP_DEFAULT  &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im, IMAGES_OUT + &quot;xharbour&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   ? &quot;Save PNG ?       &#58;&quot;, fi_Save&#40; FIF_PNG , im, IMAGES_OUT + &quot;xharbour&#46;png&quot;, PNG_DEFAULT  &#41;\n\n   ? &quot;Save TIFF ?      &#58;&quot;, fi_Save&#40; FIF_TIFF, clone, IMAGES_OUT + &quot;xharbour&#46;tif&quot;, TIFF_DEFAULT &#41;\n   ? &quot;Flip Horizontal ?&#58;&quot;, fi_FlipHorizontal&#40; clone &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, clone, IMAGES_OUT + &quot;horizontal&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   ? &quot;Flip Vertical ?  &#58;&quot;, fi_FlipVertical&#40; clone &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, clone, IMAGES_OUT + &quot;vertical&#46;jpg&quot;, JPEG_DEFAULT &#41;\n\n   ? &quot;Rotate Classic   &#58;&quot;, ValToPrg&#40; rotated &#58;= fi_RotateClassic&#40; clone, 90 &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, rotated, IMAGES_OUT + &quot;rotate&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; rotated &#41;\n\n   centerx &#58;= fi_GetWidth&#40; clone &#41; / 2\n   centery &#58;= fi_GetHeight&#40; clone &#41; / 2\n   ? &quot;Rotate Ex        &#58;&quot;, ValToPrg&#40; rotatedEx &#58;= fi_RotateEx&#40; clone, 15, 0, 0, centerx, centery, TRUE &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, rotatedEx, IMAGES_OUT + &quot;rotateEx&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; rotatedEx &#41;\n\n   width   &#58;= fi_GetWidth&#40; im &#41;\n   height  &#58;= fi_GetHeight&#40; im &#41;\n\n   ? &quot;Rescale          &#58;&quot;, ValToPrg&#40; rescale &#58;= fi_Rescale&#40; im, width / 2, height / 2, FILTER_BICUBIC &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, rescale, IMAGES_OUT + &quot;rescale&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; rescale &#41;\n\n   im2 &#58;= fi_Clone&#40; im &#41;\n   ? &quot;Adjust Gamma ?   &#58;&quot;, fi_AdjustGamma&#40; im2, 3&#46;0 &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;adjgamma&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n\n   im2 &#58;= fi_Clone&#40; im &#41;\n   ? &quot;Adjust Brightness&#58;&quot;, fi_AdjustBrightness&#40; im2, -30 &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;adjbright&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n\n   im2 &#58;= fi_Clone&#40; im &#41;\n   ? &quot;Adjust Contrast ?&#58;&quot;, fi_AdjustContrast&#40; im2, -30 &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;adjcontrast&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n\n   im2 &#58;= fi_Clone&#40; im &#41;\n   ? &quot;Invert ?         &#58;&quot;, fi_Invert&#40; im2 &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;invert&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n\n   ? &quot;Red Channel      &#58;&quot;, ValToPrg&#40; im2 &#58;= fi_GetChannel&#40; im, FICC_RED &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;red&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n\n   ? &quot;Green Channel    &#58;&quot;, ValToPrg&#40; im2 &#58;= fi_GetChannel&#40; im, FICC_GREEN &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;green&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n\n   ? &quot;Blue Channel     &#58;&quot;, ValToPrg&#40; im2 &#58;= fi_GetChannel&#40; im, FICC_BLUE &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;blue&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n\n   ? &quot;Copy             &#58;&quot;, ValToPrg&#40; im2 &#58;= fi_Copy&#40; im, 300, 100, 800, 200 &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im2, IMAGES_OUT + &quot;copy&#46;jpg&quot;, JPEG_DEFAULT &#41;\n\n   im3 &#58;= fi_Clone&#40; im &#41;\n   ? &quot;Paste ?          &#58;&quot;, fi_Paste&#40; im3, im2, 10, 10, 70 &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im3, IMAGES_OUT + &quot;paste&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im2 &#41;\n   fi_Unload&#40; im3 &#41;\n\n   ? &quot;Allocate Bitmap  &#58;&quot;, ValToPrg&#40; im3 &#58;= fi_AllocateT&#40; FIT_BITMAP, 320, 200, 32 &#41; &#41;\n   ? &quot;Save JPG ?       &#58;&quot;, fi_Save&#40; FIF_JPEG, im3, IMAGES_OUT + &quot;allocate&#46;jpg&quot;, JPEG_DEFAULT &#41;\n   fi_Unload&#40; im3 &#41;\n\n   ? &quot;Create ERROR     &#58;&quot;\n   ? &quot;Save GIF ?       &#58;&quot;, fi_Save&#40; FIF_GIF, im, IMAGES_OUT + &quot;wrong&#46;gif&quot;, 0 &#41;\n\n   //? ValToPrg&#40; fi_GetInfoHeader&#40; im &#41; &#41;\n   //bmpinfoheader&#58;Buffer&#40; fi_GetInfoHeader&#40; im &#41;, TRUE &#41;\n   bmpinfoheader&#58;Pointer&#40; fi_GetInfoHeader&#40; im &#41; &#41;\n   ? &quot;Header           &#58;&quot;, ValToPrg&#40; bmpinfoheader &#41;\n   ? bmpinfoheader&#58;SayMembers&#40;&quot; &quot;, &#46;t&#46;, &#46;t&#46;&#41;\n\n   bmpinfo&#58;Pointer&#40; fi_GetInfo&#40; im &#41; &#41;\n   ? &quot;Info           &#58;&quot;, ValToPrg&#40; bmpinfo &#41;\n   ? bmpinfo&#58;SayMembers&#40;&quot; &quot;, &#46;t&#46;, &#46;t&#46;&#41;\n   ? &quot;-----------------------------------------------------&quot;\n   ? ValType&#40; bmpinfo&#58;Devalue&#40;&#41; &#41;\n   //Tracelog&#40; &quot;bmpinfoheader&quot;, ValToPrg&#40; bmpinfoheader &#41;, ;\n   //          bmpinfoheader&#58;SayMembers&#40;, &#46;t&#46;&#41;, bmpinfoheader&#58;Value&#40;&#41;, bmpinfoheader&#58;DeValue&#40;&#41;, hb_dumpvar&#40; bmpinfoheader&#58;Array&#40;&#41; &#41;, hb_dumpvar&#40; bmpinfoheader&#58;acMembers &#41; &#41;\n\n   //appo &#58;= bkcolor&#58;Value&#40;&#41;\n   ? bkcolor&#58;Pointer&#40; fi_GetBackgroundColor&#40; im &#41; &#41;\n   //? fi_GetBackgroundColor&#40; im, @bkcolor&#58;Value&#40;&#41; &#41;\n   //bkcolor&#58;Buffer&#40; appo &#41;\n   ? bkcolor&#58;SayMembers&#40;&quot; &quot;, &#46;t&#46;, &#46;t&#46;&#41;\n\n   bkcolor&#58;rgbBlue &#58;= 205\n   //? fi_SetBackgroundColor&#40; im, hb_String2Pointer&#40; bkcolor&#58;Value&#40;&#41; &#41; &#41;\n   Tracelog&#40;&quot;linha 168&quot;&#41;\n   ? fi_SetBackgroundColor&#40; im, bkcolor&#58;Value&#40;&#41; &#41;\n   Tracelog&#40;&quot;linha 170&quot;&#41;\n   ? bkcolor&#58;SayMembers&#40;&quot; &quot;, &#46;t&#46;, &#46;t&#46;&#41;\nTracelog&#40;&quot;linha 162&quot;&#41;\n//   ? bkcolor&#58;Pointer&#40; fi_GetBackgroundColor&#40; im &#41; &#41;\n   //? fi_GetBackgroundColor&#40; im, @bkcolor&#58;Value&#40;&#41; &#41;\n   //bkcolor&#58;Buffer&#40; appo &#41;\nTracelog&#40;&quot;linha 176&quot;&#41;\n   ? bkcolor&#58;SayMembers&#40;&quot; &quot;, &#46;t&#46;, &#46;t&#46;&#41;\n\nTracelog&#40;&quot;linha 179&quot;&#41;\n   iccprofile&#58;Pointer&#40; fi_GetICCProfile&#40; im &#41; &#41;\n   Tracelog&#40;&quot;linha 181&quot;&#41;\n   ? &quot;Header           &#58;&quot;, ValToPrg&#40; iccprofile &#41;\n   Tracelog&#40;&quot;linha 183&quot;&#41;\n   ? iccprofile&#58;SayMembers&#40;&quot; &quot;, &#46;t&#46;, &#46;t&#46;&#41;\n\n   //bmpinfoheader&#58;Reset&#40;&#41;\n   //appo &#58;= NIL\n   //bmpinfoheader &#58;= NIL\n   //hb_GCAll&#40; &#46;T&#46; &#41;\n\n   ? &quot;Unload images from memory&quot;\n   fi_Unload&#40; im &#41;\n   fi_Unload&#40; clone &#41;\n\n\n   //---------------------------//\n   ? &quot;DeInitialise&quot;\n   fi_Deinitialise&#40;&#41;\n\n   ?\n   ? &quot;Look at &quot; + IMAGES_OUT + &quot; folder for output images&quot;\n   ?\n\n*set printer OFF\n*set console ON\n\nRETURN\n\nPROCEDURE fi_Error&#40; cFormat, cMessage &#41;\n   ? &quot;ERROR!&#46;&#46;&#46;&quot;\n   ? &quot;Format  &#58; &quot;, cFormat\n   ? &quot;Message &#58; &quot;, cMessage\nreturn \n[/code:243bd3g3]\n\nAlguém poderia me ajudar ?   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nObrigado,\n\nRossine.','',0,'AIA=','243bd3g3',1,0,'',104,0,0),(23405,5282,3,3,0,'82.65.31.32',1165953911,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1lyzi8pn]Richard,\n\n&gt; Printfileraw from xharbour was the solution i adapted and it is working in all cases.\n\nWould you please post a small sample of its use ? many thanks![/quote:1lyzi8pn]\n\nAntonio \nSure no problem\n\nthis is a snapshot\n\n      CFILE   := \"PRN.TXT\"\n      nHandle := fCreate( cFile )\n      Ntext   := SPACE(45)\n      Ntext   := CHR(27) +\'p\'+ CHR(0)+CHR(100)+CHR(100)  // this will open a cash tray\n      FWRITE( nHandle, Ntext)\n      fClose( nHandle )\n      PrintFileRaw(myprintername,CFILE)  //myprintername is a valid printer name\n      FERASE(CFILE)\n\nyou can add as many lines as you wish in the text file (process several esc commands) \n\nRegards\n\nRichard','',0,'gA==','1lyzi8pn',1,0,'',3,0,0),(23406,5273,7,720,0,'83.32.133.232',1165956032,1,0,1,1,1,0,'','','Antonio,\nme refiero a campos que se utilizan para monedas. En fox se declara como campos monetarios de longitud 8. En la tabla de articulos que te he pasado para la prueba están los campos que te menciono... Por lo que me comentabas alli funciona pero a mi no. Los quito y si... Es algo muy raro..\n\nSaludos.\n\nElías Torres.','',0,'gA==','22bli25l',1,0,'',720,0,0),(23407,4944,7,527,0,'83.55.37.8',1165956625,1,0,1,1,1,0,'','No entiendo','Me podrias enviar un ejemplo de como controlas las columnas cuando se hace un click o doble click encima por favor. Llevo tiempo buscando este tipo de funcion y no la he conseguido encontrar.\n\nmuchas gracias\n<!-- e --><a href=\"mailto:imjcc@mjccsl.com\">imjcc@mjccsl.com</a><!-- e -->','',0,'gA==','3eewd0rz',1,0,'',527,0,0),(23408,5294,7,527,0,'88.1.227.225',1165958500,1,0,1,1,1,0,'','Ejemplo de impresion','Como puedo imprimir a traves de un puerto com, una impresion normal pero por ejemplo con un tipo de letra distinta en varias lineas, por ejemplo en una linea una courier, 10 y en otra una arial de 12\n\ngracias','',0,'gA==','36dgswrq',1,0,'',527,0,0),(23409,5282,3,2,0,'87.218.146.234',1165963150,1,0,1,1,1,1,'','','Richard,\n\nThanks!','',0,'gA==','3psdgf64',1,0,'',2,0,0),(23410,5282,3,303,0,'72.199.41.171',1165963326,1,0,1,1,1,0,'','','Richard,\n\nGlad you got that working; I know it has been a problem for you for some time. Thanks for sharing the solution.\n\nJames','',0,'gA==','3iaij305',1,0,'',303,0,0),(23411,5295,6,891,0,'148.243.37.162',1165963376,1,0,1,1,1,0,'','Ayuda urgente','Hola a todos los amigos de FiveWin, soy nuevo en este foro, y deseo participar y ayudar si es posible contribuir con algun codigo, aun no tengo mucha experiencia, en fin, mas adelante aprendere como ustedes.\nHago mi pregunta a todos los amigos de FiveWin, tengo un programa desarrollado en FiveWin un modulo de contabilidad se puede decir, que lleva control de proveedores, antiguedad de saldos, balanza de comprobacion, etc etc etc etc, bueno entonces el programa ya lo tengo a prueba trabajando en red de multiusuarios, con windows 2000 server, bueno el caso es que cuando un usuario usa el software funciona de maravilla la captura, asi como reportes, pero al usar otro siguiente usuario el mismo programa o sea 2 usuarios usando el mismo programa, se vuelve lento, ya le busque por todos lados y no le hallo el problema, y abro las bases de datos compartidas [color=red:1w3cip9t][color=red]Use (tabla) alias (tabla) [/color:1w3cip9t]new shared [/color], asi como tambien uso indices ntx\nal igual desde al inicio de la aplicacion, agregue el comando [color=red:1w3cip9t]Set exclusive off[/color:1w3cip9t], alguien me puede ayudar principalmente si el Sr Antonio Linares me puede ayudar con este problema? ah y un detalle si creo ejecutable diferente ejemplo: ProveIva1.exe ProveIva2.exe y asi sucesivamente, cada usuario trabajar normal sin lentitud obvio que con diferente ejecutable, pero no es el caso, imaginense si son mas de 12 usuarios ?, en fin , espero sus respuestas por favor, especialmente a Antonio Linares autor de FiveWin y tengo muchas sugerencias, que a todos les podra convenir, para este lenguaje tan poderoso que apenas voy conociendo ...mucho les agradecere su ayuda\nAtte: Adriano Casanova Cauich.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'Ag==','1w3cip9t',1,0,'',891,0,0),(23412,5296,6,471,0,'190.40.85.162',1165965564,1,0,1,1,1,1,'','Se puede leer una pagina de internet','Amigos necesito leer el contenido de una pagina q me dice\nsi el ruc de ese cliente esta activo o no \n\n<!-- m --><a class=\"postlink\" href=\"http://www.aduanet.gob.pe/ws-ad-pd/ws-ad-pd?ruc=20100675537&amp;operation.invoke=verficaRUC\">http://www.aduanet.gob.pe/ws-ad-pd/ws-a ... verficaRUC</a><!-- m -->\n\ncomo se puede hacer esrto con fw\n\ngracias','',0,'Ag==','2qc47pro',1,0,'',471,0,0),(23413,4757,3,267,0,'201.9.144.185',1165970003,1,0,1,1,1,1,'','','Olá Ari,\n\nVocê pode encontrar em <!-- m --><a class=\"postlink\" href=\"http://www.verypdf.com/tif2pdf/tif2pdf.htm\">http://www.verypdf.com/tif2pdf/tif2pdf.htm</a><!-- m -->, não é free, mas o preço compensa.','',0,'Ag==','3lcoegkf',1,0,'',267,0,0),(23414,5280,6,49,0,'62.13.172.78',1165971437,1,0,1,1,1,1,'','','perhaps in dos run but in windows there are some problems \nI use image from emg','',0,'Ag==','10xdepzx',1,0,'',49,0,0),(23415,4726,4,49,0,'213.82.134.66',1165999085,1,0,1,1,1,1,'','','and if You use INNO SETUP ?','',0,'Ag==','1vtzc2wc',1,0,'',49,0,0),(23416,4726,4,20,0,'82.55.224.29',1165999518,1,0,1,1,1,0,'','','I have found the error. The name of the icon must be equal to the name of the program. For example: Test.exe/Test.ico.\n\nEZSETUP works very well.\n\nRegards.\nPier Luigi','',0,'Ag==','3ta7ukbm',1,0,'',20,0,0),(23418,5297,3,344,0,'85.43.190.122',1166002355,1,0,1,1,1,0,'','Problem with Dialog, memory?','In my application after open and close many times dialogs (with many objects tree, btnbmp, txbrowse ecc) happens that the same dialogs are not created and I\'ve to restart the application and the dialogs are well created. \n\nIs due to lack of memory?\nHow is possible to solve the problem?\n\nXHB &amp; FWH October 2006\n\nThank you\nRiccardo','',0,'Ag==','3szzm3b7',1,0,'',344,0,0),(23419,5297,3,2,0,'87.218.146.234',1166003475,1,0,1,1,1,1,'','','Riccardo,\n\nDo you use bitmaps, fonts, brushes ? (GDI objects)\n\nIf yes, how do you manage them ?','',0,'Ag==','35eue8vj',1,0,'',2,0,0),(23420,5266,2,375,0,'84.122.101.230',1166005865,1,0,1,1,1,1,'','','Antonio, gracias por interesarte por mi problema.\n\nEs una función para quitarle los accentos a las palabras: Ya lo colgué en otro post, pero iba detrás de una conversación sobre otro tema y como estás tan ocupado no lo habras podido leer.\n\nEste es el código:\n\n#include &lt;winten.h&gt; \n#include &lt;windows.h&gt; \n#include &lt;clipapi.h&gt; \n\nLPSTR Mayusculas( LPSTR szText, WORD lSize ) \n{ \nint i = 0 ; \nfor( i=0; i &lt; lSize; i++ ) \n{ \nif ( szText[i] &gt;= \'a\' &amp;&amp; szText[i] &lt;= \'z\' ) \nszText[i] -= ( \'a\' - \'A\' ) ; \n} \nreturn( szText ) ; \n} \n\nLPSTR SinEspa( LPSTR szText, LPWORD pwLen ) \n{ \nWORD nDesde = 0 ; \nWORD nHasta = *pwLen ; \n\nwhile( szText[nDesde] == \' \' &amp;&amp; nDesde &lt; nHasta ) \n++nDesde ; \n\nwhile( szText[nHasta-1] == \' \' &amp;&amp; nHasta &gt; nDesde ) // nHasta-1 PORQUE EMPIEZA POR 0 \n--nHasta ; \n\n*pwLen = nHasta - nDesde ; \n\nreturn szText+nDesde ; \n} \n\n[b:t2ceeii6]CLIPPER TransDat( PARAMS ) // ( LPSTR cText, BOOL lMayusculas = .T.) \n{ \nWORD hancho = _parclen( 1 ) ; \nLPSTR cText = SinEspa( _parc( 1 ), &amp;hancho ) ; \nBOOL lMayus = IF( PCOUNT() == 1, TRUE, _parl(2) ) ; \nLPSTR desde, hasta ; \nint i,j,k ; \n\nif( lMayus ) \n{ \ndesde = \"ÁÉÍÓÚÜáéíóúü-,.\" ; // Cuando lo quiero todo en Mayusculas, sustituyo el guión por un espacio\nhasta = \"AEIOUUAEIOUU \" ;   // Es necesario para reindexar los apellidos compuestos castellanos\nk = 15 ; \n} \nelse \n{ \ndesde = \"ÁÉÍÓÚÜáéíóúü\" ; \nhasta = \"AEIOUUaeiouu\" ; \nk = 12 ; \n} \n\ni = 0 ; \nwhile( i &lt; hancho ) \n{ \nfor ( j=0; j &lt; k; j++ ) \n{ \nif (cText[i] == desde[j]) \n{ \ncText[i] = hasta[j] ; \nbreak ; \n} \n} \ni++ ; \n} \nif ( lMayus ) \n_retclen( Mayusculas(cText, hancho), hancho ) ; \nelse \n_retclen( cText, hancho ) ; \n} [/b:t2ceeii6]\n\nFunciona perfectamente, en cualquier parte del programa, salvo durante el reindexado (la función la metí en FIVE.LIB con TLIB) Me da el siguiente error:\n\n[b:t2ceeii6]\"Error DBFNTX/1026 Error de anchura de datos\"[/b:t2ceeii6]\n\nClaro que no sé si es porque está mal programado o si es que FiveWin no admite funciones de terceros durante el reindexado.\n\nPor otro lado, como veras, he tenido que rehacer las funciones ALLTRIM y UPPER porque no sé como utilizar las ya existentes en FW. La verdad es que tampoco he tenido mucho tiempo para experimentar.\n\nGracias.','',0,'QA==','t2ceeii6',1,0,'',375,0,0),(23421,5266,2,375,0,'84.122.101.230',1166006094,1,0,1,1,1,1,'','','Una aclaración, verás que en la funcion TransDat()  pone:\n\nk = 15 ;\n\nDonde debería poner:\n\nk = 13 ;\n\nAhí no está el problema, sólo ha sido un problema de transcripción.','',0,'QA==','3sl7htga',1,0,'',375,0,0),(23422,5297,3,344,0,'85.43.190.122',1166011179,1,0,1,1,1,0,'','','We use Fonts and Bitmaps, calling end() method after close the dialog.\nWe use folder and a lot of TBtnBmp.\n\nDon\'t use Brushes.\n\nThank you.','',0,'QA==','1lkq0bg4',1,0,'',344,0,0),(23423,5295,6,36,0,'200.113.56.235',1166012285,1,0,1,1,1,0,'','','Hola\n\n  consulta, utilizas unidad de red y ejecutas ahi el programa si es asi te recomiendo que instales el sistema en cada pc y que lea los datos del servidor\n\nespero te ayude\n\nSaludos\nPatricio','',0,'QA==','y8qrk3ln',1,0,'',36,0,0),(23424,5297,3,2,0,'87.218.146.234',1166012970,1,0,1,1,1,1,'','','Riccardo,\n\nThe problem you describe is a typicall problem when GDI objects are not properly released. Could you provide some samples of your dialogs so we may review their code ? Thanks,','',0,'QA==','2kahb9tp',1,0,'',2,0,0),(23425,5298,3,569,0,'201.248.249.178',1166013300,1,0,1,1,1,0,'','proteccion de programas','Colegas una de las maneras mas seguras que yo conozco y utilizo es con pequeño programita de no mas de 15 lineas donde recupero el: LABEL y el SERIAL del disco duro, y si quieres extremar la seguridad con una funcion POKE(), extraes de una direccion fija en todos los PC la FECHA DEL BIOS, con estos 3 datos encriptados los guardas en alguna parte de tu DD en un archivo *.mem, con cualquier \"NOMBRE.DLL\" para despistar a los mas avezados y siempre al ingresar a tu programa revisas estos tres parametros contra los que tienes encriptados y guardados; deberian y tienen que ser exactamente iguales de lo contrario te copiaron el programa.\nOtra opcion que yo utilizo es marcar el \"COMMAND.COM\" con un numero serial de tu sola propiedad y conocimiento el cual siempre lo compararas al entrar a tu aplicacion.\nSaludos RODOLFO SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'QA==','3fmdkods',1,0,'',569,0,0),(23426,5048,3,569,0,'201.248.249.178',1166014173,1,0,1,1,1,0,'','hola vilian','Alguna vez yo tuve ese mismo problema nunca supe porque, pero lo soluciene creando mi propia funcion, es decir intentandolo abrir el archivo\ncon alguna de las funciones de bajo nivel f*.() como por ejemplo fopen()\nlos cuales te devuelven un numero dependiendo si tuvo o no exite la apertura del archivo.\nSaludos RODOLFO SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'QA==','2vl3tvr1',1,0,'',569,0,0),(23427,4321,6,319,0,'201.1.173.233',1166014508,1,0,1,1,1,0,'','','Para gets resolvi assim:\n\naEval( oDlg:aControls, {|o| If(o:ClassName() == \"TGET\", NIL) } )','',0,'QA==','1z3jbhc3',1,0,'',319,0,0),(23428,4321,6,319,0,'201.1.173.233',1166014573,1,0,1,1,1,0,'','','Sorry,\n\n aEval( oDlg:aControls, {|o| If(o:ClassName() == \"TGET\" o:lDisColors:=.F., NIL) } )\n\nPara FWH28','',0,'QA==','1bhq6anc',1,0,'',319,0,0),(23429,5266,2,2,0,'87.218.146.234',1166015803,1,0,1,1,1,1,'','','Manu,\n\nEs la primera vez que veo ese error. De hecho si buscas en google verás que no aparece nada al respecto.\n\nPosiblemente Przemek, que es el master de los RDDs en Harbour sabría orientarte.\n\nA mi me suena a que tal vez estás devolviendo un valor cuyo tamaño no coincide con el tamaño del campo que se indexa, puede ser eso ?','',0,'QA==','327x7ez0',1,0,'',2,0,0),(23430,5266,2,2,0,'87.218.146.234',1166015915,1,0,1,1,1,1,'','','Manu,\n\nPrueba a indexar con la función modificada de esta forma a ver si el error persiste:\n[code:3a242nh8]\nCLIPPER TransDat&#40; PARAMS &#41;\n&#123; \n   _retc&#40; _parc&#40; 1 &#41; &#41;;\n&#125;\n[/code:3a242nh8]','',0,'AIA=','3a242nh8',1,0,'',2,0,0),(23431,5297,3,15,0,'203.73.7.231',1166016740,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:10jiccfg]Riccardo,\n\nThe problem you describe is a typicall problem when GDI objects are not properly released. Could you provide some samples of your dialogs so we may review their code ? Thanks,[/quote:10jiccfg]\n\nHello Antonio,\n\nSometimes I have same as problem.\nBut my dialog can work, bitmap TSButton\'s bitmap disappear.\nMay I send to you my Dialog code?\n\nRegards,\n\nRichard','',0,'gA==','10jiccfg',1,0,'',15,0,0),(23432,1175,6,413,0,'217.125.9.228',1166016936,1,0,1,1,1,0,'','','Antonio puedes ponerlo en utilidades o mandarmelo a mi correo <!-- e --><a href=\"mailto:zalezalon@gmail.com\">zalezalon@gmail.com</a><!-- e --> \n\nGracias.','',0,'gA==','iriwfg8m',1,0,'',413,0,0),(23433,5106,17,439,0,'200.108.198.80',1166017473,1,0,1,1,1,1,'','','RenOmaS\n\nEn el ejemplo falta el archivo de recursos, podrías postearlo en este topic por favor. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nGracias desde ya, lo he hecho funcionar de todos modos y es un trabajo excelente <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','ddah2cgs',1,0,'',439,0,0),(23434,5295,6,891,0,'148.243.37.162',1166023721,1,0,1,1,1,0,'','Hola Fernando','[quote=&quot;Fernando Mancera&quot;:37vjx2nt]Hola,\n\nNos comentas que usas windows 2000 server en el servidor, pero ... que sistema operativo usas en los puestos de la red??\n\nUn saludo,\n\nFernando Mancera\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com\">www.viaopen.com</a><!-- w -->[/quote:37vjx2nt]\n\nHola como estas Fernando, en cada estacion de usuario usan sistema operativo windows XP y solo uno usa windows 2000 profesional, al igual sucede lo mismo con la lentitud, he leído por ahí de un software Microsip las ventajas y desventajas de ese programa, y uno de ellos es la lentitud del programa al usar dos usuarios a la vez en el servidor, que imagino sucede lo mismo con mi programa, y me urge solucionar ese detalle el usar 2 usuarios o hasta mas de 12 a la vez el mismo programa, uso FiveWin 2.7 y xHarbour 0.99.60\nNecesito su ayuda de todos ustedes con su experiencia por favor...\nAdriano','',0,'gA==','37vjx2nt',1,0,'',891,0,0),(23435,5295,6,891,0,'148.243.37.162',1166024158,1,0,1,1,1,0,'','Hola Patricio','[quote=&quot;Patricio Avalos Aguirre&quot;:2nphm81v]Hola\n\n  consulta, utilizas unidad de red y ejecutas ahi el programa si es asi te recomiendo que instales el sistema en cada pc y que lea los datos del servidor\n\nespero te ayude\n\nSaludos\nPatricio[/quote:2nphm81v]\n\nHola Patricio como estas , eso implica modificar el codigo al acceso de base de datos en la red, y pienso que no es el caso, yo pienso que falta algo mas, como alguna libreria de instalacion en cada estacion o terminal como se le llame a cada usuario, asi como el software COI Aspel, tiene dos tipos de instalacion, uno para red o local, y en ese caso para red, se instala otra libreria en cada terminal de usuario o sea estacion de trabajo, sin necesidad de instalar programa ejecutable, solo las librerias para multiusuario...\nGracias','',0,'gA==','2nphm81v',1,0,'',891,0,0),(23436,5299,6,136,0,'66.201.225.194',1166024432,1,0,1,1,1,0,'','HtmlHelp() problem','Hi all,\n\nI have problems making HtmlHelp() function work correctly. Following is a small sample that provokes a GPF the second time I press the \"Help\" button. I\'m using FWH 2.8 (Sept. 2006 release) and xHarbour Builder (Oct. 2006 release)\n\n[code:3g8z0v5t]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n  DEFINE WINDOW oWnd FROM 10,10 TO 20,30\n  @3,8 BUTTON &quot;Help&quot; OF oWnd SIZE 50,20 ACTION &#40;HtmlHelp&#40;0,&quot;c&#58;\\fwh\\manual\\fwclass&#46;chm&quot;,2,0&#41;&#41;\n  ACTIVATE WINDOW oWnd\n\n[/code:3g8z0v5t]\n\nAnybody having the same problem, or am I missing something ?\n\nThanks','',0,'AIA=','3g8z0v5t',1,0,'',136,0,0),(23437,5300,3,136,0,'66.201.225.194',1166025794,1,0,1,1,1,0,'','HtmlHelp() problem','I have problems making HtmlHelp() function work correctly. Following is a small sample that provokes a GPF the second time I press the \"Help\" button. I\'m using FWH 2.8 (Sept. 2006 release) and xHarbour Builder (Oct. 2006 release)\n\n[code:1lhnrsax]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n  DEFINE WINDOW oWnd FROM 10,10 TO 20,30\n  @3,8 BUTTON &quot;Help&quot; OF oWnd SIZE 50,20 ACTION &#40;HtmlHelp&#40;0,&quot;c&#58;\\fwh\\manual\\fwclass&#46;chm&quot;,2,0&#41;&#41;\n  ACTIVATE WINDOW oWnd\n\n[/code:1lhnrsax]\n\nAnybody having the same problem, or am I missing something ?\n\nThanks','',0,'AIA=','1lhnrsax',1,0,'',136,0,0),(23438,5208,1,819,0,'216.34.194.113',1166029330,1,0,1,1,1,0,'','Five ODBC with Clipper','Antonio,\n\nOur base code is in Clipper 5.2.   I tried to convert them to xHarbour but there are issues like Telepathy lib which don\'t have 32 bits version and several C codes that generates errors,  when linked.  I looked for 32 bit version as you suggested but Extransensory Software do not have 32 bit version of Telepathy.\n\nFor now, we are trying to connect our program to SQL server for possible enhancement.\n\nI am able to connnect using FiveODBC but it returns only one record.\n\nHeres the code taken from your example.\n\n******************\nFunction LS_odbc()\n******************\n   Local oODBC := TOdbc():New \"DsnEntry\", \"YourName\", \"YourPassword\")\n \n   If !oOdbc:lSuccess\n      oOdbc:ShowErrorList(\"ODBC session not successfully initialized, aborting...\")\n      oOdbc:End()\n      return nil\n   Endif\n   *oDbf := oOdbc:Query( \"SELECT * FROM JOURNAL\" )\n		Odbf := TdbOdbcDirect():New(\"SELECT * FROM JOURNAL WHERE JRDATE = \'10/6/06\' ORDER BY JRDATE, JRTIME\", oOdbc)\n   if oOdbc:IsError()\n      oOdbc:ShowErrorList()\n      oOdbc:aErrors := {}\n      oDbf:End()\n      return nil\n   endif\n   oDbf:Open()\n \n   *oDBF:goBottom()\n   *msginfo(str(ODbf:recNO()))\n   *msgInfo(oDBF:jrzday)\n   *Browse( cTitle, cListName, bNnew, bModify, bDelete, bSearch, bList )\n    copy to tmp\n    Browse(\"Journal\") \nreturn nil\n\nNote:\nThe browse shows one record only.\nThe tmp file contain one record only.\n\nCan we keep clipper 5.2 and accomplish FiveODBC?  Just let me know if it possible.\n\nWe don\'t need to convert to 32 bit right now since Clipper 5.2 version looks stable.\n\nGracias,\n\n-jose','',0,'AIA=','1hk48pgo',1,0,'',819,0,0),(23439,5301,2,74,0,'190.49.85.152',1166029883,1,0,1,1,1,1,'','Impresion','Amigos, necesitaria que alguien me pudiera ayudar. Tengo un listado al cual le pongo en el encabezado un bmp con logo, y titulos del cliente, por ejemplo cliente:, direccion:, localidad: todo en el bmp. Ahora bien quisiera mediante el PRG imprimir encima del bmp al lado de cliente: la razon social, al lado de domicilio: el domicilio y asi sucesivamente. Lo hago con oPrn:cmSay(f,c) pero no me muestra nada. Uso FW23 y CLipper 5.3\n\nDesde ya gracias por la ayuda que me puedan brindar\n\nDaniel Puente \nMar del Plata','',0,'AIA=','38rtlxg8',1,0,'',74,0,0),(23440,5302,2,74,0,'190.49.85.152',1166030089,1,0,1,1,1,1,'','Crysal Report','Amigos, estoy usando FW23 y clipper 53. necesito hacer un informe en crystal report. poseo la 6 y la 8.5 tengo la funcion TCRW.PRG y el ejemplo.PRG, lo pruebo y anda barbaro el ejemplo. la paso tal cual como esta a mi sistema y me tira el mensaje : could not find print job. no se encontraron algunos archivos. que podra ser ?\nTengo el CRP32.DLL en el directorio \\del ejecutable al igual que el rpt y las bases\n\nSaludos cordiales\n\nDaniel Puente','',0,'AIA=','31nhrczl',1,0,'',74,0,0),(23441,4944,7,720,0,'80.36.244.134',1166031320,1,0,1,1,1,0,'','','Hola... \n\nYo lo uso así...\n\nDEFINE dialog odlg1 resource \"listado_articulos\"\nredefine LISTBOX oBrw;\nFIELDS hBmp, temporal-&gt;codart, temporal-&gt;nomart;\nHEADERS \"\",\"Código\", \"Descripción\" ID 500 OF oDlg1\noBrw:aActions := {{|| NIL},{||ordenar_por_codigo(),oBrw:Upstable(),oBrw:Refresh()}, {|| ordenar_por_nombre(),oBrw:Upstable(),oBrw:Refresh()}}\n\nACTIVATE dialog odlg1\n\n\nComo ves el listbox lo he llamado oBrw. En el tienes 3 cabeceras, la primera es para poner un icono, la segunda indica el campo codart de una tabla temporal y el tercero el nombre de esa misma tabla.\n\nLuego, que es lo que tu quieres, utilizo lo siguiente:\n\noBrw:aActions := {{|| NIL},{||ordenar_por_codigo(),oBrw:Upstable(),oBrw:Refresh()}, {|| ordenar_por_nombre(),oBrw:Upstable(),oBrw:Refresh()}}\n\nEsto lo que hace es lo siguiente: si te fijas tienes 3 bloques encerrados por {} y separados por \',\' , el primero corresponde a la primera colunma (tiene puesto un nil porq esa columna es para un icono, entonces no hará nada), la segunda  contiene una funcion (ordenar_por_nombre() seguido de un refresco del oBrw), y la tercera contiene otra funcion....\n\nEspero haberte ayudado...\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','2swy9pvl',1,0,'',720,0,0),(23442,4944,7,527,0,'88.12.145.253',1166031441,1,0,1,1,1,0,'','Me has ayudado mucho, gracias por tu respuesta.','Me has ayudado mucho, gracias por tu respuesta.','',0,'AIA=','3i9zm42h',1,0,'',527,0,0),(23443,5295,6,569,0,'201.248.249.178',1166031563,1,0,1,1,1,0,'','saludos acc99','Amigo habia un programa ya muy viejo \"danalyst\" que al correrlo en clipper te modificaba el codigo fuente e insertaba donde tenia que hacerlo todo el codigo necesario para convertirlo en \"multiusuario\" yo lo probe alguna vez y me sorprendio. Si te sirve para probarlo escribeme.\nRodolfo Silva \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','1lrlcu7l',1,0,'',569,0,0),(23444,5302,2,138,0,'189.141.72.221',1166032828,1,0,1,1,1,1,'','','Tienes que tener instalado el Crystal o por lo menos tener los 13 DLL que el crystal requiere para ejecutar el Print Engine.','',0,'AIA=','3q7zvzpf',1,0,'',138,0,0),(23445,5266,2,375,0,'84.122.101.230',1166033127,1,0,1,1,1,1,'','','Antonio\n\nSustituyendo los _retclen por _retc( _parc( 1 ) ) como me sugeriste, va bien, se quitan los accentos, pero no hace ni el UPPER ni el ALLTRIM.\n\nHe intentado _retc( ctext ) y no reindexa, da el mismo error, aunque la función funciona, por ejemplo en un msgalert()\n\nEs un buen comienzo.','',0,'AIA=','1btcgivk',1,0,'',375,0,0),(23446,5208,1,2,0,'87.218.146.40',1166033729,1,0,1,1,1,1,'','','Jose,\n\nHave you checked at the ODBC database that there are more than one record matching that SQL sentence ?','',0,'AIA=','209a1cdb',1,0,'',2,0,0),(23447,5297,3,2,0,'87.218.146.40',1166033895,1,0,1,1,1,1,'','','Richard,\n\nThat error happens when you are consuming a lot of GDI resources without properly releasing them. There are several available tools to check the consumed GDI resources:\n\n<!-- m --><a class=\"postlink\" href=\"http://downloads.zdnet.com/download.aspx?&amp;kw=dc-sakura&amp;docid=212595\">http://downloads.zdnet.com/download.asp ... cid=212595</a><!-- m -->','',0,'AIA=','3c44oopo',1,0,'',2,0,0),(23448,5303,7,893,0,'80.34.86.46',1166033996,1,0,1,1,1,0,'','Novato','Hola a todos, Acaba de adquirir el producto y he estado un tiempo buceando en los ejemplos para empezar a hacer algunas cosillas.\n\nAnte todo gracias de antemano por vuestra paciencia ya que todo es nuevo, aunque trabajo en VFP, y el código en si mismo es entendible.\n\nEstoy intentando hacer un mantenimiento de cliente basado en un fold donde mi primera pestaña es un índice y la segunda es la ficha como tal del mantenimiento.\n\nEn principio no puedo ejecutar el programa 2 veces ya que da el siguiente error: Open Error stack calls: DBUSEAREA(0) Main(7)\n\nCreo que no ciero correctamente el fichero abierto, pero ya no se que probar.\n\nTengo un segundo problema, que no puedo asignar a la variable nRecno el nº de registro para poder recuperar la línea seleccionada. Imagino que el browse es un gran desconocido para mi, y no se como hacerlo.\n\nOs agracería una ayuda para poder continuar.\nPo cierto en la ayuda hay una serie de ejemplos, entre ellos alguno de browse  que no los encuentro en SAMPLES\\  ¿donde podría encontrarlos?\n\nMuchas gracias de antemano\nAndres\n\nAqui va el código:\n\n#include \"FWCE.ch\"\n\nfunction Main()\n   local oWnd, cAlias, nRecno\n\n   IF .NOT. USED(\"Customer\") \n      USE ( CurDir() + \"\\Customer\" ) NEW\n   ENDIF \n \n   DEFINE WINDOW oWnd TITLE \"Clientes\"\n   nRecno := 0\n\n   @ 2,1 FOLDER oFld PROMPTS \"Indice\", \"Ficha\"  SIZE 225, 225     \n   @ 1,0 LISTBOX oBrw FIELDS first,city COLSIZES 100,100  ;\n   		OF oFld:aDialogs[1] HEADERS \"Nombre 1\",\"Nombre 2\" SIZE 220,200 \n   ACTIVATE WINDOW oWnd ;\n     VALID MsgYesNo( \"¿Salir de clientes?\" )\n\n   DbCloseAll()\n\n   SELECT Customer\n   USE \n \n   oWnd:End()\nreturn nil   \n\n\nfunction salir\n/*    DbCloseAll()\n   	oWnd:End() */\n	MsgYesNo( \"¿Salir de clientes?\" )\nreturn nil   \n\n//function mensaje\n//   DEFINE DIALOG oDlg  TITLE \'Aviso\' SIZE 200,200 \n//   ACTIVATE DIALOG oDlg CENTERED        \n//   @ 2,2 SAY \'Hola\'\nreturn nil','',0,'','2h8ef84p',1,0,'',893,0,0),(23449,5303,7,2,0,'87.218.146.40',1166036130,1,0,1,1,1,1,'','','Hola Andrés,\n\nBienvenido a los foros <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAnte todo, por favor descarga FWPPC de nuevo ya que hemos hecho unas modificaciones relativas a los folders que posiblemente afecten a la ejecución de tu aplicación, gracias.\n\nLos ejemplos listados en la documentación son para toda la gama de productos de FiveWin y no todos ellos están disponibles para FWPPC.\n\nEl número de registro te lo da RecNo(). \n\nPregunta todo lo que necesites que estamos aqui para ayudarte en todo lo que podamos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','9m2z2sbk',1,0,'',2,0,0),(23450,5304,6,409,0,'200.89.56.16',1166038197,1,0,1,1,1,0,'','AYUDA CON MPreview.prg','amigos quiien tiene un ejemplo de esta clase MPreview.prg\nSaludos','',0,'','1g7w1wa6',1,0,'',409,0,0),(23451,5237,3,205,0,'81.205.236.20',1166042735,1,0,1,1,1,0,'','','Thanks Antonio for your answer.\nOne of my client works in a MS Terminal Server situation with a FiveWin + xHarbour + ADS program. \nAt the beginning of the day 100+ (approx 09:00 hours) users start the program.\nOnly than problems can occur because of the memory use.\nI thought of eliminating the problem by reducing the amount of memory the program is using.\n\nBest regards,\nKlaas den Dekker','',0,'','2q086b1q',1,0,'',205,0,0),(23452,5305,2,774,0,'200.72.182.40',1166043976,1,0,1,1,1,1,'','AYUDA SOBRE INDICES CDX...','antes solo usaba NTX hoy CDX pero tengo una duda\n\n1.- cuantos TAG se pueden anidar en un CDX\n2.- supongamos que me excedo del numero de TAG permitidos por CDX y creo uno nuevo ,, la duda como los abro los dos\n\nEjm.. CAJA:DBF\n             se crea CAJA.CDX\n                         CAJA1.CDX\n\nal hacer USE CAJA\n             se abre automaticamente CAJA.CDX\n             como abro el otro \n\nOrientenme','',0,'','1yuf7c31',1,0,'',774,0,0),(23453,5237,3,2,0,'87.218.146.40',1166046565,1,0,1,1,1,1,'','','Klaas,\n\n&gt; Only than problems can occur because of the memory use.\n\nWhat problems are ?','',0,'','23rrxqoe',1,0,'',2,0,0),(23454,5237,3,205,0,'81.205.236.20',1166047045,1,0,1,1,1,0,'','','Hi Antonio,\n\nThe server becomes very, very slow.\nUsers think that the program does not start and start the program for the second time; this increases the problem.\n\nRegards,\nKlaas den Dekker','',0,'','1nn23h0b',1,0,'',205,0,0),(23455,5208,1,819,0,'216.34.194.113',1166048327,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the quick reply.\n\nYes, there are over 60 rows when I querry it from SQL.','',0,'','n5vepsy9',1,0,'',819,0,0),(23456,5302,2,74,0,'190.49.85.152',1166049819,1,0,1,1,1,1,'','Crystal report','Rene:\n\nlo llamativo es que tengo el crystal instalado. que podra ser ?\n\nDaniel Puente','',0,'','2y4der3e',1,0,'',74,0,0),(23457,5306,6,471,0,'190.40.16.195',1166051706,1,0,1,1,1,1,'','Como evitar q salga pantalla negra DOS','Amigos compilo y enlazo mi aplicacion con este bat y siempre \nque cargo x.exe q es el ejecutable q genera me carga una pantalla negra de DOS con X como titulo y luego recien cargar mi ventana windows\n\nComo evitar que se carge esa pantalla negra\n\nGracias por la ayuda\n\n\n@ECHO OFF\nCLS\n\nc:\\z\\bin\\harbour \\solucion\\axprg /n /ic:\\z\\include /p /oc:\\zcpsaduan\\obj32\\axprg.C\nc:\\z\\bin\\bcc32 -M -c -O2 -Ic:\\z\\include -tW -oC:\\zcpsaduan\\OBJ32\\axprg.obj  C:\\zcpsaduan\\OBJ32\\axprg.c\n\nc:\\z\\bin\\harbour \\solucion\\tActivex /n /ic:\\z\\include /p /oc:\\zcpsaduan\\obj32\\tActivex.C\nc:\\z\\bin\\bcc32 -M -c -O2 -Ic:\\z\\include -tW -oC:\\zcpsaduan\\OBJ32\\tActivex.obj  C:\\zcpsaduan\\OBJ32\\tActivex.c\n\nc:\\z\\bin\\bcc32 -M -c -P -O2 -Ic:\\z\\include -tW -oC:\\zcpsaduan\\OBJ32\\AXCPP.obj  C:\\SOLUCION\\AXCPP.cPP\n\nECHO *** Convertir  *.prg del WINRAD a *.c  ***\nECHO ****************************************\nc:\\Z\\bin\\harbour \\vclon\\mclon32\\X  /n /ic:\\Z\\include /p /oc:\\Zcpsaduan\\obj32\\X.c\nECHO *** Compilar *.c  para generar *.obj  ***\nECHO ****************************************\nc:\\Z\\bin\\bcc32 -M -c -O2 -Ic:\\Z\\include -tW -oC:\\Zcpsaduan\\OBJ32\\X.obj  C:\\Zcpsaduan\\OBJ32\\X.c\n\n\nECHO ****************************************\nECHO *** Z.EXE FUNCIONES CON LA NUEVA VERSION XHB 0.992\nECHO ****************************************\necho c0w32.obj + &gt; b32.bc\necho c:\\zCPSADUAN\\OBJ32\\x.obj + &gt;&gt; b32.bc\necho c:\\zCPSADUAN\\OBJ32\\axcpp.OBJ + &gt;&gt; b32.bc\necho c:\\zCPSADUAN\\OBJ32\\tActivex.OBJ + &gt;&gt; b32.bc\necho c:\\zCPSADUAN\\OBJ32\\axev.OBJ + &gt;&gt; b32.bc\necho c:\\ZCPSADUAN\\OBJ32\\aXprg.obj, + &gt;&gt; b32.bc\necho X.exe, + &gt;&gt; b32.bc\necho X.map, + &gt;&gt; b32.bc\necho c:\\Z\\lib\\FiveHx.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\rtl.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\vm.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\lang.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\macro.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\rdd.lib + &gt;&gt; b32.bc\necho c:\\Z\\LIB\\TIP.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\hbsix.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\debug.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\common.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\pp.lib + &gt;&gt; b32.bc\nrem Uncomment these two lines to use Advantage RDD\necho c:\\Z\\lib\\cw32.lib + &gt;&gt; b32.bc\necho c:\\Z\\lib\\import32.lib, &gt;&gt; b32.bc\necho MANI.res  &gt;&gt; b32.bc\nECHO ****************************************\nECHO *** linkeamos *.obj y Generamos *.exe ***\nECHO ****************************************\nc:\\Z\\bin\\ilink32 -Gn -aa -Tpe -s -x @b32.bc','',0,'','24z8lkua',1,0,'',471,0,0),(23458,5307,3,879,0,'65.94.143.210',1166055934,1,0,0,1,1,0,'','Missing GTWIN.LIB','After downloading the FWH 2.8 files, I installed the xHarbour files and attempted to use HbMake. Items I compiled before with no problems now gives me a \"Fatal: Unable to open file \'GTWIN.LIB\'.\"\n\nLooking in the xHarbour Lib folder that library is missing. I attempted to copy it but got errors as the version I copied was from a different version.\n\nHow do I get the GTWIN.LIB that will work with the 10/29/2006 release?\n\nRegards,\n\nKen','',0,'','knk6hqjx',1,0,'',879,0,0),(23459,5307,3,2,0,'87.218.146.40',1166058239,1,0,1,1,1,1,'','','Ken,\n\nYou have to use GTGUI.lib instead of GTWIN.lib, due to a recent change in Harbour/xHarbour.','',0,'','2mz6pvq9',1,0,'',2,0,0),(23460,5306,6,2,0,'87.218.146.40',1166058459,1,0,1,1,1,1,'','','Vladimir,\n\nUsa GTGUI.lib en vez de GTWIN.lib','',0,'','d2wv12ne',1,0,'',2,0,0),(23461,5297,3,15,0,'203.73.50.143',1166064844,1,0,1,1,1,0,'','','Hello Anonio,\n\nThanks for your help.\nI will try to download it.\n\nRichard','',0,'','14bicyt8',1,0,'',15,0,0),(23462,5010,6,18,0,'200.67.153.171',1166066436,1,0,1,1,1,1,'','Re: Andó -&gt; FWH + Mediator + Postgress','[quote=&quot;carlosortiz&quot;:21082e4c]Por si a alquien le sirve despues de un rato pude manipular tablas con Mediator y PostGres de por medio, para mi que no he trabajado casi con motores de datos ha sido una sorpresa haber dado en la tecla con una serie de cosas que no conocia.\n\nSeguire probando para ver que onda en una red con cosas un poco mas pesadas.\n\nSaludos.\n\n( Tambien estoy probando el RDD de Apollo pero no se como configurarlo para que se conecte al motor Apollo 6.1 )[/quote:21082e4c]\n\nYo estoy tratando de hacerlo con MySql y no lo he conseguido ,me podrías orientar por favor.','',0,'gA==','21082e4c',1,0,'',18,0,0),(23463,5010,6,439,0,'200.125.33.165',1166066842,1,0,1,1,1,1,'','','Carlos,\n\nMe alegra mucho <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , yo también quisiera que talvez pudieras postear algo para darme la punta del hilo <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .\n\nGracias desde ya.','',0,'gA==','lypukzde',1,0,'',439,0,0),(23464,4412,3,160,0,'220.225.17.210',1166077695,1,0,1,1,1,0,'','','Dear Ssbbs,\n\nI too am working very hard to protect exe from copying. I think your smart.lib can go a long way in protecting the same.\n\nFrom where can I get your smart.lib ?\n\nTIA\nMilan.\n\n[quote=&quot;ssbbs&quot;:ui4w5ztw][quote=&quot;RAMESHBABU&quot;:ui4w5ztw]Hi Jeff\n\nThank you very much for quick reply.  \n\nNow your solution to the problem in subject is complete.\n\nRegards\n\n- Ramesh Babu P[/quote:ui4w5ztw]\n\nreference the web link:\n<!-- m --><a class=\"postlink\" href=\"http://www4.zzz.com.tw/phpbb2/viewtopic.php?t=26\">http://www4.zzz.com.tw/phpbb2/viewtopic.php?t=26</a><!-- m -->\n\nYou can get HDD Lower level serial-number!![/quote:ui4w5ztw]','',0,'gA==','ui4w5ztw',1,0,'',160,0,0),(23465,5308,3,160,0,'220.225.17.210',1166077933,1,0,1,1,1,0,'','Dos Error 2 : Access from network','Dear All,\n\nI am using May-2006 build. When I try to access an application from the network, it gives me Dos error 2. However when I map that drive, I do not face that problem.\n\nCan someone help ?\n\nTIA\nMilan.','',0,'gA==','26lwcyp9',1,0,'',160,0,0),(23466,5208,1,19,0,'217.153.83.2',1166081249,1,0,1,1,1,0,'','','Jose\n\nafter line\noDbf:Open()\n\nyou must add\n\noDbf:Complete()\n\n\nregards Eugeniusz','',0,'gA==','10ncvpwe',1,0,'',19,0,0),(23467,5295,6,449,0,'212.64.224.241',1166081905,1,0,1,1,1,1,'','','Hola Acc69,\n\nEl sistema correcto es el q te propone Patricio. La aplicacion siempre debe estar en la maquina cliente y el acceso a los datos en el punto q tu elijas. El hecho de hacerlo como tu dices ralentiza completamente el sistema. Si bien hay sistemas para ejecutar el sistema en modo terminal, por q quieres optar por una opcion mas lenta, cara y compleja de afinar ? Solo tienes de cambiar el acceso a los datos en tu aplicacion, para mi es lo mas facil.\n\n\nSaludos.\nC.','',0,'gA==','115ycov1',1,0,'',449,0,0),(23468,5240,3,233,0,'218.111.22.218',1166082074,1,0,1,1,1,0,'','','[quote=&quot;areang&quot;:3s6vi43r]\nHow about RMK file for application, can you give me also any sample\n[/quote:3s6vi43r]\nAre you referring to rmake\'s script or borland\'s make script?\n\n[quote=&quot;areang&quot;:3s6vi43r]\nI tried to make RMK on bormake (zip file)  but get error.\n[/quote:3s6vi43r]\nIf you\'re using a more recent FWH, try to see whether you have a directory called [b:3s6vi43r]MAKES[/b:3s6vi43r]. Antonio has placed in it 2 make script samples, one for Microsoft and the other for Borland','',0,'wA==','3s6vi43r',1,0,'',233,0,0),(23469,5309,3,2,0,'87.218.146.189',1166083523,1,0,1,1,1,1,'','Class TGraph on FWPPC','Thanks to Pier Luigi help, the excellent Class TGraph from Alfredo Arteaga is already available for FiveWin for Pocket PC (FWPPC). See this impressive screenshot:\n[url=http&#58;//imageshack&#46;us:1ys8xs5x][img:1ys8xs5x]http&#58;//img220&#46;imageshack&#46;us/img220/8868/fwppcgb0&#46;png[/img:1ys8xs5x][/url:1ys8xs5x]','',0,'GA==','1ys8xs5x',1,0,'',2,0,0),(23470,5310,4,2,0,'87.218.146.189',1166083625,1,0,1,1,1,1,'','Class TGraph on FWPPC','Thanks to Pier Luigi help, the excellent Class TGraph from Alfredo Arteaga is already available for FiveWin for Pocket PC (FWPPC). See this impressive screenshot:\n[url=http&#58;//imageshack&#46;us:2gzqgzjh][img:2gzqgzjh]http&#58;//img220&#46;imageshack&#46;us/img220/8868/fwppcgb0&#46;png[/img:2gzqgzjh][/url:2gzqgzjh]','',0,'GA==','2gzqgzjh',1,0,'',2,0,0),(23471,5311,6,2,0,'87.218.146.189',1166083787,1,0,1,1,1,1,'','Clase TGraph para FWPPC','Gracias a la ayuda de Pier Luigi, la excelente clase TGraph de Alfredo Arteaga ya está disponible para FiveWin para Pocket PC (FWPPC). Aqui teneis una captura:\n[url=http&#58;//imageshack&#46;us:cmb7tqox][img:cmb7tqox]http&#58;//img220&#46;imageshack&#46;us/img220/8868/fwppcgb0&#46;png[/img:cmb7tqox][/url:cmb7tqox]','',0,'GA==','cmb7tqox',1,0,'',2,0,0),(23472,5312,7,2,0,'87.218.146.189',1166083843,1,0,1,1,1,1,'','Clase TGraph para FWPPC','Gracias a la ayuda de Pier Luigi, la excelente clase TGraph de Alfredo Arteaga ya está disponible para FiveWin para Pocket PC (FWPPC). Aqui teneis una captura:\n[url=http&#58;//imageshack&#46;us:pihob79h][img:pihob79h]http&#58;//img220&#46;imageshack&#46;us/img220/8868/fwppcgb0&#46;png[/img:pihob79h][/url:pihob79h]','',0,'GA==','pihob79h',1,0,'',2,0,0),(23473,1175,6,49,0,'213.82.134.66',1166085193,1,0,1,1,1,1,'','Important','Dear César E. Lozada\n\nHow I can make to Speeck the computer when I select Menu bar of Windows or My program or Winword or Excell \n\nI have a blind boy at school and I must teach and if he can select the menu pulldown listening from speacker, he can   use winword or excel or all the program on computer \nIf he write on wiword the program must read the word that he write on board .\nit is possible with txt2speeck ?\nIf you let me write a n small sample I cna work on it then...\n\nBest Regards','',0,'GA==','t3i7ys9t',1,0,'',49,0,0),(23474,4868,17,239,0,'219.137.198.19',1166085966,1,0,1,1,1,0,'','','Could you write in English?  or homepage in English?\nHow much of tdwg.prg class, how to bug? \nTKS!\nShuming Wang','',0,'GA==','2go0203x',1,0,'',239,0,0),(23475,5292,20,837,0,'85.18.14.25',1166086595,1,0,1,1,1,1,'','Re: Uscrire da un loop con ESC','[quote=&quot;EnricoMaria&quot;:29ir5321]Allora cerca di fare un esempio chiaro del tuo problema perché da quello che hai riportato non si capisce assolutamente.\n\nEMG[/quote:29ir5321]\n\nCaro Enrico,\n\nho messo su questo link un documento in PDF dove spero di aver spiegato meglio il problema :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.kompasso.it/sito/ControlloESC.pdf\">http://www.kompasso.it/sito/ControlloESC.pdf</a><!-- m -->\n\nIl problema mi sembrava molto semplice (fra l\'altro in clipper 5.2 funziona benissimo), se passo il controllo ad una funzione quando questa mi ritorna, leggo una variabile e se è = 0 devo uscire dal loop del programma che l\'ha richiamata.\n\nGrazie, Andrea.','',0,'gA==','29ir5321',1,0,'',837,0,0),(23476,5313,3,160,0,'220.225.17.210',1166091055,1,0,1,1,1,0,'','Multiline Edit : Insert always on.','Dear All,\n\nI am using May-2006 build. In multi line Get Insert mode always on. Even if I press Ins key, there is no effect.\n\nHow to enter Overwrite mode ?\n\nTIA\nMilan.','',0,'gA==','2c1nkz1n',1,0,'',160,0,0),(23477,5240,3,707,0,'222.124.20.50',1166093864,1,0,1,1,1,0,'','','Mr. Hua\n\nI used borland script\'s, but when application run, the are two window on the screen :\n\nfirst like dos windows and the other one is my windows application.\n\ncan you send me your application borland\'s make script.\n\nI think, I missed the lines parameter on borland\'s make script,  to disable the dos dialog.\n\nthank\'s\nBest Regards\nAreang','',0,'gA==','1kpqy9ze',1,0,'',707,0,0),(23478,5240,3,2,0,'87.218.146.238',1166094018,1,0,1,1,1,1,'','','Areang,\n\nUse GTGUI.lib instead of GTWIN.lib','',0,'gA==','3ens5a2m',1,0,'',2,0,0),(23479,5292,20,6,0,'87.20.227.105',1166095622,1,0,1,1,1,1,'','Re: Uscrire da un loop con ESC','Senza un esempio minimale e compilabile del problema è molto difficile aiutarti. Comunque, se ho capito bene, prova a sostituire\n\n[code:3j016pd5]IF LASTKEY&#40;&#41; = 27\n    oDlg&#58;End&#40;&#41;\nENDIF[/code:3j016pd5]\n\ncon\n\n[code:3j016pd5]IF GETKEYSTATE&#40; VK_ESCAPE &#41;\n    oDlg&#58;End&#40;&#41;\nENDIF[/code:3j016pd5]\n\nEMG','',0,'AIA=','3j016pd5',1,0,'',6,0,0),(23480,5240,3,233,0,'60.49.70.254',1166098105,1,0,1,1,1,0,'','','[quote=&quot;areang&quot;:a4u56fjz]Mr. Hua\ncan you send me your application borland\'s make script.\n[/quote:a4u56fjz]\n\nSure, I\'ll e-mail it later. In the mean time, here\'s a checklist of what you need to change in your script in order to use the latest xHarbour\n[list:a4u56fjz]\n[*:a4u56fjz] replace [b:a4u56fjz]gtwin.lib[/b:a4u56fjz] with [b:a4u56fjz]gtgui.lib[/b:a4u56fjz][/*:m:a4u56fjz]\n[*:a4u56fjz] replace [b:a4u56fjz]dbfdbt.lib[/b:a4u56fjz] with [b:a4u56fjz]dbffpt.lib[/b:a4u56fjz][/*:m:a4u56fjz]\n[*:a4u56fjz] [u:a4u56fjz]insert[/u:a4u56fjz] [b:a4u56fjz]hbsix.lib[/b:a4u56fjz] [/*:m:a4u56fjz][/list:u:a4u56fjz]\n\nAt least, that what I had to do.','',0,'wUA=','a4u56fjz',1,0,'',233,0,0),(23481,5312,7,490,0,'80.24.224.89',1166098805,1,0,1,1,1,0,'','','Antonio,\n\nHe descargado fwppc pero tiene fecha de 05-12-06 y no aparece nada nuevo a fecha de hoy.\n\n¿Cuando saldrá el nuevo build?\n\nUn Saludo,\nJoaquín','',0,'wUA=','1o5wcr53',1,0,'',490,0,0),(23482,5314,6,569,0,'201.209.90.56',1166099563,1,0,1,1,1,0,'','aqui esta toleauto','Saludos amigos del foro:\nBuscando en mi cofre de los recuerdo encontre tres librerias OLE.LIB las cuales contienen cada una de ellas la buscada funcion TOLEAUTO, las tres son de diferente tamaño y fecha lo cual me indica que son tres versiones diferentes, con solo una de ellas pude compilar el programa de un colega que trata sobre como crear un \"SHORCUT\" o acceso directo en el escritorio a travez de FW, y que aunque no me corrio el EXE creo que es la correcta, las he renombrado cada una de ellas como a,b,c ; si algun interesado me explica detalladamente y paso a paso, como subirla al HIPERULOAD y anunciar en el foro su ubicacion, con mucho gusto lo hare la otra opcion escribirme a mi correo privado.\nSaludos y Feliz Navidad.\nRodolfo SILVA\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'wUA=','1zc0kkbb',1,0,'',569,0,0),(23483,5205,6,569,0,'201.209.90.56',1166100545,1,0,1,1,1,0,'','Saludos JOSE','JOSE: yo creo que la solucion estaria en poder generar a travez de una matriz la cual seria primeramente muy facil de corregir, modificar y editar\nlamentablemente yo solo hice una parte pero no se hacer lo demas, si consigues la solucion por favor avisame.\nSaludos y feliz navidad\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'wUA=','263oh61o',1,0,'',569,0,0),(23484,5205,6,439,0,'200.125.33.122',1166100748,1,0,1,1,1,1,'','','Gracias por tu respuesta Rodolfo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ,\n\nEstoy viendo varias ideas......, veré que resulta de esto y si recibo más feedback de los colegas del foro. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nTe tendré al tanto...','',0,'wUA=','31f89ovn',1,0,'',439,0,0),(23485,5312,7,2,0,'87.218.146.123',1166103060,1,0,1,1,1,1,'','','Joaquín,\n\nLo publicaremos en sólo unos dias.','',0,'wUA=','19jm5ntk',1,0,'',2,0,0),(23486,5307,3,879,0,'65.94.143.210',1166104010,1,0,0,1,1,0,'','','Antonio, I am somewhat confused, could you expand on your answer? \n\nIt is my understanding that GTWIN is part of the xHarbour package.\n\nThe HbMake that was installed also forms part of the xHarbour package.\n\nHbMake automatically calls GTWIN as well as GTGUI, I am not selecting it.\n\nYour response suggests the xHarbour developers made the change. If so then why was the HbMake not changed as well?\n\nRegards,\n\nKen','',0,'wUA=','2te3d5gw',1,0,'',879,0,0),(23487,5205,6,492,0,'189.147.23.225',1166106407,1,0,1,1,1,1,'','','Hola Jose\n\nPor el moment lo estoy manejando de esta manera :\n\nTengo un modulo donde \"muestro\" todas las opciones mas importantes que quiero o no asignar a X usuario.\n\n\n[img:2swmi7tl]http&#58;//img176&#46;imageshack&#46;us/img176/2124/menusr1jc1&#46;jpg[/img:2swmi7tl]\n\n[img:2swmi7tl]http&#58;//img176&#46;imageshack&#46;us/img176/3963/menusr2pd7&#46;jpg[/img:2swmi7tl]\n\nDichas selecciones, las guardo en un archivo y las aplico al usuario que se haya \"logeado\".\n\nCreo que la unica diferencia mayor entre lo que quieres hacer y lo que hago, es que en tu caso, quieres crear las opciones personalizadas segun el usuario y sus privilegios, en mi caso, el menu y los botones siguen igual solo que algunas estan desactivados.\n\n\nEspero te sirva\n\n\nSALUDOS','',0,'CA==','2swmi7tl',1,0,'',492,0,0),(23488,5307,3,2,0,'87.218.146.123',1166107884,1,0,1,1,1,1,'','','Ken,\n\n&gt;\nYour response suggests the xHarbour developers made the change. If so then why was the HbMake not changed as well?\n&gt;\n\nProbably they missed such change. You may use the Borland or Microsoft make files that we provide at fwh\\makes directory instead of hbmake.','',0,'CA==','13duyz6e',1,0,'',2,0,0),(23489,5307,3,2,0,'87.218.146.123',1166108031,1,0,1,1,1,1,'','','Ken,\n\nPlease notice that in our fwh provided makes, you also have to change gtwin.lib into gtgui.lib. We also missed those changes <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nWe have updated them for next fwh build for this month.','',0,'CA==','4b1tyx7b',1,0,'',2,0,0),(23490,5314,6,2,0,'87.218.146.123',1166108269,1,0,1,1,1,1,'','','Rodolfo,\n\nEs preferible que uses <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> en vez de hyperupload, pues este suele borrar ficheros de vez en cuando.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> es muy fácil de usar, entra en la página y sabrás hacerlo sin problemas: pulsa en \"examinar...\" para elegir el fichero a subir y luego en el botón \"Upload File!\" y ya está, te proporcionará una dirección que tienes que copiar aquí.','',0,'CA==','uez5p3hw',1,0,'',2,0,0),(23491,5265,22,2,0,'87.218.146.123',1166108881,1,0,1,1,1,1,'','','Armando,\n\nEn fwh\\sources\\classes\\rpreview.prg la función PrintPrv() es la que finalmente imprime. Tan solo haría falta que esta función pusiese a .T. una variable static lPrinted e implementar una función PreviewPrinted() ; return lPrinted.\n\nPruébalo, y si te da la funcionalidad que necesitas, lo implementamos en FWH. Gracias,','',0,'CA==','3puyxc9e',1,0,'',2,0,0),(23492,5306,6,471,0,'201.240.77.184',1166108963,1,0,1,1,1,1,'','gracias','funciono perfecto\n\n\nMuchas Gracias','',0,'CA==','19dzo11k',1,0,'',471,0,0),(23493,5152,19,2,0,'87.218.146.123',1166109003,1,0,1,1,1,1,'','','Hua,\n\nWe use a standard rss.php module for these forums at <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/rss.php\">www.fivetechsoft.com/forums/rss.php</a><!-- w --> . It looks as it is missing to include such section. It is not intentionatelly done. We are going to review it, thanks.','',0,'CA==','2oxooute',1,0,'',2,0,0),(23494,5315,3,22,0,'151.49.225.3',1166109085,1,0,1,1,1,0,'','Activex probem with xhb','I\'m tryng webexp example with xhb but always take a protection error.\nI just tried with or without activex.lib dummy file in xhb\\lib dir.\n\nMy fwh version: FWHX 2.7 March 2006\nMy xhb version: Enterprice October 2006\n\nWhat I\'m doing wrong?\n\nThank in advance.','',0,'CA==','z1sog5c8',1,0,'',22,0,0),(23496,5152,19,2,0,'87.218.146.123',1166111327,1,0,1,1,1,1,'','','Hua,\n\nIts working fine. It just need a little time for a rss reader to get updated:\n[url=http&#58;//imageshack&#46;us:31qo9iqr][img:31qo9iqr]http&#58;//img89&#46;imageshack&#46;us/img89/5440/rssgt9&#46;png[/img:31qo9iqr][/url:31qo9iqr]','',0,'GA==','31qo9iqr',1,0,'',2,0,0),(23497,5315,3,2,0,'87.218.146.123',1166111564,1,0,1,1,1,1,'','','Gianni,\n\nIt looks as you need an updated FWH. You are mixing march and october builds. \n\nBoth xHarbour and Harbour change quite often, and it is required a modified FWH libs.','',0,'GA==','d9tjgds7',1,0,'',2,0,0),(23498,5317,6,891,0,'148.243.37.162',1166111592,1,0,1,1,1,0,'','Gracias por la ayuda y sugerencias, pero problema resuelto','Gracias por la ayuda y sugerencias amigos, problema resuelto, estaba usando DbSetFilter() en lugar de DbSeek() indices y eso hacia que cada vez que aumentaba nuevos registros en la base de datos, cada vez se hacia lento, al estar usando por 1 solo usuario o mas de 2, gracias por su apoyo y sugerencias, quisiera hacer peticion a todos los usuarios expertos en FiveWin, referente a los reportes, que se hiciera más fácil para el usuario, que dentro de un x reporte de pantalla, por ejemplo, reporte de Balanza de comprobacion, que el usuario desea consultar x cuenta 2106-0002-1602 con el saldo de 12,452.62 movimientos de auxiliares que dentro del mismo reporte de pantalla exista un evento para clickear con x color y desplegar informacion pasando a movimientos auxiliares, no se si me explico muy bien, pero seria muy buena idea en vez de salirse del reporte de balanza y abrir reporte de auxiliares y consultar la cuenta mencionada, es una sugerencia, para todos los expertos de FiveWin que saben crear clases....','',0,'GA==','223l3gqb',1,0,'',891,0,0),(23499,5205,6,49,0,'213.82.134.66',1166111797,1,0,1,1,1,1,'','','Dear jose_murugosa,\ndo you see the fsdi2006 ?\nI have a small function to create an acces to usuarios for all the program molules \n\nit run ok and it is easy...\nyou can create  level user...\n\n\nOR\n\nyou can go to samples of fivewin \nthere is an sample to put  button on button bar  (configurable drop and drag ) it save on ini files\nhere you can create  many ini files for each usuarios ... this is an good  idea...','',0,'GA==','7hf7jwa1',1,0,'',49,0,0),(23500,5318,7,123,0,'83.59.155.21',1166114134,1,0,1,1,1,0,'','ScrollBar entra en recursividad','Antonio,\n\nEste código:\n\n[code:2zsqlywl]\nfunction Main&#40;&#41;\n\n   local oWnd, oScr1, oScr2\n\n   DEFINE WINDOW oWnd TITLE &quot;ScrollBars&quot;\n\n   @ 2, 5 SCROLLBAR oScr1 OF oWnd ;\n      ON UP   oScr1&#58;GoTop&#40;&#41; ;\n      ON DOWN oScr1&#58;GoBottom&#40;&#41; HORIZONTAL\n      \n\n   @ 2, 15 SCROLLBAR oSrc2 OF oWnd ;\n      ON UP   oWnd&#58;Say&#40; 2, 30, Time&#40;&#41; &#41; ;\n      ON DOWN oWnd&#58;Say&#40; 4, 30, &quot;Hello!&quot; &#41; ;\n      ON PAGEUP     MsgInfo&#40;&quot;Página Arriba&quot;&#41; ;\n      ON PAGEDOWN   MsgInfo&#40;&quot;Página Abajo&quot;&#41; \n      \n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//-----------\n[/code:2zsqlywl]\n\nHace que el msginfo del pageup o pagedown entre en recursividad.\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2zsqlywl',1,0,'',123,0,0),(23501,5319,7,123,0,'83.59.155.21',1166114628,1,0,1,1,1,0,'','Scrollbar horizontal','Antonio,\n\nEste código:\n\n[code:3bdtff3q]\nfunction Main&#40;&#41;\n\n   local oWnd, oScr1, oScr2\n\n   DEFINE WINDOW oWnd TITLE &quot;ScrollBars&quot;\n\n   @ 2, 5 SCROLLBAR oScr1 OF oWnd ;\n      ON UP     MsgInfo&#40;&quot;Arriba&quot;&#41; ;\n      ON DOWN   MsgInfo&#40;&quot;Abajo&quot;&#41; ;\n      ON PAGEUP     MsgInfo&#40;&quot;Página Arriba&quot;&#41; ;\n      ON PAGEDOWN   MsgInfo&#40;&quot;Página Abajo&quot;&#41; ;\n      HORIZONTAL\n      \n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n[/code:3bdtff3q]\n\nNo aparece nigún msginfo.  ¿Que me he dejado por hacer?\nSaludos,\nJosé Luis Capel','',0,'AIA=','3bdtff3q',1,0,'',123,0,0),(23502,5318,7,2,0,'87.218.146.212',1166114802,1,0,1,1,1,1,'','','Jose Luis,\n\nSí, lo habiamos visto, pero no es recursividad sino que el evento no deja de dispararse continuamente.\n\nLa solución es llamar a una función que use una variable static que cambie de estado para que la función no vuelva a procesarse hasta que no termine su trabajo:\n[code:38y5qvyd]\nfunction Test&#40;&#41;\n\n   static lWorking &#58;= &#46;f&#46;\n\n   if ! lWorking\n     lWorking = &#46;t&#46;\n     &#46;&#46;&#46; código a ejecutar\n     lWorking = &#46;f&#46; \n   endif\n\nreturn nil\n[/code:38y5qvyd]','',0,'AIA=','38y5qvyd',1,0,'',2,0,0),(23503,4757,3,169,0,'200.206.142.134',1166115048,1,0,1,1,1,0,'','','[quote=&quot;Ari&quot;:2312pklr]Precisa pagar para usar esta DLL ?  ela é Free ?\nAri[/quote:2312pklr]\n\nPrecisa. Mas custa muito barato, somente 60 dólares. Eu comprei aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/\">http://www.utilitywarrior.com/</a><!-- m -->\n\nE paguei com Paypal;\n\nAbraços,\n\nToninho.','',0,'gA==','2312pklr',1,0,'',169,0,0),(23504,5292,20,837,0,'85.18.14.25',1166115500,1,0,1,1,1,1,'','Re: Uscrire da un loop con ESC','[quote=&quot;EnricoMaria&quot;:iofafpxi]Senza un esempio minimale e compilabile del problema è molto difficile aiutarti. Comunque, se ho capito bene, prova a sostituire\n\n[code:iofafpxi]IF LASTKEY&#40;&#41; = 27\n    oDlg&#58;End&#40;&#41;\nENDIF[/code:iofafpxi]\n\ncon\n\n[code:iofafpxi]IF GETKEYSTATE&#40; VK_ESCAPE &#41;\n    oDlg&#58;End&#40;&#41;\nENDIF[/code:iofafpxi]\n\nEMG[/quote:iofafpxi]\n\nCaro Enrico,\n\nti ringrazio, ho risolto; solo che al comando oDlg:End() ho sostituito il comando EXIT poichè la Dialog non è stata ancora attivata (il comando IF è in testa al loop).\n\nGrazie ancora, Andrea.','',0,'gIA=','iofafpxi',1,0,'',837,0,0),(23505,5303,7,893,0,'80.34.86.46',1166117229,1,0,1,1,1,0,'','AYUDA No puedo ejecutar la aplicación dos veces','Muy buenas según el código publicado, y habiendo reinstalado con la nueva versión de fivewin, sigo son poder ejecutar más de una vez la aplicación (habiendo cerrado el programa). \n\nAyuda por favor ya que es un engorro resetear el emulador, mas cuando estoy empezando y las compilaciones son muchas.\n\nMuchas gracias de antemano','',0,'gIA=','1vy679ph',1,0,'',893,0,0),(23506,5317,6,492,0,'189.147.23.225',1166117291,1,0,1,1,1,1,'','','Hola\n\nPara hacer lo que comentas, no es necesario crear algunas clases.\n\nEse procedimiento lo realize hace algunos años en una app contable, se entraba al libro mayor, se seleccionaba una cuente y mostraba la balanza, se seleccionaba una subcuenta y entraba al edo. de cuenta y por ultimo a la poliza y claro, podias regresas para cambiar de cuenta.\n\nNo recuerdo en este momento exactamente como lo hice, ( ya tendra unos 8 años ) de eso, sera cuestion de buscar en mis respaldos.\n\nSaludos','',0,'gIA=','2dwxcg47',1,0,'',492,0,0),(23507,5303,7,2,0,'87.218.146.212',1166117769,1,0,1,1,1,1,'','','Andrés,\n\nTienes unos errores en tu código que son los que provocan un error y de ahí que la aplicación se quede abierta y no la puedas volver a ejecutar.\n\nComenta estas tres líneas de tu PRG:\n\nDbCloseAll() \n\n// SELECT Customer \n// USE \n// oWnd:End() \n\nreturn nil \n\nPrueba ahora y verás como funciona correctamente y puedes ejecutar la aplicación y recompilarla tantas veces como necesites.','',0,'gIA=','2zytj6iu',1,0,'',2,0,0),(23508,5305,2,9,0,'85.54.229.204',1166118444,1,0,1,1,1,1,'','Re: AYUDA SOBRE INDICES CDX...','[quote=&quot;A&amp;C&quot;:3ctl36u8]\n1.- cuantos TAG se pueden anidar en un CDX\n[/quote:3ctl36u8]\n\nSegún he leido, puede incluir hasta 49 TAG. \n\n[quote=&quot;A&amp;C&quot;:3ctl36u8]\n2.- supongamos que me excedo del numero de TAG permitidos por CDX y creo uno nuevo ,, la duda como los abro los dos\n[/quote:3ctl36u8]\n\nSET INDEX TO indice1, indice2,.....','',0,'gA==','3ctl36u8',1,0,'',9,0,0),(23509,5303,7,893,0,'80.34.86.46',1166118458,1,0,1,1,1,0,'','','funciona perfectamente.\ngracias de nuevo Antonio.\n\nAndres','',0,'gA==','3bjonn5f',1,0,'',893,0,0),(23510,5319,7,2,0,'87.218.146.212',1166118888,1,0,1,1,1,1,'','','Jose Luis,\n\nEl método HScroll() de la Clase TWindow no estaba implementado. Ya está.\n\nEn un par de dias, ó así, publicamos un nuevo build.','',0,'gA==','1bgxvo43',1,0,'',2,0,0),(23511,5319,7,123,0,'83.59.155.21',1166119923,1,0,1,1,1,0,'','','Antonio,\n\n[quote:2jzmhy5d]El método HScroll() de la Clase TWindow no estaba implementado. Ya está. \n\nEn un par de dias, ó así, publicamos un nuevo build.[/quote:2jzmhy5d]\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Qué guapo eres!!\n\nSaludos,\nJosé Luis Capel','',0,'gA==','2jzmhy5d',1,0,'',123,0,0),(23512,5205,6,439,0,'200.125.44.29',1166121357,1,0,1,1,1,1,'','','Raymundo: \n\nQue bella solución <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , solo una pregunta: ¿Que función cumple el botón \"act. todo\"?\n\nSilvio:\n\nMuy interesante, me gustaría ver algo de ese  código o de la idea sobre la que lo has basado   <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> .\nrespondiendo a la pregunta de fsdi2006. acabo de llegar de entregar un sistema que me tenía los tiempos apretados, así que lo veré hoy o mañana seguramente.\n\nTe tendré al tanto.... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2sxv6nir',1,0,'',439,0,0),(23513,5205,6,95,0,'189.171.151.24',1166127453,1,0,1,1,1,0,'','','Hola Jose\n\nEn mi caso, yo tengo una tabla donde guardo los usuarios que accesan al sistema. y en un campo de esa tabla guardo un archivo texto donde tengo la definicion de los menus.\n\nComo tu dices es algo rustico pero me funciona por cada usuario.\n\nSaludos\nOsvaldo Ramirez\n\nP.S. Si necesitas el codigo dime, pues aun lo tengo desde Clip53 hasta Xbase++ 1.9','',0,'gA==','32tjyhqr',1,0,'',95,0,0),(23514,5319,7,2,0,'87.218.146.212',1166127954,1,0,1,1,1,1,'','','<!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','1ce8ng9x',1,0,'',2,0,0),(23515,5320,6,237,0,'200.68.70.90',1166128257,1,0,1,1,1,0,'','Se puede un zip en varios volumenes ?','Alguien tiene idea de como hacer un zip partido en varios volumenes de 3 megas aproximadamente? \nEl tema es que a veces, me es necesario transferir los zip por mail, pero al parecer hay ciertos servidores que rechazan el mail cuando se pasan de cierto tamaño. Puedo tener zip de 15 megas para arriba.\nEstube viendo algo de las funciones de harbour pero no encontré nada al respecto.\nAlguien sabe como solucionar esto ?\n\nMuchos salu2!\n\nAlejandro Cebolido\nBuenos Aires, Argentina.','',0,'gA==','12e979ef',1,0,'',237,0,0),(23516,5205,6,36,0,'200.113.56.235',1166128905,1,0,1,1,1,0,'','','Hola Jose\n   \n   Mira yo lo hago de la siguiente manera, envio el menu y de ahi hago los acceso, te adjunto los fuentes\n\n[url:1opjwf2i]http&#58;//hyperupload&#46;com/download/0274c3f497/acceso&#46;zip&#46;html[/url:1opjwf2i]\n\nDentro de la carpeta dbf\\ esta el ejecutable\n\nusuario=admin\nclave=admin\n\nusuario=prueba\nclave=1\n\nEspero que te sirva\n\nSaludos\nPatricio','',0,'EA==','1opjwf2i',1,0,'',36,0,0),(23517,5205,6,439,0,'200.125.33.203',1166129080,1,0,1,1,1,1,'','','Gracias Patricio y Osvaldo por compartir sus soluciones!!!!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nLes agradezco su bondad al compartir sus ideas conmigo y los demás del foro. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','2n5x7yi4',1,0,'',439,0,0),(23518,5321,3,69,0,'74.13.59.20',1166129171,1,0,1,1,1,0,'','Bluetooth support','Hi Everybody,\n\nIs it possible to communicate with a Bluetooth device via FWH ?\n\nIf yes, are there any samples?\n\nThanks,\n\nJeff','',0,'EA==','2kle8lwx',1,0,'',69,0,0),(23519,5322,6,471,0,'201.240.77.184',1166141870,1,0,1,1,1,1,'','Como puedo usar FoxCrypto.FLL con xhb y FW','La libreria FoxCrypto.fll usad en fox contiene la función que codifica y decodifica en  base 64., el cual permite el trabajo tipo de datos bytes.\n\n\nFUNCTION decodifica\nPARAMETER pCadena\nLOCAL lcBinary, lnHandle, lnSize\nlnHandle = Base64DecoderCreate()\nIF lnHandle &gt; 0\nBase64DecoderPut(lnHandle, pCadena)\nBase64DecoderClose(lnHandle)\nlnSize = Base64DecoderMaxRetrievable(lnHandle)\nlcBinary = Base64DecoderGet(lnHandle, lnSize)\nBase64DecoderDestroy(lnHandle)\nELSE\nWAIT WIND \"ERROR al instanciar\"\nRETURN .F.\nENDIF\nRETURN lcBinary\n\nFUNCTION codifica\nPARAMETER pCadena\nLOCAL lcBase64, lcInFile, lnHandle, lnSize\nlnHandle = Base64EncoderCreate( .T. )\nIF lnHandle &gt; 0\nBase64EncoderPut(lnHandle, pCadena)\nBase64EncoderClose(lnHandle)\nlnSize = Base64EncoderMaxRetrievable(lnHandle)\nlcBase64 = Base64EncoderGet(lnHandle, lnSize)\nBase64EncoderDestroy(lnHandle)\nELSE\nWAIT WIND \"ERROR al instanciar\"\nRETURN .F.\nENDIF\nRETURN lcBase64\n\n\nbucsando en internet encontre lo q parece el codigo fuente de esta libreria parece q esta en c++\n\n<!-- m --><a class=\"postlink\" href=\"http://www.cryptopp.com/#download\">http://www.cryptopp.com/#download</a><!-- m -->\n\nbaJando veo q esta libreria que no se que diferencia hay entre dll y fll\ntambie zipea,pero lo q solo me interesa son las funciones para \ncodificar y decodificar en base 64\n\neste parece ser el codigo q hace eso\n\n// base64.cpp - written and placed in the public domain by Wei Dai\n\n#include \"pch.h\"\n#include \"base64.h\"\n\nNAMESPACE_BEGIN(CryptoPP)\n\nstatic const int MAX_LINE_LENGTH = 72;\n\nstatic const byte vec[] =\n		\"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/\";\nstatic const byte padding = \'=\';\n   \nBase64Encoder::Base64Encoder(BufferedTransformation *outQueue, bool insertLineBreak)\n	: insertLineBreak(insertLineBreak), Filter(outQueue)\n{\n	inBufSize=0;\n	lineLength=0;\n}\n\nvoid Base64Encoder::LineBreak()\n{\n	if (insertLineBreak)\n		AttachedTransformation()-&gt;Put(\'\\n\');\n	lineLength=0;\n}\n\nvoid Base64Encoder::EncodeQuantum()\n{\n	byte out;\n\n	out=(inBuf[0] &amp; 0xFC) &gt;&gt; 2;\n	AttachedTransformation()-&gt;Put(vec[out]);\n\n	out=((inBuf[0] &amp; 0x03) &lt;&lt; 4) | (inBuf[1] &gt;&gt; 4);\n	AttachedTransformation()-&gt;Put(vec[out]);\n\n	out=((inBuf[1] &amp; 0x0F) &lt;&lt; 2) | (inBuf[2] &gt;&gt; 6);\n	AttachedTransformation()-&gt;Put(inBufSize &gt; 1 ? vec[out] : padding);\n\n	out=inBuf[2] &amp; 0x3F;\n	AttachedTransformation()-&gt;Put(inBufSize &gt; 2 ? vec[out] : padding);\n\n	inBufSize=0;\n	lineLength+=4;\n\n	if (lineLength&gt;=MAX_LINE_LENGTH)\n		LineBreak();\n}\n\nvoid Base64Encoder::Put(const byte *inString, unsigned int length)\n{\n	while (length--)\n		Base64Encoder::Put(*inString++);\n}\n\nvoid Base64Encoder::MessageEnd(int propagation)\n{\n	if (inBufSize)\n	{\n		for (int i=inBufSize;i&lt;3;i++)\n			inBuf[i]=0;\n		EncodeQuantum();\n	}\n\n	if (lineLength) // force a line break unless the current line is empty\n		LineBreak();\n\n	Filter::MessageEnd(propagation);\n}\n\nBase64Decoder::Base64Decoder(BufferedTransformation *outQueue)\n	: Filter(outQueue)\n{\n	inBufSize=0;\n}\n\nvoid Base64Decoder::DecodeQuantum()\n{\n	byte out;\n\n	out = (inBuf[0] &lt;&lt; 2) | (inBuf[1] &gt;&gt; 4);\n	AttachedTransformation()-&gt;Put(out);\n\n	out = (inBuf[1] &lt;&lt; 4) | (inBuf[2] &gt;&gt; 2);\n	if (inBufSize &gt; 2) AttachedTransformation()-&gt;Put(out);\n\n	out = (inBuf[2] &lt;&lt; 6) | inBuf[3];\n	if (inBufSize &gt; 3) AttachedTransformation()-&gt;Put(out);\n\n	inBufSize=0;\n}\n\nint Base64Decoder::ConvToNumber(byte inByte)\n{\n	if (inByte &gt;= \'A\' &amp;&amp; inByte &lt;= \'Z\')\n		return (inByte - \'A\');\n\n	if (inByte &gt;= \'a\' &amp;&amp; inByte &lt;= \'z\')\n		return (inByte - \'a\' + 26);\n\n	if (inByte &gt;= \'0\' &amp;&amp; inByte &lt;= \'9\')\n		return (inByte - \'0\' + 52);\n\n	if (inByte == \'+\')\n		return (62);\n\n	if (inByte == \'/\')\n		return (63);\n\n	return (-1);\n}\n\nvoid Base64Decoder::Put(const byte *inString, unsigned int length)\n{\n	while (length--)\n		Base64Decoder::Put(*inString++);\n}\n\nvoid Base64Decoder::MessageEnd(int propagation)\n{\n	if (inBufSize)\n	{\n		for (int i=inBufSize;i&lt;4;i++)\n			inBuf[i]=0;\n		DecodeQuantum();\n	}\n\n	Filter::MessageEnd(propagation);\n}\n\nNAMESPACE_END\n\n\nComo lo puedo usar con fivewin y xharbour\n\nGracias','',0,'','2rvvi0c5',1,0,'',471,0,0),(23520,5323,2,760,0,'200.37.76.92',1166144327,1,0,1,1,1,0,'','compilar con harbour','Hola a todos...\n\nSe que no es el foro para harbour, pero es solo una pequeña interrogante... por favor\n\nTengo un sistema hecho en clip53 modo consola 16 bits...\nQuiero pasarla a 32 bits.\nTengo el xharbour, el Borland BCC no recuerdo la version, pero es actual, ambas son bajadas gratuitamante.\n\nQuiero compilar como lo hacia con el rmake, se que existe un hbmake en harbour, pero no lo se usar... algun ejemplo por favor ....\n\nSalu2','',0,'','312j2bul',1,0,'',760,0,0),(23521,5324,6,694,0,'200.138.82.248',1166145227,1,0,1,1,1,1,'','É possível enviar EMAIL com o FWH?','É possível enviar EMAIL com o FWH?\n\n\nFIQUEM COM DEUS\nAOKISANTOS','',0,'','1y8y5h1s',1,0,'',694,0,0),(23522,5325,3,49,0,'62.13.172.78',1166151582,1,0,1,1,1,1,'','Button bmp','I have many bmp on a directory\nI want load these file and create buttons for a dialog and four for each line \nHow I can create it ?\n\n----------------------------------------------','',0,'','3igh9ucq',1,0,'',49,0,0),(23523,5326,3,49,0,'62.13.172.78',1166151729,1,0,1,1,1,1,'','rotate bmp 90- 180 270 grades','can I rotate a BMP ?\n\n----------------------------------','',0,'','3fgi6oh0',1,0,'',49,0,0),(23524,5240,3,707,0,'222.124.20.50',1166155246,1,0,1,1,1,0,'','','Mr.Antonio, Mr.Hua\n\nThank\' for reply\n\nI don\'t have gtgui.lib on xHarbour\\lib dir  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nWhere is it ?\n\nThank\'s\nBest Regards\nAreang','',0,'','27ibwgtq',1,0,'',707,0,0),(23526,5260,3,303,0,'72.199.41.171',1166161922,1,0,1,1,1,0,'','','Antonio,\n\nI\'m sure it will be a little confusing at first, but it sure will be a lot easier than having to specify both a version and build no. I like it.\n\nJames','',0,'','3o5le87i',1,0,'',303,0,0),(23527,5328,3,707,0,'222.124.20.50',1166163828,1,0,1,1,1,0,'','convert VB source to xHarbour','Hi All !\n\nAs subject :\n\nPrivate Declare Function OpenThemeData Lib \"uxtheme.dll\" (ByVal hWnd As Long, ByVal pszClassList As Long) As Long\n\nI have vb source code for tExplorerBar \n[url:1anhl9lf]http&#58;//planet-source-code&#46;com/vb/scripts/ShowZip&#46;asp?lngWId=1&amp;lngCodeId=61899&amp;strZipAccessCode=tp%2FX618999818[/url:1anhl9lf]\n\n[img:1anhl9lf]http&#58;//planet-source-code&#46;com/Upload_PSC/ScreenShots/PIC20057251357453728&#46;jpg[/img:1anhl9lf]\n\nCan anyone help me to convert this ?\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> Please ......!!! <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nthank\'s\nAreang','',0,'GA==','1anhl9lf',1,0,'',707,0,0),(23528,5240,3,233,0,'218.111.22.218',1166164760,1,0,1,1,1,0,'','','[quote=&quot;areang&quot;:304442qr]\nI don\'t have gtgui.lib on xHarbour\\lib dir  \nWhere is it ?\n[/quote:304442qr]\n\nGet the link to download from here, <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m --> . Make sure you get [x]Harbour for Nov 06 build','',0,'gA==','304442qr',1,0,'',233,0,0),(23529,5323,2,2,0,'87.218.146.212',1166167607,1,0,1,1,1,1,'','','Francis,\n\nDe momento puedes seguir usando el rmake, solo tienes que cambiar Clipper por Harbour, y a continuación llamar al bcc32.exe de Borland para generar el archivo OBJ.\n\nEl hbmake.exe ultimamente no lo han actualizado y puede darte errores.\n\nCon FWH distribuimos un makefile para Borland, usando el make de Borland y otro para Microsoft.','',0,'gA==','1ymttm6z',1,0,'',2,0,0),(23530,5328,3,49,0,'213.82.134.66',1166169789,1,0,1,1,1,1,'','','You must purchase VtaskBar from Paco of Canalfive !!!!!!\nI use it with many successes !!!!!!!!!!!!!\n\n------------------------------','',0,'gA==','3nnfzizf',1,0,'',49,0,0),(23531,5329,7,527,0,'83.42.42.99',1166175611,1,0,1,1,1,0,'','Un problema que no puedo revolver ayuda por favor','Me da un error el siguiente codigo\n[b:12j3vspv] C´ant create dialog box[/b:12j3vspv]\n\n* FICHERO RC\n#ifdef _CE\n   #include \"c:\\vce\\include\\arm\\windows.h\"\n   #include \"c:\\vce\\include\\arm\\commctrl.h\"\n#endif\n\nrst DIALOG 5, 18, 151, 102\nSTYLE 0x4L | WS_CHILD | WS_CAPTION\nCAPTION \"Recuento de almacen\"\nFONT 8, \"MS Sans Serif\"\n{\n LTEXT \"Fecha recuento\", -1, 3, 1, 53, 8\n CTEXT \"Código artículo\", -1, 56, 1, 78, 8\n EDITTEXT 1000, 4, 10, 48, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER\n EDITTEXT 1001, 55, 10, 78, 12\n LTEXT \"Nombre del artículo\", -1, 3, 23, 135, 8\n EDITTEXT 1002, 3, 32, 144, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER\n LTEXT \"Stock actual en almacen\", -1, 3, 47, 94, 8\n EDITTEXT 1003, 99, 45, 48, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER\n LTEXT \"Precio medio actual\", -1, 3, 60, 94, 8\n EDITTEXT 1004, 99, 58, 48, 12, NOT WS_TABSTOP | WS_DISABLED | WS_BORDER\n LTEXT \"Resultado del recuento\", -1, 3, 73, 94, 8\n EDITTEXT 1005, 99, 71, 48, 12\n DEFPUSHBUTTON \"Grabar\", 500, 3, 86, 38, 14\n DEFPUSHBUTTON \"Salir\", 501, 109, 86, 38, 14\n PUSHBUTTON \"...\", 502, 134, 9, 11, 14, NOT WS_TABSTOP\n}\n\n\n* Fichero PRG\n#include \"FWCE.ch\"\nFUNCTION recuento()\n grid_recuento()\nRETURN 0\n\n**************************************************************\n* PANTALLA DE A¥ADIR ARTICULOS AL RECUENTO DE ALMACEN        *\n**************************************************************\nFUNCTION grid_recuento()\n local v:=Array(22), vv:=Array(22)\n\n DEFINE DIALOG oDlg NAME \"rst\"\n   REDEFINE  GET vv[1]    VAR v[1]   ID 1000 OF odlg\n   REDEFINE  GET vv[2]    VAR v[2]   ID 1001 OF odlg\n   REDEFINE  GET vv[3]    VAR v[3]   ID 1002 OF odlg\n   REDEFINE  GET vv[4]    VAR v[4]   ID 1003 OF odlg\n   REDEFINE  GET vv[5]    VAR v[5]   ID 1004 OF odlg\n   REDEFINE  GET vv[6]    VAR v[6]   ID 1005 OF odlg\n\n   REDEFINE BUTTON ID 500  OF odlg\n   REDEFINE BUTTON ID 501  OF odlg\n   REDEFINE BUTTON ID 502  OF odlg\n ACTIVATE DIALOG   oDlg\n\nRETURN 0','',0,'QA==','12j3vspv',1,0,'',527,0,0),(23532,5330,3,233,0,'218.111.22.218',1166175665,1,0,1,1,1,0,'','Different behaviour of TSay object','[code:2lqm2qjr]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic no, oDlg, oSay2\n\nfunction Main&#40;&#41;\n   local oSay\n\n   no &#58;= 0\n\n   DEFINE DIALOG oDlg\n      @ 1, 2 SAY oSay  PROMPT &quot;Current no&#58; &quot;+ltrim&#40;str&#40;no&#41;&#41; update\n      @ 2, 2 SAY oSay2 PROMPT &quot;x&quot; size 50,10 update\n      @ 3,3 BUTTON &quot;Increment&quot;  OF oDlg ACTION refreshNo&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   msginfo&#40;no&#41;\nreturn nil\n//----------------------------------------------------------------------------\nfunction refreshNo&#40;&#41;\n   no++\n   oSay2&#58;setText&#40;ltrim&#40;str&#40;no&#41;&#41;&#41;\n   oDlg&#58;update&#40;&#41;\nreturn nil\n[/code:2lqm2qjr]\n\nThese are the behaviour observed when the above code is compiled using xHarbour 0.99.41+FWH2.6 (old method) and xHarbour 0.99.61+FWH 2.8 Nov (new method)\n\n[b:2lqm2qjr][u:2lqm2qjr]Old Method[/u:2lqm2qjr][/b:2lqm2qjr]\n   Everytime the Increment button is pressed [i:2lqm2qjr]oSay[/i:2lqm2qjr] would show the most current value of [i:2lqm2qjr]no[/i:2lqm2qjr] while [i:2lqm2qjr]oSay2[/i:2lqm2qjr] won\'t.\n\n[b:2lqm2qjr][u:2lqm2qjr]New Method[/u:2lqm2qjr][/b:2lqm2qjr]\n   Everytime the Increment button is pressed [i:2lqm2qjr]oSay2[/i:2lqm2qjr] would show the most current value of [i:2lqm2qjr]no[/i:2lqm2qjr] while [i:2lqm2qjr]oSay[/i:2lqm2qjr] won\'t.\n\n[b:2lqm2qjr]So...[/b:2lqm2qjr]\nI\'m not sure this difference in behaviour is due to changes in xHarbour or FWH but I desperately need to get the old behaviour back as lots of my code rely on such behaviour. Anyone can shed an idea on this? It\'s quite [b:2lqm2qjr][color=red:2lqm2qjr]urgent[/color:2lqm2qjr][/b:2lqm2qjr] as I\'ve recompiled all my programs with the latest xHarbour and I want to avoid any further surprises.\n\nThanks','',0,'Y4A=','2lqm2qjr',1,0,'',233,0,0),(23533,5329,7,2,0,'87.218.146.212',1166177749,1,0,1,1,1,1,'','','Por favor comprueba que el fichero RES se crea correctamente a partir del fichero RC.\n\nSi tienes el editor de recursos de Borland, abre el EXE con él, para segurarte que tiene los recursos dentro del EXE, gracias.','',0,'Y4A=','f5vt0yza',1,0,'',2,0,0),(23534,5190,3,51,0,'80.122.88.242',1166178394,1,0,1,1,1,0,'','','What is the status?','',0,'Y4A=','32k86ef2',1,0,'',51,0,0),(23535,5331,6,533,0,'80.32.177.143',1166179203,1,0,1,1,1,0,'','Cambiar Color en los get\'s activos','Buenos días foro:\n\n   Os comento una cosilla que para muchos creo que será facil. En las antiguas aplicaciones en FW 2.4 tenía que cuando obtenía el foco un get se cambiaba el color, estoy intentando hacer lo mismo con fw 2.8 pero no se si tengo que cambiar las clases tget y tsget, como lo tenía hecho en 2.4 y no se si son en los métodos initiate, . . . , si me comentais una hoja de ruta a seguir, mejor que mejor. \n\nMUCHAS GRACIAS de ANTEMANO.','',0,'Y4A=','36k6lfqo',1,0,'',533,0,0),(23536,5329,7,527,0,'88.11.6.82',1166181176,1,0,1,1,1,0,'','OK','VOY A PROBARLO.\nGRACIAS','',0,'Y4A=','100ffsb4',1,0,'',527,0,0),(23537,5240,3,707,0,'222.124.20.50',1166182818,1,0,1,1,1,0,'','','Mr. Hua\n\nThank\'s to you, great help\n\nBest Regards\nAreang','',0,'Y4A=','2nkiixp7',1,0,'',707,0,0),(23538,5331,6,644,0,'201.252.15.223',1166186963,1,0,1,1,1,0,'','','hola\n\nPara cambiar el color de los gets cuando está en foco oGet : bGotFocus := { || oGet : SetColor( 0, GetSysColor( 15 ) } y fuera de foco oGet : bLostFocus := { || oGet : SetColor( 0, CLR_WHITE }. Si querés que esto siempre suceda tendrás que modificar la clase tget y poner estas mismas variables en los métodos New y Redefine. Espero te sirva.\nSaludos','',0,'Y4A=','1rcc1cr9',1,0,'',644,0,0),(23539,5184,3,264,0,'200.91.3.10',1166188845,1,0,1,1,1,1,'','','Este codigo resuelve todo.\nGracias por las colaboraciones.\n\n[code:3rubtilq]\n//-----------------------------------------------------------\nFUNCTION ConectarAccess&#40;&#41;\nLOCAL nRet,cDriver,cAttribute\nMEMVAR MITMP  // carperta donde existe la mdb\n\ncDriver   &#58;=&quot;Microsoft Access Driver &#40;*&#46;mdb&#41;&quot;\ncAttribute&#58;=&quot;DSN=BBT&quot;+Chr&#40;0&#41;+;\n            &quot;DESCRIPTION=BBT System&quot;+Chr&#40;0&#41;+;\n            &quot;SERVER=127&#46;0&#46;0&#46;1&quot;+Chr&#40;0&#41;+;\n            &quot;DBQ=&quot;+MITMP+&quot;\\BBT&#46;mdb&quot;\nnRet      &#58;= CrtDtaSrc&#40;0,1,cDriver, cAttribute &#41;\n\nRETURN NIL\n\nDLL32 FUNCTION CrtDtaSrc&#40;hWnd AS LONG, nRequest AS LONG, @cDriver as STRING  , @cAttributes as STRING&#41; ;\n   AS _INT PASCAL FROM &quot;SQLConfigDataSource&quot; LIB &quot;ODBCCP32&quot;\n//-----------------------------------------------------------------------------\n[/code:3rubtilq]','',0,'AIA=','3rubtilq',1,0,'',264,0,0),(23540,5324,6,264,0,'200.91.3.10',1166189228,1,0,1,1,1,1,'','','Via Smtp\n\n[code:2gprof7o]\n      WSAStartup&#40;&#41;\n      oMail &#58;= TSmtp&#40;&#41;&#58;New&#40; GetHostByName&#40; cServidorDeCorreos &#41; &#41;\n\n      oMail&#58;bDone &#58;= &#123;|| MsgBeep&#40;&#41; &#125;\n      oMail&#58;SendMail&#40; cFrom         ,; // From\n                      &#123; cTo, cFrom &#125;,; // To\n                      cText         ,; // Msg Text\n                      cAsunto       ,; // Subject\n                      &#123; cAdjunto &#125; &#41;   // attached files\n[/code:2gprof7o]\n\nVia OutLook ( o MAPI )\n\n[code:2gprof7o]\n      DEFINE MAIL oMail ;\n         SUBJECT cAsunto ;\n         TEXT cText ;\n         FROM USER ;\n         FILES cAdjunto, cFile ;\n         TO cTo ;\n         RECEIPT\n\n      ACTIVATE MAIL oMail\n\n[/code:2gprof7o]\n\nSaludos','',0,'AIA=','2gprof7o',1,0,'',264,0,0),(23541,5330,3,6,0,'87.21.211.151',1166190842,1,0,1,1,1,1,'','Re: Different behaviour of TSay object','Tried with latest FWH and found it working the old way.\n\nEMG','',0,'AIA=','cm8rila7',1,0,'',6,0,0),(23542,5330,3,233,0,'218.111.65.208',1166192955,1,0,1,1,1,0,'','','Thanks for the feedback Enrico. Appreciate it. Just to seek out what\'s different as I\'m also using the latest FWH, did you click the  Increment button more than once? And did you use Harbour or xHarbour and which build was it?\n\nI believe what I\'ve encountered is what cdmmaui describe in his later post in [url=http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5228:22m9q2wc]this thread[/url:22m9q2wc].\n\nAgain, thanks.','',0,'EA==','22m9q2wc',1,0,'',233,0,0),(23543,5332,2,812,0,'200.83.125.98',1166194578,1,0,1,1,1,0,'','Favor, Necesito Ayuda Urgente','Hola Amigos:\n\nTengo un problema:\n    1. Como puedo mostrar datos por pantalla, sin que este se comporte\n        como un GET, me explico, cuando muestro con un SAY, el cursor se \n        posesiona en el primer campo mostrado, pudiendo digitar y \n        pasearme por los demas registros. Necesito que esto solo se \n        puedan ver.\n\n    2. Como puedo mostrar datos actualizados despues de modificar un \n        dato en pantalla, que origina que otros campos se actualicen por\n        medio de un calculo matematico, el resultado se debe mostrar en \n        forma inmediata.\n\nTrabajo con Clipper 5.2e y FiveWin 2.2 Blinker 7.0.\n\nEn espera de una urgente ayuda, les deseo una Feliz navidad y un prospero año 2007, para todos uds. y familia.\n\nMuchas gracias por existir.\n\nMiguel Rivera','',0,'EA==','vlb110av',1,0,'',812,0,0),(23544,5330,3,6,0,'87.21.211.151',1166194962,1,0,1,1,1,1,'','','[quote=&quot;hua&quot;:bzw5voun]Thanks for the feedback Enrico. Appreciate it. Just to seek out what\'s different as I\'m also using the latest FWH, did you click the  Increment button more than once?[/quote:bzw5voun]\n\nYes.\n\n[quote=&quot;hua&quot;:bzw5voun]And did you use Harbour or xHarbour and which build was it?[/quote:bzw5voun]\n\nLatest Harbour and xHarbour from CVS.\n\nEMG','',0,'gA==','bzw5voun',1,0,'',6,0,0),(23545,5333,3,148,0,'196.205.178.39',1166197395,1,0,0,1,1,0,'','inserting image','How can I use the Img tag in showing a picture ?[/u]','',0,'gA==','14bfjc0x',1,0,'',148,0,0),(23546,5331,6,533,0,'80.32.177.143',1166200634,1,0,1,1,1,0,'','','Muchas Gracias, funcionó perfecto y no tenía tantas líneas como antes.','',0,'gA==','oy3bwshr',1,0,'',533,0,0),(23547,5330,3,233,0,'60.48.86.157',1166204100,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:7wwc3dyx]\nLatest Harbour and xHarbour from CVS.\n[/quote:7wwc3dyx]\n\nThanks for the prompt reply Enrico and also thanks to you I believe I might\'ve found the source of the difference as I\'m not using the latest xHarbour from CVS. I\'ll let you know once I tried with the latest version in CVS  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','7wwc3dyx',1,0,'',233,0,0),(23548,5333,3,233,0,'218.111.66.189',1166204632,1,0,1,1,1,0,'','','You mean in this forum? Just upload the image to some where like <!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us\">http://www.imageshack.us</a><!-- m --> and simply paste in the URL generated by imageshack. Note that imageshack offers 2 method for displaying images using [img] BBCode. The format used by phpBB is: [code:aya0jxyu]&#91;img&#93;http&#58;//image_url&#91;/img&#93;[/code:aya0jxyu] which you can see when you place your mouse pointer on the Img button','',0,'AIA=','aya0jxyu',1,0,'',233,0,0),(23549,5334,6,456,0,'62.43.194.117',1166206906,1,0,1,1,1,1,'','Error AdoDb con Harbour','[code:1bd1ud7s]\n       TRY\n          &#58;&#58;oRs&#58;AddNew&#40;&#41;\n       CATCH oError\n          lResult &#58;= &#46;F&#46;\n          MsgStop&#40;oError&#58;Operation,&quot;Ado RecordSet&quot;&#41;\n       END\n[/code:1bd1ud7s]\n Hay alguna manera para implementar lo anterior pero en Harbour. Gracias anticipadas','',0,'AIA=','1bd1ud7s',1,0,'',456,0,0),(23550,5295,6,75,0,'83.36.127.205',1166211688,1,0,1,1,1,0,'','','Creo que puedes tener algún defecto en la configuración de la red porque yo tengo un sistema funcionando en una red con XP y va perfectamete. \n\nLa configuración para una parte que aún tengo en modo consola con clipper e indices en NTX es un servidor con las dbf y el programa y en los terminales un acceso directo y lo mismo he hecho para la otra parte del sistema que está en xHarbour, índices CDX y FW.\n\nTodo va a una velocidad que no permite saber si estas en el servidor trabajando directamente o en un terminal.\n\nTodos los equipos tienen una direccion TCP/IP fija.\n\nSaludos.','',0,'AIA=','1ueazpcf',1,0,'',75,0,0),(23551,5335,6,36,0,'200.113.56.235',1166215822,1,0,1,1,1,0,'','ActiveX y Word','Estimado\n\nEstoy compilando el ejemplo fwh\\samples\\word y me mando error de memoria no se puede leer...blabla..\n\npero compilo los otros ejemplos y funcionan bien\n\n[code:1nwewdhe]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Word&#46;Application&#46;8&quot; &#41;\n\n	alert&#40; oActivex&#58;Classname &#41;\n\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:1nwewdhe]\n\nahora el nombre \"Word.Application.8\", depende de alguna version en especial?, ya que tengo office2003\n\nBueno en realidad lo que quiero hacer es enviar un documento y luego que lo impriman\n\n\nsaludos\nPatricio','',0,'AIA=','1nwewdhe',1,0,'',36,0,0),(23552,5335,6,36,0,'164.77.81.210',1166218470,1,0,1,1,1,0,'','','Baje el ejemplo que antonio puso en el post\n\n[url:xqfcyyrt]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=4404&amp;postdays=0&amp;postorder=asc&amp;start=0[/url:xqfcyyrt]\n\n[url:xqfcyyrt]http&#58;//hyperupload&#46;com/download/0287ba6816/pdf&#46;zip&#46;html[/url:xqfcyyrt]\n\ny me salio el mismo error\n\n[url:xqfcyyrt]http&#58;//img457&#46;imageshack&#46;us/my&#46;php?image=activexeo9&#46;jpg[/url:xqfcyyrt]\n\nAhora la pregunta, al utilizar activeX y cambien de version los usuarios, puede provocar que salga este error??\n\n\nSaludos\nPatricio','',0,'EA==','xqfcyyrt',1,0,'',36,0,0),(23553,5330,3,2,0,'87.218.146.212',1166231787,1,0,1,1,1,1,'','','Hua,\n\nTake Class TSay from FWH2.6 and use it instead of FWH2.8 one.\n\nIf you compare them, you\'ll see the differences.','',0,'EA==','1mn8uhnx',1,0,'',2,0,0),(23554,5335,6,15,0,'211.74.99.42',1166239248,1,0,1,1,1,0,'','','Hello\n\nWhat\'s version of FWH and xHarbour?\n\nRichard','',0,'EA==','1omptkla',1,0,'',15,0,0),(23555,1175,6,292,0,'201.242.155.247',1166241421,1,0,1,1,1,1,'','Re: Text-To-Speech para FWH','Hola César,\n\nPuedes enviarla a mi correo, <!-- e --><a href=\"mailto:ventas@datapronet.com\">ventas@datapronet.com</a><!-- e --> tambien tu # celular para llamarte tiempo sin hablar contigo.\n\n\n\n[quote=&quot;César E. Lozada&quot;:1uxvw321]Hola, amigos:\n\nLes dejo aquí el enlace para descargar una clase que permite TTS (Text-to-speech) con FWH.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.megaupload.com/?d=UU6QSR7A\">http://www.megaupload.com/?d=UU6QSR7A</a><!-- m -->\n\nAgradezco me informen de cualquier mejora.\n\nAfectuosos saludos\nCésar E. Lozada[/quote:1uxvw321]','',0,'gA==','1uxvw321',1,0,'',292,0,0),(23556,5198,6,292,0,'201.242.155.247',1166241946,1,0,1,1,1,1,'','','RPATON,\n\nPuedes enviarme algunos ejemplos por <!-- e --><a href=\"mailto:ventas@datapronet.com\">ventas@datapronet.com</a><!-- e -->?\n\n\n[quote=&quot;RPATON&quot;:2tqyqo6e]I believe that the error was the HEADER.PRG\n I have changed “RETURN nil” by “RETURN self” and now if it works. \n\nThanks for everything. \n\n[img]http://c:\\header.jpg[/img][/quote:2tqyqo6e]','',0,'iA==','2tqyqo6e',1,0,'',292,0,0),(23557,5335,6,397,0,'201.13.92.8',1166242738,1,0,1,0,1,1,'','','Amiguinho\n\nTentas antes:\n\n[code:11cq790m]\nif IsActivex&#40; &quot;Word&#46;Application&#46;8&quot; &#41;\n   cString &#58;= &quot;Word&#46;Application&#46;8&quot;\nendif\nif IsActivex&#40; &quot;Word&#46;Application&#46;9&quot; &#41;\n   cString &#58;= &quot;Word&#46;Application&#46;9&quot;\nendif\nif IsActivex&#40; &quot;Word&#46;Application&#46;10&quot; &#41;\n   cString &#58;= &quot;Word&#46;Application&#46;10&quot;\nendif\nif IsActivex&#40; &quot;Word&#46;Application&#46;11&quot; &#41;\n   cString &#58;= &quot;Word&#46;Application&#46;11&quot;\nendif\noActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, cString &#41;\n[/code:11cq790m]','',0,'AIA=','11cq790m',1,0,'',397,0,0),(23558,5336,3,67,0,'62.235.24.31',1166254547,1,0,1,1,1,0,'','Using Image2PDF.DLL , I2PDF_IMAGESTAMP','Hello,\n\nIn a printprogram i use on every page :\n\noPrn:ImportWMF( \"BITMAP\\MCLSKop.emf\" )\n // entire page , a logo on top and foot\n\nWhen the emf files are send to buildpdf , only blanco pages are build\n\nSo i tryed to build the emf-files WITHOUT importWMF , but to use I2PDF_IMAGESTAMP instead (with a jpg-file)\n\nThe result is disapointing : i see only  the logo on top and foot , not the underlying text\n\nCan it be solved ?\n\nFrank','',0,'AIA=','2uszg8j8',1,0,'',67,0,0),(23559,5190,3,2,0,'87.218.146.212',1166255969,1,0,1,1,1,1,'','','Otto,\n\nPaco from C5 has a distribution contract proposal from us and we expect to get it accepted, so we may start distributing his products asap.','',0,'AIA=','3hcgyw4g',1,0,'',2,0,0),(23560,5337,3,148,0,'196.205.178.39',1166256638,1,0,1,1,1,0,'','filtering records in xbrowse','[img:18o99ils]http&#58;//img121&#46;imageshack&#46;us/img121/33/untitledin2&#46;png[/img:18o99ils]\n\nThat first record is deifferent from my filter condition . I am using go top after set filter and I do not know why I can see different record from my filter scope .\n\n[code:18o99ils]\nSTATIC FUNCTION mete&#40; oWnd &#41;\n*--------------------------\n   local oChild, oBrw\n   Local oDlgn, oDbfc, oBrwc\n\n   local nRecNo  &#58;= RecNo&#40;&#41;\n   local new_rec  &#58;= 0\n   local oGet\n   local i&#58;=0\n   local nFor\n   local bFilter &#58;= &quot;&quot;\n   local cFilter &#58;= &quot;&quot;\n   local x &#58;= &quot;&quot;\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n\n\n\nx &#58;= &quot;\'9855564\'&quot; \ncFilter &#58;= &quot;me_mc_serl = &quot;+ x \nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n\n\nSELECT 4\nuse mete\nSET index TO mete2\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\n4-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n\n\n\nDEFINE DIALOG oDlgn  FROM 1,1 TO 50,140 TITLE &quot;Dialog Meter Works&quot; \n\n\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlgn &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n\nSELECT 4\nuse mete\nSET index TO mete2\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41; \n4-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\noBrw&#58;Refresh&#40;&#46;t&#46;&#41;\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n\n   *if &#40;nFor&lt;16&#41;\n   *   loop\n   *endif\n\n   if nFor=21\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n\n\n\n\n   @ 18, 1 BUTTON &quot;&amp;New&quot;    OF oDlgn SIZE 40, 12 ACTION addmeter&#40; oLbx, &#46;t&#46; &#41;\n   @ 18, 8 BUTTON &quot;&amp;Modify&quot; OF oDlgn SIZE 40, 12  //ACTION Editmach&#40; oLbx, &#46;f&#46; &#41; \n   @ 18, 15 BUTTON &quot;&amp;Delete&quot; OF oDlgn  SIZE 40, 12  //ACTION Delrecord&#40; oLbx &#41;\n   @ 18, 22 BUTTON &quot;&amp;Search&quot; OF oDlgn SIZE 40, 12 //ACTION Seekmach&#40; oLbx &#41; \n   @ 18, 29 BUTTON &quot;&amp;Print&quot;  OF oDlgn ;\n      SIZE 40, 12;\n      ACTION oBrw&#58;Report&#40; &quot;Machines Report&quot;, &#46;t&#46; &#41; ;  // &#46;t&#46; --&gt; wants preview\n\n\n   @ 18, 36 BUTTON &quot;&amp;Exit&quot;   OF oDlgn ACTION oDlgn&#58;End&#40;&#41; SIZE 40, 12\n\n   @ 19,  1 BUTTON &quot;&amp;Order&quot;    OF oDlgn SIZE 40, 12 //ACTION ordermach&#40;oLbx&#41; \n   @ 19,  8 BUTTON &quot;&amp;Filter&quot;    OF oDlgn SIZE 40, 12 //ACTION metefilter&#40;oLbx&#41; \n   @ 19,  15 BUTTON &quot;&amp;Unfilter&quot; OF oDlgn SIZE 40, 12 //ACTION filtermachNotOk&#40;oLbx&#41; \n\n\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\nreturn nil \n[/code:18o99ils]','',0,'CIA=','18o99ils',1,0,'',148,0,0),(23561,5266,2,375,0,'84.122.120.74',1166261816,1,0,1,1,1,1,'','','Me he dado cuenta que el único problema es cuando utilizo la función SinEspa() y hace algún TRIM. Por ejemplo, si le quita dos espacios o más, no admite la nueva longitud de cadena, aunque si admite la nueva longitud mas 1.\n\nSerá cuestión de utilizar la función sin el SinEspa(), aunque esa no era mi idea original. Pensé que algo así ya se te había planteado. \n\nGracias de todas formas por tu paciencia.','',0,'CIA=','2tp7253t',1,0,'',375,0,0),(23562,5338,6,533,0,'83.54.232.104',1166262677,1,0,1,1,1,0,'','Desaparecen BMP','BUenos dias foro:\n\n   Tengo un problemita, y es que tengo varios btnbmp definidos, tanto en dialogos como en ventanas, y cuando cambio de aplicación con ctrl + tabulador, esas imagenes me desaparecen.  Los tengo definidos asi:\n\n redefine btnbmp o:aoButtons[7]  resource \"PEQUEÑO_AÑADIR\"    id 307 of o:odlg UPDATE TRANSPARENT ACTION AltasDetalle(o,objeto,.t.)\n            redefine btnbmp o:aoButtons[8]  resource \"PEQUEÑO_BORRAR\"    id 308 of o:odlg UPDATE TRANSPARENT ACTION msginfo(\"Buscar\")\n            redefine btnbmp o:aoButtons[9]  resource \"PEQUEÑO_MODIFICAR\" id 309 of o:odlg UPDATE TRANSPARENT ACTION AltasDetalle(o,objeto,.f.)\n            redefine btnbmp o:aoButtons[10] resource \"PEQUEÑO_IMPRESORA\" id 310 of o:odlg UPDATE TRANSPARENT ACTION msginfo(\"Buscar\")\n\nalguna ayuda?\n\nmuchas gracias','',0,'','3vr995jf',1,0,'',533,0,0),(23563,5337,3,707,0,'222.124.20.50',1166262933,1,0,1,1,1,0,'','','[b:3b0w4sn4]Ehab Amir Azis wrote[/b:3b0w4sn4]\n[code:3b0w4sn4]\nSELECT 4 \nuse mete \nSET index TO mete2 \nDBSETFILTER&#40;&amp;bFilter,cFilter&#41; \n4-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n[/code:3b0w4sn4]\n\n\n[b:3b0w4sn4]replace with this[/b:3b0w4sn4]\n[code:3b0w4sn4]\n   bFirst &#58;= &#123;|| mete-&gt;&#40;DbSeek&#40;cFilter, &#46;t&#46; &#41;&#41; &#125;\n   bLast  &#58;= &#123;|| iif&#40;Empty&#40;cFilter&#41;, ;\n                     mete-&gt;&#40;DbGoBottom&#40;&#41;&#41; , ;\n                     &#40;mete-&gt;&#40;DbSeek&#40;cFilter+&quot;999&quot;,&#46;T&#46;&#41;&#41;, ;\n                     meter-&gt;&#40;DbSkip&#40;-1&#41;&#41;&#41;&#41; &#125;\n   bWhile &#58;= &#123;|| mete-&gt;your_fieldname_for_filter == cFilter &#125;\n   bFor   &#58;= &#123;|| &#46;T&#46; &#125;\n\n   oBrw&#58;bGoTop    &#58;= &#123;||  TBFwFirst&#40;bFirst, bWhile, bFor&#41; &#125;\n   oBrw&#58;bGoBottom &#58;= &#123;||  TBFwLast&#40;bLast, bWhile, bFor&#41; &#125;\n   oBrw&#58;bSkip     &#58;= &#123;|n| TBFwSkip&#40;n, bWhile, bFor&#41; &#125;\n\n[/code:3b0w4sn4]\n\nthen add this source to your prg file\n\n[code:3b0w4sn4]\nFUNCTION TBFwFirst&#40;bGoFirst, bWhile, bFor&#41;\n\n  eval&#40;bGoFirst&#41;\n  DO WHILE !eof&#40;&#41; &#46;AND&#46; eval&#40;bWhile&#41; &#46;AND&#46; !eval&#40;bFor&#41;\n    SKIP\n  ENDDO\n\n  IF !eval&#40;bWhile&#41;\n    // no records match filter - could also be at eof already here\n    GOTO 0\n  ENDIF\n\nRETURN NIL\n\n\nFUNCTION TBFwLast&#40;bGoLast, bWhile, bFor&#41;\n\n  eval&#40;bGoLast&#41;\n  DO WHILE !bof&#40;&#41; &#46;AND&#46; eval&#40;bWhile&#41; &#46;AND&#46; !eval&#40;bFor&#41;\n    SKIP -1\n  ENDDO\n\n  IF bof&#40;&#41; &#46;OR&#46; !eval&#40;bWhile&#41;\n    // No records match scope\n    GOTO 0\n  ENDIF\n\nRETURN NIL\n\n\nFUNCTION TBFwSkip&#40;nToSkip, bWhile, bFor&#41;\n\nLOCAL nSkipped &#58;= 0, ;\n      nLastValidRecNum &#58;= Recno&#40;&#41;\n\n  IF nToSkip = 0\n    SKIP 0\n    RETURN 0\n  ENDIF\n\n  IF nToSkip &gt; 0\n    DO WHILE nSkipped &lt; nToSkip &#46;AND&#46; !eof&#40;&#41; &#46;AND&#46; eval&#40;bWhile&#41;\n      SKIP\n      // Note the last clause here makes a big speed difference\n      DO WHILE !eval&#40;bFor&#41; &#46;AND&#46; !eof&#40;&#41; &#46;AND&#46; eval&#40;bWhile&#41;\n        SKIP\n      ENDDO\n      IF Eval&#40;bWhile&#41; &#46;AND&#46; !eof&#40;&#41;\n        // Found a new record matching the scope\n        nSkipped++\n        nLastValidRecNum &#58;= Recno&#40;&#41;\n      ENDIF\n    ENDDO\n\n    IF eof&#40;&#41; &#46;OR&#46; !eval&#40;bWhile&#41;\n      GOTO nLastValidRecNum\n    ENDIF\n  ELSE\n    DO WHILE nSkipped &gt; nToSkip &#46;AND&#46; !bof&#40;&#41; &#46;AND&#46; eval&#40;bWhile&#41;\n      SKIP -1\n      // Note the last clause here makes a big speed difference\n      DO WHILE !eval&#40;bFor&#41; &#46;AND&#46; !bof&#40;&#41; &#46;AND&#46; eval&#40;bWhile&#41;\n        SKIP -1\n      ENDDO\n      IF Eval&#40;bWhile&#41; &#46;AND&#46; !bof&#40;&#41;\n        nSkipped--\n        nLastValidRecNum &#58;= Recno&#40;&#41;\n      ENDIF\n    ENDDO\n    IF !eval&#40;bWhile&#41; &#46;OR&#46; bof&#40;&#41;\n      GOTO nLastValidRecNum\n    ENDIF\n  ENDIF\n\nRETURN nSkipped\n[/code:3b0w4sn4]\n\nBest Regard \nareang','',0,'QIA=','3b0w4sn4',1,0,'',707,0,0),(23564,5331,6,375,0,'84.122.120.74',1166263313,1,0,1,1,1,1,'','','Eso supone hipotecar las funciones de bGotFocus y bLostFocus. Si estás dispuesto a modificar la clase GET puedes hacerlo permanente sin recurrir a esos codeblocks que algún día los vas a necesitar y ya los tendras utilizados con esto del color.\n\nEsto es lo que yo utilizo:\n\n[u:391pvdmy]Nuevos datas:[/u:391pvdmy]\n[b:391pvdmy]DATA nClrFore,nClrBack[/b:391pvdmy]  // Colores con Gets sin foco (colores del sistema)\n[b:391pvdmy]DATA nClrGFore,nClrGBack[/b:391pvdmy]  // Colores para Gets con foco\n\n[u:391pvdmy]Nuevo método INITIATE:[/u:391pvdmy]\nMETHOD Initiate( hDlg ) CLASS TUCLASE\nSuper:Initiate( hDlg )\n[b:391pvdmy]::nClrFore  := ::nClrText[/b:391pvdmy]  // toma colores del sistema\n[b:391pvdmy]::nClrBack  := ::nClrPane[/b:391pvdmy]\nRETURN NIL\n\n[u:391pvdmy]Nuevo método GOTFOCUS:[/u:391pvdmy]\nMETHOD GotFocus( hCtlLost ) CLASS TUCLASE\n[b:391pvdmy]IF ::nClrGFore # NIL[/b:391pvdmy]\n[b:391pvdmy]::SetColor(::nClrGFore,::nClrGBack) [/b:391pvdmy] // activa colores Gets con foco\n[b:391pvdmy]ENDIF[/b:391pvdmy]\nRETURN Super:GotFocus( hCtlLost )\n\n[u:391pvdmy]Nuevo método LOSTFOCUS:[/u:391pvdmy]\nMETHOD LostFocus( hCtlFocus ) CLASS TUCLASE\nLOCAL xRet := Super:LostFocus( hCtlFocus )\n[b:391pvdmy]IF ::nClrGFore # NIL[/b:391pvdmy]\n[b:391pvdmy]::SetColor(::nClrFore,::nClrBack)[/b:391pvdmy]  // activa colores Gets sin foco\n[b:391pvdmy]ENDIF[/b:391pvdmy]\nRETURN xRet\n\nÉsto si haz creado tu propia clase heredada, sinó, sólo copia las lineas [b:391pvdmy]resaltadas[/b:391pvdmy] referentes a los colores (en GotFocus: al rpincipio; en Initiate y LostFocus: al final, tras lo ya existente, para asegurar).\n\nParece mucho, pero no lo es, si copias lo aquí escrito y lo pegas en tu clase Get es muy rápido.\n\nSuerte...','',0,'QQ==','391pvdmy',1,0,'',375,0,0),(23565,5338,6,375,0,'84.122.120.74',1166263588,1,0,1,1,1,1,'','','Intenta redefinir esos botones al final del todo, es decir:\n\nDEFINE DIALOG .......\nREDEFINE ....\nREDEFINE ....\n\nETC...\n\nREDEFINE btnbmp o:aoButtons[7] resource \"PEQUEÑO_AÑADIR\" id 307 ...\nREDEFINE btnbmp o:aoButtons[8] resource \"PEQUEÑO_BORRAR\" ...\nREDEFINE btnbmp o:aoButtons[9] resource  ...\nREDEFINE btnbmp o:aoButtons108]   ...\n\nACTIVATE DIALOG ...\n...','',0,'','1iaark8y',1,0,'',375,0,0),(23567,5339,6,838,0,'80.59.225.15',1166265389,1,0,1,1,1,0,'','Altura de Combobox','Hola amigos\nEsto ya lo he leido en el foro pero no me ha quedado aclarado\nUsando la clase twbrowse de Hernán, la altura del combobox queda un poco \"chuchurria\" \n\n[url=http&#58;//imageshack&#46;us:rcmzri37][img:rcmzri37]http&#58;//img252&#46;imageshack&#46;us/img252/8644/combogx4&#46;jpg[/img:rcmzri37][/url:rcmzri37]\n\nPara arreglar ésto, he leido en el foro\n[quote:rcmzri37]Hi Jose ! \n\nThe solution is in twbrowse.prg . Please , search methods EditCols and etc. . You will find something similar as in below : \n\nCódigo: \n\n      case aItems != nil \n           @  aPos[ 1 ] + 1, aPos[ 2 ] + 1 COMBOBOX ::oGet VAR uVar ITEMS aItems ; \n              SIZE nWidth, Max( 200, Len( aItems ) * 25 ) OF Self ; \n              FONT oFont COLOR nClrFore, nClrBack ; \n              ON CHANGE ::End() ; \n              PIXEL \n \n\n\nIn this place you can change parameters of combobox view height and width . \n\nHope this help to you . Regards !\n[/quote:rcmzri37]\n\nOsea que hay que modificar la clase, pero en que sentido?,donde?.\nPara que se quede de la misma altura que las líneas del listbox.\n\nEsto si no hay una solución mejor.\n\nSaludos\n\nJose Luis','',0,'mA==','rcmzri37',1,0,'',838,0,0),(23568,5337,3,148,0,'196.205.178.39',1166268880,1,0,1,1,1,0,'','Not exported variable','I got that error :\nNot exported variable \nApplication\n===========\n   Path and name: E:\\programs\\clipper\\FWH\\sitex\\sitex.exe (32 bits)\n   Size: 1,527,808 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 16/12/2006, 13:09:05\n   Error description: Error BASE/1005  No exported variable: BGOTOP\n   Args:\n     [   1] = U   \n     [   2] = B   {|| ... }\n\nStack Calls\n===========\n   Called from:  =&gt; _BGOTOP(0)\n   Called from: sitex.prg =&gt; METE(4534)\n   Called from: sitex.prg =&gt; (b)BUILDMENU(164)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: sitex.prg =&gt; MAIN(137)\n\n[code:3pz70enp]\nSTATIC FUNCTION mete&#40; oWnd &#41;\n*--------------------------\n   local oChild, oBrw\n   Local oDlgn, oDbfc, oBrwc\n\n   local nRecNo  &#58;= RecNo&#40;&#41;\n   local new_rec  &#58;= 0\n   local oGet\n   local i&#58;=0\n   local nFor\n   local bFilter &#58;= &quot;&quot;\n   local cFilter &#58;= &quot;&quot;\n   local x &#58;= &quot;&quot;\n   local bFirst,bLast,bWhile,bFor,bGoTop,bGoBottom,bSkip\n\n\n\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n\n\n\nx &#58;= &quot;\'9855564\'&quot; \ncFilter &#58;= &quot;me_mc_serl = &quot;+ x \nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n\nSELECT 4\nuse mete\nSET index TO mete2\n\n   bFirst &#58;= &#123;|| mete-&gt;&#40;DbSeek&#40;cFilter, &#46;t&#46; &#41;&#41; &#125;\n   bLast  &#58;= &#123;|| iif&#40;Empty&#40;cFilter&#41;, ; \n                     mete-&gt;&#40;DbGoBottom&#40;&#41;&#41; , ; \n                     &#40;mete-&gt;&#40;DbSeek&#40;cFilter+&quot;999&quot;,&#46;T&#46;&#41;&#41;, ; \n                     mete-&gt;&#40;DbSkip&#40;-1&#41;&#41;&#41;&#41; &#125; \n   bWhile &#58;= &#123;|| mete-&gt;me_mc_serl == cFilter &#125; \n   bFor   &#58;= &#123;|| &#46;T&#46; &#125; \n\n   oBrw&#58;bGoTop    &#58;= &#123;||  TBFwFirst&#40;bFirst, bWhile, bFor&#41; &#125; \n   oBrw&#58;bGoBottom &#58;= &#123;||  TBFwLast&#40;bLast, bWhile, bFor&#41; &#125; \n   oBrw&#58;bSkip     &#58;= &#123;|n| TBFwSkip&#40;n, bWhile, bFor&#41; &#125; \n\n\n\n\n\n\nDEFINE DIALOG oDlgn  FROM 1,1 TO 50,140 TITLE &quot;Dialog Meter Works&quot; \n\n\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlgn &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n\n\n\noBrw&#58;Refresh&#40;&#46;t&#46;&#41;\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n\n   *if &#40;nFor&lt;16&#41;\n   *   loop\n   *endif\n\n   if nFor=21\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n\n\n\n\n   @ 18, 1 BUTTON &quot;&amp;New&quot;    OF oDlgn SIZE 40, 12 //ACTION addmeter&#40; oLbx, &#46;t&#46; &#41;\n   @ 18, 8 BUTTON &quot;&amp;Modify&quot; OF oDlgn SIZE 40, 12  //ACTION Editmach&#40; oLbx, &#46;f&#46; &#41; \n   @ 18, 15 BUTTON &quot;&amp;Delete&quot; OF oDlgn  SIZE 40, 12  //ACTION Delrecord&#40; oLbx &#41;\n   @ 18, 22 BUTTON &quot;&amp;Search&quot; OF oDlgn SIZE 40, 12 //ACTION Seekmach&#40; oLbx &#41; \n   @ 18, 29 BUTTON &quot;&amp;Print&quot;  OF oDlgn ;\n      SIZE 40, 12;\n      ACTION oBrw&#58;Report&#40; &quot;Machines Report&quot;, &#46;t&#46; &#41; ;  // &#46;t&#46; --&gt; wants preview\n\n\n   @ 18, 36 BUTTON &quot;&amp;Exit&quot;   OF oDlgn ACTION oDlgn&#58;End&#40;&#41; SIZE 40, 12\n\n   @ 19,  1 BUTTON &quot;&amp;Order&quot;    OF oDlgn SIZE 40, 12 //ACTION ordermach&#40;oLbx&#41; \n   @ 19,  8 BUTTON &quot;&amp;Filter&quot;    OF oDlgn SIZE 40, 12 //ACTION metefilter&#40;oLbx&#41; \n   @ 19,  15 BUTTON &quot;&amp;Unfilter&quot; OF oDlgn SIZE 40, 12 //ACTION filtermachNotOk&#40;oLbx&#41; \n\n\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\nreturn nil\n\n\n[/code:3pz70enp]','',0,'AIA=','3pz70enp',1,0,'',148,0,0),(23569,5338,6,2,0,'87.218.146.212',1166269941,1,0,1,1,1,1,'','','Mike,\n\nPor favor prueba fwh\\samples\\TestBtnB.prg y verifica si te ocurre igual, gracias. \n\nAqui funciona bien.','',0,'AIA=','c5wlk3wk',1,0,'',2,0,0),(23570,5340,2,74,0,'190.49.84.130',1166275905,1,0,1,1,1,1,'','De nuevo con el bitmap','Amigos :\n\nVulevo a reiterar la pregunta: tengo un bitmap como logo en un informe. Hay forma y como de escribir encima de un bitmap. Necesitaria escirbir los datos de los clientes, razon social, direccion, localidad y cuit\nUso tprinter\nDesde ya muchas gracias\n\nSaludos cordiales','',0,'AIA=','3pmot9fs',1,0,'',74,0,0),(23571,5305,2,774,0,'164.77.54.237',1166281571,1,0,1,1,1,1,'','','Si segun el manual se pueden abrir hasta 49 TAG,, dentro de un .CDX,,\n\nla duda es como abro dos cdx,, q pertenecen a la misma base DBF\n\n\nAlguien Sabe','',0,'AIA=','tubj9nay',1,0,'',774,0,0),(23572,5332,2,774,0,'164.77.54.237',1166281883,1,0,1,1,1,1,'','','resp 1:-  si deseas que el GET no se pueda editar,,  oGet:disabled() solo lo muestra sin edicion\n\nresp 2:- debes refrescar el Objeto q contiene la informacion .. asi\n\n&lt;Obj&gt;:refresh(),, supongamos q lo que quieres q se actualice esta en un GET  deberias hacer esto oGet:Refresh()\n\nespero te sirva','',0,'AIA=','29sg0726',1,0,'',774,0,0),(23573,5339,6,53,0,'189.139.96.229',1166283873,1,0,1,1,1,1,'','','José Luis:\n\nTomado de la clase\n//39) Nuevas variables ::nHeaderHeight, nFooterHeight, ::nLineHeight, que\n//    especifican el alto en pixels de Headers, Footers y Linea Standard del\n//    browse. Ya no depende la altura de la fuente. Por defecto las tres\n//    asumen el valor de la fuente, por compatibilidad.\n\nUna vez que hayas definido el Browse usa las siguientes líneas:\noBrw:nHeaderHeight	:= 20\noBrw:nFooterHeight	:= 15\noBrw:nLineHeight       := 25\n\nSaludos, Armando','',0,'AIA=','15qq4zgi',1,0,'',53,0,0),(23574,5341,6,519,0,'88.14.203.191',1166288609,1,0,1,1,1,0,'','EasyPreview  ?','Hola\n\n \n   Alguien sabe si el EasyPreview permite exportar a pdf  ? me he  bajado la demo y no me  aparece ese opción por ningun sitio.','',0,'AIA=','3lbb74z4',1,1166479606,'',519,1,0),(23575,5341,6,180,0,'83.54.13.183',1166290837,1,0,1,1,1,0,'','Re: EasyPreview  ?','[quote=&quot;Frafive&quot;:2ukbi2vc]Hola\n\n \n   Alguien sabe si el EasyPreview no permite exportar a pdf  ? me he  bajado la demo y no me  aparece ese opción por ningun sitio.[/quote:2ukbi2vc]\n\nAntiguamente lo permitía en versiones antiguas, pero al parecer daba problemas y eliminaron esa posibilidad.\nUn saludo,\nManuel','',0,'gA==','2ukbi2vc',1,0,'',180,0,0),(23576,5330,3,233,0,'218.111.211.155',1166291924,1,0,1,1,1,0,'','','Well here\'s the result of my test. I couldn\'t get TortoiseCVS to download xHarbour source for some reason. Luckily the binaries for xHarbour 0.99.70 is already out.\n\nEven after I recompiled with latest xHarbour, [i:13132gm1]oSay[/i:13132gm1] still doesn\'t get updated as the value held by [i:13132gm1]no[/i:13132gm1] var is incremented. I couldn\'t get the result that Enrico got. Only by doing what Antonio suggested (linking in TSay of an older version) was I able to get [i:13132gm1]oSay[/i:13132gm1] behaving like I wanted. Unfortunately, by doing so [i:13132gm1]oSay2[/i:13132gm1] doesn\'t get updated anymore','',0,'IA==','13132gm1',1,0,'',233,0,0),(23577,5342,7,527,0,'81.34.60.115',1166292387,1,0,1,1,1,0,'','Ayuda con menus','alguno de vosotros puede enviarme un ejemplo de como crear un [b:2dynvpac]menu[/b:2dynvpac] de la siguiente forma por favor\n* En la parte inferior por ejemplo\n[b:2dynvpac]opcion 1\nopcion 2\nopcion 3[/b:2dynvpac]\n* De cada una de las opciones (1-2-3) al realizar un click que me abra otro menu por ejemplo\n   [b:2dynvpac]opcion 1\n          opcion 1a\n          opcion 2b\n   opcion 2\n   opcion 3[/b:2dynvpac]','',0,'QA==','2dynvpac',1,0,'',527,0,0),(23578,5339,6,838,0,'80.59.225.15',1166292863,1,0,1,1,1,0,'','','Gracias por contestar Armando.\nLo que hace el no leer atentamente todo, en fin he puesto una altura suficiente y así me puedo apañar\n[url=http&#58;//imageshack&#46;us:34uypvkq][img:34uypvkq]http&#58;//img378&#46;imageshack&#46;us/img378/5503/combo1iw2&#46;jpg[/img:34uypvkq][/url:34uypvkq]\n\nPero como verás sigue quedando un poco desplazado el combo hacia abajo. No habría alguna manera de centrarlo totalmente en la línea?.\nPor pura éstética.\n\nGracias y saludos\n\nJose Luis','',0,'GA==','34uypvkq',1,0,'',838,0,0),(23579,5305,2,9,0,'85.54.229.204',1166294186,1,0,1,1,1,1,'','','[quote=&quot;A&amp;C&quot;:1r41bpv9]la duda es como abro dos cdx,, q pertenecen a la misma base DBF.[/quote:1r41bpv9]\n\nTe lo indicaba en mi anterior respuesta:\n\n   SET INDEX TO indice1, indice2,.....\n\nSiendo indice1 e indice2 dos ficheros cdx distintos.','',0,'gA==','1r41bpv9',1,0,'',9,0,0),(23580,5343,2,890,0,'200.69.108.238',1166294763,1,0,1,1,1,0,'','¿Como hago el archivo .lnk paracompilar?','Hola a todos\nQuisiera que alguien me enseñe a hacer  el archivo .lnk para linkear con blinker 5.1. tengo el demo de fivewin y compilo con clipper 5.2 el ejecutable se esta generando pero no se ejecuta dice que un error de proteccion general a ocurrido.\n\nUn  abrazo a todos y feliz navidad para todos los integrantes de este foro','',0,'gA==','2h7rcnya',1,0,'',890,0,0),(23581,5344,6,75,0,'83.37.216.109',1166303054,1,0,1,1,1,0,'','Cual es el nombre del fichero dado el alias','Pues eso, sabiendo el ALIAS como se averigua el nombre del fichero de bases de datos correspondiente.\n\nLo necesito para borrar el fichero despues de terminar de usarlo.','',0,'gA==','1804fge9',1,0,'',75,0,0),(23582,5305,2,228,0,'200.105.63.190',1166307807,1,0,1,1,1,1,'','Amigo...','Amigo para seleccionar el indice en tiempo de ejecucion.. lo debes hacer de la siguiente manera.,.\n\nSELE mydbf\nOrdsetfocus(1) &lt;------ numerio del indice que necesitas consultas\nIF Dbseek().....l\n\n\nEspero te sirva','',0,'gA==','2ua4ngs7',1,0,'',228,0,0),(23583,5342,7,2,0,'87.218.146.233',1166310805,1,0,1,1,1,1,'','','Revisa este post para entender como se definen los menus:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4857\">http://fivetechsoft.com/forums/viewtopic.php?t=4857</a><!-- m -->','',0,'gA==','2r3wbotw',1,0,'',2,0,0),(23584,5332,2,812,0,'201.214.35.230',1166326448,1,0,1,1,1,0,'','Trozo del programa a corregir','Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el \" Id 30 \" es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.\n\nSi me puedes ayudar, desde ya te doy las gracias,\n\nHa, soy de Santiago de Chile.\n\nSaludos.\n\nMiguel Rivera\n\n[quote=&quot;A&amp;C&quot;:10r53mv0]resp 1:-  si deseas que el GET no se pueda editar,,  oGet:disabled() solo lo muestra sin edicion\n\nresp 2:- debes refrescar el Objeto q contiene la informacion .. asi\n\n&lt;Obj&gt;:refresh(),, supongamos q lo que quieres q se actualice esta en un GET  deberias hacer esto oGet:Refresh()\n\nespero te sirva[/quote:10r53mv0]','',0,'gA==','10r53mv0',1,0,'',812,0,0),(23585,5332,2,812,0,'201.214.35.230',1166326492,1,0,1,1,1,0,'','Trozo del programa a corregir','Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el \" Id 30 \" es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.\n\nSi me puedes ayudar, desde ya te doy las gracias,\n\nHa, soy de Santiago de Chile.\n\nSaludos.\n\nMiguel Rivera\n\n*****\n  Define Cursor oCurDedo Resource \"Dedo\"\n  Define Dialog oDlgEdit Resname \"Clientes\"\n     Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture \"999\" Color \"w+/b*\"\n     Redefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture \"@!\"  Color \"w+/b*\"\n     Redefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/b*\"\n     Redefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/b*\"\n     Redefine BitMap Id 113 Adjust Resource \"Buscar1\" Of oDlgEdit Cursor oCurDedo;\n              On Click (nCiudad := SacaCiudad(NCiudad,aNomCiudad[nCiudad],aNomCiudad),oCiu_cli1:Refresh())\n\n\n\n[quote=&quot;A&amp;C&quot;:2yop1axh]resp 1:-  si deseas que el GET no se pueda editar,,  oGet:disabled() solo lo muestra sin edicion\n\nresp 2:- debes refrescar el Objeto q contiene la informacion .. asi\n\n&lt;Obj&gt;:refresh(),, supongamos q lo que quieres q se actualice esta en un GET  deberias hacer esto oGet:Refresh()\n\nespero te sirva[/quote:2yop1axh]','',0,'gA==','2yop1axh',1,0,'',812,0,0),(23586,5342,7,527,0,'83.33.114.216',1166351060,1,0,1,1,1,0,'','Menus','Este no me sirve, necesitaba un ejemplo de un menu como en de una aplicacion de PC. Por ejemplo maestros y que me abra otro menu (clientes,proveedores, articulos), dentro de articulos por ejemplo que me abra (añadir, modificar, eliminar, etc)\n\n\ngracias.','',0,'gA==','2sl9wx7g',1,0,'',527,0,0),(23587,5342,7,2,0,'87.218.146.226',1166359628,1,0,1,1,1,1,'','','Aqui tienes el ejemplo que comentas, hecho <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\ntestmnu2.prg:\n[code:3o1bt4bo]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;TestMenu&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n      \nreturn nil\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   DEFINE MENU oMenu RESOURCE 102\n\n   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo&#40; &quot;Clientes&quot; &#41;\n\n   REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo&#40; &quot;Proveedores&quot; &#41;\n   \n   REDEFINE MENUITEM ID 1310 OF oMenu ACTION MsgInfo&#40; &quot;Añadir&quot; &#41;\n\n   REDEFINE MENUITEM ID 1320 OF oMenu ACTION MsgInfo&#40; &quot;Modificar&quot; &#41;\n\n   REDEFINE MENUITEM ID 210 OF oMenu ACTION MsgInfo&#40; &quot;Albaranes&quot; &#41;\n\n   REDEFINE MENUITEM ID 310 OF oMenu ACTION MsgInfo&#40; &quot;Manual&quot; &#41;\n\nreturn oMenu\n[/code:3o1bt4bo]\nTestMnu2.rc:\n[code:3o1bt4bo]\n#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\n#define I_IMAGENONE		&#40;-2&#41;\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n  102, 3,\n  I_IMAGENONE, 100, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 100, 0, 0,  \n  I_IMAGENONE, 200, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 200, 0, 1,  \n  I_IMAGENONE, 300, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 300, 0, 2  \nEND\n#endif\n\nSTRINGTABLE DISCARDABLE \nBEGIN\n   100 &quot;Maestros&quot;\n   200 &quot;Varios&quot;\n   300 &quot;Ayuda&quot;\nEND\n\n102 MENU DISCARDABLE \nBEGIN\n    POPUP &quot;&quot;\n    BEGIN\n        MENUITEM &quot;Clientes&quot;,    110\n        MENUITEM &quot;Proveedores&quot;, 120\n        POPUP &quot;Artículos&quot;\n        BEGIN\n           MENUITEM &quot;Añadir&quot;,    1310\n           MENUITEM &quot;Modificar&quot;, 1320\n           MENUITEM &quot;Eliminar&quot;,  1330\n        END\n    END\n\n    POPUP &quot;&quot;\n    BEGIN\n        MENUITEM &quot;Albaranes&quot;, 210\n        MENUITEM &quot;Facturas&quot;, 220\n    END\n\n    POPUP &quot;&quot;\n    BEGIN\n        MENUITEM &quot;Manual&quot;, 310\n        MENUITEM SEPARATOR\n        MENUITEM &quot;Acerca de&#46;&#46;&#46;&quot;, 320\n    END\nEND\n[/code:3o1bt4bo]\nAsí queda:\n[url=http&#58;//imageshack&#46;us:3o1bt4bo][img:3o1bt4bo]http&#58;//img219&#46;imageshack&#46;us/img219/8785/menu1mr3&#46;png[/img:3o1bt4bo][/url:3o1bt4bo]\n[url=http&#58;//imageshack&#46;us:3o1bt4bo][img:3o1bt4bo]http&#58;//img218&#46;imageshack&#46;us/img218/3299/menu2kj0&#46;png[/img:3o1bt4bo][/url:3o1bt4bo]\n[url=http&#58;//imageshack&#46;us:3o1bt4bo][img:3o1bt4bo]http&#58;//img214&#46;imageshack&#46;us/img214/5946/menu3lr4&#46;png[/img:3o1bt4bo][/url:3o1bt4bo]','',0,'GIA=','3o1bt4bo',1,0,'',2,0,0),(23588,4857,7,2,0,'87.218.146.226',1166359892,1,0,1,1,1,1,'','','&gt; Cada menuitem termina en 0, salvo el último que termina en 1. \n\nEsto es erróneo. Cada menuitem, en el RCDATA del fichero RC, \nha de terminar en un número consecutivo, empezando por cero.\n\nAqui teneis un ejemplo completo:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5342\">http://fivetechsoft.com/forums/viewtopic.php?t=5342</a><!-- m -->','',0,'GIA=','1ua7dbib',1,0,'',2,0,0),(23589,5342,7,527,0,'83.39.2.58',1166364632,1,0,1,1,1,0,'','GRACIAS','GRACIAS.','',0,'GIA=','2eyssdt7',1,0,'',527,0,0),(23590,5345,3,303,0,'72.199.41.171',1166370888,1,0,1,1,1,0,'','Supressing MAP and TDS files','Is there a way to supress the generation of the MAP and TDS files? These files are quite large. I am using the buildx.bat file. I know I could just add code to the bat file to delete them, but this would make matters worse. If I just leave them I have one copy of each per PRG. If I delete them with each compile, then I will have one copy of each (MAP, TDS) for EACH compile in my trash folder.\n\nI looked at the flags for both Borland and xHarbour and I don\'t see an option to supress them (I don\'t know which compiler generates them).\n\nAny ideas?\n\nJames','',0,'GIA=','1itbszzx',1,0,'',303,0,0),(23591,5346,3,456,0,'217.124.40.44',1166379553,1,0,1,1,1,1,'','Error AdoDb with Harbour','How I can do this, but with harbour code not xHarbour.\n\n[code:sfrggefa]\n       TRY\n          &#58;&#58;oRs&#58;AddNew&#40;&#41;\n       CATCH oError\n          lResult &#58;= &#46;F&#46;\n          MsgStop&#40;oError&#58;Operation,&quot;Ado RecordSet&quot;&#41;\n       END\n[/code:sfrggefa]\nThanks in advance.','',0,'AIA=','sfrggefa',1,0,'',456,0,0),(23592,5345,3,6,0,'87.10.10.181',1166380010,1,0,1,1,1,1,'','Re: Supressing MAP and TDS files','For the MAP files, it is enough to not specify it. Unfortunately I don\'t think you can avoid TDS files.\n\nEMG','',0,'AIA=','1cx2xc63',1,0,'',6,0,0),(23593,5347,3,69,0,'74.13.54.32',1166380411,1,0,1,1,1,0,'','Bluetooth (2nd try)','Hi Everybody,\n\nI am wondering if I can read data from a bluetooth enabled device via FWH.\n\nI am not looking to send data to the device.\n\nDoes anyone know if this is possible?  Can you point me in the right direction.\nThis is the first time I have tried to do anything with bluetooth so I\'m not sure exactly how this would work.\n\n\nThanks,\n\nJeff','',0,'AIA=','k3iz5dw6',1,0,'',69,0,0),(23594,5348,6,64,0,'201.72.124.2',1166383080,1,0,1,1,1,1,'','SDK GRFINGER ACTIVEX - necessito ajuda','baixei o SDK GrFinger para trabalhar com leitura de impressão digital (FINGERPRINT) com o leitor USB da Microsoft.\n\n[url:324vsy5l]http&#58;//www&#46;griaule&#46;com/page/pt-br/grfinger_sdk[/url:324vsy5l]\n\nEstou com dificuldades em uma função para mostrar a imagem capturada.\nDepois de alguns testes consegui apenas fazer a inicialização do controle:\n\n// Carregando o Controle Activex\noFingerX = TActiveX():New( oWnd, \"GrFingerX.GrFingerXCtrl\") \noWnd:oClient = oFingerX\nretVal1:=oFingerX:Do(\"Initialize\")\n//Criando o contexto\ncontextId:=0\nretVal2:=oFingerX:Do(\"CreateContext\",contextId)\n//Inicializando a captura\nretVal3:=oFingerX:Do(\"CapInitialize\")\nretVal4:=oFingerX:Do(\"CapStartCapture\",\'DPMS040802\')\n\nA próxima função a ser chamada é BiometricDisplay() mas não estou conseguindo, abaixo segue o sample em C oferecido pelo SDK. Como fazer em FW + xHarbour.com?\n\nDECLARATION C#\nint BiometricDisplay (ref Array tptQuery,ref Object rawImage, int width, int height, int hdc, ref stdole.IPictureDisp handle, int matchContext)\n\nSAMPLE C#\npublic class TTemplate\n{\n	// Template data.\n	public Array _tpt;\n	// Template size\n	public int _size;\n\n	public TTemplate(){\n		// Create a byte buffer for the template\n	   _tpt = new byte[(int)GRConstants.GR_MAX_SIZE_TEMPLATE];\n	   _size = 0;\n	}\n}\n\n// Raw image data type.\npublic struct TRawImage \n{\n	// Image data.\n	public object img;\n	// Image width.\n	public int width;\n	// Image height.\n	public int height;\n	// Image resolution.\n	public int Res;\n};\n\nIPictureDisp handle = null;		\n// screen HDC\nIntPtr hdc = GetDC(System.IntPtr.Zero);\n\n_grfingerx.BiometricDisplay(ref _tpt._tpt, ref raw.img, _raw.width, _raw.height, _raw.Res,hdc.ToInt32(), ref handle,(int)contextId);\n\n// draw image on picture box\nif (handle != null) \n{\n	_pbPic.Image = GrFingerXSampleCS.\n	ImageConverter.IpictureToImage(handle);\n	_pbPic.Update();\n}\nReleaseDC(System.IntPtr.Zero,hdc);','',0,'EA==','324vsy5l',1,0,'',64,0,0),(23595,5347,3,2,0,'87.218.146.16',1166387698,1,0,1,1,1,1,'','','Jeff,\n\nIt looks as the bluetooth uses a COM port, so you may be able to use fwh\\samples\\phone.prg and samples\\TestComm.prg as a model.','',0,'EA==','3ra3ukgs',1,0,'',2,0,0),(23596,5346,3,2,0,'87.218.146.16',1166387875,1,0,1,1,1,1,'','','Biel,\n\nYou may use standard BEGIN SEQUENCE commands:\n[code:330ghkos]\n     BEGIN SEQUENCE\n        &lt;statements&gt;&#46;&#46;&#46;\n     &#91;BREAK &#91;&lt;exp&gt;&#93;&#93;\n        &lt;statements&gt;&#46;&#46;&#46;\n     &#91;RECOVER &#91;USING &lt;idVar&gt;&#93;&#93;\n        &lt;statements&gt;&#46;&#46;&#46;\n     END &#91;SEQUENCE&#93;\n[/code:330ghkos]\nThere is a sample of use at Clipper norton guides. Here is another one:\n[code:330ghkos]\n   bError = ErrorBlock&#40; &#123; | o | Break&#40; o &#41; &#125; &#41;\n   BEGIN SEQUENCE\n      &amp;cPP\n   RECOVER USING oError\n      ShowError&#40; oError &#41;\n   END SEQUENCE   \n   ErrorBlock&#40; bError &#41; \n[/code:330ghkos]','',0,'AIA=','330ghkos',1,0,'',2,0,0),(23597,5345,3,303,0,'72.199.41.171',1166390212,1,0,1,1,1,0,'','','I found the solution. If you delete files from a batch file, they DON\'T go to the trash bin. Nice to know.\n\nJames','',0,'AIA=','3tqh5p72',1,0,'',303,0,0),(23598,5344,6,2,0,'87.218.146.16',1166390808,1,0,1,1,1,1,'','','#include \"dbinfo.ch\"\n\n...\n\nMsgInfo( ( Alias )-&gt;( DbInfo( DBI_FULLPATH ) ) )','',0,'AIA=','3hd7wwy4',1,0,'',2,0,0),(23599,5347,3,69,0,'74.13.54.32',1166390835,1,0,1,1,1,0,'','','Thanks Antonio.\n\n\n\nJeff','',0,'AIA=','23rtf8o7',1,0,'',69,0,0),(23600,5347,3,303,0,'72.199.41.171',1166391102,1,0,1,1,1,0,'','','Jeff,\n\nHere is an MS reference that might help.\n\nBluetooth Programming with Windows Sockets\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/aa362928.aspx\">http://msdn2.microsoft.com/en-us/library/aa362928.aspx</a><!-- m -->\n\nIt looks like it is going to be a fair amount of work. I advise creating a bluetooth class.\n\nJames','',0,'AIA=','224qnira',1,0,'',303,0,0),(23601,5343,2,2,0,'87.218.146.16',1166392503,1,0,1,1,1,1,'','','Usa el fichero .LNK que está en el directorio include.\n\nSi da un GPF, entonces incluye MAP A,S en el fichero LNK. Se creará un fichero MAP y has de buscar la dirección del GPF dentro de él.\n\nSi no sabes cómo, copia aqui la dirección del GPF y adjunta el fichero MAP (súbelo a <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> y pones aqui la url de descarga).','',0,'AIA=','1xymowrt',1,0,'',2,0,0),(23602,5347,3,2,0,'87.218.146.16',1166392688,1,0,1,1,1,1,'','','James,\n\nWe have not tested bluetooth with a PC, but on the Pocket PC there are several ways to use the bluetooth: as a COMM port or using sockets. I guess the same may be applied to the PC.','',0,'AIA=','1n9xkoe5',1,0,'',2,0,0),(23603,5182,6,2,0,'87.218.146.16',1166392977,1,0,1,1,1,1,'','','Jackson,\n\nQue error es ?\n\nHemos modificado samples\\TestDtp.prg de esta forma:\n\n   local dDate := CToD( \"\" ) // Date()\n\ny funciona bien.','',0,'AIA=','1mn3p0yd',1,0,'',2,0,0),(23604,5202,6,2,0,'87.218.146.16',1166393140,1,0,1,1,1,1,'','','Haz oBrowse:cAlias := \"\" mientras editas un registro, así evitas que el browse se repinte y mueva el registro seleccionado.','',0,'AIA=','18ivki7l',1,0,'',2,0,0),(23605,5321,3,2,0,'87.218.146.16',1166393191,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5347\">http://fivetechsoft.com/forums/viewtopic.php?t=5347</a><!-- m -->','',0,'AIA=','tiwtafu4',1,0,'',2,0,0),(23606,5308,3,2,0,'87.218.146.16',1166393360,1,0,1,1,1,1,'','','Milan,\n\nDOS error 2 means the file can not be found. When you map the drive, its found and there is no error.','',0,'AIA=','2j27wnum',1,0,'',2,0,0),(23607,5300,3,2,0,'87.218.146.16',1166394091,1,0,1,1,1,1,'','','Marc,\n\nfwh\\source\\winapi\\help32.prg function HtmlHelp() and related need to be modified this way (PASCAL clause was missing):\n[code:1bmzfavi]\nDLL32 Function HTMLHelp&#40; ;\n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, nTopic As LONG &#41; ;\n   As LONG PASCAL From &quot;HtmlHelpA&quot; Lib &quot;hhctrl&#46;ocx&quot;\n\nDLL32 Function HTMLHelpCtx&#40; ;\n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, cTopic As LPSTR &#41; ;\n   As LONG PASCAL From &quot;HtmlHelpA&quot; Lib &quot;hhctrl&#46;ocx&quot;\n\nDLL32 Function HTMLHelpPopup&#40; ;\n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, @sPopUp As LPSTR &#41; ;\n   As LONG PASCAL From &quot;HtmlHelpA&quot; Lib &quot;hhctrl&#46;ocx&quot;\n[/code:1bmzfavi]','',0,'AIA=','1bmzfavi',1,0,'',2,0,0),(23608,5299,6,2,0,'87.218.146.16',1166394226,1,0,1,1,1,1,'','','Marc,\n\nLa función HtmlHelp() en fwh\\source\\winapi\\help32.prg y asociadas, tienen que modificarse de esta forma (faltaba el uso de la claúsula PASCAL): \n[code:3vqxtu4n]\nDLL32 Function HTMLHelp&#40; ; \n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, nTopic As LONG &#41; ; \n   As LONG PASCAL From &quot;HtmlHelpA&quot; Lib &quot;hhctrl&#46;ocx&quot; \n\nDLL32 Function HTMLHelpCtx&#40; ; \n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, cTopic As LPSTR &#41; ; \n   As LONG PASCAL From &quot;HtmlHelpA&quot; Lib &quot;hhctrl&#46;ocx&quot; \n\nDLL32 Function HTMLHelpPopup&#40; ; \n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, @sPopUp As LPSTR &#41; ; \n   As LONG PASCAL From &quot;HtmlHelpA&quot; Lib &quot;hhctrl&#46;ocx&quot; \n[/code:3vqxtu4n]','',0,'AIA=','3vqxtu4n',1,0,'',2,0,0),(23609,5134,7,2,0,'87.218.146.16',1166394647,1,0,1,1,1,1,'','','Cualquiera que use el procesador intel xscale ó compatibles.\n\nBusca en google por \"pda intel xscale\" ó \"pocket pc intel xscale\"','',0,'AIA=','ox6lvxum',1,0,'',2,0,0),(23610,5153,22,2,0,'87.218.146.16',1166394780,1,0,1,1,1,1,'','','Hua,\n\nWe are organizing a FiveTech wiki at:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/wiki\">www.fivetechsoft.com/wiki</a><!-- w -->\n\nIts empty by now. If someone wants to cooperate on its development, please request a login and password from us.','',0,'AIA=','2f0a62uk',1,0,'',2,0,0),(23611,5301,2,2,0,'87.218.146.16',1166395079,1,0,1,1,1,1,'','','Daniel,\n\nSe previsualiza bien ? Prueba a cambiar el orden: escribe primero y dibuja el bitmap después, ó al revés.','',0,'AIA=','1hzrhas5',1,0,'',2,0,0),(23612,5332,2,348,0,'201.230.121.42',1166396003,1,0,1,1,1,0,'','','No se si entendi bien el problema  pero creo que ese \"ID 30\"  lo pondria como GET y no como SAY  ..  y le agrego un READONLY  \n\nespero que te ayude \n\nLubin\n\nDefine Cursor oCurDedo Resource \"Dedo\" \nDefine Dialog oDlgEdit Resname \"Clientes\" \nRedefine [color=red:1xeq2p0n][b:1xeq2p0n]GET[/b:1xeq2p0n][/color:1xeq2p0n] oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture \"999\" [b:1xeq2p0n][color=red:1xeq2p0n]READONLY[/color:1xeq2p0n][/b:1xeq2p0n]  Color \"w+/b*\" \nRedefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture \"@!\" Color \"w+/b*\" \nRedefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update Picture \"@!\" Color \"w+/b*\" \nRedefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update Picture \"@!\" Color \"w+/b*\"','',0,'Qg==','1xeq2p0n',1,0,'',348,0,0),(23613,1808,2,348,0,'201.230.121.42',1166397022,1,0,1,1,1,0,'','','Mi estimado amigo, te m,olestaria enviarme esas fuentes y la clase utilizada y mencionada si no es molestia,  me ayudaria bastante,\nGracias. lubin\n\n[quote=&quot;devwin2004&quot;:2i3gdnpm]Estimados Colegas\n\nPueden descargar  una demo  que contiene un browse para facturacion\ncon tsbrowse (clipper) desde <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->\nal que le interese le puedo enviar los fuentes del modulo de facturacion\n\nGracias\nDEvwin2004[/quote:2i3gdnpm]','',0,'gA==','2i3gdnpm',1,0,'',348,0,0),(23614,5332,2,774,0,'200.72.191.127',1166407525,1,0,1,1,1,1,'','','estimado\nsegun lo que me mandaste el codigo fuente..\ntu deseas refrescar el SAY existente,, pero con que informacion no esta claro eso, y con que rutina de ,, o al hacer que cosa se actualizara la informacion del SAY\n\nDIME','',0,'gA==','252svl43',1,0,'',774,0,0),(23615,5308,3,160,0,'220.225.17.210',1166416623,1,0,1,1,1,0,'','','Dear Antonio,\n\nNo my problem is like this :\n\nSuppose using My computer I go \\\\server\\c\\test and then click on abc.exe, dos error 2 occurs.\n\nInstead I map \\\\server\\c to Z: drive and then go z:\\test\\ and click on abc.exe DOS error 2 do not occur.\n\nThis was not happening before. Even my pure xHarbour code works fine. \n\nCan you shed light on what am I doing wrong ?\n\nTIA\nMilan.\n\n[quote=&quot;Antonio Linares&quot;:z240qjwu]Milan,\n\nDOS error 2 means the file can not be found. When you map the drive, its found and there is no error.[/quote:z240qjwu]','',0,'gA==','z240qjwu',1,0,'',160,0,0),(23616,5308,3,2,0,'87.218.146.24',1166428551,1,0,1,1,1,1,'','','Milan,\n\nDo you get the same error with samples\\tutor02.prg ? thanks,','',0,'gA==','gi61s7dk',1,0,'',2,0,0),(23617,5346,3,456,0,'62.43.194.117',1166429401,1,0,1,1,1,1,'','','Ok, thanks Antonio I will try.','',0,'gA==','102u1fdn',1,0,'',456,0,0),(23618,5349,3,303,0,'72.199.41.171',1166431356,1,0,1,1,1,0,'','msgInfo() bug?','I just noticed that with FWH 2.7 Aug 2006 build this causes a crash:\n\nmsgInfo( date() )\n\nI think we used to be able to pass date type data. It now comes up with the send error report to Microsoft question.\n\nI am also using xHarbour 99.61 (the one that came with FWH, Aug 2006 build).\n\nJames','',0,'gA==','3nn24hhn',1,0,'',303,0,0),(23619,5349,3,6,0,'87.1.198.176',1166431462,1,0,1,1,1,1,'','Re: msgInfo() bug?','It works fine with latest FWH.\n\nEMG','',0,'gA==','24recf24',1,0,'',6,0,0),(23620,5350,7,123,0,'83.59.155.21',1166432118,1,0,1,1,1,0,'','Error de compilación VCE','Hola,\n\nCompilando un módulo C con el Vce me da el siguiente error:\n\n[quote:bfbk795b]c:\\trabajos\\trab\\globalprn\\utils_c2.c(1156) : error C2223: left of \'-&gt;pSymbol\' must point to struct/union[/quote:bfbk795b]\n\nY el código en cuestión es:\n\n[code:bfbk795b]HB_EXPORT PHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41;\n&#123;\nreturn pDynSym-&gt;pSymbol;\n&#125;[/code:bfbk795b]\n\n¿Alguna idea de cómo sustituir ese código por alguna función que me devuelva el símbolo ?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'gIA=','bfbk795b',1,0,'',123,0,0),(23621,5336,3,67,0,'62.235.24.62',1166433184,1,0,1,1,1,0,'','','Fantastic product. Friday evening , i reported 4 problems to adrian Nelson :\n\n1) Using importwmf from fwh wasn\'t possible :\n    Solved , received new DLL\n2) Problems with FONTS with UNDERLINE clause\n    Solved\n3) € sign not converted : not yet solved , he is working on it\n4) Imagestamp : not yet solved , he is working on it\n\nFor those who are intrested : a complete working sample ( only +/- 100 lines) can be send on demand : <!-- e --><a href=\"mailto:demont.frank@scarlet.be\">demont.frank@scarlet.be</a><!-- e -->','',0,'gIA=','1eplfnbb',1,0,'',67,0,0),(23622,5349,3,303,0,'72.199.41.171',1166433871,1,0,1,1,1,0,'','','Thanks, Enrico.\n\nJames','',0,'gIA=','25e9twpv',1,0,'',303,0,0),(23623,5350,7,2,0,'87.218.146.222',1166434194,1,0,1,1,1,1,'','','José Luis,\n\nEsa función puedes eliminarla ya que está incluida en el build más reciente de Harbour para Pocket PC.','',0,'gIA=','2zp1x9uy',1,0,'',2,0,0),(23624,5308,3,160,0,'220.225.17.210',1166436534,1,0,1,1,1,0,'','','Dear Antonio,\n\nMy fault. To explain you more,  that error occurs only when it tries to open a dbf file. Rest works fine.\n\nTIA\nMilan.\n\n[quote=&quot;Antonio Linares&quot;:1smb8oy0]Milan,\n\nDo you get the same error with samples\\tutor02.prg ? thanks,[/quote:1smb8oy0]','',0,'gA==','1smb8oy0',1,0,'',160,0,0),(23626,5352,7,123,0,'83.59.155.21',1166436908,1,0,1,1,1,0,'','Función ISOEM','Antonio,\n\nAl compilar un módulo C con el VCE y el Harbour para VCE me da el siguiente error de enlazado:\n\n[quote:11agb61m]	SET LIB=c:\\vce\\lib\n	c:\\vce\\bin\\link @msvc.tmp /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM\n   Creating library globalprn.lib and object globalprn.exp\nwbrowse.obj : error LNK2001: unresolved external symbol HB_FUN_ISOEM\nglobalprn.exe : fatal error LNK1120: 1 unresolved externals[/quote:11agb61m]\n\n\nParece ser que esa función ISOEM es llamada desde un módulo PRG.  Existe en FWPPC ?? Caul podría ser su \'sustituto\'?\n\nSaludos y gracias!\nJosé Luis Capel','',0,'gA==','11agb61m',1,0,'',123,0,0),(23627,5353,22,49,0,'213.82.134.66',1166441638,1,0,1,1,1,1,'','Class bluetooth','There are many classese to ask :\n\n1. support bluetooth also in fwh \n2. Ocr class recognition\n3. sms send /receive\n4. calendar with tscheduling ( as <!-- m --><a class=\"postlink\" href=\"http://www.componentsource.com/products/expressscheduler/index.html\">http://www.componentsource.com/products ... index.html</a><!-- m -->)\n5. Map gps\n6. Small draw component\n7. Biometrics Authentication\n8.Wireless, Handheld and Mobile\n9.Spreadsheet\n10. Software Licensing ( creation installing code as xxxx-xxxx-xxxx-xxxx -x as <!-- m --><a class=\"postlink\" href=\"http://www.componentsource.com/res/pub/img/products/full/514284.gif\">http://www.componentsource.com/res/pub/ ... 514284.gif</a><!-- m --> )','',0,'gA==','2g8ej4gf',1,0,'',49,0,0),(23628,5354,7,123,0,'83.59.155.21',1166441761,1,0,1,1,1,0,'','Depurar en FWPPC','Antonio,\n\nParece ser que la función OutputdebugString funciona para EVC.  ¿Conoces alguna utilidad para capturar la salida de esta función en PPC?\n\nSaludos y gracias,\nJosé Luis Capel','',0,'gA==','39s2zbnp',1,0,'',123,0,0),(23629,5355,6,569,0,'201.248.249.178',1166446576,1,0,1,1,1,0,'','bajar TOLEAUTO','Para los colegas que pudieran estar interesados en TOLEAUTO; pueden bajarlo de esta direccion.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/UD34P0YI/hbole.zip.html\">http://www.uploading.com/files/UD34P0YI/hbole.zip.html</a><!-- m -->\n\nRODOLFO SILVA \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','u90i4ckf',1,0,'',569,0,0),(23630,5356,7,527,0,'83.55.37.249',1166448006,1,0,1,1,1,0,'','Ayuda con apertura de ficheros POR FAVOR','Tengo una rutina que abre todos los ficheros del sistema, ahora le he ampliado tres ficheros mas, y me da u error, de \n** error de apertura **\ny no me deja abrir mas de un determinado numero de ficheros, alguno de vosotros conoce una solucion por favor\n\nGRACIAS','',0,'gA==','klhfn8jz',1,0,'',527,0,0),(23631,5357,3,810,0,'84.172.70.97',1166448803,1,0,1,1,1,0,'','Multiple Lines xbrowse','Can i display more than one data in a Row ?','',0,'gA==','16pb8kg1',1,0,'',810,0,0),(23632,5356,7,449,0,'212.64.224.241',1166450352,1,0,1,1,1,1,'','','Hola,\n\nPrimero de todo tenemos de averiguar q fichero es. Tambien se puede mirar la rutina q abre los fichero y ver como lo haces. Mirar si hay campos memo, indices asociados, .... \n\nNecesitamos datos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nTranki q todo tiene solucion','',0,'gA==','38td1s2m',1,0,'',449,0,0),(23633,5357,3,449,0,'212.64.224.241',1166450469,1,0,1,1,1,1,'','','Do you try cline1 + CRLF + cLine2 ?','',0,'gA==','1jm2i142',1,0,'',449,0,0),(23634,5308,3,449,0,'212.64.224.241',1166450905,1,0,1,1,1,1,'','','Milan,\n\nCan you try modify file host in windows\\system32\\drivers\\etc with:\n\ncomputername   ip\n\n\nregards','',0,'gA==','1ogo9adn',1,0,'',449,0,0),(23635,5356,7,527,0,'83.55.37.249',1166453479,1,0,1,1,1,0,'','Ahi va todo el codigo.','#include \"FWCE.ch\"\nfunction Main()\n  local oWnd, obmp\n  DbCloseAll()\n  Config()\n  abrir_dbfs_cdx()\n  indexa_ficheros()\n  abrir_dbfs_tmp()\n  menu_principal()\n  DbCloseAll()\n  oBmp:End()\nreturn 0\n********************************************************\n* Configurardor de opciones de menu\n********************************************************\nFUNCTION iniciar_menu\n\n   local oMenu \n   DEFINE MENU oMenu RESOURCE  102\n   REDEFINE MENUITEM ID 320 OF oMenu ACTION MsgInfo(\"MJCC\" +;\n                                            CHR(13) +;\n                                            \"Manuel Jose Castro Casas,S.L.\" +;\n                                            CHR(13) +;\n                                            \"Arcay 124 bajo\"+;\n                                            CHR(13) +;\n                                            \"15873 - Bembibre\"+;\n                                            CHR(13)+;\n                                            \"La Coruña\"+;\n                                            CHR(13)+;\n                                            \"902 234568\",;\n                                            \"Gestion POKECT\")\n\n   REDEFINE MENUITEM ID 1310 OF oMenu ACTION vehiculo(\"\",\"\",\"\",\"\")\nRETURN omenu\n********************************************************\n* Configuracion del sistema por defecto para arrancar  *\n********************************************************\nSTATIC FUNCTION Config()\n    HB_LANGSELECT(\"ESWIN\")\n    SET DELETED  ON\n    SET DATE TO  ITALIAN\n    SET SOFTSEEK ON\n    SET CENTURY  ON\n    SET EPOCH    TO 2000\n    SET CONFIR   ON\n    *Hb_LangSelect (\'PL\') \n    *Hb_SetCodePage (\'PLWIN\') \n    REQUEST HB_LANG_ES // Para establecer español para Mensajes, fechas, etc.. \n    REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..) \n    HB_LangSelect(\'ES\') \n    HB_SetCodePage(\"ESWIN\") // Para ordenación (arrays, cadenas, etc..) \nRETURN 0\n********************************************************************\n* Abre los ficheros temporales del sistema                         *\n********************************************************************\nFUNCTION abrir_dbfs_tmp()\n USE ( CurDir() + \"\\tmp\\rescli.dbf\")  NEW\n USE ( CurDir() + \"\\tmp\\resart.dbf\")  NEW\n USE ( CurDir() + \"\\tmp\\resage.dbf\")  NEW\n USE ( CurDir() + \"\\tmp\\resavc.dbf\")  NEW\n USE ( CurDir() + \"\\tmp\\lineas.dbf\")  NEW\n USE ( CurDir() + \"\\tmp\\resvehi.dbf\") NEW\nRETURN 0\n***********************************************************************************\n* APERTURA DE FICHEROS CON LOS INDICES GENERADOS\n***********************************************************************************\nFUNCTION abrir_dbfs_cdx()\n       USE ( CurDir() + \"\\dat\\planning.dbf\") NEW\n       USE ( CurDir() + \"\\dat\\plandet.dbf\")  NEW\n       USE ( CurDir() + \"\\dat\\cliente.dbf\")  NEW\n       USE ( CurDir() + \"\\dat\\articulo.dbf\") NEW\n       USE ( CurDir() + \"\\dat\\agenda.dbf\")   NEW\n       USE ( CurDir() + \"\\dat\\tareas.dbf\")   NEW\n       USE ( CurDir() + \"\\dat\\recuento.dbf\") NEW\n       USE ( CurDir() + \"\\dat\\avc.dbf\")      NEW\n       USE ( CurDir() + \"\\dat\\avl.dbf\")      NEW\n       USE ( CurDir() + \"\\dat\\fpago.dbf\")    NEW\n       USE ( CurDir() + \"\\dat\\barras.dbf\")   NEW\n       USE ( CurDir() + \"\\dat\\vehiculo.dbf\") NEW\n       USE ( CurDir() + \"\\dat\\grupo.dbf\")    NEW\n       USE ( CurDir() + \"\\dat\\subgrupo.dbf\") NEW\n       USE ( CurDir() + \"\\dat\\familias.dbf\") NEW\n       USE ( CurDir() + \"\\dat\\seccion.dbf\")  NEW\n       USE ( CurDir() + \"\\dat\\labo.dbf\")     NEW\nRETURN 0\n*************************************************************************\n* Indexa los ficheros de la aplicacion por los campos que a mi me interesan\n**************************************************************************\nFunction indexa_ficheros () \n     Request DbfCdx\n     Request DbfFpt \n     RddSetDefault (\'DbfCdx\') \n     Request Hb_Lang_PLWIN \n     Request Hb_CodePage_PLWIN \n     * Clientes\n     SELECT cliente\n     Index On nombrec Tag inombrec TO ( CurDir() + \"\\dat\\cliente.cdx\" )  FOR borrado &lt;&gt; 1\n     Index On codigo  Tag icodigo  TO ( CurDir() + \"\\dat\\cliente.cdx\" )  FOR borrado &lt;&gt; 1\n     * Artículos\n     SELECT articulo\n     Index On nombrea Tag inombrec TO ( CurDir() + \"\\dat\\articulo.cdx\" )    FOR borrado &lt;&gt; 1\n     Index On codigo  Tag icodigo  TO ( CurDir() + \"\\dat\\articulo.cdx\" )    FOR borrado &lt;&gt; 1\n     Index On autosel Tag iautosel TO ( CurDir() + \"\\dat\\articulo.cdx\" )    FOR borrado &lt;&gt; 1\n     * Indexa los ficheros de la agenda\n     SELECT agenda\n     Index On nombrec Tag inombrec TO ( CurDir() + \"\\dat\\agenda.cdx\" )  FOR borrado &lt;&gt; 1\n     Index On codigo  Tag icodigo  TO ( CurDir() + \"\\dat\\agenda.cdx\" )  FOR borrado &lt;&gt; 1\n     * Indexa fichero de planning\n     SELECT tareas\n     Index On subs(dtoc(tfecha),1,5) + alltrim(thora)  Tag inombrec TO ( CurDir() + \"\\dat\\tareas.cdx\" ) FOR borrado &lt;&gt; 1\n     * Indexa fichero de recuento de stocks\n     SELECT recuento\n     Index ON codigo                                   Tag irecuen  TO ( CurDir() + \"\\dat\\recuento.cdx\" )\n     * Indexa el fichero de cabeceras de albaranes de ventas\n     SELECT avc\n     Index ON nombrec                                  Tag inombre  TO ( CurDir() + \"\\dat\\avc.cdx\" ) FOR borrado &lt;&gt; 1\n     Index ON puntero                                  Tag icodigo  TO ( CurDir() + \"\\dat\\avc.cdx\" ) FOR borrado &lt;&gt; 1\n     * Indexa el fichero de albaranes\n     SELECT avl\n     Index ON documento                                Tag icodigo  TO ( CurDir() + \"\\dat\\avl.cdx\" ) FOR borrado &lt;&gt; 1\n     Index ON puntero                                  Tag ilineas  TO ( CurDir() + \"\\dat\\avl.cdx\" ) FOR borrado &lt;&gt; 1\n     * Indexa el fichero de formas de pago\n     SELECT fpago\n     Index ON pagocod                                  Tag icodpag  TO ( CurDir() + \"\\dat\\fpago.cdx\" )\n     * Indexa el fichero de codigos de barras\n     SELECT barras\n     Index ON bartean13                                Tag barras1  TO ( CurDir() + \"\\dat\\barras.cdx\" )\n     Index ON bartean13d                               Tag barras2  TO ( CurDir() + \"\\dat\\barras.cdx\" )\n     * Fichero de planning\n     SELECT planning\n     Index ON fechadoc                                 Tag icodigo  TO ( CurDir() + \"\\dat\\planning.cdx\" )\n     * Detalle de plannig\n     SELECT plandet\n     Index ON fechadoc                                 Tag icodf    TO ( CurDir() + \"\\dat\\plandet.cdx\" )\n     * Vehiculos empresa\n     SELECT vehiculo\n     Index On nombrec                                  Tag nombrev  TO ( CurDir() + \"\\dat\\vehiculo.cdx\" ) FOR borrado &lt;&gt; 1\n     Index On codigo                                   Tag matricu  TO ( CurDir() + \"\\dat\\vehiculo.cdx\" ) FOR borrado &lt;&gt; 1\n     * Grupos\n     SELECT grupo\n     Index On percod                                   Tag ipercod  TO ( CurDir() + \"\\dat\\grupo.cdx\" )\n     * Subrupos\n     SELECT subgrupo\n     Index On percod                                   Tag ipercod  TO ( CurDir() + \"\\dat\\subgrupo.cdx\" )\n     * Familias\n     SELECT familias\n     Index On famcodigo                                Tag ifamcod  TO ( CurDir() + \"\\dat\\familias.cdx\" )\n     * Secciones\n     SELECT seccion\n     Index On sec_codigo                               Tag iseccod  TO ( CurDir() + \"\\dat\\seccion.cdx\" )\n     * Laboratorios\n     SELECT labo\n     Index On percod                                   Tag ilabo    TO ( CurDir() + \"\\dat\\labo.cdx\" )\nReturn 0','',0,'gA==','19t6yjc6',1,0,'',527,0,0),(23636,5350,7,123,0,'83.59.155.21',1166454413,1,0,1,1,1,0,'','','Antonio,\n\n\n[quote:3o6orov5]Esa función puedes eliminarla ya que está incluida en el build más reciente de Harbour para Pocket PC.[/quote:3o6orov5]\n\nGracias!\nJosé Luis Capel','',0,'gA==','3o6orov5',1,0,'',123,0,0),(23637,5357,3,67,0,'62.235.24.62',1166454426,1,0,1,1,1,0,'','','oBrw:nDataLines := 2\n\nFrank','',0,'gA==','16291w3s',1,0,'',67,0,0),(23638,5301,2,74,0,'200.127.27.199',1166455732,1,0,1,1,1,1,'','Impresion','Antonio, \n\nEl bitmap lo muestra barbaro, lo que no me muestra para nada son los campo que irian encima del bitmap. Lo probe primero uno  y viceversa. Necesitas el pedacito de codigo para que lo veas como lo estoy haciendo ?\n\nGracias por la ayuda..\n\ndaniel','',0,'gA==','1gwu9fla',1,0,'',74,0,0),(23639,5358,3,299,0,'24.233.172.101',1166456111,1,0,1,0,1,0,'','Select Method in xbrowse','Hi.\n\nWorking with the select method in xbrowse I\'ve discovered that when noperation = 3 the code will not work because it presumes that the data is in natural order and thus it does not consider the posibility that it might indexed.\n\n[code:6b0xk442]\n   case nOperation == 3 // Shift &amp; lclick\n      uBook   &#58;= Eval&#40; &#58;&#58;bBookMark,, Self &#41;\n      uCurRow &#58;= Eval&#40; &#58;&#58;bKeyNo,,Self &#41;\n      Eval&#40; &#58;&#58;bBookMark,  Atail&#40; &#58;&#58;aSelected &#41;, Self &#41;\n      uOldRow &#58;= Eval&#40; &#58;&#58;bKeyNo,,Self &#41;\n\n      if uOldRow != uCurRow\n         &#58;&#58;aSelected &#58;= &#123; Atail&#40; &#58;&#58;aSelected &#41; &#125;\n         if uCurRow &gt; uOldRow\n            CursorWait&#40;&#41;\n            do while &#40; uTemp &#58;= Eval&#40; &#58;&#58;bBookMark,, Self &#41; &#41; != uBook &#46;and&#46; !Eval&#40; &#58;&#58;bEof, Self &#41;\n               If Ascan&#40; &#58;&#58;aSelected, uTemp &#41; == 0\n                  Aadd&#40; &#58;&#58;aSelected, uTemp &#41;\n               Endif\n               Eval&#40; &#58;&#58;bSkip, 1, Self &#41;\n            enddo\n            CursorArrow&#40;&#41;\n         else\n            CursorWait&#40;&#41;\n            do while &#40; uTemp &#58;= Eval&#40; &#58;&#58;bBookMark,, Self &#41; &#41; != uBook &#46;and&#46; !Eval&#40; &#58;&#58;bBof, Self &#41;\n               If Ascan&#40; &#58;&#58;aSelected, uTemp &#41; == 0\n                  Aadd&#40; &#58;&#58;aSelected, uTemp &#41;\n               endif\n               Eval&#40; &#58;&#58;bSkip, -1, Self &#41;\n            enddo\n            CursorArrow&#40;&#41;\n         endif\n         Aadd&#40; &#58;&#58;aSelected, uBook &#41;\n         Eval&#40; &#58;&#58;bBookMark, uBook, Self &#41;\n         &#58;&#58;lRefreshOnlyData &#58;= &#46;t&#46;\n         If &#58;&#58;lCreated\n            &#58;&#58;GetDC&#40;&#41;\n            &#58;&#58;Paint&#40;&#41;\n            &#58;&#58;ReleaseDC&#40;&#41;\n         endif\n      else\n         Eval&#40; &#58;&#58;bBookMark, uBook, Self &#41;\n      endif\n\n[/code:6b0xk442]\n\nNotice how the line: if uCurRow &gt; uOldRow compares actual record positions on the .dbf and not actual positions on the xbrowse so although uCurRow might actually be &gt; uOldrow on the .dbf it might not be so on the browse being displayed.\n\nHas anybody worked a solution to this problem?\n\n\n\nReinaldo.','',0,'AIA=','6b0xk442',1,0,'',299,0,0),(23640,5359,6,891,0,'148.243.37.162',1166456673,1,0,1,1,1,0,'','Incompatibilidad de carácteres','Hola amigos del Foro, tengo otro pequeño problema, en clipper uso una funcion para encryptar x carácter para password y al adaptarlo al programa de xHarbour y FiveWin 2.7, me da otro tipo de x carácter, como que no es compatible, o tengo que agregar alguna funcion ? echenme la mano por favor, y es la misma funcion que utilizo en clipper y no le hice cambios alguno en FiveWin, solo le agregue la funcion, pero al parecer no es compatible, necesito sugerencias y ayuda de todos ustedes amigos, gracias','',0,'AIA=','3hb4abt0',1,0,'',891,0,0),(23644,5359,6,215,0,'189.136.223.162',1166462953,1,0,1,1,1,1,'','Más info','Hola,\n¿Tienes una función para encriptar hecha por ti mismo?\n¿Usas alguna función de alguna librería?\nA 16 bits se usa el OEM pero a 32 se usa el ANSI. Por lo tanto algunos carácteres varían.','',0,'AIA=','n8txm75a',1,0,'',215,0,0),(23646,5208,1,819,0,'216.34.194.113',1166465514,1,0,1,1,1,0,'','About odbc','Eugeniusz,\n\nThanks for the hint.  It works.\n\nRegards,\n\nJose','',0,'AIA=','2u3yk4jh',1,0,'',819,0,0),(23647,5359,6,891,0,'148.243.37.162',1166466163,1,0,1,1,1,0,'','Re: Más info','[quote=&quot;fleal&quot;:1wd26aan]Hola,\n¿Tienes una función para encriptar hecha por ti mismo?\n¿Usas alguna función de alguna librería?\nA 16 bits se usa el OEM pero a 32 se usa el ANSI. Por lo tanto algunos carácteres varían.[/quote:1wd26aan]\n\nHola Fleal, asi es, una funcion propia mia, y que instrucción agregar el comando ANSI, explicame por fas, gracias','',0,'gA==','1wd26aan',1,0,'',891,0,0),(23650,5260,3,34,0,'68.4.154.81',1166478485,1,0,1,1,1,1,'','Numbering','I do it a bit differently but its the same idea:\n\n   8.64.24  would be  Version 8, year 2006, quarter 4, 2 month, 4th release.  This allows me to fine tune the versions very nicely.\n\nTim','',0,'gA==','3vukoe7f',1,0,'',34,0,0),(23651,5364,6,7,0,'201.143.103.215',1166479627,1,0,1,1,1,0,'','Imagenes JPG','Hola,\n\nLa clase TImage me casca cuando intento usar imagenes JPG que pesan mas de un 1mb, es normal o estoy haciendo algo mal?\n\n\n\nSaludos,\nMauricio Bernal','',0,'gA==','1do26d7w',1,0,'',7,0,0),(23652,5365,1,819,0,'216.34.194.113',1166480577,1,0,1,1,1,0,'','updating table from ODBC','Hi all,\n\nI am trying to update table from clipper through FiveODBC.  I can\'t find sample codes to initiate the update from the documentation.\n\nThanks,\n\nJose','',0,'gA==','e88hnu96',1,0,'',819,0,0),(23654,5367,2,890,0,'200.69.108.238',1166480843,1,0,1,1,1,0,'','Libreria necesaria para usar el link.exe','Antonio ya me funciono y te cuento que estoy maravillado muchas gracias por tus ascesorias gracias a ellas pude hacer los ejecutables en windows. Quisiera pedirte un favor mas donde puedo encontrar la libreria 501_520 o 501_502 pues quisiera poder usar el link.exe de microsoft como tu me lo sugeriste.\nGracias Antonio y Feliz Navidad a ti y a  todos los integrantes del Foro','',0,'gA==','18dv3lwd',1,0,'',890,0,0),(23655,5368,6,558,0,'200.106.37.152',1166484120,1,0,1,1,1,0,'','Para Antonio JPG, BITMAPS','al imprimir imagenes(JPG,BMP) con timage la calidad de impresion no es buena, existe alguna forma de que las imagenes se impriman con calidad de fotografia.\n\nSaludos\n\nFrancisco','',0,'gA==','hkuw4ilw',1,0,'',558,0,0),(23656,5368,6,7,0,'201.143.103.215',1166485155,1,0,1,1,1,0,'','','Francisco,\nya que estas usando imagenes, has podido levantar Imagenes JPG de mas de un 1mb?\n\n\nSaludos\nMauricio','',0,'gA==','261k1pq3',1,0,'',7,0,0),(23657,5369,2,760,0,'200.37.76.86',1166488839,1,0,1,1,1,0,'','Problemas con TWBrowse','Hola a todos...\n\nTengo un sistema contable, hecho con Clipper5.3, FW2.0,Blinker4.0,tdbf y WorkShop,\nEl problema consiste en que tengo un browse donde muestra una dbf, el problema es que al eliminar un registro ya sea con el mouse en un boton o con la tecla DEL, se elimina el registro,pero el browse va al principio de la DBF....\nYo quiero que se quede en el registro anterior al que se elimino...\nQue puede estar pasado?\nHe revisado mi codigo y no tengo ningun mandato que mande el cursor al principio de la DBF.... Ayuda por favor\n\nSalu2','',0,'gA==','ev9s1qww',1,0,'',760,0,0),(23658,5308,3,303,0,'72.199.41.171',1166490365,1,0,1,1,1,0,'','','Milan,\n\nI always put this code at the top of my programs to prevent that.\n\n[code:38prijyk]   // prevent &quot;DOS error 2&#46; File not Found&quot;\n   set default to &#40;cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41;&#41;[/code:38prijyk]\n\nJames','',0,'AIA=','38prijyk',1,0,'',303,0,0),(23659,5356,7,2,0,'87.218.146.145',1166508721,1,0,1,1,1,1,'','','Manolo,\n\nPudiese tratarse de una limitación de Windows Mobile. Vamos a construir un ejemplo ya a probarlo, y en caso de existir esa limitación, vamos a ver si existe forma de ampliar esa cantidad.\n\nPor favor, no pongas el mismo mensaje tantas veces. Te hemos leido y vamos a ayudarte. Quédate tranquilo.','',0,'AIA=','1to6dp4q',1,0,'',2,0,0),(23660,5352,7,2,0,'87.218.146.145',1166508858,1,0,1,1,1,1,'','','José Luis,\n\nEl código de IsOem() está en fwh\\source\\winapi\\oemansi.c\n\nPuedes facilmente copiarlo al PRG usando BEGINDUMP ... ENDDUMP.','',0,'AIA=','1iwy0nmp',1,0,'',2,0,0),(23661,5152,19,233,0,'218.111.22.218',1166511559,1,0,1,1,1,0,'','','Thanks for the feedback Antonio. If it works when you tested it then I guess there could be a problem with my RSS reader then','',0,'AIA=','2xf6klan',1,0,'',233,0,0),(23662,5370,19,92,0,'213.96.45.9',1166515403,1,0,1,1,1,0,'','Oracle 10 y Harbour','Hola a todos,\n\nAlguno de Ustedes a atacado una BBDD Oracle 10 desde Harbour con o sin FiveWin?\n\nSaludos\nCarlos G.','',0,'AIA=','ak437zrd',1,0,'',92,0,0),(23663,5356,7,449,0,'212.64.224.241',1166515742,1,0,1,1,1,1,'','','Hola,\n\nLa aplicacion q mas ficheros abria era 15 y me iba correctamente. He ampliado la apertura (ya por curiosidad), y me abre hasta 19 (con indices asociados) - &gt;Curiosa la limitacion. \n\nTranquilo Mjcc q Antonio encontrará la solucion (recouerdo los viejos tiempos con el sethandlecount(), o algo asi).','',0,'AIA=','2kie1vas',1,0,'',449,0,0),(23664,5371,7,123,0,'83.59.155.21',1166521992,1,0,1,1,1,0,'','Getsyscolor','Antonio,\n\n¿Es posible que la función PRG GetSysColor devuelva siempre 0?  \n\nSaludos,\nJosé Luis Capel','',0,'AIA=','2lrd70ur',1,0,'',123,0,0),(23665,5372,7,893,0,'80.34.86.46',1166522127,1,0,1,1,1,0,'','Mas de Novato.','Hola a todos. Siguiendo con mi aprendizaje me surgen las siguientes dudas que os comento para ver si alguna alama caritativa me pone el el camino.\n\nEstoy con un mantenimiento de clientes sobre un fold. cada vez que me muevo por un grid de la primera pestaña, podría pulsar la segunda pestaña y editar el registro. Bien. Como puedo refrescar los campos de las pestañas, ya que siempre tengo el primer registro lo he probado con ON CHANGE de LISTBOX pero nada.\n\nMe puede alguien facilitar un ejemplo de como funciona tbtnbmp, creo haber leido que se usa para habilitar y deshabilitar botones.\n\nMuchas gracias de antemano <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','3fn9fu82',1,0,'',893,0,0),(23666,5356,7,527,0,'83.33.114.128',1166524034,1,0,1,1,1,0,'','OK','Tengo que hacer la presentacion la semana que viene y me da una rabia estos errores chorra que no te puedes imaginar.\n\nGRACIAS, CONFIO EN VOSOTROS','',0,'AIA=','2hxk6yq0',1,0,'',527,0,0),(23667,5356,7,449,0,'212.64.224.241',1166525223,1,0,1,1,1,1,'','','Pues este problema creo q solo te lo podra solucionar una persona. De todas maneras para salir del paso en la presentacion y tenerlos \'engañados\' puedes mirar de abrir y cerrar las tablas cuando las necesites. Supongo q no tendras un proceso q necesites todas abiertas.\n\nVamos a ver q cuentas AL','',0,'AIA=','31v3dchu',1,0,'',449,0,0),(23668,5356,7,527,0,'83.61.181.227',1166525753,1,0,1,1,1,0,'','ok','De todas formas no os olvideis de mi a ver si podemos solucionarlo\n\nGracias.','',0,'AIA=','3oy4yte0',1,0,'',527,0,0),(23669,5356,7,57,0,'83.59.155.21',1166525810,1,0,1,1,1,1,'','','¿Estas utilizando el Emulador o una PDA?. ¿Que version de SO?\n\nSaludos\nPD: Agradecería te identificaras con tu nombre.','',0,'AIA=','31z0mswg',1,0,'',57,0,0),(23670,5372,7,449,0,'212.64.224.241',1166526130,1,0,1,1,1,1,'','','Hola,\n\n1.- Si te refieres a refrescar los datos del mismo registro una vez editado el campo haz objeto:DrawSelect()\n\n2.-  .\\samples\\tutor12.prg\n\nDebes de probasr todos los ejemplos de samples. Ahi lo tienes practicamente todo','',0,'AIA=','3rk1rlq6',1,0,'',449,0,0),(23671,5369,2,774,0,'200.72.196.76',1166526468,1,0,1,1,1,1,'','','muestra el codigo del browse','',0,'AIA=','1usaivg2',1,0,'',774,0,0),(23672,5356,7,449,0,'212.64.224.241',1166526602,1,0,1,1,1,1,'','','Mjcc,\n\nToni tiene razon. Da error en el emulador, pero no en la Pocket. Acabo de instalar el program,a en una pocket y me va fenomenal (como siempre  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> ), pero en cambio me da error en el emulador.\n\nSolucionado ! -&gt; No hay problema en Pocket !','',0,'AIA=','2jx056ok',1,0,'',449,0,0),(23673,5372,7,2,0,'87.218.146.249',1166526940,1,0,1,1,1,1,'','','Andrés,\n\nPon aqui el código del ejemplo que estes haciendo y te ayudamos a que funcione, gracias.','',0,'AIA=','3gqe6lt0',1,0,'',2,0,0),(23674,5356,7,57,0,'83.59.155.21',1166527019,1,0,1,1,1,1,'','','En mi aplicación estoy utilizando hasta 25 ficheros abiertos con sus respectivos CDX y todo funciona correctamente. \n\nSaludos','',0,'AIA=','3v6if14w',1,0,'',57,0,0),(23675,5356,7,2,0,'87.218.146.249',1166527160,1,0,1,1,1,1,'','','Carles,\n\nGracias por la información, que bien que funcione correcto en el Pocket PC real <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nDe todas formas estamos buscando a ver si hay una forma de ampliarlo en el emulador.\n\nYa hemos mirado a ver si está el SetHandleCount() pero no, no está.','',0,'AIA=','39vuysjq',1,0,'',2,0,0),(23676,5356,7,2,0,'87.218.146.249',1166527849,1,0,1,1,1,1,'','','Buenas noticias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEl error sólo se produce al trabajar en la tarjeta de memoria.\n\nSi la aplicación se copia al directorio raiz, por ejemplo, la aplicación funciona perfectamente. Este es un ejemplo:\n[code:3m169505]\nrequest DBFCDX\n\nfunction Main&#40;&#41;\n\n   local n, cDbfName\n\n   for n = 1 to 25\n      cDbfName = CurDir&#40;&#41; + &quot;\\_&quot; + AllTrim&#40; Str&#40; n &#41; &#41;\n      DbCreate&#40; cDbfName, &#123; &#123; &quot;first&quot;, &quot;C&quot;, 8, 0 &#125; &#125; &#41;\n      MsgInfo&#40; cDbfName &#41;\n      USE &#40; cDbfName &#41; VIA &quot;DBFCDX&quot; NEW\n      INDEX ON first to &#40; CurDir&#40;&#41; + &quot;\\_&quot; + AllTrim&#40; Str&#40; n &#41; &#41; &#41;\n   next\n\n   MsgInfo&#40; &quot;ok&quot; &#41;\n\nreturn nil\n[/code:3m169505]','',0,'AIA=','3m169505',1,0,'',2,0,0),(23677,5371,7,2,0,'87.218.146.249',1166528030,1,0,1,1,1,1,'','','José Luis,\n\nEn el Pocket PC hay que usarla de esta forma:\n\n#define SYS_COLOR_INDEX_FLAG  0x40000000\n\n#define COLOR_WINDOW   nOr( 5, SYS_COLOR_INDEX_FLAG )\n\nGetSysColor( COLOR_WINDOW )\n\ny así para los demás colores del sistema.','',0,'AIA=','1s3t0480',1,0,'',2,0,0),(23678,5354,7,2,0,'87.218.146.249',1166528129,1,0,1,1,1,1,'','','José Luis,\n\nNo creo que exista esa utilidad para Pocket PC.\n\nLo idóneo es usar la función LogFile( cNombreFichero, { valor1, ..., valorN } ) de FWPPC. Y luego revisar el fichero creado.','',0,'AIA=','1halurny',1,0,'',2,0,0),(23679,5372,7,893,0,'80.34.86.46',1166528440,1,0,1,1,1,0,'','Fuente y preguntas','Antonio: \nNecesitos estas respuestas si eres tan amable.\n\nPreguntillas:\n1  Existen 2 botones (grabar y cancelar) que quiero que se vean pero desactivados, ya que cuando se cambie algun campo se activarán entonces. He leido que se usa con tbtnbmp pero no se como trabajarlo, no se si hay ejemplos.\n\n2  Cada vez que arranco la aplicación Indexo, Con el fin de no reindexar siempre ¿como abro un fichero de indices (si existe) y uso los indices. Lo he intentado pero cuando cambio de indice me dice que no existe.\n\n3 La edición que comento, segun me comenta Carles con el ejemplo, claro! es desde un botón pero yo quiero que sea automático, esto es conforme me muevo en el grid, puedo ir a la pestaña donde está la ficha y editar.\n\n4 Al arrancar la aplicación ¿como mando el foco al Grid?.\n5 Se puede deshabilitar/habilitar pestañas de un fold???\n\n\nGracias.\n\n\n\n#include \"FWCE.ch\"\n\nFUNCTION Main()\n   local cAlias, nRecno\n\n   nRecno = 0\n   ctexto = space(20)\n   cSearch = \"\"\n   lNuevo = .F.\n   lEditando = .F.\n\n   * Control de programa\n   IF IsExeRunning( cFileName( HB_ArgV( 0 ) ) ) \n		MsgInfo( \"No puedes abrir dos veces el programa\", SISTEMA) \n		Return Nil \n   ENDIF \n   \n \n   DEFINE WINDOW oWnd TITLE \"Clientes\" \n   \n   *Configuracion Inicial del sistema\n   Configura()\n   AbrirFicheros() \n   PonBotones() \n\n   ***************************************************\n   * GRID\n   ***************************************************\n   @ 2.2,0 FOLDER oFld PROMPTS \"Indice\", \"Ficha\", \"Más datos\", \"Económicos\"  SIZE 240, 200\n   @ 0.5,0 LISTBOX oBrw FIELDS cprvcod,cprvome,cprvnom COLSIZES 50,200,200  ;\n   		OF oFld:aDialogs[1] HEADERS \"Código\",\"Nombre Comercial\",\"Nombre Fiscal\" SIZE 235,200 ;\n 		ON CHANGE DibujaFichas()   \n   *****************************	\n   * búsqueda incremental sobre el grid\n   oBrw:bKeyChar = { | nKey, nFlags | BusquedaIncremental(nKey, @cSearch), oBrw:Refresh()} \n   *****************************\n\n   ACTIVATE WINDOW oWnd \n\n   DbCloseAll()\nRETURN nil   \n\n\n*****************************************\n* Botonaje de edición\n*****************************************\nFUNCTION PonBotones\n   @  0,   0 BTNBMP FILE CurDir() + \"\\bmp\\nuevo.bmp\"	SIZE 25, 25\n   @  0,  25 BTNBMP FILE CurDir() + \"\\bmp\\buscar.bmp\"	SIZE 25, 25 ACTION BuscaCliente()\n   @  0,  50 BTNBMP FILE CurDir() + \"\\bmp\\delete.bmp\"	SIZE 25, 25\n   @  0, 100 BTNBMP FILE CurDir() + \"\\bmp\\ok.bmp\"		SIZE 25, 25\n   @  0, 125 BTNBMP FILE CurDir() + \"\\bmp\\cancelar.bmp\"	SIZE 25, 25\n   @  0, 220 BTNBMP FILE CurDir() + \"\\bmp\\close.bmp\"	SIZE 25, 25;\n		     ACTION IF( MsgYesNo( \'¿ Desea salir ?\', \'Aviso\' ), oWnd:End(), )\nRETURN NIL\n\n\n*****************************************\n* Apertura de ficheros\n*****************************************\nFUNCTION AbrirFicheros\n   Request DbfCdx \n   Request DbfFpt \n   RddSetDefault (\'DbfCdx\') \n   Request Hb_Lang_PLWIN \n   Request Hb_CodePage_PLWIN \n \n   **********\n   * Clientes\n   **********\n   IF .NOT. USED(\"Efth010\") \n      USE (CurDir()+\"\\Efth010\") NEW\n   ELSE\n   	  SELECT Efth010\n   ENDIF \n\n   INDEX ON CprvCod TO CODIGO ADDI\n   INDEX ON CprvNom TO FISCAL ADDI\n   INDEX ON CprvOme TO COMERCIAL ADDI   \n\n   Efth010-&gt;( OrdSetFocus( \"CODIGO\" ) ) \n   Efth010-&gt;( DbGoTop() ) \n\n\nRETURN nil\n\n********************************************\n* Sets\n********************************************\nFUNCTION PonSets()\n    HB_LANGSELECT( \"ESWIN\" )\n    SET DELETED ON\n    SET DATE TO ITALIAN\n    SET SOFTSEEK ON\n    SET CENTURY ON\n    SET EPOCH TO 2000\n	SET CONFIR ON \nRETU nil\n\n\n********************************************\n* Configuración inicial del sistema\n********************************************\nFUNCTION Configura()\n	PonSets()\n	\n	HB_LANGSELECT(\"ESWIN\") \n	*Hb_LangSelect (\'PL\') \n	*Hb_SetCodePage (\'PLWIN\') \n	REQUEST HB_LANG_ES // Para establecer español para Mensajes, fechas, etc.. \n	REQUEST HB_CODEPAGE_ESWIN // Para establecer código de página a Español (Ordenación, etc..) \n	HB_LangSelect(\'ES\') \n	HB_SetCodePage(\"ESWIN\") // Para ordenación (arrays, cadenas, etc..) \nRETURN nil\n\n\n***********************************************\n* Busca un cliente y se posiciona en el browse\n***********************************************\nFUNCTION BuscaCliente\n   LOCAL cValue\n   cValue = \'Nombre Comercial\'\n	\n   //RGB(155,255,200)	\n   DEFINE DIALOG oBuscar TITLE \'Busqueda de cliente\' SIZE 220,100 OF oWnd COLOR  \"N/G\"\n   @ 0, 0  GET cTexto SIZE 98, 12\n   @ 0, 97 BTNBMP FILE CurDir() + \"\\bmp\\ok.bmp\" SIZE 14, 12 ;\n            ACTION(iif(.NOT. EMPTY(ctexto),BuscaCl(cValue, cTexto),msginfo(\"El campo no puede estar vacio\",\"Aviso\")))\n\n   @ 1, 1 SAY \"Tipo de búsqueda\" SIZE 100,15 of oBuscar COLOR \"W/G\"\n   @ 2.3, 1 COMBOBOX cValue ITEMS { \"Nombre Comercial\", \"Nombre Fiscal\", \"Código Cliente\" } SIZE 100, 60 ;\n      	  ON CHANGE MsgBeep() of oBuscar\n\n   ACTIVATE DIALOG oBuscar CENTERED \nRETURN nil\n\n***********************************************\n* Busca por campo\n***********************************************\nFUNCTION BuscaCl(lpIndice, lpTexto)\nSELECT Efth010\nDO CASE\nCASE lpIndice	= \"Nombre Comercial\"\n	Efth010-&gt;(OrdSetFocus(\"COMERCIAL\")) \nCASE lpIndice	= \"Nombre Fiscal\"\n	Efth010-&gt;(OrdSetFocus(\"FISCAL\")) \nCASE lpIndice	= \"Código Cliente\"\n	Efth010-&gt;(OrdSetFocus(\"CODIGO\")) \nENDCASE \n\n* Cada vez que busco elimino la cadena de búsqueda incremental\n cSearch = \"\"\n\nEfth010-&gt;(DbSeek(lpTexto, .t.))	\noBrw:refresh()\nRETURN nil\n\n\n***********************************************\n* Aviso general\n* Ej -&gt;Avisa(\'Hola caracola\', oWnd)\n***********************************************\nFUNCTION Avisa(lpTexto, lpVentana)\n   DEFINE DIALOG oAviso TITLE \'Aviso\' SIZE 220,22 OF lpVentana\n   @  0,  0 SAY lpTexto SIZE 98, 12\n   ACTIVATE DIALOG oAviso CENTERED \nRETURN nil\n\n***********************************************\n* Diseño de las pestañas de datos\n***********************************************\nFUNCTION DibujaFichas\nLOCAL ogetCodigo, ogetNC, ogetNF, lcCodigo, lcNombreC, lcNombreF\n\n	lcCodigo	= (\"Efth010\")-&gt;cprvcod\n	lcNombreC	= (\"Efth010\")-&gt;cprvOme\n	lcNombreF	= (\"Efth010\")-&gt;cprvcod\n    \n    @ 1, 1 SAY \"Código:\" OF oFld:aDialogs[2] SIZE 45, 15\n	@ 1, 8 GET ogetCodigo VAR lcCodigo OF oFld:aDialogs[2] SIZE 70, 18 \n	ogetCodigo:bGotFocus := {|| ogetCodigo:SetColor(RGB( 0, 0, 0), RGB(155,255,200)),ogetCodigo:Refresh} \n\n    @ 2.5, 1 SAY \"Nombre C:\" OF oFld:aDialogs[2] SIZE 45, 15\n	@ 2.7, 8 GET ogetNC VAR lcNombreC OF oFld:aDialogs[2] SIZE 160, 18 \n	ogetNC:bGotFocus := {|| ogetNC:SetColor(RGB( 0, 0, 0), RGB(155,255,200)),ogetNC:Refresh} \n\n    @ 4, 1 SAY \"Nombre F:\" OF oFld:aDialogs[2] SIZE 45, 15\n	@ 4.7, 8 GET ogetNF VAR lcNombreF OF oFld:aDialogs[2] SIZE 160, 18 \n	ogetNF:bGotFocus := {|| ogetNF:SetColor(RGB( 0, 0, 0), RGB(155,255,200)),ogetNF:Refresh} \n\n//	@ 6, 2 BUTTON \"Actualiza\" OF oFld:aDialogs[2] SIZE 45, 15 ACTION Dale()\n\nRETURN nil\n\n\n//FUNCTION dale\n//Efth010-&gt;cprvcod := \"9999999\"\n//obrw:refresh()\n//RETURN nil\n\n\nFUNCTION BusquedaIncremental( nKey, cSearch ) \n	IF nKey = 8 \n		cSearch = SubStr( cSearch, 1, Len( cSearch ) - 1 ) \n	ELSE\n		cSearch += Upper(Chr(nKey ) ) \n	ENDIF    \n	Efth010-&gt;(DbSeek(cSearch,.t.) ) \nreturn nil \n\n\n\n\n//function salir\n//    DbCloseAll()\n// 	  oWnd:End() \n//	  MsgYesNo( \"¿Salir de clientes?\" )\n//return nil   \n\n//function mensaje\n//   DEFINE DIALOG oDlg  TITLE \'Aviso\' SIZE 200,200 \n//   ACTIVATE DIALOG oDlg CENTERED        \n//   @ 2,2 SAY \'Hola\'\n//return nil','',0,'','7tufvgbx',1,0,'',893,0,0),(23680,5367,2,2,0,'87.218.146.249',1166528566,1,0,1,1,1,1,'','','Jaba,\n\nEsas librerías puedes reemplazarlas incluyendo estas funciones en tu aplicación:\n\nfunction CLIPPER501() ; return nil\nfunction CLIPPER520() ; return nil','',0,'','2a8qelod',1,0,'',2,0,0),(23681,5372,7,2,0,'87.218.146.249',1166528911,1,0,1,1,1,1,'','','Andrés,\n\nCualquier control se puede desactivar haciendo &lt;oControl&gt;:Disable() y &lt;oControl&gt;:Enable() para activarlo.\n\nPor ejemplo en tu código tendrías que hacer:\n\n@ 6, 2 BUTTON oBtn1 PROMPT \"Actualiza\" ...\n\noBtn1:Disable()\n\ny cuando quieras activarlo:\n\noBtn1:Enable()','',0,'','2bvyp71e',1,0,'',2,0,0),(23682,5205,6,294,0,'201.250.192.105',1166528987,1,0,1,1,1,1,'','','Estimado Jose:\nYo desarrolle una solucion, poniendo los items del menu en una tabla, con el siguiente formato:\nUSUARIO: Clave del usuario\nMODULO: Modulo que debe ejecutar\nDETALLE: Item que va a salir como item del menu\nSUBMENU: Esto indica: N no es submenu. S: Es un submenu. - Es separador.\nORDEN1: El orden dentro del menu, en forma similar a una cuenta contable de orden gerarquico. Ejemplo:\nUSUARIO       MODULO           DETALLE          SUBMENU     ORDEN1\nCESAR                                  Archivos           S                 100000\nCESAR           ABMCLIE          Clientes            N                 110000\nCESAR           ABMPROV         Proveedores     N                 120000\nCESAR                                  ---------------     -                 130000\nCESAR                                  Listados            S                140000\nCESAR           REPCLIE           Listar clientes    N                141000\nCESAR           REPPROV          Listar provee.   N                 142000\nCESAR                                   Procesos          S                200000\nCESAR           FACTURA          Facturacion       N                210000\nJUAN                                     Archivos           S                 100000\nJUAN              ABMCLIE          Clientes            N                 110000\n\nObviamente, esta tabla es autogestionable por el usuario, puede cargar nuevos usuarios y asignarle los permisos. Como se ve en el ejemplo, CESAR tiene acceso a todo y JUAN solo a cargar clientes.\nLuego, el modulo que genera el menu segun el usuario que accede es el siguiente:\n\n// --------------------------------------------------------------------//\n// ------------- Funcion men£ de la pantalla principal ----------------//\n// --------------------------------------------------------------------//\nSTATIC FUNCTION HazMenu(musuario,nItems)\nLOCAL i, oMenu, j, oMenuItem, nivel, nivel1, ult\nMEMVAR oWPpal\nIF !abrirar(\"menues\",1,\"menu1\") &amp;&amp; Abrir menues con alias MENU1\n   RETURN oMenu\n   ELSE\n   SET INDEX TO menues\nENDIF\nmenu1-&gt;(DBSEEK(musuario))\nMENU oMenu\nj := 0\naproce :={}\nnItems := 1\nnivel  := 1\nult    := \"N\"\nDO WHILE menu1-&gt;usuario = musuario\n   IF menu1-&gt;submenu = \"S\"            &amp;&amp; Si es submenu\n      MENUITEM ALLTRIM(menu1-&gt;detalle)\n      ult := \"S\"\n      MENU\n      ELSE\n      ult := \"N\"\n      IF menu1-&gt;submenu = \"-\"         &amp;&amp; Si un separador\n         SEPARATOR\n         ELSE                         &amp;&amp; Si un proceso\n         j++\n         AADD(aproce,menu1-&gt;modulo)      &amp;&amp; Cargo la tabla de procesos\n         MENUITEM oMenuItem PROMPT ALLTRIM(menu1-&gt;detalle);\n                            ACTION ejecfunc(oMenuItem:nHelpid) HELPID j\n      ENDIF\n   ENDIF\n   IF nivel = 1     &amp;&amp; Si es un titulo\n      nItems++      &amp;&amp; Cuento los items del menu principal\n   ENDIF\n   nivel1 := AT(\"0\",menu1-&gt;orden1) - 1\n   menu1-&gt;(DBSKIP(1))\n   nivel  := AT(\"0\",menu1-&gt;orden1) - 1\n   IF nivel &lt; nivel1 .and. menu1-&gt;usuario = musuario      &amp;&amp; Si retrocedo\n      FOR i := nivel TO (nivel1 - 1)                      &amp;&amp; en nivel pongo\n          ENDMENU                                         &amp;&amp; los ENDMENU\n      NEXT i\n      IF ult = \"S\" .and. nivel = 1                        &amp;&amp; Si es titulo\n         ENDMENU                                          &amp;&amp; solo tambien\n      ENDIF\n      ELSE\n      IF ult = \"S\" .and. nivel = 1                        &amp;&amp; Si es titulo\n         ENDMENU                                          &amp;&amp; solo tambien\n      ENDIF\n   ENDIF\nENDDO\n  ENDMENU\n  ** Esta parte del menu siempre va\n  MENUITEM \"&amp;Salir\" \n        MENU\n          MENUITEM \"&amp;Salir\" ACTION (oWPpal:end)\n          SEPARATOR\n          MENUITEM \"&amp;Acerca\" ACTION MsgInfo(\"Sistema de Gestion \" +CHR(10)+;\n                 \"Esta licencia pertenece a\"+CHR(10)+memvar-&gt;xnomb_emp+CHR(10)+;\n                 \"Direccion de sistemas\"+CHR(10)+;\n                 \"Municipalidad de Mercedes\"+CHR(10)+;\n                 \"Todos los derechos reservados\",\"Acerca de Gestion Plus\")\n          SEPARATOR\n          MENUITEM \"&amp;Cascada\"         ACTION oWppal:oWndClient:Cascade() ;\n                                      WHEN(LEN(MEMVAR-&gt;aVentanas)&gt;0)\n          MENUITEM \"&amp;Mosaico\"         ACTION oWppal:oWndClient:Tile()    ;\n                                      WHEN(LEN(MEMVAR-&gt;aVentanas)&gt;0)\n          MENUITEM \"&amp;Minimizar Todas\" ACTION oWppal:oWndClient:IconizeAll() ;\n                                      WHEN(LEN(MEMVAR-&gt;aVentanas)&gt;0)\n        ENDMENU\nENDMENU\nCLOSE ALL\nRETURN oMenu\n// --------------------------------------------------------------------//\n// ------------- Funcion que ejecuta las funciones del menu -----------//\n// --------------------------------------------------------------------//\nFUNCTION ejecfunc(mifunc)\nDO &amp;(aproce[mifunc])\nRETURN NIL\n\nComo se ve en el modulo, el arreglo aProce guarda las funciones que deben ejecutarse segun el item del menu y luego son llamadas en la funcion EjecFunc\n\nEspero que se entienda y te pueda servir. Cualquier cosa me avisas\nAtte.\nCesar','',0,'','vv3vzi4r',1,0,'',294,0,0),(23683,5372,7,2,0,'87.218.146.249',1166529042,1,0,1,1,1,1,'','','Andrés,\n\nPor favor prepara un ZIP con tu ejemplo, incluyendo las DBFs, índices, y los bitmaps usados, y súbelo a <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> y pon aqui la dirección que te dé de descarga, gracias','',0,'','2618cbji',1,0,'',2,0,0),(23684,5372,7,2,0,'87.218.146.249',1166529202,1,0,1,1,1,1,'','','Andrés,\n\n&gt; 4 Al arrancar la aplicación ¿como mando el foco al Grid?. \n\noBrowse:SetFocus()\n\n&gt; 5 Se puede deshabilitar/habilitar pestañas de un fold??? \n\noFolder:aEnable = { .T., .F. }\n\nEsto deshabilitaría la segunda pestaña.','',0,'','2ps8btyx',1,0,'',2,0,0),(23685,5365,1,2,0,'87.218.146.249',1166529395,1,0,1,1,1,1,'','','Jose,\n\nDo you mean that you want to issue a SQL UPDATE command or that you want to update the DBF from the ODBC, or viceversa ?','',0,'','190ibppi',1,0,'',2,0,0),(23686,5369,2,2,0,'87.218.146.249',1166529484,1,0,1,1,1,1,'','','Francis,\n\nComo tienes indexada la DBF ? Que clave usas para el índice ?','',0,'','2fzowax9',1,0,'',2,0,0),(23687,5372,7,449,0,'212.64.224.241',1166530637,1,0,1,1,1,1,'','','Andres,\n\nNo te habia entendido bien el tema de la edicion (ahora creo q si).\n\nLa manera correcta de trabajar es:\n\nCrear ventana\nCrear folder\nCrear Dialogos de folder\n\nA partir de aqui la idea es que si tengo un browse en una pestaña, quiero q se actualicen los datos de otra pestaña. La solucion esta en REFRESCAR los controles de la 2 pestaña.\n\nSi tu tienes definidos los controles de la 2 pestaña p.e.\n\n  @1,1 GET oGet1 VAR cVar1 OF oFld:aDialogs[2]\n\nEn el browse bastaria hacer:\n\nON CHANGE ( cVar1 := nuevo valor, oGet1:refresh() )  \n\nLo que haces tu es crear cada vez controles nuevos. \n\nEspero q te sirva.\n\nSiau.','',0,'','2ss0vxcu',1,0,'',449,0,0),(23688,5356,7,527,0,'81.32.66.230',1166531818,1,0,1,1,1,0,'','ok','A mi de da error en tanto en la pokect como en el emulador, y da igual que sea en la raiz que en el la pokect que en la tarjeta de memoria.','',0,'','2y45z5r6',1,0,'',527,0,0),(23689,5372,7,893,0,'80.34.86.46',1166531885,1,0,1,1,1,0,'','fuente','Aquí va la ubicación:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/GOF9MIZV/Clientes.zip\">http://www.uploading.com/files/GOF9MIZV/Clientes.zip</a><!-- m -->\n\nAntonio: \nGracias  por las respuestas.','',0,'','2wcfrhoo',1,0,'',893,0,0),(23690,5372,7,893,0,'80.34.86.46',1166532393,1,0,1,1,1,0,'','Grid','Carles\n\nMuy agradecido. lo pruebo.','',0,'','upd5lsz6',1,0,'',893,0,0),(23691,5370,19,177,0,'82.130.229.18',1166533936,1,0,1,1,1,0,'','','Hola Carlos,\n\nigual que a Oracle 8 , 9 , mediante ODBC con Condor de Manuel Expósito o con ADO.\n\nSaludos,\n\nFélix','',0,'','2vtflz7y',1,0,'',177,0,0),(23692,5356,7,449,0,'212.64.224.241',1166536809,1,0,1,1,1,1,'','','Si al final del ejemplo de Antonio pones Msginfo( len(aGetWorkAreas()) ), veras como te da q estan las 25 areas abiertas. Verificado en Pocket.\n\nSiau','',0,'','3u9y1hld',1,0,'',449,0,0),(23693,5370,19,92,0,'80.33.133.32',1166536834,1,0,1,1,1,0,'','','Gracias Félix,\n\nentonces cuando llegue el momento empezaré a investigar.\n\nSaludos\nCarlos G.','',0,'','2tdntvcp',1,0,'',92,0,0),(23694,5341,6,519,0,'88.22.133.132',1166538031,1,0,1,1,1,0,'','','Por favor alguien que utilize el EasyPreview me puede confirmar si se puede exportar a PDF','',0,'','16h8eoza',1,0,'',519,0,0),(23695,5373,6,278,0,'164.77.49.216',1166538775,1,0,1,1,1,1,'','xBrowse - grave problema en borrado de filas con array.','Hola Foro:\n\nTengo un problema grave con el xBrowse, he mirado la\nclave pero no existe un metodo para borrar\nuna fila determinada del browse, al trabajar con \narreglos (ARRAY ).  \nSi hay para borrar columnas, pero no de filas ( rows ).\n\n\nAlguien sabe como solucionar esto, pues no se como\nhacerlo, he intentado con usar:\n\n     ADEL( aDatos, oBrw:nArrayAt )\n \n	\n     oBrw:SetArray( aDatos, .T. )   //    Aqui asigno el nuevo Array\n\n\n     oBrw:Refresh( )\n\n	\nPero cuando refresco el xBrowse, se produce un error de ejecución.\n\nAlguien tiene algun ejemplo o forma de corregirlo.\n\nGracias anticipadas,\n\nJuan','',0,'','31rivdbm',1,0,'',278,0,0),(23696,5374,3,876,0,'81.165.218.177',1166538919,1,0,1,1,1,0,'','comp.lang.xharbour on UseNet','Hello,\n\nAs promised we were working on the ability to archive and search xHarbour related posts.\n\nWe concluded that the best choice for xHarbour would be a direct forum on UseNet as a first class citizen comp.lang.xharbour. We therefore proceeded to apply with the proper authority (the Big-8 board), by filling an official application for comp.lang.xharbour.\n\nThe Big-8 allow and *encourage* input from prospective users, supporting the request as well as input from those opposing such request.\n\nTo support the creation of comp.lang.xharbour, please post directly, to:\n<!-- m --><a class=\"postlink\" href=\"http://groups.google.com/group/news.groups.proposals/browse_frm/thread/f44f8ab8101ae477/2a319f0da725021f#2a319f0da725021f\">http://groups.google.com/group/news.gro ... 0da725021f</a><!-- m -->\n\n--\nSincerely,\n\nPatrick Mast','',0,'','1j72xs39',1,0,'',876,0,0),(23697,5375,7,893,0,'80.34.86.46',1166541966,1,0,1,1,1,0,'','BUTTON','Me podria decir alguien como pongo  un bmp en un BUTTON y si hay alguna clausula más.\n\nMi código: @0, 16 BUTTON oGrabar PROMPT \"\"  SIZE 25, 25\n\n\nGracias.','',0,'','oxefxpvc',1,0,'',893,0,0),(23698,5356,7,2,0,'87.218.146.148',1166544628,1,0,1,1,1,1,'','','Manuel,\n\nQue pocket pc usas ? Cuanta memoria tiene ?\n\nAqui funciona perfectamente en el emulador. El emulador lo arrancamos pasándole el parámetro /memsize 128 para que emule 128 megas de memoria. No lo hemos probado sin ese parámetro.','',0,'','mvpmoiv5',1,0,'',2,0,0),(23699,5343,2,812,0,'200.83.125.98',1166544695,1,0,1,1,1,0,'','Re: ¿Como hago el archivo .lnk paracompilar?','Hola:\n\nTe envio los 2 archivos.\n\nEspero te sirva, una Feliz Navidad y un excelente 2007.\n\nMiguel Rivera\n-------------\n\n *.LNK\n******\nBLINKER  executable compress\nblinker INCREMENTAL OFF\nBLINKER CLIPPER SYMBOL OFF\nBLINKER SEGMENT THRESHOLD 65500\nSTACK 7068\nBLINKER PROCEDURE DEPTH 70\n\nDEFBEGIN\n   name        INFORMES\n   description \'INFORMES DE EXAMENES\'\n   exetype     Windows 3.1\n   code        preload moveable discardable\n   data        preload moveable\n   stacksize   8192\n   heapsize    2048\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\nbeginarea\n File  Inmobili\n File  TcBrowse\n File  TcColumn\n File  Actuven\nendarea\nNobell\n\n\nLib D:\\MIGUEL\\FW22\\lib\\five\nLib D:\\MIGUEL\\FW22\\lib\\fivec\nLib D:\\MIGUEL\\FW22\\lib\\objects\nLib D:\\MIGUEL\\FW22\\lib\\winapi\nLIB r:\\lib\\CLIPPER.LIB\nLIB r:\\lib\\EXTEND.LIB\nLIB r:\\lib\\DBFCDX.LIB\nLIB r:\\lib\\DBFNTX.LIB\nLIB r:\\lib\\terminal.lib\n\n*****\n\n *.RMK\n\ncompile = d:\\util\\c52\\bin\\clipper $&lt; /i /n /d\nlink = d:\\util\\bl70\\bin\\blinker\n\n\n.Prg.Obj:\n    $(compile)\n\nInmobili.Obj  : Inmobili.prg\nTcBrowse.Obj  : TcBrowse.Prg\nTcColumn.Obj  : TcColumn.Prg\nActuven.Obj   : Actuven.prg\nRutinas.Obj   : Rutinas.prg\nActuofi.Obj   : Actuofi.prg\nActuproy.Obj  : Actuproy.prg\nActuciu.Obj   : Actuciu.prg\nActucom.Obj   : Actucom.prg\nTipDep.Obj    : TipDep.prg\nOridep.Obj    : Oridep.prg\nActuedi.obj   : Actuedi.prg\nActudep.obj   : Actudep.prg\nActupara.Obj  : Actupara.prg\nActucli.Obj   : Actucli.prg\n\nInmobili.Exe  : Inmobili.Obj  TcBrowse.obj    TcColumn.obj    Actuven.Obj Rutinas.obj\\\n		Actuofi.obj   Actuproy.obj Actuciu.Obj Actucom.Obj TipDep.obj Oridep.obj\\\n		Actuedi.Obj   Actudep.Obj  Actupara.obj Actucli.obj\n	    d:\\util\\bl70\\bin\\Blinker @compi1.Lnk','',0,'','30q79rov',1,0,'',812,0,0),(23700,5365,1,819,0,'216.34.194.113',1166544839,1,0,1,1,1,0,'','','Antonio,\n\nI am trying to update SQL table from Clipper/FiveODBC.  Also want to execute stored procedure from Clipper/FiveODBC.\n\nThanks,\n\nJose','',0,'','8p3lq460',1,0,'',819,0,0),(23701,5375,7,2,0,'87.218.146.148',1166544944,1,0,1,1,1,1,'','','Andrés,\n\nPara usar una imagen en el botón no se usa BUTTON sino BTNBMP:\n\n@ 0, 16 BTNBMP oGrabar RESOURCE \"nombre_imagen\" SIZE 25, 25 PROMPT \"Ok\" TOP\n\nLa imagen puedes elegir entre mantenerla fuera del EXE en un fichero BMP, ó \"incrustarla\" dentro del EXE.\n\nSi la vas a mantener fuera del EXE has de usar FILENAME en vez de RESOURCE. Si decides tenerla dentro del EXE has de crear un fichero RC que tenga el mismo nombre que el PRG principal y extensión .rc y que contenga esto:\n\nnombre_imagen BITMAP \"NombreFicheroImagen.bmp\"','',0,'','3u6rz2sy',1,0,'',2,0,0),(23702,1808,2,812,0,'200.83.125.98',1166544966,1,0,1,1,1,0,'','Favor enviar las clases','Hola Daniel:\n\nTe agradeceria, si me puedes enviar las clases a mi privado por favor.\n\n<!-- e --><a href=\"mailto:marf2@tutopia.com\">marf2@tutopia.com</a><!-- e -->\n\nDesde ya una feliz navidad y un prospero años 2007.\n\n\n\n[quote=&quot;DanielPuente&quot;:13tvsa0n]Cristian: \n\n             Te envie a tu privado la clase y dos prg.\n\nSaludos,[/quote:13tvsa0n]','',0,'gA==','13tvsa0n',1,0,'',812,0,0),(23703,5368,6,558,0,'200.62.215.42',1166545565,1,0,1,1,1,0,'','','Mauricio acabo de cargar una imagen .jpg de 1.5 mb y lo imprimi sin problemas.\n\n\nFWH, xHarbour','',0,'gA==','1bqehcvu',1,1166547086,'',558,1,0),(23704,5365,1,2,0,'87.218.146.148',1166545777,1,0,1,1,1,1,'','','Jose,\n\nTo update a field simply assign it as you do in Clipper:\n\nfieldName1 := newValue1\nfieldName2 := newValue2\n...\noRdd:oOdbc:Update( .T. )\n\nPlease review Class TRddODbc and Class TODBC Methods PutValue() to see how it works.\n\nYou can also issue a generic SQL UPDATE command using oRdd:oOdbc:Execute( \"UPDATE ... \" )','',0,'gA==','3q6hmbti',1,0,'',2,0,0),(23705,5373,6,106,0,'85.34.123.173',1166545895,1,0,1,1,1,1,'','','No es un problema del browse, el problema es de ADEL()\n\n\n[code:25f4lwih]\n        LOCAL aMatriz\n        aMatriz &#58;= &#123; 1, 2, 3 &#125;       // Resultado&#58; aMatriz es\n                                     // ahora &#123; 1, 2, 3 &#125;\n        ADEL&#40;aMatriz, 2&#41;             // Resultado&#58; aMatriz es\n                                     // ahora &#123; 1, 3, NIL &#125;\n[/code:25f4lwih]\n\nPrueba a cambiar la dimension con ASIZE()\n\nASIZE( aMatriz, 2 ) en el ejemplo anterior.\n\n\n\nYo lo uso asi:\n\n\n\n[code:25f4lwih]\n        &#46;&#46;&#46;&#46;&#46;\n        ADEL&#40; aElenco, nPos &#41;\n        ASIZE&#40; aElenco, LEN&#40; aElenco &#41; - 1 &#41;\n        &#46;&#46;&#46;&#46;&#46;&#46;\n[/code:25f4lwih]\n\n\n\nSaludos','',0,'AIA=','25f4lwih',1,0,'',106,0,0),(23706,5368,6,7,0,'201.143.103.215',1166546724,1,0,1,1,1,0,'','','Francisco,\n\nestas usando TImage?\n\nSaludos,\nMauricio Bernal','',0,'AIA=','26fe6i96',1,0,'',7,0,0),(23707,5368,6,558,0,'200.62.215.42',1166547841,1,0,1,1,1,0,'','','Mauricio\n\ntengo una rutina de impresion para imagenes (no uso tImage)\nuso el objeto printer\nla uso asi \n\n oPrn:SayImage(1.3,0.2,\"FOTO.JPG\",2.6,2.2)\n\nFWH XHARBOUR','',0,'AIA=','2wwyus2s',1,0,'',558,0,0),(23708,5375,7,893,0,'80.34.86.46',1166549534,1,0,1,1,1,0,'','','Antonio.\nLa verdad es que como esta pregunta tengo y tendré varias.\n\nGracias por tu paciencia.','',0,'AIA=','jkczs1lh',1,0,'',893,0,0),(23709,5376,6,73,0,'200.66.35.210',1166551876,1,0,1,1,1,0,'','truco para ventas no fiscales...','hola foro, quiero opinion de como hacer para ciertas ventas no hacerlas fiscales (ventas no registradas), que recomiendan, y obvio tener controlados los inventarios de esas ventas?\nsalu2\npaco','',0,'AIA=','286r6xxq',1,0,'',73,0,0),(23710,5376,6,7,0,'201.143.103.215',1166554731,1,0,1,1,1,0,'','','Paco:\n\nen <!-- w --><a class=\"postlink\" href=\"http://www.shcp.gob.mx\">www.shcp.gob.mx</a><!-- w --> encuentras la info','',0,'AIA=','2cceac46',1,0,'',7,0,0),(23711,1808,2,235,0,'189.140.57.101',1166555179,1,0,1,1,1,0,'','','Hola Daniel: \n\nTe agradeceria, si me puedes enviar las clases a mi privado por favor.\n\n<!-- e --><a href=\"mailto:gerardofarfan@yahoo.com\">gerardofarfan@yahoo.com</a><!-- e -->','',0,'AIA=','19kfl6ro',1,0,'',235,0,0),(23712,5376,6,73,0,'200.66.35.210',1166555891,1,0,1,1,1,0,'','','gracias mauricio por la info, espero no ofender a nadie es cuestion de una consulta, a lo mejor no fue el medio para la duda, ofrezco una disculpa\nsalu2\npaco','',0,'AIA=','2qt9u9w0',1,0,'',73,0,0),(23713,5373,6,278,0,'164.77.49.216',1166556103,1,0,1,1,1,1,'','','Hola Pedro,\nGracias por tus indicaciones, voy a probarlas.\n\nRecibe afectuosos saludos,\nJuan','',0,'AIA=','1ahncro4',1,0,'',278,0,0),(23714,5375,7,2,0,'87.218.146.148',1166556399,1,0,1,1,1,1,'','','Andrés,\n\nNo hay problema, estamos aqui para ayudar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','hzaqjhlr',1,0,'',2,0,0),(23715,5356,7,527,0,'88.12.144.9',1166562338,1,0,1,1,1,0,'','Entonces teneis que ayudarme por favor con otro tema','Como puedo comprobar si un [b:14ct5ywr]DBF[/b:14ct5ywr] ya esta abierto en algun area de memoria.[/b]','',0,'QA==','14ct5ywr',1,0,'',527,0,0),(23716,5356,7,2,0,'87.218.146.148',1166564555,1,0,1,1,1,1,'','','Manuel,\n\nPuedes usar:\n\n  SELECT( [&lt;cNombreDbf ó cAlias &gt;] ) --&gt; nWorkArea\n\nSi te devuelve un valor distinto de cero, significa que está en uso en esa área de trabajo.','',0,'','2vr5jpn5',1,0,'',2,0,0),(23717,5341,6,785,0,'190.64.116.213',1166568830,1,0,1,1,1,0,'','','Frafive:\n\nYo uso EasyPreview, no se puede exportar a PDF\nantiguamente lo hacia, pero según sus autores\nla DLL que lo hacia era muy cara para seguir incluyendola.\n\nSaludos\n\nRuben Fernandez.','',0,'','1lbxh2sn',1,0,'',785,0,0),(23718,1808,2,348,0,'200.62.161.161',1166570974,1,0,1,1,1,0,'','','Uppsss...  me olvide comentarte , que lla fuente y la clase me la pudieras enviarmenla a mi correo <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n\nmuchas gracias \n\n[quote=&quot;lubin&quot;:2sraf4ee]Mi estimado amigo, te m,olestaria enviarme esas fuentes y la clase utilizada y mencionada si no es molestia,  me ayudaria bastante,\nGracias. lubin\n\n[quote=&quot;devwin2004&quot;:2sraf4ee]Estimados Colegas\n\nPueden descargar  un demo  que contiene un browse para facturacion\ncon tsbrowse (clipper) desde <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/01e03d2445/GVTA2006.zip.html\">http://hyperupload.com/download/01e03d2 ... 6.zip.html</a><!-- m -->\nal que le interese le puedo enviar los fuentes del modulo de facturacion\n\nGracias\nDEvwin2004[/quote:2sraf4ee][/quote:2sraf4ee]','',0,'gA==','2sraf4ee',1,0,'',348,0,0),(23719,3900,6,299,0,'24.233.172.101',1166574731,1,0,1,0,1,0,'','','Maurilio;\n\nhi.\n\nI tried your sample code.  I have two problems:\n#1.\n[quote:2hjblv9d]\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_BLOBEXPORT\' referenced from F:\\MP\\PATHLABS\\IMAGE.OBJ\nError: Unresolved external \'_HB_FUN_BLOBIMPORT\' referenced from F:\\MP\\PATHLABS\\IMAGE.OBJ\n[/quote:2hjblv9d]\n\n#2.\n[quote:2hjblv9d]\nWarning W0001  Ambiguous reference: \'BLOB_EXPORT_OVERWRITE\'\n[/quote:2hjblv9d]\n\nPlease advise where are BLOB constans being defined and what .lib is needed when blob functions are used with xharbour.   Thank you.\n\n\n\nReinaldo.','',0,'gA==','2hjblv9d',1,0,'',299,0,0),(23720,5341,6,299,0,'24.233.172.101',1166575474,1,0,1,0,1,0,'','','FraFive;\n\nEasypreview NO exporta a PDF.  Sin embargo, existe una manera barata y facil de exportar a pdf usando un 3rd party library.  \n\nHaz search en el foro en inglés por el tema de PDF y verás un post de Tim Stone donde muestra como hacerlo.  Yo simplemente seguí los pasos que el ofrece y me funcionó perfectamente.\n\nel link es:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4757\">http://fivetechsoft.com/forums/viewtopic.php?t=4757</a><!-- m -->\n\n\nSaludos,\n\n\n\nReinaldo.','',0,'gA==','m1rhm340',1,0,'',299,0,0),(23721,5341,6,53,0,'189.139.95.171',1166579197,1,0,1,1,1,1,'','','Reinaldo:\n\nTe importaría enviarme un pequeño ejemplo de cómo lograr exportar a PDF ?\n\nLo he intentado pero sin éxito.\n\nSaludos y muchas gracias, Armando','',0,'gA==','dfhpszi0',1,0,'',53,0,0),(23722,5377,16,2,0,'87.218.146.148',1166602456,1,0,1,1,1,1,'','FTDN new December 2006 build / nuevo build de Diciembre 2006','December 6.12 2006 build\n===================\n \n * New: sample samples\\BmpOnBmp.prg shows how to paint a transparent bitmap on top of another bitmap.\n\n * Enhancement: Class TFolder properly uses clause RESIZE16 for its contained dialogs. Thanks to Enrico!\n    \n * Enhancement: function PrinterSetup() is returning the hDC of the selected printer if Accept is pressed, or zero if cancel is pressed. This function is automatically used from Class TPrinter.\n      \n * Enhancement: PrnGetName() has been improved to avoid a possible GPF when using printers attached to another workstation that happens to be turned off.\n   \n * Enhancement: FWPPC scrollbars controls default values modified. Please review samples\\TestScrl.prg\n   \n * New: FWPPC, samples\\FoxDbc.prg for FoxPro users: Allows to use DBFs that belong to databases (DBC files).\n   \n * Fix: Class TTreeView function SearchItem() was missing due to recent code changes. Please note that it has been renamed as SearchItem() from previous ScanItem() name.  \n\n * Fix: FWPPC, samples\\TestFld.prg was not properly quitting. Now it is ok.\n \n * Fix: FW++, minor changes on Class TWBrowse due to Xbase++ own classes engine behavior.\n \n * Fix: FWH, recent changes in Class TFolder introduced a bug when folders were used on a window. Now it is ok.\n   \n * Enhancement: FWH, Class TSay Method SetText() now makes a call to its Method VarPut() too. This change makes the print preview to show the right page on non XP themed applications.\n   \n * New: function IsInternet() --&gt; lYesNo, to detect if there is internet access.\n \n * IMPORTANT: FiveWin version number system to change: We have changed the FiveWin version number using the same way as Ubuntu Linux does: The year and the month, i.e.: this new build is 6.12 meaning that is released on 2006 December. i.e.: Next year, January: 7.01 and so on. This way we don\'t have to ask users about the dates of the libraries that they are using, so we can provide a better tech support.\n \n * Fix: FWH, Class TGet and Harbour, there was a bug when using @R and @E pictures. Now it is ok.\n   \n * New: FWPPC, Class TGraph already available for FWPPC. Implement bussiness graphics in your applications. Please review samples\\graph.prg. Thanks to Pier Luigi for his help!\n     \n * Enhancement: samples\\TestTreR.prg shows how to use a treeview from resources showing the tree lines, border and the vertical scrollbar.\n   \n * New: FWPPC, Class TWindow Method HScroll(). It was not implemented, now it is.\n \n * New: FWPPC, samples\\TestMnu2.prg and TestMnu2.rc, they show how to build a complete pulldown menu with several submenus.\n   \n * Fix: function HtmlHelp(), HTMLHelpCtx() and HTMLHelpPopup() were not properly defined at source\\winapi\\help32.prg (PASCAL clause was missing). Now they are ok. This is a sample of use: HtmlHelp( 0, \"c:\\fwh\\manual\\fwclass.chm\", 2, 0 )\n\n* Warning: We don\'t provide new Harbour/xHarbour builds for this december release. We will be publish them next month, as there have been many changes in them and we want to do more extensive tests.','',0,'gA==','15g2x14b',1,0,'',2,0,0),(23725,5380,7,893,0,'80.34.86.46',1166609976,1,0,1,1,1,0,'','Se puede en un FOLD','Buenas a todos.\nTengo una pregunta:\nEs posible activar por código una pestaña de un fold por ejemplo desde un boton. Sería el evento CLICK y ACTIVATE desde Visual.\n\nGracias de antemano.','',0,'gA==','28c3esk9',1,0,'',893,0,0),(23726,5380,7,449,0,'212.64.224.244',1166610341,1,0,1,1,1,1,'','','Hola,\n\noFolder:SetOption( nOption )\n\nSiau.','',0,'gA==','3370yuok',1,0,'',449,0,0),(23727,5380,7,2,0,'87.218.146.148',1166610732,1,0,1,1,1,1,'','','@ ..., ... BUTTON ... ACTION oFolder:SetOption( nOption )','',0,'gA==','bu0g3nqi',1,0,'',2,0,0),(23728,5380,7,893,0,'80.34.86.46',1166611484,1,0,1,1,1,0,'','Gracias y otra cosilla','EN un Get que métodos puedo usar y como. Esto es\n@ 4.7, 8 GET ogetNF VAR lcNombreF OF oFld:aDialogs[2] SIZE 160, 18 \n\nQuiero que al validar ejecute un método.\n¿Que métodos a parte de algo parecido a VALID que me comentareis, exieten?.\n\nHay algún ejemplo.\nEn la ayuda no veo nada o no se encontrarlo. Es el ppal problema que tengo (encontrar información sobre la definición de las funciones)\n\nMuchas gracias de nuevo.','',0,'','1s5uove4',1,0,'',893,0,0),(23729,5381,3,2,0,'87.218.146.148',1166612467,1,0,1,1,1,1,'','Season\'s Greetings - Felices Fiestas','[url=http&#58;//imageshack&#46;us:2jx28rk7][img:2jx28rk7]http&#58;//img86&#46;imageshack&#46;us/img86/2185/xmaspq5&#46;png[/img:2jx28rk7][/url:2jx28rk7]','',0,'GA==','2jx28rk7',1,0,'',2,0,0),(23730,5382,6,2,0,'87.218.146.148',1166612519,1,0,1,1,1,1,'','Felices fiestas','[url=http&#58;//imageshack&#46;us:3dsb8ncs][img:3dsb8ncs]http&#58;//img86&#46;imageshack&#46;us/img86/2185/xmaspq5&#46;png[/img:3dsb8ncs][/url:3dsb8ncs]','',0,'GA==','3dsb8ncs',1,0,'',2,0,0),(23731,5383,7,527,0,'88.11.6.127',1166612619,1,0,1,1,1,0,'','Ayuda con impresoras','me podeis indicar un ejemplo en donde puede ver como [b:2a1wgi2a]imprimir un documento [/b:2a1wgi2a]en una impresora, pero con el [b:2a1wgi2a]font y el tamño [/b:2a1wgi2a]de letra [b:2a1wgi2a]cambiado[/b:2a1wgi2a].\n\ngracias.','',0,'QA==','2a1wgi2a',1,0,'',527,0,0),(23732,5380,7,2,0,'87.218.146.148',1166612713,1,0,1,1,1,1,'','','Andrés,\n\nSi quieres que la acción se ejecute cuando se pase de ese GET al siguiente, entonces puedes usar el VALID perfectamente:\n\n@ ..., ... GET ... VALID ( oFolder:SetOption( nOption ), .T. )','',0,'QA==','1fsahltf',1,0,'',2,0,0),(23733,5383,7,2,0,'87.218.146.148',1166612836,1,0,1,1,1,1,'','','Que tipo de impresora vas a usar, por bluetooth ?','',0,'QA==','3w09cqbz',1,0,'',2,0,0),(23734,5341,6,299,0,'24.233.172.101',1166624751,1,0,1,0,1,0,'','','Llamas la funcion de abajo enviando como parametro las pagianas que genera treport (ameta) y como segundo parametro envias el nombre que le quieres dar al pdf.\n\nObserva que no hay nada nuevo ni diferente a lo que hace Tim Stone en el link que te envié y que tienes que adquirir Image2pdf.dll.  Ese es el truco.  Para adquirir el .dll sigue el link donde Tim Stone explica como y donde adquirirlo.  Funciona muy bien.\n\n[code:32izjfjx]\n*-------------------------------------------------------------------------------------------------------------------------------\nFUNCTION BuildPDF&#40; aFiles, cPdfFileName &#41;\nLOCAL imageFilename &#58;= &quot;   &quot;\nLOCAL ix\nLOCAL iErr &#58;= 0\nLOCAL errorText &#58;= &quot;  &quot;\nLOCAL hLib &#58;= LoadLib32&#40; &quot;image2PDF&#46;dll&quot; &#41;\nTRY\n	if ValType&#40; aFiles &#41; == &quot;A&quot;\n\n		iErr &#58;= IPMeta&#40; &#41;		// Flag that his is a meta file\n		iErr &#58;= IPSize&#40; &#41;		// Reset the size\n\n		FOR ix &#58;= 1 TO LEN&#40; aFiles &#41;	// Build the pages using the array of temp files\n			imageFilename &#58;= aFiles&#91;ix&#93;\n			iErr &#58;= IPAddImg&#40;imageFilename&#41;\n		NEXT\n\n		iErr &#58;= IPSetDPI&#40;0&#41;	// Set DPI to the default for PDF\'s&#46;  It works better&#46;\n		iErr &#58;= IPMakePDF&#40;cPdfFileName, 0, errorText, 40 &#41;	// Create the PDF&#46;\n\n	Endif\nCATCH\n	FreeLib32&#40; hLib &#41;\nEND\nRETURN&#40; cPdfFilename &#41;\n\n*-------------------------------------------------------------------------------------------------------------------------------\n\nDLL32 STATIC FUNCTION COPYEMF&#40; hEMF AS LONG, cEMF AS LPSTR &#41; AS LONG;\n   PASCAL FROM &quot;CopyEnhMetaFileA&quot; LIB &quot;gdi32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION WMF2EMF&#40; cWMF AS LPSTR &#41; AS LONG ;\n   PASCAL FROM &quot;Wmf2Emf&quot; LIB &quot;emf&#46;dll&quot;\n\nDLL32 STATIC FUNCTION DELETEEMF&#40; hEMF AS LONG &#41; AS BOOL ;\n   PASCAL FROM &quot;DeleteEMF&quot; LIB &quot;emf&#46;dll&quot;\n\nDLL32 STATIC FUNCTION I2PLic&#40; cLicCode AS LPSTR&#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_License&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\nDLL32 STATIC FUNCTION IPMeta&#40; &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_MetaToNativePDF&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\nDLL32 STATIC FUNCTION IPSize&#40; &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_UseEMFDeviceSize&quot; LIB &quot;Image2PDF&#46;DLL&quot;\n\n//  static unsigned int I2PDF_AddImage&#40;char *image&#41;;\nDLL32 STATIC FUNCTION IPAddImg&#40; cImage AS LPSTR &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_AddImage&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\n//  static unsigned int I2PDF_SetDPI&#40;unsigned int dpi&#41;;\nDLL32 STATIC FUNCTION IPSetDpi&#40; nDpi AS LONG &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_SetDPI&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\n//   static unsigned int I2PDF_MakePDF&#40;char *output, int options, char *errorText, unsigned int maxErrorTextSize&#41;;\nDLL32 STATIC FUNCTION IPMakePDF&#40; cOutFile AS LPSTR, nOptions AS LONG, cErrTxt AS LPSTR, nMaxESize AS LONG &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_MakePDF&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\n\n[/code:32izjfjx]','',0,'AIA=','32izjfjx',1,0,'',299,0,0),(23735,5384,6,64,0,'201.72.124.2',1166625611,1,0,1,1,1,1,'','Controle Activex. Capturar eventos','Como capturar eventos activex em Fivewin?\n\nImageAcquired\nThis event is fired whenever a fingerprint image is acquired from a plugged fingerprint reader.\n\nPrerequisites  The capture module must have been previously initialized.\nAt least one fingerprint reader started capturing fingerprint images.\n\nParameters \n[in] idSensor The ID of the fingerprint reader that raised the event.\n[in] width Fingerprint image width in pixels.\n[in] height Fingerprint image height in pixels.\n[in] rawImage The raw grayscale fingerprint image.\n[in] res Fingerprint image resolution in DPI.\n \nDECLARATION C#\nvoid [Control Name]_ImageAcquired(object sender, [Library Name]._IGrFingerXCtrlEvents_ImageAcquireEvent e)\n\nSAMPLE C#\nprivate void axGrFingerXCtrl1_ImageAcquired(object sender, AxGrFingerXLib._IGrFingerXCtrlEvents_ImageAcquiredEvent e)\n{\n// Copying acquired image\n_raw.img = e.rawImage;\n_raw.height = (int) e.height;\n_raw.width = (int) e.width;\n_raw.Res = e.res;\n\n// Signaling that an Image Event occurred.\nWriteLog(\"Sensor: \" + e.idSensor + \". Event: Image captured.\");\n\n// display the fingerprint image\nPrintBiometricDisplay(false, GRConstants.GR_DEFAULT_CONTEXT);\n\n}','',0,'','k8dgo7hj',1,0,'',64,0,0),(23736,5373,6,278,0,'164.77.49.216',1166625758,1,0,1,1,1,1,'','','Pedro, todo funcionando O.K.\n¡¡GRACIAS!!\nJuan','',0,'','2hdwr887',1,0,'',278,0,0),(23737,5385,6,278,0,'164.77.49.216',1166625890,1,0,1,1,1,1,'','LES sucede esto con ADO y access ??','Hola Foro:\n\nAqui sigo dando la pelea con el ADO, tengo una gran duda.\n\nNo se si esto es asi o yo lo estoy haciendo mal.\n\n1) Estoy usando un archivo access 2000 y tengo definido varios\ncampos alfanumericos ( texto ) de largo fijo de 40 caracteres por ejemplo.\n\n2) El problema es cuando grabo un campo, donde solo se utilizo una parte\ndel largo, por ejemplo 15 letras. Al recuperarlo con un recordset y quiero\nescribir y usar el especio restante, no se puede, el curso del get se queda pegado.\n\nEsto es muy grave, pues hay procesos donde uno debe cambiar los datos.\n\n\n3) Parece ser que el recordset devuelve solo lo grabado, no el largo\ntotal del campo definido. El tipo de dato que devuelve es adVarChar.\n\nOcurre con otras BD como Mysql o es algo propio del ADO ??\n\nAlguna idea de como solucionarlo ???\n\nSaludos,\n\nJuan','',0,'','2iwuwdyf',1,0,'',278,0,0),(23738,5348,6,397,0,'201.42.10.193',1166627920,1,0,1,0,1,1,'','','Amiguinha\n\nVoce tem MSN? ICQ? me envie.','',0,'','26ffh401',1,0,'',397,0,0),(23739,5386,7,527,0,'88.1.226.207',1166629304,1,0,1,1,1,0,'','Es una PCL','samsum 3050n','',0,'','l2esbnbc',1,0,'',527,0,0),(23740,5387,6,43,0,'189.128.1.116',1166629422,1,0,1,1,1,0,'','Cambio de Pestaña en Folder y Foco en 1er. Get','Hola:\n\nTengo un dialogo donde tengo un folder con 2 pestañas y en cada pestaña varios gets, bueno entonces trato de cambiar de pestaña del folder desde el ultimo get, he logrado cambiar de pestaña pero no establece el foco en el primer get, he probado:\n\noFld:SetOption(2)    &lt;-- esto si funciona\noGet[9]:setFocus()    &lt;-- esto no funciona\n\ntambien he probado\n\noFld:aDialogs[2]:bgotFocus := {|| oGet[9]:setFocus(.t.) }\n\ny tampoco ha funcionado, he visto otro mensaje igual al mio, pero no encontrado la solucion, alguien me podria orientar.\n\nSaludos\nMarco A. Delgado.','',0,'','28w9dhvf',1,0,'',43,0,0),(23741,5387,6,43,0,'189.128.1.116',1166631299,1,0,1,1,1,0,'','','Solucionado:\n\noGet[8]:oJump := oGet[9]\noFld:SetOption(2)\n\n\nSaludos\nMarco A. Delgado.','',0,'','2g49396g',1,0,'',43,0,0),(23742,5381,3,20,0,'82.55.0.205',1166632300,1,0,1,1,1,0,'','Re: Season\'s Greetings - Felices Fiestas','Merry Christmas and happy new year to all.\n\nPier Luigi','',0,'','1y5qtdhe',1,0,'',20,0,0),(23743,5386,7,2,0,'87.218.146.148',1166635084,1,0,1,1,1,1,'','','Manuel,\n\nPor bluetooth ?','',0,'','2mng4eh5',1,0,'',2,0,0),(23744,5384,6,2,0,'87.218.146.148',1166635277,1,0,1,1,1,1,'','','Syda,\n\nPlease review samples\\webexp.prg:\n\noActiveX&#058;bOnEvent = { | event, aParams, pParams | ... your code ... }','',0,'','14pqvs6z',1,0,'',2,0,0),(23745,5336,3,2,0,'87.218.146.148',1166635517,1,0,1,1,1,1,'','','Frank,\n\nPlease upload the sample to <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> and copy here the download url, thanks.','',0,'','2ysmefeu',1,0,'',2,0,0),(23746,5388,7,720,0,'80.36.244.134',1166639286,1,0,1,1,1,0,'','botones y formas...','Hola a todos...\n\nMe ha llegado el momento de empezar a cambiar el entorno y ponerlo \'bonito\'... Entonces me surgen unas preguntillas..\n\n- Existe la posibilidad de poner botones transparentes en el que solo se vea la imagen?? Si es así podeis ponerme un ejemplo??\n\n- Si no quisiera poner un boton sino un texto, como puedo hacerlo intuitivo?,es decir, que el usuario sepa que ahí se puede pulsar y que es una opcion más y no un texto cualquiera....\n\nSaludos y gracias.\n\nElías Torres.','',0,'','mj4w28kr',1,0,'',720,0,0),(23747,5341,6,54,0,'189.132.111.56',1166640734,1,0,1,1,1,1,'','','[quote=&quot;reinaldocrespo&quot;:1d6r2lh7]Llamas la funcion de abajo enviando como parametro las pagianas que genera treport (ameta) y como segundo parametro envias el nombre que le quieres dar al pdf.\n\nObserva que no hay nada nuevo ni diferente a lo que hace Tim Stone en el link que te envié y que tienes que adquirir Image2pdf.dll.  Ese es el truco.  Para adquirir el .dll sigue el link donde Tim Stone explica como y donde adquirirlo.  Funciona muy bien.\n\n[code:1d6r2lh7]\n*-------------------------------------------------------------------------------------------------------------------------------\nFUNCTION BuildPDF&#40; aFiles, cPdfFileName &#41;\nLOCAL imageFilename &#58;= &quot;   &quot;\nLOCAL ix\nLOCAL iErr &#58;= 0\nLOCAL errorText &#58;= &quot;  &quot;\nLOCAL hLib &#58;= LoadLib32&#40; &quot;image2PDF&#46;dll&quot; &#41;\nTRY\n	if ValType&#40; aFiles &#41; == &quot;A&quot;\n\n		iErr &#58;= IPMeta&#40; &#41;		// Flag that his is a meta file\n		iErr &#58;= IPSize&#40; &#41;		// Reset the size\n\n		FOR ix &#58;= 1 TO LEN&#40; aFiles &#41;	// Build the pages using the array of temp files\n			imageFilename &#58;= aFiles&#91;ix&#93;\n			iErr &#58;= IPAddImg&#40;imageFilename&#41;\n		NEXT\n\n		iErr &#58;= IPSetDPI&#40;0&#41;	// Set DPI to the default for PDF\'s&#46;  It works better&#46;\n		iErr &#58;= IPMakePDF&#40;cPdfFileName, 0, errorText, 40 &#41;	// Create the PDF&#46;\n\n	Endif\nCATCH\n	FreeLib32&#40; hLib &#41;\nEND\nRETURN&#40; cPdfFilename &#41;\n\n*-------------------------------------------------------------------------------------------------------------------------------\n\nDLL32 STATIC FUNCTION COPYEMF&#40; hEMF AS LONG, cEMF AS LPSTR &#41; AS LONG;\n   PASCAL FROM &quot;CopyEnhMetaFileA&quot; LIB &quot;gdi32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION WMF2EMF&#40; cWMF AS LPSTR &#41; AS LONG ;\n   PASCAL FROM &quot;Wmf2Emf&quot; LIB &quot;emf&#46;dll&quot;\n\nDLL32 STATIC FUNCTION DELETEEMF&#40; hEMF AS LONG &#41; AS BOOL ;\n   PASCAL FROM &quot;DeleteEMF&quot; LIB &quot;emf&#46;dll&quot;\n\nDLL32 STATIC FUNCTION I2PLic&#40; cLicCode AS LPSTR&#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_License&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\nDLL32 STATIC FUNCTION IPMeta&#40; &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_MetaToNativePDF&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\nDLL32 STATIC FUNCTION IPSize&#40; &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_UseEMFDeviceSize&quot; LIB &quot;Image2PDF&#46;DLL&quot;\n\n//  static unsigned int I2PDF_AddImage&#40;char *image&#41;;\nDLL32 STATIC FUNCTION IPAddImg&#40; cImage AS LPSTR &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_AddImage&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\n//  static unsigned int I2PDF_SetDPI&#40;unsigned int dpi&#41;;\nDLL32 STATIC FUNCTION IPSetDpi&#40; nDpi AS LONG &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_SetDPI&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\n//   static unsigned int I2PDF_MakePDF&#40;char *output, int options, char *errorText, unsigned int maxErrorTextSize&#41;;\nDLL32 STATIC FUNCTION IPMakePDF&#40; cOutFile AS LPSTR, nOptions AS LONG, cErrTxt AS LPSTR, nMaxESize AS LONG &#41; AS LONG;\n   PASCAL FROM &quot;I2PDF_MakePDF&quot; LIB &quot;Image2PDF&#46;dll&quot;\n\n\n[/code:1d6r2lh7][/quote:1d6r2lh7]\n\nReinaldo,\n\nAsí lo uso y me sale un mensaje de:\n\nMODO EVALUATION\n\na ti, te sale igual el mensaje?\n\nwilliam morales','',0,'gIA=','1d6r2lh7',1,0,'',54,0,0),(23748,5388,7,2,0,'87.218.146.148',1166644971,1,0,1,1,1,1,'','','Elías,\n\n&gt;\n- Existe la posibilidad de poner botones transparentes en el que solo se vea la imagen?? Si es así podeis ponerme un ejemplo?? \n&gt;\n\nNo, de momento. Puedes usar botones tipo BTNBMP en los que puedes usar una imagen, pero el botón se ve como tal.\n\n&gt;\n- Si no quisiera poner un boton sino un texto, como puedo hacerlo intuitivo?,es decir, que el usuario sepa que ahí se puede pulsar y que es una opcion más y no un texto cualquiera.... \n&gt;\n\nTenemos una clase TSSay en FWH pero aún no la hemos portado a FWPPC.','',0,'gIA=','2z9490tk',1,0,'',2,0,0),(23749,5389,1,312,0,'207.236.106.40',1166647066,1,0,1,1,1,0,'','Retrieving all the open windows\' titles','Good day \n\nI remember seeing somewhere a sample of code that retrieves all the open windows\' title text. I just don\'t remember how to do it or where it was. If anyone has code I would appreciate it. \n\n\nTIA \n\nMD\'Andrea','',0,'gIA=','1to1on7q',1,0,'',312,0,0),(23750,5386,7,527,0,'81.36.168.39',1166648236,1,0,1,1,1,0,'','SI, PERO REALMENTE LO QUE ME ITERESA ES LO SIGUIENTE','Como puedo hacer lo siguiente\n----&gt; me interesa poder imprimir en una impresora bluetooth, la impresora puede ser matricial, chorro de tinta o laser, todavia no lo tengo decidido, lo que si se es que tiene que ser una impresora que admita papel A4.\n\n-----&gt; Lo que me interesa es poder indicarle a la impresora que imprima en negrilla, subrayado, cursiva, o en un tipo de font con un tamaño de letra cualquiera\n\n[b:1p9z1f9e]El problema es que no se por donde empezar.[/b:1p9z1f9e]','',0,'QA==','1p9z1f9e',1,0,'',527,0,0),(23751,5389,1,6,0,'82.61.28.55',1166648929,1,0,1,1,1,1,'','Re: Retrieving all the open windows\' titles','Here it is:\n\n[code:1fct5ppa]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define GW_HWNDFIRST 0\n#define GW_HWNDLAST  1\n#define GW_HWNDNEXT  2\n#define GW_HWNDPREV  3\n#define GW_OWNER     4\n#define GW_CHILD     5\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hWnd &#58;= GETFOREGROUNDWINDOW&#40;&#41;\n\n    WHILE hWnd != 0\n        IF GETWINDOW&#40; hWnd, GW_OWNER &#41; = 0 &#46;AND&#46; ISWINDOWVISIBLE&#40; hWnd &#41; &#46;AND&#46; !EMPTY&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41;\n            ? GETWINDOWTEXT&#40; hWnd &#41;\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    RETURN NIL\n\n\nDLL32 STATIC FUNCTION GETFOREGROUNDWINDOW&#40;&#41; AS LONG;\n      PASCAL FROM &quot;GetForegroundWindow&quot; LIB &quot;user32&#46;dll&quot;[/code:1fct5ppa]\n\nEMG','',0,'AIA=','1fct5ppa',1,0,'',6,0,0),(23752,5381,3,6,0,'82.61.28.55',1166649078,1,0,1,1,1,1,'','Re: Season\'s Greetings - Felices Fiestas','Merry Christmas and happy new year!!!\n\nEMG','',0,'AIA=','1n6bdzsc',1,0,'',6,0,0),(23753,5390,3,264,0,'200.91.3.10',1166649104,1,0,1,1,1,1,'','TSmtp y XML can\'t send !!','Hi.\nI can\'t send an email with XML attach via stmp ( standard or modified ).\nExists any restriction ?\nFor my is very urgent ....\n\ntnks.','',0,'AIA=','mqrmu456',1,0,'',264,0,0),(23754,5391,6,264,0,'200.91.3.10',1166649366,1,0,1,1,1,1,'','Tsmp y XML, no puedo enviar !!','hola.\nNo he podido enviar un email via stmp ( estandar o modificado ) con un attach de XML.\nEs decir, pasa cualquier cosa ( texto y otros ) pero el archivo de 10 KB de XML no envia nada.\nAlguien tiene idea por que podria ocurrir esto ?\nAgreadezco cualquier clase de ayuda.\nGracias.','',0,'AIA=','2g6cmuti',1,0,'',264,0,0),(23755,5390,3,264,0,'200.91.3.10',1166650700,1,0,1,1,1,1,'','','[code:2j26w1rs]\n\n      WSAStartup&#40;&#41;\n      oMail &#58;= TSmtp&#40;&#41;&#58;New&#40; GetHostByName&#40; cServidorDeCorreos &#41; &#41;\n\n      oMail&#58;bDone &#58;= &#123;|| MsgBeep&#40;&#41; &#125;\n      oMail&#58;SendMail&#40; cFrom,;           // From\n                      &#123; cTo, cFrom &#125;,;       // To\n                      cText,;           // Msg Text\n                      cAsunto,;         // Subject\n                      &#123; cAdjunto, cAdjuntoTxt &#125; &#41;\n\n[/code:2j26w1rs]','',0,'AIA=','2j26w1rs',1,0,'',264,0,0),(23756,5392,6,838,0,'80.59.225.15',1166656583,1,0,1,1,1,0,'','Rutina de busqueda error','Hola amigos\nVengo utilizando la siguiente rutina de busqueda \n********\nfunction Busca(cAlias,oLbx,oTab,tQbusco,BusRaiz)\n************************************************\nlocal oDlg,aAlias\nlocal oBusco,oboton\nlocal oCbx,osay\nlocal cBusco, cIndi\nlocal nClave\nlocal aIndi:={}\nlocal nReg:=(cAlias)-&gt;(Recno())\nDEFAULT BusRaiz:=\"\"\naeval( tQbusco[3] , { |LX| aadd(aIndi,strtran(LX,\"&amp;\")) } )\n  DEFINE DIALOG oDlg RESOURCE \"LOCALIZA2\" BRUSH Publicas:oBrush1 TRANSPARENT Font Publicas:oWPpal:ofont\n  REDEFINE SAY osay ID 10 OF oDlg COLOR CLR_GREEN\n  REDEFINE BTNGET oBusco VAR cBusco  ID 100 OF oDlg ;\n	      ON CHANGE ( nClave:=( cAlias )-&gt;(recno()),;\n			  ::Assign(),;\n			  iif( (cAlias)-&gt;(dbseek(Upper( Substr(cBusco, 1,::nPos -1)))) ,;\n				.T. ,;\n			       ( (cAlias)-&gt;( dbGoto ( Recno() )), .f.) ),oLbx:UpStable(),oLbx:Refresh(),;\n			    iif (Chr(nKey)=13,oDlg:End(),.T.))\n  REDEFINE COMBOBOX oCbx VAR cIndi ITEMS aIndi ID 101 OF oDlg ;\n     ON CHANGE (oTab:nOption:=oCbx:nAt,oTab:refresh(),;\n		cBusco:=tQbusco[2,oCbx:nAt], ;\n		(cAlias)-&gt;(OrdSetFocus(tQbusco[1,oCbx:nAt])),oLbx:Refresh(),;\n		oBusco:Refresh(), oBusco:setFocus(), oDlg:Update() )\n\n  REDEFINE BUTTON oboton ID 102 OF oDlg PROMPT \"Aceptar\" ;\n				ACTION oDlg:End() CANCEL\n\n  ACTIVATE DIALOG oDlg CENTERED\n  if Busraiz=\'C\'\n  obusco:blostfocus := {||oDlg:End()}\n  endif\n  cBusco:=tQbusco[2,oTab:nOption]\n  cIndi :=aIndi[oTab:nOption]         \n\nreturn NIL\n*******************************************\nEl problema es que en ambiente MDI, si tengo abierta una ventana que contenga una b.d.  p.e. clientes, con alias clientes01 no hay problema, me hace la busqueda bien, pero si abro otra ventana que contenga la misma b.d., aunque con otro alias, clientes02, no me hace la busqueda completa, es decir me selecciona el orden que le pido, pero siempre se me queda en el mismo registro.\n\nAlguna idea?\n\nSaludos\n\nJose Luis','',0,'','1arw7epl',1,0,'',838,0,0),(23757,5393,2,890,0,'200.69.108.238',1166658595,1,0,1,1,1,0,'','Como organizo el build.bat para compilar con link.exe','Saludo Cordial para todos\nTodo el direccionamiento se encuentra bien en Build.bat solo que cuando quiero compilar con link.exe me dice que no encuentra 501_520 me imagine que requeria esta biblioteca ¿Que debo hacer para poder compilar con Link.exe de Microsoft? \n\nUn abrazo \nGracias','',0,'','2hgkwqgx',1,0,'',890,0,0),(23758,5381,3,190,0,'202.65.134.36',1166667230,1,0,1,1,1,0,'','','Dear friends\n\nI wish you all and your families a  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Christmas\nand prosperous new year.\n\n- Ramesh Babu P','',0,'','znz7oji7',1,0,'',190,0,0),(23759,5365,1,819,0,'12.72.34.179',1166668164,1,0,1,1,1,0,'','','Antonio,\n\nThanks, I was able to update the first record but I am getting an error with the skip method.\n\nRegard,\n\njose','',0,'','3r1x292u',1,0,'',819,0,0),(23760,5347,3,49,0,'62.13.172.78',1166668207,1,0,1,1,1,1,'','','can I have any sample pls','',0,'','p8g7am2p',1,0,'',49,0,0),(23761,5381,3,707,0,'222.124.20.50',1166672617,1,0,1,1,1,0,'','','Keep fivetechsoft forums to be good boy  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> and happy new year for all.\n\nBest Regards\nAreang','',0,'','28o1c3v6',1,0,'',707,0,0),(23762,5382,6,396,0,'200.71.170.1',1166675949,1,0,1,1,1,1,'','','Paz y properidad y sobre todo...no os olvideis de Dios y del Projimo...','',0,'','2idm9umc',1,0,'',396,0,0),(23763,5394,19,233,0,'218.111.22.218',1166676102,1,0,1,1,1,0,'','Alternative site to hyperupload','Anyone has any recommendation to a free, easy to use upload site similar to hyperupload? Though simple to use, hyperupload has the annoyance of having a max file size of 10Mb only. \n\nAt <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> I frequently get this annoying message when I attempt to download:\n[color=red:2eoh46xx][b:2eoh46xx]\nAll download slots assigned to your country ([i:2eoh46xx]Country[/i:2eoh46xx]) are in use. We apologize for the inconvenience. \nPlease try again later.[/b:2eoh46xx][/color:2eoh46xx]','',0,'Yg==','2eoh46xx',1,0,'',233,0,0),(23764,5395,3,190,0,'202.65.134.26',1166679163,1,0,1,1,1,0,'','How to paint a Transparent Bitmap on a Gradiant Dialog','Hello\n\nCan anybody guide me on the subject.\n\nI tried with the following code and the result is :\n\n[img:2ujgadjw]http&#58;//img302&#46;imageshack&#46;us/img302/2667/trangradwu5&#46;jpg[/img:2ujgadjw]\n\nRegards\n\n- Ramesh Babu P\n\n[code:2ujgadjw]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oDlg, oBmp, hDC\n\nDEFINE DIALOG oDlg SIZE 212, 106                                  ;\n       COLORS CLR_BLACK, nRGB&#40;224,167,64&#41; TRANSPARENT PIXEL\n\n@ 10, 15 BITMAP oBmp FILE &quot;C&#58;\\FWH\\BITMAPS\\QUESTION&#46;BMP&quot; OF oDlg   ;\n       SIZE 20, 30 PIXEL NOBORDER\n\nACTIVATE DIALOG oDlg CENTERED  ON PAINT                           ;\n         gradiate_&#40;oDlg, hDC, &#123;CLR_WHITE, nRgb&#40;224,167,64&#41;&#125;,      ;\n                   2,&#123;0,0,oDlg&#58;nHeight,oDlg&#58;nWidth&#125;&#41;\n\nRETURN nil\n\n******************************************************************\n\nFUNCTION gradiate_&#40; hWnd, hDC, aClrPan, nFund, aCoors&#41;\n\nLOCAL nColor1,  nColor2,  nSoma,    nSteps\nLOCAL nColorR1, nColorB1, nColorG1, nColorR2, nColorB2, nColorG2\nLOCAL nSomaR,   nSomaG,   nSomaB\nLOCAL nTamaAlt, nTamaLar, nFundAlt, nFundLar, aRect, aRect1, oBrush\n\nnTamaAlt &#58;= &#40;aCoors&#91;3&#93;-aCoors&#91;1&#93;&#41; \nnTamaLar &#58;= &#40;aCoors&#91;4&#93;-aCoors&#91;2&#93;&#41; \n\nnFundAlt &#58;= nTamaAlt \naRect    &#58;= &#123;0,0,nFundAlt,nTamaLar&#125;\nnSteps   &#58;= nFundAlt\nnSoma    &#58;= nSteps / 100\n\nnColor1  &#58;= aClrPan&#91;Iif&#40;nFund&gt;0,1,2&#41;&#93;\nnColor2  &#58;= aClrPan&#91;Iif&#40;nFund&gt;0,2,1&#41;&#93;\n\nnColorR1 &#58;= nRgbRed&#40;nColor1&#41;\nnColorG1 &#58;= nRgbGreen&#40;nColor1&#41;\nnColorB1 &#58;= nRgbBlue&#40;nColor1&#41;\n\nnColorR2 &#58;= nRgbRed&#40;nColor2&#41;\nnColorG2 &#58;= nRgbGreen&#40;nColor2&#41;\nnColorB2 &#58;= nRgbBlue&#40;nColor2&#41;\n\nnSomaR   &#58;= Abs&#40;nColorR2-nColorR1&#41;\nnSomaG   &#58;= Abs&#40;nColorG2-nColorG1&#41;\nnSomaB   &#58;= Abs&#40;nColorB2-nColorB1&#41;\n\nnSomaR   &#58;= IIF&#40; nSomaR &lt; 0,1,&#40;nSomaR/&#40;nFundAlt/2&#41;&#41;&#41;\nnSomaG   &#58;= IIF&#40; nSomaG &lt; 0,1,&#40;nSomaG/&#40;nFundAlt/2&#41;&#41;&#41;\nnSomaB   &#58;= IIF&#40; nSomaB &lt; 0,1,&#40;nSomaB/&#40;nFundAlt/2&#41;&#41;&#41;\n\naRect&#91;3&#93; &#58;= 0\n\nDO WHILE aRect&#91;3&#93; &lt;= nFundAlt\n\n   aRect&#91; 3 &#93; += nSoma\n\n   DEFINE BRUSH oBrush COLOR nRGB&#40;nColorR1 , nColorG1, nColorB1 &#41;\n\n	 FillRect&#40; hDC, aRect, oBrush&#58;hBrush &#41;\n\n	 RELEASE Brush oBrush\n\n   aRect&#91; 1 &#93; += nSoma\n\n   nColorR1 &#58;= INT&#40;IIF&#40;nColorR2 &gt;= nColorR1,nColorR1+nSomaR,nColorR1-nSomaR&#41;&#41;\n 	 nColorG1 &#58;= INT&#40;IIF&#40;nColorG2 &gt;= nColorG1,nColorG1+nSomaG,nColorG1-nSomaG&#41;&#41;\n	 nColorB1 &#58;= INT&#40;IIF&#40;nColorB2 &gt;= nColorB1,nColorB1+nSomaB,nColorB1-nSomaB&#41;&#41;\n	 nColorR1 &#58;= IIF&#40;nColorR1&lt;0,0,IIF&#40;nColorR1&gt;255,255,nColorR1&#41;&#41;\n	 nColorG1 &#58;= IIF&#40;nColorG1&lt;0,0,IIF&#40;nColorG1&gt;255,255,nColorG1&#41;&#41;\n   nColorB1 &#58;= IIF&#40;nColorB1&lt;0,0,IIF&#40;nColorB1&gt;255,255,nColorB1&#41;&#41;\n\nENDDO\n\nSysRefresh&#40;&#41;\n\nRETURN nil\n\n**********\n\n[/code:2ujgadjw]','',0,'CIA=','2ujgadjw',1,0,'',190,0,0),(23765,5396,6,492,0,'189.147.23.225',1166682333,1,0,1,1,1,1,'','FWH + ActiveX + w2000 Server no se dejan !','Hola a todos\n\nTengo una app que funciona como sedita  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  sobre XP, w98SE, etc\nHace poco lo instalamos sobre w2003 Server y al momento de ejecucion mando un mensaje sobre los controles ActiveX debido a que tengo incrustado algunos archivos swf y un objeto ActiveX, lo que se hizo fue instalar el FlashPlayer y activar todas las propiedades de ejecucion y aceptacion de tales controles desde las propiedades del IE, hasta ahi todo OK.\n\nAhora, se acaba de instalar la misma app sobre una maquina que tiene el w2000 Server y aunque le hacemos la misma operacion antes descrita, nomas no quiere ejecutar dicha app.\n\nA alguien le ha sucedido algo similar ? y en caso afirmativo, podrias darme algun tip para que pueda ejecutar la app ??\n\nEn ambos casos, se accedio con privilegios de Administrador.\n\n\nSaludos','',0,'CIA=','tp5dpxpe',1,0,'',492,0,0),(23766,5395,3,2,0,'87.218.146.148',1166688332,1,0,1,1,1,1,'','','Ramesh,\n\nPlease try this:\n[code:38al8mka]\n@ 10, 15 BITMAP oBmp FILE &quot;C&#58;\\FWH\\BITMAPS\\QUESTION&#46;BMP&quot; OF oDlg   ; \n       SIZE 20, 30 PIXEL NOBORDER \n\noBmp&#58;lTransparent = &#46;t&#46;\n[/code:38al8mka]','',0,'AIA=','38al8mka',1,0,'',2,0,0),(23767,5397,7,527,0,'83.43.155.128',1166688502,1,0,1,1,1,0,'','Ayuda con impresoras','Como puedo hacer lo siguiente \n----&gt; me interesa poder imprimir en una impresora bluetooth, la impresora puede ser matricial, chorro de tinta o laser, todavia no lo tengo decidido, lo que si se es que tiene que ser una impresora que admita papel A4. \n\n-----&gt; Lo que me interesa es poder indicarle a la impresora que imprima en negrilla, subrayado, cursiva, o en un tipo de font con un tamaño de letra cualquiera \n\nEl problema es que no se por donde empezar.','',0,'AIA=','5elfky29',1,0,'',527,0,0),(23768,4282,4,2,0,'87.218.146.148',1166688706,1,0,1,1,1,1,'','','&gt; How can i monitor the communication between the ppc and the printer ? \n\nOn the emulator, use the /c flag:\n\nCreates and displays a console window to show output from Serial Port 1\n\nAlso /u... may be of help:\n\n/u0 serialport /u1 serialport /u2 serialport - Maps guest serial ports 0-2 to Windows serial ports','',0,'AIA=','1xs17vxa',1,0,'',2,0,0),(23769,5347,3,2,0,'87.218.146.148',1166688821,1,0,1,1,1,1,'','','Silvio,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=747&amp;highlight=bluetooth\">http://fivetechsoft.com/forums/viewtopi ... =bluetooth</a><!-- m -->\n\nAlso make a search for bluetooth on these forums','',0,'AIA=','15giyqkr',1,0,'',2,0,0),(23770,5365,1,2,0,'87.218.146.148',1166688907,1,0,1,1,1,1,'','','Jose,\n\n&gt; I am getting an error with the skip method. \n\nWhat error do you get ?','',0,'AIA=','lt2bittx',1,0,'',2,0,0),(23771,5397,7,2,0,'87.218.146.148',1166689005,1,0,1,1,1,1,'','','Manuel,\n\nHaz una búsqueda en estos foros (opción \"search\" arriba) por bluetooth\n\ny revisa esto:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=747&amp;highlight=bluetooth\">http://fivetechsoft.com/forums/viewtopi ... =bluetooth</a><!-- m -->','',0,'AIA=','1mqbd0j9',1,0,'',2,0,0),(23772,5381,3,28,0,'213.27.201.254',1166689556,1,0,1,1,1,0,'','','Merry Christmas  and that this year that begins he brings good health to everybody.  \n\nPaco García\n\n[img:ojyjmi2n]http&#58;//www&#46;canalfive&#46;com/canalfive_logo&#46;jpg[/img:ojyjmi2n]','',0,'CA==','ojyjmi2n',1,0,'',28,0,0),(23773,5382,6,28,0,'213.27.201.254',1166689665,1,0,1,1,1,0,'','','Feliz Navidad a todos y que el año que comienza nos traiga salud a todos.\n\nUn fuerte abrazo.\n\nPaco García\n\n[img:32iw3ybw]http&#58;//www&#46;canalfive&#46;com/canalfive_logo&#46;jpg[/img:32iw3ybw]','',0,'CA==','32iw3ybw',1,0,'',28,0,0),(23774,5395,3,707,0,'222.124.20.50',1166691073,1,0,1,1,1,0,'','','Mr. Antonio\n[code:32k9dbnl]\n@ 10, 15 BITMAP oBmp FILE &quot;C&#58;\\FWH\\BITMAPS\\QUESTION&#46;BMP&quot; OF oDlg   ; \n       SIZE 20, 30 PIXEL NOBORDER \n\n\noBmp&#58;lTransparent = &#46;t&#46;\n\n[/code:32k9dbnl]\n\nNot work.\n\nAreang','',0,'AIA=','32k9dbnl',1,0,'',707,0,0),(23775,5395,3,2,0,'87.218.146.148',1166691757,1,0,1,1,1,1,'','','Areang,\n\nUsing FWH 6.12:\n[url=http&#58;//imageshack&#46;us:nvxa6hlm][img:nvxa6hlm]http&#58;//img124&#46;imageshack&#46;us/img124/9288/rainbowqu3&#46;png[/img:nvxa6hlm][/url:nvxa6hlm]\n[code:nvxa6hlm]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oBrush, oBmp\n   local cName &#58;= &quot;Test&quot;\n\n   DEFINE BRUSH oBrush FILENAME &quot;&#46;&#46;\\bitmaps\\backgrnd\\rainbow&#46;bmp&quot;\n\n   DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE &quot;Testing Valid&quot; BRUSH oBrush\n\n   @ 2, 5 GET cName SIZE 80, 12\n   \n   @ 20, 10 BITMAP oBmp FILE &quot;&#46;&#46;\\BITMAPS\\QUESTION&#46;BMP&quot; OF oDlg ; \n       SIZE 20, 30 PIXEL NOBORDER \n\n   oBmp&#58;lTransparent = &#46;t&#46;   \n\n   ACTIVATE DIALOG oDlg ;\n      VALID&#40; MsgInfo&#40; &quot;Valid Clause&quot; &#41;, &#46;t&#46; &#41;\n      \n   oBrush&#58;End&#40;&#41;   \n\nreturn nil\n[/code:nvxa6hlm]','',0,'GIA=','nvxa6hlm',1,0,'',2,0,0),(23776,5395,3,707,0,'222.124.20.50',1166692032,1,0,1,1,1,0,'','','Mr. Antonio\n\nYes that\'s work but Mr. Ramesh paint Bitmap on this source code\n[code:3th9u16n]\ngradiate_&#40;oDlg, hDC, &#123;CLR_WHITE, nRgb&#40;224,167,64&#41;&#125;,      ; \n                   2,&#123;0,0,oDlg&#58;nHeight,oDlg&#58;nWidth&#125;&#41;\n[/code:3th9u16n]\n\nnot on bmp object !!\n\nbest Regard\nareang','',0,'AIA=','3th9u16n',1,0,'',707,0,0),(23777,5395,3,2,0,'87.218.146.148',1166692582,1,0,1,1,1,1,'','','I see, but its much better to use a bitmap (that can simulate a gradient too) as it executes much faster','',0,'AIA=','3cyp31ta',1,0,'',2,0,0),(23778,5395,3,707,0,'222.124.20.50',1166692802,1,0,1,1,1,0,'','','Mr. Ramesh, Mr. Antonio\n\nYes I agree !!!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nregards\nAreang','',0,'AIA=','2ecsybcm',1,0,'',707,0,0),(23779,5385,6,456,0,'62.43.194.117',1166692975,1,0,1,1,1,1,'','','Si  a mi tambien me ha pasado, yo utilizo DB2, por tanto no es exclusivo de Access.\n\nYo lo que hago es mover el registro que voy a editar a un buffer (en un arrray), y redimensiono los campos que son de caracter. Edito el get sobre el buffer, y muevo el resultado al recordset.\n\n[code:3e97dvmn]\n      for n = 1 to &#58;&#58;nFields\n         &#58;&#58;aBuffer&#91; n &#93; = &#58;&#58;oRs&#58;Fields&#40;n-1&#41;&#58;Value\n         IF ValType&#40;&#58;&#58;aBuffer&#91;n&#93;&#41;==\'C\'\n            &#58;&#58;aBuffer&#91;n&#93;&#58;=PadR&#40;Trim&#40;&#58;&#58;aBuffer&#91;n&#93;&#41;,&#58;&#58;oRs&#58;Fields&#40;n-1&#41;&#58;DefinedSize,\' \'&#41;\n         ENDIF\n      next [/code:3e97dvmn]\nLa manipulacion de registros la hago mediante una clase, un pseudo clon de tDatabase, aunque ya funciona, todavia la estoy depurando.','',0,'AIA=','3e97dvmn',1,0,'',456,0,0),(23780,5395,3,2,0,'87.218.146.148',1166693265,1,0,1,1,1,1,'','','Using a bitmap with the same gradient:\n\n[url=http&#58;//imageshack&#46;us:io3qu5m4][img:io3qu5m4]http&#58;//img124&#46;imageshack&#46;us/img124/8127/gradienss3&#46;png[/img:io3qu5m4][/url:io3qu5m4]','',0,'GA==','io3qu5m4',1,0,'',2,0,0),(23781,5393,2,2,0,'87.218.146.148',1166693467,1,0,1,1,1,1,'','','Quita esa librería de build.bat y añade estas funciones a tu PRG:\n\nfunction Clipper501() ; return nil\nfunction Clipper520() ; return nil','',0,'GA==','32aesdlz',1,0,'',2,0,0),(23782,5395,3,707,0,'222.124.20.50',1166693967,1,0,1,1,1,0,'','','Mr. Antonio\n\nThat\'s bitmap brush.\n\nWhen the size of Bitmap &lt; (less than) my dialog size, the brush get tile on my dialog surfaces.\n\nRegards\nAreang','',0,'GA==','3sioy3tu',1,0,'',707,0,0),(23783,5395,3,2,0,'87.218.146.148',1166695304,1,0,1,1,1,1,'','','Areang,\n\nYes, the bitmap has to be larger or equal than the dialog height.','',0,'GA==','2ilvntun',1,0,'',2,0,0),(23784,5395,3,190,0,'202.65.134.36',1166699708,1,0,1,1,1,0,'','','Mr.Antonio and Mr.Areang\n\nThank you very much for your replies.\n\nI know that the gradiant dialog can be painted using a gradiant bitmap brush. But if I use different bitmaps for different dialogs, the size of my application, is becoming much bigger depending on the size of dialogs and the their bitmaps used as brushes.\n\nCan you please suggest me any work around to stick to my requirement.\n\nRegards and Greetings to You both and Fivetech Staff also.\n\n- Ramesh Babu P','',0,'GA==','38zcygz2',1,0,'',190,0,0),(23785,5398,7,893,0,'80.34.86.46',1166700750,1,0,1,1,1,0,'','Ayuda simple con DBF','Buenas a todos.\nMe podrias echar una mano sobre mover el puntero por un DBF:\n\n¿Como ir al primer registro?\n¿Como ir al último registro?\n\n¿Como ir al siguiente registro? Creo que   SKIP 1 \n¿Como ir al anterior registro?  Creo pue    SKIP -1\n\n¿Hay alguna función que nos devuelva Fin de Fichero. Es  EOF()?\n¿Hay alguna función que nos devuelva Principio de Fichero ?\n\nUna cosilla más.\nCuando edito un Get estoy en modo de edición, esto si escribo caracteres, voy machacando los de antes ¿Como insertar?. INS del teclado parece que no funciona!.\n\nGracias de antemano y Feliz Navidad.\nAndrés','',0,'GA==','1a6o0wqq',1,0,'',893,0,0),(23786,5399,7,720,0,'80.36.244.134',1166702902,1,0,1,1,1,0,'','otra solucion??','Hola a todos...\n\nVamos a ver si me podeis echar una mano...\n\nTengo el siguiente código que realiza una combinacion de tres tablas (articulo.dbf,stock.dbf,precios.dbf) y el resultado lo guarda en otra tabla llamada temporal.dbf dependiendo de dos variables: id_almacen y lista_precios. El codigo funciona perfectamente pero el tiempo que tarda es bastante y queria saber si alguien tiene alguna idea mejor de como poder optimizarlo para que tarde menos... Se lo agradecería!!\n\n\n\narticulo-&gt;(dbgotop())\nprecios-&gt;(dbgotop())\nstock-&gt;(dbgotop())\n\nSELECT articulo\n\nDO WHILE !EOF()\n\ncod:=articulo-&gt;codart\nnom:=articulo-&gt;nomart\ncodbar:=articulo-&gt;codbarart\n\n&amp;&amp;busco en stock.dbf los articulos q tengan el id_almacen y el codigo\n&amp;&amp;igual al codigo del la tabla de articulo	\n&amp;&amp;y me quedo con las existencias\n\nIF stock-&gt;(DbSeek((id_almacen+cod),.t.))\ns:=stock-&gt;cantex\nELSE\ns:=0\nENDIF\n		\n&amp;&amp;busco en precios.dbf los articulos q tengan la lista de precios y el codigo\n&amp;&amp;igual al codigo del la tabla de articulo\n&amp;&amp;y me quedo con el precio\n	\nIF precios-&gt;(DbSeek((cod+lista_precios),.t.))\np:=precios-&gt;pvp\nELSE\np:=0\nENDIF\n		\ntemporal-&gt;(dbappend())\ntemporal-&gt;codart:=cod\ntemporal-&gt;nomart:=nom\ntemporal-&gt;codbarart:=codbar\ntemporal-&gt;pvp:=p\ntemporal-&gt;existencia:=s\ntemporal-&gt;almacen:=id_almacen\narticulo-&gt;(dbskip())\nENDDO\n\n\nSaludos y gracias...\n\nElías Torres.','',0,'GA==','136vmuh0',1,0,'',720,0,0),(23787,5398,7,720,0,'80.36.244.134',1166703916,1,0,1,1,1,0,'','','Hola Andres,\n\nMira:\n- para ir al principio de un registro se usa......tabla-&gt;(dbgotop())\n- para ir al final........tabla-&gt;(dbgobottom())\n- para avanzar.........tabla-&gt;(dbskip(1))\n- para retroceder......tabla-&gt;(dbskip(-1))\n- para preguntar por el final del fichero EOF()\n- para preguntar por el principio del fichero BOF()\n\nY a la pregunta de ....\'Cuando edito un Get estoy en modo de edición, esto si escribo caracteres, voy machacando los de antes ¿Como insertar?. INS del teclado parece que no funciona!....\' pues ahi me has pillado, jeje. Si me dices que no es cosa del teclado que tengas activada la tecla insert pues entonces no lo se...\n\nEspero haberte solucionado algo...\n\nSaludos.\n\nElías Torres.','',0,'GA==','23qiaxkz',1,0,'',720,0,0),(23788,5400,6,838,0,'80.34.222.112',1166703959,1,0,1,1,1,0,'','PDF 417','Hola amigos\nSeguimos sin saber nada sobre el tema del PDF417 o cualquier codabar de 2D?\nComo alguien sigirió en el foro me he puesto con list&amp;label, que efectivamente trae algo para fivewin, pero no soy capaz de con los ejemplos que trae aplicarlo.\n\nAlguien del Foro lo ha hecho?\n\nSaludos\n\nJose Luis','',0,'GA==','2n6n63pn',1,0,'',838,0,0),(23789,5401,11,707,0,'222.124.20.50',1166705257,1,0,1,1,1,0,'','Can I learn Linux with Fivewin','Mr. Antonio\n\nI\'m newbie on Linux.  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nWhat can I do with Linux with Fivewin\n\nThank\'s\nAreang','',0,'GA==','2u6tivlp',1,0,'',707,0,0),(23790,5398,7,893,0,'80.34.86.46',1166707539,1,0,1,1,1,0,'','','Gracias Elias\nSaludos','',0,'GA==','19v9k4w9',1,0,'',893,0,0),(23791,5401,11,2,0,'87.218.146.148',1166707747,1,0,1,1,1,1,'','','Areang,\n\nYou can run your Windows apps on Linux using \"Wine\" emulator.\n\nUsing FiveLinux you can build native Linux apps.\n\nAnyhow, it is recommended that you use Linux for several days to get used to it.','',0,'GA==','g8u6aw7e',1,0,'',2,0,0),(23792,5395,3,2,0,'87.218.146.148',1166707954,1,0,1,1,1,1,'','','Ramesh,\n\nIt looks as the controls get painted before the ON PAINT event, thats why the bitmap does not paints transparent.\n\nYou may have several differents gradients bitmaps and use the right one for the dialog height that you need.','',0,'GA==','1gc12o6v',1,0,'',2,0,0),(23793,5399,7,2,0,'87.218.146.148',1166708080,1,0,1,1,1,1,'','','Elías,\n\nPrueba la aplicación en un directorio del Pocket PC que no sea la tarjeta de memoria y verás que la velocidad es mejor.','',0,'GA==','2cdqk7e8',1,0,'',2,0,0),(23794,5399,7,720,0,'80.36.244.134',1166708531,1,0,1,1,1,0,'','','Antonio, puedes ponerme un ejemplo de como seleccionar un directorio del pocket que no sea de la tarjeta de memoria??\n\nQue significa entonces (curdir()+\'\\.....\'), no quiere decir que nos encontramos en el directorio raiz?? O estoy accediendo a la tarjeta de memoria?..\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'GA==','3ta9cadd',1,0,'',720,0,0),(23795,5399,7,2,0,'87.218.146.148',1166708884,1,0,1,1,1,1,'','','Elías,\n\nCuando usas el emulador y compartes una carpeta del PC, esa carpeta compartida es la tarjeta de memoria en el emulador. \n\nLo que has de hacer es copiar los ficheros, ir a \"My Device\" y \"pegarlos\" alli, bien en el directorio raiz ó en una carpeta que crees. Para copiarlos pulsa sobre su nombre y mantén pulsado y te saldrá un menu con la opción de copiar.\n\nCurDir() significa el directorio actual.','',0,'GA==','n02yycho',1,0,'',2,0,0),(23796,5399,7,2,0,'87.218.146.148',1166709254,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:33z2iqo9][img:33z2iqo9]http&#58;//img179&#46;imageshack&#46;us/img179/9826/copyox2&#46;png[/img:33z2iqo9][/url:33z2iqo9]\n[url=http&#58;//imageshack&#46;us:33z2iqo9][img:33z2iqo9]http&#58;//img179&#46;imageshack&#46;us/img179/7623/pasteoj4&#46;png[/img:33z2iqo9][/url:33z2iqo9]','',0,'GA==','33z2iqo9',1,0,'',2,0,0),(23797,5392,6,362,0,'200.168.52.156',1166709614,1,0,1,1,1,1,'','','Mira aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=708\">http://www.fivewin.com.br/exibedicas.asp?id=708</a><!-- m -->','',0,'GA==','3sa8v1iu',1,0,'',362,0,0),(23798,5381,3,439,0,'200.125.41.178',1166709903,1,0,1,1,1,1,'','','Merry Christmas and a Happy New Year for everybody!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nThanks for all your support and help this year. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','3hhybgzr',1,0,'',439,0,0),(23799,5382,6,439,0,'200.125.41.178',1166710315,1,0,1,1,1,1,'','','Una muy feliz navidad para todos, que abunde amor y felicidad en sus hogares y tengan un próspero año 2007!!!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias a todos por su apoyo y ayuda todo este año  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','28y2he96',1,0,'',439,0,0),(23800,5392,6,439,0,'200.125.41.178',1166711102,1,0,1,1,1,1,'','','Karinha,\n\nQue magnífico ejemplo de búsqueda, te felicito es un trabajo excelente!!!!! <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'GA==','1g3vsbl6',1,0,'',439,0,0),(23801,5402,6,891,0,'148.243.37.162',1166714688,1,0,1,1,1,0,'','Feliz Navidad','Es muy complicado vivir, hay que correr ciertos riesgos, seguir ciertos caminos y abandonar otros. Aprender una cosa significa entrar en contacto con el mundo real. Es preciso ser humildes para aprender. \nNuestros más sinceros deseos de felicidad y próperidad para todos los colegas y amigos de la red del foro , y que el 2007 sea sencillamente ESPECTACULAR. \nLes desea feliz navidad y próspero año nuevo\nAdriano C. C.','',0,'GA==','1448u2k0',1,0,'',891,0,0),(23802,5381,3,264,0,'200.91.3.10',1166715391,1,0,1,1,1,1,'','','Muchas felicidades a todos y prosperidad tambien.\nGracias por existir como personas y como foro...\n\nSaludos','',0,'GA==','2gwwz0sf',1,0,'',264,0,0),(23803,5382,6,106,0,'85.34.123.173',1166716411,1,0,1,1,1,1,'','','Felices Fiestas para todos.','',0,'GA==','3dvqbj0w',1,0,'',106,0,0),(23804,5365,1,819,0,'216.34.194.113',1166716752,1,0,1,1,1,0,'','','I am getting a GPF error.  Thanks\n\n********************\nfunction ODBC_update  &amp;&amp; testing update\n********************\nlocal oRdd,afiles,n:=0,cTable,oDbf\noRdd := TRddOdbc():New(\"rtl_polling\", \"SA\", \"*****\")\n*oRdd := TRddOdbc():New(\"Northwind\", \"SA\", \"*****\")\n   If !oRdd:oOdbc:lSuccess\n      oRdd:oOdbc:ShowErrorList(\"ODBC session not successfully initialized, aborting...\")\n      oRdd:End()\n      return nil\n   Endif\n\n// oRdd:oOdbc:lAbort := .f.\n   aFiles := oRdd:oOdbc:GetTables(\"*\", .F. )  &amp;&amp; returns all tables \n\n   if len(aFiles) == 0\n      MsgAlert(\"There are not tables on that database, aborting...\",;\n               \"ODBC Table selection\")\n      oRdd:End()\n      return nil\n   endif\ncTable := \"test_jd\"\noRdd:oOdbc:lCsrDyn := .t.\nalert(\"here\")\nUSE (cTable) VIA \"ODBC\" NEW ALIAS \"_\"+cTable+\"_\"\noDbf:=oRdd:getTable(cTable)\nfield-&gt;Field3=\"testxx\"\noRdd:Skip(1)\nfield-&gt;Field3=\"test3\"\n*field-&gt;Field3=\"test update2\"\n*do while n &lt;= 10\n*	n++\n*	oRdd:oOdbc:append()\n*	field-&gt;field2=n\n*enddo\nbrowse()\noRdd:End()   \nreturn nil','',0,'GA==','28zwb8tx',1,1166727755,'',819,1,0),(23805,5391,6,397,0,'201.26.4.182',1166717723,1,0,1,0,1,1,'','','Amiguinho\n\nPuedes no ser problema de envio e si de recebimiento en lo cliente.\n\nClientes POP no bajan ficheros con menos de 40k.\n\nEstranho es XML ser um texto qualquier.\n\nEn verdad o que tu intentas con XML algo como WebService?','',0,'GA==','2vvmjgpw',1,0,'',397,0,0),(23806,5399,7,720,0,'80.36.244.134',1166717924,1,0,1,1,1,0,'','','Antonio,\n\nyo estoy usando directamente una pda no el emulador. El proyecto lo tengo en My Documents\\Trabajo\\... Supongo que esto no use la tarjeta de memoria... no lo se.\n\nDe todas formas el uso de dos \'seek\' en el código que he puesto más arriba implica que el tiempo de respuesta sea mayor.. puesto que tiene que hacer dos busqueda por cada registro de la tabla articulo. Esto mismo no se puede hacer como en FoxPro??\n\nPor ejemplo:\n\nSelect campo1,campo2;\nfrom tabla1,tabla2,tabla3;\nwhere campo1.tabla1=campo1.tabla2......;\norder by campo1\n\no algo parecido??\n\nSaludos.\n\nElías Torres.','',0,'GA==','vq3huhfc',1,0,'',720,0,0),(23807,5403,3,148,0,'196.205.182.158',1166718021,1,0,1,1,1,0,'','error after new installation','That error disappeared in previous installations becuase every time I install I remove the lib,include from the previous installation directory. This installation I remove lib,include directory and I faced it again.\nThat error most proberly related to include directory. I remove the old one and then I installed the new version 6.12.\nThanks\n\n\nFiveWin for Harbour 6.12 - December 2006        Harbour development power  \n(c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP \n\nCompiling...\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sitex.prg\' and generating preprocessed output to \'sitex.ppo\'...\nsitex.prg(302) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(448) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(456) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(933) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(1636) Error E0030  Syntax error: \"parse error at \'{|\'\"\n5 errors\n\nNo code generated\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nError E2194: Could not find file \'sitex.c\'\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'SITEX.OBJ\'\n* There are errors\n\nE:\\programs\\clipper\\FWH\\sitex&gt;edit sitex.prg','',0,'GA==','1s2hraqp',1,0,'',148,0,0),(23808,5382,6,43,0,'189.128.1.116',1166720637,1,0,1,1,1,0,'','','Feliz Navidad y Prospero Año Nuevo.\n\nSaludos\nMarco A. Delgado','',0,'GA==','3senre09',1,0,'',43,0,0),(23809,5395,3,190,0,'202.65.134.36',1166720827,1,0,1,1,1,0,'','','Mr.Antonio\n\n[quote:7if8t7z2]\nIt looks as the controls get painted before the ON PAINT event, thats why the bitmap does not paints transparent. \n[/quote:7if8t7z2]\n\nCan you please give me some guidance to check the above point and \nfind a work around way?\n\nBy the way ON PAINT and ON INIT which one occurs first ?\n\nRegards \n\n- Ramesh Babu P','',0,'gA==','7if8t7z2',1,0,'',190,0,0),(23810,5404,6,396,0,'201.209.29.169',1166721717,1,0,1,1,1,1,'','(x)Harbourd para FWH 2.6 abril','Hola, si alguien me puede decir donde descargar la version compatible de (x)Harbourd para FWH 2.6 abril, busque en las utilidades y no encontre, la otra ves consegui donde estaba un historial de versiones anteriores pero olvide donde, gracias desde ya y FELICES FIESTAS DE NAVIDAD!','',0,'gA==','3nn3c0wd',1,0,'',396,0,0),(23811,5399,7,2,0,'87.218.146.148',1166723274,1,0,1,1,1,1,'','','Elías,\n\nEs que FoxPro admite SQL directamente, algo que de momento no tiene Harbour. Asi que tienes que hacerlo como tu haces, de todas formas podrías crear un índice temporal por una determinada condición (INDEX ... FOR ... WHILE ... ) y siempre el trabajar con índices es más rápido.','',0,'gA==','1aqcwgml',1,0,'',2,0,0),(23812,5404,6,2,0,'87.218.146.148',1166723386,1,0,1,1,1,1,'','','Jose Luis,\n\nMira aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'gA==','2sm8qkx8',1,0,'',2,0,0),(23813,5365,1,2,0,'87.218.146.148',1166723483,1,0,1,1,1,1,'','','Have you located on what source code line the GPF ocurrs ?','',0,'gA==','14cl2c7e',1,0,'',2,0,0),(23814,5395,3,2,0,'87.218.146.148',1166723729,1,0,1,1,1,1,'','','Ramesh,\n\nON INIT is executed before ON PAINT. \n\nAnyhow, its not easy to find a workaround for that issue. Maybe the bitmap Method Paint() should call the parent window gradient painting function directly before it paints the bitmap. You may try it.','',0,'gA==','ys02m5ea',1,0,'',2,0,0),(23815,5382,6,533,0,'80.32.177.143',1166724325,1,0,1,1,1,0,'','','Mis sinceras felicitaciones para todos, que tengais unas felices navidades.\n\nSALUDOS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2jyc3yta',1,0,'',533,0,0),(23816,5405,6,12,0,'200.88.146.31',1166724358,1,0,1,1,1,1,'','Para Anotnio Linares - Error en TSay','Saludos,\n\nEn el ultimo build 6.12 esta este areglo\n[b:1r06ysw9] \n* Enhancement: FWH, Class TSay Method SetText() now makes a call to its Method VarPut() too. This change makes the print preview to show the right page on non XP themed applications.\n[/b:1r06ysw9]\n\nPero esto no permite que se refrescar el say cuando tiene un codeblock\n\n[size=150:1r06ysw9]\nDescargar Ejemplos\n[url:1r06ysw9]http&#58;//www&#46;lotenet&#46;com/fivewin&#46;zip[/url:1r06ysw9][/size:1r06ysw9]\n\nEjemplo:\n[code:1r06ysw9]\nfunction Main&#40;&#41;\n\n   local oWnd, oFont\n   Local cSay &#58;= Time&#40;&#41;\n   Local oSay\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 40, 60\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 50 TITLE &quot;Testing Method Say&#40;&#41;&quot;\n\n   @ 3, 3 Say oSay Prompt &#123;|| cSay &#125; font oFont color nRGB&#40; 25, 40, 95 &#41;, nRGB&#40; 192, 192, 192 &#41; SIZE 400, 50\n   @ 1, 1 BUTTON &quot; &amp;Say &quot; OF oWnd SIZE 60, 25 ACTION &#40; &#40; cSay &#58;= Time&#40;&#41; &#41;, oSay&#58;Refresh&#40;&#41;, &#46;t&#46; &#41;\n\n   ACTIVATE WINDOW oWnd\n\n   RELEASE FONT oFont\n\nreturn Nil\n[/code:1r06ysw9]\n\n\nMETHOD SetText( cText ) CLASS TSay\n[code:1r06ysw9]\n//----------------------------------------------------------------------------//\n\nMETHOD SetText&#40; cText &#41; CLASS TSay\n\n   local hDC\n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   &#58;&#58;cCaption &#58;= If&#40; &#58;&#58;cPicture != nil, Transform&#40; cText, &#58;&#58;cPicture &#41;,;\n                     cValToChar&#40; cText &#41; &#41;\n\n   #ifndef __CLIPPER__\n      if IsAppThemed&#40;&#41; &#46;or&#46; &#58;&#58;lTransparent\n         DrawPBack&#40; &#58;&#58;hWnd, hDC &#58;= GetDC&#40; &#58;&#58;hWnd &#41; &#41;\n         ReleaseDC&#40; &#58;&#58;hWnd, hDC &#41;\n      endif\n   #endif\n\n SetWindowText&#40; &#58;&#58;hWnd, &#58;&#58;cCaption &#41;\n \n\n// AQUI ESTA EL PROBLEMA \n// &#58;&#58;VarPut&#40; &#58;&#58;cCaption &#41; \n\nreturn nil\n[/code:1r06ysw9]','',0,'VIA=','1r06ysw9',1,0,'',12,0,0),(23817,5406,6,533,0,'80.32.177.143',1166724755,1,0,1,1,1,0,'','[Tipo letra combobox]','Buenas foro!!\n\n¿Se puede cambiar el tipo de letra de un combobox?, ya que le asigno la cláusula FONT &lt;tipodeletra&gt; y me da un error de compilación.\n\nSALUDOS\n\nF.W. 2.8 + xHarbour','',0,'VIA=','13pl25xs',1,0,'',533,0,0),(23818,5405,6,2,0,'87.218.146.148',1166725572,1,0,1,1,1,1,'','','Pablo,\n\nPrueba a cambiarlo así:\n\n// AQUI ESTA EL PROBLEMA \n::VarPut( bSetGet( ::cCaption ) )','',0,'VIA=','twyvg8l7',1,0,'',2,0,0),(23819,5406,6,2,0,'87.218.146.148',1166727009,1,0,1,1,1,1,'','','Mike,\n\nDEFINE FONT oFont NAME \"Arial\" SIZE 0, -10\n\n@ ..., ... COMBOBOX ... FONT oFont\n\nó \n\nREDEFINE COMBOBOX ... FONT oFont','',0,'VIA=','2owqxue4',1,0,'',2,0,0),(23820,5403,3,2,0,'87.218.146.148',1166727113,1,0,1,1,1,1,'','','Ehab,\n\nWhat source code do you have at 302 ?\n\nsitex.prg(302) Error E0030 Syntax error: \"parse error at \'@\'\"','',0,'VIA=','3mf9kcf1',1,0,'',2,0,0),(23821,5407,7,527,0,'83.33.114.216',1166728360,1,0,1,1,1,0,'','Ayuda con combox','Necesito colocar los campos de una base de datos en un combobox por ejemplo nombre, codigo clienteo es la descripcion y otro el codigo del cliente. Una vez que realicen esta operacion necesito que el codigo lo pueda capturar para poder realizar una busqueda en otro fichero, y no tengo ni idea de como hacerlo.\nYa he buscado en el foro, pero no encuentro nigun ejemplo de este tipo\n\nGRACIAS','',0,'VIA=','1yd8rvfh',1,0,'',527,0,0),(23822,5406,6,180,0,'83.34.25.150',1166730327,1,0,1,1,1,0,'','','Pues me ocurre igual:\nDEFINE FONT oFont2 NAME \"MS SANS SERIF\" SIZE 0,-10 BOLD\nREDEFINE COMBOBOX oMesTc VAR cMestc ITEMS aMes ID 108 FONT oFont2 OF oDlg\n\nError E0030  Syntax error: \"parse error at \'COMBOBOX\'\"\n\nUn saludo,\nManuel\n\n\nFW 2.8 (Octubre9/20079\nxHarbour Compiler build 0.99.61 (SimpLex)','',0,'VIA=','7dadybmy',1,0,'',180,0,0),(23823,5407,7,2,0,'87.218.146.148',1166730533,1,0,1,1,1,1,'','','Manuel,\n\nPrimero crea y rellena un array con el contenido del campo ó campos que quieras mostrar:\n[code:qb0u5obj]\nlocal oCbx, cValor, aValores &#58;= &#123;&#125;\n\nAlias-&gt;&#40; DbGoTop&#40;&#41; &#41;\nwhile ! Alias-&gt;&#40; EoF&#40;&#41; &#41;\n   AAdd&#40; aValores, Str&#40; Alias-&gt;Campo &#41; &#41;\n   Alias-&gt;&#40; DbSkip&#40; 1 &#41; &#41;\nend\n\n@ &#46;&#46;&#46;, &#46;&#46;&#46; COMBOBOX oCbx VAR cValor ITEMS aValores &#46;&#46;&#46; ;\n   ON CHANGE HazAlgo&#40; oCbx&#58;nAt &#41;\n[/code:qb0u5obj]\noCbx:nAt es la posicion del elemento seleccionado. Tendrás que hacer un Alias-&gt;( DbGoTop() ), Alias-&gt;( DbSkip( oCbx:nAt ) ) para ir al registro seleccionado. En cValor tienes el valor seleccionado como cadena.','',0,'AIA=','qb0u5obj',1,0,'',2,0,0),(23824,5403,3,148,0,'196.205.182.158',1166733999,1,0,1,1,1,0,'','','I do not beleive there is something in the code. Last time of installation when I got the same error I erased the old include,lib dir and installed the new one . It worked fine.\n\n[code:137tifdl]\n\n   @ 1, 1 LISTBOX oLbx FIELDS;\ncust-&gt;CU_ACCT,;\ncust-&gt;CU_appr,;\ncust-&gt;cu_stre,;\ncust-&gt;cu_coun,;\ncust-&gt;cu_city,;\ncust-&gt;cu_gove,;\ncust-&gt;CU_phon,;\ncust-&gt;CU_fax,;\ncust-&gt;CU_MAN,;\ncust-&gt;CU_mobi,;\ncust-&gt;CU_NAME;\nHEADERS &quot;Account No&#46;&quot;,;\n&quot;Aprreviation&quot;,;\n&quot;Street&quot;,;\n&quot;Country&quot;,;\n&quot;City&quot;,;\n&quot;Governer&quot;,;\n&quot;Phone&quot;,;\n&quot;Fax&quot;,;\n&quot;Customer Man&quot;,;\n&quot;Customer Mobile&quot;,;\n&quot;NAME&quot;;\nON CHANGE oLbx&#58;Say&#40; &quot;Rec&#58; &quot; + cValToChar&#40; RecNo&#40;&#41; &#41; + &quot;/&quot; + ;\ncValToChar&#40; RecCount&#40;&#41; &#41; &#41;;\nLine 302^^^^SIZE 480, 280 OF custDlg\n^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n\n@14,35 SAY oRec OF custDlg\n\n   // Lets use different row colors\n   oLbx&#58;nClrText      = &#123; || SelColor&#40; 3 &#41; &#125;\n   oLbx&#58;nClrForeFocus = &#123; || SelColor&#40; 3 &#41; &#125;\n\n   // Uncomment this to quickly calculate the desired columns width\n   // Right click with the mouse over the browse and you will\n   // see the columns sizes!\n   oLbx&#58;bRClicked = &#123; || oLbx&#58;ShowSizes&#40;&#41; &#125;\n\n[/code:137tifdl]','',0,'AIA=','137tifdl',1,0,'',148,0,0),(23825,5403,3,2,0,'87.218.146.148',1166734448,1,0,1,1,1,1,'','','Ehab,\n\nTry removing this (red color):\n\ncValToChar( RecCount() ) )[color=red:1sky841x]; [/color:1sky841x]','',0,'Ag==','1sky841x',1,0,'',2,0,0),(23826,5406,6,2,0,'87.218.146.148',1166735030,1,0,1,1,1,1,'','','Recitifico:\n\nNo está implementado para REDEFINE COMBOBOX ... FONT ...\n\nla forma de asignarle un font sería:\n\noCombo:SetFont( oFont ) desde la claúsula ON INIT del diálogo.','',0,'Ag==','34xa6zz9',1,0,'',2,0,0),(23827,5365,1,819,0,'216.34.194.113',1166735370,1,0,1,1,1,0,'','','antonio,\n\nThanks for the quick reply.\n\nThe GPF occurs at oRdd:Skip(1)   &amp;&amp; &lt;-- GPF error here\n\nand and cAliasname line 0 when I close the Browse.\n\nAny idea?\n\nregards,\n\njose','',0,'Ag==','3ohnxpx0',1,0,'',819,0,0),(23828,5391,6,264,0,'200.91.3.10',1166737326,1,0,1,1,1,1,'','','Lo extraño es que el mismo archivo con extension TXT si se envia, pero el de extension XML no se envia !!!\nNo se aun por que acurre.\nGracias.','',0,'Ag==','1kwe6jol',1,0,'',264,0,0),(23829,5385,6,278,0,'164.77.49.216',1166737542,1,0,1,1,1,1,'','','¡GRACIAS BIEL! voy a probar, luego te cuento.\nsaludos,\nJuan','',0,'Ag==','2gk3ka2d',1,0,'',278,0,0),(23830,5391,6,138,0,'189.141.72.221',1166738207,1,0,1,1,1,1,'','','En la clase TSMTP modificada por Luis Krause, dentro del codigo fuente, se definen algunos tipos de archivos para enviar como anexo, creo que soporta PDF, ZIP, BMP y otros que Luis necestiba, lo que tienes que hacer es modificar el codigo fuente de la clase, para incluir la extension XML y que esta pueda viajar como archivo anexo o de lo contrario se incluria como parte del cuerpo del mensaje.','',0,'Ag==','22o0dqxx',1,0,'',138,0,0),(23831,5399,7,138,0,'189.141.72.221',1166738486,1,0,1,1,1,1,'','','haz probado hacer un SET RELATION ?, el problema es que se pierde mucho tiempo en las busquedas cada vez que haces un DBSEEK() en cambio con una relacion las cosas te funcionarian bastante mas rapido porque no tendrias necesidad de hacer busquedas, el set relation te maneja acceso directo a los campos relacionado.','',0,'Ag==','1spf9gcx',1,0,'',138,0,0),(23832,2652,6,147,0,'201.253.51.182',1166738644,1,0,1,0,1,1,'','','Retomo este hilo para solicitar si alguien tiene algun/nos ejemplos de uso de las clases.\n\nMuchas gracias\n\nEn esta Navidad pidamos por un mundo mas equitativo y en paz!\nMis mejores augurios para el 2007','',0,'Ag==','1xemad7y',1,0,'',147,0,0),(23833,5396,6,138,0,'189.141.72.221',1166739148,1,0,1,1,1,1,'','','Raymundo:\n \nLos ActiveX tienen que ir instalandos EN LOS EQUIPOS CLIENTES, no en el servidor, ademas de tener los DLLS del ActiveX en el equipo cliente, tienes que \"registrar\" el componente ActiveX en cada uno de los puestos de trabajo, \n\nPara instalarlo en el cilente no basta con copiar los DLLs en el equipo cliente, tienes que REGISTRARLOS usando la siguiente instruccion desde una ventana de ms-dos:\n\nRegSvr32 &lt;ruta\\archivo.dll&gt;\n\nMuchos programas de instalacion, como el Inno Setup  ya soportan el registro de ActiveX desde el momento en que instalas tu producto en el equipo cliente.','',0,'Ag==','3ngud4k7',1,0,'',138,0,0),(23834,5408,6,53,0,'189.139.96.26',1166740290,1,0,1,1,1,1,'','Un ejemplo de TSBrowse con combobox ?','Amigos del foro:\n\nAlguien que use la TSBrowse con un combobox en alguna columna y que me quiera compartir el ejemplo ????\n\nSaludos y gracias\n\nUso xHarbour y la TSbrowse más reciente','',0,'Ag==','cfh94wb2',1,0,'',53,0,0),(23835,5365,1,2,0,'87.218.146.148',1166742369,1,0,1,1,1,1,'','','Jose,\n\nYou should place some traces (MsgInfo() calls) at METHOD Skip( nRecs ) CLASS TDbOdbc to see where it is failing (source\\classes\\tdbodbc.prg)','',0,'Ag==','4gxn5s8r',1,0,'',2,0,0),(23836,5409,6,64,0,'201.72.124.2',1166745538,1,0,1,1,1,1,'','Para Raymundo Islas M.','qual folder estas usando?\n\n[img:16bxdpqp]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/FolderFW&#46;jpg[/img:16bxdpqp]\n\nGracias.','',0,'CA==','16bxdpqp',1,0,'',64,0,0),(23837,5396,6,492,0,'189.147.23.225',1166748198,1,0,1,1,1,1,'','','Total y completamente cierto Master Flores  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> \n\nSe me habia pasado por completo ese punto  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nCheco, ojala y ese se lo que impida la ejecucion.\n\n\nMuchas Gracias','',0,'CA==','2titouvr',1,0,'',492,0,0),(23838,5409,6,492,0,'189.147.23.225',1166748768,1,0,1,1,1,1,'','','Hola Syda \n\nEl control es un folder \"normalito\", solo que en mi Pc tengo instalada la suite de StarDock -Object DeskTop 2007- ( comprada la licencia, claro ).\n\nY esta me permite aplicar skins a todo el XP y de paso a las aplicaciones.\nHay algunas que estan fabulosas !!!\n\nSi ya te aburriste de los temas que trae el XP, hay mucho programas que te permites hacer esto, pero segun algunas fuentes, StarDock es el mejor !!\nPero como siempre, hay de gustos a gustos  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> y por supuesto, hay alternativas que son free.\n\n\nEn algunas maquinas podria resentirse el -performance-, segun la configuracion de estas, pero por lo general no requiere de mucho.\n\n\nSaludos','',0,'CA==','128wqu3i',1,0,'',492,0,0),(23839,5389,1,312,0,'24.150.179.34',1166755326,1,0,1,1,1,0,'','','Thank you !','',0,'CA==','1oy62e6z',1,0,'',312,0,0),(23840,5395,3,190,0,'202.65.134.26',1166755731,1,0,1,1,1,0,'','','Mr.Antonio\n\nThank you much for your replies.\n\nI hope that I can find out a solution.\n\nRegards to you,\n\n- Ramesh Babu P','',0,'CA==','1ae25av6',1,0,'',190,0,0),(23841,2652,6,785,0,'190.64.108.202',1166758829,1,0,1,1,1,0,'','','MarioG:\n\nEn las clases que bajas ya vienen algunos ejemplos.\nSi aún así no se te aclara el panorama avisame que te envio\nuno de utilprn que es el único que uso.\n\nSaludos\n\nRuben Fernandez.','',0,'CA==','1kzz4bo5',1,0,'',785,0,0),(23842,5404,6,396,0,'200.71.186.101',1166761121,1,0,1,1,1,1,'','','Gracias master, ese mismo era...','',0,'CA==','eda8nhgm',1,0,'',396,0,0),(23843,5382,6,45,0,'201.252.222.114',1166761846,1,0,1,1,1,0,'','','Les deseo a todo el foro y la comunidad mis mas sinceras felicidades !!!\n\nHernan  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','13a2uy6h',1,0,'',45,0,0),(23845,5382,6,582,0,'201.253.169.161',1166769328,1,0,1,1,1,0,'','Re: Felices fiestas','Felicidades a TODOS !!!!!!!!!!!!!!!\n\nUn abrazo. El Loco =&gt;))','',0,'GA==','1sjmi1ie',1,0,'',582,0,0),(23847,5401,11,707,0,'202.173.66.1',1166772683,1,0,1,1,1,0,'','','Mr. Antonio,\n\nHow about Xandros\n\n\nregards\nareang','',0,'GA==','544p6zbj',1,0,'',707,0,0),(23849,5401,11,2,0,'87.218.146.148',1166774814,1,0,1,1,1,1,'','','Areang,\n\nThough you may use any Linux distro, including Xandros, we do recommend Ubuntu, as it has been the most popular Linux distro this year 2006 and its getting better and better.','',0,'GA==','1ef07oc6',1,0,'',2,0,0),(23850,5381,3,130,0,'141.51.32.24',1166776093,1,0,1,1,1,0,'','','Merry Christmas and a Happy New Year !\n\nStefan','',0,'GA==','21qpg2z6',1,0,'',130,0,0),(23851,5381,3,163,0,'87.0.235.93',1166776835,1,0,1,1,1,0,'','','Merry Christmas and happy new year to all. \nMassimo.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','2eh82fti',1,0,'',163,0,0),(23852,5399,7,720,0,'80.36.244.134',1166778783,1,0,1,1,1,0,'','','Hola Rene, no he probado tu solución porque no se como montar los set relations... Podrias ponerme un ejemplo por favor que me pueda servir de guia?? Te lo agradeceria...\n\n\nSaludos..\n\nElías Torres.','',0,'GA==','1o68lous',1,0,'',720,0,0),(23853,5412,7,893,0,'80.34.86.46',1166779255,1,0,1,1,1,0,'','Ayuda con WHEN de un Get','Muy buenas.\nTengo un problemilla.\n\nResulta que quiero que en un Get no entre cuando la variable lNuevo sea .F.\n\nResulta que cuando cambia la variable, el GET no se entera. ¿Por qué?\n\nGracias de antemano y feliz navidad.\n\n\nllNuevo = .F.\n@ 1, 8 GET ogetCodigo VAR lcCodigo OF oFld:aDialogs[2] SIZE 70, 18 ;\n	WHEN (.T., lNuevo) ;\n	VALID (ValidCampos(lcCodigo,efth010-&gt;cprvcod), .T. )','',0,'','upw7fjja',1,0,'',893,0,0),(23854,5412,7,2,0,'87.218.146.148',1166780445,1,0,1,1,1,1,'','','Andrés,\n\nUsa: WHEN ! lNuevo','',0,'','182rarjf',1,0,'',2,0,0),(23855,5401,11,707,0,'222.124.20.50',1166781634,1,0,1,1,1,0,'','','Mr. Antonio\n\nThank\'s for reply, I will try it\n\nCan you give me some text file help, how to install fivewin in linux and how to compile my source code \n\nThank\'s\nBest Regards\nAreang','',0,'','2t7siknw',1,0,'',707,0,0),(23856,5401,11,2,0,'87.218.146.148',1166786073,1,0,1,1,1,1,'','','Areang,\n\nDo you plan to use Wine and build Windows apps on Linux ?','',0,'','2qlkv27o',1,0,'',2,0,0),(23857,5413,7,106,0,'85.34.123.173',1166787645,1,0,1,1,1,1,'','bug en errorsys','Esta es la version modificada\n\n\n\n[code:z315jzy5]\n// FWPPC Error System &#40;C&#41; FiveTech Software 2005\n\n#include &quot;error&#46;ch&quot; \n\n//----------------------------------------------------------------------------//\n\nprocedure ErrorSys\n\n   ErrorBlock&#40; &#123; | o | ShowError&#40; o &#41; &#125; &#41;\n   \nreturn   \n\n//----------------------------------------------------------------------------//\n\nstatic function ShowError&#40; oError &#41;\n\n   local cError &#58;= oError&#58;Description\n   local n &#58;= 1\n   \n   if oError&#58;GenCode == EG_ZERODIV\n      return 0\n   end\n   \n   if ! Empty&#40; oError&#58;Operation &#41;\n      cError += HB_OSNewLine&#40;&#41; + oError&#58;Operation\n   endif\n   \n   if ValType&#40; oError&#58;Args &#41; == &quot;A&quot;\n      cError += HB_OSNewLine&#40;&#41; + &quot;   Args&#58;&quot; + HB_OSNewLine&#40;&#41;\n      for n = 1 to Len&#40; oError&#58;Args &#41;\n         cError += &quot;     &#91;&quot; + Str&#40; n, 4 &#41; + &quot;&#93; = &quot; + ValType&#40; oError&#58;Args&#91; n &#93; &#41; + ;\n                   &quot;   &quot; + cValToChar&#40; oError&#58;Args&#91; n &#93; &#41; + HB_OSNewLine&#40;&#41;\n      next\n   endif\n   \n   cError += HB_OSNewLine&#40;&#41; + &quot;stack calls&#58;&quot; + HB_OSNewLine&#40;&#41;\n\n   n&#58;=2  // PGF&#58; 22/12/2006\n   while ! Empty&#40; ProcName&#40; n &#41; &#41;\n      cError += AllTrim&#40; ProcName&#40; n &#41; &#41; + ;\n                &quot;&#40;&quot; + AllTrim&#40; Str&#40; ProcLine&#40; n &#41; &#41; &#41; + &quot;&#41;&quot; + HB_OSNewLine&#40;&#41;\n      n++\n   end   \n   \n   MemoWrit&#40; CurDir&#40;&#41; + &quot;\\error&#46;txt&quot;, cError &#41;\n   MsgInfo&#40; cError, &quot;FWPPC Error&quot; &#41;\n   \n   PostQuitMessage&#40; 0 &#41;\n   QUIT\n   \nreturn &#46;t&#46;      \n\n//----------------------------------------------------------------------------//\n[/code:z315jzy5]\n\n\n\nSaludos','',0,'AIA=','z315jzy5',1,0,'',106,0,0),(23858,5401,11,707,0,'222.124.20.50',1166787740,1,0,1,1,1,0,'','','&gt; Do you plan to use Wine and build Windows apps on Linux ?\n\nWhat is Wine ?\n\nIs Application for execute EXE file on Linux ?\n\nThank\'s\nAreang','',0,'AIA=','2u1k5hv1',1,0,'',707,0,0),(23859,5414,6,533,0,'80.32.177.143',1166789324,1,0,1,1,1,0,'','[Al lado del reloj]','Buenas foro!!, y espero que haya tocado algo en la loteria, a mi me ha tocado seguir trabajando en la empresa <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->, es decir NADA.\n\n   Mirad, tengo una pequeña aplicación que lo unico que tiene es un timer que va ejecutando una función si existe un fichero. Esta pequeña aplicación abre una ventanita en la esquina superior de la pantalla, y me gustaría insertarla en la barra donde está el reloj de windows y otras aplicaciones. ¿sabéis como se hace?\n\nSALUDOS','',0,'AIA=','27jym1ok',1,0,'',533,0,0),(23860,5401,11,707,0,'222.124.20.50',1166790688,1,0,1,1,1,0,'','','Mr. Antonio\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> Help !\n\nThank\'s\nAreang','',0,'AIA=','j66dvf65',1,0,'',707,0,0),(23861,5415,6,644,0,'201.252.15.223',1166791602,1,0,1,1,1,0,'','problemas con TsBrowse','Estoy trabajando con tsbrowse y tengo el siguiente problema. Cuando trabajo con DBF\'s no tengo inconvenientes pero cuando uso arrays no funciona. Estoy utilizando FWH 2.7. Alguna Idea. Desde ya muchas gracias','',0,'AIA=','3mxspnws',1,0,'',644,0,0),(23862,5392,6,362,0,'200.168.52.156',1166791610,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:c7yfi4nc]Karinha,\n\nQue magnífico ejemplo de búsqueda, te felicito es un trabajo excelente!!!!! <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:c7yfi4nc]\n\n\nGracias José.\n\nRegards, saludos.','',0,'gA==','c7yfi4nc',1,0,'',362,0,0),(23863,5382,6,36,0,'200.113.56.235',1166791809,1,0,1,1,1,0,'','','Les deseo a todo el foro una Feliz Navidad y un Prospero Año Nuevo 2007, y \n\ntambién a fivewin -[x]Harbour que este próximo año sea aun mejor...\n\nDesde La Serena, Chile \n\n             Un abrazo \n\nPatricio','',0,'','3iuq8qtj',1,0,'',36,0,0),(23864,5414,6,362,0,'200.168.52.156',1166791842,1,0,1,1,1,1,'','','USTED TIENES KE USAR TTRAY...\n\nMIRA EN \\SAMPLES\\TESTTRAY.PRG\n\nRegards, saludos.','',0,'','3bg5f0md',1,0,'',362,0,0),(23865,5391,6,264,0,'200.91.3.10',1166792049,1,0,1,1,1,1,'','','Maestro, he metido mano por todos lados a la clase con banderitas por aqui y por alla, obligandolo a adjuntar, pero ni asi pasa.\nSeguire intentandolo.\nGracias.','',0,'','3i6sfbyd',1,0,'',264,0,0),(23866,5415,6,36,0,'200.113.56.235',1166792167,1,0,1,1,1,0,'','','Horacio\n\nYo utilizo TsBrowse y funciona muy bien\n\nte adjunto un ejemplo como lo utilizo\n\n[code:3c1wykgq]&#46;&#46;&#46;\naadd&#40; aArray,&#123; space&#40;15&#41;,Space&#40;30&#41; &#125; &#41;\n\nDEFINE BRUSH oBrush 	RESOURCE &quot;wood&quot;\n\nREDEFINE BROWSE oLbx ID 103 OF oDlg CELLED ;\n        COLORS CLR_BLACK, RGB&#40; 255, 255, 235&#41; ;\n		  ALIAS &quot;ARRAY&quot;               \n\noLbx&#58;SetArray&#40; aArray &#41;\noLbx&#58;nHeightCell += 5  //filas\noLbx&#58;nHeightHead += 10  //columnas\n\noLbx&#58;SetColor&#40; &#123; 9, 10 &#125;, &#123; CLR_BLACK, oBrush &#125; &#41;  // brushed Footers background\noLbx&#58;SetColor&#40; &#123; 5, 6, 4, 15 &#125;, ;\n					&#123; CLR_WHITE, CLR_BLACK, ; // cursor\n                 oBrush, 					; // brushed headers background\n                 CLR_BLACK &#125;, 			; // grid lines\n					  NIL &#41;\n\nADD COLUMN TO BROWSE oLbx DATA oLbx&#58;nLogicPos&#40;&#41; ;\n      TITLE &quot;Item&quot; ;\n      SIZE 42 PIXELS ;\n      3DLOOK TRUE,TRUE,FALSE ;\n      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;\n		COLORS CLR_BLACK, CLR_HGRAY\n\nADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 1;\n      TITLE &quot;Código&quot; ;\n      SIZE 100 PIXELS ;\n      3DLOOK TRUE,TRUE,FALSE ;\n      ALIGN DT_LEFT,DT_CENTER,DT_CENTER;\n		COLORS CLR_BLACK, RGB&#40; 255, 255, 235&#41;\n\nADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 2;\n      HEADER &quot;Descripción&quot; ;\n      SIZE 204 PIXELS ;\n      3DLOOK TRUE,TRUE,FALSE ;  // cels, header, footer\n      ALIGN DT_LEFT,DT_CENTER,DT_CENTER ;   // cells, header, footer\n      COLORS CLR_BLACK, RGB&#40; 255, 255, 235&#41;//COLORS CLR_BLACK, CLR_HGRAY\n\n\n\nACTIVATE DIALOG oDlg CENTERED[/code:3c1wykgq]\n\nSaludos\nPatricio','',0,'AIA=','3c1wykgq',1,0,'',36,0,0),(23867,5407,7,527,0,'81.39.252.39',1166792683,1,0,1,1,1,0,'','Gracias','OK, gracias','',0,'AIA=','lgiahivt',1,0,'',527,0,0),(23868,5416,7,720,0,'80.36.244.134',1166793902,1,0,1,1,1,0,'','fold transparentes','Hola a todos...\n\nAlguien puede decirme como hacer transparentes las dos fold que tengo declaradas para que parezca  que está encima del fondo?? El fondo no es una imagen sino que le he dado un color a la pantalla....\n\nDEFINE WINDOW oWnd1 TITLE \"Configuración\"\n   \n   @ 3, 1 FOLDER oFld PROMPTS \"Parámetros\", \"Sistema\" ;\n      SIZE 225, 150\n   \n @ 2, 1 SAY \"Codigo PDA\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n @ 2, 10 GET oCod_pda var (cAliasVector)-&gt;codpda OF oFld:aDialogs[ 1 ] SIZE 130, 21\n @ 3.6, 1 SAY \"Aplicación\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n @ 4, 10 GET oAplic var (cAliasVector)-&gt;aplicacion OF oFld:aDialogs[ 1 ] SIZE 130, 21\n @ 5.4, 1 SAY \"Almacen\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n @ 6, 10 GET oAlmacen var (cAliasVector)-&gt;almacen OF oFld:aDialogs[ 1 ] SIZE 130, 21\n @ 7.1, 1 SAY \"Lista Precios\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n @ 8, 10 GET oPrecios var (cAliasVector)-&gt;lista_pvp OF oFld:aDialogs[ 1 ] SIZE 130, 21\n\n      \n   // Second page\n\n@ 2, 1 SAY \"Dirección IP\" OF oFld:aDialogs[ 2 ] SIZE 70, 15\n@ 2, 10 GET oIP var (cAliasVector)-&gt;ip_equipo OF oFld:aDialogs[ 2 ] SIZE 130, 21\n@ 3.6, 1 SAY \"Nombre del Equipo\" OF oFld:aDialogs[ 2 ] SIZE 70, 15\n@ 4, 10 GET oNombreEq var (cAliasVector)-&gt;equipo OF oFld:aDialogs[ 2 ] SIZE 130, 21\n	\noWnd1:setcolor(RGB(1,1,1),RGB(230,184,94))\n\nACTIVATE WINDOW oWnd1\n\n\nSaludos \n\nElías Torres.','',0,'','3jm94ls7',1,0,'',720,0,0);
INSERT INTO `phpbb_posts` VALUES (23869,5395,3,190,0,'202.65.134.36',1166793938,1,0,1,1,1,0,'','','Hi Mr.Fernando\n\nThanks for your reply.\n\nAs you have noted in my above postings, I am paiting the gradiation effect\nthrough code and please note that I am not using any bitmap brush.\n\nPlease use my above code with your classes and test wether the required\neffect is achieved or not.\n\nIf it is achived, then I can go for your product.\n\nBy the way I asked you in your very first posting about viacoral as under:\n\n\nA) Can I take the focus on to the required buttons with Keyboard !. \n( I did not find it in your demos ). I did not find any effect of Tab \nKey on these buttons and there is no any shortcut key. In such \ncase the mouse is not working, it would a problem to handle the \ndialog. \n\nYou have replied as under:\n\n&gt;&gt;We have developed only a basic implementation in this version. In &gt;&gt;November build, it will be fully implemented. \n\nMay I know that your buttons can be managed through keyboard shortcut\nkeys or via Tabkey using your latest build ?\n\nIs there any evaluation version of viacoral library ?\n\nRegards to you and seasons greetings to you and your team.\n\n- Ramesh Babu P','',0,'','2fe3l66y',1,0,'',190,0,0),(23870,5382,6,78,0,'190.40.225.47',1166794208,1,0,1,1,1,0,'','','PAZ Y PROSPERIDAD A TODA LA HUMANIDAD\nA todos ustedes muchas gracias por estar aqui, mis mejopres deseos para todos y cada una de sus familias,,,\n\nFELIZ NAVIDAD','',0,'','2jv67ali',1,0,'',78,0,0),(23871,5381,3,297,0,'217.57.213.130',1166796061,1,0,1,1,1,0,'','','Buon Natale','',0,'','rc6dmqie',1,0,'',297,0,0),(23872,5382,6,103,0,'200.97.184.182',1166798437,1,0,1,1,1,0,'','','Feliz Navidad a todos y que Dios los bendiga muchisimo en el año que viene.\n\nsaludos,\n\nKleyber Derick','',0,'','2kgmqaji',1,0,'',103,0,0),(23873,5401,11,2,0,'87.218.146.148',1166799831,1,0,1,1,1,1,'','','Areang,\n\n\"Wine\" is a Windows emulator that lets you run Windows application on Linux. We may capture several screens and post them here so you can review them.','',0,'','az1hlqcw',1,0,'',2,0,0),(23874,5416,7,2,0,'87.218.146.148',1166799979,1,0,1,1,1,1,'','','Elias,\n\nHas probado a darle color al folder con oFld:SetColor( ... ) ?','',0,'','3lbe6t5c',1,0,'',2,0,0),(23875,5417,4,213,0,'24.242.230.43',1166800079,1,0,1,1,1,0,'','Signatures','All,\n\nHas anyone been able to capture a signature and save it as a graphic image?\n\nThanks,\nRandal Ferguson','',0,'','14l2pdvf',1,0,'',213,0,0),(23876,5418,6,264,0,'200.91.3.10',1166800223,1,0,1,1,1,1,'','Problema TSmtp y comillas dobles en archivos atachados','Al parecer cuando se envia un archivo con comillas dobles en su interior, el \"SendChunk\" ( desde la TSocket, a su vez desde TSmtp )  falla, enviando algo incomprensible.\nY particularmente para el XML el archivo esta firmado digitalmente, por lo tanto es inservible al llegar.\nLes adjunto el archivo original y el enviado.\nAgradeceré cualquier ayuda.\nSaludos\n\nParte del archivo original... ( fijarse en \"1.0\" y luego otras de comillas )\n[code:2m8dqeao]\n&#46;&#46;&#46;&#46;\n&lt;?xml version=&quot;1&#46;0&quot; encoding=&quot;ISO-8859-1&quot;?&gt;\n&lt;EnvioDTE xmlns=&quot;http&#58;//www&#46;sii&#46;cl/SiiDte&quot; xmlns&#58;xsi=&quot;http&#58;//www&#46;w3&#46;org/2001/XMLSchema-instance&quot; version=&quot;1&#46;0&quot; xsi&#58;schemaLocation=&quot;http&#58;//www&#46;sii&#46;cl/SiiDte EnvioDTE_v10&#46;xsd&quot;&gt;\n&lt;SetDTE ID=&quot;SetDoc&quot;&gt;\n &lt;Caratula version=&quot;1&#46;0&quot;&gt;\n  &lt;RutEmisor&gt;96544490-4&lt;/RutEmisor&gt;\n  &lt;RutEnvia&gt;12455078-5&lt;/RutEnvia&gt;\n  &lt;RutReceptor&gt;96692790-9&lt;/RutReceptor&gt;\n  &lt;FchResol&gt;2005-12-29&lt;/FchResol&gt;\n  &lt;NroResol&gt;146&lt;/NroResol&gt;\n  &lt;TmstFirmaEnv&gt;2006-12-13T10&#58;29&#58;19&lt;/TmstFirmaEnv&gt;\n  &lt;SubTotDTE&gt;\n    &lt;TpoDTE&gt;33&lt;/TpoDTE&gt;\n    &lt;NroDTE&gt;1&lt;/NroDTE&gt;\n  &lt;/SubTotDTE&gt;\n &lt;/Caratula&gt;\n&lt;DTE version=&quot;1&#46;0&quot;&gt;        &lt;Documento ID=&quot;F12427T33&quot;&gt;\n            &lt;Encabezado&gt;\n&#46;&#46;&#46;&#46;    \n[/code:2m8dqeao]\n\ncodigo atachado resultado del envio...( aqui ya no existen las parejas de comillas )\n[code:2m8dqeao]\n&#46;&#46;&#46;&#46;\n&lt;?xml version=&#46;0&quot; encoding=SO-8859-1&quot;?&gt;\n&lt;EnvioDTE xmlns=ttp&#58;//www&#46;sii&#46;cl/SiiDte&quot; xmlns&#58;xsi=ttp&#58;//www&#46;w3&#46;org/2001/XMLSchema-instance&quot; version=&#46;0&quot; xsi&#58;schemaLocation=ttp&#58;//www&#46;sii&#46;cl/SiiDte EnvioDTE_v10&#46;xsd&quot;&gt;\n&lt;SetDTE ID=etDoc&quot;&gt;\n &lt;Caratula version=&#46;0&quot;&gt;\n  &lt;RutEmisor&gt;96544490-4&lt;/RutEmisor&gt;\n  &lt;RutEnvia&gt;12455078-5&lt;/RutEnvia&gt;\n  &lt;RutReceptor&gt;96692790-9&lt;/RutReceptor&gt;\n  &lt;FchResol&gt;2005-12-29&lt;/FchResol&gt;\n  &lt;NroResol&gt;146&lt;/NroResol&gt;\n  &lt;TmstFirmaEnv&gt;2006-12-13T10&#58;29&#58;19&lt;/TmstFirmaEnv&gt;\n  &lt;SubTotDTE&gt;\n    &lt;TpoDTE&gt;33&lt;/TpoDTE&gt;\n    &lt;NroDTE&gt;1&lt;/NroDTE&gt;\n  &lt;/SubTotDTE&gt;\n &lt;/Caratula&gt;\n&lt;DTE version=&#46;0&quot;&gt;        &lt;Documento ID=12427T33&quot;&gt;\n            &lt;Encabezado&gt;\n&#46;&#46;&#46;&#46;&#46;\n[/code:2m8dqeao]','',0,'QIA=','2m8dqeao',1,0,'',264,0,0),(23877,2652,6,147,0,'200.117.44.77',1166800286,1,0,1,0,1,1,'','','Ruben\nbaje de nuevo de la sección Utilidades, pero no trae ningún sample. Porfa mandame lo que usás para ver si se me aclara el panorama. En realidad es por el apuro, como siempre :-), que no me pongo a estudiar los fuentes.\n\n\nQue tengas una linda Navidad en familia y un muy buen 2007','',0,'QIA=','2f0cl6no',1,0,'',147,0,0),(23878,5419,6,96,0,'201.252.110.243',1166801560,1,0,1,1,1,0,'','TSCAN32 de The Full','Buenas a todos y Felices Fiestas,\n\nComo hago para compilar el TSCAN.PRG y dejarlo a TSCAN.OBJ para usar la librería de Rafa??.\n\nNo sé como hacerlo si alguien me puede ayudar, la otra pregunta es si tengo que colocar la librería TWAIN.LIB en XHARBOUR\\LIB\\ ???\n\nMuchas Gracias a todos.\n\nAriel,','',0,'QIA=','37vqo1w5',1,0,'',96,0,0),(23879,5420,1,173,0,'203.190.250.104',1166801877,1,0,1,1,1,0,'','Scanner','Dear all,\n\nI am trying to use class scanner , but i need save in format jpeg , not in BMP and save to long file name format. somebody could help me ? \n\nBest regard,\n\nPeter\n\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'QIA=','p2w2vrpx',1,0,'',173,0,0),(23880,5421,2,812,0,'200.83.125.98',1166803784,1,0,1,1,1,0,'','Feliz Navidad y Mucho Agradecimiento a todo el Foro','Hola Amigos:\n\nNo quisiera dejar pasar esta oportunidad para agradecerles a todos, por la ayuda prestada, de estar siempre atento a quienes necesitamos de su apoyo, sin ustedes, el camino de muchos como yo, se veria truncado.\n\nDeseo de todo corazon, que esta navidad, Dios les brinden todo el amor, la felicidad y la paz, que tan esquiva se apuesto en los ultimos tiempos, que juntos a sus seres queridos, se olviden por algunas horas, de nuestra vidad cotidiana, y se dejen envolver por la Luz de Dios. Y que el año 2007, este lleno de grandes exitos, mucha union y amor. Mucha Suerte para todos.\n\nSon los mas sinceros deseos, de alguien que siempre esta molestando por ayuda.\n\nGracias particularmente a Antonio Linares, por la gran dedicacion y apoyo a este grupo, que seguira aumentando.\n\nMiguel Rivera.\nSantiago - Chile','',0,'QIA=','3taw7uy1',1,0,'',812,0,0),(23881,5422,3,3,0,'82.65.181.217',1166806316,1,0,1,1,1,1,'','print trouble on acrobat printer','Hello\n\nWhen i try to print on Acrobat Distiller (Adobe native printer driver), i get a message \"The temporrary metafile could not be created\".\nIt looks like Emf files are not created when selecting an adobe printer type. I have checked the temp folder and nothing is created . Selecting any other printer is OK. Printing any other type of doc (word excel...etc) to Adobe distiller is not a problem. \n\nI am using fwh 2.8 october and xharbour builder october\n\nAny idea ?\n\nPS : We have Full adobe prducts version 5 and 7 at the office. The same problem occurs on both versions.\n\nRichard','',0,'QIA=','2s3vjr2w',1,0,'',3,0,0),(23882,5403,3,148,0,'196.205.218.23',1166806335,1,0,1,1,1,0,'','','Compiling...\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sitex.prg\' and generating preprocessed output to \'sitex.ppo\'...\nsitex.prg(301) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(446) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(454) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(931) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(1634) Error E0030  Syntax error: \"parse error at \'{|\'\"\n5 errors\n\nNo code generated\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nError E2194: Could not find file \'sitex.c\'\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'SITEX.OBJ\'\n* There are errors\n\n\n[code:20652ugj]\n   @ 1, 1 LISTBOX oLbx FIELDS;\ncust-&gt;CU_ACCT,;\ncust-&gt;CU_appr,;\ncust-&gt;cu_stre,;\ncust-&gt;cu_coun,;\ncust-&gt;cu_city,;\ncust-&gt;cu_gove,;\ncust-&gt;CU_phon,;\ncust-&gt;CU_fax,;\ncust-&gt;CU_MAN,;\ncust-&gt;CU_mobi,;\ncust-&gt;CU_NAME;\nHEADERS &quot;Account No&#46;&quot;,;\n&quot;Aprreviation&quot;,;\n&quot;Street&quot;,;\n&quot;Country&quot;,;\n&quot;City&quot;,;\n&quot;Governer&quot;,;\n&quot;Phone&quot;,;\n&quot;Fax&quot;,;\n&quot;Customer Man&quot;,;\n&quot;Customer Mobile&quot;,;\n&quot;NAME&quot;;\nON CHANGE oLbx&#58;Say&#40; &quot;Rec&#58; &quot; + cValToChar&#40; RecNo&#40;&#41; &#41; + &quot;/&quot; ;\nSIZE 480, 280 OF custDlg\n*^^^^^^^^line 301^^^^^^^^^^^^^^^^^^^\n\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\noGet2&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;;\n  VALID &#40;reset&#40; v_ci_cocmbo, oCbx3, &quot;cust&quot;,&quot;cu_gove&quot;,&quot;cu_city&quot; &#41;, &#46;t&#46;&#41;\n*^^^^^^^^line 446^^^^^^^^^^^^^^^^^^^\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n\nON CHANGE &#40; oGet3&#58;VarPut&#40; PADR&#40; v_go_cocmbo, 30 &#41; &#41;,; \noGet3&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n*^^^^^^^^line 454^^^^^^^^^^^^^^^^^^^\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n\n&quot;Minimum Volume&quot;;\nSIZE 480, 280 OF oDlg\n*^^^^^^^^line 931^^^^^^^^^^^^^^^^^^^\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n\n200,200,200,200;\nSIZE 480, 280 OF oDlg\n*^^^^^^^^line 1634^^^^^^^^^^^^^^^^^^^\n\n\n[/code:20652ugj]','',0,'AIA=','20652ugj',1,0,'',148,0,0),(23883,5365,1,819,0,'216.34.194.113',1166807073,1,0,1,1,1,0,'','','Antonio,\n\nI wonder why it may fail inside Fivewin class.  Kindly check if I have the correct environment.\n\nClipper5.2e\nComix\nFW24\nWindows Xp Professional service pack2\nMS SQL server 2005\n\nI use xbase skip command to move records and looks working fine so far. \n\nRegards,\nJose','',0,'AIA=','2gi0ft02',1,0,'',819,0,0),(23884,5381,3,303,0,'72.199.41.171',1166807402,1,0,1,1,1,0,'','','I would like to wish all my good friends from around the world a happy holiday season.\n\nPeace,\nJames','',0,'AIA=','2gede2el',1,0,'',303,0,0),(23885,5381,3,3,0,'82.65.181.217',1166807905,1,0,1,1,1,1,'','Re: Season\'s Greetings - Felices Fiestas','[quote=&quot;Antonio Linares&quot;:3euf7qmr][url=http&#58;//imageshack&#46;us:3euf7qmr][img:3euf7qmr]http&#58;//img86&#46;imageshack&#46;us/img86/2185/xmaspq5&#46;png[/img:3euf7qmr][/url:3euf7qmr][/quote:3euf7qmr]\n\nMerry Christmas to all and a very happy new year\n\nMay this new year bring more peace on earth.\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nJoyeux Noel et bonne année\n\nRichard','',0,'mA==','3euf7qmr',1,0,'',3,0,0),(23886,5417,4,2,0,'87.218.146.148',1166808042,1,0,1,1,1,1,'','','Randal,\n\nClass TWindow already provides a METHOD SaveToBmp( cBmpFile ) to save any window, dialog or control image as a BMP file.\n\nAll is needed is a sample that uses bLClicked, bMMoved and bLButtonUp DATAs to SetPixel( oWnd:hDC, nRow, nCol, nRGB( 255, 255, 255 ) ) and paint the pixels signature as pressed and later on save it to disk.','',0,'mA==','35jyy1ct',1,0,'',2,0,0),(23887,5365,1,819,0,'216.34.194.113',1166808172,1,0,1,1,1,0,'','','Antonio,\n\nFurthermore, even the Fivewin Browse New Button generates a [#8101] class:23000 error message followed by a GPF.  The same with xbase append blank command.\n\nThanks,\n\nJose','',0,'','2ysqznbj',1,0,'',819,0,0),(23888,5416,7,720,0,'80.36.244.134',1166808247,1,0,1,1,1,0,'','','Antonio, \n\nGracias... Como no me di cuenta antes....\n\nSaludos.\n\nElías Torres.','',0,'','2gnyszm1',1,0,'',720,0,0),(23889,5403,3,303,0,'72.199.41.171',1166808261,1,0,1,1,1,0,'','','Ehab,\n\nThis line is wrong:\n\nON CHANGE oLbx:Say( \"Rec: \" + cValToChar( RecNo() ) + \"/\" ;\n\nTry this:\n\nON CHANGE oLbx:Say( \"Rec: \" + cValToChar( RecNo() ) ) ;\n\nI might point out that the recno is pretty much useless to anyone except a programmer and then only for testing (maybe that is what you are doing). Since the recno for a record can change, it can really confuse a user (they think it is a fixed ID No).\n\nJames','',0,'','a7ws4hgq',1,0,'',303,0,0),(23890,5365,1,2,0,'87.218.146.148',1166808987,1,0,1,1,1,1,'','','Jose,\n\nYour FW is a quite an old version, though your environment looks ok.\n\nAs we have publically commented several times, we have focused on FWH and ODBC 32 bits support instad of FiveODBC RDD 16 bits, thats why we have not done further development on it. Most of our users are using FWH 32 bits.\n\nUsing Harbour and xHarbour we don\'t need to hack Clipper, as now full source code is available for development. We strongly recommend you to port your application to FWH 32 bits.','',0,'','n2cwembn',1,0,'',2,0,0),(23891,5423,7,720,0,'80.36.244.134',1166809192,1,0,1,1,1,0,'','problema','Antonio, \n\nHe modificado la apariencia de la aplicación y en vez de usar botones utilizo imagenes.. \n\nEl tema es que después de ejecutarlo varias veces empieza a darme errores que antes no daba y se me queda colgada la pda dandome el siguiente mensaje error:\n\nInternal Error:\n\nToo many recursive error handler calls\n\nEsto antes no me salia y la aplicacion me funcionaba bien. Me he pasado a la nueva actualizacion (la de diciembre) y a raiz de eso o del cambio de los botones por las imagenes me pasa esto...\n\nLas imagenes las pongo de la siguiente forma:\n\n\nDEFINE dialog oWnd resource \"menu_principal\"\n				\n	    	\nREDEFINE BITMAP oBmp1 NAME \'btn_inventario\' ID 100 OF oWnd\nREDEFINE BITMAP oBmp2 NAME \'btn_compras\' ID 200 OF oWnd\nREDEFINE BITMAP oBmp3 NAME \'btn_ventas\' ID 300 OF oWnd\nREDEFINE BITMAP oBmp4 NAME \'btn_configuracion\' ID 400 OF oWnd\n			\noBmp1:setcolor(RGB(1,1,1),RGB(230,184,94))\noBmp2:setcolor(RGB(1,1,1),RGB(230,184,94))\noBmp3:setcolor(RGB(1,1,1),RGB(230,184,94))\noBmp4:setcolor(RGB(1,1,1),RGB(230,184,94))\n       \noBmp1:blClicked := {|| abre_tablas(),Listados_inventarios() }\noBmp4:blClicked := {|| configuracion() }\n\noWnd:setcolor(RGB(1,1,1),RGB(230,184,94))\n\nACTIVATE dialog oWnd; \n    VALID MsgYesNo(\"¿Desea abandonar la aplicación?\",\"Salir\")\n\nDbCloseAll() &amp;&amp;cierra todas las tablas\noBmp1:end()\noBmp2:end()\noBmp3:end()\noBmp4:end()\n\nretu nil\n\n\nNo se que es lo que está pasando...\n\nSaludos\n\nElías Torres.','',0,'','28n80qgb',1,0,'',720,0,0),(23892,5424,6,471,0,'201.240.81.9',1166809609,1,0,1,1,1,1,'','Las funciones nativas para codificar en base64 de xhb','Cuales son las funciones nativas para codificar y decodificra en base64\nque tiene xharbour y en que LIB se encuetran gracias','',0,'','3nnkl4eh',1,0,'',471,0,0),(23893,5425,3,471,0,'201.240.81.9',1166809665,1,0,1,1,1,1,'','xharbour has native base64 functions?  he which they are','Regards','',0,'','230b546v',1,0,'',471,0,0),(23894,5426,7,527,0,'88.22.221.246',1166810389,1,0,1,1,1,0,'','Checkbox','Como puedo incluir y un checkbox que tengo en un fichero RC, y referenciarlo en un PRG, igual que puedo hacer REDEFINE BUTTON ......\n\nGRACIAS','',0,'','t4g7wb8y',1,0,'',527,0,0),(23895,5399,7,138,0,'189.141.72.221',1166811164,1,0,1,1,1,1,'','','Veamos:\n\nSET RELATION es uno de los comandos mas poderosos de DBASE (ojo, DBASE), pero es uno de los mas desaprovechados porque poca gente sabe como usarlo.\n\nSET RELATION se utiliza para \"relacionar\" campos de de una base de datos \"padre\" contra uno o varios campos en bases de datos \"hijas\"\n\nCuando se establece una relacion entre 2 o mas tablas, cada vez que el puntero se mueva en la base de datos \"padre\" se movera automaticamente en las bases de datos relacionadas, apuntando al campo sobre el cual tiene establecida la relacion.\n\nRequisitos:\n\n1) que la base de datos \"hija\" este indexada sobre el campo sobre el cual se realiza la relacion.\n2) que el campo sobre el cual se realiza la relacion en base de datos hija sea del mismo tipo y tamaño que su correspondiente en la base de datos padre\n3) Condicion necesaria, no indispensable, que el campo tenga el mismo nombre tanto en la base de datos hija, como en la base de datos padre.\n\nUso:\n\n1) Abrir las bases de datos hijas ANTES de abrir la base de datos padre, asignar su indice sobre el campo a relacionar:\n\nUSE PRECIOS\nSET INDEX TO CVEPROD //suponiendo que exista un campo cveprod \nUSE STOCK\nSET INDEX TO CVEPROD\n\nUSE ARTICULO // base de datos padre\n/* establecemos la relacion:*/\nSET RELATION TO cveprod INTO STOCK\nSET RELATION TO cveprod INTO PRECIOS ADDITIVE\n\nDe esta manera, relacionamos el campo CVEPROD de la base de datos padre, contra los campos CVEPROD de las bases de datos hijas\n\nPara hacer referencia a los campos de las bases de datos hijas, lo haremos por su respecitvo alias:\n\narticulo-&gt;campo //en la base de datos padre\nprecios-&gt;campo // en la base de datos hija\nstock-&gt;campo // en la base de datos hija.\n\ncuando el puntero se mueve en la base de datos padre, en la base de datos hija se mueve, para hacerlo coincidir con el campo que tiene el mismo valor en la base de datos padre, es decir, la relacion \"sincronza\" los campos y por ello es necesario que la base de datos hija este indexada.\n\nSi no existe un registro en la base de datos hija, que coincida con un registro en la base de datos padre, la refencia hija-&gt;campo apuntara a EOF().','',0,'','2t0eh7oq',1,0,'',138,0,0),(23896,5415,6,207,0,'189.158.118.131',1166812200,1,0,1,1,1,0,'','tsbrowse','y hablando de esto , tengo un detalle con tsbrowse.\n\nEn el clasico mastro-detalle, cuando en el detalle ya existen registros (pertenecientes a la llave del maestro, claro)   y le agrego mas, funciona ok, el problema viene cuando es el primer registro del detalle , si me lo agrega y lo muestra , peeerooo, al hacer click en el browse desaparece el encabezado mostrando en lugar de este, los datos de ese primer registro , aparentando ser 2 registros, y no me deja acceder a el.\nTodo se soluciona saliendo y volviendo a entrar a ese browse, pero quiero darle solucion, con su ayuda oviamente.\n\nde antemano muchas gracias\n\nPd. tengo las imagenes de lo que hace solo que no supe como ponerlas aqui','',0,'','1dyg0tb8',1,0,'',207,0,0),(23897,5420,1,6,0,'87.3.228.45',1166812684,1,0,1,1,1,1,'','Re: Scanner','Just save the BMP to JPG use FreeImage.dll.\n\nEMG','',0,'','21wx7k0d',1,0,'',6,0,0),(23898,5403,3,148,0,'196.205.218.23',1166815815,1,0,1,1,1,0,'','','No the same error .\nMay I send copy of the application files to private mails.\n\nCompiling...\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sitex.prg\' and generating preprocessed output to \'sitex.ppo\'...\nsitex.prg(301) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(446) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(454) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(931) Error E0030  Syntax error: \"parse error at \'@\'\"\nsitex.prg(1634) Error E0030  Syntax error: \"parse error at \'{|\'\"\n5 errors\n\nNo code generated\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nError E2194: Could not find file \'sitex.c\'\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'SITEX.OBJ\'\n* There are errors\n\nE:\\programs\\clipper\\FWH\\sitex&gt;\n\n[code:2zyx8p23]\nON CHANGE oLbx&#58;Say&#40; &quot;Rec&#58; &quot; + cValToChar&#40; RecNo&#40;&#41; &#41; &#41; ; \nSIZE 480, 280 OF custDlg\n*^^^^^^^^^^^^line 301^^^^^^^^^^^^^^^^^\n[/code:2zyx8p23]','',0,'AIA=','2zyx8p23',1,0,'',148,0,0),(23899,5403,3,303,0,'72.199.41.171',1166819065,1,0,1,1,1,0,'','','Ehab,\n\nThe file you sent compiles without error for me.\n\nJames','',0,'AIA=','3m26fltz',1,0,'',303,0,0),(23900,5427,1,47,0,'203.144.143.3',1166820514,1,0,1,1,1,0,'','combobox with Vscroll','Dear All,\n\nHow can I define vscroll in combobox?\n\nRegards,\nDutch','',0,'AIA=','14e1fkv4',1,0,'',47,0,0),(23901,5428,3,486,0,'200.184.85.3',1166821226,1,0,1,1,1,0,'','function F10','would he like to use function F10, more it selects the current window, as I do for you use her?  \n  \n   SET KEY VK_F10 TO Test()\n\nClemerson','',0,'AIA=','29jsvfzu',1,0,'',486,0,0),(23902,5417,4,224,0,'162.83.94.176',1166822850,1,0,1,1,1,1,'','','I\'ve had better luck using the LineTo function. Using SetPixel made the signature look very \"dotted\". Something like this sample works very nicely...\n\n\n[code:21tbrbxd]\n#include &quot;FWCE&#46;ch&quot;\n#include &quot;DLL&#46;ch&quot;\n\nfunction Main&#40;&#41;\nlocal oWnd, oSay,  nHdc\n\n   PUBLIC nOldX &#58;= -1, nOldY &#58;= -1\n\n   DEFINE WINDOW oWnd TITLE &quot;Draw&quot;\n\n   @ 5,5 SAY oSay   PROMPT &quot;?&quot; COLOR &quot;N+/W*&quot; PIXEL SIZE 60,15\n   @30,5 BUTTON &quot;Clear&quot; SIZE 50,20 PIXEL ACTION oWnd&#58;refresh&#40;&#46;t&#46;&#41;\n\n   nHdc &#58;= GetDC&#40;oWnd&#58;hWnd&#41;\n\n   oWnd&#58;bLButtonUp &#58;= &#123; |x,y,z| oSay&#58;setText&#40; &quot;Up&quot; &#41;, DoDraw&#40; nHdc, y, x &#41;, nOldX &#58;= -1, nOldY &#58;= -1 &#125;\n   oWnd&#58;bMMoved    &#58;= &#123; |x,y,z| DoDraw&#40; nHdc, y, x &#41; &#125;\n\n   oWnd&#58;activate&#40; &#123;|x,y,z| oSay&#58;setText&#40; &quot;Down&quot; &#41;, DoDraw&#40; nHdc, y, x &#41; &#125; &#41;\n\nreturn nil\n\nFunction DoDraw&#40; hDc, x, y &#41;\n\n   If nOldX == -1 &#46;And&#46; nOldY == -1\n      nOldX &#58;= x\n      nOldY &#58;= y\n      MoveToEx&#40; hDc, x, y &#41;\n   Else\n      LineTo&#40; hDc,x,y &#41;\n   EndIf\n\nRETURN Nil\n\nDLL FUNCTION MoveToEx&#40; nHdc AS HDC, nX AS _INT, nY AS _INT, NULL AS _INT &#41; AS BOOL PASCAL LIB &quot;coredll&#46;dll&quot;\n[/code:21tbrbxd]\n\nMerry Christmas y\'all!','',0,'AIA=','21tbrbxd',1,0,'',224,0,0),(23903,5423,7,2,0,'87.218.146.148',1166824662,1,0,1,1,1,1,'','','Elías,\n\nQuita estas 4 líneas, ya que no son necesarias, pues al destruirse el diálogo, destruye todos los controles que contiene:\n\noBmp1:end() \noBmp2:end() \noBmp3:end() \noBmp4:end()','',0,'AIA=','3up4fbln',1,0,'',2,0,0),(23904,5426,7,2,0,'87.218.146.148',1166824783,1,0,1,1,1,1,'','','REDEFINE CHECKBOX ...','',0,'AIA=','22z793l4',1,0,'',2,0,0),(23905,5417,4,2,0,'87.218.146.148',1166825122,1,0,1,1,1,1,'','','Bill,\n\nExcellent! It works very nicely! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe are going to include it in the FWPPC samples if you don\'t mind it, thanks!','',0,'AIA=','3srko5mx',1,0,'',2,0,0),(23906,5382,6,383,0,'190.41.230.245',1166827588,1,0,1,1,1,0,'','','Feliz Navidad y Prospero año nuevo 2007.\n\nMis mas sinceros saludos a todos y para cada una de su famiias. Y que lo exitos continuen...\n\nSaludos,\n\nAntonio Crisòstomo','',0,'AIA=','2kef9koz',1,0,'',383,0,0),(23907,5429,6,7,0,'201.143.3.249',1166827911,1,0,1,1,1,0,'','Invertir letras','Hola,\n\nOcupo imprimir las letras de cabeza,  algo asi, si quiero imprimir la \"W\" que parezca es la \"M\",\n\nrevise TPrinter pero no encuentro algun metodo que me ayude, alguien lo hizo ya?\n\n\nSaludos,\nMauricio','',0,'AIA=','1k0qlmhv',1,0,'',7,0,0),(23908,5428,3,303,0,'72.199.41.171',1166830088,1,0,1,1,1,0,'','','F10 is reserved by Windows. It calls the main menu.\n\nJames','',0,'AIA=','271d6ien',1,0,'',303,0,0),(23909,2652,6,785,0,'190.64.105.33',1166831260,1,0,1,1,1,0,'','','MarioG\n\nEnviado.\n\nEspero te sirva para tener una idea.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','dz9cggyb',1,0,'',785,0,0),(23910,5429,6,785,0,'190.64.105.33',1166831576,1,0,1,1,1,0,'','','Mauricio:\n\nCuando defines la letra debes agregarle NESCAPEMENT 300\n\nRedefine Font oFuente ....................NESCAPEMENT 300\no juega con este numero\n\nSaludos \n\nRuben Fernandez.','',0,'AIA=','1wkv94n5',1,0,'',785,0,0),(23911,5429,6,7,0,'201.143.3.249',1166832757,1,0,1,1,1,0,'','','Gracias Ruben,\n\ncon 300 no dio, pero ya se movio, ahorita le cambio numeros haber con cual funciona, al rato posteo el resultado.\n\n\nSaludos,\nMauricio','',0,'AIA=','dmvckvo4',1,0,'',7,0,0),(23912,5429,6,7,0,'201.143.3.249',1166833247,1,0,1,1,1,0,'','','Gracias ya quedo,\n\nel valor quedo asi\n\nDEFINE FONT oFont NAME \'Courier New\' SIZE 0,-40 BOLD NESCAPEMENT 1800\n\n\n\nMauricio','',0,'AIA=','131npt7a',1,0,'',7,0,0),(23913,5430,6,665,0,'196.40.43.78',1166843679,1,0,1,1,1,0,'','Problema con unTimer  y TXBrowse  en una en tabla MYsql','Olas amigos, un preguntilla de un problema ke se me vino encima y no logro dar con el asunto.\n\nUso un timer ke me refresca una Tabla en Mysql que tengo en un servidor, le puse el timer para que cada cierto tiempo refresque el browse, pero  por alguna rason cuando le dar un click a los heders se descontrola el timer y empieza a repetirse cada segundo se cicla podria decirse. \n\nLa pregunta es porke al pulsar cuaquier header  el timer se vuelve loco. pongo como he hecho  la rutina\n\nInicio del  Codigo.....\n\nDEFINE DIALOG oWnd RESOURCE \"MAIN\" ICON oMAINICON  TRANSPARENT ;\nTITLE \"Sistema Encomienda   \"+ oP:cIp+\"  Agencia \"+oP:agencia+\"        Licencia Unica \"+ oP:cEmpresa\n\noWnd:bRClicked = { | nRow, nCol, nFlags | UserPopup( nRow, nCol ) }\n\nxBrowser(oDlg)\n\nREDEFINE ACTIVEX oP:flash ID 1101 of oWnd ;\n   PROGID \"ShockwaveFlash.ShockwaveFlash.1\"\n\nREDEFINE BUTTON obot1 ID 104 OF oWnd;\n           ACTION (fSal:=.t.,oWnd:End())\n\nREDEFINE BITMAP oBtm2 ID 900 RESOURCE \"ICONBUS\"  of oWnd TRANSPARENT\n\nACTIVATE DIALOG oWnd center ON INIT(mitimer(oWnd),cargaflash(),OscarMsgBar(oWnd),oBrw:setfocus())VALID fSal\n\noCon:END()\n/*\noBtm2:End()\n*/\nSet Resources to\nRETURN\n\n**/-------------------------------------------------------------------\nstatic function mitimer(oWnd)\nDEFINE TIMER oTimer of oWnd   INTERVAL 60000 ACTION TimerAction()\nactivate timer oTimer\nreturn\n\n**/-------------------------------------------------------------------\nstatic function TimerAction()\ntone(20000,.5)\noQry:refresh()\noBrw:refresh()\nreturn\n**/--------------------------------------------------------------------\nFUNCTION xBrowser(oDlg)\n\n oQry := oCon:oKon:Query( \"SELECT guias,fecha,envia,recibe,monto,movimiento,pagado,chofer,placa,agencia_destino,entro,entrofecha,control,recibio,nrecibio,direcion,referencia,agencia_origen FROM   movimientos WHERE agencia_origen=\'\"+OP:AGENCIA+\"\' OR agencia_destino =\'\"+OP:AGENCIA+\"\'\" )\n\n   oBrw := TXBrowse():new( oDlg )\n   oBrw:CreateHeader()\n   MySetBrowse( oBrw,oQry )\n\n   oBrw:nMarqueeStyle    := MARQSTYLE_HIGHLROW\n   oBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY\n   oBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY\n   oBrw:nHeaderLines        := 0\n\n   oBrw:lColDividerComplete := .F.\n   oBrw:nRowHeight := 23\n   oBrw:lfastedit := .t.\n   oBrw:lAllowRowSizing  := .F.\n   oBrw:nColDividerStyle := LINESTYLE_INSET\n   oBrw:nHeaderLines        := 1\n   oBrw:nFooterLines        := 1\n   oBrw:nDataLines          := 1\n   oBrw:lFooter             := .t.\n   oBrw:nMinAdjustCol := 40\n   oBrw:bKeyDown   := { | nKey | oBrwkey( nKey ) }\n\n oBrw:bLDblClick   := {|nKey| oP:Inicio:=.f.,MSGRUN( \"Editando Movimiento, espere por favor \",NIL, {||editar() })}\n *oBrw:bLDblClick  := {|nKey| oP:Inicio:=.f.,MSGRUN( \"Accesando servidor , espere por favor \",NIL, {|| TimerAction() })}\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Guia\"\n      :bStrData := GenCB( oQry,1 )\n   END\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Fecha\"\n      :bStrData := GenCB( oQry,2 )\n   END\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Nombre Envia\"\n      :bStrData := GenCB( oQry,3 )\n   END\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Nombre Recibe\"\n      :bStrData := GenCB( oQry,4 )\n   END\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Monto\"\n      :bStrData := GenCB( oQry,5 )\n     :cEditPicture := \"9,999,999,999.99\"\n      :cFooter   := \" \"+transform(0 ,\"Total Cobrado\")\n\n   END\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Tipo envio\"\n      :bStrData := GenCB( oQry,6 )\n   END\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Pago\"\n      :bStrData := GenCB( oQry,7 )\n   END\n\n   WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Chofer\"\n      :bStrData := GenCB( oQry,8 )\n   END\n\n  WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Unidad\"\n      :bStrData := GenCB( oQry,9 )\n  END\n\n  WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Agencia destino\"\n      :bStrData := GenCB( oQry,10 )\n  END\n\n  WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Entrada\"\n      :bStrData := GenCB( oQry,11 )\n   END\n\n  WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Control\"\n      :bStrData := GenCB( oQry,12 )\n  END\n\n  WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"Q. USUARIO\"\n      :bStrData := GenCB( oQry,13)\n  END\n\n  WITH OBJECT oBrw:AddCol()\n      :cHeader  := \"N. Usuario\"\n      :bStrData := GenCB( oQry,14 )\n  END\n\n   */\n  oBrw:CreateFromResource(905)\n  oBrw:setfocus()\n\n   RETURN .t.\n\n\nMi pregunta, es Si  podria anular la edicion  del click derecho o Izquierdo los headers de TXbrowse , asi podria talvez eviate este problema estraño.','',0,'AIA=','204v0bq8',1,0,'',665,0,0),(23915,5417,4,3,0,'82.255.224.105',1166856227,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:v9leug0d]Bill,\n\nExcellent! It works very nicely! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe are going to include it in the FWPPC samples if you don\'t mind it, thanks![/quote:v9leug0d]\n\nAntonio\n\nIndeed it is excellent.\n\nHow would you save only the signature to bmp without the clear button and ? \nOwnd:savetobmp()  will save the entire window\n\nRichard','',0,'gA==','v9leug0d',1,0,'',3,0,0),(23916,5410,7,57,0,'83.55.106.24',1166858318,1,0,1,1,1,1,'','','Fernando\nExcelente noticia y excelente trabajo.\n\nSaludos','',0,'gA==','1za2nhcv',1,0,'',57,0,0),(23917,5417,4,2,0,'87.218.146.148',1166861657,1,0,1,1,1,1,'','','Richard,\n\nWe propose some modifications for the sample:\n\n* To remove the pushbutton and the \"?\"\n* To use a pulldown menu for Save and Cancel, this way the entire window client surface may be saved to a file.\n* hDC needs to be released or it will consume GDI resources.\n* Class TWindow Method SaveToBmp() may need a parameter to specify just the client area, without the caption and the menu.','',0,'gA==','w2humbqz',1,0,'',2,0,0),(23918,5403,3,148,0,'196.205.218.23',1166862614,1,0,1,1,1,0,'','','That is what I told you both together . That is a matter related to old files . I removed all *.obj . *.exe in my directory . I removed old directories of installation \\harbour,\\FWH. I need advice what else to remove and reinstall .','',0,'gA==','dkaxl883',1,0,'',148,0,0),(23919,5403,3,2,0,'87.218.146.148',1166862951,1,0,1,1,1,1,'','','Ehab,\n\nAre you using the [x]Harbour build that we distribute or do you build it from the [x]Harbour CVS ?','',0,'','28f3wnp8',1,0,'',2,0,0),(23920,5427,1,2,0,'87.218.146.148',1166863075,1,0,1,1,1,1,'','','Dutch,\n\nWhat do you mean ? Please explain it, thanks','',0,'','1a6njm0s',1,0,'',2,0,0),(23921,5421,2,2,0,'87.218.146.148',1166863238,1,0,1,1,1,1,'','','Miguel,\n\nGracias, y gracias a todos por la ayuda que mutuamente nos brindamos.','',0,'','zap08q07',1,0,'',2,0,0),(23922,5427,1,47,0,'203.144.143.3',1166866467,1,0,1,1,1,0,'','','Dear Antonio,\n\nWhen I use combobox and number of array have more than number of row in combobox.  I have to use arrow key to move the highlight down to the items that doesn\'t display.\n\nThanks,\nDutch','',0,'','2x9g8aqp',1,0,'',47,0,0),(23923,5431,3,67,0,'62.235.24.42',1166866480,1,0,1,1,1,0,'','bgotfocus from dialog in MDI enverronnement','Hello,\n\nHaving 2 dialogs in a MDI envorronement , i try to use the actual values from the first dialog in the second. \n\nIn the second dilaog , bgotfocus is set , supposing that when in the first dialog lCheck is changed , the second dialog must first receive focus (clicking on it) , and execute bgotfocus.\n\nThis seems not to be the case. I have no idea when this block is executed.\n\nHow can the second dialog SEE that in the first dialog lCheck is changed ??\n\nFrank\n\n[code:3ghtxxnd]\n# include &quot;fivewin&#46;ch&quot;\nSTATIC oWnd\nfunction Main&#40;datadir , cAlias , cSeek&#41;\nSET _3DLOOK ON\nDEFINE WINDOW oWnd FROM 0, 0 TO 24, 80 MDI;\n	TITLE &quot;Test&quot; COLOR &quot;W/BG&quot;;\n	MENU  BuildMenu&#40;oWnd&#41;\n	SET MESSAGE OF oWnd TO &quot;TEST MDI&quot; CLOCK DATE KEYBOARD NOINSET\nACTIVATE WINDOW oWnd MAXIMIZED\nreturn nil\n*******************************************\nfunction BuildMenu&#40;OoWnd&#41;\nlocal oMenu \n	MENU oMenu\n		MENUITEM &quot;&amp;Test&quot;;\n		ACTION Dialog1&#40;&#41;\n	ENDMENU\nreturn oMenu\n*************************************************\nPROC Dialog1&#40;&#41;\n***************\nLOCAL  oDlg\nLOCAL oGet , oBut , oCheck\nLOCAL nVar &#58;= 1000 , lCheck &#58;= &#46;T&#46;\nnVar &#58;= 1000\nDEFINE DIALOG oDlg FROM 10,20 TO 30,100 OF oWnd TITLE &quot;Dialog 1&quot;\n	@ 5 ,5 GET oGet VAR nVar OF oDlg SIZE 40,10\n	@ 6 ,5 CHECKBOX oCheck VAR lCheck PROMPT &quot;Dialog 2 can be Changed&quot; OF oDlg SIZE 140 , 10\n	@ 7,5 BUTTON oBut PROMPT &quot;Dialog 2&quot; OF oDlg ACTION Dialog2&#40;oDlg&#41;\nACTIVATE DIALOG oDlg //CENTER\nRETURN\n***************************************************************\nPROC Dialog2&#40;oDDlg&#41;\n*******************\nLOCAL nVar , oDlg\nLOCAL oGet , oBut\nLOCAL aControls &#58;= oDDlg&#58;aControls\nLOCAL lCheck &#58;= &#46;T&#46;\nnVar &#58;= 2000\nDEFINE DIALOG oDlg FROM 0,0 TO 15,75 OF oWnd TITLE &quot;Dialog 2&quot;\noDlg&#58;bGotfocus &#58;= &#123;||lCheck &#58;= aControls&#91;2&#93;&#58;Varget&#40;&#41; , oDlg&#58;Update&#40;&#41; , tracelog&#40;lCheck , aControls&#91;2&#93;&#58;Varget&#40;&#41;&#41;&#125;\n@ 5 ,5 GET oGet VAR nVar OF oDlg SIZE 40,10 WHEN lCheck UPDATE\n@ 10,5 BUTTON oBut OF oDlg ACTION Dialog2&#40;oDlg&#41;\nACTIVATE DIALOG oDlg CENTER\nRETURN\n[/code:3ghtxxnd]','',0,'AIA=','3ghtxxnd',1,0,'',67,0,0),(23924,5417,4,2,0,'87.218.146.148',1166870369,1,0,1,1,1,1,'','','This sample is based on Bill\'s one. Its working fine though we have not been able to remove the pulldown menu yet:\n[code:650nawnr]\n#include &quot;FWCE&#46;ch&quot;\n\nstatic oWnd\n\nfunction Main&#40;&#41;\n\n   local hDC, lPaint &#58;= &#46;f&#46;\n\n   DEFINE WINDOW oWnd TITLE &quot;Please sign&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   hDC = oWnd&#58;GetDC&#40;&#41;\n\n   oWnd&#58;bLButtonUp = &#123; | nRow, nCol | LineTo&#40; hDC, nCol, nRow &#41;, lPaint &#58;= &#46;f&#46; &#125;\n   oWnd&#58;bMMoved    = &#123; | nRow, nCol | If&#40; lPaint, LineTo&#40; hDC, nCol, nRow &#41;,&#41; &#125;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK &#40; lPaint &#58;= &#46;t&#46;, MoveTo&#40; hDC, nCol, nRow &#41; &#41; ;\n      VALID &#40; oWnd&#58;ReleaseDC&#40;&#41;, &#46;t&#46; &#41;\n      \nreturn nil\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   DEFINE MENU oMenu RESOURCE 102 ;\n      BITMAPS 10 ; // bitmap resources ID\n      IMAGES 2     // number of images in the bitmap\n   \n   REDEFINE MENUITEM ID 110 OF oMenu ;\n      ACTION &#40; oWnd&#58;SaveToBmp&#40; CurDir&#40;&#41; + &quot;\\sign&#46;bmp&quot; &#41;, oWnd&#58;End&#40;&#41; &#41;\n\n   REDEFINE MENUITEM ID 120 OF oMenu ACTION oWnd&#58;End&#40;&#41;\n\nreturn oMenu\n[/code:650nawnr]\nIt uses this RC:\n[code:650nawnr]\n#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\n#define I_IMAGENONE		&#40;-2&#41;\n#define IDS_HELP      104\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n   102, 3,\n   0, 110, TBSTATE_ENABLED, TBSTYLE_BUTTON, 201, 0, 0,  \n   0, 105, TBSTATE_ENABLED, TBSTYLE_SEP, -1, 0, 0,\n   1, 120, TBSTATE_ENABLED, TBSTYLE_BUTTON, 202, 0, 0  \nEND\n#endif\n\nSTRINGTABLE DISCARDABLE \nBEGIN\n   201 &quot;Save&quot;\n   202 &quot;Cancel&quot;\nEND\n\n102 MENU DISCARDABLE \nBEGIN\n    MENUITEM &quot;&quot;, 110\n    MENUITEM &quot;&quot;, 120\nEND\n\n10 BITMAP &quot;&#46;&#46;/bitmaps/pocket/okcancel&#46;bmp&quot;\n[/code:650nawnr]\n[url=http&#58;//imageshack&#46;us:650nawnr][img:650nawnr]http&#58;//img147&#46;imageshack&#46;us/img147/4645/signss2&#46;png[/img:650nawnr][/url:650nawnr]','',0,'GIA=','650nawnr',1,0,'',2,0,0),(23925,5432,7,2,0,'87.218.146.148',1166871059,1,0,1,1,1,1,'','Capturar una firma','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5417\">http://fivetechsoft.com/forums/viewtopic.php?t=5417</a><!-- m -->','',0,'GIA=','eeir6i1a',1,0,'',2,0,0),(23926,5403,3,148,0,'196.205.218.23',1166871860,1,0,1,1,1,0,'','','No I used the one you distribute.','',0,'GIA=','tqpi81p9',1,0,'',148,0,0),(23927,5403,3,2,0,'87.218.146.148',1166873362,1,0,1,1,1,1,'','','Ehab,\n\nPlease remove all CH files in your harddisk, before installing Harbour and FWH.','',0,'GIA=','384izom8',1,0,'',2,0,0),(23928,5427,1,2,0,'87.218.146.148',1166874040,1,0,1,1,1,1,'','','Dutch,\n\nIf you are using it from resources please add this style to it: WS_VSCROLL\n\nIf you are creating it from source code using @ ..., ... then you may need to modify the FW class and add that style also.','',0,'GIA=','87r9706c',1,0,'',2,0,0),(23930,5417,4,3,0,'82.255.224.105',1166884827,1,0,1,1,1,1,'','','Antonio \n\nI did other tests based on Bill\'s sample and was thinking of buttons instead of menus. The problem is to be able to hide the buttons when saving the image. I am not yet there.\n\nHere is my sample. \n\n#include \"C:\\FWPPC\\INCLUDE\\FWCE.ch\"\n#include \"C:\\FWPPC\\INCLUDE\\DLL.ch\"\n\nfunction Main()\nlocal oWnd, oSay,  nHdc\n\n   PUBLIC nOldX := -1, nOldY := -1\n\n   HIDEKEYBOARD()\n\n   DEFINE WINDOW oWnd TITLE \"Draw\"\n\n   @ 5,5   SAY oSay   PROMPT \" \" COLOR \"N+/W*\" PIXEL SIZE 15,15\n   @ 5,30  BUTTON obtn1 prompt \"Clear\" SIZE 50,20 PIXEL ACTION oWnd:refresh(.t.)\n   @ 5,100 BUTTON obtn2 prompt \"Save\"  SIZE 80,20 PIXEL ACTION (OBTN1:HIDE(),OBTN2:HIDE(),OWND:SAVETOBMP(CurDir() + \"\\TESTppc.BMP\"))\n\n   nHdc := GetDC(oWnd:hWnd)\n\n   oWnd:bLButtonUp := { |x,y,z| oSay:setText( \"  \" ), DoDraw( nHdc, y, x ), nOldX := -1, nOldY := -1 }\n   oWnd:bMMoved    := { |x,y,z| DoDraw( nHdc, y, x ) }\n\n   oWnd:activate( {|x,y,z| oSay:setText( \"    \" ), DoDraw( nHdc, y, x ) } )\n   SHOWKEYBOARD()\n\nreturn nil\n\nFunction DoDraw( hDc, x, y )\n\n   If nOldX == -1 .And. nOldY == -1\n      nOldX := x\n      nOldY := y\n      MoveToEx( hDc, x, y )\n   Else\n      LineTo( hDc,x,y )\n   EndIf\n\nRETURN Nil\n\nDLL FUNCTION MoveToEx( nHdc AS HDC, nX AS _INT, nY AS _INT, NULL AS _INT ) AS BOOL PASCAL LIB \"coredll.dll\"','',0,'GIA=','1r7so428',1,0,'',3,0,0),(23931,5433,6,439,0,'200.125.40.142',1166887236,1,0,1,1,1,1,'','Ejemplo Clase TImprime','Gracias desde ya por atender a mis mensajes en el foro, mi pregunta de hoy es:\n\n[i:3cgmi3ms][b:3cgmi3ms]Alguien puede tener por allí un ejemplito de esta clase? [/b:3cgmi3ms][/i:3cgmi3ms]:wink:','',0,'YA==','3cgmi3ms',1,0,'',439,0,0),(23932,5417,4,89,0,'213.21.136.60',1166887244,1,0,1,1,1,0,'','','I use this for sending messages from the Pocket PC to the kitchen.\n\nI save the position in an array , after  I save the array in a file and I send\nthe file to the PC server  where  I then transform the file in an array and I print the message . \n\n[code:jj7f1a2d]\n\n#include &quot;FWCE&#46;ch&quot;\nstatic oWnd, lDown, hDC ,cFile,nOldRow,nOldCol\nStatic aDati &#58;= &#123;&#125;\n//====================================================================================\nFunction Main&#40;&#41;\nlDown &#58;= &#46;F&#46;\nnOldRow &#58;= 0\nnOldCol &#58;= 0\n\nDEFINE WINDOW oWnd TITLE &quot;Signature&quot;\n\n oWnd&#58;bLClicked   &#58;= &#123; || lDown &#58;= &#46;T&#46; &#125;\n oWnd&#58;bLButtonUp  &#58;= &#123; || lDown &#58;= &#46;F&#46; ,nOldRow &#58;= 0 , nOldCOl &#58;= 0 &#125;\n oWnd&#58;bMMoved     &#58;= &#123; |nRow, nCol, nKeyFlags| Draw&#40;nCol,nRow&#41;&#125;\n\n hDC &#58;= oWnd&#58;GetDC&#40;&#41;\n\n @ 1, 1 BUTTON oBtn1 PROMPT &quot;Refresh&quot; ;\n      ACTION &#40;oWnd&#58;Refresh&#40;&#41;,aDAti &#58;= &#123;&#125;&#41; SIZE 80, 20\n\n @ 3, 1 BUTTON oBtn1 PROMPT &quot;S a v e&quot; ;\n      ACTION Save&#40;&#41; SIZE 80, 20\n\nACTIVATE WINDOW oWnd\n\nreturn 0\n//====================================================================================\nSTATIC FUNCTION Draw&#40;nRow,nCol&#41;\nIF lDown\n   * SetPixel&#40;hDC, nRow, nCol, RGB&#40;0,0,0&#41; &#41;\n	IF nOldRow &gt; 0\n		DrawLine&#40;nRow,nCol&#41;\n      aadd&#40;aDAti,&#123;nRow,nCol&#125;&#41;\n	ELSE\n		// We will need to know when a line starts and finishes\n      aadd&#40;aDAti,&#123;nRow+1000,nCol+1000&#125;&#41;\n	ENDIF\n   nOldRow &#58;= nRow\n   nOldCol &#58;= nCol\nENDIF\n\nRETURN NIL\n//=================================================\nStatic  Procedure DrawLine&#40; nRow,nCol	 &#41;\n   LOCAL n, hPen, hOldPen\n   oWnd&#58;GetDc&#40;&#41;\n   hPen &#58;= CreatePen&#40; 0, 1, RGB&#40;0,0,0&#41;  &#41;\n   hOldPen &#58;= SelectObject&#40; oWnd&#58;hDc, hPen &#41;\n\n   MoveTo&#40; oWnd&#58;hDC,nOldRow,nOldCol &#41;\n   LineTo&#40; oWnd&#58;hDC, nRow, nCol &#41;\n\n   SelectObject&#40; oWnd&#58;hDc, hOldPen &#41;\n   DeleteObject&#40; hPen &#41;\n   oWnd&#58;ReleaseDc&#40;&#41;\n   RETURN\n//=================================================\nFunction Save&#40;&#41;\n	Local nX &#58;= 0\n	Local cTxt &#58;= aSave&#40;aDAti&#41;\n	MemoWrit&#40;  CurDir&#40;&#41; + &quot;\\Prova&#46;txt&quot;, cTxt &#41;\nRETURN NIL\n\n//-------------------------------------------------------------------------------------------\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;item&#46;api&quot;\n\nHB_FUNC&#40; SETPIXEL &#41;\n&#123;\n   hb_retnl&#40; SetPixel&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41;, hb_parni&#40; 3 &#41;, hb_parnl&#40; 4 &#41; &#41; &#41;;\n&#125;\n#pragma ENDDUMP\n\n\n\nfunction ASave&#40; aArray &#41;\n\n   local n, cType, uData\n   local cInfo &#58;= &quot;&quot;\n\n   for n = 1 to Len&#40; aArray &#41;\n      cType = ValType&#40; aArray&#91; n &#93; &#41;\n      do case\n         case cType == &quot;A&quot;\n              cInfo += ASave&#40; aArray&#91; n &#93; &#41;\n\n         case cType == &quot;O&quot;\n              cInfo += aArray&#91; n &#93;&#58;Save&#40;&#41;\n\n         otherwise\n              cInfo += &#40; cType + I2Bin&#40; Len&#40; uData &#58;= cValToChar&#40; aArray&#91; n &#93; &#41; &#41; &#41; + ;\n                         uData &#41;\n      endcase\n   next\n\nreturn &quot;A&quot; + I2Bin&#40; 2 + Len&#40; cInfo &#41; &#41; + I2Bin&#40; Len&#40; aArray &#41; &#41; + cInfo\n\n//----------------------------------------------------------------------------//\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n[/code:jj7f1a2d]','',0,'AIA=','jj7f1a2d',1,0,'',89,0,0),(23933,5377,16,2,0,'87.218.146.81',1166893188,1,0,1,1,1,1,'','','Construcción 6.12 Diciembre 2006\n========================= \n\n* Nuevo: Ejemplo samples\\BmpOnBmp.prg muestra como pintar un bitmap transparente encima de otro bitmap.\n\n* Mejora: La clase TFolder usa correctamente la cláusula RESIZE16 para sus diálogos contenidos. Gracias a Enrico! \n\n* Mejora: La función PrinterSetup() retorna el hDC de la impresora seleccionada si se pulsa \"Accept\", o cero si se pulsa \"Cancel\". Esta función es automáticamente usada desde la clase TPrinter.\n\n* Mejora: La función PrnGetName() ha sido mejorada para evitar un posible GPF cuando usamos impresoras de otras estaciones de trabajo que han sido apagadas.\n\n* Mejora: En FWPPC los valores por defecto de los controles \"scrollbars\" han sido modificados. Por favor, revisa samples\\TestScrl.prg.\n\n* Nuevo: En FWPPC, ejemplo samples\\FoxDbc.prg para usuarios de FoxPro: Permite el uso de DBFs que pertenecen a bases de datos (ficheros DBC). \n\n* Corrección: En la clase TTreeView la función SearchItem() no aparecía debido a recientes cambios en el código fuente. Por favor, anotar que ha sido renombrada a SearchItem() desde ScanItem(), su nombre anterior. \n\n* Corrección: En FWPPC, el ejemplo samples\\TestFld.prg no acababa correctamente. Ahora está correcto. \n\n* Corrección: En FW++, pequeños cambios en la clase TWBrowse debido al cambio de comportamiento en el motor de clases en Xbase++. \n\n* Corrección: En FWH, recientes cambios en la clase TFolder introdujeron un error cuando los \"folders\" carpetas se usaban en una ventana. Ahora está correcto. \n\n* Mejora: En FWH, en la clase TSay el método SetText() ahora hace una llamada al método VarPut() también. Estos cambios hacen que la vista previa de una impresión muestre la página correcta en aplicaciones sin temas XP. \n\n* Nuevo: Función IsInternet() --&gt; lYesNo, para detectar si tenemos conexión a internet. \n\n* IMPORTANTE: Se ha cambiado el sistema de numeración de las versiones de Fivewin: Hemos cambiado el número de versión de Fivewin\n  usando el mismo formato que Ubuntu Linux, usando el año y el mes, por ejemplo, esta nueva construcción 6.12 significa que se ha liberado en Diciembre de 2006. El próximo año 2007, en Enero: 7.01 y así sucesivamente. De esta manera no tenemos que preguntar a los usuarios por la fechas de las librerías que están usando, y así podemos proporcionar un mejor soporte.\n\n* Corrección: En FWH, en la clase TGet y Harbour, había un error cuando se usaban los formateadores @R y @E. Ahora está correcto.  \n\n* Nuevo: En FWPPC, la clase TGraph está disponible para FWPPC. Usa gráficos de negocios en tus aplicaciones. Por favor, revisa el ejemplo samples\\graph.prg. Gracias a Pier Luigi por su ayuda !!!  \n\n* Mejora: Ejemplo samples\\TestTreR.prg muestra como usar controles \"treeview\" desde recursos usando ramas, borders y \"scrollbar\" \n  verticales. \n\n* Nuevo: En FWPPC, en la clase TWindow el método HScroll(). No estaba implementada, ahora sí lo está. \n\n* Nuevo: En FWPPC, los ejemplos samples\\TestMnu2.prg y TestMnu2.rc, muestran como construir un completo menú tipo \"pulldown\" con varios submenus. \n\n* Corrección: Las funciones HtmlHelp(), HTMLHelpCtx() y HTMLHelpPopup() no estaban correctamente definidas en source\\winapi\\help32.prg ( Faltaba la clausula PASCAL). Ahora están correctas. Esto es un ejemplo de uso : HtmlHelp( 0, \"c:\\fwh\\manual\\fwclass.chm\", 2, 0 )\n\n* Advertencia: No proporcionamos nuevas construcciones de Harbour y xHarbour para el lanzamiento de Diciembre. Lo haremos en la  publicación del próximo mes, ya que ha habido muchos cambios en ellos y queremos hacer más pruebas con ellos.','',0,'AIA=','1l1kr0gj',1,0,'',2,0,0),(23934,5417,4,2,0,'87.218.146.81',1166893515,1,0,1,1,1,1,'','','Maurizio,\n\nYes, thats a very good idea too, to save the signature as an array of points (nCol, nRow) like a vectorial draw.','',0,'AIA=','3esz056q',1,0,'',2,0,0),(23935,5417,4,2,0,'87.218.146.81',1166893621,1,0,1,1,1,1,'','','Richard,\n\nThe buttons should dissapear, don\'t they ?','',0,'AIA=','ezdfhe2x',1,0,'',2,0,0),(23936,5395,3,190,0,'202.65.134.36',1166893624,1,0,1,1,1,0,'','','Mr.Antonio\n\nI could achieve exactly what I wanted, using Drawmasked(....)\n\nRegards to you\n\n- Ramesh Babu P','',0,'AIA=','24ql78k8',1,0,'',190,0,0),(23937,5395,3,2,0,'87.218.146.81',1166893737,1,0,1,1,1,1,'','','Ramesh,\n\nWould you mind to post a small sample of how you have done it ? Thanks,','',0,'AIA=','26p7z985',1,0,'',2,0,0),(23938,5430,6,2,0,'87.218.146.81',1166894032,1,0,1,1,1,1,'','','Prueba esto:\n\noBrw:lAllowColSwapping = .f.','',0,'AIA=','19nw9q4j',1,0,'',2,0,0),(23939,5417,4,3,0,'82.255.224.105',1166894108,1,0,1,1,1,1,'','','They are supposed to but they don\'t. This is the poblem.','',0,'AIA=','1fcc4idz',1,0,'',3,0,0),(23940,5417,4,2,0,'87.218.146.81',1166894241,1,0,1,1,1,1,'','','Richard,\n\nYes, the same happened with the pulldown menu. I guess it is caused as there is an existing hDC in use. \n\nMaybe you may try to call oWnd:ReleaseDC() before hidding the buttons.\n\nIf you use Bill\'s code, then call ReleaseDC( oWnd:hWnd, oWnd:hDC )','',0,'AIA=','7a03b0kp',1,0,'',2,0,0),(23941,5417,4,3,0,'82.255.224.105',1166895057,1,0,1,1,1,1,'','','Antonio\n\nNo change, same result. We need to update the window before saving it\n\nI keep searching','',0,'AIA=','3a0t9ogz',1,0,'',3,0,0),(23942,5395,3,190,0,'202.65.134.36',1166896101,1,0,1,1,1,0,'','','Mr.Antinio \n\nI am pleased to post this:\n\n [code:3s9wb01d]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oDlg, oBmp, hDC\n\nDEFINE DIALOG oDlg SIZE 212, 106                                  ;\n       COLORS CLR_BLACK, nRGB&#40;224,167,64&#41; TRANSPARENT PIXEL\n\nACTIVATE DIALOG oDlg CENTERED  ON PAINT                           ;\n         &#40; gradiate_&#40;oDlg, hDC, &#123;CLR_WHITE, nRgb&#40;224,167,64&#41;&#125;,      ;\n                   2,&#123;0,0,oDlg&#58;nHeight,oDlg&#58;nWidth&#125;&#41;, PaintBmp&#40;oDlg,20,20&#41;\n\nRETURN nil\n\n**********\n\nFUNCTION PaintBmp&#40;oDlg,row,col&#41;\n\nLOCAL cFile, aBmpPal, hBitmap\n\n* This Code is for reading bitmap file from disk file\ncFile   &#58;= &quot;&#46;&#46;\\BITMAPS\\QUESTION&#46;BMP&quot;\naBmpPal &#58;= PalBmpRead&#40;oDlg&#58;hDc,cFile&#41;\n\n* This Code is for reading bitmap file from resource\n* aBmpPal &#58;= PalBmpLoad&#40; &quot;QUESTION&quot; &#41;\n\nhBitmap &#58;= aBmpPal&#91; 1 &#93;\n\nDrawMasked&#40; oDlg&#58;hDC, hBitmap, row, col &#41;\n\nRETURN nil\n\n*********\n[/code:3s9wb01d]\n\nAnd the result is:\n\n\n\n[img:3s9wb01d]http&#58;//img171&#46;imageshack&#46;us/img171/3160/gradiantnt5&#46;jpg[/img:3s9wb01d]\n\nI am very happy now, that at the end of the Year I could butify my \napplication sufficiantly with this function strictly within FWH (without any\nthird party tool) in themed and non-themed applications.\n\nOnce again regards to you personally and your team and \nregards to our frieds of the forum. \n\n- Ramesh Babu P[/code]','',0,'CIA=','3s9wb01d',1,1167064672,'',190,2,0),(23943,2837,6,299,0,'24.233.172.101',1166896180,1,0,1,0,1,0,'','','Rene;\n\n¿Hay noticias sobre este tema?  ¿Te ha respondido Brian?\n\nMi intención es usarla en algo asi:\n\n[code:1pkhxl2y]\n	AdsRegCallBack&#40; &#123; | nPercent | ProgressUpdate&#40; nPercent &#41; &#125; &#41;\n\n	IF ADSExecuteSQLDirect&#40; cCons &#41;\n&#46;&#46;&#46;\n[/code:1pkhxl2y]\n\nPero observo que durante la ejecución del ADSExecuteSQLDirect la función registrada con AdsRegCallBack no es invocada.  Quisiera conocer que hacer para lograr mostrar el progreso de una ejecución SQL.\n\n\n\nReinaldo.','',0,'AIA=','1pkhxl2y',1,0,'',299,0,0),(23944,5434,3,20,0,'82.55.0.205',1166896704,1,0,1,1,1,0,'','IsActiveX function','I write\n\n[code:1nib3jyy]\n\n   IF !IsActiveX&#40; &quot;RMChart&#46;RMChartX&quot; &#41;\n      MsgStop&#40; &quot;Non è possibile produrre il grafico&#46;&quot;&#41;\n      RETURN &#40; nil &#41;\n   ENDIF\n\n[/code:1nib3jyy]\n\nand harbour show this message\n\n[img:1nib3jyy]http&#58;//img95&#46;imageshack&#46;us/img95/2733/imagewn4&#46;jpg[/img:1nib3jyy]\n\nWhere I mistake?\nI use FWH 6.12\n\nRegards\nPier Luigi','',0,'CIA=','1nib3jyy',1,0,'',20,0,0),(23945,5430,6,665,0,'196.40.43.78',1166897219,1,0,1,1,1,0,'','No no funciona.. como bloquear   los headers','Garcias Antonio pero no funciono.\n\nLa Clase TXbrowse  puedes  con un click derecho editat los campos y poner con un check  mark  mostrar o  esconder los   headers de TXbrowse.\n\nAun con lo me me has enviado  no  desabilito el focus del header, debe de haber otro metofdo por ahi en la clase. habra algun referencia  de los metodos de esta clase.. por favor\n\nGracias','',0,'CIA=','1o9aa7td',1,0,'',665,0,0),(23946,5433,6,9,0,'85.59.53.203',1166898576,1,0,1,1,1,1,'','','Jose,\n\n¿Para que quieres la clase Timprime?.- Uso algunos métodos de la clase Tutilprn (TheFull), pero creo que la Timprime es innecesaria. De todos modos, te envio a tu correo un ejemplo antiguo.\n\nFeliz Navidad','',0,'CIA=','vprzii40',1,0,'',9,0,0),(23947,5435,3,53,0,'189.139.8.138',1166900502,1,0,1,1,1,1,'','TSbrowse class + ComboBox control  = ERROR !','Season greetings:\n\nI use the TSBrowse class and in a column I use the combobox control but I have an error message at lostfocus time, the error message is\n\nError FiveWin/3 Cannot create dialog box\n\nsomebody can help me ?, perhaps a new TSBrowse version ?\n\nI use xHarbour 0.99.61 (simplex),\nFiveWin 2.7 March and TSBrowse v. 7.00\n\nRegards, Armando','',0,'CIA=','19zglr9i',1,0,'',53,0,0),(23948,5433,6,439,0,'200.125.45.88',1166901590,1,0,1,1,1,1,'','','Muchas gracias por tu ayuda Manuel, estaré viendo estas clases en esta semana y tu ejemplo me ayuda mucho a entender su aplicacion.\n\nMuy felices fiestas para tí y tu familia. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CIA=','3vneav21',1,0,'',439,0,0),(23949,5399,7,92,0,'81.44.82.207',1166907156,1,0,1,1,1,0,'','Locate y SET RELATION','Rene, perdona el abuso, pero\n\n¿Cómo se realizaría un LOCATE sobre una \'relación\' de 3 bases de datos?\n\nTengo una rutina que automáticamente \'monta\' el locate según los campos que escoge el operador, y claro el uso de SET RELATION sería fantástico si supiera como \'montar\' el LOCATE adecuado para los casos de bases relacionadas.\n\nBueno lo más importante:\n\nFELIZ NAVIDAD A TODOS\n\nCarlos Gelabert','',0,'CIA=','dputguhn',1,0,'',92,0,0),(23951,5427,1,47,0,'203.144.143.5',1166921935,1,0,1,1,1,0,'','','Thanks, I got it.\nDutch','',0,'CIA=','2hq7t1cm',1,0,'',47,0,0),(23952,5417,4,224,0,'66.225.99.139',1166925796,1,0,1,1,1,1,'','','This sample uses a SAY object to collect the signature and its DC is saved to the bitmap file. It works nicely...\n\n[code:15oc0pdb]\n#include &quot;FWCE&#46;ch&quot;\n#include &quot;DLL&#46;ch&quot;\n\nfunction Main&#40;&#41;\nlocal oMain, oSig, nHdc\nlocal cDir &#58;= CurDir&#40;&#41;\n\n   PUBLIC nOldX &#58;= -1, nOldY &#58;= -1\n\n   DEFINE WINDOW oMain TITLE &quot;Draw&quot;\n\n   @60,5 SAY oSig PROMPT &quot;&quot; SIZE 230,150 PIXEL BORDER\n\n   @25, 5 BUTTON &quot;Clear&quot; SIZE 50,20 PIXEL ACTION oSig&#58;refresh&#40;&#46;t&#46;&#41;\n   @25,60 BUTTON &quot;Save&quot;  SIZE 50,20 PIXEL ACTION &#40; oSig&#58;saveToBmp&#40; cDir + &quot;\\MySig&#46;BMP&quot; &#41;, oSig&#58;refresh&#40;&#46;t&#46;&#41; &#41;\n\n   nHdc &#58;= GetDC&#40; oSig&#58;hWnd &#41;\n\n   oSig&#58;bLButtonUp &#58;= &#123; |x,y,z| DoDraw&#40; nHdc, y+1, x+1 &#41;, nOldX &#58;= -1, nOldY &#58;= -1 &#125;\n   oSig&#58;bMMoved    &#58;= &#123; |x,y,z| DoDraw&#40; nHdc, y, x &#41; &#125;\n   oSig&#58;bLClicked  &#58;= &#123; |x,y,z| DoDraw&#40; nHdc, y, x &#41; &#125;\n\n   ACTIVATE WINDOW oMain\n\nreturn nil\n\nFunction DoDraw&#40; hDc, x, y &#41;\n\n   If nOldX == -1 &#46;And&#46; nOldY == -1\n      nOldX &#58;= x\n      nOldY &#58;= y\n      MoveToEx&#40; hDc, x, y &#41;\n   Else\n      LineTo&#40; hDc,x,y &#41;\n   EndIf\n\nRETURN Nil\n\nDLL FUNCTION MoveToEx&#40; hWnd AS HDC, nX AS _INT, nY AS _INT, NULL AS _INT &#41; AS BOOL PASCAL LIB &quot;coredll&#46;dll&quot;[/code:15oc0pdb]\n\nMerry Christmas!!','',0,'AIA=','15oc0pdb',1,0,'',224,0,0),(23953,5381,3,69,0,'74.13.56.205',1166926298,1,0,1,1,1,0,'','','I would like to wish all of you and your families a very Merry Christmas and a Happy New Year.\n\nThanks for all the help.\n\nJeff','',0,'AIA=','29m247ph',1,0,'',69,0,0),(23954,5395,3,190,0,'202.65.134.36',1166930456,1,0,1,1,1,0,'','','Mr.Fernando\n\n[quote:1hxun1cy]\nin the next build we\'ll implement the other states of a button: pressed, disabled, focus. \n[/quote:1hxun1cy]\n\nI will wait for that build.\n\nThanks to you,\n\n- Ramesh Babu P','',0,'gA==','1hxun1cy',1,0,'',190,0,0),(23955,5417,4,3,0,'82.255.224.105',1166941727,1,0,1,1,1,1,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nExcellent , it works very nicely. Saving the say dc fixes definitely the problem.\n\nThank you Bill \n\nMerry Christmas.','',0,'gA==','zgoa5amg',1,0,'',3,0,0),(23956,5417,4,3,0,'82.255.224.105',1166944822,1,0,1,1,1,1,'','','Question to Antonio\n\n   nHdc := GetDC( oSig:hWnd )\n\nWill the Dc be automatically released at the end of the function or do we have to releasedc() ?\n\nThanks for reply\n\nI made some minor changes to Bill\'s sample, setting locals variables instead of public , quitting after signature, here is mine\n\n#include \"C:\\FWPPC\\INCLUDE\\FWCE.ch\"\n#include \"C:\\FWPPC\\INCLUDE\\DLL.ch\"\n\nfunction Main()\nlocal oMain, oSig, nHdc, ;\n   nOldX := -1, ;\n   nOldY := -1\n\n   DEFINE WINDOW oMain TITLE \"Signature\"\n\n   @40,5 SAY oSig PROMPT \"\" SIZE 230,150 PIXEL BORDER\n\n   @15, 5 BUTTON \"Effacer\" SIZE 50,20 PIXEL ACTION oSig:refresh(.t.)\n   @15,60 BUTTON \"Sauver\"  SIZE 50,20 PIXEL ACTION ( oSig:saveToBmp( CurDir() + \"\\MySig.BMP\" ), oSig:refresh(.t.), OMAIN:END() )\n\n   nHdc := GetDC( oSig:hWnd )\n\n   oSig:bLButtonUp := { |x,y,z| DoDraw( nHdc, y+1, x+1,@noldx,@noldy ), nOldX := -1, nOldY := -1 }\n   oSig:bMMoved    := { |x,y,z| DoDraw( nHdc, y, x ,@noldx,@noldy) }\n   oSig:bLClicked  := { |x,y,z| DoDraw( nHdc, y, x ,@noldx,@noldy) }\n\n   ACTIVATE WINDOW oMain\n\nreturn nil\n\nSTATIC Function DoDraw( hDc, x, y, noldx, noldy )\n\n   If nOldX == -1 .And. nOldY == -1\n      nOldX := x\n      nOldY := y\n      MoveToEx( hDc, x, y )\n   Else\n      LineTo( hDc,x,y )\n   EndIf\n\nRETURN Nil\n\nDLL STATIC FUNCTION MoveToEx( hWnd AS HDC, nX AS _INT, nY AS _INT, NULL AS _INT ) AS BOOL PASCAL LIB \"coredll.dll\"','',0,'gA==','3ls8vq8t',1,0,'',3,0,0),(23957,5436,6,75,0,'81.39.172.113',1166950678,1,0,1,1,1,0,'','funcion esfecha(cValor)','function esfecha(cValor)\nreturn iif(dtos(ctod(cValor))=space(8),.f.,.t.)\n\n\n\nCuando se le pasa una cadena de caranteres determina si la misma es una fecha o no.','',0,'gA==','mcbve8er',1,0,'',75,0,0),(23958,5417,4,6,0,'87.16.223.65',1166951882,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:3orwcxh8]nHdc := GetDC( oSig:hWnd )\n\nWill the Dc be automatically released at the end of the function or do we have to releasedc() ?[/quote:3orwcxh8]\n\nYou have to release it.\n\nEMG','',0,'gA==','3orwcxh8',1,0,'',6,0,0),(23959,5417,4,3,0,'82.255.224.105',1166953402,1,0,1,1,1,1,'','','Enrico\n\nThank you\n\nRichard','',0,'gA==','s5kxk3qa',1,0,'',3,0,0),(23960,5417,4,2,0,'87.218.146.86',1166954849,1,0,1,1,1,1,'','','Bill,\n\nYou may use FWPPC built-in MoveTo() function instead of DLL FUNCTION MoveToEx(), this way you eliminate the call to an external DLL and your code will be faster:\n\nMoveTo( hDC, nCol, nRow )','',0,'gA==','2y531z1a',1,0,'',2,0,0),(23961,5417,4,2,0,'87.218.146.86',1166954980,1,0,1,1,1,1,'','','Richard,\n\nReleaseDC( oSig:hWnd, oSig:hDC )','',0,'gA==','2be7rrfm',1,0,'',2,0,0),(23962,5417,4,2,0,'87.218.146.86',1166955620,1,0,1,1,1,1,'','','Bill,\n\nYes, it works nicer and better using a SAY control, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','e39340nv',1,0,'',2,0,0),(23963,5417,4,3,0,'82.255.224.105',1166955901,1,0,1,1,1,1,'','','This is the final test that works excellent. Thank you all for the help.\n\n#include \"C:\\FWPPC\\INCLUDE\\FWCE.ch\"\n#include \"C:\\FWPPC\\INCLUDE\\DLL.ch\"\n\nfunction Main()\n\nlocal oMain, oSig, nHdc, ;\n   nOldX := -1, ;\n   nOldY := -1\n\nLOCAL DFILE := CURDIR() + \"\\MYSIGN.BMP\"\n\n   DEFINE WINDOW oMain TITLE \"Signature\"\n\n   @40,5 SAY oSig PROMPT \"\" SIZE 230,150 PIXEL BORDER\n\n   @15, 5 BUTTON \"Clear\" SIZE 50,20 PIXEL ACTION oSig:refresh(.t.)\n   @15,60 BUTTON \"Save\"  SIZE 50,20 PIXEL ACTION ( oSig:saveToBmp( DFIle ), oSig:refresh(.t.), ReleaseDC( oSig:hWnd, oSig:hDC ), OMAIN:END() )\n\n   nHdc := GetDC( oSig:hWnd )\n\n   oSig:bLButtonUp := { |x,y,z| DoDraw( nHdc, y+1, x+1,@noldx,@noldy ), nOldX := -1, nOldY := -1 }\n   oSig:bMMoved    := { |x,y,z| DoDraw( nHdc, y, x ,@noldx,@noldy) }\n   oSig:bLClicked  := { |x,y,z| DoDraw( nHdc, y, x ,@noldx,@noldy) }\n\n   ACTIVATE WINDOW oMain\n\nreturn nil\n\nSTATIC Function DoDraw( hDc, x, y, noldx, noldy )\n\nIf nOldX == -1 .And. nOldY == -1\n   nOldX := x\n   nOldY := y\n   MoveTo( hDC, x, y )\n Else\n   LineTo( hDc,x,y )\nEndIf\n\nRETURN Nil','',0,'gA==','1macldo9',1,0,'',3,0,0),(23964,5434,3,2,0,'87.218.146.86',1166960738,1,0,1,1,1,1,'','','Pier,\n\nFixed. We email you the fixed library. Thanks,','',0,'gA==','1n4de3e0',1,0,'',2,0,0),(23965,5431,3,2,0,'87.218.146.86',1166961368,1,0,1,1,1,1,'','','Frank,\n\nYou may supply lCheck to the function that creates the second dialog:\n\n@ 7,5 BUTTON oBut PROMPT \"Dialog 2\" OF oDlg ACTION Dialog2(oDlg, @lCheck )\n\nPassing it by reference lets you change it from the second one.\n\nIs that what you are looking for or am I missing something ? thanks,','',0,'gA==','6s1ekblb',1,0,'',2,0,0),(23966,5422,3,2,0,'87.218.146.86',1166962339,1,0,1,1,1,1,'','','Richard,\n\nCould you please check if you are calling oPrinter:End() directly or if you have an extra call to ENDPRINT ? It looks as it is being called twice.','',0,'gA==','2ff781n4',1,0,'',2,0,0),(23967,5413,7,2,0,'87.218.146.86',1166962980,1,0,1,1,1,1,'','','Pedro,\n\nFixed, thanks!','',0,'gA==','2tw1ee45',1,0,'',2,0,0),(23968,5430,6,2,0,'87.218.146.86',1166963502,1,0,1,1,1,1,'','','Tendrías que modificar la clase TXBrowse en los métodos LButtonDown() y RButtonDown() y añadir una nueva DATA lHeaders (ó similar) y en ambos métodos comprobar al principio si lHeaders es .F. y en tal caso hacer return nil para que no se haga nada.\n\nNo hay ninguna DATA que podamos usar de las existentes, salvo la que te he indicado en el anterior mensaje.','',0,'gA==','2knvww52',1,0,'',2,0,0),(23969,5422,3,3,0,'82.255.224.105',1166969076,1,0,1,1,1,1,'','','Antonio\n\nit was en error in my code. A pdf printer has a high resolution and i was initiating low numbers. So my app issued a endpage without startpage ....\n\nStrange, this error only happened on adobe pdf driver. \n\nNow it is OK.\n\nThanks \n\nRichard','',0,'gA==','2u20f280',1,0,'',3,0,0),(23970,5417,4,224,0,'66.225.99.139',1166969579,1,0,1,1,1,1,'','','Richard, very nice!  Thanks for cleaning up my code.  Antonio, thanks for the info on the built-in FW functions. I\'m still learning the FW syntax and  functions.\n\nAlso, Antonio thank you for the incredible tool that FWPPC is.  It has enabled us to deploy a Mobile app in very short time!\n\nMerry Christmas to all!','',0,'gA==','1ztpj0yl',1,0,'',224,0,0),(23971,5420,1,173,0,'203.190.250.105',1166975388,1,0,1,1,1,0,'','Thanks','Thanks alot\n\nPeter','',0,'gA==','1zzxqj7o',1,0,'',173,0,0),(23972,5326,3,104,0,'201.58.94.107',1166981711,1,0,1,1,1,0,'','','Hello Silvio,\n\nYes, but in black and white. Already in the format JPEG functions 100%\n\nSee the down the example using. BMP:\n\n[img:3lb3awkv]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/rotate_bmp&#46;PNG[/img:3lb3awkv]\n\n See the down the example using. JPG\n\n[img:3lb3awkv]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/rotate_jpg&#46;PNG[/img:3lb3awkv]\n\nThe code:\n\n[code:3lb3awkv]\n#include &quot;FreeImage&#46;ch&quot;  &amp;&amp; This should be before of &quot;fivewin&#46;ch&quot;\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;common&#46;ch&quot;\n\n*************\nfunction main\n*************\n\nlocal cFoto &#58;= &quot;FIVEWIN&#46;bmp&quot;\n\ntesteimagem&#40; cFoto, 0   &#41;\ntesteimagem&#40; cFoto, 60  &#41;\ntesteimagem&#40; cFoto, 90  &#41;\ntesteimagem&#40; cFoto, 180 &#41;\ntesteimagem&#40; cFoto, 270 &#41;\n\ncFoto &#58;= &quot;FIVEWIN&#46;jpg&quot;\n\ntesteimagem&#40; cFoto, 0   &#41;\ntesteimagem&#40; cFoto, 60  &#41;\ntesteimagem&#40; cFoto, 90  &#41;\ntesteimagem&#40; cFoto, 180 &#41;\ntesteimagem&#40; cFoto, 270 &#41;\n\nRETURN NIL\n\n********************\nFUNCTION TesteImagem&#40; cFOTO, ngrau &#41;\n********************\n\n   LOCAL im, rotated, rotatedEx, cFif, cDef\n\n   fi_Initialise&#40;&#41;\n\n   cFif &#58;= iif&#40; at&#40; &quot;&#46;BMP&quot;, upper&#40;cFoto&#41; &#41; &gt; 0, FIF_BMP, FIF_JPEG &#41;\n   cDef &#58;= iif&#40; at&#40; &quot;&#46;BMP&quot;, upper&#40;cFoto&#41; &#41; &gt; 0, BMP_DEFAULT, JPEG_DEFAULT &#41;\n   cExt &#58;= iif&#40; at&#40; &quot;&#46;BMP&quot;, upper&#40;cFoto&#41; &#41; &gt; 0, &quot;&#46;bmp&quot;, &quot;&#46;jpg&quot; &#41;\n\n   im &#58;= fi_Load&#40; cFif, cFOTO, cDef &#41;\n\n   msgstop&#40; &quot;Rotate Classic   &#58;&quot; + cvaltochar&#40; rotated &#58;= fi_RotateClassic&#40; im, ngrau &#41; &#41; + CRLF + ;\n            &quot;Save ?           &#58;&quot; + cvaltochar&#40; fi_Save&#40; cFif, rotated, &quot;rotac&quot;+strzero&#40;ngrau,3&#41;+cExt, cDef &#41; &#41;, &quot;Rotate &quot; + str&#40; ngrau, 3 &#41; &#41;\n\n   fi_Unload&#40; rotated &#41;\n\n   centerx &#58;= fi_GetWidth&#40; im &#41; / 2\n   centery &#58;= fi_GetHeight&#40; im &#41; / 2\n\n   msgstop&#40; &quot;Rotate Ex        &#58; &quot; + cvaltochar&#40; rotatedEx &#58;= fi_RotateEx&#40; im, nGrau, 0, 0, centerx, centery, TRUE &#41; &#41; + CRLF + ;\n            &quot;Save ?           &#58; &quot; + cvaltochar&#40; fi_Save&#40; cFif, rotatedEx, &quot;rotae&quot;+strzero&#40;ngrau,3&#41;+cExt, cDef &#41; &#41;, &quot;RotateEx &quot; + str&#40; ngrau, 3 &#41; &#41;\n   fi_Unload&#40; rotatedEx &#41;\n\n   fi_unload&#40;im&#41;\n   fi_Deinitialise&#40;&#41;\n\nRETURN&#40;NIL&#41;\n[/code:3lb3awkv]\n\nFor this function you be necessary use the class freeimage of xharbour.org, located in “\\xharbour\\contrib\\freeimage\\..\"  \n\nRegards,\n\nRossine.','',0,'CIA=','3lb3awkv',1,0,'',104,0,0),(23973,5437,2,812,0,'201.214.35.230',1166997226,1,0,1,1,1,0,'','Favor Necesito Ayuda Urgente','Hola Amigos:\n\nTengo un problema que necesito solucionar en forma urgente:\nUso Clipper 5.2e, Fivewin 2.2 Blinker 7.0.\n\nCada Vez que hago el get del Id 48, 37, 38,...\n\nEl programa se cae, arrojando el error que se describe mas abajo\n\nEn espera de una urgente ayuda,\n\nSe despide.\n\nMiguel Rivera\n\n\n\nTengo el siguiente Codigo:\n\n  Redefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture \"9999.99\"  Color \"w+/b*\" ;\n              Valid Calcu_des(Por_des1)\n  Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Picture \"99,999,999.99\"  Color \"w+/b*\"\n  Redefine Get oCan_est1 Var Can_est1 Id 37 Of oDlgEdit Update  Picture \"9999\"  Color \"w+/b*\"\n  Redefine Get oEst_cub1 Var Est_cub1 Id 38 Of oDlgEdit Update  Picture \"9999\"  Color \"w+/b*\"\n  Redefine Get oEst_ncu1 Var Est_ncu1 Id 39 Of oDlgEdit Update  Picture \"9999\"  Color \"w+/b*\"\n\n  REDEFINE Say oEdu_uf1  Prompt Ecu_uf1   ID 41 OF oDlgEdit Font oFont2 Picture \"99,999,999.99\"\n  REDEFINE Say oEdu_pes1 Prompt Ecu_pes1  ID 42 OF oDlgEdit Font oFont2 Picture \"999,999,999\"\n  REDEFINE Say oEcu_uf1  Prompt Ecu_uf1   ID 44 OF oDlgEdit Font oFont2 Picture \"9,999,999.99\"\n  REDEFINE Say oEcu_pes1 Prompt Ecu_pes1  ID 45 OF oDlgEdit Font oFont2 Picture \"9,99,999,999\"\n  REDEFINE Say oEnc_uf1  Prompt Enc_uf1   ID 46 OF oDlgEdit Font oFont2 Picture \"9,999,999.99\"\n  REDEFINE Say oEnc_pes1 Prompt Enc_pes1  ID 47 OF oDlgEdit Font oFont2 Picture \"9,99,999,999\"\n\n     Redefine Button Id 180 Of oDlgEdit ;\n              Action (Graba_cot(.t.),oDlgEdit:END())\n\n     Redefine Button Id 150 Of oDlgEdit ;\n       Action (lPara:=.F.,oDlgEdit:END())\n\n     Activate Dialog oDlgEdit Centered\n     oFont1:End()\n     oFont2:End()\n\n*****\nERROR\n\nApplication\n===========\n   Path and name: D:\\DESARRO\\AITUE\\CONSTRUC\\INMOBILI.EXE (16 bits)\n   Size:   378,112 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Time from start: 0 hours 0 mins 4 secs \n   Error ocurred at: 24/12/2006, 18:19:17\n   Error description: Error BASE/1077  Argument error: .NOT.\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from TGET:FWLOSTFOCU(0)\n   Called from TGET:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ACTUCOT1(274)\n   Called from (b)ACTUCOT(115)\n   Called from TBUTTON:CLICK(0)\n   Called from TBUTTON:HANDLEEVEN(0)\n   Called from SENDMESSAG(0)\n   Called from TDIALOG:COMMAND(0)\n   Called from TDIALOG:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ACTUCOT(123)\n   Called from (b)TUTOR(58)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TBTNBMP:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from TUTOR(94)\n\nSystem\n======\n   CPU type: Pentium\n   Hardware memory: 256 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Clipper (R) 5.2e Intl. (x216)  (1995.02.07)\n   Windows and MsDos versions: 3.95, 5.0\n\n   Windows total applications running: 10\n      1 explorer.exe\n      2 IEXPLORE.EXE\n      3 Mew32.exe\n      4 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      5 D:\\DESARRO\\AITUE\\CONSTRUC\\INMOBILI.DLL\n      6 D:\\DESARRO\\AITUE\\CONSTRUC\\INMOBILI.EXE\n      7 D:\\UTIL\\WORKSHOP\\WORKSHOP.EXE\n      8 D:\\UTIL\\WORKSHOP\\WORKED3.DLL\n      9 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n     10 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TGET:FWLOSTFOCU\n     Param   1:    N    1314\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n     Local   3:    U    \n   TGET:HANDLEEVEN\n     Param   1:    N    2057\n     Param   2:    N    1314\n     Param   3:    N    0\n   DIALOGBOX\n     Param   1:    N    11327\n     Param   2:    C    \"Cotizacion\"\n     Param   3:    N    1220\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    1220\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   ACTUCOT1\n     Param   1:    L    .T.\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TSAY\n     Local   4:    O    Class: TSAY\n     Local   5:    O    Class: TSAY\n     Local   6:    O    Class: TSAY\n     Local   7:    U    \n     Local   8:    O    Class: TSAY\n     Local   9:    O    Class: TSAY\n     Local  10:    O    Class: TSAY\n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    O    Class: TSAY\n     Local  16:    U    \n     Local  17:    U    \n     Local  18:    U    \n     Local  19:    U    \n     Local  20:    O    Class: TSAY\n     Local  21:    O    Class: TSAY\n     Local  22:    O    Class: TGET\n     Local  23:    O    Class: TSAY\n     Local  24:    O    Class: TGET\n     Local  25:    O    Class: TGET\n     Local  26:    O    Class: TSAY\n     Local  27:    O    Class: TSAY\n     Local  28:    U    \n     Local  29:    U    \n     Local  30:    O    Class: TSAY\n     Local  31:    O    Class: TSAY\n     Local  32:    O    Class: TSAY\n     Local  33:    O    Class: TSAY\n     Local  34:    U    \n     Local  35:    U    \n     Local  36:    U    \n     Local  37:    U    \n     Local  38:    U    \n     Local  39:    O    Class: TDIALOG\n     Local  40:    O    Class: TFONT\n     Local  41:    O    Class: TSAY\n   (b)ACTUCOT\n   TBUTTON:CLICK\n     Local   1:    O    Class: TBUTTON\n   TBUTTON:HANDLEEVEN\n     Param   1:    N    2048\n     Param   2:    N    0\n     Param   3:    N    0\n   SENDMESSAG\n     Param   1:    N    1276\n     Param   2:    N    2048\n     Param   3:    N    0\n     Param   4:    N    0\n   TDIALOG:COMMAND\n     Param   1:    N    201\n     Param   2:    N    1276\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    0\n     Local   3:    N    201\n     Local   4:    N    1276\n   TDIALOG:HANDLEEVEN\n     Param   1:    N    273\n     Param   2:    N    201\n     Param   3:    N    1276\n   DIALOGBOX\n     Param   1:    N    11327\n     Param   2:    C    \"BrowseCotiza\"\n     Param   3:    N    1300\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    1300\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   ACTUCOT\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    N    0\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    A    Len:    4\n     Local  15:    N    1\n     Local  16:    U    \n     Local  17:    O    Class: TDIALOG\n     Local  18:    O    Class: TCBROWSE\n     Local  19:    U    \n     Local  20:    N    1\n   (b)TUTOR\n     Param   1:    O    Class: TBTNBMP\n   TBTNBMP:CLICK\n     Local   1:    O    Class: TBTNBMP\n   TBTNBMP:LBUTTONUP\n     Param   1:    N    15\n     Param   2:    N    13\n     Param   3:    O    Class: TBTNBMP\n     Local   1:    U    \n     Local   2:    L    .T.\n   TBTNBMP:HANDLEEVEN\n     Param   1:    N    514\n     Param   2:    N    0\n     Param   3:    N    983053\n   WINRUN\n     Param   1:    N    1300\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    { || ... } CodeBlock\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    { || ... } CodeBlock\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   TUTOR\n     Local   1:    O    Class: TBRUSH\n     Local   2:    O    Class: TICON\n     Local   3:    U    \n     Local   4:    O    Class: TCURSOR\n     Local   5:    O    Class: TBAR\n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    N    4286\n\nLinked RDDs\n===========\n   DBF\n   DBFCDX\n\nDataBases in use\n================\n\n  1:    ODBDEP                             RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          1      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; COD_PRO+COD_EDI+COD_DEP            DEPARTA1\n           COD_EDI+COD_DEP                    DEPARTA2\n           COD_DEP                            DEPARTA3\n\n     Relations in use\n                 1: TO Cod_pro INTO PROYECTO\n                 2: TO Cod_ori INTO ORIDEP\n                 3: TO cod_tip INTO TIPODEP\n                 4: TO Cod_pro+cod_edi INTO EDIFICIO\n\n  2: =&gt; ODBCOT                             RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          0      .T.   .T.\n\n     Indexes in use                        TagName\n        =&gt; COD_PRO+COD_EDI+COD_DEP            DEPARTA1\n           COD_EDI+COD_DEP                    DEPARTA2\n           COD_DEP                            DEPARTA3\n\n     Relations in use\n\n  4:    MAEUF                              RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        2          2      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; DTOS(CTOD(FEC_DIA))                MAEUF\n\n     Relations in use\n\n 10:    PROYECTO                           RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          2      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; COD_PRO                            PROYEC1\n           NOM_PRO                            PROYEC2\n\n     Relations in use\n\n 11:    EDIFICIO                           RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          1      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; COD_PRO+COD_EDI                    EDIFI1\n           NOM_EDI                            EDIFI2\n           COD_EDI                            EDIFI3\n\n     Relations in use\n                 1: TO Cod_pro INTO PROYECTO\n\n 12:    TIPODEP                            RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        2          3      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; COD_TIP                            TIPODEP1\n\n     Relations in use\n\n 13:    ORIDEP                             RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        2          3      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; COD_ORI                            ORIDEP1\n\n     Relations in use\n\nClasses in use:\n===============\n     1 TBRUSH\n     2 TWINDOW\n     3 TCONTROL\n     4 TICON\n     5 TCURSOR\n     6 TMDIFRAME\n     7 TMENU\n     8 TMENUITEM\n     9 TMDICLIENT\n    10 TFONT\n    11 TBAR\n    12 TRECT\n    13 TBTNBMP\n    14 TMSGBAR\n    15 TMSGITEM\n    16 TTIMER\n    17 TDIALOG\n    18 TSAY\n    19 TWBROWSE\n    20 TCBROWSE\n    21 TCCOLUMN\n    22 TBUTTON\n    23 TSCROLLBAR\n    24 TGET\n    25 GET\n    26 ERROR\n    27 TSTRUCT\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       29856 bytes  (SYMP=688, Stack=8192, Heap=2056)\n      PRG Stack:          35063 bytes\n      44 Static variables: 616 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     999174 bytes\n      Highest Value:    1019654 bytes','',0,'','3ejq87tc',1,0,'',812,0,0),(23974,5438,3,6,0,'87.19.210.21',1167001086,1,0,1,1,1,1,'','Bug in TSay','The following sample shows the problem:\n\n[code:2m3u7l87]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oSay\n\n    LOCAL n &#58;= 0\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 SAY oSay PROMPT &quot;Counter&#58; &quot; + LTRIM&#40; STR&#40; n &#41; &#41;;\n           SIZE 200, 15\n\n    @ 2, 1 BUTTON &quot;Start&quot;;\n           ACTION COUNTER&#40; oSay, @n &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION COUNTER&#40; oSay, n &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO 100\n        n++\n        oSay&#58;Refresh&#40;&#41;\n        SYSWAIT&#40; 0&#46;01 &#41;\n    NEXT\n\n    TONE&#40; 400, 1 &#41;\n\n    RETURN NIL[/code:2m3u7l87]\n\nIt should count from 1 to 100 when the button is pressed. Instead the label shows 1 and is not refreshed anymore.\n\nThe cause seems to be the statement\n\n[code:2m3u7l87]&#58;&#58;VarPut&#40; &#58;&#58;cCaption &#41;[/code:2m3u7l87]\n\nadded in the latest TSay class.\n\nEMG','',0,'AIA=','2m3u7l87',1,0,'',6,0,0),(23975,5438,3,6,0,'87.19.210.21',1167001488,1,0,1,1,1,1,'','Re: Bug in TSay','Even during reports generation the counter is not updated anymore.\n\nEMG','',0,'AIA=','3tvi7n5i',1,0,'',6,0,0),(23976,5438,3,2,0,'87.218.146.181',1167008267,1,0,1,1,1,1,'','','Enrico,\n\nWe may remove ::VarPut( ::cCaption ) from Class TSay Method SetText(), but then preview page number is wrongly shown.\n\nWe need to find a way to fix the preview page number.','',0,'AIA=','1r1fv9q8',1,0,'',2,0,0),(23977,5438,3,2,0,'87.218.146.181',1167008462,1,0,1,1,1,1,'','','Ok, the solution seems to replace in source\\classes\\rpreview.prg all oPage:SetText(...) into oPage:VarPut(...)','',0,'AIA=','16kfljqn',1,0,'',2,0,0),(23978,5437,2,2,0,'87.218.146.181',1167008811,1,0,1,1,1,1,'','','Miguel,\n\nLa función Calcu_des() devuelve un valor lógico ? Debe hacerlo.','',0,'AIA=','3j3uxkl5',1,0,'',2,0,0),(23979,5438,3,2,0,'87.218.146.181',1167009234,1,0,1,1,1,1,'','','This looks as a right fix for rpreview.prg:\n[code:29dtlwhn]\n     if ! IsAppThemed&#40;&#41;\n        oPage&#58;VarPut&#40; TXT_PAGENUM + LTrim&#40; Str&#40; nPage, 4, 0 &#41; &#41; + &quot; / &quot; + ;\n                                    LTrim&#40; Str&#40; Len&#40; aFiles &#41; &#41; &#41; &#41;\n     else                               \n        oPage&#58;SetText&#40; TXT_PAGENUM + LTrim&#40; Str&#40; nPage, 4, 0 &#41; &#41; + &quot; / &quot; + ;\n                                     LTrim&#40; Str&#40; Len&#40; aFiles &#41; &#41; &#41; &#41;\n     endif                               \n[/code:29dtlwhn]\nIn all places where oPage:SetText() was called.','',0,'AIA=','29dtlwhn',1,0,'',2,0,0),(23980,5395,3,707,0,'222.124.20.50',1167016612,1,0,1,1,1,0,'','','Mr. Ramesh\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Good work <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nregards\nareang','',0,'AIA=','2f2a8pzn',1,0,'',707,0,0),(23981,5438,3,6,0,'82.57.159.189',1167038088,1,0,1,1,1,1,'','','Or just remove\n\n[code:olfi74d6]oBar&#58;Refresh&#40;&#41;[/code:olfi74d6]\n\nEMG','',0,'AIA=','olfi74d6',1,0,'',6,0,0),(23982,5438,3,2,0,'87.218.146.181',1167038581,1,0,1,1,1,1,'','','Enrico,\n\nBut if a window is moved over the preview, then it will have the same effect as calling :Refresh()','',0,'AIA=','31usntj9',1,0,'',2,0,0),(23983,5438,3,6,0,'82.57.159.189',1167038940,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:fqzbybyx]Enrico,\n\nBut if a window is moved over the preview, then it will have the same effect as calling :Refresh()[/quote:fqzbybyx]\n\nYou are right. Instead try to replace\n\n[code:fqzbybyx]@ 7, 370 SAY oPAGE PROMPT cPageNum ;[/code:fqzbybyx]\n\nwith\n\n[code:fqzbybyx]@ 7, 370 SAY oPAGE PROMPT TXT_PAGENUM+ltrim&#40;str&#40;nPage,4,0&#41;&#41; + &quot; / &quot; + ltrim&#40;str&#40;len&#40;aFiles&#41;&#41;&#41; ;[/code:fqzbybyx]\n\nEMG','',0,'gIA=','fqzbybyx',1,0,'',6,0,0),(23984,5438,3,2,0,'87.218.146.7',1167044073,1,0,1,1,1,1,'','','Enrico,\n\nYes, thats a better solution. Thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','5drakrka',1,0,'',2,0,0),(23985,5439,6,600,0,'84.123.222.86',1167048796,1,0,1,1,1,0,'','Impresion de un Dialogo','Feliz Navidad a todos.\n\nTengo el siguiente problema:  Tengo un programa que hace calculo de costes en pantalla y un boton que al presionar imprimia el dialogo mostado.\nCódigo:\n      REDEFINE BUTTON ID 553 OF oDlg ;    // Imprimir  \n               ACTION ( oPrinter := PrintBegin(rtrim( COSTES-&gt;cDetalle), .T., .F., ),;\n                        oPrinter:SetPortrait(),;\n                        PageBegin(),;\n                        oDlg:Print( oPrinter, 50, 50, 7 ),;\n                        PageEnd(),;\n                        PrintEnd() ;\n                      )\n\nAl pasar la aplicación a xHarbour solo imprime el fondo del dialogo y los get introducidos por el usuario, pero los SAYS no aprecen ninguno.\n\n¿Alguna idea de como solucionar esto?\n\n\nUn saludo\nJuan José','',0,'gIA=','1mn1rfsj',1,0,'',600,0,0),(23986,5439,6,600,0,'84.123.222.86',1167052229,1,0,1,1,1,0,'','','Bueno, pues parece resuelto, revisé el ejemplo testprn y se me ocurrio crear una funcion y pasarle como paramentro el Dialogo.\n\nEn fin, no se que diferencia puede haber con el codigo anterior. Además hacia cosas raras. A veces imprimia algo y otras veces nada.\n\n\nSTATIC Function Imprimir( oDlg )\n********************************\n   local oPrn\n\n   \n   PRINT oPrn NAME rtrim( COSTES-&gt;cDetalle )\n      PAGE\n         oDlg:Print( oPrn, 50, 50, 3.60 ) \n      ENDPAGE\n   ENDPRINT\nreturn NIL','',0,'gIA=','3q4iul4l',1,0,'',600,0,0),(23987,5395,3,190,0,'202.65.134.36',1167058928,1,0,1,1,1,0,'','','Mr.Areang\n\nThank you very much.\n\nRegards\n\n- Ramesh Babu P','',0,'gIA=','117vj8nq',1,0,'',190,0,0),(23988,5437,2,812,0,'201.214.35.230',1167066224,1,0,1,1,1,0,'','Antonio te envio la rutina','Hola Antonio:\n\nFeliz Navidad, te envio la rutina de Calcu_des(), pero el sistema se cae al hacer un click en cualquier get ya mencionado, Id 48, 37, 38, 39\n\nLa verdad que estoy super complicado, ya que debo entregar este sistema esta semana, y la opcion mas importante no funciona.\n\nTe agradezco desde ya.\n\nMiguel Rivera\n\n\nFunction Calcu_des(Por_des1)\n Des_uf1:=round(Cos_uf1-(cos_uf1*(por_des1/100)),2)\nReturn(Nil)\n\n\n*** Funcion que debe devolver el resultado en la Des_uf1, que se muestra con un say:\n  Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit \n         Picture \"99,999,999.99\"  Color \"w+/b*\"\n\nEl codigo para este get es el siguiente:\n\nRedefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture \"9999.99\"  Color \"w+/b*\" ;\n              Valid Calcu_des(Por_des1)\n\n\nPero si yo presiono sobre el get de los siguientes, igual se cae, como vez estos solo piden un dato y no tienen un calculo incorporado\n\n  Redefine Get oCan_est1 Var Can_est1 Id 37 Of oDlgEdit Update  \n        Picture \"9999\"  Color \"w+/b*\"\n  Redefine Get oEst_cub1 Var Est_cub1 Id 38 Of oDlgEdit Update  \n         Picture \"9999\"  Color \"w+/b*\"\n\n\n\n[quote=&quot;Antonio Linares&quot;:3klpi1tw]Miguel,\n\nLa función Calcu_des() devuelve un valor lógico ? Debe hacerlo.[/quote:3klpi1tw]','',0,'gA==','3klpi1tw',1,0,'',812,0,0),(23989,5437,2,2,0,'87.218.146.7',1167071475,1,0,1,1,1,1,'','','Miguel,\n\nModifica la función Calcu_des() para que devuelva .T.','',0,'gA==','13yhs3ej',1,0,'',2,0,0),(23990,5437,2,812,0,'201.214.35.230',1167072497,1,0,1,1,1,0,'','Antonio','Disculpa, pero no entendi,\n\nDebe devolver un valor .t., pero lo que para mi debe devolver es un valor calculado, para luego mostrarlo con un say. No se hacer lo que tu me indicas viendo la funcion Calcu_des()\n\n****FUNCION\n\nFUNCTION Calcu_des(Por_des1)\n Des_uf1:=round(Cos_uf1-(cos_uf1*(por_des1/100)),2)\n Return Des_uf1\n\n******* FIN\n\nquote=\"Antonio Linares\"]Miguel,\n\nModifica la función Calcu_des() para que devuelva .T.[/quote]','',0,'','1y31k6jd',1,0,'',812,0,0),(23991,5437,2,2,0,'87.218.146.7',1167074254,1,0,1,1,1,1,'','','Miguel,\n\nHaz esto:\n\nRedefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture \"9999.99\" Color \"w+/b*\" ; \nValid ( Calcu_des(Por_des1), .T. )\n\nEl error que te ocurre es por no devolver un valor lógico en una validación.','',0,'','4dlzbm5j',1,0,'',2,0,0),(23992,5178,6,2,0,'87.218.146.7',1167074853,1,0,1,1,1,1,'','','Luis,\n\nUsa oBmp:LoadImage( , \"fondomeg.jpg\" ) en vez de oBmp:LoadBmp(\"fondomeg.jpg\" ).\n\nQue versión y build de FWH usas ?','',0,'','3ji9nui3',1,0,'',2,0,0),(23993,5437,2,812,0,'201.214.35.230',1167075654,1,0,1,1,1,0,'','Antonio','Antonio:\n\nDesapare el erro, pero la variable Des_uf1 del Id 49, del calculo no actualiza en su valor en el Say. sigue mostrando valor 0\n\n\nRedefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update \n       Picture \"9999.99\"  Color \"w+/b*\";\n        Valid (Calcu_des(Por_des1,Des_uf1),.t.)\n\nRedefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Font oFont2 \n       Picture \"99,999,999.99\"  Color \"w+/b*\"\n\n*** FUNCION DE CALCULO\nFunction Calcu_des(Por_des1)\n Des_uf1:=round(Cos_uf1-(cos_uf1*(por_des1/100)),2)\n Return (des_uf1)\n\nEsoy bloqueado, no se porque en este programa no puedo actualizar varibles productos de un calculo\n\nDisculpa tanta molestia.\n\n\nquote=\"Antonio Linares\"]Miguel,\n\nHaz esto:\n\nRedefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update Picture \"9999.99\" Color \"w+/b*\" ; \nValid ( Calcu_des(Por_des1), .T. )\n\nEl error que te ocurre es por no devolver un valor lógico en una validación.[/quote]','',0,'','4nnmn5ca',1,0,'',812,0,0),(23994,5440,6,838,0,'80.59.225.15',1167079690,1,0,1,1,1,0,'','Otra de imagen','Feliz Navidad a todos y a todas\n\nMe gustaria que en la pantalla principal, al hacer click con el boton derecho, me mostrase o bien el logo de la empresa, o bien un degradado. Hago lo siguiente y no me funciona\n************************\n Publicas:oWPpal:bRClicked:= {|hDC| cambialogo(hDC),.T. }\n\nstatic function cambialogo(hdc)\nlocal oBmp\n  if Publicas:logowp=.F.\n    DEFINE BITMAP oBmp RESOURCE \"Logoacm\" OF Publicas:oWPpal\n    Publicas:oWPpal:bPainted := {|hDC| PalBmpDraw( hDC, 100, 10,oBmp:hBitmap,, Publicas:oWPpal:nWidth/1.125, Publicas:oWPpal:nHeight/2,, .T.) }     \n    Publicas:logowp:=.T.\n  else\n    degradado(hDC) // funcion de degradado\n  endif\nreturn nil\n************************\nSe me queda pintada la pantalla con la que arranco.\nPuede que sea que tenga que destruir la pantalla con lo que tenga y luego repintarla de nuevo?\n\nCómo lo hago?\n\nSaludos\n\nJose Luis','',0,'','103xa4ly',1,0,'',838,0,0),(23995,5430,6,665,0,'196.40.43.78',1167080867,1,0,1,1,1,0,'','Gracias AMigo.','Gracias  intentare lo ke me has mencionado, \n\nFelices fiestas..\nBusmatic.\nCosta Rica.','',0,'','3pir2r9g',1,0,'',665,0,0),(23996,5437,2,2,0,'87.218.146.7',1167084387,1,0,1,1,1,1,'','','Miguel,\n\nTienes que pasar la variable por referencia (@) para que cambie su valor desde dentro de la función:\n\nRedefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update \nPicture \"9999.99\" Color \"w+/b*\"; \nValid ( Calcu_des( Por_des1, @Des_uf1 ), oDes_uf1:Refresh(), .T. )','',0,'','2b5jxkwj',1,0,'',2,0,0),(23997,5437,2,812,0,'201.214.35.230',1167086710,1,0,1,1,1,0,'','','Antonio:\n\nAl poner este comando:\n\nRedefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update \nPicture \"9999.99\" Color \"w+/b*\"; \nValid ( Calcu_des( Por_des1, @Des_uf1 ), oDes_uf1:Refresh(), .T. )\n\nEl Say , con la Variable Des_uf1, no imprime nada\n\n  Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Font oFont2 \n       Picture \"99,999,999.99\"\n\nSabiendo que la funcion calcula asi:\n\nFUNCTION Calcu_des(Por_des1,Des_uf1)\n Des_uf1:=round(Cos_uf1-(cos_uf1*(por_des1/100)),2)\n\n Return Des_uf1\n\nDisculpa, pero no logro encontrar lo correcto, por mas cambios que haga.\n\nCon el say y el get, solo necesigto que me muestre el valor de la variable Des_uf1, pedo no imprime nada, cual es el error, no lo se.\n\nPor Favor no logro encontrar, la solucion\n\nMiguel R.\n\n\n[quote=&quot;Antonio Linares&quot;:1mlc1bq7]Miguel,\n\nTienes que pasar la variable por referencia (@) para que cambie su valor desde dentro de la función:\n\nRedefine Get oPor_des1 Var Por_des1 Id 48 Of oDlgEdit Update \nPicture \"9999.99\" Color \"w+/b*\"; \nValid ( Calcu_des( Por_des1, @Des_uf1 ), oDes_uf1:Refresh(), .T. )[/quote:1mlc1bq7]','',0,'gA==','1mlc1bq7',1,0,'',812,0,0),(23998,5437,2,2,0,'87.218.146.7',1167088346,1,0,1,1,1,1,'','','Pon un MsgInfo() en esta función y asegurate de que lo calculas bien:\n\nFUNCTION Calcu_des(Por_des1,Des_uf1) \nDes_uf1:=round(Cos_uf1-(cos_uf1*(por_des1/100)),2) \nMsgInfo( Des_uf1 )\nReturn Des_uf1','',0,'gA==','jyv0uvju',1,0,'',2,0,0),(23999,5437,2,812,0,'201.214.35.230',1167090212,1,0,1,1,1,0,'','','Antonio:\n\nLa variable dentro de la funcion de calculo tiene un valor Distinto y mayor a Cero ( 8.520 ), pero en el say siguiente al get, imprime valor cero.\nEste es el Say:\n  Redefine Say oDes_uf1 Prompt Des_uf1 Id 49 Of oDlgEdit Font oFont2 \n            Picture \"99,999,999.99\"\n\nCual es el error, no lo se.\n\nMiguel Rivera\n\n\n[quote=&quot;Antonio Linares&quot;:3kgebewl]Pon un MsgInfo() en esta función y asegurate de que lo calculas bien:\n\nFUNCTION Calcu_des(Por_des1,Des_uf1) \nDes_uf1:=round(Cos_uf1-(cos_uf1*(por_des1/100)),2) \nMsgInfo( Des_uf1 )\nReturn Des_uf1[/quote:3kgebewl]','',0,'gA==','3kgebewl',1,0,'',812,0,0),(24000,5437,2,2,0,'87.218.146.7',1167122006,1,0,1,1,1,1,'','','Miguel,\n\nDe momento quita el Picture \"99,999,999.99\" para hacer pruebas','',0,'gA==','1esq3do1',1,0,'',2,0,0),(24001,5441,6,131,0,'83.53.156.67',1167130489,1,0,1,1,1,0,'','Sobre TGraph de Alfredo Arteaga','Hola:\nQuiero hacer un módulo de gráficos para un programa, y he visto que con FWH viene la clase TGraph original de Alfredo Arteaga. También he visto que se puede descargar desde su sitio web una versión posterior a la que viene con mi FWH.\nLa pregunta que me hago es si la versión que se descarga desde la web de Alfredo es compatible con FWH o sólo es para 16 bits.\n\nSaludos,','',0,'gA==','2mxnhuxa',1,0,'',131,0,0),(24002,5441,6,2,0,'87.218.146.7',1167132180,1,0,1,1,1,1,'','','José Luis,\n\nNo lo hemos probado, pero como Alfredo la adaptó para FWH suponemos que las versiones posteriores tambien serán compatibles.','',0,'gA==','1kxnn4wp',1,0,'',2,0,0),(24003,5436,6,78,0,'190.40.235.76',1167133384,1,0,1,1,1,0,'','','Function esfecha(cValor) \nReturn IF(VALTYPE(cValor)=\"D\", .t., .f.)\n\n\ncreo que asi seria mas preciso--- <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> )','',0,'gA==','2bahkewn',1,0,'',78,0,0),(24004,5442,6,569,0,'201.248.249.178',1167137236,1,0,1,1,1,0,'','otra de menu para Jose Murugosa y Silvio en Italia','Aqui otra manera de intentar solucionar el problema de los menus configurables, esperando sus comentarios:\n*  FILE NAME: TUTOR.PRG\n*  BY: Rodolfo Silva C.                        \n*  EMAIL: <!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->\n \n*  DATE: 12/25/6\n* CUALQUIER MEJORA U OPTIMIZACION DE ESTE CODIGO SERA BIENVENIDA\n#INCLUDE \"fivewin.ch\"\nSTATIC ownd\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\nFUNCTION main\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\nLOCAL obru\ndefine brush obru style bricks\ndefine window ownd TITLE \"tutor01_00\" brush obru MENU g_menu()\nSET MESSAGE of ownd TO \"tutorial\" clock DATE KEYBOARD \nactivate window ownd maximized ON INIT dialogo()\nRETURN nil\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\nSTATIC FUNCTION g_menu()\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\nLOCAL amenu  := { \"Buscar\", \"Agregar\", \"Modificar\", \"Eliminar\", \"Listar\",;\n\"Calculadora\",\"Otros\", \"Salir\" }\n* esta matriz deberia venir formada como un parametro desde el programa\n* llamante, lo cual implica que los elementos pueden ser estos los estandares\n* u otros diferentes segun sea la necesidad.\nLOCAL cx, owin, omenu, i\nLOCAL nlgmnu := LEN( amenu )  // tama¤o del menu\n*---------- aqui DETECTO Y traigo el objeto de la ventana activa en \"OWIN\"\n* pues supongo que desconozco cual es la ventana que tiene el foco o activa\n* asi de esta manera puedo aplicar el menu a cualquier ventana que yo \n* seleccione previamente o lo solicite.\nIF !( cx := GetProp( GetActiveWindow(), \"WP\" ) ) == 0\n  oWin := GetAllWin() [cx]\nELSE \n  oWin := Twindow()\n  oWin:hWnd := GetActiveWindow()\nENDIF \n*---------- fin\nMENU oMenu\nFOR i = 1 TO nlgmnu\n  MENUITEM( aMENU[ i ] ) ACTION( menuacc(@oMenu), oMenu:refresh(), sysrefresh() )\nNEXT \nENDMENU\nRETURN oMenu\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\nSTATIC FUNCTION MENUACC( oMenu )\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\n* Quizas Antonio o algun otro colega nos pueda indicar donde encontrar\n* la documentacion o significado de : olastitem ; se lo que hace pero no se como\nLOCAL opcion := oMenu:olastitem[ 2 ]    // ojo devuelve el nombre de la opcion seleccionada\nmsginfo(oemtoansi(\"Usted Seleccion¢: \") + opcion )\n* en la estructura inferior se podria habilitar el sonido \"VOS\" de la opcion\n* hablada.\n* tambien serviria para bloquear opciones segun nivel de acceso del usuario OJO\nDO CASE \nCASE UPPER( opcion ) = \"SALIR\"\n  * en palabras \"SALIR\" o segun sea la opcion seleccionada\n  oMenu:end()\nCASE UPPER( opcion ) = \"CALCULADORA\"\n  winexec(\"calc\")\nENDCASE \nRETURN NIL\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\nSTATIC FUNCTION dialogo()\nRETURN nil\n* ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ *\n*+ EOF: TUTOR.PRG\n*Formatted by: dANALYST Gold (Clipper 5.x) V5.0 on 12/25/6 at 9:46 AM.','',0,'','gwi39z4l',1,0,'',569,0,0),(24005,1869,6,898,0,'200.232.246.155',1167140270,1,0,1,1,1,0,'','','Estou com o mesmo problema do Rossine, oque devo fazer para corrigir?','',0,'','1ay59j6t',1,0,'',898,0,0),(24006,5442,6,439,0,'200.125.48.144',1167143214,1,0,1,1,1,1,'','','Gracias por tu aporte Sildata!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nCreo que este es un tema interesante y fundamental para cualquier aplicación que nos propongamos hacer.','',0,'','2pcnfo0y',1,0,'',439,0,0),(24007,5443,3,289,0,'82.167.41.97',1167148622,1,0,1,1,1,0,'','function REGQUERYVALUE() not ready','urgent for Antonio.\nappeal to the problem in Returning   the information from the Registrar \n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run.\nI want the information in the Registrar Run.\nfunction REGQUERYVALUE() not ready\nhathal .','',0,'','3nks09pa',1,0,'',289,0,0),(24008,5399,7,138,0,'189.141.72.221',1167154755,1,0,1,1,1,1,'','','Se pueden montar hasta 6 niveles de relacione donde un padre, puede ser al mismo tiempo hijo de otra base de datos de padre:\n\nEjemplo\n\nUSE nieto \nSET INDEX tO.....\n\nUSE padre\nSET INDEX TO\nSET RELATION TO nieto INTO campocomun\n\nUSE ABUELO\nSET INDEX TO....\nSET RELATION TO padre INTO campocomunpadre\n\nCuand el apuntador se mueve en la tabla \"abuelo\", se mueve tambien en la tabla padre, y cuando se mueve en la padre por logica se mueve en la nieta.\n\nPara obtener un valor de una tabla relacionada hasta este tercer nivel, se hace:\n\nabuelo-&gt;padre-&gt;nieto-&gt;campo\n\ny se puede leer perfectamente la relacion.','',0,'','3sbzip9w',1,0,'',138,0,0),(24009,5444,6,900,0,'201.134.159.243',1167154963,1,0,1,1,1,0,'','Dudas con opcio &quot;on end&quot; del objeto reporte','Hola a todos, estoy empezando a desarrollar aplicaciones con fivewin y tengo una duda ¿como puedo poner varias líneas de texto y variables en un reporte solo al final del mismo? lo logré exitosamente con al metodo footer, pero logicamente aparece en cada hoja del reporte y solo lo quiero en el la ultima hoja, he aqui un pequeño ejemplo:\n\nFooter\"Subtotal de gastos sin IVA $\"+str(subt2);\n              ,\"IVA $\"+str(totiva);\n              ,\"ISH $\"+str(totish);\n              ,\"TUA$\"+str(tottua);\n              ,\"Propinas $\"+str(totpro);\n              ,\"Sin comprobacion (Ver formato anexo) $\"+str(totsin);\n              ,\"Comprobación $\"+str(totfac),\" \",\n\nEsto trabaja bien pero no lo puedo poner solo al final, si alguien sabe como y me ayuda se los agradecré infinitamente.\n\nSaludos.','',0,'','30lpacp9',1,0,'',900,0,0),(24010,5436,6,75,0,'83.34.193.167',1167158004,1,0,1,1,1,0,'','','NO, porque lo que se pretende es que teniendo como entrada de la funcion una variable tipo caracter (de ahí la c de la variable cValor), la función determine si el contenido de la misma es una fecha o una cadena de caracteres.\n\nEsto lo utilizo en una función de búsqueda, en la que puedo buscar las facturas por factura o por fecha de la factura, para no tener que hacer un menú previo para elegir porqué campo buscar.\n\nSaludos.','',0,'','isyevg5a',1,0,'',75,0,0),(24011,5444,6,53,0,'189.139.23.185',1167158798,1,0,1,1,1,1,'','','Mario:\n\nUtiliza el método POST END, así:\n\noReporte:bPostEnd := { || Totales()}\n\n\nEste método se ejecuta despues del final del reporte y evidentemente ejecuta la función Totales(), en la función Totales() puedes hacer lo que desees.\n\nSaludos, Armando','',0,'','1ifj6s7v',1,0,'',53,0,0),(24012,5445,2,304,0,'201.155.7.216',1167161392,1,0,1,1,1,0,'','Color en un listbox','Hola, estoy atorado con un problema:_\ntengo una base de datos, la cual contiene entre sus campos:\nREGISTRO---&gt;Numerico, 1, 0 \n(lo uso para determinar si la existencia es suficiente )\n\n\ncuando el campo REGISTRO es 1 debe mostrar el registro en color rojo, para lo cual hago:\n\n\nnClr1:=Rgb(250,0,0) //EL SELECCIONADO\nnClr2:=RGB(255,255,255)\n\noLbx:nClrPane:={ || iif(aMostr_&amp;vdos-&gt;Registro=1,nClr1,nClr2)}\n\nfunciona bien, pero cuando \"paso el cursor x uno que esta en color rojo\" el prompt pone el color \"azul\" (x default), lo que necesito es que se quede en rojo (\"rojo y letras blanas x ejemplo), y al darle la flecha abajo o arriba si encuantra aMostr_&amp;vdos-&gt;Registro=0 siga igual es decir prompt \"azul/letras blancas\", espero haberme explicado bien\ngracias por su ayuda.\nsaludos\nVeracruz, Mexico\n\nPD.-uso 1 y 0 por que la existencia la verifica en otra base de datos al no encontrar existencia suficiente marca el registro con \"1\" de lo contrario pone \"0\"','',0,'','2gbe0xnn',1,0,'',304,0,0),(24013,5403,3,2,0,'87.218.146.7',1167167644,1,0,1,1,1,1,'','','Ehab,\n\nIt is a bug in the Harbour compiler. Simply place a space ( \" \" ) in front of each line here and it will compile fine:\n[code:19lqasyl]\n   @ 1, 1 LISTBOX oLbx FIELDS;\n cust-&gt;CU_ACCT,;\n cust-&gt;CU_appr,;\n cust-&gt;cu_stre,;\n cust-&gt;cu_coun,;\n cust-&gt;cu_city,;\n cust-&gt;cu_gove,;\n cust-&gt;CU_phon,;\n cust-&gt;CU_fax,;\n cust-&gt;CU_MAN,;\n cust-&gt;CU_mobi,;\n cust-&gt;CU_NAME;\n HEADERS &quot;Account No&#46;&quot;,;\n &quot;Aprreviation&quot;,;\n &quot;Street&quot;,;\n &quot;Country&quot;,;\n &quot;City&quot;,;\n &quot;Governer&quot;,;\n &quot;Phone&quot;,;\n &quot;Fax&quot;,;\n &quot;Customer Man&quot;,;\n &quot;Customer Mobile&quot;,;\n &quot;NAME&quot;;\n SIZE 480, 280 OF custDlg\n[/code:19lqasyl]','',0,'AIA=','19lqasyl',1,0,'',2,0,0),(24014,5445,2,228,0,'200.119.51.220',1167173980,1,0,1,1,1,1,'','Amigo...','Creo que esto es lo que necesitas:\n\n[code:mfwqjcwy]\n\n//CAMBIOS DE COLORES Y ALINEACION \noLbx&#58;aJustify&#58;=&#123;&#40;&#46;F&#46;&#41;,&#40;&#46;F&#46;&#41;,&#40;&#46;F&#46;&#41;,&#40;&#46;F&#46;&#41;&#125;\noLbx&#58;nClrBackFocus&#58;=RGB&#40;0,0,255&#41;\noLbx&#58;nClrForeFocus&#58;=RGB&#40;255,255,255&#41;\noLbx&#58;NCLRPANE&#58;=&#123;||IIF&#40;&#40;ORDKEYNO&#40;&#41;&#41;%2==0,CLR_1,CLR_2&#41;&#125;\noLbx&#58;nClrBackHead&#58;=RGB&#40;0,0,255&#41;\noLbx&#58;nClrForeHead&#58;=RGB&#40;255,255,255&#41;\n\n[/code:mfwqjcwy]\n\nEspero te sirva..','',0,'AIA=','mfwqjcwy',1,0,'',228,0,0),(24015,5445,2,304,0,'201.155.7.216',1167174077,1,0,1,1,1,0,'','','gracias leandro, ahora mismo lo intento\nsaludos','',0,'AIA=','kfhdp2fk',1,0,'',304,0,0),(24016,5446,3,49,0,'62.13.172.78',1167174202,1,0,1,1,1,1,'','draw with poligon','[url=http&#58;//imageshack&#46;us:29mof9xb][img:29mof9xb]http&#58;//img247&#46;imageshack&#46;us/img247/622/slightright2wg7&#46;png[/img:29mof9xb][/url:29mof9xb]\nI must   create this bitmap  with poligon function so that it is divided in four various pieces so that I can move them with the mouse : the three bars and the small triangle  (with drag and drop)\nit\' is possible ?','',0,'GA==','29mof9xb',1,0,'',49,0,0),(24017,5442,6,49,0,'62.13.172.78',1167175959,1,0,1,1,1,1,'','','sorry,\nbut I not understand the problem ..\nI compiled it ....','',0,'GA==','15blzguo',1,0,'',49,0,0),(24018,5447,6,147,0,'190.30.116.239',1167177392,1,0,1,0,1,1,'','Problema con Prevsp32','Al usar la opción Previewno me aparece ningún ícono, lo que no ocurre con la dll en ingles. Hay alguna corrección posterior?. De donde la obtengo\n\ngracias','',0,'GA==','3soh3n7x',1,0,'',147,0,0),(24019,5448,3,234,0,'75.34.217.174',1167186502,1,0,1,1,1,1,'','HTTP post and response','Hello,\n\nI need to post HTML code to a website from FWH and wait for a response from the website. Can you anyone provide an example of how I can accomplish this function. Here is the code I need to post.\n\nThank you in advance for your help!\'\n\n// sample html code -----------------------------\n\n&lt;FORM ACTION=\"https://www.aesdirect.gov/weblink/weblink.cgi\" METHOD=\"POST\"&gt;\n\n&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_app_ident\" VALUE=\"APP001\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nologin_url\"\nVALUE=\"http://www.weblinktestapp.com/nologin.html\"&gt;\n&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nosed_url\"\nVALUE=\"http://www.weblinktestapp.com/nosed.html\"&gt;\n&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_success_url\"\nVALUE=\"http://www.weblinktestapp.com/success.html\"&gt;\n\n&lt;INPUT TYPE=\"HIDDEN\" NAME=\"SRN\" VALUE=\"WEBLINKEXAMPLE\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD1_3\" VALUE=\"TEST CONSIGNEE\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"isLine1\" VALUE=\"Y\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_1\" VALUE=\"OS\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_2\" VALUE=\"100000\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_3\" VALUE=\"KG\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_4\" VALUE=\"100\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_7\" VALUE=\"150\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_8\" VALUE=\"C33\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_12\" VALUE=\"ELECTRONIC EQUIPMENT\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_13\" VALUE=\"3505100092\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_15\" VALUE=\"N\"&gt; &lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT1_21\" VALUE=\"D\"&gt;\n\n&lt;/FORM&gt;','',0,'GA==','fgrteqoi',1,0,'',234,0,0),(24020,5449,3,234,0,'75.34.217.174',1167188948,1,0,1,1,1,1,'','outllok bitmap button response on click','Hello,\n\nI am having a problem with the DEFINE BUTTON OF OUTLOOK command. Most of the time, I have to click the button multiple time or click and hold the left mouse button in order for the ACTION to process. Is there a correction for this problem?\n\nThank you,','',0,'GA==','2qlkf8l7',1,0,'',234,0,0),(24021,5450,3,67,0,'62.235.24.44',1167207477,1,0,1,1,1,0,'','FONT , which file ?','Hello,\n\nI have problems with the print results from different cliënts , so i have to know which file (\'COURIER NEW\') is loaded.\n\nCan we know which file defines a FONT ?\n\nFrank','',0,'GA==','17rdschx',1,0,'',67,0,0),(24022,1869,6,2,0,'87.218.146.7',1167215298,1,0,1,1,1,1,'','','Rodrigo,\n\nPor favor envíame por email un fichero ZIP con la clase SSAY y el fichero CH, gracias','',0,'GA==','1mun7nsb',1,0,'',2,0,0),(24023,1869,6,898,0,'200.232.246.235',1167217029,1,0,1,1,1,0,'','','Bom dia Antonio, acabei de enviar o email...obrigado','',0,'GA==','1gn6rgn3',1,0,'',898,0,0),(24024,5451,7,720,0,'80.36.244.134',1167218179,1,0,1,1,1,0,'','Felicitaciones.....','Hola a todos...\n\nEn esta ocasión no quiero hacer ninguna pregunta sino simplemente felicitar a todos por estas fechas y desearos que el año que viene venga cargado con todo lo mejor...\n\nFelicidades a todos....\n\n\nUn abrazo...\n\nElías Torres.','',0,'GA==','3az5co0t',1,0,'',720,0,0),(24025,5452,6,898,0,'200.232.246.235',1167220303,1,0,1,1,1,0,'','Problema com ShellExecute Fwh 2.8','Pessoal, estou com o seguinte problema, depois que atualizei o Fwh 2.7 para o 2.8, na hora que eu executo o ShellExeute ele abre o explorer, para qualquer comando usado no shellexecute acontece isso... um exemplo do código:\n\nShellExecute(,\"open\", \"texto.pdf\",,,SW_SHOW )\n\n\n\n\nOutra coisa estranha, que em windows 98 funciona normalmente, alguem ja passou por isso?','',0,'GA==','3lqlt3e1',1,0,'',898,0,0),(24026,5399,7,720,0,'80.36.244.134',1167221338,1,0,1,1,1,0,'','','Rene,\n\nHe probado lo que me has dicho pero el resultado no es correcto...\n\nEl codigo que tengo es este:\n\nSELECT 0\nUSE (CURDIR()+\"\\temporal.dbf\") VIA \"DBFCDX\" new\nINDEX ON codbarart+codart+nomart TO temporal\ntemporal-&gt;( OrdSetFocus( \"codbarart+nomart+codart\" ) )\n\n		\nSELECT 0\nUSE (CURDIR()+\"\\precios.dbf\") VIA \"DBFCDX\" new\nSET INDEX TO articulo+numero\n\nSELECT 0	\nUSE (CURDIR()+\"\\stock.dbf\") VIA \"DBFCDX\" new\nSET INDEX TO artex+almex\n		\nSELECT 0	\nUSE (CURDIR()+\"\\articulo.dbf\") VIA \"DBFCDX\" new\nINDEX ON codart TO codart\narticulo-&gt;(OrdSetFocus( \"codart\"))\nSET RELATION TO \"articulo+lista_precios\" INTO precios\nSET RELATION TO \"artex+id_almacen\" INTO stock ADDITIVE\n\nSELECT articulo\nDO WHILE !EOF()	\ntemporal-&gt;(dbappend())\ntemporal-&gt;codart:=articulo-&gt;codart\ntemporal-&gt;nomart:=articulo-&gt;nomart\ntemporal-&gt;codbarart:=articulo-&gt;codbarart\ntemporal-&gt;pvp:=precios-&gt;pvp\ntemporal-&gt;existencia:=stock-&gt;cantex\ntemporal-&gt;almacen:=id_almacen\narticulo-&gt;(dbskip())\nENDDO\n\nEl resultado final no es correcto puesto que en temporal-&gt;pvp y en temporal-&gt;existencia (los dos campos que utilizo cuando busco en stock y en precios) el valor que tiene despues de hacer todo es cero...\n\nSupongo que el tema viene porque en la tabla de stock a parte de buscar por el articulo tengo que buscar por otro valor llamado id_almacen... Igual ocurre con la tabla de precios puesto que a parte de buscar por el articulo tengo que hacerlo por otra variable que se llama id_almacen, es decir que la busqueda debe contener tres valores... el codigo, el almacen y la lista de precios, puesto que en la tabla stock tengo varios id_almacen y en la de precios tengo varias lista_precios...\n\nLa verdad es que el tiempo ha mejorado pero aun no me hace lo que necesito....\n\n\nAlguna idea?\n\nSaludos\n\nElías Torres.','',0,'GA==','2s06dgzs',1,0,'',720,0,0),(24027,5447,6,36,0,'164.77.81.210',1167222093,1,0,1,1,1,0,'','','Mario\n\n[b:3h8b9n7b]C:\\fwh\\DLL[/b:3h8b9n7b]\n\nprev32.dll      =&gt;ingles\nprevSP32.dll  =&gt;Español\n\nSaludos\nPatricio','',0,'QA==','3h8b9n7b',1,0,'',36,0,0),(24028,5453,6,278,0,'164.77.49.216',1167225389,1,0,1,1,1,1,'','Para VERCE ?','Hola a todos.\n\nEstoy usando verce 4.3 y no se o veo como puedo agregar varios archivos de recursos RES en un programa.\n\nAlguien sabe como ?\n\nSaludos,','',0,'QA==','3q2t6rbc',1,0,'',278,0,0),(24029,5450,3,6,0,'87.3.228.137',1167227312,1,0,1,1,1,1,'','Re: FONT , which file ?','[quote=&quot;Frank Demont&quot;:161k1nim]Hello,\n\nI have problems with the print results from different cliënts , so i have to know which file (\'COURIER NEW\') is loaded.\n\nCan we know which file defines a FONT ?\n\nFrank[/quote:161k1nim]\n\nTry\n\n[code:161k1nim]? oFont&#58;cFaceName[/code:161k1nim]\n\nEMG','',0,'gIA=','161k1nim',1,0,'',6,0,0),(24030,5454,6,278,0,'164.77.49.216',1167227478,1,0,1,1,1,1,'','Una de comboBox ?','Es posible tener un combobox, en el cual no se permita que me escriban en el GET del combo:\n\nSolo que se muestren la opciones disponibles, pero que no se permita seleccionar o digitar otra cosa.\n\nEl problema es porque algunos usuarios al no encontrar lo que desean lo digitan y se producen problemas.\n\nSaludos','',0,'gIA=','ku6fblkx',1,0,'',278,0,0),(24031,5382,6,278,0,'164.77.49.216',1167227927,1,0,1,1,1,1,'','','Un muy buen año 2007 para TODOS.\n\nQue el amor, salud y alegría nos acompañen muy seguido en este año. \n\nLo demas biene por añadidura...\n\nSaludos ,\n\nJuan','',0,'gIA=','1gsh1kn2',1,0,'',278,0,0),(24032,5447,6,147,0,'201.253.10.166',1167231744,1,0,1,0,1,1,'','','Posiblemente me expresé mal.\nJustamente al usar prevSP32.dll, renombrado a prev32.dll, no me despliega los iconos correspondientes. Aparecen los botones sin sus respectivos íconos.\n\nUso FWH 26May05','',0,'gIA=','3hdstp2l',1,0,'',147,0,0),(24033,5365,1,819,0,'216.34.194.113',1167235702,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the reply.  Currently I have FW 2.4 for xhharbour but if it is not enough I will upgrade to the latest.\n\nthanks again.\n\nJose','',0,'gIA=','2f7csfx8',1,0,'',819,0,0),(24034,3879,6,450,0,'200.245.0.34',1167237801,1,0,1,1,1,1,'','Para Carlos Vargas','Olá Carlos Vargas... Tudo bem?? \n\nPor Favor, necessito ayuda \n\nBaixei o exemplo de :[quote:3sjgbyt2] <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/674XBLITE.ZIP\">http://www.fivewin.com.br/Dicas/674XBLITE.ZIP</a><!-- m -->  [/quote:3sjgbyt2]  \n\nEsta Versão funciona perfeitamente, porém quando compilo com a \nFivewin 2.8 de Outubro/2006 e xHarbour Build 9961 não funciona o RESTAURADOR... \n\nPuedes Ayudarme?? \n\nGracias, Saludos.','',0,'gA==','3sjgbyt2',1,0,'',450,0,0),(24035,5455,6,24,0,'80.24.12.168',1167241226,1,0,1,1,1,1,'','JPG y DLL','¿ Alguien a conseguido meter un Jpg en la DLL, logico si lo ponemos como RCDATA, pero cargarla despues como una IMAGEN para visualizarla ?\n\nSaludos','',0,'gA==','2uwia34h',1,0,'',24,0,0),(24036,5415,6,644,0,'201.252.15.223',1167244122,1,0,1,1,1,0,'','','Patricio: Te agradezco la respuesta. Voy a probar a ver que resulta. Miguel a veces me ha pasado eso y lo solucione de esta forma\noBrw : Paint()\noBrw : Refresh()\n\nSaludos','',0,'gA==','w15udsoz',1,0,'',644,0,0),(24037,3879,6,362,0,'200.168.52.156',1167252266,1,0,1,1,1,1,'','','Cual la mensageria del Error???\n\nLa Ruta está correcta??\n\nRecompilates la TSBROWSE.LIB??\n\nRegards, saludos.','',0,'gA==','h0mtt2gp',1,0,'',362,0,0),(24038,5354,7,123,0,'88.1.155.98',1167252310,1,0,1,1,1,0,'','','Antonio,\n\nDame, por favor, tu opinión sobre esto:\n\n[url:30oo35o6]http&#58;//www&#46;microsoft&#46;com/belux/msdn/nl/community/columns/ldoc/cedbgview32&#46;mspx#Is%20CeDbgView32%20Viewer%20a%20remote%20tool?[/url:30oo35o6]\n\nSaludos,\nJosé Luis Capel','',0,'EA==','30oo35o6',1,0,'',123,0,0),(24039,5454,6,362,0,'200.168.52.156',1167252437,1,0,1,1,1,1,'','','En este Caso, mejor no és usar una LISTBOX con los Itens??','',0,'EA==','3ab1vxwc',1,0,'',362,0,0),(24040,5452,6,362,0,'200.168.52.156',1167252524,1,0,1,1,1,1,'','','PORQUE NAO USAS WINEXEC() OU WAITRUN()','',0,'EA==','6pelt4ey',1,0,'',362,0,0),(24041,5454,6,9,0,'85.54.247.133',1167255692,1,0,1,1,1,1,'','Re: Una de comboBox ?','[quote=&quot;jcaro&quot;:1ef5j9oh]Es posible tener un combobox, en el cual no se permita que me escriban en el GET del combo[/quote:1ef5j9oh]\n\nSi usas solo el COMBOBOX (olvídate del GET) solo podrá elegir una de las opciones del COMBO.','',0,'gA==','1ef5j9oh',1,0,'',9,0,0),(24042,5354,7,2,0,'87.218.146.7',1167257872,1,0,1,1,1,1,'','','José Luis,\n\nPues sí, parece que si existe la utilidad que buscabas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLa has probado ? Debería funcionar.','',0,'gA==','2f6fajyx',1,0,'',2,0,0),(24043,5454,6,228,0,'201.245.222.86',1167258623,1,0,1,1,1,1,'','Amigo...','Lo unico que hay que hacer para evitar eso....\n\nes en las propiedades del objeto en la clausula style, colocar la opcion Drowdown list. Eso te soluciona el problema\n\nespero te sirva..','',0,'gA==','78mnvjpd',1,0,'',228,0,0),(24044,5454,6,278,0,'164.77.49.216',1167260837,1,0,1,1,1,1,'','','Gracias a Todos, lo voy a aplicar. \n\nSaludos ,','',0,'gA==','k34fj8fi',1,0,'',278,0,0),(24046,5448,3,303,0,'72.199.41.171',1167264207,1,0,1,1,1,0,'','','Darrell,\n\nI think maybe you misunderstand how this works. You create the html file on your computer then open it in a browser.\n\nThis is from their website.\n\n[quote:3n1ri10n]It is possible for a Windows desktop application to use AESWebLink. In this case, the application could write an html file to the local PC that includes the form to be submitted to AESWebLink and then open the html file in the web browser on the PC. The form can then be submitted to AESWebLink.[/quote:3n1ri10n]\n\nJames','',0,'gA==','3n1ri10n',1,0,'',303,0,0),(24047,5443,3,2,0,'87.218.146.7',1167293364,1,0,1,1,1,1,'','','Hathal,\n\nYou have to do it this way:\n[code:2lbyg0g0]\n#define  HKEY_LOCAL_MACHINE      2147483650\n#define  ERROR_SUCCESS                    0\n\nfunction Main&#40;&#41;\n\n   local hKey, cName, uValue, n &#58;= 0\n\n   RegOpenKey&#40; HKEY_LOCAL_MACHINE,;\n               &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Run&quot;, @hKey &#41;\n   \n   while RegEnumValue&#40; hKey, n++, @cName, @uValue &#41; == ERROR_SUCCESS\n      MsgInfo&#40; cName &#41;\n      MsgInfo&#40; uValue &#41;\n   end\n\n   RegCloseKey&#40; hKey &#41;\n\nreturn nil\n[/code:2lbyg0g0]\nAnd add this function to source\\winapi\\regedit.c:\n[code:2lbyg0g0]\n#ifdef __HARBOUR__\n   CLIPPER REGENUMVALUE&#40; PARAMS &#41; // &#40; nKey, nIndex, @cKeyName, @uValue &#41; --&gt; nResult\n#else\n   CLIPPER REGENUMVAL&#40; PARAMS &#41; // UE&#40; nKey, nIndex, @cKeyName, @uValue &#41; --&gt; nResult\n#endif\n&#123;\n   BYTE name&#91; 256 &#93;;\n   BYTE value&#91; 256 &#93;;\n   LONG lName, lValue;\n   DWORD type;\n\n   _retnl&#40; RegEnumValue&#40; &#40; HKEY &#41; _parnl&#40; 1 &#41;, _parnl&#40; 2 &#41;, &#40; char * &#41; name, &amp;lName,\n                         NULL, &amp;type, &#40; char * &#41; value, &amp;lValue &#41; &#41;;\n   _storc&#40; &#40; char * &#41; name, 3 &#41;;                      \n   \n   switch&#40; type &#41;\n   &#123;\n      case REG_SZ&#58;\n      	   _storc&#40; &#40; char * &#41; value, 4 &#41;;\n      	   break;\n      	   \n      case REG_DWORD&#58;\n      	   _stornl&#40; * &#40; &#40; LPDWORD &#41; value &#41;, 4 &#41;;\n      	   break;	   \n   &#125;   		\n&#125;\n[/code:2lbyg0g0]\nPlease notice that the above function is not complete yet, though it works fine for the above sample','',0,'AIA=','2lbyg0g0',1,0,'',2,0,0),(24048,5365,1,2,0,'87.218.146.7',1167293933,1,0,1,1,1,1,'','','Jose,\n\nFWH 2.4 is an old version, you should upgrade to FWH 6.12 (current one).','',0,'AIA=','9or4l6eh',1,0,'',2,0,0),(24049,5452,6,2,0,'87.218.146.7',1167294175,1,0,1,1,1,1,'','','Rodrigo,\n\nEste código funciona correctamente con FWH 6.12:\n[code:1yo6e200]\nfunction Main&#40;&#41;\n\n   ShellExecute&#40; ,&quot;open&quot;, &quot;fwintro&#46;pdf&quot;,,,1 &#41;\n   \nreturn nil\n[/code:1yo6e200]','',0,'AIA=','1yo6e200',1,0,'',2,0,0),(24050,5455,6,2,0,'87.218.146.7',1167294395,1,0,1,1,1,1,'','','Rafa,\n\nPor lo visto se puede hacer usando OleLoadPicture() pero no hemos investigado más el tema:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/bitmap/render.asp\">http://www.codeproject.com/bitmap/render.asp</a><!-- m -->','',0,'AIA=','d9wwijog',1,0,'',2,0,0),(24051,5354,7,57,0,'83.53.69.224',1167296024,1,0,1,1,1,1,'','','Antonio\nFunciona perfectamente. Gracias JLuis  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nImplementarla es muy facil. Bajar e instalar el CeDbgView32 (MSI Package) desde el link que indica JLCapel e instalar la aplicación. \n\nInstalar en el directorio \\WINDOWS de la PDA el CeDbgServer.dll que corresponda al SO y tipo de PDA y que podemos encontrar en el mismo directorio en donde se instala el CeDbgView32.\n\nEjecutar la aplicación CeDbgView32.exe en nuestro PC. Es necesario que PDA y PC esten conecetados mediante Activesync. Y a capturar mensajes.. \n\nAñadir : \n\nHB_FUNC( OUTPUTDEBUGSTRINGW )\n{\n   LPWSTR vMsg ;\n   vMsg = AnsiToWide( ( LPSTR ) hb_parc( 1 ) ) ;\n   OutputDebugStringW( vMsg );\n   hb_xgrab( (void *) vMsg ) ;\n}\n\nRealizar llamadas usando la función :\nOutputdebugstringW(\"Estoy pasando por aquí\")\n\n\nMuy práctico.\n\nSaludos','',0,'AIA=','3rgpriyh',1,0,'',57,0,0),(24052,5455,6,24,0,'80.24.12.168',1167296382,1,0,1,1,1,1,'','RE:','[quote=&quot;Antonio Linares&quot;:28dbk01z]Rafa,\n\nPor lo visto se puede hacer usando OleLoadPicture() pero no hemos investigado más el tema:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/bitmap/render.asp\">http://www.codeproject.com/bitmap/render.asp</a><!-- m -->[/quote:28dbk01z]\n\nAntonio, no se muy bien que hace el OleLoadPicture ni como emplearlo,\npero buscando por ahi tambien, obtenemos esto:\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/bitmap/ImageStone.asp\">http://www.codeproject.com/bitmap/ImageStone.asp</a><!-- m -->\n[  ...load image from a resource under Windows ]\n\nEsto es una clase en C++, quizas de ahi pueda darte pistas de como \nrealizarlo.\n\nSeguiremos investigando...','',0,'gA==','28dbk01z',1,0,'',24,0,0),(24053,5457,1,47,0,'203.144.143.10',1167299044,1,0,1,1,1,0,'','How can I use TSocket connect to Server (TCP/IP) automatic?','Dear Antonio,\n\nI try to connect SockCli.exe to SockServ.exe automatic when activate Main Window but It cannot connect.\n\nHas it a way to connect server automatically (Without user activate manually)\n\nBest regards,\nDutch\n\n[code:oxhq92hi]\nfunction Main&#40;cIPAdd&#41;\n   local oBar\n\n   Default cIPAdd &#58;= \'192&#46;168&#46;0&#46;238\'\n\n   DEFINE WINDOW oWnd TITLE &quot;Client socket &quot;+cIPAdd\n\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n\n//   DEFINE BUTTON OF oBar ACTION Client&#40;cIPAdd&#41; TOOLTIP &quot;Connect&quot;\n\n   DEFINE BUTTON OF oBar ;\n      ACTION oSocket&#58;SendData&#40; &quot;MSG This is a test&quot; &#41; ;\n      TOOLTIP &quot;Send data&quot;\n\n   DEFINE BUTTON OF oBar ;\n      ACTION SendFile&#40;&#41; TOOLTIP &quot;Send file&quot;\n\n   ACTIVATE WINDOW oWnd ;\n       ON PAINT &#40;Client&#40;cIPAdd&#41;&#41;\n\nreturn nil\n\n//---------------------------//\nfunction Client&#40;cIPAdd&#41;\n\n   oSocket = TSocket&#40;&#41;&#58;New&#40; 2000 &#41;\n\n   oSocket&#58;bRead    = &#123; | oSocket | MsgInfo&#40; oSocket&#58;GetData&#40;&#41; &#41; &#125;\n\n   // Never use a MsgInfo&#40;&#41; here because it hangs Windows!!!\n   oSocket&#58;bConnect = &#123; || oWnd&#58;SetText&#40; &quot;Connected!&quot; &#41; &#125;\n\n   oSocket&#58;bClose   = &#123; || MsgInfo&#40; &quot;Server has closed!&quot; &#41; &#125;\n\n   oSocket&#58;Connect&#40; cIPAdd &#41; // use the server IP address here\n\nreturn nil\n[/code:oxhq92hi]','',0,'AIA=','oxhq92hi',1,0,'',47,0,0),(24054,5455,6,24,0,'80.24.12.168',1167300451,1,0,1,1,1,1,'','Re: RE:','Antonio, mirando que incorporastes la FreeImage, quizas se podria\nhacer alguna cosa con funciones como:\n\n FreeImage_ConvertFromRawBits \n FreeImage_LoadMemory\n\nQuizas sea una solucion más simple de lo que parece, no se....','',0,'AIA=','35e8rv6j',1,0,'',24,0,0),(24055,5458,3,487,0,'151.38.48.100',1167304879,1,0,1,1,1,0,'','Terminal Services','Hello all,\n\n1) is there a function which tells me if Terminal Services are installed on a server in application mode ?\nI know OS_IsWTSClient() to retrieve if the application is running on a Terminal session, but I would need to know it on the server console.\n\n2) When Terminal Services are installed, the GetWinDir() function retrieves a different directory for each user: \"C:\\Documents and Settings\\&lt;user name&gt;\\WINDOWS\"\nIs it possible to retrieve which is the real Windows directory, typically \"C:\\WINDOWS\" ?\n\nThank you,\nDavide.','',0,'AIA=','2xlkzoel',1,0,'',487,0,0),(24056,5437,2,812,0,'200.83.125.81',1167311387,1,0,1,1,1,0,'','','Hola Antonio:\n\nPude encontrar el error, algo pasaba en la DLL, ya que diseñe la pantalla de nuevo con los mismos campos y funciono OK. Muchas Gracias por tu ayuda y tiempo dedicado.\n\nDesde ya Muchas felicidades para este nuevo año, que la felicidad y la paz reine en tu hogar y seres queridos.\n\nMiguel Rivera.\n\n\n\n\n[quote=&quot;Antonio Linares&quot;:1ywedjis]Miguel,\n\nDe momento quita el Picture \"99,999,999.99\" para hacer pruebas[/quote:1ywedjis]','',0,'gA==','1ywedjis',1,0,'',812,0,0),(24057,5457,1,6,0,'87.20.218.85',1167311525,1,0,1,1,1,1,'','Re: How can I use TSocket connect to Server (TCP/IP) automat','[quote=&quot;dutch&quot;:23bbhg6n][code:23bbhg6n]   ACTIVATE WINDOW oWnd ;\n       ON PAINT &#40;Client&#40;cIPAdd&#41;&#41;[/code:23bbhg6n][/quote:23bbhg6n]\n\nThis is not right. Replace it with\n\n[code:23bbhg6n]   ACTIVATE WINDOW oWnd ;\n       ON INIT &#40;Client&#40;cIPAdd&#41;&#41;[/code:23bbhg6n]\n\nEMG','',0,'gIA=','23bbhg6n',1,0,'',6,0,0),(24058,5459,2,812,0,'200.83.125.81',1167311838,1,0,1,1,1,0,'','Favor Necesito aclarar una duda.','Hola Amigos:\n\nNecesito saber que es mas aconsejable para mostrar y buscar en pantalla una bases de datos.\n\n  El LISTBOX o BROWSE y cual es la diferencia entre ambas, ha la base de datos es muy pesada, aprox. 2.000.000 de registros.\n\nGracias por su ayuda.\n\nMiguel Rivera','',0,'gIA=','3ixo2djl',1,0,'',812,0,0),(24059,3879,6,450,0,'200.245.0.34',1167314401,1,0,1,1,1,1,'','','Fala ae Tranka...\n\n[quote:aka95lm0]Cual la mensageria del Error??? \nR.: No aparece mensageria de Error...\n\nLa Ruta está correcta?? \nR.: Si, lá rota esta correcta...\n\nRecompilates la TSBROWSE.LIB?? \nR.: Sí, también no funcionó. Utilicé hasta el TBrw9961.Lib, el Recuperador también no funcionó.\n[/quote:aka95lm0]\n\n\nAcredito ser o mesmo problema que você teve com a Versão da 2.7, pois o Restaurador não funciona com a 2.8\n\nRegards, Saludos','',0,'gA==','aka95lm0',1,0,'',450,0,0),(24060,1808,2,812,0,'200.83.125.81',1167318116,1,0,1,1,1,0,'','Re: Me puede enviar la clase y los dos prg','Cristian:\n\nFeliz Navidad y un propero año 2007, sabes que no me ha llego tu correo, con los fuentes y las clases, me las puedes reenviar a mi correo :\n\n<!-- e --><a href=\"mailto:marf2@tutopia.com\">marf2@tutopia.com</a><!-- e -->.\n\nDesde ya muchas gracias.\nMiguel Rivera\n\n\n[quote=&quot;Miguel Rivera&quot;:1nnib0x1]Hola Daniel:\n\nTengo el mismo problema, me puedes enviar una copia por favor, a mi correo.\n\n<!-- e --><a href=\"mailto:marf2@tutopia.com\">marf2@tutopia.com</a><!-- e -->\n\nDesde ya muchas gracias.\n\nMiguel Rivera\n\n[quote=&quot;DanielPuente&quot;:1nnib0x1]Cristian: \n\n             Te envie a tu privado la clase y dos prg.\n\nSaludos,[/quote:1nnib0x1][/quote:1nnib0x1]','',0,'gA==','1nnib0x1',1,0,'',812,0,0),(24061,5441,6,73,0,'201.132.227.34',1167320064,1,0,1,1,1,0,'','','que tal jose luis, yo la tengo funcionando en 32 bits, sin problemas, de cuqluier forma te deja aqui un link por si la deseas descargar, igual y puede ser del sitio de alfredo,\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4799&amp;highlight=tgraph\">http://fivetechsoft.com/forums/viewtopi ... ght=tgraph</a><!-- m -->\nsalu2\nPaco','',0,'gA==','2gn2k3ym',1,0,'',73,0,0),(24062,5460,6,124,0,'201.252.205.183',1167320182,1,0,1,1,1,0,'','PROBLEMAS CON VERSIONES PARA COMPILAR','Amigos:\n\nEstoy teniendo problemas con errores para compilar que se deben a versiones incompatibles entre harbour y fwh, vi que otros tuvieron cosas similares.\n\nMi pregunta es: tengo el fwh build march 2006 (creo que es 2.7) cual es la version de harbour compatible con este build? o si puedo bajarme la version actualizada de fwh que sea compatible con la actual de harbour que esta en la pagina oficial\n\nAprovecho para mandarles un fuerte abrazo y un deseo de prospero 2007 para todos, y un agradecimiento por estar siempre ya que sin ustedes y este foro seria mucho mas dificil nuestra tarea.\n\nMil gracias\nSaludos.\nRicardo','',0,'gA==','p7etrkm4',1,0,'',124,0,0),(24063,3879,6,362,0,'200.168.52.156',1167322164,1,0,1,1,1,1,'','','ENVIAME UN XBLITE.EXE PARA TESTES.\n\n<!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->\n\nRegards, saludos.','',0,'gA==','wiw8cnb1',1,0,'',362,0,0),(24064,5460,6,2,0,'87.218.146.106',1167327407,1,0,1,1,1,1,'','','Ricardo,\n\nDesde aqui puedes descargar las versiones que hemos ido publicando:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'gA==','31b7spc8',1,0,'',2,0,0),(24065,5354,7,2,0,'87.218.146.106',1167327993,1,0,1,1,1,1,'','','Toni,\n\nGracias por la información. Sólo una cosa, esta llamada\n\nhb_xgrab( (void *) vMsg ) ; \n\nha de ser\n\nhb_xfree( (void *) vMsg ) ;','',0,'gA==','1i3p4ub6',1,0,'',2,0,0),(24066,5461,3,6,0,'87.20.218.85',1167328814,1,0,1,1,1,1,'','Bug in TComboBox','Valid clause is evaluated on gotfocus instead of lostfocus in CBS_DROPDOWN combos:\n\n[code:1ym20wzr]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oCbx, cVar &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 COMBOBOX oCbx VAR cVar;\n           ITEMS &#123; &quot;First&quot;, &quot;Second&quot;, &quot;Third&quot; &#125;;\n           STYLE CBS_DROPDOWN;\n           VALID &#40; MSGINFO&#40; &quot;Valid&quot; &#41;, &#46;T&#46; &#41;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1ym20wzr]\n\nEMG','',0,'AIA=','1ym20wzr',1,0,'',6,0,0),(24067,5257,23,130,0,'84.138.66.105',1167331029,1,0,1,1,1,0,'','','ja ich, zumindest mit FWH und xHarbour.\n\naber ansonsten ist hier ziemlich wenig los in der Gruppe <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nGruß und Guten Rutsch\nStefan','',0,'AIA=','1i4qq50p',1,0,'',130,0,0),(24068,5452,6,898,0,'200.232.246.70',1167334731,1,0,1,1,1,0,'','','Obrigado Antonio, vou atualizar ele aqui e logo depois eu dou um retorno.\n\n\n\nAbraços!!','',0,'AIA=','2fx3tdyx',1,0,'',898,0,0),(24069,5462,4,3,0,'82.65.161.187',1167337278,1,0,1,1,1,1,'','Windows non modal behaviour ???','Hello Antonio,\n\nMy ppc app behaves very strange since i recompiled it with latest fwppc. It behaves exactly as if there was a nowait clause ... While it was waiting at each window for the control with the appropriated buttons.\n\nany significant change in this area ?  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nThanks\n\nRichard','',0,'AIA=','bxdqmxfx',1,0,'',3,0,0),(24070,5443,3,289,0,'82.167.41.97',1167337464,1,0,1,1,1,0,'','','Antonio. \nI have many item in Registrar \"run\".\nHe Is Return one  Only.\nI have 9 item .\nhe is return item  8\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'AIA=','3o3xwxpr',1,0,'',289,0,0),(24071,5462,4,3,0,'82.65.161.187',1167340110,1,0,1,1,1,1,'','Re: Windows non modal behaviour ???','[quote=&quot;Richard Chidiak&quot;:3otvhcvf]Hello Antonio,\n\nMy ppc app behaves very strange since i recompiled it with latest fwppc. It behaves exactly as if there was a nowait clause ... While it was waiting at each window for the control with the appropriated buttons.\n\nany significant change in this area ?  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nThanks\n\nRichard[/quote:3otvhcvf]\n\nAntonio\n\nModal is the default behaviour and should be the default behaviour in ppc. \n\nI had to change all my Activate window to make them Modal \n\nThe default value is false (non modal) and i think it is wrong to define it this way.\n\nRichard','',0,'gA==','3otvhcvf',1,0,'',3,0,0),(24073,5354,7,57,0,'83.53.58.196',1167342855,1,0,1,1,1,1,'','','Antonio\nGracias por la correción.. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nSaludos','',0,'gA==','1i9rfawi',1,0,'',57,0,0),(24074,5463,2,812,0,'201.214.35.162',1167356775,1,0,1,1,1,0,'','Favor, Necesito Ayuda Urgente con un Browse','Hola Amigos:\n\nNecesito saber si el BROWSE tiene un SetFilter, tengo una base de datos que mostrare por pantalla, pero debe mostrar solo los datos que se encuentran entre dos fechas.\n\nNesito en forma urgente, solucionar mi problema.\n\nGracias desde ya,\n\nMiguel Rivera.','',0,'gA==','19d6c94v',1,0,'',812,0,0),(24075,5464,3,707,0,'222.124.20.50',1167368122,1,0,1,1,1,0,'','Put Tooltip on BUTTONBMP class','Mr. Antonio/Mr. Enrico\n\nHow to add tooltip on BUTTONBMP class ?\n\nThis is original code from sample directory :\n[code:k0g8cppk]\n@10,10 BUTTONBMP &quot;Delete&quot; SIZE 30,12 BITMAP &quot;button&#46;bmp&quot; TEXTRIGHT of oDlg\n[/code:k0g8cppk]\n\nThank\'s\n\nRegards\nAreang','',0,'AIA=','k0g8cppk',1,0,'',707,0,0),(24076,5453,6,73,0,'201.132.241.177',1167369642,1,0,1,1,1,0,'','','jcaro,\nen alguna ocasion vi algo pero no recuerdo exactamente como era, la cosa es meter por ejemplo a 1.res el 2.res el 3.res con el include, por ahi va, si lo encentro te informo\nsalu2\npaco','',0,'AIA=','37fba7kf',1,0,'',73,0,0),(24077,5457,1,47,0,'203.144.143.8',1167371680,1,0,1,1,1,0,'','','Thanks Enrico,\n\nIt works well.\n\nBest regards,\nDutch','',0,'AIA=','2a8q5ieo',1,0,'',47,0,0),(24078,5462,4,2,0,'87.218.146.106',1167375491,1,0,1,1,1,1,'','','Richard,\n\nWe implemented it this way to keep a similarity with FW for PC behavior and also because it is the default Windows API windows behavior.','',0,'AIA=','27rcedn1',1,0,'',2,0,0),(24079,5464,3,2,0,'87.218.146.106',1167375580,1,0,1,1,1,1,'','','Areang,\n[code:3m15ok54]\n@10,10 BUTTONBMP oBtn PROMPT &quot;Delete&quot; SIZE 30,12 BITMAP &quot;button&#46;bmp&quot; TEXTRIGHT of oDlg\noBtn&#58;cToolTip = &quot;The tooltip text&quot;\n[/code:3m15ok54]','',0,'AIA=','3m15ok54',1,0,'',2,0,0),(24080,5443,3,2,0,'87.218.146.106',1167375683,1,0,1,1,1,1,'','','Hathal,\n\nHere it is working fine. Please review your code implementation.','',0,'AIA=','3kv193sj',1,0,'',2,0,0),(24081,5463,2,2,0,'87.218.146.106',1167376207,1,0,1,1,1,1,'','','Miguel,\n\nPuedes usar la claúsula SELECT ... FOR del browse, aqui tienes un ejemplo:\n[code:1iqxajo4]\n   REDEFINE LISTBOX oBrw ;\n      FIELDS DToC&#40; Facturas-&gt;Fecha &#41;, Facturas-&gt;Concepto ;\n      HEADERS &quot;Fecha&quot;, &quot;Concepto&quot; ;\n      ID ID_BROWSE OF oDlg ;\n      ALIAS &quot;Facturas&quot; ;\n      SELECT Facturas-&gt;Codigo FOR Clientes-&gt;Codigo ;\n      UPDATE\n[/code:1iqxajo4]\nRevisa samples\\gallery\\onemany.prg','',0,'AIA=','1iqxajo4',1,0,'',2,0,0),(24082,5462,4,3,0,'82.65.161.187',1167376827,1,0,1,1,1,1,'','','Antonio\n\nThe default Fw behaviour is SDI not MDI , You specify MDI To make it MDI.\n\nFWPPC is going the reverse way.\n\nNot a problem for me now, just not logical.\n\nRichard','',0,'AIA=','3lucze4m',1,0,'',3,0,0),(24083,5462,4,2,0,'87.218.146.106',1167382020,1,0,1,1,1,1,'','','Richard,\n\nThere is no standard MDI in Windows Mobile.\n\nIn FWH the command ACTIVATE WINDOW is modal for the main window, same as in FWPPC, and in others windows it is non modal.\n\nTraditionally dialog boxes are modal, and windows are non modal, except the main window.\n\nDue to a design error in previous FWPPC builds the ACTIVATE WINDOW command was modal (for windows different from the main one), and recently we have changed it to non modal, and we added a clause to force it modal and provide backwards compatibility.','',0,'AIA=','1cj89jyc',1,0,'',2,0,0),(24084,5460,6,687,0,'200.41.60.210',1167392794,1,0,1,1,1,1,'','','Antonio.\n\nSoy jorge, socio de ricardo. estuve haciendo pruebas con las versiones que nos dijiste.\n\n\ncon la version HARBOUR nos da este error:\n\nError: Unresolved external \'_hb_objGetpMethod\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC\n\ncon la version xHARBOUR, nos este otro:\n\n\'Program with 1st fun: ALERT\' was compiled by older version, PCODE ......\n\nte adjunto el B32.BC\n\nc:\\bcc55\\lib\\c0w32.obj +\ninicio.obj , +\nevo32.exe, +\nevo32.map, +\nc:\\fwh\\lib\\FiveH.lib c:\\fwh\\lib\\FiveHC.lib +\nc:\\harbour\\lib\\rtl.lib +\nc:\\harbour\\lib\\vm.lib +\nc:\\harbour\\lib\\gtwin.lib +\nc:\\harbour\\lib\\lang.lib +\nc:\\harbour\\lib\\macro.lib +\nc:\\harbour\\lib\\rdd.lib +\nc:\\harbour\\lib\\dbfntx.lib +\nc:\\harbour\\lib\\dbfcdx.lib +\nc:\\harbour\\lib\\dbffpt.lib +\nc:\\harbour\\lib\\hbsix.lib +\nc:\\harbour\\lib\\debug.lib +\nc:\\harbour\\lib\\common.lib +\nc:\\harbour\\lib\\pp.lib +\nc:\\harbour\\lib\\codepage.lib +\nc:\\borland\\bcc55\\lib\\cw32.lib +\nc:\\borland\\bcc55\\lib\\import32.lib + \nc:\\borland\\bcc55\\lib\\psdk\\odbc32.lib + \nc:\\borland\\bcc55\\lib\\psdk\\nddeapi.lib + \nc:\\borland\\bcc55\\lib\\psdk\\iphlpapi.lib +\nc:\\borland\\bcc55\\lib\\psdk\\rasapi32.lib +\nlogicl32.lib +\nevog32.lib +\nlogiex32.LIB ,\n\n\nSALUDOS Y FELIZ AÑO 2007','',0,'AIA=','5hb4r8uv',1,0,'',687,0,0),(24085,5465,7,490,0,'80.24.224.89',1167393973,1,0,1,1,1,0,'','Problema nueva versión con Get multiline','Antonio,\n\nA partir de esta versión, un Tget definido en el WS como MultiLine con H y V scroll, no me funciona al mover las barras.\n\nDefinido como  REDEFINE GET cTxt ID 101 OF oDlg\n\nEntonces he probado a poner lo siguiente:\n\n REDEFINE GET cTxt MULTILINE ID 101 OF oDlg\n\nY ya funcionan las barras, pero, me deja todo el texto en blanco sobre azúl, es decir, seleccionado por defecto, cosa que se ve fea.\n\n\nHe intentado con cTxt:HideSel() o SetSel(0,0), pero en el momento que uso setsel() se queda bloqueada la PDA, y sólo puedo resetearla.\n\n\nNecesito un texto memo en un control con scroll y sin seleccionar.\n\n¿Como lo hago? En versiones anteriores funcionaba perfectamente.\n\n\nUn Saludo,\nJoaquín','',0,'AIA=','29xwhcop',1,0,'',490,0,0),(24086,5465,7,490,0,'80.24.224.89',1167394996,1,0,1,1,1,0,'','','Antonio,\n\nSetSel() no bloquea la PDA, me había equivocado de objeto.\n\nPero lo demás si es todo tal como comento, todo el texto aparece seleccionado. \n\nAunque por ahora se puede solucionar usando SetSel(0,0)\n\nUn Saludo,\nJoaquín','',0,'AIA=','o6pc31il',1,0,'',490,0,0),(24087,5465,7,2,0,'87.218.146.106',1167396027,1,0,1,1,1,1,'','','Joaquín,\n\n&gt;\nPero lo demás si es todo tal como comento, todo el texto aparece seleccionado. \n\nAunque por ahora se puede solucionar usando SetSel(0,0) \n&gt;\n\nEn el PC ocurre igual y se soluciona de la misma forma, usando SetSel()','',0,'AIA=','u1onxfyd',1,0,'',2,0,0),(24088,3879,6,362,0,'200.168.52.156',1167396211,1,0,1,1,1,1,'','','//-&gt; Faça as chamadas das LIBs de TERCEIROS, DEPOIS das LIBS do FiveWin Mano.\n\n\\FwH27\\lib\\FiveHX.lib                   +\n\\FwH27\\lib\\FiveHC.lib                   +\n\\FwH27\\lib\\FoldBmp32.lib                +\n\\FwH27\\lib\\SBRW9961.lib                 +\n\nRegards, saludos.','',0,'AIA=','1htjj8c5',1,0,'',362,0,0),(24089,3879,6,450,0,'200.245.0.34',1167397627,1,0,1,1,1,1,'','','João...\n\n[quote:1lhdc83n]//-&gt; Faça as chamadas das LIBs de TERCEIROS, DEPOIS das LIBS do FiveWin Mano. \n\n\\FwH28\\lib\\FiveHX.lib + \n\\FwH28\\lib\\FiveHC.lib + \n\\FwH28\\lib\\FoldBmp32.lib + \n\\FwH28\\lib\\SBRW9961.lib + \n[/quote:1lhdc83n]\n\nTabéin no funcionó\n\nRegards, Saludos','',0,'gA==','1lhdc83n',1,0,'',450,0,0),(24090,3879,6,362,0,'200.168.52.156',1167398458,1,0,1,1,1,1,'','','ENVIAME O FONTE, O EXE POIS O KE ENVIATES ESTAVA DANIFCADO.','',0,'gA==','3ot1ini8',1,0,'',362,0,0),(24091,3879,6,450,0,'200.245.0.34',1167400746,1,0,1,1,1,1,'','','João...\n\nÉ o mesmo que esta em Dicas + Dicas...\n\n[quote:1wxy7h1t] <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/674XBLITE.ZIP\">http://www.fivewin.com.br/Dicas/674XBLITE.ZIP</a><!-- m --> [/quote:1wxy7h1t]\n\nInclusive não fiz nenhuma alteração além de redirecionar de FWH27 para FWH28.\n\nUm abraço','',0,'gA==','1wxy7h1t',1,0,'',450,0,0),(24092,5415,6,644,0,'201.252.15.223',1167401443,1,0,1,1,1,0,'','','Patricio\n\nFuncionó. Es raro porque en fw16 El comando ALIAS \'ARRAY\' nunca lo usé y funcionaba. Gracias por todo','',0,'gA==','14ef449y',1,0,'',644,0,0),(24093,5459,2,644,0,'201.252.15.223',1167401827,1,0,1,1,1,0,'','','Miguel\n\nPara usar un listbox ( supongo que te referís al control nativo de windows ) tendrías que levantar los datos en un array, y esa cantidad en fw16 lo veo poco probable. Con un browse leerias los datos directamente de la base de datos. No sé si esa es la aclaración que necesitas\nsaludos','',0,'gA==','1uosv1rs',1,0,'',644,0,0),(24094,3879,6,362,0,'200.168.52.156',1167403723,1,0,1,1,1,1,'','','Valdir...\n\nIntente con esta nueva Versión.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=711\">http://www.fivewin.com.br/exibedicas.asp?id=711</a><!-- m -->\n\nUse el FORO FIVEWIN BRASIL, para sanar las dudas.\n\nRegards, saludos.','',0,'gA==','1c92od4w',1,0,'',362,0,0),(24095,5459,2,812,0,'200.83.125.81',1167404136,1,0,1,1,1,0,'','Re: Favor Necesito aclarar una duda.','Horacio:\n\nTu explicacion me deja la situacióon super clara.\n\nMuchas gracias por tu respuesta. Que tengas un Feliz y prospero año 2007.\n\nMiguel Rivera\n\n\n\n[quote=&quot;Miguel Rivera&quot;:1yzl4nch]Hola Amigos:\n\nNecesito saber que es mas aconsejable para mostrar y buscar en pantalla una bases de datos.\n\n  El LISTBOX o BROWSE y cual es la diferencia entre ambas, ha la base de datos es muy pesada, aprox. 2.000.000 de registros.\n\nGracias por su ayuda.\n\nMiguel Rivera[/quote:1yzl4nch]','',0,'gA==','1yzl4nch',1,0,'',812,0,0),(24096,5463,2,812,0,'200.83.125.81',1167407410,1,0,1,1,1,0,'','','Antonio:\n\nMuchas Gracias, lo aplicare y te cuento.\n\nSaludos y Muchas Felicidades para este fin de año.\n\nMiguel Rivera\n\n\n[quote=&quot;Antonio Linares&quot;:8stbcczz]Miguel,\n\nPuedes usar la claúsula SELECT ... FOR del browse, aqui tienes un ejemplo:\n[code:8stbcczz]\n   REDEFINE LISTBOX oBrw ;\n      FIELDS DToC&#40; Facturas-&gt;Fecha &#41;, Facturas-&gt;Concepto ;\n      HEADERS &quot;Fecha&quot;, &quot;Concepto&quot; ;\n      ID ID_BROWSE OF oDlg ;\n      ALIAS &quot;Facturas&quot; ;\n      SELECT Facturas-&gt;Codigo FOR Clientes-&gt;Codigo ;\n      UPDATE\n[/code:8stbcczz]\nRevisa samples\\gallery\\onemany.prg[/quote:8stbcczz]','',0,'gIA=','8stbcczz',1,0,'',812,0,0),(24097,2052,6,36,0,'200.113.56.235',1167408916,1,0,1,1,1,0,'','','Estimados\n\nHay alguna sugerencia sobre este tema?\n\nsaludos\nPatricio','',0,'gIA=','38g18xfw',1,0,'',36,0,0),(24098,5466,3,397,0,'200.207.113.99',1167414306,1,0,1,0,1,1,'','How to put scrollbar in dialog?','Hello\n\nI have tested TESTWSCR.PRG but this code uses Window.\n\nI need use same feature with dialogs.\n\npost a example to me,\n\nThanks','',0,'gIA=','1vshu9c7',1,0,'',397,0,0),(24099,5466,3,217,0,'200.159.120.34',1167416453,1,0,1,1,1,0,'','Re: How to put scrollbar in dialog?','Rochinha, my dear, I\'m asking for it to Antonio a long time. I want to define dialogs with scroll into a TPage. Antonio said that must change TDialog class...\nLet\'s wait or do for ourself. What you think?\n\n\nRochinha, meu querido, eu estou pedindo essa funcionalidade ao Antonio já há algum tempo. Pra eu poder colocar uma dialog dentro de uma TPage com scroll e ele disse que teria que alterar a classe TDialog...\nVamos aguardar ou fazer nós mesmos. O que vc acha?\n\nRegards/Abraços\nMaurilio','',0,'gIA=','137mtzyt',1,0,'',217,0,0),(24100,5467,2,774,0,'200.72.65.82',1167417274,1,0,1,1,1,1,'','QUIEN ME ACLARA ESTO ????','Supongamos q tengo dos DBf\n\nla primera contiene los datos de las compras de los clientes (las Facturas)\n\nla segunda contiene los pagos de esas facturas\n\n\nse podria hacer un BROWSE o LISTBOX que contenga en una colunma la factura q esta pendiente de pago y en otra el saldo q le queda por pagar\n\nme explico o no:.\n\nen resumen nose como poder mezclar dos bases de datos ,, los BROWSE los uso solo con una sola DBF\n\n\nSI ME PUEDE AYUDAR CON ALGUN EJEMPLO CLARO\n\n\nMUCHAS GRACIAS','',0,'gIA=','3sx9lzym',1,0,'',774,0,0),(24101,5468,6,431,0,'200.8.88.79',1167418121,1,0,1,1,1,1,'','problema con say-refresh en 6.12','saludos y aprovechando desearles un feliz año 2.007 a todos \na ver quien me puede ayudar.\n\nesto me esta pasando es con la ultima version de FWH 6.12\nuso harbour \n\ntengo el siguiente codigo para un dialogo,\n\n      REDEFINE SAY ::o202 VAR strzero(::nTriples,4) ID 202 oF oDlgLot ;              COLOR CLR_BLUE update\n\n       REDEFINE SAY ::o203 VAR strzero(::nTerm,4) ID 203 oF oDlgLot ;              COLOR CLR_BLUE update\n\n       REDEFINE SAY ::o209 VAR TRANSFORM(::nTotTick,\"999,999,999\") ID 209 oF oDlgLot FONT oFont2 COLOR CLR_BLUE update\n \npor otro lado tengo una funcion que me actualiza el contenido de esas variables\n    ::o202:Refresh()\n    ::o203:Refresh()\n    ::o209:Refresh()\nantes cada vez que llamaba a esta funcion y el contenido de la variable cambiaba el igual me cambiaba el say ahora solo me lo cambia una sola vez <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->  espero me hayan entendido\n\nde antemano muchas gracias.','',0,'gIA=','1wmtyhuu',1,0,'',431,0,0),(24102,5468,6,228,0,'190.24.112.55',1167418485,1,0,1,1,1,1,'','Amigo..','Amigo... \n\nAlguna vez a mi me sucedio algo por el estilo... y solucione el problema quitando la clausula UPDATE a los say.\n\n\nEspero te sirva..','',0,'gIA=','2k154tr0',1,0,'',228,0,0),(24103,5468,6,431,0,'200.8.88.79',1167420363,1,0,1,1,1,1,'','','Gracias por tu pronta repuesta Leandro pero le quito los update y me sigue solo mostrando el primer cambio <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> ,','',0,'gIA=','3g8ll3jc',1,0,'',431,0,0),(24104,5468,6,492,0,'189.147.23.225',1167424011,1,0,1,1,1,1,'','','Hola\n\nPor que no pruebas con esto :\n\n/*\npor otro lado tengo una funcion que me actualiza el contenido de esas variables \n::o202:Refresh() \n::o203:Refresh() \n::o209:Refresh() \n*/\n\n::o202:SetText( \"Lo que sea\" )\n\nSaludos','',0,'gIA=','3sz1tlng',1,0,'',492,0,0),(24105,3879,6,492,0,'189.147.23.225',1167424300,1,0,1,1,1,1,'','','Carlos :\n\n\nPor donde andas Amigo  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nTiene rato que no te miramos por aca... <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\n\nSaludos\n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gIA=','1qx6d1qt',1,0,'',492,0,0),(24106,5468,6,431,0,'200.8.88.79',1167436111,1,0,1,1,1,1,'','','Gracias Raymundo \nlo que me indicastes funciono correctamente\nlo que me parece extraño es que es una aplicacion que solo queriamos actualizar al 6.12 y con las antiguas librerias FWH trabaja bien pero haremos el cambio a settext  \nGracias a todos','',0,'gIA=','3ps2u89l',1,0,'',431,0,0),(24107,5466,3,397,0,'200.207.113.99',1167440271,1,0,1,0,1,1,'','','Amiguinho,\n\nEu também, apesar de ter feito usando Window mesmo, fica legal, mas fica fora da interface do meu aplicativo.\n\nQuem sabe nas outras atualizações ele atenda nossos pedidos.\n\nMas vou dar uma analisada e quando conseguir te dou um toque.\n\n@braços','',0,'gIA=','3uk97x32',1,0,'',397,0,0),(24108,5326,3,190,0,'202.65.134.36',1167444096,1,0,1,1,1,0,'','','Hi Mr.Rossine\n\n[quote:2jcxh6s2]\nFor this function you be necessary use the class freeimage of xharbour.org, located in “\\xharbour\\contrib\\freeimage\\..\" \n[/quote:2jcxh6s2]\n\nI don\'t have a copy of this class.\n\nCan you please send this class and its .ch file to my private e-mail: [color=blue:2jcxh6s2][u:2jcxh6s2]aksharasoft@hotmail.com[/u:2jcxh6s2][/color:2jcxh6s2]\nRegards,\n\n- Ramesh Babu P','',0,'gw==','2jcxh6s2',1,0,'',190,0,0),(24109,5467,2,9,0,'85.54.247.133',1167454528,1,0,1,1,1,1,'','','Puedes intentar con SET RELATION\n\n// abro la base hija indexada por un campo común a las dos bases, en \n// este ejemplo el campo NumFactu \nUSE PagosFac INDEX NumFactu NEW\n\n// abro la base padre, indexada o no, por el campo que quieras\nUSE Facturas NEW\n// defino la relación \nSET RELATION TO NumFactu INTO PagosFac\n\nAl definir los campos del ListBox solo tengo que cambiar el alias de\ncada una de las bases:\n\nfacturas-&gt;NUMFACTU\nfacturas-&gt;FECHA\nPagosFac-&gt;SALDO\n....','',0,'gw==','2cv73v86',1,0,'',9,0,0),(24110,5469,6,492,0,'189.147.23.225',1167462524,1,0,1,1,1,1,'','Algunas Preguntas acerca TExcelScript de Vikthor','Hola a todos\n\nQuiero \"exportar\" algunos reportes, dbfs y archivos de texto a excel, checando comentarios de otros colegas y viendo algunos ejemplos, considero que la clase del Master Vikthor me ofrece todo lo necesario y hasta mas, claro, sin quitar merito alguno a las demas clases que tambien tienen lo suyo.\n\nPor lo que tengo estas dudas :\n\n- Baje la version 1.14 con fecha 14-Abr-2005 como ultima correcion/actualizacion, es esta la mas actual ??\n\n- Se puede cambiar el path diferente a Mis Documentos, donde se generen los archivos xls ???\n\n\nGracias y Saludos','',0,'gw==','7c9isncd',1,0,'',492,0,0),(24111,5467,2,2,0,'87.218.146.106',1167466809,1,0,1,1,1,1,'','','A&amp;C,\n\nRevisa fwh\\samples\\gallery\\onemany.prg','',0,'gw==','2buhfyyw',1,0,'',2,0,0),(24112,5461,3,2,0,'87.218.146.106',1167468660,1,0,1,1,1,1,'','','Enrico,\n\nThe problem is that when CBS_DROPDOWN style is used a Get is created as a child of the combobox, and when the combobox gets the focus, it gives it to the Get, thats why the bValid is fired.\n\nWe have tried to modify the code this way:\n\n    oCbx:oGet:bValid = { || MsgInfo(), .t. }\n\nbut the wrong behavior persists. We may need to review the Class combobox to see if we can improve it.','',0,'gw==','32qxhho6',1,0,'',2,0,0),(24113,5461,3,6,0,'87.10.1.17',1167470207,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'gw==','1a775jmp',1,0,'',6,0,0),(24114,5418,6,2,0,'87.218.146.106',1167473426,1,0,1,1,1,1,'','','Julio,\n\nPor lo visto desaparece la primera \" y el siguiente caracter.\n\nQuiza una solución rápida sería hacer:\n\ncData = StrTran( cData, \'=\"\', \'=\".\"\' ) \n\nde forma que desaparezca el \". extra y quede la \" siguiente. Puedes probarlo ? gracias','',0,'gw==','3c81q483',1,0,'',2,0,0),(24116,5326,3,104,0,'201.58.18.176',1167475088,1,0,1,1,1,0,'','','Hi Mr. Hamesh,\n\nTry this link: [url:2ckov4f9]http&#58;//downloads&#46;sourceforge&#46;net/xharbour/xharbour-0&#46;99&#46;70&#46;src&#46;contrib&#46;zip[/url:2ckov4f9]\n\nRegards,\n\nRossine.','',0,'EA==','2ckov4f9',1,0,'',104,0,0),(24117,5449,3,2,0,'87.218.146.106',1167475935,1,0,1,1,1,1,'','','Darrell,\n\nPlease change source\\classes\\outlook.prg in line 189 this way:\n\n   oBmp:bAction    := {|| Eval(bAction, Self, oBmp, oSay) } // {|| iif( Self:nDrag == 0, Eval(bAction, Self, oBmp, oSay), Self:nDrag := 0 ) }','',0,'EA==','1e3wd5nc',1,0,'',2,0,0),(24118,5466,3,104,0,'201.58.18.176',1167477893,1,0,1,1,1,0,'','','Olá amigos,\n\nEu peguei o TESTWSCR.PRG e fiz o TESTDSCR.PRG. Segue o codigo abaixo. Vejam se é isto que precisam  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n[code:345e53qu]\n\n// Testing how to scroll a dialog with its contents\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define D_WIDTH           4\n#define D_HEIGHT          13\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oDlg\nLOCAL cGet0101 &#58;= space&#40;10&#41;,  ; //Row 1\n      cGet0102 &#58;= space&#40;10&#41;,  ;\n      cGet0103 &#58;= space&#40;10&#41;,  ;\n      cGet0104 &#58;= space&#40;10&#41;,  ;\n      cGet0105 &#58;= space&#40;10&#41;,  ;\n      cGet0201 &#58;= space&#40;10&#41;,  ; //Row 2\n      cGet0202 &#58;= space&#40;10&#41;,  ;\n      cGet0203 &#58;= space&#40;10&#41;,  ;\n      cGet0204 &#58;= space&#40;10&#41;,  ;\n      cGet0205 &#58;= space&#40;10&#41;,  ;\n      cGet0301 &#58;= space&#40;10&#41;,  ; //Row 3\n      cGet0302 &#58;= space&#40;10&#41;,  ;\n      cGet0303 &#58;= space&#40;10&#41;,  ;\n      cGet0304 &#58;= space&#40;10&#41;,  ;\n      cGet0305 &#58;= space&#40;10&#41;,  ;\n      cGet0401 &#58;= space&#40;10&#41;,  ; //Row 4\n      cGet0402 &#58;= space&#40;10&#41;,  ;\n      cGet0403 &#58;= space&#40;10&#41;,  ;\n      cGet0404 &#58;= space&#40;10&#41;,  ;\n      cGet0405 &#58;= space&#40;10&#41;,  ;\n      cGet0501 &#58;= space&#40;10&#41;,  ; //Row 5\n      cGet0502 &#58;= space&#40;10&#41;,  ;\n      cGet0503 &#58;= space&#40;10&#41;,  ;\n      cGet0504 &#58;= space&#40;10&#41;,  ;\n      cGet0505 &#58;= space&#40;10&#41;,  ;\n      cGet0601 &#58;= space&#40;10&#41;,  ; //Row 6\n      cGet0602 &#58;= space&#40;10&#41;,  ;\n      cGet0603 &#58;= space&#40;10&#41;,  ;\n      cGet0604 &#58;= space&#40;10&#41;,  ;\n      cGet0605 &#58;= space&#40;10&#41;,  ;\n      cGet0701 &#58;= space&#40;10&#41;,  ; //Row 7\n      cGet0702 &#58;= space&#40;10&#41;,  ;\n      cGet0703 &#58;= space&#40;10&#41;,  ;\n      cGet0704 &#58;= space&#40;10&#41;,  ;\n      cGet0705 &#58;= space&#40;10&#41;,  ;\n      cGet0801 &#58;= space&#40;10&#41;,  ; //Row 8\n      cGet0802 &#58;= space&#40;10&#41;,  ;\n      cGet0803 &#58;= space&#40;10&#41;,  ;\n      cGet0804 &#58;= space&#40;10&#41;,  ;\n      cGet0805 &#58;= space&#40;10&#41;,  ;\n      cGet0901 &#58;= space&#40;10&#41;,  ; //Row 9\n      cGet0902 &#58;= space&#40;10&#41;,  ;\n      cGet0903 &#58;= space&#40;10&#41;,  ;\n      cGet0904 &#58;= space&#40;10&#41;,  ;\n      cGet0905 &#58;= space&#40;10&#41;,  ;\n      cGet1001 &#58;= space&#40;10&#41;,  ; //Row 10\n      cGet1002 &#58;= space&#40;10&#41;,  ;\n      cGet1003 &#58;= space&#40;10&#41;,  ;\n      cGet1004 &#58;= space&#40;10&#41;,  ;\n      cGet1005 &#58;= space&#40;10&#41;,  ;\n      cGet1101 &#58;= space&#40;10&#41;,  ; //Row 11\n      cGet1102 &#58;= space&#40;10&#41;,  ;\n      cGet1103 &#58;= space&#40;10&#41;,  ;\n      cGet1104 &#58;= space&#40;10&#41;,  ;\n      cGet1105 &#58;= space&#40;10&#41;\n\n   define dialog oDlg from 0, 0 TO 25, 70 ;\n         title &quot;Scroll dialog&quot;            ;\n         Style nor&#40; WS_VSCROLL, WS_HSCROLL &#41;\n\n   @ 9,17 bitmap file &quot;&#46;&#46;\\bitmaps\\pic1&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,32 bitmap file &quot;&#46;&#46;\\bitmaps\\pic2&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,47 bitmap file &quot;&#46;&#46;\\bitmaps\\pic3&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,62 bitmap file &quot;&#46;&#46;\\bitmaps\\pic4&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,77 bitmap file &quot;&#46;&#46;\\bitmaps\\pic5&#46;bmp&quot; of oDlg size 120,148 adjust\n\n   @ 21*13,02*8 say &quot;Customer &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 23*13,02*8 say &quot;P&#46;O&#46; #   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 25*13,02*8 say &quot;Style No&#46;&quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 27*13,02*8 say &quot;Fabrics  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 29*13,02*8 say &quot;Fob      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 31*13,02*8 say &quot;Q\'TY     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 33*13,02*8 say &quot;DEL&#46;     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 35*13,02*8 say &quot;MAKER    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 37*13,02*8 say &quot;QTA      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 39*13,02*8 say &quot;SIZE     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 41*13,02*8 say &quot;Size B/D &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 43*13,02*8 say &quot;REMARKS  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   @ 21*13,17*8 say &quot;Venture  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,32*8 say &quot;Sears    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,47*8 say &quot;Kohl\'s   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,62*8 say &quot;Kiss     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,77*8 say &quot;K-MART   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   //-* Row 1\n   @ 23*13,17*8 get cGet0101 size 120,26 of oDlg update pixel\n   @ 23*13,32*8 get cGet0102 size 120,26 of oDlg update pixel\n   @ 23*13,47*8 get cGet0103 size 120,26 of oDlg update pixel\n   @ 23*13,62*8 get cGet0104 size 120,26 of oDlg update pixel\n   @ 23*13,77*8 get cGet0105 size 120,26 of oDlg update pixel\n\n   //-* Row 2\n   @ 25*13,17*8 get cGet0201 size 120,26 of oDlg update pixel\n   @ 25*13,32*8 get cGet0202 size 120,26 of oDlg update pixel\n   @ 25*13,47*8 get cGet0203 size 120,26 of oDlg update pixel\n   @ 25*13,62*8 get cGet0204 size 120,26 of oDlg update pixel\n   @ 25*13,77*8 get cGet0205 size 120,26 of oDlg update pixel\n\n   //-* Row 3\n   @ 27*13,17*8 get cGet0301 size 120,26 of oDlg update pixel\n   @ 27*13,32*8 get cGet0302 size 120,26 of oDlg update pixel\n   @ 27*13,47*8 get cGet0303 size 120,26 of oDlg update pixel\n   @ 27*13,62*8 get cGet0304 size 120,26 of oDlg update pixel\n   @ 27*13,77*8 get cGet0305 size 120,26 of oDlg update pixel\n\n   //-* Row 4\n   @ 29*13,17*8 get cGet0401 size 120,26 of oDlg update pixel\n   @ 29*13,32*8 get cGet0402 size 120,26 of oDlg update pixel\n   @ 29*13,47*8 get cGet0403 size 120,26 of oDlg update pixel\n   @ 29*13,62*8 get cGet0404 size 120,26 of oDlg update pixel\n   @ 29*13,77*8 get cGet0405 size 120,26 of oDlg update pixel\n\n   //-* Row 5\n   @ 31*13,17*8 get cGet0501 size 120,26 of oDlg update pixel\n   @ 31*13,32*8 get cGet0502 size 120,26 of oDlg update pixel\n   @ 31*13,47*8 get cGet0503 size 120,26 of oDlg update pixel\n   @ 31*13,62*8 get cGet0504 size 120,26 of oDlg update pixel\n   @ 31*13,77*8 get cGet0505 size 120,26 of oDlg update pixel\n\n   //-* Row 6\n   @ 33*13,17*8 get cGet0601 size 120,26 of oDlg update pixel\n   @ 33*13,32*8 get cGet0602 size 120,26 of oDlg update pixel\n   @ 33*13,47*8 get cGet0603 size 120,26 of oDlg update pixel\n   @ 33*13,62*8 get cGet0604 size 120,26 of oDlg update pixel\n   @ 33*13,77*8 get cGet0605 size 120,26 of oDlg update pixel\n\n   //-* Row 7\n   @ 35*13,17*8 get cGet0701 size 120,26 of oDlg update pixel\n   @ 35*13,32*8 get cGet0702 size 120,26 of oDlg update pixel\n   @ 35*13,47*8 get cGet0703 size 120,26 of oDlg update pixel\n   @ 35*13,62*8 get cGet0704 size 120,26 of oDlg update pixel\n   @ 35*13,77*8 get cGet0705 size 120,26 of oDlg update pixel\n\n   //-* Row 8\n   @ 37*13,17*8 get cGet0801 size 120,26 of oDlg update pixel\n   @ 37*13,32*8 get cGet0802 size 120,26 of oDlg update pixel\n   @ 37*13,47*8 get cGet0803 size 120,26 of oDlg update pixel\n   @ 37*13,62*8 get cGet0804 size 120,26 of oDlg update pixel\n   @ 37*13,77*8 get cGet0805 size 120,26 of oDlg update pixel\n\n   //-* Row 9\n   @ 39*13,17*8 get cGet0901 size 120,26 of oDlg update pixel\n   @ 39*13,32*8 get cGet0902 size 120,26 of oDlg update pixel\n   @ 39*13,47*8 get cGet0903 size 120,26 of oDlg update pixel\n   @ 39*13,62*8 get cGet0904 size 120,26 of oDlg update pixel\n   @ 39*13,77*8 get cGet0905 size 120,26 of oDlg update pixel\n\n   //-* Row 10\n   @ 41*13,17*8 get cGet1001 size 120,26 of oDlg update pixel\n   @ 41*13,32*8 get cGet1002 size 120,26 of oDlg update pixel\n   @ 41*13,47*8 get cGet1003 size 120,26 of oDlg update pixel\n   @ 41*13,62*8 get cGet1004 size 120,26 of oDlg update pixel\n   @ 41*13,77*8 get cGet1005 size 120,26 of oDlg update pixel\n\n   //-* Row 11\n   @ 43*13,17*8 get cGet1101 size 120,26 of oDlg update pixel\n   @ 43*13,32*8 get cGet1102 size 120,26 of oDlg update pixel\n   @ 43*13,47*8 get cGet1103 size 120,26 of oDlg update pixel\n   @ 43*13,62*8 get cGet1104 size 120,26 of oDlg update pixel\n   @ 43*13,77*8 get cGet1105 size 120,26 of oDlg update pixel\n\n\n   @ 50,20 button &quot;&amp;Ok&quot; size 80,20 of oDlg   ;\n      action &#40;MsgInfo&#40;&quot;You click OK button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41;\n   @ 50,40 button &quot;&amp;Cancel&quot; size 80,20 of oDlg  ;\n      action &#40;MsgInfo&#40;&quot;You click Cancel button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41;\n\n   ACTIVATE dialog oDlg    ;\n      ON INIT &#40; TScrDlg&#40;&#41;&#58;New&#40;oDlg,1,40,1,70&#41; &#41;\n\nRETURN&#40; NIL &#41;\n\n//============================================================================\n// FileName &#58; SCROLL&#46;PRG\n// Purpose  &#58;  dialog Scroll Class\n// Author   &#58; Eric Yang\n// Update History &#58;\n//      Date     Contents\n//    ---------- ---------------------------------------------------------------\n//    1997&#46;02&#46;01\n//\n//============================================================================\n#include &quot;FiveWin&#46;ch&quot;\n\n#ifndef TRUE\n   #define TRUE              &#46;T&#46;\n   #define FALSE             &#46;F&#46;\n#endif\n\nCLASS TScrDlg\n\n   DATA oDlg\n   DATA nVPos,nHPos\n\n   METHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR\n   METHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\n   //-*------------------------------------------------------------\n   METHOD VScroll&#40;&#41;\n   METHOD VScrollThumb&#40;&#41;\n   METHOD VScrollTrack&#40;&#41;\n   METHOD VScrollPgDown&#40;&#41;\n   METHOD VScrollPgUp&#40;&#41;\n   //-*-----------------------------\n   METHOD HScroll&#40;&#41;\n   METHOD HScrollThumb&#40;&#41;\n   METHOD HScrollTrack&#40;&#41;\n   METHOD HScrollPgDown&#40;&#41;\n   METHOD HScrollPgUp&#40;&#41;\n\nENDCLASS\n\nMETHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg\n   &#58;&#58;nVPos &#58;= 0\n   &#58;&#58;nHPos &#58;= 0\n   &#58;&#58;oDlg &#58;= oDlg\n   &#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\nRETURN Self\n\n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg\nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125;\n   //--------------------------------------------------\n   //-* Vertical Scroll Bar\n//   ? &#58;&#58;oDlg&#58;oVSCroll=NIL\n   if &#58;&#58;oDlg&#58;oVScroll != NIL\n//    ? nV1,nV2\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41;\n      &#58;&#58;nVPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oDlg&#58;oVScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //--------------------------------------------------\n   //-* Horizontal Scroll Bar\n   if &#58;&#58;oDlg&#58;oHScroll != NIL\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41;\n      &#58;&#58;nHPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oDlg&#58;oHScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //&#58;&#58;oDlg&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125;\n   //--------------------------------------------------\nRETURN&#40; NIL &#41;\n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41;\n   //MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41;\n   //if nKey == K_ENTER\n   //   goMainDlg&#58;End&#40;&#41;\n   //   lRetVal &#58;= TRUE\n   //endif\n//RETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Vertical Scroll Bar\nMETHOD VScroll&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;  &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax, &#58;&#58;oDlg&#58;oVScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin,&#58;&#58;oDlg&#58;oVScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Horizontal Scroll Bar\nMETHOD HScroll&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax, &#58;&#58;oDlg&#58;oHScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin,&#58;&#58;oDlg&#58;oHScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=* End of File =================================================\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn\n\n[/code:345e53qu]\n\nAbraços,\n\nRossine.','',0,'AIA=','345e53qu',1,0,'',104,0,0),(24119,5451,7,2,0,'87.218.146.106',1167478529,1,0,1,1,1,1,'','','Elías,\n\nGracias e igualmente para ti <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2fibibc7',1,0,'',2,0,0),(24120,5435,3,2,0,'87.218.146.106',1167478635,1,0,1,1,1,1,'','','Armando,\n\nWhat controls do you have in the dialog ? Please show the RC dialog','',0,'AIA=','3k0af51l',1,0,'',2,0,0),(24121,5466,3,397,0,'201.1.167.48',1167479656,1,0,1,0,1,1,'','','Amiguinhos\n\nRossini e Maurilio:\n\nCreio que chegamos perto do que desejamos sim.\n\nCabeças pensantes quando se juntam não importando a distancia trazem bons resultados e o resultado deste post nos da a seguinte caracteristica:\n\nMeu código de exemplo:\n\nO primordial é definir a DIALOGo com [b:195jilep]STYLE nor( WS_VSCROLL, WS_HSCROLL )[/b:195jilep](obrigado Rossini) e modificar o tamanho da mesma através de [b:195jilep]oDlg:SetSize( ..., ... )[/b:195jilep].\n\nSalve como TestDScr.PRG.\n\n[code:195jilep]\n#include &quot;FiveWin&#46;ch&quot; \n\n#define D_WIDTH           4 \n#define D_HEIGHT          13 \n\nFUNCTION Main&#40;&#41; \n   LOCAL oDlg \n   DEFINE DIALOG oDlg RESOURCE &quot;dlgComScroll&quot; ;  \n         TITLE &quot;Scroll dialog&quot;            ; \n         STYLE nor&#40; WS_VSCROLL, WS_HSCROLL &#41; \n\n   ACTIVATE DIALOG oDlg ; \n      ON INIT &#40; TScrDlg&#40;&#41;&#58;New&#40;oDlg,1,65,1,70&#41;, oDlg&#58;SetSize&#40; 560, 550 &#41; &#41; \nRETURN&#40; NIL &#41; \n\n#include &quot;TScrollD&#46;prg&quot;\n[/code:195jilep]\n\nMinha tela de dialogo:\n\nO pulo-do-gato esta en acrescentar a propriedade [b:195jilep]WS_VSCROLL[/b:195jilep].\n\nSalve como TestDScr.RC.\n\n[code:195jilep]\ndlgComScroll DIALOG 50, 23, 365, 812\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_VSCROLL | WS_SYSMENU\nCAPTION &quot;Ficha Cadastral&quot;\nFONT 7, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Dados Pessoais&quot;, -1, 4, 4, 348, 165, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados do Conjuge&quot;, -1, 4, 171, 348, 89, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados do Avalista&quot;, -1, 4, 263, 348, 113, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados Profissionais do Financiado&quot;, 247, 4, 379, 348, 164, WS_BORDER | WS_GROUP\n LTEXT &quot;Referencias Pessoais e Bancarias&quot;, -1, 4, 546, 348, 87, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados da Operação&quot;, 282, 4, 702, 348, 89, WS_BORDER | WS_GROUP\n LTEXT &quot;Veiculo&quot;, -1, 4, 635, 348, 64, WS_BORDER | WS_GROUP\n CONTROL &quot;101&quot;, 101, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 23, 196, 12\n CONTROL &quot;102&quot;, 102, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 23, 66, 12\n CONTROL &quot;103&quot;, 103, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 280, 23, 66, 12\n CONTROL &quot;104&quot;, 104, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 49, 66, 12\n CONTROL &quot;105&quot;, 105, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 81, 49, 66, 12\n CONTROL &quot;106&quot;, 106, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 151, 49, 56, 12\n CONTROL &quot;107&quot;, 107, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 49, 66, 12\n CHECKBOX &quot;Fem&quot;, 108, 282, 48, 30, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Mas&quot;, 109, 315, 48, 30, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CONTROL &quot;110&quot;, 110, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 75, 66, 12\n CONTROL &quot;111&quot;, 111, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 81, 75, 126, 12\n CONTROL &quot;112&quot;, 112, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 75, 136, 12\n CONTROL &quot;113&quot;, 113, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 100, 241, 12\n CONTROL &quot;114&quot;, 114, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 100, 92, 12\n CONTROL &quot;115&quot;, 115, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 126, 184, 12\n CONTROL &quot;116&quot;, 116, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 126, 55, 12\n CONTROL &quot;117&quot;, 117, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 126, 92, 12\n CONTROL &quot;118&quot;, 118, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 151, 111, 12\n CONTROL &quot;119&quot;, 119, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 151, 113, 12\n CONTROL &quot;120&quot;, 120, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 241, 151, 66, 12\n CHECKBOX &quot;Propria&quot;, 121, 309, 141, 39, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Alugada&quot;, 122, 309, 152, 40, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CONTROL &quot;123&quot;, 123, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 192, 194, 12\n CONTROL &quot;124&quot;, 124, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 208, 192, 138, 12\n CONTROL &quot;125&quot;, 125, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 217, 131, 12\n CONTROL &quot;126&quot;, 126, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 145, 217, 101, 12\n CONTROL &quot;127&quot;, 127, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 249, 217, 97, 12\n CONTROL &quot;128&quot;, 128, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 242, 184, 12\n CONTROL &quot;129&quot;, 129, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 242, 55, 12\n CONTROL &quot;130&quot;, 130, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 242, 92, 12\n CONTROL &quot;131&quot;, 131, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 282, 197, 12\n CONTROL &quot;132&quot;, 132, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 282, 66, 12\n CONTROL &quot;133&quot;, 133, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 280, 282, 66, 12\n CONTROL &quot;134&quot;, 134, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 307, 173, 12\n CONTROL &quot;135&quot;, 135, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 307, 65, 12\n CONTROL &quot;136&quot;, 136, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 307, 92, 12\n CONTROL &quot;137&quot;, 137, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 332, 134, 12\n CONTROL &quot;138&quot;, 138, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 148, 332, 36, 12\n CONTROL &quot;139&quot;, 139, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 332, 65, 12\n CONTROL &quot;140&quot;, 140, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 332, 92, 12\n CONTROL &quot;141&quot;, 141, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 358, 184, 12\n CONTROL &quot;142&quot;, 142, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 358, 55, 12\n CONTROL &quot;143&quot;, 143, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 358, 92, 12\n CONTROL &quot;144&quot;, 144, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 400, 194, 12\n CONTROL &quot;145&quot;, 145, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 208, 400, 138, 12\n CONTROL &quot;146&quot;, 146, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 425, 112, 12\n CONTROL &quot;147&quot;, 147, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 425, 59, 12\n CONTROL &quot;148&quot;, 148, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 425, 65, 12\n CONTROL &quot;149&quot;, 149, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 425, 92, 12\n CONTROL &quot;150&quot;, 150, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 450, 241, 12\n CONTROL &quot;151&quot;, 151, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 450, 92, 12\n CONTROL &quot;152&quot;, 152, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 475, 184, 12\n CONTROL &quot;153&quot;, 153, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 475, 55, 12\n CONTROL &quot;154&quot;, 154, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 475, 92, 12\n CONTROL &quot;155&quot;, 155, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 500, 194, 12\n CONTROL &quot;156&quot;, 156, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 208, 500, 138, 12\n CONTROL &quot;157&quot;, 157, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 525, 111, 12\n CONTROL &quot;158&quot;, 158, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 525, 113, 12\n CHECKBOX &quot;Residencial&quot;, 159, 289, 515, 54, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Comercial&quot;, 160, 289, 526, 51, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CONTROL &quot;161&quot;, 161, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 565, 197, 12\n CONTROL &quot;162&quot;, 162, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 565, 66, 12\n CONTROL &quot;163&quot;, 163, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 280, 565, 66, 12\n CONTROL &quot;164&quot;, 164, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 590, 241, 12\n CONTROL &quot;165&quot;, 165, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 253, 590, 93, 12\n CONTROL &quot;166&quot;, 166, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 615, 112, 12\n CONTROL &quot;167&quot;, 167, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 615, 59, 12\n CONTROL &quot;168&quot;, 168, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 615, 65, 12\n CONTROL &quot;169&quot;, 169, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 615, 92, 12\n CONTROL &quot;170&quot;, 170, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 655, 96, 12\n CONTROL &quot;171&quot;, 171, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 109, 655, 39, 12\n CONTROL &quot;172&quot;, 172, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 151, 655, 56, 12\n CONTROL &quot;173&quot;, 173, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 655, 66, 12\n CONTROL &quot;174&quot;, 174, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 279, 655, 68, 12\n CONTROL &quot;175&quot;, 175, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 681, 184, 12\n CONTROL &quot;176&quot;, 176, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 681, 55, 12\n CONTROL &quot;177&quot;, 177, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 681, 92, 12\n CONTROL &quot;178&quot;, 178, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 723, 131, 12\n CONTROL &quot;179&quot;, 179, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 145, 723, 101, 12\n CONTROL &quot;180&quot;, 180, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 249, 723, 97, 12\n CONTROL &quot;181&quot;, 181, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 748, 78, 12\n CONTROL &quot;182&quot;, 182, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 90, 748, 53, 12\n CONTROL &quot;183&quot;, 183, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 145, 748, 63, 12\n CONTROL &quot;184&quot;, 184, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 748, 66, 12\n CONTROL &quot;185&quot;, 185, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 279, 748, 68, 12\n CONTROL &quot;186&quot;, 186, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 773, 158, 12\n CONTROL &quot;187&quot;, 187, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 170, 773, 176, 12\n LTEXT &quot;Nome&quot;, -1, 9, 13, 197, 10\n LTEXT &quot;Data Nasc&#46;&quot;, -1, 209, 13, 68, 9\n LTEXT &quot;Estado Civil&quot;, -1, 279, 13, 68, 10\n LTEXT &quot;CPF&quot;, -1, 9, 39, 68, 9\n LTEXT &quot;RG&quot;, -1, 80, 39, 68, 10\n LTEXT &quot;Orgao Expeditor&quot;, -1, 150, 39, 56, 9\n LTEXT &quot;Emissão&quot;, -1, 209, 39, 68, 10\n LTEXT &quot;Sexo&quot;, -1, 279, 39, 68, 10\n LTEXT &quot;Naturalidade&quot;, -1, 10, 65, 45, 10\n LTEXT &quot;Pai&quot;, -1, 80, 65, 32, 10\n LTEXT &quot;Mae&quot;, -1, 209, 65, 32, 10\n LTEXT &quot;Endereco Residencial&quot;, -1, 10, 90, 78, 9\n LTEXT &quot;Bairro&quot;, -1, 253, 90, 32, 10\n LTEXT &quot;Cidade&quot;, -1, 10, 116, 32, 9\n LTEXT &quot;UF&quot;, -1, 196, 116, 32, 10\n LTEXT &quot;CEP&quot;, -1, 253, 116, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 10, 141, 32, 10\n LTEXT &quot;Celular&quot;, -1, 124, 141, 32, 10\n LTEXT &quot;Tempo Resid&#46;&quot;, -1, 240, 141, 49, 10\n LTEXT &quot;Nome&quot;, -1, 10, 182, 32, 10\n LTEXT &quot;CPF&quot;, -1, 207, 182, 32, 10\n LTEXT &quot;RG&quot;, -1, 10, 207, 32, 10\n LTEXT &quot;Emissao&quot;, -1, 144, 207, 32, 10\n LTEXT &quot;Data Nasc&#46;&quot;, -1, 248, 207, 57, 10\n LTEXT &quot;Empresa onde trabalha&quot;, -1, 10, 232, 32, 9\n LTEXT &quot;Telefone&quot;, -1, 196, 232, 32, 10\n LTEXT &quot;Salario&quot;, -1, 253, 232, 32, 10\n LTEXT &quot;Nome&quot;, -1, 9, 272, 197, 10\n LTEXT &quot;Data Nasc&#46;&quot;, -1, 209, 272, 68, 9\n LTEXT &quot;CPF&quot;, -1, 279, 272, 68, 10\n LTEXT &quot;Endereco&quot;, -1, 10, 297, 32, 9\n LTEXT &quot;Bairro&quot;, -1, 186, 297, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 253, 297, 32, 10\n LTEXT &quot;Cidade&quot;, -1, 10, 322, 32, 9\n LTEXT &quot;CEP&quot;, -1, 186, 322, 32, 10\n LTEXT &quot;RG&quot;, -1, 253, 322, 32, 10\n LTEXT &quot;UF&quot;, -1, 147, 322, 32, 10\n LTEXT &quot;Empresa onde trabalha&quot;, -1, 10, 348, 32, 9\n LTEXT &quot;Telefone&quot;, -1, 196, 348, 32, 10\n LTEXT &quot;Renda avalista&quot;, -1, 253, 348, 55, 10\n LTEXT &quot;Empresa onde trabalha&quot;, -1, 10, 390, 32, 10\n LTEXT &quot;CNPJ&quot;, -1, 207, 390, 32, 10\n LTEXT &quot;Cargo&quot;, -1, 10, 415, 32, 9\n LTEXT &quot;Renda&quot;, -1, 186, 415, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 253, 415, 32, 10\n LTEXT &quot;Admissão&quot;, -1, 124, 415, 32, 10\n LTEXT &quot;Endereco &quot;, -1, 10, 440, 78, 9\n LTEXT &quot;Bairro&quot;, -1, 253, 440, 32, 10\n LTEXT &quot;Cidade&quot;, -1, 10, 465, 32, 9\n LTEXT &quot;UF&quot;, -1, 196, 465, 32, 10\n LTEXT &quot;CEP&quot;, -1, 253, 465, 32, 10\n LTEXT &quot;Empresa Anterior&quot;, -1, 10, 490, 71, 10\n LTEXT &quot;CNPJ&quot;, -1, 207, 490, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 10, 515, 32, 10\n LTEXT &quot;Celular&quot;, -1, 124, 515, 32, 10\n LTEXT &quot;End&#46;Cobrança&quot;, -1, 240, 515, 49, 10\n LTEXT &quot;Banco&quot;, -1, 9, 555, 197, 10\n LTEXT &quot;Agencia&quot;, -1, 209, 555, 68, 9\n LTEXT &quot;Conta Corrente&quot;, -1, 279, 555, 68, 10\n LTEXT &quot;Endereco &quot;, -1, 9, 580, 78, 9\n LTEXT &quot;Telefone&quot;, -1, 252, 580, 32, 10\n LTEXT &quot;Nome&#40;Pessoais&#41;&quot;, -1, 10, 605, 64, 9\n LTEXT &quot;Comercial/Pessoal&quot;, -1, 186, 605, 66, 10\n LTEXT &quot;Telefone&quot;, -1, 253, 605, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 124, 605, 32, 10\n LTEXT &quot;Marca&quot;, -1, 9, 645, 68, 9\n LTEXT &quot;Ano&quot;, -1, 109, 645, 24, 10\n LTEXT &quot;Modelo&quot;, -1, 150, 645, 56, 9\n LTEXT &quot;Placa&quot;, -1, 209, 645, 68, 10\n LTEXT &quot;Renavam&quot;, -1, 279, 645, 68, 10\n LTEXT &quot;Chassi&quot;, -1, 10, 671, 32, 9\n LTEXT &quot;Cor&quot;, -1, 196, 671, 32, 10\n LTEXT &quot;Combustivel&quot;, -1, 253, 671, 48, 10\n LTEXT &quot;Valor&quot;, -1, 10, 713, 32, 10\n LTEXT &quot;Entrada&quot;, -1, 144, 713, 32, 10\n LTEXT &quot;Valor do Credito Financiado&quot;, -1, 248, 713, 96, 10\n LTEXT &quot;Valor da TAC&quot;, -1, 9, 738, 68, 9\n LTEXT &quot;Tabela&quot;, -1, 90, 738, 24, 10\n LTEXT &quot;Coeficiente&quot;, -1, 144, 738, 56, 9\n LTEXT &quot;Prazo&quot;, -1, 209, 738, 68, 10\n LTEXT &quot;Carencia&quot;, -1, 279, 738, 68, 10\n LTEXT &quot;Valor da Parcela&quot;, -1, 9, 763, 71, 10\n LTEXT &quot;Primeiro Vencimento&quot;, -1, 169, 763, 73, 10\n PUSHBUTTON &quot;Confirma Operação&quot;, 88, 192, 794, 76, 14\n PUSHBUTTON &quot;Cancela Operação&quot;, 89, 270, 794, 82, 14\n&#125;\n[/code:195jilep]\n\nCodigo completo da TScrollD.PRG\n\n[code:195jilep]\n//============================================================================ \n// FileName &#58; SCROLL&#46;PRG \n// Purpose  &#58;  dialog Scroll Class \n// Author   &#58; Eric Yang \n// Update History &#58; \n//      Date     Contents \n//    ---------- --------------------------------------------------------------- \n//    1997&#46;02&#46;01 \n//    2006&#46;29&#46;12 By Rossini - Brasil \n//============================================================================ \n#include &quot;FiveWin&#46;ch&quot; \n\n#ifndef TRUE \n   #define TRUE              &#46;T&#46; \n   #define FALSE             &#46;F&#46; \n#endif \n\nCLASS TScrDlg \n\n   DATA oDlg \n   DATA nVPos,nHPos \n\n   METHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR \n   METHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; \n   //-*------------------------------------------------------------ \n   METHOD VScroll&#40;&#41; \n   METHOD VScrollThumb&#40;&#41; \n   METHOD VScrollTrack&#40;&#41; \n   METHOD VScrollPgDown&#40;&#41; \n   METHOD VScrollPgUp&#40;&#41; \n   //-*----------------------------- \n   METHOD HScroll&#40;&#41; \n   METHOD HScrollThumb&#40;&#41; \n   METHOD HScrollTrack&#40;&#41; \n   METHOD HScrollPgDown&#40;&#41; \n   METHOD HScrollPgUp&#40;&#41; \n\nENDCLASS \n\nMETHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg \n   &#58;&#58;nVPos &#58;= 0 \n   &#58;&#58;nHPos &#58;= 0 \n   &#58;&#58;oDlg &#58;= oDlg \n   &#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41; \nRETURN Self \n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg \nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125; \n   //-------------------------------------------------- \n   //-* Vertical Scroll Bar \n//   ? &#58;&#58;oDlg&#58;oVSCroll=NIL \n   if &#58;&#58;oDlg&#58;oVScroll != NIL \n//    ? nV1,nV2 \n      &#58;&#58;oDlg&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41; \n      &#58;&#58;nVPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep   &#58;= 10 \n      //&#58;&#58;oDlg&#58;oVScroll&#58;lReDraw &#58;= TRUE \n      &#58;&#58;oDlg&#58;oVScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125; \n   endif \n   //-------------------------------------------------- \n   //-* Horizontal Scroll Bar \n   if &#58;&#58;oDlg&#58;oHScroll != NIL \n      &#58;&#58;oDlg&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41; \n      &#58;&#58;nHPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep   &#58;= 10 \n      //&#58;&#58;oDlg&#58;oHScroll&#58;lReDraw &#58;= TRUE \n      &#58;&#58;oDlg&#58;oHScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125; \n   endif \n   //&#58;&#58;oDlg&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125; \n   //-------------------------------------------------- \nRETURN&#40; NIL &#41; \n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41; \n   //MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41; \n   //if nKey == K_ENTER \n   //   goMainDlg&#58;End&#40;&#41; \n   //   lRetVal &#58;= TRUE \n   //endif \n//RETURN&#40; NIL &#41; \n\n//================================================================= \n//-* Vertical Scroll Bar \nMETHOD VScroll&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41; \n      SysRefresh&#40;&#41; \n\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40;  &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nVPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax, &#58;&#58;oDlg&#58;oVScroll&#58;nMax, nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nVPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin \n      nNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin,&#58;&#58;oDlg&#58;oVScroll&#58;nMin,nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\n//================================================================= \n//-* Horizontal Scroll Bar \nMETHOD HScroll&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nHPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax, &#58;&#58;oDlg&#58;oHScroll&#58;nMax, nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nHPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin \n      nNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin,&#58;&#58;oDlg&#58;oHScroll&#58;nMin,nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\n//=* End of File ================================================= \n\nprocedure AppSys   // Xbase++ requirement \nreturn \n[/code:195jilep]\n\nBom com isto consegui colocar minha super dialog com scroll agora vou buscar colocar dentro de folder e pages.\n\nAté lá...\n\n[b:195jilep]Para Nosotros: Esta es la modificacione de la TScroll.PRG original para permitir hacer Scroll en dialogos.[/b:195jilep]\n\n@braços :?)','',0,'QIA=','195jilep',1,0,'',397,0,0),(24122,5467,2,774,0,'200.72.74.51',1167484555,1,0,1,1,1,1,'','','buenos dias\n\ngracias por las respuestas :\n\nrevise el .PRG q mencionaste antonio, pero no es lo que necesito :\n\nmira lo que yo quiero hacer es lo siguiente:: tratare de detallarlo lo mejor posible.\n\ntengo una DBF ( uso CDX, database) que contiene las facturas de los clientes indexadas con folio( ojo existe un registro para cada folio de cada factura en dnd incluyo el total de la misma, el detalle de los productos de la factura esta en otra DBF, que no me interesa manejar)\n\n\nen la otra DBF tengo las pagos(pueden existir varios registros por cada factura, dependiendo de si se hacen abonos y se paga total) tambien esta indexada por folio..\n\nlo que pretendo hacer es un DIALOG que solo contenga un BROWSE que me muestre ::\n\nFOLIO        CLIENTE         TOTAL FACTURA     ABONO     SALDO\n----------------------------------------------------------------------------\n\nlas primeras colunmas:\n\nFOLIO: es facil la extraigo directamente de la primera DBF\nCLIENTE: igual cosa\nTOTAL FACTURA:  igual cosa\n\nel problemita es como extraigo la columna ABONO\n\nnose si no comprendo el concepto de como trabaja el BROWSE o LISTBOX\ncomo le digo a la PC cuando defino el BROWSE que por cada registro de la primera DBF, filtro la segunda DBF y suma cuanto lleva de abono o pagos y ese valor lo muestre en la colunma ABONO\n\nOjo yo uso SCOPES para dar los limites de inicio y termino de una DBF,, por ser estos mas rapidos que Set Filter..\n\n\nALGUNA AYUDA AL RESPECTO\n\n\nGRACIAS::','',0,'QIA=','3343bawb',1,0,'',774,0,0),(24124,5446,3,2,0,'87.218.146.73',1167499505,1,0,1,1,1,1,'','','Silvio, \n\nYou may check where the mouse is clicked and change the mouse cursor to a one that also paints the portion that you want to move. When the mouse is released then you check where it is and change the drawing accordingly.','',0,'QIA=','5gusspdk',1,0,'',2,0,0),(24125,5466,3,397,0,'201.1.167.48',1167499969,1,0,1,0,1,1,'','','Amiguinhos\n\nAgora ta bom. Com este exemplo da pra colocar o [b:11sy3fgf]scroll[/b:11sy3fgf] belezinha em nossas pages, não testei com folder mas isto fico por conta de voces.\n\nOs codigos falarão por si mesmo. Desculpe-me pelo calculo maluco colocado na classe TPages.\n\nCodigo do TestPage.prg:\n[code:11sy3fgf]\n// Testing the new FiveWin TPages Class\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Folder&#46;ch&quot;\n\n#define COMSCROLL &#46;T&#46;\n#define SEMSCROLL &#46;F&#46;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oSDlg, oPags\n   local lTest  &#58;= &#46;t&#46;\n   local lTest2 &#58;= &#46;t&#46;\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oSDlg RESOURCE &quot;Main&quot;\n\n   REDEFINE PAGES oPags ID 110 OF oSDlg ;\n      DIALOGS &quot;dlgConnect&quot;, &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; \n\n   // The same as we do with folders\n   REDEFINE CHECKBOX lTest  ID 110 OF oPags&#58;aDialogs&#91; 1 &#93;\n\n   REDEFINE CHECKBOX lTest2 ID 120 OF oPags&#58;aDialogs&#91; 1 &#93;\n\n   REDEFINE BUTTON ID 120 OF oSDlg ACTION oPags&#58;GoPrev&#40;&#41;\n\n   REDEFINE BUTTON ID 130 OF oSDlg ACTION oPags&#58;GoNext&#40;&#41;\n\n   /* ************ DEFINO QUAIS PAGINAS TEM SCROLL ************ */\n   oPags&#58;aScrolls &#58;= &#123; SEMSCROLL, SEMSCROLL, SEMSCROLL, COMSCROLL &#125;\n   /* ************ DEFINO QUAIS PAGINAS TEM SCROLL ************ */\n\n   ACTIVATE DIALOG oSDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n#include &quot;TScrollD&#46;prg&quot;\n#include &quot;TPages&#46;prg&quot;\n[/code:11sy3fgf]\n\nCodigo de TestPage.RC:\n[code:11sy3fgf]\n#include &quot;WinApi&#46;ch&quot;\n\nmain DIALOG 9, 21, 391, 302\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Testing the new TPages Class&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;TPages&quot;, 110, &quot;TPages&quot;, WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 6, 3, 380, 272\n PUSHBUTTON &quot;&lt; &amp;Voltar&quot;, 120, 238, 281, 42, 14\n PUSHBUTTON &quot;&amp;Avançar &gt;&quot;, 130, 280, 281, 41, 14\n PUSHBUTTON &quot;Cancela&quot;, 2, 337, 281, 45, 14\n&#125;\n\none DIALOG 29, 50, 187, 124\nSTYLE WS_CHILD | WS_VISIBLE\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;This is the first page&quot;, -1, 60, 13, 67, 8\n CHECKBOX &quot;Checkbox&quot;, 110, 37, 45, 44, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Checkbox&quot;, 120, 37, 56, 45, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Checkbox&quot;, 130, 37, 67, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;\n\ntwo DIALOG 29, 50, 187, 124\nSTYLE WS_CHILD | WS_VISIBLE\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;This is the second page&quot;, -1, 60, 13, 78, 8\n LISTBOX 110, 15, 28, 69, 68, LBS_STANDARD\n LISTBOX 120, 93, 29, 70, 72, LBS_STANDARD\n&#125;\n\nthree DIALOG 29, 50, 187, 122\nSTYLE WS_CHILD | WS_VISIBLE\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;This is the third page&quot;, -1, 60, 13, 72, 8\n SCROLLBAR 110, 21, 80, 154, 9\n EDITTEXT 120, 34, 51, 57, 12\n CHECKBOX &quot;Checkbox&quot;, 130, 104, 50, 46, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;\n\ndlgConnect DIALOG 50, 23, 365, 825\nSTYLE WS_CHILD | WS_VISIBLE | WS_VSCROLL\nFONT 7, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Dados Pessoais&quot;, -1, 4, 4, 348, 165, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados do Conjuge&quot;, -1, 4, 171, 348, 89, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados do Avalista&quot;, -1, 4, 263, 348, 113, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados Profissionais do Financiado&quot;, 247, 4, 379, 348, 164, WS_BORDER | WS_GROUP\n LTEXT &quot;Referencias Pessoais e Bancarias&quot;, -1, 4, 546, 348, 87, WS_BORDER | WS_GROUP\n LTEXT &quot;Dados da Operação&quot;, 282, 4, 702, 348, 89, WS_BORDER | WS_GROUP\n LTEXT &quot;Veiculo&quot;, -1, 4, 635, 348, 64, WS_BORDER | WS_GROUP\n CONTROL &quot;101&quot;, 101, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 23, 196, 12\n CONTROL &quot;102&quot;, 102, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 23, 66, 12\n CONTROL &quot;103&quot;, 103, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 280, 23, 66, 12\n CONTROL &quot;104&quot;, 104, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 49, 66, 12\n CONTROL &quot;105&quot;, 105, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 81, 49, 66, 12\n CONTROL &quot;106&quot;, 106, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 151, 49, 56, 12\n CONTROL &quot;107&quot;, 107, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 49, 66, 12\n CHECKBOX &quot;Fem&quot;, 108, 282, 48, 30, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Mas&quot;, 109, 315, 48, 30, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CONTROL &quot;110&quot;, 110, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 75, 66, 12\n CONTROL &quot;111&quot;, 111, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 81, 75, 126, 12\n CONTROL &quot;112&quot;, 112, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 75, 136, 12\n CONTROL &quot;113&quot;, 113, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 100, 241, 12\n CONTROL &quot;114&quot;, 114, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 100, 92, 12\n CONTROL &quot;115&quot;, 115, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 126, 184, 12\n CONTROL &quot;116&quot;, 116, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 126, 55, 12\n CONTROL &quot;117&quot;, 117, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 126, 92, 12\n CONTROL &quot;118&quot;, 118, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 151, 111, 12\n CONTROL &quot;119&quot;, 119, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 151, 113, 12\n CONTROL &quot;120&quot;, 120, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 241, 151, 66, 12\n CHECKBOX &quot;Propria&quot;, 121, 309, 141, 39, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Alugada&quot;, 122, 309, 152, 40, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CONTROL &quot;123&quot;, 123, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 192, 194, 12\n CONTROL &quot;124&quot;, 124, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 208, 192, 138, 12\n CONTROL &quot;125&quot;, 125, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 217, 131, 12\n CONTROL &quot;126&quot;, 126, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 145, 217, 101, 12\n CONTROL &quot;127&quot;, 127, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 249, 217, 97, 12\n CONTROL &quot;128&quot;, 128, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 242, 184, 12\n CONTROL &quot;129&quot;, 129, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 242, 55, 12\n CONTROL &quot;130&quot;, 130, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 242, 92, 12\n CONTROL &quot;131&quot;, 131, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 282, 197, 12\n CONTROL &quot;132&quot;, 132, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 282, 66, 12\n CONTROL &quot;133&quot;, 133, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 280, 282, 66, 12\n CONTROL &quot;134&quot;, 134, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 307, 173, 12\n CONTROL &quot;135&quot;, 135, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 307, 65, 12\n CONTROL &quot;136&quot;, 136, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 307, 92, 12\n CONTROL &quot;137&quot;, 137, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 332, 134, 12\n CONTROL &quot;138&quot;, 138, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 148, 332, 36, 12\n CONTROL &quot;139&quot;, 139, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 332, 65, 12\n CONTROL &quot;140&quot;, 140, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 332, 92, 12\n CONTROL &quot;141&quot;, 141, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 358, 184, 12\n CONTROL &quot;142&quot;, 142, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 358, 55, 12\n CONTROL &quot;143&quot;, 143, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 358, 92, 12\n CONTROL &quot;144&quot;, 144, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 400, 194, 12\n CONTROL &quot;145&quot;, 145, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 208, 400, 138, 12\n CONTROL &quot;146&quot;, 146, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 425, 112, 12\n CONTROL &quot;147&quot;, 147, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 425, 59, 12\n CONTROL &quot;148&quot;, 148, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 425, 65, 12\n CONTROL &quot;149&quot;, 149, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 425, 92, 12\n CONTROL &quot;150&quot;, 150, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 450, 241, 12\n CONTROL &quot;151&quot;, 151, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 450, 92, 12\n CONTROL &quot;152&quot;, 152, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 475, 184, 12\n CONTROL &quot;153&quot;, 153, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 475, 55, 12\n CONTROL &quot;154&quot;, 154, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 475, 92, 12\n CONTROL &quot;155&quot;, 155, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 500, 194, 12\n CONTROL &quot;156&quot;, 156, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 208, 500, 138, 12\n CONTROL &quot;157&quot;, 157, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 525, 111, 12\n CONTROL &quot;158&quot;, 158, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 525, 113, 12\n CHECKBOX &quot;Residencial&quot;, 159, 289, 515, 54, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Comercial&quot;, 160, 289, 526, 51, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CONTROL &quot;161&quot;, 161, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 565, 197, 12\n CONTROL &quot;162&quot;, 162, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 565, 66, 12\n CONTROL &quot;163&quot;, 163, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 280, 565, 66, 12\n CONTROL &quot;164&quot;, 164, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 590, 241, 12\n CONTROL &quot;165&quot;, 165, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 253, 590, 93, 12\n CONTROL &quot;166&quot;, 166, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 615, 112, 12\n CONTROL &quot;167&quot;, 167, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 125, 615, 59, 12\n CONTROL &quot;168&quot;, 168, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 187, 615, 65, 12\n CONTROL &quot;169&quot;, 169, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 615, 92, 12\n CONTROL &quot;170&quot;, 170, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 655, 96, 12\n CONTROL &quot;171&quot;, 171, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 109, 655, 39, 12\n CONTROL &quot;172&quot;, 172, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 151, 655, 56, 12\n CONTROL &quot;173&quot;, 173, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 655, 66, 12\n CONTROL &quot;174&quot;, 174, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 279, 655, 68, 12\n CONTROL &quot;175&quot;, 175, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 681, 184, 12\n CONTROL &quot;176&quot;, 176, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 197, 681, 55, 12\n CONTROL &quot;177&quot;, 177, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 254, 681, 92, 12\n CONTROL &quot;178&quot;, 178, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 11, 723, 131, 12\n CONTROL &quot;179&quot;, 179, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 145, 723, 101, 12\n CONTROL &quot;180&quot;, 180, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 249, 723, 97, 12\n CONTROL &quot;181&quot;, 181, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 748, 78, 12\n CONTROL &quot;182&quot;, 182, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 90, 748, 53, 12\n CONTROL &quot;183&quot;, 183, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 145, 748, 63, 12\n CONTROL &quot;184&quot;, 184, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 210, 748, 66, 12\n CONTROL &quot;185&quot;, 185, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 279, 748, 68, 12\n CONTROL &quot;186&quot;, 186, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 10, 773, 158, 12\n CONTROL &quot;187&quot;, 187, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 170, 773, 176, 12\n LTEXT &quot;Nome&quot;, -1, 9, 13, 197, 10\n LTEXT &quot;Data Nasc&#46;&quot;, -1, 209, 13, 68, 9\n LTEXT &quot;Estado Civil&quot;, -1, 279, 13, 68, 10\n LTEXT &quot;CPF&quot;, -1, 9, 39, 68, 9\n LTEXT &quot;RG&quot;, -1, 80, 39, 68, 10\n LTEXT &quot;Orgao Expeditor&quot;, -1, 150, 39, 56, 9\n LTEXT &quot;Emissão&quot;, -1, 209, 39, 68, 10\n LTEXT &quot;Sexo&quot;, -1, 279, 39, 68, 10\n LTEXT &quot;Naturalidade&quot;, -1, 10, 65, 45, 10\n LTEXT &quot;Pai&quot;, -1, 80, 65, 32, 10\n LTEXT &quot;Mae&quot;, -1, 209, 65, 32, 10\n LTEXT &quot;Endereco Residencial&quot;, -1, 10, 90, 78, 9\n LTEXT &quot;Bairro&quot;, -1, 253, 90, 32, 10\n LTEXT &quot;Cidade&quot;, -1, 10, 116, 32, 9\n LTEXT &quot;UF&quot;, -1, 196, 116, 32, 10\n LTEXT &quot;CEP&quot;, -1, 253, 116, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 10, 141, 32, 10\n LTEXT &quot;Celular&quot;, -1, 124, 141, 32, 10\n LTEXT &quot;Tempo Resid&#46;&quot;, -1, 240, 141, 49, 10\n LTEXT &quot;Nome&quot;, -1, 10, 182, 32, 10\n LTEXT &quot;CPF&quot;, -1, 207, 182, 32, 10\n LTEXT &quot;RG&quot;, -1, 10, 207, 32, 10\n LTEXT &quot;Emissao&quot;, -1, 144, 207, 32, 10\n LTEXT &quot;Data Nasc&#46;&quot;, -1, 248, 207, 57, 10\n LTEXT &quot;Empresa onde trabalha&quot;, -1, 10, 232, 32, 9\n LTEXT &quot;Telefone&quot;, -1, 196, 232, 32, 10\n LTEXT &quot;Salario&quot;, -1, 253, 232, 32, 10\n LTEXT &quot;Nome&quot;, -1, 9, 272, 197, 10\n LTEXT &quot;Data Nasc&#46;&quot;, -1, 209, 272, 68, 9\n LTEXT &quot;CPF&quot;, -1, 279, 272, 68, 10\n LTEXT &quot;Endereco&quot;, -1, 10, 297, 32, 9\n LTEXT &quot;Bairro&quot;, -1, 186, 297, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 253, 297, 32, 10\n LTEXT &quot;Cidade&quot;, -1, 10, 322, 32, 9\n LTEXT &quot;CEP&quot;, -1, 186, 322, 32, 10\n LTEXT &quot;RG&quot;, -1, 253, 322, 32, 10\n LTEXT &quot;UF&quot;, -1, 147, 322, 32, 10\n LTEXT &quot;Empresa onde trabalha&quot;, -1, 10, 348, 32, 9\n LTEXT &quot;Telefone&quot;, -1, 196, 348, 32, 10\n LTEXT &quot;Renda avalista&quot;, -1, 253, 348, 55, 10\n LTEXT &quot;Empresa onde trabalha&quot;, -1, 10, 390, 32, 10\n LTEXT &quot;CNPJ&quot;, -1, 207, 390, 32, 10\n LTEXT &quot;Cargo&quot;, -1, 10, 415, 32, 9\n LTEXT &quot;Renda&quot;, -1, 186, 415, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 253, 415, 32, 10\n LTEXT &quot;Admissão&quot;, -1, 124, 415, 32, 10\n LTEXT &quot;Endereco &quot;, -1, 10, 440, 78, 9\n LTEXT &quot;Bairro&quot;, -1, 253, 440, 32, 10\n LTEXT &quot;Cidade&quot;, -1, 10, 465, 32, 9\n LTEXT &quot;UF&quot;, -1, 196, 465, 32, 10\n LTEXT &quot;CEP&quot;, -1, 253, 465, 32, 10\n LTEXT &quot;Empresa Anterior&quot;, -1, 10, 490, 71, 10\n LTEXT &quot;CNPJ&quot;, -1, 207, 490, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 10, 515, 32, 10\n LTEXT &quot;Celular&quot;, -1, 124, 515, 32, 10\n LTEXT &quot;End&#46;Cobrança&quot;, -1, 240, 515, 49, 10\n LTEXT &quot;Banco&quot;, -1, 9, 555, 197, 10\n LTEXT &quot;Agencia&quot;, -1, 209, 555, 68, 9\n LTEXT &quot;Conta Corrente&quot;, -1, 279, 555, 68, 10\n LTEXT &quot;Endereco &quot;, -1, 9, 580, 78, 9\n LTEXT &quot;Telefone&quot;, -1, 252, 580, 32, 10\n LTEXT &quot;Nome&#40;Pessoais&#41;&quot;, -1, 10, 605, 64, 9\n LTEXT &quot;Comercial/Pessoal&quot;, -1, 186, 605, 66, 10\n LTEXT &quot;Telefone&quot;, -1, 253, 605, 32, 10\n LTEXT &quot;Telefone&quot;, -1, 124, 605, 32, 10\n LTEXT &quot;Marca&quot;, -1, 9, 645, 68, 9\n LTEXT &quot;Ano&quot;, -1, 109, 645, 24, 10\n LTEXT &quot;Modelo&quot;, -1, 150, 645, 56, 9\n LTEXT &quot;Placa&quot;, -1, 209, 645, 68, 10\n LTEXT &quot;Renavam&quot;, -1, 279, 645, 68, 10\n LTEXT &quot;Chassi&quot;, -1, 10, 671, 32, 9\n LTEXT &quot;Cor&quot;, -1, 196, 671, 32, 10\n LTEXT &quot;Combustivel&quot;, -1, 253, 671, 48, 10\n LTEXT &quot;Valor&quot;, -1, 10, 713, 32, 10\n LTEXT &quot;Entrada&quot;, -1, 144, 713, 32, 10\n LTEXT &quot;Valor do Credito Financiado&quot;, -1, 248, 713, 96, 10\n LTEXT &quot;Valor da TAC&quot;, -1, 9, 738, 68, 9\n LTEXT &quot;Tabela&quot;, -1, 90, 738, 24, 10\n LTEXT &quot;Coeficiente&quot;, -1, 144, 738, 56, 9\n LTEXT &quot;Prazo&quot;, -1, 209, 738, 68, 10\n LTEXT &quot;Carencia&quot;, -1, 279, 738, 68, 10\n LTEXT &quot;Valor da Parcela&quot;, -1, 9, 763, 71, 10\n LTEXT &quot;Primeiro Vencimento&quot;, -1, 169, 763, 73, 10\n PUSHBUTTON &quot;Confirma Operação&quot;, 88, 192, 794, 76, 14\n PUSHBUTTON &quot;Cancela Operação&quot;, 89, 270, 794, 82, 14\n&#125;\n[/code:11sy3fgf]\n\nCodigo do TPages.PRG modificado para aceitar scroll. Podemos usa-la enquanto o Antonio Linhares não nos presenteia com a sua versão final.\n\nCodigo do TPages.PRG:\n[code:11sy3fgf]\n// TPages Class&#46; Used for managing a group of child DialogBoxes\n//\n// Modified Version to alow scroll with pages in 2006-12-30\n// Rochinha - Brasil - email&#58;irochinha@itelefonica&#46;com&#46;br\n//\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define COLOR_BTNFACE  15\n\n#ifdef __XPP__\n   #define Super &#58;&#58;TControl\n   #define New   _New\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLASS TPages FROM TControl\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   DATA   nOption\n   DATA   aDialogs\n   DATA   aScrolls // By Rochinha - Brasil\n\n   METHOD New&#40; nTop, nLeft, nBottom, nRight, oWnd &#41; CONSTRUCTOR\n\n   METHOD Redefine&#40; nId, oWnd, aDialogs, nOption, bChange, oFont &#41; CONSTRUCTOR\n\n   METHOD AddPage&#40; oControl &#41;\n\n   #ifndef __CLIPPER__\n      METHOD cToChar&#40;&#41; INLINE Super&#58;cToChar&#40; &quot;SysTabControl32&quot; &#41;\n   #endif\n\n   METHOD Initiate&#40; hDlg &#41; INLINE Super&#58;Initiate&#40; hDlg &#41;, &#58;&#58;Default&#40;&#41;\n\n   METHOD Default&#40;&#41;\n\n   METHOD DelPage&#40; nPage &#41;\n\n   METHOD Destroy&#40;&#41;\n   \n   METHOD SetOption&#40; nOption &#41;\n\n   METHOD GoPrev&#40;&#41; INLINE If&#40; &#58;&#58;nOption &gt; 1,;\n                              &#58;&#58;SetOption&#40; &#58;&#58;nOption - 1 &#41;,&#41;\n\n   METHOD GoNext&#40;&#41; INLINE If&#40; &#58;&#58;nOption &lt; Len&#40; &#58;&#58;aDialogs &#41;,;\n                              &#58;&#58;SetOption&#40; &#58;&#58;nOption + 1 &#41;,&#41;\n   METHOD GotFocus&#40;&#41;\n\n   METHOD ReSize&#40; nType, nWidth, nHeight &#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; nTop, nLeft, nBottom, nRight, oWnd &#41; CLASS TPages\n\n   DEFAULT nTop &#58;= 0, nLeft &#58;= 0, nBottom &#58;= 100, nRight &#58;= 100,;\n           oWnd &#58;= GetWndDefault&#40;&#41;\n\n   #ifdef __XPP__\n      #undef New\n   #endif\n\n   &#58;&#58;nTop     = nTop\n   &#58;&#58;nLeft    = nLeft\n   &#58;&#58;nBottom  = nBottom\n   &#58;&#58;nRight   = nRight\n   &#58;&#58;oWnd     = oWnd\n   &#58;&#58;nStyle   = nOr&#40; WS_CHILD, WS_VISIBLE &#41;\n   &#58;&#58;nClrPane = GetSysColor&#40; COLOR_BTNFACE &#41;\n   &#58;&#58;nOption  = 1\n   &#58;&#58;aDialogs = &#123;&#125;\n   &#58;&#58;lDrag    = &#46;f&#46;\n\n   #ifdef __XPP__\n      DEFAULT &#58;&#58;lRegistered &#58;= &#46;f&#46;\n   #endif\n\n   &#58;&#58;Register&#40;&#41;\n\n   if ! Empty&#40; &#58;&#58;oWnd&#58;hWnd &#41;\n      #ifdef __CLIPPER__\n         &#58;&#58;Create&#40;&#41;\n      #else       \n         &#58;&#58;Create&#40; &quot;SysTabControl32&quot; &#41;\n      #endif   \n      &#58;&#58;oWnd&#58;AddControl&#40; Self &#41;\n   else\n      &#58;&#58;oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD Redefine&#40; nId, oWnd, aDialogs, nOption, bChange, oFont &#41; CLASS TPages\n\n   local n, oDlg\n\n   DEFAULT nOption &#58;= 1 , oFont &#58;= &#58;&#58;GetFont&#40;&#41;\n\n   &#58;&#58;nId     = nId\n   &#58;&#58;oWnd    = oWnd\n   &#58;&#58;nOption = nOption\n   &#58;&#58;bChange = bChange\n   &#58;&#58;aDialogs = Array&#40; Len&#40; aDialogs &#41; &#41;\n   &#58;&#58;oFont  &#58;= oFont\n\n   &#58;&#58;Register&#40;&#41;\n   &#58;&#58;SetColor&#40; 0, GetSysColor&#40; COLOR_BTNFACE &#41; &#41;\n\n   for n = 1 to Len&#40; aDialogs &#41;\n      DEFINE DIALOG oDlg OF Self RESOURCE aDialogs&#91; n &#93; FONT Self&#58;oFont ;\n         STYLE nor&#40; WS_VSCROLL, WS_HSCROLL &#41; // Added By Rochinha - Brasil\n      &#58;&#58;aDialogs&#91; n &#93; = oDlg\n   next\n\n   oWnd&#58;DefControl&#40; Self &#41;\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD AddPage&#40; oControl &#41; CLASS TPages\n\n   AAdd&#40; &#58;&#58;aDialogs, oControl &#41;\n\n   if &#58;&#58;oWnd&#58;hWnd != nil\n      #ifndef __XPP__\n         oControl&#58;nWidth  = &#58;&#58;nWidth&#40;&#41;\n         oControl&#58;nHeight = &#58;&#58;nHeight&#40;&#41;\n      #else\n         WndWidth&#40; oControl&#58;hWnd, &#58;&#58;nWidth&#40;&#41; &#41;\n         WndHeight&#40; oControl&#58;hWnd, &#58;&#58;nHeight&#40;&#41; &#41;\n      #endif\n\n      ACTIVATE DIALOG oControl NOWAIT ;\n         ON INIT &#40; SysWait&#40;&#41;, oControl&#58;Move&#40; 0, 0 &#41; &#41; ;\n         VALID &#46;f&#46;\n\n      #ifndef __CLIPPER__\n         if IsAppThemed&#40;&#41;\n            oControl&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oControl&#58;hWnd, hDC &#41;, 1 &#125;\n         endif\n      #endif\n\n      &#58;&#58;SetOption&#40; Len&#40; &#58;&#58;aDialogs &#41; &#41;\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Default&#40;&#41; CLASS TPages\n\n   local n, oDlg\n   \n   for n = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      oDlg = &#58;&#58;aDialogs&#91; n &#93;\n\n      /* ************ MODIFIED BY Rochinha - Brasil ************* */\n      if &#58;&#58;aScrolls&#91; n &#93; = &#46;t&#46;\n         /* ************ CALCULO MALUCO ************ */\n         nMHeight &#58;= &#40;&#40;&#40;&#58;&#58;nTop+&#58;&#58;nHeight&#41;*10&#41;/&#58;&#58;nHeight&#41;/10\n         ACTIVATE DIALOG oDlg NOWAIT ;\n         ON INIT &#40; SysWait&#40;&#41;, oDlg&#58;Move&#40; 0, 0 &#41;,;\n                   TScrDlg&#40;&#41;&#58;New&#40;oDlg,0,&#58;&#58;nHeight/16,0,&#58;&#58;nWidth/8&#41;,;\n                   oDlg&#58;SetSize&#40; &#58;&#58;nWidth, &#40;&#58;&#58;nHeight/&#40;nMHeight*3&#41;&#41; &#41; &#41; ;\n         VALID &#46;f&#46;\n         /* ************ CALCULO MALUCO ************ */\n      else\n         ACTIVATE DIALOG oDlg NOWAIT ;\n         ON INIT &#40; SysWait&#40;&#41;, oDlg&#58;Move&#40; 0, 0 &#41; &#41;;\n         VALID &#46;f&#46;         // to avoid exiting pressing Esc !!!\n      endif\n      /* ************ MODIFIED BY Rochinha - Brasil ************* */\n\n      #ifndef __CLIPPER__\n         if IsAppThemed&#40;&#41;\n            oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n         endif\n      #endif\n\n      oDlg&#58;Hide&#40;&#41;\n   next\n\n   if Len&#40; &#58;&#58;aDialogs &#41; &gt; 0\n      if &#58;&#58;nOption &lt;= Len&#40; &#58;&#58;aDialogs &#41;\n         &#58;&#58;aDialogs&#91; &#58;&#58;nOption &#93;&#58;Show&#40;&#41;\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD DelPage&#40; nPage &#41; CLASS TPages\n\n   local nNewPage\n\n   DEFAULT nPage &#58;= &#58;&#58;nOption\n\n   if nPage &gt; 0 &#46;and&#46; nPage &lt;= Len&#40; &#58;&#58;aDialogs &#41;\n      &#58;&#58;aDialogs&#91; nPage &#93;&#58;bValid = &#123; || &#46;t&#46; &#125;\n      &#58;&#58;aDialogs&#91; nPage &#93;&#58;End&#40;&#41;\n      SysRefresh&#40;&#41;\n      ADel&#40; &#58;&#58;aDialogs, nPage &#41;\n      ASize&#40; &#58;&#58;aDialogs, Len&#40; &#58;&#58;aDialogs &#41; - 1 &#41;\n      if Len&#40; &#58;&#58;aDialogs &#41; &gt; 0\n         nNewPage = If&#40; nPage &gt; 1, nPage - 1, 1 &#41;\n         if &#58;&#58;bChange != nil\n            Eval&#40; &#58;&#58;bChange, nNewPage, nPage &#41;\n         endif\n         &#58;&#58;nOption  = nNewPage\n         &#58;&#58;aDialogs&#91; nNewPage &#93;&#58;Show&#40;&#41;\n         &#58;&#58;aDialogs&#91; nNewPage &#93;&#58;SetFocus&#40;&#41;\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Destroy&#40;&#41; CLASS TPages\n\n   local n\n\n   for n = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      &#58;&#58;aDialogs&#91; n &#93;&#58;bValid = &#123; || &#46;t&#46; &#125;\n      &#58;&#58;aDialogs&#91; n &#93;&#58;End&#40;&#41;\n      SysRefresh&#40;&#41;\n   next\n\nreturn Super&#58;Destroy&#40;&#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD GotFocus&#40;&#41; CLASS TPages\n\n   Super&#58;GotFocus&#40;&#41;\n\n   if &#58;&#58;nOption &lt;= Len&#40; &#58;&#58;aDialogs &#41;\n      &#58;&#58;aDialogs&#91; &#58;&#58;nOption &#93;&#58;SetFocus&#40;&#41;\n   endif\n\nreturn 0\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetOption&#40; nOption &#41; CLASS TPages\n\n   local nOldOption\n\n   if nOption &gt; 0 &#46;and&#46; nOption != &#58;&#58;nOption\n      if &#58;&#58;nOption &lt;= Len&#40; &#58;&#58;aDialogs &#41; &#46;and&#46; &#58;&#58;aDialogs&#91; &#58;&#58;nOption &#93; != nil\n         &#58;&#58;aDialogs&#91; &#58;&#58;nOption &#93;&#58;Hide&#40;&#41;\n      endif\n      nOldOption = &#58;&#58;nOption\n      &#58;&#58;nOption  = nOption\n      if nOption &lt;= Len&#40; &#58;&#58;aDialogs &#41; &#46;and&#46; &#58;&#58;aDialogs&#91; nOption &#93; != nil\n         if &#58;&#58;bChange != nil\n            Eval&#40; &#58;&#58;bChange, nOption, nOldOption &#41;\n         endif\n         &#58;&#58;aDialogs&#91; nOption &#93;&#58;Show&#40;&#41;\n         &#58;&#58;aDialogs&#91; nOption &#93;&#58;SetFocus&#40;&#41;\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Resize&#40; nType, nWidth, nHeight &#41; CLASS TPages\n\n   local n\n\n   DEFAULT nWidth &#58;= &#58;&#58;nWidth&#40;&#41;, nHeight &#58;= &#58;&#58;nHeight\n\n   for n = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      &#58;&#58;aDialogs&#91; n &#93;&#58;SetSize&#40; nWidth, nHeight &#41;\n   next\n\nreturn Super&#58;Resize&#40; nType, nWidth, nHeight &#41;\n\n//----------------------------------------------------------------------------//\n[/code:11sy3fgf]','',0,'QIA=','11sy3fgf',1,0,'',397,0,0),(24126,5466,3,2,0,'87.218.146.73',1167508415,1,0,1,1,1,1,'','','Rochinha,\n\nThanks!\n\nAnyhow we have planned a different implementation','',0,'QIA=','2a4epibc',1,0,'',2,0,0),(24127,5471,3,904,0,'196.25.255.246',1167512773,1,0,1,1,1,0,'','Bad Image','Many of the samples I try to run give an error to this effect:\n(This one when I try to run AUTOLAY.EXE in the samples folder after successfully building it with xBuild.bat)\n\nThe application or DLL c:\\FWH\\SAMPLES\\BXCC.dll is not a valid Windows image. Please check this against your installation diskette.\n\nPlease help.','',0,'QIA=','23n70wc3',1,0,'',904,0,0),(24128,5472,3,904,0,'198.54.202.210',1167512922,1,0,1,1,1,0,'','Help with .RC files / resources etc.','I have no clue how to work with .RC files and resource editors etc. Please can someone tell me where I can learn how this all works.','',0,'QIA=','2q92fxk0',1,0,'',904,0,0),(24129,5466,3,397,0,'201.1.164.183',1167517338,1,0,1,0,1,1,'','','Thanks\n\nWe will be waiting with certainty. But while this…','',0,'QIA=','2fox0u4e',1,0,'',397,0,0),(24130,5469,6,439,0,'200.125.48.252',1167519053,1,0,1,1,1,1,'','','Raymundo,\n\nAl menos esta fué la última versión que estuvo publicada en su sitio.\n\nEs la que uso.','',0,'QIA=','7xp40jbj',1,0,'',439,0,0),(24132,5446,3,49,0,'62.13.172.78',1167522775,1,0,1,1,1,1,'','','thanks but i not know how make it \ncan you create a small test to work on ?','',0,'QIA=','1837phrm',1,0,'',49,0,0),(24133,4183,3,49,0,'62.13.172.78',1167523175,1,0,1,1,1,1,'','','dear josè \nI sent you yesterday my solution for fsdi2006\nNow it run ok but there is a small error also ...\nyour email @gmail send me error where i can send the solution source files ?','',0,'QIA=','3590d7hz',1,0,'',49,0,0),(24134,5472,3,2,0,'87.218.146.73',1167537347,1,0,1,1,1,1,'','','Ollie,\n\nWelcome to the forums. Here you have some quick tutorial videos:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/VIRDQ41X/workshop1.zip.html\">http://www.uploading.com/files/VIRDQ41X ... 1.zip.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/EKWXSWE1/workshop2.zip.html\">http://www.uploading.com/files/EKWXSWE1 ... 2.zip.html</a><!-- m --> \n\nFrom the FWH docs:\n[code:es6tyvpf]\nWhat are resources&#58;\n\nResources are one of the most important parts of Windows programming&#46;To understand them you should consider that your program can be divided in two parts&#58;\n\n·   What the program does -behaviors-\n·   The different pieces used to build the program -Data-\n\nOnce again we are talking about Object Oriented Programming&#46; Obviously, both parts are highly dependant upon each other&#46;\n\nSome of the pieces used to build your program may be stored in a separate &#46;DLL file or even inside the EXE file&#46; Those pieces, let\'s call them resources, can be managed and changed externally from the program&#46; This is probably the most important reason for the birth of what is called &quot;Visual Programming&quot;&#46;\n\n&quot;Visual Programming&quot; is mainly about resources&#46; The programmer may draw resources using the mouse and certain design programs&#46; In the next stage, those resources get related to some behaviors&#46; From that moment you are building, and using, Objects!\n\nFiveWin has been designed to obtain high performance from Windows resources&#46; FiveWin proposes a way of programming based on resource usage&#46; We are convinced that drawing screens and other resources is the easiest and quickest way to develop a program&#46; Thanks to this technology you can easily build \'Data-driven\' programs&#46; This means that your user interface is based on external and modifiable data&#46;  You can   easily modify a screen and use it without having to recompile or relink&#46;\n\nThe most important part of this process is to understand how to build an Object from a resource, and how to define -redefine- its  behaviors&#46; There are three main ways to build an Object in xBase&#58;\n\n1&#46; @ nRow, nCol &#46;&#46;&#46;\n\nThis kind of construction builds an Object and displays it&#46; When you do, @ &#46;&#46;&#46; GET &#46;&#46;&#46; you are building a GET Object with Clipper, and you also display it&#46; This way of building Objects is not based on resources&#46;\n\n2&#46; DEFINE &lt;ObjectClass&gt; &lt;ObjectName&gt;\n\nThis is the main way of building an Object in xBase&#46; The Object is created, but it is not shown&#46; To display it and activate it, you do&#58;\n\n   ACTIVATE &lt;ObjectClass&gt; &lt;ObjectName&gt;\n\nThis system was proposed and used by dBase IV, and it is going to be the most important way to build Objects in xBase&#46;This system it is also not based on resources&#46;\n\n3&#46; REDEFINE &lt;ObjectClass&gt; &lt;ObjectName&gt; ID &lt;Identifier&gt;\n\nIn this case you are using resources&#46; The Object is already created in the resource, but you need a way to modify and define its behaviors&#46; This is why the REDEFINE command is going to be the most important command to modify behaviors in xBase&#46;\n\nOnce you have redefined its behaviors, the Object will be activated using the command&#58;\n\nACTIVATE &lt;ObjectClass&gt; &lt;ObjectName&gt;\n\nIn many cases the Objects are contained by a \'container\' Object&#46;This would be the case of a Window or a Dialog Box which contains certain controls&#46; To activate those controls it is not necessary to use the command ACTIVATE &#46;&#46;&#46; for each of them&#46;  It is enough to ACTIVATE the container Object&#46;\n\nLets review now, step by step, the process you should follow to use resources in your programs&#58;\n\n1&#46;   You need a resource designer&#46; We like to use Borland\'s Resource WorkShop&#46; This designer comes with Borland\'s products for Windows, such as C++ and Turbo Pascal&#46; You should contact Borland or a software distributor and get one!  You\'ll thank us!\n\n2&#46;   Using that designer you may start drawing the different screens of your program&#46; This is a standard system for Windows programming&#46; The screens you design must be stored inside a DLL&#46; In the \\FiveWin\\DLL directory there is an \'empty\' DLL you may use to store your screens in&#46; &#40;make a copy for every new project&#41;&#46; You should tell the resource editor to \'open\' and use that DLL&#46; Select open file  and type the name of that DLL&#46;\n\n3&#46;  When you design your screens you should give a name to each of them&#46;   This name will let you select them from inside your program&#46; You should specify a unique identifier, a number, for each element of a screen&#46; This number will be used by the REDEFINE command to tell FiveWin which Object you are using&#46;\n\nPractice with your resource editor to understand it and to become familiar with its usage&#46;\n\nAfter that, from inside your program you should tell FiveWin that your program is going to use resources&#46; To do this,  use the following command at the beginning of your program&#58;\n\n#include \'FiveWin&#46;ch\'\n\nSET RESOURCES TO &lt;DLLFileName&gt;\n\nAnd when you are about to end the execution of your program, you should tell FiveWin that you have finished using them&#58;\n\nSET RESOURCE TO  // Release the resource\n\nTo use any of the Dialog Boxes you have defined in your DLL all you   have to do is the following&#58;\n\nfunction TestDialogBox&#40;&#41;\n\n   local oDlg\n   local cName &#58;= &quot;FiveWin&quot;\n\n   DEFINE DIALOG oDlg NAME &quot;MyDialog&quot;\n\n   REDEFINE GET ID 110 VAR cName OF oDlg\n\n   REDEFINE BUTTON ID 120 OF oDlg ACTION nMsgBox&#40; &quot;Hello&quot; &#41;\n\n   REDEFINE BUTTON ID 130 OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg\n\nReturn nil\n\nIn this example we are building a Dialog Box from the screen &quot;MyDialog&quot; stored inside the DLL we have specified in a SET RESOURCES TO &quot;MyDLL&#46;dll&quot; earlier in the program&#46;\n\nIn that screen there is a GET Object and two PushButtons &#40;Command Buttons&#41;&#46; From the resource editor we have assigned a value of 110 to the GET control and 120 to the first button and 130 to the second&#46;\n\nRemember that the syntax for redefining is&#58;\n   REDEFINE &lt;ObjectClass&gt; &lt;ObjectName&gt; ;\n   ID &lt;Identifier&gt; ;\n   OF &lt;ContainerObjectName&gt; ;\n   &#46;&#46;&#46;\n\nEvery kind of control will have certain extensions typical to this command&#46; As an example, BUTTON has the clause ACTION to let us specify what the Object will do when the button is pressed&#46; \n[/code:es6tyvpf]','',0,'AIA=','es6tyvpf',1,0,'',2,0,0),(24135,5469,6,492,0,'189.147.23.225',1167539940,1,0,1,1,1,1,'','','Jose, Gracias por el dato\n\nEntonces, manos a la obra !  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos','',0,'AIA=','3gkzjd3r',1,0,'',492,0,0),(24136,5446,3,2,0,'87.218.146.73',1167545290,1,0,1,1,1,1,'','','Silvio,\n\nPlease implement the PolyPoligon() calls to draw the different parts of your drawing first, thanks\n\nThen I will show you how to move them,','',0,'AIA=','3suzv3mo',1,0,'',2,0,0),(24137,5468,6,2,0,'87.218.146.73',1167545561,1,0,1,1,1,1,'','','Mario,\n\nElimina la línea 265 de la Clase TSay:\n\n::VarPut( ... )','',0,'AIA=','1i7cs1uw',1,0,'',2,0,0),(24138,5471,3,2,0,'87.218.146.73',1167545718,1,0,1,1,1,1,'','','Ollie,\n\nFWH 32 bits samples and FW 16 bits samples are in the same folder. \n\nSome samples are just for FW 16 bits and thats why you get the valid image error. Simply skip them, thanks','',0,'AIA=','j23nmyn8',1,0,'',2,0,0),(24139,5467,2,2,0,'87.218.146.73',1167545953,1,0,1,1,1,1,'','','Al definir un browse puedes especificar una función para calcular el valor de una columna. Esa función debe hacer los calculos necesarios y devolver el valor que necesites:\n\n... FIELDS ..., MiFuncion(), ..., ...\n\nfunction MiFuncion()\n\n   ...\n\nreturn &lt;ValorCalculado&gt;','',0,'AIA=','4srbsh8o',1,0,'',2,0,0),(24140,5443,3,289,0,'82.167.41.97',1167551937,1,0,1,1,1,0,'','','Thank  Antonio for help me.\nI am working on Borland c source did not work with me in the required way.\nBut adjusted and became 100% see the source after the amendment.\nThank you.\nhathal.\n\n// --------- source --------------------------------------\n#include \"FiveWin.ch\"\n#include \"Struct.ch\"\n#define  HKEY_LOCAL_MACHINE      2147483650\n#define  ERROR_SUCCESS                    0 \n#define  HKEY_CURRENT_USER       2147483649        // 0x80000001\nfunction Main() \n   local hKey, cName:=\"\", uValue:=\"\", na_reg := 0\n  RegOpenKey( HKEY_LOCAL_MACHINE,; \n               \"Software\\Microsoft\\Windows\\CurrentVersion\\Run\", @hKey )\n       while RegEnumValue( hKey,na_reg++, @cName, @uValue ) == ERROR_SUCCESS\n       MsgInfo( cName,na_reg ) \n      MsgInfo( uValue )\n/      end\n      RegCloseKey( hKey ) \nreturn nil\n********************************************************************* \n# pragma BEGINDUMP\n#include &lt;windows.h&gt;\n#include \"hbapiitm.h\"\n#include \"hbvm.h\"\n#include \"hbstack.h\"\n#include \"item.api\"\n#include \"hbpcode.h\" \n#include \"hbvmpub.h\" \nHB_FUNC ( REGENUMVALUE ) // ( nKey, nIndex, @cKeyName, @uValue ) --&gt; nResult \n{  \n   BYTE value[1024 ]; \n        TCHAR szName[1024];\n        DWORD dwDataSize, dwSizeName;\n        DWORD dwSize,dwType,dwDisp;\n	LPBYTE lpData = 0;\n        char ret_value[1024];\n        int ret;\n    hb_retnl(RegEnumValue(( HKEY ) hb_parnl( 1 ), hb_parnl( 2 ), szName, &amp;dwSizeName, NULL, &amp;dwType,lpData, &amp;dwDataSize));\n    RegQueryValueEx(( HKEY ) hb_parnl( 1 ),szName , NULL, &amp;dwType, (unsigned char*)&amp;ret_value, &amp;dwSize);\n    hb_storc( ( char * ) szName, 3 );\n//  MessageBox(NULL,ret_value,\"ret_value\",MB_ICONQUESTION|MB_SYSTEMMODAL|MB_APPLMODAL|MB_TASKMODAL|MB_SETFOREGROUND|MB_TOPMOST|MB_YESNO);\n    switch( dwType ) \n   { \n      case REG_SZ:\n     strcpy(value,ret_value);\n            hb_storc( ( char * ) value, 4 ); \n            break;              \n      case REG_DWORD:\n      ret =*(( LPDWORD )  ret_value);\n            hb_stornl( ( int )  ret , 4 ); \n            break;       \n/*\nREG_MULTI_SZ:\nREG_EXPAND_SZ:\nREG_BINARY:\nREG_FULL_RESOURCE_DESCRIPTOR:\n\n*/\n   }          \n      \n }\n#pragma ENDDUMP\n// -----------------------------------------------','',0,'','2rqqsxt0',1,0,'',289,0,0),(24141,5472,3,904,0,'196.25.255.195',1167552887,1,0,1,1,1,0,'','','Fantastic Antonio !!! Very helpful.\nI\'m on my way!\n\nJust out of interest, why do you use numbers (10,20,30 etc) as Identifiers, wouldn\'t using descriptive names like (OK_button etc) be easier? (or am I missing something?)\n\nAnd how do you keep track of all the numbers while programming, do you constantly switch between the source and resource editor? Hints and Tips appreciated.\n\nOllie','',0,'','2ddcnm0s',1,0,'',904,0,0),(24142,5472,3,6,0,'82.55.208.168',1167558899,1,0,1,1,1,1,'','','[quote=&quot;Ollie&quot;:3kkumpxf]Just out of interest, why do you use numbers (10,20,30 etc) as Identifiers, wouldn\'t using descriptive names like (OK_button etc) be easier? (or am I missing something?)[/quote:3kkumpxf]\n\nYou can use identifiers but keep in mind that they don\'t exist on runtime. But this is not a real problem in most cases.\n\n[quote=&quot;Ollie&quot;:3kkumpxf]And how do you keep track of all the numbers while programming, do you constantly switch between the source and resource editor?[/quote:3kkumpxf]\n\nOnce you REDEFINEd all the controls you don\'t have to use identifier anymore, generally.\n\nEMG','',0,'gA==','3kkumpxf',1,0,'',6,0,0),(24143,5473,3,903,0,'151.2.170.147',1167562035,1,0,1,1,1,0,'','cambiare foglio in Excel','Tricarico\n\ncome faccio a cambiare foglio in EXCEL ?\n\nGrazie e auguri a tutti','',0,'gA==','1qjvw3lh',1,0,'',903,0,0),(24144,5472,3,2,0,'87.218.146.195',1167562322,1,0,1,1,1,1,'','','Ollie,\n\nYou can create a CH file to be shared from the RC and from the PRG:\n\ntest.ch\n\n#define ID_NAME       10\n#define ID_ADDRESS 20\n#define ID_OK           30\n#define ID_CANCEL   40\n\nso in the RC file you do (change 10 into ID_NAME, and so on):\n\n#include \"test.ch\"\n\nand also in the PRG (change 10 into ID_NAME, and so on):\n\n#include \"test.ch\"\n\nso when you change test.ch both the RC and the PRG will be affected.','',0,'gA==','13l4fhko',1,0,'',2,0,0),(24145,5473,3,6,0,'87.17.218.238',1167563693,1,0,1,1,1,1,'','Re: cambiare foglio in Excel','Con\n\n[code:1av6rvi1]oSheet = oExcel&#58;Sheets&#40; &quot;Foglio2&quot; &#41;[/code:1av6rvi1]\n\nEMG','',0,'AIA=','1av6rvi1',1,0,'',6,0,0),(24146,5326,3,190,0,'202.65.134.34',1167571668,1,0,1,1,1,0,'','','Hi Mr.Rossine\n\nI have this zip file already.  But I could not trace the .PRG containing the FreeImage Class.  Can you please name the .PRG?\n\nThanks\n\nRamesh Babu P','',0,'AIA=','8evdfndw',1,0,'',190,0,0),(24147,5473,3,903,0,'83.190.213.83',1167578928,1,0,1,1,1,0,'','Re: grazie','grazie per la vostra disponibilità\n\ntircarico','',0,'AIA=','3qmlyv5z',1,0,'',903,0,0),(24148,5474,6,785,0,'190.64.110.88',1167580041,1,0,1,1,1,0,'','FELIZ AÑO 2007 PARA TODOS...','Amigos:\n\nMuy felíz año 2007 para todos y gracias\npor estar aqui como siempre.\n\nRuben Fernandez.','',0,'AIA=','jgh4jtu7',1,0,'',785,0,0),(24149,5474,6,439,0,'200.125.42.167',1167585656,1,0,1,1,1,1,'','','Igualmente para tí Ruben\n\nY feliz año para todos los compañeros del foro!!!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','nw9e2vsf',1,0,'',439,0,0),(24150,5472,3,904,0,'198.54.202.210',1167591120,1,0,1,1,1,1,'','','Hi again. Thanks for the help so far.\n\nOk, I have the Dialog thing working, I seem to understand it.\n\nDoes this also apply to \'WINDOWS\' (as opposed to Dialogs) and MDI CHILDs etc.\n\nI have a Main (MDI) Window with buttons to open a CUSTOMERS (MDI)child window or a SUPPLIERS (MDI)child window. (Separate tables that the user can switch between). So these are not DIALOGs. Can I still use the power of resources to design these screens and keep the source code separate?','',0,'AIA=','g27f9bvi',1,0,'',904,0,0),(24151,5474,6,215,0,'189.136.229.94',1167591165,1,0,1,1,1,1,'','navidaadd..','Navidad, navidad... che navidad... hip, hip  \nChe guacalao, sabe horrible.  hip.   <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: -->\n¿Más Romeritos?. Esa yerba no me gusta.\nQueridos Reyes vagos, quieron que me traigan un fivewin 2. ochooo hip\nmejor no me traigan naaa. Los jugetes que le pidieron al Santa Clos los terminé pagando yo. Tons,,, no nos hagamos bueyes  hip\n\n¡Salud!','',0,'AIA=','3mhmwlbn',1,0,'',215,0,0),(24152,5472,3,2,0,'87.218.146.227',1167594598,1,0,1,1,1,1,'','','Ollie,\n\nPlease review fwh\\samples\\TestMdi4.prg','',0,'AIA=','mxzpkb4e',1,0,'',2,0,0),(24153,5472,3,904,0,'196.25.255.250',1167595611,1,0,1,1,1,1,'','','Thanks for the quick response.  That looks like what I need.','',0,'AIA=','3l5pfkkx',1,0,'',904,0,0),(24154,5474,6,45,0,'200.82.54.116',1167604365,1,0,1,1,1,0,'','Re: navidaadd..','Igualmente para todos.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','32lfrpym',1,0,'',45,0,0),(24157,5474,6,73,0,'201.132.239.113',1167618884,1,0,1,1,1,0,'','','Otro año mas, gracias por compartir sus conocimientos a todos y por aguantar a los que menos sabemos, gracias por su amistad y compañerismo, venga el 2007 con salud y trabajo, que se les cumplan sus deseos. FELIZ 2007 !!\nPaco','',0,'AIA=','i0cwd8lf',1,0,'',73,0,0),(24158,5477,3,904,0,'198.54.202.210',1167636015,1,0,1,1,1,1,'','DEBUGGING a program','I have never used debugging, even with just Clipper, but now I feel the need to.\n\nHow do I step through the program to see where I am going wrong.','',0,'AIA=','1k1h8whn',1,0,'',904,0,0),(24159,5477,3,2,0,'87.218.146.212',1167638065,1,0,1,1,1,1,'','','Ollie,\n\nThe debugger is built into [x]Harbour, and it looks and behaves as the Clipper one. In order to use it you have to compile your PRG using /b. If you are using samples\\buildh.bat then do:\n\nbuildh.bat myapp /b\n\nIn your PRG you have to add these lines:\n[code:1xkjce04]\nfunction Main&#40;&#41;\n\n   AltD&#40; 1 &#41;   // Enables the debugger&#46; Press F5 to go\n\n   MsgInfo&#40; &quot;debugger enabled&quot; &#41;\n\n   AltD&#40;&#41;      // Invokes the debugger\n\n   MsgInfo&#40; &quot;debugger invoked&quot; &#41;\n\nreturn nil\n[/code:1xkjce04]','',0,'AIA=','1xkjce04',1,0,'',2,0,0),(24160,5477,3,904,0,'198.54.202.210',1167643570,1,0,1,1,1,1,'','','Now when I compile I get \n\nUnresolved external \'HB_FUN_ALTD\' referenced from ...\n\nHow do I resolve this?','',0,'AIA=','3c3obt3n',1,0,'',904,0,0),(24161,5478,6,9,0,'85.54.247.133',1167645284,1,0,1,1,1,1,'','Grabar a un CD','He encontrado un código de un script (Fernando Muñoz) que de manera sencilla, puede realizar una grabación de datos a un CD (por ejemplo, copia de seguridad). Como script externo funciona perfectamente, pero he pensado que quizás fuera posible traducirlo a lenguaje xHabour e incluirlo directamente en nuestros programas. A continuación copio el código por si alguien pudiera traducirlo a nuestro lenguaje:\n\n--------------------------------------------------------------\nOption Explicit\n\nDim MyCDRW, MySource, MyCDNAME, MyDateCode, MyTarget\n\nDim oShell, oApp, oFolder, vbShort\n\n\' Cambia estas tres variables acorde a las especificaciones de tu sistema\n\nMyCDRW = \"E:\\\"\n\nMySource = \"c:\\FW23\" \n\nMyCDName = \"MyDocs\" \n\n\' A partir de aqui mejor no tocar nada\n\n\nSet oShell = WScript.CreateObject(\"WScript.Shell\") \n\nSet oApp = CreateObject(\"Shell.Application\") \n\n \nMyTarget = oShell.regread _\n(\"HKCU\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\\CD Burning\")\n\nSet oFolder = oApp.Namespace(MySource) \n\noApp.Namespace(MyTarget).CopyHere oFolder.Items \n\noApp.NameSpace(&amp;H11).ParseName(MyCDRW).InvokeVerbEx _ \n\"Grabar estos arc&amp;hivos en un CD\"\n\nDo until oShell.appactivate(\"Asistente para grabación de CD\") \n\nwscript.sleep 500\n\nLoop\n\nMyDateCode = mid(formatDateTime(Date, vbshort),9,2) &amp; _\nmid(formatDateTime(Date, vbshort),4,2) &amp; _\nleft(formatDateTime(Date,vbshort),2)\n\noShell.appactivate(\"Asistente para grabación de CD\")  \noShell.SendKeys MyCDName &amp; \" \" &amp; MyDateCode \n\noShell.appactivate(\"Asistente para grabación de CD\") \n\noShell.SendKeys \"{Enter}\" \n\nDo until Not oShell.appactivate(\"Asistente para grabación de CD\") \n\nwscript.sleep 500 \n\nLoop\n\nSet oApp = Nothing\n\nSet oFolder = Nothing\n\nSet oShell = Nothing\n\n-----------------------------------------------\n\nFeliz año para todos','',0,'AIA=','258v7xlv',1,0,'',9,0,0),(24162,5477,3,2,0,'87.218.146.212',1167645391,1,0,1,1,1,1,'','','Ollie,\n\nYou have to link Harbour\'s debug.lib','',0,'AIA=','3gpijb92',1,0,'',2,0,0),(24164,5477,3,904,0,'198.54.202.250',1167657802,1,0,1,1,1,1,'','','Ok, did that. But when I add the /b switch it complaints about all kinds of Unresolved Externals (e.g. _HB_FUN_RELEASEWINDOW) from MIDLEX2.LIB  (Without the switch it compiles, but of course to debug info)\n\n(I am using XMATE)\n\nAnd by the way, how would I have found out to link debug.lib without your help - there must be a way I could have found that out.  And where does one  find out what functions are in the LIB (any LIB for that matter) and how to use them etc.','',0,'AIA=','157uvxpq',1,0,'',904,0,0),(24165,5477,3,904,0,'196.25.255.246',1167664139,1,0,1,1,1,1,'','','Ok, ignore last message. I configured XMATE exactly like buildx.bat and now it compiles - /b and all.\n\nI added:\nPROCEDURE debugger()\n   AltD( 1 )   // Enables the debugger. Press F5 to go\n   MsgInfo( \"debugger enabled\" )\n   AltD()      // Invokes the debugger\n   MsgInfo( \"debugger invoked\" )\nRETURN\n\nand I run this PROCEDURE on a button. I see the \"debugger enabled\" box, but never thee the \"debugger invoked\" one and the program \'stops responding\'','',0,'AIA=','6kg7a6ld',1,0,'',904,0,0),(24166,5478,6,9,0,'85.54.247.133',1167671060,1,0,1,1,1,1,'','','Fernando,\n\nLa diferencia es que es un producto comercial y este código es abierto y\nfácil de incluir en nuestras aplicaciones.','',0,'AIA=','1uxi6i0x',1,0,'',9,0,0),(24167,5479,3,397,0,'201.1.164.251',1167672127,1,0,1,0,1,1,'','How to use TActivex from WorkShop Resources?','Hi,\n\nWhat WS control to use to run activex in resources?\n\nthanks','',0,'AIA=','sgzyq8kz',1,0,'',397,0,0),(24169,5479,3,20,0,'82.55.0.205',1167676631,1,0,1,1,1,0,'','Re: How to use TActivex from WorkShop Resources?','In the source:\n\n[code:38xzt11y]\n   DEFINE DIALOG oDlg RESOURCE &quot;GRAPH&quot;\n      oChart &#58;= TActiveX&#40;&#41;&#58;Redefine&#40; 101, oDlg, &quot;RMChart&#46;RMChartX&quot; &#41;\n      &#46;&#46;&#46;\n   ACTIVATE DIALOG oDlg CENTER\n\n[/code:38xzt11y]\n\nIn the resource file:\n\n[code:38xzt11y]\n   GRAPH DIALOG 226, 82, 333, 234\n   STYLE 0x4L | WS_POPUP | WS_CAPTION | WS_THICKFRAME\n   CAPTION &quot;Grafico&quot;\n   FONT 6, &quot;MS Sans Serif&quot;\n   &#123;\n   CONTROL &quot;&quot;, 101, &quot;TActivex&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 1, 1, 332, 196\n   &#125;\n[/code:38xzt11y]\n\nRegards\nPier Luigi','',0,'AIA=','38xzt11y',1,0,'',20,0,0),(24170,5480,7,902,0,'87.217.23.159',1167678474,1,0,1,1,1,1,'','Presentación y consulta.','Estimados foreros.\n\nLo primero presentarme: mi nombre es Manuel,  trabajo desde el 92 con Clipper, tengo un gran parque de aplicaciones instaladas funcionando (más de 50 distintas en más de 100 clientes), sigo desarrollando en Clipper cuando quiero que funcione y en Delphi cuando quiero que guste <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->.\n\nEmpiezo ahora con el apasionante tema del desarrollo de aplicaciones para PDA con Fivewin, por necesidades de algunos clientes, los cuales estan encantados con sus desarrollos actuales (Clipper) y quieren aumentar su funcionalidad y uso.\n\nHe intentado leer todo lo que habeis escrito desde que FWPPC está funcionando, y me han quedado claro dos cosas: que funciona y que tiene el mejor servicio técnico postventa que se puede tener: ustedes, con su interes y su amabilidad.\n\nA parte de todo esto, tengo dos consultas:\n\n¿Donde se puede encontrar una referencia a las funciones y comandos que están disponibles para FWPPC? \nLa que viene con la distribución es generica de Fivewin, y quizas conseguiria más rapidez si tengo una acotación de las que se pueden usar.\n\n¿Donde se puede encontrar documentación sobre las directrices a seguir en el desarrollo de una aplicación para PDA? \nYa saben: ventanas o dialogos, folders o botones, pantallas con scroll o varias pantallas, etc...\n\nUn saludo y muchas gracias.\n\nPD. Si hago alguna pregunta que parezca tonta, no se engañen: es que es tonta, y desde ya pido disculpas... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','3hp2wp0g',1,0,'',902,0,0),(24171,5481,5,421,0,'207.195.67.247',1167679385,1,0,1,1,1,0,'','Lastest Version Fivewin++?','Hi, I was just wondering what is the lastest version update for fivewin++?\n\nRegards,','',0,'AIA=','1ss1hnl8',1,0,'',421,0,0),(24172,5480,7,2,0,'87.218.146.212',1167679742,1,0,1,1,1,1,'','','Manuel,\n\nLos comandos disponibles estan en fwppc\\include\\fwce.ch','',0,'AIA=','14ykbum1',1,0,'',2,0,0),(24173,5481,5,2,0,'87.218.146.212',1167679822,1,0,1,1,1,1,'','','Gerrit,\n\nFW++ 6.12 (December 2006).\n\nPlease review <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5260\">http://fivetechsoft.com/forums/viewtopic.php?t=5260</a><!-- m -->','',0,'AIA=','3o5x55rk',1,0,'',2,0,0),(24174,5477,3,2,0,'87.218.146.212',1167680140,1,0,1,1,1,1,'','','Ollie,\n\nOps, you need to link GTWIN.lib instead of GTGUI.lib to use the debugger. \n\nThe debugger is a [x]Harbour feature, thats why its not explained in FWH docs, and also it may change or get modified in the future (there are plans to rewrite it in pure C without using PRG to improve its speed).','',0,'','3s6gm11p',1,0,'',2,0,0),(24175,5480,7,902,0,'87.217.23.159',1167682296,1,0,1,1,1,1,'','','Gracias Antonio,\n\nYa lo habia visto... \n\nPensaba que habria algo con definiciones y ejemplos, a las que estamos mal acostumbrados ultimamente... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\n\n\n[quote=&quot;Antonio Linares&quot;:162ad057]Manuel,\n\nLos comandos disponibles estan en fwppc\\include\\fwce.ch[/quote:162ad057]','',0,'gA==','162ad057',1,0,'',902,0,0),(24176,5480,7,902,0,'87.217.23.159',1167682533,1,0,1,1,1,1,'','','Por cierto, algo me explicaste el otro dia, pero hasta ahora no me he puesto con el tema.\n\n¿Donde hay información sobre las lineas RCDATA que aparecen en los ficheros RC?\n\nPor ejemplo, intuyo su uso en testmenu.rc, pero no se para que sirven en client.rc... o por lo menos, a esta hora, no soy capaz de ver su utilidad.\n\nGracias\n\n\nPD. Disculpa las preguntas tontas sobre recursos, pero es la primera vez que trabajo con ellos.','',0,'gA==','39o3lw12',1,0,'',902,0,0),(24177,5477,3,904,0,'198.54.202.210',1167683483,1,0,1,1,1,1,'','','Replaced the GTWIN.LIB with GTGUI.LIB, but then:\n\nError description: Error BASE/1131  Bound error: array dimension\n   Args:\n     [   1] = N   -8\n\nStack Calls\n===========\n   Called from:  =&gt; ARRAY(0)\n   Called from: tbrowse.prg =&gt; TDATACACHE:NEW(245)\n   Called from: tbrowse.prg =&gt; TBROWSE:NEW(780)\n   Called from: tbrowse.prg =&gt; TBROWSENEW(3589)\n   Called from: debugger.prg =&gt; TDEBUGGER:BUILDBROWSESTACK(475)\n   Called from: debugger.prg =&gt; TDEBUGGER:NEW(403)\n   Called from: debugger.prg =&gt; __DBGENTRY(156)\n   Called from: subspro3.prg =&gt; MAIN(19)\n\nLine 19 of Main is the first line of code and is simply a LOCAL variable declaration:\n\n   LOCAL oIcon, oMain_Toolbar\n\nSomething else is wrong.','',0,'','xxoiumm5',1,0,'',904,0,0),(24178,5480,7,902,0,'87.217.23.159',1167683860,1,0,1,1,1,1,'','','Me contesto solo: he visto tu explicación en este mismo foro... la hora es muy mala para un 1 de enero ... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','3aefytgn',1,0,'',902,0,0),(24179,5467,2,376,0,'201.230.184.61',1167684740,1,0,1,1,1,0,'','','Tienes varias formas para hacer lo que dices:\n\n1) Como en tu Bd de pagos debes tener varios registros necesitas una funcion que te devuelva la suma de abonos y el saldo correspondiente y estos resultados puedes ponerlo en variables y mostrarlo en el browse.\n\n2) Puedes crear \"al vuelo\" una BD temporal que tenga los campos que quieres mostrar en el browse y mediante la funcion que hayas hecho previamente llenar los campos para mostrarlos.\n\nEl problema como veo es que cuando tratas el tema de pagos parciales de una factura, necesariamente debes registrar todas las transacciones parciales los cuales al mostrarlos en un browse donde se combinan las facturas y los pagos te haria que estes mostrando repetidamente la misma factura tantas veces se hayan realizados pagos fraccionados... y eso es lo que parece que no quisieras.\n\nOtra solucion seria que en el diseño de tu BD tambien consideres un campo de pagos y saldos que recibiria la suma de pagos aceptados y el saldo actual almomento de la consulta. En este caso solamente tendrías que mostrar una sola BD en el browse.\n\nEspero sea eso la orientacion que necesitas.\n\nAtentamente\n\nArmando\nLima, Peru\n\n[quote=&quot;A&amp;C&quot;:3d9ngxyq]buenos dias\n\ngracias por las respuestas :\n\nrevise el .PRG q mencionaste antonio, pero no es lo que necesito :\n\nmira lo que yo quiero hacer es lo siguiente:: tratare de detallarlo lo mejor posible.\n\ntengo una DBF ( uso CDX, database) que contiene las facturas de los clientes indexadas con folio( ojo existe un registro para cada folio de cada factura en dnd incluyo el total de la misma, el detalle de los productos de la factura esta en otra DBF, que no me interesa manejar)\n\n\nen la otra DBF tengo las pagos(pueden existir varios registros por cada factura, dependiendo de si se hacen abonos y se paga total) tambien esta indexada por folio..\n\nlo que pretendo hacer es un DIALOG que solo contenga un BROWSE que me muestre ::\n\nFOLIO        CLIENTE         TOTAL FACTURA     ABONO     SALDO\n----------------------------------------------------------------------------\n\nlas primeras colunmas:\n\nFOLIO: es facil la extraigo directamente de la primera DBF\nCLIENTE: igual cosa\nTOTAL FACTURA:  igual cosa\n\nel problemita es como extraigo la columna ABONO\n\nnose si no comprendo el concepto de como trabaja el BROWSE o LISTBOX\ncomo le digo a la PC cuando defino el BROWSE que por cada registro de la primera DBF, filtro la segunda DBF y suma cuanto lleva de abono o pagos y ese valor lo muestre en la colunma ABONO\n\nOjo yo uso SCOPES para dar los limites de inicio y termino de una DBF,, por ser estos mas rapidos que Set Filter..\n\n\nALGUNA AYUDA AL RESPECTO\n\n\nGRACIAS::[/quote:3d9ngxyq]','',0,'gA==','3d9ngxyq',1,0,'',376,0,0),(24180,5332,2,376,0,'201.230.184.61',1167685585,1,0,1,1,1,0,'','Re: Trozo del programa a corregir','Por tu codigo veo que estas usando Workshop. Para que tu cursor no se ponga en los campos de los SAY, debes editar tu recurso y desactivar el tab del ID 30 (o de los controles que desees tambien). Procura renumerar tambien el orden de aparicion de tus controles.\n\nCreo que es la solucion sin tener que modificar nada de tu codigo.\n\nAtentamente\n\nArmando\nLima, Peru\n\n[quote=&quot;Miguel Rivera&quot;:120fj768]Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el \" Id 30 \" es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.\n\nSi me puedes ayudar, desde ya te doy las gracias,\n\nHa, soy de Santiago de Chile.\n\nSaludos.\n\nMiguel Rivera\n\n*****\n  Define Cursor oCurDedo Resource \"Dedo\"\n  Define Dialog oDlgEdit Resname \"Clientes\"\n     Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture \"999\" Color \"w+/b*\"\n     Redefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture \"@!\"  Color \"w+/b*\"\n     Redefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/b*\"\n     Redefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/b*\"\n     Redefine BitMap Id 113 Adjust Resource \"Buscar1\" Of oDlgEdit Cursor oCurDedo;\n              On Click (nCiudad := SacaCiudad(NCiudad,aNomCiudad[nCiudad],aNomCiudad),oCiu_cli1:Refresh())\n\n\n\n[quote=&quot;A&amp;C&quot;:120fj768]resp 1:-  si deseas que el GET no se pueda editar,,  oGet:disabled() solo lo muestra sin edicion\n\nresp 2:- debes refrescar el Objeto q contiene la informacion .. asi\n\n&lt;Obj&gt;:refresh(),, supongamos q lo que quieres q se actualice esta en un GET  deberias hacer esto oGet:Refresh()\n\nespero te sirva[/quote:120fj768][/quote:120fj768]','',0,'gA==','120fj768',1,0,'',376,0,0),(24181,5482,3,904,0,'198.54.202.246',1167689631,1,0,1,1,1,1,'','Creating TABCONTOLS with resource files','I need guidance with creating TABCONTOLS with resource files.\n\nUsing FWxH and Pelles C - (I can\'t see a TAB control under Borland\'s )\n\nI can put the control on the screen, but how do I specify the no. of tabs, tab names and whats on each tab?','',0,'gA==','2kz6mtw4',1,0,'',904,0,0),(24182,5483,3,904,0,'198.54.202.194',1167691469,1,0,1,1,1,1,'','REFRESH PAINT?','I have a Dialog with DBF fields.\ne.g. REDEFINE GET oGet6 VAR DB_CURR-&gt;COMPANY ID 60 OF Dlg_CURR\n\nI have a \"NEXT\" button with ACTION DBSKIP(1)\n\nHow do I update/refresh/re-draw the screen to reflect the next record?','',0,'gA==','1gt2au1g',1,0,'',904,0,0),(24184,5446,3,49,0,'62.13.172.78',1167694424,1,0,1,1,1,1,'','','i not know how make it','',0,'gA==','38c82v2v',1,0,'',49,0,0),(24185,5483,3,431,0,'200.8.88.79',1167697949,1,0,1,1,1,1,'','','Hi,\n\nREDEFINE GET oGet6 VAR DB_CURR-&gt;COMPANY ID 60 OF Dlg_CURR\n\nI have a \"NEXT\" button with ACTION [b:2gg9txz2](DBSKIP(1),oGet6:Refresh())[/b:2gg9txz2]','',0,'QA==','2gg9txz2',1,0,'',431,0,0),(24186,5484,6,519,0,'88.22.128.54',1167699308,1,0,1,1,1,0,'','Freeimage','Hola\n\n  Con la clase freeimage se pueden visualizar imagenes emf ?  a mi no me funciona \n\n\n  un saludo y gracias','',0,'QA==','9g6xs67j',1,0,'',519,0,0),(24189,5483,3,904,0,'196.25.255.210',1167713771,1,0,1,1,1,1,'','','Thanks.  Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records.\n\ne.g. Set getobjects to readonly\nWhen the user presses the \"EDIT\" button, set the getobjects to !readonly, lock the record, let the user edit and press \"SAVE\", commit, set getobjects to readonly again.\n\nWhere do I find METHODS, (CARGO?) values that are applicable to an object?\n\ne.g. OGet1:READONLY:=.T.\nOget1:SETCOLOR(\'YELLOW\',\'BLK\') ..... sort of thing.','',0,'QA==','2wrc1rn3',1,0,'',904,0,0),(24190,5483,3,431,0,'200.8.88.79',1167716460,1,0,1,1,1,1,'','','Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records. \n    [b:4j2qkg8s] \\FWH\\SAMPLES\\CUSTOMER.PRG[/b:4j2qkg8s]\n\nWhere do I find METHODS, (CARGO?) values that are applicable to an object? \n    [b:4j2qkg8s]\\FWH\\SOURCE\\CLASSES\\TGET.PRG[/b:4j2qkg8s]','',0,'QA==','4j2qkg8s',1,0,'',431,0,0),(24191,5483,3,904,0,'196.25.255.210',1167718151,1,0,1,1,1,1,'','','[b:1nvtcepm]Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records. \n\\FWH\\SAMPLES\\CUSTOMER.PRG [/b:1nvtcepm]\n\nThanks - but is doesn\'t run - Runtime error - ALIAS does not exist - line 20 - I can\'t see why - CUSTOMER.DBF is in the folder (not readonly or anything) Ideas?\n\n[b:1nvtcepm]Where do I find METHODS, (CARGO?) values that are applicable to an object? \n\\FWH\\SOURCE\\CLASSES\\TGET.PRG[/b:1nvtcepm]\n\nThanks.','',0,'QA==','1nvtcepm',1,0,'',904,0,0),(24192,5483,3,904,0,'198.54.202.246',1167719796,1,0,1,1,1,1,'','','[b:3szkxtwk]Do you know where I can find a working sample that will demonstrate the principles involved in editing DBF records. \n\\FWH\\SAMPLES\\CUSTOMER.PRG [/b:3szkxtwk]\n\nOk, nevermind (how sad when you reply to your own post!) My mistake - Another sample had the file open!\n\nHowever, that sample was not very helpful - I don\'t think it works the way its supposed to. The only button with an action is NEXT.\n\nCan you offer a better example?  I need something like the \"CONTACTS\" sample of MINIGUI to get me to understand the concept.\n\nAppreciate all comments so far.','',0,'QA==','3szkxtwk',1,0,'',904,0,0),(24193,5485,3,904,0,'198.54.202.210',1167719954,1,0,1,1,1,1,'','Where are the tooltips?','I think tooltips are cool, but I have noticed an absence in FW - am I looking in the wrong place?\n\n(I know about MESSAGE - buts its just not as \'cool\')','',0,'QA==','2s7anx0s',1,0,'',904,0,0),(24194,5486,3,904,0,'198.54.202.210',1167723544,1,0,1,1,1,1,'','Look tables on fields','Does FW have a lookup table function that works much like the Calender pop-up in a DATE field.\n\nSo the user can click next to the \"SALUTATION\" editbox and get an editable table of salutations e.g. \"Mr, Mrs, Dr, Prof, etc\"','',0,'QA==','3e2pyo0m',1,0,'',904,0,0),(24198,5486,3,904,0,'196.25.255.246',1167729599,1,0,1,1,1,1,'','','With a DBF as opposed to static data?  Cool.  Where can I find an example of this?','',0,'QA==','25hyew28',1,0,'',904,0,0),(24199,5485,3,904,0,'198.54.202.210',1167729721,1,0,1,1,1,1,'','','But I get a Syntax error:\n\nREDEFINE GET oDBF:TITLE ID 10 OF Dlg_CURR UPDATE ;\nTOOLTIP \"Enter the Salutation here\"','',0,'QA==','1x9mg5mz',1,0,'',904,0,0),(24202,5487,3,707,0,'222.124.20.50',1167731728,1,0,1,1,1,0,'','brush with jpeg file','Hi, Mr. Antonio/Mr. Enrico\n\nCan I use JPEG file for BRUSH ?\n\nthank\'s\nRegards\nAreang','',0,'QA==','34rbh0yw',1,0,'',707,0,0),(24203,5488,3,904,0,'196.25.255.210',1167731987,1,0,1,1,1,1,'','FiveDB? somewhat disturbing','I found this statement in a FWINTRO.PDF file written by James Bott.\n\nFiveWin comes with a simple database class, but, in order to develop multi-user applications you will either need to purchase a separate database class (FiveDB) or you will need to write your own. The FiveWin TDATABASE class is a good start, but it doesn\'t provide any file/record busy messages or automatic retry capabilities which are essential for multi-user applications.\n\nDo I need FiveDB too?','',0,'QA==','lfrr5bo2',1,0,'',904,0,0),(24204,5488,3,707,0,'222.124.20.50',1167732822,1,0,1,1,1,0,'','','Ollie \n\n[quote:1v94q53q]Do I need FiveDB too?[/quote:1v94q53q]\n\nFiveDB for 16 bit\n\n\nRegards\nareang','',0,'gA==','1v94q53q',1,0,'',707,0,0),(24205,5488,3,2,0,'87.218.146.212',1167733306,1,0,1,1,1,1,'','','Ollie,\n\nThats an outdated info. Class TDataBase is finished and complete and can be safely used, in fact it is used by many FWH users.','',0,'gA==','3tj4bjgw',1,0,'',2,0,0),(24206,5489,6,838,0,'80.34.222.112',1167733316,1,0,1,1,1,0,'','No me pinta boton','Hola amigos y Feliz Año\n\nLlevo un buen rato y algo se me escapa, porqué no me pinta el Button\n\n**********************\nFUNCTION Canon()\nlocal oDlg,oBrw,ocurdedo\nlocal aAlias,oboton\naAlias:= cargaAlias()\n dbUseArea(.T.,,Publicas:cUnidad+\"\\Canon\",aAlias[12],.F.)\n (aAlias[12])-&gt;(ordSetfocus(\"numero\"))\n\n   DEFINE CURSOR oCurDedo RESOURCE \"Dedo\"\n   DEFINE DIALOG oDlg FROM 0,0 TO 18, 33 TITLE \"INCREMENTO EN FACTURAS\" \n  TWBrowse():lHScroll:= .F.\n  @ 0,0 LISTBOX oBrw ;\n	FIELDS Transform((aAlias[12])-&gt;Numero,\"@!\") , ;\n	Transform((aAlias[12])-&gt;Nombre,\"@!\"),;\n	transform((aAlias[12])-&gt;Tipo,\"@E 999.99\"),;\n	transform((aAlias[12])-&gt;Forma,\"@!\");\n	OF oDlg SIZE 250,250;\n	HEADER \"Numero\",\"Nombre\",\"Tipo\", \"(L/P)\" ;\n        SIZES 50,120,50,50;\n	ALIAS aAlias[12] ;\n        CURSOR oCurdedo;\n	PIXEL\n\n   @ oBrw:nHeight+20,10  BUTTON \"Agrega\" OF oDlg PIXEL ;\n                ACTION (oBrw:Edit() )  SIZE 50,Nil\n\n   oBrw:nClrForeHead := CLR_WHITE\n   oBrw:nClrBackHead := CLR_BLUE\n   oBrw:nClrPane:={||iIF((oBrw:cAlias)-&gt;(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}\n   oBrw:nClrfBack := RGB(3,187,85)\n   oBrw:aJustify := {.F.,.F.,.T.,.F.}\n   oBrw:aHJustify := {2,2,2,2}\n   oBrw:lAutoEdit  := .t.\n   oBrw:lAdjLastCol:= .f.\n   oBrw:Set3DStyle()\n\n   ACTIVATE DIALOG oDlg CENTERED ON PAINT (oBrw:nHeight:=oDlg:nHeight-82)\noCurDedo:End()\n(aAlias[12])-&gt;(Dbclosearea())\nreturn nil\n*********\n\nSaludos y Gracias\n\nJose Luis','',0,'','24qnavie',1,0,'',838,0,0),(24207,5488,3,904,0,'198.54.202.210',1167733658,1,0,1,1,1,1,'','','Phew. Thanks.\n\nI thirst for documentation / examples.\n\nWhere can I find examples using the TDatabase class etc.\n\nI got a lot of info from DBF01.PRG - but it wasn\'t enough.\n\nI don\'t want to have to bug you guys all the time.','',0,'','2g15i7xv',1,0,'',904,0,0),(24208,5326,3,104,0,'201.58.80.223',1167735692,1,0,1,1,1,0,'','','Hi Ramesh,\n\nEnclose these springs in his project.\n\n\\xharbour\\contrib\\freeimage\\source\\fi_wrp.c\n\\xharbour\\contrib\\freeimage\\source\\fi_winfu.c\n\n\nIt is necessary also generate to lib of freeimage.dll, like this:  \n\ndll2lib freeimage\n\n... And it include to lib generated in his project also.\n\nRegards,\n\nRossine.','',0,'','3nsu8ngd',1,0,'',104,0,0),(24209,5485,3,904,0,'196.25.255.210',1167735831,1,0,1,1,1,1,'','','Thanks for the reply Fernando - But that didn\'t work either.\n\nI\'m not sure what I should be looking for in the FIVEWIN.CH\n\nI assume I\'m looking to see if a oGET object has a tooltip property?  What am I looking for exactly?','',0,'','13ynewff',1,0,'',904,0,0),(24210,5466,3,217,0,'200.159.120.34',1167736130,1,0,1,1,1,0,'','','Antonio,\n\nMany classes of Fivewin we have any like:\n\n[code:3w132nll]\nfor n &#58;= 1 to len&#40;aAnything&#41;\n      &#46;&#46;&#46;\nnext\n[/code:3w132nll]\n\nCould I suggest a little optimization?\n\n[code:3w132nll]\nLOCAL nLen &#58;= Len&#40;aAnything&#41;\n&#46;&#46;&#46;\nfor n &#58;= 1 to nLen\n     &#46;&#46;&#46;\nnext\n[/code:3w132nll]\n\nI do it in my modified FW class. Is a little optimization but avoid to eval len(aAnytihing) each loop. I do it in FOR, WHILE, etc.\n\nRegards,\nMaurilio','',0,'AIA=','3w132nll',1,0,'',217,0,0),(24211,5487,3,6,0,'87.10.2.129',1167736419,1,0,1,1,1,1,'','Re: brush with jpeg file','Yes, but you would have to modify TBrush classes:\n\n[code:k47zb23w]      case cBmpFile != nil\n           if File&#40; cBmpFile &#41;\n              &#58;&#58;hBitMap = ReadBitmap&#40; 0, cBmpFile &#41;\n              &#58;&#58;hBrush = If&#40; &#58;&#58;hBitmap != 0, CreatePatternBrush&#40; &#58;&#58;hBitmap &#41;, &#41;\n           endif[/code:k47zb23w]\n\nYou should use FreeImage.dll instead of ReadBitmap() to load the bitmap.\n\nEMG','',0,'AIA=','k47zb23w',1,0,'',6,0,0),(24212,5466,3,217,0,'200.159.120.34',1167737078,1,0,1,1,1,0,'','','Rochinha,\n\nMuito legal! Só um pitaco: voce esqueceu de declarar nMHeight no método Default de TPages.\n\nVery good! Only a tip: you forgot to declare nMHeight in Default method from TPages.\n\n[code:2yvgcswp]\nMETHOD Default&#40;&#41; CLASS TPages\n local n, oDlg\n local nMHeight   // &lt;------\n[/code:2yvgcswp]\n\nAbraços/Regards\nMaurilio','',0,'AIA=','2yvgcswp',1,0,'',217,0,0),(24213,5485,3,6,0,'87.10.2.129',1167737164,1,0,1,1,1,1,'','','[code:2ytf3j2r]REDEFINE GET oGet VAR oDBF&#58;TITLE ID 10 OF Dlg_CURR UPDATE \n\noGet&#58;cTooltip &#58;= &quot;My Tooltip&quot;[/code:2ytf3j2r]\n\nSources and samples are the best docs.\n\nEMG','',0,'AIA=','2ytf3j2r',1,0,'',6,0,0),(24214,5479,3,397,0,'201.1.164.251',1167738878,1,0,1,0,1,1,'','','Ok\n\nThis examples is very important. I will be use the RMChart Activex too.\n\nThanks','',0,'AIA=','n754z5fi',1,0,'',397,0,0),(24215,5490,7,720,0,'80.36.244.134',1167741053,1,0,1,1,1,0,'','Retardo importante en acceso a tablas...','Hola a todos....\n\nTengo una duda, ¿por que tarda más hacer un \'use\' a una tabla que se encuentra en un directorio remoto, es decir en otra maquina, que un \'copy file\' de esa misma tabla?\n\nEs que la diferencia de tiempos es bastante grande...\n\n\nSaludos..\n\nElías Torres.','',0,'AIA=','77u0g31h',1,0,'',720,0,0),(24216,5491,2,812,0,'200.83.125.25',1167743192,1,0,1,1,1,0,'','Existe un Programa para Instalar Sistemas.','Hola Amigos:\n\nNecesito saber si existe algun programa que permita instalar Sistemas desarrollados en Fivewin, en los pcs de los clientes, incluso dejando un icono en el escritorio y lista de programas.\n\nLes saluda muy atentamente,\n\nMiguel Rivera.','',0,'AIA=','1w8xx45g',1,0,'',812,0,0),(24217,5332,2,812,0,'200.83.125.25',1167743435,1,0,1,1,1,0,'','Re: Trozo del programa a corregir','Hola Armando:\n\nPrimero que nada, muy Feliz año 2007, que este año este lleno de exitos para ti y tus seres queridos. Te cuento que he probado lo que me has indicado y ha funcionado de maravilla.\n\nMuchas gracias por tu atención.\n\nMiguel Rivera.\n\n\n\n\n[quote=&quot;Armando Picon&quot;:767s2lnq]Por tu codigo veo que estas usando Workshop. Para que tu cursor no se ponga en los campos de los SAY, debes editar tu recurso y desactivar el tab del ID 30 (o de los controles que desees tambien). Procura renumerar tambien el orden de aparicion de tus controles.\n\nCreo que es la solucion sin tener que modificar nada de tu codigo.\n\nAtentamente\n\nArmando\nLima, Peru\n\n[quote=&quot;Miguel Rivera&quot;:767s2lnq]Sabes que no pude aplicar lo que tu me indicastes, por lo que te envio el trozo del programa donde el \" Id 30 \" es el campo que solo deseo mostrar, lo demas corresponde a Get modificados.\n\nSi me puedes ayudar, desde ya te doy las gracias,\n\nHa, soy de Santiago de Chile.\n\nSaludos.\n\nMiguel Rivera\n\n*****\n  Define Cursor oCurDedo Resource \"Dedo\"\n  Define Dialog oDlgEdit Resname \"Clientes\"\n     Redefine Say oCod_cli1 Prompt Cod_cli1 Id 30 Of oDlgEdit Picture \"999\" Color \"w+/b*\"\n     Redefine Get oNom_cli1 Var Nom_cli1 Id 152 Of oDlgEdit Update Picture \"@!\"  Color \"w+/b*\"\n     Redefine Get oDir_cli1 Var Dir_cli1 Id 153 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/b*\"\n     Redefine ComboBox oCiu_cli1 Var nCiudad Items aNomCiudad Id 154 Of oDlgEdit Update  Picture \"@!\"  Color \"w+/b*\"\n     Redefine BitMap Id 113 Adjust Resource \"Buscar1\" Of oDlgEdit Cursor oCurDedo;\n              On Click (nCiudad := SacaCiudad(NCiudad,aNomCiudad[nCiudad],aNomCiudad),oCiu_cli1:Refresh())\n\n\n\n[quote=&quot;A&amp;C&quot;:767s2lnq]resp 1:-  si deseas que el GET no se pueda editar,,  oGet:disabled() solo lo muestra sin edicion\n\nresp 2:- debes refrescar el Objeto q contiene la informacion .. asi\n\n&lt;Obj&gt;:refresh(),, supongamos q lo que quieres q se actualice esta en un GET  deberias hacer esto oGet:Refresh()\n\nespero te sirva[/quote:767s2lnq][/quote:767s2lnq][/quote:767s2lnq]','',0,'gA==','767s2lnq',1,0,'',812,0,0),(24218,5492,7,490,0,'80.24.224.89',1167743577,1,0,1,1,1,0,'','Problema con Spinner en un TGet','Hola,\n\nIntento usar los spinner como en FWH y simplemente no incrementa ni decrementa el valor, ejemplo:\n\nnNum:=0\nREDEFINE GET oGet1 VAR nNum ;\n                  ID 133 PICTURE \"99\" OF ::oFldPerm:aDialogs[ 5 ];\n         SPINNER MIN 0 MAX 99\n\n¿No están implementados o hago algo mal?\n\n\nMe urge usarlos, si existe algo que yo pueda hacer, soy todo oídos.\n\nUn Saludo,\nJoaquín','',0,'','xrfkv6k8',1,0,'',490,0,0),(24219,5493,6,533,0,'80.32.177.143',1167743610,1,0,1,1,1,0,'','Cancel en Buttonbmp','Buenos días foro!!\n\n  Mirad, tengo un problema que se solucionó en su día, pero no sé el porque me pasa, tengo lo siguiente:\n\n[code:2f2zpus2]\n redefine btnbmp aoButtons&#91;14&#93; resource &quot;BOTON_ATRAS&quot;      id 314 of odlg UPDATE TRANSPARENT ACTION oDlg&#58;end&#40;&#41;\naoButtons&#91;14&#93;&#58;bValid&#58;=&#123;||&#46;t&#46;&#125;\n[/code:2f2zpus2]\n\nel problema es que como entre en un gets que tenga una función de validación, el cancel de este button NO me funciona. \n\nUN SALUDO, y muchas gracias','',0,'AIA=','2f2zpus2',1,0,'',533,0,0),(24220,5418,6,264,0,'200.91.3.10',1167745259,1,0,1,1,1,1,'','','Antonio.\nDesafortunadamente es un documento firmado digitalmente, lo cual significa que no se puede cambiar absolutamente nada del contenido, ni siquiera un espacio.\n\nLo que he estado observando es que al parecer las funciones FMIMEENC() y ::SendFile() se estan comiendo parte de mi mensaje.\n\nHe intentado usar la funcion del maestro Luis Krause, pero tb marca el mismo error, asi es que presumo que esta entre estas dos funciones.\n\nAun estoy con el problema.\n\nGracias.','',0,'AIA=','10ss7myf',1,0,'',264,0,0),(24221,5485,3,904,0,'198.54.202.210',1167746895,1,0,1,1,1,1,'','','Thanks EMG. That works, a bit of a schlep though, because now one needs to define oGets, where oDBF was nice as it doesn\'t need the gets.  \n\nThanks for all the help anyway.\n\n[b:3p99h5v2]Sources and samples are the best docs. [/b:3p99h5v2]\n\nSay EMG, any chance you can guide me on getting a TABCONTROL to work with resource files.  Or and example / sample. Please man. Thanks','',0,'QA==','3p99h5v2',1,0,'',904,0,0),(24222,5466,3,397,0,'201.1.164.251',1167746912,1,0,1,0,1,1,'','','Valew!!!','',0,'QA==','1i2wrzzk',1,0,'',397,0,0),(24223,5483,3,343,0,'204.57.111.194',1167748546,1,0,1,1,1,0,'','','You can update the entire dialog by adding the UPDATE clause on the redefine and then doing oDlg:update() to refresh dialog.\n\nExample:\n[code:3avqbgcu]\nREDEFINE GET oGet6 VAR DB_CURR-&gt;COMPANY ID 60 OF Dlg_CURR UPDATE\n\nI have a &quot;NEXT&quot; button with ACTION &#40; DBSKIP&#40;1&#41;, Dlg_CURR&#58;update&#40;&#41; &#41;[/code:3avqbgcu]','',0,'AIA=','3avqbgcu',1,0,'',343,0,0),(24224,5485,3,6,0,'87.10.2.129',1167748804,1,0,1,1,1,1,'','','[quote=&quot;Ollie&quot;:2zbbn7jp]Thanks EMG. That works, a bit of a schlep though, because now one needs to define oGets, where oDBF was nice as it doesn\'t need the gets.[/quote:2zbbn7jp]\n\nYou can also iterate through the controls using the array:\n\n[code:2zbbn7jp]oDlg&#58;aControls[/code:2zbbn7jp]\n\n[quote=&quot;Ollie&quot;:2zbbn7jp]Say EMG, any chance you can guide me on getting a TABCONTROL to work with resource files.  Or and example / sample. Please man. Thanks[/quote:2zbbn7jp]\n\nAre you referring to TFolder class? If yes, just search for all the *.PRG containing the word \'folder\'.\n\nEMG','',0,'gIA=','2zbbn7jp',1,0,'',6,0,0),(24225,5332,2,376,0,'201.230.8.210',1167748993,1,0,1,1,1,0,'','','Por nada, señor, estamos para colaborar \n\nArmando','',0,'gIA=','3730aw43',1,0,'',376,0,0),(24226,5493,6,362,0,'200.168.52.156',1167749055,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=53\">http://www.fivewin.com.br/exibedicas.asp?id=53</a><!-- m -->','',0,'gIA=','2wgi6xkh',1,0,'',362,0,0),(24227,5483,3,904,0,'196.25.255.210',1167751828,1,0,1,1,1,1,'','','O, I get it - Thats cool. Thanks a lot.','',0,'gIA=','ngjc9hcp',1,0,'',904,0,0),(24228,5472,3,904,0,'196.25.255.210',1167752244,1,0,1,1,1,1,'','','Antonio,\n\nThese resources are great - I am able to get everything working except TABS.  \n\nBorland Resource editor doesn\'t seem to have it, so I tried Pelles C - something I read about on this forum.\n\nIt lets me put a TABCONTROL in my dialog, but I can\'t see how to change TAB names, specify number of TABS or put anything on the TABS. \n\nPlease can you help me, or refer me to someone who can.\n\nThanks in advance.','',0,'gIA=','rbgv0jow',1,0,'',904,0,0),(24229,5487,3,103,0,'200.165.6.208',1167753836,1,0,1,1,1,1,'','','Hi Enrico,\n\n    That\'s interesting. You know i am using Freeimage in my apps, but I didn\'t realize that! Can you post a small example of putting a JPG file as a brush using Freeimage?\n\nRegards,','',0,'gIA=','gglhjczg',1,0,'',103,0,0),(24230,5494,17,103,0,'200.165.6.208',1167755182,1,0,1,1,1,1,'','Clase REPEXCEL','Hola,\n\n   He descobierto un pequeño bug en el TSalXls en el momento de imprimir los headers de Groups en el archivo XLS. Ahi va la nueva versión.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/022a95eb63/REPEXCEL.rar.html\">http://hyperupload.com/download/022a95e ... L.rar.html</a><!-- m -->\n\nSaludos,','',0,'gIA=','35392wgh',1,0,'',103,0,0),(24231,5474,6,106,0,'85.34.123.173',1167755777,1,0,1,1,1,1,'','','Felicidades para todos.\n\nPedro','',0,'gIA=','1n4ahp5w',1,0,'',106,0,0),(24232,5485,3,904,0,'198.54.202.210',1167756065,1,0,1,1,1,1,'','','I don\'t think its the TFOLDER class I\'m after.\n\nI want to create TABS on thescreen using a resource file (DLL or RC)\n\nCreating a tab from resources        \n\n REDEFINE TABS [&lt;oTabs&gt;] ;  \n \n  \n [ ID &lt;nId&gt; ] ;  \n \n [ OF | WINDOW | DIALOG &lt;oWnd&gt; ] ;  \n \n [ PROMPT | PROMPTS | ITEMS &lt;cPrompt,...&gt; ] ;  \n \n [ ACTION | EXECUTE &lt;uAction&gt; ] ;  \n \n [ COLOR | COLORS &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ;  \n \n [ OPTION &lt;nOption&gt; ]  \n \nDoes that make it clearer?','',0,'','qz6ouk6b',1,0,'',904,0,0),(24233,5487,3,6,0,'87.10.2.129',1167756094,1,0,1,1,1,1,'','','Here it is:\n\n[code:lbd7i8x5]#include &quot;Fivewin&#46;ch&quot;\n\n\nSTATIC hLib\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrush\n\n    DEFINE BRUSH oBrush FILENAME &quot;test&#46;jpg&quot;\n\n    DEFINE DIALOG oDlg;\n           BRUSH oBrush\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\n#define CBM_INIT 4\n\n#define DIB_RGB_COLORS 0\n\n\nFUNCTION FILOADIMG&#40; cFile &#41;\n\n    LOCAL nFormat, hDib, hInfoH, hInfo, hBits, hWnd, hDC, hBmp\n\n    IF UPPER&#40; CFILEEXT&#40; cFile &#41; &#41; = &quot;BMP&quot;\n        RETURN READBITMAP&#40; 0, cFile &#41;\n    ENDIF\n\n#ifdef __CLIPPER__\n    hLib = LOADLIB32&#40; &quot;freeimage&#46;dll&quot; &#41;\n#else\n    hLib = LOADLIBRARY&#40; &quot;freeimage&#46;dll&quot; &#41;\n#endif\n\n    if hLib &lt;= 32\n        MsgStop&#40; &quot;Cannot load FreeImage&#46;dll&quot; &#41;\n        return 0\n    endif\n\n    nFormat = FIGETFILETYPE&#40; cFile, 0 &#41;\n    hDib    = FILOAD&#40; nFormat, cFile, 0 &#41;\n    hInfoH  = FIGETINFOHEADER&#40; hDib &#41;\n    hInfo   = FIGETINFO&#40; hDib &#41;\n    hBits   = FIGETBITS&#40; hDib &#41;\n    hWnd    = GETDESKTOPWINDOW&#40;&#41;\n\n#ifdef __CLIPPER__\n    hDC = GETDC32&#40; hWnd &#41;\n#else\n    hDC = GETDC&#40; hWnd &#41;\n#endif\n\n    hBmp = CREATEDIBITMAP&#40; hDC, hInfoH, CBM_INIT, hBits, hInfo, DIB_RGB_COLORS &#41;\n\n#ifdef __CLIPPER__\n    RELEASEDC32&#40; hWnd, hDC &#41;\n#else\n    RELEASEDC&#40; hWnd, hDC &#41;\n#endif\n\n    FIUNLOAD&#40; hDib &#41;\n\n#ifdef __CLIPPER__\n    FREELIB32&#40; hLib &#41;\n#else\n    FREELIBRARY&#40; hLib &#41;\n#endif\n\n#ifdef __CLIPPER__\n    hBmp = NLOWORD&#40; WOWHANDLE16&#40; hBmp, 8 &#41; &#41;\n#endif\n\n    RETURN hBmp\n\n\nFUNCTION FISAVEIMG&#40; cSrcFile, cDstFile, nDstFormat, nQuality &#41;\n\n    LOCAL nSrcFormat, hDib, hDib2, lOk\n\n    DEFAULT nQuality &#58;= 0\n\n#ifdef __CLIPPER__\n    hLib = LOADLIB32&#40; &quot;freeimage&#46;dll&quot; &#41;\n#else\n    hLib = LOADLIBRARY&#40; &quot;freeimage&#46;dll&quot; &#41;\n#endif\n\n    nSrcFormat = FIGETFILETYPE&#40; cSrcFile, 0 &#41;\n\n    hDib = FILOAD&#40; nSrcFormat, cSrcFile, 0 &#41;\n\n    hDib2 = FICNV24&#40; hDib &#41;\n\n    lOk = FISAVE&#40; nDstFormat, hDib2, cDstFile, nQuality &#41;\n\n    FIUNLOAD&#40; hDib &#41;\n    FIUNLOAD&#40; hDib2 &#41;\n\n#ifdef __CLIPPER__\n    FREELIB32&#40; hLib &#41;\n#else\n    FREELIBRARY&#40; hLib &#41;\n#endif\n\n    RETURN lOk\n\n//----------------------------------------------------------------------------//\n\nDLL32 STATIC FUNCTION FIGETFILETYPE&#40; cFileName AS LPSTR, nSize AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetFileType@8&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FILOAD&#40; nFormat AS LONG, cFileName AS LPSTR, nFlags AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_Load@12&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FISAVE&#40; nFormat AS LONG, hDib AS LONG, cFileName AS LPSTR, nFlags AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;_FreeImage_Save@16&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIUNLOAD&#40; hDib AS LONG &#41; AS VOID;\n      PASCAL FROM &quot;_FreeImage_Unload@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETINFOHEADER&#40; hDib AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetInfoHeader@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETINFO&#40; hDib AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetInfo@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETBITS&#40; hDib AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetBits@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FICNV24&#40; hDib AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_ConvertTo24Bits@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION GETDC32&#40; hWnd AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;GetDC&quot; LIB &quot;user32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION RELEASEDC32&#40; hWnd AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;ReleaseDC&quot; LIB &quot;user32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION CREATEDIBITMAP&#40; hDC AS LONG, hInfoH AS LONG, nFlags AS LONG, hBits AS LONG, hInfo AS LONG, nUsage AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;CreateDIBitmap&quot; LIB &quot;gdi32&#46;dll&quot;\n\nDLL32 FUNCTION WOWHANDLE16&#40; nHandle AS LONG, nHandleType AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;WOWHandle16&quot; LIB &quot;wow32&#46;dll&quot;\n\n//----------------------------------------------------------------------------//[/code:lbd7i8x5]\n\nThis is the change in TBrush:New():\n\n[code:lbd7i8x5]      case cBmpFile != nil\n           if File&#40; cBmpFile &#41;\n              &#58;&#58;hBitMap = FILoadImg&#40; cBmpFile &#41;\n//              &#58;&#58;hBitMap = ReadBitmap&#40; 0, cBmpFile &#41;\n              &#58;&#58;hBrush = If&#40; &#58;&#58;hBitmap != 0, CreatePatternBrush&#40; &#58;&#58;hBitmap &#41;, &#41;\n           endif[/code:lbd7i8x5]\n\nEMG','',0,'AIA=','lbd7i8x5',1,0,'',6,0,0),(24234,5485,3,6,0,'87.10.2.129',1167756212,1,0,1,1,1,1,'','','Have a look at phone.prg sample.\n\nEMG','',0,'AIA=','26vxj2m2',1,0,'',6,0,0),(24235,5485,3,904,0,'196.25.255.210',1167757239,1,0,1,1,1,1,'','','compiles, but doesn\'t run - cannot initialize modem \n( forced the initialise function to return .t. so that it could work)\n\nI see the REDEFINE TAB COMMAND in the source code, but I can\'t see what it refers to when I open the RC file with Pelles C\n\nWhen the app runs, I can\'t see the Name, phone address section at the bottom of the screen that I can see from Pelles C\n\nWhat I need to know is - am I supposed to be able to see the TAB Pages in Pelles C (I see it reads as a custom control not a tab control in properties) and can I change it from Pelles C, or must the rest be done in source code. Can I visually design the tab pages or not?','',0,'AIA=','102v9gnh',1,0,'',904,0,0),(24236,5472,3,343,0,'204.57.111.194',1167757828,1,0,1,1,1,0,'','','When you do the REDEFINE you add the information like tab names. \n\nCheck out insptest.prg in the samples directory. \n\nActually I like using folders most of the time rather than tabs.','',0,'AIA=','a1cq2mrw',1,0,'',343,0,0),(24237,5485,3,6,0,'87.10.2.129',1167758736,1,0,1,1,1,1,'','','[quote=&quot;Ollie&quot;:exl8v7fw]I see the REDEFINE TAB COMMAND in the source code, but I can\'t see what it refers to when I open the RC file with Pelles C[/quote:exl8v7fw]\n\n[code:exl8v7fw]CONTROL &quot;&quot;, ID_SECTIONS, &quot;TTabs&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 5, 216, 149, 14[/code:exl8v7fw]\n\n[quote=&quot;Ollie&quot;:exl8v7fw]What I need to know is - am I supposed to be able to see the TAB Pages in Pelles C (I see it reads as a custom control not a tab control in properties) and can I change it from Pelles C, or must the rest be done in source code. Can I visually design the tab pages or not?[/quote:exl8v7fw]\n\nNo, TTabs is a custom control not a standard Windows control.\n\nEMG','',0,'gIA=','exl8v7fw',1,0,'',6,0,0),(24238,5472,3,904,0,'198.54.202.210',1167758778,1,0,1,1,1,1,'','','Thanks Gale,\nI am looking at it now.\n\n[quote:1tx64rdv][b:1tx64rdv]Actually I like using folders most of the time rather than tabs.[/b:1tx64rdv][/quote:1tx64rdv]\n\nFolders? What are folders? Can they do what I want the TABS to do? Can you show me an example.\n\nOllie','',0,'wA==','1tx64rdv',1,0,'',904,0,0),(24239,5485,3,343,0,'204.57.111.194',1167758961,1,0,1,1,1,0,'','','Look at insptest.prg in sample directory.\n\nYou cannot visually design folders or tabs in those resource editors.\n\nI prefer folders if there are multiple dialog screens to manipulate.','',0,'wA==','ct2way4j',1,0,'',343,0,0),(24240,5487,3,103,0,'200.165.6.208',1167759182,1,0,1,1,1,1,'','','Fantastic!! Thanks a lot, Enrico.\n\nRegards,','',0,'wA==','2gwcw0nw',1,0,'',103,0,0),(24241,5472,3,343,0,'204.57.111.194',1167759190,1,0,1,1,1,0,'','','Look at all of the testfld*.prg files.\n\nBasically you create a dialog with no border for each folder.\n\nThen on your main folder/window you create a folder control.\n\nThen in the source code you redefine the folder control and tell it the folder tab names and which dialog to place on each folder tab.','',0,'wA==','1zhw5xbq',1,0,'',343,0,0),(24242,5474,6,103,0,'200.165.6.208',1167759432,1,0,1,1,1,1,'','','Mucha salud y prosperidad para todos.\n\nSaludos,','',0,'wA==','3r4srh56',1,0,'',103,0,0),(24243,5472,3,904,0,'198.54.202.195',1167759732,1,0,1,1,1,1,'','','Thanks Gale, I now realise it is FOLDERS that I want. And I think thats what EMG was trying to let me know)\n\nThanks for the help.\n\nI am working through the BIGFOLD.PRG sample','',0,'wA==','1so4jsxe',1,0,'',904,0,0),(24244,5472,3,6,0,'87.10.2.129',1167759858,1,0,1,1,1,1,'','','[quote=&quot;Ollie&quot;:tc0rc9iq]Thanks Gale, I now realise it is FOLDERS that I want. And I think thats what EMG was trying to let me know)[/quote:tc0rc9iq]\n\nExactly. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEMG','',0,'gA==','tc0rc9iq',1,0,'',6,0,0),(24245,5482,3,130,0,'84.138.65.155',1167761449,1,0,1,1,1,0,'','','The no of tabs ist not specified in the resource, but in the source code.\n\nThis line\n\n[code:ub1klaq0]REDEFINE TABS oTabs ID 1000 OF oDlg ;\n             PROMPT &quot;A-Z&quot;,;\n                    &quot; A &quot;, &quot; B &quot;, &quot; C &quot;, &quot; D &quot;, &quot; E &quot;, &quot; F &quot;, &quot; G &quot;, &quot; H &quot;,;\n                    &quot; I &quot;, &quot; J &quot;, &quot; K &quot;, &quot; L &quot;, &quot; M &quot;, &quot; N &quot;, &quot; O &quot;, &quot; P &quot;,;\n                    &quot; Q &quot;, &quot; R &quot;, &quot; S &quot;, &quot; T &quot;, &quot; U &quot;, &quot; V &quot;, &quot; W &quot;, &quot; X &quot;,;\n                    &quot; Y &quot;, &quot; Z &quot; ;[/code:ub1klaq0]\n\ngives you 27 tabs.\n\nStefan','',0,'AIA=','ub1klaq0',1,0,'',130,0,0),(24246,5495,3,51,0,'80.122.88.242',1167761735,1,0,1,1,1,0,'','SelFont','I use  oLbx:SelFont() to select a font for a listbox.\nHow can I store the selected font and size to an INI-file for a next time use?\n\nThanks in advance\nOtto','',0,'AIA=','1etxnzi4',1,0,'',51,0,0),(24247,5488,3,303,0,'72.199.41.171',1167763064,1,0,1,1,1,0,'','','Ollie,\n\nThere are several more articles on using database classes on my website here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nRegards,\nJames','',0,'AIA=','1z3xpudz',1,0,'',303,0,0),(24248,5496,6,104,0,'201.58.80.223',1167764386,1,0,1,1,1,0,'','Isto é um bug ?','Olá Pessoal,\n\n1) Estou percebendo um problema quando uso \"window mdichild\".\nPara exemplificar o que estou dizendo, compilem o programa \\fwh\\samples\\testmd8.prg. O que acontece na verdade, é que quando eu clico na opção \"Childs\" e depois em \"New\", é criada a window 1, se eu fechar ela e clicar em \"Childs/New\" novamente, a window 1 é recriada mas ela vai descendo a tela. Aí minha dúvida. Ela não teria de ser criada na mesma posição que foi criada da primeira vez ?\n\n2) Como faço para criar uma window child do tamanho da area child, ela sempre é criada num tamanho menor ?\n\nObrigado,\n\n\nRossine.','',0,'AIA=','3l3onpts',1,0,'',104,0,0),(24249,5497,6,533,0,'80.32.177.143',1167765480,1,0,1,1,1,0,'','Problemas con los TABS en diálogos','Buenas Foro!!!\n\nla definicion del tab en un window me funciona, ¿por que en un dialogo no?\n\n\n[code:13ycvtwf]\n @ 150, 5 TABS oTabs PROMPTS &quot;pES1&quot;,&quot;pES2&quot;,&quot;pES3&quot;,&quot;pES4&quot; OF oDlg_Bus PIXEL SIZE 255,8 ACTION Cambia&#40;oTabs, oTbr_pro, aIces&#41; \n               \n[/code:13ycvtwf]\n\nError generado:\n\n[code:13ycvtwf]\nApplication\n===========\n   Path and name&#58; C&#58;\\PROYEC~1\\cdigest\\main&#46;exe &#40;32 bits&#41;\n   Size&#58; 1,938,432 bytes\n   Time from start&#58; 0 hours 0 mins 5 secs \n   Error occurred at&#58; 02/01/2007, 20&#58;16&#58;31\n   Error description&#58; Error BASE/1004  Message not found&#58; TTABS&#58;DEFCONTROL\n\nStack Calls\n===========\n   Called from&#58;  =&gt; TTABS&#58;ERROR&#40;179&#41;\n   Called from&#58; tobject&#46;prg =&gt; &#40;b&#41;HBOBJECT&#58;HBOBJECT&#40;105&#41;\n   Called from&#58;  =&gt; TTABS&#58;MSGNOTFOUND&#40;0&#41;\n   Called from&#58; TABS&#46;PRG =&gt; TTABS&#58;DEFCONTROL&#40;167&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;NEW&#40;0&#41;\n   Called from&#58; TABS&#46;PRG =&gt; TTABS&#58;NEW&#40;0&#41;\n   Called from&#58; search&#46;prg =&gt; SEND_SEEK&#40;0&#41;\n   Called from&#58; busrut&#46;prg =&gt; BUSCLI&#40;0&#41;\n   Called from&#58; ctbmcli3&#46;prg =&gt; &#40;b&#41;M_FACTURACION&#40;0&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;CLICK&#40;0&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;LBUTTONUP&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TBTNBMP&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; DIALOGBOX&#40;0&#41;\n   Called from&#58; DIALOG&#46;PRG =&gt; TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Called from&#58;  =&gt; M_FACTURACION&#40;0&#41;\n   Called from&#58; ctbmcli3&#46;prg =&gt; &#40;b&#41;INI_FCLI&#40;0&#41;\n   Called from&#58; BUTTON&#46;PRG =&gt; TBUTTON&#58;CLICK&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TBUTTON&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   &#46;&#46;&#46;&#46;&#46;\n   &#46;&#46;&#46;&#46;&#46;\n[/code:13ycvtwf]\n\nFW 2.8 + xharbour','',0,'AIA=','13ycvtwf',1,0,'',533,0,0),(24250,5496,6,362,0,'200.168.52.156',1167766498,1,0,1,1,1,1,'','','ACTIVATE WINDOW oWndChild ;\n      ON INIT oWndChild:Move( 0, 0 ) ;\n      VALID oBrw:lCloseArea()','',0,'AIA=','1penzmms',1,0,'',362,0,0),(24251,5487,3,215,0,'189.136.237.135',1167768282,1,0,1,1,1,1,'','a question','hi guys,\na question.  Where\'s the freeimage.dll for xharbour or harbour ??\n\nThanks\nFernando','',0,'AIA=','23g12cfe',1,0,'',215,0,0),(24252,5487,3,6,0,'87.10.2.129',1167768575,1,0,1,1,1,1,'','Re: a question','[quote=&quot;fleal&quot;:r877ns5g]hi guys,\na question.  Where\'s the freeimage.dll for xharbour or harbour ??\n\nThanks\nFernando[/quote:r877ns5g]\n\nBeing a DLL, FreeImage is compiler independent.\n\nEMG','',0,'gA==','r877ns5g',1,0,'',6,0,0),(24253,5495,3,6,0,'87.10.2.129',1167768838,1,0,1,1,1,1,'','Re: SelFont','Have a look on how oFont:Choose() method is implemented.\n\nEMG','',0,'gA==','3c4pcpz5',1,0,'',6,0,0),(24254,5498,7,527,0,'83.55.38.138',1167772456,1,0,1,1,1,0,'','Donde esta la rutina de leer huella digital','Donde esta la rutina de leer huella digital, antes estaba en el foro y ahora ya no la veo.','',0,'gA==','2fac6xlz',1,0,'',527,0,0),(24255,5497,6,2,0,'87.218.146.202',1167777170,1,0,1,1,1,1,'','','Mike,\n\nHay que hacer esta modificación en la clase TTabs línea 140:\n\n   if ! Empty( oWnd:hWnd ) // línea 140\n...\nendif // línea 151','',0,'gA==','3hylxafv',1,0,'',2,0,0),(24256,5393,2,905,0,'200.122.209.192',1167777457,1,0,1,0,1,0,'','Configurando build.bat','Estoy intentando compilar el ejemplo suministrado en el demo utilizando el link.exe, y CA clipper 5.2.\n\nSin embargo una vez cambiados los paths de build.bat me presenta los siguientes mensajes de error:\n\n  L1001: option name ambiguos\nó\n  L1049: too many segments.\n\nCuál puede ser la causa? Qu{e parametros se deben enviar a build.bat?\n\nGracias.','',0,'gA==','krca68zb',1,0,'',905,0,0),(24257,5491,2,376,0,'190.40.92.120',1167777930,1,0,1,1,1,0,'','','Hay varios.\n\nUno de los mejores, segun la mayoria de las opiniones, es InnoSetup.\nTambien hay uno que se llama Scriptmaker y otro tal como ISTool (o algo asi). En resumen tienes varios para escoger, cada uno con su particularidad lo cual debes evaluar.\n\nAtentamente\n\nArmando\nLima, Peru','',0,'gA==','39upzt1c',1,0,'',376,0,0),(24258,5489,6,53,0,'189.139.24.131',1167783630,1,0,1,1,1,1,'','','José Luis:\n\nSerá porque estas intentando pintar el botón usando las coordenadas del  Browse ?\n@ [b:6t41gj1t]oBrw:nHeight+20[/b:6t41gj1t],10 BUTTON \"Agrega\" OF oDlg PIXEL ; \n\ny creo que debes pintarlo sobre las coordenadas del diálogo\n@ [b:6t41gj1t]20[/b:6t41gj1t],10 BUTTON \"Agrega\" OF oDlg PIXEL ; \n\nSaludos, Armando','',0,'QA==','6t41gj1t',1,0,'',53,0,0),(24259,5499,3,906,0,'194.249.15.2',1167785570,1,0,1,1,1,1,'','How to copy multiple file with fwh','I use fwh+harbour and need to copy files inside my app.\nI try to do on this way , not work:\n\ncopy file \"c:\\*.dbf \" to \"d:\\*.dbf\"\n\nnot work?!\nneed help urgent!\nthanks a lot','',0,'QA==','47kynbmi',1,0,'',906,0,0),(24260,5458,3,487,0,'151.42.110.193',1167785869,1,0,1,1,1,0,'','Re: Terminal Services','Solved. I hope this could help someone else:\n\n[quote:vjzboheh]\n1) is there a function which tells me if Terminal Services are installed on a server in application mode ?\nI know OS_IsWTSClient() to retrieve if the application is running on a Terminal session, but I would need to know it on the server console.\n[/quote:vjzboheh]\n\n[code:vjzboheh]\nFunction IsWtsEnabled&#40;&#41;\nReturn &#40; GetWinDir&#40;&#41; &lt;&gt; GetSystemWindowsDirectory&#40;&#41; &#41;\n[/code:vjzboheh]\n\n[quote:vjzboheh]\n2) When Terminal Services are installed, the GetWinDir() function retrieves a different directory for each user: \"C:\\Documents and Settings\\&lt;user name&gt;\\WINDOWS\"\nIs it possible to retrieve which is the real Windows directory, typically \"C:\\WINDOWS\" ?\n[/quote:vjzboheh]\n\n[code:vjzboheh]\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; GETSYSTEMWINDOWSDIRECTORY &#41;\n&#123;\n    CHAR Buffer&#91; MAX_PATH &#93;;\n\n    GetSystemWindowsDirectory&#40; Buffer, MAX_PATH &#41;;\n\n    hb_retc&#40; Buffer &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:vjzboheh]\n\nHi,\nDavide.','',0,'gIA=','vjzboheh',1,0,'',487,0,0),(24261,5500,3,299,0,'24.233.172.101',1167787750,1,0,1,0,1,0,'','Tab key in RichEdit Control','Hi.\n\nIs there any way to allow the use of the [tab] key to work while in a richtext edit control?\n\n\n\nReinaldo.','',0,'','1t26zt2d',1,0,'',299,0,0),(24262,5499,3,906,0,'194.249.15.2',1167789710,1,0,1,1,1,1,'','','FUNCT KOPIRAJ(KAJ,KAM)\n\nWAITRUN(\"XCOPY  \"+KAJ +\"  \" +KAM )\n\nRETURN .T.\n \n\nUse in source:\n lMkDir( d:\\bck)\n kopiraj(\"c:\\*.dbf\", \"d:\\bck\")\n\n** work ok!','',0,'','2h4ri0f3',1,0,'',906,0,0),(24263,5326,3,190,0,'202.65.134.34',1167791931,1,0,1,1,1,0,'','','Hello Rossine\n\nThank you very much.\n\nRegards\n\n- Ramesh Babu P','',0,'','3o2irwz0',1,0,'',190,0,0),(24264,5501,3,904,0,'196.25.255.195',1167802368,1,0,1,1,1,1,'','FOLDERS with RESOURCE FILE (Pelle C)','As soon as I add a custom control in my dialog - (Class name: TFOLDER)\nI get the following runtime error:\n\n[quote:21uagss6]   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Resource: DB_CURR\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: current.prg =&gt; DB_CURR(114)\n   Called from: subspro3.prg =&gt; (b)MAIN(90)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: subspro3.prg =&gt; MAIN(96)[/quote:21uagss6]\n\nPlease tell me what is missing?\n\nI see the bigfold sample has:\n[b:21uagss6]      local hBorl := LoadLibrary( \"BWCC32.dll\" )\n      BWCCRegister(GetResources())[/b:21uagss6]\n\nSo I tried putting that in the code, but it won\'t link:\n[b:21uagss6]Unresolved External \'_HB_FUN_BSCCREGISTER\' ...[/b:21uagss6]','',0,'wA==','21uagss6',1,0,'',904,0,0),(24265,5502,6,9,0,'85.54.226.99',1167804391,1,0,1,1,1,1,'','FiveWin y ActiveX','En FW16, existia el comando VBX para ejecutar un fichero scrip VBS.- ¿Como puedo hacerlo ahora con FWH + xHarbour?.-\nPor ejemplo, si quiero ejecutar el fichero Hola.vbs ¿cual sería el código?\n\nMuchas gracias','',0,'wA==','10hdsw5r',1,0,'',9,0,0),(24266,5503,3,299,0,'24.233.172.101',1167805453,1,0,1,0,1,0,'','Intercepting keystrokes while in richtext edit control','Hi.\n\nI\'m needing to process certain function keys while editing inside a richtext edit control.  My code looks something like this:\n\n[code:j2xvpfqf]\n&#58;&#58;oRtf&#58;bKeyDown 	&#58;= &#123;| nKey | &#58;&#58;ProcessMacroKeys&#40; nKey &#41; &#125;\n&#46;&#46;&#46;\n\n//----------------------------------------------\nMETHOD ProcessMacroKeys&#40; nKey &#41; CLASS PATHTRANS\nLocal cMacro 	&#58;= Spac&#40; 9 &#41;\n\n	logfile&#40; &quot;trace&#46;log&quot;, &#123; nKey &#125; &#41;\n&#46;&#46;&#46;&#46;\n[/code:j2xvpfqf]\nNothing logs.  The ProcessMacroKey method never gets called.  What am I missing here?\n\n\nReinaldo.','',0,'AIA=','j2xvpfqf',1,0,'',299,0,0),(24267,5495,3,51,0,'80.122.88.242',1167806398,1,0,1,1,1,0,'','','Hello Enrico,\nthank you for your answer. \nHow do I handle @nRGBColor?\n\nThanks in advance\nOtto','',0,'AIA=','2hqh1onu',1,0,'',51,0,0),(24268,5495,3,2,0,'87.218.146.201',1167806847,1,0,1,1,1,1,'','','Otto,\n\n&gt; How do I handle @nRGBColor?\n\nIt has to be supplied by reference to store the selected color. The font object does not hold the choosed color.','',0,'AIA=','3b2hi5c0',1,0,'',2,0,0),(24269,5501,3,2,0,'87.218.146.201',1167807056,1,0,1,1,1,1,'','','Ollie,\n\nThe control name to use is \"SysTabControl32\" instead of \"TFolder\"','',0,'AIA=','2a4lq3dc',1,0,'',2,0,0),(24270,5458,3,2,0,'87.218.146.201',1167807164,1,0,1,1,1,1,'','','Davide,\n\nThanks,','',0,'AIA=','153twxmf',1,0,'',2,0,0),(24271,5502,6,2,0,'87.218.146.201',1167807559,1,0,1,1,1,1,'','','Manuel,\n\n&gt; En FW16, existia el comando VBX para ejecutar un fichero scrip VBS.\n\nEn FW16 el comando VBX es para el uso de controles VBXs (algo parecido, aunque remotamente, a los activex), no para ejecutar ficheros script VBS (Visual Basic script), salvo que exista un VBX que ejecute ficheros VBS.\n\n&gt; Por ejemplo, si quiero ejecutar el fichero Hola.vbs ¿cual sería el código?\n\nShellExecute( 0, \"open\", \"hola.vbs\" )','',0,'AIA=','3eh03165',1,0,'',2,0,0),(24272,5418,6,2,0,'87.218.146.201',1167807951,1,0,1,1,1,1,'','','Julio,\n\nEsto funciona bien, por lo que podemos descartar fallo en ellas:\n\n   MsgInfo( CMIMEDEC( CMIMEENC( \'=\"test\"\' ) ) )','',0,'AIA=','1fc8tx2n',1,0,'',2,0,0),(24273,5495,3,51,0,'80.122.88.242',1167811013,1,0,1,1,1,0,'','','Thank you Antonio. Do you have a small code-example, too?\n\nThanks in advance\nOtto','',0,'AIA=','1cn3qnf0',1,0,'',51,0,0),(24274,5497,6,533,0,'80.32.177.143',1167819532,1,0,1,1,1,0,'','','Todo Correcto!! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nMuchas Gracias Antonio.','',0,'AIA=','17c0ypdj',1,0,'',533,0,0),(24275,5495,3,6,0,'87.16.223.161',1167819567,1,0,1,1,1,1,'','','Search for all *.prg containing ChooseFont.\n\nEMG','',0,'AIA=','1er1u3kg',1,0,'',6,0,0),(24276,5493,6,533,0,'80.32.177.143',1167819613,1,0,1,1,1,0,'','','Gracias, funcionó.','',0,'AIA=','22rq9wfn',1,0,'',533,0,0),(24277,5503,3,6,0,'87.16.223.161',1167819781,1,0,1,1,1,1,'','Re: Intercepting keystrokes while in richtext edit control','Try with\n\n[code:21pzbdsl]&#58;&#58;oRtf&#58;bKeyChar &#58;= &#123;| nKey | &#58;&#58;ProcessMacroKeys&#40; nKey &#41; &#125;[/code:21pzbdsl]\n\nEMG','',0,'AIA=','21pzbdsl',1,0,'',6,0,0),(24278,5495,3,51,0,'80.122.88.242',1167822842,1,0,1,1,1,0,'','','Hello Enrico,\nthank you for your answer. But I can\'t find a way how to do.\n\n1)    DEFINE FONT oFontTest   NAME \"MS Sans Serif\" SIZE -7.04,-16\n and the color should be black.\n\n2)   I use   oLbxX:SelFont() and would like to save the values\noLbxX:oFont:cFaceName ()   …\nand also the chosen color. How to get the color? \n\n\n\n\nMaybe you have a code example.\n\n\n\n\nRegards \nOtto','',0,'AIA=','136hfc80',1,0,'',51,0,0),(24279,5418,6,264,0,'200.91.3.10',1167824715,1,0,1,1,1,1,'','','Antonio.\nLa funcion contenida en TSMTP no es CMIMEENC, \nes FMimeEnc( ::aFiles[ n ], \"__temp\" )\nDesconozco cual es la diferencia entre ambas.\nSaludos','',0,'','3vc6jog0',1,0,'',264,0,0),(24280,5458,3,487,0,'151.42.110.193',1167825417,1,0,1,1,1,0,'','','As it works only for Terminal Server enabled OS\'s (no 9x/ME), here is a function which takes care of the different cases.\nI do not have a NT4 Terminal Server to test. If you can test it ...\n\nHi,\nDavide.\n\n[code:2sgiabxu]\nFunction RealWinDir&#40;&#41;\nLocal cDir,i\n\nIf IsWin95&#40;&#41;                         // No Terminal Services\n  cDir&#58;=GetWinDir&#40;&#41;   \nElse\n  IF &#40; &quot;NT&quot; $ cWinVersion&#40;&#41; &#41;  // Windows NT is different\n    cDir&#58;=GetSysDir&#40;&#41;\n    i&#58;=RAT&#40;&quot;\\system32&quot;,Lower&#40;cDir&#41;&#41; ; cDir&#58;=Left&#40;cDir,i-1&#41;\n  Else\n    cDir&#58;=GetSysWinDir&#40;&#41;  // ok XP,2000,2003 \n  Endif\nEndif\nReturn cDir\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; GETSYSWINDIR &#41;\n&#123;\n    CHAR Buffer&#91; MAX_PATH &#93;;\n\n    GetSystemWindowsDirectory&#40; Buffer, MAX_PATH &#41;;\n\n    hb_retc&#40; Buffer &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:2sgiabxu]','',0,'AIA=','2sgiabxu',1,0,'',487,0,0),(24281,5495,3,6,0,'87.16.223.161',1167826148,1,0,1,1,1,1,'','','Color is not in the font definition. You have to manage it externally.\n\nEMG','',0,'AIA=','2u0pqrus',1,0,'',6,0,0),(24282,5418,6,2,0,'87.218.146.214',1167826238,1,0,1,1,1,1,'','','Julio,\n\nSalvo error por mi parte (lo revisé temprano esta mañana), FMimeEnc() llama a CMIMEENC()','',0,'AIA=','1njyk5x1',1,0,'',2,0,0),(24283,5504,6,687,0,'200.41.60.210',1167826580,1,0,1,1,1,1,'','Error de compilacion entre FWH y XHARBOUR','Estimados, ante todo espero que hayan pasado un muy buen fin de año.\nLos molesto porque vengo renegando mal con un problema de compilacion, tanto con HARBOUR como con XHARBOUR\n\ncon XHARBOUR tengo este error.\n[b:3c6pi2h3]\'Program with 1st fun: ALERT\' was compiled by older version, PCODE....[/b:3c6pi2h3]\n\nEn lo que respecta al codigo nuestro, antes de compilar hemos eliminado todos los [b:3c6pi2h3].ppo, .obj, .lib[/b:3c6pi2h3]. solo hemos dejado los .prg pero igualmente nos tira este error.\n\nAlguien nos puede dar una mano? hay alguna incompatibilidad entre estas versiones de FWH y XHARBOUR?\n\ndesde ya muchas gracias.\n\n\n=====================================\nTitle: FWH/FWHX 2.7 December/2005\n=====================================\n\n=====================================\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nHarbour Build Info\n---------------------------\nVersion: xHarbour build 0.99.61 Intl. (SimpLex)\nPCode Version: 7\nCompiler: Borland C++ 5.5.1\nPlatform: Windows XP Professional 5.01.2600 Service Pack 2\n\nBuilt on: Oct 29 2006 09:08:11\nLast ChangeLog entry: 2006-02-06 17:52 UTC-0800 Ron Pinkas &lt;Ron in xHarbour.com&gt;\n\nChangeLog CVS version: ChangeLog,v 1.4807\n\nHarbour extensions: Yes\nCA-Clipper 5.2e undocumented: Yes\nCA-Clipper 5.2e strict compatibility: No\nCA-Clipper 5.3x compatible extensions: Yes\nAlaska Xbase++ compatible extensions: Yes\nCA-Visual Objects compatible extensions: No\nMultisoft Flagship compatible extensions: Yes\nMicrosoft FoxPro compatible extensions: No\ndBase compatible extensions: No\nObject file generation support: No\nANSI C usage: Non strict\nC++ mode: Off\nCompiler YACC debug mode: Off\nMemory tracing and statistics: Off\nMaximum symbol name length: 63\n=====================================','',0,'QA==','3c6pi2h3',1,0,'',687,0,0),(24284,5178,6,176,0,'201.255.139.26',1167826812,1,0,1,1,1,0,'','','Gracias Antonio funcionó perfecto\n\nLuis','',0,'QA==','1hxlebhi',1,0,'',176,0,0),(24285,5495,3,51,0,'80.122.88.242',1167827170,1,0,1,1,1,0,'','','I understand - but how?\nThanks in advance\nOtto','',0,'QA==','1vbjmi7j',1,0,'',51,0,0),(24286,5495,3,2,0,'87.218.146.214',1167827588,1,0,1,1,1,1,'','','Otto,\n\nPlease review samples\\tgraph\\test.prg\n\nOnce you have the selected color, you may do a oWnd:SetColor( ..., ... ) before painting','',0,'QA==','1pkdxef9',1,0,'',2,0,0),(24287,5418,6,264,0,'200.91.3.10',1167827744,1,0,1,1,1,1,'','','Lo que encuentro extraño es que envio el mismo archivo pero cambiando la extension desde XML a TXT y lo envia perfecto.\nSi revisas el codigo del TSmtp veras que existe la pasada via FMimeEnc() solo cuando no es TXT, por eso tiendo a pensar que existe algo malo por esa bifurcacion.\nSeguire buscando y gracias por tu ayuda.','',0,'QA==','7l9uvj1h',1,0,'',264,0,0),(24288,5418,6,2,0,'87.218.146.214',1167827991,1,0,1,1,1,1,'','','Julio,\n\nPuesto que el XML es ascii, podríamos modificar la clase para que haga la misma bifurcación para XML y TXT.','',0,'QA==','vaqai792',1,0,'',2,0,0),(24289,5504,6,2,0,'87.218.146.214',1167828138,1,0,1,1,1,1,'','','Jorge,\n\nParece que no estas usando el mismo xharbour que el usado para construir FWH. Tendrás que recompilar FiveHX.lib con ese xharbour.','',0,'QA==','28pfzutl',1,0,'',2,0,0),(24290,5418,6,264,0,'200.91.3.10',1167828157,1,0,1,1,1,1,'','','Te suguiero algo, voy a terminar de hacer un par de cosas urgentes ( como si esta no lo fuera !! ) y probare modificando la clase y te comento que tal me fue.\nDesde ya gracias por toda tu paciencia.\nSaludos','',0,'QA==','1n6jm63o',1,0,'',264,0,0),(24291,5504,6,687,0,'200.41.60.210',1167828674,1,0,1,1,1,1,'','Como?','Antonio. Gracias por tu pronta respuesta.\n\nDisculpame si lo que te pregunto es trivial, pero realmente no encuentro como compilarlo.\n\nUn millon de gracias','',0,'QA==','15xci9la',1,0,'',687,0,0),(24292,5505,3,49,0,'62.13.172.78',1167829164,1,0,1,1,1,1,'','IDCBURN','I found it but I not Know How call it \n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/icdburn/icdburn.asp\">http://msdn.microsoft.com/library/defau ... cdburn.asp</a><!-- m -->\n\nplease can U help me,','',0,'QA==','1q8gxut2',1,0,'',49,0,0),(24293,5504,6,2,0,'87.218.146.214',1167829818,1,0,1,1,1,1,'','','Jorge,\n\nLa forma de hacerlo es el procedimiento habitual: generar el OBJ y luego reemplazarlo en la librería FiveHX.lib\n\nLa forma más sencilla es actualizarte a la versión más reciente de FWH y asi tienes todo actualizado y compatible, desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'QA==','kqn7x2o7',1,0,'',2,0,0),(24294,5504,6,687,0,'200.41.60.210',1167830071,1,0,1,1,1,1,'','Gracias','Ya le pedi a Ricardo Becares que se contacte para obtener la nueva version.\n\nUn millon de gracias antonio.','',0,'QA==','l5r7cimw',1,0,'',687,0,0),(24295,5495,3,104,0,'201.58.68.132',1167830318,1,0,1,1,1,0,'','','Hello Oto,\n\nTry this:\n\n[code:281t5tpr]\n// Browsing arrays using TWBrowse\n\n#include &quot;FiveWin&#46;ch&quot;\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, oBrw\n   local aSample &#58;= &#123; &#123; &quot;First row one&quot;,  &quot;First row two&quot; &#125;,;\n                      &#123; &quot;Second row one&quot;, &quot;Second row two&quot; &#125;,;\n                      &#123; &quot;Third row one&quot;,  &quot;Third row two&quot; &#125;,;\n                      &#123; &quot;Fourth row one&quot;, &quot;Fourth row two&quot; &#125; &#125;\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg FROM 2, 2 TO 20, 60 TITLE &quot;right click on the listbox&quot;\n\n   @ 1, 2 LISTBOX oBrw ;\n      FIELDS &quot;&quot;, &quot;&quot; ;\n      HEADERS &quot;Reviewing two dimensions&quot;, &quot;Array&quot; ;\n      FIELDSIZES 150, 150 ;\n      OF oDlg ;\n      SIZE 150, 100 ;\n      ON DBLCLICK MsgInfo&#40; &quot;Array row&#58; &quot; + Str&#40; oBrw&#58;nAt &#41; + CRLF + ;\n                           &quot;Array col&#58; &quot; + Str&#40; oBrw&#58;nAtCol&#40; nCol &#41; &#41; &#41;\n\n   // bLine is a codeblock that returns an array\n   // if you need a \'traditional column based browse\' have a look at TcBrowse\n   oBrw&#58;nAt       = 1\n   oBrw&#58;bLine     = &#123; || &#123; aSample&#91; oBrw&#58;nAt &#93;&#91; 1 &#93;, aSample&#91; oBrw&#58;nAt &#93;&#91; 2 &#93; &#125; &#125;\n\n   oBrw&#58;bGoTop    = &#123; || oBrw&#58;nAt &#58;= 1 &#125;\n   oBrw&#58;bGoBottom = &#123; || oBrw&#58;nAt &#58;= Eval&#40; oBrw&#58;bLogicLen &#41; &#125;\n   oBrw&#58;bSkip     = &#123; | nWant, nOld | nOld &#58;= oBrw&#58;nAt, oBrw&#58;nAt += nWant,;\n                        oBrw&#58;nAt &#58;= Max&#40; 1, Min&#40; oBrw&#58;nAt, Eval&#40; oBrw&#58;bLogicLen &#41; &#41; &#41;,;\n                        oBrw&#58;nAt - nOld &#125;\n   oBrw&#58;bLogicLen = &#123; || Len&#40; aSample &#41; &#125;\n   oBrw&#58;cAlias    = &quot;Array&quot;                // Just put something\n\n   oBrw&#58;brclicked &#58;= &#123; |row,col| TROCA_FONT&#40; oBrw &#41; &#125;\n\n   @ 1, 30 BUTTON &quot;&amp;End&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n*******************\nfunction TROCA_FONT&#40; oBrw &#41;\n*******************\n\nlocal oObj\n\noBrw&#58;GetFont&#40;&#41;\noBrw&#58;SelFont&#40;&#41;\n\noBrw&#58;setcolor&#40; oBrw&#58;nClrText, choosecolor&#40;oBrw&#58;nClrPane&#41; &#41;\noBrw&#58;refresh&#40;&#41;\n\nreturn NIL\n[/code:281t5tpr]\n\nRegards,\n\nRossine.','',0,'AIA=','281t5tpr',1,0,'',104,0,0),(24296,5491,2,812,0,'200.83.125.25',1167830340,1,0,1,1,1,0,'','','Hola Armando:\n\nLos buscare en la red, muchas gracias por tu atención.\n\nSaludos,\n\nMiguel Rivera\n\n[quote=&quot;Armando Picon&quot;:22smxn40]Hay varios.\n\nUno de los mejores, segun la mayoria de las opiniones, es InnoSetup.\nTambien hay uno que se llama Scriptmaker y otro tal como ISTool (o algo asi). En resumen tienes varios para escoger, cada uno con su particularidad lo cual debes evaluar.\n\nAtentamente\n\nArmando\nLima, Peru[/quote:22smxn40]','',0,'gA==','22smxn40',1,0,'',812,0,0),(24297,5487,3,103,0,'200.165.6.208',1167830776,1,0,1,1,1,1,'','','Enrico,\n\n   I was observing when I use this with Dialogs, it\'s all ok with JPG files, but with Window it only works if the image is BMP format. Why can\'t I use with Windows?\n\nRegards,','',0,'gA==','1avr0o2q',1,0,'',103,0,0),(24298,5487,3,6,0,'87.16.223.161',1167831626,1,0,1,1,1,1,'','','The following sample using a WINDOW works fine here:\n\n[code:2fzkfr5q]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBrush\n\n    DEFINE BRUSH oBrush FILENAME &quot;xsnow&#46;gif&quot;\n\n    DEFINE WINDOW oWnd;\n           BRUSH oBrush\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2fzkfr5q]\n\nEMG','',0,'AIA=','2fzkfr5q',1,0,'',6,0,0),(24299,5487,3,103,0,'200.165.6.208',1167834559,1,0,1,1,1,1,'','','Enrico,\n\n    Thanks for your answer. I\'ll try it again. maybe it\'s because of my FWH version (2.5).\n\nregards,','',0,'AIA=','8gego1dx',1,0,'',103,0,0),(24300,5506,2,500,0,'83.38.184.163',1167835164,1,0,1,1,1,0,'','Duda en la creación de un Listbox','Hola a todos, Feliz 2007\n\nTengo una pequeña duda en la creación de los Browses o Listbox de la forma que se hacía en clipper,  [color=darkblue:2mek5vnp][i:2mek5vnp]oCol := TbColumnNew( Fieldname(n1), FiledWBlock(FieldName(n1),Select() ) )  [/i:2mek5vnp][/color:2mek5vnp].\nMe gustaría si hay alguna forma de que en el listbox, en la clausula FIELDS se puede poner en vez de TABLA-&gt;campo un codeblock de este estilo, {||fieldname(n1)}. o poder usar ambas formas a la vez\nEl fin de esto es que el usuario a traves de un diálogo nos dé un numero de campo y con él poder crear uno de los campos del listbox.\n\n¿Podría ser esto posible?, ¿alguien sabe como hacerlo?\n\nUn saludo a todos\n\nPedro','',0,'Ig==','2mek5vnp',1,0,'',500,0,0),(24301,5507,22,103,0,'200.165.6.208',1167835427,1,0,1,1,1,1,'','Redimensionar dialogos desde recursos','Antonio,\n\n    Aqui va mi sugerencia:\n\nQue FWH tenga una forma sencilla de se redimensionar dialogos (y window) desde recursos automaticamente, dependiendo de la resolution del monitor, haciendo tambien el redimensionamiento de todos los controles para la nueva resolución. Algo como que fuera llamado por ON PAINT o algo asi.\n\nQue me dices?\n\nSaludos,','',0,'Ig==','10r9nj1o',1,0,'',103,0,0),(24303,5509,3,303,0,'72.199.41.171',1167842058,1,0,1,1,1,0,'','Using IE AcitveX from FWH','I am trying to control Internet Explorer from within FWH. I am testing \\samples\\webexp.prg. I can get IE to run in a window, but I cannot get anything else to work; toolbar, statusbar, or menubar.\n\n[code:1mut59ml]   oActiveX&#58;setProp&#40; &quot;ToolBar&quot;, t&#46; &#41;\n   oActiveX&#58;setProp&#40; &quot;MenuBar&quot;, &#46;t&#46; &#41;\n   oActiveX&#58;SetProp&#40; &quot;StatusBar&quot;, &#46;t&#46; &#41;[/code:1mut59ml]\n\nNone are visible.\n\nAlso, is it possible to do a print and preview using ActiveX? I can do them using the right-click menu, but I cannot find any documentation on how to call them using ActiveX. I would like to call printing and preview from the FW toolbar.\n\nI did find that I can do:\n\n[code:1mut59ml]   oActiveX&#58;print&#40;&#41;[/code:1mut59ml]\n\nBut this just makes a screenshot--it doesn\'t print the entire HTML page.\n\nI am using FWH Aug 2006 build, xHarbour, IE7 and XP Pro.\n\nJames','',0,'AIA=','1mut59ml',1,0,'',303,0,0),(24304,5503,3,299,0,'24.233.172.101',1167843843,1,0,1,0,1,0,'','','Enrico;\n\nHi.  Good to read your response.\n\nI tried it, but still nothing happens.  It might be due to the fact that the rtfs are housed inside a tab control.  I even tried with and without ::oRtf:nDlgCode = DLGC_WANTALLKEYS at no avail.\n\nAny other suggestion is very much welcomed.\n\n\nReinaldo.','',0,'AIA=','222slmnq',1,0,'',299,0,0),(24305,5495,3,51,0,'80.122.88.242',1167843999,1,0,1,1,1,0,'','','Hello Antonio , hello Rossine,\nthank you for your answer.\n\noWnd:SetColor( ..., ... ) does what I want but how can I extract color \n\nas a return from oLbx:SelFont() .\n\nThanks in advance\nOtto','',0,'AIA=','1qhtq2p0',1,0,'',51,0,0),(24306,5510,4,28,0,'213.27.201.254',1167844239,1,0,1,1,1,0,'','How to rotate the screen dynamically on Windows Mobile 2003','hello \n\nThe answer is in this link:\n\n[url:27z3c3qp]http&#58;//www&#46;pocketpcdn&#46;com/articles/rotatese&#46;html[/url:27z3c3qp]\n\nI have not try it but I find it interesting.\n\nA greeting.\n\nPaco\n\nArticles at Pocket PC Developer Network\n[url:27z3c3qp]http&#58;//www&#46;pocketpcdn&#46;com/sections/ui&#46;html[/url:27z3c3qp]','',0,'EA==','27z3c3qp',1,0,'',28,0,0),(24307,5503,3,303,0,'72.199.41.171',1167844400,1,0,1,1,1,0,'','','Reinaldo,\n\nBoth bKeyDown and bKeyChar are not called until all other special keys have been processed (TRichEdit calls TControl calls TWindow for both methods). So if you are trying to trap a key that is being used in any of those methods it will never get processed. You can try trapping just a letter key to see if that works. If so, then this is your problem.\n\nThe only solution would be to either use a different key, or subclass TRichEdit and override the keyDown or KeyChar method to trap the keys you want.\n\nJames','',0,'EA==','c6ue1xc9',1,0,'',303,0,0),(24308,5495,3,6,0,'87.16.223.161',1167844424,1,0,1,1,1,1,'','','I still don\'t understand from what you want to extract the color. You have to define the font color separately.\n\nEMG','',0,'EA==','20eo8kow',1,0,'',6,0,0),(24309,5503,3,6,0,'87.16.223.161',1167844723,1,0,1,1,1,1,'','','[quote=&quot;reinaldocrespo&quot;:3mv8ekda]Enrico;\n\nHi.  Good to read your response.\n\nI tried it, but still nothing happens.  It might be due to the fact that the rtfs are housed inside a tab control.  I even tried with and without ::oRtf:nDlgCode = DLGC_WANTALLKEYS at no avail.\n\nAny other suggestion is very much welcomed.\n\n\nReinaldo.[/quote:3mv8ekda]\n\nThis is a working sample (without tab control):\n\n[code:3mv8ekda]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Richedit&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hDll &#58;= LOADLIBRARY&#40; &quot;RICHED20&#46;DLL&quot; &#41;\n\n    LOCAL oWnd, oRtf\n\n    LOCAL cVar &#58;= &quot;&quot;\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 RICHEDIT oRtf VAR cVar\n\n    oRtf&#58;bKeyChar = &#123; | nKey | MsgInfo&#40; nKey &#41; &#125;\n\n    oWnd&#58;oClient = oRtf\n\n    ACTIVATE WINDOW oWnd\n\n    FREELIBRARY&#40; hDll &#41;\n\n    RETURN NIL[/code:3mv8ekda]\n\nEMG','',0,'gIA=','3mv8ekda',1,0,'',6,0,0),(24310,5495,3,51,0,'80.122.88.242',1167845361,1,0,1,1,1,0,'','','Hello Enrico,\n\nadesso ti spiego ...\n\n\nI do have a button where the user can change the font of the  browser on the fly.\noLbxX:SelFont()  does the job.  \n\nbut then the new selection should become the new default setup.\n\nTherefore I have to store all the values. If you start your program  next time  all your changes are still there.\n\nRegards\nOtto','',0,'gIA=','2q532dup',1,0,'',51,0,0),(24311,5503,3,299,0,'24.233.172.101',1167845959,1,0,1,0,1,0,'','','James;\n\nThank you for the reply.\n\nI had already tried that.  However, I\'m not able to capture any function key F1 - F12.\n\nHere is the code I\'m using:\n\n[code:3jp6sl7j]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS RchEdt\n	logfile&#40; &quot;trace&#46;log&quot;, &#123; nKey &#125; &#41;\n	Super&#58;KeyDown&#40; nKey, nFlags &#41;\nRETURN Nil\n\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS RchEdt\n\n	logfile&#40; &quot;trace&#46;log&quot;, &#123; nKey &#125; &#41;\n	super&#58;Keydown&#40; nKey, nflags &#41;\n\nreturn nil\n[/code:3jp6sl7j]\n\nOnly ascii codes for normal keys 0-9, a-z, and A-Z gets logged.   Therefore I assume that Function keys are not being handled by keychar nor keydown.\n\n\n\nReinaldo','',0,'AIA=','3jp6sl7j',1,0,'',299,0,0),(24312,5495,3,303,0,'72.199.41.171',1167846124,1,0,1,1,1,0,'','','Otto,\n\nHere is the selFont() method from TWindow:\n\n[code:9h59m4e1]   METHOD SelFont&#40;&#41; BLOCK &#123; | Self, nClr | nClr &#58;= &#58;&#58;nClrText,;\n                            &#58;&#58;SetFont&#40; If&#40; &#58;&#58;oFont == nil,;\n                            TFont&#40;&#41;&#58;New&#40; ,,,&#46;t&#46; &#41;,;\n                            &#58;&#58;oFont&#58;Choose&#40; @nClr &#41; &#41; &#41;,;\n                            &#58;&#58;oFont&#58;nCount--,;\n                            &#58;&#58;nClrText &#58;= nClr, &#58;&#58;Refresh&#40;&#41; &#125;[/code:9h59m4e1]\n\nTWBrowse inherts from TControl which inherits from TWindow, so this is the same method in TWBrowse.\n\nYou can see that ::nClrText is the font color. So oLbx:nClrText holds the RGB value of the font color.\n\nJames','',0,'AIA=','9h59m4e1',1,0,'',303,0,0),(24313,5491,2,248,0,'212.145.179.68',1167846432,1,0,1,1,1,0,'','','Prueba en esta direccion aunque te hara falta nsis, yo es con el que mejor me he aclarado, esta en castellano y entre otros lo usa el progrma emule.\n\n<!-- m --><a class=\"postlink\" href=\"http://hmne.sourceforge.net/\">http://hmne.sourceforge.net/</a><!-- m -->\n\nprimero instala el nsis y despues este : Hm Nis Edit\n\nYa veras que facil es hacer una instalacion. Si tienes cualquier duda aqui estare,mos.','',0,'AIA=','1kiyymzq',1,0,'',248,0,0),(24314,5511,3,529,0,'200.159.199.81',1167846597,1,0,1,1,1,0,'','control like notepad','hi, someone has an sample of an control (class) to  edit text files in memo lile notepad or more complex?','',0,'AIA=','2ps7pfv0',1,0,'',529,0,0),(24315,5495,3,51,0,'80.122.88.242',1167847048,1,0,1,1,1,0,'','','Thank you, James.\nNow all works as I expected.\nRegards\nOtto','',0,'AIA=','223yx6e7',1,0,'',51,0,0),(24316,5503,3,303,0,'72.199.41.171',1167847170,1,0,1,1,1,0,'','','Reinaldo,\n\nThis works for me capturing function keys (except for F1 and F10 which are reserved by Windows) with the standard richedit class. [Note that function keys are trapped in the KeyDown() method.] So perhaps it does have something to do with the tab control. Can you provide a small self-contained example?\n\nJames\n\n[code:31oi6nvl]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Richedit&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hDll &#58;= LOADLIBRARY&#40; &quot;RICHED20&#46;DLL&quot; &#41;\n\n    LOCAL oWnd, oRtf\n\n    LOCAL cVar &#58;= &quot;&quot;\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 RICHEDIT oRtf VAR cVar\n\n    oRtf&#58;bKeyDown = &#123; | nKey | Msginfo&#40;nKey&#41; &#125;\n\n    oWnd&#58;oClient = oRtf\n\n    ACTIVATE WINDOW oWnd\n\n    FREELIBRARY&#40; hDll &#41;\n\n    RETURN NIL[/code:31oi6nvl]','',0,'AIA=','31oi6nvl',1,0,'',303,0,0),(24318,5511,3,303,0,'72.199.41.171',1167847713,1,0,1,1,1,0,'','','Simple:\n\n/samples/mdimemo.prg\n\nComplex; RichEdit:\n\n/samples/testrtf.prg\n\nJames','',0,'AIA=','3ce7ldyk',1,0,'',303,0,0),(24319,5500,3,303,0,'72.199.41.171',1167848499,1,0,1,1,1,0,'','','Reinaldo,\n\nThis is the same problem I mentioned in the other thread. The tab key is trapped in TControl and used to move to the next control. So, you will have to subclass TRichEdit and create a new keyChar() method where you can trap the Tab key before it gets to TControl.\n\nJames \n\n[code:209k8ofb]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TRichEdit\n\n   if &#58;&#58;lReadOnly\n      return 0\n   endif\n\n   // Add this section&#46; JB\n   if nKey  == VK_TAB\n      return 0\n   endif\n\n   Super&#58;KeyChar&#40; nKey, nFlags &#41;\n\n   &#58;&#58;PostMsg&#40; FM_CHANGE &#41;\n\n   if &#58;&#58;lHighlight\n      &#58;&#58;PostMsg&#40; FM_HIGHLIGHT &#41;\n   endif\n\nreturn nil[/code:209k8ofb]','',0,'AIA=','209k8ofb',1,0,'',303,0,0),(24320,5509,3,6,0,'87.16.223.161',1167848499,1,0,1,1,1,1,'','Re: Using IE AcitveX from FWH','[quote=&quot;James Bott&quot;:209k8ofb]I am trying to control Internet Explorer from within FWH. I am testing \\samples\\webexp.prg. I can get IE to run in a window, but I cannot get anything else to work; toolbar, statusbar, or menubar.\n\n[code:209k8ofb]   oActiveX&#58;setProp&#40; &quot;ToolBar&quot;, t&#46; &#41;\n   oActiveX&#58;setProp&#40; &quot;MenuBar&quot;, &#46;t&#46; &#41;\n   oActiveX&#58;SetProp&#40; &quot;StatusBar&quot;, &#46;t&#46; &#41;[/code:209k8ofb]\n\nNone are visible.[/quote:209k8ofb]\n\nFrom MSDN (WebBrowser control, Toolbar property):\n\n[quote:209k8ofb]The WebBrowser object ignores this property.[/quote:209k8ofb]\n\nAnd the same is for the other properties above.\n\n[quote=&quot;James Bott&quot;:209k8ofb]Also, is it possible to do a print and preview using ActiveX? I can do them using the right-click menu, but I cannot find any documentation on how to call them using ActiveX. I would like to call printing and preview from the FW toolbar.\n\nI did find that I can do:\n\n[code:209k8ofb]   oActiveX&#58;print&#40;&#41;[/code:209k8ofb]\n\nBut this just makes a screenshot--it doesn\'t print the entire HTML page.\n\nI am using FWH Aug 2006 build, xHarbour, IE7 and XP Pro.\n\nJames[/quote:209k8ofb]\n\nIt seems that WebBrowser control doesn\'t offer a Print method. I saw some sample using VB SendKeys.\n\nEMG','',0,'gIA=','209k8ofb',1,0,'',6,0,0),(24321,5509,3,303,0,'72.199.41.171',1167848816,1,0,1,1,1,0,'','','&gt;It seems that WebBrowser control doesn\'t offer a Print method. \n\nThanks Enrico, that\'s the same conclusion I came to. I have seen a print/preview activeX control in my Google searches, so I will look into that.\n\nJames','',0,'gIA=','1uoth9ji',1,0,'',303,0,0),(24322,5504,6,124,0,'190.30.72.80',1167850135,1,0,1,1,1,0,'','','Antonio:\n\nComo puedo bajar la version ultima ( diciembre 2006 )? para ¿fw y fwh?\n\nSaludos.\nRicardo.-','',0,'gIA=','26url65f',1,0,'',124,0,0),(24323,5501,3,904,0,'198.54.202.234',1167852172,1,0,1,1,1,1,'','','Thanks. Its working great!','',0,'gIA=','wkto3myk',1,0,'',904,0,0),(24324,5512,3,904,0,'196.25.255.195',1167852661,1,0,1,1,1,1,'','Toggle a GET as readonly/not readonly','How can I make my program do the following:\n\n(I understand the \'WHEN\' is not available)\n\nREDEFINE CHECKBOX oDbf:IsGift ID 4015 OF oDlg UPDATE \nREDEFINE GET oDBF:GiftFrom ID 4033 OF oDlg UPDATE WHEN oDBF:ISGIFT=.T.\n\ni.e. I want the oDBF:GiftFfrom field to be \"READONLY\" when oDBF:IsGift is FALSE and\noDBF:GiftFfrom field to be \"MODIFY-ABLE\" when oDBF:IsGift is TRUE','',0,'gIA=','2w76pph5',1,0,'',904,0,0),(24325,5513,3,904,0,'198.54.202.210',1167853606,1,0,1,1,1,1,'','CHECKBOX MODIFY','I can: \n\nREDEFINE [b:1rovn6xe]GET [/b:1rovn6xe]oDBF:Sometext ID 4066 OF oDLG UPDATE [b:1rovn6xe]NO MODIFY[/b:1rovn6xe]\n\nbut, I can\'t \n\nREDEFINE [b:1rovn6xe]CHECKBOX [/b:1rovn6xe]oDBF:IsaGift ID 4067 OF oDLG UPDATE [b:1rovn6xe]NO MODIFY[/b:1rovn6xe]\n\n(There is no \'NO MODIFY\' clause to make the checkbox \'readonly\'.)\n\nIs there a way around this?','',0,'QA==','1rovn6xe',1,0,'',904,0,0),(24326,5513,3,343,0,'204.57.111.194',1167854365,1,0,1,1,1,0,'','','Local oCheck\n\nREDEFINE CHECKBOX oCheck VAR oDBF:IsaGift ;\nID 4067 OF oDLG UPDATE\n\noCheck:disable()','',0,'QA==','2nttfws2',1,0,'',343,0,0),(24327,5514,3,904,0,'198.54.202.210',1167854823,1,0,1,1,1,1,'','COMBOBOX with oDBF','I want to store \'[b:1cg4mu1k]L[/b:1cg4mu1k]\', \'[b:1cg4mu1k]A[/b:1cg4mu1k]\' or \'[b:1cg4mu1k]O[/b:1cg4mu1k]\' in a (1 character) database field called MAIL_CAT (Mail category = [b:1cg4mu1k]L[/b:1cg4mu1k]ocal, [b:1cg4mu1k]A[/b:1cg4mu1k]frican, [b:1cg4mu1k]O[/b:1cg4mu1k]verseas)\n\nBut I want to use a Combobox so the user can only make a valid choice, but I only want to store the first letter ie. L, A, or O in the database.\n\nREDEFINE COMBOBOX oDBF:MAIL_CAT ITEMS  {\"Local\", \"African\", \"Overseas\" } ID 4012 OF oDLG\n\n... doesn\'t do it.\n\nIs there a way the screen can show \'Overseas\' when it sees \'O\' in the database field?  How?','',0,'QA==','1cg4mu1k',1,0,'',904,0,0),(24328,4392,7,527,0,'81.36.168.68',1167855160,1,0,1,1,1,0,'','Soy una burra','He leido tus comentarios sobre la conexion a traves de GPS, me podrias enviar un ejemplo para la fwppc por favor, es que no tengo ni idea por donde empezar y si que me interesaria muchisimo aprenderlo por favor.\n\ngracias.','',0,'QA==','3q4yy403',1,0,'',527,0,0),(24329,5513,3,904,0,'198.54.202.210',1167855229,1,0,1,1,1,1,'','','Thanks Gale.','',0,'QA==','t5wjwm0e',1,0,'',904,0,0),(24330,5512,3,303,0,'72.199.41.171',1167855358,1,0,1,1,1,0,'','','Try:\n\nREDEFINE CHECKBOX oDbf:IsGift ID 4015 OF oDlg UPDATE;\n  ON CHANGE (if(oDBF:isGift, oGet:lReadonly:=.f., oGet:lReadOnly:=.t.), oGet:refresh())\n\nREDEFINE GET oGet oDBF:GiftFrom ID 4033 OF oDlg UPDATE','',0,'QA==','81jwjicj',1,0,'',303,0,0),(24331,5502,6,9,0,'85.54.226.99',1167855572,1,0,1,1,1,1,'','','Muchas gracias Antonio.','',0,'QA==','30oe8xao',1,0,'',9,0,0),(24332,5514,3,303,0,'72.199.41.171',1167855769,1,0,1,1,1,0,'','','Use a DBCombo. See \\samples\\testdbc1.prg for an example.','',0,'QA==','3u0fmncv',1,0,'',303,0,0),(24333,5512,3,904,0,'196.25.255.210',1167855981,1,0,1,1,1,1,'','','That makes it READONLY, but is there a way I can (more visably) \'gray\' it out (The way it looks when you use the NO MODIFY clause in a GET define.)\n\nDo you know what I mean?','',0,'QA==','1u4qwbuu',1,0,'',904,0,0),(24334,5512,3,303,0,'72.199.41.171',1167856589,1,0,1,1,1,0,'','','oGet:disable(), oGet:enable()','',0,'QA==','3qn05feu',1,0,'',303,0,0),(24335,5514,3,904,0,'198.54.202.194',1167856868,1,0,1,1,1,1,'','','Thanks.\n\nI have this code:\n\nREDEFINE DBCOMBO oDBF:MAIL_CAT ID 4012 ;\n      items {\"L\",\"A\",\"O\"} ;\n      list {\"Local\",\"African\",\"Overseas\"} ;\n       of oFld:aDialogs[ 1 ] UPDATE\n\nBut the compiler gives a \"parse error at \'DBCOMBO\' what am I doing wrong?','',0,'','1s0oi2c5',1,0,'',904,0,0),(24336,5512,3,6,0,'87.16.223.161',1167857228,1,0,1,1,1,1,'','','Or\n\n[code:2tmfmmm0]REDEFINE CHECKBOX oDbf&#58;IsGift ID 4015 OF oDlg UPDATE;\n         ON CHANGE oDlg&#58;AEvalWhen&#40;&#41;\n\nREDEFINE GET oDBF&#58;GiftFrom ID 4033 OF oDlg UPDATE WHEN oDBF&#58;ISGIFT[/code:2tmfmmm0]\n\nEMG','',0,'AIA=','2tmfmmm0',1,0,'',6,0,0),(24337,5504,6,571,0,'189.156.203.3',1167857257,1,0,1,1,1,0,'','error','Disculpa ya te fijaste que estes usando las librerias para xharbour correctas\nfivehc\nfivehx\n\neste error me daba cuando compilaba mis programas y me generaban el ejecutrable, pero al momento de correrlo me salia ese error , la razon era que estaba mezclando las librerias de fivewin para harboru y xharbour.\n\nsaludos','',0,'AIA=','3hg6cydf',1,0,'',571,0,0),(24338,5512,3,904,0,'198.54.202.234',1167857342,1,0,1,1,1,1,'','','That\'s what I was looking for - thanks.\n\nI notice, however, that these fields look different:\n\n[b:rehf1r6r]REDEFINE GET oDBF:TEST1 ID 4030 OF oFld:aDialogs[ 1 ] UPDATE NO MODIFY[/b:rehf1r6r]\n\n(has a gray background)\n\n[b:rehf1r6r]REDEFINE GET oGET VAR oDBF:TEST2 ID 4030 OF oFld:aDialogs[ 1 ] UPDATE\noGET:disable()[/b:rehf1r6r]\n\n(has a white background)\n\nHow do I match them to look the same - the latter of the two looks better I think.','',0,'QA==','rehf1r6r',1,0,'',904,0,0),(24339,5513,3,6,0,'87.16.223.161',1167857379,1,0,1,1,1,1,'','','Or\n\n[code:25jjefd4]REDEFINE CHECKBOX oCheck VAR oDBF&#58;IsaGift ;\nID 4067 OF oDLG UPDATE WHEN &#46;F&#46;[/code:25jjefd4]\n\nEMG','',0,'AIA=','25jjefd4',1,0,'',6,0,0),(24340,5515,2,812,0,'201.236.189.231',1167857393,1,0,1,1,1,0,'','Favor, Ayuda Urgente (Problemas al Imprimir)','Hola Amigos:\n\nTengo un problema que debo sulucionar en forma urgente:\nDebo imprimir una hoja de cotizacion para clientes, pero no logro alinear las columnas.\n\nDebe Imprimir de esta forma:\n                                               Moneda 1             Moneda 2 \n   Departamento :  20               8,900.00               165.887.100\n\n   Descuento     :    17.00 %      1,513.00                28.200.807\n\nComo ven esto es lo que se imprime, deben ser alineados a la derecha.\n\nCodigo usado:\n\n Print oPrint   From User Preview\n    Define Font oFont1 Name \"Arial\" Size 0,14 Of oPrint\n    Define Pen oPen Style 0 width 5\n    nVertical   := oPrint:nVertRes()\n    nHorizontal := oPrint:nHorzRes()\n    nFila := Round(nVertical/60,0)\n    nColumna := Round(nHorizontal/80,0)\n    Fil=nFila\n    col=nColumna\n    Page\n   oPrint:Say(nFila*7,nColumna*05,\"Señor(a) : \",oFont2)\n   oPrint:Say(nFila*8,nColumna*20,trim(oDbcot-&gt;Nom_cli),oFont2)\n   oPrint:Say(nFila*9,nColumna*05,\"Presente:\",oFont2)\n\n   oPrint:Say(nFila*12,nColumna*45,\"Cotización Nº : \"+transform(str(oDbcot-&gt;Nro_cot),\"@r 9999999999\"),oFont4)\n   oPrint:Say(nFila*15,nColumna*05,\"Edificio \"+trim(Edificio-&gt;nom_edi),oFont2)\n\n    oPrint:Say(nFila*29,nColumna*05,\"Departamento :  \"+oDbcot-&gt;Cod_dep+spac(18)+\"U.F. \"+transform(oDbcot-&gt;Cos_uf,\"@z 99,999,999.99\")+spac(5)+\"$ \"+transform(oDbcot-&gt;cos_pes,\"@EZ 999,999,999\"),oFont1)\n   oPrint:Say(nFila*31,nColumna*05,\"Descuento    : \"+transform(oDbcot-&gt;Por_des, \"@r 9999.99\")+\" %\"+spac(12)+\"U.F. \"+transform(oDbcot-&gt;Des_uf,\"@z 99,999,999.99\")+spac(5)+\"$ \"+transform(Dbcot-&gt;Des_pes,\"@Z 999,999,999\"),oFont1)\n\nFavor indicarme cual es el error que estoy cometiendo.\n\nUso Clipper 5.2e Fivewin 2.2 Blinker 7.0\n\nDesde ya, muchas gracias.\n\nMiguel Rivera','',0,'AIA=','3djj0s63',1,0,'',812,0,0),(24341,5512,3,6,0,'87.16.223.161',1167857501,1,0,1,1,1,1,'','','[code:31eqyzqe]REDEFINE GET oDBF&#58;TEST1 ID 4030 OF oFld&#58;aDialogs&#91; 1 &#93; UPDATE WHEN &#46;F&#46;[/code:31eqyzqe]\n\nEMG','',0,'AIA=','31eqyzqe',1,0,'',6,0,0),(24342,5514,3,303,0,'72.199.41.171',1167857925,1,0,1,1,1,0,'','','#include \"dbcombo.ch\"','',0,'AIA=','2kmva12x',1,0,'',303,0,0),(24343,5512,3,904,0,'198.54.202.210',1167858276,1,0,1,1,1,1,'','','Nice!!!!  Thanks.','',0,'AIA=','1uzmyu5f',1,0,'',904,0,0),(24344,5514,3,904,0,'198.54.202.246',1167858711,1,0,1,1,1,1,'','','That did it.   EXCELLENT !!!  Thanks.','',0,'AIA=','gwj95avl',1,0,'',904,0,0),(24345,5513,3,904,0,'198.54.202.210',1167859702,1,0,1,1,1,1,'','','Many thanks EMG, your solution is clean, I was dreading having to create all those LOCAL variables.\n\nSuper!','',0,'AIA=','122hnybn',1,0,'',904,0,0),(24346,5509,3,303,0,'72.199.41.171',1167860175,1,0,1,1,1,0,'','','Actually the webbrowser control does have a print method. See the docs here:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/system.windows.forms.webbrowser.print.aspx\">http://msdn2.microsoft.com/en-us/librar ... print.aspx</a><!-- m -->\n\n[quote:pe9pa53e]Prints the document currently displayed in the WebBrowser control using the current print and page settings. [/quote:pe9pa53e]\n\nHowever, it does not do what it says, but rather creates a screenshot which only shows the visible part of the page complete with scrollbars.\n\nI also tried this:\n\nSHELLEXECUTE( 0, \"print\", cFile ,0,0, 1 )\n\nWhich does work with an HTML file, however, I am using an XML file and it won\'t work with that.\n\nStill looking for a solution.\n\nJames','',0,'gA==','pe9pa53e',1,0,'',303,0,0),(24347,5504,6,2,0,'87.218.146.99',1167860552,1,0,1,1,1,1,'','','Ricardo,\n\nUsa tu login y password. Si no te funciona, envíanos un email, gracias','',0,'gA==','20bqpfn7',1,0,'',2,0,0),(24348,5516,6,570,0,'200.117.129.56',1167861845,1,0,1,1,1,1,'','Una Foto en listado twbrowse se muestra transparente','Una Pregunta, en un listado donde se muestran datos de personas y fotos , las mismas se muestran como si fueran transparentes, o sea  cambian algunos  pixeles color fondo y faltan partes de la imagen. Hay alguna forma de decirle al wbrowse que no las muestra transparentes ?\n\nSaludos,','',0,'gA==','1y5z6m9b',1,0,'',570,0,0),(24349,5509,3,303,0,'72.199.41.171',1167862776,1,0,1,1,1,0,'','','I found that TActiveX inherits from TControl and thus TWindow so the print() method is that of TWindow. So, oActivex&#058;print() is really calling TWindow:print().\n\noActiveX&#058;do(\"print\") errors out. This leads me to believe that the activeX object is not a webBrowser object since the webBrowser class does have a print method.\n\nDoes \"shell.explorer\" return a \"webBrowser\" object or some other object?\n\n   oActiveX = TActiveX():New( oWnd, \"Shell.Explorer\" )\n\nJames','',0,'gA==','lpt1kj2i',1,0,'',303,0,0),(24350,5517,3,904,0,'198.54.202.210',1167862787,1,0,1,1,1,1,'','Tone when the user fills an edit box.','Can you make a tone when the user fills an edit box?\n\ne.g. He types \'12345\' in a 4 CHAR field - Can one make it beep when he types the 5?','',0,'gA==','2utivozc',1,0,'',904,0,0),(24351,5518,6,891,0,'148.243.37.162',1167862989,1,0,1,1,1,0,'','Problemas con las bases de datos','Hola amigos, antes que nada desearles feliz año nuevo que todos sus deseos y sueños se hagan realidad.\nTengo un pequeño problema de control de abrir y cerrar bases de datos y con alias\n\nDesde al inicio de mi aplicacion abro la base de datos principal empresa.dbf con la funcion Abre_Dbf(\"EMPRESA\") con la instruccion USE EMPRESA ALIAS S04 NEW SHARED Y sus variables públicas Mes_per,Ano_Per, etc etc etc para todo el modulo de aplicacion, bueno cuando selecciono el modulo de captura de altas o cualquiera que sea, abro otras tablas con sus alias, ¿porqué al cerrar alguna tabla despues de hacer algun proceso por ejemplo oFact-&gt;(DbCloseArea()), y al salirme del modulo y elijo otro modulo por ejemplo reportes, marca error de que empresa.dbf el alias no esta en uso , o la tabla no esta abierta, si le di instruccion de cerrar unicamente las tablas de factura.dbf ?? y si hago todo lo contrario y elijo otro modulo me dice que ya esta en uso empresa.dbf o su alias, ya le busque por todos lados y nada y lo mismo pasa al reindexar mis archivos sin cerrar la tabla principal empresa.dbf y cuando termine el reindexado y trato de abrir el modulo de facturacion o cualquier otro modulo, me dice que no existe el alias o la base de datos no esta en uso...alguien me podra orientarme ? o es algun problema de RDDS, uso indices NTX\nAtte: Adriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'gA==','gfdu1hxc',1,0,'',891,0,0),(24352,5499,3,906,0,'194.249.14.74',1167864037,1,0,1,1,1,1,'','','Hey programers, no more idea???','',0,'gA==','392jdys0',1,0,'',906,0,0),(24353,5499,3,6,0,'87.16.223.161',1167864933,1,0,1,1,1,1,'','Re: How to copy multiple file with fwh','[code:1tgx0ijs]#include &quot;Directry&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL aDir &#58;= DIRECTORY&#40; &quot;*&#46;dbf&quot; &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO LEN&#40; aDir &#41;\n        COPY FILE &#40; &quot;c&#58;\\&quot; + aDir&#91; i, F_NAME &#93; &#41; TO &#40; &quot;d&#58;\\&quot; + aDir&#91; i, F_NAME &#93; &#41;\n    NEXT\n\n    RETURN NIL[/code:1tgx0ijs]\n\nEMG','',0,'AIA=','1tgx0ijs',1,0,'',6,0,0),(24354,5517,3,2,0,'87.218.146.99',1167865348,1,0,1,1,1,1,'','','Ollie,\n\n#include \"set.ch\"\n\n...\n\nSet( _SET_BELL, .T. )','',0,'AIA=','2ulowdp7',1,0,'',2,0,0),(24355,5517,3,6,0,'87.16.223.161',1167865395,1,0,1,1,1,1,'','Re: Tone when the user fills an edit box.','[code:x9opch64]SET BELL ON[/code:x9opch64]\n\nEMG','',0,'AIA=','x9opch64',1,0,'',6,0,0),(24356,5517,3,2,0,'87.218.146.99',1167865438,1,0,1,1,1,1,'','','Enrico,\n\nright as usual <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1gez2jq5',1,0,'',2,0,0),(24357,5509,3,6,0,'87.16.223.161',1167865733,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2pjo09um]Actually the webbrowser control does have a print method. See the docs here:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/system.windows.forms.webbrowser.print.aspx\">http://msdn2.microsoft.com/en-us/librar ... print.aspx</a><!-- m -->\n\n[quote:2pjo09um]Prints the document currently displayed in the WebBrowser control using the current print and page settings. [/quote:2pjo09um][/quote:2pjo09um]\n\nThat documentation is for .NET platform that is a completely different thing.\n\n[quote=&quot;James Bott&quot;:2pjo09um]However, it does not do what it says, but rather creates a screenshot which only shows the visible part of the page complete with scrollbars.[/quote:2pjo09um]\n\nWhat you are calling is the Print method inherited from TWindow.\n\nEMG','',0,'gA==','2pjo09um',1,0,'',6,0,0),(24358,5509,3,6,0,'87.16.223.161',1167865795,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3vkrz14l]Does \"shell.explorer\" return a \"webBrowser\" object or some other object?[/quote:3vkrz14l]\n\nIt should be a WebBrowser object.\n\nEMG','',0,'gA==','3vkrz14l',1,0,'',6,0,0),(24359,5517,3,6,0,'87.16.223.161',1167865856,1,0,1,1,1,1,'','','Your suggestion is also right, Master! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','9yya61qr',1,0,'',6,0,0),(24360,5518,6,2,0,'87.218.146.99',1167865959,1,0,1,1,1,1,'','','Adriano,\n\nBusca algun USE en el que no estes usando NEW. Eso cerraría la DBF en uso para abrir la nueva.','',0,'gA==','29yyb6lc',1,0,'',2,0,0),(24361,5516,6,2,0,'87.218.146.99',1167866149,1,0,1,1,1,1,'','','Gustavo,\n\nEl color del pixel 0,0 del bitmap se usa como máscara para la transparencia. Cambia el pixel 0,0 del bitmap a otro color, un color que no esté en la foto.','',0,'gA==','34zv730n',1,0,'',2,0,0),(24362,5518,6,891,0,'148.243.37.162',1167868335,1,0,1,1,1,0,'','Hola Antonio','[quote=&quot;Antonio Linares&quot;:17y20h7c]Adriano,\n\nBusca algun USE en el que no estes usando NEW. Eso cerraría la DBF en uso para abrir la nueva.[/quote:17y20h7c]\n\nHola Antonio antes que nada gracias por tu atencion, ya revise los use y el unico que tengo es un archivo temporal R_ANTS02.DBF cuando hago exlusivo al hacer zap para volver a añadir registros USE (Dbf1Tmp) ALIAS (Dbf1Tmp) EXCLUSIVO\n\nZAP\nAun sigo revisando ...\n<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','17y20h7c',1,0,'',891,0,0),(24363,5509,3,303,0,'72.199.41.171',1167872482,1,0,1,1,1,0,'','','Enrico,\n\nDo you have any idea how I can simlate pressing the right mouse button, then the letter \"I\"? Can I use PostMessage() to do this?\n\nIf I can figure out how to do this, then we can simulate calling the right-click menu and selecting Print. I can then call this from a toolbar button.\n\nJames','',0,'gA==','tkan8uuo',1,0,'',303,0,0),(24364,5487,3,707,0,'222.124.20.50',1167877656,1,0,1,1,1,0,'','','Mr. Enrico\n\nThank\'s\nSee to next my questions\n\nRegards\nAreang','',0,'gA==','3oufegqe',1,0,'',707,0,0),(24365,5519,3,707,0,'222.124.20.50',1167878655,1,0,1,1,1,0,'','CHM help file to use with FWH','Mr. Enrico \n\nWhat\'s application for create CHM file ?\nand How to use with FWH ?\n\nRegards\nAreang','',0,'gA==','1g9im0dh',1,0,'',707,0,0),(24366,5520,3,98,0,'70.71.111.92',1167879646,1,0,1,1,1,1,'','lIsDir() and lMkDir() for UNC paths?','Antonio:\n\nAre there FWH functions like lIsDir() and lMkDir() that will work\non UNC paths?\n\nThese functions always return FALSE when used on UNC paths.\n\nRegards,\n\nLuis','',0,'gA==','389edp02',1,0,'',98,0,0),(24367,5521,3,707,0,'222.124.20.50',1167884517,1,0,1,1,1,0,'','connect to mysql server','Hil All !\n\nhow to connect this php on FWH\n\n&lt;?php\n# FileName=\"Connection_php_mysql.htm\"\n# Type=\"MYSQL\"\n# HTTP=\"true\"\n$hostname_cn = \"localhost\";\n$database_cn = \"mydata\";\n$username_cn = \"myuser\";\n$password_cn = \"mypassword\";\n$cn = mysql_pconnect($hostname_cn, $username_cn, $password_cn) or trigger_error(mysql_error(),E_USER_ERROR); \n?&gt;\n\nnotes :\nhostname \"localhost\" OK when apache server running on my computer\nthe problem is when server running on (e.g) <!-- w --><a class=\"postlink\" href=\"http://www.mysite.com\">www.mysite.com</a><!-- w -->\n\nRegards\nAreang','',0,'gA==','2snmi0ge',1,0,'',707,0,0),(24368,5522,6,396,0,'200.71.184.101',1167886559,1,0,1,1,1,1,'','VERSION DE xHARBOUR para FWH/FWHX 2.6/2005','Hola, se que es un poco viejo, pero es lo que tengo a la mano, si alguien podria decirme o enviarme a mi correo las versiones de xHARBOUR y HARBOUR para la version de FWH/FWHX 2.6 Abril/2005, mucho lo agradeceria, busque por el foro y en las paginas y no consigo nada, gracias.','',0,'gA==','2u91hk2n',1,0,'',396,0,0),(24369,5510,4,89,0,'213.21.136.60',1167898365,1,0,1,1,1,0,'','','look at  LANDSCAP.PRG\n\nfunction ChangeVideo( oBtn )\n\n   if oBtn:GetText() == \"Landscape\"\n      LandScape()\n      oBtn:SetText( \"Portrait\" )\n   else\n      Portrait()\n      oBtn:SetText( \"Landscape\" )\n   endif\n   \nreturn nil         \n\n//----------------------------------------------------------------------------//','',0,'gA==','do290xk5',1,0,'',89,0,0),(24370,5523,1,47,0,'203.144.143.10',1167899087,1,0,1,1,1,0,'','Fix Clip52 memory error','Dear All,\n\nI would like to get ALLOC.OBJ, OM.OBJ, MEMORY.OBJ in Clipper 5.3b.  I have an my own Clipper 5.3b.  Can anyone send me these files?  I\'ll appreciate very much or teach me how to extract from Clipper.lib.\n\nBest regards,\nDutch','',0,'gA==','309943ac',1,0,'',47,0,0),(24371,5523,1,47,0,'203.144.143.10',1167900673,1,0,1,1,1,0,'','Pls ignore this message','I can extract it already.\n\nRegards,\nDutch','',0,'gA==','1t303zgf',1,0,'',47,0,0),(24372,5520,3,2,0,'87.218.146.158',1167903869,1,0,1,1,1,1,'','','Luis,\n\nIt may be related with the users permits, but I am not sure','',0,'gA==','2gzimj0o',1,0,'',2,0,0),(24373,5521,3,6,0,'87.6.213.12',1167907320,1,0,1,1,1,1,'','Re: connect to mysql server','[quote=&quot;areang&quot;:ar6a5cef]how to connect this php on FWH[/quote:ar6a5cef]\n\nTry using ADO. You can find the connection string on:\n\n[url:ar6a5cef]http&#58;//www&#46;connectionstrings&#46;com[/url:ar6a5cef]\n\nEMG','',0,'kA==','ar6a5cef',1,0,'',6,0,0),(24374,5519,3,6,0,'87.6.213.12',1167907967,1,0,1,1,1,1,'','Re: CHM help file to use with FWH','You have to use an authoring software like Help &amp; Manual:\n\n[url:4k370edp]http&#58;//www&#46;ec-software&#46;com[/url:4k370edp]\n\nAnd then use HtmlHelp(), HTMLHelpCtx() and HTMLHelpPopup() to show the CHM from FWH.\n\nEMG','',0,'EA==','4k370edp',1,0,'',6,0,0),(24375,5510,4,28,0,'213.27.201.254',1167909392,1,0,1,1,1,0,'','','Yes all right.\n\nI think that the second link is the more interesting.\n\nA greeting','',0,'EA==','2ub9hbki',1,0,'',28,0,0),(24376,5524,7,400,0,'200.205.49.10',1167910232,1,0,1,1,1,1,'','Estabilidade do FWPCC ?','Bom dia Hermanos,\n\nQuero começar a desenvolver sistemas p/ PcPoket, e gostaria de saber se o FWPCC esta estavel ?\n\nPrincipalmente a parte de transmissao de dados via Comunicaçao Local, FTP.\n\nE qual os aparelhos e configuraçoes recomendadas ?\n\n@gradeço a ajuda.\n\n@braços Ale','',0,'EA==','iacm2z9s',1,0,'',400,0,0),(24377,5525,3,2,0,'87.218.146.181',1167910375,1,0,1,1,1,1,'','RSS support','Now when using IE 7 and accessing these forums, you will notice that the orange button is enabled:\n[url=http&#58;//imageshack&#46;us:3m4nzrwg][img:3m4nzrwg]http&#58;//img118&#46;imageshack&#46;us/img118/6909/rssfe9&#46;png[/img:3m4nzrwg][/url:3m4nzrwg]\nThis means that you can click on it to review these forums as RSS.','',0,'GA==','3m4nzrwg',1,0,'',2,0,0),(24378,5526,6,2,0,'87.218.146.181',1167910485,1,0,1,1,1,1,'','Soporte de RSS','Ahora al usar IE 7 y acceder a estos foros, advertireis que el botón naranja está activado:\n[url=http&#58;//imageshack&#46;us:2p33qmxi][img:2p33qmxi]http&#58;//img118&#46;imageshack&#46;us/img118/6909/rssfe9&#46;png[/img:2p33qmxi][/url:2p33qmxi]\nEsto significa que podeis hacer click en él para acceder a estos foros en formato RSS.','',0,'GA==','2p33qmxi',1,0,'',2,0,0),(24379,5509,3,6,0,'87.6.213.12',1167910663,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:23ak73p2]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define OLECMDID_PRINT 6\n#define OLECMDEXECOPT_PROMPTUSER 1\n\n\nSTATIC FUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar, oIe\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd\n\n    DEFINE BUTTON OF oBar;\n           ACTION oIe&#58;Do&#40; &quot;ExecWB&quot;, OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER &#41;\n\n    oIe = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n    //oIe&#58;SetProp&#40; &quot;ToolBar&quot;, 1 &#41;\n\n    oIe&#58;Do&#40; &quot;Navigate&quot;, &quot;www&#46;google&#46;com&quot; &#41;\n\n    oWnd&#58;oClient = oIe\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:23ak73p2]\n\nEMG','',0,'AIA=','23ak73p2',1,0,'',6,0,0),(24380,5527,6,63,0,'88.11.31.105',1167911862,1,0,1,1,1,0,'','Pintar un pixel sobre un Bmp','Supongamos que tengo un Bmp de -por ejemplo- 3000 x 1200 pixels, o sea, que no cabe entero en pantalla sin redimensionarlo.\n\nMi pregunta es: Alguien podría darme una receta o función para pintar UN pixel directamente sobre el archivo BMP (NO sobre pantalla) de un color determinado.   Algo así: FnPintar(\".\\MiBmp.bmp\", 500, 400, CLR_GREEN) \n\nMuchísimas gracias\n\nRafael','',0,'AIA=','2inkqngd',1,0,'',63,0,0),(24381,5515,2,248,0,'212.145.179.68',1167915200,1,0,1,1,1,0,'','Alineacion Derecha','Prueba con:\n Syntax:  \n          &lt;oPrn&gt;:Say( &lt;nRow&gt;, &lt;nCol&gt;, &lt;cText&gt;, &lt;oFont&gt;, &lt;nWidth&gt;,\n                                &lt;nClrText&gt;, &lt;nBkMode&gt;, &lt;nPad&gt; )\n\n\n &lt;nPad&gt;       A numeric value indicating how align the text to\n                    print: ( PAD_LEFT is used by default)\n\n                    #define PAD_LEFT               0\n                    #define PAD_RIGHT            1\n                    #define PAD_CENTER          2','',0,'AIA=','1boldick',1,0,'',248,0,0),(24382,5528,3,529,0,'200.159.198.49',1167918980,1,0,1,1,1,0,'','ads without map drive letters','HI, i need open files in ads server without mapping drive letters, RF already explain this here, but dont work to me... theres any other way? thanks','',0,'AIA=','2a00pcrq',1,0,'',529,0,0),(24383,5529,6,203,0,'200.107.2.169',1167920646,1,0,1,1,1,1,'','ERROR AL PROBAR CRYSTAL REPORT 8.0','Buenos Días amigos del foro\n\nEstoy probando testcrys.prg con un rpt mio y el ejecutarlo me da este error:\nxBase warning:File needs to be verified\nCould not start report\nError code 1311254\nError Detected by database dll\n\nPor favor alguna idea\n\nSaludos\nOscar','',0,'AIA=','s0kkrked',1,0,'',203,0,0),(24384,5453,6,255,0,'189.140.229.14',1167920815,1,0,1,1,1,1,'','','La idea es generar un solo archivo .RES a partir de varios .RC\n\nHaces un .RC principal y le vas aagregando todos los .RC que necesitas...\nal final te quedará solo un .RES y es el que se usará para incrustarlo\na tu aplicacion.\n\nSi lo prefieres, puedes editar los archivos VERDE1.DAT, VERCE2.DAT....ETC..\nque se encuentran en el directorio DATA del verce..\nEn esos archivos se encuentran los datos necesarios para la construcción\ndel archivo script (MAK) que usa verce para compilar la app.\n\nEspero te sirva..\nSaludos','',0,'AIA=','2opxqsd4',1,0,'',255,0,0),(24385,5516,6,570,0,'200.117.129.56',1167922099,1,0,1,1,1,1,'','','Gracias por la respuesta, pero no he podido arreglarlo, a continuación esta la funcion que levanta los bmp del disco para mostrarlos en el wbrowse. Que estoy haciendo mal ?, sigue mostrando partes de la imagen con pixeles del color del fondo. Las fotos fueron tomadas con una camara USB y grabadas en formato BMP, solo se muestran mal en el listbox.-\n\nMuchas Gracias y Saludos.-\n\nesto en el wbrowse\n\n    @ 0,0    LISTBOX oBremp ;					FIELDS  trae_cara(oBemp),;\n      \n\n*------------------------------------------------------\n* TRAE CARA SI ESTA *\n*------------------------------------------------------\nFUNCTION trae_cara(oBemp)\n\nLOCAL cim:=\"\", hBitmap\n\ncar:=ud+\"\\GRCARD\\IMLE\\F\"+STRZERO((oBemp)-&gt;EMP_LEGA,7)+\".BMP\"\nIF FILE(car)\n   If( hBitmap != nil, ( DeleteObject( hBitmap ), hBitmap := nil ),)\n	 hBitmap := readbitmap( 0, car )\n	 SetPixel( hBitmap, 0, 0, rgb(255,0,0) )\n	 cim:=hBitmap\nENDIF\n\nRETURN(cim)','',0,'AIA=','3n4uoibh',1,0,'',570,0,0),(24386,5530,3,904,0,'198.54.202.194',1167922869,1,0,1,1,1,1,'','Help needed with DBCOMBO (ON CHANGE)','I want the user the select the order of the table with a combo box\n\n[code:2pwr459x]LOCAL aTAGLIST&#58;=GETORDNAMES&#40;&#41; // &#123;&quot;COMPANY&quot;,&quot;SURNAME&quot;,&quot;NUMBER&quot;&#41;\nLOCAL cTAG&#58;=ORDSETFOCUS&#40;&#41;\n\n&#46;&#46;&#46;\n\nREDEFINE DBCOMBO cTAG ID 40 items aTAGLIST list aTAGLIST of oDlg_search UPDATE ON CHANGE ORDSETFOCUS&#40;cTAG&#41;[/code:2pwr459x]... Doesn\'t work.\n[code:2pwr459x]REDEFINE DBCOMBO cTAG ID 40 items aTAGLIST list aTAGLIST of oDlg_search UPDATE ON CHANGE MSGINFO&#40;cTAG&#41;[/code:2pwr459x]...reveals that cTAG is not what is selected?\n\nWhat am I doing wrong?','',0,'AIA=','2pwr459x',1,0,'',904,0,0),(24387,5516,6,570,0,'200.117.129.56',1167924314,1,0,1,1,1,1,'','','Aqui adjunto imagen de lo que me sucede, \nme esta sacando canas verdes!!\n\nMuchas Gracias y saludos,\n\n[img:14x3m0ln]http&#58;//www&#46;prediger&#46;com&#46;ar/consulta&#46;jpg[/img:14x3m0ln]','',0,'CA==','14x3m0ln',1,0,'',570,0,0),(24388,5531,3,190,0,'202.65.134.34',1167927151,1,0,1,1,1,0,'','Has anybody tried Text2Speach using FWH ?','Hi all\n\n[quote:3pmx2prr]\nHas anybody tried Text2Speach using FWH ?\n[/quote:3pmx2prr]\n\nThanks\n\n- Ramesh Babu','',0,'gA==','3pmx2prr',1,0,'',190,0,0),(24389,5521,3,707,0,'222.124.20.50',1167927285,1,0,1,1,1,0,'','','Thank\'s Enrico \n\nCould you mind to give me example ?\n\nSo many connection string on that site, which one for me ?\n\nBest Regard\nAreang','',0,'gA==','30y6h6rx',1,0,'',707,0,0),(24390,5509,3,303,0,'72.199.41.171',1167927871,1,0,1,1,1,0,'','','Wow, Encrico, that\'s just what I needed! Thanks.\n\nWhere did you find the documentation for that? I expect there might be more useful things there.\n\nI must have spent three hours searching the net for documentation and I didn\'t find that.\n\nJames','',0,'gA==','qqdw7oy5',1,0,'',303,0,0),(24391,5531,3,707,0,'222.124.20.50',1167928521,1,0,1,1,1,0,'','','Mr. Ramesh\n\nI did for Cash Register System to say amount of payment.\n\nBest Regard\nAreang','',0,'gA==','3opksl2e',1,0,'',707,0,0),(24392,5531,3,6,0,'87.6.213.12',1167928868,1,0,1,1,1,1,'','Re: Has anybody tried Text2Speach using FWH ?','This is a working sample:\n\n[code:14z8s8np]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oSpeech &#58;= CREATEOBJECT&#40; &quot;Sapi&#46;SPVoice&quot; &#41;\n\n    oSpeech&#58;Speak&#40; &quot;This is a test&quot; &#41;\n\n    RETURN NIL[/code:14z8s8np]\n\nEMG','',0,'AIA=','14z8s8np',1,0,'',6,0,0),(24393,5531,3,190,0,'202.65.134.34',1167929370,1,0,1,1,1,0,'','','Mr.Enrico\n\nThank you very much for your reply.\n\nI am getting the following error with the above code.\nPlease look in.\n[code]\nError description: Error TOleAuto/-1  Unknown error: TOLEAUTO:NEW\n   Args:\n     [   1] = C   Sapi.SPVoice\n[code/]\n\nRegards,\n\n- Ramesh Babu P','',0,'','3cfkho92',1,1167929665,'',190,1,0),(24394,5509,3,6,0,'87.6.213.12',1167929527,1,0,1,1,1,1,'','','Here:\n\n[url:xq6ysuhx]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/workshop/browser/WebBrowser/WebBrowser&#46;asp[/url:xq6ysuhx]\n\nAt the paragraph:\n\n[quote:xq6ysuhx]Printing the Current Page with the WebBrowser Control[/quote:xq6ysuhx]\n\nClick on [u:xq6ysuhx][b:xq6ysuhx]Show Example[/b:xq6ysuhx][/u:xq6ysuhx].\n\nEMG','',0,'0Q==','xq6ysuhx',1,1167934621,'',6,2,0),(24395,5531,3,343,0,'204.57.111.194',1167929637,1,0,1,1,1,0,'','','It works ok for me with xhb and Windows XP Professional','',0,'0Q==','zhht4ryh',1,0,'',343,0,0),(24396,5531,3,6,0,'87.6.213.12',1167929730,1,0,1,1,1,1,'','','The sample works perfectly but you obviously have to install SAPI.\n\nSearch for spchapi.exe in the MS website.\n\nEMG','',0,'','3nvjrxry',1,0,'',6,0,0),(24397,5531,3,190,0,'202.65.134.34',1167929784,1,0,1,1,1,0,'','','Hello Mr.Gale FORd\n\nThank you for your reply.\n\nI tested this in WIN98 SE after installing spchapi.exe \n\nI think, still I am missing some thing.\n\nRegards\n\n- Ramesh Babu P','',0,'','teqi8cw4',1,0,'',190,0,0),(24398,5521,3,6,0,'87.6.213.12',1167929927,1,0,1,1,1,1,'','','[quote=&quot;areang&quot;:i3o85kl9]Thank\'s Enrico \n\nCould you mind to give me example ?[/quote:i3o85kl9]\n\nNo, sorry, as I haven\'t MySql to test.\n\n[quote=&quot;areang&quot;:i3o85kl9]So many connection string on that site, which one for me ?[/quote:i3o85kl9]\n\nOLE DB one:\n\n[quote:i3o85kl9]Provider=MySQLProv;Data Source=mydb;User Id=myUsername;Password=myPassword;[/quote:i3o85kl9]\n\nEMG','',0,'gA==','i3o85kl9',1,0,'',6,0,0),(24399,5531,3,190,0,'202.65.134.34',1167931327,1,0,1,1,1,0,'','','Hello Mr.Enrico\n\nI have again tested your code in WINXP.\nIt is working OK in winxp.\n\nTo workwith WIN98SE, even after installing spchapi.exe \nwhat I might be missing, can you please guide me.\n\nAnd please guide me how to change to voice, speed and\nother controls ?\n\nThanks\n\n- Ramesh Babu P','',0,'gA==','1uy8gm36',1,0,'',190,0,0),(24400,5531,3,6,0,'87.17.213.8',1167931746,1,0,1,1,1,1,'','','I don\'t know, sorry.\n\nEMG','',0,'gA==','2tq9wy3c',1,0,'',6,0,0),(24401,5530,3,303,0,'72.199.41.171',1167932065,1,0,1,1,1,0,'','','Ollie,\n\nThis works for me. cTag shows what is selected. Can you provide a small self-contained example that shows the problem?\n\nJames\n\n\n[code:2mvwh351]#INCLUDE &quot;FIVEWIN&#46;CH&quot;\n#include &quot;dbcombo&#46;ch&quot;\n\nfunction main&#40;&#41;\n\nLOCAL aTAGLIST&#58;= &#123;&quot;COMPANY&quot;,&quot;SURNAME&quot;,&quot;NUMBER&quot;&#125;\nLOCAL cTAG&#58;= &quot;SURNAME&quot;\nlocal oDlg\n\ndefine dialog oDlg\n\n @ 1,1 DBCOMBO cTAG items aTAGLIST ;\n  list aTAGLIST of oDlg UPDATE ON CHANGE msgInfo&#40;cTAG&#41;\n\nactivate dialog oDlg\n\nreturn nil[/code:2mvwh351]','',0,'AIA=','2mvwh351',1,0,'',303,0,0),(24402,5524,7,2,0,'87.218.146.41',1167932656,1,0,1,1,1,1,'','','Alessandro,\n\nFWPPC está realmente estable como muchos usuarios podrán confirmártelo. Ya son muchos los usuarios y están muy satisfechos con los resultados que obtienen.\n\nEn cuanto al FTP, funciona correctamente desde FWPPC.','',0,'AIA=','8c030m6b',1,0,'',2,0,0),(24403,5516,6,2,0,'87.218.146.41',1167932788,1,0,1,1,1,1,'','','Gustavo,\n\nQue browse estás usando ?','',0,'AIA=','1o9kikzv',1,0,'',2,0,0),(24404,5509,3,303,0,'72.199.41.171',1167932981,1,0,1,1,1,0,'','','Enrico,\n\nI get a \"cannot display page\" error when trying that link.\n\nJames','',0,'AIA=','9qyn5ksf',1,0,'',303,0,0),(24405,5527,6,2,0,'87.218.146.41',1167933047,1,0,1,1,1,1,'','','Rafael,\n\nPara modificar el pixel tienes que cargarlo en un hDC, que no quiere decir que tengas que visualizarlo:\n\nlocal hOld := SelectObject( oWnd:hDC, hBitmap )\n\nSetPixel( oWnd:hDC, ... )\n\nGuardar el bitmap a disco nuevamente\n\nSelectObject( oWnd:hDC, hOld )\n\nSi explicas un poco más lo que quieres hacer, podemos ver la forma idónea de guardarlo','',0,'AIA=','2wswxjzg',1,0,'',2,0,0),(24406,5509,3,303,0,'72.199.41.171',1167933247,1,0,1,1,1,0,'','','Enrico,\n\nOK I figured out that the link is missing a ? after ...default.asp. Now it works.\n\nJames','',0,'AIA=','2zzxejey',1,0,'',303,0,0),(24407,5505,3,289,0,'82.167.41.97',1167933386,1,0,1,1,1,0,'','','Welcome Silvio,\nI used the following function to View copies Path  of CD-ROM \nAnd i copies of the files To Path \nOf Windows copies files to cd ROM Auto.\nthe example WINDOWS XP 2\nFUNC MAIN()\nLOCAL CDBURN:=CD_Burning()+\"\\*.*\",file_c:=\"c:\\*.*\"\nCOPY file_c  TO &amp;CDBURN\nRETURN  NIL\n*******************************************************\nfunc CD_Burning()\n   LOCAL oReg,uVar:=\"\"\n *****************************************\n#define  HKEY_CURRENT_USER       2147483649\n****************************************\n oReg := TReg32():New(HKEY_CURRENT_USER,\"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders\",.f.)\nuVar := oReg:Get(\"CD Burning\",\"\")\noReg:Close()\nRETURN uVar\n*******************************************************','',0,'AIA=','2gj27ljx',1,1168542835,'',289,1,0),(24408,5509,3,6,0,'87.17.213.8',1167934703,1,0,1,1,1,1,'','','Thank you, I\'ve just fixed the link in my message.\n\nEMG','',0,'AIA=','3mqmpgr0',1,0,'',6,0,0),(24409,5531,3,303,0,'72.199.41.171',1167935706,1,0,1,1,1,0,'','','&gt;And please guide me how to change to voice, speed and \nother controls ? \n\nControl Panel-Sounds, speech, and audio devices...\n\nJames','',0,'AIA=','2n0hg52w',1,0,'',303,0,0),(24410,5524,7,400,0,'200.205.49.10',1167936358,1,0,1,1,1,1,'','','Gracias Antonio.\n\nFico mais tranquilo, p/ começar minha empreitada.\n\n@braços Ale','',0,'AIA=','1oh3n4qb',1,0,'',400,0,0),(24411,5516,6,570,0,'200.123.103.134',1167937173,1,0,1,1,1,1,'','','Antonio estoy usando:\n\nfwh 2.6 03/2005\nCompiler version: xHarbour build 0.99.51 Intl. (SimpLex)\nClase TWBrowse by Hernan Ceccarelli Ver: 15\n\nProbé actualizar el wbrowse a la versión 17 que esta en utilidades pero me tiro errores, creo que funciona solo con versiones de fwh superiores.. será esto el problema ?\n\nSaludos y Gracias,','',0,'AIA=','39cuytkz',1,0,'',570,0,0),(24412,5527,6,63,0,'88.11.31.105',1167939505,1,0,1,1,1,0,'','','Antonio: Gracias por tu sugerencia.  Valos a ver si podemos adelantar algo más:\n\nSe trata de diseñar un sistema que permita pintar sobre un plano el trayecto recorrido por un automóvil equipado con un receptor GPS.  Ya tengo el sistema que captura las coordenadas del GPS, segundo a segundo.  Está hecho con FWPPC y va de maravilla. Ahora se trata de ponerlo en gráfico.\n\nLo lógico sería utilizar un plano dibujado en AutoCad, o sea, en formato vectorial. El problema es que de ese formato no tengo ni idea, así que pensé que quizás sería más fácil hacerlo con un plano escaneado en forma de bitmap y me pareció que el BMP era el formato más simple.  A lo mejor estoy equivocado y alguien sabe cómo hacerlo en vectorial o incluso en formatos más comprimidos como el Jpg.\n\nPara tener una resolución adecuada, el BMP ha de ser muy grande (tengo uno de muestra que tiene casi 100 Mb), así que no es posible presentarlo adecuadamente en pantalla.  De ahí mi requisito de marcar pixels directamente sobre el archivo.\n\n¿Qué pixels hay que marcar?  Se tratará de interpolar las coordenadas GPS, punto a punto sobre el propio plano tomando como referencia sus vértices, cuyas coordenadas son conocidas.  Puede ser un trabajo laborioso pero no parece muy complicado. \n\nEn fin, incluso puede ser que exista ya alguna librería que facilite el trabajo aunque preferiría utilizar código propio.  Me podrías dar alguna idea o -mejor aún- un esqueleto de programa por donde empezar?  Por ejemplo, en tu sugerencia, qué es hBitmap?  Si no he visualizado la imagen, cómo obtengo su handle?  Y oWnd:hDc, a qué ventana se refiere? Perdona por las preguntas de principiante pero es que esto de SelectObject() y los hDc siempre me ha resultado un poco misterioso. \n\nGracias y un saludo,\n\nRafael','',0,'AIA=','3745h64l',1,0,'',63,0,0),(24413,3879,6,110,0,'165.98.223.31',1167939590,1,0,1,1,1,1,'','','aca trabajando duro, o durando en el trabajo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\npero ya estoy de regreso.\ncon trabajito de programacion <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nasi que estare dando guerra nuevamente.\n\n\nsalu2\ncarlos vargas','',0,'AIA=','3cepr3h2',1,0,'',110,0,0),(24414,3879,6,110,0,'165.98.223.31',1167939943,1,0,1,1,1,1,'','karinha','karinha\n\nExcelente trabajo\n\ncomo siempre muy vistoso <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nMe alegra que cada vez mejore el programa \n\n\nsalu2\ncarlos vargas','',0,'AIA=','1q700sio',1,0,'',110,0,0),(24415,3879,6,110,0,'165.98.223.31',1167940218,1,0,1,1,1,1,'','','karinha\n\nExcelente trabajo.\n\ncada dia el programa mejora aun mas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'AIA=','37gqixee',1,0,'',110,0,0),(24416,3879,6,362,0,'200.168.52.156',1167940666,1,0,1,1,1,1,'','','Gracias Carlos, mi Vérsion Prefessional está increible.\n\na usted caro amigo, muchas gracias, és mui fantástico!\n\nRegards, saludos.','',0,'AIA=','25x4t5qp',1,0,'',362,0,0),(24417,4392,7,527,0,'81.34.60.46',1167941220,1,0,1,1,1,0,'','Podrias enviarme un ejemplo de codigo','por favor.','',0,'AIA=','1zsmnof8',1,0,'',527,0,0),(24418,4392,7,527,0,'81.34.60.46',1167941254,1,0,1,1,1,0,'','POR FAVOR','Podrias enviarme un ejemplo de codigo por favor, me interesa mucho este tema.\n\ngracias.','',0,'AIA=','265pdyj7',1,0,'',527,0,0),(24419,5520,3,98,0,'70.71.111.92',1167941835,1,0,1,1,1,1,'','','Antonio:\n\n[quote=&quot;Antonio Linares&quot;:2ufwhnu8]\nIt may be related with the users permits, but I am not sure[/quote:2ufwhnu8]\n\nI\'ve tested UNC paths on my small network[1] to which I have full access to.  The mention functions always fail.  Same goes for the xHarbour\'s IsDirectory() or [x]Harbour\'s MakeDir().  Neither seems to work on UNC paths.\n\nHopefully someone has already a solution out there.\n\nRegards,\n\nLuis\n\n[1] Consisting of 2 PCs: mine and my wife\'s <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2ufwhnu8',1,0,'',98,0,0),(24420,5525,3,98,0,'70.71.111.92',1167942894,1,0,1,1,1,1,'','Re: RSS support','Antonio:\n\nFirefox 2.0 will also show the RSS icon (in this case in the URL bar instead of the toolbar).\n\nRegards,\n\nLuis','',0,'gA==','yrmr9wq3',1,0,'',98,0,0),(24421,5530,3,904,0,'198.54.202.226',1167944010,1,0,1,1,1,1,'','','Hi James,\n\nYour code tested fine for me too.  I have found the problem only occurs when you define from a resouce.\n\nHerewith the code and the resource too.\n\nThanks.\n\n[code:1ov9x551]#INCLUDE &quot;FIVEWIN&#46;CH&quot;\n#include &quot;dbcombo&#46;ch&quot;\n\nfunction main&#40;&#41;\n\nLOCAL aTAGLIST\nLOCAL cTAG&#58;=&quot;SURNAME&quot;\nLOCAL oDlg_Search, oGet_Searchkey, oBtn\n\nDBCREATE&#40;\'TEST&#46;DBF\',&#123;                           ;\n                    &#123;&quot;SURNAME&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;COMPANY&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;NUMBER&quot;,    &quot;C&quot;, 7, 0&#125;  ;\n                  &#125; &#41;\n\nUSE TEST EXCLUSIVE NEW\n      INDEX ON Upper&#40; TEST-&gt;SURNAME &#41; TAG &quot;SURNAME&quot;\n      INDEX ON Upper&#40; TEST-&gt;COMPANY &#41; TAG &quot;COMPANY&quot;\n      INDEX ON TEST-&gt;NUMBER TAG &quot;NUMBER&quot;\n\n    ORDSETFOCUS&#40; cTAG &#41; //Default order\n\n    aTAGLIST&#58;=GETORDNAMES&#40;&#41;\n\n   DEFINE DIALOG oDlg_Search RESOURCE &quot;SEARCH&quot;\n   REDEFINE GET oGet_Searchkey ID 10 OF oDlg_Search PICTURE &quot;@!K&quot; UPDATE MESSAGE &quot;ENTER SEARCH&quot;\n   REDEFINE LISTBOX oListBox ID 20 FIELDS //OF oDlg_Search //UPDATE ON DBLCLICK oDlg_Search&#58;End&#40;&#41;\n   REDEFINE BUTTON oBtn ID 30 of oDlg_Search ACTION oDlg_Search&#58;End&#40;&#41;\n   REDEFINE DBCOMBO cTAG ID 40 items aTAGLIST list aTAGLIST of oDlg_Search UPDATE ON CHANGE &#40;MSGINFO&#40;cTAG&#41;,ORDSETFOCUS&#40;cTAG&#41;&#41;\n   ACTIVATE DIALOG oDlg_Search\n\nreturn nil\n[/code:1ov9x551]\n\ndbcombo1.rc   :\n\n[code:1ov9x551]// RESOURCE SCRIPT generated by &quot;Pelles C for Windows, version 4&#46;50&quot;&#46;\n\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n#include &lt;richedit&#46;h&gt;\n\nLANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_SOUTH_AFRICA\n\nSEARCH DIALOGEX FIXED IMPURE 6, 18, 416, 236\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nCAPTION &quot;Search&quot;\nFONT 8, &quot;MS Sans Serif&quot;, 0, 0, 1\nBEGIN\n  CONTROL &quot;Search&#58;&quot;, 4001, &quot;Static&quot;, WS_GROUP, 0, 6, 28, 8\n  CONTROL &quot;Editbox&quot;, 10, &quot;Edit&quot;, ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 28, 4, 162, 12\n  CONTROL &quot;&quot;, 20, &quot;TWBrowse&quot;, WS_TABSTOP|0x00a00000, 2, 22, 414, 214\n  CONTROL &quot;Select&quot;, 30, &quot;Button&quot;, BS_DEFPUSHBUTTON|WS_TABSTOP, 192, 4, 45, 15\n  CONTROL &quot;&quot;, 40, &quot;ComboBox&quot;, WS_BORDER|CBS_DROPDOWN|CBS_SORT|WS_VSCROLL|WS_TABSTOP, 312, 4, 102, 68\n  CONTROL &quot;Search by&#58;&quot;, 4003, &quot;Static&quot;, WS_GROUP, 274, 6, 36, 8\nEND[/code:1ov9x551]','',0,'AIA=','1ov9x551',1,0,'',904,0,0),(24422,5530,3,303,0,'72.199.41.171',1167946192,1,0,1,1,1,0,'','','Ollie,\n\nI had to modify the RC file considerably since I use Workshop and the Pelles C RC file was incompatible. I reduced the code to just the DBCombo control and the msgInfo still returns the selected choice. Are you still saying that you are not getting the DBCombo selection in msgInfo()? Or, is that not the problem?\n\nI note these problems with getting the browse to display after changing the sort order. First you are not using the ALIAS clause in the LISTBOX REDEFINE. Second you are not using (cAlias)-&gt;ORDSETFOCUS() when you change the focus. Finally, you have to refresh the browse after changing the focus.\n\nJames\n\n[code:2nhf5al7]#INCLUDE &quot;FIVEWIN&#46;CH&quot;\n#include &quot;dbcombo&#46;ch&quot;\n\nfunction main&#40;&#41;\n\nLOCAL aTAGLIST\nLOCAL cTAG&#58;=&quot;SURNAME&quot;\nLOCAL oDlg_Search, oGet_Searchkey, oBtn\n\nDBCREATE&#40;\'TEST&#46;DBF\',&#123;                           ;\n                    &#123;&quot;SURNAME&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;COMPANY&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;NUMBER&quot;,    &quot;C&quot;, 7, 0&#125;  ;\n                  &#125; &#41;\n\nUSE TEST EXCLUSIVE NEW\n      INDEX ON Upper&#40; TEST-&gt;SURNAME &#41; TAG &quot;SURNAME&quot;\n      INDEX ON Upper&#40; TEST-&gt;COMPANY &#41; TAG &quot;COMPANY&quot;\n      INDEX ON TEST-&gt;NUMBER TAG &quot;NUMBER&quot;\n\n    ORDSETFOCUS&#40; cTAG &#41; //Default order\n\n    aTAGLIST&#58;=GETORDNAMES&#40;&#41;\n\n   DEFINE DIALOG oDlg_Search RESOURCE &quot;SEARCH&quot;\n\n   REDEFINE DBCOMBO cTAG ID 101 items aTAGLIST list aTAGLIST of oDlg_Search UPDATE ON CHANGE &#40;MSGINFO&#40;cTAG&#41;,ORDSETFOCUS&#40;cTAG&#41;&#41;\n\n   ACTIVATE DIALOG oDlg_Search\n\nreturn nil[/code:2nhf5al7]','',0,'AIA=','2nhf5al7',1,0,'',303,0,0),(24423,4392,7,63,0,'88.11.31.105',1167947753,1,0,1,1,1,0,'','','Básicamente, yo utilizo un receptor GPS con conexión Bluetooth y un iPaq Pocket PC.  El enlace entre el GPS y el iPaq se hace abriendo el puerto COM8 y no tienes más que ir leyendo por él los strings que envía el GPS. Tienes un buen ejemplo en \\Samples\\Bluetooth.prg\n\nMi receptor GPS envía un juego de coordenadas cada segundo.  Lo hace según un protocolo en el cual cada empieza por $GP....  Puedes encontrar detalles el respecto en Google, buscando NMEA+GPS.  En todo caso, una vez tienes el enlace Bluetooh establecido, es sencillísimo hacer un programa que vaya leyendo las secuencias de datos y depositándolas en un archivo de forma que puedas analizarlas con calma y ver exactamente qué es lo que envía tu receptor.  En elgún pundo de cada string están las coordenadas de longitud y latitud, la hora y una serie de datos auxiliares, separados por comas.  \n\nA partir de ahí, depende de qué quieras hacer tú con los datos.\n\nEspero haberte dado alguna pista útil.  Un saludo,\n\nRafael','',0,'AIA=','326qv6fy',1,0,'',63,0,0),(24424,5530,3,904,0,'198.54.202.210',1167948830,1,0,1,1,1,1,'','','Thanks for your efforts.\n\nFirst let me say, when I coded the window - everything works perfectly. It must have something to do with the Resource I\'m using. Let me explain what it does:\n\nClick the ComboBox\nSee 3 choices - Company, Number and Surname\nClick on Company\nCombobox displays Surname (so does MSGINFO(cTAG)) - database is now in Surname order (although I clicked Company)\nClick the ComboBox\nSee 3 choices - Company, Number and Surname\nClick on Number\nCombobox displays Company (so does MSGINFO(cTAG)) - database is now in Company order (although I clicked Number)\nClick the ComboBox\nSee 3 choices - Company, Number and Surname\nClick on Surname\nCombobox displays Number (so does MSGINFO(cTAG)) - database is now in Number order (although I clicked Surname)\n\nThere is a pattern, but I can\'t see what\'s causing it. f\n\nHere is the code and the resource file, re-done with Borland Resource\n\n\n[code:3mreq725]function main&#40;&#41;\n\nLOCAL aTAGLIST\nLOCAL cTAG&#58;=&quot;SURNAME&quot;\nLOCAL oDlg_Search, oGet_Searchkey, oBtn\n\nDBCREATE&#40;\'TEST&#46;DBF\',&#123;                           ;\n                    &#123;&quot;SURNAME&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;COMPANY&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;NUMBER&quot;,    &quot;C&quot;, 7, 0&#125;  ;\n                  &#125; &#41;\n\nUSE TEST EXCLUSIVE NEW\n      INDEX ON Upper&#40; TEST-&gt;SURNAME &#41; TAG &quot;SURNAME&quot;\n      INDEX ON Upper&#40; TEST-&gt;COMPANY &#41; TAG &quot;COMPANY&quot;\n      INDEX ON TEST-&gt;NUMBER TAG &quot;NUMBER&quot;\n\n    TEST-&gt;&#40;ORDSETFOCUS&#40; cTAG &#41;&#41; //Default order\n\n    aTAGLIST&#58;=GETORDNAMES&#40;&#41;\n\n   DEFINE DIALOG oDlg_Search RESOURCE &quot;SEARCH&quot;\n   REDEFINE GET oGet_Searchkey ID 10 OF oDlg_Search PICTURE &quot;@!K&quot; UPDATE MESSAGE &quot;ENTER SEARCH&quot;\n   REDEFINE BUTTON oBtn ID 20 of oDlg_Search ACTION oDlg_Search&#58;End&#40;&#41;\n   REDEFINE DBCOMBO cTAG ID 30 of oDlg_Search items aTAGLIST list aTAGLIST UPDATE ON CHANGE &#40;MSGINFO&#40;cTAG&#41;,TEST-&gt;&#40;ORDSETFOCUS&#40;cTAG&#41;&#41;,oListBox&#58;REFRESH&#40;&#41;&#41;\n   REDEFINE LISTBOX oListBox VAR ID 40 OF oDlg_Search FIELDS UPDATE ON DBLCLICK oDlg_Search&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg_Search\n\nreturn nil\n[/code:3mreq725]\n\n[code:3mreq725]/****************************************************************************\n\n\ndbcombo1&#46;rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n\n#define DIALOG_1	1\nSEARCH DIALOG 35, 52, 402, 227\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;Search&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n COMBOBOX 30, 307, 3, 92, 71, CBS_DROPDOWNLIST | WS_TABSTOP\n LTEXT &quot;Search for&#58;&quot;, -1, 6, 5, 38, 8\n EDITTEXT 10, 46, 4, 141, 12, WS_BORDER | WS_TABSTOP\n LTEXT &quot;Order&#58;&quot;, -1, 285, 5, 22, 8\n LISTBOX 40, 2, 27, 400, 199, LBS_STANDARD\n PUSHBUTTON &quot;Select&quot;, 20, 190, 3, 50, 14\n&#125;\n[/code:3mreq725]','',0,'AIA=','3mreq725',1,0,'',904,0,0),(24425,5505,3,49,0,'62.13.172.78',1167950842,1,0,1,1,1,1,'','','thank but where is the func or command \"copy file\" ?\n[code:20ob4fbg]Stack Calls\n===========\n   Called from&#58;  =&gt; __COPYFILE&#40;0&#41;\n   Called from&#58; test&#46;prg =&gt; MAIN&#40;7&#41;[/code:20ob4fbg]\n\nI wanted call the burn xp procedure ...','',0,'AIA=','20ob4fbg',1,0,'',49,0,0),(24426,5531,3,49,0,'62.13.172.78',1167951102,1,0,1,1,1,1,'','','you must have stm.dll \nthe txt2speeck class work fine  on xp home, xp professional sp2','',0,'AIA=','osm3gjun',1,1167954566,'',49,1,0),(24427,5530,3,303,0,'72.199.41.171',1167951508,1,0,1,1,1,0,'','','Ollie,\n\nFirst, this line works fine (modified from yours):\n\n[code:b7qpp86y]   REDEFINE DBCOMBO cTAG ID 30 of oDlg_Search ;\n     items aTAGLIST list aTAGLIST UPDATE ON CHANGE msgInfo&#40;cTag&#41;[/code:b7qpp86y]\nNext your line won\'t work because oListbox is a local and it is being called within the DBCombo class so it crashes.\n\n[code:b7qpp86y]   REDEFINE DBCOMBO cTAG ID 30 of oDlg_Search items aTAGLIST list aTAGLIST ;\n     UPDATE ON CHANGE &#40;MSGINFO&#40;cTAG&#41;,TEST-&gt;&#40;ORDSETFOCUS&#40;cTAG&#41;&#41;,oListBox&#58;REFRESH&#40;&#41;&#41;[/code:b7qpp86y]\n\nI don\'t know how you are seeing the strange results you are getting because the program crashes on me after displaying the msgInfo(). Ah, perhaps you have oListbox defined as a public?\n\nHere is another problem. You have defined a LISTBOX in Workshop. This is a windows control called \"listbox\" which is not the same as the control we also call \"listbox\" in FW. They both are defined like this:\n\n   Redefine listbox oLbx...\n   \nBut if there is a FIELDS clause, then it gets preprocessed into TWBrowse instead of TListbox (see \\include\\fivewin.ch). The listbox you have defined in Workshop is the Windows control, but the one you have REDEFINED in your code is a TWBrowse. It will compile this way but it will not work properly.\n\nTo use a TWBrowse in Workshop you have to define a custom control and name it TWBrowse. You have to create this custom control because it is not a standard windows control that Workshop already knows about. \n\nThere is also another way do go about what you are trying to do, and that is you can assign actions to the TWBrowse headers. Below are some notes from my notes file on how to do this. This way you don\'t even need to use the dbcombo.\n\nIf you don\'t like using the header actions, try fixing the above problems instead.\n\nJames\n\n------------------------\nHeader Actions\n\nYou can attach actions to column headers using the ACTION clause. Here is an example of sorting columns:\n\n[code:b7qpp86y]method browse&#40;&#41;\n   &#46;&#46;&#46;\n\n   @0,0 listbox oLbx&#46;&#46;&#46;\n\n   &#58;&#58;setHeaders&#40;oLbx&#41;\n\n   oLbx&#58;aActions&#58;=&#123; &#123;|| &#58;&#58;action&#40;1,oLbx&#41;&#125;, &#123;||&#58;&#58;action&#40;2,oLbx&#41;&#125; &#125;\n   &#46;&#46;&#46;\nreturn self\n\nmethod action&#40;nOrder,oLbx&#41;\n   &#58;&#58;setOrder&#40;nOrder&#41;\n   &#58;&#58;gotop&#40;&#41;\n   oLbx&#58;gotop&#40;&#41;\n   oLbx&#58;refresh&#40;&#41;\n   &#58;&#58;setHeaders&#40;oLbx&#41;\nreturn nil\n\nmethod setHeaders&#40;oLbx&#41;\n   oLbx&#58;aHeaders&#58;=&#123;;\n       if&#40;&#58;&#58;indexOrder&#40;&#41;=1,&quot;CustNo*&quot;,&quot;CustNo&quot;&#41;, ;\n       if&#40;&#58;&#58;indexOrder&#40;&#41;=2,&quot;Item*&quot;,&quot;Item&quot;&#41;, ;\n       &quot;Price&quot;,&quot;Start&quot;,&quot;End&quot;;\n       &#125;\nreturn nil[/code:b7qpp86y]\n\n(To provide a visual indication of the sorted column you mark the headers with an asterisk. )\n-------------------------------------------','',0,'AIA=','b7qpp86y',1,0,'',303,0,0),(24428,5505,3,49,0,'62.13.172.78',1167951662,1,0,1,1,1,1,'','','PERHAPS :\n\n[code:1nyq5k1f]\n#Include &quot;FiveWin&#46;Ch&quot;\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oCDBurn &#58;= CREATEOBJECT&#40; &quot;IMAPI&#46;ICDBURN&quot; &#41;\n\n             oCDBurn&#58;GetRecorderDriveLetter&#40;&quot;E&#58;\\&quot;&#41;\n            *oCDBurn&#58;HasRecordableDrive&#40;&#41;\n             oCDBurn&#58;Burn&#40;&#41;\n\n    RETURN NIL\n[/code:1nyq5k1f]\n\nBUT IT MAKE ERROR\n\nSOME ONE CAN HELP ME PLS?','',0,'AIA=','1nyq5k1f',1,0,'',49,0,0),(24429,5531,3,397,0,'201.27.67.192',1167952979,1,0,1,0,1,1,'','','Ramesh\n\nI send to you a source code in Fivewin of TTS_Test.\n\nThis uses STM.DLL, freeware and works fine on text reading.\n\nBut to use this you need install a lot of programs about speeching.\n\nactcnc(Microsoft Speech Engine Recognition).exe\nGenie(Genie Character).exe\nLernout &amp; hauspie TTS3000 engine.exe\nMerlin\nMSagent(Microsoft Agent 4.16).exe\nspchapi(SAPI 4.0a Runtime).exe\nspchcpl(Speech Control Panel).exe\ntv_enua(Your Language Component).exe','',0,'AIA=','2y3bswo7',1,0,'',397,0,0),(24430,5521,3,397,0,'201.27.67.192',1167954308,1,0,1,0,1,1,'','','Hi all\n\nThe OleDB feature don\'t work with MySQL and Fivewin, OleDB is directed to .NET languages.\n\nYou can work with MySQL using MyODBC and this example string:\n\n[code:e29j391y]\n   StrDatabase &#58;= &#91;mysql&#93; // YouDatabaseName\n   StrServer     &#58;= &#91;127&#46;0&#46;0&#46;1&#93; // or remote IP ex&#58; 202&#46;204&#46;69&#46;101\n   StrPort         &#58;= 3306\n   StrUserID     &#58;= &#91;root&#93; \n   StrUserPWD  &#58;= &#91;&#93; // User ROOT don\'t use password\n   StrDriver      &#58;= &quot;MySQL ODBC 3&#46;51 Driver&quot;\n\n   StrConnection &#58;= &quot;driver=&#123;&quot; + StrDriver +&quot;&#125;&quot; + ;\n                    &quot;;database=&quot; + StrDatabase + ;\n                    &quot;;server=&quot; + StrServer + ;\n                    &quot;;uid=&quot; + StrUserID + ;\n                    &quot;;pwd=&quot; + StrUserPWD + ;\n                    &quot;;option=3;&quot;\n[/code:e29j391y]\n\nYou need install in your machine MySQL 4(5 is not recomended to beginning) and MyODBC 3.51(best version).\n\nYou need a easy Front-End and you can download MySQL-Front, easy install and easy to use.\n\nA have developed one Library to use all features of ADO, working with MySQL, SQL-Server, Firebird, Access, XLS, XML, SQLite e much more. You can download-it in <!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/blogADO\">http://www.shoppmarketing.com/blogADO</a><!-- m --> e see the examples of use.\n\nThe new version accept SQL command directly in Fivewin code e have work to open various diferent connection at same time.','',0,'AIA=','e29j391y',1,0,'',397,0,0),(24431,5531,3,49,0,'62.13.172.78',1167954717,1,0,1,1,1,1,'','','if you go at <!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/msagent/downloads/user.asp\">http://www.microsoft.com/msagent/downloads/user.asp</a><!-- m -->\n\nyou can found all these files','',0,'AIA=','49z9fcu3',1,0,'',49,0,0),(24432,5521,3,6,0,'87.17.213.8',1167956070,1,0,1,1,1,1,'','','[quote=&quot;Rochinha&quot;:c3fv8yt9]The OleDB feature don\'t work with MySQL and Fivewin, OleDB is directed to .NET languages.[/quote:c3fv8yt9]\n\nThis is not true. OleDbConnection is for .NET but OLE DB is for Win32.\n\nEMG','',0,'gA==','c3fv8yt9',1,0,'',6,0,0),(24433,5515,2,774,0,'200.72.145.156',1167956491,1,0,1,1,1,1,'','','Usa\n\noPrn:cmsay\n\nen vez de \n\noPrn:say','',0,'gA==','270pdki9',1,0,'',774,0,0),(24434,5532,3,487,0,'151.42.200.148',1167956819,1,0,1,1,1,0,'','INI class in WTS - Bug ?','In Windows Terminal Service:\n[code:namem83m]\nINI oIni FILE GetWinDir&#40;&#41;+&quot;\\MyIni&#46;ini&quot;\n  GET cEntry SECTION &quot;Section&quot; ENTRY &quot;Entry&quot; OF oIni DEFAULT &quot;AAA&quot;\nENDINI\n[/code:namem83m]\n\nGetWinDir() returns \"c:\\document and settings\\administrator\\windows\", so MyIni.ini is created here (as it\'s not already existant). So far so good.\n\nThe problem is that IF c:\\windows\\MyIni.ini already exists, the c:\\document and settings\\administrator\\windows\\MyIni.ini file takes the defaults from c:\\windows\\MyIni.ini instead of the ones coded in the program (\"AAA\").\n\nIs this supposed to work this way or is it a bug ?\n\nRegards,\nDavide\nFWH 27 March 2006 - xH 0.99.60 - Bcc','',0,'AIA=','namem83m',1,0,'',487,0,0),(24435,5533,6,279,0,'189.164.172.91',1167959268,1,0,1,1,1,0,'','Classe LISTBOX (bRDblClick)','Estoy utilizando la CLASSE LISTBOX con MYSQL(FCSODBC) pero como podría utilizar la opción de bRDblClick el Mouse de lado derecho.\n\nQuiero utilizar la opción para un MENU oMenu POPUP\n\n\nGracias \nMario','',0,'AIA=','izqf0j3i',1,0,'',279,0,0),(24436,5534,6,400,0,'201.26.16.118',1167961238,1,0,1,1,1,1,'','CANNOT LOAD WinINet.dll !','Olá Amigos, \n\nEu estou tentando compilar um exemplo de Ftp e aconteceu o seguinte : \n\nCANNOT LOAD WinINet.dll ! \n\nTestei em 5 Micros: \n\n3 com XP e conecçao ADSL, deu erro da DLL \n\n1 com Win98 conecçao Via radio, deu certo \n\n1 com XP conecçao Via radio, deu certo \n\nO Ex. q eu estou testando eh este. \n\nFTPDIR.PRG \n[code:f341v15c]\n// Testing the FiveWin new Internet Classes \n\n#include &quot;FiveWin&#46;ch&quot; \n\n//----------------------------------------------------------------------------// \n\nfunction Main&#40;&#41; \n\n   local oInternet &#58;= TInternet&#40;&#41;&#58;New&#40;&#41; \n   local oFTP      &#58;= TFTP&#40;&#41;&#58;New&#40; &quot;ftp&#46;host&#46;com&#46;br&quot;, oInternet,&quot;UserName&quot;,&quot;PassWord&quot; &#41; // Microsoft FTP    \n   local aFiles \n\n   if ! Empty&#40; oFTP&#58;hFTP &#41; \n      aFiles = oFTP&#58;Directory&#40; &quot;*&#46;*&quot; &#41; \n      AEval&#40; aFiles, &#123; | aFile | MsgInfo&#40; aFile&#91; 1 &#93; &#41; &#125; &#41; \n      msginfo&#40;&quot;conectou&quot;&#41; \n   else \n      MsgAlert&#40; &quot;oFTP&#58;hFTP is null&quot; &#41; \n   endif \n\n   oInternet&#58;End&#40;&#41; \n\n   MsgInfo&#40; &quot;Done!&quot; &#41; \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n[/code:f341v15c]\n\n@braços Ale\n[/code]','',0,'AIA=','f341v15c',1,0,'',400,0,0),(24437,5531,3,69,0,'74.13.48.189',1167962220,1,0,1,1,1,0,'','','Is it possible to change the \"voice\" from within FWH ?\n\n\nThanks,\nJeff','',0,'AIA=','1u4brpww',1,0,'',69,0,0),(24438,5530,3,303,0,'72.199.41.171',1167962581,1,0,1,1,1,0,'','','Ollie,\n\nHere is your code working. It seems to even be working with your existing RC file.\n\nJames\n\n[code:1lq3o618]#include &quot;fivewin&#46;ch&quot;\n#include &quot;dbcombo&#46;ch&quot;\n\nfunction main&#40;&#41;\n\nLOCAL aTAGLIST\nLOCAL cTAG&#58;=&quot;SURNAME&quot;\nLOCAL oDlg_Search, oGet_Searchkey, oBtn\n\npublic oLISTBOX\n\nDBCREATE&#40;\'TEST&#46;DBF\',&#123;                           ;\n                    &#123;&quot;SURNAME&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;COMPANY&quot;,     &quot;C&quot;, 30, 0&#125;, ;\n                    &#123;&quot;NUMBER&quot;,    &quot;C&quot;, 7, 0&#125;  ;\n                  &#125; &#41;\n\n\n\nUSE TEST EXCLUSIVE NEW\n\nAPPEND BLANK\nREPLACE SURNAME WITH &quot;SSSSSS&quot;\nreplace company with &quot;DDDDD&quot;\nreplace number with &quot;1111111&quot;\n\nappend blank\nREPLACE SURNAME WITH &quot;AAAAAA&quot;\nreplace company with &quot;ZZZZZZ&quot;\nreplace number with &quot;22222&quot;\n\n\n      INDEX ON Upper&#40; TEST-&gt;SURNAME &#41; TAG &quot;SURNAME&quot;\n      INDEX ON Upper&#40; TEST-&gt;COMPANY &#41; TAG &quot;COMPANY&quot;\n      INDEX ON TEST-&gt;NUMBER TAG &quot;NUMBER&quot;\n\n    TEST-&gt;&#40;ORDSETFOCUS&#40; cTAG &#41;&#41; //Default order\n\n    test-&gt;&#40;dbgotop&#40;&#41;&#41;\n\n    aTAGLIST&#58;=GETORDNAMES&#40;&#41;\n\n   DEFINE DIALOG oDlg_Search RESOURCE &quot;SEARCH&quot;\n   REDEFINE GET oGet_Searchkey ID 10 OF oDlg_Search PICTURE &quot;@!K&quot; UPDATE MESSAGE &quot;ENTER SEARCH&quot;\n   REDEFINE BUTTON oBtn ID 20 of oDlg_Search ACTION oDlg_Search&#58;End&#40;&#41;\n   REDEFINE DBCOMBO cTAG ID 30 of oDlg_Search items aTAGLIST list aTAGLIST ;\n      UPDATE ON CHANGE &#40;TEST-&gt;&#40;ORDSETFOCUS&#40;cTAG&#41;&#41;,test-&gt;&#40;dbgotop&#40;&#41;&#41;, oListBox&#58;REFRESH&#40;&#41;&#41;\n\n   REDEFINE LISTBOX oListBox FIELDS ID 40 OF oDlg_Search //UPDATE ON DBLCLICK oDlg_Search&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg_Search\n\nreturn nil[/code:1lq3o618]','',0,'AIA=','1lq3o618',1,0,'',303,0,0),(24439,5531,3,190,0,'202.65.134.26',1167966618,1,0,1,1,1,0,'','','Hello Enrico, James, Rochina and Silvio\n\nThank you very much for your support.\n\nI have executed the file \"TTS_TEST.EXE\" which was sent\nby Mr.Rochina. It is working very well in WIN98SE and WINXP also.\n(This means I have all the files which are supposed to be \npresent in my system to work with \"STM.DLL\")\n\nBut when I compile the same code with FWH 2.8 and\nxHarbour 0.99.61 is generating an error \n\"This program has performed an illegal operation and \nwill be shut down\"  and getting terminated.\n\nMr.César Lozada has confirmed that the same code is working \nwith FWH27 + BCC55 + xH0.99.60 and xH0.99.70. \n\nI don\'t know why the same code is not working particularly in \nin FWH 2.8 + xHarbour 0.99.61 (Simplex). Our master Mr.Antonio \ncan only tell us.\n \n\n- Ramesh Babu P','',0,'AIA=','1vqtuvr8',1,0,'',190,0,0),(24440,5535,2,774,0,'200.72.145.156',1167966809,1,0,1,1,1,1,'','AYUDA CON BROWSE CON ARRAY','tengo el siguiente problema que me esta calentando la cabeza:\n\nTengo un BROWSE con un ARRAY y no puedo borrar un registro de la matriz\n\nel problema se me presenta ya q no puedo obtener la fila y la columna del Array atravez del BROWSE\n\ncuando uso el BROWSE comun o sea ligado a uns DBF,, es facil borrar ya que el puntero me indica en que recno estoy y puedo borralo facil ,, pero con una matriz es diferente.. o no\n\n\nalguien me puede orientar...\n\n\nGRACIAS\n\nOjo: en clipper habia una instruccion q indicaba la fila y la columna era  COLPOS y ROWPOS,, pero en fivewin no se cuales son','',0,'AIA=','2wki7lc0',1,0,'',774,0,0),(24441,5449,3,234,0,'75.34.217.174',1167967393,1,0,1,1,1,1,'','','Hi Antonio, I made the change to outlook.prg however the application does not load. Can you update the library and send to me?\n\nThank you,','',0,'AIA=','1uf6arvf',1,0,'',234,0,0),(24442,5528,3,234,0,'75.34.217.174',1167967597,1,0,1,1,1,1,'','','Hello,\n\nYou can use UNC share names for example \\\\server\\data where \\\\server is the SERVER computer and DATA is the folder. You need to make sure permissions are set so users can read/write, etc.','',0,'AIA=','c4xqrg17',1,0,'',234,0,0),(24443,5525,3,32,0,'168.209.98.43',1167971669,1,0,1,1,1,0,'','Rss feeds per forum','Hi,\n\nWould it be possible to limit the rss feed to the forum currently being displayed?\n\nIt doesn\'t help me to track the spanish forums for example.\n\nThanks,\nAlex','',0,'AIA=','h0ykseuy',1,0,'',32,0,0),(24445,5525,3,2,0,'87.218.146.244',1167979267,1,0,1,1,1,1,'','','Luis,\n\nThanks for the info','',0,'AIA=','3irbyg6y',1,0,'',2,0,0),(24446,5449,3,2,0,'87.218.146.244',1167979351,1,0,1,1,1,1,'','','Darrell,\n\nAre you using Harbour or xHarbour ?','',0,'AIA=','xmcnwue9',1,0,'',2,0,0),(24447,5449,3,234,0,'75.34.217.174',1167979482,1,0,1,1,1,1,'','','Hi Antonio,\n\nxHarbour\n\nRegards,','',0,'AIA=','2worpz1c',1,0,'',234,0,0),(24448,5532,3,2,0,'87.218.146.244',1167979797,1,0,1,1,1,1,'','','Davide,\n\nIt looks as a Windows behavior. If you review the class and the related winapi C file, you will see we don\'t do anything related','',0,'AIA=','1idjn6r5',1,0,'',2,0,0),(24449,5449,3,2,0,'87.218.146.244',1167979938,1,0,1,1,1,1,'','','Darrell,\n\nAlready sent by email','',0,'AIA=','wsi7wazh',1,0,'',2,0,0),(24450,5449,3,234,0,'75.34.217.174',1167980160,1,0,1,1,1,1,'','','Hi Antonio,\n\nThank you. It is working now.\n\nRegards,','',0,'AIA=','ilxsdzdl',1,0,'',234,0,0),(24451,5516,6,2,0,'87.218.146.244',1167980708,1,0,1,1,1,1,'','','Gustavo,\n\nEn el módulo wbrwline.c del browse de Hernán se está llamando a DrawMasked(). Hay que cambiarlo para que llame a DrawBitmap() y modificar un poco los parámetros que se le pasan','',0,'AIA=','1c4i9azn',1,0,'',2,0,0),(24452,5533,6,2,0,'87.218.146.244',1167980965,1,0,1,1,1,1,'','','Mario,\n\n[code:1vbiq4f7]\n&#46;&#46;&#46; LISTBOX oBrw FIELDS &#46;&#46;&#46; ;\n   ON RIGHT CLICK ShowPopup&#40; nRow, nCol, oBrw &#41;\n&#46;&#46;&#46;\n\nfunction ShowPopup&#40; nRow, nCol, oBrw &#41;\n\n   local oMenu\n\n   MENU oMenu POPUP\n      MENUITEM &quot;&amp;Colors&#46;&#46;&#46;&quot; ACTION &#46;&#46;&#46;\n      MENUITEM &quot;&amp;Font&#46;&#46;&#46;&quot;   ACTION &#46;&#46;&#46;\n   ENDMENU\n\n   ACTIVATE MENU oMenu AT nRow, nCol OF oBrw\n\nreturn nil\n[/code:1vbiq4f7]','',0,'AIA=','1vbiq4f7',1,0,'',2,0,0),(24453,5534,6,2,0,'87.218.146.244',1167981308,1,0,1,1,1,1,'','','Ale,\n\nTu ejemplo funciona correctamente en XP con SP2. Acabamos de probarlo conectando con ftp.microsoft.com','',0,'AIA=','4w835we8',1,0,'',2,0,0),(24454,5521,3,707,0,'222.124.20.50',1167983771,1,0,1,1,1,0,'','','Mr. Enrico\n\nThank\'s for help\n\nRegards \nAreang','',0,'AIA=','nx9tx2id',1,0,'',707,0,0),(24455,5530,3,904,0,'198.54.202.250',1167985481,1,0,1,1,1,1,'','','Thanks for all the help, James.\n\nAfter all that, it still didn\'t work with my \"Pelles C\" resource.\n\nIt turned out \"Pelles C\" was sorting the items in the listbox, and those shown where different to the actual values.\n\nTold it not to sort and everything was ok.\n\nThanks again for anything.','',0,'AIA=','ypy3x9e2',1,0,'',904,0,0),(24456,5536,3,551,0,'87.23.107.55',1167989348,1,0,1,1,1,0,'','Error base/44 on TcBrowse using COLORS statement','Hi, I tried to add the COLOR statement on DBF03.prg original fwh\\sample in one of the ADD COLUMN lines.\n\nThis is the part I modified (btw i also cut off the ADS part since i got a compile error):\n\nADD COLUMN TO BROWSE oBrw ;\nDATA clients-&gt;name ;\nCOLORS RGB(1,1,1) , RGB(192,192,192) ;  //new line by Giobbi\nHEAD \"Nombre\" ;\nOEM WIDTH 50\n\nsince into my programs I use intensively this option.\n\nI got this error:\n\nError BASE/44  Assigned value is wrong class: TCCOLUMN:BCLRFORE\n[...]\nCalled from:  =&gt; TCCOLUMN:_BCLRFORE(0)\nCalled from: dbf03.prg =&gt; TCCOLUMN:NEW(0)\nCalled from: dbf03.prg =&gt; CLIENTSBROWSE(213)\n\nI can\'t get the rid of it, does anybody can help me?\ncheers,\nGiobbi','',0,'','bp17dqml',1,0,'',551,0,0),(24457,5537,3,137,0,'151.38.8.195',1167989399,1,0,1,1,1,0,'','Vista compatibility','as subject.\n\nRegards,\nRoberto Parisi','',0,'','1a8kkg4a',1,0,'',137,0,0),(24458,5538,3,904,0,'196.25.255.210',1167989796,1,0,1,1,1,1,'','Closing Windows neatly','I have a MDI application that opens different databases, say CLIENTS, SUPPLIERS and MANUFACTURERS.\n\nI open each as a MDICHILD. (I use resources, so I have a borderless dialog the same size of the MDICHILD) (as taught to be my Antonio Linares and fwh\\samples\\TestMdi4.prg )\n\n1. I want to prevent the user from opening the same table more than once, so I need to check before opening, if the window is defined - ISWINDOW() doesn\'t seem to be working - is it me? Is that correct way? \n\n2.I\'ve also tried checking if the table is already open - if it is, the user has opened the window before. (in this case I want to bring that window \'to the front\'. I need a oWnd:Maximize() function like the oWnd:Restore() to do this?\n(I tried: wndMain():oWndClient:aWnd[1]:setFocus() as suggested by James Bott on this forum - but this only brings the window to the front, not maximise it if it is restored.)\n\n\n3. The problem with using the check in (2.) above, is that if the user doesn\'t press my \"CLOSE NEATLY\" button, I don\'t get to check that the last data was saved and that the databases get closed. (e.g. they press the \'X\' on the window to close. ) Is the VALID clause where this needs to happen?\n\n4. If the VALID clause is the correct place, do I put it on the (borderless) oDLG or on the oMDICHILDWnd ?  All I can get it to do is to either close the whole app, or close without \'neatening up\' first.','',0,'','2mm5otph',1,0,'',904,0,0),(24459,5538,3,904,0,'198.54.202.210',1167989984,1,0,1,1,1,1,'','','I answered 2. myself: wndMain():oWndClient:aWnd[1]:MAXIMIZE()\n(thanks to James Bott\'s \'bring window to the front\')','',0,'','23bp7n0t',1,0,'',904,0,0),(24460,5535,2,248,0,'212.145.179.68',1167990773,1,0,1,1,1,0,'','','Por ejemplo:\n\ndonde oBrwt:nAt es el numero de elemento a editar, borrar,modificar....\n\n   oBrwT:SetArray( tvisitas )\n   oBrwT:bKeyChar   = { | nKey, nFlags | (lineas(nkey,oBrwt:nAt),oBrwt:refresh())}\n\n   ADD COLUMN to oBrwt DATA ARRAY ELEM 1  HEADER \"Fecha\" size 100\n   ADD COLUMN to oBrwt DATA ARRAY ELEM 2 HEADER \"Tiempo\" size 40\n   ADD COLUMN to oBrwt DATA ARRAY ELEM 3 HEADER \"Motivo\" size 100  RIGHT\n   ADD COLUMN to oBrwt DATA ARRAY ELEM 4 HEADER \"Observaciones\" size 100\n\n   REDEFINE BTNBMP aBoton[1] ID 504  RESOURCE \"sumar\" OF oFld:aDialogs[4];\n                  tooltip oemtoansi(\"A¤adir Linea\");\n                  action (lineas(1,0),oBrwt:refresh(),(oBrwt:SetFocus(),.f.))\n\n   REDEFINE BTNBMP aBoton[2] ID 505  RESOURCE \"restar\" OF oFld:aDialogs[4];\n                  tooltip oemtoansi(\"Borrar Linea\");\n                  action (lineas(2,oBrwt:nAt),oBrwt:Refresh(),(oBrwt:SetFocus(),.f.))','',0,'','2gokfj90',1,0,'',248,0,0),(24461,5536,3,2,0,'87.218.146.244',1167991167,1,0,1,1,1,1,'','','Giobbi,\n\nPlease modify class TCColumn at source\\classes\\tccolumn.prg and remove all \"AS ...\" clauses.\n\nAlso, in order test samples\\dbf03.prg, you have to copy dbf01.rc dbf03.rc and modify TWBrowse inside it into TCBrowse.','',0,'','110ztxqn',1,0,'',2,0,0),(24462,5537,3,2,0,'87.218.146.244',1167991334,1,0,1,1,1,1,'','','Roberto,\n\nFWH is fully compatible with Vista','',0,'','313c4ttt',1,0,'',2,0,0),(24463,5538,3,2,0,'87.218.146.244',1167991513,1,0,1,1,1,1,'','','Ollie,\n\nBetter check if the table is already in use, and/or disable the menuitems and buttons to reopen a window meanwhile it is open','',0,'','1yne34l7',1,0,'',2,0,0),(24464,5531,3,2,0,'87.218.146.244',1167992002,1,0,1,1,1,1,'','','Ramesh,\n\nPlease build samples\\webexp.prg and check if it works fine, thanks','',0,'','2wtnb6f8',1,0,'',2,0,0),(24465,4392,7,527,0,'88.7.187.245',1167992054,1,0,1,1,1,0,'','Gracias','Lo intento a ver como me sale.\ngracias.','',0,'','nz3pxdmh',1,0,'',527,0,0),(24466,5534,6,400,0,'200.205.49.10',1167992356,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1rt23wbg]Ale,\n\nTu ejemplo funciona correctamente en XP con SP2. Acabamos de probarlo conectando con ftp.microsoft.com[/quote:1rt23wbg]\n\nLa mañana buena Antonio,    \n    \nSí, con la conexión Via Radio, funciona perfectamente.    \n    \nPero, con la conexión ADSL, este error volviendo,: Cannot Load WinINet.Dll.    \n    \n¿Porque?    \n    \n¿Usted Probó con la conexión ADLS?    \n    \n¿Cómo yo pruebo el tipo de conexión que yo estoy usando?    \n    \nExcuse para las tantas preguntas, pero, yo soy el borde de perder a un Cliente si esto si no resuelve.\n\nGracias por la atención\n\n@braços Ale','',0,'gA==','1rt23wbg',1,0,'',400,0,0),(24467,5531,3,6,0,'87.19.15.177',1167992960,1,0,1,1,1,1,'','','[quote=&quot;RAMESHBABU&quot;:20bvftb8]But when I compile the same code with FWH 2.8 and xHarbour 0.99.61 is generating an error\n\"This program has performed an illegal operation and will be shut down\"  and getting terminated.[/quote:20bvftb8]\n\nWorks fine here using FWH 6.12 and xHarbour 0.99.70.\n\nEMG','',0,'gA==','20bvftb8',1,0,'',6,0,0),(24468,5539,3,309,0,'194.204.28.27',1167993461,1,0,1,1,1,0,'','The instruction at &quot;0x0044ab7b referenced memory at....','Hello,\n   after every runtime error in our applications we get additional error message saying:\n\"The instruction at \"0x0044ab7b\" referenced memory at \"0x00000000\".\nThe memory could not be \"read\".\n\n   I was able to recreate error with Fivewin testmdi6 (slightly modified, code attached) sample. Just press button on buttonbar and You will get normal runtime error and this memory error after this. \n\nComment out creating 2-nd child and no memory read error after runtime\nerror message....\n\nUsing xHarbour (Jan 2007) and FWH 200612 builds, the same was with FWH 200609.\n\nAny ideas?\n\nTaavi.\n\n\n////Test Code start\n\n// Controlling MDI menus - Dynamically changing MDIChild windows menus\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n   local oChild1, oChild2, oChild3\n   local oBar,x:=\'\'\n\n   DEFINE WINDOW oWnd TITLE \"Controlling MDI menus\" MDI\n\n   DEFINE WINDOW oChild1 MDICHILD TITLE \"First  Child\" \n   ACTIVATE WINDOW oChild1\n\n //Comment out next 2 lines and no second errormessage after runtime error...\n   DEFINE WINDOW oChild2 MDICHILD TITLE \"Second Child\" // No Menu for this\n   ACTIVATE WINDOW oChild2\n\n\n   DEFINE BUTTONBAR oBar OF oWnd\n   DEFINE BUTTON OF oBar ACTION (x+1)   //To generate runtime error...\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil','',0,'gA==','19kk7pvo',1,0,'',309,0,0),(24469,5540,6,24,0,'80.24.12.168',1167993499,1,0,1,1,1,1,'','Alaska y Harbour y los RDD','Es posible usar una aplicacion de Alaska y Harbour , los indices CDX o NTX ?\n\nCuando se crea los indices CDX en Alaska, estos no funcionan en Harbour,\nen cambio, si los creo en Harbour, Alaska si que funciona.\n\nAlguien que use o haya usado Alaska pueda darme más informacion ?\n\nSaludos\nRafa Carmona','',0,'gA==','1ablv12a',1,0,'',24,0,0),(24470,5535,2,248,0,'212.145.179.68',1167995600,1,0,1,1,1,0,'','','Se me olvido incluir :\n\nfunction lineas(vque,linea)\n     if vque = 1\n        AADD(TVISITAS,{CTOD(\"  /  /  \"),space(50),0,\"\"})\n        oBrwt:gobottom()\n        oBrwt:Refresh()\n\n        return nil\n     elseif vque = 2\n        adel(tvisitas,linea)\n        asize( tvisitas, len( tvisitas ) - 1 )\n        return nil\n.........','',0,'gA==','1ygbu771',1,0,'',248,0,0),(24471,5541,3,904,0,'196.25.255.210',1167996248,1,0,1,1,1,1,'','TESTZIP','What do I need to do to get TESTZIP.PRG in the samples to compile?\n\n\n[quote:3hiqm5at]ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for xHarbour 6.12 - December 2006       xHarbour development power ³Ü\n³ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testzip.prg\' and generating preprocessed output to \'testzip.ppo\'...\n\n 100\nLines 171, Functions/Procedures 4\nGenerating C source output to \'testzip.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntestzip.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ZIPFILE\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPTYPE\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPBLOCK\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\nError: Unresolved external \'_HB_FUN_ZIPMSG\' referenced from C:\\FWH\\SAMPLES\\TESTZIP.OBJ\n* There are errors[/quote:3hiqm5at]','',0,'gA==','3hiqm5at',1,0,'',904,0,0),(24472,5535,2,774,0,'200.72.190.59',1167996681,1,0,1,1,1,1,'','','Muchas Gracias por la explicacion me quedo clarito Garbi','',0,'gA==','10wr2bhp',1,0,'',774,0,0),(24473,5542,7,57,0,'83.53.69.224',1167997546,1,0,1,1,1,1,'','Como cambiar titulo en Dialog desde Recursos','Antonio\n¿Como puedo cambiar el titulo de un dialogo creado desde recursos?.\n\nEn FWH indicando oDlg:cTitle := \"nuevo texto\" funciona pero con FWPPC no. Al parecer no tiene esta data.\n\nSaludos','',0,'gA==','1t1b43q8',1,0,'',57,0,0),(24474,5516,6,570,0,'200.117.129.56',1168002215,1,0,1,1,1,1,'','','Muchas gracias Antonio, ya lo encontre, lo probaré ahora...\n\nSaludos.-','',0,'gA==','1s97s0x6',1,0,'',570,0,0),(24475,5538,3,309,0,'194.204.28.27',1168003558,1,0,1,1,1,0,'','Re: Closing Windows neatly','[quote=&quot;Ollie&quot;:342ast4i]I have a MDI application that opens different databases, say CLIENTS, SUPPLIERS and MANUFACTURERS.\n\nI open each as a MDICHILD. (I use resources, so I have a borderless dialog the same size of the MDICHILD) (as taught to be my Antonio Linares and fwh\\samples\\TestMdi4.prg )\n\n\n1. I want to prevent the user from opening the same table more than once, so I need to check before opening, if the window is defined - ISWINDOW() doesn\'t seem to be working - is it me? Is that correct way? \n\nHi,\n   I use tis code to check if window with the same title is already opened:\n\nfor i := 1 to len(oWnd:oWndclient:aWnd)\n     if \'MDICHILD\'$oWnd:oWndclient:aWnd[i]:classname()\n         jcaption:=alltrim(oWnd:oWndclient:aWnd[i]:cCaption)\n         if jcaption==alltrim(newcaption)   //Alreadyhave MDI child with this name\n              oWnd:oWndclient:aWnd[i]:Setfocus()\n              return\n     \n\n         endif\n     endif\nnext\n[/quote:342ast4i]','',0,'gA==','342ast4i',1,0,'',309,0,0),(24476,5543,3,23,0,'213.96.85.49',1168006684,1,0,1,1,1,1,'','Una ayudita con coordenadas','Buenasss.\nVereis esto : \n\n  aDim  :=GetLbxCols (oLbx); nLast:=Len(aDim)\n  aSizes:=GetDimSizes(aDim)\n  aPos  :=GetDimPos  (aSizes)\n\n  nTop   :=aDim[1,1]\n  nBottom:=nTop+oLbx:nHeightCell\n  nLeft  :=aDim[1,2]\n  nRight :=aDim[nLast-1,4]+14\n\nLo uso para coger las coordenadas y editar una línea en un browse.\nPues bien desde que uso tsbrowse la coordenada nTop no me va demasiado bien, en función del tipo de letra que tiene el browse se me destartala.\nSabeis si hay otra forma de averiguar la coordenada correcta\nGracias.\n\nUn saludo y feliz año!','',0,'','2w1dc3wi',1,0,'',23,0,0),(24477,5544,6,23,0,'213.96.85.49',1168009392,1,0,1,1,1,1,'','Una ayudita con coordenadas','Buenasss. \nVereis esto : \n\naDim :=GetLbxCols (oLbx); nLast:=Len(aDim) \naSizes:=GetDimSizes(aDim) \naPos :=GetDimPos (aSizes) \n\nnTop :=aDim[1,1] \nnBottom:=nTop+oLbx:nHeightCell \nnLeft :=aDim[1,2] \nnRight :=aDim[nLast-1,4]+14 \n\nLo uso para coger las coordenadas y editar una línea en un browse. \nPues bien desde que uso tsbrowse la coordenada nTop no me va demasiado bien, en función del tipo de letra que tiene el browse se me destartala. \nSabeis si hay otra forma de averiguar la coordenada correcta \nGracias. \n\nUn saludo y feliz año!','',0,'','hj7xf345',1,0,'',23,0,0),(24478,5545,6,23,0,'213.96.85.49',1168009560,1,0,1,1,1,1,'','Otra de coordenadas','Tengo un diálogo creado desde recursos y con lo activo con la cláusula CENTERED. Dentro del diálogo tengo un browse (olbx).\nVale, pues con este código :\n\n  aRct := GetClientRect( oLbx:hWnd )\n   \n   msginfo (arct[1])\n   msginfo (arct[2])\n   msginfo (arct[3])\n   msginfo (arct[4])\n\nPor qué las coordenadas 1 y 2 (top y left) siempre dan cero??','',0,'','2gaqbw2v',1,0,'',23,0,0),(24479,5542,7,2,0,'87.218.146.244',1168010099,1,0,1,1,1,1,'','','Toni,\n\nPrueba con:\n\nACTIVATE DIALOG oDlg ON INIT oDlg:SetText( \"Titulo\" )','',0,'','3cr7bzq2',1,0,'',2,0,0),(24480,5542,7,57,0,'83.53.69.224',1168011434,1,0,1,1,1,1,'','','Antonio\nFunciona perfecto.\nGracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','36dv1npv',1,0,'',57,0,0),(24481,5546,4,224,0,'162.83.94.176',1168018800,1,0,1,1,1,1,'','Harbour C-Wrapper Help','Might someone help me with the C-wrapper syntax?  I have looked at the Harbour website for documentation, but could find none on the c-wrappers.\n\nI have the following code so far. I need to return the second element of the structure \"ScanFindInfo\".  The second element is a string.\n\n[code:1terdtd6]#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;scancapi&#46;h&gt;\n\nHB_FUNC&#40; FindScanner &#41;\n&#123;\n   SCAN_FINDINFO ScanFindInfo;\n   HANDLE hFindHandle;\n   DWORD dwResult;\n\n   SI_INIT&#40; &amp;ScanFindInfo &#41;;\n   dwResult = SCAN_FindFirst&#40; &amp;ScanFindInfo, &amp;hFindHandle &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:1terdtd6]\n\nThanks in advance!','',0,'AIA=','1terdtd6',1,0,'',224,0,0),(24482,5539,3,303,0,'72.199.41.171',1168020179,1,0,1,1,1,0,'','','Taavi,\n\nI confirm the error with FWH Aug 2006 build and xHarbour.\n\nI thought that maybe it was because the child windows weren\'t declared with the OF oWnd clause, but adding that didn\'t solve the problem.\n\nJames','',0,'AIA=','hvmu1a5z',1,0,'',303,0,0),(24483,5547,1,47,0,'203.144.143.9',1168020737,1,0,1,1,1,0,'','How many of the maximum control in a Dialog?','Dear All,\n\nI would like to know the limitation of the maximum controls in one dialog.\n\nThanks&amp;Regards,\nDutch','',0,'AIA=','qcakqjbi',1,1168021690,'',47,2,0),(24484,5531,3,190,0,'202.65.134.34',1168021046,1,0,1,1,1,0,'','','Mr.Antonio\n\nWebExp.exe is working Ok.\n\nSo far nobody has confirmed that it is working in FWH2.8!.\n\nAnyway thanks to you for your attention\n\nI will take some time and probe into it.\n\nRegards to you\n\n- Ramesh Babu P','',0,'AIA=','1ct0dvi1',1,0,'',190,0,0),(24485,5429,6,221,0,'200.109.237.199',1168021401,1,0,1,1,1,0,'','','me pregunto y no por molestar ni nada sino simple curiosidad, cual es la utilidad de eso, con que fin invertir las letras, dime que funcion le das a ver si es algo estetico, bueno no se, gracias de todos modos','',0,'AIA=','1p27uq52',1,0,'',221,0,0),(24486,5547,1,47,0,'203.144.143.9',1168021575,1,0,1,1,1,0,'','','Dear All,\n\nI\'ve found the limitation of the controls in one dialog is 255.  If I have more than 255 controls one Dialog, how do I go?\n\nThanks&amp;Regards,\nDutch','',0,'AIA=','c933h4qw',1,0,'',47,0,0),(24487,5540,6,138,0,'189.141.72.221',1168021973,1,0,1,1,1,1,'','','Rafa pecaorrrrr:\n\nTe explico de que va el tema:\n\nPrimero necesito saber, si el indice fue creado con Clipper 16 bits o con (x)Harbour 32 bits.\n\nSucede que Alaska utiliza el sistema de indexacion nativo de FoxPro, igual que ADS, sin embargo Clipper (y creo que  (x)Harbour tambien) utiliza el sistema de indexacion nativo de Clipper, que como dicen por ahi, es lo mismo pero no es igual.\n\nEl sistema de reindexacion de ADS/Alaska, mueve un byte en la cabecera del DBF original, tal cual lo hace FoxPro, pero el sistema de indexacion de  Clipper no lo hace, y tampoco lo verifica cuando abre el indice, razon por la cual, Clipper y (x)Harbour pueden leer perfectamente un indice CDX hecho con Alaska o ADS, sin embargo los indices creados con Clipper no son leidos por estas herramientas porque estas si verifican el byte en la cabecera del fichero DBF.\n\nCreo que existe por alli \"algo\" no recuerdo si es un switch de compilacion, una funcion, o \"algo\" que te hace los indices CDX de (x)Harbour 100% compatibles con FoxPro.\n\nDejame ver si encuentro algo y te lo cuento.','',0,'AIA=','295e17iv',1,0,'',138,0,0),(24488,5546,4,13,0,'213.76.252.200',1168022053,1,0,1,1,1,0,'','','Bill,\n\ntry this:\n\n[code:2pz2nzw1]\ndwResult = SCAN_FindFirst &#40;&amp;ScanFindInfo, &amp;hFindHandle&#41;;\nhb_retc &#40;WideToAnsi &#40;ScanFindInfo&#46;szPortName&#41;&#41;; // conversion for Unicode format\n[/code:2pz2nzw1]\n\n\nPawel','',0,'AIA=','2pz2nzw1',1,0,'',13,0,0),(24489,5547,1,303,0,'72.199.41.171',1168022201,1,0,1,1,1,0,'','','Dutch,\n\n&gt;If I have more than 255 controls one Dialog, how do I go? \n\nI suggest changing your design. 255 controls on one dialog is too complicated for most users (me too). I would break up the dialog into folders.\n\nJames','',0,'AIA=','1y4vj53s',1,0,'',303,0,0),(24490,5548,2,286,0,'201.242.205.62',1168023152,1,0,1,1,1,1,'','Determinar header donde se ha hecho clic en un TWBrowse','Saludos amigos\n\nVisto que a un TWBrowse se le pueden asociar \"actions\"  a los header de cada columna me pregunto como es posible saber en cual header (columna) se ha hecho clic\n\nEntiendo que si cada bloque de codigo asociado al action de la columna tiene una funcion al estilo MsgInfo(x), donde \"x\" es la columna, es posible saberlo pero me gustaria encontrar otro metodo ya que el indicado obliga a construir los actions para cada grid de forma independiente\n\nGracias por su ayuda','',0,'AIA=','mouw6z5e',1,0,'',286,0,0),(24491,5549,3,904,0,'198.54.202.195',1168026786,1,0,1,1,1,1,'','DEFINE MAIL PROBLEM','Can anyone explain why I get a \'parse error at MAIL\' on the third message?\n\n[code:25qqwdzs]PROCEDURE   SENDEMAIL&#40;&#41;\n   LOCAL oMail\n\n   // This works just fine&#58;\n   DEFINE MAIL oMAIL SUBJECT &quot;Message 1 - Sends Fine &quot;+TIME&#40;&#41; ;\n   TEXT &quot;This is the message &quot;+SDATE&#40;DATE&#40;&#41;&#41;+\' \'+TIME&#40;&#41; ;\n   TO &quot;bill@microsoft&#46;com&quot;\n\n ACTIVATE MAIL oMail\n\n   DEFINE MAIL oMAIL SUBJECT &quot;Message 2 - Sends Fine &quot;+TIME&#40;&#41; ;\n   TEXT &quot;This is the message &quot;+SDATE&#40;DATE&#40;&#41;&#41;+\' \'+TIME&#40;&#41; ;\n   TO &quot;bill@microsoft&#46;com&quot; ;\n   FROM USER\n\n ACTIVATE MAIL oMail\n\n   DEFINE MAIL oMAIL SUBJECT &quot;Message 3 - parse error at MAIL&quot;+TIME&#40;&#41; ;\n   TEXT &quot;This is the message &quot;+SDATE&#40;DATE&#40;&#41;&#41;+\' \'+TIME&#40;&#41; ;\n   TO &quot;bill@microsoft&#46;com&quot; ;\n   FILES &#123;&quot;c&#58;\\winzip&#46;log&quot;,&quot;c&#58;\\winzip&#46;log&quot;&#125; ;\n      FROM USER\n\n ACTIVATE MAIL oMail[/code:25qqwdzs]','',0,'AIA=','25qqwdzs',1,0,'',904,0,0),(24492,5550,3,19,0,'83.18.178.178',1168033157,1,0,1,1,1,0,'','BtnBmp - how to get id number of focused button?','[code:31jkmdju]\nFOR nM &#58;= 1 TO 12\n  cM &#58;= str0&#40;nM,2&#41;\n  dDay &#58;= ctod&#40;\'01&#46;\'+cM+&quot;&#46;&quot;+cYear&#41;\n  FOR nD &#58;= 1 TO 31\n    aKolor &#58;= aKol&#40;nD,cKld&amp;cM&#41;\n    IF month&#40;dDay&#41;==nM\n       oBtn1&#58;=tBtnBmp&#40;&#41;&#58;Redefine&#40;&#40;nM*1000&#41;+nD,,,,,,&#123;|| msgInfo&#40;KardSay&#40;focused_button_id&#41;&#41;&#125;,oDlg,,,,KardSay&#40;focused_button_id&#41;,str&#40;nD,2&#41;+&quot;&#58;&quot;+aTab&#91;dow&#40;dDay&#41;&#93;,oFont&#41;\n       oBtn1&#58;SetColor&#40;aKolor&#91;1&#93;,aKolor&#91;2&#93;&#41;\n    ENDIF\n    dDay++\n  NEXT\nNEXT\n\n[/code:31jkmdju]\n\noDlg is dialog with button for each day   \naKol return different array of color fo every day of a weak\n\nI wish display info by using tooltip and msgInfo. How can i get id number of focused btnBmp?\n\nregards Eugeniusz','',0,'AIA=','31jkmdju',1,0,'',19,0,0),(24493,5538,3,904,0,'198.54.202.210',1168033968,1,0,1,1,1,1,'','','Thanks Taavi, I\'ll give it a try.\n\nAntonio - how can I be sure that the databases are closed no matter how the user closes the screen. \n\nE.g. If he presses the \'close\' button, I check that the data is saved and that the tables are closed.\n\nIf he presses the Child \'X\' to close or the Application \'X\' to close - the checks don\'t get done.','',0,'AIA=','2wbkbn4m',1,0,'',904,0,0),(24494,5537,3,35,0,'65.188.6.143',1168038648,1,0,1,1,1,0,'','','Running Vista Business RTM .. no problems !!!! .. You will need to find you a new resource editor however if you use Borland Resource workshop .. there is a workshop work around by associating the .rc to Workshop and opening the .rc from explorer .. if you open Resource editor by itself .. it will \'barf\'\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','2ol7gjsf',1,0,'',35,0,0),(24495,5549,3,6,0,'87.19.15.177',1168039185,1,0,1,1,1,1,'','Re: DEFINE MAIL PROBLEM','[code:fv2tftc8]FILES &quot;c&#58;\\winzip&#46;log&quot;, &quot;Winzip1&#46;log&quot;, &quot;c&#58;\\winzip&#46;log&quot;, &quot;Winzip2&#46;log&quot; ;[/code:fv2tftc8]\n\nEMG','',0,'AIA=','fv2tftc8',1,0,'',6,0,0),(24496,5550,3,6,0,'87.19.15.177',1168039226,1,0,1,1,1,1,'','Re: BtnBmp - how to get id number of focused button?','Can you build a reduced and self-contained sample to experiment with?\n\nEMG','',0,'AIA=','pjzaf5g4',1,0,'',6,0,0),(24497,5547,1,6,0,'87.19.15.177',1168039338,1,0,1,1,1,1,'','','[quote=&quot;dutch&quot;:2gbv48ca]I\'ve found the limitation of the controls in one dialog is 255.  If I have more than 255 controls one Dialog, how do I go?[/quote:2gbv48ca]\n\nThat limitation is only for Win16. Go for Win32.\n\nEMG','',0,'gA==','2gbv48ca',1,0,'',6,0,0),(24498,5539,3,6,0,'87.19.15.177',1168039608,1,0,1,1,1,1,'','Re: The instruction at &quot;0x0044ab7b referenced memory at','[code:3qoqg6iq]local oBar,x&#58;=0//\'\'[/code:3qoqg6iq]\n\nEMG','',0,'AIA=','3qoqg6iq',1,0,'',6,0,0),(24499,5541,3,6,0,'87.19.15.177',1168039844,1,0,1,1,1,1,'','Re: TESTZIP','That sample is for 16 bit only. Use xHarbour ZIP management instead. This is the docs from xHarbour CVS:\n\n[quote:fu8h7f8y]/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILE( &lt;cFile&gt;, &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file to create\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *         _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used, it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file,otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password.\n *\n *      If &lt;lWithPath&gt; is used, it tells  the path should also be stored with\n *      the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored\n *      with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n *\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_ZIPFILE( \"TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILE( \"TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILE( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" }, 9, {|cFile,nPos,| qout(cFile) } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\" , \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILE( \"test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ) },, \"hello\" )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_UNZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Unzip a compressed file\n * $SYNTAX$\n *      HB_UNZIPFILE( &lt;cFile&gt;, &lt;bBlock&gt;, &lt;lWithPath&gt;, &lt;cPassWord&gt;, &lt;cPath&gt;,\n *      &lt;cFile&gt; | &lt;aFile&gt;, &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file to extract\n *\n *      &lt;bBlock&gt;  Code block to execute while extracting\n *\n *      &lt;lWithPath&gt; Toggle to create directory if needed\n *\n *      &lt;cPassWord&gt; Password to use to extract files\n *\n *      &lt;cPath&gt;    Path to extract the files to - mandatory\n *\n *      &lt;cFile&gt; | &lt;aFiles&gt; A File or Array of files to extract - mandatory\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if all file was successfully restored, otherwise .f.\n * $DESCRIPTION$\n *      This function restores all files contained inside the &lt;cFile&gt;.\n *      If the extension is omitted, .ZIP will be assumed. If a file already\n *      exists, it will be overwritten.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      The &lt;cPath&gt; is a mandatory parameter. Set to \".\\\" to extract to the\n *      current directory\n *\n *      If &lt;cFile&gt; or &lt;aFiles&gt; are not provided, no files will be extracted!\n *      Make sure you provide the file or files you want extracted\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      aExtract := hb_GetFilesInZip( \"TEST.ZIP\" )  // extract all files in zip\n *      IF HB_UNZIPFILE( \"TEST.ZIP\",,,, \".\\\", aExtract )\n *         qout(\"File was successfully extracted\")\n *      ENDIF\n *\n *      aExtract := hb_GetFilesInZip( \"TEST2.ZIP\" )  // extract all files in zip\n *      IF HB_UNZIPFILE( \"TEST2.ZIP\", {|cFile| qout( cFile ) },,, \".\\\", aExtract )\n *         qout(\"File was successfully extracted\")\n *      ENDIF\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNZIPFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Gets the number of files that are in the zipfile\n * $SYNTAX$\n *      HB_GETUNZIPFILE( &lt;cFile&gt; ) ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the zipfile\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the zipfile.\n *      The purpose for this function is to use in conjunction with the\n *      HB_UNZIPFILE() function, so you can use returned result in the code\n *      block. See example below.\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *      Local nFiles := HB_GETUNZIPFILE( \"test.zip\" )\n *\n *      if nFiles &gt; 0\n *         ? \"This files Contains \", nfiles\n *      endif\n *\n *      Return Nil\n *\n *      Here is an example of How to use HB_GETUNZIPFILE() in conjunction\n *      with HB_UNZIPFILE()\n *\n *      Function Main()\n *      Local aGauge, nLen\n *\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\" ,\"²\" )\n *      GaugeDisplay( aGauge )\n *      nLen := HB_GETUNZIPFILE( \"test22\" )\n *      HB_UNZIPFILE( \"test22\", {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ), qout(cFile) }, .t. )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYTDSPAN()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file\n * $SYNTAX$\n *      HB_ZIPFILEBYTDSPAN( &lt;cFile&gt; ,&lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;iSize&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt;) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *          _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;iSize&gt; Size of the archive, in bytes. Default is 1457664 bytes\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used, it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file, otherwise if &lt;lOverWrite&gt; is\n *      false the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored \'\n *      with the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also\n *      be stored with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYTDSPAN( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" }, 9, {|nPos,cFile| qout(cFile) }, \"hello\",, 521421 )\n *         qout(\"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\", \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILEBYTDSPAN( \"test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen) },, \"hello\",, 6585452 )\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_ZIPFILEBYPKSPAN()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Create a zip file on removable media\n * $SYNTAX$\n *      HB_ZIPFILEBYPKSPAN( &lt;cFile&gt;, &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;,\n *      &lt;bBlock&gt;, &lt;lOverWrite&gt;, &lt;cPassword&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;,\n *      &lt;pFileProgress&gt;) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;cFileToCompress&gt;  Name of a file to Compress, Drive and/or path\n *      can be used\n *          _or_\n *      &lt;aFiles&gt;  An array containing files to compress, Drive and/or path\n *      can be used\n *\n *      &lt;nLevel&gt;  Compression level ranging from 0 to 9\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lOverWrite&gt;  Toggle to overwrite the file if exists\n *\n *      &lt;cPassword&gt; Password to encrypt the files\n *\n *      &lt;lWithPath&gt; Toggle to store the path or not\n *\n *      &lt;lWithDrive&gt; Toggle to store the Drive letter and path or not\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if file was create, otherwise .f.\n * $DESCRIPTION$\n *      This function creates a zip file named &lt;cFile&gt;. If the extension\n *      is omitted, .ZIP will be assumed. If the second parameter is a\n *      character string, this file will be added to the zip file. If the\n *      second parameter is an array, all file names contained in &lt;aFiles&gt;\n *      will be compressed.  Also, the use of this function is for creating\n *      backup in removable media like an floppy drive/zip drive.\n *\n *      If &lt;nLevel&gt; is used, it determines the compression type where 0 means\n *      no compression and 9 means best compression.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      If &lt;lOverWrite&gt; is used , it toggles to overwrite or not the existing\n *      file. Default is to overwrite the file, otherwise if &lt;lOverWrite&gt; is false\n *      the new files are added to the &lt;cFile&gt;.\n *\n *      If &lt;cPassword&gt; is used, all files that are added to the archive are encrypted\n *      with the password.\n *\n *      If &lt;lWithPath&gt; is used, it tells thats the path should also be stored with\n *      the file name. Default is false.\n *\n *      If &lt;lWithDrive&gt; is used, it tells thats the Drive and path should also be stored\n *      with the file name. Default is false.\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n *\n *      Before calling this function, Set an Changedisk codeblock by calling\n *      the HB_SETDISKZIP().\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      hb_setdiskzip( {|nDisk| Alert( \"Please insert disk no \" + Str( nDisk, 3 ) ) } )\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"a:\\TEST.ZIP\", \"TEST.PRG\" )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"a:\\TEST1.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\" } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_ZIPFILEBYPKSPAN( \"TEST2.ZIP\", { \"TEST.PRG\", \"c:\\windows\\win.ini\"}, 9, {|nPos,cFile| qout(cFile) } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      aFiles := { \"TEST.PRG\", \"c:\\windows\\win.ini\" }\n *      nLen   := Len( aFiles )\n *      aGauge := GaugeNew( 5, 5, 7, 40, \"W/B\", \"W+/B\", \"²\" )\n *      GaugeDisplay( aGauge )\n *      HB_ZIPFILEBYPKSPAN( \"f:\\test33.zip\", aFiles, 9, {|cFile,nPos| GaugeUpdate( aGauge, nPos/nLen ) },, \"hello\" )\n *      // assuming f:\\ is a Zip Drive\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETDISKZIP()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Set an codeblock for disk changes\n * $SYNTAX$\n *     HB_SETDISKZIP( &lt;bBlock&gt; ) ---&gt; TRUE\n * $ARGUMENTS$\n *     &lt;bBlock&gt; an Code block that contains an function that will be performed\n *     when the need of changing disk are need.\n * $RETURNS$\n *     It always returns True\n * $DESCRIPTION$\n *     This function will set an codeblock that will be evaluated every time\n *     that an changedisk event is necessary. &lt;bBlock&gt; receives nDisk as a\n *     code block param that corresponds to the diskette number to be processed.\n *\n *     Set this function before opening archives that are in removable media.\n *     This block will be released, when the caller finish it job.\n * $EXAMPLES$\n *      HB_SETDISKZIP( {|nDisk| Alert( \"Please insert disk no \" + Str( nDisk, 3 ) ) } )\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_ZIPDELETEFILES()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Delete files from an zip archive\n * $SYNTAX$\n *     HB_ZIPDELETEFILES( &lt;cFile&gt;, &lt;cFiletoDelete&gt; | &lt;aFiles&gt; | &lt;nFilePos&gt; ) --&gt; &lt;lDeleted&gt;\n * $ARGUMENTS$\n *     &lt;cFile&gt;  The name of the zip files from where the files will be deleted\n *\n *     &lt;cFiletoDelete&gt; An File to be removed\n *        _or_\n *     &lt;aFiles&gt;    An Array of Files to be removed\n *        _or_\n *     &lt;nFilePos&gt; The Position of the file to be removed\n * $RETURNS$\n *     &lt;lDeleted&gt; If the files are deleted, it will return .T.; otherwise\n *     it will return .f. in the following cases: Spanned Archives; the file(s)\n *     could not be found in the zip file.\n * $DESCRIPTION$\n *     This  function removes files from an Zip archive.\n * $EXAMPLES$\n *     ? \"has the file zipnew.i been deleted \", if( HB_ZIPDELETEFILES( \"\\test23.zip\", \"zipnew.i\" ), \"Yes\", \"No\" )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_ZIPTESTPK()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Test pkSpanned zip files\n * $SYNTAX$\n *     HB_ZIPTESTPK( &lt;cFile&gt; ) --&gt; &lt;nReturnCode&gt;\n * $ARGUMENTS$\n *     &lt;cFile&gt;  File to be tested.\n * $RETURNS$\n *     &lt;nReturn&gt; A code that tells if the current disk is the last of a\n *     pkSpanned disk set.\n * $DESCRIPTION$\n *     This function tests if the disk inserted is the last disk of an backup\n *     set or not.\n *     It will return the follow return code when an error is found\n *\n *     &lt;table&gt;\n *     Error code     Meaning\n *     114            Incorrect Disk\n *     103            No Call back was set with HB_SETDISKZIP()\n *     &lt;/table&gt;\n *\n *     Call this function to determine if the disk inserted is the correct\n *     one before any other function.\n * $EXAMPLES$\n *      if HB_ZIPTESTPK( \"a:\\test22.zip\" ) == 114\n *          ? \"Invalid Diskette\"\n *      endif\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_GETZIPCOMMENT()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Return the comment of an zip file\n * $SYNTAX$\n *     HB_GETZIPCOMMENT( &lt;szFile&gt; ) --&gt; &lt;szComment&gt;\n * $ARGUMENTS$\n *     &lt;szFile&gt;  File to get the comment from\n * $RETURNS$\n *     &lt;szComment&gt;  The comment that was stored in &lt;szFile&gt;\n * $DESCRIPTION$\n *     This function receives a valid zip file name as parameter,\n *     and returns the global comment stored within.\n * $EXAMPLES$\n *     ? \"The comment in test.zip is \", HB_GETZIPCOMMENT( \"test.zip\" )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETZIPCOMMENT()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *     Set an Zip archive Comment\n * $SYNTAX$\n *     HB_SETZIPCOMMENT( &lt;cComment&gt; ) --&gt; Nil\n * $ARGUMENTS$\n *     &lt;cComment&gt;   Comment to add to the zip archive\n * $RETURNS$\n *     &lt;NIL&gt; this function always return NIL\n * $DESCRIPTION$\n *     This function stored an global comment to an zip archive.\n *     It should be called before any of the compression functions.\n * $EXAMPLES$\n *     HB_SETZIPCOMMENT( \"This is an Test\" )\n *     hb_zipfile( \"test.zip\", { \"\\windows\\ios.ini\", \"\\windows\\win.ini\" } )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/* $DOC$\n * $FUNCNAME$\n *     HB_SETBUFFER()\n * $CATEGORY$\n *     Zip Functions\n * $ONELINER$\n *\n * $SYNTAX$\n *     HB_SETBUFFER( [&lt;nWriteBuffer&gt;], [&lt;nExtractBuffer&gt;], [&lt;nReadBuffer&gt;] ) --&gt; Nil\n * $ARGUMENTS$\n *     &lt;nWriteBuffer&gt;   The size of the write buffer.\n *\n *     &lt;nExtractBuffer&gt; The size of the extract buffer.\n *\n *     &lt;nReadBuffer&gt;    The size of the read buffer.\n * $RETURNS$\n *     &lt;NIL&gt;            This function always returns NIL.\n * $DESCRIPTION$\n *     This function set the size of the internal buffers for write/extract/read\n *     operation\n *\n *     If the size of the buffer is smaller then the default, the function\n *     will automatically use the default values, which are 65535/16384/32768\n *     respectively.\n *\n *     This function be called before any of the compression/decompression\n *     functions.\n * $EXAMPLES$\n *     HB_SETBUFFER( 100000, 115214, 65242 )\n * $STATUS$\n *     R\n * $COMPLIANCE$\n *     This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_GETUNRARFILE()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Gets the number of files that are in the RAR file\n * $SYNTAX$\n *      HB_GETUNRARFILE( &lt;cFile&gt; ) ---&gt; nNumber\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the rar file\n * $RETURNS$\n *      &lt;nNumber&gt;  The number of files contained inside the RAR file\n * $DESCRIPTION$\n *      This function returns the number of files that is stored in the RAR file.\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *      Local nFiles := HB_GETUNRARFILE( \"test.rar\" )\n *\n *      if nFiles &gt; 0\n *         ? \"This files contains \", nFiles\n *      endif\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */\n/*\n * $DOC$\n * $FUNCNAME$\n *      HB_UNZIPFILEINDEX()\n * $CATEGORY$\n *      Zip Functions\n * $ONELINER$\n *      Unzip a compressed file referenced by it number in the zipfile\n * $SYNTAX$\n *      HB_UNZIPFILE( &lt;cFile&gt;, &lt;bBlock&gt;, &lt;lWithPath&gt;, &lt;cPassWord&gt;, &lt;cPath&gt;,\n *      &lt;nFile&gt; | &lt;anFiles&gt;, &lt;pFileProgress&gt; ) ---&gt; lCompress\n * $ARGUMENTS$\n *      &lt;cFile&gt;   Name of the zip file\n *\n *      &lt;bBlock&gt;  Code block to execute while compressing\n *\n *      &lt;lWithPath&gt; Toggle to create directory if needed\n *\n *      &lt;cPassWord&gt; Password to use to extract files\n *\n *      &lt;cPath&gt;    Path to extract the files to - mandatory.\n *\n *      &lt;cFile&gt; | &lt;anFiles&gt; A File or Array of files position to extract - mandatory\n *\n *      &lt;pFileProgress&gt; Code block for File Progress\n * $RETURNS$\n *      &lt;lCompress&gt;  .t. if all file was successfully restored, otherwise .f.\n * $DESCRIPTION$\n *      This function restores all files contained inside the &lt;cFile&gt;.\n *      If the extension is omitted, .ZIP will be assumed. If a file already\n *      exists, it will be overwritten.\n *\n *      If &lt;bBlock&gt; is used, every time the file is opened to compress it\n *      will evaluate bBlock. Parameters of bBlock are cFile and nPos.\n *\n *      The &lt;cPath&gt; is a mandatory parameter. Set to \".\\\" to extract to the\n *      current dir\n *\n *      If &lt;cFile&gt; or &lt;anFiles&gt; are not provided, no files will be extracted!\n *      Make sure you provide the file or files you want extracted\n *\n *      If &lt;pFileProgress&gt; is used, an Code block is evaluated, showing the total\n *      of that file has being processed.\n *      The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}\n * $EXAMPLES$\n *      FUNCTION MAIN()\n *\n *      IF HB_UNZIPFILEINDEX( \"TEST.ZIP\",,,, \".\\\", 1 )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      IF HB_UNZIPFILEINDEX( \"TEST2.ZIP\", {|cFile|, qout(cFile) },,, \".\\\", { 1, 2 } )\n *         qout( \"File was successfully created\" )\n *      ENDIF\n *\n *      Return Nil\n * $STATUS$\n *      R\n * $COMPLIANCE$\n *      This function is a Harbour extension\n * $PLATFORMS$\n *      All\n * $FILES$\n *      Library is hbzip.lib\n * $END$\n */[/quote:fu8h7f8y]\n\nEMG','',0,'gA==','fu8h7f8y',1,0,'',6,0,0),(24500,5532,3,487,0,'151.38.72.87',1168042269,1,0,1,1,1,0,'','','Antonio,\n[quote:15r33slp]It looks as a Windows behavior. If you review the class and the related winapi C file, you will see we don\'t do anything related[/quote:15r33slp]\nyes, I\'ve seen them. No problem once you know it <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nIt took some time to me before realizing why my defaults were overwritten. Maybe you could put a note in the doc, so that other users in future will be aware of this behaviour.\nThanks,\nDavide.','',0,'gA==','15r33slp',1,0,'',487,0,0),(24501,5499,3,906,0,'194.249.14.37',1168044745,1,0,1,1,1,1,'','','Enrico , you are right!\nHere is another sample for deleting several file, also work fast\n\nDeleteFiles(\"c:\\myapp\\\" , \"*.ppo\")\n\nFunct DeleteFiles(FromWhere,WhatFiles)\nlocal Curdir:=  CurDrive()+\":\\\"+CURDIR()+\"\\\"\nlChDir(FromWhere)   // Ferase work on current dir, so change dir \n\naFiles := Directory(FromWhere  +WhatFiles)  \nAeval(aFiles, {|v| Ferase( v[1]) })\n\nlChDir(CurDir)  // go back to mydir\n\nReturn .t.','',0,'','1kpjsupv',1,0,'',906,0,0),(24503,5551,6,439,0,'200.125.38.104',1168063042,1,0,1,1,1,1,'','BTNGET Y FWH 6.12','Nunca faltan sufrimientos a la hora de actualizar FWH cuando se usan clases externas al mismo (no digo que sea culpa de FWH).\n\nTal vez alguien me pueda ayudar en este problema con la Clase BtnGet.\n\nEsta clase me ha funcionado perfecto con FWH Marzo 2006 (2.7), al actualizarme a la version 6.12, la funcion FWCalendar (que muestra un calendario muy práctico, no muestra los numeros de las fechas.\n¿alguien me puede ayudar?\n\nPueden hallar esta clase con un ejemplo que muestra el error en:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02200d8b54/BtnGet32.exe.html\">http://hyperupload.com/download/02200d8 ... 2.exe.html</a><!-- m -->\n\nDesde ya muchas gracias por cualquier ayuda que puedo recibir, ya que no puedo usar la actualización hasta resolver este problema ya que tengo objetos de esta clase por todas mis aplicaciones.','',0,'','35h3vxu2',1,0,'',439,0,0),(24504,5548,2,2,0,'87.218.146.244',1168065304,1,0,1,1,1,1,'','','Williams,\n\nMETHOD nAtCol( nColPixel ) CLASS TWBrowse','',0,'','11ry1gw3',1,0,'',2,0,0),(24505,5551,6,2,0,'87.218.146.244',1168066506,1,0,1,1,1,1,'','','José,\n\nHay que hacer una pequeña modificación en la clase TSay, en concreto hay que quitar la línea 265 (::VarPut(...)). Con ese cambio debería funcionarte correctamente.','',0,'','3268sy51',1,0,'',2,0,0),(24506,5534,6,2,0,'87.218.146.244',1168066601,1,0,1,1,1,1,'','','Ale,\n\nLo hemos probado con ADSL. Puedes probarlo en otro ordenador ?','',0,'','3f79y9sr',1,0,'',2,0,0),(24507,5541,3,904,0,'198.54.202.194',1168067659,1,0,1,1,1,1,'','','I\'m afraid this is WAY over my head.  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nC\'mon - need a simple way.\n\nDEFINE ZIPFILE oZipfile cZIPFILE FILES aFiles2zip PASSWORD cPassword\nACTIVATE oZipfile\n\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'','18kuxm1r',1,0,'',904,0,0),(24508,5549,3,904,0,'198.54.202.210',1168067935,1,0,1,1,1,1,'','','Ah ha - Thanks.','',0,'','3f0j7mof',1,0,'',904,0,0),(24509,5550,3,2,0,'87.218.146.244',1168070726,1,0,1,1,1,1,'','','Eugeniusz,\n\nChange the variable focused_button_id into a function call:\n[code:ipkxqjxr]\nfunction focused_button_id&#40; oDlg &#41;\n\n   local nAt &#58;= AScan&#40; oDlg&#58;aControls, &#123; | o | o&#58;lFocused &#125; &#41;\n\nreturn If&#40; nAt != 0, oDlg&#58;aControls&#91; nAt &#93;&#58;nId, 0 &#41;\n[/code:ipkxqjxr]','',0,'AIA=','ipkxqjxr',1,0,'',2,0,0),(24510,5546,4,2,0,'87.218.146.244',1168071160,1,0,1,1,1,1,'','','Pawel,\n\nYour code will produce memory leak. This is needed:\n[code:1et91ck6]\nchar * p;\n\ndwResult = SCAN_FindFirst &#40;&amp;ScanFindInfo, &amp;hFindHandle&#41;; \np = WideToAnsi &#40;ScanFindInfo&#46;szPortName&#41;;\nhb_retc&#40; p &#41;;\nhb_xfree&#40; p &#41;;\n[/code:1et91ck6]','',0,'AIA=','1et91ck6',1,0,'',2,0,0),(24511,5547,1,47,0,'203.144.143.9',1168078596,1,0,1,1,1,0,'','','Dear James,\n\nThe controls are created on the fly, depend on customer data\n[img:15uutket]http&#58;//www&#46;easyfo&#46;com/Image/RoomRack&#46;JPG[/img:15uutket]\n\nBest regards,\nDutch','',0,'CA==','15uutket',1,0,'',47,0,0),(24512,5547,1,2,0,'87.218.146.244',1168081456,1,0,1,1,1,1,'','','Dutch,\n\nWindows 16 bits applications controls are limited to 255. You should port your app to 32 bits using FWH in order to use more controls.','',0,'CA==','rv0cchzp',1,0,'',2,0,0),(24513,5527,6,63,0,'88.11.31.105',1168082746,1,0,1,1,1,0,'','','Antonio:\nMás o menos, ya estoy en camino de resolverlo. Es cuestión a abrir el Bmp con FOPEN(), analizar el header del Bmp (no es complicado), calcular la posición del pixel que quiero pintar (ojo, que en cada línea pueden haber hasta tres bytes 00 de relleno) y hacer un FWRITE() del color apropiado en ese pixel.  Laborioso pero después de unas cuantas pruebas, la cosa parece clara.\n\nPor cierto, si alguien quiere intentarlo, le recomiendo que utilice como foto de partida un Bmp en blanco. Así, toda la zona de datos son bytes FF y es mucho más fácil de analizar los cambios\n\nSaludos,\n\nRafael','',0,'CA==','32n209sv',1,0,'',63,0,0),(24514,5551,6,362,0,'200.168.52.156',1168084198,1,0,1,1,1,1,'','','Ó PUEDES USAR ESTE CALENDÁRIO:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=594\">http://www.fivewin.com.br/exibedicas.asp?id=594</a><!-- m -->','',0,'CA==','1exk72hm',1,0,'',362,0,0),(24515,5552,6,362,0,'200.168.52.156',1168086479,1,0,1,1,1,1,'','SUMAR UNA FECHA A UN NUMERO?','Buenos Dias Amigos, por favor, necesito ayuda de todos ustedes, para lo ke sigue:\n\nComo puedo hacer para sumar una fecha a un numero:\n\nEjemplo:\n\nTengo la siguinte fecha inicial:\n\n31/12/2006\n\nNecesito sumar a esta fecha, 5 años( 60 meces ) \n\ny que el resultado, me retorne la nueva fecha de término.\n\nRegards, saludos.','',0,'CA==','5gmt6gg2',1,0,'',362,0,0),(24516,5521,3,397,0,'201.26.4.217',1168089440,1,0,1,0,1,1,'','','All right Mr. Enrico\n\nit forgives my deceit\n\nThe OleDB Driver is not disponible in MySQL Site. I found it forgotten in <!-- m --><a class=\"postlink\" href=\"http://download.softagency.net/MySQL/Downloads/Win32/\">http://download.softagency.net/MySQL/Downloads/Win32/</a><!-- m -->.\n\nAreaNG\n\nYou can a test with a server side of my Captor application. Download in <!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/eserver.exe\">http://www.shoppmarketing.com/forum/eserver.exe</a><!-- m -->\n\nThe test consist in click on elements of tree to filter registers in the browse.\n\nPart of program:\n[code:1slou0cn]\n    ADORDDDefault&#40; &quot;MySQL&quot; &#41;\n\n    StrConnection &#58;= &quot;driver=&#123;&quot; + StrDriver +&quot;&#125;&quot; + &quot;;database=&quot; + StrDatabase + ;\n                     &quot;;server=&quot; + StrServer + ;\n                     &quot;;uid=&quot; + StrUserID + ;\n                     &quot;;pwd=&quot; + StrUserPWD + ;\n                     &quot;;option=3;&quot;\n\n    ADO CONNECT StrConnection\n    if &#46;not&#46; ADOConnected&#40;&#41;\n       ? &quot;Conexao nao foi estabilizada&#46; Aplicativo sera fechando&#46;&quot;\n       return &#46;f&#46;\n    endif\n    ADO USE clientes\n    ADO USE proposta\n\n    MainBrowse&#40;&#41;\n\n    ADO CLOSE\n[/code:1slou0cn]\n\n\nThis is part of MainBrowse():\n[code:1slou0cn]\n   @ 0,205 LISTBOX oLbx2 FIELDS SIZE 300,200 PIXEL OF oWnd\n           oLbx2&#58;bLine         &#58;= &#123;|| &#123; str&#40;ADOField&#40; &quot;idfilial&quot; &#41;,5&#41;, ;\n                                        str&#40;ADOField&#40; &quot;idproposta&quot; &#41;,6&#41;, ;\n                                        LoadResources&#40;MostraStatus&#40;ADOField&#40;&quot;status&quot;&#41;&#41;&#41;, ;\n                                        ADOField&#40; &quot;nome&quot; &#41;, ;\n                                        alltrim&#40;ADOField&#40; &quot;marca&quot; &#41;&#41;+&quot;-&quot;+ADOField&#40; &quot;modelo&quot; &#41;, ;\n                                        ADOField&#40; &quot;cic&quot; &#41;, ;\n                                        transf&#40; ADOField&#40; &quot;financiado&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41;, ;\n                                        transf&#40; ADOField&#40; &quot;entrada&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41;, ;\n                                        transf&#40; ADOField&#40; &quot;prazo&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41;, ;\n                                        transf&#40; ADOField&#40; &quot;parcela&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41; &#125; &#125;\n[/code:1slou0cn]\n\nYou can use test José Luis Capel class too. Found it in <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w -->.','',0,'AIA=','1slou0cn',1,0,'',397,0,0),(24517,5552,6,53,0,'189.139.27.82',1168089800,1,0,1,1,1,1,'','','Karinha:\n\nSe me ocurre lo siguiente partiendo de la fecha de la PC\n\nFUNCTION Sumar(nSumar)\nLOCAL dNvaFec := CTOD(STR(DAY(DATE()),2,0) + \"/\" + ;\nSTR(MONTH(DATE()),2,0) + \"/\" + ;\nSTR(YEAR(DATE())+nSumar,4,0))\nRETURN(dNvaFec)\n\nEspero te funcione\n\nSaludos, Armando','',0,'AIA=','14xx4s31',1,0,'',53,0,0),(24518,5538,3,264,0,'200.91.3.10',1168091678,1,0,1,1,1,1,'','','I use a static variable then when i come in i set the var in \"9999\" and later if try to in one more time i see if the var is set to NIL or &lt;&gt; NIL\nthen when i finish restart de var to NIL .....\nthat\'s my way !!','',0,'AIA=','1o2p45wn',1,0,'',264,0,0),(24519,5552,6,264,0,'200.91.3.10',1168092187,1,0,1,1,1,1,'','','dfecha := CtoD( \"31/12/2006\" )\ndFechaNueva := dFecha + 365*5\n? dFecha, dFechaNueva \n\ncreo yo .....','',0,'AIA=','28mcbopf',1,0,'',264,0,0),(24520,5553,6,838,0,'80.59.225.15',1168092592,1,0,1,1,1,0,'','Imagen con Timage','Hola Amigos\n\nQuisiera pintar en un recuadro un albaran que he extraido de un array y no me lo pinta, utilizo freeimage y lo hago así\n\nCargo el array y extraigo el primer fichero .jpg\n*************************\n\nficheros:=cargaarray()\n\nstatic function cargaarray()\nlocal i,ficheros,longitud,numfiles\n  Ficheros := Array( ADir( Publicas:cUnidad+\"*.jpg\" ) )\n  Longitud := Array( ADir( Publicas:cUnidad+\"*.jpg\" ) )\n  NumFiles := aDir (Publicas:cUnidad+\"*.jpg\", Ficheros, Longitud)\nreturn ficheros[1]\n**************************\nAhora defino la imagen \noBmp1:= TImage():Define( , Publicas:cUnidad+Ficheros ) \n\nY ahora en un Dialogo que tengon un control destinado a ello, lo pinto\n REDEFINE IMAGE oBmp1 ID 4001 OF oDlg SCROLL ADJUST UPDATE\n    oBmp1:Progress( .f. )\n********************\nQue me falta?\n\nEl control del Dialogo lo he creado con pellesc y lo he probado como custom control y como bitmap.\n\nSaludos\n\nJose Luis','',0,'','owa56hph',1,0,'',838,0,0),(24521,5551,6,439,0,'200.125.45.192',1168094235,1,0,1,1,1,1,'','','Gracias a ambos por responderme tan pronto!!!!!!!!\n\nAntonio,\nefectivamente era ese el problema, ahora me funciona perfecto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nKarinha,\nSi bien no puedo usar tu calendario para esta clase porque es demasiado\ngrande, seguramente me resultará útil para otras cosas, está muy bello.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','31909yt3',1,0,'',439,0,0),(24522,5554,3,51,0,'80.122.88.242',1168095800,1,0,1,1,1,0,'','PRINTER CLASS','To Antonio,\n\nAs I sometimes have problems with a white sheet in preview I thought of changing printer.prg.  This occurs if the program breaks and the wmf-file is not destroyed by the calling program. You have to cancel wowoexec and then delete the temp-wmf file in windows/temp or - as a user - restart the system.\n\n\nI inserted:\n\n    aDirTMP := directory(::cDir+\"\\*.wmf\", \"D\")\n     \nand changed\n      AAdd(::aMeta,::cDir+\"\\T\"+ALLTRIM(STR(len(aDirTMP)+1))+Padl(::nPage,4,\"0\")+\".wmf\")\n\nSo every wmf-file gets a new filename.\n\nCould someone of the advanced Fivewinners check this code, please.\n\nThanks in advance\nOtto\n\n\nMETHOD _StartPage() CLASS TPrinter\n\n   LOCAL lSetFixed\n   LOCAL aDirTMP := {}\n\n   If ::hDC = 0\n      Return NIL\n   endif\n\n   lSetFixed := Set(_SET_FIXED,.F.)\n\n   if !::lMeta .AND. !::lStarted\n      ::lStarted := .T.\n      StartDoc( ::hDC, ::cDocument )\n   endif\n\n   ::nPage++\n\n    aDirTMP := directory(::cDir+\"\\*.wmf\", \"D\")\n\n\n   if ::lMeta\n      AAdd(::aMeta,::cDir+\"\\T\"+ALLTRIM(STR(len(aDirTMP)+1))+Padl(::nPage,4,\"0\")+\".wmf\")\n      ::hDCOut := CreateMetaFile(Atail(::aMeta))\n   else\n      StartPage(::hDC)\n   endif\n\n   Set(_SET_FIXED,lSetFixed )\n\nReturn NIL','',0,'','2kmjvlm5',1,0,'',51,0,0),(24523,5555,3,51,0,'80.122.88.242',1168095957,1,0,1,1,1,0,'','App.Path','How do I get application path in FW?\nThanks in advance\nOtto','',0,'','1l6oqyp3',1,0,'',51,0,0),(24524,5538,3,397,0,'201.26.4.217',1168096019,1,0,1,0,1,1,'','','I have a same problem\n\nI use this code:\n[code:y6u7hfhv]\n#command OPEN &lt;&#40;db&#41;&gt;                                                    ;\n             &#91;VIA &lt;rdd&gt;&#93;                                                ;\n             &#91;ALIAS &lt;a&gt;&#93;                                                ;\n             &#91;&lt;new&#58; NEW&gt;&#93;                                               ;\n             &#91;&lt;ex&#58; EXCLUSIVE&gt;&#93;                                          ;\n             &#91;&lt;sh&#58; SHARED&gt;&#93;                                             ;\n             &#91;&lt;ro&#58; READONLY&gt;&#93;                                           ;\n             &#91;INDEX &lt;&#40;index1&#41;&gt; &#91;, &lt;&#40;indexn&#41;&gt;&#93;&#93;                          ;\n       =&gt; if Select&#40; &lt;&#40;db&#41;&gt; &#41;==0                                        ;\n         ;      dbNetUseArea&#40; &lt;&#46;new&#46;&gt;, &lt;rdd&gt;, &lt;&#40;db&#41;&gt;, &lt;&#40;a&#41;&gt;, if&#40;&lt;&#46;sh&#46;&gt; &#46;or&#46; &lt;&#46;ex&#46;&gt;, !&lt;&#46;ex&#46;&gt;, NIL&#41;, &lt;&#46;ro&#46;&gt;, 0 &#41;&#91;; dbSetIndex&#40; &lt;&#40;db&#41;&gt; &#41;&#93;;\n         ;else                                                          ;\n         ;   dbSelectArea&#40; &lt;&#40;db&#41;&gt; &#41;                                     ;\n         ;endif\n[/code:y6u7hfhv]\n\nIn [b:y6u7hfhv]if Select( &lt;(db)&gt; )[/b:y6u7hfhv] you pass the table name and if is not in memory open or just select the open table.\n\n[code:y6u7hfhv]\n&#46;&#46;&#46;\nif Select&#40; &quot;clients&quot; &#41;==0\n   use CLIENTS shared new index &#46;&#46;&#46;\nelse\n   dbSelectArea&#40; &quot;clients&quot; &#41;\nendif\n&#46;&#46;&#46;\n[/code:y6u7hfhv]','',0,'QIA=','y6u7hfhv',1,0,'',397,0,0),(24525,5462,4,3,0,'90.16.169.189',1168097902,1,0,1,1,1,1,'','','Antonio\n\nI do understand this, nevertheless the Modal Clausus is not working properly. My app uses exclusively windows (i have no dialogs in it). Adding the Modal clause make the app work again correctly but only once. When you quit the app now, you can not start the app again. You have to reset the computer to make it work again ....\n\nI use windows and folders. \n\nAny idea ?\n\nRichard','',0,'QIA=','2mtmh596',1,0,'',3,0,0),(24526,5555,3,3,0,'90.16.169.189',1168098007,1,0,1,1,1,1,'','Re: App.Path','[quote=&quot;Otto&quot;:n6rxokhp]How do I get application path in FW?\nThanks in advance\nOtto[/quote:n6rxokhp]\n\ncFilePath( GetModuleFileName( GetInstance( ) ) )','',0,'gA==','n6rxokhp',1,0,'',3,0,0),(24527,5554,3,6,0,'87.9.34.93',1168099097,1,0,1,1,1,1,'','Re: PRINTER CLASS','[quote=&quot;Otto&quot;:kemxl0to]You have to cancel wowoexec[/quote:kemxl0to]\n\nWowExec is for 16 bit only. Did you post in the wrong forum?\n\nEMG','',0,'gA==','kemxl0to',1,0,'',6,0,0),(24528,5554,3,51,0,'80.122.88.242',1168100221,1,0,1,1,1,0,'','','Yes, you are right. It should be for the FW forum.\n\nI had a look into FWH code and I saw that FWH does it with\ncTempFile(). So the problem does not exist anymore.\n      \nAAdd( ::aMeta, ::cDir + cTempFile( \"\\\", \"wmf\" ) )\n\nIt is time for me to say goodby to clipper - as I still use 1.9 (rock solid ).\n\nOtto','',0,'gA==','w2n24g6m',1,0,'',51,0,0),(24529,5555,3,51,0,'80.122.88.242',1168100358,1,0,1,1,1,0,'','','Thank you, Richard.','',0,'gA==','3cyj45kx',1,0,'',51,0,0),(24530,5548,2,286,0,'201.242.205.62',1168103615,1,0,1,1,1,1,'','','Gracias Antonio\n\nCon tu ayuda, y revisando nuevamente los metodos de la clase TWbrowse de Hernan finalmente di con lo que queria. \n\nAprovecho la oportunidad de dejar el codigo de una funcion generica que permite la visualizacion de un arreglo en un TWBrowse y opcionalmente devolver el numero del elemento seleccionado.\n\nAunque se han publicado otras funciones similares, las que les entrego aqui permite:\n\n  1. Mostrar un arreglo parcialmente (solo las columnas que se suministren)\n  2. Presentar las columnas en el orden en que desee el usuario sin importar el orden que tengan en el arreglo\n  3. Definir encabezados, tamaño y alineacion de las columnas a criterio del usuario\n  4. Definir colores personalizados para los elementos del browse\n  5. Mostrar el browse en la posicion elegida y con dimensiones suministradas\n  6. Realizar busqueda incremental por cualquiera de las columnas\n  7. Ordenar en tiempo de ejecucion cualquier columna\n  8. Devolver el elemento seleccionado del arreglo al pulsar ENTER o hacer doble click\n\nPara evitar el uso de funciones auxiliares he basado el trabajo en bloques de codigo de tal forma que sea mas sencilla su implementacion.  La funcion debe ser llamada con los siguientes valores:\n\n[list:10yu1tyn][b:10yu1tyn][color=blue:10yu1tyn]ShowTable( aTable, cTitle, aSize, aCoord, aCols, aCargo, bColor )[/color:10yu1tyn][/b:10yu1tyn][/list:u:10yu1tyn]\ndonde:\n[list:10yu1tyn][i:10yu1tyn][color=blue:10yu1tyn]aTable[/color:10yu1tyn][/i:10yu1tyn]= Arreglo a procesar\n[i:10yu1tyn][color=blue:10yu1tyn]cTitle[/color:10yu1tyn][/i:10yu1tyn]   = Titulo del dialogo\n[i:10yu1tyn][color=blue:10yu1tyn]aSize[/color:10yu1tyn][/i:10yu1tyn]   = Tamaño en pixeles del browse\n[i:10yu1tyn][color=blue:10yu1tyn]aCoord[/color:10yu1tyn][/i:10yu1tyn] = Coordenadas donde se debe ubicar el dialogo\n[i:10yu1tyn][color=blue:10yu1tyn]aCols[/color:10yu1tyn][/i:10yu1tyn]   = Arreglo de columnas a mostrar donde cada columna admite 5 parametros a saber:\n[list:10yu1tyn]Posicion en el arreglo (N)\nTitulo (C)\nTamaño (N)\nAlineacion (N)\nSeleccion (L)  (para sombrear la columna activa)[/list:u:10yu1tyn][/list:u:10yu1tyn]\nEjemplo\n[code:10yu1tyn]\n	aArray &#58;= &#123; \n	            &#123; 1, &quot;Activo&quot; &#125;,                       ;\n	            &#123; 11, &quot;Activo Corriente&quot; &#125;,            ;\n	            &#123; 111, &quot;Efectivo en Caja&quot; &#125;,           ;\n	            &#123; 11101, &quot;Efectivo en Caja General&quot; &#125;  ;\n	          &#125;\n	nPos   &#58;= ShowTable&#40; aArray,                          ; // Tabla\n		                 &quot;Seleccione Cuenta&quot;,             ; // Titulo\n		                 &#123; 190, 115 &#125;,                    ; // Tamaño\n		                 aCoord,                          ; // Coordenadas\n		                 &#123; &#123;  1, &quot;Codigo&quot;, 100, 0 &#125;,      ;\n		                   &#123;  2, &quot;Nombre&quot;, 270, 0 &#125;       ;\n			             &#125;  &#41;\n[/code:10yu1tyn]\nla funcion admite elementos de tipo character, date o numericos y los transforma para su correcta visualizacion en el browse. A pesar de esto es posible hacer los cambios que mas se ajusten a las necesidades particulares de cada quien\n\nPor ultimo quiero indicar que la funcion Selcolor que aparece en el codigo es una funcion generica de pintado de colores fila par/impar que puede ser omitida. En cualquier caso al final dejo el codigo de la misma a partir de algunos ejemplos publicados en este foro\n\nEspero que les sirva\n[code:10yu1tyn]\n/*********************************************************************************************\n      ShowTable&#40;&#41;     &#58; Muestra un array en un browse y permite opcionalmente escoger un valor\n*********************************************************************************************/\nfunction ShowTable&#40; aTable, cTitle, aSize, aCoord, aCols, aCargo, bColor &#41;\n\n	local oDlg, oLbx, oSay, vSay, aData, n, m, oFont&#91;1&#93;, nRetVal &#58;= 0\n	local aColSize, aJustify, aRecord, aAction, nActiveCol &#58;= 0\n\n	default aCargo &#58;= &#123; 0 &#125;\n	bColor &#58;= if&#40; bColor = nil, &#123; || SelColor&#40; oLbx&#58;nAt, 2 &#41; &#125;, &amp;&#40; bColor &#41; &#41;\n\n	default aSize  &#58;= &#123; 160, 115 &#125;\n	default aCoord &#58;= &#123; oCfg&#58;nRow+85, oCfg&#58;nCol &#125;\n\n	if ValType&#40; aTable &#41; == &quot;A&quot;\n		define font oFont&#91;1&#93; name &quot;Tahoma&quot; size 0,-12\n		define dialog oDlg title cTitle font oFont&#91;1&#93;\n		oDlg&#58;lHelpIcon &#58;= &#46;F&#46;\n		\n		aData    &#58;= &#123;&#125;\n		aColSize &#58;= &#123;&#125;\n		aHeader  &#58;= &#123;&#125;\n		aJustify &#58;= &#123;&#125;\n		aAction  &#58;= &#123;&#125;\n		for n &#58;= 1 to Len&#40; aTable &#41;\n			aRecord &#58;= &#123;&#125;\n			for m &#58;= 1 to Len&#40; aCols &#41;\n				AADD&#40; aRecord, if&#40; ValType&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41; = &quot;D&quot;, DtoC&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41;,                  ;\n				               if&#40; ValType&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41; = &quot;N&quot;, Transform&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93;, aCols&#91;m,5&#93; &#41;, ;\n				                   aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41;&#41; &#41;\n				if n = 1\n					AADD&#40; aHeader,  aCols&#91;m,2&#93; &#41;\n					AADD&#40; aColSize, aCols&#91;m,3&#93; &#41;\n					AADD&#40; aJustify, aCols&#91;m,4&#93; &#41;\n					AADD&#40; aAction,  &#123; |Self, nRow, nCol| nLbxCol &#58;= oLbx&#58;nAtCol&#40;nCol&#41;,                                       ;\n					                                     if&#40; oLbx&#58;cargo&#91;1&#93; &lt;&gt; nLbxCol,                                       ;\n					                                         &#40; cSearch &#58;= &quot;&quot;, vSay &#58;= Space&#40;200&#41;, oSay&#58;Refresh&#40;&#41;,            ;\n					                                           aData &#58;= ASort&#40; aData,,, &#123; |x,y| x&#91;nLbxCol&#93; &lt; y&#91;nLbxCol&#93; &#125; &#41;, ;\n					                                           oLbx&#58;nColHPressed &#58;= nLbxCol, oLbx&#58;cargo&#91;1&#93; &#58;= nLbxCol,       ;\n					                                           oLbx&#58;Refresh&#40;&#41; &#41;,                                             ;\n					                                          nil &#41; &#125; &#41;\n					nActiveCol &#58;= if&#40; Len&#40;aCols&#91;m&#93;&#41; &gt;= 5 &#46;and&#46; aCols&#91;m,5&#93;, m, nActiveCol &#41;\n				endif\n			next\n			AADD&#40; aRecord, Str&#40;n,4&#41; &#41;\n			AADD&#40; aData, AClone&#40; aRecord &#41; &#41;\n		next\n		\n		// Se agrega otra columna para el control del orden original\n		AADD&#40; aHeader,  &quot;No&#46;&quot; &#41;\n		AADD&#40; aColSize, 10 &#41;\n		AADD&#40; aJustify, 1 &#41;\n		AADD&#40; aAction, &#123; nil &#125; &#41;\n		\n		vSay &#58;= &quot;&quot;\n		@ aSize&#91;2&#93;+3, 5 say oSay var vSay of oDlg size 100,12 pixel\n		\n		oLbx &#58;= TWBrowse&#40;&#41;&#58;New&#40; 0, 0, aSize&#91;1&#93;, aSize&#91;2&#93;,,,,,,,,,,,,,,,,,,&#46;t&#46;,,,,, &#41;\n		LbxConfig&#40; oLbx &#41;\n		oLbx&#58;SetArray&#40; aData &#41;\n		oLbx&#58;bLine &#58;= &#123; |nAt| nAt &#58;= oLbx&#58;nAt,                              ;\n		                      if&#40; Len&#40; aData &#41; &lt; 1 &#46;or&#46; nAt &gt; Len&#40; aData &#41;, ;\n			                      Array&#40;6&#41;,                                 ;\n				                  aData&#91;nAt&#93; &#41; &#125;\n		oLbx&#58;aHeaders       &#58;= aHeader\n		oLbx&#58;aColSizes      &#58;= aColSize\n		oLbx&#58;aJustify       &#58;= aJustify\n		oLbx&#58;aActions       &#58;= aAction\n		oLbx&#58;bUpdateBuffer  &#58;= &#123; || oLbx&#58;cBuffer &#58;= Upper&#40;oLbx&#58;cBuffer&#41;,                                                       ;\n		                            vSay &#58;= if&#40; Len&#40;oLbx&#58;cBuffer&#41; &gt; 0, PadR&#40; &quot;Buscando&#58; &quot; + oLbx&#58;cBuffer, 200 &#41;, Space&#40;200&#41; &#41;, ;\n		                            oSay&#58;Refresh&#40;&#41;                                                                             ;\n		                       &#125;\n		oLbx&#58;bSeek          &#58;= &#123; || if&#40; oLbx&#58;cargo&#91;1&#93; = 0,                                                                      ;\n		                                MsgStop&#40; \'Haga clic en el titulo de la columna\' + CRLF +                                ;\n		                                         \'por la que desea buscar\', \'Atención\' &#41;,                                       ;\n		                                &#40; cSearch &#58;= Upper&#40; oLbx&#58;cBuffer &#41;,                                                     ;\n		                                  nLen &#58;= Len&#40; cSearch &#41;,                                                               ;\n		                                  vSay &#58;= if&#40; Len&#40;cSearch&#41; &gt; 0, PadR&#40; &quot;Buscando&#58; &quot; + cSearch, 200 &#41;, Space&#40;200&#41; &#41;,      ;\n		                                  oSay&#58;Refresh&#40;&#41;,                                                                       ;\n		                                  nCol &#58;= oLbx&#58;cargo&#91;1&#93;,                                                                ;\n		                                  if&#40; nLen &gt; 0,                                                                         ;\n		                                      &#40; nAt &#58;= AScan&#40; aData, &#123; |x,y| Upper&#40; SubStr&#40; x&#91;nCol&#93;, 1, nLen &#41;&#41; == cSearch &#125; &#41;, ;\n		                                        if&#40; nAt &gt; 0,                                                                    ;\n		                                            &#40; oLbx&#58;nAt &#58;= nAt,                                                          ;\n		                                              if&#40; oLbx&#58;oVScroll != nil,  oLbx&#58;oVScroll&#58;SetPos&#40;nAt&#41;, nil &#41;,              ;\n		                                              oLbx&#58;Refresh&#40;&#41; &#41;,                                                         ;\n		                                            nil &#41;&#41;,                                                                     ;\n		                                      nil &#41;&#41; &#41; &#125;\n		oLbx&#58;nBuffer        &#58;= 10\n		oLbx&#58;lAutoEdit      &#58;= &#46;f&#46;\n		oLbx&#58;lAutoSkip      &#58;= &#46;f&#46;\n		oLbx&#58;lAdjLastCol    &#58;= &#46;t&#46;\n		oLbx&#58;cargo          &#58;= &#123; nActiveCol &#125;\n		oLbx&#58;nHeaderHeight  &#58;= 18\n		oLbx&#58;nLineStyle     &#58;= 1\n		oLbx&#58;nClrLine       &#58;= nRGB&#40; 200, 200, 215 &#41;\n		oLbx&#58;lDrawFocusRect &#58;= &#46;f&#46;\n		oLbx&#58;nClrPane       &#58;= bColor\n		oLbx&#58;nClrLine       &#58;= nRGB&#40; 200, 200, 215 &#41;\n		oLbx&#58;nClrBackHead   &#58;= nRGB&#40; 215, 215, 215 &#41;\n		oLbx&#58;nClrForeHead   &#58;= nRGB&#40;   0,   0,   0 &#41;\n		oLbx&#58;nClrForeFocus  &#58;= nRGB&#40; 255, 255, 255 &#41;\n		oLbx&#58;nClrBackFocus  &#58;= nRGB&#40;   0,   0,   0 &#41;\n		oLbx&#58;nClrNFFore     &#58;= nRGB&#40;   0,   0,   0 &#41;\n		oLbx&#58;nClrNFBack     &#58;= nRGB&#40; 180, 180, 180 &#41;\n		oLbx&#58;bBkColor       &#58;= &#123; |nRow,nCol,nStyle| if&#40; nCol = oLbx&#58;cargo&#91;1&#93; &#46;and&#46; &#40; nStyle = 0 &#46;or&#46; nStyle = 1 &#41;, ;\n		                                                oCfg&#58;aLbxColors&#91;2&#93;,                                        ;\n		                                                nil &#41; &#125;\n		\n		oLbx&#58;bKeyDown       &#58;= &#123; | nKey | if&#40; nKey == VK_RETURN,                               ;\n		                                      &#40;  nAt     &#58;= oLbx&#58;nAt,                          ;\n		                                         nRetVal &#58;= Val&#40; aData&#91;nAt,Len&#40;aData&#91;nAt&#93;&#41;&#93; &#41;, ;\n		                                         oDlg&#58;End&#40;&#41; &#41;,                                 ;\n		                                      nil &#41; &#125;\n		\n		oLbx&#58;bLDblClick     &#58;= &#123; | nKey | nRetVal &#58;= oLbx&#58;nAt, oDlg&#58;End&#40;&#41; &#125;\n\n		activate dialog oDlg on init &#40; oDlg&#58;SetSize&#40; oLbx&#58;nWidth+8, oLbx&#58;nHeight+60 &#41;, ;\n									   oDlg&#58;Move&#40; aCoord&#91;1&#93;,aCoord&#91;2&#93;&#41;,                ;\n									   oDlg&#58;Update&#40;&#41; &#41;\n		AEval&#40; oFont, &#123;|o| o&#58;End&#40;&#41; &#125; &#41;\n	endif\n\nreturn nRetVal\n[/code:10yu1tyn]\n[code:10yu1tyn] ===================================================================================================\n//         SelColor&#40;&#41;  &#58; Configura las filas del grid en bi-color\n// ===================================================================================================\nfunction SelColor&#40; nVal, nColor, cAlias, cColor &#41; \n    local nClr, nIndex\n\n    if cAlias &lt;&gt; nil\n        if !Empty&#40; &#40;cAlias&#41;-&gt;&#40; OrdBagName&#40;&#41; &#41; &#41;\n			nIndex &#58;= &#40;cAlias&#41;-&gt;&#40; OrdKeyNo&#40;&#41; &#41; % 2\n        else\n            nIndex &#58;= &#40;cAlias&#41;-&gt;&#40; RecNo&#40;&#41; &#41; % 2\n        endif\n    else\n        nIndex &#58;= if&#40; nVal == nil, 0, nVal % 2 &#41;\n    endif\n\n    if nIndex = 0\n        do case\n        case nColor == 1\n            nClr &#58;= oCfg&#58;aLbxColors&#91;1&#93;\n        case ncolor == 2\n            nClr &#58;= oCfg&#58;aLbxColors&#91;2&#93;\n        case nColor == 3\n            nClr &#58;= RGB&#40;238,238,238&#41;               //   RGB&#40; 163, 202, 197 &#41;\n        case nColor == 4\n            nClr &#58;= RGB&#40; 160, 160, 128 &#41;\n        case nColor == 5\n            nClr &#58;= RGB&#40; 245, 235, 195 &#41;\n        case nColor == 0\n            nClr &#58;= ColorName&#40; AllTrim&#40; cColor &#41;&#41;\n        endcase\n    else \n        nClr &#58;= CLR_WHITE\n    endif \n\nreturn nClr \n[/code:10yu1tyn]','',0,'YsA=','10yu1tyn',1,0,'',286,0,0),(24531,5547,1,47,0,'203.144.143.3',1168106890,1,0,1,1,1,0,'','','I\'ve got it.\n\nThanks for Enrico &amp; Antonio,\nDutch','',0,'YsA=','2ompcj9q',1,0,'',47,0,0),(24532,5547,1,303,0,'72.199.41.171',1168106978,1,0,1,1,1,0,'','','Dutch,\n\nWell it seems there is an exception to every rule. I have never seen a screen like yours before. I was envisioning 255 GETs, checkboxes, etc. \n\nCongradulations on a unique idea, and I like the fact that you have used color and graphics to display lots of information on the screen at once.\n\nI do wonder why they are not all in numeric order? Perhaps they are laid out according to the floor plan?\n\nI\'m afraid that your best solution is going to be 32bits as Enrico and Antionio already suggested. There are lots of other reasons for going to 32bits too.\n\nJames','',0,'YsA=','3lic841n',1,0,'',303,0,0),(24533,5552,6,75,0,'217.125.188.186',1168111133,1,0,1,1,1,0,'','','¿Y los años bisiestos?\nimaginen que la fecha inicial sea un 29 de febrero, que haberlos haylos.','',0,'YsA=','2oa8rv2f',1,0,'',75,0,0),(24534,5552,6,53,0,'200.67.251.175',1168111450,1,0,1,1,1,1,'','','dbZap:\n\nDisculpa la intromisión,  en la forma que sugieres se estan sumando dias y no años, me queda la siguiente duda, ¿¿ qué pasará cuando haya algún año bisiesto dentro de los 5 años a sumar ????\n\nSaludos, Armando','',0,'YsA=','1ddiwag2',1,0,'',53,0,0),(24535,5462,4,2,0,'87.218.146.244',1168112276,1,0,1,1,1,1,'','','Richard, \n\nPlease test this sample, here it works fine and you can run the app again and again with no problems. Please notice that the main window does not uses the MODAL clause, as it is modal by default:\n[code:32l0cs59]\n// Using nested MODAL windows\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;1&quot;\n\n   @ 2, 2 BUTTON &quot;Another&quot; OF oWnd SIZE 80, 20 ;\n      ACTION Another&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction Another&#40;&#41;\n\n   local oWnd\n\n   static nWindow &#58;= 2\n\n   DEFINE WINDOW oWnd TITLE Str&#40; nWindow++ &#41;\n\n   @ 2, 2 BUTTON &quot;Another&quot; OF oWnd  SIZE 80, 20 ;\n      ACTION Another&#40;&#41;\n\n   ACTIVATE WINDOW oWnd MODAL\n\n   nWindow--\n\nreturn nil\n[/code:32l0cs59]','',0,'AIA=','32l0cs59',1,0,'',2,0,0),(24536,5554,3,2,0,'87.218.146.244',1168112499,1,0,1,1,1,1,'','','Otto,\n\nYes, you should move to 32 bits using FWH','',0,'AIA=','cm0d2vyl',1,0,'',2,0,0),(24537,5548,2,2,0,'87.218.146.244',1168112645,1,0,1,1,1,1,'','','Williams,\n\ngracias!','',0,'AIA=','3b50ayrj',1,0,'',2,0,0),(24538,5527,6,28,0,'83.54.140.216',1168113164,1,0,1,1,1,0,'','','Hola Rafael\n\nPara pintar en un bitmap como bien dice Antonio debes hacer esto:\n\n[code:36519gvg]\n\nlocal hBmp &#58;= ReadBitmap&#40; 0, cBitmap &#41;\nlocal hDC &#58;= CreateDC&#40; &quot;DISPLAY&quot;,0,0,0&#41;\nlocal hDCMem &#58;= CreateCompatibleDC&#40; hDC &#41;\nlocal hOldBmp &#58;= SelectObject&#40; hDCMem, hBmp &#41;\nlocal nWBmp &#58;= nBmpWidth&#40; hBmp &#41;\nlocal nHBmp &#58;= nBmpHeight&#40; hBmp &#41;\n\nDeleteDC&#40; hDC &#41;\n\n// ya tienes todo lo necesario\n// ahora pintar\n\nMoveto&#40; hDCmem, 10, 10 &#41;\nLineto&#40; hDCMem, 100, 100 &#41;\n\nSelectObject&#40; hDCMem, hOldBmp &#41;\nDeleteDC&#40; hDCMem &#41;\n\n// si quieres guardar el bmp otra vez pues pasalo a Dib y luego a disco\n\nReturn hbmp // o lo que quieras\n\n[/code:36519gvg]\n\nSi necesitas algo mas, pues cuenta\n\nPodrias tambien investigar los Metafiles. Eso sería dibujo vectorial y ocupan poco. Un metafile es básicamente hacer el CreateMetafile y las funciones de dibujo de toda la vida. Luego estas llamadas a funciones se quedan almacenadas dentro del metafile como si de un dbf se tratase lo único que ocupa menos que un bitmap.\n\nPaco','',0,'AIA=','36519gvg',1,0,'',28,0,0),(24539,5556,6,307,0,'200.79.148.206',1168113594,1,0,1,1,1,0,'','impresion a 1/3','saludos y feliz 2007.. una pregunta.&gt;&gt;  como se puede hacer para que mediante la clase printer se puda imprimir a 1/3. es decir el tamanio de una ficha de deposito?.. esto por el salto de pagina, porque cuando termina y doy un oprn:End() hace un salto de pagina completa. y pues no hay manera de indicarle que el tamanio de la hoja es a 1/3..\n\ngracias de antemano..\n\nsaludos','',0,'AIA=','v15dz6ui',1,0,'',307,0,0),(24540,5553,6,2,0,'87.218.146.244',1168115313,1,0,1,1,1,1,'','','José Luis,\n\nEsto no hace falta: \noBmp1:= TImage():Define( , Publicas:cUnidad+Ficheros ) \n\nAñade este comando a FiveWin.ch:\n[code:2z1sg1qt]\n#xcommand REDEFINE IMAGE &#91; &lt;oBmp&gt; &#93; ;\n             &#91; ID &lt;nId&gt; &#93; ;\n             &#91; &lt;of&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; &lt;resource&#58; NAME, RESNAME, RESOURCE&gt; &lt;cResName&gt; &#93; ;\n             &#91; &lt;file&#58; FILE, FILENAME, DISK&gt; &lt;cBmpFile&gt; &#93; ;\n             &#91; &lt;lClick&#58; ON ClICK, ON LEFT CLICK&gt; &lt;uLClick&gt; &#93; ;\n             &#91; &lt;rClick&#58; ON RIGHT CLICK&gt; &lt;uRClick&gt; &#93; ;\n             &#91; &lt;scroll&#58; SCROLL&gt; &#93; ;\n             &#91; &lt;adjust&#58; ADJUST&gt; &#93; ;\n             &#91; CURSOR &lt;oCursor&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt;   &#93; ;\n             &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; VALID &lt;uValid&gt; &#93; ;\n             &#91; &lt;transparent&#58; TRANSPARENT&gt; &#93; ;\n       =&gt; ;\n          &#91; &lt;oBmp&gt; &#58;= &#93; TImage&#40;&#41;&#58;ReDefine&#40; &lt;nId&gt;, &lt;cResName&gt;, &lt;cBmpFile&gt;,;\n             &lt;oWnd&gt;, &#91;\\&#123; |nRow,nCol,nKeyFlags| &lt;uLClick&gt; \\&#125;&#93;,;\n                     &#91;\\&#123; |nRow,nCol,nKeyFlags| &lt;uRClick&gt; \\&#125;&#93;,;\n             &lt;&#46;scroll&#46;&gt;, &lt;&#46;adjust&#46;&gt;, &lt;oCursor&gt;, &lt;cMsg&gt;, &lt;&#46;update&#46;&gt;,;\n             &lt;&#123;uWhen&#125;&gt;, &lt;&#123;uValid&#125;&gt;, &lt;&#46;transparent&#46;&gt; &#41;\n[/code:2z1sg1qt]\nY en tu programa haz:\n[code:2z1sg1qt]\nREDEFINE IMAGE oBmp1 ID 4001 OF oDlg SCROLL ADJUST UPDATE \noBmp1&#58;Progress&#40; &#46;f&#46; &#41; FILENAME Publicas&#58;cUnidad+Ficheros\n[/code:2z1sg1qt]','',0,'AIA=','2z1sg1qt',1,0,'',2,0,0),(24541,5507,22,2,0,'87.218.146.244',1168117832,1,0,1,1,1,1,'','','Kleyber,\n\nYa implementamos un redimensionamiento automático con la claúsula RESIZE16. Podrías usar ese código modificándolo según tus preferencias.','',0,'AIA=','3lvmj30w',1,0,'',2,0,0),(24542,5541,3,303,0,'72.199.41.171',1168120310,1,0,1,1,1,0,'','','HB_ZIPFILE( cZipFile, aFiles2Zip,,,, cPassword )\n\nYou will have to add hbzip.lib to your lib list.\n\nJames','',0,'AIA=','1xq254x2',1,0,'',303,0,0),(24543,5557,3,69,0,'74.13.48.189',1168120545,1,0,1,1,1,0,'','Need help &quot;Adding TIME&quot;','Hi Everybody,\n\nI need a function that will allow me to add seconds to a stored time.\n\nI need to create a loop that will add 4 seconds to each record in the file.\n\nSomething like:\n\n[code:298dwblo]\n\ncTime &#58;= &quot;12&#58;10&#58;58&quot; \nGO TOP\nDO WHILE ! EOF&#40;&#41;\n   MyDbf-&gt;TimeField &#58;= cTime\n   cTime = cTime + 4seconds  //This is where I need help\n   SKIP\nENDDO\n\n[/code:298dwblo]\n\nI need to make sure that it will adjust the minutes or hours as they pass over 60 seconds (or 60 minutes etc...)\n\nAny Ideas?\n\nThanks \nJeff','',0,'AIA=','298dwblo',1,0,'',69,0,0),(24544,5553,6,838,0,'80.59.225.15',1168121712,1,0,1,1,1,0,'','','Gracias Antonio\n\nLo he probado y funciona\n\nJose Luis','',0,'AIA=','5zvaerca',1,0,'',838,0,0),(24545,5557,3,6,0,'87.9.34.93',1168122923,1,0,1,1,1,1,'','Re: Need help &quot;Adding TIME&quot;','[code:3w08zdvj]FUNCTION MAIN&#40;&#41;\n\n    LOCAL cTime &#58;= TIME&#40;&#41;\n\n    ? cTime, ADDSECONDS&#40; cTime, 4 &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION ADDSECONDS&#40; cTime, nSec &#41;\n\n    LOCAL nHour, nMin\n\n    nSec = &#40; VAL&#40; LEFT&#40; cTime, 2 &#41; &#41; * 3600 + VAL&#40; SUBSTR&#40; cTime, 4, 2 &#41; &#41; * 60 + VAL&#40; RIGHT&#40; cTime, 2 &#41; &#41; + nSec &#41; % 86400\n\n    nHour = INT&#40; nSec / 3600 &#41;\n\n    nSec -= nHour * 3600\n\n    nMin = INT&#40; nSec / 60 &#41;\n\n    nSec -= nMin * 60\n\n    RETURN STRZERO&#40; nHour, 2 &#41; + &quot;&#58;&quot; + STRZERO&#40; nMin, 2 &#41; + &quot;&#58;&quot; + STRZERO&#40; nSec, 2 &#41;[/code:3w08zdvj]\n\nEMG','',0,'AIA=','3w08zdvj',1,0,'',6,0,0),(24546,5553,6,838,0,'80.59.225.15',1168126395,1,0,1,1,1,0,'','','Una cuestión mas y ya acabo\n\nComo he explicado hago el siguiente proceso:\n    - Cargo las imagenes del directorio en un array\n    - Pinto la primera a la vez que el nombre de la imagen me sirve de número de albaran.\n    - Cuando acepto, borro el fichero jpg del directorio y vuelvo a hacer la misma operación sin salir del dialogo, es decir cargar las imagenes y coger la primera.\nPero ahora veo que me ha borrado el fichero del directorio, aunque me sigue presentando en pantalla la imagen anterior. Tengo que salir del diálogo, volver a entrar para que me refresque la imagen. Aunque ponga oDlg:Update() o oBmp1:Refresh() sigue mostrandome la imagen que ya está borrada.\n\nComo Refresco a la nueva imagen?\n\nSaludos\n\nJose Luis','',0,'AIA=','2a0ned9p',1,0,'',838,0,0),(24547,5553,6,2,0,'87.218.146.244',1168128694,1,0,1,1,1,1,'','','oBmp1:LoadImage( , cNombreImagen )\noBmp1:Refresh()','',0,'AIA=','zhz98h7m',1,0,'',2,0,0),(24548,5557,3,69,0,'74.13.48.189',1168129215,1,0,1,1,1,0,'','','My hat is off to you sir   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nOnce again your solution works perfectly.\n\nThanks Enrico,\n\n\nJeff','',0,'AIA=','1khn832l',1,0,'',69,0,0),(24549,5533,6,279,0,'189.169.16.220',1168131256,1,0,1,1,1,0,'','Antonio','Muchas, Gracias también me funciono así.\n\n   oBTab:bRClicked:={|| Desp_Men(oDlg,90,210)}\n\nSTAT FUNC Mant_Tabla(oDlg,nRow,nCol)\n   LOCAL oMenu\n   MENU oMenu POPUP\n      MENUITEM \"&amp;Datos de la Tabla\" \n   ENDMENU\n   ACTIVATE POPUP oMenu OF oDlg AT nRow,nCol\nRETURN (NIL)','',0,'AIA=','1gacukcd',1,0,'',279,0,0),(24550,5462,4,20,0,'87.6.211.10',1168145077,1,0,1,1,1,0,'','','The problem is the folder.\nIf I add the folder, the program work fine only the first time.\nWhen I close the application, the task remains active (I must kill the process with Task Manager).\n\n[code:21rm8202]\n// Using nested MODAL windows\n\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   IF IsExeRunning&#40; cFileName&#40; HB_ArgV&#40; 0 &#41; &#41; &#41;\n      MsgInfo&#40; &quot;The application is already running&quot; &#41;\n      RETURN &#40; nil &#41;\n   ENDIF\n\n   DEFINE WINDOW oWnd TITLE &quot;1&quot;\n\n   @ 2, 2 BUTTON &quot;Another&quot; OF oWnd SIZE 80, 20 ;\n      ACTION Another&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction Another&#40;&#41;\n\n   local oWnd, oFld\n\n   static nWindow &#58;= 2\n\n   DEFINE WINDOW oWnd TITLE Str&#40; nWindow++ &#41;\n\n      @ 0,-0&#46;5 FOLDER oFld PROMPTS &quot;One&quot;,&quot;Two&quot; ;\n                           DIALOGS &quot;ONE&quot;,&quot;TWO&quot; SIZE 247, 270 BOTTOM\n\n      REDEFINE BUTTON ID 101 OF oFld&#58;aDialogs&#91;1&#93; ACTION Another&#40;&#41;\n\n      oFld&#58;aDialogs&#91;1&#93;&#58;Move&#40;0,0&#41;\n      oFld&#58;aDialogs&#91;2&#93;&#58;Move&#40;0,0&#41;\n\n      oFld&#58;InitDialogs&#40;&#41;\n\n      //@ 2, 2 BUTTON &quot;Another&quot; OF oWnd  SIZE 80, 20 ;\n      //ACTION Another&#40;&#41;\n\n   ACTIVATE WINDOW oWnd MODAL\n\n   nWindow--\n\nreturn nil\n\n#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\nONE DIALOG 174, 80, 140, 142\nSTYLE 0x4L | WS_CHILD\n&#123;\n PUSHBUTTON &quot;Another&quot;, 101, 35, 49, 50, 14\n&#125;\n\nTWO DIALOG 178, 88, 140, 142\nSTYLE 0x4L | WS_CHILD\n&#123;\n&#125;\n[/code:21rm8202]\n\nRegards\nPier Luigi','',0,'AIA=','21rm8202',1,0,'',20,0,0),(24551,5462,4,3,0,'90.11.82.238',1168159348,1,0,1,1,1,1,'','','Antonio\n\nAs pier Luigi said, the problem is the folder.\n\nWhen just windows, no problem.\n\nPlease advice when it is fixed,\n\nThanks and best regards\n\nRichard','',0,'AIA=','3z1ma35j',1,0,'',3,0,0),(24552,5533,6,72,0,'189.136.196.82',1168161296,1,0,1,1,1,0,'','','Bueno, yo diria que es lo mismo maecmx.\n\nEstoy hasta la m...! pasando mis 100,000 lineas de código para que funcionen con ADS en modo C/S.\n\nEn cuanto logre hacerlo funcionar compartiré las rutinas de control.\n\nGracias René por la idea pero esto me está costando un H..!','',0,'AIA=','kn0njzug',1,0,'',72,0,0),(24553,5462,4,2,0,'87.218.146.244',1168163391,1,0,1,1,1,1,'','','Richard, Pier,\n\nIn class TFolder please remove these two lines:\n[code:6ka2mixl]\n   if &#58;&#58;oWnd == WndMain&#40;&#41;  // THIS!\n      PostQuitMessage&#40; 0 &#41; // Keep this one !\n   endif // THIS!     \n[/code:6ka2mixl]','',0,'AIA=','6ka2mixl',1,0,'',2,0,0),(24554,5553,6,838,0,'80.59.225.15',1168164617,1,0,1,1,1,0,'','','Gracias Antonio\n\nJose Luis','',0,'AIA=','310eucxl',1,0,'',838,0,0),(24555,5462,4,3,0,'90.11.82.238',1168164858,1,0,1,1,1,1,'','','Antonio <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThanks \n\nit works ok now\n\nRichard','',0,'AIA=','kytr47sr',1,0,'',3,0,0),(24556,5558,3,286,0,'201.242.205.62',1168175751,1,0,1,1,1,1,'','Generic function to show an array and select one item','Hi guys\n\nIn the FW spanish forum I left a generic function to show an array and return the item number optionally\n\nAlthough other similar functions have been published, this one allows:\n\n  1. To show the full either partial array\n  2. To show the columns ordered by user criterion\n  3. Set columns header, size and justify\n  4. Set grid colors \n  5. To show browse in the chosen position and with provided dimensions\n  6. To make incremental search by anyone of the columns\n  7. To order in run time any column\n  8. To return the element selected position in the array when pressing ENTER or to make double click\n\nIn order to avoid the use of auxiliary functions I have based the work on codeblocks, this way can be but simple its implementation. The function must be called with the following parameters:\n\n[list:1gibbio8][b:1gibbio8][color=blue:1gibbio8]ShowTable( aTable, cTitle, aSize, aCoord, aCols, aCargo, bColor )[/color:1gibbio8][/b:1gibbio8][/list:u:1gibbio8]\ndonde:\n[list:1gibbio8][i:1gibbio8][color=blue:1gibbio8]aTable[/color:1gibbio8][/i:1gibbio8]= Array to process\n[i:1gibbio8][color=blue:1gibbio8]cTitle[/color:1gibbio8][/i:1gibbio8]   = Dialog title\n[i:1gibbio8][color=blue:1gibbio8]aSize[/color:1gibbio8][/i:1gibbio8]   = Browse size (in pixels)\n[i:1gibbio8][color=blue:1gibbio8]aCoord[/color:1gibbio8][/i:1gibbio8] = Dialog position\n[i:1gibbio8][color=blue:1gibbio8]aCols[/color:1gibbio8][/i:1gibbio8]   = Columns array. Each one with 5 parameters. Example:\n[list:1gibbio8]Position in the array(N)\nColumn Title (C)\nColumn Size (N)\nColumn Justify (N)\nColumn Picture (N)\nActive Column (L)  (To shadow the active column)[/list:u:1gibbio8][/list:u:1gibbio8]\nExample\n[code:1gibbio8]\n	aArray &#58;= &#123; \n	            &#123; &quot;Peter&quot;, &quot;Memphis&quot;, 5&#46;21 &#125;, ;\n	            &#123; &quot;Bob&quot;, &quot;N&#46;Y&#46;&quot;, 6&#46;1 &#125;,       ;\n	            &#123; &quot;Florida&quot;, 3&#46;5 &#125;,           ;\n	            &#123;  &quot;Alabama&quot;, 2&#46;5 &#125;           ;\n	          &#125;\n	nPos   &#58;= ShowTable&#40; aArray,                           ;\n		                 &quot;Pick a Salesman&quot;,                ;\n		                 &#123; 190, 115 &#125;,                     ;\n		                 &#123; 170, 16 &#125;,                      ;\n		                 &#123; &#123;  1, &quot;Name&quot;, 100, 0 &#125;,         ;\n		                   &#123;  3, &quot;Fee&quot;,  70, 0, \'99&#46;99\' &#125;, ;\n		                   &#123;  2, &quot;State&quot;,  70, 0 &#125;         ;\n			             &#125;  &#41;\n[/code:1gibbio8]\nthe function admits character, dates or numeric type elements and transform them for their correct visualization into browse. In case of numerical elements it is necessary to indicate the picture\n\nI want to indicate that the Selcolor function that appears in the ShowTable function its a generic function of odd / even painted rows and it can be omitted. It comes from some examples published in this forum\n\nI hope this work can be useful\n[code:1gibbio8]\n/*********************************************************************************************\n      ShowTable&#40;&#41;     &#58; Show an array and select one item optionally\n*********************************************************************************************/\nfunction ShowTable&#40; aTable, cTitle, aSize, aCoord, aCols, aCargo, bColor &#41;\n\n	local oDlg, oLbx, oSay, vSay, aData, n, m, oFont&#91;1&#93;, nRetVal &#58;= 0\n	local aColSize, aJustify, aRecord, aAction, nActiveCol &#58;= 0\n\n	default aCargo &#58;= &#123; 0 &#125;\n	bColor &#58;= if&#40; bColor = nil, &#123; || SelColor&#40; oLbx&#58;nAt, 2 &#41; &#125;, &amp;&#40; bColor &#41; &#41;\n\n	default aSize  &#58;= &#123; 160, 115 &#125;\n	default aCoord &#58;= &#123; oCfg&#58;nRow+85, oCfg&#58;nCol &#125;\n\n	if ValType&#40; aTable &#41; == &quot;A&quot;\n		define font oFont&#91;1&#93; name &quot;Tahoma&quot; size 0,-12\n		define dialog oDlg title cTitle font oFont&#91;1&#93;\n		oDlg&#58;lHelpIcon &#58;= &#46;F&#46;\n		\n		aData    &#58;= &#123;&#125;\n		aColSize &#58;= &#123;&#125;\n		aHeader  &#58;= &#123;&#125;\n		aJustify &#58;= &#123;&#125;\n		aAction  &#58;= &#123;&#125;\n		for n &#58;= 1 to Len&#40; aTable &#41;\n			aRecord &#58;= &#123;&#125;\n			for m &#58;= 1 to Len&#40; aCols &#41;\n				AADD&#40; aRecord, if&#40; ValType&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41; = &quot;D&quot;, DtoC&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41;,                  ;\n				               if&#40; ValType&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41; = &quot;N&quot;, Transform&#40; aTable&#91;n,aCols&#91;m,1&#93;&#93;, aCols&#91;m,5&#93; &#41;, ;\n				                   aTable&#91;n,aCols&#91;m,1&#93;&#93; &#41;&#41; &#41;\n				if n = 1\n					AADD&#40; aHeader,  aCols&#91;m,2&#93; &#41;\n					AADD&#40; aColSize, aCols&#91;m,3&#93; &#41;\n					AADD&#40; aJustify, aCols&#91;m,4&#93; &#41;\n					AADD&#40; aAction,  &#123; |Self, nRow, nCol| nLbxCol &#58;= oLbx&#58;nAtCol&#40;nCol&#41;,                                       ;\n					                                     if&#40; oLbx&#58;cargo&#91;1&#93; &lt;&gt; nLbxCol,                                       ;\n					                                         &#40; cSearch &#58;= &quot;&quot;, vSay &#58;= Space&#40;200&#41;, oSay&#58;Refresh&#40;&#41;,            ;\n					                                           aData &#58;= ASort&#40; aData,,, &#123; |x,y| x&#91;nLbxCol&#93; &lt; y&#91;nLbxCol&#93; &#125; &#41;, ;\n					                                           oLbx&#58;nColHPressed &#58;= nLbxCol, oLbx&#58;cargo&#91;1&#93; &#58;= nLbxCol,       ;\n					                                           oLbx&#58;Refresh&#40;&#41; &#41;,                                             ;\n					                                          nil &#41; &#125; &#41;\n					nActiveCol &#58;= if&#40; Len&#40;aCols&#91;m&#93;&#41; &gt;= 5 &#46;and&#46; aCols&#91;m,5&#93;, m, nActiveCol &#41;\n				endif\n			next\n			AADD&#40; aRecord, Str&#40;n,4&#41; &#41;\n			AADD&#40; aData, AClone&#40; aRecord &#41; &#41;\n		next\n		\n		// I add one column to the right to control the original order\n		AADD&#40; aHeader,  &quot;No&#46;&quot; &#41;\n		AADD&#40; aColSize, 10 &#41;\n		AADD&#40; aJustify, 1 &#41;\n		AADD&#40; aAction, &#123; nil &#125; &#41;\n		\n		vSay &#58;= &quot;&quot;\n		@ aSize&#91;2&#93;+3, 5 say oSay var vSay of oDlg size 100,12 pixel\n		\n		oLbx &#58;= TWBrowse&#40;&#41;&#58;New&#40; 0, 0, aSize&#91;1&#93;, aSize&#91;2&#93;,,,,,,,,,,,,,,,,,,&#46;t&#46;,,,,, &#41;\n		LbxConfig&#40; oLbx &#41;\n		oLbx&#58;SetArray&#40; aData &#41;\n		oLbx&#58;bLine &#58;= &#123; |nAt| nAt &#58;= oLbx&#58;nAt,                              ;\n		                      if&#40; Len&#40; aData &#41; &lt; 1 &#46;or&#46; nAt &gt; Len&#40; aData &#41;, ;\n			                      Array&#40;6&#41;,                                 ;\n				                  aData&#91;nAt&#93; &#41; &#125;\n		oLbx&#58;aHeaders       &#58;= aHeader\n		oLbx&#58;aColSizes      &#58;= aColSize\n		oLbx&#58;aJustify       &#58;= aJustify\n		oLbx&#58;aActions       &#58;= aAction\n		oLbx&#58;bUpdateBuffer  &#58;= &#123; || oLbx&#58;cBuffer &#58;= Upper&#40;oLbx&#58;cBuffer&#41;,                                                       ;\n		                            vSay &#58;= if&#40; Len&#40;oLbx&#58;cBuffer&#41; &gt; 0, PadR&#40; &quot;Buscando&#58; &quot; + oLbx&#58;cBuffer, 200 &#41;, Space&#40;200&#41; &#41;, ;\n		                            oSay&#58;Refresh&#40;&#41;                                                                             ;\n		                       &#125;\n		oLbx&#58;bSeek          &#58;= &#123; || if&#40; oLbx&#58;cargo&#91;1&#93; = 0,                                                                      ;\n		                                MsgStop&#40; \'Haga clic en el titulo de la columna\' + CRLF +                                ;\n		                                         \'por la que desea buscar\', \'Atención\' &#41;,                                       ;\n		                                &#40; cSearch &#58;= Upper&#40; oLbx&#58;cBuffer &#41;,                                                     ;\n		                                  nLen &#58;= Len&#40; cSearch &#41;,                                                               ;\n		                                  vSay &#58;= if&#40; Len&#40;cSearch&#41; &gt; 0, PadR&#40; &quot;Buscando&#58; &quot; + cSearch, 200 &#41;, Space&#40;200&#41; &#41;,      ;\n		                                  oSay&#58;Refresh&#40;&#41;,                                                                       ;\n		                                  nCol &#58;= oLbx&#58;cargo&#91;1&#93;,                                                                ;\n		                                  if&#40; nLen &gt; 0,                                                                         ;\n		                                      &#40; nAt &#58;= AScan&#40; aData, &#123; |x,y| Upper&#40; SubStr&#40; x&#91;nCol&#93;, 1, nLen &#41;&#41; == cSearch &#125; &#41;, ;\n		                                        if&#40; nAt &gt; 0,                                                                    ;\n		                                            &#40; oLbx&#58;nAt &#58;= nAt,                                                          ;\n		                                              if&#40; oLbx&#58;oVScroll != nil,  oLbx&#58;oVScroll&#58;SetPos&#40;nAt&#41;, nil &#41;,              ;\n		                                              oLbx&#58;Refresh&#40;&#41; &#41;,                                                         ;\n		                                            nil &#41;&#41;,                                                                     ;\n		                                      nil &#41;&#41; &#41; &#125;\n		oLbx&#58;nBuffer        &#58;= 10\n		oLbx&#58;lAutoEdit      &#58;= &#46;f&#46;\n		oLbx&#58;lAutoSkip      &#58;= &#46;f&#46;\n		oLbx&#58;lAdjLastCol    &#58;= &#46;t&#46;\n		oLbx&#58;cargo          &#58;= &#123; nActiveCol &#125;\n		oLbx&#58;nHeaderHeight  &#58;= 18\n		oLbx&#58;nLineStyle     &#58;= 1\n		oLbx&#58;nClrLine       &#58;= nRGB&#40; 200, 200, 215 &#41;\n		oLbx&#58;lDrawFocusRect &#58;= &#46;f&#46;\n		oLbx&#58;nClrPane       &#58;= bColor\n		oLbx&#58;nClrLine       &#58;= nRGB&#40; 200, 200, 215 &#41;\n		oLbx&#58;nClrBackHead   &#58;= nRGB&#40; 215, 215, 215 &#41;\n		oLbx&#58;nClrForeHead   &#58;= nRGB&#40;   0,   0,   0 &#41;\n		oLbx&#58;nClrForeFocus  &#58;= nRGB&#40; 255, 255, 255 &#41;\n		oLbx&#58;nClrBackFocus  &#58;= nRGB&#40;   0,   0,   0 &#41;\n		oLbx&#58;nClrNFFore     &#58;= nRGB&#40;   0,   0,   0 &#41;\n		oLbx&#58;nClrNFBack     &#58;= nRGB&#40; 180, 180, 180 &#41;\n		oLbx&#58;bBkColor       &#58;= &#123; |nRow,nCol,nStyle| if&#40; nCol = oLbx&#58;cargo&#91;1&#93; &#46;and&#46; &#40; nStyle = 0 &#46;or&#46; nStyle = 1 &#41;, ;\n		                                                oCfg&#58;aLbxColors&#91;2&#93;,                                        ;\n		                                                nil &#41; &#125;\n		\n		oLbx&#58;bKeyDown       &#58;= &#123; | nKey | if&#40; nKey == VK_RETURN,                               ;\n		                                      &#40;  nAt     &#58;= oLbx&#58;nAt,                          ;\n		                                         nRetVal &#58;= Val&#40; aData&#91;nAt,Len&#40;aData&#91;nAt&#93;&#41;&#93; &#41;, ;\n		                                         oDlg&#58;End&#40;&#41; &#41;,                                 ;\n		                                      nil &#41; &#125;\n		\n		oLbx&#58;bLDblClick     &#58;= &#123; | nKey | nRetVal &#58;= oLbx&#58;nAt, oDlg&#58;End&#40;&#41; &#125;\n\n		activate dialog oDlg on init &#40; oDlg&#58;SetSize&#40; oLbx&#58;nWidth+8, oLbx&#58;nHeight+60 &#41;, ;\n									   oDlg&#58;Move&#40; aCoord&#91;1&#93;,aCoord&#91;2&#93;&#41;,                ;\n									   oDlg&#58;Update&#40;&#41; &#41;\n		AEval&#40; oFont, &#123;|o| o&#58;End&#40;&#41; &#125; &#41;\n	endif\n\nreturn nRetVal\n[/code:1gibbio8]\n[code:1gibbio8] ===================================================================================================\n//         SelColor&#40;&#41;  &#58; Configura las filas del grid en bi-color\n// ===================================================================================================\nfunction SelColor&#40; nVal, nColor, cAlias, cColor &#41; \n    local nClr, nIndex\n\n    if cAlias &lt;&gt; nil\n        if !Empty&#40; &#40;cAlias&#41;-&gt;&#40; OrdBagName&#40;&#41; &#41; &#41;\n			nIndex &#58;= &#40;cAlias&#41;-&gt;&#40; OrdKeyNo&#40;&#41; &#41; % 2\n        else\n            nIndex &#58;= &#40;cAlias&#41;-&gt;&#40; RecNo&#40;&#41; &#41; % 2\n        endif\n    else\n        nIndex &#58;= if&#40; nVal == nil, 0, nVal % 2 &#41;\n    endif\n\n    if nIndex = 0\n        do case\n        case nColor == 1\n            nClr &#58;= oCfg&#58;aLbxColors&#91;1&#93;\n        case ncolor == 2\n            nClr &#58;= oCfg&#58;aLbxColors&#91;2&#93;\n        case nColor == 3\n            nClr &#58;= RGB&#40;238,238,238&#41;               //   RGB&#40; 163, 202, 197 &#41;\n        case nColor == 4\n            nClr &#58;= RGB&#40; 160, 160, 128 &#41;\n        case nColor == 5\n            nClr &#58;= RGB&#40; 245, 235, 195 &#41;\n        case nColor == 0\n            nClr &#58;= ColorName&#40; AllTrim&#40; cColor &#41;&#41;\n        endcase\n    else \n        nClr &#58;= CLR_WHITE\n    endif \n\nreturn nClr \n[/code:1gibbio8]','',0,'YsA=','1gibbio8',1,0,'',286,0,0),(24557,5547,1,47,0,'203.144.143.2',1168183383,1,0,1,1,1,0,'','','Dear James,\n\nThanks for your compliment.  I think about it as all of your recommendation.\n\nBest regards,\nDutch','',0,'YsA=','2kmofzei',1,0,'',47,0,0),(24558,5559,19,384,0,'201.27.192.16',1168187851,1,0,1,1,1,1,'','Novidades - toyanet - Projeto tuareg','Novidades no [b:14qf9i9v][color=orange:14qf9i9v]Projeto tuareg[/color:14qf9i9v][/b:14qf9i9v]\n* WxWeb\n* Novo demo de utilização do Activex ( Google Map API )\n<!-- m --><a class=\"postlink\" href=\"http://www.toyanet.com.br\">http://www.toyanet.com.br</a><!-- m -->\n\nNew features in the  [b:14qf9i9v][color=orange:14qf9i9v]Projeto tuareg[/color:14qf9i9v][/b:14qf9i9v]\n* WxWeb \n* New demon of use of the Activex (Google Map API)\n<!-- m --><a class=\"postlink\" href=\"http://www.toyanet.com.br\">http://www.toyanet.com.br</a><!-- m -->\n\n	\nNuevas características en el  [b:14qf9i9v][color=orange:14qf9i9v]Projeto tuareg[/color:14qf9i9v][/b:14qf9i9v]\n* WxWeb \n* Nuevo demonio del uso del Activex (Google Map API) \n<!-- m --><a class=\"postlink\" href=\"http://www.toyanet.com.br\">http://www.toyanet.com.br</a><!-- m -->','',0,'Qg==','14qf9i9v',1,0,'',384,0,0),(24559,5462,4,20,0,'87.6.211.10',1168188661,1,0,1,1,1,0,'','','Antonio,\n\nnow work fine  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards.\nPier Luigi','',0,'Qg==','miig1jce',1,0,'',20,0,0),(24560,5533,6,54,0,'189.132.104.230',1168191643,1,0,1,1,1,1,'','','[quote=&quot;Alfredo Arteaga&quot;:1bybx20d]Bueno, yo diria que es lo mismo maecmx.\n\nEstoy hasta la m...! pasando mis 100,000 lineas de código para que funcionen con ADS en modo C/S.\n\nEn cuanto logre hacerlo funcionar compartiré las rutinas de control.\n\nGracias René por la idea pero esto me está costando un H..![/quote:1bybx20d]\n\nAnimo!!!!!!!!\n\nHay mas tiempo que vida.\n\nSaludos','',0,'gA==','1bybx20d',1,0,'',54,0,0),(24561,5533,6,72,0,'189.136.196.82',1168194780,1,0,1,1,1,0,'','','Gracias por el ánimo Willy.\n\nParece que la desvelada valió la pena, ya trabajan mis rutinas de apertura y cierre, solo me queda sustituir todas las llamadas y verificar que esto trabaje normalmente. Lo someteré a prueba en una semana más.\n\nYa te comentaré, saludos.','',0,'gA==','1wd4t6cc',1,0,'',72,0,0),(24562,5533,6,73,0,'201.132.229.147',1168197149,1,0,1,1,1,0,'','','adelante !! alfredo, las desveladas son caras, pero resulta que es cuando mejor nos funciona el cerebro a los programadores, al menos en lo propio por la madrugada resuelvo muchos de mis problemas complejos, saludos y suerte !!\npaco','',0,'gA==','32p6huzs',1,0,'',73,0,0),(24563,5547,1,9,0,'85.54.226.99',1168197883,1,0,1,1,1,1,'','','Dutch,\n\nCan you contact with me by email?','',0,'gA==','ksxjm3jy',1,0,'',9,0,0),(24564,5556,6,9,0,'85.54.226.99',1168198234,1,0,1,1,1,1,'','','Mira si te sirve lo siguiente:\n\nPRNSetSize (nAncho, nAlto)','',0,'gA==','1zn12q77',1,0,'',9,0,0),(24565,5560,20,8,0,'213.45.250.174',1168199994,1,0,1,1,1,0,'','Nome variabile da oggetto GET','Saluti e Buon Anno a Tutti !\nCome faccio a risalire al nome della variabile associata ad un oggetto GET ?','',0,'gA==','35un9ndk',1,0,'',8,0,0),(24566,5561,6,694,0,'200.138.82.249',1168205075,1,0,1,1,1,1,'','classe treport HELP-ME','Amigos, estou com o seguinte problema: Utilizo a classe treport, acontece que tenho instalada uma hp 1410, configurei todos os relatórios em cima desta impressora, porém, acontece que ao instalar uma outra impressora, tipo uma HP + antiga ou uma Epson Lx 300, a configuração que eu tinha realizado nos meus PRGS não confere mais, fica fora de alinhamento. ufa, consegui explicar?\n\nAlguem pode me indicar alguma ferramenta para relatórios que não aconteça isso?\n\nFiquem com Deus\nAOKISANTOS','',0,'gA==','1145hkf4',1,0,'',694,0,0),(24567,5552,6,397,0,'201.27.67.91',1168206183,1,0,1,0,1,1,'','','Amigos\n\nUn año bisiexto tiene 366 dias e para saber se lo mismo és bisexto basta dividir por 400 ex:\n\n[code]\nif MOD( nAno / 400 ) &lt;&gt; 0\n   ? \"Año es Bisiexto.\"\nendif\n[code]\n\n2000 / 400 es 5.00 \n2001 / 400 es 5.00\n2002 / 400 es 5.01 - este es bisiexto\n2003 / 400 es 5.00\n\nPortanto la rutina deve verificar cada año e somar mais un dia.','',0,'','1ftui8a7',1,0,'',397,0,0),(24568,5560,20,6,0,'82.58.168.210',1168212796,1,0,1,1,1,1,'','Re: Nome variabile da oggetto GET','Devi assegnarla tu alla variabile oGet:cVarName. Questa assegnazione non viene fatta automaticamente.\n\nEMG','',0,'','1kttkvp6',1,0,'',6,0,0),(24569,5550,3,19,0,'217.153.83.2',1168252509,1,0,1,1,1,0,'','','Antonio\nas usualy Your help is great and every button reports now its id number.\nBut what i have to do to display this number as cTooltip (it display id=0)?\nregards Eugeniusz.','',0,'','19ms8db3',1,0,'',19,0,0),(24570,5550,3,2,0,'87.218.146.32',1168257097,1,0,1,1,1,1,'','','Eugeniusz,\n\nDo you mean this ? In your loop:\n[code:2vtzqusu]\n       oBtn1&#58;=tBtnBmp&#40;&#41;&#58;Redefine&#40;&#40;nM*1000&#41;+nD,,,,,,&#123;|| msgInfo&#40;KardSay&#40;focused_button_id&#41;&#41;&#125;,oDlg,,,,KardSay&#40;focused_button_id&#41;,str&#40;nD,2&#41;+&quot;&#58;&quot;+aTab&#91;dow&#40;dDay&#41;&#93;,oFont&#41; \n       oBtn1&#58;SetColor&#40;aKolor&#91;1&#93;,aKolor&#91;2&#93;&#41; \n       oBtn1&#58;cToolTip &#58;= Str&#40; oBtn1&#58;nId &#41;\n[/code:2vtzqusu]','',0,'AIA=','2vtzqusu',1,0,'',2,0,0),(24571,5550,3,19,0,'217.153.83.2',1168257907,1,0,1,1,1,0,'','','Yes - second KardSay()\nEugeniusz','',0,'AIA=','11f6gnin',1,0,'',19,0,0),(24572,5550,3,2,0,'87.218.146.32',1168258605,1,0,1,1,1,1,'','','Eugeniusz,\n\noBtn1:cToolTip := Str( oBtn1:nId )\n\nIs it ok ?','',0,'AIA=','wc283fe5',1,0,'',2,0,0),(24573,5550,3,19,0,'217.153.83.2',1168259060,1,0,1,1,1,0,'','','Antonio,\n\nYes, it works - it\'s to simple .\nThank You.\nEugeniusz','',0,'AIA=','290cff0u',1,0,'',19,0,0),(24574,5552,6,336,0,'213.97.245.163',1168259550,1,0,0,1,1,0,'','','Los años bisiestos son todos aquellos múltiplos de 4, no multiplos de 100 salvo los multiplos de 400 (el 2000 es bisiesto)\n\nCarlos','',0,'AIA=','3atbxqsm',1,0,'',336,0,0),(24575,5534,6,336,0,'213.97.245.163',1168259797,1,0,0,1,1,0,'','','Ale,\n\ncuidado con el firewall de windows. Asegúrate de que tu aplicacion está dentro de las excepciones, sino lo bloqueará y te dejará en nil la conexión.\n\nCarlos','',0,'AIA=','2os9j3z9',1,0,'',336,0,0),(24576,5539,3,309,0,'194.204.28.27',1168259850,1,0,1,1,1,0,'','Re: The instruction at &quot;0x0044ab7b referenced memory at','[quote=&quot;EnricoMaria&quot;:372p7ms2][code:372p7ms2]local oBar,x&#58;=0//\'\'[/code:372p7ms2]\n\nEMG[/quote:372p7ms2]\n\nHi,\n   this was intentional, to generate runtime error...\n\nCan You also see second screen with memory error?\n\nTaavi.','',0,'gIA=','372p7ms2',1,0,'',309,0,0),(24577,5552,6,264,0,'200.91.3.10',1168260776,1,0,1,1,1,1,'','','Un buen chiste referido a lo mismo dice....\n\nJuan pregunta a Paco... cuanto es 2 x 3..... ?\nPaco apresuradamente responde, 5 !!\nPero Paco, señala Juan, 2 x 3 es 6.....\ny Paco responde... \"y que querias, rapidez o exactitud ?\"\n\nSolo respondi a una inquietud de \"saber como sumar dias a una fecha\".\nPara hacer exactamente lo que solicita es necesario contar dias exactos, la idea es saber cuantos dias tiene cada mes y eso es facil ( con un truco claro está ).\nTe ubicas en el primer dia del mes siguiente y restas 1 y tienes el ultimo dia del mes anterior y asi vas sumando hasta el mes que requieres.... eso es todo.\nUna vez obtenida la suma de dias, se agrega a la fecha actual y listo el bote !!\n\nSaludos\n\n(Espero ser claro, de lo contrario tendria que escribir la rutina, de todas formas me avisas )','',0,'gIA=','3tjtxvd9',1,0,'',264,0,0),(24578,5562,3,309,0,'194.204.28.27',1168260797,1,0,1,1,1,0,'','tsay:settext() change in latest build?','Hi,\n  we found that in FWH  2006.12 build line \" ::VarPut( ::cCaption )\"  has been added to the  tsay:settext() method, which causes tsay:bget codeblock to be overwritten with static text and a little misbehavior in our application. Removing this line fixed display problems for us.\n\nWhat was the reason for this change?\n\nTaavi.','',0,'gIA=','3ejgs9pl',1,0,'',309,0,0),(24579,5563,6,36,0,'200.113.56.235',1168261063,1,0,1,1,1,0,'','2 Diccionario de datos ( ADS )','Buenos Días a todos\n\nUna consulta\n\nTengo dos diccionario de datos abiertos, pero mi consulta es como puedo cambiarme de diccionario, ya que en los dos diccionario hay una tabla \"clientes\", como lo digo que abra clientes del diccionario 2?\n\nSaludos\nPatricio','',0,'gIA=','7lj9wasp',1,0,'',36,0,0),(24580,5564,3,904,0,'198.54.202.226',1168261984,1,0,1,1,1,1,'','Update Browse from other database','Please have a look at this sample code.\n\nI want the \"orders\" TAB to only show the orders for the selected customer\n\nI have tried many things with no luck. I am not sure what approach to take.\nFiltering is too slow.\nORDSCOPE ?  DBSETRELATION? \nWhere in the code do I set this?\n\nThanks.\n\n\n[code:1xckvdjr]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\nstatic oDlg\nSTATIC oDBF_CLIENTS\nSTATIC oDBF_ORDERS\nREQUEST DBFCDX\n\nPROCEDURE main&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;TEST FOLDER&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   ACTIVATE wINDOW oWnd MAXIMIZED\nreturn\n\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n   MENUITEM &quot;Run&quot; ACTION MyFolder&#40;&#41;\n   MENUITEM &quot;Exit&quot; ACTION oWnd&#58;End&#40;&#41;\n   ENDMENU\n\nreturn oMenu\n\nfunction MyFolder&#40;&#41;\n\n   local oDlg1, oDlg2, oFld\n\n   LOCAL oBtn1,oBtn2\n\n   create_data&#40;&#41;\n\n   DBSELECTAREA&#40;&quot;ORDERS&quot;&#41;\n   DATABASE oDBF_ORDERS\n   oDBF_ORDERS&#58;bEoF = nil\n   oDBF_ORDERS&#58;Gotop&#40;&#41;\n   oDBF_ORDERS&#58;Load&#40;&#41;\n\n   DBSELECTAREA&#40;&quot;CLIENTS&quot;&#41;\n   DATABASE oDBF_CLIENTS\n   oDBF_CLIENTS&#58;bEoF = nil\n   oDBF_CLIENTS&#58;Gotop&#40;&#41;\n   oDBF_CLIENTS&#58;Load&#40;&#41;\n\n   DEFINE DIALOG oDlg of oWnd SIZE 500,300\n   @ 0,1 BUTTON oBtn1 PROMPT &quot;PREV&quot; OF oDlg ACTION SKIPREC&#40;-1&#41;\n   @ 0,15 BUTTON oBtn2 PROMPT &quot;NEXT&quot; OF oDlg ACTION SKIPREC&#40;1&#41;\n\n   @ 1,1 FOLDER oFld  OF oDlg ;\n      PROMPTS &quot;Client Info&quot;, &quot;Orders&quot;;\n      DIALOGS &quot;oDlg1&quot;, &quot;oDlg2&quot; ;\n      SIZE 400,200\n\n   @ 1,1 GET oDBF_CLIENTS&#58;NUMBER OF oFld&#58;aDialogs&#91; 1 &#93; UPDATE WHEN &#46;F&#46;\n   @ 1,5 GET oDBF_CLIENTS&#58;COMPANY OF oFld&#58;aDialogs&#91; 1 &#93; UPDATE\n\n   @ 1,1 LISTBOX FIELDS ALIAS &quot;ORDERS&quot; of oFld&#58;aDialogs&#91; 2 &#93; UPDATE\n\n   ACTIVATE DIALOG oDlg  VALID &#40;DBCLOSEALL&#40;&#41;,&#46;T&#46;&#41;\n\nreturn nil\n\nSTATIC PROCEDURE SKIPREC&#40;nRECS&#41;\n   oDBF_CLIENTS&#58;SKIP&#40;nRECS&#41;\n   IF oDBF_CLIENTS&#58;Eof&#40;&#41;\n      oDBF_CLIENTS&#58;GoBottom&#40;&#41;\n   ENDIF\n   IF oDBF_CLIENTS&#58;Bof&#40;&#41;\n      oDBF_CLIENTS&#58;GoTop&#40;&#41;\n   ENDIF\n   oDlg&#58;Update&#40;&#41;\nRETURN\n\n\n\nSTATIC PROCEDURE create_data&#40;&#41;\n   RddSetDefault&#40; &quot;DBFCDX&quot; &#41;\n\n   DBCREATE&#40;\'CLIENTS&#46;DBF\',&#123;&#123;&quot;NUMBER&quot;,    &quot;C&quot;, 3, 0&#125;,&#123;&quot;COMPANY&quot;,     &quot;C&quot;, 30, 0&#125;&#125; &#41;\n   USE CLIENTS ALIAS CLIENTS EXCLUSIVE NEW\n   APPEND BLANK\n   CLIENTS-&gt;NUMBER&#58;=\'002\'\n   CLIENTS-&gt;COMPANY&#58;=\'DEF\'\n   APPEND BLANK\n   CLIENTS-&gt;NUMBER&#58;=\'001\'\n   CLIENTS-&gt;COMPANY&#58;=\'ABC\'\n   APPEND BLANK\n   CLIENTS-&gt;NUMBER&#58;=\'003\'\n   CLIENTS-&gt;COMPANY&#58;=\'GHI\'\n   APPEND BLANK\n   CLIENTS-&gt;NUMBER&#58;=\'004\'\n   CLIENTS-&gt;COMPANY&#58;=\'JKL\'\n   INDEX ON CLIENTS-&gt;COMPANY TAG &quot;COMPANY&quot;\n\n   DBCREATE&#40;\'ORDERS&#46;DBF\',&#123;&#123;&quot;NUMBER&quot;,    &quot;C&quot;, 3, 0&#125;,&#123;&quot;GOODS&quot;,     &quot;C&quot;, 30, 0&#125;&#125; &#41;\n   USE ORDERS ALIAS ORDERS EXCLUSIVE NEW\n   APPEND BLANK\n   ORDERS-&gt;NUMBER&#58;=\'002\'\n   ORDERS-&gt;GOODS&#58;=\'DEF ITEM 1\'\n   APPEND BLANK\n   ORDERS-&gt;NUMBER&#58;=\'001\'\n   ORDERS-&gt;GOODS&#58;=\'ABC ITEM 1\'\n   APPEND BLANK\n   ORDERS-&gt;NUMBER&#58;=\'003\'\n   ORDERS-&gt;GOODS&#58;=\'GHI ITEM 1\'\n   APPEND BLANK\n   ORDERS-&gt;NUMBER&#58;=\'002\'\n   ORDERS-&gt;GOODS&#58;=\'DEF ITEM 2\'\n   APPEND BLANK\n   ORDERS-&gt;NUMBER&#58;=\'002\'\n   ORDERS-&gt;GOODS&#58;=\'DEF ITEM 3\'\n   APPEND BLANK\n   ORDERS-&gt;NUMBER&#58;=\'003\'\n   ORDERS-&gt;GOODS&#58;=\'GHI ITEM 2\'\n   INDEX ON ORDERS-&gt;NUMBER TAG &quot;NUMBER&quot;\n   RETURN\n[/code:1xckvdjr]','',0,'AIA=','1xckvdjr',1,0,'',904,0,0),(24581,5565,2,812,0,'200.83.125.55',1168262497,1,0,1,1,1,0,'','Problemas al Imprimir','Hola Amigos:\n\nDebido a los muchos problemas que he tenido para centrar columnas numerias en reportes, me han aconsejado que use la clase CMSAY(), pero hoy ya tengo una mezcla y necesito clarificar, lo siguente:\n\nPara Usar  CMSAY(), que *.ch y  debo incluir en mi *.prg y que *.obj pertenecientes a Fivewin en el Link.\n\nPor su ayuda, muchas gracias.\n\nMiguel Rivera.','',0,'AIA=','sn9cwh75',1,0,'',812,0,0),(24582,5566,3,904,0,'196.25.255.246',1168266284,1,0,1,1,1,1,'','BROWSE() in testtcbr.prg','In testtcbr.prg in the fwh\\samples folder, it calls the function BROWSE()\n\nThe MODIFY, DELETE and PRINT buttons work, and I can\'t see what functions are called.\n\nWhen I put BROWSE() in my app, none of the buttons do anything.\n\nWhy?','',0,'AIA=','hdk66pb7',1,0,'',904,0,0),(24583,5567,6,185,0,'200.87.81.30',1168268743,1,0,1,1,1,0,'','Menus tipo office 2003 y XP','Aqui les dejo las fuentes para crear menus tipo office 2003 y Xp, basado en las fuentes originales de Fivewin\n\nPueden descargar de <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->\n\nFelices fiestas\n\nSaludos\n\nArturo Tamayo Daza\n\n[img:3ktm2bfg]http&#58;//www&#46;quark-costos&#46;com/downloads/menus&#46;jpg[/img:3ktm2bfg]','',0,'CA==','3ktm2bfg',1,0,'',185,0,0),(24584,5568,3,185,0,'200.87.81.30',1168268904,1,0,1,1,1,0,'','Menus style office 2003 y xp','Aqui les dejo las fuentes para crear menus tipo office 2003 y Xp, basado en las fuentes originales de Fivewin\n\nPueden descargar de <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->\n\nFelices fiestas\n\nSaludos\n\nArturo Tamayo Daza\n\n[img:2yf6ays3]http&#58;//www&#46;quark-costos&#46;com/downloads/menus&#46;jpg[/img:2yf6ays3]','',0,'CA==','2yf6ays3',1,0,'',185,0,0),(24585,5569,17,185,0,'200.87.81.30',1168268957,1,0,1,1,1,0,'','Menus style office 2003 y xp','Aqui les dejo las fuentes para crear menus tipo office 2003 y Xp, basado en las fuentes originales de Fivewin\n\nPueden descargar de <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->\n\nFelices fiestas\n\nSaludos\n\nArturo Tamayo Daza\n\n[img:22nml1br]http&#58;//www&#46;quark-costos&#46;com/downloads/menus&#46;jpg[/img:22nml1br]','',0,'CA==','22nml1br',1,0,'',185,0,0),(24586,5565,2,774,0,'200.72.74.57',1168269379,1,0,1,1,1,1,'','','CMSAY no es una clase\n\npara usarlo se hace igual q con el metodo SAY\n\nsolo debes cambiar SAY por CMSAY en tu programa y YAAAA','',0,'CA==','17cuyhn2',1,0,'',774,0,0),(24587,5570,6,362,0,'200.168.52.156',1168269993,1,0,1,1,1,1,'','Como Deshabilitar la Barra de Tarea','Como hacer para deshabilitar la barra de tarea??\n\n\n   DEFINE BUTTON OF oBar  PROMPT \"Disabilita Barra \" FONT oFnt         ;\n          ACTION ( EnableWindow( FindWindowEx( FindWindow              ;\n                 ( \'Shell_TrayWnd\', Nil), 0, \'Button\', Nil ), .F. ) )\n//\n   DEFINE BUTTON OF oBar  PROMPT \"Habilita Barra \" FONT oFnt           ;\n          ACTION ( EnableWindow( FindWindowEx( FindWindow              ;\n                 ( \'Shell_TrayWnd\', Nil ), 0, \'Button\', Nil ), .T.  ) )\n\n\n//\n#Define SW_HIDE 0 // &amp;H0 \n#Define SW_SHOWNA 8 // &amp;H8 \n#Define SW_SHOW 5 // &amp;H5 \n\n// \"Exhibir la barra de tareas\" \nShowWindow(FindWindow( \'Shell_TrayWnd\',Nil), SW_SHOWNA ) \n\n// \"Esconder la barra de tareas\" \nShowWindow(FindWindow( \'Shell_TrayWnd\',Nil), SW_HIDE )\n\nEsto no sirve...','',0,'CA==','2ncuhjbt',1,0,'',362,0,0),(24588,5515,2,812,0,'200.83.125.55',1168270098,1,0,1,1,1,0,'','','Hola:\n\nTu me aconsejas usar CMSAY(), pero hoy ya tengo una mezcla y necesito clarificar, lo siguente: \n\nPara Usar CMSAY(), que *.ch y debo incluir en mi *.prg y que *.obj pertenecientes a Fivewin en el Link. \n\n\nSaludos,\n\nMiguel Rivera\n\n[quote=&quot;A&amp;C&quot;:2duzewo9]Usa\n\noPrn:cmsay\n\nen vez de \n\noPrn:say[/quote:2duzewo9]','',0,'gA==','2duzewo9',1,0,'',812,0,0),(24589,5565,2,812,0,'200.83.125.55',1168270217,1,0,1,1,1,0,'','','Muchas gracias amigo, lo pruebo y te cuento\n\nSaludos,\n\nMiguel Rivera.\n\n\n\n[quote=&quot;A&amp;C&quot;:jtg5xbej]CMSAY no es una clase\n\npara usarlo se hace igual q con el metodo SAY\n\nsolo debes cambiar SAY por CMSAY en tu programa y YAAAA[/quote:jtg5xbej]','',0,'gA==','jtg5xbej',1,0,'',812,0,0),(24590,5563,6,36,0,'164.77.81.210',1168271879,1,0,1,1,1,0,'','','Resuelto...\n\n\n[code:2o0d0p97]if AdsConnect60&#40; cServidor, nConeccion, cUsuario, cPass,, @hConnection &#41;\n	if !AdsConnect60&#40; cServidor, nConeccion, cUsuario, cPass,, @hConnection2 &#41;\n		return&#40; &#46;f&#46; &#41;\n	endif\nelse\n	return&#40; &#46;f&#46; &#41;\nendif\n\nAdsConnect&#40; hConnection &#41;\n\nuse &#46;&#46;&#46;\n&#46;&#46;&#46;\n\nAdsConnect&#40; hConnection2&#41;\n\nuse&#46;&#46;\n&#46;&#46;&#46;\n[/code:2o0d0p97]\nEspero que alguien le sirva\n\nSaludos\nPatricio','',0,'AIA=','2o0d0p97',1,0,'',36,0,0),(24592,5560,20,8,0,'213.45.245.183',1168274693,1,0,1,1,1,0,'','','Ok, Grazie !','',0,'AIA=','25aftos8',1,0,'',8,0,0),(24593,5568,3,15,0,'203.73.12.168',1168274843,1,0,1,1,1,0,'','','Hello Arturo,\n\nVery nice. Power tools.\n\nRichard','',0,'AIA=','22noqfm2',1,0,'',15,0,0),(24594,5546,4,224,0,'162.83.94.176',1168275508,1,0,1,1,1,1,'','','Pawel and Antonio thank you for the hints. \n\nAntonio, is there a reference on the wrappers, for help on things like hb_parn--() ?','',0,'AIA=','3c7vywsc',1,0,'',224,0,0),(24595,5572,4,224,0,'162.83.94.176',1168275638,1,0,1,1,1,1,'','RegSetValue()','It seems the function only stores STRING values? How can I store DWORD and BINARY values to the PPC registry?\n\nThanks.','',0,'AIA=','2mdu32qy',1,0,'',224,0,0),(24596,5546,4,2,0,'87.218.146.35',1168277855,1,0,1,1,1,1,'','','Bill,\n\nHarbour \"extend system\" is fully compatible with Clipper, so you can check a Clipper manual like this one:\n<!-- m --><a class=\"postlink\" href=\"http://www.ousob.com/ng/cltech/ng242.php\">http://www.ousob.com/ng/cltech/ng242.php</a><!-- m -->','',0,'AIA=','4eylytem',1,0,'',2,0,0),(24597,5572,4,2,0,'87.218.146.35',1168278304,1,0,1,1,1,1,'','','Bill,\n\nWe are going to modify RegSetValue(), thanks','',0,'AIA=','kmg4gpjz',1,0,'',2,0,0),(24598,5564,3,303,0,'72.199.41.171',1168278513,1,0,1,1,1,0,'','','You are going to have to have a \"CUSTNO\" field in the orders file. Note that I would not use the fieldname \"NUMBER\" in the customer file (or the order file), use something specific to the file, such as CUSTNO and ORDNO. Now you can have both ORDNO and CUSTNO fields in the ORDER.DBF file.\n\nOK, index the orders file on CUSTNO. Then when the user selects a customer from the customer file, set the scope of the orders file to match.\n\n(oOrders:cAlias)-&gt;(setScope(0, oCusts:custno))\n(oOrders:cAlias)-&gt;(setScope(1, oCusts:custno))\noOrders:gotop()\n\nJames','',0,'AIA=','fkwxmx0y',1,0,'',303,0,0),(24599,5572,4,224,0,'162.83.94.176',1168279039,1,0,1,1,1,1,'','','Very good, thanks!','',0,'AIA=','3hbi6k71',1,0,'',224,0,0),(24600,5552,6,362,0,'200.168.52.156',1168280999,1,0,1,1,1,1,'','','Gracias a todos Ustedes.\n\nResuelto, marabillosamente Bién!\n\nRegards, saludos.','',0,'AIA=','nks83b0f',1,0,'',362,0,0),(24601,4623,7,274,0,'201.27.229.12',1168281530,1,0,1,1,1,0,'','persiste o erro ao abrir documento com o I.Explorer','Salve!\n\nFiz inumeras tentativas, mas não consegui resolver esse problema.\nA página web é criada perfeitamente pelo aplicativo, salva no local correto.\nQuando ShellExecute chama o IExplorer, passa \"file://\" junto com o nome do arquivo criado, então o IExplorer não abre.\n[img:2027tqma]http&#58;//softservice&#46;com/tmp/erro1&#46;jpg[/img:2027tqma]\n\nAlguém tentou abrir uma página web criada no pocket?\n\n\nEste erro impede-nos de lançar o sistema no mercado  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[]\'s\n\nRogerio','',0,'CA==','2027tqma',1,0,'',274,0,0),(24602,5564,3,904,0,'196.25.255.210',1168286744,1,0,1,1,1,1,'','','Thanks, I didn\'t realise I had to specify an end to the scope (I thought it would stop when it detects a change in the index key.)\n\n\nI added :\n\n   (oDBF_Orders:cAlias)-&gt;(OrdScope(0, oDBF_CLIENTS:NUMBER))\n   (oDBF_Orders:cAlias)-&gt;(OrdScope(1, oDBF_CLIENTS:NUMBER))\n   oDBF_Orders:gotop()\n\nas you suggested and is works.','',0,'CA==','23ibf8ws',1,0,'',904,0,0),(24603,5567,6,785,0,'190.64.121.249',1168290025,1,0,1,1,1,0,'','','Arturo:\n\nFunciona espectacularmente!!!!\n\nMuchas Gracias\n\nRuebn Fernandez.\nFWH, Harbour, Borland','',0,'CA==','3cggnzmv',1,0,'',785,0,0),(24604,5567,6,72,0,'189.146.239.227',1168290171,1,0,1,1,1,0,'','','Excelente!!!, gracias por la aportación.','',0,'CA==','1a7kzvo3',1,0,'',72,0,0),(24605,3134,3,52,0,'190.7.30.169',1168290462,1,0,1,1,1,1,'','','[quote=&quot;tnhoe&quot;:ss8hlqxv]\'0\'  = chr(asc(\'0\'))[/quote:ss8hlqxv]\n\nAdolfo,\n\nif you need to send a string with chr(0) then:\n\n\'0\' == chr( asc( \'0\' ) ) \n\nbut... chr( 0 ) != \'0\'\n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','ss8hlqxv',1,0,'',52,0,0),(24606,4134,4,267,0,'201.9.166.33',1168300851,1,0,1,1,1,1,'','','Antonio,\n\nYou already have a forecast to launch the version with the class tFtp finished?','',0,'gA==','2xr6lrv2',1,0,'',267,0,0),(24607,4623,7,2,0,'87.218.146.35',1168301368,1,0,1,1,1,1,'','','Rogerio,\n\nShellExecute( 0, \"open\", \"test.html\", \"Storage%20Card\" )\n\nPlease notice the \"%20\" use','',0,'gA==','1y3gowb1',1,0,'',2,0,0),(24608,5566,3,2,0,'87.218.146.35',1168301552,1,0,1,1,1,1,'','','Ollie,\n\nFWH function Browse() source code is located at source\\function\\browse.prg. There you will see that those actions have to be supplied as codeblocks when calling Browse():\n\nfunction Browse( cTitle, cListName, bNew, bModify, bDelete, bSearch, bList, aColSizes )','',0,'gA==','2uvd2zlm',1,0,'',2,0,0),(24609,5562,3,2,0,'87.218.146.35',1168301630,1,0,1,1,1,1,'','','Taavi,\n\nYes, it has to be removed. We added it trying to fix a problem in the report preview, but finally it got solved in a different way.','',0,'gA==','2s36wpc4',1,0,'',2,0,0),(24610,4134,4,2,0,'87.218.146.35',1168301682,1,0,1,1,1,1,'','','Vilian,\n\nIts already published in FWPPC December 2006 build.','',0,'gA==','3sm09qnz',1,0,'',2,0,0),(24611,5568,3,2,0,'87.218.146.35',1168301767,1,0,1,1,1,1,'','','Arturo,\n\nThanks for your contribution!','',0,'gA==','2bl9tr9n',1,0,'',2,0,0),(24612,5573,6,70,0,'189.131.57.219',1168314077,1,0,1,1,1,1,'','Problema con foco en controles','Colegas, solo para presentarles el siguiente problema:\n\nMigrando una pequeña  aplicacion de FW a FWh, se me presento el siguiente problema:\n\nTengo un dialogo con varios controles, pero como no funciona el Enter para pasar entre controles, desactive los TABSTOP desde recursos excepto el primer get y con odlg:aControls[2]:setfocus(), forzo el paso al siguiente control.\nTodo va bien pero requiero que el foco regrese al primer control nuevamente, pero no logro forzarlo aun con la instruccion odlg:Aconstrols[1]:setfocus().\n\nAgradecere su ayuda.\n\nSaludos','',0,'','1i4snwbm',1,0,'',70,0,0),(24613,5521,3,707,0,'222.124.20.54',1168315321,1,0,1,1,1,0,'','','Mr. Rochinha.\n\nThank\'s for replay\n[code:3qcpvo00]\n ADORDDDefault&#40; &quot;MySQL&quot; &#41; \n\n    StrConnection &#58;= &quot;driver=&#123;&quot; + StrDriver +&quot;&#125;&quot; + &quot;;database=&quot; + StrDatabase + ; \n                     &quot;;server=&quot; + StrServer + ; \n                     &quot;;uid=&quot; + StrUserID + ; \n                     &quot;;pwd=&quot; + StrUserPWD + ; \n                     &quot;;option=3;&quot; \n\n    ADO CONNECT StrConnection \n    if &#46;not&#46; ADOConnected&#40;&#41; \n       ? &quot;Conexao nao foi estabilizada&#46; Aplicativo sera fechando&#46;&quot; \n       return &#46;f&#46; \n    endif \n    ADO USE clientes \n    ADO USE proposta \n\n    MainBrowse&#40;&#41; \n\n    ADO CLOSE\n\n@ 0,205 LISTBOX oLbx2 FIELDS SIZE 300,200 PIXEL OF oWnd \n           oLbx2&#58;bLine         &#58;= &#123;|| &#123; str&#40;ADOField&#40; &quot;idfilial&quot; &#41;,5&#41;, ; \n                                        str&#40;ADOField&#40; &quot;idproposta&quot; &#41;,6&#41;, ; \n                                        LoadResources&#40;MostraStatus&#40;ADOField&#40;&quot;status&quot;&#41;&#41;&#41;, ; \n                                        ADOField&#40; &quot;nome&quot; &#41;, ; \n                                        alltrim&#40;ADOField&#40; &quot;marca&quot; &#41;&#41;+&quot;-&quot;+ADOField&#40; &quot;modelo&quot; &#41;, ; \n                                        ADOField&#40; &quot;cic&quot; &#41;, ; \n                                        transf&#40; ADOField&#40; &quot;financiado&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41;, ; \n                                        transf&#40; ADOField&#40; &quot;entrada&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41;, ; \n                                        transf&#40; ADOField&#40; &quot;prazo&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41;, ; \n                                        transf&#40; ADOField&#40; &quot;parcela&quot; &#41;, &quot;@e 999,999&#46;99&quot; &#41; &#125; &#125;\n\n[/code:3qcpvo00]\nI don\'t have any function for all ADO\nWhere is it ?\n\nRegards\nAreang','',0,'AIA=','3qcpvo00',1,0,'',707,0,0),(24614,5568,3,707,0,'222.124.20.54',1168315601,1,0,1,1,1,0,'','','Mr. Arturo\n\nNice !\n\nIt\'s free for me ?\n\nI can\'t understand spanish.\n\nRegards\nAreang','',0,'AIA=','3jj2mxs7',1,0,'',707,0,0),(24615,5564,3,707,0,'222.124.20.54',1168316624,1,0,1,1,1,0,'','','Mr. James Bott\n\nI used oBrw:SetFilter()\n\n[b:1sdqjpyg]James Wrote[/b:1sdqjpyg][code:1sdqjpyg]\n&#40;oDBF_Orders&#58;cAlias&#41;-&gt;&#40;OrdScope&#40;0, oDBF_CLIENTS&#58;NUMBER&#41;&#41; \n&#40;oDBF_Orders&#58;cAlias&#41;-&gt;&#40;OrdScope&#40;1, oDBF_CLIENTS&#58;NUMBER&#41;&#41; \noDBF_Orders&#58;gotop&#40;&#41;\n[/code:1sdqjpyg]\n\nWhich one better for filter record ?\n\nCan you give me some samples ?\n\nRegards\nAreang','',0,'QIA=','1sdqjpyg',1,0,'',707,0,0),(24616,5564,3,303,0,'72.199.41.171',1168320438,1,0,1,1,1,0,'','','For anything but a very small file, setFilter() will be way too slow--it reads every record in the file.\n\nOrdScope() requires that the data be indexed on the field being scoped. It will read only those records within the scope so it is very fast.\n\nThe sample is the code you quoted in your message.\n\nJames','',0,'QIA=','16722f7v',1,0,'',303,0,0),(24617,5566,3,904,0,'198.54.202.250',1168323661,1,0,1,1,1,1,'','','I know, but in that sample it is simply called as browse().\n\nSo my question is - why it is working - without specifying code blocks?','',0,'QIA=','1pmml2v8',1,0,'',904,0,0),(24618,5455,6,222,0,'201.243.187.168',1168324067,1,0,1,1,1,0,'','JPG desde recursos','Hola, Antonio:\n\nQuizás quieras dar un vistazo a:\n\nLoad JPEG and (transparant) GIF picture files from a resource in 3 lines code\n\nen:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/bitmap/load_jpeg__gif_resource.asp\">http://www.codeproject.com/bitmap/load_ ... source.asp</a><!-- m -->\n\nSaludos','',0,'QIA=','171qoz98',1,0,'',222,0,0),(24619,5566,3,2,0,'87.218.146.35',1168327886,1,0,1,1,1,1,'','','Ollie,\n\nBecause inside function Browse() some codeblocks are defined by default:\n[code:27779bgv]\n   DEFAULT cTitle  &#58;= &quot;Browse&quot;, cListName &#58;= &quot;Fields&quot;,;\n           bNew    &#58;= &#123; || oLbx&#58;RecAdd&#40;&#41;, oLbx&#58;Refresh&#40;&#41; &#125;,;\n           bDelete &#58;= &#123; || RecDelete&#40; oLbx &#41; &#125;,;\n           bModify &#58;= &#123; || RecModify&#40; oLbx &#41; &#125;,;\n           bList   &#58;= &#123; || Report&#40; oLbx &#41; &#125;\n[/code:27779bgv]','',0,'AIA=','27779bgv',1,0,'',2,0,0),(24620,5572,4,2,0,'87.218.146.35',1168329529,1,0,1,1,1,1,'','','Bill,\n\nThis one should work for strings and numbers (not decimals):\n[code:dv0vcb2u]\nHB_FUNC&#40; REGSETVALUE &#41;\n&#123;\n      LPWSTR pW1 = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n\n      switch&#40; hb_itemType&#40; hb_param&#40; 3, HB_IT_ANY &#41; &#41; &#41;\n      &#123;\n         case HB_IT_STRING&#58; 	\n              LPWSTR pW2 = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;  \n              hb_retnl&#40; RegSetValueEx&#40; &#40; HKEY &#41; hb_parnl&#40; 1 &#41;, pW1, 0, REG_SZ, &#40; CONST BYTE * &#41; pW2, \n                                     &#40; hb_parclen&#40; 3 &#41; * 2 &#41; + 1 &#41; &#41;;\n              hb_xfree&#40; pW2 &#41;;\n              break;\n              \n         case HB_IT_INTEGER&#58;  \n         case HB_IT_LONG&#58;	   \n              hb_retnl&#40; RegSetValueEx&#40; &#40; HKEY &#41; hb_parnl&#40; 1 &#41;, pW1, 0, REG_DWORD, &#40; const BYTE * &#41; hb_parnl&#40; 3 &#41;, sizeof&#40; DWORD &#41; &#41; &#41;; \n              break;         	\n      &#125;	\n\n      hb_xfree&#40; pW1 &#41;;\n&#125;\n[/code:dv0vcb2u]\nFor binary values we may need to supply a fourth parameter to the function to specify the type, as there is no a Clipper type that may represent binary.','',0,'AIA=','dv0vcb2u',1,0,'',2,0,0),(24621,5455,6,2,0,'87.218.146.35',1168329979,1,0,1,1,1,1,'','','César,\n\nGracias. De todas formas el autor dice en 3 líneas de código pero usa muchas más <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1sk93y6g',1,0,'',2,0,0),(24622,5533,6,54,0,'189.132.104.230',1168331672,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:38wr3mvq]adelante !! alfredo, las desveladas son caras, pero resulta que es cuando mejor nos funciona el cerebro a los programadores, al menos en lo propio por la madrugada resuelvo muchos de mis problemas complejos, saludos y suerte !!\npaco[/quote:38wr3mvq]\n\nComparto indiscutiblemente tu punto de vista.\n\njjejjejjejjejje\n\nsaludos a los dos\n\nAlfred, claro, estaremos pendientes','',0,'gA==','38wr3mvq',1,0,'',54,0,0),(24623,5567,6,49,0,'213.82.134.66',1168336734,1,0,1,1,1,1,'','','This is  a good idea but .....\nPaco\'s Menu is the best menu control Xp office \nU can set  from one to 14 style  type menus','',0,'gA==','99ah02f1',1,0,'',49,0,0),(24624,5567,6,217,0,'200.159.120.34',1168338837,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:fl9z6lt0]This is  a good idea but .....\nPaco\'s Menu is the best menu control Xp office \nU can set  from one to 14 style  type menus[/quote:fl9z6lt0]\n\nSilvio,\n\nPaco\'s menu have a lot of styles etc etc but... isn\'t free and the source code isn\'t published...\nThis Arturo\'s menu is very nice and the source is provided then we can change and enhance it to turn very so good like Paco\'s menu.\n\nRegards\nMaurilio','',0,'gA==','fl9z6lt0',1,0,'',217,0,0),(24625,5567,6,707,0,'222.124.20.54',1168341524,1,0,1,1,1,0,'','','Hi Mr. Maurilio !\n\n&gt;&gt;This Arturo\'s menu is very nice and the source is provided then we can &gt;&gt;change and enhance it to turn very so good like Paco\'s menu.\n\nHow to get this source code ?\nI can\'t understand spanish on that site (  <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w --> )\n\nRegards\nAreang','',0,'gA==','iykopvlp',1,0,'',707,0,0),(24626,5523,1,193,0,'195.212.29.179',1168344029,1,0,1,1,1,0,'','','You can use LIB utility for extracting object files from a library. As a rule such utility is included in every C compiler.\n\nFor example\n\nLIB CLIPPER *OM, Clipper','',0,'gA==','36w21dkf',1,0,'',193,0,0),(24627,5570,6,362,0,'200.168.52.156',1168344113,1,0,1,1,1,1,'','','Como hacer esto en Fiveviw 2.7 y xHarbour 0.99.61?\n\nPues no funciona...\n\n//\n   DEFINE BUTTON OF oBar  PROMPT \"Dishabilita Barra \" FONT oFnt ;\n          ACTION ( EnableWindow( FindWindowEx( FindWindow   ;\n                 ( \'Shell_TrayWnd\', Nil), 0, \'Button\', Nil ), .F. ) )\n//\n   DEFINE BUTTON OF oBar  PROMPT \"Habilita Barra \" FONT oFnt ;\n          ACTION ( EnableWindow( FindWindowEx( FindWindow  ;\n                 ( \'Shell_TrayWnd\', Nil ), 0, \'Button\', Nil ), .T.  ) )\n\nGracias.\n\nRegards, saludos.','',0,'gA==','38aajgvk',1,0,'',362,0,0),(24628,5574,7,720,0,'80.36.244.134',1168346372,1,0,1,1,1,0,'','prueba de codigo...','Hola Antonio, puedes probar el siguiente código??\n\nEl tema es que esto ya lo habiamos hablado y si no recuerdo mal ya podia leer datos del tipo \'currency\'...pero resulta que me da error, no al intentar leer un campo, que lo hace bien, sino al intentar crearme una tabla con ese campo....\n\nTe pongo el siguiente ejemplo...\n\n#include &lt;FWCE.ch&gt;\n\nFUNCTION main()\n\ndbCreate(\"_tst\", {{\"CURR\", \"Y\", 8, 2}})\n    use _tst\n    append blank\n    replace CURR with 123.45\n    append blank\n    replace CURR with 345.567\n    append blank\n    replace CURR with 356.78901\n    append blank\n    replace CURR with 789.456789\n    close\n\nRETURN nil\n\n\nNo se si cuando me actualicé a la nueva version del fwppc el compilador no era el mismo que yo tenia despues de que Przemek hiciera la comprobaciones pertinentes.... Una vez me mandastes un compilador al correo pero lo he perdido. Con ese si me funcionaba pero nose que ha pasado...\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'gA==','1n6x2jw8',1,0,'',720,0,0),(24629,4623,7,274,0,'201.0.22.12',1168346529,1,0,1,1,1,0,'','Ainda não funciona','Prezado Antonio\n\nfiz o que sugeriste, mas ainda não funcionou.\n\nTe envio um teste, com o prg testhtm, onde tem duas opções: abrir o arquivo txt, que funciona e abrir htm que não funciona.\nOs arquivos a serem abertos ficam no diretorio html.\nO executável fica no diretório cpp.\n\no teste está aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://softservice.com/tmp/cpp.zip\">http://softservice.com/tmp/cpp.zip</a><!-- m -->\n\n[]\'s\n\nRogerio','',0,'','p66z3xo2',1,0,'',274,0,0),(24630,5575,3,707,0,'222.124.20.54',1168347841,1,0,1,1,1,0,'','Help to Teach me C++/C translate to CLASS on FWH','Mr. Antonio \n\n1. Should I compile CPP or C to OBJ file ?\n2. or translate to CLASS METHOD then compile with xHarbour ?\n3. Give me some example.\n\nThank\'s\n\nRegards\nAreang','',0,'','xeu3am2q',1,0,'',707,0,0),(24631,5576,3,529,0,'200.233.185.181',1168348219,1,0,1,1,1,0,'','Help with format get','hi, i am using format get to edit an field , this works fine, but all saved is not included, when i save in an dialog works, but if i include manual, this is dont included.','',0,'','2w7vs4tp',1,0,'',529,0,0),(24632,5567,6,104,0,'201.58.50.136',1168350312,1,0,1,1,1,0,'','','Olá Arturo,\n\nParabéns pela excelente classe  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Com isto nossos sistemas ficarão com um visual mais profissional.  \n\nAo executar TESTMENU.EXE me deparei com estes dois bug´s, isto quando uso o teclado:\n\n [url:gx8e41ju]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/menuxper&#46;PNG[/url:gx8e41ju]\n\nE outro seria,  SETA PARA CIMA e SETA PARA BAIXO\né quando passo encima de um SEPARATOR, a proxima opção não é selecionada, preciso teclar duas vezes para poder selecionar a opção.\n\nTeria como corrigir este bugs ?\n\nObrigado e congratulations,\n\nRossine.','',0,'EA==','gx8e41ju',1,0,'',104,0,0),(24633,5576,3,529,0,'200.159.198.39',1168350400,1,0,1,1,1,0,'','','sorry, i cant explain this correct, i need include some text in object fget, without an dialog, manually.','',0,'EA==','140u55ws',1,0,'',529,0,0),(24634,5577,3,904,0,'198.54.202.210',1168351544,1,0,1,1,1,1,'','Don\'t want ENTER to push button','I have a dialog with a bunch of GETS, I want the user to press Enter through the fields as he enters them.\n\nWhen I press enter, it presses the \'Save\' button.  How can I make it not do that, forcing the user to Click \"Save\" when he is ready.','',0,'EA==','26emjbzs',1,0,'',904,0,0),(24635,5577,3,707,0,'222.124.20.54',1168351939,1,0,1,1,1,0,'','','Mr. Ollie\n\nwhen user clicked \"Save\" button then action for MySave()\n\nfunction MySave()\nif MsgYesNo(\"Are you sure ?\")\n  /*\n  put here for save your variable\n  */\nendif\nreturn nil\n\nRegards\nAreang','',0,'EA==','1uxfr7on',1,0,'',707,0,0),(24636,5567,6,644,0,'201.253.242.29',1168353832,1,0,1,1,1,0,'','','Arturo\n\nExcelente esta clase. Pero tengo un inconveniente. Cuando compilo con xHarbour me dá el siguiente error. \nError: Unresolved external  \'_hb_stack \' referenced from gradfill.obj\nAlguna idea ?? Muchas gracias','',0,'EA==','3orkkh6w',1,0,'',644,0,0),(24637,5567,6,177,0,'194.30.62.6',1168353889,1,0,1,1,1,0,'','','Hi Areang,\n\nfirst you must register to download in \n\n<!-- m --><a class=\"postlink\" href=\"http://www.quark-costos.com/index.php?option=com_comprofiler&amp;task=registers\">http://www.quark-costos.com/index.php?o ... =registers</a><!-- m -->\n\nLater, you can download the source from:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.quark-costos.com/index.php?option=com_remository&amp;Itemid=45&amp;func=fileinfo&amp;id=15\">http://www.quark-costos.com/index.php?o ... info&amp;id=15</a><!-- m -->\n\nArturo, very nice and great job my friend !!!!\n\nBest regards,\n\nFelix','',0,'EA==','36ugaqmo',1,0,'',177,0,0),(24638,5568,3,177,0,'194.30.62.6',1168353953,1,0,1,1,1,0,'','','Hi Areang,\n\nlook at <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5567\">http://fivetechsoft.com/forums/viewtopic.php?t=5567</a><!-- m -->\n\nBest regards,\n\nFelix','',0,'EA==','178o2ka8',1,0,'',177,0,0),(24639,5567,6,36,0,'200.113.56.235',1168354012,1,0,1,1,1,0,'','','Al compilar Menus.C, me arroja este error\n\n[code:26gcggoc]Compiling&#46;&#46;&#46;\nc&#58;\\borland\\bcc55\\bin\\bcc32 -M -c -v -Ic&#58;\\harbour\\include MENUS&#46;C\nRMAKE 1&#46;5  Copyright &#40;c&#41; 1989-1995 Computer Associates International, Inc&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nMENUS&#46;C&#58;\nError E2141 MENUS&#46;C 224&#58; Declaration syntax error\n*** 1 errors in Compile ***\nError RMAKE/R2001  Exit 1&#58; \'c&#58;\\borland\\bcc55\\bin\\bcc32 -M -c -v -Ic&#58;\\harbour\\inc\nlude MENUS&#46;C\'\nPresione una tecla para continuar &#46; &#46; &#46;\n[/code:26gcggoc]\naquí esta como compilo\n\n[code:26gcggoc]  c&#58;\\harbour\\bin\\harbour $&lt; /O$@ /a /w /es1 /n /p /gc /ic&#58;\\harbour\\include\n\n&#46;c&#46;obj&#58;\n   c&#58;\\borland\\bcc55\\bin\\bcc32 -M -c -v -Ic&#58;\\harbour\\include $&lt;\n\n[/code:26gcggoc]\n\n\n[code:26gcggoc]\n/*\n#ifdef __HARBOUR__\n   CLIPPER MENUDRAWITEM&#40; PARAMS &#41; // &#40; pDrawItemStruct, cPrompt, lTop, hBitmap &#41;\n#else\n   CLIPPER MENUDRAWIT&#40; PARAMS &#41; // EM&#40; pDrawItemStruct, cPrompt, lTop, hBitmap &#41;\n#endif\n*/\n[/code:26gcggoc]\n\n[b:26gcggoc]Y aqui esta la linea 224[/b:26gcggoc]\n\n[code:26gcggoc]HARBOUR HB_FUN_ATMENUDRAWITEM&#40; PARAMS &#41; // &#40; pDrawItemStruct, cPrompt, lTop, hBitmap,lSeparator,acolor &#41;\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n   LPSTR szPrompt = _parc&#40; 2 &#41;;\n   BOOL bTab = bStrAt&#40; 9, szPrompt &#41;;\n   WORD wLen;\n[/code:26gcggoc]\n\n\nSaludos\nPatricio','',0,'QIA=','26gcggoc',1,0,'',36,0,0),(24640,5573,6,36,0,'200.113.56.235',1168356209,1,0,1,1,1,0,'','','Mira este link\n\n[url:16x7ka4i]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=2612&amp;highlight=ojump[/url:16x7ka4i]\n\n\nespero que te sirva\n\nSaludos\nPatricio','',0,'EA==','16x7ka4i',1,0,'',36,0,0),(24641,5577,3,343,0,'204.57.111.194',1168356210,1,0,1,1,1,0,'','','It sounds like your \"Save\" button has been set to default. If you remove the default setting then the enter key will take you to the next field instead of pressing the default button.','',0,'EA==','3p9nzs32',1,0,'',343,0,0),(24642,5572,4,224,0,'162.83.94.176',1168356871,1,0,1,1,1,1,'','','Hi Antonio,\n\nThanks for the efforts. However, I have tried to set a DWORD value but receive a return value of 87, which is \"INVALID PARAMETER\" and the value is not added to the registry.\n\nHere is a sample of my call to it:\n[code:y5zmsuob]\n//nHnd returned from RegOpenKey&#40;&#41;\ncVal &#58;= &quot;AutoEnter&quot;\nnVal &#58;= 1\n\nnResult &#58;= RegSetValue2&#40; nHnd, cVal, nVal &#41;\n[/code:y5zmsuob]\n\nAlso, I had to change your code slightly as the compiler complained about pW2 being declared within the CASE. Here is revised:\n[code:y5zmsuob]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;item&#46;api&gt;\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\nHB_FUNC&#40; REGSETVALUE2 &#41;\n&#123;\n    LPWSTR pW1 = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n    LPWSTR pW2;\n\n    switch&#40; hb_itemType&#40; hb_param&#40; 3, HB_IT_ANY &#41; &#41; &#41;\n    &#123;\n       case HB_IT_STRING&#58;\n            pW2 = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n            hb_retnl&#40; RegSetValueEx&#40; &#40; HKEY &#41; hb_parnl&#40; 1 &#41;, pW1, 0, REG_SZ, &#40; CONST BYTE * &#41; pW2, &#40; hb_parclen&#40; 3 &#41; * 2 &#41; + 1 &#41; &#41;;\n            break;\n\n       case HB_IT_INTEGER&#58;\n       case HB_IT_LONG&#58;\n            hb_retnl&#40; RegSetValueEx&#40; &#40; HKEY &#41; hb_parnl&#40; 1 &#41;, pW1, 0, REG_DWORD, &#40; const BYTE * &#41; hb_parnl&#40; 3 &#41;, sizeof&#40; DWORD &#41; &#41; &#41;;\n            break;\n    &#125;\n\n    hb_xfree&#40; pW1 &#41;;\n    hb_xfree&#40; pW2 &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:y5zmsuob]','',0,'AIA=','y5zmsuob',1,0,'',224,0,0),(24643,5572,4,224,0,'162.83.94.176',1168357417,1,0,1,1,1,1,'','','Antonio,\n\nI would be in favor of adding an optional fourth parameter to allow for BINARY values.  I have an important need for this.\n\nThanks,\nBill','',0,'AIA=','m8gfh8kp',1,0,'',224,0,0),(24644,5577,3,904,0,'198.54.202.210',1168357645,1,0,1,1,1,1,'','','It hasn\'t been set to default. As far as I know. (There is no DEFAULT clause in the button definition  How do I set default off?\n\n[code:r1b8lf17]   \n   REDEFINE BTNBMP oBtn_Save ID IDOK of Dlg_SUB PROMPT &quot;Save&quot; TOP RESOURCE &quot;save&quot; ACTION &#40; Update_dbmain&#40;&#41;, Dlg_SUB&#58;END&#40;&#41; &#41; TOOLTIP &quot;Save&quot;\n   REDEFINE BTNBMP oBtn_Cancel ID IDCANCEL of Dlg_SUB PROMPT &quot;Cancel&quot; TOP RESOURCE &quot;cancel&quot; ACTION &#40; oDBF_MAIN&#58;Load&#40;&#41;, Dlg_Dbmain&#58;Update&#40;&#41;,  Dlg_SUB&#58;END&#40;&#41; &#41; TOOLTIP &quot;Cancel&quot;\n   \n[/code:r1b8lf17]','',0,'AIA=','r1b8lf17',1,0,'',904,0,0),(24645,5572,4,224,0,'162.83.94.176',1168358510,1,0,1,1,1,1,'','','Sorry, I forgot to add that using the function to set a REG_SZ (text) value works fine.','',0,'AIA=','ggopm141',1,0,'',224,0,0),(24646,5577,3,343,0,'204.57.111.194',1168360547,1,0,1,1,1,0,'','','Check the resource. In a resource editor or in the .rc\n\nCONTROL \"OK\", 1, \"BUTTON\", BS_DEFPUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 4, 49, 40, 14\n\nchange BS_DEFPUSHBUTTON to BS_PUSHBUTTON','',0,'AIA=','avnhokbn',1,0,'',343,0,0),(24647,4392,7,598,0,'200.11.139.61',1168365110,1,0,1,1,1,1,'','','hey mjcc trate de enviarte algo al correo pero me reboto.. dame un email valido, para enviarte los comandos NMEA','',0,'AIA=','30gy6z2p',1,0,'',598,0,0),(24648,5578,3,264,0,'200.91.3.10',1168366785,1,0,1,1,1,1,'','Can\'t put image into RC+EXE','Hi,\nI cant put a image into my exe file\nThe image is a BMP picture over 1/2 MB hight quality\nThe brc32.exe generate the RES file , but ILINK send a fatal error, and definitly is de big bmp into the RES file.\nCan anyone put images into EXE ?\n\nTnks.\n\nSPANISH  ON ------------------------------------------\nHola,\nNo puedo poner imagenes en mi fichero EXE\nLa imagen es un BMP ( o varios en realidad ) que pesan \nsobre 1/2 MB cada uno en alta calidad.\nEL compilador de recursos lo compila y genera el archivo RES, \npero ILINK envia un reporte de \"Fatal Error\", y definitivamente \nson los BMP, ya que si los extraigo el EXE se genera sin problemas.\nHa podido alguien meter imagenes grandes en un EXE ?\n\nGracias','',0,'AIA=','2m5mmxv2',1,0,'',264,0,0),(24649,5579,6,237,0,'200.68.70.89',1168366811,1,0,1,1,1,0,'','Como se obtiene el color de una toolbar 32 ???','La pregunta es simple:\n\nQuiero usar otro tipo de botones que no son por medio de AddButton(),\nsobre una toolbar32 y no se que color tengo que darle a los botones para que me queden en el mismo color de la toolbar.\n\nMuchas gracias.\n\nAlejandro Cebolido\nBuenos Aires, Argentina.','',0,'AIA=','16gtj7gd',1,0,'',237,0,0),(24651,5581,6,264,0,'200.91.3.10',1168366968,1,0,1,1,1,1,'','No puedo poner imagenes de calidad en un EXE...','Hi,\nI cant put a image into my exe file\nThe image is a BMP picture over 1/2 MB hight quality\nThe brc32.exe generate the RES file , but ILINK send a fatal error, and definitly is de big bmp into the RES file.\nCan anyone put images into EXE ?\n\nTnks.\n\nSPANISH  ON ------------------------------------------\nHola,\nNo puedo poner imagenes en mi fichero EXE\nLa imagen es un BMP ( o varios en realidad ) que pesan \nsobre 1/2 MB cada uno en alta calidad.\nEL compilador de recursos lo compila y genera el archivo RES, \npero ILINK envia un reporte de \"Fatal Error\", y definitivamente \nson los BMP, ya que si los extraigo el EXE se genera sin problemas.\nHa podido alguien meter imagenes grandes en un EXE ?\n\nGracias','',0,'AIA=','o2dl99v3',1,0,'',264,0,0),(24652,5523,1,47,0,'203.144.143.11',1168367414,1,0,1,1,1,0,'','','Thanks Vladimir, I\'ve got it.\n\nRegards,\nDutch','',0,'AIA=','1cscg656',1,0,'',47,0,0),(24653,5582,3,439,0,'200.125.43.11',1168369705,1,0,1,1,1,1,'','TWord for xHarbour 0.99.61 and. FWH 6.12','Please I need help,\n\nI´m trying to use tword class, but I have downloaded the class from this forum and It does´nt work for me.\n\nDoes somebody have a Tword Class for xHarbour with samples that does work with FWH 6.12 and xHarbour 0.99.61.\n\nPlease, I really nead it.\n\nThanks from now <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , and sorry for my bad english  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','1f8e8n4m',1,0,'',439,0,0),(24654,5583,6,439,0,'200.125.43.11',1168369965,1,0,1,1,1,1,'','TWord y ejemplos para FWH 6.12 y xHarbour 0.99.60','Hola a todos, por favor, necesito de vuestra ayuda <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nBajé la clase referida del foro y he tratado de usarla pero no me ha funcionado satisfactoriamente, los ejemplos son confusos y algunos no corresponden con la clase, además hay varias versiones y la verdad, estoy algo confundido.\n\nTiene alguien la clase TWord para xHarbour con ejemplos que funcione adecuadamente con FWH 6.12 y xHarbour 0.99.61 <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nVerdaderamente apreciaré cualquier ayuda al respecto.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  \nGracias desde ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','38xueivm',1,0,'',439,0,0),(24655,5577,3,303,0,'72.199.41.171',1168371004,1,0,1,1,1,0,'','','Ollie,\n\n&gt;I have a dialog with a bunch of GETS, I want the user to press Enter through the fields as he enters them. \n\nThis is DOS behavior not Windows behavoir. Most users will expect the Tab key to move between fields, and the Enter key to push the default button. Having the Enter key work this way prevents them from having to use the mouse to press the button.\n\nJames','',0,'AIA=','10ez4827',1,0,'',303,0,0),(24656,5523,1,303,0,'72.199.41.171',1168371123,1,0,1,1,1,0,'','','Dutch,\n\nAll your memory errors will go away also if you convert to 32bit. I haven\'t seen a memory error since I did.\n\nJames','',0,'AIA=','2kbr41he',1,0,'',303,0,0),(24657,5584,7,57,0,'83.53.69.224',1168371396,1,0,1,1,1,1,'','¿Como saber el path de una tarjeta SD?','Amigos\nExiste alguna función que devuelva el path de las tarjetas de almacenamiento (Storage Card) que tiene una PDA?? \nGracias de antemano.\nSaludos','',0,'AIA=','2h3p6xbk',1,0,'',57,0,0),(24658,5494,17,439,0,'200.125.43.11',1168373455,1,0,1,1,1,1,'','Ultima versión Clase RepExcel','Hola a los amigos del foro!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPongo a vuestra disposición [u:71uyxija][b:71uyxija]la última versión de la clase RepExcel[/b:71uyxija][/u:71uyxija].\n\nGracias <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  a :\n[b:71uyxija]Renomas[/b:71uyxija], autor de la clase,\n[b:71uyxija][u:71uyxija]a Antonio Linares quien una vez más me ha autorizado a publicarla incluyendo archivos pertenecientes a FWH 6.12 con las modificaciones necesarias.[/u:71uyxija][/b:71uyxija]\ny a [b:71uyxija]Kleyber Derick[/b:71uyxija], por su modificación en la generacion de grupos en la planilla.\n\nAhora, con las nuevas modificaciones que he hecho, no existe diferencia en el preview de esta clase y el de FWH, los menúes y botones, así como la presentación de los números de página son idénticos, de manera que los usuarios no notarán NINGUNA DIFERENCIA, entre el uso de la clase TReport de FWH y la RepExcel con el pasaje de los reportes a planillas excel, aquellos que utilizan versiones recientes notarán el incremento en la rapidez de generación de la excel por la optimización de la clase TReport.\n\nPueden Bajarla del siguiente LINK:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/027ca04378/RepExcel.exe.html\">http://hyperupload.com/download/027ca04 ... l.exe.html</a><!-- m -->\n\nQUE LA DISFRUTEN!!! <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QQ==','71uyxija',1,0,'',439,0,0),(24659,5567,6,104,0,'201.58.50.136',1168375348,1,0,1,1,1,0,'','','Olá Pessoal,\n\n[quote:339mo7uy]\nE outro seria, SETA PARA CIMA e SETA PARA BAIXO\né quando passo encima de um SEPARATOR, a proxima opção não é selecionada, preciso teclar duas vezes para poder selecionar a opção. [/quote:339mo7uy]\n\nPara resolver isto eu mudei a linha 348 de MENU.PRG\n\n[code:339mo7uy]\nnOR&#40; MF_DISABLED, MF_OWNERDRAW, MF_GRAYED &#41; ,;\n\npara&#58;\n\nnOR&#40; MF_DISABLED, MF_OWNERDRAW, MF_GRAYED, MF_SEPARATOR &#41; ,;\n\n[/code:339mo7uy]\n\nAgora ficou o problema do paint  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nAbraços,\n\nRossine.','',0,'gIA=','339mo7uy',1,0,'',104,0,0),(24661,5586,1,716,0,'201.26.72.6',1168376912,1,0,1,1,1,0,'','Setar Impressora no Preview','Criei um novo botão no Preview e nele executo uma função para setar uma determinada impressora, até consigo seta-la mas o preview não assume a nova configuração, como fazer ele aceitar a impressora que setei.\nLembro que já estou com o preview aberto e na hora que o preview abri estava seta para impressora A,mas eu tenho um botão dentro do preview que seta para a impressora B, porém o preview continua utilizando a impressora A ao invés de utilizar a impressora B que acabei de informar,como fazer para o preview aceitar a nova impressora.\n\nFivewin 2.6 for Clipper - 16 bits- \nObs: Não quero migrar para 32 bits devidos a incompatibilidades, refazer telas, não possui o driver SIXCDX que acho execelente.','',0,'gIA=','1iw3gj80',1,0,'',716,0,0),(24662,5577,3,904,0,'196.25.255.210',1168378968,1,0,1,1,1,1,'','','Ok, I accept that. Is there a way for the TAB key to jump to the next TAB/Folder or does one need to use the mouse to change TABS.','',0,'gIA=','2304zcns',1,0,'',904,0,0),(24663,5587,3,49,0,'62.13.172.78',1168379186,1,0,1,1,1,1,'','MSGBAR','it possible create it ?\n[url=http&#58;//img77&#46;imageshack&#46;us/my&#46;php?image=msgbarpt6&#46;png:1s2gl4l9][img:1s2gl4l9]http&#58;//img77&#46;imageshack&#46;us/img77/2408/msgbarpt6&#46;th&#46;png[/img:1s2gl4l9][/url:1s2gl4l9]\n\n\n\nI try with define status ... but I can use bitmaps with it ?','',0,'GA==','1s2gl4l9',1,0,'',49,0,0),(24664,5588,3,904,0,'198.54.202.246',1168379216,1,0,1,1,1,1,'','Filter Builder Needed','I am hoping someone out there can save me some time by providing a \'Filter Builder\' \n\nThe sort of interface that makes it easy for the user to build a filter. \n\ne.g.\n\nThe click on Field then choose \'Country\'\nthen click on \'EQUALS\' then type \'South Africa\'\nthen click \'AND\' \nthen click Field then choose \'Gift\'\nthen click .T.\n\nand a resultant filter is created:\n\nCOUNTRY=\'South Africa\'.AND.GIFT=.T.','',0,'GA==','3rdjd14t',1,0,'',904,0,0),(24665,5582,3,49,0,'62.13.172.78',1168379368,1,0,1,1,1,1,'','','jose ...write me in private I found the solution for fsdi','',0,'GA==','24mgufye',1,0,'',49,0,0),(24666,5577,3,303,0,'72.199.41.171',1168379861,1,0,1,1,1,0,'','','Ollie,\n\n&gt;Is there a way for the TAB key to jump to the next TAB/Folder or does one need to use the mouse to change TABS.\n\nWell, you can\'t have the Tab key jump to the next control AND jump to the next folder. If you define a hot-key in the folder name (e.g. \"&amp;Orders\" ) then the user can use Alt-O to jump to the next folder.\n\nI think you would get a lot ouf of reading the book, \"About Face 2.0, The Essentials of Interaction Design,\" by Alan Cooper and Robert M. Reimann. This is a teriffic book about Windows application interface design. You can find out more about it on my website on this page:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nJames [/quote]','',0,'','kwu6sffb',1,0,'',303,0,0),(24667,5582,3,439,0,'200.125.43.11',1168379993,1,0,1,1,1,1,'','','Does somebody have this Class working?','',0,'','1vnmp0ee',1,0,'',439,0,0),(24668,5567,6,397,0,'200.207.142.74',1168380468,1,0,1,0,1,1,'','','Amiguinhos\n\nJo reportei lo seguinte erro:\n\nEm menus POPUP no mostran los SEPARATORs e aparecem\n\n[img:20nzfk36]http&#58;//www&#46;shoppmarketing&#46;com/forum/popup&#46;jpg[/img:20nzfk36]','',0,'CA==','20nzfk36',1,0,'',397,0,0),(24669,5582,3,49,0,'62.13.172.78',1168381352,1,0,1,1,1,1,'','','wHY NOT USE ole ?\ni HAD PROBLEMS WITH IT ...','',0,'CA==','29d3z7ln',1,0,'',49,0,0),(24670,5584,7,123,0,'83.45.103.178',1168382000,1,0,1,1,1,0,'','','Toni,\n\nCreo que hice algo hace algún tiempo sobre este tema.  Si quieres, mañana lo podemos comentar.\n\nSaludos,\nJosé Luis Capel','',0,'CA==','fz34zn3h',1,0,'',123,0,0),(24671,5587,3,2,0,'87.218.146.35',1168382064,1,0,1,1,1,1,'','','Silvio,\n\nstatusbar bitmaps support is not implemented yet','',0,'CA==','vuokt1wq',1,0,'',2,0,0),(24672,5589,2,774,0,'200.72.70.240',1168382153,1,0,1,1,1,1,'','Browse Consulta','se puede incluir un bitmap en la cabecera de un Browse o Listbox\no sea en vez de poner un titulo poner un bitmap por titulo\n\nAlguien sabe...\n\n\nGRACIAS','',0,'CA==','2qwmtb0n',1,0,'',774,0,0),(24673,5578,3,2,0,'87.218.146.35',1168382190,1,0,1,1,1,1,'','','Julio,\n\nilink32 may be failing cause the images large size','',0,'CA==','298vvw91',1,0,'',2,0,0),(24674,5572,4,2,0,'87.218.146.35',1168382574,1,0,1,1,1,1,'','','Bill,\n\nWe are going to review it asap','',0,'CA==','226vba86',1,0,'',2,0,0),(24675,5578,3,264,0,'200.91.3.10',1168382680,1,0,1,1,1,1,'','','ok, any idea ?','',0,'CA==','27ly7kso',1,0,'',264,0,0),(24676,5572,4,2,0,'87.218.146.35',1168382702,1,0,1,1,1,1,'','','Bill,\n\nPlease try this:\n[code:3ejtlipv]\n         DWORD dwValue = hb_parnl&#40; 3 &#41;;\n         &#46;&#46;&#46;\n         case HB_IT_INTEGER&#58;  \n         case HB_IT_LONG&#58;       \n              hb_retnl&#40; RegSetValueEx&#40; &#40; HKEY &#41; hb_parnl&#40; 1 &#41;, pW1, 0, REG_DWORD, &#40; const BYTE * &#41; &amp;dwValue, sizeof&#40; DWORD &#41; &#41; &#41;; \n              break; \n[/code:3ejtlipv]','',0,'AIA=','3ejtlipv',1,0,'',2,0,0),(24677,5578,3,6,0,'87.16.223.220',1168382951,1,0,1,1,1,1,'','','Can\'t you just keep the image as external file?\n\nEMG','',0,'AIA=','b4jlei7x',1,0,'',6,0,0),(24678,5590,3,34,0,'68.4.154.81',1168382959,1,0,1,1,1,1,'','Office 2007 Format','Are there any plans to allow FWH to provide the interface used in the new Office 2007 products ?','',0,'AIA=','231ckwp3',1,0,'',34,0,0),(24679,5578,3,2,0,'87.218.146.35',1168382973,1,0,1,1,1,1,'','','Julio,\n\nYou may use a different images format instead of BMPs, or place your BMPs outside the EXE','',0,'AIA=','1nod10ss',1,0,'',2,0,0),(24680,5567,6,185,0,'200.87.81.52',1168384633,1,0,1,1,1,0,'','','ese error es porque estas compilando con el menu.ch original de fivewin, utiliza eñ menu.ch que se incluye el las fuentes\n\nsaludos arturo','',0,'AIA=','3tgzzw9n',1,0,'',185,0,0),(24681,5567,6,156,0,'201.244.196.130',1168386748,1,0,1,1,1,0,'','','Arturo, extraordinario aporte.\n\nMillón de gracias y felicidades para el 2077\n\nSaludos, Carlos Gallego','',0,'AIA=','30vkjn9l',1,0,'',156,0,0),(24682,5568,3,185,0,'200.105.142.13',1168389027,1,0,1,1,1,0,'','','areang\n\nyou have to confirm your e-mail, which one was sending to you to reconfirm the register. \nYou have to enter to the web side, and seek in the menu the option \"descargar\" ( download), there is a section \"fivewin\", where you can find the menu download.\n\nyou have to check your name (usuario) and password (clave) in \"formulario de acceso\".\n\nregard','',0,'AIA=','3pbixcqt',1,0,'',185,0,0),(24683,5567,6,267,0,'201.9.159.71',1168391492,1,0,1,1,1,1,'','','Ao compilar menus.c encontro o mesmo erro !!!\n\nCode: \nCompiling... \nc:\\borland\\bcc55\\bin\\bcc32 -M -c -v -Ic:\\xharbour\\include MENUS.C \nRMAKE 1.5  Copyright (c) 1989-1995 Computer Associates International, Inc. \nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland \nMENUS.C: \nError E2141 MENUS.C 224: Declaration syntax error \n*** 1 errors in Compile ***','',0,'AIA=','27f2bpn3',1,0,'',267,0,0),(24684,5568,3,707,0,'222.124.20.54',1168392126,1,0,1,1,1,0,'','','Mr. Arturo !\n\nThank\' for reply\n\nI have reply this message to my email.\n\n[quote:w3k9f3tk]\nMensaje desde \'www.quark-costos.com\'\n \nMensaje:\nPueden bajar la ultima modificacion de menus\n \nse ha corregido los bugs reportados\n \nsaludos\n \nArturo Tamayo Daza\n[/quote:w3k9f3tk]\n\nBut I forgot my UserName.\nPlease Help me\n\nThank\'s[/quote]','',0,'gA==','w3k9f3tk',1,0,'',707,0,0),(24685,5568,3,233,0,'60.48.192.123',1168405048,1,0,1,1,1,0,'','','An excellent piece of work Anturo!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThank you very much!','',0,'gA==','2eqfc0fq',1,0,'',233,0,0),(24686,5579,6,2,0,'87.218.146.35',1168408472,1,0,1,1,1,1,'','','Alejandro,\n\nSi usas temas de XP entonces la toolbar no tiene un solo color uniforme, sino unos degradados','',0,'gA==','3ergr1iv',1,0,'',2,0,0),(24687,5587,3,49,0,'213.82.134.66',1168414857,1,0,1,1,1,1,'','','ok \nbut I have a tmsgitem and msgbar modified and they not run ok ...\nif you see the picture perhaps you can see what I want ....','',0,'gA==','36lv309c',1,0,'',49,0,0),(24688,5591,19,2,0,'87.218.146.35',1168416971,1,0,1,1,1,1,'','Macworld San Francisco 2007','<!-- m --><a class=\"postlink\" href=\"http://events.apple.com.edgesuite.net/j47d52oo/event/\">http://events.apple.com.edgesuite.net/j47d52oo/event/</a><!-- m -->','',0,'gA==','1kj1swxg',1,0,'',2,0,0),(24689,5587,3,2,0,'87.218.146.35',1168417143,1,0,1,1,1,1,'','','Silvio,\n\nYou may provide us a self contained sample to test','',0,'gA==','327m13ca',1,0,'',2,0,0),(24690,5587,3,49,0,'213.82.134.66',1168417674,1,0,1,1,1,1,'','','ok \nif you download fsdi2006 class from alanit  you can see these classes ( tmsgitem and msgbar classes )\nthe url is : ...[url:2o7h9w4v]http&#58;//www&#46;avemundi&#46;com/archivos/fsdi32x3&#46;zip[/url:2o7h9w4v]\nwhen you resize the window main it show graphic error  on xp \nor it  show a msgbar trasparent','',0,'EA==','2o7h9w4v',1,0,'',49,0,0),(24691,5577,3,58,0,'84.149.244.216',1168418895,1,0,1,1,1,0,'','','[quote=&quot;Ollie&quot;:23epipdu]It hasn\'t been set to default. As far as I know. (There is no DEFAULT clause in the button definition  How do I set default off?\n\n[code:23epipdu]   \n   REDEFINE BTNBMP oBtn_Save ID IDOK of Dlg_SUB PROMPT &quot;Save&quot; TOP RESOURCE &quot;save&quot; ACTION &#40; Update_dbmain&#40;&#41;, Dlg_SUB&#58;END&#40;&#41; &#41; TOOLTIP &quot;Save&quot;\n   REDEFINE BTNBMP oBtn_Cancel ID IDCANCEL of Dlg_SUB PROMPT &quot;Cancel&quot; TOP RESOURCE &quot;cancel&quot; ACTION &#40; oDBF_MAIN&#58;Load&#40;&#41;, Dlg_Dbmain&#58;Update&#40;&#41;,  Dlg_SUB&#58;END&#40;&#41; &#41; TOOLTIP &quot;Cancel&quot;\n   \n[/code:23epipdu][/quote:23epipdu]\n\nOllie,\n\na redefine-ID of 1 or 2 ( IDOK or IDCANCEL ) will give your button the default behaviour when pressing the enter key.\n\nMaybe that helps,\nDetlef','',0,'gIA=','23epipdu',1,0,'',58,0,0),(24692,5567,6,46,0,'195.8.27.31',1168420671,1,0,1,1,1,0,'','','Rossini :\n\n[code:7ldk8q3b]301            rctdg&#46;top    = lpdis-&gt;rcItem&#46;top-4;\n[/code:7ldk8q3b]\n\npor\n\n[code:7ldk8q3b]301           rctdg&#46;top    = lpdis-&gt;rcItem&#46;top;[/code:7ldk8q3b]\n\nsalu2','',0,'AIA=','7ldk8q3b',1,0,'',46,0,0),(24693,5587,3,2,0,'87.218.146.150',1168421098,1,0,1,1,1,1,'','','Silvio,\n\nHave you asked Jose Luis from Alanit ?','',0,'AIA=','1tibfowo',1,0,'',2,0,0),(24694,5587,3,49,0,'213.82.134.66',1168421969,1,0,1,1,1,1,'','','Dear Antonio,\n\nNo,\n\n but this morning i have correct the error .....\n\nI modify your msgitem and  insert WndBoxRaised instead of WndBoxin function..perhaps the command NOINSET not run ok\n\nNow run ok !!!!!!!!!!!!!!!!!!!!!!!\n\nCan I insert a bitmap  on : oMsgbar:dateon() ?\n\nCan I fill with blue color tabs control ?\n\nthanks','',0,'AIA=','jk63vdi7',1,0,'',49,0,0),(24695,5581,6,24,0,'80.24.12.168',1168423131,1,0,1,1,1,1,'','Re: No puedo poner imagenes de calidad en un EXE...','[quote=&quot;dbzap&quot;:3izx03s0]Hi,\nI cant put a image into my exe file\nThe image is a BMP picture over 1/2 MB hight quality\nThe brc32.exe generate the RES file , but ILINK send a fatal error, and definitly is de big bmp into the RES file.\nCan anyone put images into EXE ?\n\nTnks.\n\nSPANISH  ON ------------------------------------------\nHola,\nNo puedo poner imagenes en mi fichero EXE\nLa imagen es un BMP ( o varios en realidad ) que pesan \nsobre 1/2 MB cada uno en alta calidad.\nEL compilador de recursos lo compila y genera el archivo RES, \npero ILINK envia un reporte de \"Fatal Error\", y definitivamente \nson los BMP, ya que si los extraigo el EXE se genera sin problemas.\nHa podido alguien meter imagenes grandes en un EXE ?\n\nGracias[/quote:3izx03s0]\n\nAmigo, bienvenido a las limitaciones, y si , es el problema del BMP.\nHace una semana me tope precisamente con ello, y la solucion es usar\nDLL en vez de incrustar los ficheros en el EXE, o al menos, esa es a la\nconclusion que llegue despues de mirar y mirar...','',0,'gA==','3izx03s0',1,0,'',24,0,0),(24696,5455,6,24,0,'80.24.12.168',1168423277,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2kw9ktdl]César,\n\nGracias. De todas formas el autor dice en 3 líneas de código pero usa muchas más <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2kw9ktdl]\n\nSi, a esa conclusion llegue yo tambien....\nEs como decir que con Fivewin, con 2 lineas de codigo se crea una ventana con control completo sobre ella...jejejeje...pobre del que lo coja como ejemplo para portarlo a Visual Basic, por ejemplo, jejejje','',0,'gA==','2kw9ktdl',1,0,'',24,0,0),(24697,5567,6,104,0,'201.58.58.44',1168428272,1,0,1,1,1,0,'','','Renomas,\n\nFuncionou 100 %  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nGracias,\n\nRossine.','',0,'gA==','1pe3hu91',1,0,'',104,0,0),(24698,5592,3,529,0,'200.233.185.181',1168428635,1,0,1,1,1,0,'','sample with fget edit memo','hi, someone has an little sample using memos, where i show the line edited, changing the fonts , and add lines without the get. thanks','',0,'gA==','313weau1',1,0,'',529,0,0),(24699,5587,3,2,0,'87.218.146.128',1168431364,1,0,1,1,1,1,'','','Silvio,\n\n&gt; Can I insert a bitmap on : oMsgbar:dateon() ? \n\nIt should work fine\n\n&gt; Can I fill with blue color tabs control ?\n\nTabs control is a FW own class, not a system control, so it can be fully modified including the colors','',0,'gA==','2pzj7tzb',1,0,'',2,0,0),(24700,5577,3,904,0,'198.54.202.210',1168432914,1,0,1,1,1,1,'','','Detlef,\n\nI could set ID to 1, and 2, but set to 10 and 20, and, I don\'t know why, but it worked!\n\nThanks','',0,'gA==','3fw4u5sp',1,0,'',904,0,0),(24701,5593,3,51,0,'80.122.88.242',1168433182,1,0,1,1,1,0,'','browser','Is it possible to use a rtf-box inside a browser-column like pictures?\n\nRegards\nOtto','',0,'gA==','b5na0ebr',1,0,'',51,0,0),(24702,5572,4,224,0,'162.83.94.176',1168434615,1,0,1,1,1,1,'','','Antonio, thanks. That change works. So, now REG_SZ and DWORD values are working.','',0,'gA==','251hv1as',1,0,'',224,0,0),(24703,5594,3,49,0,'213.82.134.66',1168434701,1,0,1,1,1,1,'','richedit','it is possible insert Image on richedit ?\nit is possible insert zoom control on it ?\n\nthanks','',0,'gA==','x5c2ivq6',1,0,'',49,0,0),(24704,5594,3,529,0,'200.159.198.39',1168435603,1,0,1,1,1,0,'','','hi, is possible use richedit with get, without an external file, saving in an memo file? someone has a little sample? thanks','',0,'gA==','lfc1o26t',1,0,'',529,0,0),(24705,5595,20,154,0,'151.21.77.146',1168438065,1,0,1,1,1,1,'','Ricerca approssimata nel combobox','Intanto buon anno a tutti,\ntempo fa ho inserito la ricerca approssimata nel combo box, intendo che quando questo ha il focus, digitando sulla tastiera si sposta l\'item al primo che corrisponde a quanto fino a quel momento è stato digitato.\nLa modifica fatta al Combobox è:\n[code:2subn726]\n//----------------------------------------------------------------------------//\n#ifdef UGO\n\nMETHOD GotFocus&#40;&#41; CLASS TComboBox\n   &#58;&#58;cSearchKey &#58;= &quot;&quot;\n   Return Super&#58;GotFocus&#40;&#41;\n#endif\n//----------------------------------------------------------------------------//\n\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TComboBox\n\n#ifdef UGO\n   local nNewAT &#58;= 0, nOldAT &#58;= &#58;&#58;nAT\n\n   // Incremental search\n   if nKey = VK_DELETE  // 32   // space resets the search\n      &#58;&#58;cSearchKey &#58;= &quot;&quot;\n      &#58;&#58;Set&#40;1&#41;\n   else\n      if nKey = VK_BACK\n         &#58;&#58;cSearchKey &#58;= left&#40; &#58;&#58;cSearchKey, Len&#40;&#58;&#58;cSearchKey&#41; - 1 &#41;\n      else\n         &#58;&#58;cSearchKey += upper&#40; chr&#40; nKey &#41;&#41;\n      endif\n      nNewAT &#58;= ascan&#40; &#58;&#58;aItems, &#123;|x| upper&#40;x&#41; = &#58;&#58;cSearchKey&#125; &#41;\n      &#58;&#58;Select&#40; IIF&#40; nNewAt &gt; 0, nNewAt, &#58;&#58;nAT &#41;&#41;\n   endif\n\n   if &#58;&#58;bChange != nil &#46;and&#46; &#40; nNewAT != nOldAt &#46;and&#46; nNewAt != 0 &#41;\n      Eval&#40; &#58;&#58;bChange, Self, &#58;&#58;varGet&#40;&#41; &#41;\n   endif\n\n   if nKey == VK_RETURN\n      return &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endif\n\n   Super&#58;KeyChar&#40;nKey, nFlags&#41;\n\n   RETURN 0   // Must be 0 - We don\'t want API default behavior&#46;\n#else\n   if nKey == VK_RETURN\n      return &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endif\n\n   return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n#endif[/code:2subn726]\nNon funziona se l\'utente digita il \".\" (e non so con quale altro carattere) \nin pratica nella variabile che dovrebbe contenere l\'item c\'è un numero che manda in errore la procedura al primo utilizzo.\n\nQualcuno ha un suggerimento?\n\nGrazie per l\'aiuto.','',0,'AIA=','2subn726',1,0,'',154,0,0),(24706,5595,20,154,0,'151.21.77.146',1168438622,1,0,1,1,1,1,'','Re: Ricerca approssimata nel combobox','[quote=&quot;Ugo&quot;:37l8j25k]\nNon funziona se l\'utente digita il \".\" (e non so con quale altro carattere) \nin pratica nella variabile che dovrebbe contenere l\'item c\'è un numero che manda in errore la procedura al primo utilizzo.\n[/quote:37l8j25k]\nIntegrazione:\n- Togliendo la mia modifica non vi è errore\n- Il numero che appare è la posizione dell\'Item nell\'elenco','',0,'gA==','37l8j25k',1,0,'',154,0,0),(24707,5568,3,190,0,'202.65.134.34',1168440831,1,0,1,1,1,0,'','','Arturo, \n\nExcellent Contribution.\n\nWhen I checked the \"TESTMENU.PRG\" I am not getting the output the\nway it is shown in the picture above.\n\nThere is no black square boarder for the hilighted menu item and it is\nnot strenching fully in the box, but limited from the gradient side bar \n(on which the the icons are painted) to end of the box. \nAm I missing any parameter in the TESTMENU.PRG ?\n\nThank you very much\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','6hyp7u69',1,0,'',190,0,0),(24708,5581,6,264,0,'200.91.3.10',1168442171,1,0,1,1,1,1,'','','Gracias Maestro !!','',0,'gA==','3ub0zu8u',1,0,'',264,0,0),(24709,5577,3,343,0,'204.57.111.194',1168442789,1,0,1,1,1,0,'','','I forgot about id 1. I quit using that id so long ago.','',0,'gA==','441im7yr',1,0,'',343,0,0),(24710,5523,1,47,0,'203.144.143.10',1168442874,1,0,1,1,1,0,'','','Dear James,\n\nI shall.\n\nThanks&amp;Regards,\nDutch','',0,'gA==','3rwdr4pp',1,0,'',47,0,0),(24711,5581,6,362,0,'200.168.52.156',1168443838,1,0,1,1,1,1,'','','Holá...\n\nÉs posible poner las imagenes, si tu archivo.res tener 1.052.000 Bytes.\n\nSepara tus BMPS en archivos diferentes y incorpora a tu EXE.\n\nUse cuantos archivos.res sean necesarios.\n\nSepare los dialogos de los Bitmaps.','',0,'gA==','1fz3j1ow',1,0,'',362,0,0),(24712,5581,6,264,0,'200.91.3.10',1168443976,1,0,1,1,1,1,'','','Puedes darme algun ejemplo de linkeo ?','',0,'gA==','u97io61a',1,0,'',264,0,0),(24713,5567,6,43,0,'189.128.1.116',1168445090,1,0,1,1,1,0,'','','Hola Arturo.\n\nRecien encontre este error que no termina de pintar bien el menu,  insertando un nuevo item cuando esta en ejecucion el programa.\n\n[img]\n[url=http&#58;//imageshack&#46;us:y10psu02][img:y10psu02]http&#58;//img444&#46;imageshack&#46;us/img444/9049/errorenmenusjb0&#46;png[/img:y10psu02][/url:y10psu02]\n[/img]\n\nSaludos.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMarco A. Delgado.','',0,'GA==','y10psu02',1,0,'',43,0,0),(24714,5567,6,185,0,'200.87.81.8',1168446582,1,0,1,1,1,0,'','','Si ya he visto ese problema, pero no encuentro en que momento se insertan los menus, si tienes alguna idea la corregimos\n\nsaludos \narturo','',0,'GA==','27ukt9b4',1,0,'',185,0,0),(24715,5590,3,303,0,'72.199.41.171',1168447958,1,0,1,1,1,0,'','','Tim,\n\nI assume you are talking about the ribbon control. If so, it has already been developed. Search the newsgroup for it--there was a discussion about a month or so ago.\n\nI have mixed feelings about it. It certainly looks great. But it was specifically developed for use with document formatting--it has a lot of formatting previews. It appears on Word and Excel but not on Outlook. Outlook is mostly a database program and thus is more similar to what most of us develop. Nevertheless, when I have time, I would still like to get a copy and do some prototyping with it to see how it might work for database applications.\n\nJames','',0,'GA==','izedorcu',1,0,'',303,0,0),(24716,5590,3,34,0,'68.4.154.81',1168448654,1,0,1,1,1,1,'','Ribbon Control','James,\n\nI\'ll do a search.  Actually I installed the \"Trial\" version after running the beta for several versions.  The trial was on a relatively new machine.  It seemed to install, but I couldn\'t send out any emails, and of course there were no support notes when the install failed.  So I had to uninstall it and go back to a previous version which now has issues.\n\nThose DOS days were so much easier !\n\nI agree that I have mixed feelings but it might be something that could be useful.\n\nTim','',0,'GA==','3fvmhi09',1,0,'',34,0,0),(24717,5581,6,362,0,'200.168.52.156',1168448678,1,0,1,1,1,1,'','','[quote=&quot;dbzap&quot;:ldj5r9rx]Puedes darme algun ejemplo de linkeo ?[/quote:ldj5r9rx]\n\n\nCreo que és este:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=602\">http://www.fivewin.com.br/exibedicas.asp?id=602</a><!-- m -->\n\nMira(ojear), CX.LNK\n\nRegards, saludos.','',0,'gA==','ldj5r9rx',1,0,'',362,0,0),(24718,5581,6,264,0,'200.91.3.10',1168449944,1,0,1,1,1,1,'','','Gracias lo revisare','',0,'gA==','259nwfej',1,0,'',264,0,0),(24719,5596,6,600,0,'80.24.148.32',1168450029,1,0,1,1,1,0,'','Grid en Report','Buenas, quisiera saber si a alguien le ha pasado lo mismo que a mi en los reports.\n\nUtilizo lo siguiente para que los listados aparezcan con lineas verticales y horizontales por cada uno de los registros.\n\noReport:Cellview()\noReport:lSeparator:=.T.\n\nPues bien, mientras que compilando con la version FW24 funciona perfectamente, al compilar en xHarbour/FWH no funciona, a lo más he conseguido poner lineas verticales, pero no logro que salgan los separadores de lineas de report.\n\nUna solución !Por favor!\n\nGracias\nJuan José','',0,'gA==','38zros6w',1,0,'',600,0,0),(24720,5595,20,154,0,'151.81.7.169',1168451290,1,0,1,1,1,1,'','','Per verificare l\'anomalia:\nInserire nel file Combobox.prg:\n[code:1p9j2f9q]DATA &#58;&#58;cSearchKey\n\nMETHOD GotFocus&#40; &#41;\n[/code:1p9j2f9q]\nNel metodo New e Redefine aggiungere:\n[code:1p9j2f9q]   &#58;&#58;cSearchKey &#58;= &quot;&quot;[/code:1p9j2f9q]\ntra le definizioni delle variabili, inserire anche il codice del primo post.\n\ninfine lo si può poi testare con:\n[code:1p9j2f9q]function Main&#40;&#41;\n\n   local oDlg, oSay\n   local oCbx3\n   local cItem3 &#58;= &quot;One&quot;, cItem4 &#58;= &quot;None&quot;\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg\n\n   @ 1,1 COMBOBOX oCbx3 VAR cItem3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      OF oDlg ;\n      ON CHANGE &#40; cItem4 &#58;= cItem3, oSay&#58;Refresh&#40;&#41; &#41; ;\n      VALID &#40; cItem4 &#58;= cItem3, oSay&#58;Refresh&#40;&#41;, &#46;t&#46; &#41;\n\n   @ 3,1 SAY oSay PROMPT cItem4 OF oDlg COLOR &quot;R+/W&quot;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil[/code:1p9j2f9q]\nusando la tastiera mi sposto in alto/basso e la say scrive i valori dell\'array \npremendo invece \"t\" e \"h\" seleziono correttamente Three mentre\nse premo il punto da quel momento se vado su o giù o seleziono una voce con il mouse, la say visualizza la posizione numerica della scelta, la tastiera a parte i cursori non funziona più.\n\nGrazie per i suggerimenti.','',0,'AIA=','1p9j2f9q',1,0,'',154,0,0),(24721,5594,3,303,0,'72.199.41.171',1168452077,1,0,1,1,1,0,'','','Nop,\n\nSearch fwh\\samples for \"richedit\" examples.\n\nSince richedit data is contained in a string var you should be able to just save it to a memo field like any other string.\n\n    @ 0, 0 RICHEDIT oRich VAR cVar\n\n     define button of oBar action ((cAlias)-&gt;notes:= cVar)\n\nJames','',0,'AIA=','dtazj5xo',1,0,'',303,0,0),(24722,5595,20,2,0,'87.218.146.117',1168452271,1,0,1,1,1,1,'','','Ugo,\n\nPlace a MsgInfo( nNewAt ) after       \n\nnNewAT := ascan( ::aItems, {|x| upper(x) = ::cSearchKey} )\n\nand check what value you get when you press a \".\"','',0,'AIA=','1chozs7x',1,0,'',2,0,0),(24723,5597,2,910,0,'200.67.229.251',1168452581,1,0,1,1,1,1,'','Capacitacion sobre Five Win','Soy programador en Clipper, y requiero un curso o que alguien me guie para migrar mis aplicaiones dos a fivewin, gracias por su atencion','',0,'AIA=','b1w7n33l',1,0,'',910,0,0),(24724,5584,7,123,0,'83.53.69.224',1168452699,1,0,1,1,1,0,'','','Hola,\n\nOs dejo una función que devuelve todas las tarjetas y volúmenes de una PDA.\n\n\n[code:fjcpdmh8]function Main&#40;&#41;\n\nLOCAL a\n\na &#58;= PPCSDCARDS&#40;&#41;\n\nAeval&#40;a, &#123;|n | MsgInfo&#40; n &#41; &#125; &#41;\n\nRETURN NIL\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbvm&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n#include &lt;hbapiitm&#46;h&gt;\n#include &quot;wininet&#46;h&quot;\n\n\nHB_FUNC&#40; PPCSDCARDS &#41;\n&#123;\n\n\n\nPHB_ITEM  sdCards;\nPHB_ITEM  sdCard;\nLPSTR     vMsg;\n\nint index;\n\n// Total number of storage cards found&#46;\nint iNumOfFlashCard = 0;\n\n// Maximum number of storage cards to find&#46;\nint iMaxCards = 10;\n// Whether to continue searching after finding a card&#46;\nBOOL bContinue = TRUE;\n// Root directory path of storage cards&#46;\nTCHAR szRootDirPath&#91;MAX_PATH&#93;;\n// String for storing the storage card name with the full path&#46;\nCHAR szSCName&#91;MAX_PATH&#93;;\n// Search handle for storage cards&#46;\nHANDLE hFlashCard;\n// Structure for storing card information&#46;\nWIN32_FIND_DATA *lpwfdFlashCard;\n// Structure for storing card information temporarily&#46;\nWIN32_FIND_DATA *lpwfdFlashCardTmp;\nlpwfdFlashCardTmp = &#40;WIN32_FIND_DATA *&#41; LocalAlloc\n                    &#40;LPTR, iMaxCards * sizeof &#40;WIN32_FIND_DATA&#41;&#41;;\n// Test for failed memory allocation&#46;\nif &#40;lpwfdFlashCardTmp == NULL&#41;\n   return;\nhFlashCard = FindFirstFlashCard &#40;&amp;lpwfdFlashCardTmp &#91;0&#93;&#41;;\nif &#40;hFlashCard == INVALID_HANDLE_VALUE&#41;\n&#123;\n// Free the memory&#46;\n   LocalFree &#40;lpwfdFlashCardTmp&#41;;\n   return;\n&#125;\nwhile &#40;bContinue&#41;\n&#123;\n   iNumOfFlashCard += 1;\n   // Search for the next storage card&#46;\n   bContinue = FindNextFlashCard &#40;hFlashCard,\n               &amp;lpwfdFlashCardTmp &#91;iNumOfFlashCard&#93;&#41;;\n&#125;\n// Close the search handle&#46;\nFindClose &#40;hFlashCard&#41;;\n\nsdCards = hb_itemArrayNew&#40; iNumOfFlashCard &#41; ;\nsdCard  = hb_itemNew&#40; NULL &#41;;\n\nif &#40;iNumOfFlashCard &gt; 0&#41;\n&#123;\n   // Allocate memory for lpwfdFlashCard&#46;\n   lpwfdFlashCard = &#40;WIN32_FIND_DATA *&#41; LocalAlloc\n                    &#40;LPTR, iNumOfFlashCard * sizeof &#40;WIN32_FIND_DATA&#41;&#41;;\n   // Test for failed memory allocation&#46;\n   if &#40;lpwfdFlashCard == NULL&#41;\n   &#123;\n   // Free the temp card memory&#46;\n      LocalFree &#40;lpwfdFlashCardTmp&#41;;\n      return;\n   &#125;\n   // Assign lpwfdFlashCardTmp to lpwfdFlashCard&#46;\n   for &#40;index=0; index &lt; iNumOfFlashCard; ++index&#41;\n   &#123;\n    lpwfdFlashCard &#91;index&#93; = lpwfdFlashCardTmp &#91;index&#93;;\n    vMsg   = WideToAnsi&#40;lpwfdFlashCard&#91;index&#93;&#46;cFileName&#41;;\n    sdCard = hb_itemPutC&#40;NULL, vMsg &#41; ;\n    hb_itemArrayPut&#40; sdCards, index+1, sdCard &#41;;\n    hb_xfree&#40; &#40;void *&#41; vMsg&#41;;\n\n   &#125;\n// Free the memory&#46;\n   LocalFree &#40;lpwfdFlashCard&#41;;\n&#125;\nLocalFree &#40;lpwfdFlashCardTmp&#41;;\n\nhb_itemReturn&#40;sdCards&#41;;\nhb_itemRelease&#40;sdCards&#41;;\nhb_itemRelease&#40;sdCard&#41;;\n&#125;\n\n\n#pragma ENDDUMP[/code:fjcpdmh8]\n\n\nSaludos,\nJosé Luis Capel','',0,'AIA=','fjcpdmh8',1,0,'',123,0,0),(24725,5567,6,217,0,'200.159.120.34',1168453502,1,0,1,1,1,0,'','','Rossine,\n\nVc compilou este exemplo com o xHarbour comercial? \nTeria o arquivo .xbp de exemplo?\n\n[ ]\'s\nMaurilio','',0,'','8597meo1',1,0,'',217,0,0),(24726,5595,20,154,0,'151.81.7.169',1168454610,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2sv4w2ha]Place a MsgInfo( nNewAt ) after       \nnNewAT := ascan( ::aItems, {|x| upper(x) = ::cSearchKey} )\nand check what value you get when you press a \".\"[/quote:2sv4w2ha]\nDear Antonio,\nI press \".\" and do not go in this point but the combobox set the first value and   set the variable to numeric for return the position of array for the actual selection.','',0,'gA==','2sv4w2ha',1,0,'',154,0,0),(24727,5589,2,812,0,'201.236.190.124',1168454965,1,0,1,1,1,0,'','Re: Browse Consulta','Hola:\n\nTe envio un BMP a tu privado, para ver si es lo que necesitas.\n\nSi te sirve, me avisas para enviarte el codigo.\n\nSaludos,\n\nMiguel Rivera\n\n\n[quote=&quot;A&amp;C&quot;:1lkftoue]se puede incluir un bitmap en la cabecera de un Browse o Listbox\no sea en vez de poner un titulo poner un bitmap por titulo\n\nAlguien sabe...\n\n\nGRACIAS[/quote:1lkftoue]','',0,'gA==','1lkftoue',1,0,'',812,0,0),(24728,5589,2,812,0,'201.236.190.124',1168455076,1,0,1,1,1,0,'','Re: Browse Consulta','Disculpa,\n\nNecesito tu correo privado, para enviarte lo que te ofresi.\n\nSaludos,\n\nMiguel\n\n[quote=&quot;A&amp;C&quot;:2dhylhw4]se puede incluir un bitmap en la cabecera de un Browse o Listbox\no sea en vez de poner un titulo poner un bitmap por titulo\n\nAlguien sabe...\n\n\nGRACIAS[/quote:2dhylhw4]','',0,'gA==','2dhylhw4',1,0,'',812,0,0),(24729,5598,2,812,0,'201.236.190.124',1168455751,1,0,1,1,1,0,'','Favor ayuda con un COMBOBOX','Hola Amigos:\n\nTengo un ComboBox, en el cual tengo la variable tipo de Dpto, pera al seleccionar un tipo, este debe sacar y mostrar en las ID 170 cantidad de Dormitorios y en la ID 172 cantidad de baños. Necesito que se puedan actualizar en forma automatica.\n\nEste es el codigo:\n\n     Redefine ComboBox oCod_tip1 Var nTipdep iTems aNomTipdep Id 154 Of oDlgEdit Update  Picture \"999\"  Color \"w+/b*\"\n\n     Redefine Get oCan_dor1 Var Can_dor1 Id 170 Of oDlgEdit Update  Picture \"999\"  Color \"w+/b*\"\n     Redefine Get oCan_ban1 Var Can_ban1 Id 172 Of oDlgEdit Update  Picture \"999\"  Color \"w+/b*\".\n\nEn espera de una pronta ayuda, les saluda,\n\n\nMiguel Rivera','',0,'gA==','1mpty5v6',1,0,'',812,0,0),(24730,5567,6,104,0,'201.58.58.44',1168456180,1,0,1,1,1,0,'','','Olá Maurilio,\n\nSegue abaixo o .xbp que usei para compilar com o xhb:\n\n[code:1id6z6x8]\nCINI = \nC_OUTPUTFOLDER = \nDEFFILE = \nINCLUDEFOLDERS = \nLAUTORUN = \nLDEBUG = &#46;F&#46;\nLGUI = &#46;F&#46;\nLIBFOLDERS = \nLMT = &#46;F&#46;\nLPRG_CLASSICDEBUG = &#46;F&#46;\nLPRG_DEBUG = &#46;F&#46;\nLUSEDLL = &#46;F&#46;\nMAPFILE = \nMYC_FLAGS =  \nMYDEFINES = \nMYLINK_FLAGS = \nMYPRG_FLAGS = \nMYRC_FLAGS = \nMYSLY_FLAGS = \nOUTPUTFOLDER = \nPRG_OUTPUTFOLDER = \nRC_OUTPUTFOLDER = \nRUNARGUMENTS = \nSLY_OUTPUTFOLDER = \nSTARTIN = \nTARGETFOLDER = \n\n&#91;TESTMENU&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;PDMENU&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;MENUITEM&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;MENU&#46;PRG&#93;\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n&#91;GRADFILL&#46;C&#93;\nMYC_FLAGS = \nMYDEFINES = \n\n&#91;MENUS&#46;C&#93;\nMYC_FLAGS = \nMYDEFINES = \n\n&#91;TESTMENU&#46;RC&#93;\nMYDEFINES = \nMYRC_FLAGS = \n[/code:1id6z6x8]\n\nAbraços,\n\nRossine.','',0,'AIA=','1id6z6x8',1,0,'',104,0,0),(24731,5589,2,774,0,'164.77.54.202',1168456337,1,0,1,1,1,1,'','','<!-- e --><a href=\"mailto:leiva_36@hotmail.com\">leiva_36@hotmail.com</a><!-- e -->\n\n\nGracias','',0,'AIA=','2o1ozywq',1,0,'',774,0,0),(24732,5598,2,774,0,'164.77.54.202',1168456550,1,0,1,1,1,1,'','','como dicen una mano lava a la otra y las dos lavan la cara\n\nRedefine ComboBox oCod_tip1 Var nTipdep iTems aNomTipdep Id 154 Of oDlgEdit Update Picture \"999\" Color \"w+/b*\"    ONCHANGE &lt;aca poner la rutina donde hacer los calculos q quieras con la variable del combobox\n\n\n\nojo: debes pasar la variable para q sea visible en la rutina de calculo\n\n\nsi no me explique bien me avisas','',0,'AIA=','1188irv0',1,0,'',774,0,0),(24733,5589,2,812,0,'201.236.190.124',1168458105,1,0,1,1,1,0,'','','Te envie un BMP a tu privado,\n\nSaludos\n\n[quote=&quot;A&amp;C&quot;:1x59skcw]leiva_36@hotmail.com\n\n\nGracias[/quote:1x59skcw]','',0,'gA==','1x59skcw',1,0,'',812,0,0),(24734,5567,6,36,0,'200.113.56.235',1168458887,1,0,1,1,1,0,'','','Ya pude compilar con xHarbour gracias a Arturo Tamayo Daza\n\nbueno el problema estaba en las opción -D(macro) del Bcc32 para compilar los archvos en c\n\nlo que hize fue agregar al archivo bcc32.cfg que se encuentra en la carpeta borland\\bcc55\\bin\n\n[b:2igt3f0h]c:\\borland\\bcc55\\bin\\bcc32.cfg[/b:2igt3f0h]\n[code:2igt3f0h]-IC&#58;\\Borland\\BCC55\\include\n-Ic&#58;\\harbour\\include\n-IC&#58;\\fwh\\include\n-LC&#58;\\Borland\\BCC55\\lib\n-D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF\n[/code:2igt3f0h]\n\n\nSaludos\nPatricio','',0,'QIA=','2igt3f0h',1,0,'',36,0,0),(24735,5589,2,774,0,'200.72.182.116',1168459380,1,0,1,1,1,1,'','','es mas o menos lo q necesito si podrias mandarme el codigo\n\ngracias\n\nlas pantallas las haces manuales o sea con @ 10,10 SAY  algo asi o con recuersos como en archivos .RC o DLL\n\nen todo caso esta super bonita la pantalla del browse','',0,'QIA=','221dm1xw',1,0,'',774,0,0),(24736,5597,2,138,0,'189.141.72.221',1168460921,1,0,1,1,1,1,'','','Nosotros ofrecemos varios cursos sobre FiveWin a distintos niveles.\n\nTenemos mas de 10 años de experiencia en el area de capacitación en Clipper / FiveWin en Mexico.\n\nPuedes contactarnos en <!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w -->','',0,'QIA=','2vjq7f5q',1,0,'',138,0,0),(24737,5567,6,143,0,'72.24.114.13',1168461668,1,0,1,1,1,0,'','','will someone please tell me how to get this in english.\ni can\'t do spanish at all <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'QIA=','32f13ld7',1,0,'',143,0,0),(24738,5589,2,812,0,'201.236.190.124',1168462341,1,0,1,1,1,0,'','','Te envie el Codigo:\n\nConsta de 3 Archivos: 1 Prg, 1 Dll, 1 DBF,\n\nEspero te sirva,\n\nMiguel\n\n    [quote=&quot;A&amp;C&quot;:2c81vfu0]es mas o menos lo q necesito si podrias mandarme el codigo\n\ngracias\n\nlas pantallas las haces manuales o sea con @ 10,10 SAY  algo asi o con recuersos como en archivos .RC o DLL\n\nen todo caso esta super bonita la pantalla del browse[/quote:2c81vfu0]','',0,'gA==','2c81vfu0',1,0,'',812,0,0),(24739,5596,6,838,0,'80.59.225.15',1168462673,1,0,1,1,1,0,'','','Hola Juan José\n\nEl método funciona perfectamente con (x)Harbour. No estarás utilizando un report externo?. \n\nSaludos\n\nJose Luis','',0,'gA==','1bqduimu',1,0,'',838,0,0),(24740,5567,6,376,0,'190.42.33.38',1168463606,1,0,1,1,1,0,'','','It\'s a pity...\n\nIt is very easy... practice, practice, practice ... spanish. So We do with English.\n\nregards\n\n[quote=&quot;Sid Saylors&quot;:32u5pqxu]will someone please tell me how to get this in english.\ni can\'t do spanish at all <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->[/quote:32u5pqxu]','',0,'gA==','32u5pqxu',1,0,'',376,0,0),(24741,5589,2,812,0,'201.236.183.60',1168467780,1,0,1,1,1,0,'','','Avisame, si te llego mi correo con el codigo.\n\nSaludos,\n\nMiguel\n\n[quote=&quot;Miguel Rivera&quot;:2apfk3nb]Te envie el Codigo:\n\nConsta de 3 Archivos: 1 Prg, 1 Dll, 1 DBF,\n\nEspero te sirva,\n\nMiguel\n\n    [quote=&quot;A&amp;C&quot;:2apfk3nb]es mas o menos lo q necesito si podrias mandarme el codigo\n\ngracias\n\nlas pantallas las haces manuales o sea con @ 10,10 SAY  algo asi o con recuersos como en archivos .RC o DLL\n\nen todo caso esta super bonita la pantalla del browse[/quote:2apfk3nb][/quote:2apfk3nb]','',0,'gA==','2apfk3nb',1,0,'',812,0,0),(24742,5594,3,222,0,'201.243.187.168',1168468494,1,0,1,1,1,0,'','Zoom en tRichEdit','Agregando estos métodos a la clase tRichEdit() podrás hacer zoom, pero si usas la versión 5 de riched20.dll.\n\nAdd these methods to tRichEdit() to zoom, but be sure you have riched20.dll version 5 installed.\n\n\nSaludos/Regards\nCésar Lozada\n\n#define EM_GETZOOM  (WM_USER + 224)\n#define EM_SETZOOM  (WM_USER + 225)\n\nMETHOD SetZoom(nZoom)\n  Local nNum:=nZoom, nDen:=100, k //, nOldZoom:=::GetZoom()\n  DEFAULT ::nW0:=::nWidth-20\n  FOR k:=2 to 5 step 3\n    DO WHILE nNum%k=0 .and. nDen%k=0\n      nNum/=k; nDen/=k\n    ENDDO\n  NEXT\n  IF nNum&gt;0 .and. nNum&lt;64 .and. nDen&gt;0 .and. nDen&lt;64\n    ::SetSize(::nW0*nZoom/100+20,::nHeight)\n    ::SendMsg(EM_SETZOOM, nNum, nDen)\n  ENDIF\nreturn nil //nOldZoom\n\nMETHOD GetZoom()\n  Local nZoom,nNum:=0, nDen:=0\n  ::SendMsg(EM_GETZOOM, nNum, nDen)\n  nZoom:=100*nNum/Max(nDen,1)\nreturn nZoom','',0,'gA==','2ktv9u9s',1,0,'',222,0,0),(24743,5567,6,389,0,'189.132.25.99',1168473203,1,0,1,1,1,0,'','Error al compilar','Warning W8069 Source\\MENUS.C 339: Nonportable pointer conversion in function HB_FUN_ATMENUDRAWITEM\n\n\nWarning W8069 Source\\MENUS.C 339: Nonportable pointer conversion in function HB_FUN_ATMENUDRAWITEM\n\nSaludos','',0,'gA==','2etnv3d1',1,0,'',389,0,0),(24744,5594,3,49,0,'62.13.172.78',1168474794,1,0,1,1,1,1,'','','thanks cesar\n\nHow I must call these functions into  testrtf.prg  have you an sample for it ?','',0,'gA==','sxtpzzor',1,0,'',49,0,0),(24745,5599,6,215,0,'189.136.215.186',1168475030,1,0,1,1,1,1,'','Ejemplo Testimg.prg de los samples de fivewin para harbour','Hola foro,\nCompilando el sample testimg.prg que sirve para mostrar imagenes con\nREDEFINE IMAGE oImage....\n\nHe podido mostrar un archivo .tif , estos archivos se obtienen de un scanner de alta velocidad.\nFunciona, pero al usar las barras de scroll para desplazarse por la imagen.. es muuuuuy lento.\nNecesito hacer eso más rápido. Resolviendo este inconveniente ya puedo comenzar un nuevo proyecto.\n\nFwh 2.7 build de mayo 2006 \n\nGracias\nFernando Leal','',0,'gA==','6st4diiy',1,0,'',215,0,0),(24746,5600,3,69,0,'74.13.48.189',1168475043,1,0,1,1,1,0,'','Display Question','Hi Everybody,\n\nThis may seem like an odd question but....\n\nWhen displaying data on a screen in a graphical format I have seen programs that plot a datapoint every second ... for easy math lets say they collected data for one hour (3600 datapoints) and to keep it even easier lets say the data is all the same value. They give you the option to view the data in different time setups:  5 minutes, 30 minutes or all the data at one time.\n\nHere is my question ...\n\nIf you select the option that shows you ALL the data (3600 datapoints) how are they displaying this info on the screen ... \n\nFor example:  On my system I have the screen setup to 1024 x 768.\nThis means I have 1024 pixels I can turn on (in one line).  Since all the datapoints are the same value I should end up with a straight line BUT how can I display more than 1024 datapoints?  \n\nDoes anyone have a clue as to how this is done ?\n\n\nThanks,\n\nJeff','',0,'gA==','1h3uylvc',1,0,'',69,0,0),(24747,5589,2,774,0,'200.72.70.86',1168476193,1,0,1,1,1,1,'','','Miguel el archivo q mandaste no se descarga bien\n\nque usaste para comprimirlos archivos el ARJ,, usa WINZIP\n\nARJ ya no se usa, pues no tendria con que descomprimirlo\n\nGRACIAS ,, me urge el tema\n\nSALUDOS','',0,'gA==','2y7vcl34',1,0,'',774,0,0),(24748,5589,2,812,0,'201.214.35.67',1168478269,1,0,1,1,1,0,'','','Ya no me encuentro en la Oficina, por lo que te envio el descompactador ARJ, Mañana Tipo 15:00, te envio en WINZIP.\n\nSaludos,\n\nMiguel\n\n[quote=&quot;A&amp;C&quot;:10wn4coi]Miguel el archivo q mandaste no se descarga bien\n\nque usaste para comprimirlos archivos el ARJ,, usa WINZIP\n\nARJ ya no se usa, pues no tendria con que descomprimirlo\n\nGRACIAS ,, me urge el tema\n\nSALUDOS[/quote:10wn4coi]','',0,'gA==','10wn4coi',1,0,'',812,0,0),(24749,5568,3,233,0,'60.48.192.123',1168483382,1,0,1,1,1,0,'','','Let\'s say we have a menu defined as below:\n[code:rhwxk6l3]\nMENU oMenu ;\n COLORMENU &#46;&#46;&#46; ;\n COLORBMP &#46;&#46;&#46; ;\n COLORSELECT &#46;&#46;&#46; ;\n COLORSEPARATOR &#46;&#46;&#46; ;\n    MENU &quot;&amp;File ;\n      COLORMENU &#46;&#46;&#46; ;\n      COLORBMP &#46;&#46;&#46; ;\n      COLORSELECT &#46;&#46;&#46; ;\n       COLORSEPARATOR &#46;&#46;&#46; ;\n       MENU &quot;New&quot; ACTION &quot;Open&#40;&#41;&quot;\n       MENU &quot;Close&quot; ACTION &quot;CloseIt&#40;&#41;&quot;\n    ENDMENU\n    MENU &quot;&amp;Edit&quot; ;\n      COLORMENU &#46;&#46;&#46; ;\n      COLORBMP &#46;&#46;&#46; ;\n      COLORSELECT &#46;&#46;&#46; ;\n       &#46;\n       &#46;\n    ENDMENU\nENDMENU [/code:rhwxk6l3]\n\nFrom my tests, it looks like [b:rhwxk6l3]COLORMENU, COLORBMP,[/b:rhwxk6l3] etc need to be defined for every occcurence of [b:rhwxk6l3]MENU[/b:rhwxk6l3]. What could be done so that if the colors are specified at oMenu level, the rest would auto use that color unless it\'s specifically specified?','',0,'QIA=','rhwxk6l3',1,0,'',233,0,0),(24750,5568,3,190,0,'202.65.134.26',1168488885,1,0,1,1,1,0,'','','Mr.Arturo, \n\nI was testing the class.  It is working Ok to the expectaed, execept :\n\na) When I tried to change to prompt of the menu item using  \n    oMenu:SetPrompt(..) or oMenu:cCaption(..) the gradiation effect is\n    lost and the system\'s default gray color with blue highlite is appearing.\n\nb) When the menu are displayed in WIN98 the Hilite bar is painted from \n    the place where the Icon is ended at the right side and the bar is not\n    painted on the icon also.  But is same functionality is working OK in \n    WinXp\n\nc)  In response to Mr.Hua\'s point, I suggest you that,  you can add an\n    additional parameter oMenu:aColorScheme which can be defined by the\n    user only once in his program and is used by the class for all the menus\n    and sub-menus automatically.  Currently I have modified the default  \n    colors in the ::New() method,  with my choice of colors without \n    changing my existing application code.\n\nI Hope you will pay some attention to the above points and post the \nchanges in the class.\n\nThanks to you and once again say that it is an excellent and very much\nneeded class.\n\nRegards, \n\n- Ramesh Babu P','',0,'QIA=','19z585jm',1,0,'',190,0,0),(24751,5577,3,904,0,'196.25.255.210',1168498150,1,0,1,1,1,1,'','','Sorry - typo- I meant to say I could NOT set the ID to 1. Using Pelles C - it reverts to 10 all the time.  Anyway it all worked - thanks everyone.','',0,'QIA=','ahl1p0rp',1,0,'',904,0,0),(24752,5590,3,51,0,'80.122.88.242',1168502027,1,0,1,1,1,0,'','','Hello James,\n\nthere are many parts in Outlook where they have implemented RibbonBar. Everywhere when you click on \"New\": “New message”, “New date”, etc. .\nI am sure Outlook 2008 does have it everywhere.\n\nRibbonBar (FW has it but since a month no further news – why? ) and a Fivewin-browser with more features and also an IDE  are a must for the languages future.\n\nRegards\nOtto','',0,'QIA=','34wkoyde',1,0,'',51,0,0),(24753,5584,7,123,0,'83.53.69.224',1168502216,1,0,1,1,1,0,'','','Hola,\n\nSe me olvidó decir que hay que añadir la librería del vce note_prj.lib al proyecto.\n\nSaludos,\nJosé Luis Capel','',0,'QIA=','cejvq7za',1,0,'',123,0,0),(24754,5601,6,618,0,'212.170.228.69',1168502376,1,0,1,1,1,1,'','algoritmo/función para imprimir cheques/rellenar documentos','Alguien tiene algún esqueleto de función montado para compartir ?','',0,'QIA=','1r4txauf',1,0,'',618,0,0),(24755,5600,3,6,0,'87.3.184.77',1168503553,1,0,1,1,1,1,'','Re: Display Question','There are two choices that come up to my mind:\n\n1. Divide X coords by a factor to keep them in the video range\n\n2. Display the points on a control that can be horizontally scrolled\n\nEMG','',0,'QIA=','23ts5aqk',1,0,'',6,0,0),(24756,5567,6,54,0,'189.132.113.93',1168509885,1,0,1,1,1,1,'','Re: Error al compilar','[quote=&quot;gabo&quot;:3eo1wbpw]Warning W8069 Source\\MENUS.C 339: Nonportable pointer conversion in function HB_FUN_ATMENUDRAWITEM\n\n\nWarning W8069 Source\\MENUS.C 339: Nonportable pointer conversion in function HB_FUN_ATMENUDRAWITEM\n\nSaludos[/quote:3eo1wbpw]\n\nGabo, los warning, aunque molestos, no son impedimiento para que funcione la clase de Arturo, al 100%.\n\nComo dice un amigo, hay que agregar los CAST.\n\njjejjejje','',0,'gA==','3eo1wbpw',1,0,'',54,0,0),(24757,5602,3,904,0,'198.54.202.194',1168512759,1,0,1,1,1,1,'','RUNTIME error on line: ACTIVATE REPORT oRpt','I get a RUNTIME error on line: ACTIVATE REPORT oRpt\n\nError description: Error FiveWin/3  Cannot create Dialog Box: \n                      Resource: PREVIEW_PROC\n\nI\'ve tried code right out of BROWSE.PRG in SOURCE - \n\nWhat am I missing?\n\n[code:16ukbtjq]STATIC PROCEDURE lookup_print&#40; oLbx &#41;\n\n   local oRpt\n   local n\n   Local nRecnum&#58;=RECNO&#40;&#41;\n   local cAlias &#58;= If&#40; oLbx != nil, oLbx&#58;cAlias, Alias&#40;&#41; &#41;\n   REPORT oRpt TITLE &quot;Report&#58; &quot; + cAlias ;\n   HEADER &quot;Date&#58; &quot; + DToC&#40; Date&#40;&#41; &#41; + &quot;, Time&#58; &quot; + Time&#40;&#41; ;\n   FOOTER &quot;Page&#58; &quot; + Str&#40; oRpt&#58;nPage, 3 &#41; ;\n   PREVIEW\n\n   if Empty&#40; oRpt &#41; &#46;or&#46; oRpt&#58;oDevice&#58;hDC == 0\n      return nil\n   endif\n\n   for n = 1 to FCount&#40;&#41;\n      oRpt&#58;AddColumn&#40; TrColumn&#40;&#41;&#58;New&#40; &#123; FInfo1&#40; cAlias, n &#41; &#125;,, ;\n                                      &#123; FInfo2&#40; cAlias, n &#41; &#125;,,,,,,,,,, oRpt &#41; &#41;\n   next\n\n   ENDREPORT\n\n   ACTIVATE REPORT oRpt\n\n   DBGOTO&#40;nRECNUM&#41;\n\n   return nil[/code:16ukbtjq]','',0,'AIA=','16ukbtjq',1,0,'',904,0,0),(24758,5590,3,303,0,'72.199.41.171',1168512970,1,0,1,1,1,0,'','','Otto,\n\n&gt;there are many parts in Outlook where they have implemented RibbonBar. Everywhere when you click on \"New\": “New message”, “New date”, etc. . \n\nThanks for the update. I haven\'t seen the new version, I was just reporting what I had read.\n\nJames','',0,'AIA=','1qrc1i0v',1,0,'',303,0,0),(24759,5584,7,2,0,'87.218.146.117',1168514983,1,0,1,1,1,1,'','','José Luis,\n\ngracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3hta6bx8',1,0,'',2,0,0),(24760,5602,3,2,0,'87.218.146.117',1168515576,1,0,1,1,1,1,'','','Ollie,\n\nYou need to copy FWH\\DLL\\prev32.dll to the same place where your app is','',0,'AIA=','1k4l59k3',1,0,'',2,0,0),(24761,5603,7,123,0,'83.53.69.224',1168516705,1,0,1,1,1,0,'','Comprimir y descomprimir en FWPPC','Hola a todos,\n\nOs dejo dos funciones para la compresión y descompresión de ficheros en la PDA.  \n\nEstas dos funciones utilizan la librería zlibce ([url:39uu1pwh]http&#58;//www&#46;zlib&#46;net[/url:39uu1pwh]) que es de libre uso y distribución (mirad la licencia).\n\nPara compilar las funciones necesitais añadir a vuestro proyecto la librería zlibce.lib.  Además debeis tener accesible en vuestro \'path include\' el fichero #include \"zlib.h\"\n\nPara utilizar estas funciones en vuestra aplicación necesitais copiar el fichero zlibce.dll o bien en la carpeta de la aplicación o bien en la carpeta de windows de la PDA.\n\nAquí: [url:39uu1pwh]http&#58;//www&#46;tenik&#46;co&#46;jp/~adachi/wince/zlibce/index&#46;html[/url:39uu1pwh] podeis bajaros todo lo necesario (es la tercera opción).\n\nSaludos,\nJosé Luis Capel\n\n\n[code:39uu1pwh]function Main&#40;&#41;\n\nLOCAL a\n\n\nIF !Comprime&#40;CurDir&#40;&#41;+&quot;\\module1&#46;prg&quot;,CurDir&#40;&#41;+&quot;\\pepe&#46;zip&quot;&#41;\n   MsgInfo&#40;&quot;Error en compresión&quot;&#41;\nENDIF\n\n\nIF !DesComprime&#40;CurDir&#40;&#41;+&quot;\\pepe&#46;zip&quot;,CurDir&#40;&#41;+&quot;\\modulo2&#46;prg&quot;&#41;\n   MsgInfo&#40;&quot;Error en descompresión&quot;&#41;\nENDIF\n\nRETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;stdio&#46;h&gt;\n#include &lt;fcntl&#46;h&gt;\n#include &lt;assert&#46;h&gt;\n#include &quot;zlib&#46;h&quot;\n\n#define CHUNK 16384\n\n\nint AicomComprime&#40;FILE *source, FILE *dest, int level&#41;;\nint AicomDescomprime&#40;FILE *source, FILE *dest&#41;;\n\nHB_FUNC&#40; COMPRIME &#41;\n&#123;\n\n                int nResult;\n	char * sOrigen;\n	char * sDestino;\n\n	FILE * fOrigen;\n	FILE * fDestino;\n\n	sOrigen  = hb_parc&#40;1&#41;;\n	sDestino = hb_parc&#40;2&#41;;\n\n\n	// Abrimos fichero origen\n	if &#40; &#40;fOrigen = fopen&#40; sOrigen, &quot;r+b&quot; &#41;&#41; == NULL &#41;\n		&#123;\n		hb_retl&#40;FALSE&#41;;\n		return;\n		&#125;\n\n\n\n	// Abrimos fichero destino\n	if &#40; &#40;fDestino = fopen&#40; sDestino, &quot;w+b&quot; &#41;&#41; == NULL &#41;\n		&#123;\n		fclose&#40;fOrigen&#41;;\n		hb_retl&#40;FALSE&#41;;\n		return;\n		&#125;\n\n\n        nResult = AicomComprime&#40;  fOrigen, fDestino, 1 &#41;;\n        switch&#40; nResult &#41;\n        	&#123;\n        	case Z_MEM_ERROR&#58;\n		        hb_retl&#40;FALSE&#41;;\n        		MessageBox&#40;NULL,L&quot;Error Memoria&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n        		break;\n        	case Z_STREAM_ERROR&#58;\n		        hb_retl&#40;FALSE&#41;;\n        		MessageBox&#40;NULL,L&quot;Error Stream&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n        		break;\n        	case Z_VERSION_ERROR&#58;\n		        hb_retl&#40;FALSE&#41;;\n        		MessageBox&#40;NULL,L&quot;Error Version&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n        		break;\n        	case Z_ERRNO&#58;\n		        hb_retl&#40;FALSE&#41;;\n        		MessageBox&#40;NULL,L&quot;Error R/W&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n        		break;\n\n                &#125;\n\n        fclose&#40;fOrigen&#41;;\n        fclose&#40;fDestino&#41;;\n\n\n        hb_retl&#40;TRUE&#41;;\n\n\n&#125;\n\n\nHB_FUNC&#40; DESCOMPRIME &#41;\n&#123;\n                int nResult;\n	char * sOrigen;\n	char * sDestino;\n\n	FILE * fOrigen;\n	FILE * fDestino;\n\n	sOrigen  = hb_parc&#40;1&#41;;\n	sDestino = hb_parc&#40;2&#41;;\n\n\n	// Abrimos fichero origen\n	if &#40; &#40;fOrigen = fopen&#40; sOrigen, &quot;r+b&quot; &#41;&#41; == NULL &#41;\n		&#123;\n		hb_retl&#40;FALSE&#41;;\n		return;\n		&#125;\n\n\n\n	// Abrimos fichero destino\n	if &#40; &#40;fDestino = fopen&#40; sDestino, &quot;w+b&quot; &#41;&#41; == NULL &#41;\n		&#123;\n		fclose&#40;fOrigen&#41;;\n		hb_retl&#40;FALSE&#41;;\n		return;\n		&#125;\n\n\n        nResult = AicomDescomprime&#40;  fOrigen, fDestino &#41;;\n        switch&#40; nResult &#41;\n        	&#123;\n        	case Z_MEM_ERROR&#58;\n        		MessageBox&#40;NULL,L&quot;Error Memoria&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n		        hb_retl&#40;FALSE&#41;;\n        		break;\n        	case Z_STREAM_ERROR&#58;\n        		MessageBox&#40;NULL,L&quot;Error Stream&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n		        hb_retl&#40;FALSE&#41;;\n        		break;\n        	case Z_VERSION_ERROR&#58;\n        		MessageBox&#40;NULL,L&quot;Error Version&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n		        hb_retl&#40;FALSE&#41;;\n        		break;\n        	case Z_ERRNO&#58;\n		        hb_retl&#40;FALSE&#41;;\n        		MessageBox&#40;NULL,L&quot;Error R/W&quot;,L&quot;Zlib&quot;,MB_OK&#41;;\n        		break;\n                &#125;\n\n        fclose&#40;fOrigen&#41;;\n        fclose&#40;fDestino&#41;;\n\n        hb_retl&#40;TRUE&#41;;\n\n\n&#125;\n\n\nint AicomComprime&#40;FILE *source, FILE *dest, int level&#41;\n&#123;\n\n   int ret, flush;\n    unsigned have;\n    z_stream strm;\n    unsigned char in&#91;CHUNK&#93;;\n    unsigned char out&#91;CHUNK&#93;;\n\n    TCHAR szError&#91;512&#93;;\n\n    /* allocate deflate state */\n    strm&#46;zalloc = Z_NULL;\n    strm&#46;zfree = Z_NULL;\n    strm&#46;opaque = Z_NULL;\n    ret = deflateInit&#40;&amp;strm, level&#41;;\n    if &#40;ret != Z_OK&#41;\n        return ret;\n\n\n    /* compress until end of file */\n    do &#123;\n       strm&#46;avail_in = fread&#40;in, sizeof&#40;unsigned char&#41;, CHUNK, source&#41;;\n        if &#40;ferror&#40;source&#41;&#41; &#123;\n            &#40;void&#41;deflateEnd&#40;&amp;strm&#41;;\n            return Z_ERRNO;\n        &#125;\n        flush = feof&#40;source&#41; ? Z_FINISH &#58; Z_NO_FLUSH;\n        strm&#46;next_in = in;\n\n        /* run deflate&#40;&#41; on input until output buffer not full, finish\n           compression if all of source has been read in */\n        do &#123;\n            strm&#46;avail_out = CHUNK;\n            strm&#46;next_out = out;\n            ret = deflate&#40;&amp;strm, flush&#41;;    /* no bad return value */\n            assert&#40;ret != Z_STREAM_ERROR&#41;;  /* state not clobbered */\n            have = CHUNK - strm&#46;avail_out;\n            if &#40;fwrite&#40;out, 1, have, dest&#41; != have || ferror&#40;dest&#41;&#41; &#123;\n                &#40;void&#41;deflateEnd&#40;&amp;strm&#41;;\n                return Z_ERRNO;\n            &#125;\n\n\n       &#125; while &#40;strm&#46;avail_out == 0&#41;;\n        assert&#40;strm&#46;avail_in == 0&#41;;     /* all input will be used */\n\n      /* done when last data in file processed */\n    &#125; while &#40;flush != Z_FINISH&#41;;\n    assert&#40;ret == Z_STREAM_END&#41;;        /* stream will be complete */\n   /* clean up and return */\n    &#40;void&#41;deflateEnd&#40;&amp;strm&#41;;\n    return Z_OK;\n&#125;\n\n\n\n\nint AicomDescomprime&#40;FILE *source, FILE *dest&#41;\n&#123;\n    int ret;\n    unsigned have;\n    z_stream strm;\n    unsigned char in&#91;CHUNK&#93;;\n    unsigned char out&#91;CHUNK&#93;;\n\n\n    /* allocate inflate state */\n    strm&#46;zalloc = Z_NULL;\n    strm&#46;zfree = Z_NULL;\n    strm&#46;opaque = Z_NULL;\n    strm&#46;avail_in = 0;\n    strm&#46;next_in = Z_NULL;\n    ret = inflateInit&#40;&amp;strm&#41;;\n    if &#40;ret != Z_OK&#41;\n        return ret;\n\n\n    /* decompress until deflate stream ends or end of file */\n    do &#123;\n\n        strm&#46;avail_in = fread&#40;in, 1, CHUNK, source&#41;;\n        if &#40;ferror&#40;source&#41;&#41; &#123;\n            &#40;void&#41;inflateEnd&#40;&amp;strm&#41;;\n            return Z_ERRNO;\n        &#125;\n        if &#40;strm&#46;avail_in == 0&#41;\n            break;\n        strm&#46;next_in = in;\n\n        /* run inflate&#40;&#41; on input until output buffer not full */\n        do &#123;\n\n            strm&#46;avail_out = CHUNK;\n            strm&#46;next_out = out;\n            ret = inflate&#40;&amp;strm, Z_NO_FLUSH&#41;;\n            assert&#40;ret != Z_STREAM_ERROR&#41;;  /* state not clobbered */\n            switch &#40;ret&#41; &#123;\n            case Z_NEED_DICT&#58;\n                ret = Z_DATA_ERROR;     /* and fall through */\n            case Z_DATA_ERROR&#58;\n            case Z_MEM_ERROR&#58;\n                &#40;void&#41;inflateEnd&#40;&amp;strm&#41;;\n                return ret;\n            &#125;\n\n\n            have = CHUNK - strm&#46;avail_out;\n            if &#40;fwrite&#40;out, 1, have, dest&#41; != have || ferror&#40;dest&#41;&#41; &#123;\n                &#40;void&#41;inflateEnd&#40;&amp;strm&#41;;\n                return Z_ERRNO;\n            &#125;\n\n\n        &#125; while &#40;strm&#46;avail_out == 0&#41;;\n\n        /* done when inflate&#40;&#41; says it\'s done */\n    &#125; while &#40;ret != Z_STREAM_END&#41;;\n\n    /* clean up and return */\n    &#40;void&#41;inflateEnd&#40;&amp;strm&#41;;\n    return ret == Z_STREAM_END ? Z_OK &#58; Z_DATA_ERROR;\n&#125;\n\n\n\n\n#pragma ENDDUMP[/code:39uu1pwh]','',0,'EIA=','39uu1pwh',1,0,'',123,0,0),(24762,5602,3,904,0,'196.25.255.210',1168516891,1,0,1,1,1,1,'','','Thanks that worked.','',0,'EIA=','2xz981ll',1,0,'',904,0,0),(24763,5567,6,644,0,'201.253.242.29',1168518262,1,0,1,1,1,0,'','','Alguien sabe que modificaciones habría que hacer para que, cuando tengo un item del menú deshabilitado no haya que pasar por él tecleando dos veces. No se si se entiende. Algo así pasaba con los separator. Gracias','',0,'EIA=','18uofhms',1,0,'',644,0,0),(24764,5567,6,36,0,'200.113.56.235',1168518531,1,0,1,1,1,0,'','','para que no salgan los warning en menus.c, gracias a Arturo\n\nen la linea 341 coloca los siguiente\n \n[code:1jwpagwi]if &#40; hBmp &amp;&amp; !&#40;hBmp == 1&#41;&#41; \n cambia  por\nif&#40; hBmp  &amp;&amp; !&#40; &#40;int&#41; hBmp == 1 &#41;  &#41;\n \nen la linea 502 \niMenuInfo&#46;hbrBack = CreatePatternBrush&#40;himage&#41;;\ncambia por \niMenuInfo&#46;hbrBack = CreatePatternBrush&#40;&#40;HBITMAP&#41; himage&#41;;[/code:1jwpagwi]\n\nSaludos\nPatricio','',0,'AIA=','1jwpagwi',1,0,'',36,0,0),(24765,5579,6,237,0,'200.68.70.89',1168519283,1,0,1,1,1,0,'','gracias','Gracias Antonio por la respuesta, me lo imaginaba. \nEl tema es que estoy usando botones de la clase TSButton en las toolbars ( y funcionan  de maravilla), por que tengo asi soporte de menus dropdown y además, estos botones son mucho mas configurables que los que puedo cargar por medio de AddButton(), el único inconveniente es que tengo una ligera diferencia entre el color de los botones y la toolbar.\n\n\nDesde ya muchas gracias.\nAlejandro Cebolido.','',0,'AIA=','36adhep6',1,0,'',237,0,0),(24766,4774,3,319,0,'201.13.35.116',1168519616,1,0,1,1,1,0,'','','Caso vcs precisem me mandem um email para <!-- e --><a href=\"mailto:ronaldo@bazevani.com.br\">ronaldo@bazevani.com.br</a><!-- e -->\n\neu utiliza o Microsoft Word com TWORD  e OpenOffice com TOffice  100%','',0,'AIA=','3gaeoh33',1,0,'',319,0,0),(24767,5604,3,618,0,'212.170.228.69',1168522175,1,0,1,1,1,1,'','create .res files and compile into DLL for load using res://','I searching some app for create a dll file using various .res files created with resourcing tools. for using in html content via res:// protocol','',0,'AIA=','3bb5stcu',1,0,'',618,0,0),(24768,5605,6,439,0,'200.125.45.7',1168523475,1,0,1,1,1,1,'','Buscador no funciona con FWH 6.12 y xHarbour .99.61','Hola,\n\nEste ejemplo de buscador que se compartió en su oportunidad en el foro, me ha dado muchas satisfacciones <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nResulta que ahora al cambiar la versión de FWH (usaba Marzo 2006), no realiza correctamente la búsqueda incremental <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> .\n\nQue es lo que ha cambiado en FWH o en xHarbour <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0251be1978/Buscador.PRG.html\">http://hyperupload.com/download/0251be1 ... r.PRG.html</a><!-- m -->','',0,'AIA=','c2apat7h',1,0,'',439,0,0),(24769,5574,7,2,0,'87.218.146.117',1168524712,1,0,1,1,1,1,'','','Elías, \n\nPor lo visto la DBF se crea pero el campo aparece de tipo \"integer\" al inspeccionarlo con VFP en vez de tipo currency.\n\nPuedes confirmarlo ? gracias,','',0,'AIA=','15z8qhci',1,0,'',2,0,0),(24770,5579,6,2,0,'87.218.146.117',1168524828,1,0,1,1,1,1,'','','Alejandro,\n\nEn las toolbar tienes también soporte de botones con menu dropdown','',0,'AIA=','6f22qccw',1,0,'',2,0,0),(24771,5589,2,774,0,'200.72.182.116',1168525014,1,0,1,1,1,1,'','','Miguel si puedes enviame los archivos sin comprimir ,, claro si es q no pesan mucho..\n\n\nOjo Hotmail encontro un virus en tus envios,, quizas debas revisar tu equipo,, o quizas Hotmail no le gusta tu direccion de Mail,, a veces pasa..\n\nsi puedes enviame tambien es este otro eMail... <!-- e --><a href=\"mailto:ZXZXZX@123MAIL.CL\">ZXZXZX@123MAIL.CL</a><!-- e -->\n\nGRACIAS','',0,'AIA=','3faun2x0',1,0,'',774,0,0),(24772,5589,2,812,0,'201.214.35.67',1168525608,1,0,1,1,1,0,'','','Te los envio a las 15:00, sin comprimir,\n\nSaludos,\n\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:2fhux5hs]Miguel si puedes enviame los archivos sin comprimir ,, claro si es q no pesan mucho..\n\n\nOjo Hotmail encontro un virus en tus envios,, quizas debas revisar tu equipo,, o quizas Hotmail no le gusta tu direccion de Mail,, a veces pasa..\n\nsi puedes enviame tambien es este otro eMail... <!-- e --><a href=\"mailto:ZXZXZX@123MAIL.CL\">ZXZXZX@123MAIL.CL</a><!-- e -->\n\nGRACIAS[/quote:2fhux5hs]','',0,'gA==','2fhux5hs',1,0,'',812,0,0),(24773,5600,3,69,0,'74.13.48.189',1168527011,1,0,1,1,1,0,'','','Hi Enrico,\n\nI tried to display the points on a window with HSCROLL added to the DEFINE... line but nothing happens when I try to scroll.\n\nJeff','',0,'gA==','1d86htx4',1,0,'',69,0,0),(24774,5600,3,6,0,'87.3.184.77',1168527416,1,0,1,1,1,1,'','','You may try drawing the points on a bitmap hDC and then displaying that bitmap on a TBitmap control.\n\nEMG','',0,'gA==','2k96i8w7',1,0,'',6,0,0),(24775,4774,3,435,0,'200.155.202.232',1168527461,1,0,1,1,1,0,'','','Vc tem a classe do Oskar para falar com o Office.br ?','',0,'gA==','109qsqu9',1,0,'',435,0,0),(24776,5579,6,237,0,'200.68.70.89',1168528151,1,0,1,1,1,0,'','?','Con toolbar y rebars? como se hace eso ? \n\nSi estás hablando de de esto:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3516&amp;highlight=dropdown\">http://fivetechsoft.com/forums/viewtopi ... t=dropdown</a><!-- m -->\n\nyo no lo tengo disponible por que tengo el build de junio, o sea que me quedé corto por un mes!!!!\n\nSalu2','',0,'gA==','1opfakj3',1,0,'',237,0,0),(24777,5605,6,891,0,'148.243.37.162',1168529020,1,0,1,1,1,0,'','Re: Buscador no funciona con FWH 6.12 y xHarbour .99.61','[quote=&quot;jose_murugosa&quot;:23fmmvdp]Hola,\n\nEste ejemplo de buscador que se compartió en su oportunidad en el foro, me ha dado muchas satisfacciones <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nResulta que ahora al cambiar la versión de FWH (usaba Marzo 2006), no realiza correctamente la búsqueda incremental <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> .\n\nQue es lo que ha cambiado en FWH o en xHarbour <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0251be1978/Buscador.PRG.html\">http://hyperupload.com/download/0251be1 ... r.PRG.html</a><!-- m -->[/quote:23fmmvdp]\n\nHola Jose, actualizaste tu compilador xHarbour 0.99.70?, probablemente debes actualizar si ya tienes fivewin superior, te dejo el Link\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org/index.asp?page=download/windows/binaries_win\">http://www.xharbour.org/index.asp?page= ... naries_win</a><!-- m -->','',0,'gA==','23fmmvdp',1,0,'',891,0,0),(24778,5590,3,51,0,'80.122.88.242',1168529578,1,0,1,1,1,0,'','','Hello James,\n\nI installed Vista Beta and Office Beta in summer in our office on my wife’s PC.\nIt was the first time I didn’t hear “Why did you change the software?” .\nAlso our own FW-application – still 16 bit – runs stable.\nRegards\nOtto','',0,'gA==','1izv03nb',1,0,'',51,0,0),(24779,5606,3,49,0,'213.82.134.66',1168530015,1,0,1,1,1,1,'','TO PACO : ERROR in VTASKBAR','I use the clausole watermark in a Vmenu\n\n\nwhen I move splitter on left and right  it hide the bitmap \n\nthis error is corrected in old version ...\n\nI hope you correct it ....[/code]','',0,'','20x856rc',1,0,'',49,0,0),(24780,5599,6,138,0,'189.141.72.221',1168532668,1,0,1,1,1,1,'','','Fernando:\n\nUtiliza la clase FreeImage de Enrico, esta utiliza la DLL freeimage.dll que es muchisimo mas rapida que la NVIEWLIB sobre la que esta construida la clase IMAGE de FiveWin.','',0,'','ep4a8434',1,0,'',138,0,0),(24781,5596,6,138,0,'189.141.72.221',1168532735,1,0,1,1,1,1,'','','Me entro la duda cuando lo comentaste.\n\nProbe lo que comentas y hasta la 2.7 funciona sin problema','',0,'','neahq44g',1,0,'',138,0,0),(24782,5589,2,774,0,'200.72.182.116',1168533750,1,0,1,1,1,1,'','','Ok estimado y GRACIAS\n\nAHi te cuento como me va','',0,'','jm5716vb',1,0,'',774,0,0),(24783,5574,7,720,0,'80.36.244.134',1168534027,1,0,1,1,1,0,'','','Antonio, \n\nA mi ni siquiera se me crea la tabla.... me da un error que dice:\n\nOpen error\nstack calls:\nDBUSEAREA(0)\nMAIN(6)\n\nEl codigo que estoy probando es el siguiente:\n\n#include &lt;FWCE.ch&gt;\n\nFUNCTION main()\n\n    dbCreate(CURDIR()+\"\\tst\", {{\"CURR\", \"Y\", 8, 2}})\n    use (CURDIR()+\"\\tst\")\n    append blank\n    replace CURR with 123.45\n    append blank\n    replace CURR with 345.567\n    append blank\n    replace CURR with 356.78901\n    append blank\n    replace CURR with 789.456789\n    close\n\nRETURN nil\n\nSaludos\n\nElías Torres','',0,'','10swpez9',1,0,'',720,0,0),(24784,4744,4,49,0,'213.82.134.66',1168537879,1,0,1,1,1,1,'','','Antonio,\nAre compatibles with fwppc these model  ?\n\n Qtek 9100\n Qtek 9000\n HTC S620\n HTC P4350\nTyTN di HTC\n\n to information see <!-- m --><a class=\"postlink\" href=\"http://www.europe.htc.com/products/htctytn.html?lang=en\">http://www.europe.htc.com/products/htctytn.html?lang=en</a><!-- m -->','',0,'','bvghrykg',1,0,'',49,0,0),(24785,5453,6,278,0,'164.77.219.232',1168538270,1,0,1,1,1,1,'','','Gracias JC , lo voy a hacer asi.\n\nJuan','',0,'','1yzj9bao',1,0,'',278,0,0),(24786,5581,6,492,0,'189.147.32.43',1168539306,1,0,1,1,1,1,'','','Hola Julio\n\nLo que quieres hacer, es posible usando este programita :\n\nAppPackager en : <!-- m --><a class=\"postlink\" href=\"http://www.atma-software.com/apppackager/index.html\">http://www.atma-software.com/apppackager/index.html</a><!-- m -->\n\n\nTe permite incrustar todo tipo de archivos, incluyendo dlls y ocxs, mismos que tiene la opcion para registrarlos de manera automatica.\n\nEn mis pruebas, le meti un jpg de mas de 4 mb y se lo chupo como si nada.\n\nOtra caracteristica que me parecio estupenda, es que puedes configurar en que carpeta se graban los archivos incrustados, y si quieres que se eliminen o permanezcan al momento de cerrar el ejecutable.\n\nEn mi opinion, esta super este programita y realmente no esta nada caro, solo 24 dolares.\n\n\nEspero sea lo que necesitas.\n\nSaludos\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','2gm42o0o',1,0,'',492,0,0),(24787,5601,6,492,0,'189.147.32.43',1168539919,1,0,1,1,1,1,'','','Hola Juanato\n\nYo lo he usado de esta manera :\n\n[img:1acu7s5s]http&#58;//img118&#46;imageshack&#46;us/img118/1378/cfgchqsnu4&#46;jpg[/img:1acu7s5s]\n\n\nSupongo, que no ha de haber mucha diferencia de datos entre los cheques de España y los de Mexico  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEs algo sencillo, pero me ha funcionado  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'CA==','1acu7s5s',1,0,'',492,0,0),(24788,5589,2,812,0,'201.236.185.76',1168540135,1,0,1,1,1,0,'','','Amigo:\n\nLe he enviado 4 archivos a los 2 correos que me haz indicado, espero te sirva, me cuentas.\n\nSaludos,\n\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:nljcmoq4]Ok estimado y GRACIAS\n\nAHi te cuento como me va[/quote:nljcmoq4]','',0,'gA==','nljcmoq4',1,0,'',812,0,0),(24789,5589,2,774,0,'200.72.182.116',1168541733,1,0,1,1,1,1,'','','Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG \npodrias mandarme los archivos fuente porfi\n\npara ve el codigo\n\nGracias','',0,'gA==','3ywjnbqq',1,0,'',774,0,0),(24790,5607,6,104,0,'201.58.30.224',1168541967,1,0,1,1,1,0,'','Erro ao compilar WEBCAM32.PRG','Olá Pessoal,\n\nEstou tentando compilar o programa WEBCAM32.PRG com xharbour e me ocorre os erros abaixo:\n\n[code:69s5mr6e]\nxLINK&#58; error&#58; Unresolved external symbol \'_HB_FUN__OBJNEWCLS\'&#46;\nxLINK&#58; error&#58; Unresolved external symbol \'_HB_FUN__OBJADDMET\'&#46;\nxLINK&#58; error&#58; Unresolved external symbol \'_HB_FUN_OBJSETUSERDATA\'&#46;\nxLINK&#58; error&#58; Unresolved external symbol \'_HB_FUN__OBJCLSINS\'&#46;\nxLINK&#58; fatal error&#58; 4 unresolved external&#40;s&#41;&#46;\n[/code:69s5mr6e]\n\nAlguém sabe como resolver isto ?\n\nObrigado,\n\nRossine.','',0,'AIA=','69s5mr6e',1,0,'',104,0,0),(24791,5589,2,812,0,'201.236.185.76',1168542460,1,0,1,1,1,0,'','','Fue, una volada, no me fije en la extencion, pero ya estan en tu correo.\n\nDisculpa,\n\nMiguel\n\n[quote=&quot;A&amp;C&quot;:1w01nhfn]Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG \npodrias mandarme los archivos fuente porfi\n\npara ve el codigo\n\nGracias[/quote:1w01nhfn]','',0,'gA==','1w01nhfn',1,0,'',812,0,0),(24792,5601,6,376,0,'190.42.32.199',1168542531,1,0,1,1,1,1,'','','Raymundo\n\nQué herrramienta usas para hacer tan bonitos a tus dialogos? Donde lo conseguiste? Supongo que no es WorkShop...\n\nSaludos\n\nArmando\n\n\n[quote=&quot;Raymundo Islas M.&quot;:13r5yc9t]Hola Juanato\n\nYo lo he usado de esta manera :\n\n[img:13r5yc9t]http&#58;//img118&#46;imageshack&#46;us/img118/1378/cfgchqsnu4&#46;jpg[/img:13r5yc9t]\n\n\nSupongo, que no ha de haber mucha diferencia de datos entre los cheques de España y los de Mexico  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEs algo sencillo, pero me ha funcionado  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos[/quote:13r5yc9t]','',0,'iA==','13r5yc9t',1,0,'',376,0,0),(24793,5505,3,289,0,'82.167.47.118',1168542950,1,0,1,1,1,0,'','','The amendment is required \nLOCAL CDBURN:=CD_Burning()+\"\\*.*\",file_c:=\"c:\\*.*\"\nCOPY file_c  TO &amp;CDBURN\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'iA==','2t9ycks0',1,0,'',289,0,0),(24794,5608,2,891,0,'148.243.37.162',1168544370,1,0,1,1,1,0,'','Hola Antonio','Hola Antonio, como esta, para cuando saldra nuevas actualizaciones mejoras y novedades de FiveWin\nAtte: Adriano','',0,'iA==','30r792ex',1,0,'',891,0,0),(24795,5609,6,891,0,'148.243.37.162',1168544584,1,0,1,1,1,0,'','Hola Antonio','Hola Antonio como esta, pregunta, para cuando saldra nuevas actualizaciones mejoras y novedades de FiveWin.\nAtte: Adriano','',0,'iA==','1jpuyecq',1,0,'',891,0,0),(24796,5601,6,492,0,'189.147.32.43',1168544701,1,0,1,1,1,1,'','','Que tal Armando\n\nEl \"culpable\" es el Object DeskTop de StarDock.\n\n\nCon eso puedes cambiar la apariencia de Windows, y de paso a todas tus apps usando temas, iconos, etc.\n\n\nEsta excelente !!!\n\n\nSaludos','',0,'iA==','qp4f9vhi',1,0,'',492,0,0),(24797,5589,2,812,0,'201.236.185.76',1168545540,1,0,1,1,1,0,'','','Como te han llegado?\n\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:1m0zmup7]Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG \npodrias mandarme los archivos fuente porfi\n\npara ve el codigo\n\nGracias[/quote:1m0zmup7]','',0,'gA==','1m0zmup7',1,0,'',812,0,0),(24798,5596,6,600,0,'84.123.222.86',1168545738,1,0,1,1,1,0,'','','El problema radica en la utilización de la libreria externa para la conversión de Report a Excel \"REPEXCEL.LIB\".\nEfectivamente si la quito funciona perfectamente. La solucion que he encontrado es esta:\n\n        oReport:CellView()\n        oReport:lSeparator := .T.\n\n        ACTIVATE REPORT oReport ;\n                 ON CHANGE oReport:Separator()\n\nGracias\njuan José','',0,'gA==','3hzzusko',1,0,'',600,0,0),(24799,4744,4,2,0,'87.218.146.117',1168546195,1,0,1,1,1,1,'','','Silvio,\n\nPlease check what micros (CPU) they have, and let us know them','',0,'gA==','1qy5gbkl',1,0,'',2,0,0),(24800,5574,7,2,0,'87.218.146.117',1168546390,1,0,1,1,1,1,'','','Elías,\n\nSí se crea, lo que ocurre es que si no especificas CurDir() + \"\\tst\" entonces se crea en el directorio raiz del Pocket PC','',0,'gA==','2ysewuun',1,0,'',2,0,0),(24801,5609,6,2,0,'87.218.146.117',1168546487,1,0,1,1,1,1,'','','Adriano,\n\nCada mes publicamos nuevos builds, es nuestro compromiso de ofrecer lo más reciente y actualizado.\n\nEste mes posiblemente publicaremos a mediados de mes, dentro de unos días','',0,'gA==','e1ezonmw',1,0,'',2,0,0),(24802,5579,6,2,0,'87.218.146.117',1168546601,1,0,1,1,1,1,'','','Alejandro,\n\nNosotros ofrecemos dos meses de actualizaciones gratuitas a partir de la fecha de compra ó actualización. Es algo que indicamos claramente cuando se procesa un pedido','',0,'gA==','2jbewqyp',1,0,'',2,0,0),(24803,5608,2,2,0,'87.218.146.117',1168546686,1,0,1,1,1,1,'','','Adriano, \n\nCada mes publicamos nuevos builds, es nuestro compromiso de ofrecer lo más reciente y actualizado. \n\nEste mes posiblemente publicaremos a mediados de mes, dentro de unos días','',0,'gA==','14ho20cd',1,0,'',2,0,0),(24804,5579,6,237,0,'200.68.70.89',1168547124,1,0,1,1,1,0,'','Antonio','Efectivamente me quedé corto, mi compra fue el dia 20/04/2006.\n\nMuchos saludos, Alejandro.','',0,'gA==','3ro1wo1z',1,0,'',237,0,0),(24805,4774,3,75,0,'81.36.248.188',1168547576,1,0,1,1,1,0,'','','I only need to save the file with a given name, don´t need to show the excel sheet.\n\nThe above first sample give me error in line: oHoja:End()\n\nPlease how to do that.','',0,'gA==','21shxlnj',1,0,'',75,0,0),(24806,5610,2,376,0,'190.42.32.199',1168548726,1,0,1,1,1,1,'','FW24 VS FWH24','Alguien puede explicar qué diferencias hay entre FW24 y FWH24?. \n\nYo vengo utilizando FWH24 desde hace tiempo pero recientemente me encontré con algunos amigos que utilizan solo FW24 (no utilizan xHarbour ni Harbor para nada). \n\nEntonces; FW24 opera solamente en 16 bits? o también en 32 bits? Es que por desconocimiento estos amigos aún no utilizan (x)Harbour?.\n\nSi alguien del foro tiene a bien hacerme una explicacion sería bien agradecido.\n\nArmando','',0,'gA==','5t8bgar5',1,0,'',376,0,0),(24807,5609,6,891,0,'148.243.37.162',1168549116,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:avuut06j]Adriano,\n\nCada mes publicamos nuevos builds, es nuestro compromiso de ofrecer lo más reciente y actualizado.\n\nEste mes posiblemente publicaremos a mediados de mes, dentro de unos días[/quote:avuut06j]\n\nGracias Antonio.','',0,'gA==','avuut06j',1,0,'',891,0,0),(24808,5587,3,131,0,'83.36.188.188',1168550402,1,0,1,1,1,0,'','','Silvio: \nI\'ve sent you my classes by mail. The only modification is on the method paint of the tmsegitem class:\n\n[code:35djm7dq]   DrawMsgItem&#40; hDC, &#58;&#58;cMsg,;\n                &#123; 5, nLeft + nBmpWidth - 4, &#58;&#58;oMsgBar&#58;nHeight-6, nLeft + &#40; &#58;&#58;nWidth - 7 &#41; &#125;,;\n                If&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;,;\n                &#58;&#58;nClrPane, &#58;&#58;oFont&#58;hFont &#41;\n   //WndBoxIn&#40; hDC, 0, nLeft - 9, &#58;&#58;oMsgBar&#58;nHeight, nLeft - 8 &#41;\n   //WndBoxRaised&#40; hDC, 0, nLeft - 8, &#58;&#58;oMsgBar&#58;nHeight, nLeft + &#58;&#58;nWidth - 5 &#41;\n   //WndBoxIn&#40; hDC, 0, nLeft - 9, &#58;&#58;oMsgBar&#58;nHeight, nLeft - 8 &#41;\n   WndBoxIn&#40; hDC, 0, nLeft - 8, &#58;&#58;oMsgBar&#58;nHeight - 1, nLeft - 7 &#41;[/code:35djm7dq]\n\nRegards,','',0,'AIA=','35djm7dq',1,0,'',131,0,0),(24809,4774,3,343,0,'204.57.111.194',1168550406,1,0,1,1,1,0,'','',':end() no longer used when using xHarbour.','',0,'AIA=','3vbasqec',1,0,'',343,0,0),(24810,5610,2,138,0,'189.141.72.221',1168550893,1,0,1,1,1,1,'','','El FW24 es para Clipper 16 bits.\n\nEl FWH es para Harobur, 32 bits.\n\nEn todas las distirbuciones de FiveWin Harbour vienen incluidos los 2 productos, FiveWin 16 bits y FiveWin Harbour 32 bits. \n\nQuiza tus amigos compraron FiveWin \"a secas\" que no incluye la versin de 32 bits.\n\nAunque parezca increible, hay mucha gente que aun utiliza los 16 bits y versiones de FW tan antiguas como la 1.95.\n\nPero Windows vista va a forzar a mucha gente a actualizarse.','',0,'AIA=','14xdqkht',1,0,'',138,0,0),(24811,4744,4,138,0,'189.141.72.221',1168550953,1,0,1,1,1,1,'','','I have a Qtek 9100 and works great with FWPCC','',0,'AIA=','pkghm1kp',1,0,'',138,0,0),(24812,5589,2,812,0,'201.236.185.76',1168553440,1,0,1,1,1,0,'','','Bueno Amigo:\n\nNunca supe como te llego, pero por hoy ya me marcho de la oficina.\n\nNos vemos,\n\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:19pqjn8j]Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG \npodrias mandarme los archivos fuente porfi\n\npara ve el codigo\n\nGracias[/quote:19pqjn8j]','',0,'gA==','19pqjn8j',1,0,'',812,0,0),(24813,4744,4,49,0,'62.13.172.78',1168558528,1,0,1,1,1,1,'','','thank Mr Flores...','',0,'gA==','2pgs2a2k',1,0,'',49,0,0),(24814,5587,3,49,0,'62.13.172.78',1168558618,1,0,1,1,1,1,'','','thanks Josè','',0,'gA==','39ylcil8',1,0,'',49,0,0),(24815,5611,3,49,0,'62.13.172.78',1168562331,1,0,1,1,1,1,'','Xbrowse config','How I can create a config of colums of xbrowse and save the state ?','',0,'gA==','34j9ptet',1,0,'',49,0,0),(24816,5612,3,487,0,'151.42.118.236',1168565530,1,0,1,1,1,0,'','100% cpu when printing','Hi All,\n\nthe sample below puts the CPU at 100% with FWH 27 (March 06) - xH 0.99.60 - Bcc 5.5\nThe time consuming process is not \"oPrn:Say()\", but \"PAGE/ENDPAGE\"\n\nDoes this happens with latest FWH also ?\nHow can this be solved ?\n\nThanks,\nDavide\n\n[code:1x6800o6]\n#include &quot;Fivewin&#46;ch&quot;\n\nfunction Main&#40;&#41;   // Test 100% CPU\nLocal oPrn,i\n\nPRINT oPrn NAME &quot;Test&quot; FROM USER PREVIEW\nif Empty&#40; oPrn&#58;hDC &#41; ; return nil ; endif\n\n  For i &#58;= 1 to 5000                                   \n    SysRefresh&#40;&#41;      // This does not help                                       \n    PAGE                                                \n      oPrn&#58;Say&#40; 100, 100, Str&#40;i&#41; &#41; \n    ENDPAGE\n  Next i                                                 \n\nENDPRINT\nReturn nil\n[/code:1x6800o6]','',0,'AIA=','1x6800o6',1,0,'',487,0,0),(24817,5589,2,774,0,'200.72.70.161',1168566341,1,0,1,1,1,1,'','','Bueno amigo ,, te cuento me      llegaron perfectos y me ayudo mucho para lo que tenia que hacer \n\nmuchas GRACIAS','',0,'AIA=','3jqzfh3z',1,0,'',774,0,0),(24818,5610,2,774,0,'200.72.70.161',1168566495,1,0,1,1,1,1,'','','yo tengo FWH24 pero lo uso solo en 16 bits\n\ncomo le hago en 32 bits \n\nalguien me puede explicar con peras y manzanas\n\nGRACIAS','',0,'AIA=','2iqs4l1k',1,0,'',774,0,0),(24819,5606,3,28,0,'213.27.201.254',1168589568,1,0,1,1,1,0,'','','ok. I\'ll see it. Thank you','',0,'AIA=','thyap9w0',1,0,'',28,0,0),(24820,5612,3,6,0,'82.59.197.93',1168589898,1,0,1,1,1,1,'','Re: 100% cpu when printing','Try using\n\n[code:3utylkn5]HB_IdleSleep&#40; 0&#46;001 &#41;[/code:3utylkn5]\n\ninstead of SysRefresh(). Anyway the process will be slowed down and I don\'t know if it worth the while.\n\nEMG','',0,'AIA=','3utylkn5',1,0,'',6,0,0),(24821,5612,3,487,0,'151.42.118.236',1168590797,1,0,1,1,1,0,'','Re: 100% cpu when printing','Enrico,\n[quote:3vke38sd]Try using HB_IdleSleep( 0.001 )[/quote:3vke38sd]\nDoes this means that latest FWH do have the same behaviour ?\n\nHB_IdleSleep() is not applicable because the sample runs for 2 minutes instead of 10 seconds. \n\nThank you,\nDavide','',0,'gA==','3vke38sd',1,0,'',487,0,0),(24822,5612,3,6,0,'82.59.197.93',1168591395,1,0,1,1,1,1,'','Re: 100% cpu when printing','[quote=&quot;Davide&quot;:213dg0tg]Enrico,\n[quote:213dg0tg]Try using HB_IdleSleep( 0.001 )[/quote:213dg0tg]\nDoes this means that latest FWH do have the same behaviour ?[/quote:213dg0tg]\n\nYes.\n\n[quote=&quot;Davide&quot;:213dg0tg]HB_IdleSleep() is not applicable because the sample runs for 2 minutes instead of 10 seconds.[/quote:213dg0tg]\n\nTry Sleep( 1 ).\n\n[code:213dg0tg]#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; SLEEP &#41;\n&#123;\n    Sleep&#40; hb_parnl&#40; 1 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:213dg0tg]\n\nEMG','',0,'gIA=','213dg0tg',1,0,'',6,0,0),(24823,5613,3,282,0,'210.72.235.124',1168594261,1,0,1,1,1,0,'','Link resources file problem','Dear all\n\nI just upgrade from FWH 2.4 + Harbour 4.20 + BCC55 to FWH 2006-DEC + \nxHarbour .99.61 + BCC55\n\nbut I have a problem when I iLink the resources ( XX.res convert from XX.rc \nwith Borland WorkShop 4.5)\n\nThe error message is \"contain invalid OMF record, type 0x00\"\n\nI have already recompiled all my source files with xHarbour .99.61\n\nThe link is OK when FWH 2.4 + Harbour 4.20 + BCC55\n\n\nAnyone Help !\n\n\nBest regards\n\n\nDixon Chu','',0,'gIA=','31hmdq7b',1,0,'',282,0,0),(24824,5574,7,720,0,'80.36.244.134',1168594851,1,0,1,1,1,0,'','','Antonio, \nefectivamente coloco el curdir() +\"\\tst\" pero no me crea la tabla... no se porque... En cambio si pruebo a cambiarle el tipo de campo, por ejemplo a numerico, entonces si me crea la tabla...Ha cambiado el compilador?? Me comentas que a ti ahi si te funciona, entonces, que tengo yo diferente??\n\n\nSaludos.\n\nElías Torres.','',0,'gIA=','1ggwmqbo',1,0,'',720,0,0),(24825,5574,7,2,0,'87.218.146.117',1168601924,1,0,1,1,1,1,'','','Elías,\n\nEstás usando el build de Harbour que te enviamos por email ?','',0,'gIA=','veixm954',1,0,'',2,0,0),(24826,4235,2,774,0,'200.72.182.116',1168605341,1,0,1,1,1,1,'','','lo mismo me gustaria saber a mi\n\nANTONIO SABES TU\n\nO DE FRENTON NO SE PUEDE','',0,'gIA=','2ofniu7a',1,0,'',774,0,0),(24827,5614,3,282,0,'61.149.79.151',1168606981,1,0,1,1,1,0,'','rebuild fivehmx.lib and fivehcm.lib for VC++ 2005 (MSVC 8)','how to rebuild  FWH 2006 DEC  fivehmx.lib and fivehcm.lib with VC++ 2005 (MSVC <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> and xHarbour \n\nbest regards  \n\nDixon Chu','',0,'gIA=','17h8n8gf',1,0,'',282,0,0),(24828,5606,3,137,0,'151.38.8.195',1168607137,1,0,1,1,1,0,'','','I\'ve the same problem.\n\nPaco, do you remember me?\n\nRegards,\nRoberto Parisi','',0,'gIA=','3het8k91',1,0,'',137,0,0),(24829,5574,7,720,0,'80.36.244.134',1168608337,1,0,1,1,1,0,'','','Antonio,\n\ndisculpa por mi despiste...Se conoce que cuando nos actualizamos a la nueva versión de FWPPC sustitui el build de Harbour que me habias mandado. Lo he rescatado del correo y lo he vuelto a instalar y...ahora si!!\n\nUna curiosidad solamente...cuando crea la tabla, esta la crea como entero y no como currency...¿Puede haber alguna solución al respecto?\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'gIA=','12k8ps2n',1,0,'',720,0,0),(24830,5615,3,529,0,'200.159.198.39',1168608679,1,0,1,1,1,0,'','show line number in memo edit','hi, i need show line and columm with an memoedit, i already make this in format get, but in memo normal i dont know, someone can help me?','',0,'gIA=','7n8x8hl5',1,0,'',529,0,0),(24831,5614,3,2,0,'87.218.146.117',1168609839,1,0,1,1,1,1,'','','Dixon,\n\nWhy do you need to rebuild it ?','',0,'gIA=','3ff4v5lw',1,0,'',2,0,0),(24832,5574,7,2,0,'87.218.146.117',1168609900,1,0,1,1,1,1,'','','Elías,\n\nHay que comentárselo a Przemek en la lista de correo de Harbour','',0,'gIA=','196rq4wh',1,0,'',2,0,0),(24833,4235,2,2,0,'87.218.146.117',1168610001,1,0,1,1,1,1,'','','FW no proporciona esa capacidad por defecto, pero puede implementarse modificando el código que muestra los tooltips, en la clase TWindow','',0,'gIA=','1hl2d282',1,0,'',2,0,0),(24834,5616,7,893,0,'80.34.86.46',1168610625,1,0,1,1,1,0,'','Ayuda-&gt;Problema en browse con variables.','Un problema:\n\nSi quiero hacer un browse con los campos a visualizar que sean variables, aprace el contenido todo el blanco.\nNo se si estoy haciendo algo erróneo. \nGracias de antemano.\n\nEj  NO funciona:\n@ 1.65, 0.5 LISTBOX oBrw FIELDS (lpCampo1),(lpCampo2),(lpCampo3)...\n\nen cambio, si funciona:\n@ 1.65, 0.5 LISTBOX oBrw FIELDS codigo,nombre1,nombre2...','',0,'gIA=','2qcww8pr',1,0,'',893,0,0),(24835,5615,3,6,0,'87.6.210.79',1168612843,1,0,1,1,1,1,'','Re: show line number in memo edit','[quote=&quot;Nop&quot;:1mkq5jby]hi, i need show line and columm with an memoedit, i already make this in format get, but in memo normal i dont know, someone can help me?[/quote:1mkq5jby]\n\nTry\n\n[code:1mkq5jby]oGet&#58;GetRow&#40;&#41;\noGet&#58;GetCol&#40;&#41;[/code:1mkq5jby]\n\nEMG','',0,'gIA=','1mkq5jby',1,0,'',6,0,0),(24836,5615,3,529,0,'200.159.198.39',1168614792,1,0,1,1,1,0,'','','Enrico, thanks, in format use i use:\n\noFGet:bLocate := {| nRow, nCol | oMsgItem:SetText( \"Lin: \" + Str( nRow, 4 ) + \"    \" +  \"Col: \" + Str( nCol, 4 ) ) }\n\nthis is can adapted to memo get? thanks','',0,'gIA=','2m4pucne',1,0,'',529,0,0),(24837,5610,2,376,0,'201.230.151.102',1168614833,1,0,1,1,1,1,'','','Significa que en Windows Vista no va a correr FW24 por ser 16 bits? y FWH24 si por ser 32? o que todos tenemos que actualizar a FW64?.\n\nEl tema se complica... necesitamos màs explicaciones !!!\n\n\n[quote=&quot;RF&quot;:3bz9fh7e]El FW24 es para Clipper 16 bits.\n\nEl FWH es para Harobur, 32 bits.\n\nEn todas las distirbuciones de FiveWin Harbour vienen incluidos los 2 productos, FiveWin 16 bits y FiveWin Harbour 32 bits. \n\nQuiza tus amigos compraron FiveWin \"a secas\" que no incluye la versin de 32 bits.\n\nAunque parezca increible, hay mucha gente que aun utiliza los 16 bits y versiones de FW tan antiguas como la 1.95.\n\nPero Windows vista va a forzar a mucha gente a actualizarse.[/quote:3bz9fh7e]','',0,'gA==','3bz9fh7e',1,0,'',376,0,0),(24838,5617,3,529,0,'200.159.198.39',1168614920,1,0,1,1,1,0,'','sample of richedit - urgente','hi, in samples of fwh, has an little sample of richedit, i need an more complex, using fields memo of database , not files, someone has one? thanks','',0,'gA==','3tdx9unm',1,0,'',529,0,0),(24839,5618,2,812,0,'200.83.124.18',1168614987,1,0,1,1,1,0,'','Como Moficiar los Colores en un LISTBOX.','Hola Amigos:\n\nNecesito poder modificar los colores que trae el LISTBOX por cada registro, el que uso tiene como base el AZUL.\n\n1. Se puede Cambiar el color y como\n\n2. El Browse tiene un Filtro?\n\nDesde ya muchas gracias.\n\nSaludos,\nMiguel','',0,'gA==','2kc3n5wa',1,0,'',812,0,0),(24840,5610,2,376,0,'201.230.151.102',1168615271,1,0,1,1,1,1,'','','Y còmo lo haces? Desde que adquirimos FWH24 nos pareciò que sòlo estaba encaminado a utilizar (x)Harbour y nunca se nos ocurrió utilizar Clipper como compilador en esta versión. \n\nPara Clipper, particularmente yo vengo utilizando mi viejíssssssimo FW20d que me funciona bien (claro que a veces me faltan algunas rutinas que sólo existen para xHarbour) con Blinker.\n\n[quote=&quot;A&amp;C&quot;:3a7ivqdh]yo tengo FWH24 pero lo uso solo en 16 bits\n\ncomo le hago en 32 bits \n\nalguien me puede explicar con peras y manzanas\n\nGRACIAS[/quote:3a7ivqdh]','',0,'gA==','3a7ivqdh',1,0,'',376,0,0),(24841,5610,2,376,0,'201.230.151.102',1168615646,1,0,1,1,1,1,'','','El tema es sencillo...\n\nNecesitas Harbour o xHarbour (este ultimo adecuado para FWH24 porque razones de compatibilidad), tambien requieres el BCC55 y cualquiera de los makers que existen (VERCE, xMate, xDB, etc... ) o un Bat que tenemos para generar los ejecutables.\n\nSolo es cosa de ir acomodándose a la forma que te convenga.\n\n[quote=&quot;A&amp;C&quot;:etgoronv]yo tengo FWH24 pero lo uso solo en 16 bits\n\ncomo le hago en 32 bits \n\nalguien me puede explicar con peras y manzanas\n\nGRACIAS[/quote:etgoronv]','',0,'gA==','etgoronv',1,0,'',376,0,0),(24842,5615,3,6,0,'87.6.210.79',1168616121,1,0,1,1,1,1,'','','[quote=&quot;Nop&quot;:3bds9fbq]Enrico, thanks, in format use i use:\n\noFGet:bLocate := {| nRow, nCol | oMsgItem:SetText( \"Lin: \" + Str( nRow, 4 ) + \"    \" +  \"Col: \" + Str( nCol, 4 ) ) }\n\nthis is can adapted to memo get? thanks[/quote:3bds9fbq]\n\nWhat is locate event?\n\nEMG','',0,'gA==','3bds9fbq',1,0,'',6,0,0),(24843,5615,3,529,0,'200.159.198.39',1168616613,1,0,1,1,1,0,'','','i dont know, i see in a sample of format get, i need an way to show line , and columm when user movimente the cursor in memo. like an notepad. thanks again','',0,'gA==','1oisyd85',1,0,'',529,0,0),(24844,5615,3,529,0,'200.159.198.39',1168616723,1,0,1,1,1,0,'','','or maybe, use richedit in memofields, this is possible? i need like an notepad im memo files, showing the line and columm of cursor. thanks','',0,'gA==','1q179mj3',1,0,'',529,0,0),(24845,5619,6,743,0,'200.67.230.223',1168618861,1,0,1,1,1,0,'','TReg32 urgente???','Saludos, estoy algo atorado, mi siguiente duda es la siguiente, por medio de la clase treg32 quiero eliminar la entrada en el registro de windows, pero no se como, alguien sabe como, o tiene un ejemplo\n\n\ngracias\n\n\nantonio díaz','',0,'gA==','20yeuqz3',1,0,'',743,0,0),(24846,5589,2,812,0,'200.83.124.18',1168618888,1,0,1,1,1,0,'','','Hola:\n\nDisculpa que te moleste, necesito consultarte algo ya que en foro no me han contestado y es urgente.\n\nNecesito poder modificar los colores que trae el LISTBOX por cada registro, el que uso tiene como base el AZUL. \n\n1. Se puede Cambiar el color y como \n\n2. El Browse tiene un Filtro? \n\n\nSi me puedes ayudar, fantastico,\n\nSaludos,\n\nMiguel\n\n[quote=&quot;A&amp;C&quot;:1542y4i2]Estimado me llego la DBF, DLL pero enviaste los OBJ no los PRG \npodrias mandarme los archivos fuente porfi\n\npara ve el codigo\n\nGracias[/quote:1542y4i2]','',0,'gA==','1542y4i2',1,0,'',812,0,0),(24847,5610,2,138,0,'189.141.72.221',1168618958,1,0,1,1,1,1,'','','A ver... tranquilidad....\n\nWindows Vista es de 32 bits, no de 64 como la mayoria de la gente piensa.\n\nCualquier aplicacion de 32 bits hecha con FiveWin Harbour, sea la version que sea funciona bajo Windows Vista.\n\nEn nuestras pruebas hemos ejecutado programas FWH desde la version 2.4 hasta la version 2.7 sin problema alguno.\n\nNo se si sea de que tenemos uno de los primeros betas de Vista, pero hasta el momento de hacer nuestras pruebas, los programas de 16 bits, hechos con cualquier version de FiveWin NO FUNCIONAN EN VISTA, marcan un mesaje de \"este no es un programa compatible con Windows vista\"\n\nEn general cualqiuer aplicacion de 16 bits, no fuciona bajo Windows Vista, repito, al menos en el beta que tenemos por aqui, eso incluye al Workshop,  hay que hacer un truco para hacer que funcione y que consiste en relacionar las extensiones .RC con el Workshop como porgrama predeterminado.','',0,'gA==','9obw8m0k',1,0,'',138,0,0),(24848,5616,7,2,0,'87.218.146.117',1168620085,1,0,1,1,1,1,'','','Andrés,\n\nQue tipo de valores (C,N,L,D) tienen las variables lpCampo1, lpCampo2, lpCampo3 ?','',0,'gA==','2kedqpct',1,0,'',2,0,0),(24849,5615,3,6,0,'87.6.210.79',1168620836,1,0,1,1,1,1,'','','This is a sample but it is not working properly. Antonio?\n\n[code:3gn31o09]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= &quot;This is a test&quot;\n\n    LOCAL oRow, oCol\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 0, 0 GET oGet VAR cVar MEMO;\n           SIZE 100, 100\n\n    oGet&#58;bKeyDown = &#123; || ShowRowPos&#40; oGet, oRow, oCol &#41; &#125;\n\n    @ 10, 0 SAY oRow PROMPT &quot;nRow = &quot; + LTrim&#40; Str&#40; oGet&#58;GetRow&#40;&#41; &#41; &#41;\n    @ 11, 0 SAY oCol PROMPT &quot;nCol = &quot; + LTrim&#40; Str&#40; oGet&#58;GetCol&#40;&#41; &#41; &#41;\n\n    oDlg&#58;bStart = &#123; || oGet&#58;SetPos&#40; 0 &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SHOWROWPOS&#40; oGet, oRow, oCol &#41;\n\n    oRow&#58;SetText&#40; &quot;nRow = &quot; + LTrim&#40; Str&#40; oGet&#58;GetRow&#40;&#41; &#41; &#41; &#41;\n    oCol&#58;SetText&#40; &quot;nCol = &quot; + LTrim&#40; Str&#40; oGet&#58;GetCol&#40;&#41; &#41; &#41; &#41;\n\n    RETURN NIL[/code:3gn31o09]\n\nEMG','',0,'AIA=','3gn31o09',1,0,'',6,0,0),(24850,5612,3,487,0,'151.38.48.130',1168622525,1,0,1,1,1,0,'','Re: 100% cpu when printing','[quote=&quot;EnricoMaria&quot;:1umyleki]Try Sleep( 1 ).[/quote:1umyleki]\n\nYES!, this one works much better. It still slow down the process, but I can call it just before PAGE and after ENDPAGE (and the real life is not like the sample above).\n\nMaybe it could be added to Printer.Prg - What do you think ? - Do you see any contraindication doing so ?\n\nMy concern is: if there is already a sleep() function in Kernel32.dll, why the need for developing a SysRefresh() or HB_IdleSleep() ?\n\nThank you so much!\nDavide','',0,'gA==','1umyleki',1,0,'',487,0,0),(24851,5612,3,6,0,'87.6.210.79',1168623037,1,0,1,1,1,1,'','Re: 100% cpu when printing','[quote=&quot;Davide&quot;:32yyq5qi][quote=&quot;EnricoMaria&quot;:32yyq5qi]Try Sleep( 1 ).[/quote:32yyq5qi]\n\nYES!, this one works much better. It still slow down the process, but I can call it just before PAGE and after ENDPAGE (and the real life is not like the sample above).[/quote:32yyq5qi]\n\nOr you may call it each n iterations.\n\n[quote=&quot;Davide&quot;:32yyq5qi]Maybe it could be added to Printer.Prg - What do you think ? - Do you see any contraindication doing so ?[/quote:32yyq5qi]\n\nI don\'t know. The 100% CPU behavior has never been a problem for me. I prefer maximum speed of print generation process.\n\nEMG','',0,'gA==','32yyq5qi',1,0,'',6,0,0),(24852,5595,20,154,0,'151.81.3.159',1168623051,1,0,1,1,1,1,'','','Qualcuno ha provato?\n\nDopo vari test ho trovato questo work-around che però non mi soddisfa per l\'applicazione finale, per la quantità notevole di modifiche.\n\nWork-around:\n[code:3slbtpt1]   @ 1,1 COMBOBOX oCbx3 VAR cItem3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      OF oDlg ;\n      ON CHANGE &#40; IF&#40; ValType&#40; cItem3 &#41; == &quot;N&quot;, ;\n                                cItem3 &#58;= oCbx3&#58;aItems&#91;cItem3&#93;,&#41;, ;\n                            cItem4 &#58;= cItem3,;\n                            oSay&#58;Refresh&#40;&#41; &#41; ;\n      VALID &#40; IF&#40; ValType&#40; cItem3 &#41; == &quot;N&quot;, ;\n                           cItem3 &#58;= oCbx3&#58;aItems&#91;cItem3&#93;,&#41;, ;\n                   cItem4 &#58;= cItem3,;\n                   oSay&#58;Refresh&#40;&#41;, &#46;t&#46; &#41;\n[/code:3slbtpt1]\nNon capisco come mai non viene invocato il metodo KeyChar dal tasto \'.\'\ne di conseguenza come intercettarlo per evitare il cambio di variabile.','',0,'AIA=','3slbtpt1',1,0,'',154,0,0),(24853,5619,6,743,0,'200.67.230.223',1168623794,1,0,1,1,1,0,'','','he intentado borrar una clave del registro con esta instruccion pero no me lo hace, RegDeleteKey( \"CLAVE\" ), utilizo fwh26, harbour, que estoy haciendo mal, alguien ya intento hacerlo\n\n\n\ngracias','',0,'AIA=','32gx5vpr',1,0,'',743,0,0),(24854,5610,2,376,0,'201.230.151.102',1168623812,1,0,1,1,1,1,'','','Superado el tema de los 32 bits. \n\nPero queda una laguna... Si la mayoria de los usuarios de FW utilizamos WorkShop y este no corre en Windows Vista, porque WS es 16 bits, nos quedaremos \"tirando cintura\" como decimos en Perú (creo que \"amolados\" en Mexico) sin la herramienta adecuada para generar nuestros dialogos. \n\nVamos a tener que regresar a lo clasico @ xxx, yyy Say/Get ?\n\nEl panorama es de bastante trabajo...!!!\n\n\n[quote=&quot;RF&quot;:2mdgr710]A ver... tranquilidad....\n\nWindows Vista es de 32 bits, no de 64 como la mayoria de la gente piensa.\n\nCualquier aplicacion de 32 bits hecha con FiveWin Harbour, sea la version que sea funciona bajo Windows Vista.\n\nEn nuestras pruebas hemos ejecutado programas FWH desde la version 2.4 hasta la version 2.7 sin problema alguno.\n\nNo se si sea de que tenemos uno de los primeros betas de Vista, pero hasta el momento de hacer nuestras pruebas, los programas de 16 bits, hechos con cualquier version de FiveWin NO FUNCIONAN EN VISTA, marcan un mesaje de \"este no es un programa compatible con Windows vista\"\n\nEn general cualqiuer aplicacion de 16 bits, no fuciona bajo Windows Vista, repito, al menos en el beta que tenemos por aqui, eso incluye al Workshop,  hay que hacer un truco para hacer que funcione y que consiste en relacionar las extensiones .RC con el Workshop como porgrama predeterminado.[/quote:2mdgr710]','',0,'gA==','2mdgr710',1,0,'',376,0,0),(24855,5616,7,893,0,'83.55.206.186',1168624792,1,0,1,1,1,0,'','Browse','Hola Antonio,\n\nLas variables contienen los  nombres de los campos a mostrar, son carácter.\nVerás estoy haciendo una función genérica de búsqueda con su browse para que valga para varios ficheros: articulos, clientes.... por lo que le mando nombre de fichero y entre otras cosas más los nombres que tiene que mostrar. Te escribo el ejemplo:\n\n=Buscar(oWnd,\'Clientes\',210,250,\'Efth010\',99,83,\'cprvcod\',\'cprvome\',\'cprvnom\'...)\n\nFUNCTION Buscar(lpVentana,lpTitulo,lpAncho,lpAlto,lpFichero,lpAncBrw,lpAltBrw,lpCampo1,lpCampo2,lpCampo3)\n\n@ 1.65, 0.5 LISTBOX oBrw FIELDS (lpCampo1),(lpCampo2),(lpCampo3) .... SIZE lpAncBrw, lpAltBrw....','',0,'gA==','1t862irq',1,0,'',893,0,0),(24856,5612,3,487,0,'151.38.48.130',1168625521,1,0,1,1,1,0,'','Re: 100% cpu when printing','[quote=&quot;EnricoMaria&quot;:1vw61j33]I don\'t know. The 100% CPU behavior has never been a problem for me. I prefer maximum speed of print generation process.[/quote:1vw61j33]\n\nunless you want to install your application on a Terminal Server. If different users print simultaneously the server may sit down ...','',0,'gA==','1vw61j33',1,0,'',487,0,0),(24857,5616,7,2,0,'87.218.146.117',1168625989,1,0,1,1,1,1,'','','Andrés,\n\nEstos nombres de variables no deben llevar comillas:\n\n\'cprvcod\',\'cprvome\',\'cprvnom\', ...\n\ndebe ser:\n\ncprvcod, cprvome, cprvnom, ...','',0,'gA==','28cez5zy',1,0,'',2,0,0),(24858,5619,6,2,0,'87.218.146.117',1168626251,1,0,1,1,1,1,'','','Antonio,\n\nTe falta el parámetro nKey, que previamente has de calcular usando RegOpenKey( )\n[code:2eahz2wi]\n   local hKey\n\n   RegOpenKey&#40; HKEY_LOCAL_MACHINE,;\n               &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Run&quot;, @hKey &#41;\n\n   RegDeleteKey&#40; hKey, &quot;CLAVE&quot; &#41; \n   RegCloseKey&#40; hKey &#41;\n[/code:2eahz2wi]','',0,'AIA=','2eahz2wi',1,0,'',2,0,0),(24859,5620,2,304,0,'201.155.7.216',1168626479,1,0,1,1,1,0,'','USO DE KEYBOAR CHR(13)','HOLA:\nTENGO UN PROBLEMA Q NO PUEDO HACER QUE EL FOCO DE UNA GET REGRESE DESPUES DE INGRESAR UN REGISTRO EN LISTBOX\nME DI CUENTA QUE LO HACE SOBRE UN OBJETO WINDOW, NO ASI EN UN DIALOG, PERO COMO ES TAN URGENTE PENSE EN RECURRIR AL VIEJO KEYBOARD CHR(13) DE CLIPPER PARA HACER O MAS BIEN FORZAR A MOVER AL FOCO A DONDE LO NECESITO, PERO NO LO SE HACER EN FIVEWIN, ALGUNA PROPUESTA ??\nREQUIERO DAR 2 \"TABS\" (O SEA MOVER EL FOCO DEL LISTBOX AL GET Q LO QUIERO PONER)\n\nDE ANTEMANO GRACIAS X SU AYUDA\nSALUDOS\nVERACRUZ, VER. MEXICO','',0,'AIA=','1y3yfcm7',1,0,'',304,0,0),(24860,5619,6,743,0,'200.67.230.223',1168626484,1,0,1,1,1,0,'','','este es el codigo que utilizo, pero no me elimina nada, que estoy haciendo mal\n \nif RegOpenKey( HKEY_CURRENT_USER, \"Software\\ODBC\\ODBC.INI\\LIGA_INFORMIX\", @nHandle ) = 0\n RegDeleteKey( nHandle, \"LIGA_INFORMIX\" )\n msgstop(\"eliminada\")\n endif\n\n\nsaludos \n\nAntonio Díaz','',0,'AIA=','3qigyzs2',1,0,'',743,0,0),(24861,5610,2,2,0,'87.218.146.117',1168626939,1,0,1,1,1,1,'','','Las aplicaciones windows de 16 bits funcionan correctamente en Vista (de 32 bits):\n[url=http&#58;//imageshack&#46;us:1mn54hgb][img:1mn54hgb]http&#58;//img373&#46;imageshack&#46;us/img373/1725/desktopsu2&#46;png[/img:1mn54hgb][/url:1mn54hgb]\nLa límitación sólo existe en Vista de 64 bits, igual que ahora con XP 64 bits','',0,'GA==','1mn54hgb',1,0,'',2,0,0),(24862,5610,2,2,0,'87.218.146.117',1168627186,1,0,1,1,1,1,'','','René,\n\nLas aplicaciones de FW tanto como de FWH funcionan perfectamente en Vista 32 bits:\n[url=http&#58;//imageshack&#46;us:lktk0ssy][img:lktk0ssy]http&#58;//img464&#46;imageshack&#46;us/img464/729/fwhes7&#46;png[/img:lktk0ssy][/url:lktk0ssy]\nla limitación es sólo para las aplicaciones de 16 bits en Vista 64 bits, igual que ahora en XP 64 bits.\nPosiblemente la versión de Vista que tienes instalada es de 64 bits','',0,'GA==','lktk0ssy',1,1168637625,'',2,1,0),(24863,5621,6,198,0,'189.134.14.21',1168627719,1,0,1,1,1,1,'','Programadores que vivan por la zona de Tlalnepantla','Hola a todos los del foro!  Feliz 2007!!\n\nSe estan requiriendo 2 programadores para una proyecto de  migracion de nómina de FW+CLIPPER a FWH+HARBOUR.\n\nRequisitos:\n\nQue vivan cerca de Tlalnepantla\nManejen  FWH+HARBOUR \nConocimientos deseables de ADVANTAGE y SQL\n\nInteresados acudir del 15 al 19 de enero 2007 en un horario de 9:00 a 12:00 y de 15:00 a 17:00 con solicitud elaborada a:\n\nSERVICIOS LUF\nAV. HIDALGO #43,\nFracc. Industrial Tlaxcoalpan,\nTlalnepantla Edo Mex\nTel 0155 5331 0440\nAt\'n.  C.P. Ana Ma. Pérez.\n\nSaludos cordiales\nLaura Edith Hernández H.','',0,'GA==','1nsyoofu',1,0,'',198,0,0),(24864,5622,2,235,0,'189.140.63.41',1168627761,1,0,1,1,1,0,'','Por favor, ayuda urgente','Buenas tardes a todos\n\nTengo una aplicacion en fw22, antes cuando se terminaba de ejecutar podia volver a ejecutarla sin ningun problema, ahora no lo hace, cheque en el administrador de tareas en la seccion de procesos y ahi sigue activa.\n\nalguien sabra que esta pasando, ya que cada vez que se vuelve a utilizar hay que terminar el proceso en el administrador.\n\nde antemano muchas gracias','',0,'GA==','1w7spdz8',1,0,'',235,0,0),(24865,5623,2,890,0,'190.9.66.196',1168627916,1,0,1,1,1,0,'','hacer un ingrso','Un cordial saludo para todos en el foro.\nAntonio\nDios bendiga cada paso que des en cada dia de tu vida.... Feliz 2007\nQuisiera que me expliques como arreglo el .prg del tutor07 para hacer ingresos desde esa ventana al dbf, requiero hacerlo de esa manera y no como lo sugiere el tutor08, he intentado como lo hacia en clipper y he podido hacer el ingreso.\n\nCordial saludo\n jairo E Barbosa','',0,'GA==','2jh6y53n',1,0,'',890,0,0),(24866,5624,6,891,0,'148.243.37.162',1168629192,1,0,1,1,1,0,'','Como Deshabilitar y habilitar cada módulo del menú','Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->, les agradecere su ayuda inmediata gracias\nAdriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'GA==','387hvu64',1,0,'',891,0,0),(24867,5624,6,362,0,'200.168.52.156',1168629868,1,0,1,1,1,1,'','','usando el comando WHEN( lCondicion )','',0,'GA==','3avnbx3m',1,0,'',362,0,0),(24868,5612,3,6,0,'87.6.210.79',1168630342,1,0,1,1,1,1,'','Re: 100% cpu when printing','Agreed. But we have just seen how to deal with that situation. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEMG','',0,'GA==','mraz2qlx',1,0,'',6,0,0),(24869,5610,2,376,0,'201.230.151.102',1168634706,1,0,1,1,1,1,'','','Puff!!! Qué alivio... en tanto no queramos subir a 64 bits','',0,'GA==','1hily0rp',1,0,'',376,0,0),(24870,5616,7,893,0,'83.57.106.90',1168634839,1,0,1,1,1,0,'','','Sigue sin funcionar.\n\nCreo que mandandole el nombre del campo sin comillas estamos mandando el cotenido de  la variable, no el nombre en si que hace falta para montar el browse, te mando el ejemplo completo (con el cambio que  propones):\nGracias de nuevo\n\n\n#include \"FWCE.ch\"\n\nfunction Main()\n   local cText := Space( 50 )\n   NumReg 	= 0\n   oWnd		= 0\n   DEFINE WINDOW oWnd TITLE \"Ejemplo\"\n  \n  AbrirFicheros()\n \n   @ 5, 5 BUTTON \"Acción\" SIZE 80, 20 ACTION Avisa(oWnd, \'Clientes\',210,250,\'Efth010\',99,83,cprvcod,cprvome,cprvnom,\'Código\', \'Nombre Comercial\', \'Nombre Fiscal\',50,200,200)\n   @ 7.9, 5.1 SAY NumReg OF oWnd  SIZE 80, 15\n   @ 7, 5 BUTTON \"Dime\" SIZE 80, 20 ACTION prueba(NumReg)\n   \n   ACTIVATE WINDOW oWnd   \nRETURN nil\n\nFUNCTION prueba(nr)\n   @ 9.9, 5.1 SAY Nr OF oWnd  SIZE 80, 15\nRETURN nil\n\n\nFUNCTION Avisa(lpVentana,lpTitulo,lpAncho,lpAlto,lpFichero,lpAncBrw,lpAltBrw,lpCampo1,lpCampo2,lpCampo3,lpATit1,lpATit2,lpATit3,lpAncho1,lpAncho2,lpAncho3)\n*************************************************************\n* lpVentana -&gt; Ventana padre \n* lpTitulo	-&gt; Título de ventana\n* lpAncho	-&gt; Ancho de pantalla\n* lpAlto	-&gt; Alto de pantalla\n* lpFichero	-&gt; Fichero a listar\n*************************************\n*   Si están en blanco no se ponen.\n*************************************\n* lpAncBrw	-&gt; Alto del browse\n* lpAltBrw	-&gt; Alto del browse\n\n* lpCampo1	-&gt; 1 Campo en la base de datos\n* lpCampo2	-&gt; 2 Campo en la base de datos\n* lpCampo3	-&gt; 3 Campo en la base de datos \n* lpATit1	-&gt; Título del Campo 1\n* lpATit2	-&gt; Título del Campo 2\n* lpATit3	-&gt; Título del Campo 3\n* lpAncho1	-&gt; Ancho del Campo 1\n* lpAncho2	-&gt; Ancho del Campo 2\n* lpAncho3	-&gt; Ancho del Campo 3\n* \n************************************************************ \n   DEFINE FONT ofontPeque NAME \"Arial\" SIZE 4, -8\n   SELECT (lpFichero)\n   DEFINE DIALOG dBrowse TITLE lpTitulo SIZE lpAncho, lpAlto OF lpVentana\n\n   @ 1.65, 0.5 LISTBOX oBrw FIELDS (lpCampo1),(lpCampo2),(lpCampo3) COLSIZES 50,200,200 ;\n   		OF dBrowse HEADERS \'Código\', \'Nombre Comercial\', \'Nombre Fiscal\' SIZE lpAncBrw, lpAltBrw\n\n   @ 107, 35 BTNBMP oCancelar	FILE CurDir() + \"\\bmp\\cancelar.bmp\"	SIZE 12, 12 ACTION Cancelar()\n   @ 107, 65 BTNBMP oAceptar	FILE CurDir() + \"\\bmp\\ok.bmp\" 		SIZE 12, 12 ACTION Aceptar()\n\n   @ 7.9, 5.1 SAY \"Cancelar          Aceptar\" OF dBrowse font ofontPeque SIZE 80, 15\n\n   ACTIVATE DIALOG dBrowse CENTERED \nRETURN nil\n\n\n\nFUNCTION Aceptar(lpFichero)\n	SELECT (lpFichero)\n	NumReg = RECNO()\n	dBrowse:End()\nRETURN nil\n\n\n\nFUNCTION CAncelar\n	NumReg = 0\n	dBrowse:End()\nRETURN nil\n\n\nFUNCTION AbrirFicheros\n   Request DbfCdx \n   Request DbfFpt \n   RddSetDefault (\'DbfCdx\') \n   Request Hb_Lang_PLWIN \n   Request Hb_CodePage_PLWIN \n \n   **********\n   * Clientes\n   **********\n   IF .NOT. USED(\"Efth010\") \n      USE (CurDir()+\"\\Efth010\") NEW\n   ELSE\n   	  SELECT Efth010\n   ENDIF \nRETURN nil','',0,'GA==','2kbmv18l',1,0,'',893,0,0),(24871,5623,2,376,0,'201.230.151.102',1168635354,1,0,1,1,1,1,'','Re: hacer un ingrso','Lo que te falta es un boton que realice: \n\na) un APPEND BLANK, a continuacion\nb) reemplace en el registro nuevo las variables getnombre y getdireccion\n\n[quote=&quot;jaba&quot;:10w2g9jx]Un cordial saludo para todos en el foro.\nAntonio\nDios bendiga cada paso que des en cada dia de tu vida.... Feliz 2007\nQuisiera que me expliques como arreglo el .prg del tutor07 para hacer ingresos desde esa ventana al dbf, requiero hacerlo de esa manera y no como lo sugiere el tutor08, he intentado como lo hacia en clipper y he podido hacer el ingreso.\n\nCordial saludo\n jairo E Barbosa[/quote:10w2g9jx]','',0,'gA==','10w2g9jx',1,0,'',376,0,0),(24872,5622,2,376,0,'201.230.151.102',1168636085,1,0,1,1,1,1,'','Re: Por favor, ayuda urgente','Por lo que explicas, debes estar usando un Windows XP que no ha sido adecuado en el arranque para que los programas en 16 bits corran \"normal\".\nSi estoy en lo cierto, debes modificar los archivos .NT que tienes en la carpeta SYSTEM32 (estos archivos reemplazan al autoexec.bat y al cofig.sys de las anteriores versiones de Windows - incluyendo al D.O.S.)\n\nSi esto no es la causa, es posible que tu programa tenga algun trozo de codigo que impide se libere totalmente de la memoria.\n\n[quote=&quot;Gerardo Farfan&quot;:33xk9spm]Buenas tardes a todos\n\nTengo una aplicacion en fw22, antes cuando se terminaba de ejecutar podia volver a ejecutarla sin ningun problema, ahora no lo hace, cheque en el administrador de tareas en la seccion de procesos y ahi sigue activa.\n\nalguien sabra que esta pasando, ya que cada vez que se vuelve a utilizar hay que terminar el proceso en el administrador.\n\nde antemano muchas gracias[/quote:33xk9spm]','',0,'gA==','33xk9spm',1,0,'',376,0,0),(24873,5620,2,376,0,'201.230.151.102',1168636652,1,0,1,1,1,1,'','','Sería bueno que mostrases el codigo... lo que relatas no es muy preciso. \n\nQué ingresa primero, el GET o el LISTBOX ? ´\n\nSi es el GET porqué tienes que ir al Listbox y luego regresar; si es el LISTBOX quieres actualizar el GET con el dato del listbox?\n\nEs decir; se requiere el codigo para que te puedan ayudar...','',0,'gA==','p2ck8gqv',1,0,'',376,0,0),(24874,5624,6,376,0,'201.230.151.102',1168637446,1,0,1,1,1,1,'','Re: Como Deshabilitar y habilitar cada módulo del menú','Utiliza la variable cargo que tienen los objetos Ventanas. Ejemplo\n\n   if ASCAN( oWndMain:oWndClient:aWnd, {|x| x:cargo == \"VENTAS\"} ) == 0    // comparas si ya existe x:cargo devuelve cero\n           // si es cero significa que x:cargo está vacio y por eso entra en esta rama\n         /*\n          Aqui viene tu codigo para trabajar la ventana hija\n\n         */\n          \n        oWndVta:cargo := \"VENTAS\"        // se asigna por primera vez x:cargo con lo que quieras\n\n       ACTIVATE WINDOW oWndVta\n\n         oFont:end()\n         oFont2:end()\n       DBSELECTAREA(\"Stock\")\n       *\n   ELSE                                 // como ya x:cargo tiene valor solo reactiva la ventana y no se vuelve a cargar nuevamente.\n\n        oWndVta:SetFocus()\n        oWndVta:restore()\n        oWndVta:refresh()\n   ENDIF\nRETURN\n\nEspero te sirva como plantilla. Hay otras soluciones pero esta es a prueba de \"cañones y palurdos\" \n\n[quote=&quot;ACC69&quot;:1cq7qe2u]Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->, les agradecere su ayuda inmediata gracias\nAdriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->[/quote:1cq7qe2u]','',0,'gA==','1cq7qe2u',1,0,'',376,0,0),(24875,5610,2,138,0,'189.141.72.221',1168637739,1,0,1,1,1,1,'','','Cierto, estoy mirando el \"Acerca....\" y efectivamente es una version de 64 bits.','',0,'gA==','28nt2k7k',1,0,'',138,0,0),(24876,5625,2,812,0,'201.236.182.130',1168638193,1,0,1,1,1,0,'','Quien sabe si un Browser tiene un filtro, es Urgente','Amigos,\n\nSolo necesito que alguien me confirme si el Browse tiene o no un Filtro, debo mostrar datos en dos parametros, se que lo tiene el ListBox, pero quiero usar el Browse.\n\nSaludos,\n\nMiguel','',0,'gA==','27xs8a5n',1,0,'',812,0,0),(24877,5616,7,2,0,'87.218.146.117',1168638427,1,0,1,1,1,1,'','','Andrés,\n\nNo había entendido bien lo que querías hacer, disculpa.\n\nPuedes hacerlo como querías, solo cambiando esto:\n\n=Buscar(oWnd,\'Clientes\',210,250,\'Efth010\',99,83,\'cprvcod\',\'cprvome\',\'cprvnom\'...) \n\nFUNCTION Buscar(lpVentana,lpTitulo,lpAncho,lpAlto,lpFichero,lpAncBrw,lpAltBrw,lpCampo1,lpCampo2,lpCampo3) \n\n@ 1.65, 0.5 LISTBOX oBrw FIELDS FieldGet( FieldPos( lpCampo1 ) ),FieldGet( FieldPos( (lpCampo2) ), FieldGet( FieldPos( (lpCampo3) ) .... SIZE lpAncBrw, lpAltBrw....\n\nFíjate en el uso de FieldGet() y FieldPos()','',0,'gA==','t8ue34ad',1,0,'',2,0,0),(24878,5625,2,2,0,'87.218.146.117',1168638546,1,0,1,1,1,1,'','','Miguel,\n\nA que browse te refieres, al TWBrowse de FW ? De ser así, si lo soporta: SELECT ... FOR ...','',0,'gA==','7birvlw3',1,0,'',2,0,0),(24879,5620,2,304,0,'201.155.7.216',1168639242,1,0,1,1,1,0,'','','Mil disculpas, ahi esta una parte del fuente, lo que necesito es que despues de poner la cantidad y la clave, ingrese el dato al listbox, pero q regrese al Get2,y no lo hace se queda en el listbox, esto lo programe bien pero usando un objeo WINDOW y no un DIALOG como aqui, gracias por su atencion.\n\n\nFunction Recibe(oLbx1,oPcion)\n\n   local oDlg6,oGet1,oGet2,oGet3,osay2\n   lNuevo:=.f.\n   lBorrar1:=.F.\n   regmodi:=0\n   nRegact:=Recno()\n   nPar:=0\n\n   nProvedor:=0\n   cProvedor:=Space(60)\n   dFecha:=Date()\n   dFecharec:=Date()\n   nDesc:=0\n   nDescFinal:=0\n   cClave:=Space(20)\n   nCantidad:=0\n\n         SET 3DLOOK ON          // Microsoft 3D Look\n         DEFINE FONT oFont62 NAME \"monospac821 bt\" SIZE 0, -18 BOLD\n         DEFINE FONT oFont61 NAME \"Arial\" SIZE 0, -10 BOLD  //\n         DEFINE FONT oFont65 NAME \"monospac821 bt\" SIZE 0, -12 BOLD\n\n         DEFINE DIALOG oDlg6 FROM 5,.5 TO 34,99.5 ;\n                TITLE \"Recepcion de Materiales: \"    ;\n\n\n   @ .4, 1 SAY OemToAnsi( \"FOLIO:\" ) OF oDlg6;\n   SIZE 30, 9 BORDER\n\n   @ .4, 18 SAY OemToAnsi( \"PROVEEDOR:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ .4,35 SAY oSay1 VAR cProvedor OF oDlg6 COLOR RGB(0,0,255)\n\n   @ 1.4, 1 SAY OemToAnsi( \"FECHA FAC:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 1.4, 18 SAY OemToAnsi( \"FECHA REC:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 1.4, 35 SAY OemToAnsi( \"DESCUENTO:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 1.4, 50 SAY OemToAnsi( \"DESC. FINAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 2.4, 18 SAY OemToAnsi( \"CLAVE:\" ) OF oDlg6;\n   SIZE 30, 9 BORDER\n\n   @ 2.4, 1 SAY OemToAnsi( \"CANTIDAD:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 10.6, 45 SAY OemToAnsi( \"PARCIAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 10.6,55 say osay2 var nPar picture \"999,999.99\" of odlg6 font ofont65\n\n   @ 11.4, 45 SAY OemToAnsi( \"DESC:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 12.2, 45 SAY OemToAnsi( \"SUB-TOTAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 13, 45 SAY OemToAnsi( \"I.V.A.:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 13.8, 45 SAY OemToAnsi( \"TOTAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @  .6, 19 TBTNGET oGet1 VAR nProvedor OF oDlg6 ;\n      SIZE 30, 9              ;\n      RESOURCE \"mail1.bmp\"     ;\n      PICTURE \"99999\";\n      ACTION Seleccion1( oSay1,oGet1 )\n   \n\n  @ 2.9,7 Get oGet2 Var nCantidad  Size 40,9 PICTURE \"999,999.99\" FONT oFont65 Of oDlg6 UPDATE\n\n  @ 2.9,17 Get oGet3 Var cClave VALID(Busca(@cClave,oGet2,oGet3,oLbx,osay2,odlg6),.T.) Size 40,9 PICTURE \"@!\" FONT oFont65 Of oDlg6 UPDATE\n\n   Select 6\n   USE C:\\GRUPOTEX\\User1 ALIAS aUser1 SHARED\n   Go Top\n\n   @ 3.5 , .5 LISTBOX oLbx FIELDS Transform(aUser1-&gt;Cantidad,\"999,999.99\"), Transform(aUser1-&gt;Piezas,\"999,999\"), aUser1-&gt;Clave, aUser1-&gt;Describe,Transform(aUser1-&gt;Ancho,\"999.99\"),aUser1-&gt;Color,Transform(aUser1-&gt;Costo,\"999,999.99\"),Transform(aUser1-&gt;Importe,\"999,999.99\");\n          HEADERS    \"Cantidad\", \"Piezas\",\"Clave\", \"Descripcion de Articulo\",\"Ancho\",\"Color\",\"Costo\",\"Importe\";\n          FIELDSIZES 80,55,80,250,50,90,70,90 FONT OFONT65;\n          SIZE 385, 110 OF oDlg6\n\n         ACTIVATE Dialog odLG6\n\n   oLbx1:UpStable()\n   oLbx1:Refresh()\n\nReturn NIL\n\n\nFunction Busca(cclave,oget2,oGet3,oLbx,osay2,odlg6)\n   local oDlg2, oBmp1,oSay66\n   SELECT 1\n   nRegistro:=Recno()\n         DEFINE FONT oFont65 NAME \"monospac821 bt\" SIZE 0, -12 BOLD\n\n   If Empty(cClave)=.F.\n      SELECT 1\n      USE C:\\GrupoTex\\General ALIAS aGeneral INDEX C:\\grupotex\\CLVGRAL SHARED\n      Seek cClave\n      If found()\n         xClave:=aGeneral-&gt;clave\n         xDescr:=aGeneral-&gt;Describe\n         CLOSE aGeneral\n\n         Select 6\n         USE C:\\GRUPOTEX\\User1 ALIAS aUser1 SHARED\n\n         Locate for alltrim(Field-&gt;Clave) == alltrim( cClave )\n         If Found() = .F.\n            Append blank\n            If Bloqreg(5)\n               aUser1-&gt;Cantidad:=nCantidad\n               aUser1-&gt;Describe:=xDescr\n            Endif\n            UNLOCK\n         oLbx:UpStable()           // Corrects same page stabilizing Bug\n         oLbx:Refresh()\n         If Lastrec() &gt; 11\n            xreg=Lastrec()-10\n            go xReg\n         Else\n            GO TOP\n         Endif\n         olbx:Lostfocus()\n         oGet2:SetFocus()\n\n         Endif\n\n\n      Endif\n   Endif\nReturn (cClave) \n\nuso fivewin 2.3\nclipper 5.1\nblinker 6.0','',0,'gA==','12w8977z',1,0,'',304,0,0),(24880,5624,6,891,0,'148.243.37.162',1168639515,1,0,1,1,1,0,'','Re: Como Deshabilitar y habilitar cada módulo del menú','[quote=&quot;Armando Picon&quot;:1age1ilo]Utiliza la variable cargo que tienen los objetos Ventanas. Ejemplo\n\n   if ASCAN( oWndMain:oWndClient:aWnd, {|x| x:cargo == \"VENTAS\"} ) == 0    // comparas si ya existe x:cargo devuelve cero\n           // si es cero significa que x:cargo está vacio y por eso entra en esta rama\n         /*\n          Aqui viene tu codigo para trabajar la ventana hija\n\n         */\n          \n        oWndVta:cargo := \"VENTAS\"        // se asigna por primera vez x:cargo con lo que quieras\n\n       ACTIVATE WINDOW oWndVta\n\n         oFont:end()\n         oFont2:end()\n       DBSELECTAREA(\"Stock\")\n       *\n   ELSE                                 // como ya x:cargo tiene valor solo reactiva la ventana y no se vuelve a cargar nuevamente.\n\n        oWndVta:SetFocus()\n        oWndVta:restore()\n        oWndVta:refresh()\n   ENDIF\nRETURN\n\nEspero te sirva como plantilla. Hay otras soluciones pero esta es a prueba de \"cañones y palurdos\" \n\n[quote=&quot;ACC69&quot;:1age1ilo]Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->, les agradecere su ayuda inmediata gracias\nAdriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->[/quote:1age1ilo][/quote:1age1ilo]\n\nEl chiste es abrir el modulo y deshabilitar mientras que el usuario haga ciertos procesos y al terminar y cerrar el modulo, que se habilite regresando al menu, porque muchas veces el usuario se le olvida que tiene minimizado x modulo y sin darse cuenta, vuelve abrir mismo modulo, porque es una ventana MDIChld\nEsto es un ejemplo de poner disable al seleccionar el modulo\n\nMENU\n  MENUITEM oItem[07] Prompt \"&amp;Referencias y proveedores\" ACTION  AccModul(BUSCAR1(),oItem[07]) ;\n                     MESSAGE \"Búsqueda de referencias\"\nENDMENU\n\n\nY esta la rutina de deshabilitar x modulo del menu\n//------------------------------------------------------------------------------\nFUNCTION AccModul(bFunction,oItem)\n oItem:Disable()\n return nil\n\nAhora como logro habilitar nuevamente, cuando el usuario termine de usar el modulo .\nLes agradecere su ayuda gracias \nAdriano','',0,'gA==','1age1ilo',1,0,'',891,0,0),(24881,5615,3,529,0,'200.159.198.39',1168639527,1,0,1,1,1,0,'','','Enrico, this is my problem... dont work...','',0,'gA==','2golny0e',1,0,'',529,0,0),(24882,5622,2,235,0,'189.140.63.41',1168639617,1,0,1,1,1,0,'','','Gracias, quedo solucionado.','',0,'gA==','mvsu4is1',1,0,'',235,0,0),(24883,5614,3,282,0,'61.149.78.35',1168639815,1,0,1,1,1,0,'','','Dear Antonio Linares\n\nBecause our company coding environment is upgrade to VC++ 2005\n\nI want to upgrade FWH 2.4 + Harbour 42.0 + BCC55 to FWH 2006-DEC + xHarbour .99.61 + VC++ 2005 (MSVC <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->\n\nI test the FWH samples prg is ok when I use xharbour-0.99.60.bin.w32.msvc6,\n\nBut have some problem when using xharbour-0.99.60.bin.w32.msvc8.\n\nso I think maybe I need the FWH LIB for VC++ 2005\n\nThat\'s the reason That I try to rebuild the LIB\n\n\nBest Regards\n\nDixon CHU','',0,'gA==','257tk0k8',1,0,'',282,0,0),(24884,5624,6,36,0,'164.77.81.210',1168639872,1,0,1,1,1,0,'','','ACC69\n\nPrueba con esto\n\n[code:2g6zog9x]MENUITEM &quot;&amp;Ingresar&quot;  	ACTION &#40;FormaPago&#40; oMenuItem &#41;&#41; RESOURCE &quot;BTNARTICU&quot;\n\n\nfunction FormaPago&#40; oMenuItem &#41;\n\noMenuItem&#58;Disabled&#40;&#41;\n\n  bla&#46;&#46;&#46;ble\n  bla&#46;&#46; bla&#46;&#46;\n  etc&#46;&#46;\n\noMenuItem&#58;Enabled&#40;&#41;\n\nreturn nil\n\n[/code:2g6zog9x]\n\n\nEspero que te sirva\n\nSaludos\nPatricio','',0,'AIA=','2g6zog9x',1,0,'',36,0,0),(24885,5615,3,6,0,'87.6.210.79',1168641835,1,0,1,1,1,1,'','','[quote=&quot;Nop&quot;:814otftl]Enrico, this is my problem... dont work...[/quote:814otftl]\n\nDid you try my sample? It works... almost. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEMG','',0,'gA==','814otftl',1,0,'',6,0,0),(24886,5626,6,471,0,'190.40.127.19',1168642027,1,0,1,1,1,1,'','No me acuerdo como ordenar un arreglo multidimensional por 2','Amigos ordeno un arraglo multidimesional por la columna 13 \n\naMayor:=aSort( aMayor,,,{ | x,y |  x[13]&lt;y[13] } )\n\nComo haria para ordenarala por la columna 12 y 13\n\nGracias','',0,'','36m2mtsw',1,0,'',471,0,0),(24887,5616,7,893,0,'81.36.49.96',1168642844,1,0,1,1,1,0,'','','Gracias, lo pruebo y te comento\nUn saludo','',0,'','37yzotu9',1,0,'',893,0,0),(24888,5618,2,228,0,'190.24.213.1',1168643839,1,0,1,1,1,1,'','Amigo..','Creo que esto es lo que necesitas\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5445&amp;highlight=leandro\">http://fivetechsoft.com/forums/viewtopi ... ht=leandro</a><!-- m -->\n\nespero te sirva..','',0,'','372diddd',1,0,'',228,0,0),(24889,5627,6,838,0,'80.59.225.15',1168643861,1,0,1,1,1,0,'','Bloqueo de fichero','Hola amigos\nTengo un trabajo entre manos y no se como resolverlo\nLa idea es que en un directorio hay varios ficheros .jpg que contienen imagenes de albaranes, cargarlos en un array, y presentar siempre el primero para trabajar, una vez hecho el trabajo, borrar dicho fichero. Hasta ahí no hay problema si hubiera un solo operador, pero en un sistema de red, si un operador tiene el jpg en pantalla y todavía no lo ha destruido, al cargar otro operador el array, también cargaría en pantalla el mismo fichero, ya que sería el primero del array; por lo que los dos trabajarían en el mismo albarán.\n\nMe gustaría saber si hay alguna forma de cuando trabajo con un .jpg, bloquearlo para que no lo pueda capturar otro operador.\n\nSi no fuera así, sería buena idea para impedir duplicidad, copiar éste fichero en otro directorio temporal y borrarlo del directorio anterior mientras se meten los datos de éste?\n\nSaludos\n\nJose Luis','',0,'','1kvfdtlo',1,0,'',838,0,0),(24890,5628,6,64,0,'201.72.124.2',1168645473,1,0,1,1,1,1,'','NUMERIC GET WITH CLÁUSULA RIGHT DOESN\'T WORK','Hola, \n\nM-&gt;TOTDESC:=0\n@ 08,14 GET M-&gt;TOTDESC OF ODLG3 PICTURE \'@ER 9,999.99\' COLOR CLAZUL SIZE 60,12 RIGHT\n\nNo funciona!!! \nSomente funciona se la variable lo sea caracter M-&gt;TOTDESC:=SPACE(10)','',0,'','34r6il18',1,0,'',64,0,0),(24891,5620,2,376,0,'201.230.151.102',1168645956,1,0,1,1,1,1,'','','Cambia esta linea:\n\n@ 2.9,17 Get oGet3 Var cClave VALID(Busca(@cClave,oGet2,oGet3,oLbx,osay2,odlg6),.T.) Size 40,9 PICTURE \"@!\" FONT oFont65 Of oDlg6 UPDATE\n\nPor esta:\n\n\n@ 2.9,17 Get oGet3 Var cClave VALID(Busca(@cClave,oGet2,oGet3,oLbx,osay2,odlg6),.T., oGet2:Setfocus() ) Size 40,9 PICTURE \"@!\" FONT oFont65 Of oDlg6 UPDATE\n\nCon esto estas forzando al programa para que cuando termine de actualizar al LISTBOX vuelva el foco al objeto oGet2 (o al que prefieras si lo apuntas ).\n\nOtro añadido: Particularmente yo utilizo TBROWSE con archivos temporales de uso exclusivo que creo \"al vuelo\" y que sirven para almacenar posteriormente los datos que recogí en las bases que requieran ser actualizadas. Después los elimino y listo. \n\nLos usuarios no se percatan para nada de lo que ha sucedido... y esto hasta en máquinas PENTIUM I...!!!\n\n[quote=&quot;servicomver&quot;:3cpwv1i4]Mil disculpas, ahi esta una parte del fuente, lo que necesito es que despues de poner la cantidad y la clave, ingrese el dato al listbox, pero q regrese al Get2,y no lo hace se queda en el listbox, esto lo programe bien pero usando un objeo WINDOW y no un DIALOG como aqui, gracias por su atencion.\n\n\nFunction Recibe(oLbx1,oPcion)\n\n   local oDlg6,oGet1,oGet2,oGet3,osay2\n   lNuevo:=.f.\n   lBorrar1:=.F.\n   regmodi:=0\n   nRegact:=Recno()\n   nPar:=0\n\n   nProvedor:=0\n   cProvedor:=Space(60)\n   dFecha:=Date()\n   dFecharec:=Date()\n   nDesc:=0\n   nDescFinal:=0\n   cClave:=Space(20)\n   nCantidad:=0\n\n         SET 3DLOOK ON          // Microsoft 3D Look\n         DEFINE FONT oFont62 NAME \"monospac821 bt\" SIZE 0, -18 BOLD\n         DEFINE FONT oFont61 NAME \"Arial\" SIZE 0, -10 BOLD  //\n         DEFINE FONT oFont65 NAME \"monospac821 bt\" SIZE 0, -12 BOLD\n\n         DEFINE DIALOG oDlg6 FROM 5,.5 TO 34,99.5 ;\n                TITLE \"Recepcion de Materiales: \"    ;\n\n\n   @ .4, 1 SAY OemToAnsi( \"FOLIO:\" ) OF oDlg6;\n   SIZE 30, 9 BORDER\n\n   @ .4, 18 SAY OemToAnsi( \"PROVEEDOR:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ .4,35 SAY oSay1 VAR cProvedor OF oDlg6 COLOR RGB(0,0,255)\n\n   @ 1.4, 1 SAY OemToAnsi( \"FECHA FAC:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 1.4, 18 SAY OemToAnsi( \"FECHA REC:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 1.4, 35 SAY OemToAnsi( \"DESCUENTO:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 1.4, 50 SAY OemToAnsi( \"DESC. FINAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 2.4, 18 SAY OemToAnsi( \"CLAVE:\" ) OF oDlg6;\n   SIZE 30, 9 BORDER\n\n   @ 2.4, 1 SAY OemToAnsi( \"CANTIDAD:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER\n\n   @ 10.6, 45 SAY OemToAnsi( \"PARCIAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 10.6,55 say osay2 var nPar picture \"999,999.99\" of odlg6 font ofont65\n\n   @ 11.4, 45 SAY OemToAnsi( \"DESC:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 12.2, 45 SAY OemToAnsi( \"SUB-TOTAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 13, 45 SAY OemToAnsi( \"I.V.A.:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @ 13.8, 45 SAY OemToAnsi( \"TOTAL:\" ) OF oDlg6;\n   SIZE 40, 9 BORDER FONT OFONT65\n\n   @  .6, 19 TBTNGET oGet1 VAR nProvedor OF oDlg6 ;\n      SIZE 30, 9              ;\n      RESOURCE \"mail1.bmp\"     ;\n      PICTURE \"99999\";\n      ACTION Seleccion1( oSay1,oGet1 )\n   \n\n  @ 2.9,7 Get oGet2 Var nCantidad  Size 40,9 PICTURE \"999,999.99\" FONT oFont65 Of oDlg6 UPDATE\n\n  @ 2.9,17 Get oGet3 Var cClave VALID(Busca(@cClave,oGet2,oGet3,oLbx,osay2,odlg6),.T.) Size 40,9 PICTURE \"@!\" FONT oFont65 Of oDlg6 UPDATE\n\n   Select 6\n   USE C:\\GRUPOTEX\\User1 ALIAS aUser1 SHARED\n   Go Top\n\n   @ 3.5 , .5 LISTBOX oLbx FIELDS Transform(aUser1-&gt;Cantidad,\"999,999.99\"), Transform(aUser1-&gt;Piezas,\"999,999\"), aUser1-&gt;Clave, aUser1-&gt;Describe,Transform(aUser1-&gt;Ancho,\"999.99\"),aUser1-&gt;Color,Transform(aUser1-&gt;Costo,\"999,999.99\"),Transform(aUser1-&gt;Importe,\"999,999.99\");\n          HEADERS    \"Cantidad\", \"Piezas\",\"Clave\", \"Descripcion de Articulo\",\"Ancho\",\"Color\",\"Costo\",\"Importe\";\n          FIELDSIZES 80,55,80,250,50,90,70,90 FONT OFONT65;\n          SIZE 385, 110 OF oDlg6\n\n         ACTIVATE Dialog odLG6\n\n   oLbx1:UpStable()\n   oLbx1:Refresh()\n\nReturn NIL\n\n\nFunction Busca(cclave,oget2,oGet3,oLbx,osay2,odlg6)\n   local oDlg2, oBmp1,oSay66\n   SELECT 1\n   nRegistro:=Recno()\n         DEFINE FONT oFont65 NAME \"monospac821 bt\" SIZE 0, -12 BOLD\n\n   If Empty(cClave)=.F.\n      SELECT 1\n      USE C:\\GrupoTex\\General ALIAS aGeneral INDEX C:\\grupotex\\CLVGRAL SHARED\n      Seek cClave\n      If found()\n         xClave:=aGeneral-&gt;clave\n         xDescr:=aGeneral-&gt;Describe\n         CLOSE aGeneral\n\n         Select 6\n         USE C:\\GRUPOTEX\\User1 ALIAS aUser1 SHARED\n\n         Locate for alltrim(Field-&gt;Clave) == alltrim( cClave )\n         If Found() = .F.\n            Append blank\n            If Bloqreg(5)\n               aUser1-&gt;Cantidad:=nCantidad\n               aUser1-&gt;Describe:=xDescr\n            Endif\n            UNLOCK\n         oLbx:UpStable()           // Corrects same page stabilizing Bug\n         oLbx:Refresh()\n         If Lastrec() &gt; 11\n            xreg=Lastrec()-10\n            go xReg\n         Else\n            GO TOP\n         Endif\n         olbx:Lostfocus()\n         oGet2:SetFocus()\n\n         Endif\n\n\n      Endif\n   Endif\nReturn (cClave) \n\nuso fivewin 2.3\nclipper 5.1\nblinker 6.0[/quote:3cpwv1i4]','',0,'gA==','3cpwv1i4',1,0,'',376,0,0),(24892,5624,6,376,0,'201.230.151.102',1168646444,1,0,1,1,1,1,'','Re: Como Deshabilitar y habilitar cada módulo del menú','No te preocupes que quede habilitado... Cuando el usuario vuelve a querer entrar en el modulo, como la ventana ya tiene x:cargo con contenido solamente se reactiva porque ya está activado. Como te tije esta rutina la utilizo y me ha funcionado aunque el usuario sea un palurdo.\n\n[quote=&quot;ACC69&quot;:9b1bt5g5][quote=&quot;Armando Picon&quot;:9b1bt5g5]Utiliza la variable cargo que tienen los objetos Ventanas. Ejemplo\n\n   if ASCAN( oWndMain:oWndClient:aWnd, {|x| x:cargo == \"VENTAS\"} ) == 0    // comparas si ya existe x:cargo devuelve cero\n           // si es cero significa que x:cargo está vacio y por eso entra en esta rama\n         /*\n          Aqui viene tu codigo para trabajar la ventana hija\n\n         */\n          \n        oWndVta:cargo := \"VENTAS\"        // se asigna por primera vez x:cargo con lo que quieras\n\n       ACTIVATE WINDOW oWndVta\n\n         oFont:end()\n         oFont2:end()\n       DBSELECTAREA(\"Stock\")\n       *\n   ELSE                                 // como ya x:cargo tiene valor solo reactiva la ventana y no se vuelve a cargar nuevamente.\n\n        oWndVta:SetFocus()\n        oWndVta:restore()\n        oWndVta:refresh()\n   ENDIF\nRETURN\n\nEspero te sirva como plantilla. Hay otras soluciones pero esta es a prueba de \"cañones y palurdos\" \n\n[quote=&quot;ACC69&quot;:9b1bt5g5]Hola amigos del foro, como deshabilitar cada modulo usando ejemplo: oMenu:Altas:Disable() y volver habilitar nuevamente, estoy usando ventanas hijas y que el usuario no pueda volver abrir el mismo módulo nuevamente, o si alguien tiene alguna rutina que me pueda ayudar o un ejemplo de codigo ? en mi programa lo deshabilita, pero no logro habilitar nuevamente ya intente de varias formas y nada <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->, les agradecere su ayuda inmediata gracias\nAdriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->[/quote:9b1bt5g5][/quote:9b1bt5g5]\n\nEl chiste es abrir el modulo y deshabilitar mientras que el usuario haga ciertos procesos y al terminar y cerrar el modulo, que se habilite regresando al menu, porque muchas veces el usuario se le olvida que tiene minimizado x modulo y sin darse cuenta, vuelve abrir mismo modulo, porque es una ventana MDIChld\nEsto es un ejemplo de poner disable al seleccionar el modulo\n\nMENU\n  MENUITEM oItem[07] Prompt \"&amp;Referencias y proveedores\" ACTION  AccModul(BUSCAR1(),oItem[07]) ;\n                     MESSAGE \"Búsqueda de referencias\"\nENDMENU\n\n\nY esta la rutina de deshabilitar x modulo del menu\n//------------------------------------------------------------------------------\nFUNCTION AccModul(bFunction,oItem)\n oItem:Disable()\n return nil\n\nAhora como logro habilitar nuevamente, cuando el usuario termine de usar el modulo .\nLes agradecere su ayuda gracias \nAdriano[/quote:9b1bt5g5]','',0,'gA==','9b1bt5g5',1,0,'',376,0,0),(24893,5629,3,49,0,'62.13.172.78',1168646989,1,0,1,1,1,1,'','RADIO CLASS','I trying to inser two items radio in a line\n\nbut I not want use redefine (resources)\nif you see testrad5.prg  you can see the radio in two lines I want  a radio  control with two item in only a line : it is possible ?','',0,'gA==','1gflbqar',1,0,'',49,0,0),(24894,5626,6,40,0,'201.132.143.187',1168648957,1,0,1,1,1,0,'','','Igual como lo harías con un campo de un dbf, concatenando\npor ejemplo :\n\nSi con caracter :\n\naMayor:=aSort( aMayor,,,{ | x,y | x[12]+x[13]&lt;y[12]+y[13] } )\n\nSi sin numéricos :\n\naMayor:=aSort( aMayor,,,{ | x,y | str(x[12],n)+str(x[13],n)&lt;ystr([12],n)+str(y[13],n) } )\n\nsaludos \nJoel Andujo','',0,'','2gg9tjne',1,0,'',40,0,0),(24895,5624,6,138,0,'189.141.72.221',1168650369,1,0,1,1,1,1,'','','Como siempre amigos, estan matando pulgas a cañonazos, la solucion es mas facil:\n\n\n[code:1ieqlu4n]Function VentanaHija\nSTATIC oWnd &#58;= NIL\n\nIF oWnd == NIL\n   Define Window oWnd&#46;&#46;&#46;&#46; bla bla bla MDICHILD OF &#46;&#46;&#46;&#46;\n   &#46;&#46;&#46; bla\n   &#46;&#46;&#46; bla\n   &#46;&#46;&#46; bla\n   ACTIVATE WINDOW &#46;&#46;&#46;&#46;&#46; bla bla bla &#46;&#46;&#46;&#46; &#91;b&#93;VALID &#40;oWnd&#58;= NIL&#41;&#91;/b&#93; // esta es la importante\nELSE\n   oWnd&#58;SetFocus&#40;&#41;\n   oWnd&#58;restore&#40;&#41;\nENDIF\n[/code:1ieqlu4n]','',0,'AIA=','1ieqlu4n',1,0,'',138,0,0),(24896,5568,3,707,0,'222.124.20.54',1168654150,1,0,1,1,1,0,'','','Mr. Arturo.\n\nThank\'s for your help and email\n\nRegards\nAreang','',0,'AIA=','dkzrerbd',1,0,'',707,0,0),(24897,5567,6,707,0,'222.124.20.54',1168654268,1,0,1,1,1,0,'','','Mr. Baxajaun\n\nThank for help\nI have the source now\n\nRegards\nAreang','',0,'AIA=','3oeot72r',1,0,'',707,0,0),(24898,5630,3,913,0,'189.136.162.222',1168655014,1,0,1,1,1,1,'','Como se meter un RC en un EXE','Hola soy novata <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  y como ya vi que recomiendan ya no usar DLL y solo los RC no entiendo <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  como meterlos en un exe sin usar el Resource Workshop de Borlan <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nEspero me puedan ayudar <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n\nGracias y Feliz Año <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAida','',0,'AIA=','2e7ifwz8',1,0,'',913,0,0),(24899,5631,2,774,0,'200.72.145.241',1168656036,1,0,1,1,1,1,'','PARA ANTONIO','Antonio,, existe la manera de que un tooltip de un Objeto se le diga en que coordenadas de la pantalla se muestre,, \n\nlo pregunto ya q tu me dijiste q los Browse no tenian tooltip implementados,, pero sabes hice esto:\n\noBrw:cTooltip:=\"Mensaje\"\n\ny cuando paso el raton por encima del browse me pinta el tooltip pero en la parte inferior del browse,, se podria hacer q lo pinte en la fila y columna en donde este el mouse posicionado\n\nGRACIAS POR TU AYUDA Y TIEMPO A LAS CONSULTAS','',0,'AIA=','dzahj38f',1,0,'',774,0,0),(24900,5611,3,239,0,'218.19.62.87',1168660808,1,0,1,1,1,0,'','','FUNCTION SaveState(obrow,cid)\n	local cState\n	cState:=obrow:SaveState()\n	if oServer:QueryData(\"select id from browseset where id=\'\"+cid+\"\'\")&lt;&gt;cid\n		oServer:Query(\"insert into browseset (id,cvalue) values (\'\"+cid+\"\',\'\"+cState+\"\')\")\n	else\n		oServer:Query(\"update browseset set cvalue=\'\"+cState+\"\' where id=\'\"+cid+\"\'\")\n	endif\nreturn\n\nFUNCTION RestoreState(obrow,cid)\n	local cState\n	cState:=oServer:QueryData(\"select cvalue from browseset where id=\'\"+cid+\"\'\")\n	obrow:RestoreState(cState)\nreturn','',0,'AIA=','16ksn6q0',1,0,'',239,0,0),(24901,5627,6,785,0,'190.64.116.89',1168664021,1,0,1,1,1,0,'','','Jose Luis:\n\nQuizas te pueda servir:\nArchivos:  Alba1.jpg, Alba2.jpg, Alba3.jpg, ....              \n\nBase de datos: con 2 campos nombre y estatus: \nNombre -&gt; Alba1 \nEstatus -&gt; H (Habilitado), U (usando,en uso)\n\nCuando borras el archivo tambien lo borras de la base de datos.\n\nEs lo que se me ocurre.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','23p1bw9l',1,0,'',785,0,0),(24902,5627,6,376,0,'201.230.137.17',1168666075,1,0,1,1,1,1,'','','Complementando...\n\nTus jpg se encuentran inscritas en la BD. Si uno está en uso el flag de estatus debe ponerse en \"U\" y por tanto no se carga a tu array... cuando terminan el trabajo el status cambia a \"H\".\n\nMe parece que sía una solución por la via que estás yendo.\n\n[quote=&quot;Ruben Fernandez&quot;:1hgh3khd]Jose Luis:\n\nQuizas te pueda servir:\nArchivos:  Alba1.jpg, Alba2.jpg, Alba3.jpg, ....              \n\nBase de datos: con 2 campos nombre y estatus: \nNombre -&gt; Alba1 \nEstatus -&gt; H (Habilitado), U (usando,en uso)\n\nCuando borras el archivo tambien lo borras de la base de datos.\n\nEs lo que se me ocurre.\n\nSaludos\n\nRuben Fernandez.[/quote:1hgh3khd]','',0,'gA==','1hgh3khd',1,0,'',376,0,0),(24903,5624,6,376,0,'201.230.137.17',1168666332,1,0,1,1,1,1,'','','Bueno... por ahí va la cosa. Al final el usuario no se va ha enterar si se ha utilizado un misil para matar la paloma!!!','',0,'gA==','1dehrcrl',1,0,'',376,0,0),(24904,5601,6,376,0,'201.230.137.17',1168666631,1,0,1,1,1,1,'','','Parece que este object desktop corre solo en XP...? &lt;=&gt; Windows XP','',0,'gA==','2jfa9e9e',1,0,'',376,0,0),(24905,5630,3,2,0,'87.218.146.117',1168669192,1,0,1,1,1,1,'','','Aida,\n\nPuedes ver como se hace en FWH\\samples\\buildh.bat:\n\nc:\\bcc55\\bin\\brc32 -r tu_aplicacion.rc','',0,'gA==','131fuehv',1,0,'',2,0,0),(24906,5614,3,2,0,'87.218.146.117',1168669382,1,0,1,1,1,1,'','','Dixon,\n\nPlease email me privately, thanks','',0,'gA==','2sq44ig4',1,0,'',2,0,0),(24907,5630,3,913,0,'189.136.162.222',1168669452,1,0,1,1,1,1,'','','Gracias!!! Antonio lo checare ya tengo horas sin que me funcione nada de mis programitas <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  \n\nGracias y gusto en conocerte <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAida','',0,'gA==','2ys5342p',1,0,'',913,0,0),(24908,5591,19,26,0,'84.52.130.249',1168670909,1,0,1,1,1,1,'','','Hello!\n\n[color=darkblue:1kfqkk6n][size=134:1kfqkk6n]\"Apple in the post-desktop world\"[/size:1kfqkk6n][/color:1kfqkk6n]\n[size=75:1kfqkk6n] <!-- m --><a class=\"postlink\" href=\"http://www.pingwales.co.uk/2007/01/11/Chisnall-Opinion.html\">http://www.pingwales.co.uk/2007/01/11/C ... inion.html</a><!-- m --> [/size:1kfqkk6n]\n[quote:1kfqkk6n]At the keynote, Jobs announced that they were [b:1kfqkk6n]dropping the[/b:1kfqkk6n] word [b:1kfqkk6n]\'Computer\' [/b:1kfqkk6n]from the name, reinforcing this.\n\nThe company that is now just Apple Inc. has a history of getting in to the market early, and then losing market share later on. Back when IBM was still selling only mainframes and minicomputers, Apple owned a huge chunk of the home computer market with the Apple II. In 1984, it released the Mac. While not the first computer with a GUI, it was the first that the general public could afford. After he left Apple, Steve Jobs\' other company, NeXT, produced the first rapid application development environment.\n\nThe next challenge for the computing industry is going to be adapting to the post-desktop era. The recent keynote shows that Apple seems to be aware of this.[/quote:1kfqkk6n]\n\nRegards, Roman','',0,'xg==','1kfqkk6n',1,0,'',26,0,0),(24909,2486,16,2,0,'87.218.146.117',1168671592,1,0,1,1,1,1,'','','Harbour for Borland, January 13 2007 build: \n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/DZVN0DEG/harbour.EXE.html\">http://www.uploading.com/files/DZVN0DEG ... r.EXE.html</a><!-- m -->\n\nxHarbour for Borland, January 13 2007 build: \n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/8D2J1FRZ/xharbour.EXE.html\">http://www.uploading.com/files/8D2J1FRZ ... r.EXE.html</a><!-- m -->\n\nxHarbour for Microsoft, January 13 2007 build:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/4FSDKS9T/xharbourm.EXE.html\">http://www.uploading.com/files/4FSDKS9T ... m.EXE.html</a><!-- m -->','',0,'xg==','qq5a4136',1,0,'',2,0,0),(24910,5632,3,2,0,'87.218.146.5',1168674037,1,0,1,1,1,1,'','New Harbour &amp; xHarbour builds','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=24909#24909\">http://fivetechsoft.com/forums/viewtopi ... 4909#24909</a><!-- m -->','',0,'xg==','25xoovev',1,0,'',2,0,0),(24911,5633,6,2,0,'87.218.146.5',1168674121,1,0,1,1,1,1,'','Nuevos build de Harbour y xHarbour','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=24909#24909\">http://fivetechsoft.com/forums/viewtopi ... 4909#24909</a><!-- m -->','',0,'xg==','2up45pzz',1,0,'',2,0,0),(24912,5630,3,913,0,'189.136.162.222',1168674470,1,0,1,1,1,1,'','NO FUNCIONA?','HOL otra vez\n\ncheque lo que me dijiste, ya queda dentro del exe el rc pero  al ejecutarlo me marca el error siguiente\n\nApplication\n===========\n   Path and name: C:\\FWH\\promotoria\\ata.exe (32 bits)\n   Size: 1,843,712 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 13/01/2007, 01:34:20\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: CUADRO\n\nStack Calls\n===========\n   Called from CREATEDLGERROR(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from MAIN(338)\n\nSystem\n======\n   CPU type: GetCPU() failed! 2883 Mhz\n   Hardware memory: 1024 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 44.0 Intl. (Flex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   CREATEDLGERROR\n     Param   1:    O    Class: TDIALOG\n     Local   1:    C    &quot;CUADRO&quot;\n     Local   2:    C    &quot;ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ&quot;\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    0\n     Local   3:    U    \n     Local   4:    U    \n   MAIN\n     Local   1:    N    250\n     Local   2:    O    Class: TSAY\n     Local   3:    N    14599344\n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    C    &quot;modulo de autos&quot;\n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    L    .T.\n     Local  10:    U    \n     Local  11:    O    Class: TFONT\n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    U    \n     Local  16:    U    \n     Local  17:    O    Class: TSAY\n     Local  18:    N    0\n     Local  19:    O    Class: TSAY\n     Local  20:    N    0\n     Local  21:    A    Len:   10\n     Local  22:    U    \n     Local  23:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFDBT\n   DBFNTX\n\nDataBases in use\n================\n\n  1:    COMPA                              RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        6          5      .F.   .T.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\n  2:    MARCAS                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n       10          9      .F.   .T.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\n  3: =&gt; AUTOS                              RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          0      .T.   .T.\n\n     Indexes in use                        TagName\n        =&gt; FIELD-&gt;ficha                       FICHA\n\n     Relations in use\n\n  4:    PERSONAL                           RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n    10156      10417      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; FIELD-&gt;ficha                       FICHAZ\n\n     Relations in use\n\n  5:    CODIGO                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1      42963      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; FIELD-&gt;codigo                      CODIGO\n\n     Relations in use\n\n  6:    CIUDAD                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n     2261       2426      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; NOMBRE                             CIUDAD\n\n     Relations in use\n\n  7:    ESTADO                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n       33         33      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; FIELD-&gt;clave                       ESTADO\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TDIALOG\n     5 TBRUSH\n     6 TFONT\n     7 TCONTROL\n     8 TWBROWSE\n     9 TSAY\n    10 ERROR\n\nMemory Analysis\n===============\n      236 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\n\nsolo estoy compilando un pedasito de codigo del programa que tengo funcionando con fivewin aqui te pongo el codigo disculpa si esta algo desordenado\n\n\n//*************************************\n#include &quot;FiveWin.ch&quot;\n//#include &quot;SSay.ch&quot;\n//#include &quot;fileio.ch&quot;\n//#include &quot;Odometer.ch&quot;\n//#include &quot;tooltips.ch&quot;\n\n//#include &quot;c5grid.ch&quot;\n//#include &quot;clock.ch&quot;\n\n//#include &quot;Folder.ch&quot;\n\n//#include &quot;MesDbf.ch&quot;\n\n//#include &quot;DSay.ch&quot;\n\n//#include &quot;InKey.ch&quot;\n\n//#include &quot;Report.ch&quot;\n\n#define SRCPAINT   15597702   // 0xEE0086   // Para Mensajes\n#define SRCAND      8913094\n\nSTATIC oDlg,nNivel,xNivel,NREGISTRO,noREG,oOdomet1,oOdomet2,CANCELAA,oBtn,oSoh\nSTATIC rx:=.F.\nSTATIC oSoC,oSoCc,xxx,osTA,nOption,cOption,Ntpago,oSay,cNpa\nSTATIC cFICHA,cR_ficha\nSTATIC cNombre,nom\nSTATIC cPaterno,pat\nSTATIC cMaterno,mat\nSTATIC cDireccion\nSTATIC cCp\nSTATIC cCOLONIA,cOlonis,cCiudad,cEstado,cTelefona,cTelefonb,cCENTRO,AAA ,  BBB ,  CCC\nstatic uno :=.f.\nstatic dos :=.f.\nSTATIC cVigencia1\nSTATIC cVigencia2\nSTATIC cMe\nSTATIC cAN\nSTATIC cOverM\nSTATIC cOverT\nSTATIC cOverS\nSTATIC cOverA\nSTATIC cCompa\nSTATIC cAuto\nSTATIC cCamion\nSTATIC cClamt\nSTATIC cMarc\nSTATIC cCtipo\nSTATIC cmodelo\nSTATIC cAire :=.f.\nSTATIC cEqf  :=.f.\nSTATIC cAutero :=.f.\nSTATIC cAutomatico :=.f.\nSTATIC cSina :=.f.\nSTATIC cTipico :=.f.\nSTATIC cStd :=.f.\nSTATIC xcPoliza,cPoliza,CDessc,cMes,cMesde,CDessm,cOcupa,cNum_serie,cNum_motor,cPlacas,cMesd\nSTATIC cR_poliza\nSTATIC cEndoso := .F.\nSTATIC rReno :=.F.\nSTATIC cSUM_ASEGU\nSTATIC cAMPLIA := .F.\nSTATIC cLIMITADA := .F.\nSTATIC cRC :=.F.\nSTATIC stat\nSTATIC cSUM_ASEG\nSTATIC cSUMA_ASEG_\nSTATIC cSUME_ASEGU\nSTATIC cRCV_CATAST\nSTATIC cAgente,cPromo\nSTATIC cCompanyId,hBorland\nSTATIC mComments,cOcupacion,cDeparta,cDepaclave\nSTATIC cUnidad,cUniclave,cUbicadep\nSTATIC cImporte_to\nSTATIC cPrima_neta,cDescuentos,cMensual,rRecibo1,rReciVo1,rRecibo2,rReciVo2\nSTATIC cCat,cMen,oSov\nSTATIC ZXC:=.F.\nSTATIC nItema  := {}\nSTATIC cPoitem := {}\nSTATIC Caitem  := {}\nSTATIC Cpitem  := {}\nSTATIC Cmess   := {}\nSTATIC aItem := {}\nSTATIC aMarca := {}\nSTATIC  nItem := {&quot;2014&quot;,&quot;2013&quot;,&quot;2012&quot;,&quot;2011&quot;,&quot;2010&quot;,&quot;2009&quot;,&quot;2008&quot;,&quot;2007&quot;,&quot;2006&quot;,&quot;2005&quot;,&quot;2004&quot;,&quot;2003&quot;,&quot;2002&quot;,&quot;2001&quot;,&quot;2000&quot;,&quot;99&quot;,&quot;98&quot;,&quot;97&quot;,&quot;96&quot;,&quot;95&quot;,&quot;94&quot;,&quot;93&quot;,&quot;92&quot;,&quot;91&quot;,&quot;90&quot;,&quot;89&quot;,&quot;88&quot;,&quot;87&quot;,;\n  	      &quot;86&quot;,&quot;85&quot;,&quot;84&quot;,&quot;83&quot;,&quot;82&quot;,&quot;81&quot;,&quot;80&quot;,&quot;79&quot;,&quot;78&quot;,&quot;77&quot;,&quot;76&quot;,;\n  	      &quot;75&quot;,&quot;74&quot;,&quot;79&quot;,&quot;78&quot;,&quot;77&quot;,&quot;76&quot;,&quot;75&quot;,&quot;74&quot;,&quot;73&quot;,&quot;72&quot;,&quot;71&quot;,&quot;70&quot;}\n\nSTATIC  CItem :={&quot;24&quot;,&quot;23&quot;,&quot;22&quot;,&quot;21&quot;,&quot;20&quot; ,&quot;19&quot;, &quot;18&quot;,&quot;17&quot;,&quot;16&quot;,&quot;15&quot;,&quot;14&quot;,&quot;13&quot;,&quot;12&quot;,;\n		           &quot;11&quot;,&quot;10&quot;,&quot;9&quot;,&quot;8&quot;,&quot;7&quot;,&quot;6&quot;,&quot;5&quot;,&quot;4&quot;,&quot;3&quot;,&quot;2&quot;,&quot;1&quot;}\n\n\nSTATIC  CmesX :={&quot;20&quot;,&quot;19&quot;,&quot;18&quot;,&quot;17&quot;,&quot;16&quot;,&quot;15&quot;,&quot;14&quot;,&quot;13&quot;,&quot;12&quot;,&quot;11&quot;,&quot;10&quot;,&quot;9&quot;,&quot;8&quot;,&quot;7&quot;,&quot;6&quot;,&quot;5&quot;,&quot;4&quot;,&quot;3&quot;,&quot;2&quot;,&quot;1&quot;}\n\nstatic oDSay,nReg,cCan,nregis,cPend,pendi\nSTATIC cxc:=.t.\n//__________________________________________\n\n\nFUNCTION Main()\n\n                local oBrush, oBar\n                local nClr1,cStat\n                local nClr2\n	local CLR_1,CLR_2\n	local cTitle := &quot;modulo de autos&quot;\n	local cSay,AUTOS\n	local nfl:=.t.\n	local oBmp,oFont,oMenu\n	local oLbx,bRo,hFile\n	Local oClock,cCom,cComi:=0,cPnet,cPne:=0\n	local aHBitMaps:= { ReadBitmap( 0, &quot;ima\\Level1.bmp&quot; ), ; // BitMaps de 14 x 32\n		ReadBitmap( 0, &quot;ima\\Level2.bmp&quot; ), ;\n		ReadBitmap( 0, &quot;ima\\Level3.bmp&quot; ), ;\n		ReadBitmap( 0, &quot;ima\\Level4.bmp&quot; ), ;\n		ReadBitmap( 0, &quot;ima\\Level5.bmp&quot; ), ;\n		ReadBitmap( 0, &quot;ima\\Level6.bmp&quot; ), ;\n		ReadBitmap( 0, &quot;ima\\Level7.bmp&quot; ), ;\n		ReadBitmap( 0, &quot;ima\\Level8.bmp&quot; ), ;\n		ReadBitmap( 0, &quot;ima\\Level9.bmp&quot; ), ;\n      ReadBitmap( 0, &quot;ima\\Level10.bmp&quot; )}\n\n\n //	OL_AutoYield( .T. )\n\n\n    //	Request dbfcdx\n      //	rddsetdefault(&quot;dbfcdx&quot;)\n	//hFile  :=\n\n				\n\n   //#ifdef __CLIPPER__\n     // SET RESOURCES TO &quot;ALTAS.DLL&quot;, &quot;BWCC.DLL&quot;\n   //#else\n     // local hDLL := LoadLibrary( &quot;bwcc32.dll&quot; )\n      //SET RESOURCES TO &quot;ALTAS.DLL&quot;\n     // BWCCRegister( GetResources() )\n  // #endif\n\n\n\n\n	USE COMPA NEW\n\n	USE MARCAS NEW\n\n	USE AUTOS    INDEX FICHA NEW\n\n	USE PERSONAL INDEX FICHAZ NEW\n\n	USE CODIGO   INDEX CODIGO NEW\n\n	USE CIUDAD   INDEX CIUDAD NEW\n\n	USE ESTADO   INDEX ESTADO NEW\n\n\n\n\ndbselectarea(&quot;COMPA&quot;)\n\nCOMPA-&gt;(dbGoTop())\n//cARQ := {}\nWhile(COMPA-&gt;( ! Eof()))\naadd(aItem,AllTrim(COMPA-&gt;COMPA))\nCOMPA-&gt;(dbSkip(1))\nEndDo\n //------------\ndbselectarea(&quot;marcas&quot;)\n\nmarcas-&gt;(dbGoTop())\n//cARQ := {}\nWhile(marcas-&gt;( ! Eof()))\naadd(aMarca,AllTrim(marcas-&gt;marca))\nmarcas-&gt;(dbSkip(1))\nEndDo\n\n\n   SET CENTURY ON\n   SET DATE TO FRENCH\n   SET EPOCH TO 1998\n   SET 3DLOOK ON\n\n//OL_AutoYield( .T. )\n	DEFINE DIALOG oSov RESOURCE &quot;CUADRO&quot;\n\n\n        //REDEFINE BITMAP oBmp FILENAME &quot;CONTADOR.BMP&quot; ID 999  OF oSov\n       //	 SIZE 94, 110\n\n	cVigencia1:=CTOD(&quot;  /  /  &quot;)\n   cVigencia2:=CTOD(&quot;  /  /  &quot;)\n\n\n	dbselectarea( &quot;AUTOS&quot; )\n\n	DEFINE FONT oFont NAME &quot;Ms Serif&quot; SIZE 4,14\n	REDEFINE LISTBOX oSoC FIELDS aHBitmaps[ Max( 1, AUTOS-&gt;NIVEL ) ] ,;\n		ALLTRIM(AUTOS-&gt;NOMBRE) +&quot; &quot;+ ALLTRIM(AUTOS-&gt;APELLIDO_P) +&quot; &quot;+ ALLTRIM(AUTOS-&gt;APELLIDO_M),;\n	  ALLTRIM(AUTOS-&gt;A_POLIZA)  ,;\n		ALLTRIM(AUTOS-&gt;R_POLIZA)  ,;\n		ALLTRIM(AUTOS-&gt;POLIZA)    ,;\n		ALLTRIM(AUTOS-&gt;comp) ;\n		HEADERS  &quot;&quot;, &quot;        Nombre               &quot;,&quot;Poliza Anterior&quot;, &quot;Poliza&quot;, &quot;Inciso&quot;,&quot;Compañia&quot;;\n		COLOR RGB(176,196,222 ), RGB(70,130,180 );\n		FIELDSIZES  150 , 100 , 50 , 50 ;\n		ON CLICK(oSoCc:Refresh(),cComi:=(autos-&gt;prima_neta*10/100),cCom:Refresh(),;\n		cPne:=autos-&gt;prima_neta,cPnet:Refresh(),IIF(autos-&gt;nivel=10,stat:=&quot;CANCELADA&quot;,stat:=&quot;VIGENTE&quot;),cStat:Refresh());\n		FONT oFont ID 1001 OF oSov\n		//oSoC:cTooltip := &quot;(C)Copyright 2007 &quot;\n //		oSoC:bRClicked = { || CONSULTA(oSoC) }\n\n\n					nClr1:=Rgb(250,0,0) //EL SELECCIONADO\n          nClr2:=RGB(176,196,222 )\n\n\n\n\n\n		     oSoC:aJustify:={(.F.),(.F.),(.F.),(.F.)}\n         oSoC:nClrBackFocus:=RGB(0,0,255)\n         oSoC:nClrForeFocus:=RGB(255,255,255)\n         oSoC:NCLRPANE:={||IIF((ORDKEYNO())%2==0,RGB(176,196,222 ), RGB(70,130,180 ))}\n         oSoC:nClrBackHead:=RGB(0,0,255)\n         oSoC:nClrForeHead:=RGB(255,255,255)\n\n			  oSoC:nClrPane:={ || iif(AUTOS-&gt;nivel=10,nClr1,nClr2)}\n			//	oSoC:nClrPane:={ || iif(AUTOS-&gt;nivel=1,nClr1,RGB(176,196,222 ))}\n\n			 oSoC:nClrText      = { || SelColor( AUTOS-&gt;A_POLIZA,AUTOS-&gt;nivel ) }\n      // oSoC:nClrForeFocus = { || SelColor( AUTOS-&gt;A_POLIZA,AUTOS-&gt;nivel ) }\n\n\n\n\n\n oSoC:bRClicked := { | nRow, nCol, nFlags | ;\n                        ( oMenu := MenuBegin( .T. ),;\n                            MenuAddItem( OemToAnsi(&quot;Consulta del Registro&quot;),, .F.,,{|oMenuItem|  MsgInfo (&quot;No Disponible&quot;) } ,,,,,,, .F., ),;\n                            MenuAddItem(),;\n                            MenuAddItem( &quot;Localizar Por Nombre&quot;,, .F.,,{|oMenuItem| MsgInfo (&quot;No Disponible&quot;) },,,,,,, .F., ),;\n                            MenuEnd(),;\n                           oMenu:Activate( nRow, nCol, oSov )) }\n	  //		   oSoC:aJustify := { .F., .T., .T., .T., .F., .F., .T., .T. }\n\n	//MSGALERT(&quot;FIN&quot;)\n\n\n\n\n\n\n\n\n\n		 DEFINE FONT oFont NAME &quot;Ms Serif&quot; SIZE 15,15\n\n			 //cComi:=autos-&gt;prima_neta/10%,cCom:Refresh()\n\n\n		 //cSay := DATE()\n\n		 //REDEFINE DYNAMIC SAY VAR cSay ID 101 FONT oFont OF oSov;\n     //VERTICAL SCROLL SPEED 30 WRAP;\n    // CENTER SHADED;\n    //COLOR RGB(176,196,222 ), RGB(70,130,180 )\n\n\n\n\n\n//COUNT TO CANCELAA FOR autos-&gt;nivel=10\n//NREGISTRO := NREGISTRO - CANCELAA\n //------------------------------------------------------------------------\n	DEFINE FONT oFont NAME &quot;Ms Serif&quot; SIZE 4,14\n	REDEFINE LISTBOX oSoCc FIELDS aHBitmaps[ Max( 1, AUTOS-&gt;NIVEL ) ] ,;\n   STR(AUTOS-&gt;NUMERO)  ,;\n		AUTOS-&gt;FICHA     ,;\n		AUTOS-&gt;R_POLIZA  ,;\n		AUTOS-&gt;POLIZA    ,;\n		str(AUTOS-&gt;pagado)  ;\n		HEADERS    &quot;&quot;,&quot;Nr&quot;, &quot;Ficha&quot;, &quot;Poliza&quot;, &quot;Inciso&quot;,&quot;Pagado&quot;;\n		COLOR RGB(46,139,87), RGB(106,90,205);\n		FIELDSIZES  20, 30 ,    64  ,   130   ,  130  ,  130   ;\n		ON CLICK (oSoC:Refresh(),cComi:=( autos-&gt;prima_neta*10/100),cCom:Refresh(),;\n		cPne:=autos-&gt;prima_neta,cPnet:Refresh(),IIF(autos-&gt;nivel=10,stat:=&quot;CANCELADA&quot;,stat:=&quot;VIGENTE&quot;),cStat:Refresh());\n		ON DBLCLICK ( MsgInfo (&quot;No Disponible&quot;));\n		FONT oFont ID 1002 OF oSov\n		//oSoCc:cTooltip := &quot;(C)Copyright 2007&quot;\n																														  nClr1:=Rgb(250,0,0) //EL SELECCIONADO\n      nClr2:=RGB(176,196,222 )\n\n				 oSoCc:aJustify:={(.F.),(.F.),(.F.),(.F.)}\n         oSoCc:nClrBackFocus:=RGB(0,0,255)\n         oSoCc:nClrForeFocus:=RGB(255,255,255)\n         oSoCc:NCLRPANE:={||IIF((ORDKEYNO())%2==0,RGB(176,196,222 ), RGB(70,130,180 ))}\n         oSoCc:nClrBackHead:=RGB(0,0,255)\n         oSoCc:nClrForeHead:=RGB(255,255,255)\n\n			  oSoCc:nClrPane:={ || iif(AUTOS-&gt;nivel=10,nClr1,nClr2)}\n			//	oSoC:nClrPane:={ || iif(AUTOS-&gt;nivel=1,nClr1,RGB(176,196,222 ))}\n\n			 oSoCc:nClrText      = { || SelColor( AUTOS-&gt;A_POLIZA,AUTOS-&gt;nivel ) }\n      // oSoC:nClrForeFocus = { || SelColor( AUTOS-&gt;A_POLIZA,AUTOS-&gt;nivel ) }\n\n\n                          //oSoCc:bRClicked := { | nRow, nCol, nFlags | ;\n                      //  ( oMenu := MenuBegin( .T. ),;\n                     //       MenuAddItem( OemToAnsi(&quot;Consulta del Registro&quot;),, .F.,,{|oMenuItem| CONSULTA(oSoCc) } ,,,,,,, .F., ),;\n                      //      MenuAddItem(),;\n                     //       MenuAddItem( &quot;Localizar Por Nombre&quot;,, .F.,,{|oMenuItem| MsgInfo (&quot;No Disponible&quot;) },,,,,,, .F., ),;\n                     //       MenuEnd(),;\n                     //      oMenu:Activate( nRow, nCol, oSov )) }\n\n\n		//-------------------------------------------------------------------------\n									 //stat:=space(10)\n NREGISTRO:=lastrec()\n COUNT TO nregis FOR autos-&gt;nivel=7\n //NREGISTRO := NREGISTRO - CANCELAA\nREDEFINE SAY nREG  prompt nregis ID 13 OF oSov COLOR RGB(0,0,0), RGB(248,248,255)\nCOUNT TO CANCELAA FOR autos-&gt;nivel=10\nREDEFINE SAY cCan prompt CANCELAA ID 15 OF oSov COLOR RGB(0,0,0), RGB(248,248,255)\nCOUNT TO pendi FOR autos-&gt;nivel=1\nREDEFINE SAY cPend prompt pendi ID 16 OF oSov COLOR RGB(0,0,0), RGB(248,248,255)\nREDEFINE SAY cPnet prompt cPne  ID 17 OF oSov Picture&quot;$99,999.99&quot; COLOR RGB(0,0,0), RGB(248,248,255)\nREDEFINE SAY cCom  prompt cComi ID 18 OF oSov Picture&quot;$99,999.99&quot; COLOR RGB(0,0,0), RGB(248,248,255)\nDEFINE FONT oFont NAME &quot;Ms Serif&quot; SIZE 6,11\nREDEFINE SAY cStat prompt stat  ID 19 FONT oFont OF oSov COLOR RGB(255, 165, 0 ), RGB(0, 0, 205 )\n\n\n\n\n			//MsgInfo(NREGISTRO)\n\n dbgotop()\n		  ACTIVATE DIALOG oSov CENTERED\n			//ON PAINT oSov:SayBitmap( 0, 0, &quot;ima\\azul1.bmp&quot;, oSov:nWidth, oSov:nHeight )\n\n//		ON INIT SndPlayRes( &quot;ENTRA&quot; );\n\n\n\n\n\nRETURN  Nil\n\n \n\n\nstatic function SelColor( nNivel,xNivel )\n\n   local nColor := RGB( 0, 0,0 )\n\n\n		IF  xnivel == 10\n           nColor = RGB(255,255,255)\n					 	  	ENDIF\n\nreturn nColor\n\n//***********************\n\nEspero me puedas ayudar  pase mi DLL  a RC  CON Resource Workshop\n\nDEPUES  brc32 -r ATA.RC\nY \nDESPUES buildh ATA\n\nSE COMPILA BIEN PERO DESPUES SALE UNA LINEA QUE DICE \n\nNO SE ENCUENTRA  ATA.IL?\n\nAL FINAL ME DEJA ATA.EXE CON TODO Y SU ICONITO PERO COMO TE COMENTE AL EJECUTARLO ME SALE ESE HERROR DEL PRINCIPIO DE MI MENSAGE\n\nQUE ESTARE HACIENDO MAL??\n\n\nGRACIAS POR TU AYUDA\n\n\nAIDA\n\Z','5d42ce793a3cfd5d8d94c147c0492260',0,'','8oxhf63n',1,1662321687,'',913,2,0),(24913,5630,3,2,0,'87.218.146.5',1168675552,1,0,1,1,1,1,'','','Posiblemente estas usando controles de Borland. Añade este código a tu aplicación:\n[code:3kxdt26i]\n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;código de tu aplicación&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot; \n[/code:3kxdt26i]','',0,'AIA=','3kxdt26i',1,0,'',2,0,0),(24914,5629,3,2,0,'87.218.146.5',1168675663,1,0,1,1,1,1,'','','Silvio,\n\nYou can change the position of any radio control this way:\n\noRadMenu:aItems[ n ]:nTop = ...\noRadMenu:aItems[ n ]:nLeft = ...','',0,'','3i0f6j96',1,0,'',2,0,0),(24915,5630,3,913,0,'189.136.162.222',1168679353,1,0,1,1,1,1,'','Ya funciona!!!!!!!  bueno ya casi :)','ya por fin salio la ventanita <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  pinto los listbox pero me salio un herror <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  de algo pero ya mañana veo que es\n\nme imagino que encontrare muchos cambios y tendre que quitar cosas por otras <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  etc...\n\nTea agradesco tu ayuda que tengas un lindo fin de semana <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\naqui ya es de madrugada ya me muero de sueño gracias por todo.\n\nhasta la proxima <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->   \n\n\nAida:mrgreen:','',0,'','4zbysq2z',1,0,'',913,0,0),(24916,5595,20,154,0,'151.81.2.177',1168680097,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:278z661b]...\nand check what value you get when you press a \".\"[/quote:278z661b]\nAntonio,\nin KeyDown Method, the value of nKey when i press a \".\" is [b:278z661b]190[/b:278z661b],\nbut in the KeyChar Method is impossible (for me) find the value.','',0,'wA==','278z661b',1,0,'',154,0,0),(24917,5614,3,707,0,'222.124.20.54',1168681431,1,0,1,1,1,0,'','','Mr. Antonio\n\nIf you don\'t mind, please email to me also.\n\nRegards\nAreang','',0,'wA==','cgci0e2f',1,0,'',707,0,0),(24918,5627,6,838,0,'80.59.225.15',1168682789,1,0,1,1,1,0,'','','Entonces deduzco por vuestra idea, que tendría que haber una BD por ejemplo \"Imagenes.DBF\", en la que cuando un operador cualquiera entre en ésta opción haga lo siguiente:\n    - 1º Cargar un array con los nombres de los documentos que hay en el directorio.\n    - 2º Comprobar los nombres de éste array con los que hay en la BD\n    - 3º Añadir los que no existan.\n    - 4º Cuando se ponga a trabajar con ellos, que marque el que está en uso\n\nTendré que usar ésta opción, ya que no veo otra en la que no se duplique el trabajo en un momento dado.\n\nMuchas gracias por vuestra ayuda\n\nSaludos\n\nJose Luis','',0,'wA==','zn7k3g5i',1,0,'',838,0,0),(24919,5629,3,49,0,'62.13.172.78',1168684777,1,0,1,1,1,1,'','','THANKSSSSSSSSSSS  Antonio!!!!!!!!!!!!','',0,'wA==','1u9chfpn',1,0,'',49,0,0),(24920,5618,2,774,0,'200.72.126.167',1168686912,1,0,1,1,1,1,'','','Miguel ::: solucionaste el problema de los colores \n\nCuentame','',0,'wA==','2kvhmm7i',1,0,'',774,0,0),(24921,5616,7,893,0,'83.59.41.147',1168688227,1,0,1,1,1,0,'','','Muy agradecido. funciona perfectamente.\nSaludos','',0,'wA==','1p8fv9ao',1,0,'',893,0,0),(24922,5627,6,376,0,'201.230.202.27',1168703663,1,0,1,1,1,1,'','','Esa es la idea...!!! De ese modo aseguras que no haya uso duplicado o mas segun los usuarios de tu programa.','',0,'wA==','2uakv40u',1,0,'',376,0,0),(24923,5634,2,890,0,'190.9.66.196',1168714752,1,0,1,1,1,0,'','Para Armando Picon','Armando \nTe estoy muy agradecido por la respuesta que le diste a mi pregunta.\nTe pido el favor si te es posible facilitarme el tutor07 con la sugerencia que me haces, recuerda que son mis primeros pasos en este interesante proyecto aunque en clipper me defiendo un poquito.\n\nCordialmente\n\nJairo E Barbosa','',0,'wA==','7yosj2z2',1,0,'',890,0,0),(24924,5613,3,303,0,'72.199.41.171',1168714895,1,0,1,1,1,0,'','','In a situation like that this is what I do. Make a copy of the RES file and delete about half of the resources. Then link again. If you still get the error, then delete half of what was left and link again. Continue until you find the problem resource.\n\nHowever it doesn\'t sound like a resource error. Are you sure you not linking in an old OBJ or LIB?\n\nJames','',0,'wA==','19nzauxc',1,0,'',303,0,0),(24925,5635,2,890,0,'190.9.66.196',1168715674,1,0,1,1,1,0,'','Para Rene Florez','Rene \nSaludos Cordiales desde Cali Colombia \nComo te puedes dar cuenta por las preguntas que realizo soy nuevo en esto, soy un aficionado a clipper y cuando supe de fiewin pues causo un gran impacto en mi, no soy programador de profesion, soy ingeniero Industrial y de pasatiempos tengo la pasion de la programacion.\nHe estado en el portal que ustedes lideran y te pido el favor y me ayudes al aprendisaje de fivewin, no se como conseguir un CD que ustedes ofrecen en la red donde creo poderme enriqueser grandemente, por favor dime cual es el costo o como conseguirlo.\n\nCordialmente\n\nJairo Barbosa','',0,'wA==','2vah4716',1,0,'',890,0,0),(24926,5613,3,2,0,'87.218.146.5',1168717531,1,0,1,1,1,1,'','','Dixon,\n\n&gt; The error message is \"contain invalid OMF record, type 0x00\" \n\nPlease copy the entire output here. \n\nIt looks as you are mixing OMF and COFF files. Borland uses OMF and Microsoft uses COFF','',0,'wA==','3fnvdq0y',1,0,'',2,0,0),(24927,5458,3,284,0,'201.13.79.246',1168724762,1,0,1,0,1,0,'','','Davide, did you have success in getting the IP address of the TS client ?\n \nMaurício Faria','',0,'wA==','nf72ak3h',1,0,'',284,0,0),(24928,3193,3,284,0,'201.13.79.246',1168724842,1,0,1,0,1,0,'','','Davide, did you have success in getting the IP address of the TS client ? \n\nMaurício Faria','',0,'wA==','2fn2d7nd',1,0,'',284,0,0),(24929,5458,3,487,0,'151.38.110.100',1168728707,1,0,1,1,1,0,'','','Maurício,\n[quote=&quot;concentra&quot;:j76swhy6]Davide, did you have success in getting the IP address of the TS client ?[/quote:j76swhy6]\nI don\'t need that info. In order to recognize the clients I use NetName(.t.)\n\nHi,\nDavide','',0,'gA==','j76swhy6',1,0,'',487,0,0),(24930,5568,3,171,0,'71.232.193.197',1168729401,1,0,1,1,1,0,'','','Excelente contribucion!!!\n\nTengo un problema al tratar de compilarlo con xHarbour comercial:\nxHarbour Builder Pro January 2007 + FWH 2.8 (Sep 2006)\n\nLOS ARCHIVOS EN C NO COMPILAN\n\nAlguna sugerencia. o Algun compañero que tenga el archivo .XBP para xBuilder?\n\nSaludos\n\n\nGeorge','',0,'gA==','2d6wwwa0',1,0,'',171,0,0),(24931,5634,2,376,0,'201.230.202.27',1168730450,1,0,1,1,1,1,'','','Ok... Haremos el esfuerzo!!! Como dicen los ingleses \"wait a moment\"','',0,'gA==','36fh9tok',1,0,'',376,0,0),(24932,5634,2,376,0,'201.230.202.27',1168731718,1,0,1,1,1,1,'','','Bien aqui va el tutor07.prg (Ya me estoy olvidando de programar con Clipper... Debo practicar!!!)\n\n\"Por si las moscas... no he compilado ni ejecutado, porque el Clipper y el Blinker lo tengo en otro lado\"\n\n// More work on previuos Tutor06 --&gt; curioso!!!\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;\n      TITLE \"Working with DataBases\" ;\n      MENU  BuildMenu()\n\n   SET MESSAGE OF oWnd ;\n      TO FWVERSION + \", \" + FWCOPYRIGHT CENTERED KEYBOARD\n\n   ACTIVATE WINDOW oWnd           // MAXIMIZED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM \"&amp;Information\"\n      MENU\n         MENUITEM   \"&amp;About...\" ;\n            ACTION  MsgInfo( \"FiveWin Tutorial\" + Chr( 13 ) + FWCOPYRIGHT ) ;\n            MESSAGE \"Information about this application\"\n\n         SEPARATOR\n\n         MENUITEM   \"&amp;End...\"  ;\n            ACTION  If( MsgYesNo( \"Want to end ?\" ), oWnd:End(),) ;\n            MESSAGE \"End this application\"\n      ENDMENU\n\n      MENUITEM \"&amp;Files\"\n      MENU\n         MENUITEM   \"&amp;Customers...\" ;\n            ACTION  Customers() ;\n            MESSAGE \"Customers maintainance\"\n\n         MENUITEM   \"&amp;Stock\" ;\n            ACTION  MsgInfo( \"Any option from here\" ) ;\n            MESSAGE \"Stock maintainance\"\n      ENDMENU\n\n      MENUITEM \"&amp;Utils\"\n      MENU\n         MENUITEM   \"&amp;Calculator...\" ;\n            ACTION  WinExec( \"Calc\" ) ;\n            MESSAGE \"Run Windows calculator\"\n\n         MENUITEM   \"C&amp;alendar...\" ;\n            ACTION  WinExec( \"Calendar\" ) ;\n            MESSAGE \"Run Windows calendar\"\n\n         MENUITEM   \"&amp;Some fun...\" ;\n            ACTION  WinExec( \"Sol\" ) ;\n            MESSAGE \"Play a game...\"\n      ENDMENU\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction Customers()\n\n   local oDlg\n   local cNombre    := \"\"\n   local cDireccion := \"\"\n   local getNombre, getDireccion\n\n   if ! File( \"clientes.dbf\" )\n      DbCreate( \"Clientes.dbf\", { { \"Nombre\",    \"C\", 40, 0 },;\n                                  { \"Direccion\", \"C\", 50, 0 },;\n                                  { \"Telefono\",  \"C\", 12, 0 },;\n                                  { \"Edad\",      \"N\",  2, 0 },;\n                                  { \"Productos\", \"C\", 10, 0 },;\n                                  { \"Nivel\",     \"N\",  2, 0 } } )\n   endif\n   \n   USE Clientes\n   if RecCount() == 0\n      APPEND BLANK\n   endif\n   INDEX ON Clientes-&gt;Nombre TO CliNombr\n   SET INDEX TO CliNombr\n   GO TOP\n\n   cNombre    := Clientes-&gt;Nombre\n   cDireccion := Clientes-&gt;Direccion\n\n   DEFINE DIALOG oDlg FROM 6, 7 TO 21, 72 TITLE \"Customers Management\"\n\n   @ 1, 2 SAY \"Name:\" OF oDlg\n   @ 1, 8 GET getNombre VAR cNombre OF oDlg  VALID NoEmptyField( cNombre )\n\n   @ 2, 2 SAY \"Address:\" OF oDlg\n   @ 2, 8 GET getDireccion VAR cDireccion OF oDlg\n\n   @ 8,  3 BUTTON \"&amp;Previous\"  OF oDlg SIZE 50, 12 ;\n      ACTION ( DbSkip( -1 ),;\n               getNombre:cText    := Clientes-&gt;Nombre,;\n               getDireccion:cText := Clientes-&gt;Direccion )\n\n   @ 8, 14 BUTTON \"&amp;Next\" OF oDlg SIZE 50, 12;\n       ACTION ( DbSkip( 1 ),;\n                If( EoF(), MsgInfo( \"End of file\" ),),;\n                If( EoF(), DbGoBottom(),),;\n                getNombre:cText    := Clientes-&gt;Nombre,;\n                getDireccion:cText := Clientes-&gt;Direccion )\n\n  /* Esta parte es lo que se ha agregado para lo que quieres*/\n   @ 8, 26 BUTTON \"&amp;Grabar\"  OF oDlg SIZE 50, 12;\n       ACTION ( DbAppend(),;\n              Clientes-&gt;Nombre    := cNombre,;\n              Clientes-&gt;Direccion := cDireccion )\n\n  /* Esta parte se ha modificado*/\n   @ 8, 38 BUTTON \"&amp;End\"  OF oDlg SIZE 50, 12 ACTION oDlg:End()\n      \n   ACTIVATE DIALOG oDlg\n\n   USE\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nstatic function NoEmptyField( cField )\n\n    if Empty( cField )\n        MsgAlert( \"Empty field not allow here!\" )\n        return .f.\n    endif\n\nreturn .t.\n\n//---------------------------------------------------------------------------//\n/* Tambien se puede utilizar una funcion como esta para agregar registros\nFUNCTION Grabar(Nombre, Direccion)\n    APPEND BLANK\n   Clientes-&gt;Nombre     := Nombre\n   Clientes-&gt;Direccion  := Direccion\nRETURN NIL\n*/','',0,'gA==','1pcgoqd5',1,0,'',376,0,0),(24933,5627,6,215,0,'189.136.229.14',1168734014,1,0,1,1,1,1,'','yo lo hago asi','Yo lo hago asi con imagenes tif\nTengo 5 usuarios las imagenes van desde el 0001.tif hasta x número de imagenes.\nEl programa hace un while desde el 0001 en adelante. El primer usuario en tomar una imagen hace que el programa cree un  archivo txt con el mismo nombre de la imagen. Entonces el siguiente usuario al entrar el programa verifica si existe un archivo txt con el mismo nombre de la imagen. Si ya existe pasa al siguiente archivo... y asi sucesivamente hasta que encuentre una imagen que no tenga un archivo txt con el mismo nombre.','',0,'gA==','3ugj8nqn',1,0,'',215,0,0),(24934,5635,2,138,0,'189.141.72.221',1168735783,1,0,1,1,1,1,'','','Todo el CD de Utilidades para FiveWin esta disponble para descarga desde internet.\n\nregistrate en \n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/usrs.htm\">www.google.d2g.com/usrs.htm</a><!-- w -->\n\ny se te enviaran por correo electronico las insturcciones para descargar los archivos','',0,'gA==','21z1s7xn',1,0,'',138,0,0),(24935,5631,2,774,0,'200.72.74.142',1168738920,1,0,1,1,1,1,'','',':...............','',0,'gA==','25klvai8',1,0,'',774,0,0),(24936,5635,2,228,0,'200.119.52.211',1168739167,1,0,1,1,1,1,'','Amigo...','Amigo yo estoy en Bogotá, cualquier cosa que necesites con gusto... Que bueno encontrar alguien mas de Colombia que le interese el FW.. Cualquier cosa contactame por el privado\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->\n\nSaludos','',0,'gA==','1sskdvxf',1,0,'',228,0,0),(24937,3727,3,487,0,'151.42.118.84',1168742239,1,0,1,1,1,0,'','Re: Wrong printer picked up - SOLVED','[quote=&quot;Davide&quot;:23qe3mcs]If I have 2 printers with similar long names, for example:\nHP Officejet 6200 series fax\nHP Officejet 6200 series\n\nPRINT oPrn NAME cName TO \"HP Officejet 6200 series\" - may pick up the fax one.[/quote:23qe3mcs]\n\nSolved: In Printer.prg - Function PrintBegin()\n[code:23qe3mcs]nScan &#58;= Ascan&#40;aPrn, &#123;|v| Upper&#40;xModel&#41;$Upper&#40;v&#41; &#125;&#41;[/code:23qe3mcs]\nshould be changed as:\n[code:23qe3mcs]nScan &#58;= Ascan&#40;aPrn, &#123;|v| Upper&#40;xModel&#41;==Upper&#40;v&#41; &#125;&#41;[/code:23qe3mcs]\nAntonio, there was a particular reason for searching only part of the printer name in the array ?\n\nHi,\nDavide','',0,'gIA=','23qe3mcs',1,0,'',487,0,0),(24938,5613,3,282,0,'61.49.237.48',1168743480,1,0,1,1,1,0,'','','The RES is linked OK with BCC55 + Harbour 42.0 + FWH 2.4 and\nVC6 + xHarbour .99.61 + FWH6.12 also. \nIt only have problem on BCC55 + xHarbour .99.61 + FWH6.12 \n\nI try to delete some of items , and relink it , It still have same error\n\nThanks anyway , maybe I can go for VC6 + xHarbour .99.61 + FWH6.12\n\nBest Regards \n\nps. sorry Antonio , I can\'t find the attachmemt button to upload the RES file','',0,'gIA=','2s2ow4f7',1,0,'',282,0,0),(24939,5568,3,707,0,'222.124.20.54',1168746204,1,0,1,1,1,0,'','','Mr. George\n\n[quote:320bd9jw]\nTengo un problema al tratar de compilarlo con xHarbour comercial: \nxHarbour Builder Pro January 2007 + FWH 2.8 (Sep 2006)\n[/quote:320bd9jw]\n\nIf you mean error when used xBuildW, you must recompile menus.c with xCC.EXE manualy.\n\nxCC.exe -Ot menus.c /ic:\\your include header files\n\nadd your obj to your project .XBP file\n\nI have done with this\n\nregards\nAreang','',0,'gA==','320bd9jw',1,0,'',707,0,0),(24940,5567,6,228,0,'201.244.215.220',1168747054,1,0,1,1,1,1,'','Amigo...','Arturo o Compañeros del foro  una preguntica.... \n\nlogre compilar la clase y me funciondo a la perfección ahora lo que quiero es cambiar el color... tome el que viene por defecto en el ejemplo (azul), me gustaria cambiar el color como a un naranja... de casualidad alquien me puede indicar como se hace.. de antemano gracias.\n\n[url=http&#58;//zea&#46;imagestack&#46;org/1168747810/244215220/55/IMAGEN&#46;JPG&#46;html:38sznfda][img:38sznfda]http&#58;//zea&#46;imagestack&#46;org/thmb/1168747810/244215220/55/IMAGEN&#46;JPG[/img:38sznfda][/url:38sznfda]','',0,'GA==','38sznfda',1,0,'',228,0,0),(24941,5567,6,785,0,'190.64.112.228',1168748475,1,0,1,1,1,0,'','','Leandro:\n\nTe dejo lo que hace cada uno para que hagas tus pruebas\n\ncClrDegrFin := LightColor(60,getsysColor(2))    // COLOR 1 DE LA BARRA VERTICAL\ncClrDegrIni:= LightColor(230,cClrDegrFin)       // COLOR 2 DE LA BARRA VERTICAL\ncClrMenu :=  RGB(224, 255, 255)                 // COLOR DE FONDO DEL MENU\ncClrMenuTxt:= CLR_BLACK                         // color del texto del menu sin seleccion \ncClrSelFin:= RGB(255,238,194)                   // color de la barra de seleccion inferior  \ncClrSelIni:= RGB(255,238,194)                   // color de la barra de seleccion superior\ncClrSelTxt:= CLR_BLACK                          // COLOR DEL TEXTO  SELECCIONADO\ncClrSelBor:= CLR_BLACK                          // COLOR DEL RECUADRO DE LA SELECCION DEL MENU\n\n\nSaludos.\n\nRuben Fernandez','',0,'GA==','a2vwzy8c',1,0,'',785,0,0),(24942,5613,3,303,0,'72.199.41.171',1168753938,1,0,1,1,1,0,'','','Dixon,\n\n&gt;but I have a problem when I iLink the resources ( XX.res convert from XX.rc with Borland WorkShop 4.5) \n\nDid you know that you have to convert the 16bit resource file to 32bit? It has been awhile since I did this and I don\'t remember excatly how. Perhaps someone will chime in with instructions.\n\nJames','',0,'GA==','2jdb77qs',1,0,'',303,0,0),(24943,3727,3,2,0,'87.218.146.3',1168759648,1,0,1,1,1,1,'','','Davide,\n\nYes, because that way you could use just part of a name, i.e.:\n\nPRINT oPrn NAME cName TO \"fax\"','',0,'GA==','vms98edd',1,0,'',2,0,0),(24944,5613,3,2,0,'87.218.146.3',1168759736,1,0,1,1,1,1,'','','Dixon,\n\nPlease check that you are using FiveHX.lib and FiveHC.lib','',0,'GA==','1c29gfgn',1,0,'',2,0,0),(24945,5613,3,282,0,'61.149.78.236',1168763497,1,0,1,1,1,0,'','','Dear James and Antonio\n\nyes ! I\'m using FiveHX.lib and FiveHC.lib\n\nand the RES is 32 bit also .\n\nIt\'s OK when I link this RES file at FWH/samples (FWH6.12)\n\nOK , forget it, I\'m going change to VC6 + xHarbour + FWH6.12\n\nSo , bye ! bye ! Borland C , I will miss you \n\nThanks James and Antonio \n\nBest Regards!\n\nDixon Chu','',0,'GA==','3fpztxyo',1,0,'',282,0,0),(24946,3727,3,487,0,'151.38.49.211',1168770719,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3n03n86a]PRINT oPrn NAME cName TO \"fax\"[/quote:3n03n86a]\nUhm, that way if you have more than a printer containing the word \"fax\" you don\'t know which one will be picked up.\n\nIn addition, even using the TO &lt;entire_printer_name&gt; you may experiencing problems, like in the example I\'ve posted above. More and more all-in-one printers nowadays are installing printer drivers named that way.\n\nRegards,\nDavide','',0,'gA==','3n03n86a',1,0,'',487,0,0),(24947,5627,6,838,0,'80.59.225.15',1168771392,1,0,1,1,1,0,'','','He hecho pruebas, y me es mas facil tener controlado el tema por una base de datos, ya que además puedo incluir un campo que se llama Usuario, con lo que el usuario puede dejar reservadas imágenes para pasarlas él, por ejemplo las de un determinado cliente si pertenece a su zona, etc.\n\nYa está acabado. La idea era que a primera hora, se escaneen todos los albaranes, y en lugar de pasarlos físicamente, pasarlos visualmente. Esto tiene la ventaja de que si necesitamos una copia en el futuro, no hay que ir a archivo a buscarla, simplemente se localiza y se imprime.\n\nLos albaranes se escanean en una carpeta provisional de trabajo, según se van realizando, borrarlos de ésta carpeta y pasarlos a una definitiva, desde la que incluso los clientes con una clave pueden acceder a éstas imagenes.\n\nLo que yo no sé es si será un trabajo excesivo para el ordenador, estar continuamente por cada operador, copiando mediante copy file to, a éste directorio defitinitivo, y borrando el fichero del directorio de trabajo, en fin ya veremos.\n\nSaludos\n\nJose Luis','',0,'gA==','3lu2b44u',1,0,'',838,0,0),(24948,5567,6,228,0,'201.244.208.136',1168784374,1,0,1,1,1,1,'','Gracias...','Amigo gracias.. \n\nQuedo comprendido...','',0,'gA==','3daeikgm',1,0,'',228,0,0),(24949,5568,3,171,0,'71.232.193.197',1168794615,1,0,1,1,1,0,'','','Hi Areang\n\nI did try to compile but I get some errors.\n\nCould you please send to my email \"georgeabinader@msn.com\"  the menus.obj and gradfill.obj files?\n\nRegards\n\n\nGeorge','',0,'gA==','1ixzzlod',1,0,'',171,0,0),(24950,5567,6,171,0,'71.232.193.197',1168794720,1,0,1,1,1,0,'','','Excelente contribucion!!! \n\nTengo un problema al tratar de compilarlo con xHarbour comercial: \nxHarbour Builder Pro January 2007 + FWH 2.8 (Sep 2006) \n\nLOS ARCHIVOS EN C NO COMPILAN \n\nAlguna sugerencia. o Algun compañero que tenga el archivo .XBP para xBuilder? \n\nSaludos \n\n\nGeorge','',0,'gA==','3rgzoixh',1,0,'',171,0,0),(24951,3727,3,3,0,'82.251.80.159',1168795023,1,0,1,1,1,1,'','','Antonio <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nThis is not the correct windows behaviour. \n\nI agree with DAVIDE,  we should pick the \"exact\" printer.\n\nI also have this problem of wrong printer selected, fax returned instead of the printer. In this case, i rename one of the printers...\n\nRichard','',0,'gA==','3c1y4mz4',1,0,'',3,0,0),(24952,5636,6,838,0,'80.59.225.15',1168796117,1,0,1,1,1,0,'','Es posible éste filtro con scopes?','Hola amigos\nHasta ahora vengo haciendo las busquedas internas en una base de datos, es decir por nombres que contengan algo de la siguiente forma:\n\n[code:2gz9stou]MsgGet&#40; &quot;Introduzca las letras a buscar&quot;,&quot;BUSQUEDA POR CADENA EN EL NOMBRE&quot;,@codibus &#41; \n&#40;aAlias&#91;21&#93;&#41;-&gt;&#40; dbSetfILTER&#40; &#123;|| &#40;ALLTRIM&#40;Upper&#40;@codibus&#41;&#41; $ Upper&#40;&#40;aAlias&#91;21&#93;&#41;-&gt;Nombre&#41;&#41;&#125;,\'&#40;ALLTRIM&#40;Upper&#40;@codibus&#41;&#41; $ Upper&#40;&#40;aAlias&#91;21&#93;&#41;-&gt;Nombre&#41;&#41;\'&#41; &#41;\n[/code:2gz9stou]\n\nEsto funciona perfectamente en el PC que tiene la aplicación, pero para otros usuarios de red, cuando la BD tiene unos 10.000 registros, se hace lento, por lo que pensé en utilizar scopes de la siguiente manera:\n[code:2gz9stou]MsgGet&#40; &quot;Introduzca las letras a buscar&quot;,&quot;BUSQUEDA POR CADENA EN EL NOMBRE&quot;,@codibus &#41; \n&#40;aAlias&#91;21&#93;&#41;-&gt;&#40;Ordscope&#40;0,&#40;ALLTRIM&#40;Upper&#40;@codibus&#41;&#41; $ Upper&#40;&#40;aAlias&#91;21&#93;&#41;-&gt;Nombre&#41;&#41;&#41;&#41;\n&#40;aAlias&#91;21&#93;&#41;-&gt;&#40;Ordscope&#40;1,&#40;ALLTRIM&#40;Upper&#40;@codibus&#41;&#41; $ Upper&#40;&#40;aAlias&#91;21&#93;&#41;-&gt;Nombre&#41;&#41;&#41;&#41;\n[/code:2gz9stou]\nPero ésto no funciona.\nExiste alguna forma de hacer lo que quiero,ya sea con scopes o de alguna otra forma que sea rápida?\n\nSaludos\n\nJose Luis','',0,'AIA=','2gz9stou',1,0,'',838,0,0),(24953,3727,3,2,0,'87.218.146.205',1168797313,1,0,1,1,1,1,'','','Davide, Richard,\n\nWe can easily modify it as Davide has suggested but I am afraid that we may break existing applications if we change it in FWH','',0,'AIA=','bftbze85',1,0,'',2,0,0),(24954,3727,3,303,0,'72.199.41.171',1168803558,1,0,1,1,1,0,'','','Antonio,\n\nI would vote for fixing the problem even if it breaks some existing applications. You could put a warning in the What\'s New file. However, it is not me that developers might be upset with if existing apps are broken, so I understand why you would not want to do that.\n\nMay I offer a compromise. Add an lExactName var we can set to force it to use exact naming, and default it to false. That way no existing apps will be broken.\n\nThe alternative would be to set it to true. Existing apps that are affected would then have to change it to false but it would be a simple fix.\n\nJames','',0,'AIA=','1ohjuce9',1,0,'',303,0,0),(24955,5567,6,376,0,'201.230.168.114',1168804427,1,0,1,1,1,1,'','','He compilado el fuente en un archivo .LIB. Cuando intento utilizarlo como una libreria mas para mis aplicaciones no se genera el ejecutable. En el proceso se para con un mensaje de \"too many MAP in fivehc\" ... o algo parecido.\n\nInicialmente me parece que tiene conflicto con menu.c que se encuentra en la libreria de FWH... alguna otra cosa que pueda ser?','',0,'AIA=','33i4ees6',1,0,'',376,0,0),(24956,5637,2,890,0,'209.88.63.94',1168807475,1,0,1,1,1,0,'','Para Rene Flores','Hola Rene\nSaludos Cordiales\n\nGracias por la pagina que me sugeriste muy interesante.\nEn cuanto a lo del disco con las utilidades ya me he registrado en tu pagina o quiero decir en la CYBER en tres ocaciones y dice que recibire en mi correo unas instrucciones para bajarlo pero no he recibido tal correo, si esta dentro de tus posibilidades el ayudarme para tal informacion te lo agradecere mucho.\n\nCordialmente\n\nJairo E Barbosa','',0,'AIA=','29pvu5hj',1,0,'',890,0,0),(24957,5579,6,303,0,'72.199.41.171',1168809165,1,0,1,1,1,0,'','','Alexander,\n\nUtilizo una BITMAP del gradiente en la BITMAP toolbar y levemente diversa del gradiente en el botón tan los fósforos del color.\n\nJames','',0,'AIA=','274r9oi8',1,0,'',303,0,0),(24958,5638,6,228,0,'201.244.24.105',1168823514,1,0,1,1,1,1,'','Pregunta de xbrowse..','Amigos del foro estoy intentando hacer un modulo para la captura de datos en un supermercado.. quiero hacer un browse (xbrowse) editable para digitar los datos directamente sobre la grilla.\n\nLo estoy haciendo sobre una dbf.. Ya logre validar los datos en cada columna, pero el problema es que cuando quiero cambiar los datos de la columna, debo hacer primero doble click o presionar la tecla enter para que me deje digitar.... \n\nLa pregunta es: como se hace para no tener que presionar enter y que la celda este siempre lista para editarla. Ya que la captura es con lector de codigo de barras.\n\n\nDe antemano gracias\n\nImagen sin presionar enter...\n\n[url=http&#58;//zea&#46;imagestack&#46;org/1168824153/24424105/22/XBROWSE&#46;JPG&#46;html:3g56ejt9][img:3g56ejt9]http&#58;//zea&#46;imagestack&#46;org/thmb/1168824153/24424105/22/XBROWSE&#46;JPG[/img:3g56ejt9][/url:3g56ejt9]\n\nQuiero que siempre este asi:\n\nlisto para digitar\n\n[url=http&#58;//zea&#46;imagestack&#46;org/1168824290/24424105/57/XBROWSE2&#46;JPG&#46;html:3g56ejt9][img:3g56ejt9]http&#58;//zea&#46;imagestack&#46;org/thmb/1168824290/24424105/57/XBROWSE2&#46;JPG[/img:3g56ejt9][/url:3g56ejt9]\n\nMuchas gracias','',0,'GA==','3g56ejt9',1,0,'',228,0,0),(24959,5639,3,49,0,'62.13.172.78',1168824036,1,0,1,1,1,1,'','resource error','[url=http&#58;//img59&#46;imageshack&#46;us/my&#46;php?image=errorepu3&#46;png:e7gml5tw][img:e7gml5tw]http&#58;//img59&#46;imageshack&#46;us/img59/7813/errorepu3&#46;th&#46;png[/img:e7gml5tw][/url:e7gml5tw]\n\nI use workshop borland.\nWhy  in some gets there is border : on the top there is a get with the same option but it not shoe the error \n \nI made a simply test the link it : <!-- w --><a class=\"postlink\" href=\"http://www.postazioneuno.it/prova_er.zip\">www.postazioneuno.it/prova_er.zip</a><!-- w -->\n\n\nWhy it make it ?','',0,'GA==','e7gml5tw',1,0,'',49,0,0),(24960,5636,6,138,0,'148.221.192.149',1168824608,1,0,1,1,1,1,'','','Los scopes requieren un indice sobre el campo que vas a filtrar y no soportan el operador \"$\"\n\nSi utilizas el servidor local de ADS (ADSLOC32.DLL) puede seguir haciendo tus filtros con DBSETFILTER, pero cientos de veces mas rapido que con el Harobur normal.','',0,'GA==','38t01qjg',1,0,'',138,0,0),(24961,5640,6,913,0,'189.136.164.247',1168828739,1,0,1,1,1,1,'','COMO PUEDO USAR FLASH?','HOLA\n\nya por fin me estan empesando a quedar mis programitas viejitos de 16 bits a 32 bits <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\ny ahora ya me llamo la atencion de que se puede usar archivos de flash\nya compile el ejemplo flash.prg y eh usado diferentes archivos flash.swf\npero solo se abre el cuadro pero no presenta el archivo <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  algo esta mal? o tengo que poner archivos flash de determinado tamaño <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nles agradesco me orienten  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAida <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'GA==','g37raego',1,0,'',913,0,0),(24962,5641,3,282,0,'210.72.235.124',1168830163,1,0,1,1,1,0,'','The UPDATE Method of TSay class is out of function on FWH6.1','Dear Antonio\n\nThe UPDATE Method of TSay class is out of function on FWH6.12 + xHarbour + VC6 .\n\nbut I relink with FWH2.4  SAY.PRG , It\'s ok .\n\nBest Regards \n\nDixon Chu','',0,'GA==','1pdg7k73',1,0,'',282,0,0),(24963,5640,6,913,0,'189.136.164.247',1168833885,1,0,1,1,1,1,'','Hola me auto contesto','hola jejeje <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  ya pude hechar el flash de fondo en mi menu yo muy babis no ley bien que tenia que poner la direccion completa de donde se encuentra  el archivo flash <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nde todas maneras gracias\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','34mvhlzp',1,0,'',913,0,0),(24964,5636,6,838,0,'80.34.222.112',1168847401,1,0,1,1,1,0,'','','Vale, muchas gracias, voy a enterarme que es eso de ADS, que veo que escribis mucho sobre el tema.\n\nSaludos\n\nJose Luis','',0,'GA==','n053kwvw',1,0,'',838,0,0),(24965,5595,20,154,0,'151.21.77.146',1168848490,1,0,1,1,1,1,'','','Finalmente ho risolto, di seguito ci sono le modifiche da inserire nel Combobox.prg per ottenere la ricerca incrementale nel combobox classico, non ho fatto prove (per ora) con gli altri tipi:\n[code:316k3rnz]#define UGO\n//----------------------------------------------------------------------------//\nCLASS TComboBox FROM TControl\n   &#46;&#46;&#46;\n   #ifdef UGO\n       DATA   cSearchKey   // Holds current search key for incremental search&#46;\n   #endif\n   &#46;&#46;&#46;\n   #ifdef UGO\n       METHOD GotFocus&#40; &#41;\n   #endif\nENDCLASS\n&#46;&#46;&#46; \n//----------------------------------------------------------------------------//\nMETHOD New&#40; &#46;&#46;&#46; &#41; CLASS TComboBox\n&#46;&#46;&#46;\n   &#58;&#58;oFont     = oFont\n#ifdef UGO\n   &#58;&#58;cSearchKey &#58;= &quot;&quot;\n#endif\n&#46;&#46;&#46;\n//----------------------------------------------------------------------------//\nMETHOD ReDefine&#40; &#46;&#46;&#46; &#41; CLASS TComboBox\n&#46;&#46;&#46;\n   &#58;&#58;nStyle    = nStyle\n#ifdef UGO\n   &#58;&#58;cSearchKey &#58;= &quot;&quot;\n#endif\n&#46;&#46;&#46;\n//----------------------------------------------------------------------------//\n#ifdef UGO\nMETHOD GotFocus&#40;&#41; CLASS TComboBox\n   &#58;&#58;cSearchKey &#58;= &quot;&quot;\n   Return Super&#58;GotFocus&#40;&#41;\n#endif\n//----------------------------------------------------------------------------//\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TComboBox\n#ifdef UGO\n   local nNewAT &#58;= 0, nOldAT &#58;= &#58;&#58;nAT, uItem\n   // Incremental search\n   Do Case\n   Case nKey = 32   // VK_DELETE &#40;DO NOT WORK!&#41;\n      &#58;&#58;cSearchKey &#58;= &quot;&quot;\n      nNewAt &#58;= 1\n      uItem &#58;= &#58;&#58;aItems&#91;nNewAt&#93;\n   Case nKey = VK_BACK\n      &#58;&#58;cSearchKey &#58;= Left&#40; &#58;&#58;cSearchKey, Len&#40;&#58;&#58;cSearchKey&#41; - 1 &#41;\n   Case nKey = 190\n      nKey &#58;= 0\n      &#58;&#58;cSearchKey += &quot;&#46;&quot;\n   OtherWise\n      &#58;&#58;cSearchKey += Upper&#40; Chr&#40; nKey &#41;&#41;\n   endcase\n   If Empty&#40; uItem &#41;\n      IF nNewAt == 0\n         nNewAt &#58;= AScan&#40; &#58;&#58;aItems, &#123;|x| Upper&#40;x&#41; = &#58;&#58;cSearchKey &#125; &#41;\n         uItem &#58;= &#58;&#58;aItems&#91; IIF&#40; nNewAt &gt; 0, nNewAt, &#58;&#58;nAT &#41; &#93;\n      ELSE\n         uItem &#58;= &#58;&#58;aItems&#91;Max&#40; nNewAt, 1&#41;&#93;\n      ENDIF\n   ENDIF\n   &#58;&#58;Set&#40; uItem &#41;\n   if &#58;&#58;bChange != nil &#46;and&#46; &#40; nNewAT != nOldAt &#46;and&#46; nNewAt != 0 &#41;\n      Eval&#40; &#58;&#58;bChange, Self, &#58;&#58;varGet&#40;&#41; &#41;\n   endif\n   if nKey == VK_RETURN\n      return &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endif\n   // Return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n   RETURN 0   // Must be 0 - We don\'t want API default behavior&#46;\n#else\n   // Standard keychar method\n   if nKey == VK_RETURN\n      return &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endif\n   return nRet\n#endif[/code:316k3rnz]\n\nIl tutto è messo sotto define per passare al volo alla versione standard e per gestire le nuove versioni di Antonio <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSpero possa essere utile.','',0,'AIA=','316k3rnz',1,0,'',154,0,0),(24966,5642,3,28,0,'213.27.201.254',1168849322,1,0,1,1,1,0,'','CanalFive','Hello  \n  \nAs some of you you know, Fivetechsoft begins conversations with CanalFive to distribute its products. We have not reached an agreement and for it CanalFive will continue selling its own products.   \nPlease, to buy the products of Canalfive, to send a mail to <!-- e --><a href=\"mailto:pacogarcia@canalfive.com\">pacogarcia@canalfive.com</a><!-- e --> or <!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e -->  \n  \nI thank FivetechSoft openly their interest for the products of CanalFive.   \n  \nA cordial greeting  \n  \nPaco García','',0,'AIA=','20ca9ucs',1,0,'',28,0,0),(24967,5643,6,28,0,'213.27.201.254',1168849390,1,0,1,1,1,0,'','CanalFive','Hola  \n  \nComo algunos de vosotros sabeis, Fivetechsoft inicio conversaciones con CanalFive para distribuir sus productos. No hemos llegado a un acuerdo y por ello CanalFive seguirá vendiendo sus propios productos.   \n\nPara comprar los productos de Canalfive por favor, enviar un correo a <!-- e --><a href=\"mailto:pacogarcia@canalfive.com\">pacogarcia@canalfive.com</a><!-- e --> o <!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e -->  \n  \nAgradezco publicamente a FivetechSoft su interés por los productos de CanalFive.   \n  \nUn cordial saludo  \n  \nPaco García','',0,'AIA=','1nkcv0wz',1,0,'',28,0,0),(24968,5639,3,130,0,'141.51.32.24',1168851451,1,0,1,1,1,0,'','','Silvio,\n\nthe border wiil disappear if you \"redefine\" every control in your source.\n \n\nStefan','',0,'AIA=','2u3n1we4',1,0,'',130,0,0),(24969,5642,3,51,0,'80.122.88.242',1168852316,1,0,1,1,1,0,'','','&gt; We have not reached an agreement \nThis new week starts with really bad news.\n\nRegards\nOtto','',0,'AIA=','2rmyoux6',1,0,'',51,0,0),(24970,5642,3,2,0,'87.218.146.18',1168856189,1,0,1,1,1,1,'','','Otto,\n\nWe have tried to reach an agreement but it was not possible. Anyhow you may buy the CanalFive products directly from them','',0,'AIA=','3v9dyutm',1,0,'',2,0,0),(24971,5641,3,2,0,'87.218.146.18',1168856310,1,0,1,1,1,1,'','','Dixon,\n\nPlease remove ::VarPut() call in TSay.prg line 265','',0,'AIA=','36cx1adq',1,0,'',2,0,0),(24972,5642,3,51,0,'80.122.88.242',1168858106,1,0,1,1,1,0,'','','Antonio,\n\nThat’s true. But I don’t belief a standalone product “CAnalFive RibbonBar” has enough financial budget for a long life.\n\nRegards\nOtto','',0,'AIA=','3e0qtq79',1,0,'',51,0,0),(24973,5642,3,217,0,'200.159.120.34',1168860232,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:ci3qvn8v]\nThat’s true. But I don’t belief a standalone product “CAnalFive RibbonBar” has enough financial budget for a long life.\n[/quote:ci3qvn8v]\n\nI agree with Otto.\nI long time ago I tryed contact Paco to buy VTaskBar but I receive nothing...\nI\'m sad because Paco\'s products are very good but the problem is support to it...\n\nRegards\nMaurilio','',0,'gA==','ci3qvn8v',1,0,'',217,0,0),(24974,3727,3,487,0,'151.38.72.153',1168861670,1,0,1,1,1,0,'','','Antonio, Richard, James,\n[quote=&quot;Antonio Linares&quot;:1s1zqzz4]I am afraid that we may break existing applications if we change it in FWH[/quote:1s1zqzz4]\nwhat about&#058;\n[code:1s1zqzz4]aPrn&#58;=ASORT&#40;aPrn&#41;\nnScan &#58;= Ascan&#40;aPrn, &#123;|v| Upper&#40;xModel&#41;$Upper&#40;v&#41; &#125;&#41;[/code:1s1zqzz4]\nThis way the &lt;exact_printer_name&gt; should be selected because it\'s found before &lt;exact_printer_name&gt;+\" fax\", solving both needs.','',0,'gIA=','1s1zqzz4',1,0,'',487,0,0),(24975,5641,3,282,0,'221.216.73.148',1168862042,1,0,1,1,1,0,'','','It\'s OK now , Thanks !\n\nDixon Chu','',0,'gIA=','xnim1aav',1,0,'',282,0,0),(24976,5644,7,893,0,'80.34.86.46',1168862813,1,0,1,1,1,0,'','Abrir varios ficheros dbf','Buenas al foro.\nTengo la necesidad de tener abiertas más de un dbf a la vez. En VFP para abrir un nuevo fichero, se selecciona un área de tabajo libre y se abre pudiendo tener un sinfin de ficheros abiertos a la vez. Se hace con SELECT 0.\n\nEn FiveWin como se hace esto??\n\nEsto no abre la tabla provincias:\n\nFUNCTION AbrirFicheros\n   Request DbfCdx \n   Request DbfFpt \n   RddSetDefault (\'DbfCdx\') \n   Request Hb_Lang_PLWIN \n   Request Hb_CodePage_PLWIN \n \n   **********\n   * Clientes\n   **********\n   IF .NOT. USED(\"Efth010\") \n      USE (CurDir()+\"\\Efth010\") NEW\n   ELSE\n   	  SELECT Efth010\n   ENDIF \n\n   INDEX ON CprvCod TO CODIGO ADDI\n   INDEX ON CprvNom TO FISCAL ADDI\n   INDEX ON CprvOme TO COMERCIAL ADDI   \n\n   Efth010-&gt;( OrdSetFocus( \"CODIGO\" ) ) \n   Efth010-&gt;( DbGoTop() )\n \n  \n   **********\n   * Provincias\n   **********\n   IF .NOT. USED(\"Efth003\") \n   	  SELECT 0\n      USE (CurDir()+\"\\Efth003\") NEW\n   ENDIF \nRETURN nil\n\nGracias de antemano.','',0,'gIA=','ktvxmixk',1,0,'',893,0,0),(24977,5645,7,893,0,'80.34.86.46',1168862936,1,0,1,1,1,0,'','Como abrir indices ya existentes?','Ayuda, ¿Como se usan índices, si ya existen?. Mi rutina de apertura de ficheros siempre LOS CREA y asi funciona, pero claro esto no es operativo.\n\nGracias de antemano','',0,'gIA=','2n27asvs',1,0,'',893,0,0),(24978,5646,3,914,0,'217.125.77.126',1168863629,1,0,1,1,1,0,'','Doble a Binario','[b:3nlfgwj9]Saludos a todos/as,[/b:3nlfgwj9]\n\nTiene FW alguna funcion para pasar un signed float (double 8 bytes) a binario, de forma similar a como lo hace W2BIN() con los signed integer de 2 bytes??\n\nHarbour no la tiene.\n\nGracias!!','',0,'QA==','3nlfgwj9',1,0,'',914,0,0),(24979,5567,6,104,0,'201.58.51.23',1168863631,1,0,1,1,1,0,'','','Olá,\n\nPara gerar o arquivo MENUS.OBJ para xharbour comercial (xacc) tive que fazer as mudanças abaixo. Procurem por \"//\"\n\n[code:3gg5sok5]\nHB_FUNC &#40; _COLORMENU &#41;\n&#123;\n   HMENU      iMenu;\n   MENUINFO   iMenuInfo ;\n   COLORREF lColor = hb_parnl&#40;2&#41;;\n   BOOL  lSubMenu = hb_parl&#40;3&#41;;\n   HBITMAP himage ;\n// HWND  himage ;\n\n// himage = &#40;HWND&#41;LoadImage&#40;0,hb_parc&#40;4&#41;,IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT &#41;;\n   himage = &#40;HBITMAP&#41;LoadImage&#40;0,hb_parc&#40;4&#41;,IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT &#41;;\n\n   if &#40;himage==NULL&#41;\n     &#123;\n//     himage = &#40;HWND&#41;LoadImage&#40;GetModuleHandle&#40;NULL&#41;,hb_parc&#40;4&#41;,IMAGE_BITMAP ,0,0, LR_LOADMAP3DCOLORS	| LR_LOADTRANSPARENT &#41;;\n       himage = &#40;HBITMAP&#41;LoadImage&#40;GetModuleHandle&#40;NULL&#41;,hb_parc&#40;4&#41;,IMAGE_BITMAP ,0,0, LR_LOADMAP3DCOLORS	| LR_LOADTRANSPARENT &#41;;\n     &#125;\n\n   iMenu              = GetMenu&#40;&#40;HWND&#41; _parnl&#40;1&#41;&#41;;\n   GetMenuInfo&#40;iMenu, &amp;iMenuInfo&#41;;\n   iMenuInfo&#46;cbSize   = sizeof&#40;MENUINFO&#41;;\n\n   if &#40;lSubMenu&#41;\n    &#123;\n      iMenuInfo&#46;fMask    = MIM_BACKGROUND | MIM_APPLYTOSUBMENUS ;\n    &#125;\n   else\n    &#123;\n      iMenuInfo&#46;fMask    = MIM_BACKGROUND;\n    &#125;\n\n   if &#40;himage==NULL&#41;\n    &#123;\n       iMenuInfo&#46;hbrBack = CreateSolidBrush&#40;lColor&#41;;\n    &#125;\n   else\n    &#123;\n       iMenuInfo&#46;hbrBack = CreatePatternBrush&#40;himage&#41;;\n    &#125;\n\n   SetMenuInfo&#40;iMenu, &amp;iMenuInfo&#41;;\n   DrawMenuBar&#40;&#40;HWND&#41; _parnl&#40;1&#41;&#41;;\n\n&#125;\n\n[/code:3gg5sok5]\n\nAbraços,\n\nRossine.','',0,'AIA=','3gg5sok5',1,0,'',104,0,0),(24980,5644,7,893,0,'80.34.86.46',1168864380,1,0,1,1,1,0,'','Ya está .','Disculpad era un problema mio','',0,'AIA=','3310cnyu',1,0,'',893,0,0),(24981,5639,3,49,0,'213.82.134.66',1168864928,1,0,1,1,1,1,'','','why it non make error for the first get ?','',0,'AIA=','k0xts6co',1,0,'',49,0,0),(24982,5647,3,529,0,'200.159.198.39',1168865371,1,0,1,1,1,0,'','memo with when .f.','hi, i need move the cursor using scroolbar in memo with when False, theres any way? thanks','',0,'AIA=','5dfnh1xd',1,0,'',529,0,0),(24983,5579,6,237,0,'200.68.70.89',1168866855,1,0,1,1,1,0,'','?','James:\n\nPlease, repeat your message and use ENGLISH. Are u using a translator from english to spanish? Please, use another translator...\nHave a little example???\n\nThanks!!!\nAlejandro.','',0,'AIA=','36l7p4dh',1,0,'',237,0,0),(24984,5648,7,140,0,'201.211.54.192',1168867560,1,0,1,1,1,0,'','Por donde comienzo???','Hola a todos..\nSaludos, Abrazos y Feliz 2007 !!!\n\nEsta semana he adquirido una Compaq iPaq 3760 con la idea de comenzar a adquirir experiencia en el desarrollo de aplicaciones para Pocket PC.\nYa tengo tiempo realizando desarrollos para equipos convencionales de escritorio utilizando xHarbour 0.993 con FW2.4, y la Lib Eagle1 de Manu para algunas aplicaciones.\n\nEntonces... las grandes preguntas son...\n1) Que tan adecuada es la IPaq 3760 para iniciarme en el desarrollo de aplicaciones para Pockets???\n2) Las herramientas que tengo me sirven para desarrollar aplicaciones para Pocket???\n3) Relacionando en lo posible la(s) respuesta(s) a la pregunta 2... Que otras herramientas necesito???\n4) Cuales son los pasos para comenzar???\n5) Que detalles debo tener en cuenta para no sucumbir en el intento???\n\nGracias de antemano a toda la ayuda que me puedan prestar.\n\nGiancarlo J. Sabattino S.\nValencia - Venezuela','',0,'AIA=','2x3x96gl',1,0,'',140,0,0),(24985,5648,7,2,0,'87.218.146.18',1168870216,1,0,1,1,1,1,'','','Giancarlo,\n\n&gt;\n1) Que tan adecuada es la IPaq 3760 para iniciarme en el desarrollo de aplicaciones para Pockets??? \n&gt;\n\nTe funcionará correctamente ya que posee un procesador compatible ARM. De todas formas, la mayoría del desarrollo y pruebas se hacen en el PC en el emulador de Pocket PC. Solo a veces se prueba en la Pocket PC.\n\n&gt;\n2) Las herramientas que tengo me sirven para desarrollar aplicaciones para Pocket??? \n&gt;\n\nNecesitas FWPPC, que es un producto comercial que puedes solicitar desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos\n\n&gt;\n3) Relacionando en lo posible la(s) respuesta(s) a la pregunta 2... Que otras herramientas necesito??? \n&gt;\n\nNinguna otra, ya que con FWPPC te proporcionamos todas las herramientas necesarias\n\n&gt; 4) Cuales son los pasos para comenzar??? \n\nLos pasos habiatuales con FW, ir al directorio samples, comprobar los paths en buildce.bat y hacer buildce tutor01 y así con el resto de tutores y ejemplos\n\n&gt; 5) Que detalles debo tener en cuenta para no sucumbir en el intento??? \n\nNormalmente en sólo unos dias estarás plenamente productivo. Sabiendo FWH, ya sabes FWPPC <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1wh19rxd',1,0,'',2,0,0),(24986,5627,6,376,0,'201.230.168.240',1168874097,1,0,1,1,1,1,'','','[quote=&quot;JoseLuis&quot;:a20a6wqh]He hecho pruebas, y me es mas facil tener controlado el tema por una base de datos, ya que además puedo incluir un campo que se llama Usuario, con lo que el usuario puede dejar reservadas imágenes para pasarlas él, por ejemplo las de un determinado cliente si pertenece a su zona, etc.\n\nYa está acabado. La idea era que a primera hora, se escaneen todos los albaranes, y en lugar de pasarlos físicamente, pasarlos visualmente. Esto tiene la ventaja de que si necesitamos una copia en el futuro, no hay que ir a archivo a buscarla, simplemente se localiza y se imprime.\n\nLos albaranes se escanean en una carpeta provisional de trabajo, según se van realizando, borrarlos de ésta carpeta y pasarlos a una definitiva, desde la que incluso los clientes con una clave pueden acceder a éstas imagenes.\n\nLo que yo no sé es si será un trabajo excesivo para el ordenador, estar continuamente por cada operador, copiando mediante copy file to, a éste directorio defitinitivo, y borrando el fichero del directorio de trabajo, en fin ya veremos.\n\nSaludos\n\nJose Luis[/quote:a20a6wqh]\n\nMi sugerencia es que a tu aplicacion le dotes de un boton que lee la carpeta de trabajo y que si encuentra una imagen nueva que lo inscriba en la BD. De esa forma creo que disminuiría la carga de trabajo y que los operadores hagan algo más productivo que estar haciendo \"copy file\".','',0,'gA==','a20a6wqh',1,0,'',376,0,0),(24987,5624,6,891,0,'148.243.37.162',1168874544,1,0,1,1,1,0,'','Gracias amigos del foro','[quote=&quot;Armando Picon&quot;:fktqemwy]Bueno... por ahí va la cosa. Al final el usuario no se va ha enterar si se ha utilizado un misil para matar la paloma!!![/quote:fktqemwy]\n\nGracias amigos del foro por la ayuda y sugerencias, problema resuelto, ya el usuario no podra abrir nuevamente mismo menu, estando deshabilitado...\nGracias se los agradezco\nAdriano C. C.','',0,'gA==','fktqemwy',1,0,'',891,0,0),(24988,5618,2,812,0,'201.214.35.67',1168874831,1,0,1,1,1,0,'','','Amigo:\n\nNo he podido dar con la solucion,\n\nSaludos,\n\nMiguel\n\n[quote=&quot;A&amp;C&quot;:2f1zlir4]Miguel ::: solucionaste el problema de los colores \n\nCuentame[/quote:2f1zlir4]','',0,'gA==','2f1zlir4',1,0,'',812,0,0),(24989,5618,2,228,0,'201.244.99.105',1168876101,1,0,1,1,1,1,'','Amigo...','Amigo si puedes coloca un pedazo de tu codigo y con gusto de podremos ayudar mas...','',0,'gA==','233tx0os',1,0,'',228,0,0),(24990,5637,2,415,0,'201.244.172.249',1168877050,1,0,1,1,1,1,'','','Jaba,\n\n\nYo llevo cuatro años esperando a que llegue el correo de Ciber, me canse de inscribirme......bueno en fin..\n\nApoyate en Leandro, en un joven (nueva generacion) que ha incursionado en Xharbour, FWH, MySql, Internet, etcc.. de seguroi te ayudara sin ingun costo...\nSaludos','',0,'gA==','3p2vtftw',1,0,'',415,0,0),(24991,5642,3,28,0,'213.27.201.254',1168878387,1,0,1,1,1,0,'','','Hello.\n\nI apologize if I have stopped some person to assist at some time. Lately I have had problems of health. Any thing that you need you knows my email.\n\n<!-- e --><a href=\"mailto:pacogarcia@canalfive.com\">pacogarcia@canalfive.com</a><!-- e -->\n<!-- e --><a href=\"mailto:francisco_garcia_fernandez@hotmail.com\">francisco_garcia_fernandez@hotmail.com</a><!-- e -->\n\nYou can contact also in the last address by Messenger.\n\nA greeting.\n\nPaco','',0,'gA==','3vnrvt6s',1,0,'',28,0,0),(24992,5618,2,812,0,'201.214.35.67',1168878564,1,0,1,1,1,0,'','Re: Amigo...','Leandro:\n\nGracias por tu atencion, te explico lo que necesito. Tengo una Dbu en la cual tengo definidos los departamentos de un edificio, para lo cual tengo 3 campo que generan un indice: PROYECTO+EDIFICIO+DEPARTAMENTO, como vez tengo que hacer un FILTRO, para que solo me muestre los departamentos que corresponden al edificio, previamente seleecionado.\n\nEl color del LISTBOX, solo me aparece el registro en azul, necesito cambiar en color base por otro a definir, y si puedo, me gustaria que los departamentos vendidos aparezcan con color rojo y los disponibles con color verde, dentro del mismo LISTBOX.\n\nUso Clipper 5.2e, Fivewin 2.2 y Blinker 5.1\n\nEL codogo es el siguiente:\n  Llamado desde Bitmap, para buscar Dpto.\n Redefine BitMap Id 25 Adjust Resource \"BUSCA2\" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh())\n\n\nFunction Bus_dep()\n   Local oDlg, oBot1, oBot2, oLbx1, oCurDedo\n   Sele oDbdep\n   DbSetorder(2)\n   Seek Cod_pro1+Cod_edi1\n\n\n   Define Dialog oDlg ResName \"BrowseSoloMuestra\" Title \"Departamentos\"\n   REDEFINE LISTBOX oBrw ;\n      FIELDS oDbdep-&gt;Cod_dep , subs(Oridep-&gt;Det_ori,1,15) ,str(oDbdep-&gt;cos_dep),str(oDbdep-&gt;Can_dor),str(oDbdep-&gt;Can_ban);\n      HEADERS \"Código\", \"Orientación\" , \"Costo Dpto.\", \"Dormi\",\"Baños\";\n      ID 100 OF oDlg ;\n      FIELDSIZES 50, 100, 80, 40,40;\n      ALIAS \"oDbdep\" ;\n      SELECT oDbdep-&gt;Cod_pro+oDbdep-&gt;Cod_edi FOR Cod_pro1+Cod_edi1 ;\n      UPDATE;\n      On DblClick ( Busca_dep2(),oDlg:End() )\n\n   Redefine BitMap Id 201 Adjust Resource \"BotonOk\" Of oDlg Cursor oCurDedo;\n            On Click (Busca_dep2(),oDlg:End())\n   Redefine BitMap Id 202 Adjust Resource \"BotonCancela\" Of oDlg Cursor oCurDedo;\n            On Click (Edi:=.f.,oDlg:End())\n\n   ACTIVATE DIALOG oDlg CENTERED\nReturn (Cod_dep1:=oDbdep-&gt;Cod_dep)\n\nFunction Busca_Dep2()\n  Sele oDbde\n  edi:=.t.\n  cod_dep1:=oDbdep-&gt;cod_dep\n  Return (Cod_dep1)\n\n***\nEstoy super complicado,\nDesde ya muchas gracias por tu atención\n\nMiguel Rivera\n\n\n\n\n[quote=&quot;leandro&quot;:1e2uyx13]Amigo si puedes coloca un pedazo de tu codigo y con gusto de podremos ayudar mas...[/quote:1e2uyx13]','',0,'gA==','1e2uyx13',1,0,'',812,0,0),(24993,5647,3,6,0,'82.54.221.55',1168879011,1,0,1,1,1,1,'','Re: memo with when .f.','Use READONLY clause instead.\n\nEMG','',0,'gA==','o5d9aytm',1,0,'',6,0,0),(24994,5589,2,774,0,'200.72.179.162',1168879579,1,0,1,1,1,1,'','','amigo dime:\n\nque usas para los browse\n\nUsas LISTBOX nativo de FIVEWIN\n\no TSBROWSE o algun otro\n\nes que depende de cual uses es si se puede pintar las lineas o no','',0,'gA==','1lqxsvch',1,0,'',774,0,0),(24995,5631,2,774,0,'200.72.179.162',1168879605,1,0,1,1,1,1,'','',':.........','',0,'gA==','1vxz468z',1,0,'',774,0,0),(24996,5649,3,6,0,'82.54.221.55',1168879834,1,0,1,1,1,1,'','Bug in TGet with latest xHarbour from CVS','This is the sample. Try pressing a digit and you will get the separator dots on the GET.\n\n[code:2wotm1pd]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL nVar &#58;= 0\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 GET nVar;\n           PICTURE &quot;@EZ 999,999&#46;99&quot;;\n           RIGHT\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2wotm1pd]\n\nEMG','',0,'AIA=','2wotm1pd',1,0,'',6,0,0),(24997,5638,6,103,0,'200.165.6.4',1168881347,1,0,1,1,1,1,'','','Hola Leandro,\n\n    Una pregunta: ¿El lector de codigo de barras no hace un ENTER en el momento de la captura? ¿Has probado con el lector en el browse?\n\nSaludos,','',0,'AIA=','3nhn4f1h',1,0,'',103,0,0),(24998,5567,6,103,0,'200.165.6.4',1168881594,1,0,1,1,1,1,'','','Arturo,\n\n     Excelente trabajo!!! He bajado y me funciona al pelo!!! Gracias por tu contribuición.\n\nSaludos,','',0,'AIA=','7v9j40ty',1,0,'',103,0,0),(24999,5589,2,812,0,'201.214.35.67',1168883067,1,0,1,1,1,0,'','','Amigo:\n\nUso Solo LISTBOX que viene con Fw22 que se enuentra en FW22\\samples\\gallery\\onemany\nuso este por el FILTER (SELECT)\n\n\nEl codigo es :\n\nREDEFINE LISTBOX oBrw ;\n      FIELDS DToC( Facturas-&gt;Fecha ), Facturas-&gt;Concepto ;\n      HEADERS \"Fecha\", \"Concepto\" ;\n      ID ID_BROWSE OF oDlg ;\n      ALIAS \"Facturas\" ;\n      SELECT Facturas-&gt;Codigo FOR Clientes-&gt;Codigo ;\n      UPDATE\n\nOjala me puedas orientar, \n\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:3bf9yv9w]amigo dime:\n\nque usas para los browse\n\nUsas LISTBOX nativo de FIVEWIN\n\no TSBROWSE o algun otro\n\nes que depende de cual uses es si se puede pintar las lineas o no[/quote:3bf9yv9w]','',0,'gA==','3bf9yv9w',1,0,'',812,0,0),(25000,3727,3,487,0,'151.42.118.65',1168883528,1,0,1,1,1,0,'','','even better:\n[code:11ig4hor]If &#40; nScan &#58;= Ascan&#40;aPrn, &#123;|v| Upper&#40;xModel&#41;==Upper&#40;v&#41; &#125;&#41; &#41; = 0\n  nScan &#58;= Ascan&#40;aPrn, &#123;|v| Upper&#40;xModel&#41;$Upper&#40;v&#41; &#125;&#41; \nEndif[/code:11ig4hor]\nHi,\nDavide','',0,'AIA=','11ig4hor',1,0,'',487,0,0),(25001,5567,6,171,0,'71.232.193.197',1168884753,1,0,1,1,1,0,'','','Kleyber,\n\nNo puedo hacer compilar con xBuilderW (XHarbour Professional) los archivos Menus.c y gradfill.c; Trate la solucion mas arriba expuesta por Rossine pero no me funciono\n\nPuedes compartir con el foro el archivo XBP y los \"obj\" de menus.c y gradfill.c?\n\nSaludos\n\nGeorge','',0,'AIA=','8tl8sil7',1,0,'',171,0,0),(25002,5589,2,774,0,'200.72.179.162',1168884916,1,0,1,1,1,1,'','','Hay una instruccion para LISTBOX pero no la he ocupado nunca en realidad yo utilizo TSBROWSE parecido a LISTBOX\n\noBrow:Setcolor(nClrfore,nClrBack)\n\n                         Fondo y Letras\n\nexplicame q quieres hacer especificamente al BROWSE con relacion los colores','',0,'AIA=','2ejvx4o3',1,0,'',774,0,0),(25003,5579,6,303,0,'72.199.41.171',1168885008,1,0,1,1,1,0,'','','Alejandro,\n\nSorry, I used the Google translator for the first time and didn\'t even look at the output because I was in a hurry.\n\nI use a gradient bitmap on both the toolbar and the button.\n\nHere is an example:\n\n [code:2g7vvqd7] \n   define brush oBrush resource &quot;ltbluegradient&quot; \n\n  //--- Buttonbar\n   // Note&#58; Group bars only show when it is 3d, and 3d looks bad&#46;\n   // This is a bug in TSBar that needs fixing&#46;\n   DEFINE sBUTTONBAR oBar size 27,27 OF oWnd //3D\n   oBar&#58;blClicked&#58;=&#123;||&#46;t&#46;&#125;\n   oBar&#58;setBrush&#40; oBrush &#41;\n\n define sbutton of oBar ;\n      resource &quot;find&quot;;\n      brush oBrush;\n      action &#40;current&#40;&#41;&#58;find&#40;&#41;, current&#40;&#41;&#58;setFocus&#40;&#41;&#41;;\n      tooltip &quot;Find&quot;\n\n [/code:2g7vvqd7]','',0,'AIA=','2g7vvqd7',1,0,'',303,0,0),(25004,5589,2,812,0,'201.214.35.67',1168885747,1,0,1,1,1,0,'','','Hola:\n\nMira, tengo una Dbu en la cual tengo definidos los departamentos de un edificio, para lo cual tengo 3 campo que generan un indice: PROYECTO+EDIFICIO+DEPARTAMENTO, como vez tengo que hacer un FILTRO, para que solo me muestre los departamentos que corresponden al edificio, previamente seleecionado. \n\nEl color del LISTBOX, solo me aparece el registro en azul, necesito cambiar en color base por otro a definir, y si puedo, me gustaria que los departamentos vendidos aparezcan con color rojo y los disponibles con color verde, dentro del mismo LISTBOX. \n\nUso Clipper 5.2e, Fivewin 2.2 y Blinker 5.1 \n\nEL codogo es el siguiente: \nLlamado desde Bitmap, para buscar Dpto. \nRedefine BitMap Id 25 Adjust Resource \"BUSCA2\" Of oDlgEdit Cursor oCurDedo On Click (Bus_dep(),oCod_dep1:Refresh()) \n\n\nFunction Bus_dep() \nLocal oDlg, oBot1, oBot2, oLbx1, oCurDedo \nSele oDbdep \nDbSetorder(2) \nSeek Cod_pro1+Cod_edi1 \n\n\nDefine Dialog oDlg ResName \"BrowseSoloMuestra\" Title \"Departamentos\" \nREDEFINE LISTBOX oBrw ; \nFIELDS oDbdep-&gt;Cod_dep , subs(Oridep-&gt;Det_ori,1,15) ,str(oDbdep-&gt;cos_dep),str(oDbdep-&gt;Can_dor),str(oDbdep-&gt;Can_ban); \nHEADERS \"Código\", \"Orientación\" , \"Costo Dpto.\", \"Dormi\",\"Baños\"; \nID 100 OF oDlg ; \nFIELDSIZES 50, 100, 80, 40,40; \nALIAS \"oDbdep\" ; \nSELECT oDbdep-&gt;Cod_pro+oDbdep-&gt;Cod_edi FOR Cod_pro1+Cod_edi1 ; \nUPDATE; \nOn DblClick ( Busca_dep2(),oDlg:End() ) \n\nRedefine BitMap Id 201 Adjust Resource \"BotonOk\" Of oDlg Cursor oCurDedo; \nOn Click (Busca_dep2(),oDlg:End()) \nRedefine BitMap Id 202 Adjust Resource \"BotonCancela\" Of oDlg Cursor oCurDedo; \nOn Click (Edi:=.f.,oDlg:End()) \n\nACTIVATE DIALOG oDlg CENTERED \nReturn (Cod_dep1:=oDbdep-&gt;Cod_dep) \n\nFunction Busca_Dep2() \nSele oDbde \nedi:=.t. \ncod_dep1:=oDbdep-&gt;cod_dep \nReturn (Cod_dep1) \n\n*** \nEstoy super complicado, \nDesde ya muchas gracias por tu atención \n\nMiguel Rivera \n[quote=&quot;A&amp;C&quot;:3kx4awxf]Hay una instruccion para LISTBOX pero no la he ocupado nunca en realidad yo utilizo TSBROWSE parecido a LISTBOX\n\noBrow:Setcolor(nClrfore,nClrBack)\n\n                         Fondo y Letras\n\nexplicame q quieres hacer especificamente al BROWSE con relacion los colores[/quote:3kx4awxf]','',0,'gA==','3kx4awxf',1,0,'',812,0,0),(25005,3727,3,2,0,'87.218.146.18',1168886004,1,0,1,1,1,1,'','','Davide,\n\nVery good, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','m58dmxjd',1,0,'',2,0,0),(25006,5618,2,228,0,'201.245.222.86',1168887440,1,0,1,1,1,1,'','Amigo.. agrega la siguiente linea','Amigo hacen falta estas lineas....\n\noBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}\noBrw :nClrText:={||IIF(ALLTRIM(HFTEE-&gt;HTdocext)==\"NOSALDO\",(RGB(0,0,191)),(\" \"))}\noBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE-&gt;HTdocext)==\"NOSALDO\",(RGB(0,0,191)),(RGB(255,255,255)))}\n\ncreo que con esto solucionas el problema..\n\n[code:3npp3o4y]\n\nDefine Dialog oDlg ResName &quot;BrowseSoloMuestra&quot; Title &quot;Departamentos&quot; \nREDEFINE LISTBOX oBrw ; \nFIELDS oDbdep-&gt;Cod_dep , subs&#40;Oridep-&gt;Det_ori,1,15&#41; ,str&#40;oDbdep-&gt;cos_dep&#41;,str&#40;oDbdep-&gt;Can_dor&#41;,str&#40;oDbdep-&gt;Can_ban&#41;; \nHEADERS &quot;Código&quot;, &quot;Orientación&quot; , &quot;Costo Dpto&#46;&quot;, &quot;Dormi&quot;,&quot;Baños&quot;; \nID 100 OF oDlg ; \nFIELDSIZES 50, 100, 80, 40,40; \nALIAS &quot;oDbdep&quot; ; \nSELECT oDbdep-&gt;Cod_pro+oDbdep-&gt;Cod_edi FOR Cod_pro1+Cod_edi1 ; \nUPDATE; \nOn DblClick &#40; Busca_dep2&#40;&#41;,oDlg&#58;End&#40;&#41; &#41; \n\nRedefine BitMap Id 201 Adjust Resource &quot;BotonOk&quot; Of oDlg Cursor oCurDedo; \nOn Click &#40;Busca_dep2&#40;&#41;,oDlg&#58;End&#40;&#41;&#41; \nRedefine BitMap Id 202 Adjust Resource &quot;BotonCancela&quot; Of oDlg Cursor oCurDedo; \nOn Click &#40;Edi&#58;=&#46;f&#46;,oDlg&#58;End&#40;&#41;&#41; \n\n//aqui estan\noBrw &#58;NCLRPANE&#58;=&#123;||IIF&#40;&#40;ORDKEYNO&#40;&#41;&#41;%2==0,CLR_1,CLR_2&#41;&#125;\noBrw &#58;nClrText&#58;=&#123;||IIF&#40;ALLTRIM&#40;HFTEE-&gt;HTdocext&#41;==&quot;NOSALDO&quot;,&#40;RGB&#40;0,0,191&#41;&#41;,&#40;&quot; &quot;&#41;&#41;&#125;\noBrw &#58;nClrForeFocus&#58;=&#123;||IIF&#40;ALLTRIM&#40;HFTEE-&gt;HTdocext&#41;==&quot;NOSALDO&quot;,&#40;RGB&#40;0,0,191&#41;&#41;,&#40;RGB&#40;255,255,255&#41;&#41;&#41;&#125;\n\nACTIVATE DIALOG oDlg CENTERED \nReturn &#40;Cod_dep1&#58;=oDbdep-&gt;Cod_dep&#41; \n\n[/code:3npp3o4y]\n\nReemplaza tu condicion y listo ...\n\nEspero te sirva','',0,'AIA=','3npp3o4y',1,0,'',228,0,0),(25007,5647,3,529,0,'200.159.198.39',1168887535,1,0,1,1,1,0,'','','Enrico, thanks, but sometimes  i need edit the memo, if i use an var , i can change to .f. or .t. , and edit or not the memo....\ni need an way to change the scrollbar using when .f.','',0,'AIA=','22q7qd3q',1,0,'',529,0,0),(25008,5647,3,6,0,'82.54.221.55',1168887663,1,0,1,1,1,1,'','','Try\n\n[code:3cedmk0t]oGet&#58;lReadOnly = &#46;T&#46;[/code:3cedmk0t]\n\nand\n\n[code:3cedmk0t]oGet&#58;lReadOnly = &#46;F&#46;[/code:3cedmk0t]\n\nEMG','',0,'AIA=','3cedmk0t',1,0,'',6,0,0),(25009,5618,2,812,0,'201.214.35.67',1168888315,1,0,1,1,1,0,'','Re: Amigo.. agrega la siguiente linea','Leandro:\n\nMuchas gracias, lo aplico y te cuento, te agradezco enormente tu enseñanza,\n\nMuchos saludos,\n\nMiguel\n\n[quote=&quot;leandro&quot;:1wdkrhnk]Amigo hacen falta estas lineas....\n\noBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}\noBrw :nClrText:={||IIF(ALLTRIM(HFTEE-&gt;HTdocext)==\"NOSALDO\",(RGB(0,0,191)),(\" \"))}\noBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE-&gt;HTdocext)==\"NOSALDO\",(RGB(0,0,191)),(RGB(255,255,255)))}\n\ncreo que con esto solucionas el problema..\n\n[code:1wdkrhnk]\n\nDefine Dialog oDlg ResName &quot;BrowseSoloMuestra&quot; Title &quot;Departamentos&quot; \nREDEFINE LISTBOX oBrw ; \nFIELDS oDbdep-&gt;Cod_dep , subs&#40;Oridep-&gt;Det_ori,1,15&#41; ,str&#40;oDbdep-&gt;cos_dep&#41;,str&#40;oDbdep-&gt;Can_dor&#41;,str&#40;oDbdep-&gt;Can_ban&#41;; \nHEADERS &quot;Código&quot;, &quot;Orientación&quot; , &quot;Costo Dpto&#46;&quot;, &quot;Dormi&quot;,&quot;Baños&quot;; \nID 100 OF oDlg ; \nFIELDSIZES 50, 100, 80, 40,40; \nALIAS &quot;oDbdep&quot; ; \nSELECT oDbdep-&gt;Cod_pro+oDbdep-&gt;Cod_edi FOR Cod_pro1+Cod_edi1 ; \nUPDATE; \nOn DblClick &#40; Busca_dep2&#40;&#41;,oDlg&#58;End&#40;&#41; &#41; \n\nRedefine BitMap Id 201 Adjust Resource &quot;BotonOk&quot; Of oDlg Cursor oCurDedo; \nOn Click &#40;Busca_dep2&#40;&#41;,oDlg&#58;End&#40;&#41;&#41; \nRedefine BitMap Id 202 Adjust Resource &quot;BotonCancela&quot; Of oDlg Cursor oCurDedo; \nOn Click &#40;Edi&#58;=&#46;f&#46;,oDlg&#58;End&#40;&#41;&#41; \n\n//aqui estan\noBrw &#58;NCLRPANE&#58;=&#123;||IIF&#40;&#40;ORDKEYNO&#40;&#41;&#41;%2==0,CLR_1,CLR_2&#41;&#125;\noBrw &#58;nClrText&#58;=&#123;||IIF&#40;ALLTRIM&#40;HFTEE-&gt;HTdocext&#41;==&quot;NOSALDO&quot;,&#40;RGB&#40;0,0,191&#41;&#41;,&#40;&quot; &quot;&#41;&#41;&#125;\noBrw &#58;nClrForeFocus&#58;=&#123;||IIF&#40;ALLTRIM&#40;HFTEE-&gt;HTdocext&#41;==&quot;NOSALDO&quot;,&#40;RGB&#40;0,0,191&#41;&#41;,&#40;RGB&#40;255,255,255&#41;&#41;&#41;&#125;\n\nACTIVATE DIALOG oDlg CENTERED \nReturn &#40;Cod_dep1&#58;=oDbdep-&gt;Cod_dep&#41; \n\n[/code:1wdkrhnk]\n\nReemplaza tu condicion y listo ...\n\nEspero te sirva[/quote:1wdkrhnk]','',0,'gIA=','1wdkrhnk',1,0,'',812,0,0),(25010,3727,3,303,0,'72.199.41.171',1168888482,1,0,1,1,1,0,'','','Davide,\n\nI like your second solution. Nice.\n\nJames','',0,'gIA=','egiidblb',1,0,'',303,0,0),(25011,5638,6,228,0,'201.245.222.86',1168889057,1,0,1,1,1,1,'','amigo...','No amigo ya lo intente pero no... La pistola hace enter pero despues de haber digitado el numero respectivo.  Ya probe en la configuración de la lectora y no hay nada.\n\nGracias por la respuesta','',0,'gIA=','vbvys3kd',1,0,'',228,0,0),(25012,5627,6,838,0,'80.59.225.15',1168889358,1,0,1,1,1,0,'','','Hola Armando, me referia al propio programa, no al operador, puse esta rutina[code:35phrgbq]//----------------------------------\nstatic function borraimagen&#40;aAlias,ficheros&#41;\n local numero\n numero&#58;=Str&#40;&#40;aAlias&#91;24&#93;&#41;-&gt;Orden,7&#41;+\'&#46;jpg\'\n copy file &#40;Publicas&#58;rimagen+ficheros&#41; to &#40;Publicas&#58;eimagen+numero&#41;\n Ferase&#40;Publicas&#58;rimagen+ficheros&#41;\n While &#46;not&#46; &#40;aAlias&#91;14&#93;&#41;-&gt;&#40;Rlock&#40;&#41;&#41;; end\n &#40;aAlias&#91;14&#93;&#41;-&gt;&#40; dbdelete&#40;&#41;&#41;\n &#40;aAlias&#91;14&#93;&#41;-&gt;&#40; dbUnlock&#40;&#41; &#41;\n return nil\n//---------------------------------\n[/code:35phrgbq] Quería decir que si no sería mucho trabajo para los discos duros del Ordenador.\nAdemás puse un boton para cargar las imágenes, todo controlado por la BD, y funciona fabuloso\n\nSaludos\n\nJose Luis','',0,'AIA=','35phrgbq',1,0,'',838,0,0),(25013,5618,2,812,0,'201.214.35.67',1168890076,1,0,1,1,1,0,'','Re: Amigo.. agrega la siguiente linea','Leandro:\n\nAl hacer la modificacion y compilar me arroja este error:\n\nBLINKER : 1115 : RUTINAS.OBJ(RUTINAS) : \'ORDKEYNO\' : unresolved external\n\nBLINKER : 0 Warning error(s), 1 Fatal error(s)\n\nSaludos,\n\nMiguel\n\n[quote=&quot;leandro&quot;:10eu3z2a]Amigo hacen falta estas lineas....\n\noBrw :NCLRPANE:={||IIF((ORDKEYNO())%2==0,CLR_1,CLR_2)}\noBrw :nClrText:={||IIF(ALLTRIM(HFTEE-&gt;HTdocext)==\"NOSALDO\",(RGB(0,0,191)),(\" \"))}\noBrw :nClrForeFocus:={||IIF(ALLTRIM(HFTEE-&gt;HTdocext)==\"NOSALDO\",(RGB(0,0,191)),(RGB(255,255,255)))}\n\ncreo que con esto solucionas el problema..\n\n[code:10eu3z2a]\n\nDefine Dialog oDlg ResName &quot;BrowseSoloMuestra&quot; Title &quot;Departamentos&quot; \nREDEFINE LISTBOX oBrw ; \nFIELDS oDbdep-&gt;Cod_dep , subs&#40;Oridep-&gt;Det_ori,1,15&#41; ,str&#40;oDbdep-&gt;cos_dep&#41;,str&#40;oDbdep-&gt;Can_dor&#41;,str&#40;oDbdep-&gt;Can_ban&#41;; \nHEADERS &quot;Código&quot;, &quot;Orientación&quot; , &quot;Costo Dpto&#46;&quot;, &quot;Dormi&quot;,&quot;Baños&quot;; \nID 100 OF oDlg ; \nFIELDSIZES 50, 100, 80, 40,40; \nALIAS &quot;oDbdep&quot; ; \nSELECT oDbdep-&gt;Cod_pro+oDbdep-&gt;Cod_edi FOR Cod_pro1+Cod_edi1 ; \nUPDATE; \nOn DblClick &#40; Busca_dep2&#40;&#41;,oDlg&#58;End&#40;&#41; &#41; \n\nRedefine BitMap Id 201 Adjust Resource &quot;BotonOk&quot; Of oDlg Cursor oCurDedo; \nOn Click &#40;Busca_dep2&#40;&#41;,oDlg&#58;End&#40;&#41;&#41; \nRedefine BitMap Id 202 Adjust Resource &quot;BotonCancela&quot; Of oDlg Cursor oCurDedo; \nOn Click &#40;Edi&#58;=&#46;f&#46;,oDlg&#58;End&#40;&#41;&#41; \n\n//aqui estan\noBrw &#58;NCLRPANE&#58;=&#123;||IIF&#40;&#40;ORDKEYNO&#40;&#41;&#41;%2==0,CLR_1,CLR_2&#41;&#125;\noBrw &#58;nClrText&#58;=&#123;||IIF&#40;ALLTRIM&#40;HFTEE-&gt;HTdocext&#41;==&quot;NOSALDO&quot;,&#40;RGB&#40;0,0,191&#41;&#41;,&#40;&quot; &quot;&#41;&#41;&#125;\noBrw &#58;nClrForeFocus&#58;=&#123;||IIF&#40;ALLTRIM&#40;HFTEE-&gt;HTdocext&#41;==&quot;NOSALDO&quot;,&#40;RGB&#40;0,0,191&#41;&#41;,&#40;RGB&#40;255,255,255&#41;&#41;&#41;&#125;\n\nACTIVATE DIALOG oDlg CENTERED \nReturn &#40;Cod_dep1&#58;=oDbdep-&gt;Cod_dep&#41; \n\n[/code:10eu3z2a]\n\nReemplaza tu condicion y listo ...\n\nEspero te sirva[/quote:10eu3z2a]','',0,'gIA=','10eu3z2a',1,0,'',812,0,0),(25014,5650,7,598,0,'200.11.139.61',1168890954,1,0,1,1,1,1,'','Una ayuda, instalando el nuevo build...','instale el nuevo build de fwppc y obtengo este error:\n[quote:2q8cndvi]\n   Creating library prueba.lib and object prueba.exp\nrtl.lib(gtsys.obj) : error LNK2019: unresolved external symbol HB_FUN_HB_GT_WIN\nreferenced in function hb_gt_ForceLink_HB_GT_WIN\nprueba.exe : fatal error LNK1120: 1 unresolved externals\n* Application successfully built[/quote:2q8cndvi]\n\nalguna sugerencia??\n\nmuchas gracias por su atencion..','',0,'gA==','2q8cndvi',1,0,'',598,0,0),(25015,5579,6,237,0,'200.68.70.89',1168891928,1,0,1,1,1,0,'','.','Thank you James.\n\nRegards.\nAlejandro.','',0,'gA==','2pc9orl2',1,0,'',237,0,0),(25016,5650,7,2,0,'87.218.146.186',1168895523,1,0,1,1,1,1,'','','Luis,\n\nAhora hay que enlazar GTGUI.lib en vez de GTWIN.lib','',0,'gA==','37omwk5t',1,0,'',2,0,0),(25017,5650,7,598,0,'200.11.139.61',1168897633,1,0,1,1,1,1,'','','Excelente!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nmuchisimas gracias por la rapida respuesta.','',0,'gA==','2ykjypeo',1,0,'',598,0,0),(25018,5643,6,64,0,'201.72.124.2',1168898817,1,0,1,1,1,1,'','','Que classes existem? o Site <!-- w --><a class=\"postlink\" href=\"http://www.canalfive.com\">www.canalfive.com</a><!-- w --> não mostra nada.\n\nGracias.','',0,'gA==','82l5lp96',1,0,'',64,0,0),(25019,5649,3,6,0,'82.54.221.55',1168899844,1,0,1,1,1,1,'','Re: Bug in TGet with latest xHarbour from CVS','It is a bug in xHarbour\'s GET class:\n\n[code:19qmuk52]FUNCTION MAIN&#40;&#41;\n\n    LOCAL GetList &#58;= &#123;&#125;\n\n    LOCAL nVar1 &#58;= 0\n    LOCAL nVar2 &#58;= 0\n\n    CLS\n\n    @ 10, 10 GET nVar1;\n             PICTURE &quot;@EZ 999,999&#46;99&quot;;\n             WHEN &#40; GetList&#91; 1 &#93;&#58;Picture &#58;= &quot;@EZ  999999&#46;99&quot;, &#46;T&#46; &#41;;\n             VALID &#40; GetList&#91; 1 &#93;&#58;Picture &#58;= &quot;@EZ 999,999&#46;99&quot;, &#46;T&#46; &#41;\n\n    @ 12, 10 GET nVar2;\n             PICTURE &quot;@EZ 999,999&#46;99&quot;\n\n    READ\n\n    RETURN NIL[/code:19qmuk52]\n\nAlready reported to xHarbour developers list.\n\nEMG','',0,'AIA=','19qmuk52',1,0,'',6,0,0),(25020,5627,6,376,0,'201.230.151.128',1168902603,1,0,1,1,1,1,'','','Bien... no creo que sea muchotabajo para el disco duro. Lo que puede suceder esque haya bastantes imagenes que copiar y borrar en cuyo caso, al estar la PC haciendo trabajo en bajo nivel, podría bajar la performance del equipo... no se hasta cuanto pero si que lo puede bajar.\n\nOtra forma seria que inscribieras directamente, desde la carpeta inicial de imagenes, los nombres en la base de datos... sin borrarlas y que despues mediante una rutina utilitaria separada de este modulo efectuaras el borrado de las imagenes existentes en la carpeta inicial... porque ya no las necesitas.\n\nOtra forma forma, que puede servirte siempre y cuando tengas disco duro suficiente, es almacenar las imágenes directamente en la BD en el momento que las inscribes (en campos blob). En este caso seria tu BD la que contenga las imagenes para consultas en linea.\n\nBueno... hay varias formas, cada una tiene sus particularidades a favor y en contra.','',0,'AIA=','3v48dpvm',1,0,'',376,0,0),(25021,5651,2,890,0,'190.9.66.196',1168905909,1,0,1,1,1,0,'','Agradecimiento a Armando Picon','Armando\nTe quiero agradecer la ayuda me funciono al ciento por ciento lo del boton para grabar lo que no he probado es con la funcion\n\nCordialmente\n\nJAIRO BARBOSA','',0,'AIA=','1pqppz0b',1,0,'',890,0,0),(25022,5618,2,774,0,'200.72.202.185',1168906702,1,0,1,1,1,1,'','','tu problema es q clipper 5.2 no debe soportar la instruccion ORDKEYNO()\n\npor eso te dice q es unresolved external ,, o sea una rutina externa que no existe','',0,'AIA=','3ejn34kh',1,0,'',774,0,0),(25023,5649,3,529,0,'200.159.199.21',1168908311,1,0,1,1,1,0,'','','Enrico, this is after or before this entry:\n\n2007-01-07 16:45 UTC-0300 Eduardo Fernandes &lt;modalsist@yahoo.com.br&gt;\n  258   * source/rtl/tget.prg\n  259     ! fixed parsepict() method to avoid replacing commas by spaces, in\n  260       pictures like @Z 99,999.99.\n  261       Adjusted get len for negative numbers, when not exist picture on get.','',0,'AIA=','2yyf8swx',1,0,'',529,0,0),(25024,5642,3,439,0,'200.125.47.228',1168908691,1,0,1,1,1,1,'','','I don´t know how was the support before but  I bought allmost all classes of Paco during last six months and I´m recieving an excelent support.\n\nI ask him for special changes to the classes to cover my special needs and I recieve this changes allmost inmediatly.\n\nI report little bugs and I recieved the same result, a solution in less than two days.\n\nI can find him allmost every day in Msn, I can´t say that is difficult for me to comunicate with him.\n\nThat´s my experience.','',0,'AIA=','1cq77iv9',1,0,'',439,0,0),(25025,5652,3,239,0,'219.136.19.82',1168912960,1,0,1,1,1,0,'','App a runtime error return to last function, not quit app?','Hi,\n  When we  meet app runtime errors,could we return to last called from function intead of quit app?\n  for example:\n Function a1()\n    define dialog odlg resource \"odlg\"\n       redefine button id 101 of odlg action a2()\n    activate dialog odlg\nreturn\n\nfunction a2()\nlocal n1:=1/0\n// local n1:=\"aaa\"+2\nreturn \n   \n  Click id 101 button only shows a runtime error ,then  return to a1 odlg.\n Our customers feel this will be better than quit the app.\n\nBest Regard!\nShuming Wang','',0,'AIA=','22y181po',1,0,'',239,0,0),(25026,5653,3,190,0,'202.65.134.26',1168915899,1,0,1,1,1,0,'','How to know user names connected to appl. server &amp; activ','As subject.\n\nThanks \n\nRamesh Babu P','',0,'AIA=','3p4o8kqm',1,0,'',190,0,0),(25027,5649,3,2,0,'87.218.146.185',1168916453,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Already reported to xHarbour developers list. \n\nThanks!','',0,'AIA=','155pe1fp',1,0,'',2,0,0),(25028,5654,3,239,0,'219.137.143.112',1168917579,1,0,1,1,1,0,'','Add news resource ids to  app ?','Hi, \n  An app dialog  linked with DLL  ,could I add new resource ids at runtime ?\n  for example:\n\nfunction main()\n   \n  define dialog odlg resource \"odlg\"\n  \n  redefine get cget1 id 101 of odlg\n  redefine button id 102 of odlg\n\n  activate dialog odlg  on init (addnewids())\n\nreturn \n\nfunction addnewids()\n  redefine button id 103 of odlg\n// id 103 does not exists in resource odlg \nreturn \n\n\n\nBest regrad!\nShuming Wang','',0,'AIA=','1q9sn8up',1,0,'',239,0,0),(25029,5646,3,2,0,'87.218.146.185',1168918014,1,0,1,1,1,1,'','','Prueba con esta función:\n[code:37xii4fs]\nHB_FUNC&#40; F2BIN &#41;\n&#123;\n   char szString&#91; 4 &#93;;\n\n   if&#40; ISNUM&#40; 1 &#41; &#41;\n   &#123;\n      float fValue = &#40; float &#41; hb_parnd&#40; 1 &#41;;\n\n      szString&#91; 0 &#93; = &#40; fValue &amp; 0x00FF &#41;;\n      szString&#91; 1 &#93; = &#40; fValue &amp; 0xFF00 &#41; &gt;&gt; 8;\n      szString&#91; 2 &#93; = &#40; fValue &amp; 0x00FF0000 &#41; &gt;&gt; 16;\n      szString&#91; 3 &#93; = &#40; fValue &amp; 0xFF000000 &#41; &gt;&gt; 24;\n   &#125;\n   else\n   &#123;\n      szString&#91; 0 &#93; = \'\\0\';\n   &#125;\n\n   hb_retclen&#40; szString, 4 &#41;;\n&#125;\n[/code:37xii4fs]','',0,'AIA=','37xii4fs',1,0,'',2,0,0),(25030,5654,3,2,0,'87.218.146.185',1168918532,1,0,1,1,1,1,'','','Shuming,\n\nfunction addnewids()\n @ 2, 2 BUTTON \"Another\" of odlg\nreturn','',0,'AIA=','eiyfcpb3',1,0,'',2,0,0),(25031,5651,2,376,0,'201.230.151.128',1168918945,1,0,1,1,1,1,'','','En el tema de la funcion tienes que invocar en ACTION del boton a la funcion que te envié junto con los parametros nombre y direccion (creo que esas son las variables de tus GET) y eso es todo... \n\nLa funcion se encarga de hacer lo mismo que el boton. Solo lo puse como ejemplo de otra manera de hacer las cosas.','',0,'AIA=','2zhpas45',1,0,'',376,0,0),(25032,5652,3,2,0,'87.218.146.185',1168919353,1,0,1,1,1,1,'','','Shuming,\n\nYou can modify FWH\\source\\function\\errsysw.prg','',0,'AIA=','32vi5obf',1,0,'',2,0,0),(25033,5655,16,2,0,'87.218.146.18',1168924982,1,0,1,1,1,1,'','New FTDN January/Enero 2007','January 7.01 2007 build\n =================\n \n * New: FWPPC, samples\\TestDlg2.prg shows how to use a bitmap for the dialog brush. Please notice that FWCE.ch has been modified to include the DEFINE BRUSH missing command.\n\n * New: FWPPC, samples\\sign.prg shows how to capture a customer signature. Thanks to Bill Simmeth! Modified by FiveTech.\n\n * Fix: FWPPC, GETs were not properly processing the INS key. Now it is ok. The caret changes its shape and keeps its position.\n    \n * Fix: FWH, IsActiveX() function was GPFing due to recent changes in [x]Harbour. Now it is ok.\n   \n * Fix: FWPPC, minor fix on FWPPC ErrorSys. Thanks to Pedro Gonzalez!\n  \n * Fix: FWH, Class TSay Method SetText() recent change has been reverted. Also source\\classes\\rpreview.prg oPage:SetText() has been changed into oPage:VarPut() so page numbers are properly shown when XP themes are not used.\n   \n * New: function RegEnumValue() to enumarate values of a Registry key. Please review samples\\RegEnum.prg for a sample of its use.\n \n * Fix: Class TOutLook is properly firing the buttons actions with just one click. Please review samples\\TestOutl.prg\n\n * Fix: Class TTabs was failing when created from source code and placed on a dialog. Now it is ok.\n   \n * Fix: Class TCColumn, all AS ... clauses have been removed.\n \n * New: FiveWin.ch command REDEFINE IMAGE ... It was missing. It uses the same syntax AS REDFINE BITMAP ... but it supports much more image types.\n \n * Enhancement: function RegSetValue( nKey, cSubKey, uValue ) now supports numeric values too supplied as uValue.\n\n * Enhancement: Class TBtnBmp shows a multiple lines caption when CRLF used into it.\n \n * New: Incremental search support for Class TComboBox. Now you can type several keys and the combobox will perform an incremental search on its items. Thanks to Ugo Garombo!\n   \n * Enhancement: Class TPrinter, improved printer pick up when TO clause is used and there are several similar printer names. Thanks to Davide!\n    \n * Enhancement: FWH for Microsoft VC, has been rebuilt using VC++ 2005.\n \n * Enhancement: FWH has been built using Harbour 1.0 and the most recent xHarbour build.','',0,'','3vkjc9w0',1,0,'',2,0,0),(25036,5658,4,2,0,'87.218.146.18',1168926137,1,0,1,1,1,1,'','New FWPPC January 2007','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5655\">http://fivetechsoft.com/forums/viewtopic.php?t=5655</a><!-- m -->','',0,'','1hkmal6i',1,0,'',2,0,0),(25037,5659,7,2,0,'87.218.146.18',1168926161,1,0,1,1,1,1,'','Nuevo FWPPC Enero 2007','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5655\">http://fivetechsoft.com/forums/viewtopic.php?t=5655</a><!-- m -->','',0,'','1kleffnk',1,0,'',2,0,0),(25038,5654,3,239,0,'219.137.143.112',1168931567,1,0,1,1,1,0,'','','Antonio,\n\n  Thanks!\n\nShuming Wang','',0,'','38glfr48',1,0,'',239,0,0),(25039,5652,3,239,0,'219.137.143.112',1168931679,1,0,1,1,1,0,'','','Antonio,\nThank you!\nShuming Wang','',0,'','qvfdct7e',1,0,'',239,0,0),(25040,5649,3,6,0,'87.20.219.229',1168933948,1,0,1,1,1,1,'','','[quote=&quot;Nop&quot;:37yob631]Enrico, this is after or before this entry:\n\n2007-01-07 16:45 UTC-0300 Eduardo Fernandes &lt;modalsist@yahoo.com.br&gt;\n  258   * source/rtl/tget.prg\n  259     ! fixed parsepict() method to avoid replacing commas by spaces, in\n  260       pictures like @Z 99,999.99.\n  261       Adjusted get len for negative numbers, when not exist picture on get.[/quote:37yob631]\n\nThank you.\n\nEMG','',0,'gA==','37yob631',1,0,'',6,0,0),(25041,5639,3,130,0,'141.51.32.24',1168937030,1,0,1,1,1,0,'','','I don´t know, I had this error only, if I did not redefine the get. Maybe the folder has something to do with it. The first get is not in a folder.\n\nStefan','',0,'gA==','3f8pkcqa',1,0,'',130,0,0),(25042,5639,3,49,0,'213.82.134.66',1168938342,1,0,1,1,1,1,'','','if you create a dialog \nthen you create a test programredefine dialog resource\"test\" and activate dialog  you must see all the fields\n\nit has been always therefore because now is different?','',0,'gA==','3lsk51yo',1,0,'',49,0,0),(25043,5642,3,49,0,'213.82.134.66',1168938564,1,0,1,1,1,1,'','','Dear josè\ndo you tried new vtaskbar clause watermark.\nbecause when you use a splitter and move it on left and right it hide the bitmap of watermark. On the old version this function worked good.','',0,'gA==','1587orv4',1,0,'',49,0,0),(25044,5527,6,63,0,'88.11.31.105',1168943320,1,0,1,1,1,0,'','','Paco:\nAunque con un poco de retraso he probado tu sugerencia pero me da un error de \n[code:1wi7rpnl]Error&#58; Unresolved external \'_HB_FUN_CREATECOMPATIBLEDC\'[/code:1wi7rpnl]\n¿Por favor, me puedes decir qué me falta?\nRafael','',0,'AIA=','1wi7rpnl',1,0,'',63,0,0),(25045,5646,3,914,0,'80.28.244.116',1168943989,1,0,1,1,1,0,'','','Antonio he intentado compilar y me da 4 errores:\n\nError E2060 prueba.prg 10: Illegal use of floating point in function HB_FUN_F2BIN.\nError E2060 prueba.prg 11: Illegal use of floating point in function HB_FUN_F2BIN.\nError E2060 prueba.prg 12: Illegal use of floating point in function HB_FUN_F2BIN.\nError E2060 prueba.prg 13: Illegal use of floating point in function HB_FUN_F2BIN.\n\nCorrespondientes a cada asignación en el array szString\n\nEstoy compilando con Borland C++ 5.51 y Harbour Alpha 45.0','',0,'AIA=','2u8kozwm',1,0,'',914,0,0),(25046,5642,3,217,0,'200.159.120.34',1168944866,1,0,1,1,1,0,'','','[quote=&quot;jose_murugosa&quot;:mebaou2k]\nI can´t say that is difficult for me to comunicate with him.\nThat´s my experience.[/quote:mebaou2k]\n\nJose,\n\nI\'m happy to know it.\n\nThanks a lot!\nMaurilio','',0,'gA==','mebaou2k',1,0,'',217,0,0),(25047,5646,3,2,0,'87.218.146.18',1168946635,1,0,1,1,1,1,'','','Cambia estas cuatro líneas:\n\n      szString[ 0 ] = * ( char * ) &amp;fValue; \n      szString[ 1 ] = * ( ( char * ) &amp;fValue + 1 ); \n      szString[ 2 ] = * ( ( char * ) &amp;fValue + 2 ); \n      szString[ 3 ] = * ( ( char * ) &amp;fValue + 3 );','',0,'','2crzdh4f',1,0,'',2,0,0),(25048,5527,6,2,0,'87.218.146.18',1168947278,1,0,1,1,1,1,'','','Rafael,\n[code:6kmdvpm3]\nHB_FUNC&#40;  CREATECOMPATIBLEDC &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; CreateCompatibleDC&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n[/code:6kmdvpm3]','',0,'AIA=','6kmdvpm3',1,0,'',2,0,0),(25049,5646,3,2,0,'87.218.146.18',1168948956,1,0,1,1,1,1,'','','Mucho más simple:\n[code:2r5w7huv]\nHB_FUNC&#40; F2BIN &#41; \n&#123; \n   float fValue = hb_parnd&#40; 1 &#41;; \n\n   hb_retclen&#40; &#40; char * &#41; &amp;fValue, 4 &#41;; \n&#125;\n[/code:2r5w7huv]','',0,'AIA=','2r5w7huv',1,0,'',2,0,0),(25050,5654,3,67,0,'62.235.24.36',1168950643,1,0,1,1,1,0,'','','Hi,\n\nAntonio , can objects from source be merged with objects from resources ?\n\nMaybe a better aproach is to first redefine all objects from the dll , but then hide what not is needed\n\nfrank','',0,'AIA=','togq9nic',1,0,'',67,0,0),(25051,5646,3,914,0,'80.28.244.116',1168950729,1,0,1,1,1,0,'','','Antonio,\n\nAhora si parece funcionar pero necesito que devuelva un float con signo de doble presición o sea 8 bytes no 4.\n\nHay alguna manera de incluir esta función en un .hrb? al compilar y ejecutar si me reconoce la función f2bin() pero si intento ejecutarlo con hbrun me falla me dice que no conoce o no esta registrado el símbolo f2bin.','',0,'AIA=','3rm0s3mg',1,0,'',914,0,0),(25052,5646,3,914,0,'80.28.244.116',1168951347,1,0,1,1,1,0,'','','Antonio he probado con\n\nHB_FUNC( D2BIN ) \n{ \n   double fValue = hb_parnd( 1 ); \n\n   hb_retclen( ( char * ) &amp;fValue, 8 ); \n} \n\nY funciona correctamente, sólo me queda saber cómo se podría utilizar con hbrun','',0,'AIA=','ffpio570',1,0,'',914,0,0),(25053,5527,6,63,0,'88.11.31.105',1168951738,1,0,1,1,1,0,'','','Antonio: Gracias.  Ya compila.  Ahora ¿Cómo puedo crear el Bmp modificato?.  Algo así:\n[code:234ieppn]\n&#46;&#46;&#46;\nhBmp    &#58;= ReadBitmap&#40; 0, cBitmap &#41;\nhDC     &#58;= CreateDC&#40; &quot;DISPLAY&quot;,0,0,0&#41;\nhDCMem  &#58;= CreateCompatibleDC&#40; hDC &#41;\nhOldBmp &#58;= SelectObject&#40; hDCMem, hBmp &#41;\nnWBmp   &#58;= nBmpWidth&#40; hBmp &#41;\nnHBmp   &#58;= nBmpHeight&#40; hBmp &#41;\n\nDeleteDC&#40; hDC &#41;\n\nMoveTo&#40;hDCmem, 10, 10 &#41;\nLineto&#40; hDCMem, 100, 100 &#41;         // Hasta aquí, parece que va bien\nDibWrite&#40;&quot;&#46;\\prueba&#46;bmp&quot;, hDcMem&#41;   // &lt;---- Aquí me da un GPF ¿cómo lo hago?\nSelectObject&#40; hDCMem, hOldBmp &#41;\nDeleteDC&#40; hDCMem &#41;\n&#46;&#46;&#46;\n[/code:234ieppn]\n\nRafael','',0,'AIA=','234ieppn',1,0,'',63,0,0),(25054,5567,6,36,0,'200.113.56.235',1168956480,1,0,1,1,1,0,'','','Estimados\n\n   Como puedo colocar el color GRAY cuando un ítem esta disable\neste lo pone con color negro\n\nsaludos\nPatricio','',0,'AIA=','4eb0iva6',1,0,'',36,0,0),(25055,5646,3,2,0,'87.218.146.18',1168956577,1,0,1,1,1,1,'','','Al construir hbrun tienes que incluir esta nueva función','',0,'AIA=','23wv5h4o',1,0,'',2,0,0),(25056,5654,3,2,0,'87.218.146.18',1168956652,1,0,1,1,1,1,'','','Frank,\n\n&gt; can objects from source be merged with objects from resources ?\n\nviceversa: objects from resources with objects from source code','',0,'AIA=','35zzcdtj',1,0,'',2,0,0),(25057,5659,7,57,0,'83.53.69.224',1168962806,1,0,1,1,1,1,'','','Antonio\nExiste un bug con la Clase TFolder. Creo que viene dado por la modificación de la clase destroy. El problema es que cuando cierro un dialog/ventana con un folder se cierra la aplicación. \n\nSaludos','',0,'AIA=','2lpw40mz',1,0,'',57,0,0),(25058,5660,6,785,0,'190.64.96.218',1168962852,1,0,1,1,1,0,'','Amigos: Seria posible BackUp con Harbour.','Amigos:\n\nAlguien tiene ya alguna utilidad de BackUp hecha en Harbour ?\n\nO alguien conoce algun a utilidad (desde linea de comandos)\npara usar con Harbour. ?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'AIA=','3ksic6g3',1,0,'',785,0,0),(25059,5661,7,893,0,'80.34.86.46',1168963300,1,0,1,1,1,0,'','Ayuda con indices','Tengo el problema que cuando intento usar indices SIN generarlos solo me reconoce el primero\n\nEsto funciona:\n   SELECT Efth010\n   INDEX ON CprvCod TO CODIGO ADDI\n   INDEX ON CprvNom TO FISCAL ADDI\n   INDEX ON CprvOme TO COMERCIAL ADDI   \n\n   Efth010-&gt;( OrdSetFocus( \"CODIGO\" ) ) \n   Efth010-&gt;( OrdSetFocus( \"FISCAL\" ) ) \n   Efth010-&gt;( OrdSetFocus( \"COMERCIAL\" ) ) \n\nSi no indexo, aunque existan, SOLO me funciona el 1º indice:\n   SELECT Efth010\n   Efth010-&gt;( OrdSetFocus( \"CODIGO\" ) ) \n   ....\n   ....\n   * Estas 2 no encuentra los índices.\n   Efth010-&gt;( OrdSetFocus( \"FISCAL\" ) ) \n   Efth010-&gt;( OrdSetFocus( \"\n \nEs posible que tenga que introducir un SET para que encuentre el fichero CDX??\n\nMe podría ayudar alguien.\nGracias de antemano.','',0,'AIA=','qtsq0tqb',1,0,'',893,0,0),(25060,5643,6,43,0,'189.128.93.227',1168963439,1,0,1,1,1,0,'','','Hola Paco\n\ny nosotros que estamos del otro lado del charco, podremos comprar tus productos con RF.\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','gmnzbihn',1,0,'',43,0,0),(25061,5646,3,914,0,'80.28.244.116',1168963752,1,0,1,1,1,0,'','','Muchas gracias Antonio.','',0,'AIA=','300actrt',1,0,'',914,0,0),(25062,5638,6,43,0,'189.128.93.227',1168965039,1,0,1,1,1,0,'','','Hola Leandro\n\nHas probado:\n\noBrw:lFastEdit := .T.\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','scxg0hvu',1,0,'',43,0,0),(25063,5662,2,774,0,'200.72.65.2',1168966787,1,0,1,1,1,1,'','FIVEWIN a 32BITS','una duda uso fivewin en 16 bits.. como lo compilo a 32 bits...\n\nalguien sabe','',0,'AIA=','hpq7l8mc',1,0,'',774,0,0),(25064,5611,3,49,0,'213.82.134.66',1168967230,1,0,1,1,1,1,'','','How I can create a browse to set  hight, width, colors od eah columns of xbrowse  and save it ?','',0,'AIA=','3d4hlmgs',1,0,'',49,0,0),(25065,5662,2,2,0,'87.218.146.18',1168968426,1,0,1,1,1,1,'','','Son productos distintos, necesitas FWH 32bits. No se puede generar a partir de FW 16 bits.','',0,'AIA=','1g17c53f',1,0,'',2,0,0),(25066,5662,2,774,0,'200.72.65.2',1168969817,1,0,1,1,1,1,'','','y donde y como lo consigo','',0,'AIA=','36ce98k7',1,0,'',774,0,0),(25067,5660,6,376,0,'190.42.32.218',1168972067,1,0,1,1,1,1,'','','Utiliza la opcion buscar del foro para la palabra \"hbzip\". Eso de mostrará todos los temas referidos a copias de seguridad que se han transmitido. En alguno de ellos vas a encontrar incluso los codigos para hacer copias de seguridad... con xHarbour (harbour estaba limitado para hacer copias de seguridad, antes, no se si seguira hasta la fecha)','',0,'AIA=','1u6h8l1c',1,0,'',376,0,0),(25068,5660,6,53,0,'189.139.9.210',1168973878,1,0,1,1,1,1,'','','Rubén:\n\nMira en     <!-- w --><a class=\"postlink\" href=\"http://www.backupbuilder.com\">www.backupbuilder.com</a><!-- w -->. \n\nAhí el buen amigo Timm ha dejado una herramienta\nque puedes usar desde tu app o desde la linea de comandos\n\nAhhhh  y es gratuita.\n\nSaludos','',0,'AIA=','fizi3fiu',1,0,'',53,0,0),(25069,5618,2,228,0,'69.79.143.91',1168976689,1,0,1,1,1,1,'','Amigo..','Es cierto amigo...\n\nEsa funcion la tiene es clipper 5.3, tienes dos opciones..\n\n1- Cambiar la versión del clipper a 5.3 (si la necesitas con gusto te la hago llegar)\n\n2- La otra cambia ORDKEYNO()  por RECNO() para que veas como funciona.\n\nEspero te sirva','',0,'AIA=','322cktpb',1,0,'',228,0,0),(25070,5618,2,138,0,'189.141.72.221',1168977300,1,0,1,1,1,1,'','Re: Amigo..','[quote=&quot;leandro&quot;:5jpodwij]Es cierto amigo...\n\n1- Cambiar la versión del clipper a 5.3 (si la necesitas con gusto te la hago llegar)\n[/quote:5jpodwij]\n\nLeando: Clipper 5.3 NO ES UN PRODUCTO DE LIBRE DISTRIBUCION, los derechos del producto son ahora de GrafxSoft (<!-- w --><a class=\"postlink\" href=\"http://www.grafxsoft.com\">www.grafxsoft.com</a><!-- w -->) y sigue siendo un producto comercial.','',0,'gA==','5jpodwij',1,0,'',138,0,0),(25071,5643,6,138,0,'189.141.72.221',1168977503,1,0,1,1,1,1,'','','Estamos en eso....','',0,'gA==','8g8eb7nl',1,0,'',138,0,0),(25072,5661,7,138,0,'189.141.72.221',1168977658,1,0,1,1,1,1,'','','Prueba:\n\n SELECT Efth010\nINDEX ON CprvCod TAG CODIGO ADDI\nINDEX ON CprvNom TAG FISCAL ADDI\nINDEX ON CprvOme TAG COMERCIAL ADDI','',0,'gA==','1hrvsb9j',1,0,'',138,0,0),(25073,5662,2,2,0,'87.218.146.18',1168978299,1,0,1,1,1,1,'','','Desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> seccion pedidos, selecciona FiveWin para Harbour FWH','',0,'gA==','355yqn4b',1,0,'',2,0,0),(25074,5663,2,760,0,'200.37.76.91',1168978968,1,0,1,1,1,0,'','Ayuda con TsBrowse','Hola a todos.\n\nMi pregunta es la siguiente...\nCuando usaba el twbrowse solo ponia la clausaula fields y todos los campos se cargaban para trabajarlos.\nAhora uso tsbrowse y no se como cargar todas los campos de una dbf cualquiera... Uso la clase TDBF21, FW2.0, blinker4.0 , WorkShop.\n\nQue me falta u omito algo...Lei la sintaxis del tsbrowse y no hallos la forma de cargar todas los campos  ... Quiero para una funcion generica, en donde abro cualquier dbf  y cargo todos los campos para trabajarlos...\n\nAyuda por fa....\n\nSalu2','',0,'gA==','rgaqvlef',1,0,'',760,0,0),(25075,5631,2,774,0,'164.77.155.228',1168981659,1,0,1,1,1,1,'','','.........','',0,'gA==','cm1k8aye',1,0,'',774,0,0),(25076,5664,19,2,0,'87.218.146.18',1168982160,1,0,1,1,1,1,'','Microsoft at CES','<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/ces/\">http://www.microsoft.com/ces/</a><!-- m -->','',0,'gA==','1usrsfdw',1,0,'',2,0,0),(25077,5618,2,228,0,'201.245.193.2',1168987946,1,0,1,1,1,1,'','jejeje','ho ho ....  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nlo tendre en cuenta','',0,'gA==','6ua1o7y0',1,0,'',228,0,0),(25078,5638,6,228,0,'201.245.193.2',1168988892,1,0,1,1,1,1,'','gracias...','Hola Marco..\n\nde verdad que muchas gracias era lo que necesitaba.','',0,'gA==','2d1atm2c',1,0,'',228,0,0),(25079,5665,6,838,0,'80.59.225.15',1168992772,1,0,1,1,1,0,'','Recibir varios ficheros mediante ftp','Hola amigos\nQuiero utilizar ésta función para bajarme ficheros via ftp[code:4ic2nzf9]#include &quot;fivewin&#46;ch&quot; \nmemvar publicas\nFunction Mandaf&#40;&#41; \nLocal oInternet, oFtp, cServFtp&#58;=&quot;xxxx&#46;com&quot;,cUserFTp&#58;=&quot;xxxxxx&quot;,cPassFtp&#58;=&quot;xxxxxx&quot; \nlocal asource&#58;=&#123;&quot;/html/recepcion/&quot;&#125;\nlocal aTarget&#58;=&#123;Publicas&#58;cUnidad&#125;\nlocal osay\n\noInternet &#58;= TInternet&#40;&#41;&#58;New&#40;&#41; \noFTP &#58;= TFTP&#40;&#41;&#58;New&#40; Alltrim&#40;cServFtp&#41;, oInternet, Alltrim&#40;cUserFtp&#41;,Alltrim&#40;cPassFtp&#41; &#41; \n\nIf ! Empty&#40; oFTP&#58;hFTP &#41; \nFtpGetFiles&#40; aSource, aTarget, oFTP, oSay&#41;\nEndif \noInternet&#58;End&#40;&#41; \nReturn &#40;nil&#41; \n\nFunction FtpGetFiles&#40; aSource, aTarget, oFTP, oSay&#41;\nLocal nBufSize&#58;=4096 \nlocal n \nlocal hTarget \nlocal cBuffer &#58;= Space&#40; nBufSize &#41; \nlocal nBytes, nFile &#58;= 0, nTotal &#58;= 0 \nlocal nTotSize &#58;= 0 ,fic\nlocal oFile, aFiles, aSizes &#58;= &#123;&#125; \nlocal nomfich&#58;=&#123;&#125;\nfor n = 1 to Len&#40; aSource &#41; \naFiles = oFTP&#58;Directory&#40; aSource&#91; n &#93; &#41; \nAEval&#40; aFiles, &#123; | aFile | AAdd&#40;nomfich, aFile&#91; n &#93; &#41; &#125; &#41;\nif Len&#40; aFiles &#41; &gt; 0 \nAAdd&#40; aSizes, aFiles&#91; 1 &#93;&#91; 2 &#93; &#41; // first file, size \nnTotSize += ATail&#40; aSizes &#41; \nelse \nAAdd&#40; aSizes, 0 &#41; \nendif \nSysRefresh&#40;&#41; \nnext \nnFile &#58;= 0 \nfor n = 1 to Len&#40; aSource &#41; \nhTarget = FCreate&#40; aTarget&#91; n &#93;+nomfich&#91;n&#93;&#41;\noFile = TFtpFile&#40;&#41;&#58;New&#40; aSource&#91; n &#93;, oFTP &#41; \noFile&#58;OpenRead&#40;&#41; \nSysRefresh&#40;&#41; \nwhile &#40; nBytes &#58;= Len&#40; cBuffer &#58;= oFile&#58;Read&#40; nBufSize &#41; &#41; &#41; &gt; 0 \nFWrite&#40; hTarget, cBuffer, nBytes &#41; \nmsgwait &#40;&quot;- Recibiendo &#58;&quot;+Str&#40;nFile+=nBytes&#41;+&quot; de &quot;+Str&#40;nTotSize&#41;&#41; \nSysRefresh&#40;&#41; \nend \nFClose&#40; hTarget &#41; \noFile&#58;End&#40;&#41; \nnext \nreturn nil \n[/code:4ic2nzf9]\nY me ocurre que sólo me baja un fichero, y además con unos bytes que no corresponden, total que es ilegible.\nTodos los ejemplos que he visto de ftp vienen para bajarse unos fiheros determinados, pero yo lo que quiero es que me baje todos los ficheros que haya en el ftp, y ahí es cuando me lío.\n\nA ver si alguien me ayuda\n\nSaludos\n\nJose Luis','',0,'AIA=','4ic2nzf9',1,0,'',838,0,0),(25080,5666,2,304,0,'189.129.99.198',1168994322,1,0,1,1,1,0,'','Impresion TdosPrn Horizontal','Es posible realizar impresion en forma horizontal con la clase tdosprn ???\n\ncomo se debe hacer, y si no es posible, q clase me lo permite ??\nde antemano gracias por su tiempo\nsaludos\nveracruz, ver. mexico','',0,'AIA=','d2j5k77i',1,0,'',304,0,0),(25081,5620,2,304,0,'189.129.99.198',1168994478,1,0,1,1,1,0,'','','gracias por tu ayuda, me funciono correctamente, aunque nunca supe por que lo hace bien en un objeto Dialog y no en un onbjeto WINDOW','',0,'AIA=','3mesf67w',1,0,'',304,0,0),(25082,5611,3,239,0,'219.137.143.112',1168997293,1,0,1,1,1,0,'','','obrow := TXBrowse():New(odlg)\n\noBrow:nMarqueeStyle := 6\n	obrow:bskip:=obrow:bskipper\n	obrow:bClrStd := {||{CLR_BLACK,if(odb1:ordinqty-odb1:ordouqty-odb1:minqty+odb1:allqty&lt;0,CLR_HRED,if(EVAL(obrow:bBookMark)%2==0,CLR_1,CLR_2))}}	\n	obrow:nfreeze:=1\n	obrow:nColDividerStyle    := LINESTYLE_GREEN\n	obrow:nRowDividerStyle    := LINESTYLE_GREEN\n\n                oCol := obrow:AddCol()\n	oCol:cHeader := \"Unit\"\n	oCol:bStrData := {||odb1:unit}\n\nobrow:CreateFromResource(201)\n\n   define button id 101 of odlg action savestate(obrow,\"browseid1\")\n\n  activate dialog odlg on init (restorestate(obrow,\"browseid1\")','',0,'AIA=','1vim5poe',1,0,'',239,0,0),(25083,5618,2,812,0,'201.214.35.67',1168999976,1,0,1,1,1,0,'','Re: jejeje','Leandro:\n\nMuchas gracias por tu ofrecimiento, pero dispongo de Clipper 5.3, solo que no lo usaba, ya que siempre lei que era mas estable la version 5.2e, dela misma forma, te doy las gracias por toda tu ayuda, probare lo que me haz indicado y te cuento.\n\nSiempre agradecido,\n\nMiguel Rivera\n\n[quote=&quot;leandro&quot;:22pd3xmk]ho ho ....  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nlo tendre en cuenta[/quote:22pd3xmk]','',0,'gA==','22pd3xmk',1,0,'',812,0,0),(25084,5567,6,103,0,'200.165.6.4',1169000237,1,0,1,1,1,1,'','','George,\n\n    La verdad es que no uso xHB comercial y por esto no tengo un archivo XHP para enviarte. Pero creo que en este mismo post, en el de inglés, he visto un contenido de un XHP para la compilación en xHB comercial. Quizas te sirva.\n\nSaludos,','',0,'gA==','e7pv9gcp',1,0,'',103,0,0),(25085,5667,2,812,0,'201.214.35.67',1169000295,1,0,1,1,1,0,'','Para Rene Flores','Hola Rene:\n\nEn relacion a la respuesta que le has dado a Leandro al ofrecimiento de Clipper 5.3, yo dispongo de la Version 5.2e y 5.3.\n\nTengo una pregunta:\n\nSi la empresa GrafxSoft, tiene la representacion comercial de clipper 5.3, es solo para su venta o se trabajara en mejoras y nuevas versiones?\n\nSaludos,\n\nMiguel','',0,'gA==','16nwjmay',1,0,'',812,0,0),(25086,5567,6,171,0,'71.232.193.197',1169002271,1,0,1,1,1,0,'','','Kleyber,\n\nYa trate con el archivo de Rossine para xBuilderW, pero los archivos en C, no los puedo compilar. Trate tambien con Harbour y me da error al tratar de compilar menus.c y gradfill.c.\n\nTe agradeciera si puedes enviarme los archivos menus.obj  gradfill.obj\n\nSaludos\n\n\nGeorge','',0,'gA==','1xcb5btb',1,0,'',171,0,0),(25087,5668,3,382,0,'194.77.237.246',1169020692,1,0,1,1,1,1,'','check if there is an ID in resource','How can I check, if there is an ID in my resource\n\neg.\n\nIsId(oDialog,4711)','',0,'gA==','27mmrsm9',1,0,'',382,0,0),(25088,5668,3,6,0,'82.57.159.146',1169021626,1,0,1,1,1,1,'','Re: check if there is an ID in resource','Before or after the controls have been REDEFINEd?\n\nEMG','',0,'gA==','152sxbx2',1,0,'',6,0,0),(25089,5661,7,893,0,'80.34.86.46',1169022611,1,0,1,1,1,0,'','Ayuda de índices','Hola Rene, gracias por tu atención. Verás esto que me apuntas si que funciona, pero me obliga a indexar siempre. Si ya existe los índices en su fichero CDX, (por lo que no indexo), cuando los uso,  el primero es correcto pero cuando intento ordenar por los otros indices da un error de como si no existieran. El tema es que tengo un fichero bastante grande e indexar siempre le cuesta mucho y no quiero hacerlo siempre que entre en la aplicación.\n\nGracias de antemano.','',0,'gA==','frawcnus',1,0,'',893,0,0),(25091,5661,7,893,0,'80.34.86.46',1169027358,1,0,1,1,1,0,'','Solucionado. Es un problema mio de codigo','Disculpar y gracias de nuevo','',0,'gA==','1b8ozpze',1,0,'',893,0,0),(25092,5668,3,382,0,'80.140.246.3',1169034897,1,0,1,1,1,1,'','Re: check if there is an ID in resource','[quote=&quot;EnricoMaria&quot;:15s5yi9t]Before or after the controls have been REDEFINEd?\n\nEMG[/quote:15s5yi9t]\n\nBefore they have been REDEFINED - to check, if the ID exists.','',0,'gA==','15s5yi9t',1,0,'',382,0,0),(25093,5666,2,888,0,'201.253.28.150',1169037192,1,0,1,1,1,0,'','','Hola, ya has intentado usar el método Command de esta clase? Este te permite mandar una sentencia de escape a la impresora, tal como se hacía en el clipper. \nEj: si quisieras resetear una impresora Epson deberías definir lo siguiente:\n\noTprint:Command(\"27,69\")\n\nLas sentencias de escape vienen definidas con el manual de la impresora. Allí encontrarás cual corresponde para definir la hoja apaizada u horizontal.\n\nEspero sea lo que estás necesitando. \n\nSaludos y suerte','',0,'gA==','34heamg9',1,0,'',888,0,0),(25094,5660,6,785,0,'190.64.103.221',1169037251,1,0,1,1,1,0,'','','Gracias a los dos Armando.\n\nSaludos.\n\nRuben Fernandez.','',0,'gA==','39o600lm',1,0,'',785,0,0),(25095,5668,3,6,0,'87.11.229.114',1169037470,1,0,1,1,1,1,'','Re: check if there is an ID in resource','I don\'t know, sorry. It seems you can\'t.\n\nEMG','',0,'gA==','myvlv6tz',1,0,'',6,0,0),(25096,5668,3,2,0,'87.218.146.99',1169039592,1,0,1,1,1,1,'','','Frank,\n\nYou can only do it from the ON INIT clause of the ACTIVATE DIALOG ... command:\n\nGetDlgItem( oDlg:hWnd , nID ) --&gt; hWndControl\n\nhWndControl will be zero if it does not exists','',0,'gA==','1cbb5xmk',1,0,'',2,0,0),(25097,5668,3,6,0,'87.11.229.114',1169041252,1,0,1,1,1,1,'','','You are right, it works!\n\nEMG','',0,'gA==','1kcro43h',1,0,'',6,0,0),(25098,5670,2,812,0,'200.83.124.158',1169045885,1,0,1,1,1,0,'','Favor Necesito Orientacion Urgente','Hola Amigos:\n\nTengo que solucionar un problema urgente y se trata de lo siguiente:\n\n . Debo tener un Browse en pantalla que me permita ingresar lineas de largo de 75, la cual llevara una columna con un correlativo mas esta columna de largo de 75, que permitira ingresar un escrito, esta debera permitir Agregar lineas, como eliminar o insertar en alguna parte del parrafo, quiero manejarlo en una base de datos, con los dos campos antes descrito mas un folio que identifica a una persona.\n\nSe puede hacer de esta forma ?, alguien tiene un codigo parecido para poder ver.\n\nDesde ya se los agradezco,\n\nMiguel Rivera','',0,'gA==','dp5fwrhh',1,0,'',812,0,0),(25099,5671,3,49,0,'62.13.172.78',1169046693,1,0,1,1,1,1,'','dialog error','when I compile it  the procedure let me \"cannot create dialog\"  but I NOt understand what is wrong !!!!!!!\n\nthe code \n\n\n[code:3hmap95g]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction main&#40;&#41;\nLocal oDlg,oFld\n\n\nDEFINE DIALOG oDlg RESOURCE &quot;AGENDA_EDIT&quot;\n\nREDEFINE FOLDER  ID 500 OF oDlg                         ;\n                        PROMPT &quot;&amp;Anagrafica&quot;,&quot;&amp;Dettagli&quot;,&quot;&amp;Notizie mediche&quot;,&quot;&amp;Fotografia&quot;,&quot;&amp;Osservazioni&quot;;\n                        DIALOGS &quot;AGENDA_EDIT_A&quot;, &quot;AGENDA_EDIT_B&quot;, &quot;AGENDA_EDIT_C&quot;,&quot;AGENDA_EDIT_D&quot;,&quot;AGENDA_EDIT_E&quot;\n\n\n ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil[/code:3hmap95g]\n\n\n\n\nthe resource\n\n[code:3hmap95g]\n\nAGENDA_EDIT DIALOG 33, 36, 332, 244\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;AGENDA_EDIT&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Socio &#58;&quot;, 200, 85, 14, 30, 8\n EDITTEXT 105, 120, 12, 174, 12\n CONTROL &quot;&quot;, 500, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE, 13, 69, 313, 136\n PUSHBUTTON &quot;&amp;Conferma&quot;, 1, 220, 218, 50, 16\n PUSHBUTTON &quot;&amp;Annulla&quot;, 2, 276, 218, 50, 16\n LTEXT &quot;Codice &#58;&quot;, -1, 13, 13, 30, 8\n EDITTEXT 101, 48, 12, 33, 12\n CONTROL &quot;&quot;, 104, &quot;TBitmap&quot;, 0 | WS_CHILD | WS_VISIBLE, 300, 12, 12, 11\n CONTROL &quot;&quot;, 10, &quot;SysDateTimePick32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 66, 30, 81, 12\n LTEXT &quot;Data richiesta &#58;&quot;, -1, 13, 32, 51, 8\n LTEXT &quot;Iscrizione &#58;&quot;, -1, 172, 32, 38, 8\n CONTROL &quot;&quot;, 11, &quot;SysDateTimePick32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 213, 30, 81, 12\n LTEXT &quot;Tipo adesione &#58;&quot;, -1, 12, 49, 52, 8\n CONTROL &quot;220&quot;, 220, &quot;COMBOBOX&quot;, CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 66, 47, 84, 62\n LTEXT &quot;Status &#58; &quot;, -1, 162, 49, 27, 8\n CONTROL &quot;220&quot;, 12, &quot;COMBOBOX&quot;, CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 193, 47, 54, 74\n LTEXT &quot;Tessera &#58;&quot;, -1, 254, 50, 34, 8\n EDITTEXT 13, 290, 48, 37, 12\n&#125;\n\nAGENDA_EDIT_D DIALOG 29, 69, 312, 122\nSTYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;&quot;, 101, &quot;TImage&quot;, 0 | WS_CHILD | WS_VISIBLE, 218, 18, 73, 86\n CONTROL &quot;TBtnBmp&quot;, 103, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 180, 26, 12, 12\n CONTROL &quot;TBtnBmp&quot;, 102, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 164, 26, 12, 12\n EDITTEXT 100, 6, 10, 187, 12\n GROUPBOX &quot;&quot;, 501, 202, 7, 103, 111, BS_GROUPBOX\n LTEXT &quot;Taglia &#58; &quot;, -1, 27, 40, 35, 8\n CONTROL &quot;S&quot;, 104, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 71, 43, 60, 12\n CONTROL &quot;M&quot;, 105, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 71, 56, 60, 12\n CONTROL &quot;L&quot;, 106, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 71, 69, 60, 12\n CONTROL &quot;XL&quot;, 107, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 132, 43, 60, 12\n CONTROL &quot;XXL&quot;, 108, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 132, 56, 60, 12\n CONTROL &quot;XXXL&quot;, 109, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 132, 69, 60, 12\n LTEXT &quot;Quota associativa &#58; &quot;, -1, 6, 86, 60, 8\n EDITTEXT 110, 70, 84, 53, 12\n LTEXT &quot;Versato anno corrente &#58;&quot;, -1, 6, 106, 80, 8\n CONTROL &quot;Si&quot;, 111, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 93, 105, 23, 12\n CONTROL &quot;No&quot;, 112, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 124, 106, 23, 12\n&#125;\n\nAGENDA_EDIT_A DIALOG 29, 69, 312, 122\nSTYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 100, 48, 12, 260, 12\n EDITTEXT 101, 48, 29, 157, 12\n LTEXT &quot;Indirizzo &#58;&quot;, -1, 12, 12, 36, 8\n LTEXT &quot;Località &#58;&quot;, -1, 12, 30, 33, 8\n EDITTEXT 103, 278, 29, 30, 12\n LTEXT &quot;Cap &#58;&quot;, -1, 257, 31, 18, 8\n EDITTEXT 102, 237, 29, 17, 12\n LTEXT &quot;Prov&#46;&#58;&quot;, -1, 215, 31, 21, 8\n LTEXT &quot;Data di nascita &#58;&quot;, -1, 13, 68, 55, 8\n EDITTEXT 105, 78, 66, 74, 12\n LTEXT &quot;Luogo di nascita &#58;&quot;, -1, 13, 50, 63, 8\n EDITTEXT 104, 78, 49, 230, 12\n LTEXT &quot;Sesso &#58;&quot;, -1, 211, 68, 33, 8\n COMBOBOX 106, 254, 66, 54, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n LTEXT &quot;Telefono &#58;&quot;, -1, 13, 87, 35, 8\n LTEXT &quot;Cellulare &#58;&quot;, -1, 13, 104, 38, 8\n EDITTEXT 107, 78, 86, 74, 12\n EDITTEXT 109, 78, 103, 74, 12\n LTEXT &quot;Telefono&quot;, -1, 187, 88, 35, 8\n LTEXT &quot;Cellulare &quot;, -1, 187, 105, 29, 8\n EDITTEXT 108, 226, 86, 82, 12\n EDITTEXT 110, 226, 103, 82, 12\n&#125;\n\n\nAGENDA_EDIT_B DIALOG 29, 69, 312, 122\nSTYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Professione &#58;&quot;, -1, 13, 14, 60, 8\n LTEXT &quot;Sede lavorativa &#58;&quot;, -1, 13, 31, 60, 8\n LTEXT &quot;Telefono sede lavorativa &#58; &quot;, -1, 11, 53, 87, 8\n EDITTEXT 200, 103, 15, 144, 12\n EDITTEXT 201, 103, 33, 145, 12\n EDITTEXT 202, 103, 52, 146, 12\n&#125;\n\n\nAGENDA_EDIT_C DIALOG 29, 69, 312, 122\nSTYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Data del certificato medico &#58;&quot;, -1, 19, 14, 93, 8\n EDITTEXT 300, 116, 13, 93, 12\n LTEXT &quot;Medico curante /sportivo &#58;&quot;, -1, 19, 34, 92, 8\n EDITTEXT 301, 116, 33, 183, 12\n LTEXT &quot;Gruppo sanguigno &#58;&quot;, -1, 19, 57, 68, 8\n EDITTEXT 302, 116, 55, 62, 12\n LTEXT &quot;Donatore &#58;&quot;, -1, 21, 83, 60, 8\n&#125;\n\nAGENDA_EDIT_E DIALOG 29, 69, 312, 122\nSTYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n GROUPBOX &quot;&quot;, 501, 4, 4, 301, 111, BS_GROUPBOX\n LTEXT &quot;&amp;Note &#58;&quot;, 201, 22, 12, 30, 8\n EDITTEXT 600, 20, 22, 274, 81, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n&#125;\n\nGET_MEMO DIALOG 84, 92, 261, 73\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 6, 4, 252, 50, ES_MULTILINE | ES_UPPERCASE | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Conferma&quot;, 111, 83, 58, 89, 13\n&#125;\n\n[/code:3hmap95g]\n\n\n\nthe error \n\n[code:3hmap95g]Application\n===========\n   Path and name&#58; C&#58;\\work\\errori\\fsdi2006\\prg\\testgar&#46;Exe &#40;32 bits&#41;\n   Size&#58;   435,200 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 01/17/07, 16&#58;10&#58;11\n   Error description&#58; Error FiveWin/3  Cannot create Dialog Box&#58; \n                      Resource&#58; AGENDA_EDIT\n\nStack Calls\n===========\n   Called from&#58;  =&gt; CREATEDLGERROR&#40;0&#41;\n   Called from&#58; DIALOG&#46;PRG =&gt; TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; testgar&#46;prg =&gt; MAIN&#40;15&#41;\n[/code:3hmap95g]\n\nsomene can help me ??????????????\n\n\nthanks in advance !!!!!!!!','',0,'AIA=','3hmap95g',1,0,'',49,0,0),(25100,5672,3,909,0,'75.177.72.230',1169047397,1,0,1,1,1,0,'','xBrowse Sample','I\'m new to the forum, but I have been a Fivewin user for 10 to 12 years.  I just upgraded FWH to get serious about moving all of my stuff to 32 bit.  I want to take a good look at what TxBrowse can do, but I can\'t get the sample testxbrw.prg to build.  The compiler appears to go all the way through, but I get an error E0032 \"Can\'t create output file: obj\\testxbrw,hrb\'.  \n\nAny ideas of where to look?\n\nCharles Pratt','',0,'AIA=','3nveqy2c',1,0,'',909,0,0),(25101,5567,6,45,0,'201.253.8.203',1169047726,1,0,1,1,1,0,'','','Muy buen trabajo  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , voy a mirarlo con detenimiento.\n\nHernan','',0,'AIA=','1rqel8a3',1,0,'',45,0,0),(25102,5673,2,774,0,'200.72.65.2',1169048408,1,0,1,1,1,1,'','UNA DUDA DUDOSA','SI tengo FWH26 puedo compilar con clipper y blinker en 16 Bits.\nya q yo uso FW24 en 16 Bits- y por mas q intento no puede con harb....','',0,'AIA=','2fhog8wj',1,0,'',774,0,0),(25103,5567,6,36,0,'200.113.56.235',1169049785,1,0,1,1,1,0,'','','Que colores se usa para que quede desabilitados los menos, si es posible hacerlo?\n\n\n[url=http&#58;//zea&#46;imagestack&#46;org/1169050293/11356235/78/menus&#46;JPG&#46;html:33fine8h][img:33fine8h]http&#58;//zea&#46;imagestack&#46;org/thmb/1169050293/11356235/78/menus&#46;JPG[/img:33fine8h][/url:33fine8h]\n\nSaludos\nPatricio','',0,'GA==','33fine8h',1,0,'',36,0,0),(25104,5674,3,529,0,'200.159.199.21',1169050216,1,0,1,1,1,0,'','Report generator','hi, i would like know about report generator used by fwh users? whats the best? thanks','',0,'GA==','4o4xwyw5',1,0,'',529,0,0),(25105,5671,3,309,0,'194.204.28.27',1169051404,1,0,1,1,1,0,'','Re: dialog error','&gt;when I compile it  the procedure let me \"cannot create dialog\"  but I NOt &gt;understand what is wrong !!!!!!!\n&gt;thanks in advance\n\nHi,\n   try changing dialog resource names to be more different (not to have so much matching characters). Seems like some resource ID generation bug (or effect)... There was a discussion about this sub. in Xharbour newsgroup.\n\nTaavi.','',0,'GA==','1w0u0hys',1,0,'',309,0,0),(25106,5667,2,138,0,'189.141.72.221',1169051861,1,0,1,1,1,1,'','','La ultima version de Clipper fue la 5.3B. Y es la que comercializa GrafxSoft.\n\nObviamente no hay mas desarrollo en Clipper 16 bits, ni mejoras ni versiones nuevas porque la plataforma DOS-16 bits es totalmente obsoleta.\n\nCon productos como (x)Harobur, Alaska Xbase++, o ClipX, ya nadie tiene interés en seguir desarrollando para 16 bits, porque ahora todo funciona mejor en el mundo de los 32 bits.','',0,'GA==','10uey1kx',1,0,'',138,0,0),(25107,5674,3,138,0,'189.141.72.221',1169052469,1,0,1,1,1,1,'','','There are at least 3 options to go\n\n1) EasyReport (<!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->) Written in FiveWin, includes the visual designer along with a LIB that let you print your reports designed in ER.\n\n2) The most common used (I think) Crystal Reports, which is the \"standard\" for visual report designers under Windows, the most of the programming languages use it. FiveWin provides two ways to use Crystal, one usign a TCRPE class and other via ActiveX.\n\n3) You can also use List&amp;Label the european equivalent of Crystal Reports, you can handle from FiveWin using ActiveX also (<!-- m --><a class=\"postlink\" href=\"http://en.combit.net/reporting_tool/page1122.aspx\">http://en.combit.net/reporting_tool/page1122.aspx</a><!-- m -->)','',0,'GA==','1y5krp6g',1,0,'',138,0,0),(25108,5661,7,138,0,'189.141.72.221',1169052794,1,0,1,1,1,1,'','','Me he perdido:\n\nCon el CDX, justo cuando abres el fichero, se abre el CDX, luego  no es necesario reindexar cada vez que lo abres.\n\nPara reindexar el CDX, lo que yo hago es primero borrar fisicamente el CDX y luego reindexar de la forma en que lo mencionas.\n\nSi estas usando IDX en vez de CDX, la cosa cambia un poco.\n\nSi me das un par de horas de puedo decir exactamente como va el tema con IDX.','',0,'GA==','14zh4pn2',1,0,'',138,0,0),(25110,5671,3,2,0,'87.218.146.230',1169054301,1,0,1,1,1,1,'','','Silvio,\n\nYou are using a TImage, TBtnBmp and TBitmap in your resource and you have not redefined them in your PRG','',0,'GA==','3t2cvblu',1,0,'',2,0,0),(25111,5671,3,49,0,'62.13.172.78',1169055611,1,0,1,1,1,1,'','','Antonio,\n\nOn my program I redefine all fields ( TImage, TBtnBmp and TBitmap ), but it  not show the dialog!!!!\n\nI had had problem when I insert  date control 32 bit\n\nif yo want can erase all TImage, TBtnBmp and TBitmap  control\n\nIT  NOT show the dialog\n\n\ntry it  please :\n[code:3dszubij]#include &quot;FiveWin&#46;ch&quot;\n#Include &quot;Image&#46;Ch&quot;\n\nfunction main&#40;&#41;\n   Local oDlg,oFld\n\n  LOCAL aDat&#91;28&#93;,oDat&#91;28&#93;\n\nDEFINE DIALOG oDlg RESOURCE &quot;AGENDA_EDIT&quot;\n\n                          REDEFINE FOLDER  ID 500 OF oDlg                         ;\n                        PROMPT &quot;&amp;Anagrafica&quot;,&quot;&amp;Dettagli&quot;,&quot;&amp;Notizie mediche&quot;,&quot;&amp;Fotografia&quot;,&quot;&amp;Osservazioni&quot;;\n                        DIALOGS &quot;AGENDA_EDIT_A&quot;, &quot;AGENDA_EDIT_B&quot;, &quot;AGENDA_EDIT_C&quot;,&quot;AGENDA_EDIT_D&quot;,&quot;AGENDA_EDIT_E&quot;\n\n\n\n               //folder 4 AGENDA_EDIT_D\nREDEFINE GET oDat&#91;19&#93; VAR aDat&#91;19&#93; ID 100 OF oFld&#58;aDialogs&#91;4&#93; PICTURE &quot;@!&quot;   UPDATE\n\n         oDat&#91;20&#93; &#58;= TImage&#40;&#41;&#58;ReDefine&#40; 101,, aDat&#91;19&#93;, oFld&#58;aDialogs&#91;4&#93;,,, &#46;F&#46;, &#46;T&#46;,,, &#46;F&#46;,, &#41;\n\n       REDEFINE BTNBMP ID 102 OF oFld&#58;aDialogs&#91;4&#93; RESOURCE &quot;b_chg&quot; NOBORDER;\n                  TOOLTIP &quot;Seleziona&quot; ;\n                  ACTION &#40;oDat&#91;20&#93;&#58;LoadImage&#40; , cFile1 &#58;= cGetFile32&#40; &quot;Immagini &#40;*&#46;jpg&#41;| *&#46;jpg|&quot;,&quot;Seleziona immagine&quot;,,&quot;&#46;\\Images\\&quot; &#41;&#41;,;\n                  oDat&#91;20&#93;&#58;Refresh&#40;&#41;,aDat&#91;19&#93;&#58;= cFile1, oDat&#91;19&#93;&#58;Refresh&#40;&#41; &#41;\n\n       REDEFINE BTNBMP ID 103 OF oFld&#58;aDialogs&#91;4&#93; RESOURCE &quot;B_PRV&quot; NOBORDER;\n                  TOOLTIP &quot;Zoom&quot;\n       *action zoomimage&#40;aDat&#91;19&#93;&#41;\n\n\n ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil[/code:3dszubij]','',0,'AIA=','3dszubij',1,0,'',49,0,0),(25112,5672,3,2,0,'87.218.146.230',1169056371,1,0,1,1,1,1,'','','Charles,\n\nAre you using Harbour or xHarbour ? What build ?','',0,'AIA=','wb668rq4',1,0,'',2,0,0),(25113,5675,20,154,0,'151.81.4.108',1169056490,1,0,1,1,1,1,'','Problema grafico 1','Ho riscontrato un piccolo problema grafico sul primo radio controllo dopo essermi spostato solo con la tastiera. \nAl primo giro, quando prende il fuoco il radio, non viene visualizzata la retinatura attorno all\'etichetta, mentre se proseguo, al 2° giro si!\nQuesto è l\'esempio:\n[code:3howpmrl]function Main&#40;&#41;\n\n   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2\n\n   cVar1 &#58;= &quot;Test1&quot;\n   cVar2 &#58;= &quot;Test2&quot;\n   cVar3 &#58;= &quot;One&quot;\n   lVar1 &#58;= &#46;T&#46;\n   lVar2 &#58;= &#46;T&#46;\n   nVar1 &#58;= 1\n   nVar2 &#58;= 2\n\n   DEFINE DIALOG oDlg\n\n   @ 1,1 GET cVar1 WHEN lVar1\n   @ 2,1 GET cVar2 WHEN lVar1\n   @ 1,5 RADIO nVar1 ITEMS &quot;Prova1&quot;, &quot;Prova2&quot; OF oDlg WHEN lVar1\n   @ 3,1 COMBOBOX cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; OF oDlg WHEN lVar1\n   @ 1,10 RADIO nVar2 ITEMS &quot;Prova1&quot;, &quot;Prova2&quot; OF oDlg WHEN lVar1\n   @ 3,8 CHECKBOX lVar2 PROMPT &quot;Test&quot; OF oDlg WHEN lVar1 SIZE 50, 12\n   @ 3,16 CHECKBOX lVar1 PROMPT &quot;Test&quot; OF oDlg SIZE 50, 12 ON CHANGE oDlg&#58;AEvalWhen&#40; oDlg &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN Nil[/code:3howpmrl]\n\nE\' possibile risolvere? \nGrazie per l\'aiuto.','',0,'AIA=','3howpmrl',1,0,'',154,0,0),(25114,5675,20,154,0,'151.81.4.108',1169056552,1,0,1,1,1,1,'','','Stessa situazione con le risorse:\n[code:364506jf]function Main&#40;&#41;\n\n   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2\n\n   cVar1 &#58;= &quot;Test1&quot;\n   cVar2 &#58;= &quot;Test2&quot;\n   cVar3 &#58;= &quot;One&quot;\n   lVar1 &#58;= &#46;T&#46;\n   nVar1 &#58;= 1\n   lVar2 &#58;= &#46;T&#46;\n   nVar2 &#58;= 2\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TestTABULATORE&quot;\n\n   REDEFINE GET cVar1 ID 101 OF oDlg WHEN lVar1\n   REDEFINE GET cVar2 ID 102 OF oDlg WHEN lVar1\n   REDEFINE RADIO nVar1 ID 103, 104 of oDlg WHEN lVar1\n   REDEFINE RADIO nVar2 ID 105, 106 of oDlg WHEN lVar1\n   REDEFINE COMBOBOX cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; ID 107 OF oDlg WHEN lVar1\n   REDEFINE CHECKBOX lVar2 ID 108 OF oDlg WHEN lVar1\n   REDEFINE CHECKBOX lVar1 ID 109 OF oDlg ON CHANGE oDlg&#58;AEvalWhen&#40; oDlg &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN Nil[/code:364506jf]con queste risorse:[code:364506jf]TestTABULATORE DIALOG 6, 15, 222, 127\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;Test TAB&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 15, 18, 39, 12\n EDITTEXT 102, 17, 35, 37, 12\n CONTROL &quot;Radio&quot;, 103, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 78, 19, 60, 12\n CONTROL &quot;Radio&quot;, 104, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 79, 33, 60, 12\n CONTROL &quot;Radio&quot;, 105, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 147, 20, 60, 12\n CONTROL &quot;Radio&quot;, 106, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 147, 32, 60, 12\n CHECKBOX &quot;Checkbox&quot;, 108, 119, 92, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n COMBOBOX 107, 22, 65, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n GROUPBOX &quot;Group&quot;, -1, 8, 5, 204, 110, BS_GROUPBOX\n CHECKBOX &quot;Checkbox&quot;, 109, 29, 92, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;[/code:364506jf]','',0,'AIA=','364506jf',1,0,'',154,0,0),(25115,5567,6,103,0,'200.165.6.4',1169057991,1,0,1,1,1,1,'','','George,\n\n\n   [quote:33caf82s]Ya trate con el archivo de Rossine para xBuilderW, pero los archivos en C, no los puedo compilar. Trate tambien con Harbour y me da error al tratar de compilar menus.c y gradfill.c. [/quote:33caf82s]\n\nCuales son los errores?\n\nSaludos,','',0,'gA==','33caf82s',1,0,'',103,0,0),(25116,5674,3,217,0,'200.159.120.34',1169058365,1,0,1,1,1,0,'','','4) Any developers work using RPV with FWH too\n\nRegards\nMaurilio','',0,'gA==','yg3zepb2',1,0,'',217,0,0),(25117,5665,6,838,0,'80.59.225.15',1169059077,1,0,1,1,1,0,'','','Me ayudo a mi mismo,\nEra un problema del array, que cargaba con oFtp:Directory(), no me acordaba de devuelve el nombre del fichero, y la longitud.\n\nSaludos\n\nJose Luis','',0,'gA==','14wz4j0g',1,0,'',838,0,0),(25118,5675,20,154,0,'151.81.4.108',1169059218,1,0,1,1,1,1,'','','Se invece uso il folder con i resources non mi appare mai la retinatura attorno ai Check e ai radio button:[code:21tfwh7u]function Main&#40;&#41;\n\n   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2, oFld, oCbx\n\n   cVar1 &#58;= &quot;Test1&quot;\n   cVar2 &#58;= &quot;Test2&quot;\n   cVar3 &#58;= &quot;One&quot;\n   lVar1 &#58;= &#46;T&#46;\n   nVar1 &#58;= 1\n   lVar2 &#58;= &#46;T&#46;\n   nVar2 &#58;= 2\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TestTabFolder&quot;\n\n   REDEFINE FOLDER oFld ID 1000 ITEMS &quot;Test1&quot;, &quot;Test2&quot; DIALOGS &quot;Folder&quot;, &quot;Folder&quot; OF oDlg\n\n   REDEFINE GET cVar1 ID 101 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE GET cVar2 ID 102 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE RADIO nVar1 ID 103, 104 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE RADIO nVar2 ID 105, 106 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE COMBOBOX oCbx VAR cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; ID 107 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar2 ID 108 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar1 ID 109 OF oFld&#58;aDialogs&#91;1&#93; ON CHANGE oDlg&#58;AEvalWhen&#40; oFld&#91;1&#93; &#41;\n\n   REDEFINE GET cVar1 ID 101 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE GET cVar2 ID 102 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE RADIO nVar1 ID 103, 104 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE RADIO nVar2 ID 105, 106 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE COMBOBOX cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; ID 107 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar2 ID 108 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar1 ID 109 OF oFld&#58;aDialogs&#91;2&#93; ON CHANGE oDlg&#58;AEvalWhen&#40; oFld&#91;2&#93; &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN Nil[/code:21tfwh7u]con questa dialog:[code:21tfwh7u]TestTabFolder DIALOG 6, 15, 222, 127\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;Test TAB Folder&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;SysTabControl32&quot;, 1000, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 3, 4, 216, 123\n&#125;[/code:21tfwh7u]e questo folder:[code:21tfwh7u]Folder DIALOG 6, 15, 213, 114\nSTYLE WS_CHILD | WS_VISIBLE | WS_BORDER\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 11, 17, 39, 12\n EDITTEXT 102, 13, 34, 37, 12\n CONTROL &quot;Radio&quot;, 103, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 74, 18, 60, 12\n CONTROL &quot;Radio&quot;, 104, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 75, 32, 60, 12\n CONTROL &quot;Radio&quot;, 105, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 143, 19, 60, 12\n CONTROL &quot;Radio&quot;, 106, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 143, 31, 60, 12\n CHECKBOX &quot;Checkbox&quot;, 108, 115, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n COMBOBOX 107, 18, 64, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n GROUPBOX &quot;Group&quot;, -1, 4, 4, 204, 110, BS_GROUPBOX\n CHECKBOX &quot;Checkbox&quot;, 109, 25, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;[/code:21tfwh7u]','',0,'AIA=','21tfwh7u',1,0,'',154,0,0),(25119,5676,20,154,0,'151.81.4.108',1169059510,1,0,1,1,1,1,'','Problema grafico 2','Con gli esempi del post precedente è possibile notare che disattivando il CheckBox si disattivano tutte le risorse, ma la get mantiene il bordo del colore normale e quindi sembra ancora attiva (soprattutto se non contiene dati), dove posso intervenire per farla diventare come gli altri controlli?\n\nGrazie per i suggerimenti','',0,'AIA=','pjyuyv43',1,0,'',154,0,0),(25120,5671,3,2,0,'87.218.146.230',1169060485,1,0,1,1,1,1,'','','Silvio,\n\nPlease call INITCOMMONCONTROLS() before DEFINE DIALOG ...','',0,'AIA=','30e0cc16',1,0,'',2,0,0),(25121,5673,2,2,0,'87.218.146.230',1169060553,1,0,1,1,1,1,'','','Tienes que usar el build de Harbour ó xHarbour correspondiente a esa versión de FWH','',0,'AIA=','1oh8axws',1,0,'',2,0,0),(25122,5675,20,6,0,'87.11.229.114',1169061240,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;Ugo&quot;:2t7r2gf6]Ho riscontrato un piccolo problema grafico sul primo radio controllo dopo essermi spostato solo con la tastiera. \nAl primo giro, quando prende il fuoco il radio, non viene visualizzata la retinatura attorno all\'etichetta, mentre se proseguo, al 2° giro si!\nQuesto è l\'esempio:\n[code:2t7r2gf6]function Main&#40;&#41;\n\n   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2\n\n   cVar1 &#58;= &quot;Test1&quot;\n   cVar2 &#58;= &quot;Test2&quot;\n   cVar3 &#58;= &quot;One&quot;\n   lVar1 &#58;= &#46;T&#46;\n   lVar2 &#58;= &#46;T&#46;\n   nVar1 &#58;= 1\n   nVar2 &#58;= 2\n\n   DEFINE DIALOG oDlg\n\n   @ 1,1 GET cVar1 WHEN lVar1\n   @ 2,1 GET cVar2 WHEN lVar1\n   @ 1,5 RADIO nVar1 ITEMS &quot;Prova1&quot;, &quot;Prova2&quot; OF oDlg WHEN lVar1\n   @ 3,1 COMBOBOX cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; OF oDlg WHEN lVar1\n   @ 1,10 RADIO nVar2 ITEMS &quot;Prova1&quot;, &quot;Prova2&quot; OF oDlg WHEN lVar1\n   @ 3,8 CHECKBOX lVar2 PROMPT &quot;Test&quot; OF oDlg WHEN lVar1 SIZE 50, 12\n   @ 3,16 CHECKBOX lVar1 PROMPT &quot;Test&quot; OF oDlg SIZE 50, 12 ON CHANGE oDlg&#58;AEvalWhen&#40; oDlg &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN Nil[/code:2t7r2gf6]\n\nE\' possibile risolvere? \nGrazie per l\'aiuto.[/quote:2t7r2gf6]\n\nNon confermo il problema con l\'esempio di cui sopra. Potrebbe dipendere dalla tua versione di FWH o di Windows?\n\nEMG','',0,'gIA=','2t7r2gf6',1,0,'',6,0,0),(25123,5567,6,171,0,'71.232.193.197',1169062355,1,0,1,1,1,0,'','','Kleyber,\n\nCuando uso Harbour me da el siguiente error:\nError: \'C:\\MENU_XP\\MENU.OBJ\' contains invalid OMF record, type 0x4c &lt;possibly COFF&gt;. Fijate aqui se detiene en \"menu.prg\" no en \"menus.c\"\n\nCuando uso xHarbour Professional, con el archivo XBP posteado por Rossine,  se detiene la compilacion cuando trata de de compilar menus.c\n\nSaludos\n\n\nGeorge','',0,'gIA=','28h17df4',1,0,'',171,0,0),(25124,5677,6,774,0,'200.72.65.2',1169063839,1,0,1,1,1,1,'','MIS PRIMEROS PASOS','NO PUEDO COMPILAR FWH26\n\nINSTALE FWH26, BCC55, Y HARBOUR\n\nY dentro de la carpeta de sample del FWH26 uso el buildh \ny compilar el tutor01.prg me da el siguiente error\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Harbour 2.6 - April 2005            Harbour development power  ³Ü\n³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\' and generating preprocessed output to \'tutor01.ppo\'...\n\n100\n100\n200\n200\n100\n700\nLines 25, Functions/Procedures 2\nGenerating C source output to \'tutor01.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntutor01.c:\nError E2209 c:\\harbour\\include\\hbdefs.h 56: Unable to open include file \'stdarg.h\'\nError E2209 c:\\harbour\\include\\hbdefs.h 57: Unable to open include file \'stdio.h\'\nError E2209 c:\\harbour\\include\\hbdefs.h 58: Unable to open include file \'stdlib.h\'\nError E2209 c:\\harbour\\include\\hbdefs.h 59: Unable to open include file \'string.h\'\nError E2209 c:\\harbour\\include\\hbsetup.h 56: Unable to open include file \'limits.h\'\nError E2188 c:\\harbour\\include\\hbdefs.h 405: Expression syntax\nError E2257 c:\\harbour\\include\\hbdefs.h 430: , expected\nError E2451 tutor01.c 18: Undefined symbol \'NULL\'\nError E2141 tutor01.c 18: Declaration syntax error\nError E2190 tutor01.c 18: Unexpected }\nError E2190 tutor01.c 18: Unexpected }\nError E2040 tutor01.c 18: Declaration terminated incorrectly\nError E2190 tutor01.c 22: Unexpected }\nError E2190 tutor01.c 22: Unexpected }\nError E2109 tutor01.c 22: Not an allowed type in function hb_vm_SymbolInit_TUTOR01\n*** 15 errors in Compile ***\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'C0W32.OBJ\'\n* Application successfully built','',0,'gIA=','1l2aboy5',1,0,'',774,0,0),(25125,5678,6,579,0,'200.76.189.223',1169064620,1,0,1,1,1,1,'','Firmas al terminar un reporte','Jovenes amigos,\n\nIntento colocar lineas y nombres para firmas al final de un reporte.\n\nGracias al foro ya uso oRpt:STARTLINE() , oRpt:Say(0,ContReng), oRpt:ENDLINE(), oRpt:NeedNewPage(), etc.\n\n El problema es que si uso oRpt:Say me coloca el contenido bajo la 1er columna y como centra todo el reporte no tengo espacio suficiente para poner varias firmas.\n\nLa 1er pregunta es como puedo hacer para que el reporte se imprima pegado al margen izquierdo.\n\nLa 2da es que si bien usando oRpt:Say se que se imprimira el contenido al final del reporte, no se como indicar a cuantos centímetros del margen izquierdo deseo hacerlo.\n\nDe antemano, gracias.','',0,'gIA=','5aqhhw07',1,0,'',579,0,0),(25126,5677,6,2,0,'87.218.146.230',1169065447,1,0,1,1,1,1,'','','Tienes que crear los ficheros bcc32.cfg y ilink32.cfg en c:\\bcc55\\bin ó en el path en donde hayas instalado Borland. \n\nEl contenido de esos ficheros ha de ser: \n\nbcc32.cfg: \n-I\"C:\\Bcc55\\include\" \n-L\"C:\\Bcc55\\lib\" \n\nilink32.cfg: \n-L\"C:\\Bcc55\\lib\"','',0,'gIA=','qkjxy6x4',1,0,'',2,0,0),(25127,5675,20,154,0,'151.81.4.108',1169065921,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;EnricoMaria&quot;:1d7ppq7u]Non confermo il problema con l\'esempio di cui sopra. Potrebbe dipendere dalla tua versione di FWH o di Windows?[/quote:1d7ppq7u]Ciao Enrico,\nla mia versione di fwh risale al maggio-giugno scorso, potresti inviarmi l\'exe al mio indirizzo di posta provato così verifico se è windows?\n\nGrazie.','',0,'gA==','1d7ppq7u',1,0,'',154,0,0),(25128,5675,20,6,0,'87.11.229.114',1169066535,1,0,1,1,1,1,'','Re: Problema grafico 1','Inviato. Facci sapere.\n\nEMG','',0,'gA==','swkz595o',1,0,'',6,0,0),(25129,5677,6,774,0,'200.72.102.142',1169066847,1,0,1,1,1,1,'','','ANTONIO CREE LOS DOS ARCHIVOS COMO ME DIJISTE PERO ME SIGUE APRARECIENDO ESTE ERROR\n\n\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Harbour 2.6 - April 2005            Harbour development power  ³Ü\n³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\' and generating preprocessed output to \'tutor01.ppo\'...\n\nLines 25, Functions/Procedures 2\nGenerating C source output to \'tutor01.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntutor01.c:\nError E2209 c:\\harbour\\include\\hbdefs.h 56: Unable to open include file \'stdarg.h\'\nError E2209 c:\\harbour\\include\\hbdefs.h 57: Unable to open include file \'stdio.h\'\nError E2209 c:\\harbour\\include\\hbdefs.h 58: Unable to open include file \'stdlib.h\'\nError E2209 c:\\harbour\\include\\hbdefs.h 59: Unable to open include file \'string.h\'\nError E2209 c:\\harbour\\include\\hbsetup.h 56: Unable to open include file \'limits.h\'\nError E2188 c:\\harbour\\include\\hbdefs.h 405: Expression syntax\nError E2257 c:\\harbour\\include\\hbdefs.h 430: , expected\nError E2451 tutor01.c 18: Undefined symbol \'NULL\'\nError E2141 tutor01.c 18: Declaration syntax error\nError E2190 tutor01.c 18: Unexpected }\nError E2190 tutor01.c 18: Unexpected }\nError E2040 tutor01.c 18: Declaration terminated incorrectly\nError E2190 tutor01.c 22: Unexpected }\nError E2190 tutor01.c 22: Unexpected }\nError E2109 tutor01.c 22: Not an allowed type in function hb_vm_SymbolInit_TUTOR01\n*** 15 errors in Compile ***\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'C0W32.OBJ\'\n* Application successfully built\n\nQUE PODRA ESTAR MAL\n\naca el buildh.bat\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for Harbour 2.6 - April 2005            Harbour development power  ³Ü\nECHO ³ (c) FiveTech, 1993-2005      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\harbour\nset bcdir=c:\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho ..\\lib\\FiveH.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfdbt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\nrem echo %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\nrem uncomment this line to use the debugger and comment the next one\nrem %bcdir%\\bin\\ilink32 -Tpe -s @b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n\nrem delete temporary files\n@del %1.c\n@del %1.il?\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\n:LINKERROR\nrem if exist meminfo.txt notepad meminfo.txt\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT','',0,'','3al9icmp',1,0,'',774,0,0),(25130,5567,6,237,0,'200.68.70.89',1169067165,1,0,1,1,1,0,'','color de opciones desabilitadas','Para el color de las opciones desabilitadas yo modifiqué lo siquiente:\n\nen el fuente pdmenu.prg, la funcion MenuDrawItem() al final\n\n[b:3vsop7to]antes de :[/b:3vsop7to]\natMenuDrawItem( pDrawItemStruct, cPrompt, lTop, hBmp, lSeparator, acolors )\n\n\n[b:3vsop7to]habria que poner:[/b:3vsop7to]\n   lActive    := oItem:lActive\n   aColors[2] := If( !lActive, GetSysColor( 3 ), oMenu:nClrText )\n\nentones el texto de las opciones desabilitadas queda mas clarito.\n\nSalu2!\nAlejandro Cebolido\nBuenos Aires, Argentina.','',0,'QA==','3vsop7to',1,0,'',237,0,0),(25131,5631,2,774,0,'200.72.102.142',1169067226,1,0,1,1,1,1,'','','Por el Tiempo y la demora puedo deducir q estas ocupado o no tiene solucion el tema de la Tooltip','',0,'QA==','gibzwfgr',1,0,'',774,0,0),(25132,5674,3,343,0,'204.57.111.194',1169068534,1,0,1,1,1,0,'','','I still use R&amp;R. I had a lot of reports in Clipper application that I can still use with xHarbour.','',0,'QA==','21wtxex2',1,0,'',343,0,0),(25133,5672,3,909,0,'75.177.72.230',1169069067,1,0,1,1,1,1,'','','Hi Antonio - \n\nThanks for your response.  Actually, I got everything worked out and it\'s working fine.  I am using the latest FWH (7.01) and xHarbour 0.99.71  builds.  I had some mistakes in the make file and had to convert the prg from ADS to native CDX.  This is the first time I have done anything with it and I like it!  I believe I\'ll convert some of my TCbrowses to TXBrowses.  \n\nBest regards,\n\nCharles','',0,'QA==','3cmyveve',1,0,'',909,0,0),(25134,5666,2,304,0,'189.129.110.170',1169069904,1,0,1,1,1,0,'','','Uso impresoras Epson Lx300 y Lx300+ , en los manuales no tengo los codigos de escape, alguien los recuerda ???, ademas uso el PREVIEW, tambien lo haria horizontal la previsualizacion ???\nsaludos, gracias por su ayuda','',0,'QA==','qdq9g753',1,0,'',304,0,0),(25135,5675,20,154,0,'151.81.5.237',1169073771,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;EnricoMaria&quot;:1q07c16n]Inviato. Facci sapere.[/quote:1q07c16n]\n\nEnrico,\npurtroppo il tuo eseguibile si comporta nello stesso modo <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nLa versione di windows installata è:Windows XP Sp. 2 con tutti gli aggiornamenti.\nHai qualche suggerimento?','',0,'gA==','1q07c16n',1,0,'',154,0,0),(25136,5675,20,154,0,'151.81.5.237',1169074275,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;EnricoMaria&quot;:3olpqvat]Inviato. Facci sapere.[/quote:3olpqvat]\nEnrico,\nse ti fosse possibile potresti provare anche quella con il folder (la 3°)?\nIn effetti è quella dove i Clienti lamentanto l\'impossibilità di individuare dov\'è il focus, e a me non appare mai nel test, mentre solo tenendo premuto a lungo il TAB nel programma dopo qualche giro sui controlli fa scattare la visualizzazione della retinatura anche sui Radio e Check.\nGrazie.','',0,'gA==','3olpqvat',1,0,'',154,0,0),(25137,5671,3,49,0,'62.13.172.78',1169077652,1,0,1,1,1,1,'','','Application\n===========\n   Path and name: C:\\work\\errori\\fsdi2006\\prg\\testgar.Exe (32 bits)\n   Size:   438,272 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 01/18/07, 00:45:02\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: ADIALOGS\n   Args:\n\n\nI tried to compile with PellesC but it make the same error','',0,'gA==','3d1aixgq',1,0,'',49,0,0),(25138,5671,3,49,0,'62.13.172.78',1169078226,1,0,1,1,1,1,'','','when I erase folder control ....\n\nit run ok','',0,'gA==','kkcvarzf',1,0,'',49,0,0),(25139,5679,6,471,0,'190.40.41.241',1169080364,1,0,1,1,1,1,'','no redondea correctamnete','Amigos\nuso xharbour 0.82\n\nNo redondea correctamente en esta version de xharbour\n\nlocal x:=5.8105\n\nmsgalert( round(x,3) )\n\n\nsale 5.810\n\n\ncuando deberia salir   5.811\n\nsi lo pongo directo si funciona bien\n\nmsgalert( round(5.8105))\n\n\nporque\n\nha alguine le paso esto cual es la solucion\npor  q pasar a xharbour 0.99 es algo traumatico\n\nGracias','',0,'gA==','132ua46h',1,0,'',471,0,0),(25140,5671,3,439,0,'200.125.37.129',1169086746,1,0,1,1,1,1,'','','Silvio, \n\nI see oFld variable defined as local at the start of the function but  you  didn´t store the folder object in it <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nDEFINE FOLDER   [u:39qnto95]oFld[/u:39qnto95]   ID .... OF ......\n\nI think that´s the problem.','',0,'AQ==','39qnto95',1,0,'',439,0,0),(25141,5679,6,785,0,'190.64.109.89',1169091309,1,0,1,1,1,0,'','','Vladimir:\n\nUsando la lib de Nanforum toolkits (Nanfor.lib)\nese problema se soluciona.\nLa función es FT_Round().\n\nMira si tienes en xHarbour, yo la uso con Harbour y la compilo\nen mis programas y me funciona bien.\n\nSaludos.\n\nRuben Fernandez.','',0,'AQ==','58sz9f1l',1,0,'',785,0,0),(25142,5680,6,307,0,'201.143.204.240',1169091315,1,0,1,1,1,0,'','para antonio linares','antonio , en la clase printer\noPRN:SetSize (nancho, nalto), nAncho es en cm, ml pulgadas, o en que??\n\nya le puse numero ahi y nomas no hace lo que quiero.\nnecesito imprimir en fichas de deposito impresas en 3 al paso, es decir son 3 fichas en una hoja 8.5 x 11 inches.\n\nsi hago lo siguiente tampoco me respeta el tamanio\nnancho := 24 //24centimeros\nnalto  := 9.3 //cms..\noPrn:Cmtr2Pix(@nancho, @nalto)\n  oPRN:SetSize (nancho, nalto)\n\nno sale nada porque segun no cabe...\npero si incremento nancho a 43 si sale la ficha completa pero al dar el salto de pagina lo hace mas grande que la ficha..\n\nen que medida esta esto?...\n\nsaludos\n\narnulfo V','',0,'AQ==','1o5faf4a',1,0,'',307,0,0),(25143,5681,6,785,0,'190.64.109.88',1169094670,1,0,1,1,1,0,'','Necesito ejemplo de xBrowse','Amigos:\n\nEstoy usando en Browse de HDC (Hernán) ESPECTACULAR, pero desearía probar el xBrowse.\n\nAlguien me puede enviar un ejemplo en dialogo desde recursos para ver\nclaramente como se usan las posibilidades que tiene.\n\nMuchas gracias.\n\nRuben Fernandez.\n<!-- e --><a href=\"mailto:rdfernandez@adinet.com.uy\">rdfernandez@adinet.com.uy</a><!-- e -->','',0,'AQ==','2j2iwmmc',1,0,'',785,0,0),(25144,5678,6,9,0,'85.60.13.186',1169099407,1,0,1,1,1,1,'','','Yo lo hago de la siguiente forma:\n\n           oReport:NewLine(),oReport:Say( 1, \" \" ) , ; // linea blanco\n           oReport:NewLine(),oReport:Say( 1, SPACE(10) + ;\n                \"Firma del Arrendador\" + ;\n                space(100) + \"Firma del Arrendatario\" )\n\nComo ves, uso space() para los espacios.','',0,'AQ==','1g7n52lb',1,0,'',9,0,0),(25145,5680,6,2,0,'87.218.146.230',1169100114,1,0,1,1,1,1,'','','Arnulfo,\n\nLas medidas van especificadas en décimas de milímetros\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/prntspol_8nle.asp\">http://msdn.microsoft.com/library/defau ... l_8nle.asp</a><!-- m -->','',0,'AQ==','33exzy55',1,0,'',2,0,0),(25146,5675,20,6,0,'87.21.239.61',1169106823,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;Ugo&quot;:1me7yj5g][quote=&quot;EnricoMaria&quot;:1me7yj5g]Inviato. Facci sapere.[/quote:1me7yj5g]\n\nEnrico,\npurtroppo il tuo eseguibile si comporta nello stesso modo <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nLa versione di windows installata è:Windows XP Sp. 2 con tutti gli aggiornamenti.\nHai qualche suggerimento?[/quote:1me7yj5g]\n\nAnch\'io ho la stessa versione di Windows e quindi non capisco proprio perché il programma dovrebbe comportarsi diversamente... <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEMG','',0,'gA==','1me7yj5g',1,0,'',6,0,0),(25147,5675,20,6,0,'87.21.239.61',1169107072,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;Ugo&quot;:32xgqzrm][quote=&quot;EnricoMaria&quot;:32xgqzrm]Inviato. Facci sapere.[/quote:32xgqzrm]\nEnrico,\nse ti fosse possibile potresti provare anche quella con il folder (la 3°)?\nIn effetti è quella dove i Clienti lamentanto l\'impossibilità di individuare dov\'è il focus, e a me non appare mai nel test, mentre solo tenendo premuto a lungo il TAB nel programma dopo qualche giro sui controlli fa scattare la visualizzazione della retinatura anche sui Radio e Check.\nGrazie.[/quote:32xgqzrm]\n\nProvato. Qui funziona regolarmente e la retinatura si vede perfettamente. A questo punto credo possa essere una qualche impostazione del sistema, ad esempio colori, dimensione dei caratteri, tema, etc. Riesci a provarlo su una macchina con XP appena installato con tutte le impostazioni di default?\n\nEMG','',0,'gA==','32xgqzrm',1,0,'',6,0,0),(25148,5671,3,49,0,'213.82.134.66',1169108605,1,0,1,1,1,1,'','','I  tried and now run ok \n\nthere is an error on dialog AGENDA_EDIT_D\nwhen I erase all control on  it the dialog and folder run ok \n\nthe dialog AGENDA_edit_d  have :\n\n\n[code:8bqdr3wt]\nAGENDA_EDIT_D DIALOG 29, 69, 312, 122 \nSTYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN \nFONT 8, &quot;MS Sans Serif&quot; \n&#123; \n CONTROL &quot;&quot;, 101, &quot;TImage&quot;, 0 | WS_CHILD | WS_VISIBLE, 218, 18, 73, 86 \n CONTROL &quot;TBtnBmp&quot;, 103, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 180, 26, 12, 12 \n CONTROL &quot;TBtnBmp&quot;, 102, &quot;TBtnBmp&quot;, 0 | WS_CHILD | WS_VISIBLE, 164, 26, 12, 12 \n EDITTEXT 100, 6, 10, 187, 12 \n GROUPBOX &quot;&quot;, 501, 202, 7, 103, 111, BS_GROUPBOX \n LTEXT &quot;Taglia &#58; &quot;, -1, 27, 40, 35, 8 \n CONTROL &quot;S&quot;, 104, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 71, 43, 60, 12 \n CONTROL &quot;M&quot;, 105, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 71, 56, 60, 12 \n CONTROL &quot;L&quot;, 106, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 71, 69, 60, 12 \n CONTROL &quot;XL&quot;, 107, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 132, 43, 60, 12 \n CONTROL &quot;XXL&quot;, 108, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 132, 56, 60, 12 \n CONTROL &quot;XXXL&quot;, 109, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 132, 69, 60, 12 \n LTEXT &quot;Quota associativa &#58; &quot;, -1, 6, 86, 60, 8 \n EDITTEXT 110, 70, 84, 53, 12 \n LTEXT &quot;Versato anno corrente &#58;&quot;, -1, 6, 106, 80, 8 \n CONTROL &quot;Si&quot;, 111, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 93, 105, 23, 12 \n CONTROL &quot;No&quot;, 112, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 124, 106, 23, 12 \n&#125; \n\n[/code:8bqdr3wt]\n\n\nthere is something  not run ok  but wich ?\nI not found anything  \nI copied it from another my program  ( on old program 32 bit run ok)','',0,'AIA=','8bqdr3wt',1,0,'',49,0,0),(25149,5675,20,154,0,'151.21.77.146',1169117925,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;EnricoMaria&quot;:1e6hl757]Provato. Qui funziona regolarmente e la retinatura si vede perfettamente. A questo punto credo possa essere una qualche impostazione del sistema, ad esempio colori, dimensione dei caratteri, tema, etc. Riesci a provarlo su una macchina con XP appena installato con tutte le impostazioni di default?[/quote:1e6hl757]\nEnrico,\nCerto che lo posso fare...\ndal cliente che lo ha notato, è installato Windows 2000 non so con quale service pack.\nComunque, il mio computer è impostato con i colori, caratteri e tema di default.\nPotresti invarmi anche l\'exe con i folder? così provo anche il tuo, \npoiché ho letto che ci sono stati degli aggiornamenti sui folder, non vorrei mai...\nGrazie.','',0,'gA==','1e6hl757',1,0,'',154,0,0),(25150,5675,20,6,0,'87.21.239.61',1169118088,1,0,1,1,1,1,'','Re: Problema grafico 1','Inviato.\n\nEMG','',0,'gA==','3n7ht4ym',1,0,'',6,0,0),(25151,5679,6,36,0,'200.113.56.235',1169123113,1,0,1,1,1,0,'','','en xharbour 9.61 funciona ok\n\nmsgalert( round(x,3) ) \n5.811000\n\n\nsaludos\nPatricio','',0,'gA==','gbcqr8mw',1,0,'',36,0,0),(25152,5567,6,36,0,'200.113.56.235',1169123248,1,0,1,1,1,0,'','','Gracias TecniSoftware\n\nahora los menus des habilitado funcionan\n\n\nSaludos\nPatricio','',0,'gA==','2a6zpx38',1,0,'',36,0,0),(25153,5670,2,74,0,'190.49.81.131',1169125410,1,0,1,1,1,1,'','','Miguel:\n\n           Si, claro que se puede, tendrias que utilizar una fuente de ancho fijo, como courier new. Al momento de editar los renglones podes utilizar gets con el tamaño justo para que entren los 75 caracteres con esa fuente de ancho fijo si no son muchos renglones y sino un get memo. Luego de editar si estas en un alta haces el append en campos caracter de 75 o un campo memo, y si estas editando vas recorriendo los renglones y pisando los que tenes en la base si usastes campos caracter, recorriendo los registros existentes y los renglones y agregando al final si los renglones tipeados son mas que los registros o borrando los registros finales en el caso inverso.\n\nEjemplo con get memo y campos caracter en una base (para una modificacion):\n[code:2e2tkf1j]\n	REDEFINE GET oNotaRef VAR cNotaRef ID 112 FONT oFont5 MEMO OF oDlg\n\nAl momento de grabar&#58;\n\n			LLOSTKTR-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n			MOVREPAR-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n			FOR I&#58;=1 TO MLCOUNT&#40;cNotaRef,50&#41;\n				IF MOVREPAR-&gt;TIPO == \'N\'   // PISO RENGLON DE NOTA DE REF\n					IF MOVREPAR-&gt;&#40;DBRLOCK&#40;&#41;&#41;\n							REPLACE MOVREPAR-&gt;RENGLON WITH MEMOLINE&#40;cNotaRef,50,i&#41;\n							MOVREPAR-&gt;&#40;DBUNLOCK&#40;&#41;&#41;\n					ENDIF\n				ELSE\n					DO WHILE MOVREPAR-&gt;TIPO # \'N\' &#46;AND&#46; !MOVREPAR-&gt;&#40;EOF&#40;&#41;&#41;\n						MOVREPAR-&gt;&#40;DBSKIP&#40;&#41;&#41;\n					ENDDO\n					IF MOVREPAR-&gt;&#40;EOF&#40;&#41;&#41;\n							MOVREPAR-&gt;&#40;DBAPPEND&#40;&#41;&#41;  // NO HAY MAS RENGLONES DE NOTA DE REF, LOS AGREGO\n							REPLACE MOVREPAR-&gt;NUM     WITH OT&#58;VREMITO\n							REPLACE MOVREPAR-&gt;TIPO    WITH \'N\'\n							REPLACE MOVREPAR-&gt;MCAN    WITH LLOSTKTR-&gt;MCAN\n							REPLACE MOVREPAR-&gt;RENGLON WITH MEMOLINE&#40;cNotaRef,50,i&#41;\n							REPLACE MOVREPAR-&gt;MPRE    WITH LLOSTKTR-&gt;MPRE\n							REPLACE MOVREPAR-&gt;IMPORTE WITH LLOSTKTR-&gt;IMPORTE\n							MOVREPAR-&gt;&#40;DBUNLOCK&#40;&#41;&#41;\n					ENDIF\n				ENDIF\n				MOVREPAR-&gt;&#40;DBSKIP&#40;&#41;&#41;\n			NEXT\n\n			// SI QUEDAN RENGONES DE NOTA DE REF SOBRANTES LOS BORRO\n			IF !MOVREPAR-&gt;&#40;EOF&#40;&#41;&#41;\n				DO WHILE !MOVREPAR-&gt;&#40;EOF&#40;&#41;&#41;\n					IF MOVREPAR-&gt;TIPO == \'N\'\n							IF MOVREPAR-&gt;&#40;DBRLOCK&#40;&#41;&#41;\n								MOVREPAR-&gt;&#40;DBDELETE&#40;&#41;&#41;\n								MOVREPAR-&gt;&#40;DBUNLOCK&#40;&#41;&#41;\n							ENDIF\n					ENDIF\n					MOVREPAR-&gt;&#40;DBSKIP&#40;&#41;&#41;\n				ENDDO\n			ENDIF\n\n[/code:2e2tkf1j]','',0,'AIA=','2e2tkf1j',1,0,'',74,0,0),(25154,5682,7,598,0,'200.11.139.61',1169128412,1,0,1,1,1,1,'','Fix GPFStack... ¿?','alguien me puede decir que significa el error: \"Fix GPFStack()!\"','',0,'AIA=','2fjjg7l1',1,0,'',598,0,0),(25155,5568,3,185,0,'200.87.81.44',1169131267,1,0,1,1,1,0,'','','Ya esta lista la nueva version de menus con todas las correcciones a los bugs reportados por ustedes\n\n[img] <!-- m --><a class=\"postlink\" href=\"http://www.quark-costos.com/downloads/menu2.jpg\">http://www.quark-costos.com/downloads/menu2.jpg</a><!-- m -->\n\n\n\nSaludos\n\nArturo','',0,'','x00bzuqk',1,0,'',185,0,0),(25156,5567,6,185,0,'200.87.81.44',1169131420,1,0,1,1,1,0,'','','Ya esta lista la nueva version de menus con todas las correcciones a los bugs reportados por ustedes\n\n<!-- m --><a class=\"postlink\" href=\"http://www.quark-costos.com/downloads/menus.jpg\">http://www.quark-costos.com/downloads/menus.jpg</a><!-- m -->\n\n\nSaludos\n\nArturo\n<!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->','',0,'','2vy1556d',1,0,'',185,0,0),(25157,5567,6,185,0,'200.87.81.44',1169131504,1,0,1,1,1,0,'','','perdon la imagen es la siguiente\n\n[img]http://www.quark-costos.com/downloads/menu2.jpg\n\n\nSaludos\n\nArturo','',0,'','ocnimrit',1,0,'',185,0,0),(25158,5670,2,812,0,'200.83.124.158',1169131880,1,0,1,1,1,0,'','','Daniel:\n\nTe pasastes, muchas gracias, es lo que necesitaba.\n\nEternamente agradecido por tu ayuda, \n\nMiguel Rivera','',0,'','2pay4j0e',1,0,'',812,0,0),(25159,5677,6,891,0,'148.243.37.162',1169133554,1,0,1,1,1,0,'','Hola amigo','Hola amigo, como estas, porque no usas VeRCE 4.3, es fácil de compilar y minimo de configuración, te lo recomiendo, cualquier duda contactame a mi correo y te paso el VeRCE y te hecho la mano en la  configuracion.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'','5mgr3kc5',1,0,'',891,0,0),(25160,5674,3,49,0,'213.82.134.66',1169134335,1,0,1,1,1,1,'','','IDEA - why we create a new report designer ( !open source !)  for all  fw community?','',0,'','c1xh5zg5',1,0,'',49,0,0),(25161,5677,6,49,0,'213.82.134.66',1169134411,1,0,1,1,1,1,'','','If you use Xmate you can create exe,LIB and dll in two minutes','',0,'','1prjl853',1,0,'',49,0,0),(25162,5568,3,190,0,'202.65.134.34',1169134912,1,0,1,1,1,0,'','','Mr.Arturo\n\nNot only Excellent Contribution but also Excellent Support too!.\n\n[quote:1hi4dkkt]\na) When I tried to change to prompt of the menu item using \noMenu:SetPrompt(..) or oMenu:cCaption(..) the gradiation effect is \nlost and the system\'s default gray color with blue highlite is appearing. \n\nb) When the menu are displayed in WIN98 the Hilite bar is painted from \nthe place where the Icon is ended at the right side and the bar is not \npainted on the icon also. But is same functionality is working OK in \nWinXp \n[/quote:1hi4dkkt]\n\nI have downloaded the latest version and my points mentioned above in\nthe first page this thread are fully takencare and I am very happy for that.\n\nOnce again thank you very much for your quick support and hope to\nget more contributions to our FWH community like VTASKBAR etc...\n\nRegards to you,\n\n- Ramesh Babu P','',0,'gA==','1hi4dkkt',1,0,'',190,0,0),(25163,5680,6,307,0,'201.143.204.240',1169136670,1,0,1,1,1,0,'','PRinter','Ok Gracias antonio.\nsaludos\nArnulfo V.','',0,'gA==','2at7wdyp',1,0,'',307,0,0),(25164,5683,2,760,0,'200.37.76.87',1169137179,1,0,1,1,1,0,'','Ayuda con TsBrowse','Hola a todos. \n\nMi pregunta es la siguiente... \nCuando usaba el twbrowse solo ponia la clausaula fields y todos los campos se cargaban para trabajarlos. \nAhora uso tsbrowse y no se como cargar todas los campos de una dbf cualquiera... Uso la clase TDBF21, FW2.0, blinker4.0 , WorkShop. \n\nQue me falta u omito algo...Lei la sintaxis del tsbrowse y no hallos la forma de cargar todas los campos ... Quiero para una funcion generica, en donde abro cualquier dbf y cargo todos los campos para trabajarlos... \n\nAyuda por fa.... \n\nSalu2','',0,'gA==','2tgo52hz',1,0,'',760,0,0),(25165,5567,6,785,0,'190.64.114.66',1169137314,1,0,1,1,1,0,'','','Arturo:\n\nNo se puede acceder a la pagina.\n\nSaludos.\n\nRuben Fernandez.','',0,'gA==','3sxx4mf4',1,0,'',785,0,0),(25166,5681,6,43,0,'189.128.5.162',1169137824,1,0,1,1,1,0,'','','Hola Ruben\n\nDentro de FWH en la carpeta de ejemplos hay un archivo llamado testxbrw.prg, ahi encontraras lo que buscas.\n\nSaludos\nMarco A. Delgado.','',0,'gA==','1f4es63s',1,0,'',43,0,0),(25167,5684,3,49,0,'213.82.134.66',1169137925,1,0,1,1,1,1,'','Xbrowse Lines','I made a window with a xbrowse \n\nwhen on the dbf there is an record or two record I can see  only the divider line vertical  from top to number  record saved \n\nBut I saw on another program I can draw the divider lines  from top to bottom of grid\n\nwich style I must use ?\n\nHow I can make it ?\n\n------','',0,'gA==','1c6j4c25',1,0,'',49,0,0),(25168,5681,6,228,0,'201.245.193.2',1169138213,1,0,1,1,1,1,'','Amigo... aqui esta un ejemplo...','Amigo aqui esta espero te sirva..\n\n[code:25a1v77e]\nDEFINE DIALOG oCuaPre RESOURCE &quot;orPeba5&quot; OF oCuadro ICON &quot;#8001&quot;\n\n oProgress = TProgress&#40;&#41;&#58;Redefine&#40; 4037, oCuaPre &#41;\n\n REDEFINE BTNGET oGTerc VAR oLamcla&#58;vGTerc ID 4029 OF oCuaPre RESOURCE &quot;Bbusc&quot; UPDATE VALID &#40;oLamcla&#58;valicap&#40;1,1&#41;,oLamcla&#58;vSVTer&#41; ACTION &#40;oLamcla&#58;busqueda&#40;1,1&#41;,&#46;T&#46;&#41;\n REDEFINE SAY oSDigi VAR oLamcla&#58;vSDigi ID 4030 OF oCuaPre COLOR oLamcla&#58;cClr5\n REDEFINE SAY oSTerc VAR oLamcla&#58;vSterc ID 4031 OF oCuaPre COLOR oLamcla&#58;cClr5\n\n REDEFINE BUTTONBMP Btn_Grab ID 11 OF oCuaPre BITMAP &quot;Bgrab&quot; ACTION pValidPeF&#40;&#41;\n REDEFINE BUTTONBMP Btn_Canc ID 10 OF oCuaPre BITMAP &quot;Bcanc&quot; ACTION oCuaPre&#58;End&#40;&#41;\n REDEFINE BUTTON Btn_Apli ID 4016 OF oCuaPre ACTION pDesPed&#40;&#41;\n REDEFINE BUTTON Btn_Pref ID 4034 OF oCuaPre ACTION pImpPrefac&#40;&#41;\n\n REDEFINE GET oCRog1 VAR oCRvg1 ID 4017 OF oCuaPre\n REDEFINE GET oCRog2 VAR vFcons ID 4028 OF oCuaPre\n\n REDEFINE SAY oCRos1 VAR oCRvs1 ID 4003 OF oCuaPre COLOR oLamcla&#58;cClr5\n REDEFINE SAY oCRos2 VAR oCRvs2 ID 4005 OF oCuaPre COLOR oLamcla&#58;cClr5\n REDEFINE SAY oCRos3 VAR oCRvs3 ID 4006 OF oCuaPre COLOR oLamcla&#58;cClr5\n REDEFINE SAY oCRos4 VAR oCRvs4 ID 4008 OF oCuaPre COLOR oLamcla&#58;cClr5\n REDEFINE SAY oCRos5 VAR oCRvs5 ID 4010 OF oCuaPre COLOR oLamcla&#58;cClr5\n\n REDEFINE SAY oCRos6 ID 4036 OF oCuaPre COLOR oLamcla&#58;cClr5\n\n mBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oCuaPre &#41;\n\n SELE Prefac\n dbgotop&#40;&#41;\n nAregi&#58;=reccount&#40;&#41;\n dbgotop&#40;&#41;\n mBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n *mBrw&#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n *mBrw&#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n mBrw&#58;nHeaderLines        &#58;= 1\n *mBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n *mBrw&#58;lRecordSelector     &#58;= &#46;t&#46;\n mBrw&#58;lFastEdit &#58;= &#46;T&#46;\n mBrw&#58;bClrStd 		   &#58;= &#123;|| IF&#40; &#40;recno&#40;&#41;%2&#41;==0,&#123;CLR_BLACK,oLamcla&#58;cClr2&#125;,&#123;CLR_BLACK,oLamcla&#58;cClr1&#125; &#41; &#125;\n *mBrw&#58;blDblClick          &#58;= &#123;|| pModBPre&#40;&#41;&#125;\n *mBrw&#58;bKeyDown            &#58;= &#123;|nKey|iif&#40;nKey == 13,pModBPre&#40;&#41;,&#40;&quot; &quot;&#41;&#41;&#125;\n *mBrw&#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n\n oCol &#58;= mBrw&#58;AddCol&#40;&#41;\n oCol&#58;cHeader       &#58;= &quot;Articu&quot;\n oCol&#58;bStrData      &#58;= &#123; || Prefac-&gt;Articu&#125;\n oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n oCol&#58;nDataStrAlign &#58;= AL_LEFT\n oCol&#58;nWidth        &#58;= 60\n oCol&#58;nEditType &#58;= 1\n oCol&#58;bOnPostEdit &#58;= &#123;|o, v, n| iif&#40; n != VK_ESCAPE, msginfo&#40;&quot;jejejeje&quot;&#41;, &#41; &#125;\n\n oCol &#58;= mBrw&#58;AddCol&#40;&#41;\n oCol&#58;cHeader       &#58;= &quot;Nombre&quot;\n oCol&#58;bStrData      &#58;= &#123; || Prefac-&gt;Nombre&#125;\n oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n oCol&#58;nDataStrAlign &#58;= AL_LEFT\n oCol&#58;nWidth        &#58;= 180\n\n oCol &#58;= mBrw&#58;AddCol&#40;&#41;\n oCol&#58;cHeader       &#58;= &quot;Subtotal&quot;\n oCol&#58;bStrData      &#58;= &#123; || Transform&#40;Prefac-&gt;Valsub,oLamcla&#58;PIC2&#41;&#125;\n oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n oCol&#58;nDataStrAlign &#58;= AL_LEFT\n oCol&#58;nWidth        &#58;= 80\n\n oCol &#58;= mBrw&#58;AddCol&#40;&#41;\n oCol&#58;cHeader       &#58;= &quot;Descuento&quot;\n oCol&#58;bStrData      &#58;= &#123; || Transform&#40;Prefac-&gt;Valdes,oLamcla&#58;PIC2&#41;&#125;\n oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n oCol&#58;nDataStrAlign &#58;= AL_LEFT\n oCol&#58;nWidth        &#58;= 80\n\n oCol &#58;= mBrw&#58;AddCol&#40;&#41;\n oCol&#58;cHeader       &#58;= &quot;I&#46;V&#46;A&#46;&quot;\n oCol&#58;bStrData      &#58;= &#123; || Transform&#40;Prefac-&gt;Valiva,oLamcla&#58;PIC2&#41;&#125;\n oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n oCol&#58;nDataStrAlign &#58;= AL_LEFT\n oCol&#58;nWidth        &#58;= 80\n\n oCol &#58;= mBrw&#58;AddCol&#40;&#41;\n oCol&#58;cHeader       &#58;= &quot;Total&quot;\n oCol&#58;bStrData      &#58;= &#123; || Transform&#40;Prefac-&gt;Valtot,oLamcla&#58;PIC2&#41;&#125;\n oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n oCol&#58;nDataStrAlign &#58;= AL_LEFT\n oCol&#58;nWidth        &#58;= 80\n\n mBrw&#58;SetRDD&#40;&#41;\n mBrw&#58;CreateFromResource&#40; 101 &#41;\n\n REDEFINE SAY oCRosu VAR oCRvsu ID 4019 OF oCuaPre COLOR oLamcla&#58;cClr5 PICTURE oLamcla&#58;PIC2\n REDEFINE SAY oCRode VAR oCRvde ID 4021 OF oCuaPre COLOR oLamcla&#58;cClr5 PICTURE oLamcla&#58;PIC2\n REDEFINE SAY oCRoiv VAR oCRviv ID 4023 OF oCuaPre COLOR oLamcla&#58;cClr5 PICTURE oLamcla&#58;PIC2\n REDEFINE SAY oCRoto VAR oCRvto ID 4025 OF oCuaPre COLOR oLamcla&#58;cClr5 PICTURE oLamcla&#58;PIC2\n\n REDEFINE SAY oLamcla&#58;oSubto ID 4012 OF oCuaPre\n REDEFINE SAY oLamcla&#58;oImpue ID 4013 OF oCuaPre\n REDEFINE SAY oLamcla&#58;oTotal ID 4014 OF oCuaPre\n\n oCuaPre&#58;cTitle &#58;= &quot;Prefactura Pedido&quot;\n oCuaPre&#58;bStart &#58;= &#123; || oProgress&#58;hide&#40;&#41;,pValidPeF2&#40;&#41;&#125;\n\nACTIVATE DIALOG oCuaPre CENTERED\nPrefac-&gt;&#40;dbclosearea&#40;&#41;&#41;\n\n[/code:25a1v77e]\n\nAsi se ve en pantalla\n\n[url=http&#58;//zea&#46;imagestack&#46;org/1169139023/2451932/69/imagen%203&#46;JPG&#46;html:25a1v77e][img:25a1v77e]http&#58;//zea&#46;imagestack&#46;org/thmb/1169139023/2451932/69/imagen%203&#46;JPG[/img:25a1v77e][/url:25a1v77e]\n\nEspero te sirva','',0,'GIA=','25a1v77e',1,0,'',228,0,0),(25169,5685,3,49,0,'213.82.134.66',1169138352,1,0,1,1,1,1,'','link to pc on a lan','Dear friends,\n\nCan I see in a windows or dialog all pc there are in a lan ? How I can make it ?\n\nCan I link to a pc and read and write a dbf or an  ini file ? How I can make it ?\n\n\ncan I have a small test  ?\n\nI hope yoour help\n\n------','',0,'GIA=','n6mqasab',1,0,'',49,0,0),(25170,5682,7,2,0,'87.218.146.147',1169139763,1,0,1,1,1,1,'','','Luis,\n\nEse mensaje aparece ante un GPF. Hay un código nuevo que tenemos que incluir en FWPPC, por eso el recordatorio','',0,'GIA=','2e8frpz3',1,0,'',2,0,0),(25171,5686,7,720,0,'80.36.244.134',1169140854,1,0,1,1,1,0,'','Como ocultar un get o un button..','Hola a todos...\n\nAlguien puede decirme como puedo ocultar, es decir, que no sea visible en un dialogo un get y un button??. He probado oget:hide() y oboton:hide() pero me da error y supongo que sea porque no soporta hide(). Existe alguna forma de no mostrar esto?\n\nSaludos.\n\nElías Torres.','',0,'GIA=','gmha83ol',1,0,'',720,0,0),(25172,5674,3,529,0,'200.159.199.21',1169141676,1,0,1,1,1,0,'','','Silvio, great.','',0,'GIA=','3cw9yc33',1,0,'',529,0,0),(25173,5683,2,774,0,'200.72.102.142',1169142135,1,0,1,1,1,1,'','','REDEFINE BROWSE oBrw ID 110 OF oDlg FONT oFont\n\nSolo debes omitir la clausula FIELD y por defecto es browse se genera con todos los campos de la DBFs.\n\npero si quieres muestra el codigo','',0,'GIA=','1s3xyir0',1,0,'',774,0,0),(25174,5686,7,456,0,'62.43.194.117',1169142824,1,0,1,1,1,1,'','','Hola Elias, \ncon los gets no lo he probado, pero con BTNBMP si que funciona el metodo Hide().','',0,'GIA=','18dmljyi',1,0,'',456,0,0),(25175,5686,7,2,0,'87.218.146.64',1169143116,1,0,1,1,1,1,'','','Elías,\n\nQue error te da ? Esos métodos están disponibles para todas las ventanas, diálogos y controles','',0,'GIA=','10r14l0w',1,0,'',2,0,0),(25176,5674,3,456,0,'62.43.194.117',1169143257,1,0,1,1,1,1,'','','Good idea Silvio. Will be a pleasure to contribute in the developing of a report designer open source.','',0,'GIA=','14283at8',1,0,'',456,0,0),(25177,5679,6,891,0,'148.243.37.162',1169143612,1,0,1,1,1,0,'','Re: no redondea correctamnete','[quote=&quot;Vladimir Zorrilla&quot;:3a0g16bn]Amigos\nuso xharbour 0.82\n\nNo redondea correctamente en esta version de xharbour\n\nlocal x:=5.8105\n\nmsgalert( round(x,3) )\n\n\nsale 5.810\n\n\ncuando deberia salir   5.811\n\nsi lo pongo directo si funciona bien\n\nmsgalert( round(5.8105))\n\n\nporque\n\nha alguine le paso esto cual es la solucion\npor  q pasar a xharbour 0.99 es algo traumatico\n\nGracias[/quote:3a0g16bn]\n\nAmigo estas usando 1 decimal de mas, es Round(x,2) , y asi te redondeara a 5.81\nAdriano','',0,'gA==','3a0g16bn',1,0,'',891,0,0),(25178,5686,7,720,0,'80.36.244.134',1169144214,1,0,1,1,1,0,'','','El error que me da es el siguiente:\n\nNo exported method\nHIDE\n   Args:\n     [   1] = U   \n\nstack calls:\nHIDE(0)\nINVENTARIO(631)\n(b)LISTADOS_INVENTARIOS(927)\nTBITMAP:LBUTTONDOWN(0)\nTWINDOW:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nTBITMAP:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nLISTADOS_INVENTARIOS(929)\n(b)MAIN(90)\nTBITMAP:LBUTTONDOWN(0)\nTWINDOW:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nTBITMAP:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nMAIN(102)\n\Z\n\n\nEl codigo en el que está es este:\n\nlocal oExisRemo,oExisLocal,oboton\n\nDEFINE dialog odlg resource \"inventariado\"\n\nIF control_existencias=\'2\'\nredefine get oExisRemo var inventario-&gt;exis_remo id 126 of odlg\nredefine get oExisLocal var inventario-&gt;exis_loc id 128 of odlg\nELSE\nIF control_existencias=\'1\'\nredefine get oExisLocal var inventario-&gt;exis_loc id 128 of odlg\nENDIF\nENDIF\n		\nIF control_existencias=\'1\' .or. control_existencias=\'2\'\nredefine button oboton id 4001 of odlg action calcula_existencias(articulo,oExisRemo,oExisLocal,quien)\nELSE\noboton:hide()\noExisRemo:hide()\noExisLocal:hide()\nendif\n\nACTIVATE dialog odlg\n\n\nSaludos.\n\nElías Torres','',0,'','1fyrx5bt',1,0,'',720,0,0),(25179,5568,3,303,0,'72.199.41.171',1169145283,1,0,1,1,1,0,'','','When I try to compile the testmenu.prg I get the errors shown below. I see the lightColor() function in gradient.c, but I do not see colorMenu() or colorSubMenu(). I am using the buildh.bat file that came with the same (modified for my paths), and FWH 2.7, Aug 2006 build with BCC and xHarbour.\n\nThe gradient.obj file is getting linked but the linker doesn\'t see lightColor() for some reason. I can\'t find the other two functions anywhere.\n\nAny ideas?\n\nJames\n\n\nCompiling...\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'TESTMENU.prg\' and generating preprocessed output to \'TESTMENU.ppo\'...\n\n 100\n 200\nLines 266, Functions/Procedures 4\nGenerating C source output to \'TESTMENU.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTESTMENU.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\n\nError TESTMENU.RC 5 15: Cannot open file: d:/fw25/bitmaps/16x16/new.bmp\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_LIGHTCOLOR\' referenced from C:\\FW\\MISC\\MENUSAT\\TESTMENU.OBJ\nError: Unresolved external \'_HB_FUN__COLORMENU\' referenced from C:\\FW\\MISC\\MENUSAT\\TESTMENU.OBJ\nError: Unresolved external \'_HB_FUN__COLORSUBMENU\' referenced from C:\\FW\\MISC\\MENUSAT\\TESTMENU.OBJ\n* There are errors','',0,'','12jkv4a1',1,0,'',303,0,0),(25180,5687,19,177,0,'82.130.229.76',1169147542,1,0,1,1,1,0,'','Virtualbox - GPL Virtualization product.','Hi,\n\nin <!-- m --><a class=\"postlink\" href=\"http://www.virtualbox.org/\">http://www.virtualbox.org/</a><!-- m --> you can download Virtualbox, a GPL Virtualization product.\n\nBest regards,\n\nFelix','',0,'','2l9qhe8x',1,0,'',177,0,0),(25181,4134,4,267,0,'200.208.238.2',1169153428,1,0,1,1,1,1,'','','Hi Antonio,\n\nI made the update for version 7.01, but I continue with problems to send archives saw ftp! Class FtpFile is not available?','',0,'','2td27ezi',1,0,'',267,0,0),(25182,5688,2,812,0,'201.236.181.229',1169153940,1,0,1,1,1,0,'','Amigos Ayuda URGENTE Clipper 5.3','Amogos:\n\nMe he metido en un problema, he cambiado de clipper 5.2e a clipper 5.3, debido a que necesitaba algunas cosas que 5.2e no me soporta.\n\nAl compilar con clipper 5.3, Fw 2.2 y Blinker 7.0\n\nEjecute modulos que estaban funcionando en clipper 5.2e y ahora ya no funcionan. El problema puntual es que USO INDICES CDX. y al hacer un seek codigo, me indica que la base no esta indexsada.\n\nNecesito en forma urgente por solucionar este problema.\n\nSaludos\n\nMiguel\n\nMuestro parte del codigo:\n\nEn el  LNK, me pide que declare las librerias  Dbfcdx.lib y _Dbfcdx.lib, antes en clipper 5.2e, solo indicaba Dbfcdx.lib\n\nANNOUNCE RDDSys\nINIT Procedure RDDInit()\n   REQUEST DBFCDX       // Causes DBFcdx RDD to be linked in\n   rddSetDefault( \"DBFCDX\" )      // Set up DBFcdx as default driver\n\n**\n   .. BASE INDEXSADA\n\n   sele 1\n   Use Departa Shared Alias oDbdep   New\n   Set inde to Departa\n   set rela to Cod_pro into Proyecto,Cod_pro+Cod_edi into Edificio,cod_ori into Oridep,Cod_tip into Tipodep\n\n** Donde busco y se produce el ERROR que declaro\n sele a\n DbSeek(Cod_pro1+Cod_edi1+Cod_dep1)\n\nEste es el registro del ERROR\n\nApplication\n===========\n   Path and name: C:\\UTIL\\VTADPTO\\INMOBILI.EXE\n   Size:   430,784 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Error ocurred at: 18/01/2007, 17:44:40\n   Error description: Error _DBFCDX/1201  Workarea not indexed\n\nStack Calls\n===========\n   Called from DBSEEK(0)\n   Called from EXISTE_DEP(301)\n   Called from (b)ACTUDEP1(207)\n   Called from TGET:LVALID(0)\n   Called from TGET:FWLOSTFOCU(0)\n   Called from TGET:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ACTUDEP1(237)\n   Called from (b)ACTUDEP(76)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TBTNBMP:HANDLEEVEN(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from ACTUDEP(117)\n   Called from (b)MENU(128)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from TUTOR(94)\n\nSystem\n======\n   CPU type: 486\n   Hardware memory: 66240 (64 megas)\n\n   Free System resources: % 58\n        GDI    resources: % 58\n        User   resources: % 63\n\n   Windows and MsDos versions:  3.95,  7.10\n   Windows total applications running:  24\n      1 C:\\WINDOWS\\EXPLORER.EXE\n      2 C:\\WINDOWS\\SYSTEM\\USER.EXE\n      3 C:\\WINDOWS\\SYSTEM\\SHLWAPI.DLL\n      4 C:\\WINDOWS\\SYSTEM\\COMCTL32.DLL\n      5 C:\\WINDOWS\\SYSTEM\\BROWSEUI.DLL\n      6 C:\\MULTIE~1\\MEWLIB32.DLL\n      7 C:\\ARCHIV~1\\MSNMES~1\\MSNMSGR.EXE\n      8 C:\\ARCHIV~1\\WINAMP\\WINAMPA.EXE\n      9 C:\\UTIL\\VTADPTO\\INMOBILI.DLL\n     10 C:\\UTIL\\VTADPTO\\INMOBILI.EXE\n     11 C:\\WINDOWS\\SYSTEM\\WINOA386.MOD\n     12 C:\\WINDOWS\\SYSTEM\\MSHTML.DLL\n     13 C:\\WINDOWS\\SYSTEM\\URLMON.DLL\n     14 C:\\ARCHIV~1\\SPYBOT~1\\SDHELPER.DLL\n     15 C:\\WINDOWS\\SYSTEM\\OLE32.DLL\n     16 C:\\WINDOWS\\SYSTEM\\DDEML.DLL\n     17 C:\\WORKSHOP\\WORKED3.DLL\n     18 C:\\WINDOWS\\SYSTEM\\DDHELP.EXE\n     19 C:\\WINDOWS\\SYSTEM\\IMON.DLL\n     20 C:\\ARCHIV~1\\WINZIP\\WZQKPICK.EXE\n     21 C:\\WINDOWS\\SYSTEM\\STIMON.EXE\n     22 C:\\WINDOWS\\SYSTEM\\WEBCHECK.DLL\n     23 C:\\ARCHIV~1\\ARCHIV~1\\REAL\\UPDATE~1\\REALSC~1.EXE\n     24 C:\\WINDOWS\\LOADQM.EXE\n     25 C:\\WINDOWS\\SYSTEM\\SYSTRAY.EXE\n     26 C:\\WINDOWS\\PTSNOOP.EXE\n     27 C:\\WINDOWS\\TASKMON.EXE\n     28 C:\\WINDOWS\\SYSTEM\\MMSYSTEM.DLL\n     29 C:\\WINDOWS\\SYSTEM\\MSTASK.EXE\n     30 C:\\WINDOWS\\SYSTEM\\IENPSTUB.DLL\n     31 C:\\WINDOWS\\SYSTEM\\SPOOL32.EXE\n     32 C:\\WINDOWS\\SYSTEM\\MSGSRV32.EXE\n     33 C:\\WINDOWS\\SYSTEM\\E_S5I4A1.EXE\n     34 C:\\WORKSHOP\\WORKSHOP.EXE\n     35 C:\\WINDOWS\\SYSTEM\\SHDOC401.DLL\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   DBSEEK\n     Param   1:    C    \"PR1  DEP1125 \"\n   EXISTE_DEP\n     Param   1:    C    \"PR1  \"\n     Param   2:    C    \"DEP1\"\n     Param   3:    C    \"125 \"\n     Local   1:    L    .T.\n     Local   2:    N    4\n   (b)ACTUDEP1\n     Param   1:    O    Class: TGET\n   TGET:LVALID\n     Local   1:    O    Class: TGET\n     Local   2:    L    .T.\n   TGET:FWLOSTFOCU\n     Local   1:    O    Class: TGET\n   TGET:HANDLEEVEN\n     Param   1:    N    2057\n     Param   2:    N    0\n     Param   3:    N    0\n   DIALOGBOX\n     Param   1:    N    23951\n     Param   2:    C    \"Departamento\"\n     Param   3:    N    2540\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2540\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   ACTUDEP1\n     Param   1:    L    .T.\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TGET\n     Local   4:    O    Class: TSAY\n     Local   5:    O    Class: TSAY\n     Local   6:    U    \n     Local   7:    O    Class: TGET\n     Local   8:    O    Class: TDIALOG\n     Local   9:    O    Class: TGET\n     Local  10:    O    Class: TSAY\n     Local  11:    O    Class: TGET\n     Local  12:    U    \n     Local  13:    O    Class: TGET\n     Local  14:    U    \n     Local  15:    U    \n     Local  16:    O    Class: TFONT\n     Local  17:    U    \n     Local  18:    U    \n     Local  19:    U    \n     Local  20:    U    \n     Local  21:    O    Class: TGET\n     Local  22:    U    \n     Local  23:    O    Class: TCOMBOBOX\n     Local  24:    U    \n   (b)ACTUDEP\n     Param   1:    O    Class: TBTNBMP\n   TBTNBMP:CLICK\n     Local   1:    O    Class: TBTNBMP\n   TBTNBMP:LBUTTONUP\n     Param   1:    N    19\n     Param   2:    N    38\n     Param   3:    O    Class: TBTNBMP\n     Local   1:    U    \n     Local   2:    L    .T.\n   TBTNBMP:HANDLEEVEN\n     Param   1:    N    514\n     Param   2:    N    0\n     Param   3:    N    1245222\n   DIALOGBOX\n     Param   1:    N    23951\n     Param   2:    C    \"LISTAMAE\"\n     Param   3:    N    2312\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2312\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   ACTUDEP\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    N    0\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    A    Len:    4\n     Local  14:    N    1\n     Local  15:    U    \n     Local  16:    O    Class: TDIALOG\n     Local  17:    O    Class: TCBROWSE\n     Local  18:    U    \n     Local  19:    N    1\n   (b)MENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20009\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TMDIFRAME:COMMAND\n     Param   1:    N    20009\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20009\n     Local   4:    N    0\n   TMDIFRAME:COMMAND\n     Param   1:    N    20009\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n   TMDIFRAME:HANDLEEVEN\n     Param   1:    N    273\n     Param   2:    N    20009\n     Param   3:    N    0\n   WINRUN\n     Param   1:    N    2312\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    { || ... } CodeBlock\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    { || ... } CodeBlock\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   TUTOR\n     Local   1:    O    Class: TBRUSH\n     Local   2:    O    Class: TICON\n     Local   3:    U    \n     Local   4:    O    Class: TCURSOR\n     Local   5:    O    Class: TBAR\n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    N    12854\n\nLinked RDDs\n===========\n   DBF\n   _DBFCDX\n   DBFCDX\n\nDataBases in use\n================\n\n  1: =&gt; ODBDEP                             RddName: _DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        4          4      .F.   .F.\n\n     Indexes in use                        TagName\n           Cod_pro+Cod_edi+Cod_dep            DEPARTA1\n           Cod_edi+Cod_dep                    DEPARTA2\n           Cod_dep                            DEPARTA3\n\n     Relations in use\n                 1: TO Cod_pro INTO PROYECTO\n                 2: TO Cod_pro+Cod_edi INTO EDIFICIO\n                 3: TO cod_ori INTO ORIDEP\n                 4: TO Cod_tip INTO TIPODEP\n\n 10:    PROYECTO                           RddName: _DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          2      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; Cod_pro                            PROYEC1\n           Nom_pro                            PROYEC2\n\n     Relations in use\n\n 11:    EDIFICIO                           RddName: _DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          2      .F.   .F.\n\n     Indexes in use                        TagName\n           cod_pro+Cod_edi                    EDIFI1\n           Nom_edi                            EDIFI2\n           Cod_edi                            EDIFI3\n\n     Relations in use\n                 1: TO Cod_pro INTO PROYECTO\n\n 12:    TIPODEP                            RddName: _DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        4          4      .F.   .F.\n\n     Indexes in use                        TagName\n           Cod_tip                            TIPODEP1\n\n     Relations in use\n\n 13:    ORIDEP                             RddName: _DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        2          3      .F.   .F.\n\n     Indexes in use                        TagName\n           Cod_ori                            ORIDEP1\n\n     Relations in use\n\nClasses in use:\n===============\n     1 TBRUSH\n     2 TWINDOW\n     3 TCONTROL\n     4 TICON\n     5 TCURSOR\n     6 TMDIFRAME\n     7 TMENU\n     8 TMENUITEM\n     9 TMDICLIENT\n    10 TDIALOG\n    11 TBAR\n    12 TRECT\n    13 TBTNBMP\n    14 TMSGBAR\n    15 TFONT\n    16 TMSGITEM\n    17 TTIMER\n    18 TSAY\n    19 TWBROWSE\n    20 TCBROWSE\n    21 TCCOLUMN\n    22 TBUTTON\n    23 TSCROLLBAR\n    24 TBITMAP\n    25 TGET\n    26 GET\n    27 TCOMBOBOX\n    28 ERROR\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       30624 bytes  (SYMP=696, Stack=8192, Heap=2056)\n      Clipper Stack:      34449 bytes\n      33 Static variables: 462 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     864134 bytes\n      Highest Value:     997254 bytes','',0,'','2u7f6mri',1,0,'',812,0,0),(25183,5674,3,51,0,'80.122.88.242',1169153949,1,0,1,1,1,0,'','','I think it’s a waste of time if there is such a good report generator as EasyReport.\nAlso source is included. You can do all what you want with ER.\n\nThe best what we could do is to use ER extensively so that the development of this great tool continues.\n\nPlease don’t split  up the FW community with reinventing the wheel.\n\nWhat’s missing is a IDE for FW. Maybe you can work on that.\n\nRegards\nOtto','',0,'','2s5odpg1',1,0,'',51,0,0),(25184,4134,4,2,0,'87.218.146.147',1169154229,1,0,1,1,1,1,'','','Vilian,\n\nWhat problems do you have ? Can you post a sample ? thanks','',0,'','2rccessk',1,0,'',2,0,0),(25185,5686,7,2,0,'87.218.146.147',1169154431,1,0,1,1,1,1,'','','Elías,\n\nNo le puedes enviar ese mensaje a un control hasta que el diálogo no se ha activado porque los controles aún no tienen un handle valido. Tienes que hacerlo así:\n\nIF control_existencias=\'1\' .or. control_existencias=\'2\' \nredefine button oboton id 4001 of odlg action calcula_existencias(articulo,oExisRemo,oExisLocal,quien) \nendif\n\nACTIVATE dialog odlg ;\nON INIT If( control_existencias==\'1\' .or. control_existencias==\'2\',( oboton:hide(), oExisRemo:hide(), oExisLocal:hide() ),)','',0,'','1l1oyhlo',1,0,'',2,0,0),(25186,3152,6,393,0,'200.47.185.10',1169155716,1,0,1,1,1,0,'','FILEXLS','Recien he bajado el FILEXLS ( opcion de Utilitarios), para enviar datos a Excel , he visto que hay PRG y Ch , lo que quisera es si me pueden explicar  que diferencia hay con el FILEXLS.LIB son iguales ó hay diferencias? Y si no fuera mucha molestia tendrian algun pequeño ejemplo de como usar esta clase.\nMuchas gracias, y a la espera de su respuesta.\nDaniel.','',0,'','216pygc2',1,0,'',393,0,0),(25187,5689,2,812,0,'201.236.181.229',1169155773,1,0,1,1,1,0,'','PARA LEANDRO (DE BOGOTA COLOMBIA)','Hola Leandro:\n\nMe he metido en un problema, he cambiado de clipper 5.2e a clipper 5.3, ya que para aplicar el codigo que tu me indicastes tuve que cambiar de version de clipper. \n\nAl compilar con clipper 5.3, Fw 2.2 y Blinker 7.0 \n\nEjecute modulos que estaban funcionando en clipper 5.2e y ahora ya no funcionan. El problema puntual es que USO INDICES CDX. y al hacer un seek codigo, me indica que la base no esta indexsada. \n\nNecesito en forma urgente por solucionar este problema. \n\nSaludos \n\nMiguel \n\nMuestro parte del codigo: \n\nEn el LNK, me pide que declare las librerias Dbfcdx.lib y _Dbfcdx.lib, antes en clipper 5.2e, solo indicaba Dbfcdx.lib \n\nANNOUNCE RDDSys \nINIT Procedure RDDInit() \nREQUEST DBFCDX // Causes DBFcdx RDD to be linked in \nrddSetDefault( \"DBFCDX\" ) // Set up DBFcdx as default driver \n\n** \n.. BASE INDEXSADA \n\nsele 1 \nUse Departa Shared Alias oDbdep New \nSet inde to Departa \nset rela to Cod_pro into Proyecto,Cod_pro+Cod_edi into Edificio,cod_ori into Oridep,Cod_tip into Tipodep \n\n** Donde busco y se produce el ERROR que declaro \nsele a \nDbSeek(Cod_pro1+Cod_edi1+Cod_dep1) \n\nEste es el registro del ERROR \n\nApplication \n=========== \nPath and name: C:\\UTIL\\VTADPTO\\INMOBILI.EXE \nSize: 430,784 bytes \nMax files handles permited: ( SetHandleCount() ) 255 \nError ocurred at: 18/01/2007, 17:44:40 \nError description: Error _DBFCDX/1201 Workarea not indexed \n\nStack Calls \n=========== \nCalled from DBSEEK(0) \nCalled from EXISTE_DEP(301) \nCalled from (b)ACTUDEP1(207) \nCalled from TGET:LVALID(0) \nCalled from TGET:FWLOSTFOCU(0) \nCalled from TGET:HANDLEEVEN(0) \nCalled from DIALOGBOX(0) \nCalled from TDIALOG:ACTIVATE(0) \nCalled from ACTUDEP1(237) \nCalled from (b)ACTUDEP(76) \nCalled from TBTNBMP:CLICK(0) \nCalled from TBTNBMP:LBUTTONUP(0) \nCalled from TBTNBMP:HANDLEEVEN(0) \nCalled from DIALOGBOX(0) \nCalled from TDIALOG:ACTIVATE(0) \nCalled from ACTUDEP(117) \nCalled from (b)MENU(128) \nCalled from TMENU:COMMAND(0) \nCalled from TMDIFRAME:COMMAND(0) \nCalled from TMDIFRAME:COMMAND(0) \nCalled from TMDIFRAME:HANDLEEVEN(0) \nCalled from WINRUN(0) \nCalled from TMDIFRAME:ACTIVATE(0) \nCalled from TUTOR(94) \n\nSystem \n====== \nCPU type: 486 \nHardware memory: 66240 (64 megas) \n\nFree System resources: % 58 \nGDI resources: % 58 \nUser resources: % 63 \n\nWindows and MsDos versions: 3.95, 7.10 \nWindows total applications running: 24 \n1 C:\\WINDOWS\\EXPLORER.EXE \n2 C:\\WINDOWS\\SYSTEM\\USER.EXE \n3 C:\\WINDOWS\\SYSTEM\\SHLWAPI.DLL \n4 C:\\WINDOWS\\SYSTEM\\COMCTL32.DLL \n5 C:\\WINDOWS\\SYSTEM\\BROWSEUI.DLL \n6 C:\\MULTIE~1\\MEWLIB32.DLL \n7 C:\\ARCHIV~1\\MSNMES~1\\MSNMSGR.EXE \n8 C:\\ARCHIV~1\\WINAMP\\WINAMPA.EXE \n9 C:\\UTIL\\VTADPTO\\INMOBILI.DLL \n10 C:\\UTIL\\VTADPTO\\INMOBILI.EXE \n11 C:\\WINDOWS\\SYSTEM\\WINOA386.MOD \n12 C:\\WINDOWS\\SYSTEM\\MSHTML.DLL \n13 C:\\WINDOWS\\SYSTEM\\URLMON.DLL \n14 C:\\ARCHIV~1\\SPYBOT~1\\SDHELPER.DLL \n15 C:\\WINDOWS\\SYSTEM\\OLE32.DLL \n16 C:\\WINDOWS\\SYSTEM\\DDEML.DLL \n17 C:\\WORKSHOP\\WORKED3.DLL \n18 C:\\WINDOWS\\SYSTEM\\DDHELP.EXE \n19 C:\\WINDOWS\\SYSTEM\\IMON.DLL \n20 C:\\ARCHIV~1\\WINZIP\\WZQKPICK.EXE \n21 C:\\WINDOWS\\SYSTEM\\STIMON.EXE \n22 C:\\WINDOWS\\SYSTEM\\WEBCHECK.DLL \n23 C:\\ARCHIV~1\\ARCHIV~1\\REAL\\UPDATE~1\\REALSC~1.EXE \n24 C:\\WINDOWS\\LOADQM.EXE \n25 C:\\WINDOWS\\SYSTEM\\SYSTRAY.EXE \n26 C:\\WINDOWS\\PTSNOOP.EXE \n27 C:\\WINDOWS\\TASKMON.EXE \n28 C:\\WINDOWS\\SYSTEM\\MMSYSTEM.DLL \n29 C:\\WINDOWS\\SYSTEM\\MSTASK.EXE \n30 C:\\WINDOWS\\SYSTEM\\IENPSTUB.DLL \n31 C:\\WINDOWS\\SYSTEM\\SPOOL32.EXE \n32 C:\\WINDOWS\\SYSTEM\\MSGSRV32.EXE \n33 C:\\WINDOWS\\SYSTEM\\E_S5I4A1.EXE \n34 C:\\WORKSHOP\\WORKSHOP.EXE \n35 C:\\WINDOWS\\SYSTEM\\SHDOC401.DLL \n\nVariables in use \n================ \nProcedure Type Value \n========================== \nDBSEEK \nParam 1: C \"PR1 DEP1125 \" \nEXISTE_DEP \nParam 1: C \"PR1 \" \nParam 2: C \"DEP1\" \nParam 3: C \"125 \" \nLocal 1: L .T. \nLocal 2: N 4 \n(b)ACTUDEP1 \nParam 1: O Class: TGET \nTGET:LVALID \nLocal 1: O Class: TGET \nLocal 2: L .T. \nTGET:FWLOSTFOCU \nLocal 1: O Class: TGET \nTGET:HANDLEEVEN \nParam 1: N 2057 \nParam 2: N 0 \nParam 3: N 0 \nDIALOGBOX \nParam 1: N 23951 \nParam 2: C \"Departamento\" \nParam 3: N 2540 \nParam 4: O Class: TDIALOG \nTDIALOG:ACTIVATE \nParam 1: U \nParam 2: U \nParam 3: U \nParam 4: L .T. \nParam 5: U \nParam 6: L .T. \nParam 7: U \nParam 8: U \nParam 9: U \nLocal 1: O Class: TDIALOG \nLocal 2: N 2540 \nLocal 3: U \nLocal 4: U \nLocal 5: U \nLocal 6: O Class: TDIALOG \nACTUDEP1 \nParam 1: L .T. \nLocal 1: U \nLocal 2: U \nLocal 3: O Class: TGET \nLocal 4: O Class: TSAY \nLocal 5: O Class: TSAY \nLocal 6: U \nLocal 7: O Class: TGET \nLocal 8: O Class: TDIALOG \nLocal 9: O Class: TGET \nLocal 10: O Class: TSAY \nLocal 11: O Class: TGET \nLocal 12: U \nLocal 13: O Class: TGET \nLocal 14: U \nLocal 15: U \nLocal 16: O Class: TFONT \nLocal 17: U \nLocal 18: U \nLocal 19: U \nLocal 20: U \nLocal 21: O Class: TGET \nLocal 22: U \nLocal 23: O Class: TCOMBOBOX \nLocal 24: U \n(b)ACTUDEP \nParam 1: O Class: TBTNBMP \nTBTNBMP:CLICK \nLocal 1: O Class: TBTNBMP \nTBTNBMP:LBUTTONUP \nParam 1: N 19 \nParam 2: N 38 \nParam 3: O Class: TBTNBMP \nLocal 1: U \nLocal 2: L .T. \nTBTNBMP:HANDLEEVEN \nParam 1: N 514 \nParam 2: N 0 \nParam 3: N 1245222 \nDIALOGBOX \nParam 1: N 23951 \nParam 2: C \"LISTAMAE\" \nParam 3: N 2312 \nParam 4: O Class: TDIALOG \nTDIALOG:ACTIVATE \nParam 1: U \nParam 2: U \nParam 3: U \nParam 4: L .T. \nParam 5: U \nParam 6: L .T. \nParam 7: U \nParam 8: U \nParam 9: U \nLocal 1: O Class: TDIALOG \nLocal 2: N 2312 \nLocal 3: U \nLocal 4: U \nLocal 5: U \nLocal 6: O Class: TDIALOG \nACTUDEP \nLocal 1: U \nLocal 2: U \nLocal 3: U \nLocal 4: N 0 \nLocal 5: U \nLocal 6: U \nLocal 7: U \nLocal 8: U \nLocal 9: U \nLocal 10: U \nLocal 11: U \nLocal 12: U \nLocal 13: A Len: 4 \nLocal 14: N 1 \nLocal 15: U \nLocal 16: O Class: TDIALOG \nLocal 17: O Class: TCBROWSE \nLocal 18: U \nLocal 19: N 1 \n(b)MENU \nParam 1: O Class: TMENUITEM \nTMENU:COMMAND \nParam 1: N 20009 \nLocal 1: O Class: TMENU \nLocal 2: O Class: TMENUITEM \nTMDIFRAME:COMMAND \nParam 1: N 20009 \nParam 2: N 0 \nLocal 1: O Class: TMDIFRAME \nLocal 2: N 0 \nLocal 3: N 20009 \nLocal 4: N 0 \nTMDIFRAME:COMMAND \nParam 1: N 20009 \nParam 2: N 0 \nLocal 1: O Class: TMDIFRAME \nLocal 2: U \nTMDIFRAME:HANDLEEVEN \nParam 1: N 273 \nParam 2: N 20009 \nParam 3: N 0 \nWINRUN \nParam 1: N 2312 \nTMDIFRAME:ACTIVATE \nParam 1: C \"MAXIMIZED\" \nParam 2: U \nParam 3: U \nParam 4: U \nParam 5: U \nParam 6: U \nParam 7: U \nParam 8: B { || ... } CodeBlock \nParam 9: U \nParam 10: U \nParam 11: U \nParam 12: U \nParam 13: U \nParam 14: U \nParam 15: U \nParam 16: U \nParam 17: B { || ... } CodeBlock \nParam 18: U \nParam 19: U \nLocal 1: O Class: TMDIFRAME \nLocal 2: U \nLocal 3: U \nTUTOR \nLocal 1: O Class: TBRUSH \nLocal 2: O Class: TICON \nLocal 3: U \nLocal 4: O Class: TCURSOR \nLocal 5: O Class: TBAR \nLocal 6: U \nLocal 7: U \nLocal 8: N 12854 \n\nLinked RDDs \n=========== \nDBF \n_DBFCDX \nDBFCDX \n\nDataBases in use \n================ \n\n1: =&gt; ODBDEP RddName: _DBFCDX \n============================== \nRecNo RecCount BOF EOF \n4 4 .F. .F. \n\nIndexes in use TagName \nCod_pro+Cod_edi+Cod_dep DEPARTA1 \nCod_edi+Cod_dep DEPARTA2 \nCod_dep DEPARTA3 \n\nRelations in use \n1: TO Cod_pro INTO PROYECTO \n2: TO Cod_pro+Cod_edi INTO EDIFICIO \n3: TO cod_ori INTO ORIDEP \n4: TO Cod_tip INTO TIPODEP \n\n10: PROYECTO RddName: _DBFCDX \n============================== \nRecNo RecCount BOF EOF \n1 2 .F. .F. \n\nIndexes in use TagName \n=&gt; Cod_pro PROYEC1 \nNom_pro PROYEC2 \n\nRelations in use \n\n11: EDIFICIO RddName: _DBFCDX \n============================== \nRecNo RecCount BOF EOF \n1 2 .F. .F. \n\nIndexes in use TagName \ncod_pro+Cod_edi EDIFI1 \nNom_edi EDIFI2 \nCod_edi EDIFI3 \n\nRelations in use \n1: TO Cod_pro INTO PROYECTO \n\n12: TIPODEP RddName: _DBFCDX \n============================== \nRecNo RecCount BOF EOF \n4 4 .F. .F. \n\nIndexes in use TagName \nCod_tip TIPODEP1 \n\nRelations in use \n\n13: ORIDEP RddName: _DBFCDX \n============================== \nRecNo RecCount BOF EOF \n2 3 .F. .F. \n\nIndexes in use TagName \nCod_ori ORIDEP1 \n\nRelations in use \n\nClasses in use: \n=============== \n1 TBRUSH \n2 TWINDOW \n3 TCONTROL \n4 TICON \n5 TCURSOR \n6 TMDIFRAME \n7 TMENU \n8 TMENUITEM \n9 TMDICLIENT \n10 TDIALOG \n11 TBAR \n12 TRECT \n13 TBTNBMP \n14 TMSGBAR \n15 TFONT \n16 TMSGITEM \n17 TTIMER \n18 TSAY \n19 TWBROWSE \n20 TCBROWSE \n21 TCCOLUMN \n22 TBUTTON \n23 TSCROLLBAR \n24 TBITMAP \n25 TGET \n26 GET \n27 TCOMBOBOX \n28 ERROR \n\nMemory Analysis \n=============== \nStatic memory: \ndata segment: 64k \nInitial size: 30624 bytes (SYMP=696, Stack=8192, Heap=2056) \nClipper Stack: 34449 bytes \n33 Static variables: 462 bytes \n\nDynamic memory consume: \nActual Value: 864134 bytes \nHighest Value: 997254 bytes','',0,'','3vynqh3q',1,0,'',812,0,0),(25188,5655,16,2,0,'87.218.146.102',1169157419,1,0,1,1,1,1,'','','Construcción 7.01 Enero 2007 \n=====================\n \n* Nuevo: En FWPPC, el ejemplo samples\\TestDlg2.prg muestra como usar un \"bitmap\" como \"brush\" en un diálogo. Note que el fichero FWCE.ch ha sido modificado para incluir el comando ausente DEFINE BRUSH. \n\n* Nuevo: En FWPPC, el ejemplo samples\\sign.prg muestra como capturar una firma de cliente. Gracias a Bill Simmeth! Modificado por FiveTech. \n\n* Corrección: En FWPPC, los GET no procesaban correctamente la tecla INS. Ahora está correcto. El cursor de escritura que parpadea en un get\ncambia su forma y mantiene su posición. \n\n* Corrección: En FWH, la función IsActiveX() estaba provocando errores GPF, debido a recientes cambios en [x]Harbour. Ahora funciona correctamente. \n\n* Corrección: En FWPPC, pequeña corrección en ErrorSys. Gracias a Pedro Gonzalez! \n\n* Corrección: En FWH, se han deshecho cambios recientes en el método SetText() de la clase TSay. También se ha cambiado oPage:SetText() por \n  oPage:VarPut() en source\\classes\\rpreview.prg, así que los números de página se muestran correctamente cuando no se usan temas XP.\n\n* Nuevo: Función RegEnumValue() para enumerar los valores de una clave de registro. Por favor revisa samples\\RegEnum.prg para un ejemplo de uso. \n\n* Corrección: La clase TOutLook ejecuta las acciones de los botones con una pulsación. Por favor revisa el ejemplo samples\\TestOutl.prg \n\n* Corrección: La clase TTabs estaba fallando cuando era creada desde código fuente y colocada en un diálogo. Ahora está bien. \n\n* Corrección: En la clase TCColumn, las clausulas \"AS ...\" han sido eliminadas. \n\n* Nuevo: En el fichero Fivewin.ch faltaba el comando \"REDEFINE IMAGE ...\". Usa la misma sintáxis que \"AS REDEFINE BITMAP ...\", pero soporta muchos más tipos de imágenes. \n\n* Mejora: La función RegSetValue( nKey, cSubKey, uValue ) ahora soporta valores númericos también, proporcionado por uValue. \n\n* Mejora: La clase TBtnBmp muestra múltiples líneas de título cuando se usa CRLF dentro de ella. . \n\n* Nuevo: Soporte a búsqueda incremental en la clase TComboBox. Ahora puede teclear varias teclas y el \"combo\" ejecutará una búsqueda   incremental entre sus componentes. Gracias a Ugo Garombo! \n\n* Mejora: Clase TPrinter, mejorada la elección de impresora cuando la claúsula TO es usada y hay varios nombres similares de impresoras. \nGracias a Davide!\n\n* Mejora: FWH para Microsoft VC, ha sido reconstruida usando VC++ 2005.\n\n* Mejora: FWH ha sido reconstruida usando Harbour 1.0 y la construcción más reciente de xHarbour.','',0,'','d9ctilgl',1,0,'',2,0,0),(25189,4134,4,267,0,'201.9.188.243',1169161224,1,0,1,1,1,1,'','','The problem is the lack of class TFtpFile, it still is not ready?','',0,'','3mfej7ij',1,0,'',267,0,0),(25190,5689,2,376,0,'190.42.38.58',1169161383,1,0,1,1,1,1,'','','Clipper 5.3 viene con las librerias DBFCDX.LIB, _CDFCDX.LIB para poder manejar hasta 4 billones de registros. Lo unico que tienes que hacer es incluir en tu lnk esta última libreria.','',0,'','1ds6l0ae',1,0,'',376,0,0),(25191,5688,2,376,0,'190.42.38.58',1169161514,1,0,1,1,1,1,'','','En el peor de los caso borra los cdx que se crearon anteriormente y vuelve a crearlos bajo Clipper 5.3 con el añadido de que debes incluir la libreria _DBFCDX.LIB  en lu link.','',0,'','2leqka34',1,0,'',376,0,0),(25193,5688,2,812,0,'201.214.35.67',1169163074,1,0,1,1,1,0,'','Re: Amigos Ayuda URGENTE Clipper 5.3','Armando:\n\nLa libreria _DBFCDX.LIB, se encuentra incluida en el archivo LNK, y genere los archivos de nuevo, pero el error persiste.\n\nMe nace la duda, si abri la Base con el indice que incluye los TAG, cada vez que deba accesar debo asignar el SetOrder del tag.?\n\nEn la version 5.2e mantenia el orden del indice, aun que fuera a otra Function(), al parecer 5.3 tengo que indicar cada vez el orden.\n\nEn espera de una respuesta,\n\nSaludos, Miguel','',0,'','2klcw1op',1,0,'',812,0,0),(25194,5674,3,49,0,'62.13.172.78',1169163266,1,0,1,1,1,1,'','','Otto,\n\nI found very difficult to use ER....\nI try to found something to simply....\nI made something but it not is terminated also\nI made also a Preview as EP ( 4/6/8/10/20 pages show and other things)\nif you want I can see to you a picture of my work....','',0,'','98rnlsah',1,0,'',49,0,0),(25195,5674,3,49,0,'62.13.172.78',1169164656,1,0,1,1,1,1,'','','My preview ( I not insert button bitmap because I want found something for xp style)\n\n[url=http&#58;//img260&#46;imageshack&#46;us/my&#46;php?image=mypreviewwo0&#46;jpg:1683szxg][img:1683szxg]http&#58;//img260&#46;imageshack&#46;us/img260/3102/mypreviewwo0&#46;th&#46;jpg[/img:1683szxg][/url:1683szxg]\n\n\nthis is my designer..on... work progress !!!\n\n\n[url=http&#58;//img407&#46;imageshack&#46;us/my&#46;php?image=mydesignerkd0&#46;jpg:1683szxg][img:1683szxg]http&#58;//img407&#46;imageshack&#46;us/img407/8868/mydesignerkd0&#46;th&#46;jpg[/img:1683szxg][/url:1683szxg]','',0,'GA==','1683szxg',1,0,'',49,0,0),(25196,4134,4,2,0,'87.218.146.102',1169167608,1,0,1,1,1,1,'','','Vilian,\n\nPlease download FWPPC again, we missed to include it. Thanks','',0,'GA==','2iwawybf',1,0,'',2,0,0),(25197,5688,2,138,0,'189.141.72.221',1169167843,1,0,1,1,1,1,'','','Debes linkear la _DBFCDX junto con la DBFCDX.\n\nAtencion.... las versiones 5.3, 5.3a tienen algunos problemas precisamente con los indices CDX, la version que debes utilizar es la 5.3b.','',0,'GA==','1splhujb',1,0,'',138,0,0),(25198,5690,6,397,0,'201.1.163.163',1169171516,1,0,1,0,1,1,'','How to put iexplorer, flash and other activex in resources?','Using workshop&lt;\n\nhow to put this features in my apps?\n\nthanks','',0,'GA==','135bg9te',1,0,'',397,0,0),(25199,5691,6,913,0,'189.137.9.11',1169174089,1,0,1,1,1,1,'','AUXILIO!!!!!!!!!!!!!!!','HOlA\n\nNesesito me ayuden ya estaba quedando bien los cambios de fivewin 16 a FWH pero ahora me sale un mensaje despues de compilar\n\n\" EL SISTEMA NO PUEDE EJECUTAR EL PROGRAMA ESPESIFICADO \" \n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  PORQUE PASA ESTO ?\n\n EL PROGRAMA ESTABA BIEN  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nPORFIS AYUDENME\n\nAIDA <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'GA==','z90ruqf2',1,0,'',913,0,0),(25200,5688,2,774,0,'200.72.70.192',1169174503,1,0,1,1,1,1,'','','Miguel como creaste los indices\n\nyo uso clipper 5.3 y no tengo problemas uso CDX tambien\n\n\nIf SELECT(\"Producto\")&gt;0\nSELECT Producto\nElse\nUSE Producto NEW ALIAS Producto SHARED\nEndif\n\n\nSelect Producto\nProducto-&gt;(OrdSetFocus(1))   Asi menciono q Dbf quiero usar y que TAG\n..&lt;aca&gt; la rutina q quieras','',0,'GA==','2vwv2at9',1,0,'',774,0,0),(25201,5692,6,774,0,'200.72.70.192',1169175441,1,0,1,1,1,1,'','DE FW A FWH CON VERCE','amigos tengo fwh26, xharbour,, y cuando compilo con verce me sale el siguiente error\n\nno es de comfiguracion sino es que tengo una aplicacion el fivewin de 16 bits y la quiero pasar a 32 bits con xhar...\neste es el error\n\nWarning W0001 Ambiguous referente \'OWNDCHILD\'\n\nA QUE SE REFIERE ESTE ERROR\n\nGRCIAS','',0,'GA==','a9anq688',1,0,'',774,0,0),(25202,5689,2,54,0,'189.132.113.93',1169176722,1,0,1,1,1,1,'','Re: PARA LEANDRO (DE BOGOTA COLOMBIA)','Miguel,\n\nNo soy leandro, pero no resistí el contestar...\n\n[code:2qebtr9y]Use Departa Shared Alias oDbdep New \nSet inde to Departa \nset rela to Cod_pro into Proyecto,Cod_pro+Cod_edi into Edificio,cod_ori into Oridep,Cod_tip into Tipodep \n\n** Donde busco y se produce el ERROR que declaro \noDbdep-&gt;&#40;DbSeek&#40;Cod_pro1+Cod_edi1+Cod_dep1&#41; &#41;\n[/code:2qebtr9y]\n\nSi te das cuenta, ya se eliminaron los SELECT, esto es porque cuando usas alias, solo haces referencia a estos y listo.\n\nEse es el error del dbseek, checalo y comentanos.\n\nSaludos','',0,'AIA=','2qebtr9y',1,0,'',54,0,0),(25203,5568,3,190,0,'202.65.134.26',1169177125,1,0,1,1,1,0,'','','Mr.James\n\n[quote:3rmjqbsb]\nbut I do not see colorMenu() or colorSubMenu()\n[/quote:3rmjqbsb]\n\nThese two functions are present in menus.c.  You have to compile\nmenus.c and add menus.obj to the link script.\n\n[quote:3rmjqbsb]\nThe gradient.obj file is getting linked but the linker doesn\'t see lightColor() for some reason.\n[/quote:3rmjqbsb]\n\nThere is no such file gradient.obj supplied in the zip.  It is GRADFILL.C\nin which LightColor() function is present.\n\nThese are the files which are to be used to test the TESTMENU.PRG\n\nMENUS.C\nGRADFILL.C\nMENU.PRG\nMENUITEM.PRG\nPDMENU.PRG\nMRU.PRG  (IF YOU ARE USING LATEST VERSION)\n\nAND ANYWAY TESTMENU.PRG\n\nRegards to you\n\n- Ramesh Babu P','',0,'gA==','3rmjqbsb',1,0,'',190,0,0),(25204,5568,3,303,0,'72.199.41.171',1169177791,1,0,1,1,1,0,'','','Ramesh,\n\n&gt;These two functions are present in menus.c. You have to compile \nmenus.c and add menus.obj to the link script. \n\nAh, yes, I see them now. I thought I had looked in all the files, but I guess I missed that one.\n\n&gt;There is no such file gradient.obj supplied in the zip. It is GRADFILL.C \nin which LightColor() function is present. \n\nSorry, I meant gradfill.obj. Both gradfill.obj and menus.obj are getting linked but I am getting the errors. See section of buildh.bat below.\n\nJames\n\necho menu.obj + &gt;&gt; b32.bc\necho Mru.obj + &gt;&gt; b32.bc\necho gradfill.obj + &gt;&gt; b32.bc\necho menus.obj + &gt;&gt; b32.bc\necho menuitem.obj + &gt;&gt; b32.bc\necho pdmenu.obj, + &gt;&gt; b32.bc','',0,'gA==','3tmugmuj',1,0,'',303,0,0),(25205,5681,6,785,0,'190.64.99.252',1169183407,1,0,1,1,1,0,'','','Gracias Leandro!!!\n\nSe ve muy bueno.\n\nGracias de nuevo.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','2j3or8vh',1,0,'',785,0,0),(25206,5681,6,785,0,'190.64.99.252',1169183495,1,0,1,1,1,0,'','','Gracias Marco.\n\nYa lo probe tambien.\n\nEl ejemplo de Leandro esta muy bueno.\n\nGracias y saludos\n\nRuben Fernandez.','',0,'gA==','3llhgozg',1,0,'',785,0,0),(25207,5568,3,190,0,'202.65.134.26',1169184092,1,0,1,1,1,0,'','','Mr.James\n\nThe section of your buildh.bat seems to be ok.  I hope you have added\nthe testmenu.obj also on this section of .objs.  The following is the copy\nof buildh.bat which is used to create testmenu.exe.  If you are using \nlatest version of this application, you have to add the mru.prg, .c and .obj\nalso in buildh.bat\n\n[code:3ehcarne]\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for xHarbour 2&#46;8 - September 2006       xHarbour development power ³Ü\nECHO ³ &#40;c&#41; FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO  ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO &#58;SINTAX\nif NOT EXIST %1&#46;prg GOTO &#58;NOEXIST\n\nECHO Compiling&#46;&#46;&#46;\n\nset hdir=c&#58;\\xharbour\nset bcdir=c&#58;\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i&#46;&#46;\\include;%hdir%\\include /w /p %2 %3 &gt; clip&#46;log\n%hdir%\\bin\\harbour menu /n /i&#46;&#46;\\include;%hdir%\\include /w /p %2 %3 &gt;&gt; clip&#46;log\n%hdir%\\bin\\harbour menuitem /n /i&#46;&#46;\\include;%hdir%\\include /w /p %2 %3 &gt;&gt; clip&#46;log\n%hdir%\\bin\\harbour pdmenu /n /i&#46;&#46;\\include;%hdir%\\include /w /p %2 %3 &gt;&gt; clip&#46;log\n%hdir%\\bin\\harbour mru /n /i&#46;&#46;\\include;%hdir%\\include /w /p %2 %3 &gt;&gt; clip&#46;log\n\n@type clip&#46;log\n\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1&#46;exe -I%hdir%\\include %1&#46;c &gt; b32&#46;bc\necho -O2 -e%1&#46;exe -I%hdir%\\include menu&#46;c &gt;&gt; b32&#46;bc\necho -O2 -e%1&#46;exe -I%hdir%\\include menuitem&#46;c &gt;&gt; b32&#46;bc\necho -O2 -e%1&#46;exe -I%hdir%\\include pdmenu&#46;c &gt;&gt; b32&#46;bc\necho -O2 -e%1&#46;exe -I%hdir%\\include mru&#46;c &gt;&gt; b32&#46;bc\nrem echo -O2 -e%1&#46;exe -I%hdir%\\include gradfill&#46;c &gt;&gt; b32&#46;bc\n\n%bcdir%\\bin\\bcc32 -M -c -v @b32&#46;bc\n&#58;ENDCOMPILE\n\nIF EXIST %1&#46;rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj + &gt;&gt; b32&#46;bc\necho menu&#46;obj + &gt;&gt; b32&#46;bc\necho gradfill&#46;obj + &gt;&gt; b32&#46;bc\necho menu&#46;obj + &gt;&gt; b32&#46;bc\necho menus&#46;obj + &gt;&gt; b32&#46;bc\necho menuitem&#46;obj + &gt;&gt; b32&#46;bc\necho pdmenu&#46;obj + &gt;&gt; b32&#46;bc\necho mru&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho c&#58;\\fwh\\lib\\Fivehx&#46;lib c&#58;\\fwh\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtgui&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\rasapi32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\iphlpapi&#46;lib, &gt;&gt; b32&#46;bc\n\nIF EXIST %1&#46;res echo %1&#46;res &gt;&gt; b32&#46;bc\n\nrem uncomment this line to use the debugger and comment the following one\nrem %bcdir%\\bin\\ilink32 -Gn -Tpe -s -v @b32&#46;bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32&#46;bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\nrem %1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1&#46;c\n\n&#58;LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n&#58;SINTAX\nECHO    SYNTAX&#58; Build &#91;Program&#93;     &#123;-- No especifiques la extensi¢n PRG\nECHO                                &#123;-- Don\'t specify &#46;PRG extension\nGOTO EXIT\n\n&#58;NOEXIST\nECHO The specified PRG %1 does not exist\n\n&#58;EXIT\n\n[/code:3ehcarne]\n\nRegards to you\n\n- Ramesh Babu P','',0,'AIA=','3ehcarne',1,0,'',190,0,0),(25208,5568,3,303,0,'72.199.41.171',1169193655,1,0,1,1,1,0,'','','Ramesh,\n\nI found the problem. I was calling the wrong batch file. Now it is compiling fine. Thanks for your help.\n\nJames','',0,'AIA=','2aiespry',1,0,'',303,0,0),(25209,5674,3,707,0,'222.124.20.54',1169194380,1,0,1,1,1,0,'','','Hi All !\n\nIs posible to make it together, then send source code to all fwh user ?\nor make competations between us ?\n\nWho\'s the best \n\nRegards\nAreang','',0,'AIA=','105nbwai',1,0,'',707,0,0),(25210,5527,6,28,0,'213.27.201.254',1169196003,1,0,1,1,1,0,'','','hDib := DibFromBitmap( hBmp )\n\nDibWrite( \"dibujo.bmp\", hDib )\n\nGlobalFree( hDib )','',0,'AIA=','12okb419',1,0,'',28,0,0),(25211,5691,6,2,0,'87.218.146.102',1169196379,1,0,1,1,1,1,'','','Aida,\n\nPor favor envíame el EXE y los PRGs en un fichero ZIP al email <!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e --> gracias','',0,'AIA=','3omjsdyu',1,0,'',2,0,0),(25212,5690,6,2,0,'87.218.146.102',1169196530,1,0,1,1,1,1,'','','Place a user defined control as \"TActiveX\"','',0,'AIA=','8witbci4',1,0,'',2,0,0),(25213,5674,3,51,0,'80.122.88.242',1169196705,1,0,1,1,1,0,'','','Hello areang,\nplease don’t waste your time. EasyReport is there. You can do all what you want with EasyReport.\nI think there is a free license for private use with each FW version. So you can test it.\nEasyReport is a very professional tool. Skilled end-users are able to change the reports with the vrd.exe by themselves.\nWhat with other designers is nearly impossible.\n\nIf you have the knowledge and extra time please work on an IDE for Fivewin. This is really missing.\n\n\nRegards\nOtto','',0,'AIA=','2gbomq1v',1,0,'',51,0,0),(25214,5568,3,51,0,'80.122.88.242',1169197096,1,0,1,1,1,0,'','','Add) Office Style 2003\n\nWhy Office style 2003?\n\nThis style is 4 years old and old fashioned.\n\nLet’s start with RibbonBar. That is Office style 2007!\n\nRegards\nOtto','',0,'AIA=','zr46tbd1',1,0,'',51,0,0),(25215,5693,19,217,0,'200.159.120.34',1169201372,1,0,1,1,1,0,'','Your name in Chinese, Japanese, Arabian, etc','Do you want know how to write your name in other idioms?\nTake a look in [url:3hjsw4ll]http&#58;//lexiquetos&#46;ohui&#46;net/[/url:3hjsw4ll]\n\nBest regards,\nMaurilio','',0,'EA==','3hjsw4ll',1,0,'',217,0,0),(25216,5674,3,707,0,'222.124.20.54',1169202373,1,0,1,1,1,0,'','','Mr. Otto \n\nHow to get this ?\n\nIt\'s free for me or please email me for information\nto <!-- e --><a href=\"mailto:due@reang.net\">due@reang.net</a><!-- e -->\n\nregards\nAreang','',0,'EA==','elo856ra',1,0,'',707,0,0),(25217,5674,3,49,0,'213.82.134.66',1169203562,1,0,1,1,1,1,'','','it\' free but.....\n\n  you cannot insert it on a your EXE  you must call vrd.exe to designer a page...\n\nInstead I working to create something ( source class) to insert on own program!!!\n\nalso Easy preview you must call epreview.exe  instead my class is source and you can compile with own program together ...\n\nand to create a page ( factura,  report ) you must have many  MB and it is very difficult \n\n\nI f you download from Infoser  a program demo (powergest) you can see on it a designer simply ..... I working to create it \n\nlook it pls','',0,'EA==','2f6m5mca',1,0,'',49,0,0),(25218,5694,6,49,0,'213.82.134.66',1169203701,1,0,1,1,1,1,'','help for a red','Dear friends, \n\nCan I see in a windows or dialog all pc there are in a lan ? How I can make it ? \n\nCan I link to a pc and read and write a dbf or an ini file ? How I can make it ? \n\n\ncan I have a small test ? \n\nI hope yoour help','',0,'EA==','z7fkpei6',1,0,'',49,0,0),(25219,5695,6,49,0,'213.82.134.66',1169203969,1,0,1,1,1,1,'','webcam','can I link with two or four webcam into a program with the thefull class\n\nI have a red i can link with IP address...\n\nI wanted create a dialog with four webcam control  : it is possible ?','',0,'EA==','1hew1v05',1,0,'',49,0,0),(25220,5674,3,217,0,'200.159.120.34',1169204369,1,0,1,1,1,0,'','','I agree with Silvio. We have good payed solutions but I think have space to \"payed solutions\" and \"free solutions\". Who want pay for products are free to choose. But who want free open source solutions are free to develop one...\n\nRegards,\nMaurilio','',0,'EA==','3q0y75ey',1,0,'',217,0,0),(25221,5684,3,217,0,'200.159.120.34',1169205174,1,0,1,1,1,0,'','Re: Xbrowse Lines','Silvio,\n\nI don\'t know if I understood what you want but if you want show vertical line of xBrowse since top to bottom of xBrowse area, do:\n\noBrow:lColDividerComplete := .T.\n\nIf isn\'t it, please provide an image showing what you want.\n\nRegards,\nMaurilio','',0,'EA==','dlxvauh0',1,0,'',217,0,0),(25222,5695,6,362,0,'200.168.52.156',1169205435,1,0,1,1,1,1,'','','Mira si és esto... No te comprendo perfecto.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=608\">http://www.fivewin.com.br/exibedicas.asp?id=608</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=543\">http://www.fivewin.com.br/exibedicas.asp?id=543</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=402\">http://www.fivewin.com.br/exibedicas.asp?id=402</a><!-- m -->\n\nRegards, saludos.','',0,'EA==','108bv0x4',1,0,'',362,0,0),(25223,5696,7,720,0,'80.36.244.134',1169206278,1,0,1,1,1,0,'','como cambiar caption de un boton...','Hola a todos...\n\nEstoy intentando cambiar desde codigo el caption de tres botones. Resulta que tengo en tres variables la descripcion que deben tener los botones y estoy intentando asignarselas al caption de cada uno de ellos de la siguiente forma:\n\nredefine button id 500 label om1 of odlg15\nredefine button id 501 label om2 of odlg15\nredefine button id 502 label om3 of odlg15\n\nLas variables om1,om2,om3 contiene la descripcion que debe tener cada boton... pero esto no me funciona me da el siguiente error:\n\n\nMessage not found\nTBUTTON:DEFCONTROL\n   Args:\n     [   1] = O   Object\n\nstack calls:\n__ERRRT_SBASE(0)\nTBUTTON:ERROR(179)\n(b)HBOBJECT(105)\nTBUTTON:MSGNOTFOUND(0)\nTBUTTON:DEFCONTROL(169)\nTGROUP:REDEFINE(0)\nCONSULTAS(2455)\n(b)LISTADO_CONSULTAS(2337)\nTBITMAP:LBUTTONDOWN(0)\nTWINDOW:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nTBITMAP:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nLISTADO_CONSULTAS(2340)\n(b)MAIN(96)\nTBITMAP:LBUTTONDOWN(0)\nTWINDOW:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nTBITMAP:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nMAIN(102)\n\Z\n\n\n¿Que es lo que está mal?\n\nSaludos y gracias-\n\nElías Torres','',0,'','2fal4twz',1,0,'',720,0,0),(25224,5674,3,51,0,'80.122.88.242',1169206285,1,0,1,1,1,0,'','','Hello Maurilio,\n\nsure you are free to do what you want. I only said you shouldn’t waste your time because EasyReport is there.\n\nAs I do have experience with some other Report generators but  I cane to say that EasyReport is  really a good product.\n\nWhat Silvio says that EasyReport is a own program is the main advantage.\n\nSo your program and your Reports are separated. You can change the Reports individually without changing your exe-files.\nAlso the print engine is a separated program. So your software is more stable.\n\nI don’t believe you are able to develop a ReportGenerator with Designer and documentation like EasyReport has as a FiveWin open source code project.\n\nWhat do you think you could do better or diverse from EasyReport?\n\nRegards\nOtto','',0,'','3543eitg',1,0,'',51,0,0),(25225,5675,20,154,0,'151.21.77.146',1169208163,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;EnricoMaria&quot;:3vgbnbss]Inviato[/quote:3vgbnbss]\nEnrico,\nho fatto un sacco di prove senza risultati!   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \na questo punto sei tu che hai delle impostazioni particolari?\nQuali?\nSe gentilmente qualcun\'altro potesse testare il programma e riportare se, senza usare assolutamente il mouse dopo aver lanciato il programma, e spostandosi con il &lt;TAB&gt; dopo le get si evidenzia la posizione attuale (focus) visualizzando la retinatura attorno al prompt del checkbox/radio button, al primo giro, nell\'esempio con i folder, a me, no si visualizzano MAI.\n\nGrazie per i vostri test.','',0,'gA==','3vgbnbss',1,0,'',154,0,0),(25226,5696,7,720,0,'80.36.244.134',1169209095,1,0,1,1,1,0,'','','Ya está solucionado... \n\nredefine button id 500 of odlg15 update PROMPT(om1)\nredefine button id 501 of odlg15 update PROMPT(om2)\nredefine button id 502 of odlg15 update PROMPT(om3)\n\n\nsaludos..\n\nElías Torres.','',0,'gA==','3jn109vo',1,0,'',720,0,0),(25227,5696,7,720,0,'80.36.244.134',1169209992,1,0,1,1,1,0,'','','Tengo otra duda.... Una vez que he conseguido que el caption de los botones tenga un texto que lo coge de unas variables,quiero que ese texto en cada boton salga por ejemplo en negrita y con algun tipo de color. Necesito esto porque tengo que hacer que el boton cambie el caption de color cuando lo pulses para dar la impresion de que ese boton está activo... pero no se como hacerlo.\n\nSi me podeis indicar....\n\n\nSaludos y gracias..\n\nElías Torres.','',0,'gA==','3m0ui5zl',1,0,'',720,0,0),(25228,5675,20,6,0,'87.21.239.13',1169210233,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;Ugo&quot;:3hc6j28i]Enrico,\nho fatto un sacco di prove senza risultati!   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \na questo punto sei tu che hai delle impostazioni particolari?\nQuali?[/quote:3hc6j28i]\n\nNon saprei proprio. Vediamo se qualcun\'altro fa la prova...\n\nEMG','',0,'gA==','3hc6j28i',1,0,'',6,0,0),(25229,5674,3,3,0,'81.249.126.117',1169211243,1,0,1,1,1,1,'','','Hello\n\nSorry to jump in,\n\nI also use Easy report and it is an excellent generator including it\'s source code. I handle lots of barcode printing also with it and it is easy to use.\n\nI agree with Otto, there are many other more important issues to develop for fivewin.\n\nexample  A real good browser ! Today we have fwh native browser, Hernan\'s twbrowse that is out of date (no more updates), Tsbrowse that is no more supported, txbrowse ... \n\nNone of them is really adapted to today\'s world. We need themed browses with multi select lines , very fancy ..etc\n\nMy 2 cents\n\nRichard','',0,'gA==','2cty6tua',1,0,'',3,0,0),(25230,4774,3,319,0,'201.1.175.68',1169211457,1,0,1,1,1,0,'','','Bom pessoal.... pegue o exemplo em meu site:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.bazevani.com.br/ronaldo/office.zip\">www.bazevani.com.br/ronaldo/office.zip</a><!-- w -->\n\ndentro dele você encontra 3 arquivos.\n\ntoffice.prg  --&gt; Interface openoffice (br)\ntword.prg  --&gt;&gt; Microsoft Word\nprg2714.prg -&gt; Este programa se comunica com as duas versoes word e office...','',0,'gA==','uchgnoz1',1,0,'',319,0,0),(25231,5696,7,2,0,'87.218.146.202',1169212471,1,0,1,1,1,1,'','','Elías,\n\nUsa los botones TBtnBmp que permiten mostrar una imagen. A los botones estandard no se les puede cambiar el color.\n\nRevisa samples\\tutor12.prg','',0,'gA==','1kyv6g8j',1,0,'',2,0,0),(25232,5689,2,812,0,'200.83.124.158',1169212922,1,0,1,1,1,0,'','Re: PARA LEANDRO (DE BOGOTA COLOMBIA)','William:\n\nTe agradezco enormemente tu ayuda, pero estaba tan complicado en tener una ayuda, que esta la dirigi a Leandro que siempre me brinda su ayuda, era solo por tiempo de respuesta, tengo al cliente ensima, hice un cambio que dejo de funcionar todo el sistema.\n\nTu respuesta, me ha ayudado a dar solucion y entender mi problema, desde ya muy agradecido por tu ayuda,\n\nSaludos,\n\nMiguel\n\n\n\n[quote=&quot;wmormar&quot;:2l9v6cba]Miguel,\n\nNo soy leandro, pero no resistí el contestar...\n\n[code:2l9v6cba]Use Departa Shared Alias oDbdep New \nSet inde to Departa \nset rela to Cod_pro into Proyecto,Cod_pro+Cod_edi into Edificio,cod_ori into Oridep,Cod_tip into Tipodep \n\n** Donde busco y se produce el ERROR que declaro \noDbdep-&gt;&#40;DbSeek&#40;Cod_pro1+Cod_edi1+Cod_dep1&#41; &#41;\n[/code:2l9v6cba]\n\nSi te das cuenta, ya se eliminaron los SELECT, esto es porque cuando usas alias, solo haces referencia a estos y listo.\n\nEse es el error del dbseek, checalo y comentanos.\n\nSaludos[/quote:2l9v6cba]','',0,'gIA=','2l9v6cba',1,0,'',812,0,0),(25233,5692,6,774,0,'200.72.102.142',1169213455,1,0,1,1,1,1,'','AUXILIOOOOOOOOOOOOOOOO','alguien me puede ayudar','',0,'gIA=','1xabajjv',1,0,'',774,0,0),(25234,5692,6,36,0,'200.113.56.235',1169213760,1,0,1,1,1,0,'','','Warning W0001 Ambiguous referente \'OWNDCHILD\'\n\nQue no esta declarada la variable\n\nSaludos\nPatricio','',0,'gIA=','3uufqz8f',1,0,'',36,0,0),(25235,3152,6,36,0,'200.113.56.235',1169214375,1,0,1,1,1,0,'','','Es lo mismo, en si\n\nya que las lib estan compuestas por varios objetos(.obj)\n\ny asi no tendrías que colocar todos los obj en tu proyecto, solo la lib\n\nespero que halla sido claro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos\nPatricio','',0,'gIA=','2im3wog9',1,0,'',36,0,0),(25236,3152,6,36,0,'200.113.56.235',1169215458,1,0,1,1,1,0,'','','Ahi tienes un ejemplo\n\n[code:3jcsdirw]\n// Testing FiveWin FileXLS class\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;FileXLS&#46;ch&quot;\n\n\nstatic oFileXLS\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n    local nFormat\n\n    DEFINE XLS FORMAT nFormat ;\n               PICTURE \'#,##0\' \n   \n    XLS oFileXLS FILE &quot;Prueba&#46;xls&quot; AUTOEXEC \n\n        XLS COL 2 WIDTH 25 OF oFileXLS \n        XLS COL 3 WIDTH 8 OF oFileXLS \n  \n        @ 2,2 XLS SAY &quot;Gastos generales&quot; OF oFileXLS\n        @ 2,3 XLS SAY 255300 FORMAT nFormat OF oFileXLS\n\n        @ 3,2 XLS SAY &quot;Beneficio industrial&quot; OF oFileXLS\n        @ 3,3 XLS SAY 185000 FORMAT nFormat OF oFileXLS\n\n        @ 4,2 XLS SAY &quot;TOTAL &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#58;&quot; OF oFileXLS\n        @ 4,3 XLS FORMULA _Cell&#40;2,3&#41; + _Cell&#40;3,3&#41; FORMAT nFormat BORDER OF oFileXLS\n\n        @ 4,3 XLS NOTE &quot;Esta celda es una fórmula&quot; +CRLF+ ;\n                       &quot;suma de las anteriores dos celdas&#46;&quot; OF oFileXLS \n\n   ENDXLS oFileXLS\n\nreturn nil\n\n[/code:3jcsdirw]\n\n\nSaludos\nPatricio','',0,'AIA=','3jcsdirw',1,0,'',36,0,0),(25237,5688,2,376,0,'200.107.129.146',1169216545,1,0,1,1,1,1,'','','Como anotan los amigos del foro, no deberías tener problemas por usar Clipper 5.3. Si el error persiste, verifica que la version sea 5.3b caso contrario necesitas esta version. Si no es eso vas a tener que remitir el codigo para ver que puede estar ocasionandote el error...','',0,'AIA=','1l5cg1gl',1,0,'',376,0,0),(25238,5692,6,376,0,'200.107.129.146',1169218007,1,0,1,1,1,1,'','','VERCE es bastante estricto en la sintaxis de tu programa... pero me parece haber visto que tiene varias opciones para adecuarlo a tus necesidades.\n\nParticularmente no lo utilizo porque tengo un bat que ejecuto desde mi procesador de texto (MED) ... aunque debo reconocer que VERCE es un buen \"maker\".','',0,'AIA=','2b9v9k6w',1,0,'',376,0,0),(25239,5697,3,51,0,'80.122.88.242',1169218793,1,0,1,1,1,0,'','NG Archive','Hello Boris,\n\nIs nearly over a year that I didn’t hear anything from you. Are you still maintaining the  NG Archive?\n\nRegards\nOtto','',0,'AIA=','3706kevd',1,0,'',51,0,0),(25240,5689,2,228,0,'201.245.222.86',1169218917,1,0,1,1,1,1,'','Amigo..','Amigo que pena no haberte podido responder antes.. pero he tenido problemas con mi maquina. Espero se haya solucionado el problema, como siempre ya sabes no dudes en preguntar.','',0,'AIA=','2gs6pvug',1,0,'',228,0,0),(25241,5698,2,774,0,'200.72.102.142',1169218982,1,0,1,1,1,1,'','AYUDA CON FOLDER','Tengo el siguiente problema :\n\ntengo un folder con dos solapas\n\ntengo una DBF con un campo logico q lo utilizo para diferenciar si es .T. es un pago anticipado y si es .F. es un Saldo a Favor,, se entiende verdad\ntengo esta Dbf indexada en dos TAG uno para cada situacion\n\nah.. dentro del folder hay solamente un BROWSE que deberia mostrar o los saldo a favores o los pagos anticipados de ls DBF\n\nmi problema es como le hago cuando pincho la solapa para decirle a la DBF que use el TAG que corresponde, no se si me explico..\n\nalguien sabe que se usa para q el folder ejecute una accion cuando se presiona la solapa..\n\nGRACIAS','',0,'AIA=','2cf083i8',1,0,'',774,0,0),(25242,5674,3,376,0,'200.107.129.146',1169219280,1,0,1,1,1,1,'','','Good Silvio!!!\n\nGo ahead with your project, we support to you','',0,'AIA=','366woj0y',1,0,'',376,0,0),(25243,5699,6,36,0,'200.113.56.235',1169219485,1,0,1,1,1,0,'','Warning W0027  Meaningless use of expression: \'\'&quot;','Como poder evitar este warning\n\n[code:14szt4nr]Warning W0027  Meaningless use of expression&#58; \'\'[/code:14szt4nr]\n\n\n[code:14szt4nr]\n\n ACTIVATE DIALOG oDlg ;\n		VALID &#40; &#40;o&#58;DeActivate&#41;, &#46;t&#46;&#41;\n[/code:14szt4nr]\n\n\nSaludos\nPatricio','',0,'AIA=','14szt4nr',1,0,'',36,0,0),(25244,5688,2,812,0,'200.83.124.158',1169219625,1,0,1,1,1,0,'','','Hola Amigo:\n\nTe cuento asi creo los indices:\n\nif !file(\'Departa.cdx\')\n  sele 1\n  use Departa Exclusi\n  inde on Cod_pro+Cod_edi+Cod_dep tag departa1 to Departa\n  inde on Cod_edi+Cod_dep         tag departa2 to Departa\n  inde on Cod_dep                 tag departa3 to Departa\n\n  use\nEndif\n\nAsi Abro la Base\n\nsele 1\nUse Departa Shared Alias oDbdep   New\nSet inde to Departa\n\nComo en clipper 5.2e, el indice se mantiene abierto aunque pase a otra function(), en clipper 5.3 me dice que la base no esta indexada, cuando trato de ir a buscar un registro como muestro el caso.\n\nAqui se Cae, me indica que no esta indexada.\n\n sele a\n DbSeek(Cod_pro1+Cod_edi1+Cod_dep1)\n\n1. Sacame de esta duda, cada vez que tenga que accesar una base, debo identificar en orde del indice?\n\nEn espera de una respuesta,\n\nSaludos,\n\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:136sj8uj]Miguel como creaste los indices\n\nyo uso clipper 5.3 y no tengo problemas uso CDX tambien\n\n\nIf SELECT(\"Producto\")&gt;0\nSELECT Producto\nElse\nUSE Producto NEW ALIAS Producto SHARED\nEndif\n\n\nSelect Producto\nProducto-&gt;(OrdSetFocus(1))   Asi menciono q Dbf quiero usar y que TAG\n..&lt;aca&gt; la rutina q quieras[/quote:136sj8uj]','',0,'gA==','136sj8uj',1,0,'',812,0,0),(25245,5674,3,439,0,'200.125.37.143',1169219727,1,0,1,1,1,1,'','','Good work Silvio!!!!\n\nGo ahead!!!\n\nAll Fivewin Community will be pleased!','',0,'gA==','2iz48obq',1,0,'',439,0,0),(25246,5698,2,228,0,'201.245.222.86',1169220189,1,0,1,1,1,1,'','Amigo..','Amigo solo hay que colocar la clausula ON CHANGE y asignarle la accion a ejecutar.\n\n[code:14nfyvwu]\n   REDEFINE FOLDER oFld1 ID 11 OF oDlg ;\n   PROMPT &quot;&amp;Clientes&quot;,&quot;Datos &amp;Pedidos&quot;,&quot;Premios &amp;Ventas&quot;,&quot;Premios &amp;Referidos&quot;,&quot;&amp;Generar Archivo&quot;;\n   DIALOGS &quot;client&quot;,&quot;Plano1&quot;,&quot;Plano2&quot;,&quot;Plano6&quot;,&quot;Plano4&quot; ON CHANGE &#40;raton&#58;=&#46;T&#46;,paso&#58;=oFld1&#58;nOption,paso&#40;&#41;&#41;\n[/code:14nfyvwu]\n\nPara saber cual solapa estas presionando\n\nvsolapa:=oFld1:nOption\n\nEspero te sirva.','',0,'AIA=','14nfyvwu',1,0,'',228,0,0),(25247,5689,2,812,0,'200.83.124.158',1169220838,1,0,1,1,1,0,'','Re: Amigo..','Gracias Leandro:\n\nDisculpa mi patudes de dirigir mi pregunta a ti, pero estoy tan urgio que recurri a ti, ya que tuve que cambiar la ver de 5.2e a 5.3 para aplicar el codigo que tu me enviastes para los colores del LISTBOX, te acuerdas.\n\nPor el momento me encuentro tratando de clarificar las dudas de como 5.3 maneja los indices CDX, con tag.\n\nDesde muchas gracias,\n\nSaludos \nMiguel\n \n\n[quote=&quot;leandro&quot;:2oo74r17]Amigo que pena no haberte podido responder antes.. pero he tenido problemas con mi maquina. Espero se haya solucionado el problema, como siempre ya sabes no dudes en preguntar.[/quote:2oo74r17]','',0,'gA==','2oo74r17',1,0,'',812,0,0),(25248,5674,3,190,0,'202.65.134.34',1169222514,1,0,1,1,1,0,'','','Hi Silvio\n\n[quote:2armhe6y]\n\"Every brain has its own uniqueness and nothing is impossible.\"\n[/quote:2armhe6y]\n\nGo ahed.. Don\'t look back. \nMy best wishes to you.\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','2armhe6y',1,0,'',190,0,0),(25249,5567,6,43,0,'189.128.5.162',1169222695,1,0,1,1,1,0,'','','Hola Arturo\n\nProbe la nueva version y me deja un espacio en blanco cuando se le egrega el simbolo \"&amp;\" al inicio del nombre del menu.\n\nHe aqui de lo que hablo\n[img]\n[url=http&#58;//imageshack&#46;us:379gre72][img:379gre72]http&#58;//img411&#46;imageshack&#46;us/img411/4937/error1fx6&#46;png[/img:379gre72][/url:379gre72]\n[/img]\n\nComo veras aqui no lo hace\n[img]\n[url=http&#58;//imageshack&#46;us:379gre72][img:379gre72]http&#58;//img411&#46;imageshack&#46;us/img411/1958/error2uu8&#46;png[/img:379gre72][/url:379gre72]\n[/img]\n\nAqui lo probe con el preview de fw y aqui agrega mas espacios en blanco\n[img]\n[url=http&#58;//imageshack&#46;us:379gre72][img:379gre72]http&#58;//img135&#46;imageshack&#46;us/img135/3120/error3jb2&#46;png[/img:379gre72][/url:379gre72]\n[/img]\n\nGracias.\n\nSaludos\nMarco A. Delgado.','',0,'GA==','379gre72',1,0,'',43,0,0),(25250,5527,6,63,0,'88.11.31.105',1169223129,1,0,1,1,1,0,'','','Paco:\nMuchas gracias.  Para imágenes pequeñas (30 K) tu programa funciona perfecto; para las grandes (lo he probado con un bmp de 9 M) da un error en DibWrite() pero supongo que eso es normal tratándose de archivos tan grandes.\n\nEntretanto, yo he estado experimentando en pintar directamente pixels sobre el archivo Bmp y por ahora funciona bastante bien.  Claro que es mucho más engorroso pero para salir del paso ya me sirve\n\nGracias otra vez y un saludo,\n\nRafael','',0,'GA==','3oz9ouz5',1,0,'',63,0,0),(25251,5692,6,53,0,'189.139.15.92',1169223549,1,0,1,1,1,1,'','','A&amp;C\n\nMe parece que no es problema de VERCE, el problema es que tanto Harbour como xHarbour son más estrictos en su sintáxis.\n\nUna opción es que actives el flag para que acepte todas las variables no decalradas, sin embargo una sana costumbre de programación es que todas las variables que uses sean declaradas.\n\nTe recomiendo que te acostumbres a declararlas.\n\nSaludos, Armando','',0,'GA==','zuhjzhd2',1,0,'',53,0,0),(25252,5696,7,720,0,'80.36.244.134',1169223815,1,0,1,1,1,0,'','','Antonio, lo he puesto como btnbmp, pero lo que pretendo no es ponerle una imagen sino cambiarle el caption cada vez que se pulse sobre el boton...\n\nCon obtnbmp:seltext(\'algo\') cambio el caption del boton..lo que no se como hacer es para que cada vez que pulse el boton me cambie el caption, por ejemplo:\n\nsi pulsas 1 vez: caption=\'hola\'\nsi pulsas la segunda vez: caption=\'adios\'\nsi se vuelves a pulsar: caption=\'hola\' y asi sucesivamente....\n...\n...\n\nComo puedo hacer eso?\n\n\nSaludos\n\nElías Torres.','',0,'GA==','pwfkqozn',1,0,'',720,0,0),(25253,5692,6,138,0,'189.141.72.221',1169224881,1,0,1,1,1,1,'','','No es problema del VERCE, es problema de los flags de compilacion.\n\nEl supuesto \"error\" es un Warning, es decir, una advertencia, pero seguramente le indicaste a verce que compilara con la opcion /W1, lo que indica que no te deje pasar estas advertencias, cambia la configuracion del VerCE.\n\nEl error mas comun que hemos encontrado en las migraciones a 32 bits es en los nombres de variables y funciones, minetras que en FiveWin te trunca los nombres a 12 caracteres, en (x)Harbour tienes hasta 256 para nombres.','',0,'GA==','20cjagvr',1,0,'',138,0,0),(25254,5568,3,190,0,'202.65.134.34',1169225787,1,0,1,1,1,0,'','','Mr.Otto\n\n[quote:3ux3vr1d]\nThis style is 4 years old and old fashioned.\nLet’s start with RibbonBar. That is Office style 2007! \n\n[/quote:3ux3vr1d]\n\nWe should not for get our origins.  We have come from Clipper times.\n\nAnd most our users still they are comfortably using menu driven \nclipper applications.  Even this new menu style which is not available \nso far in FWH,  is also an amizing thing for our users.  \n\nAs far as the RibbonBar and Office Style 2007 is concerned, it is good. But  I don\'t think that it is suitable for all applications.   \n\nHaving a good number of year of development experience, you will \nappreciate what your juniors who are trying to do some thing which may not be upto date out side of FWH.  But the things are still good and new in FWH environment.\n\nI like your opinion and advise on the missing features of FWH viz. an IDE.\n\nRegards to you,\n\n- Ramesh Babu P','',0,'gA==','3ux3vr1d',1,0,'',190,0,0),(25255,5698,2,774,0,'200.72.102.142',1169227598,1,0,1,1,1,1,'','','gracias amigo lo aplico y te cuento','',0,'gA==','1grxyplr',1,0,'',774,0,0),(25256,5688,2,774,0,'200.72.102.142',1169228668,1,0,1,1,1,1,'','','el orden del indice por defecto es el primero ,,,\npero si te mueves de TAG siempre debes mencionar que orden deceas usar\n\npor eso:    yo siempre  lo uso asi...\n\nSabes yo hago esto :\n\n1.- tengo una rutina independiente del programa que solo me crea los CDX\n\nAsi::\n\n#include \"Ord.ch\"\nCLS\nDbcloseall()\n//\nUSE CLIENTES NEW\nINDEX ON Clientes-&gt;Rut    TAG Rutcliente\nINDEX ON Clientes-&gt;Razon  TAG Razoncliente\nINDEX ON Clientes-&gt;Saldo  TAG Saldocliente\nINDEX ON Clientes-&gt;tcate  TAG Tcatecliente\nINDEX ON Clientes-&gt;codcli TAG Codcliente\nINDEX ON Clientes-&gt;codrut TAG Crutcliente\n\n//\nUSE PROVEEDO NEW\nINDEX ON Proveedo-&gt;Rut    TAG RutProveedo\nINDEX ON Proveedo-&gt;Razon  TAG RazonProveedo\nINDEX ON Proveedo-&gt;Saldo  TAG SaldoProveedo\nINDEX ON Proveedo-&gt;codpro TAG CodProveedo\nINDEX ON Proveedo-&gt;codrut TAG CrutProveedo\n\n//\n\n\ny luego cuando quiero usar la Dbf: asi mira::\n\n//----------------------------Apertura de DBF -------------------------\nIf SELECT(\"Clientes\")&gt;0             //aqui comprueba si esta abierta\nSELECT Clientes                           solo la seleccionas\nElse\nUSE Clientes NEW ALIAS Clientes SHARED   //aca si no esta abierta la \nEndif                                                            abres\nDATABASE oClientes //aca usas la clase Database q es muy buena \noClientes:SetOrder(1)        //aca lo dices q orden de TAG quieres\noClientes:bBof:={||NIL}\noClientes:bEof:={||NIL}\noClientes:Gotop()','',0,'gA==','117zth1b',1,0,'',774,0,0),(25257,5688,2,812,0,'201.236.178.97',1169229603,1,0,1,1,1,0,'','','Hola:\n\nTu dices que siempre mantiene el primer indice del tag, pero en mi caso, cuando abro la base la abro con su archivo indice, pero al hacer mencion a esta base y hacer un Seek(), me da error y me dice que la base no esta indexada. Esa es mi duda, por lo que veo es como que cierra el archivo indice CDX.\n\nEspero explicarme bien,\n\nSaludos,\n\nMiguel\n\n\n\n[quote=&quot;A&amp;C&quot;:xfzgplyj]el orden del indice por defecto es el primero ,,,\npero si te mueves de TAG siempre debes mencionar que orden deceas usar\n\npor eso:    yo siempre  lo uso asi...\n\nSabes yo hago esto :\n\n1.- tengo una rutina independiente del programa que solo me crea los CDX\n\nAsi::\n\n#include \"Ord.ch\"\nCLS\nDbcloseall()\n//\nUSE CLIENTES NEW\nINDEX ON Clientes-&gt;Rut    TAG Rutcliente\nINDEX ON Clientes-&gt;Razon  TAG Razoncliente\nINDEX ON Clientes-&gt;Saldo  TAG Saldocliente\nINDEX ON Clientes-&gt;tcate  TAG Tcatecliente\nINDEX ON Clientes-&gt;codcli TAG Codcliente\nINDEX ON Clientes-&gt;codrut TAG Crutcliente\n\n//\nUSE PROVEEDO NEW\nINDEX ON Proveedo-&gt;Rut    TAG RutProveedo\nINDEX ON Proveedo-&gt;Razon  TAG RazonProveedo\nINDEX ON Proveedo-&gt;Saldo  TAG SaldoProveedo\nINDEX ON Proveedo-&gt;codpro TAG CodProveedo\nINDEX ON Proveedo-&gt;codrut TAG CrutProveedo\n\n//\n\n\ny luego cuando quiero usar la Dbf: asi mira::\n\n//----------------------------Apertura de DBF -------------------------\nIf SELECT(\"Clientes\")&gt;0             //aqui comprueba si esta abierta\nSELECT Clientes                           solo la seleccionas\nElse\nUSE Clientes NEW ALIAS Clientes SHARED   //aca si no esta abierta la \nEndif                                                            abres\nDATABASE oClientes //aca usas la clase Database q es muy buena \noClientes:SetOrder(1)        //aca lo dices q orden de TAG quieres\noClientes:bBof:={||NIL}\noClientes:bEof:={||NIL}\noClientes:Gotop()[/quote:xfzgplyj]','',0,'gA==','xfzgplyj',1,0,'',812,0,0),(25258,5674,3,217,0,'200.159.120.34',1169236421,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:qvcgmwd1]\nI don’t believe you are able to develop a ReportGenerator with Designer and documentation like EasyReport has as a FiveWin open source code project.\n[/quote:qvcgmwd1]\n\nOtto,\n\nYour comments and opinions are welcome. But I believe you don\'t know about me enough to say what I\'m able or not able to develop.\nThen let\'s stop this type of comment for here. Because I think you are going to promote a little \"war\" between us. And I want not to enter in it.\nI accept and receive your opinion. You are free to say what you think. But respect mine and don\'t say what I\'m able to do or develop.\nIf you think EasyReport is good to you I think the same. I don\'t use it but I tested times ago. RD is a very good product and the best: is made with Fivewin.\nWhat you couldn\'t do is say what I must do or not do...\n\nBest regards,\nMaurilio','',0,'gA==','qvcgmwd1',1,0,'',217,0,0),(25259,5674,3,217,0,'200.159.120.34',1169236999,1,0,1,1,1,0,'','','[quote=&quot;Richard Chidiak&quot;:1tiywl1m]\nexample  A real good browser ! Today we have fwh native browser, Hernan\'s twbrowse that is out of date (no more updates), Tsbrowse that is no more supported, txbrowse ... \n\nNone of them is really adapted to today\'s world. We need themed browses with multi select lines , very fancy ..etc\n[/quote:1tiywl1m]\n\nRichard,\n\nFor other side... I use FWH\'s TxBrowse and it is good to me.\nAnd I can\'t say you are wrong. For God!\nI think we must organize into \"groups\" with \"special requeriments\" and join efforts to things we need. Like report generators, browsers and what come.\n\nBest regards,\nMaurilio','',0,'gA==','1tiywl1m',1,0,'',217,0,0),(25260,5568,3,217,0,'200.159.120.34',1169237631,1,0,1,1,1,0,'','','I agree with Ramesh.\nOtto, this is 2nd topic you let \"us down\" and try minimize our efforts to develop any new in FW.\nWhat you gain with this type of comment?\n\nRegards,\nMaurilio','',0,'gA==','1emuiggu',1,0,'',217,0,0),(25261,5674,3,51,0,'80.122.88.242',1169238853,1,0,1,1,1,0,'','','Hello Maurilio,\nPlease read the whole sentence. I don’t believe that you are able to develop a ReportGenerator as a FiveWin open source project.\n\nI am in this community since version 1.4 of FiveWin (I think it was 1994) and I know this group. I  think at the moment you do not  find \nFivewinners who contribute.\n\nBut the proof of the pudding is in the eating.\n\nMaurilio, if your photo is up to date you are one of the new generation Fivewinners and time is not so as valuable for you as for people\nwho are 20 years older and must earn their money.\n\n\nRegards\nOtto','',0,'gA==','2nrj56td',1,1169241434,'',51,1,0),(25262,5692,6,838,0,'80.59.225.15',1169239396,1,0,1,1,1,0,'','','Hola A&amp;C\n\nComo no firmas tus post, no puedo dirigirme a ti por tu nombre.\n\nTe he enviado al correo que has puesto en el foro, un resumen casero, tosco y visual de todos los pasos que yo he dado para empezar con ésto de xharbour, a través de VERCE, yo empezé con muchos problemas por desconocimiento total, y sobre todo que tengo que ver las cosas muy paso a paso, pero ahora te digo que me va todo a las mil maravillas, y que sólo me tengo que preocupar de la programación en sí, no de los errores de compilación.\nSi crees que puedo ayudarte con algún comentario más sobre éste comienzo en xharbour, no dudes en comunicármelo.\n\nSaludos\n\nJose Luis','',0,'gA==','2i80gfqx',1,0,'',838,0,0),(25263,5700,6,774,0,'200.72.102.142',1169239540,1,0,1,1,1,1,'','ALGUIEN ME LO ACLARE :','Estoy recien implementando de 16 a 32 bits,, de FIVEWIN a FIVEWIN para Harbour xHarbour\n\n\ntengo las siguiente dudas:  cual es la diferencia tecnica entre 16 bit y 32 bit\n\nharbour acepta los DATABASE que se usan en FIVEWIN\nlas clases de terceros TSBROWSE,TSBUTTON y SSAY y demas se pueden incorporar en 32 Bits o con las clases que trae FWH27 basta y sobra para hacer buenas presentaciones \n\nGRACIAS','',0,'gA==','1v7eoe3q',1,0,'',774,0,0),(25264,5674,3,439,0,'200.125.41.133',1169240739,1,0,1,1,1,1,'','','Please people, NO WAR please, It is good to share opinions with respect.\n\nI understand both points of view, but Im using with FWH at least 20 different classes like btnget, filexls, tword, texcels, and more and compiling my applications with VerCE, all personal projects of (in their time) \"new generation of fivewiners\" people with time to dedicate to it that teaches us a lot and contribute to make more friendly our work.\n\nSo \"New generation\" you are specially wellcome!!! I hope we will have new generatios allways of people with dreams and desires to make FWH better, if not, FWH will die in a few years.\n\nJust an example, I saw two weeks ago an statistic that shows that 90% of fivewiners use Verce and xmate for making their applications.\n\nIf you consider that both are personal, no fivetechsoft projects, you can see how important are this contributions.\n\nOn the other side I understand you Otto, I am in the same position, when you need to get your money, it is difficult to find time to come to this kind of projects, so let the \"new generation\" do it, its their time to dream.\n\nAnyway, this invitation is for Antonio:\n\nI would like to see Fivetechsoft participation in projects that could be good for FW - FWH, giving strong support to this young programmers, I believe they are the future of FWH, and that if you work all together then this products could be integrated to FW and then have a garantee a permanent support, when they are finished.\n\nIm see now that some of the classes I use don´t have support and gradually I´m replacing them with others native of FWH.','',0,'gA==','17nyqms7',1,0,'',439,0,0),(25265,5568,3,51,0,'80.122.88.242',1169240890,1,0,1,1,1,0,'','','Hello Maurilio,  \n \n&gt;you let \"us down\" . That\'s not my intention. \n\nI only asked: Why Office style 2003? \n\nIsn\'t it the truth that this style is 4 years old and with the upcoming of Office 2007 old fashioned?\n\nPlease keep in mind that Fivewin is my main development tool and  my whole company depends on this product. I get  nervous seeing that the combined efforts go in a wrong direction.\n\nWhat I need immediately  is  RibbonBar supported by Fivetech, a better browser supported by Fivetech and an IDE  and an outlook how and when Fivewin will support  DOT.NET framework. \n\n\nRegards \nOtto','',0,'gA==','288f05k2',1,0,'',51,0,0),(25266,5696,7,2,0,'87.218.146.202',1169241539,1,0,1,1,1,1,'','','Elías,\n\nTe refieres a que el texto conmute entre dos valores ? De ser así puedes usar una variable lógica:\n\nlVal := .f.\n\n... BUTTON ... ACTION ( lVal := ! lVal, If( lVal, oBtn:SetText( \"uno\" ), oBtn:SetText( \"dos\" ) )','',0,'gA==','32l5epn9',1,0,'',2,0,0),(25267,5700,6,439,0,'200.125.41.133',1169242074,1,0,1,1,1,1,'','','Amigo, \n\nFWH utiliza las mismas bases que Fivewin, indices NTX y CDX y anda algo por allí para los SIX, además te permite mediante un driver utilizar local server de Advantage, lo que te permitirá hacer programas cliente/servidor para hasta cinco equipos sin gastar un céntimo y por otros medios utilizar MySQL, SQLServer, PGSql y otras bases.\n\nLas clases que mencionas funcionan con harbour y xharbour, y también es cierto que en FWH puedes encontrar otras que mas o menos logran el mismo efecto.\n\nDe todos modos lo importante es que las que usas podrás usarlas con FWH simplemente recompilando su código fuente.\n\nTSButton en particular adolece de algún problema con bitmaps múltiples, pero a parte de eso anda excelente.\n\nLas clases que mencionas las encontrarás en el foro de Utilidades, ya listas para usar con [x]Harbour.\n\nUna vez que te pases a FWH, verás en realidad todas sus ventajas, en lo que refiere al aspecto de tu programa y en cuanto a su integración a windows.\n\nMucha suerte con tu adaptación, que te sea leve, estoy a tus órdenes.','',0,'','300mo3ng',1,0,'',439,0,0),(25268,5568,3,303,0,'72.199.41.171',1169242874,1,0,1,1,1,0,'','','Otto,\n\n&gt;&gt;you let \"us down\" . That\'s not my intention. \n\n&gt;I only asked: Why Office style 2003? \n\n&gt;Isn\'t it the truth that this style is 4 years old and with the upcoming of Office 2007 old fashioned?\n\nI think there is a need for both. One can add this new menu with minimal effort and have a new interface right away.\n\nThe ribbonbar is so new that I think we need some time to figure out how best to apply it to database applications--or if it is a good solution. As I think I have pointed out before, the ribbonbar is aimed mostly at formatting documents. I\'m not sure how well it will apply to database applications. I do think we need to look into this, because I do think the ribbon is a good marketing feature. \n\n&gt;Please keep in mind that Fivewin is my main development tool and my whole company depends on this product. I get nervous seeing that the combined efforts go in a wrong direction.\n\nI understand your point, but the Office 2003 menu seems to be pretty much developed so I don\'t think this is going to impact any other developments. \n\n&gt;What I need immediately is RibbonBar supported by Fivetech, a better browser supported by Fivetech and an IDE and an outlook how and when Fivewin will support DOT.NET framework.\n\nCanalFive\'s ribbonbar is already available.\n\nWhat browser features do you need that we don\'t have? The documentation for the browses is not all that good, so perhaps one of them can already do what you want.\n\nHave you looked at the UltraEdit IDE--a number of people are already using it including Antonio. Developing a new IDE would take thousands of man-hours.\n\nGoing to .NET is going to require a large effort develop the language end and also there is a very large learning curve for developers (at least for those not already using Visual Studio). I have spent several hundred hours on it and it would take hundreds more before I could develop the most simple application.\n\nThere already is an xBase .NET language if you are interested. It is called CULE and has been under development for a number of years.\n\nRegards,\nJames','',0,'','2614i4ki',1,0,'',303,0,0),(25269,5568,3,51,0,'80.122.88.242',1169244115,1,0,1,1,1,0,'','','Hello James,\nThanks for anwer.\nWhat I don\'t understand is how Xailer was able to develop an IDE and a language from zero in such a short time meanwhile Fivewin had up from version 2.2 a IDE prototype and now hasn\'t even plans for an IDE\nanymore.\n&gt;CanalFive\'s ribbonbar is already available.\nI am in contact with Paco. \n\nPlease see your private post. \nRegards\nOtto','',0,'','2xyrwgcc',1,0,'',51,0,0),(25270,5701,6,471,0,'190.40.60.10',1169244841,1,0,1,1,1,1,'','Donde puedo sonseguir  la lib de Nanforum toolkits (Nanfor.l','Donde puedo sonseguir  la lib de Nanforum toolkits (Nanfor.lib) \npara solucionar el probelma del round\nusando la función es FT_Round(). \n\nGracias','',0,'','3dz63146',1,0,'',471,0,0),(25272,5702,3,64,0,'201.72.124.2',1169245650,1,0,1,1,1,1,'','File not found: \'LIBCMT.LIB\' in FWH 7.01','Hi, \n\nwhen using FWH 7.01 , xHarbour.com latest release (Jan/07) I have this error:\n \nxLINK: fatal error: File not found: \'LIBCMT.LIB\'. \n\nI asked the support of the xHarbour and they asked to verify the support  to FWH.\n\nThanks.','',0,'','1q10ozh2',1,0,'',64,0,0),(25273,5685,3,335,0,'68.193.88.53',1169246212,1,0,1,1,1,0,'','','Here is how I do it.\n\n1. I have a password security sign-on for my app that identifies the user, and refers to a members.dbf that contains the ID number assigned to each allowed user. Upon sign-on, that user ID # is copied into a file-wide static memvar.\n\n2. Upon completion of launching the main app, the program accesses a USERS.DBF containing two fields and creates a temporary record there with the user\'s ID# and name.  This file has only three fields, one for the ID, one for the user\'s name, and another for a memo field used to store any message to be sent to the user.\n\n3. Each time the user activates a program module within the app, the program checks his/her temporary USERS.DBF record to see if there is a message waiting there.\n\n4. The system administrator has access to a function with a dialog box that displays a list of  all users currently online (by listing the people signed on from USERS.DBF).  A button on this dialog box enables recording a message in the memo field of the USER.DBF record of the person selected from the list. Another button enables sending one message to all users currently on line (like \"please sign-off ASAP\"). Any user activity, as mentioned in #3 above, causes the user to see the message sent.\n\n5. When a user signs off of the app, his/her temp record is blanked so it can be reused by the next person who signs on.\n\nI hope this concept helps.\n\n- Roger','',0,'','b2dgsxrh',1,0,'',335,0,0),(25274,5685,3,335,0,'68.193.88.53',1169246367,1,0,1,1,1,0,'','','In point #1 above, I forgot to mention that the program also picks up the user\'s name from the members.dbf file.','',0,'','1jvk71zl',1,0,'',335,0,0),(25275,5701,6,492,0,'189.147.32.43',1169252288,1,0,1,1,1,1,'','','Vladimir :\n\n/*\n * File......: Round.Prg\n * Author....: David Husnian\n * CIS ID....: ?\n *\n * This is an original work by David Husnian and is placed in the\n * public domain.\n *\n * Modification history:\n * ---------------------\n *\n *    Rev 1.2   15 Aug 1991 23:05:30   GLENN\n * Forest Belt proofread/edited/cleaned up doc\n *\n *    Rev 1.1   14 Jun 1991 19:52:48   GLENN\n * Minor edit to file header\n *\n *    Rev 1.0   01 Apr 1991 01:02:08   GLENN\n * Nanforum Toolkit\n *\n */\n\n\n/*  $DOC$\n *  $FUNCNAME$\n *     FT_ROUND()\n *  $CATEGORY$\n *     Math\n *  $ONELINER$\n *     Rounds a number to a specific place\n *  $SYNTAX$\n *     FT_ROUND( &lt;nNumber&gt; [, &lt;nRoundToAmount&gt;           ;\n *               [, &lt;cRoundType&gt;  [, &lt;cRoundDirection&gt;   ;\n *               [, &lt;nAcceptableError&gt; ] ] ] ] )            -&gt; nNumber\n *  $ARGUMENTS$\n *     &lt;nNumber&gt; is the number to round\n *\n *     &lt;nRoundToAmount&gt; is the fraction to round to or the number of places,\n *     default is 2.\n *\n *     &lt;cRoundType&gt; is the type of rounding desired\n *\n *        \"D\" for Decimal       (3 for thousandth, 1/1000)  (default)\n *        \"F\" for Fraction      (3 for thirds, 1/3)\n *        \"W\" for Whole numbers (3 for thousand, 1000)\n *\n *     &lt;cRoundDirection&gt; is the direction to round the number toward\n *\n *        \"U\" to round Up      1.31 -&gt;  1.4\n *                            -1.31 -&gt; -1.4\n *        \"D\" to round Down    1.36 -&gt;  1.3\n *                            -1.36 -&gt; -1.3\n *        \"N\" to round Normal  1.5  -&gt;  2\n *                            -1.5  -&gt; -2\n *                             1.49 -&gt;  1\n *                            -1.49 -&gt; -1\n *\n *     &lt;nAcceptableError&gt; is the amount that is considered acceptable\n *     to be within, i.e., if you\'re within this amount of the number\n *     you don\'t need to round\n *  $RETURNS$\n *     The number, rounded as specified.\n *  $DESCRIPTION$\n *     This function will allow you to round a number.  The following can\n *     be specified:\n *       a. Direction (up, down or normal - normal is 4/5 convention)\n *       b. Type (whole, decimal, fraction)\n *       c. Amount (100\'s, 5 decimals, 16th, etc.)\n *  $EXAMPLES$\n *     // round normal to 2 decimal places\n *     nDollars := FT_ROUND(nDollars)\n *\n *     // round normal to 6 decimal places\n *     nIntRate := FT_ROUND(nIntRate, 6)\n *\n *     // round to nearest thousands\n *     nPrice   := FT_ROUND(nPrice, 3, NEAREST_WHOLE_NUMBER)\n *\n *     // round Up to nearest third\n *     nAmount  := FT_ROUND(nAmount, 3, NEAREST_FRACTION, ROUND_UP)\n *\n *     // round down to 3 decimals Within .005\n *     nAvg     := FT_ROUND(nAvg, 3, , ROUND_DOWN, .005)\n *  $END$\n */\n\n\n#define IS_NEGATIVE(x)       ((x) &lt; 0)\n\n#define NEAREST_DECIMAL      \"D\"\n#define NEAREST_FRACTION     \"F\"\n#define NEAREST_WHOLE_NUMBER \"W\"\n#define ROUND_DOWN           \"D\"\n#define ROUND_NORMAL         \"N\"\n#define ROUND_UP             \"U\"\n\n#command    DEFAULT &lt;Param1&gt; TO &lt;Def1&gt; [, &lt;ParamN&gt; TO &lt;DefN&gt; ] ;\n            =&gt; ;\n            &lt;Param1&gt; := IF(&lt;Param1&gt; == NIL,&lt;Def1&gt;,&lt;Param1&gt;) ;\n         [; &lt;ParamN&gt; := IF(&lt;ParamN&gt; == NIL,&lt;DefN&gt;,&lt;ParamN&gt;)]\n\n#command    DEFAULT &lt;Param1&gt; TO &lt;Def1&gt; IF NOT &lt;Type1&gt; ;\n                 [, &lt;ParamN&gt; TO &lt;DefN&gt; IF NOT &lt;TypeN&gt; ] ;\n            =&gt; ;\n            &lt;Param1&gt; := IF(VALTYPE(&lt;Param1&gt;) == &lt;Type1&gt;,&lt;Param1&gt;,&lt;Def1&gt;) ;\n         [; &lt;ParamN&gt; := IF(VALTYPE(&lt;ParamN&gt;) == &lt;TypeN&gt;,&lt;ParamN&gt;,&lt;DefN&gt;)]\n\n\n\nFUNCTION FT_ROUND(nNumber, nRoundToAmount, cRoundType, cRoundDirection, ;\n                  nAcceptableError)\n\n   LOCAL nResult := ABS(nNumber)        // The Result of the Rounding\n\n   DEFAULT nRoundToAmount   TO 2, ;\n           cRoundType       TO NEAREST_DECIMAL, ;\n           cRoundDirection  TO ROUND_NORMAL, ;\n           nAcceptableError TO 1 / (nRoundToAmount ** 2)\n\n                                        // Are We Rounding to the Nearest Whole\n                                        // Number or to Zero Decimal Places??\n   IF (LEFT(cRoundType,1) != NEAREST_WHOLE_NUMBER .AND. ;\n       (nRoundToAmount := INT(nRoundToAmount)) != 0)\n\n                                        // No, Are We Rounding to the Nearest\n                                        // Decimal Place??\n      IF (LEFT(cRoundType,1) == NEAREST_DECIMAL)\n\n                                        // Yes, Convert to Nearest Fraction\n         nRoundToAmount := 10 ** nRoundToAmount\n\n      ENDIF                             // LEFT(cRoundType,1) == NEAREST_DECIMAL\n\n                                        // Are We Already Within the Acceptable\n                                        // Error Factor??\n      IF (ABS(INT(nResult * nRoundToAmount) - (nResult * nRoundToAmount)) &gt; ;\n          nAcceptableError)\n                                        // No, Are We Rounding Down??\n         nResult -= IIF(LEFT(cRoundDirection,1) == ROUND_DOWN, ;\n                                      ; // Yes, Make Downward Adjustment\n                        1 / nRoundToAmount / 2, ;\n                                      ; // Are We Rounding Up??\n                        IIF(LEFT(cRoundDirection,1) == ROUND_UP , ;\n                                      ; // Yes, Make Upward Adjustment\n                            -1 / (nRoundToAmount) / 2, ;\n                                      ; // No, Rounding Normal, No Adjustment\n                            0))\n                                        //Do the Actual Rounding\n         nResult := INT((nRoundToAmount * nResult) + .5 + nAcceptableError) / ;\n                    nRoundToAmount\n\n      ENDIF                             // ABS(INT(nResult * nRoundToAmount) -\n                                        //     (mResult * nRoundAmount)) &gt;\n                                        // nAcceptableError\n\n   ELSE                                 // Yes, Round to Nearest Whole Number\n                                        // or to Zero Places\n\n      nRoundToAmount := MAX(nRoundToAmount, 1)\n\n      DO CASE                           // Do \"Whole\" Rounding\n\n         CASE LEFT(cRoundDirection,1) == ROUND_UP\n\n            nResult := (INT(nResult / nRoundToAmount) * nRoundToAmount) + ;\n                       nRoundToAmount\n\n         CASE LEFT(cRoundDirection,1) = ROUND_DOWN\n\n            nResult := INT(nResult / nRoundToAmount) * nRoundToAmount\n\n         OTHERWISE                      // Round Normally\n\n            nResult := INT((nResult + nRoundToAmount / 2) / nRoundToAmount) * ;\n                       nRoundToAmount\n\n      ENDCASE\n\n   ENDIF                                // LEFT(cRoundType,1)!=NEAREST_WHOLE or\n                                        // nRoundToAmount == 0\n   IF IS_NEGATIVE(nNumber)              // Was the Number Negative??\n      nResult := -nResult               // Yes, Make the Result Negative Also\n   ENDIF                                // IS_NEGATIVE(nNumber)\n\n   RETURN (nResult)                     // FT_Round\n\n\n\nSaludos','',0,'','751mi1n0',1,0,'',492,0,0),(25276,5703,6,492,0,'189.147.32.43',1169252940,1,0,1,1,1,1,'','Seleccion del primer elemento de un DbCombo..','Hola a todos\n\nCuando manejo un combobox y quiero inicializar la variable para que salga con el valor del 1er elemento hago algo como esto :\n\ncNumPart := aNumsParts[1]\n\nREDEFINE COMBOBOX cNumPart ID 105 OF bla, bla, bla\n\nCual seria el equivalente para realizar la misma operacion usando un DbCombo ???\n\nYa le estuve haciendo malabares y no he podido, alguna sugerencia ??\n\nGracias Anticipadas y Saludos','',0,'','18hd31n0',1,0,'',492,0,0),(25277,5674,3,34,0,'68.4.154.81',1169254665,1,0,1,1,1,1,'','Easy Report','Otto,\n\nI\'m not intending to be negative, but I was surprised to see that Easy Report is still around.  It didn\'t seem that long ago that I saw posts on a couple of boards looking for the developer, but he didn\'t respond over a very long period of time.\n\nAgain, I\'m not trying to be negative here ... but I was curious if that is still an active product with full support.\n\nTim <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','rkueazot',1,0,'',34,0,0),(25278,5642,3,34,0,'68.4.154.81',1169254962,1,0,1,1,1,1,'','Products','I\'ve tried to see what products CanalFive now offers.  Many years ago I bought several for use with Clipper but I thought they stopped selling with the rise of the windows environment.\n\nWhen I first saw the RibbonBar info I tried to find a website that would display the products, but only found a banner.\n\nIs there a website where I can now see what is available ?  Is it in English ?\n\nThanks.','',0,'','or5yiovu',1,0,'',34,0,0),(25279,5688,2,138,0,'189.141.72.221',1169257507,1,0,1,1,1,1,'','','Pues va a ser que no....\n\nCuando tu abres un DBF indexado con CDX, el indice se abre automaticamente siemrpe y cuando tengo el mismo nombre que el DBF.\n\nHasta aqui todo bien....\n\nPero suscede que cuando el indice se abre NO SE ABRE EN EL PRIMER TAG, sino en el ORDEN \"0\", es decir, el orden natural, como si no estuviera indexada.\n\nLuego entonces tienes que hacer un ORDSETFOCUS(&lt;tag&gt;) antes de hacer un SEEK, si no te va marcar que la base de datos no esta indexada, lo cual es cierto, porque esta apuntado al orden natural.','',0,'','2t63ppp7',1,0,'',138,0,0),(25280,5688,2,812,0,'201.214.35.67',1169259385,1,0,1,1,1,0,'','','Rene:\n\nMe queda super claro, muchas gracias por tu ayuda.\n\nSaludos,\n\nMiguel Rivera\n\n\n[quote=&quot;RF&quot;:6azn5peq]Pues va a ser que no....\n\nCuando tu abres un DBF indexado con CDX, el indice se abre automaticamente siemrpe y cuando tengo el mismo nombre que el DBF.\n\nHasta aqui todo bien....\n\nPero suscede que cuando el indice se abre NO SE ABRE EN EL PRIMER TAG, sino en el ORDEN \"0\", es decir, el orden natural, como si no estuviera indexada.\n\nLuego entonces tienes que hacer un ORDSETFOCUS(&lt;tag&gt;) antes de hacer un SEEK, si no te va marcar que la base de datos no esta indexada, lo cual es cierto, porque esta apuntado al orden natural.[/quote:6azn5peq]','',0,'gA==','6azn5peq',1,0,'',812,0,0),(25281,5675,20,49,0,'62.13.172.78',1169260465,1,0,1,1,1,1,'','','in windows 200 sp4 tutto ok non ho visto nessuna retinatura\nin windows Xp non vedo retinatura ma vedo il group box che non ha fine e il contorno del folder sembrerebbe marcato di nero ...mhmm strano !!!\n[url=http&#58;//img255&#46;imageshretinaturaack&#46;us/my&#46;php?image=ugo2tx5&#46;jpg:159sm44u][img:159sm44u]http&#58;//img255&#46;imageshack&#46;us/img255/6047/ugo2tx5&#46;th&#46;jpg[/img:159sm44u][/url:159sm44u]','',0,'GA==','159sm44u',1,0,'',49,0,0),(25282,5685,3,49,0,'62.13.172.78',1169260718,1,0,1,1,1,1,'','','thanks roger but I trying to found a simply  sample to working ...','',0,'GA==','39bywb2g',1,0,'',49,0,0),(25283,5695,6,49,0,'62.13.172.78',1169260906,1,0,1,1,1,1,'','','thank But I want insert 4 webcam into a window ...','',0,'GA==','12ld8tf5',1,0,'',49,0,0),(25284,5674,3,299,0,'24.233.172.101',1169267512,1,0,1,0,1,0,'','','Tim;\n\nNow that you mention it;  I own the comercial version of easy report.  Experienced a few problems.  Was always hard, very had to get support.  On one ocassion I could not keep waiting to get something working.  So I went back to treport.  I think you make a very good a point.\n\nI was also a user of gxreports from Rene Pilon.  Excellent idea but was never stable and finnally abandoned by Rene.\n\nIMHO; a full open-source visual report designer, or something similar to the GxReports idea, would be ideal for the fw community.  No doubt.  But this is a project that needs to be adopted by Antonio and made fully open source.\n\nReinaldo.','',0,'GA==','1t0i07c5',1,0,'',299,0,0),(25285,5691,6,913,0,'189.137.9.41',1169268565,1,0,1,1,1,1,'','HOLA','Que crees <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  borre el rc y el dll y use uno de respaldo y \nya funciono todo otra vez bien creo que el dll le paso algo <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  cuando genere el rc lo bueno es que tenia un respaldo y solo me falto un par de cuadritos que faltaban en el respaldo y zaz todo otra vez funcionando <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nde todas maneras gracias pondre mas atencion para no darme esos sustitos <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nGracias Gracias\n\nAida','',0,'GA==','xju8tfx3',1,0,'',913,0,0),(25286,5704,6,913,0,'189.137.9.41',1169269971,1,0,1,1,1,1,'','Error: Unresolved external \'_HB_FUN_SNDPLAYSOUN\' referenced','al poner Sndplaysoun(\"beep2.wav\") me salio este error Error: Unresolved external \'_HB_FUN_SNDPLAYSOUN\' \n\nPorque ?? ya no es valido en fivewin si funciona\n\nSaluditos\n\nAida','',0,'GA==','1ray1wxg',1,0,'',913,0,0),(25287,5568,3,2,0,'87.218.146.202',1169270641,1,0,1,1,1,1,'','','Otto,\n\nHow do you imagine a FW IDE ? What should it change from what you have now ?\n\nYou are already using a source code editor (the one of your choice) and a resources editor. How a FW IDE will improve that ? How will it help you to improve your development work ?\n\nAs James has said, I personally use UEStudio as it is very usefull','',0,'GA==','2ptjgi2j',1,0,'',2,0,0),(25288,5702,3,2,0,'87.218.146.202',1169270931,1,0,1,1,1,1,'','','Syda,\n\nPlease download FWH again, there is a new build that fixes it','',0,'GA==','3ko3oavh',1,0,'',2,0,0),(25289,5697,3,2,0,'87.218.146.202',1169271123,1,0,1,1,1,1,'','','Otto,\n\nThese forums are running since Oct 06 2005, and you can use the Search option to locate any msg since that date','',0,'GA==','13gr4v6n',1,0,'',2,0,0),(25290,5674,3,2,0,'87.218.146.202',1169272437,1,0,1,1,1,1,'','','José,\n\nFiveWin was originally developed in 1993. And it remains very well alive for 16 years now <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAlong this time many products have appeared and dissapeared (Visual Objects, Visual dBase, etc.) and FiveWin remains alive and has a growing users base! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nFiveTech always promoted new users to develop addons, utilities, etc for FiveWin. We are open to it. In fact FiveWin is a tool with lots of utilities and addons available for it.\n\nIn these recent past years, our strongest commitment was to help users migrate from 16 bits to 32 bits. We can say today that it has been a great success. Most of you are using FWH and Harbour/xHarbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> We started the Harbour project as we believed that Harbour was the most important development to be done.\n\nThese days the FiveWin users are highly experienced Windows programmers able to create whatever applications they can think about. We have PC, Pocket PC and Linux FiveWin versions. FiveWin users can develop many different applications to satisfy many different requirements and clients.\n\nWe all have grown. FiveWin users are excellent Windows programmers now, many of you have created your own large companies using FiveWin. The FiveWin community has helped many of us\n\nWhat I say it may be obvious, but sometimes we forget it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','2drlb3jf',1,0,'',2,0,0),(25291,5704,6,2,0,'87.218.146.202',1169272772,1,0,1,1,1,1,'','','Aida,\n\nTe falta una d al final:\n\nSndplaysound( ... )','',0,'GA==','14a35bna',1,0,'',2,0,0),(25292,5699,6,2,0,'87.218.146.202',1169273792,1,0,1,1,1,1,'','','Patricio,\n\nPrueba así:\n[code:1fb6v1qw]\nACTIVATE DIALOG oDlg ; \n      VALID &#40; o&#58;DeActivate&#40;&#41;, &#46;t&#46;&#41;\n[/code:1fb6v1qw]','',0,'AIA=','1fb6v1qw',1,0,'',2,0,0),(25293,5695,6,397,0,'201.1.161.193',1169278344,1,0,1,0,1,1,'','','Silvio\n\nYou need create a small webcam capture service with webcam32.prg and install in other machines.\n\nThe machines will be capture images and save in a especific directory, ex: c:\\webcams\\01, c:\\webcams\\02, c:\\webcams\\03.\n\nIn the app with four bitmaps, you insert a refresh and load bitmaps in c:\\webcams\\01, c:\\webcams\\02, c:\\webcams\\03.\n\nOr if your webcam works with a multicapture board, you can setup the outpu to pictures names numbered webcam1.jpg, webcam2.jpg, webcam3.jpg and show it in the dialog with bitmap controls.','',0,'AIA=','3129v8ai',1,0,'',397,0,0),(25294,5675,20,154,0,'151.81.0.2',1169284404,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;EnricoMaria&quot;:2k3snnwj]Non saprei proprio. Vediamo se qualcun\'altro fa la prova...[/quote:2k3snnwj]\nEnrico,\nho provato il tuo exe su parecchi altri computer diversi e mi sembra veramente strano che sul tuo funzioni bene! <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nQuindi se produci un programma con queste caratteristiche credo di poter affermare che avresti un ragionevole dubbio che non funzioni correttamente sui computer dei tuoi Clienti!  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nPotresti provare anche su qualche altro computer, oltre al tuo?\nOvviamente mi sto riferendo all\'exe con i folder che mi hai inviato (Ugo2.exe). \nGrazie.','',0,'gA==','2k3snnwj',1,0,'',154,0,0),(25295,5705,3,20,0,'87.6.211.10',1169285124,1,0,1,1,1,0,'','Rebar with toolbar','I use Rebar control with three toolbar.\nThe user can modify the width and the position of toolbar.\nI would want to save the position and the width of the toolbar in a INI file, in order to setup these to the restart of the program? \n\nWhich data I must save?\n\nRegards\nPier Luigi','',0,'gA==','2dan7xz4',1,0,'',20,0,0),(25296,5675,20,154,0,'151.81.0.2',1169285486,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3hm6nq6g]in windows 200 sp4 tutto ok non ho visto nessuna retinatura[/quote:3hm6nq6g]\nSilvio,\nnon mi è chiaro:\nin windows 2000 è tutto ok (si vede la retinatura) o non si vede?\n[quote=&quot;Silvio&quot;:3hm6nq6g]in windows Xp non vedo retinatura ma vedo il group box che non ha fine e il contorno del folder sembrerebbe marcato di nero ...mhmm strano !!![/quote:3hm6nq6g]\nSono problemi dell\'RC infatti se usi questo RC dovrebbe essera a posto:\n[code:3hm6nq6g]Folder DIALOG 6, 15, 213, 114\nSTYLE WS_CHILD | WS_VISIBLE\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 11, 17, 39, 12\n EDITTEXT 102, 13, 34, 37, 12\n RADIOBUTTON &quot;Radio&quot;, 103, 74, 18, 60, 12\n RADIOBUTTON &quot;Radio&quot;, 104, 75, 32, 60, 12\n RADIOBUTTON &quot;Radio&quot;, 105, 143, 19, 60, 12\n CONTROL &quot;Radio&quot;, 106, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 143, 31, 60, 12\n CHECKBOX &quot;Checkbox&quot;, 108, 115, 87, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n COMBOBOX 107, 18, 64, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n GROUPBOX &quot;Group&quot;, -1, 4, 4, 204, 98, BS_GROUPBOX\n CHECKBOX &quot;Checkbox&quot;, 109, 25, 87, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;[/code:3hm6nq6g]\nResta comunque il fatto che [b:3hm6nq6g]USANDO SOLTATO IL TASTO TAB[/b:3hm6nq6g] non appare la retinatura intorno ai RADIO BUTTON e ai CHECKBOX, i controlli funzionano benissimo con il mouse ma anche con la tastiera, il problema è che non so quale controllo sto modificando!','',0,'wIA=','3hm6nq6g',1,0,'',154,0,0),(25297,5705,3,2,0,'87.218.146.202',1169287703,1,0,1,1,1,1,'','','Pier,\n\nYou may use oToolbar:nTop, oToolBar:nLeft and oToolBar:nWidth\n\nthough we may try how to restore those values later on','',0,'wIA=','1ctwj7is',1,0,'',2,0,0),(25298,5675,20,6,0,'80.181.217.179',1169290621,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;Ugo&quot;:2zlxi7kh]Enrico,\nho provato il tuo exe su parecchi altri computer diversi e mi sembra veramente strano che sul tuo funzioni bene! <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nQuindi se produci un programma con queste caratteristiche credo di poter affermare che avresti un ragionevole dubbio che non funzioni correttamente sui computer dei tuoi Clienti!  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nPotresti provare anche su qualche altro computer, oltre al tuo?\nOvviamente mi sto riferendo all\'exe con i folder che mi hai inviato (Ugo2.exe).[/quote:2zlxi7kh]\n\nProvato su un altro computer. Funziona perfettamente (vedo la retinatura). A questo punto non mi viene in mente proprio nient\'altro... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nEMG','',0,'gA==','2zlxi7kh',1,0,'',6,0,0),(25299,5706,3,67,0,'62.235.24.56',1169291884,1,0,1,1,1,0,'','GetTextWidth(oPrn:hDc,cText,oFont)','Hello\n\nUsing ARIAL as font , i noticed that Gettextwidth didn\'t give the right result\n1) oPrn:Say(nRow,10*KolStap,LEFT(cText,71),oFont)\n    nKol := 10*KolStap + GetTextWidth(oPrn:hDc,LEFT(cText,71),oFont)\n    oPrn:Say(nRow,nKol,SUBSTR(cText,72),oFont)\n Should give a text without white space , it isn\'t\n\n2)tracelog(GetTextWidth(oPrn:hDc,LEFT(cText,71),oFont) , 52.9*Kolstap) \nShows the difference between calculated and real :\nType: N &gt;&gt;&gt;      3218&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      2645.0&lt;&lt;&lt;\n\nCan the real length be calculated ?\n\nFrank\n\n\n\n[code:57qmfhey]\n# include &quot;FiveWin&#46;ch&quot;\n# include &quot;common&#46;ch&quot;\nSTATIC oPrn , oFont , Kolstap , nKol\nFUNC MAIN\nLOCAL  i\nLOCAL cText &#58;= &quot;Gelieve hier het e-mailadres te noteren voor ontvangst responsbestand&#46; Indien u een andere type bestand als xls wenst, gelieve het bestandsformaat en record lay-out aan ons door te geven&#46;&quot;\n\nLOCAL nRowStep , nRow &#58;= 1\nKolstap &#58;= 50\n\nPRINT oPrn NAME &quot;Testing the printer object from FiveWin&quot; PREVIEW MODAL\nDEFINE FONT oFont NAME &quot;ARIAL&quot; SIZE 0, -10 OF oPrn                     \n\nnRowStep &#58;= oPrn&#58;nVertRes&#40;&#41;/60\n\nPAGE\nnRow += nRowStep\noPrn&#58;Say&#40;nRow,10*KolStap,LEFT&#40;cText,71&#41;,oFont&#41;\nnKol &#58;= 10*KolStap + GetTextWidth&#40;oPrn&#58;hDc,LEFT&#40;cText,71&#41;,oFont&#41;\noPrn&#58;Say&#40;nRow,nKol,SUBSTR&#40;cText,72&#41;,oFont&#41;\noPrn&#58;Say&#40;nRow,63&#46;3*KolStap,&quot;I&quot;&#41;\ntracelog&#40;GetTextWidth&#40;oPrn&#58;hDc,LEFT&#40;cText,71&#41;,oFont&#41; , 52&#46;9*Kolstap&#41; \nnRow += nRowStep\nnKol &#58;= 10*KolStap\nFOR i &#58;= 1 TO 71\n	oPrn&#58;say&#40;nRow,nKol,cText&#91;i&#93;,oFont&#41;\n	nKol += GetTextWidth&#40;oPrn&#58;hDc,cText&#91;i&#93;,oFont&#41;\nNEXT\nENDPAGE\nENDPRINT\n[/code:57qmfhey]','',0,'AIA=','57qmfhey',1,0,'',67,0,0),(25300,5674,3,439,0,'200.125.36.98',1169292311,1,0,1,1,1,1,'','','&gt;FiveTech always promoted new users to develop addons, utilities, etc for FiveWin. We are open to it. In fact FiveWin is a tool with lots of utilities and addons available for it. \n\nI know that, I see a lot of this addons in the Utilities forum, what I say is that I would like to see a better integration betwen this developers and Fivewin, [b:1sc43qxk]so their products may have permanent support even if they leave them[/b:1sc43qxk].\n\n&gt;FiveWin was originally developed in 1993. And it remains very well alive for 16 years now, along this time many products have appeared and dissapeared (Visual Objects, Visual dBase, etc.) and FiveWin remains alive and has a growing users base!\n\nThe only thing I meen is that [b:1sc43qxk]without \"new genetations\" software disappear, so it is really important to respect them in their projects[/b:1sc43qxk], many times they dedicate a lot of time in investigation that other users can´t, that was the point of this topic: \"a project of report generator\", not the permanence of Fivewin, I didn´t meen that Fivewin was to disappear and I don´t think so, I´m sure you agree with me that Fivewin continues strong because it \"has a growing users base\" as you said, in other words, there are new generations permanently coming, [b:1sc43qxk]THAT WAS EXACTLY WHAT I MEEN.[/b:1sc43qxk]','',0,'QA==','1sc43qxk',1,1169318304,'',439,1,0),(25301,5703,6,53,0,'189.139.17.219',1169299841,1,0,1,1,1,1,'','','Raymundo:\n\nPrueba asignando a la variable el contenido del campo llave del primer registro:\n\nEn lugar de   cNumPart := aNumsParts[1] \n\nMete el valor del primer registro   cNumPart := (cAlias)-&gt;CAMPOLLAVE\n\nEspero sea lo que buscas, Saludos','',0,'','1bik28xb',1,0,'',53,0,0),(25302,5567,6,185,0,'200.105.142.13',1169301519,1,0,1,1,1,0,'','','Marco\n\nVerifica en la funcion de meassureitem que esta en el pdmenu.prg y corrige\n\nsaludos','',0,'','5bhzp276',1,0,'',185,0,0),(25303,5664,19,26,0,'84.52.130.249',1169306194,1,0,1,1,1,1,'','','Hello!\n\n[size=150:od7a1i5u]Gates &amp; Jobs: Substance vs. Style[/size:od7a1i5u]\n[size=75:od7a1i5u] <!-- m --><a class=\"postlink\" href=\"http://www.microsoft-watch.com/content/corporate/gates_jobs_substance_vs_style.html\">http://www.microsoft-watch.com/content/ ... style.html</a><!-- m --> [/size:od7a1i5u]\n[quote:od7a1i5u][color=brown:od7a1i5u]The contrast in style I find so interesting is Apple brand\'s perceived freshness, coolness and openness. There\'s presumption that Mac OS X is more open than Windows or that iTunes/iPod offers so much choice. But is that perception real? \n\nWindows has been for a long time the [url=http&#58;//www&#46;edmunds&#46;com/media/il/features/future/08&#46;dodge&#46;grand&#46;caravan/08&#46;dodge&#46;caravan&#46;340&#46;jpg:od7a1i5u]Dodge Caravan[/url:od7a1i5u] of operating systems and Mac OS the [url=http&#58;//www&#46;superjamie&#46;net/garage/4x4-mazda-miata&#46;jpg:od7a1i5u]Mazda Miata[/url:od7a1i5u]. While lots of folks might want to drive a sporty car, the minivan costs less and is more practical. With Windows Vista, Microsoft is looking to sell a sportier class of vehicle, a SUV with lots of features that handles well and looks good.[/color:od7a1i5u][/quote:od7a1i5u]\n\nRegards, Roman','',0,'lg==','od7a1i5u',1,0,'',26,0,0),(25304,5699,6,36,0,'164.77.81.210',1169311279,1,0,1,1,1,0,'','','Gracias antonio por responder\n\npero igual sale el warning\n\nsaludos\npatricio','',0,'lg==','ja7klvws',1,0,'',36,0,0),(25305,5704,6,913,0,'189.137.9.41',1169314241,1,0,1,1,1,1,'','OOPS!!!','<!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> HUY NO ME DI CUENTA <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nGracias  y perdon por dar tanta lata <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\n\nQue tengas un bonito fin de semana\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'lg==','1f83g375',1,0,'',913,0,0),(25306,5706,3,2,0,'87.218.146.216',1169316557,1,0,1,1,1,1,'','','Frank,\n\nFW GetTextWidth() uses WinAPI GetTextExtent(). From its docs:\n\n\"Since some devices do not place characters in regular cell arrays (that is, they kern characters), the sum of the extents of the characters in a string may not be equal to the extent of the string.\"','',0,'lg==','3opx3wmy',1,0,'',2,0,0),(25307,5707,4,3,0,'82.248.11.172',1169316750,1,0,1,1,1,1,'','Button tooltips','Antonio\n\nAny progress on showing tooltips for buttons ?\n\nThanks\n\nRichard','',0,'lg==','1cjibqxv',1,0,'',3,0,0),(25308,5674,3,299,0,'24.233.172.101',1169317169,1,0,1,0,1,0,'','','[quote:1gdcbx7m]\nFiveTech always promoted new users to develop add-ons, utilities, etc for FiveWin[/quote:1gdcbx7m]\n\nPrecisely!  And most of them disappear after a while.  Unless it is somehow adopted or supported by FiveTech, its future is uncertain.\n\nI wonder if Crystal Reports is a fast-viable-powerful solution to the reports designer dilemma.  If it is, all we need is good documentation on how to interact with it from fwh and have fivetech promote its use and support it via class calls, etc...  That\'s all.  Then have other users help via the forum on FWH-CR problem solving, tricks, and ideas. \n\nEMI- What\'s your opinion; could CR be the answer?   What are the shortcomings of using CR?  Does xhb prof have a reports designer?  Does xalier? or any other xbase lang for that matter?\n\n(these are honest questions not rhetorical)\n\n\n\nReinaldo.','',0,'gA==','1gdcbx7m',1,0,'',299,0,0),(25309,5707,4,2,0,'87.218.146.216',1169317304,1,0,1,1,1,1,'','','Richard,\n\nWe expect to have them ready for next build','',0,'gA==','ihr1v96t',1,0,'',2,0,0),(25310,4916,6,838,0,'80.59.225.15',1169318499,1,0,1,1,1,0,'','','Yo tengo algo hecho que genera con pdfcreator una factura por cada cliente, que previamente se ha señalado en su ficha que éste cliente quiere las facturas por pdf\n\nSaludos\n\nJose Luis','',0,'gA==','3tl7xr2x',1,0,'',838,0,0),(25311,5674,3,6,0,'82.59.51.124',1169319533,1,0,1,1,1,1,'','','[quote=&quot;reinaldocrespo&quot;:3jh4aicn]I wonder if Crystal Reports is a fast-viable-powerful solution to the reports designer dilemma.[/quote:3jh4aicn]\n\nI used it for years with Visual Basic and personally hate Crystal Reports. I don\'t recommend it for any serious work.\n\nEMG','',0,'gA==','3jh4aicn',1,0,'',6,0,0),(25312,5674,3,299,0,'24.233.172.101',1169321222,1,0,1,0,1,0,'','','You\'ve heard it folks.  And that\'s one opinion that deserves respect.\n\nI won\'t waste my time with CR.  Thank you Enrico.\n\n\nReinaldo.','',0,'gA==','1aiq5wzk',1,0,'',299,0,0),(25313,5567,6,43,0,'189.128.5.162',1169324253,1,0,1,1,1,0,'','','Gracias Arturo\n\nCorrigo y checo....\n\nSaludos\n\nMarco A. Delgado','',0,'gA==','19u3ropy',1,0,'',43,0,0),(25314,5703,6,492,0,'189.147.32.43',1169324858,1,0,1,1,1,1,'','','Hola Armando\n\nEn teoria, por logica ese seria lo equivalente, pero creeras que no lo toma correctamente !\n\nSeguire probando, agradezco mucho tu respuesta.\n\nSaludos','',0,'gA==','2pzayave',1,0,'',492,0,0),(25315,5674,3,138,0,'189.141.72.221',1169328618,1,0,1,1,1,1,'','','he he he\n\nI have a totally different opinion on Crystal Reports.\n\nAbout two years ago we had the need to find a fast-reliable SQL based report designer for one of our most important customers, an insurance company.\n\nWe developed over 200 reports in RPT files, some Informix based, some DBF based, the most important thing here, was the capability of the report to be exported to several different formats, including Word, Excel, PDF, and send them by mail.\n\nCrystal let us to fast develop the reports needed without touching the FiveWin source code, that helped us a lot, because whenever the customer asked for a new report, we simply made the visual design in Crystal, generate the RPT file and then added to a DBF file the report name, report description and location of the RPT file, so the user user simply opens the \"REPORT GALLERY\" browse, from the REPORTS MENU, then choose the new report and done, the Crystal preview window is shown as a MDCHILD window of the FW application.\n\nThe SQL based reports were easy to do, however the DBFs reports were a little difficult since they were based on a single temporary DBF file, of course you can use several DBFs to generate a single report but to be honest, this is not a good idea under Crystal, the fastest way for DBF Crystal design is to generate a temporary DBF file, and design the report using a single DBF.\n\nWhat we made for DBF reports, was to use a SCRIPT tool that let us to generate that temporary file out of the FW source code, so the name of the script was also included in the reports dbf, whenever you choose a report of the REPORT GALLERY and the field SCRIPT is not empty, first the script is run and then the report preview is launched.\n\nOf course Crystal is not a perfect tool, is not free, but it\'s a good Reporting tool in my opinion.','',0,'gA==','j433neqw',1,0,'',138,0,0),(25316,5674,3,51,0,'80.122.88.242',1169335236,1,0,1,1,1,0,'','','Hello Rene,\n\nThat is exactly my experience, too. I also prepare the reports in my application and with CR I only have one dbf-file without indexes.\nGerman Umlaute and indexes aren\'t so well supported by CR.\n\nI think the generator you use depends very much on what forms you need. For easy forms like invoices, etc. I prefer EasyReport with Fivewin because I always found it very difficult to get CR running on a clients system.  Many times I had to install the full version of CR.\nSo if you have many users this is a bit a problem or if you have a demo of your program which you would like to distribute without installation problems. Also the end user interface is easy to use.\n\n\nDoes the actual version of CR still make standalone RPT-files? The version which is included in VS2005 doesn\'t.\n\n \nRegards\nOtto','',0,'gA==','hg9l3dwm',1,0,'',51,0,0),(25317,5695,6,49,0,'62.13.172.78',1169339070,1,0,1,1,1,1,'','','CAN YOU SEND A SMALL TEST FOR IT \ni WANTED ANIMATION FOR EACH WEBCAM...\ni CAN INSERT 4 CAM ON 4 ip DIFFERENT\nCAN i CALL ALL THEM IN A PROGRAM ?','',0,'gA==','23jws91r',1,0,'',49,0,0),(25318,5703,6,53,0,'189.139.15.27',1169344100,1,0,1,1,1,1,'','','Ray:\n\nEsto es lo que hago y me funciona bien con FWH 2.7 Mzo/2006 y xHarbour\n\nIF lAppend\n     oDbf:BLANK()\n     oDbf:MOD_LIN := (cLinea)-&gt;LIN_LIN\nELSE\n     oDbf:LOAD()\nENDIF\n...\n...\nREDEFINE DBCOMBO aGets[04] VAR oDbf:MOD_LIN ID 104 OF oDlg;\n			UPDATE ALIAS (cLinea) ITEMFIELD \"LIN_LIN\" LISTFIELD \"LIN_DES\"\n\n\nSaludos, Armando','',0,'','3dpv178j',1,0,'',53,0,0),(25319,5674,3,171,0,'71.232.193.197',1169346205,1,0,1,1,1,0,'','','Hi fellows fivewiners,\n\nI think we do need:\n\nA) FWH Report generator. (Easy Report is not easy to use and does not support PDF). I support Silvio in this project.\nB) A Browse like Manuel Mercado TSBrowse\n\nA year ago I believed that an IDE was important. But now I do think that with Workshop and Multi-Edit we can develop any software. I am sorry Otto but is my opinion that  FWH does not need any IDE, because all IDE put some obstacle into our software development.\n\n\nRegards\n\nGeorge','',0,'','2glmyb4r',1,0,'',171,0,0),(25320,5674,3,6,0,'82.59.197.240',1169372149,1,0,1,1,1,1,'','','[quote=&quot;George&quot;:3crxg6o8]A year ago I believed that an IDE was important. But now I do think that with Workshop and Multi-Edit we can develop any software. I am sorry Otto but is my opinion that  FWH does not need any IDE, because all IDE put some obstacle into our software development.[/quote:3crxg6o8]\n\nI agree. We not need of an IDE but we need of a 32 bit replacement for Borland Resource Workshop. The resource editors I tried are far less featured than BRW.\n\nEMG','',0,'gA==','3crxg6o8',1,0,'',6,0,0),(25321,5674,3,6,0,'82.59.197.240',1169372341,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:y0aqho15]I have a totally different opinion on Crystal Reports.[/quote:y0aqho15]\n\nThat\'s your right. But I have a lot of complex reports that would be simply impossible to build using Crystal Reports.\n\nEMG','',0,'gA==','y0aqho15',1,0,'',6,0,0),(25322,5674,3,51,0,'80.122.88.242',1169373423,1,0,1,1,1,0,'','','Maybe I don’t know how to use  Workshop and Multi-Edit exactly.\nIs there a way to substitute the ID-numbers through friendly names?\n\n\n\nRegards\nOtto','',0,'gA==','2p5hvgdj',1,0,'',51,0,0),(25323,5674,3,6,0,'82.59.197.240',1169374447,1,0,1,1,1,1,'','','Yes, just use #defines. But I don\'t recommend it because it\'s a waste of time to find big amount of new and appropriate names.\n\nEMG','',0,'gA==','1ev4c31i',1,0,'',6,0,0),(25324,5688,2,375,0,'84.122.115.73',1169375322,1,0,1,1,1,1,'','','[u:lasua6pk]Yo tuve el mismo problema[/u:lasua6pk] y resulta que aunque se supone que el primer indice se coge por defecto (una vez abierto con  USE o  SET INDEX), pues no es así, y tienes que emplear[b:lasua6pk] Alias-&gt;( OrdSetFocus( nº indice/\"nombre indice\" ) ) [/b:lasua6pk] [u:lasua6pk][b:lasua6pk]SIEMPRE[/b:lasua6pk][/u:lasua6pk].\n\nPor cierto, no te olvides de incluir MPAR.OBJ en la lista de objetos de tu LNK.\n\nSuerte.','',0,'QQ==','lasua6pk',1,0,'',375,0,0),(25325,5679,6,375,0,'84.122.115.73',1169376022,1,0,1,1,1,1,'','','No estoy de acuerdo con ACC69. Efectivamente, debería salirte 5.811, sin embargo puedes probar con  round(x,4) a ver que te sale. Si sólo necesitas 3 decimales puedes probar a pasar la cifra a string con str(round(x,4) ,12,3) o algo similar.\n\nUn saludo.','',0,'QQ==','2qb6irsj',1,0,'',375,0,0),(25326,5708,2,375,0,'84.122.115.73',1169377023,1,0,1,1,1,1,'','SMS desde FW','¿Sabe alguien si se puede mandar un SMS desde un porgrama echo con FW?\n\nSi alguien supiera que es imposible, también me gustaría saberlo.\n\nMuchas gracias. Saludos.','',0,'QQ==','27ib2azg',1,0,'',375,0,0),(25327,5709,6,375,0,'84.122.115.73',1169377047,1,0,1,1,1,1,'','SMS desde FW','¿Sabe alguien si se puede mandar un SMS desde un porgrama echo con FW?\n\nSi alguien supiera que es imposible, también me gustaría saberlo.\n\nMuchas gracias. Saludos.','',0,'QQ==','2q8uvdmf',1,0,'',375,0,0),(25328,5674,3,2,0,'87.218.146.216',1169382694,1,0,1,1,1,1,'','','Otto,\n\nHere you have a tutorial video about UEStudio and FWH:\n<!-- m --><a class=\"postlink\" href=\"http://video.google.es/videoplay?docid=9088858141713451295&amp;hl=es\">http://video.google.es/videoplay?docid= ... 1295&amp;hl=es</a><!-- m -->\n\nBetter video quality here:\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/VQ0JG9OK/uestudio1.zip.html\">http://www.uploading.com/files/VQ0JG9OK ... 1.zip.html</a><!-- m -->','',0,'QQ==','19cgbn5i',1,0,'',2,0,0),(25329,5710,6,2,0,'87.218.146.216',1169383558,1,0,1,1,1,1,'','Usando UEStudio y FWH','Aquí teneis un video tutorial de cómo usar UEStudio y FWH:\n<!-- m --><a class=\"postlink\" href=\"http://video.google.es/videoplay?docid=9088858141713451295&amp;hl=es\">http://video.google.es/videoplay?docid= ... 1295&amp;hl=es</a><!-- m --> \n\nCon mejor calidad de video aquí: \n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/VQ0JG9OK/uestudio1.zip.html\">http://www.uploading.com/files/VQ0JG9OK ... 1.zip.html</a><!-- m -->','',0,'QQ==','2d7g0uv7',1,0,'',2,0,0),(25330,5674,3,299,0,'24.233.172.101',1169393798,1,0,1,0,1,0,'','','With all being said; \n\n--I think we may conclude that the issue of the report generator is one important land mark we still need to clear in the Fw community.   More so than an IDE.  Perhaps TReport may be used as the base for this project?\n\nAs far as a 32bit resource editor, I\'m currently using Resource Builder.  It does very well, it is reasonably priced, and I was able to import the very same .rc file that workshop created.\n\nReinaldo.','',0,'QQ==','bm4hho95',1,0,'',299,0,0),(25331,5710,6,785,0,'190.64.116.50',1169395025,1,0,1,1,1,0,'','','Antonio:\n\nPor favor, serias tan amable colocar el fichero en un lugar de mas facil acceso. El segundo no lo puedo bajar.\n\nCada vez que trato de bajarlo me da el mensaje...\n\nAll download slots assigned to your country (Uruguay) are in use. We apologize for the inconvenience.\nPlease try again later.\n\nSomos nada mas que 3.000.000 de personas y no creo que mas\nde 1.500.000 usen FWH.javascript&#058;emoticon(\':D\')\nVery Happy\n\nGracias y saludos.\n\nRuben Fernandez','',0,'QQ==','2c1p0bpa',1,0,'',785,0,0),(25332,5674,3,397,0,'201.13.90.167',1169396289,1,0,1,0,1,1,'','','Antonio\n\nI suggest use other upload site. This uploading forces a window s_e_x sites open in our desktop.\n\nThanks','',0,'QQ==','16bopwbb',1,0,'',397,0,0),(25333,5695,6,397,0,'201.13.90.167',1169397812,1,0,1,0,1,1,'','','Silvio\n\nI\'n not have a example but this code can help you:\n\nSee the line:\n\noCapture := TCapCapture():New( [b:fsh1wdpn]25,25,320,240[/b:fsh1wdpn], oWnd , 0)\n\nYou can create other objects, just add new coords to new object\n\noCapture1 := TCapCapture():New( [b:fsh1wdpn]25,25,320,240[/b:fsh1wdpn], oWnd , 0)\noCapture2 := TCapCapture():New( [b:fsh1wdpn]350,300,320,240[/b:fsh1wdpn], oWnd , 0)\n\nI can use [url=http&#58;//www&#46;freedownloadscenter&#46;com/Network_and_Internet/Internet_Client_Suites/Virtual_Camera&#46;html:fsh1wdpn]VirtualCamera[/url:fsh1wdpn] for test with this example.\n\n[code:fsh1wdpn]\n/*\n   Example the class TCapCapture for Fivewin\n  &#40;c&#41;2003 by Rafa Carmona&#40; Thefull &#41;\n\n  Software under Licencia GPL&#46; http&#58;//www&#46;gnu&#46;org para saber mas&#46;\n           &#40; Tiene la misma exception que &#91;x&#93;Harbour &#41;\n */\n\n#INCLUDE &quot;Fivewin&#46;CH&quot;\n\nFunction Main&#40;&#41;\n   Local a,x\n   Local  oWnd, oCapture,  nRate &#58;= 10, oMenu, nFrames &#58;= 15\n   LOCAL aDrivers\n   LOCAL i\n\n   MENU oMenu\n        MENUITEM &quot;FramesPerSec&quot;   ACTION &#40; MsgGet&#40;&quot;Frames&quot;,&quot;Frames Per Second&#58;&quot;,@nFrames&#41;,oCapture&#58;FramesPerSec&#40;nFrames&#41; &#41;\n        MENUITEM &quot;Rate View&quot;      ACTION &#40; MsgGet&#40;&quot;Rate Preview&quot;,&quot;Rate Preview&#58;&quot;,@nRate&#41;,oCapture&#58;PreviewRate&#40; nRate &#41;&#41;\n        MENUITEM &quot;Video Setup&quot;    ACTION oCapture&#58;SetupVideo&#40;&#41;\n        MENUITEM &quot;Video Compress&quot; ACTION oCapture&#58;VideoCompression&#40;&#41;\n        MENUITEM &quot;Start Capture&quot;  ACTION &#40;  oCapture&#58;SetFile&#40;&quot;&#46;\\pepe&#46;avi&quot;&#41; ,;\n                                           oCapture&#58;StartCapture&#40;&#41; &#41;\n        MENUITEM &quot;Stop Capture&quot;   ACTION  oCapture&#58;StopCapture&#40;&#41;\n   ENDMENU\n\n   DEFINE WINDOW oWnd  TITLE &quot;Cap-Fivewin &#40;c&#41;2003 by Rafa Carmona&#40;Thefull&#41;&quot; MENU oMenu MDI\n\n   oCapture &#58;= TCapCapture&#40;&#41;&#58;New&#40; 25,25,320,240, oWnd , 0&#41;\n\n   IF oCapture&#58;Conect&#40;&#41;\n      oCapture&#58;PreviewRate&#40; nRate &#41;\n      oCapture&#58;Preview&#40;&#46;T&#46;&#41;\n     * oCapture&#58;Overlay&#40; &#46;T&#46; &#41;\n   ELSE\n      ? &quot;No connect&#46;&#46;&#46;&#46; ;&#40; &quot;\n  *    oWnd&#58;End&#40;&#41;\n   ENDIF\n\n\n  // En fase de pruebas\n  /*\n  aDrivers &#58;= WC_Capturas&#40;&#41;\n  ? Len&#40; aDrivers &#41;\n\n  for i &#58;= 1 to Len&#40; aDrivers &#41;\n    ? &quot;Driver&#58; &quot; + aDrivers&#91;i&#93;&#91;1&#93; + &quot;  Version&#58; &quot; + aDrives&#91;i&#93;&#91;2&#93;\n  next\n */\n   ACTIVATE WINDOW oWnd\n\n   oCapture&#58;End&#40;&#41;\n\nReturn NIL\n /*\n   Implemetation Class TCapCapture for Fivewin&#46;\n   &#40;c&#41;2003 by Rafa Carmona&#40; Thefull &#41;\n   Beta 4\n\n */\n\nCLASS TCapCapture FROM TControl\n\n      CLASSDATA lRegistered AS LOGICAL\n      DATA hWndC\n      DATA nIndex INIT 0    // By Default index first found\n\n      METHOD New&#40;&#41; CONSTRUCTOR\n      METHOD Conect&#40;&#41;  INLINE  ConectDriver&#40; &#58;&#58;hWndC, &#58;&#58;nIndex &#41;\n      METHOD End&#40;&#41;     INLINE  DisConectDriver&#40; &#58;&#58;hWndC &#41;\n      METHOD StartCapture&#40;&#41;          INLINE Capture&#40; &#58;&#58;hWndC &#41;\n      METHOD StopCapture&#40;&#41;           INLINE CaptureStop&#40; &#58;&#58;hWndC &#41;\n      METHOD Preview&#40; lPreview &#41;     INLINE CapPreview&#40; &#58;&#58;hWndC, lPreview &#41;\n      METHOD PreviewRate&#40; nRate &#41;    INLINE CapPreviewRate&#40; &#58;&#58;hWndC, nRate &#41;\n      METHOD PreViewScale&#40; lScale &#41;  INLINE CapPreviewScale&#40; &#58;&#58;hWndC,lScale &#41;\n      METHOD CreateWndCapture&#40;&#41;\n      METHOD FileSaveAs&#40; cFileName &#41; INLINE CapFileSaveAs&#40; &#58;&#58;hWndC, cFilename &#41;\n      METHOD SetFile&#40; cFile &#41;        INLINE CapFileSetCaptureFile&#40; &#58;&#58;hWndC, cFile &#41;\n      METHOD SetupCapture&#40;&#41;          INLINE CapCaptureSetSetup&#40; &#58;&#58;hWndC &#41;\n      METHOD SetupVideo&#40;&#41;            INLINE SetupVideo&#40; &#58;&#58;hWndC &#41;\n      METHOD Overlay&#40; lMode &#41;        INLINE CapOverlay&#40; &#58;&#58;hWndC, lMode &#41;\n      METHOD FramesPerSec&#40; nFrames &#41; INLINE CapFramesPerSec&#40; &#58;&#58;hWndC, nFrames &#41;\n      METHOD VideoCompression&#40;&#41;      INLINE CapDlgVideoCompression&#40; &#58;&#58;hWndC &#41;\n      METHOD ListDrivers&#40;&#41;\n\nEND CLASS\n\n\n\nMETHOD New&#40; nTop, nLeft, nWidth, nHeight, oWnd , nIndex &#41; CLASS TCapCapture\n\n   DEFAULT nTop &#58;= 0, nLeft &#58;= 0,;\n           oWnd &#58;= GetWndDefault&#40;&#41;,;\n           nWidth &#58;= 200,;\n           nHeight &#58;= 200\n\n   &#58;&#58;nTop &#58;= nTop\n   &#58;&#58;nLeft &#58;= nLeft\n   &#58;&#58;nBottom   = &#58;&#58;nTop + nHeight - 1\n   &#58;&#58;nRight    = &#58;&#58;nLeft + nWidth - 1\n   &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE  &#41;\n   &#58;&#58;nId       = &#58;&#58;GetNewId&#40;&#41;\n   &#58;&#58;oWnd      = oWnd\n\n   &#58;&#58;nIndex &#58;= nIndex\n\n   &#58;&#58;Register&#40; nOR&#40; CS_VREDRAW, CS_HREDRAW &#41; &#41;\n\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40;&#41;\n      &#58;&#58;Default&#40;&#41;\n      &#58;&#58;lVisible = &#46;t&#46;\n      oWnd&#58;AddControl&#40; Self &#41;\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n*      &#58;&#58;lVisible  = &#46;f&#46;\n   endif\n\n   IF &#58;&#58;ListDrivers&#40;&#41; &gt; 0\n      &#58;&#58;CreateWndCapture&#40;&#41;\n   ELSE\n     ?&quot;Not found Drivers&#46;&#46;&#46;&quot;\n   ENDIF\n\nreturn Self\n\n\nMETHOD ListDrivers&#40;&#41; CLASS TCapCapture\n   Local aDrivers &#58;=  CapGetDrivers&#40;&#41; , oCombo, cItem &#58;= &quot;&quot;\n   Local oDlg\n *  IF Len&#40; aDrivers &#41; &gt; 1 // Si hay mas de un driver , permite seleccionarlo\n *     DEFINE Dialog oDlg TITLE  &quot;Select Driver Capture&quot;\n      // Se produce un GPF&#46; Adivina por que ;&#40;\n      * @1,1 COMBOBOX oCombo VAR cItem ITEMS aDrivers OF oDlg SIZE 100,100 ;\n           *VALID &#40; &#58;&#58;nIndex &#58;= oCombo&#58;nAt - 1,&#46;t&#46; &#41;\n*      ACTIVATE DIALOG oDlg\n*   ENDIF\n\nReturn&#40; Len&#40; aDrivers &#41; &#41;\n\nMETHOD CreateWndCapture&#40;&#41; CLASS TCapCapture\n\n &#58;&#58;hWndC &#58;= CaptureWin&#40; &quot;My First Capture FROM FIVEH!!!&quot;, &#58;&#58;nStyle,;\n                           &#58;&#58;nTop, &#58;&#58;nLeft, &#58;&#58;nWidth, &#58;&#58;nHeight, &#58;&#58;oWnd&#58;hWnd, &#58;&#58;nIndex &#41;\n\n\nRETURN SELF\n\n\n\n/*\n   Implementation language C for &#91;x&#93;Harbour\n   &#40;c&#41;2003 by Rafa Carmona &#40; Thefull &#41;\n   Beta 4\n*/\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;vfw&#46;h&gt;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; CAPTUREWIN &#41;\n&#123;\n\n\n  HWND VFWAPI hVentana =  capCreateCaptureWindow&#40; hb_parc&#40; 1 &#41;, &#40;DWORD&#41; hb_parnl&#40; 2 &#41;,\n                            hb_parni&#40; 3 &#41; ,hb_parni&#40; 4 &#41;,hb_parni&#40; 5 &#41;,hb_parni&#40; 6 &#41;,\n                            &#40;HWND&#41; hb_parnl&#40; 7 &#41;, hb_parni&#40;8&#41; &#41; ;\n\n   hb_retnl&#40; &#40;LONG&#41; hVentana &#41; ;\n\n&#125;\n\nHB_FUNC&#40; CAPTURE &#41;\n&#123;\n\n  hb_retl&#40; SendMessage &#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, WM_CAP_SEQUENCE, 0, 0L&#41; &#41;;\n\n&#125;\n\nHB_FUNC&#40; CAPTURESTOP &#41;\n&#123;\n   hb_retl&#40; SendMessage &#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, WM_CAP_STOP, 0, 0L&#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CAPCAPTURESEQUENCENOFILE &#41;\n&#123;\n   hb_retl&#40; capCaptureSequenceNoFile&#40; &#40;HWND&#41; hb_parnl&#40;1&#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CONECTDRIVER &#41;\n&#123;\n   // hb_retl&#40; SendMessage &#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, WM_CAP_DRIVER_CONNECT, 0 , 0L&#41; &#41;;\n   hb_retl&#40; capDriverConnect&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, hb_parni&#40;2&#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; DISCONECTDRIVER &#41;\n&#123;\n   hb_retl&#40; capDriverDisconnect&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41;&#41;;\n &#125;\n\nHB_FUNC&#40; CAPCAPTURESETSETUP &#41;\n&#123;\n   CAPTUREPARMS Capture;\n   hb_retl&#40; capCaptureSetSetup&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, &amp;Capture, sizeof&#40; CAPTUREPARMS &#41; &#41;&#41;;\n&#125;\n\nHB_FUNC&#40; CAPGRABFRAME &#41;\n&#123;\n   hb_retl&#40; capGrabFrame&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CAPFILESAVEAS &#41;\n&#123;\n   hb_retl&#40; capFileSaveAs&#40; &#40;HWND&#41; hb_parnl&#40;1&#41;, hb_parc&#40; 2 &#41;&#41;&#41;;\n&#125;\n\nHB_FUNC&#40; CAPFILESETCAPTUREFILE &#41;\n&#123;\n  BOOL fResult;\n  fResult = capFileSetCaptureFile&#40; &#40;HWND&#41;hb_parnl&#40;1&#41;, &#40;LPSTR&#41; hb_parc&#40;2&#41; &#41;;\n  // preallocate a file of 5 MB&#46;\n  capFileAlloc&#40; &#40;HWND&#41; hb_parnl&#40;1&#41;, &#40;1024L * 1024L * 5&#41;&#41;;\n\n  hb_retl&#40; fResult &#41;;\n&#125;\n\nHB_FUNC&#40; CAPPREVIEW &#41;\n&#123;\n   hb_retl&#40; capPreview&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, hb_parl&#40; 2 &#41; &#41;&#41;;\n&#125;\n\nHB_FUNC&#40; CAPPREVIEWSCALE &#41;\n&#123;\n   hb_retl&#40; capPreviewScale&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, hb_parl&#40; 2 &#41; &#41;&#41;;\n&#125;\n\nHB_FUNC&#40; CAPPREVIEWRATE &#41;\n&#123;\n   hb_retl&#40; capPreviewRate&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, hb_parni&#40; 2 &#41; &#41;&#41;;\n&#125;\n\n\nHB_FUNC&#40; CAPDLGVIDEOSOURCE &#41;\n&#123;\n   hb_retl&#40; capDlgVideoSource&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CAPDLGVIDEODISPLAY &#41;\n&#123;\n   hb_retl&#40; capDlgVideoDisplay&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CAPDLGVIDEOCOMPRESSION &#41;\n&#123;\n   hb_retl&#40; capDlgVideoCompression&#40; &#40;HWND&#41; hb_parnl&#40;1&#41;&#41; &#41;;\n&#125;\n\nHB_FUNC&#40; SETUPVIDEO &#41;\n&#123;\n   CAPDRIVERCAPS CapDriverCaps;\n   CAPSTATUS CapStatus;\n\n   capDriverGetCaps&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, &amp;CapDriverCaps, sizeof &#40;CAPDRIVERCAPS&#41;&#41;;\n\n   // Video source dialog box&#46;\n   if &#40;CapDriverCaps&#46;fHasDlgVideoSource&#41;\n       capDlgVideoSource&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41;;\n\n   // Video format dialog box&#46;\n   if &#40;CapDriverCaps&#46;fHasDlgVideoFormat&#41;\n      &#123;\n       capDlgVideoFormat&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41;;\n\n       // Are there new image dimensions?\n       capGetStatus&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, &amp;CapStatus, sizeof &#40;CAPSTATUS&#41;&#41;;\n       // New Dimensions of Window\n       SetWindowPos&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, NULL, 0, 0, CapStatus&#46;uiImageWidth,\n                      CapStatus&#46;uiImageHeight, SWP_NOZORDER | SWP_NOMOVE&#41;;\n\n       // If so, notify the parent of a size change&#46;\n      &#125;\n\n    // Video display dialog box&#46;\n    if &#40;CapDriverCaps&#46;fHasDlgVideoDisplay&#41;\n        capDlgVideoDisplay&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CAPFRAMESPERSEC &#41;  // hWnd, framesperSec\n&#123;\n  CAPTUREPARMS CaptureParms;\n  float FramesPerSec = &#40;FLOAT&#41;hb_parnl&#40; 2 &#41;;\n\n  capCaptureGetSetup&#40; &#40;HWND&#41;hb_parnl&#40;1&#41;, &amp;CaptureParms, sizeof&#40;CAPTUREPARMS&#41;&#41;;\n  CaptureParms&#46;dwRequestMicroSecPerFrame = &#40;DWORD&#41; &#40;1&#46;0e6 / FramesPerSec&#41;;\n  hb_retl&#40; capCaptureSetSetup&#40; &#40;HWND&#41;hb_parnl&#40;1&#41;, &amp;CaptureParms, sizeof &#40;CAPTUREPARMS&#41;&#41; &#41;;\n&#125;\n\nHB_FUNC&#40; CAPOVERLAY &#41;\n&#123;\n   CAPDRIVERCAPS CapDrvCaps;\n   capDriverGetCaps&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, &amp;CapDrvCaps, sizeof &#40;CAPDRIVERCAPS&#41;&#41;;\n\n   if &#40;CapDrvCaps&#46;fHasOverlay&#41;\n       hb_retl&#40; capOverlay&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, hb_parl&#40; 2 &#41; &#41; &#41;;\n   else\n       hb_retl&#40; FALSE &#41;;\n&#125;\n\nHB_FUNC&#40; CAPGETDRIVERS &#41;\n&#123;\n  char szDeviceName&#91;80&#93;;\n  char szDeviceVersion&#91;80&#93;;\n  int wIndex;\n  // Maximos dispositivos a tratar&#46; Del 0&#46;&#46;&#46;9\n  hb_reta&#40;10&#41;;\n\n  for &#40;wIndex = 0; wIndex &lt; 10; wIndex++&#41;\n      &#123;\n       if &#40;capGetDriverDescription &#40;wIndex, szDeviceName,\n           sizeof &#40;szDeviceName&#41;, szDeviceVersion,\n           sizeof &#40;szDeviceVersion&#41;&#41;&#41;\n        &#123;\n          // Append name to list of installed capture drivers\n         // and then let the user select a driver to use&#46;\n         //MessageBox&#40; GetActiveWindow&#40;&#41;, szDeviceName, szDeviceVersion, MB_SYSTEMMODAL  &#41;;\n         hb_storc&#40; szDeviceName , -1, &#40; wIndex + 1 &#41; &#41;;\n    &#125;\n    &#125;\n\n &#125;\n\n// Codigo por Jose Lalin en base de pruebas&#46;\n// Gracias Jose!!!\n\n#include &quot;hbapiitm&#46;h&quot;\n\nHB_FUNC&#40; WC_CAPTURAS &#41;\n&#123;\n\n  // He cambiado la declaracion porque capGetDrivers necesita un puntero\n  // a la memoria donde almacenar szDeviceName y szDeviceVersion\n  LPSTR szDeviceName&#91;80&#93;;\n  LPSTR szDeviceVersion&#91;80&#93;;\n  int wIndex;\n  int wDevices;\n\n  PHB_ITEM pReturn;\n\n  for&#40; wIndex = 0; wIndex &lt; 10; wIndex++ &#41;\n  &#123;\n    if&#40; capGetDriverDescription&#40; wIndex, szDeviceName,\n          sizeof&#40; szDeviceName &#41;, szDeviceVersion,\n          sizeof&#40; szDeviceVersion &#41; &#41; &#41;\n    &#123;\n      wDevices = wIndex + 1;\n\n    &#125;\n  &#125;\n\n\n  pReturn = hb_itemArrayNew&#40; wDevices  &#41;;\n\n  for&#40; wIndex = 0; wIndex &lt;  wDevices ; wIndex++ &#41;\n  &#123;\n    if&#40; capGetDriverDescription&#40; wIndex, szDeviceName,\n          sizeof&#40; szDeviceName &#41;, szDeviceVersion,\n          sizeof&#40; szDeviceVersion &#41; &#41; &#41;\n    &#123;\n      PHB_ITEM pDriver  = hb_itemPutC&#40; NULL, &#40;char*&#41; szDeviceName &#41;;\n      PHB_ITEM pVersion = hb_itemPutC&#40; NULL, &#40;char*&#41; szDeviceVersion &#41;;\n      PHB_ITEM pSub = hb_itemArrayNew&#40; 2 &#41;;\n\n      hb_itemArrayPut&#40; pSub, 1, pDriver &#41;;\n      hb_itemArrayPut&#40; pSub, 2, pVersion &#41;;\n\n      hb_itemRelease&#40; pDriver &#41;;\n      hb_itemRelease&#40; pVersion &#41;;\n\n      hb_itemArrayPut&#40; pReturn, wIndex + 1, pSub &#41;;\n\n      hb_itemRelease&#40; pSub &#41;;\n\n    &#125;\n  &#125;\n\n  hb_itemReturn&#40; pReturn &#41;;\n  hb_itemRelease&#40; pReturn &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:fsh1wdpn]','',0,'UIA=','fsh1wdpn',1,0,'',397,0,0),(25334,5711,4,3,0,'82.255.126.86',1169401124,1,0,1,1,1,1,'','Kill Process at end of program ?','Antonio,\n\nIn many cases especially when using Ftp, the program remains in memory after quitting the app , all connexions are properly closed by the app.\n\nIs there a way to \"kill all process issued by the program\" ? and make sure it is ended in anyway ?\n\nI often have to reset completely my Hp Ipaq to run my app again.\n\nThanks for your help,\n\nRichard','',0,'UIA=','3io4bl9x',1,0,'',3,0,0),(25335,5674,3,51,0,'80.122.88.242',1169401190,1,0,1,1,1,0,'','','What is the conclusion of this threat?\n\nDo Silvio, Nop, Biel,  areang, Armando Picon, jose_murugosa, Maurilio Viana, George  start an open source project and if yes what is the timeframe we can expect a working prototype.\n\n\nRegards\nOtto','',0,'UIA=','2w3y9dfh',1,0,'',51,0,0),(25336,5688,2,812,0,'201.214.35.201',1169406583,1,0,1,1,1,0,'','','Hola maruramos:\n\nMe queda muy claro tu explicacion.\n\nMuchas gracias,\n\nSaludos,\n\nMiguel\n\n[quote=&quot;manuramos&quot;:1bmqi0jx][u:1bmqi0jx]Yo tuve el mismo problema[/u:1bmqi0jx] y resulta que aunque se supone que el primer indice se coge por defecto (una vez abierto con  USE o  SET INDEX), pues no es así, y tienes que emplear[b:1bmqi0jx] Alias-&gt;( OrdSetFocus( nº indice/\"nombre indice\" ) ) [/b:1bmqi0jx] [u:1bmqi0jx][b:1bmqi0jx]SIEMPRE[/b:1bmqi0jx][/u:1bmqi0jx].\n\nPor cierto, no te olvides de incluir MPAR.OBJ en la lista de objetos de tu LNK.\n\nSuerte.[/quote:1bmqi0jx]','',0,'wQ==','1bmqi0jx',1,0,'',812,0,0),(25337,5712,7,527,0,'83.37.6.166',1169407416,1,0,1,1,1,0,'','Como incluir una imagen','Como puedo incluir una imagen de mis articulos en FWPPC\nGRACIAS','',0,'wQ==','3bv7wb2v',1,0,'',527,0,0),(25338,5712,7,2,0,'87.218.146.216',1169408405,1,0,1,1,1,1,'','','Revisa samples\\TestBmp.prg','',0,'wQ==','1iiwv4a1',1,0,'',2,0,0),(25339,5711,4,13,0,'213.76.252.200',1169408448,1,0,1,1,1,0,'','','Richard,\n\nI use this code for testing \"sleep\" program process.\n\nRegards\nPawel\n\n[code:2u04azow]\n#define MAX_TASKS 256\n#define PROCESS_SIZE 128\n#define TITLE_SIZE 64\n\ntypedef struct _TASK_LIST\n&#123;\n   DWORD cntUsage;\n   DWORD dwProcessId;\n   DWORD dwInheritedFromProcessId;\n   DWORD cntThreads;\n   DWORD th32ModuleID;\n   DWORD th32DefaultHeapID;\n   LONG  pcPriClassBase;\n   BOOL  flags;\n   HWND  hwnd;\n   TCHAR ProcessName&#91;PROCESS_SIZE&#93;;\n   TCHAR WindowTitle&#91;TITLE_SIZE&#93;;\n&#125;\nTASK_LIST, *PTASK_LIST;\n\nDWORD GetTaskListCE &#40;PTASK_LIST pTask, DWORD dwNumTasks&#41;;\nBOOL KillProcess &#40;PTASK_LIST tlist, BOOL fForce = TRUE&#41;;\n\nHB_FUNC &#40;APPTASK&#41;\n&#123;\n   DWORD i = 0, j = 0, k = 0;\n   TASK_LIST tlist&#91;MAX_TASKS&#93;;\n   DWORD numTasks;\n   BOOL bCurrent = ISNIL &#40;1&#41; ? TRUE &#58; hb_parl &#40;1&#41;;\n   BOOL bRet = FALSE;\n\n   k = GetCurrentProcessId &#40;&#41;;\n   memset &#40;&amp;tlist, 0, sizeof &#40;TASK_LIST&#41; * MAX_TASKS&#41;;\n   numTasks = GetTaskListCE &#40;tlist, MAX_TASKS&#41;;\n   for &#40;i = 0; i &lt; numTasks; i ++&#41;\n   &#123;\n      if &#40;bCurrent || k != tlist&#91;i&#93;&#46;dwProcessId &amp;&amp; _tcscmp &#40;_tcsupr &#40;tlist&#91;i&#93;&#46;ProcessName&#41;, TEXT &#40;&quot;APPNAME&#46;EXE&quot;&#41;&#41; == 0&#41;\n      &#123;\n         KillProcess &#40;&amp;tlist&#91;i&#93;, TRUE&#41;;\n         bRet = TRUE;\n      &#125;\n   &#125;\n   hb_retl &#40;bRet&#41;;\n&#125;\n\nDWORD GetTaskListCE &#40;PTASK_LIST pTask, DWORD dwNumTasks&#41;\n&#123;\n   HINSTANCE hProcessSnap = NULL;\n   PROCESSENTRY32 pe32 = &#123;0&#125;;\n   DWORD dwTaskCount = 0;\n\n   if &#40;dwNumTasks == 0&#41; return 0;\n   hProcessSnap = &#40;HINSTANCE&#41; CreateToolhelp32Snapshot &#40;TH32CS_SNAPPROCESS, 0&#41;;\n   if &#40;hProcessSnap == &#40;HANDLE&#41; -1&#41; return 0;\n   dwTaskCount = 0;\n   pe32&#46;dwSize = sizeof &#40;PROCESSENTRY32&#41;;\n   if &#40;Process32First &#40;hProcessSnap, &amp;pe32&#41;&#41;\n   &#123;\n      do\n      &#123;\n         LPTSTR pCurChar;\n         if &#40;_tcsstr &#40;pe32&#46;szExeFile, L&quot;\\\\&quot;&#41;&#41;\n             pCurChar = _tcsrchr &#40;pe32&#46;szExeFile, \'\\\\\'&#41;;\n         else\n             pCurChar = pe32&#46;szExeFile;\n         lstrcpy &#40;pTask-&gt;ProcessName, pCurChar&#41;;\n         pTask-&gt;flags = 0;\n         pTask-&gt;dwProcessId = pe32&#46;th32ProcessID;\n         pTask-&gt;cntThreads = pe32&#46;cntThreads;\n         pTask-&gt;cntUsage = pe32&#46;cntUsage;\n         pTask-&gt;dwInheritedFromProcessId = pe32&#46;th32ParentProcessID;\n         pTask-&gt;th32ModuleID = pe32&#46;th32ModuleID;\n         ++ dwTaskCount;\n         ++ pTask;\n      &#125;\n      while &#40;dwTaskCount &lt; dwNumTasks &amp;&amp; Process32Next &#40;hProcessSnap, &amp;pe32&#41;&#41;;\n   &#125;\n   else dwTaskCount = 0;\n   CloseHandle &#40;hProcessSnap&#41;;\n   CloseToolhelp32Snapshot &#40;hProcessSnap&#41;;\n   return dwTaskCount;\n&#125;\n\nBOOL KillProcess &#40;PTASK_LIST tlist, BOOL fForce&#41;\n&#123;\n   HANDLE hProcess;\n\n   if &#40;fForce || !tlist-&gt;hwnd&#41;\n   &#123;\n      hProcess = OpenProcess &#40;PROCESS_ALL_ACCESS, FALSE, tlist-&gt;dwProcessId&#41;;\n      if &#40;hProcess&#41;\n      &#123;\n         hProcess = OpenProcess &#40;PROCESS_ALL_ACCESS, FALSE, tlist-&gt;dwProcessId&#41;;\n         if &#40;hProcess == NULL&#41;\n         &#123;\n            return FALSE;\n         &#125;\n         if &#40;!TerminateProcess &#40;hProcess, 1&#41;&#41;\n         &#123;\n            CloseHandle &#40;hProcess&#41;;\n            return FALSE;\n         &#125;\n         CloseHandle &#40;hProcess&#41;;\n         return TRUE;\n      &#125;\n   &#125;\n   PostMessage &#40;tlist-&gt;hwnd, WM_CLOSE, 0, 0&#41;;\n   return TRUE;\n&#125;\n[/code:2u04azow]','',0,'AIA=','2u04azow',1,0,'',13,0,0),(25340,5711,4,3,0,'82.255.126.86',1169408627,1,0,1,1,1,1,'','','Thank you\n\nBest regards\n\n\nRichard','',0,'AIA=','ev9bhuy3',1,0,'',3,0,0),(25341,5711,4,2,0,'87.218.146.216',1169408634,1,0,1,1,1,1,'','','Richard,\n\nHave you tried TerminateProcess( GetModuleHandle( 0 ), 0 ) ?','',0,'AIA=','djb8d1kp',1,0,'',2,0,0),(25342,5712,7,527,0,'81.33.206.190',1169409464,1,0,1,1,1,0,'','Lo siento pero no tengo este ejemplo','Lo siento pero no tengo este ejemplo','',0,'AIA=','258mxzw8',1,0,'',527,0,0),(25343,5711,4,3,0,'82.255.126.86',1169409627,1,0,1,1,1,1,'','','Antonio\n\nI will try this solution first and report if it is OK\n\nThanks\n\nRichard','',0,'AIA=','1748z6ho',1,0,'',3,0,0),(25344,5712,7,2,0,'87.218.146.216',1169410355,1,0,1,1,1,1,'','','De que fecha son las librerías del FWPPC que usas ?','',0,'AIA=','298vskt8',1,0,'',2,0,0),(25345,5712,7,527,0,'81.34.60.67',1169414028,1,0,1,1,1,0,'','No lo se la factura es del 08/04/06','No lo se la factura es del 08/04/06','',0,'AIA=','7fpfaape',1,0,'',527,0,0),(25346,5710,6,533,0,'88.8.26.25',1169417532,1,0,1,1,1,0,'','[Plantilla Harbour]','Buenas Noches Antonio, por casualidad, ¿podrías suministrar la plantilla de configuración de Harbour que aparece en el video para poder modificarla? He intentado a partir de una y NO se como hacerlo bien.\n\nMUCHAS GRACIAS  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','296ilkzp',1,0,'',533,0,0),(25347,5695,6,49,0,'62.13.172.78',1169421462,1,0,1,1,1,1,'','','oCapture  := TCapCapture():New( 25,25,320,240, oWnd , 0)\n   oCapture1 := TCapCapture():New( 350,25,320,240, oWnd , 0)\n   oCapture2 := TCapCapture():New( 675,25,320,240, oWnd , 0)\n\nwhen I must connect a cam \nI must write it for each cam \n\n IF oCapture:Conect()\n      oCapture:PreviewRate( nRate ) \n      oCapture:Preview(.T.) \n     * oCapture:Overlay( .T. ) \n   ELSE \n      ? \"No connect.... ;( \" \n  *    oWnd:End() \n   ENDIF \n\nHow I can connect to a IP to connect each cam ?\n\nI can explain ..\non the same pc I can use only a driver for one cam ....','',0,'AIA=','1tli22z4',1,0,'',49,0,0),(25348,5674,3,49,0,'62.13.172.78',1169422342,1,0,1,1,1,1,'','','While You found a conclusion for this threat I\'m working...\nand perhaps I found a solution for print a pdf fron Preview  using tpdf class and another class modified ....CLASS TSalXLS -&gt; TSalpdf but I think make it only for report class not for printer class','',0,'AIA=','33mpyzws',1,0,'',49,0,0),(25349,5712,7,2,0,'87.218.146.216',1169424030,1,0,1,1,1,1,'','','Por favor, prueba a construir este ejemplo:\n[code:2t81n3cc]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBmp\n\n   DEFINE WINDOW oWnd TITLE &quot;Bmp-Res&quot;\n\n   @ 5, 5 BITMAP oBmp FILENAME CURDIR&#40;&#41; + &quot;\\users&#46;bmp&quot; NOBORDER\n\n   oBmp&#58;lTransparent = &#46;t&#46;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;click!&quot; &#41;\n\nreturn nil\n[/code:2t81n3cc]','',0,'AIA=','2t81n3cc',1,0,'',2,0,0),(25350,5710,6,2,0,'87.218.146.216',1169424274,1,0,1,1,1,1,'','','Ruben,\n\nEl video subido en hyperupload:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/025743b836/uestudio1.zip.html\">http://hyperupload.com/download/025743b ... 1.zip.html</a><!-- m -->','',0,'AIA=','1rxd2a4k',1,1169424700,'',2,1,0),(25351,5710,6,2,0,'87.218.146.216',1169424667,1,0,1,1,1,1,'','','Mike,\n\nAqui están los ficheros de configuración para usar Harbour con UEStudio:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/025743b885/uestudio1.zip.html\">http://hyperupload.com/download/025743b ... 1.zip.html</a><!-- m -->','',0,'AIA=','1udwni68',1,0,'',2,0,0),(25352,5710,6,439,0,'200.125.44.189',1169430335,1,0,1,1,1,1,'','Ficheros de configuracion...','Antonio, \n\n1) Temo que en los dos link está el video explicativo, pero no los archivos de configuración ni la plantilla.\n\n2) Sirven estos archivos de configuración también para xharbour?\n\nGracias desde ya.','',0,'AIA=','u0p16u54',1,0,'',439,0,0),(25355,5710,6,785,0,'190.64.106.64',1169437420,1,0,1,1,1,0,'','','Gracias Maestro...\n\n\nSaludos\n\nRuben Fernandez','',0,'CA==','x6qrl6jp',1,0,'',785,0,0),(25356,5713,1,47,0,'203.144.143.4',1169448465,1,0,1,1,1,0,'','Special Event (small module) for free','Dear All,\n\nI made a special event module, if who interesting pls send me a private email.  I will send you for free.  This is time to pay back to all.\n\nBest regards,\nDutch\n\n[color=red:cahqvxj5][u:cahqvxj5][b:cahqvxj5]PS. I use TWbrowse() class of Hernan Ceccarelli.[/b:cahqvxj5][/u:cahqvxj5][/color:cahqvxj5]\n\n<!-- e --><a href=\"mailto:dutchez4@gmail.com\">dutchez4@gmail.com</a><!-- e -->\n\n[url=http&#58;//img208&#46;imageshack&#46;us/my&#46;php?image=event5ff&#46;jpg:cahqvxj5][img:cahqvxj5]http&#58;//img208&#46;imageshack&#46;us/img208/4640/event5ff&#46;th&#46;jpg[/img:cahqvxj5][/url:cahqvxj5]','',0,'Ww==','cahqvxj5',1,1169632535,'',47,2,0),(25357,5710,6,2,0,'87.218.146.216',1169455056,1,0,1,1,1,1,'','','José,\n\nAquí está el fichero de configuración correcto:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029aad7195/uestudio.zip.html\">http://hyperupload.com/download/029aad7 ... o.zip.html</a><!-- m -->\n\nSolo hay que cambiar la ruta del compilador y librerías para usar xHarbour','',0,'Ww==','23j1kpvl',1,0,'',2,0,0),(25360,5714,3,49,0,'213.82.134.66',1169455684,1,0,1,1,1,1,'','tbbutton','tbbutton support command menu omenu popup ?','',0,'Ww==','2okanbe5',1,0,'',49,0,0),(25361,5713,1,49,0,'213.82.134.66',1169455954,1,0,1,1,1,1,'','','can you send me it pls at <!-- e --><a href=\"mailto:silvio_falconi@tin.it\">silvio_falconi@tin.it</a><!-- e -->\nthanks','',0,'Ww==','29kykcvh',1,0,'',49,0,0),(25362,5715,4,266,0,'121.120.42.232',1169457139,1,0,1,1,1,1,'','TESTBRW.RC','new FWPPC buildh 27th Jan sample TESTBRW.PRG,TESTBRW.RC open error','',0,'Ww==','3jp2oo9c',1,0,'',266,0,0),(25363,5715,4,2,0,'87.218.146.216',1169457513,1,0,1,1,1,1,'','','Hoe,\n\nPlease copy Customer.dbf to the Pocket PC emulator shared directory','',0,'Ww==','wtuhufou',1,0,'',2,0,0),(25364,5714,3,2,0,'87.218.146.216',1169457613,1,0,1,1,1,1,'','','Silvio,\n[code:1phltql1]\n#xcommand DEFINE TBMENU ;\n             &#91; OF &lt;oToolBar&gt; &#93; ;\n             &#91; ACTION &lt;uAction&gt; &#93; ;\n             &#91; TOOLTIP &lt;cToolTip&gt; &#93; ;\n             &#91; PROMPT &lt;cPrompt&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; MENU &lt;oMenu&gt; &#93; ;\n[/code:1phltql1]\nPlease review samples\\toolbar1.prg and toolbar2.prg','',0,'AIA=','1phltql1',1,0,'',2,0,0),(25365,5716,4,49,0,'213.82.134.66',1169458670,1,0,1,1,1,1,'','help for compatible palm','HTC Tytn QTEK 9600 UMTS/ Pocket PC  is compatible with fwppc ?\nProcessor: SAMSUNG a 400 MHz\n\n\nSmartphone Microsoft Windows Mobile 5.0 Pocket PC, Processore Samsung, 400MHz, GSM GPRS UMTS HSDPA: GSM/GPRS, EDGE Tri-band UMTS Tri-band (850/1900/2100), \n\nSistema Operativo: Microsoft Windows Mobile 5.0\nReti: GSM/GPSRS/EDGE Quad-band (850/900/1800/1900 MHz) HSDPA/UMTS Tri-Band (850/1900/2100 MHz)\nConnettività: Bluetooth V 2.0 Class 2, USB 1.1\nFotocamera: Sensore principale: CMOS da 2.0 Megapixel - Selettore Macro\nProcessore: SAMSUNG a 400 MHz\nMemoria: ROM 128Mb, RAM 64 Mb SDRAM\nDimensioni: 112.5mm(A) x 58mm(L) x 21.95mm(S)\nSchermo: 2,8” TFT LCD, risoluzione 240 x320 a 65.536 colori\nBatteria: Ioni di Litio 1350 mAh\nAutonomia in Standby: Fino a 200 ore\nAutonomia in Conversazione: 4 ˜ 5 ore\nPeso: 176 grammi con batteria\nEspandibilità: Micro SD Slot','',0,'AIA=','3m3nebdq',1,0,'',49,0,0),(25366,5717,4,266,0,'121.120.42.232',1169458826,1,0,1,1,1,1,'','REDEFINE LISTBOX','In RC, I add listbox with vertical/horizontal scrollbar ticked , then :-\n\nREDEFINE LISTBOX ... ;\n  HEADERS ...\n  FIELDS ...\n  SIZES ...\n  ID 101 OF oFld:aDialogs[1]\n\nthe listbox shown all data fine (from dbf/cdx) , \n\n- horizontal scrollbar : use keyboard move ok, mouse click disabled only when reach last field\n\n- vertical scrollbar : use keyboard move ok, mouse click disabled totally','',0,'','1m6ps2xz',1,0,'',266,0,0),(25367,5714,3,49,0,'213.82.134.66',1169458870,1,0,1,1,1,1,'','','ooopps...\n\nthanks mr Antonio','',0,'','2azbe0a6',1,0,'',49,0,0),(25368,5718,7,527,0,'88.11.2.97',1169458916,1,0,1,1,1,0,'','Definir matrices','Como puedo definir una matriz de por ejemplos TIPOSIVA(10,5)\nGRACIAS','',0,'','119aqu5r',1,0,'',527,0,0),(25369,5696,7,720,0,'80.36.244.134',1169459441,1,0,1,1,1,0,'','','Gracias Antonio, es lo que pretendia hacer. Lo que pasa es que nose como cambiarle el color. La siguiente instruccion funciona pero no me cambia el color del caption cada vez que pulso en el boton...\n\nredefine button obtn id 500 of odlg15 action (lval:=!lval,iif(lval,(obtn:settext(om1), RGB(230,184,94)),(obtn:settext(om1),RGB(255,0,0))))\n\n\nSaludos.\n\nElías Torres.','',0,'','3sakvsk2',1,0,'',720,0,0),(25370,5712,7,527,0,'88.11.2.97',1169459450,1,0,1,1,1,0,'','Necesitaba lo siguiente','Necesitaba un ejemplo como el que esta en el fichero de ejemplos clients.prg que viene con el sofware (PRODEMIENTO ABOUT)\nLa unica diferencia es que el BMP deberia poder colocar yo el que quisiera ya que el que viene con el ejemplo viene dentro de un fichero RC\n\nGRACIAS, ES MUY IMPORTANTE QUE PUEDA SOLUCIONAR ESTO.\n\nGRACIAS','',0,'','28rlp319',1,0,'',527,0,0),(25371,5674,3,217,0,'200.159.120.34',1169462770,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:3ln3vlbc]Hello Maurilio,\nPlease read the whole sentence. I don’t believe that you are able to develop a ReportGenerator as a FiveWin open source project.\nI am in this community since version 1.4 of FiveWin (I think it was 1994) and I know this group. I  think at the moment you do not  find \nFivewinners who contribute.\n[/quote:3ln3vlbc]\n\nRight. Now I understand what you said. It wasn\'t clear to me in 1st time...\n\n[quote:3ln3vlbc]\nMaurilio, if your photo is up to date you are one of the new generation Fivewinners and time is not so as valuable for you as for people\nwho are 20 years older and must earn their money.\n[/quote:3ln3vlbc]\n\nOtto, I have 31 years old and work with FW since FW 1.92.\n\nBest regards,\nMaurilio','',0,'gA==','3ln3vlbc',1,0,'',217,0,0),(25372,5717,4,2,0,'87.218.146.216',1169463010,1,0,1,1,1,1,'','','Hoe,\n\nThis sample works fine:\n[code:ij9jxqjm]\n#include &quot;FWCE&#46;ch&quot;\n\nREQUEST DBFCDX\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBrw, hBmp &#58;= ReadBitmap&#40; CurDir&#40;&#41; + &quot;\\go&#46;bmp&quot; &#41;\n\n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41; VIA &quot;DBFCDX&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;Tutor10&quot;\n   \n   @ 1, 1 LISTBOX oBrw ;\n      FIELDS hBmp, Customer-&gt;Last, Customer-&gt;First ;\n      HEADERS &quot;&quot;, &quot;Last&quot;, &quot;First&quot; ;\n      SIZE 220, 167\n   \n   @ 12, 2 BUTTON &quot;Dlg&quot; SIZE 80, 30 ;\n      ACTION OpenDialog&#40;&#41;\n\n   @ 12, 17 BUTTON &quot;Done&quot; SIZE 80, 30 ;\n      ACTION oWnd&#58;End&#40;&#41;\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n\nfunction OpenDialog&#40;&#41;\n\n   local oDlg, oLbx\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n   \n   REDEFINE LISTBOX oLbx FIELDS First, Last ID 10 OF oDlg\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil   \n[/code:ij9jxqjm]\n[code:ij9jxqjm]\n#include &quot;&#46;&#46;\\include\\winapi&#46;ch&quot;\n\ntest DIALOG 6, 15, 150, 119\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;&quot;, 10, &quot;TWBrowse&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_BORDER | WS_TABSTOP, 3, 5, 143, 88\n DEFPUSHBUTTON &quot;OK&quot;, IDOK, 20, 99, 50, 14\n PUSHBUTTON &quot;Cancel&quot;, IDCANCEL, 80, 99, 50, 14\n&#125;\n[/code:ij9jxqjm]','',0,'AIA=','ij9jxqjm',1,0,'',2,0,0),(25373,5718,7,2,0,'87.218.146.216',1169463222,1,0,1,1,1,1,'','','Te refieres a un array de 5 elementos de 10 caracteres cada uno ?\n\nlocal aIva := { \"tipo 1\", \"tipo 2\", \"tipo 3\", \"tipo 4\", \"tipo 5\" }','',0,'AIA=','3zottewa',1,0,'',2,0,0),(25374,5712,7,2,0,'87.218.146.216',1169463346,1,0,1,1,1,1,'','','Usa:\n\nREDEFINE BITMAP oBmp FILENAME \'FWPPC.bmp\' ID 200 OF oDlg','',0,'AIA=','38j058fk',1,0,'',2,0,0),(25375,5696,7,2,0,'87.218.146.216',1169463472,1,0,1,1,1,1,'','','Elías,\n\noBtn:SetColor( 0, nRGB(230,184,94) )\n\npero, si no me equivoco, los botones estandard de Windows no te permitirán cambiarles su color de fondo, por eso tendrías que usar un TBtnBmp que no es estandard y tenemos control total sobre él','',0,'AIA=','3tfnow57',1,0,'',2,0,0),(25376,5718,7,527,0,'88.11.2.97',1169463476,1,0,1,1,1,0,'','Me refiero a una matriz','Un elemento que contenga diez elementos por ejemplo\niva(1,1) = 0\nivas(1,2)=0\nivas(1,3)=0\n......\nivas(2,1)=0\nivas(2,2) = 0\netc \netc\netc\nGRACIAS.','',0,'AIA=','3iqnh97a',1,0,'',527,0,0),(25377,5718,7,2,0,'87.218.146.216',1169463541,1,0,1,1,1,1,'','','local aIva := { 5, 10 }\n\naIva[ 1, 1 ] = 0\naIva[ 1, 2 ] = 0\n...\naIva[ 2, 10 ] = 0\n...','',0,'','1jyvzvej',1,0,'',2,0,0),(25378,5711,4,3,0,'82.120.159.72',1169463624,1,0,1,1,1,1,'','','Antonio,\n\nYour solution is fine to \"end the program\" , it works OK.\n\nI like Pawel\'s idea of killing all sleeping process. I think about a gprs connexion that did not close properly etc.. .This can be a great add on to fwppc at the end of the app if it could be executed auomatically.\n\nI am having problems compiling pawel\'s code.\n\nDo i need any particular header files  different than the standard ones windows.h  and hbapi.h ? \n\nThanks for the help  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRichard','',0,'','1s4nrtqn',1,0,'',3,0,0),(25379,5719,7,400,0,'200.205.49.10',1169464085,1,0,1,1,1,1,'','Demo p/ PcPocket','Bom dia, \neu tenho um Pc Pocket HP rx1950, e gostaria de começar a desenvolver sistemas p/ Palm, mas, antes de comprar o Fw PcPocket, queria ver um demo com Banco de Dados, p/ testar no Palm, p/ avaliaçao da ferramenta e do Aparelho.\n\nFico grato se algum puder enviar alguma Demo, no email:\n\n<!-- e --><a href=\"mailto:ale.seribeli@uol.com.br\">ale.seribeli@uol.com.br</a><!-- e -->\n\nAgradeço antecipadamente pela colaboraçao, obrigado !!!\n\n\n@braços Ale','',0,'','20mc9n84',1,0,'',400,0,0),(25380,5719,7,2,0,'87.218.146.216',1169464393,1,0,1,1,1,1,'','','Ale,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/clients.zip\">http://www.fivetechsoft.com/files/clients.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce5.zip\">http://www.fivetechsoft.com/files/fwce5.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce6.zip\">http://www.fivetechsoft.com/files/fwce6.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce7.zip\">http://www.fivetechsoft.com/files/fwce7.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce8.zip\">http://www.fivetechsoft.com/files/fwce8.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce9.zip\">http://www.fivetechsoft.com/files/fwce9.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/fwce10.zip\">http://www.fivetechsoft.com/files/fwce10.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/tutor11.zip\">http://www.fivetechsoft.com/files/tutor11.zip</a><!-- m -->','',0,'','2agp0kfr',1,0,'',2,0,0),(25381,5720,6,898,0,'200.232.246.174',1169465170,1,0,1,1,1,0,'','Desligamento do windows','Pessoal tudo bom?\n\nSeguinte, existe alguma forma de eu saber se o windows esta no processo de desligamento dele?\n\nPreciso que quando ele estiver sendo desligado meu programa faça uma operação.....\n\n\nAlguem tem alguma idéia?\n\nObrigado\n[]s!!!','',0,'','2e45cbm1',1,0,'',898,0,0),(25382,5674,3,49,0,'213.82.134.66',1169465270,1,0,1,1,1,1,'','','I\'m workin with Fw  since Fw 1.4 + clipper5.2','',0,'','2rxry4xp',1,0,'',49,0,0),(25383,5718,7,527,0,'88.11.2.97',1169466089,1,0,1,1,1,0,'','Gracias','Gracias.','',0,'','mp1riuhb',1,0,'',527,0,0),(25384,5718,7,527,0,'88.11.2.97',1169466328,1,0,1,1,1,0,'','Otra pregunta por favor.','Como puedo definir una variable en la que pueda leer o cambiar su valor desde cualquier programa la cual depende de un programa principal\nPOR EJEMPLO\n\nFUNCTION inicio()\n  clientes=0\n  add_cli()\nRETURN 0\n\nFUNCTION add_cli\n  clientes = clientes + 1\n  ******\n  * ESTOY HACIEDO REFERENCIA A UNA VARIABLE QUE NO HE DEFINIDO EN ESTA FUNCION\n  ******\nRETURN 0\n\nGRACIAS.','',0,'','1bwre3e4',1,0,'',527,0,0),(25385,5718,7,2,0,'87.218.146.216',1169466393,1,0,1,1,1,1,'','','public nombre_variable','',0,'','1yscz1gj',1,0,'',2,0,0),(25386,5718,7,527,0,'88.11.2.97',1169466436,1,0,1,1,1,0,'','GRACIAS','GRACIAS.','',0,'','37vw89os',1,0,'',527,0,0),(25387,5710,6,439,0,'200.125.49.132',1169469445,1,0,1,1,1,1,'','','Gracias Antonio, lo probaré estos días, a ver como me resulta.','',0,'','1ruoo57d',1,0,'',439,0,0),(25388,5721,6,104,0,'201.58.65.194',1169469794,1,0,1,1,1,0,'','To Antonio - GPF com MDICHILD  + DIALOG','Olá Antonio,\n\nEstou usando DIALOG dentro de uma WINDOW MDICHILD e está me ocorrendo erro de GPF.  Simulei o erro usando o sample \\fwh\\samples\\testmdix.prg. Veja o exemplo abaixo:\n\n[code:2z8vw6it]\n// This is an example of how to place controls inside a MDIChild\n// from a dialog built from source code\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oBar\n\n   SET _3DLOOK ON\n\n   DEFINE WINDOW oWnd TITLE &quot;MDIChilds from resources&quot; MDI\n\n   DEFINE BUTTONBAR oBar _3D OF oWnd\n\n   DEFINE BUTTON OF oBar ACTION &#40; Child&#40;&#41;, MsgInfo&#40; oWnd&#58;oWndClient&#58;aWnd&#91; 1 &#93;&#58;cCaption &#41; &#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Child&#40;&#41;\n\n   local oWndChild, oDlg, oBtn\n   local cName &#58;= &quot;Testing&#46;&#46;&#46;&quot;\n\n   DEFINE WINDOW oWndChild MDICHILD OF oWnd ;\n      COLOR &quot;N/W&quot;\n\n   oWndChild&#58;bGotFocus  = &#123; || oDlg&#58;SetFocus&#40;&#41; &#125;\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 10, 20 ;\n      STYLE WS_CHILD OF oWndChild\n\n   oDlg&#58;bLostFocus = &#123; || MsgBeep&#40;&#41; &#125;\n\n   @ 2, 2 BUTTON &quot;&amp;Ok&quot; OF oDlg ACTION MsgInfo&#40; &quot;Click&quot; &#41;\n\n   ACTIVATE DIALOG oDlg NOWAIT ;  // It has to be NonModal --&gt; NOWAIT clause\n      ON INIT oDlg&#58;Move&#40; 0, 0 &#41;\n\n   ACTIVATE WINDOW oWndChild ;\n      ON INIT oWndChild&#58;SetSize&#40; oDlg&#58;nWidth, oDlg&#58;nHeight &#41;\n\n   A += 1   &amp;&amp; Aqui simulo o erro\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:2z8vw6it]\n\nAo executar a linha \"A += 1\" é retornada a tela de erro padrão de FWH  e em seguida ocorre o erro de GPF abaixo:\n\n[url:2z8vw6it]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/gpf1&#46;png[/url:2z8vw6it]\n\nQual seria a solução para este GPF ?\n\nGracias,\n\nRossine.','',0,'EIA=','2z8vw6it',1,0,'',104,0,0),(25389,5719,7,400,0,'200.205.49.10',1169470381,1,0,1,1,1,1,'','','Gracias Antonio,\n\nVou testa-los\n\n@braços Ale','',0,'EIA=','2c3bnyyt',1,0,'',400,0,0),(25390,5717,4,266,0,'121.120.13.136',1169472291,1,0,1,1,1,1,'','','Sorry, my mistake.\n\nAfter adding more rows of data, it works fine.','',0,'EIA=','famnxrhg',1,0,'',266,0,0),(25391,5721,6,2,0,'87.218.146.216',1169475381,1,0,1,1,1,1,'','','Rossine,\n\nPlease add these lines in source\\function\\errsysw.prg:\n[code:359zu026]\n   if lRet == nil &#46;or&#46; &#40; !LWRunning&#40;&#41; &#46;and&#46; lRet &#41;\n      SET RESOURCES TO\n      ErrorLevel&#40; 1 &#41;\n      // NEW !!!\n      for n = 1 to Len&#40; GetAllWin&#40;&#41; &#41;\n         if ValType&#40; GetAllWin&#40;&#41;&#91; n &#93; &#41; == &quot;O&quot;\n            GetAllWin&#40;&#41;&#91; n &#93;&#58;UnLink&#40;&#41;\n         endif   \n      next\n      // NEW !!!\n      QUIT              // must be QUIT !!!\n   endif\n[/code:359zu026]','',0,'AIA=','359zu026',1,0,'',2,0,0),(25392,5713,1,235,0,'189.140.63.41',1169477728,1,0,1,1,1,0,'','','can you send me it please at <!-- e --><a href=\"mailto:gerardofarfan@yahoo.com\">gerardofarfan@yahoo.com</a><!-- e -->\nthanks','',0,'AIA=','1sqynnw6',1,0,'',235,0,0),(25393,5642,3,217,0,'200.159.120.34',1169478447,1,0,1,1,1,0,'','Re: Products','[quote=&quot;TimStone&quot;:3hex6prk]When I first saw the RibbonBar info I tried to find a website that would display the products, but only found a banner.\n[/quote:3hex6prk]\n\nThat\'s true.\nPaco, do you have plan to enable Canal Five website again?\n\nRegards,\nMaurilio','',0,'gA==','3hex6prk',1,0,'',217,0,0),(25394,5713,1,529,0,'200.159.198.5',1169481169,1,0,1,1,1,0,'','','HI, please sendo to <!-- e --><a href=\"mailto:norbertolf@terra.com.br\">norbertolf@terra.com.br</a><!-- e -->','',0,'gA==','3din8p58',1,0,'',529,0,0),(25395,5720,6,362,0,'200.168.52.156',1169481475,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=302\">http://www.fivewin.com.br/exibedicas.asp?id=302</a><!-- m -->','',0,'gA==','u3aras0g',1,0,'',362,0,0),(25396,5722,6,774,0,'200.72.179.125',1169481631,1,0,1,1,1,1,'','ALGO CON ELEGANCIA','he empesado recien en el mundo de xharbour,, y dentro de los demos no he visto ningun menu principal con elegancia,,, alguien tiene un codigo de ejemplo y operativo para tomar como base..\n\nGRACIAS--','',0,'gA==','21ysvh5a',1,0,'',774,0,0),(25397,5722,6,492,0,'189.147.32.43',1169482285,1,0,1,1,1,1,'','','Hola A&amp;C\n\nClaro que hay opciones !!!\n\nPuedes checarte  :\n\nToolBar Nativa, Excelente !!\nC5Menu de Paco Garcia, Estupenda !!\nMenu Office 2003 y XP de Arturo Tamayo, Magnifica !!\nOfficeBar de Paco Garcia, Unica !!\n\nTodas ofrecen opciones para todos los gustos  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nPD : Sorry si no nombre algunas otras\n\nSaludos','',0,'gA==','tj1vhza2',1,0,'',492,0,0),(25398,5713,1,388,0,'61.94.40.92',1169484225,1,0,1,1,1,0,'','','can you send me it pls : <!-- e --><a href=\"mailto:yukfa@yahoo.com\">yukfa@yahoo.com</a><!-- e -->\n\nRegards,\n\nKok','',0,'gA==','3kvvqvkc',1,0,'',388,0,0),(25399,5722,6,774,0,'200.72.179.125',1169485040,1,0,1,1,1,1,'','','Raymundo y dnd las puedo conseguir,, o estan dentro del FWH27\n\ntienes algun ejemplo operativo\ntu las usas\n\nGRACIAS','',0,'gA==','2269kv2n',1,0,'',774,0,0),(25400,5567,6,43,0,'189.128.5.162',1169485104,1,0,1,1,1,0,'','','Ok, despues de buscar ( y no haber checado nuevamente el ejemplo) lo encontre.\n\nAntes se definia el menu asi:\n\n[b:ty7uoao3]MENU oMenu ;\n         ColorMenu bla,bla,bla, etc\n\n         MENUITEM \"&amp;Nuevo\" ;\n              bla, bla, bla[/b:ty7uoao3]\n\nahora se hace asi:\n\n[b:ty7uoao3]MENU oMenu MENUBAR ; &lt;-- he aqui lo que no habia tomado encuenta.  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n         ColorMenu bla, bla, bla, etc\n\n         MENUITEm \"&amp;Nuevo\" ;\n              bla, bla, bla[/b:ty7uoao3]\n\n\nEso resolvio mi problema antes mencionado, Gracias.\n\nSaludos\nMarco A. Delgado.','',0,'QA==','ty7uoao3',1,0,'',43,0,0);
INSERT INTO `phpbb_posts` VALUES (25401,5720,6,898,0,'200.232.246.174',1169485369,1,0,1,1,1,0,'','','Muito obrigado João, mas neste exemplo eu só consigo desligar o pc, ou reiniciar, etc...\n\nOque eu gostaria é saber se o windows esta no processo de desligamento.\n\n\n\n\n[]s','',0,'','1hg6yb35',1,0,'',898,0,0),(25402,5723,3,31,0,'89.190.104.93',1169485646,1,0,1,1,1,1,'','Question about RTF table','Hello !\n\n  In attached image of RTF file you can see a template for RTF report . The problem that I don\'t know how to insert new lines in RTF table . If I want to fill this table from DBF data , I\'m searching [tabnom] , [fio] and etc. labels which I change with data , then if it\'s needfull add new line and again search/replace . I\'m using TRichEdi.prg class . So any help it\'s very appreciated ... \n\n \n[img]\n<!-- m --><a class=\"postlink\" href=\"http://primeupload.com/file/31429/rtf-templ.jpg.html\">http://primeupload.com/file/31429/rtf-templ.jpg.html</a><!-- m -->\n[/img]\n\n  With best regards ! Rimantas','',0,'','2gqaitqd',1,0,'',31,0,0),(25404,5722,6,492,0,'189.147.32.43',1169486052,1,0,1,1,1,1,'','','Algunas estan incluidas en el propio FWH, otras las puedes encontrar aqui mismo en el foro, y otras mas son de paga, pero realmente valen lo que cuestan !!!\n\nPasa al link de Busquedas y localiza links de estas clases y tendras toda la informacion necesaria.\n\nClaro que las he usado, a excepcion de la OfficeBar de Paco, misma que estoy por adquirir, hay un link con una demo, checala y veras que esta DPM.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nLa clase de Arturo la estoy checando, esta muy bien !\n\nSaludos','',0,'','12ptpd5g',1,0,'',492,0,0),(25405,5724,7,832,0,'201.122.21.224',1169486556,1,0,1,1,1,0,'','Ayuda ¡¡Urgente!!','HOLA A TODOS...\n\n\nTENGO UNA PREGUNTA PARA TODOS, ALGUIEN SABE COMO UTILIZAR UNA BARRA.. DE PROGRESO..\n\n\nREDEFINE METER oMeter VAR nPos ID 130 OF oDlg ;\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> ESPERO Y ME PUEDAN AYUDAR.....Y MUCHAS GRACIAS POR SU APOYO...','',0,'','s4glnb44',1,0,'',832,0,0),(25406,5720,6,362,0,'200.168.52.156',1169486616,1,0,1,1,1,1,'','','[quote=&quot;Rodrigo Pavan&quot;:281kiwg4]Muito obrigado João, mas neste exemplo eu só consigo desligar o pc, ou reiniciar, etc...\n\nOque eu gostaria é saber se o windows esta no processo de desligamento.\n\n\n\n\n[]s[/quote:281kiwg4]\n\n\nCreo, esto no sea posible! \n\nEntra en contacto con MICROSOFT.\n\nRegards, saludos.','',0,'gA==','281kiwg4',1,0,'',362,0,0),(25407,5722,6,838,0,'80.59.225.15',1169487302,1,0,1,1,1,0,'','','A&amp;C\nRecibiste mi correo?\n\nSaludos\n\nJose Luis','',0,'gA==','na2tpy65',1,0,'',838,0,0),(25408,5724,7,2,0,'87.218.146.216',1169488772,1,0,1,1,1,1,'','','Pedro,\n\nEn FWPPC tienes que usar Progress Bars:\n\n   @ 4, 6 PROGRESS oPgr POS 5 OF oWnd SIZE 150, 15\n\nRevisa samples\\TestProg.prg','',0,'gA==','2o1vcn2n',1,0,'',2,0,0),(25409,5713,1,2,0,'87.218.146.216',1169488912,1,0,1,1,1,1,'','','Dutch,\n\nYou may better upload it to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w --> so everybody may download it, thanks','',0,'gA==','2n6cgd1s',1,0,'',2,0,0),(25410,5722,6,774,0,'200.72.179.125',1169490485,1,0,1,1,1,1,'','','Jose Luis Muchas gracias me ha servido de mucho,, y creo q me ahorre unos dolores de cabeza\n\n\nSE AGRADECE','',0,'gA==','2kkyvw7x',1,0,'',774,0,0),(25411,5724,7,832,0,'201.122.21.224',1169493688,1,0,1,1,1,0,'','HOLA ANTONIO','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  TENGO UNA PEQUEÑA DUDA DE COMO AVANZO EL PREGRESS BAR...\nME PODRIAS DECIR COMO LE HAGO PARA PODER AVANZAR EL PROGRESS...ADEMAS SI PUEDO DARLE UN TAMAÑO INICIAL Y EL TAMAÑO FINAL QUE VA A RECORRER EL PROGRESBAR\n\nCOMO ESTO EN FIVEWIN\n\n oMeter:Set(0)\n oMeter:nTotal=RecCount()\n \nY AL IGUAL ESTE METODO\n\noSay :SetText(\' Reg: \'+str(regtotal)+\'/\'+str(RECNO()))\n\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> ESPERO Y ME PUEDAN AYUDAR ........\n\n\nY GRACIAS A TODOS....','',0,'gA==','1hcu298j',1,0,'',832,0,0),(25412,5725,6,774,0,'200.72.179.125',1169494922,1,0,1,1,1,1,'','ARBOLES','alguien me podria facilitar un ejemplo operativo de TREE\n\nGRACIAS','',0,'gA==','3488ja2h',1,0,'',774,0,0),(25413,5721,6,104,0,'201.58.65.194',1169496193,1,0,1,1,1,0,'','','Antonio,\n\nQuando clico em \"Quit\" o sistema é abortado normalmente, sem ocorrer o erro de GPF  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\n...mas se clico em \"Retry\" aí ocorre o erro de GPF novamente  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nGracias,\n\nRossine.','',0,'gA==','3mjumnq2',1,0,'',104,0,0),(25414,5726,6,53,0,'189.139.26.203',1169501054,1,0,1,1,1,1,'','La mejor clase para trabajar con Excel ?','Saludos a todos los del foro:\n\nCreo que esta pregunta ya se ha puesto en el foro pero como se que las clases constantemente estan siendo renovadas por sus autores vuelvo a hacerla.\n\nCual es la mejor clase para leer y escribir sobre archivo Excel ?\n\nMe gustaría leer sus experiencias.\n\nGracias, Armando','',0,'gA==','s48e1uke',1,0,'',53,0,0),(25415,5721,6,362,0,'200.168.52.156',1169501469,1,0,1,1,1,1,'','','#Include \"Error.Ch\"\n#Include \"FiveWin.Ch\"\n\n#Define SW_SHOWNA         8   // &amp;H8\n#Define SW_SHOW           5   // &amp;H5\n#Define SW_HIDE           0   // &amp;H0\n\nExternal _fwGenError   // Link FiveWin generic Error Objects Generator\n\n#Define NTRIM(n)    ( LTrim( Str( n ) ) )\n\n#Ifdef __CLIPPER__\n   #define DLG_TITLE \"FiveWin: The CA-Clipper For Windows Library\"\n#Else\n   #Ifdef __XHARBOUR__\n      #define DLG_TITLE \"FiveWin For [x]Harbour-Erros de GPF\"\n   #Else\n      #define DLG_TITLE \"FiveWin For Xbase++\"\n   #Endif\n#Endif\n\n/*************\n*	ErrorSys()\n*\n*	Note:  automatically executes at startup\n*/\nproc ErrorSys()\n    ErrorBlock( { | e | ErrorDialog( e ) } )\nreturn\n\nproc ErrorLink()\nreturn\n\n\n/*************\n*   ErrorDialog()\n*/\nstatic function ErrorDialog( e ) // -&gt; logical or quits App.\n\n   local oDlg, oLbx, oFont, oWnd\n   local lRet    // if lRet == nil -&gt; default action: QUIT\n   local n, j, cMessage, aStack := {}\n   local oSay, hLogo\n   local nButtons  := 1\n   local cErrorLog := \"\"\n   local aVersions := GetVersion()\n   local aTasks\n   local aRDDs, nTarget, uValue\n   local oOldError\n   local cRelation\n   local lIsWinNT := IsWinNT()\n\n   // by default, division by zero yields zero\n   if ( e:genCode == EG_ZERODIV )\n      return 0\n   end\n\n   // for network open error, set NETERR() and subsystem default\n   if ( e:genCode == EG_OPEN .and. ;\n      ( e:osCode == 32 .or. e:osCode == 5 ) .and. ;\n        e:canDefault )\n      NetErr( .t. )\n      return .f.       // Warning: Exiting!\n   end\n\n   // for lock error during APPEND BLANK, set NETERR() and subsystem default\n   if ( e:genCode == EG_APPENDLOCK .and. e:canDefault )\n      NetErr( .t. )\n      return .f.       // OJO SALIDA\n   endif\n\n   if Left( ProcName( 7 ), 10 ) == \"ERRORDIALO\"\n       DBCLOSEALL()\n       SET RESOURCES TO\n       ErrorLevel( 1 )\n       // \"Exibindo a barra de tarefas\"\n       ShowWindow(FindWindow( \'Shell_TrayWnd\',Nil), SW_SHOWNA)\n       oWnd:End()\n       __QUIT()\n   endif\n\n   ErrorBlock( {|e| ( MsgStop( OemToAnsi( ErrorMessage(e) ), \"Mensagem de Erro\" )+;\n                    \" Linha do Erro: \" +                                          ;\n                    Str( ProcLine( 1 ), 3 ) ), __Quit() } )\n\n   cErrorLog += \"Aplica&#8225;Æo: \" + CRLF\n   cErrorLog += \"===========\" + CRLF\n   cErrorLog += \"   Caminho(Path): \" + GetModuleFileName( GetInstance() )\n\n   #ifdef __CLIPPER__\n      cErrorLog += \" (16 bits)\" + CRLF\n   #else\n      cErrorLog += \" (32 bits)\" + CRLF\n   #endif\n\n   cErrorLog += \"   Tamanho: \" + Transform( FSize( GetModuleFileName( ;\n                GetInstance() ) ), \"9,999,999 bytes\" ) + CRLF\n   #ifdef __CLIPPER__\n      cErrorLog += \"   Numero Maximo de Arquivos Permitidos: ( SetHandleCount() ) \" + ;\n                   Str( SetHandleCount(), 3 ) + CRLF\n   #endif\n\n   cErrorLog += \"   Hora Inicial: \" + TimeFromStart() + CRLF\n\n   cErrorLog += \"   Ocorrencia de Erro: \" + ;\n                DToC( Date() ) + \", \" + Time() + CRLF\n\n   // Error object analysis\n   cMessage   = \"   Descri&#8225;Æo do Erro: \" + ErrorMessage( e ) + CRLF\n   cErrorLog += cMessage\n\n   if ValType( e:Args ) == \"A\"\n      cErrorLog += \"   Argumentos:\" + CRLF\n      for n = 1 to Len( e:Args )\n         cErrorLog += \"     [\" + Str( n, 4 ) + \"] = \" + ValType( e:Args[ n ] ) + ;\n                      \"   \" + cValToChar( e:Args[ n ] ) + CRLF\n      next\n   endif\n\n   cErrorLog += CRLF + \"Chamada da Pilha: \" + CRLF\n   cErrorLog +=        \"================= \" + CRLF\n      n := 2    // we don\'t disscard any info again !\n      while ( n &lt; 74 )\n          if ! Empty(ProcName( n ) )\n             AAdd( aStack, \"   Chamada De: \" + Trim( ProcName( n ) ) + ;\n                           \"(\" + NTRIM( ProcLine( n ) ) + \")\" )\n             cErrorLog += ATail( aStack ) + CRLF\n          endif\n          n++\n    end\n\n   cErrorLog += CRLF + \"Sistema: \" + CRLF\n   cErrorLog += \"======\" + CRLF\n\n   #ifdef __CLIPPER__\n      cErrorLog += \"   CPU Tipo: \" + GetCPU() + CRLF\n   #else\n      cErrorLog += \"   CPU Tipo: \" + GetCPU() + \" \" + ;\n                   AllTrim( Str( GetCPUSpeed() ) ) + \" Mhz\" + CRLF\n   #endif\n\n   cErrorLog += \"   Hardware Memoria: \" + ;\n                cValToChar( Int( nExtMem() / ( 1024 * 1024 ) ) + 1 ) + ;\n                \" megas\" + CRLF + CRLF\n\n   cErrorLog += \"   Recursos Livres(Free): \" + AllTrim( Str( GetFreeSystemResources( 0 ) ) ) + \" %\" + CRLF + ;\n                \"        GDI    Recursos : \" + AllTrim( Str( GetFreeSystemResources( 1 ) ) ) + \" %\" + CRLF + ;\n                \"        Recursos Usados : \" + AllTrim( Str( GetFreeSystemResources( 2 ) ) ) + \" %\" + CRLF + CRLF\n\n   cErrorLog += \"   Versão do Compilador: \" + Version() + CRLF\n\n   #ifdef __CLIPPER__\n      cErrorLog += \"   VersÆo do MsDos e Windows: \" + ;\n                   AllTrim( Str( aVersions[ 1 ] ) ) + \".\" + ;\n                   AllTrim( Str( aVersions[ 2 ] ) ) + \", \" + ;\n                   AllTrim( Str( aVersions[ 3 ] ) ) + \".\" + ;\n                   AllTrim( Str( aVersions[ 4 ] ) ) + CRLF + CRLF\n   #else\n      cErrorLog += \"   VersÆo do Windows: \" + ;\n                   AllTrim( Str( aVersions[ 1 ] ) ) + \".\" + ;\n                   AllTrim( Str( aVersions[ 2 ] ) ) + \", Build \" + ;\n                   AllTrim( Str( aVersions[ 3 ] ) ) + ;\n                   \" \" + aVersions[ 5 ] + CRLF + CRLF\n   #endif\n\n   aTasks = GetTasks()\n   cErrorLog += \"   Total de Aplicações Rodando no Windows: \" + ;\n                AllTrim( Str( Len( aTasks ) ) ) + CRLF\n   for n = 1 to Len( aTasks )\n      cErrorLog += \"    \" + Str( n, 3 ) + \" \" + aTasks[ n ] + CRLF\n   next\n\n   // Warning!!! Keep here this code !!! Or we will be consuming GDI as\n   // we don\'t generate the error but we were generating the bitmap\n\n   hLogo = FWBitMap()\n\n   if e:canRetry\n      nButtons++\n   endif\n\n   if e:canDefault\n      nButtons++\n   endif\n\n   cErrorLog += CRLF + \"Vari veis em uso: \" + CRLF + ;\n                       \"================= \" + CRLF\n   cErrorLog += \"   Procedimento  Tipo   Valor\" + CRLF\n   cErrorLog += \"   ==========================\" + CRLF\n\n   n := 2    // we don\'t disscard any info again !\n   while ( n &lt; 74 )\n\n       if ! Empty( ProcName( n ) )\n          cErrorLog += \"   \" + Trim( ProcName( n ) ) + CRLF\n          for j = 1 to ParamCount( n )\n             cErrorLog += \"     Param \" + Str( j, 3 ) + \":    \" + ;\n                          ValType( GetParam( n, j ) ) + ;\n                          \"    \" + cGetInfo( GetParam( n, j ) ) + CRLF\n          next\n          for j = 1 to LocalCount( n )\n             cErrorLog += \"     Local \" + Str( j, 3 ) + \":    \" + ;\n                          ValType( GetLocal( n, j ) ) + ;\n                          \"    \" + cGetInfo( GetLocal( n, j ) ) + CRLF\n          next\n       endif\n\n       n++\n   end\n\n   cErrorLog += CRLF + \"RDDs Usados: \" + CRLF + ;\n                       \"============ \" + CRLF\n   aRDDs = RddList( 1 )\n   for n = 1 to Len( aRDDs )\n      cErrorLog += \"   \" + aRDDs[ n ] + CRLF\n   next\n\n   cErrorLog += CRLF + \"DataBases em Uso: \" + CRLF + ;\n                       \"================= \" + CRLF\n   for n = 1 to 255\n      if ! Empty( Alias( n ) )\n         cErrorLog += CRLF + Str( n, 3 ) + \": \" + If( Select() == n,\"=&gt; \", \"   \" ) + ;\n                      PadR( Alias( n ), 15 ) + Space( 20 ) + \"RddNome: \" + ;\n                      ( Alias( n ) )-&gt;( RddName() ) + CRLF\n         cErrorLog += \"     ==============================\" + CRLF\n         cErrorLog += \"     RecNo    RecCount    BOF   EOF\" + CRLF\n         cErrorLog += \"    \" + Transform( ( Alias( n ) )-&gt;( RecNo() ), \"99999\" ) + ;\n                      \"      \" + Transform( ( Alias( n ) )-&gt;( RecCount() ), \"99999\" ) + ;\n                      \"      \" + cValToChar( ( Alias( n ) )-&gt;( BoF() ) ) + ;\n                      \"   \" + cValToChar( ( Alias( n ) )-&gt;( EoF() ) ) + CRLF + CRLF\n         cErrorLog += \"     Indices em Uso \" + Space( 23 ) + \"TagName\" + CRLF\n         for j = 1 to 15\n            if ! Empty( ( Alias( n ) )-&gt;( IndexKey( j ) ) )\n               cErrorLog += Space( 8 ) + ;\n                            If( ( Alias( n ) )-&gt;( IndexOrd() ) == j, \"=&gt; \", \"   \" ) + ;\n                            PadR( ( Alias( n ) )-&gt;( IndexKey( j ) ), 35 ) + ;\n                            ( Alias( n ) )-&gt;( OrdName( j ) ) + ;\n                            CRLF\n            endif\n         next\n         cErrorLog += CRLF + \"     Relations em Uso \" + CRLF\n         for j = 1 to 8\n            if ! Empty( ( nTarget := ( Alias( n ) )-&gt;( DbRSelect( j ) ) ) )\n               cErrorLog += Space( 8 ) + Str( j ) + \": \" + ;\n                            \"TO \" + ( Alias( n ) )-&gt;( DbRelation( j ) ) + ;\n                            \" INTO \" + Alias( nTarget ) + CRLF\n               // uValue = ( Alias( n ) )-&gt;( DbRelation( j ) )\n               // cErrorLog += cValToChar( &amp;( uValue ) ) + CRLF\n            endif\n         next\n      endif\n   next\n\n   n = 1\n   cErrorLog += CRLF + \"Classes em Uso:\" + CRLF\n   cErrorLog += \"===============\" + CRLF\n   while ! Empty( __ClassName( n ) )\n      cErrorLog += \"   \" + Str( n, 3 ) + \" \" + __ClassName( n++ ) + CRLF\n   end\n\n   cErrorLog += CRLF + \"Analise da Memoria\" + CRLF\n   cErrorLog +=        \"===============\" + CRLF\n\n   #ifdef __CLIPPER__\n      cErrorLog += \"   Memoria Estatica:\" + CRLF\n      cErrorLog += \"      Seguimento de Dados: 64k\" + CRLF\n   #endif\n\n   #ifdef __CLIPPER__\n   cErrorLog += \"      Tamanho Inicial:       \" + ;\n                LTrim( Str( nInitDSSize() ) ) + ;\n                \" Bytes  (SYMP=\" + LTrim( Str( nSymPSize() ) ) + ;\n                \", Stack(Pilha)=\" + LTrim( Str( nStackSize() ) ) + ;\n                \", Heap(Pilha)=\" + LTrim( Str( nHeapSize() ) ) + \")\" + CRLF\n   cErrorLog += \"      PRG Stack:          \" + ;\n                LTrim( Str( 65535 - ( nStatics() * 14 ) - nInitDSSize() ) ) + ;\n                \" Bytes\" + CRLF\n   #endif\n\n   #ifdef __CLIPPER__\n      cErrorLog += \"      \" + LTrim( Str( nStatics() ) ) + \" Variaveis Estaticas: \" + ;\n                   LTrim( Str( nStatics() * 14 ) ) + \" Bytes\" + CRLF + CRLF\n   #else\n      cErrorLog += \"      \" + LTrim( Str( nStatics() ) ) + \" Variaveis Estaticas: \" + ;\n                   CRLF + CRLF\n   #endif\n\n   cErrorLog += \"   Consumo de Memoria Dinamica: \" + CRLF\n   cErrorLog += \"   Memoria Atual.: \" + Str( MemUsed() ) + \" Bytes\" + CRLF\n   cErrorLog += \"   Memoria Maxima: \" + Str( MemMax() )  + \" Bytes\" + CRLF\n\n   // nSymNames() no longer returns a real value! 15/April/97\n   /*\n   cErrorLog += \"   Segmento SYMBOLS\" + CRLF\n   cErrorLog += \"      \" + LTrim( Str( nSymNames() ) ) + \" SymbolNomes:   \" + ;\n                LTrim( Str( nSymNames() * 16 ) ) + \" bytes\"\n   */\n\n   // Generates a file with an Error Log\n\n   BEGIN SEQUENCE\n      oOldError = ErrorBlock( { || DoBreak() } )\n      MemoWrit( \"Error.Log\", cErrorLog )\n   END SEQUENCE\n\n   ErrorBlock( oOldError )\n\n    /* PANTALLA DE CONTROL DEL ERROR */\n    DEFINE FONT oFont NAME \"Ms Sans Serif\" SIZE 0, -12\n\n   DEFINE DIALOG oDlg                                                         ;\n          SIZE 360, 260 + If( lIsWinNT, 50, 0 )                               ;\n          TITLE DLG_TITLE                                                     ;\n          FONT oFont                                                          ;\n          STYLE DS_MODALFRAME\n\n   oDlg:lHelpIcon := .F.\n\n   @ 0, 0 SAY oSay PROMPT OemToAnsi( cMessage ) ;\n          CENTERED OF oDlg FONT oFont SIZE 149, 20\n\n   oSay:nStyle   = nOR( oSay:nStyle, 128 )   // SS_NOPREFIX\n   oSay:nTop     =   3\n   oSay:nLeft    =  22\n   oSay:nBottom  =  25\n   oSay:nRight   = 148\n\n   @ 34,   6 SAY \"Listagem do Stack(Pilha)\" OF oDlg FONT oFont PIXEL\n\n   n = aStack[ 1 ]\n\n   @ 43, 3 LISTBOX oLbx VAR n ITEMS aStack OF oDlg ;\n           SIZE 175, 60 + If( lIsWinNT, 18, 0 ) PIXEL //145\n\n   if nButtons == 1 .or. nButtons == 3\n       @ 100 + If( lIsWinNT, 24, 0 ), 70 BUTTON \"&amp;Saida\" OF oDlg ;\n           ACTION( oDlg:End() ) CANCEL ;\n           SIZE 30, 11 PIXEL FONT oFont DEFAULT\n    else\n       @ 100 + If( lIsWinNT, 24, 0 ), 40 BUTTON \"&amp;Saida\" OF oDlg ;\n           ACTION( oDlg:End() ) CANCEL ;\n           SIZE 30, 11 PIXEL FONT oFont\n   endif\n\n   if e:CanRetry\n      @ 100 + If( lIsWinNT, 24, 0 ), If( nButtons == 2, 82, 13 )              ;\n          BUTTON \"&amp;Retentar\"                                                  ;\n          OF oDlg ACTION ( lRet  := .t., oDlg:End() ) CANCEL                  ;\n          SIZE 30, 11 FONT oFont PIXEL\n   endif\n\n   if e:CanDefault\n      @ 100 + If( lIsWinNT, 24, 0 ), 108 BUTTON \"&amp;Default\"  OF oDlg           ;\n          ACTION ( lRet  := .f., oDlg:End() ) CANCEL                          ;\n          SIZE 30, 11 FONT oFont PIXEL\n   endif\n\n   @ 32, 74 BUTTON \"Verificar o Arquivo Error.Log\" OF oDlg                    ;\n            FONT oFont PIXEL                                                  ;\n            SIZE 074, 10                                                      ;\n            ACTION( WinExec( \"Notepad.exe Error.Log\" ) ) // Bloco de Notas\n\n   SET FONT OF oDlg TO oFont\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n            ON PAINT DrawBitmap( hDC, hLogo, 6, 6 )\n\n   DeleteObject( hLogo )\n   oFont:End()\n\n   If lRet == Nil .Or. ( !LWRunning() .And. lRet )\n       DBCLOSEALL()\n       SET RESOURCES TO\n       ErrorLevel( 1 )\n       /*\n       Rossine,\n\n       Please add these lines in source\\function\\errsysw.prg:\n       Código:\n       */\n\n       //-&gt; Novo, By Antonio Linares - Incorporei em 22/01/2007 - JoÆo\n       //-&gt; NEW !!! Forum Internacional, Antonio Linares.\n       //-&gt; Corre&#8225;Æo de Estouro de Pilha.\n       FOR n = 1 TO LEN( GetAllWin() )\n          IF ValType( GetAllWin()[ n ] ) == \"O\"\n             GetAllWin()[ n ]:UnLink()\n          ENDIF\n       NEXT\n\n       // \"Exibindo a barra de tarefas\"\n       ShowWindow(FindWindow( \'Shell_TrayWnd\',Nil), SW_SHOWNA)\n       oWnd:End()\n       __QUIT()              // must be QUIT !!!\n    Else\n       DBCLOSEALL()\n       SET RESOURCES TO\n       ErrorLevel( 1 )\n\n       /*\n       Rossine,\n\n       Please add these lines in source\\function\\errsysw.prg:\n       Código:\n       */\n\n       //-&gt; Novo, By Antonio Linares - Incorporei em 22/01/2007 - JoÆo\n       //-&gt; NEW !!! Forum Internacional, Antonio Linares.\n       //-&gt; Corre&#8225;Æo de Estouro de Pilha.\n       FOR n = 1 TO LEN( GetAllWin() )\n          IF ValType( GetAllWin()[ n ] ) == \"O\"\n             GetAllWin()[ n ]:UnLink()\n          ENDIF\n       NEXT\n\n       // \"Exibindo a barra de tarefas\"\n       ShowWindow(FindWindow( \'Shell_TrayWnd\',Nil), SW_SHOWNA)\n       oWnd:End()\n       __QUIT()              // must be QUIT !!!\n\n   Endif\n\nreturn lRet\n\n//----------------------------------------------------------------------------//\n\nstatic function DoBreak()\n\n   BREAK\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nstatic func ErrorMessage( e )\n\n	// start error message\n    local cMessage := if( empty( e:OsCode ), ;\n                          if( e:severity &gt; ES_WARNING, \"Error \", \"Warning \" ),;\n                          \"(DOS Error \" + NTRIM(e:osCode) + \") \" )\n\n	// add subsystem name if available\n    cMessage += if( ValType( e:SubSystem ) == \"C\",;\n                    e:SubSystem()                ,;\n                    \"???\" )\n\n	// add subsystem\'s error code if available\n    cMessage += if( ValType( e:SubCode ) == \"N\",;\n                    \"/\" + NTRIM( e:SubCode )   ,;\n                    \"/???\" )\n	// add error description if available\n  if ( ValType( e:Description ) == \"C\" )\n        cMessage += \"  \" + e:Description\n	end\n\n	// add either filename or operation\n    cMessage += if( ! Empty( e:FileName ),;\n                    \": \" + e:FileName   ,;\n                    if( !Empty( e:Operation ),;\n                        \": \" + e:Operation   ,;\n                        \"\" ) )\nreturn cMessage\n\n//----------------------------------------------------------------------------//\n// returns extended info for a certain variable type\n\nstatic function cGetInfo( uVal )\n\n   local cType := ValType( uVal )\n\n   do case\n      case cType == \"C\"\n           return \'\"\' + cValToChar( uVal ) + \'\"\'\n\n      case cType == \"O\"\n           return \"Classe: \" + uVal:ClassName()\n\n      case cType == \"A\"\n           return \"Len: \" + Str( Len( uVal ), 4 )\n\n      otherwise\n           return cValToChar( uVal )\n   endcase\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n#define  HKEY_LOCAL_MACHINE  2147483650  // 0x80000002\n\nfunction GetCPU()\n\n   local oReg := TReg32():New( HKEY_LOCAL_MACHINE,;\n                               \"HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0\",;\n                               .f. )\n   local cCpu := oReg:Get( \"ProcessorNameString\" )\n\n   oReg:Close()\n\nreturn cCpu\n\n//----------------------------------------------------------------------------//','',0,'','14jg5trd',1,0,'',362,0,0),(25416,5727,2,905,0,'200.114.14.53',1169503032,1,0,0,0,1,0,'','Errores al compilar con CA clipper 5.2 y FiveWin','Estoy trabajando con el demo de FiveWin, Ca Clipper 5.2 y link.exe.\nAl adaptar el archivo Build.bat para compilar nuestra aplicación, nos genera una serie de errores de sintaxis en comandos como:\n    @say ....\n    chr()\n    menu to\n\nNo se pueden utilizar estas instrucciones con FiveWin? Que otros comandos no se pueden utilizar?\n\nPor otro lado quisieramos saber como adaptaos el buid.bat para utilizar RMAKE y los archivos .LNK y .CLP de nuestra aplicación.\n\nGracias por su colaboración\n\nLuis Florez','',0,'','2c9rs99c',1,0,'',905,0,0),(25417,5709,6,644,0,'200.126.160.208',1169503167,1,0,1,1,1,0,'','','Manu\nEn el foro de fw español en yahoo hay algunas respuestas sobre sms y parecen muy fáciles\nsaludos','',0,'','ckuxd6ar',1,0,'',644,0,0),(25418,5714,3,49,0,'62.13.172.78',1169505835,1,0,1,1,1,1,'','','Antonio I  not found a sample with tbmenu...Menu omenu\n\nI must create it  but for toolbar:\n\n DEFINE BUTTON RESOURCE \"SMALL_UNZOOM\" NOBORDER OF oBar ;\n         MESSAGE TXT_PREVIEW_ON_MULTI_PAGES       ;\n          MENU oPop GROUP','',0,'','1tukchle',1,0,'',49,0,0),(25419,5674,3,397,0,'201.13.19.183',1169506896,1,0,1,0,1,1,'','','he!he!he!\n\nI\'m a Mathusalem, I begin with a FiveDOS, he!he!he!.\n\nIn the begining i create a script reader for my reports. simple and quick.\n\nScript 1:\n[code:1b0byfny]\n--RPT1008N&#46;FRM\nHT **** INFORMATIVO COMERCIAL ****\nHT -------------------------------------------------------------------------------------------------------------------\nHT PEDIDO COMPRA   PRODUTO    DESCRICAO                                     QUANTDADE VALORVENDA VALORCUSTO VALORLUCRO\nHT ------ -------- ---------- --------------------------------------------- --------- ---------- ---------- ----------\nDT 999999 99/99/99 XXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 999999999 999,999&#46;99 999,999&#46;99 999,999&#46;99\nET**** END OF REPORT ****\nGT                               Total 999,999&#46;99 999,999&#46;99 999,999&#46;99\nTA es\nNX es008\nDC idpedido;dataped;substr&#40;resumido,1,10&#41;;descricao;quantidade;quantidade*valorvenda;quantidade*customedio;quantidade*valorvenda-quantidade*customedio\nGC 0;0;0;0;0;quantidade*valorvenda;quantidade*customedio;quantidade*valorvenda-quantidade*customedio\nCQ dataped\n--SM areceber\n--RE NAO\nST SIM\nLP 115\n--WH MONTH&#40;ARECEBER&#41; &gt; 3\n[/code:1b0byfny]\n\nScript 2:\n[code:1b0byfny]\n--RPT1007N&#46;FRM\nHT **** INFORMATIVO FINANCEIRO ****\nHT -----------------------------------------------------------------------------------------------------------------\nHT PEDIDO N&#46;CHEQUE   DATA     VENCTO        VALOR  DESCONTO     JUROS     TOTAL    JA PAGO PAGO EM   RESTANTE DIA PG\nHT ------ ---------- -------- -------- ---------- --------- --------- --------- ---------- -------- --------- --- --\nDT 999999 XXXXXXXXXX 99/99/99 99/99/99 999,999&#46;99 99,999&#46;99 99,999&#46;99 99,999&#46;99 999,999&#46;99 99/99/99 99,999&#46;99 999 99\nET**** END OF REPORT ****\nGT                               Total 999,999&#46;99 99,999&#46;99 99,999&#46;99 99,999&#46;99 999,999&#46;99          99,999&#46;99\nTA contas\nNX conta018\nDC idpedido;idboleto;data;areceber;valor;desconto;juros;valor+juros-desconto;iif&#40;flag,iif&#40;valorpg&gt;valor+juros-desconto,valorpg,valor+juros-desconto&#41;,0&#41;;recebido;valorpg;date&#40;&#41;-areceber;idempresa\nGC 0;0;0;0;valor;desconto;juros;valor+juros-desconto;iif&#40;flag,iif&#40;valorpg&gt;valor+juros-desconto,valorpg,valor+juros-desconto&#41;,0&#41;;0;valorpg;0;0\n--CQ areceber\n--SM areceber\n--RE NAO\nST SIM\nLP 113\n--WH MONTH&#40;ARECEBER&#41; &gt; 3\n[/code:1b0byfny]\n\nMy rpt reader analise the code below, open tables and using part of Rep32.prg, TxtPreview e Tprinter class print the results.\n\nThe code is here, for all:\n[code:1b0byfny]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;report&#46;ch&quot;\n#include &quot;label&#46;ch&quot;\n#include &quot;nfw&#46;ch&quot;\n\nSTATIC oReport, nLinMax\n\n/*\n **** **** **** **** **** **** **** **** **** **** **** **** **** **** ****\n * Relatorio&#58; Imprime relatorios baseados em scripts\n **** **** **** **** **** **** **** **** **** **** **** **** **** **** ****\n */\nFUNCTION nfwrpt&#40; cFile, cTextFile, lNoRel &#41;\n  //\n  // -&gt; Inicializar as varialveis principais      \n  LOCAL oPrn,;\n        aDC &#58;= &#123;&#125;\n        aTA &#58;= &#123;&#125;\n        aNX &#58;= &#123;&#125;\n        aDT &#58;= &#123;&#125;\n        aGC &#58;= &#123;&#125;\n        cCQ &#58;= \'\'\n        cSM &#58;= \'\'\n        cRE &#58;= \'\'\n        cST &#58;= \'\'\n        cLP &#58;= \'\'\n        aHT &#58;= &#123;&#125;\n        cWH &#58;= \'\'\n        cTI &#58;= \'\'\n  /*\n   **** **** **** **** **** **** **** **** **** **** **** **** **** **** ****\n   * Le o arquivo de configuracao do relatorio, monta a chamada a funcao MyRPT\n   **** **** **** **** **** **** **** **** **** **** **** **** **** **** ****\n   */\n  SET CENTURY OFF\n  cEditFile &#58;= MemoRead&#40;cFile&#41;\n  ntam_memo &#58;= MLCOUNT&#40; cEditFile, 200 &#41;\n  nli_nha   &#58;= 1\n  for I = 1 to ntam_memo\n      cTexto1 &#58;= MemoLine&#40; cEditFile, 200, I &#41;\n      cTag    &#58;= Substr&#40; cTexto1, 1, 2 &#41;\n      cTexto2 &#58;= alltrim&#40; Substr&#40; cTexto1, 3, 197 &#41; &#41;\n      if cTag = \'DC\'\n         cTexto3 &#58;= \'\'\n         for II = 1 to len&#40;cTexto2&#41;\n             if &#40;substr&#40;cTexto2,II,1&#41;=\';\' &#46;or&#46; len&#40;cTexto2&#41; = II&#41;\n                if len&#40;cTexto2&#41; = II\n                   cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n                endif\n                AADD&#40; aDC, alltrim&#40;cTexto3&#41; &#41;\n                cTexto3 &#58;= \'\'\n             else\n                cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n             endif\n         next\n      endif\n      if cTag = \'TA\'\n         cTexto3 &#58;= \'\'\n         for II = 1 to len&#40;cTexto2&#41;\n             if &#40;substr&#40;cTexto2,II,1&#41;=\';\' &#46;or&#46; len&#40;cTexto2&#41; = II&#41;\n                if len&#40;cTexto2&#41; = II\n                   cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n                endif\n                AADD&#40; aTA, alltrim&#40;cTexto3&#41; &#41;\n                cTexto3 &#58;= \'\'\n             else\n                cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n             endif\n         next\n      endif\n      if cTag = \'NX\'\n         cTexto3 &#58;= \'\'\n         for II = 1 to len&#40;cTexto2&#41;\n             if &#40;substr&#40;cTexto2,II,1&#41;=\';\' &#46;or&#46; len&#40;cTexto2&#41; = II&#41;\n                if len&#40;cTexto2&#41; = II\n                   cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n                endif\n                AADD&#40; aNX, alltrim&#40;cTexto3&#41; &#41;\n                cTexto3 &#58;= \'\'\n             else\n                cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n             endif\n         next\n      endif\n      if cTag = \'GC\'\n         cTexto3 &#58;= \'\'\n         for II = 1 to len&#40;cTexto2&#41;\n             if &#40;substr&#40;cTexto2,II,1&#41;=\';\' &#46;or&#46; len&#40;cTexto2&#41; = II&#41;\n                if len&#40;cTexto2&#41; = II\n                   cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n                endif\n                AADD&#40; aGC, alltrim&#40;cTexto3&#41; &#41;\n                cTexto3 &#58;= \'\'\n             else\n                cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n             endif\n         next\n      endif\n      if cTag = \'DT\'\n         cTexto3 &#58;= \'\'\n         for II = 1 to len&#40;cTexto2&#41;\n             if &#40;substr&#40;cTexto2,II,1&#41;=\' \' &#46;or&#46; len&#40;cTexto2&#41; = II&#41;\n                nTira &#58;= 1\n                if len&#40;cTexto2&#41; = II\n                   nTira   &#58;= 0\n                   cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n                endif\n                AADD&#40; aDT, &#123; &#40;II-len&#40;alltrim&#40;cTexto3&#41;&#41;&#41;-nTira, alltrim&#40;cTexto3&#41; &#125; &#41;\n                cTexto3 &#58;= \'\'\n             else\n                cTexto3 &#58;= cTexto3 + substr&#40; cTexto2, II, 1 &#41;\n             endif\n         next\n      endif\n      if cTag = \'WH\' ;       cWH &#58;= alltrim&#40;cTexto2&#41;      ;    endif\n      if cTag = \'CQ\' ;       cCQ &#58;= alltrim&#40;cTexto2&#41;      ;    endif\n      if cTag = \'SM\' ;       cSM &#58;= alltrim&#40;cTexto2&#41;      ;    endif\n      if cTag = \'RE\' ;       cRE &#58;= alltrim&#40;cTexto2&#41;      ;    endif\n      if cTag = \'ST\' ;       cST &#58;= alltrim&#40;cTexto2&#41;      ;    endif\n      if cTag = \'LP\' ;       cLP &#58;= alltrim&#40;cTexto2&#41;      ;    endif\n      if cTag = \'HT\' ;       AADD&#40; aHT, alltrim&#40;cTexto2&#41; &#41;;    endif\n      if cTag = \'TI\' ;       cTI &#58;= alltrim&#40;cTexto2&#41;      ;    endif\n  next\n  oMeter &#58;= NIL\n  oText  &#58;= NIL\n  oDlg   &#58;= NIL\n  lEnd   &#58;= NIL\n  //MsgMeter&#40; &#123; |oMeter,oText,oDlg,lEnd|;\n  MyRPT&#40;        aTA , ; // Tabelas\n                aNX , ; // Indices\n                aDT , ; // Linha de impressao\n                aDC , ; // Campos\n                aGC , ; // Campos somados\n                cCQ , ; // Campo Quebra\n                cSM , ; // Sumarizar    Sim/Nao\n                cRE , ; // Resumir      Sim,Nao\n                cST , ; // SubTotalizar Sim,Nao\n                cLP , ; // Largura da Pagina\n                aHT , ; // Cabecalhos\n                cWH , ;\n                cTI , ;\n                cTextFile,;\n         oMeter,oText,oDlg,lEnd,lNoRel &#41; //;  // Expressao WHERE de avaliacao\n         //&#125;,&quot;Gerando arquivo&#46;&#46;&#46;&quot; &#41;\n   return &#46;t&#46;\n\nFUNCTION MyRPT&#40; aTA , ; // Tabelas\n                aNX , ; // Indices\n                aDT , ; // Linha de impressao\n                aDC , ; // Campos\n                aGC , ; // Campos somados\n                cCQ , ; // Campo Quebra\n                cSM , ; // Sumarizar    Sim/Nao\n                cRE , ; // Resumir      Sim,Nao\n                cST , ; // SubTotalizar Sim,Nao\n                cLP , ; // Largura da Pagina\n                aHT , ; // Cabecalhos\n                cWH , ;\n                cTI , ;\n                cTextFile, ;\n                oMeter,oText,oDlg,lEnd,lNoRel &#41;   // Expressao WHERE de avaliacao\n\n   local oPrn, cPorta, cFile\n   local nLin, nPag, cTmp, nItens\n   public TOT_000&#91;15&#93;, TO1_000&#91;15&#93;, SUM_000&#91;15&#93;\n   cTextFile &#58;= &quot;TXT&quot;+substr&#40;strtran&#40;time&#40;&#41;,&quot;&#58;&quot;,&quot;&quot;&#41;,4,3&#41;+&quot;&#46;PRN&quot;\n   FOR I = 1 TO LEN&#40;aTA&#41;\n       USE &#40;aTA&#91;I&#93;&#41; NEW \n       IF LEN&#40;aTA&#41; &gt; 0\n          dbSetIndex&#40; &#40;aTA&#91;I&#93;&#41; &#41;\n       ENDIF\n   NEXT\n   SELECT&#40;aTA&#91;1&#93;&#41;\n   OrdSetFocus&#40; &#40;aNX&#91;1&#93;&#41; &#41;\n   //SET ORDER TO 1\n   GOTO TOP\n   NUM_RELATORIO &#58;= 1\n   M-&gt;TIPO_PRN   &#58;= &quot;I&quot;\n   cCQ &#58;= iif&#40; EMPTY&#40;cCQ&#41;, \'NONE\', cCQ &#41;\n   cRE &#58;= iif&#40; EMPTY&#40;cRE&#41;, \'NAO\' , cRE &#41;\n   cSM &#58;= iif&#40; EMPTY&#40;cSM&#41;, \'NAO\' , iif&#40; cRE=\'NAO\', \'NAO\' , cSM &#41; &#41;\n   cST &#58;= iif&#40; EMPTY&#40;cST&#41;, \'NAO\' , cST &#41;\n   cLP &#58;= iif&#40; EMPTY&#40;cLP&#41;, 80    , cLP &#41;\n   cWH &#58;= iif&#40; EMPTY&#40;cWH&#41;, \'NONE\', cWH &#41;\n   M-&gt;LI_NHA=1\n   M-&gt;PAG=1\n   IF cCQ &lt;&gt; \'NONE\'\n      M-&gt;QUEBRA_1 = &amp;cCQ\n   ENDIF\n   IF LEN&#40;aGC&#41; &lt;&gt; 0\n      M-&gt;TOT_000&#91; 1&#93;=0\n      M-&gt;TOT_000&#91; 2&#93;=0\n      M-&gt;TOT_000&#91; 3&#93;=0\n      M-&gt;TOT_000&#91; 4&#93;=0\n      M-&gt;TOT_000&#91; 5&#93;=0\n      M-&gt;TOT_000&#91; 6&#93;=0\n      M-&gt;TOT_000&#91; 7&#93;=0\n      M-&gt;TOT_000&#91; 8&#93;=0\n      M-&gt;TOT_000&#91; 9&#93;=0\n      M-&gt;TOT_000&#91;10&#93;=0\n      M-&gt;TOT_000&#91;11&#93;=0\n      M-&gt;TOT_000&#91;12&#93;=0\n      M-&gt;TOT_000&#91;13&#93;=0\n      M-&gt;TOT_000&#91;14&#93;=0\n      M-&gt;TOT_000&#91;15&#93;=0\n      IF cST = \'SIM\'\n         M-&gt;TO1_000&#91; 1&#93;=0\n         M-&gt;TO1_000&#91; 2&#93;=0\n         M-&gt;TO1_000&#91; 3&#93;=0\n         M-&gt;TO1_000&#91; 4&#93;=0\n         M-&gt;TO1_000&#91; 5&#93;=0\n         M-&gt;TO1_000&#91; 6&#93;=0\n         M-&gt;TO1_000&#91; 7&#93;=0\n         M-&gt;TO1_000&#91; 8&#93;=0\n         M-&gt;TO1_000&#91; 9&#93;=0\n         M-&gt;TO1_000&#91;10&#93;=0\n         M-&gt;TO1_000&#91;11&#93;=0\n         M-&gt;TO1_000&#91;12&#93;=0\n         M-&gt;TO1_000&#91;13&#93;=0\n         M-&gt;TO1_000&#91;14&#93;=0\n         M-&gt;TO1_000&#91;15&#93;=0\n      ENDIF         \n   ENDIF\n   M-&gt;SAI_DA=&quot;S&quot;\n   cEmpresa&#58;= &quot;**** FatAll eVolution - TXTPreview ****&quot;\n   cPorta  &#58;= &quot;LPT1&quot;\n   cFile   &#58;= &quot;TXT&quot;+substr&#40;strtran&#40;time&#40;&#41;,&quot;&#58;&quot;,&quot;&quot;&#41;,4,3&#41;+&quot;&#46;PRN&quot; \n   nLin    &#58;= 0\n   nPag    &#58;= 0\n   nLinMax &#58;= 56 // Padrao A4\n   nItens  &#58;= nTotal &#58;= 0\n   oPrn    &#58;= TDosPrn&#40;&#41;&#58;New&#40; cTextfile &#41;\noPrn&#58;StartPage&#40;&#41;\n//if !file&#40; &quot;logo&#46;bmp&quot; &#41;\n//   oPrn&#58;SayImage&#40;0,0,&quot;logo&#46;bmp&quot;,300,400,0&#41;\n//endif\nDO WHILE &#46;NOT&#46; EOF&#40;&#41;\n   IF cWH &lt;&gt; \'NONE\'\n      IF ! &amp;&#40;cWH&#41;\n         SKIP\n         LOOP\n      ENDIF\n   ENDIF\n   IF M-&gt;LI_NHA=1\n      nPag++\n      nLin++\n      oPrn&#58;Command&#40; oPrn&#58;cNormal &#41;\n      oPrn&#58;Say&#40; M-&gt;LI_NHA, 00, PadC&#40; &quot;**** &quot;+alltrim&#40;cTI&#41;+&quot; ****&quot;, 79 &#41; &#41;\n      iif&#40; val&#40;cLP&#41;&gt;80,oPrn&#58;Command&#40; oPrn&#58;cCompress&#41;,&#41;\n      oPrn&#58;Say&#40; M-&gt;LI_NHA+1, 00, &quot;Pagina&#58; &quot;+strzero&#40;nPag,3&#41; &#41;\n      oPrn&#58;Say&#40; M-&gt;LI_NHA+1, iif&#40; EMPTY&#40;cLP&#41;, 80, VAL&#40;cLP&#41; &#41; -14, &quot;Data&#58; &quot;+DTOC&#40;DATE&#40;&#41;&#41;&#41;\n      oPrn&#58;Say&#40; M-&gt;LI_NHA+2, 00, REPL&#40;&quot;-&quot;,iif&#40; EMPTY&#40;cLP&#41;, 80, VAL&#40;cLP&#41; &#41; &#41;&#41;\n      oPrn&#58;Say&#40; M-&gt;LI_NHA+3, 00, aHT&#91;3&#93;&#41; \n      oPrn&#58;Say&#40; M-&gt;LI_NHA+4, 00, aHT&#91;4&#93;&#41;\n      M-&gt;LI_NHA=6\n   ENDIF\n   IF cCQ &lt;&gt; \'NONE\'\n      M-&gt;QUEBRA_1 = &amp;cCQ\n   ENDIF\n   IF cRE = \'SIM\'\n      M-&gt;SUM_000&#91; 1&#93;=0\n      M-&gt;SUM_000&#91; 2&#93;=0\n      M-&gt;SUM_000&#91; 3&#93;=0\n      M-&gt;SUM_000&#91; 4&#93;=0\n      M-&gt;SUM_000&#91; 5&#93;=0\n      M-&gt;SUM_000&#91; 6&#93;=0\n      M-&gt;SUM_000&#91; 7&#93;=0\n      M-&gt;SUM_000&#91; 8&#93;=0\n      M-&gt;SUM_000&#91; 9&#93;=0\n      M-&gt;SUM_000&#91;10&#93;=0\n      M-&gt;SUM_000&#91;11&#93;=0\n      M-&gt;SUM_000&#91;12&#93;=0\n      M-&gt;SUM_000&#91;13&#93;=0\n      M-&gt;SUM_000&#91;14&#93;=0\n      M-&gt;SUM_000&#91;15&#93;=0\n      DO WHILE M-&gt;QUEBRA_1 = &amp;cCQ\n         M-&gt;SUM_000&#91; 1&#93;=M-&gt;SUM_000&#91; 1&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 1, &amp;&#40;aGC&#91; 1&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 2&#93;=M-&gt;SUM_000&#91; 2&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 2, &amp;&#40;aGC&#91; 2&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 3&#93;=M-&gt;SUM_000&#91; 3&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 3, &amp;&#40;aGC&#91; 3&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 4&#93;=M-&gt;SUM_000&#91; 4&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 4, &amp;&#40;aGC&#91; 4&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 5&#93;=M-&gt;SUM_000&#91; 5&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 5, &amp;&#40;aGC&#91; 5&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 6&#93;=M-&gt;SUM_000&#91; 6&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 6, &amp;&#40;aGC&#91; 6&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 7&#93;=M-&gt;SUM_000&#91; 7&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 7, &amp;&#40;aGC&#91; 7&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 8&#93;=M-&gt;SUM_000&#91; 8&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 8, &amp;&#40;aGC&#91; 8&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91; 9&#93;=M-&gt;SUM_000&#91; 9&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;= 9, &amp;&#40;aGC&#91; 9&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91;10&#93;=M-&gt;SUM_000&#91;10&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;=10, &amp;&#40;aGC&#91;10&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91;11&#93;=M-&gt;SUM_000&#91;11&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;=11, &amp;&#40;aGC&#91;11&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91;12&#93;=M-&gt;SUM_000&#91;12&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;=12, &amp;&#40;aGC&#91;12&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91;13&#93;=M-&gt;SUM_000&#91;13&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;=13, &amp;&#40;aGC&#91;13&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91;14&#93;=M-&gt;SUM_000&#91;14&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;=14, &amp;&#40;aGC&#91;14&#93;&#41;, 0 &#41;\n         M-&gt;SUM_000&#91;15&#93;=M-&gt;SUM_000&#91;15&#93;+IIF&#40;LEN&#40;aGC&#41;&gt;=15, &amp;&#40;aGC&#91;15&#93;&#41;, 0 &#41;\n         SKIP\n      ENDDO\n      SKIP -1\n   ELSE\n      M-&gt;SUM_000&#91; 1&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 1, &amp;&#40;aGC&#91; 1&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 2&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 2, &amp;&#40;aGC&#91; 2&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 3&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 3, &amp;&#40;aGC&#91; 3&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 4&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 4, &amp;&#40;aGC&#91; 4&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 5&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 5, &amp;&#40;aGC&#91; 5&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 6&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 6, &amp;&#40;aGC&#91; 6&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 7&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 7, &amp;&#40;aGC&#91; 7&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 8&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 8, &amp;&#40;aGC&#91; 8&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91; 9&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;= 9, &amp;&#40;aGC&#91; 9&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91;10&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;=10, &amp;&#40;aGC&#91;10&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91;11&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;=11, &amp;&#40;aGC&#91;11&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91;12&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;=12, &amp;&#40;aGC&#91;12&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91;13&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;=13, &amp;&#40;aGC&#91;13&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91;14&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;=14, &amp;&#40;aGC&#91;14&#93;&#41;, 0 &#41;\n      M-&gt;SUM_000&#91;15&#93;=IIF&#40;LEN&#40;aGC&#41;&gt;=15, &amp;&#40;aGC&#91;15&#93;&#41;, 0 &#41;\n   ENDIF\n   //\n   FOR I = 1 to LEN&#40;aDC&#41;\n       cCampo &#58;= &amp;&#40;aDC&#91;i&#93;&#41;\n       //if cSM = \'NAO\'\n       IF cSM = \'SIM\'\n          IF I=1; oPrn&#58;Say&#40; M-&gt;LI_NHA, aDT&#91;i,1&#93;, Transform&#40; cCampo, aDT&#91;i,2&#93; &#41; &#41;; ENDIF\n       ELSE\n          oPrn&#58;Say&#40; M-&gt;LI_NHA, aDT&#91;i,1&#93;, Transform&#40; cCampo, aDT&#91;i,2&#93; &#41; &#41;\n       ENDIF\n       //   oPrn&#58;Say&#40; M-&gt;LI_NHA, aDT&#91;i,1&#93;, iif&#40;cSM=\'NAO\',cCampo,Transform&#40; M-&gt;SUM_000&#91;i&#93;, aDT&#91;i,2&#93; &#41; &#41; &#41;\n       //else\n       //   cSomar &#58;= aDC&#91;i&#93;\n       //   if cSomar = aGC&#91;i&#93;\n       //      IF LEN&#40;aGC&#41;&gt;=1; oPrn&#58;Say&#40; M-&gt;LI_NHA, aDT&#91;i,1&#93;, Transform&#40; M-&gt;SUM_000&#91;i&#93;, aDT&#91;i,2&#93; &#41; &#41; ; ENDIF\n       //   else\n       //      oPrn&#58;Say&#40; M-&gt;LI_NHA, aDT&#91;i,1&#93;, cCampo &#41;\n       //   endif\n       //endif\n   NEXT\n   IF &#40;LEN&#40;aGC&#41;&lt;&gt;0 &#46;OR&#46; cST = \'SIM\'&#41; // SE SOMA OU RESUMO\n      M-&gt;TOT_000&#91; 1&#93;=M-&gt;TOT_000&#91; 1&#93;+M-&gt;SUM_000&#91; 1&#93;\n      M-&gt;TOT_000&#91; 2&#93;=M-&gt;TOT_000&#91; 2&#93;+M-&gt;SUM_000&#91; 2&#93;\n      M-&gt;TOT_000&#91; 3&#93;=M-&gt;TOT_000&#91; 3&#93;+M-&gt;SUM_000&#91; 3&#93;\n      M-&gt;TOT_000&#91; 4&#93;=M-&gt;TOT_000&#91; 4&#93;+M-&gt;SUM_000&#91; 4&#93;\n      M-&gt;TOT_000&#91; 5&#93;=M-&gt;TOT_000&#91; 5&#93;+M-&gt;SUM_000&#91; 5&#93;\n      M-&gt;TOT_000&#91; 6&#93;=M-&gt;TOT_000&#91; 6&#93;+M-&gt;SUM_000&#91; 6&#93;\n      M-&gt;TOT_000&#91; 7&#93;=M-&gt;TOT_000&#91; 7&#93;+M-&gt;SUM_000&#91; 7&#93;\n      M-&gt;TOT_000&#91; 8&#93;=M-&gt;TOT_000&#91; 8&#93;+M-&gt;SUM_000&#91; 8&#93;\n      M-&gt;TOT_000&#91; 9&#93;=M-&gt;TOT_000&#91; 9&#93;+M-&gt;SUM_000&#91; 9&#93;\n      M-&gt;TOT_000&#91;10&#93;=M-&gt;TOT_000&#91;10&#93;+M-&gt;SUM_000&#91;10&#93;\n      M-&gt;TOT_000&#91;11&#93;=M-&gt;TOT_000&#91;11&#93;+M-&gt;SUM_000&#91;11&#93;\n      M-&gt;TOT_000&#91;12&#93;=M-&gt;TOT_000&#91;12&#93;+M-&gt;SUM_000&#91;12&#93;\n      M-&gt;TOT_000&#91;13&#93;=M-&gt;TOT_000&#91;13&#93;+M-&gt;SUM_000&#91;13&#93;\n      M-&gt;TOT_000&#91;14&#93;=M-&gt;TOT_000&#91;14&#93;+M-&gt;SUM_000&#91;14&#93;\n      M-&gt;TOT_000&#91;15&#93;=M-&gt;TOT_000&#91;15&#93;+M-&gt;SUM_000&#91;15&#93;\n      IF cST = \'SIM\' // &#46;or&#46; cSM = \'SIM\'\n         M-&gt;TO1_000&#91; 1&#93;=M-&gt;TO1_000&#91; 1&#93;+M-&gt;SUM_000&#91; 1&#93;\n         M-&gt;TO1_000&#91; 2&#93;=M-&gt;TO1_000&#91; 2&#93;+M-&gt;SUM_000&#91; 2&#93;\n         M-&gt;TO1_000&#91; 3&#93;=M-&gt;TO1_000&#91; 3&#93;+M-&gt;SUM_000&#91; 3&#93;\n         M-&gt;TO1_000&#91; 4&#93;=M-&gt;TO1_000&#91; 4&#93;+M-&gt;SUM_000&#91; 4&#93;\n         M-&gt;TO1_000&#91; 5&#93;=M-&gt;TO1_000&#91; 5&#93;+M-&gt;SUM_000&#91; 5&#93;\n         M-&gt;TO1_000&#91; 6&#93;=M-&gt;TO1_000&#91; 6&#93;+M-&gt;SUM_000&#91; 6&#93;\n         M-&gt;TO1_000&#91; 7&#93;=M-&gt;TO1_000&#91; 7&#93;+M-&gt;SUM_000&#91; 7&#93;\n         M-&gt;TO1_000&#91; 8&#93;=M-&gt;TO1_000&#91; 8&#93;+M-&gt;SUM_000&#91; 8&#93;\n         M-&gt;TO1_000&#91; 9&#93;=M-&gt;TO1_000&#91; 9&#93;+M-&gt;SUM_000&#91; 9&#93;\n         M-&gt;TO1_000&#91;10&#93;=M-&gt;TO1_000&#91;10&#93;+M-&gt;SUM_000&#91;10&#93;\n         M-&gt;TO1_000&#91;11&#93;=M-&gt;TO1_000&#91;11&#93;+M-&gt;SUM_000&#91;11&#93;\n         M-&gt;TO1_000&#91;12&#93;=M-&gt;TO1_000&#91;12&#93;+M-&gt;SUM_000&#91;12&#93;\n         M-&gt;TO1_000&#91;13&#93;=M-&gt;TO1_000&#91;13&#93;+M-&gt;SUM_000&#91;13&#93;\n         M-&gt;TO1_000&#91;14&#93;=M-&gt;TO1_000&#91;14&#93;+M-&gt;SUM_000&#91;14&#93;\n         M-&gt;TO1_000&#91;15&#93;=M-&gt;TO1_000&#91;15&#93;+M-&gt;SUM_000&#91;15&#93;\n      ENDIF\n   ENDIF\n   IF cSM = \'SIM\'\n   ELSE\n      M-&gt;LI_NHA=M-&gt;LI_NHA+1\n   ENDIF\n   SKIP\n   IF cCQ &lt;&gt; \'NONE\'\n      IF M-&gt;QUEBRA_1 &lt;&gt; &amp;cCQ\n         IF cST = \'SIM\'\n            IF cSM = \'SIM\'\n            ELSE\n               oPrn&#58;Say&#40; M-&gt;LI_NHA,000, REPL&#40;&quot;-&quot;,LEN&#40;aHT&#91;3&#93;&#41;&#41; &#41;\n               M-&gt;LI_NHA=M-&gt;LI_NHA+1\n               oPrn&#58;Say&#40; M-&gt;LI_NHA, 000, &quot;SUBTOTAL&quot; &#41;\n            ENDIF\n            FOR I = 1 to LEN&#40;aDC&#41;\n                cSomar &#58;= aDC&#91;i&#93;\n                if cSomar = aGC&#91;i&#93;\n                   IF LEN&#40;aGC&#41;&gt;=1; oPrn&#58;Say&#40; M-&gt;LI_NHA, aDT&#91;i,1&#93;, Transform&#40; M-&gt;TO1_000&#91;i&#93;, aDT&#91;i,2&#93; &#41; &#41; ; ENDIF\n                endif\n            NEXT\n            IF cSM = \'SIM\'\n            ELSE\n               M-&gt;LI_NHA=M-&gt;LI_NHA+2\n            ENDIF\n            M-&gt;TO1_000&#91; 1&#93;=0\n            M-&gt;TO1_000&#91; 2&#93;=0\n            M-&gt;TO1_000&#91; 3&#93;=0\n            M-&gt;TO1_000&#91; 4&#93;=0\n            M-&gt;TO1_000&#91; 5&#93;=0\n            M-&gt;TO1_000&#91; 6&#93;=0\n            M-&gt;TO1_000&#91; 7&#93;=0\n            M-&gt;TO1_000&#91; 8&#93;=0\n            M-&gt;TO1_000&#91; 9&#93;=0\n            M-&gt;TO1_000&#91;10&#93;=0\n            M-&gt;TO1_000&#91;11&#93;=0\n            M-&gt;TO1_000&#91;12&#93;=0\n            M-&gt;TO1_000&#91;13&#93;=0\n            M-&gt;TO1_000&#91;14&#93;=0\n            M-&gt;TO1_000&#91;15&#93;=0\n         ENDIF\n         M-&gt;QUEBRA_1 = &amp;cCQ\n         M-&gt;LI_NHA   = M-&gt;LI_NHA+1\n      ENDIF\n   ENDIF\n   IF LEN&#40;aGC&#41; &lt;&gt; 0 // Se SOMA campos\n      IF M-&gt;LI_NHA&gt;nLinMax\n         MyTOT_01&#40;oPrn, 1, aDC, aDT, aHT, aGC &#41;\n         M-&gt;LI_NHA&#58;=1\n      ENDIF\n   ELSE\n      IF M-&gt;LI_NHA&gt;nLinMax+2\n         oPrn&#58;Say&#40; M-&gt;LI_NHA+0, 00, REPL&#40;&quot;-&quot;,iif&#40; EMPTY&#40;cLP&#41;, 80, VAL&#40;cLP&#41; &#41; &#41;&#41;\n         oPrn&#58;Say&#40; M-&gt;LI_NHA+1, 00, &quot;5Volution Legacy&quot; &#41;\n         oPrn&#58;Say&#40; M-&gt;LI_NHA+1, iif&#40;EMPTY&#40;cLP&#41;,80,VAL&#40;cLP&#41;&#41;-len&#40;&quot;Av&#46; Itaberaba 1016, sala 9&quot;&#41;, &quot;Telefone&#58; 3902-7354&quot; &#41;\n         //oPrn&#58;Command&#40; oPrn&#58;cCompress &#41;\n         M-&gt;LI_NHA&#58;=1\n      ENDIF\n   ENDIF\nENDDO\nIF LEN&#40;aGC&#41; &lt;&gt; 0 // Se SOMA campos\n   MyTOT_01&#40;oPrn, 2, aDC, aDT, aHT, aGC &#41;\nELSE\n   M-&gt;LI_NHA &#58;= nLinMax+2\n   oPrn&#58;Say&#40; M-&gt;LI_NHA+0, 00, REPL&#40;&quot;-&quot;,iif&#40; EMPTY&#40;cLP&#41;, 80, VAL&#40;cLP&#41; &#41; &#41;&#41;\n   oPrn&#58;Say&#40; M-&gt;LI_NHA+1, 00, &quot;SoftClever Informatica Comercio Ltda&quot; &#41;\n   oPrn&#58;Say&#40; M-&gt;LI_NHA+1, iif&#40;EMPTY&#40;cLP&#41;,80,VAL&#40;cLP&#41;&#41;-len&#40;&quot;Av&#46; Itaberaba 1016, sala 9&quot;&#41;, &quot;Av&#46; Itaberaba 1016, sala 9&quot; &#41;\nENDIF\noPrn&#58;EndPage&#40;&#41;\noPrn&#58;End&#40;&#41;\nif lNoRel &lt;&gt; NIL\n   TxtPreview&#40; cTextfile, &quot;Teste&quot;, &#46;t&#46;,,, oPrn &#41;\nelse\n   CLOSE DATABASES\n   TxtPreview&#40; cTextfile, &quot;Teste&quot;, &#46;f&#46;,,, oPrn &#41;\nendif\n//if cTextfile &lt;&gt; NIL\n//   //Rep23&#40; cTextfile, iif&#40; EMPTY&#40;cLP&#41;, 80, 132 &#41; &#41;\n//   fRename&#40; \'\\clever\\fatall\\clever\\NFWSPOOL&#46;TXT\', \'\\clever\\fatall\\clever\\SPOOL&#46;SPL\' &#41;\n//endif\n\nFUNCTION MyTOT_01&#40; oPrn, PAR1, aDC, aDT, aHT, aGC &#41;\nIF PAR1=2\n//   M-&gt;LI_NHA=nLinMax // 59\nENDIF\noPrn&#58;Say&#40; M-&gt;LI_NHA, 000, REPL&#40;&quot;-&quot;,LEN&#40;aHT&#91;3&#93;&#41;&#41; &#41;\nM-&gt;LI_NHA=M-&gt;LI_NHA+1\nIF PAR1=2\n   oPrn&#58;Say&#40; M-&gt;LI_NHA, 000, &quot;TOTAL&quot; &#41;\nELSE\n   oPrn&#58;Say&#40; M-&gt;LI_NHA, 000, &quot;SUBTOTAL&quot; &#41;\nENDIF\nFOR I = 1 to LEN&#40;aDC&#41;\n    cSomar &#58;= aDC&#91;i&#93;\n    if cSomar = aGC&#91;i&#93;\n       IF LEN&#40;aGC&#41;&gt;=1; oPrn&#58;Say&#40; M-&gt;LI_NHA, aDT&#91;i,1&#93;, Transform&#40; M-&gt;TOT_000&#91;i&#93;, aDT&#91;i,2&#93; &#41; &#41; ; ENDIF\n    endif\nNEXT\nM-&gt;LI_NHA=M-&gt;LI_NHA+1\noPrn&#58;Say&#40; M-&gt;LI_NHA, 000, REPL&#40;&quot;-&quot;,LEN&#40;aHT&#91;3&#93;&#41;&#41; &#41;\nM-&gt;LI_NHA=M-&gt;LI_NHA+1\noPrn&#58;Say&#40; M-&gt;LI_NHA, 000, &quot; &quot; &#41;\nM-&gt;LI_NHA=M-&gt;LI_NHA+1\nRETURN &#46;T&#46;\n\nFunction Rep23&#40;cTextfile,cLargura&#41;  // To make this a reusable module, we pass\n                           // the name of the text file to this function,\n                           // so it can be re-used for many different files\n                           // with the same margin and font settings&#46;\n\n     LOCAL nRecno, oFont\n     IF cTextfile = NIL &#46;OR&#46; UPPER&#40;cTextfile&#41; = &quot;LPT1&quot;\n        RETURN &#46;T&#46;\n     ENDIF\n     DEFINE FONT oFont NAME &quot;COURIER&quot; SIZE 0,-6\n            // Font sizes for PRINTING are given in &quot;points&quot; not pixels&#46;\n            // &#40;Pixels are used for font width and height for SCREENS only&#46;&#41;\n            // By using a &quot;0&quot; for width and a &quot;-&quot; in front of the &quot;height&quot; #\n            // we tell FiveWin that we\'re using points instead of pixels&#46;\n\n            // Thus -12 means &quot;12 point,&quot; which is used for &quot;10 pitch&quot;\n            // non-proportionally spaced Courier type that prints at\n            // 6 lines/inch&#46;\n\n            // -10 means a 10 point font printing at 7 lines/inch&#46;\n\n            // Use -9 for a &quot;12 pitch&quot; equal-spaced Courier font printing\n            // at 8 lines per inch&#46;\n\n\n            // Note that in creating the report object, we are leaving out\n            // any mention of title or header specs&#46; because those are\n            // already included in our &#46;TXT file&#46;\n     REPORT oReport ;\n          FONT oFont ;\n          CAPTION &quot;Relatorio em tela&quot; ;\n          PREVIEW\n//          TO PRINTER\n     COLUMN DATA &quot; &quot; SIZE cLargura // * Trick &quot;Data&quot; - we\'re fooling Mother \n                              // Nature here&#46; The memo will go into the &quot; &quot;&#46; *\n     END REPORT\n             // All title lines, page numbers and headings already exist in\n             // our text file, so the next two code statements make sure that\n             // FiveWin won\'t add its own title lines&#46;\n     oReport&#58;nTitleUpLine &#58;= RPT_NOLINE\n     oReport&#58;nTitleDnLine &#58;= RPT_NOLINE\n     oReport&#58;Margin&#40;&#46;01,RPT_LEFT  ,RPT_INCHES&#41;   // &#46;15\n     oReport&#58;Margin&#40;&#46;01,RPT_TOP   ,RPT_INCHES&#41;    // &#46;25\n     oReport&#58;Margin&#40;&#46;01,RPT_BOTTOM,RPT_INCHES&#41; // &#46;25\n     // I know the top/bottom margins shown here should mathematically cause\n     // more than the desired 60 lines per page to print&#46; However, in actual \n     // practice with my Panasonic KXP 4450 laser printer emulating the \n     // HP LaserJet Plus, this is what I had to use to get 60 lines&#46;  Why?\n     // Inscrutible printer driver!  Maybe your printer driver functions in\n     // a more mathematically logical fashion&#46;  If so, adjust accordingly&#46;\n     // The left margin is set so small here because a margin is already\n     // built into the text file itself &#40;in this particular case&#41;&#46;\n\n     ACTIVATE REPORT oReport ;\n          ON INIT SayMemo2&#40;cTextfile,cLargura&#41;\n\n     oFont&#58;End&#40;&#41;\n   RETURN NIL\n\nSTATIC Function SayMemo2&#40;cTextfile,cLargura&#41;\n     LOCAL cText, cLine\n     LOCAL nFor, nLines, nPageln\n     cText &#58;= MEMOREAD&#40; &#40;cTextfile&#41; &#41;\n     nLines &#58;= MlCount&#40;cText,cLargura&#41; // Original text has up to 76 chars&#46; per line&#46;\n     nPageln &#58;= 0\n     *oReport&#58;BackLine&#40;1&#41;     // Not needed here&#46; If used, will cause printing\n                              // of subsequent pages to get out of synch by\n                              // pushing the start of printing down 1 line\n                              // per page&#46;\n     FOR nFor &#58;= 1 TO nLines\n          cLine &#58;= MemoLine&#40;cText, cLargura, nFor&#41;\n          oReport&#58;StartLine&#40;&#41;\n          oReport&#58;Say&#40;1,cLine&#41;\n          oReport&#58;EndLine&#40;&#41;\n             // The following section checks to see if we\'ve reached the\n             // bottom of the page &#40;60 lines&#41;&#46; If so, it then calls\n             // GetTop&#40;&#41; to eliminate empty spaces in the text file between\n             // the bottom of the outgoing page and the top line of the\n             // next page&#46;  The intent of this code is to get rid of the\n             // empty lines that most report generators insert between pages\n             // when output is to a text file -- otherwise our page printing\n             // would get out of synch with the formating of the original\n             // report&#46; This approach only works where printing &#40;including the\n             // page number and other page heading data&#41; is supposed to appear\n             // at the same place at the top of every page&#46;  \n          nPageln &#58;= nPageln + 1\n          IF nPageln = 60\n             nFor &#58;= GetTop&#40;cText,nFor,nLines,cLargura&#41;\n             nPageln &#58;= 0\n          ENDIF\n     NEXT\n     *oReport&#58;Newline&#40;&#41;  // Only activate this line if you need to have the\n                         // program eject another page upon completing printing&#46;\n   RETURN NIL\n\nSTATIC FUNCTION GetTop&#40;cText,nFor,nLines,cLargura&#41;\n   LOCAL Test &#58;= &#46;T&#46;,cLine\n   DO WHILE Test = &#46;T&#46; &#46;AND&#46; nFor &lt;= nLines\n      nFor &#58;= nFor + 1\n      cLine &#58;= MemoLine&#40;cText, cLargura, nFor&#41;\n      TEST &#58;= EMPTY&#40;cLine&#41;\n   ENDDO\n   nFor &#58;= nFor - 1\n   SysRefresh&#40;&#41;   // Inserted to allow Windows to catch up with housekeeping\n                  // that was held up during the &quot;DO WHILE&#46;&quot;\n   RETURN nFor\n[/code:1b0byfny]','',0,'AIA=','1b0byfny',1,0,'',397,0,0),(25420,5709,6,397,0,'201.13.19.183',1169507340,1,0,1,0,1,1,'','','The SMS es lo mismo que un email\n\nConsiste:\n\n[b:sr4y20ve]numero_del_telefono@operadora.com[/b:sr4y20ve]\n\nEjemplo:\n\n<!-- e --><a href=\"mailto:8765-3488@claro.com\">8765-3488@claro.com</a><!-- e -->','',0,'QA==','sr4y20ve',1,0,'',397,0,0),(25421,5725,6,397,0,'201.13.19.183',1169507472,1,0,1,0,1,1,'','','Amigo\n\nRevisas el ejemplo TESTTREE.PRG en SAMPLES, ok?','',0,'QA==','2i9fsk5e',1,0,'',397,0,0),(25422,5723,3,49,0,'62.13.172.78',1169507799,1,0,1,1,1,1,'','','can you send me the source code ?\nI can help you and insert it on the new project FWHREPORT','',0,'QA==','3vsxmujn',1,0,'',49,0,0),(25423,5695,6,397,0,'201.13.19.183',1169509084,1,0,1,0,1,1,'','','See\n\nConfigure each cam to save a file in a directory with names cam1.avi, cam2.avi, etc...\n\nPut this code in your application:\n\n[code:137aapj4]\noCapture&#58;SetFile&#40;&quot;directory\\cam1&#46;avi&quot;&#41;; oCapture&#58;StartCapture&#40;&#41; \noCapture1&#58;SetFile&#40;&quot;directory\\cam2&#46;avi&quot;&#41;; oCapture1&#58;StartCapture&#40;&#41; \noCapture2&#58;SetFile&#40;&quot;directory\\cam3&#46;avi&quot;&#41;; oCapture2&#58;StartCapture&#40;&#41; \n[/code:137aapj4]\n\nyour pc 1 have one cam saving the file cam1.avi in ?:\\directory\nyour pc 2 have one cam saving the file cam2.avi in ?:\\directory\nyour pc 3 have one cam saving the file cam3.avi in ?:\\directory\n\nYour application capture this files and show in defined video areas on your code:\n\n[code:137aapj4]\noCapture &#58;= TCapCapture&#40;&#41;&#58;New&#40; 25,25,320,240, oWnd , 0&#41; \noCapture1 &#58;= TCapCapture&#40;&#41;&#58;New&#40; 350,25,320,240, oWnd , 0&#41; \noCapture2 &#58;= TCapCapture&#40;&#41;&#58;New&#40; 675,25,320,240, oWnd , 0&#41; \n[/code:137aapj4]\n\nThe example works with file and not work with IPs, sorry.','',0,'AIA=','137aapj4',1,0,'',397,0,0),(25424,5713,1,15,0,'59.105.13.76',1169515870,1,0,1,1,1,0,'','','Hello Dutch,\n\nPlease send to me again. <!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->\n\nRegards,\n\nRichard','',0,'AIA=','1jl8lb4g',1,0,'',15,0,0),(25425,5726,6,138,0,'189.141.72.221',1169518804,1,0,1,1,1,1,'','','Depende que es lo que quieras:\n\nSi quieres escribir hojas de Excel, sin muchas complicaciones, con las cosas basicas, como fonts, forumlas y alguna que otra mariconada, la FileXLS no hay quien le gane por velocidad.\n\nPeeeero:\n\nSi quieres leer hojas de excel, escribir datos en las hojas, utilizar funciones, solvers, manejar libros, hacer graficas, etc etc etc, la XLScript es muy buena, pero ojo: como esta basada en el OLE, es tremendamente lenta cuando se trata de volumenes grandes de inforamcion, y no es la clase, es el Excel el que es lento. Cuando eso pasa hay que hacer un truco con el portapapeles pero tambien funciona muy bien.','',0,'AIA=','351ndyv6',1,0,'',138,0,0),(25426,5727,2,138,0,'189.141.72.221',1169519157,1,0,1,1,1,1,'','','Luis:\n\nFiveWin no transpasa \"magicamente\" tu programa Clipper actual a Windows.\n\nHay que hacer muchas modificaciones, comenzando con la interfaz con el usuario, todo lo que es @ reng, col SAY y GET son sustituidos por los comandos que Fivewin Win tiene para diseño de ventanas.\n\nEn nuestra experiencia, te puedo comentar que de tu programa Clipper tal y cual lo tienes este momento, pasara a FiveWin alrededor del 60% sin cambios, y lo unico que no deberas tocas son los \"procesos ciegos\", es decir, calculos internos, algoritmia, acceso a bases de datos, todo lo que no tenga una salida por pantalla o impresora pasa sin cambio.\n\nHay que rediseñar toda la interfaz con el usuario para que se adecue a Windows, y todo lo que es la reporteria tambien tiene que ser diseñada, aunque hay alguna clase que te ayudara a mantener tus reportes Clipper.','',0,'AIA=','3hcm6468',1,0,'',138,0,0),(25427,5713,1,47,0,'203.144.160.249',1169519815,1,0,1,1,1,0,'','','Thanks Antonio,\n\nPls download here\n\n[url:xhyypda8]http&#58;//hyperupload&#46;com/download/02ca015a22/EVENT&#46;ZIP&#46;html[/url:xhyypda8]\n\nThanks&amp;regards,\nDutch','',0,'EA==','xhyypda8',1,0,'',47,0,0),(25428,5728,6,913,0,'189.136.165.96',1169520145,1,0,1,1,1,1,'','Hola Antonio y Hola a todos en el foro','Hola como estas espero que muy bien <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->   \nDisculpa una pregunta e visto algunos programas que al poner datos en un get y se pone amarillo el fondo  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> como se puede hacer eso <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  y si es facil <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'EA==','3qv7jyer',1,0,'',913,0,0),(25429,5729,2,518,0,'189.171.50.151',1169520878,1,0,1,1,1,0,'','Error al compilar','Me esta apareciendo un error al compilar en un .prg de solo 1000 lineas como \"memory overbooked\"  nunca me habia salido eso y tengo prgs de muchas mas lineas que eso.\n\nLo que estoy compílando es una rutina algo larga para generar un archivo en excel....\n\nAlguien me pudiera ayudar ?\n\nGracias','',0,'EA==','3tgrwmx2',1,0,'',518,0,0),(25430,5729,2,774,0,'200.72.65.65',1169522174,1,0,1,1,1,1,'','','Amigo debes estar compilando fivewin.ch\n\nasi\n\n#include \"fivewin.ch\"\ny algun include mas','',0,'EA==','2n6wjmue',1,0,'',774,0,0),(25431,5730,6,774,0,'200.72.65.65',1169522442,1,0,1,1,1,1,'','USANDO TOOLBAR','he estado ojeando toolbar para hacer un menu con tooltip tipo balon\ny me funciona bien, pero tengo una duda como se ponen transparentes las bitmap de los botones y como se pueden hacer botones de distintos tamaños\n\nalguien lo ha resuelto:\n\nClaro podria usar TSbutton pero los tooltip no son tipo Ballon y eso es lo q yo quiero,, ademas si alguien tiene tsbutton para xhabr... me puede decir como obtenerlo\n\n\nGRACIAS','',0,'EA==','1gesr2ev',1,0,'',774,0,0),(25432,5730,6,439,0,'200.125.46.149',1169529827,1,0,1,1,1,1,'','','La clase TSBUtton que uso tanto para Harbour como para xHarbour es la que se encuentra en el foro de utilidades, y funciona.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4014\">http://fivetechsoft.com/forums/viewtopic.php?t=4014</a><!-- m -->','',0,'EA==','23hhskxp',1,0,'',439,0,0),(25433,5714,3,2,0,'87.218.146.216',1169533859,1,0,1,1,1,1,'','','Silvio,\n\nSearch fwh\\samples\\*.prg for TBMENU, if you don\'t find any references, then the FWH build that you are using does not support it','',0,'EA==','soxfwl0p',1,0,'',2,0,0),(25434,5728,6,2,0,'87.218.146.216',1169534162,1,0,1,1,1,1,'','','Aida,\n\nUn ejemplo:\n\noGet:bGotFocus := { || oGet:SetColor( 0, GetSysColor( 15 ) } \noGet:bLostFocus := { || oGet:SetColor( 0, CLR_WHITE ) }','',0,'EA==','rxvi4oq1',1,0,'',2,0,0),(25435,5721,6,2,0,'87.218.146.216',1169534341,1,0,1,1,1,1,'','','Esto sería más correcto:\n[code:2n7emx44]\nfor n = Len&#40; GetAllWin&#40;&#41; &#41; to 1 step -1 \n   if ValType&#40; GetAllWin&#40;&#41;&#91; n &#93; &#41; == &quot;O&quot; \n      GetAllWin&#40;&#41;&#91; n &#93;&#58;End&#40;&#41;\n   endif \nnext \n[/code:2n7emx44]','',0,'AIA=','2n7emx44',1,0,'',2,0,0),(25436,5729,2,2,0,'87.218.146.216',1169534669,1,0,1,1,1,1,'','','Tienes 3 opciones:\n\n* Compilar usando Clipper 5.2 y enlazar usando las librerías de Clipper 5.3 \n\n* Quitar los ficheros CH que no uses de de FiveWin.ch\n\n* Usar Borland maker.exe en vez de rmake.exe','',0,'AIA=','2o54hco0',1,0,'',2,0,0),(25437,5724,7,2,0,'87.218.146.216',1169538171,1,0,1,1,1,1,'','','oProgress:SetRange( nMin, nMax )\noProgress:SetStep( nStepInc )\noProgress:nPosition = nValor\nMsgInfo( oProgress:nPosition )\n\nSetText() no está soportado por Windows','',0,'AIA=','1tb5nw35',1,0,'',2,0,0),(25438,5642,3,28,0,'213.27.201.254',1169540447,1,0,1,1,1,0,'','','Yes indeed. I\'m preparing the web to open it again. I hope that it will be ready very soon. First I\'m going to open a provisional web and after I will open the definitive web. \nI will maintain you informed.\n\nA greeting\n\nSi, en efecto. Estoy preparando la página para abrirla de nuevo. Espero tenerla lista en cuanto antes. Primero voy a abrir una página provisional y posteriormente la definitiva. Ya os avisaré cuando esté lista.\n\nUn saludo','',0,'AIA=','1rkxq8xg',1,0,'',28,0,0),(25439,5711,4,13,0,'213.76.252.200',1169542077,1,0,1,1,1,0,'','','Richard,\n\nAdd your source tlhelp32.h and link app with toolhelp.lib.\n\nRegards\nPawel','',0,'AIA=','rk8gdh48',1,0,'',13,0,0),(25440,5731,6,533,0,'80.32.177.143',1169544881,1,0,1,1,1,0,'','Fichero de Ayudas','Buenas foro!!\n\nPodríais echarme un cable? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , mirad, quiero ponerle un fichero de ayuda en línea a mi programa, y necesitaria que me recomendáseis un editor de ayudas y luego cómo anexar ese fichero de ayuda a mi programa.\n\nMUCHAS GRACIAS de antemano.','',0,'AIA=','33u2npxz',1,0,'',533,0,0),(25441,5695,6,49,0,'213.82.134.66',1169544883,1,0,1,1,1,1,'','','ok but  can I installed  3 or four cam into a pc  or use  in a pc webcam installed on other pc  and use it  on tcip or tsocket ?\n?','',0,'AIA=','khpt86dx',1,0,'',49,0,0),(25442,5713,1,49,0,'213.82.134.66',1169545133,1,0,1,1,1,1,'','','ok but it not run on xharbour \nI must made many modifies (CMX)\nthen I compiled it but I cannot see the lines to divide the columns\n\n-------','',0,'AIA=','17wgcz7q',1,0,'',49,0,0),(25443,5642,3,49,0,'213.82.134.66',1169545455,1,0,1,1,1,1,'','','Paco ,\nI can Help you to create a new dynamic website','',0,'AIA=','uybysvmb',1,0,'',49,0,0),(25444,5731,6,2,0,'87.218.146.105',1169546391,1,0,1,1,1,1,'','','Mike,\n\nTe recomendamos el programa \"Help &amp; Manual\" para crear tus ayudas\n\nRevisa samples\\TestHelp.prg','',0,'AIA=','2cvo3pt9',1,0,'',2,0,0),(25445,5410,7,400,0,'200.205.49.10',1169547541,1,0,1,1,1,1,'','','Bom Dia Fernando,\n\nMuito Bonita a ViaCoral, p/ Pocket PC, parabens !!!\n\nEsta versao da ViaCoral, eh só pra Fwh Pocket PC ou serve tb para FwH 2.6 ?\n\nE qual eh o preço ?\n\n@braços Ale','',0,'AIA=','2br1vs51',1,0,'',400,0,0),(25446,5732,3,707,0,'222.124.20.54',1169548930,1,0,1,1,1,0,'','capture image from scanner','Hi All !\n\nCan you help me about the subject ?\n\nThank\'s\n\nRegards\nAreang','',0,'AIA=','1lboq1e1',1,0,'',707,0,0),(25447,5732,3,49,0,'213.82.134.66',1169549071,1,0,1,1,1,1,'','','there\'s a class on .\\scanner carpeta of fw','',0,'AIA=','3fgg9wq8',1,0,'',49,0,0),(25448,5675,20,154,0,'151.21.77.146',1169552391,1,0,1,1,1,1,'','Re: Problema grafico 1','[quote=&quot;EnricoMaria&quot;:b2usjm1e]Provato su un altro computer. Funziona perfettamente (vedo la retinatura). A questo punto non mi viene in mente proprio nient\'altro... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:b2usjm1e]\nEnrico,\nmi sembra quasi impossibile...\nio non ho trovato un computer che li facesse vedere e Tu hai provato e tutti funzionano...    Topolino farebbe \"Mumble mumble...\" <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \ne poi, possibile che nessun altro ha provato?  Anche solo per confermare se lo rileva o no!\nNessuno usa i checkbox o i radio dentro ad un folder con FWH? <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','b2usjm1e',1,0,'',154,0,0),(25449,5676,20,154,0,'151.21.77.146',1169552482,1,0,1,1,1,1,'','','Qualche conferma / smentita?','',0,'gA==','1331r3ec',1,0,'',154,0,0),(25450,5642,3,28,0,'213.27.201.254',1169552690,1,0,1,1,1,0,'','','Hello Silvio. \n\nThank you very much. I have a person working in CanalFive that he is preparing the web page and other things. Very soon we will see the result.\n\nThank you very much, sincerely.\n\nPaco','',0,'gA==','2hu9dtcz',1,0,'',28,0,0),(25451,5676,20,6,0,'87.18.233.222',1169553385,1,0,1,1,1,1,'','','Confermo. Non ho soluzioni.\n\nEMG','',0,'gA==','2z7yywqi',1,0,'',6,0,0),(25452,5721,6,104,0,'201.58.30.230',1169554824,1,0,1,1,1,0,'','','Olá Antonio,\n\nComo estas mudanças agora funcionou 100%  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[code:2k79m1r3]\n&#46;&#46;&#46;\n*  ErrorBlock&#40; &#123;|e| MsgStop&#40; ErrorMessage&#40;e&#41; + &quot; from Errorsys, line&#58;&quot; + ;\n*                            Str&#40; ProcLine&#40; 1 &#41;, 3 &#41; &#41;, __quit&#40;&#41; &#125; &#41;\n\n   ErrorBlock&#40; &#123; |e| exit_all&#40;e,&#46;t&#46;&#41; &#125; &#41;\n&#46;&#46;&#46;\n[/code:2k79m1r3]\n\n[code:2k79m1r3]\n&#46;&#46;&#46;\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON PAINT DrawBitmap&#40; hDC, hLogo, 6, 6 &#41;\n\n   DeleteObject&#40; hLogo &#41;\n\n*   if lRet == nil &#46;or&#46; &#40; !LWRunning&#40;&#41; &#46;and&#46; lRet &#41;\n*      SET RESOURCES TO\n*      ErrorLevel&#40; 1 &#41;\n*      QUIT              // must be QUIT !!!\n*   endif\n\n   if lRet == nil &#46;or&#46; &#40; !LWRunning&#40;&#41; &#46;and&#46; lRet &#41; \n      exit_all&#40; e, &#46;f&#46; &#41;\n   endif \n\nreturn lRet\n&#46;&#46;&#46;\n[/code:2k79m1r3]\n\n[code:2k79m1r3]\n&#46;&#46;&#46;\nstatic function exit_all&#40; e, lRetry &#41;\n\nif lRetry\n   MsgStop&#40; ErrorMessage&#40;e&#41; + &quot; from Errorsys, line&#58;&quot; + ;\n                                Str&#40; ProcLine&#40; 1 &#41;, 3 &#41; &#41;\nendif\n\nSET RESOURCES TO\nErrorLevel&#40; 1 &#41;\n\nfor n = Len&#40; GetAllWin&#40;&#41; &#41; to 1 step -1 \n   if ValType&#40; GetAllWin&#40;&#41;&#91; n &#93; &#41; == &quot;O&quot; \n      GetAllWin&#40;&#41;&#91; n &#93;&#58;End&#40;&#41; \n   endif \nnext \nsysrefresh&#40;&#41;\nQUIT\n\n//----------------------------------------------------------------------------//\n&#46;&#46;&#46;\n[/code:2k79m1r3]\n\nVerifique por favor se elas estão corretas ok ? \n\nObrigado,\n\nRossine.','',0,'AIA=','2k79m1r3',1,0,'',104,0,0),(25453,5733,6,154,0,'151.21.77.146',1169555186,1,0,1,1,1,1,'','Graphic problem 1','Dear Fwh\'s,\ni found a little problem with RadioButton and Checkbox insert into the Folder. \nUsing the keyboard, focus is not looked on these controls. \nThe test is[quote=&quot;Ugo&quot;:3rev9jkz]Se invece uso il folder con i resources non mi appare mai la retinatura attorno ai Check e ai radio button:[code:3rev9jkz]function Main&#40;&#41;\n\n   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2, oFld, oCbx\n\n   cVar1 &#58;= &quot;Test1&quot;\n   cVar2 &#58;= &quot;Test2&quot;\n   cVar3 &#58;= &quot;One&quot;\n   lVar1 &#58;= &#46;T&#46;\n   nVar1 &#58;= 1\n   lVar2 &#58;= &#46;T&#46;\n   nVar2 &#58;= 2\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TestTabFolder&quot;\n\n   REDEFINE FOLDER oFld ID 1000 ITEMS &quot;Test1&quot;, &quot;Test2&quot; DIALOGS &quot;Folder&quot;, &quot;Folder&quot; OF oDlg\n\n   REDEFINE GET cVar1 ID 101 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE GET cVar2 ID 102 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE RADIO nVar1 ID 103, 104 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE RADIO nVar2 ID 105, 106 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE COMBOBOX oCbx VAR cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; ID 107 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar2 ID 108 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar1 ID 109 OF oFld&#58;aDialogs&#91;1&#93; ON CHANGE oDlg&#58;AEvalWhen&#40; oFld&#91;1&#93; &#41;\n\n   REDEFINE GET cVar1 ID 101 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE GET cVar2 ID 102 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE RADIO nVar1 ID 103, 104 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE RADIO nVar2 ID 105, 106 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE COMBOBOX cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; ID 107 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar2 ID 108 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar1 ID 109 OF oFld&#58;aDialogs&#91;2&#93; ON CHANGE oDlg&#58;AEvalWhen&#40; oFld&#91;2&#93; &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN Nil[/code:3rev9jkz]con questa dialog:[code:3rev9jkz]TestTabFolder DIALOG 6, 15, 222, 127\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;Test TAB Folder&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;SysTabControl32&quot;, 1000, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 3, 4, 216, 123\n&#125;[/code:3rev9jkz]e questo folder:[code:3rev9jkz]Folder DIALOG 6, 15, 213, 114\nSTYLE WS_CHILD | WS_VISIBLE | WS_BORDER\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 11, 17, 39, 12\n EDITTEXT 102, 13, 34, 37, 12\n CONTROL &quot;Radio&quot;, 103, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 74, 18, 60, 12\n CONTROL &quot;Radio&quot;, 104, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 75, 32, 60, 12\n CONTROL &quot;Radio&quot;, 105, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 143, 19, 60, 12\n CONTROL &quot;Radio&quot;, 106, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 143, 31, 60, 12\n CHECKBOX &quot;Checkbox&quot;, 108, 115, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n COMBOBOX 107, 18, 64, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n GROUPBOX &quot;Group&quot;, -1, 4, 4, 204, 110, BS_GROUPBOX\n CHECKBOX &quot;Checkbox&quot;, 109, 25, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;[/code:3rev9jkz][/quote:3rev9jkz]\n\nEnrico not confirm this problem, but its exe does not work on my computer and in many others. \nSomeone can confirm or not?\n\nMany thanks for your replies','',0,'gIA=','3rev9jkz',1,0,'',154,0,0),(25454,5676,20,154,0,'151.21.77.146',1169555888,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:3gqk0s7l]Confermo.[/quote:3gqk0s7l]Enrico,\npossibile che su questo ng rispondi solo tu?\n[quote=&quot;EnricoMaria&quot;:3gqk0s7l]Non ho soluzioni.[/quote:3gqk0s7l]Non pretendo la soluzione...\n... anche se è importante ovviamente, ma quando non c\'è, la conferma che il problema esiste e, a volte anche solo qualche indicazione che indirizza, potrebbe facilitare nella ricerca!\nGrazie comunque della risposta.','',0,'gA==','3gqk0s7l',1,0,'',154,0,0),(25456,5734,3,154,0,'151.21.77.146',1169557383,1,0,1,1,1,1,'','Graphic problem 1','Dear Fwh\'s,\ni found a little problem with RadioButton and Checkbox insert into the Folder. \nUsing the keyboard, focus is not looked on these controls. \nThe test is[quote=&quot;Ugo&quot;:cdvk7wmk]Se invece uso il folder con i resources non mi appare mai la retinatura attorno ai Check e ai radio button:[code:cdvk7wmk]function Main&#40;&#41;\n\n   Local oDlg, cVar1, cVar2, nVar1, nVar2, cVar3, lVar1, lVar2, oFld, oCbx\n\n   cVar1 &#58;= &quot;Test1&quot;\n   cVar2 &#58;= &quot;Test2&quot;\n   cVar3 &#58;= &quot;One&quot;\n   lVar1 &#58;= &#46;T&#46;\n   nVar1 &#58;= 1\n   lVar2 &#58;= &#46;T&#46;\n   nVar2 &#58;= 2\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TestTabFolder&quot;\n\n   REDEFINE FOLDER oFld ID 1000 ITEMS &quot;Test1&quot;, &quot;Test2&quot; DIALOGS &quot;Folder&quot;, &quot;Folder&quot; OF oDlg\n\n   REDEFINE GET cVar1 ID 101 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE GET cVar2 ID 102 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE RADIO nVar1 ID 103, 104 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE RADIO nVar2 ID 105, 106 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE COMBOBOX oCbx VAR cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; ID 107 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar2 ID 108 OF oFld&#58;aDialogs&#91;1&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar1 ID 109 OF oFld&#58;aDialogs&#91;1&#93; ON CHANGE oDlg&#58;AEvalWhen&#40; oFld&#91;1&#93; &#41;\n\n   REDEFINE GET cVar1 ID 101 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE GET cVar2 ID 102 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE RADIO nVar1 ID 103, 104 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE RADIO nVar2 ID 105, 106 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE COMBOBOX cVar3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot;, &quot;Four&quot; &#125; ID 107 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar2 ID 108 OF oFld&#58;aDialogs&#91;2&#93; WHEN lVar1\n   REDEFINE CHECKBOX lVar1 ID 109 OF oFld&#58;aDialogs&#91;2&#93; ON CHANGE oDlg&#58;AEvalWhen&#40; oFld&#91;2&#93; &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   RETURN Nil[/code:cdvk7wmk]con questa dialog:[code:cdvk7wmk]TestTabFolder DIALOG 6, 15, 222, 127\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;Test TAB Folder&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;SysTabControl32&quot;, 1000, &quot;SysTabControl32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 3, 4, 216, 123\n&#125;[/code:cdvk7wmk]e questo folder:[code:cdvk7wmk]Folder DIALOG 6, 15, 213, 114\nSTYLE WS_CHILD | WS_VISIBLE | WS_BORDER\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 11, 17, 39, 12\n EDITTEXT 102, 13, 34, 37, 12\n CONTROL &quot;Radio&quot;, 103, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 74, 18, 60, 12\n CONTROL &quot;Radio&quot;, 104, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 75, 32, 60, 12\n CONTROL &quot;Radio&quot;, 105, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 143, 19, 60, 12\n CONTROL &quot;Radio&quot;, 106, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 143, 31, 60, 12\n CHECKBOX &quot;Checkbox&quot;, 108, 115, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n COMBOBOX 107, 18, 64, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP\n GROUPBOX &quot;Group&quot;, -1, 4, 4, 204, 110, BS_GROUPBOX\n CHECKBOX &quot;Checkbox&quot;, 109, 25, 91, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n&#125;[/code:cdvk7wmk][/quote:cdvk7wmk]\n\nEnrico not confirm this problem, but its exe does not work on my computer and in many others. \nSomeone can confirm or not?\n\nMany thanks for your replies','',0,'gIA=','cdvk7wmk',1,0,'',154,0,0),(25457,5726,6,53,0,'189.139.15.141',1169560529,1,0,1,1,1,1,'','','Gracias René:\n\nEn principio la clase FileXls parece ser suficiente.\n\nVoy a esperar un poco a ver si alguien más se anima a dar sus experiencias ya sea con esta clase o con alguna otra.\n\nSaludos','',0,'gIA=','3nwup8bo',1,0,'',53,0,0),(25458,4134,4,267,0,'200.208.238.2',1169562197,1,0,1,1,1,1,'','','Antonio,\n\nI received the new update, but now it appears the following error:\n\nFiveCE.lib(TFTPFILE.obj) : error LNK2001: unresolved external symbol HB_FUN_INTERNETSETFILEPOINTER\nFiveCE.lib(TFTPFILE.obj) : error LNK2001: unresolved external symbol HB_FUN_INTERNETREADFILE\nFiveCE.lib(TFTPFILE.obj) : error LNK2001: unresolved external symbol HB_FUN_INTERNETWRITEFILE\nFiveCE.lib(TFTPFILE.obj) : error LNK2001: unresolved external symbol HB_FUN_FTPOPENFILE','',0,'gIA=','aeoc6kf7',1,0,'',267,0,0),(25459,5734,3,51,0,'80.122.88.242',1169563167,1,0,1,1,1,0,'','','I have a similar problem. \nDo you have a ready exe and a prg so I can test here.\nRegards\nOtto','',0,'gIA=','fmdhpncz',1,0,'',51,0,0),(25460,5719,7,400,0,'201.92.9.63',1169563571,1,0,1,1,1,1,'','','Antonio,\n\no exemplo 10, esta dando erro:\n\nFWPPC Error\n\nOpen Error\nStack Calls:\nDBUSEAREA(0)\nMAIN(13)\n\nO q pode ser ?\n\n@braços Ale','',0,'gIA=','1batnh3b',1,0,'',400,0,0),(25461,4134,4,3,0,'82.120.23.253',1169565048,1,0,1,1,1,1,'','','Vilan \n\nMake sure you are linking wininet.lib\n\n echo $(VCDIR)\\lib\\arm\\wininet.lib &gt;&gt; msvc.tmp\n\nRichard','',0,'gIA=','10elunwp',1,0,'',3,0,0),(25462,5735,3,335,0,'68.193.88.53',1169565099,1,0,1,1,1,0,'','Report Generator 2','Following the prior discussion about open source development of a report generator, or a fully featured browse class, etc...\n\nThis discussion about open source add-on tools for FWH is interesting in view of some springboard projects ripe for open-source development that have been presented here and ignored in the past.\n\nAn excellent example is Tsbrowse (for which James Bott cleaned up ver. 6.1 and makes available for download on the Programmers Page of his website). Tsbrowse is a great \"springboard\" for continuing open source development. It combines Wbrowse, Tcbrowse (much enhanced over the standard!!!) and Tccolumn into a single class with some added features. It works. It is viable. Yet it has been ignored as a platform for robust continuing open source development.\n\nWhy?\n\nThere are many other examples of open source \"springboard\" tools that have been offered to the FWH community, but ignored. By \"springboard\" I mean an FWH class that has been offered that does an important job, that works, but which needs a lot more development to make it fully robust and to keep it up-to-date.\n\nWhy are they ignored by the FWH community?\n\n\"The World Is Flat\" by Thomas Friedman is a best selling book that came out in 2005. It describes how globilization works, including open source development. Compared to the description of robust open source development in Friedman\'s book, some FWH open source projects seem broken.\n\nWhy can\'t we make open source development work well in add-on FWH tools?\n\nYet the continued development of Harbour and xHarbour seem to be viable open source projects operating in the way Friedman describes. (But why are there 2 instead of just 1??? Is the original difference in philosophy between Harbour and xHarbour still relevant?) \n\nThe \"Why\" questions probably need answering and solutions found before  many will be willing to devote serious time to the kind of open source projects discussed in the prior thread. And there are viable \"springboards\" already available for an open source report generator, an ad-hoc browse builder, an adhoc query generator, etc., if it would be worthwhile for their authors to contribute them.\n\nHowever, I can fully understand why Antonio may not wish to get involved in these open source add-on projects because he has his hands full concentrating on building and maintaining the multiple underlying platforms that he provides.  So I guess this is mainly a discussion for the rest of us.\n\nJust my two cents.  - Roger','',0,'gIA=','3aecdzro',1,0,'',335,0,0),(25463,5730,6,774,0,'200.72.179.125',1169565251,1,0,1,1,1,1,'','','UNA CONSULTA LA TSBUTTON NO SOPORTA tooltip tipo BALLON\n\nGRCIAS','',0,'gIA=','39isg8k8',1,0,'',774,0,0),(25464,5729,2,518,0,'189.170.4.26',1169565872,1,0,1,1,1,0,'','','Gracias por contestar... esta muy raro el asunto. El error me lo marca en la linea 1151 de este archivo, si borro unas lineas antes de la 1151 ya no me marca el error ???\n\n// Testing FiveWin FileXLS class\n\n#include \"FiveWin.ch\"\n#include \"FileXLS.ch\"\n#define TODO     nOr( BORDER_LEFT, BORDER_RIGHT, BORDER_TOP, BORDER_BOTTOM )\n#define BORDER_DOWN   nOr( BORDER_LEFT, BORDER_RIGHT, BORDER_BOTTOM )\n\nstatic oFileXLS\n\n//----------------------------------------------------------------------------//\n\nfunction concetrado()\n\n    memvar oOdbc\n    memvar ordd\n\n    local nFormat\n    local x:=0\n    local i :=1\n    local nFont1, nFont2\n    local total:=0\n    LOCAL Xtot := 0\n    LOCAL Ytot := 0\n    LOCAL Y1TOT:=0\n    LOCAL Y2TOT:=0\n    LOCAL Y3TOT:=0\n    LOCAL Y4TOT:=0\n    LOCAL Y5TOT:=0\n    LOCAL Y6TOT:=0\n    LOCAL Y7TOT:=0\n    LOCAL Y8TOT:=0\n    LOCAL Y9TOT:=0\n    LOCAL Y10TOT:=0\n    LOCAL Y12TOT:=0\n    LOCAL Y13TOT:=0\n    LOCAL Y14TOT:=0\n    LOCAL Y15TOT:=0\n    LOCAL Y11TOT:=0\n\n    LOCAL axTOT:=array(9)\n    local cnum\n    local cnum2\n    local cnum3\n\n    local dfecha\n    local ndeci\n    local ndeci1\n    LOCAL CQUERY\n\n    cursorwait()\n\n    cquery:=\"select * from prontuario\"\n\n    use (cQuery) via \"ODBC\" ALIAS \"pro\"\n    if oRdd:oOdbc:IsError()\n      oRdd:oOdbc:ShowErrorList()\n      oRdd:oOdbc:aErrors := {}\n      DbCloseArea()\n      return nil\n    endif\n\n   pro-&gt;( dbgotop() )\n\n    use cnt new\n    select cnt\n    zap\n\n    do while .not. pro-&gt;(eof() )\n\n  cnt-&gt;(dbappend())\n  cnt-&gt;inst:=pro-&gt;inst\n  cnt-&gt;c11:=pro-&gt;c11\n  cnt-&gt;c12 :=pro-&gt;c12\n  cnt-&gt;c13 :=pro-&gt;c13\n  cnt-&gt;c14 :=pro-&gt;c14\n  cnt-&gt;c15 :=pro-&gt;c15\n  cnt-&gt;c21 :=pro-&gt;c21\n  cnt-&gt;c22 :=pro-&gt;c22\n  cnt-&gt;c23 :=pro-&gt;c23\n  cnt-&gt;c31 :=pro-&gt;c31\n  cnt-&gt;c41 :=pro-&gt;c41\n  cnt-&gt;c42 :=pro-&gt;c42\n  cnt-&gt;c43 :=pro-&gt;c43\n  cnt-&gt;c44 :=pro-&gt;c44\n  cnt-&gt;c51 :=pro-&gt;c51\n  cnt-&gt;c52 :=pro-&gt;c52\n  cnt-&gt;c61 :=pro-&gt;c61\n  cnt-&gt;c62 :=pro-&gt;c62\n  cnt-&gt;c63 :=pro-&gt;c63\n  cnt-&gt;c71 :=pro-&gt;c71\n  cnt-&gt;c72 :=pro-&gt;c72\n  cnt-&gt;c73 :=pro-&gt;c73\n  cnt-&gt;c74 :=pro-&gt;c74\n  cnt-&gt;c9n :=pro-&gt;c9n\n  cnt-&gt;c10n :=pro-&gt;c10n\n  cnt-&gt;c11n :=pro-&gt;c11n\n  cnt-&gt;c12n :=pro-&gt;c12n\n  cnt-&gt;c13n :=pro-&gt;c13n\n  cnt-&gt;c14n :=pro-&gt;c14n\n  cnt-&gt;c15n :=pro-&gt;c15n\n  cnt-&gt;c16n :=pro-&gt;c16n\n  cnt-&gt;c17n :=pro-&gt;c17n\n  cnt-&gt;c18n :=pro-&gt;c18n\n  cnt-&gt;c19n :=pro-&gt;c19n\n  cnt-&gt;c20n :=pro-&gt;c20n\n  cnt-&gt;c21n :=pro-&gt;c21n\n  cnt-&gt;c9d :=pro-&gt;c9d\n  cnt-&gt;c10d :=pro-&gt;c10d\n  cnt-&gt;c11d :=pro-&gt;c11d\n  cnt-&gt;c12d :=pro-&gt;c12d\n  cnt-&gt;c13d :=pro-&gt;c13d\n  cnt-&gt;c14d :=pro-&gt;c14d\n  cnt-&gt;c15d :=pro-&gt;c15d\n  cnt-&gt;c16d :=pro-&gt;c16d\n  cnt-&gt;c17d :=pro-&gt;c17d\n  cnt-&gt;c18d :=pro-&gt;c18d\n  cnt-&gt;c19d :=pro-&gt;c19d\n  cnt-&gt;c20d :=pro-&gt;c20d\n  cnt-&gt;c21d :=pro-&gt;c21d\n  cnt-&gt;c211 :=pro-&gt;c211\n  cnt-&gt;c221 :=pro-&gt;c221\n  cnt-&gt;c231 :=pro-&gt;c231\n  cnt-&gt;c232 :=pro-&gt;c232\n  cnt-&gt;c234 :=pro-&gt;c234\n  cnt-&gt;c235 :=pro-&gt;c235\n  cnt-&gt;c236 :=pro-&gt;c236\n  cnt-&gt;c237 :=pro-&gt;c237\n  cnt-&gt;c238 :=pro-&gt;c238\n  cnt-&gt;c239 :=pro-&gt;c239\n  cnt-&gt;c241 :=pro-&gt;c241\n  cnt-&gt;c242 :=pro-&gt;c242\n  cnt-&gt;c243 :=pro-&gt;c243\n  cnt-&gt;c244 :=pro-&gt;c244\n  cnt-&gt;c245 :=pro-&gt;c245\n  cnt-&gt;c251 :=pro-&gt;c251\n  cnt-&gt;c261 :=pro-&gt;c261\n  cnt-&gt;c262 :=pro-&gt;c262\n  cnt-&gt;c263 :=pro-&gt;c263\n  cnt-&gt;c264 :=pro-&gt;c264\n  cnt-&gt;c265 :=pro-&gt;c265\n  cnt-&gt;c266 :=pro-&gt;c266\n  cnt-&gt;c267 :=pro-&gt;c267\n  cnt-&gt;c268 :=pro-&gt;c268\n  cnt-&gt;c269 :=pro-&gt;c269\n  cnt-&gt;c2610 :=pro-&gt;c2610\n  cnt-&gt;c2611 :=pro-&gt;c2611\n  cnt-&gt;c2612 :=pro-&gt;c2612\n  cnt-&gt;c2613 :=pro-&gt;c2613\n  cnt-&gt;c2614 :=pro-&gt;c2614\n  cnt-&gt;c2615 :=pro-&gt;c2615\n  cnt-&gt;c2616 :=pro-&gt;c2616\n  cnt-&gt;c2617 :=pro-&gt;c2617\n  cnt-&gt;c2618 :=pro-&gt;c2618\n  cnt-&gt;c2619 :=pro-&gt;c2619\n  cnt-&gt;c2620 :=pro-&gt;c2620\n  cnt-&gt;c2621 :=pro-&gt;c2621\n  cnt-&gt;c271 :=pro-&gt;c271\n  cnt-&gt;c272 :=pro-&gt;c272\n  cnt-&gt;c273 :=pro-&gt;c273\n  cnt-&gt;c274 :=pro-&gt;c274\n  cnt-&gt;c275 :=pro-&gt;c275\n  cnt-&gt;c276 :=pro-&gt;c276\n  cnt-&gt;c277 :=pro-&gt;c277\n  cnt-&gt;c278 :=pro-&gt;c278\n  cnt-&gt;c279 :=pro-&gt;c279\n  cnt-&gt;c2710 :=pro-&gt;c2710\n  cnt-&gt;c2711 :=pro-&gt;c2711\n  cnt-&gt;c2712 :=pro-&gt;c2712\n  cnt-&gt;c281 :=pro-&gt;c281\n  cnt-&gt;c291 :=pro-&gt;c291\n  cnt-&gt;c301 :=pro-&gt;c301\n  cnt-&gt;c311 :=pro-&gt;c311\n  cnt-&gt;c321 :=pro-&gt;c321\n  cnt-&gt;c331 :=pro-&gt;c331\n  cnt-&gt;c341 :=pro-&gt;c341\n  cnt-&gt;c351 :=pro-&gt;c351\n  cnt-&gt;c361 :=pro-&gt;c361\n  cnt-&gt;c362 :=pro-&gt;c362\n  cnt-&gt;c363 :=pro-&gt;c363\n  cnt-&gt;c364 :=pro-&gt;c364\n  cnt-&gt;c365 :=pro-&gt;c365\n  cnt-&gt;c366 :=pro-&gt;c366\n  cnt-&gt;c367 :=pro-&gt;c367\n  cnt-&gt;c368 :=pro-&gt;c368\n  cnt-&gt;c371 :=pro-&gt;c371\n  cnt-&gt;c381 :=pro-&gt;c381\n  cnt-&gt;c391 :=pro-&gt;c391\n  cnt-&gt;c401 :=pro-&gt;c401\n  cnt-&gt;c411 :=pro-&gt;c411\n  cnt-&gt;c421 :=pro-&gt;c421\n  cnt-&gt;c431 :=pro-&gt;c431\n  cnt-&gt;c441 :=pro-&gt;c441\n  cnt-&gt;c451 :=pro-&gt;c451\n  cnt-&gt;c461 :=pro-&gt;c461\n  cnt-&gt;c471 :=pro-&gt;c471\n  cnt-&gt;c481 :=pro-&gt;c481\n  cnt-&gt;c491 :=pro-&gt;c491\n  cnt-&gt;c492 :=pro-&gt;c492\n  cnt-&gt;c493 :=pro-&gt;c493\n  cnt-&gt;c494 :=pro-&gt;c494\n  cnt-&gt;c501 :=pro-&gt;c501\n  cnt-&gt;c502 :=pro-&gt;c502\n  cnt-&gt;c511 :=pro-&gt;c511\n  cnt-&gt;c512 :=pro-&gt;c512\n  cnt-&gt;c521 :=pro-&gt;c521\n  cnt-&gt;c522 :=pro-&gt;c522\n  cnt-&gt;c523 :=pro-&gt;c523\n  cnt-&gt;c524 :=pro-&gt;c524\n  cnt-&gt;c525 :=pro-&gt;c525\n  cnt-&gt;c526 :=pro-&gt;c526\n  cnt-&gt;c527 :=pro-&gt;c527\n  cnt-&gt;c528 :=pro-&gt;c528\n  cnt-&gt;c531 :=pro-&gt;c531\n  cnt-&gt;c532 :=pro-&gt;c532\n  cnt-&gt;c75 :=pro-&gt;c75\n  cnt-&gt;c35a :=pro-&gt;c35a\n  cnt-&gt;c369 :=pro-&gt;c369\n  cnt-&gt;c523 :=pro-&gt;c523\n  cnt-&gt;c524 :=pro-&gt;c524\n  cnt-&gt;c525 :=pro-&gt;c525\n  cnt-&gt;c526 :=pro-&gt;c526\n  cnt-&gt;c527 :=pro-&gt;c527\n  cnt-&gt;c528 :=pro-&gt;c528\n\n  pro-&gt;(dbskip())\n  enddo\n\n  pro-&gt;(dbclosearea())\n\n msginfo(\"Se han cargado los datos, se procede a calcular el concentrado, esto puede tardar varios minutos\")\n\n    DEFINE XLS FORMAT cnum PICTURE \"###,###,##0\"\n    DEFINE XLS FORMAT cnum2 PICTURE \"###,###,##0 %\"\n    DEFINE XLS FORMAT cnum3 PICTURE \"###,###,###.# %\"\n\n    DEFINE XLS FORMAT dFecha PICTURE XLSFORMAT_DATE_1\n\n    DEFINE XLS FORMAT ndeci PICTURE \'##,###,###.##\'\n    DEFINE XLS FORMAT ndeci1 PICTURE \'##,###,##0.#\'\n\n\n\n    DEFINE XLS FONT nFont1 NAME \"Arial\" HEIGHT 14 BOLD\n    DEFINE XLS FONT nFont2 NAME \"Arial\" BOLD\n\n    XLS oFileXLS FILE \"concent.xls\"\n\n      xls col 1 width 12 of ofilexls\n      xls col 3 width 12 of ofilexls\n      xls col 2 width 12 of ofilexls\n      xls col 4 width 12 of ofilexls\n      xls col 5 width 12 of ofilexls\n      xls col 6 width 12 of ofilexls\n      xls col 7 width 12 of ofilexls\n      xls col 8 width 12 of ofilexls\n      xls col 9 width 12 of ofilexls\n      xls col 10 width 12 of ofilexls\n      xls col 11 width 12 of ofilexls\n      xls col 12 width 12 of ofilexls\n      xls col 13 width 12 of ofilexls\n      xls col 14 width 12 of ofilexls\n      xls col 15 width 12 of ofilexls\n      xls col 16 width 12 of ofilexls\n      xls col 17 width 12 of ofilexls\n      xls col 18 width 12 of ofilexls\n      xls col 19 width 12 of ofilexls\n\n  @ 2,1 XLS SAY \"TABLA 1. OFERTA EDUCATIVA\" of ofilexls\n  @ 3,1 XLS SAY \"         PERIODO ENERO - JUNIO DEL 2006\" of ofilexls\n\n  @ 5,2 XLS SAY \"TSU/PA\" of ofilexls\n  @ 5,4 XLS SAY \"Licenciatura\" of ofilexls\n  @ 5,6 XLS SAY \"Especialidad\" of ofilexls\n  @ 5,8 XLS SAY \"Maestria\" of ofilexls\n  @ 5,10 XLS SAY \"Doctorado\" of ofilexls\n\n  @ 6,1 XLS SAY \"INSTITUCIÓN\" of ofilexls\n  @ 6,2 XLS SAY \"No. PE\" of ofilexls\n  @ 6,3 XLS SAY \" % \" of ofilexls\n\n  @ 6,4 XLS SAY \"No. PE\" of ofilexls\n  @ 6,5 XLS SAY \" % \" of ofilexls\n\n  @ 6,6 XLS SAY \"No. PE\" of ofilexls\n  @ 6,7 XLS SAY \" % \" of ofilexls\n\n  @ 6,8 XLS SAY \"No. PE\" of ofilexls\n  @ 6,9 XLS SAY \" % \" of ofilexls\n\n  @ 6,10 XLS SAY \"No. PE\" of ofilexls\n  @ 6,11 XLS SAY \" % \" of ofilexls\n\n  @ 6,12 XLS SAY \"TOTAL\" of ofilexls\n  @ 6,13 XLS SAY \" % \" of ofilexls\n\n  @ 7,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 8,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 9,1 XLS SAY \"UTS      \" of ofilexls\n  @ 10,1 XLS SAY \"UTH      \" of ofilexls\n  @ 11,1 XLS SAY \"UTN      \" of ofilexls\n  @ 12,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 13,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 14,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 16,1 XLS SAY \"TOTAL    \" of ofilexls\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=7\n  DO WHILE .NOT. CNT-&gt;(EOF())\n   XTOT:=cnt-&gt;c11  + cnt-&gt;c12 + cnt-&gt;c13 + cnt-&gt;c14 + cnt-&gt;c15\n   @ x,2 XLS SAY cnt-&gt;c11 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY ((cnt-&gt;c11 / XTOT )) of ofilexls FORMAT cnum2\n   @ x,4 XLS SAY cnt-&gt;c12 of ofilexls FORMAT cnum\n   @ x,5 XLS SAY ((cnt-&gt;c12 / XTOT )) of ofilexls FORMAT cnum2\n   @ x,6 XLS SAY cnt-&gt;c13 of ofilexls FORMAT cnum\n   @ x,7 XLS SAY ((cnt-&gt;c13/XTOT )) of ofilexls FORMAT cnum2\n   @ x,8 XLS SAY cnt-&gt;c14 of ofilexls FORMAT cnum\n   @ x,9 XLS SAY ((cnt-&gt;c14/XTOT )) of ofilexls FORMAT cnum2\n   @ x,10 XLS SAY cnt-&gt;c15 of ofilexls FORMAT cnum\n   @ x,11 XLS SAY((cnt-&gt;c15/XTOT )) of ofilexls FORMAT cnum2\n   @ x,12 XLS SAY XTOT of ofilexls FORMAT CNUM\n\n   axtot[i]:=xtot\n   YTOT:=YTOT + XTOT\n\n   Y1TOT:=Y1TOT + CNT-&gt;C11\n   Y2TOT:=Y2TOT + CNT-&gt;C12\n   Y3TOT:=Y3TOT + CNT-&gt;C13\n   Y4TOT:=Y4TOT + CNT-&gt;C14\n   Y5TOT:=Y5TOT + CNT-&gt;C15\n\n   Y6TOT:=Y6TOT + (cnt-&gt;c11/xtot )\n   Y7TOT:=Y7TOT + (cnt-&gt;c12/xtot )\n   Y8TOT:=Y8TOT + (cnt-&gt;c13/xtot )\n   Y9TOT:=Y9TOT + (cnt-&gt;c14/xtot )\n   Y10TOT:=Y10TOT + (cnt-&gt;c15/xtot )\n\n   x:=x +1\n   i:=i + 1\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n  x++\n\n   @ x,2 XLS SAY Y1TOT of ofilexls FORMAT cnum\n   @ x,3 XLS SAY (Y1TOT) / YTOT of ofilexls FORMAT cnum2\n   @ x,4 XLS SAY Y2TOT of ofilexls FORMAT cnum\n   @ x,5 XLS SAY (Y2TOT) / YTOT of ofilexls FORMAT cnum2\n   @ x,6 XLS SAY Y3TOT of ofilexls FORMAT cnum\n   @ x,7 XLS SAY (Y3TOT) / YTOT of ofilexls FORMAT cnum2\n   @ x,8 XLS SAY Y4TOT of ofilexls FORMAT cnum\n   @ x,9 XLS SAY (Y4TOT) / YTOT of ofilexls FORMAT cnum2\n   @ x,10 XLS SAY Y5TOT of ofilexls FORMAT cnum\n   @ x,11 XLS SAY (Y5TOT) / YTOT of ofilexls FORMAT cnum2\n   @ x,12 XLS SAY YTOT of ofilexls FORMAT cnum\n\n   @ 7,13 XLS SAY axtot[1] / YTOT of ofilexls FORMAT cnum2\n   @ 8,13 XLS SAY axtot[2] / YTOT of ofilexls FORMAT cnum2\n   @ 9,13 XLS SAY axtot[3] / YTOT of ofilexls FORMAT cnum2\n   @ 10,13 XLS SAY axtot[4] / YTOT of ofilexls FORMAT cnum2\n   @ 11,13 XLS SAY axtot[5] / YTOT of ofilexls FORMAT cnum2\n   @ 12,13 XLS SAY axtot[6] / YTOT of ofilexls FORMAT cnum2\n   @ 13,13 XLS SAY axtot[7] / YTOT of ofilexls FORMAT cnum2\n   @ 14,13 XLS SAY axtot[8] / YTOT of ofilexls FORMAT cnum2\n   @ 16,13 XLS SAY (axtot[1] / YTOT) +(axtot[2] / YTOT)+(axtot[3] / YTOT) + (axtot[4] / YTOT) + (axtot[5] / YTOT) + (axtot[6] / YTOT) + (axtot[7] / YTOT)  +(axtot[8] / YTOT) of ofilexls FORMAT cnum2\n\n  @ 18,1 XLS SAY \"TABLA 2. COSTO POR ALUMNO\" of ofilexls\n\n  @ 20,1 XLS SAY \"Institución\" of ofilexls\n  @ 20,2 XLS SAY \"Matricula total\" of ofilexls\n  @ 20,3 XLS SAY \"Subsidio Est + Fed + propias\" of ofilexls\n  @ 20,4 XLS SAY \"Costo por alumno\" of ofilexls\n\n  @ 21,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 22,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 23,1 XLS SAY \"UTS      \" of ofilexls\n  @ 24,1 XLS SAY \"UTH      \" of ofilexls\n  @ 25,1 XLS SAY \"UTN      \" of ofilexls\n  @ 26,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 27,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 28,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 30,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   Y1TOT:=0\n   Y2TOT:=0\n   Y3TOT:=0\n   Y4TOT:=0\n\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=21\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c31 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY (cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23) of ofilexls FORMAT cnum\n   @ x,4 XLS SAY ((cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23) / cnt-&gt;c31 ) of ofilexls FORMAT cnum\n\n   Y1TOT:=Y1TOT + CNT-&gt;C31\n   Y2TOT:=Y2TOT + cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23\n   Y3TOT:=Y3TOT + ((cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23) / cnt-&gt;c31 )\n   Y4TOT:= Y4TOT+ cnt-&gt;c52\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n  x++\n\n      Y5TOT:= Y2TOT\n\n   @ x,2 XLS SAY Y1TOT of ofilexls FORMAT cnum\n   @ x,3 XLS SAY Y2TOT of ofilexls FORMAT cnum\n   @ x,4 XLS SAY Y2TOT/Y1TOT of ofilexls FORMAT cnum\n\n  @ 32,1 XLS SAY \"TABLA 3. MATRICULA POR INSTITUCIÓN\" of ofilexls\n\n  @ 34,1 XLS SAY \"Institución\" of ofilexls\n  @ 34,2 XLS SAY \"No. alumnos\" of ofilexls\n  @ 34,3 XLS SAY \" % \" of ofilexls\n\n  @ 35,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 36,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 37,1 XLS SAY \"UTS      \" of ofilexls\n  @ 38,1 XLS SAY \"UTH      \" of ofilexls\n  @ 39,1 XLS SAY \"UTN      \" of ofilexls\n  @ 40,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 41,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 42,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 44,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=35\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c52 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY (cnt-&gt;c52 / Y4TOT )  of ofilexls FORMAT cnum2\n\n   Y2TOT:=Y2TOT + (cnt-&gt;c52 / Y4TOT )\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n   @ x,2 XLS SAY Y4TOT of ofilexls FORMAT cnum\n   @ x,3 XLS SAY Y2TOT of ofilexls FORMAT cnum2\n\n  @ 46,1 XLS SAY \"TABLA 4. COMPOSICION DE LOS INGRESOS DE LAS INSTITUCIONES EN 2006\" of ofilexls\n\n  @ 48,1 XLS SAY \"Institución\" of ofilexls\n  @ 48,2 XLS SAY \"Subsidios  \" of ofilexls\n  @ 48,7 XLS SAY \"Ingresos  \" of ofilexls\n  @ 48,9 XLS SAY \"Ingresos totales\" of ofilexls\n  @ 48,9 XLS SAY \"Matricula\" of ofilexls\n\n  @ 49,2 XLS SAY \"Federal\" of ofilexls\n  @ 49,3 XLS SAY \" % \" of ofilexls\n  @ 49,4 XLS SAY \"Estatal\" of ofilexls\n  @ 49,5 XLS SAY \" % \" of ofilexls\n  @ 49,6 XLS SAY \"Propios\" of ofilexls\n  @ 49,7 XLS SAY \" % \" of ofilexls\n  @ 49,8 XLS SAY \"Totales\" of ofilexls\n  @ 49,9 XLS SAY \" % \" of ofilexls\n  @ 49,10 XLS SAY \"Total\" of ofilexls\n  @ 49,11 XLS SAY \" % \" of ofilexls\n\n  @ 50,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 51,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 52,1 XLS SAY \"UTS      \" of ofilexls\n  @ 53,1 XLS SAY \"UTH      \" of ofilexls\n  @ 54,1 XLS SAY \"UTN      \" of ofilexls\n  @ 55,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 56,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 57,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 59,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n   y6tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=50\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c22 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY (cnt-&gt;c22 /( cnt-&gt;c22 + cnt-&gt;c21+ cnt-&gt;c23 ))  of ofilexls FORMAT cnum2\n   @ x,4 XLS SAY cnt-&gt;c21 of ofilexls FORMAT cnum\n   @ x,5 XLS SAY (cnt-&gt;c21 /( cnt-&gt;c22 + cnt-&gt;c21+ cnt-&gt;c23 ))  of ofilexls FORMAT cnum2\n   @ x,6 XLS SAY cnt-&gt;c23 of ofilexls FORMAT cnum\n   @ x,7 XLS SAY (cnt-&gt;c23 /( cnt-&gt;c22 + cnt-&gt;c21+ cnt-&gt;c23 ))  of ofilexls FORMAT cnum2\n   @ x,8 XLS SAY ( cnt-&gt;c22 + cnt-&gt;c21+ cnt-&gt;c23 )  of ofilexls FORMAT cnum\n   @ x,9 XLS SAY (( cnt-&gt;c22 + cnt-&gt;c21+ cnt-&gt;c23 )/y5tot)  of ofilexls FORMAT cnum2\n   @ x,10 XLS SAY cnt-&gt;c52  of ofilexls FORMAT cnum\n   @ x,11 XLS SAY (cnt-&gt;c52/y1tot)  of ofilexls FORMAT cnum2\n\n   y10tot:=y10tot +  cnt-&gt;c22\n   y9tot:=y9tot +  cnt-&gt;c21\n   y8tot:=y8tot +  cnt-&gt;c23\n   y6tot:= y6tot + cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y10TOT/Y5TOT  of ofilexls FORMAT cnum2\n  @ x,4 XLS SAY Y9TOT of ofilexls FORMAT cnum\n  @ x,5 XLS SAY Y9TOT/Y5TOT  of ofilexls FORMAT cnum2\n  @ x,6 XLS SAY Y8TOT of ofilexls FORMAT cnum\n  @ x,7 XLS SAY Y8TOT/Y5TOT  of ofilexls FORMAT cnum2\n  @ x,8 XLS SAY Y5TOT of ofilexls FORMAT cnum\n  @ x,9 XLS SAY 1  of ofilexls FORMAT cnum2\n  @ x,10 XLS SAY y1tot  of ofilexls FORMAT cnum\n  @ x,11 XLS SAY 1  of ofilexls FORMAT cnum2\n\n  @ 61,1 XLS SAY \"TABLA 5. COMPOSICION DE LA PLANTILLA DE PERSONAL DE LAS INSTITUCIONES\" of ofilexls\n\n  @ 63,1 XLS SAY \"Institución\" of ofilexls\n  @ 63,2 XLS SAY \"Personal de Servicios\" of ofilexls\n  @ 63,4 XLS SAY \"Personal de Administrativo\" of ofilexls\n  @ 63,6 XLS SAY \"Personal Directivo\" of ofilexls\n  @ 63,8 XLS SAY \"Personal Docente\" of ofilexls\n  @ 63,10 XLS SAY \"Total Personal\" of ofilexls\n  @ 63,12 XLS SAY \"Matricula\" of ofilexls\n\n  @ 64,2 XLS SAY \"Total\" of ofilexls\n  @ 64,3 XLS SAY \" % \" of ofilexls\n  @ 64,4 XLS SAY \"Total\" of ofilexls\n  @ 64,5 XLS SAY \" % \" of ofilexls\n  @ 64,6 XLS SAY \"Total\" of ofilexls\n  @ 64,7 XLS SAY \" % \" of ofilexls\n  @ 64,8 XLS SAY \"Total\" of ofilexls\n  @ 64,9 XLS SAY \" % \" of ofilexls\n  @ 64,10 XLS SAY \"Total\" of ofilexls\n  @ 64,11 XLS SAY \" % \" of ofilexls\n  @ 64,12 XLS SAY \"Total\" of ofilexls\n  @ 64,13 XLS SAY \" % \" of ofilexls\n\n  @ 65,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 66,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 67,1 XLS SAY \"UTS      \" of ofilexls\n  @ 68,1 XLS SAY \"UTH      \" of ofilexls\n  @ 69,1 XLS SAY \"UTN      \" of ofilexls\n  @ 70,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 71,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 72,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 74,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y9tot:=0\n   y8tot:=0\n   y7tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=65\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c42 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY (cnt-&gt;c42 /( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 ))  of ofilexls FORMAT cnum2\n   @ x,4 XLS SAY cnt-&gt;c43 of ofilexls FORMAT cnum\n   @ x,5 XLS SAY (cnt-&gt;c43 /( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 ))  of ofilexls FORMAT cnum2\n   @ x,6 XLS SAY cnt-&gt;c44 of ofilexls FORMAT cnum\n   @ x,7 XLS SAY (cnt-&gt;c44 /( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 ))  of ofilexls FORMAT cnum2\n   @ x,8 XLS SAY cnt-&gt;c41 of ofilexls FORMAT cnum\n   @ x,9 XLS SAY (cnt-&gt;c41 /( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 ))  of ofilexls FORMAT cnum2\n\n   @ x,10 XLS SAY cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41  of ofilexls FORMAT cnum\n   @ x,11 XLS SAY (cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41) / y6tot  of ofilexls FORMAT cnum\n   @ x,12 XLS SAY cnt-&gt;c52  of ofilexls FORMAT cnum\n   @ x,13 XLS SAY (cnt-&gt;c52/y1tot)  of ofilexls FORMAT cnum2\n\n   y10tot:=y10tot +  cnt-&gt;c42\n   y9tot:=y9tot +  cnt-&gt;c43\n   y8tot:=y8tot +  cnt-&gt;c44\n   y7tot:=y7tot +  cnt-&gt;c41\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y10TOT/Y6TOT  of ofilexls FORMAT cnum2\n  @ x,4 XLS SAY Y9TOT of ofilexls FORMAT cnum\n  @ x,5 XLS SAY Y9TOT/Y6TOT  of ofilexls FORMAT cnum2\n  @ x,6 XLS SAY Y8TOT of ofilexls FORMAT cnum\n  @ x,7 XLS SAY Y8TOT/Y6TOT  of ofilexls FORMAT cnum2\n  @ x,8 XLS SAY Y7TOT of ofilexls FORMAT cnum\n  @ x,9 XLS SAY Y7TOT/Y6TOT  of ofilexls FORMAT cnum2\n\n  @ x,10 XLS SAY y6tot  of ofilexls FORMAT cnum\n  @ x,11 XLS SAY 1  of ofilexls FORMAT cnum2\n  @ x,12 XLS SAY y1tot  of ofilexls FORMAT cnum\n  @ x,13 XLS SAY 1  of ofilexls FORMAT cnum2\n\n                /// tabla 6 hay que modificar para que tome datos del  prontuario 2006 -2\n\n  @ 76,1 XLS SAY \"TABLA 6. PLANTA DE PERSONAL ADMINISTRATIVO Y COSTO RELATIVO DE LA ESTRUCTURA ADMINISTRATIVA \" of ofilexls\n\n  @ 78,1 XLS SAY \"Institución\" of ofilexls\n  @ 78,2 XLS SAY \"Personal de Administrativo\" of ofilexls\n  @ 78,3 XLS SAY \"Personal total\" of ofilexls\n  @ 78,4 XLS SAY \" % \" of ofilexls\n  @ 78,5 XLS SAY \"Costo anual Personal Adm\" of ofilexls\n  @ 78,6 XLS SAY \"Presupuesto de operación anual 2005\" of ofilexls\n  @ 78,7 XLS SAY \"Costo de la estructura Adm. (%) \" of ofilexls\n\n  @ 79,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 80,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 81,1 XLS SAY \"UTS      \" of ofilexls\n  @ 82,1 XLS SAY \"UTH      \" of ofilexls\n  @ 83,1 XLS SAY \"UTN      \" of ofilexls\n  @ 84,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 85,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 86,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 88,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y9tot:=0\n   y8tot:=0\n   y7tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=79\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY ( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 )  of ofilexls FORMAT cnum\n   @ x,4 XLS SAY (cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44) / ( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 )  of ofilexls FORMAT cnum2\n   @ x,5 XLS SAY cnt-&gt;c441 of ofilexls FORMAT cnum\n   @ x,6 XLS SAY cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23 of ofilexls FORMAT cnum\n   @ x,7 XLS SAY (cnt-&gt;c441 /( cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23 ))  of ofilexls FORMAT cnum2\n\n   y10tot:=y10tot +  cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44\n   y9tot:=y9tot +  ( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 )\n   y8tot:=y10tot / y9tot\n   y7tot:=y7tot +  cnt-&gt;c441\n   y11tot:=y11tot +  cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23\n   y12tot:=y7tot / y11tot\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y9TOT  of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y8TOT of ofilexls FORMAT cnum2\n  @ x,5 XLS SAY Y7TOT  of ofilexls FORMAT cnum\n  @ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum\n  @ x,7 XLS SAY Y12tOT  of ofilexls FORMAT cnum2\n\n  @ 90,1 XLS SAY \"TABLA 7. IES CON SISTEMA DE GESTIÓN DE CALIDAD ISO 9001:2000\" of ofilexls\n\n  @ 92,1 XLS SAY \"Institución\" of ofilexls\n  @ 92,2 XLS SAY \"Certificación\" of ofilexls\n\n  @ 93,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 94,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 95,1 XLS SAY \"UTS      \" of ofilexls\n  @ 96,1 XLS SAY \"UTH      \" of ofilexls\n  @ 97,1 XLS SAY \"UTN      \" of ofilexls\n  @ 98,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 99,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 100,1 XLS SAY \"CESUES   \" of ofilexls\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=93\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n  if cnt-&gt;c451 &gt; 0\n   @ x,2 XLS SAY \"Sí\" of ofilexls\n  else\n   @ x,2 XLS SAY \"No\" of ofilexls FORMAT cnum\n  endif\n\n     x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n   @ 102,1 XLS SAY \"TABLA 7. INVERSION EN CAPACITACION ANUAL \" of ofilexls\n\n  @ 104,1 XLS SAY \"Institución\" of ofilexls\n  @ 104,2 XLS SAY \"Horas de capacitacón\" of ofilexls\n  @ 104,3 XLS SAY \"Personal total\" of ofilexls\n  @ 104,4 XLS SAY \"Promedio de horas de capacitación por persona\" of ofilexls\n  @ 104,5 XLS SAY \"Importe en capacitación\" of ofilexls\n  @ 104,6 XLS SAY \"Presupuesto de operación anual 2005\" of ofilexls\n  @ 104,7 XLS SAY \" (%) \" of ofilexls\n\n  @ 105,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 106,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 107,1 XLS SAY \"UTS      \" of ofilexls\n  @ 108,1 XLS SAY \"UTH      \" of ofilexls\n  @ 109,1 XLS SAY \"UTN      \" of ofilexls\n  @ 110,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 111,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 112,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 114,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y11tot:=0\n   y12tot:=0\n   y9tot:=0\n   y8tot:=0\n   y7tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=105\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c471 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY ( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 )  of ofilexls FORMAT cnum\n   @ x,4 XLS SAY cnt-&gt;c471 / ( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 )  of ofilexls FORMAT ndeci\n   @ x,5 XLS SAY cnt-&gt;c481 of ofilexls FORMAT cnum\n   @ x,6 XLS SAY cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23 of ofilexls FORMAT cnum\n   @ x,7 XLS SAY (cnt-&gt;c481 /( cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23 ))  of ofilexls FORMAT cnum3\n\n   y10tot:=y10tot + cnt-&gt;c471\n   y9tot:=y9tot +  ( cnt-&gt;c42 + cnt-&gt;c43 + cnt-&gt;c44 + cnt-&gt;c41 )\n   y8tot:=y10tot / y9tot\n   y7tot:=y7tot +  cnt-&gt;c481\n   y11tot:=y11tot +  cnt-&gt;c21 + cnt-&gt;c22 + cnt-&gt;c23\n   y12tot:=y7tot / y11tot\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y9TOT  of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci\n  @ x,5 XLS SAY Y7TOT  of ofilexls FORMAT cnum\n  @ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum\n  @ x,7 XLS SAY Y12tOT  of ofilexls FORMAT cnum3\n\n  @ 116,1 XLS SAY \"TABLA 8. UTILIZACIÓN DE ESPACIOS PERÍODO ESCOLAR ACTUAL (ENERO-JUNIO 2006) \" of ofilexls\n\n  @ 118,1 XLS SAY \"Institución\" of ofilexls\n  @ 118,2 XLS SAY \"Matricula total\" of ofilexls\n  @ 118,3 XLS SAY \"Total de aulas\" of ofilexls\n  @ 118,4 XLS SAY \"Total de espacios en aulas\" of ofilexls\n  @ 118,5 XLS SAY \"Total de espacios en aula ( dos turnos )\" of ofilexls\n  @ 118,6 XLS SAY \"Turnos\" of ofilexls\n  @ 118,7 XLS SAY \" (%) \" of ofilexls\n\n\n  @ 119,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 120,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 121,1 XLS SAY \"UTS      \" of ofilexls\n  @ 122,1 XLS SAY \"UTH      \" of ofilexls\n  @ 123,1 XLS SAY \"UTN      \" of ofilexls\n  @ 124,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 125,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 126,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 128,1 XLS SAY \"TOTAL    \" of ofilexls\n\n\n   y2tot:=0\n   y10tot:=0\n   y11tot:=0\n   y12tot:=0\n   y9tot:=0\n   y8tot:=0\n   y7tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=119\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c52 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY cnt-&gt;c492  of ofilexls FORMAT cnum\n   @ x,4 XLS SAY cnt-&gt;c493  of ofilexls FORMAT cnum\n   @ x,5 XLS SAY cnt-&gt;c493 * 2 of ofilexls FORMAT cnum\n   @ x,6 XLS SAY cnt-&gt;c491 of ofilexls FORMAT cnum\n   @ x,7 XLS SAY (cnt-&gt;c52 /( cnt-&gt;c493 * 2 ))  of ofilexls FORMAT cnum2\n\n\n   y10tot:=y10tot + cnt-&gt;c52\n   y9tot:=y9tot +   cnt-&gt;c492\n   y8tot:=y8tot + cnt-&gt;c493\n   y7tot:=y7tot +  cnt-&gt;c493 * 2\n   //y11tot:=y11tot +  cnt-&gt;c491\n   y12tot:=y10tot / y7tot\n\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y9TOT  of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci\n  @ x,5 XLS SAY Y7TOT  of ofilexls FORMAT cnum\n // @ x,6 XLS SAY Y11TOT of ofilexls FORMAT cnum\n  @ x,7 XLS SAY Y12tOT  of ofilexls FORMAT cnum2\n\n  @ 130,1 XLS SAY \"TABLA 9. ACERVO BIBLIOGRÁFICO\" of ofilexls\n\n  @ 132,1 XLS SAY \"Institución\" of ofilexls\n  @ 132,2 XLS SAY \"Matricula total\" of ofilexls\n  @ 132,3 XLS SAY \"Volumenes\" of ofilexls\n  @ 132,5 XLS SAY \"Títulos\" of ofilexls\n  @ 132,7 XLS SAY \"Publicaciones periodicas\" of ofilexls\n  @ 132,9 XLS SAY \"Medios de consulta virtual\" of ofilexls\n\n  @ 133,3 XLS SAY \"Total\" of ofilexls\n  @ 133,4 XLS SAY \"Volumenes por alumno\" of ofilexls\n  @ 133,5 XLS SAY \"Total\" of ofilexls\n  @ 133,6 XLS SAY \"Títulos por alumno\" of ofilexls\n  @ 133,7 XLS SAY \"Total\" of ofilexls\n  @ 133,8 XLS SAY \"Proporción por alumno\" of ofilexls\n  @ 133,9 XLS SAY \"Total\" of ofilexls\n  @ 133,10 XLS SAY \"Proporción por alumno\" of ofilexls\n\n  @ 134,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 135,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 136,1 XLS SAY \"UTS      \" of ofilexls\n  @ 137,1 XLS SAY \"UTH      \" of ofilexls\n  @ 138,1 XLS SAY \"UTN      \" of ofilexls\n  @ 139,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 140,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 141,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 143,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y11tot:=0\n   y13tot:=0\n   y14tot:=0\n   y15tot:=0\n   y12tot:=0\n   y9tot:=0\n   y8tot:=0\n   y7tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=134\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c52 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY cnt-&gt;c371  of ofilexls FORMAT cnum\n   @ x,4 XLS SAY cnt-&gt;c371 / cnt-&gt;c52  of ofilexls FORMAT ndeci1\n   @ x,5 XLS SAY cnt-&gt;c381 of ofilexls FORMAT cnum\n   @ x,6 XLS SAY cnt-&gt;c381 / cnt-&gt;c52 of ofilexls FORMAT ndeci1\n   @ x,7 XLS SAY cnt-&gt;c391  of ofilexls FORMAT cnum\n   @ x,8 XLS SAY cnt-&gt;c391 / cnt-&gt;c52 of ofilexls FORMAT ndeci1\n   @ x,9 XLS SAY cnt-&gt;c401  of ofilexls FORMAT cnum\n   @ x,10 XLS SAY cnt-&gt;c401 / cnt-&gt;c52  of ofilexls FORMAT ndeci1\n\n   y10tot:=y10tot + cnt-&gt;c52\n   y9tot:= y9tot +  cnt-&gt;c371\n   y8tot:=  y9tot /y10tot\n   y7tot:= y7tot +  cnt-&gt;c381\n   y11tot:= y7tot / y10tot\n   y12tot:=y12tot +  cnt-&gt;c391\n   y13tot:= y12tot / y10tot\n   y14tot:=y14tot + cnt-&gt;c401\n   y15tot:= y14tot / y10tot\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y9TOT  of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y8TOT of ofilexls FORMAT ndeci1\n  @ x,5 XLS SAY Y7TOT  of ofilexls FORMAT cnum\n  @ x,6 XLS SAY Y11TOT of ofilexls FORMAT ndeci1\n  @ x,7 XLS SAY Y12tOT  of ofilexls FORMAT cnum\n  @ x,8 XLS SAY Y13TOT  of ofilexls FORMAT ndeci1\n  @ x,9 XLS SAY Y14TOT of ofilexls FORMAT cnum\n  @ x,10 XLS SAY Y15tOT  of ofilexls FORMAT ndeci1\n\n  @ 145,1 XLS SAY \"TABLA 9. EQUIPO DE COMPUTO PARA USO EXCLUSIVO DE LOS ALUMNOS\" of ofilexls\n\n  @ 147,1 XLS SAY \"Institución\" of ofilexls\n  @ 147,2 XLS SAY \"Matricula total\" of ofilexls\n  @ 147,3 XLS SAY \"Equipos con mas de 3 años\" of ofilexls\n  @ 147,5 XLS SAY \"Equipos con menos de 3 años\" of ofilexls\n  @ 147,7 XLS SAY \"Total de equipos\" of ofilexls\n\n  @ 148,3 XLS SAY \"Total\" of ofilexls\n  @ 148,4 XLS SAY \" % \" of ofilexls\n  @ 148,5 XLS SAY \"Total\" of ofilexls\n  @ 148,6 XLS SAY \" % \" of ofilexls\n  @ 148,7 XLS SAY \"Total\" of ofilexls\n  @ 148,8 XLS SAY \" % \" of ofilexls\n\n\n  @ 149,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 150,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 151,1 XLS SAY \"UTS      \" of ofilexls\n  @ 152,1 XLS SAY \"UTH      \" of ofilexls\n  @ 153,1 XLS SAY \"UTN      \" of ofilexls\n  @ 154,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 155,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 156,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 158,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y11tot:=0\n   y13tot:=0\n   y14tot:=0\n   y15tot:=0\n   y12tot:=0\n   y9tot:=0\n   y8tot:=0\n   y7tot:=0\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=149\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c52 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY cnt-&gt;c431 - cnt-&gt;c421  of ofilexls FORMAT cnum\n   @ x,4 XLS SAY (cnt-&gt;c431 - cnt-&gt;c421) / cnt-&gt;c431  of ofilexls FORMAT cnum2\n   @ x,5 XLS SAY cnt-&gt;c421 of ofilexls FORMAT cnum\n   @ x,6 XLS SAY cnt-&gt;c421 / cnt-&gt;c431 of ofilexls FORMAT cnum2\n   @ x,7 XLS SAY cnt-&gt;c431  of ofilexls FORMAT cnum\n   @ x,8 XLS SAY cnt-&gt;c52 / cnt-&gt;c431  of ofilexls FORMAT ndeci1\n\n   y10tot:=y10tot + cnt-&gt;c52\n    y8tot:=  y8tot  + cnt-&gt;c431 // este no es total\n\n   y11tot:= y11tot  + cnt-&gt;c421\n   y12tot:= y11tot / y8tot\n   y13tot:= y13tot + cnt-&gt;c431\n   y9tot:= y8tot - y11tot\n   y7tot:=  y9tot / y8tot\n   y14tot:= y10tot / y13tot\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y9TOT  of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y7TOT of ofilexls FORMAT cnum2\n  @ x,5 XLS SAY Y11TOT  of ofilexls FORMAT cnum\n  @ x,6 XLS SAY Y12TOT of ofilexls FORMAT cnum2\n  @ x,7 XLS SAY Y13tOT  of ofilexls FORMAT cnum\n  @ x,8 XLS SAY Y14TOT  of ofilexls FORMAT ndeci1\n\n  @ 160,1 XLS SAY \"TABLA 10. GRADO DE SATISFACCIÓN DE LA GESTIÓN INSTITUCIONAL\" Of ofilexls\n\n  @ 162,1 XLS SAY \"Institución\" of ofilexls\n  @ 162,2 XLS SAY \"Satisfacción de estudiantes\" of ofilexls\n  @ 162,3 XLS SAY \"Satisfacción de profesores\" of ofilexls\n  @ 162,4 XLS SAY \"Satisfacción promedio\" of ofilexls\n\n  @ 163,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 164,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 165,1 XLS SAY \"UTS      \" of ofilexls\n  @ 166,1 XLS SAY \"UTH      \" of ofilexls\n  @ 167,1 XLS SAY \"UTN      \" of ofilexls\n  @ 168,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 169,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 170,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 172,1 XLS SAY \"PROMEDIO \" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y11tot:=0\n   y13tot:=0\n   y14tot:=8\n   y15tot:=0\n   y12tot:=0\n   y9tot:=8\n   y8tot:=0\n   y7tot:=8\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=163\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   if cnt-&gt;c501 &gt; 0\n     @ x,2 XLS SAY cnt-&gt;c501 of ofilexls FORMAT cnum\n   else\n     @ x,2 XLS SAY \"ND\" of ofilexls\n     y14tot:= y14tot - 1\n   endif\n\n   if cnt-&gt;c502 &gt; 0\n     @ x,3 XLS SAY cnt-&gt;c502 of ofilexls FORMAT cnum\n   else\n     @ x,3 XLS SAY \"ND\" of ofilexls\n     y7tot:= y7tot - 1\n   endif\n\n   if cnt-&gt;c501 = 0 .or. cnt-&gt;c502 = 0\n     @ x,4 XLS SAY \"ND\" of ofilexls\n     y9tot:= y9tot  -1\n   else\n     @ x,4 XLS SAY ( cnt-&gt;c501 + cnt-&gt;c502 ) / 2 of ofilexls format cnum\n   endif\n\n\n\n   y10tot:= y10tot + cnt-&gt;c501\n   y8tot:=  y8tot  + cnt-&gt;c502\n   y11tot:= y11tot  + ( cnt-&gt;c501 + cnt-&gt;c502 / 2 )\n   y12tot:= y12tot + y11tot\n\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT / y14tot of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y8TOT / y7tot of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y12TOT / y9tot   of ofilexls FORMAT cnum\n\n\n  @ 174,1 XLS SAY \"GESTION ACADEMICA\" Of ofilexls\n\n  @ 176,1 XLS SAY \"ESTUDIANTES\" Of ofilexls\n\n\n\n  @ 178,1 XLS SAY \"TABLA 11. EDAD PROMEDIO DEL ESTUDIANTADO Y RANGO DE EDADES\" Of ofilexls\n\n  @ 176,1 XLS SAY \"Institución\" of ofilexls\n  @ 176,2 XLS SAY \"Número de alumnos\" of ofilexls\n  @ 176,3 XLS SAY \"Edad Promedio ( Años )\" of ofilexls\n  @ 176,4 XLS SAY \"Edad Mayor\" of ofilexls\n  @ 176,5 XLS SAY \"Edad Menor\" of ofilexls\n  @ 176,6 XLS SAY \"Rango\" of ofilexls\n\n\n  @ 177,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 178,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 179,1 XLS SAY \"UTS      \" of ofilexls\n  @ 180,1 XLS SAY \"UTH      \" of ofilexls\n  @ 181,1 XLS SAY \"UTN      \" of ofilexls\n  @ 182,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 183,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 184,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 186,1 XLS SAY \"TOTAL / PROM\" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y11tot:=0\n   y13tot:=0\n   y14tot:=8\n   y15tot:=0\n   y12tot:=0\n   y9tot:=8\n   y8tot:=0\n   y7tot:=8\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=177\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c52 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY cnt-&gt;c51 / cnt-&gt;c52 of ofilexls FORMAT cnum\n   @ x,4 XLS SAY cnt-&gt;c61 of ofilexls FORMAT cnum\n   @ x,5 XLS SAY cnt-&gt;c62 of ofilexls FORMAT cnum\n   @ x,6 XLS SAY cnt-&gt;c61  - cnt-&gt;c62 of ofilexls FORMAT cnum\n\n\n   y10tot:= y10tot + cnt-&gt;c52\n   y8tot:=  y8tot  + cnt-&gt;c51\n   y11tot:= y11tot + cnt-&gt;c61\n   y12tot:= y12tot + cnt-&gt;c62\n\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y8TOT / y10tot of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y11TOT / 8  of ofilexls FORMAT cnum\n  @ x,5 XLS SAY Y12TOT / 8 of ofilexls FORMAT cnum\n  @ x,6 XLS SAY (y11tot / <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  - ( Y12TOT / 8 ) of ofilexls FORMAT cnum\n\n/*  si elimino todo esto ya no sale el error \n  @ 188,1 XLS SAY \"TABLA 12. ESTUDIANTES QUE TRABAJAN\" Of ofilexls\n\n  @ 190,1 XLS SAY \"Institución\" of ofilexls\n  @ 190,2 XLS SAY \"Matricula Total\" of ofilexls\n  @ 190,3 XLS SAY \"Alumnos que trabajan\" of ofilexls\n  @ 190,4 XLS SAY \"  % \" of ofilexls\n\n\n  @ 191,1 XLS SAY \"ITESCAN  \" of ofilexls\n  @ 192,1 XLS SAY \"ITESCA   \" of ofilexls\n  @ 193,1 XLS SAY \"UTS      \" of ofilexls\n  @ 194,1 XLS SAY \"UTH      \" of ofilexls  // aque es la linea 1151 //\n  @ 195,1 XLS SAY \"UTN      \" of ofilexls\n  @ 196,1 XLS SAY \"UNISIERRA\" of ofilexls\n  @ 197,1 XLS SAY \"ITSPP    \" of ofilexls\n  @ 198,1 XLS SAY \"CESUES   \" of ofilexls\n  @ 199,1 XLS SAY \"TOTAL    \" of ofilexls\n\n   y2tot:=0\n   y10tot:=0\n   y11tot:=0\n   y13tot:=0\n   y14tot:=8\n   y15tot:=0\n   y12tot:=0\n   y9tot:=8\n   y8tot:=0\n   y7tot:=8\n\n  SELECT CNT\n  CNT-&gt;(DBGOTOP())\n  x:=191\n  DO WHILE .NOT. CNT-&gt;(EOF())\n\n   @ x,2 XLS SAY cnt-&gt;c52 of ofilexls FORMAT cnum\n   @ x,3 XLS SAY cnt-&gt;c63 of ofilexls FORMAT cnum\n   @ x,4 XLS SAY cnt-&gt;c52 / c63 of ofilexls FORMAT cnum2\n\n   y10tot:= y10tot + cnt-&gt;c52\n   y8tot:=  y8tot  + cnt-&gt;c51\n\n   x:=x +1\n\n   CNT-&gt;(DBSKIP())\n\n  ENDDO\n\n  x++\n\n  @ x,2 XLS SAY Y10TOT of ofilexls FORMAT cnum\n  @ x,3 XLS SAY Y8TOT / y10tot of ofilexls FORMAT cnum\n  @ x,4 XLS SAY Y10TOT / y8tot  of ofilexls FORMAT cnum2\n  */\n\n   ENDXLS oFileXLS\n   cnt-&gt;(dbclosearea())\n   CURSORARROW()\n\n   msginfo (\"El archivo ha sido generado con el nombre de concent.xls\")\n\n   return nil','',0,'','hnwfv296',1,0,'',518,0,0),(25465,5736,7,598,0,'200.11.139.61',1169566580,1,0,1,1,1,1,'','Problemas en paso de parametros...','tengo 2 dudas.. \n\n- La funcion de C WideToAnsi() fue eliminada en el nuevo build de diciembre?? osea la que se declaraba : LPWSTR AnsiToWide( LPSTR );\n\n- Como paso un String desde fivewin a una funcion HB_FUNC(xxx) ???..\nya intente con hb_parc(1), hb_parcx(1) y hb_parprt(1) este ultimo utilizandolo como un puntero LPCSTR pero nada.. lo que obtengo es basura ascii..\n\ngracias por su atencion.','',0,'','3pdme3ai',1,0,'',598,0,0),(25466,5724,7,832,0,'201.122.21.224',1169570025,1,0,1,1,1,0,'','','OK YA ESTA FUNCINANDO...\n\n\nMUCHAS GRACIAS....\n\nTE LO AGRADESCO......','',0,'','32kte4ra',1,0,'',832,0,0),(25467,5737,3,49,0,'213.82.134.66',1169570696,1,0,1,1,1,1,'','help urgent    :  XBROWSE EDIT','is possible EDIT on XBrwose Directly a DATE FIELD ?\n\nis possible open a dtpicker control when I click on this field ?\n\ncan I use a edit_listbox with dtpicker control ?\n\nis possible put different color on each lines of xbrowse ?\nI made :   \n[code:31g0816i]oApp&#40;&#41;&#58;oGrid&#58;nClrPane  &#58;=&#123;|| IF&#40;&#40; oApp&#40;&#41;&#58;oGrid&#58;cAlias&#41;-&gt;&#40;OrdKeyNo&#40;&#41;&#41;%2==0,CLR_LGREEN,CLR_LGRAY&#41;&#125;[/code:31g0816i]\n\n[b:31g0816i]but it not run ok [/b:31g0816i]\n\n\n\nCan you write an sample ?','',0,'QIA=','31g0816i',1,0,'',49,0,0),(25468,4134,4,267,0,'200.208.238.2',1169571349,1,0,1,1,1,1,'','','Hi Richard,\n\nyes, I am including wininet.lib in the generation of my application.','',0,'QIA=','27mloply',1,0,'',267,0,0),(25469,5675,20,49,0,'213.82.134.66',1169572588,1,0,1,1,1,1,'','','io li uso ma non ho problemi con quelli \n\ncome sai ho problemi con la timage...','',0,'QIA=','xjzgyvtw',1,0,'',49,0,0),(25470,4134,4,2,0,'87.218.146.214',1169572613,1,0,1,1,1,1,'','','Vilian,\n\nPlease link inet.lib too','',0,'QIA=','337vgpgg',1,0,'',2,0,0),(25471,5719,7,2,0,'87.218.146.214',1169572911,1,0,1,1,1,1,'','','Ale,\n\nHas copiado customer.dbf y customer.cdx al directorio en donde está el EXE ?','',0,'QIA=','1gzamls7',1,0,'',2,0,0),(25472,5736,7,2,0,'87.218.146.214',1169573010,1,0,1,1,1,1,'','','Luis,\n\n&gt;\n- La funcion de C WideToAnsi() fue eliminada en el nuevo build de diciembre?? osea la que se declaraba : LPWSTR AnsiToWide( LPSTR );\n&gt;\n\nNo, para nada. Sigue estando en FWPPC.\n\n&gt;\n- Como paso un String desde fivewin a una funcion HB_FUNC(xxx) ???..\nya intente con hb_parc(1), hb_parcx(1) y hb_parprt(1) este ultimo utilizandolo como un puntero LPCSTR pero nada.. lo que obtengo es basura ascii.. \n&gt;\n\nhb_parc( 1 )','',0,'QIA=','lyd5m9co',1,0,'',2,0,0),(25473,5735,3,51,0,'80.122.88.242',1169573217,1,0,1,1,1,0,'','','&gt;But why are there 2 instead of just 1??? Is the original difference in philosophy between Harbour and xHarbour still relevant?\n... and worth that such a small community as “Clipper32” can waste so much resources for developing and maintaining 2 languages.\nRegards\nOtto','',0,'QIA=','lleoco2a',1,0,'',51,0,0),(25474,5734,3,154,0,'151.21.77.146',1169574266,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:1ddelkcl]I have a similar problem. \nDo you have a ready exe and a prg so I can test here.\nRegards\nOtto[/quote:1ddelkcl]\nHi Otto,\nthe prg and the resources are in my previous post, \nsend to me your private mail address for ready exe.\nRegards,\nUgo','',0,'gA==','1ddelkcl',1,0,'',154,0,0),(25475,5675,20,154,0,'151.21.77.146',1169574415,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1qdvzayp]io li uso ma non ho problemi con quelli \n\ncome sai ho problemi con la timage...[/quote:1qdvzayp]Silvio,\nanche a me funzionano bene con il mouse ma con la tastiera riesci a vedere il focus?\nNel post precedente hai scritto che non lo vedi...','',0,'gA==','1qdvzayp',1,0,'',154,0,0),(25476,5738,2,890,0,'190.9.66.196',1169574906,1,0,1,1,1,0,'','Un campo desplegable','Hola a todos\n\nPor favor si alguien me puede enseñar como hacer un campo desplegabele en una ventana de captura de datos.\n\nCordialmente\n\nJairo E Barbosa','',0,'gA==','168gkvcp',1,0,'',890,0,0),(25477,5739,6,198,0,'189.134.48.131',1169575796,1,0,1,1,1,1,'','Arrastras y actualizar...','Hola de nuevo a todos los del foro!\n\nTengo un cliente  de recursos humanos que ha solicitado  poder visualizar su  información en forma de arbor y al arrastrar, por ejemplo, un departamento a otro lugar del árbol, este se mueva pero con toda la información que va pegada a esa sección... ¿eso lo podemos hacer con FWH  ?\n\nSaludos\n\nLaura Edith Hernández H.','',0,'gA==','xdmtnn3g',1,0,'',198,0,0),(25478,5738,2,2,0,'87.218.146.98',1169575811,1,0,1,1,1,1,'','','Jairo,\n\nRevisa samples\\combos.prg','',0,'gA==','34xmn7bb',1,0,'',2,0,0),(25479,5731,6,376,0,'190.42.40.40',1169576016,1,0,1,1,1,1,'','','Otro editor de help que podria servirte (el que yo uso actualmente) es el Shalom Help Maker. Es shareware, por tiempo indefinido...\n\nEste programita se apoya en el Help Workshop (de Microsoft, me parece). \n\nTe permite escribir directamente en la pantalla la pagina de ayuda, insertar \"jumps\", \"urls\", graficos (solamente BMP, es su defecto en la versiòn Beta, el que yo utilizo), palabras que sirven para ubicar, etc. No es sofisticado y por el contrario es bastante simple.','',0,'gA==','3m3xlfdu',1,0,'',376,0,0),(25480,4134,4,267,0,'200.208.238.2',1169576739,1,0,1,1,1,1,'','','Antonio,\n\nwhere I find inet.lib?','',0,'gA==','1ka0woab',1,0,'',267,0,0),(25481,5734,3,2,0,'87.218.146.98',1169579192,1,0,1,1,1,1,'','','Ugo,\n\nWe confirm the bug. We are working to fix it','',0,'gA==','251xvxhl',1,0,'',2,0,0),(25482,5507,22,376,0,'190.42.40.40',1169579357,1,0,1,1,1,1,'','','Antonio, me parece entender que Kleyber esta sugiriendo que el redimensionamiento se realice en funciòn a la resoluciòn del monitor, automáticamente\n\nEs cierto que al usar la clàsula RESIZE16 se produce un redimensionamiento pero... parece que que solo se dà dentro de la misma resoluciòn a la que fue creado la ventana o el diàlogo. Si fue creado en 800x600 y en ese momento ajustas la resoluciòn de tu monitor, por ejemplo a 1200x720, nuestras aplicaciones no se ajustan a la nueva resoluciòn sino se quedan en el mismo tamaño anterior dejando parte de la pantalla sin ser ocupado.\n\nUno de los miembros del foro nos ha alcanzado el còdigo que el utiliza para redimensionar ventanas, diàlogos y controles pero èl parte de una base por ejemplo 800x600 y le otorga un peso de 1; si su programa pasa a funcionar en 1200x720, etc. le va otorgando nuevos pesos y hace la conversiòn para adecuarse a la nueva resoluciòn. Estuve buscando una funciòn que me devolviera la resoluciòn de la pantalla pero... no lo encontré.','',0,'gA==','8cr2euyq',1,0,'',376,0,0),(25483,4134,4,2,0,'87.218.146.98',1169580007,1,0,1,1,1,1,'','','Vilian,\n\nMy mistake, inet.lib is not needed. You have to link wininet.lib','',0,'gA==','13zgo846',1,0,'',2,0,0),(25484,5507,22,2,0,'87.218.146.98',1169580212,1,0,1,1,1,1,'','','Armando,\n\naCoor = GetCoors( GetDesktopWindow() ) \n\n? aCoor[ 3 ], aCoor[ 4 ]','',0,'','3s1po6p9',1,0,'',2,0,0),(25485,4134,4,267,0,'200.208.238.2',1169580482,1,0,1,1,1,1,'','','Antonio,\n\n I am including wininet.lib(04/06/2003) in the generation of my application <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','2ph6g9ea',1,0,'',267,0,0),(25486,5734,3,2,0,'87.218.146.98',1169580665,1,0,1,1,1,1,'','','Ugo,\n\nIf you place a pushbutton and it gets focus, then the focus starts working fine. We need to find why','',0,'','2l0p8qf8',1,0,'',2,0,0),(25487,5740,6,774,0,'200.72.179.125',1169580946,1,0,1,1,1,1,'','PARA ANTONIO LINARES','Antonio me podrias recomendar alguna web dnd pueda aprender a desarrollar clases,, pero desde la base ya q no entiendo nada del tema\n\nGRACIAS por la ayuda..','',0,'','1xigsa1r',1,0,'',774,0,0),(25488,5741,2,812,0,'201.236.186.68',1169581478,1,0,1,1,1,0,'','Ayuda al IMPRIMIR.','Hola Amigos:\n\nTengo un programa que permite generar una cotización, para lo que me actualizan lo datos por pantalla, luego de grabar, debo imprimir la cotización, uso el Preview para permitir ver en pantalla, seleccionar la impresora. El problema es que la pantalla del Preview desaparece, quedando solo en la barra de abajo, y solo me muestra la pantalla de ingreso de datos. Necesito que la pantalla de impresion quede activa y visible.\n\nAsi uso en comando:\n\nPrint oPrint   From User Preview\n\nEn espera de su ayuda, les saluda,\n\nMiguel Rivera','',0,'','2u6978il',1,0,'',812,0,0),(25489,5742,6,73,0,'200.23.18.132',1169582719,1,0,1,1,1,0,'','duda con ADO','que tal foro,\n\nactualmente tengo un servidor con bases de datos de SQL, mi intencion es poder leerlas, estaba pensando usar ADO, pero segun me comentaron que con ADO esas bases de datos al momento de abrirlas solo me las abriria de modo exclusivo no compartido, es cierto? o en su defecto que me recomiendan usar de acuerdo a su experiencia...\nsalu2\nPaco','',0,'','3rn0mm9j',1,0,'',73,0,0),(25490,4134,4,3,0,'82.248.12.38',1169583143,1,0,1,1,1,1,'','','Vilian\n\nThis are the libs i am linking and i use tftp with success\n\n   echo $(VCDIR)\\lib\\arm\\coredll.lib  &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\corelibc.lib &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\aygshell.lib &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\ws2.lib      &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\mfcce400.lib &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\ole32.lib    &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\ceshell.lib  &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\commctrl.lib &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\wininet.lib &gt;&gt; msvc.tmp\n   echo $(VCDIR)\\lib\\arm\\cellcore.lib &gt;&gt; msvc.tmp\n\nHth\n\nRichard','',0,'','22sjmn23',1,0,'',3,0,0),(25491,4134,4,267,0,'200.208.238.2',1169584148,1,0,1,1,1,1,'','','Hi Richards,\n\nI am using same libs that you. The error appears when use class tFtpFile in the function below:\n\nSTATIC FUNCTION MandaArq(cArquivo,cRemote,nTam)\nLOCAL n,hSource,cBuffer:=Space( 6400 ),nBufSize:=6400,oFile\n\n   IF (hSource := FOpen( cArquivo )) &lt; 0\n       RETURN .F.\n  ELSE\n      cBuffer := Space( 6400 )\n      nBufSize := 6400\n      SysRefresh()\n\n      oFile := [b:18a8ecbq]TFtpFile[/b:18a8ecbq]():New( cRemote, oFTP )\n      IF Empty(oFile)\n          RETURN .F.\n      ELSE\n         oFile:OpenWrite()\n         FSeek( hSource, 0, 0 )\n\n         nTotal := 0\n         DO WHILE ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) &gt; 0\n  	nFeito := oFile:Write( SubStr( cBuffer, 1, nBytes ) )\n      	SysRefresh()\n      	nTotal += nBytes\n         ENDDO\n         oFile:End()\n         FClose( hSource )\n     ENDIF\n  ENDIF\n\nRETURN .T.','',0,'QA==','18a8ecbq',1,0,'',267,0,0),(25492,5713,1,47,0,'203.144.160.249',1169585462,1,0,1,1,1,0,'','','Yes, it is still 16 bit but you can use new TWbrowse.lib (32 bit) of hernan also.  All below function is replace CMX.\n[code:tiks8ete]\n*--------------------------------------*\n* Use these function instead of COMIX  *\n*--------------------------------------*\nFunction cmxSetScope&#40; nScope, xVal &#41;\nreturn if&#40;PCount&#40;&#41; &lt;= 1, OrdScope&#40; nScope &#41;, OrdScope&#40; nScope, xVal &#41;&#41;\n\nFunction cmxClrScope&#40; nScope &#41;\nreturn OrdScope&#40; nScope, Nil&#41;\n\nFunction cmSetFilter&#40; xVal &#41;\nreturn DbSetFilter&#40; &#123;|| xVat &#125;, xVal &#41;\n\nFunction cmClrFilter&#40;&#41;\nreturn DbClearFilter&#40;&#41;\n\nFunction cmxKeyNo&#40;&#41;\nreturn OrdKeyNo&#40;&#41;\n\nFunction cmxKeyCount&#40;&#41;\nreturn OrdKeyCount&#40;&#41;\n\nFunction cmxKeyGoTo&#40;nKey&#41;\nreturn OrdKeyGoTo&#40;nKey&#41;\n[/code:tiks8ete]\n\nBest regards,\nDutch','',0,'AIA=','tiks8ete',1,0,'',47,0,0),(25493,5743,7,832,0,'201.122.21.224',1169585789,1,0,1,1,1,0,'','!!!! Como crear indices ¡¡¡¡','BUENAS A TODOS....\n\n\nDE NUEVO MOLESTANDO Y A SU VES SOLICITANDO SU AYUDA...\n\n\nALGUIEN ME PODRIA AYUDAR PARA PODER CREAR INDICES EN LA POCKET... LOQ UE PASA QUE QUIERO CREAR INDICES CDX Y NO FUNCIONA COMO EN FIVEWIN NORMAL....\n\nCOMO HE CREADO INDICES ES DE ESTA FORMA...\n\n\n#include \"FiveWin.ch\"\n#define TAB      Chr(9)\n\nSTATIC BASES\nSTATIC CONF\nSTATIC nIndices:=1,nTot:=0,nTreg:=0\nSTATIC oSay,oSay1\nSTATIC nArch:=0\n//----------------------------------------------------------------------------//\nfunction MAIN()\n   SET _3DLOOK ON\n   CLOSE ALL\n      indexa()\nreturn nil\n//---------------------------------------------------------------------------//\nSTATIC fUNCTION pide_acceso()\nlocal  caac := \"caacay\"\nlocal oEntrada,oCve\nlocal cClave\nlocal paso:=.f., okacerto:=.f.\nreturn .T.\n//---------------------------------------------------------------------------//\nstatic function indexa()\n local oAvance,oMeter,oMeter1,oBtnok\n local nPos,nActual\n local lEnd:=.f.\n   DEFINE DIALOG oAvance RESOURCE \"indices\"\n         REDEFINE SAY oSay  ID 132 OF oAvance UPDATE\n         REDEFINE SAY oSay1 ID 133 OF oAvance UPDATE\n         REDEFINE METER oMeter VAR nactual ID 130 OF oAvance ;\n                   PROMPT \" \" ;\n                   COLORS CLR_HGRAY, CLR_YELLOW ;\n                   BARCOLOR CLR_HBLUE, CLR_YELLOW UPDATE\n         REDEFINE METER oMeter1 VAR nPos ID 131 OF oAvance ;\n                   PROMPT \" \" ;\n                   COLORS CLR_HGRAY, CLR_YELLOW ;\n                   BARCOLOR CLR_HBLUE, CLR_YELLOW UPDATE\n         REDEFINE BUTTON oBtnok ID 113 OF oAvance UPDATE\n            oAvance:Bstart:= {||INdices(oMeter,oMeter1),oAvance:end()}\n   ACTIVATE DIALOG oAvance CENTERED\n  oAvance:end()\nreturn nil\n//----------------------------------------------------------------------------------//\nstatic Function Indices(oMeter,oMeter1)\n  nIndices=7\n  ferase(bases+\'\\\'+\'*.cdx\')  //borra todos los cdx\n\n  genera_index(oMeter,oMeter1,\"BASE0001\",\"-&gt;ART\"   ,\"bask1001\")\n  genera_index(oMeter,oMeter1,\"BASE0001\",\"-&gt;NOMAR\" ,\"bask1002\")\n  genera_index(oMeter,oMeter1,\"BASE0001\",\"-&gt;PROV\"  ,\"bask5001\")\n\n  genera_index(oMeter,oMeter1,\"clientes\",\"-&gt;clave\"  ,\"kcliente\")\n  genera_index(oMeter,oMeter1,\"clientes\",\"-&gt;nombre\" ,\"kclient1\")\n  genera_index(oMeter,oMeter1,\"clientes\",\"-&gt;rfc\"    ,\"kclient2\")\n  genera_index(oMeter,oMeter1,\"clientes\",\"-&gt;no_cli\" ,\"kclient3\")\n\n  /*Genera_index(oMeter,oMeter1,\"caja02\",\"-&gt;(alltrim(num_cajero))\",\"ind_caja1\")\n  Genera_index(oMeter,oMeter1,\"clientes\",\"-&gt;(alltrim(Clave))\" ,\"ind_clien1\")\n  Genera_index(oMeter,oMeter1,\"clientes\",\"-&gt;Nombre\",\"ind_clien2\")\n  Genera_index(oMeter,oMeter1,\"detaptos\",\"-&gt;(alltrim(Cvecliente))\",\"ind_deta1\")\n  Genera_index(oMeter,oMeter1,\"detaptos\",\"-&gt;(alltrim(proveedor))\" ,\"ind_deta2\")\n  Genera_index(oMeter,oMeter1,\"detaptos\",\"-&gt;(alltrim(cvecliente)+alltrim(proveedor))\" ,\"ind_deta3\")*/\n\n//  Genera_index(oMeter,oMeter1,\"TEMPORAL\",\"-&gt;(alltrim(proveedor))\" ,\"ind_TEM01\")\n  //Genera_index(oMeter,oMeter1,\"provpar\",\"-&gt;(alltrim(prov))\" ,\"ind_prov1\")\n\n  Alert(\'Generaci¢n de indices Exitosa\')\nreturn nil\n//----------------------------------------------------------------------------------//\nstatic function Genera_index(oMeter, oMeter1,base,campo,indice)\n   local cExpr\n   local sw:=.t.\n   nAvance:=0\n   nArch++\n   do while sw\n      use &amp;base\n      IF NETERR()\n        MSGBEEP();MSGBEEP();MSGBEEP()\n        ALERT(\'!CUIDADO! Algun Usuario esta ocupando el archivo  \'+base)\n         sw:=.t.\n      else\n         sw:=.f.\n     endif\n   enddo\n   cExpr := base+campo\n   oSay :SetText(\"Archivo: \"+BASE+\' /\'+indice+\'.cdx\'+\'   Reg: \'+alltrim(str(lastrec())))\n   oSay1:Settext(alltrim(str(nArch))+\'/ \'+alltrim(str(nIndices)))\n   oMeter :nTotal:= LASTREC()\n   oMeter1:nTotal:= LASTREC()*nIndices\n   index on &amp;cexpr TAG &amp;indice TO &amp;BASE;\n     EVAL (oMeter:SET(nAvance+RECNO()),oMeter1:SET(++nTreg),SYSREFRESH(),.T.)\n   CLOSE &amp;BASE\nreturn nil\n//----------------------------------------------------------------------------//\nINIT PROCEDURE Primero\n  REQUEST DBFCDX\n  RDDSETDEFAULT(\"DBFCDX\")\nRETURN\n//----------------------------------------------------------------------------//\n\n\nPERO YA EN LA POCKET NO FUNCIONA...BUENO CON ALGUNA MODIFICACIONES CLARO...\n\n\n\nESPERO Y ME PUEDAN AYUDAR...........','',0,'AIA=','1c5q3pa6',1,0,'',832,0,0),(25494,4134,4,3,0,'82.248.12.38',1169585817,1,0,1,1,1,1,'','','tftpfile()  seems to bethe problem\n\nI do not use it personnally, i use ftpgetfile and ftpputfile \n\nAntonio ?','',0,'AIA=','8tqh1p1q',1,0,'',3,0,0),(25495,5726,6,18,0,'200.67.188.236',1169586739,1,0,1,1,1,1,'','','Mi estimado Armando :\n\nYo uso la clase TExcel y manejo grandes volumenes de información, y te puedo decir que el desempeño de la clase es excelente.','',0,'AIA=','3kcss2cs',1,0,'',18,0,0),(25496,5737,3,303,0,'72.199.41.171',1169586866,1,0,1,1,1,0,'','','Silvio,\n\nThis is what I use with TWBrowse to get alternating row colors. This works with filters, indexes, and deleted records. It should work with TXBrowse also.\n\nJames\n\n\n[code:2ch1r1kg]lClrFlag&#58;=&#46;f&#46;\n\noLbx&#58;bSkip&#58;=&#123;| nRecs |  &#40;nRecs&#58;= &#58;&#58;oInvmast&#58;skipper&#40; nRecs &#41;, lClrFlag&#58;=if&#40;nRecs/2 = int&#40;nRecs/2&#41;, lClrFlag,!lClrFlag&#41;, nRecs&#41; &#125; \n\noLbx&#58;nClrPane &#58;= &#123; || if&#40;lClrFlag, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125;\n[/code:2ch1r1kg]','',0,'AIA=','2ch1r1kg',1,0,'',303,0,0),(25497,4134,4,2,0,'87.218.146.98',1169587757,1,0,1,1,1,1,'','','Vilian,\n\nPlease download FWPPC again, it should be ok now','',0,'AIA=','6wsudi63',1,0,'',2,0,0),(25498,5740,6,2,0,'87.218.146.98',1169589168,1,0,1,1,1,1,'','','Lee la documentación de la librería Class(y) para Clipper:\n<!-- m --><a class=\"postlink\" href=\"http://www.the-oasis.net/files/library/class24b.zip\">http://www.the-oasis.net/files/library/class24b.zip</a><!-- m -->\n\nEs un fichero RTF que se abre con Word','',0,'AIA=','118n4md6',1,0,'',2,0,0),(25499,5743,7,2,0,'87.218.146.98',1169589288,1,0,1,1,1,1,'','','REQUEST DBFCDX\n\n...\n\n   USE ( CurDir() + \"\\Customer\" ) VIA \"DBFCDX\"\n   INDEX ON Customer-&gt;Last TO ( CurDir() + \"\\LAST\" )\n   Customer-&gt;( OrdSetFocus( \"LAST\" ) )\n   Customer-&gt;( DbGoTop() )','',0,'AIA=','1xa7l7sg',1,0,'',2,0,0),(25500,5739,6,2,0,'87.218.146.98',1169589356,1,0,1,1,1,1,'','','Laura,\n\nNo, de momento el drag &amp; drop en trees no está soportado en FWH','',0,'AIA=','3hz5spty',1,0,'',2,0,0),(25501,5741,2,2,0,'87.218.146.98',1169589467,1,0,1,1,1,1,'','','Miguel,\n\nPor favor prueba samples\\TestPrn2.prg y observa si se comporta igual que en tu programa','',0,'AIA=','29ku655g',1,0,'',2,0,0),(25502,5744,6,838,0,'80.59.225.15',1169591643,1,0,1,1,1,0,'','Refrescar BUTTONBAR para accesos','Hola amigos\nA ver si me se explicar\nTengo una aplicación que da accesos mediante clave de usuario a distintas opciones del programa.\nLas opciones del menu generadas mediante oWPpal:Setmenu(), me respeta éstas restricciones.\nComo se construye La BUTTONBAR antes de la entrada de claves de cada usuario, cuando pongo la clave de usuario aunque sea la de Supervisor, tengo todos los iconos deshabilitados, y me he tenido que apañar con la solución poco elegante de  poner dentro de la BUTTONBAR un icono no sujeto a la cláusula WHEN (que es la que limita el acceso), que de acceso a una función fantasma, el icono ejecuta ésta función que no tiene nada, y al volver repinta la barra de botones, y ya si respeta todas las opciones de cada usuario.\nAunque a éste icono, los usuarios lo toman como una cosa normal, ya que lo denomino \"Activar Opciones\", me gustaría algo más elegante que al introducir su clave de acceso, se pusieran todas sus opciones disponibles automáticamente.\nHe probado a hacer oBar:Refresh() después de la función que carga las claves, y no hace nada.\n\nSaludos\n\nJose Luis','',0,'AIA=','u0988s7c',1,0,'',838,0,0),(25503,5743,7,832,0,'201.122.21.224',1169592453,1,0,1,1,1,0,'','error','<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> OYE ANTONIO ME MARCA UN ERROR .....\nY NO PUEDO HACER UNA FUNCION UNICAMENTE PARA INDEXAR..\n\nEL ERROR ES EL SIGUIENTE...\n\n\n EN LA BARRA DE TIDULO DICE..\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   NOT IMPLEMENTED YET\n\nEN EL ERRO..\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   GetNUmbetOfConsoleInputEvents(                   )\n\n\noye no puedo meter varios indices en el mismo archivo....\nes decir\n\nindex on base0001-&gt;art TO (CurDir() +\"\\bases\\base0001\")\nindex on base0001-&gt;nomar TO (CurDir() +\"\\bases\\base0001\")\nindex on base0001-&gt;fecha TO (CurDir() +\"\\bases\\base0001\")\n\n\no como hago este procedimiento','',0,'AIA=','265mtlwz',1,0,'',832,0,0),(25504,5713,1,49,0,'62.13.172.78',1169592966,1,0,1,1,1,1,'','','I correct all\nbut I not see the lines\n\n[url=http&#58;//img292&#46;imageshack&#46;us/my&#46;php?image=event9wz&#46;jpg:xtzwjzk6][img:xtzwjzk6]http&#58;//img292&#46;imageshack&#46;us/img292/3412/event9wz&#46;th&#46;jpg[/img:xtzwjzk6][/url:xtzwjzk6]','',0,'GA==','xtzwjzk6',1,0,'',49,0,0),(25505,5728,6,913,0,'189.137.9.251',1169593143,1,0,1,1,1,1,'','GRACIAS','HOLA\n\nGracias por el ejemplo a un que realmente no le entiendo <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  pero me pondre a ver donde pongo <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  las lineas que me pasaste en mi programita\n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','2cag6ltq',1,0,'',913,0,0),(25506,5714,3,49,0,'62.13.172.78',1169594894,1,0,1,1,1,1,'','','from version we have tbmenu ?','',0,'GA==','1qtn3ruu',1,0,'',49,0,0),(25507,5745,6,913,0,'189.137.9.251',1169595783,1,0,1,1,1,1,'','Tabla de Códigos de Colores para todos en el foro','Les paso el link de una pagina donde encontraran  una muy buena Tabla de Códigos de Colores que en lo personal me a servido de mucho\n\n<!-- m --><a class=\"postlink\" href=\"http://www.sitiosargentina.com.ar/webmaster/CODIGOS%20DE%20COLORES.htm\">http://www.sitiosargentina.com.ar/webma ... OLORES.htm</a><!-- m -->\n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','663d936d3dbb4350071c543d47ae06fa',0,'','1m6houim',1,1279588288,'',913,1,0),(25508,5732,3,707,0,'222.124.20.54',1169597169,1,0,1,1,1,0,'','','thank\'s silvio.\n\nregards','',0,'GA==','2l2rnxfv',1,0,'',707,0,0),(25509,5737,3,707,0,'222.124.20.54',1169597593,1,0,1,1,1,0,'','','Mr. James\n\nCan you give me full example ?\nHow to put this code on tx or tw class\nThank\'s\n\nRegards\nAreang','',0,'GA==','3lu42duc',1,0,'',707,0,0),(25510,5737,3,303,0,'72.199.41.171',1169598286,1,0,1,1,1,0,'','','[code:wnmhhps1]  define window oWnd\n\n   use customer\n   database oCust\n   \n   @ 0,0 listbox oLbx fields oCust&#58;company, oCust&#58;address alias oCust&#58;cAlias of oWnd\n   \n   lClrFlag&#58;=&#46;f&#46; \n\n   oLbx&#58;bSkip&#58;=&#123;| nRecs |  &#40;nRecs&#58;= &#58;&#58;oCust&#58;skipper&#40; nRecs &#41;, lClrFlag&#58;=if&#40;nRecs/2 = int&#40;nRecs/2&#41;, lClrFlag,!lClrFlag&#41;, nRecs&#41; &#125; \n\n   oLbx&#58;nClrPane &#58;= &#123; || if&#40;lClrFlag, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125;    \n   \n   oWnd&#58;oClient&#58;= oCust\n   \n   activate window oWnd[/code:wnmhhps1]','',0,'AIA=','wnmhhps1',1,0,'',303,0,0),(25511,5742,6,138,0,'148.223.38.6',1169600833,1,0,1,1,1,1,'','','¿¿¿¿Pero quien te dijo esa barbaridad ?????\n\nADO te puede abrir las tablas para lectura y escritura, compartidas o exclusivas ejecutar procesos almacenado y todo lo que puedes hacer con un SQL normal, todo depende del tipo de cursor que quieras utilizar.\n\nADO es totalmente flexible, es mas, es una vil copia del modelo xBase pero basado en SQL.','',0,'AIA=','3jgsimt1',1,0,'',138,0,0),(25512,5695,6,397,0,'201.27.22.71',1169601292,1,0,1,0,1,1,'','','At your criteria.\n\nThe solution below use fixed files in one shared pc on a lan.\n\nIf you need use internet or intranet you can use [b:1hm35t60]stream[/b:1hm35t60], TActivex and Media Player and Windows Media Encoder.\n\nThe solution is here:\n\n[url=http&#58;//www&#46;robertwisbey&#46;com/how_to_web_cam_wme&#46;html:1hm35t60]Creating a web cam feed with WME[/url:1hm35t60].','',0,'UA==','1hm35t60',1,0,'',397,0,0),(25513,5507,22,103,0,'200.195.79.136',1169603248,1,0,1,1,1,1,'','','Hola Armando, \n\n     Es exactamente esto que necesito. Entonces, de acuerdo con tus palabras, pregunto a Antonio: ¿Es posible que se tenga esto?\n\nSaludos,','',0,'UA==','15145pj2',1,0,'',103,0,0),(25514,5746,6,913,0,'189.137.9.251',1169605784,1,0,1,1,1,1,'','DONDE ENCUENTRO ARCHIVOS DE IMAGENES BMP CON FONDO ROSITA','HOLA\n\ndonde puedo encontrar imagenes .bmp con el fondo rosita \nme podrian ayudar solo tengo poquitas y me hacen falta algunas con los temas que nesecito\n\n\nSaluditos\n\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'UA==','1ftc81t8',1,0,'',913,0,0),(25515,5726,6,53,0,'189.139.15.141',1169607653,1,0,1,1,1,1,'','','Mi Buen Amigo Vick, mejor conocido como Listo el pollo !\n\nGracias por el aporte, y donde puedo obtener esa clase ?\n\nUn abrazo y arriba el Toluca  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'UA==','2nok5zdm',1,0,'',53,0,0),(25516,5742,6,73,0,'200.66.35.197',1169610014,1,0,1,1,1,0,'','','gracias rene por tu aclaracion (eso mismo pense, pero como no he usado sql ni ado tan amplio, por eso) y muy puntual como siempre. Aqui haciendo un poco de historia es lo siguiente:  antes habia un sistema hecho en clipper 100% y yo hice subsistemas de esas dbf, luego los clipperos contrataron para migrar ese sistema a vb con sql, tons les comente que iba a hacer subsistemas de ese sistema, jeje, pero como que no les parecio y un programador de vb me comento eso, se me hizo raro, pero por no dejar pregunto.\ny alguien que use fcsodbc? alguna experiencia?\ngracias\nsalu2\npaco','',0,'UA==','2c41wxe4',1,0,'',73,0,0),(25517,5744,6,73,0,'200.66.35.197',1169610266,1,0,1,1,1,0,'','','jose luis,\n yo habilito y deshabilito los botones de la toolbar en unas ocasiones con WHEN y otras asi: oToolBar:EnableButton( nBtn, .T. )\nespero te sirva\nsalu2\npaco','',0,'UA==','7jcpt40t',1,0,'',73,0,0),(25518,5737,3,67,0,'62.235.24.51',1169624387,1,0,1,1,1,0,'','','Silvio,\n\nI use :\n\noBrw:bClrStd := {|| {CLR_BLACK, iif( oBrw:nArrayAt % 2 = 0, CLR_1, CLR_2  ) } }\n\nFrank','',0,'UA==','rhkiqqaa',1,0,'',67,0,0),(25519,4603,4,266,0,'121.120.15.8',1169625650,1,0,1,1,1,1,'','','I need SCROLLBAR on WINDOW too.  Is it already in  Jan 07 build ?','',0,'UA==','3esb5l71',1,0,'',266,0,0),(25520,5737,3,49,0,'213.82.134.66',1169627202,1,0,1,1,1,1,'','','thanks franks \nI resolve for the colors ....\n\nbut i have  the last problem \nI want edit the field into xbrowse  , the field is a date() type , How I can create a codeblock use with onpostedit clausole ?','',0,'UA==','3j7m5lwa',1,0,'',49,0,0),(25521,5743,7,2,0,'87.218.146.98',1169629278,1,0,1,1,1,1,'','','Estás usando Inkey() en alguna parte ?\n\nRecuerda que en FWPPC los Meter no están implementados. Tienes que usar los PROGRESS bar. Revisa samples\\TestProg.prg\n\nPara indexar por distintos campos, usa TAGs:\n\nindex on base0001-&gt;art TAG \"art\" TO (CurDir() +\"\\bases\\base0001\") \nindex on base0001-&gt;nomar TAG \"nomar\" TO (CurDir() +\"\\bases\\base0001\") \nindex on base0001-&gt;fecha TAG \"fecha\" TO (CurDir() +\"\\bases\\base0001\")','',0,'UA==','142wid2s',1,0,'',2,0,0),(25522,5746,6,2,0,'87.218.146.98',1169629373,1,0,1,1,1,1,'','','Aida,\n\nEn el directorio BITMAPS de FWH tienes bitmaps de ejemplo. Puedes cambiarle el color del fondo a cualquiera de ellos usando un programa de manejo de imágenes como el paint, psp, etc','',0,'UA==','4nixly3n',1,0,'',2,0,0),(25523,5728,6,2,0,'87.218.146.98',1169629464,1,0,1,1,1,1,'','','@ ..., ... GET oGet VAR cVar OF oDlg\n\nó\n\nREDEFINE GET oGet VAR cVar ID ... OF oDlg\n\noGet:bGotFocus := { || oGet:SetColor( 0, GetSysColor( 15 ) } \noGet:bLostFocus := { || oGet:SetColor( 0, CLR_WHITE ) }','',0,'UA==','28lyvv4f',1,0,'',2,0,0),(25524,4603,4,2,0,'87.218.146.98',1169629524,1,0,1,1,1,1,'','','Hoe,\n\nYes, it is. Please review samples\\TestScrl.prg','',0,'UA==','24zoy3ih',1,0,'',2,0,0),(25525,5714,3,2,0,'87.218.146.98',1169629710,1,0,1,1,1,1,'','','Silvio,\n\nSeptember 2006','',0,'UA==','2jk3pvuu',1,0,'',2,0,0),(25526,5747,6,131,0,'194.179.55.36',1169629817,1,0,1,1,1,0,'','problemas con las toolbars y rebars','Hola:\nEstoy intentando cambiar una buttonbar por una toolbar en un programa. La llamada al método que crea la toolbar en la ventana principal la pongo despues de definir la ventana y antes de activarla. El codigo que uso es este:\n\n[code:3chjyxma]&#58;&#58;oImgList = TImageList&#40;&#41;&#58;New&#40; 44, 44 &#41; // width and height of bitmaps\n\n   &#58;&#58;oImgList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;BB_ACTIVIDAD&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n\n   &#58;&#58;oReBar = TReBar&#40;&#41;&#58;New&#40; &#58;&#58;oWndMain &#41;\n\n   &#58;&#58;oToolBar = TToolBar&#40;&#41;&#58;New&#40; &#58;&#58;oReBar, 50, 50, &#58;&#58;oImgList, &#46;t&#46; &#41;\n\n   &#58;&#58;oToolBar&#58;AddButton&#40; &#123; || Actividad&#40;&#41; &#125;, &quot;Gestión del fichero de actividades&quot;, &#41;\n   &#58;&#58;oToolBar&#58;AddSeparator&#40;&#41;\n\n   &#58;&#58;oToolBar&#58;nWidth = 290\n\n   &#58;&#58;oReBar&#58;InsertBand&#40; &#58;&#58;oToolBar &#41;[/code:3chjyxma]\n\ny cuando lanzo el programa se crea la toolbar pero el bitmap de dentro no aparece. El recurso existe, es el mismo que usaba en un botón de la btnbar. Además cuando hago click en el boton el programa se cuelga irremediablemente.\n\nTengo FWH 2.7 de diciembre de 2005 y xHB 0.99.6\n\n¿ Alguna idea de que puede pasar ?\n\nSaludos,','',0,'AIA=','3chjyxma',1,0,'',131,0,0),(25527,5745,6,2,0,'87.218.146.98',1169629911,1,0,1,1,1,1,'','','gracias,','',0,'AIA=','18673nyc',1,0,'',2,0,0),(25528,5747,6,131,0,'194.179.55.36',1169629993,1,0,1,1,1,0,'','','Olvide decir que los ejemplos de toolbars que tengo en SAMPLES van de coña.\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','1lp8wlfr',1,0,'',131,0,0),(25529,5747,6,2,0,'87.218.146.98',1169630038,1,0,1,1,1,1,'','','José Luis,\n\nLos bitmaps que usas miden todos igual y son de 44x44 como indicas en el código ?','',0,'AIA=','1zp2x8yz',1,0,'',2,0,0),(25530,5507,22,2,0,'87.218.146.98',1169630280,1,0,1,1,1,1,'','','Kleyber,\n\nYo creo que un redimensionamiento automático no es siempre posible pues quiza varie la apariencia de la caja de diálogo, pero puedo estar equivocado','',0,'AIA=','zgd9qxu5',1,0,'',2,0,0),(25531,5747,6,131,0,'194.179.55.36',1169630585,1,0,1,1,1,0,'','','Antonio:\nEso lo copie de un jemplo y está mal. Los bitmaps que uso son de 36*36 y ya lo he corregido. \nAhora me queda arreglar lo del cuelgue del programa. Con el butonbar me iba de coña asi:\n\n[code:28nqjh1o]   DEFINE BUTTON OF &#58;&#58;oBar ;\n      RESOURCE &quot;BB_ACTIVIDAD&quot;;\n      TOOLTIP i18n&#40; &quot;Gestión de ejercicios y actividades&quot; &#41; ;\n      MESSAGE i18n&#40; &quot;Gestión del fichero de ejercicios y actividades&#46;&quot; &#41; ;\n      ACTION Actividad&#40;&#41;    ;\n      NOBORDER[/code:28nqjh1o]\n\nNo entiendo porque con esto\n\n[code:28nqjh1o]&#58;&#58;oToolBar&#58;AddButton&#40; &#123; || Actividad&#40;&#41; &#125;, &quot;Gestión del fichero de actividades&quot;, &#41;[/code:28nqjh1o]\n\nse cuelga el programa. No se si es por lo que dije de donde creo la toolbar, lo hago despues del define window y antes del activate, llamando a un método de la clase de la aplicación. ¿ Hay que crear la toolbar en el on init de la ventano o eso es sólo para dialogos ?\n\nSaludos,','',0,'AIA=','28nqjh1o',1,0,'',131,0,0),(25532,5713,1,47,0,'203.144.160.250',1169631686,1,0,1,1,1,0,'','','It has no line but it is Listbox border ( SET _3DLOOK ON ).  I think you must resize list box.','',0,'AIA=','2k7w9z0p',1,0,'',47,0,0),(25533,5747,6,2,0,'87.218.146.98',1169632303,1,0,1,1,1,1,'','','José Luis,\n\nEs correcto como la creas. Has probado a llamar a MsgInfo() en vez de a Actividad() y ver si funciona ? \n\nCuando dices cuelgue te refieres a un GPF ó a que la aplicación deja de responder ?','',0,'AIA=','2j2li9oz',1,0,'',2,0,0),(25534,5684,3,810,0,'84.172.67.130',1169632999,1,0,1,1,1,0,'','Xbrwose lines','it looks ugly !!!!\n\nHow can we cut these lines ?????','',0,'AIA=','3o5zfsxb',1,0,'',810,0,0),(25535,5747,6,131,0,'194.179.55.36',1169635463,1,0,1,1,1,0,'','','Si hago un msginfo si que me lo saca, pero la llamada a la función que hace el matenimineto cluega el programa. No es un GPF, sino que el programa deja de funcionar. \n\nSaludos,','',0,'AIA=','3ewwpsx6',1,0,'',131,0,0),(25536,5744,6,838,0,'80.34.222.112',1169636500,1,0,1,1,1,0,'','','Paco\nLo que pasa es que yo utilizo BUTTONBAR, y no toolbar. No me acuerdo que problema me daba toolbar con lo de las ventanas mdi, y por eso puse buttonbar.\nSi no encuentro forma de hacerlo con Buttonbar, voy a probar a utilizar toolbar.\n\nSaludos\n\nJose Luis','',0,'AIA=','31cvtxmk',1,0,'',838,0,0),(25537,5684,3,49,0,'213.82.134.66',1169637587,1,0,1,1,1,1,'','','LDIVIDERCOMPLETE:=,T,\nTHIS IS THE SOLUTION !!','',0,'AIA=','1f1tbwpe',1,0,'',49,0,0),(25538,5713,1,49,0,'213.82.134.66',1169638414,1,0,1,1,1,1,'','','I think we can design lines after each day .... vertical and horizontal','',0,'AIA=','3n7pqy7o',1,0,'',49,0,0),(25539,5748,2,812,0,'200.83.125.28',1169642694,1,0,1,1,1,0,'','Para ANTONIO LINARES','Hola Antonio:\n\nTengo una duda, me han llamado de una empresa donde tienen sistemas desarrollados en clipper 5.3 y necesitan pasarlos a Fivewin. Ellos disponen de un CD. que tiene Clipper 5.3 en carpes que van desde DISK1 al DISK8 y una que dice PATCHES, en esta carpeta exiten dos una con el nombre de A en ella esta DISK1 y DISK2, y contra con el nombre B con una carpeta DISK1. Al tratar de actualizar a 5.3A o 5.3B, realiza el proceso de instalacion pero no actualiza nada.\n\nQuisiera saber cual es el error, pregunte a la empresa, y me dicen que este es el respaldo que ha dejado el programador que los atendia y que hoy no han podido ubicarlo.\n\nSaludos,\n\nMiguel\n\n\nEl error registrado es el siguiente:\n\nTe muestro la parte inicial y final del proceso, ya que es muy largo el registro.\n\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n           PATCH  Version 2.03 - .RTPatch(R) - Software Update System\n                            DOS and Windows Edition\n       (C) Copyright Pocket Soft, Inc., 1991-1994.  All Rights Reserved.\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n\n ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ \n ³             CA-Clipper 5.3b Intl Upgrade         ³ \n ³                                                  ³ \n ³                                                  ³ \n ³                                                  ³ \n ³                                                  ³ \n ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ \n\n\nÄÄÄÄÄ Processing Patch File ÄÄÄÄÄ\n\nCreating New System using Temporary Files\n\nApplying MODIFY File Patch for \'_DBFCDX.LIB\'\n\n    Warning wpt0036: Old File not found. However, a file of the same name was \n               found. No update done since file contents do not match.\n\nApplying MODIFY File Patch for \'ANSITERM.LIB\'\n\n    Warning wpt0036: Old File not found. However, a file of the same name was \n               found. No update done since file contents do not match.\n\nApplying MODIFY File Patch for \'CACI.EXE\'\n\n    Warning wpt0036: Old File not found. However, a file of the same name was \n               found. No update done since file contents do not match.\n\nApplying MODIFY File Patch for \'CACIACT.DLL\'\n\n    Warning wpt0036: Old File not found. However, a file of the same name was \n               found. No update done since file contents do not match.\n\nApplying MODIFY File Patch for \'CACIADAM.DLL\'\n....\n....\n..\n\nCopying Temporary Files to New System\n\n\nÄÄÄÄÄ Patch File Processing Complete ÄÄÄÄÄ\n\n\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\n-        Results of Application of Patch File       -\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\nFile Patches Applied ......................... (  73)\n\n   Files Modified .................. (   0)\n   Files Renamed. .................. (   0)\n   Files Added ..................... (  73)\n   Files Deleted ................... (   0)\n\nFile Patches Skipped: New Files Up-To-Date.... (   2)\n\nFile Patches Ignored: Old Files Missing....... (   0)\n                      Old Files Invalid....... (  44)\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\nTotal File Patches Processed ................. ( 119)\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ','',0,'AIA=','3731wnwf',1,0,'',812,0,0),(25540,5749,6,300,0,'189.10.33.131',1169645953,1,0,1,1,1,0,'','duda con tree','Olá tengo una tree con treeview necessito a cada boton pulsado en uno get a tree se abrir posicionando no item desejado. \n\nGracias.','',0,'AIA=','yhmqza3a',1,0,'',300,0,0),(25541,5507,22,376,0,'200.106.20.187',1169648099,1,0,1,1,1,1,'','','Bien...\n\nCon la funciòn que hace mención Antonio, voy a probar modificando el codigo que tengo (el que nos fuera entregado por uno de los miembros del foro) para ver si consigo adecuarlo a lo Kleyber y yo necesitamos (es posible que sea general la necesidad). Los programas hechos con Visual Basic y Delphi lo hacen sin ningún problema y por eso dan una mejor impresión que los nuestros...\n\nVoy a ver cómo lo hago... si puedo.','',0,'AIA=','22ee9s4k',1,0,'',376,0,0),(25542,5741,2,376,0,'200.106.20.187',1169649009,1,0,1,1,1,1,'','','Miguel prueba esto...\n\ncambia esto:\n\nPrint oPrint From User Preview \n\nPor\n\n\n\nPrint oPrint From User Preview MODAL','',0,'AIA=','1h6j55mm',1,0,'',376,0,0),(25543,5748,2,376,0,'200.106.20.187',1169649470,1,0,1,1,1,1,'','','Miguel...\n\nDisculpa que me entrometa en una consulta que no fue hecha para mi...\n\nTiempo atrás tuve un problema similar que se solucionó en una forma de lo más curioso. Solo tuve que grabar los archivos parches en diskette y desde allí correrlos, y eso fue todo!!! Prueba si este procedimiento es aplicable en tu caso.','',0,'AIA=','2pjvnip0',1,0,'',376,0,0),(25544,5750,6,376,0,'200.106.20.187',1169651842,1,0,1,1,1,1,'','Inconvenientes con www.uploading.com','Antonio...\n\nEste nuevo site donde se encuentran las contrucciones de (x)Harbour no siempre están disponibles... no se si porque se cae o si porque el servidor correspondiente es lento.\n\nEsto no sucedía con frecuencia en HyperUpload que utilizábamos antes.\n\n------------------\n\nEn otro tema...\n\n¿Qué construcción de (x)Harbour -- de qué fecha-- es la más adecuada para FWH26? ... pero sin tener que estar recompilando FWH26 ya que hay veces que se vuelve una tortura por las peculiaridades que aparecen después de reconstruir.','',0,'AIA=','2ev5xmnx',1,0,'',376,0,0),(25545,5748,2,812,0,'200.83.125.28',1169653467,1,0,1,1,1,0,'','','Armando:\n\nTe agradesco tu ayuda, la instalacion la he realizado desde diskette  y de todas las formas que conozco, pero el resultado es el mismo.\n\nNo se a que se debe este error.\n\nDesde ya muchas gracias,\n\nMiguel Rivera\n\n[quote=&quot;Armando Picon&quot;:37zqoc6a]Miguel...\n\nDisculpa que me entrometa en una consulta que no fue hecha para mi...\n\nTiempo atrás tuve un problema similar que se solucionó en una forma de lo más curioso. Solo tuve que grabar los archivos parches en diskette y desde allí correrlos, y eso fue todo!!! Prueba si este procedimiento es aplicable en tu caso.[/quote:37zqoc6a]','',0,'gA==','37zqoc6a',1,0,'',812,0,0),(25546,5744,6,785,0,'190.64.112.49',1169654033,1,0,1,1,1,0,'','','José Luis:\n\nPodrias hacer un Valid() en el get de la clave del usuario y ejecutar\nla funcion que hace el boton \"Activar opciones\"\n\nSe me ocurre.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','ppjm1wi5',1,0,'',785,0,0),(25547,5742,6,138,0,'148.223.38.6',1169656437,1,0,1,1,1,1,'','','Una vez que conoces ADO no hace falta que inventes nada mas, el modelo ADO es universal, te sirve para conectar con cualquier base de datos solo camiando una linea de codigo de tu programa.\n\nCuando tu ves como funciona ADO, te das cuenta de que el modelo XBase no esta tan obsoleto como dicen.','',0,'gA==','3gw1mh16',1,0,'',138,0,0),(25548,5748,2,376,0,'201.230.202.171',1169656506,1,0,1,1,1,1,'','','Otro motivo puede ser que los parches no correspondan a la versión que deseas intalar.\n\nMe explico. Clipper 5.3 venia en dos versiones: una Internacional y una para inglès nativo... de la misma forma los parches. Si los parches no corresponden a la versiòn que tienes NUNCA lo va actualizar.','',0,'gA==','90yeu0br',1,0,'',376,0,0),(25549,5750,6,376,0,'201.230.202.171',1169657969,1,0,1,1,1,1,'','','Antonio...\nCuando funciona el link... tambien aparecen pop ups con porno!!!','',0,'gA==','3ndjg44a',1,0,'',376,0,0),(25550,5751,6,891,0,'148.243.37.162',1169659474,1,0,1,1,1,0,'','No refresca los combobox dentro del valid en FWH 7.01','Hola amigos del foro, no se si alguno de ustedes les pase lo mismo, pero en caso mio, tengo un pequeño detalle en los combobox, en la version anterior me refrescaba los datos al seleccionar x num de clave en el control del combobox , pero ahora que compile con la nueva version de FWH 7.01, no me refresca los datos, al igual cuando selecciono clave 1 es numerico al teclear clave 2 que igual es numerico y anduve depurando mi codigo porque marcaba error usando MsgInfo(ValType(nCveIva)), y resulta que es tipo caracter, cuando mis variables es numerico, pero eso sucede creo yo, porque no refresca los datos...anexo mi codigo \nStatic nCveIva\nfunction poliza2()\nnCveIva := 0\n\nDefine Dialogo oDlg... bla bla bla bla .....\n\nREDEFINE    GET oGetDet[06] VAR nIMPORTE  ID 110 OF oDlg  PICTURE \"9,999,999.99\"   REDEFINE COMBOBOX oCbxD VAR nCVEIVA ITEMS aFile1 ID 111 OF oDlg PICTURE \"9\" VALID V_TASAIVA(nIMPORTE,nCVEIVA)\n\nREDEFINE    GET oGetDet[07] VAR nIVA      ID 112 OF oDlg PICTURE \"999,999.99\"  \n\ny aqui la funcion del valid    \n//------------------------------------------------------------------------------\nSTATIC FUNCTION V_TASAIVA(IMPORTEf,IVAf)\n IF !IMPORTEf &gt; 0\n     MsgAlert(\"ERROR: Captura importe sin iva, si elije Tasa Iva\")\n\n     *RETURN .F.\n ENDIF\n\n S08-&gt;(DbSeek(STR(IVAf,1)))\n\n nIVA := ROUND(IMPORTEf * S08-&gt;TASAIVA / 100,2)\n\n oGetDet[07]:Refresh()\n oSayDet[06]:Refresh()\n RETURN (.T.)\n\ny es aqui cuando intengo grabar registro y al teclear clave 1 graba bien, y al grabar siguiente clave 2 y sucesivamente , marca error de : Data type error: CVEIVA\nEso sucede cuando no me refresca los datos y en la version anterior FWH 2.7, todo iba bien, alguna sugerencia ? gracias se los agradecere','',0,'','w7om3624',1,0,'',891,0,0),(25551,4134,4,267,0,'200.208.238.2',1169663320,1,0,1,1,1,1,'','','Antonio,\n\nNow it is generating the Exe, but when I try to connect it appears the following error:\n\nArgument error\nSTR\n   Args:\n     [   1] = U   \nstack calls:\nSTR(0)\nINTERNETOPEN(0)\nTINTERNET:NEW(0)','',0,'','3msr7m7u',1,0,'',267,0,0),(25552,4134,4,2,0,'87.218.146.98',1169663774,1,0,1,1,1,1,'','','Vilian,\n\nPlease check if you are have an InternetOpen() in your code','',0,'','3lqhj2cc',1,0,'',2,0,0),(25553,5750,6,2,0,'87.218.146.98',1169663939,1,0,1,1,1,1,'','','Armando,\n\nLos builds más recientes de Harbour y xHarbour pueden descargarse directamente desde:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">http://www.fivetechsoft.com/files/harbour.exe</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">http://www.fivetechsoft.com/files/xharbour.exe</a><!-- m -->','',0,'','15k7ejan',1,0,'',2,0,0),(25554,5751,6,2,0,'87.218.146.98',1169664120,1,0,1,1,1,1,'','','En FWH 7.01 se ha implementado búsqueda incremental en los comboboxes. Quizás de ahí venga el problema. Prueba a reemplazar la Clase TCombobox por la anterior que tengas','',0,'','39jr58e5',1,0,'',2,0,0),(25555,4703,6,393,0,'200.47.185.10',1169664796,1,0,1,1,1,0,'','consulta sobre mysql','Enrique , no si podrias enviarme tu mail personal para consultarte sobre el uso de sqllib.\nGracias.\nDaniel\nLima-Peru','',0,'','2q6dtut2',1,0,'',393,0,0),(25556,5751,6,891,0,'148.243.37.162',1169664877,1,0,1,1,1,0,'','Gracias Antonio','[quote=&quot;Antonio Linares&quot;:18fj3b54]En FWH 7.01 se ha implementado búsqueda incremental en los comboboxes. Quizás de ahí venga el problema. Prueba a reemplazar la Clase TCombobox por la anterior que tengas[/quote:18fj3b54]\n\nGracias Antonio por la respuesta, lei las nuevas novedades del combobox y muchas mas, pero no imagine que afectaria ese pequeño detalle, con los demas controles no tengo ningun problema al refrescar los Says, porque ya viene corregido, pero el de combobox he ahi el detalle , vere si consigo la clase anterior y sustituirlo, espero no haberlo eliminado la version 2.7, o alguien que tenga y me lo envie a mi correo por favor.\nGracias.\nAtte: Adriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'gA==','18fj3b54',1,0,'',891,0,0),(25557,5752,6,838,0,'80.59.225.15',1169665000,1,0,1,1,1,0,'','No se si será posible...','Siempre que me doy una vuelta por el foro, me encuentro que algun método ó Data que no estaba contemplado en versiones anteriores, ya está implantado en FWH, y si son cosas que yo necesitaba, tenía que recurrir a clases externas, sin saber que ya las tenemos, hasta que lo veo en el foro, y las empiezo a utilizar.\nEn el directorio FWH\\Manual, vienen ayudas que no contemplan todos éstos cambios. Sólamente parece un whatsnew.txt que viene un resumen de cada cosa nueva que se añade o se repara, pero.... en inglés, del que yo no entiendo ni papa, aunque por los años en ésto deduzco cosas con algo de esfuerzo, y voy aplicando.\n\nY aquí mi pregunta:\nSería muy complicado actualizar todas éstas ayudas en .chm, .doc, y hlp con las nuevas mejoras, en alguna nueva versión, o mucho mejor aún en éste foro para uso y disfrute de los limitaditos como yo a nuestra lengua?.\n\nUn saludo\n\nJose Luis','',0,'gA==','24n67x97',1,0,'',838,0,0),(25558,5752,6,2,0,'87.218.146.98',1169665498,1,0,1,1,1,1,'','','Jose Luis,\n\nLa documentación la actualizamos de tanto en tanto, no es algo que actualicemos a cada momento (aunque debiéramos hacerlo).\n\nLa referencia más fiable es whatsnew.txt y el propio código fuente de las clases','',0,'gA==','2mkkm807',1,0,'',2,0,0),(25559,5748,2,812,0,'201.236.182.64',1169665533,1,0,1,1,1,0,'','','Armando:\n\nTengo la version 5.3 Internacional, no se como saber a cual corresponde los parches que tengo.\n\nDebo actualizarlos, ya que me informaron que el manejo de indices CDX, es inestable, si no es la version 5.3b.\n\nSaludos,\n\nMiguel Rivera\n\n\n[quote=&quot;Armando Picon&quot;:2ekpieyt]Otro motivo puede ser que los parches no correspondan a la versión que deseas intalar.\n\nMe explico. Clipper 5.3 venia en dos versiones: una Internacional y una para inglès nativo... de la misma forma los parches. Si los parches no corresponden a la versiòn que tienes NUNCA lo va actualizar.[/quote:2ekpieyt]','',0,'gA==','2ekpieyt',1,0,'',812,0,0),(25560,5748,2,2,0,'87.218.146.98',1169665614,1,0,1,1,1,1,'','','Miguel,\n\nSentimos no poder ayudarte. Hace años que no usamos esos ficheros','',0,'gA==','2fihjofd',1,0,'',2,0,0),(25561,4703,6,103,0,'200.195.79.7',1169665970,1,0,1,1,1,1,'','','Daniel,\n\n    En <!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w --> tienes todas las informaciones que necesita, inclusive puedes bajar la version DEMO para tus pruebas y viene con ejemplos de uso. Puedes bajar tambien el DBF2MySQL para que puedas crear las tablas en MySQL y enviar todos los datos de tus DBFs a MySQL.\n\nsaludos,','',0,'gA==','2d4vccvt',1,0,'',103,0,0),(25562,5507,22,103,0,'200.195.79.7',1169666111,1,0,1,1,1,1,'','','Armando,\n\n   Suerte en tus pruebas. Asi que tengas algun resultado, avisanos.\n\nSaludos,','',0,'gA==','26mqw3tp',1,0,'',103,0,0),(25563,4703,6,37,0,'190.41.59.208',1169667433,1,0,1,1,1,1,'','','Daniel, no veo mail tuyo para ponernos en contacto, pero lo que te puedo mencionar es que se ha hecho un buen trabajo con SQLLIB, nosotros la usamos en la actualidad y atacamos MySQL muy bien.\n<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w --> es la pagina de la libreria y Vailton es el administrador de la misma, el te podra dar mayor informacion.\nSaludos','',0,'gA==','3tiovy6c',1,0,'',37,0,0),(25565,5750,6,376,0,'201.230.202.171',1169669564,1,0,1,1,1,1,'','','Y estos builds funcionan sin que se necesiten modificaciones ya sea en FWH26?. \n\nTengo un cliente que tiene fwh26 y nunca lo uso, según dice, pero yo estoy utilizando el xHarbour de fwh24 que adquirí ya hace años. He probado con xHarbour 99.60, xHarbour 99.61 y xHarbour 99.70 con su fwh26 y cuando compilo me da el siguiente error:\n\n\"unresolved external _hb_stack referenced from c:\\fwh26\\lib\\fivehc.lib|ffwndrun\".','',0,'gA==','1ypj8kj4',1,0,'',376,0,0),(25567,5753,6,156,0,'201.244.245.155',1169673255,1,0,1,1,1,0,'','ToolTips en TOOLBAR','Hola amigos, los tooltips en la Clase TOOLBAR tienen un limite de 40 caracteres de largo.  Hay alguna forma de poder ampliarlo a, por ejemplo, 120.\n\nEn la clase Window pude lograr un ancho de 120 con:\n   SendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 120)\n\nFunciona muy bien, pero no con ToolBar. Parece que esta invoca a una función diferente para construir los ToolTips. He probado de todo y no lo he logrado. Alguna sugerencia ?\n\nTampoco funciona:\noToolBar1:SetTextRows(3) ni\nnRows := 2\nSendMessage( oToolBar1:hWnd, TB_SETMAXTEXTROWS, nRows, 0 )\n\nMil gracias por su ayuda.\n\nTengo FWH 2.7 de Agosto 2006, xHarbour 0.99.61 y BCC 5.5\n\nSaludos,\n\nCarlos Gallego','',0,'gA==','3730itva',1,0,'',156,0,0),(25569,5750,6,376,0,'201.230.202.171',1169673773,1,0,1,1,1,1,'','','Antonio... continúa el mismo mensaje de error!!! ... \"unresolved external _hb_stack referenced from c:\\fwh26\\lib\\fivehc.lib|ffwndrun\"','',0,'gA==','3bmoumc6',1,0,'',376,0,0),(25570,5754,6,52,0,'190.7.30.169',1169674139,1,0,1,1,1,1,'','¿qué aplicacion puedo usar para manejar las MYSQL visualment','Estimados,\n\n   He visto que usuarios de .net utilizan un programa que simplemente arrastrando con el mouse e indicando con el mismo que campos de \"que tabla\" genera la sentencia SELECT que debería de ejecutarse para tener el resultado esperado.\n\n   Alguien conoce alguna app que realice esto usando mysql? \n\n   Gracias.','',0,'gA==','3qq5y243',1,0,'',52,0,0),(25573,5700,6,52,0,'190.7.30.169',1169675335,1,0,1,1,1,1,'','','Añadiendo al comentario de José:\n\n   Siempre pensá un paso mas adelante, ahora solo pasas a FWH... en un futuro a mysql, sql, etc.\n\n   O sea, opinion nada mas, anda pensando en armar el sistema para que te sea facil luego pasar de DBF a tablas <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2nihl2k8',1,0,'',52,0,0),(25575,5754,6,103,0,'200.195.79.7',1169681180,1,0,1,1,1,1,'','','Goosfancito,\n\n     Yo utilizo MySQL-Front. Muy bueno. Igualmente hay el EMS MySQL Manager PRO.\n    Quizas estos te ayuden.\n\nSaludos','',0,'gA==','5uxuj526',1,0,'',103,0,0),(25578,5755,6,279,0,'189.164.172.91',1169682538,1,0,1,1,1,0,'','Guardar imágenes en una Base de Datos','Antonio: \n\nSe podrian almacenar imágen en la BD esto lo encontre en MYSQL y PHP no se si por medio de FWH y Xharbour se podria hacer este porceso de dejar una imagen en un formato binario para despues guardarlo en una base de datos.\n\n\nAntes de almacenar la imágen en la BD, debemos de procesarla para llegar a convertirla en datos binarios.\n\n$image = imagecreatefromgif(\'imagen.gif\'); \nob_start(); \nimagegif($image); \n$jpg = ob_get_contents();\nob_end_clean();\n\nimagecreatefromgif: Crear una nueva imagen a partir de un archivo o URL.\n\nob_start: Inica el almacenamiento en el búfer de salida.\n\nimagegif: Producir la salida de una imagen al navegador o a un archivo.\n\nob_get_contents: Devolver el contenido del búfer de salida.\n\nob_end_clean: Limpia el búfer de salida y termina el almacenamiento en el búfer de salida.\n\nNOTA: En este ejemplo se guarda una imágen tipo GIF, por eso se utilizan las funciones; imagecreateformgif, imagegif. Si se desea almacenar una imágen tipo JPEG, utilizar las funciones; imagecreatefromjpeg, imagejpeg. Asi solamente se cambia el tipo de imágen enlas funciones. Para ver los tipos de imágenes que soporta PHP+GD da click aquí.\n\nAhora si vamos a almacenarla, para esto convertimos la infromación de la imágen en sql-safe y simplemente hacemos un query para guardar.\n\n$jpg = str_replace(\'##\',\'##\',mysql_escape_string($jpg));\n$result = mysql_query(\"INSERT INTO tbl_Banner SET Imagen=\'$jpg\'\");\n\nExtraer la imágen de la BD y mostrarla en el navegador\n\nAhora vamos a extraer la imágen mediante un simple SELECT y la vamos a mostrar en el navegador.\n\n$result = mysql_query(\"SELECT Imagen FROM tbl_Banner WHERE Id_imagen=11\");\n\n$result_array = mysql_fetch_array($result);\nheader(\"Content-Type: image/gif\");\necho $result_array[0];\n\nSimplemente con esto guardamos la imágen en una variable y antes de mostrarla le decimos al navegador que el contenido a mostrar es de imágen/gif. Se se va a mostrar imágenes JPEG cambiar image/gif por image/jpeg y asi para los diferentes formatos.','',0,'','2w9e59oh',1,0,'',279,0,0),(25579,5748,2,2,0,'87.218.146.98',1169682778,1,0,1,1,1,1,'','','Por favor, estos foros no son para intercambio de ficheros con copyright.\n \nBorraremos cualquier mensaje al respecto y de reiterarse tendremos que expulsar a quien lo haga, gracias','',0,'','67vht8t8',1,0,'',2,0,0),(25582,5755,6,397,0,'201.26.0.7',1169684752,1,0,1,0,1,1,'','','Miras esto:\n\n[code:2mu5aoty]\nfunction IMG2MEMO&#40; arquivo &#41;\n   bak_pont=0\n   destino &#58;= L2Hex&#40;GetTickCount&#40;&#41;&#41;+&quot;&#46;TMP&quot;\n   arqcria &#58;= fcreate&#40;destino&#41;\n   arqler  &#58;= fopen&#40; origem &#41;\n   fimarq &#58;= fseek&#40; arqler, 0, 2 &#41;\n   for ponteiro = 0 to fimarq step 5000\n        bak &#58;= space&#40; 5000 &#41;\n        if ponteiro + 5000 &gt; fimarq\n           bak &#58;= space&#40; fimarq - ponteiro &#41;\n        endif\n        fseek&#40; arqler, ponteiro &#41;\n        fread&#40; arqler, @bak, len&#40; bak &#41; &#41;\n        bak_pont += len&#40; bak &#41;\n        fwrite&#40; arqcria, bak &#41;\n   next\n   fclose&#40; arqler &#41;\n   fclose&#40;arqcria&#41;\n   return memoread&#40; destino &#41;\n[/code:2mu5aoty]\n\nUso:\n\ncImagem := IMG2MEMO( \"foto.jpg\" )\n...\nreplace CAMPOMEMO with cImagem\n...','',0,'AIA=','2mu5aoty',1,0,'',397,0,0),(25583,5748,2,812,0,'201.214.35.38',1169686977,1,0,1,1,1,0,'','','Antonio:\n\nMi intencion no fue generar un conflicto para solucionar mi problema, se que el intercambio no se puede realizar, por lo cual pido todas las disculpas del caso. Pido de la misma forma que no se culpe ni mal entienda a Armando por querer ayudar a alguien que tiene una duda sobre como actualizar una version de Clipper, que el Cliente pago para poder adquirirla, solo que yo necesito usar en su version ultima.\n\nQuiero que sepas que todos mis clientes a quienes les he trabajado en el desarrollo de Sistemas, disponen de sus software correspondientes. Pienso que en la respuesta que tu me has enviado mas arriba, solo me indicas que es un producto que dejaron de usar hace ya mucho tiempo.\n\nMe gustaria que esto pudiera entenderse y quedar en esta respuesta.\n\nPor lo mismo pido disculpas a Armando por haberte involucrado, de esta forma.\n\nEsperando que se entienda lo que aqui he expresado, se despide atte.\n\nMiguel Rivera\n\n\n\n[quote=&quot;Antonio Linares&quot;:isbs9dso]Por favor, estos foros no son para intercambio de ficheros con copyright.\n \nBorraremos cualquier mensaje al respecto y de reiterarse tendremos que expulsar a quien lo haga, gracias[/quote:isbs9dso]','',0,'gA==','isbs9dso',1,0,'',812,0,0),(25584,5728,6,913,0,'189.136.166.186',1169687888,1,0,1,1,1,1,'','Gracias','Gracias por el ejemplo a si ya le entendi <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nSaluditos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','1tz4rug2',1,0,'',913,0,0),(25585,5756,6,661,0,'189.155.14.219',1169690264,1,0,1,1,1,0,'','numero de tags en cdx?','que tal a todos, tengo un pequeño problemita, resulta ser que necesito crear un archivo texto con todos los nombres de los TAGs y sus respectivas llaves de mis tablas CDX pero no se como hacer para saber cuantos TAGS tengo en el CDX...existe alguna funcion que me regrese el numero de TAGs dentro de mi CDX? o como puedo hacer un ciclo para leerlos todos?\n\ngracias de antemano por su ayuda!!\n\nSaludos. \nAlex.','',0,'gA==','1e6n1zjr',1,0,'',661,0,0),(25586,5756,6,138,0,'189.152.65.208',1169695274,1,0,1,1,1,1,'','','Ahi te va:\n\n[code:gkxpz0ba]USE DbfConCdx\n\n      FOR x &#58;= 1 TO 50\n         IF !EMPTY&#40;ORDNAME&#40;x&#41;&#41;\n            DBSETORDER&#40;x&#41;\n            cNombre &#58;= OrdName&#40;x&#41;&#41;\n            cKey &#58;= Ordkey&#40;x&#41;\n            cCondic &#58;= OrdFor&#40;x&#41;\n      NEXT\n[/code:gkxpz0ba]','',0,'AIA=','gkxpz0ba',1,0,'',138,0,0),(25587,5754,6,138,0,'189.152.65.208',1169695630,1,0,1,1,1,1,'','','Yo utilizo NaviCat de PremiunSoft, realmente muy bueno y muy barato, soporta visualmente MySQL y es muy rapido (<!-- w --><a class=\"postlink\" href=\"http://www.navicat.com\">www.navicat.com</a><!-- w -->)','',0,'AIA=','1silf2vm',1,0,'',138,0,0),(25588,5746,6,913,0,'189.136.166.186',1169695636,1,0,1,1,1,1,'','Gracias','Gracias ya los vi y tambien encontre unos muy bonitos en una pagina\n\n\n\n\nSaludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAida','',0,'AIA=','yzezvugv',1,0,'',913,0,0),(25589,5737,3,707,0,'222.124.20.54',1169709122,1,0,1,1,1,0,'','','Mr. James\n\nThank\'s for help\n\nRegards\nAreang','',0,'AIA=','zm9k1z3v',1,0,'',707,0,0),(25590,5757,3,705,0,'61.2.5.10',1169710166,1,0,1,1,1,0,'','Unresolved Code','Hi Everybody,\n\nI am getting the following error while compiling. I will be greatful if anyone can identify me where is my problem.\n\n [code:2pbyngbk]\nStatic Function BackRest&#40;&#41;   \n   Local oLbx, nItem &#58;= 0, oMeter, nMeter\n   Local n, nSelected &#58;= 0, aSel &#58;= &#123;&#125;\n\n   //Set Default\n   SET DELETED OFF\n\n   // Replace variable&#46;\n   lpath   &#58;= &#40;CurDrive&#40;&#41; + &quot;&#58;\\&quot; + &quot;Blazepro\\Data\\&quot;&#41;   // Static Vari\n   tpath   &#58;= Space&#40;25&#41;                                            // Static Vari\n   lType   &#58;= Space&#40;1&#41;                                             // Static Vari\n   lpath   &#58;= AllTrim&#40;lpath&#41;                                       // Static Vari\n\n   DEFINE DIALOG oDlg RESOURCE &quot;BACKREST&quot; of oBacktWnd TITLE &quot;BACKUP / RESTORE FUNCTION&quot; Color &quot;W/W&quot;\n\n   REDEFINE SAY oSay ID  1 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  2 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  3 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  4 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  5 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  6 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  7 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  8 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  9 OF oDlg Color &quot;N/W&quot; Font oFont \n\n   REDEFINE GET oGet Var lType ID 10 OF oDlg                     ;\n      Valid     reqdata&#40;ltype&#41; &#46;And&#46; &#40;ltype =&quot;D&quot; &#46;Or&#46; ltype =&quot;M&quot;&#41; ;     \n      Picture &quot;@!&quot; Color &quot;B+/W&quot;\n\n   REDEFINE GET oGet Var tPath ID 11 OF oDlg ;\n      Valid  reqdata&#40;tPath&#41;                  ;     \n      Picture &quot;@!&quot; Color &quot;B+/W&quot;\n\n   REDEFINE LISTBOX oLbx VAR nItem ;\n      ID 0 OF oDlg ;\n      ITEMS aDataFiles&#40;&#41; ;\n      BITMAPS &#123; &quot;CHECKON&quot;, &quot;CHECKOFF&quot; &#125; ;\n      ON DRAWITEM &#40; IIF&#40;aScan&#40;oLbx&#58;GetSelItems&#40;&#41;,nItem&#41; &gt;0, 1, 2&#41; &#41;;\n      ON CHANGE &#40;nSelected &#58;= oLbx&#58;GetSelCount&#40;&#41;, oDlg&#58;AevalWhen&#40;&#41;&#41;;\n      COLOR &quot;N/W&quot;\n\n   REDEFINE button ID 13 OF oDLG ;\n      ACTION &#40;aeval&#40;oLbx&#58;aItems,&#123;|o,n| oLbx&#58;SetSel&#40;n,&#46;t&#46;&#41; &#125;&#41;, oLbx&#58;Change&#40;&#41;&#41;\n\n   REDEFINE button ID 14 OF oDLG ;\n      ACTION &#40;aeval&#40;oLbx&#58;aItems,&#123;|o,n| oLbx&#58;SetSel&#40;n,&#46;f&#46;&#41; &#125;&#41;, oLbx&#58;Change&#40;&#41;&#41;;\n      WHEN nSelected &gt; 0\n\n   REDEFINE button ID 15 OF oDLG ;\n      ACTION BackUp&#40;oLbx, lpath, tpath, lType&#41;, oLbx&#58;Change&#40;&#41;;\n      WHEN nSelected &gt; 0\n\n   REDEFINE button ID 16 OF oDLG //;\n      //ACTION Restore&#40;oLbx,lpath, tpath&#41;, oLbx&#58;Change&#40;&#41;;\n      //WHEN nSelected &gt; 0\n\n   REDEFINE button ID 12 of oDLG CANCEL;\n      ACTION oDlg&#58;END&#40;&#41;\n\n   ACTIVATE DIALOG oDlg ;\n     VALID oBacktWnd&#58;End&#40;&#41;                       // ***** Geting error *****\n\n   oDlg&#58;aControls&#91; 10 &#93;&#58;Setfocus&#40;&#46;T&#46;&#41;\n\nReturn Nil\n[/code:2pbyngbk]\n\nNote : I am getting error -&gt;    Error description: Error BASE/1004\n                                            Class: \'NIL\' has no exported method:\n                                            GETMENUITEM\n                                            Args:\n                                            [   1] = N   2090312480\n\nI fail to understand from where this \"GETMENUITEM\" comming and how I can solve it.\n\nWith Regards\nARINDAm','',0,'AIA=','2pbyngbk',1,0,'',705,0,0),(25591,5758,6,49,0,'213.82.134.66',1169713572,1,0,1,1,1,1,'','xbrowse','is possible EDIT on XBrwose Directly a DATE FIELD ? \n\nis possible open a dtpicker control when I click on this field ?','',0,'AIA=','1j75wi52',1,0,'',49,0,0),(25592,5759,3,49,0,'213.82.134.66',1169713603,1,0,1,1,1,1,'','XBRowse and date()','is possible EDIT on XBrwose Directly a DATE FIELD ? \n\nis possible open a dtpicker control when I click on this field ?','',0,'AIA=','38hfblku',1,0,'',49,0,0),(25593,5757,3,58,0,'84.149.200.210',1169717283,1,0,1,1,1,0,'','','Hi Arindam,\n\nwhat is the value of [b:285fw1om]oBacktWnd[/b:285fw1om] in your valid clause of oDlg?\n\nRegards,\nDetlef','',0,'QA==','285fw1om',1,0,'',58,0,0),(25594,5757,3,2,0,'87.218.146.7',1169717869,1,0,1,1,1,1,'','','Arindam,\n\nIs oBacktWnd:End() returning a logical value ? It should','',0,'QA==','1mxv78s6',1,0,'',2,0,0),(25595,4134,4,267,0,'200.208.238.2',1169724236,1,0,1,1,1,1,'','','Antonio,\n\nI do not have a InternetOpen() in my code.','',0,'QA==','320jce9c',1,0,'',267,0,0),(25596,5760,6,49,0,'213.82.134.66',1169725413,1,0,1,1,1,1,'','RED LINK','How I can make to see from my server all pc link to server ?\nI want insert on a listbox for each pc the ip number and the name of host\nand i want link to each pc a read a file txt\ncan i make it ? How I can make  ?\nHave you a small test sample ?','',0,'QA==','5aa2hbnr',1,0,'',49,0,0),(25597,4134,4,2,0,'87.218.146.7',1169726706,1,0,1,1,1,1,'','','Vilian,\n\nPlease download FWPPC again, thanks for your feedback','',0,'QA==','3vwlm8kg',1,0,'',2,0,0),(25598,5761,6,774,0,'200.72.179.47',1169728804,1,0,1,1,1,1,'','AYUDA CON MDI y MDICHILD','Tengo el siguiente problema :\n\ntengo una venta hija y dentro de ella tengo un dialog el cual esta en .RC\n\npero al compilar me marca el error:\n\n\nApplication\n===========\n   Path and name: D:\\Folios\\xFolio.Exe (32 bits)\n   Size: 1,199,104 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 25/01/2007, 09:30:32\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource:          1\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: xfolio2.prg =&gt; MODULO1(19)\n   Called from: xfolio.prg =&gt; VENTANA(166)\n   Called from: xfolio.prg =&gt; (b)MENU(86)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: xfolio.prg =&gt; MAIN(66)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.80GHz 2800 Mhz\n   Hardware memory: 480 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.70 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 50\n      1 \n      2 SysFader\n      3 CiceroUIWndFrame\n      4 TF_FloatingLangBar_WndTitle\n      5 SISTEMA DE FOLIACION\n      6 VERCE v4.3, D:\\Folios\\xfolio.VRC\n      7 <!-- w --><a class=\"postlink\" href=\"http://www.FiveTechSoft.com\">www.FiveTechSoft.com</a><!-- w --> :: Ver Foro - FiveWin para Harbour/xHarbour - Microsoft Internet Explorer\n      8 MCI command handling window\n      9 DDE Server Window\n     10 Acrobat IEHelper\n     11 Cmd\n     12 Prg\n     13 WOWExec\n     14 LP Main Window\n     15 CLPOsEventsHandler Window\n     16 CSHTrayIconWindow\n     17 LPTimer-{312C2D21-593B-4e71-8E7C-A45397847FEE}\n     18 WMMonitor Win\n     19 LPEXT_DOK_LISTENER\n     20 SecExtNotifier\n     21 LPGXManager\n     22 Connections Tray\n     23 Medidor de energía\n     24 UPnP Notification Monitor\n     25 MS_WebcheckMonitor\n     26 MPWnd_Hooker\n     27 MessageFromSti\n     28 IHW2\n     29 ButtonManager\n     30 NOD32KrnSvcWindow\n     31 NOD32 Mirror - Imágenes de actualización/configuración\n     32 NOD32 Scanner\n     33 NOD32 Update\n     34 IMON - Protección para el tráfico de Internet\n     35 EMON - Protección de correo para Microsoft Outlook\n     36 DMON - Protección de documentos Microsoft Office\n     37 AMON - Monitor del sistema de archivos\n     38 NOD32 Kernel\n     39 Configuración general del sistema NOD32\n     40 Información\n     41 Tareas programadas\n     42 Cuarentena\n     43 Registros de NOD32 Scanner\n     44 Registros de amenazas\n     45 Registros del sistema NOD32\n     46 NOD32 2.5 Control Center\n     47 LapiClientProxy\n     48 SDKListener\n     49 CLPAppSizeCalculator Window\n     50 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   CREATEDLGERROR\n     Param   1:    O    Class: TDIALOG\n     Local   1:    C    \"         1\"\n     Local   2:    C    \"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ\"\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    B    {|| ... }\n     Param   6:    L    .F.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    394544\n     Local   3:    U    \n     Local   4:    U    \n   MODULO1\n     Local   1:    O    Class: TFONT\n     Local   2:    O    Class: TFONT\n     Local   3:    O    Class: TDIALOG\n   VENTANA\n     Param   1:    N    1\n   (b)MENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20001\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20001\n     Local   4:    N    0\n   TMDIFRAME:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    L    .F.\n   TMDIFRAME:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20001\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20001\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TMDIFRAME\n   WINRUN\n     Param   1:    N    984314\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    B    {|| ... }\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TFONT\n     Local   2:    N    11\n     Local   3:    O    Class: TMSGITEM\n     Local   4:    U    \n     Local   5:    O    Class: TREBAR\n     Local   6:    O    Class: TTOOLBAR\n     Local   7:    O    Class: TTOOLBAR\n     Local   8:    O    Class: TIMAGELIST\n     Local   9:    O    Class: TIMAGELIST\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TFONT\n     4 TWINDOW\n     5 TMDIFRAME\n     6 TMENU\n     7 TMENUITEM\n     8 TCONTROL\n     9 TICON\n    10 TBRUSH\n    11 TMDICLIENT\n    12 TMSGBAR\n    13 TRECT\n    14 TMSGITEM\n    15 TTIMER\n    16 TIMAGELIST\n    17 TBITMAP\n    18 TREBAR\n    19 TTOOLBAR\n    20 TMDICHILD\n    21 TDIALOG\n    22 ERROR\n    23 TREG32\n\nMemory Analysis\n===============\n      115 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z\n\n\nAhi les dejo el codigo .PRG\n#include \"Fivewin.ch\"\n\nStatic oWchil\n\nFunction Modulo1()                      \nLocal oFont1\nLocal oFont2\nLocal oDlg\n\nIf oWchil==NIL\n//----------------------------Inicio de Ventana Hija ----------------------\nDEFINE FONT oFont1 NAME \"Arial\" SIZE 0,-12\nDEFINE FONT oFont2 NAME \"MS Sans Serif\" SIZE 0,-12\nDEFINE WINDOW oWchil TITLE \"Mantencion de Clientes\" ICON \"bmp\\simbolo.ico\" COLORS nRGB(0,0,0),nRGB(50,128,128) MDICHILD BORDER NONE FROM 0,1 TO 25,83 NOMAXIMIZE\nDEFINE DIALOG oDlg FONT oFont2 OF oWchil RESOURCE 1\n                                                                                                                                                                                                                                                                                                                           \n\n\nACTIVATE DIALOG oDlg NOWAIT VALID (If(oDlg=NIL,.T.,.F.))\nACTIVATE WINDOW oWchil  VALID ( oDlg:= NIL , .T.)\nElse\noWchil:Setfocus()\nEndif\n\nReturn (NIL)\n//----------------------------Fin de Ventana Hija ----------------------\n\nGRACIAS','',0,'QA==','1jobf9r6',1,0,'',774,0,0),(25599,5761,6,2,0,'87.218.146.7',1169729331,1,0,1,1,1,1,'','','Que controles usas en el diálogo ? Los has redefinido desde el PRG ?','',0,'QA==','2rpdhu5m',1,0,'',2,0,0),(25600,5762,7,720,0,'80.36.244.134',1169731763,1,0,1,1,1,0,'','refrescar fold....','Hola a todos...\n\nTengo el siguiente codigo que funciona bien pero tengo un problemilla. El tema es que me he creado una pantalla de configuracion con varias \'pestañas\'. El problema es que tengo dos check que dependiendo del valor que tengan me debe mostrar o no otros dos check mas... Es decir, que si pulso en uno me muestra otro y si lo desmarco me oculta el que me mostró....no se si me entendeis.. Para que me funcione debo salir y volver a entrar en el dialogo para que me refresque la informacion y entonces hace lo que quiero. \n\nEl codigo es el siguiente:\n\n....\ncontrol_existencias_locales:= vector_ini-&gt;exis_local\ncontrol_existencias_remotas:= vector_ini-&gt;exis_remot\n\n.....\n&amp;&amp; cuarta pagina\n	\n@ 1, 1 SAY \"Dias sin actualizar\" OF oFld:aDialogs[ 4 ] SIZE 110, 15\n\n@ 1, 15 GET oDias var vector_ini-&gt;dias OF oFld:aDialogs[ 4 ] SIZE 90, 21\n\n@ 3, 1 checkbox oart_nuevo var vector_ini-&gt;art_nuevo prompt \"Crear Articulo\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\n\n@ 5, 1 checkbox omod_pvp var vector_ini-&gt;pvp_modif prompt \"Modificar PVP\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\n\n@ 7, 1 checkbox oexis_local var vector_ini-&gt;exis_local prompt \"Ver Exis. Locales\" OF oFld:aDialogs[ 4 ] SIZE 140, 21 \n\n@ 9, 1 checkbox oexis_remot var vector_ini-&gt;exis_remot prompt \"Ver Exis. Remotas\" OF oFld:aDialogs[ 4 ] SIZE 140, 21 \n\n&amp;&amp;aqui realizo el control de los check anteriores para activar o no el siguiente\n\nIF control_existencias_locales=.t.\n@ 7, 22 checkbox oexis_local_simpre var vector_ini-&gt;El_siempre prompt \"Siempre\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\nENDIF\n  \nIF control_existencias_remotas=.t.\n@ 9, 22 checkbox oexis_remot_siempre var vector_ini-&gt;er_siempre prompt \"Siempre\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\nENDIF\n\nHe probado a refrescar la pantalla, a refrescar el dialogo, con la intruccion SysRefresh() pero nada...\n\nLo que me gustaría es que directamente desde que pulse me muestre o no el otro check dependiendo si está activo o no...\n\n\nEspero haberme explicado bien....\n\nSaludos y gracias.\n\nElías Torres.','',0,'','2131grod',1,0,'',720,0,0),(25601,5757,3,705,0,'61.0.138.139',1169734687,1,0,1,1,1,0,'','','Thanks for reply.\n\nI am not getting compiling error. The said error is runtime error. Sorry for mis-communication in myearly post. I am sending more detail to identify the poblem.\n\n[code:xjx4czx2]\n// Include files details\n#include &quot;FiveWin&#46;ch&quot;\n\nStatic oBacktWnd, lPath, TPath, lType, lDrive, oDLG, oFont\n\n//----------------------------------------------------------------------------//\n\nFunction BackupFun&#40; oSubMenu59, oMenu, UserName, UserType, Fun_Acces, today, oWnd &#41;       // Call from main\n   // Set as required\n   Set Century On\n   Set Date Brit\n   Set Date format &quot;dd/mm/yyyy&quot;\n   \n   // Disable menuitem and refresh menu\n   oSubMenu59&#58;Disable&#40;&#41;\n   oMenu&#58;Refresh&#40;&#41;\n   \n   DEFINE FONT oFont NAME &quot;COURIER&quot; SIZE 6, 9\n   \n   DEFINE ICON oIco File &#40;CurDrive&#40;&#41; + &quot;&#58;\\&quot; + &quot;Blazepro\\Image\\Favorite&#46;ico&quot;&#41;\n\n   DEFINE WINDOW oBacktWnd MDICHILD From 4, 0&#46;5 To 45, 100&#46;5 ;\n    TITLE &quot;BackRest&quot;  ICON oIco of oWnd ;\n    NO MAXIMIZE\n\n   SET FONT of oBacktWnd to oFont\n   \n   ACTIVATE WINDOW oBacktWnd  ;\n     On INIT BackRest&#40;&#41;       ;\n     VALID CloseFunc&#40; oSubMenu59, oMenu, oDlg &#41;\n\n   RELEASE FONT oFont\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function BackRest&#40;&#41;   \n   Local oLbx, nItem &#58;= 0, oMeter, nMeter\n   Local n, nSelected &#58;= 0, aSel &#58;= &#123;&#125;\n\n   //Set Default\n   SET DELETED OFF\n\n   // Replace variable&#46;\n   lpath   &#58;= &#40;CurDrive&#40;&#41; + &quot;&#58;\\&quot; + &quot;Blazepro\\Data\\&quot;&#41; \n   tpath   &#58;= Space&#40;25&#41;\n   lType   &#58;= Space&#40;1&#41;\n   lpath   &#58;= AllTrim&#40;lpath&#41;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;BACKREST&quot; of oBacktWnd TITLE &quot;BACKUP / RESTORE FUNCTION&quot; Color &quot;W/W&quot;\n\n   REDEFINE SAY oSay ID  1 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  2 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  3 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  4 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  5 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  6 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  7 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  8 OF oDlg Color &quot;N/W&quot; Font oFont \n   REDEFINE SAY oSay ID  9 OF oDlg Color &quot;N/W&quot; Font oFont \n\n   REDEFINE GET oGet Var lType ID 10 OF oDlg                     ;\n      Valid     reqdata&#40;ltype&#41; &#46;And&#46; &#40;ltype = &quot;D&quot; &#46;Or&#46; ltype =&quot;M&quot;&#41; ;     \n      Picture &quot;@!&quot; Color &quot;B+/W&quot;\n\n   REDEFINE GET oGet Var tPath ID 11 OF oDlg ;\n      Valid  reqdata&#40;tPath&#41;                  ;     \n      Picture &quot;@!&quot; Color &quot;B+/W&quot;\n\n   REDEFINE LISTBOX oLbx VAR nItem ;\n      ID 0 OF oDlg ;\n      ITEMS aDataFiles&#40;&#41; ;\n      BITMAPS &#123; &quot;CHECKON&quot;, &quot;CHECKOFF&quot; &#125; ;\n      ON DRAWITEM &#40; IIF&#40;aScan&#40;oLbx&#58;GetSelItems&#40;&#41;,nItem&#41; &gt;0, 1, 2&#41; &#41;;\n      ON CHANGE &#40;nSelected &#58;= oLbx&#58;GetSelCount&#40;&#41;, oDlg&#58;AevalWhen&#40;&#41;&#41;;\n      COLOR &quot;N/W&quot;\n\n   REDEFINE button ID 13 OF oDLG ;\n      ACTION &#40;aeval&#40;oLbx&#58;aItems,&#123;|o,n| oLbx&#58;SetSel&#40;n,&#46;t&#46;&#41; &#125;&#41;, oLbx&#58;Change&#40;&#41;&#41;\n\n   REDEFINE button ID 14 OF oDLG ;\n      ACTION &#40;aeval&#40;oLbx&#58;aItems,&#123;|o,n| oLbx&#58;SetSel&#40;n,&#46;f&#46;&#41; &#125;&#41;, oLbx&#58;Change&#40;&#41;&#41;;\n      WHEN nSelected &gt; 0\n\n   REDEFINE button ID 15 OF oDLG ;\n      ACTION BackUp&#40;oLbx, lpath, tpath, lType&#41;, oLbx&#58;Change&#40;&#41;;\n      WHEN nSelected &gt; 0\n\n   REDEFINE button ID 16 OF oDLG //;\n      //ACTION Restore&#40;oLbx,lpath, tpath&#41;, oLbx&#58;Change&#40;&#41;;\n      //WHEN nSelected &gt; 0\n\n   REDEFINE button ID 12 of oDLG CANCEL;\n      ACTION oDlg&#58;END&#40;&#41;\n\n   ACTIVATE DIALOG oDlg ;\n     VALID oBacktWnd&#58;End&#40;&#41;\n\n   oDlg&#58;aControls&#91; 10 &#93;&#58;Setfocus&#40;&#46;T&#46;&#41;\n\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function CloseFunc&#40; oMenuItm, oMenu, oDlg &#41;\n   If ValType&#40;oDlg&#41; = &quot;O&quot;\n      oDlg&#58;End&#40;&#41;\n   Endif\n   \n   oMenuItm&#58;Enable&#40;&#41;\n   oMenu&#58;Refresh&#40;&#46;T&#46;&#41;      \n   \nReturn &#46;T&#46;\n\n//----------------------------------------------------------------------------//\n\nSTATIC FUNCTION aDataFiles&#40;&#41;\nRETURN &#123;                                                ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Complain&#46;Dbf&quot;&#41; , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Mechanic&#46;Dbf&quot;&#41; , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Customer&#46;Dbf&quot;&#41; , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Custarea&#46;Dbf&quot;&#41; , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Balance&#46;Dbf&quot;&#41;  , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Payment&#46;Dbf&quot;&#41;  , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Defpr&#46;Dbf&quot;&#41;    , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Bank&#46;Dbf&quot;&#41;     , ;\n        &#40;CurDrive&#40;&#41; + &quot;&#58;\\BlazePro\\Data\\Change&#46;Dbf&quot;&#41;     ;\n   &#125;\n\n[/code:xjx4czx2]\n\nNote : Even if I mark \"Valid oBacktWnd:End()\", same error reporting.\n\nWith Regards\nArindam','',0,'AIA=','xjx4czx2',1,0,'',705,0,0),(25602,5757,3,58,0,'84.149.202.117',1169735505,1,0,1,1,1,0,'','','Arindam,\n\nplease replace your code\n[quote:2hmlvihb]ACTIVATE DIALOG oDlg ; \n     VALID oBacktWnd:End() \n[/quote:2hmlvihb]\nwith this \n[code:2hmlvihb]ACTIVATE DIALOG oDlg ; \n     VALID&#40; oBacktWnd&#58;End&#40;&#41;, &#46;t&#46; &#41;\n[/code:2hmlvihb]\n\nAs Antonio says, a valid clause needs a logical expression.\n\nHope this helps,\nDetlef','',0,'gIA=','2hmlvihb',1,0,'',58,0,0),(25603,667,6,393,0,'200.47.185.10',1169736706,1,0,1,1,1,0,'','Consulta de mysql','Rene, buenos dias recien estoy comenzando con mysql yo tengo fwh 2.5 y no se si funcione con mysql, tendrias algun ejemplo ya que todavia no manejo proceso odbc ó ado como recomiendas, siempre he trabajado con fw y DBF, ahora con la necesidad de usar mysql es que he decidido usar fwh.\nGracias de antemano.\nDaniel.','',0,'gIA=','3ukr7v5o',1,0,'',393,0,0),(25604,5761,6,18,0,'200.67.188.236',1169740446,1,0,1,1,1,1,'','','Así cómo tu esta tu programa el error es que no estas declarando ningún control contenido dentro del dialogo.\n\nHaz la declaración de los demás controles y notarás que el error desaparecerá.','',0,'gIA=','3whu18so',1,0,'',18,0,0),(25605,5742,6,18,0,'200.67.188.236',1169740871,1,0,1,1,1,1,'','','Paquito, Paquito , no debería de ayudarte, jajajajaja, pide ayuda a la Cervecera que compró a Oswaldo y se lo llevó del Guadalajara.\n\nEn fin , cosas de futbol.\n\nCómo bien dice Rene con ADO puedes realizar cualquier conexión , actualmente estoy trabajando para que la nueva versión del producto en la empresa donde presto mis servicios, utilice cualquier motor SQL que haya en el mercado y creéme que te quedas maravillado cuando ves lo práctico que es usar ADO.\n\nNo te entumas y pegame un grito.','',0,'gIA=','1kauigpf',1,1169822214,'',18,1,0),(25606,667,6,18,0,'200.67.188.236',1169741617,1,0,1,1,1,1,'','Re: Consulta de mysql','[quote=&quot;darteagal&quot;:3ng3qz5a]Rene, buenos dias recien estoy comenzando con mysql yo tengo fwh 2.5 y no se si funcione con mysql, tendrias algun ejemplo ya que todavia no manejo proceso odbc ó ado como recomiendas, siempre he trabajado con fw y DBF, ahora con la necesidad de usar mysql es que he decidido usar fwh.\nGracias de antemano.\nDaniel.[/quote:3ng3qz5a]\n[code:3ng3qz5a]\n#include &quot;fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n   oAdo &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41;\n   oAdo&#58;Open&#40;&quot;Provider=MSDASQL&#46;1;Persist Security Info=False;Data Source=TestAdo&quot;&#41;  // Conexion ODBC\n\n\n   oRsMySql     &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;recordset&quot;&#41;\n\n    oRsMySql&#58;Open&#40;&quot;select * from Clientes&quot;, oAdo, 1, 3&#41;  //el 2 &#58;= cursor dinámico\n\n\n\n   DEFINE FONT oFont NAME &quot;Georgia&quot; SIZE 0,-15\n   DEFINE DIALOG oDlg FROM 0,0 TO 550,800 PIXEL TITLE &quot;Ado Connections My SQL&quot; FONT oFont\n350,250 PIXEL OF oDlg\n   @ 1,1 LISTBOX oBrow FIELDS Str&#40; oRsMySql&#58;Fields&#40;0&#41;&#58;Value &#41; ,;\n                              oRsMySql&#58;Fields&#40;1&#41;&#58;Value ,;\n                              oRsMySql&#58;Fields&#40;2&#41;&#58;Value ;\n                       HEADERS &quot;Field 1&quot;,&quot;Field 2&quot;,&quot;Field 3&quot; SIZE 350,250 PIXEL OF oDlg\n\n   oBrow&#58;bLogicLen &#58;= &#123;|| oRsMySql&#58;RecordCount&#40;&#41; &#125;\n   oBrow&#58;bGoTop    &#58;= &#123;|| oRsMySql&#58;MoveFirst&#40;&#41; &#125;\n   oBrow&#58;bGoBottom &#58;= &#123;|| oRsMySql&#58;MoveLast&#40;&#41; &#125;\n   oBrow&#58;bSkip     &#58;= &#123;| nSkip | Skipper&#40; oRsMySql, nSkip &#41; &#125;\n   oBrow&#58;cAlias    &#58;= &quot;ARRAY&quot;\n\n   ACTIVATE DIALOG oDlg\n\n\n   oRsMySql&#58;Close&#40;&#41;\n   oAdo&#58;Close&#40;&#41;\nRETURN NIL\n[/code:3ng3qz5a]','',0,'gIA=','3ng3qz5a',1,0,'',18,0,0),(25607,5736,7,598,0,'200.11.139.61',1169744757,1,0,1,1,1,1,'','','y que devuelve hb_parc() ???\n\n- una cadena estatica\n- un puntero a una cadena terminada con null\n- un puntero a una cadena sin null\n...\n\nnose porque tengo este error :\n\n   Creating library pedidos.lib and object pedidos.exp\ntmprint.obj : error LNK2019: unresolved external symbol \"unsigned short * __cdec\nl AnsiToWide(char *)\" (?AnsiToWide@@YAPAGPAD@Z) referenced in function HB_FUN_PR\nT_DRAWTEXT\npedidos.exe : fatal error LNK1120: 1 unresolved externals\n* Application successfully built\n\nhe declarado:\n\n#pragma BEGINDUMP\n\nLPWSTR AnsiToWide( LPSTR )\n\nalguna sugerencia???','',0,'gIA=','3s8cersd',1,0,'',598,0,0),(25609,5764,7,832,0,'201.116.83.242',1169745553,1,0,1,1,1,0,'','¡¡¡ AYUDA DE GPRS EN LA POCKET !!!','HOLA A TODOS...\n\n\nTENGO UN PROBLEMA DE GPRS, NO SE COMO HACER LA CONEXION DIRECTA DESDE EL CODIGO, ESTO CON EL FIN DE EVITAR  QUE ME ESTE CONECTANDO A CADA MOMENTO QUE QUIERA ENVIAR UN ARCHIVO...\n\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  ESPERO Y ALGUIEN ME PUEDA AYUDA EN HACER ESTA CONEXION O DECIR COMO LE HAGO CON ConnMgrConnectionStatus....\n\nLO QUE PASA ES QUE NO PUEDO HACERLO MANUAL O CADA MOMENTO, O COMO LE HAGO....\n\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> GRACIAS POR SU APOYO....','',0,'gIA=','2oeguv3r',1,0,'',832,0,0),(25610,5761,6,774,0,'200.72.179.47',1169745791,1,0,1,1,1,1,'','','Amigos mios,, claro, si me permiten decirles asi.. \n\nme cabe una duda en el .RC tengo se pueden deben tener todos los controles numeros distintos o no o se pueden agrupar algunos.\n\notra cosa  alguien me explica q son los GROUP no se si lo escribi bien.. y para q sirven\n\nGRCIAS\n\nah referente al tema,, me daba error pq no habia redefinido los controles,,\npero aun tengo unos con valor -1,, en FIVEWIN 16 bits.. al compilar no me marcaba error si no REDEFINIA EL RECURSO A USAR,, sera pq uso VERCE para compilar','',0,'gIA=','pp2al1nn',1,0,'',774,0,0),(25611,5765,6,156,0,'201.244.242.20',1169745876,1,0,1,1,1,0,'','Antonio Linares por favor Ayudaaaa con TOOLTIPS EN TOOLBAR','Antonio necesito tu ayuda, estoy atorado con lo siguiente:\n\nLos tooltips en la Clase TOOLBAR tienen un limite de 40 caracteres de largo. Hay alguna forma de poder ampliarlo a, por ejemplo, 120. \n\nEn la clase Window pude lograr un ancho de 120 con: \nSendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 120) \n\nFunciona muy bien, pero no con ToolBar. Parece que esta invoca a una función diferente para construir los ToolTips. He probado de todo y no lo he logrado. Alguna sugerencia ? \n\nTampoco funciona: \noToolBar1:SetTextRows(3) ni \nnRows := 2 \nSendMessage( oToolBar1:hWnd, TB_SETMAXTEXTROWS, nRows, 0 ) \n\nTengo FWH 2.7 de Agosto 2006, xHarbour 0.99.61 y BCC 5.5 \n\nSaludos y gracias por tu atención, \n\nCarlos Gallego','',0,'gIA=','2qqhr3pu',1,0,'',156,0,0),(25612,5736,7,2,0,'87.218.146.7',1169747780,1,0,1,1,1,1,'','','Luis,\n\nDevuelve un puntero a una cadena, que normalmente está terminada en NULL\n\nEse problema es debido a que estás compilando con /TP. Quita ese flag de compilación, ya que ahora se compila en modo C y no en C++','',0,'gIA=','32unz83h',1,0,'',2,0,0),(25613,5762,7,2,0,'87.218.146.7',1169747916,1,0,1,1,1,1,'','','Elías,\n\nPara ocultar un control se hace oControl:Hide() y para mostrarlo oControl:Show()\n\nLa idea es que los crees todos, y que en tiempo de ejecución los ocultes ó los muestres llamando a ese método','',0,'gIA=','1jre1zjf',1,0,'',2,0,0),(25614,5766,6,774,0,'200.72.179.47',1169748074,1,0,1,1,1,1,'','SOBRE MENUS','como siempre y directo al grano:\n\nse puede cambiar el tipo de letra y tamaño en los menus\n\nGRACIAS','',0,'gIA=','39uq6dyt',1,0,'',774,0,0),(25615,4134,4,267,0,'200.208.238.2',1169749236,1,0,1,1,1,1,'','','Antonio,\n\nNow the message is \"cannot load WinInet.dll\". I looked for in the Pocket for this archive but I did not find!\n\nthanks for help.','',0,'gIA=','3g6yykzo',1,0,'',267,0,0),(25616,5767,2,774,0,'200.72.179.47',1169750149,1,0,1,1,1,1,'','ALGUIEN TIENE','Alguien tiene una rutina que permita cambiar un Bitmap en la pantalla principal de un menu,, en tiempo de ejecucion.. un bitmap q sea usado por el usuario,, o alguien sabe como hacerla\n\n\nGRACIAS\n\nes para darle un cache al sistema','',0,'gIA=','6l85rmfe',1,0,'',774,0,0),(25617,5765,6,2,0,'87.218.146.7',1169751515,1,0,1,1,1,1,'','','Carlos,\n\nPara asignar el texto a los tooltips usamos el dato szText de la estructura NMTTDISPINFO que por definición es así (como ves esta limitado a 40 caracteres unicode (80 bytes)):\n[code:3818e8j5]\ntypedef struct tagNMTTDISPINFOA &#123;\n    NMHDR hdr;\n    LPSTR lpszText;\n    char szText&#91;80&#93;;\n    HINSTANCE hinst;\n    UINT uFlags;\n#if &#40;_WIN32_IE &gt;= 0x0300&#41;\n    LPARAM lParam;\n#endif\n&#125; NMTTDISPINFOA, FAR *LPNMTTDISPINFOA;\n[/code:3818e8j5]\nSegún el API de Windows para textos superiores a los 40 caracteres (ya que szText usa unicode) hay que usar lpstText y hacer hinst = NULL, pero lo hemos probado y no funciona.\nTe copiamos aqui la función que necesitas por si quieres hacer pruebas:\n[code:3818e8j5]\nHB_FUNC&#40; TTNSETTEXT &#41; // pNMTTDISPINFO, cTooltipText\n&#123;\n   LPNMTTDISPINFO pti = &#40; LPNMTTDISPINFO &#41; hb_parnl&#40; 1 &#41;;\n\n   MultiByteToWideChar&#40; CP_OEMCP, MB_PRECOMPOSED,\n                        &#40; LPCSTR &#41; hb_parc&#40; 2 &#41;, -1, &#40; LPWSTR &#41; pti-&gt;szText,\n                        hb_parclen&#40; 2 &#41; + 1 &#41;;\n\n   pti-&gt;hinst = NULL;\n   pti-&gt;lpszText = NULL;\n   pti-&gt;uFlags = 0;\n&#125;\n[/code:3818e8j5]\nPrueba a ponerle un \"_\" delante del nombre y llama a esta función desde la Clase ToolBar','',0,'AIA=','3818e8j5',1,0,'',2,0,0),(25618,5765,6,2,0,'87.218.146.7',1169751691,1,0,1,1,1,1,'','','En teoría este es el código que debiera funcionar:\n[code:ed3a52m2]\nHB_FUNC&#40; TTNSETTEXT &#41; // pNMTTDISPINFO, cTooltipText \n&#123; \n   LPNMTTDISPINFO pti = &#40; LPNMTTDISPINFO &#41; hb_parnl&#40; 1 &#41;; \n   static char buffer&#91; 200 &#93;;\n\n   MultiByteToWideChar&#40; CP_OEMCP, MB_PRECOMPOSED, \n                        &#40; LPCSTR &#41; hb_parc&#40; 2 &#41;, -1, buffer, \n                        hb_parclen&#40; 2 &#41; + 1 &#41;; \n\n   pti-&gt;hinst = NULL; \n   pti-&gt;lpszText = buffer; \n   pti-&gt;uFlags = 0; \n&#125;\n[/code:ed3a52m2]','',0,'AIA=','ed3a52m2',1,0,'',2,0,0),(25619,4134,4,2,0,'87.218.146.7',1169751810,1,0,1,1,1,1,'','','Vilian,\n\nPlease try this:\n\nMsgInfo( LoadLibrary( \"wininet.dll\" ) )\n\nand let us know what value you get, thanks','',0,'AIA=','2dty8jbr',1,0,'',2,0,0),(25620,5761,6,2,0,'87.218.146.7',1169752162,1,0,1,1,1,1,'','','Los números de los controles pueden estar repetidos siempre que estén en diálogos distintos','',0,'AIA=','32lf9k2y',1,0,'',2,0,0),(25621,5768,3,924,0,'81.208.36.89',1169752397,1,0,1,1,1,0,'','Serial of a USB RAM','Hi,\nis it possible to have a unique serial number oo same identification on a USB RAM. \nI need it to avoid copy of a my program.\n\nI tried with nSerialHD() and it works but it changes every time i format the device.\n\nTks all\nRomeo/Zingoni','',0,'AIA=','2cbuph8d',1,0,'',924,0,0),(25622,4134,4,267,0,'200.208.238.2',1169752791,1,0,1,1,1,1,'','','Antonio,\n\nThis value is -2017256648','',0,'AIA=','3iqifa31',1,0,'',267,0,0),(25623,4134,4,2,0,'87.218.146.7',1169752978,1,0,1,1,1,1,'','','Vilian,\n\nThough you get the msg \"cannot load WinInet.dll\", does the application work fine ?','',0,'AIA=','2gbtes64',1,0,'',2,0,0),(25624,4134,4,267,0,'200.208.238.2',1169753824,1,0,1,1,1,1,'','','Antonio,\n\nThe execution continues, but the archive is not sent for the site.','',0,'AIA=','1lzbq7zl',1,0,'',267,0,0),(25625,5757,3,705,0,'61.2.4.217',1169754089,1,0,1,1,1,0,'','','Thanks Detlef for your reply.\n\nI have modify the code as Antonio says prior to send my last post. After doing this I got same error during run the prog. I fail to understand where is my mistake. I am attaching hereiwth the error list details, so that if you can identify the mistake.\n\n [list:3iic4j3k]\n\nApplication\n===========\n   Path and name: D:\\Project_Fwh\\blaze.exe (32 bits)\n   Size: 2,912,256 bytes\n   Time from start: 0 hours 0 mins 16 secs \n   Error occurred at: 26/01/2007, 00:58:35\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: GETMENUITEM\n   Args:\n     [   1] = N   2090312480\n\nStack Calls\n===========\n   Called from:  =&gt; GETMENUITEM(0)\n   Called from: WINDOW.PRG =&gt; TDIALOG:MEASUREITEM(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; BACKREST(109)\n   Called from: FileBackup.prg =&gt; (b)BACKUPFUN(39)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:ACTIVATE(0)\n   Called from: FileBackup.prg =&gt; BACKUPFUN(39)\n   Called from:  =&gt; CALLFUN(1019)\n   Called from: Blaze.prg =&gt; (b)BUILDMENU(817)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: Blaze.prg =&gt; MAIN(154)\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   GETMENUITEM\n     Param   1:    N    2090312480\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    N    0\n   TDIALOG:MEASUREITEM\n     Param   1:    N    0\n     Param   2:    N    1238736\n     Local   1:    O    Class: TDIALOG\n     Local   2:    U    \n     Local   3:    U    \n   TWINDOW:HANDLEEVENT\n     Param   1:    N    44\n     Param   2:    N    0\n     Param   3:    N    1238736\n   TDIALOG:HANDLEEVENT\n     Param   1:    N    44\n     Param   2:    N    0\n     Param   3:    N    1238736\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"BACKREST\"\n     Param   3:    N    394452\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    B    {|| ... }\n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    394452\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   BACKREST\n     Local   1:    O    Class: TLISTBOX\n     Local   2:    N    0\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    N    0\n     Local   7:    A    Len:    0\n   (b)BACKUPFUN\n     Param   1:    O    Class: TMDICHILD\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"NORMAL\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TMDICHILD\n     Local   4:    U    \n     Local   5:    U    \n   TMDICHILD:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    O    Class: TMDICHILD\n     Param  19:    U    \n   BACKUPFUN\n     Param   1:    O    Class: TMENUITEM\n     Param   2:    O    Class: TMENU\n     Param   3:    C    \"PAPPU \"\n     Param   4:    C    \"P\"\n     Param   5:    A    Len:    9\n     Param   6:    D    26/01/2007\n     Param   7:    O    Class: TMDIFRAME\n   CALLFUN\n     Param   1:    O    Class: TMENUITEM\n     Param   2:    N    59\n     Param   3:    C    \"oSub\"\n     Local   1:    A    Len:    7\n     Local   2:    N    7\n     Local   3:    N    0\n     Local   4:    N    0\n     Local   5:    N    8\n   (b)BUILDMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20278\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20278\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20278\n     Local   4:    N    0\n   TMDIFRAME:COMMAND\n     Param   1:    N    20278\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    L    .F.\n   TMDIFRAME:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20278\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20278\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TMDIFRAME\n   WINRUN\n     Param   1:    N    197826\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"NORMAL\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    B    {|| ... }\n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TBITMAP\n     Local   2:    O    Class: TICON\n     Local   3:    O    Class: TMSGITEM\n     Local   4:    O    Class: TMSGITEM\n     Local   5:    U    \n     Local   6:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n\nDataBases in use\n================\n\n  1:    LOGDBF                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          1      .F.   .F.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TCONTROL\n     5 TBITMAP\n     6 TBRUSH\n     7 TICON\n     8 TFONT\n     9 TMDIFRAME\n    10 TMENU\n    11 TMENUITEM\n    12 TMDICLIENT\n    13 TMSGBAR\n    14 TRECT\n    15 TMSGITEM\n    16 TTIMER\n    17 TDIALOG\n    18 TGET\n    19 GET\n    20 TCLIPGET\n    21 TBUTTON\n    22 TSAY\n    23 TMDICHILD\n    24 TLISTBOX\n    25 ERROR\n    26 TREG32\n[/list:u:3iic4j3k]\n\nWaiting for your reply.\n\nWith Regards,\n\nArindam','',0,'AEA=','3iic4j3k',1,0,'',705,0,0),(25626,5765,6,774,0,'200.72.179.47',1169756603,1,0,1,1,1,1,'','','Antonio disculpa lo inpertinente...\n\npero todo este codigo es un lenguaje acaso es C\n\no cual\n\n(Editado por Antonio: Sí, es C )','',0,'AEA=','nrjjl4v9',1,0,'',774,0,0),(25627,5757,3,58,0,'84.149.248.217',1169756930,1,0,1,1,1,0,'','','Arindam,\n\ninstead of writing:\n ACTIVATE DIALOG oDlg [b:1na4884n][color=orange:1na4884n]VALID oBacktWnd:End()[/color:1na4884n][/b:1na4884n]\n\nplease, try:\n ACTIVATE DIALOG oDlg [b:1na4884n][color=red:1na4884n]VALID( oBacktWnd:End(), .t. )[/color:1na4884n][/b:1na4884n] \n\nAnd tell me your result.\n\nRegards,\nDetlef','',0,'Qg==','1na4884n',1,0,'',58,0,0),(25628,4134,4,2,0,'87.218.146.7',1169759346,1,0,1,1,1,1,'','','Vilian,\n\nCould you please post the code that you are testing ? thanks','',0,'Qg==','iiihv8nh',1,0,'',2,0,0),(25629,667,6,774,0,'200.72.102.251',1169768815,1,0,1,1,1,1,'','','Parece complicado para los q no estamos familiarizados con esto,, \n\nexistira algun manual del tema en español claro y con ejemplos..\n\nAclarenme ADO que es:: disculpen la ignorancia\n\nsiempre he usado DBF y Clipper,, hace poco en FIVEWIN  y tratando con xharb...... 32 bits...','',0,'Qg==','24znivw9',1,0,'',774,0,0),(25630,5769,6,774,0,'200.72.102.251',1169769210,1,0,1,1,1,1,'','SOBRE PRINTER','existe la manera de seleccionar el tipo de letra, si es negrita, cursiva,, etc.. en realidad todo inclusive el font a usar... \n\nalgo asi como la ventana de dialogo cuando uno selecciona la impresora dnd quiere imprimir\n\nsi alguien conoce del tema me puede ayudar me urge\n\nGRACIAS','',0,'Qg==','2wv0p9mi',1,0,'',774,0,0),(25631,5770,6,307,0,'201.143.198.238',1169772664,1,0,1,1,1,0,'','Antonio / RadioButtons','Saludos, Resulta que tengo una pantalla de captura donde estan unos Radio Bottons, al momento que me muevo con entter por la pantalla y el foco le queda al radio se sale cierra el dialogo!!! , como cuando haces un Test en el WorkShop y usas enter y se cierra el dialogo..., algo asi me sucede pero en la vida real!!... solo con los radios..., si me muevo con tab por ahi funciona bien..\n\nhay hay alguna manera de hacer que los radios funcionen igual que un get normal..??\nque con un enter se pase al siguiente campo en lugar de salirse del dialogo??\n\nsaludos\nya estoy desesperado....\n\nArnulfo','',0,'Qg==','72jygpi6',1,0,'',307,0,0),(25632,5771,6,913,0,'189.136.164.232',1169773572,1,0,1,1,1,1,'','Una pregunta sobre TSBUTTON','Hola yo tenia TSBUTTON y me di cuenta que ya no me funciona en 32bits\npero ya vi en el foro que esta la TSBUTTON05 para 32bist  ya lo baje pero en la carpeta LIB solo estan unos archivos RMK y no se usarlos me imagino que seran para crear la libreria pero si alguien ya la tiene no seria mucho pedir me la presten <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nSaluditos  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Qg==','1ta6w1es',1,0,'',913,0,0),(25633,667,6,397,0,'201.26.10.217',1169773741,1,0,1,0,1,1,'','','Amiguito\n\nDe una olhada en mi blog en <!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/blogADO\">http://www.shoppmarketing.com/blogADO</a><!-- m --> e tambien en <!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=37\">http://www.capelblog.com/?p=37</a><!-- m --> la classe TADORS.','',0,'Qg==','rdzhn7bh',1,0,'',397,0,0),(25634,5772,3,487,0,'151.38.48.82',1169775715,1,0,1,1,1,0,'','Printing Arabic Text','Hello all,\n\nI have a text file containing some Arabic strings in Ansi format (saved with Notepad)\n\nWhen \"Regional And Language Options (RLO)\" are set for english, I see them as, for example:\n[code:1sx0iryk]#define TXT_LANG     &quot;ÚÑÈí&quot;[/code:1sx0iryk]\nbut when RLO are set for Arabic I see the right glyps in Notepad.\nSo far, so good.\n\nMy problem is that when RLO=Arabic I can correctly put and see that text in Messageboxes, Windows, menus etc., BUT in print jobs:\n[code:1sx0iryk]oPrn&#58;Say&#40;row,col,TXT_LANG&#41;[/code:1sx0iryk]\nIt seems that the text in oPrn:say() does not follow the RLO rules (I always see it as in English: \"ÚÑÈí\")\n\nShould I manually apply some kind of conversion ?\n(The source file is already Ansi, but I\'ve tried all the combinations I know: OEMtoAnsi() - AnsiToWide() and viceversa)\n\nThanks\nDavide\nFWH27 - xH 0.99.60 - Bcc','',0,'AIA=','1sx0iryk',1,0,'',487,0,0),(25635,3152,6,393,0,'201.240.21.201',1169779606,1,0,1,1,1,0,'','','Patricio una consulta yo tengo fw25, puedo usar la lib ò tengo que usar fwh.\nDaniel.','',0,'AIA=','keln4ej9',1,0,'',393,0,0),(25636,5765,6,156,0,'201.244.242.20',1169782275,1,0,1,1,1,0,'','','Antonio, gracias por tu respuesta.\n\nNo funcionó. \n\nEn el primer caso,\n\nHB_FUNC( TTNSETTEXT ) // pNMTTDISPINFO, cTooltipText \n{ \n   LPNMTTDISPINFO pti = ( LPNMTTDISPINFO ) hb_parnl( 1 ); \n\n   MultiByteToWideChar( CP_OEMCP, MB_PRECOMPOSED, \n                        ( LPCSTR ) hb_parc( 2 ), -1, ( LPWSTR ) pti-&gt;szText, \n                        hb_parclen( 2 ) + 1 ); \n\n   pti-&gt;hinst = NULL; \n   pti-&gt;lpszText = NULL; \n   pti-&gt;uFlags = 0; \n} \n\npone la misma longitud, 40 caracteres y corta  el exceso sobre 40. \n\nEn el segundo caso,\n\nHB_FUNC( TTNSETTEXT ) // pNMTTDISPINFO, cTooltipText \n{ \n   LPNMTTDISPINFO pti = ( LPNMTTDISPINFO ) hb_parnl( 1 ); \n   static char buffer[ 200 ]; \n\n   MultiByteToWideChar( CP_OEMCP, MB_PRECOMPOSED, \n                        ( LPCSTR ) hb_parc( 2 ), -1, buffer, \n                        hb_parclen( 2 ) + 1 ); \n\n   pti-&gt;hinst = NULL; \n   pti-&gt;lpszText = buffer; \n   pti-&gt;uFlags = 0; \n} \n\nno pinta nada. Parece que es la característica de buffer. Será que incide en algo el tipo de variable, por ejemplo LPWSTR ? He probado pero tampoco sale nada.\n\nAgradezco mucho tu ayuda. Un cliente me tiene loco pues quiere poner en los tooltips mensajes de hasta 180 caracteres, así como poder poner en 2 líneas el prompt de TBBUTTON y debo entregar con urgencia la aplicación. \n\nNuevamente anticipo mi agradecimiento por tu ayuda.\n\nSaludos,\n\nCarlos Gallego','',0,'','12kbg5xt',1,0,'',156,0,0),(25637,5742,6,73,0,'201.132.86.169',1169784412,1,0,1,1,1,0,'','','ni modo vik, asi es el futbol, ahora nos toca la de ver para arriba (eso espero) y pos salud con Victoria !!!\n\ngracias por tu ayuda, lo tendre en cuenta para cualquier consulta sin miramientos sobre ADO...\n\ngracias rene!!\ngracias vik!!\n\nnomas una ultima pregunta: algun lugar donde documentarme de ado, con todas las monerias que hace?\n\nsalu2','',0,'','2fsg6p7h',1,0,'',73,0,0),(25638,5773,6,73,0,'201.132.86.169',1169785423,1,0,1,1,1,0,'','menus tipo office','alguien tendra los fuentes de arturo tamayo, ya que su pagina no funciona, me los pudieran enviar a\n<!-- e --><a href=\"mailto:fjhorta@yahoo.com.mx\">fjhorta@yahoo.com.mx</a><!-- e -->\ngracias\nsalu2\npaco','',0,'','2xo2yknd',1,0,'',73,0,0),(25639,5757,3,705,0,'61.0.137.69',1169795947,1,0,1,1,1,0,'','','Once again thanks Detlef.\n\nIn my last post I wrote you that I had tried as Antonio says :\n\n\" Is oBacktWnd:End() returning a logical value ? It should\".\n\nThe Result is same.\n\nFinaly I change my code as follows :\n\n\n// Include files details\n#include \"FiveWin.ch\"\n#include \"Fileio.ch\"\n#include \"Inkey.ch\"\n#include \"Font.ch\"\n#include \"Color.ch\"\n\nStatic oBacktWnd, lPath, TPath, lType, lDrive, oDLG, oFont\n//----------------------------------------------------------------------------//\n\nFunction Main()\n   // Set as required\n   SET _3DLOOK ON\n   Set Century On\n   Set Date Brit\n   Set Date format \"dd/mm/yyyy\"\n   \n   DEFINE FONT oFont NAME \"COURIER\" SIZE 6, 9\n   \n   DEFINE ICON oIco File (\"D:\\Blazepro\\Image\\Favorite.ico\")\n\n   DEFINE WINDOW oBacktWnd From 25, 185.5 To 45, 205.5 ;\n    TITLE \"BackRest\"  ICON oIco ;\n    NO MAXIMIZE\n\n   SET FONT of oBacktWnd to oFont\n   \n   ACTIVATE WINDOW oBacktWnd  ;\n     On INIT BackRest()       ;\n     VALID CloseFunc( oDlg )\n\n   RELEASE FONT oFont\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function BackRest()   \n   Local oLbx, nItem := 0, oMeter, nMeter\n   Local n, nSelected := 0, aSel := {}\n\n   //Set Default\n   SET DELETED OFF\n\n   // Replace variable.\n   lpath   := (CurDrive() + \":\\\" + \"Blazepro\\Data\\\") \n   tpath   := Space(25)\n   lType   := Space(1)\n   lpath   := AllTrim(lpath)\n\n   DEFINE DIALOG oDlg RESOURCE \"BACKREST\" of oBacktWnd TITLE \"BACKUP / RESTORE FUNCTION\" Color \"W/W\"\n\n   REDEFINE SAY oSay ID  1 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  2 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  3 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  4 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  5 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  6 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  7 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  8 OF oDlg Color \"N/W\" Font oFont \n   REDEFINE SAY oSay ID  9 OF oDlg Color \"N/W\" Font oFont \n\n   REDEFINE GET oGet Var lType ID 10 OF oDlg                     ;\n      Valid     reqdata(ltype) .And. (ltype =\"D\" .Or. ltype =\"M\") ;     // Daily or Monthly backup\n      Picture \"@!\" Color \"B+/W\"\n\n   REDEFINE GET oGet Var tPath ID 11 OF oDlg ;\n      Valid  reqdata(tPath)                  ;     \n      Picture \"@!\" Color \"B+/W\"\n\n   REDEFINE LISTBOX oLbx VAR nItem ;\n      ID 0 OF oDlg ;\n      ITEMS aDataFiles() ;\n      BITMAPS { \"CHECKON\", \"CHECKOFF\" } ;\n      ON DRAWITEM ( IIF(aScan(oLbx:GetSelItems(),nItem) &gt;0, 1, 2) );\n      ON CHANGE (nSelected := oLbx:GetSelCount(), oDlg:AevalWhen());\n      COLOR \"N/W\"\n\n   REDEFINE button ID 13 OF oDLG ;\n      ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.t.) }), oLbx:Change())\n\n   REDEFINE button ID 14 OF oDLG ;\n      ACTION (aeval(oLbx:aItems,{|o,n| oLbx:SetSel(n,.f.) }), oLbx:Change());\n      WHEN nSelected &gt; 0\n\n   REDEFINE button ID 15 OF oDLG ;\n      ACTION BackUp(oLbx, lpath, tpath, lType), oLbx:Change();\n      WHEN nSelected &gt; 0\n\n   REDEFINE button ID 16 OF oDLG //;\n      //ACTION Restore(oLbx,lpath, tpath), oLbx:Change();\n      //WHEN nSelected &gt; 0\n\n   REDEFINE button ID 12 of oDLG CANCEL;\n      ACTION oDlg:END()\n\n   ACTIVATE DIALOG oDlg ;\n     VALID (oBacktWnd:End(), .T.)\n\n   oDlg:aControls[ 10 ]:Setfocus(.T.)\n\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function BackUp(oLbx, SourcePath, TargetPath, BackupType)\n   /* My Backup Code\n      Where :\n      \n      SourcePath  == (\"D:\\Blazepro\\Data\\\")\n      TargetPath  == (\"D:\\Blazepro\\Backup\\\")\n      BackupType  == \"D\" \n   \n   */\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nSTATIC FUNCTION aDataFiles()\nRETURN {                                                ;\n        (\"D:\\BlazePro\\Data\\Complain.Dbf\") , ;\n        (\"D:\\BlazePro\\Data\\Mechanic.Dbf\") , ;\n        (\"D:\\BlazePro\\Data\\Customer.Dbf\") , ;\n        (\"D:\\BlazePro\\Data\\Custcat.Dbf\")  , ;\n        (\"D:\\BlazePro\\Data\\Custarea.Dbf\") , ;\n        (\"D:\\BlazePro\\Data\\Proprice.Dbf\") , ;\n        (\"D:\\BlazePro\\Data\\Payment.Dbf\")  , ;\n        (\"D:\\BlazePro\\Data\\Change.Dbf\")     ;\n   }\n\n//----------------------------------------------------------------------------//\n\nStatic Function CloseFunc( oDlg )\n   If ValType(oDlg) = \"O\"\n      oDlg:End()\n   Endif\n   \nReturn .T.\n\n\n//----------------------------------------------------------------------------//\n\nFunction ReqData( Param )\n\n   If Empty( Param )\n      MsgStop(\"Currentt field can not be BLANK.\",;\n              \"WARNING\")\n      Return .F.\n   Endif\nReturn .T.\n\nThe error report details :\n\nApplication\n===========\n   Path and name: D:\\XHB\\bin\\backupTest.exe (32 bits)\n   Size: 1,525,248 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 26/01/2007, 12:35:02\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: GETMENUITEM\n   Args:\n     [   1] = N   2090312480\n\nStack Calls\n===========\n   Called from:  =&gt; GETMENUITEM(0)\n   Called from: WINDOW.PRG =&gt; TDIALOG:MEASUREITEM(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; BACKREST(97)\n   Called from: MainBackup.prg =&gt; (b)MAIN(30)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: MainBackup.prg =&gt; MAIN(30)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.26GHz 2283 Mhz\n   Hardware memory: 376 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n\nWith Regards\n\nArindam','',0,'','11kr4jyi',1,0,'',705,0,0),(25640,5757,3,58,0,'84.149.252.33',1169796826,1,0,1,1,1,0,'','','Arindam,\n\n[quote:irnnkd4v]ACTIVATE DIALOG oDlg ; \nVALID (oBacktWnd:End(), .T.) \n\noDlg:aControls[ 10 ]:Setfocus(.T.) [/quote:irnnkd4v]\n\nShouldn\'t the be an ON INIT before [code:irnnkd4v]VALID &#40;oBacktWnd&#58;End&#40;&#41;, &#46;T&#46;&#41;;\nON INIT;\noDlg&#58;aControls&#91; 10 &#93;&#58;Setfocus&#40;&#46;T&#46;&#41;[/code:irnnkd4v] ?\n\nRegards,\nDetlef','',0,'gIA=','irnnkd4v',1,0,'',58,0,0),(25641,5770,6,2,0,'87.218.146.7',1169799529,1,0,1,1,1,1,'','','Arnulfo,\n\nPosiblemente tengas un pushbutton con estilo BS_DEFAULT y por eso con enter se ejecuta. Quítale ese estilo al botón.','',0,'gIA=','gjbo5otw',1,0,'',2,0,0),(25642,5757,3,2,0,'87.218.146.7',1169799799,1,0,1,1,1,1,'','','Arindam,\n\nPlease post the RC portion for \"BACKREST\" dialog, thanks','',0,'gIA=','1ro22ist',1,0,'',2,0,0),(25643,5757,3,2,0,'87.218.146.7',1169800054,1,0,1,1,1,1,'','','Arindam,\n\nYou may need to modify Class TWindow Method MeasureItem() (fwh\\source\\classes\\window.prg):\n[code:23ai73jb]\nMETHOD MeasureItem&#40; nIdCtl, pMitStruct &#41; CLASS TWindow\n\n   local nAt, oItem\n\n   // Warning&#58; On this message the Controls still are not initialized\n   // because WM_MEASUREITEM is sent before of WM_INITDIALOG\n\n   if nIdCtl == 0 // Menu\n      if &#58;&#58;oPopup != nil\n         oItem = &#58;&#58;oPopup&#58;GetMenuItem&#40; GetMeaItem&#40; pMitStruct &#41; &#41;\n      endif\n      if oItem == nil &#46;and&#46; &#58;&#58;oSysMenu != nil\n         oItem = &#58;&#58;oSysMenu&#58;GetMenuItem&#40; GetMeaItem&#40; pMitStruct &#41; &#41;\n      endif\n      if oItem == nil &#46;and&#46; &#58;&#58;oMenu != nil  // NEW !!!!!!!!\n         &#58;&#58;oPopup = nil\n         oItem = &#58;&#58;oMenu&#58;GetMenuItem&#40; GetMeaItem&#40; pMitStruct &#41; &#41;\n      endif\n      if oItem != nil\n         MenuMeasureItem&#40; pMitStruct,;\n                          GetTextWidth&#40; 0, StrTran&#40; oItem&#58;cPrompt, &quot;&amp;&quot;, &quot;&quot; &#41; &#41; + ;\n                          If&#40; ValType&#40; oItem&#58;bAction &#41; == &quot;B&quot;, 20, 0 &#41; + 20 &#41;\n      endif        //+20 introduced due Error on NT on width calculation 1999/05/19\n      return &#46;f&#46;  // default behavior\n   endif\n\n   if &#40; nAt &#58;= AScan&#40; &#58;&#58;aControls, &#123; | oCtrl | oCtrl&#58;nId == nIdCtl &#125; &#41; &#41; != 0\n      return &#58;&#58;aControls&#91; nAt &#93;&#58;FillMeasure&#40; pMitStruct &#41;\n   endif\n\nreturn nil\n[/code:23ai73jb]\nThis is the modified line:\nif oItem == nil .and. ::oMenu != nil  // NEW !!!!!!!!','',0,'AIA=','23ai73jb',1,0,'',2,0,0),(25644,5765,6,2,0,'87.218.146.7',1169800972,1,0,1,1,1,1,'','','Carlos,\n\nComo te he indicado, Microsoft tiene la limitación char szText[80]; de ahí que sólo se visualicen 40 caracteres.\n\nLa función modificada TTNSETTEXT() debería funcionar pero no lo hace. Así que hasta que aparezca una posible solución, tendrás que indicarle a tu cliente que no se puede y que hay que hacerlo de otra forma','',0,'','1oaknacr',1,0,'',2,0,0),(25645,5774,3,49,0,'213.82.134.66',1169809090,1,0,1,1,1,1,'','New Meterxp','Have a small sample using a meter style xp ( tprogress) to index a file ?\non resource dialog ?\nthanks','',0,'','289gbukj',1,0,'',49,0,0),(25646,5773,6,92,0,'213.96.45.9',1169809409,1,0,1,1,1,0,'','Re: menus tipo office','a mi también por favor\n\n<!-- e --><a href=\"mailto:fivewidi@jazzfree.com\">fivewidi@jazzfree.com</a><!-- e -->\n\nSaludos\nCarlos G.','',0,'','29e36lcx',1,0,'',92,0,0),(25647,5769,6,774,0,'200.72.179.47',1169810060,1,0,1,1,1,1,'','','...','',0,'','s4jzvao9',1,0,'',774,0,0),(25648,5766,6,774,0,'200.72.179.47',1169810091,1,0,1,1,1,1,'','','....','',0,'','58qx0ud5',1,0,'',774,0,0),(25649,5775,6,49,0,'213.82.134.66',1169810485,1,0,1,1,1,1,'','Sobre Network','I have a LAB with 32 computers\nI can see in a program a browse or a window with each pc and see if thet are open or close.\nthen I want read a file (dbf) on each pc and write (dbf)\n\nHave you a small test sample to nderstand how the network run on xharbour and fw ?','',0,'','byxw40r9',1,0,'',49,0,0),(25650,5776,6,63,0,'88.11.31.105',1169811970,1,0,1,1,1,0,'','Imprimir desde ActiveX','Utilizo este código para presentar una página .html en una ventana FWH (gracias, José Luis Capel!):\n[code:ctgfmuh3]DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\noActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&#46;2&quot; &#41;\noWnd&#58;oClient = oActiveX // To fill the entire window surface\noActiveX&#58;Do&#40;&quot;Navigate2&quot;,&#40;CurDrive&#40;&#41; + &quot;&#58;\\&quot;+CurDir&#40;&#41;+&quot;\\MiHtml&#46;htm&quot;&#41;&#41;\nACTIVATE WINDOW oWnd\n[/code:ctgfmuh3]\n¿Podría imprimir el contenido de esa ventana?  ¿Cómo?\nGracias\nRafael','',0,'AIA=','ctgfmuh3',1,0,'',63,0,0),(25651,5766,6,2,0,'87.218.146.82',1169813270,1,0,1,1,1,1,'','','En principio no se puede, ya que los menus usan valores predefinidos para todo Windows, asi como los colores, etc. Puedes variarles el tamaño desde \"botón derecho en escritorio-propiedades-apariencia-opciones avanzadas\"\n\nLa única forma sería usar unos menus tipo ownerdraw, como los menus que se han publicado hace unos dias aqui con el look de office, y que al dibujarse usasen un font distinto del suyo','',0,'AIA=','1hzge8vx',1,0,'',2,0,0),(25652,5776,6,2,0,'87.218.146.82',1169813374,1,0,1,1,1,1,'','','Rafael,\n\nPrueba con oActiveX&#058;Do( \"Print\" )','',0,'AIA=','1rv8c2fb',1,0,'',2,0,0),(25653,5776,6,456,0,'62.43.194.117',1169813889,1,0,1,1,1,1,'','','En la misma ventana coloca un boton, algo parecido a lo siguiente.\n[code:1zcrlz35]\nDEFINE BUTTONBAR oBar OF oWnd\n\nDEFINE BUTTON OF oBar;\n           ACTION oActivex&#58;Do&#40; &quot;ExecWB&quot;, 6,1 &#41;\n[/code:1zcrlz35]','',0,'AIA=','1zcrlz35',1,0,'',456,0,0),(25654,4134,4,267,0,'200.208.238.2',1169814215,1,0,1,1,1,1,'','','Antonio,\n\nThis code is\n\nFUNCTION EnvArqFtp(cArq)\nLOCAL oInternet,oFtp,nVezes:=0,lInter:=.F.\n\n     oInternet := TInternet():New()\n     oFTP      := TFTP():New( \"ip by server\", oInternet,\"usr\",\"pass\" )\n     MandaArq(CurDir()+\"\\\"+cArq,\"/public_html/sav/\"+cArq,500,oFTP)\n\nRETURN NIL\n\nSTATIC FUNCTION MandaArq(cArquivo,cRemote,nTam,oFtp)\nLOCAL n,hSource,cBuffer:=Space( 6400 ),nBufSize:=6400,oFile\n\n   IF (hSource := FOpen( cArquivo )) &lt; 0\n       RETURN .F.\n   ELSE\n       cBuffer := Space( 6400 )\n       nBufSize := 6400\n       SysRefresh()\n\n       oFile := TFtpFile():New( cRemote, oFTP )\n       IF Empty(oFile)\n           RETURN .F.\n       ELSE\n           oFile:OpenWrite()\n           FSeek( hSource, 0, 0 )\n\n          nTotal := 0\n          DO WHILE ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) &gt; 0\n      	nFeito := oFile:Write( SubStr( cBuffer, 1, nBytes ) )\n      	SysRefresh()\n      	nTotal += nBytes\n         ENDDO\n         oFile:End()\n         FClose( hSource )\n     ENDIF\n  ENDIF\n\nRETURN .T.','',0,'AIA=','3g12e09l',1,0,'',267,0,0),(25655,5776,6,63,0,'88.11.31.105',1169815147,1,0,1,1,1,0,'','','Antonio:  Lo siento. Do(\"Print\") no parece hacer nada. A lo mejor es que estoy pasando algo por alto.\n\nBiel:  Tu \"receta\" sí que ha funcionado.  Perfecta.  El problema es que me parece magia.  ¿Me podrías aclarar qué quiere decir \"ExecWB2, \"6\" y \"1\"?\n\nUn montón de gracias\n\nRafael','',0,'AIA=','h5z94cqf',1,0,'',63,0,0),(25656,5777,6,850,0,'200.41.163.103',1169815628,1,0,1,1,1,0,'','Problemas con Indices en ADS Server','Hola, tengo un problema con indices .idx + fivewin + xharbour. Tengo un archivo de alrededor de 5.000.000 de registros en dbf con ADS server 6.0 sobre NOVELL 5 y tiene un indice por tres campos str(sucursal,5)+str(solicitud,6)+str(credito,6). El sistema esta funcionando desde hace años en clipper 5.2 DOS, algunas aplicaciones con Fivewin y todo funciona perfecto. Estoy haciendo algunas aplicaciones en xHarbour 0.99.61 y Fivewin 2.8 con acceso a Sql Server y a ADS y tengo el problema que un rango de registros que se encuentran en el final del archivo, despues de los 4.000.000 de registros no los encuentra con  SEEK, salta al EOF. Si alguien me puede dar una idea de que puede estar pasando se lo agradecere. \nAndres','',0,'AIA=','okflcidw',1,0,'',850,0,0),(25657,5776,6,63,0,'88.11.31.105',1169815825,1,0,1,1,1,0,'','','Biel:  Encontré la explicación.  Si a alguien le interesa, está muy claro en <!-- m --><a class=\"postlink\" href=\"http://www.devx.com/vb2themax/Tip/18432\">http://www.devx.com/vb2themax/Tip/18432</a><!-- m -->\n\nGracias otra vez.  Saludos,\n\nRafael','',0,'AIA=','1dxueyha',1,0,'',63,0,0),(25658,5674,3,335,0,'68.193.88.53',1169818016,1,0,1,1,1,0,'','','I originally wrote Rep23, upon which Rochinha based some of his programming. Since then, I have greatly improved it and converted it to OOP.  Improvements include capabilities for assigning a different font to each field of data and the use of graphics - lines, boxes, shadows and bitmaps.\n\nAnyone who would like a copy of the current version (and its companion .PRGs) can get it by downloading from...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/software/TstRpt23.zip\">http://www.leadersoft.com/software/TstRpt23.zip</a><!-- m -->\n\nTogether with TReport, it provides the basic report output engine. What it needs is a good graphical front end for designing reports. (I still use R&amp;R and the R&amp;R Clipper Code Generator for designing reports, and then convert the generated code so it can work with TRept23.) This approach enables providing reports completely within your main app .exe with complete control, instead of having to depend on someone else\'s runtime module (i.e. Crystal Reports).\n\nOne of the included PRGs - PrintAdj.prg - automatically determines which printer is the default for a workstation and then automatically enters printing adjustment factors into a \"MyApp.ini\" file so that printing with TRept23 will be properly aligned on that printer.\n\nFeel free to use it. If you decide to use TRept23, please share any improvements that you make on this forum.\n\n- Roger','',0,'AIA=','36tvyda1',1,0,'',335,0,0),(25659,5764,7,832,0,'201.116.83.242',1169820483,1,0,1,1,1,0,'','Re: ¡¡¡ espero y me puedan ayudar !!!','OYE ANTONIO TU NO TIENES NINGUN EJEMPLO DE COMO CONECTARSE CON GPRS\n\n\nO ALGUIEN ME PODRI AYUDAR....GRACIAS','',0,'AIA=','2b9nv589',1,0,'',832,0,0),(25660,5757,3,705,0,'61.2.5.167',1169820859,1,0,1,1,1,0,'','','Thanks Antonio for your recent support.\n\nAs per your advice, I have modified the line in window.prg. But I am getting same error. As you have asked to post the contents of BACKREST.RC, I am pesting harewith.\n\n  [code:p4wmn9re]\n\nBACKREST DIALOG 0, 0, 271, 162\nSTYLE DS_ABSALIGN |DS_FIXEDSYS |WS_POPUP |WS_VISIBLE |WS_THICKFRAME |WS_CAPTION\nCAPTION &quot;BACHUP RESTORE FUNCTION&quot;\nFONT 9, &quot;Arial&quot;\n&#123;\n  CONTROL &quot;&quot;,0,&quot;LISTBOX&quot;,LBS_OWNERDRAWFIXED |LBS_MULTIPLESEL |LBS_NOTIFY |WS_CHILD |WS_BORDER |WS_VSCROLL |WS_TABSTOP |WS_VISIBLE ,3,62,207,253\n  CONTROL &quot;Select &#46;&#46;&#46;&quot;,1,&quot;BUTTON&quot;,BS_GROUPBOX |WS_CHILD |WS_VISIBLE ,214,162,55,46\n  CONTROL &quot;Source Path&quot;,2,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,5,8,60,8\n  CONTROL &quot;Backup Type&quot;,3,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,5,47,60,8\n  CONTROL &quot;Target Path&quot;,4,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,5,20,60,8\n  CONTROL &quot;e&#46;g&#46; D&#58;&quot;,5,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,85,32,23,8\n  CONTROL &quot;BLAZEPRO&quot;,6,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,113,32,48,8\n  CONTROL &quot;&quot;,7,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,109,32,2,8\n  CONTROL &quot;BACKUP&quot;,8,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,161,32,39,8\n  CONTROL &quot;&#91;D&#93;aily / &#91;M&#93;onthly&quot;,9,&quot;STATIC&quot;,SS_LEFT |WS_CHILD |WS_GROUP |WS_VISIBLE ,101,47,73,8\n  CONTROL &quot;&quot;,10,&quot;EDIT&quot;,ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,75,17,135,12\n  CONTROL &quot;&quot;,11,&quot;EDIT&quot;,ES_LEFT |WS_CHILD |WS_BORDER |WS_TABSTOP |WS_VISIBLE ,76,45,14,12\n  CONTROL &quot;Quit&quot;,12,&quot;BUTTON&quot;,BS_DEFPUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,217,321,50,14\n  CONTROL &quot;Tag All&quot;,13,&quot;BUTTON&quot;,BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,222,174,40,12\n  CONTROL &quot;Un-Tag All&quot;,14,&quot;BUTTON&quot;,BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,222,191,40,12\n  CONTROL &quot;Backup&quot;,15,&quot;BUTTON&quot;,BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,29,321,64,14\n  CONTROL &quot;Restore&quot;,16,&quot;BUTTON&quot;,BS_PUSHBUTTON |BS_VCENTER |BS_CENTER |WS_CHILD |WS_TABSTOP |WS_VISIBLE ,119,321,64,14\n&#125;\n\n[/code:p4wmn9re]\n\nWith Regards,\n\nArindam','',0,'AIA=','p4wmn9re',1,0,'',705,0,0),(25661,5776,6,456,0,'62.43.194.117',1169822054,1,0,1,1,1,1,'','','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  magia poca Rafael. Lo encontre en el MSDN. Como siempre digo, casi todo esta explicado alli, pero pa encontralo tela.\n\n[url:34fp9c9u]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/workshop/browser/webbrowser/reference/Methods/ExecWB&#46;asp[/url:34fp9c9u]\n\nEsta es la lista de posibles parametros para OLECMDID\n[url:34fp9c9u]http&#58;//msdn2&#46;microsoft&#46;com/en-us/library/ms691264&#46;aspx[/url:34fp9c9u]\ny esta par OLECMDEXECOPT\n[url:34fp9c9u]http&#58;//msdn2&#46;microsoft&#46;com/en-us/library/ms683930&#46;aspx[/url:34fp9c9u]','',0,'EA==','34fp9c9u',1,0,'',456,0,0),(25662,5736,7,598,0,'200.11.139.61',1169823254,1,0,1,1,1,1,'','','muchas gracias !! ya resolvi el problema.. no utilize ansitowide() existe una funcion llamada MultiByteToWideChar() que es mas segura, y el problema con hb_parc() era justamente la conversion ANSI -&gt; UNICODE','',0,'EA==','2rq0m51v',1,0,'',598,0,0),(25663,5771,6,36,0,'164.77.81.210',1169824318,1,0,1,1,1,0,'','','Aida\n\nCopia este codigo a un archivo bat, y lo pegas en la carpeta lib (TSBUTTON\\LIB) y luego compilas con el bat\n\n[code:jie9bz3g]\n@ECHO OFF\n\nset harbour=c&#58;\\harbour\\\nset fwh=c&#58;\\fwh\n\ndel *&#46;lib\ndel *&#46;log\n\n%harbour%bin\\harbour &#46;&#46;\\source\\classes\\TSButton&#46;prg /n /i&#46;&#46;\\include;c&#58;\\Fwh\\include;c&#58;\\harbour\\include &gt;  comp&#46;log\nif errorlevel 1 goto error\n\n%harbour%bin\\harbour &#46;&#46;\\source\\classes\\TSBar&#46;prg    /n /i&#46;&#46;\\include;c&#58;\\Fwh\\include;c&#58;\\harbour\\include &gt;&gt; comp&#46;log\nif errorlevel 1 goto error\n\n%harbour%bin\\harbour &#46;&#46;\\source\\classes\\TSLines&#46;prg  /n /i&#46;&#46;\\include;c&#58;\\Fwh\\include;c&#58;\\harbour\\include &gt;&gt; comp&#46;log\nif errorlevel 1 goto error\n\n%harbour%bin\\harbour &#46;&#46;\\source\\classes\\TSRadio&#46;prg  /n /i&#46;&#46;\\include;c&#58;\\Fwh\\include;c&#58;\\harbour\\include &gt;&gt; comp&#46;log\nif errorlevel 1 goto error\n\n%harbour%bin\\harbour &#46;&#46;\\source\\classes\\TSTSay&#46;prg   /n /i&#46;&#46;\\include;c&#58;\\Fwh\\include;c&#58;\\harbour\\include &gt;&gt; comp&#46;log\nif errorlevel 1 goto error\n\nc&#58;\\borland\\bcc55\\bin\\bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I%harbour%include;%fwh%\\include tsbutton&#46;c &gt;&gt; comp\n\nc&#58;\\borland\\bcc55\\bin\\bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I%harbour%include;%fwh%\\include TsBar&#46;c    &gt;&gt; comp\n\nc&#58;\\borland\\bcc55\\bin\\bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF&#41; -O2 -c -I%harbour%include;%fwh%\\include TSlines&#46;c &gt;&gt; comp\n\nc&#58;\\borland\\bcc55\\bin\\bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I%harbour%include;%fwh%\\include TSRadio&#46;c  &gt;&gt; comp\n\nc&#58;\\borland\\bcc55\\bin\\bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I%harbour%include;%fwh%\\include TSTSay&#46;c   &gt;&gt; comp\n\nc&#58;\\borland\\bcc55\\bin\\bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I%harbour%include;%fwh%\\include &#46;&#46;\\source\\function\\BPaint&#46;c &gt;&gt; comp\n\n\nc&#58;\\borland\\bcc55\\bin\\Tlib SButtonH +TSButton  &gt; Lib&#46;log\nc&#58;\\borland\\bcc55\\bin\\Tlib SButtonH +BPaint   &gt;&gt; Lib&#46;log\nc&#58;\\borland\\bcc55\\bin\\Tlib SButtonH +TSBar    &gt;&gt; Lib&#46;log\nc&#58;\\borland\\bcc55\\bin\\Tlib SButtonH +TSLines  &gt;&gt; Lib&#46;log\nc&#58;\\borland\\bcc55\\bin\\Tlib SButtonH +TSRadio  &gt;&gt; Lib&#46;log\nc&#58;\\borland\\bcc55\\bin\\Tlib SButtonH +TSTSay   &gt;&gt; Lib&#46;log\n\ngoto exit\n\n&#58;ERROR\nCls\nEcho Error al compilar&#46;&#46;&#46;\ntype log&#46;log|more\npause\n\n&#58;EXIT\n\nset harbour=\nset fwh=\n\ndel *&#46;obj\ndel *&#46;c\ndel *&#46;bak\n\nrem xcopy *&#46;lib d&#58;\\apl\\prgs\\lib32\\[/code:jie9bz3g]\n\n\nEspero que te sirva\nSaludos\nPatricio','',0,'AIA=','jie9bz3g',1,0,'',36,0,0),(25664,5734,3,154,0,'151.21.77.146',1169825877,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:215jhxxk]If you place a pushbutton and it gets focus, then the focus starts working fine. We need to find why[/quote:215jhxxk]\nAntonio,\nin my test if the button is on the folder not work.\nThe button must be inserted on the main dialog.','',0,'gA==','215jhxxk',1,0,'',154,0,0),(25665,5734,3,154,0,'151.21.77.146',1169826801,1,0,1,1,1,1,'','','Antonio,\nstill trying I have verified that if uses the mouse it does not work!\nAfter to be passed on the button with the keyboard it works well.','',0,'gA==','1uyl117x',1,0,'',154,0,0),(25666,5778,6,926,0,'189.134.48.131',1169827434,1,0,1,1,1,0,'','Como puedo usar un RC','Hola buen dia\n\nSoy usuario nuevo FWH y no se como enlazo los RC al programa, estoy usando el VeRCE pero no me los liga, no se si esta mal configurado o desde el programa esta mal ya que en FW le pongo SET RESOURCE TO \"EJEMPLO.DLL\" y en FWH no lo acepta, como lo hago en FWH. El procedimiento que sigo en el VeRCE activo el check Archivo de Recursos (RC) y todos los demás check los dejos inactivos.\nYa lo intente con algunos programa que vienen de ejemplo pero no funciona, espero me puedan ayudar gracias.[/img]','',0,'','3t3yc0ei',1,0,'',926,0,0),(25667,5773,6,397,0,'201.26.12.237',1169831338,1,0,1,0,1,1,'','','Mira aqui\n\n<!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w --> en descargas','',0,'','22xsr264',1,0,'',397,0,0),(25668,5768,3,397,0,'201.26.12.237',1169832255,1,0,1,0,1,1,'','','Friend\n\nFlash memory is a temporary data store and you can\'t use for this feature or don\'t re-format.\n\nWork whit HD Serial in the your clients fixed disk.\n\nPara usar nSerialHD() agregue o parametro.\n\nnSerialHD( \"C:\" )\nnSerialHD( \"Z:\" )','',0,'','83afnqd3',1,0,'',397,0,0),(25669,5779,6,926,0,'189.134.48.131',1169832734,1,0,1,1,1,0,'','Tengo este problema al compilar','Estoy tomando un programa de ejemplo de FWH y se supone que no tiene errores pero al compilar me arroja este error. como puedo solucionar el problema ... Gracias.\n\nCompilado y Enlazado de: [C:\\pruebah\\a.Exe]\nEjecución No. 1\nEjecutada a las: 11:25:55\n============================================================\nxHarbour Compiler build 0.99.51 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\pruebah\\PRG\\a.prg\'...\nLines 39, Functions/Procedures 1\nGenerating C source output to \'C:\\pruebah\\OBJ\\a.hrb\'...\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nC:\\pruebah\\OBJ\\a.hrb:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_TPREPROCESSOR\' referenced from C:\\PRUEBAH\\OBJ\\A.OBJ\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting C:\\pruebah\\a.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!','',0,'','l0mbp4wq',1,0,'',926,0,0),(25670,5769,6,774,0,'200.72.179.47',1169833531,1,0,1,1,1,1,'','','....','',0,'','3n4m9odp',1,0,'',774,0,0),(25671,5777,6,138,0,'189.141.72.221',1169833990,1,0,1,1,1,1,'','','Hay un problema con el RDDADS necesitaria saber que version del RDDADS estas usando y que DLL de ADS estas usando para conectar el programa FWH.','',0,'','9rr4by1s',1,0,'',138,0,0),(25672,5769,6,138,0,'189.141.72.221',1169834076,1,0,1,1,1,1,'','','ChooseFont()','',0,'','2lljqtzm',1,0,'',138,0,0),(25673,5757,3,303,0,'72.199.41.171',1169834510,1,0,1,1,1,0,'','','Arindam,\n\nThe problem appears to be in the code defining oBacktWnd, however, I don\'t really think you need to use the \"OF oWnd\" clause of DEFINE DIALOG--I don\'t. Try changing these lines--take out the bold text:\n\nDEFINE DIALOG oDlg RESOURCE \"BACKREST\" [b:3cpw5emh]of oBacktWnd [/b:3cpw5emh]TITLE \"BACKUP / RESTORE FUNCTION\" Color \"W/W\" \n...\n   ACTIVATE DIALOG oDlg ; \n     [b:3cpw5emh]VALID oBacktWnd:End() [/b:3cpw5emh]\n\nJames','',0,'QA==','3cpw5emh',1,0,'',303,0,0),(25674,5765,6,156,0,'201.244.195.140',1169834530,1,0,1,1,1,0,'','','Antonio, entiendido  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nEsta limitación aplica SOLO a TOOLBARS porque en los demás controles no hay problema.  En todas mis aplicaciones tengo los ToolTips seteados para que muestran hasta 100 caracteres de ancho por línea. \n\nPara esto en Windows.prg en el método ShowToolTip() puse:\nSendMessage( hWnd, TTM_SETMAXTIPWIDTH, 0, 573)\n\nSi en cualquier control, incluído BUTTONBAR (excepto TOOLBAR), pones un \n\noCtrlxxx:cToolTip:=\"123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 123456789 1234567890\"\n\nverás que te pone en una sola línea toda la cadena.\n\nEs decir, la limitante sólo aplica para TOOLBAR. Estoy en lo correcto ?\n\nSaludos,\n\nCarlos Gallego','',0,'QA==','8gk2dr3o',1,0,'',156,0,0),(25675,667,6,138,0,'189.141.72.221',1169834576,1,0,1,1,1,1,'','','[quote=&quot;A&amp;C&quot;:2267maed]\nAclarenme ADO que es:: disculpen la ignorancia\n[/quote:2267maed]\n\nADO = ActiveX Data Objects (Definicion oficial)\n\nADO = Humilde forma de Microsoft de decir a los programadores de Xbase: [b:2267maed]ustedes no estan tan equivocados y obsoletos como pensabamos, con su permiso copiaremos su modelo de trabajar con las bases de datos y lo haremos compatible con SQL, cambiandole algunas cosillas[/b:2267maed] (Defincion de Rene).','',0,'wA==','2267maed',1,0,'',138,0,0),(25676,5734,3,154,0,'151.81.0.192',1169835111,1,0,1,1,1,1,'','','Hi friend,\nthis is a little work-around:\n\nas Antonio asserts, is sufficient to insert a button on the main dialog, for example with ID 100.\n[code:3sydqhrp]Main dialog resource code&#58;\n PUSHBUTTON &quot;Button&quot;, 100, 160, 127, 50, 14\n\ninsert in the prg&#58;\n   REDEFINE BUTTON oBtt ID 100 OF oDlg\n\n&#46;&#46;&#46;\n\n   ACTIVATE DIALOG oDlg ;\n         ON INIT &#40; oBtt&#58;SetFocus&#40;&#41;, ;\n                   __KeyBoard&#40; Chr&#40; 13 &#41; &#41;, ;  \n                   oDlg&#58;GoNextCtrl&#40; oBtt&#58;hWnd &#41;, ;\n                   oBtt&#58;Hide&#40;&#41;, ;  // For hide the button  ;-&#41; \n                   &#46;F&#46; &#41;[/code:3sydqhrp]\nAntonio, thank you!   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3sydqhrp',1,0,'',154,0,0),(25677,5675,20,154,0,'151.81.0.192',1169835414,1,0,1,1,1,1,'','','Per chi non ha letto il news group inglese, è presente un work-around:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=25676#25676\">http://fivetechsoft.com/forums/viewtopi ... 5676#25676</a><!-- m -->\n\nGrazie Antonio.','',0,'AIA=','2rg9wtbf',1,0,'',154,0,0),(25678,5675,20,6,0,'87.19.210.251',1169836229,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:2g8z4kiv]Per chi non ha letto il news group inglese, è presente un work-around:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=25676#25676\">http://fivetechsoft.com/forums/viewtopi ... 5676#25676</a><!-- m -->\n\nGrazie Antonio.[/quote:2g8z4kiv]\n\nVisto e provato. Eppure ti giuro che non vedo alcuna differenza... <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEMG','',0,'gA==','2g8z4kiv',1,0,'',6,0,0),(25679,5773,6,185,0,'200.87.81.19',1169836643,1,0,1,1,1,0,'','','hOla\n\nYa esta habilitada la pagina\n\n<!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w -->\n\n\nsaludos','',0,'gA==','1vm1ufqx',1,0,'',185,0,0),(25680,5567,6,185,0,'200.87.81.19',1169836741,1,0,1,1,1,0,'','','Estuvo deshabiltada la pagina por unos probleasm con un script, ya esa disponible\n\nsaludos','',0,'gA==','11bchsqj',1,0,'',185,0,0),(25681,5774,3,130,0,'84.138.52.53',1169836926,1,0,1,1,1,0,'','','Silvio,\n\nthis a small sample\n\n[code:1ngrq2jx]\nPROCEDURE NewIndex &#40;&#41;\n\nLOCAL oFnt &#58;= SetFont &#40;&#41;\nLOCAL oDlg, oMeter, oRadio, oSay, cSay &#58;= &quot;Indiziere&#46;&#46;&#46;&quot;\nLOCAL oOk, oClose\nLOCAL nRadio\nLOCAL nStart &#58;= 0, nTotal &#58;= 100\n\nDEFINE DIALOG oDlg RESOURCE &quot;INDEX&quot; FONT oFnt\n\n&#46;&#46;&#46;&#46;&#46;&#46;\n\nREDEFINE PMETER oMeter VAR nStart TOTAL nTotal ID 1000 OF oDlg FONT oFnt\n\n\nREDEFINE BUTTON oOk ID 101 OF oDlg ACTION &#40;oOk&#58;disable&#40;&#41;,;\n                                           oClose&#58;disable&#40;&#41;,;\n                                           BuildIdx &#40;oMeter,oSay,,nRadio&#41;,;\n                                           oClose&#58;SetText&#40;OemToAnsi&#40;&quot;Schließen&quot;&#41;&#41;,;\n                                           oClose&#58;enable&#40;&#41; &#41;\n\nREDEFINE BUTTON oClose ID 102 OF oDlg ACTION &#40; oDlg&#58;end&#40;&#41; &#41;\n\nACTIVATE DIALOG oDlg ON INIT dbCloseAll &#40;&#41;\n\noFnt&#58;Release &#40;&#41;\nOpenFiles &#40;&#41;\nSetRela &#40;0&#41;\n\nRETURN\n\n\n\n\n#define idx_PROD 1\n#define idx_LIEF 2\n#define idx_KUND 3\n#define idx_RECH 4\n#define idx_RESE 5\n#define idx_ANGE 6\n\n//----------------------------------------------------------------//\nSTATIC PROCEDURE BuildIdx &#40;oMeter,oText,lEnd, nRadio&#41;\n\nFIELD Datum, Plz, Beschr, Anbiet_Nr, Name, Vorname, Nr, Best_Nr, L_Nr\nFIELD Firma, KundenNr, Anwendung, Ersatzart, Prod_Nr, Strasse\nFIELD Hersteller,Art_name, ArtikelNr, Gruppe1, Gruppe2\nFIELD I_Groesse, I_Speed, I_SpGr\nFIELD K_Nummer, Intern1\n\nLOCAL nTotal, nCount, nPos, nLast\nLOCAL nChoice &#58;= nRadio\nLOCAL lAll &#58;= &#40;nChoice == 7&#41;\nLOCAL cExt &#58;= ORDBAGEXT &#40;&#41;\nLOCAL aGrp &#58;= ReadTyp &#40;&#41;\nLOCAL i &#58;= 1\n\nLOCAL aIndex &#58;= &#123;&#46;f&#46;,&#46;f&#46;,&#46;f&#46;,&#46;f&#46;,&#46;f&#46;,&#46;f&#46;&#125;, nStart\n\nIF lAll\n  nRadio--\n  FOR i &#58;= 1 TO nRadio\n    aIndex&#91;i&#93; &#58;= &#46;T&#46;\n  NEXT\n  nStart &#58;= 1\nELSE\n  aIndex&#91;nRadio&#93; &#58;= &#46;T&#46;\n  nStart &#58;= nRadio\nENDIF\n\nlEnd&#58;=&#46;F&#46;\nCLOSE ALL   // Alle Dateien schließen\n\nFOR i &#58;=  nStart TO nRadio\n\nDO CASE\nCASE aIndex&#91;idx_PROD&#93;\n\n  FErase &#40;&quot;Product&quot;+cExt&#41;\n  USE Product NEW\n  nLast &#58;= LastRec&#40;&#41;\n  nPos &#58;= 0\n  oMeter&#58;SetRange &#40;0, nLast&#41;\n  oMeter&#58;Refresh&#40;&#41;\n  nCount &#58;= INT &#40;oMeter&#58;nTotal / 100&#41;\n  nCount &#58;= IIF &#40;nCount &lt; 1, 1, nCount&#41;\n\n oText&#58;Varput &#40;&quot;Indiziere Produktdaten &#40;1 von 42&#41;&quot;&#41;; oText&#58;Refresh&#40;&#41;//;nPos &#58;= 0\n  INDEX ON UPPER &#40;SubStr&#40;Hersteller,1,10&#41;&#41;+SUBSTR&#40;Gruppe2,1,3&#41; TAG Herst ;\n        EVAL &#40;oMeter&#58;Set &#40;RECNO&#40;&#41;&#41;, SysRefresh&#40;&#41;, !lEnd&#41; EVERY nCount\n\n&#46;&#46;&#46;&#46;\n\noMeter&#58;nTotal &#58;= 100\noMeter&#58;Set&#40;0&#41;\noMeter&#58;Refresh&#40;&#41;\noText&#58;Varput &#40;&quot;Indiziere&#46;&#46;&#46;&quot;&#41;; oText&#58;Refresh&#40;&#41;\n\nCLOSE ALL\n\nNEXT\n\nRETURN\n [/code:1ngrq2jx]\n\nand in the rc-file\n\n[code:1ngrq2jx]\nCONTROL &quot;&quot;, 1000, &quot;msctls_progress32&quot;, 0 | WS_CHILD | WS_VISIBLE, 9, 106, 136, 9\n[/code:1ngrq2jx]\n\nStefan','',0,'AIA=','1ngrq2jx',1,0,'',130,0,0),(25682,5675,20,154,0,'151.81.0.192',1169837188,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:97yh0bi3]Visto e provato. Eppure ti giuro che non vedo alcuna differenza... <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> [/quote:97yh0bi3]\nEnrico,\nsembra incredibile anche a me!!!\nl\'importante è che ora funziona anche a me <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','97yh0bi3',1,0,'',154,0,0),(25683,5777,6,850,0,'200.41.163.103',1169837915,1,0,1,1,1,0,'','','Gracias por contestar Rene, los RDDADS que uso son:\n\nads1.c,v 1.97 2006/01/30\nadsfunc.c,v 1.71 2005/12/11 \nadsmgmnt.c,v 1.12 2006/01/30\nrddads.h,v 1.12 2005/10/30\n\ny uso la ACE32.DLL  y AXCWS32.DLL ambas clientes de la version del Advantage 6.0 y de fecha 26/02/2001.\nDesde ya muchas gracias.\n\nAndres','',0,'gA==','3fpieyc4',1,0,'',850,0,0),(25684,5769,6,774,0,'200.72.179.47',1169839208,1,0,1,1,1,1,'','RENE FLORES UNA MANITO PORFIS','TWindow():SelFont(), con esto se abre la ventana de fuentes,, bueno tu la conoces de sobra:: esa en la cual puedes elejir:  la fuente , el estilo, el tamaño, el color,, etc...\n\npero como lo conecto al programa\n\nlo q quiero hacer es desde el menu principal el la barra inferior he puesto un bitmap con un ACTION TWindow():SelFont() y funciona \n\npero ahi la duda,, al momento de imprimir como paso esos parametros al Objeto oPrinter..\nle he dado mas vueltas y vueltas y no veo como\nhe tratado con oPrn:SetFont(oFont),, algo hago mal\n\nlo que quiero es q el usuario elija el tipo de letra, el color el tamaño  y esos parametros aplicarlos a una impresion,, eso es todo,,, se puede hacer\n\nGRACIAS por tu ayuda...','',0,'gA==','o2fx6e81',1,0,'',774,0,0),(25685,5780,6,238,0,'201.120.130.183',1169839923,1,0,1,1,1,0,'','Una de TXBrowse multiple lineas...','Es posible hacer un grid con txbrowse, pero con multiples lineas en los registros no en los encabezados, alguien podria hecharme un cable por favor...\n\nGracias\n\nSambrano, Luis <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gA==','507njqcq',1,0,'',238,0,0),(25686,5778,6,891,0,'148.243.37.162',1169840109,1,0,1,1,1,0,'','Re: Como puedo usar un RC','[quote=&quot;ecuevas&quot;:18yujmz9]Hola buen dia\n\nSoy usuario nuevo FWH y no se como enlazo los RC al programa, estoy usando el VeRCE pero no me los liga, no se si esta mal configurado o desde el programa esta mal ya que en FW le pongo SET RESOURCE TO \"EJEMPLO.DLL\" y en FWH no lo acepta, como lo hago en FWH. El procedimiento que sigo en el VeRCE activo el check Archivo de Recursos (RC) y todos los demás check los dejos inactivos.\nYa lo intente con algunos programa que vienen de ejemplo pero no funciona, espero me puedan ayudar gracias.[/img][/quote:18yujmz9]\n\nHola amigo, tus preguntas hazlo en el foro de FiveWin xHarbour ó Clipper, aqui es para aportacion de novedades de fuentes.\nAh tal vez tengas mal configurado tu VeRCE, si en algo te puedo ayudar contactame a mi correo o haz la pregunta de foro en español, como te indique desde principio\nAtte: Adriano C. C. \n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'gA==','18yujmz9',1,0,'',891,0,0),(25687,5781,2,774,0,'200.72.179.47',1169841584,1,0,1,1,1,1,'','Miguel Rivera','Miguel dime para app. usas .RC\n\nsi es asi, usas wordshop..','',0,'gA==','3j9qrn1c',1,0,'',774,0,0),(25688,5781,2,812,0,'201.236.178.59',1169842162,1,0,1,1,1,0,'','Re: Miguel Rivera','Amigo:\n\nNo uso .RC, siempre he usado DLL\n\nSaludos,\n\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:2e6kg8c1]Miguel dime para app. usas .RC\n\nsi es asi, usas wordshop..[/quote:2e6kg8c1]','',0,'gA==','2e6kg8c1',1,0,'',812,0,0),(25689,5782,6,774,0,'200.72.179.47',1169842865,1,0,1,1,1,1,'','RENE FLORES','TWindow():SelFont(), con esto se abre la ventana de fuentes,, bueno tu la conoces de sobra:: esa en la cual puedes elejir: la fuente , el estilo, el tamaño, el color,, etc... \n\npero como lo conecto al programa \n\nlo q quiero hacer es desde el menu principal el la barra inferior he puesto un bitmap con un ACTION TWindow():SelFont() y funciona \n\npero ahi la duda,, al momento de imprimir como paso esos parametros al Objeto oPrinter.. \nle he dado mas vueltas y vueltas y no veo como \nhe tratado con oPrn:SetFont(oFont),, algo hago mal \n\nlo que quiero es q el usuario elija el tipo de letra, el color el tamaño y esos parametros aplicarlos a una impresion,, eso es todo,,, se puede hacer \n\nGRACIAS por tu ayuda...\n_________________\nMi segundo amor es Programar','',0,'gA==','1pad39fz',1,0,'',774,0,0),(25690,5781,2,774,0,'200.72.179.47',1169843972,1,0,1,1,1,1,'','','y como estas incorporando TSBROWSE a tu DLL\n..\n\npara el diseño usas Wordshop.. u otro PellesC\n\n\nusas REDEFINE BROWSE ...blabla.bla\n\nno tienes algun mail  de hotmail para comunicarnos','',0,'gA==','mgqi0ic8',1,0,'',774,0,0),(25691,667,6,393,0,'200.47.185.10',1169848417,1,0,1,1,1,0,'','','Hola Rochinha, ya entre a la pagina que me indicaste, pero mi pregunta es esta lib trabaja con FWH25 .\nporque cuando lo compilo me sale este error:\n\nLinking...\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFWNDRUN\n\nporque el bat xhb610.bat hace referencia al FWH27.\n\nHe visto el programa customer y me parece muy bien que sea similar su programacion a la de FW, ya que usa Adokip, AdoGotop,.\nEspero tu respuesta.\nGracias.\nDaniel\nLima.-Peru','',0,'gA==','340xvg97',1,0,'',393,0,0),(25692,667,6,123,0,'83.59.158.89',1169848532,1,0,1,1,1,0,'','','Hola René,\n\nPermíteme una opinión  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[quote:vkppusof]No te recomiendo usar ODBC, utiliza mejor ADO, funciona perfecto con MySQL, solo necesitas descargar el servidor, y el MyODBC que es el driver que te va a servir para conectarte tanto por ODBC como por ADO. [/quote:vkppusof]\n\nAdo con MySql va muy bien por que el odbc de MySql va muy bien.  Si el proveedor oledb u odbc de un origen de datos no va muy bien, ADO no lo mejora.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','vkppusof',1,0,'',123,0,0),(25693,667,6,397,0,'201.13.91.94',1169852050,1,0,1,0,1,1,'','','JLCapel\n\nColocaste bien, ADO solo intercambia la interface, facilitando-la.\n\nDarteagal\n\nSolo necesito saber la version de tu Harbour/Xharbour.\n\n@braços :?)','',0,'gA==','1d9fab3g',1,0,'',397,0,0),(25694,5756,6,661,0,'189.155.14.219',1169852656,1,0,1,1,1,0,'','','gracias Rene funciono de lujo!!!\n\nsaludos','',0,'gA==','2a830ztn',1,0,'',661,0,0),(25695,5674,3,34,0,'68.4.154.81',1169854720,1,0,1,1,1,1,'','GX Reports','Reinaldo,\n\nI worked closely with Rene testing the GX Reports and then his follow up project which still exists.  I think its safe to say he was burned out with some unpleasant experiences \"marketing\" GX and so he moved on to the Visual Studio crowd hoping for a better audience for his products.  I found GX to be stable and encouraged him to bring the same features to 32 bit.\n\nI think its fair to say he was frustrated with the same type of line I often see on this forum which is \"we need something for free.\"  I\'m not against Open Source projects, but I am amazed at how often people assume they should get professional products without paying.  Most of us know we can\'t live in a home, eat a good diet, and care for our families without an income.  Sometimes the idea that \"it should be free\" is quickly translated to \"its ok to pass it around and not pay the programmer.\"  When that happens, the 3rd party vendors finally walk away.\n\nOver the years ( and I\'ve seen many ... I\'ve been writing programs since CP/M ) I\'ve seen a lot of excellent 3rd party products be terminated because the developers could not earn enough to continue with their work.  \n\nI like the idea of a report generator that my clients can use.  However, I do all of the reports in my software in my editor and they work fine.   After all, reports are really data, not publications, so they are not hard to design using the tPrinter class.\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2jezctbi',1,0,'',34,0,0),(25696,4332,6,393,0,'200.47.185.10',1169854977,1,0,1,1,1,0,'','','Enrique si no es mucha molestia podria indicarme tu mail perosnal, para hacerte algunas consultas.\nGracias.\nDaniel\nLima-Peru\n<!-- e --><a href=\"mailto:darteagal@yahoo.com.mx\">darteagal@yahoo.com.mx</a><!-- e -->','',0,'gA==','3exbggqb',1,0,'',393,0,0),(25697,5771,6,913,0,'189.136.167.135',1169856083,1,0,1,1,1,1,'','Gracias pero no funciono','Gracias Patricio ya lo probe pero creo que no funciona bien <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->   me hace un  SButtonH.LIB pero de tamaño de 1k  creo que es muy chiquito para ser una libreria <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  \n\n\nGracias y saluditos\n\n\nAida','',0,'gA==','22w511pw',1,0,'',913,0,0),(25698,5783,3,303,0,'72.199.41.171',1169861438,1,0,1,1,1,0,'','IE ActiveX problem','I am trying to view an XML file using IE and activeX. When I call the function using the ON INIT clause of ACTIVATE WINDOW it works fine. But when I call the same function from a button all I get is a blank screen. See my code below. \n\nI have tried putting sysfresh() in several places but that didn\'t help.\n\nAny ideas?\n\nI am using FWH Sept 2006 build/ xHarbour. You can use any HTML or XML file to test the code.\n\nJames\n\n[code:32pv641f]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd, oBar\n   define window oWnd\n   define buttonbar oBar of oWnd\n   define button of oBar action viewXML&#40;&#41;  // Doesn\'t work\n   activate window oWnd on init viewXML&#40;&#41;  // Does work\nreturn nil\n\nfunction viewXML&#40;cFile, cPath&#41;\n\n   local oWnd, oActiveX, oBar\n\n   default cPath &#58;= &#40;cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41;&#41;\n   default cFile&#58;= &quot;test&#46;xml&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;Test XML Report&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX\n\n   oActiveX&#58;Do&#40; &quot;Navigate&quot;, cPath+cFile &#41;\n\n   ACTIVATE WINDOW oWnd\n\n   oActiveX&#58;end&#40;&#41;\n\nreturn nil[/code:32pv641f]','',0,'AIA=','32pv641f',1,0,'',303,0,0),(25699,5784,6,925,0,'201.222.174.41',1169863091,1,0,1,1,1,0,'','uso clase dtpicker','sabe alguien porque al usar la clase dtpicker, no se puede dejar como fecha vacia o en blanco el get  Ctod(\"\"). \n no pasa lo mismo con la opcion timepick, porque le indico al get que viene vacio  y me deja inactivo el checkbox si alguien tiene un ejemplo que me puda orientar.  yo baje el archivo sysdatetime32.rar que viene con un  ejemplo y esta ok pero al compilar y generar el ejecutable nuevamente no me respeta la condicion de fecha vacia.\n\nutilizo fwh 2.8  xharbour  build  0.99.61 intl (simplex), pelles\n\n[/code]','',0,'','vkfpoalh',1,0,'',925,0,0),(25700,5783,3,15,0,'59.105.13.95',1169864745,1,0,1,1,1,0,'','','Hello\n\nSame as me.\nI don\'t know FWH\'s ActiveX problem or Compatible problem as code.\n\nRegards,\n\nRichard','',0,'','xd42vcgj',1,0,'',15,0,0),(25701,5785,3,69,0,'74.13.44.187',1169867066,1,0,1,1,1,0,'','Button in Window/Dialog Title bar','Hi Everybody,\n\nIs it possible to place a button in the title bar of either a window or a dialog?\n\n\nThanks,\n\nJeff','',0,'','25apdzh1',1,0,'',69,0,0),(25702,667,6,393,0,'190.40.192.121',1169867981,1,0,1,1,1,0,'','','Es el que vino con el disco\nharbour: Alpha build 44.0 (flex)\nxharbour : build 0.99.3 (simplex)\n\nDaniel\nP.D. recien estoy usando estas bibliotecas , siempre use clipper+fw','',0,'','15jiia39',1,0,'',393,0,0),(25703,5783,3,69,0,'74.13.44.187',1169870373,1,0,1,1,1,0,'','','Hi James,\n\nI have not yet played with ActiveX but I tried messing aroud with your sample.\n\nStrange but if you REMOVE the:\n\noActiveX&#058;End() \n\n\nIt will work via the button.\n\nHope this helps.\n\nJeff','',0,'','tcscymnh',1,0,'',69,0,0),(25704,5786,6,913,0,'189.136.167.135',1169874170,1,0,1,1,1,1,'','me ayudan me sale error al compilar ejemplo testxbrw','[b:8bzg0u0k]Hola\n\ncompile el ejemplo testxbrw para conocerlo  y me sale este error  por que sera <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> [/b:8bzg0u0k]\n\nHarbour Compiler Alpha build 44.0 (Flex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\FWH\\SAMPLES\\testxbrw.prg\'...\nLines 690, Functions/Procedures 21\nGenerating C source output to \'C:\\FWH\\SAMPLES\\testxbrw.hrb\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nc:\\fwh\\samples\\testxbrw.hrb:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_ADSSETSERVERTYPE\' referenced from C:\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSSETFILETYPE\' referenced from C:\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSKEYCOUNT\' referenced from C:\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSGETRELKEYPOS\' referenced from C:\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN_ADSSETRELKEYPOS\' referenced from C:\\FWH\\SAMPLES\\TESTXBRW.OBJ\nError: Unresolved external \'_HB_FUN__ADS\' referenced from C:\\FWH\\SAMPLES\\TESTXBRW.OBJ\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting C:\\FWH\\SAMPLES\\testxbrw.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n\n\n[b:8bzg0u0k]ATENTAMENTE\n\nyo la preguntona <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaluditos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> [/b:8bzg0u0k]','',0,'QA==','8bzg0u0k',1,0,'',913,0,0),(25705,5757,3,705,0,'61.0.136.123',1169875904,1,0,1,1,1,0,'','','Thankyou James for your suggestion. Thanks to Detlef for your efforts.[b:3p184hk8] I want to give special thanks to Antonio for his suggestion[/b:3p184hk8]. His coding knowledge is realy un-predictable. Final solution comes from his advice.\n\nNow it is working fine after doing the necessary modification in window.prg. After solving this problem, one more proble appears now. In listbox the result of ITEMS aDataFiles() are not showing any data. But while I click Tag All, it is selected and working according to next choice.\n\nWhat could be the reason? Can you tell me?\n\nWith Regards\nArindam','',0,'QA==','3p184hk8',1,0,'',705,0,0),(25706,5787,3,707,0,'222.124.20.54',1169876682,1,0,1,1,1,0,'','Where  is HBADOX61.LIB ?','Hi All or Mr. Rochinha !\n\nCan you give me HBADOX61.LIB and example source code ?\n\nThank\'s for help\n\nRegards\nAreang','',0,'QA==','3221j2a5',1,0,'',707,0,0),(25707,5783,3,707,0,'222.124.20.54',1169878666,1,0,1,1,1,0,'','','Hi All !\n\nFor any window dialog, please do not put anything after this :\n\nACTIVATE WINDOW oWnd \n\n&gt;&gt;&gt;   oActiveX&#058;end() &lt;&lt;&lt;&lt;\nSometimes get error.\n\nChange to :\nACTIVATE WINDOW oWnd valid ( oActiveX&#058;End(), .t. )\n\nRegards\nAreang','',0,'QA==','2kmz0aef',1,0,'',707,0,0),(25708,5787,3,15,0,'59.105.13.95',1169879142,1,0,1,1,1,0,'','','Hello areang,\n\nI have it from rochinha. But only LIB not include full source code.\n\nRegards,\n\nRichard','',0,'QA==','3hokw176',1,0,'',15,0,0),(25709,5649,3,213,0,'24.174.52.160',1169880803,1,0,1,1,1,0,'','','Enrico,\n\nI have a problem when pressing . to enter numbers to the right of the decimal and the original number to the left of the decimal is not cleared.  \n\nFor example, I have a number 123.45.  If I press .67 the 123 remains and the .67 is entered over the .45.  The old behaviour was to clear the all the digits to the left of the decimal so that the result was only 0.67.\n\nDo you get the same behaviour?  I\'m using PICTURE \"9999.99\". It seems to be a problem with latest xHarbour Jan 07 and FWH.\n\nThanks,\nRandal Ferguson','',0,'QA==','bag6vjkp',1,0,'',213,0,0),(25710,5787,3,707,0,'222.124.20.54',1169881621,1,0,1,1,1,0,'','','Mr. Richard\n\nPlease email to me\n\nThank\'s\n\nRegards\nAreang','',0,'QA==','1ej1qlnl',1,0,'',707,0,0),(25711,667,6,123,0,'83.53.69.224',1169887384,1,0,1,1,1,0,'','','darteagal,\n\n[quote:2mtwnpfu]Es el que vino con el disco \nharbour: Alpha build 44.0 (flex) \nxharbour : build 0.99.3 (simplex) [/quote:2mtwnpfu]\n\nUtiliza el xharbour.  Es el que trae la clase tOleauto. \n\nSaludos,\nJosé Luis Capel','',0,'gA==','2mtwnpfu',1,0,'',123,0,0),(25712,5742,6,123,0,'83.53.69.224',1169887530,1,0,1,1,1,0,'','','Francisco,\n\n[quote:3dhn3x2v]nomas una ultima pregunta: algun lugar donde documentarme de ado, con todas las monerias que hace?[/quote:3dhn3x2v]\n\n\nMira a ver si tienes este fichero en tu equipo.\n\n[quote:3dhn3x2v]\"C:\\Archivos de programa\\Archivos comunes\\Microsoft Shared\\OFFICE11\\3082\\ADO210.CHM\"[/quote:3dhn3x2v]\n\nNormalmente este fichero de ayuda se instala con el office de MS.\n\nAdicionamente en mi blog ([url:3dhn3x2v]http&#58;//www&#46;capelblog&#46;com[/url:3dhn3x2v]) puedes encontrar un artículo donde indico bibliografía.\n\nSaludos,\nJosé Luis Capel','',0,'kA==','3dhn3x2v',1,0,'',123,0,0),(25713,5757,3,58,0,'84.149.226.86',1169893890,1,0,1,1,1,0,'','','Arindam,\n\nyou may NOT assign [b:dsvj6sw0]ID 0[/b:dsvj6sw0] for yor redesign statement of the listbox.\n\nTry a higher value like i.e. 10\nThis should work.\n\nRegards,\nDetlef','',0,'QA==','dsvj6sw0',1,0,'',58,0,0),(25714,5697,3,58,0,'84.149.226.86',1169894015,1,0,1,1,1,0,'','','Although it\'s a pity we don\'t hear anything about Boris.\n\nHope you\'re ok, Boris!\n\nBest regards\nDetlef','',0,'QA==','2jj7frh1',1,0,'',58,0,0),(25715,5782,6,774,0,'200.72.179.14',1169896360,1,0,1,1,1,1,'','','....','',0,'QA==','1ytijkzm',1,0,'',774,0,0),(25716,5787,3,15,0,'59.105.13.95',1169897225,1,0,1,1,1,0,'','','Hello\n\nI send to you private EMail\n\nRegards,\n\nRichard','',0,'QA==','2uhu8map',1,0,'',15,0,0),(25717,5649,3,6,0,'82.61.28.244',1169901661,1,0,1,1,1,1,'','','Please show a self-contained sample of the problem.\n\nEMG','',0,'QA==','103ps94b',1,0,'',6,0,0),(25718,5783,3,303,0,'72.199.41.171',1169905246,1,0,1,1,1,0,'','','Jeff and Areang,\n\nThanks a lot guys! It works great now. I was pulling my hair out all day trying to solve that. I would have never guessed that the End() call was the problem. It doesn\'t seem logical.\n\nAntonio, any idea why that is happening?\n\nJames','',0,'QA==','2glrzzxi',1,0,'',303,0,0),(25719,5788,3,400,0,'200.205.49.10',1169905393,1,0,1,1,1,1,'','Informaçoes sobre a FdDi2006 ?','Bom Dia\n\nGostaria de saber se a FsDi2006 eh gratuita ou paga ?\n\n@braços Ale','',0,'QA==','3t7pxjps',1,0,'',400,0,0),(25720,5697,3,303,0,'72.199.41.171',1169905743,1,0,1,1,1,0,'','','I too, miss Boris\'s wit and wisdom. He was such a regular vistor for a long time. One does wonder what happened to him.\n\nJames','',0,'QA==','2ioqn5oy',1,0,'',303,0,0),(25721,5697,3,6,0,'82.61.28.244',1169908196,1,0,1,1,1,1,'','','Its last message to xHarbour newsgroup is dated 4 January 2007, recent enough, isn\'t it? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEMG','',0,'QA==','1adgxvuv',1,0,'',6,0,0),(25722,5783,3,6,0,'82.61.28.244',1169908389,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:bima25aw]I would have never guessed that the End() call was the problem. It doesn\'t seem logical.[/quote:bima25aw]\n\nNo, it [b:bima25aw]is[/b:bima25aw] logical. Your secondary window is modeless and oActiveX&#058;End() method is therefore called immediatly.\n\nEMG','',0,'wA==','bima25aw',1,0,'',6,0,0),(25723,5697,3,303,0,'72.199.41.171',1169908983,1,0,1,1,1,0,'','','Enrico,\n\nGood news!\n\nJames','',0,'wA==','1kn7epfp',1,0,'',303,0,0),(25724,5783,3,303,0,'72.199.41.171',1169909336,1,0,1,1,1,0,'','','&gt;No, it is logical. Your secondary window is modeless and oActiveX&#058;End() method is therefore called immediatly. \n\nDuh, I was thinking it was a dialog. I need some sleep--I only had three hours last night...\n\nHmm, then why doesn\'t the activeX object get closed when called from the ON INIT clause? \n\nJames','',0,'wA==','3sws1pkb',1,0,'',303,0,0),(25725,5783,3,6,0,'82.61.28.244',1169910679,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1jmzgcfq]Hmm, then why doesn\'t the activeX object get closed when called from the ON INIT clause?[/quote:1jmzgcfq]\n\nProbably because the second window is modal if created in the ON INIT clause?\n\nEMG','',0,'gA==','1jmzgcfq',1,0,'',6,0,0),(25726,5697,3,58,0,'84.149.226.86',1169910702,1,0,1,1,1,0,'','','Enrico,\n\n[quote:2o8pjlzk]Its last message to xHarbour newsgroup is dated 4 January 2007, recent enough, isn\'t it? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  [/quote:2o8pjlzk]\n\nYes, you\'re right, as usual.\nBut sometimes i\'ve the impression that the old FiveWin NG had a more familiar touch. <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nRegards,\nDetlef[/quote]','',0,'gA==','2o8pjlzk',1,0,'',58,0,0),(25727,5783,3,303,0,'72.199.41.171',1169911004,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Probably because the second window is modal if created in the ON INIT clause? \n\nThat would be a good reason.\n\nJames','',0,'gA==','62utwqld',1,0,'',303,0,0),(25728,5649,3,213,0,'24.174.52.160',1169912094,1,0,1,1,1,0,'','','Enrico,\n\nThanks for the reply.  I was simply compiling a small FWH sample to test.  This sample works when compiled with FWH and xBuilder Mar06 but with xBuilder Oct 06 and Jan 07 I get the behaviour I described.\n\nThanks,\nRandal Ferguson\n\n// Testing GETs\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n   LOCAL oDlg, oGet\n   LOCAL cCad := \"Testing    \" // pad(\"Testing Gets\",40)\n   LOCAL nNum := 0\n   LOCAL dDat := \"Test 2\"\n\n   Set century On\n   Set Date Ansi\n   Set Date format \"mm/dd/yyyy\"\n\n   SET _3DLOOK ON\n\n   msginfo(\"testget\")\n\n   DEFINE DIALOG oDlg TITLE \"TGet from \" + FWDESCRIPTION\n   @ 1,    2 SAY \"Text..:\" OF oDlg\n   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 // COLOR \"W/G\" \n   @ 1.8,  2 SAY \"Number:\" OF oDlg\n   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE \"9999999.99\"\n   @ 2.6,  2 SAY \"Date:\" OF oDlg\n   @ 3,    6 GET oGet VAR dDat OF oDlg SIZE 60, 10 // WHEN .f. // \"@D\"\n   oGet:lDisColors = .f. // don\'t use standard disabled colors\n   @ 3,    7 BUTTON \"&amp;Ok\" OF oDlg SIZE 30, 12 ACTION oDlg:End()\n   @ 3,   16 BUTTON \"&amp;Cancel\" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID MsgYesNo( \"Want to end ?\" )\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nprocedure appsys\nreturn','',0,'gA==','2tv4cc9o',1,0,'',213,0,0),(25729,5649,3,6,0,'82.61.28.244',1169915250,1,0,1,1,1,1,'','','Confirmed. Just reported to the xHarbour developers list with the following sample:\n\n[code:srt9vhty]#include &quot;Inkey&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL GetList &#58;= &#123;&#125;\n\n    LOCAL nVar &#58;= 123&#46;45\n\n    SETKEY&#40; K_F2, &#123; || GetList&#91; 1 &#93;&#58;ToDecPos&#40;&#41; &#125; &#41;\n\n    CLS\n\n    @ 10, 10 GET nVar;\n             PICTURE &quot;@E 999&#46;99&quot;\n\n    READ\n\n    RETURN NIL[/code:srt9vhty]\n\nEMG','',0,'AIA=','srt9vhty',1,0,'',6,0,0),(25730,5789,6,400,0,'201.26.22.163',1169916489,1,0,1,1,1,1,'','Informaçao sobre a FsDI2006 ??????','Bom Tarde \n\nGostaria de saber se a FsDi2006 eh gratuita ou paga ? \n\n@braços Ale','',0,'AIA=','lshxgxl6',1,0,'',400,0,0),(25731,5649,3,2,0,'87.218.146.80',1169917579,1,0,1,1,1,1,'','','Enrico,\n\nThanks!','',0,'AIA=','oz8gclj3',1,0,'',2,0,0),(25732,5783,3,2,0,'87.218.146.80',1169917839,1,0,1,1,1,1,'','','Enrico is right, the main window is modal and others windows are non modal. If ON INIT clause used then the second window is activated as the main one, thus it becomes modal.','',0,'AIA=','2c1a3kzu',1,0,'',2,0,0),(25733,5643,6,400,0,'201.26.22.163',1169923961,1,0,1,1,1,1,'','','Se fosse possivel, poderia postar os produtos, preços e forma de pagto, para nos ?\n\nEu tenho interesse na Officebar e na FsDi2006.\n\n@braços Ale','',0,'AIA=','qzlt9tmz',1,0,'',400,0,0),(25734,5649,3,213,0,'24.174.52.160',1169924570,1,0,1,1,1,0,'','','Enrico,\n\nThanks alot!  I really appreciate you taking the time to look at this.\n\nBest Regards,\nRandal Ferguson','',0,'AIA=','vxffy39h',1,0,'',213,0,0),(25735,5782,6,138,0,'189.141.72.221',1169933898,1,0,1,1,1,1,'','','ChooseFont() te devuelve un array con los atributos de la letra seleccionada.\n\nPosteriormente, con esos atributos, tu puedes crear tus fonts y pegarselos a tu reporte, pero ojo, el Font tendras qeu crearlo con TFont():New(), en vez de hacerlo con el comando.','',0,'AIA=','q0cb65vj',1,0,'',138,0,0),(25736,5788,3,49,0,'62.13.172.78',1169936849,1,0,1,1,1,1,'','','fsdi2006 is free but it not run well\nWe are working to resolve a problem...\nyou can found the fsdi class at [url:11k3t62s]http&#58;//www&#46;avemundi&#46;com/archivos/000233&#46;html[/url:11k3t62s]\n\nthe author not give all sources code and the class not run ok there are many errors but \nif you found a solution you\'re welcome !!!','',0,'EA==','11k3t62s',1,0,'',49,0,0),(25737,5643,6,28,0,'87.218.47.252',1169937299,1,0,1,1,1,0,'','','Ya te he enviado la información a tu direccion de correo.\n\nAlready I have send you the information to your email.\n\nA greeting.\n\nPaco Garcia','',0,'EA==','243qqk7f',1,0,'',28,0,0),(25738,5786,6,913,0,'189.136.167.135',1169941510,1,0,1,1,1,1,'','Hola!!!!!!!!!!!!!!!!!!!!','Ya pude compilar el ejemplo me puse a leer y leer y leer y leer  en todo el foro y encontre la respuesta\n\nsi esta muy padre el xBrowse <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: -->  ya me anime y quitandome el miedo ya guarde el listbox en la cajita de recuerdos y empese a ponerlo en mi programita hasta el momento todo bien pero si me atoro ya saben  empesare de preguntona\n\nGracias  y un bonito fin de semana\n\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'EA==','1br95m6a',1,0,'',913,0,0),(25739,5643,6,913,0,'189.136.167.135',1169942229,1,0,1,1,1,1,'','Que es CanalFive??????','Hola\n\nQue es CanalFive <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nSaluditos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'EA==','2admbbtj',1,0,'',913,0,0),(25740,5790,3,49,0,'62.13.172.78',1169945549,1,0,1,1,1,1,'','HELP FOR MSGMETER','hOW  I CAN MAKE TO INSERT CONTROL PROGRESS INSTEAD METER ON MSGMETER FUNCTION ?\n\n [code:242lidd2]\n\n  function MsgMeter1&#40; bAction, cMsg, cTitle &#41;\n\n   local oDlg, oMeter, oText, oBtn, oFont\n   local lEnd &#58;= &#46;f&#46;, lCancel &#58;= &#46;f&#46;\n   local nVal &#58;= 0\n\n   DEFAULT bAction &#58;= &#123; || nil &#125;,;\n           cMsg &#58;= &quot;Processing&#46;&#46;&#46;&quot;, cTitle &#58;= &quot;Please, wait&quot;\n\n   DEFINE FONT oFont NAME GetSysFont&#40;&#41; SIZE 0, -8\n\n   DEFINE DIALOG oDlg FROM 5, 5 TO 13, 45 TITLE cTitle FONT oFont\n\n   @ 0&#46;2, 0&#46;5  SAY oText VAR cMsg SIZE 130, 10 OF oDlg\n\n   &#91;b&#93;@ 1,   0&#46;5  PROGRESS oMeter VAR nVal TOTAL 10 SIZE 150, 10 OF oDlg&#91;/b&#93;\n\n\n   @  2&#46;2,  10&#46;4  BUTTON oBtn PROMPT &quot;&amp;Cancel&quot; OF oDlg ;\n      ACTION &#40; lEnd&#58;= &#46;t&#46;, lCancel&#58;= &#46;t&#46; &#41; SIZE 32, 11\n\n   // This block gets evaluated only the first time the DialogBox is painted !!!\n   oDlg&#58;bStart = &#123; || Eval&#40; bAction, oMeter, oText, oDlg, @lEnd, oBtn &#41;,;\n                      lEnd &#58;= &#46;t&#46;, oDlg&#58;End&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID lEnd\n\n   oFont&#58;End&#40;&#41;\n\nreturn lCancel[/code:242lidd2]\n\n\n\ni TRY  WITH   [b:242lidd2]@ 1,   0.5  PROGRESS oMeter VAR nVal TOTAL 10 SIZE 150, 10 OF oDlg[/b:242lidd2]\n\nBUT IT NOT RUN OK','',0,'QIA=','242lidd2',1,0,'',49,0,0),(25741,5791,3,69,0,'74.13.51.218',1169949366,1,0,1,1,1,0,'','Save memory vars to text file','Hi All,\n\n\nIs there a way to store ALL memory var\'s to a text file?\n\nI\'ve tried SAVE TO  but it does not give me ALL var\'s.\n\n\nThanks,\n\nJeff','',0,'QIA=','9mu6cgt7',1,0,'',69,0,0),(25742,1523,6,913,0,'189.136.167.135',1169976712,1,0,1,1,1,1,'','Muy Tarde:(','Creo que llegue tarde para probar lo transparente <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'QIA=','j50xxova',1,0,'',913,0,0),(25743,1523,6,439,0,'200.125.50.32',1169977234,1,0,1,1,1,1,'','','estoy a las órdenes','',0,'QIA=','x4zpmav7',1,0,'',439,0,0),(25744,1523,6,913,0,'189.136.167.135',1169978331,1,0,1,1,1,1,'','Hola','Hola lei sobre lo de transparente uso dsay pero mis botones siempre salen sin el color del fondo es decir con el bitmap que le pongo al cuadrito de dialogo e leido que es para fwh nuebo creo que el mio ya esta viejito <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  abra otra manera para hacer mis botones transparentes <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\n\nGracias\n\nAida','',0,'QIA=','1dmdexdt',1,0,'',913,0,0),(25745,5791,3,67,0,'62.235.24.48',1169981346,1,0,1,1,1,0,'','','Jeff\n\nFrom ng :\n\n     SAVE copies public and private memory variables visible within the\n     current procedure or user-defined function to a memory (.mem) file.\n     Arrays and local and static variables, however, cannot be SAVEd.  When\n     variables are SAVEd, they are copied without any reference to scope.\n     Variables hidden by PRIVATE or LOCAL declarations are not SAVEd.\n\n\nHowever , in errorsysw.prg you have an example from how local variables from a procedure are retrieved\n\nFrank','',0,'QIA=','11s8g262',1,0,'',67,0,0),(25746,1523,6,63,0,'88.11.31.105',1169985078,1,0,1,1,1,0,'','','Antonio:\nEsta modificación es compatible con Vista?  Quiero decir: Un brush NUL produce ya un diálogo de fondo transparente?\nTengo un Vista RTM (no Beta).  Si quieres, te lo puedo probar.\nRafael','',0,'QIA=','2lipjwxy',1,0,'',63,0,0),(25747,5792,3,435,0,'200.155.207.227',1169986008,1,0,1,1,1,0,'','ADO com Excel','Ola amigos,\n\nPreciso ler planilha Excel com ADO, é possivel ?\n\ngostaria de um exemplo\n\nAri','',0,'QIA=','pcf4pfnh',1,0,'',435,0,0),(25748,5793,6,63,0,'88.11.31.105',1169986761,1,0,1,1,1,0,'','Más sobre imprimir desde ActiveX','Estoy utilizando el siguiente código para presentar una página Html en una ventana para ver e imprimir un mapa de Google Maps:\n[code:1gs6fryj]DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; \nDEFINE BUTTONBAR oBar OF oWnd \nDEFINE BUTTON OF oBar ACTION oActivex&#58;Do&#40; &quot;ExecWB&quot;, 6,1 &#41; // Gracias, Biel!!!&#41;\noActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&#46;2&quot; &#41; \noWnd&#58;oClient = oActiveX // To fill the entire window surface \noActiveX&#58;Do&#40;&quot;Navigate2&quot;,&#40;CurDrive&#40;&#41; + &quot;&#58;\\&quot;+CurDir&#40;&#41;+&quot;\\MiHtml&#46;htm&quot;&#41;&#41; \nACTIVATE WINDOW oWnd \n[/code:1gs6fryj]\nY MiHtml.html es:\n[code:1gs6fryj]&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1&#46;0 Strict//EN&quot;\n    &quot;http&#58;//www&#46;w3&#46;org/TR/xhtml1/DTD/xhtml1-strict&#46;dtd&quot;&gt;\n&lt;html xmlns=&quot;http&#58;//www&#46;w3&#46;org/1999/xhtml&quot;\n      xmlns&#58;v=&quot;urn&#58;schemas-microsoft-com&#58;vml&quot;&gt;\n  &lt;head&gt;\n    &lt;meta http-equiv=&quot;content-type&quot; content=&quot;text/html; charset=utf-8&quot;/&gt;\n    &lt;script src=&quot;http&#58;//maps&#46;google&#46;com/maps?file=api&amp;amp;v=2&quot;\n            type=&quot;text/javascript&quot;&gt;&lt;/script&gt;\n    &lt;script type=&quot;text/javascript&quot;&gt;\n    function load&#40;&#41; &#123;\n      if &#40;GBrowserIsCompatible&#40;&#41;&#41; &#123;\n        var map = new GMap2&#40;document&#46;getElementById&#40;&quot;map&quot;&#41;&#41;;\n        map&#46;addControl&#40;new GSmallMapControl&#40;&#41;&#41;;\n        map&#46;setCenter&#40;new GLatLng&#40;42&#46;0, 1&#46;0&#41;, 13&#41;;\n    &#125;\n    &#125;\n    &lt;/script&gt;\n  &lt;/head&gt;\n  &lt;body onload=&quot;load&#40;&#41;&quot; onunload=&quot;GUnload&#40;&#41;&quot;&gt;\n    &lt;div id=&quot;map&quot; style=&quot;width&#58; 2000px; height&#58; 750px&quot;&gt;&lt;/div&gt;\n  &lt;/body&gt;\n&lt;/html&gt;\n[/code:1gs6fryj]\n\nComo veis, defino la ventana de Google Maps con 2000 pixels de ancho pero, claro, no cabe en la pantalla, así que aparece una barra de scroll horizontal que permite desplazar la imagen a izquierda y derecha.  Pero al imprimir, sólo se imprime la porción izquierda de la imagen (lo que cabía originalmente en pantalla).\nMi pregunta es:  ¿Hay forma de imprimir la imagen COMPLETA, es decir, sus 2000 pixels de ancho aunque no se vea completa en pantalla?\nGracias\n\nRafael','',0,'AIA=','1gs6fryj',1,0,'',63,0,0),(25749,5788,3,400,0,'201.42.92.154',1169990899,1,0,1,1,1,1,'','','Bom Dia Silvio,\n\nFiz o DownLoad da FsDi2006, mas, esta faltando a VMenu.ch .\n\nNao consigo compilar sem ela.\n\n@braços Ale','',0,'AIA=','enh4kpj7',1,0,'',400,0,0),(25750,5794,6,400,0,'201.42.92.154',1169991741,1,0,1,1,1,1,'','Abas, na Lateral da Dialog ????','Bom Dia,\n\nQual Classe eu uso para colocar Abas (Folder) na Lateral de uma Dialog, ou na parte inferior dela ?\n\n@braços Ale','',0,'AIA=','17u4om6j',1,0,'',400,0,0),(25751,5735,3,335,0,'68.193.88.53',1169993447,1,0,1,1,1,0,'','GX Reports','On Friday, Jan 26th, Tim Stone entered the following comment buried far down in the \"Report Generator\" subject. To make his insightful comments more visible, I\'m taking the liberty of replicating them here...\n\nFrom Tim Stone:\n\nReinaldo,\n\nI worked closely with Rene testing the GX Reports and then his follow up project which still exists. I think its safe to say he was burned out with some unpleasant experiences \"marketing\" GX and so he moved on to the Visual Studio crowd hoping for a better audience for his products. I found GX to be stable and encouraged him to bring the same features to 32 bit.\n\nI think its fair to say he was frustrated with the same type of line I often see on this forum which is \"we need something for free.\" I\'m not against Open Source projects, but I am amazed at how often people assume they should get professional products without paying. Most of us know we can\'t live in a home, eat a good diet, and care for our families without an income. Sometimes the idea that \"it should be free\" is quickly translated to \"its ok to pass it around and not pay the programmer.\" When that happens, the 3rd party vendors finally walk away.\n\nOver the years ( and I\'ve seen many ... I\'ve been writing programs since CP/M ) I\'ve seen a lot of excellent 3rd party products be terminated because the developers could not earn enough to continue with their work.\n\nI like the idea of a report generator that my clients can use. However, I do all of the reports in my software in my editor and they work fine. After all, reports are really data, not publications, so they are not hard to design using the tPrinter class.\n\n- Tim Stone','',0,'AIA=','2icnyb2k',1,0,'',335,0,0),(25752,5735,3,335,0,'68.193.88.53',1169995914,1,0,1,1,1,0,'','Open Source development of some FWH tools','Perhaps another problem with making 3rd party development of add-on tools for FWH, for purchase, is that the size of the potential market hasn\'t yet reached the critical mass necessary to provide enough orders to make it worthwhile.  \n\nIn this context, perhaps Open Source development of a few important tools (report generator, browse, query, etc.) would make sense if there was some organizational framework for it.  In the past, there has been informal open source development that has provided a few tools up to a point. (for example: Tcbrowse, Tsbrowse, etc.) But continuity has been lacking.  \n\nFor example, Tcbrowse &amp; Tccolumn and their supporting C routines were origninally contributed by Selim Antar and Harry Van Tassell in 1995.  This browse ensemble is currently provided with FWH, but this standard version is very little advanced from the original. On the sidelines, some developers have greatly improved the Tcbrowse ensemble so that whereas  the standard FWH version is about 48,000 bytes, the much improved version is over 181,000 bytes with countless additions of functionality. As far as I know, only 6 people are using this much enhanced version, and most other Fivewinners aren\'t even aware of it.  A few years ago, Manuel Mercado combined Wbrowse, Tcbrowse (as it existed then) and Tccolumn into a single class, made it available and then went on to other things. (James Bott cleaned up ver. 6.1 somewhat.) However, the current version of Tsbrowse is missing many of the more recent improvements in the 181K version of Tcbrowse.  Clearly, the coherent Open Source development methods used so successfully with Apache, OpenOffice.org, Gimp and other products are not being used to continue development of our add-on tools. Is this to our detriment?\n\nCertainly Antonio cannot be expected to provide this needed continuity for add-on tools development because his efforts have to be focused on the huge effort involved in continuing to advance the development of the underlying FWH engine, which he is doing brilliantly. \n\nSo what do you think? Should we try to apply coherent Open Source development methods to establish continuing development of FWH tools like a browse ensemble, report generator, adhoc query tool?\n\n- Roger','',0,'AIA=','2sgoc4lb',1,0,'',335,0,0),(25753,1523,6,215,0,'189.136.214.10',1169997208,1,0,1,1,1,1,'','¿Alguna imagen que pueda ver?','Yo uso un bmp de fondo para mis dialogos... con ésta nueva funcionalidad no me queda claro exactamente como se muestra ahora.\n¿Alguien puede poner una captura de pantalla para saber de que va el asunto?\n\nGracias\nFernando','',0,'AIA=','3ti16fnw',1,0,'',215,0,0),(25754,5791,3,69,0,'74.13.41.162',1170006157,1,0,1,1,1,0,'','','Actually, what I am looking for is something that will store the memoy in a format similar to:\n\ncTextValue       =    \"This is the text value\"\nnNumberValue  =    123456\n\netc...\n\nI am looking to add some troubleshooting / revocery options to one of my apps but I need to know what is stored in memory.\n\n\nThanks,\nJeff','',0,'AIA=','326mukw8',1,0,'',69,0,0),(25755,5792,3,138,0,'200.65.139.227',1170006325,1,0,1,1,1,1,'','','No necesitas ADO, con OLE es mas que suficiente:\n[code:10ufe4or]\noExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\noExcel&#58;WorkBooks&#58;Open&#40;&quot;yourfile&#46;xls&quot;&#41; \noHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\nnRows &#58;= oHoja&#58;UsedRange&#58;Rows&#58;Count&#40;&#41;\nnCols &#58;= oHoja&#58;UsedRange&#58;Columns&#58;Count&#40;&#41;\n\nUSE filedbf\nFOR nRow &#58;= 2 TO nRows\n      APPEND BLANK\n      For nfrom &#58;= 1 TO nCols\n            FIELDPUT&#40;nFrom, oHoja&#58;Cells&#40;nRow,nCol&#41;&#58;Value&#41;      \n      NEXT\nNEXT\n[/code:10ufe4or]','',0,'AIA=','10ufe4or',1,0,'',138,0,0),(25756,5795,6,180,0,'88.3.194.27',1170007278,1,0,1,1,1,0,'','Impresoras, Preview y PDF','En un archvio .PNG o .JPG tengo un formulario con su encasillado y que fusiono con datos de la siguiente forma:\n[code:1kxvuz3k]\nPRINTER oPrn NAME &quot;Formulario preimpreso&quot;  //PREVIEW\n         oIT = TImage&#40;&#41;&#58;Define&#40; , &quot;IMPRESO&#46;PNG&quot; &#41;\n         oPrn&#58;SayImage&#40; 0, 0, oIT,4800,6800 &#41;\n          //\n          oPrn&#58;CmSay&#40;6&#46;3,3&#46;5, EMPRESAS-&gt;Nombre, oFont4&#41;\n          oPrn&#58;CmSay&#40;6&#46;3,16&#46;8, EMPRESAS-&gt;NIF, oFont4&#41;\n          &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n          &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n[/code:1kxvuz3k]\n\nPues bien, si envio directamente a la impresora todo sale perfecto, cada dato en su casilla. Pero si envio a imprimir en un fichero PDF los datos salen descuadrados e igualmente ocurre en el PREVIEW. ¿ Porqué pasa esto ? \n\nUn saludo,\nManuel Aranda','',0,'AIA=','1kxvuz3k',1,0,'',180,0,0),(25757,5795,6,180,0,'88.3.194.27',1170010018,1,0,1,1,1,0,'','','También he podido comprobar que en algunas impresoras el formulario sale perfecto y en otras extremadamente grande ¿porqué?\n\nSaludos,\nManuel Aranda','',0,'AIA=','2cyrlnjo',1,0,'',180,0,0),(25758,5792,3,435,0,'200.155.195.142',1170012277,1,0,1,1,1,0,'','','o usuário não tem o Excel.\n\nEu já uso desta forma que voce falou Rene, para algumas planilhas com mais de 10.000 linhas, o sistema vai parando ..ficando lento por falta de memoria.. \n\n\ncom ODBC eu fiz assim:\n\n\n[code:2frtg540]Function Teste&#40;oMeter&#41;                     // Ler arquivos Excel com ODBC\n  local oDbc    &#58;= TOdbc&#40;&#41;&#58;New&#40;&#41; // criar o ODBC no Windows !\n  local n         &#58;= 1\n  local oAdo    &#58;= TdbOdbc&#40;&#41;&#58;New&#40;&quot;SELECT * FROM &#91;folha1$&#93;&quot;, oDbc&#41;\n\n  oMeter&#58;nTotal &#58;= oAdo&#58;RecCount&#40;&#41; \n\n  While !oAdo&#58;eof&#40;&#41;\n\n     ++n\n     oMeter&#58;cText &#58;= padr&#40;oAdo&#58;FieldGet&#40;1&#41;,18&#41; + &quot; &quot; + padr&#40; oAdo&#58;FieldGet&#40;2&#41; ,20&#41;\n     oMeter&#58;Set&#40;n&#41;\n     oMeter&#58;refresh&#40;&#41;\n\n     oAdo&#58;skip&#40;&#41;\n  End\n\nreturn nil[/code:2frtg540]\n\n* isto funcionou, mas eu tenho que criar a conexao na maquina do usuario para funcionar, gostaria de algo direto.\n\nAri','',0,'AIA=','2frtg540',1,0,'',435,0,0),(25759,5787,3,397,0,'200.207.60.123',1170012356,1,0,1,0,1,1,'','','Amiguinhos\n\nYou can see examples and the library at <!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/blogado/\">http://www.shoppmarketing.com/blogado/</a><!-- m -->\n\nIn the next month i will update.','',0,'AIA=','2jwi4fxj',1,0,'',397,0,0),(25760,5791,3,69,0,'74.13.41.162',1170012557,1,0,1,1,1,0,'','','I found functions in the manual called:\n\nLogStatics() and Scan()\n\nIt looks like these might help me do what I want but I can not get either of them to work.\n\n\nJeff','',0,'AIA=','3iwc7u9h',1,0,'',69,0,0),(25761,5791,3,397,0,'200.207.60.123',1170012825,1,0,1,0,1,1,'','','Friend\n\nYou can use .INI files to store variables names end data.\n\nMyINI.INI\n[code:1mzz5kgn]\n&#91;VARIABLES&#93;\ncTextValue=&quot;This is the text value&quot; \nnNumberValue=123456 \n[/code:1mzz5kgn]\n\nUse this example:\n[code:1mzz5kgn]\n// Sample showing how to use INI files with FiveWin\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oIni, oBar\n   local cTitle, cMsg, cLogo\n   local nRow  &#58;= 3, nCol &#58;= 5, nWidth &#58;= 50, nHeight &#58;= 50\n   local cBtn1 &#58;= &quot;&quot;, cBtn2 &#58;= &quot;&quot;\n\n   INI oIni FILE &quot;&#46;\\MyApp&#46;ini&quot;\n      GET cTitle  SECTION &quot;main&quot; ENTRY &quot;Title&quot;   OF oIni DEFAULT &quot;FiveWin App&quot;\n      GET cMsg    SECTION &quot;main&quot; ENTRY &quot;Message&quot; OF oIni DEFAULT &quot;Main message&quot;\n\n      GET cLogo   SECTION &quot;Logo&quot; ENTRY &quot;File&quot;    OF oIni\n      GET nRow    SECTION &quot;Logo&quot; ENTRY &quot;Row&quot;     OF oIni\n      GET nCol    SECTION &quot;Logo&quot; ENTRY &quot;Col&quot;     OF oIni\n      GET nWidth  SECTION &quot;Logo&quot; ENTRY &quot;Width&quot;   OF oIni\n      GET nHeight SECTION &quot;Logo&quot; ENTRY &quot;Height&quot;  OF oIni\n\n      GET cBtn1   SECTION &quot;ButtonBar&quot; ENTRY &quot;Button1&quot; OF oIni\n      GET cBtn2   SECTION &quot;ButtonBar&quot; ENTRY &quot;Button2&quot; OF oIni\n   ENDINI\n\n   DEFINE WINDOW oWnd FROM 1, 5 TO 20, 60 ;\n      TITLE cTitle\n\n   DEFINE BUTTONBAR oBar OF oWnd\n\n   if ! Empty&#40; cBtn1 &#41;\n      DEFINE BUTTON OF oBar FILE cBtn1\n   endif\n   if ! Empty&#40; cBtn2 &#41;\n      DEFINE BUTTON OF oBar FILE cBtn2\n   endif\n\n   SET MESSAGE OF oWnd TO cMsg\n\n   @ nRow, nCol BITMAP FILE cLogo SIZE nWidth, nHeight OF oWnd\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:1mzz5kgn]','',0,'AIA=','1mzz5kgn',1,0,'',397,0,0),(25762,5792,3,397,0,'200.207.60.123',1170013022,1,0,1,0,1,1,'','','Amiguinho\n\nComplementando o exemplo do Amigo Rene, neste exemplo voce poderá [b:1n11mxjm]ler e gravar[/b:1n11mxjm] dados em planilhas simples.\n[code:1n11mxjm]\n* \n* ---------------------------------------------------------------- \n* \nFUNCTION OLEExcel&#40;&#41; \n   LOCAL oWnd, oMenu \n   MENU oMenu \n      MENUITEM &quot;&amp;Probar Excel y DBF&quot; \n      MENU \n         MENUITEM &quot;&amp;Leer SIGLAS&#46;XLS&quot; ACTION LEER&#40;&#41; \n         MENUITEM &quot;&amp;Enviar SIGLAS&#46;DBF a Excel&quot; ACTION ENVIAR&#40;&#41; WHEN FILE&#40; &quot;SIGLAS&#46;DBF&quot; &#41; \n         SEPARATOR \n         MENUITEM &quot;&amp;Salir&quot; ACTION oWnd&#58;End&#40;&#41; \n      ENDMENU \n   ENDMENU \n   DEFINE WINDOW oWnd FROM 0,0 TO 20,70 MENU oMenu TITLE &quot;Probar Excel y DBF&quot; \n   ACTIVATE WINDOW oWnd MAXIMIZED \n   RETURN \n\nFUNCTION LEER&#40;&#41; \n   LOCAL oExcel, oHoja, nRows, nCols \n   LOCAL aCampos&#58;=&#123;&#125;, nRow, nCol \n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41; \n   oExcel&#58;WorkBooks&#58;Open&#40;SFN2LFN&#40;cFilePath&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41;+&quot;SIGLAS&#46;xls&quot;&#41;&#41; \n   oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41; \n   nRows &#58;= oHoja&#58;UsedRange&#58;Rows&#58;Count&#40;&#41; \n   nCols &#58;= oHoja&#58;UsedRange&#58;Columns&#58;Count&#40;&#41; \n   FOR nCol &#58;= 1 TO nCols \n      IF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;C&quot; \n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;C&quot;, 80, 0 &#125; &#41; \n\n      ELSEIF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;N&quot; \n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;N&quot;, 15, 4 &#125; &#41; \n\n      ELSEIF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;L&quot; \n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;L&quot;, 1, 0 &#125; &#41; \n\n      ELSEIF ValType&#40; oHoja&#58;Cells&#40; 2, nCol &#41;&#58;Value &#41; = &quot;D&quot; \n         AADD&#40; aCampos, &#123; oHoja&#58;Cells&#40; 1, nCol &#41;&#58;Value, &quot;D&quot;, 8, 0 &#125; &#41; \n      ENDIF \n   NEXT \n   DBCREATE&#40; &quot;EXCEL&quot;, aCampos &#41; \n   USE &quot;EXCEL&quot; NEW \n   FOR nRow &#58;= 2 TO nRows \n      APPEND BLANK \n      FOR nCol &#58;= 1 TO nCols \n         FIELDPUT&#40; nCol, oHoja&#58;Cells&#40; nRow, nCol &#41;&#58;Value &#41; \n      NEXT \n   NEXT \n   CLOSE DATABASES \n   oExcel&#58;Quit&#40;&#41; \n   oHoja&#58;End&#40;&#41; \n   oExcel&#58;End&#40;&#41; \n   MsgInfo&#40; &quot;Foi criado o arquivo EXCEL&#46;DBF&quot; &#41; \n   RETURN \n\nFUNCTION ENVIAR&#40;&#41; \n   LOCAL oExcel, oHoja \n   LOCAL nRow &#58;= 1, nCol \n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41; \n   oExcel&#58;WorkBooks&#58;Add&#40;&#41; \n   oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41; \n   USE &quot;SIGLAS&quot; NEW \n   FOR nCol &#58;= 1 TO FCOUNT&#40;&#41; \n      oHoja&#58;Cells&#40; nRow, nCol &#41;&#58;Value &#58;= FieldName&#40; nCol &#41; \n   NEXT \n   DO WHILE &#46;NOT&#46; EOF&#40;&#41; \n      nRow++ \n      FOR nCol &#58;= 1 TO FCOUNT&#40;&#41; \n         oHoja&#58;Cells&#40; nRow, nCol &#41;&#58;Value &#58;= FieldGet&#40; nCol &#41; \n      NEXT \n      SKIP \n   ENDDO \n   FOR nCol &#58;= 1 TO FCOUNT&#40;&#41; \n      oHoja&#58;Columns&#40; nCol &#41;&#58;AutoFit&#40;&#41; \n   NEXT \n   CLOSE DATABASES \n   oExcel&#58;Visible &#58;= &#46;T&#46; \n   oHoja&#58;End&#40;&#41; \n   oExcel&#58;End&#40;&#41; \n   RETURN \n[/code:1n11mxjm]','',0,'QIA=','1n11mxjm',1,0,'',397,0,0),(25763,5795,6,397,0,'200.207.60.123',1170013256,1,0,1,0,1,1,'','','Amiguinho\n\nE se fixar o tipo de papel\n\n[code:17n0fgml]\n&#46;&#46;&#46;\noPrn&#58;SetPage&#40;9&#41; // 9 indica formato A4\n&#46;&#46;&#46;\n[/code:17n0fgml]\n\nVeja isto:\n[code:17n0fgml]\n   #define DMPAPER_LETTER               1  // Letter 8 1/2 x 11 in\n   #define DMPAPER_LETTERSMALL          2  // Letter Small 8 1/2 x 11 in\n   #define DMPAPER_TABLOID              3  // Tabloid 11 x 17 in\n   #define DMPAPER_LEDGER               4  // Ledger 17 x 11 in\n   #define DMPAPER_LEGAL                5  // Legal 8 1/2 x 14 in\n   #define DMPAPER_STATEMENT            6  // Statement 5 1/2 x 8 1/2 in\n   #define DMPAPER_EXECUTIVE            7  // Executive 7 1/4 x 10 1/2 in\n   #define DMPAPER_A3                   8  // A3 297 x 420 mm\n   #define DMPAPER_A4                   9  // A4 210 x 297 mm\n   #define DMPAPER_A4SMALL             10  // A4 Small 210 x 297 mm\n   #define DMPAPER_A5                  11  // A5 148 x 210 mm\n   #define DMPAPER_B4                  12  // B4 &#40;JIS&#41; 250 x 354\n   #define DMPAPER_B5                  13  // B5 &#40;JIS&#41; 182 x 257 mm\n   #define DMPAPER_FOLIO               14  // Folio 8 1/2 x 13 in\n   #define DMPAPER_QUARTO              15  // Quarto 215 x 275 mm\n   #define DMPAPER_10X14               16  // 10x14 in\n   #define DMPAPER_11X17               17  // 11x17 in\n   #define DMPAPER_NOTE                18  // Note 8 1/2 x 11 in\n   #define DMPAPER_ENV_9               19  // Envelope #9 3 7/8 x 8 7/8\n   #define DMPAPER_ENV_10              20  // Envelope #10 4 1/8 x 9 1/2\n   #define DMPAPER_ENV_11              21  // Envelope #11 4 1/2 x 10 3/8\n   #define DMPAPER_ENV_12              22  // Envelope #12 4 \\276 x 11\n   #define DMPAPER_ENV_14              23  // Envelope #14 5 x 11 1/2\n   #define DMPAPER_CSHEET              24  // C size sheet\n   #define DMPAPER_DSHEET              25  // D size sheet\n   #define DMPAPER_ESHEET              26  // E size sheet\n   #define DMPAPER_ENV_DL              27  // Envelope DL 110 x 220mm\n   #define DMPAPER_ENV_C5              28  // Envelope C5 162 x 229 mm\n   #define DMPAPER_ENV_C3              29  // Envelope C3  324 x 458 mm\n   #define DMPAPER_ENV_C4              30  // Envelope C4  229 x 324 mm\n   #define DMPAPER_ENV_C6              31  // Envelope C6  114 x 162 mm\n   #define DMPAPER_ENV_C65             32  // Envelope C65 114 x 229 mm\n   #define DMPAPER_ENV_B4              33  // Envelope B4  250 x 353 mm\n   #define DMPAPER_ENV_B5              34  // Envelope B5  176 x 250 mm\n   #define DMPAPER_ENV_B6              35  // Envelope B6  176 x 125 mm\n   #define DMPAPER_ENV_ITALY           36  // Envelope 110 x 230 mm\n   #define DMPAPER_ENV_MONARCH         37  // Envelope Monarch 3&#46;875 x 7&#46;5 in\n   #define DMPAPER_ENV_PERSONAL        38  // 6 3/4 Envelope 3 5/8 x 6 1/2 in\n   #define DMPAPER_FANFOLD_US          39  // US Std Fanfold 14 7/8 x 11 in\n   #define DMPAPER_FANFOLD_STD_GERMAN  40  // German Std Fanfold 8 1/2 x 12 in\n   #define DMPAPER_FANFOLD_LGL_GERMAN  41  // German Legal Fanfold 8 1/2 x 13 in\n   #define DMPAPER_ISO_B4              42  // B4 &#40;ISO&#41; 250 x 353 mm\n   #define DMPAPER_JAPANESE_POSTCARD   43  // Japanese Postcard 100 x 148 mm\n   #define DMPAPER_9X11                44  // 9 x 11 in\n   #define DMPAPER_10X11               45  // 10 x 11 in\n   #define DMPAPER_15X11               46  // 15 x 11 in\n   #define DMPAPER_ENV_INVITE          47  // Envelope Invite 220 x 220 mm\n   #define DMPAPER_RESERVED_48         48  // RESERVED--DO NOT USE\n   #define DMPAPER_RESERVED_49         49  // RESERVED--DO NOT USE\n   #define DMPAPER_LETTER_EXTRA        50  // Letter Extra 9 \\275 x 12 in\n   #define DMPAPER_LEGAL_EXTRA         51  // Legal Extra 9 \\275 x 15 in\n   #define DMPAPER_TABLOID_EXTRA       52  // Tabloid Extra 11&#46;69 x 18 in\n   #define DMPAPER_A4_EXTRA            53  // A4 Extra 9&#46;27 x 12&#46;69 in\n   #define DMPAPER_LETTER_TRANSVERSE   54  // Letter Transverse 8 \\275 x 11 in\n   #define DMPAPER_A4_TRANSVERSE       55  // A4 Transverse 210 x 297 mm\n   #define DMPAPER_LETTER_EXTRA_TRANSVERSE 56 // Letter Extra Transverse 9\\275 x 12 in\n   #define DMPAPER_A_PLUS              57  // SuperA/SuperA/A4 227 x 356 mm\n   #define DMPAPER_B_PLUS              58  // SuperB/SuperB/A3 305 x 487 mm\n   #define DMPAPER_LETTER_PLUS         59  // Letter Plus 8&#46;5 x 12&#46;69 in\n   #define DMPAPER_A4_PLUS             60  // A4 Plus 210 x 330 mm\n   #define DMPAPER_A5_TRANSVERSE       61  // A5 Transverse 148 x 210 mm\n   #define DMPAPER_B5_TRANSVERSE       62  // B5 &#40;JIS&#41; Transverse 182 x 257 mm\n   #define DMPAPER_A3_EXTRA            63  // A3 Extra 322 x 445 mm\n   #define DMPAPER_A5_EXTRA            64  // A5 Extra 174 x 235 mm\n   #define DMPAPER_B5_EXTRA            65  // B5 &#40;ISO&#41; Extra 201 x 276 mm\n   #define DMPAPER_A2                  66  // A2 420 x 594 mm\n   #define DMPAPER_A3_TRANSVERSE       67  // A3 Transverse 297 x 420 mm\n   #define DMPAPER_A3_EXTRA_TRANSVERSE 68  // A3 Extra Transverse 322 x 445 mm\n   #define DMPAPER_DBL_JAPANESE_POSTCARD 69 // Japanese Double Postcard 200 x 148 mm\n   #define DMPAPER_A6                  70  // A6 105 x 148 mm\n   #define DMPAPER_JENV_KAKU2          71  // Japanese Envelope Kaku #2\n   #define DMPAPER_JENV_KAKU3          72  // Japanese Envelope Kaku #3\n   #define DMPAPER_JENV_CHOU3          73  // Japanese Envelope Chou #3\n   #define DMPAPER_JENV_CHOU4          74  // Japanese Envelope Chou #4\n   #define DMPAPER_LETTER_ROTATED      75  // Letter Rotated 11 x 8 1/2 11 in\n   #define DMPAPER_A3_ROTATED          76  // A3 Rotated 420 x 297 mm\n   #define DMPAPER_A4_ROTATED          77  // A4 Rotated 297 x 210 mm\n   #define DMPAPER_A5_ROTATED          78  // A5 Rotated 210 x 148 mm\n   #define DMPAPER_B4_JIS_ROTATED      79  // B4 &#40;JIS&#41; Rotated 364 x 257 mm\n   #define DMPAPER_B5_JIS_ROTATED      80  // B5 &#40;JIS&#41; Rotated 257 x 182 mm\n   #define DMPAPER_JAPANESE_POSTCARD_ROTATED 81 // Japanese Postcard Rotated 148 x 100 mm\n   #define DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED 82 // Double Japanese Postcard Rotated 148 x 200 mm\n   #define DMPAPER_A6_ROTATED          83  // A6 Rotated 148 x 105 mm\n   #define DMPAPER_JENV_KAKU2_ROTATED  84  // Japanese Envelope Kaku #2 Rotated\n   #define DMPAPER_JENV_KAKU3_ROTATED  85  // Japanese Envelope Kaku #3 Rotated\n   #define DMPAPER_JENV_CHOU3_ROTATED  86  // Japanese Envelope Chou #3 Rotated\n   #define DMPAPER_JENV_CHOU4_ROTATED  87  // Japanese Envelope Chou #4 Rotated\n   #define DMPAPER_B6_JIS              88  // B6 &#40;JIS&#41; 128 x 182 mm\n   #define DMPAPER_B6_JIS_ROTATED      89  // B6 &#40;JIS&#41; Rotated 182 x 128 mm\n   #define DMPAPER_12X11               90  // 12 x 11 in\n   #define DMPAPER_JENV_YOU4           91  // Japanese Envelope You #4\n   #define DMPAPER_JENV_YOU4_ROTATED   92  // Japanese Envelope You #4 Rotated\n   #define DMPAPER_P16K                93  // PRC 16K 146 x 215 mm\n   #define DMPAPER_P32K                94  // PRC 32K 97 x 151 mm\n   #define DMPAPER_P32KBIG             95  // PRC 32K&#40;Big&#41; 97 x 151 mm\n   #define DMPAPER_PENV_1              96  // PRC Envelope #1 102 x 165 mm\n   #define DMPAPER_PENV_2              97  // PRC Envelope #2 102 x 176 mm\n   #define DMPAPER_PENV_3              98  // PRC Envelope #3 125 x 176 mm\n   #define DMPAPER_PENV_4              99  // PRC Envelope #4 110 x 208 mm\n   #define DMPAPER_PENV_5              100 // PRC Envelope #5 110 x 220 mm\n   #define DMPAPER_PENV_6              101 // PRC Envelope #6 120 x 230 mm\n   #define DMPAPER_PENV_7              102 // PRC Envelope #7 160 x 230 mm\n   #define DMPAPER_PENV_8              103 // PRC Envelope #8 120 x 309 mm\n   #define DMPAPER_PENV_9              104 // PRC Envelope #9 229 x 324 mm\n   #define DMPAPER_PENV_10             105 // PRC Envelope #10 324 x 458 mm\n   #define DMPAPER_P16K_ROTATED        106 // PRC 16K Rotated\n   #define DMPAPER_P32K_ROTATED        107 // PRC 32K Rotated\n   #define DMPAPER_P32KBIG_ROTATED     108 // PRC 32K&#40;Big&#41; Rotated\n   #define DMPAPER_PENV_1_ROTATED      109 // PRC Envelope #1 Rotated 165 x 102 mm\n   #define DMPAPER_PENV_2_ROTATED      110 // PRC Envelope #2 Rotated 176 x 102 mm\n   #define DMPAPER_PENV_3_ROTATED      111 // PRC Envelope #3 Rotated 176 x 125 mm\n   #define DMPAPER_PENV_4_ROTATED      112 // PRC Envelope #4 Rotated 208 x 110 mm\n   #define DMPAPER_PENV_5_ROTATED      113 // PRC Envelope #5 Rotated 220 x 110 mm\n   #define DMPAPER_PENV_6_ROTATED      114 // PRC Envelope #6 Rotated 230 x 120 mm\n   #define DMPAPER_PENV_7_ROTATED      115 // PRC Envelope #7 Rotated 230 x 160 mm\n   #define DMPAPER_PENV_8_ROTATED      116 // PRC Envelope #8 Rotated 309 x 120 mm\n   #define DMPAPER_PENV_9_ROTATED      117 // PRC Envelope #9 Rotated 324 x 229 mm\n   #define DMPAPER_PENV_10_ROTATED     118 // PRC Envelope #10 Rotated 458 x 324 mm\n[/code:17n0fgml]','',0,'AIA=','17n0fgml',1,0,'',397,0,0),(25764,5788,3,131,0,'88.9.226.83',1170014502,1,0,1,1,1,0,'','','TFsdi is free, and all source code is included. The code that is not included is because is copyrighted code and I can´t include it.\nSilvio: There is no method SetSize in tfsdi class. There is a function called ResizeWndMain thar is included in main.prg.\nRegards,','',0,'AIA=','qvolx8xx',1,0,'',131,0,0),(25765,5795,6,180,0,'88.3.194.27',1170014914,1,0,1,1,1,0,'','','Gracias amigo, pero no creo que sea ese el problema, ya tengo establecidas las dimensiones del papel con oPrn:SetSize(210*10,297*10).\n\nUn saludo,\nManuel','',0,'AIA=','bz6x4h4x',1,0,'',180,0,0),(25766,5791,3,69,0,'74.13.41.162',1170015586,1,0,1,1,1,0,'','','I am looking for a function that will give me ALL my mem vars ... depending where my user is in the prtogram the vars will have different names so the .ini solution will not work for me.\n\n\nThanks anyway.\n\nJeff','',0,'AIA=','3vsh8k14',1,0,'',69,0,0),(25767,5788,3,439,0,'200.125.39.31',1170015945,1,0,1,1,1,1,'','','The source that is not included is of VtaskBar Class of Paco, this class paint the vertical menu, you can contact him if you want to get it, is an excelent class but with cost.','',0,'AIA=','2t918syr',1,0,'',439,0,0),(25768,5791,3,6,0,'87.13.209.155',1170016412,1,0,1,1,1,1,'','','[quote=&quot;Jeff Barnes&quot;:hg55xaky]I found functions in the manual called:\n\nLogStatics() and Scan()\n\nIt looks like these might help me do what I want but I can not get either of them to work.\n\n\nJeff[/quote:hg55xaky]\n\nThey are for STATIC variables only.\n\nEMG','',0,'gA==','hg55xaky',1,0,'',6,0,0),(25769,5791,3,69,0,'74.13.41.162',1170017768,1,0,1,1,1,0,'','','Hi Enrico,\n\nI realize that they are for Static vars only but I still can not get them to work.\n\nWhen I compile I get:\n\nError: Unresolved external \'_HB_FUN_LOGSTATIC\'\n\nIf I try to compile the \\FWH\\Source\\Functions\\Static.prg I get:\n\nError: Unresolved external \'_HB_FUN_STATIC\'\n\nI can\'t seem to win on this one.\n\nJeff','',0,'gA==','3ese5u1o',1,0,'',69,0,0),(25770,5791,3,6,0,'87.13.209.155',1170020196,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:16gojx01]#include &quot;Fivewin&#46;ch&quot;\n\n\nSTATIC TEST1 &#58;= &quot;This is a test 1&quot;\nSTATIC TEST2 &#58;= &quot;This is a test 2&quot;\nSTATIC TEST3 &#58;= &quot;This is a test 3&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL i\n\n    ? NSTATICS&#40;&#41;, HB_DBG_VMVARSLEN&#40;&#41;\n\n    FOR  i = 1 TO 3\n        ? HB_DBG_VMVARSGET&#40; i &#41;\n    NEXT\n\n    RETURN NIL[/code:16gojx01]\n\nEMG','',0,'AIA=','16gojx01',1,0,'',6,0,0),(25771,5796,3,930,0,'137.224.245.203',1170021297,1,0,1,1,1,0,'','Problem getting an ActiveX component to work','Hello,\n\nJust a few days a purchased an update of Fivewin in order to add GIS functionality to my program. The ActiveX component in questiopn is MapObjects. Most of the code seems to work fine (including events), but at one point I have no clue how to proceed. Please review the code below.\n\nRegards,\nStephan\n\nFUNCTION GIS()\n   LOCAL oWnd, oWndChild, oMap\n   LOCAL cEvents := \"\"\n   LOCAL oLayer, hLayers, nLayers\n   LOCAL hItem\n\n   DEFINE WINDOW oWndChild MDICHILD OF oWndMain()\n\n   oMap = TActiveX():New(oWndChild, \"MapObjectsLT2.Map.1\")\n\n   oMap:SetProp(\"Appearance\", 1)  // 3D\n   oMap:SetProp(\"ScrollBars\", 1)  // TRUE\n\n\n   oLayer := CreateObject(\"MapObjectsLT2.MapLayer\")\n   oLayer:File := \"d:\\synbiosys\\kaarten\\prov2002.shp\"\n\n   hLayers := oMap:GetProp(\"Layers\")\n   // nLayers := OleGetProperty(hLayers, \"Count\")\n\n  // now we need to add the layer objects to the layers collection.\n  // using a VB-alike syntax it would be like \'oMap:Layers:Add(oLayer)\'\n  // There is handle to the layers collection, hLayer, but how to add a layer\n  // to the layers collection???? \n\n\n   oWndChild:oClient := oMap\n   oWndChild:Resize()\n  \n   oWndChild:bResized := {|| oMap:Do(\"Refresh\") }\n\n   oWndChild:bValid := {||  oMap:End(), oMap := NIL, TRUE }\n\nRETURN(NIL)','',0,'AIA=','smsfn0d6',1,0,'',930,0,0),(25772,5788,3,49,0,'62.13.172.78',1170022231,1,0,1,1,1,1,'','','Dear José Luis Sánchez,\n\nI correct it but I not use tfsdi class because it make error BUT I can create this :\n\n[url=http&#58;//img168&#46;imageshack&#46;us/my&#46;php?image=myap29gen06sx3&#46;jpg:122ds5oa][img:122ds5oa]http&#58;//img168&#46;imageshack&#46;us/img168/9236/myap29gen06sx3&#46;th&#46;jpg[/img:122ds5oa][/url:122ds5oa]','',0,'GA==','122ds5oa',1,0,'',49,0,0),(25773,5788,3,49,0,'62.13.172.78',1170024400,1,0,1,1,1,1,'','','Dear José Luis Sánchez, \n\nthe last problem is :\n\nwhen I close the Main window save the coordinates  to fsdi.ini\nWhen i re-open the main window it not set the coordinates saved\n\n\nI saw there are two method or function but I not found it :\n\n  GetWinCoors( ::oWndMain, ::cInifile )\n  SetWinCoors( ::oWndMain, ::cIniFile )\n\n\nWhere I can found it ?','',0,'GA==','1182pnwm',1,0,'',49,0,0),(25774,5796,3,49,0,'62.13.172.78',1170024841,1,0,1,1,1,1,'','','where I can found MapObjects ?','',0,'GA==','3rb3370j',1,0,'',49,0,0),(25775,5796,3,930,0,'137.224.245.203',1170025401,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://www.esri.com/getting_started/developers/mapobjects.html\">http://www.esri.com/getting_started/dev ... jects.html</a><!-- m -->\n\nThe lite version can be distributed royalty free.\n\nI use MapObjects successfully with e.g Delphi, now I wish to include it in one of my Fivewin programs.\n\nRegards,\nStephan','',0,'GA==','2eh68f5t',1,0,'',930,0,0),(25776,5786,6,49,0,'62.13.172.78',1170026664,1,0,1,1,1,1,'','','you must REM  these lines \n/*extern AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos\n\n#command SET SERVER LOCAL   =&gt; AdsSetServerType ( 1 )\n#command SET SERVER REMOTE  =&gt; AdsSetServerType ( 2 )\n\n#command SET FILETYPE TO &lt;x:NTX,CDX,ADT&gt;                              ;\n      =&gt; AdsSetFileType( if( upper( &lt;(x)&gt; ) == \"NTX\", 1,              ;\n                         if( upper( &lt;(x)&gt; ) == \"CDX\", 2, 3 ) ) )\n */\n\nand then \n\n //REQUEST ADS\n\n  //rddRegister( \"ADS\", 1 )\n//rddsetdefault( \"ADS\" )\n\n  //SET SERVER LOCAL\n  //SET FILETYPE TO CDX','',0,'GA==','3utlvgq1',1,0,'',49,0,0),(25777,5791,3,69,0,'74.13.41.162',1170027692,1,0,1,1,1,0,'','','Enrico,\n\nThis gets me a bit closer but how do you get the var\'s name?\n\nThanks again,\n\nJeff','',0,'GA==','2d81mign',1,0,'',69,0,0),(25778,4820,21,319,0,'201.13.121.21',1170031306,1,0,1,1,1,0,'','','você simplesmente deve utilizar a sintax   FIELDSIZES e determine o tamanho de cada coluna para não ultrapassar a janel.\n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','2y9hig6s',1,0,'',319,0,0),(25779,5797,6,121,0,'189.138.42.212',1170035089,1,0,1,1,1,1,'','RUTINA PARA CONVERTIR CIFRAS A LETRAS ( en ingles )','Alguien tiene una rutina para convertir\ncifras a letras en ingles\n\n1250   =   one thousand two hundred an fifhty  \n\nGracias','',0,'GA==','1nq5rfae',1,0,'',121,0,0),(25780,5787,3,15,0,'59.105.13.95',1170035176,1,0,1,1,1,0,'','','Hello Rochinha,\n\nI waiting your upgrade.\n\nRegards,\n\nRichard','',0,'GA==','1w44naqh',1,0,'',15,0,0),(25781,5788,3,400,0,'201.26.19.50',1170035398,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:2t3bsa4r]The source that is not included is of VtaskBar Class of Paco, this class paint the vertical menu, you can contact him if you want to get it, is an excelent class but with cost.[/quote:2t3bsa4r]\n\nThank you José,  \n  \nThe one that I want is really the Vertical Menu (that is in the Lateral).  \nIs Paco\'s class then (Vtaskbar) what does build the Menu?  \n  \nI thank the for all you, for the help.  \n\n@braços Ale','',0,'gA==','2t3bsa4r',1,0,'',400,0,0),(25782,5788,3,131,0,'194.179.55.36',1170055406,1,0,1,1,1,0,'','','Ale: The control on the left is VTaskBar from Canalfive.\nSilvio: the functions you are asking for are copyrighted and are included on the sources of WinDBU. I can\'t send you without permission of owner. I\'ll ask him about it.\n\nRegards,','',0,'gA==','3mvxyso4',1,0,'',131,0,0),(25783,5798,3,282,0,'210.72.235.124',1170058110,1,0,1,1,1,0,'','warning LNK4088 and LNK4254','Dear All\n\nI\'m Using xHarbour 0.99.71 + FWH 6.12 + VC++ 2005 \n\nI got a warning LNK4088: image being generated due to /FORCE option; image may not run \nand lots of warning LNK4254: section \'.CRT\' (40000040) merged into \'.data\' (C0000040) with different attributes \n\nHow can I do for these warning messages \n\ncomplile batch file is as following\n\n=====================\n@ECHO OFF\nCLS\nECHO   FiveWin for xHarbour .99.6 (MSVC++) November 2006 xHarbour development power\nECHO   (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\xharbour2005\nset vcdir=c:\\VC8\nset include=%vcdir%\\include;%hdir%\\include;%include%\nset lib=%vcdir%\\lib;%hdir%\\vc\\lib;%lib%\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\n%vcdir%\\bin\\cl -TP -W3 -c /GA %1.c\n:ENDCOMPILE\n\nIF EXIST %1.rc %vcdir%\\bin\\rc -r -d__FLAT__ %1\n\necho %1.obj  &gt; msvc.tmp\n\necho ..\\lib\\Fivehmx.lib ..\\lib\\FiveHCM.lib  &gt;&gt; msvc.tmp\n\necho %hdir%\\lib\\rtl.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\vm.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\gtgui.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\lang.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\macro.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\rdd.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\dbfntx.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\dbfcdx.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\dbffpt.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\hbsix.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\debug.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\common.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\pp.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\pcrepos.lib  &gt;&gt; msvc.tmp\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\ace32.lib &gt;&gt; msvc.tmp\necho %hdir%\\lib\\rddads.lib &gt;&gt; msvc.tmp\n\necho %vcdir%\\lib\\kernel32.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\user32.lib    &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\gdi32.lib     &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\winspool.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\comctl32.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\comdlg32.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\advapi32.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\shell32.lib   &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\ole32.lib     &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\oleaut32.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\uuid.lib      &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\odbc32.lib    &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\odbccp32.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\mpr.lib       &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\winMM.lib     &gt;&gt; msvc.tmp\n\nIF EXIST %1.res echo %1.res &gt;&gt; msvc.tmp\n\n%vcdir%\\bin\\link @msvc.tmp /nologo /subsystem:windows /force:multiple  /NODEFAULTLIB:LIBC\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1.c\n@del msvc.tmp\n\n:LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi&#39623; PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n===========================================\n\nAnyone can help ?\n\nBest Regards\n\nDixon Chu','',0,'','1h0xr4lg',1,0,'',282,0,0),(25784,5791,3,6,0,'87.17.186.238',1170058319,1,0,1,1,1,1,'','','I\'m not sure you can get the name of a STATIC var. You better ask to xHarbour newsgroup. Meanwhile, this is a better sample:\n\n[code:2xgruuf5]#include &quot;Fivewin&#46;ch&quot;\n\n\nSTATIC TEST1 &#58;= &quot;This is a test 1&quot;\nSTATIC TEST2 &#58;= &quot;This is a test 2&quot;\nSTATIC TEST3 &#58;= &quot;This is a test 3&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL aStatics &#58;= __VMVARSLIST&#40;&#41;\n\n    LOCAL i\n\n    ? NSTATICS&#40;&#41;, __VMVARSLEN&#40;&#41;, LEN&#40; aStatics &#41;\n\n    FOR  i = 1 TO 3\n        ? __VMVARSGET&#40; i &#41;, aStatics&#91; i &#93;\n    NEXT\n\n    RETURN NIL[/code:2xgruuf5]\n\nEMG','',0,'AIA=','2xgruuf5',1,0,'',6,0,0),(25785,5795,6,456,0,'62.43.194.117',1170059101,1,0,1,1,1,1,'','','Hola Manuel, a mi me paso algo parecido. Yo creo que el problema es de las distintas resoluciones de la impresora, seguranmente el generador de PDF, debe trabaja  a otra resolucion distinta de la que trabaja tu impresora. \nEse  es el problema, pero, no se como solucionarlo.','',0,'AIA=','3g7yyyb7',1,0,'',456,0,0),(25786,5799,3,282,0,'210.72.235.124',1170059181,1,0,1,1,1,0,'','Use DBF file on MEMO field','Dear All\n\nDid anyone know How to Open a DBF file on MEMO field without Memowrit \n\nThe samples programs maybe like this\n=====================\n    request dbfcdx, dbffpt ; rddsetdefault(\'DBFCDX\')\n\n    dbcreate(\'temp\',{{\'memo\',\'M\',4,0}})\n    xMEM=MEMOREAD(\"a.dbf\") \n    use temp\n    dbappend()\n    REPL memo WITH xMEM // save a dbf file at MEMO field\n    close\n\n    use temp alias xx\n//  MEMOWRIT(\"a.DBF\",xx-&gt;memo)  // omit this\n    use xx-&gt;memo new  // ??? OPEN a memo-type\'s  DBF file directly \n    close\n\n=======================\n\nThanks !!!\n\nBest Regards\n\nDixon Chu','',0,'AIA=','7vwm0119',1,0,'',282,0,0),(25787,5788,3,49,0,'213.82.134.66',1170060122,1,0,1,1,1,1,'','','I have wdbu sources ...\nI have also anothers sources codes\n\nwhere I can found these functions ? wich file ?','',0,'AIA=','3515h7bp',1,0,'',49,0,0),(25788,5788,3,49,0,'213.82.134.66',1170060467,1,0,1,1,1,1,'','','ok I found all thanks...','',0,'AIA=','ozcg3qk0',1,0,'',49,0,0),(25789,5788,3,49,0,'213.82.134.66',1170061510,1,0,1,1,1,1,'','','NOW fsdi 2006 run ok :\n\nThanks to José Luis Sánchez for fsdi methods\nThanks to Paco for Vtaskbar, menu and Canalfive products\nThanks to Ortiz for the wdbu\'s sources\nThanks to Antonio Linares\nThanks to Garombo Ugo\nThanks to my mother\nThanks to my dog\nThanks to ...me!!!!!!!!!!!!!!!!!!!!','',0,'AIA=','2dlwob1o',1,0,'',49,0,0),(25790,5798,3,2,0,'87.218.146.194',1170062900,1,0,1,1,1,1,'','','Dixon,\n\nThose are just warnings that you can safely ignore','',0,'AIA=','30rao5fb',1,0,'',2,0,0),(25791,5796,3,49,0,'213.82.134.66',1170064749,1,0,1,1,1,1,'','','can I see  a function for delphi  to translate in fw ?\nyou Know all methods of this activex','',0,'AIA=','2i428w1k',1,0,'',49,0,0),(25792,5796,3,930,0,'137.224.10.105',1170065100,1,0,1,1,1,0,'','','Silvio,\n\nas you have seen I got stuck with one important issue. I hope someone can help me out there. Before that I can not provide you with a working sample.\n\n\nRegards,\nStephan','',0,'AIA=','q3j6yrci',1,0,'',930,0,0),(25793,5788,3,400,0,'200.205.49.10',1170065268,1,0,1,1,1,1,'','','Thank you    \nI will get in touch with CanalFive.    \n    \nGreetings  \n\n@braços Ale','',0,'AIA=','3fvi7j7u',1,0,'',400,0,0),(25794,5796,3,2,0,'87.218.146.132',1170066554,1,0,1,1,1,1,'','','Stephan,\n\nPlease try this:\n\nhLayers := oMap:GetProp(\"Layers\") \n\nOleInvoke( hLayers, \"Add\", oLayer )\n// oMap:Layers:Add(oLayer)\'','',0,'AIA=','8zx9y1lm',1,0,'',2,0,0),(25795,5791,3,2,0,'87.218.146.132',1170066710,1,0,1,1,1,1,'','','Jeff,\n\nYou can only get the static variables names (same for locals) if the PRG has been compiled using /b (debug info). Without /b the names are lost (not used at all)','',0,'AIA=','18d8vzos',1,0,'',2,0,0),(25796,5796,3,930,0,'137.224.10.105',1170067179,1,0,1,1,1,0,'','','Antonio,\n\nI thing we made a step forward, but it\'s GPF\'s before showing the map. Scrollbars however already appear.\n\nRegards,\nStephan','',0,'AIA=','2itf7j52',1,0,'',930,0,0),(25797,5796,3,49,0,'213.82.134.66',1170067373,1,0,1,1,1,1,'','','I download Lt and install \nI compiled your source test \nit not found activex\nyou have the same error ?','',0,'AIA=','11nipgla',1,0,'',49,0,0),(25798,5794,6,217,0,'200.159.120.34',1170067709,1,0,1,1,1,0,'','Re: Abas, na Lateral da Dialog ????','Olá!\n\nAbas na lateral do folder eu nunca tentei, creio que com a classe TFolder modificada pelo Rossine é possível, mas não tenho certeza.\nCom relação àqueles de rodapé, existe a classe TTabs, dê uma olhada em TestTabs.prg e TestTab2.prg na sua pasta Samples do FiveWin.\n\n[ ]\'s\nMaurilio','',0,'','1g31vo2m',1,0,'',217,0,0),(25799,5800,7,720,0,'80.36.244.134',1170068375,1,0,1,1,1,0,'','cambiar color de texto en listbox','Hola a todos...\n\nTengo un listbox y dependiendo de un valor de la tabla me muestra la linea resaltada con un color. La instruccion que utilizo es esta:\n\nobrw:nClrPane := { || If( tabla_inventarios-&gt;enviado=.t.,RGB(123,123,123) , RGB(255,255,255) ) }\n\nEl problema es que me pinta la linea entera de un color y lo que yo pretendo es solo cambiar el color de la fuente, es decir, que solo me cambie el color de las letras y no el de su fondo...\n\nHay alguna función que realice lo que pretendo??\n\nSaludos.\n\nElías Torres.','',0,'','1lkglm6t',1,0,'',720,0,0),(25800,5796,3,930,0,'137.224.10.105',1170068387,1,0,1,1,1,0,'','','No, it does find the ActiveX component. For example CreateObject(\"MapObjectsLT2.MapLayer\") works fine. \n\nStephan','',0,'','y9k7gf4y',1,0,'',930,0,0),(25801,5774,3,49,0,'213.82.134.66',1170069067,1,0,1,1,1,1,'','','Dear Stefan\nCan you send me an private email  because i lose your personal email \nthanks Danke','',0,'','2fslboip',1,0,'',49,0,0),(25802,5796,3,49,0,'213.82.134.66',1170070645,1,0,1,1,1,1,'','','I have insert this but it call the activex copyright and then I can see only a white box\n\nif you send me the completely test sample I can understand ...','',0,'','12am3cu7',1,0,'',49,0,0),(25803,5796,3,49,0,'213.82.134.66',1170072640,1,0,1,1,1,1,'','','Antonio \n\ncan you help u please ?','',0,'','1tzdjsit',1,0,'',49,0,0),(25804,5788,3,49,0,'213.82.134.66',1170072948,1,0,1,1,1,1,'','','Dear José Luis Sánchez\n\ncan I resize vtaskbar control when I use resizewindow() ?\n\nthanks','',0,'','sohann5f',1,0,'',49,0,0),(25805,5796,3,2,0,'87.218.146.132',1170073572,1,0,1,1,1,1,'','','Stephan,\n\nWhat source code line is executing when it GPFs ?','',0,'','306usozd',1,0,'',2,0,0),(25806,5800,7,2,0,'87.218.146.132',1170073712,1,0,1,1,1,1,'','','Elías,\n\nUsa obrw:nClrText en vez de obrw:nClrPane','',0,'','1nxg8tc5',1,0,'',2,0,0),(25807,5796,3,49,0,'213.82.134.66',1170075180,1,0,1,1,1,1,'','','it not run DO method \n\n[code:3h8qr13q]\n\n  #include &quot;FiveWin&#46;ch&quot;\n\n   function Main&#40;&#41;\n\n      local oWnd, oActiveX,oLayer\n      local cEvents &#58;= &quot;&quot;\n\n      DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Gis Support&quot;\n\n      oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;MapObjectsLT2&#46;Map&#46;1&quot; &#41;\n\n      oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n      oActiveX&#58;SetProp&#40;&quot;Appearance&quot;, 1&#41; // 3D\n      oActiveX&#58;SetProp&#40;&quot;ScrollBars&quot;, 1&#41; // TRUE\n\n      oLayer &#58;= CreateObject&#40;&quot;MapObjectsLT2&#46;MapLayer&quot;&#41;\n\n      oLayer&#58;Do&#40; &quot;Add&quot;, &quot;d&#58;\\gis\\karten\\provincies&#46;shp&quot; &#41;\n\n\n     * hLayers &#58;=  oActiveX&#58;GetProp&#40;&quot;Layers&quot;&#41;\n      * nLayers &#58;= OleGetProperty&#40;hLayers, &quot;Count&quot;&#41;\n\n \n\n     ACTIVATE WINDOW oWnd\n                                                                                            \n   return nil                                        \n [/code:3h8qr13q]\n\n\nApplication\n===========\n   Path and name: C:\\work\\gis\\gis.Exe (32 bits)\n   Size:   442,368 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 01/30/07, 13:49:27\n   Error description: Error MapObjectsLT2.MapLayer/16389  E_FAIL: DO\n   Args:\n     [   1] = C   Add\n     [   2] = C   d:\\gis\\karten\\provincies.shp\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:DO(0)\n   Called from: gis.prg =&gt; MAIN(20)','',0,'AIA=','3h8qr13q',1,0,'',49,0,0),(25808,5787,3,707,0,'125.163.120.124',1170075704,1,0,1,1,1,0,'','','Mr. Rochinha, Mr. Richard\n\nThank\'s for help\n\nRegards\nAreang','',0,'AIA=','2ep24p3n',1,0,'',707,0,0),(25809,5797,6,397,0,'201.27.23.155',1170076244,1,0,1,0,1,1,'','','Amiguinho\n\nBasta corrigir:\n[code:275h91fo]\nFUNCTION EXTENSO&#40; PVALOR &#41;\nLOCAL TSTR   &#58;= STRZERO&#40;PVALOR,18,2&#41;\nLOCAL ACIFRA &#58;= &#123;&#123;\'Trilhon\',\'Trilhons\'&#125;,;\n                 &#123;\'Bilhon\' ,\'Bilhons\'&#125;,;\n                 &#123;\'Milhon\' ,\'Milhons\'&#125;,;\n                 &#123;\'Thousand\'    ,\'Thousand\'&#125;,;\n                 &#123;\'   \'    ,\'   \'&#125;,;\n                 &#123;\'Cent\',\'Cents\'&#125;&#125;\nLOCAL TX\nLOCAL TEXTENSO &#58;= \' \'\nLOCAL TSUBS    &#58;= \' \'\nLOCAL TCENTAVOS&#58;= VAL&#40;SUBSTR&#40;TSTR,17&#41;&#41;\nIF &#40;PVALOR&gt;0&#41;\n   IF &#40;TCENTAVOS&gt;0&#41;\n      TEXTENSO&#58;=EXTCEM&#40;STRZERO&#40;TCENTAVOS,3&#41;&#41;+;\n      ACIFRA&#91;6&#93;&#91;IIF&#40;TCENTAVOS=1,1,2&#41;&#93;\n   ENDIF\n   IF &#40;INT&#40;PVALOR&#41;&gt;0&#41;\n      TEXTENSO&#58;=IIF&#40;INT&#40;PVALOR&#41;=1,\'Real\',\'Reals\'&#41;+IIF&#40;TCENTAVOS&gt;0,\' and \',\'\'&#41;+TEXTENSO\n   ENDIF\n   FOR TX &#58;= 5 TO 1 STEP -1\n       IF &#40;VAL&#40;TSUBS&#58;=SUBSTR&#40;TSTR,&#40;TX*3&#41;-2,3&#41;&#41;&gt;0&#41;\n          TEXTENSO&#58;=EXTCEM&#40;TSUBS&#41;+ACIFRA&#91;TX&#93;&#91;IIF&#40;VAL&#40;TSUBS&#41;=1,1,2&#41;&#93;+\' \'+TEXTENSO\n       ENDIF\n   NEXT TX\nENDIF\nRETURN&#40;STRIPDOUBLE&#40;TEXTENSO,\' \'&#41;&#41;\n\nFUNCTION EXTCEM&#40;PCEM&#41;\nLOCAL AVAL &#58;= &#123;VAL&#40;SUBSTR&#40;PCEM,1,1&#41;&#41;,;\n               VAL&#40;SUBSTR&#40;PCEM,2,1&#41;&#41;,;\n               VAL&#40;SUBSTR&#40;PCEM,3,1&#41;&#41;&#125;\nLOCAL TTAM,TEXT &#58;= \'\'\nLOCAL ACENT &#58;= &#123; \'one hundred\',\'two hundred\',\'Three hundred\',\'Four hundred\',\'Five hundred\',\'Six hundred\',\'Seven hundred\',\'Eight hundred\',\'Nine hundred\'&#125;\nLOCAL AVINT &#58;= &#123; \'Eleven\',\'Twelve\',\'Thirteen\',\'Fourteen\',\'Fifiteen\',\'Sixteen\',\'Seventeen\',\'Eighteen\',\'Nineteen\' &#125;\nLOCAL ADEZ  &#58;= &#123; \'Ten\',\'Twenty\',\'Thirty\',\'Forty\',\'Fifty\',\'Sixty\',\'Seventy\',\'Eighty\',\'Ninety\' &#125;\nLOCAL AUNIT &#58;= &#123; \'One\',\'Two\',\'Three\',\'Four\',\'Five\',\'Six\',\'Seven\',\'Eight\',\'Nine\' &#125;\nIF &#40;VAL&#40;PCEM&#41;&gt;0&#41;\n   IF &#40;VAL&#40;PCEM&#41;==100&#41;\n      TEXT &#58;= \'Hundred \'\n   ELSE\n      IF &#40;AVAL&#91;1&#93;&gt;0&#41;\n         TEXT &#58;= ACENT&#91;AVAL&#91;1&#93;&#93;+IIF&#40;&#40;AVAL&#91;2&#93;+AVAL&#91;3&#93;&gt;0&#41;,\' and \',\' \'&#41;\n      ENDIF\n      IF &#40;AVAL&#91;2&#93;=1&#41;&#46;AND&#46;&#40;AVAL&#91;3&#93;&gt;0&#41;\n         TEXT &#58;= TEXT + \' \'+AVINT&#91;AVAL&#91;3&#93;&#93;\n      ELSE\n         IF &#40;AVAL&#91;2&#93;&gt;0&#41;\n            TEXT &#58;= TEXT+\' \'+ADEZ&#91;AVAL&#91;2&#93;&#93;+IIF&#40;AVAL&#91;3&#93;&gt;0,\' and \',\'\'&#41;\n         ENDIF\n         TEXT &#58;= TEXT+IIF&#40;AVAL&#91;3&#93;&gt;0,\' \'+AUNIT&#91;AVAL&#91;3&#93;&#93;,\' \'&#41;\n      ENDIF\n   ENDIF\nENDIF\nRETURN&#40;TEXT &#58;= TEXT+\' \'&#41;\n[/code:275h91fo]','',0,'AIA=','275h91fo',1,0,'',397,0,0),(25810,5794,6,397,0,'201.27.23.155',1170076380,1,0,1,0,1,1,'','','Amigos\n\nSin autor:\n[code:ufnd82az]\n*****************************************************************************\n********************** Funciones útiles en Harbour &amp; FWH ********************\n********************** 10ª parte ********************************************\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define TFOLDANG_000   1\n#define TFOLDANG_090   2\n#define TFOLDANG_180   3\n#define TFOLDANG_270   4\n\n#define OPAQUE      0\n#define TRANSPARENT 1\n\n#define CLR_AZULADITO_008   RGB&#40; 255-016-008, 255-016-008, 255-016 &#41;\n\n#define COLOR_WINDOW   5 // window background  // ver  &quot;WColors&#46;ch&quot;\n#define CS_DBLCLKS     8                       // ver  &quot;Windows&#46;prg&quot;\n\nstatic oWindow\n\nFUNCTION uFoldAng_test&#40;&#41;\n\n   local oFoldAng1, oFoldAng2, oFoldAng3, oFoldAng4\n   local b1Action, b2Action, b3Action, b4Action\n   local acItems1  &#58;= &#123; &quot;Gargantilla&quot;, &quot;Pendiente&quot;, &quot;Sortija&quot;, &quot;Pulsera&quot; &#125;\n   local acItems2  &#58;= &#123; &quot;Solitario&quot;, &quot;Sello&quot;, &quot;Cruces&quot;, &quot;Colgante&quot;, &quot;Varios&quot; &#125;\n   local acItems3  &#58;= &#123; &quot;Primera&quot;, &quot;Segunda&quot;, &quot;3ª&quot; &#125;\n   local acItems4  &#58;= &#123; &quot;1ª&quot;, &quot;Segunda&quot;, &quot;3ª&quot;, &quot;Última&quot; &#125;\n   local aLetras1  &#58;= &#123; &quot;G&quot;, &quot;P&quot;, &quot;S&quot;, &quot;V&quot; &#125;\n   local aLetras2  &#58;= &#123; &quot;O&quot;, &quot;E&quot;, &quot;C&quot;, &quot;L&quot;, &quot;X&quot; &#125;\n   local anColors1, anColors2, anColors3, anColors4\n   local nPenPixels &#58;= 002\n   local n1Inclin &#58;= TFOLDANG_000\n   local n2Inclin &#58;= TFOLDANG_270\n   local n3Inclin &#58;= TFOLDANG_180\n   local n4Inclin &#58;= TFOLDANG_090\n   local n1ItemInic // predeterminadamente, vale 1\n   local n2ItemInic &#58;= 5\n   local n3ItemInic &#58;= 2\n   local n4ItemInic &#58;= 3\n   local nAltoFolde &#58;= 023\n   local nTop1    &#58;= 047\n   local nLeft1   &#58;= 100\n   local nBottom1 &#58;= nTop1 + nAltoFolde - 1\n   local nRight1  &#58;= nLeft1 + 404\n   local nTop2    &#58;= nTop1 + nAltoFolde\n   local nLeft2   &#58;= nRight1\n   local nBottom2 &#58;= 517\n   local nRight2  &#58;= nLeft2 + nAltoFolde - 1\n   local nTop3    &#58;= nBottom2\n   local nLeft3   &#58;= nLeft1\n   local nBottom3 &#58;= nBottom2 + nAltoFolde\n   local nRight3  &#58;= nRight1\n   local nTop4    &#58;= nTop1 + nAltoFolde\n   local nLeft4   &#58;= nLeft1 - nAltoFolde\n   local nBottom4 &#58;= nBottom2\n   local nRight4  &#58;= nLeft1\n\n   DEFINE WINDOW oWindow ;\n      TITLE &quot;Almacén de Joyas&quot;\n\n   oFoldAng1 &#58;= TFoldAng&#40;&#41;&#58;New&#40; nTop1, nLeft1,        ;\n                                nBottom1, nRight1,    ;\n                                n1ItemInic, n1Inclin, ;\n                                acItems1, anColors1,  ;\n                                b1Action, oWindow &#41;\n   oFoldAng1&#58;nPenPix &#58;= nPenPixels\n   oFoldAng1&#58;nClrLine &#58;= CLR_CYAN\n   oFoldAng1&#58;bAction &#58;= &#123;| Self | &#58;&#58;oWnd&#58;cTitle &#58;=    ;\n               cTitle12&#40; oFoldang1, oFoldang2, aLetras1, acItems1, aLetras2, acItems2 &#41; ;\n                        &#125;\n\n   oFoldAng2 &#58;= TFoldAng&#40;&#41;&#58;New&#40; nTop2, nLeft2,        ;\n                                nBottom2, nRight2,    ;\n                                n2ItemInic, n2Inclin, ;\n                                acItems2, anColors2,  ;\n                                b2Action, oWindow &#41;\n   oFoldAng2&#58;nPenPix &#58;= nPenPixels\n   oFoldAng2&#58;bAction &#58;= &#123;| Self | &#58;&#58;nClrLine &#58;= &#58;&#58;nRgbCicl&#40;&#41;, ;\n                                   &#58;&#58;oWnd&#58;cTitle &#58;=   ;\n               cTitle12&#40; oFoldang1, oFoldang2, aLetras1, acItems1, aLetras2, acItems2 &#41; ;\n                        &#125;\n\n   oFoldAng3 &#58;= TFoldAng&#40;&#41;&#58;New&#40; nTop3, nLeft3,        ;\n                                nBottom3, nRight3,    ;\n                                n3ItemInic, n3Inclin, ;\n                                acItems3, anColors3,  ;\n                                b3Action, oWindow &#41;\n   oFoldAng3&#58;bAction &#58;= &#123;| Self | &#58;&#58;nClrLine &#58;= &#58;&#58;nRgbCicl&#40;&#41; ;\n                        &#125;\n\n   oFoldAng4 &#58;= TFoldAng&#40;&#41;&#58;New&#40; nTop4, nLeft4,        ;\n                                nBottom4, nRight4,    ;\n                                n4ItemInic, n4Inclin, ;\n                                acItems4, anColors4,  ;\n                                b4Action, oWindow &#41;\n   oFoldAng4&#58;bAction &#58;= &#123;| Self | &#58;&#58;nClrLine &#58;= &#58;&#58;nRgbCicl&#40;&#41; ;\n                        &#125;\n\n   ACTIVATE WINDOW oWindow ;\n      MAXIMIZED\n\nRETURN NIL\n//\nstatic FUNCTION cTitle12&#40; oFoldang1, oFoldang2, aLetras1, acItems1,  ;\n                                                aLetras2, acItems2 &#41;\n\n   local c &#58;= aLetras1&#91; oFoldang1&#58;nOption &#93; + &quot; &#58; &quot; + acItems1&#91; oFoldang1&#58;nOption &#93;\n         c += &quot;   /   &quot;\n         c += aLetras2&#91; oFoldang2&#58;nOption &#93; + &quot; &#58; &quot; + acItems2&#91; oFoldang2&#58;nOption &#93;\n\nRETURN   c\n\n///////////////////////////////////////////////////////////////////////////\n\nCLASS TFoldAng  FROM TControl\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   DATA bAction\n   DATA acItems, anWidthPix, anArcDegred, anColors\n   DATA nOption, nItem, ;\n        nClrSiSele, nClrBkSele, nClrNoSele, nClrLine, ;\n        nInclin, nDegreds, ;\n        nPenPix\n\n   METHOD New&#40; nTop, nLeft, nBottom, nRight, ;\n               nOption, nInclin,    ;\n               acItems, anColors,   ;\n               bAction, oWnd &#41;  CONSTRUCTOR\n\n   METHOD Register&#40; nClsStyle &#41;\n\n   METHOD nHeight&#40;&#41;     INLINE  &#58;&#58;nBottom - &#58;&#58;nTop - 1\n   METHOD nWidth&#40;&#41;      INLINE  &#58;&#58;nRight - &#58;&#58;nLeft - 1\n\n   METHOD LButtonDown&#40; nRow, nCol, nKeyFlags &#41;\n\n   METHOD Display&#40;&#41;     INLINE  &#58;&#58;BeginPaint&#40;&#41;, &#58;&#58;Paint&#40;&#41;, &#58;&#58;EndPaint&#40;&#41;, 0\n   METHOD Paint&#40;&#41;\n   METHOD PaintItem&#40;&#41;\n\n   METHOD nTopTxt&#40;&#41;\n   METHOD nLeftTxt&#40;&#41;\n   METHOD nLeftItem&#40;&#41;\n   METHOD nRightItem&#40;&#41;\n\n   METHOD nRgbCicl&#40;&#41;\n   METHOD GiraFont&#40; nArcDegred &#41;\n   METHOD Length&#40;&#41;\n\nENDCLASS\n\nMETHOD New&#40; nTop, nLeft, nBottom, nRight, ;\n            nOption, nInclin,  ;\n            acItems, anColors, ;\n            bAction, oWnd &#41;  CLASS TFoldAng\n\n   local n, nAncho\n   local cTitle, cMsg\n\n   DEFAULT nTop    &#58;= 012,  nLeft &#58;= 420, ;\n           nBottom &#58;= 400, nRight &#58;= 451\n   DEFAULT nOption &#58;= 1, ;\n           nInclin &#58;= TFOLDANG_270\n\n   If nInclin &lt; TFOLDANG_000 &#46;or&#46; nInclin &gt; TFOLDANG_270\n      cTitle &#58;= \'TFoldAng&#40;&#41;&#58;New&#40; nTop, nLeft, nBottom, nRight, \' + ;\n                \'nOption, nInclin, acItems, anColors, bAction, oWnd &#41;\'\n      cMsg   &#58;= \'Parámetro  nInclin  con valor incorrecto&#58;\' + Str&#40; nInclin &#41;\n      MsgStop&#40; cMsg, cTitle &#41;\n      QUIT ///\n   End\n\n   DEFAULT acItems  &#58;= &#123; &quot;Uno&quot;, &quot;Dos&quot;, &quot;Tres&quot; &#125;, ; // no funcionan los  &quot;&amp;&quot;\n           anColors &#58;= &#123;&#125;\n   DEFAULT bAction &#58;= &#123;| Self | Tone&#40; 234, 1 &#41; &#125;\n   DEFAULT oWnd    &#58;= GetWndDefault&#40;&#41;\n\n   &#58;&#58;nPenPix    &#58;= 1\n\n   &#58;&#58;nInclin    &#58;= nInclin\n\n   &#58;&#58;nClrNoSele &#58;= CLR_HGRAY\n   &#58;&#58;nClrSiSele &#58;= CLR_WHITE\n   &#58;&#58;nClrBkSele &#58;= CLR_HGRAY\n   &#58;&#58;nClrLine   &#58;= CLR_CYAN\n\n   &#58;&#58;nTop    &#58;= nTop\n   &#58;&#58;nLeft   &#58;= nLeft\n   &#58;&#58;nBottom &#58;= nBottom\n   &#58;&#58;nRight  &#58;= nRight\n\n   &#58;&#58;nOption &#58;= nOption\n   &#58;&#58;nItem   &#58;= 1 // el ítem que se está pintando\n\n   &#58;&#58;acItems     &#58;= acItems\n   &#58;&#58;anArcDegred &#58;= &#123; 000, 090, 000, 270 &#125;\n   &#58;&#58;anColors    &#58;= anColors\n   &#58;&#58;anWidthPix  &#58;= &#123;&#125;\n\n   &#58;&#58;bAction &#58;= bAction\n\n   &#58;&#58;oWnd &#58;= oWnd\n\n   &#58;&#58;nStyle   &#58;= nOR&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP &#41;\n\n   &#58;&#58;nDegreds &#58;= &#58;&#58;anArcDegred&#91; &#58;&#58;nInclin &#93;\n\n   &#58;&#58;GiraFont&#40; &#58;&#58;nDegreds &#41;\n\n   If Empty&#40; anColors &#41;\n      aEval&#40; acItems, &#123;| cItem, nI | aAdd&#40; &#58;&#58;anColors, &#58;&#58;nRgbCicl&#40;&#41; &#41; &#125; &#41;\n   End\n   For n &#58;= 1 To Len&#40; &#58;&#58;acItems &#41;\n      nAncho &#58;= &#58;&#58;GetWidth&#40; &#58;&#58;acItems&#91; n &#93;, &#58;&#58;oFont &#41; + 060\n      aAdd&#40; &#58;&#58;anWidthPix, nAncho &#41;\n   Next\n\n   &#58;&#58;Register&#40;&#41;\n\n   If Empty&#40; oWnd&#58;hWnd &#41;\n      oWnd&#58;DefControl&#40; Self &#41;\n   Else\n      &#58;&#58;Create&#40;&#41;\n      oWnd&#58;AddControl&#40; Self &#41;\n   End\n\nRETURN Self\n\nMETHOD Register&#40; nClsStyle &#41;  CLASS TFoldAng\n\n   local oBrush\n   local hUser, nClrPane\n\n   DEFAULT &#58;&#58;lRegistered &#58;= &#46;f&#46;\n\n   If      &#58;&#58;lRegistered\n      RETURN NIL ///\n   End\n\n   #ifdef __CLIPPER__\n      hUser &#58;= GetModuleHandle&#40; &quot;user&#46;exe&quot; &#41;\n   #else\n      hUser &#58;= GetInstance&#40;&#41;\n   #endif\n\n   DEFAULT nClsStyle &#58;= nOR&#40; CS_VREDRAW, CS_HREDRAW &#41;,;\n           nClrPane  &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,  ;\n           oBrush    &#58;= TBrush&#40;&#41;&#58;New&#40; , nClrPane &#41;\n\n   nClsStyle &#58;= nOr&#40; nClsStyle, CS_GLOBALCLASS, CS_DBLCLKS &#41;\n\n   If GetClassInfo&#40; hUser, &#58;&#58;ClassName&#40;&#41;/*&quot;TSAYTRANS&quot;*/ &#41; == NIL\n      &#58;&#58;lRegistered &#58;= RegisterClass&#40; ;\n                       &#58;&#58;ClassName&#40;&#41;, nClsStyle,,, hUser, 0, oBrush&#58;hBrush &#41;\n   Else\n      &#58;&#58;lRegistered &#58;= &#46;t&#46;\n   End\n\n   oBrush&#58;End&#40;&#41;\n\nRETURN NIL\n\nMETHOD Length&#40;&#41;     CLASS TFoldAng\n\n   local n, nLen &#58;=   &#58;&#58;anWidthPix&#91; 1 &#93; // al menos hay un ítem, así que esto no produce un error\n\n   For n &#58;= 2 To Len&#40; &#58;&#58;anWidthPix &#41;\n            nLen +=   &#58;&#58;anWidthPix&#91; n &#93; - 020\n   Next\n\nRETURN      nLen\n\nMETHOD nLeftItem&#40;&#41;  CLASS TFoldAng\n\n   local n, nAux &#58;= 0\n\n   If &#58;&#58;nItem == 1\n      RETURN 0 ///\n   End\n\n   For n &#58;= 2 To &#58;&#58;nItem\n       nAux += &#58;&#58;anWidthPix&#91; n - 1 &#93; - 020\n   Next\n\nRETURN nAux\n\nMETHOD nRightItem&#40;&#41; CLASS TFoldAng\nRETURN &#40; &#58;&#58;nLeftItem&#40;&#41; + &#58;&#58;anWidthPix&#91; &#58;&#58;nItem &#93; &#41;\n\nMETHOD nTopTxt&#40;&#41;    CLASS TFoldAng\n\n   local nPos\n\n   If     &#58;&#58;nInclin = TFOLDANG_000\n         nPos &#58;= &#40; &#58;&#58;nHeight&#40;&#41; - &#58;&#58;nGetChrHeight&#40;&#41; &#41; / 2\n   ElseIf &#58;&#58;nInclin = TFOLDANG_090\n         nPos &#58;= &#58;&#58;nRightItem&#40;&#41; - 030\n   ElseIf &#58;&#58;nInclin = TFOLDANG_180\n         nPos &#58;= &#40; &#58;&#58;nHeight&#40;&#41; - &#58;&#58;nGetChrHeight&#40;&#41; &#41; / 2\n   ElseIf &#58;&#58;nInclin = TFOLDANG_270\n         nPos &#58;= &#58;&#58;nLeftItem&#40;&#41; + 030\n   End\n\nRETURN   nPos\n\nMETHOD nLeftTxt&#40;&#41;   CLASS TFoldAng\n\n   local nPos\n\n   If     &#58;&#58;nInclin = TFOLDANG_000\n         nPos &#58;= &#58;&#58;nLeftItem&#40;&#41; + 030\n   ElseIf &#58;&#58;nInclin = TFOLDANG_090\n         nPos &#58;= &#40; &#58;&#58;nWidth&#40;&#41; - &#58;&#58;nGetChrHeight&#40;&#41; &#41; / 2 + 001\n   ElseIf &#58;&#58;nInclin = TFOLDANG_180\n         nPos &#58;= &#58;&#58;nLeftItem&#40;&#41; + 030\n   ElseIf &#58;&#58;nInclin = TFOLDANG_270\n         nPos &#58;= &#40; &#58;&#58;nGetChrHeight&#40;&#41; + &#58;&#58;nWidth&#40;&#41; &#41; / 2 + 001\n   End\n\nRETURN   nPos\n\nMETHOD nRgbCicl&#40;&#41;   CLASS TFoldAng\n\nstatic    nColor &#58;= CLR_GRAY  ///\n\n   If     nColor == CLR_BLACK\n          nColor &#58;= CLR_GRAY\n   ElseIf nColor == CLR_GRAY\n          nColor &#58;= CLR_BLUE\n   ElseIf nColor == CLR_BLUE\n          nColor &#58;= CLR_CYAN\n   ElseIf nColor == CLR_CYAN\n          nColor &#58;= CLR_RED\n   ElseIf nColor == CLR_RED\n          nColor &#58;= CLR_MAGENTA\n   ElseIf nColor == CLR_MAGENTA\n          nColor &#58;= CLR_GREEN\n   ElseIf nColor == CLR_GREEN\n          nColor &#58;= CLR_BROWN\n   ElseIf nColor == CLR_BROWN\n          nColor &#58;= CLR_BLACK  ///\n   End\n\nRETURN    nColor\n\nMETHOD GiraFont&#40; nArcDegred &#41;  CLASS TFoldAng\n\n   local lReBuild &#58;= &#40; ValType&#40; &#58;&#58;oFont &#41; = &quot;O&quot; &#41;\n\n   If    lReBuild\n               &#58;&#58;oFont&#58;End&#40;&#41;\n   End\n\n   DEFINE FONT &#58;&#58;oFont  ;\n      NAME &quot;Arial&quot;      ;\n      SIZE 006, 013     ;\n      NESCAPEMENT nArcDegred * 10 // truco para que el texto salga tumbado &#40;funciona sólo con fonts TrueType&#41;\n\n   If    lReBuild\n      &#58;&#58;Refresh&#40;&#41;\n   End\n\nRETURN NIL\n\nMETHOD Paint&#40;&#41;  CLASS TFoldAng\n\n   local n, nLen &#58;= Len&#40; &#58;&#58;acItems &#41;\n\n   For   n &#58;= 1 To nLen\n      &#58;&#58;nItem &#58;= n\n      If n == &#58;&#58;nOption\n         if nLen == 1\n            Exit ///\n         end\n         Loop ///\n      End\n      &#58;&#58;PaintItem&#40;&#41;\n   Next\n   &#58;&#58;nItem &#58;= &#58;&#58;nOption\n   &#58;&#58;PaintItem&#40;&#41;\n\nRETURN NIL\n\nMETHOD PaintItem&#40;&#41;  CLASS TFoldAng  // actúa en función de  &#58;&#58;nItem  &#58;&#58;nOption  &#58;&#58;nInclin\n\n   local an2\n   local nColor     &#58;= &#58;&#58;anColors&#91; &#58;&#58;nItem &#93;\n   local nWidth     &#58;= &#58;&#58;nWidth&#40;&#41;\n   local nHeight    &#58;= &#58;&#58;nHeight&#40;&#41;\n   local nTopTxt    &#58;= &#58;&#58;nTopTxt&#40;&#41;\n   local nLeftTxt   &#58;= &#58;&#58;nLeftTxt&#40;&#41;\n   local nLeftItem  &#58;= &#58;&#58;nLeftItem&#40;&#41;\n   local nRightItem &#58;= &#58;&#58;nRightItem&#40;&#41;\n   local hDC  &#58;= &#58;&#58;GetDC&#40;&#41;\n   local hPen &#58;= CreatePen&#40; PS_SOLID, &#58;&#58;nPenPix, nColor &#41;\n   local hOldPen, nOldColor, hOldBrush, hOldFont, nOldMode, hBrush, hPenLine\n   local cPrompt &#58;= &#58;&#58;acItems&#91; &#58;&#58;nItem &#93;\n\n   If &#58;&#58;nItem = &#58;&#58;nOption\n      hBrush &#58;= CreateSolidBrush&#40; &#58;&#58;nClrBkSele &#41;\n   Else\n      hBrush &#58;= CreateSolidBrush&#40; nColor &#41;\n   End\n\n   If     &#58;&#58;nInclin = TFOLDANG_000\n      an2 &#58;= &#123; &#123; nLeftItem      , nHeight     &#125;,;\n               &#123; nLeftItem  +  4, nHeight - 2 &#125;,;\n               &#123; nLeftItem  +  6, nHeight - 4 &#125;,;\n               &#123; nLeftItem  +  7, nHeight - 7 &#125;,;\n               &#123; nLeftItem  +  7,           7 &#125;,;\n               &#123; nLeftItem  +  8,           4 &#125;,;\n               &#123; nLeftItem  + 10,           2 &#125;,;\n               &#123; nLeftItem  + 13,           0 &#125;,;\n               &#123; nRightItem - 13,           0 &#125;,;\n               &#123; nRightItem - 10,           2 &#125;,;\n               &#123; nRightItem -  8,           4 &#125;,;\n               &#123; nRightItem -  7,           7 &#125;,;\n               &#123; nRightItem -  7, nHeight - 7 &#125;,;\n               &#123; nRightItem -  6, nHeight - 4 &#125;,;\n               &#123; nRightItem -  4, nHeight - 2 &#125;,;\n               &#123; nRightItem     , nHeight     &#125;,;\n               &#123; nLeftItem      , nHeight     &#125; ;\n             &#125;\n   ElseIf &#58;&#58;nInclin = TFOLDANG_090\n      an2 &#58;= &#123; &#123; nWidth    , nLeftItem         &#125;,;\n               &#123; nWidth - 2, nLeftItem    +  4 &#125;,;\n               &#123; nWidth - 4, nLeftItem    +  6 &#125;,;\n               &#123; nWidth - 7, nLeftItem    +  7 &#125;,;\n               &#123;          7, nLeftItem    +  7 &#125;,;\n               &#123;          4, nLeftItem    +  8 &#125;,;\n               &#123;          2, nLeftItem    + 10 &#125;,;\n               &#123;          0, nLeftItem    + 13 &#125;,;\n               &#123;          0, nRightItem   - 13 &#125;,;\n               &#123;          2, nRightItem   - 10 &#125;,;\n               &#123;          4, nRightItem   -  8 &#125;,;\n               &#123;          7, nRightItem   -  7 &#125;,;\n               &#123; nWidth - 7, nRightItem   -  7 &#125;,;\n               &#123; nWidth - 4, nRightItem   -  6 &#125;,;\n               &#123; nWidth - 2, nRightItem   -  4 &#125;,;\n               &#123; nWidth    , nRightItem        &#125;,;\n               &#123; nWidth    , nLeftItem         &#125; ;\n             &#125;\n   ElseIf &#58;&#58;nInclin = TFOLDANG_180\n      an2 &#58;= &#123; &#123; nLeftItem      ,           0 &#125;,;\n               &#123; nLeftItem  +  4,           2 &#125;,;\n               &#123; nLeftItem  +  6,           4 &#125;,;\n               &#123; nLeftItem  +  7,           7 &#125;,;\n               &#123; nLeftItem  +  7, nHeight - 7 &#125;,;\n               &#123; nLeftItem  +  8, nHeight - 4 &#125;,;\n               &#123; nLeftItem  + 10, nHeight - 2 &#125;,;\n               &#123; nLeftItem  + 13, nHeight     &#125;,;\n               &#123; nRightItem - 13, nHeight     &#125;,;\n               &#123; nRightItem - 10, nHeight - 2 &#125;,;\n               &#123; nRightItem -  8, nHeight - 4 &#125;,;\n               &#123; nRightItem -  7, nHeight - 7 &#125;,;\n               &#123; nRightItem -  7,           7 &#125;,;\n               &#123; nRightItem -  6,           4 &#125;,;\n               &#123; nRightItem -  4,           2 &#125;,;\n               &#123; nRightItem     ,           0 &#125;,;\n               &#123; nLeftItem      ,           0 &#125; ;\n             &#125;\n   ElseIf &#58;&#58;nInclin = TFOLDANG_270\n      an2 &#58;= &#123; &#123;          0, nLeftItem         &#125;,;\n               &#123;          2, nLeftItem    +  4 &#125;,;\n               &#123;          4, nLeftItem    +  6 &#125;,;\n               &#123;          7, nLeftItem    +  7 &#125;,;\n               &#123; nWidth - 7, nLeftItem    +  7 &#125;,;\n               &#123; nWidth - 4, nLeftItem    +  8 &#125;,;\n               &#123; nWidth - 2, nLeftItem    + 10 &#125;,;\n               &#123; nWidth    , nLeftItem    + 13 &#125;,;\n               &#123; nWidth    , nRightItem   - 13 &#125;,;\n               &#123; nWidth - 2, nRightItem   - 10 &#125;,;\n               &#123; nWidth - 4, nRightItem   -  8 &#125;,;\n               &#123; nWidth - 7, nRightItem   -  7 &#125;,;\n               &#123;          7, nRightItem   -  7 &#125;,;\n               &#123;          4, nRightItem   -  6 &#125;,;\n               &#123;          2, nRightItem   -  4 &#125;,;\n               &#123;          0, nRightItem        &#125;,;\n               &#123;          0, nLeftItem         &#125; ;\n             &#125;\n   End\n\n   hOldBrush &#58;= SelectObject&#40; hDC, hBrush &#41;\n   hOldPen   &#58;= SelectObject&#40; hDC, hPen &#41;\n\n   PolyPolygon&#40; hDC, an2 &#41; ///\n\n   SelectObject&#40; hDC, hOldPen &#41;\n   DeleteObject&#40; hPen &#41;\n   SelectObject&#40; hDC, hOldBrush &#41;\n   DeleteObject&#40; hBrush &#41;\n\n   hPenLine &#58;= CreatePen&#40; PS_SOLID, &#58;&#58;nPenPix, &#58;&#58;nClrLine &#41;\n   hOldPen  &#58;= SelectObject&#40; hDC, hPenLine &#41;\n   If     &#58;&#58;nInclin = TFOLDANG_000\n      MoveTo&#40; hDC,    000, nHeight &#41;\n      LineTo&#40; hDC, nWidth, nHeight &#41;\n   ElseIf &#58;&#58;nInclin = TFOLDANG_090\n      MoveTo&#40; hDC, nWidth, 000 &#41;\n      LineTo&#40; hDC, nWidth, nHeight &#41;\n   ElseIf &#58;&#58;nInclin = TFOLDANG_180\n      MoveTo&#40; hDC,    000, 000 &#41;\n      LineTo&#40; hDC, nWidth, 000 &#41;\n   ElseIf &#58;&#58;nInclin = TFOLDANG_270\n      MoveTo&#40; hDC, 000,     000 &#41;\n      LineTo&#40; hDC, 000, nHeight &#41;\n   End\n   SelectObject&#40; hDC, hOldPen &#41;\n   DeleteObject&#40; hPenLine &#41;\n\n   nOldMode &#58;= SetBkMode&#40; hDC, TRANSPARENT &#41; // TextOut&#40;&#41;  respetará el color de background\n   hOldFont &#58;= SelectObject&#40; hDC, &#58;&#58;oFont&#58;hFont &#41;\n   If &#58;&#58;nItem = &#58;&#58;nOption\n      nOldColor &#58;= SetTextColor&#40; hDC, &#58;&#58;nClrSiSele &#41;\n   Else\n      nOldColor &#58;= SetTextColor&#40; hDC, &#58;&#58;nClrNoSele &#41;\n   End\n   TextOut&#40; hDC, nTopTxt, nLeftTxt, cPrompt &#41; ///\n   SetTextColor&#40; hDC, nOldColor &#41;\n   SelectObject&#40; hDC, hOldFont  &#41;\n   SetBkMode&#40; hDC, nOldMode &#41;\n\n   &#58;&#58;ReleaseDC&#40;&#41;\n\nRETURN NIL\n\nMETHOD LButtonDown&#40; nRow, nCol, nKeyFlags &#41;  CLASS TFoldAng\n\n   local n, nLen &#58;= Len&#40; &#58;&#58;acItems &#41;\n\n   &#58;&#58;SetFocus&#40;&#41;\n\n   IF     &#58;&#58;nInclin = TFOLDANG_000\n      For n &#58;= 1 To nLen\n         &#58;&#58;nItem &#58;= n // para que  &#58;&#58;nLeftItem&#40;&#41;  y  &#58;&#58;nRightItem&#40;&#41;  devuelvan los valores correctos\n         If nCol &gt; &#58;&#58;nLeftItem&#40;&#41; &#46;and&#46; nCol &lt; &#58;&#58;nRightItem&#40;&#41; ///\n            &#58;&#58;nOption &#58;= n\n            &#58;&#58;Refresh&#40;&#41;\n            if       &#58;&#58;bAction != NIL\n               Eval&#40; &#58;&#58;bAction, Self &#41;\n               Exit ///\n[/code:ufnd82az]','',0,'AIA=','ufnd82az',1,0,'',397,0,0),(25811,4134,4,2,0,'87.218.146.132',1170076401,1,0,1,1,1,1,'','','Vilian,\n\nWe have tested your sample and checked these values:\nMsgInfo( oFTP:hFTP )  \nMsgInfo( oFile:hFile )\nthey look ok, but InternetWriteFile() (oFile:Write()) is returning 0x87 for GetLastError(): ERROR_INVALID_PARAMETER\nWe don\'t know why it reports such value <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nHave you tried to use FtpPutFile() instead of sending blocks ?','',0,'AIA=','3w0mouhs',1,0,'',2,0,0),(25812,5796,3,2,0,'87.218.146.132',1170076526,1,0,1,1,1,1,'','','Silvio,\n\nCreateObject() returns an OLE object, not an ActiveX object that supports Do(). It has to be done the way we have pointed:\n\nhLayers := oMap:GetProp(\"Layers\") \nOleInvoke( hLayers, \"Add\", oLayer )','',0,'AIA=','2c95k8kr',1,1170076684,'',2,2,0),(25813,5796,3,49,0,'213.82.134.66',1170076553,1,0,1,1,1,1,'','','Now run ok \n\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=barigisgh2&#46;jpg:2uy505wi][img:2uy505wi]http&#58;//img224&#46;imageshack&#46;us/img224/7723/barigisgh2&#46;th&#46;jpg[/img:2uy505wi][/url:2uy505wi]\n\n\n\n[code:2uy505wi]\n #include &quot;FiveWin&#46;ch&quot;\n\n   function Main&#40;&#41;\n\n      local oWnd, oActiveX,oLayer\n      local cEvents &#58;= &quot;&quot;\n\n      DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Gis Support&quot;\n\n      oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;MapObjectsLT2&#46;Map&#46;1&quot; &#41;\n\n      oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n      oActiveX&#58;SetProp&#40;&quot;Appearance&quot;, 1&#41; // 3D\n      oActiveX&#58;SetProp&#40;&quot;ScrollBars&quot;, 1&#41; // TRUE\n\n      oLayer &#58;= CreateObject&#40;&quot;MapObjectsLT2&#46;MapLayer&quot;&#41;\n      oLayer&#58;File &#58;= &quot;d&#58;\\gis\\sez_bari&#46;shp&quot;\n\n       hLayers &#58;= oActiveX&#58;GetProp&#40;&quot;Layers&quot;&#41;\n       OleInvoke&#40; hLayers, &quot;Add&quot;, oLayer &#41;\n\n      oWnd&#58;Resize&#40;&#41;\n\n      oWnd&#58;bResized &#58;= &#123;||  oActiveX&#58;Do&#40;&quot;Refresh&quot;&#41; &#125;\n\n         ACTIVATE WINDOW oWnd\n       return nil\n[/code:2uy505wi]\n\nStephan,\n\nthe method refresh not run ok \n\nHow I can make to zoom it ?','',0,'GIA=','2uy505wi',1,0,'',49,0,0),(25814,3913,3,49,0,'213.82.134.66',1170077038,1,0,1,1,1,1,'','','Randal \nwhere i can download Mappoint control activex ?','',0,'GIA=','1yis9thc',1,0,'',49,0,0),(25815,5797,6,121,0,'189.138.42.212',1170079776,1,0,1,1,1,1,'','','muchas gracias\nexactamente lo que necesitaba\n\nSaludos','',0,'GIA=','123aatsy',1,0,'',121,0,0),(25816,5794,6,400,0,'201.26.145.5',1170080693,1,0,1,1,1,1,'','','Rochinha,\n\no METHOD LButtonDown( nRow, nCol, nKeyFlags )  CLASS TFoldAng \n\nNao esta faltando alguma coisa no final dele ?\n\nOu eh só fechar os If\'s ?\n\nMaurilio; \nobrigado pela dica.\n\n@braços ale','',0,'GIA=','fa3y3x8w',1,0,'',400,0,0),(25817,5768,3,924,0,'81.208.36.89',1170083013,1,0,1,1,1,0,'','','tks  !','',0,'GIA=','26o7cn2j',1,0,'',924,0,0),(25818,5794,6,397,0,'201.27.23.155',1170090540,1,0,1,0,1,1,'','','Amiguinhos\n\nDesculpe-me\n\nCodigo completo em <!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/fhfoldan.zip\">http://www.shoppmarketing.com/forum/fhfoldan.zip</a><!-- m -->','',0,'GIA=','120gjecm',1,0,'',397,0,0),(25819,3913,3,213,0,'24.242.230.43',1170090938,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:2mwatias]Randal \nwhere i can download Mappoint control activex ?[/quote:2mwatias]\n\nYou have to purchase Mappoint.\n\nRegards,\nRandal Ferguson','',0,'gA==','2mwatias',1,0,'',213,0,0),(25820,5801,6,774,0,'200.72.179.184',1170092364,1,0,1,1,1,1,'','AYUUUDAAAAAAAAAAAAAAAAAAAAAA','Estoy super perdido;; a ver si una alma generosa me ayuda..\n\ndebo hacer esto:\n\nen un menu principal,, debo definir un FONT q sirva para la salida de impresora,, esto lo hago con TWindow():Setfol() funciona bien\n\npero nose como incorporarlo a la impresion.. \n\n\nprimero defino un oFont Publico, lo paso como parametro a la rutina de impresion pero no se incorporan los font seleccionados\n\n\nGRACIAS::','',0,'gA==','3jncz40u',1,0,'',774,0,0),(25821,5801,6,237,0,'200.68.70.89',1170093209,1,0,1,1,1,0,'','.','Proba con:\n\noPrn:SetFont( oFont )\n\nSalu2','',0,'gA==','2dt4tdsh',1,0,'',237,0,0),(25822,5800,7,720,0,'80.36.244.134',1170093613,1,0,1,1,1,0,'','','Gracias Antonio....siempre al pie del cañón!\n\nSaludos.\n\nElías Torres.','',0,'gA==','3u5239om',1,0,'',720,0,0),(25823,5796,3,930,0,'137.224.245.23',1170101284,1,0,1,1,1,0,'','','Oke guys, I also got it more or less running. At least I see a map.\nAntonio, you hint works fine.\nI\'ll come back in a few days with a working sample including zooming and panning.\n\nRegards,\nStephan','',0,'gA==','6mh9dveq',1,0,'',930,0,0),(25824,5802,6,925,0,'200.11.95.213',1170104185,1,0,1,1,1,0,'','ayuda para vizualizar un say','creo que esto no es dificil pero no puedo obtener la solucion, tengo un dialogo que solicita un codigo de articulo y despues realiza una busqueda en un archivo, si no existe envia el mensaje y solicita nuevamente el codigo, si existe y es donde tengo el problema que muestre un say con la descripcion en el dialogo si alguien tiene un ejemplo. asi lo estoy haciendo y no me funciona..   : \n\n\nSTATIC FUNCTION Diacerti()\n    LOCAL oDlg,odbf,ofnt\n    local c_fam:=0,c_art:=0\n\n    Use miart Shared New    &amp;base de Articulos\n    Set index to miart1\n    DATABASE oDbf\n    odbf:bEof:={ ||  NIL }\n\n\n    DEFINE FONT oFnt NAME \"times New Roman\" SIZE 0,-18 BOLD\n\n    DEFINE DIALOG oDlg RESOURCE \"Stok\"\n\n    REDEFINE GET c_fam Picture \"@z 999\" ID 4011 OF oDlg\n    REDEFINE GET c_art Picture \"@z 9999\" ID 4012 OF oDlg Valid Artic(c_fam,c_art,odbf)\n\n    REDEFINE Say odbf:mdes_art ID 4013 Of odlg FONT oFnt update\n\n    REDEFINE BUTTON ID 4001 OF oDlg ACTION( lOK := .T., oDlg:End() )\n    REDEFINE BUTTON ID 4002 OF oDlg ACTION( oDlg:End() )\n\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    if lok=.t.\n    Endif\nRETURN NIL\n\n\nSTATIC FUNCTION Artic(c_fam,c_art,odbf)\n  Local lRet:= .T.\n  Local Codigo:=Str(c_fam,3)+Str(c_art,4)\n\n  If ( !EMPTY( codigo ) )\n\n   oDbf:Seek(codigo)\n\n   If oDbf:eof()\n    MsgStop( \"CODIGO  \"+Str(c_fam,3)+\"-\"+Str(c_art,4)+ \"  NO EXISTE.\", \"Error\" )\n    oDbf:Gotop()\n    lret:=.f.\n   endif\n\n  Endif\n  odbf:mdes_art\n\n  aqui lo encuentra  pero al volver al dialogo no me muestra.. \n\nRETURN (lRet)\n\nmucha gracias \n\n\Z','',0,'gA==','1cgva3xn',1,0,'',925,0,0),(25825,5796,3,930,0,'80.6.225.113',1170106600,1,0,1,1,1,0,'','','to zoom in add the following code:\n\n#DEFINE moZoomIn 51\n oMap:SetProp(\"MousePointer\", moZoomIn)\n\n\nIn function EventInfo add the following:\n   \n  IF event == \"Click\"\n      IF oMap:GetProp(\"MousePointer\") == moZoomIn\n         oRect := oMap:Do(\"TrackRectangle\")\n         oMap:SetProp(\"Extent\", oRect)\n         oMap:Do(\"Refresh\")\n      ENDIF\n\nHowever, this code does not work. oMap:Do(\"TrackRectangle\") returns a handle to a rectangle object. I have no idea how to assign this object to the Extent property of oMap\n\nAlso the tracking does not work well.\n\n\n\nRegards,\nStephan','',0,'gA==','2nbghxxf',1,0,'',930,0,0),(25826,5802,6,891,0,'148.243.37.162',1170106944,1,0,1,1,1,0,'','Re: ayuda para vizualizar un say','Hola Pablo, te falta la instruccion de Refresh()\noDbf:mdes_art\noDbf:Refresh()\n\nEspero que con esto soluciones tu problema amigo...\nAdriano','',0,'gA==','g1cft5rr',1,0,'',891,0,0),(25827,3913,3,49,0,'62.13.172.78',1170114375,1,0,1,1,1,1,'','','perhaps I foundMappoint activex \ncan I have test sample to search an address  into a city ?\n\nthanks','',0,'gA==','3lhr3r8z',1,0,'',49,0,0),(25828,5802,6,397,0,'201.27.23.155',1170115366,1,0,1,0,1,1,'','','Amiguinho\n\nREDEFINE GET [b:c37glb43]oGet001 VAR[/b:c37glb43] c_fam Picture \"@z 999\" ID 4011 OF oDlg \nREDEFINE GET [b:c37glb43]oGet002 VAR[/b:c37glb43] c_art Picture \"@z 9999\" ID 4012 OF oDlg Valid Artic(c_fam,c_art,odbf,[b:c37glb43]oSay003[/b:c37glb43]) \n\nREDEFINE Say [b:c37glb43]oSay003 VAR cSay003[/b:c37glb43] ID 4013 Of odlg FONT oFnt update \n\nREDEFINE BUTTON ID 4001 OF oDlg ACTION( lOK := .T., oDlg:End() ) \nREDEFINE BUTTON ID 4002 OF oDlg ACTION( oDlg:End() ) \n\n\nACTIVATE DIALOG oDlg CENTERED \n\nif lok=.t. \nEndif \nRETURN NIL \n\n\nSTATIC FUNCTION Artic(c_fam,c_art,odbf,osay) \nLocal lRet:= .T. \nLocal Codigo:=Str(c_fam,3)+Str(c_art,4) \n\nIf ( !EMPTY( codigo ) ) \n\noDbf:Seek(codigo) \n\nIf oDbf:eof() \nMsgStop( \"CODIGO \"+Str(c_fam,3)+\"-\"+Str(c_art,4)+ \" NO EXISTE.\", \"Error\" ) \noDbf:Gotop() \nlret:=.f. \nendif \n\nEndif \n[b:c37glb43]oSay003:SetText([/b:c37glb43]odbf:mdes_art)\n\naqui lo encuentra pero al volver al dialogo no me muestra.. \n\nRETURN (lRet)','',0,'QA==','c37glb43',1,0,'',397,0,0),(25829,5803,1,819,0,'216.34.194.113',1170116022,1,0,1,1,1,0,'','monitoring key stroke inside tget object.','hi all,\n\nIs there a way to monitor a keytroke in a tget object?  Similar to bkeydown in dialogs.\n\nThanks!','',0,'QA==','15l49eci',1,0,'',819,0,0),(25830,5797,6,228,0,'201.216.3.234',1170117545,1,0,1,1,1,1,'','JEJEJEE.','Amigo que pena.. de casualidad tienes la misma rutina en español...','',0,'QA==','2mdh4kss',1,0,'',228,0,0),(25831,5804,2,304,0,'201.155.7.216',1170118319,1,0,1,1,1,0,'','BtnGet en un objeto DIALOG y uno WINDOW','Hola a todos:\nPor que la clase BtnGet no me funciona en un objeto WINDOW y si lo hace perfectamente en un DIALOG\n\ncuando coloco el comando en un DIALOG aparece el bitmap y todo funciona correctamente pero el mismo codigo lo pongo en ubjeto WINDOW y no funciona solo aparece el GET sin el bitmap, alguna idea de q esta pasando ??\n\n@ 8.4, 21 TBTNGET oGet12 VAR xCom  OF oDlg6 ;\n      SIZE 50, 11              ;\n      RESOURCE \"mail1.bmp\"     ;\n      PICTURE \"999,999.99\";\n      ACTION Seleccion9( oGet12,oDlg6 );\n      VALID(CALCULO3(@xCom,oSay6,oDlg6),Libre)\n\nlo unico q cambio es en un lugar un DIALOG un WINDOW y ya no funciona\n\nespero haberme explicado correctamente, saludos y gracias\n\nveracruz, ver. mexico','',0,'QA==','3rfwnjsd',1,0,'',304,0,0),(25832,5794,6,400,0,'201.27.31.198',1170120432,1,0,1,1,1,1,'','','Obrigado Rochinha,\n\nDeu certo.\n\nE tem como colocar uma TabControl, em um Browse, como a FSDI ?\n\n@braços Ale','',0,'QA==','1uvw89o9',1,0,'',400,0,0),(25833,5797,6,785,0,'190.64.106.196',1170123087,1,0,1,1,1,0,'','','Leandro:\n\nEspero te sirva.\n\nFUNCTION ImporteConLetra(Importe,cMon)\n   LOCAL Centavos, Millones, Miles, ImpLet:=\"\"\n   Centavos:=Right(TRAN(Importe,\"999999999999.99\"),2)\n   if importe &lt; 0 ; importe := importe *-1;endif\n   Importe:=Importe+.005\n   Millones:=INT(Importe/1000000)\n   IF Millones&gt;0\n      Importe:=Importe-(Millones*1000000)\n      ImpLet:=GeneraImporte(Millones)\n      ImpLet:=ImpLet+IF(Importe=0,\"millones de \",;\n                     IF(Millones=1,\"millón \",\"millones \"))\n   ENDIF\n   Miles:=INT(Importe/1000)\n   IF Miles&gt;0\n      Importe:=Importe-(Miles*1000)\n      ImpLet:=ImpLet+GeneraImporte(Miles)+\"mil \"\n   ENDIF\n   ImpLet:=ImpLet+GeneraImporte(Importe)\n   ImpLet:=IF(cMon=\"D\",ImpLet+\"dólares \"+\"con \"+centavos+\"/100 u.s.\",;\n                       ImpLet+\"pesos \" +\"con \" +centavos+\"/100 m.n.\" )\nRETURN (ImpLet)\n\nSTATIC FUNCTION GeneraImporte(Importe)\n   LOCAL ic, id, iu, c, d, u, re, a_Cen, a_Dec, a_Uni\n   ic:=id:=iu:=\"\"\n   c:=d:=u:=re:=0\n   a_Uni:={\"un \",\"dos \",\"tres \",\"cuatro \",\"cinco \",\"seis \",\"siete \",\"ocho \",;\n           \"nueve \",\"diez \",\"once \",\"doce \",\"trece \",\"catorce \",\"quince \"  ,;\n           \"dieciseis \",\"diecisiete \",\"dieciocho \",\"diecinueve \",\"veinte \" ,;\n           \"veintiun \",\"veintidos \",\"veintitres \",\"veinticuatro \",\"veinticinco \",;\n           \"veintiseis \",\"veintisiete \",\"veintiocho \",\"veintinueve \"}\n   a_Dec:={\"diez \",\"veinte \",\"treinta \",\"cuarenta \",\"cincuenta \",\"sesenta \",;\n           \"setenta \",\"ochenta \",\"noventa \"}\n   a_Cen:={\"ciento \",\"doscientos \",\"trescientos \",\"cuatrocientos \",\"quinientos \",;\n           \"seiscientos \",\"setecientos \",\"ochocientos \",\"novecientos \"}\n\n   c:=INT(Importe/100)\n   re:=Importe-(c*100)\n   ic:=IF((c=1 .AND. re=0),\"cien \",IF(c&lt;&gt;0,a_Cen[c],\"\"))\n   d:=INT(re/10)\n   re:=IF(d&gt;2,(re-(d*10)),re)\n   id:=IF(d&gt;2,a_Dec[d],\"\")\n   id:=IF((d&gt;2 .AND. re&gt;=1),id+\"y \",id)\n   u:=INT(re)\n   iu:=IF(u&gt;0 .AND. u&lt;30,a_Uni[u],\"\")\nRETURN (ic+id+iu)\n\nSaludos\n\nRuben Fernandez','',0,'','1hm8x6h8',1,0,'',785,0,0),(25834,5802,6,925,0,'201.222.175.208',1170125552,1,0,1,1,1,0,'','Gracias por la informacion','les agradesco la pronta respuesta, adriano no supe donde poner el  refresh(), me arrojaba error y con  la opcion de rochinha me funciono ok.','',0,'','mstd7an0',1,0,'',925,0,0),(25835,5805,7,397,0,'201.27.23.155',1170125732,1,0,1,0,1,1,'','SKINS - 3 skins para el Pocket Emulator','Aqui\n\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/pocketskins.zip\">http://www.shoppmarketing.com/forum/pocketskins.zip</a><!-- m -->','',0,'','2b1djwk0',1,0,'',397,0,0),(25836,5806,4,397,0,'201.27.23.155',1170125866,1,0,1,0,1,1,'','SKINS - 3 skins for Pocket Emulator','Here is\n\n<!-- m --><a class=\"postlink\" href=\"http://www.5volution.com/forum/pocketskins.zip\">http://www.5volution.com/forum/pocketskins.zip</a><!-- m -->','',0,'','3jv2gm6q',1,1199924239,'',397,1,0),(25837,5770,6,307,0,'201.143.198.238',1170128674,1,0,1,1,1,0,'','radiobuttons','perdon, pero donde se lo quito?... en el work shop estoy usando un radio button , en button type dice auto radio button\n\nno veo mas propiedades...\n\n\nsaludos\narnulfo','',0,'','2mi41ggb',1,0,'',307,0,0),(25838,5807,3,282,0,'210.72.235.124',1170129297,1,0,1,1,1,0,'','How to open a  png graphic file','Dear all\n\nDid anyone can tell me , How to open a PNG graphic file.\n\nI can\'t open with TBTNBMP class\n\nThanks !\n\nBest Regards\n\nDixon Chu','',0,'','38bdfl1k',1,0,'',282,0,0),(25839,5742,6,73,0,'201.132.245.181',1170131910,1,0,1,1,1,0,'','','gracias  jose luis, <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nsalu2\npaco','',0,'','7ha709op',1,0,'',73,0,0),(25840,5757,3,705,0,'61.0.137.121',1170137493,1,0,1,1,1,0,'','','Thanks Detlef\n\nExcellent suggestion. Problem solved.\n\nWith regards\n\nArindam','',0,'','2bobfy3y',1,0,'',705,0,0),(25841,5807,3,2,0,'87.218.146.132',1170144911,1,0,1,1,1,1,'','','Dixon,\n\nYou have to use FWH Class TImage, please review samples\\TestImg.prg','',0,'','370m78do',1,0,'',2,0,0),(25842,5803,1,2,0,'87.218.146.132',1170145301,1,0,1,1,1,1,'','','You can do it exactly in the same way:\n\noGet:bKeyDown := { | nKey, nFlags | ... }','',0,'','gh6lld2f',1,0,'',2,0,0),(25843,5806,4,2,0,'87.218.146.132',1170145571,1,0,1,1,1,1,'','','Thanks!','',0,'','3nxbo9ui',1,0,'',2,0,0),(25844,5368,6,180,0,'83.44.34.238',1170146714,1,0,1,1,1,0,'','','Hola Francisco:\n\nPodrías mostrarnos esa rutina?\n\nCon solo oPrn:SayImage(1.3,0.2,\"FOTO.JPG\",2.6,2.2)  no logro imprimir nada.\n\nUn saludo,\nManuel Aranda','',0,'','2tekuker',1,0,'',180,0,0),(25845,5795,6,533,0,'80.32.177.143',1170152045,1,0,1,1,1,0,'','','Manuel / Biel, creo que el problema se podría resolver, o por lo menos, aproximarlo mas con lo siguiente:\n\nEn la funcion a imprimir declarais las siguientes variables:\nlocal nFilas:=50\nlocal nColumnas:=80\n\n[code:2warcv0n]\nprint oRep preview title &quot;Generador de Presupuestos Ver 1&#46;0&quot; \n    define font ofont name &quot;Arial&quot; size 0,10 bold of oRep\n    define font ofont1 name &quot;Arial&quot; size 0,9 of oRep\n    oRep&#58;Setup&#40;&#41;\n    PAGE\n       PosColum&#58;=oRep&#58;nHorzRes&#40;&#41;/nColumnas\n       PosFila&#58;=oRep&#58;nVertRes&#40;&#41;/nFilas\n       oRep&#58;Say&#40;10*PosFila,9*PosColum,&lt;datos&gt;,ofont&#41;\n        &#46;&#46;&#46;\n        &#46;&#46;&#46;\n[/code:2warcv0n]\n\nCon esto lo que conseguimos, es dividir, en este ejemplo, el folio en 50 filas y 80 columnas, dando igual el tipo de impresora. Yo lo uso y da igual si imprimo en una matricial, laser, tinta, y supongo que dará lo mismo que en el PDF, ya que antes de imprimir, verá la resolución que tiene y lo dividirá en filas y columnas.\n\nEspero que os sirva, ya me comentáis algo.\n\nSALUDOS','',0,'AIA=','2warcv0n',1,0,'',533,0,0),(25846,5649,3,6,0,'87.21.195.245',1170154782,1,0,1,1,1,1,'','','The bug has been fixed but the result is not what you expected. Now the xHarbour GET class behavior is Clipper compatible but you have to change FWH TGet class to get the same behavior:\n\n[code:2vqlrub2]if &#58;&#58;oGet&#58;Type == &quot;N&quot; &#46;and&#46; ;\n   &#40; Chr&#40; nKey &#41; == &quot;&#46;&quot; &#46;or&#46; Chr&#40; nKey &#41; == &quot;,&quot; &#41;\n   if &#58;&#58;oGet&#58;Clear   // EMG\n      &#58;&#58;oGet&#58;DelEnd&#40;&#41;   // EMG\n   endif   // EMG\n   &#58;&#58;oGet&#58;ToDecPos&#40;&#41;\nelse[/code:2vqlrub2]\n\nEMG','',0,'AIA=','2vqlrub2',1,0,'',6,0,0),(25847,5649,3,2,0,'87.218.146.66',1170156536,1,0,1,1,1,1,'','','Enrico,\n\nDoes your change work fine with Harbour too ? thanks','',0,'AIA=','1il8ool6',1,0,'',2,0,0),(25848,5649,3,6,0,'87.21.195.245',1170158419,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1h0f7en0]Enrico,\n\nDoes your change work fine with Harbour too ? thanks[/quote:1h0f7en0]\n\nYes, it seems so.\n\nEMG','',0,'gA==','1h0f7en0',1,0,'',6,0,0),(25849,5649,3,2,0,'87.218.146.66',1170158630,1,0,1,1,1,1,'','','Thanks!','',0,'gA==','3apez21c',1,0,'',2,0,0),(25850,5808,6,36,0,'200.113.56.235',1170159788,1,0,1,1,1,0,'','folder','Estimados\n\nComo puedo validar una pestaña del folder, lo intento pero me quedan ambos recurso en el pantalla\n\nAqui esta el codigo, como ven le he puesto de todo <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n[code:2d1qjbqf]\n#define PAGE1 oFld&#58;aDialogs&#91;1&#93;\n\nREDEFINE FOLDER oFld ID 101 OF oDlg 										 ;\n      PROMPT &quot; &amp;Impresión &quot;, &quot; &amp;Documentos &quot;, &quot; Sistema &quot;, &quot; Empresa&quot; ;\n		DIALOGS &quot;PARAME0&quot;, &quot;PARAME1&quot;, &quot;PARAME4&quot;,&quot;PARAME3&quot;					 ;\n      COLORS CLR_BLACK, CLR_BLUE                                      ;\n		ON CHANGE &#40; ;\n				iif&#40; nOption &lt;&gt; 1, iif&#40; ClaveAcceso&#40; dbPAR&#58;ClaveEli, &quot;Parametros del sistema&quot;&#41;, &#46;t&#46;, &#40;oFld&#58;SetOption&#40;1&#41;, oFld&#58;nOption&#58;=1, oFld&#58;Refresh&#40;&#41;,PAGE1&#58;Refresh&#40;&#41;,sysrefresh&#40;&#41; &#41; &#41;, &#46;t&#46; &#41;;\n					 &#41; ;\n		ADJUST\n[/code:2d1qjbqf]\n\n\nSaludos\nPatricio','',0,'AIA=','2d1qjbqf',1,0,'',36,0,0),(25851,5807,3,282,0,'61.49.236.65',1170161410,1,0,1,1,1,0,'','','Dear Antonio\n\nI want to use this PNG on menu bar ,\n\nBut TImage can\'t put on it.\n\nCan I loadbitmap first. then use button class . \n\nOR. other ways ..','',0,'AIA=','ayecjour',1,0,'',282,0,0),(25852,4134,4,267,0,'200.208.238.2',1170166007,1,0,1,1,1,1,'','','Antonio,\n\nI Tried to use FtpPutFile, but the system stops to answer without giving error message. You have an example of the use of this function?','',0,'AIA=','lnxrj3rw',1,0,'',267,0,0),(25853,5808,6,774,0,'200.72.70.196',1170170205,1,0,1,1,1,1,'','','#define PAGE1 oFld:aDialogs[1] \n\nREDEFINE FOLDER oFld ID 101 OF oDlg                                ; \n      PROMPT \" &amp;Impresión \", \" &amp;Documentos \", \" Sistema \", \" Empresa\" ; \n      DIALOGS \"PARAME0\", \"PARAME1\", \"PARAME4\",\"PARAME3\"                ; \n      COLORS CLR_BLACK, CLR_BLUE                                      ; \n      ON CHANGE ( ; \n            iif( [color=red:1qw99nu2]oFld:[/color:1qw99nu2]nOption &lt;&gt; 1, iif( ClaveAcceso( dbPAR:ClaveEli, \"Parametros del sistema\"), .t., (oFld:SetOption(1), oFld:nOption:=1, oFld:Refresh(),PAGE1:Refresh(),sysrefresh() ) ), .t. ); \n                ) ; \n      ADJUST','',0,'Ag==','1qw99nu2',1,0,'',774,0,0),(25854,5809,3,920,0,'201.13.209.158',1170170244,1,0,1,1,1,0,'','EXAMPLE CODE - XHARBOUR SELF CONTAINED DLL','Dear Antonio,\n\nI need to create a SELF CONTAINED DLL ... a DLL with\nthe XHARBOUR ENGINE inside ... to be CALLED for my aplication .EXE.\n\nCould you publish a FULL EXAMPLE about de CREATON...step by step..\nof a XHARBOUR - SELF CONTAINED DLL.\n\nI did read some messages throughout this FORUM but links\nare broken...  very old...\n\nThanks in advance.\nLee Osvald\n<!-- e --><a href=\"mailto:osvaldobatalha@terra.com.br\">osvaldobatalha@terra.com.br</a><!-- e -->','',0,'Ag==','3hcmsqsa',1,0,'',920,0,0),(25855,5808,6,36,0,'200.113.56.235',1170172085,1,0,1,1,1,0,'','','A&amp;C\n\nEs lo mismo ya que la el commando On CHANGE envia nOpcion y nOldOption\n\nSaludos\nPatricio','',0,'Ag==','1lxhe5ka',1,0,'',36,0,0),(25856,5803,1,819,0,'216.34.194.113',1170173107,1,0,1,1,1,0,'','','Hi antonio,\n\nI tried the following, but my function is not called.\n\n\noCtrl := CGet():New(edRow*REDUCE*13\n\nCtrl:oGet:bKeyDown :={|nkey,nflags,oCtrl|ls_keyd2(nkey,nflags,octrl)} // jdd\n\nThanks.','',0,'Ag==','1mb6i3qh',1,0,'',819,0,0),(25857,5807,3,2,0,'87.218.146.90',1170175742,1,0,1,1,1,1,'','','Dixon,\n\nYou can not use PNGs in the menu bar','',0,'Ag==','38f8m9tw',1,0,'',2,0,0),(25858,5803,1,819,0,'216.34.194.113',1170176315,1,0,1,1,1,0,'','','Hi antonio,\n\noCtrl := tGet():New(.....)\noCtrl:oGet:Name=\"some name\"\nmsginfo(oCtrl:oGet:Name)  &lt;---- it is okay to this code\n\noCtrl:oGet:bKeyDown :={|nkey,nflags|ls_keyd2(nkey,nflags)}  &lt;-- getting an no method get: _bkeydown\n\nThank you very much.\n\nJose\n\nHere\'s actual code:\n                  oCtrl := tGet():New(edRow*REDUCE*13,;\n							((if(edCol==1,1,40)+nMaxLen-1)*4)-nWidth,;\n							bField,oDlg,nWidth,10,edPic,;\n                     if(edVal==NIL,NIL, &amp;( \"{|self|\" +edVal +\"}\" ) ),;\n							,,oFont,.f.,,.t.,edFld,.t.,if(edPmt=\" \",{||.f.},{||.t.}),;\n                     .f.,valtype(eval(bField))=\"N\",,.f.,lEncrypted)\n\n                  oCtrl:oGet:Name := edFld \n****************** // jdd                  \n                  *oCtrl:oGet:reader :={|oGet|ls_trapKey(oGet)}\n                  \n                  *aadd(memvar-&gt;xoctrl,oCtrl)\n      					  *msginfo(valtype(memvar-&gt;xoctrl)) \n									msginfo(oCtrl:oGet:Name)\n									      					  \n      						oCtrl:oGet:bKeyDown :={|nkey,nflags|ls_keyd2(nkey,nflags)} // jdd\n      						msginfo(valtype(oCtrl:oGet:bKeyDown))\n********************* // jdd','',0,'Ag==','3igmlee9',1,0,'',819,0,0),(25859,5809,3,2,0,'87.218.146.90',1170176409,1,0,1,1,1,1,'','','Lee,\n\nAre you using xharbour with Borland or xHarbour.com (PellesC) ?','',0,'Ag==','2t3pxs45',1,0,'',2,0,0),(25860,4134,4,2,0,'87.218.146.90',1170176486,1,0,1,1,1,1,'','','Vilian,\n\nPlease review FWPPC\\samples\\Ftp.prg','',0,'Ag==','l7ju8309',1,0,'',2,0,0),(25861,5810,1,86,0,'213.119.103.68',1170176547,1,0,1,1,1,1,'','FW using processortime','Hello,\n\nHow can I prevent that the next loop is using 100% processortime ?\n\nThis is the loop :\n\n------------------------------\nDO WHILE .T.\n      IF VActive\n          SYSREFRESH()\n          LOOP\n      ENDIF\n      EXIT\nENDDO\n------------------------------\n\nThanks a lot in advance.\n\nMichel D.\nM&amp;A Consult bvba\nGenk (Belgium)','',0,'Ag==','1l2khdue',1,0,'',86,0,0),(25862,5803,1,2,0,'87.218.146.90',1170176760,1,0,1,1,1,1,'','','Jose,\n\nUse oCtrl:bKeyDown (not oCtrl:oGet:bKeyDown)','',0,'Ag==','16ph9dwu',1,0,'',2,0,0),(25863,5810,1,2,0,'87.218.146.90',1170176875,1,0,1,1,1,1,'','','Michel,\n\nTry Sleep( 1 ) instead of Sysrefresh()','',0,'Ag==','75m8ung4',1,0,'',2,0,0),(25864,5805,7,2,0,'87.218.146.90',1170176901,1,0,1,1,1,1,'','','Thanks!','',0,'Ag==','13kqaqxj',1,0,'',2,0,0),(25865,5811,20,924,0,'81.208.36.89',1170177333,1,0,1,1,1,0,'','Antepo averle prima Immagini','empo fa ho avuto tra le mani un esempio di anteprima immagini fatto non so se in Harbour/Fw32  o in xbase, ora che mi serve non me lo ritrovo.\nC\'e\' gia\' o si puo fare in una choiche/listbox con selezione multipla ed anteprima immagini ?\nMi serve per potere selezionare da una cartella piuì  immagini dopo averle viste in piccola anteprima.\n\nAiuti ?\n\nGrazie\nRomeo/Zingoni','',0,'Ag==','1zkeeib2',1,0,'',924,0,0),(25866,5808,6,774,0,'200.72.70.196',1170177765,1,0,1,1,1,1,'','','Patricio y q es lo esperas q realice al folder,, explicalo','',0,'Ag==','2i99w7cd',1,0,'',774,0,0),(25867,5809,3,920,0,'201.13.209.158',1170178824,1,0,1,1,1,0,'','thanks ...   using both compilers ...  and more...','Dear Antonio,\n\nThanks to reply ... you are the only source about such subject that I know.\n\nI use both ... BORLAND C and PELLES C...\nNow I am working with VISUAL XHARBOUR ...XCC = PELLES C.\nbut ...my main compiler is MS-VISUAL STUDIO C 6.\n\nSuch in this case, PELLES C - XCC wold be the best reference.\n\nI would like to point that I tried to contact VXH - TECH SUPPORT but\nI had no answer til now... after some e-mails during 3 weeks.\n\nThere are several developers with the same problem... also about other\nkinds of DLLs..   \n\nI just have FRAGMENTS OF CODE ..BATCH FILES... etc...\n\nNothing really consistent...\n\nFIVETECHSOFT FORUM and your HELP is my main source...\n\nLee Osvald\n\n<!-- e --><a href=\"mailto:osvaldobatalha@terra.com.br\">osvaldobatalha@terra.com.br</a><!-- e -->','',0,'Ag==','17aaq7kn',1,0,'',920,0,0),(25868,4134,4,267,0,'200.208.238.2',1170178964,1,0,1,1,1,1,'','','Antonio,\n\nThe FWPPC\\samples\\Ftp.prg does not function. The file is created in directory FTP but it is with size zero and program congeals.','',0,'Ag==','2f8aj0xu',1,0,'',267,0,0),(25869,5811,20,6,0,'82.61.68.181',1170179869,1,0,1,1,1,1,'','Re: Antepo averle prima Immagini','Prova la listview. Oppure usi dei controlli TImage.\n\nEMG','',0,'Ag==','2dysqs88',1,0,'',6,0,0),(25870,5777,6,850,0,'201.255.77.39',1170180223,1,0,1,1,1,0,'','','Hola Rene de vuelta, compile todo de vuelta con la ultima version de enero de FWH y xHarbour que distribuye Antonio Linares, y lo probe con una base de datos de afiliados que tiene 2.900.000 registros y que el indice es left(apellido,18). El seek anda bien hasta los apellido que comienzan con la letra N, despues no encuentra ninguno. Debe ser algun problema en la RDDADS.LIB, porque en Clipper o Fivewin no hay ningun problema. No tenes alguna idea por donde empezar a buscar?. Desde ya muchas gracias\n\nTe recuerdo que uso Ads Server version 6.0 sobre Novell 5.\n\nAndres','',0,'Ag==','10z8yyv1',1,0,'',850,0,0),(25871,5809,3,2,0,'87.218.146.90',1170180306,1,0,1,1,1,1,'','','Lee,\n\nIf you plan to use VXH code into the DLL then you should better ask VXH tech support as they will provide you valuable info,\n\nYou may also ask at the xharbour users mailing list,','',0,'Ag==','21q4i050',1,0,'',2,0,0),(25872,4134,4,2,0,'87.218.146.90',1170180681,1,0,1,1,1,1,'','','Vilian,\n\nEnrico developed ftp.prg sample, we may ask him. Enrico ?','',0,'Ag==','bfcphbbz',1,0,'',2,0,0),(25873,5811,20,924,0,'81.208.36.89',1170182223,1,0,1,1,1,0,'','','E dove la trovo la listview ?\n\nHo provato in tutto il fw24 e fwh24\n\nGrazie','',0,'Ag==','2x2vju29',1,0,'',924,0,0),(25874,5777,6,138,0,'189.141.72.59',1170182488,1,0,1,1,1,1,'','','He estado buscando el error que mencionas y aparentemente es el problema con el ADS, no con el RDD, he estado investignado en el foro de ADS y me encuentro que ese error que mencionas aparece en las versiones 6.0 pero esta solucionado en las 6.22.\n\nDesafortunadamente ya no hay soporte para las versiones 6.x desde que salio la 8, habra que buscar por otro lado la version 6.22','',0,'Ag==','1labea60',1,0,'',138,0,0),(25875,5812,3,51,0,'80.122.88.242',1170182772,1,0,1,1,1,0,'','Full text Search','How could I manage a full text search in the whole database like LOCATE but in all fields?\nRegards\nOtto','',0,'Ag==','firq2l98',1,0,'',51,0,0),(25876,5812,3,2,0,'87.218.146.90',1170183156,1,0,1,1,1,1,'','','Otto,\n\nAt( cText, MemoRead( \"file.dbf\" ) )\n\nonce found, substract the DBF header size, and divide it by the record size','',0,'Ag==','2ezq5bym',1,0,'',2,0,0),(25877,5777,6,850,0,'201.255.77.39',1170183536,1,0,1,1,1,0,'','','Gracias Rene por la atencion, yo compre la version 6.0 para 250 usuarios que viene con una llave que se pone en el port de impresora, me parece que la clave sirve para todas las versiones 6.x, no sabes donde puedo conseguir la version 6.22 para instalarla. Muchas gracias.\n\nAndres','',0,'Ag==','3ds9lr88',1,0,'',850,0,0),(25878,5795,6,39,0,'201.220.111.55',1170183595,1,0,1,1,1,0,'','','Concuerdo con Mike sobre la solucion, ahora la raiz del problema es que las coordenadas se dan en pixeles y dependiendo de la resolucion de la impresora ( ppp , o puntos por pulgada ) estos valores no tienen nada que ver entre uno y otro modelo.\n\nLo mas recomendable es hacer como muestra mike, de hecho todos mis informes los genero usando algo parecido.\n\n\nAtte.\nLautaro Moreira','',0,'Ag==','3sreimb4',1,0,'',39,0,0),(25879,5795,6,138,0,'189.141.72.59',1170183839,1,0,1,1,1,1,'','','El problema es que los parametros del metodo ::SayImage() estan dados en PIXELES cuya resolucion cambia de impresora en impresora, dependiendo del modelo que estes usando y si tiene mas o menos pixeles por pulgada con lo cual, varia el tamaño\n\nSolucion, conviertan todo a centimetros y utilicen el metodo cmtr2pix para obtener el tamaño exacto en pixeles dependiendo de la impresora\n\naTam := oPrn:Cmtr2Pix(5,10)\n\noPrn:SayImage(0,0,oIT,aTam[1], aTam[2])','',0,'','36bkpxos',1,0,'',138,0,0),(25880,5811,20,6,0,'82.61.68.181',1170183945,1,0,1,1,1,1,'','','Troppo vecchia, non c\'era, credo.\n\nEMG','',0,'','r94mpj0y',1,0,'',6,0,0),(25881,4134,4,6,0,'82.61.68.181',1170184426,1,0,1,1,1,1,'','','It should work fine, as far as I know. Sorry, I haven\'t a pocket PC to test it. My friend Andrea Bruni tested it. Let me ask him... Done. I will report any answer here.\n\nEMG','',0,'','3b6nx1ft',1,0,'',6,0,0),(25882,4134,4,3,0,'82.253.169.196',1170184532,1,0,1,1,1,1,'','','Vilian  \n\nThis is a working sample  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nMy app uses ftp very intensively and it works OK.\n\nFUNCTION RLOGTRN(TPAR,TFICLOG)  // Récupérer FICHIERS LOGTRN QUI INDIQUENT CE QU\'IL Y A à TéLécharger\nLOCAL hInternet,DFIC,DFICL,DFICR, ;\n      I      := 0, ;\n      J      := 0, ;\n      DSITE  := SPACE(100), ;\n      DUSER  := SPACE(30), ;\n      DPASS  := SPACE(10), ;\n      DDIR   := SPACE(100), ;\n      HCON\n\nlocal oInternet\nlocal oFTP\nlocal aFiles\n\nDSITE   := ALLTRIM(TPAR[08])\nDUSER   := ALLTRIM(TPAR[09])\nDPASS   := ALLTRIM(TPAR[10])\nDDIR    := ALLTRIM(TPAR[11])\n\noInternet := TInternet():New()\noFTP      := TFTP():New( DSITE, oInternet, DUSER, DPASS )\n\nif ! Empty( oFTP:hFTP )\n   aFiles = oFTP:Directory(DDIR)\nendif\n\nif ! Empty( oFTP:hFTP )\n   aFiles = oFTP:Directory( ddir + \"LOGTRN*.*\" )\nendif\noInternet:End()\n\nhInternet := InternetOpen( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )  // pocket connexion gprs\nIF hINTERNET = 0\n   MSGINFO(\"ERREUR CONNEXION INTERNET\")\n   RETURN NIL\nENDIF\n\nhCon = INTERNETCONNECT( hInternet, DSITE,INTERNET_INVALID_PORT_NUMBER, DUSER, DPASS, INTERNET_SERVICE_FTP, 0,0 )\nIF HCON = 0\n   MSGSTOP(\"Trop de connexion en cours, essayez plus tard !\")\n   RETURN NIL\nENDIF\n\nJ := 0\nFOR I = 1 TO LEN(AFILES)\n    IFILE := AFILES[I]\n    DFIC  := ALLTRIM(IFILE[1])\n    IF SUBS(DFIC,1,1) = \".\" .OR. ASC(SUBS(DFIC,1,1)) = 0\n      ELSE\n       DFICL := CurDir() + \"\\ENTRANT\\\" + alltrim(dfic)  // LOCAL FILE\n       DFICR := ALLTRIM(DDIR ) + alltrim(dfic)          // REMOTE FILE\n\n       AADD(TFICLOG,DFIC)   // STOCKER NOM FICHIER DANS TABLEAU POUR EFFACER APRES SYNCRO\n       FTPGETFILE( hCon, DFICR , DFICL, 0,FILE_ATTRIBUTE_ARCHIVE, 0, 0 )\n    ENDIF\nNEXT\n\nINTERNETCLOSEHANDLE( hCon )\nINTERNETCLOSEHANDLE( hInternet )\nreturn nil\n\n\nPS : if you need other samples, please let me know\n\nHTH\n\nRichard\n\n\nPs : For ANTONIO\n\nEnrico\'s sample is excellent but it will not work together with tftp class (using the same function names)','',0,'','g7f0kljb',1,0,'',3,0,0),(25883,4134,4,2,0,'87.218.146.90',1170185185,1,0,1,1,1,1,'','','Richard,\n\nWe removed Enrico\'s sample function names as now wininet.prg is inside FWPPC','',0,'','2t0y1bvo',1,0,'',2,0,0),(25884,5812,3,51,0,'80.122.88.242',1170185583,1,0,1,1,1,0,'','','Thank you. I there a limit for memoread: FW    FWH\n\nRegards\nOtto','',0,'','6pgygbnn',1,0,'',51,0,0),(25885,5809,3,920,0,'201.13.209.158',1170186188,1,0,1,1,1,0,'','','Dear Antonio,\n\nYou are quite right ... about support...  and I did it all ... course.\nbut after several e-mails and messages in FORUMS .. without answer\nI decided to message you ...\n\nI need other references... other options to solve my problem concern\nDLL - SELF CONTAINED DLLs ...\n\nPlease ...give me your solution using XHARBOR and PELLES C ..\nor even using BORLAND C ... \n\nThis will be my starting point  to study in deep more about the subject...\n\nIf I have an example ... complete..  I will be able to explore\nthe CODE ...\n\nMy intention is to create a DLL ...  a GRID ... a TABLE - DBF with INDEX...\n...my EXE or DLL will call such DLL ...this way I would have\na DBF MANAGER to work with ...\n\nIf you give me some sample about that ... I will study in deep all the\ncode and I will complete my project here...\n\nPlease ... give me some light...  cause I am alone in dark ..\n\nLee Osvald\n<!-- e --><a href=\"mailto:osvaldobatalha@terra.com.br\">osvaldobatalha@terra.com.br</a><!-- e -->','',0,'','3u8k52xn',1,0,'',920,0,0),(25886,5808,6,36,0,'200.113.56.235',1170188095,1,0,1,1,1,0,'','','Solucionado, modifique la clase agregando una data de aValid y unos cuantos arreglos...\n\nGracias\n\nSaludos\nPatricio','',0,'','3py0xv6d',1,0,'',36,0,0),(25887,5813,6,926,0,'189.134.15.152',1170189170,1,0,1,1,1,0,'','Quiero pasar una DLL de 16 bits a 32','Hola... espero me puedan ayudar... tengo una DLL que hice en WorkShop y la quiero hacer funcionar en FWH. ya la pase a .RC desde el workshop pero no me la reconoce el programa. Estoy compilando con el VERCE 4.3 pero no la reconoce... cuando ejecuto el programa me manda un error de recurso no creado. no se si hace falta algo en el programa para cargar el recurso o algo asi.... \n\nEn ese mismo recurso tengo otro dialog y ese si me lo carga al ejecutar el programa pero el otro no... como puedo corregir este problema... \nGracias.','',0,'','1liso507',1,0,'',926,0,0),(25888,5812,3,2,0,'87.218.146.90',1170194499,1,0,1,1,1,1,'','','Otto,\n\nMemoRead() is a Harbour function. There is no size limit (max. 4 gigs)','',0,'','3vd2cxnb',1,0,'',2,0,0),(25889,5809,3,2,0,'87.218.146.90',1170195455,1,0,1,1,1,1,'','','Lee,\n\nFWH provides you the required batch files to build the DLL. Go to samples directory and type:\n\nbuildhd.bat tutor01    \nbuildh.bat testdll\n\nThe first will create tutor01.dll and testdll.exe will use it. Please review tutor01.prg and testdll.prg source code\n\n(1) fwh\\samples\\buildhd.bat has to be modified this way:\necho c0d32.obj + %hdir%\\obj\\b32\\maindll.obj + &gt; b32.bc\n\n(2) You need Harbour maindll.obj. You may download it from here:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0208a58543/maindll.obj.html\">http://hyperupload.com/download/0208a58 ... l.obj.html</a><!-- m -->','',0,'','3stchmdc',1,0,'',2,0,0),(25890,5813,6,2,0,'87.218.146.90',1170195585,1,0,1,1,1,1,'','','Usa FWH\\DLL\\rc2dll32.bat para construir una DLL de 32 bits a partir del fichero RC','',0,'','2iqx0nlh',1,0,'',2,0,0),(25891,5812,3,343,0,'204.57.111.194',1170200059,1,0,1,1,1,0,'','','If you have xHarbour from .com then you can use FTS (Full Text Search) to create index and search.','',0,'','1iaom6du',1,0,'',343,0,0),(25892,5814,3,49,0,'62.13.172.78',1170201248,1,0,1,1,1,1,'','HOW  ENABLE FOLDER FROM COMBOBOX','Dear friends,\n\n I made a folder \n[code:1cf5r3cp]\n REDEFINE FOLDER oFld ID 500 OF oDlg                         ;\n                        PROMPT &quot;&amp;Anagrafica&quot;,&quot;&amp;Dettagli&quot;;\n                        DIALOGS &quot;AGENDA_EDIT_A&quot;, &quot;AGENDA_EDIT_B&quot; \n \noFld&#58;aEnable = &#123; &#46;t&#46;, &#46;f&#46; &#125;\n\n[/code:1cf5r3cp]\non folder [1] there is a combo  with bitmaps\n\n[code:1cf5r3cp]  \n\n REDEFINE COMBOBOX oDat&#91;24&#93; VAR aDat&#91;24&#93; ITEMS aProfessione ID 300 OF oFld&#58;aDialogs&#91;1&#93;;  \n   BITMAPS &#123; &quot;&#46;\\bitmaps\\Libro&#46;bmp&quot;,;\n                    &quot;&#46;\\bitmaps\\docente&#46;bmp&quot;,;\n                    &quot;&#46;\\bitmaps\\Fond&#46;bmp&quot;,;\n                    &quot;&#46;\\bitmaps\\alunno&#46;bmp&quot; &#125;  \n      [/code:1cf5r3cp]\n\nHow I can make to  show the dialog number 2  if the item of combobox is the number 4  ?\n\n\nthanks in advance','',0,'AIA=','1cf5r3cp',1,0,'',49,0,0),(25893,5815,3,49,0,'62.13.172.78',1170207280,1,0,1,1,1,1,'','bitmaps on xbrowse field','I must insert a bitmap for each opzione of this column :\n[code:mun6wtf1]\n\n                                         oCol&#58;= oApp&#40;&#41;&#58;oGrid&#58;AddCol&#40;&#41;\n                                          oCol&#58;AddResource&#40;&quot;SEL1&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;SEL2&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;SEL3&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;SEL4&quot;&#41;\n\n  oCol&#58;bStrData &#58;= &#123; || SOCI-&gt;ATTIVITA&#125;\n oCol&#58;cHeader  &#58;= &quot;Professione&quot;\n                                          oCol&#58;bEditValue &#58;= &#123; || SOCI-&gt;ATTIVITA &#125;\n                                          oCol&#58;nDataStyle &#58;= oCol&#58;DefStyle&#40; AL_LEFT, &#46;T&#46;&#41;\n                                          oCol&#58;nEditType &#58;= EDIT_LISTBOX\n                                                                                    oCol&#58;aEditListTxt   &#58;= &#123; &quot;Docente&quot;,&quot;ATA&quot;,&quot;Alunno/a&quot;,&quot;Esterno&quot;&#125;\n                                          oCol&#58;aEditListBound &#58;= &#123; &quot;Docente&quot;,&quot;ATA&quot;,&quot;Alunno/a&quot;,&quot;Esterno&quot; &#125;\n                                          oCol&#58;bOnPostEdit &#58;= &#123;|o, v| iif&#40; v != NIL, SOCI-&gt;ATTIVITA &#58;= v,&#41; &#125;\n                                          oCol&#58;nWidth   &#58;= 160[/code:mun6wtf1]\n\nHow I can make ?\nI try with \n\n\n[code:mun6wtf1]oCol&#58;bBmpData   &#58;= &#123; || iif&#40; SOCI-&gt;Attivita, 1, 2&#41; &#125;[/code:mun6wtf1]\n\nbut it is good for the first and second option   and How I must make  for all option ?\n\n\nthanks in advance','',0,'AIA=','mun6wtf1',1,0,'',49,0,0),(25894,5816,6,774,0,'200.72.70.101',1170210126,1,0,1,1,1,1,'','Sobre Tfont:new() AYUDAAAAAAAAAAAA','Alguien me podria horientar sobre crear un font desde la clase misma\n\nse q es algo asi. como Tfont:new( aqui los parametros pero es ahi dnd no los tengo claro cuales son,,,, me interesa el tipo de letra la tamaño, y si es normal, negrita, etc..\n\nalguien me puede ayudar\n\nGRACIAS','',0,'AIA=','2m057mxo',1,0,'',774,0,0),(25895,5817,3,233,0,'60.48.192.123',1170215528,1,0,1,1,1,0,'','Font size','How to determine a font size that we need to specify to get them very close to the text sizes when printing in dos mode (10cpi, 12cpi, etc)?','',0,'AIA=','3vslw92h',1,0,'',233,0,0),(25896,5818,6,215,0,'189.136.237.149',1170216478,1,0,1,1,1,1,'','Archivos temporales del programa','Los que tienen programas en red habrán notado que se generan archivos temporales.... que en teoría se eliminan al momento de salir del programa. Bueno, lo anterior no siempre sucede.\nEn clipper yo podía direccionarlos a un subdirectorio sin problemas pero eso lo hacía através de un archivo bat.\nEn fivewin para harbour ni idea.\n¿Cómo puedo direccionar esos archivos temporales a otro directorio? De esa manera yo puedo eliminar todos los archivos de vez en cuando.\n\nGracias\nFernando Leal\nMéxico, DF','',0,'AIA=','30i6isf9',1,0,'',215,0,0),(25897,968,3,51,0,'80.122.88.242',1170228639,1,0,1,1,1,0,'','','Hello Jeff,\ndo you have your \"Search Function\" ready?\nIf yes, would you be so kind to share it?\n\nRegards\nOtto','',0,'AIA=','3mg3hl6g',1,0,'',51,0,0),(25898,5819,6,251,0,'72.156.9.248',1170229250,1,0,1,1,1,1,'','error de todas mis aplicaciones en Windows Vista','Estimados Senores:\n\n\n    Hoy estuve probando todas mis aplicaciones hechas en fivewin, las de fwh y ninguna logra ponerse en marcha todas dan error al tratar de indexar o abrir el indice del archivo dbf.\n\n   Anexo la imagen del error y simplemente en esa linea lo que hago es abrir el indice cd.\n\n\n   Gracias de Antemano\n\nSaludos. Di Gregorio, CCS\n\n\nError description: Error DBCMD/2001  Workarea not in use: ORDLISTADD','',0,'AIA=','1d0nh613',1,0,'',251,0,0),(25899,5815,3,67,0,'62.235.24.48',1170229310,1,0,1,1,1,0,'','','Silvio\n\nIf you have 4 bitmaps in a column , bBpmData should return a number between 1 and 4 , not 1 and 2 . \n\noCol:bBmpData   := { || iif( SOCI-&gt;Attivita, 1, 2)}\n\nFrank','',0,'AIA=','mxx164jf',1,0,'',67,0,0),(25900,5820,6,413,0,'194.106.16.43',1170229724,1,0,1,1,1,0,'','CPU al 100%','Antonio, a que puede ser debido que cuando consulto el rendimiento tanto los programas compilados con harbour y fwh25 y los antiguos hechos con versiones mas antiguas de fw20 y clipper me de que el uso de la CPU este al 100% y no baja, osea se mantiene durante todo el uso del programa. No es que funcionen mal puesto que los programas responden rapidamente y funcionan a las mil maravillas, pero parece que en algunos ordenadores los mas antiguos su rendimiento no parece ser optimo. Seguro que es algo que puedo estar haciendo mal, pero no se me ocurre por donde empezar para mirar el problema, si es que es un problema de los programas. Se presenta el problema tanto en win2000 como en xp.\n\nSaludos','',0,'AIA=','w015jvgz',1,0,'',413,0,0),(25901,5820,6,2,0,'87.218.146.90',1170233201,1,0,1,1,1,1,'','','Andrés,\n\nCon Clipper sería algo más normal, ya que se usa la capa de wow (windows on windows) para ejecutar 16 bits en 32 bits.\n\nCon Harbour no debería ocurrir. Usas algún bucle principal desde donde llames a SysRefresh() ?','',0,'AIA=','2bzp5h34',1,0,'',2,0,0),(25902,5815,3,49,0,'213.82.134.66',1170233593,1,0,1,1,1,1,'','','yes I want to show all the bitmaps \n\nif soci-&gt;attivita = 1 -&gt; sel1\n if soci-&gt;attivita =2 -&gt;sel2\nif soci-&gt;attivita = 3-&gt; sel3\nif soci-&gt;attivita = 4 -&gt; sel4\n\n\nI hope U understand me','',0,'AIA=','v5o6b3io',1,0,'',49,0,0),(25903,5819,6,2,0,'87.218.146.141',1170234102,1,0,1,1,1,1,'','','Di Gregorio,\n\nPosiblemente no tengas permiso de escritura en el directorio donde están las DBFs y los índices. Prueba a hacer login en Windows Vista como administrador. Primero has de activar la cuenta del administrador. O copia las DBFs y los índices a otro directorio en el que si tengas permiso de escritura.','',0,'AIA=','36ctwdkx',1,0,'',2,0,0),(25904,5821,7,720,0,'80.36.244.134',1170239959,1,0,1,1,1,0,'','consulta sobre MSGYESNO()','Hola a todos...\n\nResulta que estoy utilizando la función msgYesNo() para actualizar unas tablas. Si el resultado es YES entonces lanzo una barra de progreso para ir viendo el proceso de la actualización.. El problema lo tengo porque al seleccionar \'SI\', del cuadro de dialogo, este no se cierra sino que automáticamente lanza la barra de progreso y hasta que esta no termine no se va el cuadro de dialogo.. La verdad es que no entiendo porque ocurre esto, ya que deberia desaparecer el cuadro msgyesno antes de seguir con cualquier instrucción...no?\n\nSi alguien puede indicarme como \'forzar\' a que este recuadro se oculte...\n\nPor si sirve de algo este es el codigo que estoy utilizando...\n\n\nIF msgYesNo(\'¿Desea actualizar la información de los articulos?. Esta operación puede tardar un poco\',\'Atención\')\nestado_conexion(oTmr)   &amp;&amp;COMPRUEBA EL ESTADO DE LA CONEXION\nIF conexion=1\ninicializa_datos1()  &amp;&amp;PROCEDIMIENTO PARA ACTUALIZAR. CONTIENE LA BARRA DE PROGRESO\nPinta_fecha_actualizacion()\nult_descarga:=vector_ini-&gt;f_descarga\nELSE\nmsgstop(\'No es posible acceder al servidor de datos por falta de cobertura...\',\'Error en la conexión...\')\nENDIF\nendif\n\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','1qklatyj',1,0,'',720,0,0),(25905,5820,6,413,0,'194.106.16.43',1170246946,1,0,1,1,1,0,'','','Antonio me he dado cuenta que eso solo le pasa cuando gestiono la base de datos el tcbrowse lo paro con un: [code:vmh5ht62]\n    ACTIVATE WINDOW oWndEdit MAXIMIZED ;\n                    ON RESIZE oSpl&#58;AdjRight&#40;&#41;;\n                    VALID &#40; lExit&#58;= &#46;T&#46; , &#46;T&#46; &#41;\n\n\n   //? &quot;si no sale otro mensaje me paro antes del syswait&quot;\n   DO WHILE !lExit //Esto para la pantalla para que no siga y cierre la base de datos\n      SysWait&#40;&#46;1&#41;\n   ENDDO\n   //clos_base[/code:vmh5ht62]\n\nPuede ser esto lo que me produzca los problemas de consumo de cpu, mientras esta en modo presentacion con el menu y el bmp de inicio no hace ese fallo solo cuando ataco la base de datos','',0,'AIA=','vmh5ht62',1,0,'',413,0,0),(25906,5821,7,2,0,'87.218.146.141',1170248146,1,0,1,1,1,1,'','','Elías,\n\nPrueba a llamar a SysRefresh() despues de MsgYesNo() para que Windows procese mensajes pendientes','',0,'AIA=','to8cbiz8',1,0,'',2,0,0),(25907,5820,6,2,0,'87.218.146.141',1170248232,1,0,1,1,1,1,'','','Andrés,\n\nLa ventana oWndEdit es una ventana MDI child ?','',0,'AIA=','2gr6vkto',1,0,'',2,0,0),(25908,5817,3,303,0,'72.199.41.171',1170250260,1,0,1,1,1,0,'','','Hua,\n\nThis is from my notes file.\n\nJames\n\n----------------------\nDOS Printing Emulation\n\nASCII printing uses a fixed pitch font and the only one that comes with Windows is Courier New. To emulate standard ASCII 80 characters per line printing define a 12 point font as follows:\n\n	define font oFont name \"Courier New\" size 0,-12\n\nTo get 92 characters define a 10 point font (SIZE 0,-10).\n\nNote, however, that DOS ASCII printing uses the same height font regradless of how many characters per line. I.E. 80 chars are the same height as 132 chars (compressed mode). Windows fonts become shorter as the point size is reduced. To maintain the same font height and get more characters per line just define the font as 12 point (SIZE 0,-12) then multiple oFont:nWidth by a correction factor. For example, to get a simulated compressed typeface (132 characters per line):\n\n	FONT oFont name \"Courier New\" size 0,-12\n\n	oFont:nWidth:= oFont:nWidth * (80/132)\n\nThis will give you the same number of lines per page (66) as you would get with ASCII printing.','',0,'AIA=','2dquasv7',1,0,'',303,0,0),(25909,5817,3,6,0,'82.59.197.223',1170251205,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:287dnzmn]oFont:nWidth:= oFont:nWidth * (80/132)[/quote:287dnzmn]\n\nI don\'t think this will make any difference for the created font. That properties are just informative.\n\nEMG','',0,'gA==','287dnzmn',1,0,'',6,0,0),(25910,5815,3,67,0,'62.235.24.48',1170251579,1,0,1,1,1,0,'','','oCol:bBmpData := { ||  SOCI-&gt;Attivita}    ????????','',0,'gA==','fcifxqzt',1,0,'',67,0,0),(25911,5820,6,413,0,'194.106.16.43',1170252305,1,0,1,1,1,0,'','','Sí, depende de la principal.\n\n[code:1cwdifp3]\n   DEFINE FONT oFont NAME &quot;Ms Sans Serif&quot; SIZE 0,-8\n   DEFINE WINDOW oWndEdit MDICHILD OF oWnd  TITLE x_tit //Ventana child de la principal oWnd      FROM 2, 2 TO 20, 50\n\n   DEFINE BUTTONBAR oBar SIZE 50,40 _3d OF oWndEdit\n\n[/code:1cwdifp3]','',0,'AIA=','1cwdifp3',1,0,'',413,0,0),(25912,4134,4,267,0,'200.208.238.2',1170252774,1,0,1,1,1,1,'','','Richard,\n\nI need a example of the FtpPutFile function. You have?','',0,'AIA=','2up107vu',1,0,'',267,0,0),(25913,4134,4,3,0,'82.124.244.7',1170253051,1,0,1,1,1,1,'','','Here you have it \n\nFUNCTION EINTERN(TPAR,TFIC,LOGOUT)  // ENVOI SYNCRO PAR INTERNET DU POCKET VERS LE PC  DOSSIER CURDIR() + \"\\SORTANT\\*.*    a syncroniser vers dest dans aval (tpar))\nLOCAL hInternet,DFICL,DFICR, ;\n      HCON   := {}, ;\n      I      := 0, ;\n      CTR    := 0, ;\n      DSITE  := SPACE(100), ;\n      DUSER  := SPACE(30), ;\n      DPASS  := SPACE(10), ;\n      DDIR   := SPACE(100), ;\n      HCON1\n\n\n\n// TPAR[01] := PKID-&gt;IDCBATIPK\n// TPAR[02] := PKID-&gt;PKPC\n// TPAR[03] := PKID-&gt;PKPCSITE\n// TPAR[04] := PKID-&gt;PKPCUSER\n// TPAR[05] := PKID-&gt;PKPCPASS\n// TPAR[06] := PKID-&gt;PKPCDIR\n// TPAR[07] := PKID-&gt;PCPK\n// TPAR[08] := PKID-&gt;PCPKSITE\n// TPAR[09] := PKID-&gt;PCPKUSER\n// TPAR[10] := PKID-&gt;PCPKPASS\n// TPAR[11] := PKID-&gt;PCPKDIR\n\nDSITE   := ALLTRIM(TPAR[03])\nDUSER   := ALLTRIM(TPAR[04])\nDPASS   := ALLTRIM(TPAR[05])\nDDIR    := ALLTRIM(TPAR[06])\n\nhInternet := InternetOpen( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 )  // pocket connexion gprs\n\nhCon1 = INTERNETCONNECT( hInternet, DSITE,0, DUSER, DPASS, INTERNET_SERVICE_FTP, 0,0 )\nIF HCON1 = 0\n   MSGINFO(\"ERREUR Création CONNEXION FTP ... Abandon transmission \")\n   RETURN .F.\nENDIF\n\nFOR I = 1 TO LEN(TFIC)\n    DFICL := CurDir() + \"\\SORTANT\\\" + ALLTRIM(TFIC[I])    // Fichier local\n    DFICR := ALLTRIM(DDIR) + ALLTRIM(TFIC[I])             // FICHIER REMOTE\n    IF FTPPUTFILE( hCon1, DFICL, DFICR, 0, 0 )\n       AADD(LOGOUT,TFIC[I])\n    ENDIF\nNEXT\n\nINTERNETCLOSEHANDLE( hCon1 )\nINTERNETCLOSEHANDLE( hInternet )\nRETURN .T.\n\nRegards\n\nRichard','',0,'','nr8qenjh',1,0,'',3,0,0),(25914,4134,4,3,0,'82.124.244.7',1170253319,1,0,1,1,1,1,'','','You may need this also\n\n#include \"C:\\FWPPC\\INCLUDE\\FWCE.ch\"\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n\n//\n// access types for InternetOpen()\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    \"     \" gopher \"\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    \"     \" HTTP   \"\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    \"     \" HTTPS  \"\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers.\n\n\n//\n// service types for InternetConnect()\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2','',0,'','fi0n20mc',1,0,'',3,0,0),(25915,4134,4,267,0,'200.208.238.2',1170255032,1,0,1,1,1,1,'','','Richard,\n\n The file is created in directory FTP but it is with size zero and program congeals.','',0,'','1ixtc9lt',1,0,'',267,0,0),(25916,5822,1,161,0,'81.164.212.146',1170255105,1,0,1,1,1,0,'','Printer selection','Hi,\n\nI\'am still using FW1.9.5. In this version the TO clause doesn\'t work. I saw in the printer.prg source that it\'s looking at the WIN.INI file, and the printer aren\'t there in XP.\nIs there a work-around? Is there maybe a function so I can change the default printer?\n\nThanks,\nMarc','',0,'','3e2baei3',1,0,'',161,0,0),(25917,5822,1,6,0,'82.59.197.223',1170257772,1,0,1,1,1,1,'','Re: Printer selection','It\'s time to upgrade to 32 bit. Anyway, this is a working function:\n\n[code:35adgsgk]function SetPrintDefault&#40; cModel &#41;\n\n   local cDriver &#58;= StrToken&#40; GetProfString&#40; &quot;Devices&quot;, cModel, &quot;&quot; &#41;, 1, &quot;,&quot; &#41;\n   local cPort   &#58;= StrToken&#40; GetProfString&#40; &quot;Devices&quot;, cModel, &quot;&quot; &#41;, 2, &quot;,&quot; &#41;\n\n   WriteProfString&#40; &quot;Windows&quot;, &quot;Device&quot;, cModel + &quot;,&quot;, + cDriver + &quot;,&quot; + cPort &#41;\n\nreturn nil[/code:35adgsgk]\n\nEMG','',0,'AIA=','35adgsgk',1,0,'',6,0,0),(25918,4134,4,6,0,'82.59.197.223',1170257893,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:rcsdsklp]It should work fine, as far as I know. Sorry, I haven\'t a pocket PC to test it. My friend Andrea Bruni tested it. Let me ask him... Done. I will report any answer here.\n\nEMG[/quote:rcsdsklp]\n\nAndrea Bruni confirmed that my sample works fine.\n\nEMG','',0,'gA==','rcsdsklp',1,0,'',6,0,0),(25919,4134,4,3,0,'82.124.244.7',1170258202,1,0,1,1,1,1,'','','Vilian\n\nMake sure you have the correct access on the server where you want to put the file and that there is no \"Disk Quota\" or something similar.\n\nThe code i sent you works OK.\n\nWe have several customers that use it, they send maintenance data from their pocket (via our application) to our server and receive back some other data. FWPPC works OK on this.\n\nThe only problem i can not handle properly at the moment is closing the gprs connexion (when used) \"Always\" . From time to time it remains open. I am working on it.\n\nHth \n\nPS : What type of server are you uisng ? Linux ? Plex system ?\n\nIf using a plex system, make sure you address the main domain \"userid and password\", if not create sub domains \n\nRichard','',0,'gA==','10t9hvf0',1,0,'',3,0,0),(25920,968,3,343,0,'204.57.111.194',1170259646,1,0,1,1,1,0,'','','Are you using xHarbour.com. The FTS functions would allow you to create a FTS (Fast Text Search) index. I have done this with Six driver\'s FTS and the xHarbour.com version is supposed to work the same.','',0,'gA==','uxpiw6y3',1,0,'',343,0,0),(25921,5815,3,49,0,'62.13.172.78',1170262103,1,0,1,1,1,1,'','','I TRYED ALREADY WITH IT  BUT \n\nStack Calls\n===========\n   Called from: pcustomer.prg =&gt; (b)SOCI(300)\n   Called from: XBrwcol.prg =&gt; TXBRWCOLUMN:POSTEDIT(1544)\n   Called from: XBrwcol.prg =&gt; (b)TXBRWCOLUMN:SHOWBTNLIST(1467)\n   Called from: window.prg =&gt; TWINDOW:LBUTTONUP(1743)\n   Called from: CONTROL.PRG =&gt; TCONTROL:LBUTTONUP(0)\n   Called from: listbox.PRG =&gt; TLISTBOX:LBUTTONUP(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: listbox.PRG =&gt; TLISTBOX:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3165)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TWINDOW:ACTIVATE(883)\n   Called from: main.prg =&gt; TAPPLICATION:ACTIVATE(164)\n   Called from: main.prg =&gt; MAIN(42)','',0,'gA==','3iengt8e',1,0,'',49,0,0),(25922,5815,3,49,0,'62.13.172.78',1170262177,1,0,1,1,1,1,'','','[code:27mjrbd0]\n  oCol&#58;= oApp&#40;&#41;&#58;oGrid&#58;AddCol&#40;&#41;\n                                          oCol&#58;AddResource&#40;&quot;BR_SEL1&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;BR_SEL2&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;sort1&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;sort2&quot;&#41;\n                                          oCol&#58;bStrData &#58;= &#123; || SOCI-&gt;ATTIVITA&#125;\n                                          oCol&#58;cHeader  &#58;= &quot;Professione&quot;\n                                          oCol&#58;bEditValue &#58;= &#123; || SOCI-&gt;ATTIVITA &#125;\n                                          oCol&#58;nDataStyle &#58;= oCol&#58;DefStyle&#40; AL_LEFT, &#46;T&#46;&#41;\n                                          oCol&#58;nEditType &#58;= EDIT_LISTBOX\n                                          oCol&#58;bBmpData &#58;= &#123; || SOCI-&gt;Attivita&#125;\n                                                                                   oCol&#58;aEditListTxt   &#58;= &#123; &quot;Docente&quot;,&quot;ATA&quot;,&quot;Alunno/a&quot;,&quot;Esterno&quot;&#125;\n                                          oCol&#58;aEditListBound &#58;= &#123; &quot;Docente&quot;,&quot;ATA&quot;,&quot;Alunno/a&quot;,&quot;Esterno&quot; &#125;\n                                          oCol&#58;bOnPostEdit &#58;= &#123;|o, v| iif&#40; v != NIL, SOCI-&gt;ATTIVITA &#58;= v,&#41; &#125;\n                                          oCol&#58;nWidth   &#58;= 160[/code:27mjrbd0]\n\n\nTHI IS THE CODE .... BUT NOT RUN OK \n\nSOCI-&gt;ATTIVITA ID  NUMBER FIELD  n 1','',0,'AIA=','27mjrbd0',1,0,'',49,0,0),(25923,968,3,51,0,'80.122.88.242',1170262753,1,0,1,1,1,0,'','','Although I have all the FWH releases the main part of my program is still FW 1.9.  \nI need the search function for that part. \n\nRegards\nOtto','',0,'AIA=','cin49x6x',1,0,'',51,0,0),(25924,5810,1,51,0,'80.122.88.242',1170262886,1,0,1,1,1,0,'','','Couldn\'t you use a timer?\nRegards\nOtto','',0,'AIA=','1j3f53zv',1,0,'',51,0,0),(25925,968,3,343,0,'204.57.111.194',1170265527,1,0,1,1,1,0,'','','You could use the Six driver that includes the Fast Text Search. I still have an aplication that keeps an FTS indexe on some history files that get updated once a month. \n\nI think Fast Text Search was sold as a seperate product at one time also.','',0,'AIA=','x2c31w4d',1,0,'',343,0,0),(25926,4134,4,267,0,'200.208.238.2',1170267290,1,0,1,1,1,1,'','','Richard,\n\nWe use Windows 2003 server. We are using the Activesync to connect the Pocket our net. \n\nWe obtain to have access directory ftp through IExplorer the Pocket.','',0,'AIA=','1w6kgjpg',1,0,'',267,0,0),(25927,5821,7,720,0,'80.36.244.134',1170267408,1,0,1,1,1,0,'','','Antonio, ha funcionado pero he tenido que llamar a esa funcion 3 veces... esto es normal??\n\n\nSaludos y gracias\n\nElías Torres.','',0,'AIA=','3ob0lx6l',1,0,'',720,0,0),(25928,5795,6,180,0,'83.44.33.157',1170267813,1,0,1,1,1,0,'','','Muchas gracias a todos.\nProblema resuelto.\n\n\nSaludos,\nManuel Aradna','',0,'AIA=','27jrdid8',1,0,'',180,0,0),(25929,5823,3,303,0,'72.199.41.171',1170267980,1,0,1,1,1,0,'','TSBrowse v6.13 update now available','I have made some minor changes to TSBrowse so that it now supports the ord functions in the (x)Harbour NTX RDD. This fixes the scrollbar when ordScope() is being used. You can download the update here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nThe only file that has been changed is TSBROWSE.PRG, so you can just recompile this and add it to your existing LIB (if you already have one).\n\nJames','',0,'AIA=','2n24b9tj',1,0,'',303,0,0),(25930,5824,7,720,0,'80.36.244.134',1170268225,1,0,1,1,1,0,'','unas preguntitas...','Hola a todos...\n\nTengo un par de dudas a ver si alguien me las puede resolver...\n\nVamos a ver: \n\n-Cuando se inicializa un dialogo, en la clausula on init, ¿como se pueden ejecutar varias funciones??. He probado a separarlas por \',\' pero no va.\n\n-¿Hay alguna forma de obligar a que un objeto tome el foco cuando recibe el control un dialogo?\n\nSaludos.\n\nElías Torres.','',0,'AIA=','1dom3wqs',1,0,'',720,0,0),(25931,5817,3,303,0,'72.199.41.171',1170268448,1,0,1,1,1,0,'','','Enrico,\n\n&gt;I don\'t think this will make any difference for the created font. That properties are just informative. \n\nWell, it was quite some time ago that I used it, but I do remember it working. Have you tried it? Is, it not working now?\n\nJames','',0,'AIA=','1840nwc3',1,0,'',303,0,0),(25932,5817,3,6,0,'82.59.197.223',1170269374,1,0,1,1,1,1,'','','It seems logical that it can\'t work such way. Once the font is created how you can resize it only assigning a properties of a FWH class that just wraps it?\n\nAnyway, this is a sample:\n\n[code:3qerx23r]#include &quot;FiveWin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oPrn, oFnt, oFnt2\n\n    LOCAL nHStep, nVStep\n\n    PRINT oPrn PREVIEW\n        DEFINE FONT oFnt  NAME &quot;Arial&quot; SIZE 0, -10 OF oPrn\n        DEFINE FONT oFnt2 NAME &quot;Arial&quot; SIZE 0, -10 OF oPrn\n\n        oFnt2&#58;nWidth = oFnt2&#58;nWidth * 100\n\n        nHStep = oPrn&#58;nHorzRes&#40;&#41; / 80\n        nVStep = oPrn&#58;nVertRes&#40;&#41; / 66\n\n        PAGE\n            oPrn&#58;Say&#40; 0, 0, &quot;This is a test&quot;, oFnt &#41;\n            oPrn&#58;Say&#40; 1 * nVStep, 0, &quot;This is a test&quot;, oFnt2 &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RELEASE FONT oFnt\n    RELEASE FONT oFnt2\n\n    RETURN NIL[/code:3qerx23r]\n\nEMG','',0,'AIA=','3qerx23r',1,0,'',6,0,0),(25933,5825,6,223,0,'200.204.170.177',1170272513,1,0,1,1,1,1,'','Posição do Mouse','Olá Pessoal,\nTêm como eu pegar a posição do mouse ?','',0,'AIA=','p1ylg7lu',1,0,'',223,0,0),(25934,5821,7,2,0,'87.218.146.194',1170272557,1,0,1,1,1,1,'','','Elías,\n\nSi, es normal, ya que SysRefresh() en el Pocket PC no siempre procesa todos los mensajes pendientes, de ahí que hayas tenido que llamarlo varias veces','',0,'AIA=','391oe2gs',1,0,'',2,0,0),(25935,5824,7,2,0,'87.218.146.194',1170272621,1,0,1,1,1,1,'','','Puedes llamar a tantas funciones como quieras separándolas por comas pero pniéndolas todas entre paréntesis:\n\n... ON INIT ( Func1(), Func2(), ..., FuncN() )','',0,'AIA=','12ddchx0',1,0,'',2,0,0),(25936,5820,6,2,0,'87.218.146.194',1170273062,1,0,1,1,1,1,'','','Andrés,\n\nEste código no es necesario en absoluto:\n[code:31sftcc8]\nDO WHILE ! lExit\n   SysWait&#40;&#46;1&#41; \nENDDO\n[/code:31sftcc8]\nuna ventana MDI child es siempre no modal. Dices que se cierra la base de datos, y es normal, puesto que has de cerrar la base de datos cuando se cierre la ventana y no antes:\nACTIVATE WINDOW oWndEdit VALID (DbCloseArea(), .t.)','',0,'AIA=','31sftcc8',1,0,'',2,0,0),(25937,5826,3,69,0,'206.210.97.138',1170274486,1,0,1,1,1,0,'','URGENT - Serial number over network','Hi Everybody,\n\nI have a situation that I hope someone can help with....\n\nI use a \"software key\" to protect my application from unauthorized copies.\nThe key is based on the serial number of the hard drive (nSerialHD())\n\nI have just been asked if it is possible to install my program on a network and have others access the .exe via a shared drive letter.\n\nThe program runs but of course it looks at the LOCAL computers hard drive for the serial number not where the program is actually sitting (lets say drive X:)\n\nIs it possible to get the serial number of the system where the program is sitting?\n\n\nThanks,\n\nJeff','',0,'AIA=','2msgj1xw',1,0,'',69,0,0),(25938,5826,3,6,0,'82.59.197.223',1170275764,1,0,1,1,1,1,'','Re: URGENT - Serial number over network','You may try\n\n[code:17xkl81w]nSerialHD&#40; &quot;X&#58;\\&quot; &#41;[/code:17xkl81w]\n\nwhere X is the network mapped drive but I\'m not sure it will work.\n\nEMG','',0,'AIA=','17xkl81w',1,0,'',6,0,0),(25939,5815,3,131,0,'83.53.156.106',1170276150,1,0,1,1,1,0,'','','Silvio: look this code:\n[code:1h4ihnh8]\n   oCol &#58;= oApp&#40;&#41;&#58;oGrid&#58;AddCol&#40;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0000&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0001&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0010&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0011&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0100&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0101&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0110&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA0111&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1000&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1001&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1010&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1011&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1100&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1101&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1110&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;BR_EPOCA1111&quot;&#41;\n   oCol&#58;cHeader       &#58;= i18n&#40;&quot;Epoca&quot;&#41;\n   oCol&#58;bBmpData      &#58;= &#123; || MAX&#40;ASCAN&#40;aEpoca,STRTRAN&#40;STR&#40;RE-&gt;ReEpoca,4&#41;,\' \',\'0\'&#41;&#41;,1&#41; &#125;\n   oCol&#58;nWidth        &#58;= 35\n   oCol&#58;nDataBmpAlign &#58;= 2\n[/code:1h4ihnh8]','',0,'AIA=','1h4ihnh8',1,0,'',131,0,0),(25940,5825,6,362,0,'200.168.52.156',1170277178,1,0,1,1,1,1,'','','Say não...\n\nSetCursorPos(nX,nY)\n\nNunca testei...','',0,'AIA=','aexhxvgv',1,0,'',362,0,0),(25941,5827,7,57,0,'83.53.69.224',1170279598,1,0,1,1,1,1,'','Fuentes en FWPPC','Antonio\nDefino una fuente de paso fijo \"Courier New\" para que cada caracter utilice el mismo espacio pero no consigo que la aplicación utilice esta fuente. Si edito un documento en Word desde la propia PDA funciona correctamente. \n\nDEFINE FONT ::oFont NAME \"Courier New\" SIZE 0, -10\n\n¿Me estoy dejando algo por el camino?.\n[url=http&#58;//img390&#46;imageshack&#46;us/my&#46;php?image=clipboardqv0&#46;jpg:2ghbjlsz][img:2ghbjlsz]http&#58;//img390&#46;imageshack&#46;us/img390/3410/clipboardqv0&#46;th&#46;jpg[/img:2ghbjlsz][/url:2ghbjlsz]\n\nSaludos','',0,'GA==','2ghbjlsz',1,0,'',57,0,0),(25942,5822,1,161,0,'81.164.212.146',1170280435,1,0,1,1,1,0,'','','Thanks, I now I have to move to 32bits, but this application is still in 16 <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nIt\'s working, but the problem stays.\nAs I already experience before. If I start the application, then change the defaultprinter, he program still print to to default printer as it was wen starting the program. I there a solution for this problem?\n\nThanks,\nMarc','',0,'GA==','7leamswo',1,0,'',161,0,0),(25943,5815,3,49,0,'62.13.172.78',1170280976,1,0,1,1,1,1,'','','thanks I resolve it\n\nDear José Luis Sánchez,\ncan I create a combobox list with bitmaps from grid ? \n\n\n\n[code:2u891tr2]\n                                          oCol&#58;= oApp&#40;&#41;&#58;oGrid&#58;AddCol&#40;&#41;\n                                          oCol&#58;AddResource&#40;&quot;IMG39&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;IMG50&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;IMG03&quot;&#41;\n                                          oCol&#58;AddResource&#40;&quot;IMG02&quot;&#41;\n                                          oCol&#58;bStrData &#58;= &#123; || SOCI-&gt;TIPO&#125;\n                                          oCol&#58;cHeader  &#58;= &quot;Adesione&quot;\n                                          oCol&#58;bEditValue &#58;= &#123; || SOCI-&gt;TIPO &#125;\n                                          oCol&#58;nDataStyle &#58;= oCol&#58;DefStyle&#40; AL_LEFT, &#46;T&#46;&#41;\n                                          oCol&#58;nEditType &#58;= EDIT_LISTBOX\n                                          oCol&#58;bBmpData &#58;= &#123; || SOCI-&gt;TIPO&#125;\n                                          oCol&#58;aEditListTxt   &#58;= &#123; &quot;Fondatore&quot;,&quot;Ordinario&quot;,&quot;Simpatizzante&quot;,&quot;Servizi&quot;&#125;\n                                          oCol&#58;aEditListBound &#58;= &#123; 1,2,3,4 &#125;\n                                          oCol&#58;bOnPostEdit &#58;= &#123;|o, v| iif&#40; v != NIL, SOCI-&gt;TIPO &#58;= v,&#41; &#125;\n                                          oCol&#58;nWidth   &#58;= 50[/code:2u891tr2]\n\n\n\n\nnow I can set bitmaps but when I click  there are not bitmaps into listbox \n\n\n\n----------------------------------------------------------------------------\n\nAnother question \n\ncan I insert a control datepick in grid  as the listbox ?','',0,'AIA=','2u891tr2',1,0,'',49,0,0),(25944,5822,1,6,0,'82.59.197.223',1170281104,1,0,1,1,1,1,'','','[quote=&quot;Marc Vanzegbroeck&quot;:1net88jo]It\'s working, but the problem stays.\nAs I already experience before. If I start the application, then change the defaultprinter, he program still print to to default printer as it was wen starting the program.[/quote:1net88jo]\n\nIt should not. The following sample works fine for me in 16 bit:\n\n[code:1net88jo]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oPrn, oFnt\n\n    LOCAL nHStep, nVStep\n\n    SETPRINTDEFAULT&#40; &quot;Win2PDF&quot; &#41;\n\n    PRINT oPrn PREVIEW\n        DEFINE FONT oFnt  NAME &quot;Arial&quot; SIZE 0, -10 OF oPrn\n\n        nHStep = oPrn&#58;nHorzRes&#40;&#41; / 80\n        nVStep = oPrn&#58;nVertRes&#40;&#41; / 66\n\n        PAGE\n            oPrn&#58;Say&#40; 0, 0, &quot;This is a test&quot;, oFnt &#41;\n            oPrn&#58;Say&#40; 1 * nVStep, 0, &quot;This is a test&quot;, oFnt &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RELEASE FONT oFnt\n\n    RETURN NIL\n\n\nfunction SetPrintDefault&#40; cModel &#41; \n\n   local cDriver &#58;= StrToken&#40; GetProfString&#40; &quot;Devices&quot;, cModel, &quot;&quot; &#41;, 1, &quot;,&quot; &#41; \n   local cPort   &#58;= StrToken&#40; GetProfString&#40; &quot;Devices&quot;, cModel, &quot;&quot; &#41;, 2, &quot;,&quot; &#41; \n\n   WriteProfString&#40; &quot;Windows&quot;, &quot;Device&quot;, cModel + &quot;,&quot;, + cDriver + &quot;,&quot; + cPort &#41; \n\nreturn nil[/code:1net88jo]\n\nEMG','',0,'gIA=','1net88jo',1,0,'',6,0,0),(25945,5822,1,161,0,'81.164.212.146',1170281861,1,0,1,1,1,0,'','','The SETPRINTDEFAULT() change the defaultprinter but print to the default printer as it was before.\nClosing the program and restarting, it print to the correct printer.\nMaybe it was an error in FW1.9.5  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gIA=','33z8j66o',1,0,'',161,0,0),(25946,5823,3,103,0,'200.165.130.246',1170282190,1,0,1,1,1,1,'','','James,\n\n    Very good job. As a user of TSBrowse version 6, I have found a problem with vertical scrollbar that I never found a real solution. The problem is when you use the vertical scrollbar down or up, it just does not work. Have you seen something about it?\n\nBest Regards,','',0,'gIA=','3l6ccmoc',1,0,'',103,0,0),(25947,5823,3,49,0,'62.13.172.78',1170283270,1,0,1,1,1,1,'','','it have xp ans office style ?','',0,'gIA=','2kxitwdk',1,0,'',49,0,0),(25948,5828,3,30,0,'69.70.254.213',1170284026,1,0,1,1,1,1,'','tTxtEdit does not support Wheel mouse','I want to use the TTxtEdit Class but it does not support wheelmouse\n\nhow to modify the class for the mouse to work.\n\n\nFWH 7.1, XP PRO SP2','',0,'gIA=','3vg7xzh1',1,0,'',30,0,0),(25949,5810,1,86,0,'213.119.103.68',1170284507,1,0,1,1,1,1,'','','Antonio,\nOtto,\n\nThanks a lot for you answers.\n\nAntonio, sleep() is an unknown function in FW for Clipper.\n\nOtto, I never thought of a timer. I\'ll try it out.\n\nThank you.\n\nMichel','',0,'gIA=','yust8694',1,0,'',86,0,0),(25950,5816,6,774,0,'164.77.167.209',1170286124,1,0,1,1,1,1,'','','...','',0,'gIA=','kjv85owi',1,0,'',774,0,0),(25951,5816,6,774,0,'164.77.167.209',1170286139,1,0,1,1,1,1,'','','...','',0,'gIA=','3ouc0hcc',1,0,'',774,0,0),(25952,5829,3,34,0,'68.4.154.81',1170287097,1,0,1,1,1,1,'','Vista and Registry','Under Windows XP I stored values ( server path, etc ) in the registry using the following:\n\nTo read the value:\n\n oReg := TReg32():Create( HKEY_LOCAL_MACHINE, \"SOFTWARE\\Masterlink\\Setup\" )\n   cPath := oReg:Get( \"Path\", cPath )\n\nOr to set the value if none was found:\n\n      oReg:Set( \"Path\", cPath )\n\nTrying to run the program in Vista, if it is not found, the call is to cGetDir32( ) to display the directory and select the path.\n\nOn my first try, 1) the path was not in the registry so it wasn\'t found, 2) there was no popup for cGetDir32( ), and no value was written to the registry.\n\nWhats different in Vista ?\n\nThanks.','',0,'gIA=','pnyewp40',1,0,'',34,0,0),(25953,5754,6,110,0,'165.98.223.31',1170288713,1,0,1,1,1,1,'','','sin duda el mas rapido\n\nSQLyog\n\nsalu2\ncarlos vargas','',0,'gIA=','2z9z0n3b',1,0,'',110,0,0),(25954,4703,6,110,0,'165.98.223.31',1170289013,1,0,1,1,1,1,'','','Sin Duda\n\nSQLLib es un producto muy grande con un excelente manual y soporte.\n\ny lo mejor es que no necesitas grandes cambios.\nte funcionan los mismos \n\nsolo agregas el comando de conexion y usas los comandos de siempre\n\nappend, skip, replace, scope, y filter que si cambia un poquillo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\ny pudes implementar llamadas sql sin problemas para extender su poder.\n\nvailton, es excelente tu producto.\n\nsalu2\ncarlos vargas','',0,'gIA=','1iz6q4tz',1,0,'',110,0,0),(25955,5830,3,49,0,'62.13.172.78',1170290932,1,0,1,1,1,1,'','por josè luis sanchez ( Alanit )','Ut_BrwRowConfig( oApp():oGrid )  NOT found in the fsdi2006\nCan you send me this function ? , pls','',0,'gIA=','1m5hcvkx',1,0,'',49,0,0),(25956,4703,6,73,0,'201.132.226.17',1170295296,1,0,1,1,1,0,'','','carlos,\nme vienen varias dudas, la primera sqllib por lo que veo esas funciones son para .dbf o para tablas nativas de sql? vi un ejemplo de index y menciona de .ntx en la pagina sqllib.com.br, porque .ntx? eso me revolvio un poco y no lo alcance a digerir, jeje\nalgun ejemplo sencillo de hacer conexion, abrir una tabla y agregar un registro, borrarlo,  hacer una busqueda..\nsi no es mucho pedir, lo agradeceria mucho, ya que quiero empezarme en esto y me parece bien mysql\nsalu2\npaco','',0,'gIA=','2dcvuwcs',1,0,'',73,0,0),(25957,968,3,707,0,'222.124.20.54',1170311305,1,0,1,1,1,0,'','','Hil All !\n\nseek customer name by where the address\n[code:3692j4ym]\nstatic function LookAddress&#40;cFind&#41;\nlocal cOldFine &#58;= cFind\nlocal xFind, oDlg\nloca nRec &#58;= customer-&gt;&#40;recno&#40;&#41;&#41;\nlocal cFind1 &#58;= alltrim&#40;cFind&#41;,i,n,oFind\nlocal aData &#58;= &#123;&#125;\n\ncustomer-&gt;&#40;dbSetOrder&#40;2&#41;&#41; // index by address\ncustomer-&gt;&#40;dbGotop&#40;&#41;&#41;\ndo while !customer-&gt;&#40;eof&#40;&#41;&#41;\n   for i &#58;= 1 to 30-len&#40;cCari1&#41;\n       xFind &#58;= subs&#40;customer-&gt;address,i,len&#40;cFind1&#41;&#41;\n       if alltrim&#40;xFind&#41; == alltrim&#40;cOldFind&#41;\n          aadd&#40;aData,customer-&gt;name+&quot; &quot;+customer-&gt;address &#41;\n          xFind &#58;= customer-&gt;name\n          exit\n       endif\n   next\n   customer-&gt;&#40;dbSkip&#40;&#41;&#41;\nenddo\nxFind &#58;= cOldFind\nif len&#40;aData&#41; # 0\n   DEFINE DIALOG oDlg FROM 1,1 TO 400,650 PIXEL TITLE &quot;Address &quot;+alltrim&#40;cOldCari&#41;+&quot; &quot;+alltrim&#40;str&#40;len&#40;adata&#41;,4&#41;&#41;+&quot; Orang&quot;\n   @1,2 LISTBOX oFind VAR xFind ITEMS aData SIZE 320,178 OF oDlg pixel\n   @182,75 button &quot;Oke&quot; size 30,12 of oDlg pixel  action &#40; odlg&#58;End&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nendif\nreturn alltrim&#40;xFind&#41;\n[/code:3692j4ym]\n\nregard\nareang','',0,'AIA=','3692j4ym',1,1170734858,'',707,1,0),(25958,5815,3,131,0,'194.179.55.36',1170313911,1,0,1,1,1,0,'','','I don\'t know if the features you request are available on xbrowse. I use the xbrowse to show the records, and allways edit them in a separated form.\n\nRegards,','',0,'AIA=','1s812a5h',1,0,'',131,0,0),(25959,5830,3,131,0,'194.179.55.36',1170314010,1,0,1,1,1,0,'','','No, this function it\'s not mine, it is a work from a friend, and I can\'t send it to you. Sorry.\nregads,','',0,'AIA=','pfzuv59d',1,0,'',131,0,0),(25960,5810,1,6,0,'87.1.198.174',1170316995,1,0,1,1,1,1,'','','This is a working sample of Sleep() definition:\n\n[code:2lpku6cp]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    SLEEP&#40; 2000 &#41;\n\n    RETURN NIL\n\n\nDLL32 FUNCTION SLEEP&#40; nMilliseconds AS DWORD &#41; AS VOID;\n      PASCAL FROM &quot;Sleep&quot; LIB &quot;kernel32&#46;dll&quot;[/code:2lpku6cp]\n\nEMG','',0,'AIA=','2lpku6cp',1,0,'',6,0,0),(25961,5822,1,6,0,'87.1.198.174',1170317397,1,0,1,1,1,1,'','','Check if SetPrintDefault() really changes your default printer. If yes, your print have to necessarily go to that printer. Unless you issued SetPrintDefault() after PRINT command.\n\nDid you try my sample as it is (changing the printer, of course)? Are you sure that the printer name you provided was correct? Copy and paste it from printers control panel just to be sure.\n\nEMG','',0,'AIA=','15uqhah4',1,0,'',6,0,0),(25962,5820,6,413,0,'194.106.16.43',1170317453,1,0,1,1,1,0,'','','Indudablemente este es el motivo, cuando quito el syswait el consumo del procesador oscila entre los 40% y el 85% pero no se posiciona como antes al 100%. El problema es que es heredado de la programcion del antiguo clipper y de esta manera me evitaba modelar mucho codigo. Voy a ver como lo soluciono.\n\nGracias Antonio','',0,'AIA=','3hbkigkb',1,0,'',413,0,0),(25963,5829,3,2,0,'87.218.146.194',1170317637,1,0,1,1,1,1,'','','Tim,\n\nHave you tried it logged in as administrator ? First you have to activate the administrator account','',0,'AIA=','1avxn8p6',1,0,'',2,0,0),(25964,5831,3,51,0,'80.122.88.242',1170318089,1,0,1,1,1,0,'','DOCX Office 2007 format - Information','I think a good starting point on: WordFormat docx\n\n...\nSince new formats will be default in Office 2007 and Microsoft Office is the most predominant office suite, these formats are destined to be popular and you will probably have to deal with them sooner or later.\n\nPasted from &lt;http://www.developerfusion.co.uk/show/6170/&gt;','',0,'AIA=','35ccftk6',1,0,'',51,0,0),(25965,968,3,51,0,'80.122.88.242',1170319039,1,0,1,1,1,0,'','','Thank you for your answer.\n\nI tried to add the search-fields - and it is working. \n\nlocate for  UPPER( (alltrim(suchbeg))) $ (UPPER(kunden-&gt;name) + UPPER(kunden-&gt;vorname   )   )','',0,'AIA=','2ikkdbne',1,0,'',51,0,0),(25966,5817,3,303,0,'72.199.41.171',1170319930,1,0,1,1,1,0,'','','Enrico,\n\nYes, I see that in your sample it doesn\'t work. Here is a sample that does work. The difference must be in the way the fonts are initialized.\n\nJames\n\n\n\n[code:2fzeypdg]#include &quot;fivewin&#46;ch&quot;\n#include &quot;report&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oReport, oFont\n\n   field last, first\n\n   use test\n\n   DEFINE FONT oFont NAME &quot;ARIAL&quot; SIZE 0,-12\n   // oFont&#58;nWidth&#58;= oFont&#58;nWidth * &#40;80/132&#41;	// simulate compressed font\n   oFont&#58;nWidth&#58;= oFont&#58;nWidth * 3\n\n   REPORT oReport;\n       TITLE  &quot;Font Width Test&quot;;\n       font oFont;\n       preview\n\n      column title &quot;Last&quot; data last\n\n      end report\n\n   activate report oReport\n\nreturn nil[/code:2fzeypdg]','',0,'AIA=','2fzeypdg',1,0,'',303,0,0),(25967,5823,3,303,0,'72.199.41.171',1170320180,1,0,1,1,1,0,'','','Kleyber,\n\nAre you saying the vertical scrollbar doesn\'t work in my revision or in the original 6.0 version? I made modifications to get the scrollbar working. Perhaps it still doesn\'t work with all RDDs.\n\nJames','',0,'AIA=','3c4ezu47',1,0,'',303,0,0),(25968,5823,3,303,0,'72.199.41.171',1170320313,1,0,1,1,1,0,'','','Silvio,\n\n&gt;it have xp ans office style ?\n\nI\'m not sure what your question is. TSBrowse is just a browse class. It can be configured to look lots of different ways. My fixes are just to get the vertical scrollbar working.\n\nJames','',0,'AIA=','2b730lk1',1,0,'',303,0,0),(25969,5826,3,303,0,'72.199.41.171',1170320488,1,0,1,1,1,0,'','','Jeff,\n\nYou may want to try searching the forum for this. I seem to remember some discussion about this awhile back.\n\nJames','',0,'AIA=','1se6tn3x',1,0,'',303,0,0),(25970,5817,3,6,0,'87.1.198.174',1170321317,1,0,1,1,1,1,'','','Ah, ok. The reason it works in your sample is that in TReport class the font is recreated with the new width.\n\nEMG','',0,'AIA=','3vywvz06',1,0,'',6,0,0),(25971,5832,3,89,0,'213.21.136.60',1170321849,1,0,1,1,1,0,'','Create cTags file with UESTUDIO','I am testing UESTUDIO editor and it is very good . \n\nI am problem to create  the cTags file (with Exuberant Ctags) .\n\nThere is a way to create the cTags with another programm ? \n\nRegards Maurizio','',0,'AIA=','mry4ayv2',1,0,'',89,0,0),(25972,5830,3,49,0,'213.82.134.66',1170323723,1,0,1,1,1,1,'','','Can you ask to your friend if you can send me this function please\nOnly I\'ll use it !!','',0,'AIA=','20jyhdmu',1,0,'',49,0,0),(25973,5833,3,49,0,'213.82.134.66',1170323846,1,0,1,1,1,1,'','Number licence xxxx-xxxx-xxxx-xxxx','Have you and Idea or a function to create  number licence as Office  Microsoft Licence ?','',0,'AIA=','35k8sky2',1,0,'',49,0,0),(25974,5834,6,49,0,'213.82.134.66',1170324244,1,0,1,1,1,1,'','converte rpreview as a class','Some one converted Rpreview as a class ?\nCan send me  it pls ?','',0,'AIA=','3nu2hswb',1,0,'',49,0,0),(25975,5833,3,810,0,'84.172.48.207',1170327904,1,0,1,1,1,0,'','','u can use 123456789  and abcdefghijklmnopqrstuvwxyz to create Office Style \n\nSerial numbers','',0,'AIA=','295hxfiy',1,0,'',810,0,0),(25976,5822,1,161,0,'213.119.247.9',1170327992,1,0,1,1,1,0,'','','Enrico,\n\nSetPrintDefault() really change my defaultprinter. This is not the problem. As I already told in my previous message. If I launch the program, than change the default printer manualy (via printer configuration) and than print, the program print to the printer that was the default one BEFORE launching my program. So the SetPrintDefault() have also no effect. \n\nMarc','',0,'AIA=','zd75ulom',1,0,'',161,0,0),(25977,5822,1,6,0,'87.1.198.174',1170328739,1,0,1,1,1,1,'','','This is not what I get. How can TPrinter print on a printer that is not selected as default printer at the time you issue the PRINT command?\n\nEMG','',0,'AIA=','zb41kbpu',1,0,'',6,0,0),(25978,5833,3,49,0,'213.82.134.66',1170330011,1,0,1,1,1,1,'','','????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????\nwhat ????????????','',0,'AIA=','1em1xn2v',1,0,'',49,0,0),(25979,5811,20,49,0,'213.82.134.66',1170330739,1,0,1,1,1,1,'','','C\'era la classe TAlbum \nma non funzionava ultimamente perchè bisognava cambiare parametri di Hbitmap ecc. anch\'io non ne ho trovato una soluzione ma credo che se EMg l\'avesse in un battitobaleno riuscira a metterla a posto anche per i l32 bt \nCredo che la classe la si può scaricare da <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w --> sezione contributi.\nAltrimenti se avete problemi vedo se la posso ricercare io nei miei CD di backup','',0,'AIA=','1wd4hfuc',1,0,'',49,0,0),(25980,5811,20,49,0,'213.82.134.66',1170330951,1,0,1,1,1,1,'','','trovata <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/downloads.php?category=FiveWin\">http://www.fivewin.info/html/downloads. ... ry=FiveWin</a><!-- m --> users contributions&amp;id=182\n\nfatemi sapere se l\'avete aggiustata','',0,'AIA=','uc051pzb',1,0,'',49,0,0),(25981,5823,3,103,0,'200.241.81.140',1170331263,1,0,1,1,1,1,'','','James,\n\n    I\'ll take a look in your version of TSbrowse.\n\nThanks and Best Regards,','',0,'AIA=','scl1cd94',1,0,'',103,0,0),(25982,5835,6,49,0,'213.82.134.66',1170331357,1,0,1,1,1,1,'','number serial xxxx-xxxx-xxxx-xxxx','Someone created a function for licence number ?','',0,'AIA=','1j7hijvg',1,0,'',49,0,0),(25983,5827,7,2,0,'87.218.146.194',1170334363,1,0,1,1,1,1,'','','Toni,\n\nPuedes publicar un ejemplo completo de como lo estás haciendo ? gracias','',0,'AIA=','q98uxhqh',1,0,'',2,0,0),(25984,5811,20,6,0,'87.1.198.174',1170334869,1,0,1,1,1,1,'','','La sto guardando ma c\'è un problema: usa una funzione chiamata CreateCBmp() che non esiste né in FW né in FWH e che non so cosa faccia e quindi con cosa sostituirla.\n\nEMG','',0,'AIA=','19xsugrn',1,0,'',6,0,0),(25985,5822,1,161,0,'213.119.247.20',1170334925,1,0,1,1,1,0,'','','I know it sound strange, but I just doublechecked it in an other FW-application I wrote, and it\'s just the same.. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','3ph0m9sg',1,0,'',161,0,0),(25986,5823,3,529,0,'200.159.199.217',1170335606,1,0,1,1,1,0,'','','hi, what´s difference in tsbrowse, twbrowse and tcbrowse?','',0,'AIA=','1irbiw9f',1,0,'',529,0,0),(25987,5811,20,6,0,'87.1.198.174',1170336545,1,0,1,1,1,1,'','','Risolto: era una chiamata a CreateCompatibleBitmap(). Ora funziona (FWH) ma le anteprime sono un po\' piccoline. A voi sistemarle. Potete scaricarla da qui:\n\n[url:1qy5hrgd]http&#58;//www&#46;emagsoftware&#46;it/talbum&#46;zip[/url:1qy5hrgd]\n\nEMG','',0,'EA==','1qy5hrgd',1,0,'',6,0,0),(25988,5826,3,397,0,'201.26.11.241',1170336550,1,0,1,0,1,1,'','','Hello Friends\n\nI use one proprietary solution, geting a serial number in the server with nSerialHD, inputing a password code liberation and saving inside .EXE. The application runs on other computer with no problems, but don\'t moved.\n\nOriginal post in <!-- m --><a class=\"postlink\" href=\"http://www.pctoledo.com.br/forum/viewtopic.php?t=3275\">http://www.pctoledo.com.br/forum/viewtopic.php?t=3275</a><!-- m -->\n\nBut you can test NSLock.OCX too, review this post:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5089&amp;highlight=nslock\">http://fivetechsoft.com/forums/viewtopi ... ght=nslock</a><!-- m -->','',0,'EA==','18hn4c7z',1,0,'',397,0,0),(25989,5836,6,92,0,'80.33.140.85',1170336638,1,0,1,1,1,0,'','Zin/UnZip Office 2007 (en harbour)','Buenos días,\n\nDes de Harbour y FiveWin, es posible comprimir y descomprimir archivos Excel y Word 2007?\n\nSaludos y gracias.','',0,'EA==','11oo1dl5',1,0,'',92,0,0),(25990,5826,3,397,0,'201.26.11.241',1170337688,1,0,1,0,1,1,'','','Hii\n\nI found this too:\n\n[code:3ac307uf]\n#include &quot;struct&#46;ch&quot;\n\nfunction NetSerialNumber&#40;&#41;\n   local oNCB, oAdapterStatus, cBuffer\n   STRUCT oNCB\n      MEMBER command  AS BYTE\n      MEMBER retcode  AS BYTE\n      MEMBER lsn      AS BYTE\n      MEMBER num      AS BYTE\n      MEMBER buffer   AS LONG\n      MEMBER length   AS LONG\n      MEMBER callname AS STRING LEN 16\n      MEMBER name     AS STRING LEN 16\n      MEMBER rto      AS BYTE\n      MEMBER sto      AS BYTE\n      MEMBER post     AS LONG\n      MEMBER lana_num AS BYTE\n      MEMBER cmd_cplt AS BYTE\n      MEMBER reserve  AS STRING LEN 10\n      MEMBER event    AS LONG\n      MEMBER dummy    AS STRING LEN 30\n   ENDSTRUCT\n   STRUCT oAdapterStatus\n      MEMBER address           AS STRING LEN 6\n      MEMBER rev_major         AS BYTE\n      MEMBER reserved0         AS BYTE\n      MEMBER adapter_type      AS BYTE\n      MEMBER rev_minor         AS BYTE\n      MEMBER duration          AS LONG\n      MEMBER frmr_recv         AS LONG\n      MEMBER frmr_xmit         AS LONG\n      MEMBER iframe_recv_err   AS LONG\n      MEMBER xmit_aborts       AS LONG\n      MEMBER xmit_success      AS LONG\n      MEMBER recv_success      AS LONG\n      MEMBER iframe_xmit_err   AS LONG\n      MEMBER recv_buff_unavail AS LONG\n      MEMBER t1_timeouts       AS LONG\n      MEMBER ti_timeouts       AS LONG\n      MEMBER reserved1         AS LONG\n      MEMBER free_ncbs         AS LONG\n      MEMBER max_cfg_ncbs      AS LONG\n      MEMBER max_ncbs          AS LONG\n      MEMBER xmit_buf_unavail  AS LONG\n      MEMBER max_dgram_size    AS LONG\n      MEMBER pending_sess      AS LONG\n      MEMBER max_cfg_sess      AS LONG\n      MEMBER max_sess          AS LONG\n      MEMBER max_sess_pkt_size AS LONG\n      MEMBER name_count        AS LONG\n   ENDSTRUCT\n   oNcb&#58;command = 50 // NCBRESET\n   MsgInfo&#40; oNcb&#58;command &#41;\n   MsgInfo&#40; Netbios&#40; oNcb&#58;cBuffer &#41; &#41;\n   MsgInfo&#40; oNcb&#58;retcode &#41;\n   oNcb&#58;command  = 51 // NCBASTAT\n   oNcb&#58;buffer   = GETVDMP32&#40; StrPtr&#40; oAdapterStatus&#58;cBuffer &#41; &#41;\n   oNcb&#58;length   = oAdapterStatus&#58;SizeOf&#40;&#41;\n   oNcb&#58;callname = &quot;*&quot; + space&#40; 15 &#41;\n   MsgInfo&#40; Netbios&#40; oNcb&#58;cBuffer &#41; &#41;\n   MsgInfo&#40; oNcb&#58;retcode &#41;\n\nreturn DecToHex&#40; Asc&#40; SubStr&#40; oAdapterStatus&#58;address, 1, 1 &#41; &#41; &#41; + ;\n       DecToHex&#40; Asc&#40; SubStr&#40; oAdapterStatus&#58;address, 2, 1 &#41; &#41; &#41; + ;\n       DecToHex&#40; Asc&#40; SubStr&#40; oAdapterStatus&#58;address, 3, 1 &#41; &#41; &#41; + ;\n       DecToHex&#40; Asc&#40; SubStr&#40; oAdapterStatus&#58;address, 4, 1 &#41; &#41; &#41; + ;\n       DecToHex&#40; Asc&#40; SubStr&#40; oAdapterStatus&#58;address, 5, 1 &#41; &#41; &#41; + ;\n       DecToHex&#40; Asc&#40; SubStr&#40; oAdapterStatus&#58;address, 6, 1 &#41; &#41; &#41;\n\nDLL32 FUNCTION Netbios&#40; pncb AS LPSTR &#41; AS LONG PASCAL LIB &quot;NETAPI32&#46;DLL&quot;\n[/code:3ac307uf]','',0,'AIA=','3ac307uf',1,0,'',397,0,0),(25991,5833,3,397,0,'201.26.11.241',1170338029,1,0,1,0,1,1,'','','Amiguinho\n\nSee this\n\nREGIDA := nSerialHD()\nREGIDB := nSerialHD()\n\nREGIDC := \"\"\nREGIDC := REGIDC+SUBS(REGIDA,1,1)+SUBS(REGIDB,8,1)\nREGIDC := REGIDC+SUBS(REGIDA,2,1)+SUBS(REGIDB,7,1)\nREGIDC := REGIDC+\"-\"\nREGIDC := REGIDC+SUBS(REGIDA,3,1)+SUBS(REGIDB,6,1)\nREGIDC := REGIDC+SUBS(REGIDA,4,1)+SUBS(REGIDB,5,1)\nREGIDC := REGIDC+\"-\"\nREGIDC := REGIDC+SUBS(REGIDA,5,1)+SUBS(REGIDB,4,1)\nREGIDC := REGIDC+SUBS(REGIDA,6,1)+SUBS(REGIDB,3,1)\nREGIDC := REGIDC+\"-\"\nREGIDC := REGIDC+SUBS(REGIDA,7,1)+SUBS(REGIDB,2,1)\nREGIDC := REGIDC+SUBS(REGIDA,8,1)+SUBS(REGIDB,1,1)\n\nThis returns a number with \"XXXX-XXXX-XXXX-XXXX\" format.\n\nOr use this:\n\nREGIDA := GerarSenha(16,2)\n\nREGIDC := \"\"\nREGIDC := REGIDC+SUBS(REGIDA,1,1)+SUBS(REGIDA,2,1)\nREGIDC := REGIDC+SUBS(REGIDA,3,1)+SUBS(REGIDA,4,1)\nREGIDC := REGIDC+\"-\"\nREGIDC := REGIDC+SUBS(REGIDA,5,1)+SUBS(REGIDA,6,1)\nREGIDC := REGIDC+SUBS(REGIDA,7,1)+SUBS(REGIDA,8,1)\nREGIDC := REGIDC+\"-\"\nREGIDC := REGIDC+SUBS(REGIDA,9,1)+SUBS(REGIDA,10,1)\nREGIDC := REGIDC+SUBS(REGIDA,11,1)+SUBS(REGIDA,12,1)\nREGIDC := REGIDC+\"-\"\nREGIDC := REGIDC+SUBS(REGIDA,13,1)+SUBS(REGIDA,14,1)\nREGIDC := REGIDC+SUBS(REGIDA,15,1)+SUBS(REGIDA,16,1)\n\nFunction GerarSenha(MaxNum,Tipo)\n   * 1 = Somente Numeros\n   * 2 = Numero e Letras\n   * 3 = Somente Letras\n   local chave := \"\"\n   var_valores := { \"0123456789\",;\n                    \"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ\",;\n                    \"ABCDEFGHIJKLMNOPQRSTUVWXYZ\" }[Tipo]\n   for i = 1 to MaxNum\n        num := random(len(var_valores))\n        chave := chave + substr(var_valores,num,1)\n   next\n   return lTrim(chave)','',0,'','3u6f42az',1,0,'',397,0,0),(25992,5835,6,397,0,'201.26.11.241',1170338465,1,0,1,0,1,1,'','','See here <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5833\">http://fivetechsoft.com/forums/viewtopic.php?t=5833</a><!-- m -->','',0,'','31xr1q5e',1,0,'',397,0,0),(25993,5811,20,49,0,'213.82.134.66',1170340723,1,0,1,1,1,1,'','','grazie e naturalmente ( ho visto) ora funziona con freeimage.dll','',0,'','194je1sl',1,0,'',49,0,0),(25994,5833,3,49,0,'213.82.134.66',1170340814,1,0,1,1,1,1,'','','Good Mr Rochinha\n\nBUT NOT FOUND RANDOM FUNCTION','',0,'','1tzso2yb',1,0,'',49,0,0),(25995,5814,3,397,0,'201.26.11.241',1170341917,1,0,1,0,1,1,'','','Silvio\n\nUse oFld:SetOption( number )','',0,'','4bxbu4ch',1,0,'',397,0,0),(25996,5827,7,57,0,'83.53.69.224',1170344155,1,0,1,1,1,1,'','','Antonio\n\nte adjunto un ejemplo y el resultado con FWPPC y FWH:\n\n#include \"FWCE.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oWnd\n   LOCAL cText:= \"123456789\" + CRLF + \"---------\"\n   LOCAL oFont\n\n   DEFINE FONT oFont NAME \"Courier New\" SIZE 0, -12\n\n   DEFINE WINDOW oWnd TITLE \"MemoEdit\"\n\n   @ 2, 2 GET cText MULTILINE SIZE 200, 100 FONT oFont\n\n   @ 9,  5 BUTTON \"Save\" SIZE 80, 20 ACTION oWnd:End() // Save here...\n\n   @ 9, 21 BUTTON \"Cancel\" SIZE 80, 20 ACTION oWnd:End() // Cancel here\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo( \"Click!\" )\n\nreturn nil\n---------------------------------------\nCon FWPPC:\n\n[url=http&#58;//img153&#46;imageshack&#46;us/my&#46;php?image=pdarc6&#46;png:1yuf4qm6][img:1yuf4qm6]http&#58;//img153&#46;imageshack&#46;us/img153/5439/pdarc6&#46;th&#46;png[/img:1yuf4qm6][/url:1yuf4qm6]\n\nCon FWH:\n\n[url=http&#58;//img169&#46;imageshack&#46;us/my&#46;php?image=pchl5&#46;jpg:1yuf4qm6][img:1yuf4qm6]http&#58;//img169&#46;imageshack&#46;us/img169/9327/pchl5&#46;th&#46;jpg[/img:1yuf4qm6][/url:1yuf4qm6]\n\nSaludos','',0,'GA==','1yuf4qm6',1,0,'',57,0,0),(25997,5837,6,644,0,'201.252.10.182',1170346969,1,0,1,1,1,0,'','Seleccionar tamaño de papel','Estoy realizando una rutina de impresión y necesito seleccionar un tamaño de papel personalizado. No tengo idea como hacerlo. Alguien me puede hechar una mano. Gracias por todo.','',0,'GA==','3pb5fhme',1,0,'',644,0,0),(25998,5822,1,303,0,'72.199.41.171',1170348812,1,0,1,1,1,0,'','','Marc,\n\n&gt;SetPrintDefault() really change my defaultprinter. This is not the problem. As I already told in my previous message. If I launch the program, than change the default printer manualy (via printer configuration) and than print, the program print to the printer that was the default one BEFORE launching my program. So the SetPrintDefault() have also no effect.&lt;\n\nWhen you say, \"change the default printer manually (via the printer configuration\" do you mean via the Windows Control Panel? If so, that is the way things are supposed to work. The same would be true if you called SetPrintDefault() from within the program--I expect. I have not used it, but I presume it is changing the Windows default printer. \n\nWhen an app runs it picks up the current Windows default printer as defined in the Windows Control Panel. That printer is now the application\'s default printer until or unless it is changed from [b:2ooqrzj2]within[/b:2ooqrzj2] the application. You can do this via the setPrinter() function which calls up the Windows common control to set the printer. This function is normally called from the File-Printer Setup menu. Note that this function only changes [b:2ooqrzj2]the application\'s printer [/b:2ooqrzj2]not the Windows default printer.\n\nChanging the Windows default printer from the Control Panel while a application is running will not change the application\'s current default printer. The application will pick up that printer the next time it is run, however.\n\nNote: I suggest that you should never change the Windows default printer from within an application. This will probably confuse and irritate the user. If you have a need to default your application to the same printer each time it is run, you can get code to do this on my website on this page. I have not tested it under 16bit however. Look under the Downloads section for \"Saving and restoring the application\'s printer.\"\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nI hope that helps.\n\nJames','',0,'QA==','2ooqrzj2',1,0,'',303,0,0),(25999,5823,3,303,0,'72.199.41.171',1170349288,1,0,1,1,1,0,'','','Nop,\n\n&gt;hi, what´s difference in tsbrowse, twbrowse and tcbrowse?\n\nPages and pages could be written about this. TWBrowse is the simplest version. It is easy to use but has limited capabilities.\n\nTCBrowse is a subclass of TWBrowse. It adds a number of capabliities including column objects.\n\nTSBrowse was build using code from both of the above and it adds many more capabilities, like headers and footers, more color capability including gradients and colors for each cell, ability to set line height, and lots more. See the documention for more details.\n\nThere are also at least two other browses that I am aware of, Hernan\'s advanced version of TWBrowse and FW\'s own TXBrowse. I have never used either of these so I can\'t provide any information on their capabilities.\n\nJames','',0,'QA==','3awfk0jz',1,0,'',303,0,0),(26000,5825,6,223,0,'200.204.170.177',1170349831,1,0,1,1,1,1,'','','Resolvido,\nObrigado  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','1cc1rcg9',1,0,'',223,0,0),(26001,5822,1,6,0,'82.61.28.147',1170350049,1,0,1,1,1,1,'','','This is not the behavior I observe in my tests. Did you try my sample? It prints to the new default printer, not to the old one. At least in 32 bit under Windows XP.\n\nEMG','',0,'QA==','23g3b1ac',1,0,'',6,0,0),(26002,5833,3,303,0,'72.199.41.171',1170350426,1,0,1,1,1,0,'','','Silvio,\n\nHere is a random() function that I found somewhere.\n\nJames\n\n\n/*\n\nHere is a simple but good working random number generator for with a\nperiod of 2^31-2. It generates uniformly distributed numbers in the\nrange from 0 to 1, limits included.\n\nClipper code donated to the Public Domain by Phil Barnett November 29, 1996\n\nRandom numbers donated to the Universe by God.\n\n*/\n\nstatic seed := 0\n\n/*\nprocedure test()\n\nlocal d := date()\nlocal x\n\nSET DECIMAL TO 16\n\n// call it once with the seed\nrandom( seconds() * day( d ) * month( d ) * year( d )  )\n\ndo while !lastkey() == 27\n\n   // then, call it with no parameter repeatedly\n   x := random()\n   ? x\n\n   // produces random numbers in the range of 0 - 100 inclusive\n   ?? int( x * ( 100 + 1 ) )\n\n   // produces random numbers in the range of 1 - 100 inclusive\n   ?? int( x * 100 ) + 1\n\n   // produces random numbers in the range of 0 - 99 inclusive\n   ?? int( x * 100 )\n\n   // inkey(.01)\n\nenddo\n\nreturn\n*/\n\n********************************************************************\n\nfunction random( s )\n\nlocal a := 16807 // This is just a lucky prime number\n\n// you can hardcode these as constants for better speed\nlocal m := ( 2 ^ 31 ) - 1\nlocal q := int( m / a )\nlocal r := int( m % a )\n\nif valtype( s ) == \'N\'\n   seed := s\nendif\n\nseed := a * ( seed % q ) - r * ( seed / q )\n\nIF seed &lt;= 0\n   seed += m\nendif\n\nreturn ( seed - 1 ) / ( m - 2 )\n\n/*\nOther Prime Numbers are:\n\n38833\n37171\n11903\n18233\n31337\n23339\n27481\n31063\n34543  // an anagram prime!\n36299\n13691\n17659\n29411\n\nIf you need more, get the SIEVE.ZIP program and modify it.\n\n*/','',0,'QA==','1aogytn1',1,0,'',303,0,0),(26003,5822,1,161,0,'81.164.212.146',1170350824,1,0,1,1,1,0,'','','James,\nIt\'s working!!! Thanks.\n\nEnrico,\nMaybe it\'s an 16 bit behavior that the program take the default printer at program startup...\n\nMarc','',0,'QA==','3heymvgd',1,0,'',161,0,0),(26004,5833,3,2,0,'87.218.146.194',1170351083,1,0,1,1,1,1,'','','Silvio,\n\nFW provides nRandom( [nRange] )','',0,'','vqhwq4vy',1,0,'',2,0,0),(26005,5822,1,6,0,'82.61.28.147',1170351118,1,0,1,1,1,1,'','','No, sorry, I just tested it in 16 bit and the behavior is exactly the same as in 32 bit: it prints on the new default printer.\n\nEMG','',0,'','1iu7bm5a',1,0,'',6,0,0),(26006,5833,3,49,0,'213.82.134.66',1170351295,1,0,1,1,1,1,'','','thanks to all','',0,'','3uoq2yqr',1,0,'',49,0,0),(26007,5814,3,49,0,'213.82.134.66',1170351443,1,0,1,1,1,1,'','','the method setoption() is used when I want set a dialog for first \n\nI have a dialog able and  one disable\n\nI want when the combobox item is 4  the folder 4 must be active\n\nI hope you understand me','',0,'','38lso8u1',1,0,'',49,0,0),(26008,5822,1,303,0,'72.199.41.171',1170351705,1,0,1,1,1,0,'','','Enrico,\n\n&gt;This is not the behavior I observe in my tests. Did you try my sample? It prints to the new default printer, not to the old one.\n\nAs I said in my previous message, I hadn\'t tried your code. I just did, and surprisingly it does print to the new Windows default printer. It doesn\'t seem logical that it would. I just tried running an application, then changing the default printer via the Windows Control Panel and the application\'s default printer remains that same as it was.\n\nApparently, your code is triggering a notification to the application to change it\'s printer but Windows\' setup doesn\'t. Very odd.\n\nAs I mentioned in my previous message I highly recommend against changing the Windows default printer from within an application. Users are not going to expect this and it will probably upset them. Personally, I would be upset if a program did this.\n\nJames','',0,'','1qnsso9i',1,0,'',303,0,0),(26009,5814,3,303,0,'72.199.41.171',1170352119,1,0,1,1,1,0,'','','Silvio,\n\nUse the combobox\'s ON CHANGE clause to call a codeblock which enables and disables the folder depending on the combobox choice.\n\nJames','',0,'','2aqztfef',1,0,'',303,0,0),(26010,5838,6,352,0,'80.33.23.230',1170352180,1,0,1,1,1,0,'','Tooltip en Windows XP','He pasado de Windows 2000 a Windows XP y he dejado de ver los tooltip en BtnBmp.\nUso FWH de Diciembre de 2005 build y Harbour de Noviembre de 2005.\n¿Alguien tiene una idea de que puede estar pasando? Gracias','',0,'','2c9o2l8c',1,0,'',352,0,0),(26011,5827,7,2,0,'87.218.146.194',1170352272,1,0,1,1,1,1,'','','Toni,\n\nTu ejemplo, con el build más reciente de FWPPC, se ve bien:\n[url=http&#58;//imageshack&#46;us:3bn1c8rm][img:3bn1c8rm]http&#58;//img519&#46;imageshack&#46;us/img519/6752/fwppcuc2&#46;png[/img:3bn1c8rm][/url:3bn1c8rm]','',0,'GA==','3bn1c8rm',1,0,'',2,0,0),(26012,5822,1,6,0,'82.61.28.147',1170352336,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2lxm4ojx]As I mentioned in my previous message I highly recommend against changing the Windows default printer from within an application. Users are not going to expect this and it will probably upset them. Personally, I would be upset if a program did this.[/quote:2lxm4ojx]\n\nI strongly agree. It was only a possible workaround, a fast and dirty solution of the Marc problem.\n\nEMG','',0,'gA==','2lxm4ojx',1,0,'',6,0,0),(26013,5838,6,2,0,'87.218.146.194',1170352537,1,0,1,1,1,1,'','','Ignacio,\n\nEste ejemplo se ve bien en XP:\n[code:34bem141]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oWnd, oBtn \n\n   DEFINE WINDOW oWnd TITLE &quot;ToolTip&quot; \n\n   @ 9, 5 BTNBMP oBtn PROMPT &quot;Save&quot; SIZE 40, 40\n   \n   oBtn&#58;cTooltip = &quot;Esto es una prueba&quot;\n\n   ACTIVATE WINDOW oWnd \n\nreturn nil \n[/code:34bem141]\n[url=http&#58;//imageshack&#46;us:34bem141][img:34bem141]http&#58;//img510&#46;imageshack&#46;us/img510/9526/fwhwy6&#46;png[/img:34bem141][/url:34bem141]','',0,'GIA=','34bem141',1,0,'',2,0,0),(26014,5839,6,400,0,'200.205.49.10',1170354437,1,0,1,1,1,1,'','ALT + Tecla ??????','Boa tarde,\n\nComo eu faço, pra Combinar teclar No FwH, tipo quero usar:\n\nALT+P.....em um Browse........\n\n\n@braços Ale','',0,'GIA=','33p63lsj',1,0,'',400,0,0),(26015,5835,6,492,0,'189.147.79.53',1170355867,1,0,1,1,1,1,'','','Puede que te sirva algo como esto :\n\n[img:18603a5u]http&#58;//img167&#46;imageshack&#46;us/img167/8950/cdkeysxm4&#46;jpg[/img:18603a5u]\n\n\nY el codigo es este :\n\nLOCAL aKysFlgX := ObtPaySgnt( 1, nXKeyPl, oKysGrnd )\nLOCAL aKysPayX := ObtPaySgnt( 2, nXKeyPl, oKysGrnd )\n\n// 1 Corto 2 Largo\n// nXKeyPl  = Cuantos codigos a generar\n// oKysGrnd = Lo puedes ignorar, es un SAY\n\n\nStatic Function ObtPaySgnt( nMode, nPayPlz, oKysGrnd )\nLOCAL nKyGntSld, nKyStrSld, aXGrpKys, aXRekKys, aKysGnrtd := {}, cStrKyGnrd, aKys2Ret := {}, aKyGntrDts := { ;\n{80,55,75,71,74,79,89,72,54,76,56,77,52,83,65,53,78,86,84,69,51,48,73,88,66,82,67,87,85,68,49,50,81,57,70}, ;\n{51,69,67,52,77,48,85,54,70,74,65,75,53,50,84,79,68,86,66,80,72,57,76,81,89,55,88,49,73,87,56,83,82,71,78}, ;\n{67,86,73,69,89,65,66,81,85,74,71,54,76,77,87,57,56,68,82,75,80,83,55,72,48,53,79,49,51,84,52,78,70,50,88}, ;\n{51,80,79,78,76,70,48,86,56,49,87,52,84,77,73,54,85,88,81,75,57,74,82,66,72,69,71,67,83,53,65,55,50,68,89}, ;\n{74,89,70,55,86,78,50,57,71,80,81,73,53,72,54,77,87,49,85,75,88,79,67,76,69,84,56,68,82,52,66,65,48,83,51} }\nWHILE .T.\n	nKyGntSld := nRandom( Len( aKyGntrDts ) )\n	IF nKyGntSld == 0\n		SysWait(.5)\n	ELSE\n		IF aScan( aKysGnrtd, nKyGntSld ) == 0\n			AaDd( aKysGnrtd, nKyGntSld )\n			aXGrpKys   := aKyGntrDts[nKyGntSld]\n			aXRekKys   := {}\n			cStrKyGnrd := \"\"\n			WHILE .T.\n				nKyStrSld := nRandom( Len( aXGrpKys ) )\n				IF nKyStrSld == 0\n					SysWait(.5)\n				ELSE\n					IF aScan( aXRekKys, nKyStrSld ) == 0\n						AaDd( aXRekKys, nKyStrSld )\n						cStrKyGnrd += Chr( aXGrpKys[nKyStrSld] )\n						IF nMode == 1\n							cStrKyGnrd += IIF( Len( cStrKyGnrd ) == 3, \"-\", \"\" )\n						ELSE\n							IF Len( cStrKyGnrd ) == 3 .OR. Len( cStrKyGnrd ) == 6 .OR. Len( cStrKyGnrd ) == 11\n								cStrKyGnrd += \"-\"\n							ENDIF\n						ENDIF\n						IF Len( cStrKyGnrd ) == IIF( nMode == 1, 8, 16 )\n							AaDd( aKys2Ret, cStrKyGnrd )\n							oKysGrnd:SetText( Str( Len( aKys2Ret ) ) )\n							EXIT\n						ENDIF\n					ENDIF\n				ENDIF\n			ENDDO\n			IF Len( aKys2Ret ) == nPayPlz\n				EXIT\n			ENDIF\n		ENDIF\n	ENDIF\nENDDO\nReturn( aKys2Ret )\n*-----*\n\nComo se puede ver, esta basado en Random sobre Random sobre Random  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  va a estar cañon que se repita algun codigo.\n\nCon algunos pequeños ajustes, se puede poner al formato y longitud que se desee.\n\nSaludos \n\nEspero les sirva  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','18603a5u',1,0,'',492,0,0),(26016,5827,7,57,0,'83.53.69.224',1170356317,1,0,1,1,1,1,'','','Antonio\nHe actualizado mi FWPPC a la última version y lo sigo viendo mal usando una PDA directamente y usando el emulador de WM5 \nTe adjunto una imagen del emulador.\n\n[url=http&#58;//img170&#46;imageshack&#46;us/my&#46;php?image=emuladorcb6&#46;jpg:o79echzz][img:o79echzz]http&#58;//img170&#46;imageshack&#46;us/img170/2328/emuladorcb6&#46;th&#46;jpg[/img:o79echzz][/url:o79echzz]\n\nHe comprobado en ambos medios que las fuentes existan utilizando Word Mobile y visualizando el contenido de la carpeta Fonts de Windows.\n\n¿ Es posible obtener desde FWPPC una lista de las fuentes instaladas/reconocidas?.\n\nSaludos','',0,'GA==','o79echzz',1,0,'',57,0,0),(26017,5835,6,492,0,'189.147.79.53',1170356791,1,0,1,1,1,1,'','','a Manera de comentario, en el codigo anterior esta \"recortado\" en la matriz de datos -aKyGntrDts- asi que para generar mas de 5 codigos es necesario agregar mas elementos al array.\n\nSaludos','',0,'GA==','pyzc8n6j',1,0,'',492,0,0),(26018,5839,6,362,0,'200.168.52.156',1170360401,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=220\">http://www.fivewin.com.br/exibedicas.asp?id=220</a><!-- m -->\n\nRegards, saludos.','',0,'GA==','lcfwmt1i',1,0,'',362,0,0),(26019,5840,6,41,0,'200.105.194.235',1170360704,1,0,1,1,1,0,'','DBCOMBO modificado','Holas,\n\ntengo hechas unas modificaciones al DBCOMBO, entre ellas la opcion NOBLANK para que este muestre por defecto el primer elemento de la lista, pero mi problema es que si bien muestra el primer elemento, no devuelve la variable con el valor asociado a este, devuelve blanco, pero si uno hace una seleccion todo ok, adjunto el metodo modificado\n\n[quote:6g3xvf73]\nMETHOD Refill( lRefill ) CLASS TDBCombo\n\n   // Refill aItems and aList from cAlias-&gt;cFldItem and cAlias-&gt;cFldList\n   // Note that we have yet to define an index!\n\n   LOCAL nOldRecNo\n   LOCAL nOldArea := Select()\n   LOCAL nItem, nList\n\n   DEFAULT lRefill := .F.     // MVG\n\n   IF ::cAlias == \"\"\n      // There\'s no workarea defined, so do nothing\n      RETURN NIL\n   END IF\n\n   IF Select( ::cAlias ) == 0\n      MsgInfo( \"TDBCombo:Refill() - Alias \'\" + ::cAlias + \"\' does not exist.\" )\n      RETURN NIL\n   ELSE\n      DBSelectArea( ::cAlias )\n   END IF\n\n   IF lRefill                 // MVG\n      ::Reset()               // MVG\n   ENDIF                      // MVG\n\n   ::aItems := { }\n   ::aList := { }\n\n   IF ( nItem := FieldPos( ::cFldItem ) ) &gt; 0\n      IF ( nList := FieldPos( ::cFldList ) ) &gt; 0\n\n         nOldRecNo := RecNo()\n\n         // Make first record blank if !lnoBlank\n         IF ! ::lnoBlank      // MVG\n            DBGoBottom()\n            DBSkip()\n            AAdd( ::aItems, FieldGet( nItem ) )\n            AAdd( ::aList, FieldGet( nList ) )\n         ENDIF                // MVG\n\n         DBGoTop()\n\n         DO WHILE ! Eof()\n            IF Eval( ::bFor ) // MVG\n               AAdd( ::aItems, FieldGet( nItem ) )\n               AAdd( ::aList, FieldGet( nList ) )\n            ENDIF             // MVG\n            DBSkip()\n         ENDDO\n\n         DBGoTo( nOldRecNo )\n\n      ELSE\n         msgInfo( \"TDBCombo:Refill() - Fieldname \" + ::cFldList + \" not found.\" )\n      ENDIF\n   ENDIF\n\n   IF lRefill     // MVG\n      ::DEFAULT() // MVG\n      ::Change()  // MVG\n   ENDIF          // MVG\n\n   Select ( nOldArea )\n   RETURN NIL\n[/quote:6g3xvf73]\n\nalguien sabria como solucionar esto, gracias\n\nsaludos\n\nMarcelo','',0,'gA==','6g3xvf73',1,0,'',41,0,0),(26020,5840,6,41,0,'200.105.194.235',1170361668,1,0,1,1,1,0,'','','Holas,\n\ncreo que tengo una posible solucion:\n\n[quote:bvwjb8b7]\nMETHOD Initiate( hDlg ) CLASS TDbCombo\n\n   ::TControl():Initiate( hDlg )\n   ::DEFAULT()\n   ::change()\n\n   RETURN NIL\n\n[/quote:bvwjb8b7]\n\naumente ::change() en el metodo initiate\n\npor lo menos me funciono\n\nsaludos y gracias\n\nMarcelo','',0,'gA==','bvwjb8b7',1,0,'',41,0,0),(26021,5841,6,774,0,'200.72.70.43',1170364690,1,0,1,1,1,1,'','.RC me genera un error','al usar en un .RC  un objeto  Borland shade style al compilar con xharb... y FWH27,, me marca error y es solamente por es objeto que incluyo en el .RC,, ojo el archivo .Rc lo genero con workshop\n\neste error marca\n \nApplication\n===========\n   Path and name: D:\\Folios\\xFolio.Exe (32 bits)\n   Size: 1,201,152 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 01/02/2007, 18:17:35\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource:          1\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: xfolio2.prg =&gt; MODULO1(41)\n   Called from: xfolio.prg =&gt; VENTANA(178)\n   Called from: xfolio.prg =&gt; (b)MAIN(59)\n   Called from: TOOLBAR.PRG =&gt; TTOOLBAR:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: xfolio.prg =&gt; MAIN(74)\n\n\nAlguien sabe de q se trata','',0,'gA==','t5x5g7r0',1,0,'',774,0,0),(26022,5822,1,161,0,'81.164.212.146',1170365439,1,0,1,1,1,0,'','','James,\n\nI agree that changing the Windows default printer from within an application is not a good solution. But in my case it\' would not be a problem because my application is printing to a ticket-printer. It\'s an application in a shop. \nBut anyway, you solution did\'t change the default windows-printer, only the default-printer of the program. And if the program has to print an invoice on the normal printer, I change it to the A4-laser printer.\n\nMarc','',0,'gA==','39ogzzzz',1,0,'',161,0,0),(26023,5842,2,832,0,'201.116.83.242',1170367888,1,0,1,1,1,0,'','!! AYUDA URGENTE EN APLICACION WE... ¡¡¡','HOLA A TODOS ....\n\n\nTENGO UN PEQUENO PROBLEMA ESTOY HACIENDO UNA APLICACION WE... Y MI DUDA ES QUE NO SE COMO RECIBIR LOS PARAMTROS DE UN HREF EN OTRO ARCHVIO\n\nTAL COMO ESTO\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  ESTO ES LO QUE ENVIO TAMBIEN NO SE SI ESTA BIEN....\n\noOutFile:say(nContador++,0,\"&lt;TD align=right&gt;&lt;font face=\'Verdana\' size =1 &gt;\"+\'&lt;a href=/cgi-win/tpostatu.exe?\'+ncambio+\'&gt;\'+(csuc)+\'&lt;/A&gt;\'+\"&lt;/font&gt; &lt;/TD&gt;\")\n\n\nY CUANDO LLEGAN AL OTRO ARCHIVO\n\n\nFUNCTION Main(cArch)\n\n   LOCAL oIni := TIni():New(cArch)\n   LOCAL cOutFile := oIni:Get(\"System\",\"Output File\") // obtenemos el nombre del archivo de salida\n   LOCAL cInpFile := oIni:Get(\"System\",\"Content File\") // obtenemos el nombre del archivo d entrada\n   LOCAL oOutFile := TDosPRN():New(cOutFile) // no podemos utilizar la impresora, asi que utilizamos la clase TDOSPRN\n   \nLOS RECIBO ASI..  PERO NO SE COMO OBTENER EL VALOR DE LAS VARIABLES...\n\n\nESPERO Y ME PUEDAN AYUDAR...    GRACIAS','',0,'gA==','2ff3bd63',1,0,'',832,0,0),(26024,5843,2,934,0,'189.158.135.114',1170371704,1,0,1,1,1,0,'','Paso de parametros con el R&amp;R','Hola:\nNecesito ayuda para pasar parametros (encabezado de reportes)\nen R&amp;R. \n\nya generé la variable empresa con el riparam(\"nombre\") dentro del reporte e inserté el campo  empresa\npero no se como mandar el parámetro\ntengo la variable public nombre=\"CASTA\" en el menu.prg\n\nmando llamar el reporte con la funcion\n\n    Mostrar2(\"FACTURA\", cruta, \"D\")\n    \n\n\nFUNCTION Mostrar2(repname, xRutadbf, tipsal)\n\n    local oRRw\n    local xRutaryr:=\".\\R&amp;R\\\"\n    local xReport:=repname+\".RRW\"\n    local xPagIni:=1\n    local xPagFin:=999\n//    local xRutadbf:=\".\\Datos\"\n    local xCopias:=1\n    local xPrev:=tipsal\n    local xSalida:=\" \"\n    local lquery:=.f.\n    local xPrint:=\"REPORTES\"\n    local xRutarun:=\".\\Runtime\\RRWRUN /T\"\n    Local cPath :=(CurDrive() + \":\\\" + GetCurDir() + \"\\Datos\")    \n    oRRw:= RRWNEW():NEW(\"\",xRutaryr+xReport,xPagIni,xPagFin,xRutadbf)\n       \n         oRRw:SetPrinter(\"REPORTES\")\n        oRRw:SetMaster(xRutadbf)\n        oRRw:SetCop( xCopias )\n        oRRw:SetOutPut(xPrev,xSalida,xPrint)\n        oRRw:Print(xRutarun)\n    oRRw:End()\n\nReturn nil','',0,'gA==','j0mltwut',1,0,'',934,0,0),(26025,5814,3,49,0,'62.13.172.78',1170371934,1,0,1,1,1,1,'','','I tryed but it not run look it :\n[code:29pfl3b6]\n REDEFINE COMBOBOX oDat&#91;24&#93; VAR aDat&#91;24&#93; ITEMS aProfessione ID  300 OF oFld&#58;aDialogs&#91;2&#93;;  \n BITMAPS &#123; &quot;Docente&quot;,&quot;ALUNNO&quot;,&quot;Cartella&quot;,&quot;Genitore&quot;,&quot;Esterno&quot; &#125;;\nON CHANGE &#40; if oDat&#91;24&#93;&#58;nAt = 4 ,oFld&#58;aDialogs&#91;4&#93;&#58;enable&#40;&#41;,oFld&#58;aDialogs&#91;4&#93;&#58;disable&#40;&#41;&#41;[/code:29pfl3b6]\n\nHarbour.Exe pcustomer.prg  /m /n0 /es2 /iC:\\work\\FWH\\INCLUDE /ic:\\work\\xHarbour\\Include /iinclude;c:\\work\\fwh\\include;c:\\work\\xHarbour\\include /oObj\\pcustomer.c\nxHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'pcustomer.prg\'...\npcustomer.prg(1050) Error E0030  Syntax error: \"parse error at \'ODAT\'\"\n1 error','',0,'AIA=','29pfl3b6',1,0,'',49,0,0),(26026,5814,3,303,0,'72.199.41.171',1170373030,1,0,1,1,1,0,'','','There is a parenthsis in the wrong place. Try changing it to:\n\n\n[code:2t8on54o] REDEFINE COMBOBOX oDat&#91;24&#93; VAR aDat&#91;24&#93; ITEMS aProfessione ID  300 OF oFld&#58;aDialogs&#91;2&#93;;  \n BITMAPS &#123; &quot;Docente&quot;,&quot;ALUNNO&quot;,&quot;Cartella&quot;,&quot;Genitore&quot;,&quot;Esterno&quot; &#125;; \nON CHANGE if&#40; oDat&#91;24&#93;&#58;nAt = 4 , oFld&#58;aDialogs&#91;4&#93;&#58;enable&#40;&#41;, oFld&#58;aDialogs&#91;4&#93;&#58;disable&#40;&#41; &#41;[/code:2t8on54o]\n\nYou may also have to refresh the folder after disabling or enabling it.\n\nJames','',0,'AIA=','2t8on54o',1,0,'',303,0,0),(26027,5833,3,69,0,'74.13.41.162',1170375780,1,0,1,1,1,0,'','','Hi Silvio,\n\nI don\'t know if this will help you but you can look at this post....\n\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=19497&amp;highlight=#19497\">http://fivetechsoft.com/forums/viewtopi ... ght=#19497</a><!-- m -->\n[/url]\n\n\n\nJeff','',0,'','1n9zqqlm',1,0,'',69,0,0),(26028,5826,3,69,0,'74.13.41.162',1170375820,1,0,1,1,1,0,'','','Thanks everybody.','',0,'','1jhp57qa',1,0,'',69,0,0),(26029,5817,3,233,0,'60.48.192.123',1170378904,1,0,1,1,1,0,'','','James, Enrico, thanks for the enlightening discussion  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','35kkbcxs',1,0,'',233,0,0),(26030,5844,6,774,0,'200.72.190.187',1170382472,1,0,1,1,1,1,'','COMO INCORPORO TSBROWSE A MI APP.','tengo al siguiente problema.: no se como incorporar una clase TSBrowse a mi programa.. uso verce+xharbo+fwh27\n\ntengo tsbrowse.ch.. y la lib. y el tsbrowse.prg\n\npero nose como incorporar,, \n\n#include \"Tsbrowse.ch\",   esto se q debe ir...\n\npero al compilar me tira es error verce\n\nError: Unresolved external \'_HB_FUN_TSBROWSE\' referenced from D:\\FOLIOS\\OBJ\\XFOLIO2.OBJ                                                                \n\nError: Unresolved external \'_HB_FUN_TSCOLUMN\' referenced from D:\\FOLIOS\\OBJ\\XFOLIO2.OBJ                                                                \n\nAYUDA PORFIS\n\nGRACIAS','',0,'','3g9eoiy3',1,0,'',774,0,0),(26031,5842,2,138,0,'189.141.72.59',1170385626,1,0,1,1,1,1,'','','la cadena que estas enviando esta mal\n\nTendira que ser\n\n\"/cgi-win/tpostatu.exe?variable=\"+nCambio\n\ny del otro lado, en el archivo .INI hay una seccion llamada [Form Literal] donde encontraras algo asi:\n\n[From Literal]\nvariable=valor\n\nEso si lo mandaste por el metodo post, si lo enviaste por el metodo GET entonces busca en la seccion [CGI] el valor Query String, seria algo como esto:\n\n[CGI]\n...\n...\n...\nQuery String = variable=valor&amp;otravariable=otrovalor','',0,'','2uuuzrye',1,0,'',138,0,0),(26032,5844,6,138,0,'189.141.72.59',1170385785,1,0,1,1,1,1,'','','Tienes que agregar la libreria SBROWSE.LIB (ojo, necesitas las de 32 bits, la de 16 no te sirve) en tu proyecto de VerCE.','',0,'','1thf9tzy',1,0,'',138,0,0),(26033,5845,7,579,0,'200.76.189.223',1170386323,1,0,1,1,1,1,'','Requerimientos de hardware/software para FWPPC','Aparte del Windows Mobile, me podrían decir que requisitos de hardware y software debo solicitarle a los usuarios para que puedan correr un sistema hecho en FWPPC?\n\nY ya de pasada, me pueden recomendar que PDA vale la pena comprar para programar y usar?','',0,'','1hbwkxt3',1,0,'',579,0,0),(26034,5846,6,913,0,'189.136.166.233',1170390420,1,0,1,1,1,1,'','No me funciona el  Refresh en  TXBrowse, me ayudan porfis','Hola \n\nantes usaba Listbox ya pase todo a TXBrowse pero me di cuenta que ya no me funciona <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  el refresh como lo tenia en el listbox  me pasa lo siguiente\n\nhabro un recurso donde pongo datos y despues de cerrar llama una funcion donde me guarda en la base de datos lo capturado y de ahi  refrescar pero con TXBrowse no me funciona <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  me tira un error y se cierra todo y si lo quito si me guarda todo bien pero no me refresca el TXBrowse\n\nque estara mal mejor dicho que estare haciendo mal pongo abajo la funcion de guardar mis datos como lo tengo y tenia con el listbox espero me orienten  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n\nGracias de antemano\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\n\n\nSTATIC FUNCTION GUARDAR(oBrw)\n\n\n\n\nAPPEND BLANK\nAUTOS-&gt;NIVEL      := 1\nAUTOS-&gt;PAGCOM     :=.F.\nAUTOS-&gt;CATORSENA2 :=.F.\n\nAUTOS-&gt;FICHA       := cFicha\nAUTOS-&gt;NOMBRE      := cNombre\nAUTOS-&gt;APELLIDO_P  := cPaterno\nAUTOS-&gt;APELLIDO_M  := cMaterno\nAUTOS-&gt;DIRECCION   := cDireccion\nAUTOS-&gt;COD_POSTAL  := cCp\nAUTOS-&gt;COLONIA     := cCOLONIA\nAUTOS-&gt;POBLACION   := cCiudad\nAUTOS-&gt;ESTADO      := cEstado\nAUTOS-&gt;TEL1        := cTelefona\nAUTOS-&gt;TEL2        := cTelefonb\nAUTOS-&gt;EMPRESA     := cCentro\n\nAUTOS-&gt;Vigencia1 := cVigencia1\nAUTOS-&gt;Vigencia2 := cVigencia2\nAUTOS-&gt;RENUEMES  := xmes\nAUTOS-&gt;RENUANO   := xanno\n\nAUTOS-&gt;Comp      := cCompa\n\nIF nOption = 1\nAUTOS-&gt;Cobertura :=\"M\"\nENDIF\n\nIF nOption = 2\nAUTOS-&gt;Cobertura :=\"T\"\nENDIF\n\nIF nOption = 3\nAUTOS-&gt;Cobertura :=\"S\"\nENDIF\n\nIF nOption = 4\nAUTOS-&gt;Cobertura :=\"A\"\nENDIF\n\n\n\nAUTOS-&gt;Clamarctip:= cClamt\nAUTOS-&gt;Marca     := cMarc\nAUTOS-&gt;Tipo      := cCtipo\nAUTOS-&gt;Modelo    := Cmodelo\n\n\ncAire       :=AUTOS-&gt;conaire\ncEqf        :=AUTOS-&gt;equipfabri\ncAutero     :=AUTOS-&gt;AUSTERO\ncAutomatico :=AUTOS-&gt;automatico\ncSina       :=AUTOS-&gt;sinaire\ncTipico     :=AUTOS-&gt;tipico\ncStd        :=AUTOS-&gt;STD\n\n\nAUTOS-&gt;Ocupantes := cOcupa\nAUTOS-&gt;Num_serie := cNum_serie\nAUTOS-&gt;Num_motor := cNum_motor\nAUTOS-&gt;Placas    := cPlacas\n\n\nIF cOption = 1\nAUTOS-&gt;COVE :=\"A\"\nENDIF\n\nIF cOption = 2\nAUTOS-&gt;COVE :=\"L\"\nENDIF\n\nIF cOption = 3\nAUTOS-&gt;COVE :=\"RC\"\nENDIF\n\nAUTOS-&gt;COMENTARIO  := mComments\nAUTOS-&gt;OCUPACION   := cOcupacion\nAUTOS-&gt;DEPARTA     := cDeparta\nAUTOS-&gt;DEPACLAVE   := cDepaclave\nAUTOS-&gt;UNIDAD      := cUnidad\nAUTOS-&gt;UNICLAVE    := cUniclave\nAUTOS-&gt;UBICADEP    := cUbicadep\ncommit\n\noBrw:Refresh()\n\nRETURN Nil','',0,'','34hksgpc',1,0,'',913,0,0),(26035,5845,7,2,0,'87.218.146.61',1170403321,1,0,1,1,1,1,'','','Rodolfo,\n\nComo software ha de usar como mínimo Windows Mobile 2003.\n\nEn cuanto al hardware, FWPPC usa arquitectura ARM, que funciona en procesadores ARM, Intel Xscale y compatibles. No siempre es fácil que te sepan decir si un determinado procesador es compatible con ARM ó con Intel Xscale, por eso ante la duda, lo más fácil es probar una de las demos que proporcionamos desde <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwppc.html\">http://www.fivetechsoft.com/spanish/fwppc.html</a><!-- m -->\n\nEs recomendable que el Pocket PC tenga una memoría de 128 megas ó superior','',0,'','2yisi9ye',1,0,'',2,0,0),(26036,5841,6,2,0,'87.218.146.61',1170403511,1,0,1,1,1,1,'','','Copia bwcc32.dll a donde esté tu aplicación y añade este código a tu aplicación: \n[code:3imk2w6f] \n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;código de tu aplicación&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot; \n[/code:3imk2w6f]','',0,'AIA=','3imk2w6f',1,0,'',2,0,0),(26037,5767,2,2,0,'87.218.146.61',1170403818,1,0,1,1,1,1,'','','[code:upshl4xm]\n      DEFINE BITMAP oBmpLogo FILE &quot;milogo&#46;bmp&quot;\n\n      oWnd&#58;bPainted = &#123; | hDC | If&#40; oBmpLogo != nil,;\n                                  PalBmpDraw&#40; hDC,;\n                                  oWnd&#58;nHeight&#40;&#41; / 2 - ;\n                                  oBmpLogo&#58;nHeight&#40;&#41; / 2 - 50,;\n                                  oWnd&#58;nWidth&#40;&#41; / 2 - ;\n                                  oBmpLogo&#58;nWidth&#40;&#41; / 2,;\n                                  oBmpLogo&#58;hBitmap &#41;,&#41; &#125;\n[/code:upshl4xm]\nPara cambiar de bitmap sólo tienes que hacer oBmpLogo:End() y volver a ejecutar DEFINE BITMAP oBmpLogo FILE \"otro.bmp\" con otro nombre de fichero.','',0,'AIA=','upshl4xm',1,0,'',2,0,0),(26038,5838,6,352,0,'80.33.23.230',1170403911,1,0,1,1,1,0,'','Tooltip','Efectivamente funciona ¡en cualquier otra máquina que no sea la mía! ¿que puede influir en la configuración de mi máquina para que no enseñe los tooltips? supongo que será imposible averiguarlo, en cualquier caso gracias por tu interés.','',0,'AIA=','1sd414cb',1,0,'',352,0,0),(26039,5838,6,2,0,'87.218.146.61',1170404217,1,0,1,1,1,1,'','','Ignacio,\n\nNo sabriamos decirte que puede ser. Que has modificado en la configuración de tu XP ?','',0,'AIA=','1d5rj06p',1,0,'',2,0,0),(26040,5836,6,2,0,'87.218.146.61',1170404300,1,0,1,1,1,1,'','','Que diferencia hay con otro tipo de archivos que si puedan comprimirse ?','',0,'AIA=','1uwysdhn',1,0,'',2,0,0),(26041,5838,6,352,0,'80.33.23.230',1170404705,1,0,1,1,1,0,'','','Nada, es maquina nueva Dell, con su sistema operativo original, limpio como una patena, bueno lo importante es que mis usuarios si los verán, si no lo encuentro esperaré a Vista!! y al toro. gracias de nuevo','',0,'AIA=','3p6s9h6i',1,0,'',352,0,0),(26042,5847,6,131,0,'194.179.55.36',1170405774,1,0,1,1,1,0,'','mostrar colores en xbrowse sin bitmaps','Hola:\nEn un mantenimiendo de un fichero de categorias, quiero asignar a cada categoría un color para luego mostrar gráficos con ese color. La selección de color en el formulario que edita la categoría es facil de hacer: pongo un botón que llama a la función ChooseColor donde selecciono el color y luego al bitmap le pongo oBmp:SetColor(color, color) y listo.\nAhora quiero que en cada linea del xbrowse me aparezca el color que he seleccionado. Evidantemente no puedo tener un bitmap de cada posible color que elija en usuario, para mostrar en el xbrowse. Asi que necesito crear un bmp por código de unos 16*16, asignarle un color y mostrarlo en el xbrowse.\n\n¿ Alguna idea de como atacar esto ?\n\nSaludos,','',0,'AIA=','1wcuo6hr',1,0,'',131,0,0),(26043,5838,6,352,0,'80.33.23.230',1170406497,1,0,1,1,1,0,'','','Por increible que parezca el Panel de Gestión del grupo SP, si está activo impide que aplicaciones fivewin muestren los tooltips, ¡Cosas curiosas!','',0,'AIA=','2yq5kmzv',1,0,'',352,0,0),(26044,5814,3,49,0,'213.82.134.66',1170406660,1,0,1,1,1,1,'','','How I can make to write a codeblock ?','',0,'AIA=','6clt1p0q',1,0,'',49,0,0),(26045,5847,6,131,0,'194.179.55.36',1170407178,1,0,1,1,1,0,'','','Es mucho más facil que esto. Simplemente me creo una columna y nuestro 3 blancos y le pongo el fondo del color que me interesa. \n\nY yo pensando en bitmaps virtuales. Mira que me complico a veces la vida.\n\nHay dias en que uno no está para nada...','',0,'AIA=','ch2k4bc5',1,0,'',131,0,0),(26046,5848,3,49,0,'213.82.134.66',1170408152,1,0,1,1,1,1,'','FW REPORT project','I made a beta version of the Visual designer form report\nWhen I create a report\n\nI can insert line and box , text, image \n\nbut I want ask YOU how I can save all :\n\nI have all with coordinates \nEXAMPLE : LINE xx,yy,xx,yy ......( parameters)\n\nthe problem : I must set a number for each  or ...?\nexample 010 LINE xx,yy,xx,yy,...\nHow I can set this number ?\n\nI want an Idea ...','',0,'AIA=','1d70c3cc',1,0,'',49,0,0),(26047,5849,3,49,0,'213.82.134.66',1170410189,1,0,1,1,1,1,'','symbol € in picture','can I insert the symbol € into get  and How ?\nCan I insert it on Xbrowse, wbrowse ?\n\nthanks','',0,'AIA=','nt57t4rk',1,0,'',49,0,0),(26048,5839,6,400,0,'200.205.49.10',1170410533,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:3f83j1ua]http://www.fivewin.com.br/exibedicas.asp?id=220\n\nRegards, saludos.[/quote:3f83j1ua]\n\nGracias Amigo,\n\nFuncionu perfeitamente.\n\n@braços Ale','',0,'gA==','3f83j1ua',1,0,'',400,0,0),(26049,5832,3,2,0,'87.218.146.61',1170412761,1,0,1,1,1,1,'','','Maurizio,\n\nWe don\'t know it, we have never tried it','',0,'gA==','20ne3mr2',1,0,'',2,0,0),(26050,5849,3,217,0,'200.159.120.34',1170414523,1,0,1,1,1,0,'','Re: symbol € in picture','Silvio,\n\nI don\'t tested it but I think you can use \"@R € 999.99\".\nTo xBrowse I think using this with transform( ) it will display € like you want.\n\nRegards,\nMaurilio','',0,'gA==','2m38tgib',1,0,'',217,0,0),(26051,5649,3,529,0,'200.233.185.181',1170414544,1,0,1,1,1,0,'','','hi, the error now is when i press \".\" , only dec is saved in get. im using last cvs, fwh 2.8 , and EMG solution.','',0,'gA==','2j0v4f7p',1,0,'',529,0,0),(26052,5649,3,6,0,'87.17.213.22',1170414986,1,0,1,1,1,1,'','','Can you show me a sample of the problem?\n\nEMG','',0,'gA==','266kuzd4',1,0,'',6,0,0),(26053,5849,3,49,0,'213.82.134.66',1170415377,1,0,1,1,1,1,'','','sorry I have an mistake...on my Head... I\'m on bed and My head run!!!\nSorry...','',0,'gA==','3ur8jz4j',1,0,'',49,0,0),(26054,5833,3,217,0,'200.159.120.34',1170415614,1,0,1,1,1,0,'','','Rochinha and All,\n\nIn my routine I avoid use 0  (zero) number and O (upper \"o\") character to avoid confuse the user...\n\nRegards\nMaurilio','',0,'gA==','2cvz95h8',1,0,'',217,0,0),(26055,5836,6,92,0,'80.33.140.85',1170416554,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:329yhyjz]Que diferencia hay con otro tipo de archivos que si puedan comprimirse ?[/quote:329yhyjz]\n\nLa verdad, no tengo N.P.I., pero ya que Office creará de manera ¿nativa? sus ficheros comprimidos, quería saber si era posible comprimir/descomprimir con Harbour y FiveWin esos ficheros.\n\nNo conozco como comprimir/descomprimir archivos desde Harbour.\n\n¿Se usan librerías de terceros (ya sean de WINZIP o de otros compresores)?\n\nSaludos\nCarlos G.','',0,'gA==','329yhyjz',1,0,'',92,0,0),(26056,5649,3,529,0,'200.233.185.181',1170418035,1,0,1,1,1,0,'','','EMG, using the samples above, try press \".\", only the decimal part is saved in get. thanks','',0,'gA==','39ou2m74',1,0,'',529,0,0),(26057,5848,3,41,0,'200.105.194.235',1170419675,1,0,1,1,1,0,'','','Hi,\n\nI think you need to generate a sequencial number to identify all the report component, and this number would be the order of paint like a components in resources.\n\nOnly an idea\n\nsaludos\n\nMarcelo','',0,'gA==','3cxmm3de',1,0,'',41,0,0),(26058,5840,6,36,0,'200.113.56.235',1170420771,1,0,1,1,1,0,'','','Marcelo \n\nHas revisado el recurso, una vez me paso y el problema que en el recurso lo tenia que ordenara(sort)\n\nespero que te sirva\n\nSaludos\nPatricio','',0,'gA==','1okaw37j',1,0,'',36,0,0),(26059,5833,3,397,0,'201.13.89.80',1170421961,1,0,1,0,1,1,'','','Yes\n\nOne question, a lot of solution, it\'s good.','',0,'gA==','3cvy7dyg',1,0,'',397,0,0),(26060,5840,6,41,0,'200.105.194.235',1170422046,1,0,1,1,1,0,'','','Patricio,\n\ngracias por responder, pero con lo que aumente ::change() parece que ya esta funcionando\n\nsaludos\n\nMarcelo','',0,'gA==','1snb72mj',1,0,'',41,0,0),(26061,5814,3,397,0,'201.13.89.80',1170422470,1,0,1,0,1,1,'','','Silvio \n\nTry this\n\n[code:1lx67zep]\n&#46;&#46;&#46;\noFld&#58;aEnable = &#123; iif&#40; number=1, &#46;t&#46;, &#46;f&#46; &#41;,;\n                         iif&#40; number=2, &#46;t&#46;, &#46;f&#46; &#41;,;\n                         iif&#40; number=3, &#46;t&#46;, &#46;f&#46; &#41;,;\n                         iif&#40; number=4, &#46;t&#46;, &#46;f&#46; &#41;,;\n                         iif&#40; number=5, &#46;t&#46;, &#46;f&#46; &#41; &#125;\noFld&#58;Refresh&#40;&#41;\n[/code:1lx67zep]\n\nNumber contains a value of folder to enable or disable.','',0,'AIA=','1lx67zep',1,0,'',397,0,0),(26062,5649,3,6,0,'87.21.195.10',1170423571,1,0,1,1,1,1,'','','[quote=&quot;Nop&quot;:kv7a94cn]EMG, using the samples above, try press \".\", only the decimal part is saved in get. thanks[/quote:kv7a94cn]\n\nPressing \",\" or \".\" makes no difference for me. The number is zeroed. What do you get instead?\n\nEMG','',0,'gA==','kv7a94cn',1,0,'',6,0,0),(26063,5850,6,774,0,'200.72.70.43',1170424219,1,0,1,1,1,1,'','TENDRE Q RETROCEDER A 16 BITS? POR TSBROWSE','baje tsbr.. como indico ANTONIO LINARES,, pero nose si las .LIB no corresponden ya q al compilar me marca el siguiente error::\n\nError: Unresolved external \'_hb_stack\' referenced from C:\\CLASSTERCEROS\\SBX.LIB|Scroll\n\nsi es asi.. alguien las tiene que me las pueda mandar a mi Mail\n<!-- e --><a href=\"mailto:zxzxzx@123mail.cl\">zxzxzx@123mail.cl</a><!-- e -->\n\no estoy haciendo algo mal\n\nGRACIAS','',0,'gA==','rw9cvpf2',1,0,'',774,0,0),(26064,5829,3,26,0,'193.77.157.131',1170425805,1,0,1,1,1,1,'','','Hello!\n\n[quote:25tv2rns]Whats different in Vista ? [/quote:25tv2rns]\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> [b:25tv2rns]File and Registry Virtualization – the good, the bad, and the ugly[/b:25tv2rns]\n<!-- m --><a class=\"postlink\" href=\"http://windowsconnected.com/blogs/jerry/archive/2005/12/19/86.aspx\">http://windowsconnected.com/blogs/jerry ... 19/86.aspx</a><!-- m -->\n[quote:25tv2rns]\nThe same type of magic is used with certain parts of the registry. For example, if an application writes to “[b:25tv2rns][color=red:25tv2rns]HKLM[/color:25tv2rns][/b:25tv2rns]\\Software\\PoorlyBehavedApp\\2.0\\Settings”, windows will send that write operation to “[b:25tv2rns][color=green:25tv2rns]HKCR[/color:25tv2rns]\\VirtualStore\\Machine\\[/b:25tv2rns]Software\\PoorlyBehavedApp\\2.0\\Settings”. \n[/quote:25tv2rns]\n\n[quote:25tv2rns]To help combat this, Microsoft has built some API’s that will allow developers to specify certain folders and registry keys to never virtualize.[/quote:25tv2rns]\n\nRegards, Roman','',0,'wg==','25tv2rns',1,0,'',26,0,0),(26065,5850,6,36,0,'200.113.56.235',1170427791,1,0,1,1,1,0,'','','Tienes que tener paciencia\n\n   Ya que el cambio es bastante traumatico jijii <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, y espera cuando te cambies de base de DATOS ( ya se ADS, SQL, MySql ) ... \n\n             [u:2k2a72kc]Te envie un correo con la libreria..[/u:2k2a72kc] \n\n\nSaludos\n\nPatricio','',0,'AQ==','2k2a72kc',1,0,'',36,0,0),(26066,5836,6,376,0,'190.42.12.19',1170429291,1,0,1,1,1,1,'','','Desde xHarbour si, mediante la libreria hbzip que se encuentra disponible en él. Comprimir todo tipo de archivo no es problema alguno para xHarbour.\n\nEn el foro hay varios ejemplos, incluyendo el codigo para hacerlo. Utiliza la opción buscar con le tema de los zip, o de las compresión de archivos.\n\nSaludos\n\nArmando','',0,'AQ==','35oqgl9r',1,0,'',376,0,0),(26067,5837,6,376,0,'190.42.12.19',1170429848,1,0,1,1,1,1,'','','En FW ya están estandarizados los tamaños de papeles (revisa los ejemplos referidos a reportes o también a printer y dentro del codigo vas a encontrar los tamaños.\n\nEn caso extremo que quieras salirte de esas medidas, creo que necesitas conocer si tu impresora tiene las opciones de tamaños persoalizados para que puedas enviarle los codigos que te den el tamaño que buscas.\n\nAtentamente\n\nArmando','',0,'AQ==','2s52nb18',1,0,'',376,0,0),(26068,5818,6,376,0,'190.42.12.19',1170430111,1,0,1,1,1,1,'','','Los temporales los crea tu sistema de red? o tu aplicaciòn?\n\nMe parece que si son los del sistema operativo de red eso los maneja la red; pero si son los de tu aplicación basta que en tu codigo le indiques donde crearlos y consecuentemente también borrarlos.\n\nEn mi caso; por ejemplo, mis aplicaciones generan archivos temporales en una carpeta donde temporal que yo le indico y cuando termino la opciòn o la apliación los borro porque ya no me hacen falta.\n\nSaludos\n\nArmando','',0,'AQ==','1qzswtw2',1,0,'',376,0,0),(26069,5837,6,644,0,'201.252.10.182',1170432324,1,0,1,1,1,0,'','','Armando\n\nTe agradezco la respuesta. Lo que necesito es el tamaño del papel personalizado, pues debo imprimir unas facturas cuya medida no son estandar. Ahora está funcionando, pero el usuario debe ir a impresoras y elegir el tamaño manualmente. Lo que yo necesito es poder seleccionar el archivo que genera para la impresora y poder seleccionarlo desde código. Soy Claro ??.. Gracias por las respuestas','',0,'AQ==','3nn8giqb',1,0,'',644,0,0),(26070,5851,6,36,0,'200.113.56.235',1170433291,1,0,1,1,1,0,'','win2003 server y fivewin16','Estimados\n\nMe a pasado algo curioso\n\nAl ejecutar una aplicacion en fivewin 16bit este no se ejecuta lo cual lo hacia perfectamente antes..., he probado dos aplicaciones diferente e igual no se ejecutan\n\nUna aplicacion en clipper 5.3 se ejecuta sin ningun problema\n\nUna aplicación en Fivewin xharbour se ejecuta sin ningun problema\n\nCual puede ser el problema que las aplicaciones de fivewin 16bit no se esten ejecutando\n\nSi alguien tiene la respuesta se lo agredezco\n\nSaludos\nPatricio','',0,'AQ==','23ytgmm8',1,0,'',36,0,0),(26071,5842,2,832,0,'201.116.83.242',1170434556,1,0,1,1,1,0,'','!! Disculpa','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nDONDE YO OBTENGO LAS VARIBLES ESTA DE ESTA FORMA PERO NI AL CASO NADAMAS NADA....\n\nME PODRIAS AYUDAR.....\n\n\nFUNCTION Main(cArch)\n   LOCAL oIni := TIni():New(cArch)\n   LOCAL cOutFile := oIni:Get(\"System\",\"Output File\") // obtenemos el nombre del archivo de salida\n   LOCAL cInpFile := oIni:Get(\"System\",\"Query String\") // obtenemos el nombre del archivo d entrada\n   LOCAL oOutFile := TDosPRN():New(cOutFile) // no podemos utilizar la impresora, asi que utilizamos la clase TDOSPRN\n   LOCAL nContador := 0 // para las lineas del archivo de salida\n   LOCAL aVars\n/* tomamos variables del documento htm */\n   aVars := SacaVars(cInpFile)     \n\n\n   ?len(Avars)\n   ?cInpFile      SE SUPONE QUE AQUI VENDRIAN LOS VALORES DE LAS VARIBLES O NO..\n\n\nOK\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  MUCHAS GRACIAS...[b:1zq491y9][/b:1zq491y9]','',0,'Qg==','1zq491y9',1,0,'',832,0,0),(26072,5818,6,215,0,'189.136.231.75',1170435858,1,0,1,1,1,1,'','hola','Hola Armando,\nlos temporales los crea la aplicación por estar en red. No son temporales que mi programa este creando para hacer algun proceso. Al parecer son creados por la misma aplicación para gestionar la memoria... la verdad ni idea. Pero en clipper sucede lo mismo. Cuando el programa está en red y hay varios usuarios usando el programa. En el mismo directorio donde está el EXE ahí se van apareciendo archivos.','',0,'Qg==','24xo1738',1,0,'',215,0,0),(26073,5814,3,49,0,'62.13.172.78',1170437561,1,0,1,1,1,1,'','','IT MAKE ERROR \n[1]:Harbour.Exe pcustomer.prg  /m /n0 /es2 /iC:\\work\\FWH\\INCLUDE /ic:\\work\\xHarbour\\Include /iinclude;c:\\work\\fwh\\include;c:\\work\\xHarbour\\include /oObj\\pcustomer.c\nxHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'pcustomer.prg\'...\npcustomer.prg(1066) Warning W0027  Meaningless use of expression: \':\'\n\nNo code generated.\n\n\nI MADE THIS\n\n[code:36dnutgc] \n\n REDEFINE COMBOBOX oDat&#91;24&#93; VAR aDat&#91;24&#93; ITEMS aProfessione ID  300 OF oFld&#58;aDialogs&#91;2&#93;;\n                                    BITMAPS &#123; &quot;Docente&quot;,&quot;ALUNNO&quot;,&quot;Cartella&quot;,&quot;Genitore&quot;,&quot;Esterno&quot; &#125; ;\n                                      ON CHANGE&#40; oFld&#58;aDialogs&#91;3&#93;&#58;aEnable = &#123; iif&#40; oDat&#91;24&#93;=1, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;=2, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;=3, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;=4, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;=5, &#46;t&#46;, &#46;f&#46; &#41; &#125;,oFld&#58;aDialogs&#91;3&#93;&#58;Refresh&#40;&#41;&#41;\n\n\n[/code:36dnutgc]','',0,'AIA=','36dnutgc',1,0,'',49,0,0),(26074,5833,3,49,0,'62.13.172.78',1170437772,1,0,1,1,1,1,'','','JEFF \nWHERE ARE THE KEYGEN SOURCES','',0,'AIA=','10ewt1ke',1,0,'',49,0,0),(26075,5814,3,303,0,'72.199.41.171',1170438299,1,0,1,1,1,0,'','','Silvio,\n\nYou don\'t need to use a codeblock. Did you try my suggested code? Did it not work? If it didn\'t work, did you try adding oFld:refresh()?\n\nYou can test if the code is being called by replacing the enable()/disable() calls with msgBeep().\n\nJames','',0,'AIA=','zrt5nnib',1,0,'',303,0,0),(26076,5649,3,529,0,'200.159.199.217',1170438403,1,0,1,1,1,0,'','','EMG, try the samples below, but without picture, \n@ 10, 10 GET nVar\nwhen press, \".\", is showed \"1.00\", but after enter, only \"1\", stay in get, decimal part is cut.\nthanks','',0,'AIA=','aofnhrze',1,0,'',529,0,0),(26077,5852,6,43,0,'189.128.5.162',1170438949,1,0,1,1,1,0,'','Problema con ReBar','Hola...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n\nTengo el siguiente problema, cuando minimizo la ventana pricipal que tiene una ReBar sucede lo siguiente:\n\nEsta imagen es cuando se inicia la áplicación.\n[img]\n[url=http&#58;//imageshack&#46;us:2adymnto][img:2adymnto]http&#58;//img119&#46;imageshack&#46;us/img119/19/error1dc9&#46;jpg[/img:2adymnto][/url:2adymnto]\n[/img]\n\ny esta despues de minimizar la aplicación.\n[img]\n[url=http&#58;//imageshack&#46;us:2adymnto][img:2adymnto]http&#58;//img109&#46;imageshack&#46;us/img109/1130/error2af5&#46;jpg[/img:2adymnto][/url:2adymnto]\n[/img]\n\nComo veran hace un espacio entre la ReBar y el Browse como si hubiera otra Rebar insertada.\n\nEste es el codigo:\n[code:2adymnto]\n      DEFINE IMAGELIST &#58;&#58;oImageList SIZE 32, 32\n\n             &#58;&#58;oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Capturas&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n             &#58;&#58;oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Bus&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255  &#41; &#41;\n             &#58;&#58;oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Rutas&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n\n      DEFINE IMAGELIST &#58;&#58;oImageList2 SIZE 32, 32\n\n             &#58;&#58;oImageList2&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Index&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n             &#58;&#58;oImageList2&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Import&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255  &#41; &#41;\n\n      DEFINE IMAGELIST &#58;&#58;oImageList3 SIZE 32, 32\n\n             &#58;&#58;oImageList3&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Respaldo&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n             &#58;&#58;oImageList3&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Restaura&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n\n      DEFINE IMAGELIST &#58;&#58;oImageList4 SIZE 32, 32\n\n             &#58;&#58;oImageList4&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;Salir&quot;,, &#58;&#58;oWndMain &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n\n\n      &#58;&#58;oReBar  &#58;= TReBar&#40;&#41;&#58;New&#40; &#58;&#58;oWndMain &#41;\n\n      DEFINE TOOLBAR &#58;&#58;oBar OF &#58;&#58;oReBar SIZE 40, 40 IMAGELIST &#58;&#58;oImageList BALLOON\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar ;\n                    ACTION  Captura&#40;&#41;  ;\n                    TOOLTIP i18n&#40; &quot;Capturas&quot; &#41; ;\n                    MESSAGE i18n&#40; &quot;Gestión de Capturas de Ingresos y Egresos&#46;&quot; &#41;\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar ;\n                    ACTION  Unidades&#40;&#41; ;\n                    TOOLTIP i18n&#40; &quot;Unidades&quot; &#41; ;\n                    MESSAGE i18n&#40; &quot;Flotilla de Unidades&#46;&quot; &#41;\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar ;\n                    ACTION  Rutas&#40;&#41;    ;\n                    TOOLTIP i18n&#40; &quot;Rutas&quot; &#41;  ;\n                    MESSAGE i18n&#40; &quot;Catálago de Rutas&#46;&quot; &#41;\n\n\n	DEFINE TOOLBAR &#58;&#58;oBar2 OF &#58;&#58;oReBar SIZE 40, 40 IMAGELIST &#58;&#58;oImageList2 BALLOON\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar2 ;\n                    ACTION  Indices&#40;&#46;F&#46;, cEmpresa&#41; ;\n                    TOOLTIP i18n&#40; &quot;Verificar Archivos&quot; &#41; ;\n                    MESSAGE i18n&#40; &quot;Verificación de los Archivos del Sistema&#46;&quot; &#41;\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar2 ;\n                    ACTION  ImporDatos&#40;&#41; ;\n                    TOOLTIP i18n&#40; &quot;Importaciones de Datos&quot; &#41; ;\n                    MESSAGE i18n&#40; &quot;Importación de Datos Externos&#46;&quot; &#41;\n\n\n	DEFINE TOOLBAR &#58;&#58;oBar3 OF &#58;&#58;oReBar SIZE 40, 40 IMAGELIST &#58;&#58;oImageList3 BALLOON\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar3 ;\n                    ACTION  Respaldo&#40;&#41;    ;\n                    TOOLTIP i18n&#40; &quot;Respaldo de Archivos&quot; &#41; ;\n                    MESSAGE i18n&#40; &quot;Respaldo de los Archivos del Sistema&#46;&quot; &#41;\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar3 ;\n                   TOOLTIP i18n&#40;AnsiToOem&#40;&quot;Restauración de Archivos&quot;&#41;\n                   MESSAGE i18n&#40; &quot;Restaurar un Respaldo de los Archivos del Sistema&#46;&quot; &#41;\n\n\n	DEFINE TOOLBAR &#58;&#58;oBar4 OF &#58;&#58;oReBar SIZE 40, 40 IMAGELIST &#58;&#58;oImageList4 BALLOON\n\n             DEFINE TBBUTTON OF &#58;&#58;oBar4 ;\n                    ACTION  &#58;&#58;ExitFromBtn&#40;&#41; ;\n                   TOOLTIP i18n&#40; &quot;Salir del Sistema&quot; &#41; ;\n                   MESSAGE i18n&#40; &quot;Finalizar el uso del Sistema&#46;&quot; &#41;\n\n        &#58;&#58;oBar&#58;nWidth   &#58;= 110\n        &#58;&#58;oBar2&#58;nWidth  &#58;=  80\n        &#58;&#58;oBar3&#58;nWidth  &#58;=  80\n        &#58;&#58;oBar4&#58;nWidth  &#58;= 330\n\n        &#58;&#58;oReBar&#58;InsertBand&#40; &#58;&#58;oBar &#41;\n        &#58;&#58;oReBar&#58;InsertBand&#40; &#58;&#58;oBar2 &#41;\n        &#58;&#58;oReBar&#58;InsertBand&#40; &#58;&#58;oBar3 &#41;\n        &#58;&#58;oReBar&#58;InsertBand&#40; &#58;&#58;oBar4 &#41;\n[/code:2adymnto]\n\nAlguien le ha sucedido lo mismo o me podrian decir cual es mi error.\n\nSaludos\nMarco A. Delgado.','',0,'GIA=','2adymnto',1,0,'',43,0,0),(26078,5852,6,237,0,'200.68.70.89',1170439258,1,0,1,1,1,0,'','.','Yo uso las rebars con tsbrowse y no tengo esos problemas,\n\nTienes puesto oWnd:SetControl( oBrw ) ?\n\nLo he colocado en la cláusula \"on paint\" al activar la ventana.\n\nSalu2\nAlejandro.','',0,'GIA=','2u4n4zdi',1,0,'',237,0,0),(26079,5852,6,43,0,'189.128.5.162',1170439903,1,0,1,1,1,0,'','','Hola\n\nEstoy de acuerdo contigo, pero el browse (que es xBrowse) lo coloco sobre una ventana hija, la rebar esta sobre la ventana principal.\n\nSaludos\nMarco A. Delgado','',0,'GIA=','1scsgp4a',1,0,'',43,0,0),(26080,5649,3,6,0,'87.21.195.10',1170441163,1,0,1,1,1,1,'','','[quote=&quot;Nop&quot;:1ri66ub4]EMG, try the samples below, but without picture, \n@ 10, 10 GET nVar\nwhen press, \".\", is showed \"1.00\", but after enter, only \"1\", stay in get, decimal part is cut.\nthanks[/quote:1ri66ub4]\n\nOk. Sorry, I can\'t find the cause of the problem.\n\nEMG','',0,'gA==','1ri66ub4',1,0,'',6,0,0),(26081,5850,6,774,0,'200.72.70.43',1170441636,1,0,1,1,1,1,'','','Estimado Patricio\n\nmuchisimas gracias por la libreria q me enviaste,, \n\nejecute do.bat y se genero la LIB \n\nla compile al mi programa,, con verce pero me arroja el siguiente error::\n\nError: Unresolved external \'_HB_FUN_MENU_OLBX\' referenced from C:\\CLASSTERCEROS\\SBROWSEH.LIB|TSBrowse\nError: Unresolved external \'_HB_FUN_HB_ENUMINDEX\' referenced from C:\\CLASSTERCEROS\\SBROWSEH.LIB|TSBrowse\nError: Unresolved external \'_HB_FUN_ADSKEYNO\' referenced from C:\\CLASSTERCEROS\\SBROWSEH.LIB|TSBrowse\n\nanalice el problema y se trata en TSbr... el prg se hace mencion a MENU_OLBX() es una funcion que no se encuentra al igual de las demas,,  las busque en todos los PRGs q compile para generar la LIB y no estan ,,  \n\nati te funciona bien la libreria,, porque con verce no me deja seguir si marca algun error\nsi sabes de q se trata  y me puedes ayudar mas aun,, se agradece\n\n\nATTE. Claudio.','',0,'gA==','2mn8ac92',1,0,'',774,0,0),(26082,5850,6,36,0,'164.77.81.210',1170442149,1,0,1,1,1,0,'','','[code:3b2feghv]function Menu_oLbx&#40; nRow, nCol, oLbx &#41;\n	local oMenu, oClp, cVar &#58;= &quot;&quot;\n\n	if oLbx&#58;ClassName = &quot;TWBROWSE&quot;\n		cVar &#58;= cValtoChar&#40; Eval&#40; oLbx&#58;bLine &#41;&#91;oLbx&#58;nColAct&#93; &#41;\n	elseif oLbx&#58;ClassName = &quot;TSBROWSE&quot;\n		cVar &#58;=	Alltrim&#40;cValToChar&#40; EVal&#40; oLbx&#58;aColumns&#91; oLbx&#58;nCell &#93;&#58;bData &#41; &#41;&#41;\n	endif\n\n	DEFINE CLIPBOARD oClp OF oLbx FORMAT TEXT\n\n 	MENU oMenu POPUP\n		MENUITEM &quot;Copiar&quot;  ACTION ;\n   					iif&#40; oClp&#58;Open&#40;&#41;, &#40;;\n													oClp&#58;Clear&#40;&#41;,;\n													oClp&#58;SetText&#40; cVar &#41;,;\n													oClp&#58;End&#40;&#41;,;\n													oMenu&#58;End&#40;&#41; &#41;,;\n							 MsgInfo&#40; &quot;El clipboard no esta habilitado por ahora&quot;, &quot;Usuario&quot; &#41; &#41;\n\n		MENUITEM &quot;&amp;Excel&quot;  				ACTION oLbx&#58;toExcel&#40;&#41;\n\n\n		if oLbx&#58;ClassName = &quot;TSBROWSE&quot;\n			SEPARATOR\n			MENUITEM &quot;Excel &amp;Versión 2&#46;1&quot;  				ACTION oLbx&#58;Excel2&#40;&#41;\n			SEPARATOR\n		endif\n\n		MENUITEM &quot;&amp;Imprimir&quot;  				ACTION oLbx&#58;Report&#40;&#41;\n\n	ENDMENU\n\n	ACTIVATE POPUP oMenu AT nRow, nCol-1 OF oLbx\n\nreturn&#40; &#46;t&#46; &#41;\n\n\nFUNCTION ADSKEYNO&#40;&#41;\nRETURN&#40; OrdKeyNo&#40;&#41; &#41;\n\nENUMINDEX es un funcion de xHarbour\n[/code:3b2feghv]\n\n\nSaludos\nPatricio','',0,'AIA=','3b2feghv',1,0,'',36,0,0),(26083,5852,6,43,0,'189.128.5.162',1170442798,1,0,1,1,1,0,'','','Hola.\n\nSiguiendo con el problema, ahora cuando le doy click al boton de restaurar de la ventana principal (MDI) sucede esto:\n\n[img]\n[url=http&#58;//imageshack&#46;us:3grqsmcv][img:3grqsmcv]http&#58;//img164&#46;imageshack&#46;us/img164/1480/error3rh2&#46;jpg[/img:3grqsmcv][/url:3grqsmcv]\n[/img]\n\nComo veran el error se corrige, pero la vuelvo a minimizar y restaurar, vuelve a suceder lo mismo:\n[img]\n[url=http&#58;//imageshack&#46;us:3grqsmcv][img:3grqsmcv]http&#58;//img119&#46;imageshack&#46;us/img119/7025/error4lu8&#46;jpg[/img:3grqsmcv][/url:3grqsmcv]\n[/img]\n\nAhora maximizo la ventana y se corrige el problema.\n[img]\n[url=http&#58;//imageshack&#46;us:3grqsmcv][img:3grqsmcv]http&#58;//img109&#46;imageshack&#46;us/img109/4899/error5qg5&#46;jpg[/img:3grqsmcv][/url:3grqsmcv]\n[/img]\n\nHay algun problema con las ventanas MDI y MDICHILD, ahora cambiando la ReBar por la Barra de Botones normales o la TSBAR, no sucede nada de esto solo con la Rebar, que es lo que estoy haciendo mal.\n\n\nSaludos\nMarco A. Delgado','',0,'GA==','3grqsmcv',1,0,'',43,0,0),(26084,5649,3,529,0,'200.159.199.217',1170442955,1,0,1,1,1,0,'','','EMG, but you confirm this? thanks','',0,'GA==','3931poft',1,0,'',529,0,0),(26085,5649,3,6,0,'87.21.195.10',1170443136,1,0,1,1,1,1,'','','Yes.\n\nEMG','',0,'GA==','264o0ygy',1,0,'',6,0,0),(26086,5845,7,579,0,'200.76.189.223',1170443912,1,0,1,1,1,1,'','','\"Microsoft Windows Mobile 2003 For Smartphone\" sería compatible?','',0,'GA==','15f8ijh2',1,0,'',579,0,0),(26087,5819,6,635,0,'190.73.223.167',1170446131,1,0,1,1,1,0,'','','Hola Domenico...... saludos desde Valencia (Juan Jose Machado).','',0,'GA==','3sffk24g',1,0,'',635,0,0),(26088,5850,6,774,0,'200.72.70.43',1170447078,1,0,1,1,1,1,'','','muchisimas gracias por tu ayuda amigo... ojala hubieran mas como tu\n\n\nENUMINDEX es un funcion de xHarbour \n\n\ny como la incorporo a mi programa.. tu como lo hiciste\n\n\natte..  CLAUDIO','',0,'GA==','3fayeasp',1,0,'',774,0,0),(26089,5845,7,2,0,'87.218.146.117',1170447689,1,0,1,1,1,1,'','','Rodolfo,\n\nEn principio si, lo que ocurre es que eso es un teléfono smartphone y no un pocket pc. \n\nNosotros no hemos sabido localizar el explorer en el smartphone. Está disponible el emulador de Microsoft y comparte una carpeta con el PC, pero no sabemos acceder a ella desde el smartphone. Si alguien sabe como hacerlo, se agradece la informacion','',0,'GA==','1jdi1f80',1,0,'',2,0,0),(26090,5850,6,36,0,'200.113.56.235',1170448911,1,0,1,1,1,0,'','','Compilando con xharbour...\n\n  La tsbrowse que te envie fueron cambiados todos los \"for\" por \n\"For EACH\", y esta es una extension de xHarbour es mucho mas rapido que los for comunes \n\nte envie por mail la tsbrowse.prg  con los \"for\" normales\n\nSaludos\nPatricio','',0,'GA==','28de8exo',1,0,'',36,0,0),(26091,5842,2,832,0,'201.116.83.242',1170449929,1,0,1,1,1,0,'','Re: !! Disculpa','ya quedo...\n\n\nESTA LISTO ESTO PARA COSINARSE..................\n\n\nLO UNICO QUE MERESTA ES COMO PASAR MAS DE UN VARIABLE... ALGUIEN ME PODRI AYUDAR....\n\n\noOutFile:say(nContador++,0,\"&lt;TD align=right&gt;&lt;font face=\'Verdana\' size =1 &gt;\"+\'&lt;a href=\"\'+ndirser+\'\"?arch=\'+ncambio+\'&gt;\'+(nsuc)+\'&lt;/A&gt;\'+\"&lt;/font&gt;&lt;/TD&gt;\")\n\nCON ESTO SI DUNCIONA PERO NADAMAS ME PUEDE ENVIAR UNA VARIABLE.....','',0,'GA==','3lys1cu2',1,0,'',832,0,0),(26092,5814,3,49,0,'62.13.172.78',1170456011,1,0,1,1,1,1,'','','[code:252dbm44]\n REDEFINE COMBOBOX oDat&#91;24&#93; VAR aDat&#91;24&#93; ITEMS aProfessione ID  300 OF oFld&#58;aDialogs&#91;2&#93;;\n                                    BITMAPS &#123; &quot;Docente&quot;,&quot;ALUNNO&quot;,&quot;Cartella&quot;,&quot;Genitore&quot;,&quot;Esterno&quot; &#125; ;\n                                      ON CHANGE&#40; oFld&#58;aDialogs&#91;3&#93;&#58;aEnable = ;\n                                                                            &#123; iif&#40; oDat&#91;24&#93;&#58;nat=1, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=2, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=3, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=4, &#46;F&#46;, &#46;T&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=5, &#46;t&#46;, &#46;f&#46; &#41; &#125;&#41;[/code:252dbm44]\n\n\n\n\nthis make error \n\nHow I can make to not show tfolder number 3 if the item of combobox is oDat[24]:nat=4 ?','',0,'AIA=','252dbm44',1,0,'',49,0,0),(26093,5837,6,376,0,'201.230.28.125',1170457930,1,0,1,1,1,1,'','','Te entendí...\n\nEntonces tu vas a utilizar la clase que imprima tipo DOS (por ejemplo letra comprimida)... bien.\n\nEn mis facturas yo utilizo la clase tdosprn que me permite ejecutar por ejemplo, los tipos siguientes de comandos de impresora:\n\n      oBoleta:=TDosPrn():New( \"LPT1\" ) // clase tipo DOS.\n      oBoleta:Command(\"50,24\")           // 1/6 espaciamiento entre lineas\n      oBoleta:command(\"27,67,48\" )      // 48 lineas de largo\n\nEn algunas aplicaciones he desarrollado un dialogo para que el cliente pueda indicar las medidas de papel, el espaciamiento entre las líneas, los caracteres por pulgadas, etc. Es decir casi todo lo que te ofrecen las impresoras de matriz de puntos. Yo utilizo impresoras Epson e IBM.\n\nNuevamente te sugiero que hagas una búsqueda sobre esta clase en el foro. Ya existen varios ejemplos incluyendo codigo completo para lo que necesitas.','',0,'AIA=','1rexcxxs',1,0,'',376,0,0),(26094,5818,6,376,0,'201.230.28.125',1170458420,1,0,1,1,1,1,'','','Amigo mio... tu red debe ser una Novell y por ello en cada instancia (usuario) crea un archivo temporal para poder seguir la aplicación. \n\nPide soporte tecnico para que te configuren la red de forma que se generen en un directorio temporal. Novel (si la memoria no me falla) tiene un flag que hace posible que las aplicaciones trabajen en un directorio temporal ya sea para cada usuario o ya sea para todo un grupo. Por ahora no tengo a mi alcance ninguna red novell para indicarte cómo se hace... lo siento.\n\nSaludos\n\nArmando','',0,'AIA=','3s1l07co',1,0,'',376,0,0),(26095,5842,2,138,0,'189.141.72.59',1170464615,1,0,1,1,1,1,'','','La cadena URL Encodede es:\n\narchivo.exe?variable=valor&amp;otravariable=otrovalor&amp;otramas=otrovalormas\n\nSepara cada valor por un &amp; ylisto\n\nPor cierto, tu codigo tiene cierta similitud con un codigo que yo escribi hace algunos años, del que supongo debes estar tomando como ejemplo.','',0,'AIA=','2dhouq83',1,0,'',138,0,0),(26096,5845,7,138,0,'189.141.72.59',1170465510,1,0,1,1,1,1,'','','En mexico puedes conseguir:\n\nSi estas buscando un PoquetPc para FW-PCC yo recomiendo estos equipos que son los que tienen la mayoria de mis clientes:\n\nDell AXIM\nHP IPaq hx2000\n\nSi lo que estas buscando es un \"smartphone\" o sea un telefono que integre ademas una pocket Pc (creo que es la mejor opcion, aunque en precio si te pueden costar lo doble que una PPC normal) puedes optar por:\n\nBenq P50 SmartPhone\nHI IPaq hw6900\n\nMi opcion aqui seria la HP, proque el Benq tiene sistema operativo Windows MObile 2003 y el mismo no soporta apertura compartida de archivos.\n\nYo tengo un SmartPhone QTek 9100 y funciona perfecto con FWPPC','',0,'AIA=','1hqq7a9n',1,0,'',138,0,0),(26097,5851,6,138,0,'189.141.72.59',1170465711,1,0,1,1,1,1,'','','Problemas con el WOW (Windows On Windows) que es el emulador que utilizan los sistemas operativos TRUE32 para ejecutar aplicaciones de 16 bits.\n\nPrueba haciendo lo siguiente:\n\n1) Crea un acceso directo a tu programa en el escritorio\n2) En las propiedades del acceso directo indica que se ejecute \"en su propio espacion de memoria\"\n3) Pasalo a 32 bits lo mas pronto posible <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','ehk0vcg6',1,0,'',138,0,0),(26098,5853,2,760,0,'200.106.65.153',1170469919,1,0,1,1,1,0,'','Migracion a 32 Bits','Hola a todos del foro\n\nEstoy migrando un sistema hecho en clipper 5.3 con las librerias fastlib, oi hablar de las migraciones en modo consola a 32 bits.\nTengo el xharbour y el bcc32, use el hbmake para gestionar la compilacion y el enlazado, hasta alli todo bien, el problema es que como uso la fastlib, en el hbmake me dice si es que tengo librerias graficas, si le pongo si me da para seleccionar unas librerias que no son la fastlib, y por lo tanto me da error al final del enlazado que no existen las funciones que uso de la Fastlib. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nIntente activando en librerias de terceros de xharbour pero me sigue saliendo el mismo error despues de enlazar el sistema.... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  \n\nComo puedo hacer para enlazar las librerias Fastlib al sistema ya que los errores de enlazado son las funciones de la Fastlib? <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \n\nGracias por su apoyo de antemano, y les recomiendo que vayan migrando sus aplicaciones a 32 bits... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nSalu2','',0,'AIA=','jn9mjyiw',1,0,'',760,0,0),(26099,5850,6,774,0,'200.72.74.202',1170470121,1,0,1,1,1,1,'','','Amigo una duda:: re ferente a compilar con xharbo.....  lo hago con verce4.3  claro.. ,, referente a la TSbrowse.prg q me enviaste al correo,, la revise y igual hay \"For EACH\", eso es correcto q deban estar ahi\n\n\ncon la lib q genere y compilando con xharbour  me da este error solamente\n\n \nError: Unresolved external \'_HB_FUN_HB_ENUMINDEX\' referenced from C:\\CLASSTERCEROS\\MSBROWSEH.LIB|TSBrowse\n\nya me dijiste q era una funcion de xharbourd pero ,, estoy compilando con xharb.... pq igual me aparece el error\n\n\nPd. disculpa las molestias \n\nun agradecido\n\nAtte. CLAUDIO','',0,'AIA=','79jzacr5',1,0,'',774,0,0),(26100,5854,3,154,0,'151.81.4.20',1170474581,1,0,1,1,1,1,'','TreeView problem','Hi Fw\'s\nthe treeview is not correctly visible if started from an buttonbar on mdi window. This is the test:[code:2l3w4bmy]#include &quot;FiveWin&#46;ch&quot;\nfunction Main&#40;&#41;\n   LOCAL oWnd, oBar\n\n   DEFINE WINDOW oWnd MDI\n\n      DEFINE BUTTONBAR oBar 3DLOOK BUTTONSIZE 40, 40 OF oWnd\n\n      DEFINE BUTTON RESOURCE &quot;END_END&quot; OF oBar  ;\n             TOOLTIP &quot;Uscita dal sistema&quot; ;\n             ACTION oWnd&#58;END&#40;&#41;\n\n      DEFINE BUTTON RESOURCE &quot;Search&quot; OF oBar  ;\n             TOOLTIP &quot;TestTree&quot; ;\n             ACTION TestTree&#40;&#41;   // this is not good    &#58;-&#40;\n\n      ACTIVATE WINDOW oWnd MAXIMIZED ;\n            ON INIT &#40; TestTree&#40;&#41;,;    // This is good\n                           MsgInfo&#40; &quot;Good  &#58;-&#41;&quot;, &quot;TestTree&#40;&#41;&quot; &#41;,;\n                           MsgInfo&#40; &quot;No Good &#58;-&#40; &quot; + CRLF +;\n                                         &quot;if press the 2° button&quot;, &quot;TestTree&#40;&#41;&quot; &#41; &#41;\n\n      RETURN Nil\n\n//------------------------------------------------------------------------------\n// From here is the standard treeview sample\nSTATIC FUNCTION TestTree&#40;&#41;\n\n   local oDlg, oBtn1, oBtn2\n   local oTree, oBmp1, oBmp2, oImageList\n   local oFont\n\n   DEFINE FONT oFont NAME &quot;Ms Sans Serif&quot; SIZE 0, -12\n\n   DEFINE DIALOG oDlg NAME &quot;ARBOL&quot; FONT oFont\n\n   oImageList = TImageList&#40;&#41;&#58;New&#40;&#41;\n\n   oBmp1 = TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\folder&#46;bmp&quot; , oDlg &#41;\n   oBmp2 = TBitmap&#40;&#41;&#58;Define&#40; , &quot;&#46;&#46;\\bitmaps\\16x16\\fldMask&#46;bmp&quot;, oDlg &#41;\n\n   oImageList&#58;Add&#40; oBmp1, oBmp2 &#41;\n\n   oTree &#58;= TTreeView&#40;&#41;&#58;Redefine&#40; 100, oDlg  &#41;\n\n   oTree&#58;bLDblClick &#58;= &#123; | nRow, nCol, nKeyFlags | MyClick&#40; nRow, nCol, oTree &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT FillTree&#40; oTree, oImageList &#41;\n\n   oImageList&#58;End&#40;&#41;\n   oBmp1&#58;End&#40;&#41;\n   oBmp2&#58;End&#40;&#41;\n\n\nreturn nIL\n\n//------------------------------------------------------------------------------------------//\n\nfunction MyClick&#40; nRow, nCol, oTree &#41;\n\n   local oItem\n\n   oItem &#58;= oTree&#58;HitTest&#40; nRow, nCol &#41;\n\n   if oItem != NIL\n      MsgInfo&#40; oItem&#58;cPrompt &#41;\n   else\n      MsgInfo&#40; &quot;Not found!&quot; &#41;\n   endif\n\nreturn NIL\n\n//----------------------------------------------------------------------------//\n\nfunction FillTree&#40; oTree, oImageList &#41;\n\n   local oItem1, oItem2, n\n\n   oTree&#58;SetImageList&#40; oImageList &#41;\n\n   oItem1 &#58;= oTree&#58;Add&#40; &quot;Hello world!&quot; &#41;\n\n   oItem1&#58;Add&#40; &quot;xBase &amp; OOPS&quot; &#41;\n\n   oItem2 &#58;= oItem1&#58;Add&#40; &quot;Clipper 5&quot; &#41;\n    oItem2&#58;Add&#40; &quot;Another&quot; &#41;\n   oItem2&#58;Add&#40; &quot;item&quot; &#41;\n\n   oTree&#58;Add&#40; &quot;FiveWin power!&quot; &#41;\n\n   oItem2 &#58;= oTree&#58;Add&#40; Time&#40;&#41; &#41;\n    oItem2&#58;Add&#40; Time&#40;&#41; &#41;\n\n    for n = 1 to 50\n       oItem2&#58;Add&#40; Str&#40; n &#41; &#41;\n   next\n\nreturn nil[/code:2l3w4bmy]\n\nrc is testtree.rc from sample directory.\n\nsomeone can confirm?\nsome solution?\nthanks for your answers.*/','',0,'AIA=','2l3w4bmy',1,0,'',154,0,0),(26101,5847,6,913,0,'189.136.163.70',1170484130,1,0,1,1,1,1,'','Hola José Luis','Hola\n\nDisculpa que te pregunte algo fuera del tema que propones\n\nno eh podido hacer que se refresque el XBrowse\n\nsi pongo Refresh() me sale un error <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  y se truena el programa <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  no se por que <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  antes funcionaba muy bien con  listbox \n\nasi lo tengo al final de guardar datos en la base de datos \n\noSoC:UpStable() \noSoC:Refresh()\n\nme podrias ayudar\n\nGracias <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAida','',0,'AIA=','1w04m1yt',1,0,'',913,0,0),(26102,5853,2,2,0,'87.218.146.117',1170489748,1,0,1,1,1,1,'','','Prueba a usar el rmake en vez del hbmake como hacías en 16 bits, sólo que llamas a xharbour y usas sus librerías para construir la aplicación','',0,'AIA=','v04ag7he',1,0,'',2,0,0),(26103,5854,3,2,0,'87.218.146.117',1170494251,1,0,1,1,1,1,'','','Ugo,\n\nYour sample is working fine here both from the ON INIT and pressing the button bar second button. What problem do you get ?\n[url=http&#58;//imageshack&#46;us:3f4dtb58][img:3f4dtb58]http&#58;//img99&#46;imageshack&#46;us/img99/6603/fwhan0&#46;png[/img:3f4dtb58][/url:3f4dtb58]','',0,'GA==','3f4dtb58',1,0,'',2,0,0),(26104,5649,3,2,0,'87.218.146.117',1170494842,1,0,1,1,1,1,'','','Nop,\n\nUse PICTURE \"9999999.99\"','',0,'GA==','5svmokym',1,0,'',2,0,0),(26105,5852,6,2,0,'87.218.146.117',1170494961,1,0,1,1,1,1,'','','Marco,\n\nPrueba esto:\n\n::oReBar  := TReBar():New( ::oWndMain )\n::oReBar:nHeight = 40\n...','',0,'GA==','1nsyrzko',1,0,'',2,0,0),(26106,5827,7,2,0,'87.218.146.117',1170495327,1,0,1,1,1,1,'','','Toni,\n\nEn el emulador de WM2003 se ve bien. Vamos a probar en WM2005.\n\n&gt; ¿ Es posible obtener desde FWPPC una lista de las fuentes instaladas/reconocidas?\n\nDe momento no está implementado. Se pueden añadir nuevas fuentes al Pocket PC ? Por defecto solo lleva dos, si ?','',0,'GA==','afq170mp',1,0,'',2,0,0),(26107,5649,3,6,0,'87.18.215.23',1170498639,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2v26uimq]Nop,\n\nUse PICTURE \"9999999.99\"[/quote:2v26uimq]\n\nYes, of course. But pure Clipper and [x]Harbour behavior is different.\n\nEMG','',0,'gA==','2v26uimq',1,0,'',6,0,0),(26108,5814,3,397,0,'200.207.142.195',1170499077,1,0,1,0,1,1,'','','Silvio \n\nThe error is here\n\n REDEFINE COMBOBOX oDat[24] VAR aDat[24] ITEMS aProfessione ID  300 OF oFld:aDialogs[2]; \n                                    BITMAPS { \"Docente\",\"ALUNNO\",\"Cartella\",\"Genitore\",\"Esterno\" } ; \n                                      ON CHANGE( [b:1kcksn2o]oFld:aDialogs[3]:aEnable[/b:1kcksn2o] = ; \n                                                                            { iif( oDat[24]:nat=1, .t., .f. ),; \n                                                                              iif( oDat[24]:nat=2, .t., .f. ),; \n                                                                              iif( oDat[24]:nat=3, .t., .f. ),; \n                                                                              iif( oDat[24]:nat=4, .F., .T. ),; \n                                                                              iif( oDat[24]:nat=5, .t., .f. ) })\n\nReplace [b:1kcksn2o]oFld:aDialogs[3]:aEnable[/b:1kcksn2o] with [b:1kcksn2o]oFld:aEnable[/b:1kcksn2o]\n\nAnd put:\n\n[code]\n...\n   ON CHANGE( oFld:aEnable ....[b:1kcksn2o], oFld:Refresh()[/b:1kcksn2o] )\n\nTry now','',0,'QA==','1kcksn2o',1,0,'',397,0,0),(26109,5847,6,397,0,'200.207.142.195',1170499545,1,0,1,0,1,1,'','','Amigo\n\nAdapta o ejemplo:\n\n[code:1rxz3yll]\nnNumeroDaColunaAColorar &#58;= 2\n&#46;&#46;&#46;\n                    oTBLLbx&#58;bTextColor    &#58;= &#123;|nRow,nCol| CLR_BLACK &#125;\n                    oTBLLbx&#58;bbkColor      &#58;= &#123;|nRow,nCol| PintaCelula&#40;nRow,nCol,DBF-&gt;CAMPO,nNumeroDaColunaAColorar&#41; &#125;\n&#46;&#46;&#46;\n\nFunction PintaCelula&#40; _nRow_, _nCol_, _status_, _qCol_ &#41;\n   Local nCor &#58;= nRGB&#40;255,255,255&#41;\n   if _nRow_ &gt; 0\n      do case\n         case _status_ = &quot;V&quot;\n              if _nCol_ = _qCol_\n                 nCor = nRGB&#40; 236,253,255 &#41; // CLR_AZULADITO   \n              endif\n         case _status_ = &quot;A&quot;\n              if _nCol_ = _qCol_\n                 nCor = nRGB&#40; 234,255,229 &#41; // CLR_VERDEAGUA\n              endif\n         case _status_ = &quot;R&quot;\n              if _nCol_ = _qCol_\n                 nCor = nRGB&#40; 255,238,238 &#41; // CLR_VENCIDOS\n              endif\n      endcase\n   endif\n   return nCor\n[/code:1rxz3yll]','',0,'AIA=','1rxz3yll',1,0,'',397,0,0),(26110,5649,3,2,0,'87.218.146.117',1170501174,1,0,1,1,1,1,'','','Enrico,\n\nyes, right, its just a workaround to solve the problem','',0,'AIA=','2e7cn3ot',1,0,'',2,0,0),(26111,5814,3,6,0,'87.18.215.23',1170501672,1,0,1,1,1,1,'','','[code:tq1p6vc2]ON CHANGE&#40; oFld&#58;aDialogs&#91;3&#93;&#58;aEnable &#58;= ;[/code:tq1p6vc2]\n\nEMG','',0,'AIA=','tq1p6vc2',1,0,'',6,0,0),(26112,5855,19,936,0,'72.252.67.56',1170506142,1,0,1,1,1,0,'','Actualización de datos externos en hoja Excel...','Hola a todos.\nTengo una tabla dínamica en Excel que muetra resultados de ventas por fecha, y toma sus datos de un origen externo, por mediode ODBC a MySql. \nCuando la generé no tuve ningún problema, pero cuando quiero actualizar los datos de nuevo, obtengo este mensaje y no atuliza los datos. \n\n[b:50hobpzg]Las opciones de seguridad de cliente no permiten la emisión de instrucciones de paso a través al origen de datos.[/b:50hobpzg]\n\nPero si vuelvo a genera otra hoja y hago de nuevo los querys no tengo problema de acceso a los datos.\n\nMi pregunta es:\n[b:50hobpzg] Donde puede cambiar esas opciones de seguridad para poder actualizar los datos?[/b:50hobpzg]\n\nMi idea es dejar prepara esta hoja con la tabla dinámica, levantarla con FWH y que se actualize al abrirla.\n\nEstoy utlizando Windows XP Home Service Pack 2, con MySql 4.1 y Excel 2003.\n\n\nSaludos.\n\nCarlos Sincuir','',0,'QA==','50hobpzg',1,0,'',936,0,0),(26113,5856,6,936,0,'72.252.67.56',1170506647,1,0,1,1,1,0,'','Off Topic: Actualizar datos de externos en hoja Excel...','Hola a todos. \nDisculpen por el Off Topic\nTengo una tabla dínamica en Excel que muetra resultados de ventas por fecha, y toma sus datos de un origen externo, por mediode ODBC a MySql. \nCuando la generé no tuve ningún problema, pero cuando quiero actualizar los datos de nuevo, obtengo este mensaje y no actualiza los datos. \n\n[b:3ft9h29b]Las opciones de seguridad de cliente no permiten la emisión de instrucciones de paso a través al origen de datos.[/b:3ft9h29b] \n\nPero si vuelvo a genera otra hoja y hago de nuevo los querys no tengo problema de acceso a los datos. \n\nMi pregunta es: \n[b:3ft9h29b]Donde puede cambiar esas opciones de seguridad en Windows para poder actualizar los datos?[/b:3ft9h29b] \n\nMi idea es dejar preparada esta hoja con la tabla dinámica, levantarla con FWH y que se actualize al abrirla. \n\nEstoy utlizando Windows XP Home Service Pack 2, con MySql 4.1 y Excel 2003. \n\n\nSaludos. \n\nCarlos Sincuir','',0,'QA==','3ft9h29b',1,0,'',936,0,0),(26114,5850,6,774,0,'200.72.74.41',1170507264,1,0,1,1,1,1,'','','Amigo:: compile la tsbrowse.prg pero al momento de hacerlo la compilacion si bien se crea el .LIB,,  me marca este error:\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSCombo.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSMulti.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nScrllBar.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nBtnDown.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\TSBFUNCS.C:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\SCROLL.C:\nWarning W8070 ..\\source\\function\\SCROLL.C 75: Function should return a value in\nfunction HB_FUN_SETSCROLLRANGE\nWarning W8070 ..\\source\\function\\SCROLL.C 101: Function should return a value in\n function HB_FUN_SETSCROLLPOS\nWarning W8070 ..\\source\\function\\SCROLL.C 128: Function should return a value in\n function HB_FUN_GETSCROLLRANGE\nWarning W8070 ..\\source\\function\\SCROLL.C 140: Function should return a value in\n function HB_FUN_GETSCROLLPOS\nWarning W8070 ..\\source\\function\\SCROLL.C 160: Function should return a value in\n function HB_FUN_SETSCROLLINFO\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\GETBTN.C:\nD:\\TSBROW6\\LIB&gt;edit do.bat\n\nD:\\TSBROW6\\LIB&gt;do\nEl sistema no puede hallar el archivo especificado.\nNo se esperaba &gt;&gt; en este momento.\nD:\\TSBROW6\\LIB&gt;edit do.bat\n\nD:\\TSBROW6\\LIB&gt;do\nNo se encuentra D:\\TSBROW6\\LIB\\*.lib\nEl sistema no puede hallar el archivo especificado.\nNo se esperaba &gt;&gt; en este momento.\nD:\\TSBROW6\\LIB&gt;edit do.bat\n\nD:\\TSBROW6\\LIB&gt;do\nNo se encuentra D:\\TSBROW6\\LIB\\*.lib\nEl sistema no puede hallar el archivo especificado.\nNo se esperaba &gt;&gt; en este momento.\nD:\\TSBROW6\\LIB&gt;edit do.bat\n\nD:\\TSBROW6\\LIB&gt;do\nNo se encuentra D:\\TSBROW6\\LIB\\*.lib\nEl sistema no puede hallar el archivo especificado.\nPresione una tecla para continuar . . .\nNo se esperaba &gt;&gt; en este momento.\nD:\\TSBROW6\\LIB&gt;edit do.bat\n\nD:\\TSBROW6\\LIB&gt;do\nNo se encuentra D:\\TSBROW6\\LIB\\*.lib\nEl sistema no puede hallar el archivo especificado.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSBrowse.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nSBMsgSpa.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSColumn.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSBtnGet.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSGet.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSCombo.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSMulti.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nScrllBar.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nBtnDown.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nRPreview.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTMetafil.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\TSBFUNCS.C:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\SCROLL.C:\nWarning W8070 ..\\source\\function\\SCROLL.C 75: Function should return a value in\nfunction HB_FUN_SETSCROLLRANGE\nWarning W8070 ..\\source\\function\\SCROLL.C 101: Function should return a value in\n function HB_FUN_SETSCROLLPOS\nWarning W8070 ..\\source\\function\\SCROLL.C 128: Function should return a value in\n function HB_FUN_GETSCROLLRANGE\nWarning W8070 ..\\source\\function\\SCROLL.C 140: Function should return a value in\n function HB_FUN_GETSCROLLPOS\nWarning W8070 ..\\source\\function\\SCROLL.C 160: Function should return a value in\n function HB_FUN_SETSCROLLINFO\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\GETBTN.C:\nD:\\TSBROW6\\LIB&gt;lear\n\"lear\" no se reconoce como un comando interno o externo,\nprograma o archivo por lotes ejecutable.\n\nD:\\TSBROW6\\LIB&gt;clear\n\nD:\\TSBROW6\\LIB&gt;for %i in (*.lib) do del %i\n\nD:\\TSBROW6\\LIB&gt;del SBrowseH.LIB\n\nD:\\TSBROW6\\LIB&gt;for %i in (*.obj) do del %i\n\nD:\\TSBROW6\\LIB&gt;for %i in (*.c) do del %i\n\nD:\\TSBROW6\\LIB&gt;for %i in (*.log) do del %i\n\nD:\\TSBROW6\\LIB&gt;del Lib.log\n\nD:\\TSBROW6\\LIB&gt;del log.log\n\nD:\\TSBROW6\\LIB&gt;for %i in (*.ppo) do del %i\n\nD:\\TSBROW6\\LIB&gt;for %i in (*.bak) do del %i\n\nD:\\TSBROW6\\LIB&gt;do\nNo se encuentra D:\\TSBROW6\\LIB\\*.lib\nNo se encuentra D:\\TSBROW6\\LIB\\*.log\n\n//\nEl sistema no puede hallar el archivo especificado. /// este es el primero\n//\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSBrowse.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nSBMsgSpa.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSColumn.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSBtnGet.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSGet.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSCombo.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTSMulti.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nScrllBar.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nBtnDown.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nRPreview.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTMetafil.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\TSBFUNCS.C:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n///                                             aca los demas,,,, me arroja warning en scroll.c\n..\\source\\function\\SCROLL.C:\nWarning W8070 ..\\source\\function\\SCROLL.C 75: Function should return a value in\nfunction HB_FUN_SETSCROLLRANGE\nWarning W8070 ..\\source\\function\\SCROLL.C 101: Function should return a value in\n function HB_FUN_SETSCROLLPOS\nWarning W8070 ..\\source\\function\\SCROLL.C 128: Function should return a value in\n function HB_FUN_GETSCROLLRANGE\nWarning W8070 ..\\source\\function\\SCROLL.C 140: Function should return a value in\n function HB_FUN_GETSCROLLPOS\nWarning W8070 ..\\source\\function\\SCROLL.C 160: Function should return a value in\n function HB_FUN_SETSCROLLINFO\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n..\\source\\function\\GETBTN.C:\nD:\\TSBROW6\\LIB&gt;\n\ncuando la incorporo al programa ,, y la compilo con mi aplicacion con verce..\n\nme da este error \n\nUnrecoverable error 9000\n\n\"Program with 1st fun: TSBROWSE\" was compiled by older version, PCODE version 0 is no longer supported - please recompile\n\nQUE SERA...\n\nNo tienes la LIB ya compilada y el .CH ,, porque es todo lo q se necesita verdad---\n\nOjo.. Harb. y xHarb. no son lo mismo,, ya q compilo con xharbour\n\nGRACIAS','',0,'QA==','2yjlfdg6',1,0,'',774,0,0),(26115,5854,3,154,0,'151.81.5.92',1170515964,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2lulpp0d]Your sample is working fine here both from the ON INIT and pressing the button bar second button. What problem do you get ?\n[/quote:2lulpp0d]Antonio,\n\nWhen I press 2° button on buttonbar the treeview it appears like in the image:\n\n[img:2lulpp0d]http&#58;//img167&#46;imagevenue&#46;com/loc254/th_15090_Immagine4_122_254lo&#46;JPG[/img:2lulpp0d]\nHave you a suggestion?','',0,'iA==','2lulpp0d',1,0,'',154,0,0),(26116,5827,7,57,0,'83.53.69.224',1170516365,1,0,1,1,1,1,'','','Antonio\nHe instaldo nuevas fuentes simplemente copiando directamente las fuentes en la carpeta \\Windows\\fuentes de la pda. Word mobile las reconoce pero FWPPC siempre muestra la misma. \n\n[url=http&#58;//img177&#46;imageshack&#46;us/my&#46;php?image=fuentesor0&#46;png:2ly6wy73][img:2ly6wy73]http&#58;//img177&#46;imageshack&#46;us/img177/8798/fuentesor0&#46;th&#46;png[/img:2ly6wy73][/url:2ly6wy73]\n\nSaludos','',0,'GA==','2ly6wy73',1,0,'',57,0,0),(26117,5853,2,760,0,'200.37.76.84',1170516466,1,0,1,1,1,0,'','Migracion a 32 Bits','Voy a intentarlo\n\nEspero no morir en el intento, oi hablar de como migro sus aplicaciones el señor RF, entonces voy a probar a ver que sucede....\nLes estaré informando amigos... Gracias Antonio por tu apoyo.\n\nEs mas estoy usando el xharbour y me está gustado, solo que no tengo el manual del xharbour, solo aplico las funciones y comandos del clipper por se similar...\n\nSalu2','',0,'GA==','2p3jgwpd',1,0,'',760,0,0),(26118,5841,6,774,0,'200.72.145.96',1170517504,1,0,1,1,1,1,'','','Antonio inclui las lineas q indicaste,,, pero aun no puedo \n\nme marca el mismo error y sabes q es peor q me marca esw error con los browse ya sea ariginales de fivewin o Tsbrowse ....\n\nsi retiro el objeto del .RC y compilo ningun problema...\n\nOjo estoy usando workshop,, el mismo con q estoy haciendo una aplicacion en 16bits.. infuira en algo..\n\nque este hacienod mal\n\nGRACIAS','',0,'GA==','pllm1qrm',1,0,'',774,0,0),(26119,5854,3,2,0,'87.218.146.117',1170521394,1,0,1,1,1,1,'','','Ugo,\n\nPlease test the EXE that I send you by email. \n\nHave you modified any FWH classes yourself ?','',0,'GA==','3cdsylwo',1,0,'',2,0,0),(26120,5841,6,2,0,'87.218.146.117',1170521561,1,0,1,1,1,1,'','','Has copiado bwcc32.dll al directorio en donde está tu aplicación e incluido las líneas que te he indicado ?','',0,'GA==','3iua67rm',1,0,'',2,0,0),(26121,5841,6,774,0,'200.72.126.108',1170522362,1,0,1,1,1,1,'','','Antonio copie la DLL e inclui las lineas q dijiste pero no funciona\n\nq mas puede estar fallando\n\nGRACIAS','',0,'GA==','39gmqycu',1,0,'',774,0,0),(26122,5857,6,937,0,'200.76.200.84',1170523520,1,0,1,1,1,0,'','Ayuda para  leer dbf en Novell con ADS y Linux Debian','Realmente el problema es que quiero que desde una pagina web, poder consultar y modificar mis dbf, pero tengo un servidor linux debian y mis dbf estan en novell con ADS...\n\nGracias a quien me pueda orientar....!!\nSalu2\n\nAlejandro Frausto','',0,'GA==','1y6qct1g',1,0,'',937,0,0),(26123,5854,3,154,0,'151.81.2.246',1170527085,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:375sehwe]Please test the EXE that I send you by email.[/quote:375sehwe]\n\nAntonio, \nyour exe is good!   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\n[quote=&quot;Antonio Linares&quot;:375sehwe]Have you modified any FWH classes yourself ?[/quote:375sehwe]\n\nYes, i have modified any fwh classes   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \nA modification creates the problem, ok, but which?\nI have modified:\n1) In Dialog.prg in Activate Method default lResize16 is .T.\n2) In ErrorSys.prg many modifications\n3) In Folder.prg I have added the management lResize16\n4) In Tget and MGet I have insert the background color when is in focus\n5) In RadMenu.prg I have move the default clause after local clause (I send you a private mail in 2007-01-17, do you remember?)\n6) In TreeView.prg:\n[code:375sehwe]in New&#40;&#41; method I changed&#58;\n    nClrBack &#58;= oWnd&#58;nClrPane,; // GetSysColor&#40; COLOR_WINDOW &#41;,;\n    // I have tested in default mode but do not work!\n    // and in the Add Method I have added the management cCargo\n//----------------------------------------------------------------------------//\n// Aggiunto cCargo &#40;gestito dal TTVItem ma qui non riportato&#41; Ugo Garombo 24/11/2004\nMETHOD Add&#40; cPrompt, nImage, cCargo &#41; CLASS TTreeView\n\n   local oItem\n\n   oItem &#58;= TTVItem&#40;&#41;&#58;New&#40; TVInsertItem&#40; &#58;&#58;hWnd, cPrompt, , nImage &#41;, Self, cCargo, cPrompt, nImage &#41;\n   // Verificare &#46;&#46;&#46; Linares aveva tolto i rem nelle 2 righe sotto\n   // also I have removed the next two lines because it are already\n   // present in TTvItem New&#40;&#41; Method&#58;\n   // oItem&#58;cPrompt &#58;= cPrompt\n   // oItem&#58;nImage  &#58;= nImage\n\n   AAdd&#40; &#58;&#58;aItems, oItem &#41;\n\nreturn oItem[/code:375sehwe] \n7) In WBrowse.prg:\n   ::nClrForeHead  := GetSysColor( COLOR_BTNTEXT ) // Why CLR_BLACK???\n8 ) In Window.prg I have added a new method:\n[code:375sehwe]   METHOD ARefresh&#40;&#41;           // added by Ugo Garombo Nov&#46; 2004\n                               // a differenza di Refresh fa il refresh di tutti gli oggetti\n\n\n//----------------------------------------------------------------------------//\n\nMETHOD ARefresh&#40;&#41; CLASS TWindow\n\n   if ValType&#40; &#58;&#58;aControls &#41; == &quot;A&quot;\n      AEval&#40; &#58;&#58;aControls, &#123;| a | a&#58;Refresh&#40;&#41; &#125; &#41;\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//[/code:375sehwe]\n\nThat\'s all. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nThe question is:\nA modification creates the problem, ok, but which?\nCan you help me to find the problem?\nIf you want i can send you my modified source.\n\nThank you for the moment, and sorry for my bad English!  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gIA=','375sehwe',1,0,'',154,0,0),(26124,5854,3,154,0,'151.81.2.246',1170527370,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:1l2uva8y]\n7) In WBrowse.prg:\n   ::nClrForeHead  := GetSysColor( COLOR_BTNTEXT ) // Why CLR_BLACK???[/quote:1l2uva8y]\n\nThis modification is in Redefine() Method.','',0,'gA==','1l2uva8y',1,0,'',154,0,0),(26125,5852,6,43,0,'189.128.5.162',1170528781,1,0,1,1,1,0,'','','Hola Antonio.\n\nGracias por responder, pero no funciona tu ejemplo, el error con la ReBar solo se da si son mas de 2 TOOLBAR dentro de la Rebar.\n\nSaludos\n\nMarco A. Delgado.','',0,'gA==','31b59ocz',1,0,'',43,0,0),(26126,5858,2,304,0,'189.129.144.20',1170530475,1,0,1,1,1,0,'','Uso de ZIPFILE y UNZIPFILE','Hola:\nTengo un proceso de compactacion dentro de un programa de la siguiente forma:\n\ncString:=\"H:\\ZipGrupo\\inve01.ZIP\" + \" H:\\ZipGrupo\\*.*\"\n\nZIPFILE(Alltrim(cString) )\n\ny efectua la compactacion correctamente de los archivos que quiero y en lugar donde los necesito\n\npero al usar la rutina para descompactar no hace nada\n\ncString:=\"H:\\ZipGrupo\\inve01.ZIP\" + \"H:\\Ejemplo\"\n\nUNZIPFILE(Alltrim(cString) )\n\nalguna idea o solucion a esto ???\nsaludos\nveracruz, ver. mexico','',0,'gA==','tmh8v61l',1,0,'',304,0,0),(26127,5859,6,579,0,'200.76.189.223',1170532613,1,0,1,1,1,1,'','VERCE aún existes?','Le he mandado correos a Juan Carlos Salinas, creador del VERCE, a: <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e --> pero se me regresan. Alguien sabe algo de el?','',0,'gA==','94z0viwy',1,0,'',579,0,0),(26128,5857,6,138,0,'189.141.72.59',1170534284,1,0,1,1,1,1,'','','Alex:\n\nTienes por lo menos 5 soluciones para lo que quieres hacer:\n\n1) Si tu servidor tiene PHP,  que creo recordar que si lo tiene, (es un Apache, ¿ correcto ?) puedes usar el cliente PHP de Advantage, hay cliente PHP para ADS desde Linux.\n\n2) Si quieres utilizar Java y WebServices, desde el mismo Linux, puedes utilizar el cliente JDBC de Advantage, que viene con todo y codigo fuente, es un JDBC clase 2, pero funciona con productos como TomCat sin ningún problema, tengo un cliente que así lo usa y nunca se ha quejado.\n\n3) Si quieres que todo corra en tu servidor Linux, puedes utilizar también CGIs con el mismo xHarbour para Linux con el RDD ADS y el ACE32 para Linux, funciona perfectamente.\n\n4) Si quieres programar usando las herramientas que tienes en este momento (FW + xHarbour + ADS) puedes usar un servidor web \"intermedio\" basado en Windows  (asi lo tenemos nosotros, nuestra web la tenemos en un servidor Apache y tenemos un servidor alterno donde están todos nuestros desarrollos web corriendo el Orelly WebSite)\n\n5) Igual que lo anterior, puedes montar un servidor basado en Windows con Internet Information Server y usar el xHBScript con el cliente ASP de Advantage para accesar a tus datos en novell, solo tienes que asegurarte que tus equpos windows tengan el cliente Novell Instalado.\n\nClaro, depende de tu version de ADS y de tu Linux. La que ustedes tienen es una 7.1 por lo que no tienes ningun problema en usar los clientes ADS correspondientes.\n\nLlamame por telefono y te comento estas y otras opciones de publicacion en WEB o contactame por Messenger','',0,'gA==','1c4gacig',1,0,'',138,0,0),(26129,5854,3,2,0,'87.218.146.117',1170534659,1,0,1,1,1,1,'','','Ugo, \n\nPlease use FWH source\\classes\\treeview.prg instead of yours and tray it again, thanks','',0,'gA==','1twt2t89',1,0,'',2,0,0),(26130,5841,6,2,0,'87.218.146.117',1170534810,1,0,1,1,1,1,'','','Por favor copia aqui el contenido de la caja de diálogo en el RC','',0,'gA==','lvkv9lhm',1,0,'',2,0,0),(26131,5852,6,2,0,'87.218.146.117',1170534924,1,0,1,1,1,1,'','','Marco,\n\nPrueba a modificar el dato nTop del browse:\n\noBrw:nTop = oReBar:nHeight + 1','',0,'gA==','24x1bp2v',1,0,'',2,0,0),(26132,5850,6,774,0,'200.72.126.108',1170535549,1,0,1,1,1,1,'','','....','',0,'gA==','2nqwjtg8',1,0,'',774,0,0),(26133,5860,6,579,0,'200.76.189.223',1170536196,1,0,1,1,1,1,'','Windows Vista y FWH y FWH64','Hola Foro!\n\n Como el \"evento taurino\" por el cambio de sexenio también me tocó a mi (\"La gran corrida\"), ahora que soy desempleado, o mejor dicho, autoempleado, me verán dando lata por aqui mas seguido.\n\nYa veo anunciado por todos lados el tan esperado Windows Vista y no puedo dejar de preguntar si será compatible con nuestro querido FWH o si pasará lo mismo que FW de 16 bits al intentarlo trabajar con Windows de 32 bits, que marcaba errores de falta de memoria.\n\nSuponiendo que sea compatible, entonces cual sería la ventaja de usar FWH64?\n\nNotese que estoy muy desligado de esto del Hardware/Software actual, asi es que a lo mejor mis preguntas resultan un tanto tontas, pero no se hagan, más de uno de ustedes no se atrevía a preguntar.\n\n\'chos salu2 (y pronto cambiaré la foto de mi último proyecto (mi hijo) por la mía, nada mas que sanen mis heridas al quitarme la papada y las arrugas... jajaja, para nada!)','',0,'gA==','gojmyr87',1,0,'',579,0,0),(26134,5841,6,774,0,'200.72.126.108',1170538142,1,0,1,1,1,1,'','','la DLL la puse en una variable Static y no Local y ahora funcionan las lineas q me indicaste,,, pero Ohhhhh,, luego de solucionar ese problema,, ahora tengo otro contratiempo,,  \n\nMira. estoy incluyendo TSBROWSE.CH Y TSBROWSE.LIB a mi app.\n\nlo compilo con verce, harbor,, con xharbo no se compila,,, bueno con harbor me sirve,, pero al activar el dialogo q contiene el BROWSE me marca ,, lo mas raro q me habia pasado... error: BASE/1081,, ,, ese es un error de clipper,, que indica tipo incompalible\nApplication\n===========\n   Path and name: D:\\Folios\\xFolio.Exe (32 bits)\n   Size: 1,421,312 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 03/02/2007, 18:27:08\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = U   \n     [   2] = N   1\n\nStack Calls\n===========\n   Called from:  =&gt; TSBROWSE(0)\n   Called from:  =&gt; MODULO1(60)\n   Called from:  =&gt; VENTANA(178)\n   Called from:  =&gt; (b)MAIN(59)\n   Called from:  =&gt; TTOOLBAR:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from:  =&gt; MAIN(74)\n\neste es el .RC \n\n\n#define FBOLETAS	1\n\nBOLETAS BITMAP \"bmp\\boletas.bmp\"\nSALIR   BITMAP \"bmp\\salir.bmp\"\n\n\nFBOLETAS DIALOG 1, -22, 344, 244\nSTYLE WS_CHILD\nFONT 6, \"MS Sans Serif\"\n{\n LTEXT \"Cantidad de Formatos por Linea\", 100, 14, 15, 106, 8\n LTEXT \"Cantidad de Lineas por Pagina\", 101, 14, 29, 106, 8\n LTEXT \"Cantidad de Formatos a Imprimir\", 102, 14, 43, 106, 8\n LTEXT \"Cantidad de Formatos por Talonario\", 103, 14, 57, 116, 8\n LTEXT \"Cantidad de Talonarios\", 104, 14, 72, 116, 8\n LTEXT \"Distribución de Alzada a Realizar\", 105, 14, 85, 116, 8\n LTEXT \"Folio Inicio\", 106, 211, 15, 45, 8\n LTEXT \"Folio Término\", 107, 211, 29, 45, 8\n EDITTEXT 200, 139, 13, 61, 12\n EDITTEXT 201, 139, 27, 61, 12\n EDITTEXT 202, 139, 40, 61, 12\n EDITTEXT 203, 139, 55, 61, 12\n EDITTEXT 204, 139, 69, 61, 12\n EDITTEXT 205, 139, 83, 61, 12\n EDITTEXT 206, 264, 13, 61, 12\n EDITTEXT 207, 264, 27, 61, 12\n PUSHBUTTON \"Comenzar\", 300, 214, 63, 50, 14\n PUSHBUTTON \"Salir\", 301, 270, 63, 50, 14\n GROUPBOX \"\", -1, 9, 0, 325, 102\n CONTROL \"\", 500, \"TSBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 12, 112, 324, 123\n}\n\n\nQue podria estar mal\n\nGRACIAS','',0,'','3mkcjgfu',1,0,'',774,0,0),(26135,5841,6,2,0,'87.218.146.117',1170538433,1,0,1,1,1,1,'','','Se está intentando sumar un número 1 a un valor nil.\n\nCompila TSBrowse con información de números de línea y vuelve a ejecutar tu programa para ver en que línea de TSBrowse está el error.\n\nOtra forma es buscar en el fuente de TSBrowse donde hay un \"+ 1\" ó un \"++\".','',0,'','3t7c0vgq',1,0,'',2,0,0),(26136,5860,6,2,0,'87.218.146.117',1170538701,1,0,1,1,1,1,'','','Rodolfo,\n\nVista existe en versiones de 32 bits y de 64 bits. Igual que XP hasta ahora.\n\nFWH 32 bits es totalmente compatible con Vista (32 y 64 bits). FWH64 es para usarlo sólo en versiones de 64 bits, bien sea Vista 64 ó XP 64. \n\nLas aplicaciones de 64 bits no funcionan en ordenadores de 32 bits. Pero las aplicaciones de 32 bits si funcionan en 32 y en 64.\n\nAdemás las aplicaciones de 16 bits no funcionan en XP ó Vista de 64 bits','',0,'','e0t18xcj',1,0,'',2,0,0),(26137,5850,6,2,0,'87.218.146.117',1170538783,1,0,1,1,1,1,'','','Tienes que recompilar TSBrowse con el xharbour que estás usando','',0,'','2ciaulbl',1,0,'',2,0,0),(26138,5814,3,49,0,'62.13.172.78',1170541342,1,0,1,1,1,1,'','','thanks emg but it not run ok \n\n[code:37ygozrs]Application\n===========\n   Path and name&#58; C&#58;\\work\\errori\\fsdi2006\\prg\\fsdi2006&#46;Exe &#40;32 bits&#41;\n   Size&#58; 2,062,848 bytes\n   Time from start&#58; 0 hours 0 mins 6 secs \n   Error occurred at&#58; 03-02-2007, 23&#58;18&#58;05\n   Error description&#58; Error BASE/1005  Message not found&#58; TDIALOG&#58;_AENABLE\n\nStack Calls\n===========\n   Called from&#58;  =&gt; TDIALOG&#58;ERROR&#40;175&#41;\n   Called from&#58; tobject&#46;prg =&gt; &#40;b&#41;HBOBJECT&#58;HBOBJECT&#40;105&#41;\n   Called from&#58;  =&gt; TDIALOG&#58;MSGNOTFOUND&#40;0&#41;\n   Called from&#58; dialog&#46;prg =&gt; TDIALOG&#58;_AENABLE&#40;167&#41;\n   Called from&#58; pcustomer&#46;prg =&gt; &#40;b&#41;INS_SOCI&#40;1067&#41;\n   Called from&#58; COMBOBOX&#46;PRG =&gt; TCOMBOBOX&#58;CHANGE&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; COMBOBOX&#46;PRG =&gt; TCOMBOBOX&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3165&#41;\n   Called from&#58;  =&gt; SENDMESSAGE&#40;0&#41;\n   Called from&#58; dialog&#46;prg =&gt; TDIALOG&#58;COMMAND&#40;425&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; dialog&#46;prg =&gt; TDIALOG&#58;HANDLEEVENT&#40;927&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3165&#41;\n   Called from&#58;  =&gt; DIALOGBOX&#40;0&#41;\n   Called from&#58; dialog&#46;prg =&gt; TDIALOG&#58;ACTIVATE&#40;274&#41;\n   Called from&#58; pcustomer&#46;prg =&gt; INS_SOCI&#40;1177&#41;\n   Called from&#58; pcustomer&#46;prg =&gt; &#40;b&#41;SOCI&#40;484&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;EVALACTION&#40;1722&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;LBUTTONUP&#40;1423&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;HANDLEEVENT&#40;900&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3165&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;ACTIVATE&#40;883&#41;\n   Called from&#58; main&#46;prg =&gt; TAPPLICATION&#58;ACTIVATE&#40;164&#41;\n   Called from&#58; main&#46;prg =&gt; MAIN&#40;42&#41;[/code:37ygozrs]\n\n\n\nthe source code is here \n[code:37ygozrs]\n DEFINE DIALOG oDlg RESOURCE &quot;AGENDA_EDIT&quot; TITLE IF &#40;lnew,&quot;Inserimento Socio&quot;,&quot;Modifica Socio&quot;&#41;\n\n\n&#46;&#46;&#46;\n\n\n REDEFINE FOLDER oFld ID 500 OF oDlg                         ;\n                        PROMPT &quot;&amp;Anagrafica&quot;,&quot;&amp;Dettagli&quot;,&quot;&amp;Alunno&quot;,&quot;&amp;Notizie mediche&quot;,&quot;&amp;Fotografia&quot;,&quot;Altro&quot;;\n                        DIALOGS &quot;AGENDA_EDIT_A&quot;, &quot;AGENDA_EDIT_B&quot;,&quot;AGENDA_EDIT_ALU&quot;, &quot;AGENDA_EDIT_C&quot;,&quot;AGENDA_EDIT_D&quot;,&quot;AGENDA_EDIT_E&quot;\n\n                     oFld&#58;aEnable = &#123; &#46;t&#46;, &#46;t&#46;, &#46;f&#46;, &#46;t&#46;, &#46;t&#46;, &#46;T&#46;&#125;\n\n\n&#46;&#46;&#46;\n\n\n\n//folder Due\n                                   REDEFINE COMBOBOX oDat&#91;24&#93; VAR aDat&#91;24&#93; ITEMS aProfessione ID  300 OF oFld&#58;aDialogs&#91;2&#93;;\n                                    BITMAPS &#123; &quot;Docente&quot;,&quot;ALUNNO&quot;,&quot;Cartella&quot;,&quot;Genitore&quot;,&quot;Esterno&quot; &#125; ;\n                                      ON CHANGE&#40; oFld&#58;aDialogs&#91;3&#93;&#58;aEnable &#58;=  ;\n                                                                            &#123; iif&#40; oDat&#91;24&#93;&#58;nat=1, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=2, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=3, &#46;t&#46;, &#46;f&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=4, &#46;F&#46;, &#46;T&#46; &#41;,;\n                                                                              iif&#40; oDat&#91;24&#93;&#58;nat=5, &#46;t&#46;, &#46;f&#46; &#41; &#125;&#41;\n\n\n&#46;&#46;&#46;\n  REDEFINE BTNBMP oBtn1 ID 1 OF oDlg ;\n      FILE &quot;&#46;\\bitmaps\\sel1&#46;BMP&quot;;\n      ACTION NIL ;\n      PROMPT &quot;  Conferma&quot;  LEFT\n\n\n\n\n\n\n    REDEFINE BTNBMP oBtn2 ID 2 OF oDlg ;\n      FILE &quot;&#46;\\bitmaps\\sel2&#46;BMP&quot;;\n      ACTION  oDlg&#58;END&#40;&#41; ;\n      PROMPT &quot;   Annulla&quot;  LEFT\n\n\n\n\n         ACTIVATE DIALOG oDlg CENTERED\n\n[/code:37ygozrs]\n\n\nSomeone have an Idea ?','',0,'AIA=','37ygozrs',1,0,'',49,0,0),(26139,5814,3,6,0,'87.11.229.81',1170541562,1,0,1,1,1,1,'','','[code:ln2t62al]ON CHANGE&#40; oFld&#58;aEnable &#58;=  ;[/code:ln2t62al]\n\nEMG','',0,'AIA=','ln2t62al',1,0,'',6,0,0),(26140,5814,3,49,0,'62.13.172.78',1170543107,1,0,1,1,1,1,'','','Now run ...\n\nI explain you when I select the item number 3  the procedure show the third dialog of the folder\n\nBut If  I click with the mouse on the first folder or on the folder number five it make error  :\n[code:16uvv96v]\nApplication\n===========\n   Path and name&#58; C&#58;\\work\\errori\\fsdi2006\\prg\\fsdi2006&#46;Exe &#40;32 bits&#41;\n   Size&#58; 2,062,848 bytes\n   Time from start&#58; 0 hours 0 mins 9 secs \n   Error occurred at&#58; 04-02-2007, 00&#58;38&#58;19\n   Error description&#58; Error BASE/1132  Bound error&#58; array access\n   Args&#58;\n     &#91;   1&#93; = A   &#123; &#46;&#46;&#46; &#125;\n     &#91;   2&#93; = N   6\n\nStack Calls\n===========\n   Called from&#58; folder&#46;PRG =&gt; TFOLDER&#58;SETOPTION&#40;0&#41;\n   Called from&#58; folder&#46;PRG =&gt; TFOLDER&#58;LBUTTONDOWN&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TFOLDER&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3165&#41;\n   Called from&#58;  =&gt; DIALOGBOX&#40;0&#41;\n   Called from&#58; dialog&#46;prg =&gt; TDIALOG&#58;ACTIVATE&#40;274&#41;\n   Called from&#58; pcustomer&#46;prg =&gt; INS_SOCI&#40;1177&#41;\n   Called from&#58; pcustomer&#46;prg =&gt; &#40;b&#41;SOCI&#40;484&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;EVALACTION&#40;1722&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;LBUTTONUP&#40;1423&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;HANDLEEVENT&#40;900&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3165&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;ACTIVATE&#40;883&#41;\n   Called from&#58; main&#46;prg =&gt; TAPPLICATION&#58;ACTIVATE&#40;164&#41;\n   Called from&#58; main&#46;prg =&gt; MAIN&#40;42&#41;[/code:16uvv96v]','',0,'AIA=','16uvv96v',1,0,'',49,0,0),(26141,5814,3,49,0,'62.13.172.78',1170546512,1,0,1,1,1,1,'','','this is the solution \n\n\n[code:3tmnfz71]\n\n REDEFINE COMBOBOX oDat&#91;24&#93; VAR aDat&#91;24&#93; ITEMS aProfessione ID  300 OF oFld&#58;aDialogs&#91;2&#93;;\n                                    BITMAPS &#123; &quot;Docente&quot;,&quot;ALUNNO&quot;,&quot;Cartella&quot;,&quot;Genitore&quot;,&quot;Esterno&quot; &#125; ;\n                                      ON CHANGE&#40;                       iif&#40;oDat&#91;24&#93;&#58;nat=1, oFld&#58;aEnable &#58;= &#123; &#46;t&#46;, &#46;t&#46;, &#46;f&#46;, &#46;t&#46;, &#46;t&#46;, &#46;T&#46;&#125;,&#41; ,;\n                                                                       iif&#40;oDat&#91;24&#93;&#58;nat=2, oFld&#58;aEnable &#58;= &#123; &#46;t&#46;, &#46;t&#46;, &#46;f&#46;, &#46;t&#46;, &#46;t&#46;, &#46;T&#46;&#125;,&#41; ,;\n                                                                       iif&#40;oDat&#91;24&#93;&#58;nat=3, oFld&#58;aEnable &#58;= &#123; &#46;t&#46;, &#46;t&#46;, &#46;t&#46;, &#46;t&#46;, &#46;t&#46;, &#46;T&#46;&#125;,&#41; ,;\n                                                                       iif&#40;oDat&#91;24&#93;&#58;nat=4, oFld&#58;aEnable &#58;= &#123; &#46;t&#46;, &#46;t&#46;, &#46;f&#46;, &#46;t&#46;, &#46;t&#46;, &#46;T&#46;&#125;,&#41; ,;\n                                                                       iif&#40;oDat&#91;24&#93;&#58;nat=5, oFld&#58;aEnable &#58;= &#123; &#46;t&#46;, &#46;t&#46;, &#46;f&#46;, &#46;t&#46;, &#46;t&#46;, &#46;T&#46;&#125;,&#41; ,;\n                                                                       &#41;[/code:3tmnfz71]','',0,'AIA=','3tmnfz71',1,0,'',49,0,0),(26142,5861,3,49,0,'62.13.172.78',1170548193,1,0,1,1,1,1,'','method print of xbrowse','ACTION   oApp():oGrid:Print( .t., , \"Elenco Soci\" )\n\nit make error \n\n[code:3cyq3tvl]\nApplication\n===========\n   Path and name&#58; C&#58;\\work\\errori\\fsdi2006\\prg\\fsdi2006&#46;Exe &#40;32 bits&#41;\n   Size&#58; 2,059,776 bytes\n   Time from start&#58; 0 hours 0 mins 2 secs \n   Error occurred at&#58; 04-02-2007, 01&#58;13&#58;23\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; EVAL\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58;  =&gt; EVAL&#40;0&#41;\n   Called from&#58; RCOLUMN&#46;PRG =&gt; TRCOLUMN&#58;NEW&#40;0&#41;\n   Called from&#58; XBrowse&#46;prg =&gt; TXBROWSE&#58;PRINT&#40;3525&#41;\n   Called from&#58; pcustomer&#46;prg =&gt; &#40;b&#41;SOCI&#40;505&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;EVALACTION&#40;1722&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;LBUTTONUP&#40;1423&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; VMenu&#46;prg =&gt; TVMENU&#58;HANDLEEVENT&#40;900&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3165&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;ACTIVATE&#40;883&#41;\n   Called from&#58; main&#46;prg =&gt; TAPPLICATION&#58;ACTIVATE&#40;164&#41;\n   Called from&#58; main&#46;prg =&gt; MAIN&#40;42&#41;\n[/code:3cyq3tvl]\n\n\n\nI add   a  method print into Xbrowse  but it not run ok \n \n[code:3cyq3tvl]\n\n\nMETHOD Print&#40; lPreview, lModal, cTitle &#41; CLASS TXBrowse\n\n   local oPrn, oRep, oCol\n   local aCols\n   local xValue\n   local cAlias\n   local nFor, nLines, nLine, nBookMark\n\n   DEFAULT lPreview &#58;= &#46;t&#46;,;\n           lModal   &#58;= &#46;f&#46;,;\n           cTitle   &#58;= &#58;&#58;oWnd&#58;cCaption\n\n   If Empty&#40; cTitle &#41;\n      cTitle &#58;= &quot;No Title&quot;\n   Endif\n\n   If lPreview\n      If lModal\n         PRINTER oPrn NAME cTitle PREVIEW MODAL\n      else\n         PRINTER oPrn NAME cTitle PREVIEW\n      Endif\n   else\n      PRINTER oPrn NAME cTitle\n   Endif\n\n   If oPrn&#58;hDC == 0\n      return &#46;f&#46;\n   Endif\n\n   If !Empty&#40; &#58;&#58;cAlias &#41;\n      cAlias &#58;= DbSelectArea&#40; &#58;&#58;cAlias &#41;\n   Endif\n\n   REPORT oRep TITLE &quot;*** &quot; + cTitle + &quot; ***&quot;, &quot;&quot; ;\n      HEADER DToC&#40; Date&#40;&#41; &#41; + &quot;-&quot; + Left&#40;Time&#40;&#41;, 5&#41;, &quot;&quot; RIGHT ;\n      FOOTER &quot;#&#58; &quot; + Str&#40; oRep&#58;nPage, 3 &#41; CENTER;\n      TO DEVICE oPrn\n\n   aCols &#58;= &#58;&#58;GetVisibleCols&#40;&#41;\n\n   for nFor &#58;= 1 to len&#40; aCols &#41;\n      If !aCols&#91;nFor&#93;&#58;lHide\n         oCol &#58;= oRep&#58;AddColumn&#40; TrColumn&#40;&#41;&#58;New&#40; &#123; FInfo1&#40;aCols, nFor&#41; &#125; ,,;\n                                &#123; FInfo2&#40;aCols, nFor&#41; &#125;,,,,,,,,,, oRep &#41; &#41;\n         xValue &#58;= Eval&#40;aCols&#91;nFor&#93;&#58;bStrData&#41;\n         nLines &#58;= MlCount&#40;xValue, 250&#41;\n         oCol&#58;nPad &#58;= aCols&#91;nFor&#93;&#58;nDataStrAlign + 1\n         If nLines &gt; 1\n            oCol&#58;aData    &#58;= Array&#40;nLines&#41;\n            oCol&#58;aPicture &#58;= Afill&#40;Array&#40;nLines&#41;, &quot;&quot;&#41;\n            For nLine &#58;= 1 to nLines\n               oCol&#58;aData&#91;nLine&#93; &#58;= FInfo3&#40;aCols, nFor, nLine&#41;\n            Next\n         Endif\n      Endif\n   next\n\n   ENDREPORT\n\n   nBookMark &#58;= Eval&#40; &#58;&#58;bBookMark &#41;\n\n   If &#58;&#58;aArrayData != nil &#46;and&#46; len&#40; &#58;&#58;aArrayData &#41; &gt; 0\n      &#58;&#58;nArrayAt &#58;= 1\n      oRep&#58;bSkip  &#58;= &#123; || &#58;&#58;nArrayAt++ &#125;\n      ACTIVATE REPORT oRep WHILE &#58;&#58;nArrayAt &lt;= len&#40; &#58;&#58;aArrayData &#41; ON END &#58;&#58;nArrayAt &#58;= 1\n   else\n      ACTIVATE REPORT oRep\n   Endif\n\n   Eval&#40;&#58;&#58;bBookMark, nBookMark &#41;\n\n   If !Empty&#40; cAlias &#41;\n      DbSelectArea&#40; cAlias &#41;\n   Endif\n\nreturn &#46;t&#46;\n[/code:3cyq3tvl]','',0,'AIA=','3cyq3tvl',1,0,'',49,0,0),(26143,5862,6,913,0,'189.136.169.124',1170550673,1,0,1,1,1,1,'','Para Antonio Linares','Hola Antonio\n\nSabes no eh podido encontrar como refrescar el xbrowse ya lei y lei y lei en todos lados y no encuentro nada, nadie me a contestado, ya lei el manual y lo que entiendo  es que es similar a refrescar el listbox pero no me funciona <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->   me podrias ayudar con un mini ejemplo porfis,  yo pongo el refresh() despues de generar  datos en la base de datos a si lo tenia con el listbox o se pone diferente con xbrowse <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->\n\nAPPEND BLANK\n\nAUTOS-&gt;SUM_ASEGU  := cSUM_ASEGU\nAUTOS-&gt;SUM_ASEG   := cSUM_ASEG\nAUTOS-&gt;SUMA_ASEG_ := cSUMA_ASEG_\nAUTOS-&gt;SUMA_ASEGU := cSUME_ASEGU\nAUTOS-&gt;RCV_CATAST := cRCV_CATAST\nAUTOS-&gt;AGENTEO    := cAgente\nAUTOS-&gt;AGENTE     := cPromo\n\nAUTOS-&gt;Descuentos :=cDescuentos\nAUTOS-&gt;P_mensual  :=cDescuentos+cDescuentos\n\nAUTOS-&gt;PRIMA_NETA := cPRIMA_NETA\nAUTOS-&gt;IMPORTE_TO := cIMPORTE_TO\n\nAUTOS-&gt;Recibo1    := rRecibo1\nAUTOS-&gt;Recibo2    := rRecibo2\n\noBrw:upstable()\noBrw:refresh()\n\n------------------------------------- y pasa esto\nApplication\n===========\n   \n   Size: 2,301,952 bytes\n   Time from start: 0 hours 0 mins 19 secs \n   Error occurred at: 03/02/2007, 19:13:29\n   Error description: Error BASE/1004  Message not found: TXBROWSE:UPSTABLE\n\nStack Calls\n===========\n   Called from __ERRRT_SBASE(0)\n   Called from HBOBJECT:ERROR(179)\n   Called from __EVAL(105)\n   Called from HBOBJECT:MSGNOTFOUND(0)\n   Called from TXBROWSE:UPSTABLE(169)\n   Called from GUARDAR(1618)\n   Called from AUTO_C(1438)\n   Called from AUTO_B(1366)\n   Called from ALTA(1227)\n   Called from ALTASINO(881)\n   Called from (b)MAIN2(530)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from MAIN2(678)\n   Called from (b)MAIN(207)\n   Called from (b)ADDITEM(0)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(878)\n   Called from MAIN(265)\n\n\n\nGracias\n\nAida','',0,'AIA=','1fi5yuxz',1,0,'',913,0,0),(26144,5863,6,66,0,'200.122.73.102',1170557909,1,0,1,0,1,0,'','Reporte que contiene ? , ??  a txt  se puede ?','Estimados colegas \n\n\nComo puedo enviar un reporte que contiene ? ?? para imprimir las lineas  a txt  desde fivewin \n\nDesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','7zcxbzb1',1,0,'',66,0,0),(26145,5862,6,2,0,'87.218.146.117',1170580612,1,0,1,1,1,1,'','','No llames a oBrw:upstable() \n\nSolo a oBrw:Refresh()','',0,'AIA=','2yvja3j0',1,0,'',2,0,0),(26146,5860,6,63,0,'88.11.31.105',1170588974,1,0,1,1,1,0,'','','Antonio:\nLa última versión de FWH ¿admite ya hacer diálogos transparentes (o sea, con brush Null) en Vista?   Recuerda que ésa era una incompatibilidad detectada hace un par de semanas.\nSaludos\nRafael','',0,'AIA=','5rpnpyq2',1,0,'',63,0,0),(26147,5864,6,838,0,'80.59.225.15',1170589301,1,0,1,1,1,0,'','Pack y progress','Hola amigos:\nPara hacer una organizacion de ficheros vengo haciendo lo siguiente:\n\nPrimero pack:\n***************\n    if lalb=.T.\n     dbusearea(.f.,,Publicas:cUnidad+Publicas:cSubd+\"\\Albaran\",,.f.)     // Exclusiva\n      if !neterr()\n       pack\n       treg+=(albaran-&gt;(reccount())*10)\n      endif\n******************\nDespués index\n****************\nindex on _field-&gt;Albaran tag \"Albaran\" ;\n                eval(oMeter1:Set(recno()),oMeter2:Set(++parci),SysRefresh())\noMeter1:nTotal =reccount()\notext:SetText(otextos[6])\n*****************\n\nY sobre éste tema tengo algunas preguntas\n\n1º Pack se me está haciendo cada vez más tedioso al crecer las bases de datos (en una de 500.000 registros te puedes echar la siesta). Hay algo que cumpla ésta función y que no tarde tanto ?\n\n2º Como se ve, al hacer índices puedo utilizar o bien progress, o bien msgmeter, ya que acepta la condición eval, pero utilizando pack, como puedo saber por dónde vamos, ya que como tarda tanto, a veces la gente apaga la máquina creyendo que se ha colgado.\n\nSaludos\n\nJose Luis','',0,'','1bzx18v8',1,0,'',838,0,0),(26148,5860,6,2,0,'87.218.146.117',1170590665,1,0,1,1,1,1,'','','Rafael,\n\nDe momento no, aún no hemos localizado lo que ha podido cambiar en Vista respecto al uso de brushes null','',0,'','35632blc',1,0,'',2,0,0),(26149,5865,2,66,0,'200.122.73.102',1170591429,1,0,1,0,1,0,'','Reporte que contiene ? ?? a txt se puede','Estimados colegas \n\n\nComo puedo enviar un reporte que contiene ? ?? para imprimir las lineas a txt desde fivewin \n\nDesde ya muchisimas gracias \nFabian \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','n2gojddj',1,0,'',66,0,0),(26150,5866,2,66,0,'200.122.73.102',1170595890,1,0,1,0,1,0,'','Ayuda Como puedo emular set pinter to arch','Estimados Colegas\n\nEstoy migrando un aplicacion clipper y tiene un si fin de reportes a \narchivos txt  Como puedo emular el set printer to archivo desde fivewin\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','cq9v611x',1,0,'',66,0,0),(26151,5867,6,66,0,'200.122.73.102',1170596116,1,0,1,0,1,0,'','Como emular el set print to arch','Estimados Colegas\n\nEstoy migrando un aplicacion clipper y tiene un sin fin de reportes a \narchivos txt  Como puedo emular el set printer to archivo desde fivewin\n\nUNCTION FAB\nset alternate  to fab.txt\nset alternate on\n      \n      set print to FAB.txt\n       SET PRINT ON\n      USE CLIENTES\n      GO 1\n      ? CLIENTES-&gt;NUMCLI\n       SET PRINT OFF\n      set printer to\n\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','2t0a0lsg',1,0,'',66,0,0),(26152,5854,3,154,0,'151.81.7.22',1170596586,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1pq42ng3]Please use FWH source\\classes\\treeview.prg instead \nof yours and tray it again, thanks[/quote:1pq42ng3]\nAntonio,\ndo not work!  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nI test with standard library and do not Work!!!  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  \nDo not work with the FWH TTreeView and with FWH fivehx.lib!!!  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->\nI tested another solution:\nThe new fivehx.lib (with my changed) and the previous fivehc.lib with, in the source, the declaration of not present new functions; now is better but is different from the previous version for the background color. Now is gray normally is white!  \nWhich thing I can make?','',0,'gA==','1pq42ng3',1,0,'',154,0,0),(26153,5854,3,154,0,'151.81.7.22',1170597365,1,0,1,1,1,1,'','','Another thing: if I use the normal lib (my fivehx) and i declare this functions in the source:\n[code:3i7a95ly]FUNCTION tbaddmenu&#40;&#41;; RETURN nil\nFUNCTION TBGETRECT &#40;&#41;; RETURN NIL\nFUNCTION TBSETTEXT&#40;&#41;; RETURN NIL\nFUNCTION TVSETCOLOR&#40;&#41;; RETURN NIL\nFUNCTION TVSETTEXTIMAGE&#40;&#41;; RETURN NIL[/code:3i7a95ly]\nThe result is this: \n\n[img:3i7a95ly]http&#58;//img7&#46;imagevenue&#46;com/loc176/th_97391_Immagine4_122_176lo&#46;JPG[/img:3i7a95ly]','',0,'CIA=','3i7a95ly',1,0,'',154,0,0),(26154,5864,6,53,0,'189.139.14.132',1170597472,1,0,1,1,1,1,'','','Jose Luis:\n\nNo se si exista alguna función similar al DBPACK()  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> , peroooo, supongo que en tu DBF hay muchos registros marcados como DEL y por eso te ves en la necesidad de utilizar el DBPACK() y reindexarla.\n\nTal vez una alternativa es reciclar los registros marcados como DEL ??\nde esta forma minimizas la necesidad de usar el DBPACK().\n\nEn fin es solo eso, una alternativa.\n\nSaludos, Armando','',0,'CIA=','3n9ev9uj',1,0,'',53,0,0),(26155,5868,3,705,0,'61.2.4.188',1170598937,1,0,1,1,1,0,'','Blinking Say info','Hi everybody,\n\nMy Problem is :\n\nIn Edit mode while I skip record one by one, say infos (like, row sum or display info from other database) are blinking. I am not able to stop blinking.\n\nI used, \n     \n    oSay:Refresh()\n\nprior to jump next record. But I do not get expected result.\n\nI also tried as,\n   \n    @ x, y Say oSay Prompt \"\" of oDlg ...\n\nprior to display next record info. But I do not get expected result.\n\nHow can I stop blinking ?\n\nWith Regards\nArindam','',0,'CIA=','1wkiyd1r',1,0,'',705,0,0),(26156,5867,6,397,0,'201.13.56.217',1170604950,1,0,1,0,1,1,'','','Amigo\n\nPesquisa neste forum sobre DOSPRINT','',0,'CIA=','wv1mxufi',1,0,'',397,0,0),(26157,5863,6,397,0,'201.13.56.217',1170605030,1,0,1,0,1,1,'','','Amigo \n\nPesquisa neste forum sobre REP23.PRG e REP23a.PRG','',0,'CIA=','ocxmxl99',1,0,'',397,0,0),(26158,5854,3,303,0,'72.199.41.171',1170606801,1,0,1,1,1,0,'','','Ugo,\n\nYou are seeing why it is not a good idea to change FW source. If you need to change the behavior of the source it is much better to subclass the original class. This way you automatically inherit all the changes made to the FW class when you upgrade to a new version.\n\nAlso, I would NEVER change one of the original FW lib files. If you feel you must change one of the FW PRGs then just link the OBJ in before the original FW LIBs.\n\nWhen you are in the situation that you are now, the way to find out which changed FW prg is causing the problem is to remove the changed PRGs one at a time from the link script until the problem goes away. Then the last one you removed is the problem PRG.\n\nIf you have put your changed PRGs into the FW LIBs, then rewrite your link script to use the original FW libs and your modified OBJs. Then follow the procedure above.\n\nOne other point. If you find a legitimate problem with one of the FW language PRGs then perhaps you should bring it up on the newsgroup. If there is a general agreement that it either needs fixing or it is a good enhancement, often Antonio will add it to the next release.\n\nJames','',0,'CIA=','2lie3dhi',1,0,'',303,0,0),(26159,5868,3,303,0,'72.199.41.171',1170609553,1,0,1,1,1,0,'','','Arindam,\n\nI\'m not sure I understand the problem--it is going to have to erase and redraw the info which is going to cause a blink. If there is a lag time, then perhaps you are doing a lot of background processing between each record movement?\n\nCan you provide a small self contained example that shows the problem?\n\nJames','',0,'CIA=','1l6nufj1',1,0,'',303,0,0),(26160,5852,6,519,0,'88.14.200.214',1170612048,1,0,1,1,1,0,'','','El fallo no esta en la rebar es del xbrowse, algun hdc o algo va mal, cambialo por un twbrowse y veras como te funciona perfecto.','',0,'CIA=','1r1fj3h9',1,0,'',519,0,0),(26161,5869,6,938,0,'80.103.117.20',1170613144,1,0,1,1,1,0,'','Error FiveODBC','Hola, tengo el programa de Nominaplus, cuando ejecuto una de sus aplicaciones me sale el siguiente error:\n\nFiveODBC Error message\nSQL Error\n[#335544665] class:HY000\nviolation of PRIMARY or UNIQUE KEY constraint \"UNQ_EMPRESA\" on table \"EMPRESA\"\nOn procedure: EXECUTE line: 422\n\nSi alguien me puede contestar a que es debido esto y como lo puedo arreglar, se lo agradeceria.\nNo se si este es el Foro adecuado, pero es que no se donde preguntar.\nGracias','',0,'','3eb51l24',1,0,'',938,0,0),(26162,5869,6,2,0,'87.218.146.117',1170613272,1,0,1,1,1,1,'','','Puesto que dicho programa es un EXE que no puedes modificar, lo idóneo es que preguntes al soporte técnico del fabricante','',0,'','1yyffk3y',1,0,'',2,0,0),(26163,5854,3,2,0,'87.218.146.117',1170613536,1,0,1,1,1,1,'','','Ugo,\n\nWe email you the libraries that we are using. You should get the same EXE as we get','',0,'','2tbt1v8z',1,0,'',2,0,0),(26164,5862,6,913,0,'189.136.169.124',1170614735,1,0,1,1,1,1,'','Gracias','ups solo era eso  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->   como doy lata perdon <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nGracias <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAida','',0,'','174mxaw5',1,0,'',913,0,0),(26165,5870,6,53,0,'189.139.14.132',1170625771,1,0,1,1,1,1,'','Dos Browses en un dialogo','Saludos al foro:\n\nAmigos, estoy iniciandome con la clase nativa TXBrowse y me enfrento al siguiente problema, en el mismo dialogo tengo dos browses y cada uno de ellos debe mostrar información de diferentes DBF peroooo en ambos browses me esta mostrando la información de la última DBF abierta, como puedo especificar la DBF para cada uno de los Browses ???\n\nDefino las columna de la siguiente manera\n\naCol[ 1] := oLbx:AddCol()\naCol[ 1]:bStrData  := { || [b:35dolgey](cDePaso)-&gt;DET_PRO[/b:35dolgey]}\naCol[ 1]:cHeader   := \"Producto\"\n\naCol[4] := oLby:AddCol()\naCol[4]:bStrData  := { || [b:35dolgey](cProducto)-&gt;PRO_PRO[/b:35dolgey]}\naCol[4]:cHeader   := \"Producto\"\n\n\nMuchas gracias, Armando','',0,'QA==','35dolgey',1,0,'',53,0,0),(26166,5854,3,154,0,'151.81.0.161',1170629443,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1s5fjefd]You are seeing why it is not a good idea to change FW source. If you need to change the behavior of the source it is much better to subclass the original class. This way you automatically inherit all the changes made to the FW class when you upgrade to a new version.\n\nAlso, I would NEVER change one of the original FW lib files. If you feel you must change one of the FW PRGs then just link the OBJ in before the original FW LIBs.\n\nWhen you are in the situation that you are now, the way to find out which changed FW prg is causing the problem is to remove the changed PRGs one at a time from the link script until the problem goes away. Then the last one you removed is the problem PRG.\n\nIf you have put your changed PRGs into the FW LIBs, then rewrite your link script to use the original FW libs and your modified OBJs. Then follow the procedure above.[/quote:1s5fjefd]\n\nDear James,\nyou have reason!!  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nBut my modifications is very little!\n\n[quote=&quot;James Bott&quot;:1s5fjefd]One other point. If you find a legitimate problem with one of the FW language PRGs then perhaps you should bring it up on the newsgroup. If there is a general agreement that it either needs fixing or it is a good enhancement, often Antonio will add it to the next release.[/quote:1s5fjefd]\n\nMy modifications are not due to the errors but for better use in my sources. \nNow are of public domain and I hope that Antonio inserts in the next version. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->     \n\nVery thanks for your post!','',0,'gA==','1s5fjefd',1,0,'',154,0,0),(26167,5854,3,154,0,'151.81.0.161',1170629462,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:245he5tk]We email you the libraries that we are using. You should get the same EXE as we get[/quote:245he5tk]\n\nAntonio,  \nthanks, but do not change nothing!  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->   \nI believe to have isolate the problem:  I think that the problem is in the RC file!  If I remove this line:  \n1 24 \"WindowsXP.manifest\"   \nwork correctly, but if I insert, do not work!  \n\nCan you confirm?','',0,'gA==','245he5tk',1,0,'',154,0,0),(26168,5871,3,154,0,'151.81.0.161',1170630470,1,0,1,1,1,1,'','NetSerialNumber()','NetSerialNumber() is present in TestNet.prg and not found for test.\nto what it serves? \nwhere I can find it?','',0,'gA==','f7p6sa1z',1,0,'',154,0,0),(26169,5870,6,138,0,'148.221.197.176',1170634683,1,0,1,1,1,1,'','','ponle el alias a cada browse:\n\noLbx:cAlias := cDePaso\noLby:cAlias := cProducto','',0,'gA==','1tl6y8u6',1,0,'',138,0,0),(26170,5872,3,49,0,'62.13.172.78',1170636655,1,0,1,1,1,1,'','Xbrowse error','when I Dblclick on a record the program go out !!!!\nand not create error.log\n try it please    <!-- w --><a class=\"postlink\" href=\"http://www.nonsolosport.net/test_xbrowse.zip\">www.nonsolosport.net/test_xbrowse.zip</a><!-- w -->\n\n\n\n---------------------','',0,'gA==','gp43ip11',1,0,'',49,0,0),(26171,5870,6,53,0,'189.139.14.132',1170637407,1,0,1,1,1,1,'','','René:\n\nComo siempre, sacando las papas del horno   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> , problema resuleto.\n\nGracias, Master','',0,'gA==','3mgrxxl3',1,0,'',53,0,0),(26172,5829,3,34,0,'68.4.154.81',1170652996,1,0,1,1,1,1,'','Vista - Dream or Nightmare','I guess we will get used to it.\n\nFirst, I was logged in as administrator.  Essentially the whole system began to degrade so I went back to ground zero.  Instead of an update, I told it to give me a clean install ... which was supposed to erase all the files.   Well, some of the files were erased, and some folders remained ... very strange ... so I\'m not sure what is \"good, bad, and ugly\" but I find that some software works, other software packages dont .... but when I did a brand new install of my package it seemed to go ok and initially it works .... but for how long I don\'t know.\n\nI think Vista will be a topic for much discussion as we see our clients buy new computers with this OS.','',0,'gA==','3oivvbow',1,0,'',34,0,0),(26173,5836,6,92,0,'80.33.133.32',1170660002,1,0,1,1,1,0,'','','Gracias.\n\nLo miro.\n\nCarlos G.','',0,'gA==','1stsfqbz',1,0,'',92,0,0),(26174,5854,3,2,0,'87.218.146.131',1170661786,1,0,1,1,1,1,'','','Ugo,\n\nYes, we have been able to reproduce the bug using 1 24 \"WindowsXP.manifest\" \n\nWe are working to fix it','',0,'gA==','1wtuloi6',1,0,'',2,0,0),(26175,5864,6,838,0,'80.34.222.112',1170662613,1,0,1,1,1,0,'','','Hola Armando\n\nA que te refieres reciclar?\n\nPor otra parte, ya que no hay otra forma mas que el pack, continúo con mi pregunta anterior, ¿Como puedo saber por el registro que va, para usar progress ya que no acepta eval?\n\nSaludos\n\nJose Luis','',0,'gA==','385wzftu',1,0,'',838,0,0),(26176,5873,7,720,0,'80.36.244.134',1170668869,1,0,1,1,1,0,'','Como poner en negrita un texto....','Hola a todos....\n\nQuisiera saber como puedo hacer para que me salga el tipo de letra en negrita... No se si me tengo que crear un tipo de fuente...\n\n\nobrw:nClrText := { || If( tabla_inventarios-&gt;enviado=.t., CLR_RED , CLR_BLACK ) }\n\n\nLo que quiero es que cuando la condición sea falsa el texto se ponga en rojo y en negrita tambien.....\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','hy2ls5ul',1,0,'',720,0,0),(26177,5874,2,542,0,'83.39.65.108',1170671056,1,0,1,1,1,0,'','Como puedo con oPrn:say() justificar a la derecha','Hola amigos:\n\nNecesito que las columnas de un reporte queden alineadas a la derecha ya que son numeros y el tipo de letra no es monoespaciada. La impresión la hago:\n\nPRINT\nPAGE\noPrn:say(col,row,texto,oFont)\n...\n...\nENDPAGE\nENDPRINT\n\nUn saludo\n\nCarlos','',0,'gA==','3oa7bwzj',1,0,'',542,0,0),(26178,5872,3,51,0,'80.122.88.242',1170673908,1,0,1,1,1,0,'','','oBrw:bChange  := { || if (lChange=.t.,( lChange=.f., RefreshCont(\"QUOTE\",cSocio,@lChange),oBrw:GoTop(),oBrw:refresh() ),  ) }\n\n\n\nstatic FUNCTION RefreshCont(cdbf,cSocio,lChange)\n    cKey:=cSocio\n\n    (cdbf)-&gt;(OrdScope(0,cKey))\n\n    (cdbf)-&gt;(OrdScope(1,cKey))\n sysrefresh()\nlChange:=.f.\nreturn NIL','',0,'gA==','2gchfh9y',1,0,'',51,0,0),(26179,5872,3,49,0,'81.208.83.233',1170674758,1,0,1,1,1,1,'','','Now I can see the records but then the program go out and it not make error.log','',0,'gA==','7dxsfgij',1,0,'',49,0,0),(26180,5875,6,898,0,'200.232.246.11',1170675134,1,0,1,1,1,0,'','Try .. Catch','Pessoal, fiz uma integração com o Excel, é para não ter que ficar sempre abrindo o objeto usando o CreateObject, estou dando um Try em GetActiveObject, caso não passar ele dava o CreateObject, até versões anteriores do Fwh, funcionava corretamente, a partir da 2.8, ele chama o GetActiveObject, só que ele nunca entra no Catch, ou seja, o oExcel acaba sendo um objeto mas não do Excel....\n\nsegue exemplo:\n\nTRY\n   oExcel := GetActiveObject( \"Excel.Application\" )\nCATCH\n   TRY\n      oExcel := CreateObject( \"Excel.Application\" )\n   CATCH\n      Mensagem( \"ERRO! MS-Excel nao encontrado. [\" + Ole2TxtError()+ \"]\" )\n      RETURN\n   END\nEND\n\noExcel:WorkBooks:Add()\n\n\n\nPs: Se alguem tiver sugestão, de uma maneira mais simples de fazer isso, eu agradeço...\n\n\nmuito obrigado a todos\n \n[]s','',0,'','2kvtetw6',1,0,'',898,0,0),(26181,5871,3,6,0,'82.55.208.107',1170675439,1,0,1,1,1,1,'','Re: NetSerialNumber()','[quote=&quot;Ugo&quot;:3r5eiz29]NetSerialNumber() is present in TestNet.prg and not found for test.\nto what it serves? \nwhere I can find it?[/quote:3r5eiz29]\n\nIt is documented and you can find it in netapi32.prg.\n\nEMG','',0,'gA==','3r5eiz29',1,0,'',6,0,0),(26182,5872,3,49,0,'81.208.83.233',1170676369,1,0,1,1,1,1,'','','perhaps there is an error on this functions \n\n  oBrw:bGoTop   :={||  GoToTop(Alias(),csocio)}\n  oBrw:bGoBottom:={||  GoToBot(Alias(),csocio)}\n   oBrw:bSkip    :={|n| MovePtr(Alias(),csocio,n)}   &lt;-------\n\n  I must use xbrowse but with wbrowse of hernan it run ok','',0,'gA==','3ee8wg6e',1,0,'',49,0,0),(26183,5876,6,400,0,'200.205.49.10',1170676469,1,0,1,1,1,1,'','Themas do Windows ?','Bom Dia,\n\nÉ possivel colocar Themas ou Skin em um Sistema em FwH diferente do Thema do Windows em uso ?\n\nTipo:\nUsar o Win98 e rodar nele um Sistema em FwH com o Thema ou Skin do XP ?\n\n@braços Ale','',0,'gA==','2a9rihen',1,0,'',400,0,0),(26184,5877,20,49,0,'81.208.83.233',1170679590,1,0,1,1,1,1,'','per EMG','ho un problema con una funzione che in wbrowse funziona ma in xbrowse no\nil test l\'ho pubblicato sul forum inglese\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5872\">http://fivetechsoft.com/forums/viewtopic.php?t=5872</a><!-- m -->\ncmq\nil problema è in questa funzione conla freccia \n\noBrw:bGoTop :={|| GoToTop(Alias(),csocio)} \noBrw:bGoBottom:={|| GoToBot(Alias(),csocio)} \noBrw:bSkip :={|n| MovePtr(Alias(),csocio,n)} &lt;------- \n\nIn sostanza : da una finestra dove c\'è un xbrowse mi vado a prendere un campo numcli che è carattere 4 cifre esempio \"0001\" e apro un archivio quote indicizzandolo sul campo quote-&gt;numcli quindi usando ordscope devo far in modo di visualizzare solo i record relativi al numcli 0001 e operare su di essi ( inserimento e modifica e cancellazione e stampa)\n\npare che c\'è un erore sula funzione moveprt ma non riesco a capire qual\'è dato che se uso la wbrowse  questo non accade ma io volevo usare la xbrowse per questioni di grafica.\n\nLa cosa piu\' strana e che quando clicco su un  record ( nel file ce ne sono tre/4 ) il programmino esce fuori senza restituirmi un file di errore\nscompare (puff!!) improvvisamente!!!\n\nVedi se riesci a far qualcosa \nGrazie','',0,'gA==','23uctz1p',1,0,'',49,0,0),(26185,5876,6,15,0,'211.74.227.252',1170680252,1,0,1,1,1,0,'','','Hello\n\nyou can try Activex\'s Skin 3rd party.\n\nRichard','',0,'gA==','p58qliis',1,0,'',15,0,0),(26186,5871,3,303,0,'72.199.41.171',1170684117,1,0,1,1,1,0,'','','Ugo,\n\nThe source for NetSerialNumber() was just posted on this newsgroup a few days ago. Do a search for it.\n\nJames','',0,'gA==','3f8vbt5u',1,0,'',303,0,0),(26187,5872,3,51,0,'80.122.88.242',1170687319,1,0,1,1,1,0,'','','Can you test with my exe\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/silvio/test.zip\">www.atzwanger.com/silvio/test.zip</a><!-- w -->\n\nOtto','',0,'gA==','3nrdbrbz',1,0,'',51,0,0),(26188,5877,20,6,0,'87.20.217.28',1170689387,1,0,1,1,1,1,'','Re: per EMG','Ho visto. Non ha senso quello che stai cercando di fare e cioè cambiare lo scope man mano che ti sposti nel browse. Non ti potrà mai funzionare in quel modo ed è ovvio che vada in loop.\n\nDovresti mettere una GET da qualche parte dove l\'utente scriverà il codice da cercare e poi un pulsante Cerca che attiva lo scope e rinfresca il browse.\n\nVedrai che così funziona.\n\nEMG','',0,'gA==','12d8hiz3',1,0,'',6,0,0),(26189,5877,20,49,0,'62.13.172.78',1170690856,1,0,1,1,1,1,'','','grazie.\nma se togo il bskip fa errore lo stesso \n\ncmq secondo te lo posso mettere con l\'opzione bkeydown ? cioè\n oBrw:bKeyDown  :={|nKey| Val_Key(nKey,olbx,oDlgd)}\n\ne in Val_Key(nKey,olbx,oDlgd)\n\nSTAT FUNC Val_Key(nKey,olbx,oDlgd)\n   DO CASE\n      CASE nKey==VK_INSERT \n         KeyToggle(VK_INSERT)\n         Sol_Mant(.T.,oDlgd,lbx)\n      CASE nKey==VK_RETURN \n         Sol_Mant(.F.,oDlgd,olbx)\n      CASE nKey==VK_DELETE \n         Bor_Mant(olbx)\n      CASE nKey==VK_ESCAPE\n         oDlgd:End()\n   ENDCASE\nRETURN (NIL)','',0,'gA==','3dvvuf9s',1,0,'',49,0,0),(26190,5877,20,6,0,'87.20.217.28',1170691157,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1aom2hy7]grazie.\nma se togo il bskip fa errore lo stesso[/quote:1aom2hy7]\n\nIl problema è il bChange non il bSkip.\n\n[quote=&quot;Silvio&quot;:1aom2hy7]cmq secondo te lo posso mettere con l\'opzione bkeydown ?[/quote:1aom2hy7]\n\nPenso di sì. L\'importante è che non crei un loop. Nel caso del bChange creavi un loop in quanto nel bChange stesso andavi a spostare il record e questo faceva scattare nuovamente bChange e così via.\n\nEMG','',0,'gA==','1aom2hy7',1,0,'',6,0,0),(26191,5878,7,400,0,'200.205.49.10',1170693224,1,0,1,1,1,1,'','Sincronizar Emulador ?','Boa tarde,\n\nComo eu sincronizo o Emulador do FwPPC com o PC ?\n\n@braços Ale','',0,'gA==','sekxxpbo',1,0,'',400,0,0),(26192,5874,2,138,0,'148.221.197.221',1170693551,1,0,1,1,1,1,'','','Un consejo:\n\nNo utilices oPrn:Say(), utiliza mejor oPrn:CmSay() porque enel primer caso, las coordenadas estan en puntos de la imprsora, y cuando cambies el reporte de impresora es altamente probable que el mismo reporte se vea distinto, por la resolucion.\n\nLa solucion a tu problema:\n\nEn el codigo fuente de la clase printer esta la sintaxis:\n\nSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )\n\nEl ultimo parametro (nPad) te da la alineacion 0 = Izquierda, 1 = Centro, 2= Derecha','',0,'gA==','2hba91w4',1,0,'',138,0,0),(26193,5864,6,138,0,'148.221.197.221',1170693996,1,0,1,1,1,1,'','','No es posible, el proceso de Pack es un proceso ciego.\n\nPack no tiene retroalimentacion para saber en que registro estas trabajando porque no realiza un DO WHILE ! EOF() como el proceso de indexacion.\n\nInternamente la indexacion realiza un \"barrido\" de la base de datos del primer registro al ultimo, evaluando la llave y generando el NTX o CDX correspondiente, por eso es posible utilizar un EVAL() para \"interceptar\" el proceso de indexacion.\n\nPero Pack no lo puede hacer, el reciclaje de campos borrados lo hace \"ciego\" es decir, no puedes inteceptar el proceso de \"pack\"\n\nLo que puedes hacer, es copiar lo datos a una base de datos temporal, evitando los registros borrados (IF DELETED()) uno a uno, luego borrar DBF orignal, renombrar el temporal y reindexar sobre el temporal renombrado.','',0,'gA==','pz49c62y',1,0,'',138,0,0),(26194,5878,7,2,0,'87.218.146.131',1170697383,1,0,1,1,1,1,'','','Ale,\n\nTe refieres a compartir una carpeta del PC para que sea accesible desde el emulador ? \n\nPuedes hacerlo desde el menu del emulador, ó usando este parámetro al arrancar el emulador: \n\n..\\deviceemulator ppc_2003_se_wwe_armv4.bin /skin Pocketpc_2003_skin.xml /memsize 128 /sharedfolder c:\\test_pocket\n\nLa carpeta c:\\test_pocket será la carpeta \"SD card\" en el emulador','',0,'gA==','1oemjn5k',1,0,'',2,0,0),(26195,5858,2,2,0,'87.218.146.131',1170698207,1,0,1,1,1,1,'','','Revisa samples\\TestUZip.prg para que veas un ejemplo de cómo se usa UnZipFile()','',0,'gA==','1xbxy9p1',1,0,'',2,0,0),(26196,5852,6,43,0,'189.128.17.86',1170700400,1,0,1,1,1,0,'','','Ok, tal vez tengas razon, Frafive\n\nPero con solo poner una sola ToolBar en la ReBar, funciona perfectamente.\n\nSeguire buscando, gracias a Todos por su ayuda, checare lo que me dice Antonio y ver si funciona.\n\nSaludos.\nMarco A. Delgado.','',0,'gA==','37ddille',1,0,'',43,0,0),(26197,5864,6,53,0,'189.139.9.239',1170700834,1,0,1,1,1,1,'','','JoseLuis:\n\nLa idea de reciclar es re usar los registros marcados como DEL para sobre ellos salvar los datos de un nuevo registro, me explico ?\n\nEsto es de gran ayuda cuando se manejan DBFs nuy grandes y sobre todo cuando hay muchas altas y bajas de registros pues te evita o al menos te minimiza el uso del DBPACK().\n\nSi es de interés te puedo dar mayores detalles de esta \"técnica\" para el reciclado de registros.\n\nSaludos, Armando','',0,'gA==','2r2f21o8',1,0,'',53,0,0),(26198,5879,6,53,0,'189.139.9.239',1170701344,1,0,1,1,1,1,'','LDBLCLICK sobre TXBrowse','Amigos:\n\nSigo con dudas en la TXBrowse.\n\nUsando la clase TXBrowse nativa de FWH, ¿ cual es el código equivalente a \n\nREDEFINE LISTBOX oLbx FIELDS bla bla bla,;\nETC ETC ID 200 OF oDlg [b:qbgrlejs]ON DBLCLICK Imprimir()[/b:qbgrlejs]\nme interesa sobre todo el DBLCLICK que se usa con la clase TWBrowse del Master Hernán.\n\nSaludos y gracias por el apoyo, Armando','',0,'QA==','qbgrlejs',1,0,'',53,0,0),(26199,5879,6,228,0,'201.245.222.86',1170704876,1,0,1,1,1,1,'','Amigo....','Amigo, creo que esto es lo que necesitas\n\n[code:2sps806d]\noBrw&#58;blDblClick          &#58;= &#123;|| If&#40; &#40;AllTrim&#40;tUsuario&#41; = &quot;Admon&#46;Rec&quot; &#46;OR&#46; AllTrim&#40;tUsuario&#41; = &quot;Supervisor&quot;&#41;, NuevaRec&#40; oWndPrinc, &#46;F&#46; &#41;, &#41; &#125;\noBrw&#58;bKeyDown            &#58;= &#123; || pTerZon&#40;&#41; &#125;\n\n[/code:2sps806d]\n\nEspero te sirva','',0,'AIA=','2sps806d',1,0,'',228,0,0),(26200,5841,6,774,0,'200.72.65.90',1170706242,1,0,1,1,1,1,'','','Antonio. cuando dices recompila te refieres a generar nuevamente la LIB..\no recompilar con verce,, \n\ncomo incluyo el Nº de linea en la compilacion \n\nGRACIAS\n\nPd. disculpa lo tedioso','',0,'AIA=','367fghd1',1,0,'',774,0,0),(26201,5879,6,53,0,'189.139.9.239',1170706488,1,0,1,1,1,1,'','','Leandro:\n\nMuchas gracias, precisamente eso es lo que buscaba, nuvamente muchas gracias.\n\nUna vez más, el bien triunfa sobre el mal  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos, Armando\n\nPD, por cierto te he enviado varios correos de respuesta a tu pregunta sobre la marca de agua en EasyReport pero no he tenido tu respuesta, todo bien ?','',0,'AIA=','1az9thg6',1,0,'',53,0,0),(26202,5871,3,397,0,'201.26.12.237',1170708446,1,0,1,0,1,1,'','','See here\n\n[url=http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5826:351t895t]URGENT - Serial number over network[/url:351t895t]','',0,'EA==','351t895t',1,0,'',397,0,0),(26203,5853,2,10,0,'213.231.109.56',1170709047,1,0,1,1,1,0,'','','Buenas:\nAunque sigo en el viejo Clipper, he visto un help de harbour en español en la siguiente dirección:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/maisdicas1.asp\">http://www.fivewin.com.br/maisdicas1.asp</a><!-- m -->\nEspero te aporte algo.\nSaludos.','',0,'EA==','3povt93z',1,0,'',10,0,0),(26204,5841,6,2,0,'87.218.146.131',1170712915,1,0,1,1,1,1,'','','A generar nuevamente la lib. \n\nPara incluir los números de línea NO uses /L al compilar','',0,'EA==','2csru5zl',1,0,'',2,0,0),(26205,5340,2,635,0,'190.73.223.47',1170723659,1,0,1,1,1,0,'','Re: De nuevo con el bitmap','hola daniel\nPrimero mandas el Bitmap para el objeto tprinter y luego mandas el Say.','',0,'EA==','5qthxn6b',1,0,'',635,0,0),(26206,5880,6,413,0,'194.106.16.43',1170749450,1,0,1,1,1,0,'','Problemas con Acrobar reader version 7.0.7','Antonio no se que me puede estar pasando pero todos los ejemplos de activex funcionan a la perfeccion incluso este ejemplo con el control activex anterior funcionaba pero ahora me marca un error del activex, he visto varios mensajes del mismo estilo en el foro pero no encuentro la solucion. Tengo montados en un win2000 una acrobat reader version 7.0.7 y un adobe Acrobat 7.0.0 profesional para el tema de crear los PDF. lo que me marca OLEVIEW :\n\n[code:16hn0kbn]\nEn el ProgID de Adobe PDF reader pone \n\nProgID = AcroPDF&#46;PDF&#46;1\n\nel path de implementacion&#58;\n\nC&#58;\\Archivos de programa\\Adobe\\Acrobat 7&#46;0\\ActiveX\\AcroPDF&#46;dll\n\n\n[/code:16hn0kbn]\n\nSencillamente he sustituido el anterior por el que pone ahora. Supongo que el reader se ha debido de actualizar solo y ahora el progID es diferente al anterior. Antes funcionaba perfectamente el ejemplo ahora me da un error en el activex pero sin especificar el error.\n\nEl condigo que compilo me toma el fichero pdf del disco duro sin problema es a la hora de activar el activex que me da error de activex.\nEl ejemplo que he modificado es el siguiente pero por mucho que intento buscar una explicacion no puedo saber a que se debe el error pues no me genera ningun  numero de error, sencillamente sale un dialogo que dice: \n\nHarbour Excepcion\ncalled from CREATEACTIVEX(0)\ncalled from TACTIVEX&#058;NEW(0)\n\ny un boton de aceptar.\n\nmi codigo: \n[code:16hn0kbn]\n// FiveWin ActiveX support demo - Using Adobe Acrobat Reader\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Acrobat&#40;cPdfName&#41;\n\n   local oWnd, oActiveX\n	Local cPdfName &#58;= cGetFile&#40;&quot;*&#46;pdf&quot;,&quot;Choose Report&quot;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;Acrobat Reader 7&#46;0&quot;\n   //oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;PDF&#46;PdfCtrl&#46;10&quot; &#41;\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;AcroPDF&#46;PDF&#46;1&quot; &#41;\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n   oActiveX&#58;Do&#40; &quot;LoadFile&quot;,cPdfName &#41;\n   oActiveX&#58;Do&#40; &quot;SetCurrentPage&quot;, 1 &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT oActiveX&#58;Do&#40; &quot;Show&quot; &#41;\n\nreturn nil\n[/code:16hn0kbn]\n\nMi version: fwh25, hasta la fecha todo funcionaba bien supongo que debe ser algo del acrobat reader, pero mi conocimiento para intentar buscar la solucion no es posible. Pero tengo la sensacion que el comando AcroPDF.PDF.1 le falta algo o no es el correcto pese a que no encuentro otro. Si intento poner paradas del tipo  ? \"1\", ? \"2\"... entre los comandos del activex de la ventana no me los muestra osea que me imagino que algo anda mal.','',0,'AIA=','16hn0kbn',1,0,'',413,0,0),(26207,5880,6,2,0,'87.218.146.131',1170750786,1,0,1,1,1,1,'','','Ejecuta regedit y busca \"PdfCtrl\" ó \"AcroPDF\" y comprueba cual es el valor correcto del ProgID que tienes instalado','',0,'AIA=','3he3g9za',1,0,'',2,0,0),(26208,5880,6,413,0,'194.106.16.43',1170753005,1,0,1,1,1,0,'','','Antonio eso ya lo habia mirado:\n\nPdfCtrl (no me lo encuentra)\n\nAcroPDF el que he puesto en el mensaje AcroPDF.FDF.1\n\nAhora me sale un mensaje \n\n[code:30dowx4v]\nFiveWin ActiveX Support&#58;pdf&#46;exe - Error de aplicación\n\nLa instruccion en &quot;0x004178dd&quot; hace referencia a la memoria en &quot;0x00000000&quot;&#46; La memoria no puede ser &quot;read&quot;&#46;\n\nHaga clic en Aceptar para finalizar este progama\nHaga clic en CANCELAR para depurar el programa\n\ndos botones Aceptar y Cancelar\n[/code:30dowx4v]\n\nSi doy a cancelar me carga el Visual 2005 de Microsoft, que lo instale hace tiempo para hacer alguna practica pero nunca he utilizado. Pero no me llega a mostrar nada del error. Espero que te sirva de ayuda pues a mi es como si me hablaran en chino.\n\nTengo la sensacion de que algo que esta en el ejemplo le impide funcionar pero no tengo ni idea de como hacer para ver algun mensaje con los comandos de activex.','',0,'AIA=','30dowx4v',1,0,'',413,0,0),(26209,3807,6,177,0,'194.30.62.6',1170753268,1,0,1,1,1,0,'','','Buenas,\n\nde <!-- m --><a class=\"postlink\" href=\"http://www.tacktech.com/display.cfm?ttid=197\">http://www.tacktech.com/display.cfm?ttid=197</a><!-- m --> os podéis descargar las aplicaciones INSTSRV.EXE y SRVANY.EXE del kit de recursos, necesarias para poder ejecutar una aplicación como servicio.\n\nSaludos,\n\nFélix','',0,'AIA=','1iu6a0pp',1,0,'',177,0,0),(26210,5880,6,2,0,'87.218.146.131',1170753291,1,0,1,1,1,1,'','','Andrés,\n\nPor que no instalas el Acrobat reader más reciente ?','',0,'AIA=','3oltxon4',1,0,'',2,0,0),(26211,5880,6,2,0,'87.218.146.131',1170755564,1,0,1,1,1,1,'','','Andrés,\n\nAcabamos de instalar la versión más reciente de Acrobat Reader. Es la versión 8. Su ProgID es \"AcroPDF.PDF.1\" y ha funcionado perfectamente con FWH:\n[url=http&#58;//imageshack&#46;us:p8mx47e3][img:p8mx47e3]http&#58;//img398&#46;imageshack&#46;us/img398/9643/pdfti5&#46;png[/img:p8mx47e3][/url:p8mx47e3]','',0,'GA==','p8mx47e3',1,0,'',2,0,0),(26212,5876,6,400,0,'200.205.49.10',1170756661,1,0,1,1,1,1,'','','[quote=&quot;Taiwan&quot;:2wnr26jw]Hello\n\nyou can try Activex\'s Skin 3rd party.\n\nRichard[/quote:2wnr26jw]\n\nObrigado pela Dica Richard,\n\nmas, vc poderia me passar um exemplo ?\n\n@braços Ale','',0,'gA==','2wnr26jw',1,0,'',400,0,0),(26213,5878,7,400,0,'200.205.49.10',1170757269,1,0,1,1,1,1,'','','Gracias Antonio\n\nDeu tudo certo.\n\n@braços Ale','',0,'gA==','14jz0hdx',1,0,'',400,0,0),(26214,3807,6,2,0,'87.218.146.131',1170759383,1,0,1,1,1,1,'','','Publicado por Maurilio en estos foros:\n[code:28wv8rh9]\n#include &quot;FiveWin&#46;ch&quot; \n//------------------------- \nFunction Main&#40;&#41; \n//------------------------- \n\nServiceProcess&#40;1&#41; \n\n---- Tu codigo aqui \n\n\nReturn NIL \n\n\n//------------------------------ \nFunction ServiceProcess&#40; mode &#41; \n//------------------------------ \nLocal nProcessId &#58;= 0 \n\nDefault mode &#58;= 0 \n\nnProcessId &#58;= GCP&#40; &#41; \n\nIf Abs&#40; nProcessId &#41; &gt; 0 \n    RSProcess&#40; nProcessId, mode &#41; \n\nEndif \n\nRETURN \n\n//---------------------------------------------------- \nDLL32 FUNCTION RSProcess&#40;npID  AS LONG ,; \n                         nMode AS LONG &#41; AS LONG ; \n      FROM &quot;RegisterServiceProcess&quot; LIB &quot;kernel32&#46;DLL&quot; \n//---------------------------------------------------- \n\n//---------------------------------------------------- \nDLL32 FUNCTION GCP&#40;&#41; AS LONG; \n      FROM &quot;GetCurrentProcessId&quot; LIB &quot;kernel32&#46;dll&quot; \n//---------------------------------------------------- \n[/code:28wv8rh9]\nQue la opción de búsqueda en estos foros está para algo... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','28wv8rh9',1,0,'',2,0,0),(26215,5880,6,413,0,'194.106.16.43',1170759416,1,0,1,1,1,0,'','','Instalado y sigue dando el mismo problema. No lo entiendo....','',0,'AIA=','18h47apj',1,0,'',413,0,0),(26216,5880,6,2,0,'87.218.146.131',1170759560,1,0,1,1,1,1,'','','Andrés,\n\nPrueba samples\\pdf.prg cambiándole el ProgId','',0,'AIA=','rl5vmeo8',1,0,'',2,0,0),(26217,5880,6,413,0,'194.106.16.43',1170760194,1,0,1,1,1,0,'','','Antonio fijate en la cosa que me pasa: He recompilado el ejemplo de excel y funciona perfecto, el del media player y funciona perfecto, pero el de flash justo antes de compilar lo he provado y ha ido fenomenal pero despues de recompilarlo funciona mal, me da exactamente el mismo error. Te suena a que puede ser debido, algo del compilador por ejemplo, todos los hago con el mismo bat. Me he fijado que ambos tanto el pdf como el flash tienen una sentencia ON INIT cuando se abre la ventana.','',0,'AIA=','cpgs1xo2',1,0,'',413,0,0),(26218,3807,6,177,0,'194.30.62.6',1170760428,1,0,1,1,1,0,'','','Antonio,\n\ntienes razón la opción de búsqueda está para algo  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos,\n\nFelix','',0,'AIA=','2dt3kcs4',1,0,'',177,0,0),(26219,5880,6,413,0,'194.106.16.43',1170760938,1,0,1,1,1,0,'','','Antonio si no te es mucho transtorno puedes pasarme el exe compilado en un fichero zip para ver si funciona en mi maquina, lo que me ha pasado de de el flash me funcionaba bien  y al recompilarlo, me hacen pensar que el flash va bien pero al recompilarlo alguna cosa se cuela en el compilado que no va bien. Dime ademas  alguna ayuda para intentar ver que es lo que me falla.\n\nMi bp25.bat es el siguiente creo que eso esta todo bien.\n\n[code:34iclkpe]\n@ECHO ON\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for Harbour 2&#46;5 - October 2004          Harbour development power  ³Ü\nECHO ³ &#40;c&#41; FiveTech, 1993-2004      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO &#58;SINTAX\nif NOT EXIST %1&#46;prg GOTO &#58;NOEXIST\n\nECHO Compiling&#46;&#46;&#46;\n\nset hdir=g&#58;\\fwh\\harbour25\nset fwhdir=g&#58;\\fwh\\fwh25\nset bcdir=g&#58;\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i&#46;&#46;\\include;%hdir%\\include;%bcdir%\\include;g&#58;\\clipper5\\include;g&#58;\\bcc55\\include;g&#58;\\fwh\\fwh25\\include /w /p %2 %3 &gt; %1&#46;log\n@type %1&#46;log\n\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1&#46;exe -I%hdir%\\include %1&#46;c &gt; b32&#46;bc\n%bcdir%\\bin\\bcc32 -M -c @b32&#46;bc\n&#58;ENDCOMPILE\n\nIF EXIST %1&#46;rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho %fwhdir%\\lib\\FiveH&#46;lib %fwhdir%\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfdbt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtwin&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfdbt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\codepage&#46;lib + &gt;&gt; b32&#46;bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc\nrem echo %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\iphlpapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\rasapi32&#46;lib, &gt;&gt; b32&#46;bc\n\nIF EXIST %1&#46;res echo %1&#46;res &gt;&gt; b32&#46;bc\nrem uncomment this line to use the debugger and comment the next one\nrem %bcdir%\\bin\\ilink32 -Tpe -s @b32&#46;bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s @b32&#46;bc\n\n\nrem delete temporary files\n@del %1&#46;c\n@del %1&#46;il?\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\n&#58;LINKERROR\nrem if exist meminfo&#46;txt notepad meminfo&#46;txt\nGOTO EXIT\n\n&#58;SINTAX\nECHO    SYNTAX&#58; Build &#91;Program&#93;     &#123;-- No especifiques la extensi¢n PRG\nECHO                                &#123;-- Don\'t specify &#46;PRG extension\nGOTO EXIT\n\n&#58;NOEXIST\nECHO The specified PRG %1 does not exist\n\n&#58;EXIT\n%1\npause\n[/code:34iclkpe]','',0,'AIA=','34iclkpe',1,0,'',413,0,0),(26220,5875,6,898,0,'200.232.247.105',1170761203,1,0,1,1,1,0,'','','ninguem?','',0,'AIA=','25fws70u',1,0,'',898,0,0),(26221,5881,2,248,0,'212.145.179.68',1170762412,1,0,1,1,1,0,'','Activar Insert','Como puedo activar por defecto el Insert a la entrada de una aplicacion.\n(manias de clientes)\nGracias.','',0,'AIA=','2reeqpfg',1,0,'',248,0,0),(26222,5866,2,248,0,'212.145.179.68',1170762577,1,0,1,1,1,0,'','Si usas Report','Si usas Report tienes la opcion: REPORT [ &lt;oReport&gt; ] ;\n        [ TITLE &lt;bTitle, ...&gt; [&lt; LEFT | CENTER | CENTERED | RIGHT &gt; ] ];\n        [ HEADER &lt;bHead, ...&gt; [&lt; LEFT | CENTER | CENTERED | RIGHT &gt; ] ];\n        [ FOOTER &lt;bFoot, ...&gt; [&lt; LEFT | CENTER | CENTERED | RIGHT &gt; ] ];\n        [ FONT &lt;oFont, ...&gt; ]  ;\n        [ PEN &lt;oPen, ...&gt; ]  ;\n        [ &lt; SUMMARY &gt;  ] ;\n        [ &lt;  FILE |  FILENAME |  DISK &gt;  &lt;cRptFile&gt; ] ;\n        [ &lt;  NAME |  RESNAME | RESOURCE &gt;  &lt;cResName&gt; ] ;\n        [ &lt;  TO PRINTER &gt;  ] ;\n        [ &lt;  PREVIEW &gt;  ] ;\n        [ TO FILE &lt;toFile&gt; ] ; &lt;-------AQUI\n        [ TO DEVICE &lt;oDevice&gt; ] ;\n        [ CAPTION &lt;cName&gt; ]','',0,'','2cj96qb5',1,0,'',248,0,0),(26223,5880,6,2,0,'87.218.146.131',1170763940,1,0,1,1,1,1,'','','Andrés,\n\nTe he enviado el ejemplo PDF completo con el EXE, por email','',0,'','1isiocac',1,0,'',2,0,0),(26224,5880,6,413,0,'194.106.16.43',1170766678,1,0,1,1,1,0,'','','Gracias antonio, lo he ejecutado y sigue dandome el mismo error. No lo entiendo que es lo que hago mal, que ha cambiado en mi ordenador para que algunos funcionen y otros no. Si en el tuyo funciona deberia funcionar en el mio, instalando la nueva version claro la reader 8.0. La cuestion es que me he pegado un buen curro haciendo los pdf y ahora no puedo incluirlos via activex. Bueno, sigo investigando para ver si localizo el error.','',0,'','1a0rxfci',1,0,'',413,0,0),(26227,5880,6,413,0,'194.106.16.43',1170771002,1,0,1,1,1,0,'','','Perdon no se habia actualizado el ordenador el tuyo funciona a la perfeccion pero el mio no. Ahora por lo menos se que problemas del ProgID no es es algo de la compilacion del programa. Bueno mañana mas....','',0,'','2ik0s6sl',1,0,'',413,0,0),(26228,5879,6,228,0,'201.245.222.86',1170772573,1,0,1,1,1,1,'','No...','Como vas Armando me alegra que se hayas resuelto tu inquietud... Ademas estoy devolviendo una cantidad que favores que me hiciste en el pasado..  jejeje <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  y por el contrario soy yo el que tiene mucho que agradecerte.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nCon respecto a lo del Easy no me ha llego nada al correo y la verdad no he realizado pruebas con ello. Si me puedieras enviar un ejemplo... te confirmo mis correos:\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:leandroalfonso@etb.net.co\">leandroalfonso@etb.net.co</a><!-- e -->\n<!-- e --><a href=\"mailto:leandroalfonso@omaldy.com\">leandroalfonso@omaldy.com</a><!-- e -->\n\nCualquiera de estos..','',0,'','1sgnrb8y',1,0,'',228,0,0),(26229,5859,6,891,0,'148.243.37.162',1170776474,1,0,1,1,1,0,'','Re: VERCE aún existes?','[quote=&quot;RodolfoRBG&quot;:15hqh4i2]Le he mandado correos a Juan Carlos Salinas, creador del VERCE, a: <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e --> pero se me regresan. Alguien sabe algo de el?[/quote:15hqh4i2]\n\nHola amigo buenos dias que tal como estas, te dejo el otro correo de Juan Carlos y al parecer ya dejo de actualizar nuevas versiones de VeRCE. pero aun asi sigue funcionando la librería...saludos\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->\nAdriano C. C.','',0,'gA==','15hqh4i2',1,0,'',891,0,0),(26231,5880,6,138,0,'189.141.72.59',1170782204,1,0,1,1,1,1,'','','No problema del ActiveX de FiveWin, es problema del Acrobat en la version 7.0.\n\nPor alguna extraña razon, la gente de Adobe hizo que las versiones 6 y 7.0 de Acrobat solo puedan funcionar como ActiveX desde el Internet Explorer.\n\nNo estoy seguro si pasa con la 6, pero con la 7 estoy super seguro que si, por lo tanto si quieres usarlo como ActiveX, tendras que crear un ActiveX para Internet Explorer y luego en la propiedad NAVIGATE() tendras que ponerle el nombre del PDF que quieres abrir.\n\nEn la version 8.0 vuelve a funciona nativamente.','',0,'gA==','cq32gk6j',1,0,'',138,0,0),(26232,5861,3,397,0,'200.207.58.251',1170784553,1,0,1,0,1,1,'','','Silvio\n\nDon\'t have a XBrowse print method?\n\nVerify a code of your method and search for de internal methods of xBrowse, your application is trying to acess this methods\n\n????::oWnd:cCaption \n????::cAlias \n????::GetVisibleCols() \n????::bBookMark \n????::aArrayData\n????::nArrayAt\n\nMake sure if exist in xBrowse code the same methods.\n\nYour application don\'t know ????::object.','',0,'gA==','3a3jy7i3',1,0,'',397,0,0),(26233,5880,6,397,0,'200.207.58.251',1170785057,1,0,1,0,1,1,'','','Amigo\n\nTentas diferentes ProIDs\n\n[code:iasmpgyi]\nFunction testa PDFActivex&#40;oWnd&#41;\n   MyProgID &#58;= &quot;&quot;\n   if IsActivex&#40; &quot;PDF&#46;PdfCtrl&#46;1&quot; &#41;; MyProgID &#58;= &quot;PDF&#46;PdfCtrl&#46;1&quot;; endif\n   if IsActivex&#40; &quot;PDF&#46;PdfCtrl&#46;2&quot; &#41;; MyProgID &#58;= &quot;PDF&#46;PdfCtrl&#46;2&quot;; endif\n   if IsActivex&#40; &quot;PDF&#46;PdfCtrl&#46;3&quot; &#41;; MyProgID &#58;= &quot;PDF&#46;PdfCtrl&#46;3&quot;; endif\n   if IsActivex&#40; &quot;PDF&#46;PdfCtrl&#46;4&quot; &#41;; MyProgID &#58;= &quot;PDF&#46;PdfCtrl&#46;4&quot;; endif\n   if IsActivex&#40; &quot;PDF&#46;PdfCtrl&#46;5&quot; &#41;; MyProgID &#58;= &quot;PDF&#46;PdfCtrl&#46;5&quot;; endif\n   if IsActivex&#40; &quot;PDF&#46;PdfCtrl&#46;6&quot; &#41;; MyProgID &#58;= &quot;PDF&#46;PdfCtrl&#46;6&quot;; endif\n   if IsActivex&#40; &quot;PDF&#46;PdfCtrl&#46;7&quot; &#41;; MyProgID &#58;= &quot;PDF&#46;PdfCtrl&#46;7&quot;; endif\n   if Empty&#40; MyProgID &#41;\n      MsgStop&#40; \'No PDF Activex installed\' &#41;\n      return &#46;f&#46;\n   endif\n   ActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, MyProgID &#41;\n   return &#46;t&#46;\n[/code:iasmpgyi]','',0,'AIA=','iasmpgyi',1,0,'',397,0,0),(26234,5860,6,2,0,'87.218.146.57',1170793865,1,0,1,1,1,1,'','','Rafael,\n\nEn Vista hay que usar el estilo WS_EX_TRANSPARENT en vez de usar el brush NULL','',0,'AIA=','37khvrt5',1,0,'',2,0,0),(26235,5881,2,2,0,'87.218.146.57',1170794615,1,0,1,1,1,1,'','','Garbi,\n\nPrueba con:\n\n#define VK_INSERT    45 //    0x2D\n\n___Keyboard( VK_INSERT )','',0,'AIA=','26em9n9f',1,0,'',2,0,0),(26236,5860,6,63,0,'88.11.31.105',1170803242,1,0,1,1,1,0,'','','Muchísimas gracias, Antonio.  Lo probaré en cuanto pueda.\nSaludos,\n\nRafael','',0,'AIA=','d94t5r5m',1,0,'',63,0,0),(26237,5860,6,63,0,'88.11.31.105',1170803999,1,0,1,1,1,0,'','','Antonio:\n\nDefino el estilo de la ventana como : \n\nnStyle := WS_POPUP+WS_THICKFRAME+WS_EX_TRANSPARENT pero al \n\ncompilar me da Ambiguous reference: \'WS_EX_TRANSPARENT\'\n\n¿Por favor, qué valor tiene esa constante?  (Utilizo FWH 2.6)\n\nGracias, \nRafael\n[/code]','',0,'','17mqk7az',1,0,'',63,0,0),(26238,5860,6,2,0,'87.218.146.57',1170806047,1,0,1,1,1,1,'','','Rafael,\n\n#define WS_EX_TRANSPARENT  32  // 0x00000020L','',0,'','1eznep9y',1,0,'',2,0,0),(26239,5885,3,49,0,'62.13.172.78',1170807411,1,0,1,1,1,1,'','converte combox -&gt; tab control','I load nto an arrary 3 strings ..\n\nlocal aIdx:={}\n\naIdx:={\"Fondatore\",\"Ordinario\",\"Simpatizzante\",\"Servizi\"}\n\nOn old program I use a combox  to select the option \n\n REDEFINE COMBOBOX oCbx VAR cVar ITEMS aIdx ID 210 OF oDlg;\n      ON CHANGE Sel_Index(oCbx)\n\n\nNow I want show the option into a tab control \n\n @ nGridBottom, nSplit+2 TABS oApp():oTab ;\n     OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ;\n     ITEMS aIdx \n\n\nbut it not run ok \n\ncan U help me pls','',0,'','2cnj0h0f',1,0,'',49,0,0),(26242,5885,3,397,0,'200.207.58.251',1170809150,1,0,1,0,1,1,'','','Silvio \n\nThe TAB control can choosed by using SetOption method and the page too.\n\n...\noTab:SetOption( nOrder )\noPage:SetOption( nOrder ) or oPage:SetOption( oTab:nOption )\n...','',0,'GA==','1nwmwm96',1,0,'',397,0,0),(26243,5886,6,203,0,'190.11.21.10',1170809299,1,0,1,1,1,1,'','Filtrar Dbcombo dependiendo de Otro','Hola amigos del foro\n\nTengo dos dbcombos el segungo quiero filtrarle dependiendo de lo seleccionado en el primero, no se si pueda, lo intente pero no me funciona, no me actualiza el dbcombo\n\n\nGracias.\n\n\nSaludos\nOscar','',0,'GA==','1hdei3i6',1,0,'',203,0,0),(26245,5886,6,66,0,'201.212.77.185',1170815859,1,0,1,0,1,0,'','','Estimado Amigo\n\nSi se puede cualquier duda a tu disposicion\n\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->\n\n\n 0.2,5 DBCOMBO omarca VAR xmarca SIZE 80,80  OF odlg ;\n      ON CHANGE(MARMODV(XMARCA,OMODELO,XMODELO));\n      ALIAS \"MARCAS\" ;\n      ITEMFIELD \"NAME\" ;\n      LISTFIELD \"NAME\"\n\n\n @ 1,3 SAY  omarca      Prompt \"Codigo\"  OF odlg &amp;&amp;COLOR CLR_BLACK,CLR_5\n @ 1,18 SAY  olinea    Prompt  \"Descripcion\"  OF odlg &amp;&amp;COLOR CLR_BLACK,CLR_5\n @ 1,54 SAY  olinea    Prompt  \"Ampl. Foto\"  OF odlg  size 30,10  &amp;&amp;COLOR CLR_BLACK,CLR_5\n\n\n  @ 1.8,356 btnbmp  filENAME \"visual1.bmp\"  CENTER NOBORDER  OF oDlg size 10,10 action BLANK(ODESCRIP,XDESCRIP), Filtro( olbx,XMARCA,XLINEA,XCODIGO,XMODELO,OPRECIO)\n\n\n*1***************\n\n\n\n\n  SELE 55\n  USE MODELOS &amp;&amp;alias marcas shared\n  index on MODELOS-&gt;MODELO to MODELOS\n  set index to MODELOS\n\n\n\n @0.2,18 DBCOMBO omodelo VAR xmodelo SIZE 80,80  OF odLG ;\n      ALIAS \"MODELOS\" ;\n      ITEMFIELD \"MODELO\" ;\n      LISTFIELD \"MODELO\"\n\n\n\nFUNCTION MARMODV(XMARCA,OMODELO,XMODELO)\n\n\n Local aItemFld  := {}\n  Local aItemList := {}\n\n\n\n SELE 55\n USE MODELOS &amp;&amp;alias marcas shared\n set index to MODELOS\n\n If ALLTRIM(xmarca)=\"TODAS LAS MARCAS\"\n\n\ndbGotop()\n\n  While ! Eof()\n\n    aAdd( aItemFld ,55-&gt;MODELO )\n    aAdd( aItemList,55-&gt;MODELO )\n\n    dbSkip()\n\n  End\n\n\n  oMODELO:SetItems( aItemFld, aItemList )\n  oModelo:Refresh()\n* SET FILTER TO\nSELE 5\nUse Catalogo &amp;&amp; alias catalogo shared\nSET INDEX TO catalogo\n\n  SysRefresh()\n\n ENDIF','',0,'GA==','2g7whs4r',1,0,'',66,0,0),(26246,5888,6,66,0,'201.212.77.185',1170816179,1,0,1,0,1,0,'','Ayuda con  tdosprn','Estimados Colegas\n\nComo puedo hacer para que cuando mando la impresion a un archivo\ncon tdosprn no me aparezcan caracteres de control en el margen superior\nizquierdo\n\nCodigo\n\ndefine _DLL_CH\n\n\n#include \"FiveWin.ch\"    // Cabezera de FW\n\nFunction Textof \n\nlinecnt = 3\n\noPrn      :=tDosPrn():New( \"Ped.Prn\" )\noPrn:Say( linecnt, 1 , \"1234 Linea1\")\nlinecnt = linecnt + 1\noPrn:Say( linecnt, 1, \"linea2\" )\nlinecnt = linecnt + 1\noPrn:Say( linecnt, 1, \"\" )\n\n\nalerT(\"Termino el proceso\",,\"Proceso\")\n\n\nArchivo Prn\n\nMe aparecen estos caracteres \nPW0F5\n\n\n 1234 Linea1\n linea2','',0,'GA==','2n6e65sl',1,0,'',66,0,0),(26247,5860,6,63,0,'88.11.31.105',1170832850,1,0,1,1,1,0,'','','Antonio:\nEsta solución es específica para Vista? Porque de momento lo he probado en Xp y no funciona (el diálogo aparece opaco en gris).  Más tarde lo intentaré en Vista y te diré algo.\nGracias\nRafael','',0,'GA==','1t4kqwky',1,0,'',63,0,0),(26248,5880,6,413,0,'194.106.16.43',1170834413,1,0,1,1,1,0,'','','Gracias Rene, me he vuelto loco para encontrar la solucion, voy a mirar si ahora funciona. \n\nRochinha, la funcion IsActiveX es de fivewin o es algo tuyo me imagino que testea si esta puesto en el registro, puedes ponerla o enviarla al correo.\n\nGracias','',0,'GA==','1lb9frzr',1,0,'',413,0,0),(26249,5889,3,51,0,'80.122.88.242',1170836075,1,0,1,1,1,0,'','WNetAddConnection2   USER','How to pass user name?\n\nThanks in advance\n\nOtto','',0,'GA==','28b4td16',1,0,'',51,0,0),(26251,5860,6,63,0,'88.11.31.105',1170838588,1,0,1,1,1,0,'','','Fernando:\n\nTengo una aplicación que coloca un diálogo transparente sobre una ventana de otra aplicación.  Es transparente -claro- para poder ver lo que hay en la ventana original y poder pintar cosas sobre ella. Luego, al cerrar el diálogo, lo que haya modificado desaparece y todo queda como estaba.\n\nCon Xp utilizaba un diálogo con brush NULL y todo iba perfecto.  Pero en Vista-Aero, la misma aplicación me crea un diálogo opaco, con fondo gris que no me deja ver qué hay debajo.  En este momento no tengo Vista a mano pero sí he probado lo que sugiere Antonio en mi Xp de siempre.  Y \nnStyle := WS_EX_TRANSPARENT (sin brush) no parece que funcione sobre Xp, o sea. me genera un diálogo opaco, no trasparente.  Esta tarde lo probaré con Vista.\n\nSi quieres probarlo tú, este es el código que SI funciona en Xp y NO funciona en Vista:\n\n[code:nzutq6v3]#include &quot;Fivewin&#46;ch&quot;\n\nFunction Main&#40;&#41;\nLocal oWnd, oBrush\nDEFINE BRUSH oBrush STYLE &quot;BORLAND&quot;\nDefine Window oWnd from 0,0 TO 100,200 Pixel Brush oBrush\nActivate Window oWnd On Init Superponer&#40;&#41;\nReturn Nil\n\nStatic Function Superponer&#40;&#41;\nLocal oDlg, oBrush\nDEFINE BRUSH oBrush STYLE &quot;NULL&quot;\nDefine Dialog oDlg from 0,0 TO 100,100 Pixel Brush oBrush\nActivate Dialog oDlg\nReturn Nil[/code:nzutq6v3]\n\nSaludos,\nRafael','',0,'AIA=','nzutq6v3',1,0,'',63,0,0),(26252,5881,2,248,0,'212.145.179.68',1170838640,1,0,1,1,1,0,'','Tecla Insert','Me da el siguiente error al ejecutar:\n\n__KEYBOARD(0) Error Interno 5333','',0,'AIA=','27rg8cj9',1,0,'',248,0,0),(26253,5880,6,413,0,'194.106.16.43',1170839996,1,0,1,1,1,0,'','','Antonio que me puede estar pasando he revisado una copia que tenia hace tiempo archivada sobre los ejemplos de activex con fwh25 y veo que el fichero exe cambia de volumen parece que hay algo que no se esta cargando que necesita el activex antes el fichero ocupaba 1.106.432 y ahora con 944.640, indudablemente algo he cambiado para que no me funcionen el tema. Que puede ser, como lo puedo averiguar ?\nEl problema es que los ejemplos de web, exel me funcionan pero otros me han dejado de funcionar. Bueno y al funcionar el tuyo perfectamente me imagino que es tema de la compilacion.','',0,'AIA=','32goj0p8',1,0,'',413,0,0),(26254,5860,6,2,0,'87.218.146.57',1170840038,1,0,1,1,1,1,'','','Rafael,\n\nLo hemos probado así en Vista:\n[code:1jx9g9t5]\n#define GWL_EXSTYLE      -20\n\nDefine Dialog oDlg from 0,0 TO 100,100 PIXEL\nActivate Dialog oDlg ;\n   ON INIT SetWindowLong&#40; oDlg&#58;hWnd, GWL_EXSTYLE,  WS_EX_TRANSPARENT &#41;\n[/code:1jx9g9t5]\npero sigue sin funcionar.','',0,'AIA=','1jx9g9t5',1,1170840619,'',2,1,0),(26255,5860,6,2,0,'87.218.146.57',1170840530,1,0,1,1,1,1,'','','Rafael,\n\nAsí parece que funciona bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:3n3fpmq7]\n#define WS_EX_LAYERED 0x80000\n\nDefine Dialog oDlg from 0,0 TO 100,100 PIXEL\nActivate Dialog oDlg ;\n   ON INIT SetWindowLong&#40; oDlg&#58;hWnd, GWL_EXSTYLE, nOr&#40; GetWindowLong&#40; oDlg&#58;hWnd, GWL_EXSTYLE &#41;, WS_EX_LAYERED &#41; &#41;\n[/code:3n3fpmq7]','',0,'AIA=','3n3fpmq7',1,0,'',2,0,0),(26256,5880,6,2,0,'87.218.146.57',1170840709,1,0,1,1,1,1,'','','Andrés,\n\nEl tamaño ha cambiado porque ha variado el tamaño de lo que enlaza Harbour. No está relacionado con el ActiveX.\n\nHas probado tu EXE en otro ordenador ?','',0,'AIA=','12wg27ge',1,0,'',2,0,0),(26257,5889,3,2,0,'87.218.146.57',1170841152,1,0,1,1,1,1,'','','Otto,\n\nWNetAddConnection( cRemoteName, cPassword, cLocalName ) --&gt; nRetCode\n\nParameters explanation:\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-gb/library/aa385410.aspx\">http://msdn2.microsoft.com/en-gb/library/aa385410.aspx</a><!-- m -->','',0,'AIA=','3rq9yvur',1,0,'',2,0,0),(26258,5881,2,2,0,'87.218.146.57',1170841481,1,0,1,1,1,1,'','','Parece que te está enlazando la de Clipper y no la de FW\n\nEl codigo de la función está en source\\winapi\\keybrd.c , prueba a llamarla de otra manera y compila el fichero C de nuevo','',0,'AIA=','33d73vwk',1,0,'',2,0,0),(26259,5874,2,542,0,'83.39.65.238',1170841750,1,0,1,1,1,0,'','','Hola Rene:\n\nEn primer lugar gracias por la respuesta y orientación de como resolver mi problema.\n\nEl problema de la resolución lo tengo encauzado con otra pregunta que hice y lo solucione poniendo un factor de multiplicacion en las coordenadas dependiendo de la resolucion, creo que me lo contestaste tu o Antonio Linares.\n\nComentarte algo sobre lo que me has escrito:\n\nme has dicho:\n\nSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) \n\nEl ultimo parametro (nPad) te da la alineacion 0 = Izquierda, 1 = Centro, 2= Derecha\n\nYo lo he puesto en 2 el nPad pero no ha funcionado sin embargo lo he cambiado por 1 y lo ha clavado.\n\nUn saludo y gracias de nuevo\n\nCarlos','',0,'AIA=','e1kjafzo',1,0,'',542,0,0),(26260,5860,6,63,0,'88.11.31.105',1170845626,1,0,1,1,1,0,'','','Antonio:\nHasta esta tarde no podré probarlo en Vista.  Sin embargo, he probado esto en Xp y no parece funcionar. \n[code:34guoqj2]\n#include &quot;Fivewin&#46;ch&quot;\n#define WS_EX_LAYERED 0x80000\n#define GWL_EXSTYLE      -20\n\nFunction Main&#40;&#41;\nLocal oWnd, oBrush\nDEFINE BRUSH oBrush STYLE &quot;BORLAND&quot;\nDefine Window oWnd from 0,0 TO 100,200 Pixel Brush oBrush\nActivate Window oWnd On Init Superponer&#40;&#41;\nReturn Nil\n\nStatic Function Superponer&#40;&#41;\nLocal oDlg, oBrush\n//DEFINE BRUSH oBrush STYLE &quot;NULL&quot;\nDefine Dialog oDlg from 50,50 TO 100,100 Pixel   // Brush oBrush\nActivate Dialog oDlg ON INIT &#40;SetWindowLong&#40; oDlg&#58;hWnd, GWL_EXSTYLE, nOr&#40; GetWindowLong&#40; oDlg&#58;hWnd, GWL_EXSTYLE &#41;, WS_EX_LAYERED &#41; &#41;\nReturn Nil\n[/code:34guoqj2]\n\nSi funciona en Vista ¿quiere esto decir que habrá que programarlo de forma distinta para correr en un sistema operativo o en otro? ¿Habría manera de unificarlo para que funcione igual en los dos?\n\nGracias\n\nRafael','',0,'AIA=','34guoqj2',1,0,'',63,0,0),(26261,5890,1,943,0,'217.126.105.54',1170846242,1,0,1,1,1,0,'','Acceso a Mis documentos desde TWord','Hola a Todos,\n\nEstoy creando un programa que usa la clase Tword, de momento hace lo que necesito, no sin dificultat por mi parte, pero ahora me he quedado trabado ya que no soy capaz de dar con la solución a mi problema.\n\nNecesito acceder a la carpeta Mis documentos pero en cada ordenador esta en un lugar diferente, vease: C:\\Documents and Settings\\[color=red:jtesl110]USER[/color:jtesl110]\\Mis documentos\n\n¿Como puedo saber, a través de una variable, cual es la ruta a Mis documentos independientemente del ordenador en que esté teniendo en cuenta que lo que cambia es USER?\n\nGracias de antemano.','',0,'Ag==','jtesl110',1,0,'',943,0,0),(26262,5891,2,943,0,'217.126.105.54',1170846403,1,0,1,1,1,0,'','Acceso a Mis Documentos desde Tword','Hola a Todos,\n\nEstoy creando un programa que usa la clase Tword, de momento hace lo que necesito, no sin dificultat por mi parte, pero ahora me he quedado trabado ya que no soy capaz de dar con la solución a mi problema.\n\nNecesito acceder a la carpeta Mis documentos pero en cada ordenador esta en un lugar diferente, vease: c:\\Documents and Settings\\[color=red:15qvfdts]USER[/color:15qvfdts]\\Mis documentos\n\n¿Como puedo saber, a través de una variable, cual es la ruta a Mis documentos independientemente del ordenador en que esté teniendo en cuenta que lo que cambia es USER?\n\nGracias de antemano.','',0,'Ag==','15qvfdts',1,0,'',943,0,0),(26263,5880,6,413,0,'194.106.16.43',1170847075,1,0,1,1,1,0,'','','Indudablemente me falta algo, ha raiz del fallo con el activex del pdf he debido de modificar algo y por lo tanto no me compila algo que necesita. Tu aplicacion funciona perfectamente pero la mia no me funciona. El tamaño me referia al ejemplo compilado sin añadir nada mas del ejemplo de fivewin, antes me daba mas tamaño que ahora, he modificado algo. Pero tiene que ser algo que algunos activex no necesiten pero otros sí.','',0,'Ag==','vykjuvt1',1,0,'',413,0,0),(26264,5890,1,2,0,'87.218.146.57',1170848013,1,0,1,1,1,1,'','','MsgInfo( WNetGetUser() )','',0,'Ag==','1vol2w5s',1,0,'',2,0,0),(26265,5891,2,2,0,'87.218.146.57',1170848043,1,0,1,1,1,1,'','','MsgInfo( WNetGetUser() )','',0,'Ag==','2xu1bgto',1,0,'',2,0,0),(26266,5891,2,316,0,'213.97.245.163',1170848643,1,0,0,1,1,0,'','','o GetEnv( \'HOMEDIR\' ) ?\n\nSaludos','',0,'Ag==','2rye1xjr',1,0,'',316,0,0),(26267,5891,2,2,0,'87.218.146.57',1170850638,1,0,1,1,1,1,'','','&gt; GetEnv( \'HOMEDIR\' ) ?\n\nEn Vista devuelve una cadena vacia','',0,'Ag==','1rurk08f',1,0,'',2,0,0),(26268,5889,3,36,0,'200.113.56.235',1170851997,1,0,1,1,1,0,'','','Hola!!\n\nComo puedo implementar estas funciones de red?\n\nAlguna libreria en especial??\n\n\n\nSaludos\nPatricio','',0,'Ag==','165jrget',1,0,'',36,0,0),(26269,5885,3,49,0,'213.82.134.66',1170852306,1,0,1,1,1,1,'','','Dear Rochinha\nIf you not understood what I say , please not write me \n\nthe command setoption use when I must show a tab \n\nInstead I ask another help .....\n\nI must write the tab name \"xxxxx\",\"xxxxx\", \"xxxxx\"  they called ITEMS or aPrompts\n\nOn the combobos I use ITEMS aaa where aaa is an array with 3 strings\n\nNow I want insert these strings into  tab control as tab names \n\nI hope you unserstand me now','',0,'Ag==','16f6n126',1,0,'',49,0,0),(26270,5892,6,384,0,'201.43.148.77',1170852415,1,0,1,1,1,1,'','OutPortByte()','Esta função funcionava corretamente no FWH 2.6, porém, não funciona na versão 2.8.\nAlguém teria alguma informação a respeito ?','',0,'Ag==','1kaqg7l2',1,0,'',384,0,0),(26271,5861,3,49,0,'213.82.134.66',1170852562,1,0,1,1,1,1,'','','I not understand Waht YOU say me \n\nI add this method to xbrowse fivetech  it run sometimes \n\nobrw:print(\"namereport\",.t.,.t.)\n\nit is as print method of wbrowse of hernan','',0,'Ag==','3cyccjkc',1,0,'',49,0,0),(26272,5892,6,2,0,'87.218.146.57',1170852849,1,0,1,1,1,1,'','','OutPortByte() es sólo válida para 16 bits \n\nSeguro que funcionaba en FWH 2.6 ? Puedes poner un ejemplo de cómo la usabas ? gracias','',0,'Ag==','kop4jdcp',1,0,'',2,0,0),(26273,5893,6,185,0,'200.87.81.27',1170854081,1,0,1,1,1,0,'','Menus style office 2003 y xp','hola Foro\n\ntengo problemas con el acceso a mi pagina, pero los euq necesityan las fuentes de los menus tipo XP y office, pueden bajarlo de:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com/index.php\">www.quark-costos.com/index.php</a><!-- w -->\n\nsaludos \nArturo','',0,'Ag==','2tkpkjgq',1,0,'',185,0,0),(26274,5826,3,569,0,'190.74.128.244',1170854408,1,0,1,1,1,0,'','posible solucion','Trata de que se revise o chequee el numero serial solo y exclusivamente desde el equipo servidor con una funcion de CTIII que se llama NETDISK()\no algo parecido de esta manera cualquiera estacion de trabajo no verifica este numero y podra correr libremente, a mi me funciona pruebala.\nSaludos \nRodolfo Silva \n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'Ag==','votil81j',1,0,'',569,0,0),(26275,5864,6,838,0,'80.34.222.112',1170854859,1,0,1,1,1,0,'','','Gracias por contestar.\n\nPor lo que deduzco lo mejor es organizarlo todo de tal manera que haya que hacer pack las menos veces posible.\n\nVoy a hacerlo así, y que sólo haya que limpiar las bases en ell inicio de ejercicio.\n\nSaludos\n\nJose Luis','',0,'Ag==','2m5cglm4',1,0,'',838,0,0),(26276,5885,3,6,0,'82.59.51.146',1170856504,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:26ibm3se]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oTabs\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 BUTTON &quot;Change&quot;;\n           ACTION &#40; oTabs&#58;aPrompts&#91; 2 &#93; &#58;= &quot;Changed&quot;,;\n                    oTabs&#58;Refresh&#40;&#41; &#41;\n\n    @ 2, 0 TABS oTabs;\n           PROMPTS &quot;First&quot;, &quot;Second&quot;, &quot;Third&quot;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:26ibm3se]\n\nEMG','',0,'AIA=','26ibm3se',1,0,'',6,0,0),(26277,5886,6,203,0,'190.11.21.135',1170858265,1,0,1,1,1,1,'','','Gracias Fabian \nVoy a probar, si tengo alguna duda te vuelvo a molestar','',0,'AIA=','2m21ca6e',1,0,'',203,0,0),(26278,5864,6,138,0,'189.141.72.59',1170859598,1,0,1,1,1,1,'','','Personalmente yo nunca hago PACK durante la operacion del sistema, el proceso lo realizo cuando hago una reindexacion.\n\nPara evitar que los datos borrados esten molestando durante la operacion del programa simplemente hago el indice FOR ! DELETED() y asi no aparecen los datos borrados\n\nLuego, cuando llega el momento de reindexar, se borra el CDX, se abre la tabla DBF, se hace pack, se reindexa y listo, a seguir funcionando','',0,'AIA=','2pdbk6n7',1,0,'',138,0,0),(26279,5894,6,73,0,'200.23.18.132',1170866591,1,0,1,1,1,0,'','compra de fwh y canal5','aqui en mexico, se puede comprar fwh? con quien? los controles de canal5 tambien? con quien?\ngracias\nPaco','',0,'AIA=','3d8kgt12',1,0,'',73,0,0),(26280,5895,6,533,0,'80.32.177.143',1170871374,1,0,1,1,1,0,'','Ayuda con Word','Buenas Foro!!\n\nCon el siguiente codigo:\n\n[code:og5som2z]\noWord&#58;Write&#40;&quot;CLIENTE&#58;&quot;,&quot;Tahoma&quot;,10,&#46;t&#46;&#41;\noWord&#58;Write&#40;&quot;CALLE&#58;&quot;,&quot;Tahoma&quot;,10,&#46;t&#46;&#41;\noWord&#58;Write&#40;&quot;LOCALIDAD&#58;&quot;,&quot;Tahoma&quot;,10,&#46;t&#46;&#41;\noWord&#58;Write&#40;&quot;COD&#46;PRESUPUESTO&#58;&quot;,&quot;Tahoma&quot;,10,&#46;t&#46;&#41;\noWord&#58;Write&#40;&quot;Nº OBRA&#58;&quot;,&quot;Tahoma&quot;,10,&#46;t&#46;&#41;\n[/code:og5som2z]\n\n¿como puedo añadir un salto de pagina en el documento?, he intentado con:\n\noWord:EndPage()\noWord:StartPage()\n\ny no me funciona, ademas el parametro .t. que le paso al Metodo Write que debiera de ser letra Bold no lo hace. ¿Alguna sugerencia?\n\nMUCHAS GRACIAS\n\nFW 2.8 + xharbour','',0,'AIA=','og5som2z',1,0,'',533,0,0),(26281,5892,6,384,0,'201.43.78.235',1170874937,1,0,1,1,1,1,'','','Sim, a linha de comando utilizada era simplesmente:\n\nOutPortByte( 96, 212 )\n\nPergunto se não teriamos alguma outro recurso para enviar dados por esta porta ?','',0,'AIA=','1rdpr9f9',1,0,'',384,0,0),(26282,5896,6,533,0,'80.32.177.143',1170875385,1,0,1,1,1,0,'','Problemas con resizes','Buenas foro!!\n\nMirad, tengo un problema y no se como solucionarlo. He generado una ventana en la cual, cuando se abre, utilizo la funcion ON RESIZE para autoajustar los controles dentro de la misma. En mi PC funciona correctamente, pero en problema es que en otros PC NO se redimensionan correctamente, y no son unos cuantos pixeles de diferencia, parece que segun qué tema de Windows ó resolución tenga la pantalla en algunos casos los objetos NI se mueven de su posición original. ¿ Sabeis por donde puede venir el problema ? Muchas Gracias.','',0,'AIA=','3bjgnjsd',1,0,'',533,0,0),(26283,5896,6,533,0,'80.32.177.143',1170875430,1,0,1,1,1,0,'','','Por Cierto , ...\n\nFW 2.8 Octubre 2006 + xHarbour + Visual C++ (recursos)','',0,'AIA=','3knwwzw0',1,0,'',533,0,0),(26284,5859,6,255,0,'201.122.36.212',1170878145,1,0,1,1,1,1,'','','Hola a todos !!!!\n\nEn efecto, hace mucho que no actualizo verce y es que tambien hace mucho que no escribo una linea de codigo en fivewin, hace poco alguien me pidio los  fuentes del VERCE para mantenerlo actualizado pero veo q aun no hay noticias de esa persona (no recuerdo quien era). Sin embargo, si tienen alguna duda o puedo ayudar en algo no duden en contactarme.\n\nMi correo actual al que pueden escribirme es   <!-- e --><a href=\"mailto:salinasj@geainternacional.com\">salinasj@geainternacional.com</a><!-- e -->\n\nSaludos','',0,'AIA=','28g81u4l',1,0,'',255,0,0),(26285,5897,6,850,0,'200.41.163.81',1170878394,1,0,1,1,1,0,'','Necesito ADS version 6.2','Hola, necesitaria si alguno de ustedes tienen la version 6.2 de ADS para novell y los clientes de esta version. Sucede que tengo la version 6.0 para 250 usuarios y tiene errores cuando accedo desde xHarbour. Me sugirieron actualizar a  version 6.2 y mi proveedor no la tiene y el soporte esta discontinuado. Dentro de las versiones 6.x mi llave y la clave de validacion sirven. Desde ya muchas gracias. \nAndres','',0,'AIA=','125qq131',1,0,'',850,0,0),(26286,5894,6,138,0,'189.141.72.59',1170881421,1,0,1,1,1,1,'','','Claro que se puede, facturado y con su IVA correspondiente.\n\nContactame: (55) 5240 8160 \n\nO a mi correo privado: <!-- e --><a href=\"mailto:rflores@google.com\">rflores@google.com</a><!-- e -->','',0,'AIA=','f1bshag3',1,0,'',138,0,0),(26287,5894,6,73,0,'200.23.18.132',1170884114,1,0,1,1,1,0,'','','gracias\nrene\nsalu2\nPaco','',0,'AIA=','3nqq43u5',1,0,'',73,0,0),(26288,5892,6,2,0,'87.218.146.103',1170884667,1,0,1,1,1,1,'','','Toya,\n\nEn Windows 32 bits no se puede usar la función OutPortByte() como tal.\n\nExisten algunas soluciones como <!-- m --><a class=\"postlink\" href=\"http://www.zealsoftstudio.com/ntport/\">http://www.zealsoftstudio.com/ntport/</a><!-- m -->','',0,'AIA=','1sal8ldg',1,0,'',2,0,0),(26289,5898,6,207,0,'189.158.97.251',1170889239,1,0,1,1,1,0,'','problemas con actualizacion de FW 7.01','Que tal a todos:\n\nAcabo de comprar la FW 701 , solo que no he podido hacerla funcionar, me dicen que debo recompilar las lib que uso (tsbrowse y hbtdbf) , pero la le he buscado y no logro regenerarlas, ¿alguien de ustedes que haya adquirido fw ultimamente me puede asesorar? , se los agraceceré bastante.   Gracias','',0,'AIA=','19fxty1n',1,0,'',207,0,0),(26290,5899,1,819,0,'216.34.194.113',1170891385,1,0,1,1,1,0,'','oGet:setSel in XP','Hi all,\n\nThe oGet:setSel()  (Clipper 52 + FW24) is not highlighting text in XP at least in our system.  Is this a known issue?. Any work around?\n\nThanks,\n\njose','',0,'AIA=','bo3o607n',1,0,'',819,0,0),(26291,5900,6,913,0,'189.136.170.217',1170893132,1,0,1,1,1,1,'','Para Antonio Linares - Hola tengo problemitas me ayudas','Hola Antonio disculpa que te de molestias otra vez\n\nfijate que estoy usando BTNGET y tengo un problema que no le entiendo mucho <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  cuando le doy clik al iconito del calendario sale muy bien pero cuando le doy click en donde se cambia el año se truena  y me sale un error <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> .\n\nApplication\n===========\n   Path and name: C:\\FWH\\promotoria\\ALTAS.Exe (32 bits)\n   Size: 2,386,432 bytes\n   Time from start: 0 hours 0 mins 10 secs \n   Error occurred at: 07/03/2007, 17:50:49\n   Error description: Error BASE/1004  Class: NIL has no exported method: SETFOCUS\n   Args:\n\nStack Calls\n===========\n   Called from SETFOCUS(0)\n   Called from (b)FWCALENDAR(115)\n   Called from (b)SPINNER(1351)\n   Called from __EVAL(0)\n   Called from TSCROLLBAR:GODOWN(0)\n   Called from TWINDOW:VSCROLL(2061)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from FWCALENDAR(182)\n   Called from (b)FOOL(2017)\n   Called from (b)DEFAULT(126)\n   Called from TBTNBMP:CLICK(0)\n   Called from TBTNBMP:CLICK(72)\n   Called from TBTNBMP:LBUTTONUP(0)\n   Called from TCONTROL:HANDLEEVENT(0)\n   Called from TCONTROL:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from FOOL(2088)\n   Called from ALTASINO(904)\n   Called from (b)MAIN2(538)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from MAIN2(686)\n   Called from (b)MAIN(211)\n   Called from (b)ADDITEM(189)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(878)\n   Called from MAIN(272)\n\nya revise el FWCAL.PRG y el problema esa en esta parte pero no le entiendo muy bien \n\n REDEFINE COMBOBOX aObj[ 2 ] VAR cMonth ID 101 ITEMS aMonth OF oDlg ;\n            ON CHANGE ( nMonth := AScan( aMonth, cMOnth ), ;\n                        fActMonth( aSay, cSay ) )\n\n   REDEFINE GET aObj[3] VAR nYear ID 102 OF oDlg PICTURE \"@K 9999\";\n            SPINNER ON UP ( ++nYear, aObj[ 3 ]:Refresh(), fActMonth( aSay, cSay ), ;\n                            aObj[ 5 ]:SetFocus() ) ;\n            ON DOWN ( --nYear, aObj[ 3 ]:Refresh(), fActMonth( aSay, cSay ), ;\n                     aObj[ 5 ]:SetFocus() )\n\n            aObj[ 3 ]:bGotFocus := { |x| x:Selectall() }\n            aObj[3]:bLostFocus := { |x| fActMonth( aSay, cSay ), ;\n                                        aObj[ 5] :SetFocus() } //---- esta es la linea <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  115\n\n\n//************************\n\na si lo tengo en mi programa\n\n [color=darkred:1pevprvs]cVigencia1 := DATE()\n cVigencia2 := DATE()\n\nREDEFINE BTNGET oGet VAR cVigencia1          ID 101  OF oFld:aDialogs[ 2 ] RESOURCE \"Calen\" SPINNER;\n      ON UP (++cVigencia1,oGet:Refresh()) ON DOWN (--cVigencia1,oGet:Refresh());\n         ACTION (aRect := GetCoors(oGet:hWnd),;\n                 cVigencia1 := FwCalendar(cVigencia1,aRect[1],aRect[4],oDlg),;\n                 oGet:Refresh())\n\n\nREDEFINE BTNGET oGett VAR cVigencia2          ID 102  OF oFld:aDialogs[ 2 ]RESOURCE \"Calen\" SPINNER;\n      ON UP (++cVigencia2,oGett:Refresh()) ON DOWN (--cVigencia2,oGett:Refresh());\n         ACTION (aRect := GetCoors(oGett:hWnd),;\n                 cVigencia2 := FwCalendar(cVigencia2,aRect[1],aRect[4],oDlg),;\n                 oGett:Refresh())[/color:1pevprvs]\n\n\nme podrias ayudar es que me gusto mucho y quisiera poder usar este calendario <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos \n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Ag==','1pevprvs',1,0,'',913,0,0),(26292,5898,6,138,0,'189.141.72.59',1170895669,1,0,1,1,1,1,'','','pon esto en un archivo .BAT y te debe servir para compilar cualquier codigo fuente para convertirlo en LIB, solo cambia las rutas a donde tienes instalado tu harbour y tu fivewin:\n[code:2sldj9lr]\n\\xHarbour\\Bin\\Harbour tSBrowse /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include  &gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour SBMsgSPA /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour TSColumn /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour TSBtnGet /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour TSGet    /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour TSCombo  /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour TSMulti  /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour ScrllBar /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\\xHarbour\\Bin\\Harbour BtnDown  /n /i&#46;&#46;\\&#46;&#46;\\Include;\\FWH\\Include;\\xHarbour\\Include &gt;&gt; comp&#46;log\n\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include tSBrowse&#46;c &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include SBMsgSPA&#46;c &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include TSColumn&#46;c &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include TSBtnGet&#46;c &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include TSGet&#46;c    &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include TSCombo&#46;c  &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include TSMulti&#46;c  &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include ScrllBar&#46;c &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include BtnDown&#46;c  &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include &#46;&#46;\\Function\\TSBFuncs&#46;c &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include &#46;&#46;\\Function\\Scroll&#46;c   &gt;&gt; comp&#46;log\n\\Borland\\Bcc55\\Bin\\Bcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -I\\xHarbour\\Include;\\FWH\\Include &#46;&#46;\\Function\\GetBtn&#46;c   &gt;&gt; comp&#46;log\n\nDel SbrowseH&#46;lib\n\\borland\\bcc55\\bin\\Tlib SBrowseH +TSBrowse      &gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +SBMsgSPA     &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +TSBFuncs     &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +TSColumn     &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +TSBtnGet     &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +TSGet        &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +TSCombo      &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +TSMulti      &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +ScrllBar     &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +Scroll       &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +GetBtn       &gt;&gt; Lib&#46;log\n\\borland\\bcc55\\bin\\Tlib SBrowseH +BtnDown      &gt;&gt; Lib&#46;log\nDel *&#46;obj\nDel *&#46;bak\nDel *&#46;c[/code:2sldj9lr]','',0,'AIA=','2sldj9lr',1,0,'',138,0,0),(26293,5899,1,266,0,'60.52.114.125',1170903519,1,0,1,1,1,1,'','','oGet:selectall()','',0,'AIA=','3vivc51g',1,0,'',266,0,0),(26294,5900,6,439,0,'200.125.42.139',1170904800,1,0,1,1,1,1,'','','Yo tuve ese problema con el build .99.70 de xharbour y se me corrigió con el último build, si te refieres al error al tocar los spinners.\n\nQue build estás usando?','',0,'AIA=','qkgpl3og',1,0,'',439,0,0),(26295,5861,3,397,0,'201.26.12.168',1170904839,1,0,1,0,1,1,'','','Excuse.','',0,'AIA=','1i80djrx',1,0,'',397,0,0),(26296,5895,6,397,0,'201.26.12.168',1170905402,1,0,1,0,1,1,'','','Try\n\noWord:Documents:EndPage() \noWord:Documents:StartPage()','',0,'AIA=','3qokgdfd',1,0,'',397,0,0),(26297,5900,6,913,0,'189.136.170.217',1170906078,1,0,1,1,1,1,'','HOLA','Hola Jose gracias por contestar\n\nsi es en los spinners  el que hace el cambio de año en el calendario, todo lo demas funciona muy bien <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\npues es FiveWin for Harbour 2.6 - April 2005\n\ny el harbour dice build 44.0 no uso xharbour\n\n\nsera por eso que no me funciona <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nGracias\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','3rjbpuwf',1,0,'',913,0,0),(26298,5880,6,397,0,'201.26.12.168',1170906232,1,0,1,0,1,1,'','','Yes.','',0,'AIA=','1wmx8wu1',1,1170915696,'',397,1,0),(26299,5880,6,913,0,'189.136.170.217',1170910375,1,0,1,1,1,1,'','acroPDF.PDF.1','el tema me llamo la atencion y probe el ejemplo \n\nyo puse \n\nAcroPDF.PDF.1 y no me funciono pero despues puse [color=red:3vl66ly4][b:3vl66ly4]acroPDF.PDF.1[/b:3vl66ly4][/color:3vl66ly4] y  funciono no sera por que la primera letra no estaba en minuscula <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->\n\n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Qg==','3vl66ly4',1,0,'',913,0,0),(26300,5880,6,413,0,'194.106.16.43',1170917852,1,0,1,1,1,0,'','','Mil pero que mil gracias AIDA, las jilipolleces mas grandes ultimamente solo me pasan a mi. Pero la verdad en todos los sitios que he mirado (oleview, hardcoreinfo y otros) el ProgID es con la primera en mayúsculas, incluso en el regedit esta tambien en mayusculas, y por lo que veo el ejemplo que me mando Antonio que tiene un exe y que me funcionaba, tambien esta con la primera en mayusculas.\n\nAntonio tienes idea de porque me ocurre esto a mi, bueno y a otros.... ????','',0,'Qg==','15stp0pc',1,0,'',413,0,0),(26301,5901,20,49,0,'213.82.134.66',1170926636,1,0,1,1,1,1,'','conversione degli items di un combobox','Caro Emg ho visto la tua risposta sull\'altro forum \nil mio problema è semplice \nIn automatico con una mia  funzione specifica quando apro un archiviomi carico il testo dell\'index di questo archivio cioè \"per nome\", \"per cognome\" caricandolo in un array e con il combobox  potevo far funzionare gli items dello stesso  poi mettendo naturalmente un \"on change  selindex(ocbx:nAt)\" cosi il listbox si indicizzava sull\'indice prescelto .\n\nAdesso eliminando il combobox dal dialogo volendo usare il tab in fondo al xbrowse volevo fare la stessa cosa  cioè farmi visualizzare tanti tabs per quanti indici dell\'archivio  quindi su aa[1] verrà memorizato  \"per nome\", in aa[2] verrà memorizzato  \"per cognome\"  .\nse io metto l\'array nell\'istruzione @tabs... Items aa  quando vado a compilare mi fa errore STRtran  come mai ?\n\nSpero che tu abbia capito il problema \ngrazie','',0,'','yyhmqbev',1,0,'',49,0,0),(26302,5826,3,49,0,'213.82.134.66',1170927100,1,0,1,1,1,1,'','','How I can show in a window all pc link to me ( server) ?','',0,'','1h5l4jk0',1,0,'',49,0,0),(26303,5901,20,6,0,'87.13.209.231',1170928031,1,0,1,1,1,1,'','Re: conversione degli items di un combobox','Francamente no, non l\'ho capito. Probabilmente perché non conosco l\'xBrowse. Ma il mio esempio c\'entra qualcosa con il tuo problema?\n\nEMG','',0,'','10v5ys0s',1,0,'',6,0,0),(26304,5901,20,49,0,'213.82.134.66',1170928849,1,0,1,1,1,1,'','','no non centra il xbrowse\n\nimmagina di avere un listbox e sotto al listbox ho posizionato un controllo tab  con diversi tab \" per nome\",\"per cognome\",\"per città\"\n\nnel vecchio programma io non usavo i tab ma usavo un combo dove mi caricavo  gli items del combo in   un  array  aaa[n]\nperò in non so di preciso il numero n  \n\ncon una mia funzione quando apro l\'archivio vado a controllare in un archivio di sistema  quanti e quali indici abbia questo archivio ad esempio clienti  ha tre indici il primo  è per nome  quindi inserisco nell\'array la stringa \"per nome\"  e cosi via \n\nnel vecchi programma io usavo un combo nel quale erano visualizzati tutti questi items \n\nl\'utente selezionava un item e il listbox automaticamente si indicizzava sull\'indice relativo \n\nREDEFINE COMBOBOX oCbx VAR cVar ITEMS [b:20ker7nz]aIdx[/b:20ker7nz] ID 210 OF oDlg; \nON CHANGE Sel_Index(oCbx) \n\n\n\n\nOra io vorrei sostituite il combo con il tab  cosi che l\'utente finale potesse cliccare su ogni prompt del tab e indicizzare il listbox per l\'indice relativo \n\nquindi devo fare un\'istruzione :\n@ nGridBottom, nSplit+2 TABS oApp():oTab ; \nOPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 12 PIXEL OF oApp():oDlg ; \nITEMS [b:20ker7nz]aIdx [/b:20ker7nz]\n\n\ndove [b:20ker7nz]aIdx [/b:20ker7nz] è l\'array con le stringhe relative agli indici \n\nperò quando compilo mi fa errore strtran\n\nspero tu abbia capito adesso','',0,'QA==','20ker7nz',1,0,'',49,0,0),(26305,5900,6,439,0,'200.125.47.98',1170930248,1,0,1,1,1,1,'','','Sinceramente, no se si ese sea el problema porque yo no tuve problemas con los spinners con versiones anteriores a la 0.99.70, por ejemplo con FWH Marzo 2006 y .99.60 no tuve problemas.\n\nHas compilado las libs correspondientes con tu versión de harbour?\n\nEspero te ayude.','',0,'QA==','22kzr179',1,0,'',439,0,0),(26306,5902,3,300,0,'201.67.92.181',1170932858,1,0,1,1,1,0,'','TBMENU erro de sintaxe','Olá,\n\nDEFINE TBMENU OF oToolBar ;\n          TOOLTIP \"Tabelas gerais\" ;\n          PROMPT  \"&amp;Tabelas\";\n          MENU TABELA()\n\nMe dá E0030 Syntax Error at \'TBMENU\'\n\nSalu2','',0,'QA==','1makqbbu',1,0,'',300,0,0),(26307,5901,20,6,0,'87.13.209.231',1170935786,1,0,1,1,1,1,'','','Visualizza il contenuto di aIdx e dimmi cosa contiene esattamente.\n\nEMG','',0,'QA==','lhmx8fzf',1,0,'',6,0,0),(26308,5902,3,300,0,'201.67.92.181',1170939305,1,0,1,1,1,0,'','','Resolvido!\n\nTbMenu não aceita SIZE?\n\nSalu2','',0,'QA==','2xlns6f6',1,0,'',300,0,0),(26309,4134,4,267,0,'200.208.238.2',1170940792,1,0,1,1,1,1,'','','Richard,\n\nIt forgives the insistence, but still I did not obtain to send archives saw ftp. \n\nI have that to make some special configuration in mine pocket ?\n\nYou can execute in its pocket the example that I mounted to see if the archive arrives complete in my site?','',0,'QA==','2e7fxkl8',1,0,'',267,0,0),(26310,5886,6,41,0,'200.105.194.235',1170943252,1,0,1,1,1,0,'','','Hola,\n\naqui te mando un DBCOMBO modificado, el archivo de cabecera es como sigue (para redefine)\n\n[quote:gintf1mm]\n#xcommand REDEFINE DBCOMBO [ &lt;oCbx&gt; VAR ] &lt;cVar&gt; ;\n             [ &lt;items: ITEMS, PROMPTS&gt; &lt;aItems&gt; ] ;\n             [ ID &lt;nId&gt; ] ;\n             [ &lt;dlg:OF,WINDOW,DIALOG&gt; &lt;oWnd&gt; ] ;\n             [ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ;\n             [ ON CHANGE &lt;uChange&gt; ] ;\n             [ VALID   &lt;uValid&gt; ] ;\n             [ &lt;color: COLOR,COLORS&gt; &lt;nClrText&gt; [,&lt;nClrBack&gt;] ] ;\n             [ &lt;update: UPDATE&gt; ] ;\n             [ MESSAGE &lt;cMsg&gt; ] ;\n             [ WHEN &lt;uWhen&gt; ] ;\n             [ BITMAPS &lt;acBitmaps&gt; ] ;\n             [ ON DRAWITEM &lt;uBmpSelect&gt; ] ;\n	     [ ALIAS &lt;cAlias&gt; ] ;\n	     [ ITEMFIELD &lt;cFldItem&gt; ] ;\n	     [ LISTFIELD &lt;cFldList&gt; ] ;\n             [ &lt;list: LIST, PROMPTS&gt; &lt;aList&gt; ] ;\n	     [ &lt;noblank: NOBLANK&gt;] ;\n             [ ORDER &lt;orden&gt; ] ;\n	     [ FOR &lt;uCond&gt; ] ;\n       =&gt; ;\n          [ &lt;oCbx&gt; := ] TDBCombo():ReDefine( &lt;nId&gt;, bSETGET(&lt;cVar&gt;),;\n             &lt;aItems&gt;, &lt;oWnd&gt;, &lt;nHelpId&gt;, &lt;{uValid}&gt;, [{|Self|&lt;uChange&gt;}],;\n             &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;cMsg&gt;, &lt;.update.&gt;, &lt;{uWhen}&gt;,;\n             &lt;acBitmaps&gt;, [{|nItem|&lt;uBmpSelect&gt;}], ;\n             &lt;cAlias&gt;, &lt;cFldItem&gt;, &lt;cFldList&gt;, &lt;aList&gt;, &lt;.noblank.&gt;, &lt;{uCond}&gt;, &lt;orden&gt; )\n[/quote:gintf1mm]\n\nPodras observar que existen 3 modificaciones\n\nNOBLANK para que el primer elemento mostrado no sea blanco\nORDER en caso que la tabla tenga un indice puedes elegir por cual         quieres que se ordene\nFOR defines la condicion de los datos que se presentaran en el combo\n\nY el siguiente es un ejemplo de como utilizarlo\n[quote:gintf1mm]\n     REDEFINE DBCOMBO oCbx1 ;\n                  VAR oDbf:pais ;\n                   ID 105 ;\n                   OF oDlg ;\n                ALIAS \"pais\" ;\n            ITEMFIELD \"c_pais\" ;\n            LISTFIELD \"pais\" ;\n            ON CHANGE ( oCbx2:bFor := &amp;(\"{|| ciudad -&gt; c_pais =\'\" + oDBf:pais + \"\' }\"),;\n                        oCbx2:refill( .T. ), ;\n                        oCbx2:Refresh(), ;\n                        EVAL( oCbx2:bChange );\n                       ) ;\n                 WHEN ! cJob $ \"del,view\"\n\n     REDEFINE DBCOMBO oCbx2 ;\n                  VAR oDbf:ciudad ;\n                   ID 106 ;\n                   OF oDlg ;\n                ALIAS \"ciudad\" ;\n            ITEMFIELD \"c_ciudad\" ;\n            LISTFIELD \"ciudad\" ;\n                  FOR ciudad -&gt; c_pais = oDbf:pais ;\n            ON CHANGE ( oCbx3:bFor := &amp;(\"{|| provincia -&gt; c_pais =\'\" + oDBf:pais + \"\' .AND. provincia -&gt; c_ciudad =\'\" + oDBf:ciudad + \"\' } \"),;\n                        oCbx3:refill( .T. ), ;\n                        oCbx3:Refresh() ;\n                       );\n                 WHEN ! cJob $ \"del,view\"\n\n     REDEFINE DBCOMBO oCbx3 ;\n                  VAR oDbf:prov ;\n                   ID 107 ;\n                   OF oDlg ;\n                ALIAS \"provincia\" ;\n            ITEMFIELD \"c_prov\" ;\n            LISTFIELD \"prov\" ;\n                  FOR provincia -&gt; c_pais = oDbf:pais .AND. provincia -&gt; c_ciudad = oDbf:ciudad ;\n                 WHEN ! cJob $ \"del,view\"\n[/quote:gintf1mm]\n\ny aqui te dejo donde bajar el fuente\n\n\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02fe4ef127/dbcombo.zip.html\">http://hyperupload.com/download/02fe4ef ... o.zip.html</a><!-- m -->[/url]\n\nsaludos[/url]','',0,'gA==','gintf1mm',1,0,'',41,0,0),(26311,5903,1,86,0,'213.119.103.68',1170944002,1,0,1,1,1,1,'','Preprocessor table overflow','Hello,\n\nSince I started using FW 2.8, I always got an C3048 Preprocessor table overflow.\n\nThat never happened to me before.\n\nWhat\'s wrong ?\n\nThanks.\n\nMichel D.\nM&amp;A Consult bvba\nGenk (Belgium)','',0,'gA==','34svkn5n',1,0,'',86,0,0),(26312,5832,3,879,0,'65.92.175.236',1170945912,1,0,0,1,1,0,'','','Maurizio,\n\nHave you tried to send an email to the makers of UESTUDIO at <!-- e --><a href=\"mailto:idm@idmcomp.com\">idm@idmcomp.com</a><!-- e -->? They respond quickly with either an answer or a fix. \n\nI have been working with IDM recently to create an improved config file used to build apps using xHarbour, FiveWin using the Borland compiler. I am not certain if the latest config file has been released yet but my testing so far looks good. \n\nAs added info, some time ago there was also posted a message regarding the Custom Control. I could find no problem with my copy of UEStudio but reported it anyway to insure that the current version was indeed fixed. \nRegards,\n\nKen','',0,'gA==','2ostywqi',1,1171288889,'',879,1,0),(26313,5832,3,2,0,'87.218.146.177',1170952402,1,0,1,1,1,1,'','','Ken,\n\n&gt;\nI have been working with IDM recently to create an improved config file used to build apps using xHarbour, FiveWin using the Borland compiler.\n&gt;\n\nWill you mind to share them with us ? thanks,','',0,'gA==','27n2h0ai',1,0,'',2,0,0),(26314,5903,1,138,0,'189.141.72.59',1170952653,1,0,1,1,1,1,'','','Long time I haven\'t seen that message.\n\nIt\'s due because you don\'t have enough memory to load all the needed .CH files into memory, a very common error with Clipper, that doesn\'t happen under harbour.\n\nWhat you need is to edit the FIVEWIN.CH file and comment the lines you are not going to need such as OBJECTS.CH, ODBC.CH.','',0,'gA==','13jozp3b',1,0,'',138,0,0),(26315,5903,1,303,0,'72.199.41.171',1170953032,1,0,1,1,1,0,'','','Michel,\n\nBelow are some old messages on this topic.\n\nJames\n\n----------------------------------------\nFrom: \"Roger Cheng\" &lt;roger56@flashmail.com&gt;\nSubject: How can I fix it ?\nDate: Tuesday, June 19, 2001 11:09 PM\n\nWhen I compiler my AP .....\n\nIt happen that : C3048 Processor table overflow\n\nHow can I fix it ?\n----------------------\nFrom: \"Bernd Schnieder\" &lt;bschnieder@t-online.de&gt;\nSubject: Re: How can I fix it ?\nDate: Tuesday, June 19, 2001 11:52 PM\n\nI assume you use Clipper 5.3.\nYou can do this:\n1. Disable all the included *.ch files in FiveWin.lnk which you dont need.\n2. The best for me was the trick which Antonio posted here: even if you use Clipper 5.3 use the clipper.exe from 5.2\n\nGruesse,\nBernd\n--------------------------\nFrom: \"Manuel  Mercado\" &lt;mmercadog@prodigy.net.mx&gt;\nSubject: RE: How can I fix it ?\nDate: Wednesday, June 20, 2001 1:19 AM\n\nRoger:\n\nInclude these lines at the very beginning of your program:\n\n#define   _VIDEO_CH  // if you don\'t use videos in your app\n#define   _DDE_CH     //  if you don\'t use dde\'s and so on\n#define   _ODBC_CH\n#define   _DLL_CH\n#define   _TREE_CH\n\nRegards,\nManuel Mercado.\nSalamanca, Gto., México.','',0,'gA==','3njmp85d',1,0,'',303,0,0),(26316,5901,20,49,0,'213.82.134.66',1170956561,1,0,1,1,1,1,'','','ok\nse faccio ? aidx[1]  \nmi da  \"per nome\"\n\nse faccio ? aidx[2]  \nmi da  \"per cognome\"\n\nma se faccio ? aidx \nmi da  \n\nparentesigraffa aperta    tre puntini         parentesigraffa chiusa\n\nsecondo te si puo\' fare qualcosa ?','',0,'','59kif0si',1,0,'',49,0,0),(26317,5901,20,6,0,'87.21.195.200',1170956969,1,0,1,1,1,1,'','','Trovato! Fai così:\n\n[code:5615cp9z]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oTabs\n\n    LOCAL aIdx &#58;= &#123; &quot;Per nome&quot;, &quot;Per cognome&quot; &#125;\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 BUTTON &quot;Change&quot;;\n           ACTION &#40; oTabs&#58;aPrompts&#91; 2 &#93; &#58;= &quot;Changed&quot;,;\n                    oTabs&#58;Refresh&#40;&#41; &#41;\n\n    @ 2, 0 TABS oTabs;\n           OPTION 2\n\n    oTabs&#58;aPrompts = aIdx\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:5615cp9z]\n\nEMG','',0,'AIA=','5615cp9z',1,0,'',6,0,0),(26318,5903,1,2,0,'87.218.146.141',1170961232,1,0,1,1,1,1,'','','Michel,\n\nAlso, if you are using rmake.exe, you may switch to use Borland maker.exe as it frees all used memory, so Clipper has more memory to preprocess.','',0,'AIA=','24wvylu1',1,0,'',2,0,0),(26319,5880,6,2,0,'87.218.146.141',1170961312,1,0,1,1,1,1,'','','Andrés,\n\nYa funciona bien ?','',0,'AIA=','1p9akm92',1,0,'',2,0,0),(26320,5904,2,812,0,'201.236.181.179',1170961565,1,0,1,1,1,0,'','FAVOR NECESITO AYUDA URGENTE','Amigos:\n\nTengo un problema de validacion en un Get, que necesito resolver en forma urgente, el caso es el siguiente:\n\nClipper 5.3b, Fivewin 2.4, Blinker 7.0\n\nCodigo Fuente:\n\n\nRedefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update \n      Picture \"############\"  Color \"w+/b*\";\n     Valid (Verirut(cRut,\"C\",\"oDbclien\",3,.t.),iIf(lPara,oNom_cli1:Refresh(),.t.))\n\nRedefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture \"@!\"  Color \"w+/b*\"\n\nLa Rutina Verirut = Permite validar el Rut con un calculo matematico, probrado, despues de validar en la misma rutina, consulta si existe el cliente con ese rut, si existe debe devolver un .T. o .F. sin no existe, la consulta por lPara, si trae .T. muestro el nombre del cliente que viene en la variable Nom_cli1 del Id 152, de lo contrario debe pedir nuevamente el rut.\n\nOjo, Antes de volver de la rutina de Verirut, Nom_cli y lPara, traen los Valor .T. y el Nombre del cliente.\n\nEl ERROR que me arroja es el siguiente:\nApplication\n===========\n   Path and name: C:\\UTIL\\VTADPTO\\INMOBILI.EXE (16 bits)\n   Size:   464,896 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Time from start: 0 hours 0 mins 15 secs\n   Error occurred at: 08/02/2007, 15:54:57\n   Error description: Error BASE/1077  Argument error: .NOT.\n   Args:\n     [   1] = U\n***\n\nAtentamente,\n\nMiguel Rivera','',0,'','1fkofrxm',1,0,'',812,0,0),(26321,5904,2,2,0,'87.218.146.141',1170961851,1,0,1,1,1,1,'','','Miguel,\n\nte faltan un .F. y dos paréntesis:\n\nValid (Verirut(cRut,\"C\",\"oDbclien\",3,.t.),iIf(lPara,[color=red:sefvpoj9]([/color:sefvpoj9] oNom_cli1:Refresh(), [color=red:sefvpoj9].F. )[/color:sefvpoj9] ,.t.))','',0,'Ag==','sefvpoj9',1,0,'',2,0,0),(26322,4134,4,3,0,'82.255.243.198',1170962337,1,0,1,1,1,1,'','','Hello Vilian\n\nSorry i was on vacation for the last week. Needed some sunshine...\n\nBack to FTP, \n\nIf you are connected to the PC (window 2003 server) from your pocket, then you are on a \"local\" connexion, in this case, ftp wil not work. You will need just a copy file to copy from the pocket to windows 2003 server. This is what we do when the pocket is local (never use ftp in local mode, we use cecopy instead to copy from the PC to the pocket)\n\nJust make sure your pocket is \"not connected\" to the pc when you want to use ftp.\n\nHTH\n\nRichard','',0,'Ag==','2qlphz8i',1,0,'',3,0,0),(26323,5904,2,812,0,'201.236.181.179',1170963274,1,0,1,1,1,0,'','','Antonio:\n\nSe ha corregido el erro con tu indicacion, pero cuando se cumplen las dos condiciones, es decir, el Rut=Correcto, lPara=.T. y Existe cliente, este muestra el nombre, pero SIGUE PIDIENDO EL RUT, no me permite salir del Get.\n\nCual es el Error ?\n\nEn espera,\n\nMiguel\n\n\n\n\n\n[quote=&quot;Antonio Linares&quot;:3m5varz0]Miguel,\n\nte faltan un .F. y dos paréntesis:\n\nValid (Verirut(cRut,\"C\",\"oDbclien\",3,.t.),iIf(lPara,[color=red:3m5varz0]([/color:3m5varz0] oNom_cli1:Refresh(), [color=red:3m5varz0].F. )[/color:3m5varz0] ,.t.))[/quote:3m5varz0]','',0,'gg==','3m5varz0',1,0,'',812,0,0),(26324,5880,6,413,0,'217.125.9.228',1170963329,1,0,1,1,1,0,'','','Antonio funcionar despues de cambiarle la primera letra por una en minuscula sí funciona. Pero la verdad no hacierto a comprender porque me pasa eso, el tuyo funciona y tu ejemplo tiene la primera en mayusculas. Supongo que es algo que no tiene que ver con el activex, puesto que tanto en el registro como en los programas que hay para ver los controles ponen el ProgID con la primera letra en mayuscula, asi que seguro que hay algo que me afecta. Se te ocurre algo... la verdad en el tema del activex estoy aprendiendo lentamente y[color=blue:130skylu] te pido disculpas si soy un poco pesado[/color:130skylu].','',0,'Ag==','130skylu',1,0,'',413,0,0),(26325,5905,6,41,0,'200.105.194.235',1170963543,1,0,1,1,1,0,'','Problemas con acentos','Holas,\n\ntengo un problema de no poder desplegar bien los acentos, tanto en los tooltips de una toolbar como en un say. Intente con OEMTOANSI, ANSITOOEM, estoy utilizando codepage aun con todo eso nada, alguna sugerencia ?\n\nUtiliza FWH 2.6 xHb .99.6 Bcc 5.5\n\nsaludos\n\nMarcelo','',0,'Ag==','2sope8l3',1,0,'',41,0,0),(26326,5906,7,400,0,'200.205.49.10',1170963705,1,0,1,1,1,1,'','Comunicaçao entre Pocket e PC ?','Boa Tarde;\n\nTenho que transmitir o Banco de Dados do Palm para o PC via Wireless.\n\nGostaria de saber que classe usar ?\n\nSeria via FTP ?\n\nAlguem tem algum exemplo pra eu dar uma olhada ?\n\n\n@braços Ale','',0,'Ag==','2hgg7cyv',1,0,'',400,0,0),(26327,5904,2,812,0,'201.236.181.179',1170966880,1,0,1,1,1,0,'','Sigo con el problema en el Get','Antonio:\n\nQue Get, valida correctamente, pero NO sale del get, no como sacarlo y que pase a los otros gets,\n\nEn espera de una respuesta, se despide,\n\nMiguel\n\n\n[quote=&quot;Antonio Linares&quot;:3ez3s9ak]Miguel,\n\nte faltan un .F. y dos paréntesis:\n\nValid (Verirut(cRut,\"C\",\"oDbclien\",3,.t.),iIf(lPara,[color=red:3ez3s9ak]([/color:3ez3s9ak] oNom_cli1:Refresh(), [color=red:3ez3s9ak].F. )[/color:3ez3s9ak] ,.t.))[/quote:3ez3s9ak]','',0,'gg==','3ez3s9ak',1,0,'',812,0,0),(26328,5905,6,138,0,'189.141.72.59',1170967003,1,0,1,1,1,1,'','','Utiliza un editor de textos para Windows (el notepad por ejemplo) para editar tu codigo fuente, pon tus acentos como normalmente lo haces y veras que no tienes ningun problema para desplegar acentos.','',0,'gg==','2c2hmvku',1,0,'',138,0,0),(26329,5907,2,812,0,'201.236.181.179',1170969671,1,0,1,1,1,0,'','PARA ANTONIO URGENTE','Antonio:\n\nAplique lo que me indicastes, se corrigio el error, pero no logro salir del GET, aunque se cumplan las condiciones, es decir Rut correcto, Cliente existe, pero me sigue pidiendo el rut.\n\nNecesito que cuando se cumpla la condicion, pase a los otros Gets.\n\nEl Codigo:\n\n     Redefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update Picture \"############\"  Color \"w+/b*\";\n              Valid (Verirut(cRut,\"C\",\"oDbclien\",3,.t.),iIf(lPara,(oNom_cli1:Refresh(),.f.),.t.))\n\nEn espera de una respuesta,\n\nTe saluda atentamente,\nMiguel Rivera','',0,'gg==','1mgs3af6',1,0,'',812,0,0),(26330,5905,6,41,0,'200.105.194.235',1170970736,1,0,1,1,1,0,'','','Rene,\n\nmuchas gracias por contestar, estoy utilizando xMate, y va muy bien, con cualquier otro editor puedo ver correctamente los acentos al igual que en xmate.\n\nEL acento en los SAY ya esta solucionado, estaba utilizando la funcion\nCDOW y con un OEMTOANSI todo OK, pero no asi los tooltips de los botones de una toolbar.\n\nBueno, aun no me meti al codigo fuente, veremos que sale\n\nsaludos y muchas gracias por tu ayuda como siempre\n\nMarcelo','',0,'gg==','1i22xkf8',1,0,'',41,0,0),(26331,5903,1,707,0,'125.163.110.0',1170975767,1,0,1,1,1,0,'','','Hi All !\n\nOr quality of physical memory not good\nI used visipro is good.\n\nRegards\nAreang','',0,'gg==','mxr78h2j',1,0,'',707,0,0),(26332,5908,3,86,0,'213.119.103.68',1170975842,1,0,1,1,1,1,'','RES or RC from 16- to 32-bit','Hello,\n\nI want to start migrating my FW 16-bit applications to xHarbour.\n\nCan anyone tell me how to migrate 16-bit RES- or RC-files to 32-bit RES- or RC-files ?\n\nThanks.\n\nMichel DRIESSEN\nM&amp;A Consult bvba\nGenk (Belgium)','',0,'gg==','2zgcstp1',1,0,'',86,0,0),(26333,5899,1,819,0,'216.34.194.113',1170976118,1,0,1,1,1,0,'','','hi easywin,\n\nKindly confirm that the environment is Clipper52, FW24 and Windows XP.\n\nThanks,','',0,'gg==','1uc5jjvm',1,0,'',819,0,0),(26334,5886,6,203,0,'190.11.21.80',1170976751,1,0,1,1,1,1,'','','Marcelo antes que nada gracias\nIntente bajarlo pero no se pudo me dice que no se encuentra el archivo\nseria mucha molestia melo envies a mi correo\n\n<!-- e --><a href=\"mailto:easysoft@andinanet.net\">easysoft@andinanet.net</a><!-- e -->\n\nSaludos\nOscar','',0,'gg==','236ffogt',1,0,'',203,0,0),(26335,5908,3,2,0,'87.218.146.141',1170977597,1,0,1,1,1,1,'','','Michel,\n\nChange \"TFolder\" into \"SysTabControl32\".\n\nAdd these lines to support themes:\n#ifdef __FLAT__\n  1 24 \"WinXP/WindowsXP.Manifest\" \n#endif\n\n\"WinXP/WindowsXP.Manifest\" is a file located at samples\\winxp directory\n\nBesides this, all you have to do is recompile your RC using Borland brc32.exe as used from samples\\buildx.bat','',0,'gg==','2g8p4ofr',1,0,'',2,0,0),(26337,5901,20,49,0,'62.13.168.78',1170979936,1,0,1,1,1,1,'','','si funziona l\'esempietto solo che io non so quanti indici ha un archivio \ncioè io uso un archivio di systema con questi campi \ntabella = nome dell\'archio per esempio clienti.dbf\nindex = nome del tag cdx per esempio clinum.cdx\nchiave = nome della chiave sul quale indicizzare l\'archivio per esempio numcli\nfilename = informazioni dell\'archivio per esempio anagrafica clienti \ncommento = testo dell\'indice per esempio \"per numero\"\n\nper ogni archivio dbf io inserisco in questo archivio di sistema tante linee quanti sono gli indici \n\nnella funzione Apri_dbf io mi apro il file in rete  gli assegno un alias e vado a indicizzare l\'archivio per tutti gli indici e setto nell\'array  aidx il commento relativo agli indici creati per quell\'archivio \nin sostanza per aprire un file faccio :\n  [code:3kjbszy9]\n  oDCli&#58;=Apri_dbf&#40;&quot;Soci&quot;,&#46;T&#46;,&#46;T&#46;,aIdx&#41;\n   &#40;oDCli&#41;-&gt;&#40;OrdSetFocus&#40;2&#41;&#41;\n   &#40;oDCli&#41;-&gt;&#40;DbGoTop&#40;&#41;&#41;\n   cVar&#58;=aIdx&#91;2&#93;[/code:3kjbszy9]\n\n\nla quarta linea non vuol dire che di indici ce ne sono due ma setto la variabile cvar al secondo index\n\nTutto questo per farti capire che io in realtà non conosco il numero degli indici glielo faccio calcolare in automatico con la funzione apri_dbf facendogli un loop nell\'archivio di sistema detto sopra per cui lui apre l\'archivio , caricagli indici e i commenti in aIdx , fa il focus nel secondo indice , va all\'inizio del file, e assegna la variabile cvar\nla variabile cvar mi serviva nel combobox\nio uso questa tecnica per usare tanti archivi in un programma senza incappare nel famoso errore \"alias don\'t exist\" specialmente quando uso diverse finestre in mdi con gli stessi archivi , asegnando loro diversi alias \nquesta tecnica funzionante l\'ho trovata in un vecchio programma di contabilità in clipper , e non mi ha dato mai problemi \n\nse vuoi ti invio in privato le funzioni \napri_dbf/chiudi_dbf/verify_dbf/occupato','',0,'AIA=','3kjbszy9',1,0,'',49,0,0),(26338,5904,2,774,0,'200.72.191.236',1170982528,1,0,1,1,1,1,'','','Miguel, \n\n\nValid (Verirut(cRut,\"C\",\"oDbclien\",3,.t.),iIf(lPara,( oNom_cli1:Refresh(), .T. ) ,.F.))\n\n\nNose porque no hiciste una validacion asi::\n\nValid Verirut(blablabla)  --------&gt; se supone q veritut retorna con Return .T. o Return .F. si se sale del Valid o no,, dentro de Verirut incluyes el refresh de la variable...','',0,'AIA=','hj58l9fw',1,0,'',774,0,0),(26339,5910,6,196,0,'190.48.196.165',1170983632,1,0,1,1,1,0,'','Antonio, seguramente es una tonteria','Hola Antonio, estoy estrenando la nueva version y cuando compilo con el Borland me da en todos los prg este mismo error.\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nC\\INICIO.c:\nError E2451 C\\INICIO.c 197: Undefined symbol \'HB_FS_LOCAL\'\nError E2141 C\\INICIO.c 197: Declaration syntax error\nError E2190 C\\INICIO.c 197: Unexpected }\nError E2190 C\\INICIO.c 197: Unexpected }\nError E2040 C\\INICIO.c 197: Declaration terminated incorrectly\nError E2190 C\\INICIO.c 197: Unexpected }\nError E2190 C\\INICIO.c 197: Unexpected }\nError E2040 C\\INICIO.c 197: Declaration terminated incorrectly\nError E2451 C\\INICIO.c 431: Undefined symbol \'hb_vm_SymbolInit_INICIO\'\n*** 9 errors in Compile ***\n\nSolucionando esto, ya recompilo todos mis sistemas.\n\nSaludos y gracias\nJorge Jaurena','',0,'AIA=','2efpyl5s',1,0,'',196,0,0),(26340,5900,6,913,0,'189.136.167.197',1170984392,1,0,1,1,1,1,'','Hola Jose','[color=violet:3scvuvpk][b:3scvuvpk]segui tu comentario y recompile toda la LIB  pero en el FWCAL.PRG me salieron un monton de errores <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  y no me deja hacer la LIB <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->   me podrias prestar la BTNGET32.LIB que tienes tu <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  a ver si me funcionan.[/b:3scvuvpk][/color:3scvuvpk]\n\n[color=red:3scvuvpk]ya pedi costos del ultimo Fivewin para Harbour pero es algo costoso tendre que juntar mas para romper el cochinito y comprarlo pero si me comprare unas de CanalFive que me encantaron <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  \nCanalFive VTaskBar y CanalFive TOutlookBar espero que sean compatibles <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  con el fivewin Harbour que tengo, mientras junto para comprarme el ultimo y reluciente FWH 7.01 <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> [/color:3scvuvpk]\n\nEspero tu respuesta\n\nGracias\n\nAida','',0,'Qg==','3scvuvpk',1,0,'',913,0,0),(26341,5904,2,812,0,'201.214.35.184',1170989974,1,0,1,1,1,0,'','','Claudio:\n\nComo estas, lo que sucede esque la rutina valida el rut, pero ademas permite consultar la existencia del rut, en la base. \n\nMira, lo que esta haciendo, asi, se cumplen las dos, es decir rut correcto y existe en la base, por lo que debe muestra el nombre, pero me sigue pidiendo el rut, si por la validacion como tu dices. Cualquiera sea el resultado, ya sea rut incorrecto, no existe en la base, pasa igual a los demas get, me entiendes, debe pasar a los demas get, solo si se cumple la condicion.\n\nSaludos,\n\nMiguel\n\n[quote=&quot;A&amp;C&quot;:2y7u528v]Miguel, \n\n\nValid (Verirut(cRut,\"C\",\"oDbclien\",3,.t.),iIf(lPara,( oNom_cli1:Refresh(), .T. ) ,.F.))\n\n\nNose porque no hiciste una validacion asi::\n\nValid Verirut(blablabla)  --------&gt; se supone q veritut retorna con Return .T. o Return .F. si se sale del Valid o no,, dentro de Verirut incluyes el refresh de la variable...[/quote:2y7u528v]','',0,'gA==','2y7u528v',1,0,'',812,0,0),(26342,5911,6,913,0,'189.136.167.197',1170993393,1,0,1,1,1,1,'','se puede hacer un COMBOBOX automatico?','Hola a todos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSe puede hacer que un conbobox se abra la lista de los datos que reciba de una busqueda <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  para que el usuario no tenga que darle clik al COMBOBOX y si se puede que tengo que hacer\n\n\nGracias\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2765gfuy',1,0,'',913,0,0),(26343,5900,6,397,0,'201.26.12.225',1170999324,1,0,1,0,1,1,'','','Aida\n\nrecompila tua BTNGET32.LIB con tu nueva version de Harbour.','',0,'gA==','2i9wsvld',1,0,'',397,0,0),(26344,5901,20,6,0,'87.21.195.117',1171007379,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1zqsbcvd]si funziona l\'esempietto solo che io non so quanti indici ha un archivio[/quote:1zqsbcvd]\n\nNon ha importanza quanti elementi abbia aIdx. Riempilo e poi assegnalo ad aPrompts come ti ho fatto vedere e vedrai che funziona.\n\nEMG','',0,'gA==','1zqsbcvd',1,0,'',6,0,0),(26345,5912,3,67,0,'81.11.199.87',1171008169,1,0,1,1,1,0,'','Printing horizontal and vertical text','Hello,\n\nI have to print horizontal and vertical text on the same page.\n\nIs it possible ?\n\nFrank','',0,'gA==','xe7scy1q',1,0,'',67,0,0),(26346,5910,6,2,0,'87.218.146.141',1171008176,1,0,1,1,1,1,'','','Has instalado el Harbour ó xHarbour que corresponde a esa versión de FWH ?','',0,'gA==','39qfzkkk',1,0,'',2,0,0),(26347,5912,3,2,0,'87.218.146.141',1171010435,1,0,1,1,1,1,'','','Frank,\n\nYou may use different fonts, for vertical text here you have a sample:\n\nDEFINE FONT oFntV NAME \"Arial\" SIZE 0,-4.5 BOLD NESCAPEMENT 900 OF oPrn \n\noPrn:cmSay( 9.5, 0.6, \"test\", oFntV )','',0,'gA==','3nvx9cjq',1,0,'',2,0,0),(26348,5912,3,785,0,'190.64.196.133',1171010631,1,0,1,1,1,0,'','','Frank:\n\nYes, try with NESCAPEMENT or something like this when define\nthe font\n\nDefine Font oFont NAME \"MS SANS SERIF\" Size 0,-15 NESCAPEMENT 360 &lt;- this is the number to do it. Try with it.\n\nRegards\n\nRuben Fernandez','',0,'gA==','3d4r1jqx',1,0,'',785,0,0),(26349,5912,3,67,0,'81.11.199.87',1171012229,1,0,1,1,1,0,'','','Antonio , Ruben\n\nThanks , with nescapement 900 or -900 it works , not with 360\n\n[code:dqje64e5]\n# include &quot;fivewin&#46;ch&quot;\nFUNCTION MAIN\nLOCAL oPrn   , cTitle &#58;= &quot;merging horizontal and vertical text&quot;\nLOCAL Font , oFntV\nPRINT oPrn NAME cTitle PREVIEW MODAL\nDEFINE FONT oFntV NAME &quot;Arial&quot; SIZE 0,-15 BOLD NESCAPEMENT -900 OF oPrn \nDefine Font oFont NAME &quot;MS SANS SERIF&quot; Size 0,-15 NESCAPEMENT 360 oF oPrn\nPAGE\n  oprn&#58;cmsay&#40;5,5,&quot;HORIZONTAL&quot;&#41;\n  oprn&#58;cmsay&#40;10,15,&quot;VERTICAL 1&quot;,oFntV&#41;\n  oprn&#58;cmsay&#40;10,10,&quot;VERTICAL 2&quot;,oFont&#41;   // Doesn\'t work , horizontal printing\nENDPAGE\nENDPRINT\noFont&#58;end&#40;&#41;\noFont &#58;= nil\noFntV&#58;end&#40;&#41;\noFntv &#58;= nil\nRETURN nil	 \n[/code:dqje64e5]','',0,'AIA=','dqje64e5',1,0,'',67,0,0),(26350,5826,3,160,0,'220.225.17.210',1171018763,1,0,1,1,1,0,'','','Hello rochinha,\n\nFrom where can I get NLSOCK.OCX ?\n\nWith best regards,\n\nMilan.\n\n[quote=&quot;Rochinha&quot;:1cghic0z]Hello Friends\n\nI use one proprietary solution, geting a serial number in the server with nSerialHD, inputing a password code liberation and saving inside .EXE. The application runs on other computer with no problems, but don\'t moved.\n\nOriginal post in <!-- m --><a class=\"postlink\" href=\"http://www.pctoledo.com.br/forum/viewtopic.php?t=3275\">http://www.pctoledo.com.br/forum/viewtopic.php?t=3275</a><!-- m -->\n\nBut you can test NSLock.OCX too, review this post:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5089&amp;highlight=nslock\">http://fivetechsoft.com/forums/viewtopi ... ght=nslock</a><!-- m -->[/quote:1cghic0z]','',0,'gA==','1cghic0z',1,0,'',160,0,0),(26351,5906,7,720,0,'80.36.244.134',1171018842,1,0,1,1,1,0,'','','Hola Ale... \n\nSi quieres puedes probar con el siguiente codigo via ftp. A mi me ha funcionado... Solo debes modificar un par de cosillas, la ip del ftp, el usuario, la contraseña, el directorio remoto y el local. Espero te sirva.. Por cierto este codigo es del ftp.prg del directorio samples..... \n\n\n// FTP sample developed by Enrico Maria Giordano \n\n#include \"Fwce.ch\" \n\n// \n// File attributes \n// \n\n#define FILE_ATTRIBUTE_READONLY 1 \n#define FILE_ATTRIBUTE_HIDDEN 2 \n#define FILE_ATTRIBUTE_SYSTEM 4 \n#define FILE_ATTRIBUTE_DIRECTORY 16 \n#define FILE_ATTRIBUTE_ARCHIVE 32 \n#define FILE_ATTRIBUTE_NORMAL 128 \n#define FILE_ATTRIBUTE_TEMPORARY 256 \n\n\n// \n// access types for InternetOpen() \n// \n\n#define INTERNET_OPEN_TYPE_PRECONFIG 0 // use registry configuration \n#define INTERNET_OPEN_TYPE_DIRECT 1 // direct to net \n#define INTERNET_OPEN_TYPE_PROXY 3 // via named proxy \n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 4 // prevent using java/script/INS \n\n\n// \n// manifests \n// \n\n#define INTERNET_INVALID_PORT_NUMBER 0 // use the protocol-specific default \n\n#define INTERNET_DEFAULT_FTP_PORT 21 // default for FTP servers \n#define INTERNET_DEFAULT_GOPHER_PORT 70 // \" \" gopher \" \n#define INTERNET_DEFAULT_HTTP_PORT 80 // \" \" HTTP \" \n#define INTERNET_DEFAULT_HTTPS_PORT 443 // \" \" HTTPS \" \n#define INTERNET_DEFAULT_SOCKS_PORT 1080 // default for SOCKS firewall servers. \n\n\n// \n// service types for InternetConnect() \n// \n\n#define INTERNET_SERVICE_FTP 1 \n#define INTERNET_SERVICE_GOPHER 2 \n#define INTERNET_SERVICE_HTTP 3 \n\n\n// \n// flags for FTP \n// \n\n#define INTERNET_FLAG_TRANSFER_ASCII 1 \n#define INTERNET_FLAG_TRANSFER_BINARY 2 \n\n\nFUNCTION MAIN() \n\nLOCAL hInternet, hConnect \n\nhInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \n\nhConnect = INTERNETCONNECT( hInternet, \"Your ftp address\", INTERNET_INVALID_PORT_NUMBER, \"userid\", \"password\", INTERNET_SERVICE_FTP, 0, 0 ) \n\n// ? FTPGETFILE( hConnect, \"Your remote file\", \"Your local file\", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 ) \n\n? FTPPUTFILE( hConnect, \"Your local file\", \"Your remote file\", 0, 0 ) \n\nINTERNETCLOSEHANDLE( hConnect ) \n\nINTERNETCLOSEHANDLE( hInternet ) \n\nRETURN NIL \n\n\n#pragma BEGINDUMP \n\n#include \"windows.h\" \n#include \"wininet.h\" \n#include \"hbapi.h\" \n\n\nLPWSTR AnsiToWide( LPSTR ); \n\n\nHB_FUNC( INTERNETOPEN ) \n{ \nLPWSTR cAgent = AnsiToWide( hb_parc( 1 ) ); \nLPWSTR cProxyName = AnsiToWide( hb_parc( 3 ) ); \nLPWSTR cProxyBypass = AnsiToWide( hb_parc( 4 ) ); \n\nHINTERNET hInternet = InternetOpen( cAgent, hb_parnl( 2 ), cProxyName, cProxyBypass, hb_parnl( 5 ) ); \n\nhb_xfree( cAgent ); \nhb_xfree( cProxyName ); \nhb_xfree( cProxyBypass ); \n\nhb_retnl( ( LONG ) hInternet ); \n} \n\n\nHB_FUNC( INTERNETCLOSEHANDLE ) \n{ \nhb_retl( InternetCloseHandle( ( HINTERNET ) hb_parnl( 1 ) ) ); \n} \n\n\nHB_FUNC( INTERNETCONNECT ) \n{ \nLPWSTR cServerName = AnsiToWide( hb_parc( 2 ) ); \nLPWSTR cUserName = AnsiToWide( hb_parc( 4 ) ); \nLPWSTR cPassword = AnsiToWide( hb_parc( 5 ) ); \n\nHINTERNET hInternet = InternetConnect( ( HINTERNET ) hb_parnl( 1 ), cServerName, ( INTERNET_PORT ) hb_parnl( 3 ), cUserName, cPassword, hb_parnl( 6 ), hb_parnl( 7 ), hb_parnl( 8 ) ); \n\nhb_xfree( cServerName ); \nhb_xfree( cUserName ); \nhb_xfree( cPassword ); \n\nhb_retnl( ( LONG ) hInternet ); \n} \n\n\nHB_FUNC( FTPGETFILE ) \n{ \nLPWSTR cRemoteFile = AnsiToWide( hb_parc( 2 ) ); \nLPWSTR cNewFile = AnsiToWide( hb_parc( 3 ) ); \n\nhb_retl( FtpGetFile( ( HINTERNET ) hb_parnl( 1 ), cRemoteFile, cNewFile, hb_parl( 4 ), hb_parnl( 5 ), hb_parnl( 6 ), hb_parnl( 7 ) ) ); \n\nhb_xfree( cRemoteFile ); \nhb_xfree( cNewFile ); \n} \n\n\nHB_FUNC( FTPPUTFILE ) \n{ \nLPWSTR cLocalFile = AnsiToWide( hb_parc( 2 ) ); \nLPWSTR cNewRemoteFile = AnsiToWide( hb_parc( 3 ) ); \n\nhb_retl( FtpPutFile( ( HINTERNET ) hb_parnl( 1 ), cLocalFile, cNewRemoteFile, hb_parnl( 4 ), hb_parnl( 5 ) ) ); \n\nhb_xfree( cLocalFile ); \nhb_xfree( cNewRemoteFile ); \n} \n\n#pragma ENDDUMP \n\n\n\n\nSaludos... \n\nElías Torres','',0,'gA==','3730mm7z',1,0,'',720,0,0),(26352,5913,7,106,0,'85.34.123.173',1171019214,1,0,1,1,1,0,'','c++','Sigo con las funciones en C++, ahora tengo que lograr hacer que funcione el lector de codigos de barras.\n\n[code:3k5a2yle]\n#pragma BEGINDUMP\n#include &quot;c&#58;\\lavwin\\teve\\mobitron\\inc\\Barcode&#46;h&quot;\n\nstatic CBarcode * bar = NULL;\n\n// BARCODE //\n\nHB_FUNC&#40; BAR_POWERON &#41; // param&#58; hWnd\n&#123;\n   if&#40; bar == NULL &#41;\n   &#123;\n      bar = new CBarcode;\n   &#125;\n   return bar-&gt;Bar_PowerOn&#40; hb_parnl&#40;1&#41; &#41;\n&#125;\n\n\nHB_FUNC&#40; BAR_POWEROFF &#41; // param&#58; hWnd\n&#123;\n   if&#40; bar == NULL &#41;\n   &#123;\n      bar = new CBarcode;\n   &#125;\n   return bar-&gt;Bar_PowerOff&#40; hb_parnl&#40;1&#41; &#41;\n&#125;\n\n\n#pragma ENDDUMP\n\n[/code:3k5a2yle]\n\n\n\nLuego de esto, me da error al compilar:\n\n[quote:3k5a2yle]\nteve.c\nc:\\lavwin\\teve\\mobitron\\inc\\barcode.h(12) : fatal error C1189: #error :  include\n \'stdafx.h\' before including this file for PCH\n[/quote:3k5a2yle]\n\n\nEntiendo que tengo que poner ese include que me falta.\nLo busco en los ejemplos de C++ que me proporcionaron y lo agrego.\n\nluego de eso me da este error:\n\n\n[quote:3k5a2yle]\nc:\\lavwin\\teve\\mobitron\\inc\\stdafx.h(17) : fatal error C1083: Cannot open include file: \'afxwin.h\': No such file or directory\n[/quote:3k5a2yle]\n\n\n\nMuy bien, lo busco por todo el disco y lo encuentro:\n en esta carpeta: C:\\Programmi\\Windows CE Tools\\wce400\\STANDARDSDK\\Mfc\\Include\n\n\nlo agrego y me da este error:\n\n\n\n[quote:3k5a2yle]\nc:\\lavwin\\teve\\mobitron\\inc\\stdafx.h(17) : fatal error C1083: Cannot open includ\ne file: \'afxwin.h\': Invalid argument\n[/quote:3k5a2yle]\n\n\n\nAlguna idea al respecto?\n\nGracias','',0,'gIA=','3k5a2yle',1,0,'',106,0,0),(26353,5914,6,945,0,'80.32.177.143',1171019978,1,0,1,1,1,0,'','Relizar calculos con una columna en ListBox','Muy buenas, tengo un duda sobre los ListBox, tengo  un listbox con varias columnas y una de ellas es una operacion que debería cambiar según la fila pero tendiendo en cuenta la anterior, es decir, si en:\n          COL1  COL2  COL3\nfila 1:   20         0       20\nfila 2:    0         20       0\nfila 3:    0          2        -2\n\nes decir, necesito calcular la COL3 teniendo en cuenta en cada fila la fila anterior. Por favor ayudarme.\n\nUn Saludo.','',0,'gIA=','243zm09p',1,0,'',945,0,0),(26354,5807,3,392,0,'201.0.40.32',1171020136,1,0,1,1,1,1,'','','Hi Antonio!\n\nI want to use a PNG image on toolbar... I can? \n\nBest Regards,','',0,'gIA=','mzvlu97g',1,0,'',392,0,0),(26355,5807,3,6,0,'87.17.186.124',1171021265,1,0,1,1,1,1,'','','Why can\'t you just convert them to BMP?\n\nEMG','',0,'gIA=','3a9crwxg',1,0,'',6,0,0),(26356,5906,7,400,0,'200.205.49.10',1171021324,1,0,1,1,1,1,'','','Gracias Elias,\n\nIrei testar.\n\n@braços Ale','',0,'gIA=','3g0mq7kw',1,0,'',400,0,0),(26357,5876,6,400,0,'200.205.49.10',1171021638,1,0,1,1,1,1,'','','Alguem tem algum exemplo que use \n\nActivex\'s para modificar os themas\n\ne poderia me passar \n\n@braços Ale','',0,'gIA=','6ya56h1q',1,0,'',400,0,0),(26358,5913,7,2,0,'87.218.146.141',1171022289,1,0,1,1,1,1,'','','Prueba a añadir este flag al compilar con clarm.exe\n\n-IC:\\Programmi\\Windows CE Tools\\wce400\\STANDARDSDK\\Mfc\\Include','',0,'gIA=','2ijdfavl',1,0,'',2,0,0),(26359,5886,6,41,0,'200.105.194.235',1171022950,1,0,1,1,1,0,'','','Hola,\n\nlo que paso es que se me fue un simbolo al final del url, prueba nuevamente\n\n[url:3h57pwlp]http&#58;//hyperupload&#46;com/download/02fe4ef127/dbcombo&#46;zip&#46;html[/url:3h57pwlp]\n\n\n[quote=&quot;141005-EASYSOFT&quot;:3h57pwlp]Marcelo antes que nada gracias\nIntente bajarlo pero no se pudo me dice que no se encuentra el archivo\nseria mucha molestia melo envies a mi correo\n\n<!-- e --><a href=\"mailto:easysoft@andinanet.net\">easysoft@andinanet.net</a><!-- e -->\n\nSaludos\n_[/quote:3h57pwlp]','',0,'kA==','3h57pwlp',1,0,'',41,0,0),(26360,5807,3,392,0,'201.0.40.32',1171026397,1,0,1,1,1,1,'','','Hi EMG!\n\nBecause these images have shadow effects.','',0,'kA==','2wzthr1n',1,0,'',392,0,0),(26361,5913,7,106,0,'85.34.123.173',1171027255,1,0,1,1,1,0,'','','bueno, el mensaje de error cambió:\n\n[quote:1y08tdnw]\nteve.c\nc:\\programmi\\windows ce tools\\wce400\\standardsdk\\mfc\\include\\afxv_w32.h(137) : fatal error C1083: Cannot open include file: \'zmouse.h\': No such file or directory\n[/quote:1y08tdnw]\n\n\nEl tema es que ese archivo si que no lo tengo por ningun lado.','',0,'gA==','1y08tdnw',1,0,'',106,0,0),(26362,5876,6,15,0,'211.74.227.252',1171027375,1,0,1,1,1,0,'','','Hello\n\nLook it.\n\n[url=http&#58;//img219&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivexfo5&#46;jpg:23h5uh3s][img:23h5uh3s]http&#58;//img219&#46;imageshack&#46;us/img219/4261/fwhskinactivexfo5&#46;th&#46;jpg[/img:23h5uh3s][/url:23h5uh3s]\n\nRegards,\n\nRichard','',0,'GA==','23h5uh3s',1,0,'',15,0,0),(26364,5886,6,203,0,'200.107.2.26',1171030938,1,0,1,1,1,1,'','','Listo Marcelo eso era\n\n\nGracias\n\n\nSaludos\nOscar','',0,'GA==','vu8qtodc',1,0,'',203,0,0),(26365,5914,6,492,0,'189.147.26.147',1171033442,1,0,1,1,1,1,'','','Hola SoftRuz\n\nSi es lo que creo que es  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , bastara hacerlo al momento en que estes llenando el browse.\n\n- Si usas una dbf : Los campos deberan ser numericos o en caso de ser character convertirlo a numerico : \n\nCampo1 := nVal1\nCampo2 := nVal2\nCampo3 := ( nVal1 - nVal2 )\netc\n\ny mostrar el browse\n\n\nComenta que estas usando para el browse : una Dbf o un Array\n\nSaludos\n\n\n\n- Si estas usando un array, aplica lo mismo\n\nAaDd( aArr2Brw, { nVal1, nVal2, ( nVal1 - nVal2 ),.....} )\n\ny mostrar el browse.','',0,'GA==','2spjz73n',1,0,'',492,0,0),(26366,5876,6,707,0,'125.163.115.1',1171033808,1,0,1,1,1,0,'','','Hello Richard\n\nWhat this ?\n\nregards\nAreang','',0,'GA==','12i49blv',1,0,'',707,0,0),(26367,5876,6,400,0,'200.205.49.10',1171035330,1,0,1,1,1,1,'','','[quote=&quot;Taiwan&quot;:2jrg7ice]Hello\n\nLook it.\n\n[url=http&#58;//img219&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivexfo5&#46;jpg:2jrg7ice][img:2jrg7ice]http&#58;//img219&#46;imageshack&#46;us/img219/4261/fwhskinactivexfo5&#46;th&#46;jpg[/img:2jrg7ice][/url:2jrg7ice]\n\nRegards,\n\nRichard[/quote:2jrg7ice]\n\nVery Beautiful his/her Screen.  \n  \nYou would have oh some example with PRG.  \n  \nFor me to take a Look.  \n  \nMe nor I know through where to begin, using Active.  \n  \nThank you.  \n\nRegards, Ale','',0,'mA==','2jrg7ice',1,0,'',400,0,0),(26368,5826,3,397,0,'201.42.10.93',1171035675,1,0,1,0,1,1,'','','Here\n\n[url=http&#58;//www&#46;macoratti&#46;net/vb_nslc1&#46;htm:30plqovx]Macoratti.NET[/url:30plqovx]\n\nThis is my test:\n[code:30plqovx]\n// FiveWin ActiveX support demo - Using Adobe Acrobat Reader\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX, cLiberationKey &#58;= space&#40;16&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;nslock15vb5&#46;ActiveLock&quot; &#41;\n\n   oActiveX&#58;Do&#40; &quot;Password&quot;           , &quot;rochinha&quot; &#41;\n   oActiveX&#58;Do&#40; &quot;SoftwareName&quot;       , &quot;5Volution&quot; &#41;\n   oActiveX&#58;Do&#40; &quot;LiberationKeyLength&quot;, 16 &#41;\n   oActiveX&#58;Do&#40; &quot;SoftwareCodeLength&quot; , 16 &#41;\n\n   //? oActiveX&#58;GetProp&#40; &quot;SoftwareCode&quot; &#41;\n\n   if ! oActiveX&#58;GetProp&#40; &quot;RegisteredUser&quot; &#41;\n      MsgGet&#40; &quot;Entre a chave de liberacao&quot;,; // Title\n              &quot;Chave&#58;&quot;,;                     // Label\n              @cLiberationKey &#41;              // A variable by reference\n      oActiveX&#58;Do&#40; &quot;LiberationKey&quot;, cLiberationKey &#41;\n   endif\n\n   if ! oActiveX&#58;GetProp&#40; &quot;RegisteredUser&quot; &#41;\n      if oActiveX&#58;GetProp&#40; &quot;LastRunDate&quot; &#41; &gt; date&#40;&#41;\n         ? \'Data foi retrocedida&#46; Programa sera encerrado\'\n      else\n         ? \'Faltam \' + Str&#40; 30 - oActiveX&#58;GetProp&#40; &quot;UsedDays&quot; &#41; &#41; + \' dias&#46;\'\n      endif\n      ? \'DEMONSTRACAO\'\n      oWnd&#58;cCaption &#58;= \'DEMONSTRACAO\'\n      SysRefresh&#40;&#41;\n   else\n      ? \'REGISTRADO\'\n      oWnd&#58;cCaption &#58;= \'REGISTRADO\'\n      SysRefresh&#40;&#41;\n   endif\n\n   //oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oWnd \n\nreturn nil\n[/code:30plqovx]\n\nI\'m test in Windows Server 2003.','',0,'EIA=','30plqovx',1,0,'',397,0,0),(26369,5913,7,106,0,'85.34.123.173',1171037274,1,0,1,1,1,1,'','','creando un zmouse.h sin nada dentro (visto que sirve solo para la ruedita del mouse), me da este error:\n\n\n[quote:2jwrbip6]\nc:\\programmi\\windows ce tools\\wce400\\standardsdk\\mfc\\include\\afxv_cpu.h(23) : fatal error C1189: #error :  afxv_cpu.h is only for MIPS R4000, DEC AXP, and IBM PowerPC builds\n[/quote:2jwrbip6]\n\n\ngracias','',0,'gA==','2jwrbip6',1,0,'',106,0,0),(26370,5900,6,53,0,'189.139.98.149',1171038024,1,0,1,1,1,1,'','','Aida:\n\nAcaso no te sirve la clase DatePicker nativa de FWH ???\nMirate este ejemplo, tal vez es lo que necesita.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029b53a789/Clip1.jpg.html\">http://hyperupload.com/download/029b53a ... 1.jpg.html</a><!-- m -->\n\nSaludos, Armando','',0,'gA==','3rjzgnmh',1,0,'',53,0,0),(26371,5900,6,53,0,'189.139.98.149',1171039041,1,0,1,1,1,1,'','','A ver si ahora sí se muestra la imagen  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n<!-- m --><a class=\"postlink\" href=\"http://img172.imageshack.us/my.php?image=clip1jk2.jpg\">http://img172.imageshack.us/my.php?image=clip1jk2.jpg</a><!-- m -->\n\nSaludos','',0,'gA==','1gwvfof9',1,0,'',53,0,0),(26372,5904,2,774,0,'164.77.54.150',1171040028,1,0,1,1,1,1,'','','Miguel... pon el codigo para verlo','',0,'gA==','1vtwmva7',1,0,'',774,0,0),(26373,5915,6,492,0,'189.147.26.147',1171041256,1,0,1,1,1,1,'','Funciona el SetFocus() ???? a veces si a veces no......','Hola a todos  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nSucede lo siguiente :\n\n\nQuiero \"pasar\" el focus del get (1) al browse (2) y resulta que se brinca hasta el boton (3)\n\n\n[img:35xiim1o]http&#58;//img248&#46;imageshack&#46;us/img248/4608/focusyk3&#46;jpg[/img:35xiim1o]\n\nSin embargo, cuando estoy en el browse (2), y termino de editar las celdas, si regreso bien al get (1).\n\nYa le puse en la validacion del get :\n\n- lbCapMvs:SetFocus()\n\n- oFldCMvs:aDialogs[1]:aControls[1]:SetFocus()\n\ny ninguna responde OK, al igual le puse al get un bLostFocus y tampoco.\n\nSe agradece de antemano cualquier sugerencia  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'CA==','35xiim1o',1,0,'',492,0,0),(26374,5899,1,266,0,'60.52.116.121',1171042628,1,0,1,1,1,1,'','','oGet:bGotfocus:={||oGet:selectall()}\n\nTest under Clipper52/FW195/WindowXP','',0,'CA==','u5jaij4g',1,0,'',266,0,0),(26375,5915,6,41,0,'200.105.194.235',1171044012,1,0,1,1,1,0,'','','Hola,\n\nprueba con lbCapMvs:PostMsg( WM_RBUTTONDOWN)\n\nsaludos\n\nMarcelo','',0,'CA==','3mdk8pd7',1,0,'',41,0,0),(26376,5915,6,2,0,'87.218.146.33',1171044322,1,0,1,1,1,1,'','','Raymundo,\n\nPrueba con oGet:oJump := oBrowse','',0,'CA==','jmy2h48f',1,0,'',2,0,0),(26377,5904,2,348,0,'200.62.161.161',1171044850,1,0,1,1,1,0,'','Re: FAVOR NECESITO AYUDA URGENTE','Holas ..  una sugerencia ,  espero que sirva ...\nLubin\n\n\n\nRedefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ;\nPicture \"############\"  Color \"w+/b*\";\nValid newVerirut(cRut,oNom_cli1) \n\nRedefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture \"@!\"  Color \"w+/b*\"\n\n\nfunction newVerirut(cRut,oNom_cli1)\n*=======================\nlocal xnrut:=oRut:cText\n\nif .not. ChechkRut(xnrut)    &amp;&amp;  aqui valida con la formula matematica si es ok\n  msgstop(\"Nro de Rut no pasa validacion numerica\")\n  return .f.   &amp;&amp; No lo dejo salir del Get !! \nendif \n\n*ahora lo buscamos ...   con el metodo que sea  en la DBF ejemplo ...\nSELECT CLIENTE \nSEEK  XNRUT\nIF FOUND()\n   oNom_Cli1:cText:=CLIENTE-&gt;Nom_cli\n   oNom_cli1:refresh()\n   RETURN .T.     &amp;&amp; SI lo dejo salir del GET\nELSE \n  MSGSTOP(\"Cliente no encontrado !!  \")\nENDIF \nRETURN .F.','',0,'CA==','22kwqg40',1,0,'',348,0,0),(26378,5913,7,2,0,'87.218.146.33',1171045071,1,0,1,1,1,1,'','','Pedro,\n\nQue contiene Barcode.h ?\n\nLa idea es modificarlo para que sólo tenga la declaración de la clase que vas a usar','',0,'CA==','1dw1a2b5',1,0,'',2,0,0),(26379,5916,4,946,0,'87.103.62.121',1171047550,1,0,1,1,1,0,'','@ ...,... listbox','Hello, \nI\'m new to FiveWin and i got into trouble with listboxes:\n\nI have a program with this code:\n\n[code:1kd1u9xq]\n#include &quot;FWCE&#46;ch&quot;\nREQUEST DBFCDX\nSTATIC oWnd, oBrw\n\nfunction Main&#40;&#41;\n  USE &#40; CurDir&#40;&#41; + &quot;\\dbfs\\pedido&quot; &#41; alias pedido VIA &quot;DBFCDX&quot;	   	\n  desenhar_janela&#40;&#41;\n  ACTIVATE WINDOW oWnd\nreturn nil\n\nfunction desenhar_tabela&#40;&#41;\n&#46;\n&#46;\n  @ 70, 3 LISTBOX oBrw FIELDS pedido-&gt;cama HEADERS &quot;Cama&quot; ;\n      SIZE 237, 150 pixel\n&#46;\n&#46;\nreturn nil\n[/code:1kd1u9xq]\n\nwhere: pedido is a DBF table with a field called \"cama\" and 3 records on it.\n\nI open the table in the\nAll seems to work fine, but all i see is the listbox space with the \"Cama\" header, nut no records on it.\n\nWhat am i doing wrong?\n\nThank you,\nJoaquim','',0,'AIA=','1kd1u9xq',1,0,'',946,0,0),(26380,5916,4,3,0,'82.255.252.240',1171051040,1,0,1,1,1,1,'','Re: @ ...,... listbox','Joaquim\n\nIt is not the correct way to do it\n\nTry to code something like the ollowing\n\nDefine window first,\nOpen the file \nDefine the listbox object\nActivate the window\n\nThis is a workig sample\n\nDEFINE WINDOW OWND1 TITLE \"A Faire\"\nDEFINE FONT aFONT NAME \"TAHOMA\" SIZE 0,-12\n\n// HideKeyboard()\n\n@ 0, 0 LISTBOX oBrw ;\n       FIELDS DEPANBMP(BLEU,JAUNE,vert,rouge,blanc), ;\n              SUBS(TRNDATE(PKDEPAN-&gt;DATEDEP),1,5), ;\n              TRANSFORM(PKDEPAN-&gt;Hdeb,\"@Z 99.99\") , ;\n              GETCLI(PKDEPAN-&gt;CLIREEL) ;\n       HEADERS \" \",\"Date\",\"Heure\",\"Client\" ;\n       FIELDSIZES 15,40,30,150 ;\n       ON CLICK SHOWstat(OBRW) ;\n       FONT AFONT ;\n       COLORS CLR_BLACK, CLR_WHITE ;\n       SIZE GETSYSMETRICS( SM_CXSCREEN ) , GETSYSMETRICS( SM_CYSCREEN ) - 30 OF OWND1\n\nOBRW:nClrBackHead := CLR_YELLOW       // header\nOBRW:nClrForeHead := CLR_HBLUE        // header\n\nACTIVATE WINDOW OWND1 MODAL\nAFONT:END()\n\n\nHth\n\nRichard','',0,'AIA=','38nxaapo',1,0,'',3,0,0),(26381,5876,6,15,0,'211.74.227.252',1171052088,1,0,1,1,1,0,'','','Hello \n\nLook it Vista Skin interface.\nLook my main Windows. It\'s XP interface not Vista.\n\n[code:3m7egtuy]\nDEFINE DIALOG oDlg RESOURCE &quot;D_DR_WIN_STATMSF_SEARCH&quot;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nACTIVATE DIALOG oDlg CENTER ON INIT CodeJockSkin_InitDlg&#40; oDlg &#41;\n\nFUNCTION CodeJockSkin_InitDlg&#40; oDlg &#41;\n\nLOCAL oActiveX\n\noActiveX &#58;= TActiveX_FreeWin&#40;&#41;&#58;New&#40; oDlg, &quot;Codejock&#46;SkinFrameWork&#46;10&#46;4&#46;1&quot; &#41;\n   oActiveX&#58;LoadSkin&#40; &quot;System\\ActiveX\\Styles\\Vista&#46;cjstyles&quot;, &quot;&quot; &#41;  //Vista&#46;cjstyles  //Office2007&#46;cjstyles\n   \n   oActiveX&#58;ApplyWindow&#40; oDlg&#58;hWnd &#41;\n\nRETURN NIL\n[/code:3m7egtuy]\n\n[url=http&#58;//img232&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivexdl8&#46;jpg:3m7egtuy][img:3m7egtuy]http&#58;//img232&#46;imageshack&#46;us/img232/9463/fwhskinactivexdl8&#46;th&#46;jpg[/img:3m7egtuy][/url:3m7egtuy]\n\nRegards,\n\nRichard','',0,'GIA=','3m7egtuy',1,0,'',15,0,0),(26382,5904,2,812,0,'201.236.183.58',1171053132,1,0,1,1,1,0,'','Re: FAVOR NECESITO AYUDA URGENTE','Amigo:\n\nMuchas gracias por tu sugerencia, pero al aplicarla sigo teniendo problemas, yaque la rutina de validacion se encuentra en otro programa llamado rutinas, por lo que la hacer \"oNom_cli1:refresh()\", me arroja el error BASE/1003 Variable no Existe oNom_cli1. Pienso que deveria declararla publica.\n\nSaludos,\n\nMiguel\n\n\n}[quote=&quot;lubin&quot;:ixolbgou]Holas ..  una sugerencia ,  espero que sirva ...\nLubin\n\n\n\nRedefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ;\nPicture \"############\"  Color \"w+/b*\";\nValid newVerirut(cRut,oNom_cli1) \n\nRedefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture \"@!\"  Color \"w+/b*\"\n\n\nfunction newVerirut(cRut,oNom_cli1)\n*=======================\nlocal xnrut:=oRut:cText\n\nif .not. ChechkRut(xnrut)    &amp;&amp;  aqui valida con la formula matematica si es ok\n  msgstop(\"Nro de Rut no pasa validacion numerica\")\n  return .f.   &amp;&amp; No lo dejo salir del Get !! \nendif \n\n*ahora lo buscamos ...   con el metodo que sea  en la DBF ejemplo ...\nSELECT CLIENTE \nSEEK  XNRUT\nIF FOUND()\n   oNom_Cli1:cText:=CLIENTE-&gt;Nom_cli\n   oNom_cli1:refresh()\n   RETURN .T.     &amp;&amp; SI lo dejo salir del GET\nELSE \n  MSGSTOP(\"Cliente no encontrado !!  \")\nENDIF \nRETURN .F.[/quote:ixolbgou]','',0,'gA==','ixolbgou',1,0,'',812,0,0),(26383,5904,2,348,0,'200.62.161.161',1171055449,1,0,1,1,1,0,'','Re: FAVOR NECESITO AYUDA URGENTE','Ok Miguel, \nPara empezar,  la rutina de verificacion que supongo que haces para el RUT (a la que yo llame ChechkRut() por que no se como la llamas)  es un proceso Independiente que solo te debe retornar .T. o .F. (si esta OK o NO esta OKI el RUT.).. LUEGO ..... \n\nLa varialbe oNom_cli1  es visible dentro de la funcion en  NewVerirut(cRut,oNom_cli1)  porque la recibe como parametro al usarla en tu Valid del Get y dentro de ella se hace el refresh()  y no la uses dento de la funcion de verificacion ChechkRut(xnrut) pues ahi no existe!! salvo que la pases como parametro  , espero que me entiendas, no tienes por que hacerla publica., al menos a mi siempre me a dado buenos resultados.\n\nnos cuentas .. suerte\n\nLubin\n\n\n\n[quote=&quot;Miguel Rivera&quot;:2svg4swo]Amigo:\n\nMuchas gracias por tu sugerencia, pero al aplicarla sigo teniendo problemas, yaque la rutina de validacion se encuentra en otro programa llamado rutinas, por lo que la hacer \"oNom_cli1:refresh()\", me arroja el error BASE/1003 Variable no Existe oNom_cli1. Pienso que deveria declararla publica.\n\nSaludos,\n\nMiguel\n\n\n}[quote=&quot;lubin&quot;:2svg4swo]Holas ..  una sugerencia ,  espero que sirva ...\nLubin\n\n\n\nRedefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ;\nPicture \"############\"  Color \"w+/b*\";\nValid newVerirut(cRut,oNom_cli1) \n\nRedefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture \"@!\"  Color \"w+/b*\"\n\n\nfunction newVerirut(cRut,oNom_cli1)\n*=======================\nlocal xnrut:=oRut:cText\n\nif .not. ChechkRut(xnrut)    &amp;&amp;  aqui valida con la formula matematica si es ok\n  msgstop(\"Nro de Rut no pasa validacion numerica\")\n  return .f.   &amp;&amp; No lo dejo salir del Get !! \nendif \n\n*ahora lo buscamos ...   con el metodo que sea  en la DBF ejemplo ...\nSELECT CLIENTE \nSEEK  XNRUT\nIF FOUND()\n   oNom_Cli1:cText:=CLIENTE-&gt;Nom_cli\n   oNom_cli1:refresh()\n   RETURN .T.     &amp;&amp; SI lo dejo salir del GET\nELSE \n  MSGSTOP(\"Cliente no encontrado !!  \")\nENDIF \nRETURN .F.[/quote:2svg4swo][/quote:2svg4swo]','',0,'gA==','2svg4swo',1,0,'',348,0,0),(26384,5904,2,812,0,'201.236.183.58',1171058050,1,0,1,1,1,0,'','Re: FAVOR NECESITO AYUDA URGENTE','Lubin:\n\nCreo que yo habia entendido mal, revise la rutina y aplique lo que me indicastes y HA FUNCIONADO A LAS MIL MARAVILLAS.\n\nEternamente agradecido, mil gracias amigo.\n\nSaludos,\nMiguel Rivera\n\n[quote=&quot;lubin&quot;:34sq2puv]Ok Miguel, \nPara empezar,  la rutina de verificacion que supongo que haces para el RUT (a la que yo llame ChechkRut() por que no se como la llamas)  es un proceso Independiente que solo te debe retornar .T. o .F. (si esta OK o NO esta OKI el RUT.).. LUEGO ..... \n\nLa varialbe oNom_cli1  es visible dentro de la funcion en  NewVerirut(cRut,oNom_cli1)  porque la recibe como parametro al usarla en tu Valid del Get y dentro de ella se hace el refresh()  y no la uses dento de la funcion de verificacion ChechkRut(xnrut) pues ahi no existe!! salvo que la pases como parametro  , espero que me entiendas, no tienes por que hacerla publica., al menos a mi siempre me a dado buenos resultados.\n\nnos cuentas .. suerte\n\nLubin\n\n\n\n[quote=&quot;Miguel Rivera&quot;:34sq2puv]Amigo:\n\nMuchas gracias por tu sugerencia, pero al aplicarla sigo teniendo problemas, yaque la rutina de validacion se encuentra en otro programa llamado rutinas, por lo que la hacer \"oNom_cli1:refresh()\", me arroja el error BASE/1003 Variable no Existe oNom_cli1. Pienso que deveria declararla publica.\n\nSaludos,\n\nMiguel\n\n\n}[quote=&quot;lubin&quot;:34sq2puv]Holas ..  una sugerencia ,  espero que sirva ...\nLubin\n\n\n\nRedefine Get oRut_cli1 Var cRut Id 158 Of oDlgEdit Update ;\nPicture \"############\"  Color \"w+/b*\";\nValid newVerirut(cRut,oNom_cli1) \n\nRedefine Say oNom_cli1 Prompt Nom_cli1 Id 152 Of oDlgEdit Picture \"@!\"  Color \"w+/b*\"\n\n\nfunction newVerirut(cRut,oNom_cli1)\n*=======================\nlocal xnrut:=oRut:cText\n\nif .not. ChechkRut(xnrut)    &amp;&amp;  aqui valida con la formula matematica si es ok\n  msgstop(\"Nro de Rut no pasa validacion numerica\")\n  return .f.   &amp;&amp; No lo dejo salir del Get !! \nendif \n\n*ahora lo buscamos ...   con el metodo que sea  en la DBF ejemplo ...\nSELECT CLIENTE \nSEEK  XNRUT\nIF FOUND()\n   oNom_Cli1:cText:=CLIENTE-&gt;Nom_cli\n   oNom_cli1:refresh()\n   RETURN .T.     &amp;&amp; SI lo dejo salir del GET\nELSE \n  MSGSTOP(\"Cliente no encontrado !!  \")\nENDIF \nRETURN .F.[/quote:34sq2puv][/quote:34sq2puv][/quote:34sq2puv]','',0,'gA==','34sq2puv',1,0,'',812,0,0),(26385,5915,6,492,0,'189.147.26.147',1171059218,1,0,1,1,1,1,'','','Marcelo, Antonio muchas gracias\n\nFunciono correctamente.\n\nLes agradezco su tiempo y atencion.\n\n\nSaludos','',0,'gA==','2h079rmf',1,0,'',492,0,0),(26387,5876,6,492,0,'189.147.26.147',1171059780,1,0,1,1,1,1,'','','So that\'s the way !!   <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nI saw these controls few months ago, but I never had idea how set it up.\nThank you very much for the tip Taiwan  !!\n\nI found some free ActiveX for skining but I got stuck in the sintaxis.\n\n\nRegards','',0,'gA==','20we7hpn',1,0,'',492,0,0),(26388,5917,3,707,0,'125.163.101.1',1171062161,1,0,1,1,1,0,'','to Richard ( Taiwan ) about Skin Themes windows','Hi Richard !\n\n[code:2oy55uih]\nDEFINE DIALOG oDlg RESOURCE &quot;D_DR_WIN_STATMSF_SEARCH&quot; \n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; \nACTIVATE DIALOG oDlg CENTER ON INIT CodeJockSkin_InitDlg&#40; oDlg &#41; \n\nFUNCTION CodeJockSkin_InitDlg&#40; oDlg &#41; \n\nLOCAL oActiveX \n\noActiveX &#58;= TActiveX_FreeWin&#40;&#41;&#58;New&#40; oDlg, &quot;Codejock&#46;SkinFrameWork&#46;10&#46;4&#46;1&quot; &#41; \n   oActiveX&#58;LoadSkin&#40; &quot;System\\ActiveX\\Styles\\Vista&#46;cjstyles&quot;, &quot;&quot; &#41;  //Vista&#46;cjstyles  //Office2007&#46;cjstyles \n    \n   oActiveX&#58;ApplyWindow&#40; oDlg&#58;hWnd &#41; \n\nRETURN NIL \n\n[/code:2oy55uih]\n\nDo you mind to send me the function TActiveX_FreeWin\n\nThank\'s for help\nRegards\nAreang','',0,'AIA=','2oy55uih',1,0,'',707,0,0),(26389,5918,6,73,0,'200.23.18.129',1171063236,1,0,1,1,1,0,'','Para HDC, wbrowse18','hola hernan,\npues como veras estoy tratando de buscar tu site, me lo pudieras proporcionar? por cierto, como va el wbrowse18? en verdad creo que somos muchos los que esperamos la gran noticia !! a lo mejor hay una version beta para probarla y sacar busg o fixx rapido, estamos anotados.\nsalu2\npaco','',0,'AIA=','1bmjq2w0',1,0,'',73,0,0),(26390,5916,4,946,0,'87.196.66.231',1171063885,1,0,1,1,1,0,'','','Thank you Richard, your reply was very helpful.\n\nBut the real problem was in something that i didn\'t said in the first post:\nBefore the grid was displayed, the program called a function that opened another table, and because i didn\' put the clause \'new\' in \'use\' (i\'m a VFP man - i\'m used to \'use table in 0\') the program opened the new table in the work area of the first table, therefore there was nothing to show.\n\nThank you anyway.\nJoaquim','',0,'AIA=','m9r57qaf',1,0,'',946,0,0),(26391,5910,6,196,0,'190.48.230.136',1171064606,1,0,1,1,1,0,'','','Instale Harbour que baje junto con el resto. El Harbour me dio algunos errores al compilar pero lo solucione rapidamente, en cambio esto me complica un poco mas.\n\nGracias','',0,'AIA=','k51a0bs7',1,0,'',196,0,0),(26392,5810,1,86,0,'213.119.103.68',1171064736,1,0,1,1,1,1,'','','Thanks a lot guys.\n\nI\'ll try out your suggestions.\n\nMichel','',0,'AIA=','39q9pcx8',1,0,'',86,0,0),(26393,5901,20,49,0,'62.13.168.78',1171066099,1,0,1,1,1,1,'','','scusa mi ero perso a comprarmi un palmare  . qtek 9600\n\nho provato ....\ngrazie funziona bene !!!!!!!!!!!!!!!!!!','',0,'AIA=','2qv20mf0',1,0,'',49,0,0),(26394,5919,3,487,0,'151.38.111.39',1171069763,1,0,1,1,1,0,'','Change ACL file permission','Hello all,\n\nIs it possible to change the ACL permission of a file from within FHW (something like the \"Permission: everyone-modify\" parameter of InnoSetup) ?\n\nTIA\nDavide','',0,'AIA=','2n9kxjzj',1,0,'',487,0,0),(26395,5917,3,397,0,'201.42.10.93',1171071034,1,0,1,0,1,1,'','','Areang\n\nTry with tActivex() of Fivewin.','',0,'AIA=','gjgz9ejg',1,0,'',397,0,0),(26396,5876,6,15,0,'211.74.227.252',1171074664,1,0,1,1,1,0,'','','Hello Raymundo,\n\nLook it, Office 2007 Skin interface\n\n[url=http&#58;//img244&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivex2jf5&#46;jpg:3qq06cxj][img:3qq06cxj]http&#58;//img244&#46;imageshack&#46;us/img244/3297/fwhskinactivex2jf5&#46;th&#46;jpg[/img:3qq06cxj][/url:3qq06cxj]\n\n[url=http&#58;//img244&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivex3us9&#46;jpg:3qq06cxj][img:3qq06cxj]http&#58;//img244&#46;imageshack&#46;us/img244/7369/fwhskinactivex3us9&#46;th&#46;jpg[/img:3qq06cxj][/url:3qq06cxj]\n\nCould you share your free ActiveX?\nI test codejock not free.\n\nRegards,\n\nRichard','',0,'GA==','3qq06cxj',1,0,'',15,0,0),(26397,5917,3,15,0,'211.74.227.252',1171075922,1,0,1,1,1,0,'','','Hello areang,\n\nLook it. Office 2007 interface.\n\n[url=http&#58;//img244&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivex2jf5&#46;jpg:1ofuxbwv][img:1ofuxbwv]http&#58;//img244&#46;imageshack&#46;us/img244/3297/fwhskinactivex2jf5&#46;th&#46;jpg[/img:1ofuxbwv][/url:1ofuxbwv]\n\n[url=http&#58;//img244&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivex3us9&#46;jpg:1ofuxbwv][img:1ofuxbwv]http&#58;//img244&#46;imageshack&#46;us/img244/7369/fwhskinactivex3us9&#46;th&#46;jpg[/img:1ofuxbwv][/url:1ofuxbwv]\n\nSame as TActiveX of FWH. What\'s FWH version?\n\nThanks for Rochinha.\n\nRegards,\n\nRichard','',0,'GA==','1ofuxbwv',1,0,'',15,0,0),(26398,5876,6,913,0,'189.136.172.108',1171076510,1,0,1,1,1,1,'','HELLO Taiwan','HELLO Taiwan\n\nYou look very nice  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> and that it is  needed to do it\nRight now use the example but it is out of service \n\n\n\nCongratulations I get very nice to you\nAIDA <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GA==','24tnhydh',1,0,'',913,0,0),(26399,5876,6,15,0,'211.74.227.252',1171077440,1,0,1,1,1,0,'','','Hello AIDA,\n\nThanks and welcome.\nFWH\'s ActiveX skill not easy than VB or VC++ or any develop tools.\nI don\'t know why FWH very hard. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRegards,\n\nRichard','',0,'GA==','16wt08vt',1,0,'',15,0,0),(26400,5917,3,439,0,'200.125.39.246',1171077705,1,0,1,1,1,1,'','','Sorry, could somebody tell me where can I get this activex you are showing in the images?','',0,'GA==','2tpmg773',1,0,'',439,0,0),(26401,5900,6,913,0,'189.136.172.61',1171082477,1,0,1,1,1,1,'','Hola!!!!!!!!!!!!!!!!!!!!','Hola como estan espero que muy bien\n\nGracias por todos sus consejos me puse a hacer todo lo que me dijeron y al final modifique un par de pequeñas lineas  y pude hacer que funcione <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  cambiando  ---   [color=blue:2v3ihidq]FwCalendar(cVigencia2,aRect[1],aRect[4],oDlg),;\n                 oGet1:Refresh()) [/color:2v3ihidq]--- POR --- [color=green:2v3ihidq](MsgDate(DATE(),\"Seleccione una Fecha\", oGet), oGet:Refresh())[/color:2v3ihidq]\n\nYa solamente me queda ponerlo en español\n\nGracias por todo, son todos ustedes muy lindos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Ag==','2v3ihidq',1,0,'',913,0,0),(26402,5917,3,15,0,'211.74.227.252',1171086670,1,0,1,1,1,0,'','','Hello jose_murugosa,\n\nPlease visit this web site.\n\n[url:2uyimcib]http&#58;//www&#46;codejock&#46;com/[/url:2uyimcib]\n\nRegards,\n\nRichard','',0,'EA==','2uyimcib',1,0,'',15,0,0),(26403,5876,6,913,0,'189.136.172.61',1171087081,1,0,1,1,1,1,'','Hello!!!!','Hello\n\nI hey learned but with clipper fivewin and now with FWH <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nBut of VB or VC + + nothing at all hey learned <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nI found one page with files ActiveX and some are \nFreeware   \n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivesign.com/downloads/software/index\">http://www.fivesign.com/downloads/software/index</a><!-- m --> 88-1 - Freeware.html\n\nI hope to learn but with the help of all of you <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n\nGreetings\n\nAida','',0,'EA==','205hwvtz',1,0,'',913,0,0),(26404,5810,1,2,0,'87.218.146.141',1171090805,1,0,1,1,1,1,'','','Michel,\n\nWhat do you use that loop for ?','',0,'EA==','sxfhcwvq',1,0,'',2,0,0),(26405,5910,6,2,0,'87.218.146.141',1171090998,1,0,1,1,1,1,'','','Jorge,\n\nNo tendrás alguna otra versión de Harbour instalada en tu ordenador ?\n\nEl define HB_FS_LOCAL está en el fichero hbvmpub.h de Harbour y por tanto debería encontrarlo sin problemas','',0,'EA==','4zujb9o0',1,0,'',2,0,0),(26406,5920,6,533,0,'83.54.235.89',1171097836,1,0,1,1,1,0,'','Problemas con impresoras!!','Buenos días foro!\nMe ha sucedido una cosa bastante rara, y es que el mismo programa en 2 maquinas distintas, en una despues de la preview de un documento, lo imprimo y no hay ningun problema, y en otra maquina se hace la preview, y cuando le doy a imprimir, no me imprime porque me sale un error que me echa del programa. Este error NO es de fivewin, sino el Típico de windows que te propone enviar el informe de errores o NO. La única diferencia es que en el que da el error, la impresora por donde sale el preview, está instalada en una dirección IP. \n\n\\\\192.168.0.12\\Hp LaserJet . . .\n\nLa verdad es que esto lo he probado en la Oficina del Trabajo y me funciona correctamente pero no se por donde pueden venir los problemas, porque es sólo con nuestro programa.\n\nSALUDOS, y muchas gracias de antemano.','',0,'EA==','6zwznmq7',1,0,'',533,0,0),(26407,5920,6,838,0,'80.59.225.15',1171103220,1,0,1,1,1,0,'','','Hola Mike\n\nA mi me ocurre lo mismo con una Minolta magiccolor 3100. \nCuando instalé los drivers todo iba correctamente, de pronto y no sé por qué me empezó a ocurrir lo mismo que a ti, pero ahora nó solo me ocurre con mi aplicación en five sino también si pretendo imprimir con programas como adobe acrobat o alguno más. Sin embargo con otros no.\n\nReinstalé los drivers y nada, no conseguí nada.\n\nFormateé el disco duro, y volví a instalar todo, y volvió a funcionar todo a la perfección, pero la semana pasada me empezó a pasar lo mismo sin saber porqué.\n\nAsí que lo que hago es ya no imprimir por mi puesto de trabajo, porque curiosamente funciona en todos los puestos menos en el mío. Cuando quiero imprimir algo por ésa impresora, que es de color, le tengo que decir a otro que me lo imprima.\n\nA ver si alguien nos ayuda, ya que ésto es un rollo\n\nSaludos\n\nJose Luis','',0,'EA==','1joy2yi7',1,0,'',838,0,0),(26408,5919,3,397,0,'201.42.10.93',1171111713,1,0,1,0,1,1,'','','On FAT32 or NTFS?','',0,'EA==','2soehi19',1,0,'',397,0,0),(26409,5917,3,3,0,'82.250.120.83',1171112017,1,0,1,1,1,1,'','','Richard\n\nWhere did you download the activex file from ? \"Codejock.SkinFrameWork.10.4.1\" \n\nIs this a freeware ? Are these skins free to use or are they copyrighted.\n\nThanks for info\n\nRichard','',0,'EA==','2k75lyix',1,0,'',3,0,0),(26410,5920,6,397,0,'201.42.10.93',1171112612,1,0,1,0,1,1,'','','Amigos\n\nMira en el servidor se tu usuario tienes la permission de impression libre.','',0,'EA==','14t8e3t5',1,0,'',397,0,0),(26411,5917,3,439,0,'200.125.33.14',1171113206,1,0,1,1,1,1,'','','Thank you  Taiwan\n\nI´ll check the site.','',0,'EA==','39zcvcx9',1,0,'',439,0,0),(26412,5919,3,487,0,'151.38.111.125',1171113575,1,0,1,1,1,0,'','Rochinha,','[quote=&quot;Rochinha&quot;:34ihy0n5]On FAT32 or NTFS?[/quote:34ihy0n5]\nAFAIK ACL is on NTFS only.\nAre there issues with FAT32 too ?\n\nRegards,\nDavide','',0,'gA==','34ihy0n5',1,0,'',487,0,0),(26413,5910,6,196,0,'190.48.216.87',1171114102,1,0,1,1,1,0,'','','Perdon por hacerte perder tiempo, en su momento en vez de indicar la ruta en el cfg del bcc++ copie todos los .h al directorio include del bcc++, por lo tanto al configurarlo como corresponde todo funciona bien.\n\nSaludos y gracias.','',0,'gA==','2smobwnu',1,0,'',196,0,0),(26414,5917,3,397,0,'201.42.10.93',1171114653,1,0,1,0,1,1,'','','Hii,\n\nHere is a working sample with SkinFramework:\n\n[code:3rhvji96]\n// FiveWin ActiveX support demo - Using Adobe Acrobat Reader\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n   local oWnd, oActiveX\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support with Skin&quot;\n          oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;PDF&#46;PdfCtrl&#46;5&quot; &#41;\n          oWnd&#58;oClient = oActiveX // To fill the entire window surface\n          oActiveX&#58;Do&#40; &quot;LoadFile&quot;, &quot;c&#58;\\teste&#46;pdf&quot; &#41;\n          oActiveX&#58;Do&#40; &quot;SetCurrentPage&quot;, 1 &#41;\n   ACTIVATE WINDOW oWnd ON INIT CodeJockSkin_InitDlg&#40;oWnd&#41;\n   return nil\n\nFUNCTION CodeJockSkin_InitDlg&#40; oDlg &#41; \n   LOCAL oActiveX, cStylesPath &#58;= &quot;c&#58;\\win2003\\arquivos de programas\\codejock\\source\\skinframework\\Styles\\&quot;\n   oActiveX &#58;= TActiveX&#40;&#41;&#58;New&#40; oDlg, &quot;Codejock&#46;SkinFrameWork&#46;10&#46;4&#46;2&quot; &#41; \n   oActiveX&#58;Do&#40; &quot;LoadSkin&quot;, cStylesPath+&quot;Vista&#46;cjstyles&quot;, &quot;&quot; &#41;  //Vista&#46;cjstyles  //Office2007&#46;cjstyles \n   oActiveX&#58;Do&#40; &quot;ApplyWindow&quot;, oDlg&#58;hWnd &#41; \n   return nil\n[/code:3rhvji96]','',0,'AIA=','3rhvji96',1,0,'',397,0,0),(26415,5910,6,2,0,'87.218.146.141',1171115450,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2ml1l7wu',1,0,'',2,0,0),(26416,5919,3,397,0,'201.42.10.93',1171117538,1,0,1,0,1,1,'','','Friend\n\nThe FAT32 security is poor. Maybe you can use ATTRIB.EXE.\n\nRead this for more information: [url=http&#58;//www&#46;windowsecurity&#46;com/articles/Securing_the_Windows_2000_Registry&#46;html?printversion:noux4079]Windows Security[/url:noux4079]','',0,'EA==','noux4079',1,0,'',397,0,0),(26417,5917,3,15,0,'211.74.227.252',1171118143,1,0,1,1,1,0,'','','Hello Rochinha,\n\nYes, same as.\n\nBut I have a question about it.\nPlease look my attach picture.\nWhy it appear \"S/F\" mark?\nI run VB Exe file disappear mark.\n\n[url=http&#58;//img112&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivex5he7&#46;jpg:2mqmiqy8][img:2mqmiqy8]http&#58;//img112&#46;imageshack&#46;us/img112/4791/fwhskinactivex5he7&#46;th&#46;jpg[/img:2mqmiqy8][/url:2mqmiqy8]\n\nRegards,\n\nRichard','',0,'GA==','2mqmiqy8',1,1171119103,'',15,1,0),(26418,5917,3,15,0,'211.74.227.252',1171118200,1,0,1,1,1,0,'','','[quote=&quot;Richard Chidiak&quot;:112qzsuz]Richard\n\nWhere did you download the activex file from ? \"Codejock.SkinFrameWork.10.4.1\" \n\nIs this a freeware ? Are these skins free to use or are they copyrighted.\n\nThanks for info\n\nRichard[/quote:112qzsuz]\n\nPlease check [url:112qzsuz]http&#58;//www&#46;codejock&#46;com/[/url:112qzsuz]\n\nRegards,\n\nRichard','',0,'kA==','112qzsuz',1,0,'',15,0,0),(26419,5921,20,664,0,'88.44.254.66',1171121729,1,0,1,1,1,0,'','workshop - font e colori','Preciso subito che sono un principiante alle prime armi con FWH.\nSto facendo l\'ennesimo tentativo per partire (uso ancora il buon vecchio CA-CLIPPER 5.2 ma è proprio ora che mi decida!!), e mi trovo alle prese con WORKSHOP 4.5 per creare un .res con all\'interno una dialog con bottoni, testi, ecc. che poi vado a richiamare nel .prg\n\nAl riguardo una (per voi) banalissima domanda: con workshop come posso cambiare gli attributi font/colore singolarmente su ogni oggetto (ID) ? Esempio: il font del testo di un button, il colore di sfondo del button, il font di un semplice testo, ecc.ecc.\n\nHo intuito che Workshop in questo ha dei (giustificatissimi) limiti che poi da quel che ho capito dovrei risolvere con le REDEFINES da sorgente FWH, ma voi conoscendo questi limiti in quale direzione mi consigliate di procedere?\nIn sintesi: dove mi consigliate di fissare il confine ottimale tra l\'uso di WORKSHOP e l\'uso di FWH da sorgente per queste esigenze estetiche?\nSpero di essermi spiegato sufficentemente bene.\ngrazie in anticipo.\n\nmax','',0,'kA==','10kfcyk3',1,0,'',664,0,0),(26420,5917,3,397,0,'201.42.10.93',1171122857,1,0,1,0,1,1,'','','Taiwan\n\nMaybe you have linked other activex too. check it.','',0,'kA==','2sw88wu3',1,0,'',397,0,0),(26421,5883,6,913,0,'189.136.172.61',1171126588,1,0,1,1,1,1,'','Hola','Hola\n\nYa baje sus ejemplos estan super\n\nlos venderan en Mexico <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\ncuanto cuestan <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nSaludos\n\nAida','',0,'kA==','w7lajau7',1,0,'',913,0,0),(26422,5922,4,6,0,'87.21.239.15',1171130277,1,0,1,1,1,1,'','Controls automatic alignments','This is a sample showing how to automatize the alignment of source-code-defined controls:\n\n[code:145977s8]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cli &#58;= SPACE&#40; 35 &#41;\n    LOCAL ind &#58;= SPACE&#40; 35 &#41;\n\n    DEFINE WINDOW oWnd;\n           TITLE &quot;Test&quot;\n\n    @ 1, 0 SAY &quot;Cliente&#58;&quot;\n\n    @ 1, 7 COMBOBOX cli;\n           SIZE 100, 20\n\n    @ 1, 28 BUTTON &quot;Test1&quot;;\n            SIZE 45, 20\n\n    @ 2, 0 BUTTON &quot;Nuovo&quot;;\n           SIZE 50, 20\n\n    @ 2, 9 BUTTON &quot;Cambia&quot;;\n           SIZE 50, 20\n\n    @ 2, 18 BUTTON &quot;Chiudi&quot;;\n            SIZE 50, 20\n\n    @ 2, 27 BUTTON &quot;Svuota&quot;;\n            SIZE 50, 20\n\n    @ 2, 36 BUTTON &quot;C&quot;;\n            SIZE 24, 20\n\n    @ 3, 0 LISTBOX FIELDS;\n           SIZE 240, 125\n\n    @ 9, 0 SAY &quot;Indirizzo&#58;&quot;\n\n    @ 9, 7 COMBOBOX Ind;\n           SIZE 100, 20\n\n    @ 9, 28 BUTTON &quot;Test2&quot;;\n            SIZE 45, 20\n\n    @ 12, 0 SAY &quot;Indirizzo&#58;&quot;\n\n    @ 12, 7 COMBOBOX Ind;\n            SIZE 100, 20\n\n    @ 12, 28 BUTTON &quot;Test2&quot;;\n             SIZE 45, 20\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT ADJCTRLS&#40; oWnd &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION ADJCTRLS&#40; oWnd &#41;\n\n    LOCAL oCtl, nTop, nHeight\n\n    LOCAL i\n\n    IF EMPTY&#40; oWnd&#58;aControls &#41;; RETURN NIL; ENDIF\n\n    FOR i = 1 TO LEN&#40; oWnd&#58;aControls &#41;\n        oCtl = oWnd&#58;aControls&#91; i &#93;\n\n        nTop = &#40; oCtl&#58;nTop - 11 &#41; * 1&#46;41\n        nHeight = oCtl&#58;nHeight\n\n        DO CASE\n            CASE oCtl&#58;ClassName = &quot;TBUTTON&quot;\n                nTop = &#40; nTop - 4 &#41; * 0&#46;83\n                nHeight *= 0&#46;96\n            CASE oCtl&#58;ClassName = &quot;TCOMBOBOX&quot;\n                nTop = &#40; nTop - 1 &#41; * 1&#46;07\n            CASE oCtl&#58;ClassName = &quot;TGET&quot;\n                nTop *= 1&#46;15\n            CASE oCtl&#58;ClassName = &quot;TSAY&quot;\n                nTop -= 2\n            CASE oCtl&#58;ClassName = &quot;TWBROWSE&quot;\n                nTop *= 1&#46;07\n        ENDCASE\n\n        oCtl&#58;Move&#40; nTop, oCtl&#58;nLeft, oCtl&#58;nWidth, nHeight &#41;\n    NEXT\n\n    RETURN NIL[/code:145977s8]\n\nEMG','',0,'AIA=','145977s8',1,0,'',6,0,0),(26423,5921,20,6,0,'87.21.239.15',1171130480,1,0,1,1,1,1,'','Re: workshop - font e colori','[quote=&quot;max&quot;:hl2x50du]Al riguardo una (per voi) banalissima domanda: con workshop come posso cambiare gli attributi font/colore singolarmente su ogni oggetto (ID) ?[/quote:hl2x50du]\n\nNo. Disegnare una risorsa significa semplicemente specificare tipo, stile e posizione dei controlli. Niente altro. Il resto lo devi fare necessariamente da codice.\n\nEMG','',0,'gA==','hl2x50du',1,0,'',6,0,0),(26424,5923,4,6,0,'87.21.239.15',1171130851,1,0,1,1,1,1,'','TGet RIGHT clause is not working','This is a sample:\n\n[code:1wbzp5nv]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL nVar &#58;= 123&#46;45\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 SAY &quot;Test&#58;  &quot;\n\n    @ 1, 10 GET nVar;\n            SIZE 70, 20;\n            PICTURE &quot;@E 9999&#46;99&quot;;\n            RIGHT\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1wbzp5nv]\n\nEMG','',0,'AIA=','1wbzp5nv',1,0,'',6,0,0),(26425,5922,4,2,0,'87.218.146.141',1171131989,1,0,1,1,1,1,'','','Enrico,\n\nThanks','',0,'AIA=','1yhhg7t6',1,0,'',2,0,0),(26426,5876,6,492,0,'189.147.26.147',1171134923,1,0,1,1,1,1,'','','Hello Richard\n\nI tryed to send the files, but I recieved a message saying your account is not valid, do you have another one ?\n\nSaludos','',0,'AIA=','3tiv50t5',1,0,'',492,0,0),(26427,5924,6,52,0,'190.7.30.169',1171135749,1,0,1,1,1,1,'','Cómo saber de que GET viene?... oGet[...]','Gente, \n\nQuiero saber que get se esta editando en tiempo de ejecucion, \nsupongamos esta definicion:\n\n[code:xkm2h5p3]funtion main&#40;&#41;\n\n    local oDatos&#58;= array&#40; 3 &#41;\n    local vDatos&#58;= array&#40; 3 &#41;\n    local oDlg\n\n    define dialg odlg resource &quot;prueba&quot;\n\n        redefine get oDatos&#91;1&#93; var vDatos&#91;1&#93; id 100 of odlg\n        redefine get oDatos&#91;2&#93; var vDatos&#91;2&#93; id 101 of odlg\n        redefine get oDatos&#91;3&#93; var vDatos&#91;3&#93; id 102 of odlg\n\n        aEval&#40; oDatos, &#123; | o | o&#58; bPostKey&#58;= &#123; | x, y | editando&#40; &#41; &#125; &#125; &#41; \n\n    activate dialog oDlg centered\n\nreturn &#40; nil &#41;\n\n//-----------------------------------------------\n\nfunction Editando&#40; &#46;&#46;&#46; &#41;\n\n    // Aca quiero saber que &quot;oDatos&quot; se está editando&#46;\n\n    if editando oDatos&#91;1&#93;\n        ? Se esta editando oDatos&#91;1&#93;\n    elseif editando oDatos&#91;2&#93;\n        ? Se esta editando oDatos&#91;2&#93;\n    else    \n        ? Se esta editando oDatos&#91;3&#93;\n    endif \n\nreturn&#40; nil &#41;[/code:xkm2h5p3]\n\n\nGracias.','',0,'AIA=','xkm2h5p3',1,0,'',52,0,0),(26428,5925,6,63,0,'88.11.31.105',1171135972,1,0,1,1,1,0,'','Pregunta de concepto','Es una pregunta de principiante pero es que ha estado haciendo pruebas toda la tarde y ya me da vueltas la cabeza. Se trata de:\n\nQuisiera crear una clase que se comporte como un diálogo con algún control -por ejemplo, un folder- dentro.\n\nLa invocaré así:  oDlg := MiDialogo():New(oParent) \ny pretendo -por eemplo- poder saber la altura del folder así:  \n[code:1fuoldu9] ? oDlg&#58;oFldr&#58;nHeight [/code:1fuoldu9]\nLa pregunta es cómo he de definir MiDialogo:\nAsí?:\n[code:1fuoldu9]\nCLASS MiDialogo From TDialog\n&#46;&#46;&#46;&#46;\nENDCLASS\n\nMETHOD New&#40;oParent&#41; CLASS MiDialogo\nLocal oDlg\nDEFINE DIALOGO oDlg RESOURCE &quot;MI_RECURSO_DLG&quot; Of oParent\nREDEFINE FOLDER oFldr ID 1000 OF oDlg\nRETURN Self\n[/code:1fuoldu9]\no bien \n[code:1fuoldu9]\nRETURN oDlg\n[/code:1fuoldu9]\n\no he de definirlo así:\n\n[code:1fuoldu9]\noDlg &#58;= Super&#40;&#41;&#58;New&#40;&#46;&#46;&#46;,oParent,&#46;&#46;&#41;\n\no bien así&#58;  oDlg &#58;= TDialog&#40;&#41;&#58;New&#40;&#46;&#46;&#46;, oParent,&#46;&#46;&#46;&#41;\no simplemente&#58;  Super&#40;&#41;&#58;New&#40;&#46;&#46;&#46;, oParent,&#46;&#46;&#46;&#41;\n&#46;&#46;&#46;\nReturn oDlg    ¿O es RETURN Self?\n[/code:1fuoldu9]\n\nSupongo que esto de la herencia es un tema que tengo muy confuso.  Por favor: Alguien podría ponerme un ejemplo de seis líneas que mostrase la forma correcta de hacerlo?\n\nGracias\nRafael','',0,'AIA=','1fuoldu9',1,0,'',63,0,0),(26432,5876,6,15,0,'211.74.227.252',1171145853,1,0,1,1,1,0,'','','Hello Raymundo,\n\nMy EMail is <!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->\n\nRegards,\n\nRichard','',0,'GA==','24fi46i3',1,0,'',15,0,0),(26433,5926,4,946,0,'87.196.45.216',1171149295,1,0,1,1,1,0,'','Dialog don\'t behave like a dialog','I have a form, and on that form i call a dialog.\nBut if i click on the form, the dialog goes back of the original form, unlike a dialog should act.\n\nThe code for the dialogue is:\n[code:15hthenr]\n    DEFINE dialog oDlg title titulo size 237,268\n	@ 02, 03 GET oNome_servico var _nome_servico SIZE 65, 10 PIXEL READONLY FONT oFont\n	@ 02, 70 GET oData var _data SIZE 45, 10 PIXEL READONLY FONT oFont\n	@ 13, 03 GET oNome_quarto var _nome_quarto SIZE 65, 10 PIXEL READONLY FONT oFont\n	@ 13, 70 GET oNome_refeicao var _nome_refeicao SIZE 45, 10 PIXEL READONLY FONT oFont	\n	@ 24, 03 GET oNome_cama var _nome_cama SIZE 65, 10 PIXEL READONLY FONT oFont\n\n	@ 38, 03 say &quot;Qtd&#58; &quot; size 45, 10 pixel\n	@ 38, 33 GET oQtd var _qtd SIZE 65, 10 PIXEL FONT oFont\n\n	\n	@ 110, 23 button &quot;&amp;Gravar&quot; size 35, 20 PIXEL action m_detalhe_gravar&#40;oDlg, estado&#41;\n	@ 110, 63 button &quot;&amp;Cancelar&quot; size 35, 20 PIXEL action m_detalhe_cancelar&#40;oDlg, estado&#41;\n\n   	ACTIVATE dialog oDlg\n[/code:15hthenr]\n\nWhat am i doing wrong?\n\nTIA,\nJoaquim','',0,'AIA=','15hthenr',1,0,'',946,0,0),(26434,5926,4,2,0,'87.218.146.141',1171149903,1,0,1,1,1,1,'','','Joaquim,\n\nDefine the dialog this way:\n\nDEFINE dialog oDlg title titulo size 237,268 OF oWnd\n\nwhere oWnd is the previous window or dialog','',0,'AIA=','3p0ttq1b',1,0,'',2,0,0),(26435,5876,6,15,0,'211.74.227.252',1171150386,1,0,1,1,1,0,'','','Hello All,\n\nTest finish. Look it below:\n\n[url=http&#58;//img166&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivex6dz7&#46;jpg:1c5qzlie][img:1c5qzlie]http&#58;//img166&#46;imageshack&#46;us/img166/8030/fwhskinactivex6dz7&#46;th&#46;jpg[/img:1c5qzlie][/url:1c5qzlie]\n\nRegards,\n\nRichard','',0,'GA==','1c5qzlie',1,0,'',15,0,0),(26436,5917,3,15,0,'211.74.227.252',1171150423,1,0,1,1,1,0,'','','Hello All,\n\nTest finish. Look it below:\n\n[url=http&#58;//img166&#46;imageshack&#46;us/my&#46;php?image=fwhskinactivex6dz7&#46;jpg:3ps7zsda][img:3ps7zsda]http&#58;//img166&#46;imageshack&#46;us/img166/8030/fwhskinactivex6dz7&#46;th&#46;jpg[/img:3ps7zsda][/url:3ps7zsda]\n\nRegards,\n\nRichard','',0,'GA==','3ps7zsda',1,0,'',15,0,0),(26437,5924,6,397,0,'200.207.142.50',1171150501,1,0,1,0,1,1,'','','Amiguito\n\nObtenha resultado con oGET[ ? ]:cCaption','',0,'','30w477vv',1,0,'',397,0,0),(26438,5917,3,707,0,'125.163.115.0',1171151991,1,0,1,1,1,0,'','','Thank\'s to all\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> If you don\'t mind, Can someone to email me ocx and samples source code ? <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nRegards\nAreang','',0,'','27x4718v',1,0,'',707,0,0),(26439,5927,4,435,0,'200.155.199.37',1171153645,1,0,1,1,1,0,'','Conexao ADO, ODBC, MySQL','é possivel usar o ADO ou ODBC ou direto MySQL (port 3306) com FiveWin for Pocket PC ?\n\nAri','',0,'','m4o4rifq',1,0,'',435,0,0),(26440,5928,4,946,0,'87.196.45.216',1171156178,1,0,1,1,1,0,'','Annoying problem with FWPPC - Forms and dialogs','I got into this problem:\n\nFrom a form i call a dialog. Then i close the dialog and go back to the form. For some time it all works fine, but at the 3rd or 4th time (it varies) when i go back to the form, i continue to see the lines and the buttons of the dialog beyond the lines of the form, and the form is so confusing that i have to close the program and open it again to continue the work.\nI tried to refresh the form but it didn\'t solve the problem.\n\nDid anyone got this problem and solved it? How did you do it?\n\nTIA,\nJoaquim','',0,'','fs7183eh',1,0,'',946,0,0),(26441,5926,4,946,0,'87.196.45.216',1171156401,1,0,1,1,1,0,'','','Antonio,\n\nThank you for answering so fast, but it didn\'t solve the problem.\nWhen i select the back form it still gets in front of the dialog and i don\'t see the dialog anymore.\n\nJoaquim','',0,'','ztjrfmwr',1,0,'',946,0,0),(26442,5929,6,913,0,'189.136.172.61',1171156831,1,0,1,1,1,1,'','Para Jose Murugosa','Hola Jose como estas espero que muy bien <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nencontre en el foro el archivo de REPEXCEL que subiste ya lo estoy usando funciona super bien  pero cuando le doy doble click en el reporte cuando esta la lupa de cursor me sale un error del zoom <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  ya le movi le quite le puse etc etc pero no me queda superado el errorsito del zoom te pongo aqui el error que sale, espero me orientes\n\n[color=red:yxy0rv05]Application\n===========\n   Path and name: C:\\FWH\\promotoria\\ALTAS.Exe (32 bits)\n   Size: 2,389,504 bytes\n   Time from start: 0 hours 1 mins 5 secs \n   Error occurred at: 02/10/07, 19:04:46\n   Error description: Error BASE/1004  Message not found: TTOOLBAR:CHANGEBITMAP\n\nStack Calls\n===========\n   Called from __ERRRT_SBASE(0)\n   Called from HBOBJECT:ERROR(179)\n   Called from __EVAL(105)\n   Called from HBOBJECT:MSGNOTFOUND(0)\n   Called from TTOOLBAR:CHANGEBITMAP(169)\n   Called from ZOOM(873) \n   Called from SETORG1(1058)\n   Called from (b)RPREVIEW(315)\n   Called from TWINDOW:LDBLCLICK(1738)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from SYSREFRESH(0)\n   Called from STOPUNTIL(0)\n   Called from RPREVIEW(405)\n   Called from (b)NEW(69)\n   Called from TMREPORT:ACTIVATE(198)\n   Called from AUTREPORT(3694)\n   Called from (b)REPORTES1(3628)\n   Called from TBUTTON:CLICK(0)\n   Called from TCONTROL:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from SENDMESSAGE(0)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from DIALOGBOX(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from REPORTES1(3634)\n   Called from (b)MAIN(246)\n   Called from (b)ADDITEM(189)\n   Called from TBTNBMP:CLICK(0)\n   Called from TWINDOW:LBUTTONUP(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(3109)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(878)\n   Called from MAIN(285)[/color:yxy0rv05]\n\n\n\n\nyo baje el archivo de esta parte del foro \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5494&amp;highlight=repexcel\">http://fivetechsoft.com/forums/viewtopi ... t=repexcel</a><!-- m -->\n\nGracias por todo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaluditos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Ag==','yxy0rv05',1,0,'',913,0,0),(26443,5917,3,15,0,'211.74.227.252',1171159513,1,0,1,1,1,0,'','','Hello areang,\n\nSource code check these message. only add in your ap.\nActiveX components -&gt; <!-- m --><a class=\"postlink\" href=\"http://www.codejock.com/\">http://www.codejock.com/</a><!-- m -->\ncheck ActiveX suite pro not MFC++\n\nRegards,\n\nRichard','',0,'Ag==','15m561wd',1,0,'',15,0,0),(26444,5930,6,53,0,'189.139.8.70',1171163205,1,0,1,1,1,1,'','Conocer el renglón en TXBrowse','Amigos del foro:\n\nUsando la clase TXBrowse, cómo puedo saber en que renglón se dió un LDBLCLICK, y en que renglón se oprime la tecla RETURN o la tecla SUPR ?\n\nSaludos a todos','',0,'Ag==','1ym7x2l0',1,0,'',53,0,0),(26445,5876,6,913,0,'189.136.172.61',1171165641,1,0,1,1,1,1,'','Hello!!!!','Hello\n\nI get very nice to you <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nI congratulate you <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nYou would help me\nIn order that I may give that style to the program that I am doing  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nI wait not be a great deal asking for as far as I am concerned\n\nMy mail is <!-- e --><a href=\"mailto:aida_p_z@hotmail.com\">aida_p_z@hotmail.com</a><!-- e -->\n\n\n\nGreetings from Mexico\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Ag==','3l38gdve',1,0,'',913,0,0),(26446,5924,6,52,0,'190.7.30.169',1171165874,1,0,1,1,1,1,'','','[quote=&quot;Rochinha&quot;:2cvlpm6x]Amiguito\n\nObtenha resultado con oGET[ ? ]:cCaption[/quote:2cvlpm6x]\n\nHola,\n\nNecesito conocer ese ? no el cCaption. \n\npara luego dependiendo de el número ese ? decidir que hacer.\n\nGracias.','',0,'gA==','2cvlpm6x',1,0,'',52,0,0),(26447,5926,4,2,0,'87.218.146.141',1171177631,1,0,1,1,1,1,'','','Joaquim,\n\nHere you have a working sample:\n[code:830zzyrv]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n   \n   DEFINE WINDOW oWnd TITLE &quot;Main&quot;\n   \n   @ 9, 2 BUTTON &quot;Dialog&quot; ;\n      SIZE 210, 30 ACTION BuildDlg&#40; oWnd &#41;\n\n   ACTIVATE WINDOW oWnd\n   \nreturn nil   \n\nfunction BuildDlg&#40; oWnd &#41;\n\n   local oDlg\n   \n   DEFINE DIALOG oDlg TITLE &quot;Test&quot; ;\n      SIZE 200, 80 OF oWnd\n   \n   ACTIVATE DIALOG oDlg ;\n      ON CLICK MsgInfo&#40; &quot;dialog click!&quot; &#41;\n   \nreturn nil   \n[/code:830zzyrv]','',0,'AIA=','830zzyrv',1,0,'',2,0,0),(26448,5928,4,2,0,'87.218.146.141',1171177755,1,0,1,1,1,1,'','','Joaquim,\n\nAre you using fonts, bitmaps, or other GDI objects ? If so, how are you using them ?\n\nCould you post a small and self contained sample that reproduces the problem ? thanks','',0,'AIA=','17duyz21',1,0,'',2,0,0),(26449,5928,4,946,0,'87.196.45.216',1171182787,1,0,1,1,1,0,'','','Antonio,\n\nI send you the full code to your mail box.\n\nMany thanks,\n\nJoaquim','',0,'AIA=','351fqjnj',1,0,'',946,0,0),(26450,5931,6,413,0,'217.125.9.228',1171185691,1,0,1,1,1,0,'','Autocierre del programa','Alguien sabe si un programa fivewin puede autofinalizar pasado algun tiempo de no utilizarse. Mucha gente se olvida de cerrar su ordenador y puede perfectamente quedar varios dias con el programa y las bases de datos abiertas. el servidor depende de otro departamento y muchas veces cuando quiero desconectar los procesos tengo que llamarles y amenudo no les pillo puesto que funcionamos con turnos diferentes. Habia pensado en un timer, pero como se cuando el programa utiliza el ordenador o sencillamente existe la posibilidad de terminar el programa sin la colaboracion del usuario. Alguna idea?','',0,'AIA=','dat11dq9',1,0,'',413,0,0),(26451,5924,6,2,0,'87.218.146.141',1171190601,1,0,1,1,1,1,'','','Gustavo,\n\nnAt = AScan( oDlg:aControls, { | o | o:lFocused } )','',0,'AIA=','2sbfc5w3',1,0,'',2,0,0),(26452,5932,4,435,0,'200.155.200.131',1171191277,1,0,1,1,1,0,'','Download Emulator','Onde eu baixo o emulator para FiveWin Pocket PC ?\n\nAri','',0,'AIA=','37p2m2eb',1,0,'',435,0,0),(26453,5932,4,2,0,'87.218.146.141',1171193126,1,0,1,1,1,1,'','','Ari,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=57265402-47a8-4ce4-9aa7-5fe85b95de72&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->','',0,'AIA=','39vztqt4',1,0,'',2,0,0),(26454,5928,4,2,0,'87.218.146.141',1171193236,1,0,1,1,1,1,'','','Joaquim,\n\nSolved. You can not reuse a dialog because its brush gets destroyed when the ACTIVATE DIALOG ends. Everytime you are going to use a dialog you have to do:\n\nDEFINE DIALOG oDlg ...\n\nACTIVATE DIALOG oDlg ...','',0,'AIA=','3ciudhxi',1,0,'',2,0,0),(26455,5925,6,2,0,'87.218.146.141',1171193805,1,0,1,1,1,1,'','','Rafael,\n[code:uwpel7ad]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg &#58;= MiDialogo&#40;&#41;&#58;New&#40;&#41;\n   \n   oDlg&#58;Activate&#40;&#41;\n   \nreturn nil   \n\nCLASS MiDialogo From TDialog \n\n   DATA oFldr\n   \n   METHOD New&#40; oParent &#41;\n\nENDCLASS \n\nMETHOD New&#40; oParent &#41; CLASS MiDialogo \n\n   Super&#58;New&#40; ,,,,, &quot;MI_RECURSO_DLG&quot;,,,,,,, oParent &#41;\n\n   REDEFINE FOLDER &#58;&#58;oFldr ID 1000 OF Self &#46;&#46;&#46;\n   \nRETURN Self\n[/code:uwpel7ad]','',0,'AIA=','uwpel7ad',1,0,'',2,0,0),(26456,5924,6,52,0,'190.7.30.169',1171198411,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ko977zo]Gustavo,\n\nnAt = AScan( oDlg:aControls, { | o | o:lFocused } )[/quote:1ko977zo]\n\nGracias,','',0,'gA==','1ko977zo',1,0,'',52,0,0),(26457,5882,3,810,0,'89.12.9.132',1171199673,1,0,1,1,1,0,'','Without full source no interesting','Hi\n\nU say on u Homepage with full source \n\nBut when someone buy it  u say without C Code\n\nSo the price is too high\n\nAsta la Vista Babe','',0,'gA==','2tx9lwl4',1,0,'',810,0,0),(26458,5928,4,946,0,'87.103.31.85',1171206036,1,0,1,1,1,0,'','','thank you Antonio.\n\nbut, as you noticed in the code i send you, i need to populate a combo in the dialog with the contents of a table, it would take a long time if i need to do it every time i call the dialog.\nCan i replace the dialog with a modal window? Or windows will need to be defined from scratch every time i call them, as on dialogs?\n\nJoaquim','',0,'gA==','34i7y8oo',1,0,'',946,0,0),(26459,5934,4,946,0,'87.103.68.27',1171218432,1,0,1,1,1,0,'','Oh boy... another problem (now with refresh)','I have a form with one dialog.\nThis form has some objects that i call with @ ... get.\nThe value of the respective variables changes as i click buttons on the form (i use the \'obj:refresh()\' method to do it). The display of the get objects changes accordingly.\nThen i call the dialog...\nWhen i come back to the form \'obj.refresh()\' don\'t work anymore...\nI click the same buttons, the value of the variables change (i know it because i display it\'s value with \'msginfo()\') but the objects that represent it in the form don\'t display the according value.\n\nWhat could be wrong?\n\nTIA,\nJoaquim','',0,'gA==','7522v8zn',1,0,'',946,0,0),(26460,5926,4,946,0,'87.103.68.27',1171218494,1,0,1,1,1,0,'','','Thank you Antonio: problem solved...\nJoaquim','',0,'gA==','2tnjjuxc',1,0,'',946,0,0),(26461,5934,4,2,0,'87.218.146.141',1171219641,1,0,1,1,1,1,'','','Joaquim,\n\nPlease email me your PRG and tell me how to reproduce it. You may be missing something','',0,'gA==','3rg5kusw',1,0,'',2,0,0),(26462,5934,4,946,0,'87.103.68.27',1171220679,1,0,1,1,1,0,'','','Maybe, but thank you again Antonio.\n\nJoaquim','',0,'gA==','2u6w6e0h',1,0,'',946,0,0),(26463,5925,6,63,0,'88.11.31.105',1171223094,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias por el ejemplo que es justamente lo que yo necesitaba.  Sin embargo, me queda una duda:  Si definimos MyDialog() como una herencia de TDialog, ya es en sí un diálogo.  A qué viene, pues, redefinirlo otra vez en New()?  No estaremos creando así un diálogo dentro de otro diálogo?\n\nUltimamente estoy haciendo pruebas con esto, que parece que funciona:\n[code:3pe9vdwb]CLASS MiDialogo From TDialog \n   DATA oFldr \n   METHOD New&#40; oParent &#41; \nENDCLASS \n\nMETHOD New&#40; oParent &#41; CLASS MiDialogo \n   // Super&#58;New&#40; ,,,,, &quot;MI_RECURSO_DLG&quot;,,,,,,, oParent &#41; &lt;-  NO LO REDEFINO!!!\n   Super&#40;&#41;&#58;New&#40;&#41;\n   &#58;&#58;cResname &#58;= &quot;MI_RECURSO_DLG&quot;\n   &#58;&#58;oWnd&#58;= oParent\n   REDEFINE FOLDER &#58;&#58;oFldr ID 1000 OF Self &#46;&#46;&#46; \nRETURN Self \n[/code:3pe9vdwb]\nEs correcto o estoy haciendo algo mal?\nGracias otra vez y perdona lo teórico de la pregunta pero quizá sirva también para aclararle las ideas a alguien más en el foro\nRafael','',0,'AIA=','3pe9vdwb',1,0,'',63,0,0),(26464,5925,6,63,0,'88.11.31.105',1171223359,1,0,1,1,1,0,'','','Antonio:\nPerodona otra vez. Acabo de darme cuenta que mi ejemplo es lo mismo que el tuyo pero escrito de otra forma.  Ignora mi mensaje, por favor.\nGracias\nRafael','',0,'AIA=','iggvma1m',1,0,'',63,0,0),(26465,5934,4,2,0,'87.218.146.141',1171225513,1,0,1,1,1,1,'','','Joaquim,\n\nSolved: you are reusing the same variables names in your PRG so you are changing their containts. Just declare this line in your PRG:\n[code:16z8293c]\nfunction m_dialogo&#40;estado&#41;\n    LOCAL titulo, area\n    local oNome_servico, oData, oNome_quarto, oNome_refeicao, oNome_cama, oLinhax // NEW !!!\n&#46;&#46;&#46;\n[/code:16z8293c]','',0,'AIA=','16z8293c',1,0,'',2,0,0),(26466,5925,6,2,0,'87.218.146.141',1171225899,1,0,1,1,1,1,'','','Rafael,\n\nSi, es lo mismo, pero escrito distinto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','39d4xbwd',1,0,'',2,0,0),(26467,5932,4,435,0,'200.155.196.183',1171227026,1,0,1,1,1,0,'','ok, baixei','Antonio,\n\nEu queira só testar os exemplos que voce colocou e achei que só com o emulador seria possivel, mais falta muita coisa até isso acontecer.\n\nSeria possivel colocar no forum uma \"receita de bolo\" o que é necessario e tudo que devo instalar para rodar o emulador, e testar os programas, ai sim eu vou ver se compro o FWPPC.\n\nAri','',0,'AIA=','cv1mjf29',1,0,'',435,0,0),(26469,5932,4,2,0,'87.218.146.141',1171227684,1,0,1,1,1,1,'','','Ari,\n\nYou only need the Pocket PC emulator to test the FWPPC samples. Just install the emulator, share a folder from the PC to be used from the emulator, copy the FWPPC samples to that folder and run them from the emulator','',0,'GA==','1tl3ja0s',1,0,'',2,0,0),(26470,5920,6,838,0,'80.59.225.15',1171227856,1,0,1,1,1,0,'','','Estamos funcionando como grupo de trabajo, y la impresora es de red, no hay restricciones de ningun tipo para nadie\n\nSaludos\n\nJose Luis','',0,'GA==','tj2sp5ww',1,0,'',838,0,0),(26473,5932,4,3,0,'82.255.253.114',1171228999,1,0,1,1,1,1,'','','Antonio\n\nMaybe the followink link can help , it shows how to configure the emulator. \n\n<!-- m --><a class=\"postlink\" href=\"http://www.cbati.com/Emulateur%20pocket%20PC.pdf\">http://www.cbati.com/Emulateur%20pocket%20PC.pdf</a><!-- m -->\n\nRichard','',0,'GA==','3hv0jlgj',1,0,'',3,0,0),(26474,5932,4,2,0,'87.218.146.141',1171229102,1,0,1,1,1,1,'','','Richard,\n\nThanks!','',0,'GA==','yxb5wjtc',1,0,'',2,0,0),(26475,5927,4,138,0,'200.65.139.109',1171232623,1,0,1,1,1,1,'','','No, hasta donde se, no existe ADO ni ODBC para PocketPc','',0,'GA==','3tz7blph',1,0,'',138,0,0),(26476,5927,4,2,0,'87.218.146.141',1171238653,1,0,1,1,1,1,'','','Parece que sí hay ADO para Pocket PC:\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcdn.com/sections/ado.html\">http://www.pocketpcdn.com/sections/ado.html</a><!-- m -->','',0,'GA==','vcpwux5f',1,0,'',2,0,0),(26477,5935,4,49,0,'62.13.168.78',1171238762,1,0,1,1,1,1,'','To Linares try\'ing a palm','I wanted try a sample (withdbf) into my palm\nI try with fwce10\nI create also a subfolder \"storage card\" but when I run it on palm make error dbusearea(0) main(13)\ncan U help me I wanted see if my palm is compatible to fwppc \n\n\nthanks','',0,'GA==','1yxmhily',1,0,'',49,0,0),(26478,5935,4,2,0,'87.218.146.141',1171239346,1,0,1,1,1,1,'','','Silvio,\n\n&gt; error dbusearea(0) main(13)\n\nIf you can see that error, then it means that FWPPC works fine on your palm\n\nYou don\'t need to create a \"storage card\" folder. You should have it on your Windows Mobile','',0,'GA==','2f5poqo3',1,0,'',2,0,0),(26479,5935,4,49,0,'62.13.168.78',1171239974,1,0,1,1,1,1,'','','thanks antonio \ncan you send me a sample for open a dbf into the same folder ?','',0,'GA==','f1udnpug',1,0,'',49,0,0),(26480,5936,6,774,0,'164.77.169.143',1171250793,1,0,1,1,1,1,'','EXISTE LA MANERA DE;;;;','Buenas ::\n\ntengo una barra con botones ...\n\nAlguien sabe si existe la manera de saber cuando paso el mouse por encima de alguno de los botones de la barra,, se ejecute alguna accion,, como lo hacen el Tooltip,,, \n\nGracias','',0,'GA==','qknihhzq',1,0,'',774,0,0),(26481,5917,3,190,0,'124.7.27.22',1171251162,1,0,1,1,1,0,'','','Hi Richard\n\n[quote:33n3bl36]\nThis evaluation can be used with Visual Studio 5.0, 6.0, .NET 2002, .NET 2003, and .NET 2005. Unicode versions of the OCX files are currently not provided with the evaluation version.\n[/quote:33n3bl36]\n\nI think, Codejock has stopped distributing evaluaiton copies of  the OCX files.\n\nHow can I get it for testing.\n\n- Ramesh Babu P','',0,'gA==','33n3bl36',1,0,'',190,0,0),(26482,5917,3,15,0,'211.74.227.252',1171264332,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:1wzifimr]Hi Richard\n\n[quote:1wzifimr]\nThis evaluation can be used with Visual Studio 5.0, 6.0, .NET 2002, .NET 2003, and .NET 2005. Unicode versions of the OCX files are currently not provided with the evaluation version.\n[/quote:1wzifimr]\n\nI think, Codejock has stopped distributing evaluaiton copies of  the OCX files.\n\nHow can I get it for testing.\n\n- Ramesh Babu P[/quote:1wzifimr]\n\nHello\n\nI have Codejock v10.4.1 evaluation version.\nBut it have 20MB. How to send to you?\n\nRegards,\n\nRichard','',0,'gA==','1wzifimr',1,0,'',15,0,0),(26483,5937,6,131,0,'194.179.55.36',1171267168,1,0,1,1,1,0,'','programa autoactualizable','Hola:\nQuiero añadir una funcionalidad a mis programas que permitan autoactualizarse via internet. Esto es, añadir una opción de menú para que el programa se conecte a un servidor web, y si hay alguna versión posterior del programa que se actualice. Tengo claro que lo primero es establecer una conexión via FTP con el sitio web, luego descargar el programa, pero no se como hacer el cambio de un ejecutable por otro. \nMe gustaría saber si alguien ha hecho algo así.\n\nSaludos,','',0,'gA==','iap6cwja',1,0,'',131,0,0),(26484,5935,4,2,0,'87.218.146.141',1171269938,1,0,1,1,1,1,'','','Silvio,\n\nHere you have it:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/027242e613/tutor10.zip.html\">http://hyperupload.com/download/027242e ... 0.zip.html</a><!-- m -->','',0,'gA==','hkptnvo5',1,0,'',2,0,0),(26485,5936,6,2,0,'87.218.146.141',1171270073,1,0,1,1,1,1,'','','Es una buttonbar (propia de FW) ó una toolbar (nativa de Windows) ?','',0,'gA==','33h6mtl1',1,0,'',2,0,0),(26486,5932,4,2,0,'87.218.146.141',1171270227,1,0,1,1,1,1,'','','Those emulator settings can be configured from the command line also:\n\n..\\deviceemulator ppc_2003_se_wwe_armv4.bin /skin Pocketpc_2003_skin.xml /memsize 128 /sharedfolder c:\\fwppc\\samples','',0,'gA==','if3ochap',1,0,'',2,0,0),(26487,5937,6,2,0,'87.218.146.141',1171270649,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3548&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'gA==','1kzjod1j',1,0,'',2,0,0),(26488,5920,6,838,0,'80.34.222.112',1171271766,1,0,1,1,1,0,'','','Yo tengo mi impresora conectada a mi equipo por usb.\nPuedo imprimir perfectamente por mi impresora y por las impresoras usb conectadas a los demás equipos ya que están compartidas.\nPero el problema viene con ésta impresora de red que tiene una dirección ip.\n\nSaludos \n\nJose Luis','',0,'gA==','313y13yx',1,0,'',838,0,0),(26489,5913,7,106,0,'85.34.123.173',1171275045,1,0,1,1,1,1,'','','Este es el contenido de barcode.h\n\n[code:1ykpkmhn]\n// Barcode&#46;h &#58; main header file for the BARCODE DLL\n//\n\n#if !defined&#40;AFX_BARCODE_H__C9134DC0_653B_4807_B317_1D4B2A6971D8__INCLUDED_&#41;\n#define AFX_BARCODE_H__C9134DC0_653B_4807_B317_1D4B2A6971D8__INCLUDED_\n\n#if _MSC_VER &gt;= 1000\n#pragma once\n#endif // _MSC_VER &gt;= 1000\n\n#ifndef __AFXWIN_H__\n	#error include \'stdafx&#46;h\' before including this file for PCH\n#endif\n\n#include &quot;resource&#46;h&quot;		// main symbols\n#include &quot;&#46;&#46;/inc/BarcodeType&#46;h&quot;\n\n/////////////////////////////////////////////////////////////////////////////\n// CBarcodeApp\n// See Barcode&#46;cpp for the implementation of this class\n//\nclass __declspec&#40;dllexport&#41; CBarcode\n&#123;\npublic&#58;\n	INT Bar_PortOpen&#40;HWND hWnd&#41;;\n	INT Bar_PortClose&#40;HWND hWnd&#41;;\n	INT DeSelectScanner&#40;HANDLE hPwr, HWND hWnd&#41;;\n	INT ReadyForBarIO&#40;&#41;;\n	INT Bar_ScanData&#40;int *sType, char *sData, int *iSize&#41;;\n	INT CloseScannerDeviceHandle&#40;&#41;;\n	INT Bar_ScannerEnd&#40;HANDLE hPwr, HWND hWnd&#41;;\n	INT Bar_ScannerStart&#40;HANDLE hPwr, HWND hWnd&#41;;\n	INT ClosePrtDeviceHandle&#40;&#41;;\n	INT SelectPrinter&#40;HANDLE hPwr, HANDLE hWnd&#41;;\n	INT OpenPrtDevice&#40;&#41;;\n	HANDLE GetPrtDeviceHandle&#40;&#41;;\n	INT Bar_PowerOff&#40;HWND hWnd&#41;;\n	INT SelectScanner&#40;HANDLE hPwr, HWND hWnd&#41;;\n	INT OpenScannerDevice&#40;&#41;;\n	HANDLE GetScannerDeviceHandle&#40;&#41;;\n	int Bar_PowerOn&#40;HWND hWnd&#41;;\n	CBarcode&#40;&#41;;\n	virtual ~CBarcode&#40;&#41;;\n&#125;;\n\nclass CBarcodeApp &#58; public CWinApp\n&#123;\npublic&#58;\n	CBarcodeApp&#40;&#41;;\n\n// Overrides\n	// ClassWizard generated virtual function overrides\n	//&#123;&#123;AFX_VIRTUAL&#40;CBarcodeApp&#41;\n	public&#58;\n	virtual int ExitInstance&#40;&#41;;\n	virtual BOOL InitInstance&#40;&#41;;\n	//&#125;&#125;AFX_VIRTUAL\n\n	//&#123;&#123;AFX_MSG&#40;CBarcodeApp&#41;\n		// NOTE - the ClassWizard will add and remove member functions here&#46;\n		//    DO NOT EDIT what you see in these blocks of generated code !\n	//&#125;&#125;AFX_MSG\n	DECLARE_MESSAGE_MAP&#40;&#41;\n&#125;;\n\n/////////////////////////////////////////////////////////////////////////////\n\n//&#123;&#123;AFX_INSERT_LOCATION&#125;&#125;\n// Microsoft eMbedded Visual C++ will insert additional declarations immediately before the previous line&#46;\n\n#endif // !defined&#40;AFX_BARCODE_H__C9134DC0_653B_4807_B317_1D4B2A6971D8__INCLUDED_&#41;\n\n[/code:1ykpkmhn]\n\n\ny este es el contenido de barcodetype.h\n\n\n[code:1ykpkmhn]\n\n#define NOT_APPLICABLE				11\n#define B_CODE_39						12\n#define B_CODABAR						13\n#define B_CODE_128					14\n#define B_DISCRETE_2D5				15		\n#define B_IATA_2D5					16\n#define B_INTERLEAVED_2D5				17\n#define B_CODE_93						18\n#define B_UPC_A						19\n#define B_UPC_A_2SUP					20\n#define B_UPC_A_5SUP					21\n#define	B_UPC_E0						22\n#define B_UPC_E0_2SUP					23\n#define B_UPC_E0_5SUP					24\n#define B_EAN_8						25\n#define B_EAN_8_2SUP					26\n#define B_EAN_8_5SUP					27\n#define B_EAN_13_5SUP					28\n#define B_EAN_13						29\n#define B_EAN_13_2SUP					30\n#define B_MSI_PLESSEY					31\n#define B_EAN_128						32\n#define B_UPC_E1						33\n#define B_UPC_E1_2SUP					34\n#define B_UPC_E1_5SUP					35\n#define B_TRIOPTIC_CODE_39			36\n#define B_BOOKLAND_EAN				37\n#define B_COUPON_CODE					38\n#define B_PDF417						39\n#define DATA_ERROR					40\n#define NO_RESPONSE					41\n#define NOT_SUPPORTED				42\n[/code:1ykpkmhn]\n\n\nGracias','',0,'AIA=','1ykpkmhn',1,0,'',106,0,0),(26490,5908,3,86,0,'213.119.103.68',1171277502,1,0,1,1,1,1,'','','Antonio,\n\nThanks a lot.\n\nI\'ll try it out.\n\nMichel','',0,'AIA=','2khy1mo4',1,0,'',86,0,0),(26491,5938,3,86,0,'213.119.103.68',1171278192,1,0,1,1,1,1,'','Error &quot;Cannot create dialog box&quot; after migrating t','Hello,\n\nI am migrating my FW-Clipper applications to xHarbour.\n\nI was able to replace all the necessary functions. I also compiled my RC-files by using the Borland BRC32-compiler.\n\nI changed \"BWCC.DLL\" into \"BWCC32.DLL\" in LoadLibrary(). But what about CTL3D.DLL ? I put CTLD3D32.DLL into the map.\n\nFor compiling and linking my application I use the xBuilder. If I understand well, I don\'t need to add all the xHarbour LIB-files since they are added automatically.\n\nSo far so good.\n\nWhen I start my FW-xHarbour application, I normally show a little dialog box while the necessary files are loaded.\n\nAnd that\'s where my problem occurs : \"Error FiveWin/3 Cannot create dialog box\".\n\nWhat did I change in my RC-files ? (Antonio told me so)\n\n1. I replaced \"TFolder\" with \"SysTabControl32\"\n2. I added these lines to my RC-files :\n\n#ifdef __FLAT__ \n1 24 \"WindowsXP.Manifest\" \n#endif \n\nI put \"WindowxXP.Manifest\" in the map with my RC-files.\n\n\nIs that all that needs to be done to the RC-files ?\n\nWhy does this error occurs ?\n\nThank you very much in advance for any help.\n\nMichel Driessen\nGenk (Belgium)\nM&amp;A Consult bvba','',0,'AIA=','1qac8la9',1,0,'',86,0,0),(26492,5932,4,435,0,'200.155.204.114',1171279219,1,0,1,1,1,0,'','Emulator','Instalei o Emulator fo Windows CE.\n\nRodei o tutot01.exe na pasta compartilhada.\n\n- Dá um erro de \"aplicativo nao é valido para windows ce\"\n\nFWPPC é compativel com Windows CE ?\n\nAri','',0,'AIA=','k904ffr7',1,0,'',435,0,0),(26493,5913,7,2,0,'87.218.146.141',1171280522,1,0,1,1,1,1,'','','Pedro,\n\nPrueba a quitar los includes que hay dentro de barcode.h y compila a ver que errores aparecen','',0,'AIA=','1xd0awaf',1,0,'',2,0,0),(26494,5932,4,2,0,'87.218.146.141',1171280860,1,0,1,1,1,1,'','','Ari,\n\nTienes que usar el emulador de Pocket PC , no el de Windows CE.\n\nFWPPC funciona en Windows CE tambien, lo que ocurre es que el emulador de Windows CE no es de arquitectura ARM, sino Intel.\n\nEn cambio, el emulador de Pocket PC si usa arquitectura ARM.\n\nYou have to use the Pocket PC emulator, not the Windows CE one.\n\nFWPPC also works with Windows CE, but the Windows CE emulator does not use ARM architecture, but Intel one.\n\nInstead of that, the Pocket PC emulator uses the ARM architecture','',0,'AIA=','1lm2bupq',1,0,'',2,0,0),(26495,5938,3,2,0,'87.218.146.141',1171281027,1,0,1,1,1,1,'','','Michel,\n\nCTL3D.DLL is no longer needed in 32 bits.\n\nPlease search \"bor\" instead your RC file. You may be using a Borland control in your resources, if so then you need to add these lines to your application:\n[code:1rt1ybmc]\n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;your application code&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot;\n[/code:1rt1ybmc]','',0,'AIA=','1rt1ybmc',1,0,'',2,0,0),(26496,5920,6,413,0,'194.106.16.43',1171281692,1,0,1,1,1,0,'','','Es un problema tipico del preview, si no te detecta una impresora con el estado de LISTO, da ese error. Eso me sucede a menudo puesto que tenemos mas de 30 puestos en red y les dejo que elijan libremente la impresora. Pero si el estado de la impresora que tienen por defecto configurada como impresora primaria o predeterminada les da el estado de no conectada por algun motivo el preview es informado de que no tiene posibilidad de seguir y si no tratas ese error te da un fallo de programa. Asegurate de que la impresora que tienen como determinada este en estado de LISTO. Eso pasa cuando cambias la impresora, cuando reinstalas controladores, cuando cambias algo del grupo, cuando cambias el nombre de como es compartida, cuando cambias el nombre del pc etc...','',0,'AIA=','x8rvfsd6',1,0,'',413,0,0),(26497,5936,6,774,0,'164.77.169.184',1171282710,1,0,1,1,1,1,'','','Antonio;  uso la clase Trebar,, TToolbar de FWH27\n\nse puede hacer con ellas lo q pretendo...\n\nGRACIAS','',0,'AIA=','3ber0cx2',1,0,'',774,0,0),(26498,5913,7,106,0,'85.34.123.173',1171283409,1,0,1,1,1,0,'','','Antonio, los errores son los siguientes:\n\n\n\n\n\n[quote:39jxnyfj]\nc:\\lavwin\\teve\\mobitron\\inc\\barcode.h(47) : error C2504: \'CWinApp\' : base class\nundefined\nc:\\lavwin\\teve\\mobitron\\inc\\barcode.h(64) : error C2143: syntax error : missing\n\';\' before \'}\'\nteve.prg(4079) : error C2440: \'initializing\' : cannot convert from \'const int\' t\no \'class CBarcode\'\n        No constructor could take the source type, or constructor overload resol\nution was ambiguous\nteve.prg(4153) : error C2678: binary \'==\' : no operator defined which takes a le\nft-hand operand of type \'class CBarcode\' (or there is no acceptable conversion)\nteve.prg(4155) : error C2679: binary \'=\' : no operator defined which takes a rig\nht-hand operand of type \'class CBarcode *\' (or there is no acceptable conversion\n)\nteve.prg(4158) : error C2143: syntax error : missing \';\' before \'return\'\nteve.prg(4158) : error C2819: type \'CBarcode\' does not have an overloaded member\n \'operator -&gt;\'\n        c:\\lavwin\\teve\\mobitron\\inc\\barcode.h(23) : see declaration of \'CBarcode\n\'\nteve.prg(4158) : error C2227: left of \'-&gt;Bar_PowerOn\' must point to class/struct\n/union\nteve.prg(4159) : error C2143: syntax error : missing \';\' before \'}\'\nteve.prg(4162) : error C2678: binary \'==\' : no operator defined which takes a le\nft-hand operand of type \'class CBarcode\' (or there is no acceptable conversion)\nteve.prg(4164) : error C2679: binary \'=\' : no operator defined which takes a rig\nht-hand operand of type \'class CBarcode *\' (or there is no acceptable conversion\n)\nteve.prg(4167) : error C2143: syntax error : missing \';\' before \'return\'\nteve.prg(4167) : error C2819: type \'CBarcode\' does not have an overloaded member\n \'operator -&gt;\'\n        c:\\lavwin\\teve\\mobitron\\inc\\barcode.h(23) : see declaration of \'CBarcode\n\'\nteve.prg(4167) : error C2227: left of \'-&gt;Bar_PowerOff\' must point to class/struc\nt/union\nteve.prg(4168) : error C2143: syntax error : missing \';\' before \'}\'\n[/quote:39jxnyfj]\n\n\n\nSaludos\n\n\nP.D. Si quieres puedo enviarte los .h, las .lib con un programa que incluya solo las llamadas a funciones contenidas allí.','',0,'gA==','39jxnyfj',1,0,'',106,0,0),(26499,5939,6,519,0,'88.14.211.223',1171284086,1,0,1,1,1,0,'','Twbrowse  de  Hernan','Hola Foro\n\n  Se podria montar un browse en tiempo de ejecucion  ? con array le cambio el bLine y funciona perfecto pero con una dbf no me va.\n\n\n  Un saludo','',0,'gA==','2bvmsayj',1,0,'',519,0,0),(26500,5827,7,57,0,'83.53.69.224',1171284508,1,0,1,1,1,1,'','','Antonio\n¿Alguna solución al respecto?\n\nSaludos','',0,'gA==','9q3dik7x',1,0,'',57,0,0),(26501,5913,7,106,0,'85.34.123.173',1171286932,1,0,1,1,1,0,'','','Ahora dejé solo esta parte de codigo para que fuera todo mas claro:\n\n[code:1yn1g153]\n\n#include &quot;FWCE&#46;ch&quot;\n\n\nFUNCTION Main&#40;&#41;\n\n  msginfo&#40; Bar_PowerOn&#40;&#41; &#41;\n\nRETURN NIL\n\n\n\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n#include &quot;windows&#46;h&quot;\n#include &quot;c&#58;\\lavwin\\teve\\mobitron\\inc\\Barcode&#46;h&quot;\n\n\nstatic CBarcode * bar = NULL;\n\n// BARCODE //\n\nHB_FUNC&#40; BAR_POWERON &#41; // param&#58; hWnd\n&#123;\n   if&#40; bar == NULL &#41;\n   &#123;\n      bar = new CBarcode;\n   &#125;\n   Sleep&#40;30&#41;;\n   bar-&gt;Bar_PowerOn&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41; &#41;;\n&#125;\n\n\n#pragma ENDDUMP\n\n[/code:1yn1g153]\n\n\n\nAhora el error es el siguiente:\n\n\n\n\n[quote:1yn1g153]\n\nlaser.c\nc:\\lavwin\\teve\\mobitron\\inc\\barcode.h(47) : error C2504: \'CWinApp\' : base class undefined\nc:\\lavwin\\teve\\mobitron\\inc\\barcode.h(64) : error C2143: syntax error : missing \';\' before \'}\'\n\n[/quote:1yn1g153]\n\n\nSaludos','',0,'gIA=','1yn1g153',1,0,'',106,0,0),(26502,5936,6,2,0,'87.218.146.54',1171288629,1,0,1,1,1,1,'','','Sí puedes hacerlo, modificando la clase en estas líneas:\n[code:1wlfn7hd]\n   do case\n      case nCode == TTN_GETDISPINFO\n             &#46;&#46;&#46;\n[/code:1wlfn7hd]\nCada vez que se va a mostrar el tooltip, la ejecución pasa por ahí','',0,'AIA=','1wlfn7hd',1,0,'',2,0,0),(26503,5938,3,86,0,'213.119.103.68',1171288695,1,0,1,1,1,1,'','','Antonio,\n\nThanks for you answer.\n\nMy application starts up now. My first dialog box appears as it should be and then the buttonbar is shown.\n\nBut if I select one of the buttons, or I make a choice in one of the menus, I still got the error : \"Error FiveWin/3 Cannot create dialog box Resource K_INDEX\".\n\nI have a total of 6 res-files in my application. That is no problem, is it ?\n\nDoes the fact that I use \"LISTBOX\" having to do something with it ?\n\nThanks.\n\nMichel','',0,'AIA=','1cp7pfu7',1,0,'',86,0,0),(26504,5913,7,2,0,'87.218.146.54',1171288827,1,0,1,1,1,1,'','','Quita esta declaración del fichero de cabecera ya que no vas a usar esta clase:\n[code:wuqx9gli]\nclass CBarcodeApp &#58; public CWinApp \n&#123; \npublic&#58; \n   CBarcodeApp&#40;&#41;; \n\n// Overrides \n   // ClassWizard generated virtual function overrides \n   //&#123;&#123;AFX_VIRTUAL&#40;CBarcodeApp&#41; \n   public&#58; \n   virtual int ExitInstance&#40;&#41;; \n   virtual BOOL InitInstance&#40;&#41;; \n   //&#125;&#125;AFX_VIRTUAL \n\n   //&#123;&#123;AFX_MSG&#40;CBarcodeApp&#41; \n      // NOTE - the ClassWizard will add and remove member functions here&#46; \n      //    DO NOT EDIT what you see in these blocks of generated code ! \n   //&#125;&#125;AFX_MSG \n   DECLARE_MESSAGE_MAP&#40;&#41; \n&#125;; \n[/code:wuqx9gli]','',0,'AIA=','wuqx9gli',1,0,'',2,0,0),(26505,5938,3,2,0,'87.218.146.54',1171288935,1,0,1,1,1,1,'','','Michel,\n\nPlease copy the RC portion for K_INDEX dialog here, thanks\n\nThere should be no problem for using several RES files. The listbox is not a problem','',0,'AIA=','1rf4b334',1,0,'',2,0,0),(26506,5940,6,53,0,'189.139.98.113',1171290686,1,0,1,1,1,1,'','Ejemplo de TFileXls','Amigos:\n\nAlguien que quiera compartirme un pequeño ejemplo usando la clase TFileXls de Ramón Avendaño ?\n\nNecesito leer una hoja de Excel.\n\neste es mi correo      <!-- e --><a href=\"mailto:soisa2002@prodigy.net.mx\">soisa2002@prodigy.net.mx</a><!-- e -->\n\nGracias, Armando','',0,'AIA=','wf4wo9zy',1,0,'',53,0,0),(26507,5938,3,86,0,'213.119.103.68',1171291124,1,0,1,1,1,1,'','','Antonio,\n\nHere is K_INDEX.\n\n[color=green:2lpoubsr][size=100:2lpoubsr]K_INDEX DIALOG  112, 59, 170, 208\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCLASS \"BorDlg_Gray\"\nCAPTION \"Bestanden voor reorganisatie selecteren\"\nFONT 8, \"MS Sans Serif\"\n{\n CHECKBOX \"Algemene bestanden\", 101, 33, 26, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Basisgegevens partijen\", 102, 33, 38, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Basisgegevens betrokkenen\", 103, 33, 50, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Basisgegevens rechtbanken\", 104, 33, 62, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Dossiergegevens\", 105, 33, 74, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Agenda\", 106, 33, 86, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Prestaties\", 107, 33, 98, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Tekstverwerking\", 108, 33, 110, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Boekhouding\", 109, 33, 122, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CHECKBOX \"Alle bestanden\", 110, 33, 150, 120, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, -7, 175, 185, 3\n DEFPUSHBUTTON \"&amp;Reorganisatie starten\", 901, 17, 185, 80, 14\n PUSHBUTTON \"&amp;Onderbreken\", 902, 103, 185, 50, 14\n CTEXT \"Kies de bestanden welke U wilt reorganiseren\", -1, 2, 7, 166, 8\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 14, 20, 141, 120\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 14, 144, 142, 24\n}[/size:2lpoubsr][/color:2lpoubsr]\n\nThanks.','',0,'Bg==','2lpoubsr',1,0,'',86,0,0),(26508,5915,6,147,0,'201.253.22.145',1171292372,1,0,1,0,1,1,'','','Estimados;\nretomo este hilo porque me pasa algo similar. Tengo un Dlg con un Combox, estilo DRODOWNLIST, y un Get. (en ese orden). Todo definido con código. Lo que deseo es que el foco lo tome el Get; he puesto en el ON INIT oCmb:oJump:= oGet, pero el foco lo toma siempre el Combo.\nCual sería la forma correcta?\n\ngracias, saludos','',0,'Bg==','4ab3p7ol',1,0,'',147,0,0),(26509,5941,6,147,0,'201.253.22.145',1171293140,1,0,1,0,1,1,'','Barras verticales/horizontales que no se muestran','Estimados:\nEstoy usando la clase Outlook en la que a la derecha (splitter de por medio) de la barra de botones pretendo mostrar un Dlg con browse. El problema es que al dibujarse el Dlg con el browse este no muestra las barras de desplazamiento.\nAlguna idea de que es lo que hago mal?\nse ve así: <!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02fac06669/No_Barra_vert.jpg.html\">http://hyperupload.com/download/02fac06 ... t.jpg.html</a><!-- m -->\n\n\ngracias, saludos','',0,'Bg==','dmfsjyo1',1,0,'',147,0,0),(26510,5832,3,879,0,'65.92.175.236',1171293305,1,0,1,1,1,0,'','','Please refer to my new UEStudio Configuration File post at\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6470\">http://fivetechsoft.com/forums/viewtopic.php?t=6470</a><!-- m -->\n\nKen','',0,'Bg==','30v2zn5m',1,1174782386,'',879,3,0),(26511,5941,6,147,0,'201.253.22.145',1171293517,1,0,1,0,1,1,'','','disculpas; aunque el código no tiene nada anormal es así:\n\n[code:3ka4nw4p]\n   @ 5, 5 OUTLOOK oOut ;\n          SIZE 100, oWnd&#58;nHeight&#40;&#41; ;\n          PIXEL ;\n          FONT oCO&#58;aFont&#91;1&#93; ;\n          OF oWnd\n\n   DEFINE GROUP OF OUTLOOK oOut PROMPT &quot;&amp;Mantenimiento&quot;\n\n   DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;bmp_Clientes&quot;    ;\n      PROMPT   &quot;Clientes&quot;        ;\n      MESSAGE  &quot;Tabla de Clientes&quot; ;\n      ACTION    oX&#58;= BrwClie&#40; oWnd, oCO&#58;aoTb&#91;_CLIENTES&#93; &#41;\n\n&#46;&#46;&#46;\n   @ 5, 150 SPLITTER oSpl ;\n            VERTICAL ;\n            PREVIOUS CONTROLS oOut ;\n            HINDS CONTROLS oX ;\n            LEFT MARGIN  135 ;\n            RIGHT MARGIN 1 ;\n            SIZE 4, 100  PIXEL ;\n            OF oWnd ;\n            _3DLOOK ;\n            UPDATE\n&#46;&#46;&#46;\n\n//////\nFUNCTION BrwClie&#40; oWnd, oTb &#41;\nlocal oBrw, ;\n      oDlg\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 500,600 PIXEL TITLE &quot;Tabla de Clientes&quot; ;\n          STYLE  nOr&#40; WS_POPUP, WS_VISIBLE, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME, WS_MINIMIZEBOX, 4 &#41; ;\n          OF oWnd\n          \n   oTb&#58;SetOrder&#40; &quot;Apellidos&quot; &#41;\n   \n   // Browse\n   TWbrowse&#40;&#41;&#58;lHScroll &#58;= &#46;F&#46;\n   @1,1  LISTBOX  oBrw ;\n         FIELDS   &quot;&quot;  ;\n         HEADER   &quot;Apellido&#40;s&#41;&quot;, &quot;Nombre&#40;s&#41;&quot;, &quot;Domicilio&quot; ;\n         COLSIZES 130 ,          160 ,        150 ;    \n         SIZE     500,400 ;\n         OF oDlg PIXEL\n\n         oBrw&#58;bLine&#58;= &#123;|nAt| oTB&#58;Load&#40;&#41;, ;\n                             &#123; oTB&#58;FieldGet&#40;2&#41;, ;\n                               oTB&#58;FieldGet&#40;3&#41;, ;\n                               oTB&#58;FieldGet&#40;5&#41;&#125; &#125;\n\n   oBrw&#58;aJustify &#58;= &#123; 0,0,0 &#125;\n   oBrw&#58;lAdjLastCol&#58;= TRUE\n   MySetBrowse&#40; oBrw, oTB &#41;       // Eagle1\n   oDlg&#58;oClient&#58;= oBrw\n   oBrw&#58;SetFocus&#40;&#41;\n   \n   ACTIVATE DIALOG oDlg CENTER NOWAIT\n   \nreturn&#40; oBrw &#41;\n\n                 [/code:3ka4nw4p]','',0,'AIA=','3ka4nw4p',1,0,'',147,0,0),(26512,5942,3,217,0,'200.159.120.34',1171295753,1,0,1,1,1,0,'','xBrowse horizontal and vertical lines colors','Hi!\n\nWhere I must change into xBrowse class to let us change the color of horizontal and/or vertical lines?\n\nRegards,\nMaurilio','',0,'AIA=','28x94e28',1,0,'',217,0,0),(26513,5915,6,397,0,'201.27.65.96',1171295868,1,0,1,0,1,1,'','','oCmb:oJump:= oGet, oGet:SetFocus()','',0,'AIA=','3oz5zju2',1,0,'',397,0,0),(26514,5913,7,106,0,'85.34.123.173',1171297812,1,0,1,1,1,1,'','','Antonio, resuelto este problema de la clase no usada.... tengo esta funcion para hacer el wrapper, pero no se como:\n\n[quote:3id5nmzy]\n\n	INT Bar_ScanData(int *sType, char *sData, int *iSize);\n\n        bar.Bar_ScanData(&amp;sBarcodeType, &amp;sBarcodeData[0], &amp;iBarcodeSize);\n\n[/quote:3id5nmzy]\n\n\nhice asi:\n\n[code:3id5nmzy]\n  HB_FUNC&#40; SCANDATA &#41; // param&#58; sBarcCodeType, sBarcodeData, iBarcodeSize\n  &#123;\n//     bar-&gt;Bar_ScanData&#40;&amp;sBarcodeType, &amp;sBarcodeData&#91;0&#93;, &amp;iBarcodeSize&#41;;\n     bar-&gt;Bar_ScanData&#40; hb_parni&#40;1&#41;, hb_parc&#40;2&#41;, hb_parni&#40;3&#41; &#41;;\n  &#125;\n\n[/code:3id5nmzy]\n\n\n\npero claramente, no llega a compilar dandome este error:\n\n\n\n[quote:3id5nmzy]\nteve.prg(4254) : error C2664: \'Bar_ScanData\' : cannot convert parameter 1 from \'int\' to \'int *\'\n        Conversion from integral type to pointer type requires reinterpret_cast,  C-style cast or function-style cast\n[/quote:3id5nmzy]\n\n\n \nGracias','',0,'gIA=','3id5nmzy',1,0,'',106,0,0),(26515,5938,3,67,0,'81.11.215.8',1171298746,1,0,1,1,1,0,'','','Michel ,\n\nTry to avoid borland controls , so as \'BORSHADE\'\n\nFrank','',0,'gIA=','37jin205',1,0,'',67,0,0),(26516,5943,2,812,0,'200.83.125.37',1171299068,1,0,1,1,1,0,'','Favor Ayuda','Hola Amigos:\n\nNecesito saber si existe la posibilidad de mostrar el total de una factura con numero detacados (Mas grandes) en la pantalla, lo he visto en el pantallas del foro, pero como puedo hacerlo en Fivewin 2.4 y Blinker 7.0\n\nSaludos,\nMiguel','',0,'gIA=','z30mydk4',1,0,'',812,0,0),(26517,248,6,397,0,'201.27.65.96',1171306300,1,0,1,0,1,1,'','','Amigo\n\nInstala mi aplicacion:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/eserver.exe\">http://www.shoppmarketing.com/forum/eserver.exe</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/myodbc.msi(obrigatorio\">http://www.shoppmarketing.com/forum/myo ... brigatorio</a><!-- m -->)\n\nMi aplicación maneja una base MySQL. El usuario revisa los datos en sus registros e responde.\n\nEs una forma segura de trabajo con formularios.\n\nAcesso directo a la base de datos sin usar post o get.','',0,'gIA=','2c0di1lq',1,0,'',397,0,0),(26518,5944,3,904,0,'198.54.202.210',1171306763,1,0,1,1,1,1,'','MSGWAIT','MSGWAIT does not \'obey\' CRLF like MSGSTOP does.\n\n#define CRLF Chr( 13 ) + Chr( 10 )\nMsgWait( \"Please, just wait a little!\"+CRLF+\"Working...\",\"TITLE\", 15 )\nMsgStop( \"Please, just wait a little!\"+CRLF+\"Working...\",\"TITLE\")\n\nAny ideas?','',0,'gIA=','1cx9i5la',1,0,'',904,0,0),(26519,5827,7,2,0,'87.218.146.54',1171307481,1,0,1,1,1,1,'','','Toni,\n\nDisculpa el retraso en responder, gracias\n\nHemos copiado el font \"Segoe UI\" a la carpeta de fonts del Pocket PC y hemos probado tu ejemplo y funciona correctamente\n\nNo dependerá del build de Windows Mobile ?','',0,'gIA=','1z9do687',1,0,'',2,0,0),(26520,5938,3,2,0,'87.218.146.54',1171307656,1,0,1,1,1,1,'','','Michel,\n\nPlease use these lines and check the shown value:\n[code:278tt95t]\n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   MsgInfo&#40; hBorland &#41;\n\n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;your application code&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot;\n[/code:278tt95t]\nPlease let us know what value MsgInfo() shows','',0,'AIA=','278tt95t',1,0,'',2,0,0),(26521,5945,6,774,0,'200.72.190.181',1171307681,1,0,1,1,1,1,'','Se puede Hacer Esto::: Clase TRebar','en la clase Trebar con TToolbar,,\n\nse puede usar translucidos,,, ojo no transparentes,, como en VISTA\n\nosea se podria hacer q la barra sea transparente y los botones tambien , asi se verian solo las imagenes de los botones en forma Aerea\n\n\nGRACIAS\n\nSi se puede algun ejemplo','',0,'AIA=','28bnrfxm',1,0,'',774,0,0),(26522,5915,6,2,0,'87.218.146.54',1171307755,1,0,1,1,1,1,'','','... ON INIT ( oGet:SetFocus(), .F. )','',0,'AIA=','1l2n74vs',1,0,'',2,0,0),(26523,5945,6,2,0,'87.218.146.54',1171307881,1,0,1,1,1,1,'','','Microsoft no ofrece esa capacidad, que sepamos','',0,'AIA=','3ncm8gjt',1,0,'',2,0,0),(26524,5944,3,2,0,'87.218.146.54',1171308034,1,0,1,1,1,1,'','','Ollie,\n\nThose functions are different. MsgStop() is a Windows API builtin function. \n\nMsgWait() is defined in FWH in source\\function\\msgrun.prg and does not check for CRLF. You may easily change its source code','',0,'AIA=','2avr7enb',1,0,'',2,0,0),(26525,5940,6,138,0,'189.141.72.59',1171310763,1,0,1,1,1,1,'','','FileXLS solo sirve para crear hojas de Excel, no para leerlas, si quieres leer una hoja de Excel, tienes que utilizar OLE forzosamente','',0,'AIA=','zy8jdjj2',1,0,'',138,0,0),(26526,5946,6,774,0,'200.72.190.181',1171310970,1,0,1,1,1,1,'','VIACORAL','Alguien comprado y usado viaConral,,\n\ncuenten q tal eso,,, hace todo lo que dice la web\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com\">www.viaopen.com</a><!-- w -->\n\nGracias','',0,'AIA=','2lqb8d2x',1,0,'',774,0,0),(26527,5947,6,812,0,'201.236.187.50',1171312494,1,0,1,1,1,0,'','Favor Ayuda','Hola Amigos: \n\nDisculpen por hacer una pregunta de Fivewin 2.4 en este foro, pero no he recibido respuesta en el foro de Fivewin.\n\nNecesito saber si existe la posibilidad de mostrar el total de una factura con numero detacados (Mas grandes) en la pantalla, lo he visto en el pantallas del foro, pero como puedo hacerlo en Fivewin 2.4 y Blinker 7.0 \n\nSaludos, \nMiguel','',0,'AIA=','1386vyqi',1,0,'',812,0,0),(26528,5943,2,774,0,'200.72.190.181',1171312918,1,0,1,1,1,1,'','','Miguel.... hola como estas...\n\ndime eso lo quieres hacer en un SAY o en una visualizacion para imprimir posteriormente','',0,'AIA=','1ffzp61f',1,0,'',774,0,0),(26529,5937,6,138,0,'189.141.72.59',1171313238,1,0,1,1,1,1,'','Re: programa autoactualizable','[quote=&quot;José Luis Sánchez&quot;:2fvmhw80]Hola:\nQuiero añadir una funcionalidad a mis programas que permitan autoactualizarse via internet. Esto es, añadir una opción de menú para que el programa se conecte a un servidor web, y si hay alguna versión posterior del programa que se actualice. Tengo claro que lo primero es establecer una conexión via FTP con el sitio web, luego descargar el programa, pero no se como hacer el cambio de un ejecutable por otro. \nMe gustaría saber si alguien ha hecho algo así.\n\nSaludos,[/quote:2fvmhw80]\n\nYo lo que hago usar la clase TURL incluida con xHarbour, funciona estupendamente para este tipo de casos:\n\nEsta es la mecanica:\n\n1) descargo de internet un fichero .INI que tengo puesto en la web, ese fichero .INI contiene en una de las entradas la ultima version del software:\n\noUrl := tURL():New(\"http://www.google.d2g.com/curver.inil\" )\noClient := tIPClient():New( oUrl )\nIF oClient:Open( oUrl )\n    oClient:ReadToFile( cIniFile2 )\n    oClient:Close()\nENDIF\n\nEsto se puede hacer nada mas comenzar el programa.\n\n2) Se comparan las versiones del programa, y si hay una version nueva, puedes volver a utilizar la clase TURL para descargarla via http, o bien utilizar un FTP para descargar, en mi caso lo hago via FTP con el componente Funcky FTP\n\n3) Yo aconsejo que el programa \"descargador\" sea un EXE independiente de tu programa principal el cual puedes ejecutar con algo como esto:\n\nIF MsgYesNO(\"hay una nueva version disponbile del programa, desea actualizar ?)\n   WINEXEC(\"decarga.exe\")\nENDIF\n\n4) Dentro de Descarga.EXE sigue el proceso que indica Antonio para \"matar\" el progrma original antes de descargar la actualizacion.','',0,'gA==','2fvmhw80',1,0,'',138,0,0),(26530,5876,6,228,0,'201.244.115.245',1171313527,1,0,1,1,1,1,'','Amigo...','Amigo me uno a la lista de los que quieren los archivos. jejejeje\n\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:leandro111@etb.net.co\">leandro111@etb.net.co</a><!-- e -->\n\nSaludos','',0,'gA==','1jgckcrz',1,0,'',228,0,0),(26531,5915,6,147,0,'201.253.31.52',1171313789,1,0,1,0,1,1,'','','Y bue... el que sabe ...sabe :D \nmuchas gracias','',0,'gA==','188rzlxr',1,0,'',147,0,0),(26532,5943,2,812,0,'201.236.187.50',1171314738,1,0,1,1,1,0,'','','Hola Amigo:\n\nSolo deseo mostrar un SAY en la pantalla el valor de la boleta o factura, con numeros mas grande. Esto lo necesito para Cajas en Puntos de Ventas.\n\nSaludos,\nMiguel\n\n[quote=&quot;A&amp;C&quot;:1q9bib6p]Miguel.... hola como estas...\n\ndime eso lo quieres hacer en un SAY o en una visualizacion para imprimir posteriormente[/quote:1q9bib6p]','',0,'gA==','1q9bib6p',1,0,'',812,0,0),(26533,4134,4,3,0,'82.255.87.153',1171314929,1,0,1,1,1,1,'','','Vilian\n\nAre you able now to use ftp ?\n\nIf not, do you want to try a sample program i can send you that will upload a test file on our server and check that it has been correctly updated ?.\n\nI can set a special directory for you if you want to test and make sure it works.\n\nLet me know by email,\n\nRegards\n\nRichard\n\nMy email is <!-- e --><a href=\"mailto:richard@cbati.com\">richard@cbati.com</a><!-- e -->','',0,'gA==','1rodibei',1,0,'',3,0,0),(26534,5942,3,2,0,'87.218.146.54',1171315963,1,0,1,1,1,1,'','','Maurilio,\n\nClass TXBrowse uses three pens to draw the lines:\n[code:qlx0zupp]\n   DEFAULT &#58;&#58;hBtnShadowPen &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_BTNSHADOW &#41; &#41;,;\n           &#58;&#58;hWhitePen     &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_BTNHIGHLIGHT &#41; &#41;\n\n   if &#58;&#58;hColPen != nil\n      DeleteObject&#40; &#58;&#58;hColPen &#41;\n      &#58;&#58;hColPen &#58;= nil\n   endif\n\n   nStyle &#58;= &#58;&#58;nColDividerStyle\n\n   do case\n   case nStyle == LINESTYLE_BLACK &#46;or&#46; nStyle == LINESTYLE_RAISED &#46;or&#46; nStyle == LINESTYLE_INSET\n      &#58;&#58;hColPen &#58;= CreatePen&#40; PS_SOLID, 1, CLR_BLACK &#41;\n   case nStyle == LINESTYLE_DARKGRAY\n      &#58;&#58;hColPen &#58;= CreatePen&#40; PS_SOLID, 1, CLR_GRAY &#41;\n   case nStyle == LINESTYLE_FORECOLOR\n      &#58;&#58;hColPen &#58;= CreatePen&#40; PS_SOLID, 1, &#58;&#58;nClrText &#41;\n   case nStyle == LINESTYLE_LIGHTGRAY\n      &#58;&#58;hColPen &#58;= CreatePen&#40; PS_SOLID, 1, CLR_LIGHTGRAY &#41;\n   end case\n[/code:qlx0zupp]\nYou may change the colors used there and/or look for LineTo() in the source code and use another pen of your own','',0,'AIA=','qlx0zupp',1,0,'',2,0,0),(26535,5947,6,397,0,'201.27.65.96',1171316383,1,0,1,0,1,1,'','','Fivewin és Fivewin.\n\nDefinas antes una FONT, ejemplo:\n\n[code:2flkclyl]\n   DEFINE FONT fntArial NAME &quot;Arial&quot; SIZE 20,44\n[/code:2flkclyl]\n\nUsas un SAY con esta fonte:\n\n[code:2flkclyl]\n   REDEFINE SAY oSay VAR nSuaVAR ID 123 OF oWnd FONT fntArial\n[/code:2flkclyl]','',0,'AIA=','2flkclyl',1,0,'',397,0,0),(26536,5943,2,2,0,'87.218.146.54',1171316504,1,0,1,1,1,1,'','','[code:5d5n213q]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, fntArial\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 80 ;\n      TITLE &quot;Testing Fonts&quot;\n\n   DEFINE FONT fntArial NAME &quot;Arial&quot; SIZE 0, -25\n\n   @ 2, 2 SAY &quot;Hello world&quot; FONT fntArial SIZE 180, 80\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\n   fntArial&#58;End&#40;&#41;\n\nreturn nil\n[/code:5d5n213q]','',0,'AIA=','5d5n213q',1,0,'',2,0,0),(26537,5947,6,812,0,'201.236.187.50',1171318334,1,0,1,1,1,0,'','','Muchas Gracias, Era lo que necesito.\n\nSaludos,\n\nMiguel\n\n[quote=&quot;Rochinha&quot;:3ng9nu8q]Fivewin és Fivewin.\n\nDefinas antes una FONT, ejemplo:\n\n[code:3ng9nu8q]\n   DEFINE FONT fntArial NAME &quot;Arial&quot; SIZE 20,44\n[/code:3ng9nu8q]\n\nUsas un SAY con esta fonte:\n\n[code:3ng9nu8q]\n   REDEFINE SAY oSay VAR nSuaVAR ID 123 OF oWnd FONT fntArial\n[/code:3ng9nu8q][/quote:3ng9nu8q]','',0,'gIA=','3ng9nu8q',1,0,'',812,0,0),(26538,5938,3,86,0,'213.119.103.68',1171323272,1,0,1,1,1,1,'','','Antonio,\n\nThe value, shown by MsgInfo(hBorland), is 13762560.\n\nMichel','',0,'gIA=','3kssb9o8',1,0,'',86,0,0),(26539,5948,20,49,0,'62.13.172.78',1171323470,1,0,1,1,1,1,'','palm emulatore','dove posso scaricare l\'emulatore per il palmare per win xp prof?\nsono andato sul link che dice linares ma non ho potuto scaricarlo ...','',0,'gIA=','2zspey4u',1,0,'',49,0,0),(26540,5935,4,49,0,'62.13.172.78',1171323663,1,0,1,1,1,1,'','','thanks it run ok\nperhaps i must have much memory perhaps a 1 or 2 gb on palm \nand not only 64 mb but on htc qtek 9600 it run ok \nwith it i can write this message because i have also umts connection and i can see fivetech forum on the screen orizontal and vertical','',0,'gIA=','2hjt57e5',1,0,'',49,0,0),(26541,5946,6,947,0,'83.57.181.160',1171324219,1,0,1,1,1,0,'','','Hola A&amp;C,\n\nA mi ViaCoral me va de lujo. Reconozco que al principio dude un poco, porque son gente nueva, pero me decidi y lo compre.\n\nYo uso en mis aplicaciones la ultima version de harbour y fivewin, y desde el principio pude incluir la libreria sin problemas. Tuve un par de dudas y me las resolvieron en poco tiempo. Incluso en domingos, el soporte tecnico te atiende.\n\nHe recibido las actualizaciones cuando las publican, y se vé que el trabajo en el producto es constante.\n\nEsta es mi experiencia personal, espero te ayude  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nJuan Antonio','',0,'gIA=','2i67xr3q',1,0,'',947,0,0),(26542,5938,3,2,0,'87.218.146.54',1171324431,1,0,1,1,1,1,'','','Michel,\n\nThat means that BWCC32.DLL is properly loaded.\n\nDo you still get the error using the above code ?','',0,'gIA=','2jsrbbcq',1,0,'',2,0,0),(26543,5823,3,103,0,'200.97.184.30',1171325309,1,0,1,1,1,1,'','','James,\n\n   I have tested your TSbrowse version and now the vertical scrollbar problem is gone!!! Fantastic job!! Congratulations!! I was waiting for this fix a long time ago.\n\n  Thanks again and Best Regards,','',0,'gIA=','3h7eohuw',1,0,'',103,0,0),(26544,5949,3,69,0,'74.13.32.66',1171325620,1,0,1,1,1,0,'','Detecting Region','Hi Everybody,\n\nHow can I detect what region a computer is set up for (Canada, United States etc...)\n\n\n\nThanks,\nJeff','',0,'gIA=','2jpe0gpr',1,0,'',69,0,0),(26545,5917,3,303,0,'72.199.41.171',1171325639,1,0,1,1,1,0,'','','Richard,\n\nYou can use <!-- w --><a class=\"postlink\" href=\"http://www.yousendit.com\">www.yousendit.com</a><!-- w --> to send large files.\n\nJames','',0,'gIA=','a2ldtze2',1,0,'',303,0,0),(26546,5823,3,303,0,'72.199.41.171',1171326303,1,0,1,1,1,0,'','','Kleyber,\n\nThanks for the response. I can\'t take all the credit as Enrico and I worked on this together.\n\nJames','',0,'gIA=','3fiw3mko',1,0,'',303,0,0),(26547,5823,3,103,0,'200.97.184.30',1171327226,1,0,1,1,1,1,'','','[quote:1368jzpi]Thanks for the response. I can\'t take all the credit as Enrico and I worked on this together.[/quote:1368jzpi]\n\nSo, thanks to both of you.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nBest Regards,','',0,'gA==','1368jzpi',1,0,'',103,0,0),(26548,5823,3,53,0,'189.139.98.113',1171328569,1,0,1,1,1,1,'','','Mr. James:\n\nDo you have a little sample using COMBOBOX on TSBROWSE ??\nit would share it with me?\n\nIt will be appreciated','',0,'gA==','31zs63l1',1,0,'',53,0,0),(26549,5946,6,774,0,'200.72.202.43',1171329884,1,0,1,1,1,1,'','','De que Pais eres y como la compraste,,, tienes alguna aplicacion de ejemplo q pueda ver con fuentes...\n\nlo que me interesa son las transparencias,, se pueden usar bien con viacoral..... \nsi puede mandame algo q pueda ver,, antes de comprarlo\n\n\nGRACIAS','',0,'gA==','3ps6ghk7',1,0,'',774,0,0),(26550,5950,3,707,0,'222.124.20.54',1171330647,1,0,1,1,1,0,'','How to use tab control','Hi All !\n\nI don\'t know what tabs control for\nCan someone help me \n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \ntesttab.prg on samples directory not complete\n\nThank\'s for help\nRegards\nAreang','',0,'gA==','vinii8dp',1,0,'',707,0,0),(26551,5941,6,913,0,'189.136.161.125',1171331482,1,0,1,1,1,1,'','HOLA','YO LO TENGO A SI Y ME FUNCIONA BIEN Y SE VE MUY BONITO <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  A UN QUE ME FALTA MAS COSITAS <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n @ -1, -1 OUTLOOK oOut ;\n    SIZE 140, oWnd:nHeight() ;\n    PIXEL ;\n		Color nRgb(230, 230, 250  ),nRgb( 132, 112, 255) ;\n    FONT oFont ;\n    OF oWnd\n\n  SET MESSAGE OF oWnd TO \"\" DATE TIME KEYBOARD\n\n  DEFINE GROUP OF OUTLOOK oOut PROMPT \"&amp;Principal\"\n\n\n	 DEFINE BITMAP OF OUTLOOK oOut ;\n     PROMPT \"Autos\" ;\n      ON CLICK  Main2();\n			  RESOURCE \"auto1\" TOOLTIP  \"Autos\"\n\n			//msginfo(\"Your code ...\", oSay:cCaption )\n\n\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"1VIDA\" ;\n      PROMPT \"Vida\"\n\n	  DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"GMM\" ;\n      PROMPT \"G.M.M\"\n\n\n    //DEFINE BITMAP OF OUTLOOK oOut ;\n     // RESOURCE \"FOLDER\" ;\n     // PROMPT \"This is the the fifth control\"\n\n\n		 //	DEFINE BITMAP OF OUTLOOK oOut ;\n     // RESOURCE \"fin\" ;\n     // PROMPT \"Salir\" ;\n     // ACTION oWnd:End()\n\n  DEFINE GROUP OF OUTLOOK oOut PROMPT \"&amp;Listados\"\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"print\" ;\n      PROMPT \"Autos\" ;\n			ACTION  Reportes1();\n			TOOLTIP \"Listado de renovaciones de Autos\"\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"print\" ;\n      PROMPT \" Vida\";\n			TOOLTIP \"Listado de renovaciones de Vida\"\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"print\" ;\n      PROMPT \"G.M.M\" ;\n			TOOLTIP \"Listado de renovaciones de Gastos Medicos\"\n\n	 DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"printers\" ;\n      PROMPT \"L.G.A\" ;\n			ACTION  LGA();\n			TOOLTIP \"Listado General de Autos\"\n\n\n\n  DEFINE GROUP OF OUTLOOK oOut PROMPT \"&amp;Herramientas\"\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"FOLDER\" ;\n      PROMPT \"First button\"\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE \"FOLDER\" ;\n      PROMPT \"Second button\"\n\n\n\n\n   @ 0, 140 SPLITTER oSpl ;\n              VERTICAL ;\n              PREVIOUS CONTROLS oOut ;\n              LEFT MARGIN 70 ;\n              RIGHT MARGIN 200 ;\n              SIZE 4, nil  PIXEL ;\n              OF oWnd ;\n              _3DLOOK ;\n              UPDATE\n\n                                                        tienes que poner al final lo que esta en rojo \nACTIVATE WINDOW oWnd MAXIMIZED  [color=red:zv9tyl7x]ON RESIZE oSpl:AdjRight()[/color:zv9tyl7x]\n\n\nSALUDOS\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'Ag==','zv9tyl7x',1,0,'',913,0,0),(26552,5949,3,397,0,'201.27.65.96',1171332825,1,0,1,0,1,1,'','','Friends\n\nSearch information about [b:7en3q4zm]GeoIP[/b:7en3q4zm].','',0,'QA==','7en3q4zm',1,0,'',397,0,0),(26553,5949,3,880,0,'165.69.3.21',1171334038,1,0,1,0,1,1,'','Get region','Hi Jeff,\n\nTry GetLocaleInfoA: the format is below\n\nDLL32 FUNCTION GetLocInfoA;\n      ( Locale AS LONG, ;\n        LCType AS LONG, ;\n        lpLCData AS STRING, ;\n        cchData AS LONG ) ;\n   AS LONG PASCAL; \n   FROM \"GetLocaleInfoA\" LIB \"KERNEL32\"\n\nThe CONSTANTs for passing are\n\nCONSTANT long LOCALE_ICOUNTRY = 5          \'  Country code, based on international phone codes\nCONSTANT long LOCALE_SCOUNTRY = 6          \'  The full localized name of the country.\nCONSTANT long LOCALE_SENGCOUNTRY = 4098    \'  The full English U.S. name of the country.\nCONSTANT long LOCALE_SABBREVCTRYNAME = 7   \'  Abbreviated name of the country ISO Standard 3166.\nCONSTANT long LOCALE_SNATIVECTRYNAME = 8   \'  Native name of the country.\n\neg.\nLOCAL ls_str\nls_str = space(128)\nGetLocInfoA( GetSystemDefaultLCID(), LOCALE_SXXX, ls_str,128)','',0,'QA==','27sf9wyk',1,0,'',880,0,0),(26554,5930,6,940,0,'189.157.73.119',1171335110,1,0,1,1,1,0,'','','Hola para el doble click\n\noBrw:bLDblClick := {|| msginfo(\'hola\'), oBrw:refresh(), oBrw:setfocus()  }\n\npara las teclas o tecla enter.\n\n oBrw2:bKeyDown := { | nKey | teclas( nKey  ) }\n\n\nstatic function _teclas1( nKey )\n   do case\n   case nKey == VK_INSERT\n   case nKey == VK_RETURN\n        msginfo(\'hola\')\n   case nKey == VK_DELETE \n   case nKey == VK_F3 \n   case nKey == VK_F6 \n   case nKey == VK_F8 \n   endcase\n\nreturn (.T.)\n\nSaludos\nCesar C.C.','',0,'QA==','3cti1pc5',1,0,'',940,0,0),(26555,5950,3,397,0,'201.27.65.96',1171336203,1,0,1,0,1,1,'','','Hii,\n\nUse TABS with PAGES control:\n\n[code:1mjh47va]\n   &#46;&#46;&#46;\n   @ 0, 0 PAGES oPage DIALOGS &quot;page1&quot;, &quot;page2&quot;, &quot;page3&quot; OF oWnd\n   @ 8, 0 TABS oTabs PROMPTS &quot;Page &amp;1&quot;, &quot;Page &amp;2&quot;, &quot;Page &amp;3&quot; OF oWnd\n;      ACTION oPage&#58;SetOption&#40;oTabs&#58;nOption&#41;\n[/code:1mjh47va]','',0,'AIA=','1mjh47va',1,0,'',397,0,0),(26556,5949,3,69,0,'74.13.32.66',1171336670,1,0,1,1,1,0,'','','Richard,\n\nWhen I compile I get the error:\n\n\nError: Unresolved external \'_HB_FUN_GETSYSTEMDEFAULTLCID\'\n\n\nWhere have I gone wrong?\n\n\nThanks,\nJeff','',0,'AIA=','11m7247a',1,0,'',69,0,0),(26557,5939,6,496,0,'200.107.36.176',1171337127,1,0,1,1,1,0,'','','Sí se puede, usando el mismo bline.  En el bline colocaremos la variable que contiene los campos a mostrar. Yo lo he usado así y no he tenido problemas.  Aquí tienes  lo más principal de la función que uso, a lo mejor hay mejores formas pero al menos a mí me funciona:\n\n[code:27nbf84c]\n//ctit = titulo de la ventana con el browse\n//cfile = nombre de la tabla a mostrar &#40;archivo&#41;\n//calias = alias de la tabla\nfunction Ed1&#40;ctit,cfile,calias&#41;\n\n// bla,bla\n// bla,bla\n\nnfields&#58;=fcount&#40;&#41;\nencabeza&#58;=array&#40;nfields&#41;\nancho1&#58;=array&#40;nfields&#41;\ncampos&#58;=array&#40;nfields&#41;\njustif&#58;=array&#40;nfields&#41;\n\n///campos2 es la variable que usaremos en el bline\ncampos2&#58;=&quot;&#123;&quot;\ncampos3&#58;=array&#40;nfields&#41;\nmalias&#58;=alias&#40;&#41;+&quot;-&gt;&quot;\ncampo_tip&#58;=array&#40;nfields&#41;//tipo de dato\nfor i=1 to nfields\n	encabeza&#91;i&#93;&#58;=field&#40;i&#41;\n	tmpvar&#58;=&amp;&#40;field&#40;i&#41;&#41;\n	campos&#91;i&#93;&#58;=field&#40;i&#41;\n	campos3&#91;i&#93;&#58;=malias+campos&#91;i&#93;\n	campo_tip&#91;i&#93;&#58;=valtype&#40;&amp;&#40;field&#40;i&#41;&#41;&#41;\n	justif&#91;i&#93;&#58;=&#46;f&#46;\n	if campo_tip&#91;i&#93;==&quot;N&quot;\n		tmpvar&#58;=str&#40;tmpvar&#41;\n		campos2+=&quot;str&#40;&quot;+malias+campos&#91;i&#93;+&quot;&#41;&quot;\n		justif&#91;i&#93;&#58;=&#46;t&#46;\n	elseif campo_tip&#91;i&#93;==&quot;D&quot;\n		tmpvar&#58;=dtoc&#40;tmpvar&#41;\n		campos2+=&quot;DTOC&#40;&quot;+malias+campos&#91;i&#93;+&quot;&#41;&quot;\n	elseif campo_tip&#91;i&#93;==&quot;M&quot;\n		campos2+=\'&quot;&lt;MEMO&gt;&quot;\'\n		tmpvar&#58;=&quot;&lt;MEMO&gt;&quot;\n	else\n		campos2+=malias+campos&#91;i&#93;\n	endif\n	if i!=nfields\n		campos2+=&quot;,&quot;\n	endif\n	fontwith&#58;=GetFontInfo&#40;oFont&#41;\n	ancho1&#91;i&#93;&#58;=&#40;len&#40;tmpvar&#41;+1&#41;*fontwith&#91;2&#93;  // en pantalla\nnext\ncampos2+=&quot;&#125;&quot;\n\n\nDEFINE FONT ofont NAME &quot;MS Sans Serif&quot; size 0,-12 //OF Dialog_ed\nDEFINE WINDOW oWinGen MDICHILD OF oWin ;\n      TITLE ctit+&quot;&#46; Archivo&#58; &quot;+cfile COLOR &quot;W+/W&quot;\n\n@2,175 listbox oList fields ;\n	of oWinGen size 313,172 update font ofont pixel\n	olist&#58;calias=calias\n	oList&#58;ajustify&#58;=justif\n	oList&#58;acolsizes&#58;=ancho1\n	oList&#58;aheaders&#58;=encabeza\n	oList&#58;lcellstyle&#58;=&#46;t&#46;\n	oList&#58;nlinestyle&#58;=1\n	olist&#58;lAdjLastCol&#58;=&#46;f&#46;\n	olist&#58;lAdjBrowse&#58;=&#46;f&#46;\n	oList&#58;bline&#58;=&#123;||&amp;campos2&#125;\n\n// y más bla,bla\n//////////////////////////\n\n////////////////////////////////////////////////////\n// La función la llamo de la siguiente manera\n\nlfamtr&#58;=cGetNewAlias&#40;&quot;lfamtr&quot;&#41;\nuse &amp;cfilefam shared alias &#40;lfamtr&#41; new\nindex on &#40;lfamtr&#41;-&gt;cod_fam to famt_i\n&#40;lfamtr&#41;-&gt;&#40;ED1&#40;&quot;Actualizar Familias de Trabajadores&quot;,cfilefam,lfamtr&#41;&#41;\n\n[/code:27nbf84c]\n\nEspero que te sirva\n\nUn saludo\n\nMarcelo Jingo','',0,'AIA=','27nbf84c',1,0,'',496,0,0),(26558,5930,6,53,0,'189.139.98.113',1171337775,1,0,1,1,1,1,'','','César:\n\nTe agradezco tu respuesta, con el código que muestras obtenga la tecla que se usó en el browse y en realidad lo que yo busco es el número de fila en donde su uso la tecla o el ratón, lo que en DBF sería la función ROW().\n\nPor ejemplo: pensemos que el Browse tiene 10 lineas en pantalla, y dan clic o return en la tercera línea, yo necesito conocer el valor 3.\n\nSaludos, Armando','',0,'AIA=','19xved8n',1,0,'',53,0,0),(26559,5940,6,53,0,'189.139.98.113',1171338270,1,0,1,1,1,1,'','','René:\n\nGracias por la luz, aclarame más el panorama por favor\n\nNecesito alguna LIB ole ?, donde la localizo ?\n\nutilizo FWH 2.7MZO y xHarbour\n\nSaludos, Armando','',0,'AIA=','19gxpbhk',1,0,'',53,0,0),(26560,5949,3,880,0,'165.69.3.21',1171339788,1,0,1,1,1,1,'','','Oops!\n\nDLL32 FUNCTION GetSystemDefaultLCID();\n   AS LONG PASCAL; \n   FROM \"GetSystemDefaultLCID\" LIB \"KERNEL32\"\n\ntry this\n\n# include \"fivewin.ch\"\n\n# define LOCALE_ICOUNTRY  5\n# define LOCALE_SCOUNTRY  6\n# define LOCALE_SENGCOUNTRY 4098\n# define LOCALE_SABBREVCTRYNAME  7\n\nFUNCTION Main()\n\n   LOCAL strCountry := Space(128)\n\n        GetLocInfoA( GetSystemDefaultLCID(), LOCALE_SENGCOUNTRY, @strCountry,128)\n	MsgInfo(strCountry)\n\nRETURN NIL\n\nDLL32 FUNCTION GetLocInfoA;\n( Locale AS LONG, ;\nLCType AS LONG, ;\nlpLCData AS STRING, ;\ncchData AS LONG ) ;\nAS LONG PASCAL;\nFROM \"GetLocaleInfoA\" LIB \"KERNEL32\"\n\nDLL32 FUNCTION GetSystemDefaultLCID();\nAS LONG PASCAL;\nFROM \"GetSystemDefaultLCID\" LIB \"KERNEL32\"','',0,'AIA=','1l3k86fj',1,0,'',880,0,0),(26561,3623,6,913,0,'189.136.161.125',1171340332,1,0,1,1,1,1,'','Hello Rossine','Hello\n\nI right now am using your I magnify tooltips <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nI congratulate your charming tooltips <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nGreetings from Mexico and thanks\n\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','11fvpprb',1,0,'',913,0,0),(26562,5823,3,303,0,'72.199.41.171',1171344929,1,0,1,1,1,0,'','','Armando,\n\nSorry I don\'t and I don\'t know if it can be done or not. I rarely build data entry into browses, I think it is much better done in dialogs except for a few exceptions. \n\nPerhaps someone else knows?\n\nJames','',0,'AIA=','ni7d08gm',1,0,'',303,0,0),(26563,5930,6,54,0,'189.132.106.181',1171349571,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:3ssw10k8]César:\n\nTe agradezco tu respuesta, con el código que muestras obtenga la tecla que se usó en el browse y en realidad lo que yo busco es el número de fila en donde su uso la tecla o el ratón, lo que en DBF sería la función ROW().\n\nPor ejemplo: pensemos que el Browse tiene 10 lineas en pantalla, y dan clic o return en la tercera línea, yo necesito conocer el valor 3.\n\nSaludos, Armando[/quote:3ssw10k8]\n\nArmandini,\n\n? oBrw:nRowSel\n\nSaludos','',0,'gA==','3ssw10k8',1,0,'',54,0,0),(26564,5823,3,6,0,'87.21.195.126',1171353939,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:z917yd0v]Kleyber,\n\nThanks for the response. I can\'t take all the credit as Enrico and I worked on this together.\n\nJames[/quote:z917yd0v]\n\nReally? I don\'t remember... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','z917yd0v',1,0,'',6,0,0),(26565,5823,3,6,0,'87.21.195.126',1171354181,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:25wcuvdc]Mr. James:\n\nDo you have a little sample using COMBOBOX on TSBROWSE ??\nit would share it with me?\n\nIt will be appreciated[/quote:25wcuvdc]\n\nDo you mean, pressing Enter on a cell and a combobox will temporary replace the cell? If yes, you can (relatively) easy create a combobox in runtime (@ row, col COMBOBOX etc.) and move/resize it to fill che cell.\n\nEMG','',0,'gA==','25wcuvdc',1,0,'',6,0,0),(26567,5827,7,57,0,'83.53.69.224',1171357323,1,0,1,1,1,1,'','','Antonio\nEstas en lo cierto. He probado el ejemplo en una PDA con WM2003 y funciona correctamente. Por contra con WM2005 no.\n\nAlguna sugerencia de que pueden haber cambiado ??\n\nSaludos','',0,'gA==','1ax07mwa',1,0,'',57,0,0),(26568,5823,3,303,0,'72.199.41.171',1171358973,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Really? I don\'t remember...\n\nI was speaking about the work we did quite some time ago to fix the scrollbar, not the recent change that I made to support the ord... functions. This was way back in April 2005.\n\nJames','',0,'gA==','3hstqzwn',1,0,'',303,0,0),(26569,5913,7,2,0,'87.218.146.54',1171359435,1,0,1,1,1,1,'','','Prueba así. Has de pasar los parámetros por referencia:\n[code:39ivl7nd]\nHB_FUNC&#40; SCANDATA &#41; // param&#58; sBarcCodeType, sBarcodeData, iBarcodeSize \n&#123; \n   int sBarcCodeType = hb_parni&#40;1&#41;;\n   char * sBarcodeData = hb_parc&#40;2&#41;;\n   int iBarcodeSize = hb_parni&#40;3&#41;;\n \n   bar-&gt;Bar_ScanData&#40; &amp;sBarcodeType, &amp;sBarcodeData&#91;0&#93;, &amp;iBarcodeSize &#41;;\n \n  hb_storni&#40; sBarcodeType, 1 &#41;;\n  hb_storc&#40; sBarcodeData, 2 &#41;;\n  hb_storni&#40; iBarcodeSize, 3 &#41;; \n&#125;\n[/code:39ivl7nd]\nEstás seguro de que es &amp;sBarcodeData[0] ? Lo lógico sería sBarcodeData','',0,'AIA=','39ivl7nd',1,0,'',2,0,0),(26570,5946,6,947,0,'217.126.208.195',1171359531,1,0,1,1,1,0,'','','A&amp;C,\n\nLo mejor es que te descarges las demos de su pagina web, incluye el\ncodigo fuente del ejemplo. De todas formas contacta con ellos directamente, son los que mejor te pueden informar.\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nJuan Antonio','',0,'AIA=','3l4jv3lz',1,0,'',947,0,0),(26571,5827,7,2,0,'87.218.146.54',1171361207,1,0,1,1,1,1,'','','Toni,\n\nDe momento no sabemos que pueda ser. Nuestro código es el mismo para ambas versiones de WM.','',0,'AIA=','3tdpae8g',1,0,'',2,0,0),(26572,5913,7,106,0,'85.34.123.173',1171361343,1,0,1,1,1,0,'','','Antonio, muchas gracias, ya verè ahora de hacerlo funcionar.\n\n\neste es el ejemplo del manual:\n\n\n[code:1jdakljw]\nExample using Scan Key \n \nCBarcode bar; \nBOOL CBarAppDlg&#58;&#58;PreTranslateMessage&#40;MSG* pMsg&#41;  \n&#123; \n char sBarcodeData&#91;128&#93;; \n int iBarcodeSize, sBarcodeType; \n int iRetValue; \n TCHAR cKeyCode; \n HANDLE hScannerPwr; \n UINT iMessage; \n \n  iMessage = pMsg-&gt;message; \n cKeyCode = pMsg-&gt;wParam; \n \n  if &#40;iMessage == WM_KEYUP&#41; &#123; \n  switch &#40;cKeyCode&#41; \n  &#123; \n   case VK_F3&#58; \n   case VK_F4&#58; \n    hScannerPwr = bar&#46;GetScannerDeviceHandle&#40;&#41;; \n    bar&#46;Bar_ScannerStart&#40;hScannerPwr, m_hWnd&#41;; \n    iRetValue = bar&#46;Bar_ScanData&#40;&amp;sBarcodeType, \n&amp;sBarcodeData&#91;0&#93;, &amp;iBarcodeSize&#41;; \n    bar&#46;Bar_ScannerEnd&#40;hScannerPwr, m_hWnd&#41;; \n    bar&#46;CloseScannerDeviceHandle&#40;&#41;; \n    break; \n  &#125;  \n &#125;  \n return CDialog&#58;&#58;PreTranslateMessage&#40;pMsg&#41;; \n&#125; \n[/code:1jdakljw]\n\n\nSaludos','',0,'AIA=','1jdakljw',1,0,'',106,0,0),(26573,5942,3,217,0,'200.159.120.34',1171363253,1,0,1,1,1,0,'','','Thanks a lot, Antonio!!!\nI changed the color and it worked fine.\n\nRegards!\nMaurilio','',0,'AIA=','151z79fa',1,0,'',217,0,0),(26574,5823,3,6,0,'87.21.195.126',1171364829,1,0,1,1,1,1,'','','Ah, ok.\n\nEMG','',0,'AIA=','23yz60r5',1,0,'',6,0,0),(26575,3729,20,154,0,'151.21.72.137',1171366311,1,0,1,1,1,1,'','','... dopo tempo  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  ho ripreso in mano questo progetto, non riesco a compilare, quali liberie devo usare?','',0,'AIA=','3fumj7vn',1,0,'',154,0,0),(26576,5823,3,103,0,'200.241.81.140',1171366425,1,0,1,1,1,1,'','','Armando,\n   \n     In TSbrowse there is a class named TSCombo where you can use it. I never had used it, but in SBTest.prg, which comes in the folder SAMPLES of TSbrowse, you can see easily an example.\n\nBest Regards,','',0,'AIA=','knpjvu0n',1,0,'',103,0,0),(26577,5901,20,154,0,'151.21.72.137',1171366461,1,0,1,1,1,1,'','','Silvio, \npuoi postare un preview dei tabs finiti?\no inviamelo alla mia casella privata.','',0,'AIA=','1yclhnol',1,0,'',154,0,0),(26578,5948,20,154,0,'151.21.72.137',1171366581,1,0,1,1,1,1,'','','Purtroppo non so aiutarti, ho provato anch\'io a scaricare da MS un po\' di materiale ma senza successo.\nHo da poco acquistato Fwppc, nel pacchetto mi hanno fornito tutto!','',0,'AIA=','3bw3cqwm',1,0,'',154,0,0),(26579,3729,20,154,0,'151.21.72.137',1171366929,1,0,1,1,1,1,'','','o meglio avevo fatto i test che ho ritrovato ma adesso, lo stesso test, mi fa errore:\n[b:3tm055kc]Si è verificato un errore in test.Exe. L\'applicazione verrà chiusa.[/b:3tm055kc]','',0,'QA==','3tm055kc',1,0,'',154,0,0),(26580,5901,20,49,0,'213.82.134.66',1171367347,1,0,1,1,1,1,'','','le tue caselle danno errore','',0,'QA==','393hafuo',1,0,'',49,0,0),(26581,5901,20,154,0,'151.21.72.137',1171368063,1,0,1,1,1,1,'','','Non mi risulta di avere le caselle che non funzionano...\nDi spam ne ricevo a carrettate <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nPuoi riprovare?','',0,'QA==','1v8caqir',1,0,'',154,0,0),(26582,3729,20,6,0,'87.21.195.126',1171368408,1,0,1,1,1,1,'','','Hai provato l\'esempio che ti ho dato così com\'è?\n\nEMG','',0,'QA==','1luhhxr6',1,0,'',6,0,0),(26583,3729,20,154,0,'151.21.72.137',1171369321,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2v9s5ul7]Hai provato l\'esempio che ti ho dato così com\'è?[/quote:2v9s5ul7]\nSi, mi fai venire i dubbi... Certo!\nCmq ho cercato nei vari newsgroup e altri hanno avuto sto problema, un bel GPF!!!\nLe risposte sono: Aggiungi la lib hbTip, o la pcrepos o la tip o la Harbour, ho provato con tutte senza risultati.\nIn questi casi dove si trovano/cercano le dipendenze?','',0,'gA==','2v9s5ul7',1,0,'',154,0,0),(26584,3729,20,6,0,'87.21.195.126',1171369538,1,0,1,1,1,1,'','','Queste sono le librerie che uso io per un programma console (xHarbour.org):\n\nrtl.lib +\nvm.lib +\ncommon.lib +\nlang.lib +\ngtwin.lib +\nrdd.lib +\nusrrdd +\ndbffpt.lib +\ndbfntx.lib +\ndbfcdx.lib +\nhbsix.lib +\nmacro.lib +\npcrepos.lib +\nhbodbc.lib +\nhbzip.lib +\nct.lib +\ntip.lib +\nimport32.lib +\ncw32.lib +\nodbc32.lib +\nwininet.lib\n\nEMG','',0,'gA==','mxrca4j4',1,0,'',6,0,0),(26585,3729,20,6,0,'87.21.195.126',1171369569,1,0,1,1,1,1,'','','Dimmi anche se vuoi provare il mio EXE.\n\nEMG','',0,'gA==','wyezqi7x',1,0,'',6,0,0),(26586,3729,20,154,0,'151.21.72.137',1171370113,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:qsyrtnkd]Queste sono le librerie che uso io per un programma console (xHarbour.org):[/quote:qsyrtnkd]\nEnrico,\nsi può usare con Fivewin?\nio lo sto provando con fwh...','',0,'gA==','qsyrtnkd',1,0,'',154,0,0),(26587,5913,7,106,0,'85.34.123.173',1171370885,1,0,1,1,1,1,'','','Antonio, muchas gracias por tu ayuda.\n\nYa puedo leer codigos de barra desde mi programa en FWH.\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','1wptafhj',1,0,'',106,0,0),(26588,3729,20,6,0,'87.21.195.126',1171372014,1,0,1,1,1,1,'','','Certo. Ma le librerie allora sono queste:\n\nfivehx.lib +\nfivehc.lib +\nrtl.lib +\nvm.lib +\ncommon.lib +\ngtgui.lib +\nlang.lib +\nrdd.lib +\nusrrdd +\ndbffpt.lib +\ndbfntx.lib +\ndbfcdx.lib +\nhbsix.lib +\nmacro.lib +\npcrepos.lib +\nhbzip.lib +\ntip.lib +\nct.lib +\nodbc32.lib +\nimport32.lib +\ncw32.lib +\nwininet.lib\n\nEMG','',0,'gA==','1j79v89v',1,0,'',6,0,0),(26589,3729,20,154,0,'151.21.72.137',1171372464,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:32ddg78z]Certo. Ma le librerie allora sono queste:\n...[/quote:32ddg78z]\nSi, stavo facendo le prove mentre hai risposto...\nin effetti riordinando le librerie funziona,\nGrazie.','',0,'gA==','32ddg78z',1,0,'',154,0,0),(26590,5949,3,69,0,'206.210.97.138',1171376030,1,0,1,1,1,0,'','','we are getting closer ....\n\nNow it will return \"United States\" but I have my \"location\" set to \"Canada\"\n(Win XP Pro)\n\nAny ideas ?\n\n\nThanks,\nJeff','',0,'gA==','1y3pnjd0',1,0,'',69,0,0),(26591,5845,7,49,0,'213.82.134.66',1171377041,1,0,1,1,1,1,'','','Dear Reneè\nAlso with the new HTC qtek 9600 SmartPhone fwppc seems work fine\nAntonio sent me a sample to try but if you w \n\nant send me another samples to try on qtek you\'re welcome \n\nIf you have compless sample with the most control of fw  can send me at private email \n\nWe can create a List of pda compatibles...','',0,'gA==','8nsder4y',1,0,'',49,0,0),(26592,5952,3,154,0,'151.21.72.137',1171377831,1,0,1,1,1,1,'','To clean up the files from HTML code','Hi fwh\'s,\n\nto clean up the files from HTML code,\nexists some function?','',0,'gA==','68gmi9uo',1,0,'',154,0,0),(26593,5823,3,53,0,'189.139.94.101',1171378691,1,0,1,1,1,1,'','','Mr. James, Mr. Enrico and Mr. Kleyber:\n\nThanks for your help, yes, tsbrowse let us to use a combobox control, I use it in a 16bits app but with 32bits it does not work for me.\n\nBTW, the SBTEST.PRG sample has this code line\noBrw:SetData( 4, ComboWBlock( oBrw, \"Reference\", 4, aTipo ) )\n\n<!-- m --><a class=\"postlink\" href=\"http://img364.imageshack.us/img364/2585/clip1bm4.jpg\">http://img364.imageshack.us/img364/2585/clip1bm4.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img364.imageshack.us/my.php?image=clip1bm4.jpg\">http://img364.imageshack.us/my.php?image=clip1bm4.jpg</a><!-- m -->\n\nBest regards','',0,'gA==','3e86ouum',1,0,'',53,0,0),(26594,5901,20,49,0,'213.82.134.66',1171378716,1,0,1,1,1,1,'','','Ancora non è finito ma sta uscendo qualcosa .....\n[url=http&#58;//img181&#46;imageshack&#46;us/my&#46;php?image=tabsdf0&#46;jpg:350bn2hu][img:350bn2hu]http&#58;//img181&#46;imageshack&#46;us/img181/1264/tabsdf0&#46;th&#46;jpg[/img:350bn2hu][/url:350bn2hu]','',0,'GA==','350bn2hu',1,0,'',49,0,0),(26595,5949,3,456,0,'62.43.194.117',1171378903,1,0,1,1,1,1,'','','Return Country assigned  in Regional Settings.\n\n[code:3h2yt74i]\n# include &quot;fivewin&#46;ch&quot;\n#define  HKEY_CURRENT_USER       2147483649\n\nFUNCTION  Main&#40;&#41;\n   Local oReg, cCountry\n   oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER, &quot;Control Panel\\International&quot;, &#46;f&#46; &#41;\n   cCountry &#58;= oReg&#58;Get&#40; &quot;sCountry&quot;, \'\' &#41;\n   MsgInfo&#40;cCountry&#41;\n   oReg&#58;Close&#40;&#41;\nRETURN NIL[/code:3h2yt74i]\n\nRegards from Mallorca Is.','',0,'AIA=','3h2yt74i',1,0,'',456,0,0),(26596,5930,6,53,0,'189.139.94.101',1171378974,1,0,1,1,1,1,'','','William:\n\nChas gracias, esa es la buena.\n\nUn abrazo, Armando','',0,'AIA=','sxuuwak5',1,0,'',53,0,0),(26597,5950,3,707,0,'125.163.114.2',1171379542,1,0,1,1,1,0,'','','Thank\'s Rochinha\n\nBest for you\n\nRegards\nAreang','',0,'AIA=','7d7jt7e6',1,0,'',707,0,0),(26598,5953,3,217,0,'200.159.120.34',1171379615,1,0,1,1,1,0,'','TxBrowse: Paint problem','Hi!\n\nI\'m browsing an array with TxBrowse (from resource). I don\'t use horizontal scroll bar and don\'t use header.\nThe array have more elements than lines displayed in TxBrowse, then when I position in last displayed row and press down arrow occur a paint problem: last line is duplicated. It will repeat for each line after last displayed row <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nIn other words, last visible line will be displayed \"n\" times.\n\nRegards\nMaurilio','',0,'AIA=','xfmcqq01',1,0,'',217,0,0),(26599,5952,3,397,0,'201.27.65.96',1171382990,1,0,1,0,1,1,'','','Friend \n\nI recomend to you ASP. Use the FSO object to manipulate files on server.\n\nHere some examples with this functions:\n\n[url=http&#58;//www&#46;codigolivre&#46;com&#46;br/scripts/asp/manipulacao/WexFree20&#46;zip:3r8x4x4p]Web Explorer[/url:3r8x4x4p]\n[url=http&#58;//www&#46;codigolivre&#46;com&#46;br/scripts/asp/manipulacao/fileman61&#46;zip:3r8x4x4p]FileMan[/url:3r8x4x4p]. The best.','',0,'EA==','3r8x4x4p',1,0,'',397,0,0),(26600,5939,6,138,0,'189.141.72.59',1171383219,1,0,1,1,1,1,'','','Lo que yo hago es crear el array para bLine como si fuera una cadena de caracteres, yluego la convierto en el bloque de codigo necesario para bLIne[code:3ik69d8t]\n\n   LOCAL cArray &#58;= &quot;&#123;&quot;\n   FOR nContador &#58;= 1 TO LEN&#40;aFields&#41; // del DBSTRUCT\n      DO CASE\n         CASE VALTYPE&#40;aFields&#91;nContador,1&#93;&#41; = &quot;C&quot;\n            IF LEN&#40;aFields&#91;nContador&#93;&#41; = 7\n               IF aFields&#91;nContador,7&#93;\n                  cArray += aFields&#91;nContador,1&#93;+&quot;,&quot;\n               ENDIF\n            ELSE\n               IF aFields&#91;nContador,3&#93; &lt;&gt; NIL\n                  cArray += &quot;TRANSFORM&#40;&quot;+&#58;&#58;cAlias+&quot;-&gt;&quot;+aFields&#91;nContador,1&#93;+&quot;,\'&quot;+aFields&#91;nContador,3&#93;+&quot;\'&#41;,&quot;\n               ELSE\n                  cArray += &#58;&#58;cAlias+&quot;-&gt;&quot;+aFields&#91;nContador,1&#93;+&quot;,&quot;\n               ENDIF\n            ENDIF\n      ENDCASE\n   NEXT nContador\n   cArray &#58;= SUBSTR&#40;cArray,1,LEN&#40;cArray&#41;-1&#41;+&quot;&#125;&quot;\n\n/* hasta este punto tenemos el array como texto, ahora tenemos que convertilro en un bloque de codigo */\n\n   &#58;&#58;oBrowse&#58;bLine &#58;= cToBlock&#40;cArray&#41;[/code:3ik69d8t]','',0,'AIA=','3ik69d8t',1,0,'',138,0,0),(26601,5938,3,86,0,'213.119.103.68',1171383542,1,0,1,1,1,1,'','','Antonio,\n\nI have found the reason for my problem.\n\nI have 6 RC-files, which I compiled to RES-files by using BRC32.EXE.\n\nBy using these RES-files, I got the error \"Cannot create dialog box\".\n\nI copied my RC-files to one big RC-file and compiled it using BRC32.EXE, which resulted in one RES-file.\n\nI builded my application with this RES-file, and guess what : no error anymore.\n\nSo, it looks to me that using more than one RC-file is a problem.\n\nWhat is your opinion ?\n\nThank you.\n\nMichel','',0,'AIA=','q8l4fccs',1,0,'',86,0,0),(26602,5940,6,138,0,'189.141.72.59',1171383651,1,0,1,1,1,1,'','','Si usas xHarbour todo lo que necesitas ya lo tienes.\n\nEste es el ejemplo para leer celdas :\n\n[code:32g5yztj]    \n\nLOCAL oExcel, oHoja, nRows, nCols\n   \n    oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    oExcel&#58;WorkBooks&#58;Open&#40;cGetFile&#40;&quot;*&#46;XLS&quot;, &quot;Seleccione Archivo&quot;&#41;&#41; \n    oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n\n    nRows &#58;= oHoja&#58;UsedRange&#58;Rows&#58;Count&#40;&#41;\n    nCols &#58;= oHoja&#58;UsedRange&#58;Columns&#58;Count&#40;&#41;\n\n   FOR nRow &#58;= 2 TO nRows\n      FOR nCol &#58;= 1 TO nCols\n          ? oHoja&#58;Cells&#40;nRow, nCol&#41;&#58;Value\n         SysRefresh&#40;&#41;\n      NEXT\n   NEXT\n\n     oExcel&#58;Quit&#40;&#41;\n\n     oHoja&#58;End&#40;&#41;\n     oExcel&#58;End&#40;&#41;\n\n RETURN\n[/code:32g5yztj]','',0,'AIA=','32g5yztj',1,0,'',138,0,0),(26603,5938,3,86,0,'213.119.103.68',1171383773,1,0,1,1,1,1,'','','Antonio,\n\nOne more question about RC-files :\n\nHow can I make changes to big RC-files as I just mentioned ? Resource Workshop doesn\'t open such big RC-files, so I need to repeat this whole procedure to get one RES-file.\n\nThanks,\n\nMichel','',0,'AIA=','g5qz4t6d',1,0,'',86,0,0),(26604,5941,6,147,0,'201.253.21.45',1171384573,1,0,1,0,1,1,'','','muchas gracias, todo sirve. Aunque el problema no estaba allí sino en el Dlg que se abre desde una de las opciones y que ya lo solucioné','',0,'AIA=','1484s4qw',1,0,'',147,0,0),(26605,5917,3,215,0,'189.136.225.171',1171384849,1,0,1,1,1,1,'','The files please','Richard,\nPlease,\nCan you send the Codejock v10.4.1 evaluation version too.\nMaybe can best if you upload the file to server for download.\n\nFernando','',0,'AIA=','1rpctt1n',1,0,'',215,0,0),(26606,5949,3,69,0,'206.210.97.138',1171385247,1,0,1,1,1,0,'','','Oh so close ....\n\nNow it will select the \n\n[img]\n<!-- m --><a class=\"postlink\" href=\"http://www.can-soft.net/dl/Region.JPG\">http://www.can-soft.net/dl/Region.JPG</a><!-- m -->\n[/img]\n\nIt is selecting the country based on the language setting (see item 1 in screen shot)\n\nIs it possible to get the info stored in \"location\" (see item 2 in screen shot)\n\nI really appreciate the help.\n\nThanks,\nJeff','',0,'','109k6ed2',1,0,'',69,0,0),(26607,5940,6,53,0,'189.139.94.101',1171386705,1,0,1,1,1,1,'','','René:\n\nGrande Maestro ! ( Para variar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> )\n\nMuy agradecido\n\nUn abrazo, Armando','',0,'','2i9trfcc',1,0,'',53,0,0),(26608,5954,2,393,0,'200.47.185.10',1171387343,1,0,1,1,1,0,'','Pregunta son Clase Printer','Amigos, estoy generando una proforma (para imprimir), la pregunta es como puedo manejar botones que salen en el preview, quisera que me salga el zoom , porque sale actualmente normal ,por ejemplo.\nGracias por sus repuestas.\nDaniel\nLima-Peru','',0,'','3lh5styw',1,0,'',393,0,0),(26609,5823,3,303,0,'72.199.41.171',1171387502,1,0,1,1,1,0,'','','Armando,\n\n&gt;Thanks for your help, yes, tsbrowse let us to use a combobox control, I use it in a 16bits app but with 32bits it does not work for me. \n\nAre you getting an error? Are you using the same version of FW for both the 32bit and 16bit apps? What version(s) are you using?\n\nDoes the SBTEST.PRG show the problem?\n\nJames','',0,'','2anmodk6',1,0,'',303,0,0),(26610,5876,6,492,0,'189.147.26.147',1171387714,1,0,1,1,1,1,'','','Ok, aqui estan los archivos\n\n\n\n[url:28fq33un]http&#58;//hyperupload&#46;com/download/02f81db287/skfr-ocx&#46;zip&#46;html[/url:28fq33un]\n\n[url:28fq33un]http&#58;//hyperupload&#46;com/download/0269514422/vb2skinsample&#46;zip&#46;html[/url:28fq33un]\n\n\nSaludos','',0,'EA==','28fq33un',1,0,'',492,0,0),(26611,5823,3,343,0,'24.173.70.29',1171387849,1,0,1,1,1,0,'','','James, I am having trouble creating tsbrowse.lib with xHarbour Builder.\n\nI can create version 7 but as you know there are some scroll problems remaining in that version.','',0,'EA==','3a46h84z',1,0,'',343,0,0),(26612,5955,6,774,0,'200.72.202.128',1171388846,1,0,1,1,1,1,'','SE PUEDE HACER .LIB','Si se genero una LIB para xharb.. d una clase cualquiera\nexiste la manera de recuperar los fuentes... los PRG \n\no NO se puede hacer\n\nGRACIAS','',0,'EA==','9hmldg5c',1,0,'',774,0,0),(26613,5949,3,303,0,'72.199.41.171',1171389617,1,0,1,1,1,0,'','','Jeff,\n\nIf I understand what you are saying, you are getting back \"English (Canada)\" instead of \"Canada\"?\n\nHere I am getting what is in the location field (for me that is \"United States\"). My \"Standards and Formats\" field shows \"English (United States)\" in the Control Panel. I am using XP Pro SPII.\n\nSo, it is working correctly for me.\n\nJames','',0,'EA==','6fjuex3p',1,0,'',303,0,0),(26614,5952,3,154,0,'151.21.72.137',1171390194,1,0,1,1,1,1,'','','[quote=&quot;Rochinha&quot;:1c9frd9k]Friend \n\nI recomend to you ASP. Use the FSO object to manipulate files on server.\n\nHere some examples with this functions:\n\n[url=http&#58;//www&#46;codigolivre&#46;com&#46;br/scripts/asp/manipulacao/WexFree20&#46;zip:1c9frd9k]Web Explorer[/url:1c9frd9k]\n[url=http&#58;//www&#46;codigolivre&#46;com&#46;br/scripts/asp/manipulacao/fileman61&#46;zip:1c9frd9k]FileMan[/url:1c9frd9k]. The best.[/quote:1c9frd9k]\n\nRochinha,\nthank you for your answer.\n\nI am searching one simple function in order to remove the code from HTML files directly from xHarbour - Fivewin.','',0,'kA==','1c9frd9k',1,0,'',154,0,0),(26615,5952,3,303,0,'72.199.41.171',1171390970,1,0,1,1,1,0,'','','Ugo,\n\nPerhaps you can use IE and OLE.\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp\">http://msdn.microsoft.com/library/defau ... plorer.asp</a><!-- m -->\n\nThere is a command to \"selectall\" and another for \"removeformat.\" So, you could open IE and load the HTML file, then use these commands, then copy to the clipboard, then paste from the clipboard (using FWH) and save to a file.\n\nJames','',0,'kA==','18ronesq',1,0,'',303,0,0),(26616,5823,3,303,0,'72.199.41.171',1171391304,1,0,1,1,1,0,'','','Gale,\n\n&gt;James, I am having trouble creating tsbrowse.lib with xHarbour Builder. \n\nI have never used Builder so I can\'t be of much help. Perhaps if you post the nature of the problem or error, someone else can help.\n\n&gt;I can create version 7 but as you know there are some scroll problems remaining in that version.\n\nI spent many many hours trying to apply my ver 6 fix to version 7 but it was so much changed from ver 6 that I never did succeed.','',0,'kA==','3ddc2fhs',1,0,'',303,0,0),(26617,5952,3,6,0,'87.18.233.244',1171392012,1,0,1,1,1,1,'','','Try this:\n\n[code:1jx7rb7i]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExplorer &#58;= CREATEOBJECT&#40; &quot;InternetExplorer&#46;Application&quot; &#41;\n\n    oExplorer&#58;Navigate2&#40; &quot;www&#46;emagsoftware&#46;it/gratis&#46;htm&quot; &#41;\n\n    WHILE oExplorer&#58;ReadyState &lt;&gt; 4\n        HB_IDLESLEEP&#40; 1 &#41;\n    ENDDO\n\n    ? oExplorer&#58;Document&#58;Body&#58;InnerText\n\n    oExplorer&#58;Quit&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:1jx7rb7i]\n\nEMG','',0,'AIA=','1jx7rb7i',1,0,'',6,0,0),(26618,5823,3,53,0,'189.139.94.101',1171395561,1,0,1,1,1,1,'','','Friends:\n\nI think that the problem is in the construction of the LIB, I have never been able to construct it without errors.\n\nIf somebody has it constructed for xHarbour pls send to me a copy, this is my email\n\n<!-- e --><a href=\"mailto:soisa2002@prodigy.net.mx\">soisa2002@prodigy.net.mx</a><!-- e -->\n\nBest regards','',0,'AIA=','1mc3fhlr',1,0,'',53,0,0),(26619,5938,3,3,0,'82.249.28.112',1171395706,1,0,1,1,1,1,'','','Michel\n\nHaving several RC files is not a problem.\n\nThere is a very easy way to do it.\n\nSuppose your rc files are file1.rc, file2.rc and file3.rc...etc\n\nCreate a NEW rc file that you name myrc.rc\n\nin this file just add the following\n\n#include \"FILE1.rc\"\n#include \"FILE2.rc\"\n#include \"FILE3.rc\"\n.... AND SO ON\n\nYou just link myrc.rc and automatically all rc files included in it will be linked.\n\nThere are no real limits.\n\nHth\n\nRichard','',0,'AIA=','7dpdio98',1,0,'',3,0,0),(26620,5956,3,904,0,'196.25.255.210',1171396134,1,0,1,1,1,1,'','DEFINE MESSAGE OF oWnd','If I have defined a STATUS bar for my app:\n\nDEFINE MESSAGE OF oWnd PROMPT cUserID CLOCK DATE KEYBOARD NOINSET\n\nWhat command do I use to add another status item. \ne.g. FILTER ACTIVE\n\nIs there a way of making it flash or in a diff colour attract the user\'s attention?\n\nThanks.','',0,'AIA=','1q619z4h',1,0,'',904,0,0),(26621,5957,6,104,0,'201.58.64.50',1171397414,1,0,1,1,1,0,'','Antonio, tFolder():Initiate não executa','Olá Antonio,\n\nComo faço para que o método INITIATE de TFOLDER seja executado no programa abaixo:\n\n[code:3gtvkyvr]\n// Dinamically building a folder ontop of a Dinamic DialogBox\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oDlg, oFld\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ;\n      FROM 5, 5 TO 20, 50\n\n   ACTIVATE DIALOG oDlg CENTERED on init INICIO&#40;&#41;\n\nreturn nil\n\nstatic function INICIO\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n      OF oDlg SIZE 160, 90 &amp;&amp; design\n\n   @ 1, 1 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ;\n     ACTION MsgInfo&#40; &quot;Hello world!&quot; &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n[/code:3gtvkyvr]\n\nGracias,\n\nRossine.','',0,'AIA=','3gtvkyvr',1,0,'',104,0,0),(26622,5823,3,303,0,'72.199.41.171',1171397670,1,0,1,1,1,0,'','','Armando,\n\n&gt;I think that the problem is in the construction of the LIB, I have never been able to construct it without errors. \n\nIf you are using Borland C, then did you use the makelib.bat file? If so, what errors are you getting?\n\nIf you are using xBuilder, then I can\'t be of much help.\n\nJames','',0,'AIA=','275pwhz2',1,0,'',303,0,0),(26623,5957,6,362,0,'200.168.52.156',1171398151,1,0,1,1,1,1,'','','// Dinamically building a folder ontop of a Dinamic DialogBox \n\n#include \"FiveWin.ch\" \n\n//----------------------------------------------------------------------------// \n\nfunction Main()\n\n   LOCAL oDlg, oFld\n\n   DEFINE DIALOG oDlg TITLE \"FiveWin Dynamic folders\" ; \n      FROM 5, 5 TO 20, 50 \n\n   ACTIVATE DIALOG oDlg CENTERED on init INICIO( oDlg, oFld )\n\nreturn nil \n\nstatic function INICIO( oDlg, oFld )\n\n   @ 0.5, 1 FOLDER oFld PROMPT \"&amp;Primeiro\", \"&amp;Segundo\", \"&amp;Terceiro\" ;\n            OF oDlg SIZE 160, 90 &amp;&amp; design\n\n   @ 1, 1 BUTTON \"&amp;Hello\" SIZE 60,16 OF oFld:aDialogs[ 1 ] ;\n          ACTION MsgInfo( \"Hello world!\" )\n\nreturn nil','',0,'','2x48p4sl',1,0,'',362,0,0),(26624,5848,3,904,0,'196.25.255.210',1171398301,1,0,1,1,1,1,'','','Hi Silvio\n\nI am really struggling with reports. VRD seems to be clumsy and unstable. The files corrupt easily and then I get a blank screen and need to start again.\n\nI see from the posts on this forum you are working on some sort of report writer. Is it publicly available?','',0,'','35fpp184',1,0,'',904,0,0),(26625,5956,3,53,0,'189.139.94.101',1171398479,1,0,1,1,1,1,'','','Ollie:\n\nYou must use the MsgItem control as follow:\n\nSET MESSAGE OF oWindow TO oApp:cRazonSocial KEYBOARD CLOCK\n\n[b:2c1925ol]DEFINE MSGITEM oMiCasilla OF oWindow:oMsgBar	SIZE 120;\nPROMPT ALLTRIM(oApp:cUsuario) COLOR CLR_WHITE,CLR_BLUE[/b:2c1925ol]\n\nBest Regards, Armando','',0,'QA==','2c1925ol',1,0,'',53,0,0),(26626,5949,3,397,0,'201.27.65.96',1171399796,1,0,1,0,1,1,'','','Jeff\n\nlook this modification in the Beil sample\'s:\n\n[code:227gz20y]\n# include &quot;fivewin&#46;ch&quot; \n#define  HKEY_CURRENT_USER       2147483649 \n\nFUNCTION  CountryArea&#40;&#41; \n   Local oReg, nCountry \n   oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER, &quot;Control Panel\\International&quot;, &#46;f&#46; &#41; \n   nCountry &#58;= oReg&#58;Get&#40; &quot;iCountry&quot;, \'\' &#41; \n   MsgInfo&#40;cCountry&#41; \n   oReg&#58;Close&#40;&#41; \nRETURN nCountry\n[/code:227gz20y]\n\nThis retrieve for me, 55, integer, Brazil.','',0,'AIA=','227gz20y',1,0,'',397,0,0),(26627,5949,3,69,0,'74.13.32.66',1171400422,1,0,1,1,1,0,'','','James.\n\nMy mistake ... I was thinking one thing and typing another.\n\nWhat I get back is \"Canada\" based on the setting \"English (Canada)\"\n\nWhat I would like to do is get the \"Location\" value and use that instead of using what we currently are getting with Beil\'s sample.\n\nDo you know if this is possible?\n\n\nThanks,\nJeff','',0,'AIA=','1hs2uoua',1,0,'',69,0,0),(26628,5955,6,397,0,'201.27.65.96',1171400516,1,0,1,0,1,1,'','','por enquanto no, mas copia de seguridad és bien vindo.','',0,'AIA=','j8cmhu9q',1,0,'',397,0,0),(26629,5823,3,343,0,'24.173.70.29',1171406204,1,0,1,1,1,0,'','','Ok, I have it working now. \nI have also added the RMDBFCDX rdd.\n\nI also added a couple of options for right click on header like Freeze/Unfreeze and Add/Insert column..\n\nI have also added :lColChanged so I know when to save browse information for user.\n\nI sure could use some of the features in version 7, especially the Pre, Post, and External  editing codeblocks\n\nThanks,\nGale','',0,'AIA=','2ogwtokl',1,0,'',343,0,0),(26630,5949,3,880,0,'165.69.3.21',1171406893,1,0,1,1,1,1,'','','Hi Jeff,\n\nHave you tried the function with the different manifest constants. When I run it I get back \"Australia\" using _SENGCOUNTRY or \"AUS\" using LOCALE_SABBREVCTRYNAME. I am running XP-SP2','',0,'AIA=','2m06ij2z',1,0,'',880,0,0),(26631,5949,3,69,0,'74.13.32.66',1171408304,1,0,1,1,1,0,'','','Richard,\n\nI have tried.\n\nNo matter what I have set on my computer in the regional settings, when I try your sample it always returns \"United States\"\n\n\n[code:52vvi30z]\n# include &quot;fivewin&#46;ch&quot;\n\n# define LOCALE_ICOUNTRY 5\n# define LOCALE_SCOUNTRY 6\n# define LOCALE_SENGCOUNTRY 4098\n# define LOCALE_SABBREVCTRYNAME 7\n\nFUNCTION Main&#40;&#41;\n\nLOCAL strCountry &#58;= Space&#40;128&#41;\n\nGetLocInfoA&#40; GetSystemDefaultLCID&#40;&#41;, LOCALE_SENGCOUNTRY, @strCountry,128&#41;\nMsgInfo&#40;strCountry&#41;\n\nRETURN NIL\n\nDLL32 FUNCTION GetLocInfoA;\n&#40; Locale AS LONG, ;\nLCType AS LONG, ;\nlpLCData AS STRING, ;\ncchData AS LONG &#41; ;\nAS LONG PASCAL;\nFROM &quot;GetLocaleInfoA&quot; LIB &quot;KERNEL32&quot;\n\nDLL32 FUNCTION GetSystemDefaultLCID&#40;&#41;;\nAS LONG PASCAL;\nFROM &quot;GetSystemDefaultLCID&quot; LIB &quot;KERNEL32&quot;\n[/code:52vvi30z]\n\nWhat I  am looking for is the value that is stored for the \"Location\" field at the bottom of the \"Regional and Language Options\" window, under the \"Regional Options\" tab.\n\n\nThanks,\nJeff','',0,'AIA=','52vvi30z',1,0,'',69,0,0),(26632,5949,3,303,0,'72.199.41.171',1171410820,1,0,1,1,1,0,'','','Jeff,\n\nOK, I am not clear on exactly what you want. You want some kind of ID number corresponding to the text that is in the Location field? Does that number have some significance to you?\n\nDid you try Rochinha\'s solution? With a slight bug fix (change cCountry to nCountry) it does return a number value. It returns 1 for me which seems to be the country code (for USA) used in international phone numbers. I don\'t know if it is number you want.\n\nJames','',0,'AIA=','ssrivgm0',1,0,'',303,0,0),(26633,5823,3,303,0,'72.199.41.171',1171411750,1,0,1,1,1,0,'','','Gale,\n\n&gt;I have also added the RMDBFCDX rdd.\n\nWhat is that RDD for?\n\n&gt; also added a couple of options for right click on header like Freeze/Unfreeze and Add/Insert column.. \n\n&gt;I have also added :lColChanged so I know when to save browse information for user.\n\nIf you wish to provide me a copy of your changed version and any documention you think would be useful, I will post the changed version to my website for everyone\'s access. \n\n&gt;I sure could use some of the features in version 7, especially the Pre, Post, and External editing codeblocks&gt;\n\nI do not see any codeblock vars in ver 7 that look like they might be for those uses. Can you tell me their names? Maybe we can add them to ver 6.\n\nJames','',0,'AIA=','1wt59ya9',1,0,'',303,0,0),(26634,5949,3,69,0,'74.13.32.66',1171412219,1,0,1,1,1,0,'','','James,\n\nActually, all I want is to grab the text that is stored in the filed called \"Location\" in the Regional Options tab.\n\nI want to use this to enable an option in my app that is only available to the Canadian market. \n\nI don\'t want the user to have to change the main setting as one of our medical systems (software not written by myself) needs this to be set to \"English (United States)\" or it causes issues.  So, I thought if I could change the \"Location\" to \"Canada\" (in Windows Regional Options) and grab that value it would solve my problem.\n\nI hope this makes things a bit clearer  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nJeff','',0,'AIA=','3qa9oa1w',1,0,'',69,0,0),(26635,5949,3,303,0,'72.199.41.171',1171416506,1,0,1,1,1,0,'','','Jeff,\n\nOK, after reading your last message I tried some things and reread all the messages.\n\nI confirm that if I change the Location field to \"Canada,\" the code sample still returns \"Uniited States\" and when I look in the registry it still says \"United States\" for the sCountry value. I searched the entire registry for \"Canada\" and did not find it anywhere (without other text) except in the country code section (it has code of 107). So, it seems that the text stored in the Location field is not directly stored in a place in the registry but the couuntry code may be (I have not searched for 107 which could take quite some time, being that 107 is probably a pretty common occurance).\n\nBut, let\'s dirgress for a moment. It seems you are just wanting to use the Control Panel\'s Location field as a setup screen for your application? If so, first I would not advise that, and second it may be too difficult (in this case). Why not just have your own setup screen that saves the setup value in the apps own INI file? Wouldn\'t that solve your problem?\n\nI wouldn\'t advise changing the Location value because we don\'t know exactly what other things might be changed when you do that. You don\'t want to break something else in the process of setting up your application.\n\nJames','',0,'AIA=','qo9jxhb8',1,0,'',303,0,0),(26636,5958,6,785,0,'190.64.196.28',1171421677,1,0,1,1,1,0,'','Como imprimi una imagen .jpg','Amigos.\n\nTengo en una base de datos\n\"C:\\programa\\foto\\0080.jpg\"\nEsta imagen la muestro, pero al imprimirla\nno lo hace.\n\nUso.:\n\noPrn:SayBitmap(aDesde[1],aDesde[2],oImage,aAncho[1],aAncho[2] )\no    \noPrn:SayImage(0,0,oImage ) \n\nNinguna de las 2 maneras lo hace.\n\nFWH 2.7, Harbour, Borland\n\nAgradezco alguna ayuda.\n\nGracias.\n\nRuben Fernandez.','',0,'','lfn5tn2f',1,0,'',785,0,0),(26637,5949,3,69,0,'74.13.32.66',1171422736,1,0,1,1,1,0,'','','James,\n\nI can understand what you are saying but here is my situation, maybe someone can suggest another way to solve my problem:\n\nI have written software that will be sold in Canada and Worldwide but there is a part of the program I want to hide from all non-Canadian users due to an agreement with a company in the U.S.\n\nI don\'t want to have 2 versions of the program so I was hoping to use the windows setup features (like the location field) to enable or disable the option in my program.\n\nI use a software key scheme to protect my program from unauthorized copies ... I allow an evaluation version (basically eval until a valid software key is entered) to be downloaded from my website.\n\nI can easily solve the problem with the software key BUT the end user does not get the key until it is purchased.\n\nSo I am back to my problem as to how to hide the option for any non-Canadian customers.\n\nI know someone from outside Canada can easily change their system to say it is from Canada but if they don\'t know that that is how I am unlocking that option than is should not be an issue.\n\nI hope I am making sense and would gladly accept any ideas as an alternative solution.\n\n\nThanks again,\n\nJeff','',0,'','1s9zzv39',1,0,'',69,0,0),(26638,5949,3,397,0,'201.27.65.96',1171431838,1,0,1,0,1,1,'','','Just correcting my mistake.\n\nThe frase [b:3qdrum00]Beil sample\'s[/b:3qdrum00] is wrong.\n\n[b:3qdrum00]Biel sample\'s[/b:3qdrum00] is the correct, thanks for Biel EA6DD and excuse-me.','',0,'QA==','3qdrum00',1,0,'',397,0,0),(26639,5959,4,397,0,'201.27.65.96',1171432091,1,0,1,0,1,1,'','SKINS - Tungsten skin for your emulator','Good:\n\n[img:15tozttb]http&#58;//www&#46;5volution&#46;com/forum/tungsten_13_skin&#46;jpg[/img:15tozttb]\n\n[url=http&#58;//www&#46;5volution&#46;com/forum/tungsten_13_skin&#46;zip:15tozttb]Download[/url:15tozttb]\n\n[url=http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5806:15tozttb]Others[/url:15tozttb]','',0,'GA==','15tozttb',1,1199924139,'',397,1,0),(26640,5949,3,303,0,'72.199.41.171',1171434607,1,0,1,1,1,0,'','','Jeff,\n\nOK, here is your solution. It is a slightly modified version of Rochinha\'s example. This returns 39 when the Location is \"Canada\" and something else when it is not (e.g. United States is 244).\n\nBy the way, I spent 3 or 4 days in your city a few years ago, and really enjoyed it. What a nice place and nice people too.\n\nJames\n\n\n[code:ncpuqq2g]# include &quot;fivewin&#46;ch&quot;\n#define  HKEY_CURRENT_USER       2147483649\n\nfunction main&#40;&#41;\n   msgInfo&#40; NationCode&#40;&#41; &#41;\nreturn nil\n\nFUNCTION  NationCode&#40;&#41;\n   Local oReg, nNation\n   oReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER, &quot;Control Panel\\International\\Geo&quot;, &#46;f&#46; &#41;\n   nNation &#58;= oReg&#58;Get&#40; &quot;Nation&quot;, \'\' &#41;\n   oReg&#58;Close&#40;&#41;\nRETURN nNation[/code:ncpuqq2g]','',0,'AIA=','ncpuqq2g',1,0,'',303,0,0),(26641,5937,6,131,0,'194.179.55.36',1171436170,1,0,1,1,1,0,'','','Gracias a los dos. Voy a ir probando lo que me decis.\n\nSaludos,','',0,'AIA=','1s1a6kmb',1,0,'',131,0,0),(26642,5960,3,131,0,'194.179.55.36',1171436510,1,0,1,1,1,0,'','how to make an autoupdate program','Hello: \nI want to make my programs autoupdate via internet. I\'ve thought made a menu entry that allow the program connect an internet server and look for a new version of the program. I think the first thing I\'ve to do in connect the FTP server and then download the new version if exist. But my doubt are in changing the old exe for the new one. \n\nAnybody that has this implemented wants to share it ?\n\nRegards,','',0,'AIA=','18zy9fpk',1,0,'',131,0,0),(26643,5959,4,2,0,'87.218.146.54',1171438500,1,0,1,1,1,1,'','','Thanks!','',0,'AIA=','366tqkzr',1,0,'',2,0,0),(26644,5960,3,233,0,'219.95.200.32',1171439195,1,0,1,1,1,0,'','','I\'m not sure whether this is what you\'re looking for but you can give it a try. <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/downloads.php?category=FiveWin%20users%20contributions&amp;id=288\">http://www.fivewin.info/html/downloads. ... ons&amp;id=288</a><!-- m -->','',0,'AIA=','38cn7kaw',1,0,'',233,0,0),(26645,5952,3,154,0,'151.21.72.137',1171439244,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:372e6x9v]Ugo,\n\nPerhaps you can use IE and OLE.\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp\">http://msdn.microsoft.com/library/defau ... plorer.asp</a><!-- m -->\n\nThere is a command to \"selectall\" and another for \"removeformat.\" So, you could open IE and load the HTML file, then use these commands, then copy to the clipboard, then paste from the clipboard (using FWH) and save to a file.[/quote:372e6x9v]\n\nDear James,\nthis solution is interesting, tries it!\nThanks.','',0,'gA==','372e6x9v',1,0,'',154,0,0),(26646,5952,3,154,0,'151.21.72.137',1171439600,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2392e1q8]Try this:\n\n[code:2392e1q8]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExplorer &#58;= CREATEOBJECT&#40; &quot;InternetExplorer&#46;Application&quot; &#41;\n\n    oExplorer&#58;Navigate2&#40; &quot;www&#46;emagsoftware&#46;it/gratis&#46;htm&quot; &#41;\n\n    WHILE oExplorer&#58;ReadyState &lt;&gt; 4\n        HB_IDLESLEEP&#40; 1 &#41;\n    ENDDO\n\n    ? oExplorer&#58;Document&#58;Body&#58;InnerText\n\n    oExplorer&#58;Quit&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:2392e1q8]\n[/quote:2392e1q8]\nEnrico,\nit is perfect!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMany thanks.','',0,'gIA=','2392e1q8',1,0,'',154,0,0),(26647,5949,3,456,0,'217.124.40.172',1171448463,1,0,1,1,1,1,'','','Don\'t worry Rochinha  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThe entry Geo, nation  like has mentioned James is where you can retrive the Location.','',0,'gIA=','2dgtdu05',1,0,'',456,0,0),(26648,5953,3,217,0,'200.159.120.34',1171448857,1,0,1,1,1,0,'','Re: TxBrowse: Paint problem','Yesterday I tested TxBrowse a long time using a lot of \"styles\" (with header, without header, with footer, without footer, etc) then I could found the main cause of problem:\nDepending on resource height we have the problem on painting browse cells (line level) or width (columns levels).\nData are duplicated on display or cell was wrong painted. It occur when total xbrowse line is more than total visible lines.\n\nWhat do I to solve?\n\nI couldn\'t found in xBrowse.prg the correct place were this paint bug occur then in \"TxBrowse\" resource I enlarged 1 or 2 pixels time of height and/or width and tested several times until get a size were this problem don\'t occur.\n\nThe strange thing is Wbrowse don\'t depend on \"TwBrowse\" resource size and have not this paint problem...\n\nRegards,\nMaurilio','',0,'gIA=','l8fcdeha',1,0,'',217,0,0),(26649,5957,6,104,0,'201.58.87.171',1171450488,1,0,1,1,1,0,'','','Olá João,\n\nIsto não funcionou  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  Para simular o problema, dentro do fonte FOLDER.PRG no método \"INITIATE\" coloque um \"msgstop( \"parando\" )\",\ne você vai ver que ele não é executado.\n\nAgora se voce executrar o programa abaixo, aí funciona.\n\n[code:3b0pexlu]\n// Dinamically building a folder ontop of a Dinamic DialogBox \n\n#include &quot;FiveWin&#46;ch&quot; \n\nstatic oDlg, oFld \n\n//----------------------------------------------------------------------------// \n\nfunction Main&#40;&#41; \n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ; \n      FROM 5, 5 TO 20, 50\n\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ; \n      OF oDlg SIZE 160, 90 &amp;&amp; design \n\n   @ 1, 1 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ; \n     ACTION MsgInfo&#40; &quot;Hello world!&quot; &#41; \n\n \n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil \n\n//----------------------------------------------------------------------------// \n[/code:3b0pexlu]\n\nObrigado,\n\nRossine.','',0,'AIA=','3b0pexlu',1,0,'',104,0,0),(26650,5953,3,2,0,'87.218.146.54',1171451019,1,0,1,1,1,1,'','','Maurilio,\n\nCould you please provide a small and self contained sample to reproduce it ? thanks,','',0,'AIA=','j6r8is80',1,0,'',2,0,0),(26651,5957,6,2,0,'87.218.146.54',1171451484,1,0,1,1,1,1,'','','Rossine,\n\nEl método Initiate() sólo se ejecuta para controles redefinidos ó para controles que se crean antes de activar el diálogo. En tu ejemplo, el diálogo ya está creado, por eso no se llama a initiate().\n\nPara que necesitas llamar a Initiate() ?','',0,'AIA=','265t1l4h',1,0,'',2,0,0),(26652,5960,3,6,0,'87.20.214.97',1171452307,1,0,1,1,1,1,'','Re: how to make an autoupdate program','[quote=&quot;José Luis Sánchez&quot;:1thi7v17]Hello: \nI want to make my programs autoupdate via internet. I\'ve thought made a menu entry that allow the program connect an internet server and look for a new version of the program. I think the first thing I\'ve to do in connect the FTP server and then download the new version if exist. But my doubt are in changing the old exe for the new one. \n\nAnybody that has this implemented wants to share it ?\n\nRegards,[/quote:1thi7v17]\n\nJust use a second EXE. From you main EXE: run the second EXE and close the main EXE. Then download the new EXE and run it.\n\nEMG','',0,'gA==','1thi7v17',1,0,'',6,0,0),(26653,4134,4,267,0,'200.208.238.2',1171455723,1,0,1,1,1,1,'','','Richards,\n\nDebtor, already I obtained to send the archives. Now it would like to know if I have as to set in motion the connection irda(infrared)  through my program?','',0,'gA==','mutjuxf6',1,0,'',267,0,0),(26654,5823,3,103,0,'200.241.81.140',1171457591,1,0,1,1,1,1,'','','James,\n\n     I\'ve been testing your version of tsbrowse more accurately and I\'ve discovered a (little) problem: When I try to go down to insert a new record, it gives me an error (described below) and I didn\'t see what it could be (yet!). Can you help me?\n\n[code:1n91etpp]\nDescrição do erro produzido\n________________________________________________________________________________\n\n   Error BASE/1070  Argument error&#58; ==\n   Argumentos   &#58;\n     &#91;   1&#93; = N   15389375\n     &#91;   2&#93; = A   &#123; &#46;&#46;&#46; &#125;\n\nChamadas a Stack\n________________________________________________________________________________\n\n   Called from &#40;b&#41;TBRUSH&#58;NEW&#40;0&#41;\n   Called from ASCAN&#40;0&#41;\n   Called from TBRUSH&#58;NEW&#40;0&#41;\n   Called from TSBTNGET&#58;SETCOLOR&#40;2285&#41;\n   Called from TGET&#58;NEW&#40;256&#41;\n   Called from TSBTNGET&#58;NEW&#40;86&#41;\n   Called from TSBROWSE&#58;LEDITCOL&#40;4984&#41;\n   Called from TSBROWSE&#58;KEYDOWN&#40;3983&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from TSBROWSE&#58;HANDLEEVENT&#40;8640&#41;\n   Called from _FWH&#40;3108&#41;\n   Called from DIALOGBOX&#40;0&#41;\n   Called from TDIALOG&#58;ACTIVATE&#40;264&#41;\n   Called from EDITA&#40;599&#41;\n   Called from &#40;b&#41;CADVEN&#40;202&#41;\n   Called from TBUTTON&#58;CLICK&#40;0&#41;\n   Called from TBUTTON&#58;HANDLEEVENT&#40;0&#41;\n   Called from _FWH&#40;3108&#41;\n   Called from SENDMESSAGE&#40;0&#41;\n   Called from TDIALOG&#58;COMMAND&#40;396&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TDIALOG&#58;HANDLEEVENT&#40;849&#41;\n   Called from DIALOGBOX&#40;0&#41;\n   Called from TDIALOG&#58;ACTIVATE&#40;264&#41;\n   Called from CADVEN&#40;206&#41;\n   Called from &#40;b&#41;MAIN&#40;216&#41;\n   Called from TSSAY&#58;LBUTTONUP&#40;422&#41;\n   Called from TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from TSSAY&#58;HANDLEEVENT&#40;260&#41;\n   Called from _FWH&#40;3108&#41;\n   Called from WINRUN&#40;0&#41;\n   Called from TWINDOW&#58;ACTIVATE&#40;880&#41;\n   Called from MAIN&#40;261&#41;\n\n[/code:1n91etpp]\n\nBest Regards,','',0,'AIA=','1n91etpp',1,0,'',103,0,0),(26655,5961,6,413,0,'194.106.16.43',1171458272,1,0,1,1,1,0,'','Adobe Acrobat 7.0 profesional via activex','Es posible aceder al acrobar 7.0 profesional (no el reader) vía activex. Alguien sabe cual es el progid o como lo puedo averiguar ?\n\nUn saludo','',0,'AIA=','25jg7uo2',1,0,'',413,0,0),(26656,5961,6,15,0,'211.74.227.252',1171458814,1,0,1,1,1,0,'','','Hello\n\nTry it.\n[code:28vgwbvr]\nfunction testgood&#40;&#41;\n   local oWnd, oActiveX\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support with Skin&quot;\n          oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;AcroPDF&#46;PDF&#46;1&quot; &#41;\n          oWnd&#58;oClient = oActiveX // To fill the entire window surface\n          oActiveX&#58;Do&#40; &quot;LoadFile&quot;, &quot;c&#58;\\R951128002&#46;pdf&quot; &#41;\n          oActiveX&#58;Do&#40; &quot;SetCurrentPage&quot;, 1 &#41;\n   ACTIVATE WINDOW oWnd \n   return nil\n[/code:28vgwbvr]\n\nRegards,\n\nRichard','',0,'AIA=','28vgwbvr',1,0,'',15,0,0),(26657,5823,3,103,0,'200.241.81.140',1171460120,1,0,1,1,1,1,'','','James,\n\n      I\'ve discovered the problem. Due some private changes I\'ve made in my old tsbrowse.prg. After putting my private changes in your tsbrowse.prg, all is working now.\n\nBest Regards,','',0,'AIA=','3acyqzm9',1,0,'',103,0,0),(26658,5962,3,435,0,'200.155.206.8',1171461812,1,0,1,1,1,0,'','Cor da barra do TCbrowse','É possivel deixar a barra do Tcbrowse em cor degrade ?\n\nAri','',0,'AIA=','22igxxmb',1,0,'',435,0,0),(26659,5823,3,343,0,'24.173.70.29',1171464405,1,0,1,1,1,0,'','','James,\n\nThe codeblocks are created in tscolumn but show up in tsbrowse.prg also.\n\nbEditing      // Block to be evaluated when editing starts\nbEditEnd     // Block to be evaluated when editing success\nbExtEdit      // Block for external data edition\n\nRMDBFCDX lets you use bitmap filters like Comix and Six. It also includes  Full Text Search functions.\n\nI don\'t have all of the Language files updated with the additional Menu options but I would be happy to provide you with what I have.\n\nGale','',0,'AIA=','3vl1icy1',1,0,'',343,0,0),(26660,5949,3,69,0,'206.210.97.138',1171465322,1,0,1,1,1,0,'','','Thanks everybody.\n\nJames, your solution is exactly what I needed.\n\n\n[quote]\nBy the way, I spent 3 or 4 days in your city a few years ago, and really enjoyed it. What a nice place and nice people too.\n\nJames \n[/quote\n\nWhen you were up this way it must have been in the summer  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nIt\'s -16C today and lots of snow.\n\n\n\nJeff.','',0,'','2ilh3y72',1,0,'',69,0,0),(26661,4134,4,3,0,'82.120.31.225',1171466223,1,0,1,1,1,1,'','','Vilian\n\nI do not know about IRDA, i do not use it.\n\nI use Bluetooth for outside connection.\n\nThere has been some posts on IRDA in this forum (or maybe spanish one)\n\nRichard','',0,'','7s392yxr',1,0,'',3,0,0),(26662,5963,4,3,0,'82.120.31.225',1171466546,1,0,1,1,1,1,'','Bluetooth print and Special characters','Antonio\n\nMy fwppc app writes on bluetooth printer. This works OK on HP 460 BT, the print goes OK but the special characters do not show.\nPrinting to a text file and then manually printing the text file is OK. \n\nI wouls like to avoid this solution and have direct print with special charcaters. Any idea ?\nHas anyone succeeded printing special characters directly on bt from fwppc ?\n\nThanks for the help\n\nRichard\n\nHere is a small sample of the code\n\nSendblue( MemoRead(cfile))  // oemtoansi(cfile) does not do any change\n\n\nSTATIC function SendText( hOut, cText )\nlocal n\nFWRITE( HOUT, CTEXT + CRLF )\nreturn nil\n\nSTATIC FUNCTION SENDBLUE(ctext)\nLOCAL i, hOut\n\nDPTCOM := \"COM\" + STR(PKID-&gt;COMIMPRI,1) + \":\"\n// DPTCOM := \"COM6:\"\n\nhOut := CreateFile( DPTCOM,GENERIC_REWRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\nIF hOut==-1\n   MsgStop(\"Port Impression non trouvé, Impression Impossible\")\nELSE\n   FOR i = 1 TO Len( cText )\n      WriteByte( hOut, Asc(SubStr( cText, i, 1 ) ) )\n      NEXT\n   CloseHandle( hOut )\nENDIF\nreturn nil','',0,'','zkuxfw00',1,0,'',3,0,0),(26663,5960,3,397,0,'201.27.22.172',1171468081,1,0,1,0,1,1,'','','Friend\n\nUse the FTP Class too. With FTP Class you can download the update in silince.','',0,'','1yi7t2am',1,0,'',397,0,0),(26664,5961,6,397,0,'201.27.22.172',1171468279,1,0,1,0,1,1,'','','Hello boys\n\nI use ActiveXXX to know all features of activex in my system. This show parameters and methods. It show.\n\nDownload and test in <!-- m --><a class=\"postlink\" href=\"http://activex.moonvalley.com/activexxx.htm\">http://activex.moonvalley.com/activexxx.htm</a><!-- m -->','',0,'','1jvt5o55',1,0,'',397,0,0),(26665,5964,4,3,0,'82.120.31.225',1171468969,1,0,1,1,1,1,'','How to send a txt file via bluetooth','Hello\n\nDoes anyone know how to send a file via bluetooth (not the contenct writebyte(...) , just how to emulate the basic windows send via bluetooth ?\n\nThanks for the help\n\nRichard','',0,'','2zaul7y3',1,0,'',3,0,0),(26666,5958,6,180,0,'83.45.249.23',1171471535,1,0,1,1,1,0,'','Re: Como imprimi una imagen .jpg','Para un JPG,PNG,TIF, etc.       \n  oIT = TImage():Define( , \"IMAGEN.JPG\" )\n  aTam := oPrn:Cmtr2Pix(21,29.7)\n  oPrn:SayImage(0,0,oIT,aTam[1], aTam[2])\n\nPara unBMP\nSayBitmap(0,0,21,29.7,\"IMAGEN.BMP\",oPrn)\n\nSaludos,\nManuel Aranda\n\n[quote=&quot;Ruben Fernandez&quot;:vf64fcs1]Amigos.\n\nTengo en una base de datos\n\"C:\\programa\\foto\\0080.jpg\"\nEsta imagen la muestro, pero al imprimirla\nno lo hace.\n\nUso.:\n\noPrn:SayBitmap(aDesde[1],aDesde[2],oImage,aAncho[1],aAncho[2] )\no    \noPrn:SayImage(0,0,oImage ) \n\nNinguna de las 2 maneras lo hace.\n\nFWH 2.7, Harbour, Borland\n\nAgradezco alguna ayuda.\n\nGracias.\n\nRuben Fernandez.[/quote:vf64fcs1]','',0,'gA==','vf64fcs1',1,0,'',180,0,0),(26667,5965,7,274,0,'200.171.179.4',1171474561,1,0,1,1,1,0,'','Problema com menus em Smartphone','Olá a todos\n\nEm dois modelos de smartphone testados, Motorola Q  e Samsung I321N o menu do aplicativo não é exibido pois a linha do menu é utilizada pelo software do telefone.\n\nMinha pergunta: há como mostrar o menu do aplicativo em outra posição que não seja a linha inferior da tela?\nO menu pode ser construido acima da posição default?\n\n[]\'s\n\n\nRogerio','',0,'','2boywr16',1,0,'',274,0,0),(26668,5949,3,303,0,'72.199.41.171',1171474769,1,0,1,1,1,0,'','','Jeff,\n\n&gt;James, your solution is exactly what I needed. \n\nGlad to hear it is working for you.\n\n&gt;When you were up this way it must have been in the summer  \n\nIt was in October, but the weather was great, sunny and warm.\n\n&gt;It\'s -16C today and lots of snow.\n\nYikes, -16--that\'s cold! I figured it must be bad with all the storms that have been there.\n\nToday we are getting what we call a \"Santa Anna\" which is a East wind from across the desert. Today they are forecasting sunny and temps &gt;20C. Now is a good time to be in San Diego. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nMost of my ancestors were French-Canadian from NB. And both my parents are from New England. I am lucky to be here but I do love both New England and Canada (in the summer).\n\nJames','',0,'','1ukhisr2',1,0,'',303,0,0),(26669,5966,6,196,0,'201.231.125.43',1171475063,1,0,1,1,1,0,'','Problemita con folders en la nueva version','Estoy compilando con la nueva version y en los folder que usaba no muestra las pestañas.\n\nGracias\nJorge Jaurena','',0,'','1yogm0lj',1,0,'',196,0,0),(26670,5852,6,774,0,'200.72.102.117',1171476494,1,0,1,1,1,1,'','','Buenas..\n\nEStimado Marco,, encontraste la solucion a tu problema ,, ya q a mi me paso lo mismo\n\nsi es asi... me comentas\n\nGRACIAS','',0,'','11ztp92t',1,0,'',774,0,0),(26671,5967,7,945,0,'80.32.177.143',1171479325,1,0,1,1,1,0,'','Transparencia en los ojetos de un dialogo','Muy buenas, estoy intentando poner transparente un listbox y un say pero no lo consigo por favor decirme si se puede poner un color de fondo o hacerlo transparente, Muchisimas gracias.\n\nUn saludo.','',0,'','14cfjwtn',1,0,'',945,0,0),(26672,5968,2,935,0,'165.98.240.104',1171481504,1,0,1,1,1,0,'','Mi primer consulta','Hola a Todos los del foro,\n\nEstoy incursionando en este foro, soy usuario de Fivewin desde hace 4 años pero me he quedado en 16 bit, mi pregunta es se puede acceder a sql server 2000 con la clase todbc que me proporcionaron con el producto ? uso FW24, Blinker 6.0, Workshop, hice algunas pruebas con Mysql v5.1 y va bien pero con sql no,\n\nGracias por su colaboracion','',0,'','2wc6wax2',1,0,'',935,0,0),(26673,5966,6,362,0,'200.168.52.156',1171481866,1,0,1,1,1,1,'','','CAMBIASTES LOS CONTROLES \"FOLDER\" POR SYSTABCONTROL32??','',0,'','1pj5nm6s',1,0,'',362,0,0),(26674,5958,6,785,0,'190.64.197.187',1171482108,1,0,1,1,1,0,'','','Gracias Manuel:\n\nSolucionado.\n\nSaludos\n\nRuben Fernandez.','',0,'','22vuvb2c',1,0,'',785,0,0),(26675,5968,2,138,0,'189.141.72.59',1171484755,1,0,1,1,1,1,'','','Si de puede pero es extremadamente compleja de utilizar para aplicaciones \"grandes\", por otro lado algunos DLLs de 32 bits suelen no dejarse tratar muy bien por aplicaciones de 32 bits\n\nMi consejo es moverse a 32 bits y utilizar ADO es mas rapido y muy similar al modelo xBase','',0,'','3tv4h2o4',1,0,'',138,0,0),(26676,5969,6,110,0,'165.98.223.31',1171485732,1,0,1,1,1,1,'','Problemas de configuracion de ADS server 7.1','Amigos\n\nTengo un problema de conexion con un servidor ads 7 y mi aplicacion, la situacion es la siguiente\n\nLa red (grupo de trabajo se llama \'jardines\')\nexiste un servidor con win2k server el nombre es \'vpnserver\' el ip es 192.168.1.200, las demas pc usan winxp\n\nhe creado un directorio en el disco d del server, se llama jrdatos, lo he compartido con derecho de escritura y lectura para todos.\n\nlogicamente he instalado el ads server 7.1\n\nel programa principal tiene el siguiente codigo.\n\nEl programa falla al momento de intentar abrir las tablas de datos. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n[code:37ojdbjm]\n/*----------------------------------------------------------------------------------*/\n/*define archivos cabezeras*/\n#include &quot;jardines&#46;ch&quot;\n\n/*----------------------------------------------------------------------------------*/\n/*define variables globales*/\nGLOBAL oApp, oImageLogoJR, nXFix, nYFix\n\n/*----------------------------------------------------------------------------------*/\n/*define modulos externos*/\nREQUEST  ADS, HB_LANG_ES, HB_CODEPAGE_ES\nEXTERNAL AdsKeyNo, AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos\n\n/*----------------------------------------------------------------------------------*/\n\nFUNCTION Main&#40;&#41;\n    LOCAL oBrush\n\n    /*define imagen del logo*/\n    REDEFINE IMAGE oImageLogoJR NAME &quot;LOGO&quot;\n\n    /*procedimiento inicial*/\n    IF !Main_Inicio&#40;&#41;\n        RETURN\n    ENDIF\n\n    /*define brush*/\n    DEFINE BRUSH oBrush NAME &quot;FONDO2&quot;\n\n    /*define dialogo*/\n    DEFINE DIALOG oDlgMenu NAME &quot;DLG_MENU&quot; ICON GetIcon&#40;&#41; BRUSH oBrush\n\n    /*redefine controles*/\n    REDEFINE STSAY ID 401 OF oDlgMenu COLORS CLR_RED SHADED\n\n    REDEFINE BITMAP ID 501 OF oDlgMenu NAME &quot;MENU&quot;\n\n    REDEFINE BUTTON ID 101 OF oDlgMenu ACTION Colectores&#40;&#41;\n    REDEFINE BUTTON ID 102 OF oDlgMenu ACTION Vendedores&#40;&#41;\n    REDEFINE BUTTON ID 103 OF oDlgMenu ACTION Jardines&#40;&#41;\n    REDEFINE BUTTON ID 104 OF oDlgMenu ACTION Contratos&#40;&#41;\n    REDEFINE BUTTON ID 105 OF oDlgMenu ACTION EstadoLote&#40;&#41;\n    REDEFINE BUTTON ID 106 OF oDlgMenu ACTION Dummy&#40;&#41;\n    REDEFINE BUTTON ID 107 OF oDlgMenu ACTION Tasa&#40;&#41;\n    REDEFINE BUTTON ID 108 OF oDlgMenu ACTION Dummy&#40;&#41;\n\n    REDEFINE BUTTON ID 201 OF oDlgMenu ACTION oDlgMenu&#58;end&#40;&#41;\n\n    /*activa dialogo*/\n    ACTIVATE DIALOG oDlgMenu CENTER\n\n    /*cierra tablas*/\n    Main_Final&#40;&#41;\n\nRETURN nil\n\n/*----------------------------------------------------------------------------------*/\n\nPROCEDURE Main_Inicio&#40;&#41;\n    LOCAL cServerType,cServerPath\n\n    /*sobre escribe y agrega metodos a clases nativas de fwh*/\n    OverrideAndExtend&#40;&#41;\n\n    /*carga configuracion desde ini*/\n    oIni&#58;=TIni&#40;&#41;&#58;new&#40; curdrive&#40;&#41;+&quot;&#58;\\&quot;+curdir&#40;&#41;+&quot;\\&quot;+&quot;jardines2&#46;ini&quot;&#41;\n\n    cServerType&#58;=oIni&#58;get&#40;&quot;DATOS&quot;,&quot;ServerType&quot;&#41;\n    cServerPath&#58;=oIni&#58;get&#40;&quot;DATOS&quot;,&quot;ServerPath&quot;&#41;\n\n    /**/\n    nXFix&#58;=oIni&#58;get&#40;&quot;FIXPRN&quot;,&quot;AJUSTEX&quot;&#41;\n    nYFix&#58;=oIni&#58;get&#40;&quot;FIXPRN&quot;,&quot;AJUSTEY&quot;&#41;\n\n    /*define pagina de codigo y lenguaje por defecto*/\n    hb_langselect&#40;&quot;ES&quot;&#41;\n    hb_setcodepage&#40;&quot;ES&quot;&#41;\n\n    /*define RDD*/\n    rddsetdefault&#40;&quot;ADS&quot;&#41;\n\n    /*define parametros del servidor*/\n    AdsSetServerType&#40; Val&#40;cServerType&#41; &#41;\n    AdsSetFileType&#40;ADS_ADT&#41;\n    AdsRightsCheck&#40;FALSE&#41;\n    AdsLocking&#40;FALSE&#41;\n\n    /*define configuracoin de entorno*/\n    SET DEFAULT  TO &amp;cServerPath\n    SET CENTURY  ON\n    SET DATE     BRIT\n    SET EPOCH    TO 1964\n    SET OPTIMIZE ON\n    SET CONFIRM  ON\n    SET DELETED  ON\n    SET SOFTSEEK OFF\n    SET DECIMAL  TO 4\n\n    Set&#40;_SET_FILECASE,1&#41;\n    Set&#40;_SET_DIRCASE,1&#41;\n\n    /*Abre tablas*/\n    IF !Main_AbrirTablas&#40;cServerPath&#41;\n        RETURN FALSE\n    ENDIF\n\nRETURN TRUE\n\n/*----------------------------------------------------------------------------------*/\n\nFUNCTION Main_AbrirTablas&#40;cServerPath&#41;\n    LOCAL oErr\n    LOCAL lOk&#58;=TRUE\n\n    /*intenta abrir tablas de datos*/\n    //TRY\n\n        USE &#40;cServerPath + &quot;mcole&#46;adt&quot;&#41; NEW SHARED ALIAS cole\n        USE &#40;cServerPath + &quot;mvend&#46;adt&quot;&#41; NEW SHARED ALIAS vend\n        USE &#40;cServerPath + &quot;mjard&#46;adt&quot;&#41; NEW SHARED ALIAS jard\n        USE &#40;cServerPath + &quot;mlote&#46;adt&quot;&#41; NEW SHARED ALIAS lote\n        USE &#40;cServerPath + &quot;mcont&#46;adt&quot;&#41; NEW SHARED ALIAS cont\n        USE &#40;cServerPath + &quot;mdesl&#46;adt&quot;&#41; NEW SHARED ALIAS tasa\n    //CATCH oErr\n        //MsgStop&#40;&quot;Error en apertura de tablas de datos&#58;&quot;+FINL+oErr&#58;description&#41;\n        //lOk&#58;=FALSE\n    //END\n\nRETURN lOk\n\n/*----------------------------------------------------------------------------------*/\n\nPROCEDURE Main_Final&#40;&#41;\n\n    oImageLogoJR&#58;END&#40;&#41;\n\n    /*cierra tablas*/\n    DBCloseAll&#40;&#41;\n\nRETURN\n\n/*----------------------------------------------------------------------------------*/\n/*EOF*/\n/*----------------------------------------------------------------------------------*/\n[/code:37ojdbjm]\n\nEl archivo jardines2.ini tiene el siguiente contenido\n\n[code:37ojdbjm]\n;Server Type\n;===========\n;Servidor Local=1\n;Servidor Remoto=2\n;Servidor Internet=4\n;\n;Ruta de directorio de datos\n;-----------------------------------------------------\n&#91;DATOS&#93;\n;ServerType = 2\n;ServerPath = \\\\vpnserver\\jrdatos\\\n;-----------------------------------------------------\nServerType = 1\nServerPath = c&#58;\\carlos\\jardines\\datos\\\n;-----------------------------------------------------\n&#91;FIXPRN&#93;\nAJUSTEX=0\nAJUSTEY=0\n[/code:37ojdbjm]\n\nEl caso es que en modo local funciona muy bien, pero modo c/s no ha a habido manera.\n\nde entrada les informo  que me he leido todos los post de RF sobre ads y otros compañeros, y si bien comprendo en el papel, a la hora de los dulce, nel todos amargo <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->, algo estoy pasando por alto.\n\ncualquier ayuda es extramadamente agradecida.\n\nestoy desesperado con esto <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nsalu2\ncarlos vargas','',0,'AIA=','37ojdbjm',1,0,'',110,0,0),(26677,5969,6,138,0,'189.141.72.59',1171490234,1,0,1,1,1,1,'','','1) Instala el ARC en tu estacion de trabajo y prueba conectarte con el servidor, abriendo una base de datos\n\n2) Revisa la configuracion del firewall de Windows de tus estaciones de trabajo y del servidor, tiene que estar abierto el puerto 2000\n\n3) En la instalacion de ADS, con el Advantage Configuration Utility revisa que el puerto 2000 este asignado para la red de area local.','',0,'AIA=','js6pq3rd',1,0,'',138,0,0),(26678,5970,6,53,0,'189.139.96.71',1171492285,1,0,1,1,1,1,'','Cambiar resolución de pantalla','Amigos:\n\nNuevamente preguntando, he revisado en los foros y no encuentro respuesta a cómo cambiar la resolución de la pantalla en tiempo de ejecución.\n\nHe visto cómo detectar que resolución tiene (800x600pixeles) pero no he encontrado cómo cambiarla a 1024 x 768. si alguno de ustedes puede darme un ejemplo, lo voy a agradecer mucho.\n\nSaludos','',0,'AIA=','xrxscrlb',1,0,'',53,0,0),(26679,5965,7,2,0,'87.218.146.116',1171492929,1,0,1,1,1,1,'','','Rogerio,\n\nHas podido probar tu aplicación en el emulador de SmartPhone ? Que programa usas como \"file explorer\" ?\n\nPuedes publicar alguna imagen capturada ? gracias,','',0,'AIA=','3bz3sm3r',1,0,'',2,0,0),(26680,5965,7,274,0,'200.171.179.4',1171497805,1,0,1,1,1,0,'','','Antonio\n\nLiberei uma cópia de avaliação para meus clientes testarem.\nEu não testei em emulador de smartphone. \nOs testes foram feitos por usuários que têm os smartphones.\nNeles roda windows mobile 5.0 e existe um aplicativo Explorer.\n\nA imagem que pedi a um usuário não está com boa qualidade, mas está aqui:\n[img:3c6p80hi]http&#58;//softservice&#46;com/tmp/samsung&#46;jpg[/img:3c6p80hi]\n\nTem usuários utilizando o QTek 9100 ( <!-- m --><a class=\"postlink\" href=\"http://www.myqtek.com/europe/products/9100.aspx\">http://www.myqtek.com/europe/products/9100.aspx</a><!-- m --> ) onde o aplicativo roda muito bem.\n\n[]\'s\n\nRogerio','',0,'CA==','3c6p80hi',1,0,'',274,0,0),(26681,5969,6,110,0,'165.98.223.31',1171498392,1,0,1,1,1,1,'','','Ok, rene\n\nlo hare y te comento.\n\nhe hecho una prueba antes de ver este post instalando el ads server una de las estaciones y si me hha funcionado de perlas.\n\nveremos en el server con los tips que me indicaste.\n\ngracias por la atencion.\n\nsalu2\ncarlos vargas','',0,'CA==','10gbc4ww',1,0,'',110,0,0),(26682,5971,6,760,0,'200.37.76.86',1171504286,1,0,1,1,1,0,'','Gui GTW??','Hola a todos del foro\n\nSe que no es FW la consulta, pero necesito saber donde conseguir estos guis para modo consola, ya que tengo un sistema hecho en clipper 5.3 y las librerias Fastlib de 16 bits, me pase a xharbour modo consola y descarte las librerias fastlib por ser de 16 bits, el problema es que las graficas y las ventanas, etc, le daban vistosidad al sistema, he oido acerca de unas guis GTWvt y GTWvw pero no se donde conseguirlas?\n\nO acaso ya viene con el xharbour???\n\nYa migre mi sistema a 32 bits lo que falta es darle la vistosidad al sistema con ventanas y colores....\n\nAyuda por favor y gracias de antemano....\n\nSalu2','',0,'CA==','2s5tyzu9',1,0,'',760,0,0),(26683,5972,4,267,0,'201.9.165.192',1171505130,1,0,1,1,1,1,'','How to initiate IRDA(Infrared) connection?','Hi Antonio,\n\nAlready I obtained to send archives through ftp. But I have that to call the IExplorer all time to activate connection IRDA!\n\nExists some way to activate connection IRDA from my application?','',0,'CA==','2k9h6qde',1,0,'',267,0,0),(26684,5973,1,953,0,'209.76.81.93',1171506196,1,0,1,1,1,0,'','LHA.DLL - 19.2 - Vista','I have a Fivewin application written in Clipper using 1.9.2 Fivewin.  I\'ve used a library called lha.dll to do compression of files and it\'s always worked until Vista.  In Vista, the compression routines work, but the uncompression process results in a GPF.  Has anyone run into this before?','',0,'CA==','3t6s5gbo',1,0,'',953,0,0),(26685,5974,6,53,0,'189.139.96.71',1171506340,1,0,1,1,1,1,'','Impresoras de recibos o tickets','Amigos del foro:\n\nAlguien que quiera contar su experiencia con las impresoras de recibos o tickets ?, en especial mi cliente va a adquirir una impresora Star Micronics TSP100 especial para puntos de venta.\n\nHay algo que considerar para usar este tipo de impresoras con una aplicación desarrollada con FWH y xHarbour ?\n\nGracias por compartir sus experencias.','',0,'CA==','3cfoyp18',1,0,'',53,0,0),(26686,5975,6,694,0,'200.189.112.21',1171507887,1,0,1,1,1,1,'','Antonio o SetTime não funciona!','var:=\"17:00\"\nSetTime( Val( Left( var, 2 ) ), Val( SubStr( var, 4, 2 ) ) )\n\n\nPorque ele não funciona!\nAokisantos','',0,'CA==','udhiesw5',1,0,'',694,0,0),(26687,5970,6,397,0,'200.207.60.197',1171508199,1,0,1,0,1,1,'','','Mira los recortes de mis codigos:\n\n[code:esh5z7lp]\n   TelaMTopo   &#58;= Val&#40;VerifyINI&#40; &quot;PROGRAMA&quot;  , &quot;COORDT&quot;, &quot;000&quot;, cPath+&quot;nfw&#46;ini&quot; &#41;&#41;\n   TelaMEsque  &#58;= Val&#40;VerifyINI&#40; &quot;PROGRAMA&quot;  , &quot;COORDL&quot;, &quot;000&quot;, cPath+&quot;nfw&#46;ini&quot; &#41;&#41;\n\n   ResLargura &#58;= GetSysMetrics&#40;0&#41;   \n   ResAltura   &#58;= GetSysMetrics&#40;1&#41;\n   Resolucao   &#58;= alltrim&#40;str&#40;ResLargura&#41;&#41;+\'x\'+alltrim&#40;str&#40;ResAltura&#41;&#41;\n   do case\n      case Resolucao = &quot;640x480&quot;\n           ? &quot;Resolucao Impropria para trabalho&quot;\n           quit\n      case Resolucao = &quot;800x600&quot;\n           ResLargura &#58;= 800   \n           ResAltura  &#58;= 600\n      case Resolucao = &quot;1024x768&quot;\n           ResLargura &#58;= 1024 // 800\n           ResAltura  &#58;=  768 // 600\n      case Resolucao = &quot;1280x1024&quot;\n           ResLargura &#58;= 1280 // 1024\n           ResAltura  &#58;= 1024 // 768\n   endcase\n   SET _3DLOOK ON\n   DEFINE WINDOW oWnd FROM TelaMTopo,TelaMEsque TO ResAltura,ResLargura PIXEL TITLE &quot;5Volution Legacy&quot; ICON oIcon MDI MENU BuildMenu&#40;&#41; COLOR nRGB&#40;000,000,000&#41;,nRGB&#40;200,223,254&#41;\n   &#46;&#46;&#46;\n   ACTIVATE WINDOW oWnd VALID &#40;SalvaCoordenadas&#40;oWnd&#41;,&#46;t&#46;&#41;\n[/code:esh5z7lp]\n\nFunciones de apoio:\n[code:esh5z7lp]\nfunction SalvaCoordenadas&#40;oWnd&#41;\n   lForcaGravar &#58;= &#46;f&#46;\n   VerifyINI&#40; &quot;PROGRAMA&quot;, &quot;COORDT&quot;, GetWndRect&#40;oWnd&#58;hWnd&#41;&#91;1&#93;, cPath+&quot;nfw&#46;ini&quot;, lForcaGravar &#41;\n   VerifyINI&#40; &quot;PROGRAMA&quot;, &quot;COORDL&quot;, GetWndRect&#40;oWnd&#58;hWnd&#41;&#91;2&#93;, cPath+&quot;nfw&#46;ini&quot;, lForcaGravar &#41;\n   return nil\n\nfunction VerifyINI&#40; _section_, _entry_, _var_, _inifile_, _grava_ &#41;\n   oIni &#58;= TIni&#40;&#41;&#58;New&#40; _inifile_ &#41;\n   if _grava_ = &#46;t&#46;\n      oIni&#58;Set&#40; _section_, _entry_, _var_ &#41;\n   endif\n   return oIni&#58;Get&#40; _section_, _entry_, _var_, _var_ &#41;\n[/code:esh5z7lp]\n\nCon esto tu salvas las ultimas coordenadas de su applicacion.\n\nAqui esta lo ejemplo de menu:\n[code:esh5z7lp]\nFunction BuildMenu&#40;&#41;\nMENU oMenu\n         MENUITEM &quot;640x480&quot;    ACTION ChangeRes&#40;640,480&#41;\n         MENUITEM &quot;800x600&quot;    ACTION ChangeRes&#40;800,600&#41;\n         MENUITEM &quot;1024x768&quot;   ACTION ChangeRes&#40;1024,768&#41;\n         MENUITEM &quot;1280x1024&quot; ACTION ChangeRes&#40;1280,1024&#41;\nENDMENU\n[/code:esh5z7lp]\n\nLa Funcion ChangeRes()\n[code:esh5z7lp]\n#Include &quot;Fivewin&#46;ch&quot;\n#Include &quot;dll&#46;ch&quot;\n#Include &quot;Struct&#46;ch&quot;\n\n#xTranslate nTrim&#40;&lt;n&gt;&#41;=&gt;LTrim&#40;Str&#40;&lt;n&gt;&#41;&#41;\n\nFunction ChangeRes&#40;nX,nY,lDireto&#41;\n  Local CCDEVICENAME  &#58;= 32\n  Local CCFORMNAME    &#58;= 32\n  Local EWX_LOGOFF    &#58;= 0\n  Local EWX_SHUTDOWN  &#58;= 1\n  Local EWX_REBOOT    &#58;= 2\n  Local EWX_FORCE     &#58;= 4\n  Local DM_BITSPERPEL &#58;= nHex&#40;&quot;40000&quot;&#41;  // &amp;H40000  // 4*16^4  // 262144 \n  Local DM_PELSWIDTH  &#58;= nHex&#40;&quot;80000&quot;&#41;  // &amp;H80000  // 8*16^4  // 524288  \n  Local DM_PELSHEIGHT &#58;= nHex&#40;&quot;100000&quot;&#41; // &amp;H100000 // 1*16^5  //1048576 \n  Local CDS_UPDATE    &#58;= 1  //&amp;H1\n  Local CDS_TEST      &#58;= 4  //&amp;H4\n  Local DISP_SUCCESS  &#58;= 0\n  Local DISP_RESTART  &#58;= 1\n  Local nOldX         &#58;= WndWidth&#40;GetDesktopWnd&#40;&#41;&#41; // GetSysMetrics&#40;0&#41;\n  Local nOldY         &#58;= WndHeight&#40;GetDesktopWnd&#40;&#41;&#41; // GetSysMetrics&#40;1&#41;\n  Local oDevMode\n  Local uRet \n  Local cBuffer\n  Local lDone&#58;=&#46;F&#46;\n  DEFAULT nX &#58;= WndWidth&#40;GetDesktopWnd&#40;&#41;&#41;,;\n          nY &#58;= WndHeight&#40;GetDesktopWnd&#40;&#41;&#41;,;\n          lDireto&#58;=&#46;f&#46;\n  STRUCT oDevMode     \n    MEMBER cDevName   AS STRING LEN CCDEVICENAME\n    MEMBER nSpecVer   AS _INT\n    MEMBER nDrvVer    AS _INT\n    MEMBER nSize      AS _INT\n    MEMBER nDrvExtra  AS _INT\n    MEMBER nFields    AS DWORD\n    MEMBER nOrientat  AS _INT\n    MEMBER nPaperSiz  AS _INT\n    MEMBER nPaperLen  AS _INT\n    MEMBER nPaperWid  AS _INT\n    MEMBER nScale     AS _INT\n    MEMBER nCopies    AS _INT\n    MEMBER nDefSrc    AS _INT\n    MEMBER nPrnQlty   AS _INT\n    MEMBER nColor     AS _INT  \n    MEMBER nDuplex    AS _INT\n    MEMBER nYResolut  AS _INT\n    MEMBER nTTOpt     AS _INT\n    MEMBER nCollate   AS _INT\n    MEMBER cFormName  AS STRING LEN CCFORMNAME\n    MEMBER nUnusePad  AS _INT\n    MEMBER nBitsPPel  AS DWORD \n    MEMBER nPelWidth  AS DWORD \n    MEMBER nPelHeigh  AS DWORD\n    MEMBER nDisFlags  AS DWORD\n    MEMBER nDisFreq   AS DWORD\n  ENDSTRUCT\n  cBuffer&#58;=oDevMode&#58;cBuffer\n  uRet &#58;= EnumDisplaySettings&#40;0, 0, @cBuffer&#41; \n  oDevMode&#58;cBuffer&#58;=cBuffer   \n  IF uRet\n     // Descomente o ultimo parametro se quer trocar as cores, so que nao recomendo pois irá\n     // reiniciar \n     oDevMode&#58;nFields   &#58;= nOr&#40;DM_PELSWIDTH, DM_PELSHEIGHT /* , DM_BITSPERPEL */&#41;\n     oDevMode&#58;nPelWidth &#58;= nX    //ScreenWidth\n     oDevMode&#58;nPelHeight&#58;= nY    //ScreenHeight\n     // Descomente esta linha para trocar as cores so que nao recomendo\n     * oDevMode&#58;nBitsPPel &#58;= 16 //&#40;could be 8, 16, 32 or even 4&#41;\n     cBuffer&#58;=oDevMode&#58;cBuffer\n     uRet &#58;= ChangeDisplaySettings&#40;@cBuffer, CDS_TEST&#41;\n     oDevMode&#58;cBuffer&#58;=cBuffer\n     DO CASE\n        Case uRet = DISP_RESTART\n             if MsgYesNo&#40;&quot;Deseja reiniciar para aplicar as alteracoes?&quot;, &quot;Atencao&quot;&#41;\n                uRet &#58;= ExitWindowsEx&#40;EWX_REBOOT, 0&#41;\n             Endif\n        Case uRet = DISP_SUCCESS\n             uRet &#58;= ChangeDisplaySettings&#40; @cBuffer, CDS_UPDATE&#41;\n             lDone&#58;=&#46;T&#46;\n             if lDireto\n                oDevMode&#58;nFields   &#58;= nOr&#40;DM_PELSWIDTH, DM_PELSHEIGHT /* , DM_BITSPERPEL */&#41;\n                oDevMode&#58;nPelWidth &#58;= nOldX    //ScreenWidth\n                oDevMode&#58;nPelHeight&#58;= nOldY    //ScreenHeight\n                cBuffer&#58;=oDevMode&#58;cBuffer\n                uRet &#58;= ChangeDisplaySettings&#40;@cBuffer, CDS_TEST&#41;\n                oDevMode&#58;cBuffer&#58;=cBuffer\n             else\n                if MsgYesNo&#40;&quot;Tem certeza desta alteracao?&quot;, &quot;Atencao&quot;&#41;\n                else\n                   oDevMode&#58;nFields   &#58;= nOr&#40;DM_PELSWIDTH, DM_PELSHEIGHT /* , DM_BITSPERPEL */&#41;\n                   oDevMode&#58;nPelWidth &#58;= nOldX    //ScreenWidth\n                   oDevMode&#58;nPelHeight&#58;= nOldY    //ScreenHeight\n                   cBuffer&#58;=oDevMode&#58;cBuffer\n                   uRet &#58;= ChangeDisplaySettings&#40;@cBuffer, CDS_TEST&#41;\n                   oDevMode&#58;cBuffer&#58;=cBuffer\n                endif\n             endif\n       otherwise\n             MsgAlert&#40;&quot;Modo nao suportado&quot;, &quot;Erro&quot; &#41;\n     ENDCASE\n  endif\nreturn lDone\n\nDLL32 FUNCTION EnumDisplaySettings&#40;lpszDeviceName AS DWORD,;\n                                   iModeNum AS DWORD, ;\n                                   @lpDevMode AS LPSTR&#41; AS BOOL PASCAL;\n   FROM &quot;EnumDisplaySettingsA&quot; LIB &quot;User32&#46;dll&quot; \n\nDLL32 FUNCTION ChangeDisplaySettings&#40;@lpDevMode AS LPSTR,;\n                                     dwFlags AS DWORD&#41; AS DWORD;\n   FROM &quot;ChangeDisplaySettingsA&quot; LIB &quot;User32&#46;dll&quot; \n\nDLL32 FUNCTION ExitWindowsEx&#40;uFlags AS DWORD,;\n                             dwReserved AS DWORD&#41; AS DWORD PASCAL;\n   LIB &quot;user32&#46;dll&quot;\n[/code:esh5z7lp]','',0,'AIA=','esh5z7lp',1,0,'',397,0,0),(26688,5971,6,54,0,'189.132.87.63',1171517488,1,0,1,1,1,1,'','Re: Gui GTW??','[quote=&quot;Francis&quot;:1b7yck2i]Hola a todos del foro\n\nSe que no es FW la consulta, pero necesito saber donde conseguir estos guis para modo consola, ya que tengo un sistema hecho en clipper 5.3 y las librerias Fastlib de 16 bits, me pase a xharbour modo consola y descarte las librerias fastlib por ser de 16 bits, el problema es que las graficas y las ventanas, etc, le daban vistosidad al sistema, he oido acerca de unas guis GTWvt y GTWvw pero no se donde conseguirlas?\n\nO acaso ya viene con el xharbour???\n\nYa migre mi sistema a 32 bits lo que falta es darle la vistosidad al sistema con ventanas y colores....\n\nAyuda por favor y gracias de antemano....\n\nSalu2[/quote:1b7yck2i]\n\nAsi es,\n\nViene con el xharbour, pero en las contrbuciones puedes encontrarlas.\n\n[url:1b7yck2i]http&#58;//www&#46;xharbour&#46;org[/url:1b7yck2i]\n\nZona de descarga, contribuciones','',0,'kA==','1b7yck2i',1,0,'',54,0,0),(26689,5976,6,913,0,'189.136.171.28',1171517658,1,0,1,1,1,1,'','SE PODRA EJECUTAR control desk.cpl DESDE FWH?','Hola <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nse podra ejecutar control desk.cpl desde una aplicacion FWH <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nsi es que se puede que tengo que hacer\n\n\nGracias por todo\n\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'kA==','1t2u3rw6',1,0,'',913,0,0),(26690,5977,7,945,0,'80.32.177.143',1171530471,1,0,1,1,1,0,'','Codigos de colores del getsyscolor()','Muy buenas, Por favor hacerme el favor de decirme los códigos de colores y como puedo poner cualquier color en el getsyscolor(), muchas gracias.\n\nUn Saludo.','',0,'kA==','2znutmry',1,0,'',945,0,0),(26691,5967,7,945,0,'80.32.177.143',1171531411,1,0,1,1,1,0,'','','Ya lo he solucionado solo con poner rgb(color),rgb(color)\nMuchas gracias de todas formas.','',0,'kA==','3ttj9pjr',1,0,'',945,0,0),(26692,5970,6,103,0,'200.241.81.140',1171539538,1,0,1,1,1,1,'','','Rochinha,\n\n\nSET SPANISH ON\n\n      Muy interesante tu función. Lo que te preguntaria es como se podria hacer para que todos los controles de las pantallas (dialogs, gets, says, combos, etc.) tengan sus tamaños regenerados por causa de la nueva resolución, especialmente cuando se usa RESOURCES.\n     Tienes alguna idea?\n\nSET PORTUGUESE ON\n\n     Muito interessante tua função. O que te pergunto é como se poderia fazer para que todos os controles das janelas (dialogs, gets, says, combos, etc.) tenham seus tamanhos redimensionados por causa da nova resolução, especialmente quando se usa RESOURCES.\n    Tens alguma idéia?\n\nSaludos,','',0,'kA==','2z3bh56v',1,0,'',103,0,0),(26693,5939,6,519,0,'88.14.200.251',1171540227,1,0,1,1,1,0,'','','Gracias por vuestra ayuda, ahora me funciona perfecto.','',0,'kA==','1xnwt66e',1,0,'',519,0,0),(26694,5978,3,876,0,'81.164.119.188',1171543423,1,0,1,1,1,0,'','Different behaviour in FWH/FW in GET...ON CHANGE','Hello,\n\nIn Clipper, no matter what the ON CHANGE returns, TAB or ENTER positions the cursor in the next GET.\nIn xHarbour, the ON CHANGE needs to return .T. before ENTER brings the cursor to the next GET.\n\nPlease try this sample:\n\n/*\n\noGet1 has an onChange wich does NOT return .T.\n-&gt; By changing value in oGet1 en pressing ENTER, cursor stays in oGet1 &lt;&lt;- WRONG\n-&gt; By changing value in oGet1 en pressing TAB, cursor goes to oGet2\n\noGet2 has an onChange wich DOES return .T.\n-&gt; By changing value in oGet2 en pressing ENTER, cursor goes to oGet3\n-&gt; By changing value in oGet2 en pressing TAB, cursor goes to oGet2\n\n*/\n\n#include \"FiveWin.ch\"\n\nFunction wfMain()\n   LOCAL oDlg\n   LOCAL oGet1, oGet2, oGet3\n   LOCAL cGet1, cGet2, cGet3:=\"\"\n  \n   cGet1:=\"Change this text en press Enter\"\n   cGet2:=\"Change this text en press Enter\"\n  \n   DEFINE DIALOG oDlg TITLE \"Test\" FROM 0, 0 TO 300,400 PIXEL\n  \n   @ 10, 10 GET oGet1 VAR cGet1 OF oDlg PIXEL SIZE 150, 10;\n            ON CHANGE (cGet3+=\"On Change cGet1: Cursor stays in oGet1!!\"+CRLF, oGet3:Refresh()) ;\n            VALID (cGet3+=\"Valid cGet1\"+CRLF, oGet3:Refresh(), .T.) ;\n    \n   @ 30, 10 GET oGet2 VAR cGet2 OF oDlg PIXEL SIZE 150, 10;\n            ON CHANGE (cGet3+=\"On Change cGet2: Cursor goes to next field\"+CRLF, oGet3:Refresh(), .T.) ;\n            VALID (cGet3+=\"Valid cGet2\"+CRLF, oGet3:Refresh(), .T.) ;\n  \n   @ 50, 10 GET oGet3 VAR cGet3 OF oDlg MEMO PIXEL SIZE 150, 50\n                                 \n   ACTIVATE DIALOG oDlg CENTERED     \n  \nRETURN NIL\n\n--\nSincerely,\n\nPatrick Mast\n<!-- w --><a class=\"postlink\" href=\"http://www.xHarbour.com\">www.xHarbour.com</a><!-- w -->','',0,'kA==','1b116nfc',1,0,'',876,0,0),(26695,5979,6,439,0,'200.125.33.231',1171545264,1,0,1,1,1,1,'','Determinar si un control está &quot;enable&quot; o &quot;dis','Existe alguna función que me permita determinar si un control (un get por ejemplo) está habilitado o no?\n\nGracias desde ya por la ayuda.','',0,'kA==','364mzn0r',1,0,'',439,0,0),(26696,5966,6,196,0,'201.231.125.43',1171545403,1,0,1,1,1,0,'','','Y donde lo hago?, nunca lo use. En el workshop uso la clase tfolder, y en mi prg escribo:\n\nDEFINE DIALOG oDlg RESOURCE \"FOLDER\" OF oWnd\nREDEFINE FOLDER oFld ID 1000 OF oDlg;\nPROMPTS \"&amp;1 UNO\",\"&amp;2 DOS\";\nDIALOGS \"FOLDER1\",\"FOLDER2\"\n\nMuchas Gracias\nJorge Jaurena','',0,'kA==','ktgwz75r',1,0,'',196,0,0),(26697,5966,6,103,0,'200.241.81.140',1171545940,1,0,1,1,1,1,'','','Jorge,\n\n    En Resource Workshop puedes usar la opción EDIT AS TEXT en tu dialog y cambia el nombre TFOLDER por SYSTABCONTROL32 y listo.\n\nSaludos,','',0,'kA==','23gt0e6y',1,0,'',103,0,0),(26698,5969,6,838,0,'80.34.222.112',1171548252,1,0,1,1,1,0,'','','Una duda que me corroe desde hace tiempo en éste sentido.\n\nYo también tengo una de mis aplicaciones funcionado en un grupo de trabajo del que 10 ordenadores corren bajo xp, y un servidor donde están los datos y tengo instalado server2003, que tine una dirección ip también, pero yo siempre he funcionado sin ADS ni esas cosas, siempre con DBF abiertas en modo comprartido. Veo que hablais sobre server 7.1, ADS, ARC etc cosas que me suenan a chino.\n\nEs algo distinto de lo que yo hago?\nEstos sistemas mejorarían lo que yo tengo?\n\nYa digo que tenemos 10 puestos de trabajo metiendo albaranes, facturando, tomando avisos, enviando ftp, correos, pdf, todo a través de mi aplicación y funciona perfectamente desde que estaba en clipper y fuí pasando a Fivewin y luego a FWH, y la gente no nota nada, el sistema funciona rápido y bien, pero si supone algo de mejora, mo pondría a estudiar sobre éste tema.\n\nSaludos\n\nJose Luis','',0,'kA==','1jq7vb7s',1,0,'',838,0,0),(26699,5973,1,2,0,'87.218.146.165',1171548891,1,0,1,1,1,1,'','','Please create a MAP file using MAP A,S from the LNK file and search the GPF address into the MAP file, to check what function is where the GPF comes from','',0,'kA==','2tjngwe6',1,0,'',2,0,0),(26700,5970,6,53,0,'189.139.24.232',1171549399,1,0,1,1,1,1,'','','Rochina:\n\nvoy a analizar tu código, si me quedo atorado pido tu ayuda.\n\nMuito obrigado  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , Armando','',0,'kA==','1q1ia9ys',1,0,'',53,0,0),(26701,5976,6,397,0,'201.13.89.24',1171550284,1,0,1,0,1,1,'','','Exemplo:\n\n[code:1g9nrjky]\n/*\n  Controlando el Sistema desde Fivewin\n  by TheFull &amp; Joaquim Ferrer &#40;2000&#41;\n\n  Hola a Todos,\n  Aqui os dejamos estos TIPS para el Disfrute del Personal&#46;\n  */\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;dll&#46;ch&quot;\n\n#DEFINE WM_SYSCOMMAND  274     // &amp;H112\n#DEFINE SC_TASKLIST   61744    //&amp;HF130\n#DEFINE SC_SCREENSAVE 61760   // &amp;HF140\n#DEFINE SW_HIDE           0   // &amp;H0\n#DEFINE SW_SHOWNA         8   // &amp;H8\n#DEFINE SW_SHOW           5   // &amp;H5\n#DEFINE SW_SHOWNORMAL     1\n#DEFINE SC_MONITORPOWER  61808   //&amp;HF170   Gracias a Ramon Ramirez por la info\n#DEFINE SM_CLEANBOOT     67\n\nStatic oWnd\nFunction Main&#40;&#41;\n\n   local oBar, oFnt\n\n   // Lanzo conexion a Internet          |-----------&gt; Nombre Conexion\n   //Winexec&#40;&quot;rundll rnaui&#46;dll,RnaDial Uni2&quot;,0&#41;;\n\n   DEFINE WINDOW oWnd FROM 1, 1 To 22, 75 ;\n      TITLE &quot;Controlando el Sistema desde Fivewin&quot;\n\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 150,26 3D\n\n   DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, 12\n\n   DEFINE BUTTON OF oBar  PROMPT &quot;Disable Barra &quot; FONT oFnt ;\n                    ACTION &#40; EnableWindow&#40;FindWindowEx&#40;FindWindow&#40;\'Shell_TrayWnd\', nil&#41;, 0, \'Button\', nil&#41;, &#46;F&#46; &#41; &#41;\n   DEFINE BUTTON OF oBar  PROMPT &quot;Enable Barra &quot; FONT oFnt ;\n                    ACTION &#40; EnableWindow&#40;FindWindowEx&#40;FindWindow&#40;\'Shell_TrayWnd\', nil&#41;, 0, \'Button\', nil&#41;, &#46;T&#46;  &#41; &#41;\n   // Ocultar Iconos del Escritorio\n   DEFINE BUTTON OF oBar  PROMPT &quot;Ocultar iconos del Escritorio &quot; FONT oFnt ACTION ShowWindow&#40; FindWindow&#40;nil,\'Program Manager\'&#41;, SW_HIDE&#41;\n   // Mostrar Iconos del Escritorio\n   DEFINE BUTTON OF oBar  PROMPT &quot;Mostrar Iconos del Escritorio &quot; FONT oFnt ACTION ShowWindow&#40; FindWindow&#40;nil,\'Program Manager\'&#41;, SW_SHOW&#41;\n   // Ocultar Barra de Tareas de WIndows\n   DEFINE BUTTON OF oBar  PROMPT &quot;Ocultar Barra de Tareas &quot; FONT oFnt ACTION ShowWindow&#40;FindWindow&#40; \'Shell_TrayWnd\',nil&#41;, SW_HIDE &#41;\n   // Mostrar Barra de Tareas de WIndows\n   DEFINE BUTTON OF oBar  PROMPT &quot;Mostrar Barra de Tareas &quot; FONT oFnt ACTION ShowWindow&#40;FindWindow&#40; \'Shell_TrayWnd\',nil&#41;, SW_SHOWNA&#41;\n   // Pulsar el boton de Inicio\n   DEFINE BUTTON OF oBar  PROMPT &quot;Boton Inicio&quot; FONT oFnt ACTION &#40;SendMessage&#40;oWnd&#58;hWnd,WM_SYSCOMMAND,SC_TASKLIST,0&#41;&#41;\n   // Lanza el salvapantallas\n   DEFINE BUTTON OF oBar  PROMPT &quot;Salvapantallas&quot; FONT oFnt ACTION GetForeWin&#40; &#41; // GetDeskWin&#40; &#41; // &#40;SendMessage&#40;oWnd&#58;hWnd,WM_SYSCOMMAND,SC_SCREENSAVE,0&#41;&#41;\n   // Abrir el Panel de Control\n   DEFINE BUTTON OF oBar  PROMPT &quot;Panel Control&quot; FONT oFnt ACTION &#40;Control&#40;&quot;shell32&#46;dll,Control_RunDLL&quot;,oWnd&#41;&#41;\n   // Mostrar el diálogo \'Agregar/Quitar programas\' &#40;Instalar/Desinstalar&#41;\n   DEFINE BUTTON OF oBar  PROMPT &quot;Agregar/Quitar programas&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL appwiz&#46;cpl,,1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Agregar/Quitar componentes de windows\' &#40;Instalar/Desinstalar&#41;\n   DEFINE BUTTON OF oBar  PROMPT &quot;Agregar Componentes&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL appwiz&#46;cpl,,2\',oWnd&#41;&#41;\n   //Crear Disco de Sistema\n   DEFINE BUTTON OF oBar  PROMPT &quot;Disco Inicio&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL appwiz&#46;cpl,,3\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de pantalla &#40;Fondo&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Pantalla&#40;Fondo&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL desk&#46;cpl,,0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de pantalla &#40;Protector de Pantalla&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Pantalla&#40;Protector&#41; &quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL desk&#46;cpl,,1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de pantalla &#40;Apariencia&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Pantalla&#40;Apariencia&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL desk&#46;cpl,,2\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de pantalla &#40;Configuracion&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Pantalla&#40;Propiedades&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL desk&#46;cpl,,3\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Busqueda rápida\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Busqueda rapida&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL findfast&#46;cpl\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Internet &#40;General&#41;\n   DEFINE BUTTON OF oBar  PROMPT &quot;Internet General&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL inetcpl&#46;cpl,,0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Internet &#40;Seguridad&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Internet Seguridad&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL inetcpl&#46;cpl,,1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Internet &#40;Contenido&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Internet Contenido&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL inetcpl&#46;cpl,,2\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Internet &#40;Conexion&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Internet Conexion&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL inetcpl&#46;cpl,,3\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Internet &#40;Programas&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Internet Progrograma&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL inetcpl&#46;cpl,,4\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Internet &#40;Avanzado&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Internet Avanzado&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL inetcpl&#46;cpl,,5\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de Configuracion Regional &#40;Configuracion Regional&#41;\n   DEFINE BUTTON OF oBar  PROMPT &quot;Config&#46;Regional&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL intl&#46;cpl,,0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de Configuracion Regional &#40;Numero&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Config&#46;Reg&#46;Numero&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL intl&#46;cpl,,1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de Configuracion Regional &#40;Moneda&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Config&#46;Reg&#46;Moneda&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL intl&#46;cpl,,2\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de Configuracion Regional &#40;Hora&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Config&#46;Reg&#46;Hora&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL intl&#46;cpl,,3\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de Configuracion Regional &#40;Fecha&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Config&#46;Reg&#46;Fecha&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL intl&#46;cpl,,4\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Dispositivos de Juego &#40;General&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Juegos&#40;General&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL joy&#46;cpl,,0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Dispositivos de Juego &#40;Avanzado&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Juegos&#40;Avanzado&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL joy&#46;cpl,,0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Raton\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Raton&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL main&#46;cpl @0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Teclado\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Teclado&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL main&#46;cpl @1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Impresora\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Impresora&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL main&#46;cpl @2\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Fuentes\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Fuentes&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL main&#46;cpl @3\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades Multimedia &#40;Sonido&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Multimedia&#40;Sonido&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL mmsys&#46;cpl,,0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades Multimedia &#40;Video&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Multimedia&#40;Video&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL mmsys&#46;cpl,,1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades Multimedia &#40;Midi&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Multimedia&#40;Midi&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL mmsys&#46;cpl,,2\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades Multimedia &#40;Cd audio&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Multimedia&#40;Cd Audio&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL mmsys&#46;cpl,,3\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades Multimedia &#40;Dispositivos&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Multimedia&#40;Dispositivos&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL mmsys&#46;cpl,,4\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Propiedades de red\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Propiedades de Red&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL netcpl&#46;cpl\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Asistente para conexión de red\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Asistente Conexion Red&quot; FONT oFnt ACTION &#40;Control&#40;\'rnaui&#46;dll,RnaWizard\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Administracion OBDC\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Administracion OBDC&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL odbccp32&#46;cpl\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Sistema &#40;General&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Sistema&#40;General&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL sysdm&#46;cpl,,0\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Sistema &#40;Dispositivos&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Sistema&#40;Dispositivos&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL sysdm&#46;cpl,,1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Sistema &#40;Perfiles hardware&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Sistema&#40;Perfiles&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL sysdm&#46;cpl,,2\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Sistema &#40;Rendimiento&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Sistema&#40;Rendimiento&#41;&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL sysdm&#46;cpl,,3\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Asistente hardware\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Asistente Hardware&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL sysdm&#46;cpl @1\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Asistente para añadir impresoras\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Asistente Impresoras&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,SHHelpShortcuts_RunDLL AddPrinter\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Temas de escritorio\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Temas Escritorio&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL themes&#46;cpl\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Fecha/Hora &#40;General&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Fecha/Hora General&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL timedate&#46;cpl\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Fecha/Hora &#40;Zona horaria&#41;\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Fecha/Hora  Zona&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL timedate&#46;cpl,,/f\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Asistente para añadir modem\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Asistente Modem&quot; FONT oFnt ACTION &#40;Control&#40;\'shell32&#46;dll,Control_RunDLL modem&#46;cpl,,add\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Instalar TCP/IP\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Instalar Tcp/IP&quot; FONT oFnt ACTION &#40;Control&#40;\'setupapi&#46;dll,InstallHinfSection MSTCP&#46;Install 4 nettrans&#46;inf\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Instalar Adaptador telefonico para redes\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;Instalar Adap&#46;Tele&#46;Redes&quot; FONT oFnt ACTION &#40;Control&#40;\'setupx&#46;dll,InstallHinfSection RNA 12345 rna&#46;inf\',oWnd&#41;&#41;\n   //Mostrar el diálogo \'Llamar a traves del acceso telefonico\'\n   DEFINE BUTTON OF oBar  PROMPT &quot;LLama Tel&quot; FONT oFnt ACTION &#40;Control&#40;\'rnaui&#46;dll,RnaDial DUNConnectionName\',oWnd&#41;&#41;\n   //Mostrar Dialogo de Formateando discos\n   // Donde esta el 0 -&gt;Formateo Rapido\n   // Si pones   el 1 -&gt;Formateo Total\n   // Si pones   el 2 -&gt;Copiar Solamente Archivos Sistema\n   DEFINE BUTTON OF oBar  PROMPT &quot;Formateando&#46;&#46;&quot; FONT oFnt ;\n      ACTION &#40; ShellExecute&#40;oWnd&#58;hWnd,&quot;Open&quot;,&quot;C&#58;\\Windows\\Rundll32&#46;exe&quot;,&quot;Shell32&#46;dll,SHFormatDrive&quot;,&quot;C&#58;\\WINDOWS&quot;,0&#41;&#41;\n   //Apagar el Equipo si nos deja otras aplicaciones que esten abiertas\n   DEFINE BUTTON OF oBar  PROMPT &quot;Apagar Equipo Confirma&#46;&quot; FONT oFnt ACTION &#40; Apaga&#40;1,0&#41; &#41;\n   //Reiniciar el equipo\n   DEFINE BUTTON OF oBar  PROMPT &quot;Reiniciar el Equipo&#46;&quot; FONT oFnt    ACTION &#40; Apaga&#40;2,0&#41; &#41;\n   //Apagar el Equipo sin pedir confirmacion ni nada&#46; Las aplicaciones abiertas que se las apañen&#46;&#46; ;&#41;\n   DEFINE BUTTON OF oBar  PROMPT &quot;Apaga y Vamonos XD&#46;&quot; FONT oFnt     ACTION &#40; Apaga&#40;5,0&#41; &#41;\n   //Lanza el navegador por defecto\n   DEFINE BUTTON OF oBar  PROMPT &quot;Navegador&quot; FONT oFnt ;\n          ACTION ShellExecute&#40; GetActiveWindow&#40;&#41; ,nil,\'c&#58;\\html\\index&#46;htm\',\'\',\'\',SW_SHOW&#41;\n   // Apagamos&#40; bajo consumo &#41; y encedemos el Monitor\n   // Ojo!! Si lo apagas, la unica manera de encenderlo es con la instruccion con contiene -1\n   // En un timer funcionaria de muerte!!!\n   DEFINE BUTTON OF oBar  PROMPT &quot;Apagando / Encendiendo Monitor &quot; FONT oFnt ;\n     ACTION &#40; SendMessage&#40;oWnd&#58;hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 0 &#41;,syswait&#40;20&#41;,;\n              SendMessage&#40;oWnd&#58;hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, -1 &#41;&#41;\n   // Saber como Arranque de Windows\n   //   0- Si se hizo un arranque normal\n   //   1- Si se hizo un arranque a prueba de fallos\n   //   2- Si se hizo un arranque a prueba de fallos con arranque en red\n   DEFINE BUTTON OF oBar  PROMPT &quot;Como he arrancado Win? &quot; FONT oFnt ;\n          ACTION &#40; MsgInfo&#40; GetSysTemMetrics&#40;SM_CLEANBOOT&#41;&#41;  &#41;\n\n   // Barra flotante en el INIT de la Ventana porque la Clausula FLOAT en la\n   // barra se hace la \'titola\' un lio\n   ACTIVATE WINDOW oWnd MAXIMIZED ON INIT &#40; oBar&#58;Float&#40;&#41; &#41;\n   oFnt&#58;End&#40;&#41;\n   // Por si acaso nos vamos con la barra ocultada\n   ShowWindow&#40;FindWindow&#40; \'Shell_TrayWnd\',nil&#41;, SW_SHOWNA&#41;\nreturn nil\n//\n\n// Funcion Generica\n// Recibe &#58; cString - Cadena a montar &#40; orden &#41;\n//        &#58; oWnd    - Ventana para coger el Handle\nfunction Control&#40;cString,oWnd&#41;\n   Local Result &#58;= ShellExecute&#40;oWnd&#58;hWnd, nil,GetWinDir&#40;&#41;+\'\\system32\\rundll32&#46;exe\',;\n                         cString, nil, SW_SHOW&#41;\n   RETURN NIL\n\nfunction GetSysTemMetrics&#40;cString,oWnd&#41;\n   RETURN GetSysMetrics&#40;cString&#41;\n\nfunction FindWindowEx&#40;cString&#41;\n   RETURN &#46;t&#46;\n\nDLL32 Function Apaga&#40;uFlags As LONG,dwReserved AS LONG&#41; ;\n    AS LONG PASCAL FROM &quot;ExitWindowsEx&quot; LIB &quot;USER32&#46;DLL&quot;\n\nDLL32 FUNCTION GetDeskWin&#40; &#41; ;\n    AS LONG PASCAL  FROM &quot;GetDesktopWindow&quot; LIB &quot;USER32&#46;DLL&quot;\n\nDLL32 FUNCTION GetForeWin&#40; &#41;;\n   AS LONG PASCAL; \n   FROM &quot;GetForegroundWindow&quot; LIB &quot;USER32&#46;DLL&quot;\n[/code:1g9nrjky]','',0,'AIA=','1g9nrjky',1,0,'',397,0,0),(26702,5980,6,785,0,'190.64.198.138',1171550488,1,0,1,1,1,0,'','Set Relation','Amigos:\n\nTengo 4  DBFs, \nDBF 1 - tiene un campo de 12  caracteres -no se repite-\nque coincide con las otras 3 DBF que si tienen mas de un registro\ncon el mismo numero -en caracteres-.\n\nComo las relaciono y como lanzo el reporte con Report de FWH para\nque imprima todos los registros que concidan con la DBF 1.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','31rbdhog',1,0,'',785,0,0),(26703,5981,3,308,0,'84.148.59.56',1171552053,1,0,1,1,1,0,'','tMail() and RichText (RTF)','Hello Fivewinners,\n\nit is possible to send an eMail with tMail() in RichFormat (RTF from TRichEdit() )\n\nRTF-Text as body-Text\n\nAny ideas ?\n\nRegards, Norbert','',0,'AIA=','39kt8zw4',1,0,'',308,0,0),(26704,5848,3,51,0,'80.122.88.242',1171552628,1,0,1,1,1,0,'','','Hello Ollie,\n\ndon’t be a dreamer. There is no other FW report than EasyReport for production use available. \n\nAre you using ER with FW  or FWH. The blank screen is not a problem of ER it is printer.obj from FW changed in FWH.\nFW prints all the previews with the same name. So if your report crashes the previewfile is locked and the next preview cannot be created.\n\nVRD the IDE sometimes is not that stable. But I never had a problem during the printing with the  applications.\nI think you try to print areas not defined in the reports. \nBut there is also a tool: Fileedit.exe which helps a lot\nHave a look in your vrd-files that there are no double used IDs. If you use clean vrd-files all works as suspected.\nRegards\nOtto','',0,'AIA=','si4p840l',1,0,'',51,0,0),(26705,5980,6,103,0,'200.241.81.140',1171553220,1,0,1,1,1,1,'','','Ruben,\n\n     Una idea seria que puedas crear una función y generar un dbf temporario, donde vas a poner todos los registros resultantes de tu busqueda. Así podrias solamente usar este dbf temporario en tu reporte.\n\nEs una idea, espero te sirva.\n\nsaludos,','',0,'AIA=','14bf9w6h',1,0,'',103,0,0),(26706,5852,6,43,0,'189.128.17.86',1171553525,1,0,1,1,1,0,'','','Hola A&amp;C (la verdad...no se como te llamas)... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNo lo he resuelto... aun...!! lo que hice es solo poner una toolbar y asi no hay problema.\n\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','6j2xhm5g',1,0,'',43,0,0),(26707,5978,3,397,0,'201.13.89.24',1171554336,1,0,1,0,1,1,'','','Patrick\n\nI made this simple modification in the TGET Class for me:\n\n[code:3fs292c6]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet\n      &#46;&#46;&#46;\n      case nKey == VK_TAB &#46;or&#46; nKey == VK_RETURN\n           if &#58;&#58;bChange != nil &#46;and&#46; &#40; &#58;&#58;oGet&#58;Changed &#46;or&#46; &#58;&#58;oGet&#58;UnTransform&#40;&#41; != &#58;&#58;oGet&#58;Original &#41;\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              //if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; lAccept // isolated\n                 &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n              //endif // isolated\n           else\n              &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n           endif\n[/code:3fs292c6]\n\nWorks for me, but in the library de problem continue.','',0,'AIA=','3fs292c6',1,0,'',397,0,0),(26708,5980,6,785,0,'190.64.198.138',1171555014,1,0,1,1,1,0,'','','Kleyber:\n\nMuchas gracias por tu sugerencia.\nEn realidad estaba con la intecion de probar\nson set relation pero no se como en realidad.\n\nPruebo tu consejo.\n\nGracias.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','1w5etz2f',1,0,'',785,0,0),(26709,5970,6,397,0,'201.13.89.24',1171555071,1,0,1,0,1,1,'','','Klyber\n\n[quote:1j3ol01z]Muito interessante tua função. [/quote:1j3ol01z]\n\nEsta funcion és de dominio publico pero nos és de mi autoria. No se quem creditar-la. No quiero ser injusto.\n\n[quote:1j3ol01z]O que te pergunto é como se poderia fazer para que todos os controles das janelas (dialogs, gets, says, combos, etc.) tenham seus tamanhos redimensionados por causa da nova resolução, especialmente quando se usa RESOURCES.[/quote:1j3ol01z]\n\nExiste una .LIB llamada EasyDialog. Mira lo [url=http&#58;//www&#46;reportdesigner&#46;info/downloads/EasyDialog&#46;exe:1j3ol01z]demo[/url:1j3ol01z]\n\nArmando\n\n[quote:1j3ol01z]voy a analizar tu código, si me quedo atorado pido tu ayuda.[/quote:1j3ol01z]\n\nEstou disponible, pero no estoi en casa, solo MSN <!-- e --><a href=\"mailto:fivolution@hotmail.com\">fivolution@hotmail.com</a><!-- e -->.','',0,'kA==','1j3ol01z',1,0,'',397,0,0),(26710,5978,3,86,0,'213.119.103.68',1171555803,1,0,1,1,1,1,'','','Patrick,\n\nI am migrating my FW16-application to xHarbour and I just noticed today the same problem. It also happens when using the VALID clause.\n\nRochinha, thanks a lot for your help. I added the changed TGET.PRG to my PRG-files and it\'s working fine now.\n\nMichel','',0,'kA==','nxrmtcs6',1,0,'',86,0,0),(26711,5938,3,86,0,'213.119.103.68',1171555894,1,0,1,1,1,1,'','','Hello guys,\n\nThank you all for your help.\n\nMy problem is solved now.\n\nMichel','',0,'kA==','3mcf7aij',1,0,'',86,0,0),(26712,5980,6,138,0,'189.141.72.59',1171555946,1,0,1,1,1,1,'','','Ya estamos matando pulgas a cañonazos otra vez !!!!! \n\nEs mucho mas rapido utilizar una relacion que crear un archivo temporal.\n\n1) Se abren primero las bases de datos hijas, la condicion es que esten indexadas sobre el campo sobre el cual se establece la relacion:\n\nUSE hija1 \nSET INDEX TO....\nUSE hija2\nSET INDEX TO\nUSE hija3 \nSET INDEX TO...\n\n2) Se abre la base de datos padre y se relaciona sobre las hijas indicando claramente el \"alias\" dela hija y el campo comun en la padre, en forma de bloque de codigo y como cadena de caracteres, la base de datos padre puede estar indexada sobre cualquier criterio, no necesariamente el campo que establece la relacin:\n\nUSE padre\nSET INDEX TO\n\npadre-&gt;(DBSETRELATION(hija1,{|| campo_comun},\"campo_comun\"))\npadre-&gt;(DBSETRELATION(hija2,{|| campo_comun},\"campo_comun\"))\npadre-&gt;(DBSETRELATION(hija3,{|| campo_comun},\"campo_comun\"))\n\nDBSETRELATION (&lt;alias de la hija&gt;,;\n                          &lt;code block con el nombre campo comun PADRE&gt;,;\n                          &lt;string con el campo comun en el PADRE).\n\n3) Para usarla en un reporte, se hace referencia al ALIAS de la hija, indicando el campo de la hija que se quiere imprimir\n\nREPORT oReport......\n\nCOLUMN DATA padre-&gt;campo....\nCOLUMN DATA hija1-&gt;campo\nCOLUMN DATA hija2-&gt;campo\nCOLUMN DATA hija3-&gt;campo\n.......\n\nY listo, no es necesario crear ninguna base de datos temporal ni crear funciones yq evayan y busquen los datos.','',0,'kA==','3zfwn7eb',1,0,'',138,0,0),(26713,5982,3,86,0,'213.119.103.68',1171556147,1,0,1,1,1,1,'','Layout of resources','Hello,\n\nI am migrating my applications from FW16-bit to xHarbour.\n\nAnd like often is told : it is quite an easy job.\n\nBut I still have one problem.\n\nIn my FW16-bit application, I builded my dialog boxes by using Resource Workshop. The font used was \"MS Sans Serif\".\n\nAfter having migrated to xHarbour, I noticed that this font is nog used. And the dialogboxes are smaller.\n\nI hope somebody has an solution to make it possible to keep my FW16-bit layout. If not I need to restyle all my dialog boxes. Not that interresting knowing that I have moren than 500 (yes, you read this well) different dialog boxes.\n\nThank you very much in advance for any help.\n\nMichel','',0,'kA==','32bu2u6a',1,0,'',86,0,0),(26714,5980,6,103,0,'200.241.81.140',1171556181,1,0,1,1,1,1,'','','Maestro Rene,\n\n     Como dije en mi primer post, fue solo una idea y fue la que se me ocurrió de imediato. Por supuesto tu idea es mejor y mas rapida.\n\nSaludos,','',0,'kA==','30fgbion',1,0,'',103,0,0),(26715,5982,3,103,0,'200.241.81.140',1171556600,1,0,1,1,1,1,'','','Hi Michel,\n\n     You can put in all your ACTIVATE DIALOG the option RESIZE16.\n\nI hope this helps.\n\nRegards,','',0,'kA==','2hbwsh1v',1,0,'',103,0,0),(26716,5969,6,138,0,'189.141.72.59',1171556620,1,0,1,1,1,1,'','','Mirate esto:\n\n[url:2rxvwfm1]http&#58;//www&#46;google&#46;com/ads&#46;htm[/url:2rxvwfm1]\n\nMas info:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">http://www.google.d2g.com/ads/demos/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/docs/\">http://www.google.d2g.com/ads/docs/</a><!-- m -->','',0,'EA==','2rxvwfm1',1,0,'',138,0,0),(26717,5980,6,397,0,'201.13.89.24',1171557212,1,0,1,0,1,1,'','','Rubens\n\nCon uso de CDX e la funcion ORDSCOPE() és mas facil:\n\n[code:1z7ebrea]\nUSE arquivo\nINDEX ON campo TAG apelido TO indice\n[/code:1z7ebrea]\n\n[code:1z7ebrea]\nUSE contas\nINDEX ON DataReceber TAG AReceber TO contas\nINDEX ON DataAPagar   TAG APagar TO contas\n&#46;&#46;&#46;\nM-&gt;DataInicio &#58;= date&#40;&#41;\nM-&gt;DataFinal  &#58;= date&#40;&#41;+60\nOrdSetFocus&#40; 1 &#41; // Muda foco para AReceber\nOrdScope&#40; M-&gt;DataInicio, 0 &#41; // Marca inicio de um conjunto\nOrdScope&#40; M-&gt;DataFinal, 1 &#41; // Marca Final de um conjunto\nbrowse&#40;&#41;\n[/code:1z7ebrea]\n\nMas rapido que indices condicionales e arquivo temporales.\n\nO use este codigo:\n\n[code:1z7ebrea]\n#include &quot;common&#46;ch&quot; \n#include &quot;inkey&#46;ch&quot; \n#include &quot;fivewin&#46;ch&quot; \n\n/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** */ \n#include &quot;selector&#46;ch&quot; \n\n/* \nstatic clientes &#58;= &#123;&#125;, nRegiao \nfunction main \n   USE CLIENTES NEW \n   USE FORNEC NEW \n   @ clientes SELECT clientes-&gt;nome, clientes-&gt;endereco, clientes-&gt;bairro, clientes-&gt;estado ; \n              FROM clientes ; \n              FOR clientes-&gt;estado=\'SP\' ; \n              TO tempo1 \n              BROWSE&#40;&#41; \n   @ clientes SELECT clientes-&gt;nome, clientes-&gt;endereco, clientes-&gt;bairro, clientes-&gt;estado ; \n              FROM clientes ; \n              FOR clientes-&gt;estado=\'CE\' ; \n              TO tempo2 \n              BROWSE&#40;&#41; \n   @ clientes SELECT clientes-&gt;regiao ; \n              FROM clientes ; //              INDEX ON regiao+dtoc&#40;datacad&#41; \n              TO tempo3 ; \n              SUMMARY nRegiao \n              BROWSE&#40;&#41; \n   CLOSE DATA \n   return \n   */ \n\n/* **** **** **** **** **** **** **** **** **** **** **** **** **** **** */ \nProcedure SELECTOR&#40;Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, ; \n   Arg9, Arg10, Arg11, Arg12&#41; \n\n   Local Local1, Local2, Local3, Local4, Local5, Local6, Local7, ; \n      Local8, Local9, Local10, Local11, Local12, Local13, Local14, ; \n      Local15, Local16, Local17, Local18, Local19, Local20, Local21, ; \n      Local22, Local23 \n   Local1&#58;= Len&#40;Arg1&#41; \n   Local6&#58;= &#123;&#125; \n   Local7&#58;= ISARRAY&#40;Arg3&#41; \n   Local14&#58;= &#123;&#125; \n   Local15&#58;= &#46;F&#46; \n   Local17&#58;= &quot;&quot; \n   Local19&#58;= !&#40;ISNIL&#40;Arg10&#41;&#41; \n   If recco&#40;&#41;=0 \n      msgrun&#40;\'Arquivo vazio ou area sem uso\',\'Selector Error\'&#41; \n      //return \n   EndIf \n   If &#40;ISNIL&#40;Arg2&#41;&#41; \n      Local10&#58;= Select&#40;&#41; \n   Else \n      If &#40;ISNUMBER&#40;Arg2&#41;&#41; \n         Local10&#58;= Arg2 \n      ElseIf &#40;ISCHARACTER&#40;Arg2&#41;&#41; \n         Local10&#58;= Select&#40;Arg2&#41; \n      EndIf \n      Select &#40;Local10&#41; \n   EndIf \n   If &#40;Local7&#41; \n      Local11&#58;= Select&#40;Arg3&#91;1&#93;&#41; \n   EndIf \n   If &#40;ISNIL&#40;Arg7&#41;&#41; \n      Arg7&#58;= &quot;TEMP&#46;DBF&quot; \n      Default Arg8 To &quot;temp&quot; \n   ElseIf &#40;ISNIL&#40;Arg8&#41;&#41; \n      Arg8&#58;= SubStr&#40;Arg8&#58;= SubStr&#40;Arg7, rat&#40;&quot;\\&quot;, Arg7&#41; + 1&#41;, 1, ; \n         At&#40;&quot;&#46;&quot;, Arg8 + &quot;&#46;&quot;&#41; - 1&#41; \n   EndIf \n   Default Local16 To IIf&#40;&#40;Local8&#58;= rat&#40;&quot;&#46;&quot;, Arg7&#41;&#41; &gt; rat&#40;&quot;\\&quot;, ; \n      Arg7&#41;, SubStr&#40;Arg7, 1, Local8 - 1&#41;, Arg7&#41; + &quot;&#46;NTX&quot; \n   Local23&#58;= RecNo&#40;&#41; \n   Goto LastRec&#40;&#41; + 1 \n   If &#40;Local7&#41; \n      &#40;Local11&#41;-&gt;&#40;dbGoto&#40;LastRec&#40;&#41; + 1&#41;&#41; \n   EndIf \n   For Local9&#58;= 1 To Local1 \n      Local2&#58;= eval&#40;Arg1&#91;Local9&#93;&#91;1&#93;&#41; \n      Local4&#58;= ValType&#40;Local2&#41; \n      Local3&#58;= Transform&#40;Local2, &quot;&quot;&#41; \n      Local5&#58;= Len&#40;Local3&#41; \n      AAdd&#40;Local6, &#123;IIf&#40;&#40;Local8&#58;= At&#40;&quot;-&gt;&quot;, Arg1&#91;Local9&#93;&#91;2&#93;&#41;&#41; == 0, ; \n         Arg1&#91;Local9&#93;&#91;2&#93;, SubStr&#40;Arg1&#91;Local9&#93;&#91;2&#93;, Local8 + 2&#41;&#41;, ; \n         Local4, IIf&#40;Arg1&#91;Local9&#93;&#91;3&#93; != Nil, Arg1&#91;Local9&#93;&#91;3&#93;, ; \n         IIf&#40;Local4 == &quot;D&quot;, 8, Local5&#41;&#41;, IIf&#40;Arg1&#91;Local9&#93;&#91;4&#93; != Nil, ; \n         Arg1&#91;Local9&#93;&#91;4&#93;, IIf&#40;Local4 == &quot;N&quot; &#46;AND&#46; &#40;Local8&#58;= At&#40;&quot;&#46;&quot;, ; \n         Local3&#41;&#41; &gt; 0, Local5 - Local8, 0&#41;&#41;&#125;&#41; \n      If &#40;Arg1&#91;Local9&#93;&#91;5&#93; == &quot;G&quot;&#41; \n         If &#40;!Local15&#41; \n            Local15&#58;= &#46;T&#46; \n         Else \n            Local17&#58;= Local17 + &quot;+&quot; \n         EndIf \n         Do Case \n         Case Local4 == &quot;C&quot; \n            Local17&#58;= Local17 + Local6&#91;Local9&#93;&#91;1&#93; \n         Case Local4 == &quot;N&quot; \n            Local17&#58;= Local17 + &#40;&quot;Str&#40;&quot; + Local6&#91;Local9&#93;&#91;1&#93; + &quot;&#41;&quot;&#41; \n         Case Local4 == &quot;D&quot; \n            Local17&#58;= Local17 + &#40;&quot;DToS&#40;&quot; + Local6&#91;Local9&#93;&#91;1&#93; + &quot;&#41;&quot;&#41; \n         Case Local4 == &quot;L&quot; \n            Local17&#58;= Local17 + &#40;&quot;Iif&#40;&quot; + Local6&#91;Local9&#93;&#91;1&#93; + ; \n               &#91;,&quot;1&quot;,&quot;0&quot;&#41;&#93;&#41; \n         EndCase \n         AAdd&#40;Local14, Arg1&#91;Local9&#93;&#91;1&#93;&#41; \n      ElseIf &#40;Arg1&#91;Local9&#93;&#91;6&#93; &#46;AND&#46; Local19 &#46;AND&#46; !Arg9&#41; \n         AAdd&#40;Arg10, 0&#41; \n      EndIf \n   Next \n   Goto Local23 \n   If &#40;Arg9&#41; \n      Local12&#58;= Select&#40;Arg8&#41; \n   Else \n      dbcreate&#40;Arg7, Local6&#41; \n      dbUseArea&#40;&#46;T&#46;, Nil, Arg7, Arg8, &#46;F&#46;&#41; \n      Local12&#58;= Select&#40;&#41; \n      If &#40;Local15&#41; \n         dbCreateIndex&#40;Local16, Local17, &amp;&#40;&quot;&#123;||&quot; + Local17 + &quot;&#125;&quot;&#41;&#41; \n      EndIf \n      Select &#40;Local10&#41; \n   EndIf \n   If &#40;!Arg6&#41; \n      Goto Top \n   EndIf \n   If &#40;Local7&#41; \n      Do While &#40;!EOF&#40;&#41; &#46;AND&#46; !&#40;Local11&#41;-&gt;&#40;dbSeek&#40;Local13&#58;= ; \n            &#40;Local10&#41;-&gt;&#40;eval&#40;Arg3&#91;2&#93;&#41;&#41;, &#46;F&#46;&#41;&#41;&#41; \n         dbSkip&#40;&#41; \n      EndDo \n   EndIf \n   Do While &#40;!EOF&#40;&#41; &#46;AND&#46; &#40;ISNIL&#40;Arg5&#41; &#46;OR&#46; eval&#40;Arg5&#41;&#41;&#41; \n      If &#40;ISBLOCK&#40;Arg11&#41;&#41; \n         eval&#40;Arg11&#41; \n      EndIf \n      If &#40;ISNIL&#40;Arg4&#41; &#46;OR&#46; eval&#40;Arg4&#41;&#41; \n         Local18&#58;= &#46;F&#46; \n         If &#40;&#40;Local21&#58;= &quot;&quot;, aeval&#40;Local14, &#123; |_1| Local21&#58;= Local21 ; \n               + tostring&#40;eval&#40;_1&#41;&#41; &#125;&#41;, !Local15 &#46;OR&#46; ; \n               !&#40;Local12&#41;-&gt;&#40;dbSeek&#40;Local21, &#46;F&#46;&#41;&#41;&#41;&#41; \n            &#40;Local12&#41;-&gt;&#40;dbAppend&#40;&#41;&#41; \n            Local18&#58;= &#46;T&#46; \n         EndIf \n         Local20&#58;= 0 \n         For Local9&#58;= 1 To Local1 \n            If &#40;Arg1&#91;Local9&#93;&#91;6&#93;&#41; \n               Local20++ \n            EndIf \n            If &#40;!Local15 &#46;OR&#46; Local18 &#46;OR&#46; Arg1&#91;Local9&#93;&#91;5&#93; $ &quot;TA&quot;&#41; \n               Local2&#58;= eval&#40;Arg1&#91;Local9&#93;&#91;1&#93;&#41; \n               If &#40;Arg1&#91;Local9&#93;&#91;5&#93; == &quot;T&quot;&#41; \n                  &#40;Local12&#41;-&gt;&#40;fieldput&#40;Local9, fieldget&#40;Local9&#41; + ; \n                     Local2&#41;&#41; \n               ElseIf &#40;Arg1&#91;Local9&#93;&#91;5&#93; == &quot;A&quot; &#46;AND&#46; !Local18&#41; \n                  &#40;Local12&#41;-&gt;&#40;fieldput&#40;Local9, &#40;fieldget&#40;Local9&#41; + ; \n                     Local2&#41; / 2&#41;&#41; \n               Else \n                  &#40;Local12&#41;-&gt;&#40;fieldput&#40;Local9, Local2&#41;&#41; \n               EndIf \n               If &#40;Arg1&#91;Local9&#93;&#91;6&#93; &#46;AND&#46; Local19&#41; \n                  Arg10&#91;Local20&#93;&#58;= Arg10&#91;Local20&#93; + Local2 \n               EndIf \n            EndIf \n         Next \n      EndIf \n      //If &#40;&#40;&#40;Local11&#41;-&gt;&#40;dbSkip&#40;&#41;&#41;, !Local7 &#46;OR&#46; &#40;Local11&#41;-&gt;&#40;EOF&#40;&#41; &#46;OR&#46; !&#40;Local13 == eval&#40;Arg3&#91;3&#93;&#41;&#41;&#41;&#41;&#41; \n         dbSkip&#40;&#41; \n         If &#40;Local7&#41; \n            Do While &#40;!EOF&#40;&#41; &#46;AND&#46; !&#40;Local11&#41;-&gt;&#40;dbSeek&#40;Local13&#58;= ; \n                  &#40;Local10&#41;-&gt;&#40;eval&#40;Arg3&#91;2&#93;&#41;&#41;, &#46;F&#46;&#41;&#41;&#41; \n               dbSkip&#40;&#41; \n            EndDo \n         EndIf \n      //EndIf \n   EndDo \n   Select &#40;Local12&#41; \n   Goto Top \n   Return \n\nStatic Function TOSTRING&#40;Arg1&#41; \n   Local Local1 \n   Local1&#58;= ValType&#40;Arg1&#41; \n   If &#40;Local1 == &quot;N&quot;&#41; \n      Arg1&#58;= Str&#40;Arg1&#41; \n   ElseIf &#40;Local1 == &quot;D&quot;&#41; \n      Arg1&#58;= DToS&#40;Arg1&#41; \n   ElseIf &#40;Local1 == &quot;L&quot;&#41; \n      Arg1&#58;= IIf&#40;Arg1, &quot;1&quot;, &quot;0&quot;&#41; \n   EndIf \n   Return Arg1\n[/code:1z7ebrea] \n\nSelector.CH\n[code:1z7ebrea]\n#ifndef _SELECTOR_CH \n#define _SELECTOR_CH \n\n/*----------------------------------------------------------------------------// \n!short&#58; SELECTOR  */ \n\n#xcommand REDEFINE SELECTOR &#91; &lt;oSelec&gt; VAR &#93; &lt;nVar&gt; ; \n               &#91; ID &lt;nId&gt; &#93; ; \n               &#91; ORIGIN ANGLE &lt;nAngle1&gt; &#93; ; \n               &#91; LAST ANGLE &lt;nAngle2&gt; &#93; ; \n               &#91; RANGE &lt;nMin&gt;, &lt;nMax&gt; &#93; ; \n               &#91; MARKS &lt;nMarks&gt; &#93; ; \n               &#91; &lt;lExact&#58; EXACT &gt; &#93; ; \n               &#91; &lt;dlg&#58; OF,WINDOW,DIALOG &gt; &lt;oWnd&gt; &#93; ; \n               &#91; ON CHANGE &lt;uChange&gt; &#93; ; \n               &#91; ON THUMBPOS &lt;uPos&gt; &#93; ; \n               &#91; &lt;color&#58; COLOR,COLORS &gt; &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt; &#91;,&lt;nClrBtn&gt; &#93; &#93; &#93; ; \n               &#91; MESSAGE &lt;cMsg&gt; &#93; ; \n               &#91; &lt;update&#58; UPDATE &gt;  &#93; ; \n      =&gt; ; \n          &#91; &lt;oSelec&gt; &#58;= &#93; TSelector&#40;&#41;&#58;Redefine&#40; &lt;nId&gt;, bSETGET&#40;&lt;nVar&gt;&#41;, ; \n             &#91;&lt;nAngle1&gt;&#93;, &#91;&lt;nAngle2&gt;&#93;, ; \n             &lt;nMin&gt;, &lt;nMax&gt;, &lt;nMarks&gt;, &lt;&#46;lExact&#46;&gt;, ; \n             &#91;&lt;oWnd&gt;&#93;, &#91;\\&#123;|nVar|&lt;uChange&gt;\\&#125;&#93;, &#91;\\&#123;|nVar|&lt;uPos&gt;\\&#125;&#93;, ; \n             &lt;cMsg&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;nClrBtn&gt;, &lt;&#46;update&#46;&gt; &#41; \n\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; SELECTOR &#91; &lt;oSelec&gt; VAR &#93; &lt;nVar&gt; ; \n               &#91; ORIGIN ANGLE &lt;nAngle1&gt; &#93; ; \n               &#91; LAST ANGLE &lt;nAngle2&gt; &#93; ; \n               &#91; RANGE &lt;nMin&gt;, &lt;nMax&gt; &#93; ; \n               &#91; MARKS &lt;nMarks&gt; &#93; ; \n               &#91; &lt;lExact&#58; EXACT &gt; &#93; ; \n               &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ; \n               &#91; &lt;lPixel&#58; PIXEL &gt; &#93; ; \n               &#91; &lt;dlg&#58; OF,WINDOW,DIALOG &gt; &lt;oWnd&gt; &#93; ; \n               &#91; ON CHANGE &lt;uChange&gt; &#93; ; \n               &#91; ON THUMBPOS &lt;uPos&gt; &#93; ; \n               &#91; &lt;color&#58; COLOR,COLORS &gt; &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt; &#91;,&lt;nClrBtn&gt; &#93; &#93; &#93; ; \n               &#91; MESSAGE &lt;cMsg&gt; &#93; ; \n               &#91; &lt;design&#58; DESIGN &gt;  &#93; ; \n               &#91; &lt;update&#58; UPDATE &gt;  &#93; ; \n      =&gt; ; \n          &#91; &lt;oSelec&gt; &#58;= &#93; TSelector&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, bSETGET&#40;&lt;nVar&gt;&#41;, ; \n             &#91;&lt;nAngle1&gt;&#93;, &#91;&lt;nAngle2&gt;&#93;, ; \n             &lt;nMin&gt;, &lt;nMax&gt;, &lt;nMarks&gt;, &lt;&#46;lExact&#46;&gt;, ; \n             &#91;&lt;oWnd&gt;&#93;, &#91;\\&#123;|nVar|&lt;uChange&gt;\\&#125;&#93;, &#91;\\&#123;|nVar|&lt;uPos&gt;\\&#125;&#93;, ; \n             &lt;nWidth&gt;, &lt;nHeight&gt;, &lt;&#46;lPixel&#46;&gt;, &lt;cMsg&gt;, ; \n             &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;nClrBtn&gt;, &lt;&#46;design&#46;&gt;, &lt;&#46;update&#46;&gt; &#41; \n#endif \n[/code:1z7ebrea]','',0,'AIA=','1z7ebrea',1,0,'',397,0,0),(26718,5981,3,303,0,'72.199.41.171',1171558577,1,0,1,1,1,0,'','','Norbert,\n\n&gt;RTF-Text as body-Text \n\nEmail has to be in HTML, so maybe you can find some way to do a conversion on-the-fly. One way might be using Word and OLE.\n\nJames','',0,'AIA=','ywqo5jgs',1,0,'',303,0,0),(26719,5980,6,891,0,'148.243.37.162',1171559014,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:3ny3hmce]Ya estamos matando pulgas a cañonazos otra vez !!!!! \n\nEs mucho mas rapido utilizar una relacion que crear un archivo temporal.\n\n1) Se abren primero las bases de datos hijas, la condicion es que esten indexadas sobre el campo sobre el cual se establece la relacion:\n\nUSE hija1 \nSET INDEX TO....\nUSE hija2\nSET INDEX TO\nUSE hija3 \nSET INDEX TO...\n\n2) Se abre la base de datos padre y se relaciona sobre las hijas indicando claramente el \"alias\" dela hija y el campo comun en la padre, en forma de bloque de codigo y como cadena de caracteres, la base de datos padre puede estar indexada sobre cualquier criterio, no necesariamente el campo que establece la relacin:\n\nUSE padre\nSET INDEX TO\n\npadre-&gt;(DBSETRELATION(hija1,{|| campo_comun},\"campo_comun\"))\npadre-&gt;(DBSETRELATION(hija2,{|| campo_comun},\"campo_comun\"))\npadre-&gt;(DBSETRELATION(hija3,{|| campo_comun},\"campo_comun\"))\n\nDBSETRELATION (&lt;alias de la hija&gt;,;\n                          &lt;code block con el nombre campo comun PADRE&gt;,;\n                          &lt;string con el campo comun en el PADRE).\n\n3) Para usarla en un reporte, se hace referencia al ALIAS de la hija, indicando el campo de la hija que se quiere imprimir\n\nREPORT oReport......\n\nCOLUMN DATA padre-&gt;campo....\nCOLUMN DATA hija1-&gt;campo\nCOLUMN DATA hija2-&gt;campo\nCOLUMN DATA hija3-&gt;campo\n.......\n\nY listo, no es necesario crear ninguna base de datos temporal ni crear funciones yq evayan y busquen los datos.[/quote:3ny3hmce]\n\nHola Rene buenos dias como esta maestro, en el caso mio, creo que esta más o menos complicado, pero me gustaria alguna sugerencia tuya o mas fácil o metodo que se pueda decir, te explico yo tengo un programa de contabilidad hecho a la medida de la empresa con su captura de cuenta y referencia de facturas, bueno mes a mes se hace cierre del ejercicio ejemplo enero 2007 con la base de datos creada desde inicio MOVT0107.DBF y al mismo momento se va creando nueva base de datos siguiente MOVT0207.DBF y asi sucesivamente como podras imaginar, tengo desde el año 2002 bases de datos diferentes creados por el cierre del mes contable desde MOVT0902.DBF hasta la MOVT0207.DBF del año en curso, bueno yo tengo que crear archivo temporal al pedir reportes de cuentas auxiliar inicial por ejemplo desde la cuenta: 2106-0002-1601 hasta la cuenta 2106-0002-9999 y con mes y año inicial que es 0902 hasta 0207, he ahi ese detalle que yo creo un archivo temporal para el barrido de todas las cuentas y bases de datos a imprimir o consultar , ahora usted con su experiencia hay otro metodo o forma de hacer esa busqueda mas rapida ? nunca he intentado hacer con set relacion, porque son mas de 54 bases de datos diferentes, espero sugerencias y conocimientos a todos los amigos del foro <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nSaludos \nAdriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'gA==','3ny3hmce',1,0,'',891,0,0),(26720,5983,6,891,0,'148.243.37.162',1171559102,1,0,1,1,1,0,'','Como dice Rene matando pulgas a cañonazos...va mi pregunta','Hola Rene buenos dias como esta maestro, en el caso mio, creo que esta más o menos complicado, pero me gustaria alguna sugerencia tuya o mas fácil o metodo que se pueda decir, te explico yo tengo un programa de contabilidad hecho a la medida de la empresa con su captura de cuenta y referencia de facturas, bueno mes a mes se hace cierre del ejercicio ejemplo enero 2007 con la base de datos creada desde inicio MOVT0107.DBF y al mismo momento se va creando nueva base de datos siguiente MOVT0207.DBF y asi sucesivamente como podras imaginar, tengo desde el año 2002 bases de datos diferentes creados por el cierre del mes contable desde MOVT0902.DBF hasta la MOVT0207.DBF del año en curso, bueno yo tengo que crear archivo temporal al pedir reportes de cuentas auxiliar inicial por ejemplo desde la cuenta: 2106-0002-1601 hasta la cuenta 2106-0002-9999 y con mes y año inicial que es 0902 hasta 0207, he ahi ese detalle que yo creo un archivo temporal para el barrido de todas las cuentas y bases de datos a imprimir o consultar , ahora usted con su experiencia hay otro metodo o forma de hacer esa busqueda mas rapida ? nunca he intentado hacer con set relacion, porque son mas de 54 bases de datos diferentes, espero sugerencias y conocimientos a todos los amigos del foro <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nSaludos \nAdriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'gA==','2d8czbx4',1,0,'',891,0,0),(26721,5978,3,303,0,'72.199.41.171',1171559702,1,0,1,1,1,0,'','','Keep in mind that the Windows standard is to move from field to field with the Tab key and the Enter key triggers the default pushbutton which is usually the OK button. This allows users to enter data and close the dialog without using the mouse or tabbing through all the fields (as they had to do in DOS apps).\n\nI know when converting DOS apps your users will be used to using the Enter key for field movement, and they WILL complain if you take this away. But most of the other applications they work with do not use the Enter key for movement so you will really being doing them a favor by making them get used to using the Tab key. In my experience you won\'t hear any more complaints after a week or two.\n\nJames','',0,'gA==','2nx3ioao',1,0,'',303,0,0),(26722,5982,3,86,0,'213.119.103.68',1171560337,1,0,1,1,1,1,'','','Hello Kleyber,\n\nThank you very much for your help.\n\nYour answer was my solution.\n\nThanks.\n\nMichel','',0,'gA==','cy3py9cu',1,0,'',86,0,0),(26723,5969,6,838,0,'80.59.225.15',1171560585,1,0,1,1,1,0,'','','Gracias Rene\n\nCon ésto ya tengo tarea para un tiempo..\n\nSaludos\n\nJose Luis','',0,'gA==','4wzt8267',1,0,'',838,0,0),(26724,5977,7,2,0,'87.218.146.140',1171561051,1,0,1,1,1,1,'','','La forma de hacerlo en Pocket PC es:\n\n#define SYS_COLOR_INDEX_FLAG  0x40000000\n#define COLOR_WINDOW            nOr( 5, SYS_COLOR_INDEX_FLAG )\n#define COLOR_WINDOWTEXT     nOr( 8, SYS_COLOR_INDEX_FLAG )\n\nGetSysColor( COLOR_WINDOW )\n\nLos posibles valores de colores del sistema son:\n\n#define COLOR_SCROLLBAR           nOr( 0, SYS_COLOR_INDEX_FLAG)\n#define COLOR_BACKGROUND          nOr( 1, SYS_COLOR_INDEX_FLAG)\n#define COLOR_ACTIVECAPTION       nOr( 2, SYS_COLOR_INDEX_FLAG)\n#define COLOR_INACTIVECAPTION     nOr( 3, SYS_COLOR_INDEX_FLAG)\n#define COLOR_MENU                nOr( 4, SYS_COLOR_INDEX_FLAG)\n#define COLOR_WINDOW              nOr( 5, SYS_COLOR_INDEX_FLAG)\n#define COLOR_WINDOWFRAME         nOr( 6, SYS_COLOR_INDEX_FLAG)\n#define COLOR_MENUTEXT            nOr( 7, SYS_COLOR_INDEX_FLAG)\n#define COLOR_WINDOWTEXT          nOr( 8, SYS_COLOR_INDEX_FLAG)\n#define COLOR_CAPTIONTEXT         nOr( 9, SYS_COLOR_INDEX_FLAG)\n#define COLOR_ACTIVEBORDER        nOr(10, SYS_COLOR_INDEX_FLAG)\n#define COLOR_INACTIVEBORDER      nOr(11, SYS_COLOR_INDEX_FLAG)\n#define COLOR_APPWORKSPACE        nOr(12, SYS_COLOR_INDEX_FLAG)\n#define COLOR_HIGHLIGHT           nOr(13, SYS_COLOR_INDEX_FLAG)\n#define COLOR_HIGHLIGHTTEXT       nOr(14, SYS_COLOR_INDEX_FLAG)\n#define COLOR_BTNFACE             nOr(15, SYS_COLOR_INDEX_FLAG)\n#define COLOR_BTNSHADOW           nOr(16, SYS_COLOR_INDEX_FLAG)\n#define COLOR_GRAYTEXT            nOr(17, SYS_COLOR_INDEX_FLAG)\n#define COLOR_BTNTEXT             nOr(18, SYS_COLOR_INDEX_FLAG)\n#define COLOR_INACTIVECAPTIONTEXT nOr(19, SYS_COLOR_INDEX_FLAG)\n#define COLOR_BTNHIGHLIGHT        nOr(20, SYS_COLOR_INDEX_FLAG)\n\n#define COLOR_3DDKSHADOW          nOr(21, SYS_COLOR_INDEX_FLAG)\n#define COLOR_3DLIGHT             nOr(22, SYS_COLOR_INDEX_FLAG)\n#define COLOR_INFOTEXT            nOr(23, SYS_COLOR_INDEX_FLAG)\n#define COLOR_INFOBK              nOr(24, SYS_COLOR_INDEX_FLAG)\n#define COLOR_STATIC              nOr(25, SYS_COLOR_INDEX_FLAG)\n#define COLOR_STATICTEXT          nOr(26, SYS_COLOR_INDEX_FLAG)\n#define COLOR_GRADIENTACTIVECAPTION   nOr(27,  SYS_COLOR_INDEX_FLAG)\n#define COLOR_GRADIENTINACTIVECAPTION nOr(28, SYS_COLOR_INDEX_FLAG)','',0,'gA==','3h4twpdj',1,0,'',2,0,0),(26725,5978,3,2,0,'87.218.146.140',1171561618,1,0,1,1,1,1,'','','This may be a more complete fix:\n[code:2v4ge161]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet \n      &#46;&#46;&#46; \n      case nKey == VK_TAB &#46;or&#46; nKey == VK_RETURN \n           if &#58;&#58;bChange != nil &#46;and&#46; &#40; &#58;&#58;oGet&#58;Changed &#46;or&#46; &#58;&#58;oGet&#58;UnTransform&#40;&#41; != &#58;&#58;oGet&#58;Original &#41; \n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41; \n              if ValType&#40; lAccept &#41; == &quot;L&quot;\n                 if lAccept\n                    &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41; \n                 endif \n              else\n                 &#58;&#58;oWnd&#58;GoNextControl&#40; &#58;&#58;hWnd &#41;\n              endif      \n           else \n              &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41; \n           endif \n[/code:2v4ge161]','',0,'AIA=','2v4ge161',1,0,'',2,0,0),(26726,5982,3,2,0,'87.218.146.140',1171562355,1,0,1,1,1,1,'','','Michel,\n\nYou may change the Class TDialog and set ::lResize16 as .T. by default, so you don\'t have to modify your source code','',0,'AIA=','zwhc0j7v',1,0,'',2,0,0),(26727,5979,6,2,0,'87.218.146.140',1171562538,1,0,1,1,1,1,'','','IsWindowEnabled( oGet:hWnd )','',0,'AIA=','1x79jy68',1,0,'',2,0,0),(26728,5848,3,53,0,'189.139.24.232',1171562658,1,0,1,1,1,1,'','','Otto:\n\nI agree.\n\nRegards','',0,'AIA=','20wgk4g3',1,0,'',53,0,0),(26729,5907,2,2,0,'87.218.146.140',1171562718,1,0,1,1,1,1,'','','Miguel,\n\nPosiblemente lPara valga .F. y por eso el VALID te bloquea\n\nComprueba como lo estás calculando','',0,'AIA=','l1plx285',1,0,'',2,0,0),(26730,5963,4,2,0,'87.218.146.140',1171563428,1,0,1,1,1,1,'','','Richard,\n\nWhat asc() values those special characters have ?','',0,'AIA=','21fd9j7y',1,0,'',2,0,0),(26731,5984,1,186,0,'66.130.50.142',1171564096,1,0,1,1,1,1,'','No Exported Method','Hi All,\n\n\nIt`s been a long time since I posted on the forum.\n\nI have a new problem that came from nowhere. All my apps where working fine until yesterday. Now I get an error on Get objects when I change from one get to another.\n\nError Objects/6 No Exp. Method TSTRUCT:_NSIZE from errorsys, line: 0\n\nAny Idea where this can come from ? <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nRegards,\n\nGilbert','',0,'AIA=','2i5gqfkm',1,0,'',186,0,0),(26732,5568,3,529,0,'200.159.199.166',1171566825,1,0,1,1,1,0,'','','when i can download the last version, the site is down....','',0,'AIA=','3g9gqabe',1,0,'',529,0,0),(26733,5963,4,3,0,'82.251.64.136',1171569431,1,0,1,1,1,1,'','','Antonio\n\nThey are standard accented french characters (like in spanish)\n\ni do not know the ascii character but i can display them it if necessary \n\nex: \"Désignation\"    The (é) is one of them.\n\nWhat is strange, is that my program writes first to an ascii file (txt) and then prints from the ascii file.\n\nThe ascii file is perfect.\n\nIf i print directly the ascii file to the printer (without fwppc), the printout is perfect !\n\nI am puzzled. No one has ever tried to print local characters (spanish, portuguese,..etc) via bluetooth ?\n\nI can do all necessary tests if needed.\n\nThanks for your help.\n\n\nRichard','',0,'AIA=','3i8xilr7',1,0,'',3,0,0),(26734,5981,3,308,0,'84.148.30.44',1171570690,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:cwsuwob3]Norbert,\n\n&gt;RTF-Text as body-Text \n\nEmail has to be in HTML, so maybe you can find some way to do a conversion on-the-fly. One way might be using Word and OLE.\n\nJames[/quote:cwsuwob3]\n\nJames,\n\nand how do I send a html-text? if I send it over DEFINE MAIL only the html-code will displayed.\n\nRegards Norbert','',0,'gA==','cwsuwob3',1,0,'',308,0,0),(26735,5974,6,492,0,'189.147.26.147',1171571597,1,0,1,1,1,1,'','','Hola Armando\n\nHace poco termine unas adaptaciones para que se puedan imprimir tanto notas de ventas, facturas y cotizaciones en una miniprinter, y el principio es el mismo, salvo, la cantidad de columnas.\n\nSi esa impresora es de matriz de puntos en modo \"normal\" no te dara mas de 40 - 44 columnas, si la pones en \"condensado\" te dara un poco mas pero no muchas, quizas 50 - 55  a lo maximo.\n\nAsi que tienes que hacer ciertos malabares para que insertes lo que desees imprimir, fuera de eso, nada del otro mundo.\n\nYo estoy usando una Epson Termica, va de perlas !!!\nTe imprime el comprobante en un parpadeo de ojos !!!\n\n\nSaludos','',0,'gA==','1cyw6gz2',1,0,'',492,0,0),(26736,5974,6,53,0,'189.139.24.232',1171572128,1,0,1,1,1,1,'','','Ray:\n\nGracias por compartir tu experiencia, tu comentario me tranquiliza.\n\nAbusando de tu tiempo, te comento que me voy a enfrentar al problema de decidir sobre que impresora imprimir, dependiendo de si se trata de una nota de venta de mostrador o una factura.\n\nDesde luego habrá dos impresoras conectadas una de ellas para los recibos o notas de venta de mostrador y la otra una laser para imprimir facturas cuando el cliente así lo solicite.\n\nA ver quien me puede dar alguna idea sobre cómo elegir la impresora \"al vuelo\".\n\nUn abrazo','',0,'gA==','2y03jpw0',1,0,'',53,0,0),(26737,5978,3,876,0,'81.164.119.188',1171572583,1,0,1,1,1,0,'','','Thank you Antonio.','',0,'gA==','100b100x',1,0,'',876,0,0),(26738,5984,1,2,0,'87.218.146.140',1171573449,1,0,1,1,1,1,'','','Gilbert,\n\nPlease post the complete calls stack for the error','',0,'gA==','25c9sb7l',1,0,'',2,0,0),(26739,5963,4,2,0,'87.218.146.140',1171573571,1,0,1,1,1,1,'','','Richard,\n\n&gt; i do not know the ascii character but i can display them it if necessary \n\nPlease place a MsgInfo() to check their asc() values, thanks','',0,'gA==','y78reb27',1,0,'',2,0,0),(26740,5907,2,812,0,'201.236.187.39',1171574107,1,0,1,1,1,0,'','','Antonio:\n\nMuchas Gracias, tenias razon, retornaba un .F.. Hice la correcion y he salvado el error.\n\nSaludos,\nMiguel\n\n[quote=&quot;Antonio Linares&quot;:xwovx2ru]Miguel,\n\nPosiblemente lPara valga .F. y por eso el VALID te bloquea\n\nComprueba como lo estás calculando[/quote:xwovx2ru]','',0,'gA==','xwovx2ru',1,0,'',812,0,0),(26741,5963,4,3,0,'82.251.64.136',1171574224,1,0,1,1,1,1,'','','Antonio\n\nfirst one is 233 \n\nDo you need them all ? <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> \n\nRichard','',0,'gA==','1g8cuu2l',1,0,'',3,0,0),(26742,5985,2,812,0,'201.236.187.39',1171574264,1,0,1,1,1,0,'','COMO PONER UN FONDO DE PANTALLA','Hola Amigos:\n\nComo puedo poner un Fondo (Logo) en la pantalla principal, puede ser un BMP.\n\nUso Clipper 5.3b, FW2.4 y Blinker 7.0.\n\nSaludos,\nMiguel','',0,'gA==','1tvlld48',1,0,'',812,0,0),(26743,5979,6,439,0,'200.125.50.13',1171574524,1,0,1,1,1,1,'','','Gracias, me anduvo muy bien','',0,'gA==','5uxs26v0',1,0,'',439,0,0),(26744,5986,6,439,0,'200.125.50.13',1171574737,1,0,1,1,1,1,'','Pasar el foco de un get a un Combobox en Dialog','Otra preguntilla.......\n\nTengo problemas en una dialog de recursos, necesito que al dar enter en un get pase el foco a un combobox que es el siguiente tabstop en la dialog, pero esto no sucede.\n\nprobé con (oCombo:SetFocus(), .t.) en la validación y tampoco, en fin no he dado con el como......\n\nAlguna sugerencia, apreciaré cualquier ayuda.\n\nGracias desde Ya.','',0,'gA==','2wkwt8mp',1,0,'',439,0,0),(26745,5963,4,2,0,'87.218.146.140',1171575273,1,0,1,1,1,1,'','','Richard,\n\nJust two more, please','',0,'gA==','2ermifws',1,0,'',2,0,0),(26746,5963,4,3,0,'82.251.64.136',1171575431,1,0,1,1,1,1,'','','232\n\n224','',0,'gA==','eyiehqad',1,0,'',3,0,0),(26747,5963,4,3,0,'82.251.64.136',1171575660,1,0,1,1,1,1,'','','231\n249\n176','',0,'gA==','2sq3jmjc',1,0,'',3,0,0),(26748,5963,4,2,0,'87.218.146.140',1171575819,1,0,1,1,1,1,'','','Richard,\n\nCharacters with ascii over 128 are printing right ? I wonder if it is a sign issue','',0,'gA==','3pm5wcs8',1,0,'',2,0,0),(26749,5986,6,53,0,'189.139.24.232',1171575832,1,0,1,1,1,1,'','','José:\n\nPregunta inocente, en los recursos haz asignando el orden en que quieres que se asigne el foco ?\n\nSaludos','',0,'gA==','vok7f36u',1,0,'',53,0,0),(26750,5963,4,3,0,'82.251.64.136',1171576074,1,0,1,1,1,1,'','','Antonio\n\nI do not have the printer here at home but at the office.\n\nI can check all ascii chars tomorrow early morning and report back.\n\nIf you need any more testing, drop me a line\n\nRegards\n\nRichard','',0,'gA==','2rvsk8n4',1,0,'',3,0,0),(26751,5986,6,439,0,'200.125.50.13',1171576343,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:2asn4yv1]José:\n\nPregunta inocente, en los recursos haz asignando el orden en que quieres que se asigne el foco ?\n\nSaludos[/quote:2asn4yv1]\n\nSi, pensé que lo había omitido cuando noté el problema, pero no, el orden está establecido de tal forma que supuestamente al dar enter en el get el siguiente en orden es el combo y ambos tienen tildado tabstop, sin embargo, no hay con que darle.','',0,'gA==','2asn4yv1',1,0,'',439,0,0),(26752,5981,3,303,0,'72.199.41.171',1171576794,1,0,1,1,1,0,'','','Norbert,\n\nWith MAPI and OE this is what I found.\n\n[quote:byizs0i7]If the attachment file is html (has a .htm or .html extension) and you do not specify any TEXT (a message) then the file will appear in the message area.[/quote:byizs0i7]\n\nI have not tried this with Outlook.\n\nJames','',0,'gA==','byizs0i7',1,0,'',303,0,0),(26753,5974,6,492,0,'189.147.26.147',1171580730,1,0,1,1,1,1,'','','Armando\n\nEse detalle que comentas, lo publico si no mal recuerdo nuestro colega Manuel V. y ahi comenta como lograr la seleccion de Impresora antes de generar la impresion.\n\nYo, en lo personal, uso un proceso de configuracion para tal operacion desde hace un buuuuueeenn rato y todo mundo contento  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\n[img:3jrgj850]http&#58;//img404&#46;imageshack&#46;us/img404/3299/prnopts1mb0&#46;jpg[/img:3jrgj850]\n\n\n[img:3jrgj850]http&#58;//img404&#46;imageshack&#46;us/img404/2678/prnopts2in4&#46;jpg[/img:3jrgj850]\n\n\nSaludos','',0,'CA==','3jrgj850',1,0,'',492,0,0),(26754,5974,6,53,0,'189.139.24.232',1171581276,1,0,1,1,1,1,'','','Ray:\n\nVoy a buscar la respuesta en el foro, aunque me parece excelente tu solución y tal vez me quede con ella.\n\nUn abrazo','',0,'CA==','3f8dnvdc',1,0,'',53,0,0),(26755,5986,6,439,0,'200.125.50.13',1171583457,1,0,1,1,1,1,'','','Bueno, ya lo solucioné, les comento que la solución consistió en algo curioso.........\n\nSimplemente [b:23ytstxl]puse en orden secuencial las líneas de codigo que declaran los objetos de la dialog coincidentemente con el orden de tabulación establecido en el recurso y listo!!!, [/b:23ytstxl]no se porqué pero funcionó.\n\nSi a alguien le ha pasado lo que a mí, pruebe hacer esto, a mí me resultó.\n\nNo entiendo porqué, pero simplemente al asegurarme de poner la declaración del get con su id inmediatamente antes de la del combobox con su id en la definición de la dialog, los tabs anduvieron perfecto.\n\nEspero que esto a alguien le sirva, y si lo lee Antonio, por favor, que me lo explique.','',0,'QA==','23ytstxl',1,0,'',439,0,0),(26756,5985,2,774,0,'200.72.102.61',1171584763,1,0,1,1,1,1,'','','Asi es una forma de hacerlo:::\n\n@0,0 BITMAP oBmp FILE \"bmp\\fondo.bmp\" OF oWnd:oWndClient();\nPIXEL NOBORDER SIZE 1034,768 \n\ndebes declarar LOCAL oBmp','',0,'QA==','biywf0m1',1,0,'',774,0,0),(26757,5987,3,86,0,'213.119.103.68',1171585759,1,0,1,1,1,1,'','TFolder in RC-files','Hello,\n\nI was told by Antonio that I needed to replace \"TFolder\" by \"SysTabControl32\" in my RC-files.\n\nI did so but what happens now ?\n\nIn one dialogbox, the folder appears OK, but it another one, the folder don\'t appear at all. All I see is a big dark gray zone.\n\nAnyone any idea what can be wrong ?\n\nThank you in advance.\n\nMichel','',0,'QA==','3eup3nvr',1,0,'',86,0,0),(26758,5985,2,812,0,'201.214.35.214',1171586564,1,0,1,1,1,0,'','','Hola Amigo:\n\nMuchas gracias por tu ayuda.\n\nSaludos,\nMiguel\n\n\n[quote=&quot;A&amp;C&quot;:27kcory8]Asi es una forma de hacerlo:::\n\n@0,0 BITMAP oBmp FILE \"bmp\\fondo.bmp\" OF oWnd:oWndClient();\nPIXEL NOBORDER SIZE 1034,768 \n\ndebes declarar LOCAL oBmp[/quote:27kcory8]','',0,'gA==','27kcory8',1,0,'',812,0,0),(26759,5988,3,98,0,'70.71.111.92',1171587026,1,0,1,1,1,1,'','Limit to the size of a .res file?','Ugly problem:\n\nWe have a big .rc file.  This file is edited with Pelles IDE and then compiled into a .res file with xrc.exe (or porc.exe).  The resulting .res file is just over 1 megabyte in size.\n\nWhen ilink32.exe (Borland 5.5.1) tries to link this file into the .exe, it just fails with the not very useful message\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Access violation.  Link terminated.\n\nIf I remove any resource from the .rc file, then it works again.\n\nHas anyone experienced something like this?\nIs this a Windows limit as to the file size of a .res file to be embedded into an  executable? \n\nI could try to split it into 2 or more .rc files, but first I\'d like to know if anyone has worked with multiple .rc files (do you create a single .res file, or several .res to be linked into the exe?)\n\nIs this a limitation of Borland\'s ilink32.exe?\n\nAll help, comments and ideas are greatly appreciated.\n\nLuis Krause','',0,'gA==','3avzpuub',1,0,'',98,0,0),(26760,5989,6,98,0,'70.71.111.92',1171587463,1,0,1,1,1,1,'','¿Límite en el tamaño de un archivo .res?','He aquí un feo problema:\n\nTenemos un archivo .rc relativamente grande que editamos con el IDE de Pelles.  Cuando es compilado como un .res con xrc.exe (o con porc.exe), el archivo resultante es de poco más de 1 mega.\n\nLuego, al ejecutar ilink32.exe (Borland 5.5.1) para enlazar este .res dentro del .exe, simplemente peta con este nada útil mensaje:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Access violation. Link terminated.\n\nSi quito un recurso del archivo .rc, todo compila bien de nuevo.\n\n¿Alguien ha experimentado algo parecido a ésto?\n¿Es esta una limitante de Windows referente al tamaño del archivo .res que puede ser agregado al .exe?\n\nPodría intentar partir el .rc en 2 o más archivos, pero primero me gustaría escuchar experiencias al respecto de cómo usar varios .rc para un ejectuable (¿se sigue usando un único .res, o hay varios .res?)\n\n¿Es este un probleme del ilink32.exe de Borland?\n\nToda ayuda, comentario y sugerencias son bienvenidas.\n\nLuis Krause','',0,'gA==','3m0rb65p',1,0,'',98,0,0),(26761,5990,3,69,0,'74.13.32.66',1171587565,1,0,1,1,1,0,'','Strange dialog problem','Hi Everybody,\n\nI have a dialog box with 4 folders ...\nIn the folders I have some checkboxes and radios.\n\nHere is the strange thing...\n\nWhen I click on a radio or a checkbox the text for the control will disappear until I click into another field.\n\nHas anyone ever seen this before?\n\nThanks,\nJeff','',0,'gA==','1v3gp4az',1,0,'',69,0,0),(26762,5987,3,69,0,'74.13.32.66',1171587712,1,0,1,1,1,0,'','','Could yo uplease supply a code sample?\n\nThanks,\nJeff','',0,'gA==','ll3yhotv',1,0,'',69,0,0),(26763,5989,6,492,0,'189.147.26.147',1171588319,1,0,1,1,1,1,'','','Master Krause\n\nYo me tope con algo asi, cuando estaba en los 16 bits y tuve que \"partir\" el RC en 2, al pasarme a los 32, segui trabajando con los 2 RC sin problema alguno.\n\nEn cuanto al limite por tamaño, no sabria decirte.\n\n\n\nSaludos','',0,'gA==','1yt74370',1,0,'',492,0,0),(26764,5991,19,2,0,'87.218.146.140',1171589936,1,0,1,1,1,1,'','Comparing computers speed','<!-- m --><a class=\"postlink\" href=\"http://www.geekpatrol.ca/2006/12/geekbench-comparison-december-2006/\">http://www.geekpatrol.ca/2006/12/geekbe ... mber-2006/</a><!-- m -->\n\nVery interesting reading before buying a computer <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3twkojbi',1,0,'',2,0,0),(26765,5980,6,785,0,'190.64.193.174',1171594982,1,0,1,1,1,0,'','','Gracias a todos:\n\nProbare las soluciones y despues les cuento el resultado.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','18jwyca5',1,0,'',785,0,0),(26766,5992,6,100,0,'201.16.38.10',1171602106,1,0,1,1,1,1,'','Print SERVER','Ola amigos\n\nMe deparei com um problema junto a TDOSPRN, configurei um PRINT SERVER da TRENDnet o TE100-PS3plus, no qual via Windows funciona perfeito a impressão via TPRINTER, TREPORT, mais via TDOSPRN não vai a impressão, como se o mesmo não reconhecesse a porta crida para a impressora.\n\nAlguem já passou por isso ??\n\nPodem me ajudar ??','',0,'gA==','b5p1q5e6',1,0,'',100,0,0),(26767,5993,6,78,0,'190.40.248.2',1171603429,1,0,1,1,1,0,'','Activar WebCam para filmar','Hola Amigos,, \nEs posible activar una WebCam para filmar y grabar la filmacion en un archivo??\n\nSalu2','',0,'gA==','jny8q5cr',1,0,'',78,0,0),(26768,5988,3,3,0,'82.120.30.81',1171611374,1,0,1,1,1,1,'','Re: Limit to the size of a .res file?','Luis\n\nYes it is unfortunately a memory limit from Borland\n\nI have been through this\n\nSplit your rc files into several ones. This is not a problem.\n\nHth\n\nRichard','',0,'gA==','22bezu7z',1,0,'',3,0,0),(26769,5989,6,53,0,'189.139.94.19',1171612384,1,0,1,1,1,1,'','','Luis:\n\nNada más por no dejar, y si compilas el .RC con el mismo Pelles C, (Salvar como ....    y en tipo eliges *.Res)\n\nSaludos','',0,'gA==','2p7yz7uh',1,0,'',53,0,0),(26770,5985,2,350,0,'80.32.243.219',1171612477,1,0,1,1,1,0,'','','Hola, yo lo tengo para que además de mostrar un logo, éste se ajuste en tamaño en proporción al tamaño de la ventana de la aplicación y además siempre esté centrado en ella.\n\nLo hago así:\n\nDEFINE WINDOW oWnd ..\n..\noWnd:bResized := {|| Inilogo() }\n\nACTIVATE WINDOW oWnd ON INIT Inilogo() ...\n\nEsta es la función Inilogo:\n\nfunction IniLogo()\nlocal aclirect := getclientRect(oWnd:hWnd)\n\nif valtype(oBmplogo) = \'O\'\n   oBmpLogo:End()\nendif\n@ -100, -100 BITMAP oBmplogo RESOURCE \'LOGO\' ADJUST OF oWnd PIXEL NO BORDER\n\noBmpLogo:nTop := int( (aclirect[3]/2) - (int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )/2) )\noBmpLogo:nLeft := int( (aclirect[4]/2) - (int( aclirect[4]*36/100 )/2)  )\noBmpLogo:nHeight := int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )\noBmpLogo:nWidth := int( aclirect[4]*36/100 )\noBmpLogo:Refresh()\n\nreturn nil\n\n\nSaludos','',0,'','nec2kpo5',1,0,'',350,0,0),(26771,5994,6,53,0,'189.139.94.19',1171612607,1,0,1,1,1,1,'','Repintar Footers en TXBrowse','Amigos:\n\nSigo metido con la clase TXBrowse, pero no encuentro cómo repintar los footers, un pequeño ejemplo sera bienvenido.\n\nGracias','',0,'','yi302cj2',1,0,'',53,0,0),(26772,5987,3,2,0,'87.218.146.140',1171612969,1,0,1,1,1,1,'','','Michel,\n\nPlease post the portion of the RC for that dialog, thanks','',0,'','1q7soo4i',1,0,'',2,0,0),(26773,5985,2,2,0,'87.218.146.140',1171613200,1,0,1,1,1,1,'','','Miguel,\n\nEn samples\\fivegen\\fivegen.prg tienes un ejemplo de como poner un logo centrado ó en mosaico:\n[code:3l8jpjxg]\n   if ! Empty&#40; &#58;&#58;oBmpLogo &#41; &#46;or&#46; ! Empty&#40; &#58;&#58;oBmpTiled &#41;\n      &#58;&#58;oWnd&#58;bPainted = &#123; | hDC | If&#40; &#58;&#58;oBmpTiled != nil,;\n                                  BmpTiled&#40; hDC, &#58;&#58;oWnd, &#58;&#58;oBmpTiled &#41;,&#41;,;\n                                  If&#40; &#58;&#58;oBmpLogo != nil,;\n                                  PalBmpDraw&#40; hDC,;\n                                  &#58;&#58;oWnd&#58;nHeight&#40;&#41; / 2 - ;\n                                  &#58;&#58;oBmpLogo&#58;nHeight&#40;&#41; / 2 - 50,;\n                                  &#58;&#58;oWnd&#58;nWidth&#40;&#41; / 2 - ;\n                                  &#58;&#58;oBmpLogo&#58;nWidth&#40;&#41; / 2,;\n                                  &#58;&#58;oBmpLogo&#58;hBitmap &#41;,&#41; &#125;\n   endif\n[/code:3l8jpjxg]\nRevisa fivegen.prg para ver el código de la función BmpTiled()','',0,'AIA=','3l8jpjxg',1,0,'',2,0,0),(26774,5990,3,6,0,'82.61.144.129',1171614607,1,0,1,1,1,1,'','Re: Strange dialog problem','Can you build a reduced and self-contained sample of the problem?\n\nEMG','',0,'AIA=','b6qf6y8r',1,0,'',6,0,0),(26775,5987,3,86,0,'213.119.103.68',1171614710,1,0,1,1,1,1,'','','Hello guys,\n\nHere is a part of my RC-file :\n\n---------------------------------------------------\n\n1_BG_DOSSIER11 DIALOG LOADONCALL MOVEABLE DISCARDABLE 13, 15, 424, 340\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCLASS \"BorDlg_Gray\"\nCAPTION \"Basisgegevens van het dossier\"\nFONT 8, \"MS Sans Serif\"\n{\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 3, 18, 418, 121\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 3, 141, 418, 16\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 3, 159, 179, 33\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 3, 194, 351, 16\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 3, 212, 351, 16\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 3, 283, 418, 25\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 3, 292, 418, 2\n CONTROL \"\", -1, \"BorShade\", 3 | WS_CHILD | WS_VISIBLE, 35, 283, 2, 25\n CONTROL \"\", -1, \"BorShade\", 3 | WS_CHILD | WS_VISIBLE, 87, 283, 2, 25\n CONTROL \"\", -1, \"BorShade\", 3 | WS_CHILD | WS_VISIBLE, 139, 283, 2, 25\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 184, 159, 70, 15\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 184, 176, 237, 16\n CONTROL \"\", -1, \"BorShade\", 3 | WS_CHILD | WS_VISIBLE, 191, 283, 2, 25\n CONTROL \"\", -1, \"BorShade\", 3 | WS_CHILD | WS_VISIBLE, 243, 283, 2, 25\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 256, 159, 165, 15\n CONTROL \"\", -1, \"BorShade\", 3 | WS_CHILD | WS_VISIBLE, 295, 283, 2, 25\n CONTROL \"\", -1, \"BorShade\", 3 | WS_CHILD | WS_VISIBLE, 348, 283, 2, 25\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 356, 194, 65, 15\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 356, 212, 65, 40\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 356, 253, 65, 28\n CONTROL \"PRESTATIES EN AGENDAPUNTEN\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 3, 230, 151, 51\n CONTROL \"MEMO\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 156, 230, 198, 51\n RTEXT \"Dossiernr.\", -1, 4, 5, 32, 8\n RTEXT \"sub.\", -1, 90, 5, 15, 8\n RTEXT \"Creatiedatum\", -1, 136, 5, 46, 8\n RTEXT \"Archiefnr.\", -1, 251, 5, 32, 8\n LTEXT \"datum\", -1, 343, 5, 20, 8\n RTEXT \"Dossiernaam\", -1, 6, 145, 44, 8\n CTEXT \"/c\", -1, 169, 145, 10, 8\n CTEXT \"/i\", -1, 295, 145, 10, 8\n RTEXT \"Dossierbeheerder\", -1, 5, 164, 67, 8\n RTEXT \"Dossierbehandelaar\", -1, 4, 179, 68, 8\n RTEXT \"Kleurcode dossier\", -1, 257, 163, 63, 8\n RTEXT \"Alternatief uurtarief ereloon\", -1, 185, 180, 89, 8\n RTEXT \"% voor kosten\", -1, 332, 180, 48, 8\n LTEXT \"%\", -1, 409, 180, 11, 8\n RTEXT \"Agenda en documenten toewijzen aan :\", -1, 4, 198, 125, 8\n RTEXT \"Advocaten\", -1, 128, 198, 40, 8\n RTEXT \"Secretariaat\", -1, 239, 198, 43, 8\n RTEXT \"Algemene omschrijving/procedure in dit dossier\", -1, 4, 216, 154, 8\n RTEXT \"Laatst uitgev. prestatie\", -1, 5, 243, 87, 8\n RTEXT \"Laatst uitgev. agendapunt\", -1, 5, 256, 87, 8\n RTEXT \"Eerstvolgend agendapunt\", -1, 4, 269, 88, 8\n CTEXT \"Saldi in\", -1, 5, 284, 30, 8\n CTEXT \"Inkom. rek.\", -1, 39, 284, 45, 8\n CTEXT \"Gevraagd\", -1, 91, 284, 45, 8\n CTEXT \"Erelonen\", -1, 143, 284, 45, 8\n CTEXT \"Provisies\", -1, 196, 284, 45, 8\n CTEXT \"Derd.gelden\", -1, 248, 284, 45, 8\n CTEXT \"Doss.kosten\", -1, 300, 284, 45, 8\n CTEXT \"Datum laatste betal.\", -1, 350, 284, 70, 8\n EDITTEXT 101, 38, 3, 24, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n CTEXT \"/\", -1, 64, 5, 3, 8\n EDITTEXT 102, 68, 3, 21, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 103, 106, 3, 6, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n CTEXT \"/\", -1, 114, 5, 3, 8\n EDITTEXT 104, 118, 3, 6, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 105, 200, 3, 40, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 106, 184, 3, 15, 12, ES_CENTER | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 107, 285, 3, 24, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n CTEXT \"/\", -1, 311, 5, 3, 8\n EDITTEXT 108, 315, 3, 21, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 109, 381, 3, 40, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 110, 365, 3, 15, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 111, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 7, 22, 410, 113\n EDITTEXT 114, 52, 143, 117, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 115, 180, 143, 115, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 116, 305, 143, 113, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 117, 74, 162, 95, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 600, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 169, 162, 11, 12\n EDITTEXT 118, 74, 177, 95, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 601, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 169, 177, 11, 12\n CHECKBOX \"Ei&amp;gen dossier\", 120, 192, 161, 55, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n COMBOBOX 121, 322, 161, 96, 136, CBS_DROPDOWNLIST | CBS_OWNERDRAWFIXED | WS_TABSTOP\n EDITTEXT 122, 277, 178, 34, 12, ES_RIGHT | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 123, 312, 178, 18, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 124, 382, 178, 25, 12\n COMBOBOX 125, 170, 196, 68, 60, CBS_DROPDOWNLIST | WS_TABSTOP\n COMBOBOX 126, 284, 196, 68, 60, CBS_DROPDOWNLIST | WS_TABSTOP\n CHECKBOX \"Dossier&amp;boekh.\", 127, 361, 195, 58, 13, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n EDITTEXT 128, 161, 214, 180, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 603, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 341, 214, 11, 12\n EDITTEXT 129, 110, 241, 40, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 130, 94, 241, 15, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 131, 110, 254, 40, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 132, 94, 254, 15, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 133, 110, 267, 40, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 134, 94, 267, 15, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 135, 159, 242, 192, 36, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n EDITTEXT 136, 10, 294, 20, 12, ES_CENTER | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 137, 39, 294, 45, 12, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 138, 91, 294, 45, 12, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 139, 143, 294, 45, 12, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 140, 195, 294, 45, 12, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 141, 247, 294, 45, 12, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 142, 299, 294, 45, 12, ES_RIGHT | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 143, 373, 294, 40, 12, ES_CENTER | NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 144, 357, 294, 15, 12, ES_CENTER | NOT WS_TABSTOP | WS_BORDER\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, -7, 312, 437, 2\n PUSHBUTTON \"&amp;Opslaan\", 901, 3, 320, 40, 14, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Einde\", 902, 48, 320, 30, 14, NOT WS_TABSTOP\n PUSHBUTTON \"Op&amp;slaan en activeren\", 903, 83, 320, 80, 14, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Activeren\", 904, 168, 320, 45, 14, NOT WS_TABSTOP\n PUSHBUTTON \"Afdru&amp;k inlegblad\", 905, 218, 320, 60, 14, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Vindplaats dossier\", 906, 283, 320, 75, 14, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Dossieragenda\", 907, 358, 215, 60, 10, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Financiële fiche\", 908, 358, 227, 60, 10, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Prestatiefiche\", 909, 358, 239, 60, 10, NOT WS_TABSTOP\n PUSHBUTTON \"Ar&amp;chiveren\", 910, 358, 256, 60, 10, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Uit archief halen\", 911, 358, 268, 60, 10, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Q - Paswoord toekennen\", 912, -3, 346, 97, 14, NOT WS_TABSTOP\n CONTROL \"\", 650, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 365, 319, 15, 17\n CONTROL \"\", 651, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 385, 319, 15, 17\n CONTROL \"\", 652, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 405, 319, 15, 17\n}\n\n---------------------------------------------------\n\nThanks.\n\nMichel','',0,'AIA=','gxncxcae',1,0,'',86,0,0),(26776,5987,3,86,0,'213.119.103.68',1171614795,1,0,1,1,1,1,'','','And this is the part of my RC-file which defines the folders :\n\n-----------------------------------------------\n\n1_BG_DOSPART1 DIALOG LOADONCALL MOVEABLE DISCARDABLE 19, 30, 408, 98\nSTYLE WS_CHILD\nFONT 8, \"MS Sans Serif\"\n{\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 329, 5, 76, 12\n CONTROL \"\", 112, \"TWBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 4, 5, 322, 88\n EDITTEXT 113, 383, 81, 16, 12, ES_CENTER | NOT WS_TABSTOP | WS_BORDER\n CTEXT \"\", 401, 332, 7, 70, 8, SS_CENTER | NOT WS_GROUP\n RTEXT \"\", 402, 331, 83, 50, 8, SS_RIGHT | NOT WS_GROUP\n PUSHBUTTON \"Bijvoegen (Insert)\", 920, 329, 20, 76, 13, NOT WS_TABSTOP\n PUSHBUTTON \"Schrappen (Delete)\", 921, 329, 35, 76, 13, NOT WS_TABSTOP\n DEFPUSHBUTTON \"Dossiergegevens (F3)\", 922, 329, 50, 76, 13, BS_DEFPUSHBUTTON | NOT WS_TABSTOP\n PUSHBUTTON \"Basisgegevens (F4)\", 923, 329, 65, 76, 13, NOT WS_TABSTOP\n}\n\n-----------------------------------------------\n\nThanks.\n\nMichel','',0,'AIA=','32c5aly4',1,0,'',86,0,0),(26777,5981,3,6,0,'82.61.144.129',1171614823,1,0,1,1,1,1,'','','This is for Office Outlook:\n\n[code:ws9hxr53]oMail&#58;HTMLBody = &#46;&#46;&#46;[/code:ws9hxr53]\n\nEMG','',0,'AIA=','ws9hxr53',1,0,'',6,0,0),(26778,5987,3,86,0,'213.119.103.68',1171614894,1,0,1,1,1,1,'','','This is an example where everything is working fine :\n\n-------------------------------------------\n\n3_BEHAGENDA1 DIALOG LOADONCALL MOVEABLE DISCARDABLE 16, 26, 544, 366\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCLASS \"BorDlg_Gray\"\nCAPTION \"Beheer van de kantoor- en procedureagenda\"\nFONT 6, \"Arial\"\n{\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 5, 31, 108, 22\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 117, 31, 109, 22\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 76, 4, 462, 22\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 230, 31, 72, 22\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 306, 31, 75, 22\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 385, 31, 81, 22\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 471, 31, 68, 22\n CTEXT \"-\", -1, 131, 10, 7, 8\n CTEXT \"/c\", -1, 267, 11, 10, 8\n CTEXT \"/i\", -1, 406, 11, 10, 8\n CTEXT \"1 dag\", -1, 266, 38, 35, 10\n CTEXT \"1 week\", -1, 342, 38, 38, 10\n CTEXT \"1 maand\", -1, 421, 38, 43, 10\n EDITTEXT 102, 121, 36, 101, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 700, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 235, 36, 13, 13\n CONTROL \"\", 701, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 252, 36, 13, 13\n CONTROL \"\", 702, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 311, 36, 13, 13\n CONTROL \"\", 703, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 328, 36, 13, 13\n CONTROL \"\", 704, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 390, 36, 13, 13\n CONTROL \"\", 705, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE, 407, 36, 13, 13\n CONTROL \"\", 103, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 59, 533, 280\n EDITTEXT 105, 81, 9, 49, 12, ES_CENTER | WS_BORDER | WS_TABSTOP\n EDITTEXT 106, 138, 9, 128, 12, NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 107, 277, 9, 128, 12, NOT WS_TABSTOP | WS_BORDER\n EDITTEXT 108, 417, 9, 116, 12, NOT WS_TABSTOP | WS_BORDER\n CHECKBOX \"&amp;Punten achter elkaar tonen\", 111, 318, 348, 105, 12, BS_AUTOCHECKBOX | NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Toevoegen\", 901, 11, 346, 50, 14, NOT WS_TABSTOP\n DEFPUSHBUTTON \"&amp;Wijzigen\", 902, 66, 346, 50, 14, BS_DEFPUSHBUTTON | NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Uitgevoerd\", 903, 121, 346, 50, 14, NOT WS_TABSTOP\n PUSHBUTTON \"Dossier &amp;activeren\", 904, 176, 346, 65, 14, NOT WS_TABSTOP\n PUSHBUTTON \"Agenda&amp;rapport\", 905, 246, 346, 60, 14, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Schrappen\", 906, 426, 346, 50, 14, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Einde\", 907, 483, 346, 50, 14, NOT WS_TABSTOP\n PUSHBUTTON \"A&amp;gendadatum wijzigen\", 908, 9, 35, 100, 14, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Vandaag\", 909, 475, 35, 59, 14, NOT WS_TABSTOP\n PUSHBUTTON \"in &amp;Hoofding vermelden\", 914, 552, 351, 90, 14\n CONTROL \"\", 650, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 2, 3, 23, 23\n CONTROL \"\", 651, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 26, 3, 23, 23\n CONTROL \"\", 652, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 50, 3, 23, 23\n}\n\n-------------------------------------------\n\nThanks.\n\nMichel','',0,'AIA=','2r4t9sl3',1,0,'',86,0,0),(26779,5983,6,316,0,'213.97.245.163',1171614944,1,0,0,1,1,0,'','','Adriano,\n\nCreo que el SET RELATION no te va a servir en este caso. Dependiendo del proceso tal vez te convenga conservar un consolidado por año como para ir dejando las cosas más o menos totalizadas, ya que los datos hasta el 2006 no cambian, o bien hacer una rutina que te arme un unico fichero de movimientos cada vez que haga falta..\nOtra posibilidad sería una rutina que me arme en un temporal el mayor de cada cuenta, recorriendo todas las dbf\'s, algo mas o menos así:\n\ndBCreate( cFile:= TmpFile( \'DBF\' ), { estructura del movim } )\nUse (cFile) Alias TempMov Exclusive New \nFor i:= 2 to Year(Date())%100\n   For j:= 1 to 12\n      If File( cMov:= \'MOV\'+StrZero(j,2)+StrZero(i,2)+\'.dbf\' )\n          Use (cMov) Alias MOVMES Shared ReadOnly New\n         // Traspasar los movimientos\n         Close MOVMES\n      EndIf\n   EndFor\nEndFor\n\nBueno, no está completo pero el resto seguro lo puedes manejar.\n\nUn saludo,\n\nCarlos','',0,'AIA=','6bd5d6gc',1,0,'',316,0,0),(26780,5987,3,86,0,'213.119.103.68',1171614961,1,0,1,1,1,1,'','','And the definition of the folder which is working fine.\n\n------------------------------------------------\n\n3_BEHAGENDA3 DIALOG LOADONCALL MOVEABLE DISCARDABLE 20, 83, 530, 265\nSTYLE WS_CHILD\nFONT 6, \"Arial\"\n{\n RTEXT \"Dubbelklik op de kolom \"\"Uitv.\"\" om de uitvoerder te wijzigen\", -1, 302, 3, 220, 8\n CONTROL \"\", 104, \"TWBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 5, 13, 520, 237\n PUSHBUTTON \"&amp;Dossiergegevens\", 910, 5, 251, 124, 12, NOT WS_TABSTOP\n PUSHBUTTON \"D&amp;ossieragenda\", 911, 137, 251, 124, 12, NOT WS_TABSTOP\n PUSHBUTTON \"Doss&amp;ierprestaties\", 912, 269, 251, 124, 12, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Financiële fiche\", 913, 401, 251, 124, 12, NOT WS_TABSTOP\n}\n\n------------------------------------------------\n\nThanks.\n\nMichel','',0,'AIA=','1vj4pe1i',1,0,'',86,0,0),(26781,5995,3,86,0,'213.119.103.68',1171615381,1,0,1,1,1,1,'','Dialog box is not closed ?','Hello,\n\nA strange problem if FWH and not in FW16.\n\nIn my application I make a connection with MS-Word through OLE, which works very fine.\n\nWhen a document is opened out of my application, I show a small dialog box at the top of my screen in which I tell the user in which document he is working or what the purpose of the used document might be.\n\nAfter the document is closed, in FW16 the small dialog box is closed too by using \"LnDlg:End()\". Of course the dialog box disappears.\n\nIn FWH however, I have a problem : the dialog box is NOT closed although \"LnDlg:End()\" is passed (I put a MsgInfo before and after it), the dialog box is NOT closed.\n\nHow come that a dialog box is not closed although it is ended ?\n\nThanks.\n\nMichel','',0,'AIA=','16x1idrc',1,0,'',86,0,0),(26782,5963,4,3,0,'82.120.30.81',1171615911,1,0,1,1,1,1,'','','Antonio\n\nConfirmed, it is a sign issue\n\nAscii codes up to 127 are printed correct not the others.\n\nI sent to your private email a pdf showing a print out of all ascii codes.\n\nRichard','',0,'AIA=','22u2wnil',1,0,'',3,0,0),(26783,5996,6,456,0,'217.127.39.57',1171616901,1,0,1,1,1,1,'','Posicion de dialogo en pantalla.','Hola  todos,\n\n   Tengo un diaolog creado desde recursos, existe alguna manera para recuperar su posicion acutal. Lo que necesito es que la siguiente vez que se abra el dialogo, aparezca en la ultima posicion donde lo habia movido el usuario.\n\nGracias anticipadas.','',0,'AIA=','1kg1hyy3',1,0,'',456,0,0),(26784,5963,4,2,0,'87.218.146.140',1171616921,1,0,1,1,1,1,'','','Richard,\n\nPlease test this function and place a #define WriteByte _WriteByte in your app:\n[code:2l9fnno8]\nHB_FUNC&#40; _WRITEBYTE &#41; // hComm, nChar --&gt; lOk\n&#123;\n   DWORD cBytes;\n   unsigned char ch = &#40; unsigned char &#41; hb_parnl&#40; 2 &#41;; \n   \n   hb_retl&#40; &#40; BOOL &#41; WriteFile&#40; &#40; void * &#41; hb_parnl&#40; 1 &#41;, &amp;ch, 1, &amp;cBytes, NULL &#41; &#41;;\n&#125;   \n[/code:2l9fnno8]','',0,'AIA=','2l9fnno8',1,0,'',2,0,0),(26785,5987,3,2,0,'87.218.146.140',1171617565,1,0,1,1,1,1,'','','Michel,\n\nPlease post a screenshot of 1_BG_DOSSIER11 running in 16 bits and in 32 bits, thanks. Please use <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> to post the images and copy here the urls','',0,'AIA=','3nkkbo5d',1,0,'',2,0,0),(26786,5995,3,2,0,'87.218.146.140',1171617654,1,0,1,1,1,1,'','','Michel,\n\nPlease post the portion of PRG for that dialog, thanks','',0,'AIA=','1lzyl6s5',1,0,'',2,0,0),(26787,5996,6,2,0,'87.218.146.140',1171618684,1,0,1,1,1,1,'','','Biel,\n\nGuarda oDlg:nTop y oDlg:nLeft y posteriormente asigna esos valores: oDlg:nTop = ... y oDlg:nLeft = ...','',0,'AIA=','2pjq4ncy',1,0,'',2,0,0),(26788,5984,1,193,0,'195.212.29.171',1171619014,1,0,1,1,1,0,'','','Just as idea maybe TSTRUCT:NSIZE is readonly class variable and cannot be used at left side of assignment statement. Or instead of class referencing TSTRUCT you should use an object name?','',0,'AIA=','28dxyrax',1,0,'',193,0,0),(26789,5987,3,86,0,'213.119.103.68',1171619156,1,0,1,1,1,1,'','','Here are the screenshots :\n\nWorking folder in FW16 : [url=http&#58;//img291&#46;imageshack&#46;us/my&#46;php?image=fw161tx6&#46;jpg:4kg6v38p][img:4kg6v38p]http&#58;//img291&#46;imageshack&#46;us/img291/3862/fw161tx6&#46;th&#46;jpg[/img:4kg6v38p][/url:4kg6v38p]\n\nNOT working folder in FW32 : [url=http&#58;//img208&#46;imageshack&#46;us/my&#46;php?image=fw321yj5&#46;jpg:4kg6v38p][img:4kg6v38p]http&#58;//img208&#46;imageshack&#46;us/img208/9017/fw321yj5&#46;th&#46;jpg[/img:4kg6v38p][/url:4kg6v38p]\n\nWorking folder in FW16 and in FW32 : [url=http&#58;//img208&#46;imageshack&#46;us/my&#46;php?image=fw162yi5&#46;jpg:4kg6v38p][img:4kg6v38p]http&#58;//img208&#46;imageshack&#46;us/img208/4213/fw162yi5&#46;th&#46;jpg[/img:4kg6v38p][/url:4kg6v38p]\n\nThanks.\n\nMichel','',0,'GA==','4kg6v38p',1,0,'',86,0,0),(26790,5963,4,3,0,'82.120.30.81',1171619239,1,0,1,1,1,1,'','','Antonio\n\nSame result\n\n\nRichard','',0,'GA==','c5xs6a2n',1,0,'',3,0,0),(26791,5995,3,86,0,'213.119.103.68',1171621375,1,0,1,1,1,1,'','','Antonio,\n\nSorry for your efforts but I just found the reason. It was my mistake in the code.\n\nThanks anyway for your help.\n\nMichel','',0,'GA==','1kq31zsh',1,0,'',86,0,0),(26792,5996,6,456,0,'217.127.39.57',1171622503,1,0,1,1,1,1,'','','Hola Antonio,\n si eso fue lo que se me ocurrio incialmente, de hecho lo utilizo con ventanas, pero con dialogos me devuelve cero. Si le asigno el valor a nTop, ... ni caso. De la unica forma que puedo cambiar esos valores es con las funciones tipo  WndTop, .... . Pero no consigo recuperar el valor de la posición actual. \nPara mi los datas nTop, nLeft,  siempre tienen valor cero en dialogos creados desde recurso por lo menos.','',0,'GA==','86z709s4',1,0,'',456,0,0),(26793,5997,6,960,0,'217.12.16.54',1171623000,1,0,1,1,1,0,'','FWH para gestor de archivos','Hola compañeros. Soy nuevo en este foro aunque llevo mas de 10 años manejandome con Clipper, Fivewin y ahora FWH+xHarbour.\n\nSolicito recomendacion y opiniones a la siguiente cuestión:\n\nTengo un cliente con 8 terminales en RED + 1 servidor exclusivo todos con Wxp profesional. Gestionan gran volumen de información y de archivos tipo Word, Access, PDF\'s, Power Point y todos guardados en una maraña de carpetas y subcarpetas. \n\nMi cliente me solicita alguna solucion informática que mejore la gestión, accesibilidad, localización y organización de todos estos ficheros.\nEstoy pensando en diseñar en FWH alguna aplicación con una gran DBF que permita tener la ruta de estos archivos y permita gestionarlos.\n\n¿ Es posible realizar esto en FWH ? Utilicé siempre FWH para aplicaciones de gestión empresarial pero nunca para gestión de archivos.\n\nMil gracias por vuestras opiniones  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nLoren\nCadiz, España','',0,'GA==','z6rw24jw',1,0,'',960,0,0),(26794,5998,3,148,0,'196.205.175.52',1171625151,1,0,1,1,1,0,'','creating index file for date field','creating combobox with character field goes well but I had error message of \"Argument error: ALLTRIM\" with date field.\n[code:3h9m95jb]\n\n\nLocal V_ct_strd&#58;=&#40;&quot;  /  /    &quot;&#41;\n\n   @ 15, 260 COMBOBOX &#40;V_ct_strd&#41; ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_strd&quot;&#41; size 80,80 OF oDlg PIXEL\n\n\n\nfunction aBase1&#40;workarea,cFile,xx,cField&#41;\n*--------------------------------\n  local aItems&#58;=&#123;&#125;\n  local y&#58;=0\n  aAdd&#40;aItems,space&#40;256&#41;&#41; //Put First element empty\n\n  use &#40;cFile&#41; new\n\n  index on &amp;&#40;cField&#41; to temp\n\n  go top\n  do while ! eof&#40;&#41;\n     y&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41;\n     if y==0\n        aAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41;\n        dbSkip&#40;&#41;\n        else\n        dbSkip&#40;&#41;\n     endif\n\n  enddo\n  *use\n  ferase&#40;&quot;temp&#46;ntx&quot;&#41;\n  *select&#40;nArea&#41;\n  *use nselect\nreturn aItems\n\n[/code:3h9m95jb]','',0,'AIA=','3h9m95jb',1,0,'',148,0,0),(26795,5998,3,6,0,'82.61.144.129',1171626302,1,0,1,1,1,1,'','Re: creating index file for date field','You have to convert dates to strings using DTOC().\n\nEMG','',0,'AIA=','4dk2v8vm',1,0,'',6,0,0),(26796,5997,6,131,0,'194.179.55.36',1171626630,1,0,1,1,1,0,'','','Hola:\nEsto es lo que hace precisamente mi programa A, hecho en FWH.\n<!-- m --><a class=\"postlink\" href=\"http://www.alanit.com/programas/azeta.php\">http://www.alanit.com/programas/azeta.php</a><!-- m -->\n\nSaludos,','',0,'AIA=','m42ye599',1,0,'',131,0,0),(26797,5998,3,148,0,'196.205.175.52',1171629798,1,0,1,1,1,0,'','','Please help me fixing this code :\n[code:3dzqek8g]\nuse &#40;cFile&#41; new\n  do case \n  case VALTYPE&#40;cField&#41; == &quot;D&quot;\n          tempntx&#58;= \'DTOC&#40;\' + cField + &#41;\' \n  case VALTYPE&#40;cField&#41; == &quot;N&quot;\n          tempntx&#58;= \'str&#40;\' + cField + \'&#41;\' \n  otherwise          \n          tempntx&#58;=  cField \n  endcase \n  index on &amp;&#40;tempntx&#41; to temp\n\n[/code:3dzqek8g]','',0,'AIA=','3dzqek8g',1,0,'',148,0,0),(26798,5979,6,237,0,'200.68.70.90',1171630270,1,0,1,1,1,0,'','No es lo mismo?','No es lo mismo preguntar por If oObjeto:lActive ? \nque diferencia hay ?\n\nEs una duda que tengo.\n\nSalu2\nAlejandro Cebolido','',0,'AIA=','2ot8ox3x',1,0,'',237,0,0),(26799,5990,3,67,0,'81.11.215.8',1171632296,1,0,1,1,1,0,'','','Jeff\n\nHave you checked the dimensions from the control\'s ?\n\nWhat if you change the ordering from the controls ?\n\nFrank','',0,'AIA=','2h2sbdb7',1,0,'',67,0,0),(26800,5996,6,41,0,'200.105.194.235',1171634493,1,0,1,1,1,0,'','','Hola\n\nusa aRect := GetWndRect( oDlg:hWnd ) para capturar las coordanas del dialog y luego en el creacion del dialogo ON INIT MoveWindow( oDlg:hWnd, aRect[1], aRect[2] )\n\nespero sea lo que buscas\n\nsaludos\n\nMarcelo','',0,'','1r4oz91t',1,0,'',41,0,0),(26801,5998,3,6,0,'82.61.144.129',1171635169,1,0,1,1,1,1,'','','The problem is not in the index. You have to convert dates in strings when you build the array for combobox items.\n\nEMG','',0,'','36fiym28',1,0,'',6,0,0),(26802,5996,6,449,0,'212.64.224.250',1171635331,1,0,1,1,1,1,'','','Biel,\n\n[code:1qunh3c6]ACTIVATE DIALOG oDlg ON INIT SetWindowPos&#40; oDlg&#58;hWnd, , nTop, nLeft, nWidth, nHeight &#41;[/code:1qunh3c6]\n\nSiau.\nC.','',0,'AIA=','1qunh3c6',1,0,'',449,0,0),(26803,5999,3,86,0,'213.119.103.68',1171635527,1,0,1,1,1,1,'','problem with focus in GET-class','Hello,\n\nI notice a problem with the focus in the GET-class which didn\'t happen in FW16.\n\nThe code :\n\nREDEFINE GET oGET1 VAR FIELD1 PICTURE \"XXX\"\n....\nREDEFINE GET oGET6 VAR FIELD6 PICTURE \"999\" VALID !EMPTY(FIELD7) .OR. ACTGEM()\nREDEFINE GET oGET7 VAR FIELD7 PICTURE \"XXX\"\n\nwhere :\n\nACTGEM() is a function which opens a new dialog box to select a value for FIELD7, but this function is only called when FIELD7 is empty (usually only when adding data). ACTGEM() always returns a .T.\n\n\nIn FW16, the focus is automatically on FIELD7 after having selected a value for FIELD7 through ACTGEM().\n\nIn FW32 however, the focus is on FIELD1 after having selected a value for FIELD7 through ACTGEM().\n\nHow can I maintain the focus on FIELD7 after having selected a value for FIELD7 through ACTGEM() ?\n\nThank you.\n\nMichel','',0,'AIA=','11j2lx32',1,0,'',86,0,0),(26804,5999,3,3,0,'82.120.30.81',1171636158,1,0,1,1,1,1,'','Re: problem with focus in GET-class','Michel\n\nOGET7:OJUMP := OGET7\nOGET7:SETFOCUS(.T.)\n\nHth\n\nRichard','',0,'AIA=','39kx268c',1,0,'',3,0,0),(26805,6000,6,36,0,'200.113.56.235',1171638162,1,0,1,1,1,0,'','imagen jpg desde recurso ( el scrool no se mueve )','Estimado\n\nviendo el ejemplo \"testimg\" la imagen sale con scroll y funciona perfecto moviendose para ambos lados\n\nahora la pregunta como hacer con recurso funcione el scrool, aparece pero no se mueve la imagen\n\nSaludos\nPatricio','',0,'AIA=','ykwlwauc',1,0,'',36,0,0),(26806,5985,2,812,0,'200.83.125.37',1171638948,1,0,1,1,1,0,'','','Antonio:\n\nMuchas Gracias,\n\nSaludos,\n\nMiguel\n\n[quote=&quot;Antonio Linares&quot;:zvbeap49]Miguel,\n\nEn samples\\fivegen\\fivegen.prg tienes un ejemplo de como poner un logo centrado ó en mosaico:\n[code:zvbeap49]\n   if ! Empty&#40; &#58;&#58;oBmpLogo &#41; &#46;or&#46; ! Empty&#40; &#58;&#58;oBmpTiled &#41;\n      &#58;&#58;oWnd&#58;bPainted = &#123; | hDC | If&#40; &#58;&#58;oBmpTiled != nil,;\n                                  BmpTiled&#40; hDC, &#58;&#58;oWnd, &#58;&#58;oBmpTiled &#41;,&#41;,;\n                                  If&#40; &#58;&#58;oBmpLogo != nil,;\n                                  PalBmpDraw&#40; hDC,;\n                                  &#58;&#58;oWnd&#58;nHeight&#40;&#41; / 2 - ;\n                                  &#58;&#58;oBmpLogo&#58;nHeight&#40;&#41; / 2 - 50,;\n                                  &#58;&#58;oWnd&#58;nWidth&#40;&#41; / 2 - ;\n                                  &#58;&#58;oBmpLogo&#58;nWidth&#40;&#41; / 2,;\n                                  &#58;&#58;oBmpLogo&#58;hBitmap &#41;,&#41; &#125;\n   endif\n[/code:zvbeap49]\nRevisa fivegen.prg para ver el código de la función BmpTiled()[/quote:zvbeap49]','',0,'gIA=','zvbeap49',1,0,'',812,0,0),(26807,5985,2,812,0,'200.83.125.37',1171639014,1,0,1,1,1,0,'','','Sebastian:\n\nMuchas Gracias por tu ayuda.\n\nSaludos,\n\nMiguel\n\n[quote=&quot;Sebastián Almirón&quot;:3e8ft9hg]Hola, yo lo tengo para que además de mostrar un logo, éste se ajuste en tamaño en proporción al tamaño de la ventana de la aplicación y además siempre esté centrado en ella.\n\nLo hago así:\n\nDEFINE WINDOW oWnd ..\n..\noWnd:bResized := {|| Inilogo() }\n\nACTIVATE WINDOW oWnd ON INIT Inilogo() ...\n\nEsta es la función Inilogo:\n\nfunction IniLogo()\nlocal aclirect := getclientRect(oWnd:hWnd)\n\nif valtype(oBmplogo) = \'O\'\n   oBmpLogo:End()\nendif\n@ -100, -100 BITMAP oBmplogo RESOURCE \'LOGO\' ADJUST OF oWnd PIXEL NO BORDER\n\noBmpLogo:nTop := int( (aclirect[3]/2) - (int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )/2) )\noBmpLogo:nLeft := int( (aclirect[4]/2) - (int( aclirect[4]*36/100 )/2)  )\noBmpLogo:nHeight := int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )\noBmpLogo:nWidth := int( aclirect[4]*36/100 )\noBmpLogo:Refresh()\n\nreturn nil\n\n\nSaludos[/quote:3e8ft9hg]','',0,'gA==','3e8ft9hg',1,0,'',812,0,0),(26808,6001,3,190,0,'124.7.27.85',1171640339,1,0,1,1,1,0,'','Can we paint transparant group box on gradiated dialog','Hi Friends\n\nAs subject\n\n[url=http&#58;//img233&#46;imageshack&#46;us/my&#46;php?image=groupeo3&#46;png:20r9hhlm][img:20r9hhlm]http&#58;//img233&#46;imageshack&#46;us/img233/6300/groupeo3&#46;th&#46;png[/img:20r9hhlm][/url:20r9hhlm]\n\nRegards\n\n- Ramesh Babu P','',0,'GA==','20r9hhlm',1,0,'',190,0,0),(26809,5996,6,456,0,'217.127.39.57',1171640453,1,0,1,1,1,1,'','','Perfecto, ya lo tengo funcionando. Muchas gracias Marcelo y Carles. Era justo lo que necesitaba. \n\nDe hecho tenia la solucion delante y no me habia dado cuenta, WndTop, y WndLeft, sin parametro de posicion devuelve posición actual.\n\n\nGracias nuevamente.','',0,'GA==','2e21wlnh',1,0,'',456,0,0),(26810,5983,6,891,0,'148.243.37.162',1171640943,1,0,1,1,1,0,'','Gracias Carlos','[quote=&quot;Carlos Mora&quot;:1rb1f6p3]Adriano,\n\nCreo que el SET RELATION no te va a servir en este caso. Dependiendo del proceso tal vez te convenga conservar un consolidado por año como para ir dejando las cosas más o menos totalizadas, ya que los datos hasta el 2006 no cambian, o bien hacer una rutina que te arme un unico fichero de movimientos cada vez que haga falta..\nOtra posibilidad sería una rutina que me arme en un temporal el mayor de cada cuenta, recorriendo todas las dbf\'s, algo mas o menos así:\n\ndBCreate( cFile:= TmpFile( \'DBF\' ), { estructura del movim } )\nUse (cFile) Alias TempMov Exclusive New \nFor i:= 2 to Year(Date())%100\n   For j:= 1 to 12\n      If File( cMov:= \'MOV\'+StrZero(j,2)+StrZero(i,2)+\'.dbf\' )\n          Use (cMov) Alias MOVMES Shared ReadOnly New\n         // Traspasar los movimientos\n         Close MOVMES\n      EndIf\n   EndFor\nEndFor\n\nBueno, no está completo pero el resto seguro lo puedes manejar.\n\nUn saludo,\n\nCarlos[/quote:1rb1f6p3]\n\nGracias Carlos Mora, es mas o menos parecido a la rutina o proceso como usted indica, pero mientras mas base de datos se vaya creando cada mes, mas lento se hace al pedir movimientos de cuentas, en el reporte de balanza no hay problema porque se pide del mes actual, pero la primera parte no le entendi de conservar consolidado por año, en fin busco una rutina con mayor rapidez, aunque no queda de otra que seguir creando archivo temporal, por cada usuario que entre al sistema y con su respectivo clave, se crea la base de datos temporal, este es mi codigo, de como creo mi archivo temporal:\n\n*****************************************************************\n *----- TRASPASANDO AUXILIAR DE CUENTAS EN ARCHIVO TEMPORAL -----*\n *****************************************************************\n\n\nDbf1Tmp := \"EMP\"+TSTR(xEMP)+TRIM(\"\\R_AUXI\"+nStation)+\".DBF\"\nNtx1Tmp := \"EMP\"+TSTR(xEMP)+TRIM(\"\\R_AUXI\"+nStation)+\".NTX\"\n\n\nIF !FILE(Dbf1Tmp)\n     CreaDbf1 := {{\"TIPO   \" , \"C\" ,  2 , 0 }  ,;\n                  {\"NUMPOL \" , \"N\" ,  5 , 0 }  ,;\n                  {\"FHAMOV \" , \"D\" ,  8 , 0 }  ,;\n                  {\"CUENTAS\" , \"C\" , 12 , 0 }  ,;\n                  {\"CTADETA\" , \"C\" ,  8 , 0 }  ,;\n                  {\"REFERE \" , \"C\" , 10 , 0 }  ,;\n                  {\"CONCEP \" , \"C\" , 60 , 0 }  ,;\n                  {\"SALCARG\" , \"N\" , 12 , 2 }  ,;\n                  {\"SALCRED\" , \"N\" , 12 , 2 }}\n\n     DbCreate(Dbf1Tmp,CreaDbf1)\n\n     USE (Dbf1Tmp) ALIAS TEMP EXCLUSIVE NEW SHARED\n\n     INDEX ON CUENTAS+DTOS(FHAMOV) TO (Ntx1Tmp)\n\n     SET INDEX TO (Ntx1Tmp)\n ELSE\n     USE (Dbf1Tmp) ALIAS TEMP EXCLUSIVE\n\n     ZAP\n\n     INDEX ON CUENTAS+DTOS(FHAMOV) TO (Ntx1Tmp)\n\n     SET INDEX TO (Ntx1Tmp)\n ENDIF\n\n MA-&gt;(DbSEEK(cMA_Ini))\n\n DO WHILE MA-&gt;ANOMES &gt;= cMA_Ini .AND. MA-&gt;ANOMES &lt;= cMA_Fin .AND. MA-&gt;(!EOF())\n     Mes_Per := VAL(SUBS((MA-&gt;AnoMes,3,2))\n     Ano_Per := VAL(SUBS((MA-&gt;AnoMes,1,2))\n\n     UsarDbf(\"MOVT\"+Mes_Per+Ano_Per\")  // Use: MOVTxMxA.DBF\n\n     MOVT-&gt;(DbSetOrder(3))\n     MOVT-&gt;(DbGoTop())\n\n     MOVT-&gt;(SetSeek(CtaIni))\n\n     DO WHILE MOVT-&gt;(!EOF())\n         IF MOVT-&gt;MV_NCTA &gt; CtaFin\n             EXIT\n         ENDIF\n\n         TEMP-&gt;(DbSeek(MOVT-&gt;MV_NCTA))\n\n         IF (MOVT-&gt;MV_CARG - MOVT-&gt;MV_ABON) &lt;&gt;0\n\n             TEMP-&gt;(DbAppend())\n\n             REPLACE TEMP-&gt;TIPO    WITH MOVT-&gt;MV_TIPO             ,;\n                     TEMP-&gt;NUMPOL  WITH MOVT-&gt;MV_NUMP             ,;\n                     TEMP-&gt;FHAMOV  WITH MOVT-&gt;MV_FHAM             ,;\n                     TEMP-&gt;CUENTAS WITH MOVT-&gt;MV_NCTA             ,;\n                     TEMP-&gt;CTADETA WITH MOVT-&gt;(SUBS(MOVT-&gt;MV_NCTA,5,8)) ,;\n                     TEMP-&gt;REFERE  WITH MOVT-&gt;MV_REFE             ,;\n                     TEMP-&gt;CONCEP  WITH MOVT-&gt;MV_CONC             ,;\n                     TEMP-&gt;SALCARG WITH MOVT-&gt;MV_CARG             ,;\n                     TEMP-&gt;SALCRED WITH MOVT-&gt;MV_ABON\n         ENDIF\n\n         MOVT-&gt;(DbSkip())\n     ENDDO\n\n     MA-&gt;(DbSkip())\n\n     Cierra_Dbf(\"MOVT\"+Mes_Per+Ano_Per\")\n ENDDO\n\nEs el procedimiento de barrer todas las bases de datos, desde el mes y año septiembre de 2002 o solo se pide el año actual, que no lleva mucho tiempo de proceso\n\nYa creado el archivo temporal, el siguiente codigo es donde procede a imprimir cuentas desde inicial al final, asi como mes y año inicial\n\nEspero mas ayuda o experiencia, que alguien haya implementado programa de contabilidad .\nGracias Carlos Mora\nAdriano','',0,'gA==','1rb1f6p3',1,0,'',891,0,0),(26811,6002,6,41,0,'200.105.194.235',1171642482,1,0,1,1,1,0,'','Error en la clase GET','Holas,\n\nno se si es un bug en la clase get, pero la siguiente definicion no funciona\n\n[quote:2v0imqt3]\n\n      REDEFINE GET f1              ;\n                ID 111                 ;\n                OF oDlg                ;\n       PICTURE \"@d\"                ;\n           WHEN nRango = 2          ;\n        UPDATE                     ;\n  ON CHANGE oDlg:update()\n\n[/quote:2v0imqt3]\n\nno permite editar correctamenrte el get, sin el ON CHANGE todo sales OK, le aumente .T. al final del on change e igual, sera un bug, estoy utilizando \nFWH 2.6 xHb 99.5 Bcc 55\n\nsaludos\n\nMarcelo','',0,'gA==','2v0imqt3',1,0,'',41,0,0),(26812,5999,3,86,0,'213.119.103.68',1171644746,1,0,1,1,1,1,'','','Richard,\n\nThank you.\n\nI\'ll try it out.\n\nMichel','',0,'gA==','23mgqla1',1,0,'',86,0,0),(26813,5998,3,148,0,'196.205.175.52',1171645833,1,0,1,1,1,0,'','','Changine the code yields the same error ;\n[code:gkuw6v3k]\nlocal aItems&#58;=&#123;&#125;\n  local y&#58;=0\n  local tempntx&#58;=&quot;&quot;\n  aAdd&#40;aItems,space&#40;256&#41;&#41; //Put First element empty\n\n  use &#40;cFile&#41; new\n  \n  index on &amp;&#40;cField&#41; to temp\n\n  go top\n  do while ! eof&#40;&#41;\n  do case \n    case VALTYPE&#40;cField&#41; == &quot;D&quot;\n    		y&#58;=ASCAN&#40;aItems,DTOC&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41;\n    case VALTYPE&#40;cField&#41; == &quot;N&quot;\n     		y&#58;=ASCAN&#40;aItems,str&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41;\n    otherwise          \n     y&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41;\n    endcase \n    \n  if y==0\n  do case \n      case VALTYPE&#40;cField&#41; == &quot;D&quot;\n        aAdd&#40;aItems,dtoc&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41;\n      case VALTYPE&#40;cField&#41; == &quot;N&quot;\n        aAdd&#40;aItems,str&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41;\n      otherwise          \n       aAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41;\n      endcase \n        dbSkip&#40;&#41;\n        else\n        dbSkip&#40;&#41;\n     endif\n\n  enddo\n  *use\n  ferase&#40;&quot;temp&#46;ntx&quot;&#41;\n  *select&#40;nArea&#41;\n  *use nselect\nreturn aItems\n[/code:gkuw6v3k]','',0,'AIA=','gkuw6v3k',1,0,'',148,0,0),(26814,5998,3,303,0,'72.199.41.171',1171648779,1,0,1,1,1,0,'','','Ehab,\n\nYou are still adding items to the array that are not string. Comboboxes can only handle string data. \n\nWhy not just do it this way:\n\n    aadd(aItems, cValToChar( (cFile)-&gt;&amp;cField) )\n\nAnother note. If this is a multiuser application, you are likely going to get crashes since you are indexing to the same filename, \'temp.\' If two people try to access this routine at the same time, the second one is going to get a crash.\n\nJames','',0,'AIA=','3e0u987w',1,0,'',303,0,0),(26815,5961,6,180,0,'88.16.139.46',1171649546,1,0,1,1,1,0,'','Re: Adobe Acrobat 7.0 profesional via activex','Que hay Andrés?\nHas conseguido algo nuevo?\nPor si te sirve de algo: con ShellExecute( ,\"open\", DOCU-&gt;Ubicado,,,1 ) me abre el Profesional.\n\nUn saludo,\nManuel Aranda\n\n[quote=&quot;Andrés González&quot;:2hlsktoq]Es posible aceder al acrobar 7.0 profesional (no el reader) vía activex. Alguien sabe cual es el progid o como lo puedo averiguar ?\n\nUn saludo[/quote:2hlsktoq]','',0,'gA==','2hlsktoq',1,0,'',180,0,0),(26816,5998,3,148,0,'196.205.175.52',1171649702,1,0,1,1,1,0,'','','No the same error with the code :\n\n      	    aadd(aItems, cValToChar( (cFile)-&gt;&amp;cField) ) \n\nApplication\n===========\n   Path and name: E:\\programs\\Database\\clipper\\FWH\\sitex\\sitex.exe (32 bits)\n   Size: 1,691,648 bytes\n   Time from start: 0 hours 0 mins 17 secs \n   Error occurred at: 16/02/2007, 20:14:19\n   Error description: Error BASE/2022  Argument error: ALLTRIM\n   Args:\n     [   1] = D   01/04/2006\n\nStack Calls\n===========\n   Called from:  =&gt; ALLTRIM(0)\n   Called from:  =&gt; (b)DEFAULT(0)\n   Called from:  =&gt; ASCAN(0)\n   Called from:  =&gt; TCOMBOBOX:DEFAULT(0)\n   Called from:  =&gt; TCOMBOBOX:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: .\\source\\function\\HARBOUR.PRG =&gt; OSEND(0)\n   Called from: .\\source\\function\\HARBOUR.PRG =&gt; ASEND(0)\n   Called from:  =&gt; TDIALOG:INITIATE(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: sitex.prg =&gt; EDITMACH(1985)\n   Called from: sitex.prg =&gt; (b)LISTMACH(1649)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: sitex.prg =&gt; LISTMACH(1664)\n   Called from: sitex.prg =&gt; (b)BUILDMENU(160)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: sitex.prg =&gt; MAIN(134)','',0,'','kpjiun9f',1,0,'',148,0,0),(26817,5999,3,6,0,'82.61.144.129',1171649823,1,0,1,1,1,1,'','Re: problem with focus in GET-class','[quote=&quot;Richard Chidiak&quot;:3bqk98t9]OGET7:SETFOCUS(.T.)[/quote:3bqk98t9]\n\nAs far as I know, SetFocus() method doesn\'t take any parameters.\n\nEMG','',0,'gA==','3bqk98t9',1,0,'',6,0,0),(26818,5998,3,303,0,'72.199.41.171',1171650174,1,0,1,1,1,0,'','','Ehab,\n\n&gt;No the same error with the code : \n\n&gt;aadd(aItems, cValToChar( (cFile)-&gt;&amp;cField) ) \n\nI don\'t know exacly how you coded it, but your error message is saying that there are still date values in the aItems array. Please show us your revised code.\n\nJames','',0,'gA==','5qvq6ck0',1,0,'',303,0,0),(26819,5998,3,303,0,'72.199.41.171',1171650743,1,0,1,1,1,0,'','','Ehab,\n\n[code:3tkkobay]  do case \n      case VALTYPE&#40;cField&#41; == &quot;D&quot; \n        aAdd&#40;aItems,dtoc&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41; \n      case VALTYPE&#40;cField&#41; == &quot;N&quot; \n        aAdd&#40;aItems,str&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41; \n      otherwise          \n       aAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41; \n      endcase [/code:3tkkobay]\n\nThis line is wrong:\n\n[code:3tkkobay]      case VALTYPE&#40;cField&#41; == &quot;D&quot; [/code:3tkkobay]\n\nIt will always be C since you are asking for the valtype() of the value in the var cField, which is the fieldname not the value of the data in the field.\n\nHowever you just need to remove ALL of the DO CASE and replace it with the line I gave you:\n\n[code:3tkkobay]   aadd&#40;aItems, cValToChar&#40; &#40;cFile&#41;-&gt;&amp;cField&#41; &#41; [/code:3tkkobay]\n\nThis handles all datatypes.\n\nJames','',0,'AIA=','3tkkobay',1,0,'',303,0,0),(26820,5989,6,72,0,'189.146.239.227',1171655550,1,0,1,1,1,0,'','','Mmm... algún día me sucedió algo similar e igualmente pensé en llegar al límite.\n\nDespues de revisar y no se porque motivo uno de los BMP estaba dañado, despues de quitarlo y volverlo a colocar se solucionó el problema.','',0,'AIA=','1nrpijmb',1,0,'',72,0,0),(26821,6003,6,103,0,'200.241.81.140',1171656015,1,0,1,1,1,1,'','Cambio en Errorsys','Hola,\n\n    Alguno de ustedes ha conseguido cambiar el errorsys de forma que solo se quite el programa si pulsarmos el botón QUIT, y si pulsarmos el botón SALIR el programa continue normalmente? Se si, donde puedo coger tal información?\n\nSaludos','',0,'AIA=','2l6m0wga',1,0,'',103,0,0),(26822,6004,3,103,0,'200.241.81.140',1171656291,1,0,1,1,1,1,'','Changing Errorsys','Hi all,\n\n   Has anyone changed the errorsys in order to quit the program only if we pulse the button QUIT? My idea is if we pulse other button, the program continues normally without quit. Is it possible? If so, how can I do it in my errorsys?\n\nBest Regards,','',0,'AIA=','18ni1apc',1,0,'',103,0,0),(26823,5998,3,148,0,'196.205.175.52',1171658608,1,0,1,1,1,0,'','','Oka I got it .\n\n[code:2pbmun6m]\n\n&#46;&#46;\nV_ct_strd   &#58;=dtoc&#40;mach-&gt;MC_CT_strd&#41;\nV_ct_endd   &#58;=dtoc&#40;mach-&gt;MC_CT_endd&#41;\nV_MC_indate &#58;=dtoc&#40;mach-&gt;MC_indate&#41;\n\n&#46;&#46;\n&#46;&#46;\n@ 15, 190 COMBOBOX &#40;V_ct_strd&#41; ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_strd&quot;&#41; size 80,80 OF oDlg PIXEL\n\n\nfunction aBase1&#40;workarea,cFile,xx,cField&#41;\n*--------------------------------\n  local aItems&#58;=&#123;&#125;\n  local y&#58;=0\n  local tempntx&#58;=&quot;&quot;\n  aAdd&#40;aItems,space&#40;256&#41;&#41; //Put First element empty\n\n  use &#40;cFile&#41; new\n  \n  index on &amp;&#40;cField&#41; to temp\n\n  go top\n  do while ! eof&#40;&#41;\n  \n  y&#58;=ASCAN&#40;aItems, &#40;cFile&#41;-&gt;&amp;cField&#41;\n  		\n      \n   \n  if y==0\n  \n  \n      	    aadd&#40;aItems, cValToChar&#40; &#40;cFile&#41;-&gt;&amp;cField&#41; &#41; \n\n        dbSkip&#40;&#41;\n        else\n        dbSkip&#40;&#41;\n     endif\n\n  enddo\n  *use\n  ferase&#40;&quot;temp&#46;ntx&quot;&#41;\n  *select&#40;nArea&#41;\n  *use nselect\nreturn aItems\n[/code:2pbmun6m]\n\nBUT Still this line below cause not dates to be unique .\n\nThe code working good accept this line below . I mean dates are repeated which is not required .\n\n[code:2pbmun6m]\ny&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;cField&#41;\n[/code:2pbmun6m]','',0,'AIA=','2pbmun6m',1,0,'',148,0,0),(26824,5998,3,303,0,'72.199.41.171',1171664702,1,0,1,1,1,0,'','','Ehab,\n\nYou also need to change that line:\n\n[code:30od0883] y&#58;=ASCAN&#40;aItems, cValToChar&#40; &#40;cFile&#41;-&gt;&amp;cField &#41; &#41; [/code:30od0883]\n\nYou can also eliminate the indexing of the DBF and then just sort the array after it is filled.\n\n[code:30od0883]aItems&#58;= Asort&#40; aItems &#41;[/code:30od0883]\n\n\nJames','',0,'AIA=','30od0883',1,0,'',303,0,0),(26825,6004,3,6,0,'87.21.195.61',1171665069,1,0,1,1,1,1,'','Re: Changing Errorsys','It\'s only possible for recoverable errors. You can BREAK if you want let the main program to handle the error, return .T. to retry the operation or return .F. to ignore the error.\n\nEMG','',0,'AIA=','1rsy85ye',1,0,'',6,0,0),(26826,6003,6,138,0,'189.141.72.59',1171666056,1,0,1,1,1,1,'','','No es tan facil, continuar o no la ejecucion de un programa depende del tipo de error que se haya generado, algunos errores pueden \"reintentar\" pero otros requieren que la aplicacion se aborte.\n\nClipper posee un \"objeto Error\" y (x)Harbour hereda dicho comportamiento, funciona asi:\n\nExiste una funcion \"global\" llamada ErrorBlock(), que recibe como parámetro un bloque de código el cual a su vez puede recibe como parametro el objeto error, el bloque de codigo lleva una funcion a la cual se va a llamar cuando el programa cause un error:\n\nErrorBlock({|oError| MiControlDeErrores(oError)})\n\nTan simple como eso, cuando tu programa cause un error, se llama de manera automatica a la funcion MiControlDeErrores() y ahi, tu puedes escribir lo que tu quieras que pase con los errores.\n\nLo mas facil es hacer:\n\nFuncion MiControlDeErrores(oError)\n   QUIT\nRETURN\n\nAsi el programa directamente se sale sin hacer mas preguntas.\n\nFiveWin tiene el Errsysw.prg que contiene la función que controla los errores en tiempo de ejecucion de FiveWin, esta en \\source\\function. Esta funcion \"analiza\" el objeto error y en base a eso dibuja el dialogo muestra el listado de errores y dependiendo del estado del error muestra los botones correspondientes, en algunos casos, dependiendo de la serveridad del error sera el \"Default\", en otras el \"Retry\" y en otras directamente el \"Quit\", pero todo esto vienen de analizar las datas del objeto error.\n\nPara mas informacion sobre las propiedades del objeto ERROR las puedes encontrar en el manual de Clipper.','',0,'AIA=','2xfymqmo',1,0,'',138,0,0),(26827,5990,3,300,0,'200.193.222.50',1171668626,1,0,1,1,1,0,'','','Hi Jeff, if you work with pelles or other resource editor change auto  radiobox and auto checkbox to radiobox and checkbox. Just it.','',0,'AIA=','3dpga79r',1,0,'',300,0,0),(26828,6004,3,103,0,'200.165.6.86',1171670128,1,0,1,1,1,1,'','','Hi Enrico,\n\n     Thanks (as always) for your answer. I was looking at a program made in Delphi where all the errors are showed, but the user can ignore them and come back to the program. Which cases are non recoverable errors? Do you have an example to show it?\n\nbest regards,','',0,'AIA=','2tsvjxok',1,0,'',103,0,0),(26829,6003,6,103,0,'200.165.6.86',1171670882,1,0,1,1,1,1,'','','Maestro Rene,\n\n    Gracias por la aclaración. Lo que pasa es que en el Errsysw.prg de Fivewin me muestra siempre la misma pantalla con los mismos botones, no importando si el error es un error que se pueda intentar nuevamente o no. Por eso pregunto se si puede \"forzar\" la diferenciación de un error y otro, y asi hacer una \"configuración\" del errorsys.\n\nSaludos,','',0,'AIA=','2jz8xliz',1,0,'',103,0,0),(26830,5989,6,98,0,'70.71.111.92',1171674154,1,0,1,1,1,1,'','','Raymundo, Armando, Alfredo:\n\nAl parecer BCC tiene un límite de máx un mega para archivos .res.\nAsí que creamos un segundo .rc en donde iremos agregando nuevos recursos.  \n\nParece ser que con VC no hay este problema, pero de momento hay no hay posibilidad de usar VC en lugar de Borland.\n\nComo es factible manejar más de un .rc/.res con el ejecutable, no hay mayor problema en dividir el .rc en varios archivos para mentener el resultante .res debajo del mega.\n\nSaludos y gracias por sus comentarios.\n\nLuis Krause','',0,'AIA=','1sz7savg',1,0,'',98,0,0),(26831,5988,3,98,0,'70.71.111.92',1171674347,1,0,1,1,1,1,'','Re: Limit to the size of a .res file?','Richard:\n\n[quote=&quot;Richard Chidiak&quot;:3l2qkrqi]Yes it is unfortunately a memory limit from Borland\n\nI have been through this\n\nSplit your rc files into several ones. This is not a problem.\n[/quote:3l2qkrqi]\n\nIndeed, splitting the .rc in 2 files and generating 2 .res solves the problem.\nIf only ilink32\'s error msg was a bit more descriptive it would solve the headache to figure out the problem.\n\nI now know to keep the .res file under a meg in size before running into trouble.\n\nThanks!\n\nLuis Krause','',0,'gA==','3l2qkrqi',1,0,'',98,0,0),(26832,6001,3,308,0,'84.148.18.63',1171678934,1,0,1,1,1,0,'','Re: Can we paint transparant group box on gradiated dialog','[quote=&quot;RAMESHBABU&quot;:2vk4fxrt]Hi Friends\n\nAs subject\n\n[url=http&#58;//img233&#46;imageshack&#46;us/my&#46;php?image=groupeo3&#46;png:2vk4fxrt][img:2vk4fxrt]http&#58;//img233&#46;imageshack&#46;us/img233/6300/groupeo3&#46;th&#46;png[/img:2vk4fxrt][/url:2vk4fxrt]\n\nRegards\n\n- Ramesh Babu P[/quote:2vk4fxrt]\n\nPlease check:\n[code:2vk4fxrt]\nREDEFINE GROUP oGrp001 ID 10018 PROMPT &quot;Caption&quot; OF oDlg TRANSPARENT\n[/code:2vk4fxrt]\nRegards, Norbert','',0,'mIA=','2vk4fxrt',1,0,'',308,0,0),(26833,6005,6,492,0,'189.147.26.147',1171681264,1,0,1,1,1,1,'','Antonio, es posible VScroll a un dialogo desde recursos ?','Hola Antonio\n\n- Se podra aplicar el TESTWSCR.PRG de la carpeta samples a un dialogo/folder con controles creados desde recursos ??\n\nMotivo : Por X razon a veces me falta 1 o 2 datos y el espacio se me acabo, y tengo que crear otra pestaña de un folder, si se le pusiera el scroll vertical, seria simplemente fabuloso !!!!\n\n\n\n- Y ya que ando con solicitudes alucinantes  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , sera posible incrustar un PreView dentro de un control en vez de una ventana ??\n\nMotivo : En un modulo de configuracion de impresiones, si deseo ajustar las coordenadas de algun reporte, tengo que seleccionar el boton [Probar] para que me aparezca el PreView, si se pudiera llamar desde X funcion, se actualizaria al momento los ajustes en dicho control.\n\n\nNo se, quizas tome mucha Coca-Cola el dia de hoy  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n\nSaludos','',0,'','ofikp40y',1,0,'',492,0,0),(26834,6006,2,812,0,'201.214.35.214',1171682863,1,0,1,1,1,0,'','Para Sebastián Almirón','Sebastian:\n\nAplique lo que me indicastes para colocar el fondo de pantalla en mi aplicacion, pero algo no estoy haciendo bien. No muestra ningun logo, y si declaro oBmplogo como local, el la rutina me dice que no existe esta variable.\n\nNOTA: Uso Clipper 5.3b, FW 2.4 y Blinker 7.0\n\nPor tu ayuda, muchas gracias.\n\nSaludos,\nMiguel\n\n\nEl archivo BMP, se llama FONDO.BMP\n   Defino de esta forma:\n\nDEFINE WINDOW oWnd TITLE \'Sistema Inmobiliaria\' BRUSH oBru Menu Menu() MDI ICON oIco ;\n       COLOR Rgb( 130, 130, 130 ), Rgb( 130, 130, 130 )\n::\n::\n::\n\n    oWnd:bResized := {|| Inilogo() }\n    ACTIVATE WINDOW oWnd MAXIMIZED;\n      ON INIT Inilogo() VALID MsgYesNo( \"¿Salir del Programa?\", cVersion )\n\nRutina Inilogo(), Ojo Valtype(oBmplogo) = O\n\n\nFunction IniLogo()\nlocal aclirect := getclientRect(oWnd:hWnd)\n\nif valtype(oBmplogo) = \'O\'\n  oBmpLogo:End()\nendif\n\n@ -100, -100 BITMAP oBmplogo RESOURCE \'FONDO.BMP\' ADJUST OF oWnd PIXEL NO BORDER\n\noBmpLogo:nTop := int( (aclirect[3]/2) - (int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )/2) )\noBmpLogo:nLeft := int( (aclirect[4]/2) - (int( aclirect[4]*36/100 )/2) )\noBmpLogo:nHeight := int( (int( aclirect[4]*36/100 )*oBmpLogo:nHeight)/oBmpLogo:nWidth )\noBmpLogo:nWidth := int( aclirect[4]*36/100 )\noBmpLogo:Refresh()\n\nreturn nil','',0,'','vz9nwxyh',1,0,'',812,0,0),(26835,5988,3,397,0,'201.1.162.70',1171693413,1,0,1,0,1,1,'','','Friend\n\nAfter split your big .RC you need include the others .RCs into .RC master:\n\nYou have a SYSTEM.RC and split into two parts:\n\nMASTER.RC\n[code:2w1r3yiz]\n#include &quot;SYSTEM1&#46;RC&quot;\n#include &quot;SYSTEM2&#46;RC&quot;\n[/code:2w1r3yiz]\n\nExample:\n\nSYSTEM1.RC contains DIALOGS\nSYSTEM2.RC contains BITMAPS and ICONS','',0,'AIA=','2w1r3yiz',1,0,'',397,0,0),(26836,5978,3,397,0,'201.1.162.70',1171694096,1,0,1,0,1,1,'','','My thanks too!','',0,'AIA=','1cii4nxg',1,0,'',397,0,0),(26837,6005,6,397,0,'201.1.162.70',1171694614,1,0,1,0,1,1,'','','Hi\n\nThis is a code for scroll in dialogs modified for a Brazilian friend:\n\n[code:10vba97n]\n// Testing how to scroll a dialog with its contents \n\n#include &quot;FiveWin&#46;ch&quot; \n\n#define D_WIDTH           4 \n#define D_HEIGHT          13 \n\nFUNCTION Main&#40;&#41; \n\nLOCAL oDlg \nLOCAL cGet0101 &#58;= space&#40;10&#41;,  ; //Row 1 \n      cGet0102 &#58;= space&#40;10&#41;,  ; \n      cGet0103 &#58;= space&#40;10&#41;,  ; \n      cGet0104 &#58;= space&#40;10&#41;,  ; \n      cGet0105 &#58;= space&#40;10&#41;,  ; \n      cGet0201 &#58;= space&#40;10&#41;,  ; //Row 2 \n      cGet0202 &#58;= space&#40;10&#41;,  ; \n      cGet0203 &#58;= space&#40;10&#41;,  ; \n      cGet0204 &#58;= space&#40;10&#41;,  ; \n      cGet0205 &#58;= space&#40;10&#41;,  ; \n      cGet0301 &#58;= space&#40;10&#41;,  ; //Row 3 \n      cGet0302 &#58;= space&#40;10&#41;,  ; \n      cGet0303 &#58;= space&#40;10&#41;,  ; \n      cGet0304 &#58;= space&#40;10&#41;,  ; \n      cGet0305 &#58;= space&#40;10&#41;,  ; \n      cGet0401 &#58;= space&#40;10&#41;,  ; //Row 4 \n      cGet0402 &#58;= space&#40;10&#41;,  ; \n      cGet0403 &#58;= space&#40;10&#41;,  ; \n      cGet0404 &#58;= space&#40;10&#41;,  ; \n      cGet0405 &#58;= space&#40;10&#41;,  ; \n      cGet0501 &#58;= space&#40;10&#41;,  ; //Row 5 \n      cGet0502 &#58;= space&#40;10&#41;,  ; \n      cGet0503 &#58;= space&#40;10&#41;,  ; \n      cGet0504 &#58;= space&#40;10&#41;,  ; \n      cGet0505 &#58;= space&#40;10&#41;,  ; \n      cGet0601 &#58;= space&#40;10&#41;,  ; //Row 6 \n      cGet0602 &#58;= space&#40;10&#41;,  ; \n      cGet0603 &#58;= space&#40;10&#41;,  ; \n      cGet0604 &#58;= space&#40;10&#41;,  ; \n      cGet0605 &#58;= space&#40;10&#41;,  ; \n      cGet0701 &#58;= space&#40;10&#41;,  ; //Row 7 \n      cGet0702 &#58;= space&#40;10&#41;,  ; \n      cGet0703 &#58;= space&#40;10&#41;,  ; \n      cGet0704 &#58;= space&#40;10&#41;,  ; \n      cGet0705 &#58;= space&#40;10&#41;,  ; \n      cGet0801 &#58;= space&#40;10&#41;,  ; //Row 8 \n      cGet0802 &#58;= space&#40;10&#41;,  ; \n      cGet0803 &#58;= space&#40;10&#41;,  ; \n      cGet0804 &#58;= space&#40;10&#41;,  ; \n      cGet0805 &#58;= space&#40;10&#41;,  ; \n      cGet0901 &#58;= space&#40;10&#41;,  ; //Row 9 \n      cGet0902 &#58;= space&#40;10&#41;,  ; \n      cGet0903 &#58;= space&#40;10&#41;,  ; \n      cGet0904 &#58;= space&#40;10&#41;,  ; \n      cGet0905 &#58;= space&#40;10&#41;,  ; \n      cGet1001 &#58;= space&#40;10&#41;,  ; //Row 10 \n      cGet1002 &#58;= space&#40;10&#41;,  ; \n      cGet1003 &#58;= space&#40;10&#41;,  ; \n      cGet1004 &#58;= space&#40;10&#41;,  ; \n      cGet1005 &#58;= space&#40;10&#41;,  ; \n      cGet1101 &#58;= space&#40;10&#41;,  ; //Row 11 \n      cGet1102 &#58;= space&#40;10&#41;,  ; \n      cGet1103 &#58;= space&#40;10&#41;,  ; \n      cGet1104 &#58;= space&#40;10&#41;,  ; \n      cGet1105 &#58;= space&#40;10&#41; \n\n   define dialog oDlg from 0, 0 TO 25, 70 ; \n         title &quot;Scroll dialog&quot;            ; \n         Style nor&#40; WS_VSCROLL, WS_HSCROLL &#41; \n\n   @ 9,17 bitmap file &quot;&#46;&#46;\\bitmaps\\pic1&#46;bmp&quot; of oDlg size 120,148 adjust \n   @ 9,32 bitmap file &quot;&#46;&#46;\\bitmaps\\pic2&#46;bmp&quot; of oDlg size 120,148 adjust \n   @ 9,47 bitmap file &quot;&#46;&#46;\\bitmaps\\pic3&#46;bmp&quot; of oDlg size 120,148 adjust \n   @ 9,62 bitmap file &quot;&#46;&#46;\\bitmaps\\pic4&#46;bmp&quot; of oDlg size 120,148 adjust \n   @ 9,77 bitmap file &quot;&#46;&#46;\\bitmaps\\pic5&#46;bmp&quot; of oDlg size 120,148 adjust \n\n   @ 21*13,02*8 say &quot;Customer &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 23*13,02*8 say &quot;P&#46;O&#46; #   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 25*13,02*8 say &quot;Style No&#46;&quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 27*13,02*8 say &quot;Fabrics  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 29*13,02*8 say &quot;Fob      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 31*13,02*8 say &quot;Q\'TY     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 33*13,02*8 say &quot;DEL&#46;     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 35*13,02*8 say &quot;MAKER    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 37*13,02*8 say &quot;QTA      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 39*13,02*8 say &quot;SIZE     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 41*13,02*8 say &quot;Size B/D &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 43*13,02*8 say &quot;REMARKS  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n\n   @ 21*13,17*8 say &quot;Venture  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 21*13,32*8 say &quot;Sears    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 21*13,47*8 say &quot;Kohl\'s   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 21*13,62*8 say &quot;Kiss     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n   @ 21*13,77*8 say &quot;K-MART   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel \n\n   //-* Row 1 \n   @ 23*13,17*8 get cGet0101 size 120,26 of oDlg update pixel \n   @ 23*13,32*8 get cGet0102 size 120,26 of oDlg update pixel \n   @ 23*13,47*8 get cGet0103 size 120,26 of oDlg update pixel \n   @ 23*13,62*8 get cGet0104 size 120,26 of oDlg update pixel \n   @ 23*13,77*8 get cGet0105 size 120,26 of oDlg update pixel \n\n   //-* Row 2 \n   @ 25*13,17*8 get cGet0201 size 120,26 of oDlg update pixel \n   @ 25*13,32*8 get cGet0202 size 120,26 of oDlg update pixel \n   @ 25*13,47*8 get cGet0203 size 120,26 of oDlg update pixel \n   @ 25*13,62*8 get cGet0204 size 120,26 of oDlg update pixel \n   @ 25*13,77*8 get cGet0205 size 120,26 of oDlg update pixel \n\n   //-* Row 3 \n   @ 27*13,17*8 get cGet0301 size 120,26 of oDlg update pixel \n   @ 27*13,32*8 get cGet0302 size 120,26 of oDlg update pixel \n   @ 27*13,47*8 get cGet0303 size 120,26 of oDlg update pixel \n   @ 27*13,62*8 get cGet0304 size 120,26 of oDlg update pixel \n   @ 27*13,77*8 get cGet0305 size 120,26 of oDlg update pixel \n\n   //-* Row 4 \n   @ 29*13,17*8 get cGet0401 size 120,26 of oDlg update pixel \n   @ 29*13,32*8 get cGet0402 size 120,26 of oDlg update pixel \n   @ 29*13,47*8 get cGet0403 size 120,26 of oDlg update pixel \n   @ 29*13,62*8 get cGet0404 size 120,26 of oDlg update pixel \n   @ 29*13,77*8 get cGet0405 size 120,26 of oDlg update pixel \n\n   //-* Row 5 \n   @ 31*13,17*8 get cGet0501 size 120,26 of oDlg update pixel \n   @ 31*13,32*8 get cGet0502 size 120,26 of oDlg update pixel \n   @ 31*13,47*8 get cGet0503 size 120,26 of oDlg update pixel \n   @ 31*13,62*8 get cGet0504 size 120,26 of oDlg update pixel \n   @ 31*13,77*8 get cGet0505 size 120,26 of oDlg update pixel \n\n   //-* Row 6 \n   @ 33*13,17*8 get cGet0601 size 120,26 of oDlg update pixel \n   @ 33*13,32*8 get cGet0602 size 120,26 of oDlg update pixel \n   @ 33*13,47*8 get cGet0603 size 120,26 of oDlg update pixel \n   @ 33*13,62*8 get cGet0604 size 120,26 of oDlg update pixel \n   @ 33*13,77*8 get cGet0605 size 120,26 of oDlg update pixel \n\n   //-* Row 7 \n   @ 35*13,17*8 get cGet0701 size 120,26 of oDlg update pixel \n   @ 35*13,32*8 get cGet0702 size 120,26 of oDlg update pixel \n   @ 35*13,47*8 get cGet0703 size 120,26 of oDlg update pixel \n   @ 35*13,62*8 get cGet0704 size 120,26 of oDlg update pixel \n   @ 35*13,77*8 get cGet0705 size 120,26 of oDlg update pixel \n\n   //-* Row 8 \n   @ 37*13,17*8 get cGet0801 size 120,26 of oDlg update pixel \n   @ 37*13,32*8 get cGet0802 size 120,26 of oDlg update pixel \n   @ 37*13,47*8 get cGet0803 size 120,26 of oDlg update pixel \n   @ 37*13,62*8 get cGet0804 size 120,26 of oDlg update pixel \n   @ 37*13,77*8 get cGet0805 size 120,26 of oDlg update pixel \n\n   //-* Row 9 \n   @ 39*13,17*8 get cGet0901 size 120,26 of oDlg update pixel \n   @ 39*13,32*8 get cGet0902 size 120,26 of oDlg update pixel \n   @ 39*13,47*8 get cGet0903 size 120,26 of oDlg update pixel \n   @ 39*13,62*8 get cGet0904 size 120,26 of oDlg update pixel \n   @ 39*13,77*8 get cGet0905 size 120,26 of oDlg update pixel \n\n   //-* Row 10 \n   @ 41*13,17*8 get cGet1001 size 120,26 of oDlg update pixel \n   @ 41*13,32*8 get cGet1002 size 120,26 of oDlg update pixel \n   @ 41*13,47*8 get cGet1003 size 120,26 of oDlg update pixel \n   @ 41*13,62*8 get cGet1004 size 120,26 of oDlg update pixel \n   @ 41*13,77*8 get cGet1005 size 120,26 of oDlg update pixel \n\n   //-* Row 11 \n   @ 43*13,17*8 get cGet1101 size 120,26 of oDlg update pixel \n   @ 43*13,32*8 get cGet1102 size 120,26 of oDlg update pixel \n   @ 43*13,47*8 get cGet1103 size 120,26 of oDlg update pixel \n   @ 43*13,62*8 get cGet1104 size 120,26 of oDlg update pixel \n   @ 43*13,77*8 get cGet1105 size 120,26 of oDlg update pixel \n\n\n   @ 50,20 button &quot;&amp;Ok&quot; size 80,20 of oDlg   ; \n      action &#40;MsgInfo&#40;&quot;You click OK button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41; \n   @ 50,40 button &quot;&amp;Cancel&quot; size 80,20 of oDlg  ; \n      action &#40;MsgInfo&#40;&quot;You click Cancel button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41; \n\n   ACTIVATE dialog oDlg    ; \n      ON INIT &#40; TScrDlg&#40;&#41;&#58;New&#40;oDlg,1,40,1,70&#41; &#41; \n\nRETURN&#40; NIL &#41; \n\n//============================================================================ \n// FileName &#58; SCROLL&#46;PRG \n// Purpose  &#58;  dialog Scroll Class \n// Author   &#58; Eric Yang \n// Update History &#58; \n//      Date     Contents \n//    ---------- --------------------------------------------------------------- \n//    1997&#46;02&#46;01 \n// \n//============================================================================ \n#include &quot;FiveWin&#46;ch&quot; \n\n#ifndef TRUE \n   #define TRUE              &#46;T&#46; \n   #define FALSE             &#46;F&#46; \n#endif \n\nCLASS TScrDlg \n\n   DATA oDlg \n   DATA nVPos,nHPos \n\n   METHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR \n   METHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; \n   //-*------------------------------------------------------------ \n   METHOD VScroll&#40;&#41; \n   METHOD VScrollThumb&#40;&#41; \n   METHOD VScrollTrack&#40;&#41; \n   METHOD VScrollPgDown&#40;&#41; \n   METHOD VScrollPgUp&#40;&#41; \n   //-*----------------------------- \n   METHOD HScroll&#40;&#41; \n   METHOD HScrollThumb&#40;&#41; \n   METHOD HScrollTrack&#40;&#41; \n   METHOD HScrollPgDown&#40;&#41; \n   METHOD HScrollPgUp&#40;&#41; \n\nENDCLASS \n\nMETHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg \n   &#58;&#58;nVPos &#58;= 0 \n   &#58;&#58;nHPos &#58;= 0 \n   &#58;&#58;oDlg &#58;= oDlg \n   &#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41; \nRETURN Self \n\n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg \nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125; \n   //-------------------------------------------------- \n   //-* Vertical Scroll Bar \n//   ? &#58;&#58;oDlg&#58;oVSCroll=NIL \n   if &#58;&#58;oDlg&#58;oVScroll != NIL \n//    ? nV1,nV2 \n      &#58;&#58;oDlg&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41; \n      &#58;&#58;nVPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep   &#58;= 10 \n      //&#58;&#58;oDlg&#58;oVScroll&#58;lReDraw &#58;= TRUE \n      &#58;&#58;oDlg&#58;oVScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125; \n      &#58;&#58;oDlg&#58;oVScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125; \n   endif \n   //-------------------------------------------------- \n   //-* Horizontal Scroll Bar \n   if &#58;&#58;oDlg&#58;oHScroll != NIL \n      &#58;&#58;oDlg&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41; \n      &#58;&#58;nHPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep   &#58;= 10 \n      //&#58;&#58;oDlg&#58;oHScroll&#58;lReDraw &#58;= TRUE \n      &#58;&#58;oDlg&#58;oHScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125; \n      &#58;&#58;oDlg&#58;oHScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125; \n   endif \n   //&#58;&#58;oDlg&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125; \n   //-------------------------------------------------- \nRETURN&#40; NIL &#41; \n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41; \n   //MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41; \n   //if nKey == K_ENTER \n   //   goMainDlg&#58;End&#40;&#41; \n   //   lRetVal &#58;= TRUE \n   //endif \n//RETURN&#40; NIL &#41; \n\n//================================================================= \n//-* Vertical Scroll Bar \nMETHOD VScroll&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41; \n      SysRefresh&#40;&#41; \n\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40;  &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nVPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax, &#58;&#58;oDlg&#58;oVScroll&#58;nMax, nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nVPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin \n      nNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin,&#58;&#58;oDlg&#58;oVScroll&#58;nMin,nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ; \n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nVPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\n//================================================================= \n//-* Horizontal Scroll Bar \nMETHOD HScroll&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrDlg \n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ; \n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nHPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax \n      nNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax, &#58;&#58;oDlg&#58;oHScroll&#58;nMax, nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrDlg \nLOCAL nNewPos \n   if &#58;&#58;nHPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin \n      nNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep \n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin,&#58;&#58;oDlg&#58;oHScroll&#58;nMin,nNewPos&#41; \n      SysRefresh&#40;&#41; \n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ; \n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ; \n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41; \n      &#58;&#58;nHPos &#58;= nNewPos \n   endif \nRETURN&#40; NIL &#41; \n\n//=* End of File ================================================= \n\nprocedure AppSys   // Xbase++ requirement \nreturn \n[/code:10vba97n]','',0,'AIA=','10vba97n',1,0,'',397,0,0),(26838,6007,3,487,0,'151.42.230.219',1171694845,1,0,1,1,1,0,'','Scrolling get in listbox','Hello all,\n\nin the example below, when clicking a field, the get is not scrolling, even if \"@S\". How can I do to have it scrolling ?\n\nTIA,\nDavide.\n\n[code:8hq4z7zb]REDEFINE LISTBOX oLst ;\n         FIELDS aIniSeq&#91;oLst&#58;nAt,1&#93; , aIniSeq&#91;oLst&#58;nAt,2&#93; ;\n         ID 134 OF oDlg         ;\n         TITLE  &quot;Entry&quot;,&quot;Value&quot;\n\noLst&#58;SetArray&#40;aIniSeq&#41;\noLst&#58;blDblClick&#58;= &#123;|| oLst&#58;lEditCol&#40; 2, @aIniSeq&#91;oLst&#58;nAt,2&#93;,&quot;@S&quot;,, CLR_RED, CLR_WHITE&#41;, ;\n                      oLst&#58;Refresh&#40;&#41; &#125;[/code:8hq4z7zb]','',0,'AIA=','8hq4z7zb',1,0,'',487,0,0),(26839,5993,6,397,0,'201.1.162.70',1171694965,1,0,1,0,1,1,'','','Amigo:\n\nMira los posts:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5695&amp;highlight=webcam\">http://fivetechsoft.com/forums/viewtopi ... ght=webcam</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2501\">http://fivetechsoft.com/forums/viewtopic.php?t=2501</a><!-- m -->','',0,'AIA=','iqidmnmm',1,0,'',397,0,0),(26840,5999,3,3,0,'82.64.194.155',1171697563,1,0,1,1,1,1,'','Re: problem with focus in GET-class','Enico\n\nYou\'re right (as usual)\n\nI wrote the sentence a bit quickly...\n\nBest regards\n\nRichard','',0,'AIA=','1pfbmzhu',1,0,'',3,0,0),(26841,5963,4,2,0,'87.218.146.160',1171698804,1,0,1,1,1,1,'','','Richard,\n\nWe are searching info for WriteFile() use to manage unsigned chars','',0,'AIA=','lr2elf55',1,0,'',2,0,0),(26842,6007,3,487,0,'151.42.230.219',1171699164,1,0,1,1,1,0,'','Re: Scrolling get in listbox','I\'ve found that even without the \"@S\" in reality it scrolls, but not exactly when reaching the right border. \n\nIt seems to me it starts scrolling when I input text for pretty double the size of the get (and obviously I cannot see the rightmost words).\n\nI tried also with more columns, by using FIELDSIZES and by resizing them at runtime.\n\nMay it be due to the difference in coordinates between windows and dialogs ?','',0,'AIA=','5spempzf',1,0,'',487,0,0),(26843,5963,4,3,0,'82.64.194.155',1171699265,1,0,1,1,1,1,'','','Antonio\n\nNo problem\n\nI have the printer available all week end if you need some testing.\n\nLet me know.\n\nRichard','',0,'AIA=','3ejgyixs',1,0,'',3,0,0);
INSERT INTO `phpbb_posts` VALUES (26844,5998,3,148,0,'196.205.175.52',1171702086,1,0,1,1,1,0,'','','editmach module goes well with with lAppend=.f. (update option ) but with lAppend=.t. (New record) I had the alltrim argument error message.\n\n[code:1o27t50z]\nstatic function Editmach&#40;oLbx,lAppend&#41;\n//------------------------------------------\n&#46;&#46;\nLocal V_ct_strd&#58;=ctod&#40;&quot;  /  /    &quot;&#41;\nLocal V_ct_endd&#58;=ctod&#40;&quot;  /  /    &quot;&#41;\n&#46;&#46;\n   DEFAULT lAppend &#58;= &#46;f&#46;\n&#46;&#46;\nif lAppend\n   GOTO BOTTOM\n   SKIP\nelse\n   goto nOldRec\nV_ct_strd   &#58;=dtoc&#40;mach-&gt;MC_CT_strd&#41;\nV_ct_endd   &#58;=dtoc&#40;mach-&gt;MC_CT_endd&#41;\n\nendif\n\n\n\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 650, 1000 PIXEL;\n      TITLE If&#40; lAppend, &quot;New Machine&quot;, &quot;Machine Update&quot; &#41;\n\n\n   @ 1,1 SAY &quot;&amp;Account No&#46;&quot; OF oDlg PIXEL\n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 COMBOBOX V_CU_ACCT ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_cu_acct&quot;&#41; size 80,80 OF oDlg PIXEL\n\n\n   @ 1,150 SAY &quot;&amp;Name&quot; OF oDlg PIXEL\n   @ 1,180 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 1,190 COMBOBOX V_CU_NAME ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_cu_name&quot;&#41; size 150,120 OF oDlg PIXEL\n\n\n   @ 15, 1 SAY &quot;Contract Name&quot; OF oDlg PIXEL\n   @ 15, 50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 COMBOBOX V_ct_ctna ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_ctna&quot;&#41; size 80,80 OF oDlg PIXEL\n\n   @ 15, 150 SAY &quot;Start Date&quot; OF oDlg PIXEL\n   @ 15, 180 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15, 190 COMBOBOX &#40;V_ct_strd&#41; ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_strd&quot;&#41; size 80,80 OF oDlg PIXEL\n\n\n   @ 15, 300 SAY &quot;End Date&quot; OF oDlg PIXEL\n   @ 15, 350 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15, 360 COMBOBOX &#40;V_ct_endd&#41; ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_endd&quot;&#41; size 80,80 OF oDlg PIXEL\n&#46;&#46;\n&#46;&#46;\n[/code:1o27t50z]','',0,'AIA=','1o27t50z',1,0,'',148,0,0),(26845,5963,4,2,0,'87.218.146.160',1171702804,1,0,1,1,1,1,'','','Richard,\n\nCould you please try this:\n[code:2rvqm0y3]\nHB_FUNC&#40; WRITE233 &#41; // hComm --&gt; lOk \n&#123; \n   DWORD cBytes; \n   unsigned char ch = 233; \n    \n   hb_retl&#40; &#40; BOOL &#41; WriteFile&#40; &#40; void * &#41; hb_parnl&#40; 1 &#41;, &amp;ch, 1, &amp;cBytes, NULL &#41; &#41;; \n&#125;\n[/code:2rvqm0y3]\nJust to check if 233 ascii gets properly printed, thanks','',0,'AIA=','2rvqm0y3',1,0,'',2,0,0),(26846,5963,4,3,0,'82.64.194.155',1171704019,1,0,1,1,1,1,'','','Antonio\n\nNo it is not good\n\nThis is the sample i am using (just to check the syntax)\n\nI had to remove the INT RC (compile error)\n\n#include \"C:\\FWPPC\\INCLUDE\\FWCE.ch\"\n\n#define GENERIC_READ    0x80000000\n#define GENERIC_WRITE   0x40000000\n#define GENERIC_REWRITE 0xC0000000\n#define OPEN_EXISTING   3\n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n#define FILE_FLAG_OVERLAPPED  0x40000000\n\n#define WriteByte _WriteByte\n\nfunction Main()\nLOCAL I      := 0, ;\n      CTEXTE := SPACE(30), ;\n      HOUT\n\nhOut := CreateFile( \"COM5:\",GENERIC_REWRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n\nCTEXTE := \"Désignation à suivre €\"\nSENDTEXT(hout,Ctexte)\nCloseHandle( hOut )\n\nRETURN Nil\n\nfunction SendText( hOut, cText )\n\n   local n\n\n   for n = 1 to Len( cText )\n      WriteByte( hOut, Asc( SubStr( cText, n, 1 ) ) )\n   next\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\n#include &lt;aygshell.h&gt;\n\nHB_FUNC( _WRITEBYTE ) // hComm, nChar --&gt; lOk\n{\n   DWORD cBytes;\n   unsigned char ch = 233;\n//   unsigned char ch = ( unsigned char ) hb_parnl( 2 );\n\n   hb_retl( ( BOOL ) WriteFile( ( void * ) hb_parnl( 1 ), &amp;ch, 1, &amp;cBytes, NULL ) );\n}\n\n#pragma ENDDUMP','',0,'AIA=','1x0tzs3q',1,0,'',3,0,0),(26847,6005,6,15,0,'211.74.227.252',1171706832,1,0,1,1,1,0,'','','Hello Rochinha,\n\nThanks your sample code. \nIt\'s working.\n\nRegards,\n\nRichard','',0,'AIA=','2bewibx5',1,0,'',15,0,0),(26848,5963,4,6,0,'87.16.223.206',1171710946,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:dhw2rkep][code:dhw2rkep]\nHB_FUNC&#40; WRITE233 &#41; // hComm --&gt; lOk \n&#123; \n   DWORD cBytes; \n   unsigned char ch = 233; \n    \n   hb_retl&#40; &#40; BOOL &#41; WriteFile&#40; &#40; void * &#41; hb_parnl&#40; 1 &#41;, &amp;ch, 1, &amp;cBytes, NULL &#41; &#41;; \n&#125;\n[/code:dhw2rkep][/quote:dhw2rkep]\n\nWhy the cast to void *? It should be to HANDLE. But this is surely not the problem.\n\nEMG','',0,'gIA=','dhw2rkep',1,0,'',6,0,0),(26849,6008,3,67,0,'81.11.215.8',1171712436,1,0,1,1,1,0,'','Invoking &quot;Word.Application&quot; wityh ole','Hello,\n\nI am trying to make a very simple aplication :\n\n     Open a RTF-file with word.exe\n     The user can edit this file and MUST save or end word\n\nFirst i downloaded tWord.zip from patrick\'s site . I can compile , but i can not make a working sample as described.\n\nAny example is welcome\n\nFrank','',0,'gIA=','ie5irgtw',1,0,'',67,0,0),(26850,5983,6,426,0,'87.218.186.110',1171712591,1,0,1,1,1,0,'','','Adriano,\n\nCuando me refiero a \'consolidados\' quiero decir una dbf que, por ejemplo, contenga todos los datos hasta el día en que sabemos que ya no se van a cambiar, para no estar buscando en tantas tablas.\n\nSe me ocurren varias optimizaciones, pero me gustaría saber:\n1) Cuando se hace la consulta, siempre se traen todos los datos?\n2) que informacion viene en la tabla MA? obvimente indica los periodos, pero eso es algo que creo se pueden calcular conociendo la fecha inicial y final de la consulta.\n3) No uses tantos indicadores de alias. Es más rapido un select y trabajar  en el area actual. Algo como:\n\nSelect MA\nTEMP-&gt;(OrdSetFocus(3))\nTEMP-&gt;(GoTop())\n\nEs lo mismo que \nSelect MA\nSelect Temp\nOrdSetFocus(3)\nSelect MA\nSelect Temp\nTEMP-&gt;(GoTop())\nSelect MA\n\n4) No me doy cuenta para que esta el \n\n   TEMP-&gt;(DbSeek(MOVT-&gt;MV_NCTA))\n\nEn fin, creo que se pueden hacer algunas cosas para acelerar el proceso. Tambien hay que ver como se hace y muestra la consulta, ya que si le ponemos una progress bar y le vamos mostrando algo que le indique que el programa esta trabajando seguro que eso le calma la ansiedad.\n\nSaludos, \n\nCarlos.','',0,'gIA=','rvfegmb1',1,0,'',426,0,0),(26851,6004,3,6,0,'87.16.223.206',1171714141,1,0,1,1,1,1,'','','Unrecoverable errors are the ones with\n\n[code:tffu8wnr]oErr&#58;Severity = ES_CATASTROPHIC //3[/code:tffu8wnr]\n\nThis is a sample of error trapping:\n\n[code:tffu8wnr]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL nVar, oErr\n\n    ERRORBLOCK&#40; &#123; | oErr | Break&#40; oErr &#41; &#125; &#41;\n\n    BEGIN SEQUENCE\n        nVar *= 2\n    RECOVER USING oErr\n        ? &quot;oErr&#58;Description&quot;, oErr&#58;Description\n        ? &quot;oErr&#58;CanDefault&quot;, oErr&#58;CanDefault\n        ? &quot;oErr&#58;CanRetry&quot;, oErr&#58;CanRetry\n        ? &quot;oErr&#58;CanSubstitute&quot;, oErr&#58;CanSubstitute\n        ? &quot;oErr&#58;Severity&quot;, oErr&#58;Severity\n    END SEQUENCE\n\n    RETURN NIL[/code:tffu8wnr]\n\nEMG','',0,'AIA=','tffu8wnr',1,0,'',6,0,0),(26852,6008,3,6,0,'87.16.223.206',1171714269,1,0,1,1,1,1,'','Re: Invoking &quot;Word.Application&quot; wityh ole','To just open a file use\n\n[code:16s9k0wg]SHELLEXECUTE&#40; 0, 0, &quot;yourfilename&quot;, 0, 0, 1 &#41;[/code:16s9k0wg]\n\nEMG','',0,'AIA=','16s9k0wg',1,0,'',6,0,0),(26853,5990,3,69,0,'74.13.32.66',1171716133,1,0,1,1,1,0,'','','Thanks Everyone,  the problem is now solved.\n\nIt was a problem with the DLL file.  I removed the following entry and everything was fine.\n\n\n[img]\n<!-- m --><a class=\"postlink\" href=\"http://www.can-soft.net/dl/DLL.JPG\">http://www.can-soft.net/dl/DLL.JPG</a><!-- m -->\n[/img]\n\n\nJeff','',0,'','jhh1pl68',1,0,'',69,0,0),(26854,6002,6,9,0,'85.60.4.163',1171717018,1,0,1,1,1,1,'','','Marcelo, \n\nEl pasado dia 12/05/2006, ante otra duda con UPDATE, te contesté diciendote que yo habia tenido ese problema y que lo habia solucionado modificando la clase TGET, según una idea de Luis Krause. Te acompaño la contestación por si te sirviera de ayuda:\n\n\"Si el código anterior no funciona, estoy casi seguro, que el problema está en la clase TGET. Yo lo tuve hace tiempo y lo solucione gracias a LKM, añadiendo una línea en TGET en el Method EditUpdate(): \n\nMETHOD EditUpdate() CLASS TGet \n\nif ::oGet:HasFocus \n::DispText() \n::oGet:Assign() //LKM actualiza buffer actual \nendif \n\n::SetPos( ::oGet:Pos ) \n\nreturn nil','',0,'','usmi7twc',1,0,'',9,0,0),(26855,5957,6,104,0,'201.58.60.160',1171720382,1,0,1,1,1,0,'','','Olá Antonio,\n\nO problema é que eu estava fazendo chamada a certas funções dentro do método \"initiate\", mas fiz as mudanças necessárias e funcionou 100%  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n[code:2otgddnv]\nMETHOD New&#40; nTop, nLeft, aPrompts, aDialogs, oWnd, nOption, nClrFore,;\n            nClrBack, lPixel, lDesign, nWidth, nHeight, cMsg, lAllWidth,;\n            oFont, cMultline, aBitmaps &#41; CLASS TFolder       &amp;&amp; cMultline, aBitmaps = by Rossine\n\n&#46;&#46;&#46;\n\n   &#58;&#58;Register&#40;&#41;\n\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      #ifdef __CLIPPER__\n         &#58;&#58;Create&#40;&#41;\n      #else\n         &#58;&#58;Create&#40; &quot;SysTabControl32&quot; &#41;\n         if ! &#58;&#58;aBitmaps == nil   &amp;&amp; by Rossine &amp;&amp; 15/02/07\n            &#58;&#58;SetImageList&#40;&#41;      &amp;&amp; by Rossine &amp;&amp; 15/02/07\n         endif                    &amp;&amp; by Rossine &amp;&amp; 15/02/07\n         &#58;&#58;SetPrompts&#40; &#58;&#58;aPrompts &#41;\n      #endif\n      if oFont != nil\n         &#58;&#58;SetFont&#40; oFont &#41;\n      elseif oWnd != nil &#46;and&#46; oWnd&#58;oFont != nil\n         &#58;&#58;SetFont&#40; oWnd&#58;oFont &#41;\n      else\n         &#58;&#58;GetFont&#40;&#41;\n      endif\n      oWnd&#58;AddControl&#40; Self &#41;\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\n   for n = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      DEFINE DIALOG oDlg OF Self STYLE WS_CHILD  ;\n         FROM 0, 0 TO &#58;&#58;nHeight&#40;&#41; - &#58;&#58;nFdHeight - 5, &#58;&#58;nWidth&#40;&#41; - 6 PIXEL ;\n         FONT Self&#58;oFont color nClrFore, nClrBack\n      &#58;&#58;aDialogs&#91; n &#93; = oDlg\n      oDlg&#58;cVarName = &quot;Page&quot; + AllTrim&#40; Str&#40; n &#41; &#41;\n   next\n\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Default&#40;&#41;\n   endif\n\n   if lDesign\n      &#58;&#58;CheckDots&#40;&#41;\n   endif\n\n   SetWndDefault&#40; oWnd &#41;\n\n   &#58;&#58;AdjustRect&#40;&#41;  &amp;&amp; 15/02/07          &amp;&amp; by Rossine\n\nreturn Self\n[/code:2otgddnv]\n\n[code:2otgddnv]\nMETHOD Initiate&#40; hDlg &#41; CLASS TFolder\n\n   local n, oBmp &#58;= &#123; &#125;\n   local aRect\n\n   Super&#58;Initiate&#40; hDlg &#41;\n\n   &#58;&#58;Default&#40;&#41;\n\n   #ifndef __CLIPPER__\n*           if ! &#58;&#58;aBitmaps == nil   &amp;&amp; by Rossine\n*             &#58;&#58;SetImageList&#40;&#41;      &amp;&amp; by Rossine\n*           endif                    &amp;&amp; by Rossine\n*           &#58;&#58;SetPrompts&#40; &#58;&#58;aPrompts &#41;\n*           &#58;&#58;AdjustRect&#40;&#41;           &amp;&amp; by Rossine\n   #else\n           for n = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n              #ifdef __CLIPPER__\n                 &#58;&#58;aDialogs&#91; n &#93;&#58;SetSize&#40; &#58;&#58;nWidth&#40;&#41; - 6,;\n                                          &#58;&#58;nHeight&#40;&#41; - &#58;&#58;nFdHeight - 5 &#41;\n              #else\n                 &#58;&#58;aDialogs&#91; n &#93;&#58;SetSize&#40; &#58;&#58;nWidth&#40;&#41; - 5,;\n                                          &#58;&#58;nHeight&#40;&#41; - &#58;&#58;nFdHeight - 4 &#41;\n              #endif\n           next\n   #endif\n\nreturn nil\n[/code:2otgddnv]\n\nGracias,\n\nRossine.','',0,'AIA=','2otgddnv',1,0,'',104,0,0),(26856,6009,6,774,0,'200.72.190.229',1171721053,1,0,1,1,1,1,'','COLEGAS DEL FORO','tras tropiezo y tropiezo para migrar de 16 bits a 32 bits,, me decidi por xhar... ,, pero al parecer es menos estable que 16 bits.. sera por el tiempo de utilizacion o por no tener los conocimientos que obliga en cambio mismo,,,\n\nen estos momentos me encuentro entre la espada y la pared,, y debo de tomar una determinacion, volver a 16 bit.. para comenzar en sistema de administracion de transporte,,  o quedarme en 32 bits.. jugandome el pellejo haber si es q puede terminarlo...\n\nque consejo me dan Uds..\n\n\nen FIVEWIN 16 bits tengo todo lo q necesito para realizar el sistema,, o sea todo funciona,,,\n\nen Xhar.. 32 bits... no funcionan algunas cosillas importantes... por Ejem..\n\nlos Browse... yo uso TSBROWSE.. pero no funciona como deberia... ( ALGUIEN LA USA:: si es asi.. PODRIAN MANDARME LA .LIB de esa Clase.. yo ya le he compilado pero no funciona correstamente),, tiene problemas en el Scroll....\n\nAhora.. otra duda q tengo,, en 16 Bits.. yo usaba DATABASE,, para el manejo de DBF,, en Xhar.  se utiliza igual o no... o tiene cambios de algun tipo\n\n\nTengo FWH27,, con verce,,, xharb.0.99.70,, \n\nsi pudieran ayudarme \n\neterno agradecido\n\nGRACIAS','',0,'AIA=','jhaol8nb',1,0,'',774,0,0),(26857,5963,4,2,0,'87.218.146.160',1171723874,1,0,1,1,1,1,'','','Enrico,\n\nFrom Windows headers: typedef void *HANDLE;\n\nIts quite strange why WriteFile() is not able to manage unsigned chars...','',0,'AIA=','2thn6tt9',1,0,'',2,0,0),(26858,6009,6,492,0,'189.147.26.147',1171729363,1,0,1,1,1,1,'','','Hola A&amp;C\n\nEn mi opinion, estas exactamente en la misma situacion que estuvimos la gran mayoria ( si no es que todos !! ) al momento del \"Gran Salto\"  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nYo estaba tan acostumbrado a los 16 con todas sus limitantes que tambien estuve a punto de dar marcha atras, porque tambien tuve varias dificultades al pasarme a los 32.\n\nAhora sigo preguntandome, por que no di el upgrade a los 32 mucho antes !!!!!\n\nTen un poco de paciencia y veras que realmente vale la pena !\n\n\n\nReferente a los controles, no sabria decirte del TSBROWSE ya que siempre he usado la TWBROWSE de Hernan, y aunque no uso la clase para el manejo de las Dbfs, al parecer es lo mismo que antes.\n\n\n\n\n\nSaludos','',0,'AIA=','1vuocvll',1,0,'',492,0,0),(26859,6005,6,492,0,'189.147.26.147',1171730072,1,0,1,1,1,1,'','','Hola Rochinha\n\nMuchas Gracias  por tu pronta respuesta  !!   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nMuito obrigado  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nSaludos','',0,'AIA=','1rymfw3b',1,0,'',492,0,0),(26860,6008,3,67,0,'81.11.215.8',1171733079,1,0,1,1,1,0,'','','Enrico,\n\nyes , i know , i use this at the moment.\n\nOnly , i have problems , probably because i am working in MDI envirronnement , and it is not clear when word.exe receive focus , it can also be later in the program. Not closing the text editor give also problems. \n\n\n\nSo , i tryed to use ole , hoping to avoid this problems\n\n[code:1gepshvo]\nfunction MemoEdit&#40; cText&#41;\nLOCAL hWnd\nMemowrit&#40;&quot;C&#58;\\TEMP\\efkes&#46;rtf&quot;,cText&#41;\nShellexecute&#40;0 ,0  , &quot;C&#58;\\TEMP\\efkes&#46;rtf&quot; ,0 ,0 , 1&#41;          \nhWnd &#58;= FINDWND&#40; &quot;EFKES&#46;RTF&quot; &#41;\n? &quot;Attention , continue only when the text file is corectly closen&quot; \nDO WHIL &#46;T&#46;\n    hWnd &#58;= FINDWND&#40; &quot;EFKES&#46;RTF&quot; &#41; \n    IF !EMPTY&#40; hWnd &#41; \n        ? &quot; rtf-file not closed  &#58; &quot; + CRLF +  GETWINDOWTEXT&#40; hWnd &#41;\n       ? &quot;The program closes it &quot;\n       SENDMESSAGE&#40; hWnd, 16 &#41; \n      //CloseWindow&#40;hWnd&#41; \n    ELSE\n        EXIT\n    END\nEND\ncText &#58;= Memoread&#40;&quot;C&#58;\\TEMP\\efkes&#46;rtf&quot; &#41;\n[/code:1gepshvo]\n\nAfter the shellexecute i had to place a msginfo. Working on XP , this give no problems , but at the client , the msginfo appears before the text editor\n\nHas anyone a better solution ?\n\nFrank','',0,'AIA=','1gepshvo',1,0,'',67,0,0),(26861,6005,6,492,0,'189.147.26.147',1171733308,1,0,1,1,1,1,'','','Rochinha\n\nTermine mis pruebas y...... funciono perfecto !!!!!\n\nMuchas Gracias\n\n\nSaludos','',0,'AIA=','2a9qpgbw',1,0,'',492,0,0),(26862,6005,6,397,0,'200.207.143.119',1171734285,1,0,1,0,1,1,'','','Gracias\n\nE gracias en nombre de mi amigo!','',0,'AIA=','1kz1ua1x',1,0,'',397,0,0),(26863,5990,3,303,0,'72.199.41.171',1171736234,1,0,1,1,1,0,'','','Jeff,\n\nThat seems to be the entry to support themes. So you are saying it is a problem under themes only? If so, it still needs to be fixed.\n\nJames','',0,'AIA=','20g85cwn',1,0,'',303,0,0),(26864,6009,6,9,0,'85.60.4.163',1171737861,1,0,1,1,1,1,'','Re: COLEGAS DEL FORO','[quote=&quot;A&amp;C&quot;:219ivia5].. yo usaba DATABASE,, para el manejo de DBF,, en Xhar.  se utiliza igual o no... o tiene cambios de algun tipo[/quote:219ivia5]\n\nDATABASE funciona perfectamente.- Creo que es una clase de FW no de XHarbour.','',0,'gA==','219ivia5',1,0,'',9,0,0),(26865,5990,3,69,0,'74.13.32.66',1171737934,1,0,1,1,1,0,'','','Hi James,\n\nThemes?  What do you mean by themes?\nAs far as I know, my DLL should only have 2 types of data in it....\n   1. Dialogs\n   2. Stringtables\n\nI don\'t know how anything else got added to the DLL.\n\n\n\nJeff','',0,'gA==','3taqu6fi',1,0,'',69,0,0),(26866,5990,3,2,0,'87.218.146.160',1171737963,1,0,1,1,1,1,'','','Jeff,\n\nCould you please test samples\\TestFold.prg and check if it works fine for you ? thanks','',0,'gA==','2juvjqfy',1,0,'',2,0,0),(26867,5990,3,303,0,'72.199.41.171',1171738803,1,0,1,1,1,0,'','','Jeff,\n\n&gt;Themes? What do you mean by themes? \n&gt;As far as I know, my DLL should only have 2 types of data in it.... \n&gt;1. Dialogs \n&gt;2. Stringtables\n\nXP themes. \n\n&gt;I don\'t know how anything else got added to the DLL. \n\nI have never seen themes added to a DLL, only RC and RES files. With a RC file you add this to the file using any editor:\n\n1 24 \"theme.man\"\n\nAnd then you create a file called \"theme.man\" which contains XML code describing themes. The above code pulls in the theme.man file during linking just like an include file. \n\nIf you save the RC file as an RES file then it looks like what you described is in your DLL. The theme.man file gets compiled into the RES file. If you are using a resource editor other than Workshop, perhaps it puts this code in automatically so the app will support themes.\n\nSo I think it would be useful for all if we can find the problem and fix it.\n\nJames','',0,'gA==','3sd9pycd',1,0,'',303,0,0),(26868,6010,6,196,0,'190.48.234.41',1171741358,1,0,1,1,1,0,'','Consulta sobre ActiveX','Hola, tengo la obligada desdicha de incorporar en mi sistema la impresion de facturas fiscales EPSON, esto se hace a traves de un control ActiveX, hago lo siguiente:\n\noActiveX&#058;=TActiveX():New(oWnd, \"EpsonFPHostControlX.EpsonFPHostControl\")\noWnd:oClient:=oActiveX\n\nVa todo bien, pero me aparece un dibujito de un cable arriba a la izquierda y no me muestra el fondo que utilizo.\n\nMuchas gracias\nJorge Jaurena','',0,'gA==','25ge09ge',1,0,'',196,0,0),(26869,6011,6,456,0,'217.124.41.189',1171741645,1,0,1,1,1,1,'','Cliente Telnet','Alguien tiene desarrollado algo con sockets para usar como cliente telnet.','',0,'gA==','js5duo0t',1,0,'',456,0,0),(26870,5990,3,69,0,'74.13.32.66',1171744115,1,0,1,1,1,0,'','','Antonio,\n\nTestFold works fine on my system.\n\n\n\n\nJeff','',0,'gA==','1j6qoiuj',1,0,'',69,0,0),(26871,5990,3,69,0,'74.13.32.66',1171745786,1,0,1,1,1,0,'','','James,\n\nSomething is strange here ... I know I never went through that series of events (themes that is)\n\nThis is what I normally do:\n\n1. make changes to my DLL file via Workshop.\n2. Save the project (I save as both a DLL and an RC)\n3. If my app gives me the \"DLL is not a valid win 32....\" error I run the rc2dll32.bat file to convert my .rc to a proper DLL\n\nThat\'s all I do, so this theme thing has me confused.\n\n\nJeff','',0,'gA==','270urgrk',1,0,'',69,0,0),(26872,6009,6,838,0,'80.59.225.15',1171746607,1,0,1,1,1,0,'','','En el mini manual que te envié, ya te puse como ejemplo que yo utilizo twbrowse, y que si querías la librería compilada, no me importa mandártela, así como cualquier otra cosa.\nCon respecto a database, se puede usar perfectamente, aunque yo tuve que dejar la linea 23 así:\n   DATA   bBoF, bEoF, bNetError  //AS CODEBLOCK\n   DATA   cAlias, cFile, cDriver //AS String INIT \"\"\nYo tengo también una aplicación de gestión para agencias de transporte, y con la ayuda de éste foro, fué menos traumático, y ahora va perfectamente.\n\nSaludos\n\nJose Luis','',0,'gA==','2y4gb4mw',1,0,'',838,0,0),(26873,5990,3,303,0,'72.199.41.171',1171747116,1,0,1,1,1,0,'','','Jeff,\n\nI gave up using DLLs with 32bit apps because of the problem editing them with Workshop. Why not just use the RC file instead? Also, if you use RC files, then you don\'t need to distribute DLLs.\n\nI suppose it doesn\'t matter how the theme code got in there. You should have it anyway so your apps support themes. Thus we still need to solve the original problem you were having. Can you supply a small self-contained program showing the problem?\n\nJames','',0,'gA==','1wudwbr4',1,0,'',303,0,0),(26874,6012,6,141,0,'200.88.94.124',1171753759,1,0,1,1,1,1,'','Clase tIP y Clase tURL','Hola a Todos,\n\nA ver si alguien me puede decir a partir de cual xHarbour se tiene acceso a las clases mencionadas.\n\nTengo la 0.99.61 y al compilar me dice que no estan !!!\n\nGracias anticipadas,','',0,'gA==','2ft33a8n',1,0,'',141,0,0),(26875,5990,3,69,0,'74.13.32.66',1171764553,1,0,1,1,1,0,'','','James,\n\nOk, explain this one....\n\nI took a backup of my DLL file (it had the theme stuff in it)\n\nI did a copy/paste of the area where the problem was from my original .prg file into a new .prg file and compiled the new file.\n\nThe problem is not there in the new file.\n\nMaybe my computer just needs to sleep for a few days.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nJeff','',0,'gA==','3uvyl7ty',1,0,'',69,0,0),(26876,5990,3,303,0,'72.199.41.171',1171767471,1,0,1,1,1,0,'','','Jeff,\n\n&gt;The problem is not there in the new file. \n\n&gt;Maybe my computer just needs to sleep for a few days. \n\nYou may be right. Often, when I am getting a wierd problem, I reboot just in case there is some strange memory glitch. Often it solves the problem. The increased stablity of XP means that you tend to reboot less often, even after crashes, and sometimes those crashes have strange conseqences.\n\nGlad to hear the problem is gone. And now you know about themes, so some good came of it.\n\nJames','',0,'gA==','t4hhwo1r',1,0,'',303,0,0),(26877,6009,6,439,0,'200.125.35.111',1171769138,1,0,1,1,1,1,'','','Hola,\n\n\nCon respecto a Database, funciona bien con xharbour, yo la uso sin problemas tal como está en FWH\n\nCon respecto a TSBrowse, encontrarás en el foro que James Bott hizo algunas correcciones y yo la he estado probando y anda bien, aunque practicamente no la uso, ya que me estoy pasando a xbrowse, nativo de FWH.\n\nfíjate en Sbrowse 6.13 en:\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nPracticamente creo que cualquier otra clase que utilices la puedes encontrar en el foro de utilidades. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nSe paciente y constante, vale la pena, luego de pasarte a xHarbour no lo abandonarás nunca.','',0,'gA==','2ld2i127',1,0,'',439,0,0),(26878,6012,6,138,0,'148.233.151.30',1171773702,1,0,1,1,1,1,'','','no estan incluidas en en las libs que se linkean por default, tienes que agregar la TIP.LIB y listo','',0,'gA==','qrk8qat9',1,0,'',138,0,0),(26879,6013,3,148,0,'196.205.175.52',1171775932,1,0,1,1,1,0,'','alltrim argument error','editmach module goes well with with lAppend=.f. (update option ) but with lAppend=.t. (New record) I had the alltrim argument error message. \n\n[code:2oujn692]\n\nstatic function Editmach&#40;oLbx,lAppend&#41; \n//------------------------------------------ \n&#46;&#46; \nLocal V_ct_strd&#58;=ctod&#40;&quot;  /  /    &quot;&#41; \nLocal V_ct_endd&#58;=ctod&#40;&quot;  /  /    &quot;&#41; \n&#46;&#46; \n   DEFAULT lAppend &#58;= &#46;f&#46; \n&#46;&#46; \nif lAppend \n   GOTO BOTTOM \n   SKIP \nelse \n   goto nOldRec \nV_ct_strd   &#58;=dtoc&#40;mach-&gt;MC_CT_strd&#41; \nV_ct_endd   &#58;=dtoc&#40;mach-&gt;MC_CT_endd&#41; \n\nendif \n\n\n\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 650, 1000 PIXEL; \n      TITLE If&#40; lAppend, &quot;New Machine&quot;, &quot;Machine Update&quot; &#41; \n\n\n   @ 1,1 SAY &quot;&amp;Account No&#46;&quot; OF oDlg PIXEL \n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 COMBOBOX V_CU_ACCT ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_cu_acct&quot;&#41; size 80,80 OF oDlg PIXEL \n\n\n   @ 1,150 SAY &quot;&amp;Name&quot; OF oDlg PIXEL \n   @ 1,180 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,190 COMBOBOX V_CU_NAME ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_cu_name&quot;&#41; size 150,120 OF oDlg PIXEL \n\n\n   @ 15, 1 SAY &quot;Contract Name&quot; OF oDlg PIXEL \n   @ 15, 50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 15,60 COMBOBOX V_ct_ctna ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_ctna&quot;&#41; size 80,80 OF oDlg PIXEL \n\n   @ 15, 150 SAY &quot;Start Date&quot; OF oDlg PIXEL \n   @ 15, 180 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 15, 190 COMBOBOX &#40;V_ct_strd&#41; ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_strd&quot;&#41; size 80,80 OF oDlg PIXEL \n\n\n   @ 15, 300 SAY &quot;End Date&quot; OF oDlg PIXEL \n   @ 15, 350 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 15, 360 COMBOBOX &#40;V_ct_endd&#41; ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_ct_endd&quot;&#41; size 80,80 OF oDlg PIXEL \n&#46;&#46; \n&#46;&#46; \n \n \n[/code:2oujn692]','',0,'AIA=','2oujn692',1,0,'',148,0,0),(26880,6014,3,51,0,'80.122.88.242',1171782059,1,0,1,1,1,0,'','command-line arguments','Is there a  function which returns the command-line arguments specified when the program was launched.\n\ntext.exe  ABC\n\nprg\n\nLocal cTest :=\"\"\ncTest:=command()\n\nRegards\nOtto','',0,'AIA=','2lbotrr3',1,0,'',51,0,0),(26881,6014,3,6,0,'87.20.214.84',1171788247,1,0,1,1,1,1,'','Re: command-line arguments','This is a sample:\n\n[code:37ql823l]FUNCTION MAIN&#40; cPar1, cPar2, cPar3 &#41;\n\n    LOCAL i\n\n    ? cPar1, cPar2, cPar3\n    ?\n\n    FOR i = 0 TO HB_ARGC&#40;&#41;\n        ? HB_ARGV&#40; i &#41;\n    NEXT\n\n    ?\n\n    RETURN NIL[/code:37ql823l]\n\nEMG','',0,'AIA=','37ql823l',1,0,'',6,0,0),(26882,6014,3,67,0,'81.11.215.8',1171789240,1,0,1,1,1,0,'','','[code:1tabwz8s]\n#include &quot;FiveWin&#46;Ch&quot;\nFUNCTION MAIN&#40;&#46;&#46;&#46;&#41;\n*************\nLOCAL Arr &#58;= Hb_Aparams&#40;&#41;\nAEVAL&#40;Arr,&#123;|j|msginfo&#40;j&#41;&#125;&#41;\nRETURN\n[/code:1tabwz8s]','',0,'AIA=','1tabwz8s',1,0,'',67,0,0),(26883,6014,3,51,0,'80.122.88.242',1171789597,1,0,1,1,1,0,'','','Thank you. \nOtto','',0,'AIA=','1ikhc821',1,0,'',51,0,0),(26884,6008,3,2,0,'87.218.146.57',1171794106,1,0,1,1,1,1,'','','Frank,\n\nTry this:\n[code:3w3tutgj]\ndo while &#40; hWnd &#58;= FINDWND&#40; &quot;EFKES&#46;RTF&quot; &#41; &#41; == 0\n   SysRefresh&#40;&#41;\nend\n? &quot;Attention , continue only when the text file is corectly closen&quot; \n[/code:3w3tutgj]','',0,'AIA=','3w3tutgj',1,0,'',2,0,0),(26885,6010,6,2,0,'87.218.146.57',1171794302,1,0,1,1,1,1,'','','Jorge,\n\nPuedes capturar una imagen de como se ve y ponerla en <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y copiar el url aqui ?','',0,'AIA=','c7udq0ru',1,0,'',2,0,0),(26886,5832,3,413,0,'194.106.16.43',1171803125,1,0,1,1,1,0,'','','Sorry Kent Will you mind to share the other files too, config and project and the wordfile.txt. \n\nThanks.','',0,'AIA=','1ik61314',1,0,'',413,0,0),(26887,6015,3,487,0,'151.38.51.135',1171803358,1,0,1,1,1,0,'','TxBrowse() - Vertical scrollbar with filtered data','Hello all,\n\nI\'ve noticed that in the vertical scrollbar the arrows are working ok, while by directly moving the square, sometimes filtered data reappears in the browse (sometimes even deleted records)\n\noBrw:KeyCount() returns a number including also the filtered records.\nMaybe I should specify a scope for the browse instead of using SET FILTER TO externally ? - If so, how ?\n\nTIA \nDavide\nFWH 27-3 - xH 0.99.60\n\n[code:vdn0mkhj]\n// Database already opened, SET DELETED ON, filtered data with SET FILTER\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n\n   oBrw&#58;SetRDD&#40;&#41;\n\n   For i&#58;=1 to 3\n     oBrw&#58;aCols&#91; i &#93;&#58;blDClickData &#58;= &#123;|r,c,f,o| MyFunc&#40;&#46;f&#46;&#41; &#125;\n   Next i\n\n   oBrw&#58;lVScroll&#58;=&#46;f&#46;    // workaround\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oWnd&#58;oClient &#58;= oBrw[/code:vdn0mkhj]','',0,'AIA=','vdn0mkhj',1,0,'',487,0,0),(26888,6001,3,190,0,'124.7.25.236',1171807392,1,0,1,1,1,0,'','','Mr.Norbert\n\nThanks for your reply.\n\nThis picture is generated after having used TRANSPARENT clause.\n\nTRANSPARENT clause is working normally OK, when the dialog/window is painted with any BMP / COLOR brush.  \n\nBut, here the dialog is painted with color gradiation with code.\n\nRegards\n\n- Ramesh Babu P','',0,'AIA=','12g4l8lv',1,0,'',190,0,0),(26889,6016,3,86,0,'213.119.103.68',1171807738,1,0,1,1,1,1,'','Strange behaviour of LastKey()','Hello,\n\nI noticed that LastKey() has a strange behaviour.\n\nThis is my code :\n\n-------------------------------------\n\nPRIVATE Niv := 1\n\nDEFINE DIALOG DiaDlg NAME \"DIALOG\"\n\nREDEFINE oGET1 VAR FIELD1 ID 101 OF DiaDlg PICTURE \"XXX\"\n...\nREDEFINE oGET9 VAR FIELD9 ID 109 OF DiaDlg PICTURE \"XXX\"\n\nREDEFINE BUTTON ID 200 OF DiaDlg ACTION(Niv:=9,DiaDlg:End())\nREDEFINE BUTTON ID 201 OF DiaDlg ACTION(Niv:=0,DiaDlg:End())\n\nACTIVATE DIALOG DiaDlg CENTERED\n\nIF LastKey() = VK_ESCAPE ; Niv := 0 ; ENDIF\n\n-------------------------------------\n\nWhat do I want to do ?\n\nButton 200 is a button \"Save\"\nButton 201 is a button \"Quit\"\n\nIf niv = 9, the data will be saved. If niv = 0, the program will check whether there is a difference between the data on the screen and the data on disk. If all the data are the same, the procedure will be ended, otherwise the user will be asked if he is sure that the data will not be saved.\n\nI want that the user also can use the Escape-key which has to behave like the button \"Quit\".\n\nSo, If the user clicks \"Quit\", niv = 0 but also if the Escape-key is pressed, niv = 0.\n\nBut what is happening ?\n\nOnce I have pressed the Escape-key, lastkey() keeps positioned on the Escape-key. If button \"Save\" is clicked the next time, the program will always act as if the Escape-key has been pressed.\n\nI added the test : MsgInfo(LastKey()). It always returns (27 = Escape), even it the lastkey wasn\'t the Escape-key at all.\n\nCan anyone tell me what\'s wrong ?\n\nThank you very much in advance for any help.\n\nMichel','',0,'AIA=','2om78jcp',1,0,'',86,0,0),(26890,5989,6,785,0,'190.64.203.148',1171808813,1,0,1,1,1,0,'','','Luis:\n\nEsas limitaciones son de BCC como tu dices, pero haciendo\nalgunos experimentos (en mi trabajo) con Borland Dev. Studio \nesas limitacioines desaparecen.\n\nSi ya se hay que tener Borland Developer Studio, pero es una solucion.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','pwgk781t',1,0,'',785,0,0),(26891,6017,3,810,0,'89.12.8.232',1171812073,1,0,1,1,1,0,'','Use 2 different Errorsys Prg','i have a customized errsys .prg but sometimes i would be usefull to use the standard errsys \n\nIs it possible to link 2 errsys prg in the exe and change between these 2 errsys using a switch ?\n\nTx','',0,'AIA=','v04ewpcp',1,0,'',810,0,0),(26892,6016,3,3,0,'82.65.40.187',1171812165,1,0,1,1,1,1,'','Re: Strange behaviour of LastKey()','Michel \n\nTry it this way\n\nACTIVATE DIALOG ODLG CENTERED VALID ( ESC_DIALOG() )\n\nFUNCTION ESC_DIALOG\nIF GETASYNCKEY( 27 )\n   IF msgyesno(\"Voulez-vous tout annuler ?\",\"Veuillez confirmer\")\n      return .T.\n    ELSE\n      return .F.\n   ENDIF\nENDIF\nreturn .T.\n\n\nHth\n\nRichard','',0,'AIA=','2lsfs6j3',1,0,'',3,0,0),(26893,5963,4,3,0,'82.65.40.187',1171813223,1,0,1,1,1,1,'','','Antonio\n\nThis is from Pocket pc Msdn\n\nDoes it make any sense in this case ?\n\n\nYou should note that the lpBuffer parameter of WriteFile is a LPCVOID (typedef for const void *).\n\nThat means the lpBuffer parameter is type-agnostic. You could make it point to an array of chars, or you can make it point to an array of WCHARs, an array of ints, array of doubles, array of Matrices, array of FileSystems, array of... you get the idea. The key to telling WriteFile what the data type is, is through the nNumberofBytesToWrite parameter.\n\nIf you want to write 2 WCHARs to the stream, the 3rd parameter to WriteFile should be 2*sizeof(WCHAR) (but make sure that the 2 WCHARs are next to each other in memory).\n\nNote, that sending UNICODE across the serial port is only useful if the program on the other side of the port understands UNICODE.\n\n// WriteFile(f, data, lstrlen(data) * sizeof(TCHAR), &amp;bytesWritten, NULL); // RIGHT','',0,'AIA=','a5mm0hdk',1,0,'',3,0,0),(26894,5990,3,397,0,'201.13.18.167',1171813607,1,0,1,0,1,1,'','','Jeff\n\nDon\'t use WordShop to modify a 32 bits DLLs.\n\nMidify your RC file and use RC2DLL32.bat. allways.','',0,'AIA=','37zznfmc',1,0,'',397,0,0),(26895,6016,3,86,0,'213.119.103.68',1171813807,1,0,1,1,1,1,'','','Richard,\n\nThank you very much for your help.\n\nI think you solved my problem.\n\nMichel','',0,'AIA=','1s83lk97',1,0,'',86,0,0),(26896,6017,3,138,0,'148.233.151.30',1171815561,1,0,1,1,1,1,'','','you can use a try...catch structure, and within the try you can change the function for error handling','',0,'AIA=','7ru5xxhu',1,0,'',138,0,0),(26897,6015,3,138,0,'148.233.151.30',1171816139,1,0,1,1,1,1,'','','I dont use xBrowse, but in the other browses, all of them have a DATA called bLogicLen which is used to draw the thumb position in the vertical scroll bar.\n\nthe data is normally asigned to a codebloc containing {|| lastrec()} so in order to get the correct placement of the thumb you must asign this data to a value that reflects the real size of the databas, for example to the OrdKeyCount() function','',0,'AIA=','5skvg7o3',1,0,'',138,0,0),(26898,6015,3,487,0,'151.42.100.90',1171817580,1,0,1,1,1,0,'','','Dear Rene,\n\nthank you for your reply.\n[quote=&quot;RF&quot;:30yh3gmz]I dont use xBrowse, but in the other browses, all of them have a DATA called bLogicLen which is used to draw the thumb position in the vertical scroll bar.[/quote:30yh3gmz]\nYes, it\'s called bKeyNo in xBrowse.\nAnyway, the thumb is drawn correctly, and the browse normally works correctly.\nIt\'s only if I MOVE the thumb myself that I start seeing strange things in the browse. \nAs KeyCount() returns a number including also the filtered and deleted records I though that perhaps I should have assigned a \"filter data\" codeblock to the browse itself somehow.\nAny idea ?\nThanks,\nDavide.','',0,'gA==','30yh3gmz',1,0,'',487,0,0),(26899,6018,6,519,0,'83.32.111.174',1171820137,1,0,1,1,1,0,'','Nombres de los pc','hola \n\n\n   Existe en fwh alguna funcion que me devuelva los nombres de los pc que estan conectados a una red local  ?\n\n  un saludo','',0,'gA==','235pwfrl',1,0,'',519,0,0),(26900,5963,4,2,0,'87.218.146.57',1171822053,1,0,1,1,1,1,'','','Richard,\n\nIt does not make a difference. We are placing an unsigned char into the buffer and WriteFile() should transmit an unsigned char.\n\nCould you try to send the data to a different bluetooth device ? Maybe the difference comes from the receiver','',0,'gA==','33hrokgm',1,0,'',2,0,0),(26901,5963,4,2,0,'87.218.146.57',1171822114,1,0,1,1,1,1,'','','Richard,\n\nDoes that printer work with unicode chars ?','',0,'gA==','2ztt4gm8',1,0,'',2,0,0),(26902,6011,6,397,0,'201.13.18.167',1171826809,1,0,1,0,1,1,'','','Biel\n\nYou can try modify a FTP Class inputing de Telnet commands.\n\nSee this page with telnet commands explanation:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.math.utah.edu/computing/unix/unix-commands.html\">http://www.math.utah.edu/computing/unix ... mands.html</a><!-- m -->','',0,'gA==','nw9mqzv6',1,0,'',397,0,0),(26903,5832,3,879,0,'65.92.174.8',1171826944,1,0,1,1,1,0,'','','Andrés\n\nIf you refer to the last entry in [color=brown:2c0d8ac7]http://fivetechsoft.com/forums/viewtopic.php?t=4700&amp;highlight=uestudio[/color:2c0d8ac7] you will find a link Antonio posted to download a zip of the Project, Config and Wordfile.txt files.\n\nNote that the Config file in the zip is different from the config I posted here. Mine was created by the IDM developers which I tested to insure it worked correctly.\n\nRegards,\n\nKen','',0,'Ag==','2c0d8ac7',1,0,'',879,0,0),(26904,5963,4,3,0,'82.250.67.108',1171827560,1,0,1,1,1,1,'','','Antonio\n\nThe printer is OK There is no setting on it.\n\nWhen i send the txt file to the printer via windows mobile (send via bluetooth), the printout is OK. \n\nThe problem is i the writefile function\n\nRichad','',0,'Ag==','2jc835ks',1,0,'',3,0,0),(26905,6015,3,303,0,'72.199.41.171',1171827574,1,0,1,1,1,0,'','','Davide,\n\nIf you are using an index you should build the index with the FOR ! DELETED() clause. I build all my indexes like that. This way deleted recrods will not be included in ordKeyCount().\n\nFilters are another matter. When an index is built using the above clause it, of course, has to read the entire database. If you set a filter at runtime, there is no way to know how many records are going to be in the filter without reading the entire database. So, there is no way to get a proper count for use by the thumbbar.\n\nThe only other soultion is to use indexes (with the FOR ! DELETED() clause) and to set a scope. This way ordKeyCount() knows the number of records in the scope without rereading the entire database.\n\nJames','',0,'Ag==','165vdgd0',1,0,'',303,0,0),(26906,5963,4,3,0,'82.250.67.108',1171827640,1,0,1,1,1,1,'','','I don\'t have the documentation of the printer available here, but i will take a look at it tomorrow morning.\n\nMy guess is \"Yes\" it takes Unicode, see my previous post.','',0,'Ag==','30d2g1vm',1,0,'',3,0,0),(26907,6019,3,148,0,'196.205.174.235',1171832414,1,0,1,1,1,0,'','Only 8 charcters transferred','Only 8 charcters transferred from v_mc_meres_combo to oGet_meres\n\n[code:1ry8xpfd]\nLocal oGet_meres&#58;=space&#40;25&#41;\n&#46;&#46;\nLOCAL oCbx_meres\n&#46;&#46;\nlocal v_mc_meres_combo&#58;=space&#40;25&#41;\n&#46;&#46;\n\n  @ 60,200 SAY &quot;Operator&quot; OF oDlg PIXEL\n  @ 60,250 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 60,260 GET oGet_meres VAR V_MC_meres OF oDlg PIXEL\n  @ 60,380 COMBOBOX oCbx_meres VAR v_mc_meres_combo ITEMS aBase1&#40;3,&quot;mach&quot;,256,&quot;mc_meres&quot;&#41;;\n  SIZE 110,80 ;\n  OF oDlg PIXEL ;\nON CHANGE &#40; oGet_meres&#58;VarPut&#40; PADR&#40; v_mc_meres_combo, 8 &#41; &#41;,; \noGet_meres&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n\n[/code:1ry8xpfd]\n\n[url=http&#58;//imageshack&#46;us:1ry8xpfd][img:1ry8xpfd]http&#58;//img464&#46;imageshack&#46;us/img464/7075/error2yc2&#46;png[/img:1ry8xpfd][/url:1ry8xpfd]\n[/img]','',0,'GIA=','1ry8xpfd',1,0,'',148,0,0),(26908,6020,3,86,0,'213.119.103.68',1171839789,1,0,1,1,1,1,'','Problems with sending emails - some questions','Hello,\n\nI have 3 problems concerning sending emails.\n\n\n\n1. To send emails in my application, I use this code :\n\n----------------------------------------------\n\nMapiLogOn()\n\nDEFINE MAIL oOutMail ;\n      SUBJECT ALLTRIM(EmOnde) ;\n      FILES TabAtt,\"\" ;\n      TEXT FmText FROM USER\n\noOutMail:aRecipients := {{ALLTRIM(LOWER(cEmail[i])),\"\"}}\nACTIVATE MAIL oOutMail\n\nRC := oOutMail:nRetCode\n\nMapiLogOff()\n\n----------------------------------------------\n\nMy email is transferred to Outlook which shows my email once again. After I have clicked \"Send\", my application gets a GPF while executing \"MapiLogOff()\". And, of course, my application is quited.\n\nThis code worked very good in FW16. Why doesn\'t it in FW32 ?\n\nDoes anyone know why this is happening ?\n\n\n2. I have another method to send my emails : smpt.\n\nHerefor, I use this code :\n\n----------------------------------------------\n\noDummy := TSmtp():New(GetHostByName(PAR-&gt;POUTLIP))\noOutMail  := TSmtp():New(GetHostByName(PAR-&gt;POUTLIP))\n\noOutMail:bConnecting = {|| cStat1:= \"Connecting\",Em2Dlg:Update() }\noOutMail:bConnected  = {|| cStat2:= \"Connected\",Em2Dlg:Update() }\noOutMail:bDone          = {|| EmSend := .T.}\n\noOutMail:SendMail(ALLTRIM(US-&gt;UOUTLADR),;\n             {ALLTRIM(LOWER(cEmail))},FmText,;\n               ALLTRIM(EmOnde),TabAttach)\n\n----------------------------------------------\n\nTabAttach is the array which contains the attachments.\n\nThere are no problems with sending my emails. But the recipient can\'t read the attachments. They are transferred to files like ATT00011.TXT or ATT00017.TXT while the original attachments were DOC-files or PDF-files.\n\nWhat has to be done so that attachments arrive at the recipients as they were send ?\n\n\n3. How can I send emails from my application to Outlook, using OLE ?\n\n\nThank you very much for any help.\n\nMichel','',0,'','22k183zs',1,0,'',86,0,0),(26909,3729,20,49,0,'62.13.172.78',1171844135,1,0,1,1,1,1,'','','anch\'io ho fatto qualcosa tanto tempo fa ....\nanzi ho usato qualcosa del genere una funzioncina carina di Edo Freni\nAvevo scaricato una quantità di circa 12000 email inun archivio per argomenti .... così per gioco\nQuesto ha un nome ben preciso  che non ricordo e serve per trovare email per la pubblicità ma poi ho visto che si andava sempre nel penale e quindi ho smesso di fare il cretino...','',0,'','nlehbzj8',1,0,'',49,0,0),(26910,6020,3,397,0,'201.13.18.167',1171845150,1,0,1,0,1,1,'','','Friend,\n\nDownload and install a free component [url=http&#58;//www&#46;aspemail&#46;com/:22qp48q3]AspEmail[/url:22qp48q3] in your system.\n\nAfter register the .OCX in your machine test the code bellow:\n\n[code:22qp48q3]\n#include &quot;fivewin&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n   LOCAL hOLEObject\n   Mail &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Persits&#46;MailSender&#46;4&quot;&#41;\n   Mail&#58;Host &#58;= &quot;smtp&#46;yourISP&#46;com&quot;\n   Mail&#58;Port &#58;= 25 \n\n   Mail&#58;AddAddress&#40; &quot;emailTO@ISP&#46;com&quot; &#41;\n   Mail&#58;AddAttachment&#40; &quot;file&#46;txt&quot; &#41;\n\n   Mail&#58;From     &#58;= &quot;yourEmail@yourISP&#46;com&quot;\n   Mail&#58;FromName &#58;= &quot;Your Name Here&quot;\n\n   Mail&#58;UserName &#58;= &quot;YourUserNameForAutenticate&quot;\n   Mail&#58;PassWord &#58;= &quot;YourPasswordForAutenticate&quot;\n\n   Mail&#58;Subject  &#58;= &quot;Put a subject text&quot;\n   Mail&#58;Body     &#58;= &quot;Put a blablabla!&quot;\n   //Mail&#58;IsHtml   &#58;= &#46;t&#46; // need help to this?\n   Mail&#58;Send&#40;&#41;\n   Mail&#58;End&#40;&#41;\n   return &#46;t&#46;\n[/code:22qp48q3]\n\nI use this component in my softwares and work fine.','',0,'EIA=','22qp48q3',1,0,'',397,0,0),(26911,6019,3,397,0,'201.13.18.167',1171845336,1,0,1,0,1,1,'','','Friend\n\nReplace this code:\n[code:drb88q0c]\nON CHANGE &#40; oGet_meres&#58;VarPut&#40; PADR&#40; v_mc_meres_combo, 8 &#41; &#41;,; [/code:drb88q0c]\n\nWith this\n[code:drb88q0c]\nON CHANGE &#40; oGet_meres&#58;VarPut&#40; v_mc_meres_combo &#41;,; \n[/code:drb88q0c]','',0,'AIA=','drb88q0c',1,0,'',397,0,0),(26912,6012,6,141,0,'200.88.94.124',1171850523,1,0,1,1,1,1,'','','Excelente Rene !  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nyaistubo !\n\nGracias....','',0,'AIA=','39k3m9cn',1,0,'',141,0,0),(26913,6020,3,6,0,'87.3.232.156',1171871316,1,0,1,1,1,1,'','Re: Problems with sending emails - some questions','[quote=&quot;driessen&quot;:sz48dzib]3. How can I send emails from my application to Outlook, using OLE ?[/quote:sz48dzib]\n\nThis is a sample:\n\n[code:sz48dzib]#define olMailItem 0\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook, oMail\n\n    oOutlook = CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n\n    oMail = oOutlook&#58;CreateItem&#40; olMailItem &#41;\n\n    oMail&#58;Recipients&#58;Add&#40; &quot;e&#46;m&#46;giordano@emagsoftware&#46;it&quot; &#41;\n\n    oMail&#58;Subject = &quot;Test&quot;\n\n    oMail&#58;Attachments&#58;Add&#40; &quot;c&#58;\\xharbour\\image&#46;jpg&quot; &#41;\n\n    oMail&#58;HTMLBody = MEMOREAD&#40; &quot;c&#58;\\xharbour\\test&#46;htm&quot; &#41;\n\n    oMail&#58;Send&#40;&#41;\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:sz48dzib]\n\nEMG','',0,'gIA=','sz48dzib',1,0,'',6,0,0),(26914,6021,6,449,0,'212.64.224.250',1171875436,1,0,1,1,1,1,'','Clausulas TSay','Hola,\n\nEs posible q no funcionen correctamente las clausulas box, raised y shadow en la clase TSay  ?\n\n[code:2gknr8b5]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oSay, oCursor\n\n   DEFINE CURSOR oCursor HAND\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 20,40\n\n   @ 1, 2 SAY oSay PROMPT &quot;Left&quot;          SIZE 100, 20 COLOR CLR_RED\n   @ 2, 2 SAY oSay PROMPT &quot;Right&quot;  RIGHT  SIZE 100, 20 COLOR CLR_RED\n   @ 3, 2 SAY oSay PROMPT &quot;Center&quot; CENTER SIZE 100, 20 COLOR CLR_RED\n   @ 4, 2 SAY oSay PROMPT &quot;Box&quot;     BOX   SIZE 100, 20 COLOR CLR_RED\n   @ 5, 2 SAY oSay PROMPT &quot;Raised&quot; RAISED SIZE 100, 20 COLOR CLR_RED\n   @ 6, 2 SAY oSay PROMPT &quot;Shadow&quot; SHADOW SIZE 100, 20 COLOR CLR_RED\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil[/code:2gknr8b5]','',0,'AIA=','2gknr8b5',1,0,'',449,0,0),(26915,6020,3,67,0,'81.11.215.8',1171875834,1,0,1,1,1,0,'','','I use this code (based on a contribution from enrico)\nFrank\n[code:33sibd5t]\nPROC SendOLMail&#40; aTo, c_Msg, c_Subject, a_Files , c_HTML &#41;\n**************************************************************************************************	\n\nLOCAL oOutlook, oMail , el\n\nTRY\n  oOutlook &#58;= GetActiveObject&#40; &quot;Outlook&#46;Application&quot; &#41;\nCATCH\n  TRY\n     oOutlook &#58;= CreateObject&#40; &quot;Outlook&#46;Application&quot; &#41;\n   CATCH\n      ?  &quot;ERROR! Outlook not avialable&#46; &#91;&quot; + Ole2TxtError&#40;&#41;+ &quot;&#93;&quot;\n      RETURN\n   END\nEND\n    \noMail &#58;= oOutlook&#58;CreateItem&#40; olMailItem &#41;\n\nFOR EACH el IN aTo\n  oMail&#58;Recipients&#58;Add&#40; el &#41;\nNEXT\n    \nIF ! IsNil&#40;c_Subject&#41;\n  oMail&#58;Subject &#58;= c_Subject //&quot;Test message&quot;\nEND\n		\nIF ! IsNil&#40;c_Msg&#41;\n  oMail&#58;Body &#58;= c_Msg\nEND\nIF ! IsNil&#40;c_Html&#41;\n  oMail&#58;HTMLBody &#58;= c_Html\nEND\n\nIF ! IsNil&#40;a_Files&#41; &#46;AND&#46; IsArray&#40;a_Files&#41;\n  FOR EACH el IN a_Files\n    oMail&#58;Attachments&#58;Add&#40; el &#41;\n  NEXT\nEND\n    \noMail&#58;Display = &#46;T&#46;\n\noMail &#58;= nil\n\nRETURN\n\n[/code:33sibd5t]','',0,'AIA=','33sibd5t',1,0,'',67,0,0),(26916,6008,3,67,0,'81.11.215.8',1171876288,1,0,1,1,1,0,'','','Antonio,\n\nThe client asked me to avoid the msginfo , but also when i add your code , this seems not to be possible\n\nNow , i see very shortly the meginfo , and then is word activated.\n\nWithout the msginfo , i can return to the program without closing word , this gives problems in the next time the shellexecute is activated.\nAny idea ?\n\nFrank','',0,'AIA=','nzvueiyc',1,0,'',67,0,0),(26917,6022,4,945,0,'80.32.177.143',1171876747,1,0,1,1,1,0,'','Color de las barras de un listbox','Muy buenas, ¿Alguien sabría cambiar el color de las barras de desplazamiento en un listbox?\n\nMuchas gracias por todo.\n\nUn Saludo.','',0,'AIA=','ranrc9ae',1,0,'',945,0,0),(26918,6023,7,945,0,'80.32.177.143',1171876808,1,0,1,1,1,0,'','Cambiar el color de las barras de desplazamiento en listbox','Muy buenas, ¿Alguien sabría cambiar el color de las barras de desplazamiento en un listbox?\n\nMuchas gracias por todo.\n\nUn Saludo.','',0,'AIA=','1bmz41ut',1,0,'',945,0,0),(26919,5977,7,945,0,'80.32.177.143',1171876844,1,0,1,1,1,0,'','Gracias','Muchas gracias por todo antonio me ha servido de mucha ayuda.','',0,'AIA=','1sxtsvs8',1,0,'',945,0,0),(26920,6020,3,86,0,'213.119.103.68',1171878660,1,0,1,1,1,1,'','','Thanks a lot, guys.\n\nYou were a great help.\n\nYour examples just work fine except for three things.\n\n1. Outlook always asks for permition to send an email through Outlook.\n\nHow can I prevent asking this question (sometimes more than once) ?\n\n2. What if an email isn\'t send after all ? (I mean : isn\'t excepted by Outlook for one reason or another).\n\n3. If you use \"DEFINE MAIL ...\" you can add the specification \"FROM USER\" after which the email is shown in Outlook before being send (the questions in my first point aren\'t asked too). Is something like that possible in your examples ?\n\nThanks.\n\nMichel','',0,'AIA=','1ustlvmy',1,0,'',86,0,0),(26921,6024,7,945,0,'80.32.177.143',1171879510,1,0,1,1,1,0,'','Cambiar fuente de la cabecera de un listbox','Muy buenas, ¿Alguien sabría cambiar SOLO la fuente de la cabecera de un listbox o mejor ponerla en negrita con la fuente que tenga asignada?\n\nMuchas gracias.\n\nUn Saludo.','',0,'AIA=','32scxywn',1,0,'',945,0,0),(26922,6025,6,449,0,'212.64.224.250',1171879954,1,0,1,1,1,1,'','Limitacion TImage() / FreeImage.dll','Hola,\n\nMe encuentro con la siguiente limitacion. Si uso la clase image me carga perfectamente una foto en formato jpg. Si intento cargar mas de 3/4 en un dialog no lo consigo. Parece una limitacion de memoria. Alguien ha soventado el problema ?. Pongo un ejemplo sencillo para test.\n\n[code:1ycgrl7z]#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Image&#46;ch&quot;\n\n//----------------------------------------------------------------------------\n\nfunction Main&#40;&#41;\n\n   LOCAL oDlg, oImage1, oImage2, oImage3, oImage4, oImage5, oImage6\n   LOCAL cFile &#58;= cGetFile&#40; curdrive&#40;&#41; + \'&#58;\\\' + CurDir&#40;&#41; + \'\\*&#46;jpg\' &#41;\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 39, 50 ;\n      TITLE FWDESCRIPTION + &quot; JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!&quot;\n\n     @ 0 ,  0  IMAGE oImage1 FILE cFile SIZE 100, 100 OF oDlg ADJUST\n     @ 7 ,  0  IMAGE oImage2 FILE cFile SIZE 100, 100 OF oDlg ADJUST\n     @ 14,  0  IMAGE oImage3 FILE cFile SIZE 100, 100 OF oDlg ADJUST\n     @ 0 , 12  IMAGE oImage4 FILE cFile SIZE 100, 100 OF oDlg ADJUST\n     @ 7 , 12  IMAGE oImage5 FILE cFile SIZE 100, 100 OF oDlg ADJUST\n     @ 14, 12  IMAGE oImage6 FILE cFile SIZE 100, 100 OF oDlg ADJUST\n\n\n     oDlg&#58;bStart &#58;= MsgInfo&#40; \'oImage1&#58;hBitmap \' + str&#40; oImage1&#58;hBitmap &#41; + CRLF + ;\n                             \'oImage2&#58;hBitmap \' + str&#40; oImage2&#58;hBitmap &#41; + CRLF + ;\n                             \'oImage3&#58;hBitmap \' + str&#40; oImage3&#58;hBitmap &#41; + CRLF + ;\n                             \'oImage4&#58;hBitmap \' + str&#40; oImage4&#58;hBitmap &#41; + CRLF + ;\n                             \'oImage5&#58;hBitmap \' + str&#40; oImage5&#58;hBitmap &#41; + CRLF + ;\n                             \'oImage6&#58;hBitmap \' + str&#40; oImage6&#58;hBitmap &#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTER ;\n\n\nreturn nil[/code:1ycgrl7z]\n\nGracias.','',0,'AIA=','1ycgrl7z',1,0,'',449,0,0),(26923,5832,3,413,0,'194.106.16.43',1171882637,1,0,1,1,1,0,'','','Correct, Kent Thanks....\n\nMy UESTUDIO is working now....','',0,'AIA=','3de9qik9',1,0,'',413,0,0),(26924,6020,3,67,0,'81.11.215.8',1171883766,1,0,1,1,1,0,'','','1. Outlook always asks for permition to send an email through Outlook. \n\nHow can I prevent asking this question (sometimes more than once) ? \n\nMaybe you find an answer in :\n\nc:\\program Files\\Microsoft Office\\OFFICE11\\1043\\VBAOL11.chm\n\n2. What if an email isn\'t send after all ? (I mean : isn\'t excepted by Outlook for one reason or another). \n\nThe major benefit from outlook is that \'sent items\' are updated or not\nUsing tsmtp can also be give an answer in a log-file\n\nFrank','',0,'AIA=','xr6fy3lx',1,0,'',67,0,0),(26925,6026,3,449,0,'212.64.224.250',1171885679,1,0,1,1,1,1,'','Limitation on TImage / FreeImage ?','Hello,\n\nI have a problem when I load more than 2/3 jpg in the same dialog. Anybody solved it ? Example for test:\n\n\n\n[code:bwad0atu]#include &quot;FiveWin&#46;ch&quot; \n#include &quot;Image&#46;ch&quot; \n\n//---------------------------------------------------------------------------- \n\nfunction Main&#40;&#41; \n\n   LOCAL oDlg, oImage1, oImage2, oImage3, oImage4, oImage5, oImage6 \n   LOCAL cFile &#58;= cGetFile&#40; curdrive&#40;&#41; + \'&#58;\\\' + CurDir&#40;&#41; + \'\\*&#46;jpg\' &#41; \n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 39, 50 ; \n      TITLE FWDESCRIPTION + &quot; JPG,JIF,GIF,BMP,DIB,RLE,TGA,PCX support!&quot; \n\n     @ 0 ,  0  IMAGE oImage1 FILE cFile SIZE 100, 100 OF oDlg ADJUST \n     @ 7 ,  0  IMAGE oImage2 FILE cFile SIZE 100, 100 OF oDlg ADJUST \n     @ 14,  0  IMAGE oImage3 FILE cFile SIZE 100, 100 OF oDlg ADJUST \n     @ 0 , 12  IMAGE oImage4 FILE cFile SIZE 100, 100 OF oDlg ADJUST \n     @ 7 , 12  IMAGE oImage5 FILE cFile SIZE 100, 100 OF oDlg ADJUST \n     @ 14, 12  IMAGE oImage6 FILE cFile SIZE 100, 100 OF oDlg ADJUST \n\n\n     oDlg&#58;bStart &#58;= MsgInfo&#40; \'oImage1&#58;hBitmap \' + str&#40; oImage1&#58;hBitmap &#41; + CRLF + ; \n                             \'oImage2&#58;hBitmap \' + str&#40; oImage2&#58;hBitmap &#41; + CRLF + ; \n                             \'oImage3&#58;hBitmap \' + str&#40; oImage3&#58;hBitmap &#41; + CRLF + ; \n                             \'oImage4&#58;hBitmap \' + str&#40; oImage4&#58;hBitmap &#41; + CRLF + ; \n                             \'oImage5&#58;hBitmap \' + str&#40; oImage5&#58;hBitmap &#41; + CRLF + ; \n                             \'oImage6&#58;hBitmap \' + str&#40; oImage6&#58;hBitmap &#41; &#41; \n\n   ACTIVATE DIALOG oDlg CENTER ; \n\n\nreturn nil[/code:bwad0atu]\n\nThanks.','',0,'AIA=','bwad0atu',1,0,'',449,0,0),(26926,6025,6,36,0,'200.113.56.235',1171887234,1,0,1,1,1,0,'','','a mi me funciona bien el ejemplo \n\nFWH 2.8\n\nSaludos\nPatricio','',0,'AIA=','2gmo5am6',1,0,'',36,0,0),(26927,6009,6,36,0,'200.113.56.235',1171888218,1,0,1,1,1,0,'','','Mira este link\n\n[url:285aqqoy]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?p=23516&amp;highlight=#23516[/url:285aqqoy]\n\nbaja el acceso.zip y ahi hay ejemplo de tsbrowse y otras cosas, \n\ndebes ir a menu especial lueogo acceso\n\nEspero que te ayude un poco\n\nSaludos\nPatricio','',0,'EA==','285aqqoy',1,0,'',36,0,0),(26928,5777,6,850,0,'201.255.105.59',1171890914,1,0,1,1,1,0,'','','Hola, consegui por mi proveedor la version 6.2 del advantange server y persiste el problema. Cual será el problema?\n\nAndres','',0,'EA==','1v2mgsj8',1,0,'',850,0,0),(26929,6027,6,413,0,'194.106.16.43',1171892441,1,0,1,1,1,0,'','Nueva andadura con UESTUDIO','Antonio que es lo que tengo que cambiar en UESTUDIO pues cuando realizo cualquier prueba me dice me falta el fichero RES, la verdad no pongo nada dentro de ese fichero. El ejemplo de video que has hecho me ha salido perfecto pero cuando compilo algo que no tiene nada dentro del rc, me da errores. [code:28mfn1qu]--------------------ConfiguraciÃ³n&#58; IntraMail - Debug--------------------\nxHarbour Compiler build 0&#46;99&#46;70 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'&#46;&#46;\\&#46;&#46;\\INTRAM~1\\INTRAM~1&#46;PRG\'&#46;&#46;&#46;\n 100 200Lines 261, Functions/Procedures 7\nGenerating C source output to \'INTRAM~1&#46;c\'&#46;&#46;&#46;\nDone&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nINTRAM~1&#46;c&#58;\nBorland Resource Compiler  Version 5&#46;40\nCopyright &#40;c&#41; 1990, 1999 Inprise Corporation&#46;  All rights reserved&#46;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unable to open file \'INTRAMAIL&#46;RES\'\nIntraMail&#46;EXE - 1 error&#40;es&#41;, 0 advertencia&#40;s&#41;\n[/code:28mfn1qu]\n\nTienes idea de que puede ser, los ficheros son los que has puesto en el foro modificados para mis librerias. Me he fijado en el res generado y parece que lo hace corto del tipo INTRAM~1.RES, tiene algo que ver.\n\nSaludos','',0,'AIA=','28mfn1qu',1,0,'',413,0,0),(26930,6028,6,385,0,'195.76.89.37',1171893456,1,0,1,1,1,0,'','Cosas extrañas en el build de diciembre','Hola\n\nDesde la version 2.5 no actualizaba fivewin, ahora al hacerlo me encuentro las siguientes cosas\n\n1.- No existe la libreria dbfdbt.lib y como yo sigo usando dbfs la primera en la frente... noda mas entrar me sale el siguiente codigo de error\n\n   Called from:  =&gt; TDATABASE:_BBOF(0)\n   Called from:  =&gt; TDATABASE:NEW(0)\n   Called from:  =&gt; TDICCIO:ACTIVATE(176)\n   Called from:  =&gt; TAPPLICATION:NEW(231)\n   Called from: qc4rad32.prg =&gt; MAIN(43)\n\n2.- No uso el arbol de fivewin, sino un arbol que realizao Goran Savckic cpn las modificaciones de Hernan Diego Ceccarelli (gracias por cierto),  primero porque en la epoca que empece a usarlo Fivewin no tenia un arbol decente que no se comiera todos los recursos y segundo porque mi aplicacion es tan comapleja... mas de 700 clases y funciones que no me es practicable cambiar ahora que lo tiene...bien.. hasta ahora ha funcionad, pero ahora me encuentro que no encuentra las siguientes funciones\n\nHB_FUN_LBSETDATA()\nHB_FUN_LBGETDATA()\n\nInvestigando un poco veo que ha cambiado la funcion treedraw de fivewin, la que esta en functions ojo\n\nHB_FUNC( LBSETDATA ) // ( hwnd, index, data )\n\nHB_FUNC( LBGETDATA ) // ( hwnd, index, lDelete )\n\ncuando en a version 2.5 estaba puesta en el mismo fichero\n\nHARBOUR HB_FUN_LBSETDATA() // ( hwnd, index, data )\nHARBOUR HB_FUN_LBGETDATA() // ( hwnd, index, lDelete )\n\nporque ha cambiado?... como puedo acceder a esas funciones?\n\nAun no se como es la nueva version porque no he podido compilar mi aplicacion\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'AIA=','1sc9iiry',1,0,'',385,0,0),(26931,5963,4,3,0,'82.120.23.246',1171893611,1,0,1,1,1,1,'','','Antonio\n\nThe printer works with Unicode\n\nIt is a brand new HP Deskjet 460 \n\nI tried it also on another BT printer (Epson), same problem.\n\nLooks like we have a problem with accented characters.\n\nI have a work around but can not find the appropriate C code for it. Maybe you can help ?\n\nI want to print a txt file from fwppc by calling the file explorer, send via bluetooth function. This will temporarly fix my problem. \n\nThanks for the help,\n\nRichard','',0,'AIA=','35p0psle',1,0,'',3,0,0),(26932,6025,6,449,0,'212.64.224.250',1171893946,1,0,1,1,1,1,'','','Hola Patricio,\n\nCon ficheros pequeños funciona ok, pero p.e. yo uso ficheretes de 700 Kb. (fotos a 3 Mpix.) y alli empieza el problema. Q tamaño tenia el fichero q has probado ?\n\nTesteado en FWH 2.8','',0,'AIA=','2ak6r6fx',1,0,'',449,0,0),(26933,6011,6,456,0,'217.127.39.57',1171894877,1,0,1,1,1,1,'','','Rochinha, thanks for your answer. I will take a look to the FTP class and the link you have  sended.','',0,'AIA=','1wtap0is',1,0,'',456,0,0),(26934,6008,3,397,0,'201.26.11.205',1171896685,1,0,1,0,1,1,'','','Frank\n\nSee this:\n\n[code:iiyczlwb]\n&#46;&#46;&#46;\n   OLEWORD97&#40;oWndMain,&quot;C&#58;\\TEMP\\efkes&#46;rtf&quot;&#41;\n&#46;&#46;&#46;\nFUNCTION OLEWORD97&#40;oOLEWnd,cFName&#41;\n   LOCAL oWnd, cWndName &#58;= cFileName&#40;cFName&#41; + &quot; - Microsoft Word&quot;\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin OLE Support&quot; FROM 0, 0 TO 600, 800 PIXEL\n          oWord&#58;=TOleAuto&#40;&#41;&#58;New&#40; &quot;Word&#46;Application&quot; &#41;\n          oWord&#58;Documents&#58;Open&#40; cFName &#41;\n          oWord&#58;Visible     &#58;= &#46;t&#46;\n          oWord&#58;WindowState &#58;= 1\n          //oWord&#58;PrintOut&#40;&#41; // You need print?\n          oWord&#58;End&#40;&#41;\n   ACTIVATE WINDOW oWnd ON INIT &#40;WinExec&#40;cWndName&#41;, WinCapsule&#40;oWnd,cWndName&#41;&#41; \n            //VALID &#40; oWord&#58;End&#40;&#41;, &#46;t&#46; &#41;\n   RETURN\n   \nFunction WinCapsule&#40;oWin,cWName&#41;\n   local lCaptured, hIE\n   hIE &#58;= FindWindow&#40;0,cWName&#41;\n   lCaptured &#58;= &#40; hIE &gt; 0 &#41;\n   IF lCaptured\n      SetParent&#40;hIE, oWin&#58;hWnd&#41;\n      SysRefresh&#40;&#41;\n   ELSE\n      MsgRun&#40;\'OLE not activated&#46;\'&#41;\n   ENDIF \n   return nil\n[/code:iiyczlwb]','',0,'AIA=','iiyczlwb',1,0,'',397,0,0),(26935,6015,3,487,0,'151.42.205.74',1171896992,1,0,1,1,1,0,'','','James,\n\nthank you for your reply.\n[quote=&quot;James Bott&quot;:2n1ker37]The only other soultion is to use indexes (with the FOR ! DELETED() clause) and to set a scope. This way ordKeyCount() knows the number of records in the scope without rereading the entire database.[/quote:2n1ker37]\nThat DBF contains only a few records and does not have any index.\nI\'m not sure I\'ve correctly understood the \"scope\" part of your reply.\nHow could I apply such scope to my DBF/xBrowse ?\n\nTIA,\nDavide','',0,'gA==','2n1ker37',1,0,'',487,0,0),(26936,6029,3,86,0,'213.119.103.68',1171897683,1,0,1,1,1,1,'','Antonio, question about TFolder class','Hello Antonio,\n\nDid you find any time to look at my question concerning the TFolder class ?\n\nThanks.\n\nMichel','',0,'gA==','1soyxn6z',1,0,'',86,0,0),(26937,6015,3,303,0,'72.199.41.171',1171898705,1,0,1,1,1,0,'','','Davide,\n\n&gt;That DBF contains only a few records and does not have any index. \n\nIf that is the case it is possible and feasible to count all the records in the filter and change bKeyCount to return the total. \n\n&gt;I\'m not sure I\'ve correctly understood the \"scope\" part of your reply. \nHow could I apply such scope to my DBF/xBrowse ?\n\nYou use an index to create the scope of the view of records. For example you could index on CUSTNO and then set the scope to only view one CUSTNO.\n\n  [code:va7d5zkr]index on custno to custno for ! deleted&#40;&#41;\n\n   ordScope&#40;0, cCustno&#41; // set the bottom scope\n   ordScope&#40;1, cCustno&#41; // set the top scope[/code:va7d5zkr]\n\njames','',0,'AIA=','va7d5zkr',1,0,'',303,0,0),(26938,6008,3,397,0,'201.26.11.205',1171898719,1,0,1,0,1,1,'','','Sorry\n\nIts a very little modification\n\n[code:2fzhs4s3]\nFUNCTION OLEWORD97&#40;oOLEWnd,cFName&#41; \n   LOCAL oWnd, oWord, cWndName &#58;= cFileName&#40;cFName&#41; + &quot; - Microsoft Word&quot; \n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot; FROM 0, 0 TO 600, 800 PIXEL \n          oWord&#58;=TOleAuto&#40;&#41;&#58;New&#40; &quot;Word&#46;Application&quot; &#41; \n          oWord&#58;Documents&#58;Open&#40; cFName &#41; \n          oWord&#58;Visible     &#58;= &#46;t&#46; \n          oWord&#58;WindowState &#58;= 1 \n          //oWord&#58;PrintOut&#40;&#41; \n          //oWord&#58;End&#40;&#41; \n   ACTIVATE WINDOW oWnd ON INIT &#40;WinExec&#40;cWndName&#41;, WinCapsule&#40;oWnd,cWndName&#41;&#41; ; \n            VALID &#40; oWord&#58;Quit&#40;&#41;, oWord&#58;End&#40;&#41;, &#46;t&#46; &#41;[/code:2fzhs4s3]','',0,'AIA=','2fzhs4s3',1,1171898899,'',397,1,0),(26940,5983,6,891,0,'148.243.37.162',1171900076,1,0,1,1,1,0,'','','[quote=&quot;carlos.mora&quot;:qm37zxlm]Adriano,\n\nCuando me refiero a \'consolidados\' quiero decir una dbf que, por ejemplo, contenga todos los datos hasta el día en que sabemos que ya no se van a cambiar, para no estar buscando en tantas tablas.\n\nSe me ocurren varias optimizaciones, pero me gustaría saber:\n1) Cuando se hace la consulta, siempre se traen todos los datos?\n2) que informacion viene en la tabla MA? obvimente indica los periodos, pero eso es algo que creo se pueden calcular conociendo la fecha inicial y final de la consulta.\n3) No uses tantos indicadores de alias. Es más rapido un select y trabajar  en el area actual. Algo como:\n\nSelect MA\nTEMP-&gt;(OrdSetFocus(3))\nTEMP-&gt;(GoTop())\n\nEs lo mismo que \nSelect MA\nSelect Temp\nOrdSetFocus(3)\nSelect MA\nSelect Temp\nTEMP-&gt;(GoTop())\nSelect MA\n\n4) No me doy cuenta para que esta el \n\n   TEMP-&gt;(DbSeek(MOVT-&gt;MV_NCTA))\n\nEn fin, creo que se pueden hacer algunas cosas para acelerar el proceso. Tambien hay que ver como se hace y muestra la consulta, ya que si le ponemos una progress bar y le vamos mostrando algo que le indique que el programa esta trabajando seguro que eso le calma la ansiedad.\n\nSaludos, \n\nCarlos.[/quote:qm37zxlm]\n\nHola Carlos Mora, si y no siempre se traen todos los datos, depende el tipo de movimiento que el usuario solicite un reporte, la MA es un alias que se pide mes y año inicial dentro la base de datos, y gracias por el tip y consejos que me indicas Carlos Mora, te lo agradezco amigo y me puede dar alguna sugerencia o un proceso de rutina que se agilise mas la busqueda de cuentas ?\nAdriano','',0,'gA==','qm37zxlm',1,0,'',891,0,0),(26941,6025,6,36,0,'200.113.56.235',1171900302,1,0,1,1,1,0,'','','DIMENSION 359 X 124, 8,97 KB\n\n\nAHORA CON 1027X647 1.90MB\n\nY TB FUNCIONA OK\n\nSALUDOS\nPATRICIO','',0,'gA==','2erye3dd',1,0,'',36,0,0),(26942,6015,3,487,0,'151.42.205.74',1171900916,1,0,1,1,1,0,'','','James,\n[quote=&quot;James Bott&quot;:310m11ew]If that is the case it is possible and feasible to count all the records in the filter and change bKeyCount to return the total.[/quote:310m11ew]\nthis cured the problem.\nThank you,\nDavide','',0,'gA==','310m11ew',1,0,'',487,0,0),(26943,6029,3,3,0,'82.120.23.246',1171901682,1,0,1,1,1,1,'','Re: Antonio, question about TFolder class','Michel\n\nThe tfolder class works OK in fwh\n\nJust a small advice, Get rid  of all Borland Controls (Borshade,...etc). This is the best way to have your app running. \n\nBorland controls were a problem to many of us.\n\nHth\n\nRichard','',0,'gA==','19jbfdy8',1,0,'',3,0,0),(26944,6030,6,774,0,'200.72.202.77',1171901845,1,0,1,1,1,1,'','HARBOUR O XHARBOUR ???','Cual es mejor Harbo... o xHabo\n\nSegun sus esperiencias..\n\nGRACIAS','',0,'gA==','1bnwlf0t',1,0,'',774,0,0),(26945,6029,3,86,0,'213.119.103.68',1171902958,1,0,1,1,1,1,'','','Richard,\n\nHow do I get rid of the Borland Controls ?\n\nResource Workshop uses but the Borland Controls.\n\nFor dialog boxes one can choose between BorDlg_Gray or BorDlg.\nWithout Borland Controls some controls are colored a very ugly gray.\n\nWhat is the alternative while using resources ?\n\nThanks.\n\nMichel','',0,'gA==','3qnba5be',1,0,'',86,0,0),(26946,6026,3,6,0,'87.10.2.17',1171903267,1,0,1,1,1,1,'','Re: Limitation on TImage / FreeImage ?','I just tried your sample and found no problem at all.\n\nEMG','',0,'gA==','3nrrykso',1,0,'',6,0,0),(26947,6025,6,449,0,'88.8.240.43',1171904535,1,0,1,1,1,1,'','','Patricio,\n\nGracias por tu test. Voy a probarlo en diferentes maquinas, a ver...\n\nNo se si sera mi equipo.','',0,'gA==','142lloc6',1,0,'',449,0,0),(26948,6026,3,449,0,'88.8.240.43',1171904605,1,0,1,1,1,1,'','','Enrico,\n\nThanks for your test. I don\'t now that happen me. I wil try in other machines.\n\nThanks','',0,'gA==','w4kylwxq',1,0,'',449,0,0),(26949,6020,3,397,0,'201.26.11.205',1171905462,1,0,1,0,1,1,'','','Friend\n\nIn Outlook Express you need uncheck the field bellow:\n\n[img:18tv7a2m]http&#58;//www&#46;shoppmarketing&#46;com/forum/outlookexpress&#46;jpg[/img:18tv7a2m]','',0,'CA==','18tv7a2m',1,0,'',397,0,0),(26950,6026,3,6,0,'87.10.2.17',1171905700,1,0,1,1,1,1,'','','Check also if you are using a recent FreeImage.dll release (I\'m using 391 that is not the latest).\n\nEMG','',0,'CA==','305e0pzn',1,0,'',6,0,0),(26951,6030,6,397,0,'201.26.11.205',1171905943,1,0,1,0,1,1,'','','Amigo\n\nHarbour és la parte tradicional deste mundo.\nxHarbour és la vertente comercial( $ ) con suporte.\n\nPero, no puedes exigir suporte de algo free. Tienes de sacar lo precio.\n\nYo uso Harbour en su totalidad i estoi feliz.','',0,'CA==','285nhu80',1,0,'',397,0,0),(26952,6030,6,138,0,'189.141.72.59',1171906441,1,0,1,1,1,1,'','','4 años usando xHarbour y sin problemas.','',0,'CA==','2dtkdvhk',1,0,'',138,0,0),(26953,6026,3,138,0,'189.141.72.59',1171906814,1,0,1,1,1,1,'','','Carles:\n\nCon la Image basada en la NIVEWLIB DLL (nativa de FiveWin) nosotros teniamos el problema de la velocidad de carga de las imagenes, era demasiado lenta.\n\nNos movimos a FREEIMAGE de EMG y ahora el programa funciona muy rapido en la carga de las imagenes.','',0,'CA==','2nzo5ew8',1,0,'',138,0,0),(26954,6031,6,875,0,'64.76.108.179',1171906868,1,0,1,1,1,0,'','Tamaño de  Txbrowse()','como puedo hacer para controlar el tamaño del Txbrowse, ya que aparece muy pequeño en una ventana de Dialogo, he intentando con \n\noBrw:nWidth       := 480\noBrw:nHeight      := 200\n\npero no funciona\n\n ¿alguien sabe como?\n\n\n\nSe Agradece de antemano\n\njaime','',0,'CA==','3b4ov54b',1,0,'',875,0,0),(26955,6010,6,196,0,'200.85.108.226',1171908771,1,0,1,1,1,0,'','','Ok, hago eso.\nAntonio, no se si viste un mail que te envie sobre un exe en texto con FWH.\n\nGracias\nJorge Jaurena','',0,'CA==','2ukfl75i',1,0,'',196,0,0),(26956,6030,6,72,0,'189.146.239.227',1171910179,1,0,1,1,1,0,'','','Yo solo Harbour, cuando sea grande probaré xHarbour.','',0,'CA==','31tt68nh',1,0,'',72,0,0),(26957,6029,3,3,0,'82.255.212.206',1171910345,1,0,1,1,1,1,'','','Michel\n\nYou can set color to your dialog boxes from your source code.\n\nWhen you select the dialog in resource workshop, select none (borlandgray, or borland you have a third selection (none) blank)\n\nYou can customize all your screens without any borland control.\n\nIf you need further help or samples, let me know.\n\nMy 2 cents\n\nRichard','',0,'CA==','2ngu5tav',1,0,'',3,0,0),(26958,5963,4,2,0,'87.218.146.57',1171910763,1,0,1,1,1,1,'','','Richard,\n\nPlease try this:\n[code:rp0ak8fr]\nHB_FUNC&#40; WRITE233 &#41; // hComm --&gt; lOk \n&#123; \n   DWORD cBytes; \n   WCHAR ch = 233; \n    \n   hb_retl&#40; &#40; BOOL &#41; WriteFile&#40; &#40; void * &#41; hb_parnl&#40; 1 &#41;, &amp;ch, sizeof&#40; ch &#41;\n, &amp;cBytes, NULL &#41; &#41;; \n&#125;\n[/code:rp0ak8fr]','',0,'AIA=','rp0ak8fr',1,0,'',2,0,0),(26959,6010,6,2,0,'87.218.146.57',1171910944,1,0,1,1,1,1,'','','Jorge,\n\nNo lo he recibido, lo mandastes como ZIP ? Igual lo borró el filtro antispam','',0,'AIA=','2fbnz9k4',1,0,'',2,0,0),(26960,6030,6,774,0,'200.72.102.210',1171916374,1,0,1,1,1,1,'','','Alfredo,, segun tu valiosa opinion::\n\nHarbour o xHarbour\ny porque?? \n\nGRACIAS','',0,'AIA=','10c3whtw',1,0,'',774,0,0),(26961,6032,6,774,0,'200.72.102.210',1171916464,1,0,1,1,1,1,'','SUPER URGENTE AL FORO:::','Necesito la LIB de Tsbrowse para xHarbour y FWH27  si alguine la tiene operativa junto con el .CH y me la puede mandar al \n\n<!-- e --><a href=\"mailto:zxzxzx@123mail.cl\">zxzxzx@123mail.cl</a><!-- e -->,,,  muy agradecido\n\nun desesperado\n\nGRACIAS','',0,'AIA=','15tayjxj',1,0,'',774,0,0),(26962,6019,3,148,0,'196.205.174.235',1171920268,1,0,1,1,1,0,'','','Thanks <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','22i6o7kt',1,0,'',148,0,0),(26963,6033,3,148,0,'196.205.174.235',1171920504,1,0,1,1,1,0,'','Scroll in Dialogs','If I have many variables to get How can I scroll to get a lot of variables in a dialog ?','',0,'AIA=','2fghpz9o',1,0,'',148,0,0),(26964,6011,6,397,0,'201.26.11.205',1171920763,1,0,1,0,1,1,'','','Biel,\n\nThe class below is more complete:\n\n[code:3tc5y7wu]\n// Original work from Alex Shaft &amp; Peter Kohler, with mods by Byron Hopp, Rimantas Usevicius\n// Modified by Luis Krause May 10, 2003, Optimized and cleaned up code\n//                                       Fixed &#58;&#58;Retr&#40;&#41; &amp; &#58;&#58;Dir&#40;&#41; bugs\n//                                       added progress bar capability\n//                                       Made socket calls compatible with modified TSocket class &#40;TSmtp, etc&#46;&#41;\n//                                       Added a timeout to escape from &#58;&#58;DoWait&#40;&#41; to avoid hanging up the system\n//                                       Added Proxy support &#40;needs more testing&#41;\n//                     October 14, 2003, Optimized &#58;&#58;Retr&#40;&#41; &amp; &#58;&#58;Dir&#40;&#41; more - much faster now\n//                                       &#58;&#58;oTrnSocket wasn\'t being properly released&#46; Fixed!\n//                     May 8, 2003       More fixes to &#58;&#58;Retr???&#40;&#41; methods\n//                                       Fixed &#58;&#58;Stor&#40;&#41;, added IVAR nDelay to allow upload to work\n// Entries in log file use the following codes&#58;\n//   &quot;E&#58;&quot;  an error occurred; description follows\n//   &quot;I&#58;&quot;  info about the current operation executed\n//   &quot;S&#58;&quot;  data/action sent to the ftp server\n//   &quot;R&#58;&quot;  reply/response returned by ftp server\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Directry&#46;ch&quot;\n\n#ifndef __CLIPPER__\n#xtranslate Memory&#40;&lt;n&gt;&#41; =&gt;                       // only needed with Clipper, not Harbour\n#endif\n\n#define BLOCK_SIZE 10240\n\n#define ST_CLOSED     0\n#define ST_CONNECTING 1\n#define ST_CONNECTED  2\n#define ST_CONNECTERR 3\n\n#define ST_DOCWD      4\n#define ST_DONECWD    5\n#define ST_CWDERROR   6\n\n#define ST_DOTYPE     7\n#define ST_TYPEOK     8\n#define ST_TYPEBAD    9\n\n#define ST_DOPORT     10\n#define ST_PORTOK     11\n#define ST_PORTBAD    12\n\n#define ST_DOSTOR     13\n#define ST_STOROK     14\n#define ST_STORBAD    15\n#define ST_STORDONE   16\n\n#define ST_DOPASV     17\n#define ST_PASVOK     18\n#define ST_PASVBAD    19\n\n#define ST_DOQUIT     20\n#define ST_QUITOK     21\n#define ST_QUITBAD    22\n\n#define ST_DODIR      23\n#define ST_DIROK      24\n#define ST_DIRBAD     25\n#define ST_DIRDONE    26\n#define ST_DIRREADY   126\n\n#define ST_DOPWD      27\n#define ST_DONEPWD    28\n#define ST_PWDERROR   29\n\n#define ST_DORENFROM  30\n#define ST_RENFROMOK  31\n#define ST_RENFROMBAD 32\n#define ST_DORENTO    33\n#define ST_RENTOOK    34\n#define ST_RENTOBAD   35\n\n#define ST_DODELETE   36\n#define ST_DELETEOK   37\n#define ST_DELETEBAD  38\n\n#define ST_DOMKDIR    39\n#define ST_MKDIROK    40\n#define ST_MKDIRBAD   41\n\n#define ST_DORETR     42\n#define ST_RETROK     43\n#define ST_RETRBAD    44\n#define ST_RETRDONE   45\n\n#define ST_DOABOR     46\n#define ST_ABOROK     47\n#define ST_ABORBAD    48\n\n#define ST_DORMDIR    49\n#define ST_RMDIROK    50\n#define ST_RMDIRBAD   51\n\n#define NTRIM&#40;n&#41;    &#40; LTrim&#40; Str&#40; n &#41; &#41; &#41;\n\n/*\nFunction Main&#40;&#41;\n\n  local oWin\n\n  DEFINE WINDOW oWin ;\n   TITLE &quot;FTP Test&quot;\n\n  ACTIVATE WINDOW oWin ;\n   ON INIT FTPTest&#40;&#41;\n\nreturn nil\n\nStatic Function FTPTest&#40;&#41;\n\n  local oFTP\n\n  Ferase&#40;&quot;logftp&#46;txt&quot;&#41;\n\n  oFTP &#58;= qFTPClient&#40;&#41;&#58;New&#40;&quot;10&#46;1&#46;1&#46;2&quot;, 21, &#123;|cMessage| Logfile&#40;&quot;logftp&#46;txt&quot;, &#123;cMessage&#125;&#41;&#125;,, ;\n      &quot;alex&quot;, &quot;secret&quot;&#41;\n\n  // oFTP&#58;bAbort &#58;= &#123;|| oApp&#40;&#41;&#58;oFrmmain&#58;lFormClosed&#125;\n  oFTP&#58;lPassive &#58;= &#46;T&#46;\n  if oFTP&#58;Connect&#40;&#41;\n    MsgInfo&#40;&quot;Connection successful to &quot; + oFTP&#58;cServer + CRLF + oFTP&#58;cServerIP + CRLF + oFTP&#58;oSocket&#58;ClientIP&#40;&#41;&#41;\n\n    if oFTP&#58;Cd&#40;&quot;/home/alex&quot;&#41;\n      MSginfo&#40;&quot;Successfully changed dir to /pub&quot;&#41;\n\n      if oFTP&#58;Dir&#40;&#41;\n        Msginfo&#40;&quot;Got directory listing&quot;&#41;\n        //Aeval&#40;oFTP&#58;acDir, &#123;| cDir, nCount | Msginfo&#40;Str&#40;nCount&#41; + &quot; &quot; + cDir&#41;&#125;&#41;\n        oFTP&#58;Retr&#40;&quot;/etc/hosts&quot;, &quot;hosts&#46;txt&quot;&#41;\n        oFTP&#58;Del&#40;&quot;hosts&#46;backup&quot;&#41;\n        oFTP&#58;Stor&#40;&quot;hosts&#46;txt&quot;, &quot;hosts&#46;txt&quot;&#41;\n        oFTP&#58;Rename&#40;&quot;hosts&#46;txt&quot;, &quot;hosts&#46;backup&quot;&#41;\n        oFTP&#58;Quit&#40;&#41;\n        oFTP&#58;End&#40;&#41;\n        Msginfo&#40;&quot;Done&quot;&#41;\n      else\n        Msginfo&#40;&quot;Directory listing failed!&quot;&#41;\n        oFTP&#58;Quit&#40;&#41;\n        oFTP&#58;End&#40;&#41;\n      endif\n    else\n      Msginfo&#40;&quot;CD to /pub failed!&quot;&#41;\n      oFTP&#58;Quit&#40;&#41;\n      oFTP&#58;End&#40;&#41;\n    endif\n  else\n    Msginfo&#40;&quot;Connect failed!&quot;&#41;\n  endif\n\nreturn nil\n\n*/\n\nCLASS qFTPClient\n\n   #ifdef __CLIPPER__\n   DATA oSocket, oTrnSocket, oProxy              AS OBJECT, NIL\n   #else\n   DATA oSocket, oTrnSocket, oProxy              AS OBJECT INIT Nil\n   #endif\n\n   DATA cServer, cServerIP, cUser, cPass, cBuffer, cLastCmd, cReply, cDirBuffer, ;\n        cDataIP                                  AS String INIT &quot;&quot;\n\n   DATA nPort, nDataPort                         AS NUMERIC INIT 21\n\n   DATA nStatus, nRetrHandle                     AS NUMERIC INIT 0\n\n   DATA bResolving, bResolved, bDump, bAbort, bStorProgress ;\n                                                 AS Codeblock INIT Nil\n\n   DATA lResolved, lConnected, lClosed, lSent, lSendFile, lPassive, lSentUser ;\n                                                 AS Logical Init &#46;F&#46;\n\n   DATA acDir, acReply                           AS Array\n\n   DATA nRetrFSize, nRetrBRead                   AS NUMERIC INIT 0\n\n   // allow a small delay when uploading &#40;STOR command&#41; data if there\'s no way to get an acknowledgment from server\n   DATA nDelay                                   AS NUMERIC INIT 1\n\n   // allow 30 seconds before we bump out of &#58;&#58;DoWait&#40;&#41; to avoid hanging up the system\n   // set to 0 if you\'re pretty confident this won\'t happen to you &#58;o&#41;\n   DATA nTimeOut                                 AS NUMERIC INIT 30\n\n\n   Method New&#40; cServer, nPort, bDump, bAbort, cUser, cPass, cProxyIP, nProxyPort, cProxyLog &#41; Constructor\n\n   Method End&#40;&#41;\n\n   Method Connect&#40;&#41;\n\n   Method OnConnect&#40; oSocket, nWSAError &#41;\n   Method OnRead&#40; oSocket, nWSAError &#41;\n   Method OnClose&#40; oSocket, nWSAError &#41;\n\n   Method Port&#40; oTransSocket &#41;\n\n   Method CD&#40; cPath &#41;\n\n   Method Pwd&#40;&#41;\n\n   Method XfrType&#40; cType &#41;\n\n   Method Stor&#40; cLocal, cRemote, bStorProgess, oMeter, oText &#41;\n   Method StorAccept&#40; opSocket, nWSAError, cFile, oMeter, oText &#41; Hidden\n   Method StorClose&#40; oSocket, nWSAError, cFile, oMeter, oText &#41; Hidden\n\n   Method Dir&#40; cLoc &#41;\n   Method DirAccept&#40; opSocket, nWSAError &#41; Hidden\n   Method DirRead&#40; oSocket, nWSAError &#41; Hidden\n   Method DirClose&#40; oSocket, nWSAError &#41; Hidden\n\n   Method Dump&#40; cMsg &#41;\n\n   Method Quit&#40;&#41;\n   Method Bye&#40;&#41; Inline &#58;&#58;Quit&#40;&#41;\n\n   Method DoWait&#40; nState &#41; Hidden\n\n   Method Del&#40; cFile &#41;\n\n   Method Rename&#40; cFrom, cTo &#41;\n\n   Method MkDir&#40; cDir &#41;\n\n   Method RmDir&#40; cDir &#41;\n\n   Method Retr&#40; cRemote, cLocal, oMeter, oText &#41;\n   Method RetrAccept&#40; opSocket, nWSAError, cFile, oMeter, oText &#41; Hidden\n   Method RetrRead&#40; oSocket, nWSAError, cFile, oMeter, oText &#41; Hidden\n   Method RetrClose&#40; oSocket, nWSAError, cFile, oMeter, oText &#41; Hidden\n\n   Method Abort&#40;&#41;\n\n   Method Pasv&#40;&#41;\n\nEndClass\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Creates FTP Object\n\n   Parameters &#58; cServer    &#58; Servername e&#46;g&#46; ftp&#46;microsoft&#46;com or 207&#46;46&#46;133&#46;140\n                nPort      &#58; Server FTP Port&#46; Defaults to 21\n                bDump      &#58; Codeblock to send all commands sent, and replies received to&#46; Useful for logging, etc&#46;\n                bAbort     &#58; Codeblock, which if eval\'s to True, will abort any current waiting process&#46;\n                cUser      &#58; User name to log-in with\n                cPass      &#58; Password to log-in with\n                cProxyIP   &#58; Optional Proxy IP Address\n                nProxyPort &#58; Optional Proxy Port No&#46;\n                cProxyLog  &#58; Optional Proxy Logfile\n*/\nMethod New&#40; cServer, nPort, bDump, bAbort, cUser, cPass, ;\n   cProxyIP, nProxyPort, cProxyLog &#41; Class qFTPClient\n\n   Default cServer &#58;= &quot;10&#46;1&#46;1&#46;2&quot;, ;\n      nPort  &#58;= 21, ;\n      bAbort &#58;= &#123;|| &#46;F&#46; &#125;, ;\n      cUser  &#58;= &quot;anonymous&quot;, ;\n      cPass  &#58;= &quot;fwuser@fivetech&#46;com&quot;, ;\n      cProxyIP &#58;= &quot;0&#46;0&#46;0&#46;0&quot;, ;\n      nProxyPort &#58;= 0\n\n   &#58;&#58;cServer &#58;= cServer\n   &#58;&#58;nPort   &#58;= nPort\n   &#58;&#58;bAbort  &#58;= bAbort\n   &#58;&#58;bDump   &#58;= bDump\n\n   &#58;&#58;acDir   &#58;= &#123;&#125;\n   &#58;&#58;acReply &#58;= &#123;&#125;\n\n   &#58;&#58;cUser   &#58;= cUser\n   &#58;&#58;cPass   &#58;= cPass\n\n   If Val&#40; cProxyIP &#41; &gt; 0 &#46;and&#46; nProxyPort &gt; 0\n      &#58;&#58;oProxy &#58;= TProxy&#40;&#41;&#58;New&#40; nProxyPort, cProxyIP &#41;\n      &#58;&#58;oProxy&#58;lDebug &#58;= bDump # Nil\n      If cProxyLog # Nil\n         &#58;&#58;oProxy&#58;cLogFile &#58;= cProxyLog\n      Endif\n      &#58;&#58;oProxy&#58;Activate&#40;&#41;\n   Endif\n\nReturn Self\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to give feedback to caller\n*/\nMethod Dump&#40; cMsg &#41; Class qFTPClient\n\n   If ValType&#40; &#58;&#58;bDump &#41; == &quot;B&quot; &#46;and&#46; ValType&#40; cMsg &#41; == &quot;C&quot;\n      Eval&#40; &#58;&#58;bDump, cMsg &#41;\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Logs into the FTP Server, using parameters specified with New Method&#46;\n   Returns True or False based on connection success\n*/\nMethod Connect&#40;&#41; Class qFTPClient\n   Local nReturn\n   Local lOK &#58;= &#46;F&#46;                              // was &#46;T&#46; - Thanks to Roberto Chiaiese\n\n   &#58;&#58;lResolved &#58;= &#46;F&#46;\n\n   &#58;&#58;oSocket &#58;= TSocket&#40;&#41;&#58;New&#40;0&#41;\n\n   If ValType&#40; &#58;&#58;bResolving &#41; == &quot;B&quot;\n      Eval&#40; &#58;&#58;bResolving, Self &#41;\n   Endif\n\n   If IsAlpha&#40; &#58;&#58;cServer &#41;\n      &#58;&#58;cServerIP &#58;= GetHostByName&#40; AllTrim&#40; &#58;&#58;cServer &#41; &#41;  // PK Note this hogs the pc for up to 35 seconds if it cannot be resolved\n   Else\n      &#58;&#58;cServerIP &#58;= &#58;&#58;cServer\n   Endif\n\n   If &#58;&#58;lResolved &#58;= Val&#40; &#58;&#58;cServerIP &#41; &gt; 0\n\n      &#58;&#58;oSocket&#58;bConnect &#58;= &#123;|o,n| &#58;&#58;OnConnect&#40; o, n &#41; &#125;  // lkm - see adjustment to TSocket class\n      &#58;&#58;oSocket&#58;bRead    &#58;= &#123;|o,n| &#58;&#58;OnRead&#40; o, n &#41; &#125;\n      &#58;&#58;oSocket&#58;bClose   &#58;= &#123;|o,n| &#58;&#58;OnClose&#40; o, n &#41; &#125;\n\n      &#58;&#58;nStatus &#58;= ST_CONNECTING\n      Memory&#40;-1&#41;                                 // cleanup memory when connecting frequently\n      &#58;&#58;oSocket&#58;Connect&#40; &#58;&#58;cServerIP, &#58;&#58;nPort &#41;\n\n      &#58;&#58;DoWait&#40; ST_CONNECTING &#41;\n\n      lOK &#58;= &#58;&#58;nStatus == ST_CONNECTED\n      If ValType&#40; &#58;&#58;bResolved &#41; == &quot;B&quot;\n         Eval&#40; &#58;&#58;bResolved, Self &#41;\n      Endif\n\n   Endif\n\nReturn lOk\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to handle connection established&#46;\n   Note it only checks for a bad connection&#46; The rest is done by OnRead\n*/\nMethod OnConnect&#40; oSocket, nWSAError &#41; Class qFTPClient\n\n   If Val&#40; oSocket&#58;ClientIP&#40;&#41; &#41; == 0\n      &#58;&#58;lConnected &#58;= &#46;F&#46;\n      &#58;&#58;nStatus &#58;= ST_CONNECTERR\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to handle data received by control socket\n*/\nMethod OnRead&#40; oSocket, nWSAError &#41; Class qFTPClient\n   Local cData &#58;= &quot;&quot;\n   Local nPos  &#58;= 0, nPos1, nPos2\n   Local cCmd  &#58;= &quot;&quot;\n\n   cData &#58;= oSocket&#58;GetData&#40;&#41;\n\n   &#58;&#58;cBuffer += cData\n\n   Do While &#40; nPos &#58;= At&#40; CRLF, &#58;&#58;cBuffer &#41; &#41; &gt; 0 &#46;and&#46; ! Eval&#40; &#58;&#58;bAbort &#41;\n      AAdd&#40; &#58;&#58;acReply, Left&#40; &#58;&#58;cBuffer, nPos - 1 &#41; &#41;\n      &#58;&#58;cBuffer &#58;= SubStr&#40; &#58;&#58;cBuffer, nPos + 2 &#41;\n   Enddo\n\n   AEval&#40; &#58;&#58;acReply, &#123;|cReply| &#58;&#58;Dump&#40; &quot;R&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;&quot; + cReply &#41; &#125; &#41;\n   If Len&#40; &#58;&#58;acReply &#41; &gt; 0 &#46;and&#46; ;\n         Val&#40; Left&#40; ATail&#40; &#58;&#58;acReply &#41;, 3 &#41; &#41; &gt; 0 &#46;and&#46; ;  // i&#46;e&#46; skip stuff like&#58;\n         SubStr&#40; ATail&#40; &#58;&#58;acReply &#41;, 4, 1 &#41; == &quot; &quot;         // &quot;230-&quot; or &quot; ***&quot;\n\n      // Full reply received\n      &#58;&#58;cReply &#58;= ATail&#40; &#58;&#58;acReply &#41;\n      cCmd &#58;= Left&#40; &#58;&#58;cReply, 3 &#41;                // Left&#40; &#58;&#58;acReply&#91;1&#93;, 3 &#41; &lt;&lt;- caused a ton of problems!\n\n      Do Case\n      Case cCmd == &quot;530&quot; &#46;or&#46; ;                  // Login incorrect&#46; &#91;or other error&#93;\n            &#58;&#58;nStatus == ST_CLOSED &#46;or&#46; &#58;&#58;nStatus == ST_CONNECTERR\n         &#58;&#58;nStatus &#58;= ST_DOQUIT\n         &#58;&#58;lConnected &#58;= &#46;F&#46;\n\n      Case &#58;&#58;nStatus == ST_CONNECTING\n         Do Case\n         Case cCmd == &quot;220&quot;                      // Ready for user| ProFTPD 1&#46;2&#46;2rc1 Server &#40;ProFTPD&#41; &#91;n&#46;n&#46;n&#46;n&#93;\n            &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;USER *************&quot; &#41;  // + AllTrim&#40; &#58;&#58;cUser &#41;\n            oSocket&#58;SendData&#40; &quot;USER &quot; + AllTrim&#40; &#58;&#58;cUser &#41; + CRLF &#41;\n            &#58;&#58;lSentUser &#58;= &#46;T&#46;\n         Case cCmd == &quot;331&quot;                      // Password required for &#58;&#58;cUser&#46;\n            &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;PASS *************&quot; &#41;\n            oSocket&#58;SendData&#40; &quot;PASS &quot; + AllTrim&#40; &#58;&#58;cPass &#41; + CRLF &#41;\n         Case cCmd == &quot;230&quot;                      // User &#58;&#58;cUser logged in&#46;\n            &#58;&#58;nStatus &#58;= ST_CONNECTED\n            &#58;&#58;lConnected &#58;= &#46;T&#46;\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_CONNECTERR\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOCWD\n         Do Case\n         Case cCmd == &quot;250&quot;                      // CWD command successful&#46;\n            &#58;&#58;nStatus &#58;= ST_DONECWD\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_CWDERROR\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOQUIT\n         &#58;&#58;lConnected &#58;= &#46;F&#46;\n         Do Case\n         Case cCmd == &quot;221&quot; &#46;or&#46; cCmd == &quot;530&quot;   // Goodbye&#46;\n            &#58;&#58;nStatus &#58;= ST_QUITOK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_QUITBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DODELETE\n         Do Case\n         Case cCmd == &quot;250&quot;                      // DEL command successful&#46;\n            &#58;&#58;nStatus &#58;= ST_DELETEOK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_DELETEBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOPWD\n         Do Case\n         Case cCmd == &quot;257&quot;                      // PWD command successful&#46;\n            &#58;&#58;nStatus &#58;= ST_DONEPWD\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_PWDERROR\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOPORT\n         Do Case\n         Case cCmd == &quot;200&quot;                      // OK\n            &#58;&#58;nStatus &#58;= ST_PORTOK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_PORTBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOTYPE\n         Do Case\n         Case cCmd == &quot;200&quot;                      // Type set to x&#46;\n            &#58;&#58;nStatus &#58;= ST_TYPEOK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_TYPEBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOSTOR\n         Do Case\n         Case cCmd == &quot;150&quot;\n            &#58;&#58;nStatus &#58;= ST_STOROK\n            &#58;&#58;lSendFile &#58;= &#46;T&#46;\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_STORBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_STOROK\n         Do Case\n         Case cCmd == &quot;226&quot;                      // OK\n            &#58;&#58;nStatus &#58;= ST_STORDONE\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_STORBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOPASV\n         Do Case\n         Case cCmd == &quot;227&quot;                      // Entering Passive Mode &#40;n,n,n,n,m,m&#41;&#46;\n            &#58;&#58;nStatus &#58;= ST_PASVOK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_PASVBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DODIR\n         Do Case\n         Case cCmd == &quot;150&quot;                      // Opening ASCII mode data connection for &#91;file list&#93;\n            &#58;&#58;nStatus &#58;= ST_DIROK\n         Case cCmd == &quot;125&quot;                      // Data connection already open; Transfer starting&#46;\n            &#58;&#58;nStatus &#58;= ST_DIROK                // some ftp servers return 125 instead of 150\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_DIRBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DIROK &#46;or&#46; &#58;&#58;nStatus == ST_DIRREADY\n         Do Case\n         Case cCmd == &quot;226&quot;                      // Transfer complete&#46;\n            &#58;&#58;nStatus &#58;= ST_DIRDONE\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_DIRBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DORETR\n         Do Case\n         Case cCmd == &quot;150&quot;                      // Opening BINARY mode data connection for cFile &#40;nnnnn bytes&#41;&#46;\n            If &#58;&#58;nRetrBRead == 0                 // in case it jumped the gun &#40;with small files sometimes ST_RETRDONE jumps the gun and file has already arrived!&#41;\n               nPos1 &#58;= At&#40; &quot;&#40;&quot;, &#58;&#58;cReply &#41;\n               nPos2 &#58;= At&#40; &quot; bytes&#41;&quot;, &#58;&#58;cReply &#41;\n               &#58;&#58;nRetrFSize &#58;= Val&#40; SubStr&#40; &#58;&#58;cReply, nPos1 + 1, nPos2 - nPos1 - 1 &#41; &#41;\n            Endif\n            &#58;&#58;nStatus &#58;= ST_RETROK\n         Case cCmd == &quot;125&quot;                      // command 150 never received, therefore we don\'t know the size of the file being retrieved\n            If &#58;&#58;nRetrFSize == 0                 // horrible hack, but it\'s the only\n               &#58;&#58;nRetrFSize &#58;= 1                 // way around this &#40;for the time being&#41;\n            Endif\n            &#58;&#58;nStatus &#58;= ST_RETROK\n         Otherwise                               // a 550 means No such file or directory\n            &#58;&#58;nStatus &#58;= ST_RETRBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_RETROK &#46;or&#46; &#58;&#58;nStatus == ST_RETRDONE\n         Do Case\n         Case cCmd == &quot;226&quot;                      // Transfer complete&#46;\n            &#58;&#58;nStatus &#58;= ST_RETRDONE\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_RETRBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DORENFROM\n         Do Case\n         Case cCmd == &quot;350&quot;\n            &#58;&#58;nStatus &#58;= ST_RENFROMOK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_RENFROMBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DORENTO\n         Do Case\n         Case cCmd == &quot;250&quot;\n            &#58;&#58;nStatus &#58;= ST_RENTOOK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_RENTOBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOMKDIR\n         Do Case\n         Case cCmd == &quot;257&quot;                      // OK\n            &#58;&#58;nStatus &#58;= ST_MKDIROK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_MKDIRBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DOABOR\n         Do Case\n         Case cCmd == &quot;426&quot;                      // Data connection closed, file transfer cFile aborted&#46;\n            &#58;&#58;nStatus &#58;= ST_DOABOR               // stay put for successful reply from server\n         Case cCmd == &quot;225&quot; &#46;or&#46; cCmd == &quot;226&quot;   // ABOR command successful&#46;\n            &#58;&#58;nStatus &#58;= ST_ABOROK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_ABORBAD\n         EndCase\n\n      Case &#58;&#58;nStatus == ST_DORMDIR\n         Do Case\n         Case cCmd == &quot;250&quot;                      // OK\n            &#58;&#58;nStatus &#58;= ST_RMDIROK\n         Otherwise\n            &#58;&#58;nStatus &#58;= ST_RMDIRBAD\n         EndCase\n\n      Otherwise\n         &#58;&#58;Dump&#40; &quot;E&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Unknown exception on cmd &quot; + &#58;&#58;cReply &#41;\n\n      EndCase\n\n   Endif\n   &#58;&#58;acReply &#58;= &#123;&#125;\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Used to get directory listing&#46;\n   cLoc Parameter gives dir spec&#46;\n   Returns true or false based on success\n   When True&#46; Data var acDir will hold dir listing as returned by server&#46;\n*/\nMethod Dir&#40; cLoc &#41; CLASS qFTPClient\n   Local lOK       &#58;= &#46;T&#46;\n   Local cPort     &#58;= &quot;&quot;\n   Local nPos      &#58;= 0\n   Local cLine     &#58;= &quot;&quot;\n   Local cSepChar  &#58;= &quot;&quot;\n\n   Default cLoc &#58;= &quot;&quot;\n\n   &#58;&#58;acDir &#58;= &#123;&#125;\n   &#58;&#58;cDirBuffer &#58;= &quot;&quot;\n\n   &#58;&#58;oTrnSocket &#58;= TSocket&#40;&#41;&#58;New&#40;0&#41;\n\n   If ! &#58;&#58;lPassive\n      cPort &#58;= &#58;&#58;Port&#40; &#58;&#58;oTrnSocket &#41;\n\n      &#58;&#58;oTrnSocket&#58;bAccept &#58;= &#123;|o,n| &#58;&#58;DirAccept&#40; o, n &#41; &#125;\n      &#58;&#58;oTrnSocket&#58;Listen&#40;&#41;\n\n      &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Listening on port &quot; + NTRIM&#40; &#58;&#58;oTrnSocket&#58;nPort &#41; &#41;\n\n      &#58;&#58;nStatus &#58;= ST_DOPORT\n      &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;&quot; + cPort &#41;\n      &#58;&#58;oSocket&#58;SendData&#40; cPort + CRLF &#41;\n\n      &#58;&#58;DoWait&#40; ST_DOPORT &#41;\n      lOK &#58;= &#58;&#58;nStatus == ST_PORTOK\n   Else\n      If &#58;&#58;Pasv&#40;&#41;\n         If lOK &#58;= &#58;&#58;nDataPort &gt; 0\n            &#58;&#58;oTrnSocket&#58;bConnect &#58;= &#123;|o,n| &#58;&#58;DirAccept&#40; o, n &#41; &#125;\n            &#58;&#58;oTrnSocket&#58;bRead    &#58;= &#123;|o,n| &#58;&#58;DirRead&#40; o, n &#41; &#125;\n            &#58;&#58;oTrnSocket&#58;bClose   &#58;= &#123;|o,n| &#58;&#58;DirClose&#40; o, n &#41; &#125;\n            &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Connecting on IP&#58;port &quot; + &#58;&#58;cDataIP + &quot;&#58;&quot; + NTRIM&#40; &#58;&#58;nDataPort &#41; &#41;\n            Memory&#40;-1&#41;                           // cleanup memory when connecting frequently\n            &#58;&#58;oTrnSocket&#58;Connect&#40; &#58;&#58;cDataIP, &#58;&#58;nDataPort &#41;\n         Endif\n      Endif\n   Endif\n\n   If lOK\n      &#58;&#58;nStatus &#58;= ST_DODIR\n      &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;LIST &quot; + AllTrim&#40; cLoc &#41; &#41;\n      &#58;&#58;oSocket&#58;SendData&#40; &quot;LIST &quot; + AllTrim&#40; cLoc &#41; + CRLF &#41;\n\n      &#58;&#58;DoWait&#40; ST_DODIR &#41;\n      &#58;&#58;DoWait&#40; ST_DIROK &#41;\n\n      If lOK &#58;= &#58;&#58;nStatus == ST_DIRDONE\n         &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Interpreting dir listing&quot; &#41;\n         cSepChar &#58;= CRLF\n         nPos &#58;= At&#40; cSepChar, &#58;&#58;cDirBuffer &#41;\n         If nPos == 0\n            If ! Empty&#40; &#58;&#58;cDirBuffer &#41;  // single line, just one file, THEREFORE there won\'t be any CRLF\'s!\n               &#58;&#58;cDirBuffer += CRLF\n            Else\n               cSepChar &#58;= Chr&#40;10&#41;\n            Endif\n            nPos &#58;= At&#40; cSepChar, &#58;&#58;cDirBuffer &#41;\n         Endif\n         &#58;&#58;acDir &#58;= &#123;&#125;\n         Do While nPos &gt; 0 &#46;and&#46; ! Eval&#40; &#58;&#58;bAbort &#41;\n            cLine &#58;= AllTrim&#40; Left&#40; &#58;&#58;cDirBuffer, nPos - 1 &#41; &#41;\n            &#58;&#58;cDirBuffer &#58;= SubStr&#40; &#58;&#58;cDirBuffer, nPos + Len&#40; cSepChar &#41; &#41;\n            cLine &#58;= AllTrim&#40; StrTran&#40; cLine, Chr&#40;0&#41;, &quot;&quot; &#41; &#41;\n\n            If&#40; ! Empty&#40; cLine &#41;, AAdd&#40; &#58;&#58;acDir, cLine &#41;, Nil &#41;\n\n            nPos &#58;= At&#40; cSepChar, &#58;&#58;cDirBuffer &#41;\n            SysRefresh&#40;&#41;\n         Enddo\n         lOk &#58;= ! Empty&#40; &#58;&#58;acDir &#41;\n         &#58;&#58;nStatus &#58;= ST_DIRREADY\n         SysWait&#40; &#58;&#58;nDelay &#41;                     // allow time for server to respond\n      Else\n         &#58;&#58;Abort&#40;&#41;\n      Endif\n   Endif\n\n   If &#58;&#58;oTrnSocket # Nil\n      &#58;&#58;oTrnSocket&#58;End&#40;&#41;\n      &#58;&#58;oTrnSocket &#58;= Nil\n   Endif\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage directory socket\n*/\nMethod DirAccept&#40; opSocket, nWSAError &#41; Class qFTPClient\n   Local oSocket\n\n   If ! &#58;&#58;lPassive\n      oSocket &#58;= TSocket&#40;&#41;&#58;Accept&#40; opSocket&#58;nSocket &#41;\n      oSocket&#58;bRead  &#58;= &#123;|o,n| &#58;&#58;DirRead&#40; o, n &#41; &#125;\n      oSocket&#58;bClose &#58;= &#123;|o,n| &#58;&#58;DirClose&#40; o, n &#41; &#125;\n   Endif\n   &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;LIST data connection established&quot; &#41;\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage directory socket\n*/\nMethod DirRead&#40; oSocket, nWSAError &#41; Class qFTPClient\n   Local cData &#58;= oSocket&#58;GetData&#40;&#41;\n\n   &#58;&#58;cDirBuffer += cData\n   &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;LIST data received&quot; &#41;\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage directory socket\n*/\nMethod DirClose&#40; oSocket, nWSAError &#41; Class qFTPClient\n\n   &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;LIST data socket closed&#58;&quot; + CRLF + &#58;&#58;cDirBuffer &#41;\n   oSocket&#58;Close&#40;&#41;\n   &#58;&#58;nStatus &#58;= ST_DIRDONE\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to handle socket closed by server\n*/\nMethod OnClose&#40; oSocket, nWSAError &#41; Class qFTPClient\n\n   &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Server closed down&quot; &#41;\n   &#58;&#58;lClosed &#58;= &#46;T&#46;\n   &#58;&#58;nStatus &#58;= ST_CLOSED\n   If ValType&#40; &#58;&#58;oSocket &#41; == &quot;O&quot;\n      &#58;&#58;oSocket&#58;Close&#40;&#41;\n      &#58;&#58;oSocket &#58;= Nil\n   Endif\n\n   If ValType&#40; &#58;&#58;oTrnSocket &#41; == &quot;O&quot;\n      &#58;&#58;oTrnSocket&#58;Close&#40;&#41;\n      &#58;&#58;oTrnSocket &#58;= Nil\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n Kills connections\n*/\nMethod End&#40;&#41; Class qFTPClient\n\n   If ValType&#40; &#58;&#58;oSocket &#41; == &quot;O&quot;\n      &#58;&#58;oSocket&#58;End&#40;&#41;\n      &#58;&#58;oSocket &#58;= Nil\n   Endif\n\n   If ValType&#40; &#58;&#58;oTrnSocket &#41; == &quot;O&quot;\n      &#58;&#58;oTrnSocket&#58;End&#40;&#41;\n      &#58;&#58;oTrnSocket &#58;= Nil\n   Endif\n\n   If ValType&#40; &#58;&#58;oProxy &#41; == &quot;O&quot;\n      &#58;&#58;oProxy&#58;End&#40;&#41;\n      &#58;&#58;oProxy &#58;= Nil\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to obtain unused port no&#46; for data connections&#46;\n*/\nMETHOD Port&#40; oTransSocket &#41; Class qFTPClient\n   Local cIP &#58;= GetIP&#40; &#58;&#58;oSocket&#58;nSocket &#41;\n   Local nPort\n   Local cPort\n   Local cComplement\n\n   BindToPort&#40; oTransSocket&#58;nSocket, 0 &#41;         // Get a free port from 1024 - 5000\n\n   nPort       &#58;= GetPort&#40; oTransSocket&#58;nSocket &#41;\n   cPort       &#58;= AllTrim&#40; Str&#40; Int&#40; nPort / 256 &#41;, 3 &#41; &#41;\n   cComplement &#58;= AllTrim&#40; Str&#40; Int&#40; nPort % 256 &#41;, 3 &#41; &#41;\n\n   oTransSocket&#58;nPort &#58;= nPort\n\nReturn &quot;PORT &quot; + StrTran&#40; AllTrim&#40; StrTran&#40; cIP, &quot;&#46;&quot;, &quot;,&quot; &#41; &#41; + ;\n   &quot;,&quot; + cPort + &quot;,&quot; + cComplement, &quot; &quot;, &quot;&quot; &#41;\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Change directory on FTP Server&#46;\n   Returns True or False based on success\n*/\nMethod CD&#40; cPath &#41; Class qFTPClient\n   Local lOK &#58;= &#46;T&#46;\n\n   &#58;&#58;nStatus &#58;= ST_DOCWD\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;CWD &quot; + cPath &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;CWD &quot; + cPath + CRLF &#41;\n   &#58;&#58;DoWait&#40; ST_DOCWD &#41;\n\n   lOK &#58;= &#58;&#58;nStatus == ST_DONECWD\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Used internally to set Binary transfer mode for transfers\n*/\nMethod XfrType&#40; cType &#41; Class qFTPClient\n   Local lOK &#58;= &#46;T&#46;\n\n   Default cType &#58;= &quot;I&quot;\n\n   &#58;&#58;nStatus &#58;= ST_DOTYPE\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;TYPE &quot; + cType &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;TYPE &quot; + cType + CRLF &#41;\n   &#58;&#58;DoWait&#40; ST_DOTYPE &#41;\n\n   lOK &#58;= &#58;&#58;nStatus == ST_TYPEOK\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Used to store files on server&#46;\n   Parameters &#58; cLocal        &#58; Local File to send\n                cRemote       &#58; Location to store file remotely\n                bStorProgess  &#58; Codeblock to get percent complete\n                oMeter        &#58; Meter object progress bar &#91;optional&#93;\n                oText         &#58; Say object used with meter object to display bytes processed &#91;optional&#93;\n   Returns True or False based on success\n*/\nMethod Stor&#40; cLocal, cRemote, bStorProgress, oMeter, oText &#41; Class qFTPClient\n   Local cRemFile  &#58;= &quot;&quot;\n   Local nPos      &#58;= 0\n   Local cPort     &#58;= &quot;&quot;\n   Local lOK       &#58;= &#46;T&#46;\n\n   Default cRemote &#58;= &quot;&quot;, ;\n           bStorProgress &#58;= &#123;|| Nil &#125;\n\n   &#58;&#58;bStorProgress &#58;= bStorProgress\n\n   &#58;&#58;lSendFile &#58;= &#46;F&#46;\n   If Empty&#40; cRemote &#41;\n      If &#40; nPos &#58;= RAt&#40; &quot;\\&quot;, cLocal &#41; &#41; &gt; 0\n         cRemFile &#58;= SubStr&#40; cLocal, nPos + 1 &#41;\n      Else\n         cRemFile &#58;= cLocal\n      Endif\n   Else\n      cRemFile &#58;= cRemote\n   Endif\n\n   If oMeter # Nil\n      oMeter&#58;cargo &#58;= &#46;T&#46;                        // cancel button available while download in progress\n      oMeter&#58;oWnd&#58;AEvalWhen&#40;&#41;\n   Endif\n\n   &#58;&#58;XfrType&#40; &quot;I&quot; &#41;\n   &#58;&#58;DoWait&#40; ST_DOTYPE &#41;\n\n   &#58;&#58;oTrnSocket &#58;= TSocket&#40;&#41;&#58;New&#40;0&#41;\n\n   If lOK &#58;= &#58;&#58;nStatus == ST_TYPEOK\n\n      If ! &#58;&#58;lPassive\n         cPort &#58;= &#58;&#58;Port&#40; &#58;&#58;oTrnSocket &#41;\n         &#58;&#58;oTrnSocket&#58;bAccept &#58;= &#123;|o,n| &#58;&#58;StorAccept&#40; o, n, cLocal, oMeter, oText &#41; &#125;\n         &#58;&#58;oTrnSocket&#58;Listen&#40;&#41;\n         &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Listening on port &quot; + NTRIM&#40; &#58;&#58;oTrnSocket&#58;nPort &#41; &#41;\n\n         &#58;&#58;nStatus &#58;= ST_DOPORT\n         &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;&quot; + cPort &#41;\n         &#58;&#58;oSocket&#58;SendData&#40; cPort + CRLF &#41;\n\n         &#58;&#58;DoWait&#40; ST_DOPORT &#41;\n         lOK &#58;= &#58;&#58;nStatus == ST_PORTOK\n      Else\n         If &#58;&#58;Pasv&#40;&#41;\n            If lOK &#58;= &#58;&#58;nDataPort &gt; 0\n               &#58;&#58;oTrnSocket&#58;bConnect &#58;= &#123;|o,n| &#58;&#58;StorAccept&#40; o, n, cLocal, oMeter, oText &#41; &#125;\n               &#58;&#58;oTrnSocket&#58;bClose   &#58;= &#123;|o,n| &#58;&#58;StorClose&#40; o, n, cLocal, oMeter, oText &#41; &#125;\n               &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Connecting on IP&#58;port &quot; + &#58;&#58;cDataIP + &quot;&#58;&quot; + NTRIM&#40; &#58;&#58;nDataPort &#41; &#41;\n               Memory&#40;-1&#41;                        // cleanup memory when connecting frequently\n               &#58;&#58;oTrnSocket&#58;Connect&#40; &#58;&#58;cDataIP, &#58;&#58;nDataPort &#41;\n            Endif\n         Endif\n      Endif\n   Endif\n\n   If lOk\n      &#58;&#58;nStatus &#58;= ST_DOSTOR\n      &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;STOR &quot; + cRemFile &#41;\n      &#58;&#58;oSocket&#58;SendData&#40; &quot;STOR &quot; + cRemFile + CRLF &#41;\n\n      &#58;&#58;DoWait&#40; ST_DOSTOR &#41;\n      &#58;&#58;DoWait&#40; ST_STOROK &#41;\n\n      lOK &#58;= &#58;&#58;nStatus == ST_STORDONE\n   Endif\n\n   If &#58;&#58;oTrnSocket # Nil\n      &#58;&#58;oTrnSocket&#58;End&#40;&#41;\n      &#58;&#58;oTrnSocket &#58;= Nil\n   Endif\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage file store socket\n*/\nMethod StorAccept&#40; opSocket, nWSAError, cFile, oMeter, oText &#41; Class qFTPClient\n   Local oSocket\n   Local hFile   &#58;= 0\n   Local cBuffer &#58;= &quot;&quot;\n   Local nSent   &#58;= 0\n   Local nTotal  &#58;= 0\n   Local lClosed &#58;= &#46;F&#46;\n   Local nNow    &#58;= 0\n   Local nSize\n\n   If ! &#58;&#58;lPassive\n      oSocket &#58;= TSocket&#40;&#41;&#58;Accept&#40; opSocket&#58;nSocket &#41;\n      oSocket&#58;bClose &#58;= &#123;|o,n| &#58;&#58;StorClose&#40; o, n, cFile, oMeter, oText &#41;, lClosed &#58;= &#46;T&#46; &#125;\n   Else\n      oSocket &#58;= opSocket\n   Endif\n\n   Do While ! &#58;&#58;lSendFile &#46;and&#46; ! &#58;&#58;lClosed &#46;and&#46; ! Eval&#40; &#58;&#58;bAbort &#41;\n      SysRefresh&#40;&#41;\n   Enddo\n\n   If &#58;&#58;lSendFile\n      &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;STOR data connection established&quot; &#41;\n\n      nNow &#58;= Seconds&#40;&#41;\n      If &#40; hFile &#58;= FOpen&#40; cFile &#41; &#41; &gt; 0\n         nSize &#58;= Directory&#40; cFile &#41;&#91;1,F_SIZE&#93;\n         &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Uploading &quot; + cFile + &quot;, &quot; + NTRIM&#40; nSize &#41; + &quot; bytes in size&quot; &#41;\n         If oMeter # Nil\n            oMeter&#58;Set&#40;0&#41;                        // reset\n            oMeter&#58;SetTotal&#40; nSize &#41;             // set bar length\n         Endif\n         cBuffer &#58;= Space&#40; BLOCK_SIZE &#41;\n         Do While &#46;T&#46;\n            nSent &#58;= FRead&#40; hFile, @cBuffer, BLOCK_SIZE &#41;\n            oSocket&#58;SendData&#40; Left&#40; cBuffer, nSent &#41; &#41;\n            nTotal += nSent\n            If &#58;&#58;nDelay &gt; 0\n               SysWait&#40; &#58;&#58;nDelay &#41;               // this is trial and error&#46;&#46;&#46; I\'m using 0&#46;5 to 1&#46;5; default is 1&#46;0\n            Endif\n\n            Eval&#40; &#58;&#58;bStorProgress, Round&#40; nTotal / nSize * 100, 2 &#41; &#41;  // left for compatibility with original class\n            If&#40; oMeter # Nil, oMeter&#58;Set&#40; nTotal &#41;, Nil &#41;\n            If&#40; oText # Nil, oText&#58;SetText&#40; cFile + &quot;&#58; &quot; + NTRIM&#40; nTotal &#41; + &quot; bytes uploaded&#46;&#46;&#46;&quot; &#41;, Nil &#41;\n\n            If nSent &lt; BLOCK_SIZE &#46;or&#46; lClosed &#46;or&#46; &#58;&#58;nStatus == ST_STORBAD &#46;or&#46; Eval&#40; &#58;&#58;bAbort &#41;\n               Exit\n            Endif\n            If &#58;&#58;nDelay == 0\n               SysRefresh&#40;&#41;\n            Endif\n\n         Enddo\n         FClose&#40; hFile &#41;\n         &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;&quot; + NTRIM&#40; nTotal &#41; + &quot; bytes of file sent in &quot; + LTrim&#40; Str&#40; Seconds&#40;&#41; - nNow, 16, 2 &#41; &#41; + &quot; seconds&quot; &#41;\n         &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Waiting for acknowledgement&quot; &#41;\n\n         oSocket&#58;Close&#40;&#41;\n      Else\n         oSocket&#58;Close&#40;&#41;\n         oSocket&#58;End&#40;&#41;\n         &#58;&#58;Dump&#40; &quot;E&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;FOpen&#40;&#41; failed with file &quot; + cFile + &quot; DOS Error #&quot; + NTRIM&#40; FError&#40;&#41; &#41; &#41;\n      Endif\n      SysRefresh&#40;&#41;\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage file store socket\n*/\nMethod StorClose&#40; oSocket, nWSAError, cFile, oMeter, oText &#41; Class qFTPClient\n\n   If oMeter # Nil\n      oMeter&#58;cargo &#58;= &#46;F&#46;                        // cancel button not available anymore\n      oMeter&#58;oWnd&#58;AEvalWhen&#40;&#41;\n   Endif\n   &#58;&#58;lSendFile &#58;= &#46;F&#46;\n   oSocket&#58;Close&#40;&#41;\n   If &#58;&#58;nStatus == ST_DOABOR &#46;or&#46; &#58;&#58;nStatus == ST_ABOROK &#46;or&#46; ;\n         &#58;&#58;nStatus == ST_ABORBAD &#46;or&#46; &#58;&#58;nStatus == ST_STORBAD\n      &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;STOR data aborted&quot; &#41;\n   Else\n      &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;STOR data completed &#58;-&#41;&quot; &#41;\n      &#58;&#58;nStatus &#58;= ST_STORDONE\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Close FTP Connection\n*/\nMethod Quit&#40;&#41; Class qFTPClient\n\n   &#58;&#58;nStatus &#58;= ST_DOQUIT\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;QUIT&quot; &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;QUIT&quot; + CRLF &#41;\n\n   &#58;&#58;DoWait&#40; ST_DOQUIT &#41;\n\nReturn &#46;T&#46;\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Get current directory on FTP Server\n   Returns True or False based on success\n*/\nMethod Pwd&#40;&#41; Class qFTPClient\n   Local cRetVal &#58;= &quot;&quot;\n   Local nPos &#58;= &quot;&quot;\n   Local cReply\n\n   &#58;&#58;nStatus &#58;= ST_DOPWD\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;PWD&quot; &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;PWD&quot; + CRLF &#41;\n\n   &#58;&#58;DoWait&#40; ST_DOPWD &#41;\n\n   cReply &#58;= &#58;&#58;cReply\n   nPos &#58;= At&#40; \'&quot;\', cReply &#41;\n   cReply &#58;= SubStr&#40; cReply, nPos + 1 &#41;\n\n   nPos &#58;= At&#40; \'&quot;\', cReply &#41;\n   cReply &#58;= SubStr&#40; cReply, 1, nPos - 1 &#41;\n   cRetVal &#58;= cReply\n\nReturn cRetVal\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Delete file &#40;cFile of server&#41;\n   Will return Success True or False\n*/\nMethod Del&#40; cFile &#41; Class qFTPClient\n   Local lOK &#58;= &#46;T&#46;\n\n   Default cFile &#58;= &quot;&quot;\n\n   &#58;&#58;nStatus &#58;= ST_DODELETE\n\n   If lOK &#58;= ! Empty&#40; cFile &#41;\n      &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;DELE &quot; + cFile &#41;\n      &#58;&#58;oSocket&#58;SendData&#40; &quot;DELE &quot; + cFile + CRLF &#41;\n\n      &#58;&#58;DoWait&#40; ST_DODELETE &#41;\n\n      lOK &#58;= &#58;&#58;nStatus == ST_DELETEOK\n   Endif\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Rename file on server\n   Parameters &#58; cFrom  &#58; Source file\n                cTo    &#58; Target file\n   Will return Success True or False\n*/\nMethod Rename&#40; cFrom, cTo &#41; Class qFTPClient\n   Local lOK &#58;= &#46;F&#46;\n\n   Default cFrom &#58;= &quot;&quot;, ;\n           cTo   &#58;= &quot;&quot;\n\n   If lOK &#58;= ! Empty&#40; cFrom &#41; &#46;and&#46; ! Empty&#40; cTo &#41;\n      &#58;&#58;nStatus &#58;= ST_DORENFROM\n      &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;RNFR &quot; + cFrom &#41;\n      &#58;&#58;oSocket&#58;SendData&#40; &quot;RNFR &quot; + cFrom + CRLF &#41;\n\n      &#58;&#58;DoWait&#40; ST_DORENFROM &#41;\n\n      If lOK &#58;= &#58;&#58;nStatus == ST_RENFROMOK\n         &#58;&#58;nStatus &#58;= ST_DORENTO\n         &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;RNTO &quot; + cTo &#41;\n         &#58;&#58;oSocket&#58;SendData&#40; &quot;RNTO &quot; + cTo + CRLF &#41;\n\n         &#58;&#58;DoWait&#40; ST_DORENTO &#41;\n\n         lOK &#58;= &#58;&#58;nStatus == ST_RENTOOK\n      Endif\n   Endif\n\nReturn lOk\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Create a directory\n*/\nMethod MkDir&#40; cDir &#41; Class qFTPClient\n   Local lOK &#58;= &#46;T&#46;\n\n   &#58;&#58;nStatus &#58;= ST_DOMKDIR\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;MKD &quot; + cDir &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;MKD &quot; + cDir + CRLF &#41;\n\n   &#58;&#58;DoWait&#40; ST_DOMKDIR &#41;\n\n   lOK &#58;= &#58;&#58;nStatus == ST_MKDIROK\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Remove a directory\n*/\nMethod RmDir&#40; cDir &#41; Class qFTPClient\n   Local lOK &#58;= &#46;T&#46;\n\n   &#58;&#58;nStatus &#58;= ST_DORMDIR\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;RMD &quot; + cDir &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;RMD &quot; + cDir + CRLF &#41;\n\n   &#58;&#58;DoWait&#40; ST_DORMDIR &#41;\n\n   lOK &#58;= &#58;&#58;nStatus == ST_RMDIROK\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Retrieve file from server&#46;\n   Parameters &#58; cRemote  &#58; Remote file name\n                cLocal   &#58; Local file name\n                oMeter   &#58; Meter object progress bar &#91;optional&#93;\n                oText    &#58; Say object used with meter object to display bytes processed &#91;optional&#93;\n*/\nMethod Retr&#40; cRemote, cLocal, oMeter, oText &#41; Class qFTPClient\n   Local lOK   &#58;= &#46;T&#46;\n   Local cPort &#58;= &quot;&quot;\n   Local nPos  &#58;= 0\n   Local cLine &#58;= &quot;&quot;\n   Local nNow  &#58;= 0\n\n   nPos &#58;= RAt&#40; &quot;/&quot;, cRemote &#41;\n   If nPos == 0\n      Default cLocal &#58;= cRemote\n   Else\n      Default cLocal &#58;= SubStr&#40; cRemote, nPos + 1 &#41;\n   Endif\n\n   If oMeter # Nil\n      oMeter&#58;cargo &#58;= &#46;T&#46;                        // cancel button available while download in progress\n      oMeter&#58;oWnd&#58;AEvalWhen&#40;&#41;\n   Endif\n\n   &#58;&#58;nRetrHandle &#58;= FCreate&#40; cLocal &#41;\n   If lOK &#58;= &#40; &#58;&#58;nRetrHandle &gt; 0 &#41;\n\n      &#58;&#58;XfrType&#40; &quot;I&quot; &#41;\n      &#58;&#58;DoWait&#40; ST_DOTYPE &#41;\n\n      If lOK &#58;= &#58;&#58;nStatus == ST_TYPEOK\n         &#58;&#58;oTrnSocket &#58;= TSocket&#40;&#41;&#58;New&#40;0&#41;\n         If ! &#58;&#58;lPassive\n            cPort &#58;= &#58;&#58;Port&#40; &#58;&#58;oTrnSocket &#41;\n\n            &#58;&#58;oTrnSocket&#58;bAccept &#58;= &#123;|o,n| &#58;&#58;RetrAccept&#40; o, n, cRemote, oMeter, oText &#41; &#125;\n            &#58;&#58;oTrnSocket&#58;Listen&#40;&#41;\n\n            &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Listening on port &quot; + NTRIM&#40; &#58;&#58;oTrnSocket&#58;nPort &#41; &#41;\n\n            &#58;&#58;nStatus &#58;= ST_DOPORT\n            &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;&quot; + cPort &#41;\n            &#58;&#58;oSocket&#58;SendData&#40; cPort + CRLF &#41;\n\n            &#58;&#58;DoWait&#40; ST_DOPORT &#41;\n            lOK &#58;= &#58;&#58;nStatus == ST_PORTOK\n         Else\n            If &#58;&#58;Pasv&#40;&#41;\n               If lOK &#58;= &#58;&#58;nDataPort &gt; 0\n                  &#58;&#58;oTrnSocket&#58;bConnect &#58;= &#123;|o,n| &#58;&#58;RetrAccept&#40; o, n, cRemote, oMeter, oText &#41; &#125;\n                  &#58;&#58;oTrnSocket&#58;bRead    &#58;= &#123;|o,n| &#58;&#58;RetrRead&#40; o, n, cRemote, oMeter, oText &#41; &#125;\n                  &#58;&#58;oTrnSocket&#58;bClose   &#58;= &#123;|o,n| &#58;&#58;RetrClose&#40; o, n, cRemote, oMeter, oText &#41; &#125;\n                  &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Connecting on IP&#58;port &quot; + &#58;&#58;cDataIP + &quot;&#58;&quot; + NTRIM&#40; &#58;&#58;nDataPort &#41; &#41;\n                  Memory&#40;-1&#41;                     // cleanup memory when connecting frequently\n                  &#58;&#58;oTrnSocket&#58;Connect&#40; &#58;&#58;cDataIP, &#58;&#58;nDataPort &#41;\n               Endif\n            Endif\n         Endif\n      Endif\n   Else\n      &#58;&#58;Dump&#40; &quot;E&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;FCreate&#40;&#41; failed with file &quot; + cLocal + &quot; DOS Error #&quot; + NTRIM&#40; FError&#40;&#41; &#41; &#41;\n   Endif\n\n   If lOK\n      &#58;&#58;nRetrBRead &#58;= 0                          // initialize here, not in &#58;&#58;OnRead&#40;&#41;\n      &#58;&#58;nStatus &#58;= ST_DORETR\n      &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;RETR &quot; + cRemote &#41;\n      &#58;&#58;oSocket&#58;SendData&#40; &quot;RETR &quot; + cRemote + CRLF &#41;\n\n      &#58;&#58;DoWait&#40; ST_DORETR &#41;\n      Do While &#58;&#58;nRetrBRead &lt; &#58;&#58;nRetrFSize &#46;and&#46; ;  // stay put until file fully downloaded so it won\'t be truncated\n            ! &#58;&#58;nRetrHandle == 0 &#46;and&#46; ! &#58;&#58;lClosed &#46;and&#46; ! Eval&#40; &#58;&#58;bAbort &#41; &#46;and&#46; ;\n            ! &#58;&#58;nStatus == ST_RETRBAD            // this is case the file was not found&#58; 550 ?????&#46;???&#58; No such file or directory\n         SysRefresh&#40;&#41;\n      Enddo\n      &#58;&#58;DoWait&#40; ST_RETROK &#41;\n\n      lOK &#58;= &#58;&#58;nStatus == ST_RETRDONE\n      SysWait&#40; &#58;&#58;nDelay &#41;                        // allow time for server to respond\n   Endif\n\n   If &#58;&#58;oTrnSocket # Nil\n      &#58;&#58;oTrnSocket&#58;End&#40;&#41;\n      &#58;&#58;oTrnSocket &#58;= Nil\n   Endif\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage file retrieval socket\n*/\nMethod RetrAccept&#40; opSocket, nWSAError, cFile, oMeter, oText &#41; Class qFTPClient\n   Local oSocket\n\n   If ! &#58;&#58;lPassive\n      oSocket &#58;= TSocket&#40;&#41;&#58;Accept&#40; opSocket&#58;nSocket &#41;\n      oSocket&#58;bRead  &#58;= &#123;|o,n| &#58;&#58;RetrRead&#40; o, n, cFile, oMeter, oText &#41; &#125;\n      oSocket&#58;bClose &#58;= &#123;|o,n| &#58;&#58;RetrClose&#40; o, n, cFile, oMeter, oText &#41; &#125;\n   Endif\n   &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;RETR data connection established&quot; &#41;\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage file retrieval socket\n*/\nMethod RetrRead&#40; oSocket, nWSAError, cFile, oMeter, oText &#41; Class qFTPClient\n   Local cData &#58;= oSocket&#58;GetData&#40;&#41;\n\n   If &#58;&#58;nRetrHandle &gt; 0\n      If &#58;&#58;nRetrBRead == 0 &#46;and&#46; oMeter # Nil\n         oMeter&#58;Set&#40;0&#41;                           // reset\n         oMeter&#58;SetTotal&#40; &#58;&#58;nRetrFSize &#41;         // set bar length\n      Endif\n      FWrite&#40; &#58;&#58;nRetrHandle, cData &#41;\n      &#58;&#58;nRetrBRead += Len&#40; cData &#41;\n      If&#40; oMeter # Nil, oMeter&#58;Set&#40; &#58;&#58;nRetrBRead &#41;, Nil &#41;\n      If&#40; oText # Nil, oText&#58;SetText&#40; cFile + &quot;&#58; &quot; + NTRIM&#40; &#58;&#58;nRetrBRead &#41; + &quot; bytes downloaded&#46;&#46;&#46;&quot; &#41;, Nil &#41;\n      //&#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Bytes retrieved &quot; + NTRIM&#40; &#58;&#58;nRetrBRead &#41; + &quot; out of &quot; + NTRIM&#40; &#58;&#58;nRetrFSize &#41; &#41;\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to manage file retrieval socket\n   Note&#58; When retrieving very small files, the file might already be downloaded\n         before &#58;&#58;nRetrFSize can even be initialized &#40;cmd 150&#41;&#46; So it\'s OK if it\'s ZERO\n*/\nMethod RetrClose&#40; oSocket, nWSAError, cFile, oMeter, oText &#41; Class qFTPClient\n\n   If oMeter # Nil\n      oMeter&#58;cargo &#58;= &#46;F&#46;                        // cancel button not available anymore\n      oMeter&#58;oWnd&#58;AEvalWhen&#40;&#41;\n   Endif\n   FClose&#40; &#58;&#58;nRetrHandle &#41;\n   &#58;&#58;nRetrHandle &#58;= 0\n   oSocket&#58;Close&#40;&#41;\n   If &#58;&#58;nStatus == ST_DOABOR &#46;or&#46; &#58;&#58;nStatus == ST_ABOROK &#46;or&#46; ;\n         &#58;&#58;nStatus == ST_ABORBAD &#46;or&#46; &#58;&#58;nStatus == ST_RETRBAD\n      &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;RETR data aborted&quot; &#41;\n   Else\n      &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;RETR data completed&quot; + If&#40; &#58;&#58;nRetrBRead &lt; &#58;&#58;nRetrFSize, ;\n         &quot;, but file truncated by &quot; + NTRIM&#40; &#58;&#58;nRetrFSize - &#58;&#58;nRetrBRead &#41; + &quot; bytes &#58;-&#40;&quot;, &quot; &#58;-&#41;&quot; &#41; &#41;\n      // this should avoid the occasional hanging in &#58;&#58;DoWait&#40;&#41;\n      &#58;&#58;nStatus &#58;= If&#40; &#58;&#58;nRetrFSize == 0 &#46;or&#46; &#58;&#58;nRetrBRead &gt;= &#58;&#58;nRetrFSize, ST_RETRDONE, ST_RETRBAD &#41;\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Cancel any transfer/command in progress&#46;\n   Called by class if bAbort block evals to true in wait state&#46;\n*/\nMethod Abort&#40;&#41; Class qFTPClient\n   Local lOK &#58;= &#46;T&#46;, nStatus &#58;= &#58;&#58;nStatus, bAbort &#58;= &#58;&#58;bAbort\n\n   &#58;&#58;bAbort &#58;= &#123;|| &#46;F&#46; &#125;                         // avoid nested calls to &#58;&#58;Abort&#40;&#41;\n   &#58;&#58;nStatus &#58;= ST_DOABOR\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;ABOR while on &quot; + NTRIM&#40; nStatus &#41; &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;ABOR&quot; + CRLF &#41;\n\n   &#58;&#58;DoWait&#40; ST_DOABOR &#41;\n\n   lOK &#58;= &#58;&#58;nStatus == ST_ABOROK\n   &#58;&#58;bAbort &#58;= bAbort                            // restore abort codeblock\n\nReturn lOK\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Switch next transfer to passive mode\n*/\nMethod Pasv&#40;&#41; Class qFTPClient\n   Local cReply &#58;= &quot;&quot;\n   Local nPos   &#58;= 0\n\n   &#58;&#58;nStatus &#58;= ST_DOPASV\n   &#58;&#58;Dump&#40; &quot;S&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;PASV&quot; &#41;\n   &#58;&#58;oSocket&#58;SendData&#40; &quot;PASV&quot; + CRLF &#41;\n\n   &#58;&#58;DoWait&#40; ST_DOPASV &#41;\n\n   If &#58;&#58;lPassive &#58;= &#58;&#58;nStatus == ST_PASVOK\n      cReply &#58;= &#58;&#58;cReply\n      nPos &#58;= At&#40; &quot;&#40;&quot;, cReply &#41;\n      cReply &#58;= SubStr&#40; cReply, nPos + 1 &#41;\n\n      nPos &#58;= At&#40; &quot;&#41;&quot;, cReply &#41;\n      cReply &#58;= Left&#40; cReply, nPos - 1 &#41;\n\n      &#58;&#58;cDataIP &#58;= StrToken&#40; cReply, 1, &quot;,&quot; &#41; + &quot;&#46;&quot;\n      &#58;&#58;cDataIP += StrToken&#40; cReply, 2, &quot;,&quot; &#41; + &quot;&#46;&quot;\n      &#58;&#58;cDataIP += StrToken&#40; cReply, 3, &quot;,&quot; &#41; + &quot;&#46;&quot;\n      &#58;&#58;cDataIP += StrToken&#40; cReply, 4, &quot;,&quot; &#41;\n\n      &#58;&#58;nDataPort &#58;= 0\n      &#58;&#58;nDataPort += 256 * Val&#40; StrToken&#40; cReply, 5, &quot;,&quot; &#41; &#41;\n      &#58;&#58;nDataPort += Val&#40; StrToken&#40; cReply, 6, &quot;,&quot; &#41; &#41;\n      &#58;&#58;Dump&#40; &quot;I&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Server has opened connection on port &quot; + NTRIM&#40; &#58;&#58;nDataPort &#41; + &quot; - IP&#58;&quot; + &#58;&#58;cDataIP &#41;\n   Endif\n\nReturn &#58;&#58;lPassive\n\n//---------------------------------------------------------------------------------------------//\n/*\n   Internal method to wait for responses from server&#46;\n*/\nMethod DoWait&#40; nState &#41; Class qFTPClient\n   Local nStart &#58;= Seconds&#40;&#41;\n\n   Do While &#58;&#58;nStatus == nState &#46;and&#46; ! &#58;&#58;lClosed &#46;and&#46; ! Eval&#40; &#58;&#58;bAbort &#41;\n      If &#58;&#58;nTimeOut &gt; 0 &#46;and&#46; Seconds&#40;&#41; - nStart &gt; &#58;&#58;nTimeOut\n         &#58;&#58;Dump&#40; &quot;E&#58;&quot; + NTRIM&#40; &#58;&#58;nStatus &#41; + &quot;&#58;Timed out waiting for state &quot; + NTRIM&#40; nState &#41; + &quot; to finish&quot; &#41;\n         Exit\n      Endif\n      SysRefresh&#40;&#41;\n   Enddo\n\n   If nState # ST_DOABOR &#46;and&#46; Eval&#40; &#58;&#58;bAbort &#41;\n      &#58;&#58;Abort&#40;&#41;\n   Endif\n\nReturn Nil\n\n//---------------------------------------------------------------------------------------------//\n[/code:3tc5y7wu]','',0,'AIA=','3tc5y7wu',1,0,'',397,0,0),(26965,6034,6,228,0,'201.245.222.86',1171923320,1,0,1,1,1,1,'','APPEND FROM (rutaf) DELIMITED WITH &quot;;&quot;','Amigos del foro....\n\nResulta y pasa que tengo que convertir un archivo txt a una dbf lo estoy haciendo de la siguiente manera:\n\n[code:13m5hb2j]\n\n  rutaf&#58;=LFN2SFN&#40;ruta&#41;\n  USE &#40;oLamcla&#58;tSube&#41; ALIAS tSube NEW EXCLUSIVE\n  ZAP\n  dbgotop&#40;&#41;\n  APPEND FROM &#40;rutaf&#41; DELIMITED WITH &quot;;&quot;\n  dbgotop&#40;&#41;\n\n[/code:13m5hb2j]\n\nEl problema es que no vale el WITH \";\" no valida el punto y coma, solo recibe lo que este delimitado por comas \",\".\n\nAlguien me puede indicar por que sucede esto, o que debo hacer para que si tome el valor de punto y coma \";\".\n\nDe antemano gracias','',0,'AIA=','13m5hb2j',1,0,'',228,0,0),(26966,6035,3,148,0,'196.205.174.235',1171924750,1,0,1,1,1,0,'','abase function problem','I am switching between workareas of files in the calls of abase1 function and always have the problem of creating the temp index file.\n[code:1dlepslz]\n\n  @ 1,60 COMBOBOX V_CT_CU_ACCT ITEMS aBase1&#40;1,&quot;cust&quot;,256,&quot;cu_acct&quot;&#41; size 80,80 OF oDlg PIXEL\n\n\n   @ 15,60 COMBOBOX V_CT_CU_NAME ITEMS aBase1&#40;1,&quot;cust&quot;,256,&quot;cu_name&quot;&#41; size 150,120 OF oDlg PIXEL\n\n\n  @ 75,200 COMBOBOX oCbx VAR v_mm_combo ITEMS aBase1&#40;2,&quot;cont&quot;,256,&quot;ct_mamc&quot;&#41;;\n\n&#46;&#46;\n&#46;&#46;\n\nfunction aBase1&#40;workarea,cFile,xx,cField&#41;\n*---------------------------------------\n  local aItems&#58;=&#123;&#125;\n  local y&#58;=0\n  local tempntx&#58;=&quot;&quot;\n  aAdd&#40;aItems,space&#40;256&#41;&#41; //Put First element empty\n  \n  select &#40;workarea&#41;\n  use &#40;cFile&#41; \n  index on &amp;&#40;cField&#41; to temp\n\n  go top\n  \n    do while ! eof&#40;&#41;\n    do case \n        case VALTYPE&#40;cField&#41; == &quot;D&quot; \n              y&#58;=ASCAN&#40;aItems,DTOC&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41; \n    \n    \n        case VALTYPE&#40;cField&#41; == &quot;N&quot; \n               y&#58;=ASCAN&#40;aItems,str&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41; \n    \n    \n        otherwise \n       y&#58;=ASCAN&#40;aItems,cValToChar&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41;\n        endcase \n    \n\n       \n       if y==0 \n       do case \n               case VALTYPE&#40;cField&#41; == &quot;D&quot; \n                     aAdd&#40;aItems,DTOC&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41; \n           \n           \n               case VALTYPE&#40;cField&#41; == &quot;N&quot; \n                      aAdd&#40;aItems,str&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41; \n           \n           \n               otherwise \n          aAdd&#40;aItems,cValToChar&#40;&#40;cFile&#41;-&gt;&amp;cField&#41;&#41;\n               endcase \n    \n       \n          dbSkip&#40;&#41;\n          else\n          dbSkip&#40;&#41;\n       endif\n  aItems&#58;= Asort&#40; aItems &#41;\n    enddo\n\n    *use\n  ferase&#40;&quot;temp&#46;ntx&quot;&#41;\n  *select&#40;nArea&#41;\n  *use nselect\nreturn aItems\n[/code:1dlepslz]\n\nApplication\n===========\n   Path and name: E:\\programs\\Database\\clipper\\FWH\\sitex\\sitex.exe (32 bits)\n   Size: 1,696,256 bytes\n   Time from start: 0 hours 0 mins 10 secs \n   Error occurred at: 20/02/2007, 00:38:21\n   Error description: Error ADSCDX/7040  Create error: temp\n\nStack Calls\n===========\n   Called from:  =&gt; ORDCREATE(0)\n   Called from: source\\rdd\\rddord.prg =&gt; DBCREATEINDEX(61)\n   Called from: sitex.prg =&gt; ABASE1(5044)\n   Called from: sitex.prg =&gt; EDITCONT(1096)\n   Called from: sitex.prg =&gt; (b)LISTCONT(945)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: sitex.prg =&gt; LISTCONT(959)\n   Called from: sitex.prg =&gt; (b)BUILDMENU(149)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: sitex.prg =&gt; MAIN(134)','',0,'AIA=','1dlepslz',1,0,'',148,0,0),(26967,6029,3,86,0,'213.119.103.68',1171927628,1,0,1,1,1,1,'','','Hello guys,\n\nI found the reason why my folders didn\'t appear in my dialog box.\n\n(See my previous topic to see examples).\n\nThere was a control (a box around the folders) which is put in the background in FW16. In FW32 though it is put in front of the folders which make them invisible.\n\nI got rid of those boxes and guess what : my folders were back.\n\nThanks anyway for your efforts to help me.\n\nMany greetings,\n\nMichel','',0,'AIA=','2fq6g8ps',1,0,'',86,0,0),(26968,6020,3,86,0,'213.119.103.68',1171927810,1,0,1,1,1,1,'','','Rochinha,\n\nYou\'re right if I should use Outlook Express.\n\nBut I use Microsoft Outlook 2003 which is a part of Microsoft Office 2003.\n\nThanks anyway.\n\nMichel','',0,'AIA=','39fwa0ru',1,0,'',86,0,0),(26969,6009,6,940,0,'189.157.73.119',1171929755,1,0,1,1,1,0,'','amigo,','En mi particular punto de vista,\n\nharbour o xharbour el que viene con fivewin, es el indicado,\n\nen lo particular no uso librerias de terceros la unica que uso es HBZIP\n\n\nutilizo txbrowse  y la tdatabase de fivewin,\n\nno me gustan librerias de terceros,\n\naunque la version que tenemos de fw. es viejita camina a la prefeccion \n\n no tengo problemas de ningun tipo,,\n\nsi gustas algunos ejemplos de txbrowse y la database,\n\ntu nomas hechame un grito,  yo las utilizo con dbfcdx\n\n\n\n<!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\n\nsaludos cordiales: Cesar Cortes Cruz,\n\n\" La paciencia es un don divino , aprende a usarla \" \n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','3g66heh6',1,0,'',940,0,0),(26970,6030,6,138,0,'189.141.72.59',1171931021,1,0,1,1,1,1,'','','Yo vengo del mundo del Pascal y me gusta xHarbour por:\n\n1) Varibles globales\n2) TRY .... CATCH\n3) Bloques de codigo extendidos (maravillosos)\n4) OLE Nativo\n5) SWITCH\n6) Arreglos \"asociativos\" como en Pascal\n7) FOR EACH\n<!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> WITH OBJECT..... ENDWITH\n9) EXTEND CLASS WITH DATA y EXTEND CLASS WITH METHOD \n10) Hashes\n11) Operadon IN\n12) Multihilo (multithreating)\n13) Indexacion negativa de arreglos\n14) Operaciones bit a bit.','',0,'AIA=','3ig2kqmg',1,0,'',138,0,0),(26971,6032,6,138,0,'189.141.72.59',1171934676,1,0,1,1,1,1,'','','hace unos dias publique un archivo .BAT que te permite compilar la TSBrowse para la version de (x)Harobur que estes utilizando.\n\nEse mismo archivo te puede servir para compilar cualuiqr PRG y convertirlo en LIB compatible con xHarobur, analizalo y veras que realmente no es nada complicado:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5898&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'AIA=','3acaclae',1,0,'',138,0,0),(26972,6030,6,785,0,'190.64.194.103',1171938499,1,0,1,1,1,0,'','','Amigos:\n\nYo uso Harbour sin problemas.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','19i0htfk',1,0,'',785,0,0),(26973,6034,6,397,0,'201.1.162.60',1171944416,1,0,1,0,1,1,'','','Amigo\n\nUse SET DEMILITER TO \";\" no cabecalho do programa e veja se funciona.','',0,'AIA=','tqsdk5bz',1,0,'',397,0,0),(26974,6033,3,397,0,'201.1.162.60',1171944981,1,0,1,0,1,1,'','','Aqui\n\nrespuesta a tu duvida\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6005\">http://fivetechsoft.com/forums/viewtopic.php?t=6005</a><!-- m -->','',0,'AIA=','1r6qknbf',1,0,'',397,0,0),(26975,6030,6,397,0,'201.1.162.60',1171945417,1,0,1,0,1,1,'','','Yo penso que Harbour esta para xHarbour asi como Clipper para FoxPRO.\n\nHai diferencias, mas pode viver sin elas o incorpora-las.','',0,'AIA=','3cg6zdr3',1,0,'',397,0,0),(26976,6026,3,215,0,'189.136.218.186',1171947645,1,0,1,1,1,1,'','¿Dnde?','Rene,\n¿Y donde está esa freeimage de EMG?\n\nGracias','',0,'AIA=','hwks2bzb',1,0,'',215,0,0),(26977,6035,3,303,0,'72.199.41.171',1171950372,1,0,1,1,1,0,'','','Ehab,\n\nAs I mentioned in an earlier message, you don\'t have to index if you sort the array at the end.\n\nJames','',0,'AIA=','289avr55',1,0,'',303,0,0),(26978,6029,3,303,0,'72.199.41.171',1171950613,1,0,1,1,1,0,'','','Michel,\n\nWhen you refer to the differences between FW16 and FW32, remember that some of these differences may be due to different versions of FW rather than 16bit vs 32bit. I presume you have an older version of FW16 than the version of FW32 that you are using.\n\nJames','',0,'AIA=','1dz58kw6',1,0,'',303,0,0),(26979,6033,3,303,0,'72.199.41.171',1171950731,1,0,1,1,1,0,'','','Use folders instead. It is a lot easier to click on a folder than scroll a dialog.\n\nJames','',0,'AIA=','d34tsnd3',1,0,'',303,0,0),(26980,6020,3,9,0,'85.59.89.242',1171951586,1,0,1,1,1,1,'','','Enrico,\n\nTo check, I change an old code with MAIL/FHW to your code with OLE. I have following error:\n\nError description Outlook.Application:\nCreateitem/16389 E_FAIL:_HTMLBODY.\n\nThe file \"html\" exist and the path is complete and correct. \n\noMail:HTMLBody = MEMOREAD( \"c:\\leb\\fsoli.htm\" )\n\nAny Help ?\n\nRegards','',0,'AIA=','rnksv52v',1,0,'',9,0,0),(26981,6036,7,579,0,'200.76.189.223',1171954161,1,0,1,1,1,1,'','Ayuda profe$ional en el centro de México','Jovenes amigos,\n\nBusco a alguien que viva/trabaje en el centro de México con suficiente expriencia, tiempo y paciencia para que me ayude de forma profe$ional a superar el arranque para programar en FWPPC.\n\nSalu2\n\n<!-- e --><a href=\"mailto:rodolfoerbg@gmail.com\">rodolfoerbg@gmail.com</a><!-- e -->','',0,'AIA=','1ath9df9',1,0,'',579,0,0),(26982,6036,7,2,0,'87.218.146.62',1171955484,1,0,1,1,1,1,'','','Rodolfo,\n\nQue dificultad tienes ? Sólo tienes que ir al directorio samples y usar buildce.bat igual como usas el buildh.bat de FWH.\n\nHas instalado el emulador de Pocket PC ? Dinos en que podemos ayudarte, gracias','',0,'AIA=','3mmdvtk0',1,0,'',2,0,0),(26983,5963,4,3,0,'82.124.255.172',1171957329,1,0,1,1,1,1,'','','Same result\n\nBad character printed.\n\nRichard','',0,'AIA=','22b9qm6u',1,0,'',3,0,0),(26984,5963,4,6,0,'82.57.160.10',1171957595,1,0,1,1,1,1,'','','Are you able to read what exactly comes out of the palmtop?\n\nEMG','',0,'AIA=','3aq2ra3w',1,0,'',6,0,0),(26985,6020,3,6,0,'82.57.160.10',1171957715,1,0,1,1,1,1,'','','Please reduce the problem to a single self-contained PRG and show it here.\n\nEMG','',0,'AIA=','3f6i455y',1,0,'',6,0,0),(26986,6026,3,6,0,'82.57.160.10',1171957921,1,0,1,1,1,1,'','Re: ¿Dnde?','If you are using TImage class (or IMAGE command) then probably you already have it.\n\nEMG','',0,'AIA=','1x59xthl',1,0,'',6,0,0),(26987,5963,4,3,0,'82.124.255.172',1171957944,1,0,1,1,1,1,'','','Enrico\n\nWhat do you mean by this ? i do not understand\n\nRichard','',0,'AIA=','3qq1749o',1,0,'',3,0,0),(26988,5963,4,6,0,'82.57.160.10',1171958125,1,0,1,1,1,1,'','','Till now you only know that the printer won\'t print what you expected. It would be useful to know what number(s) really comes out of the palmtop instead.\n\nEMG','',0,'AIA=','zi5xgicc',1,1171968853,'',6,1,0),(26989,6020,3,303,0,'72.199.41.171',1171958276,1,0,1,1,1,0,'','','Manuel,\n\nI don\'t know if this will work but have you tried:\n\noMail:HTMLBody = \"c:\\leb\\fsoli.htm\"\n\nJames','',0,'AIA=','1207uvin',1,0,'',303,0,0),(26990,5963,4,3,0,'82.124.255.172',1171958287,1,0,1,1,1,1,'','','How can i know that ?','',0,'AIA=','3qk4t036',1,0,'',3,0,0),(26991,6036,7,579,0,'200.76.189.223',1171958365,1,0,1,1,1,1,'','','Gracias Antonio,\n\nAún con un asesor directo seguido me verás por estos lugares, lo que pasa es que tengo nula experiencia con estos nuevos juguetes.\n\nTenía un celular normal y una Palm Zire72, los he cambiado por un SmartPhone QTek9100, tengo un sistema para Ganaderos de toros de lidia que a lo largo de 19 años he capturado a casi todos los ganaderos de México y quiero que en poco tiempo no se tengan que llevar la LapTop al campo, que consulten la información desde su Pocket.\n\nMás que conocimientos en FW lo que necesito es alguien que me oriente sobre el entorno del sistema, la instalación, como sobrevivir sin el Verce, etc., tampoco lo necesito de planta, solo un buen empujón para iniciar y alguien que me pueda resolver dudas rápidamente.\n\nJuan Carlos Salinas (Verce) fué mi asesor en FWH, pero me dice que no tiene ni el hardware ni la experiencia en esta maravillosa herramienta del futuro cercano, RF aún no logra convocar suficientes alumnos para hacer un curso, así que, como verás soy muy práctico, prefiero pagar a investigar, siempre vale la pena compartir un poco de la utilidad a cambio de velocidad y calidad, a fin de cuentas no son gastos, es una inversión.\n\nGracias de nuevo y por aquí seguiremos en contacto.','',0,'AIA=','1z1oja7u',1,0,'',579,0,0),(26992,5963,4,3,0,'82.124.255.172',1171960972,1,0,1,1,1,1,'','','This is the result\n\n<!-- m --><a class=\"postlink\" href=\"http://www.cbati.com/scanprint.jpg\">http://www.cbati.com/scanprint.jpg</a><!-- m -->\n\nit should display \"é\"','',0,'AIA=','1ljl74w5',1,0,'',3,0,0),(26993,6037,7,57,0,'83.53.69.224',1171965082,1,0,1,1,1,1,'','Sustituir funciones de fivecec.lib','Antonio\nQuiero sustituir una función \"LogFile\" por una funcion propia pero al compilar genera el siguiente error: \nfatal error LNK1169: one or more multiply defined symbols found\n\nIndicando que ya está definida en el fichero FIVECEC.LIB. \n\n¿Existe alguna forma de que no muestre el error sin necesidad de extraer de fivecec.lib la obj?\n\nSaludos','',0,'AIA=','29popg8r',1,0,'',57,0,0),(26994,5963,4,6,0,'82.57.160.10',1171968921,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:1ihl4f45]How can i know that ?[/quote:1ihl4f45]\n\nAs an example, connecting the bluetooth to a PC?\n\nEMG','',0,'gA==','1ihl4f45',1,0,'',6,0,0),(26995,6020,3,6,0,'82.57.160.10',1171969106,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3c4muit4]Manuel,\n\nI don\'t know if this will work but have you tried:\n\noMail:HTMLBody = \"c:\\leb\\fsoli.htm\"\n\nJames[/quote:3c4muit4]\n\nNo. From Outlook docs:\n\n[code:3c4muit4]Item&#46;HTMLBody = &quot;&lt;HTML&gt;&lt;H2&gt;My HTML page&#46;&lt;/H2&gt;&lt;BODY&gt;My body&#46;&lt;/BODY&gt;&lt;/HTML&gt;&quot;[/code:3c4muit4]\n\nEMG','',0,'gIA=','3c4muit4',1,0,'',6,0,0),(26996,6010,6,196,0,'190.48.221.135',1171969230,1,0,1,1,1,0,'','','Bueno, te comento aqui.\n\nLa consulta era la siguiente:\nTengo que hacer un pequeño programa que levante una base de datos SQL y pretendo usar ODBC o conectar directo al motor, pero el problema es que este programa debe correr en modo texto, ya que correra sobre terminales Symbol utilizando Telnet, y por desgracia el Telnet no levanta nada en modo grafico a pesar de que la terminal usa Windows CE.\nNo tengo intencion de volver a Clipper, me gustaria armar esto con FWH, sera posible esto?, habra algun ejemplo?\n\nMuchas gracias.\nJorge Jaurena','',0,'gIA=','15diatbu',1,0,'',196,0,0),(26997,6038,6,774,0,'200.72.102.210',1171970244,1,0,1,1,1,1,'','AMIGO RENE FLORES','Estimado Rene\n\nen realidad estaba por escribirte,, asi me lo habia recomendado mi amigo miguel rivera, en este foro.\n\nse agradece el .bat para generar la LIB q necesito,, pero sabes el problema no es generar la LIB,, lo hago con verce y funciona super..\n\nmi problema puntual es que al compilar el PRG de TSBROWSE me advierte un warning o peligro,, en un archivo scroll.c  y he ahi mi dilema,, aunque la lib funciona no me da 100% confianza de usar,, por eso,, quizas tu la tengas o la uses, o tengas los PRG de otra version de TSBROWSE.. la que baje de la red es la Tsbrowse7.0 quizas en una menor,, pero no he encontrado una en internet..\n\n\nLo.. otro y abusando de tu gentileza,, conoces algun manual de xharbour en español,, porque la realidad no he visto nada referente,, como un NG que existia en clipper..\n\npor tu tiempo.. muchas gracias\n\nAhh.. que version usas tu:: de FWH y xHarbour','',0,'gIA=','2gwy8fjv',1,0,'',774,0,0),(26998,6039,3,86,0,'213.119.103.68',1171970578,1,0,1,1,1,1,'','Problem with ZIP','Hello,\n\nI try to migrate my zipping program from FW16 to FW32.\n\nIf I\'m right, I need to use xHBZIP.DLL.\n\nNevertheless I got the error :\n\n-----------------------------------\n\nUnresolved external symbol \'_HB_FUN_ZIPFILE\nUnresolved external symbol \'_HB_FUN_UNZIPFILE\nUnresolved external symbol \'_HB_FUN_ZIPTYPE\nUnresolved external symbol \'_HB_FUN_ZIPBLOCK\n.......\nUnresolved external symbol \'_HB_FUN_CLOSEZIPFILE\n\n-----------------------------------\n\nDid I forgett anything ?\n\nWhat do I need to do to solve this problem ?\n\nThanks.\n\nMichel','',0,'gIA=','163nctm1',1,0,'',86,0,0),(26999,6010,6,196,0,'190.48.221.135',1171972326,1,0,1,1,1,0,'','','Ya subi la imagen, espero que sirva.\nEste es el url, copio los dos que me dio\n\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=asiseveconactivexcz9&#46;jpg:1x7bxxis][img:1x7bxxis]http&#58;//img224&#46;imageshack&#46;us/img224/1230/asiseveconactivexcz9&#46;th&#46;jpg[/img:1x7bxxis][/url:1x7bxxis]\n\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=asiseveconactivexcz9&#46;jpg:1x7bxxis][img=http://img224.imageshack.us/img224/1230/asiseveconactivexcz9.th.jpg][/url:1x7bxxis]\n\nGracias\nJorge Jaurena','',0,'GA==','1x7bxxis',1,0,'',196,0,0),(27000,5963,4,3,0,'82.124.255.172',1171972901,1,0,1,1,1,1,'','','Enrico\n\nFrom pc, everything prints out ok on the same printer \n\nI already tested it.\n\nRichard','',0,'GA==','1qm3vrkh',1,0,'',3,0,0),(27001,6039,3,67,0,'81.11.200.200',1171972922,1,0,1,1,1,0,'','','I think xhbzip.dll must be available , but also xhbzip.lib and xhbzipdll.lib must be linked in. \n\nFrank','',0,'GA==','1pzbs2zm',1,0,'',67,0,0),(27002,5963,4,6,0,'82.61.157.253',1171973274,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:3olyde6q]Enrico\n\nFrom pc, everything prints out ok on the same printer \n\nI already tested it.\n\nRichard[/quote:3olyde6q]\n\nNo, you still haven\'t understood what I\'m saying. You may try to print from your palmtop connecting it to a PC instead of a printer. That way you can see what exactly comes out from your palmtop (ie. the real numbers).\n\nEMG','',0,'gA==','3olyde6q',1,0,'',6,0,0),(27003,6040,20,49,0,'213.82.134.66',1171974057,1,0,1,1,1,1,'','classi per il palmare','Guida all\'acquisto :\nsono tutte compatibili le classi per il palmare cioè quelle di fwh oppure no ?\n\nper esempio la tsbutton di mercado funziona sul palmare qualcuno ha provato ?\n\nè stabile l\'attuale versione di fwppc ?\n\nqualcuno mi puo\' inviare esempi  exe con piu\' controlli per rendermi conto \ndi persona ?\n\nGrazie','',0,'gA==','163obgpz',1,0,'',49,0,0),(27004,3729,20,49,0,'213.82.134.66',1171974103,1,0,1,1,1,1,'','','scusa ma tip .lib dove la devo prendere ?','',0,'gA==','hiyhwoau',1,0,'',49,0,0),(27005,5963,4,3,0,'82.124.255.172',1171975091,1,0,1,1,1,1,'','','Enrico\n\nI had tried that but nothing displays on the pc or maybe i was unable to configure it correct.  Though i can transfer files via bt from pocket to different pcs. \n\nAny clue on how to do it or what i may have missed ?\n\nTia\n\nRichard','',0,'gA==','1vek2zma',1,0,'',3,0,0),(27006,6010,6,105,0,'200.72.140.34',1171975164,1,0,1,1,1,1,'','','Jorge...\nCon que trabajas. Harbour, xHarbour, xHarbour.com...\n\nYo intente en reiteradas oportunidades hacer funcionar la Activex de Epson con Harbour y no se puede, el error como podras ver en mis multiples posts aqui en este foro es como enviar un CHR(0) como comando al Activex \nEn Harbour no pude hacerlo, o mas bien no encontre la solucion con los consejos de Antonio Linares, (puedes buscar los Posts)\n\nMi solucion, ya que tambien trabajo con Xharbour.com fue utilizar la funcion WtArrayWrapper() si necesitas ej. te lo envio.. pero como te dije.. solo  lo he logrado con Xhb.com\n\nDesde Chile.','',0,'gA==','25xkqo2o',1,0,'',105,0,0),(27007,6041,6,180,0,'83.54.13.239',1171979708,1,0,1,1,1,0,'','Errores en menú del PREVIEW','Al pulsar sobre la opción \"Fichero\" del menú del PREVIEW me sale el siguiente error:\nError description: Error BASE/1132  Error de rango: acceso al array\n\nAl pulsar sobre la opción \"Página\" del menú del PREVIEW me sale el siguiente error:\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: OFONT\n\nAlguien sabe porqué ?\n\nUso FWH 2.8 de Octubre/2007','',0,'gA==','345wzq07',1,0,'',180,0,0),(27008,5830,3,413,0,'194.106.16.43',1171979912,1,0,1,1,1,0,'','','Silvio you find a solution for Ut_BrwRowConfig, I nearly finised but theseone isn\'t  included in any where. Could you sent to my email please?\n\nThanks Andres?','',0,'gA==','19loqdwj',1,0,'',413,0,0),(27009,5963,4,6,0,'82.61.157.253',1171980221,1,0,1,1,1,1,'','','No, sorry. My knowledge on real palmtops is about zero. I only use the emulator. I can imagine that you have to setup the serial port of your PC, use a program to receive the numbers sent from the palmtop and display them on the screen.\n\nEMG','',0,'gA==','296ycoaf',1,0,'',6,0,0),(27010,3729,20,6,0,'82.61.157.253',1171980347,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:zejuyg0q]scusa ma tip .lib dove la devo prendere ?[/quote:zejuyg0q]\n\nE\' una delle librerie standard di xHarbour (non di Harbour).\n\nEMG','',0,'gA==','zejuyg0q',1,0,'',6,0,0),(27011,6040,20,6,0,'82.61.157.253',1171980519,1,0,1,1,1,1,'','Re: classi per il palmare','[quote=&quot;Silvio&quot;:3gkhuuar]Guida all\'acquisto :\nsono tutte compatibili le classi per il palmare cioè quelle di fwh oppure no ?[/quote:3gkhuuar]\n\nNo, solo quelle modificate per funzionare sul palmare, che non so esattamente quali siano. Tieni presente che stiamo parlando di una piattaforma diversa. Penso che consultando Fwce.ch si possano trovare quasi tutte le classi funzionanti.\n\n[quote=&quot;Silvio&quot;:3gkhuuar]è stabile l\'attuale versione di fwppc ?[/quote:3gkhuuar]\n\nA me risulta stabilissima.\n\nEMG','',0,'gA==','3gkhuuar',1,0,'',6,0,0),(27012,6039,3,86,0,'213.119.103.68',1171980666,1,0,1,1,1,1,'','','Frank,\n\nThanks for your answer.\n\nI linked in both RC-files, but how do I link in a DLL-file, knowing that I\'m using the xHarbour Builder ?\n\nThanks.\n\nMichel','',0,'gA==','2hj6lj5q',1,0,'',86,0,0),(27013,5963,4,3,0,'82.124.255.172',1171981574,1,0,1,1,1,1,'','','I did try all the possibilities but did not see any chars appear.\n\nI do not know how to do it. <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','3qanfl5f',1,0,'',3,0,0),(27014,6039,3,3,0,'82.124.255.172',1171981696,1,0,1,1,1,1,'','','Michel\n\nIt is a bit more complex than this\n\nThe zip functions are totally different from fw 16 bits to fwh\n\nIf you can connect to xharbour\'s ng , Enrico has posted a good sample few days ago.\n\nIf you can\'t, let me know . I will send you my  backup/restore program to your private email.\n\nRichard','',0,'gA==','3fhe3c4s',1,0,'',3,0,0),(27015,6039,3,86,0,'213.119.103.68',1171985585,1,0,1,1,1,1,'','','Hello Richard,\n\nThank you in advance for sending me your examples.\n\nMy email : <!-- e --><a href=\"mailto:michel.driessen@ma-consult.be\">michel.driessen@ma-consult.be</a><!-- e -->.\n\nThanks.\n\nMichel','',0,'gA==','2jqkhd7r',1,0,'',86,0,0),(27016,6041,6,203,0,'190.11.21.216',1171986591,1,0,1,1,1,1,'','','Puede que sea que estes utilizando C5MENU,a mi me ocurrio lo mismo,\ntrata con el menu de fivewin\n\nSaludos\nOscar','',0,'gA==','gf4hw2yt',1,0,'',203,0,0),(27017,6042,4,946,0,'87.196.78.66',1171987055,1,0,1,1,1,0,'','Problem with menu','I have a file named \'gertal2.prg\', on that file i define a window with a menu. There\'s no problem with compilation, i got no error, but when i run the program i see no menu.\n\nThe code is:\n[code:1x567vpf]\n#include &quot;FWCE&#46;ch&quot;\nSTATIC oWnd, oMenu\n\nfunction Main&#40;&#41;\n	desenhar_janela&#40;&#41;\nreturn nil\n\n// Defining window\nfunction desenhar_janela&#40;&#41;\n   	DEFINE WINDOW oWnd TITLE &quot;Gertal, S&#46;A&#46;&quot; menu build_menu&#40;&#41;\n   	@ 3, 3 say &quot;Sistema de Gestão de Pedidos Hospitalares&quot; size 230, 30 pixel\n   	ACTIVATE WINDOW oWnd modal\nreturn nil\n\n\n// Create menu\nfunction Build_Menu&#40;&#41;\n Define Menu oMnu Resource 2002\n   ReDefine MenuItem Id 6001 Of oMnu Action oWnd&#58;End&#40;&#41;\n   ReDefine MenuItem Id 6002 Of oMnu Action msginfo&#40;&quot;1&quot;&#41;\n   ReDefine MenuItem Id 6003 Of oMnu Action msginfo&#40;&quot;2&quot;&#41;\nreturn nil\n   \n[/code:1x567vpf]\n\nAnd i have a resource file, named \'gertal2.rc\' with the following code:\n[code:1x567vpf]\n// RESOURCE SCRIPT generated by &quot;Pelles C for Windows, version 4&#46;50&quot;&#46;\n\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n#include &quot;c&#58;\\programas\\pellesc\\include\\win\\richedit&#46;h&quot;\n\nLANGUAGE LANG_PORTUGUESE,SUBLANG_PORTUGUESE\n\n2002 MENUEX\nBEGIN\n  POPUP &quot;&amp;Ficheiros&quot;, 0, 0, 0\n  BEGIN\n    MENUITEM &quot;&amp;Sair&quot;, 6001, 0, 0\n  END\n  POPUP &quot;&amp;Opções&quot;, 0, 0, 0\n  BEGIN\n    MENUITEM &quot;&amp;Inserir registo&quot;, 6002, 0, 0\n    MENUITEM &quot;&amp;Apagar registo&quot;, 6003, 0, 0\n  END\nEND\n[/code:1x567vpf]\n\nWhat is wrong with this code?\n\nTIA,\nJoaquim','',0,'AIA=','1x567vpf',1,0,'',946,0,0),(27018,6041,6,180,0,'83.54.13.239',1171987245,1,0,1,1,1,0,'','','Gracias amigo, lo voy a mirar. Puede que sea eso, pues tengo otra aplicación donde no uso C5MENU y no ocurre el problema.\nSaludos,\nManuel\n\n[quote=&quot;141005-EASYSOFT&quot;:1i0kifuf]Puede que sea que estes utilizando C5MENU,a mi me ocurrio lo mismo,\ntrata con el menu de fivewin\n\nSaludos\n_[/quote:1i0kifuf]','',0,'gA==','1i0kifuf',1,0,'',180,0,0),(27019,6038,6,138,0,'189.141.72.59',1171988229,1,0,1,1,1,1,'','','Es un WARNING, es una advertencia solamente, no pasa absolutamente nada en la ejecucion del programa, si quieres quitar los warnings quita el switch /W de la compilacion y listo.....\n\nSimpelmente es un recordatorio que dice.... definiste una variable, pero no la usas... eso es el warning que te marca.','',0,'gA==','233gxm3j',1,0,'',138,0,0),(27020,6043,1,186,0,'66.130.50.142',1171989231,1,0,1,1,1,1,'','KeyState','Hi,\n\n  Is there a way to test the state of ALT Key just like CONTROL and SHIFT key.\n\nIn VKEY.CH I can find VK_CONTROL, VK_SHIFT but not VK_ALT\n\nRegards','',0,'gA==','25wwm3es',1,0,'',186,0,0),(27021,6044,7,123,0,'83.53.69.224',1171989876,1,0,1,1,1,0,'','Tipo GUID en C y traspasarlo a PRG','Hola,\n\nEstoy mirando la función que dejaron en el foro inglés para levantar una conexión GRPS y veo que hay una estructura GUID donde indico cual conexión utilizar.\n\nLa estructura se define como sigue:\n\n[code:2otu95p9]typedef struct _GUID \n&#123; \n  unsigned long    Data1; \n  unsigned short    Data2; \n  unsigned short    Data3; \n  unsigned char    Data4&#91;8&#93;; \n&#125; [/code:2otu95p9]\n\nMe gustaría saber si alguien conoce alguna función para pasar esta estructura al formato tipo\n\n[code:2otu95p9]&#123;0000-00-00-00000000&#125;[/code:2otu95p9]\n\ny viceversa.\n\nSaludos y gracias,\nJosé Luis Capel\nPD: [url:2otu95p9]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/mobilesdk5/html/wce51grfConnMgrEstablishConnection&#46;asp[/url:2otu95p9] y [url:2otu95p9]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/mobilesdk5/html/wce51grfconnmgr_connectioninfo&#46;asp[/url:2otu95p9]','',0,'EIA=','2otu95p9',1,0,'',123,0,0),(27022,6045,2,812,0,'200.83.124.137',1171990148,1,0,1,1,1,0,'','Amigos AYUDA URGENTE','Amigos:\n\nNecesito me puedan orientar.\n\nEstoy tratando de usar la siguiente rutina en FW 2.4 y Blinker 7.0, pero me arroja un error, es para poner un fondo de pantalla.\n\nPuedo usar el FW 2.4 y porque el error?\n\nSaludos,\n\nMiguel\n\nRUTINA. AL FINAL ESTA EL ERROR.\n\nfunction IniLogo()\nif ! Empty( ::oBmpLogo ) .or. ! Empty( ::oBmpTiled )\n      ::oWnd:bPainted = { | hDC | If( ::oBmpTiled != nil,;\n                                  BmpTiled( hDC, ::oWnd, ::oBmpTiled ),),;\n                                  If( ::oBmpLogo != nil,;\n                                  PalBmpDraw( hDC,;\n                                  ::oWnd:nHeight() / 2 - ;\n                                  ::oBmpLogo:nHeight() / 2 - 50,;\n                                  ::oWnd:nWidth() / 2 - ;\n                                  ::oBmpLogo:nWidth() / 2,;\n                                  ::oBmpLogo:hBitmap ),) }\n   endif\n   Return nil\n\nfunction BmpTiled( hDC, oWnd, oBmp )\n\n   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()\n   local nRow := 0, nCol := 0, n\n   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()\n\n   while nRow &lt; nHeight\n      nCol = 0\n      while nCol &lt; nWidth\n         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )\n         nCol += nBmpWidth\n      end\n      nRow += nBmpHeight\n   end\n\nreturn nil\n\n*** ERROR\nApplication\n===========\n   Path and name: D:\\MIGUEL\\PROGRA2\\WINDOWS\\INFORMES\\MENU3.EXE (16 bits)\n   Size:   341,248 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Time from start: 0 hours 0 mins 0 secs \n   Error ocurred at: 20-02-2007, 13:40:38\n   Error description: Error BASE/1003  Variable does not exist: SELF\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from TUTOR(38)\n\nSystem\n======\n   CPU type: Pentium\n   Hardware memory: 128 megs\n\n   Free System resources: 85 %\n        GDI    resources: 86 %\n        User   resources: 85 %\n\n   Compiler version: Clipper (R) 5.2e Intl. (x216)  (1995.02.07)\n   Windows and MsDos versions: 3.95, 7.10\n\n   Windows total applications running: 25\n      1 C:\\WINDOWS\\EXPLORER.EXE\n      2 C:\\WINDOWS\\SYSTEM\\SHLWAPI.DLL\n      3 C:\\WINDOWS\\SYSTEM\\COMCTL32.DLL\n      4 C:\\WINDOWS\\SYSTEM\\BROWSEUI.DLL\n      5 C:\\WINDOWS\\SYSTEM\\WINOA386.MOD\n      6 C:\\WINDOWS\\SYSTEM\\USER.EXE\n      7 C:\\WINDOWS\\SYSTEM\\DDHELP.EXE\n      8 C:\\WINDOWS\\SYSTEM\\SPOOL32.EXE\n      9 C:\\WINDOWS\\SYSTEM\\OLE32.DLL\n     10 C:\\ARCHIV~1\\MICROS~1\\OFFICE\\MSO97.DLL\n     11 C:\\ARCHIV~1\\MICROS~1\\OFFICE\\FINDFAST.EXE\n     12 C:\\WINDOWS\\SYSTEM\\SYSTRAY.EXE\n     13 C:\\ARCHIV~1\\MICROS~1\\OFFICE\\OSA.EXE\n     14 C:\\WINDOWS\\LOADQM.EXE\n     15 C:\\WINDOWS\\TASKMON.EXE\n     16 C:\\WINDOWS\\SYSTEM\\MSHTML.DLL\n     17 C:\\WINDOWS\\SYSTEM\\URLMON.DLL\n     18 C:\\WINDOWS\\SYSTEM\\DDEML.DLL\n     19 C:\\WINDOWS\\SYSTEM\\MSTASK.EXE\n     20 C:\\WINDOWS\\SYSTEM\\MMSYSTEM.DLL\n     21 C:\\WINDOWS\\SYSTEM\\KB918547\\KB918547.EXE\n     22 C:\\WINDOWS\\SYSTEM\\KB891711\\KB891711.EXE\n     23 C:\\WINDOWS\\SYSTEM\\MSGSRV32.EXE\n     24 C:\\WINDOWS\\SYSTEM\\WEBCHECK.DLL\n     25 C:\\WINDOWS\\SYSTEM\\SHDOC401.DLL\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   TUTOR\n     Local   1:    O    Class: TBRUSH\n     Local   2:    O    Class: TICON\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 TBRUSH\n     2 TWINDOW\n     3 TCONTROL\n     4 TICON\n     5 ERROR\n     6 TSTRUCT\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       40128 bytes  (SYMP=664, Stack=17000, Heap=4112)\n      PRG Stack:          25225 bytes\n      13 Static variables: 182 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     256640 bytes\n      Highest Value:     346752 bytes','',0,'EIA=','27kynymb',1,0,'',812,0,0),(27023,6020,3,9,0,'85.59.89.242',1171990595,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:3rj23rqn]Please reduce the problem to a single self-contained PRG and show it here.\n\nEMG[/quote:3rj23rqn]\n\nFUNCTION OLEMAIL( aDir, cMsg, cAsunto, cHTML, aFiles )\n\nLOCAL oOutlook, oMail , el\n\nTRY\n  oOutlook := GetActiveObject( \"Outlook.Application\" )\nCATCH\n  TRY\n     oOutlook := CreateObject( \"Outlook.Application\" )\n   CATCH\n      ?  \"Outlook no disponible. [\" + Ole2TxtError()+ \"]\"\n      RETURN nil\n   END\nEND\n\noMail := oOutlook:CreateItem( 0 )\n\nFOR EACH el IN aDir\n  oMail:Recipients:Add( el )\nNEXT\n\nIF !EMPTY(cAsunto)\n  oMail:Subject := cAsunto \nEND\n\nIF !EMPTY(cMsg)\n  oMail:Body := cMsg\nEND\n\noMail:HTMLBody = MEMOREAD(\"c:\\leb\\fsoli.htm\")\n\noMail:Display = .T.\n\noMail := nil\n\nRETURN nil','',0,'gA==','3rj23rqn',1,0,'',9,0,0),(27024,6046,6,9,0,'85.59.89.242',1171990729,1,0,1,1,1,1,'','TMAIL','Vengo usando la clase Tmail para enviar email sin problemas. ¿Es preferible usar directamente OLE?. En caso afirmativo, ¿cual es la razón?.','',0,'gA==','76cv1aah',1,0,'',9,0,0),(27025,6010,6,196,0,'201.231.125.43',1171990927,1,0,1,1,1,0,'','','Gracias Antonio por tu respuesta.\nSi podes enviame algun ejemplo a <!-- e --><a href=\"mailto:jjaurena@yahoo.com\">jjaurena@yahoo.com</a><!-- e --> y pruebo con xHarbour ya que estoy usando Harbour.\n\nSaludos!\nJorge Jaurena.','',0,'gA==','3lq2y2yi',1,0,'',196,0,0),(27026,6010,6,196,0,'201.231.125.43',1171991001,1,0,1,1,1,0,'','','Disculpame me confundi de nombre, quise decir gracias Adolfo.','',0,'gA==','zqreyghb',1,0,'',196,0,0),(27027,6041,6,180,0,'83.54.13.239',1171991139,1,0,1,1,1,0,'','','Confirmado. Se trata de C5MENU que interacciona con la clase menu de fivewin. ¿Cómo lo arreglo para que funcionen las dos?','',0,'gA==','1vjwd5f2',1,0,'',180,0,0),(27028,6020,3,303,0,'72.199.41.171',1171991944,1,0,1,1,1,0,'','','Manuel,\n\nPerhaps try substituting Enrico\'s example from the docs. This would eliminate any problem with the HTML file you are using.\n\n[code:1jbxkxob]oMail&#58;HTMLBody = &quot;&lt;HTML&gt;&lt;H2&gt;My HTML page&#46;&lt;/H2&gt;&lt;BODY&gt;My body&#46;&lt;/BODY&gt;&lt;/HTML&gt;&quot;[/code:1jbxkxob]\n\nJames','',0,'AIA=','1jbxkxob',1,0,'',303,0,0),(27029,6039,3,303,0,'72.199.41.171',1171992458,1,0,1,1,1,0,'','','Anyone,\n\nI am using xHarbour 99.61 and it came with HBZIP.LIB (dated 8/27/06). What is xHBZIP.LIB? Is this a newer or a different lib? \n\nHBZIP.LIB is all that I use and it seems to work fine.\n\nJames','',0,'AIA=','1l7z5vaa',1,0,'',303,0,0),(27030,6043,1,54,0,'189.132.110.70',1171992587,1,0,1,1,1,1,'','Re: KeyState','[quote=&quot;Gilbert&quot;:1y94jii8]Hi,\n\n  Is there a way to test the state of ALT Key just like CONTROL and SHIFT key.\n\nIn VKEY.CH I can find VK_CONTROL, VK_SHIFT but not VK_ALT\n\nRegards[/quote:1y94jii8]\n\nis: VK_MENU\n\nregards','',0,'gA==','1y94jii8',1,0,'',54,0,0),(27031,6043,1,303,0,'72.199.41.171',1171992670,1,0,1,1,1,0,'','','Glibert,\n\nTry VK_MENU\n\nJames','',0,'gA==','2d5kvavi',1,0,'',303,0,0),(27032,6047,1,186,0,'66.130.50.142',1171992811,1,0,1,1,1,1,'','TGet questions','Hi All,\n\nWhy in TGET method cText() is not VarPut() and Value() is not VarGet()\n\nWhat does SETGET does in method cText(). Syntax look like this\n   METHOD cText(cText) SETGET\n\nWhy is SETGET assigned of :_SETGET_ in Object.ch\n\nRegards,\n\nGIlbert','',0,'gA==','3d6sg3zf',1,0,'',186,0,0),(27033,6045,2,54,0,'189.132.110.70',1171993168,1,0,1,1,1,1,'','Re: Amigos AYUDA URGENTE','Miguel,\n\nfunction IniLogo(oWnd,oBmpTiled)\nif ! Empty( oBmpLogo ) .or. ! Empty( oBmpTiled )\n      oWnd:bPainted = { | hDC | If( oBmpTiled != nil,;\n                                  BmpTiled( hDC, oWnd, oBmpTiled ),),;\n                                  If( oBmpLogo != nil,;\n                                  PalBmpDraw( hDC,;\n                                  oWnd:nHeight() / 2 - ;\n                                  oBmpLogo:nHeight() / 2 - 50,;\n                                  oWnd:nWidth() / 2 - ;\n                                  oBmpLogo:nWidth() / 2,;\n                                  oBmpLogo:hBitmap ),) }\n   endif\n   Return nil\n\nfunction BmpTiled( hDC, oWnd, oBmp )\n\n   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()\n   local nRow := 0, nCol := 0, n\n   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()\n\n   while nRow &lt; nHeight\n      nCol = 0\n      while nCol &lt; nWidth\n         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )\n         nCol += nBmpWidth\n      end\n      nRow += nBmpHeight\n   end\n\nreturn nil\n\nLos dos puntos (::) significa que es parte de una clase declrada, por lo tanto, no se podrian usar en una función.\n\nsaludos','',0,'gA==','2qnsskf5',1,0,'',54,0,0),(27034,6041,6,54,0,'189.132.110.70',1171993571,1,0,1,1,1,1,'','','[quote=&quot;Manuel Aranda&quot;:38gznkl1]Confirmado. Se trata de C5MENU que interacciona con la clase menu de fivewin. ¿Cómo lo arreglo para que funcionen las dos?[/quote:38gznkl1]\nManuel,\n\nPaco García (Canalfive) ha corregido ese problema, comuicate con él, por otro lado, hay que quitarle el menu al preview como lo hizo Paco Horta.\n\nSaludos','',0,'gA==','38gznkl1',1,0,'',54,0,0),(27035,6036,7,54,0,'189.132.110.70',1171993742,1,0,1,1,1,1,'','','[quote=&quot;RodolfoRBG&quot;:2c5kwoek]Gracias Antonio,\n\nAún con un asesor directo seguido me verás por estos lugares, lo que pasa es que tengo nula experiencia con estos nuevos juguetes.\n\nTenía un celular normal y una Palm Zire72, los he cambiado por un SmartPhone QTek9100, tengo un sistema para Ganaderos de toros de lidia que a lo largo de 19 años he capturado a casi todos los ganaderos de México y quiero que en poco tiempo no se tengan que llevar la LapTop al campo, que consulten la información desde su Pocket.\n\nMás que conocimientos en FW lo que necesito es alguien que me oriente sobre el entorno del sistema, la instalación, como sobrevivir sin el Verce, etc., tampoco lo necesito de planta, solo un buen empujón para iniciar y alguien que me pueda resolver dudas rápidamente.\n\nJuan Carlos Salinas (Verce) fué mi asesor en FWH, pero me dice que no tiene ni el hardware ni la experiencia en esta maravillosa herramienta del futuro cercano, RF aún no logra convocar suficientes alumnos para hacer un curso, así que, como verás soy muy práctico, prefiero pagar a investigar, siempre vale la pena compartir un poco de la utilidad a cambio de velocidad y calidad, a fin de cuentas no son gastos, es una inversión.\n\nGracias de nuevo y por aquí seguiremos en contacto.[/quote:2c5kwoek]\n\nRodo,\n\nRF es la persona indicada. su empresa da ese servicio y muchos decimos que es muy bueno.\n\n\n[url:2c5kwoek]http&#58;//www&#46;google&#46;com[/url:2c5kwoek]\n\nEspero te ayude','',0,'kA==','2c5kwoek',1,0,'',54,0,0),(27036,6043,1,186,0,'66.130.50.142',1171994079,1,0,1,1,1,1,'','','Hi,\n\nThanks for the hint it partly solved my problem.\n\nBut there`s something that I don`t understand.\n\nIf VK_MENU test the ALT key, Why VK_CONTROL test the CTRL and ALT keys.\n\nI wrote this small piece of code for testing:\n\nif GetKeyState(VK_MENU)\n   MsgInfo(`ALT key has been pressed`)\nendif\n\nif GetKeyState(VK_CONTROL)\n   MsgInfo(`CTRL key has been pressed`)\nendif\n\nIf I press CTRL + 2 Message displayed is `CTRL key has been pressed`\nIf I press ALT + 2 Message displayed is `ALT key has been pressed` followed by `CTRL key has been pressed`\n\nWhy is VK_CONTROL also test the ALT key ?\nSould`nt it be testing the CTRL key only ?\n\nRegards \n\nGilbert','',0,'kA==','1li9t15y',1,0,'',186,0,0),(27037,6043,1,303,0,'72.199.41.171',1171994729,1,0,1,1,1,0,'','','Gilbert,\n\nAs I remember there are some strange things going on with the Alt key, probably since it is a Windows reserved key to trigger hotkeys.\n\nPerhaps if you tell us exactly what you are trying to accomplish someone can come up with a solution.\n\nJames','',0,'kA==','1zqv2p0r',1,0,'',303,0,0),(27038,6045,2,812,0,'201.236.178.224',1171994887,1,0,1,1,1,0,'','Re: Amigos AYUDA URGENTE','Hola Amigo:\n\nSabes que la saque desde FIVEGEN de FW 2.4, como me lo indico Antonio.\n\nDondes esta el error?\n\nSaludos,\n\nMiguel\n\n\n\n[quote=&quot;wmormar&quot;:2rt2mdty]Miguel,\n\nfunction IniLogo(oWnd,oBmpTiled)\nif ! Empty( oBmpLogo ) .or. ! Empty( oBmpTiled )\n      oWnd:bPainted = { | hDC | If( oBmpTiled != nil,;\n                                  BmpTiled( hDC, oWnd, oBmpTiled ),),;\n                                  If( oBmpLogo != nil,;\n                                  PalBmpDraw( hDC,;\n                                  oWnd:nHeight() / 2 - ;\n                                  oBmpLogo:nHeight() / 2 - 50,;\n                                  oWnd:nWidth() / 2 - ;\n                                  oBmpLogo:nWidth() / 2,;\n                                  oBmpLogo:hBitmap ),) }\n   endif\n   Return nil\n\nfunction BmpTiled( hDC, oWnd, oBmp )\n\n   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()\n   local nRow := 0, nCol := 0, n\n   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()\n\n   while nRow &lt; nHeight\n      nCol = 0\n      while nCol &lt; nWidth\n         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )\n         nCol += nBmpWidth\n      end\n      nRow += nBmpHeight\n   end\n\nreturn nil\n\nLos dos puntos (::) significa que es parte de una clase declrada, por lo tanto, no se podrian usar en una función.\n\nsaludos[/quote:2rt2mdty]','',0,'gA==','2rt2mdty',1,0,'',812,0,0),(27039,6042,4,2,0,'87.218.146.125',1171995571,1,0,1,1,1,1,'','','Joaquim,\n\nWindows Mobile requires some extra information to build the menu. Please review samples\\TestMnu2.rc. \n\nAll this data is required. You have to add it manually, PellesC will not create it for you:\n[code:2du2m7o7]\n#define I_IMAGENONE		&#40;-2&#41;\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n  102, 3,\n  I_IMAGENONE, 100, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 100, 0, 0,  \n  I_IMAGENONE, 200, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 200, 0, 1,  \n  I_IMAGENONE, 300, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 300, 0, 2  \nEND\n#endif\n\nSTRINGTABLE DISCARDABLE \nBEGIN\n   100 &quot;Maestros&quot;\n   200 &quot;Varios&quot;\n   300 &quot;Ayuda&quot;\nEND\n\n102 MENU DISCARDABLE \nBEGIN\n    POPUP &quot;&quot;\n    BEGIN\n        MENUITEM &quot;Clientes&quot;,    110\n        MENUITEM &quot;Proveedores&quot;, 120\n        POPUP &quot;Artículos&quot;\n        BEGIN\n           MENUITEM &quot;Añadir&quot;,    1310\n           MENUITEM &quot;Modificar&quot;, 1320\n           MENUITEM &quot;Eliminar&quot;,  1330\n        END\n    END\n\n    POPUP &quot;&quot;\n    BEGIN\n        MENUITEM &quot;Albaranes&quot;, 210\n        MENUITEM &quot;Facturas&quot;, 220\n    END\n\n    POPUP &quot;&quot;\n    BEGIN\n        MENUITEM &quot;Manual&quot;, 310\n        MENUITEM SEPARATOR\n        MENUITEM &quot;Acerca de&#46;&#46;&#46;&quot;, 320\n    END\nEND\n[/code:2du2m7o7]','',0,'AIA=','2du2m7o7',1,0,'',2,0,0),(27040,6037,7,2,0,'87.218.146.125',1171995689,1,0,1,1,1,1,'','','Toni,\n\nUsa este flag al enlazar: \n/force:multiple','',0,'AIA=','24y8glgn',1,0,'',2,0,0),(27041,6044,7,2,0,'87.218.146.125',1171996133,1,0,1,1,1,1,'','','Jose Luis,\n\nPrueba así:\n\nunsigned char buffer[ 22 ];\n\nwsprintf( buffer, \"{%04i-%02i-%02i-00000000}\", var.Data1, var.Data2, var.Data3 );\n\nluego copias los 8 bytes de Data4 a buffer + 13\n\nen donde var es un dato de tipo struct _GUID','',0,'','8xah31vm',1,0,'',2,0,0),(27042,6047,1,2,0,'87.218.146.125',1171996730,1,0,1,1,1,1,'','','Gilbert,\n\nA FW TGet object is a Windows GUI control that contains a Clipper Get object. Method cText() retrieves the text that the Windows GUI control has, which it can be different from what the Clipper Get object contains.\n\nMethods SetGet automatically creates two methods:\n\nMethod cText() and Method _cText(), so cText() can be managed as a DATA (retreived and assigned) though they are methods and not a real DATA.\n\nObjects.ch is quite complex and difficult to follow.','',0,'','11ecsofx',1,0,'',2,0,0),(27043,6010,6,2,0,'87.218.146.125',1171997118,1,0,1,1,1,1,'','','Jorge,\n\nPuedes simular una consola de texto usando una ventana. Se trata de que bPainted de la ventana tome la información de un array y lo vuelque a la ventana. Así escribes al array, y luego lo vuelcas a la ventana.\n\nEs lo que por ejemplo hace Xbase++ para simular su modo consola. Muchas aplicaciones comerciales de gestión también lo usan para simular un terminal','',0,'','1ej76qty',1,0,'',2,0,0),(27044,6045,2,2,0,'87.218.146.125',1171997275,1,0,1,1,1,1,'','','William te lo ha explicado: Tienes que quitar los \"::\" ya que no estás dentro de un método usando datos de un objeto','',0,'','1xh6bysz',1,0,'',2,0,0),(27045,6042,4,946,0,'87.196.78.66',1171997346,1,0,1,1,1,0,'','','Thank you Antonio,\n\nBut can you send me a working sample?\nI tried with the one you send me, i even tried with the testmnu2.prg, without any modification (compiled it and send it to the PPC) and the result was always the same: nothing happened, i.e.: i see the window, i don\'t see any menu...\n\nThank you,\nJoaquim','',0,'','2fi5esfa',1,0,'',946,0,0),(27046,6042,4,2,0,'87.218.146.125',1171997665,1,0,1,1,1,1,'','','Joaquim,\n\nAlready sent.\n\nPlease check that your RC properly compiles into a RES file without errors','',0,'','23sc06qe',1,0,'',2,0,0),(27047,6043,1,186,0,'66.130.50.142',1171998091,1,0,1,1,1,1,'','','Hi James,\n\nI`m implementing new picture clause in the TGet. So far it works ok exept for one situation. \n\nOne picture clause I create allows the user to use FastLogin by using CTLR-G or whatever. (All 26 alpha key are available). Of course this FastLogin key has been configured in a User managament module where the user can create new users and define a FastLogin key.\n\nSo far, so good it works nicely. The only problem that this is causing me is whenever I have to capture an E-Mail address in a get field I cannot capture the @. TGet crashes. I figured out that it was because whenever the ALT Key is used it goes through the same routine that I added to the TGET that captures the FastLogin.\n\nThe strange thing about this is that the FastLogin should only work with CTRL Key. But I found out that using GetKeyState(VK_CONTROL) wich test the CTRL key also test the ALT Key. Because of this TGet crashes.\n\nFinaly, I was able to work around the problem by doing the following:\n\ndo case \ncase GetKeyState(VK_MENU)\n    // Do Nothing\ncase GetKeyState(VK_CONTROL)\n...\n...\n...\nendcase\n\nBy testing VK_MENU (ALT key) first I eliminate the fact that using the ALT key GetKeyState(VK_CONTROL) processes the ALT + whaterver key may be used.  This work around is quite weird but it works.\n\nRegard,\n\nGilbert','',0,'','2nm3jn6x',1,0,'',186,0,0),(27048,6047,1,186,0,'66.130.50.142',1171998257,1,0,1,1,1,1,'','','Hi Antonio,\n\nThanks for the information.\n\nBut could I change cText() METHOD to VarGet() and Value() METHOD to VarPut().\n\nRegards,\n\nGilbert','',0,'','2pncdvgn',1,0,'',186,0,0),(27049,6042,4,946,0,'87.196.78.66',1171999477,1,0,1,1,1,0,'','','Thank you Antonio,\n\nI get it going.\nI think the problem is with Pelles: every time you open a resource file with it, pelles removes some information that you\'ll need.\n\nJoaquim','',0,'','1h68n4dw',1,0,'',946,0,0),(27050,6034,6,228,0,'201.245.222.86',1172000273,1,0,1,1,1,1,'','Noppp','Nop  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRochinha:\n\nNo me funciono... de todas formas muchas gracias por la respuesta. \n\nUn abrazo.','',0,'','3pi1akok',1,0,'',228,0,0),(27051,6037,7,57,0,'83.53.69.224',1172000688,1,0,1,1,1,1,'','','Antonio\n\nAl Añadir el Flag genera los siguientes errores al enlazar:\n\nc:\\vce\\bin\\link @msvc.tmp /FORCE:MULTIPLE /nologo /SUBSYSTEM:WINDOWSCE,3.00 /MACHINE:ARM\nc:\\prg\\myapp.obj : warning LNK4042: object specified more than once; extras ignored\nFiveCE.lib(FILENAME.obj) : warning LNK4006: HB_FUN_LOGFILE already defined in utils.obj; second definition ignored\nc:\\prg\\myapp.obj : warning LNK4042: object specified more than once; extras ignored\nFiveCE.lib(FILENAME.obj) : warning LNK4006: HB_FUN_LOGFILE already defined in utils.obj; second definition ignored\n   Creating library myapp.lib and object myapp.exp\nmyapp.exe : warning LNK4088: image being generated due to /FORCE option; image may not run\nFiveCE.lib(FILENAME.obj) : fatal error LNK1223: invalid or corrupt file: file contains invalid .pdata contributions\n\n\nSaludos','',0,'','nl4u9okl',1,0,'',57,0,0),(27052,6039,3,3,0,'82.253.145.1',1172001291,1,0,1,1,1,1,'','','James\n\nXhbzip.lib and Xhbzipdll.lib are needed and used for the commercial version of xharbour.\n\nRichard','',0,'','1seq4btm',1,0,'',3,0,0),(27053,6043,1,303,0,'72.199.41.171',1172002586,1,0,1,1,1,0,'','','Gilbert,\n\n&gt;This work around is quite weird but it works.\n\nGlad to hear you got it working. As I mentioned the Alt key is special. It probably doesn\'t get trapped because it has to be available to call up the menu or a hotkey at any time.\n\nJames','',0,'','otss81rt',1,0,'',303,0,0),(27054,6039,3,303,0,'72.199.41.171',1172002733,1,0,1,1,1,0,'','','Richard,\n\n&gt;Xhbzip.lib and Xhbzipdll.lib are needed and used for the commercial version of xharbour. \n\nI still wonder what the difference is. More features? Or, is it due to the fact that the commercial version uses a different compiler?\n\nJames','',0,'','1no87duv',1,0,'',303,0,0),(27055,6039,3,3,0,'82.253.145.1',1172003495,1,0,1,1,1,1,'','','James\n\nUnfortunately, this is the problem of different compilers.\n\nBorland \"c\" format and microsoft \"C\" format...\n\nOne of the bad things we have to live wih .... I wish fivetech had it\'s own compiler , but that\'s another story.\n\nI have started with Borland and now i use the commercial version, mainly because of the \"builder\" (no more make files and dos). But now, the builder is not  compatible with \"Vista\"..... i do not know if borland is, haven\'t tested it.\n\nIt is getting difficult to work in our \"beloved\" environment ...\n\nRegards\n\nRichard','',0,'','3krs4wo6',1,0,'',3,0,0),(27056,6039,3,3,0,'82.253.145.1',1172003534,1,0,1,1,1,1,'','','Michel\n\nhave you received the files i sent by mail ?\n\nRichard','',0,'','3i3nuowr',1,0,'',3,0,0),(27057,6039,3,303,0,'72.199.41.171',1172004543,1,0,1,1,1,0,'','','Richard,\n\n&gt;But now, the builder is not compatible with \"Vista\"..... i do not know if borland is, haven\'t tested it.\n\nHmm, do you mean the builder itself won\'t run under Vista, or that the applications it builds won\'t. Or, by \"not compatible\" do you mean something else?\n\n&gt;It is getting difficult to work in our \"beloved\" environment ...\n\nI use UltraEdit and a small FW program I wrote to automatically create the make and batch files needed to compile and link via a button on the UE toolbar. Its simple and I can use any compiler.\n\nJames','',0,'','34hxihq4',1,0,'',303,0,0),(27058,6039,3,3,0,'82.253.145.1',1172004769,1,0,1,1,1,1,'','','Just the builder does not run under vista and is completely \"buggy\" in this environment.\n\nThe app works OK under vista, tested (home premium and business)\n\nI use Ultra edit also and i plan to switch to UE studio very shortly. I am looking in the forum for the configuration file.','',0,'','3ne9z1j5',1,0,'',3,0,0),(27059,6039,3,86,0,'213.119.103.68',1172005184,1,0,1,1,1,1,'','','Richard,\n\nThanks a lot for your help.\n\nI\'ve received your files.\n\nI\'ll try it out.\n\nRegards,\n\nMichel','',0,'','17sgids7',1,0,'',86,0,0),(27060,6048,3,3,0,'82.253.145.1',1172005253,1,0,1,1,1,1,'','Vista','Hello\n\nJust curious, \n\nHas anyone tried to compile fwh + xharbour on Vista ?\n\nNot the commercial version , i know it does not work.\n\nIs BCC55 still compatible ? make files also ? \n\nThanks for reply,\n\nRichard','',0,'','11t5e9xs',1,0,'',3,0,0),(27061,6049,6,439,0,'200.125.44.211',1172005495,1,0,1,1,1,1,'','Clase TReport , preview no modal','En la línea 251 de la clase treport dice:\n[quote:1j31u2f4]// Can add a 4th param as .t. ( lModal ) so preview screen \n      // will be on top --  TPrinter():New(cName,.f.,.t.,.t.)[/quote:1j31u2f4]\n\nLo probé, pero obtuve este mensaje:\n\n[quote:1j31u2f4]There are not printers installed!, Please exit this aplication and install a printer[/quote:1j31u2f4]\n\nal dar ok en la dialog entonces:\nApplication\n===========\n   Path and name: D:\\EXPORT\\EXPORT.Exe (32 bits)\n   Size:   584,704 bytes\n   Time from start: 0 hours 1 mins 23 secs \n   Error occurred at: 20/02/2007, 19:03:38\n   Error description: Error BASE/1605  Invalid self: NEW\n   Args:\n     [   1] = O   Object\n     [   2] = U   \n\nStack Calls\n===========\n   Called from: REPORT.PRG =&gt; TREPORT:NEW(282)\n   Called from: mreport.PRG =&gt; TMREPORT:NEW(63)\n   Called from: pdreport.PRG =&gt; RPTBEGIN(56)\n   Called from: listados.prg =&gt; EXPOACOB(324)\n   Called from: export.prg =&gt; (b)CREAMENU(208)\n   Called from: menu.prg =&gt; TMENU:COMMAND(657)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: export.prg =&gt; MAIN(129)\n\nQué estoy haciendo mal?\n\nComo hago que el preview de la clase report sea no modal?\n\nGracias desde ya','',0,'gA==','1j31u2f4',1,0,'',439,0,0),(27062,6039,3,303,0,'72.199.41.171',1172005630,1,0,1,1,1,0,'','','Richard,\n\n&gt;I use Ultra edit also and i plan to switch to UE studio very shortly. I am looking in the forum for the configuration file.\n\nI have also been considering switching to UE Studio. I will be interested to hear about your experience with it.\n\nJames','',0,'gA==','2lxe47f8',1,0,'',303,0,0),(27063,6039,3,3,0,'82.253.145.1',1172006151,1,0,1,1,1,1,'','','James\n\nI will let you know how it goes.\n\nI will surely need Antonio\'s help.... (as susual)\n\nregards\n\nRichard','',0,'gA==','337g08ho',1,0,'',3,0,0),(27064,6048,3,2,0,'87.218.146.125',1172007240,1,0,1,1,1,1,'','','Richard,\n\n&gt; Has anyone tried to compile fwh + xharbour on Vista ? \n\nYes, of course\n\n&gt; Is BCC55 still compatible ? make files also ? \n\nYes, 100%','',0,'gA==','2ehp5bxe',1,0,'',2,0,0),(27065,1989,6,180,0,'83.54.13.239',1172007737,1,0,1,1,1,0,'','Re: C5Menu en Preview','Algo nuevo sobre este asunto?\n¿Como deshabilitaste el menu del preview?\n\n[quote=&quot;Francisco Horta&quot;:19364o5q]Estoy usando la clase C5Menu y en el preview nomas no la he podido echar a volar, alguien ya pudo o que hay que corregir? opte por deshabilitar el menu del preview, pero si me gustaria que funcionara el C5MENU o como hacer para que tome la clase menu original y no la C5Menu? porque el C5MENU en la window principal si funciona y en la del preview no?\ngracias[/quote:19364o5q]','',0,'gA==','19364o5q',1,0,'',180,0,0),(27066,6000,6,36,0,'200.113.56.235',1172008227,1,0,1,1,1,0,'','','Alguien ha podido ver imagen desde recurso y con scrol\n\na lo mejor estoy utilizando un recurso erroneo\n\nutilizo pellesc y el recurso que utilizo es BITMAP\n\nSaludos\nPatricio','',0,'gA==','1wqcghx5',1,0,'',36,0,0),(27067,6050,6,963,0,'201.236.179.229',1172008302,1,0,0,0,1,0,'','Estimados Gurues, tengo el siguiente problema al compilar...','¿Cómo soluciono esto?\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Too many MAP file names: D:\\FWH\\lib\\FiveHC.lib\n\nSe que falta alguna directiva, pero no tengo idea cual es.\n\nDe ante mano, Gracias.','',0,'gA==','pqons3mz',1,0,'',963,0,0),(27068,6010,6,196,0,'201.231.125.43',1172008584,1,0,1,1,1,0,'','','Antonio tendras un pequeño ejemplo?\n\nGracias!','',0,'gA==','yc91dwrx',1,0,'',196,0,0),(27069,6048,3,6,0,'82.57.161.144',1172008690,1,0,1,1,1,1,'','','Great! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','3p54hvm1',1,0,'',6,0,0),(27070,6050,6,2,0,'87.218.146.125',1172012378,1,0,1,1,1,1,'','','Debes tener una coma de más (ó menos) en tu fichero de construcción del EXE. Compáralo con samples\\buildh.bat (ó buildx.bat)','',0,'gA==','uww3y2o8',1,0,'',2,0,0),(27071,6010,6,2,0,'87.218.146.125',1172013273,1,0,1,1,1,1,'','','Jorge,\n\nComo verás, facilmente puedes implementar desplazamiento del texo (scroll vertical), incluso colores, etc.\n\n[code:3r9ii3g8]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd, buffer&#91; 25, 80 &#93;\n\nfunction Main&#40;&#41;\n\n   local oFont, nRow, nCol\n\n   for nRow = 1 to 25\n      for nCol = 1 to 80\n          buffer&#91; nRow, nCol &#93; = &quot; &quot;\n      next\n   next       \n\n   DEFINE FONT oFont NAME &quot;Courier New&quot; SIZE 0, -12\n\n   DEFINE WINDOW oWnd TITLE &quot;Terminal&quot; COLOR &quot;W+/B&quot;\n   \n   oWnd&#58;SetFont&#40; oFont &#41;\n\n   Say&#40; 5, 5, &quot;Hello world!&quot; &#41;\n   \n   Say&#40; 10, 12, &quot;A terminal emulator&quot; &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON PAINT DumpText&#40; oWnd &#41;   \n\nreturn nil\n\nfunction DumpText&#40; oWnd &#41;\n\n   local nRow, nCol\n   \n   for nRow = 1 to 25\n      for nCol = 1 to 80\n         oWnd&#58;Say&#40; nRow, nCol, buffer&#91; nRow, nCol &#93; &#41;\n      next\n   next\n   \nreturn nil   \n\nfunction Say&#40; nRow, nCol, cText &#41;\n\n   local n\n   \n   for n = 1 to Len&#40; cText &#41;\n      buffer&#91; nRow, nCol + n - 1 &#93; = SubStr&#40; cText, n, 1 &#41;\n   next\n   \n   oWnd&#58;Refresh&#40;&#41;\n   \nreturn nil\n[/code:3r9ii3g8]','',0,'AIA=','3r9ii3g8',1,0,'',2,0,0),(27072,6034,6,397,0,'201.13.58.177',1172017150,1,0,1,0,1,1,'','','OK\n\nTry\n[code:31d21zwd]\nAPPEND FROM &#40;rutaf&#41; DELIMITED WITH chr&#40;59&#41;\n[/code:31d21zwd]','',0,'AIA=','31d21zwd',1,0,'',397,0,0),(27073,6051,3,86,0,'213.119.103.68',1172019601,1,0,1,1,1,1,'','How prevent running an application twice ?','Hello,\n\nA FW16 application can\'t be run twice on a PC, unless it is run in different parts of the memories (properties of shortcut).\n\nHow can I prevent that a FW32 application is run twice ?\n\nThanks.\n\nMichel','',0,'AIA=','2z6nd53q',1,0,'',86,0,0),(27074,6052,1,186,0,'66.130.50.142',1172022663,1,0,1,1,1,1,'','Setting focus on specific object','Hi All,\n\n\nHow can I set focus to a specific get object or any object in a dialog overiding the predefined tab stops ?\n\nRegards\n\nGilbert','',0,'AIA=','3a48i1ru',1,0,'',186,0,0),(27075,6051,3,880,0,'165.69.3.21',1172031145,1,0,1,1,1,1,'','','there is a tmutex class from fivewin.info (Patrick Mast) you should look at','',0,'AIA=','3ffq2hmo',1,0,'',880,0,0),(27076,6034,6,9,0,'85.59.89.242',1172031473,1,0,1,1,1,1,'','','Amigo Leandro,\n\nYo lo hago de la siguiente forma:\n\n1) Creo un fichero temporal, con un solo campo (muy grande)\nDbCreate( \"tFichero.dbf\",{ {\"NOMBRE\", \"C\", 256, 0} } )\n\n2) Hago el Append From  a este fichero temporal :\nUSE tFichero new EXCLUSIVE\nAPPE FROM (cFichero) SDF\nDBGOTOP()\n\n3) Abro el fichero definitivo y voy copiando la información desde el fichero temporal al definitivo, usando la claúsula SUBSTRING para cada uno de los campos.\n\n    definitivo-&gt;NOMBRE:= SUBS(tFichero-&gt;NOMBRE, 1, 24)','',0,'AIA=','2zm1diq8',1,0,'',9,0,0),(27077,6052,1,6,0,'87.6.210.218',1172044266,1,0,1,1,1,1,'','Re: Setting focus on specific object','oGet:SetFocus()\n\nor\n\noGet1:oJump = oGet2\n\nEMG','',0,'AIA=','2wklmeak',1,0,'',6,0,0),(27078,6051,3,2,0,'87.218.146.215',1172044415,1,0,1,1,1,1,'','','[code:vej1nekt]\n#include &quot;FiveWin&#46;ch&quot; \n\n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2 \n\nfunction Main&#40;&#41; \n\n   local oWnd \n    \n   if Is Exe Running&#40; cFileName&#40; HB_ARGV&#40; 0 &#41; &#41; &#41; \n      ShowApplication&#40;&#41; \n   else    \n      DEFINE WINDOW oWnd TITLE &quot;Test&quot; \n    \n      ACTIVATE WINDOW oWnd \n   endif    \n    \nreturn nil    \n\nfunction ShowApplication&#40;&#41; \n\n   local hWnd &#58;= FindWnd&#40; cFileNoExt&#40; HB_ARGV&#40; 0 &#41; &#41; &#41; \n    \n   if hWnd != nil \n      SetForeGroundWindow&#40; hWnd &#41; \n   endif    \n    \nreturn nil    \n\nfunction FindWnd&#40; cTitle &#41; \n\n   local hWnd &#58;= GetWindow&#40; GetDesktopWindow&#40;&#41;, GW_CHILD &#41; \n\n   while hWnd != 0 \n      if Upper&#40; cTitle &#41; $ Upper&#40; GetWindowText&#40; hWnd &#41; &#41; \n         return hWnd \n      endif \n\n      hWnd = GetWindow&#40; hWnd, GW_HWNDNEXT &#41; \n   end \n\nreturn nil \n[/code:vej1nekt]','',0,'AIA=','vej1nekt',1,0,'',2,0,0),(27079,6037,7,2,0,'87.218.146.215',1172044668,1,0,1,1,1,1,'','','Toni,\n\nHas modificado FiveCE.lib ? Parece que esta corrupto','',0,'AIA=','1o1sdjgz',1,0,'',2,0,0),(27080,6044,7,123,0,'83.53.69.224',1172045719,1,0,1,1,1,0,'','','Antonio,\n\nGracias!!  \n\nSaludos,\nJósé Luis Capel','',0,'AIA=','2h9xdks8',1,0,'',123,0,0),(27081,6040,20,49,0,'213.82.134.66',1172046687,1,0,1,1,1,1,'','','caro EMG io ancora non ho acquistato fwppc\nVorrei prima testare il prodotto prima di acquistarlo \nper esempio io avrei un programma di gestione spiagge che devo inserire in un palmare almeno per quanto riguarda la situazione della spiaggia per far operare il bagnino per vedere quali ombrelloni sono occupati oppure liberi, non solo dovo far visualizzare tutti gli ombrelloni e riflettendo onostamente non saprei come fare dato il minimo spazio che c\'è nel palmare, ma per ogni bottoni io dovrei far visualizzare dei dati come faccio in fwh con la tsbutton.( libero/occupato|quante sedie o sdraio ha|nome del cliente| nomi dei suoi amici/parenti|pagato si/no| EXTRA BAR|EXTRA RISTO\'|)\nMi sto demoralizzando appunto per lo spazio del video che è troppo piccolo \n\nPoi una latra cosa ho potuto provar eun esempio che mi ha inviato Antonio\nHo visto che i listbox che fa fwppc sono diversi da quelli che fa il windows mobile 5.0  se vai per caso nei contatti puoi vedere le differenze ( assomiglia piu\'  a xbrowse) e gli inserimenti hanno piu\' get e quelli che hanno piu\' get hanno schermate scorrevoli e i get sono formati da soli lineette \n\nle pagine in fwppc sembrano piu\' pesanti rispetto a quelle di windows mobile 5.0 non so se hai notato queste differenze ....\n\nforse mi sbaglierò ma forse se mi puoi inviare altri esempio EXE potrei provare di piu\' il palmare \n\nPoi a meta mese potrei acquistare il fwppc  volevo essere sicuro sul palmare per poterlo farlo acquistare a chi devo fargli il programma spiagge.\n\nquesto messaggio l\'ho scritto con il mio palmare Qtek HTC 9600 non so se lo conosci \n\nciao','',0,'AIA=','2n8oobv9',1,0,'',49,0,0),(27082,6053,6,385,0,'195.76.89.37',1172046705,1,0,1,1,1,0,'','Faltan librerias y una fucnion','Antonio\n\nMe gusta mucha ver como se pasa de un mensaje que mem impide trabajar con FW, me falta la liberria dbfdbt.lib.. es que ua no se da soporte a dbf???.. y la funcion treedraw.c esta mal creada\n\nNecesito una respuesta urgente\n\nJose Ignacio Jimenez alarcon','',0,'AIA=','1nd2yzky',1,0,'',385,0,0),(27083,6051,3,6,0,'87.6.210.218',1172047067,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:hh1tj4um][code:hh1tj4um]if Is Exe Running&#40; cFileName&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;[/code:hh1tj4um][/quote:hh1tj4um]\n\nIsExeRunning() <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gIA=','hh1tj4um',1,0,'',6,0,0),(27084,6053,6,2,0,'87.218.146.215',1172047344,1,0,1,1,1,1,'','','Jose Ignacio,\n\nLa librería DBFDBT.lib ya no se usa. Ahora Harbour/xHarbour usan estas:\n\necho %hdir%\\lib\\b32\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\b32\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\b32\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\b32\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\b32\\hbsix.lib + &gt;&gt; b32.bc\n\nQue problema hay con treedraw.c ?','',0,'gIA=','3ne43gcc',1,0,'',2,0,0),(27085,6018,6,519,0,'88.24.56.100',1172047366,1,0,1,1,1,0,'','','Se puede saber de alguna forma los pc que de una red local  ?\n\n\n    Un saludo','',0,'gIA=','17wuhwh9',1,0,'',519,0,0),(27086,333,7,596,0,'85.62.69.206',1172047495,1,0,1,1,1,1,'','','Como no encuentro un sitio donde presentarme... lo hago aqui.\nMe dedico a estas cosas de la navegación aérea y desarrollo herramientas para pruebas de sistemas.\nLlevo bastantes años disfrutando de CLIPPER, FW, FWH, etc...\n\nY al ver este tema de sockets me pregunto:\nQue tal las comunicaciones MULTICAST.\n\nEn FW ya las tengo dominadas, pero el FWPPC como sería...\n\nP.D. Saludos para Rene, Niko, Luis y conocidos.','',0,'gIA=','z07y184w',1,0,'',596,0,0),(27087,6037,7,57,0,'83.53.69.224',1172047926,1,0,1,1,1,1,'','','Antonio\nHe instalado nuevamente el FWPPC por si acaso pero sigue mostrando el mismo mensaje. Si lo quito compila perfecto (quitando la funcion LogFile que es la funcion que quiero cambiar).\n\nSaludos','',0,'gIA=','1u5irrdh',1,0,'',57,0,0),(27088,6037,7,57,0,'83.53.69.224',1172048074,1,0,1,1,1,1,'','','Antonio\nSi compilo con el Flag pero quitando la funcion LogFile de mi PRG compila perfecto. Por tanto parece que hay diferencias de compilación o no es correcto el Flag\n\nSaudos','',0,'gIA=','2vvknyu8',1,0,'',57,0,0),(27089,6037,7,2,0,'87.218.146.215',1172049258,1,0,1,1,1,1,'','','Toni,\n\nTendrás que extraer el módulo de la librería ó reemplazarlo por el tuyo modificado','',0,'gIA=','3fy241po',1,0,'',2,0,0),(27090,333,7,2,0,'87.218.146.215',1172049435,1,0,1,1,1,1,'','','JM,\n\nEl soporte de sockets de Windows Mobile en principio es compatible con el de Windows PC, por lo que podrías hacerlo como lo haces en el PC','',0,'gIA=','139dcn9w',1,0,'',2,0,0),(27091,6018,6,2,0,'87.218.146.215',1172049515,1,0,1,1,1,1,'','','No sabemos la forma de obtenerlos. Tendrás que buscar en google.\n\nNosotros hemos buscado pero de momento no lo hemos encontrado','',0,'gIA=','20q1ng7c',1,0,'',2,0,0),(27092,6053,6,385,0,'195.76.89.37',1172050154,1,0,1,1,1,0,'','','Hola \n\nAntonio antes de nada gracias por contestar, es muy importante porque aun no he conseguido compilar la aplicacion, si no es debido a esa libreria me esta saliendo un error en la clase tdbatabase\n\n\n   Error description: Error BASE/44  Assigned value is wrong class: TDATABASE:BBOF\n   Args:\n     [   1] = B   {|| ... }\n\nStack Calls\n===========\n   Called from:  =&gt; TDATABASE:_BBOF(0)\n   Called from:  =&gt; TDATABASE:NEW(0)\n   Called from:  =&gt; TDICCIO:ACTIVATE(176)\n   Called from:  =&gt; TAPPLICATION:NEW(231)\n   Called from: qc4rad32.prg =&gt; MAIN(43)\n\n\nLo muestra despues de abrir la base de datos que es una dbf  con la orden\n\nUSE (fichero) ALIAS &amp;alias VIA \"DBFNTX\"\n\ny hacer\n\nDATABASE ::oApplication\n\n\nEl problema con treedraw es el siguiente\n\nInvestigando un poco veo que ha cambiado la funcion treedraw de fivewin, la que esta en functions ojo \n\nHB_FUNC( LBSETDATA ) // ( hwnd, index, data ) \n\nHB_FUNC( LBGETDATA ) // ( hwnd, index, lDelete ) \n\ncuando en a version 2.5 estaba puesta en el mismo fichero \n\nHARBOUR HB_FUN_LBSETDATA() // ( hwnd, index, data ) \nHARBOUR HB_FUN_LBGETDATA() // ( hwnd, index, lDelete ) \n\nporque ha cambiado?... como puedo acceder a esas funciones? \n\nGracias\nJose Ignacio Jimenez','',0,'','2x2ift11',1,0,'',385,0,0),(27093,6054,7,720,0,'80.36.244.134',1172054724,1,0,1,1,1,0,'','Calendario...','Hola a todos...\n\nMe gustaria saber si existe alguna clase para mostrar un pequeño calendario y como debo usarla....\n\n\nSaludos y gracias..\n\nElías Torres.','',0,'','3dckhmd7',1,0,'',720,0,0),(27094,6020,3,9,0,'85.53.87.60',1172055030,1,0,1,1,1,1,'','','Thank James and Enrico.','',0,'','1wnfu329',1,0,'',9,0,0),(27095,5830,3,49,0,'213.82.134.66',1172055050,1,0,1,1,1,1,'','','no i haven\'t a solution','',0,'','34vmqhdt',1,0,'',49,0,0),(27096,3623,6,413,0,'194.106.16.43',1172055420,1,0,1,1,1,0,'','','Rossine el efecto [color=darkblue:2zhcg6b4]sombra[/color:2zhcg6b4] que tiene tu tooltip, no lo consigue el mio hay que añadir algo o dempende del sistema que utilices yo estoy en un win2000. \n\nGracias','',0,'Ag==','2zhcg6b4',1,0,'',413,0,0),(27097,3729,20,49,0,'213.82.134.66',1172055801,1,0,1,1,1,1,'','','non l\'ho trovata  io ho la 00.9x','',0,'Ag==','3rdmd92x',1,0,'',49,0,0),(27098,6055,7,49,0,'213.82.134.66',1172057181,1,0,1,1,1,1,'','por renè flores','I read qtek 9600 have a internal gps but I not found  the program : see it pls\nh***://forum.xda-developers.com/showthread.php?t=291181','',0,'Ag==','30328twi',1,0,'',49,0,0),(27099,3729,20,6,0,'87.6.210.218',1172057505,1,0,1,1,1,1,'','','Controlla sull\'ultima release.\n\nEMG','',0,'Ag==','1mkm15or',1,0,'',6,0,0),(27100,3729,20,49,0,'213.82.134.66',1172062401,1,0,1,1,1,1,'','','sono fermo perchè non uso cvs per motivi di connessione e quindi uso quell datami con fwh\ndove posso scaricare l\'ultima versione ?\nma poi sono compatibile con la 27','',0,'Ag==','3oznkv0s',1,0,'',49,0,0),(27101,6026,3,449,0,'212.64.224.250',1172064682,1,0,1,1,1,1,'','','Hello,\n\nI already have it resolved. It is that it controlled that ::hBitmap was &gt; 0 and in fact it can be a negative value.\n\nRegards.','',0,'Ag==','3ix8hu3b',1,0,'',449,0,0),(27102,6056,6,36,0,'200.113.56.235',1172064706,1,0,1,1,1,0,'','Ads y SQLs..','Estimados del Foro y Usuarios ADS Server\n\nEstoy utilizando estas funciones de SQL y funciona bien el problema es cuando abro el ADV DATA ARQUITEC Y diccionario de datos queda tamada la base MOVI_MON.DBF\n\nHay alguna manera de cerrar o siempre quedan abierta??\n\n[code:3r745rj1]	cSql &#58;= &quot;SELECT DISTINCT ANOCORREJI FROM MOVI_MON&quot;\n\n	if !AdsCreateSqlStatement&#40;&quot;BASE&quot;, 2 &#41;\n		alert&#40; &quot;error AdsCreateSqlStatement&#40;&#41;&quot;&#41;\n	endif\n\n	if !AdsExecuteSqlDirect&#40;cSql&#41;\n		Alert&#40; &quot;error AdsExecuteSqlDirect&#40;cSql&#41;&quot; &#41;\n	endif\n\n     bla bla\n     bla\n    \n    close BASE\n\nRETURN\n[/code:3r745rj1]\n\nSaludos\nPatricio','',0,'AIA=','3r745rj1',1,0,'',36,0,0),(27103,6051,3,86,0,'213.119.103.68',1172064960,1,0,1,1,1,1,'','','Thanks guys.\n\nYou were a great help.\n\nMy questions has been answered greatfully.\n\nRegards,\n\nMichel','',0,'AIA=','27xnpgq3',1,0,'',86,0,0),(27104,3729,20,6,0,'82.61.157.67',1172064970,1,0,1,1,1,1,'','','Non hai bisogno del CVS. L\'ultima release ufficiale (0.99.7) la trovi su <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w --> o direttamente su SourceForge.\n\nPer quanto riguarda la compatibilità con FWH, dovrebbe essere compatibile. E comunque basta provare.\n\nEMG','',0,'AIA=','2t0ku33a',1,0,'',6,0,0),(27105,6057,6,449,0,'212.64.224.250',1172064987,1,0,1,1,1,1,'','Insertar un Metafile en una ventana','Hola,\n\nEstoy intentando insertar una fichero EMF en una ventana, en un objeto Metafile. Se me ocurre esta manera pero no consigo...  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[code:1z2itvnw]*------------------------------\nSTATIC FUNCTION InsEMF&#40; oMeta &#41;\n*------------------------------\n    LOCAL cFile   &#58;= cGetFile&#40; &quot;*&#46;emf&quot; &#41;\n    LOCAL hMeta\n\n    IF !File&#40; cFile &#41;\n       retu nil\n    ENDIF\n\n    SaveDC&#40; oMeta&#58;hDC &#41;\n\n    hMeta &#58;= GetEnhMetaFile&#40; cFile &#41;\n\n    PlayEnhMetafile&#40; oMeta&#58;hDC, hMeta,, &#46;t&#46; &#41;\n    DeleteEnhMetafile&#40; hMeta &#41;\n\n    RestoreDC&#40; oMeta&#58;hDC &#41;\n\n    oMeta&#58;Refresh&#40;&#41;\n\nRETU NIL[/code:1z2itvnw]\n\nAlguien me echa una mano ?  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nGracias.','',0,'AIA=','1z2itvnw',1,0,'',449,0,0),(27106,6026,3,6,0,'82.61.157.67',1172064990,1,0,1,1,1,1,'','','Ah, ok.\n\nEMG','',0,'AIA=','1g6idglt',1,0,'',6,0,0),(27107,6029,3,86,0,'213.119.103.68',1172065064,1,0,1,1,1,1,'','','Hello guys,\n\nMy problem concerning my folders is solved.\n\nIn FW16 I had a box drawn around my folders and it showed beautiful.\n\nIn FW32 the box comes on top of the folders. So I got rid of the box and the folders reappeared again.\n\nThank you so much for helping me.\n\nRegards,\n\nMichel','',0,'AIA=','3kr015br',1,0,'',86,0,0),(27108,6020,3,86,0,'213.119.103.68',1172065200,1,0,1,1,1,1,'','','Hello,\n\nCan oMail:HTMLBody be used to define a letterpaper for my outgoing emails ?\n\nIf so, how do I have to do that ?\n\nI want to send emails from my application and I want each email to start with my logo.\n\nHow do I do that ?\n\nThanks.\n\nRegards,\n\nMichel','',0,'AIA=','3josuefa',1,0,'',86,0,0),(27109,6039,3,879,0,'65.92.174.8',1172066812,1,0,1,1,1,0,'','','Richard,\n\nLook at the post called Ctags it contains info you are looking for about UEStudio. As per Antonio\'s suggestion I posted the Build (config) file as text so it would not get lost and I can update it if need be.\n\nCurrently the Resource Editor has a couple of problems that I have already reported. A couple were fixed in the current release before they began to finalize their work on the next release. I am pushing to have them insure that all styles are working properly in the next version.\n\nThe current problem is many styles never get added to the RC file. Apart from the Resource Editor, I have found everything else works correctly.\n\nI have read the posts re the 16 bit Borland Workshop and have conveyed the urgency to resolve the existing UEStudio Resource Editor problems. I have personally found UE to be a great editor and I hope UEStudio will be just as good. A little extra prodding from potential users might be an added encouragement.\n\nRegards,\n\nKen','',0,'AIA=','1gq6lr6k',1,0,'',879,0,0),(27110,6058,3,86,0,'213.119.103.68',1172066840,1,0,1,1,1,1,'','Some questions about OLE','Hello,\n\nI use OLE to build a connection between my application and Word, Excel and Outlook. Since I have a huge agenda in my application, it is a dream from me and my customers (lawyers) to build a synchronisation between my application and Outlook because through Outlook the can synchronise with their mobile phone or their PDA. (Perhaps FiveWin for PPC is a possibility in the future).\n\n1. Where can I find a list of the OLE-commands and -functions which can be used in FiveWin and xHarbour ?\n\n2. Where can I find some more information about the correct syntax of these commands ?\n\n3. Does anyone have any experience in developing a synchronisation between a FW-application and Outlook ?\n\n4. A question about a current problem : how can I check through OLE that there is still a document opened (no matter which one) in Word ?\n\nThank you very much in advance.\n\nRegards,\n\nMichel','',0,'AIA=','1iwfam65',1,0,'',86,0,0),(27111,6059,6,52,0,'190.7.30.167',1172068372,1,0,1,1,1,1,'','hay forma de arreglar upper(&quot;descripción&quot; ) == &qu','Estimados,\n\n[code:fyw8ac21]local cTexto&#58;= &quot;descripción&quot;   // fijarse que es la o acentuada\n\nif upper&#40; cTexto &#41; = &quot;DESCRIPCIÓN&quot; // o acentuada pero en mayusculas\n   ? &quot;paso sin problemas&quot;\nelse\n   ? &quot;no paso&quot;\nendif[/code:fyw8ac21]\n\nEste fragmento de codigo jamas es verdadero ya que al hacer upper de una palabra con vocal acentuada da error o sea al convertir \"ó\" sigue siendo \"ó\" y no \"Ó\"\n\nHay manera de solucionarlo a nivel codigo y no app?\n\nGracias','',0,'AIA=','fyw8ac21',1,0,'',52,0,0),(27112,6058,3,67,0,'81.11.200.200',1172068708,1,0,1,1,1,0,'','','1. Where can I find a list of the OLE-commands and -functions which can be used in FiveWin and xHarbour ? \n\nc:\\program Files\\Microsoft Office\\OFFICE11\\1043\\VBAOL11.chm \n\n\n4. A question about a current problem : how can I check through OLE that there is still a document opened (no matter which one) in Word ? \n\n// sorry , just tested , it doesn\'t work\nTRY \n  oWord := GetActiveObject( \"Word.Application\" ) \nCATCH \n ? \"No word document\"  \nEND\n\nFrank','',0,'AIA=','37tzgfnq',1,0,'',67,0,0),(27113,1989,6,255,0,'201.122.36.212',1172071531,1,0,1,1,1,1,'','','Hola, si mal no recuerdo, habria que modificar la clase TWindow\njusto donde hace referencia el MENU para poder usar el C5Menu.\n\nO bien, comentar las lineas de codigo en el Rpreview.prg donde\nse hace referencia al menu con la finalidad de desactivarlo. Despues\nde eso tal vez tengan que pelearse con la asignacion de algunas\nvariables pero nada complicado.\n\nSaludos cordiales','',0,'AIA=','26lbdgti',1,0,'',255,0,0),(27114,6050,6,963,0,'201.236.184.19',1172071909,1,0,0,0,1,0,'','Gracias...','Estimado Antonio, tenías razón, era una coma de menos, te estoy muy agradecido.','',0,'AIA=','er6ndfgj',1,0,'',963,0,0),(27115,6058,3,86,0,'213.119.103.68',1172072433,1,0,1,1,1,1,'','','Frank,\n\nThanks for your answer.\n\nBut ...\n\n1. How do I implement the OLE-commands and -functions, mentioned in VBAOL11.chm, in the FiveWin syntax ?\n\n4. Your suggestion is not quite a solution.\n\nIn my application I have a sentence :\n\nOleInvoke(hActiveDoc,\"Close\")\n\nThis sentence closes my Word-document.\n\nBut if the user has closed the Word-document manually, I got an error \"No exported method: Close\" in \"OleInvoke(0).\n\nI think that your suggestion only checks if the OLE to Word is still active, doesn\'t it ?\n\nThank you.\n\nRegards,\n\nMichel','',0,'AIA=','3bwyeh3k',1,0,'',86,0,0),(27116,6054,7,456,0,'217.127.39.57',1172073674,1,0,1,1,1,1,'','','Puedes usar DatePicker, busca en la ayuda DTPicker y veras como usarlo. Utiliza el calendario del sistema y es lo mas rapido y elegante. \n\nYo hice una adaptación de MsgDate de FiveWin, es bastanten mas lento que DatePicker, aunque me permite un mayor control. La verdad es que no la suelo usar, pero por si te vale aqui tienes el fuente.\n\n[code:1a3ynyof]//---------------------------------------\nFUNCTION  MsgDate&#40; dDate, cPrompt,oGet &#41;\n//----------------------------------------\n   local oDlg, oFont, oCursor, dSelect\n   local nRow, nCol, nMonth, aMonths&#58;=&#123;&#125;,nYear,cDay&#58;=\'  \'\n   local cOldMode &#58;= Set&#40; _SET_DATEFORMAT,;\n                          If&#40; __SetCentury&#40;&#41;, &quot;dd/mm/yyyy&quot;, &quot;dd/mm/yy&quot; &#41; &#41;\n\n   IF Empty&#40;dDate&#41;\n      dDate&#58;=Date&#40;&#41;\n   ENDIF\n   FOR nMonth = 1 to 12\n      AAdd&#40; aMonths, CMonth&#40; CToD&#40; &quot;01/&quot;+padl&#40; nMonth, 2 &#41; + &quot;/98&quot;&#41;&#41;&#41;\n   NEXT nMonth\n   nMonth  &#58;= Month&#40; dDate &#41;\n   nYear   &#58;= Year&#40;dDate&#41;\n   dSelect &#58;= dDate\n\n   DEFINE FONT oFont NAME GetSysFont&#40;&#41; SIZE 0, -10\n\n   DEFINE DIALOG oDlg SIZE 200, 190 TITLE cPrompt FONT oFont // -&gt; 6 weeks\n   oDlg&#58;SetText&#40;IF&#40;cPrompt==NIL,dDateToString&#40; dDate &#41;,cPromt&#41;&#41;\n   @ 0&#46;32, &#46;70 COMBOBOX  nMonth  ITEMS  aMonths  SIZE 40,90  OF  oDlg ;\n                  ON CHANGE MoveCalendar&#40;oDlg, 1, nMonth &#41;\n   @ 6&#46;6, 60  BTNBMP PROMPT &quot;-&quot; SIZE 8,8&#46;3 ACTION &#40; MoveCalendar&#40;oDlg, 3 &#41;&#41;\n   @ 6&#46;6, 86  BTNBMP PROMPT &quot;+&quot; SIZE 8,8&#46;3 ACTION &#40; MoveCalendar&#40;oDlg, 4 &#41;&#41;\n\n   @ 0&#46;42, 8&#46;7 GET  nYear PICTURE &quot;9999&quot;  SIZE 14, 9 OF oDlg  WHEN &#46;F&#46;\n   ATail&#40; oDlg&#58;aControls &#41;&#58;Cargo   = &quot;YEAR&quot;\n   dDate-= Day&#40; dDate &#41; - 1\n   while DoW&#40; dDate &#41; != 2 // Monday\n      dDate --\n   enddo\n   FOR nCol&#58;=1 TO 7\n      cDay+=SubStr&#40;CDoW&#40;dDate++&#41;,1,3&#41;+Space&#40;4&#41;\n   NEXT\n   dDate-=7\n   @ 1&#46;3,0 SAY cDay COLOR CLR_WHITE, CLR_HBLUE SIZE 110,6\n   for nRow = 3 to 8\n      for nCol = 1 to 7\n         @ nRow * 10, &#40; nCol * 14 &#41; - 12 BTNBMP ;\n                      PROMPT Str&#40; Day&#40; dDate &#41;, 2 &#41; SIZE 12, 10 NOBORDER ;\n                      ACTION &#40; dDate &#58;= &#58;&#58;Cargo, oDlg&#58;End&#40; IDOK &#41; &#41;\n         ATail&#40; oDlg&#58;aControls &#41;&#58;Cargo   = dDate\n         ATail&#40; oDlg&#58;aControls &#41;&#58;nClrText = If&#40; dDate == Date&#40;&#41;, CLR_HRED,;\n                     If&#40; dDate == dSelect, CLR_HBLUE, If&#40; Month&#40; dDate &#41; == nMonth,;\n                     CLR_BLACK, CLR_GRAY &#41; &#41; &#41;\n         IF ATail&#40; oDlg&#58;aControls &#41;&#58;Cargo == dSelect\n            ATail&#40; oDlg&#58;aControls &#41;&#58;lPressed = &#46;t&#46;\n         ENDIF\n         dDate++\n      next\n   next\n   dDate&#58;=dSelect\n   oDlg&#58;Cargo&#58;=dDate\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT &#40; oDlg&#58;aControls&#91; 3 &#93;&#58;SetFocus&#40;&#41; &#41;\n   IF oGet != NIL\n      oGet&#58;VarPut&#40; If&#40; oDlg&#58;nResult == IDOK, dDate, dSelect &#41; &#41;\n      oGet&#58;Refresh&#40;&#41;\n   ENDIF\n   Set&#40; _SET_DATEFORMAT, cOldMode &#41;\nRETURN  If&#40; oDlg&#58;nResult == IDOK, dDate, dSelect &#41;\n//----------------------------------------------\nSTATIC FUNCTION MoveCalendar&#40; oDlg, nMode, nVar&#41;\n//----------------------------------------------\n   local dSelect      &#58;= oDlg&#58;Cargo\n   local n\n   local nFirstButton &#58;= 0\n   local nLastButton  &#58;= 0\n   local nDate        &#58;= 0\n   local nSkip        &#58;= 0\n   local nPYear       &#58;= 0\n   local nDay, nMonth, nYear\n   local dWork\n   local nDays &#58;= 0\n   for n &#58;= 1 TO Len&#40; oDlg&#58;aControls &#41;\n      if oDlg&#58;aControls&#91; n &#93;&#58;ClassName&#40;&#41; == &quot;TBTNBMP&quot;\n         nFirstButton &#58;= If&#40; nFirstButton == 0, If&#40;nSkip&lt;2, 0, n&#41;, nFirstButton &#41;\n         nLastButton  &#58;= n\n         nSkip++\n         oDlg&#58;aControls&#91; n &#93;&#58;lPressed &#58;= &#46;F&#46;\n      endif\n      if ValType&#40; oDlg&#58;aControls&#91; n &#93;&#58;Cargo &#41; == &quot;C&quot;\n        if oDlg&#58;aControls&#91; n &#93;&#58;Cargo == &quot;YEAR&quot;\n           nPYear     &#58;= n\n        endif\n      endif\n   next n\n\n   nDay   &#58;= Day&#40; dSelect &#41;\n   nMonth &#58;= Month&#40; dSelect &#41;\n   nYear  &#58;= Year&#40; dSelect &#41;\n\n   do case\n      case nMode == 1 //Cambio de mes\n         nMonth &#58;= nVar\n      case nMode == 3\n         nYear --\n      case nMode == 4\n         nYear ++\n   ENDCASE\n   dSelect      &#58;= CToD&#40; padl&#40; nDay, 2&#41; + &quot;/&quot;+padl&#40; nMonth, 2 &#41; + &quot;/&quot;+right&#40;padl&#40; nYear, 4 &#41;, 2&#41;&#41;\n   WHILE Empty&#40;dSelect&#41;  //Retorcede hasta fecha vailida\n      dSelect      &#58;= CToD&#40; padl&#40; --nDay, 2&#41; + &quot;/&quot;+padl&#40; nMonth, 2 &#41; + &quot;/&quot; +right&#40;padl&#40; nYear, 4 &#41;, 2&#41;&#41;\n   END\n   cLongDate    &#58;= dDateToString&#40; dSelect &#41;\n   oDlg&#58;SetText&#40;cLongDate&#41;\n   oDlg&#58;aControls&#91; nPYear &#93;&#58;VarPut&#40; nYear&#41;\n\n   dWork    &#58;= Ctod&#40; &quot;01/&quot; + padl&#40; nMonth, 2 &#41; + &quot;/&quot; + right&#40;padl&#40; nYear, 4 &#41;, 2&#41;&#41;\n   while DoW&#40; dWork &#41; &gt; 1\n      dWork --\n   enddo\n\n   for n &#58;= nFirstButton TO nLastButton\n      oDlg&#58;aControls&#91; n &#93;&#58;SetText&#40; Str&#40; Day&#40; dWork &#41;, 2 &#41; &#41;\n\n      oDlg&#58;aControls&#91; n &#93;&#58;Cargo   = dWork\n      oDlg&#58;aControls&#91; n &#93;&#58;nClrText = If&#40; dWork == Date&#40;&#41;, CLR_HRED,;\n                 If&#40; dWork == dSelect, CLR_HBLUE, If&#40; Month&#40; dWork &#41; == nMonth,;\n                 CLR_BLACK, CLR_GRAY &#41; &#41; &#41;\n\n      if dWork == dSelect\n         oDlg&#58;aControls&#91; n &#93;&#58;lPressed = &#46;T&#46;\n      endif\n      dWork++\n   next n\n\n   for n &#58;= 1 TO Len&#40; oDlg&#58;aControls &#41;\n      oDlg&#58;aControls&#91; n &#93;&#58;Refresh&#40;&#41;\n   next n\n   oDlg&#58;Cargo   &#58;= dSelect\nreturn nil\n[/code:1a3ynyof]\nModo de uso , coloco un boton pequeño a la derecha del GET con el siguiente código.\n[code:1a3ynyof]REDEFINE BUTTON ID 4 OF oDlg ACTION &#40;MsgDate&#40; dFecha,,oGetFec&#41;&#41;[/code:1a3ynyof]','',0,'AIA=','1a3ynyof',1,0,'',456,0,0),(27117,6059,6,891,0,'148.243.37.162',1172073767,1,0,1,1,1,0,'','Re: hay forma de arreglar upper(&quot;descripción&quot; ) ==','[quote=&quot;goosfancito&quot;:7c9im3i4]Estimados,\n\n[code:7c9im3i4]local cTexto&#58;= &quot;descripción&quot;   // fijarse que es la o acentuada\n\nif upper&#40; cTexto &#41; = &quot;DESCRIPCIÓN&quot; // o acentuada pero en mayusculas\n   ? &quot;paso sin problemas&quot;\nelse\n   ? &quot;no paso&quot;\nendif[/code:7c9im3i4]\n\nEste fragmento de codigo jamas es verdadero ya que al hacer upper de una palabra con vocal acentuada da error o sea al convertir \"ó\" sigue siendo \"ó\" y no \"Ó\"\n\nHay manera de solucionarlo a nivel codigo y no app?\n\nGracias[/quote:7c9im3i4]\n\nHola amigo, tendrias que crear una pequeña rutina, con todas las palabras que llevan acento en mayusculas, declarando la variable local, etc etc etc seria algo asi :\n\nLOCAL EXCEPCION:={\'Ó\'}\n\ncNomb1 := \"descripción\"\n\nMSGINFO(UPPER(cNomb1))\n\nFOR I = 1 TO LEN(cNomb1)\n      IF SUBSTR(RFCf,I,1) = \"ó\"\n           cCaracter := \"Ó\"\n      ENDIF\nNEXT\n\nbla bla bla, no esta completo la rutina, pero ahi te doy mas o menos la idea amigo, espero que te sirva la idea\n\nIF UPPER(cNomb1) = ALLTRIM(\"DESCRIPCIÓN\")\n    MsgInfo(\"Ok\")\nELSE\n    MsgInfo(\"No paso 1\")\nENDIF\n\nSaludos \nAdriano C. C.','',0,'gIA=','7c9im3i4',1,0,'',891,0,0),(27118,6018,6,875,0,'64.76.108.179',1172074201,1,0,1,1,1,0,'','','Es igual al clipper antiguo\n\n***************************\nLocal NomPc\n\nNomPc:=GetEnv(\'ComputerName\')\n********************************\n                                \nComputerName ----&gt; es una variable de entorno del Windows que\n                                contiene el nombre de la PC','',0,'gIA=','3n55vqxb',1,0,'',875,0,0),(27119,6060,6,963,0,'201.236.184.19',1172074270,1,0,0,0,1,0,'','Estimados amigos del foro...','Nuevamente me dirijo a ustedes, por que no se si se puede combinar la librería FileXLS.Lib con Harbour, puesto que el resultado del link, es una innumerable lista de errores por procedimientos que llevan esta librería.\n\nDe Ante mano, Gracias.','',0,'gIA=','2envidlp',1,0,'',963,0,0),(27120,6018,6,875,0,'64.76.108.179',1172074279,1,0,1,1,1,0,'','','Es igual al clipper antiguo\n\n***************************\nLocal NomPc\n\nNomPc:=GetEnv(\'ComputerName\')\n********************************\n                                \nComputerName ----&gt; es una variable de entorno del Windows que\n                                contiene el nombre de la PC','',0,'gIA=','1dlkc1e9',1,0,'',875,0,0),(27121,6059,6,217,0,'200.159.120.34',1172074928,1,0,1,1,1,0,'','Re: hay forma de arreglar upper(&quot;descripción&quot; ) ==','AnsiUpper( ) funciona bien con caracteres acentuados (pero com xHarbour.com me da un error de GPF)\n\nSalu2 de Brasil\nMaurilio','',0,'gIA=','2u4x1zi8',1,0,'',217,0,0),(27122,6051,3,303,0,'72.199.41.171',1172075823,1,0,1,1,1,0,'','','If I remember correctly, isExeRunning() doesn\'t work with MDI apps when there is at least on child window open (since the main window title changes) and it can also fail to work properly if there is a folder of the same name open.\n\nJames','',0,'gIA=','30bfljoc',1,0,'',303,0,0),(27123,6058,3,67,0,'81.11.200.200',1172076162,1,0,1,1,1,0,'','','Michel ,\n\nIf you know the filename , you can :\n\n\n[code:c0dp23fe]\nDO WHIL &#46;T&#46;\n    hWnd &#58;= FINDWND&#40; cFileName &#41; \n    IF !EMPTY&#40; hWnd &#41; \n        ? &quot;Tijdelijke rtf-file is nog niet gesloten &#58; &quot; + CRLF + GETWINDOWTEXT&#40; hWnd &#41;\n        ? &quot;Het programma probeert dit nu zelf te doen &quot;\n        SENDMESSAGE&#40; hWnd, 16 &#41; \n       //CloseWindow&#40;hWnd&#41; \n  ELSE\n     EXIT\n  END\nEND\n\n\n\n\n\n// Uit http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1346&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=findwindow%2A\n#define GW_HWNDFIRST 0 \n#define GW_HWNDLAST  1 \n#define GW_HWNDNEXT  2 \n#define GW_HWNDPREV  3 \n#define GW_OWNER     4 \n#define GW_CHILD     5 \n\nFUNCTION FINDWND&#40; cTitle &#41; \n\n    LOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41; \n\n    WHILE hWnd != 0 \n        IF UPPER&#40; cTitle &#41; $ UPPER&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41; \n            RETURN hWnd \n        ENDIF \n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41; \n    ENDDO \n\n    RETURN NIL \n\n[/code:c0dp23fe]','',0,'AIA=','c0dp23fe',1,0,'',67,0,0),(27124,6034,6,228,0,'201.245.222.86',1172076889,1,0,1,1,1,1,'','Gracias...','Rochinha de Nuevo gracias por tu respuesta hice el intento pero no funca..\n\njejeje\n\nManuel.. muchas gracias por tu respuesta creo que es lo que voy a hacer... voy a dejar la pereza y montar la rutina...  De paso te hago una preguntica... ¿Como detecto si hay un tab ?, en caso que el archivo no venga separado por \";\" si no por \"tab\"? Valga la rebusnancia.\n\ny de Nuevo gracias por la ayuda.','',0,'AIA=','lptn92zm',1,0,'',228,0,0),(27125,6061,6,228,0,'201.245.222.86',1172077551,1,0,1,1,1,1,'','Detectar Tabs en Archivos Planos','Amigos del foro como dice el encabezado... como detecto si existe un tab dentro de un archivo plano? Que char(?) es?','',0,'AIA=','1uxcj439',1,0,'',228,0,0),(27126,6062,3,15,0,'203.70.52.83',1172077606,1,0,1,1,1,0,'','STATUSBAR problem in Resource Dialog?','Hello\n\nI define Resource Dialog and bStart this function\n\n[code:2cx4b5aa]\nMETHOD Build_PROG_ToolBar&#40;&#41; CLASS TCustMsf\n\n      &#58;&#58;oImgLst1 = TImageList&#40;&#41;&#58;New&#40; 24, 24 &#41;\n      &#58;&#58;oImgLst1&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;B_DB_FIRST_XP&quot;    ,, &#58;&#58;oPGA_Dlg &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n      &#58;&#58;oImgLst1&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;B_DB_PREV_XP&quot;     ,, &#58;&#58;oPGA_Dlg &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n      &#58;&#58;oImgLst1&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;B_DB_NEXT_XP&quot;     ,, &#58;&#58;oPGA_Dlg &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n      &#58;&#58;oImgLst1&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;B_DB_LAST_XP&quot;     ,, &#58;&#58;oPGA_Dlg &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n      \n      &#58;&#58;oToolBar1 = TToolBar&#40;&#41;&#58;New&#40; &#58;&#58;oPROG_Dlg, 52, 52, &#58;&#58;oImgLst1 &#41;\n      &#58;&#58;oToolBar1&#58;AddButton&#40; &#123; || &#58;&#58;JumpRecData&#40; 1, &#58;&#58;oPROG_Brw1 &#41; &#125;, &quot;&#35352;&#37636;&#31227;&#21040;&#31532;&#19968;&#31558;&quot;      , &quot;&#31532;&#19968;&#31558;&quot; &#41;\n      &#58;&#58;oToolBar1&#58;AddButton&#40; &#123; || &#58;&#58;JumpRecData&#40; 2, &#58;&#58;oPROG_Brw1 &#41; &#125;, &quot;&#35352;&#37636;&#31227;&#21040;&#19978;&#19968;&#31558;&quot;      , &quot;&#19978;&#19968;&#31558;&quot; &#41;\n      &#58;&#58;oToolBar1&#58;AddButton&#40; &#123; || &#58;&#58;JumpRecData&#40; 3, &#58;&#58;oPROG_Brw1 &#41; &#125;, &quot;&#35352;&#37636;&#31227;&#21040;&#19979;&#19968;&#31558;&quot;      , &quot;&#19979;&#19968;&#31558;&quot; &#41;\n      &#58;&#58;oToolBar1&#58;AddButton&#40; &#123; || &#58;&#58;JumpRecData&#40; 4, &#58;&#58;oPROG_Brw1 &#41; &#125;, &quot;&#35352;&#37636;&#31227;&#21040;&#26368;&#24460;&#19968;&#31558;&quot;    , &quot;&#26368;&#24460;&#19968;&#31558;&quot; &#41;\n     \n   DEFINE STATUSBAR OF &#58;&#58;oPROG_Dlg PROMPT &quot;&#27298;&#35222;&#27492;&#23458;&#25142;&#20043;&#19968;&#33324;&#22577;&#20729;&#21934;&quot;\n\nRETURN NIL\n[/code:2cx4b5aa]\nI found ToolTip\'s message not show STATUSBAR\nAny idea for it?\n\nFWH 2.6 SEP+BCC55+xHarbour 0.99.71\n\nRegards,\n\nRichard','',0,'AIA=','2cx4b5aa',1,0,'',15,0,0),(27127,6007,3,487,0,'151.42.108.181',1172078078,1,0,1,1,1,0,'','Re: Scrolling get in listbox','Hi guys,\n[quote=&quot;Davide&quot;:2ab0z306]I\'ve found that even without the \"@S\" in reality it scrolls, but not exactly when reaching the right border.[/quote:2ab0z306]\nnobody is experiencing this behaviour ?','',0,'gA==','2ab0z306',1,0,'',487,0,0),(27128,6054,7,720,0,'80.36.244.134',1172078130,1,0,1,1,1,0,'','','Gracias Biel, pero tengo un problema a la hora de usarlo.... Vamos a ver si utilizo el código que me has mandado me da un error al compilar algo asi como:\n\n \"unresolved external symbol HB_FUN_DDATETOSTRING...\"\n\nes decir que la funcion datetostring() no me la reconoce. Por otro lado no encuentro la ayuda sobre DTPicker....He visto que FW tiene una propia llamada msgdate() pero tampoco me la reconoce. Supongo que a lo mejor tengo que incluir algun \"include\" pero nose cual es...\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','399s6d53',1,0,'',720,0,0),(27129,6034,6,875,0,'64.76.108.179',1172078669,1,0,1,1,1,0,'','','Solo se acepta como delimitador la COMA \",\" , asi que para otro tipo de caracter delimitador diferente a la COMA\",\"   solo te queda crear una funcion para leer tu archivo que contenga otro tipo de delimitadores, no hay otra.\n\n\nJaime','',0,'gA==','2m3158rm',1,0,'',875,0,0),(27130,6053,6,2,0,'87.218.146.215',1172078803,1,0,1,1,1,1,'','','Jose Ignacio,\n\nModifica esta línea en la clase TDataBase y quita el AS ...\n\n   DATA   bBoF, bEoF, bNetError // AS ...','',0,'gA==','3uukd3fk',1,0,'',2,0,0),(27131,6061,6,875,0,'64.76.108.179',1172078848,1,0,1,1,1,0,'','','El codigo del TAB es CHR(9)\n\n\nJaime','',0,'gA==','1yoaqdpv',1,0,'',875,0,0),(27132,6034,6,9,0,'85.53.87.60',1172078858,1,0,1,1,1,1,'','','Amigo Leandro,\n\nCuando al mandato APPEND FROM le añade la claúsula SDF los registros y los campos tienen una longitud fija. De esa forma, es facil saber donde empieza cada campo y donde termina.','',0,'gA==','2ru2fmk2',1,0,'',9,0,0),(27133,6053,6,2,0,'87.218.146.215',1172078920,1,0,1,1,1,1,'','','Jose Ignacio,\n\nLBSETDATA() y LBGETDATA() siguen estando en source\\function\\treedraw.c \n\nPor favor revísalo','',0,'gA==','2pcrsm1v',1,0,'',2,0,0),(27134,6053,6,385,0,'85.155.46.68',1172079122,1,0,1,1,1,0,'','','Hola\n\nGracias de nuevo por contestar, lo hare aunque habia conseguido pasar ese error quitando los bloques... algo que nunca me gusta hacer... lo que mas me urge es la funcion treedraw... de verdad, la aplicacion hace un uso intensivo de esa funcion... tanto que modificarlapara que use los trees de windows me resulta practicamente imposible.... es mas sera un motivo para no actualizar a esta o versiones similares ... lo siento.. \n\nPor otro lado los btnbmp siguen dando la lata cuando en el codigo action se pone un elemento de una clase... tal y como ::(lo que sea) he tenido que modificar fivewin.ch para que en lugar de |Self| uaction.... ponga |This| uaction... asi funciona perfectamente\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'gA==','2j13gbwa',1,0,'',385,0,0),(27135,1989,6,439,0,'200.125.41.117',1172079293,1,0,1,1,1,1,'','','Yo no he necesitado modificar nada en mis programas para utilizar c5menu.\n\nSimplemente una línea en el programa:\n\noMenu:SetStyle( 14 ) //porque es el estilo que me gusta a mí (podría ser cualquier otro)\n\ny compilar mi aplicación con las dos libs correspondientes\n\nMe aparecen todos los menúes de mis aplicaciones en ese estilo incluyendo el del preview de la case treport.','',0,'gA==','7h3mtfi8',1,0,'',439,0,0),(27136,6063,6,854,0,'200.95.238.251',1172079443,1,0,1,1,1,0,'','Cuales son mejores los CDX de xHarbour o los CDX de ADS','Que tal estoy probando los CDX\n\nAlguien me podria decir cual RDD es mejor o son iguales','',0,'gA==','2py5pute',1,0,'',854,0,0),(27137,6053,6,385,0,'85.155.46.68',1172079728,1,0,1,1,1,0,'','','Antonio\n\nPerdona... no habia visto el post...volvere a mirarlo mañana, pero te prometo que estan escritas tal y como lo digo en el post... es mas es la primera vez desde que uso harbour que las veo escritas asi... mañana lo compruebo.. por cierto en que libreria esta treedraw introdudica?\n\nGracias de antemano\nJose','',0,'gA==','3p31o5ha',1,0,'',385,0,0),(27138,6054,7,456,0,'217.127.39.57',1172079831,1,0,1,1,1,1,'','','Hola Elias, \nparece que se me olvido de poner la funcion dDateToString. Aqui la tienes.\n[code:1isv45pv]//------------------------------------\nstatic function dDateToString&#40; dDate &#41;\n//------------------------------------\n   local cSay &#58;= CDoW&#40; dDate &#41; + &quot;, &quot; + ;\n                   Str&#40; Day&#40; dDate &#41;, 2 &#41; + &quot; &quot; + ;\n                   CMonth&#40; dDate &#41; + &quot; &quot; + ;\n                   Str&#40; Year&#40; dDate &#41;, 4 &#41;\nreturn cSay[/code:1isv45pv]\n\nReferente a DTPicker, en Fivewin comands guide, en la pestaña busqueda, dtpicker.\n\n[quote:1isv45pv]Include file: DTPICKER.CH \n\nCreating a DTPICKER from source code \n\n @ &lt;nRow&gt;, &lt;nCol&gt; DTPICKER [ &lt;oDTPicker&gt; VAR ] &lt;uVar&gt; ;  \n \n  \n [ OF | WINDOW | DIALOG &lt;oWnd&gt; ] ;  \n \n [ COLOR | COLORS &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ;  \n \n [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ];  \n \n [ FONT &lt;oFont&gt; ] ;  \n \n [ DESIGN ] ;  \n \n [ CURSOR &lt;oCursor&gt; ] ;  \n \n [ PIXEL ] ;  \n \n [ UPDATE ] ;  \n \n [ MESSAGE &lt;cMsg&gt; ] ;  \n \n [ WHEN &lt;uWhen&gt; ] ;  \n \n [ VALID &lt;uValid&gt; ] ;  \n \n [ ON CHANGE &lt;uChange&gt; ] ;  \n \n [ HELPID | HELP ID &lt;nHelpId&gt; ]  \n \n  \n\nUsing a DTPicker from a resource Dialog Box \n\n REDEFINE DTPICKER [ &lt;oDTPikcer&gt; VAR ] &lt;uVar&gt; ;  \n \n  \n [ ID &lt;nId&gt; ] ;  \n \n [ OF | WINDOW | DIALOG &lt;oWnd&gt; ] ;  \n \n [ HELPID | HELP ID &lt;nHelpId&gt; ] ;  \n \n [ COLOR | COLORS &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ;  \n \n [ VALID &lt;ValidFunc&gt; ] ;  \n \n [ FONT &lt;oFont&gt; ] ;  \n \n [ CURSOR &lt;oCursor&gt; ] ;  \n \n [ MESSAGE &lt;cMsg&gt; ] ;  \n \n [ UPDATE ] ;  \n \n [ WHEN &lt;WhenFunc&gt; ] ;  \n \n [ ON CHANGE &lt;uChange&gt; ] ;[/quote:1isv45pv]\nDesde código \n[code:1isv45pv]\nLOCAL dTmp&#58;=Date&#40;&#41;\n@ 1, 1 DTPICKER dTmp SIZE 50, 12 OF oDlg[/code:1isv45pv]','',0,'gIA=','1isv45pv',1,0,'',456,0,0),(27139,6007,3,234,0,'71.250.220.162',1172080542,1,0,1,1,1,1,'','Combobox Problem','I updated to version 7.01 and we experiencing problems with the COMBOBOX. The character keys to highlight the selection is not working.','',0,'gIA=','1dzaol4v',1,0,'',234,0,0),(27140,6004,3,103,0,'200.165.130.21',1172081343,1,0,1,1,1,1,'','','Thanks a lot, Enrico.  I\'ll take a good look.\n\nBest regards,','',0,'gIA=','6w9bcs4l',1,0,'',103,0,0),(27141,6064,2,943,0,'217.126.105.54',1172082432,1,0,1,1,1,0,'','Como enviar correos electronicos desde Fivewin','Hola amigos,\n\nPrimero de todo agradecer a Antonio el interés y la diligencia en contestar ami anterior pregunta. Gracias por el buén trabajo que realizas.\n\nAhora estoy trabado en el envío de correos electrónicos desde una aplicación, he estado trasteando la clase TSmtp, creo que es la apropiada para poder hacerlo.\n\nBien, he compilado un programa ejemplo que encontré y no me envia el correo, este es:\n\n[color=red:nsnp98qo]#INCLUDE \"FIVEWIN.CH\" \n\nSTATIC oWnd \nFUNCTION MAIN \nDEFINE WINDOW oWnd \nACTIVATE WINDOW oWnd ON INIT EnviaMail() \nRETURN \n\nFUNCTION EnviaMail() \nLOCAL oMail, cIp \n\n// primera llamada en falso \noMail:=TSmtp():New(GETHOSTBYNAME(\"smtp.webcom.com\")) \n\n// esta es la buena: \noMail:=TSmtp():New(GETHOSTBYNAME(\"smtp.webcom.com\")) \n\noMail:SendMail( \"hola@servidor.com\",; // De \n{\"otro_email@servidor.com.com\", \"otro_email@servidor.com\"},; // Para (arreglo) \n\"Se notifica a todos: Aumento de sueldo !!!!\",; // Mensaje \n\"Nuevos sueldos para todos\",; // Asunto \n{\"c:\\autoexec.bat\", \"c:\\config.sys\"} ) // Attachs (arreglo) \n\nRETURN (.T.) [/color:nsnp98qo]\n\nPor supuesto que cambié [color=red:nsnp98qo]smtp.webcom.com[/color:nsnp98qo] por mi servidor smtp y las direcciones de correo por direcciones válidas.\n\nCreo que en ningún lugar me pide mi identificación, es decir el remitente del correo, usuario y contraseña, que debe ser necesario ya que mi servidor lo pide, si no no envia los correos. No se que es lo que hago mal o que me falta por poner.\n\nEspero que me podais ayudar, os agredezco de antemano vuestro interes.','',0,'Ag==','nsnp98qo',1,0,'',943,0,0),(27142,1989,6,255,0,'201.122.36.212',1172082808,1,0,1,1,1,1,'','','JAJAJAJAJAJAJA !!!\nPor eso se dice que:\nNo existen problemas complejos, tan solo simples soluciones...\n\nGracias por el dato\nSaludos','',0,'Ag==','3ngbzsxm',1,0,'',255,0,0),(27143,6065,3,234,0,'71.250.220.162',1172083182,1,0,1,1,1,1,'','Combobox Problem','Hello,\n\nWhen the user presses a character to move to the item within a COMBOBOX, it does not work. I updated to version 7.01.','',0,'Ag==','1htr0cps',1,0,'',234,0,0),(27144,6066,4,13,0,'213.76.252.200',1172086669,1,0,1,1,1,0,'','MenuItem with Checked clause','Antonio,\n\nIs this possible work with menu this type.\n\nThanks\nPawel','',0,'Ag==','1rsu7s1l',1,0,'',13,0,0),(27145,6010,6,196,0,'201.253.228.5',1172087228,1,0,1,1,1,0,'','','Gracias Antonio, voy a probar algo asi en la terminal.\n\nSaludos\nJorge Jaurena','',0,'Ag==','2ie636ru',1,0,'',196,0,0),(27146,6067,3,103,0,'200.165.130.21',1172088148,1,0,1,1,1,1,'','Position of a TBButton','Hi all,\n\n   Using TSButton in a button bar, I usually do this:\n\n[code:12ypf5c8]\n   Define SButton oBtnS Name &quot;SAIR38&quot;,&quot;SAIR38&quot; Of oBar ;\n          Message &quot;Sair do Sistema&quot; NoBorder ToolTip &quot;Sair do Sistema&quot; ;\n          Color nRgb&#40;0,0,0&#41;,&#123;CLR_WHITE,CLR_FIM,1&#125; W97 ACTION oWnd&#58;End&#40;&#41;\n\n   oBtnS&#58;nLeft&#58;=oBar&#58;nWidth-45\n   oBar&#58;bResized&#58;=&#123;||oBtnS&#58;nLeft&#58;=oBar&#58;nWidth-45&#125;\n[/code:12ypf5c8]\n\n   in order to put the button QUIT at the right corner of the button bar. How can I do this with TBButton?\n\nRegards,','',0,'AIA=','12ypf5c8',1,0,'',103,0,0),(27147,6063,6,138,0,'189.141.72.59',1172093677,1,0,1,1,1,1,'','','CDX es CDX, sin importar como lo generes, internamente son IDENTICOS, la diferencia esta COMO los manejes.\n\nLa diferencia basica radica en velocidad a la hora de usarlos, en el caso de ADS si tu trabajas con el servidor local, la aplicacion no sera tan rapida como con el CDX nativo de xHarbour, lo cual es logico, el servidor local requiere una capa adicional de comunicaciones sobre el AXWCS32.DLL, por lo tanto, con el servidor local el CDX de ADS es mas lento que el CDX de xHarbour.\n\nPor el contrario, si tienes servidor remoto, el CDX lo maneja el servidor, no la estacion de trabajo, como en el caso del servidor local, cual acelera muchisimo el acceso a los datos.','',0,'AIA=','36poitv4',1,0,'',138,0,0),(27148,6061,6,138,0,'189.141.72.59',1172093895,1,0,1,1,1,1,'','','en un texto no lo vas poder visualizar como CHR(9) lo recomendable es que abras el archivo con FOPEN() y leas byte por byte, así si podrás reconocer el TAB','',0,'AIA=','3c2zh4hz',1,0,'',138,0,0),(27149,6064,2,138,0,'189.141.72.59',1172094462,1,0,1,1,1,1,'','','El ejemplo es correcto, lo hice yo, y no veas la cantidad de veces que me han aumentado el sueldo desde que se me ocurrio publicarlo.\n\nSolo ten en cuenta esto:\n\n1) El nombre del servidor de correo debe ser pasado por IP, a menos que utilices la funcion GETHOSTBYNAME()\n\n2) la cuenta \"DE\" (primer parametro de sendmessage) tiene que ser una cuenta de correo valida que exista en el servidor.\n\n3) SIEMPRE tiene que haber una VENTANA (no dialogo, VENTANA) para poder enviar el correo electronico, si el correo lo estas enviando desde un dialogo MODAL, tendras que hacerlo en el ON INIT\n\n4) Esta clase no soporta \"autenticacion\" si tu servidor SMTP requiere que inicies sesión con password, esta característica no esta soportada.\n\n5) No hay soporte de mensajes webmail, como yahoo, gmail o hotmail.\n\n6) Los archivos anexos solo pueden ser de tipo texto, si quiere una clase que soporte distintos tipos de archivo, es recomendable utilizar la clase modificada por Luis Krause.','',0,'AIA=','130g4hjf',1,0,'',138,0,0),(27150,6068,6,963,0,'201.236.182.209',1172096712,1,0,0,0,1,0,'','Confundido...','Logré compilar mi aplicación en 32 bits, todo bien, hasta cuando engancho alguna de las opciones del menú y me arroja el error fivewin/3\nCannot create dialog box\n\nhabiendo migrado la dll a rc y luego compilado a como dll 32, no entiendo que pasa, si todo está correcto.\n\nDe ante mano, gracias.','',0,'AIA=','jm7vowc6',1,0,'',963,0,0),(27151,6034,6,397,0,'201.26.1.5',1172097302,1,0,1,0,1,1,'','','No me do por vencido.\n\nAmigo usa la solucion de Manuel Valdenebro para cada linha del fichero.\n\nUsa mi funcion em <!-- m --><a class=\"postlink\" href=\"http://www.pctoledo.com.br/forum/viewtopic.php?t=5306\">http://www.pctoledo.com.br/forum/viewtopic.php?t=5306</a><!-- m --> asi:\n\naArrayObtido := StringToArray( \"O|Rochinha|es|tu|amigo\", \";\" )\n\nResultado:\n\n? aArrayObtido[1] // Mostra O\n? aArrayObtido[2] // Mostra Rochinha\n? aArrayObtido[3] // Mostra Es\n? aArrayObtido[4] // Mostra Tu\n? aArrayObtido[5] // Mostra Amigo\n\nFica por tu conta ahora.','',0,'','3b8132kc',1,0,'',397,0,0),(27152,6067,3,103,0,'200.165.130.21',1172097917,1,0,1,1,1,1,'','','Solved with Rebars.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nRegards,','',0,'','2z88vkz0',1,0,'',103,0,0),(27153,6065,3,86,0,'213.119.103.68',1172099109,1,0,1,1,1,1,'','','I noticed that too.\n\nTo solve it for the moment, I linked in the COMBOBOX.PRG from FW 2.7.\n\nNow it\'s working fine.\n\nRegards,\n\nMichel','',0,'','egt5tp1w',1,0,'',86,0,0),(27154,6068,6,138,0,'189.141.72.59',1172099777,1,0,1,1,1,1,'','','Utilizas controles de Borland ?\n\nComo recomendacion, pasa de los DLLs y trabaja directamente con el RC pegado al EXE','',0,'','3iygb297',1,0,'',138,0,0),(27155,6065,3,234,0,'71.250.220.162',1172099788,1,0,1,1,1,1,'','','Hi Michel,\n\nThank you. Can you send me the 2.7 PRG as I over wrote my version with the update.','',0,'','1sgp5jx9',1,0,'',234,0,0),(27156,6058,3,86,0,'213.119.103.68',1172102712,1,0,1,1,1,1,'','','Frank,\n\nThanks for your help.\n\nI\'ll try it out.\n\nMichel','',0,'','3duyj8iz',1,0,'',86,0,0),(27157,6065,3,86,0,'213.119.103.68',1172103393,1,0,1,1,1,1,'','','No problem.\n\nHere it is.\n\nJust copy and paste and you\'ve got is.\n\nMichel\n\n*edited by admin*','',0,'','1rl2ec5q',1,0,'',86,0,0),(27158,6034,6,439,0,'200.125.33.196',1172116399,1,0,1,1,1,1,'','','Rochinha,\n\nExcelente función, verdaderamente combinándola con la idea de Manuel se logra un \"append from\" cualquier cosa, sin bases intermedias y con excelente desempeño!!!','',0,'','3i529b6s',1,0,'',439,0,0),(27159,6034,6,397,0,'201.26.4.175',1172119082,1,0,1,0,1,1,'','','Obrigado Jose, no podemos vencer sempre, mas lutar sempre!','',0,'','21qbcno1',1,0,'',397,0,0),(27160,6069,6,54,0,'189.132.102.212',1172129594,1,0,1,1,1,1,'','Cambiarle color a DTPicker','Bueno, pues eso\n\nHe probado con:\n\nREDEFINE DTPICKER oGet VAR dfecha_alta ID 121 OF oDlg UPDATE COLOR nClrTxtGet,nClrFndGet\n\nPero nada, no cambia el color.\n\nAlguna idea?\n\nGracias de antemano','',0,'','1ebdzgh9',1,0,'',54,0,0),(27161,6053,6,385,0,'195.76.89.37',1172134110,1,0,1,1,1,0,'','','Antonio\n\nHe vuelto a mirar el fichero c\n\nHB_FUNC( LBSETDATA ) // ( hwnd, index, data )\n{\n    _retni( SendMessage( (HWND) _parnl( 1 ), LB_SETITEMDATA, _parni( 2 ),\n			 (LONG) _GetGrip( _param( 3, OBJECT ) ) ) );\n}\n\nHB_FUNC( LBGETDATA ) // ( hwnd, index, lDelete )\n{\n PCLIPVAR p = (PCLIPVAR) SendMessage( (HWND) _parnl( 1 ), LB_GETITEMDATA, _parni( 2 ), 0 );\n\n    #ifndef __FLAT__\n       _bcopy( (LPBYTE) _eval, (LPBYTE) p, sizeof(CLIPVAR) );\n    #else\n    #endif\n\n    if( (BOOL) _parl( 3 ) )\n	_DropGrip( p );\n\n}\n\n\nestas funciones no las coge mi programa asi definidas... puedes enviarme un fichero que funcione... llevo dos dias sin avanzar lo mas minimo\n\nJose Ignacio jimenez alarcon','',0,'','3ll63f7k',1,0,'',385,0,0),(27162,6053,6,385,0,'195.76.89.37',1172134280,1,0,1,1,1,0,'','','Nota :\n\nSi intento compilarla me dice que faltan las funciones __setgrip y __dropgrip\n\n\nAtentamente\nJose Ignacio Jimenez Alarcon','',0,'','1d9o90s0',1,0,'',385,0,0),(27163,6069,6,21,0,'83.40.114.198',1172135851,1,0,1,1,1,1,'','','Hola,\n\nYo hago lo siguiente:\n[code:1sfw4rz8]REDEFINE DTPICKER oGet VAR dfecha_alta ID 121 OF oDlg UPDATE\noGet&#58;SetColor&#40;nClrTxtGet,nClrFndGet&#41;[/code:1sfw4rz8]','',0,'AIA=','1sfw4rz8',1,0,'',21,0,0),(27164,6069,6,54,0,'189.132.102.212',1172139572,1,0,1,1,1,1,'','','[quote=&quot;fgondi&quot;:15xwsrqr]Hola,\n\nYo hago lo siguiente:\n[code:15xwsrqr]REDEFINE DTPICKER oGet VAR dfecha_alta ID 121 OF oDlg UPDATE\noGet&#58;SetColor&#40;nClrTxtGet,nClrFndGet&#41;[/code:15xwsrqr][/quote:15xwsrqr]\n\nNegativo fgondi,\n\nno cambia el color.\n\nGracias por tu atención, seguiré checando','',0,'gIA=','15xwsrqr',1,0,'',54,0,0),(27165,6070,4,49,0,'213.82.134.66',1172143836,1,0,1,1,1,1,'','PPC INSTALL','I found a FREE program for ppc instal\nthe Pocket PC Installation Creator v1.2 free for Pocket PC \n<!-- m --><a class=\"postlink\" href=\"http://www.aperitto.com/media/downloads/ppc_installation_creator_1.2.exe\">http://www.aperitto.com/media/downloads ... or_1.2.exe</a><!-- m -->\n\nit is good and free','',0,'gIA=','2kgr5pd6',1,0,'',49,0,0),(27166,6071,4,49,0,'213.82.134.66',1172146202,1,0,1,1,1,1,'','PPC FORM CREATOR','A FREE PROGRAM FOR CREATE FORM FOR PPC \n\nthe XSDesigner v2.01 free for Pocket PC \n\n<!-- m --><a class=\"postlink\" href=\"http://minibrand.handango.com/minibrand/FreeDownload.jsp?siteId=1876&amp;jid=73D5AB763DFC2XCXAXXACE36B49X7C82&amp;platformId=2&amp;productType=2&amp;productId=90328\">http://minibrand.handango.com/minibrand ... ctId=90328</a><!-- m -->\n\nYOU MUST REGISTER TO <!-- w --><a class=\"postlink\" href=\"http://www.grandasoft.com\">www.grandasoft.com</a><!-- w --> TO RECEIVE CODE!!!!!!\nIT IS TRANSLATE IN MULTI LANGUAGES\n\nIT IS FREE BUT I NOT TRY IT','',0,'gIA=','rl8xv6mo',1,0,'',49,0,0),(27167,6072,3,86,0,'213.119.103.68',1172149115,1,0,1,1,1,1,'','Sending a logo in an email','Hello, \n\nCan oMail:HTMLBody be used to define a letterpaper for my outgoing emails ? \n\nIf so, how do I have to do that ? \n\nI want to send emails from my application and I want each email to start with my logo. \n\nHow do I do that ? \n\nThanks. \n\nRegards, \n\nMichel','',0,'gIA=','1s8y4rtl',1,0,'',86,0,0),(27168,6061,6,397,0,'201.13.89.21',1172150017,1,0,1,0,1,1,'','','Use memoread primero:\n[code:82e9jsjd]\n&#46;&#46;&#46;\ncLinha &#58;= memoread&#40; &quot;archivo&#46;txt&quot; &#41;\n&#46;&#46;&#46;\n[/code:82e9jsjd]\n\nLocalize\n[code:82e9jsjd]\n&#46;&#46;&#46;\nif AT&#40; cLinha, chr&#40;9&#41; &#41; &gt; 0\n   ? &quot;Existe TABs en archivo&quot;   \nendif\n&#46;&#46;&#46;\n[/code:82e9jsjd]\n\nReemplaze el CHR(9)TABs por CHR(44) COMA con StrTran()\n[code:82e9jsjd]\n&#46;&#46;&#46;\ncLinha &#58;= StrTran&#40; cLinha, chr&#40;9&#41;, chr&#40;44&#41; &#41;\n&#46;&#46;&#46;\n[/code:82e9jsjd]\n\nUse APPEND FROM ... DELIMITED WITH \",\" para una tabla.','',0,'AIA=','82e9jsjd',1,0,'',397,0,0),(27169,6049,6,397,0,'201.13.89.21',1172150524,1,0,1,0,1,1,'','','Jose,\n\nColoque TRUE/FALSE en el 5th parametro:\n\n[code:2vet2l3c]\n&#46;&#46;&#46;\nTPrinter&#40;&#41;&#58;New&#40;cName, &#46;f&#46;, &#46;t&#46;, , &#46;t&#46;&#41;\n&#46;&#46;&#46;\n[/code:2vet2l3c]','',0,'AIA=','2vet2l3c',1,0,'',397,0,0),(27170,6048,3,217,0,'200.159.120.34',1172150876,1,0,1,1,1,0,'','Re: Vista','Richard,\n\n[quote:2udk1rz8]\nHas anyone tried to compile fwh + xharbour on Vista ?\nNot the commercial version , i know it does not work.\n[/quote:2udk1rz8]\n\nI don\'t understood... xHarbour commercial don\'t compile under Vista or executables created with FWH+xHB.com don\'t work?\nIs xHarbor.com compiler incompatible with Vista?\n\nRegards,\nMaurilio','',0,'gA==','2udk1rz8',1,0,'',217,0,0),(27171,6073,6,960,0,'217.12.16.54',1172151256,1,0,1,1,1,0,'','Explorador de documentos en FWH','Hola compañeros:\n\nTengo la necesidad de armar un \"explorador de documentos\" como una opción más dentro de mi aplicación en FWH y que además me permita tener control total sobre los archivos y carpetas (nombrar,abrir,eliminar...)\nLeyendo en los Samples, en el foro y evitando usar un shellexecute(\"open\",\"explorer.exe\"), obtengo como conclusión que lo mejor es hacer el uso combinado de un treeview,splitter y un listview.\n\nPero tengo un primer problema. Observando en samples\\treeview.prg, se arma un tree pero con arrays. Yo lo necesito con todas las carpetas de C:\\.... ¿Como hago un barrido por todo el disco duro?\nMe imagino que con un FOR.... NEXT,  pero no se como hacerlo.\n¿ Alguien me ayuda, PLEASE, con algun pequeño ejemplo a modo de ilustración?\n\nMil gracias de antemano.\nLorenzo.\nDesde Cadiz, España','',0,'gA==','20r0cyf9',1,0,'',960,0,0),(27172,6002,6,644,0,'201.252.10.182',1172153115,1,0,1,1,1,0,'','','Manuel \nGracias por el aporte. Tenía problemas con la cláusula on change y esto lo solucionó. Ahora me encuentro que siempre me devuelve un caracter menos, es decir si pongo \'Hola\' on change me devuelve \'hol\'. Sé que esta patología estaba presente en fw24 de 16 bits y en un post daban solución a esto. Alguien sabe donde puedo encontrar este arreglo. Gracias por todo','',0,'gA==','3w05d1gn',1,0,'',644,0,0),(27173,6049,6,439,0,'200.125.42.13',1172155568,1,0,1,1,1,1,'','','Gracias amigo, creo que tendré que repasar la cuenta hasta cinco, hace mucho que no lo practico. jeje\nMuuuuchas Graaacias.','',0,'gA==','3vxjn1mb',1,0,'',439,0,0),(27174,3729,20,49,0,'213.82.134.66',1172156608,1,0,1,1,1,1,'','','si trovata e scaricata  domani provo...','',0,'gA==','nm9x0ick',1,0,'',49,0,0),(27175,6048,3,3,0,'82.120.150.198',1172158939,1,0,1,1,1,1,'','Re: Vista','Maurilio\n\nXharbour.com builder (compiler) is incompatible with Vista.\n\nIt can not be installed and it does not run OK. it is retreiving the registry and the registry in Vista is totally different, so they have to rewrite this part...)\n\nApplications built with xharbour builder work OK with Vista.\n\nWe have fully tested all our applications under vista, including Com ports, zip files ..etc Everything works OK.\n\nYou must be very careful if your app uses the registry , as they have changed most of the key names for security.... Microsoft fun.\n\nHth\n\nRichard','',0,'gA==','r6zk6jok',1,0,'',3,0,0),(27176,6034,6,228,0,'201.244.114.104',1172159592,1,0,1,1,1,1,'','Gracias....','Muchas Gracias Rochinha, de verdad que me uno a las felicitaciones de jose excelente funcion, problema solucionado......\n\nDe nuevo Muchas Gracias','',0,'gA==','154ip8js',1,0,'',228,0,0),(27177,6061,6,228,0,'201.244.114.104',1172159671,1,0,1,1,1,1,'','De muchas gracias...','Rochinha... Mas que solucionado... \n\nMuchas Gracias  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3apsgj24',1,0,'',228,0,0),(27178,6074,3,86,0,'213.119.103.68',1172160371,1,0,1,1,1,1,'','Texteditor','Hello,\n\nIs it possible to implement a texteditor in a kind of memofield in a FW application ?\n\nIf so, can it be done with Word ? (Somewhat like a plugin in Internet Explorer) ?\n\nThanks.\n\nMichel','',0,'gA==','l90rcf9c',1,0,'',86,0,0),(27179,6048,3,217,0,'200.159.120.34',1172161709,1,0,1,1,1,0,'','Re: Vista','Thanks for the informations, Richard.\nMy subscription of xHarbour.com ended last feb, 13.\nI\'ll glad if xHarbour.com publish any patch...\nI was planning to buy a new computer to start tests with Vista. The best is wait a bit more <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards,\nMaurilio','',0,'gA==','26ir7zea',1,0,'',217,0,0),(27181,6075,6,661,0,'189.155.14.219',1172163888,1,0,1,1,1,0,'','Configurar compression en ADS','que tal a todos, leyendo la ayuda de ADS me encontre con que la compresion de datos en los diccionarios es por default con la conexiones por internet sin embargo no se si el default aplica tambien del lado del cliente o tengo que especificarlo en el ADS.INI ????\n\ncualquier ayuda se agradece.\nsaludos \nAlex','',0,'gA==','2zjdkyiu',1,0,'',661,0,0),(27182,6074,3,2,0,'87.218.146.182',1172165728,1,0,1,1,1,1,'','','Michel,\n\nPlease review samples\\TestRtf.prg','',0,'gA==','2qfooyr4',1,0,'',2,0,0),(27183,6053,6,2,0,'87.218.146.182',1172166157,1,0,1,1,1,1,'','','Jose Ignacio,\n\n#include &lt;hbapiitm.h&gt;\n\ny cambia _GetGrip() por hb_gcGripGet() y _DropGrip() por hb_gcGripDrop()','',0,'gA==','fpjmn9dk',1,0,'',2,0,0),(27184,6076,6,180,0,'81.39.227.127',1172170391,1,0,1,1,1,0,'','oTree:GetSelText()','oTree:GetSelText() solo me recoge los 100 primeros caracteres ¿Se puede aumentar este número? ¿Cómo?\n\nUn saludo,\nManuel','',0,'gA==','60zm5xbf',1,0,'',180,0,0),(27185,6077,6,215,0,'189.136.230.158',1172170558,1,0,1,1,1,1,'','Archivos bat para compilar prg','Hola Gente,\n\nTomando como ejemplo el buildx.bat de los samples en FWH cuando tengo un error digamos en el %1 (Primer prg) aparece en la ventana msdos el error pero continua con el siguiente prg....\n¿No debería detenerse la ejecución del BAT ?\n\nUso el archivo BAT por que es muuucho más rápida la compilación que por otro medio.\nToda ayuda se agradece.\n\nFernando \nMéxico, DF\n\n\n\n%hdir%\\bin\\harbour %1 /n /iC:\\FWH\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE\n\n\n%hdir%\\bin\\harbour indexar /n /iC:\\FWH\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -eindexar -I%hdir%\\include indexar.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE','',0,'gA==','kprb75ai',1,0,'',215,0,0),(27186,6010,6,196,0,'201.231.125.43',1172174056,1,0,1,1,1,0,'','','Antonio, el ejemplo funciona en una pc pero en la terminal no levanta porque el texto esta contenido dentro de una ventana windows y telnet solo muestra texto.\n\nSe podra hacer esto? \n\nSaludos y gracias!\nJorge Jaurena.','',0,'gA==','1q5xo1zm',1,0,'',196,0,0),(27187,6074,3,86,0,'213.119.103.68',1172176604,1,0,1,1,1,1,'','','Thanks for your tips.\n\nI tried to test the sample TESTRTF.\n\nUnfortunately I got some errors.\n\nUnresolved external symbol \'_GetFileVersionInfoSizeA\'\nUnresolved external symbol \'_GetFileVersionInfoA\'\nUnresolved external symbol \'_VerQueryValueA\'\n\nDoes anyone have a working example ?\n\nThank you very much.\n\nMichel','',0,'gA==','9nw34wrh',1,0,'',86,0,0),(27188,6074,3,3,0,'82.255.202.47',1172178676,1,0,1,1,1,1,'','','Michel\n\nYou have to link the file  version.lib\n\nRichard','',0,'gA==','2aktysxl',1,0,'',3,0,0),(27189,6078,6,959,0,'201.58.64.29',1172178994,1,0,1,1,1,0,'','Activex / Flex com xHarbour','Olá a todos,\n\nGostaria de saber se é possivel fazer uma integração com um arquivo flex com a minha aplicação, tenho um menu feito em flex com uma árvore, gostaria que quando o usuário clicar no nó da árvore fosse chamado uma nova window da minha aplicação.\n\nEstou utilizando este código.\n\n   DEFINE WINDOW oWnd TITLE \"Mensagens\" OF oTelaPrincipal MDICHILD STYLE 1 SIZE FROM 0,0 TO nLinha,nColuna \n\n   oActiveX = TActiveX():New( oWnd, \"Shell.Explorer\" )\n   oWnd:oClient = oActiveX \n\n   oActiveX&#058;Do( \"Navigate\",\"file:///C:/ruby/projetos/menusintegra/bin/menusintegra.html\" ) // \"S:\\Documentos\\Entretenimento\\Artigos\\Feliz Ano Novo.htm\") //\"http://www.bytesoftware.com.br\" )\n\n   ACTIVATE WINDOW oWnd\n\nVeja a imagem.\n\n[url:2q9wk0j7]http&#58;//www&#46;bytesoftware&#46;com&#46;br/news/imagens/[/url:2q9wk0j7]\n\n\nObrigado\n\nMário Saviotti Junior','',0,'EA==','2q9wk0j7',1,0,'',959,0,0),(27190,6077,6,215,0,'189.136.230.158',1172179622,1,0,1,1,1,1,'','Solución','Bendito internet que todo lo tiene.\n<!-- m --><a class=\"postlink\" href=\"http://www.saulo.net/pub/msdos/cap10.htm\">http://www.saulo.net/pub/msdos/cap10.htm</a><!-- m -->\n\nBien, el buildx.bat que viene en el directorio SAMPLES del FWH funciona bien con un solo prg. ¿Qué sucede si quieres agregar más prgs?. Bueno, hechas mano del Verce, Xmate y otros... pero a mi me gusta usar un bat por que es extremadamente rápido. Asi pues, partiendo del buildx.bat lo he modificado para que cuando un prg marque error pare inmediatamente la compilación y muestre el error...\n\nLo puedes descargar de aquí\n\n<!-- m --><a class=\"postlink\" href=\"http://www.captura-digital.com/files/ok.bat\">http://www.captura-digital.com/files/ok.bat</a><!-- m -->\n\nFernando Leal\nMéxico, DF','',0,'EA==','1mpqfi4y',1,0,'',215,0,0),(27191,6079,6,147,0,'201.253.42.145',1172181924,1,0,1,0,1,1,'','Combobox - Restablecer orden','Gente:\nAl agregar un ítem en un Combobox pretendo que luego este se vea ordenando alfabéticamente.\nLeyendo en la clase observo que no existe un :Sort() por lo que luego de hacer:\noCmb:Add( \"Mi dato\" ), hago\naSort( oCmb:aItems )\noCmb:Refresh()\n\nY, el efecto no es el deseado, ya que \"Mi dato\" sigue al final de la lista.\nSe puede restablecer el orden en un Combobox?\n\ngracias, Saludos','',0,'EA==','2xk3t2ca',1,0,'',147,0,0),(27192,6048,3,35,0,'65.188.6.143',1172183602,1,0,1,1,1,0,'','','To All\n\nxHarbor.org and FWH compile and run just fine on Vista .. not a \'plug\' here .. but xMate works very well with Vista as a project manager and applications builder .. using FWH 27 and xHarbout 99.70 with bcc55.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'EA==','zmvqxr50',1,0,'',35,0,0),(27193,6080,3,86,0,'213.119.103.68',1172185747,1,0,1,1,1,1,'','Problem with menus','Hello,\n\nI have a problem with the menus of my main window.\n\nThe code is :\n\n----------------------------\nBuildMenu()\noWnd:SetMenu(oMenu)\n----------------------------\n\nI made a procedure BuildMenu() which reads the menus out of a file into oMenu.\n\nThe menus are set by : oWnd:SetMenu(oMenu).\n\nI need to do this because, depending on some settings set by the user, the menus need to be changed.\n\nThat works fine until I passed these code lines between 10 or 15 times.\n\nThen I can click on one of my menuitems, but nothing happens anymore.\n\nThe only thing I can do is quitting my application and restarting it. Then the menu is working fine again until I passed between 10 or 15 times the code I mentioned.\n\nWhat is the reason for this problem and how can I solve it ?\n\nThanks.\n\nMichel','',0,'EA==','e9ytczlq',1,0,'',86,0,0),(27194,6075,6,138,0,'189.141.72.59',1172187062,1,0,1,1,1,1,'','','No no no, a ver, no van por ahi los tiros mi querido Alex:\n\nADS tiene 3 tipos de compresion EN EL SERVIDOR, dependiendo de lo que vayas a hacer, los valores son:\n\nAlways\nNever\nInternet\n\nSi lo pones en NEVER, no va a haber compresion de datos, esto cuando trabajar por internet no es recomendable porque la transferencia de datos toma mas tiempo, pero si para las redes de area local, la transferencia se hace mas rapido, si no vas a usar el AIS, entonces el valor recomendable es NEVER\n\nSi lo pones en ALWAYS, es ideal para internet, pero en la red local demora mas tiempo transferir la informacion, si solo lo vas a usar para internet y no para red de area local, entonces ponlo en ALWAYS\n\nSi lo pones en INTERNET, (valor recomendado) el servidor detecta si la conexion se hace por el AIS, entonces pone la informacion comprimida, de lo contrario, la envia sin comprimir.','',0,'EA==','2l7lrzt6',1,0,'',138,0,0),(27195,6079,6,54,0,'189.132.102.212',1172192827,1,0,1,1,1,1,'','Re: Combobox - Restablecer orden','[quote=&quot;MarioG&quot;:3vwy0ds4]Gente:\nAl agregar un ítem en un Combobox pretendo que luego este se vea ordenando alfabéticamente.\nLeyendo en la clase observo que no existe un :Sort() por lo que luego de hacer:\noCmb:Add( \"Mi dato\" ), hago\naSort( oCmb:aItems )\noCmb:Refresh()\n\nY, el efecto no es el deseado, ya que \"Mi dato\" sigue al final de la lista.\nSe puede restablecer el orden en un Combobox?\n\ngracias, Saludos[/quote:3vwy0ds4]\n\nSi es por recursos, hay una propiedad que hace lo que necesitas','',0,'gA==','3vwy0ds4',1,0,'',54,0,0),(27196,5986,6,207,0,'189.158.82.49',1172193273,1,0,1,1,1,0,'','comentario','Jose. Veo que usas el fw701, yo lo compre y no he logrado hacerlo funcional, mi problema era reconstruir las tsbrowse y tdbfh , la tsbrowse parece que ya quedó pero la tdbfh me marca errorsillos de funciones, como ads-server , quisiera saber si tuviste algun problema similar.\n\ndesde ya gracias\n\natte Miguel Salas\nSaludos','',0,'gA==','3h9ep5of',1,0,'',207,0,0),(27197,5986,6,439,0,'200.125.46.138',1172196431,1,0,1,1,1,1,'','','Miguel,\n\nNo he usado esa clase, así que sinceramente no lo sé.\n\nSi me envías a mi correo la clase y un ejemplo puedo ver si te puedo ayudar.\n\nAunque talvez haya quien la use y lo haya solucionado.\n\nPero ....\nEstoy a tus órdenes.','',0,'gA==','2slc1g9r',1,0,'',439,0,0),(27198,6080,3,303,0,'72.199.41.171',1172196451,1,0,1,1,1,0,'','','Michel,\n\n&gt;That works fine until I passed these code lines between 10 or 15 times. \n\nI don\'t understand why you would read the menu more than once per run. Since it is the application\'s main window it is opened and remains open until the user quits the app.\n\nJames','',0,'gA==','2a981ezq',1,0,'',303,0,0),(27199,6081,6,53,0,'189.139.23.19',1172198306,1,0,1,1,1,1,'','Una sobre MDIs','Amigos:\n\nCompilamos el TESTMDIY.PRG de la capeta de ejemplos con FWH 2.7 Jun, y al ir abriendo y cerrando ventanas MDI la nueva ventana se abre más abajo y a la derecha de la anterior (normal), el problema es que llegado el momento en que la nueva ventana se sale de la ventana principal las barras de scroll, vertical y horizontal no funcionan.\n\nEso es normal ?\n\nSaludos','',0,'gA==','28hetwdw',1,0,'',53,0,0),(27200,6082,1,666,0,'211.28.125.58',1172202383,1,0,1,1,1,0,'','To Antonio: re MGet','Within MGET.prg, for a large amount of text, there seems to be no purpose in setting cCaption based on bSetGet.  eg with a 20K string, cCaption will take up 20K of string space but serve\nno real purpose and that 20K will get used to calculate the size of the window.  \n\nSetting cCaption to \"\" and changing the calculation for ::nRight seems to works fine instead of relating it to the bSetGet.  Is such a change beneficial, or have I misunderstood?\n\nTIA\nColin','',0,'gA==','2gwqj63w',1,0,'',666,0,0),(27201,6083,3,32,0,'168.209.98.42',1172202472,1,0,1,1,1,0,'','tGet navigation','Hi,\n\nShouldn\'t shift-tab apply the same bchange test as normal tab?\n\nAlex\n\n\n\n[code:3dk6kceb]      case nKey == VK_TAB &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41;\n           if &#58;&#58;bChange != nil\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; lAccept\n                 if Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TCOMBOBOX&quot;\n                    &#58;&#58;oWnd&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n                 else\n                    &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n                 endif\n              endif\n           else\n              if Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TCOMBOBOX&quot;\n                 &#58;&#58;oWnd&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n              else\n                 &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n              endif\n           endif\n           return 0\n\n      case nKey == VK_TAB &#46;or&#46; nKey == VK_RETURN\n           if &#58;&#58;bChange != nil &#46;and&#46; &#40; &#58;&#58;oGet&#58;Changed &#46;or&#46; &#40; &#58;&#58;oGet&#58;buffer != nil &#46;and&#46; &#58;&#58;oGet&#58;UnTransform&#40;&#41; != &#58;&#58;oGet&#58;Original &#41; &#41;\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; lAccept\n                 &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n              endif\n           else\n              &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n           endif\n\n           #ifndef __CLIPPER__\n               if nKey == VK_RETURN  // Execute DEFPUSHBUTTON Action\n                  Super&#58;KeyChar&#40; nKey, nFlags &#41;\n               endif\n           #endif\n\n           return 0\n[/code:3dk6kceb]','',0,'AIA=','3dk6kceb',1,0,'',32,0,0),(27202,6080,3,2,0,'87.218.146.182',1172208463,1,0,1,1,1,1,'','','Michel,\n\nDo you use:\n[code:2t5u2us9]\nMENU oMenu\n   MENUITEM &#46;&#46;&#46;\n   &#46;&#46;&#46;\nENDMENU\n[/code:2t5u2us9]\nto build your menu from inside BuildMenu() ? Please show us a portion of your code, thanks','',0,'AIA=','2t5u2us9',1,0,'',2,0,0),(27203,6084,3,32,0,'168.209.98.42',1172212606,1,0,1,1,1,0,'','tGet Question','Hi,\n\nWhy are comma\'s removed from a picture string?\n\nMETHOD GotFocus( hCtlLost ) CLASS TGet\n\n    ::lFocused = .t.\n\n    #ifdef __XHARBOUR__\n       ::oGet:VarGet()\n    #endif\n\n    if ! Empty( ::cPicture ) .and. ::oGet:type == \"N\"\n[b:qrt04uk2]       ::oGet:Picture := StrTran( ::cPicture, \",\", \"\" )\n[/b:qrt04uk2]    endif','',0,'QA==','qrt04uk2',1,0,'',32,0,0),(27204,6084,3,32,0,'168.209.98.42',1172212898,1,0,1,1,1,0,'','Never mind','I see now that it becomes confusing when capturing.\n\nHas anybody done alterations to fill the get from the right?\n\nAlex','',0,'QA==','289p559z',1,0,'',32,0,0),(27205,6085,6,913,0,'202.175.95.171',1172213381,1,0,1,1,1,1,'','COMO PUEDO EDITAR CAMPOS MEMO  .DBT','HOLA <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nComo estan \n\ntengo que usar campos memo  DBT\ncomo los despliego para editarlos y despues presentarlos para solo lectura \n\nme podrian dar una ayudita\n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QA==','1a15m3mr',1,0,'',913,0,0),(27206,6085,6,913,0,'202.175.95.171',1172215005,1,0,1,1,1,1,'','','Hola <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nya encontre como hacerlo <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nde todas maneras gracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QA==','2k6s89mi',1,0,'',913,0,0),(27207,6006,2,350,0,'80.32.243.219',1172216516,1,0,1,1,1,0,'','','Miguel:\n\nEn la línea:\n@ -100, -100 BITMAP oBmplogo RESOURCE \'FONDO.BMP\' ADJUST OF oWnd PIXEL NO BORDER \n\nAlgo tienes mal, porque si el logo está en un fichero llamado Fondo.BMP. RESOURCE hay que cambiarlo por FILE. Yo lo tengo puesto RESOURCE porque el bitmap lo tengo en una DLL de recursos.\n\noBmpLogo tienes que daclararla en el main() como public o private, ya que se utiliza en la función main() y en inilogo(), o bien pasarlo como parámetro a esta última.\n\nSaludos','',0,'QA==','1izk71fl',1,0,'',350,0,0),(27208,6086,7,945,0,'80.32.177.143',1172218246,1,0,1,1,1,0,'','Imprimir via bluetooth','Muy buenas, tengo que imprimir via bluetooth con la impresora star DP8340, ¿Alguien me podría ayudar para realizar tanto la conexion y la impresion con dicha impresora? \nSi teneis códigos me vendría muy bien.\n\nMuchas gracias.\n\nUn Saludo.','',0,'QA==','150m1ay9',1,0,'',945,0,0),(27209,6087,7,945,0,'80.32.177.143',1172219031,1,0,1,1,1,0,'','Combobox más grande','Muy buenas, me gustaría saber como puedo a la hora de elegir y expandir el combobox, hacer que se vean más elementos en el combobox con solo hacer click en la flecha.\n\nGracias.','',0,'QA==','11484xvy',1,0,'',945,0,0),(27210,6088,6,838,0,'80.34.222.112',1172219944,1,0,1,1,1,0,'','Pasar foco de un get memo','Hola amigos\n\nPues eso, que tengo varios get, y uno de ellos es un campo memo, y de un get a otro vamos pasando con la tecla intro sin problemas, pero para salir del get, hay que pulsar la tecla tab.\nhe probado a :\n[code:369rsvvv]    REDEFINE GET ocomen VAR ccomentario MEMO ID 113 OF oDlg When cQuehago$&quot;AM&quot; &#46;and&#46; valor=&quot;S&quot;;\n            valid eval &#40;&#123;|nkey|iif&#40;nkey==chr&#40;13&#41;,&#40;ocomen&#58;oJump&#58;=ocodcon,ocodcon&#58;Setfocus&#40;&#41;&#41;,&#41;&#125;&#41;             \n[/code:369rsvvv] pero nada de nada. Teneis alguna sugerencia?\n\nSaludos\n\nJose Luis','',0,'AIA=','369rsvvv',1,0,'',838,0,0),(27211,6079,6,106,0,'85.34.123.173',1172221119,1,0,1,1,1,1,'','','Mario,\n\n\noCmb:Add( \"Mi dato\" ), hago\naTmpItems := ACLONE( oCmb:aItems )\naSort( aTmpItems )\noCmb:SetItems( aTmpItems )\noCmb:Refresh() \n\n\nNo lo probé, pero supongo deberia funcionar.\n\nSaludos','',0,'AIA=','1oimcw2k',1,0,'',106,0,0),(27212,6082,1,2,0,'87.218.146.182',1172222671,1,0,1,1,1,1,'','','Colin,\n\nYes, that change may be ok, though cCaption is also used from METHOD Create() when MGetCreate() is called','',0,'AIA=','5luyqoc4',1,0,'',2,0,0),(27213,6084,3,2,0,'87.218.146.182',1172222722,1,0,1,1,1,1,'','','Alex,\n\nIts removed for a better capturing','',0,'AIA=','3cfkziv6',1,0,'',2,0,0),(27214,6086,7,2,0,'87.218.146.182',1172222772,1,0,1,1,1,1,'','','Haz una búsqueda por bluetooth en estos foros y verás bastantes mensajes para Pocket PC','',0,'AIA=','2zjkr9vu',1,0,'',2,0,0),(27215,6072,3,67,0,'81.11.200.200',1172224087,1,0,1,1,1,0,'','','Michel,\n\nBuild your output as every print output from fivewin . You can use bitmaps, ......\n\nAs printer : PDFcreator (must be installed) , or a better solution is Image2Pdf.dll (i have working sample) in combination with OLE outlook or SMTP\n\nThen you can send a e-mail with attachement PDF file\n\nFrank','',0,'AIA=','1982kh2f',1,0,'',67,0,0),(27216,6072,3,86,0,'213.119.103.68',1172224669,1,0,1,1,1,1,'','','Frank,\n\nI think you haven\'t quite understood what I mean.\n\nI\'d like to send an email out of my application and I want a logo put in the body of every email I send.\n\nIn Outlook you can do that by using \"letterpaper\" (in Dutch : \"briefpapier\").\n\nI\'d like to know how we can do that from a FW-application.\n\nThanks anyway.\n\nMichel','',0,'AIA=','1s33kmpo',1,0,'',86,0,0),(27217,6080,3,86,0,'213.119.103.68',1172224974,1,0,1,1,1,1,'','','James,\n\nThe reason for the menu to be changed while running my application, has to do with priorities, but also with adding documents in menus that have been added, etc.\n\nAntonio,\n\nHere is the code I use :\n\n[code:2l2q11w4]FUNCTION BuildMenu1\n\n   LOCAL OldPar &#58;= &#123;ALIAS&#40;&#41;,INDEXORD&#40;&#41;,RECNO&#40;&#41;&#125;\n\n   DeleteObject&#40;oMenu&#41;\n   MEMORY&#40;-1&#41;\n   SYSREFRESH&#40;&#41;\n\n   SELECT US\n   SET ORDER TO 3\n   SEEK&#40;UPPER&#40;nUser&#41;&#41;\n\n   oMenu &#58;= NIL\n\n   MENU oMenu\n\n        FOR i=1 TO 8\n            IF i&lt;&gt; 4\n               SELECT MEN\n               SET ORDER TO i\n            ELSE\n               SELECT MENT\n               SET ORDER TO 3\n            ENDIF\n            GO TOP\n            IF !EOF&#40;&#41; &#46;AND&#46; &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNNR&quot;&#41; = i &#46;AND&#46; &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSOORT&quot;&#41; = 0\n               IF xPriority &gt;= &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNPRIOR&quot;&#41; &#46;AND&#46; &#40;US-&gt;RSCHERM &#46;OR&#46; &#40;!US-&gt;RSCHERM &#46;AND&#46; i &lt;&gt; 6&#41;&#41;\n                  MENUITEM &amp;&#40;&quot;oMenu&quot;+STR&#40;i,1,0&#41;&#41; PROMPT ALLTRIM&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MN&quot;+IF&#40;i&lt;&gt;4 &#46;OR&#46; EMPTY&#40;MENT-&gt;MNPOPTXT&#41;,&quot;TEKST&quot;,&quot;POPTXT&quot;&#41;&#41;&#41;\n                  MENU\n                  SKIP\n                  IF i = 4 &#46;AND&#46; MENT-&gt;MNSOORT = 3 ; SKIP ; ENDIF\n                  DO WHILE !EOF&#40;&#41; &#46;AND&#46; &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNNR&quot;&#41; = i\n                     IF &#40;&#40;xPriority &gt;= &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNPRIOR&quot;&#41;&#41; &#46;OR&#46; &#40;IF&#40;i=4,&#46;T&#46;,MEN-&gt;MNPRIVE &#46;AND&#46; xBoekExt&lt;&gt;&quot;PAR&quot;&#41;&#41;&#41; &#46;AND&#46; &#40;&#40;i = 4 &#46;OR&#46; &#40;i &lt;&gt; 4 &#46;AND&#46; &#40;&#40;PAR-&gt;BKWISSEL &#46;AND&#46; MEN-&gt;MNBOEKH &#46;AND&#46; &#40;!EMPTY&#40;US-&gt;UBOEPATH&#41; &#46;AND&#46; ALLTRIM&#40;US-&gt;UBOEPATH&#41; &lt;&gt; &quot;\\&quot;&#41; &#46;OR&#46; &#40;PAR-&gt;DOSBOEKH &#46;AND&#46; DOSS-&gt;DOSBOEKH&#41;&#41; &#46;OR&#46; !MEN-&gt;MNBOEKH&#41;&#41;&#41;&#41; &#46;AND&#46; &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 0 &#46;OR&#46; &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; &lt;&gt; 0&#41;&#41; &#46;AND&#46; &#40;i =  4 &#46;OR&#46; &#40;i &lt;&gt; 4 &#46;AND&#46; &#40;&#40;!US-&gt;RSCHERM &#46;AND&#46; i &lt;&gt; 6&#41; &#46;OR&#46; &#40;US-&gt;RSCHERM &#46;AND&#46; &#40;i = 6 &#46;OR&#46; !MEN-&gt;MNSCHERM&#41;&#41;&#41;&#41;&#41;\n                        IF i&lt;&gt;4 &#46;OR&#46; !MENT-&gt;MNPOPACT\n                           IF &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 0&#41; &#46;OR&#46; ;\n                              &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 1 &#46;AND&#46; PAR-&gt;OZDOSSIER&#41; &#46;OR&#46; ;\n                              &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 2 &#46;AND&#46; PAR-&gt;OZONDERW &#41; &#46;OR&#46; ;\n                              &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 3 &#46;AND&#46; PAR-&gt;OZONDERV &#41; &#46;OR&#46; ;\n                              &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 4 &#46;AND&#46; PAR-&gt;OZDATUM  &#41; &#46;OR&#46; ;\n                              &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 5 &#46;AND&#46; PAR-&gt;OZNUMMER &#41; &#46;OR&#46; ;\n                              &#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSRTOPSL&quot;&#41; = 6 &#46;AND&#46; &#40;PAR-&gt;OZDOSSIER &#46;OR&#46; PAR-&gt;OZONDERW &#46;OR&#46; PAR-&gt;OZONDERV &#46;OR&#46; PAR-&gt;OZDATUM &#46;OR&#46; PAR-&gt;OZNUMMER&#41;&#41;\n                              IF i=4 &#46;OR&#46; &#40;i&lt;&gt;4 &#46;AND&#46; &#40;MEN-&gt;MNSRTBH = 0 &#46;OR&#46; &#40;&#40;&#40;&#40;&amp;&#40;xBoekExt+&quot;-&gt;SRTBOEKH&quot;&#41; &lt;&gt; 2 &#46;AND&#46; MEN-&gt;MNSRTBH = 1&#41; &#46;OR&#46; &#40;&amp;&#40;xBoekExt+&quot;-&gt;SRTBOEKH&quot;&#41; = 2 &#46;AND&#46; MEN-&gt;MNSRTBH = 2&#41;&#41;&#41;&#41;&#41;&#41;\n                                 DO CASE\n                                    CASE &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSOORT&quot;&#41; = 1 ; VulMenu1&#40;i&#41; ; MENU\n                                    CASE &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSOORT&quot;&#41; = 2 ; VulMenu1&#40;i&#41;\n                                    CASE &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSOORT&quot;&#41; = 3 ; SEPARATOR\n                                    CASE &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSOORT&quot;&#41; = 4 ; ENDMENU\n                                 ENDCASE\n                              ENDIF\n                           ENDIF\n                        ENDIF\n                     ENDIF\n                     SKIP\n                  ENDDO\n                  ENDMENU\n               ENDIF\n            ENDIF\n        NEXT\n\n   ENDMENU\n\n   SELECT&#40;OldPar&#91;1&#93;&#41;\n   SET ORDER TO OldPar&#91;2&#93;\n   GOTO OldPar&#91;3&#93;\n\nRETURN&#40;&#46;T&#46;&#41;\n\n******************************************************************************\n\nPROCEDURE VulMenu1&#40;i&#41;\n\n   LOCAL cActie\n\n   IF !EMPTY&#40;cActie &#58;= &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNACTIE&quot;&#41;&#41; &#46;AND&#46; UPPER&#40;LEFT&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNACTIE&quot;&#41;,1&#41;&#41; &lt;&gt; &quot;*&quot; &#46;AND&#46; UPPER&#40;LEFT&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNACTIE&quot;&#41;,4&#41;&#41; &lt;&gt; &quot;REM &quot;\n      IF i &lt;&gt; 4\n         cActie &#58;= &quot;&#123;||StartSub&#40;MEN-&gt;MNDISABLE&#41;,&quot; + ALLTRIM&#40;cActie&#41; + &quot;,EndSub&#40;MEN-&gt;MNDISABLE&#41;&#125;&quot;\n      ELSE\n         cActie &#58;= LEFT&#40;ALLTRIM&#40;cActie&#41;,LEN&#40;ALLTRIM&#40;cActie&#41;&#41;-1&#41; + &quot;,OpenBase&#40;&#46;T&#46;&#41;&#125;&quot;\n      ENDIF\n      IF !EMPTY&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNVIRTKEY&quot;&#41;&#41;\n         IF i = 2 &#46;AND&#46; AT&#40;&quot;TAALACT&#40;1&#41;&quot;,UPPER&#40;MEN-&gt;MNACTIE&#41;&#41; &lt;&gt; 0\n            MENUITEM &#40;&quot;Agendacontrole &quot;+IF&#40;US-&gt;UAGCONTR,&quot;uitschakelen&quot;,&quot;inschakelen&quot;&#41; + IF&#40;!EMPTY&#40;MEN-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MEN-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41; BLOCK &amp;&#40;cActie&#41; ACCELERATOR MEN-&gt;MNSTATE,MEN-&gt;MNVIRTKEY\n         ELSEIF i = 4 &#46;AND&#46; MENT-&gt;MNVOLGNR &gt;= 9999978 &#46;AND&#46; MENT-&gt;MNVOLGNR &lt;= 9999980\n            MENUITEM &#40;IF&#40;MENT-&gt;MNVOLGNR=9999978,&quot;Taalkeuze&quot;,IF&#40;MENT-&gt;MNVOLGNR=9999979,&quot;Taal spellingcontrole&quot;,&quot;Controle lettertekens&quot;&#41;&#41;+&quot; &quot;+IF&#40;&#40;MENT-&gt;MNVOLGNR=9999978 &#46;AND&#46; US-&gt;UTXTTAAL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999979 &#46;AND&#46; US-&gt;UTXTSPEL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999980 &#46;AND&#46; US-&gt;UTXTFLET&#41;,&quot;uitschakelen&quot;,&quot;activeren&quot;&#41; + IF&#40;!EMPTY&#40;MENT-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MENT-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41; BLOCK &amp;&#40;cActie&#41; ACCELERATOR MENT-&gt;MNSTATE,MENT-&gt;MNVIRTKEY\n         ELSE\n            MENUITEM &#40;ALLTRIM&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MN&quot;+IF&#40;i&lt;&gt;4 &#46;OR&#46; EMPTY&#40;MENT-&gt;MNPOPTXT&#41;,&quot;TEKST&quot;,&quot;POPTXT&quot;&#41;&#41;&#41; + IF&#40;!EMPTY&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNFKEY&quot;&#41;&#41;,CHR&#40;9&#41;+ALLTRIM&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNFKEY&quot;&#41;&#41;,&quot;&quot;&#41;&#41; BLOCK &amp;&#40;cActie&#41; ACCELERATOR &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSTATE&quot;&#41;,&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNVIRTKEY&quot;&#41;\n         ENDIF\n      ELSE\n         IF i = 2 &#46;AND&#46; AT&#40;&quot;TAALACT&#40;1&#41;&quot;,UPPER&#40;MEN-&gt;MNACTIE&#41;&#41; &lt;&gt; 0\n            MENUITEM &#40;&quot;Agendacontrole &quot;+IF&#40;US-&gt;UAGCONTR,&quot;uitschakelen&quot;,&quot;inschakelen&quot;&#41; + IF&#40;!EMPTY&#40;MEN-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MEN-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41; BLOCK &amp;&#40;cActie&#41;\n         ELSEIF i = 4 &#46;AND&#46; MENT-&gt;MNVOLGNR &gt;= 9999978 &#46;AND&#46; MENT-&gt;MNVOLGNR &lt;= 9999980\n            MENUITEM &#40;IF&#40;MENT-&gt;MNVOLGNR=9999978,&quot;Taalkeuze&quot;,IF&#40;MENT-&gt;MNVOLGNR=9999979,&quot;Taal spellingcontrole&quot;,&quot;Controle lettertekens&quot;&#41;&#41;+&quot; &quot;+IF&#40;&#40;MENT-&gt;MNVOLGNR=9999978 &#46;AND&#46; US-&gt;UTXTTAAL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999979 &#46;AND&#46; US-&gt;UTXTSPEL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999980 &#46;AND&#46; US-&gt;UTXTFLET&#41;,&quot;uitschakelen&quot;,&quot;activeren&quot;&#41; + IF&#40;!EMPTY&#40;MENT-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MENT-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41; BLOCK &amp;&#40;cActie&#41;\n         ELSE\n            MENUITEM &#40;ALLTRIM&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MN&quot;+IF&#40;i&lt;&gt;4 &#46;OR&#46; EMPTY&#40;MENT-&gt;MNPOPTXT&#41;,&quot;TEKST&quot;,&quot;POPTXT&quot;&#41;&#41;&#41; + IF&#40;!EMPTY&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNFKEY&quot;&#41;&#41;,CHR&#40;9&#41;+ALLTRIM&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNFKEY&quot;&#41;&#41;,&quot;&quot;&#41;&#41; BLOCK &amp;&#40;cActie&#41;\n         ENDIF\n      ENDIF\n   ELSE\n      IF &amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MNSOORT&quot;&#41; = 2\n         IF i = 2 &#46;AND&#46; AT&#40;&quot;TAALACT&#40;1&#41;&quot;,UPPER&#40;MEN-&gt;MNACTIE&#41;&#41; &lt;&gt; 0\n            MENUITEM &#40;&quot;Agendacontrole &quot;+IF&#40;US-&gt;UAGCONTR,&quot;uitschakelen&quot;,&quot;inschakelen&quot;&#41; + IF&#40;!EMPTY&#40;MEN-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MEN-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41; DISABLED\n         ELSEIF i = 4 &#46;AND&#46; MENT-&gt;MNVOLGNR &gt;= 9999978 &#46;AND&#46; MENT-&gt;MNVOLGNR &lt;= 9999980\n            MENUITEM &#40;IF&#40;MENT-&gt;MNVOLGNR=9999978,&quot;Taalkeuze&quot;,IF&#40;MENT-&gt;MNVOLGNR=9999979,&quot;Taal spellingcontrole&quot;,&quot;Controle lettertekens&quot;&#41;&#41;+&quot; &quot;+IF&#40;&#40;MENT-&gt;MNVOLGNR=9999978 &#46;AND&#46; US-&gt;UTXTTAAL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999979 &#46;AND&#46; US-&gt;UTXTSPEL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999980 &#46;AND&#46; US-&gt;UTXTFLET&#41;,&quot;uitschakelen&quot;,&quot;activeren&quot;&#41; + IF&#40;!EMPTY&#40;MENT-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MENT-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41; DISABLED\n         ELSE\n            MENUITEM &#40;ALLTRIM&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MN&quot;+IF&#40;i&lt;&gt;4 &#46;OR&#46; EMPTY&#40;MENT-&gt;MNPOPTXT&#41;,&quot;TEKST&quot;,&quot;POPTXT&quot;&#41;&#41;&#41; + IF&#40;i&lt;&gt;4 &#46;AND&#46; !EMPTY&#40;MEN-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MEN-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41; DISABLED\n         ENDIF\n      ELSE\n         IF i = 2 &#46;AND&#46; AT&#40;&quot;TAALACT&#40;1&#41;&quot;,UPPER&#40;MEN-&gt;MNACTIE&#41;&#41; &lt;&gt; 0\n            MENUITEM &#40;&quot;Agendacontrole &quot;+IF&#40;US-&gt;UAGCONTR,&quot;uitschakelen&quot;,&quot;inschakelen&quot;&#41; + IF&#40;!EMPTY&#40;MEN-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MEN-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41;\n         ELSEIF i = 4 &#46;AND&#46; MENT-&gt;MNVOLGNR &gt;= 9999978 &#46;AND&#46; MENT-&gt;MNVOLGNR &lt;= 9999980\n            MENUITEM &#40;IF&#40;MENT-&gt;MNVOLGNR=9999978,&quot;Taalkeuze&quot;,IF&#40;MENT-&gt;MNVOLGNR=9999979,&quot;Taal spellingcontrole&quot;,&quot;Controle lettertekens&quot;&#41;&#41;+&quot; &quot;+IF&#40;&#40;MENT-&gt;MNVOLGNR=9999978 &#46;AND&#46; US-&gt;UTXTTAAL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999979 &#46;AND&#46; US-&gt;UTXTSPEL&#41; &#46;OR&#46; &#40;MENT-&gt;MNVOLGNR=9999980 &#46;AND&#46; US-&gt;UTXTFLET&#41;,&quot;uitschakelen&quot;,&quot;activeren&quot;&#41; + IF&#40;!EMPTY&#40;MENT-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MENT-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41;\n         ELSE\n            MENUITEM &#40;ALLTRIM&#40;&amp;&#40;&quot;MEN&quot;+IF&#40;i=4,&quot;T&quot;,&quot;&quot;&#41;+&quot;-&gt;MN&quot;+IF&#40;i&lt;&gt;4 &#46;OR&#46; EMPTY&#40;MENT-&gt;MNPOPTXT&#41;,&quot;TEKST&quot;,&quot;POPTXT&quot;&#41;&#41;&#41; + IF&#40;i&lt;&gt;4 &#46;AND&#46; !EMPTY&#40;MEN-&gt;MNFKEY&#41;,CHR&#40;9&#41;+ALLTRIM&#40;MEN-&gt;MNFKEY&#41;,&quot;&quot;&#41;&#41;\n         ENDIF\n      ENDIF\n   ENDIF\n\nRETURN\n\n******************************************************************************[/code:2l2q11w4]\n\nI hope you can understand what I mean.\n\nThank you.\n\nMichel','',0,'AIA=','2l2q11w4',1,0,'',86,0,0),(27218,6082,1,666,0,'211.28.125.58',1172228042,1,0,1,1,1,0,'','','Thanks for prompt reply, Antonio.\nColin','',0,'AIA=','2shc46gy',1,0,'',666,0,0),(27219,6086,7,945,0,'80.32.177.143',1172228763,1,0,1,1,1,0,'','','Muchas gracias Antonio.','',0,'AIA=','2se25sde',1,0,'',945,0,0),(27220,6089,6,456,0,'217.127.39.57',1172231044,1,0,1,1,1,1,'','Actualizar controles.','Hola foro.\n    Tengo una aplicación tipo MDI. Una de las ventanas (child) es un cliente telnet, y dependiendo de los datos recibidos en esta ventana, tengo que dar de alta un registro, y actualizar un browse en otra ventana.\n\n    Ahora lo hago recorriendo el array de la ventana principal  oWnd:oClient:aWnd, para detectar si la ventana a actualizar esta abierta, y luego recorro el array de controles de la ventana, y detecto el control a acutalizar con ClassName(). \n\n    Aunque esto funciona bien, la pregunta es, existe alguna otra forma más directa para poder hacerlo.','',0,'AIA=','38a1nzxp',1,0,'',456,0,0),(27221,6088,6,838,0,'80.34.222.112',1172231706,1,0,1,1,1,0,'','','Me lo he solucionado\n\nEn lugar de todo ello, así\n[code:4asiwbim]    ocomen&#58;bKeyDown &#58;= &#123; | nKey, nFlags | iif&#40;nkey==13,ocodcon&#58;Setfocus&#40;&#41;,&#41;&#125;[/code:4asiwbim]\n\nSaludos\n\nJose Luis','',0,'AIA=','4asiwbim',1,0,'',838,0,0),(27222,6090,17,217,0,'200.159.120.34',1172233164,1,0,1,1,1,0,'','Setting the focus to any object','Many questions are posted in FW\'s forums related to focus.\nWhen oObj:Setfocus() fail, I use this function that work fine for me for many yeara (FW+Clipper / FW+Harbour / FW+xHarbour):\n\n[code:1jxqsbmg]\nfunction xSetFocus&#40;oObj&#41;\n local oTime\n\n define timer oTime interval 10 of oObj&#58;oWnd ;\n        action &#40;oObj&#58;SetFocus&#40;&#41;, oTime&#58;DeActivate&#40;&#41;&#41;\n activate timer oTime\nreturn Nil\n[/code:1jxqsbmg]\n\nYou can call:\nxSetFocus( oGet )\nxSetFocus( oButton )\nxSetfocus( oLbx )\n\nBut... in any misterious cases xSetFocus() fail. Then you can call it twice or create a function as below:\n\n[code:1jxqsbmg]\nfunction xFocus&#40;oObj&#41;\n xSetFocus&#40;oObj&#41; \n xSetFocus&#40;oObj&#41; \nreturn Nil\n[/code:1jxqsbmg]\n\nYou can call the same way xSetFocus():\nxFocus( oGet )\nxFocus( oBtn )\n...\n\nBest regards,\nMaurilio','',0,'AIA=','1jxqsbmg',1,0,'',217,0,0),(27223,6091,6,838,0,'80.34.222.112',1172234383,1,0,1,1,1,0,'','Error Failed to create state file','Hola amigos\n\nEn una compilacion con verce, me da el siguiente error\n\nFatal error detected (LME279)\n\n============================================================\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Error detected (LME279)\nFatal: Error detected (LME347)\nWarning: Failed to create state file C:/DBP/FASTTRAC/POD2WEB/pod2web.tds (error code 0)\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting C:\\DBP\\FASTTRAC\\POD2WEB\\pod2web.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\n\nDe que puede ser?\n\nSaludos\n\nJose Luis','',0,'AIA=','mfwu4kc4',1,0,'',838,0,0),(27224,6006,2,812,0,'200.83.124.137',1172236299,1,0,1,1,1,0,'','','Hola Sebastian:\n\nMuchas gracias por tu aclaracion, lo aplico y te cuento.\n\nSaludos,\nMiguel\n\n[quote=&quot;Sebastián Almirón&quot;:1lbezydf]Miguel:\n\nEn la línea:\n@ -100, -100 BITMAP oBmplogo RESOURCE \'FONDO.BMP\' ADJUST OF oWnd PIXEL NO BORDER \n\nAlgo tienes mal, porque si el logo está en un fichero llamado Fondo.BMP. RESOURCE hay que cambiarlo por FILE. Yo lo tengo puesto RESOURCE porque el bitmap lo tengo en una DLL de recursos.\n\noBmpLogo tienes que daclararla en el main() como public o private, ya que se utiliza en la función main() y en inilogo(), o bien pasarlo como parámetro a esta última.\n\nSaludos[/quote:1lbezydf]','',0,'gA==','1lbezydf',1,0,'',812,0,0),(27225,6092,4,267,0,'200.208.238.2',1172236817,1,0,1,1,1,1,'','How to activate IRDA(Infrared) connection?','Hi,\n\nWhen use the IExplorer in the Pocket connection IRDA automatically is activated if already it will not be connected.. We have as to make this activation with the FwPpc?','',0,'gA==','p4xtve1n',1,0,'',267,0,0),(27226,6093,3,446,0,'151.32.165.172',1172241980,1,0,1,1,1,0,'','SMTP session aborting','hello!\nI have a working prg which sends email via TSMTP:SendMail() connecting to a mail server on the internet.\nNow, if I upload my program to the same PC where the mail server is installed, mails are no more sent out.\nI use LKM version because I need user authentication\nTurned on the debug mode here is the log:\n\n23-02-2007 15:30:43: Connect	Socket handle:      7948	WSA Error:         0	\n23-02-2007 15:30:43: Write  	Socket handle:      7948	WSA Error:         0	\n23-02-2007 15:30:45: Read   	Socket handle:      7948	WSA Error:         0\n23-02-2007 15:30:45: 220 mail.myserver.it ESMTP\n23-02-2007 15:30:45: HELO smtp-client\n23-02-2007 15:30:45: AUTH LOGIN\n23-02-2007 15:30:45: Read   	Socket handle:      7948	WSA Error:         0	\n23-02-2007 15:30:45: 250 Hello.\n334 VXNlcm5hbWU6\n\nanyone can say what\'s happen ?\nthanks','',0,'gA==','zmkekor1',1,0,'',446,0,0),(27227,6080,3,2,0,'87.218.146.182',1172246242,1,0,1,1,1,1,'','','Michel,\n\nPlease modify your code so your function returns the new oMenu object:\n\noWnd:SetMenu( BuildMenu() ) \n\nand declare oMenu as a local inside BuildMenu() that is finally returned: return oMenu','',0,'gA==','1ujvvrn1',1,0,'',2,0,0),(27228,6089,6,2,0,'87.218.146.182',1172246505,1,0,1,1,1,1,'','','Biel,\n\nEs correcto como lo haces. Podría simplificarse si usas una variable donde tienes la ventana del terminal e igual para los controles a actualizar, así no tienes que buscarlos','',0,'gA==','3l1dtz1x',1,0,'',2,0,0),(27229,6094,3,148,0,'196.205.219.42',1172246523,1,0,1,1,1,0,'','refresh say object','How can I refresh the say object in variable oSay_acct down in the code\nI am getting data from combpbox and then serach() the data to get display say variable \n\n\n[code:2497j76i]\n@ 1,1 SAY &quot;&amp;Account Name&quot; OF oDlg PIXEL\n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 1,60 COMBOBOX V_CU_NAME ITEMS aBase1&#40;1,&quot;cust&quot;,256,&quot;cu_name&quot;&#41; size 150,120 OF oDlg PIXEL ;\nON CHANGE &#40;search&#40;&quot;V_CU_NAME&quot;,&quot;cu_name&quot;,&quot;cust&quot;&#41;,oSay_acct&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n\n\n   @ 1,300 SAY &quot;&amp;Account No&#46;&quot; OF oDlg PIXEL\n   @ 1,340 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,350 say V_CU_ACCT  \n   @ 1,350 say oSay_acct VAR V_cu_acct OF oDlg PIXEL;\n\n&#46;&#46;&#46;\n\nfunction search&#40;variable,field,filename&#41;\n//--------------------------------------\nuse &#40;filename&#41;\nlocate for &#40;alltrim&#40;variable&#41; == alltrim&#40;&#40;filename&#41;-&gt;&#40;field&#41;&#41;&#41;\nif found&#40;&#41;\n&#40;variable&#41;&#58;=&#40;&#40;filename&#41;-&gt;&#40;field&#41;&#41;\n? &quot;I am inside search    &quot; + variable\nendif\nreturn nil\n\n[/code:2497j76i]','',0,'AIA=','2497j76i',1,0,'',148,0,0),(27232,6096,7,720,0,'80.36.244.134',1172248730,1,0,1,1,1,0,'','msgwait...','Hola a todos...\n\nTengo una duda, como puedo centrar el texto en un msgwait()??\n\nYo lo estoy usando asi: msgwait(\"Actualizando...\",,2). El problema es que el texto \"Actualizando...\" me lo pone pegado a la izquierda y a la vista no queda bien... Se puede poner centrado?\n\nSaludos\n\nElías Torres.','',0,'AIA=','2l5sv9go',1,0,'',720,0,0),(27233,6054,7,720,0,'80.36.244.134',1172249053,1,0,1,1,1,0,'','','Biel, gracias por la ayuda. Te comento lo que me ocurre...\nAl utilizar msgdate(), me muestra el calendario, pero al avanzar de mes y luego retroceder, el año me lo cambia y en vez de poner 2007 me pone 1907... Y a parte me da un error en una variable, concretamente en IDOK cuando pulso sobre el dia que quiero, me dice que esa variable no existe.\n\nOtra duda que me ha surgido, se supone que ya está implementado la clase msgdate(), pero debo poner todo el codigo en mi programa para que me lo muestre. No me bastaría con llamar a esa funcion solamente?...\n\nAlguna sugerencia?\n\nSaludos y gracias.\n\nElías Torres.','',0,'AIA=','v8i2zbob',1,0,'',720,0,0),(27234,6093,3,446,0,'151.32.165.172',1172249202,1,0,1,1,1,0,'','','solved!\nit seems as the socket catches two messages at a time\nI don\'t know why there is this different behavior among the two PC\'s but now it works\n\nI put the follwing modifications in the TSMTP class, OnRead() method\n\nCase ::nStatus == ST_AUTH0\n   If SubStr( cData, 1, 3 ) == \"250\"\n      // add: Roberto Chiaiese - 23/02/2007 - two messages at a time\n      If Eval( bReply, cAns := \"334\" )\n          oSocket:SendData( cMimeEnc( ::cUser ) + CRLF )\n          ::nStatus := ST_USER\n      else\n      // end r.c.\n          ::nStatus := ST_AUTH\n      endif\n   Else\n      ::nStatus := ST_QUIT\n   Endif\n\nRoberto Chiaiese','',0,'AIA=','3k8pful9',1,0,'',446,0,0),(27235,6094,3,397,0,'201.13.92.137',1172249614,1,0,1,0,1,1,'','','Try\n\n[code:2p97e8xl]\nfunction search&#40;variable,field,filename&#41; \n//-------------------------------------- \nuse &#40;filename&#41; \nlocate for &#40;alltrim&#40;variable&#41; == alltrim&#40;&#40;filename&#41;-&gt;&#40;field&#41;&#41;&#41; \nif found&#40;&#41; \n&#40;variable&#41;&#58;=&#40;&#40;filename&#41;-&gt;&#40;field&#41;&#41; \n? &quot;I am inside search    &quot; + variable \n//\n\n   oSay_acct&#58;SetText&#40; variable &#41;\n   oSay_acct&#58;Refresh&#40;&#41;\n\n//\nendif \nreturn nil\n[/code:2p97e8xl]','',0,'AIA=','2p97e8xl',1,0,'',397,0,0),(27236,6084,3,303,0,'72.199.41.171',1172250959,1,0,1,1,1,0,'','','Alex,\n\nI don\'t know if this is what you are looking for, but here is an old message on numeric GETs. I haven\'t tried it.\n\nJames\n\n[quote:gd5e1i9k]From: \"Luis Krause Mantilla\" &lt;lkrausem@home.com&gt;\nSubject: Re: Multiple line numeric gets\nDate: Thursday, November 08, 2001 7:16 AM\n\nColin Wisbey wrote:\n\n&gt; Like many on this NG, I\'ve been using FW for so long that I\'ve forgotten WHY\n&gt; I do certain things a certain way.\n&gt;\n&gt; On the basis of recommendations in the early years, I\'ve ALWAYS been in the\n&gt; habit of setting a numeric GET control in BRW as \"Text\" (not \"Number\"),\n&gt; \"Right\", \"Multiple line\"  (not \"Single line\").  Can anyone remind me why we\n&gt; were advised to create numerics as \"Multiple line\" and if the reasoning\n&gt; behind it is still relevant.  i.e Is there any down side to reverting to\n&gt; \"Single line\"?  What do you guys specify for your numeric GETs?\n&gt;\n\nThis is the only way to make get objects handling numeric vars to align them to the right properly.  What I do remember is that the height of the get has to be at lease 13 pixels or it will show nothing under Win 3.x.\n\n\n&gt;\n&gt; I\'ve just got rid of CTL3D but my main dialog has a lot of numeric GETs,\n&gt; each set up as \"Multiple line\", and their values no longer display.  Their\n&gt; height has always been 10 and has always been fine when using CTL3D.\n&gt; Without CTL3D, they display OK if I either increase the height of each GET\n&gt; control from 10  to 11, or if I change them to \"Single line\", but not if I\n&gt; leave them as \"Multiple line\" and 10 height.\n\nAs said above, I always create my gets with a size of 13, regardless if they are numerics or not so I don\'t have to wory on which OS the app may run.\n\n--\nLuis Krause Mantilla\nlkrausem at home dot com\nluis_krause at hotmail dot com[/quote:gd5e1i9k]','',0,'gA==','gd5e1i9k',1,0,'',303,0,0),(27237,6097,7,720,0,'80.36.244.134',1172251057,1,0,1,1,1,0,'','como coger el foco un listbox...','Hola a todos...\n\nEstá pregunta es un poco boba, pero no doy con la solución...¿como hago para que el listbox obtenga el foco cuando me creo el dialogo?\n\nHe probado con oBrw:setfocus() pero no lo hace\n\nLa declaración del listbox es esta (y funciona perfectamente):\n\nredefine LISTBOX oBrw; \n           FIELDS STR(consulta-&gt;cant),consulta-&gt;nom_art;\n           HEADERS \"Cantidad\",\"Descripción\" ID 500 on change (oCod:REFRESH(),omarca1:REFRESH(),;\n           omarca2:REFRESH(),omarca3:REFRESH()) OF oDlg16\n\n\nSaludos\n\nElías Torres.','',0,'gA==','ji15e73n',1,0,'',720,0,0),(27238,6072,3,303,0,'72.199.41.171',1172251333,1,0,1,1,1,0,'','','Michel,\n\nYou have to build the logo into the HTML just like any webpage. Outlook just does this by starting with the letterhead HTML page that is blank inside, then the user fills it in. It is not a separate page. You will have to do the same with your code.\n\nPersonally, I wouldn\'t do it. It doesn\'t seem to be very popular with recipients because of the larger size of the mail. Also, it is very hard to do a reply to it as the format of the reply becomes messy.\n\nJames','',0,'gA==','lwey3s4v',1,0,'',303,0,0),(27239,6054,7,456,0,'217.127.39.57',1172251527,1,0,1,1,1,1,'','','Hola Elias, \nincluye las siguientes lineas en tu programa.\n Al inicio de la aplicacion \n[code:394n8rk4]Set EPOCH TO 1919[/code:394n8rk4]\ny en el prg donde hayas colocado los fuentes de msgdate\n[code:394n8rk4]#define IDOK 1[/code:394n8rk4]\n\nY creo que con esto ya te funcionara correctamente. \nDe todas formas prueba el DTPicker que esta muy bien, y es el calendario nativo del sistema operativo. \n\nReferente a lo que comentas de si hace falta incluir los fuentes, pues en la versión que tengo yo de FWPPC que no es la última, msgdate no estaba implementado, por tanto, si es necesario, en la tuya si ya esta implementado, no haria falta incluir los fuentes.','',0,'AIA=','394n8rk4',1,0,'',456,0,0),(27240,6097,7,720,0,'80.36.244.134',1172253435,1,0,1,1,1,0,'','','Me contesto yo solito... solo me bastó asignarle el orden en el editor de recursos...(ya sabia yo que era una boberia, jeje)\n\nSaludos.\n\nElías Torres.','',0,'AIA=','266eoqa0',1,0,'',720,0,0),(27241,6054,7,720,0,'80.36.244.134',1172253537,1,0,1,1,1,0,'','','Gracias Biel, probaré lo que me comentas y tambien la otra opcion..\nYa te diré que tal..\n\nSaludos.\n\nElías Torres.','',0,'AIA=','2z8fge86',1,0,'',720,0,0),(27242,6098,6,41,0,'200.105.194.235',1172254912,1,0,1,1,1,0,'','Clase Report modificada por RenOmaS','Holas,\n\nestoy utilizando la clase report modificada por RenOmaS para poder pasar los reportes a Excel.\n\nEl problema esta que con esta clase no se puede visualizar las lineas cuando se difine le reporte con oReport:cellView(), a simple vista todo parece estar correcto, pero al previsualizar el reporte, no aparece el cuadriculado que deberia.\n\nAlguien tiene el mismo problema? y si tiene la solucion aun  mejor.\n\nsaludos\n\nMarcelo','',0,'AIA=','3viobf54',1,0,'',41,0,0),(27243,6099,3,308,0,'84.148.41.187',1172256707,1,0,1,1,1,0,'','CC and BCC in Outlook','Hello Fivewinners,\n\nHow i can set CC or BCC in an Outlook via OLE ?\n\nRegards, Norbert','',0,'AIA=','lilk1dm0',1,0,'',308,0,0),(27244,6100,3,69,0,'74.13.32.66',1172256991,1,0,1,1,1,0,'','Motherboard Serial Number','Hi Everybody,\n\nAnyone know how to read the serial number of a motherboard?\n\nThanks,\nJeff','',0,'AIA=','2oedklrg',1,0,'',69,0,0),(27245,6099,3,6,0,'82.53.175.142',1172257225,1,0,1,1,1,1,'','Re: CC and BCC in Outlook','oMail:CC = \"...\"\noMail:BCC = \"...\"\n\nEMG','',0,'AIA=','3mroen09',1,0,'',6,0,0),(27246,6072,3,6,0,'82.53.175.142',1172257668,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3rwh9l1q]You have to build the logo into the HTML just like any webpage.[/quote:3rwh9l1q]\n\nIt\'s not so simple as you can\'t refer to a local image. It will work if you link an image on the web but it will likely be blocked by the security policy.\n\nYou should use the internal link to an internal image (ie. an image embedded to the message) but I don\'t know how to create such a message.\n\nEMG','',0,'gA==','3rwh9l1q',1,0,'',6,0,0),(27247,6101,6,18,0,'201.116.74.116',1172257907,1,0,1,1,1,1,'','Map Point','Un saludo a todos: \n\nAntes de ponerme a inventar el hilo negro, alguien me podría decir si ha trabajado con Map Point [url:29n8602s]http&#58;//mappoint&#46;msn&#46;com/[/url:29n8602s]\n\nY que fue lo que uso.\n\nFiveWin, MiniGui , etc.','',0,'EA==','29n8602s',1,0,'',18,0,0),(27248,6072,3,303,0,'72.199.41.171',1172260924,1,0,1,1,1,0,'','','Enrico,\n\nI believe the image just gets converted to MIME format when sent. Below is a copy of a stationary from Outlook Express. You can see there is just a local link to an image (actually two images--one is the background).\n\nI would think you could create similar code with FWH and then insert it into the Outlook mail as HTML.\n\nJames\n\n[code:1uwva80g]&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4&#46;0 Transitional//EN&quot;&gt;\n&lt;HTML&gt;&lt;HEAD&gt;&lt;TITLE id=ridTitle&gt;Nature&lt;/TITLE&gt;\n&lt;META http-equiv=Content-Type content=&quot;text/html; charset=windows-1252&quot;&gt;&lt;BASE \nhref=&quot;file&#58;//C&#58;\\Program Files\\Common Files\\Microsoft Shared\\Stationery\\&quot;&gt;\n&lt;STYLE&gt;&lt;!-- body  &#123; font-family&#58; Trebuchet MS, Verdana; font-size&#58; 10pt; color&#58; #333399; margin-top&#58; 5px; margin-left&#58; 30px; &#125; img &#123; margin-top&#58; 5px; margin-left&#58; -30px; &#125; --&gt;&lt;/STYLE&gt;\n\n&lt;META content=&quot;MSHTML 6&#46;00&#46;6000&#46;16414&quot; name=GENERATOR&gt;&lt;/HEAD&gt;\n&lt;BODY id=ridBody bgColor=#f4f4f4 background=&quot;Nature Bkgrd&#46;jpg&quot;&gt;&lt;IMG id=ridImg \nsrc=&quot;anabnr2&#46;gif&quot; align=bottom&gt;\n&lt;P&gt;&lt;/P&gt;\n&lt;DIV&gt;&amp;nbsp;&lt;/DIV&gt;\n&lt;P&gt;&lt;/P&gt;&lt;/BODY&gt;&lt;/HTML&gt;[/code:1uwva80g]','',0,'AIA=','1uwva80g',1,0,'',303,0,0),(27249,6098,6,46,0,'217.168.114.134',1172263822,1,0,1,1,1,0,'','','Estas seguro...\n\noReport:CellView()\ntienes que ejecutarlo despues de haber definidos las columnas del reporte, siempre ha funcionado asi.. al menos en la version que tengo...que es un poco antigua\n\nSalu2 <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','3v708vlo',1,0,'',46,0,0),(27250,6102,3,34,0,'68.4.154.81',1172263856,1,0,1,1,1,1,'','cGetFiles32( ) and Vista','Here is a new one.  I use cGetFiles32( ) to obtain the path/name of a file which is then recorded by my program for future reference.\n\nI have not had any problems in all previous OS versions of Windows, but I found a new twist with Vista.\n\nI have an interface to Quickbooks, and to initialize it the first time from my application, QB has to be running, and the company file must be open.  No problem so far....\n\nThen the application must know the location of the company file, so I call cGetFiles32( ) to obtain the name which is then stored in the registry for future calls by the application when posting to QB.  Unfortunately, because QB has the file open, the Vista OS reports back that the file is already opened, and it says to select another file or close the file.  It will not return the value as a result !\n\nDoes anyone have thoughts on how this can be addressed ?\n\nDo we love Vista yet ?\n\nTim','',0,'AIA=','3iwehhcb',1,0,'',34,0,0),(27251,6088,6,46,0,'217.168.114.134',1172264083,1,0,1,1,1,0,'','','Hola\n\nPuedes definir el control oGet en tu recurso con el estilo extendido\n\"Want return = yes\"  ( EX_WANTRETURN )\n\nSalu2 <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','29nw7n88',1,0,'',46,0,0),(27252,6048,3,34,0,'68.4.154.81',1172264431,1,0,1,1,1,1,'','Vista, xHarbour, and your applications','Let me clarify this issue.\n\nxHarbour.com\'s last full release of xBuilder does not work with Vista.  However, they have fixed the problem and the latest release candidates do work fine.  I am using it all day long on a Vista Ultimate computer with essentially no problems\n\nMicrosoft did change how it handles the registry.  If you Run as Administrator with your application, then previous registry interaction seems to be fine.  However, if you run as a Standard User, Vista places the same entries in a user registry location which may be different than what you intended.  For example, I was writing data to HKEY_LOCAL_MACHINE and it ended up in LOCAL_USER.  Vista does track this alternate location, so everything does work fine.  So far I have not noted any problems with the alternate location.  \n\nThe reasoning is Microsoft\'s attempt to enhance security.  If you don\'t like what they are doing, then be sure to tell a hacker or maybe encourage your local law enforcement officials to re-locate those hackers and virus writers to some remote environment where the internet and computers don\'t exist.  Personally, I like the idea of placing them at the south pole where they can help raise penguins !\n\nI realize it will be a lot of work to properly implement the changes in Vista, but so far it actually makes my dual core processor work much better than it did under XP Pro ... so I won\'t complain.\n\nTim','',0,'AIA=','39lmjqf1',1,0,'',34,0,0),(27253,6102,3,2,0,'87.218.146.182',1172265683,1,0,1,1,1,1,'','','Tim,\n\nYou should use cGetFile() instead of cGetFile32() which it is for 16 bits apps only','',0,'AIA=','2exyiqka',1,0,'',2,0,0),(27254,6101,6,2,0,'87.218.146.182',1172266008,1,0,1,1,1,1,'','','Vikthor,\n\nBusca por MapPoint en estos foros pues ya se ha hablado de Map Point:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3268&amp;highlight=mappoint\">http://fivetechsoft.com/forums/viewtopi ... t=mappoint</a><!-- m -->','',0,'AIA=','2enubzyc',1,0,'',2,0,0),(27255,6098,6,41,0,'200.105.194.235',1172266858,1,0,1,1,1,0,'','','Hola,\n\n(gracias por responder)\nsi, no me sale el grid, tan solo el contorno y no las lineas horizontales de division de cada linea.\n\nMira tu codigo es completemente claro, y no estas tocando el codigo de la clase original me parece muy raro, sera que puedes enviarme tus clases para probarlas (report y mreport) (via at dicyt.umss.edu.bo)\n\nDesde ya muchas gracias\n\nun saludo\n\nMarcelo','',0,'AIA=','2auyr51h',1,0,'',41,0,0),(27256,6100,3,69,0,'74.13.32.66',1172266945,1,0,1,1,1,0,'','','I found some VB code that should get the Motherboard Serial number.\n\nCan anyone convert this to FWH ?\n\n \nJeff\n\n[code:11ru6ta0]\nPublic Function MBSerialNumber&#40;&#41; As String\n\n\'RETRIEVES SERIAL NUMBER OF MOTHERBOARD\n\'IF THERE IS MORE THAN ONE MOTHERBOARD, THE SERIAL\n\'NUMBERS WILL BE DELIMITED BY COMMAS\n\n\'YOU MUST HAVE WMI INSTALLED AND A REFERENCE TO\n\'Microsoft WMI Scripting Library IS REQUIRED\n\nDim objs As Object\n\nDim obj As Object\nDim WMI As Object\nDim sAns As String\n\n\nSet WMI = GetObject&#40;&quot;WinMgmts&#58;&quot;&#41;\nSet objs = WMI&#46;InstancesOf&#40;&quot;Win32_BaseBoard&quot;&#41;\nFor Each obj In objs\n  sAns = sAns &amp; obj&#46;SerialNumber\n If sAns &lt; objs&#46;Count Then sAns = sAns &amp; &quot;,&quot;\nNext\nMBSerialNumber = sAns\nEnd Function\n[/code:11ru6ta0]','',0,'AIA=','11ru6ta0',1,0,'',69,0,0),(27257,6094,3,148,0,'196.205.219.42',1172273840,1,0,1,1,1,0,'','','program does not the search function . How can I involve a function into on change clause ?\nAny other ideas about how can I reach my result ?\n\nON CHANGE (function_call,(\"V_CU_NAME\",\"cu_name\",\"cust\"),oSay_acct:Refresh(),oDlg:Refresh())','',0,'AIA=','3f7x9pit',1,0,'',148,0,0),(27258,6100,3,6,0,'82.57.160.172',1172275083,1,0,1,1,1,1,'','','[code:cw1vq3yb]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oLoc &#58;= CREATEOBJECT&#40; &quot;wbemScripting&#46;SwbemLocator&quot; &#41;\n    LOCAL oSrv &#58;= oLoc&#58;ConnectServer&#40;&#41;\n    LOCAL oJbs &#58;= oSrv&#58;ExecQuery&#40; &quot;SELECT * FROM Win32_BaseBoard&quot; &#41;\n\n    LOCAL oJob\n\n    FOR EACH oJob IN oJbs\n        ? oJob&#58;SerialNumber\n    NEXT\n\n    RETURN NIL[/code:cw1vq3yb]','',0,'AIA=','cw1vq3yb',1,0,'',6,0,0),(27259,6072,3,6,0,'82.57.160.172',1172275428,1,0,1,1,1,1,'','','Do you have a working sample?\n\nEMG','',0,'AIA=','2koq295d',1,0,'',6,0,0),(27260,6079,6,147,0,'201.253.53.55',1172279234,1,0,1,0,1,1,'','','Williams; no son problemas de recursos\nPedro; anduvo!\n\nmuchas gracias','',0,'AIA=','3ity9db2',1,0,'',147,0,0),(27261,6094,3,397,0,'201.1.162.148',1172280497,1,0,1,0,1,1,'','','You need this\n\nRun a app TEST4.EXE and click in the button search.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/ehab.zip\">http://www.shoppmarketing.com/forum/ehab.zip</a><!-- m -->','',0,'AIA=','2uzy34tl',1,0,'',397,0,0),(27262,6100,3,69,0,'74.13.32.66',1172282610,1,0,1,1,1,0,'','','Once again many thanks.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nJeff','',0,'AIA=','1f0gbot0',1,0,'',69,0,0),(27263,6072,3,303,0,'72.199.41.171',1172286401,1,0,1,1,1,0,'','','Enrico,\n\nBelow is the code for doing a letterhead in Outlook Express (tested and working). I do not have a copy of Outlook installed here to create a test for Outlook.\n\nThe code is nothing special. You just specify the HTM file and do NOT include a message. I think the file extension must be HTM not HTML, if I remember correctly.\n\nAs per the note below, the entire HTML file must be built using FW code--including the salutation, message, and signature of the sender (if you want fully automated emails). The HTML file I used is similar to the one I previously posted.\n\nCreating the HTML file shouldn\'t be too difficult. You could just store it in several pieces each in a separate file, then load all the pieces and paste them together with the saluation, message, and signature, pasted in the appropriate places. Then save it as a temp file and send. I would use a timer to then delete the temp file after a short delay.\n\nIf you want the HTM and JPG files also, let me know and I will email them to you.\n\nJames\n\n\n[code:juzp9zsc]// Purpose&#58; Demonstrate the creation of a letterhead email&#46;\n// Author&#58; James Bott\n\n/* Note&#58; You have to create the &#46;HTM file using FW code--you can\'t just pass\na message&#46; The message has to be already in the HTML code&#46;\n*/\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;mail&#46;ch&quot;\n\n\nfunction main&#40;&#41;\n   local oMail,cMsg,cTo,cAddress,cSubject\n\n   cTo&#58;=&quot;James Bott&quot;\n   cSubject&#58;=&quot;Test letterhead mail&quot;\n\n   DEFINE MAIL oMail ;\n        SUBJECT OemToAnsi&#40;cSubject&#41; ;\n        TO cTo, cAddress;\n        FILES &quot;c&#58;\\fw\\mapisend\\lhead&#46;htm&quot;,&quot;lhead&#46;htm&quot;;\n        FROM USER\n\n   ACTIVATE MAIL oMail\n\n   IF oMail&#58;nRetCode#0\n      MsgAlert&#40;&quot;The message could not be sent!&quot;,&quot;Error &quot; + alltrim&#40;cValToChar&#40;oMail&#58;nRetCode#0&#41;&#41; &#41;\n   ELSE\n      //MsgInfo&#40;&quot;Message sent successfully!&quot;&#41;\n   ENDIF\n\nreturn nil[/code:juzp9zsc]','',0,'AIA=','juzp9zsc',1,0,'',303,0,0),(27264,6100,3,190,0,'124.7.25.150',1172286488,1,0,1,1,1,0,'','','Hi\n\n\"wbemScripting.SwbemLocator\" object is available where ?\n\nIs is available in Win98 also ?\n\nThanks\n\n- Ramesh Babu P','',0,'AIA=','2ti06r6s',1,0,'',190,0,0),(27265,6103,6,52,0,'190.7.30.167',1172304567,1,0,1,1,1,1,'','Quiero hacer CLICK en boton pero sin validar un Get','Estimados,\n    Estando en el punto \"A\" hago validacion de codigo, y devuelvo un .t. o un .f. dependiendo del dato.\n\n    Ahora bien, si estoy en \"A\" y hago click en \"B\" no me deja salir de ese get porque tengo una validacion fuerte.\n\n[url=http&#58;//img412&#46;imageshack&#46;us/my&#46;php?image=dibujogc4&#46;jpg:1f93dchc][img:1f93dchc]http&#58;//img412&#46;imageshack&#46;us/img412/8518/dibujogc4&#46;th&#46;jpg[/img:1f93dchc][/url:1f93dchc]\n\nPregunta:\n\nComo puedo hacer para que cuando haga click en \"B\" la validacion no tenga efecto?\n\nYa he probado controlar con \n\n[code:1f93dchc] \n\n Function Validar&#40; vGets &#41;\n\n    IF !GetKeyState&#40; VK_RETURN &#41; &#46;and&#46; !GetKeyState&#40; VK_DOWN &#41; &#46;and&#46; !GetKeyState&#40; VK_TAB &#41;\n        RETURN&#40; &#46;T&#46; &#41;\n    ENDIF\n\n     // Aca sigue mi código de validacion&#46;&#46;&#46;\n\n[/code:1f93dchc]\n\n\nPero es muy tedioso ya que existen otras teclas que podria utilizar, como ser F1... VK_up.. etc.\n\n\nGracias','',0,'GIA=','1f93dchc',1,0,'',52,0,0),(27266,6103,6,2,0,'87.218.146.182',1172310407,1,0,1,1,1,1,'','','Gustavo,\n\nREDEFINE BUTTON ... CANCEL\n\nla cláusula cancel te permite saltarte la validación del Get','',0,'GIA=','249z1rlz',1,0,'',2,0,0),(27267,6100,3,6,0,'87.19.15.42',1172310545,1,0,1,1,1,1,'','','It should be available. From MSDN:\n\n[quote:d26nex8o]Client Requires Windows Vista, Windows XP, Windows 2000 Professional, Windows NT Workstation 4.0 SP4 and later, Windows Me, Windows 98, or Windows 95 OSR2 and later. \nServer Requires Windows Server \"Longhorn\", Windows Server 2003, Windows 2000 Server, or Windows NT Server 4.0 SP4 and later. \nType Library Use Wbemdisp.tlb.\n \nDLL Requires Wbemdisp.dll.[/quote:d26nex8o]  \n\nEMG','',0,'gA==','d26nex8o',1,0,'',6,0,0),(27268,6103,6,52,0,'190.7.30.167',1172310562,1,0,1,1,1,1,'','','Gracias','',0,'gA==','30bo8cuv',1,0,'',52,0,0),(27269,6062,3,2,0,'87.218.146.182',1172310902,1,0,1,1,1,1,'','','Richard,\n\nPlease place a MsgInfo() here and check if it gets displayed:\n[code:vzfqo83m]\nMETHOD Notify&#40; nIdCtrl, nPtrNMHDR &#41; CLASS TWindow\n\n   local nCode     &#58;= GetNMHDRCode&#40; nPtrNMHDR &#41;\n   local nHWndFrom &#58;= GetNMHDRHWndFrom&#40; nPtrNMHDR &#41;\n   local oCtrl     &#58;= oWndFromHwnd&#40; nHWndFrom &#41;\n\n   if oCtrl != nil\n      do case\n         case nCode == 103 &#46;or&#46; nCode == TVN_SELCHANGEDA  // TreeView item selected\n              oCtrl&#58;SelChanged&#40;&#41;\n\n         otherwise\n              MsgInfo&#40; &quot;here!&quot; &#41;\n              if oCtrl&#58;hWnd != &#58;&#58;hWnd\n                 return oCtrl&#58;Notify&#40; nIdCtrl, nPtrNMHDR &#41;\n              endif   \n      endcase\n   endif\n\nreturn nil\n[/code:vzfqo83m]','',0,'AIA=','vzfqo83m',1,0,'',2,0,0),(27270,6092,4,2,0,'87.218.146.182',1172311114,1,0,1,1,1,1,'','','Vilian,\n\nFrom Programming Microsoft Windows CE - second edition:\n\nThe Infrared Port \nWindows CE devices almost always have an infrared IrDA-compatible serial port. In fact, all H/PC and Pocket PC systems are guaranteed to have one. The IR ports on Windows CE devices are IrDA (Infrared Data Association) compliant. The IrDA standard specifies everything from the physical implementation, such as the frequency of light used, to the handshaking between devices and how remote systems find each other and converse. \n\nThe IR port can be used in a variety of ways. At the most basic level, the port can be accessed as a serial port with an IR transmitter and receiver attached. This method is known as raw IR. When you\'re using raw IR, the port isn\'t IrDA compliant because the IrDA standard requires the proper handshaking for the link. However, raw IR gives you the most control over the IR link. A word of warning: While all Windows CE devices I know currently support raw IR, some might not in the future. \n\nYou can also use the IR port in IrComm mode. In this mode, the IR link looks like a serial port. However, under the covers, Windows CE works to hide the differences between a standard serial port and the IR link. This is perhaps the easiest way to link two custom applications because the applications can use the rather simple Comm API, while Windows CE uses the IrDA stack to handle the IR link. \n\nThe most robust and complex method of using the IR port is to use IrSock. In this mode, the IR link appears to be just another socket. IrSock is an extension of WinSock, the Windows version of the socket interface used by applications communicating with TCP/IP. I\'ll cover WinSock in Chapter 10, so I\'ll defer any talk of IrSock until then. \n\nRaw IR \nAs I mentioned previously, when you use raw IR you\'re mainly on your own. You essentially have a serial port with an IR transceiver attached to it. Since both the transmitter and the receiver use the same ether (the air), collisions occur if you transmit at the same time that you\'re receiving a stream of data from another device. This doesn\'t happen when a serial cable connects two serial ports because the cable gives you separate transmit and receive wires that can be used at the same time. \n\nFinding the Raw IR Port \nTo use raw IR, you must first find the serial port attached to the IR transceiver. On some Windows CE units, the serial port and the IR port use the same serial hardware. This means you can\'t use the serial port at the same time you use the IR port. Other Windows CE devices have separate serial hardware for the IR port. Regardless of how a device is configured, Windows CE gives you a separate instance of a COM driver for the IR port that\'s used for raw IR mode. \n\nThere is no official method of determining the COM port used for raw IR. However, the following technique works for current devices. To find the COM port used for raw IR, look in the registry in the \\Comm\\IrDA key under HKEY_LOCAL_MACHINE. There you should find the Port value that contains the COM port number for the raw IR device. \n\nIf the Port value isn\'t there, check for a Parms subkey. If that is present, look for the Port value under it. If not, check for a Linkage subkey. If the Linkage subkey is present, check for a Bind value. If present, it will contain the name of another key under [HKEY_LOCAL_MACHINE]\\Comm that you can open and repeat the process. Following are two routines, GetRawIrDeviceName and a recursive helper routine, that return the device name of the raw IR port. \n\n[code:otzwfkoo]\n//----------------------------------------------------------------------// GetRawIrDeviceName - Returns the device name for the RawIR COM port//INT GetRawIrDeviceName &#40;LPTSTR lpszDevName&#41; &#123;        *lpszDevName = TEXT &#40;`\\0\'&#41;;    return QueryIrKey &#40;TEXT &#40;&quot;IrDA&quot;&#41;, lpszDevName&#41;;&#125;//// Helper routine that walks the linkage chain//INT QueryIrKey &#40;LPTSTR lpszSubkeyName, LPTSTR lpszDevName&#41; &#123;    DWORD dwSize, dwType, dwData;    HKEY hKey, hSubkey;    TCHAR szBind&#91;64&#93;;    int rc;        // Open the IrDA key&#46;    lstrcpy &#40;szBind, TEXT &#40;&quot;\\\\Comm\\\\&quot;&#41;&#41;;    lstrcat &#40;szBind, lpszSubkeyName&#41;;    rc = RegOpenKeyEx &#40;HKEY_LOCAL_MACHINE, szBind, 0, 0, &amp;hKey&#41;;    if &#40;rc == ERROR_SUCCESS&#41; &#123;         // Query the device number&#46;        dwSize = sizeof &#40;dwData&#41;;        rc = RegQueryValueEx &#40;hKey, TEXT &#40;&quot;Port&quot;&#41;, 0, &amp;dwType,                               &#40;PBYTE&#41;&amp;dwData, &amp;dwSize&#41;;        if &#40;rc == ERROR_SUCCESS&#41; &#123;             // Check for valid port number&#46; Assume buffer &gt; 5 chars&#46;            if &#40;dwData &lt; 10&#41;                wsprintf &#40;lpszDevName, TEXT &#40;&quot;COM%d&#58;&quot;&#41;, dwData&#41;;        &#125; else &#123;            // The key doesn\'t have a port value&#46; Check to see if             // there is a Parms subkey, and query it&#46;            lstrcpy &#40;szBind, lpszSubkeyName&#41;;            lstrcat &#40;szBind, TEXT &#40;&quot;\\\\parms&quot;&#41;&#41;;            rc = QueryIrKey &#40;szBind, lpszDevName&#41;;            if &#40;rc&#41;                return rc;                        // The key doesn\'t have a port value or Parms subkey&#46;             // Check to see if there is a linkage to another reg key&#46;            rc = RegOpenKeyEx &#40;hKey, TEXT &#40;&quot;linkage&quot;&#41;, 0, 0, &amp;hSubkey&#41;;            if &#40;rc == ERROR_SUCCESS&#41; &#123;                // Yes, get the name of the key to check&#46;                dwSize = sizeof &#40;szBind&#41;;                rc = RegQueryValueEx &#40;hSubkey, TEXT &#40;&quot;Bind&quot;&#41;, 0, &amp;dwType,                                       &#40;PBYTE&#41;&amp;szBind, &amp;dwSize&#41;;                 // Recurse to examine the linked reg key&#46;                QueryIrKey &#40;szBind, lpszDevName&#41;;                RegCloseKey &#40;hSubkey&#41;;            &#125;        &#125;        RegCloseKey &#40;hKey&#41;;    &#125;    return lstrlen &#40;lpszDevName&#41;;&#125;\n\n[/code:otzwfkoo]\nUsing Raw IR \nOnce you have the port name, you must perform one more task before you can use the port. If the COM port hardware is being shared by the serial port and the IR port, you must tell the driver to direct the serial stream through the IR transceiver. You do this by first opening the device and calling EscapeCommFunction. The command passed to the device is SETIR. When you\'ve finished using the IR port, you should call EscapeCommFunction again with the command CLRIR to return the port back to its original serial function. \n\nOnce the port is set up, there\'s one main difference between raw IR and standard serial communication. You have to be careful when using raw IR, not to transmit while another device is also transmitting. The two transmissions will collide, corrupting both data streams. With raw IR, you\'re also responsible for detecting the other device and handling the dropped bytes that will occur as the infrared beam between the two devices is occasionally broken. \n\nIrComm \nUsing IrComm is much easier than using raw IR. IrComm takes care of remote device detection, collision detection, and data buffering while communication with the other device is temporally interrupted. The disadvantage of IrComm is that it\'s a point-to-point protocol—only two devices can be connected. In most instances, however, this is sufficient. \n\nFinding the IrComm Port \nHere again, there\'s no official method for determining the IrComm port. But you should be able to find the IrComm port by looking in the registry under the Drivers\\builtin\\IrCOMM key under HKEY_LOCAL_MACHINE. The item to query is the Index value, which is the COM device number for the IrComm port. Following is a routine that returns the device name of the IrComm port. \n\n[code:otzwfkoo]\n//----------------------------------------------------------------------// GetIrCommDeviceName - Returns the device name for the IrComm port//INT GetIrCommDeviceName &#40;LPTSTR pDevName&#41; &#123;    DWORD dwSize, dwType, dwData;    HKEY hKey;     *pDevName = TEXT &#40;`\\0\'&#41;;    // Open the IrDA key&#46;    if &#40;RegOpenKeyEx &#40;HKEY_LOCAL_MACHINE,                      TEXT &#40;&quot;Drivers\\\\BuiltIn\\\\IrCOMM&quot;&#41;, 0,                      0, &amp;hKey&#41; == ERROR_SUCCESS&#41; &#123;         // Query the device number&#46;        dwSize = sizeof &#40;dwData&#41;;        if &#40;RegQueryValueEx &#40;hKey, TEXT &#40;&quot;Index&quot;&#41;, 0, &amp;dwType,                             &#40;PBYTE&#41;&amp;dwData, &amp;dwSize&#41; == ERROR_SUCCESS&#41;             // Check for valid port number&#46; Assume buffer &gt; 5 chars&#46;            if &#40;dwData &lt; 10&#41;                wsprintf &#40;pDevName, TEXT &#40;&quot;COM%d&#58;&quot;&#41;, dwData&#41;;         RegCloseKey &#40;hKey&#41;;    &#125;    return lstrlen &#40;pDevName&#41;;&#125;\n[/code:otzwfkoo]\n\nThe IrComm port is different in a number of ways from the serial port and the raw IR port. These differences arise from the fact that the IrComm port is a simulated port, not a real device. The IrComm driver uses IrSock to manage the IR link. The driver is then responsible only for reflecting the data stream and a few control characters to simulate the serial connection. If you try to query the communication settings for the IrComm port using GetCommState, the DCB returned is all zeros. If you try to set a baud rate or some of the other parameters, and later call GetCommState again, the DCB will still be 0. IrSock manages the speed and the handshaking protocol, so IrComm simply ignores your configuration requests. \n\nOn the other hand, the IrComm driver happily queues up pending writes waiting on another IrComm device to come within range. After the IrComm driver automatically establishes a link, it transmits the pending bytes to the other device. This assistance is a far cry from raw IR and is what makes using IrComm so easy. \n\nThe best way to learn about the characteristics of the two methods of IR communication I\'ve described is to use them. Which brings us to this chapter\'s example program.','',0,'AIA=','otzwfkoo',1,0,'',2,0,0),(27271,6072,3,6,0,'87.19.15.42',1172311715,1,0,1,1,1,1,'','','Sorry but your sample uses a local disk reference to the images, not an internal message reference. Therefore it won\'t show any images when received by the recipient (I just tested this).\n\nEMG','',0,'AIA=','bjnujrh1',1,0,'',6,0,0),(27272,6104,6,54,0,'189.132.102.212',1172313366,1,0,1,1,1,1,'','Posicion ITEM en msgbar','Es posible saber la posicion del item en la msgbar?\n\nSaludos y gracias de antemano?','',0,'AIA=','g8oqt48c',1,0,'',54,0,0),(27273,6062,3,15,0,'203.70.52.83',1172316689,1,0,1,1,1,0,'','','Hello Antonio,\n\nThis is my FWH 2.6 SEP Code below:\n[code:1ihc2f6v]\nMETHOD Notify&#40; nIdCtrl, nPtrNMHDR &#41; CLASS TWindow\n\n   local nCode     &#58;= GetNMHDRCode&#40; nPtrNMHDR &#41;\n   local nHWndFrom &#58;= GetNMHDRHWndFrom&#40; nPtrNMHDR &#41;\n   local oCtrl     &#58;= oWndFromHwnd&#40; nHWndFrom &#41;\n\n   if oCtrl != nil\n      do case\n         case nCode == 103 &#46;or&#46; nCode == TVN_SELCHANGEDA  // TreeView item selected\n              oCtrl&#58;SelChanged&#40;&#41;\n\n         case nCode == -759  // Date-time picker changed\n              oCtrl&#58;Changed&#40;&#41;\n\n         otherwise\n              MsgInfo&#40; &quot;here!&quot; &#41; \n              if oCtrl&#58;hWnd != &#58;&#58;hWnd \n                 return oCtrl&#58;Notify&#40; nIdCtrl, nPtrNMHDR &#41; \n              endif \n      endcase\n   endif\n\nreturn nil\n[/code:1ihc2f6v]\n\nI change code like you and touch ToolBar\'s button can appear MsgInfo()\nMy preview report window use TSButton Bar+STATUSBAR can show message.\nMy Main Window TToolBar+STATUSBAR can not show any message.\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \nRegards,\n\nRichard','',0,'AIA=','1ihc2f6v',1,0,'',15,0,0),(27274,6080,3,86,0,'213.119.103.68',1172318680,1,0,1,1,1,1,'','','Antonio,\n\nThanks for your answer.\n\nI changed the code as you told me to but if the \"osetmenu\" sentence is executed between 10 and 15 times, the menuitems don\'t work anymore.\n\nHave a nice weekend.\n\nMichel','',0,'AIA=','1re9epb9',1,0,'',86,0,0),(27275,6080,3,2,0,'87.218.146.182',1172321993,1,0,1,1,1,1,'','','Michel,\n\nPlease test this sample, it seems to work fine:\n[code:2y99bzk1]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBar\n\n   DEFINE WINDOW oWnd TITLE &quot;Menus Test&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   DEFINE BUTTONBAR oBar OF oWnd 3D\n\n   DEFINE BUTTON OF oBar ACTION oWnd&#58;SetMenu&#40; BuildMenu&#40;&#41; &#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;Test&quot;\n      MENU\n         MENUITEM &quot;One&quot;   ACTION MsgInfo&#40; &quot;One&quot; &#41;\n         MENUITEM &quot;Two&quot;   ACTION MsgInfo&#40; &quot;Two&quot; &#41;\n         MENUITEM &quot;Three&quot; ACTION MsgInfo&#40; &quot;Three&quot; &#41;\n      ENDMENU\n   ENDMENU\n\nreturn oMenu\n[/code:2y99bzk1]','',0,'AIA=','2y99bzk1',1,0,'',2,0,0),(27276,6105,4,3,0,'82.65.121.157',1172324255,1,0,1,1,1,1,'','bluetooth print follow','Antonio\n\nIs there any reasonable chance i can get a fix on the above problem ?\n\nI have to deliver the printer and the app next tuesday. \n\nThanks for reply\n\nRichard','',0,'AIA=','1slua3wj',1,0,'',3,0,0),(27277,6105,4,2,0,'87.218.146.182',1172325109,1,0,1,1,1,1,'','','Richard,\n\nCould you check if this function returns .T. ?\n[code:3esu0zdl]\nHB_FUNC&#40; WRITE233 &#41; // hComm --&gt; lOk \n&#123; \n   DWORD cBytes; \n   unsigned char ch = 233; \n    \n   hb_retl&#40; &#40; BOOL &#41; WriteFile&#40; &#40; void * &#41; hb_parnl&#40; 1 &#41;, &amp;ch, 1, &amp;cBytes, NULL &#41; &#41;; \n&#125;\n[/code:3esu0zdl]\nYou already tested it but we did not check the returned value. Thanks,','',0,'AIA=','3esu0zdl',1,0,'',2,0,0),(27278,6105,4,3,0,'82.65.121.157',1172325668,1,0,1,1,1,1,'','','It returns .t.\n\nRichard','',0,'AIA=','zb10qrvr',1,0,'',3,0,0),(27279,6106,6,854,0,'200.95.238.251',1172328283,1,0,1,1,1,0,'','Para los que ya Resolvieron lo de los Menus Estilo XP','Sres. Al compilar me marca _hb_stack en el GRADFILL.OBJ\n\ncomo puedo recompilar el GRADFILL.C ?\n\nGracias y Saludos.','',0,'AIA=','2bg03aat',1,0,'',854,0,0),(27280,6107,3,964,0,'189.142.71.119',1172340203,1,0,1,1,1,0,'','Agregar dll \'s creadas en Visual C# 2005','Hola a todos!\nSaludos Antonio, tengo una duda, estamos desarrollando sobre xharbour, pero necesitamos implementar dll\'s creadas en Visual C# 2005, que en si son Controles de Usuario.\n\nEs posible hacer esto?, y poder utilizarlos?\n\nSe que es algo extraño pues esta fuera del lenguaje, pero se desea reutilziar lo que ya se tiene.\n\nGracias por el apoyo.\n\n\nSaludos!','',0,'AIA=','37qg53xq',1,0,'',964,0,0),(27281,6108,6,964,0,'189.142.71.119',1172340273,1,0,1,1,1,0,'','Usar dlls creadas en Visual C# 2005','Hola a todos! \nSaludos Antonio, tengo una duda, estamos desarrollando sobre xharbour, pero necesitamos implementar dll\'s creadas en Visual C# 2005, que en si son Controles de Usuario. \n\nEs posible hacer esto?, y poder utilizarlos? \n\nSe que es algo extraño pues esta fuera del lenguaje, pero se desea reutilziar lo que ya se tiene. \n\nGracias por el apoyo. \n\n\nSaludos!','',0,'AIA=','3476g54x',1,0,'',964,0,0),(27282,6072,3,303,0,'72.199.41.171',1172342131,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Sorry but your sample uses a local disk reference to the images, not an internal message reference. Therefore it won\'t show any images when received by the recipient (I just tested this). \n\nI presume you tested it with Outlook? Because it does work with OE. Doesn\'t Outlook also use stationary? If so, then I don\'t know why it won\'t work.\n\nJames','',0,'AIA=','2siph7o2',1,0,'',303,0,0),(27283,6109,3,148,0,'196.205.219.42',1172342500,1,0,1,1,1,0,'','rdd filter','I can not find that filter DBSETFILTER(&amp;bFilter,cFilter) is applied to the database . Please can somebody explain why ?\n\n[code:b439gmd0]\n\nSTATIC FUNCTION listmete&#40; oWnd &#41;\n*--------------------------\n\nlocal oDlg, oCol \n\nlocal oBrw\nlocal nfor,x,cFilter&#58;=&quot;&quot;,bFilter&#58;=&quot;&quot;\nlocal V_me_mc_serl&#58;= space&#40;7&#41;\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n\n\n\n\nselect 1\nUSE cust\nINDEX ON upper&#40;cust-&gt;cu_acct&#41; TO cust\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON upper&#40;cust-&gt;cu_appr&#41; TO cust10\nset INDEX TO cust\n\nselect 2\nUSE cont\nINDEX ON cont-&gt;CT_CU_ACCT+dtoc&#40;cont-&gt;ct_strd&#41; TO cont\nINDEX ON cont-&gt;CT_CU_acct TO cont1\nINDEX ON cont-&gt;ct_strd TO cont2\nINDEX ON cont-&gt;ct_endd TO cont3\nINDEX ON cont-&gt;CT_machno TO cont4\nINDEX ON cont-&gt;CT_mamc TO cont5\nINDEX ON cont-&gt;ct_paymet TO cont6\nINDEX ON cont-&gt;ct_payamt TO cont7\nINDEX ON cont-&gt;ct_currenc TO cont8\nINDEX ON cont-&gt;ct_excmet TO cont9\nINDEX ON cont-&gt;ct_excamt TO cont10\nINDEX ON cont-&gt;ct_minvol TO cont11\nINDEX ON cont-&gt;ct_ctna TO cont12\nSET INDEX TO cont1\n\nselect 3\nuse mach\nindex on mach-&gt;MC_CU_ACCT to mach\nindex on UPPER&#40;mach-&gt;MC_CU_name&#41; to mach1\nindex on UPPER&#40;mach-&gt;MC_ct_ctna&#41; to mach2\nindex on UPPER&#40;mach-&gt;MC_model&#41; to mach3\nindex on UPPER&#40;mach-&gt;MC_TYPE&#41;+UPPER&#40;mach-&gt;MC_model&#41; to mach4\nindex on &#40;mach-&gt;MC_serial&#41; to mach5\nindex on UPPER&#40;mach-&gt;MC_meres&#41; to mach6\nindex on UPPER&#40;mach-&gt;MC_brn&#41; to mach7\nindex on UPPER&#40;mach-&gt;MC_gateway&#41; to mach8\nset index to mach5\ngo top\n\nselect 4\nuse mete\nindex on mete-&gt;ME_mc_serl to mete\nindex on str&#40;mete-&gt;year&#41; + str&#40;mete-&gt;month&#41; to mete1\nindex on mete-&gt;me_date to mete2\nset index to mete\n\n\nif MsgGet&#40; &quot;Serial Machine&quot;, &quot;Enter Serial Machine&quot;, @V_me_mc_serl,;\n              &quot;&#46;&#46;\\lupa&#46;bmp&quot; &#41;\n      select 3\n      use mach\n      set index to mach5\n      MSGINFO&#40;IndexKey&#40;&#41;&#41; \n      if ! DbSeek&#40; &#40;V_me_mc_serl &#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that serial&quot; &#41;\n      endif\n   endif\n\n\n\n? V_me_mc_serl\ncFilter &#58;=&quot;mete-&gt;me_mc_serl&quot; + \'==&quot;\' + &#40;V_me_mc_serl&#41; + \'&quot;\'\n\n? cFilter \nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n? bFilter \n\nselect 4\nuse mete\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\nmete-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n\n\n   DEFINE DIALOG oDlg of oWnd FROM 0,0 TO 45,128 TITLE &quot;Meter reads browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n\n\n   if nFor=27\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n\n   *oBrw&#58;CreateFromCode&#40;&#41;\n   *oBrw&#58;UpStable&#40;&#41;           // Corrects same page stabilizing Bug\n   oBrw&#58;Refresh&#40;&#46;t&#46;&#41;            // Repaint the ListBox\n\n\n\n\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;,BuildButtons&#40; oDlg &#41;,oDlg&#58;Refresh&#40;&#46;t&#46;&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;&#41;\n\nRETURN NIL\n[/code:b439gmd0]','',0,'AIA=','b439gmd0',1,0,'',148,0,0),(27284,6072,3,303,0,'72.199.41.171',1172346008,1,0,1,1,1,0,'','','Enrico,\n\nIn your test did you set the path properly using this line from the sample above?\n\n[code:q5ns5aef]BASE href=&quot;file&#58;//C&#58;\\Program Files\\Common Files\\Microsoft Shared\\Stationery\\[/code:q5ns5aef]\n\nIt needs to be set to the path of the images.\n\nJames','',0,'AIA=','q5ns5aef',1,0,'',303,0,0),(27285,6106,6,138,0,'148.233.151.30',1172346852,1,0,1,1,1,1,'','Re: Para los que ya Resolvieron lo de los Menus Estilo XP','[quote=&quot;Vital&quot;:11x2m6hk]Sres. Al compilar me marca _hb_stack en el GRADFILL.OBJ\n\ncomo puedo recompilar el GRADFILL.C ?\n\nGracias y Saludos.[/quote:11x2m6hk]\n\nagrega el codigo en c en cualquier prg con un BEGIN DUMP como te indique para las libs de Abits','',0,'gA==','11x2m6hk',1,0,'',138,0,0),(27286,6109,3,53,0,'189.139.24.14',1172346908,1,0,1,1,1,1,'','','Ehab:\n\nTry with the traditional way\n\nselect 4 \nuse mete \nDBSETFILTER( {| | mete-&gt;me_mc_serl == V_me_mc_serl },;\n	\"mete-&gt;me_mc_serl == V_me_mc_serl\" ))\nmete-&gt;(DBGOTOP()) \n\nGood luck, Armando','',0,'gA==','375ru5lb',1,0,'',53,0,0),(27287,6105,4,2,0,'87.218.146.182',1172347927,1,0,1,1,1,1,'','','Richard,\n\nThen it means that WriteFile() is working ok <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nAre you able to print those characters from Pocket Word ?','',0,'gA==','15vreeqk',1,0,'',2,0,0),(27288,6105,4,3,0,'82.65.128.215',1172352494,1,0,1,1,1,1,'','','Yes no problem\n\nEven the txt file created from fwppc can be printed OK when selected and sent via bluetooth to the printer.\n\nTo make it clear, my app first generates a txt file then sends it to the printer.\n\nThis is why i asked for a workaround if we can simulate the \"send via bluetooth\" from fwppc, the problem is fixed as the printout is perfect\n\nRichard','',0,'gA==','3ndotrg5',1,0,'',3,0,0),(27289,6072,3,6,0,'87.3.228.112',1172353273,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:6agjq98f]I presume you tested it with Outlook?[/quote:6agjq98f]\n\nNo, I tested it with Outlook Express.\n\nEMG','',0,'gA==','6agjq98f',1,0,'',6,0,0),(27290,6072,3,6,0,'87.3.228.112',1172353346,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:9xn775mc]Enrico,\n\nIn your test did you set the path properly using this line from the sample above?\n\n[code:9xn775mc]BASE href=&quot;file&#58;//C&#58;\\Program Files\\Common Files\\Microsoft Shared\\Stationery\\[/code:9xn775mc]\n\nIt needs to be set to the path of the images.\n\nJames[/quote:9xn775mc]\n\nNo, as I haven\'t that path in \"Program Files\" (or in Programmi).\n\nEMG','',0,'gIA=','9xn775mc',1,0,'',6,0,0),(27291,6110,7,527,0,'83.35.173.252',1172353428,1,0,1,1,1,0,'','Enviar correo electronico desde PDA','como puedo configurar el TMAIL para que desde mi aplicacion de Pokect envie un correo asignandole automaticamente el destinatario, comentarios y fichero adjunto\n\nGracias por todo.','',0,'gIA=','lbzp0j1w',1,0,'',527,0,0),(27292,6072,3,6,0,'87.3.228.112',1172353603,1,0,1,1,1,1,'','','James, I received your test message and it work great (I can see the image). Can you send me a complete sample to test here?\n\nEMG','',0,'gIA=','3cz8idu2',1,0,'',6,0,0),(27293,6072,3,303,0,'72.199.41.171',1172353909,1,0,1,1,1,0,'','','Enrico,\n\n&gt;No, as I haven\'t that path in \"Program Files\" (or in Programmi). \n\nI meant that you need to modify that line to whatever path you need so that it points to the image files you are using.\n\n&gt;James, I received your test message and it work great (I can see the image). Can you send me a complete sample to test here? \n\nDone.\n\nJames','',0,'gIA=','32q811sr',1,0,'',303,0,0),(27294,6111,3,962,0,'200.161.190.100',1172365978,1,0,1,1,1,1,'','Bug Redefine ComboBox + oDB:FIELD - URGENT','Sorry my English <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAntonio Linares,\n\n//Bug Redefine ComboBox + oDB:FIELD with (\'F\' or \'J\') in ITEM {\'J - Pessoa Jurídica\', \'F - Pessoa Física\'} ?!\n\n[code:2h4njptt]use CLIENTE\n// have one Class proper &#40;TDBTable&#41;, but exemplify with TDataBase\nDataBase oDBCli\n\n? oDBCli&#58;CLI_TIPPES // equal \'F\' or \'J\' - not is activate correctly element ComboBox &#40;On Init Dlg&#41;&#46;\n\n//-----------------------------------------------------------\n//Bug, if first Control receive Focus&#58;\n\n&#46;&#46;&#46;\nRedefine COMBOBOX oCbxTipPes ;\n         VAR oDBCli&#58;CLI_TIPPES ;\n         ITEMS &#123;\'J - Pessoa Jurídica\', \'F - Pessoa Física\'&#125; ;\n         ID 4002  ;\n         OF oFld&#58;aDialogs&#91;1&#93;\n\nActivate Dialog oDlg ;\n         Center ;\n         On Init PosCbx&#40;oCbxTipPes,oDBCli&#58;CLI_TIPPES&#41;\n\n// Use only this mode\n//-----------------------------------------------------------\n// Correct, if variable common&#58;\n&#46;&#46;&#46;\ncTipPes&#58;=oDBCli&#58;CLI_TIPPES\n\nRedefine COMBOBOX oCbxTipPes ;\n         VAR cTipPes ;\n         ITEMS &#123;\'J - Pessoa Jurídica\', \'F - Pessoa Física\'&#125; ;\n         ID 4002  ;\n         OF oFld&#58;aDialogs&#91;1&#93;\n\nActivate Dialog oDlg ;\n         Center ;\n         On Init PosCbx&#40;oCbxTipPes,cTipPes&#41;\n//-----------------------------------------------------------\n// Correct all mode&#58;\n&#46;&#46;&#46;\n@02,10 COMBOBOX oCbxTipPes ;\n         VAR oDBCli&#58;CLI_TIPPES ;\n         ITEMS &#123;\'J - Pessoa Jurídica\', \'F - Pessoa Física\'&#125; ;\n         ID 4002  ;\n         OF oFld&#58;aDialogs&#91;1&#93;\n\nActivate Dialog oDlg ;\n         Center ;\n         On Init PosCbx&#40;oCbxTipPes,cTipPes&#41;\n//-----------------------------------------------------------\n// Set position in oCbx&#58;aItem\n//-----------------------------------------------------------\nfunction PosCbx&#40; oCbx, cValue &#41;\nlocal nPos\n\nif oCbx # nil &#46;and&#46; ! EMPTY&#40;cValue&#41;\n   if &#40;nPos&#58;=ASCAN&#40;oCbx&#58;aItems, &#123;|x| UPPER&#40;cValue&#41; == UPPER&#40;PADR&#40;x,LEN&#40;cValue&#41;&#41;&#41;&#125; &#41;&#41; &gt; 0\n      ? \'PosCbx&#40;&#41; Find &quot;\' + cValue + \'&quot; in element \' + ALLTRIM&#40;STR&#40;nPos&#41;&#41;\n      oCbx&#58;Select&#40;nPos&#41;\n   endif\nendif\nreturn nil\n//-----------------------------------------------------------\n//-----------------------------------------------------------[/code:2h4njptt]\n// RESOURCE SCRIPT generated by \"Pelles C for Windows, version 4.50\".\n\n#include &lt;windows.h&gt;\n#include &lt;commctrl.h&gt;\n#include &lt;richedit.h&gt;\n\nLANGUAGE LANG_PORTUGUESE,SUBLANG_PORTUGUESE_BRAZILIAN\n\nCDT_CLIENTE DIALOGEX DISCARDABLE 6, 18, 398, 194\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nCAPTION \"Dialog\"\nFONT 8, \"MS Sans Serif\", 0, 0, 1\nBEGIN\n  CONTROL \"\", 4001, \"SysTabControl32\", 0x00000000, 0, 20, 396, 144\n  CONTROL \"Cancelar\", 4003, \"Button\", WS_TABSTOP, 344, 172, 45, 15\nEND\n\nCDT_CLIENTE_GERAL DIALOGEX DISCARDABLE 6, 18, 396, 134\nSTYLE WS_CHILD|DS_3DLOOK|WS_VISIBLE\nCAPTION \"Dialog\"\nFONT 8, \"MS Sans Serif\", 0, 0, 1\nBEGIN\n  CONTROL \"\", 4001, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 24, 12, 40, 12\n  CONTROL \"\", 4002, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 200, 12, 144, 40\n  CONTROL \"\", 4003, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 24, 48, 140, 12\nEND\n\nCDT_CLIENTE_ENDERECO DIALOGEX DISCARDABLE 6, 18, 396, 134\nSTYLE WS_CHILD|DS_3DLOOK|WS_VISIBLE\nCAPTION \"Dialog\"\nFONT 8, \"MS Sans Serif\", 0, 0, 1\nBEGIN\nEND\n\nCDT_CLIENTE_FISCAL DIALOGEX DISCARDABLE 6, 18, 396, 134\nSTYLE WS_CHILD|DS_3DLOOK|WS_VISIBLE\nCAPTION \"Dialog\"\nFONT 8, \"MS Sans Serif\", 0, 0, 1\nBEGIN\n  CONTROL \"\", 4001, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 112, 28, 168, 44\nEND\n//-----------------------------------------------------------','',0,'AIA=','2h4njptt',1,1172526138,'',962,1,0),(27295,6112,3,962,0,'200.161.190.100',1172377210,1,0,1,1,1,1,'','Object associate Handle Window with ClassName = &quot;#32770','Sorry my English <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPlease Antonio Linares,\n\nFindObject( GetActivateWindow() ), not found the Handle in GetAllWin(), when Handle active Window belong ClassName = \"#32770\" \n\nAlways return correctly, when the handle is control with focus, FindObject( GetFocus()). \n-------------------------------------------------------------------------- \nMontei uma rotina de propósito geral, onde pesquiso o handle do controle informado(ou ativo), e retorno o objeto associado. \nCaso eu procure o controle que esta em foco, sempre encontra corretamente. \n[code:170in8bn]\n/**************************************************** \nRetorna o objeto associado ao Handle informado&#46; \nReturn Object associate to Handle argument&#46; \n****************************************************/ \nfunction FindObject&#40; nHandle &#41; // =&gt; oControl \nTypeU nHandle Def GetFocus&#40;&#41; \nreturn FindObj&#40; nHandle, GetAllWin&#40;&#41; &#41; \n\n/**************************************************** \nFaz a pesquisa recursiva \nFind recursive \n****************************************************/ \nstatic function FindObj&#40; nHandle, oSource &#41; // oControl \nlocal oControl \n\nif ValTypeA&#40;oSource&#41; \n   AEVAL&#40; oSource, &#123;|o,x| x&#58;=FindObj&#40;nHandle,o&#41;, oControl&#58;=if&#40;x=nil,oControl,x&#41; &#125;&#41; \n\nelseif ValTypeO&#40;oSource&#41; \n\n   if oSource&#58;hWnd = nHandle \n      oControl&#58;=oSource \n\n   elseif \'DIALOG\' $ oSource&#58;ClassName &#46;or&#46; ; \n          \'WINDOW\' $ oSource&#58;ClassName &#46;or&#46; ; \n          \'#32770\' $ oSource&#58;ClassName &#46;or&#46; ; \n          \'MDICHILD\' $ oSource&#58;ClassName &#46;or&#46; ; \n          \'MDIFRAME\' $ oSource&#58;ClassName \n\n      AEVAL&#40; oSource&#58;aControls, &#123;|o,x| x&#58;=FindObj&#40;nHandle,o&#41;, oControl&#58;=if&#40;x=nil,oControl,x&#41; &#125;&#41; \n\n   elseif \'FOLDER\' $ oSource&#58;ClassName &#46;or&#46; ; \n          \'PAGES\' $ oSource&#58;ClassName \n\n      AEVAL&#40; oSource&#58;aDialogs, &#123;|o,x| x&#58;=FindObj&#40;nHandle,o&#41;, oControl&#58;=if&#40;x=nil,oControl,x&#41; &#125;&#41; \n\n   endif \n\nendif \nreturn oControl \n\n/**************************************************** \nRetorna o Objeto da janela ativa \nRetorn object to Window active \n****************************************************/ \nfunction WindowObject&#40;&#41; // =&gt; oWindow \nreturn FindObject&#40; GetActiveWindow&#40;&#41; &#41; \n//****************************************************\n[/code:170in8bn]','',0,'AIA=','170in8bn',1,1173011963,'',962,1,0),(27296,6109,3,148,0,'196.205.181.122',1172385738,1,0,1,1,1,0,'','','a strange problem has occured . I did the syntax before . The reult of of program is a previous result of another machine serial not the serial entered . I do not have any other function withthe same name !!!!\n[code:f9bac0z2]\nSTATIC FUNCTION listmete&#40; oWnd &#41;\n*--------------------------\n\nlocal oDlg, oCol \n\nlocal oBrw\nlocal nfor,cFilter&#58;=&quot;&quot;,bFilter&#58;=&quot;&quot;,x&#58;=&quot;&quot;\nlocal V_me_mc_serl&#58;= space&#40;7&#41;\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n\n\n\n\nselect 1\nUSE cust\nINDEX ON upper&#40;cust-&gt;cu_acct&#41; TO cust\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON upper&#40;cust-&gt;cu_appr&#41; TO cust10\nset INDEX TO cust\n\nselect 2\nUSE cont\nINDEX ON cont-&gt;CT_CU_ACCT+dtoc&#40;cont-&gt;ct_strd&#41; TO cont\nINDEX ON cont-&gt;CT_CU_acct TO cont1\nINDEX ON cont-&gt;ct_strd TO cont2\nINDEX ON cont-&gt;ct_endd TO cont3\nINDEX ON cont-&gt;CT_machno TO cont4\nINDEX ON cont-&gt;CT_mamc TO cont5\nINDEX ON cont-&gt;ct_paymet TO cont6\nINDEX ON cont-&gt;ct_payamt TO cont7\nINDEX ON cont-&gt;ct_currenc TO cont8\nINDEX ON cont-&gt;ct_excmet TO cont9\nINDEX ON cont-&gt;ct_excamt TO cont10\nINDEX ON cont-&gt;ct_minvol TO cont11\nINDEX ON cont-&gt;ct_ctna TO cont12\nSET INDEX TO cont1\n\nselect 3\nuse mach\nindex on mach-&gt;MC_CU_ACCT to mach\nindex on UPPER&#40;mach-&gt;MC_CU_name&#41; to mach1\nindex on UPPER&#40;mach-&gt;MC_ct_ctna&#41; to mach2\nindex on UPPER&#40;mach-&gt;MC_model&#41; to mach3\nindex on UPPER&#40;mach-&gt;MC_TYPE&#41;+UPPER&#40;mach-&gt;MC_model&#41; to mach4\nindex on &#40;mach-&gt;MC_serial&#41; to mach5\nindex on UPPER&#40;mach-&gt;MC_meres&#41; to mach6\nindex on UPPER&#40;mach-&gt;MC_brn&#41; to mach7\nindex on UPPER&#40;mach-&gt;MC_gateway&#41; to mach8\nset index to mach5\ngo top\n\nselect 4\nuse mete\nindex on mete-&gt;ME_mc_serl to mete\nindex on str&#40;mete-&gt;year&#41; + str&#40;mete-&gt;month&#41; to mete1\nindex on mete-&gt;me_date to mete2\nset index to mete\n\n\nif MsgGet&#40; &quot;Serial Machine&quot;, &quot;Enter Serial Machine&quot;, @V_me_mc_serl,;\n              &quot;&#46;&#46;\\lupa&#46;bmp&quot; &#41;\n      select 3\n      use mach\n      set index to mach5\n      MSGINFO&#40;IndexKey&#40;&#41;&#41; \n      if ! DbSeek&#40; &#40;V_me_mc_serl &#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that serial&quot; &#41;\n      endif\n   endif\n\n\n\n? V_me_mc_serl\ncFilter &#58;=&quot;mete-&gt;me_mc_serl&quot; + \'==&quot;\' + &#40;V_me_mc_serl&#41; + \'&quot;\'\n\n? cFilter \nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n? bFilter \n\n/*select 4\nuse mete\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\nmete-&gt;&#40;DBGOTOP&#40;&#41;&#41;*/\n*V_me_mc_serl&#58;=&quot;0731370&quot;\nselect 4 \nuse mete \nDBSETFILTER&#40; &#123;| | 4-&gt;me_mc_serl == V_me_mc_serl &#125;,; \n&quot;4-&gt;me_mc_serl == V_me_mc_serl&quot; &#41; \n4-&gt;&#40;DBGOTOP&#40;&#41;&#41; \n\n\n   DEFINE DIALOG oDlg of oWnd FROM 0,0 TO 45,128 TITLE &quot;Meter reads browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n\n\n   if nFor=27\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n\n   *oBrw&#58;CreateFromCode&#40;&#41;\n   *oBrw&#58;UpStable&#40;&#41;           // Corrects same page stabilizing Bug\n   oBrw&#58;Refresh&#40;&#46;t&#46;&#41;            // Repaint the ListBox\n\n\n\n\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;,BuildButtons&#40; oDlg &#41;,oDlg&#58;Refresh&#40;&#46;t&#46;&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;&#41;\n\nRETURN NIL\n[/code:f9bac0z2]','',0,'AIA=','f9bac0z2',1,0,'',148,0,0),(27297,6109,3,138,0,'200.65.139.124',1172388627,1,0,1,1,1,1,'','','[b:2htksdaz]DON\'T USE VARIABLE NAMES IN THE FILTERS !!!!!!![/b:2htksdaz]\n\nI\'ve been told it THOSANDS OF TIMES !!!!!!!!\n\nADS cannot resolve what is INSIDE your program, if you use ALIAS in your field names, ADS cannot go inside you program to see the value of \"mete-&gt;\" so it cannot resolve the filter expression.\n\nYou also have an error when creating indexes, Don\'t use ALIAS, Alias should be used only in the program to make reference to the data fields, but not in indexes or any other operation.','',0,'QA==','2htksdaz',1,0,'',138,0,0),(27298,6112,3,2,0,'87.218.146.170',1172395240,1,0,1,1,1,1,'','','Éric,\n\nClass \"#32770\" is a standard Windows Class that is used to create the dialogboxes.\n\nFW does not include the dialogs inside the returned array from GetAllWin() because the dialogos don\'t get replaced theirs windows procedures, as we just store there the windows and controls that have changed their procedures.\n\nI guess that you want to find a dialog given its window handle, right ?','',0,'QA==','6uyaft4b',1,0,'',2,0,0),(27299,6108,6,2,0,'87.218.146.170',1172395464,1,0,1,1,1,1,'','','Luis,\n\nSí, claro que se puede. Entiendo que esas DLLs construyen unos controles, en C ó C++, y que quereis usarlos desde FWH.\n\nLo que teneis que hacer es crear una clase nueva derivada de TControl que para crear el control llame a la función correspondiente de la DLL.\n\nQue funciones exporta la DLL y cuales son sus parámetros ?','',0,'QA==','3hl5zotw',1,0,'',2,0,0),(27300,6104,6,2,0,'87.218.146.170',1172395746,1,0,1,1,1,1,'','','William,\n\nTe refieres a su índice dentro de los items definidos ?\n\nAScan( oMsgBar:aItem, { | oItem | oItem == oItemBuscado } )\n\nó a sus coordenadas ?\n\n::nLeft y ::nLeft + ::nWidth','',0,'QA==','36ka3bw1',1,0,'',2,0,0),(27301,6107,3,2,0,'87.218.146.170',1172395808,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=27299#27299\">http://fivetechsoft.com/forums/viewtopi ... 7299#27299</a><!-- m -->','',0,'QA==','ybf2v5xa',1,0,'',2,0,0),(27302,6112,3,962,0,'200.161.190.100',1172396192,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2zxu44az]Éric,\n\nClass \"#32770\" is a standard Windows Class that is used to create the dialogboxes.\n\nFW does not include the dialogs inside the returned array from GetAllWin() because the dialogos don\'t get replaced theirs windows procedures, as we just store there the windows and controls that have changed their procedures.\n\nI guess that you want to find a dialog given its window handle, right ?[/quote:2zxu44az]\n\nSim.\nDependendo da rotina, gostaria de acessar todos os controles do Dialogo atual. Como eu faço ?\n/*\nYes, depend routine, need access objects all control of Dialog. How resolve ?\n*/\nregards.','',0,'gA==','2zxu44az',1,0,'',962,0,0),(27303,6113,6,413,0,'217.125.9.228',1172402587,1,0,1,1,1,0,'','Como se hace un globo en tbar or toolbar','He visto el mensaje de rossini sobre como hacer un globo (balloon) en un get y creo haber leido que tanto en una tbar como en rebar tambien se puede hacer que aparezcan los tooltip en forma de globos pero no encuentro ninguna condicion lToolTipBallon   := .t. en la tbar, como se hace ?\n\nGracias','',0,'gA==','t8td1l79',1,1172422825,'',413,1,0),(27304,6112,3,2,0,'87.218.146.170',1172406113,1,0,1,1,1,1,'','','Éric,\n[code:xkffk7l3]\nAEval&#40; oDlg&#58;aControls, &#123; | oControl | &#46;&#46;&#46; &#125; &#41;\n\nor\n\nfor n = 1 to Len&#40; oDlg&#58;aControls &#41;\n   &#46;&#46;&#46; oDlg&#58;aControls&#91; n &#93; &#46;&#46;&#46;\nnext\n[/code:xkffk7l3]','',0,'AIA=','xkffk7l3',1,0,'',2,0,0),(27305,6113,6,2,0,'87.218.146.170',1172406198,1,0,1,1,1,1,'','','Andrés,\n[code:3qrcxek2]\n   DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 ; // 50, 50 ;\n      IMAGELIST oImageList BALLOON // tooltips balloon style\n[/code:3qrcxek2]','',0,'AIA=','3qrcxek2',1,0,'',2,0,0),(27306,6072,3,6,0,'87.3.184.99',1172409590,1,0,1,1,1,1,'','','James, thanks to your help I found what the problem was: it works fine if you use FROM USER clause but no if you remove it. Without FROM USER clause the image seems not to be embedded.\n\nCan you try it there?\n\nEMG','',0,'AIA=','y2xmejsp',1,0,'',6,0,0),(27307,6112,3,962,0,'200.161.190.100',1172409878,1,0,1,1,1,1,'','','of course... oDlg:aControls.... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nbut, how found object of Dialogs \"#32770\" ? have only handle of Dialog active.\n\nthanks !!','',0,'AIA=','3l1elb2t',1,0,'',962,0,0),(27308,6114,3,69,0,'74.13.32.66',1172414518,1,0,1,1,1,0,'','Excel Question','Hi Everybody,\n\nDoes anyone know how to force a \"Page Break\" in Excel via FW ?\n\n\nThanks,\n\nJeff','',0,'AIA=','3lurk4gv',1,0,'',69,0,0),(27309,5854,3,930,0,'137.224.10.105',1172415993,1,0,1,1,1,0,'','','Antonio,\n\nI am experiencing the same problem with the treeview in combination with the manifest file. A fix would be most welcome.\nRegards,\nStephan','',0,'AIA=','y0y38i8n',1,0,'',930,0,0),(27310,6072,3,303,0,'72.199.41.171',1172416865,1,0,1,1,1,0,'','','Enrico,\n\nYes, I confirm that if you don\'t use the FROM USER clause, the image is not included, only the link. This seems to be a bug in OE.\n\nI found that there is a setting under Tools, Options, Send tab, Mail Sending Format, HTML Settings button, that has a checkbox \"Send Pictures with messages\" and it is checked. However, this seems to be being ignored when sending without user interaction.\n\nJames','',0,'AIA=','135x3h92',1,0,'',303,0,0),(27311,6072,3,6,0,'87.19.15.54',1172417074,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'AIA=','1kmz6iw7',1,0,'',6,0,0),(27312,6109,3,303,0,'72.199.41.171',1172417230,1,0,1,1,1,0,'','','Rene,\n\n&gt;You also have an error when creating indexes, Don\'t use ALIAS, Alias should be used only in the program to make reference to the data fields, but not in indexes or [b:3kll0m2h]any other operation.[/b:3kll0m2h]\n\nAre you saying that with ADS you cannot do something like:\n\n(cAlias)-&gt;(eof())\n\nIf not, how does ADS keep track of workareas?\n\n(I have never used ADS.)\n\nJames','',0,'QA==','3kll0m2h',1,0,'',303,0,0),(27313,6114,3,6,0,'87.19.15.54',1172417514,1,0,1,1,1,1,'','Re: Excel Question','This is a working sample:\n\n[code:1sqvo8f3]#define xlPageBreakManual -4135\n#define xlPageBreakNone -4142\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel &#58;= CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    LOCAL oSheet\n\n    oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    oSheet = oExcel&#58;ActiveSheet\n\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Value = &quot;This is the first page&quot;\n\n    oSheet&#58;Rows&#40; 2 &#41;&#58;PageBreak = xlPageBreakManual\n\n    oSheet&#58;Cells&#40; 2, 1 &#41;&#58;Value = &quot;This is the second page&quot;\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:1sqvo8f3]\n\nEMG','',0,'AIA=','1sqvo8f3',1,0,'',6,0,0),(27314,6114,3,69,0,'74.13.32.66',1172418171,1,0,1,1,1,0,'','','Thanks Enrico\n\nI did some more searching and also found the solution:\n(similar to yours)\n\noSheet:Rows( nTopPage ):Set(\"PageBreak\",-4135)\n\nWhat does the xlPageBreakNone do?\n\n\nAlso,  for anyone who is interested,  I found a list of the disserent numbers associated with the excel commands (scroll down about 1/4 of the page):\n\n\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://nerds-central.blogspot.com/2007_01_21_archive.html\">http://nerds-central.blogspot.com/2007_ ... chive.html</a><!-- m -->\n[/url]\n\n\nJeff','',0,'','15h425rf',1,0,'',69,0,0),(27315,6114,3,6,0,'87.19.15.54',1172418630,1,0,1,1,1,1,'','','[quote=&quot;Jeff Barnes&quot;:2ul7qwp5]What does the xlPageBreakNone do?[/quote:2ul7qwp5]\n\nIt removes the page break, what else? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','2ul7qwp5',1,0,'',6,0,0),(27316,6105,4,3,0,'82.65.128.215',1172421160,1,0,1,1,1,1,'','Maybe a sloution ? Font problem ?','Anonio\n\nThis is the last test i did, here is the code\n\n#include \"C:\\FWPPC\\INCLUDE\\FWCE.ch\"\n\n#define GENERIC_READ    0x80000000\n#define GENERIC_WRITE   0x40000000\n#define GENERIC_REWRITE 0xC0000000\n#define OPEN_EXISTING   3\n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n#define FILE_FLAG_OVERLAPPED  0x40000000\n\nfunction Main()\nLOCAL HOUT1,CFILE\n\ncfile   := CurDir() + \"TEST.txt\"\nIF FILE(CFILE)\n   ferase(cfile)\nENDIF\n\nHOUT1 := fCreate( cFile )\nFWRITE( HOUT1, \"THIS IS A NON ACCENTED LINE\" + CRLF )\nFWRITE( HOUT1, \"àéè€ù° Accented LINE\" + CRLF )\nfClose( hOut1 )\n\nSendblue( MemoRead(cfile))\n\n// SENDBLUE(\"àéè€ù° Accented LINE\") THIS DOES NOT WORK ACCENTED CHARS DO NOT SHOW\n\nRETURN Nil\n\n\nSTATIC FUNCTION SENDBLUE(ctext)\nLOCAL i, hOut\n\nhOut := CreateFile( \"COM5:\",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\nIF hOut==-1\n   MsgStop(\"Port Not Found\")\n ELSE\n   FOR i = 1 TO Len( cText )\n      WriteByte( hOut, Asc(SubStr( cText, i, 1 ) ) )\n   NEXT\n   CloseHandle( hOut )\nENDIF\nreturn nil\n\n\n\nThe printout direct from fwppc is bad , i have scanned it , you can see it at\n\n<!-- w --><a class=\"postlink\" href=\"http://www.cbati.com/fwppc.jpg\">www.cbati.com/fwppc.jpg</a><!-- w -->\n\n\nThe printout that comes out of the txt file is OK you can see it at \n\n<!-- w --><a class=\"postlink\" href=\"http://www.cbati.com/txt.jpg\">www.cbati.com/txt.jpg</a><!-- w -->\n\n\nNow just a confirmation, as far as i know, Ascii codes are related to fonts, Isn\'t it so ? What is the default font set by the pocket and how to change it to \"courrier new\" for instance before transmitting ?\n\nCan this be the problem ?\n\nThanks for the reply \n\nRichard','',0,'gA==','13skw3e9',1,0,'',3,0,0),(27317,6113,6,413,0,'217.125.9.228',1172423185,1,0,1,1,1,0,'','','perdona Antonio lo que pasa es que igual me habia expresado mal, me refiero al siguiente codigo que depende de la tbar:\n\n[code:l2wfiovu]\n   DEFINE BUTTONBAR &#58;&#58;oBar _3D SIZE 44, 46 OF &#58;&#58;oWndMain //36, 40\n         \n      &#58;&#58;oBar&#58;bRClicked &#58;= &#123; || &#46;t&#46; &#125;\n\n   DEFINE BUTTON OF &#58;&#58;oBar ;\n      RESOURCE &quot;BB1&quot;       ;\n      TOOLTIP i18n&#40; &quot;Gestión de documentos&quot; &#41; ;\n      MESSAGE i18n&#40; &quot;Gestión de del fichero de documentos&#46;&quot; &#41; ;\n      ACTION Customer&#40;&#41;   ;\n      NOBORDER\n\n   DEFINE BUTTON &#58;&#58;oExit OF &#58;&#58;oBar  ;\n      RESOURCE &quot;BB2&quot;      ;\n      TOOLTIP i18n&#40; &quot;Salir del programa&quot; &#41; ;\n      MESSAGE i18n&#40; &quot;Finalizar el uso del programa&#46;&quot; &#41; ;\n      ACTION &#40; &#58;&#58;ExitFromBtn&#40;&#41; &#41; ;\n      GROUP NOBORDER\n\n[/code:l2wfiovu]\n\nen el include viene de la siguiente manera:\n\n[code:l2wfiovu]#xcommand DEFINE BUTTONBAR &#91; &lt;oBar&gt; &#93; ;\n             &#91; &lt;size&#58; SIZE, BUTTONSIZE, SIZEBUTTON &gt; &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ;\n             &#91; &lt;_3d&#58; _3D, 3D, 3DLOOK, _3DLOOK&gt; &#93; ;\n             &#91; &lt;mode&#58; TOP, LEFT, RIGHT, BOTTOM, FLOAT&gt; &#93; ;\n             &#91; &lt;wnd&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; CURSOR &lt;oCursor&gt; &#93; ;\n      =&gt; ;\n         &#91; &lt;oBar&gt; &#58;= &#93; TBar&#40;&#41;&#58;New&#40; &lt;oWnd&gt;, &lt;nWidth&gt;, &lt;nHeight&gt;, &lt;&#46;_3d&#46;&gt;,;\n             &#91; Upper&#40;&lt;&#40;mode&#41;&gt;&#41; &#93;, &lt;oCursor&gt; &#41;\n\n\n#xcommand DEFINE BUTTON &#91; &lt;oBtn&gt; &#93; ;\n             &#91; &lt;bar&#58; OF, BUTTONBAR &gt; &lt;oBar&gt; &#93; ;\n             &#91; &lt;resource&#58; NAME, RESNAME, RESOURCE&gt; &lt;cResName1&gt; ;\n                &#91;,&lt;cResName2&gt;&#91;,&lt;cResName3&gt;&#93; &#93; &#93; ;\n             &#91; &lt;file&#58; FILE, FILENAME, DISK&gt; &lt;cBmpFile1&gt; ;\n                &#91;,&lt;cBmpFile2&gt;&#91;,&lt;cBmpFile3&gt;&#93; &#93; &#93; ;\n             &#91; &lt;action&#58;ACTION,EXEC&gt; &lt;uAction,&#46;&#46;&#46;&gt; &#93; ;\n             &#91; &lt;group&#58; GROUP &gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; &lt;adjust&#58; ADJUST &gt; &#93; ;\n             &#91; WHEN &lt;WhenFunc&gt; &#93; ;\n             &#91; TOOLTIP &lt;cToolTip&gt; &#93; ;\n             &#91; &lt;lPressed&#58; PRESSED&gt; &#93; ;\n             &#91; ON DROP &lt;bDrop&gt; &#93; ;\n             &#91; AT &lt;nPos&gt; &#93; ;\n             &#91; PROMPT &lt;cPrompt&gt; &#93; ;\n             &#91; FONT &lt;oFont&gt; &#93; ;\n             &#91; &lt;lNoBorder&#58; NOBORDER, FLAT&gt; &#93; ;\n             &#91; MENU &lt;oPopup&gt; &#93; ;\n             &#91; &lt;layout&#58; CENTER, TOP, LEFT, BOTTOM, RIGHT&gt; &#93; ;\n      =&gt; ;\n         &#91; &lt;oBtn&gt; &#58;= &#93; TBtnBmp&#40;&#41;&#58;NewBar&#40; &lt;cResName1&gt;, &lt;cResName2&gt;,;\n            &lt;cBmpFile1&gt;, &lt;cBmpFile2&gt;, &lt;cMsg&gt;, &#91;&#123;|This|&lt;uAction&gt;&#125;&#93;,;\n            &lt;&#46;group&#46;&gt;, &lt;oBar&gt;, &lt;&#46;adjust&#46;&gt;, &lt;&#123;WhenFunc&#125;&gt;,;\n            &lt;cToolTip&gt;, &lt;&#46;lPressed&#46;&gt;, &#91;\\&#123;||&lt;bDrop&gt;\\&#125;&#93;, &#91;#&lt;uAction&gt;&#93;, &lt;nPos&gt;,;\n            &lt;cPrompt&gt;, &lt;oFont&gt;, &#91;&lt;cResName3&gt;&#93;, &#91;&lt;cBmpFile3&gt;&#93;, &#91;!&lt;&#46;lNoBorder&#46;&gt;&#93;,;\n            &#91;&lt;oPopup&gt;&#93;, &#91; Upper&#40;&lt;&#40;layout&#41;&gt;&#41; &#93; &#41;\n[/code:l2wfiovu]\nAqui no encuentro ninguna clausula balloon','',0,'AIA=','l2wfiovu',1,0,'',413,0,0),(27319,6115,6,73,0,'201.165.169.196',1172423535,1,0,1,1,1,0,'','info sobre mediator ...','pues eso, alguien ha usado mediator?, creo que se pueden seguir usando las dbf y cdx bajo mediator como ambiente sql, alguien que comparta alguna experiencia, lo que pasa es que en los desarrollos que voy a hacer tengo un win server 2003, entonces estoy con la disyuntiva, uso dbf y cdx puro, le elntro a tablas de mysql, o dbf y cdx bajo mediator...\nsalu2\npaco','',0,'AIA=','3foo1rmq',1,0,'',73,0,0),(27320,6111,3,397,0,'201.27.234.100',1172425356,1,0,1,0,1,1,'','','See the sample below\n[code:22qkud38]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n\n   local oDlg, cCombo &#58;= &quot;3&quot;\n   local aItems &#58;= &#123; &quot;1 - Um&quot;, &quot;2 - Dois&quot;, &quot;3 - Tres&quot;, &quot;4 - Quatro&quot; &#125;\n\n   cCombo &#58;= mascan&#40; aItems, cCombo &#41;\n\n   DEFINE DIALOG oDlg FROM 2, 2 TO 18, 60 TITLE &quot;Test&quot; ;\n          STYLE nOr&#40; DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 &#41;\n\n          @ 2, 2 COMBOBOX cCombo ;\n                 ITEMS aItems SIZE 200, 100 ;\n                 ON DRAWITEM &#40;cCombo &#58;= mascan&#40; aItems, cCombo &#41;, oCombo&#58;Refresh&#40;&#41;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nfunction mascan&#40; aItems, cString &#41;\n   nLArray  &#58;= len&#40; aItems &#41;\n   nLString &#58;= len&#40; cString &#41;\n   for i = 1 to nLArray\n       if substr&#40;aItems&#91;i&#93;,1,nLString&#41; = cString\n          return aItems&#91;i&#93;\n       endif\n   next\n   return &quot;&quot;\n[/code:22qkud38]\n\nImprove it!','',0,'AIA=','22qkud38',1,0,'',397,0,0),(27321,6116,6,913,0,'189.136.165.113',1172428690,1,0,1,1,1,1,'','PONER UN COMBOBOX EN UN TOOLBAR COMO LE HAGO?','Hola <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nme podrian ayudar nesecito poner un combobox en un toolbar\n\nplease me ayudan ya prove de muchas maneras pero no encuentro la correcta <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n\nSaluditos <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nAida','',0,'AIA=','1zljd2bi',1,0,'',913,0,0),(27322,6099,3,308,0,'84.148.28.93',1172431763,1,0,1,1,1,0,'','Re: CC and BCC in Outlook','[quote=&quot;EnricoMaria&quot;:1psyzq0w]oMail:CC = \"...\"\noMail:BCC = \"...\"\n\nEMG[/quote:1psyzq0w]\n\nMany thanks, it works\n\nRegards, Norbert','',0,'gA==','1psyzq0w',1,0,'',308,0,0),(27323,6112,3,2,0,'87.218.146.170',1172435158,1,0,1,1,1,1,'','','Éric,\n\nFWH does not provide yet a function to retrieve a dialog object given its window handle\n\nAhyhow, given any window handle you can check all its controls using GetWindow()\n[code:1rmwdgvl]\n   local hCtrl &#58;= GetWindow&#40; hWnd, GW_CHILD &#41; \n\n   while hCtrl != 0 \n      if GetClassName&#40; hCtrl &#41; == &quot;Static&quot;  // SAY \n         &#46;&#46;&#46; \n      endif \n      hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41; \n   end \n[/code:1rmwdgvl]','',0,'AIA=','1rmwdgvl',1,0,'',2,0,0),(27325,6105,4,2,0,'87.218.146.170',1172435740,1,0,1,1,1,1,'','','Richard,\n\n&gt; Ascii codes are related to fonts, Isn\'t it so ?\n\nAscii codes are numbers from 0 to 255, to select a char from the used chars table (of a font). \n\nThe used font must be selected from the bluetooth printer. I guess we can not select it from the Pocket PC as we are just sending bytes to a \"file\", unless some combination of them may specify to use a special font for the bluetooth printer. I may be wrong','',0,'AIA=','2dbvifq1',1,0,'',2,0,0),(27326,6113,6,2,0,'87.218.146.170',1172435914,1,0,1,1,1,1,'','','Andrés,\n\nSólo está implementado genericamente para las toolbars de Win32.\n\nPuedes modificar la clase TWindow para que todos los tooltips se vean tipo balloon, pero no se si querrás ese efecto','',0,'AIA=','3frgcfjq',1,0,'',2,0,0),(27327,6116,6,456,0,'217.124.41.177',1172436127,1,0,1,1,1,1,'','','[code:2fq74tka]\n@ 0&#46;5,65 COMBOBOX oCbx VAR cCBx  OF oToolBar PROMPTS aCbx SIZE 120,80 &#46;&#46;&#46;&#46;\n[/code:2fq74tka]\n\nEl comando normal del combobox  [b:2fq74tka]OF oToolBar[/b:2fq74tka], sin mas debiera funcionarte correctamente.','',0,'QIA=','2fq74tka',1,0,'',456,0,0),(27328,3391,6,913,0,'189.136.165.113',1172436690,1,0,1,1,1,1,'','me salen herrores en tgsay','Hola encontre en el foro  la clase TGSAY de manuramos pero me salen herrores los pongo aqui aver si me ayudan porfis me gustaria poder usarla <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\naqui estan los herrores <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nC:\\FWH\\aida\\tgsay.prg(68) Error E0030  Syntax error: \"parse error at \'NORIG\'\"   \n\nC:\\FWH\\aida\\tgsay.prg(69) Error E0030  Syntax error: \"parse error at \'NUMBER\'\" \n\n\nC:\\FWH\\aida\\tgsay.prg(74) Error E0030  Syntax error: \"parse error at \'NUMBER\'\"  \n\n\nC:\\FWH\\aida\\tgsay.prg(110) Error E0030  Syntax error: \"parse error at \'&lt;\'\"    \n\n\nC:\\FWH\\aida\\tgsay.prg(124) Error E0030  Syntax error: \"parse error at \'endif\'\" \n\n\nGracias por su ayuda\n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QIA=','1tbltlge',1,0,'',913,0,0),(27329,6116,6,913,0,'189.136.165.113',1172438018,1,0,1,1,1,1,'','HOLA','HOLA \n\nya lo puse como me indicaste si aparece en la barra pero me sale un herror <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nError Base/1132 Boun error: array access from Errosys,line 0\n\na si estoy poniendo la barra\n\nDEFINE WINDOW oWnd FROM 2, 2 TO 35, 85  TITLE \"Aida Control de Polizas V 1.00 2007\" Color nRgb(230, 230, 250  ),nRgb( 132, 112, 255)  ;\n	 MENU BuildMenu()\n\n	 //***************************     Color nRgb(230, 230, 250  ),nRgb( 132, 112, 255)\n\n	 oImgList1 = TImageList():New( 46, 46 ) // width and height of bitmaps\n\n   oImgList1:AddMasked( TBitmap():Define( \"doctor1\",,    oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList1:AddMasked( TBitmap():Define( \"disks\",,   oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList1:AddMasked( TBitmap():Define( \"gmm\",, oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList1:AddMasked( TBitmap():Define( \"danos\",,  oWnd ), nRGB( 255, 0, 255 ) )\n	 oImgList1:AddMasked( TBitmap():Define( \"reno\",,  oWnd ), nRGB( 255, 0, 255 ) )\n\n   oImgList2 = TImageList():New( 32, 32 ) // width and height of bitmaps\n   oImgList2:AddMasked( TBitmap():Define( \"internet\",, oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList2:AddMasked( TBitmap():Define( \"keys\",, oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList2:AddMasked( TBitmap():Define( \"quit\",, oWnd ), nRGB( 255, 0, 255 ) )\n\n   // Now we create the rebar\n\n	    oReBar = TReBar():New( oWnd )\n\n   // Now we create the toolbars and add the buttons\n   oToolBar1 = TToolBar():New( oReBar, 70, 70, oImgList1 )\n   oToolBar1:AddButton( { || Main2() }, \"Mantenimiento de bases de datos\", \"Mantenimiento\" )\n   oToolBar1:AddButton( { || MIPDF()}, \"Respaldar bases de datos\", \"Respaldo\" )\n   oToolBar1:AddSeparator()\n   oToolBar1:AddButton( { || explora()}, \"Polizas GMM\", \"GMM\" )\n   oToolBar1:AddButton( { || AREPORTE() }, \"Polizas Daños\", \"Daños\" )\n	 oToolBar1:AddSeparator()\n	// oToolBar1:AddButton( { || AREPORTE() }, \"Renovaciones de Polizas\", \"Renueva\" )\n	// oToolBar1:AddButton( { ||  BuildPDF( \"PAGOS.RPT\",\"MIPDF.PDF\" ) }, \"Renovaciones de Polizas\", \"PDF\" )\n	 //oToolBar1:AddButton( { || alert(hWDsk)}, \"Adicionar Ciudades\", \"Ciudad\" )\n\n\n   oToolBar2 = TToolBar():New( oReBar, 70, 70, oImgList2 )\n	 oToolBar2:AddButton( { || navega() }, \"Checar nuevas versiones\",;\n                       \"Upgrade...\" )\n   oToolBar2:AddButton( { || ordenaA() }, \"Users management\", \"Users\" )\n   oToolBar2:AddSeparator()\n   oToolBar2:AddButton( { || oWnd:End() }, \"Fin del programa\", \"Salida\" )\n\n   // We set the widths for each toolbar\n   oToolBar1:nWidth = 290\n   oToolBar2:nWidth = 290\n\n   // Now we insert the toolbars into the rebar\n   oReBar:InsertBand( oToolBar1 )\n   oReBar:InsertBand( oToolBar2 )\n\n\n\n\n   DEFINE STATUSBAR OF oWnd PROMPT \"Programacion Aida 2007\"\n\n\n\n //@ 2,100 combobox cAcom var listb items cuadros of oWnd size 70,20\n\n @ 2,100  COMBOBOX cAcom VAR listb  OF oToolBar1 PROMPTS cuadros SIZE 120,80\n\n\nGracias por tu ayuda\n\nAida <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QIA=','15whtpcq',1,0,'',913,0,0),(27330,5976,6,913,0,'189.136.165.113',1172438838,1,0,1,1,1,1,'','Gracias!!!!!!','Gracias Rochinha <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nsi me sirvio de mucho <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  \n\nque lindo Gracias\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QIA=','3hhpk3dt',1,0,'',913,0,0),(27331,5929,6,913,0,'189.136.165.113',1172438978,1,0,1,1,1,1,'','Ya funciona','Ya funciona no se como, ni le modifique ni nada pero depronto ya funciono sin herrores <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\n\nGracias de todas maneras\n\nAida <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QIA=','1i679qc8',1,0,'',913,0,0),(27332,6105,4,3,0,'82.249.61.78',1172439325,1,0,1,1,1,1,'','','Antonio\n\nOpen UESTUDIO, VIEW, ASCII TABLE\n\nCode 233 is OK in major fonts and it displays é  correct\n\nSelect \"Terminal\" as font and you will see that the retreived codes look a lot like what is being printed... This is what makes me think of a font problem.\n\nThe txt file you see the image in my previous post has been printed from the pocket pc through file explorer, send via bluetooth. So the printer can print the codes when coming from an ascii txt file.... If i could send automatically the txt file to the printer (like file explorer does), that would be great, but i have not found how. Any idea ? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'QIA=','ajlybgka',1,0,'',3,0,0),(27333,6111,3,962,0,'200.161.190.100',1172442646,1,0,1,1,1,1,'','','Set Translate Off...  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nOi Rochinha..\n\nO exemplo abaixo funciona somente na forma @...ComBoBox.\nNo modo Redefine nada é executado no ON DRAWITEM.\n\nNa forma @...ComboBox que postei, também funciona.\n\nO estranho, conforme especifiquei, se for uma variável comum (LOCAL cTipPes:=\'F\'), irá funcionar, mas se usar variável de instância para o CBX, dá problema.\n\nTô achando que é Bug mesmo.','',0,'QIA=','z6xokd5d',1,0,'',962,0,0),(27335,6114,3,69,0,'74.14.156.108',1172445840,1,0,1,1,1,0,'','','I figured that out as soon as I hit the send button  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nThanks Enrico.\n\n\n\nJeff','',0,'QIA=','2saxa3ed',1,0,'',69,0,0),(27336,6105,4,2,0,'87.218.146.170',1172447043,1,0,1,1,1,1,'','','Richard,\n\n&gt;\nSelect \"Terminal\" as font and you will see that the retreived codes look a lot like what is being printed... This is what makes me think of a font problem.\n&gt;\n\nOk, now I see what you mean. Have you checked if there is a way to set a default printer font from the printer side ?','',0,'QIA=','3mid2mjz',1,0,'',2,0,0),(27337,6106,6,121,0,'189.138.29.62',1172452965,1,0,1,1,1,1,'','','Hola Rene\n\nTampoco he podido compilar los menus\n\nMe gustaria me explicaras el procedimiento\npara poder incluir el gradfill\n\nGracias','',0,'QIA=','3miflonl',1,0,'',121,0,0),(27338,6116,6,913,0,'189.136.165.113',1172452992,1,0,1,1,1,1,'','ya casi funciona','HOLA\n\nya casi funciona  ahora si sale pero invisible  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  hasta que no le doy clik aparece en la barra\n\nasi lo puse\n\n oImgList1 = TImageList():New( 46, 46 ) // width and height of bitmaps\n\n   oImgList1:AddMasked( TBitmap():Define( \"doctor1\",,    oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList1:AddMasked( TBitmap():Define( \"disks\",,   oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList1:AddMasked( TBitmap():Define( \"gmm\",, oWnd ), nRGB( 255, 0, 255 ) )\n  // oImgList1:AddMasked( TBitmap():Define( \"danos\",,  oWnd ), nRGB( 255, 0, 255 ) )\n	// oImgList1:AddMasked( TBitmap():Define( \"reno\",,  oWnd ), nRGB( 255, 0, 255 ) )\n\n\n\n   oImgList2 = TImageList():New( 32, 32 ) // width and height of bitmaps\n   oImgList2:AddMasked( TBitmap():Define( \"internet\",, oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList2:AddMasked( TBitmap():Define( \"keys\",, oWnd ), nRGB( 255, 0, 255 ) )\n   oImgList2:AddMasked( TBitmap():Define( \"quit\",, oWnd ), nRGB( 255, 0, 255 ) )\n\n		 DEFINE STATUSBAR OF oWnd PROMPT \"Programacion Aida 2007\"\n\n\n	 @ 2,27 SENSITIVE SAY oSay PROMPT \"Buscar Poliza :   \" OF oToolBar1 ;\n             COLOR nRgb(0, 0, 0  )//,nRgb( 132, 112, 255)\n\n	 @ 2.50,35 Get oGet var getbuca OF oWnd size 120,20\n\n\n	 	ramos:={\"AUTOS\",\"VIDA\",\"GMM\",\"DAÑOS\"}\n\n\n	   @ 2.32,52  COMBOBOX cAcom VAR listb PROMPTS ramos OF oToolBar1  SIZE 120,80\n\n   // Now we create the rebar\n\n	    oReBar = TReBar():New( oWnd )\n\n   // Now we create the toolbars and add the buttons\n   oToolBar1 = TToolBar():New( oReBar, 70, 70, oImgList1 )\n   oToolBar1:AddButton( { || Main2() }, \"Mantenimiento de bases de datos\", \"Mantenimiento\" )\n   oToolBar1:AddButton( { || MIPDF()}, \"Respaldar bases de datos\", \"Respaldo\" )\n   oToolBar1:AddSeparator()\n   //oToolBar1:AddButton( { || explora()}, \"Polizas GMM\", \"GMM\" )\n   //oToolBar1:AddButton( { || AREPORTE() }, \"Polizas Daños\", \"Daños\" )\n	 //oToolBar1:AddSeparator()\n	// oToolBar1:AddButton( { || AREPORTE() }, \"Renovaciones de Polizas\", \"Renueva\" )\n	// oToolBar1:AddButton( { ||  BuildPDF( \"PAGOS.RPT\",\"MIPDF.PDF\" ) }, \"RenovacXXXiones de Polizas\", \"PDF\" )\n	 //oToolBar1:AddButton( { || alert(hWDsk)}, \"Adicionar Ciudades\", \"Ciudad\" )\n\n\n   oToolBar2 = TToolBar():New( oReBar, 70, 70, oImgList2 )\n	 oToolBar2:AddButton( { || navega() }, \"Checar nuevas versiones\",;\n                       \"Upgrade...\" )\n   oToolBar2:AddButton( { || ordenaA() }, \"Users management\", \"Users\" )\n   oToolBar2:AddSeparator()\n   oToolBar2:AddButton( { || oWnd:End() }, \"Fin del programa\", \"Salida\" )\n\n   // We set the widths for each toolbar\n   oToolBar1:nWidth = 290\n   oToolBar2:nWidth = 290\n\n   // Now we insert the toolbars into the rebar\n   oReBar:InsertBand( oToolBar1 )\n   oReBar:InsertBand( oToolBar2 )\n\n\npor que sera que sale escondido en la barra <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\n\nSaludos\n\nAida','',0,'QIA=','mbdh6y7p',1,0,'',913,0,0),(27339,6118,6,52,0,'190.7.30.167',1172460652,1,0,1,1,1,1,'','donde estan definidas VK_RETURN, VK_ESC, etc.','Quiero saber donde puedo ver las definiciones...\n\nGracias.','',0,'QIA=','2958j6lf',1,0,'',52,0,0),(27340,6118,6,53,0,'189.139.11.102',1172460887,1,0,1,1,1,1,'','','Goos:\n\n\\FWH\\INCLUDE\\VKey.Ch\n\n\nSaludos','',0,'QIA=','brvsuh9c',1,0,'',53,0,0),(27341,6118,6,52,0,'190.7.30.167',1172461134,1,0,1,1,1,1,'','','gracias','',0,'QIA=','25tfdytb',1,0,'',52,0,0),(27342,6105,4,6,0,'82.57.160.165',1172477071,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:3jgjkb36]Code 233 is OK in major fonts and it displays é  correct[/quote:3jgjkb36]\n\nIf you are absolutely sure (how?) that the printer receives the correct code from the palmtop then it could mean that the printer itself expects a different code (ie. you have to make a conversion before sending the characters to it).\n\nEMG','',0,'gA==','3jgjkb36',1,0,'',6,0,0),(27343,6105,4,3,0,'82.124.251.70',1172480456,1,0,1,1,1,1,'','','Enrico\n\nMy fwppc app creates on the pocket pc a txt file containing accented chars like 223. \nPrinting on the pocket pc (not from fwppc) but from file explorer to the printer prints all the chars perfect ! \nThe chars can not be printed from fwppc and i suspect a font problem not from the printer ! There are no settings on the printer. I tested through 2  different printers and 4 different pocket pcs. i think the problem is in fwppc.  I hope someone else can test accented chars on Bluetooth printing and confirm the problem. Anyone ?\n\nEMG :&gt; you have to make a conversion before sending the characters to it\n\nThis is what i wanted to avoid . Very risky. \n\nI will abandon printing from fwppc till we find a correct solution and ask the users to select the txt file and print it via file explorer. I will search also if i can find a program that can send files to BT printer and see if it can be called from a fwppc app.\n\nI am not happy with this, it is the first time we deliver a problematic app ! And we have to deliver tomorrow !\n\nRichard','',0,'gA==','2uqlot8a',1,0,'',3,0,0),(27344,6098,6,46,0,'195.8.27.2',1172481187,1,0,1,1,1,0,'','','La que utilizo. es la que esta en utilidades (en este foro), es la que posteo Jose M.\n\nsalu2 <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'gA==','2hgg4e0y',1,0,'',46,0,0),(27345,6105,4,6,0,'82.57.160.165',1172481713,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:17icy7uo]Enrico\n\nMy fwppc app creates on the pocket pc a txt file containing accented chars like 223.[/quote:17icy7uo]\n\nIt\'s not the same as sending characters through bluetooth. You are still not sure what the printer really receives.\n\n[quote=&quot;Richard Chidiak&quot;:17icy7uo]Printing on the pocket pc (not from fwppc) but from file explorer to the printer prints all the chars perfect ! \nThe chars can not be printed from fwppc and i suspect a font problem not from the printer ![/quote:17icy7uo]\n\nIf the printer only receives ASCII characters then I can\'t see how font concept fits this scenario. We have to investigate, I repeat, on what exactly comes out from the bluetooth and I don\'t know of any other way than connecting the bluetooth cable to a PC and directly read and show each single character that is received.\n\nEMG','',0,'gA==','17icy7uo',1,0,'',6,0,0),(27346,6105,4,3,0,'82.124.251.70',1172483277,1,0,1,1,1,1,'','','Emg&gt;It\'s not the same as sending characters through bluetooth. You are still not sure what the printer really receives. \n\nThis has been tested also with the same result\n\nAs per Ascii chars, they are different with fonts !!!!\n\nLook at 223 ascii char forr example in Courrier new or Terminal font or system font, you will see it is displayed quite differently.\n\nEMG&gt;I repeat, on what exactly comes out from the bluetooth and I don\'t know of any other way than connecting the bluetooth cable to a PC and directly read and show each single character that is received. \n\nHow ? i have tried without success, any sample ? \n\nThanks for your help,\n\nRichard','',0,'gA==','1zsv9flc',1,0,'',3,0,0),(27347,6105,4,6,0,'82.57.160.165',1172484078,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:1r0pufyz]As per Ascii chars, they are different with fonts !!!![/quote:1r0pufyz]\n\nFont is not something related in any way to Ascii format. Ascii format is not something similar to RTF, PDF, DOC, etc. It is far simpler and not able to represent fonts.\n\n[quote=&quot;Richard Chidiak&quot;:1r0pufyz]Look at 223 ascii char forr example in Courrier new or Terminal font or system font, you will see it is displayed quite differently.[/quote:1r0pufyz]\n\nBut the printer still receives code 223 and there is nothing that the sender can do. If the printer really receives 223 from both bluetooth (via FWPPC) and text file (via Explorer) then it [b:1r0pufyz]has to[/b:1r0pufyz] print the same char. As long as the printed chars are different then the printer is clearly receiving different codes.\n\n[quote=&quot;Richard Chidiak&quot;:1r0pufyz]How ? i have tried without success, any sample ?[/quote:1r0pufyz]\n\nNo, sorry.\n\nEMG','',0,'wA==','1r0pufyz',1,0,'',6,0,0),(27348,6113,6,413,0,'194.106.16.43',1172491500,1,0,1,1,1,0,'','','He revisado la clase y se me hace muy complicado modificarla, sabes que es lo que tengo que añadir?\n\nGracias','',0,'wA==','125n3ur7',1,0,'',413,0,0),(27349,6119,3,86,0,'213.119.103.68',1172492336,1,0,1,1,1,1,'','Problem with accelerator keys','Hello,\n\nFor severeal of my menuitems I have defined accelerator keys.\n\nUnfortunately these accelerator keys sometimes don\'t work. It is not clear to me when the problems is occuring. Now, they are working, in a few minutes, they don\'t work anymore, and a few minutes later, they work again.\n\nIs this a known problem ? And what solution are you suggesting ?\n\nThank you.\n\nMichel','',0,'wA==','2ebcuvtw',1,0,'',86,0,0),(27350,6105,4,2,0,'87.218.146.213',1172493106,1,0,1,1,1,1,'','','Richard,\n\nIs there an online docs for your bluetooth printer ?\n\nThere has to be a way to change the used font on the printer','',0,'wA==','39jksu0b',1,0,'',2,0,0),(27351,6113,6,2,0,'87.218.146.213',1172493243,1,0,1,1,1,1,'','','Andrés,\n\nBusca esta línea en source\\classes\\window.prg\n\n         hWnd = CreateToolTip( Self:hWnd, cToolTip ) // , .t. ) for ballon tooltips !\n\nañadiendo ese \", .t. \" consigues los tooltips con forma de globo','',0,'wA==','1hifrogi',1,0,'',2,0,0),(27352,6119,3,2,0,'87.218.146.213',1172493317,1,0,1,1,1,1,'','','Michel,\n\nWhen they don\'t work, are there any open dialog or mdichild ?','',0,'wA==','325oeogb',1,0,'',2,0,0),(27353,6105,4,3,0,'82.124.251.70',1172496236,1,0,1,1,1,1,'','','Antonio\n\nThe printer is HP DESKJET 460 BT\n\nI am gonna check the docs at the customer\'s place to see if i can find something.\n\nStill puzzled ! Why File explorer does not need to set a default font ??\n\nThanks for the help','',0,'wA==','9y0dgmmn',1,0,'',3,0,0),(27354,6105,4,6,0,'87.13.209.186',1172497370,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:355vek7n]Still puzzled ! Why File explorer does not need to set a default font ??[/quote:355vek7n]\n\nFollowing my previous message, if the printer really receives code 223 then it has to be a printer setting. Perhaps File explorer sends additive control codes?\n\nEMG','',0,'gA==','355vek7n',1,0,'',6,0,0),(27355,6119,3,86,0,'213.119.103.68',1172498099,1,0,1,1,1,1,'','','Antonio,\n\nWhen the accelerator keys don\'t work, there aren\'t any open dialogs of MDIchilds.\n\nMichel','',0,'gA==','3ctoesim',1,0,'',86,0,0),(27356,6105,4,2,0,'87.218.146.213',1172498501,1,0,1,1,1,1,'','','Enrico,\n\nYes, I fully agree with you. It has to be that way','',0,'gA==','3m3deqos',1,0,'',2,0,0),(27357,6120,3,15,0,'203.70.52.83',1172500684,1,0,1,1,1,0,'','FWH can use Skin+PopupWindow ActiveX control','Hello\n\nI tested them and finished below:\n\nScreenshot 1( Office 2003 Style)\n[url=http&#58;//img208&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwndvc6&#46;jpg:2nz13s6h][img:2nz13s6h]http&#58;//img208&#46;imageshack&#46;us/img208/5326/fwhskinpopupwndvc6&#46;th&#46;jpg[/img:2nz13s6h][/url:2nz13s6h]\n\nScreenshot 2( MSN style)\n[url=http&#58;//img208&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd2xk6&#46;jpg:2nz13s6h][img:2nz13s6h]http&#58;//img208&#46;imageshack&#46;us/img208/5800/fwhskinpopupwnd2xk6&#46;th&#46;jpg[/img:2nz13s6h][/url:2nz13s6h]\n\nScreenshot 3(Full components)\n[url=http&#58;//img381&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd3uy8&#46;jpg:2nz13s6h][img:2nz13s6h]http&#58;//img381&#46;imageshack&#46;us/img381/4172/fwhskinpopupwnd3uy8&#46;th&#46;jpg[/img:2nz13s6h][/url:2nz13s6h]\n\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'GA==','2nz13s6h',1,0,'',15,0,0),(27358,6121,6,435,0,'200.155.196.210',1172502281,1,0,1,1,1,0,'','SayBitmap() problema na fwh 2.7','o SayBitmap() da TPrinter funciona na FWH e na FWH 2.7 a imagem sai tudo preta\n\na mesma imagem, tudo igual..quando compilo com FWH 2.7 aparece o problema.\n\né um problema de versao ?\n\nAri','',0,'GA==','3lqgbb2f',1,0,'',435,0,0),(27359,6114,3,343,0,'24.173.70.29',1172503265,1,0,1,1,1,0,'','','I have found that during printing and page break preview, it resets or ignores manual page breaks. \nI have found that the following code will make Excel calculate the page breaks and then override the ones you want.\n[code:u9ozzw3f]FUNCTION MAIN&#40;&#41;\n   LOCAL oExcel &#58;= CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n   LOCAL oSheet\n   oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oSheet = oExcel&#58;ActiveSheet\n   oExcel&#58;ActiveWindow&#58;View &#58;= 2\n  // View = 2 sets excel to page break preview mode&#46;\n   oSheet&#58;ResetAllPageBreaks&#40;&#41;\n   nTotalBreaks &#58;= oSheet&#58;HPageBreaks&#58;Count&#40;&#41;\n   for nCounter &#58;= 1 to nTotalBreaks\n      oPageBreak &#58;= oSheet&#58;HPageBreaks&#91;nCounter&#93;                // This Works\n      do case\n         case nCounter = 1\n            cCells &#58;= \'A\'+alltrim&#40;str&#40;nMyFirstBreak&#41;&#41;\n         case nCounter = 2\n            cCells &#58;= \'A\'+alltrim&#40;str&#40;nMySecondBreak&#41;&#41;\n      endcase\n      oPageBreak&#58;location &#58;= oSheet&#58;Range&#40; cCells &#41;\n   next\nreturn nil\n[/code:u9ozzw3f]','',0,'AIA=','u9ozzw3f',1,0,'',343,0,0),(27360,6121,6,362,0,'200.168.52.156',1172506934,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=76\">http://www.fivewin.com.br/exibedicas.asp?id=76</a><!-- m -->','',0,'AIA=','4g1t5t45',1,0,'',362,0,0),(27361,6120,3,397,0,'201.26.6.70',1172511057,1,0,1,0,1,1,'','','Taiwan\n\nExcellent work!\n\nYou can show other themes with this samples?\n\nThanks','',0,'AIA=','rg6q2hhq',1,0,'',397,0,0),(27362,6122,6,203,0,'200.63.213.2',1172514202,1,0,1,1,1,1,'','Imprimir número de fila con Treport','Hola amigos del foro\nPor favor necesito saber si se puede imprimir el número de fila en la clase Treport y el total de las mismas  Ej.\n\n1     bla bla\n2      bla bla\n\n\n\nTotal de filas ......','',0,'AIA=','2hrhxish',1,0,'',203,0,0),(27363,6123,7,945,0,'80.32.177.143',1172514809,1,0,1,1,1,0,'','Barras de desplazamiento no aparecen','Muy buenas, tengo un listbox y no se porque no me aparecen la barra de desplazamiento vertical, es código es este:\n\n@ 0.75,0 LISTBOX oTbr FIELDS GetCodProd(ctbfpdb-&gt;codpdt,5),ctbfpdb-&gt;despdt COLSIZES 40,200 HEADERS \"Código\",\"Descripción\" SIZE 220,78;\n            ALIAS \"ctbfpdb\";\n            font oFont1 COLOR COLOR_LISTBOX\n\n¿Como se pone la barra?\n\nGracias.\nUn Saludo.','',0,'AIA=','3t5hx6om',1,0,'',945,0,0),(27364,6122,6,53,0,'189.139.14.16',1172514874,1,0,1,1,1,1,'','','EasySoft:\n\nIntentalo así:\n\nFUNCTION Imprimir()\nLOCAL nFile := 0\n\nREPORT oReporte bla bla bla\n..\nCOLUMN TITLE \"Fila\" DATA ++nfila  6 RIGHT\nCOLUMN TITLE \"Razón Social\" DATA (cCliente)-&gt;CLI_NOM SIZE 60 LEFT\nCOLUMN TITLE \"Plazo\" DATA (cCliente)-&gt;CLI_DDP SIZE  5 RIGHT\nEND REPORT\n...\n\nAl final nFile te dará el total de filas impresas.\n\nSaludos, Armando','',0,'AIA=','1zt8z5q8',1,0,'',53,0,0),(27365,6123,7,2,0,'87.218.146.213',1172517051,1,0,1,1,1,1,'','','Las barras deben aparecer automaticamente cuando tengas más de un registro en la DBF','',0,'AIA=','eabx9oyc',1,0,'',2,0,0),(27366,6108,6,964,0,'189.142.74.107',1172519395,1,0,1,1,1,0,'','Datos de la dll','Hola Antonio!\n\nAntes que nada gracias por responder a mi duda, y para poder ejemplificarlo, seria que por ejemplo la dll contiene una funcion llamada ctlAlarmClock, y tiene los siguientes parametros de entrada y salida\nAlarmSet\nAlarmTime\n\nComo crearia la clase derivada de de esta dll llamada ctlClockLib.dll\n\nDisculpa que te pida el como la mando llamar, pero como voy iniciando con xharbour la verdad no lo se.\n\nGracias de antemano!','',0,'AIA=','2gywzru4',1,0,'',964,0,0),(27367,3391,6,375,0,'84.122.98.93',1172519872,1,0,1,1,1,1,'','','Perdona Aida por la tardanza, pero hace tiempo que no entraba en el foro. Llevo algunos meses desconectado de la programación, será la primavera (que está al llegar).\n\nHe estado repasando los errores que me mandas, pero no encuentro ninguna explicación. Es como si fallara la compilación, pero por motivos ajenos al código fuente, quizas falta de memoria para el preprocesador o algo así. De todas formas por si has bajado mal el PRG hay va otro link.\n\nGracias por utilizar mi código.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c35ea617/TGSAY.zip.html\">http://hyperupload.com/download/02c35ea ... Y.zip.html</a><!-- m -->','',0,'AIA=','jgapuie5',1,0,'',375,0,0),(27368,6059,6,375,0,'84.122.98.93',1172520333,1,0,1,1,1,1,'','','Goos, yo utilizo este comando de preprocesador de mi cocehca y me va bien:\n\n#TRANSLATE TRANSNOM( &lt;cVar&gt; ) =&gt; UPPER(   STRTRAN( STRTRAN( STRTRAN( ;\n			         STRTRAN( STRTRAN( STRTRAN( STRTRAN( ;\n				 STRTRAN( STRTRAN( STRTRAN( STRTRAN( ;\n				 ALLTRIM( &lt;cVar&gt; ),\"Ú\",\"U\"), ;\n						   \"Ó\",\"O\"), ;\n						   \"Í\",\"I\"), ;\n						   \"É\",\"E\"), ;\n						   \"Á\",\"A\"), ;\n						   \"ú\",\"U\"), ;\n						   \"ó\",\"O\"), ;\n						   \"í\",\"I\"), ;\n						   \"é\",\"E\"), ;\n						   \"á\",\"A\"), ;\n						   \"-\",\" \") )\n\n(copia y pega, no te compliques la vida)\n\n[u:2ahskwag]Por ejemplo:[/u:2ahskwag]ç\n\nIF [b:2ahskwag]TRANSNOM[/b:2ahskwag]( cNom1 ) == \"DESCIRPCION\" ....\n\nEspero que te sirva','',0,'QQ==','2ahskwag',1,0,'',375,0,0),(27369,6090,17,375,0,'84.122.98.93',1172521231,1,0,1,1,1,1,'','','I prefer:\n\nPostMessage( oObj:hWnd,FM_CHANGEFOCUS)  or\nSendMessage( oObj:hWnd,FM_CHANGEFOCUS) or\nPostMessage( oObj:hWnd,FW_SETFOCUS) or\nSendMessage( oObj:hWnd,FW_SETFOCUS)\n\nDepending the situation. SendMessage is inmediate, PostMessage waits at the end of the Commands queu. FM_CHANGEFOCUS seems to be more efective and permanent than the other one (I don\'t know why).\n\nPostMessage is very good for VALID\'s clauses.\n\nYou can even use it out of any objects/dialogs.\n\nAnother very good constant is [b:ye3c6lxg]WM_CLOSE[/b:ye3c6lxg], for example to close a dialog from anywhere.\n\n(Excuse my english)','',0,'QA==','ye3c6lxg',1,0,'',375,0,0),(27370,6124,3,148,0,'82.201.239.97',1172521912,1,0,1,1,1,0,'','xBrowse method not working','I tried gotop() method as below but not cause the browse to go top :\n[code:2pnlypej]\n   DEFINE DIALOG oDlg of oWnd FROM 0,0 TO 45,128 TITLE &quot;Meter reads browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n   oBrw&#58;GoTop&#40;&#41;\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n\n*oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;V_me_mc_serl&#41;,12,0&#41;&#41;\n\n   if nFor=27\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,0&#41;&#41;\n      loop\n   endif\n\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n\n   oBrw&#58;Refresh&#40;&#46;t&#46;&#41;            // Repaint the ListBox\n\n\n\n\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;,BuildButtons&#40; oDlg &#41;,oDlg&#58;Refresh&#40;&#46;t&#46;&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;&#41;\n[/code:2pnlypej]','',0,'AIA=','2pnlypej',1,0,'',148,0,0),(27371,6116,6,867,0,'148.243.37.162',1172526788,1,0,1,1,1,0,'','Re: PONER UN COMBOBOX EN UN TOOLBAR COMO LE HAGO?','[quote=&quot;AIDA&quot;:1am56fsz]Hola <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nme podrian ayudar nesecito poner un combobox en un toolbar\n\nplease me ayudan ya prove de muchas maneras pero no encuentro la correcta <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n\nSaluditos <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nAida[/quote:1am56fsz]\n\nHola Aida, como esta pues amiga, me podras escribir a mi correo, <!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->, no me se bien tu correo, pero yo casi no entro a hotmail messenger, pero nos podemos escribir a travez del correo porfas amiga\nTu amiga Susy','',0,'gA==','1am56fsz',1,0,'',867,0,0),(27372,6125,3,148,0,'82.201.239.97',1172527180,1,0,1,1,1,0,'','copy and paste misleading','I noticed that copy from field and paste into msgget function does not lead to the supposed results . According to variable entered in the msgget function ,the browse should lead to certain results which I do not get it by copy/paste I should type with my keyboard the variable in msgget .\nWhat should be added to my code to have valid copy/paste.\n\n[code:8cgttwvy]\n\nif MsgGet&#40; &quot;Serial Machine&quot;, &quot;Enter Serial Machine&quot;, @V_me_mc_serl,;\n              &quot;&#46;&#46;\\lupa&#46;bmp&quot; &#41;\n      select 3\n      use mach\n      set index to mach5\n      if ! DbSeek&#40; &#40;V_me_mc_serl &#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that serial&quot; &#41;\n      endif\n   endif\n[/code:8cgttwvy]','',0,'AIA=','8cgttwvy',1,0,'',148,0,0),(27373,6102,3,34,0,'68.4.154.81',1172528131,1,0,1,1,1,1,'','cGetFile32( )','cGetFile32( ) is for 16 bit programs ?  Now that is confusing ....\n\nI thought I changed to that because cGetFile( ) was not working with network locations.\n\nTim','',0,'AIA=','2dza4tua',1,0,'',34,0,0),(27374,6125,3,303,0,'72.199.41.171',1172529317,1,0,1,1,1,0,'','','Ehab,\n\nRemember you have to pad the var to the same length as the field.\n\nJames','',0,'AIA=','29zg7aav',1,0,'',303,0,0),(27375,6125,3,343,0,'24.173.70.29',1172529837,1,0,1,1,1,0,'','','You also have to check for a possible uppercase issue.','',0,'AIA=','1rg48sws',1,0,'',343,0,0),(27376,6092,4,267,0,'201.9.121.172',1172535933,1,0,1,1,1,1,'','','Hi Antonio,\n\nI find that you it did not understand me. What I want is only to execute from my system the module standard of Windows CE for connection IRDA.\n\nThe same module that the IExplore executes when the connection is not active.','',0,'AIA=','1z40za7e',1,0,'',267,0,0),(27377,6122,6,203,0,'200.107.2.85',1172536026,1,0,1,1,1,1,'','','Gracias Armando\n\nFunciona Ok.\n\nSaludos\nOscar','',0,'AIA=','1zyfx08i',1,0,'',203,0,0),(27378,6122,6,53,0,'189.139.14.16',1172538066,1,0,1,1,1,1,'','','No hay de queso, nomas de papa  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nY eso que en algunos casos, por error de dedo, a la variable le llame nFile cuando debía ser nFila,  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos, Armando','',0,'AIA=','kaiirt2f',1,0,'',53,0,0),(27379,6126,6,913,0,'189.136.165.113',1172539287,1,0,1,1,1,1,'','Buuuuuuuuu Function ChangeRes no funciona bien :(','encontre en el foro la Function ChangeRes pero no me funciona bien  y me deja a 16 bits de color y toda la resolucion  mas baja de mi computadora\n\nuse todas estas resoluciones y ninguna funciona siempre me pone a la mas baja y a 16 bits de color <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n\n         MENUITEM \"640x480\"    ACTION ChangeRes(640,480)\n         MENUITEM \"800x600\"    ACTION ChangeRes(800,600)\n         MENUITEM \"1024x768\"   ACTION ChangeRes(1024,768)\n         MENUITEM \"1280x1024\" ACTION ChangeRes(1280,1024)\n\nSaludos\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \nAida','',0,'AIA=','31nivyb6',1,0,'',913,0,0),(27380,3391,6,913,0,'189.136.165.113',1172540253,1,0,1,1,1,1,'','Gracias!!!!!!!!!!!!!!!!!!!!!!!','Hola\n\nComo que ya no programas <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  yo soy novata pero e visto algunos de tus ejemplos y programas muy bonito <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->   con muchos colores a mi me gusta mucho usar muchos colores pero tu lo haces de una manera muy increible <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nbajare  el archivo a ver si ya me funciona y te comento\n\ngracias que lindo\n\nSaludos\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','eeytsern',1,0,'',913,0,0),(27381,3391,6,913,0,'189.136.165.113',1172540577,1,0,1,1,1,1,'','Hola otra vez','ya baje el archivo pero no sirve no tiene nada adentro <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nFile: TGSAY.zip\nFile size: 0Kb\n\n\nde todas maneras gracias\n\nAida','',0,'AIA=','39e4ltn0',1,0,'',913,0,0),(27383,6120,3,15,0,'203.70.52.83',1172541244,1,0,1,1,1,0,'','','Hello Rochinha,\n\nNo problem. Look it below:\n\nVista Skin\nScreen 1\n[url=http&#58;//img84&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd1vistact5&#46;jpg:2timhz58][img:2timhz58]http&#58;//img84&#46;imageshack&#46;us/img84/8707/fwhskinpopupwnd1vistact5&#46;th&#46;jpg[/img:2timhz58][/url:2timhz58]\n\nScreen 2\n[url=http&#58;//img219&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd2vistawx9&#46;jpg:2timhz58][img:2timhz58]http&#58;//img219&#46;imageshack&#46;us/img219/4545/fwhskinpopupwnd2vistawx9&#46;th&#46;jpg[/img:2timhz58][/url:2timhz58]\n\nLe5 Skin\nScreen 1\n[url=http&#58;//img242&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd1le5vo5&#46;jpg:2timhz58][img:2timhz58]http&#58;//img242&#46;imageshack&#46;us/img242/7811/fwhskinpopupwnd1le5vo5&#46;th&#46;jpg[/img:2timhz58][/url:2timhz58]\n\nScreen 2\n[url=http&#58;//img242&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd2le5ct4&#46;jpg:2timhz58][img:2timhz58]http&#58;//img242&#46;imageshack&#46;us/img242/9568/fwhskinpopupwnd2le5ct4&#46;th&#46;jpg[/img:2timhz58][/url:2timhz58]\n\niTunes Skin\nScreen 1\n[url=http&#58;//img242&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd1itunespi9&#46;jpg:2timhz58][img:2timhz58]http&#58;//img242&#46;imageshack&#46;us/img242/8355/fwhskinpopupwnd1itunespi9&#46;th&#46;jpg[/img:2timhz58][/url:2timhz58]\n\nScreen 2\n[url=http&#58;//img242&#46;imageshack&#46;us/my&#46;php?image=fwhskinpopupwnd2itunesmh2&#46;jpg:2timhz58][img:2timhz58]http&#58;//img242&#46;imageshack&#46;us/img242/9682/fwhskinpopupwnd2itunesmh2&#46;th&#46;jpg[/img:2timhz58][/url:2timhz58]\n\nRegards,\n\nRichard\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw/\">http://www.fivetech.com.tw/</a><!-- m -->\nFivetech.net Taiwan','',0,'GA==','2timhz58',1,1172544513,'',15,1,0),(27384,6120,3,190,0,'124.7.24.181',1172542072,1,0,1,1,1,0,'','','Hi Richard\n\nHave you tested FWH Menus with these skins.  I had problem with the\nCodeJock skins when used with Menus.\n\nMenus are painted on the Titlebar of the MDI Window!.  I requested \nfor Codejock help.  They asked me to use CommandLine bars ocx.\n\nI don\'t the methods to call them the way we called the methods of \nthe skins ocx.\n\nHave you used [color=blue:3kzfsjnk]Codejock.CommandBars.v10.4.2.ocx[/color:3kzfsjnk] ?\n\n\nRegards\n\n- Ramesh Babu P','',0,'Ag==','3kzfsjnk',1,0,'',190,0,0),(27385,6120,3,15,0,'203.70.52.83',1172544975,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:1uvan5ve]Hi Richard\n\nHave you tested FWH Menus with these skins.  I had problem with the\nCodeJock skins when used with Menus.\n\nMenus are painted on the Titlebar of the MDI Window!.  I requested \nfor Codejock help.  They asked me to use CommandLine bars ocx.\n\nI don\'t the methods to call them the way we called the methods of \nthe skins ocx.\n\nHave you used [color=blue:1uvan5ve]Codejock.CommandBars.v10.4.2.ocx[/color:1uvan5ve] ?\n\n\nRegards\n\n- Ramesh Babu P[/quote:1uvan5ve]\n\nHello Ramesh,\n\nI think you got FWH\'s problem.\nI don\'t know FWH\'s Menu system, WinOS Standart Menu or old Menu system or Bug? or Codejock Skin ActiveX not support FWH\'s Menu system\nSo We need to change FWH\'s Menu system to Codejock\'s CommandBar ActiveX. But FWH\'s Popup Menu system can working.\n\nCodejock CommandBar ActiveX need more time to test and my next target.\n\nRegards,\n\nRichard','',0,'gg==','1uvan5ve',1,0,'',15,0,0),(27386,3391,6,439,0,'200.125.50.24',1172551239,1,0,1,1,1,1,'','','A mi Verce me da este error:\n\nD:\\TGSAY\\tgsay.prg(67) Error E0030 Syntax error: \"parse error at \'NUMBER\'\"\n\nD:\\TGSAY\\tgsay.prg(68) Error E0030 Syntax error: \"parse error at \'NUMBER\'\"\n\nD:\\TGSAY\\tgsay.prg(73) Error E0030 Syntax error: \"parse error at \'NUMBER\'\"\n\nD:\\TGSAY\\tgsay.prg(107) Error E0030 Syntax error: \"parse error at \'&lt;\'\"\n\nY tampoco pude bajar el último zip de hyperupload, cualquier ayuda vale.\n\nGracias por tu trabajo!!!','',0,'gg==','1rj95wzr',1,0,'',439,0,0),(27387,6127,7,945,0,'80.32.177.143',1172570078,1,0,1,1,1,0,'','Al cojer el foco un get','Muy buenas, ¿Alguien sabe cuando un get coge el foco que parámetro del get es para yo ejecutar una función?, es decir, si estoy en el get me muestre por  ejemplo el teclado y cuando pierde el foco me oculte el teclado.\n\nGracias.\n\nUn Saludo.','',0,'gg==','2mbr967f',1,0,'',945,0,0),(27388,6123,7,945,0,'80.32.177.143',1172572035,1,0,1,1,1,0,'','','Muchas Gracias Antonio.','',0,'gg==','1ng6ihhv',1,0,'',945,0,0),(27389,6127,7,456,0,'217.127.39.57',1172572614,1,0,1,1,1,1,'','','Tienes el code block bGotFocus, y para perdida de foco bLostFocus.','',0,'gg==','19ybayi4',1,0,'',456,0,0),(27390,6128,1,666,0,'211.28.125.58',1172572706,1,0,1,1,1,0,'','To Antonio: Can\'t compile TCBFUNCS.C','To Antonio (or anyone else who can help):\n\nUsing BC4.5, I tried to compile TCBFUNCS.C (FW 7.01) using\n\nBCC -c -ml -D__CLIPPER__ TCBFUNCS.C \n(with and without the -D__CLIPPER__) but got the following errors:-\n\nBorland C++ 4.52 Copyright (c) 1987, 1994 Borland International\nd:\\fw\\source\\function\\tcbfuncs.c:\nError d:\\fw\\include\\ClipApi.h 60: Multiple declaration for \'WORD\'\nError d:\\fw\\include\\ClipApi.h 61: Too many types in declaration\nError d:\\fw\\include\\ClipApi.h 61: Need an identifier to declare\nError d:\\fw\\include\\ClipApi.h 65: Multiple declaration for \'PWORD\'\nError d:\\fw\\include\\ClipApi.h 66: Multiple declaration for \'LPWORD\'\nError d:\\fw\\include\\ClipApi.h 67: Multiple declaration for \'PLONG\'\nError d:\\fw\\include\\ClipApi.h 69: Multiple declaration for \'PDWORD\'\nError d:\\fw\\include\\ClipApi.h 71: Enum syntax error\nError d:\\fw\\include\\ClipApi.h 71: Unexpected }\nWarning d:\\fw\\source\\function\\tcbfuncs.c 208: \'LineCount\' is assigned a value that is never used in function TCDRAWCELL\nWarning d:\\fw\\source\\function\\tcbfuncs.c 290: \'LineCount\' is assigned a value that is never used in function GetWindowRow\nWarning d:\\fw\\source\\function\\tcbfuncs.c 359: \'LineCount\' is assigned a value that is never used in function ATCBRWPOSR\n*** 9 errors in Compile ***\n\nI am not a C programmer but PWORD etc are also in BC4.5\'s WINDOWS.H so I assume that is why BCC is giving the \"multiple declaration\" errors (eg)?\n\nWhat do I need to do to compile TCBFUNCS.C?  (I assume you managed to compile it successfully at your end).\n\nTIA\nColin','',0,'gg==','1is9ezhk',1,0,'',666,0,0),(27391,5993,6,78,0,'190.40.217.209',1172573288,1,0,1,1,1,0,'','','Gracias señor,,,,\nSalu2','',0,'gg==','wmaa17sh',1,0,'',78,0,0),(27392,6129,6,967,0,'62.43.189.20',1172575632,1,0,1,1,1,0,'','Problema con el FOR','Hola! Este es mi primer post en FiveTechSoft. Hace un tiempo que soy asiduo a el y he visto muchos de vuestros ejemplos/problemas y me han ayudado en la programación. Saludos.\n\nMi duda es, (creo que sencilla), pero no doy con la solución. Os posteo el código.\n\n      FOR i := 1 TO 6\n      oFont[i]:End()\n      NEXT\n\nSupongamos que tengo seis fuentes, y quiero cerrarlas con un FOR en el que se sustituya [i] por el valor que va tomando, es decir, para que hiciese lo mismo que este trozo de codigo.\n\n      oFont1:End()                       \n      oFont2:End()\n      oFont3:End()\n      oFont4:End()\n      oFont5:End()\n      oFont6:End()\n\nGracias por adelantado!','',0,'','s42eaxka',1,0,'',967,0,0),(27393,6129,6,103,0,'200.241.81.140',1172575971,1,0,1,1,1,1,'','','Hola new_indika,\n\nAntes que nada bienvenido al foro.\n\nSi lo entendi bien, una sugerencia seria:\n\n[code:3piysd39]\nfor nX&#58;=1 to 6\n     cX&#58;=str&#40;nX,1&#41;\n     oFont&#40;nX&#41;&#58;End&#40;&#41;\nnext\n[/code:3piysd39]\nEspero te sirva,\n\nSaludos','',0,'AIA=','3piysd39',1,0,'',103,0,0),(27394,6130,6,449,0,'212.64.224.250',1172577638,1,0,1,1,1,1,'','RoundRect()','Hola,\n\nAlguien sabe como rellenar de un color un rectangulo redondeado. He probado con el brush pero me rellena el rectangulo completo\n\n[code:twdnlzlp]   &#58;&#58;GetDc&#40;&#41;\n\n   hPen &#58;= CreatePen&#40; 0,  2, CLR_BLACK &#41;\n   oBrush &#58;= TBrush&#40;&#41;&#58;New&#40; ,  CLR_RED &#41;\n   hOldPen &#58;= SelectObject&#40; &#58;&#58;hDc, hPen &#41;\n   hOldBrush &#58;= SelectObject&#40; &#58;&#58;hDC, oBrush&#58;hBrush &#41;\n\n   Roundrect&#40; &#58;&#58;hDC, 0, 0, &#58;&#58;nWidth, &#58;&#58;nHeight,  25, 25 &#41;\n\n   SelectObject&#40; &#58;&#58;hDc, hOldPen &#41;\n   SelectObject&#40; &#58;&#58;hDC, hOldBrush &#41;\n\n   DeleteObject&#40; hPen &#41;\n   oBrush&#58;End&#40;&#41;\n\n   &#58;&#58;ReleaseDc&#40;&#41;\n[/code:twdnlzlp]\n\nGracias','',0,'AIA=','twdnlzlp',1,0,'',449,0,0),(27395,6129,6,2,0,'87.218.146.193',1172578102,1,0,1,1,1,1,'','','AEval( { oFont1, oFont2, oFont3, oFont4, oFont5, oFont6 }, { | o | o:End() } )','',0,'AIA=','1s5c8sry',1,0,'',2,0,0),(27396,6130,6,838,0,'80.34.222.112',1172579082,1,0,1,1,1,0,'','','Yo lo hago así:\n[code:2a78o0x2]    CajaRound&#40;co+17,                            ;\n              li+0&#46;5,                            ;\n              co+20,        ;\n              li+1&#46;5 -0&#46;1,50,50,oPrn,oPen1,oBrush1&#41;\n Function CAJAROUND&#40;nArriba,nIzq,nAbajo,nDerecha,a,b,oPrn,oPen,oBrush&#41;\n LOCAL hOldPen, xCor &#58;= &#123;&#125; , yCor &#58;= &#123;&#125;\n local hOldBrush\n // Pasamos coordenadas de cms a pixel\n xCor &#58;= oPrn&#58;Cmtr2Pix&#40;nArriba,nIzq&#41;\n yCor &#58;= oPrn&#58;Cmtr2Pix&#40;nAbajo,nDerecha&#41;\n // Guardamos el Lapiz y la brocha que teniamos\n hOldPen   &#58;= SelectObject&#40; oPrn&#58;hDcOut, oPen&#58;hPen &#41;\n hOldBrush &#58;= SelectObject&#40; oPrn&#58;hDcOut, oBrush&#58;hBrush &#41;\n //Dibujamos el rectangulo redondeado\n roundrect&#40;oPrn&#58;hdcOut,xCor&#91;1&#93;,xCor&#91;2&#93;,yCor&#91;1&#93;,yCor&#91;2&#93;,a,b&#41;\n // y  seleccionamos el que habiamos guardado\n selectObject&#40; oPrn&#58;hDcOut, hOldPen &#41;\n selectObject&#40; oPrn&#58;hDcOut, hOldBrush &#41;\n RETURN NIL\n[/code:2a78o0x2]\n\nEspero te sirva\n\nSaludos\n\nJose Luis','',0,'AIA=','2a78o0x2',1,0,'',838,0,0),(27397,6130,6,2,0,'87.218.146.193',1172579235,1,0,1,1,1,1,'','','Carles,\n\nPrueba a usar FloodFill() ó su equivalente en 32 bits ExtFloodFill()','',0,'AIA=','196q4xug',1,0,'',2,0,0),(27398,6129,6,967,0,'62.43.189.20',1172579653,1,0,1,1,1,0,'','','Muchas gracias!','',0,'AIA=','5c5ejj7q',1,0,'',967,0,0),(27399,6120,3,707,0,'125.163.99.6',1172580747,1,0,1,1,1,0,'','','Hello Richard\n\nPlease give me your example source code\nI had problem with ocx used.\n\nRegards\nAreang','',0,'AIA=','34posgvl',1,0,'',707,0,0),(27400,6113,6,413,0,'194.106.16.43',1172580955,1,0,1,1,1,0,'','','Gracias Antonio','',0,'AIA=','247vo07h',1,0,'',413,0,0),(27401,6131,6,413,0,'194.106.16.43',1172581077,1,0,1,1,1,0,'','Como hago para que se actualice la foto','Lo dicho muestro una foto dependiendo del usuario, me la muestra bien puesto que coge eluser que tiene definido windows como usuario pero si cambio de usuario (en el objeto GET oUser VAR x_user)  no me actualiza la imagen. Alguana idea?\n[code:3vilyben]\nfunction lGetPassword&#40;&#41;\n\n   local oDlg, oUser, oPass\n   local nTries    &#58;= 0 //Nº de intentos que quiero permitir\n   local lGo       &#58;= &#46;f&#46;\n   local oImg\n\n   x_user = UPPER&#40;GETENV&#40;&quot;USERNAME&quot;&#41;&#41;+ space&#40;4&#41;\n   x_pass = space&#40;10&#41;\n\n   DEFINE DIALOG oDlg ;\n          FROM 5, 5 TO 20, 50 ;\n          TITLE &quot;Por favor identifiquese&#46;&#46;&#46;&quot;\n\n   @ 1,   1 BITMAP oBmp FILENAME &quot;&#46;\\&#46;&#46;\\Bmp\\Pass&#46;Bmp&quot; OF oDlg NOBORDER\n   @ 1,   8 SAY &quot;GESTION OPERATIVA&quot; OF oDlg\n   @ 4,   1 SAY &quot;Nombre&#58;&quot; OF oDlg\n   @ 5&#46;3, 1 SAY &quot;P&#46; de Acceso&#58;&quot; OF oDlg\n   @ 4,   8 GET oUser VAR x_user picture &quot;@!&quot; OF oDlg SIZE 50 , 10 UPDATE\n   @ 5&#46;3, 8 GET oPass VAR x_pass picture &quot;@!&quot; OF oDlg PASSWORD  SIZE 50 , 10\n   @ 2,  14 IMAGE oImg FILE &quot;&#46;&#46;\\COMU\\FOTOS\\&quot;+alltrim&#40;x_user&#41;+&quot;&#46;jpg&quot; SIZE 50, 60 ADJUST UPDATE\n\n\n   @ 5, 4 BUTTON &quot;&amp;Continuar&quot; OF oDlg ;\n           ACTION &#40; nTries++,;\n                   lGo &#58;= ComprueboAcceso&#40; x_user, x_pass &#41; ,;\n                   If&#40; nTries &gt; 3 &#46;or&#46; lGo, oDlg&#58;End&#40;&#41;,;\n                   &#40; MsgAlert&#40; &quot;Datos Incorrectos&#46;&#46;&#46;&quot;+ Chr&#40;13&#41; +&quot;Intenta otra vez&quot; &#41;, oUser&#58;SetFocus&#40;&#41;, oPass&#58;SetFocus&#40;&#41; &#41; &#41; &#41;\n\n   oBmp&#58;lTransparent = &#46;t&#46;  // Hago el bmp transparente\n\n   ACTIVATE DIALOG oDlg CENTERED ON PAINT &#40;  oPass&#58;SetFocus&#40;&#41;   &#41;\n\n\n   return lGo\n[/code:3vilyben]','',0,'AIA=','3vilyben',1,0,'',413,0,0),(27402,4774,3,435,0,'200.155.201.73',1172581814,1,0,1,1,1,0,'','','Ronando,\n\nobrigado, já faz dias que baixei o exemplo ..agora que comecei a tentar pelo BrOffice, e tá dando erro no\n\no meu documento eu passo como c:\\sisrev\\win\\debito.odt\n\noDesktop:loadComponentFromURL(cDocument, \"_blank\" , 0, aArg)\n\nretorna o erro:  Ole Error\n\nLoadComponentFromUrl: DISP_E_TYPEMISMATCH\n\nAri','',0,'AIA=','l7xyiuxn',1,0,'',435,0,0),(27403,6111,3,397,0,'201.27.20.164',1172582307,1,0,1,0,1,1,'','','Eric\n\nComo eu sempre carrego minhas variaveis antes use desta forma:\n[code:1wmuwujf]\n// Use only this mode \n//----------------------------------------------------------- \n// Correct, if variable common&#58; \n&#46;&#46;&#46; \ncTipPes &#58;= MAscan&#40; &#123;\'J - Pessoa Jurídica\', \'F - Pessoa Física\'&#125;, oDBCli&#58;CLI_TIPPES &#41;\n\nRedefine COMBOBOX oCbxTipPes ; \n         VAR cTipPes ; \n         ITEMS &#123;\'J - Pessoa Jurídica\', \'F - Pessoa Física\'&#125; ; \n         ID 4002  ; \n         OF oFld&#58;aDialogs&#91;1&#93; \n\nActivate Dialog oDlg ; \n         Center ; \n         On Init PosCbx&#40;oCbxTipPes,cTipPes&#41; [/code:1wmuwujf]','',0,'AIA=','1wmuwujf',1,0,'',397,0,0),(27404,6130,6,449,0,'212.64.224.250',1172584024,1,0,1,1,1,1,'','','Voy a probar. Gracias','',0,'AIA=','xgvqgd2i',1,0,'',449,0,0),(27405,6132,6,644,0,'201.252.11.3',1172586622,1,0,1,1,1,0,'','PAPEL DE LA IMPRESORA URGENTE','Estoy trabajando con w2000 y necesito emitir unas facturas con papel personalizado. Me encuentro con el siguiente problema. Si corro la aplicación  con W98 puedo seleccionar el tamaño del papel y la impresora y me respeta ambas cosas. Pero con W2000 no. Aqui transcribo parte del codigo \n\nIf( lPrevista == .t. )\n   If( !Empty( cModelo ) )\n      oPrn := PrintBegin(\'Emisión de facturas\', .F., .t., cModelo, .F. )\n   Else\n      oPrn := PrintBegin(\'Emisión de facturas\', .F., .t.,, .F. )\n   End\n   oPrn : lPrvModal := .t.\nElse\n   If( !Empty( cModelo ) )\n      Printer oPrn To cModelo\n   Else\n      Printer oPrn\n   End\nEnd\nDefine Font oFnt  Name \"Arial\" Size 0,-8 OF oPrn\nDefine Font oFnt1 Name \"Arial\" Size 0,-6 OF oPrn Nescapement 45 * 100\nDefine Font oFnt2 Name \"Arial\" SIZE 0,-12 BOLD OF oPrn\nDefine Font oFnt3 Name \"Arial\" Size 0,-6 OF oPrn Bold\noPrn : SetPage( DMPAPER_USER ) // DMPAPER_USER 256\nPage\nbla bla bla\n\nA alguien le a sucedido lo mismo ?? Gracias por sus respuestas','',0,'AIA=','38ddsuoz',1,0,'',644,0,0),(27406,6133,3,86,0,'213.119.103.68',1172587267,1,0,1,1,1,1,'','Problem with preview of TPrinter class','Hello,\n\nDoes anyone have any idea why the button in the button bar of the preview in the TPrinter class don\'t  appear, knowing that for the rest everything is running fine ?\n\nThanks.\n\nMichel','',0,'AIA=','1hsby3sa',1,0,'',86,0,0),(27407,6129,6,456,0,'217.127.39.57',1172588249,1,0,1,1,1,1,'','','Otra seria definir los fonts dentro del array, y luego cerrar con el bucle FOR ... NEXT \n[code:ygv7rpli]\nLOCAL aFont&#91;6&#93;\n\nDEFINE FONT aFont&#91;1&#93; &#46;&#46;&#46;\n&#46;&#46;&#46;\nFOR i &#58;= 1 TO 6 \n   aFont&#91;i&#93;&#58;End&#40;&#41; \nNEXT \n[/code:ygv7rpli]','',0,'AIA=','ygv7rpli',1,0,'',456,0,0),(27408,6129,6,891,0,'148.243.37.162',1172589714,1,0,1,1,1,0,'','Re: Problema con el FOR','[quote=&quot;new_indika&quot;:wue22yae]Hola! Este es mi primer post en FiveTechSoft. Hace un tiempo que soy asiduo a el y he visto muchos de vuestros ejemplos/problemas y me han ayudado en la programación. Saludos.\n\nMi duda es, (creo que sencilla), pero no doy con la solución. Os posteo el código.\n\n      FOR i := 1 TO 6\n      oFont[i]:End()\n      NEXT\n\nSupongamos que tengo seis fuentes, y quiero cerrarlas con un FOR en el que se sustituya [i] por el valor que va tomando, es decir, para que hiciese lo mismo que este trozo de codigo.\n\n      oFont1:End()                       \n      oFont2:End()\n      oFont3:End()\n      oFont4:End()\n      oFont5:End()\n      oFont6:End()\n\nGracias por adelantado![/quote:wue22yae]\n\nHola amigo prueba con esto:\nAEval( oFont,{|o| o:End()} )\n\n o de otra manera asi:\nFOR X=1 TO 8\n      oFont[X]:End()\n NEXT X... BUENO ES IGUAL, PERO A MI ME FUNCIONA','',0,'gA==','wue22yae',1,0,'',891,0,0),(27409,6131,6,888,0,'201.253.43.12',1172591383,1,0,1,1,1,0,'','','Hola Andrés, no deberías refrescar o volver a pintar el objeto oImg en el momento que la función de validación ComprueboAcceso te de un resultado favorable. Ya lo has probado?','',0,'gA==','zjsch314',1,0,'',888,0,0),(27410,6096,7,720,0,'80.36.244.134',1172594212,1,0,1,1,1,0,'','','Hola a todos...\n\nSigo sin encontrar la forma para que el texto que sale en la funcion msgwait() quede centrado.... Alguien tiene alguna idea de como se hace?, o si realmente se puede hacer.....\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','ssufy8cl',1,0,'',720,0,0),(27411,6134,3,909,0,'75.177.72.230',1172594970,1,0,1,1,1,1,'','Ugly Bold Text','Hi everybody - \nI hope someone can shed some light on this.  I think I\'m doing everything right, but I must be missing something.  I use Resource Workshop for my resources and save changes in a 16 bit DLL for 16 bit FW and save it as an RC file for FWH versions.  I add the 1 24 \"windowsXP.Manifest\" to the top of the RC file.  I compile and build with the Borland make system and everything works fine, except I get the old Bold text on some of the dialogs along with the nicer smaller WinXP type text.  All of the text in my TWbrowse is the Bold type.  What am I missing?\n\nCharles Pratt','',0,'gA==','uo1tagye',1,0,'',909,0,0),(27412,6135,20,49,0,'213.82.134.66',1172596057,1,0,1,1,1,1,'','archivio con campi memo','poichè devo fare un archivio con tre campi memo ( ed uso fpt e cdx)  secondo voi è sconveniente  oppure non succede niente  \n\n\ngrazie per il consiglio','',0,'gA==','1o0lwrlq',1,0,'',49,0,0),(27413,6133,3,2,0,'87.218.146.193',1172597597,1,0,1,1,1,1,'','','Michel,\n\nHave you copied prev32.dll where your app is ?','',0,'gA==','26vlk789',1,0,'',2,0,0),(27414,6131,6,2,0,'87.218.146.193',1172597842,1,0,1,1,1,1,'','','Andrés,\n\n@ 5.3, 8 GET oPass VAR x_pass picture \"@!\" OF oDlg PASSWORD  SIZE 50 , 10 VALID ( oImg:LoadImage( , \"..\\COMU\\FOTOS\\\"+alltrim(x_user)+\".jpg\" ), oImg:Refresh(), .T. )','',0,'gA==','2l4of66v',1,0,'',2,0,0),(27415,6134,3,2,0,'87.218.146.193',1172597980,1,0,1,1,1,1,'','','Charles,\n\nAre you creating and setting a font to the browse from your PRG ?','',0,'gA==','292bjlhr',1,0,'',2,0,0),(27416,6132,6,2,0,'87.218.146.193',1172598067,1,0,1,1,1,1,'','','Prueba con oPrinter:SetSize( nWidth, nHeight )','',0,'gA==','1x1edlsb',1,0,'',2,0,0),(27417,6136,7,945,0,'80.32.177.143',1172600988,1,0,1,1,1,0,'','Quitar Encabezado de un dialogo','Muy buenas, me gustaría quitar el encabezado de un dialogo para que se me quede solo la imagen que tengo puesta en el on paint del dialgo, ¿Se puede?\n\nMuchas gracias.\n\nUn Saludo.','',0,'gA==','3txr4vwz',1,0,'',945,0,0),(27418,6135,20,6,0,'87.10.10.23',1172603029,1,0,1,1,1,1,'','Re: archivio con campi memo','Non succede niente, vai tranquillo.\n\nEMG','',0,'gA==','3lff4ti6',1,0,'',6,0,0),(27419,6136,7,2,0,'87.218.146.193',1172603477,1,0,1,1,1,1,'','','El diálogo lo creas desde código fuente ó desde recursos ?\n\nSe trata de quitarle el estilo WS_CAPTION. Según lo crees desde PRG ó desde recursos se hace de forma algo diferente','',0,'gA==','ve5mx8nz',1,0,'',2,0,0),(27420,6136,7,945,0,'80.32.177.143',1172603549,1,0,1,1,1,0,'','Antetodo gracias','Pues Antonio, lo hago desde prg, es decir, lo hago a pelo.\n\nGracias.','',0,'gA==','3m03q269',1,0,'',945,0,0),(27421,6115,6,397,0,'201.27.20.164',1172604242,1,0,1,0,1,1,'','','Amiguito\n\nMediator és un SQL RDD por xBase i acede a tablas SQL en MySQL, SQL Server i Oracle.\n\nCon Mediator tu no usas tablas .DBF directamente. Con ADS si.\n\nTu puedes seguir usando MySQL con Eagle, FCSOdbc, Condor i SQLLib(Brasil).','',0,'gA==','d3bzdx5m',1,0,'',397,0,0),(27422,6134,3,303,0,'72.199.41.171',1172606852,1,0,1,1,1,0,'','','Charles,\n\nAnd,\n\nAre you creating and setting a font for some of the dialogs?\n\nJames','',0,'gA==','agvj32gg',1,0,'',303,0,0),(27423,6137,6,383,0,'190.40.168.17',1172609763,1,0,1,1,1,0,'','CONSULTA SOBRE UNA RED VPN','Disculpen la ignoracia, pero es posible seguir trabajando sobre una red privada virtual con dbf o necesariamente necesito usar algun motor de base de datos relacional. \nSin animo de molestar, por favor alguien usa la clase Eagle 1 de Manuel Exposito. Por otro lado, alguien tiene mas ejemplos para usar ADO con fivewin.\n\nSaludos y gracias por sus respuestas.','',0,'gA==','3fiu013d',1,0,'',383,0,0),(27424,6115,6,73,0,'200.23.18.129',1172611945,1,0,1,1,1,0,'','','ok, gracias rochina\nsalu2\npaco','',0,'gA==','2e5zauim',1,0,'',73,0,0),(27425,6134,3,909,0,'75.177.72.230',1172612440,1,0,1,1,1,1,'','','Antonio, James -\nNo, I\'m not creating a font in my prg.  However, the RC file generated by RW shows a font 8 in all dialogs that comes automatically from RW.  Should these all be deleted by hand in the RC file? \n\nCharles','',0,'gA==','2qpor56h',1,0,'',909,0,0),(27426,6136,7,2,0,'87.218.146.193',1172612830,1,0,1,1,1,1,'','','DEFINE DIALOG oDlg FROM 10, 10 TO 20, 40 ;\n      TITLE \"Dialog\" STYLE nOr( WS_POPUP, WS_VISIBLE )','',0,'gA==','2dy1sm7m',1,0,'',2,0,0),(27427,6134,3,2,0,'87.218.146.193',1172612917,1,0,1,1,1,1,'','','Charles,\n\nPlease upload a screenshot at <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the url to review it','',0,'gA==','ycnlx4mz',1,0,'',2,0,0),(27428,6138,6,103,0,'200.165.130.127',1172614225,1,0,1,1,1,1,'','Nuevo DBF2SQL','Hola foro,\n\n    Los invitamos a conocer el nuevo DBF2SQL que hace la migración de los DBFs para MySQL o PostgreSQL y fue desarrollado usando xHarbour+FWH y la SQLLIB de Vailton Renato (<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->). \n   El programa esta en portugues pero ya estamos preparando una nueva versión con los 3 idiomas: portugues, español e ingles.\n   El link para bajar el DBF2SQL es: <!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br/fw/dbf2sql.zip\">www.sqllib.com.br/fw/dbf2sql.zip</a><!-- w -->\n   Es un programa totalmente libre. \n\nSaludos,','',0,'gA==','dnu7q45l',1,0,'',103,0,0),(27429,6138,6,439,0,'200.125.50.42',1172615080,1,0,1,1,1,1,'','','Amigo,\nExcelente trabajo!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','254nhbcc',1,0,'',439,0,0),(27430,6139,1,707,0,'125.163.103.3',1172615722,1,0,1,1,1,0,'','AT COMMAND FOR GSM MODEM','Hi All !\n\nI found this for Nokia Mobile Phone \nHow to use with FWH\n\n[quote:3j99tdk9]\n# cquery 4.16b\n# +GMI (TA manufacturer)\nAT+GMI\nNokia Mobile Phones\n# +GMM (TA model)\nAT+GMM\nNokia 6210\n# +GMR (TA revision)\nAT+GMR\nSW05.02\n# +GSN (TA serial number)\nAT+GSN\n&lt;deleted&gt;\n# +GOI (Global Object Identification)\nAT+GOI\nERROR\n# +GCI (Country of installation)\nAT+GCI\nERROR\n# +GCAP (Capabilities)\nAT+GCAP\n+GCAP: +CGSM,+FCLASS,+DS\n# +CGMI (ME manufacturer)\nAT+CGMI\nNokia Mobile Phones\n# +CGMM (ME model)\nAT+CGMM\nNokia 6210\n# +CGMR (ME revison)\nAT+CGMR\nSW05.02\n# +CGSN (ME serial number aka IMEI)\nAT+CGSN\n&lt;deleted&gt;\n# +CSCS=? (TE character set)\nAT+CSCS=?\n+CSCS: (\"GSM\",\"HEX\",\"IRA\",\"PCCP437\",\"PCDN\",\"8859-1\")\n# +CIMI=? (International mobile subscriber identity)\nAT+CIMI=?\nERROR\n# +CMUX=? (Multiplexing mode)\nAT+CMUX=?\nERROR\n# +CSTA=? (Select type of address)\nAT+CSTA=?\n+CSTA: (129,145)\n# +CMOD=? (Call mode)\nAT+CMOD=?\n+CMOD: (0-3)\n# +CHUP=? (Hangup call)\nAT+CHUP=?\n# +CBST=? (Bearer service type)\nAT+CBST=?\n+CBST: (0-7,12,14-16,34,36,38,39,43,47-51,65,66,68,70,71,75,79-81),(0,2),(1)\n# +CRLP=? (Radio link protocol)\nAT+CRLP=?\n+CRLP: (0-61),(0-61),(39-255),(1-255)\n+CRLP: (0-96),(0-64),(39-255),(1-255),2,(3-255)\n# +CR=? (Service reporting control)\nAT+CR=?\n+CR: (0,1)\n# +CEER=? (Extended error report)\nAT+CEER=?\n# +CRC=? (Cellular result codes)\nAT+CRC=?\n+CRC: (0,1)\n# +CHSD=? (HSCSD device parameters)\nAT+CHSD=?\n# +CHST=? (HSCSD transparent call configuration)\nAT+CHST=?\nERROR\n# +CHSN=? (HSCSD non-transparent call configuration)\nAT+CHSN=?\n+CHSN: (0-4,6),(0-3),(0-3),(0,4,8,12)\n# +CHSC=? (HSCSD current call parameters)\nAT+CHSC=?\n# +CHSR=? (HSCSD parameters report)\nAT+CHSR=?\n+CHSR: (0,1)\n# +CHSU=? (HSCSD automatic user initiated upgrading)\nAT+CHSU=?\nERROR\n# +CHSA=? (HSCSD non-transparent asymmetry configuration)\nAT+CHSA=?\nERROR\n# +CSNS=? (Single numbering scheme)\nAT+CSNS=?\n+CSNS: (0,2,4)\n# +CVHU=? (Voice hang up control)\nAT+CVHU=?\nERROR\n# +CV120=? (V.120 rate adaption control)\nAT+CV120=?\n+CV120: (1),(0,1),(1),(0),(0),(0)\n# +CSDF=? (Settings date format)\nAT+CSDF=?\nERROR\n# +CSIL=? (Silence command)\nAT+CSIL=?\nERROR\n# +CSTF=? (Settings time format)\nAT+CSTF=?\nERROR\n# +CNUM=? (Subscriber number)\nAT+CNUM=?\n# +CREG=? (Network registration)\nAT+CREG=?\n+CREG: (0-2)\n# +COPS=? (Operator selection)\nAT+COPS=?\n+COPS: (2,,,\"21601\"),(1,,,\"21630\"),(1,,,\"21670\"),,(0,1),(2)\n# +CLCK=? (Facility lock)\nAT+CLCK=?\n+CLCK: (\"PS\",\"SC\",\"AO\",\"OI\",\"OX\",\"AI\",\"IR\",\"AB\",\"AG\",\"AC\",\"FD\")\n# +CPWD=? (Change password)\nAT+CPWD=?\n+CPWD: (\"PS\",5),(\"SC\",8),(\"AB\",4),(\"P2\",8)\n# +CLIP=? (Calling line identification presentation)\nAT+CLIP=?\n+CLIP: (0,1)\n# +CLIR=? (Calling line identification restriction)\nAT+CLIR=?\n+CLIR: (0-2)\n# +COLP=? (Connected line identification presentation)\nAT+COLP=?\n+COLP: (0,1)\n# +CDIP=? (Called line identification presentation)\nAT+CDIP=?\nERROR\n# +CCUG=? (Closed user group)\nAT+CCUG=?\n# +CCFC=? (Call forwarding)\nAT+CCFC=?\n+CCFC: (0-5)\n# +CCWA=? (Call waiting)\nAT+CCWA=?\n+CCWA: (0,1)\n# +CHLD=? (Call and hold multiparty)\nAT+CHLD=?\n+CHLD: (0,1,1x,2,2x,3,4)\n# +CTFR=? (Call transfer)\nAT+CTFR=?\nERROR\n# +CUSD=? (Unstructured supplementary service data)\nAT+CUSD=?\n+CUSD: (0,1)\n# +CAOC=? (Advice of charge)\nAT+CAOC=?\n# +CSSN=? (Supplementary service notifications)\nAT+CSSN=?\n+CSSN: (0,1),(0,1)\n# +CLCC=? (List current calls)\nAT+CLCC=?\n# +CPOL=? (Preferred operator list)\nAT+CPOL=?\nERROR\n# +CPLS=? (Selection of preferred PLMN list)\nAT+CPLS=?\nERROR\n# +COPN=? (Read operator names)\nAT+COPN=?\nERROR\n# +CAEMLPP=? (eMLPP Priority Registration and Interrogation)\nAT+CAEMLPP=?\nERROR\n# +CPPS=? (eMLPP subscriptions)\nAT+CPPS=?\nERROR\n# +CFCS=? (Fast call setup conditions)\nAT+CFCS=?\nERROR\n# +CAAP=? (Automatic answer for eMLPP Service)\nAT+CAAP=?\nERROR\n# +CUUS1=? (User to User Signalling Service 1)\nAT+CUUS1=?\nERROR\n# +CPAS=? (Phone activity status)\nAT+CPAS=?\n+CPAS: (0,1,3,4)\n# +CFUN=? (Set phone functionality)\nAT+CFUN=?\nERROR\n# +CPIN=? (Enter PIN)\nAT+CPIN=?\n# +CBC=? (Battery charge)\nAT+CBC=?\n+CBC: (0,1),(0-100)\n# +CSQ=? (Signal quality)\nAT+CSQ=?\n+CSQ: (0-31,99),(99)\n# +CMEC=? (ME control mode)\nAT+CMEC=?\nERROR\n# +CKPD=? (Keypad control)\nAT+CKPD=?\nERROR\n# +CDIS=? (Display control)\nAT+CDIS=?\nERROR\n# +CIND=? (Indicator control)\nAT+CIND=?\nERROR\n# +CMER=? (ME event reporting)\nAT+CMER=?\nERROR\n# +CPBS=? (Select phonebook memory storage)\nAT+CPBS=?\n+CPBS: (\"ME\",\"DC\",\"MC\",\"RC\",\"ON\",\"SM\",\"FD\")\n# +CPBR=? (Read phonebook entries)\nAT+CPBR=?\n+CPBR: (1-160),21,10\n# +CPBF=? (Find phonebook entries)\nAT+CPBF=?\n+CPBF: 21,10\n# +CPBW=? (Write phonebook entry)\nAT+CPBW=?\n+CPBW: (1-160),21,(129,145),10\n# +CCLK=? (Clock)\nAT+CCLK=?\nERROR\n# +CALA=? (Alarm)\nAT+CALA=?\nERROR\n# +CSIM=? (Generic SIM access)\nAT+CSIM=?\nERROR\n# +CRSM=? (Restricted SIM access)\nAT+CRSM=?\nERROR\n# +CSCC=? (Secure control command)\nAT+CSCC=?\nERROR\n# +CALM=? (Select ringing tone)\nAT+CALM=?\nERROR\n# +CRSL=? (Ringing tone level)\nAT+CRSL=?\nERROR\n# +CVIB=? (Vibrator tone)\nAT+CVIB=?\nERROR\n# +CLVL=? (Volume control)\nAT+CLVL=?\nERROR\n# +CMUT=? (Mute microphone)\nAT+CMUT=?\nERROR\n# +CACM=? (Accumulated call meter)\nAT+CACM=?\nERROR\n# +CAMM=? (Accumulated call meter maximum)\nAT+CAMM=?\nERROR\n# +CPUC=? (Price per unit and currency table)\nAT+CPUC=?\nERROR\n# +CCWE=? (Call meter maximum event)\nAT+CCWE=?\nERROR\n# +CPWC=? (Power class)\nAT+CPWC=?\n+CPWC: (0,(0,4,5)),(1,(0-2))\n# +CLAN=? (Set language)\nAT+CLAN=?\nERROR\n# +CLAE=? (Language event)\nAT+CLAE=?\nERROR\n# +CSGT=? (Set greeting text)\nAT+CSGT=?\nERROR\n# +CSVM=? (Set voice mail number)\nAT+CSVM=?\nERROR\n# +CRMP=? (Ring melody playback)\nAT+CRMP=?\nERROR\n# +CMAR=? (Master reset)\nAT+CMAR=?\nERROR\n# +CLAC (List all available AT commands)\nAT+CLAC\nERROR\n# +CALD=? (Delete alarm)\nAT+CALD=?\nERROR\n# +CAPD=? (Postpone or dismiss an alarm)\nAT+CAPD=?\nERROR\n# +CTZU=? (Automatic time zone update)\nAT+CTZU=?\nERROR\n# +CTZR=? (Time zone reporting)\nAT+CTZR=?\nERROR\n# +CPROT=? (Enter protocol mode)\nAT+CPROT=?\nERROR\n# +CMEE=? (ME error reporting)\nAT+CMEE=?\n+CMEE: (0-2)\n# +CGDCONT=? (Define PDP context)\nAT+CGDCONT=?\nERROR\n# +CGDSCONT=? (Define Secondary PDP context)\nAT+CGDSCONT=?\nERROR\n# +CGTFT=? (Traffic Flow Template)\nAT+CGTFT=?\nERROR\n# +CGQREQ=? (QoS profile (requested))\nAT+CGQREQ=?\nERROR\n# +CGQMIN=? (QoS profile (minimum acceptable))\nAT+CGQMIN=?\nERROR\n# +CGEQREQ=? (3G QoS profile (requested))\nAT+CGEQREQ=?\nERROR\n# +CGEQMIN=? (3G QoS profile (minimum acceptable))\nAT+CGEQMIN=?\nERROR\n# +CGEQNEG=? (3G QoS profile (negotiated))\nAT+CGEQNEG=?\nERROR\n# +CGATT=? (GPRS attach/detach)\nAT+CGATT=?\nERROR\n# +CGACT=? (PDP context activate/deactivate)\nAT+CGACT=?\nERROR\n# +CGCMOD=? (PDP context modify)\nAT+CGCMOD=?\nERROR\n# +CGDATA=? (Enter data state)\nAT+CGDATA=?\nERROR\n# +CGCLOSP=? (Configure local octet stream PAD parameters)\nAT+CGCLOSP=?\nERROR\n# +CGPADDR=? (Show PDP address)\nAT+CGPADDR=?\nERROR\n# +CGAUTO=? (Automatic response to a network request for PDP context activation)\nAT+CGAUTO=?\nERROR\n# +CGANS=? (Manual response to a network request for PDP context activation)\nAT+CGANS=?\nERROR\n# +CGCLASS=? (GPRS mobile station class)\nAT+CGCLASS=?\nERROR\n# +CGCLPAD=? (Configure local triple-X PAD parameters)\nAT+CGCLPAD=?\nERROR\n# +CGEREP=? (GPRS event reporting)\nAT+CGEREP=?\nERROR\n# +CGREG=? (GPRS network registration status)\nAT+CGREG=?\nERROR\n# +CGSMS=? (Select service for MO SMS messages)\nAT+CGSMS=?\nERROR\n# +CAJOIN=? (Accept an incoming Voice Group or Voice Broadcast Call)\nAT+CAJOIN=?\nERROR\n# +CAREJ=? (Reject an incoming Voice Group or Voice Broadcast Call)\nAT+CAREJ=?\nERROR\n# +CAHLD=? (Leave an ongoing Voice Group or Voice Broadcast Call)\nAT+CAHLD=?\nERROR\n# +CAPTT=? (Talker Access for Voice Group Call)\nAT+CAPTT=?\nERROR\n# +CAULEV=? (Voice Group Call Uplink Status Presentation)\nAT+CAULEV=?\nERROR\n# +CALCC=? (List current Voice Group and Voice Broadcast Calls)\nAT+CALCC=?\nERROR\n# +CACSP=? (Voice Group or Voice Broadcast Call State Attribute Presentation)\nAT+CACSP=?\nERROR\n# +CANCHEV=? (NCH Support Indication)\nAT+CANCHEV=?\nERROR\n# +COTDI=? (Originator to Dispatcher Information)\nAT+COTDI=?\nERROR\n# +CGCS=? (VGCS subscriptions and GId status)\nAT+CGCS=?\nERROR\n# +CBCS=? (VBS subscriptions and GId status)\nAT+CBCS=?\nERROR\n# +CSMS=? (Select message service)\nAT+CSMS=?\n+CSMS: (0,1)\n# +CPMS=? (Preferred message store)\nAT+CPMS=?\n+CPMS: (\"ME\",\"SM\"),(\"ME\",\"SM\"),(\"SM\")\n# +CMGF=? (Message format)\nAT+CMGF=?\n+CMGF: (0,1)\n# +CESP=? (Enter SMS block mode protocol)\nAT+CESP=?\nERROR\n# +CSCA=? (Service center address)\nAT+CSCA=?\n# +CMGF=1 (Text mode)\nAT+CMGF=1\n# +CSMP=? (Set text mode parameters)\nAT+CSMP=?\n# +CSDH=? (Show text mode parameters)\nAT+CSDH=?\n+CSDH: (0,1)\n# +CMGL=? (List messages (text))\nAT+CMGL=?\n+CMGL: (\"REC UNREAD\",\"ALL\")\n# +CMGR=? (Read message (text))\nAT+CMGR=?\n# +CNMA=? (New message acknowledgement to ME/TA (text))\nAT+CNMA=?\n# +CMGS=? (Send message (text))\nAT+CMGS=?\n# +CMSS=? (Send message from storage (text))\nAT+CMSS=?\n# +CMGW=? (Write message to memory (text))\nAT+CMGW=?\n# +CMGD=? (Delete message (text))\nAT+CMGD=?\n# +CMGC=? (Send command (text))\nAT+CMGC=?\n# +CMGF=0 (PDU mode)\nAT+CMGF=0\n# +CMGL=? (List messages (pdu))\nAT+CMGL=?\n+CMGL: (0,4)\n# +CMGR=? (Read message (pdu))\nAT+CMGR=?\n# +CNMA=? (New message acknowledgement to ME/TA (pdu))\nAT+CNMA=?\n+CNMA: (0-2)\n# +CMGS=? (Send message (pdu))\nAT+CMGS=?\n# +CMSS=? (Send message from storage (pdu))\nAT+CMSS=?\n# +CMGW=? (Write message to memory (pdu))\nAT+CMGW=?\n# +CMGD=? (Delete message (pdu))\nAT+CMGD=?\n# +CMGC=? (Send command (pdu))\nAT+CMGC=?\n# +CSCB=? (Select cell broadcast message types)\nAT+CSCB=?\n+CSCB: (0,1)\n# +CSAS=? (Save settings)\nAT+CSAS=?\n+CSAS: (1)\n# +CRES=? (Restore settings)\nAT+CRES=?\n+CRES: (1)\n# +CNMI=? (New message indications to TE)\nAT+CNMI=?\n+CNMI: (0-2),(0-3),(0,2,3),(0-2),(0,1)\n# +CMMS=? (More messages to send)\nAT+CMMS=?\n+CMMS: (0-2)\n[/quote:3j99tdk9]\n\n[b:3j99tdk9]Can I use with this ?[/b:3j99tdk9]\n\n[code:3j99tdk9]\n\n\ninclude &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, nComm &#58;= InitComm&#40;&#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Testing Comm functions&quot;\n\n   oDlg&#58;bCommNotify = &#123; | nComm, nStatus | BytesAtPort&#40; nComm, nStatus &#41; &#125;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT EnableCommNotification&#40; nComm, oDlg&#58;hWnd, 20, 20 &#41;\n\n   CloseComm&#40; nComm &#41;\n\nreturn nil\n\nfunction InitCOMM&#40;&#41;\n\n   local cDcb, nError, nBytes\n   local nComm &#58;= OpenComm&#40; &quot;COM1&quot;, 1024, 128 &#41;\n\n   if ! BuildCommDcb&#40; &quot;COM1&#58;9600,n,8,1&quot;, @cDcb &#41;\n      MsgStop&#40; &quot;Error BUILD!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\n   #ifdef __CLIPPER__\n      if ! SetCommState&#40; cDcb &#41;\n   #else   \n      if ! SetCommState&#40; nComm, cDcb &#41;\n   #endif   \n      MsgStop&#40; &quot;Error SETCOMM!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\nreturn nComm\n\nfunction BytesAtPort&#40; nComm, nStatus &#41;\n\n   local cBuffer &#58;= Space&#40;20 &#41;\n\n   Msginfo&#40; nSTATUS&#41;\n   ReadComm&#40; nComm, @cBuffer &#41;  // &lt;&lt;&lt;&lt;---- program will lock here\n   Msginfo&#40; AllTrim&#40; cBuffer &#41;&#41;\n\nreturn nil\n[/code:3j99tdk9]\n\nBest Regards\nAreang','',0,'wIA=','3j99tdk9',1,0,'',707,0,0),(27431,6140,1,707,0,'125.163.103.3',1172615818,1,0,1,1,1,0,'','AT COMMAND FOR GSM MODEM','Hi All !\n\nI found this for Nokia Mobile Phone \nHow to use with FWH\n\n[quote:3infii55]\n# cquery 4.16b\n# +GMI (TA manufacturer)\nAT+GMI\nNokia Mobile Phones\n# +GMM (TA model)\nAT+GMM\nNokia 6210\n# +GMR (TA revision)\nAT+GMR\nSW05.02\n# +GSN (TA serial number)\nAT+GSN\n&lt;deleted&gt;\n# +GOI (Global Object Identification)\nAT+GOI\nERROR\n# +GCI (Country of installation)\nAT+GCI\nERROR\n# +GCAP (Capabilities)\nAT+GCAP\n+GCAP: +CGSM,+FCLASS,+DS\n# +CGMI (ME manufacturer)\nAT+CGMI\nNokia Mobile Phones\n# +CGMM (ME model)\nAT+CGMM\nNokia 6210\n# +CGMR (ME revison)\nAT+CGMR\nSW05.02\n# +CGSN (ME serial number aka IMEI)\nAT+CGSN\n&lt;deleted&gt;\n# +CSCS=? (TE character set)\nAT+CSCS=?\n+CSCS: (\"GSM\",\"HEX\",\"IRA\",\"PCCP437\",\"PCDN\",\"8859-1\")\n# +CIMI=? (International mobile subscriber identity)\nAT+CIMI=?\nERROR\n# +CMUX=? (Multiplexing mode)\nAT+CMUX=?\nERROR\n# +CSTA=? (Select type of address)\nAT+CSTA=?\n+CSTA: (129,145)\n# +CMOD=? (Call mode)\nAT+CMOD=?\n+CMOD: (0-3)\n# +CHUP=? (Hangup call)\nAT+CHUP=?\n# +CBST=? (Bearer service type)\nAT+CBST=?\n+CBST: (0-7,12,14-16,34,36,38,39,43,47-51,65,66,68,70,71,75,79-81),(0,2),(1)\n# +CRLP=? (Radio link protocol)\nAT+CRLP=?\n+CRLP: (0-61),(0-61),(39-255),(1-255)\n+CRLP: (0-96),(0-64),(39-255),(1-255),2,(3-255)\n# +CR=? (Service reporting control)\nAT+CR=?\n+CR: (0,1)\n# +CEER=? (Extended error report)\nAT+CEER=?\n# +CRC=? (Cellular result codes)\nAT+CRC=?\n+CRC: (0,1)\n# +CHSD=? (HSCSD device parameters)\nAT+CHSD=?\n# +CHST=? (HSCSD transparent call configuration)\nAT+CHST=?\nERROR\n# +CHSN=? (HSCSD non-transparent call configuration)\nAT+CHSN=?\n+CHSN: (0-4,6),(0-3),(0-3),(0,4,8,12)\n# +CHSC=? (HSCSD current call parameters)\nAT+CHSC=?\n# +CHSR=? (HSCSD parameters report)\nAT+CHSR=?\n+CHSR: (0,1)\n# +CHSU=? (HSCSD automatic user initiated upgrading)\nAT+CHSU=?\nERROR\n# +CHSA=? (HSCSD non-transparent asymmetry configuration)\nAT+CHSA=?\nERROR\n# +CSNS=? (Single numbering scheme)\nAT+CSNS=?\n+CSNS: (0,2,4)\n# +CVHU=? (Voice hang up control)\nAT+CVHU=?\nERROR\n# +CV120=? (V.120 rate adaption control)\nAT+CV120=?\n+CV120: (1),(0,1),(1),(0),(0),(0)\n# +CSDF=? (Settings date format)\nAT+CSDF=?\nERROR\n# +CSIL=? (Silence command)\nAT+CSIL=?\nERROR\n# +CSTF=? (Settings time format)\nAT+CSTF=?\nERROR\n# +CNUM=? (Subscriber number)\nAT+CNUM=?\n# +CREG=? (Network registration)\nAT+CREG=?\n+CREG: (0-2)\n# +COPS=? (Operator selection)\nAT+COPS=?\n+COPS: (2,,,\"21601\"),(1,,,\"21630\"),(1,,,\"21670\"),,(0,1),(2)\n# +CLCK=? (Facility lock)\nAT+CLCK=?\n+CLCK: (\"PS\",\"SC\",\"AO\",\"OI\",\"OX\",\"AI\",\"IR\",\"AB\",\"AG\",\"AC\",\"FD\")\n# +CPWD=? (Change password)\nAT+CPWD=?\n+CPWD: (\"PS\",5),(\"SC\",8),(\"AB\",4),(\"P2\",8)\n# +CLIP=? (Calling line identification presentation)\nAT+CLIP=?\n+CLIP: (0,1)\n# +CLIR=? (Calling line identification restriction)\nAT+CLIR=?\n+CLIR: (0-2)\n# +COLP=? (Connected line identification presentation)\nAT+COLP=?\n+COLP: (0,1)\n# +CDIP=? (Called line identification presentation)\nAT+CDIP=?\nERROR\n# +CCUG=? (Closed user group)\nAT+CCUG=?\n# +CCFC=? (Call forwarding)\nAT+CCFC=?\n+CCFC: (0-5)\n# +CCWA=? (Call waiting)\nAT+CCWA=?\n+CCWA: (0,1)\n# +CHLD=? (Call and hold multiparty)\nAT+CHLD=?\n+CHLD: (0,1,1x,2,2x,3,4)\n# +CTFR=? (Call transfer)\nAT+CTFR=?\nERROR\n# +CUSD=? (Unstructured supplementary service data)\nAT+CUSD=?\n+CUSD: (0,1)\n# +CAOC=? (Advice of charge)\nAT+CAOC=?\n# +CSSN=? (Supplementary service notifications)\nAT+CSSN=?\n+CSSN: (0,1),(0,1)\n# +CLCC=? (List current calls)\nAT+CLCC=?\n# +CPOL=? (Preferred operator list)\nAT+CPOL=?\nERROR\n# +CPLS=? (Selection of preferred PLMN list)\nAT+CPLS=?\nERROR\n# +COPN=? (Read operator names)\nAT+COPN=?\nERROR\n# +CAEMLPP=? (eMLPP Priority Registration and Interrogation)\nAT+CAEMLPP=?\nERROR\n# +CPPS=? (eMLPP subscriptions)\nAT+CPPS=?\nERROR\n# +CFCS=? (Fast call setup conditions)\nAT+CFCS=?\nERROR\n# +CAAP=? (Automatic answer for eMLPP Service)\nAT+CAAP=?\nERROR\n# +CUUS1=? (User to User Signalling Service 1)\nAT+CUUS1=?\nERROR\n# +CPAS=? (Phone activity status)\nAT+CPAS=?\n+CPAS: (0,1,3,4)\n# +CFUN=? (Set phone functionality)\nAT+CFUN=?\nERROR\n# +CPIN=? (Enter PIN)\nAT+CPIN=?\n# +CBC=? (Battery charge)\nAT+CBC=?\n+CBC: (0,1),(0-100)\n# +CSQ=? (Signal quality)\nAT+CSQ=?\n+CSQ: (0-31,99),(99)\n# +CMEC=? (ME control mode)\nAT+CMEC=?\nERROR\n# +CKPD=? (Keypad control)\nAT+CKPD=?\nERROR\n# +CDIS=? (Display control)\nAT+CDIS=?\nERROR\n# +CIND=? (Indicator control)\nAT+CIND=?\nERROR\n# +CMER=? (ME event reporting)\nAT+CMER=?\nERROR\n# +CPBS=? (Select phonebook memory storage)\nAT+CPBS=?\n+CPBS: (\"ME\",\"DC\",\"MC\",\"RC\",\"ON\",\"SM\",\"FD\")\n# +CPBR=? (Read phonebook entries)\nAT+CPBR=?\n+CPBR: (1-160),21,10\n# +CPBF=? (Find phonebook entries)\nAT+CPBF=?\n+CPBF: 21,10\n# +CPBW=? (Write phonebook entry)\nAT+CPBW=?\n+CPBW: (1-160),21,(129,145),10\n# +CCLK=? (Clock)\nAT+CCLK=?\nERROR\n# +CALA=? (Alarm)\nAT+CALA=?\nERROR\n# +CSIM=? (Generic SIM access)\nAT+CSIM=?\nERROR\n# +CRSM=? (Restricted SIM access)\nAT+CRSM=?\nERROR\n# +CSCC=? (Secure control command)\nAT+CSCC=?\nERROR\n# +CALM=? (Select ringing tone)\nAT+CALM=?\nERROR\n# +CRSL=? (Ringing tone level)\nAT+CRSL=?\nERROR\n# +CVIB=? (Vibrator tone)\nAT+CVIB=?\nERROR\n# +CLVL=? (Volume control)\nAT+CLVL=?\nERROR\n# +CMUT=? (Mute microphone)\nAT+CMUT=?\nERROR\n# +CACM=? (Accumulated call meter)\nAT+CACM=?\nERROR\n# +CAMM=? (Accumulated call meter maximum)\nAT+CAMM=?\nERROR\n# +CPUC=? (Price per unit and currency table)\nAT+CPUC=?\nERROR\n# +CCWE=? (Call meter maximum event)\nAT+CCWE=?\nERROR\n# +CPWC=? (Power class)\nAT+CPWC=?\n+CPWC: (0,(0,4,5)),(1,(0-2))\n# +CLAN=? (Set language)\nAT+CLAN=?\nERROR\n# +CLAE=? (Language event)\nAT+CLAE=?\nERROR\n# +CSGT=? (Set greeting text)\nAT+CSGT=?\nERROR\n# +CSVM=? (Set voice mail number)\nAT+CSVM=?\nERROR\n# +CRMP=? (Ring melody playback)\nAT+CRMP=?\nERROR\n# +CMAR=? (Master reset)\nAT+CMAR=?\nERROR\n# +CLAC (List all available AT commands)\nAT+CLAC\nERROR\n# +CALD=? (Delete alarm)\nAT+CALD=?\nERROR\n# +CAPD=? (Postpone or dismiss an alarm)\nAT+CAPD=?\nERROR\n# +CTZU=? (Automatic time zone update)\nAT+CTZU=?\nERROR\n# +CTZR=? (Time zone reporting)\nAT+CTZR=?\nERROR\n# +CPROT=? (Enter protocol mode)\nAT+CPROT=?\nERROR\n# +CMEE=? (ME error reporting)\nAT+CMEE=?\n+CMEE: (0-2)\n# +CGDCONT=? (Define PDP context)\nAT+CGDCONT=?\nERROR\n# +CGDSCONT=? (Define Secondary PDP context)\nAT+CGDSCONT=?\nERROR\n# +CGTFT=? (Traffic Flow Template)\nAT+CGTFT=?\nERROR\n# +CGQREQ=? (QoS profile (requested))\nAT+CGQREQ=?\nERROR\n# +CGQMIN=? (QoS profile (minimum acceptable))\nAT+CGQMIN=?\nERROR\n# +CGEQREQ=? (3G QoS profile (requested))\nAT+CGEQREQ=?\nERROR\n# +CGEQMIN=? (3G QoS profile (minimum acceptable))\nAT+CGEQMIN=?\nERROR\n# +CGEQNEG=? (3G QoS profile (negotiated))\nAT+CGEQNEG=?\nERROR\n# +CGATT=? (GPRS attach/detach)\nAT+CGATT=?\nERROR\n# +CGACT=? (PDP context activate/deactivate)\nAT+CGACT=?\nERROR\n# +CGCMOD=? (PDP context modify)\nAT+CGCMOD=?\nERROR\n# +CGDATA=? (Enter data state)\nAT+CGDATA=?\nERROR\n# +CGCLOSP=? (Configure local octet stream PAD parameters)\nAT+CGCLOSP=?\nERROR\n# +CGPADDR=? (Show PDP address)\nAT+CGPADDR=?\nERROR\n# +CGAUTO=? (Automatic response to a network request for PDP context activation)\nAT+CGAUTO=?\nERROR\n# +CGANS=? (Manual response to a network request for PDP context activation)\nAT+CGANS=?\nERROR\n# +CGCLASS=? (GPRS mobile station class)\nAT+CGCLASS=?\nERROR\n# +CGCLPAD=? (Configure local triple-X PAD parameters)\nAT+CGCLPAD=?\nERROR\n# +CGEREP=? (GPRS event reporting)\nAT+CGEREP=?\nERROR\n# +CGREG=? (GPRS network registration status)\nAT+CGREG=?\nERROR\n# +CGSMS=? (Select service for MO SMS messages)\nAT+CGSMS=?\nERROR\n# +CAJOIN=? (Accept an incoming Voice Group or Voice Broadcast Call)\nAT+CAJOIN=?\nERROR\n# +CAREJ=? (Reject an incoming Voice Group or Voice Broadcast Call)\nAT+CAREJ=?\nERROR\n# +CAHLD=? (Leave an ongoing Voice Group or Voice Broadcast Call)\nAT+CAHLD=?\nERROR\n# +CAPTT=? (Talker Access for Voice Group Call)\nAT+CAPTT=?\nERROR\n# +CAULEV=? (Voice Group Call Uplink Status Presentation)\nAT+CAULEV=?\nERROR\n# +CALCC=? (List current Voice Group and Voice Broadcast Calls)\nAT+CALCC=?\nERROR\n# +CACSP=? (Voice Group or Voice Broadcast Call State Attribute Presentation)\nAT+CACSP=?\nERROR\n# +CANCHEV=? (NCH Support Indication)\nAT+CANCHEV=?\nERROR\n# +COTDI=? (Originator to Dispatcher Information)\nAT+COTDI=?\nERROR\n# +CGCS=? (VGCS subscriptions and GId status)\nAT+CGCS=?\nERROR\n# +CBCS=? (VBS subscriptions and GId status)\nAT+CBCS=?\nERROR\n# +CSMS=? (Select message service)\nAT+CSMS=?\n+CSMS: (0,1)\n# +CPMS=? (Preferred message store)\nAT+CPMS=?\n+CPMS: (\"ME\",\"SM\"),(\"ME\",\"SM\"),(\"SM\")\n# +CMGF=? (Message format)\nAT+CMGF=?\n+CMGF: (0,1)\n# +CESP=? (Enter SMS block mode protocol)\nAT+CESP=?\nERROR\n# +CSCA=? (Service center address)\nAT+CSCA=?\n# +CMGF=1 (Text mode)\nAT+CMGF=1\n# +CSMP=? (Set text mode parameters)\nAT+CSMP=?\n# +CSDH=? (Show text mode parameters)\nAT+CSDH=?\n+CSDH: (0,1)\n# +CMGL=? (List messages (text))\nAT+CMGL=?\n+CMGL: (\"REC UNREAD\",\"ALL\")\n# +CMGR=? (Read message (text))\nAT+CMGR=?\n# +CNMA=? (New message acknowledgement to ME/TA (text))\nAT+CNMA=?\n# +CMGS=? (Send message (text))\nAT+CMGS=?\n# +CMSS=? (Send message from storage (text))\nAT+CMSS=?\n# +CMGW=? (Write message to memory (text))\nAT+CMGW=?\n# +CMGD=? (Delete message (text))\nAT+CMGD=?\n# +CMGC=? (Send command (text))\nAT+CMGC=?\n# +CMGF=0 (PDU mode)\nAT+CMGF=0\n# +CMGL=? (List messages (pdu))\nAT+CMGL=?\n+CMGL: (0,4)\n# +CMGR=? (Read message (pdu))\nAT+CMGR=?\n# +CNMA=? (New message acknowledgement to ME/TA (pdu))\nAT+CNMA=?\n+CNMA: (0-2)\n# +CMGS=? (Send message (pdu))\nAT+CMGS=?\n# +CMSS=? (Send message from storage (pdu))\nAT+CMSS=?\n# +CMGW=? (Write message to memory (pdu))\nAT+CMGW=?\n# +CMGD=? (Delete message (pdu))\nAT+CMGD=?\n# +CMGC=? (Send command (pdu))\nAT+CMGC=?\n# +CSCB=? (Select cell broadcast message types)\nAT+CSCB=?\n+CSCB: (0,1)\n# +CSAS=? (Save settings)\nAT+CSAS=?\n+CSAS: (1)\n# +CRES=? (Restore settings)\nAT+CRES=?\n+CRES: (1)\n# +CNMI=? (New message indications to TE)\nAT+CNMI=?\n+CNMI: (0-2),(0-3),(0,2,3),(0-2),(0,1)\n# +CMMS=? (More messages to send)\nAT+CMMS=?\n+CMMS: (0-2)\n[/quote:3infii55]\n\n[b:3infii55]Can I use with this ?[/b:3infii55]\n\n[code:3infii55]\n\n\ninclude &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, nComm &#58;= InitComm&#40;&#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Testing Comm functions&quot;\n\n   oDlg&#58;bCommNotify = &#123; | nComm, nStatus | BytesAtPort&#40; nComm, nStatus &#41; &#125;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT EnableCommNotification&#40; nComm, oDlg&#58;hWnd, 20, 20 &#41;\n\n   CloseComm&#40; nComm &#41;\n\nreturn nil\n\nfunction InitCOMM&#40;&#41;\n\n   local cDcb, nError, nBytes\n   local nComm &#58;= OpenComm&#40; &quot;COM1&quot;, 1024, 128 &#41;\n\n   if ! BuildCommDcb&#40; &quot;COM1&#58;9600,n,8,1&quot;, @cDcb &#41;\n      MsgStop&#40; &quot;Error BUILD!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\n   #ifdef __CLIPPER__\n      if ! SetCommState&#40; cDcb &#41;\n   #else   \n      if ! SetCommState&#40; nComm, cDcb &#41;\n   #endif   \n      MsgStop&#40; &quot;Error SETCOMM!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\nreturn nComm\n\nfunction BytesAtPort&#40; nComm, nStatus &#41;\n\n   local cBuffer &#58;= Space&#40;20 &#41;\n\n   Msginfo&#40; nSTATUS&#41;\n   ReadComm&#40; nComm, @cBuffer &#41;  // &lt;&lt;&lt;&lt;---- program will lock here\n   Msginfo&#40; AllTrim&#40; cBuffer &#41;&#41;\n\nreturn nil\n[/code:3infii55]\n\nBest Regards\nAreang','',0,'wIA=','3infii55',1,0,'',707,0,0),(27432,6141,3,707,0,'125.163.103.3',1172615963,1,0,1,1,1,0,'','AT COMMAND FOR GSM MODEM','Hi All !\n\nI found this for Nokia Mobile Phone \nHow to use with FWH\n\n[quote:3952axoz]\n# cquery 4.16b\n# +GMI (TA manufacturer)\nAT+GMI\nNokia Mobile Phones\n# +GMM (TA model)\nAT+GMM\nNokia 6210\n# +GMR (TA revision)\nAT+GMR\nSW05.02\n# +GSN (TA serial number)\nAT+GSN\n&lt;deleted&gt;\n# +GOI (Global Object Identification)\nAT+GOI\nERROR\n# +GCI (Country of installation)\nAT+GCI\nERROR\n# +GCAP (Capabilities)\nAT+GCAP\n+GCAP: +CGSM,+FCLASS,+DS\n# +CGMI (ME manufacturer)\nAT+CGMI\nNokia Mobile Phones\n# +CGMM (ME model)\nAT+CGMM\nNokia 6210\n# +CGMR (ME revison)\nAT+CGMR\nSW05.02\n# +CGSN (ME serial number aka IMEI)\nAT+CGSN\n&lt;deleted&gt;\n# +CSCS=? (TE character set)\nAT+CSCS=?\n+CSCS: (\"GSM\",\"HEX\",\"IRA\",\"PCCP437\",\"PCDN\",\"8859-1\")\n# +CIMI=? (International mobile subscriber identity)\nAT+CIMI=?\nERROR\n# +CMUX=? (Multiplexing mode)\nAT+CMUX=?\nERROR\n# +CSTA=? (Select type of address)\nAT+CSTA=?\n+CSTA: (129,145)\n# +CMOD=? (Call mode)\nAT+CMOD=?\n+CMOD: (0-3)\n# +CHUP=? (Hangup call)\nAT+CHUP=?\n# +CBST=? (Bearer service type)\nAT+CBST=?\n+CBST: (0-7,12,14-16,34,36,38,39,43,47-51,65,66,68,70,71,75,79-81),(0,2),(1)\n# +CRLP=? (Radio link protocol)\nAT+CRLP=?\n+CRLP: (0-61),(0-61),(39-255),(1-255)\n+CRLP: (0-96),(0-64),(39-255),(1-255),2,(3-255)\n# +CR=? (Service reporting control)\nAT+CR=?\n+CR: (0,1)\n# +CEER=? (Extended error report)\nAT+CEER=?\n# +CRC=? (Cellular result codes)\nAT+CRC=?\n+CRC: (0,1)\n# +CHSD=? (HSCSD device parameters)\nAT+CHSD=?\n# +CHST=? (HSCSD transparent call configuration)\nAT+CHST=?\nERROR\n# +CHSN=? (HSCSD non-transparent call configuration)\nAT+CHSN=?\n+CHSN: (0-4,6),(0-3),(0-3),(0,4,8,12)\n# +CHSC=? (HSCSD current call parameters)\nAT+CHSC=?\n# +CHSR=? (HSCSD parameters report)\nAT+CHSR=?\n+CHSR: (0,1)\n# +CHSU=? (HSCSD automatic user initiated upgrading)\nAT+CHSU=?\nERROR\n# +CHSA=? (HSCSD non-transparent asymmetry configuration)\nAT+CHSA=?\nERROR\n# +CSNS=? (Single numbering scheme)\nAT+CSNS=?\n+CSNS: (0,2,4)\n# +CVHU=? (Voice hang up control)\nAT+CVHU=?\nERROR\n# +CV120=? (V.120 rate adaption control)\nAT+CV120=?\n+CV120: (1),(0,1),(1),(0),(0),(0)\n# +CSDF=? (Settings date format)\nAT+CSDF=?\nERROR\n# +CSIL=? (Silence command)\nAT+CSIL=?\nERROR\n# +CSTF=? (Settings time format)\nAT+CSTF=?\nERROR\n# +CNUM=? (Subscriber number)\nAT+CNUM=?\n# +CREG=? (Network registration)\nAT+CREG=?\n+CREG: (0-2)\n# +COPS=? (Operator selection)\nAT+COPS=?\n+COPS: (2,,,\"21601\"),(1,,,\"21630\"),(1,,,\"21670\"),,(0,1),(2)\n# +CLCK=? (Facility lock)\nAT+CLCK=?\n+CLCK: (\"PS\",\"SC\",\"AO\",\"OI\",\"OX\",\"AI\",\"IR\",\"AB\",\"AG\",\"AC\",\"FD\")\n# +CPWD=? (Change password)\nAT+CPWD=?\n+CPWD: (\"PS\",5),(\"SC\",8),(\"AB\",4),(\"P2\",8)\n# +CLIP=? (Calling line identification presentation)\nAT+CLIP=?\n+CLIP: (0,1)\n# +CLIR=? (Calling line identification restriction)\nAT+CLIR=?\n+CLIR: (0-2)\n# +COLP=? (Connected line identification presentation)\nAT+COLP=?\n+COLP: (0,1)\n# +CDIP=? (Called line identification presentation)\nAT+CDIP=?\nERROR\n# +CCUG=? (Closed user group)\nAT+CCUG=?\n# +CCFC=? (Call forwarding)\nAT+CCFC=?\n+CCFC: (0-5)\n# +CCWA=? (Call waiting)\nAT+CCWA=?\n+CCWA: (0,1)\n# +CHLD=? (Call and hold multiparty)\nAT+CHLD=?\n+CHLD: (0,1,1x,2,2x,3,4)\n# +CTFR=? (Call transfer)\nAT+CTFR=?\nERROR\n# +CUSD=? (Unstructured supplementary service data)\nAT+CUSD=?\n+CUSD: (0,1)\n# +CAOC=? (Advice of charge)\nAT+CAOC=?\n# +CSSN=? (Supplementary service notifications)\nAT+CSSN=?\n+CSSN: (0,1),(0,1)\n# +CLCC=? (List current calls)\nAT+CLCC=?\n# +CPOL=? (Preferred operator list)\nAT+CPOL=?\nERROR\n# +CPLS=? (Selection of preferred PLMN list)\nAT+CPLS=?\nERROR\n# +COPN=? (Read operator names)\nAT+COPN=?\nERROR\n# +CAEMLPP=? (eMLPP Priority Registration and Interrogation)\nAT+CAEMLPP=?\nERROR\n# +CPPS=? (eMLPP subscriptions)\nAT+CPPS=?\nERROR\n# +CFCS=? (Fast call setup conditions)\nAT+CFCS=?\nERROR\n# +CAAP=? (Automatic answer for eMLPP Service)\nAT+CAAP=?\nERROR\n# +CUUS1=? (User to User Signalling Service 1)\nAT+CUUS1=?\nERROR\n# +CPAS=? (Phone activity status)\nAT+CPAS=?\n+CPAS: (0,1,3,4)\n# +CFUN=? (Set phone functionality)\nAT+CFUN=?\nERROR\n# +CPIN=? (Enter PIN)\nAT+CPIN=?\n# +CBC=? (Battery charge)\nAT+CBC=?\n+CBC: (0,1),(0-100)\n# +CSQ=? (Signal quality)\nAT+CSQ=?\n+CSQ: (0-31,99),(99)\n# +CMEC=? (ME control mode)\nAT+CMEC=?\nERROR\n# +CKPD=? (Keypad control)\nAT+CKPD=?\nERROR\n# +CDIS=? (Display control)\nAT+CDIS=?\nERROR\n# +CIND=? (Indicator control)\nAT+CIND=?\nERROR\n# +CMER=? (ME event reporting)\nAT+CMER=?\nERROR\n# +CPBS=? (Select phonebook memory storage)\nAT+CPBS=?\n+CPBS: (\"ME\",\"DC\",\"MC\",\"RC\",\"ON\",\"SM\",\"FD\")\n# +CPBR=? (Read phonebook entries)\nAT+CPBR=?\n+CPBR: (1-160),21,10\n# +CPBF=? (Find phonebook entries)\nAT+CPBF=?\n+CPBF: 21,10\n# +CPBW=? (Write phonebook entry)\nAT+CPBW=?\n+CPBW: (1-160),21,(129,145),10\n# +CCLK=? (Clock)\nAT+CCLK=?\nERROR\n# +CALA=? (Alarm)\nAT+CALA=?\nERROR\n# +CSIM=? (Generic SIM access)\nAT+CSIM=?\nERROR\n# +CRSM=? (Restricted SIM access)\nAT+CRSM=?\nERROR\n# +CSCC=? (Secure control command)\nAT+CSCC=?\nERROR\n# +CALM=? (Select ringing tone)\nAT+CALM=?\nERROR\n# +CRSL=? (Ringing tone level)\nAT+CRSL=?\nERROR\n# +CVIB=? (Vibrator tone)\nAT+CVIB=?\nERROR\n# +CLVL=? (Volume control)\nAT+CLVL=?\nERROR\n# +CMUT=? (Mute microphone)\nAT+CMUT=?\nERROR\n# +CACM=? (Accumulated call meter)\nAT+CACM=?\nERROR\n# +CAMM=? (Accumulated call meter maximum)\nAT+CAMM=?\nERROR\n# +CPUC=? (Price per unit and currency table)\nAT+CPUC=?\nERROR\n# +CCWE=? (Call meter maximum event)\nAT+CCWE=?\nERROR\n# +CPWC=? (Power class)\nAT+CPWC=?\n+CPWC: (0,(0,4,5)),(1,(0-2))\n# +CLAN=? (Set language)\nAT+CLAN=?\nERROR\n# +CLAE=? (Language event)\nAT+CLAE=?\nERROR\n# +CSGT=? (Set greeting text)\nAT+CSGT=?\nERROR\n# +CSVM=? (Set voice mail number)\nAT+CSVM=?\nERROR\n# +CRMP=? (Ring melody playback)\nAT+CRMP=?\nERROR\n# +CMAR=? (Master reset)\nAT+CMAR=?\nERROR\n# +CLAC (List all available AT commands)\nAT+CLAC\nERROR\n# +CALD=? (Delete alarm)\nAT+CALD=?\nERROR\n# +CAPD=? (Postpone or dismiss an alarm)\nAT+CAPD=?\nERROR\n# +CTZU=? (Automatic time zone update)\nAT+CTZU=?\nERROR\n# +CTZR=? (Time zone reporting)\nAT+CTZR=?\nERROR\n# +CPROT=? (Enter protocol mode)\nAT+CPROT=?\nERROR\n# +CMEE=? (ME error reporting)\nAT+CMEE=?\n+CMEE: (0-2)\n# +CGDCONT=? (Define PDP context)\nAT+CGDCONT=?\nERROR\n# +CGDSCONT=? (Define Secondary PDP context)\nAT+CGDSCONT=?\nERROR\n# +CGTFT=? (Traffic Flow Template)\nAT+CGTFT=?\nERROR\n# +CGQREQ=? (QoS profile (requested))\nAT+CGQREQ=?\nERROR\n# +CGQMIN=? (QoS profile (minimum acceptable))\nAT+CGQMIN=?\nERROR\n# +CGEQREQ=? (3G QoS profile (requested))\nAT+CGEQREQ=?\nERROR\n# +CGEQMIN=? (3G QoS profile (minimum acceptable))\nAT+CGEQMIN=?\nERROR\n# +CGEQNEG=? (3G QoS profile (negotiated))\nAT+CGEQNEG=?\nERROR\n# +CGATT=? (GPRS attach/detach)\nAT+CGATT=?\nERROR\n# +CGACT=? (PDP context activate/deactivate)\nAT+CGACT=?\nERROR\n# +CGCMOD=? (PDP context modify)\nAT+CGCMOD=?\nERROR\n# +CGDATA=? (Enter data state)\nAT+CGDATA=?\nERROR\n# +CGCLOSP=? (Configure local octet stream PAD parameters)\nAT+CGCLOSP=?\nERROR\n# +CGPADDR=? (Show PDP address)\nAT+CGPADDR=?\nERROR\n# +CGAUTO=? (Automatic response to a network request for PDP context activation)\nAT+CGAUTO=?\nERROR\n# +CGANS=? (Manual response to a network request for PDP context activation)\nAT+CGANS=?\nERROR\n# +CGCLASS=? (GPRS mobile station class)\nAT+CGCLASS=?\nERROR\n# +CGCLPAD=? (Configure local triple-X PAD parameters)\nAT+CGCLPAD=?\nERROR\n# +CGEREP=? (GPRS event reporting)\nAT+CGEREP=?\nERROR\n# +CGREG=? (GPRS network registration status)\nAT+CGREG=?\nERROR\n# +CGSMS=? (Select service for MO SMS messages)\nAT+CGSMS=?\nERROR\n# +CAJOIN=? (Accept an incoming Voice Group or Voice Broadcast Call)\nAT+CAJOIN=?\nERROR\n# +CAREJ=? (Reject an incoming Voice Group or Voice Broadcast Call)\nAT+CAREJ=?\nERROR\n# +CAHLD=? (Leave an ongoing Voice Group or Voice Broadcast Call)\nAT+CAHLD=?\nERROR\n# +CAPTT=? (Talker Access for Voice Group Call)\nAT+CAPTT=?\nERROR\n# +CAULEV=? (Voice Group Call Uplink Status Presentation)\nAT+CAULEV=?\nERROR\n# +CALCC=? (List current Voice Group and Voice Broadcast Calls)\nAT+CALCC=?\nERROR\n# +CACSP=? (Voice Group or Voice Broadcast Call State Attribute Presentation)\nAT+CACSP=?\nERROR\n# +CANCHEV=? (NCH Support Indication)\nAT+CANCHEV=?\nERROR\n# +COTDI=? (Originator to Dispatcher Information)\nAT+COTDI=?\nERROR\n# +CGCS=? (VGCS subscriptions and GId status)\nAT+CGCS=?\nERROR\n# +CBCS=? (VBS subscriptions and GId status)\nAT+CBCS=?\nERROR\n# +CSMS=? (Select message service)\nAT+CSMS=?\n+CSMS: (0,1)\n# +CPMS=? (Preferred message store)\nAT+CPMS=?\n+CPMS: (\"ME\",\"SM\"),(\"ME\",\"SM\"),(\"SM\")\n# +CMGF=? (Message format)\nAT+CMGF=?\n+CMGF: (0,1)\n# +CESP=? (Enter SMS block mode protocol)\nAT+CESP=?\nERROR\n# +CSCA=? (Service center address)\nAT+CSCA=?\n# +CMGF=1 (Text mode)\nAT+CMGF=1\n# +CSMP=? (Set text mode parameters)\nAT+CSMP=?\n# +CSDH=? (Show text mode parameters)\nAT+CSDH=?\n+CSDH: (0,1)\n# +CMGL=? (List messages (text))\nAT+CMGL=?\n+CMGL: (\"REC UNREAD\",\"ALL\")\n# +CMGR=? (Read message (text))\nAT+CMGR=?\n# +CNMA=? (New message acknowledgement to ME/TA (text))\nAT+CNMA=?\n# +CMGS=? (Send message (text))\nAT+CMGS=?\n# +CMSS=? (Send message from storage (text))\nAT+CMSS=?\n# +CMGW=? (Write message to memory (text))\nAT+CMGW=?\n# +CMGD=? (Delete message (text))\nAT+CMGD=?\n# +CMGC=? (Send command (text))\nAT+CMGC=?\n# +CMGF=0 (PDU mode)\nAT+CMGF=0\n# +CMGL=? (List messages (pdu))\nAT+CMGL=?\n+CMGL: (0,4)\n# +CMGR=? (Read message (pdu))\nAT+CMGR=?\n# +CNMA=? (New message acknowledgement to ME/TA (pdu))\nAT+CNMA=?\n+CNMA: (0-2)\n# +CMGS=? (Send message (pdu))\nAT+CMGS=?\n# +CMSS=? (Send message from storage (pdu))\nAT+CMSS=?\n# +CMGW=? (Write message to memory (pdu))\nAT+CMGW=?\n# +CMGD=? (Delete message (pdu))\nAT+CMGD=?\n# +CMGC=? (Send command (pdu))\nAT+CMGC=?\n# +CSCB=? (Select cell broadcast message types)\nAT+CSCB=?\n+CSCB: (0,1)\n# +CSAS=? (Save settings)\nAT+CSAS=?\n+CSAS: (1)\n# +CRES=? (Restore settings)\nAT+CRES=?\n+CRES: (1)\n# +CNMI=? (New message indications to TE)\nAT+CNMI=?\n+CNMI: (0-2),(0-3),(0,2,3),(0-2),(0,1)\n# +CMMS=? (More messages to send)\nAT+CMMS=?\n+CMMS: (0-2)\n[/quote:3952axoz]\n\n[b:3952axoz]Can I use with this ?[/b:3952axoz]\n\n[code:3952axoz]\n\n\ninclude &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, nComm &#58;= InitComm&#40;&#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Testing Comm functions&quot;\n\n   oDlg&#58;bCommNotify = &#123; | nComm, nStatus | BytesAtPort&#40; nComm, nStatus &#41; &#125;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT EnableCommNotification&#40; nComm, oDlg&#58;hWnd, 20, 20 &#41;\n\n   CloseComm&#40; nComm &#41;\n\nreturn nil\n\nfunction InitCOMM&#40;&#41;\n\n   local cDcb, nError, nBytes\n   local nComm &#58;= OpenComm&#40; &quot;COM1&quot;, 1024, 128 &#41;\n\n   if ! BuildCommDcb&#40; &quot;COM1&#58;9600,n,8,1&quot;, @cDcb &#41;\n      MsgStop&#40; &quot;Error BUILD!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\n   #ifdef __CLIPPER__\n      if ! SetCommState&#40; cDcb &#41;\n   #else   \n      if ! SetCommState&#40; nComm, cDcb &#41;\n   #endif   \n      MsgStop&#40; &quot;Error SETCOMM!&quot; &#41;\n      return &#46;f&#46;\n   endif\n\nreturn nComm\n\nfunction BytesAtPort&#40; nComm, nStatus &#41;\n\n   local cBuffer &#58;= Space&#40;20 &#41;\n\n   Msginfo&#40; nSTATUS&#41;\n   ReadComm&#40; nComm, @cBuffer &#41;  // &lt;&lt;&lt;&lt;---- program will lock here\n   Msginfo&#40; AllTrim&#40; cBuffer &#41;&#41;\n\nreturn nil\n[/code:3952axoz]\n\nBest Regards\nAreang','',0,'wIA=','3952axoz',1,0,'',707,0,0),(27433,6111,3,962,0,'200.161.189.122',1172616034,1,0,1,1,1,1,'','','Correto, tenho certeza que desta forma funcionará, entre outras formas que citei.\n\nMas pretendo usar da forma que mencionei (afinal existem os Methods) pois tento trabalhar na forma mais direta e otimizada possível. E se comprovado o Bug, o mesmo deve ser corrigido, correto ?!\n\nAté o momento não tive nenhum contato do FiveWin.br ou Linares, inclusive enviei exemplos para ambos...','',0,'wIA=','30r1nt0e',1,0,'',962,0,0),(27434,6134,3,303,0,'72.199.41.171',1172619315,1,0,1,1,1,0,'','','Charles,\n\nI would suggest creating a simple test file to display one of the dialogs that is showing the problem. Compile this test and link in the RC file to see if the problem persists. If it does then the problem is in the RC file, if not, then the problem is in the code of your application. Let us know what you find.\n\nJames','',0,'wIA=','1i7agvsd',1,0,'',303,0,0),(27435,6137,6,138,0,'189.141.72.59',1172620403,1,0,1,1,1,1,'','','Con VPN y DBFs puros y duros, imposible.\n\nForzosamente vas a necesitar un motor de base de datos.\n\nSi vas a usar DBFs lo mejor es Advantage Database Server, no tienes que mover mucho tu codigo y tiene una excelente respuesta en entornos de redes Wan.\n\nSi no quieres gastar lo que cuesta ADS, entonces deberas de optar por un motor SQL.','',0,'wIA=','3fe536ok',1,0,'',138,0,0),(27436,6115,6,138,0,'189.141.72.59',1172621213,1,0,1,1,1,1,'','Re: info sobre mediator ...','[quote=&quot;Francisco Horta&quot;:3jkikcqv]pues eso, alguien ha usado mediator?, creo que se pueden seguir usando las dbf y cdx bajo mediator como ambiente sql, alguien que comparta alguna experiencia, lo que pasa es que en los desarrollos que voy a hacer tengo un win server 2003, entonces estoy con la disyuntiva, uso dbf y cdx puro, le elntro a tablas de mysql, o dbf y cdx bajo mediator...\nsalu2\npaco[/quote:3jkikcqv]\n\nSi quieres usar tablas DBFs con instrucciones SQL, lo mejor es Advantage Database Server, ADS te da las mismas prestaciones que CUALQUIER SQL, Tecnologia Cliente / Servidor, acceso por internet, Seguridad de datos, encriptacion, Control de usuarios, permisos individuales de acceso a tablas para lectura, escritura o solo lectura, transacciones, triggers, procesos almacenados, diccionario de datos, integridad referencial respaldo automatico, etc, y puedes trabajar sobre tablas DBFs, con indices CDX o NTX o bien usando el formato nativo de Advantage, el archivo ADT.\n\nADS es una estupenda alternativa para usar DBFs pero tiene un \"pequeño\" inconveniente: $$$$$\n\nMediator lo que hace, es ponerte un modelo similar al modelo XBase pero para tablas SQL, es decir, en vez de manejar las tablas SQL, usando queries, lo vas a manejar usando comandos Xbase, pero creeme, un SQL manejado como Xbase pierde mucho, y no es por hablar mal de mediator, pero es la pura realidad.\n\nLo mejor, desde mi punto de vista, si es algo que vas a empezar nuevo, desde cero, es usar un motor SQL (MySQL, SQL Server, PostGreSQL, etc) con ADO, funciona de maravilla.','',0,'gA==','3jkikcqv',1,0,'',138,0,0),(27437,6142,6,121,0,'189.135.92.1',1172624069,1,0,1,1,1,1,'','ALGUIEN ME PUEDE AYUDAR CON LOS MENUS TIPO XP','utilizo FWH 2.7 nov,2005  y xharbour 0.99.5 \n\nal compilar lor programas prg y   dejando los obj originales ( gradfill y menus ) me manda \nel error  unresolved external hb_stack referenced from menus.obj \n\nluego intente compliar los archivos .c   gradfill y menus  pero al compilar \nmenus.c  manda el siguiente error:  declaration syntax error menus.c (23) \n\nA CONTINUACION MUESTRO LA FORMA DE COMPILAR \n\n\n@ECHO ON \nCLS \nECHO Compiling... \n\nset hdir=c:\\xharbour \nset bcdir=c:\\bcc55 \n\nc:\\xharbour\\bin\\harbour %1 /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt; clip.log \nc:\\xharbour\\bin\\harbour menu.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log \nc:\\xharbour\\bin\\harbour mru.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log \nc:\\xharbour\\bin\\harbour menuitem.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log \nc:\\xharbour\\bin\\harbour pdmenu.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log \n@type clip.log \npause \ncls \n\necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include %1.c         &gt; b32.bc \necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include menu.c      &gt;&gt; b32.bc \necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include mru.c       &gt;&gt; b32.bc \necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include menuitem.c  &gt;&gt; b32.bc \necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include pdmenu.c    &gt;&gt; b32.bc \necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include menus.c     &gt;&gt; b32.bc \necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include gradfill.c  &gt;&gt; b32.bc \nc:\\bcc55\\bin\\bcc32 -M -c @b32.bc \n:ENDCOMPILE \npause \nIF EXIST %1.rc c:\\bcc55\\bin\\brc32 -r %1 \n\necho c:\\bcc55\\lib\\c0w32.obj + &gt; b32.bc \necho %1.obj + &gt;&gt; b32.bc \necho menu.obj + &gt;&gt; b32.bc \necho Mru.obj + &gt;&gt; b32.bc \necho gradfill.obj + &gt;&gt; b32.bc \necho menus.obj + &gt;&gt; b32.bc \necho menuitem.obj + &gt;&gt; b32.bc \necho pdmenu.obj, + &gt;&gt; b32.bc \necho %1.exe, + &gt;&gt; b32.bc \necho %1.map, + &gt;&gt; b32.bc \necho c:\\fwh\\lib\\FiveH.lib c:\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc \n\necho %hdir%\\lib\\rtl.lib          +  &gt;&gt; b32.bc \necho %hdir%\\lib\\vm.lib           +  &gt;&gt; b32.bc \necho %hdir%\\lib\\gtwin.lib        +  &gt;&gt; b32.bc \necho %hdir%\\lib\\lang.lib         +  &gt;&gt; b32.bc \necho %hdir%\\lib\\macro.lib        +  &gt;&gt; b32.bc \necho %hdir%\\lib\\rdd.lib          +  &gt;&gt; b32.bc \necho %hdir%\\lib\\dbfntx.lib       +  &gt;&gt; b32.bc \necho %hdir%\\lib\\dbfcdx.lib       +  &gt;&gt; b32.bc \necho %hdir%\\lib\\dbffpt.lib       +  &gt;&gt; b32.bc \necho %hdir%\\lib\\hbsix.lib        +  &gt;&gt; b32.bc \necho %hdir%\\lib\\debug.lib        +  &gt;&gt; b32.bc \necho %hdir%\\lib\\common.lib       +  &gt;&gt; b32.bc \necho %hdir%\\lib\\pp.lib           +  &gt;&gt; b32.bc \necho %hdir%\\lib\\codepage.lib     +  &gt;&gt; b32.bc \n\necho c:\\bcc55\\lib\\cw32.lib + &gt;&gt; b32.bc \necho c:\\bcc55\\lib\\import32.lib + &gt;&gt; b32.bc \necho c:\\bcc55\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc \necho c:\\bcc55\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc \necho c:\\bcc55\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc \necho c:\\bcc55\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc \n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc \nc:\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc \n\n_________________________________________________________________ \nCrea tu propia página de enrada con[/size][/size][/size] todo lo que te gusta <!-- m --><a class=\"postlink\" href=\"http://live.com\">http://live.com</a><!-- m -->','',0,'','1arvuq5e',1,0,'',121,0,0),(27438,6143,3,190,0,'124.7.27.26',1172628836,1,0,1,1,1,0,'','What is the difference between VB Menus and FWH Menus','Hello Mr.Antonio\n\nI was testing Codejock.CommandBars.v10.4.2.ocx.  It was\nalmost working OK.\n\nBut the Menus are painted on the Title Bar.  When I contacted\nCodejock support, they said: \n\n[quote:2kcfuvar]Sorry, only VB menus supported[/quote:2kcfuvar]\n\nI would like to know what is the difference between VB Menus \nand FWH Menus ?.  Which Menus are windows standard menus\namong V.B Menus and FWH Menus ?.\n\nBy the way the  FWH\'s Popup Menus are properly skinned using \nthis OCX.\n\nRegards \n\n- Ramesh Babu P','',0,'gA==','2kcfuvar',1,0,'',190,0,0),(27439,6134,3,190,0,'124.7.27.26',1172629486,1,0,1,1,1,0,'','','Mr.Charles\n\nHave you used [color=blue:262k6871]0x4L[/color:262k6871] in STYLE clause ?. Try as under.\n \n[quote:262k6871]\nSTYLE DS_SYSMODAL | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU[/quote:262k6871]\n\nRegards\n\n- Ramesh Babu P','',0,'gg==','262k6871',1,0,'',190,0,0),(27440,6129,6,785,0,'190.64.200.164',1172629524,1,0,1,1,1,0,'','','Amigo:\n\n FOR i := 1 TO 6\noFont[i]:End()\nNEXT \n\nTienes dos puntos en for i :=\ndebes sacarle los 2 puntos.\n\nSaludos\n\nRuben Fernandez.','',0,'','28lfepv6',1,0,'',785,0,0),(27441,6143,3,15,0,'203.70.52.83',1172634082,1,0,1,1,1,0,'','','Hello RAMESHBABU,\n\nYour think it same as me. I guess FWH\'s menu maybe too old version.\nEx. Vista call support FWH AP menu and incompatible new Vista\'s Menu.\n\nMy sample\'s Popup menu, I use Free menu code from Fivetech forum download site. But strange popup menu work fine Skin\'s Windows( Preview window) and Dialog( popup menu ).\n\nRegards,\n\nRichard','',0,'','2p362757',1,0,'',15,0,0),(27442,6120,3,215,0,'189.136.228.186',1172635491,1,0,1,1,1,1,'','hi','Hi guys,\nCan you post some sample of skins with Fwh please.\n\nThanks you\nFernando','',0,'','256cu2kc',1,0,'',215,0,0),(27443,6129,6,396,0,'200.71.186.101',1172636467,1,0,1,1,1,0,'','','No seria mas practico si creas un array con los font y luego llamas el que quieras...?  aFonts := { {Font1, font2, Font3, Fontn} }, nose, digo.','',0,'','3b8pjht7',1,0,'',396,0,0),(27444,6115,6,37,0,'201.230.213.227',1172637748,1,0,1,1,1,1,'','','Solo para puntualizar, no se como funciona Mediator, pero una herramienta que en la presentacion hace lo mismo SQLLIB que es la que nosotros usamos, trabaja a MySQL y/o PostGreSQL con comandos xBase, pero como menciona Rene, en algunas opciones se nota la lentitud, pero existen llamados directos a los comandos y/o funciones SQL nativas, lo que te permite trabajar con ellos directamente y con la velocidad del SQL nativo.\nNo tengo ni idea de como funciona ADO pero poner comandos SQL nativos como INSERT, UPDATE o SELECT me parece estupendo y con SQLLIB se puede.\nSaludos','',0,'','k1o48b4d',1,0,'',37,0,0),(27445,6131,6,413,0,'194.106.16.43',1172644034,1,0,1,1,1,0,'','','Nuevamente Gracias Antonio.','',0,'','1uhd1del',1,0,'',413,0,0),(27446,6128,1,2,0,'87.218.146.23',1172649052,1,0,1,1,1,1,'','','Colin,\n\nPlease use this flag too:\n\n-D_WINDOWS_','',0,'','1sjg1qpc',1,0,'',2,0,0),(27447,6144,6,413,0,'194.106.16.43',1172650239,1,0,1,1,1,0,'','Saber el nombre del exe que estas ejecutanto','Existe alguna manera de saber el nombre del programa que estas ejecutando de forma autonoma. Me refiero si hay forma de que el programa te informe de cual  es su nombre, a modo de ejemplo \"fivewindemo.exe\" y en el directorio donde se ha ejecutado. He buscado si existe alguna funcion GetExeName o GetPrgName y no he encontrado algo similar. Alguna idea.\n\nSaludos','',0,'','3c7rlx9b',1,0,'',413,0,0),(27448,6144,6,2,0,'87.218.146.193',1172650500,1,0,1,1,1,1,'','','GetModuleFileName( GetInstance() )','',0,'','ugv6yv1r',1,0,'',2,0,0),(27449,6144,6,413,0,'194.106.16.43',1172650656,1,0,1,1,1,0,'','','Mas rapido imposible y mira que he revisado las chm para ver si encontraba algo. Gracias nuevamente Antonio.','',0,'','1q8rpdir',1,0,'',413,0,0),(27450,6143,3,2,0,'87.218.146.193',1172650767,1,0,1,1,1,1,'','','Ramesh, Richard,\n\nFWH uses 100% standard Windows API menus','',0,'','1gs9sgef',1,0,'',2,0,0),(27451,6111,3,2,0,'87.218.146.193',1172651407,1,0,1,1,1,1,'','','Éric,\n\nIt is not a bug. Please set:\n\noDBCli:lTenChars := .F.  // Avoid Clipper restriction compatibility\n\nas CLI_TIPPES is 10 chars length','',0,'','3k67r313',1,0,'',2,0,0),(27452,6108,6,123,0,'83.53.69.224',1172651707,1,0,1,1,1,0,'','','Luis,\n\nMira aquí... [url:d37j9mqv]http&#58;//www&#46;capelblog&#46;com/?p=48[/url:d37j9mqv] quizás te pueda ayudar a ver como se hace un [i:d37j9mqv]wrapper[/i:d37j9mqv] a una función dentro de una dll.\n\nSaludos,\nJosé Luis Capel','',0,'MA==','d37j9mqv',1,0,'',123,0,0),(27453,6144,6,2,0,'87.218.146.193',1172651715,1,0,1,1,1,1,'','','Andrés,\n\nEl errorsys de FWH lo usa para mostrar el nombre del ejecutable <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsource\\function\\errsysw.prg\n\nEsa información es propia del API de Windows, no de FWH','',0,'MA==','3ow9xqkg',1,0,'',2,0,0),(27454,6142,6,2,0,'87.218.146.193',1172651895,1,0,1,1,1,1,'','','Marco,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3974\">http://fivetechsoft.com/forums/viewtopic.php?t=3974</a><!-- m -->','',0,'MA==','24ostq2h',1,0,'',2,0,0),(27455,6111,3,962,0,'200.161.189.122',1172652050,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2xf242qp]Éric,\n\nIt is not a bug. Please set:\n\noDBCli:lTenChars := .F.  // Avoid Clipper restriction compatibility\n\nas CLI_TIPPES is 10 chars length[/quote:2xf242qp]\n\nNão resolveu!!!\ne a minha classe não terá \"lTenChars\"\nCLI_TIPPES é de 1 byte, mas se transformará conforme o elemento do vetor!!!\n\nQualquer umas das formas abaixo, funciona corretamente:\n\nVariável comum (LOCAL cTipPes:=\'F\')\nReDefine ComboBox cTipPes... // Assim funciona\n\nou\n@10,10 ComboBox oDBCli:CLI_TIPPES ...  // Assim funciona\n\nou\nQuando não receber o primeiro foco  // Assim funciona\n\nAinda continuo com o problema !!!!!\nVocê testou o exemplo que te enviei por email ????','',0,'gA==','2xf242qp',1,1172652447,'',962,1,0),(27456,6108,6,2,0,'87.218.146.193',1172652176,1,0,1,1,1,1,'','','Luis,\n\nNecesitas la documentación (ó el fichero include que la acompañe) de esa DLL para saber que funciones exporta y con que parámetros exactamente han de ser llamadas','',0,'gA==','2hv8sxy8',1,0,'',2,0,0),(27457,6111,3,2,0,'87.218.146.193',1172652427,1,0,1,1,1,1,'','','Éric,\n\nThis is defined in class TDataBase:\n\n   DATA   lTenChars              AS LOGICAL INIT .t.\n\nWhen Clipper assigns an object DATA, it places an underscore before the name: \n\noDBCli:CLI_TIPPES := .F.  =&gt; oDBCli:_CLI_TIPPES( .F. )\n\nbut _CLI_TIPPES length is 11, so Class TDataBase checks if lTenChars is .F. and it not, then its value is NOT assigned','',0,'gA==','1iwr05wp',1,0,'',2,0,0),(27458,6111,3,2,0,'87.218.146.193',1172652939,1,0,1,1,1,1,'','','Éric,\n\nTu ejemplo usa folders, y posiblemente ahí esté la diferencia','',0,'gA==','1kly46ed',1,0,'',2,0,0),(27459,6111,3,962,0,'200.161.189.122',1172653018,1,0,1,1,1,1,'','','Antonio,\n\nnão concordo com a necessidade de usar lTenChars, não faz sentido pra mim.\nE eu não uso TDataBase, pois tenho uma própria ( TDBTable() )\n\nComentei 3 síntaxes que funciona corretamente, assim:\nReDefine oDBCli:CLI_TIPPES, em somente um caso, não quer funcionar...\nou seja, ao executar PosCBX(...), no On Init, para acertar o elemento, já chega errado dentro da PosCBX(...)\n\nA questão é, quando é variavel de instância, internamente do ComboBox, este mudando o valor inicial do oDBCli:CLI_TIPPES, antes mesmo de ser avaliado no On INIT do DLG....\n\npor favor, observe os exemplos que enviei por email...','',0,'gA==','2bbpv1jd',1,1172654494,'',962,1,0),(27460,6111,3,2,0,'87.218.146.193',1172654201,1,0,1,1,1,1,'','','Éric,\n\nCierto, en tu ejemplo no usas la Clase TDataBase.\n\nEl problema de tu código ocurre porque el combobox al tomar el foco VARIA el valor de oDBCli:FIELD:CLI_TIPPES ANTES de que lo asignes','',0,'gA==','et4tidp5',1,0,'',2,0,0),(27462,6111,3,2,0,'87.218.146.193',1172654778,1,0,1,1,1,1,'','','Éric,\n\nHazlo de esta forma:\n[code:2wz3chha]\nRedefine COMBOBOX oCbxTipo ;\n         VAR oDBCli&#58;FIELD&#58;CLI_TIPPES ;\n         ITEMS &#123;\'J - Pessoa Jurídica\', \'F - Pessoa Física\'&#125; ;\n         ID 4002  ;\n         OF oFld&#58;aDialogs&#91;1&#93; ;\n         WHEN &#40; IniciaCBX&#40; oCbxTipo,oDBCli&#58;FIELD&#58;CLI_TIPPES &#41;, &#46;T&#46; &#41;\n\n&#46;&#46;&#46;\n\nRedefine COMBOBOX oCbxRegime ;\n         VAR oDBCli&#58;FIELD&#58;CLI_REGIME;\n         ITEMS &#123;\'0 - Não informado\', \'3 - Simples\', \'1 - Lucro Presumido\', \'2 - Lucro Real\'&#125; ;\n         ID 4001  ;\n         OF oFld&#58;aDialogs&#91;3&#93; ;\n         WHEN &#40; IniciaCBX&#40;oCbxRegime,oDBCli&#58;FIELD&#58;CLI_REGIME &#41;, &#46;T&#46; &#41;\n\nActivate Dialog oDlg ;\n         Center\n[/code:2wz3chha]','',0,'AIA=','2wz3chha',1,0,'',2,0,0),(27463,6111,3,962,0,'200.161.189.122',1172655143,1,0,1,1,1,1,'','','Sim, funciona..\n\n\nmas não é uma forma correta, certo ?!\n\nNão usei esta técnica, porque sei que o When sempre é avaliado, a cada mudança de foco.\nComo é algo relacionado no inicio, portanto deveria funcionar no \"On Init\", pois desta forma acredito que esta dentro das especificações da ordem de chamadas dos eventos no FW, e não estou tentando fazer nada fora do comum.\n\nAcredito que é Bug do ComboBox / ReDefine, concorda ????','',0,'AIA=','1vzx5x5w',1,1172656204,'',962,3,0),(27464,6111,3,2,0,'87.218.146.193',1172655221,1,0,1,1,1,1,'','','Éric,\n\n&gt; Acredito que é Bug do ComboBox / ReDefine, concorda ????\n\nNo. Parece un problema de focus','',0,'AIA=','31asve8d',1,0,'',2,0,0),(27465,6111,3,962,0,'200.161.189.122',1172655568,1,0,1,1,1,1,'','','hehe... era isso que eu queria dizer, um \"Bug\"\n\ne acha que em breve teremos uma correção sobre isso ?\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','yl2kq7ss',1,0,'',962,0,0),(27466,6145,3,32,0,'168.209.98.42',1172655574,1,0,1,1,1,0,'','Recompiling mapi.c','Hi,\n\nI\'m trying to recompile mapi.c to use the extensions from Michael Kocum using xHarbour builder (#define KOCUM), but can\'t seem to get it to compile, do to function definition clashes\n\nxcc.exe -Fo\"xobj\\mapi.obj\" -D __HARBOUR__ -D __FLAT__  -I\"\\devmast\" -I\"\\dev\\alex\" -I\"\\fwh\\include\" -I\"d:\\xHB\\include\" -I\"d:\\xHB\\c_include\" -I\"d:\\xHB\\c_include\\win\" -I\"d:\\xHB\\c_include\\msvc\" \"d:\\fwall\\source\\modapi\\mapi.c\"\n\nd:\\fwall\\source\\modapi\\mapi.c(261): error: Redeclaration of \'MAPISENDMAIL\' previously declared at d:\\xHB\\c_include\\win\\Mapi.h(141): found \'void __cdecl function (void)\' expected \'unsigned long __stdcall function(unsigned long, unsigned long, MapiMessage *, unsigned long, unsigned long)\'.\nd:\\fwall\\source\\modapi\\mapi.c(369): error: Redeclaration of \'MAPIRESOLVENAME\' previously declared at d:\\xHB\\c_include\\win\\Mapi.h(159): found \'void __cdecl function (void)\' expected \'unsigned long __stdcall function(unsigned long, unsigned long, char *, unsigned long, unsigned long, MapiRecipDesc * *)\'.\nd:\\fwall\\source\\modapi\\mapi.c(415): error: Redeclaration of \'MAPIADDRESS\' previously declared at d:\\xHB\\c_include\\win\\Mapi.h(155): found \'void __cdecl function(void)\' expected \'unsigned long __stdcall function(unsigned long, unsigned long,char *, unsigned long, char *, unsigned long, MapiRecipDesc *, unsigned long, unsigned long, unsigned long *, MapiRecipDesc * *)\'.\nd:\\fwall\\source\\modapi\\mapi.c(543): error: Redeclaration of \'MAPIFINDNEXT\' previously declared at d:\\xHB\\c_include\\win\\Mapi.h(145): found \'void __cdecl function(void)\' expected \'unsigned long __stdcall function(unsigned long, unsigned long, char *, char *, unsigned long, unsigned long, char *)\'.\nd:\\fwall\\source\\modapi\\mapi.c(590): error: Redeclaration of \'MAPIREADMAIL\' previously declared at d:\\xHB\\c_include\\win\\Mapi.h(147): found \'void __cdecl function(void)\' expected \'unsigned long __stdcall function(unsigned long, unsigned long, char *, unsigned long, unsigned long, MapiMessage * *)\'.\nd:\\fwall\\source\\modapi\\mapi.c(814): error: Redeclaration of \'MAPIDELETEMAIL\' previously declared at d:\\xHB\\c_include\\win\\Mapi.h(151): found \'void __cdecl function(void)\' expected \'unsigned long __stdcall function(unsigned long, unsigned long, char *, unsigned long, unsigned long)\'.\nd:\\fwall\\source\\modapi\\mapi.c(853): error: Redeclaration of \'MAPISENDDOCUMENTS\' previously declared at d:\\xHB\\c_include\\win\\Mapi.h(143): found \'void __cdecl function(void)\' expected \'unsigned long __stdcall function(unsigned long, char *, char *, char *, unsigned long)\'.\n\nAny ideas on how to solve this?','',0,'AIA=','72y6tn72',1,0,'',32,0,0),(27467,6145,3,32,0,'168.209.98.42',1172655824,1,0,1,1,1,0,'','Solved :)','Changing from CLIPPER FUNC(PARAMS) to HB_FUNC ( FUNC ) worked','',0,'AIA=','13ybm89i',1,0,'',32,0,0),(27468,6141,3,6,0,'87.10.1.221',1172656417,1,0,1,1,1,1,'','Re: AT COMMAND FOR GSM MODEM','Try the modem commands using the following simple terminal emulator:\n\n[code:1zwlwg47]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cTxt &#58;= &quot;&quot;\n\n    LOCAL nCom\n\n    DEFINE DIALOG oDlg;\n           SIZE 500, 500;\n           TITLE &quot;Terminale&quot;\n\n    @ 0, 0 GET oGet VAR cTxt MEMO READONLY\n\n    oGet&#58;bKeyDown = &#123; | nKey | Tasti&#40; nCom, nKey &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oGet&#58;AdjClient&#40;&#41;,;\n                       nCom &#58;= APRICOM&#40; oDlg, oGet &#41;,;\n                       IF&#40; nCom &lt; 0, oDlg&#58;End&#40;&#41;, &#41; &#41;;\n             CENTER\n\n    IF nCom &gt;= 0; CLOSECOMM&#40; nCom &#41;; ENDIF\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TASTI&#40; nCom, nKey &#41;\n\n    SENDSTR&#40; nCom, CHR&#40; nKey &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION APRICOM&#40; oDlg, oGet &#41;\n\n    LOCAL nCom, cDcb\n\n    BEGIN SEQUENCE\n        nCom = OPENCOMM&#40; &quot;COM1&quot;, 16384, 16384 &#41;\n\n        IF nCom &lt; 0\n            ? &quot;Errore di apertura della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        BUILDCOMMDCB&#40; &quot;COM1&#58;115200,N,8,1&quot;, @cDcb &#41;\n\n        IF !SETCOMMSTATE&#40; nCom, cDcb &#41;\n            ? &quot;Errore di impostazione della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        oDlg&#58;bCommNotify = &#123; | nCom | Connect&#40; nCom, oGet &#41;,;\n                                      EnableCommNotification&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41; &#125;\n\n        IF !ENABLECOMMNOTIFICATION&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41;\n            ? &quot;Errore di abilitazione della notifica&#46;&quot;\n            BREAK\n        ENDIF\n    RECOVER\n        nCom = -1\n    END SEQUENCE\n\n    RETURN nCom\n\n\nSTATIC FUNCTION CONNECT&#40; nCom, oGet &#41;\n\n    LOCAL cStr\n\n    ENABLECOMMNOTIFICATION&#40; nCom, 0, 1, -1 &#41;\n\n    cStr = RECEIVESTR&#40; nCom &#41;\n\n    cStr = STRTRAN&#40; cStr, CHR&#40; 13 &#41;, &quot;&quot; &#41;\n    cStr = STRTRAN&#40; cStr, CHR&#40; 10 &#41;, CRLF &#41;\n\n    oGet&#58;Append&#40; cStr &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDSTR&#40; nCom, cString &#41;\n\n    LOCAL nBytes &#58;= WRITECOMM&#40; nCom, cString &#41;\n\n    RETURN nBytes = LEN&#40; cString &#41;\n\n\nSTATIC FUNCTION RECEIVESTR&#40; nCom &#41;\n\n    LOCAL cBuf &#58;= SPACE&#40; 1000 &#41;\n\n    RETURN LEFT&#40; cBuf, READCOMM&#40; nCom, @cBuf &#41; &#41;[/code:1zwlwg47]\n\nEMG','',0,'AIA=','1zwlwg47',1,0,'',6,0,0),(27469,6136,7,945,0,'87.218.168.171',1172656886,1,0,1,1,1,0,'','','Gracias por la solución.\n\nUn Saludo.','',0,'AIA=','23dkgnxj',1,0,'',945,0,0),(27470,6146,6,449,0,'212.64.224.250',1172658097,1,0,1,1,1,1,'','Doble Buffer','Hola,\n\nEstoy intentando poner el doble buffer en la clase TEnhMetaFile. En principio en el metodo ::Paint() pongo:\n\n[code:d6yqovpn]METHOD Paint&#40;&#41;&#46;&#46;&#46;\n  LOCAL aInfo &#58;= &#58;&#58;DispBegin&#40;&#41;\n  &#46;&#46;&#46;\n  &#58;&#58;DispEnd&#40; aInfo&#41; \n\nRETU NIL \n[/code:d6yqovpn]\n\nA parte e insertado y probado el metodo [b:d6yqovpn]EraseBkGnd( hDC ) INLINE 1 o 0[/b:d6yqovpn], pero no me acaba de funcionar bien. \n\nTengo de poner algo mas ?\n\nEl test es simple\n\n[code:d6yqovpn]#include \'fivewin&#46;ch\'\nSTATIC oWnd\n\nFUNCTION Main&#40;&#41;\n\n    DEFINE WINDOW oWnd MDI\n    ACTIVATE WINDOW oWnd ON INIT Test&#40;&#41;\n\nRETU NIL\n\nSTATIC FUNCTION Test&#40;&#41;\n\n    LOCAL oChild, oMeta, oBmp\n\n    DEFINE WINDOW oChild MDICHILD OF oWnd\n\n      oMeta &#58;= TEnhMetaFile&#40;&#41;&#58;New&#40; 0, 0, 300, 400, \'\', oChild, ;\n                                   CLR_BLACK, CLR_WHITE &#41;\n\n      @0,0 BITMAP oBmp FILE \'cara1&#46;bmp\' SIZE 200, 200 OF oMeta NOBORDER\n\n      SET MESSAGE OF oChild TO \'Test Double Buffer\'\n\n    ACTIVATE WINDOW oChild\n\nRETU NIL\n[/code:d6yqovpn]\n\nAlguna idea ?\n\nGracias','',0,'QIA=','d6yqovpn',1,0,'',449,0,0),(27471,6146,6,2,0,'87.218.146.193',1172661641,1,0,1,1,1,1,'','','Carles,\n\nTu código parece correcto, lo que ocurre es que el doble buffer no siempre va bien con todos los controles y todas las situaciones. \n\nUn metafile es un conjunto de instrucciones de pintado que ejecuta Windows. Tal vez no sea compatible con el doble buffer','',0,'QIA=','2pa8jv8n',1,0,'',2,0,0),(27472,6146,6,449,0,'212.64.224.250',1172661802,1,0,1,1,1,1,'','','Antonio,\n\nPues debe ser eso, porque mirando como estan definidos los otros controles, no parecia complicado.\n\n\nGracias.','',0,'QIA=','984z1mmw',1,0,'',449,0,0),(27473,6147,6,103,0,'200.241.81.140',1172662057,1,0,1,1,1,1,'','Checkbox','Hola,\n\n    Como se hace para cambiar el caption de un checkbox desde recursos? He intentado hacer asi:\n\n[code:2utjqlfw]\nMiCaption&#58;=&quot;Mi nuevo caption&quot;\nREDEFINE CHECKBOX oCheck VAR cCheck ID 117 OF oDlg\noCheck&#58;SetText&#40;MiCaption&#41;\n[/code:2utjqlfw]\n\nY asi:\n\n[code:2utjqlfw]\nMiCaption&#58;=&quot;Mi nuevo caption&quot;\nREDEFINE CHECKBOX oCheck VAR cCheck ID 117 OF oDlg\noCheck&#58;cCaption&#58;=MiCaption\n[/code:2utjqlfw]\n\nPero ninguno me funciona. Alguna idea?\n\nSaludos,','',0,'AIA=','2utjqlfw',1,1172663640,'',103,1,0),(27474,6145,3,2,0,'87.218.146.193',1172662696,1,0,1,1,1,1,'','','Alex,\n\nFWH provides tools\\Clp2Harb.exe that automatically translates the FWH C modules to Harbour required C format','',0,'AIA=','bt18sg12',1,0,'',2,0,0),(27475,6147,6,2,0,'87.218.146.193',1172662976,1,0,1,1,1,1,'','','Kleyber,\n\nEs un combobox editable (con un GET contenido) ?\n\nDe no serlo, puedes usar oCombo:Set( cOption ) en donde cOption es uno de los items contenidos del combobox.\n\nDe ser editable, oCombo:oGet:SetText( cText )','',0,'AIA=','25k6nq7c',1,0,'',2,0,0),(27476,6141,3,707,0,'125.163.111.2',1172663661,1,0,1,1,1,0,'','','Thank\'s Mr. Enrico !\nI will try it \n\nRegards\nAreang','',0,'AIA=','3fsltfay',1,0,'',707,0,0),(27477,6147,6,103,0,'200.241.81.140',1172663783,1,0,1,1,1,1,'','','Antonio,\n\n    Gracias por responder y disculpa la confusión. Se trata de facto de un CHECKBOX y no un COMBOBOX, tanto que cambié el post original.\n    La duda es la misma: no he conseguido cambiar el caption de un checkbox en tiempo de ejecución.\n\nGracias y perdón por la confusión.','',0,'AIA=','3nwadsaq',1,0,'',103,0,0),(27478,6147,6,2,0,'87.218.146.193',1172664387,1,0,1,1,1,1,'','','Kleyber,\n\noCheckBox:SetText( cTexto ) debe funcionar','',0,'AIA=','1npjfie5',1,0,'',2,0,0),(27479,6147,6,103,0,'200.241.81.140',1172665101,1,0,1,1,1,1,'','','Gracias Antonio,\n\n    Voy a probar y te comento.\n\nSaludos,','',0,'AIA=','poe1hw6t',1,0,'',103,0,0),(27480,6142,6,185,0,'200.87.81.46',1172668030,1,0,1,1,1,0,'','','hola\n\ncrea un bat con lo siguiente para compitar\n\n  Def =\"__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF\"\n  c:\\bcc55\\bin\\bcc32 -M -c -D__HARBOUR__ -Id:\\Harbour\\include;c:\\bcc55\\include;d:\\fwh\\include %1.c\n\n[b:1iu4kttw]Ojo el Def es importante[/b:1iu4kttw]\n\nSaludos\n\nARturo','',0,'QA==','1iu4kttw',1,0,'',185,0,0),(27481,6148,6,36,0,'200.113.56.235',1172672322,1,0,1,1,1,0,'','Consulta sobre Funcky','Estimados\n\nTengo algunas consulta sobre esta libreria\n\nComo se distribuye la aplicacion, me explico, hay que instalar todo el paquete o bien solo las dll\n\nSaludos\nPatricio','',0,'QA==','1ims8zvc',1,0,'',36,0,0),(27482,6124,3,217,0,'200.159.120.34',1172673966,1,0,1,1,1,0,'','Re: xBrowse method not working','Ehab,\n\nTry call go top on \'on init\' clause of activate dialog, like:\n\n[code:3gd1530b]\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;,BuildButtons&#40; oDlg &#41;,oDlg&#58;Refresh&#40;&#46;t&#46;&#41;,   oBrw&#58;GoTop&#40;&#41;,;  // &lt;-- HERE\n oBrw&#58;Refresh&#40;&#46;t&#46;&#41;&#41;\n[/code:3gd1530b]\n\nRegards,\nMaurilio','',0,'AIA=','3gd1530b',1,0,'',217,0,0),(27483,6143,3,190,0,'124.7.25.242',1172674210,1,0,1,1,1,0,'','','Mr. Antonio/Mr.Richard\n\nThank you very much for your reply.\n\nRegards,\n\n- Ramesh Babu','',0,'AIA=','fyf2ftwl',1,0,'',190,0,0),(27484,6149,3,397,0,'201.26.10.215',1172674521,1,0,1,0,1,1,'','How to see a image preview in Save As Dialog','Can see this in FWH?\n\n[img:2zdd2tgt]http&#58;//www&#46;shoppmarketing&#46;com/forum/saveas&#46;jpg[/img:2zdd2tgt]','',0,'CA==','2zdd2tgt',1,0,'',397,0,0),(27485,6145,3,303,0,'72.199.41.171',1172675391,1,0,1,1,1,0,'','','Alex,\n\nCan you tell us more about what those enhancements are, or give us a link to more information?\n\nJames','',0,'CA==','3a0f2wgb',1,0,'',303,0,0),(27486,6148,6,138,0,'189.141.72.59',1172681432,1,0,1,1,1,1,'','','Nop.\n\nSolo tienes que copiar los archivos de  FUNCKY a la carpeta Windows\\system32 o windows\\system de la computadora donde instalas y luego \"registrar\" el servicio.\n\nCopia funcky60.DLL y funcky60.tlb a la carpeta windows\\system\n\nLuego, desde una ventana de ms-dos \"registra\" el componente tecleando esto:\n\nRegSvr32 C:\\Windows\\System\\FUNCky60.DLL\n\ny listo, si utilizas algun instalador como InnoSetup, esto se puede automatizar desde la instalacion.','',0,'CA==','1odz8hoz',1,0,'',138,0,0),(27487,6150,20,924,0,'81.208.36.89',1172683887,1,0,1,1,1,0,'','Editor tipo Word','Esiste qualcosa x emulare un editor tipo Word per potere usare Grassetto,Font, ecc..\nGrazie','',0,'CA==','1n1slwl5',1,0,'',924,0,0),(27488,6124,3,148,0,'196.205.220.29',1172687721,1,0,1,1,1,0,'','','I already tried - not working - \n[code:3p1u9zkt]\n\nSTATIC FUNCTION listmete&#40; oWnd &#41;\n*--------------------------\n\nlocal oDlg, oCol \nlocal nTotal&#58;=0\n\nlocal oBrw\nlocal nfor,cFilter&#58;=&quot;&quot;,bFilter&#58;=&quot;&quot;\nlocal y\nlocal V_me_mc_serl&#58;= space&#40;7&#41;\n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n\n\n/*\n\nselect 1\nUSE cust\nINDEX ON upper&#40;cust-&gt;cu_acct&#41; TO cust\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON upper&#40;cust-&gt;cu_appr&#41; TO cust10\nset INDEX TO cust\n\nselect 2\nUSE cont\nINDEX ON cont-&gt;CT_CU_ACCT+dtoc&#40;cont-&gt;ct_strd&#41; TO cont\nINDEX ON cont-&gt;CT_CU_acct TO cont1\nINDEX ON cont-&gt;ct_strd TO cont2\nINDEX ON cont-&gt;ct_endd TO cont3\nINDEX ON cont-&gt;CT_machno TO cont4\nINDEX ON cont-&gt;CT_mamc TO cont5\nINDEX ON cont-&gt;ct_paymet TO cont6\nINDEX ON cont-&gt;ct_payamt TO cont7\nINDEX ON cont-&gt;ct_currenc TO cont8\nINDEX ON cont-&gt;ct_excmet TO cont9\nINDEX ON cont-&gt;ct_excamt TO cont10\nINDEX ON cont-&gt;ct_minvol TO cont11\nINDEX ON cont-&gt;ct_ctna TO cont12\nSET INDEX TO cont1\n\nselect 3\nuse mach\nindex on mach-&gt;MC_CU_ACCT to mach\nindex on UPPER&#40;mach-&gt;MC_CU_name&#41; to mach1\nindex on UPPER&#40;mach-&gt;MC_ct_ctna&#41; to mach2\nindex on UPPER&#40;mach-&gt;MC_model&#41; to mach3\nindex on UPPER&#40;mach-&gt;MC_TYPE&#41;+UPPER&#40;mach-&gt;MC_model&#41; to mach4\nindex on &#40;mach-&gt;MC_serial&#41; to mach5\nindex on UPPER&#40;mach-&gt;MC_meres&#41; to mach6\nindex on UPPER&#40;mach-&gt;MC_brn&#41; to mach7\nindex on UPPER&#40;mach-&gt;MC_gateway&#41; to mach8\nset index to mach5\ngo top*/\n\nselect 4\nuse mete\nindex on mete-&gt;ME_mc_serl to mete\nindex on str&#40;mete-&gt;year&#41; + str&#40;mete-&gt;month&#41; to mete1\nindex on mete-&gt;me_date to mete2\nset index to mete\n\n\nif MsgGet&#40; &quot;Serial Machine&quot;, &quot;Enter Serial Machine&quot;, @V_me_mc_serl,;\n              &quot;&#46;&#46;\\lupa&#46;bmp&quot; &#41;\n      select 3\n      use mach\n      set index to mach5\n      *MSGINFO&#40;IndexKey&#40;&#41;&#41; \n      if ! DbSeek&#40; &#40;V_me_mc_serl &#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that serial&quot; &#41;\n      endif\n   endif\n\n\n\ny &#58;= &quot;\'&quot;+padr&#40;V_me_mc_serl,7&#41;+&quot;\'&quot; \ncFilter &#58;= &quot;me_mc_serl = &quot;+ y\nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n\n\n\nselect 4\nuse mete\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\nmete-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n   DEFINE DIALOG oDlg of oWnd FROM 0,0 TO 45,128 TITLE &quot;Meter reads browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n\n*oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;V_me_mc_serl&#41;,12,0&#41;&#41;\n\n   if nFor=27\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,2&#41;&#41;\n      loop\n   endif\n\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41;\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n   next\n\n   \n   oBrw&#58;Refresh&#40;&#46;t&#46;&#41;            // Repaint the ListBox\n\n\n\n\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;,BuildButtons&#40; oDlg &#41;,oBrw&#58;gotop&#40;&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;,oDlg&#58;Refresh&#40;&#46;t&#46;&#41;&#41;\n\nRETURN NIL[/code:3p1u9zkt]','',0,'AIA=','3p1u9zkt',1,0,'',148,0,0),(27489,6148,6,36,0,'200.113.56.235',1172688015,1,0,1,1,1,0,'','','Gracias maestro\n\nahora una consulta, sobre ftp\n\n[code:1tkp2tjj]\noFtp &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;Funckyftp&quot;&#41;\noFtp&#58;Connect&#40;cServer, usuario, clave &#41;\n\nif oFtp&#58;Status = 0\n    oFtp&#58;ChangeDir &#40;&quot;paso\\&quot;&#41;\n    cStr &#58;= oFtp&#58;Execute&#40;&quot;LIST&quot;, &#46;t&#46; &#41;\n   alert&#40; cStr &#41;            //muestra bien los archivos\n   oFtp&#58;Get&#40; &quot;prueba&#46;txt&quot;, &quot;c&#58;\\prueba&#46;txt&quot;,0&#41;\nendif\n\noFtp&#58;Disconnect&#40;&#41;\n[/code:1tkp2tjj]\n\n\nme sale el siguiente Error[code:1tkp2tjj]\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;PRUEBA&#46;TXT&#40;0&#41;\n   Called from&#58;  =&gt; HB_EXECFROMARRAY&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;GET&#40;415&#41;\n   Called from&#58; WCTA&#46;PRG =&gt; FUNCKY&#40;1368&#41;\n   Called from&#58; WCTA&#46;PRG =&gt; MAIN&#40;20&#41;[/code:1tkp2tjj]\n\nPor ahi vi a otro usuario con los metodos GET, pero no lo he encontrado\n\nSaludos\nPatricio','',0,'AIA=','1tkp2tjj',1,0,'',36,0,0),(27490,6151,6,644,0,'201.252.11.3',1172689506,1,0,1,1,1,0,'','Progress bar','tengo una aplicación donde uso este control. No tengo problemas si corre en W98 y W2000 pero en xp me dá un error. Hay alguna solución para este problema que no sea reemplazarlo por un Meter. Gracias','',0,'AIA=','1ddi025s',1,0,'',644,0,0),(27491,6145,3,32,0,'168.209.98.42',1172691829,1,0,1,1,1,0,'','MAPI','Hi,\n\nIt\'s nothing major. The default behaviour of the list of recipients for MapiSendMail, is to use the first one as the to address, and the rest as cc recipients.\n\nIf you recompile mapi.c with KOCUM defined, each recipient  array gets a third element specifying type (to, cc or bcc)\n\nAlex','',0,'AIA=','14i0qak2',1,0,'',32,0,0),(27492,6152,6,198,0,'189.134.35.175',1172693697,1,0,1,1,1,1,'','como genero un obj','Hola!\n\nSolo por saber... como genero un obj ?  con HARBOUR genero el .C y luego con que se genera el .OBJ   ... estoy usando un .MAK y he estrado trabajando bien, solo quiero saber el proceso...\n\nSaludos\n\nLaura E. Hernández H. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','2meazuxe',1,0,'',198,0,0),(27493,6147,6,103,0,'200.165.130.99',1172693848,1,0,1,1,1,1,'','','Antonio,\n\n   Desafortunadamente no me funciona.  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  Asi está mi código:\n\n[code:f62b1u2n]\n   c133&#58;=&quot;Nuevo PROMPT&quot;\n   REDEFINE CHECKBOX oDouble  VAR _double  ID 133 OF oDlg UPDATE\n   oDouble&#58;SetText&#40;c133&#41;\n[/code:f62b1u2n]','',0,'AIA=','f62b1u2n',1,0,'',103,0,0),(27494,6153,6,75,0,'83.36.127.117',1172695893,1,0,1,1,1,0,'','Graficos','Necesito hacer una grafica simple y pretendo hacerla con la clase original de FW sin usar calses de terceros.\nHe visto el ejemplo lines.prg pero no lo entiendo bien.\n¿Hay alguna manera de pintar directamente una linea en un dialog? del tipo line({x1,y1},{x2,y2}).\n\nGracias.','',0,'AIA=','2648ei0p',1,0,'',75,0,0),(27495,6147,6,103,0,'200.165.130.99',1172697550,1,0,1,1,1,1,'','','Antonio,\n\n    He solucionado poniendo todos los ::SetText() en una función llamada por ON INIT. Pero esto es el comportamiento correcto?\n\nSaludos,','',0,'AIA=','28pfjrjh',1,0,'',103,0,0),(27496,6154,2,812,0,'201.236.185.243',1172697650,1,0,1,1,1,0,'','AYUDA URGENTE CON UN BROWSE','Hola Amigos:\n\nComo puedo manejar el Browser (Tcbrowse) como un arreglo que cargare con datos de una DBF, siempre el manejado los campos de la dbf directo en el BROWSER, pero es urgente hacer el browser con arreglo.\n\nUso FW 2.4, Clipper 5.3 y Blinker 7.0.\n\nSaludos,\nMiguel\n\nESTE ES EL CODIGO PARA MANEJAR BASE DBF\n\n  Redefine Browse oLbx1 Id 110 Of oDialogo Grid;\n        On DblClick (Mues_cot(),oLbx1:Refresh(), oLbx1:SetFocus())\n    oLbx1:oFont     := TFont():New( \"MS Sans Serif\", 0, -15,, .T. )\n    oLbx1:nFreeze := 1\n    oLbx1:nClrBackFocus := RGB(48,207,100)\n    oLbx1:bKeyChar := {| nKey, nFlags | iIf(nKey == 13,Mues_cot(),)}\n     Add Column To Browse oLbx1 Data edificio-&gt;nom_edi;\n      Head \"Edificio\" Width 270 Tag \"Edificio\"\n          Add Column To Browse oLbx1 Data spac(3)+oDbdep-&gt;Cod_dep;\n      Head \"Departa\" Width 70 Tag \"Departamento\"\n     Add Column To Browse oLbx1 Data Oridep-&gt;Det_ori;\n      Head \"Orientación Dpto.\" Width 160 Tag \"Orientación Dpto.\"\n     Add Column To Browse oLbx1 Data Tipodep-&gt;Can_dor;\n      Head \"Dormi.\" Width 70 Tag \"Dormi.\"\n     Add Column To Browse oLbx1 Data Tipodep-&gt;Can_ban;\n      Head \"Baños\" Width 70 Tag \"Baños\"\n     Add Column To Browse oLbx1 Data oDbdep-&gt;Cos_dep;\n      Head \"Costo\" Width 80 Tag \"Costo\"\n\n    Define Column oCol Head \"\" Size 1\n    oLbx1:AddColumn(oCol)','',0,'AIA=','wjima9x8',1,0,'',812,0,0),(27497,6147,6,2,0,'87.218.146.193',1172698933,1,0,1,1,1,1,'','','Kleyber,\n\nEs la forma correcta ya que hasta que no se activa el diálogo los controles no tienen asignados sus handles válidos','',0,'AIA=','1eoq6kwj',1,0,'',2,0,0),(27498,6152,6,2,0,'87.218.146.193',1172699076,1,0,1,1,1,1,'','','Laura,\n\nDespues de compilar con Harbour, se llama a un compilador de C que genera el fichero OBJ correspondiente. \n\nSe puede usar el compilador de Borland, ó el de Microsoft, el gcc de Linux, etc.','',0,'AIA=','z0fg61w0',1,0,'',2,0,0),(27499,6150,20,6,0,'87.21.195.22',1172699633,1,0,1,1,1,1,'','Re: Editor tipo Word','Sì, c\'è la classe TRichEdit. Guarda negli esempi.\n\nEMG','',0,'AIA=','1mi00mz1',1,0,'',6,0,0),(27500,6115,6,73,0,'200.23.18.129',1172699671,1,0,1,1,1,0,'','','gracias  a ambos,\nde hecho me parece lo mas factible mysql,\nsalu2\npaco','',0,'AIA=','3a8bduy6',1,0,'',73,0,0),(27501,6155,6,812,0,'201.236.185.243',1172699731,1,0,1,1,1,0,'','FAVOR AYUDA URGENTE CON UN BROWSER','Hola Amigos:\n\nLes pido disculpas por usar este foro para hacer una pregunta de FW 2.4, pero estoy super complicado.\n\n\nComo puedo manejar el Browser (Tcbrowse) como un arreglo que cargare con datos de una DBF, siempre el manejado los campos de la dbf directo en el BROWSER, pero es urgente hacer el browser con arreglo. \n\nUSE FW 2.4, CLIPPER 5.3 y BLINKER 7.0. \n\nSaludos, \nMiguel \n\nESTE ES EL CODIGO PARA MANEJAR BASE DBF \n\nRedefine Browse oLbx1 Id 110 Of oDialogo Grid; \nOn DblClick (Mues_cot(),oLbx1:Refresh(), oLbx1:SetFocus()) \noLbx1:oFont := TFont():New( \"MS Sans Serif\", 0, -15,, .T. ) \noLbx1:nFreeze := 1 \noLbx1:nClrBackFocus := RGB(48,207,100) \noLbx1:bKeyChar := {| nKey, nFlags | iIf(nKey == 13,Mues_cot(),)} \nAdd Column To Browse oLbx1 Data edificio-&gt;nom_edi; \nHead \"Edificio\" Width 270 Tag \"Edificio\" \nAdd Column To Browse oLbx1 Data spac(3)+oDbdep-&gt;Cod_dep; \nHead \"Departa\" Width 70 Tag \"Departamento\" \nAdd Column To Browse oLbx1 Data Oridep-&gt;Det_ori; \nHead \"Orientación Dpto.\" Width 160 Tag \"Orientación Dpto.\" \nAdd Column To Browse oLbx1 Data Tipodep-&gt;Can_dor; \nHead \"Dormi.\" Width 70 Tag \"Dormi.\" \nAdd Column To Browse oLbx1 Data Tipodep-&gt;Can_ban; \nHead \"Baños\" Width 70 Tag \"Baños\" \nAdd Column To Browse oLbx1 Data oDbdep-&gt;Cos_dep; \nHead \"Costo\" Width 80 Tag \"Costo\" \n\nDefine Column oCol Head \"\" Size 1 \noLbx1:AddColumn(oCol)','',0,'AIA=','13z9me3j',1,0,'',812,0,0),(27502,6156,3,210,0,'81.24.159.58',1172700182,1,0,1,1,1,0,'','Extend system','Hello all,\nI write a interface for use of shape-files. All the sourcecode is in C. My problem are the array-parameters.  In the Extended System from Harbour are no functions to send or retrieve arrays to/from a C-function. In some cases the arrays are given by reference. Is there a solution? Thanks.\nGuenther','',0,'AIA=','zuvxlxic',1,0,'',210,0,0),(27503,6156,3,2,0,'87.218.146.193',1172700843,1,0,1,1,1,1,'','','Guenther,\n\nHarbour extend system is fully Clipper compatible so you have all the required functions to manage arrays:\n\nTo retrieve an array element:\n\nhb_par...( iParamNum, iArrayIndex )\n\nTo create an array and return it:\n\nhb_reta( iElements )\n\nTo set an array element:\n\nhb_stor...( &lt;uValue&gt;, iParamNum, iArrayIndex )\n\nwhere iParamNum is -1 if it is a created array using hb_reta()','',0,'AIA=','bpk8yh8x',1,0,'',2,0,0),(27504,6150,20,924,0,'84.221.224.66',1172701948,1,0,1,1,1,0,'','','io ho v. fw24 e fwh24 ma non mi sembra di avere niente a proposito. che versione dovrei avere ?','',0,'AIA=','k3m17pc7',1,0,'',924,0,0),(27505,6151,6,2,0,'87.218.146.193',1172702937,1,0,1,1,1,1,'','','Que error te da ?','',0,'AIA=','274yzgzo',1,0,'',2,0,0),(27506,6153,6,397,0,'201.26.10.215',1172711905,1,0,1,0,1,1,'','','Amigo\n\nRevisa el ejemplo TESTGRAF.PRG','',0,'AIA=','30srgq0z',1,0,'',397,0,0),(27507,6147,6,103,0,'200.165.130.185',1172718388,1,0,1,1,1,1,'','','Gracias por la aclaración, Antonio. Todo me funciona bien ahora.\n\nSaludos,','',0,'AIA=','2mfmrhpu',1,0,'',103,0,0),(27508,6157,6,913,0,'189.136.169.208',1172724383,1,0,1,1,1,1,'','Help!! ayuda!! no me queda bien un combobox en un ToolBar','Hola\n\nPorfis ayudenme no me queda un combobox dentro de un ToolBar <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nahora si estoy muy atorada con eso y de seguro es algo facil para los que saben pero yo no sepo, no me gusta molestar pero ayudenme porfis <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nel combobox sale oculto y cuando le doy click en donde se supone que esta si aparece y funciona pero si minimiso el programa se buelve a esconder abajo del ToolBar <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\n\n\na si lo tengo en mi programa\n\nDEFINE WINDOW oWnd FROM 2, 2 TO 35, 85  TITLE \"Aida Control de Polizas V 1.00 2007\" Color nRgb(230, 230, 250  ),nRgb( 132, 112, 255)  ;\n	 MENU BuildMenu()\n\n@ 2.15,35 SENSITIVE SAY oSay PROMPT \"Buscar Poliza :   \"   OF oToolBar2 ;\nCOLOR nRgb(0, 0, 0  ),nRgb(0, 0, 0  )\n\n						 \n@ 2.50,35 Get oGet var getbuca OF oToolBar2 size 120,20\n						 \n\n @ 2.32,52  COMBOBOX cAcom VAR listb ITEMS  {\"AUTOS\",\"VIDA\",\"GMM\",\"DAÑOS\"}   OF oToolBar2  SIZE 120,80\n\n\n\n\noImgList1 = TImageList():New( 46, 46 ) // width and height of bitmaps\n\noImgList1:AddMasked( TBitmap():Define( \"doctor1\",,    oWnd ), nRGB( 255, 0, 255 ) )\noImgList1:AddMasked( TBitmap():Define( \"disks\",,   oWnd ), nRGB( 255, 0, 255 ) )\n\n\noImgList3 = TImageList():New( 30,30 ) // width and height of bitmaps\noImgList3:AddMasked( TBitmap():Define( \"internet\",, oWnd ), nRGB( 255, 0, 255 ) )\noImgList3:AddMasked( TBitmap():Define( \"quit\",, oWnd ), nRGB( 255, 0, 255 ) )\n\n\n\n\n   // Now we create the rebar\n\noReBar = TReBar():New( oWnd )\n\n   // Now we create the toolbars and add the buttons\noToolBar1 = TToolBar():New( oReBar, 60, 60, oImgList1 )\noToolBar1:AddButton( { || Main2() }, \"Mantenimiento de bases de datos\", \"Mantenimiento\" )\noToolBar1:AddButton( { || MIPDF()}, \"Respaldar bases de datos\", \"Respaldo\" )\n\noToolBar2 = TToolBar():New( oReBar, 70, 70, oImgList2 )\n\n\n\n oToolBar3 = TToolBar():New( oReBar, 43, 43, oImgList3 )\n oToolBar3:AddButton( { || navega() }, \"Checar nuevas versiones\",;\n                       \"Upgrade\" )\n// oToolBar3:AddButton( { || ordenaA() }, \"Users management\", \"Users\" )\n// oToolBar3:AddSeparator()\noToolBar3:AddButton( { || oWnd:End() }, \"Fin del programa\", \"Salida\" )\n\n\n // We set the widths for each toolbar\n oToolBar1:nWidth = 150\n oToolBar2:nWidth = 500\n oToolBar3:nWidth = 150\n\n\n	    // Now we insert the toolbars into the rebar\n oReBar:InsertBand( oToolBar1 )\n oReBar:InsertBand( oToolBar2 )\n oReBar:InsertBand( oToolBar3 )\n\n\nSaludos\n\nAida','',0,'AIA=','116uvpz7',1,0,'',913,0,0),(27509,6144,6,413,0,'194.106.16.43',1172731013,1,0,1,1,1,0,'','','Gracias Antonio, como me gusto la idea de la nueva numeracion de las versiones, crei oportuno implementarlo directamente sin tener que anotarlo cada vez que realizo una nueva compilacion del programa. A modo de ejemplo hice esto:\n\n[code:16azxs1x]   &#58;&#58;cVersion  &#58;= &quot; Versión&#58; &quot; +   Substr&#40;dtoc&#40;Directory&#40;GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41;&#91;1,3&#93;&#41;,9,2&#41;+&quot;/&quot;+Substr&#40;dtoc&#40;Directory&#40;GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41;&#91;1,3&#93;&#41;,4,2&#41;[/code:16azxs1x]\n\nQue sencillamente me coge los dos digitos del año y los dos del mes, Directori()[1,3] me devuelve la fecha del ejecutable. Asi me muestra \"Version: 07/02\"','',0,'AIA=','16azxs1x',1,0,'',413,0,0),(27510,6105,4,2,0,'87.218.146.193',1172735363,1,0,1,1,1,1,'','','Richard,\n\nMaybe we have missed something obvious, that the expected value has to be signed. Please try it this way:\n[code:1bue8ksw]\nHB_FUNC&#40; WRITE233 &#41; // hComm --&gt; lOk\n&#123;\n   DWORD cBytes;\n   char ch = 233;\n   \n   hb_retl&#40; &#40; BOOL &#41; WriteFile&#40; &#40; void * &#41; hb_parnl&#40; 1 &#41;, &amp;ch, 1, &amp;cBytes, NULL &#41; &#41;;\n&#125;\n[/code:1bue8ksw]','',0,'AIA=','1bue8ksw',1,0,'',2,0,0),(27511,6105,4,6,0,'87.21.239.41',1172735639,1,0,1,1,1,1,'','','Don\'t think so. It is more likely that the printer requires wide chars instead of simple chars.\n\nEMG','',0,'AIA=','2044r006',1,0,'',6,0,0),(27512,6150,20,6,0,'87.21.239.41',1172735700,1,0,1,1,1,1,'','','Non lo so. Ce l\'hai il sorgente trichedi.prg?\n\nEMG','',0,'AIA=','2z9nu2xl',1,0,'',6,0,0),(27513,6105,4,2,0,'87.218.146.193',1172736362,1,0,1,1,1,1,'','','Enrico,\n\nWe have already tested with wide chars, unless we may be missing a signed test also','',0,'AIA=','2g9ufn0w',1,0,'',2,0,0),(27514,6144,6,2,0,'87.218.146.193',1172736535,1,0,1,1,1,1,'','','Andrés,\n\nEs buena idea, pero si le cambian la fecha al EXE (por ejemplo al copiarlo a otro ordenador) entonces dará una fecha errónea, no ?','',0,'AIA=','1fs3yl07',1,0,'',2,0,0),(27515,6136,7,945,0,'80.32.177.143',1172739831,1,0,1,1,1,0,'','Error en variables','Como se declaran las variables de entorno WS_POPUP y WS_VISIBLE\n\nGracias.','',0,'AIA=','20infvhr',1,0,'',945,0,0),(27516,6105,4,6,0,'87.21.239.41',1172742201,1,0,1,1,1,1,'','','Did you try using AnsiToWide()?\n\nEMG','',0,'AIA=','1u9zb8wd',1,0,'',6,0,0),(27517,6105,4,2,0,'87.218.146.193',1172743676,1,0,1,1,1,1,'','','Enrico,\n\nNo, we didn\'t. Yes, you are right, we should try it also','',0,'AIA=','bxutmcki',1,0,'',2,0,0),(27518,6136,7,2,0,'87.218.146.193',1172743743,1,0,1,1,1,1,'','','#define WS_POPUP          2147483648  // 0x80000000L\n\n#define WS_VISIBLE         268435456  // 0x10000000L','',0,'AIA=','20v8j17q',1,0,'',2,0,0),(27519,6158,20,29,0,'88.149.165.15',1172747356,1,0,1,1,1,0,'','Problema nella lettura di una tabella mdb','Salve,\nho la necessità di leggere il contenuto di una tabella di un file mdb.\nIl problema è che mi appare un errore di sintassi, \nmi sorge il dubbio che il problema possa dipendere dal nome della tabella che non è unico ma costituito da parole separate da spazi, nel caso specifico la tabella si chiama \"T Condomini Generale\".\n\nHo creato un self-contained che mostra il problema scaricabile da <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->  \n\nNel file zip è contenuto anche il file mdb che cerco di leggere.\n\nQualche suggerimento ?\n\nGrazie in anticipo\n\nMarco Turco','',0,'AIA=','31xczy4i',1,0,'',29,0,0),(27520,6159,7,945,0,'80.32.177.143',1172748238,1,0,1,1,1,0,'','Desconexion bluetooth e impresion','Muy buenas, estoy intentando imprimir en una impresora start dp8340S via bluetooth y la cuestion es que el bluetooth de la PDA se desconecta cuando lleva un tiempo, el codigo que uso es:\n\nstatic function ImprimeLinea(cTexto)\n   local n\n   local cConexion := CreateFile( \"COM8:\",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n   cText:=cTexto+chr(10)+chr(13)+chr(12)\n   for n = 1 to Len( cTexto )\n     WriteByte( cConexion, Asc( SubStr( cText, n, 1 ) ) )\n   next\n   CloseHandle( cConexion )\nreturn\n\nNo si si es problema de hardware o software, decirme que puedo hacer, yo he pensado en si hay algún código en el cual yo establezca la conexion y desconexion del bluetooth y así jugar yo con la PDA.\n\nGracias.\nUn Saludo.','',0,'AIA=','18pl5e7p',1,0,'',945,0,0),(27521,6158,20,6,0,'87.21.239.41',1172753918,1,0,1,1,1,1,'','Re: Problema nella lettura di una tabella mdb','Devi racchiudere il nome della tabella tra parentesi quadre.\n\nEMG','',0,'AIA=','2d6i12ve',1,0,'',6,0,0),(27522,6138,6,106,0,'85.34.123.173',1172755681,1,0,1,1,1,1,'','','Bien Kleyber','',0,'AIA=','3umlfsv0',1,0,'',106,0,0),(27523,6160,6,967,0,'62.43.189.20',1172755830,1,0,1,1,1,0,'','SayBitmap en Report.','Al utilizar la función SayBitmap en un report, me he encontrado con un problema que no he podido solucionar.\n\n[code:i7dg3x0l]\nACTIVATE REPORT oReporte;\n      ON STARTPAGE  oReporte&#58;SayBitmap&#40;&#46;5,&#46;5, &quot;EXIT&quot;,&#46;5,&#46;5&#41;\n[/code:i7dg3x0l]\n\nEl problema radica en:\n- Si utilizo el bitmap EXIT, que viene por defecto, aparece en el report correctamente.\n- En cambio, si utilizo cualquier otro bitmap creado por mi, no aparece en el report, y en el lugar donde debiera aparecer, se queda en blanco.\n\nEntonces me ha dado que pensar, ¿será un error debido al formato del mismo bmp? ¿La cantidad de colores que debe disponer? ¿Requiere un formato/nº de colores en concreto los reports?\n\nSi alguien pudiera darme una solución, me sería de gran ayuda.\n\nSaludos y gracias de antemano!','',0,'AIA=','i7dg3x0l',1,0,'',967,0,0),(27524,6161,6,52,0,'190.7.30.167',1172756131,1,0,1,1,1,1,'','¿Cómo redefino un twbrowse sin registros?','Gente,\n\nNecesito hacer esto:\n\nRealizar una consulta en mysql ( ya esta hecho, uso Eagle ); \nDevuelva \"datos\" o no que se muestre un browse con sus columnas, encabezados etc ( o sea el esqueleto del browse ).\n\n¿Cómo lo hago ? \n\nActualmente cuando ese SELECT no trae \"datos\"\nel programa se me tilda. por lo que ahora hago lo siguiente, \npero queda FEO porque en el lugar del browse queda\nun rectangulo sin nada.:\n\n[code:1n1dv2dy]      // cUltimoCampoClave != nil si la consulta trajo datos\n   \n      IF cUltimoCampoclave != NIL\n\n         REDEFINE LISTBOX oBrw ;\n            FIELDS  oQuery&#58;FieldGet&#40; 1 &#41; , oQuery&#58;FieldGet&#40; 2 &#41; ;\n            HEADERS &quot;Código particular&quot;, &quot;Descripción artículo&quot; ;\n            sizes 105, 140 ;\n            ID 203;\n            OF oFolder&#58;aDialogs&#91;2&#93;;\n            UPDATE;\n            colors CLR_BLACK, rgb&#40; 230, 235, 150 &#41;\n\n            &#46;&#46;&#46;[/code:1n1dv2dy]\n\n\nAlguna Idea?\n\nGracias.','',0,'AIA=','1n1dv2dy',1,0,'',52,0,0),(27525,6162,3,968,0,'190.45.238.99',1172756616,1,0,1,1,1,0,'','WinAsp free edition','Dear friends,\n\nSpecial edition of Winasp are ready for download from <!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w -->,\nalternative <!-- m --><a class=\"postlink\" href=\"http://190.45.238.99/files/winaspfree.rar\">http://190.45.238.99/files/winaspfree.rar</a><!-- m -->\n\nWinAsp don\'t have any lock and it\'s free for Dbf(s).\n\nWinAsp is made 100% Fivewin + xHarbour, many thanks to Antonio Linares.\n\nBest regards\nJorge Mason','',0,'AIA=','3tt8bi09',1,0,'',968,0,0),(27526,6163,6,968,0,'190.45.238.99',1172757027,1,0,1,1,1,0,'','WinAsp versión gratuita','Estimados amigos,\n\nDespués de muchos años de tener WinAsp como producto comercial he decidido hacer una versión gratuita.\n\nLa versión puede ser decargada desde <!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w -->,\no  <!-- m --><a class=\"postlink\" href=\"http://190.45.238.99/files/winaspfree.rar\">http://190.45.238.99/files/winaspfree.rar</a><!-- m -->\n\nEsta versión es 100% libre, sin candados o pantallas de registro.\n\nLa versión solo permite trabajar con archivos DBF y no tiene soporte. Se entrega con un ejemplo bastante completo.\n\nEn el futuro se publicarán otras versiones comerciales del producto, con soporte, acceso a SQL, etc.\n\nWinAsp es desarrollado 100% con Fivewin + xHarbour gracias al equipo de Fivewin y en especial a Antonio Linares.\n\nMuchas gracias\nJorge Mason','',0,'AIA=','4nwbewa1',1,0,'',968,0,0),(27527,6164,6,52,0,'190.7.30.167',1172758663,1,0,1,1,1,1,'','¿Cómo hago para agrupar columnas en TWbrowse?','Estimados,\n\n    Necesito agrupar columnas en un twbrowse, como se hace?\n\n   Ejemplo:\n\n     [code:2gwmo7b8]         |       STOCK        |\n         | minimo |    maximo |[/code:2gwmo7b8]\n\nGracias.','',0,'AIA=','2gwmo7b8',1,0,'',52,0,0),(27528,6165,2,832,0,'201.116.83.242',1172758692,1,0,1,1,1,0,'','¡¡¡¡Ayuda urgente!!!','BUEN DIA A TODOS.....\n\n\nALGUIEN ME PORDRIA AYUDAR SOBRE LA FUNCION XOR, LO QUE SUCEDE ES QUE NUNCA LO HE UTILIZADO Y NO SE COMO FUNCIONA...\n\n\nESPERO Y ME PUEDAN AYUDAR....\n\n\n\nGRACIAS A TODOS....','',0,'AIA=','hlec0b9n',1,0,'',832,0,0),(27529,6164,6,644,0,'190.30.4.184',1172761997,1,0,1,1,1,0,'','','Goost\n\nMe parece que con esa clase no se puede ( por lo menos yo no lo pude resolver ). Si con TSBROWSE porque trae superheaders.  \nSaludos','',0,'AIA=','hce4vvtl',1,0,'',644,0,0),(27530,6166,6,198,0,'189.134.35.175',1172764664,1,0,1,1,1,1,'','Integración de librerias','Hola a todos!\n\nEstoy revisando un ejemplo de Alfredo Arteaga Licona, que publico hace tiempo \'SOLO PARA PRESUMIR\'. Copie los .CH a la carpeta de FWH\\INCLUDE de igual forma la lib que viene incluida TWBROWESE.LIB  y agregué en mi archivo .MAK en la seccion en donde estan indicadas las lib de FWH.  Hice la compilación pero me manda un error como si no reconociera la lib  TWBROWSE.  Me pueden ayudar?... MIL GRACIAS!!!\n\nError: Unresolved external \'_HB_FUN_TWCAPTURE\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_GEN_FILES\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_CHK_INDICES\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_CHK_PASS\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_OPEN_DBF\' referenced from C:\\AKURATA\\FUENTES\\EJ\\PROD01.OBJ\nError: Unresolved external \'_HB_FUN_DESP_IND\' referenced from C:\\AKURATA\\FUENTES\\EJ\\PROD01.OBJ\nError: Unresolved external \'_HB_FUN_CLOSE_DBF\' referenced from C:\\AKURATA\\FUENTES\\EJ\\PROD01.OBJ\nError: Unresolved external \'_HB_FUN_OCUPADO\' referenced from C:\\AKURATA\\FUENTES\\EJ\\PROD01.OBJ\nError: Unresolved external \'_HB_FUN_GET_FORM\' referenced from C:\\AKURATA\\FUENTES\\EJ\\PROD01.OBJ\nError: Unresolved external \'_HB_FUN_CF\' referenced from C:\\AKURATA\\FUENTES\\EJ\\PROD01.OBJ\nError: Unresolved external \'_HB_FUN_TITLE_WIN\' referenced from C:\\AKURATA\\FUENTES\\EJ\\PROD01.OBJ\nError: Unresolved external \'_HB_FUN_CLIS01\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_INGS01\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_CONT01\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_SDS_MS\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_CHG_PASS\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_CHK_MESSAGE\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_REG_ACTIV\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_LICENCIAS\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_PERFORM\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_TBTNGET\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\nError: Unresolved external \'_HB_FUN_CALEND\' referenced from C:\\AKURATA\\FUENTES\\EJ\\ANVAR.OBJ\n\n\n\nLaura Edith Hernández','',0,'AIA=','1krm6wim',1,0,'',198,0,0),(27531,6167,6,36,0,'200.113.56.235',1172764726,1,0,1,1,1,0,'','impresora usb','Estimados\n\nTengo una impresora matriz de punto usb, okidata 320turbo, mi consulta es imprimir en esta impresora con la clase tdosprn\n\nlo he solucionado capturando el puerto lpt1 con [b:3nkj11rl]net use lpt1: \\\\pc\\imp [/b:3nkj11rl]\n\npero mi consulta es como puedo imprimir directo al puerto usb sin capturar, ya que debo imprimir en triplicado\n\npor ejemplo\n\ndir &gt;usb1:, o algo parecido\n\nCualquier ayuda es bienvenida\n\n\nSaludos\nPatricio','',0,'QA==','3nkj11rl',1,0,'',36,0,0),(27532,6168,3,148,0,'196.205.220.29',1172766599,1,0,1,1,1,0,'','where to place gotop() in xbrowse','Where should I place xBrw:gotop() inside xbrowse . That code below is not causing the xbrowse to go top xBrw:pageup() is working but not my demand .\n[code:y8uwt0ir]\nSTATIC FUNCTION listmete&#40; oWnd &#41; \n*-------------------------- \n\nlocal oDlg, oCol \nlocal nTotal&#58;=0 \n\nlocal oBrw \nlocal nfor,cFilter&#58;=&quot;&quot;,bFilter&#58;=&quot;&quot; \nlocal y \nlocal V_me_mc_serl&#58;= space&#40;7&#41; \n\nREQUEST ADS \nrddRegister&#40; &quot;ADS&quot;, 1 &#41; \nrddsetdefault&#40; &quot;ADS&quot; &#41; \nAdsSetDeleted&#40;&#46;T&#46;&#41; \nSET SERVER LOCAL \nSET FILETYPE TO CDX \n\n\nselect 4 \nuse mete \nindex on mete-&gt;ME_mc_serl to mete \nindex on str&#40;mete-&gt;year&#41; + str&#40;mete-&gt;month&#41; to mete1 \nindex on mete-&gt;me_date to mete2 \nset index to mete \n\n\nif MsgGet&#40; &quot;Serial Machine&quot;, &quot;Enter Serial Machine&quot;, @V_me_mc_serl,; \n              &quot;&#46;&#46;\\lupa&#46;bmp&quot; &#41; \n      select 3 \n      use mach \n      set index to mach5 \n      *MSGINFO&#40;IndexKey&#40;&#41;&#41; \n      if ! DbSeek&#40; &#40;V_me_mc_serl &#41;&#41; \n         MsgAlert&#40; &quot;I don\'t find that serial&quot; &#41; \n      endif \n   endif \n\n\n\ny &#58;= &quot;\'&quot;+padr&#40;V_me_mc_serl,7&#41;+&quot;\'&quot; \ncFilter &#58;= &quot;me_mc_serl = &quot;+ y \nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot; \n\n\n\nselect 4 \nuse mete \nDBSETFILTER&#40;&amp;bFilter,cFilter&#41; \nmete-&gt;&#40;DBGOTOP&#40;&#41;&#41; \n\n   DEFINE DIALOG oDlg of oWnd FROM 0,0 TO 45,128 TITLE &quot;Meter reads browse &quot; \n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL \n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK \n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK \n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46; \n   oBrw&#58;nHeaderLines        &#58;= 1 \n   oBrw&#58;nFooterLines        &#58;= 1 \n   oBrw&#58;nDataLines          &#58;= 1 \n   oBrw&#58;lFooter             &#58;= &#46;t&#46; \n   oBrw&#58;SetRDD&#40;&#41; \n   oBrw&#58;CreateFromCode&#40;&#41; \n   oBrw&#58;nTop = 0 \n   oBrw&#58;nLeft = 0 \n   oBrw&#58;nWidth = 1000 \n   oBrw&#58;nHeight =600 \n\n\n\n   for nFor &#58;= 1 to Fcount&#40;&#41; \n\n*oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;V_me_mc_serl&#41;,12,0&#41;&#41; \n\n   if nFor=27 \n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41; \n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= alltrim&#40;STR&#40;TOTALEM2&#40;&#41;,12,2&#41;&#41; \n      loop \n   endif \n\n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= FieldName&#40; nFor &#41; \n      *oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41; \n   next \n\n    \n   oBrw&#58;Refresh&#40;&#46;t&#46;&#41;            // Repaint the ListBox \n\n\n\n\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;,BuildButtons&#40; oDlg &#41;,oBrw&#58;gotop&#40;&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;,oDlg&#58;Refresh&#40;&#46;t&#46;&#41;&#41; \n\nRETURN NIL\n[/code:y8uwt0ir]','',0,'AIA=','y8uwt0ir',1,0,'',148,0,0),(27533,6166,6,72,0,'189.146.239.227',1172766800,1,0,1,1,1,0,'','','Mmm...  Estás tratando de compilar la aplicación, no lo vas a lograr.\n\nEs solo un ejemplo para mostrar el uso de spliters, se incluye TWBrowse con algunos ajustes para ocultar columnas y otras que no recuerdo.\n\nEs mejor revisar el código.','',0,'AIA=','18gsl1s8',1,0,'',72,0,0),(27534,6169,6,92,0,'213.96.45.9',1172768197,1,0,1,1,1,0,'','TSmtp mail Ejemplos','Hola a todos,\n\nA ver si pueden aclararme algunas dudas por favor.\n\nHe estado mirando como enviar emails desde una aplicación FiveWin.\nComo necesito enviar emails con \'Bcc\' voy a usar la clase de Luis Krause que tanto se ha recomendado en este foro, (¿se puede hacer de otra manera?).\n\nEn los ejemplos que he visto se realiza 2 veces :New() de la Clase TSmtp y sólo 1 :End().\n\n¿Es esto correcto? ¿No se debería realizar tantos :End() como :New()?\n\n¿La última versión de la clase de Luis Krause es del 02/06/2005?\n\n¿Funciona sobre XP Sp2?\n\nSaludos y gracias.\nFWH 7.01 Harbour 1.0\nCarlos G.','',0,'AIA=','22v67f3d',1,0,'',92,0,0),(27535,6168,3,303,0,'72.199.41.171',1172769970,1,0,1,1,1,0,'','','Ehab,\n\nHere are some things to try.\n\nYou shouldn\'t use the alias name in indexes.\n\nI see that you are opening two files and not specifying the alias in the browse definition. Try adding this:\n\noBrw:cAlias:=\"mete\"\n\nAlso, it appears that you open mete, index it, then reopen it (causing the indexes to be closed) and you don\'t reopen the indexes.\n\nI don\'t know why you would even need to issue a oBrw:gotop() since the database should already be there. I would try checking right after this code:\n\nselect 4 \nuse mete \nDBSETFILTER(&amp;bFilter,cFilter) \nmete-&gt;(DBGOTOP())\n\n[b:1k4mvc3u]msgInfo( [put field name here] )[/b:1k4mvc3u]\n\nIf you are not at the top record here, then it has nothing to do with the browse.\n\nJames','',0,'QA==','1k4mvc3u',1,0,'',303,0,0),(27536,6168,3,2,0,'87.218.146.193',1172770040,1,0,1,1,1,1,'','','Ehab,\n\nPlease understand what means a small and self contained sample to test.\n\nWe don\'t have your DBFs, and we can not build your portion of code. In order to provide tech support, you have to provide a small and self contained sample that reproduces the error to fix. Thanks,','',0,'QA==','33cfez8q',1,0,'',2,0,0),(27537,6134,3,909,0,'75.177.72.230',1172772088,1,0,1,1,1,1,'','','Ramesh - \nI tried the 0x4L in the style clause, but no effect.\n\nJames, Antonio - \nI did a little test with Antonio\'s testfold sample.  I separated the dialog and folder pages into separate .RC files and added them to a nearly empty DLL file (screens.dll) with Resource Workshop.  In RW, I expanded the dialog and added a line of text (LTEXT) above the folders and added two buttons below.  Then I saved the file as testfold.rc.  When I recompiled testfold, the folders were still intact with a nice small font, but all of the text I put in via the RW was the bold ugly type, including on the two buttons I added.  I can\'t pick up anything different from looking at testfold .rc.  \n\nAny clues?\nCharles','',0,'QA==','1vuasxqa',1,0,'',909,0,0),(27538,6169,6,72,0,'189.146.239.227',1172772658,1,0,1,1,1,0,'','','Puedes descargar: <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/email.zip\">http://www.despachoarteaga.com.mx/email.zip</a><!-- m -->','',0,'QA==','2gkvwajf',1,0,'',72,0,0),(27539,6134,3,303,0,'72.199.41.171',1172772861,1,0,1,1,1,0,'','','Charles,\n\n&gt; I separated the dialog and folder pages into separate .RC files and added them to a nearly empty DLL file (screens.dll) with Resource Workshop.\n\nYou should be using screen32.dll, not the 16bit screens.dll, however why not just compile the RC files into your app? Workshop sometimes damages 32bit DLLs so I have given them up and I edit and compile RC files instead.\n\nJames','',0,'QA==','38oxz9rz',1,0,'',303,0,0),(27540,6170,6,92,0,'80.33.133.32',1172772960,1,0,1,1,1,0,'','TXBrowse','Buenas,\n\nEstoy mirando las posibilidades de diferentes CONTROLES browsers/listas.\n\nEn la distribución de FiveWin he visto el TXBrowse, que tal les ha ido con él? Es totalmente operativo? (Su .PRG menciona que es una demo).\n\nSaludos y gracias\nCarlos G.','',0,'QA==','39oh4kuv',1,0,'',92,0,0),(27541,6169,6,92,0,'80.33.133.32',1172773044,1,0,1,1,1,0,'','TSmtp mail Ejemplos','[quote=&quot;Alfredo Arteaga&quot;:30tej05h]Puedes descargar: <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/email.zip\">http://www.despachoarteaga.com.mx/email.zip</a><!-- m -->[/quote:30tej05h]\n\nGracias, lo miro\n\nCarlos G.','',0,'gA==','30tej05h',1,0,'',92,0,0),(27542,6134,3,303,0,'72.199.41.171',1172773164,1,0,1,1,1,0,'','','Charles,\n\nI reread your first message and I see you are trying to create both 16bit and 32bit versions so you are using a 16bit DLL. OK, but I am not clear what you did with the test program. If you want to send me your test prg and RC or DLL files, I will take a look at it.\n\nJames','',0,'gA==','16vf2r8x',1,0,'',303,0,0),(27543,6148,6,138,0,'189.141.72.59',1172776421,1,0,1,1,1,1,'','','Efectivamente:\n\nAqui tenemos un \"pequeño\" problema.\n\nSucede que la clase TOLE AUTO tiene un METODO GET y Funcky tambien, lo cual causa un conflicto de intereses.... ¿ a quien le hago caso ?, al metodo GET de Fucnky o al metodo Get de TOLE AUTO\n\nEsta claro que lo que se invoca es el metodo GET de la TOLEAUTO, pero te marca el error, porque ese metodo espera unos parametros que no son los que le estan mandando.\n\nEsto deberia funcionar asi:\n\n    oFunckyFTP:Get( \"Get\", ficheroorigen, ficherodestino )\n\no\n\n    oFunckyFTP:Invoke( \"Get\", ficheroorigen, ficherodestino )\n\nPruebalo y me dices.','',0,'gA==','m1kxx3si',1,0,'',138,0,0),(27544,6160,6,138,0,'189.141.72.59',1172777455,1,0,1,1,1,1,'','','Ojo:\n\nNo es lo mismo EXIT que EXIT.BMP\n\nsi no especificas el .bmp, se busca la imagen en el archivo de recursos, si especificas la extension, se busca la imagen como archivo en disco.','',0,'gA==','aj6mhs40',1,0,'',138,0,0),(27545,6152,6,138,0,'189.141.72.59',1172777819,1,0,1,1,1,1,'','','Laura:\n\nRevisa tu correo, te he enviado un BAT para reconstruir la LIB que me pediste.','',0,'gA==','3nw2a16b',1,0,'',138,0,0),(27546,6066,4,13,0,'213.76.252.200',1172778934,1,0,1,1,1,0,'','','Antonio,\n\nChecked menu type is possible or not ?\n\nThanks\nPawel','',0,'gA==','1hwdewyx',1,0,'',13,0,0),(27547,6066,4,2,0,'87.218.146.193',1172782817,1,0,1,1,1,1,'','','Pawel,\n\nYes, it is possible:\n[url=http&#58;//imageshack&#46;us:2fssw3bw][img:2fssw3bw]http&#58;//img453&#46;imageshack&#46;us/img453/3961/menuqq2&#46;png[/img:2fssw3bw][/url:2fssw3bw]\nThough a new function and method is required:\n[code:2fssw3bw]\nHB_FUNC&#40; ENABLEMENUITEM &#41;\n&#123;\n   hb_retl&#40; EnableMenuItem&#40; &#40; HMENU &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parnl&#40; 3 &#41; &#41; &#41;;\n&#125;   	\n\n#define MF_BYCOMMAND  0\n#define MF_UNCHECKED  0\n#define MF_CHECKED    8\n\nDATA lChecked\n\n   METHOD SetCheck&#40; lOnOff &#41; INLINE ;\n          &#58;&#58;lChecked &#58;= lOnOff, CheckMenuItem&#40; &#58;&#58;oMenu&#58;hMenu,;\n          &#58;&#58;nId, nOR&#40; MF_BYCOMMAND, If&#40; lOnOff, MF_CHECKED, MF_UNCHECKED &#41; &#41; &#41;\n\n   REDEFINE MENUITEM oItem ID 110 OF oMenu ACTION &#40; MsgInfo&#40; &quot;Clientes&quot; &#41;, oItem&#58;SetCheck&#40; &#46;t&#46; &#41; &#41;\n[/code:2fssw3bw]','',0,'GIA=','2fssw3bw',1,0,'',2,0,0),(27548,6170,6,2,0,'87.218.146.193',1172783017,1,0,1,1,1,1,'','','Carlos,\n\nEl control está operativo. No es ninguna demo. \n\nsamples\\TestXbrw.prg es una demo de como se usa.','',0,'GIA=','6l3qnkw7',1,0,'',2,0,0),(27549,6134,3,2,0,'87.218.146.193',1172783727,1,0,1,1,1,1,'','','Please upload a screenshot at <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the url to review it','',0,'GIA=','1td7aj0l',1,0,'',2,0,0),(27550,6171,6,104,0,'201.58.36.235',1172784347,1,0,1,1,1,0,'','oFtp:SetCurrentDirectory / oFtp:GetCurrentDirectory','Olá, \n\nPara setar o diretorio corrente no ftp eu uso: oFtp:SetCurrentDirectory()\ne para buscar o nome do diretorio atual ? Não achei nada sobre oFtp:GetCurrentDirectory()\n\nObrigado,\n\nRossine.','',0,'GIA=','2822dswm',1,0,'',104,0,0),(27551,6134,3,909,0,'75.177.72.230',1172786717,1,0,1,1,1,1,'','','I have found a way to solve the problem by defining a font for every dialog in the prg.  This was never necessary for my 16 bit apps.  I was hoping that there was an easier way.  However, it really it really makes an elegant look so the work will be worth it.    \n\nThanks to everyone who responded.\n\nCharles','',0,'GIA=','2s2gkcop',1,0,'',909,0,0),(27552,6172,3,707,0,'125.163.107.1',1172788887,1,0,1,1,1,0,'','need to close others windows when my application is running','Hi All !\n\nMy application is running, but users playing the games.  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->\n\nHow to close others active windows when my application is running.\n\nThank\'s for help\n\nBest Regards\nAreang','',0,'GIA=','2x80hxnl',1,0,'',707,0,0),(27553,6173,6,926,0,'189.134.35.175',1172794370,1,0,1,1,1,0,'','Como Generar los OBJ','Hola a todos tengo una pregunta muy facil a lo mejor pero  yo no lo se...\n\nComo se genera el OBJ quien lo genera a donde lo deja... el motivo es por lo siguiente:\n\nen clipper tenia en el RMK\n\n.prg.obj:\n   CLIPPER $* /n     // Línea de compilación para archivos Prg-&gt;Obj\n\n  wsky060.obj  :   wsky060.prg\n  wmenre.obj   :    wmenre.prg\n  winiciale.obj   :   winiciale.prg\n\n.obj.exe:\n     BLINKER @LAURA       // Llama a archivo de enlazado\n\n  wsky060.Exe:    wsky060.Obj\n\ny tenia el control de los archivos que queria compilar ya sea uno o varios solo los agrego aqui en este archivo...  pero ahora no se como hacerle en xharbour para compilar mas de un programa.\n\nespero me puedan ayudar.\n\nGracias.','',0,'GIA=','2kf04w54',1,0,'',926,0,0),(27554,6174,6,926,0,'189.134.35.175',1172794561,1,0,1,1,1,0,'','sobre el obj','No me gustaria usar el VERCE porque me genera algunos conflictos y los bat que estan en los ejemplos ya que no se tiene el control de los obj es por eso que quiero saber la raiz del como se construye..\n\nGracias y Saludos.','',0,'GIA=','1g44v958',1,0,'',926,0,0),(27555,6163,6,492,0,'189.147.25.211',1172812285,1,0,1,1,1,1,'','','Muchas Gracias Master\n\nSaludos','',0,'GIA=','vqv9jy3b',1,0,'',492,0,0),(27556,6162,3,234,0,'75.34.217.174',1172813325,1,0,1,1,1,1,'','','Hello,\n\nDo you have any documentation and implementation guidelines in English? Also, what are the requirements to run WinASP? Does WinASP run on Windows Server 2003? Vista?\n\nThank you,','',0,'GIA=','1pf4yztl',1,0,'',234,0,0),(27557,6051,3,206,0,'125.160.80.147',1172814951,1,0,1,1,1,0,'','','I\'m using this code because sometimes HB_ARGV(0) acts weird on some computers, ie. slow start, my app can run twice, etc.\n\n[code:10meel45]\nIF IsExeRunning&#40;cFileName&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41;&#41;   //cFileName&#40;HB_ARGV&#40;0&#41;&#41;\n   msgalert&#40;&quot;Program already running!&quot;+CRLF+&quot;This program cannot be started more than one instance!&quot;&#41;\n   QUIT\nENDIF\n[/code:10meel45]','',0,'AIA=','10meel45',1,0,'',206,0,0),(27558,6173,6,2,0,'87.218.146.193',1172816314,1,0,1,1,1,1,'','','Revisa samples\\buildh.bat\n\nAhí ves paso a paso como se construye el EXE','',0,'AIA=','1iw8lfc5',1,0,'',2,0,0),(27559,6175,6,198,0,'189.144.51.77',1172816401,1,0,1,1,1,1,'','Incluir librerias de terceros','Hola de nuevo!\n\nEstoy recompilano el grid de Canal5 para poderlo integrar a mi aplicaciòn.  RF me hizo el favor de enviarme un .bat para recompilar.  El problema es el siguiente, al tratar de compilar programas DRIVES.C y XSCRLL.C  me manda errores\ncon DRIVES.C:\n\n\"WARNING W8070 DRIVES.C 38: Function should return a value  in function HB_FUN_cDrives .   \"\n\ny en XSCRLL los errores son:\n\nWarning W8069 XSCRLL.C 8: Nonportable pointer conversion in function HB_FUN_xVScrll\nWarning W8070 XSCRLL.C 24: Function should return a value in function HB_FUN_xVScrll\nWarning W8069 XSCRLL.C 30: Nonportable pointer conversion in function HB_FUN_xHScrll\nWarning W8070 XSCRLL.C 52: Function should return a value in function HB_FUN_xHScrll\n\n\nAhora bien si no incluyo estos dos programas genero laLib pero al compilar mi aplicaciòn me indica que hacen falta la referncia a estas funciones de xscrll y drives.....\n\nalguien me pude ayudar?? <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSi alguien ya tiene estas lib recompiladas podrà indicarme que hacer... HELP ME!!!\nAUXILIO!! <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nSaludos\n\nLaura E. Hernàndez H.','',0,'AIA=','2j8ehdz2',1,0,'',198,0,0),(27560,6165,2,2,0,'87.218.146.193',1172816543,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/Puerta_l%C3%B3gica#Puerta_OR-exclusiva_.28XOR.29\">http://es.wikipedia.org/wiki/Puerta_l%C ... _.28XOR.29</a><!-- m -->','',0,'AIA=','7wtb4c6d',1,0,'',2,0,0),(27561,6175,6,2,0,'87.218.146.193',1172816676,1,0,1,1,1,1,'','','Eso son warnings (avisos) y no errores. El OBJ resultante debe funcionarte','',0,'AIA=','6rlgbl1s',1,0,'',2,0,0),(27562,6170,6,92,0,'213.96.45.9',1172820962,1,0,1,1,1,0,'','TXbrowse','[quote=&quot;Antonio Linares&quot;:2era4y6a]Carlos,\n\nEl control está operativo. No es ninguna demo. \n\nsamples\\TestXbrw.prg es una demo de como se usa.[/quote:2era4y6a]\n\nOps, ahora he visto que la Clase no menciona \'Demo\'.\n\nEs que estoy como un chiquillo con \"zapatos nuevos\".\n\nSaludos y gracias.\nCarlos G.','',0,'gA==','2era4y6a',1,0,'',92,0,0),(27563,6162,3,92,0,'213.96.45.9',1172821087,1,0,1,1,1,0,'','Re: WinAsp free edition','[quote=&quot;jmason&quot;:1nnl3c5l]Dear friends,\n\nSpecial edition of Winasp are ready for download from <!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w -->,\nalternative <!-- m --><a class=\"postlink\" href=\"http://190.45.238.99/files/winaspfree.rar\">http://190.45.238.99/files/winaspfree.rar</a><!-- m -->\n\nWinAsp don\'t have any lock and it\'s free for Dbf(s).\n\nWinAsp is made 100% Fivewin + xHarbour, many thanks to Antonio Linares.\n\nBest regards\nJorge Mason[/quote:1nnl3c5l]\n\nJorge,\n\nEstoy igual que Darrell; me iría bien algo de documentación, quiero empezar en esto de ASP.\n\nSaludos\nCarlos G.','',0,'gA==','1nnl3c5l',1,0,'',92,0,0),(27564,6172,3,6,0,'87.19.210.170',1172822278,1,0,1,1,1,1,'','Re: need to close others windows when my application is runn','[code:18yammrs]#define GW_HWNDFIRST	0\n#define GW_HWNDLAST	1\n#define GW_HWNDNEXT	2\n#define GW_HWNDPREV	3\n#define GW_OWNER	4\n#define GW_CHILD	5\n\n#define WM_CLOSE 16\n\n\nSTATIC FUNCTION CLOSEAPPS&#40; hMWnd &#41;\n\n    LOCAL ahWnd &#58;= &#123;&#125;\n\n    LOCAL hWnd &#58;= GETWINDOW&#40; hMWnd, GW_HWNDFIRST &#41;\n\n    LOCAL i\n\n    SYSREFRESH&#40;&#41;\n\n    WHILE hWnd != 0\n        IF GETWINDOW&#40; hWnd, GW_OWNER &#41; = 0 &#46;AND&#46;;\n           ISWINDOWVISIBLE&#40; hWnd &#41; &#46;AND&#46;;\n           hWnd != hMWnd &#46;AND&#46;;\n           !EMPTY&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41; &#46;AND&#46;;\n           !&#40; GETWINDOWTEXT&#40; hWnd &#41; == &quot;Program Manager&quot; &#41;\n\n            AADD&#40; ahWnd, hWnd &#41;\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    FOR i = 1 TO LEN&#40; ahWnd &#41;\n        POSTMESSAGE&#40; ahWnd&#91; i &#93;, WM_CLOSE, 0, 0 &#41;\n    NEXT\n\n    RETURN NIL[/code:18yammrs]\n\nEMG','',0,'AIA=','18yammrs',1,0,'',6,0,0),(27565,6160,6,967,0,'62.43.189.20',1172823603,1,0,1,1,1,0,'','','Saludos Rene!\n\nCuando me referia a los bitmaps, son los que creo a mano y después incluyo en los recursos. El caso es que aun apareciendome en los recursos, no se muestran en el Report.\n\nSin embargo si añado la ruta completa del archivo, como fichero .Bmp, no me da problemas.','',0,'AIA=','3s0judjb',1,0,'',967,0,0),(27566,6175,6,138,0,'200.56.250.113',1172825534,1,0,1,1,1,1,'','','Laura:\n\nTe mande un bat que genera el Grid32.lib, pruebalo ejecuando solo el bat, ese construye la libreria.','',0,'AIA=','15pq5i1y',1,0,'',138,0,0),(27567,6170,6,969,0,'80.58.205.37',1172830198,1,0,1,1,1,0,'','','Hola:\n\nEstoy en el mismo caso, después de mucho tiempo retomo la programación con FWH e igualmente he estado probando diferente ‘browses’ y me he decantado por xBrowse, no por que pueda ser el mejor, sino porque para mi tiene el código mas claro para poder ser modificado.\n\nDe hecho estoy modificando la clase para incluirle cabeceras con el control de win32 THeader, las barras de scroll, y algunas cosas más que me interesan.\n\nSaludos,','',0,'AIA=','1g80hdep',1,0,'',969,0,0),(27568,6176,6,967,0,'62.43.189.20',1172831328,1,0,1,1,1,0,'','cGetFile?','Saludos!\n\nHasta ahora, cuando he necesitado el dialogo de windows de abrir fichero, lo he podido hacer con cGetFile.\n\nPero, ¿y para abrir el dialogo de Guardar como? ¿Se utiliza algun parametro en cGetFile? ¿O es necesario el uso de otra función?','',0,'AIA=','3q6m9uxn',1,0,'',967,0,0),(27569,6177,6,898,0,'200.232.246.228',1172835218,1,0,1,1,1,0,'','Serviço para Windows','E ae pessoa, alguem sabe como eu faço para criar um serviço no windows?\n\n\n[]s!!','',0,'','1j2qe9og',1,0,'',898,0,0),(27570,6177,6,2,0,'87.218.146.193',1172836578,1,0,1,1,1,1,'','','Publicado por Maurilio en estos foros:\n[code:b8y540pg]\n#include &quot;FiveWin&#46;ch&quot;\n//-------------------------\nFunction Main&#40;&#41;\n//-------------------------\n\nServiceProcess&#40;1&#41;\n\n---- Tu codigo aqui\n\n\nReturn NIL\n\n\n//------------------------------\nFunction ServiceProcess&#40; mode &#41;\n//------------------------------\nLocal nProcessId &#58;= 0\n\nDefault mode &#58;= 0\n\nnProcessId &#58;= GCP&#40; &#41;\n\nIf Abs&#40; nProcessId &#41; &gt; 0\n    RSProcess&#40; nProcessId, mode &#41;\n\nEndif\n\nRETURN\n\n//----------------------------------------------------\nDLL32 FUNCTION RSProcess&#40;npID  AS LONG ,;\n                         nMode AS LONG &#41; AS LONG ;\n      FROM &quot;RegisterServiceProcess&quot; LIB &quot;kernel32&#46;DLL&quot;\n//----------------------------------------------------\n\n//----------------------------------------------------\nDLL32 FUNCTION GCP&#40;&#41; AS LONG;\n      FROM &quot;GetCurrentProcessId&quot; LIB &quot;kernel32&#46;dll&quot;\n//----------------------------------------------------\n[/code:b8y540pg]','',0,'AIA=','b8y540pg',1,0,'',2,0,0),(27571,6162,3,968,0,'190.45.238.99',1172836795,1,0,1,1,1,0,'','Docuemtnación WinAsp','Estimados Amigos,\n\nTrataré de publicar lo antes posible la documentación\n\nSaludos\nJorge','',0,'AIA=','hm3m5rlo',1,0,'',968,0,0),(27572,6162,3,968,0,'190.45.238.99',1172836882,1,0,1,1,1,0,'','Documentation','Hello Darrel,\n \nNo yet, but as soon as possible i publish a English version.\n \nBest regards\nJorge Mason','',0,'AIA=','2pz6wr4u',1,0,'',968,0,0),(27573,6178,3,15,0,'203.73.69.36',1172838032,1,0,1,1,1,0,'','FWH can use Skin+Menu+ToolBar ActiveX','Hello \n\nI test Menu and ToolBar ActiveX below:\n\nScreen 1:\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar1sg6&#46;jpg:b7p6a3z4][img:b7p6a3z4]http&#58;//img224&#46;imageshack&#46;us/img224/5343/fwhactivexmenutoolbar1sg6&#46;th&#46;jpg[/img:b7p6a3z4][/url:b7p6a3z4]\n\nScreen 2:\n[url=http&#58;//img221&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar2ti6&#46;jpg:b7p6a3z4][img:b7p6a3z4]http&#58;//img221&#46;imageshack&#46;us/img221/4336/fwhactivexmenutoolbar2ti6&#46;th&#46;jpg[/img:b7p6a3z4][/url:b7p6a3z4]\n\nScreen 3:\n[url=http&#58;//img87&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar3wp7&#46;jpg:b7p6a3z4][img:b7p6a3z4]http&#58;//img87&#46;imageshack&#46;us/img87/7194/fwhactivexmenutoolbar3wp7&#46;th&#46;jpg[/img:b7p6a3z4][/url:b7p6a3z4]\n\nScreen 4:(full style)\n[url=http&#58;//img61&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar4rh1&#46;jpg:b7p6a3z4][img:b7p6a3z4]http&#58;//img61&#46;imageshack&#46;us/img61/4142/fwhactivexmenutoolbar4rh1&#46;th&#46;jpg[/img:b7p6a3z4][/url:b7p6a3z4]\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'GA==','b7p6a3z4',1,0,'',15,0,0),(27574,6179,7,945,0,'80.32.177.143',1172838100,1,0,1,1,1,0,'','Caracteres de escape para la impresora','Muy buenas, ¿alguien sabe como puedo mandar el caracter de escape:\n\"ESC C 42\" a la impresora STAR DP8340S? \nme dice que le tengo que mandar \"ESC C n\" (donde n es el número de líneas) y lo que es lo mismo en hexadecimal: \"(1B)H (43)H n\"\n\ndecirme como puede mandarlo gracias.\nGracias.\n\nUn Saludo.','',0,'GA==','1jg5zxtg',1,0,'',945,0,0),(27575,6128,1,666,0,'211.28.125.58',1172839005,1,0,1,1,1,0,'','','Worked. Thanks, Antonio.','',0,'GA==','1jn4f2km',1,0,'',666,0,0),(27576,6172,3,397,0,'201.13.19.192',1172839609,1,0,1,0,1,1,'','','Areang,\n\nHere is my LanHouse Spy. To use it.\n\n1 - Create a C:\\Spyfolder on server and install the LanHouse Spy.\n2 - Share the C:\\SpyFolder to other machines.\n3 - Exec the LanHouse Spy on each machine.\n\nTo lock one machine, open ACESSOS.DBF on server, locate user and change status for STATUS field, true or false.\n\nImplement the Enrico\'s code to improve.\n\nFull SERVICE.PRG code\n[code:tfdhazfc]\n#include &quot;FiveWin&#46;ch&quot; \n#include &quot;dll&#46;ch&quot; \n\n#DEFINE WM_SYSCOMMAND  274     // &amp;H112\n#DEFINE SC_TASKLIST   61744    //&amp;HF130\n#DEFINE SC_SCREENSAVE 61760   // &amp;HF140\n#DEFINE SW_HIDE           0   // &amp;H0\n#DEFINE SW_SHOWNA         8   // &amp;H8\n#DEFINE SW_SHOW           5   // &amp;H5\n#DEFINE SW_SHOWNORMAL     1\n#DEFINE SC_MONITORPOWER  61808   //&amp;HF170   Gracias a Ramon Ramirez por la info\n#DEFINE SM_CLEANBOOT     67\n\n#DEFINE GWL_EXSTYLE   &#40;-20&#41; \n#DEFINE WS_EX_LAYERED 0x00080000 \n#DEFINE LWA_ALPHA     0x00000002 \n#DEFINE LWA_COLORKEY  0x00000001 \n\n#DEFINE GW_CHILD      5\n#DEFINE GW_HWNDNEXT   2\n#DEFINE RT_BITMAP     2\n#DEFINE MB_ICONEXCLAMATION 48\n#DEFINE CBM_INIT 4 &amp;&amp; should move to prg header\n#DEFINE DIB_RGB_COLORS 0 &amp;&amp; should move to prg header\n\nstatic hLib, hDib\n\nFunction Main&#40;_tempo_&#41; \n   Local oB, oApp, oIcon, oTimer, cImgFile &#58;= &quot;service&#46;bmp&quot;, oClp\n   public cUsuario &#58;= space&#40;15&#41;, cImage, cIMGAlerta, oEsconde\n   lStatus &#58;= &#46;f&#46;\n   Default _tempo_ &#58;= &quot;05&quot;\n   cPath   &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41;\n   nTempo     &#58;= VerifyINI&#40; &quot;SERVICE&quot;, &quot;TEMPO&quot; , &quot;360&quot;, cPath+&quot;service&#46;ini&quot; &#41;\n   cImage     &#58;= VerifyINI&#40; &quot;SERVICE&quot;, &quot;IMAGEM&quot;, &quot;NAO&quot;, cPath+&quot;service&#46;ini&quot; &#41;\n   cIMGAlerta &#58;= VerifyINI&#40; &quot;SERVICE&quot;, &quot;ALERTA&quot;, &quot;SIM&quot;, cPath+&quot;service&#46;ini&quot; &#41;\n   //hLib &#58;= LoadLibrary&#40; &quot;freeimage&#46;dll&quot; &#41;\n   //if hLib &lt;= 32\n   //   MsgStop&#40; &quot;Freeimage&#46;dll nao foi carregada&quot; &#41;\n   //   return 0\n   //endif\n   if !file&#40;&quot;service&#46;dbf&quot;&#41;\n      DbCreate&#40;&quot;service&#46;dbf&quot;,&#123; &#123; &quot;Usuario&quot;  , &quot;C&quot;, 15, 0&#125;,;\n                               &#123; &quot;Data&quot;     , &quot;D&quot;,  8, 0&#125;,;\n                               &#123; &quot;Hora&quot;     , &quot;C&quot;,  8, 0&#125;,;\n                               &#123; &quot;Imagem&quot;   , &quot;C&quot;, 30, 0&#125; &#125; &#41;\n   endif\n   if !file&#40;&quot;acessos&#46;dbf&quot;&#41;\n      DbCreate&#40;&quot;acessos&#46;dbf&quot;,&#123; &#123; &quot;Usuario&quot;  , &quot;C&quot;, 15, 0&#125;,; // Pode ser IP\n                               &#123; &quot;Serial&quot;   , &quot;C&quot;, 10, 0&#125;,;\n                               &#123; &quot;Data&quot;     , &quot;D&quot;,  8, 0&#125;,;\n                               &#123; &quot;HoraINI&quot;  , &quot;C&quot;,  8, 0&#125;,;\n                               &#123; &quot;HoraFIM&quot;  , &quot;C&quot;,  8, 0&#125;,;\n                               &#123; &quot;Status&quot;   , &quot;L&quot;,  1, 0&#125;,;\n                               &#123; &quot;Imagem&quot;   , &quot;C&quot;, 30, 0&#125; &#125; &#41;\n   endif\n   USE service NEW SHARED\n   USE acessos NEW SHARED\n   HDSerial &#58;= HDSerial&#40;&#41;\n   dbGoTop&#40;&#41;\n   locate for alltrim&#40;acessos-&gt;serial&#41; = alltrim&#40;HDSerial&#41;\n   if &#46;not&#46; found&#40;&#41;\n      MsgGet&#40; &quot;Configuracao&quot;, &quot;Nick do Usuario&#58;&quot;, @cUsuario &#41;\n      dbNetAppend&#40; 0 &#41;             // Adiciona usuario a lista\n      acessos-&gt;Data    &#58;= Date&#40;&#41;   // coloca a data do dia do acesso\n      acessos-&gt;Usuario &#58;= cUsuario // coloca o nome do usuario\n      acessos-&gt;Serial  &#58;= HDSerial // coloca o nome do usuario\n      acessos-&gt;Status  &#58;= &#46;F&#46;      // e autentica o usuario mas nao libera\n      dbNetReglock&#40;&#41;\n   else\n      lStatus &#58;= acessos-&gt;Status   // verifica se o usuario esta liberado\n   endif\n   dbSelectArea&#40; &quot;acessos&quot; &#41;\n   set filter to alltrim&#40;acessos-&gt;serial&#41; = alltrim&#40;HDSerial&#41;\n   dbGoTop&#40;&#41;\n   //---------------\n   ServiceProcess&#40;1&#41; \n   //---------------\n   DEFINE BRUSH oB COLOR CLR_HGRAY\n   DEFINE ICON oIcon FILE &quot;LOGO&#46;ICO&quot;\n   DEFINE CLIPBOARD oClp OF oApp\n   //ShowWindow&#40; FindWindow&#40;nil,\'Program Manager\'&#41;, SW_SHOW&#41;\n   //ShowWindow&#40;FindWindow&#40; \'Shell_TrayWnd\',nil&#41;, SW_SHOWNA&#41;\n   //if ! lStatus\n   //   cBmp &#58;= &quot;service&#46;bmp&quot;\n   //   DEFINE BRUSH  oBrush STYLE NULL\n   //   DEFINE BITMAP oBmp FILENAME cBmp\n   //          hDC    &#58;= oBmp&#58;hDC\n   //   DEFINE WINDOW oEsconde FROM 0,0 TO 600,800 PIXEL BRUSH oBrush STYLE WS_POPUP\n   //   ACTIVATE WINDOW oEsconde ON PAINT PalBmpDraw&#40; hDC, 0, 0, oBmp&#58;hBitmap &#41;\n   //endif\n   DEFINE WINDOW oApp FROM 0,0 to 1,1 pixel TITLE &quot;Service&quot; BRUSH oB STYLE WS_POPUP ICON &quot;racer&#46;ico&quot;\n          DEFINE TIMER oTimer OF oApp INTERVAL &#40;val&#40;_tempo_&#41;*1000&#41; ACTION GravaProcess&#40; cImgFile, oApp &#41; \n          ACTIVATE TIMER oTimer\n   ACTIVATE WINDOW oApp ON INIT &#40;Shell_NotifyIcon&#40; 0, &quot;racer&#46;ico&quot; &#41;, oApp&#58;Hide&#40;&#41;&#41; //VALID &#40;oEsconde&#58;End&#40;&#41;, &#46;t&#46;&#41;\n   ShowWindow&#40; FindWindow&#40;nil,\'Program Manager\'&#41;, SW_SHOW&#41;\n   ShowWindow&#40;FindWindow&#40; \'Shell_TrayWnd\',nil&#41;, SW_SHOWNA&#41;\n   Return NIL                   \n\n//-------------------------------------\nFunction GravaProcess&#40; cImgFile, oWnd &#41; \n//-------------------------------------\n   if cImage = &quot;SIM&quot;\n      //hWnd &#58;= FindWindow&#40;nil,\'Program Manager\'&#41;\n      //hBmp &#58;= WndBitmap&#40; hWnd &#41;\n      //fErase&#40;cImgFile&#41;\n      //hDib &#58;= DibFromBitmap&#40; hBmp &#41;\n      //DibWrite&#40; cImgFile, hDib &#41;\n      //WaitRun&#40; &quot;nconvert -out jpeg -q 100 -D &quot;+cImgFile, 0 &#41;\n      dbSelectArea&#40; &quot;service&quot; &#41;\n      dbAppend&#40;&#41;\n      service-&gt;usuario &#58;= NetName&#40;&#41;\n      service-&gt;data    &#58;= Date&#40;&#41;\n      service-&gt;hora    &#58;= Time&#40;&#41;\n      service-&gt;imagem  &#58;= StrTran&#40; cImgFile, &quot;&#46;bmp&quot;, &quot;&#46;jpg&quot; &#41;\n      dbNetReglock&#40;&#41;\n   endif\n   //USE service SHARED\n   //dbCloseAll&#40;&#41;\n   if cIMGAlerta = &quot;SIM&quot;\n      //Ballon&#40;&quot;C A P T U R E I &quot;+acessos-&gt;USUARIO,2&#41;\n      Ballon&#40;&quot;Capturei mais uma imagem&quot;,2&#41;\n   endif\n   dbSelectArea&#40; &quot;acessos&quot; &#41;\n   dbGoTop&#40;&#41;\n   lStatus &#58;= acessos-&gt;Status\n   if lStatus // Se usuario esta liberado para uso da maquina ela sera ativada\n      //Ballon&#40;&quot;M O S T R A N D O &quot;+acessos-&gt;USUARIO,2&#41;\n      WinExec&#40; &quot;servshow&quot;, 7 &#41;\n      ShowWindow&#40; FindWindow&#40;nil,\'Program Manager\'&#41;, SW_SHOW&#41;\n      ShowWindow&#40;FindWindow&#40; \'Shell_TrayWnd\',nil&#41;, SW_SHOWNA&#41;\n   else\n      //Ballon&#40;&quot;E S C O N D E N D O &quot;+acessos-&gt;USUARIO,2&#41;\n      WinExec&#40; &quot;servhide&quot;, 7 &#41;\n      ShowWindow&#40;FindWindow&#40; \'Shell_TrayWnd\',nil&#41;, SW_HIDE&#41;\n      ShowWindow&#40; FindWindow&#40;nil,\'Program Manager\'&#41;, SW_HIDE&#41;\n   endif\n   //lOk &#58;= fiSave&#40; 0, hDib, cImgFile &#41;\n   //if !lOk\n   //   MsgInfo&#40; &quot;Can\'t not save file&quot; &#41;\n   //endif\n   //MsgRun&#40;\'gravei\'&#41;\n   Return NIL\n\n//-------------------------------------\nFunction ServiceProcess&#40; mode &#41; \n//-------------------------------------\n   Local nProcessId &#58;= 0 \n   Default mode &#58;= 0 \n   nProcessId &#58;= GCP&#40; &#41; \n   If Abs&#40; nProcessId &#41; &gt; 0 \n      RSProcess&#40; nProcessId, mode &#41; \n   Endif \n   RETURN \n\n//-------------------------------------\nFunction Ballon&#40;cBallonMsg,nBallonTime&#41;\n//-------------------------------------\n   local oDlgBallon, oBrush\n   default cBallonMsg &#58;= &quot;Nova mensagem chegando&#46;&#46;&#46;&quot;\n   DEFINE WINDOW oDlgBallon ;\n          FROM GetSysMetrics&#40;1&#41;,GetSysMetrics&#40;0&#41;-300 TO 200,200 PIXEL ;\n          COLOR nRGB&#40;255,255,255&#41;,nRGB&#40;255,255,230&#41; ;\n          NO CAPTION BORDER NONE\n          @ 5, 5 GET cBallonMsg MEMO OF oDlgBallon SIZE 195,195 PIXEL COLOR nRGB&#40;000,000,000&#41;,nRGB&#40;255,255,230&#41; NOBORDER NO MODIFY NO VSCROLL\n   //ACTIVATE WINDOW oDlgBallon ON INIT &#40; LayeredWindow&#40; oDlgBallon, 070 &#41;, MoveDLG&#40;oDlgBallon,nBallonTime&#41; &#41;\n   ACTIVATE WINDOW oDlgBallon ON INIT MoveDLG&#40;oDlgBallon,nBallonTime&#41;\n   return nil\n\n//-------------------------------------\nFunction LayeredWindow&#40; oWnd, nLay &#41; \n//-------------------------------------\n   //SetWindowLong&#40; oWnd&#58;hWnd, GWL_EXSTYLE, GetWindowLong&#40; oWnd&#58;hWnd, GWL_EXSTYLE &#41; | WS_EX_LAYERED &#41; \n   SetWindowLong&#40; oWnd&#58;hWnd, GWL_EXSTYLE, WS_BORDER &#41;\n   SetWindowLong&#40; oWnd&#58;hWnd, GWL_EXSTYLE, WS_EX_LAYERED &#41; \n   SetLayeredWindowAttributes&#40; oWnd&#58;hWnd, 0, &#40; 255 * nLay &#41; / 100, LWA_ALPHA &#41; \n   Return NIL\n\n//-------------------------------------\nFunction dbNetCommit&#40; tempo &#41;\n//-------------------------------------\n   private sempre\n   dbCommit&#40;&#41;\n   dbRUnlock&#40;&#41;                                           // tenta incluir registro\n   if RLock&#40;&#41;                                            // se conseguiu\n      mensagem&#40;&quot; Aguarde&#46;&#46;&#46; Tentando liberar o registro&quot;&#41;// se nao conseguiu\n      sempre = &#40;tempo = 0&#41;                               // fica tentando inclusao\n      for i = 1 to 10                                    // ate o tempo esgotar ou\n         dbRUnlock&#40;&#41;                                     // o usuario se encher&#46;&#46;&#46;\n         if &#46;not&#46; neterr&#40;&#41;\n            return &#46;t&#46;\n         endif\n         inkey&#40;&#46;5&#41;                 &amp;&amp; espera 1/2 segundo\n         tempo = tempo - &#46;5\n      next \n   endif\n   return &#40;&#46;f&#46;&#41;                 &amp;&amp; nao bloqueado\n\n//-------------------------------------\nFunction dbNetAppend&#40; tempo &#41;\n//-------------------------------------\n   private sempre\n   dbappend&#40;&#41;                                            // tenta incluir registro\n   if &#46;not&#46; neterr&#40;&#41;                                     // se conseguiu\n      return &#40;&#46;t&#46;&#41;                                       // retorna verdadeiro\n   endif\n   mensagem&#40;&quot; Aguarde&#46;&#46;&#46; Tentando Acesso aos Arquivos &quot;&#41; // se nao conseguiu\n   sempre = &#40;tempo = 0&#41;                                  // fica tentando inclusao\n   do while &#40;sempre &#46;or&#46; tempo &gt; 0&#41; &#46;and&#46; inkey&#40;&#41;&lt;&gt;27    // ate o tempo esgotar ou\n      dbappend&#40;&#41;                                         // o usuario se encher&#46;&#46;&#46;\n      if &#46;not&#46; neterr&#40;&#41;\n         return &#46;t&#46;\n      endif\n      inkey&#40;&#46;5&#41;                 &amp;&amp; espera 1/2 segundo\n      tempo = tempo - &#46;5\n   enddo\n   return &#40;&#46;f&#46;&#41;                 &amp;&amp; nao bloqueado\n\n//-------------------------------------\nFunction dbNetReglock&#40; tempo &#41;\n//-------------------------------------\n   private sempre\n   if rlock&#40;&#41;\n      return &#40;&#46;t&#46;&#41;              &amp;&amp; bloqueado\n   endif\n   dbUnlockAll&#40;&#41;\n   mensagem&#40;&quot; Aguarde&#46;&#46;&#46; Tentando Acesso aos Arquivos &quot;&#41;\n   sempre = &#40;tempo = 0&#41;\n   do while &#40;sempre &#46;or&#46; tempo &gt; 0&#41; &#46;and&#46; inkey&#40;&#41;&lt;&gt;27\n\n      if rlock&#40;&#41;\n         return &#40;&#46;t&#46;&#41;           &amp;&amp; bloqueado\n      endif\n      inkey&#40;&#46;5&#41;                 &amp;&amp; espera 1/2 segundo\n      tempo = tempo - &#46;5\n   enddo\n   return &#40;&#46;f&#46;&#41;                 &amp;&amp; nao bloqueado\n\n//-------------------------------------\nFunction MoveDLG&#40;oDlgBallon,oDlgTime&#41;\n//-------------------------------------\n   oDlgAltura &#58;= GetSysMetrics&#40;1&#41;\n   for i = 1 to 20\n       oDlgAltura &#58;= oDlgAltura - i\n       oDlgBallon&#58;Move&#40; oDlgAltura, 100, 200, 200, &#46;t&#46; &#41;\n       SysWait&#40;&#46;02&#41;\n   next\n   SysWait&#40;oDlgTime&#41;\n   for i = 1 to 20\n       oDlgAltura &#58;= oDlgAltura + i\n       oDlgBallon&#58;Move&#40; oDlgAltura, 100, 200, 200, &#46;t&#46; &#41;\n       SysWait&#40;&#46;02&#41;\n   next\n   oDlgBallon&#58;end&#40;&#41;\n   return\n\n//-------------------------------------\nFunction HDSERIAL&#40;&#41;\n//-------------------------------------\n   return substr&#40;alltrim&#40;str&#40;nSerialHD&#40;&#41;&#41;&#41;,1,8&#41;\n\n//-------------------------------------\nFunction MENSAGEM&#40; MENSAGEM, TEMPO &#41;\n//-------------------------------------\n   if tempo &lt;&gt; NIL\n      MsgStop&#40; OemToAnsi&#40;MENSAGEM&#41; &#41;\n   else\n      MsgRun&#40; OemToAnsi&#40;MENSAGEM&#41; &#41;\n   endif\n\n//-------------------------------------\nFunction Ping&#40;DestinationAddress&#41;\n//-------------------------------------\n   local IcmpHandle,Replicas\n   local RequestData&#58;=&quot;Testando ping&quot;,;\n         RequestSize&#58;=15,;\n         RequestOptions&#58;=&quot;&quot;,;\n         ReplyBuffer&#58;=space&#40;278&#41;,;\n         ReplySize&#58;=278,;\n         Timeout&#58;=500 &amp;&amp; Milisegundos de espera\n   default DestinationAddress &#58;= &quot;10&#46;10&#46;10&#46;3&quot;\n   DestinationAddress&#58;=left&#40;alltrim&#40;DestinationAddress&#41;+space&#40;15&#41;,15&#41;\n   //MsgGet&#40;&quot;Ping&#46;&#46;&#46;&quot;,&quot;Introduzca dirección IP&quot;,@DestinationAddress&#41;\n   IcmpHandle&#58;=IcmpCreateFile&#40;&#41;\n   Replicas&#58;=IcmpSendEcho&#40;IcmpHandle,;\n                          inet_addr&#40;DestinationAddress&#41;,;\n                          RequestData,;\n                          RequestSize,0,;\n                          ReplyBuffer,;\n                          ReplySize,;\n                          Timeout&#41;\n   IcmpCloseHandle&#40;IcmpHandle&#41;\n   if Replicas &gt; 0\n      msginfo&#40;&quot;A maquina &quot;+alltrim&#40;DestinationAddress&#41;+&quot; existe&quot;&#41;\n   else\n      msginfo&#40;&quot;A maquina &quot;+alltrim&#40;DestinationAddress&#41;+&quot; nao existe&quot;&#41;\n   endif\n   return nil\n\n//---------------------------------------------------- \nDLL32 FUNCTION RSProcess&#40;npID  AS LONG ,nMode AS LONG &#41; AS LONG FROM &quot;RegisterServiceProcess&quot; LIB &quot;kernel32&#46;DLL&quot; \nDLL32 FUNCTION GCP&#40;&#41; AS LONG FROM &quot;GetCurrentProcessId&quot; LIB &quot;kernel32&#46;dll&quot; \nDLL32 STATIC FUNCTION FISAVE&#40; nFormat AS LONG, hDib AS LONG, cFileName AS LPSTR, nFlags AS LONG &#41; AS BOOL PASCAL FROM &quot;_FreeImage_Save@16&quot; LIB hLib\n//---------------------------------------------------- \nDLL32 FUNCTION WSAGetLastError&#40;&#41; AS _INT PASCAL FROM &quot;WSAGetLastError&quot; LIB &quot;wsock32&#46;dll&quot;\nDLL32 FUNCTION inet_addr&#40;cIP AS STRING&#41; AS LONG PASCAL FROM &quot;inet_addr&quot; LIB &quot;wsock32&#46;dll&quot;\nDLL32 FUNCTION IcmpCreateFile&#40;&#41; AS LONG PASCAL FROM &quot;IcmpCreateFile&quot; LIB &quot;icmp&#46;dll&quot;\nDLL32 FUNCTION IcmpCloseHandle&#40;IcmpHandle AS LONG&#41; AS LONG PASCAL FROM &quot;IcmpCloseHandle&quot; LIB &quot;icmp&#46;dll&quot;\nDLL32 FUNCTION IcmpSendEcho&#40;IcmpHandle AS LONG,;\n                            DestinationAddress AS LONG,;\n                            RequestData AS STRING,;\n                            RequestSize AS LONG,;\n                            RequestOptions AS LONG,;\n                            ReplyBuffer AS LPSTR,;\n                            ReplySize AS LONG,;\n                            Timeout AS LONG&#41; AS LONG PASCAL FROM &quot;IcmpSendEcho&quot; LIB &quot;icmp&#46;dll&quot;\n\n#include &quot;errorsys&#46;prg&quot;\n\nfunction VerifyINI&#40; _section_, _entry_, _var_, _inifile_, _grava_ &#41;\n   oIni &#58;= TIni&#40;&#41;&#58;New&#40; _inifile_ &#41;\n   if _grava_ = &#46;t&#46;\n      oIni&#58;Set&#40; _section_, _entry_, _var_ &#41;\n   endif\n   return oIni&#58;Get&#40; _section_, _entry_, _var_, _var_ &#41;\n[/code:tfdhazfc]\n\nTo save a photo of terminal change the lines below:\n\n[code:tfdhazfc]\n&#46;&#46;&#46;\n      //hWnd &#58;= FindWindow&#40;nil,\'Program Manager\'&#41; \n      //hBmp &#58;= WndBitmap&#40; hWnd &#41; \n      //fErase&#40;cImgFile&#41; \n      //hDib &#58;= DibFromBitmap&#40; hBmp &#41; \n      //DibWrite&#40; cImgFile, hDib &#41; \n      //WaitRun&#40; &quot;nconvert -out jpeg -q 100 -D &quot;+cImgFile, 0 &#41; \n&#46;&#46;&#46;\n[/code:tfdhazfc]','',0,'AIA=','tfdhazfc',1,0,'',397,0,0),(27577,6179,7,106,0,'85.34.123.173',1172839870,1,0,1,1,1,1,'','','prueba con: CHR(27) + \"C5\"\n\ndonde 5 es el numero de lineas','',0,'AIA=','rg8wz2m1',1,0,'',106,0,0),(27578,6180,3,666,0,'211.28.125.58',1172839874,1,0,1,1,1,0,'','(OT) How to display &amp; print TIFF 4 files?','Seems FreeImage can\'t display Huffman-compressed TIFF files (i.e. TIF files that have the maximum compression).  (I think they are known as \"TIFF 4\" files).\n\nCan anyone suggest something, even a 3rd party solution, that is able to display and print such files in my FWH/xHarbour apps?\n\nColin Wisbey','',0,'AIA=','3luu0knf',1,0,'',666,0,0),(27579,6167,6,397,0,'201.13.19.192',1172840040,1,0,1,0,1,1,'','','It look at this:\n\n[url=http&#58;//www&#46;pctoledo&#46;com&#46;br/forum/viewtopic&#46;php?t=5336&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=:svlisevp]Rochinha\'s Tips[/url:svlisevp] In Portuguese/Brasil.','',0,'EA==','svlisevp',1,0,'',397,0,0),(27580,6181,7,720,0,'80.36.244.134',1172841870,1,0,1,1,1,0,'','Como ocultar la \'X\' para cerrar los dialogos...','Hola a todos...\n\nQuisiera saber si se puede ocultar o deshabilitar de alguna forma la \'x\' para obligar al usuario a salir de los dialogos por medio de un boton que yo pongo...\n\n\nSaludos.\n\nElías Torres.','',0,'EA==','1mfvtd5q',1,0,'',720,0,0),(27581,6182,3,31,0,'195.182.84.105',1172842955,1,0,1,1,1,1,'','To Antonio - scripts ...','Hi Antonio ,\n\n  If I remember in earliest versions of FW you have FW Scripts :\n\n    * oScript := TScript():New(cText)\n    * oScript&#058;Compile()\n    * oScript&#058;Run()\n\n  Now ozs.com is selling this as separate product . I\'m interesting in this , but it will more comfortable if it will be as a part of FWH .  What can you say in this theme ? \n\n  With best regards ! Rimantas','',0,'EA==','29wp6e3y',1,0,'',31,0,0),(27582,6096,7,598,0,'201.243.108.39',1172845009,1,0,1,1,1,1,'','','Yo creo q tendrias q crear tu propia funcion msgyesno() ya q no hay un estilo de ventanas dentro del sistema operativo que centre el texto automaticamente o tambien ubicando dentro de los sources de fivewin la funcion y modificandola a tu gusto','',0,'EA==','3ock8zzi',1,0,'',598,0,0),(27583,6179,7,456,0,'217.127.39.57',1172846243,1,0,1,1,1,1,'','','Tal cual te comentan en el post anterior, pero ten en cuenta que n (nº de lineas) es el valor ascii del caracter que le pasas. P.e. 48 lineas seria \n[code:cghkqm7e]Chr&#40;27&#41;+&quot;C0&quot; [/code:cghkqm7e] o si  mas claro\n[code:cghkqm7e]Chr&#40;27&#41;+&quot;C&quot;+Chr&#40;48&#41; [/code:cghkqm7e]','',0,'AIA=','cghkqm7e',1,0,'',456,0,0),(27584,6163,6,131,0,'83.45.112.183',1172848440,1,0,1,1,1,0,'','','Jorge:\nTienes documentación sobre como usar WinAsp ? Realmente parece interesante, pero no se por donde empezar.\n\nSaludos,','',0,'AIA=','2jjj0xwd',1,0,'',131,0,0),(27585,6183,6,362,0,'200.168.52.156',1172848538,1,0,1,1,1,1,'','SndPlayRes, No Funciona en FiveWin 2.7?','Antonio, Porque no Funciona el COMANDO SndPlayRes() en FiveWin 2.7?\n\nComo hacer, mis waves estan directo en el archivo de recursos?\n\nGracias,\n\nRegards, saludos.','',0,'AIA=','1ptyo3fk',1,0,'',362,0,0),(27586,6184,6,413,0,'217.125.9.228',1172852213,1,0,1,1,1,0,'','Email desde programa, que tengo que utilizar?','Tenemos una red de unos 35 ordenadores y recibimos conexion de internet mediante un proxy que esta en nuestro ayuntamiento (no se si eso influye o no) separado de muestro edificio. Mi intencion es que los programas gestionen los correos independientemente de los usuarios, con eso quiero decir que son programas que utiliza un determinado numero de personas pero en cualquier momento se tiene que saber si se ha mandado un email y sobre todo si se ha recibido, y tiene que poderlo saber cualquiera que utilice el ordenador. Mi pregunta es si se puede hacer sin utilizar el clasico outlook o expres, que es lo que necesito y sobre todo si hay algo ya hecho en fivewin, he visto varios mensajes pero no son esactamente lo que pregunto. Alguna idea?\n\nGracias.','',0,'AIA=','3u1xhu8e',1,1172913730,'',413,1,0),(27587,6148,6,36,0,'164.77.81.210',1172852534,1,0,1,1,1,0,'','','[b:2tye8paf]No funciono, sale el mismo error\n[code:2tye8paf]               oFtp&#58;invoke&#40; &quot;GET&quot;, &quot;prueba&#46;txt&quot;, &quot;c&#58;\\prueba&#46;txt&quot; &#41;\n               oFtp&#58;Get&#40; &quot;GET&quot;, &quot;prueba&#46;txt&quot;, &quot;c&#58;\\prueba&#46;txt&quot; &#41;\n[/code:2tye8paf][/b:2tye8paf]\n\n[code:2tye8paf]Stack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;PRUEBA&#46;TXT&#40;0&#41;\n   Called from&#58;  =&gt; HB_EXECFROMARRAY&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;GET&#40;415&#41;\n   Called from&#58;  =&gt; HB_EXECFROMARRAY&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;INVOKE&#40;415&#41;\n   Called from&#58; WCTA&#46;PRG =&gt; FUNCKY&#40;1369&#41;\n   Called from&#58; WCTA&#46;PRG =&gt; MAIN&#40;20&#41;[/code:2tye8paf]\n\n\nPero con la clase de  Jose Gimenez funciona bien\n\n[b:2tye8paf]\noFtp:invoke( \"GET\", \"prueba.txt\", \"c:\\prueba.txt\" )\n[/b:2tye8paf]\n\n\nCon este linea [b:2tye8paf]oFtp:Get( \"prueba.txt\", \"c:\\prueba.txt\", 0 )[/b:2tye8paf]\n\nMuestra un mensaje de errror [b:2tye8paf]prueba.txt DISP_E_UNKNOWNNAME[/b:2tye8paf]\npero no se cae el programa, me parece que esta muy bien\n\ndebe tener algun problema la clase oleauto de xharbour\n\n[code:2tye8paf]\n*                                                                        *\n*  Autor&#58; José F&#46; Giménez &#40;JFG&#41; - jfgimenez@wanadoo&#46;es                   *\n*                                 tecnico&#46;sireinsa@ctv&#46;es                *\n*  Fecha&#58; 6-11-2000                                                      *\n*                                                                        *\n*  Revisado&#58; 13-2-2001, 28-2-2001, 13-3-2001                             *\n*                                                                        *\n*  Nota&#58; basado en la clase TComObj&#40;&#41; de FW 2&#46;1                          *\n*                                                                        *\n**************************************************************************\n#ifndef __HARBOUR__\n   #include &quot;FiveWin&#46;ch&quot;\n#else\n   #include &quot;HBClass&#46;ch&quot;\n#endif\n\nbla&#46;&#46;bla&#46;&#46;bla&#46;&#46;\n\n[/code:2tye8paf]\n\nGracias nuevamente maestro\n\nSaludos\nPatricio','',0,'QIA=','2tye8paf',1,0,'',36,0,0),(27588,6163,6,36,0,'164.77.81.210',1172852887,1,0,1,1,1,0,'','','Buen trabajo Jorge, es muy interasante \n\nHe revisado los ejemplos pero no entiendo mucho, tienes algun tutorial\ncomo poder ejecutar..\n\nestuve viendo los archivos html, pero hay muchos archivos asp\n\nsorry pero no entiendo mucho de ASP\n\nSaludos\nPatricio','',0,'QIA=','237eb08a',1,0,'',36,0,0),(27589,6184,6,397,0,'201.27.152.70',1172855682,1,0,1,0,1,1,'','','Amigo\n\nConsulte [url=http&#58;//www&#46;emailassistant&#46;com/:2fhjeue9]Gale Force[/url:2fhjeue9]\n\nSu EmailAssistant és hecho con Fivewin.','',0,'EA==','2fhjeue9',1,0,'',397,0,0),(27590,6179,7,945,0,'80.32.177.143',1172856009,1,0,1,1,1,0,'','No funciona','Muy buenas, he probado de todo y no funciona sigue imprimiendo 33 líneas de dicha impresora no que se hacer, si alguien sabe como mandar el código de escape o configurar la STAR DP8340S, decirme algo.\n\nGracias.\n\nUn Saludo.','',0,'EA==','12v2134x',1,0,'',945,0,0),(27591,6179,7,456,0,'217.127.39.57',1172856630,1,0,1,1,1,1,'','','Un cliente mio tiene Star Dp8340S y el código que antes te he puesto funciona para el cambio de lineas.\n\nTu quieres poner la impresora a 42 lineas, entonces seria\n\n[code:2kycr3qy]Chr&#40;27&#41;+&quot;C*&quot;[/code:2kycr3qy]','',0,'AIA=','2kycr3qy',1,0,'',456,0,0),(27592,6120,3,15,0,'203.70.52.83',1172857289,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:1k6sxbkl]Hi Richard\n\nHave you tested FWH Menus with these skins.  I had problem with the\nCodeJock skins when used with Menus.\n\nMenus are painted on the Titlebar of the MDI Window!.  I requested \nfor Codejock help.  They asked me to use CommandLine bars ocx.\n\nI don\'t the methods to call them the way we called the methods of \nthe skins ocx.\n\nHave you used [color=blue:1k6sxbkl]Codejock.CommandBars.v10.4.2.ocx[/color:1k6sxbkl] ?\n\n\nRegards\n\n- Ramesh Babu P[/quote:1k6sxbkl]\n\nHello Ramesh,\n\nPlease look it.\nI test Menu,ToolBar and ToolTip ActiveX below:\n\nScreen 1:\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar1sg6&#46;jpg:1k6sxbkl][img:1k6sxbkl]http&#58;//img224&#46;imageshack&#46;us/img224/5343/fwhactivexmenutoolbar1sg6&#46;th&#46;jpg[/img:1k6sxbkl][/url:1k6sxbkl]\n\nScreen 2:\n[url=http&#58;//img221&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar2ti6&#46;jpg:1k6sxbkl][img:1k6sxbkl]http&#58;//img221&#46;imageshack&#46;us/img221/4336/fwhactivexmenutoolbar2ti6&#46;th&#46;jpg[/img:1k6sxbkl][/url:1k6sxbkl]\n\nScreen 3:\n[url=http&#58;//img87&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar3wp7&#46;jpg:1k6sxbkl][img:1k6sxbkl]http&#58;//img87&#46;imageshack&#46;us/img87/7194/fwhactivexmenutoolbar3wp7&#46;th&#46;jpg[/img:1k6sxbkl][/url:1k6sxbkl]\n\nScreen 4:(full style)\n[url=http&#58;//img61&#46;imageshack&#46;us/my&#46;php?image=fwhactivexmenutoolbar4rh1&#46;jpg:1k6sxbkl][img:1k6sxbkl]http&#58;//img61&#46;imageshack&#46;us/img61/4142/fwhactivexmenutoolbar4rh1&#46;th&#46;jpg[/img:1k6sxbkl][/url:1k6sxbkl]\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'mg==','1k6sxbkl',1,0,'',15,0,0),(27593,6179,7,945,0,'80.32.177.143',1172857461,1,0,1,1,1,0,'','','Me prodrías decir el código para enviar el codigo de escape, mira yo creo un fichero y en la primera línea pongo:\n\nWriteByte( cConexion,Chr(27)+\"C*\")\n\nes decir, mi codigo es:\n\nlocal cConexion := CreateFile( \"COM8:\",GENERIC_WRITE, 0, 0,  OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n   if (cConexion==-1)\n      MsgStop(\'No hay conexion con la impresora\',vTitulo) \n   else\n     WriteByte( cConexion,Chr(27)+\"C*\")\n     for n = 1 to Len( cTexto )\n         WriteByte( cConexion, Asc( SubStr( cTexto, n, 1 ) ) )\n     next\n     CloseHandle( cConexion )\n\n¿Está bien?¿Debería funcionar?\nGracias\n\nUn Saludo.','',0,'mg==','abxfqirg',1,0,'',945,0,0),(27594,5876,6,15,0,'203.70.52.83',1172857464,1,0,1,1,1,0,'','','Hello All\n\nFWH support Skin+Menu+ToolBar.\nPlease look it.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6120\">http://fivetechsoft.com/forums/viewtopic.php?t=6120</a><!-- m -->\n\nRegards,\n\nRichard','',0,'mg==','y1e8dbi5',1,0,'',15,0,0),(27595,6183,6,362,0,'200.168.52.156',1172859195,1,0,1,1,1,1,'','','ERRO:\n\n\n_HB_FUN_SNDPLAYRES...','',0,'mg==','3tup59ch',1,0,'',362,0,0),(27596,6165,2,832,0,'201.116.83.242',1172860304,1,0,1,1,1,0,'','OYE ANTONIO','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nPERO AHORA COMO LO APLICO A LA PROGRAMACION...\nEN FIVEWIN....\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nNO TENDRAS UN FRAGMENTO DE CODIGO,PARA VER SU FUNCIONAMIENTO.....\n\nY NO NECESITO DE ALGUNA LIBRERIA PARA FIVEWIN\n\n\nSALUDOS.....','',0,'mg==','3bnr86ox',1,0,'',832,0,0),(27597,6185,3,529,0,'200.159.198.43',1172864054,1,0,1,1,1,0,'','easyreport problems','Hi, someone test easyreport with last fwh and cvs xharbour, i use for several years, but in last versions of fwh and xharbour several things ocour, ex: when changes number of copies, easyreport dont respect... \ntheres an updated source code of easyreport?? thanks','',0,'mg==','1mmrek8q',1,0,'',529,0,0),(27598,6179,7,456,0,'217.124.40.143',1172864543,1,0,1,1,1,1,'','','Creo que no es correcto, en principio entiendo que writebyte envia byte a byte al puerto de comunicaciones.\n\nPrueba de la siguiente manera.\n[code:1ctps719]\n//WriteByte&#40; cConexion,Chr&#40;27&#41;+&quot;C*&quot;&#41; \ncTexto&#58;=Chr&#40;27&#41;+&quot;C*&quot;+cTexto\nfor n = 1 to Len&#40; cTexto &#41; \n   WriteByte&#40; cConexion, Asc&#40; SubStr&#40; cTexto, n, 1 &#41; &#41; &#41; \nnext [/code:1ctps719]','',0,'AIA=','1ctps719',1,0,'',456,0,0),(27599,6144,6,413,0,'217.125.9.228',1172864730,1,0,1,1,1,0,'','','Si Antonio, como siempre tienes razon pero en mi caso no tiene sentido si cambian el programa de entorno sencillamente deja de funcionar, mas que por seguridad es para mi control. Tengo muchos programas funcionando pero como puedes ver me falta un conocimiento profundo de fivewin, bueno en eso estoy, soy de los que siempre he creido en ti desde las primeras versiones de fivewin aun debo conservar las primeras versiones en disquete, hace mucho mucho tiempo.\n\nGracias por tu ayuda.','',0,'AIA=','15tprpnq',1,0,'',413,0,0),(27600,6182,3,2,0,'87.218.146.138',1172865033,1,0,1,1,1,1,'','','Rimantas,\n\nNo, sorry, FWH does not provide those classes \n\nxHarbour.com also provides scripts support','',0,'AIA=','ta7iw3ik',1,0,'',2,0,0),(27601,6184,6,413,0,'217.125.9.228',1172867698,1,0,1,1,1,0,'','','Rochinha parece que esta discontinuado.\n\nun saludo','',0,'AIA=','1swonylp',1,0,'',413,0,0),(27602,6183,6,838,0,'80.59.225.15',1172875182,1,0,1,1,1,0,'','','SndPlayResource()\n\nSaludos\n\nJose Luis','',0,'AIA=','14o6v6he',1,0,'',838,0,0),(27603,6163,6,439,0,'200.125.41.152',1172879259,1,0,1,1,1,1,'','','Me uno al ruego por algo de información o documentación.\nSe acepta lo que venga...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','190sqkey',1,0,'',439,0,0),(27604,5876,6,913,0,'189.136.164.234',1172880372,1,0,1,1,1,1,'','Hello','Hello Richard.\n\nThan beautiful tag your program <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  I congratulate you and I envy \nTaking the opportunity of your kindness you would be able to help me\n\nI need to put a combobox in a toolbar but it does not fit well on me\nYou would have an example that you may share me <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nMy mail is aida p <!-- e --><a href=\"mailto:z@hotmail.com\">z@hotmail.com</a><!-- e -->\n\nGreetings\nYour lady friend\n\nAida <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1at65woy',1,0,'',913,0,0),(27605,6138,6,103,0,'200.165.130.185',1172881039,1,0,1,1,1,1,'','','Hola foro,\n\n     Ya esta disponible la versión 2.2 (BETA) de DBF2SQL y con la opción de cambiar el idioma (portugues, ingles y español). Ustedes pueden leer el Whatsnew.txt para ver las mejoras y/o cambios.\n\nLos espero con sus comentarios. El link es: <!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br/fw/dbf2sql-BETA.zip\">www.sqllib.com.br/fw/dbf2sql-BETA.zip</a><!-- w -->\n\nSaludos,','',0,'AIA=','24g5owtm',1,0,'',103,0,0),(27606,6186,3,103,0,'200.165.130.185',1172881376,1,0,1,1,1,1,'','New DBF2SQL','Hi Fivewinners,\n\n    To those developers who want to convert all DBFs to MySQL tables or PostgreSQL tables, I invite you to know the new DBF2SQL version 2.2 (BETA), fully made in xHarbour+FWH and the SQLLIB from Vailton Renato (<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->). It is multilanguage (portuguese/english/spanish) and very easy to use.\n    The link to download is: <!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br/fw/dbf2sql-BETA.zip\">www.sqllib.com.br/fw/dbf2sql-BETA.zip</a><!-- w --> \n    This product is totally free.\n\nI\'m waiting for your comments and/or suggestions.\n\nBest Regards,','',0,'AIA=','2z2nemp5',1,0,'',103,0,0),(27607,6186,3,15,0,'203.70.52.83',1172885299,1,0,1,1,1,0,'','','Hello Kleyber,\n\nYes, I need it and try it. Downloading now.....\n\nRegards,\n\nRichard','',0,'AIA=','2g3c185w',1,0,'',15,0,0),(27608,6120,3,190,0,'124.7.27.23',1172889733,1,0,1,1,1,0,'','','Hello Richard\n\nExcellent! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .  You must have taken lot of pains to achieve it without CJ support. \n\nCan you please guide me how could you do it.\n\nWhat OCX you have used and wheat are the methods you have\ncalled.\n\nPlease post a working sample to my personal mail :\n\n<!-- e --><a href=\"mailto:aksharasoft@hotmail.com\">aksharasoft@hotmail.com</a><!-- e -->\n\nRegards,\n\n- Ramesh Babu P','',0,'AIA=','3vwve3tg',1,0,'',190,0,0),(27609,6120,3,15,0,'203.70.52.83',1172892058,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:3budn876]Hello Richard\n\nExcellent! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .  You must have taken lot of pains to achieve it without CJ support. \n\nCan you please guide me how could you do it.\n\nWhat OCX you have used and wheat are the methods you have\ncalled.\n\nPlease post a working sample to my personal mail :\n\n<!-- e --><a href=\"mailto:aksharasoft@hotmail.com\">aksharasoft@hotmail.com</a><!-- e -->\n\nRegards,\n\n- Ramesh Babu P[/quote:3budn876]\n\nHello RAMESHBABU,\n\nI use Codejock CommandBars OCX to appear these.\nThis is onley first step, I will add bitmap/icon and menuitem into them.\nPlease wait .....\n\nRegards,\n\nRichard','',0,'gA==','3budn876',1,0,'',15,0,0),(27610,6120,3,190,0,'124.7.27.48',1172910721,1,0,1,1,1,0,'','','Hi Mr.Richard\n\nNice to look at your work.  Go ahead with your testing.\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','bm5id1ek',1,0,'',190,0,0),(27611,6138,6,131,0,'83.42.52.97',1172915290,1,0,1,1,1,0,'','','Hola Kleyber:\nYo quería preguntarte si vas a hacer una versión en español o inglés de xDevStudio. Es uno de los mejores editores que he probado, pero en portugués no entiendo mucho.\n\nSaludos,','',0,'gA==','2sj2rmu4',1,0,'',131,0,0),(27612,6183,6,362,0,'200.168.52.156',1172924990,1,0,1,1,1,1,'','','[quote=&quot;JoseLuis&quot;:2xqygirn]SndPlayResource()\n\nSaludos\n\nJose Luis[/quote:2xqygirn]\n\n\nGracias José. Voy Probar y reporto. \n\nSaludos.','',0,'gA==','2xqygirn',1,0,'',362,0,0),(27613,6161,6,878,0,'190.31.16.68',1172927314,1,0,1,1,1,0,'','','Hola Cacho,\n\nDesaparesiste mem!!!!\n\nBueno, aca va lo q buscas :\n\n1. Definis los campos y uso lFlag (al inicio del prg en .f., en el ON INIT lFlag:= .T. :\n  \n   bFields  := {|nAt| nAt:= oBrw:nAt,;\n                        if ( lFlag,;\n                          Array(4),;\n                          { STR( oRs21:Get(\'codcli\'),6,0 ),;\n                            oRs21:Get(\'nombre\'),;\n                            oRs21:Get(\'domici\'),;\n                                       \" \" } ) }\n         aHeaders := { \'Cod.\', \'Nombre\', \'Domicilio\', \" \" }\n         aTamanio := { 50,200,180,,15 }\n         aJusto   := { .T.,.F.,.F.,.F. }\n\n2. y despues the magic :\n\n TWBrowse():lHScroll:= .F.\n      @ 1.9, 0 LISTBOX oBrw;\n                  FIELDS ;\n                  SIZE 587, 250;\n                  OF oWndChild;\n                  FONT oFont;\n                  CURSOR oHand;\n                  COLOR CLR_BLACK, RGB( 255, 255, 235) ;\n                  UPDATE\n\n         oBrw:bLine := bFields\n         oBrw:aHeaders := aHeaders\n         oBrw:aColSizes:= aTamanio\n\n         oBrw:bLogicLen := { || oRs21:oRs:RecordCount }\n         oBrw:bGoTop    := { || oRs21:oRs:MoveFirst() }\n         oBrw:bGoBottom := { || oRs21:oRs:MoveLast() }\n         oBrw:bSkip     := { | nSkip | ADOSkipper( oRs21:oRs, nSkip ) }\n         oBrw:cAlias    := \"ARRAY\"\n\nLISTO!!!\n\nEspero te sirva esta para ADO() pero si le ajustas para eagle1 te sirve igual.\n\nun abrazo.','',0,'gA==','7jkqdsur',1,0,'',878,0,0),(27614,6161,6,52,0,'190.7.30.167',1172927426,1,0,1,1,1,1,'','','Gracias.','',0,'gA==','3j1ht7if',1,0,'',52,0,0),(27615,6172,3,148,0,'196.205.220.29',1172928954,1,0,1,1,1,0,'','','Enrico where to put your static function in the main program ?','',0,'gA==','k5d9jjn6',1,0,'',148,0,0),(27616,6036,7,18,0,'148.233.151.30',1172931264,1,0,1,1,1,1,'','','rodolfo por favor comunicate conmigo enviando un mensaje a mi celular.\nsaludos.\n\nhoy es 3 de marzo','',0,'gA==','7s3q8fjo',1,0,'',18,0,0),(27617,6183,6,362,0,'200.168.52.156',1172933226,1,0,1,1,1,1,'','','Perfecto José. \n\nMuchas Gracias.\n\nSaludos.','',0,'gA==','1rnw4k8w',1,0,'',362,0,0),(27618,6064,2,124,0,'190.31.17.125',1172934317,1,0,1,1,1,0,'','','Amigos:\n\nEstoy con algunos temas de envio de correo electrónico y viendo tu respuesta me gustaría analizar / utilizar la clase que nombrás de Luis Krause, cómo se accede a la misma?\n\nY una pregunta en general, hay algún sitio con biblioteca de clases? es decir en el foro veo un ida y vuelta de clases siempre y es como que estoy afuera de ese circuito, no sé donde se consiguen las mismas, alguien me puede explicar cómo funciona esto?\n\nUn abrazo.\nRicardo.-','',0,'gA==','28khvbus',1,0,'',124,0,0),(27619,6187,6,774,0,'200.72.179.192',1172936238,1,0,1,1,1,1,'','a los usuarios de harbour y xharbour','cuales son las diferencias significativas entre ambos...\n\ny cuales son los ultimos build operativos testeados...\n\n\nGRACIAS','',0,'gA==','2xr0mrkt',1,0,'',774,0,0),(27620,6187,6,774,0,'200.72.179.192',1172936325,1,0,1,1,1,1,'','','se me olvidada.... recomiendan usar clases de terceros y las incluidas en FWH27 son suficientes \n\nsi usan algunas de terceros cuales son y porque...\n\n\nGRACIAS','',0,'gA==','28tz75xc',1,0,'',774,0,0),(27621,6182,3,31,0,'89.190.104.93',1172936927,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1fzj0z4y]\nNo, sorry, FWH does not provide those classes \nxHarbour.com also provides scripts support[/quote:1fzj0z4y]\n\n  Sorry ... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> . Maybe you know - can xHB.com scripts work with FWH libs , controls ?\n Maybe something use this possibilities and can share with knowledges ? \n\n  Regards !','',0,'gA==','1fzj0z4y',1,0,'',31,0,0),(27622,6187,6,940,0,'189.157.97.207',1172942533,1,0,1,1,1,0,'','Hola A&amp;C','Yo actualmente estoy usando harbour\nxharbour aprovecha mejor los 32 bits.  esto se ha dicho aqui en este foro.\n\nlibrerias de terceros solo uso HBZLIB porque fivewin no tiene una funcion\npara crear archivos zip  y yo lo necesito para realizar mis respaldos,\n\nLibreria de terceros, entran en funcion cuando fivewin no tiene lo que necesitas,\n\nes depende de lo que necesites..\n\nEn lo personal primero busco en fivewin y despues de un tiempo si\nno consigo lo que necesito es cuando ya se piensa en libs terceros.\n\npor ejemplo yo siempre he trabajado con DBFcdx y no he necesitado mas,\ncon FWH tienes todo,  \n\nXBROWSE Y TDATABSE ,  no necesito mas.\n\nsi a tu programa le quieres dar un look mas pro ahi esta\nc5menu, y los menus style XP ETC.\n\nTodo depende de como quieres vestir el mono. jejeje.\n\nSaludos..\n\nCesar Cortes Cruz.','',0,'gA==','3mg48gzu',1,0,'',940,0,0),(27623,6187,6,138,0,'189.141.72.59',1172945341,1,0,1,1,1,1,'','','Creo que aqui esta todo lo que necesitas saber:\n\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2005_07_01_archive.html\">http://google.blogspot.com/2005_07_01_archive.html</a><!-- m -->','',0,'gA==','22zbq0v5',1,0,'',138,0,0),(27624,6165,2,2,0,'87.218.146.81',1172947034,1,0,1,1,1,1,'','','nXor( 12, 9 ) = 5\n\n12 en binario = [color=red:fncgaf6z]1[/color:fncgaf6z][color=green:fncgaf6z]1[/color:fncgaf6z][color=blue:fncgaf6z]0[/color:fncgaf6z]0\n9 en binario = [color=red:fncgaf6z]1[/color:fncgaf6z][color=green:fncgaf6z]0[/color:fncgaf6z][color=blue:fncgaf6z]0[/color:fncgaf6z]1\n5 en binario = [color=red:fncgaf6z]0[/color:fncgaf6z][color=green:fncgaf6z]1[/color:fncgaf6z][color=blue:fncgaf6z]0[/color:fncgaf6z]1\n\n[color=red:fncgaf6z]1 y 1 es 0[/color:fncgaf6z] en Xor\n[color=green:fncgaf6z]1 y 0 es 1[/color:fncgaf6z]\n[color=blue:fncgaf6z]0 y 0 es 0[/color:fncgaf6z]\n0 y 1 es 1\n\nnXor() es una función incluida en FiveWin, no necesitas de ninguna librería adicional','',0,'Ag==','fncgaf6z',1,0,'',2,0,0),(27625,6172,3,6,0,'87.19.208.7',1172947119,1,0,1,1,1,1,'','','Just remove STATIC and put it anywhere.\n\nEMG','',0,'Ag==','1z38q4zg',1,0,'',6,0,0),(27626,6176,6,2,0,'87.218.146.81',1172947604,1,0,1,1,1,1,'','','Se usa la misma función ya que vas a pedir el nombre de un fichero. Tan sólo cambiarle el título usando el parámetro 2do','',0,'Ag==','7eydyjp1',1,0,'',2,0,0),(27627,6182,3,2,0,'87.218.146.81',1172947730,1,0,1,1,1,1,'','','Rimantas,\n\nWe don\'t know it for sure. You may better ask xHB.com tech support, thanks','',0,'Ag==','2i70nuxl',1,0,'',2,0,0),(27628,6181,7,2,0,'87.218.146.81',1172947868,1,0,1,1,1,1,'','','Elías,\n\nPuedes una de las dos cosas ó ambas: ocultar la X usando un estilo de diálogo que no la muestre, ó usar un VALID que no le dejará salir hasta que no se cumpla la condición que tu precises:\n\nACTIVATE DIALOG oDlg VALID ...\n\nVALID ha de devolver un valor lógico','',0,'Ag==','2krc4r6q',1,0,'',2,0,0),(27630,6189,2,890,0,'190.9.66.196',1172953020,1,0,1,1,1,0,'','En busca del registro deseado','Hola a todos en el Foro\nAntonio\nRecurro a ti o a cualquier miembro del foro nuevamente para solicitar una ayuda, he intentado organizar el código para hacer búsqueda del registro requerido, tu sabes bien que estoy nuevo en esto y lo he intentado hacer al estilo clipper con SEEK pero no he tenido buenos resultado se abre el dialogo sin el registro deseado.\n\nCordialmente \n\nJairo Barbosa\n\nAntonio disculpa mi descuido ya que no me di cuenta que estaba en el foro otro foro','',0,'Ag==','3ka59wk8',1,0,'',890,0,0),(27631,6182,3,876,0,'81.164.48.173',1172954468,1,0,1,1,1,0,'','','[quote=&quot;Rimantas&quot;:37tqc385][quote=&quot;Antonio Linares&quot;:37tqc385]\nNo, sorry, FWH does not provide those classes \nxHarbour.com also provides scripts support[/quote:37tqc385]\n\n  Sorry ... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> . Maybe you know - can xHB.com scripts work with FWH libs , controls ?\n Maybe something use this possibilities and can share with knowledges ? \n\n  Regards ![/quote:37tqc385]\n\nXBScript can be used in a FWH application yes. XBScript is GUI independent.\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','37tqc385',1,0,'',876,0,0),(27632,6190,6,196,0,'190.48.195.90',1172955385,1,0,1,1,1,0,'','Error en report','Utilizando la nueva version de FWH me encuentro con este error cada vez que emito un reporte.\n\nError (6) deleting enhanced metafile\nError description\n\nUno da enter en aceptar y muestra el preview sin problemas, pero queda un poco desprolijo y no se como eliminarlo.\n\nGracias\nJorge Jaurena','',0,'gA==','10sva69c',1,0,'',196,0,0),(27633,6191,6,196,0,'190.48.195.90',1172955750,1,0,1,1,1,0,'','Postgresql ????????','Alguien a usado este motor SQL?\nMe dicen que debo usarlo y es muy bueno.\nSera mejor que MySQL?\nAndara bien con Harbour y FWH?\nSe podra usar sin pasar por el ODBC?\n\nMuchos interrogantes.\n\nGracias por sus aportes\nJorge Jaurena','',0,'gA==','31pq9p29',1,0,'',196,0,0),(27634,6191,6,878,0,'190.31.48.147',1172956999,1,0,1,1,1,0,'','','Estimado Jorge,\n\ncomo andas tanto tiempo?\n\nmira creo q via ADO no tendrias problemas solo habria q ver el string de conexion\n\nSalu2, ARiel','',0,'gA==','1u57kupj',1,0,'',878,0,0),(27635,6189,2,2,0,'87.218.146.81',1172959257,1,0,1,1,1,1,'','','Jairo,\n\nMuéstranos el código de cómo lo estás haciendo y lo revisamos','',0,'gA==','26jzdmae',1,0,'',2,0,0),(27636,6182,3,2,0,'87.218.146.81',1172959294,1,0,1,1,1,1,'','','Patrick,\n\nThanks for the info,','',0,'gA==','3bm6neex',1,0,'',2,0,0),(27637,6191,6,138,0,'189.141.72.59',1172962874,1,0,1,1,1,1,'','','Bueno bueno, eso de \"mejor\" es muy relativo.\n\nTodos sabemos que el \"mejor\" servidor de bases de datos es Oracle, pero tiene un problemita : $$$$$\n\nDe ahi podiamos seguirnos por Informix, Sybase, Interbase..... que tienen menos problema :$$\n\nY luego los relativamente gratuitos: MySQL, PostGreSQL, FireBird etc.\n\nEn esto de las bases de datos yo tengo muy asumido que siempre recibes por lo que pagas, por algo Oracle cuesta lo que cuesta.\n\nPero eso no es la cuestion.\n\nSi yo tuviera que escoger un servidor de base de datos de los OpenSource, sin duda mi eleccion seria MySQL por el ENORME soporte de prodcutos y material que se encuentra en Internet, dudo mucho que cualquier otro SQL Open source tenga tanta informacion.\n\nSe puede acceder a el por ADO sin ningun problema, pero ojo: no hay ADO provider para MySQL directo, hay que pasar por ODBC','',0,'gA==','23gnc47o',1,0,'',138,0,0),(27638,6192,5,512,0,'219.90.192.51',1172990225,1,0,1,1,1,0,'','TBTNBMP with Recource - Button Prompt','Hello everyone,\n\nI have just upgraded from \"FiveWin++ 1.82 - February 2004\" to FW++ 7.01 and upgraded Alaska XBase++ Intl V1.81 to  Intl V1.90.331.  I use BorlandC Resource Compiler brcc32 V5.02 to manage my resources.\n\nI have a problem with the TBTNBMP class not showing my button \"Prompt\" defined in the resource  *.rc file. Buttons like \"OK\" and \"Cancel\" are my most used prompts. I have looked through the news group but can\'t seem to find anything that directly answers my question.\n\nA small simplified example follows:\n\nTEST1.PRG Source Follows:\n#include \"FiveWin.ch\"\nfunction MAIN ()\nlocal cTitle,oWindow,oBar, oBtn[ 3 ]\ncTitle :=  \"Testing Access to Class variables and methods \"\nDEFINE WINDOW oWindow FROM 2,0 TO 35, 90 TITLE cTitle\nSET MESSAGE OF oWindow DATE KEYBOARD\n   DEFINE BUTTONBAR oBar OF oWindow SIZE 35,25 _3D  \n   DEFINE BUTTON oBtn[ 1 ]  OF oBar ACTION MsgInfo(\"Button one(1) pressed\") TOOLTIP \"Press for Testing of Button One\"\n   DEFINE BUTTON oBtn[ 2 ]  OF oBar ACTION MsgInfo(\"Button two(2) pressed\"), Brwse_Cust();\n		 		 TOOLTIP \"Press for Testing of Button Two and executing Browse Class\"\nACTIVATE WINDOW oWindow \nreturn nil\n\n//**********************************************************\nprocedure Brwse_Cust()\nlocal  oWin, oCustBrwse\n  oCustBrwse := ACBrwCust():new()\n  oCustBrwse:BrwseCust()\nreturn \n\n//***********************************************************\nCLASS ACBrwCust\nEXPORTED:			// Variables and Methods that follow are \"public\"\n  DATA	DBFAlias\n  DATA	oTmpDBF, CustAcct\n  DATA	Init_OK\n\n  METHOD Init() CONSTRUCTOR\n  METHOD BrwseCust() 		//Browse Data Base\n\nENDCLASS\n \n***********************************************************\n***********************************************************\n* Method..: New\n***********************************************************\nMETHOD Init() CLASS ACBrwCust\n      // Now initialise all Class variables\n      ::DBFAlias  := \"Some Alias\"\nreturn nil\n\n\nMETHOD BrwseCust()  CLASS ACBrwCust \nlocal oDlg2\n    DEFINE DIALOG oDlg2 RESOURCE \"Brwse1Cst\"\n    REDEFINE BTNBMP ID 1000 OF oDlg2; \n      ACTION (MsgInfo(\"If Displayed ... Button press works OK\" ))\n\n//    REDEFINE BTNBMP ID 1001 PROMPT \"Can\" OF oDlg2;  &lt;-- If used Shows Prompt \"Can\" in button\n    REDEFINE BTNBMP ID 1001 OF oDlg2 ACTION (oDlg2:End())\n\n    ACTIVATE DIALOG oDlg2\nreturn Nil\n\n\n************************************************************\n* DbeSys() is always executed at program startup for Alaska XBase++\n************************************************************\nPROCEDURE dbeSys()\n  SET COLLATION TO SYSTEM\n  SET DATE TO SYSTEM\nRETURN\n\n\n\nTEST1.RC resource Source Follows:\n\nBrwse1Cst DIALOG -16, 1, 526, 315\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Customer Browse Showing Most Fields\"\nFONT 8, \"MS Sans Serif\"\n{\n PUSHBUTTON \"&amp;Toggle \", 1000, 148, 300, 66, 14\n PUSHBUTTON \"&amp;Cancel \", 1001, 274, 300, 50, 14\n}\n\n\n----------------------------------------------------------------------------\nI build the above using (a slightly modified for directory locations) FW++ Build32.bat file as build32 test1\nWhen I run the programme the buttons dont\' have any Text asssociated with them.\n\n\nDo I have to use the &gt;--&gt; PROMPT \"Some text here\" &lt;--&lt; at the source code level or am I missing something where I can define the prompts in *.rc file\n\nI had been using the BUTTON class before in my previous versions and it seemd to the work then.  If I try and use the button class with this version the command:\n    REDEFINE BUTTON ID 1000 OF oDlg2 .....\nleads to an error like &gt;the \"redfine\" method is not allowed in this context&lt;\n\nAny suggestions would be appreciated.\n\nThanks in advance for any help given.   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nAngelo','',0,'','3a5xa486',1,0,'',512,0,0),(27639,6182,3,31,0,'89.190.104.93',1172995907,1,0,1,1,1,1,'','','[quote=&quot;patrickmast2&quot;:3zxyr1al]\nXBScript can be used in a FWH application yes. XBScript is GUI independent.\n[/quote:3zxyr1al]\n\n  Hello Patrick ,\n\n  From your answer I didn\'t understand - will FWH graphics controls work with XBScript ? I need that from script I can run an MDI child window with some FWH controls inside ( as an instance ) . Can this be done ?\n\n  With best regards !','',0,'gA==','3zxyr1al',1,0,'',31,0,0),(27640,6172,3,707,0,'125.163.114.2',1173000118,1,0,1,1,1,0,'','','Hello Mr. Enrico !\nI tested this but not work\n\n[code:1ksy2wr2]\nGETWINDOWTEXT&#40; hWnd &#41; == &quot;Program Manager&quot;\n[/code:1ksy2wr2]\n\nIs [b:1ksy2wr2]\"Program Manager\"[/b:1ksy2wr2] the title of Windows from this :\nDEFINE DIALOG oDlg FROM 1,1 TO 200,200 TITLE [b:1ksy2wr2]\"Program Manager\"[/b:1ksy2wr2]\n\nI have 2 windows set to title \"Dialog1\" and \"Dialog2\"\nbut not work to close with this source code :\n\n[code:1ksy2wr2]\n\n WHILE hWnd != 0\n        IF GETWINDOW&#40; hWnd, GW_OWNER &#41; = 0 &#46;AND&#46;;\n           ISWINDOWVISIBLE&#40; hWnd &#41; &#46;AND&#46;;\n           hWnd != hMWnd &#46;AND&#46;;\n           !EMPTY&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41; &#46;AND&#46;;\n           !&#40; GETWINDOWTEXT&#40; hWnd &#41; == &quot;Program Manager&quot; &#41;\n\n            AADD&#40; ahWnd, hWnd &#41;\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    FOR i = 1 TO LEN&#40; ahWnd &#41;\n        POSTMESSAGE&#40; ahWnd&#91; i &#93;, WM_CLOSE, 0, 0 &#41;\n    NEXT \n\n[/code:1ksy2wr2]\n\nRegards \nAreang','',0,'QIA=','1ksy2wr2',1,0,'',707,0,0),(27641,6192,5,2,0,'87.218.146.81',1173000998,1,0,1,1,1,1,'','','Angelo,\n\nWe have emailed you a modified Five32rt.dll that should fix it,\n\nWe appreciate your feedback,','',0,'QIA=','3lulh4zp',1,0,'',2,0,0),(27642,6182,3,876,0,'81.164.48.173',1173001636,1,0,1,1,1,0,'','','[quote=&quot;Rimantas&quot;:327zxxdu][quote=&quot;patrickmast2&quot;:327zxxdu]\nXBScript can be used in a FWH application yes. XBScript is GUI independent.\n[/quote:327zxxdu]\n\n  Hello Patrick ,\n\n  From your answer I didn\'t understand - will FWH graphics controls work with XBScript ? I need that from script I can run an MDI child window with some FWH controls inside ( as an instance ) . Can this be done ?[/quote:327zxxdu]\nSure! Any xHarbour+FWh code can be used in a XBScript. If you have questions regarding XBScript, feel free to use one of xHarbour\'s NG to post questions.','',0,'gA==','327zxxdu',1,0,'',876,0,0),(27643,6182,3,972,0,'81.164.48.173',1173001764,1,0,1,1,1,0,'','','[quote=&quot;patrickmast2&quot;:3k9pe11a][quote=&quot;Rimantas&quot;:3k9pe11a][quote=&quot;patrickmast2&quot;:3k9pe11a]\nXBScript can be used in a FWH application yes. XBScript is GUI independent.\n[/quote:3k9pe11a]\n\n  Hello Patrick ,\n\n  From your answer I didn\'t understand - will FWH graphics controls work with XBScript ? I need that from script I can run an MDI child window with some FWH controls inside ( as an instance ) . Can this be done ?[/quote:3k9pe11a]\nSure! Any xHarbour+FWh code can be used in a XBScript. If you have questions regarding XBScript, feel free to use one of xHarbour\'s NG to post questions.[/quote:3k9pe11a]\nWe have a dedicated XBScript NG on <!-- m --><a class=\"postlink\" href=\"news://news.xHarbour.com/XBScript\">news://news.xHarbour.com/XBScript</a><!-- m -->.\n--\nSincerely,\n\nPatrick Mast,\n<!-- w --><a class=\"postlink\" href=\"http://www.xHarbour.com\">www.xHarbour.com</a><!-- w -->','',0,'gA==','3k9pe11a',1,0,'',972,0,0),(27644,6190,6,838,0,'80.59.225.15',1173002981,1,0,1,1,1,0,'','','Esto también me ocurre a mi cuando no cierro correctamente un endpage, cuando hay algún if..... endpage y al salir se encuentra con otro endpage.\n\nSaludos\n\nJose Luis','',0,'gA==','3of327jp',1,0,'',838,0,0),(27645,6193,4,13,0,'213.76.252.200',1173003662,1,0,1,1,1,0,'','Dialog with menu','Antonio,\n\nI\'m trying to create fullscreen dialog with menu. When menu is set to dialog window, push button in dialog doesn\'t work. Buttons in dialog without menu works ok. What is wrong in my code ?\n\nThanks\nPawel\n\n[code:225bg88n]\n// prg file\n#Include \'FwCe&#46;Ch\'\n\nFunction TestDlgm1 &#40;&#41;\n\n   Local oDlg &#58;= Nil\n   Local oMnu &#58;= Nil\n\n   Define Menu oMnu Resource 3001\n   ReDefine MenuItem Id 3011 Of oMnu Action oDlg &#58; End &#40;&#41;\n\n   Define Dialog oDlg Resource \'NALLIST\'\n   ReDefine Button Id 1009 Of oDlg Action MsgInfo &#40;\'1009\'&#41;\n   ReDefine Button Id 1010 Of oDlg Action MsgInfo &#40;\'1010\'&#41;\n   ReDefine Button Id 1011 Of oDlg Action MsgInfo &#40;\'1011\'&#41;\n   ReDefine Button Id 1012 Of oDlg Action MsgInfo &#40;\'1012\'&#41;\n   Activate Dialog oDlg On Init &#40;DlgFullScr &#40;oDlg &#58; hWnd&#41;, oDlg &#58; SetMenu &#40;oMnu&#41;&#41;\n   // Activate Dialog oDlg On Init DlgFullScr &#40;oDlg &#58; hWnd&#41;\n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC &#40;DLGFULLSCR&#41;\n&#123;\n   SHINITDLGINFO shidi;\n   HWND hDlg = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = hDlg;\n   shidi&#46;dwFlags = SHIDIF_EMPTYMENU|SHIDIF_SIZEDLGFULLSCREEN;\n   SHInitDialog &#40;&amp;shidi&#41;;\n&#125;\n\n#pragma ENDDUMP\n\n// rc&#46;file\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n\nLANGUAGE LANG_POLISH,SUBLANG_DEFAULT\n\nNALLIST DIALOG DISCARDABLE 0, 0, 136, 154\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;Naleznosci&quot;\nFONT 10, &quot;System&quot;\nBEGIN\n  CONTROL &quot;Klient&#58;&quot;, 1001, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 2, 22, 11\n  CONTROL &quot;Klient&#58;&quot;, 1002, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 116, 22, 11\n  CONTROL &quot;Data&#58;&quot;, 1003, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 128, 22, 11\n  CONTROL &quot;Zaplac&#58;&quot;, 1004, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 64, 128, 30, 11\n  CONTROL &quot;Term&#58;&quot;, 1005, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 140, 22, 11\n  CONTROL &quot;Do zapl&#58;&quot;, 1006, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 64, 140, 30, 11\n  CONTROL &quot;&quot;, 1007, &quot;ComboBox&quot;, WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 22, 2, 112, 100\n  // CONTROL &quot;&quot;, 1008, &quot;TWBrowse&quot;, WS_TABSTOP|0x00b00000, 0, 15, 136, 88\n  CONTROL &quot;Edycja&quot;, 1009, &quot;Button&quot;, WS_TABSTOP, 0, 104, 32, 11\n  CONTROL &quot;KP&quot;, 1010, &quot;Button&quot;, WS_TABSTOP, 34, 104, 34, 11\n  CONTROL &quot;KW&quot;, 1011, &quot;Button&quot;, WS_TABSTOP, 70, 104, 32, 11\n  CONTROL &quot;Saldo&quot;, 1012, &quot;Button&quot;, WS_TABSTOP, 104, 104, 32, 11\n  CONTROL &quot;&quot;, 1013, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 22, 116, 112, 11\n  CONTROL &quot;&quot;, 1014, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 22, 128, 42, 11\n  CONTROL &quot;&quot;, 1015, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 94, 128, 40, 11\n  CONTROL &quot;&quot;, 1016, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 22, 140, 42, 11\n  CONTROL &quot;&quot;, 1017, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 94, 140, 40, 11\nEND\n\n3001 RCDATA\nBEGIN\n  3001, 1\n  &#40;-2&#41;, 30001, 4, 24, 30001, 0, 0\nEND\n\n3001 MENU\nBEGIN\n  POPUP &quot;Plik&quot;\n  BEGIN\n    MENUITEM &quot;Zamknij&quot;, 3011\n  END\nEND\n\nSTRINGTABLE\nBEGIN\n  30001, &quot;Plik&quot;\nEND\n[/code:225bg88n]','',0,'AIA=','225bg88n',1,0,'',13,0,0),(27646,6194,3,904,0,'198.54.202.210',1173007958,1,0,1,1,1,1,'','Embed Icon in EXE','How do I imbed an Icon into my EXE?','',0,'AIA=','mubibxj0',1,0,'',904,0,0),(27647,6194,3,6,0,'87.19.208.231',1173008645,1,0,1,1,1,1,'','Re: Embed Icon in EXE','Just add it to your .RC or .RES resource file.\n\nEMG','',0,'AIA=','2ii4sfe2',1,0,'',6,0,0),(27648,6195,3,904,0,'198.54.202.210',1173009653,1,0,1,1,1,1,'','Fonts Explanation','DEFINE FONT oFont NAME \"Aerial\" SIZE 0, - 8 OF oPrn\n\nI understand the above line to be Font size 8.\n\noFont:nSize()  tells me 50\noFont:nWidth()  tells me 29.3333\noFont:nHeight()  tells me 66.67\n\nbut if I :\n\nDEFINE FONT oFont NAME \"Aerial\" SIZE 29.3333, 66.67 OF oPrn\n\noFont:nSize()  tells me -416.44\noFont:nWidth()  tells me 29.3333\noFont:nHeight()  tells me 555.5833\n\nWhy is that?\n\nI want to store the font (name, size, bold etc) in a DBF file. What am I doing wrong?','',0,'AIA=','vf8pijm3',1,0,'',904,0,0),(27649,6194,3,2,0,'87.218.146.81',1173013338,1,0,1,1,1,1,'','','myicon ICON myicon.ico','',0,'AIA=','20sj8l8n',1,0,'',2,0,0),(27650,6065,3,154,0,'151.81.6.149',1173016532,1,0,1,1,1,1,'','Re: Combobox Problem','[quote=&quot;cdmmaui&quot;:15fd64lt]When the user presses a character to move to the item within a COMBOBOX, it does not work. I updated to version 7.01.[/quote:15fd64lt]\nYes, confirm!\n\nfor solve, replace the method KeyChar with this:\n[code:15fd64lt]//----------------------------------------------------------------------------//\n\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TComboBox\n\n   local nNewAT &#58;= 0, nOldAT &#58;= &#58;&#58;nAT, uItem\n\n   do case\n      case nKey = 32   // VK_DELETE &#40;DO NOT WORK!&#41;\n           &#58;&#58;cSearchKey &#58;= &quot;&quot;\n           nNewAt &#58;= 1\n           uItem &#58;= &#58;&#58;aItems&#91;nNewAt&#93;\n           \n      case nKey = VK_BACK\n           &#58;&#58;cSearchKey &#58;= Left&#40; &#58;&#58;cSearchKey, Len&#40; &#58;&#58;cSearchKey &#41; - 1 &#41;\n           \n      case nKey = 190\n           nKey &#58;= 0\n           &#58;&#58;cSearchKey += &quot;&#46;&quot;\n           \n      otherwise\n           &#58;&#58;cSearchKey += Upper&#40; Chr&#40; nKey &#41; &#41;\n           \n   endcase\n   \n   if Empty&#40; uItem &#41;\n      if nNewAt == 0\n         nNewAt &#58;= AScan&#40; &#58;&#58;aItems, &#123;|x| Upper&#40;x&#41; = &#58;&#58;cSearchKey &#125; &#41;\n         IF nNewAt &gt; 0 &#46;AND&#46; Len&#40; &#58;&#58;aItems &#41; &lt;= nNewAt\n            uItem &#58;= &#58;&#58;aItems&#91; nNewAt &#93;\n         ENDIF\n         uItem &#58;= &#58;&#58;aItems&#91; IIF&#40; nNewAt &gt; 0, nNewAt, Max&#40; &#58;&#58;nAT, 1 &#41; &#41; &#93;\n      else\n         uItem &#58;= &#58;&#58;aItems&#91; Max&#40; nNewAt, 1&#41; &#93;\n      endif\n   endif\n   &#58;&#58;Set&#40; uItem &#41;\n\n   if &#58;&#58;bChange != nil &#46;and&#46; &#40; nNewAT != nOldAt &#46;and&#46; nNewAt != 0 &#41;\n      Eval&#40; &#58;&#58;bChange, Self, &#58;&#58;varGet&#40;&#41; &#41;\n   endif\n\n   if nKey == VK_RETURN\n      return &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n   endif\n\nreturn 0   // Must be 0 - We don\'t want API default behavior&#46;[/code:15fd64lt]','',0,'gIA=','15fd64lt',1,0,'',154,0,0),(27651,6158,20,29,0,'88.149.164.147',1173017974,1,0,1,1,1,0,'','','Funziona, grazie.\nCome al solito sei una vera fucina di informazioni.\n\nSaluti\n\nMarco','',0,'gIA=','1f6h780z',1,0,'',29,0,0),(27652,6196,6,141,0,'200.88.94.190',1173025373,1,0,1,1,1,1,'','Para Antonio: Version de xHarbour para FWH 2.8','Esta va para Antonio,\n\nActualmente uso la version 2.7, y aunque descargue la 2.8 a su tiempo, no la he activado.  La pregunta es:\n\n¿Cual versión de xHarbour soporta FWH 2.8?\n\nLa versión que descargue fue la \"FWHX September 2006\"\n\nGracias anticipadas,','',0,'gIA=','2108fbik',1,0,'',141,0,0),(27653,6193,4,2,0,'87.218.146.81',1173037310,1,0,1,1,1,1,'','','Pawel,\n\nThis change is required in source\\classes\\dialog.prg Method Command:\n\n         case nNotifyCode == 0 .and. ::oMenu != nil [color=red:35l7bwa2].and. oWndFromHwnd( hWndCtl ) == nil[/color:35l7bwa2]','',0,'Ag==','35l7bwa2',1,0,'',2,0,0),(27654,6065,3,2,0,'87.218.146.81',1173037905,1,0,1,1,1,1,'','','FWH 7.01 implements incremental search in comboboxes, thats why if you press two chars, one after another, if searches for the item that starts with both chars (implemented by Ugo). \n\nUgo, thanks for the fix <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','jksv56um',1,0,'',2,0,0),(27655,6189,2,890,0,'190.9.66.196',1173040409,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:qhaqv378]Jairo,\n\nMuéstranos el código de cómo lo estás haciendo y lo revisamos[/quote:qhaqv378]\nGracias por tu colaboracion\n//Control de entradas Serviaire\n#include \"FiveWin.ch\"\n\n\nstatic oWnd, oBrush\n\nmain()\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n local oBrush\n local oIco, oBar\n\n *\n  SET DELETED ON  // para que no aparezcan los registros que borras !!!\n *\n\n SET 3DLOOK ON\n DEFINE BRUSH oBrush STYLE BRICKS\n\nDEFINE ICON oIco FILE \"c:\\FWH\\icons\\car.ico\"\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;\n      TITLE \"Control de servicios Serviaire Ltda\" ;\n       MENU  BuildMenu() ;\n       COLOR \"W+/B\" BRUSH oBrush ;\n      ICON oIco \n\n\n   SET MESSAGE OF oWnd ;\n      TO FWVERSION + \", \" + FWCOPYRIGHT CENTERED KEYBOARD\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM \"&amp;Informacion\"\n      MENU\n         MENUITEM   \"&amp;Acerca de...\" ;\n            ACTION  MsgInfo( \"Este trabajo esta escrito en FiveWin \";\n                            +CRLF + FWCOPYRIGHT ) ;\n            MESSAGE \"Informacion acerca de esta aplicacion\"\n\n         SEPARATOR\n\n         MENUITEM   \"&amp;Salir...\"  ;\n            ACTION  If( MsgYesNo( \"Want to end ?\" ),oWnd:End(),) ;\n            MESSAGE \"Salir de la aplicacion\"\n      ENDMENU\n\n      MENUITEM \"&amp;Archivos\"\n      MENU\n         MENUITEM   \"&amp;Entradas...\" ;\n            ACTION  Entradas2() ;\n            MESSAGE \"Control de entradas\"\n         MENUITEM   \"&amp;Buscar\" ;\n            ACTION  Busqueda() ;\n            MESSAGE \"Busqueda por placa y por # OT\"\n      ENDMENU\n\n      MENUITEM \"&amp;Utils\"\n      MENU\n         MENUITEM   \"&amp;Calculator...\" ;\n            ACTION  WinExec( \"Calc\" ) ;\n            MESSAGE \"Run Windows calculator\"\n\n         MENUITEM   \"C&amp;alendar...\" ;\n            ACTION  WinExec( \"Calendar\" ) ;\n            MESSAGE \"Run Windows calendar\"\n\n         MENUITEM   \"&amp;Some fun...\" ;\n            ACTION  WinExec( \"Sol\" ) ;\n            MESSAGE \"Play a game...\"\n      ENDMENU\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction Entradas2()\n\n \n   local oDlg\n   local cPlaca  \n   local cFecha   \n   local cEmpresa \n   local cNombre  \n   local cApellido \n   local cTel_Fijo  \n   local cTel_Mobil \n   local cMarca  \n   local cColorr  \n   local cLinea  \n   local cOt \n   local cIngreso \n\ncPlaca		:=space(9)\ncFecha		:=date()\ncEmpresa	:=space(36)\ncNombre		:=space(15)\ncMarca		:=cApellido:=space(15)\ncTel_Fijo	:=space(9)\ncTel_Mobil	:=space(11)\ncColorr		:=space(10)\ncLinea		:=space(18)\ncOt		:=space(7)\ncIngreso	:=space(15)\ncRegis		:=space(15)\naItems 		:= {\"     \",\"A/C Nuevo\",\"Servicio\",\"Garantia\"}\n\n   if ! File( \"clientes.dbf\" )\n      DbCreate( \"Clientes.dbf\", { { \"Placa\",     \"C\",  9, 0 },;\n                                  { \"Fecha\",     \"D\", 12, 0 },;\n                                  { \"Empresa\",   \"C\", 25, 0 },;\n                                  { \"Nombre\",    \"C\", 15, 0 },;\n                                  { \"Apellido\",  \"C\", 15, 0 },;\n                                  { \"Tel_Fijo\",  \"C\",  9, 0 },;\n                                  { \"Tel_Mobil\", \"C\", 11, 0 },;\n                                  { \"Marca\",     \"C\", 15, 0 },;\n                                  { \"Colorr\",     \"C\", 10, 0 },;\n                                  { \"Linea\",     \"C\", 18, 0 },;\n                                  { \"Ot\",        \"C\",  7, 0 },;\n                                  { \"Ingreso\",   \"C\", 15, 0 }})\n   endif\n\n\nUSE Clientes Alias Clientes NEW// EXCLUSIVE\nINDEX ON Clientes-&gt;Placa TO Clipla\nSET INDEX TO Clipla\nGO TOP\n\nSET DATE FRENCH\ncRegis :=Recno()\n \nDEFINE DIALOG oDlg RESOURCE \"clientes\" TITLE \"Entrada Servicios Serviaire\"\n\n REDEFINE GET getcregis    VAR cRegis   ID 390 OF oDlg\n REDEFINE GET getPlaca     VAR cPlaca   ID 110 OF oDlg UPDATE  PICTURE\"!!!999\";\n                                       VALID (Clientes-&gt;Placa:=cPlaca,.T.)\n REDEFINE GET getFecha     VAR cFecha     ID 120 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Fecha:=cFecha,.T.)\n REDEFINE GET getEmpresa   VAR cEmpresa   ID 130 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Empresa:=cEmpresa,.T.)\n REDEFINE GET getNombre    VAR cNombre    ID 140 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Nombre:=cNombre,.T.)\n REDEFINE GET getApellido  VAR cApellido  ID 150 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Apellido:=cApellido,.T.)\n REDEFINE GEt getTel_Fijo  VAR cTel_Fijo  ID 160 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Tel_Fijo:=cTel_fijo,.T.)\n REDEFINE GET getTel_Mobil VAR cTel_Mobil ID 170 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Tel_Mobil:=cTel_Mobil,.T.)\n REDEFINE GET getmarca     VAR cMarca     ID 180 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Marca:=cMarca,.T.)\n REDEFINE GET getColorr    VAR cColorr    ID 190 OF oDlg UPDATE       ;         \n                                       VALID (Clientes-&gt;Colorr:=cColorr,.T.)\n REDEFINE GET getLinea     VAR cLinea     ID 200 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Linea:=cLinea,.T.)\n REDEFINE GET getOt        VAR cOt        ID 210 OF oDlg UPDATE       ;\n                                       VALID (Clientes-&gt;Ot:=cOt,.T.)\n   **** ojo al tratamiento de este combobox\n   IF EMPTY(cIngreso) .OR.   ;      // si el campo esta vacío o\n      ASCAN(aItems,cIngreso) == 0   // el contenido no consta en elArray de\n       cIngreso := aItems[1]        // opciones\n     \n   ENDIF\n\n   REDEFINE COMBOBOX getIngreso VAR cIngreso  ;\n      ITEMS  aItems ID 117  of oDlg VALID (Clientes-&gt;Ingreso:=cIngreso,.T.)  \n\n  REDEFINE BUTTON oBt1 ID 112 OF oDlg ;\n      ACTION (IF ( !BOF(),DBGOTOP(),),;  // |&lt;--\n      getPlaca:cText     := Clientes-&gt;Placa,;\n      getFecha:cText     := Clientes-&gt;Fecha,;\n      getEmpresa:cText   := Clientes-&gt;Empresa,;\n      getNombre:cText    := Clientes-&gt;Nombre,;\n      getApellido:cText  := Clientes-&gt;Apellido,;\n      getTel_Fijo:cText  := Clientes-&gt;Tel_Fijo,;\n      getTel_Mobil:cText := Clientes-&gt;Tel_Mobil,;\n      getMarca:cText     := Clientes-&gt;Marca,;\n      getColorr:cText    := Clientes-&gt;Colorr,;\n      getLinea:cText     := Clientes-&gt;Linea,;\n      getOt:cText 	      := Clientes-&gt;Ot,;\n      cIngreso :=IIF(EMPTY(Clientes-&gt;Ingreso),aItems[1],Clientes-&gt;Ingreso),;\n      getIngreso:refresh())\n\n\n   REDEFINE BUTTON oBt1 ID 113  OF oDlg  ; // &lt;--\n      ACTION ( DbSkip( -1 ),;\n      If( BoF(), MsgInfo( \"Inicio del Archivo\" ),),;\n      getPlaca:cText     := Clientes-&gt;Placa,;\n      getFecha:cText     := Clientes-&gt;Fecha,;\n      getEmpresa:cText   := Clientes-&gt;Empresa,;\n      getNombre:cText    := Clientes-&gt;Nombre,;\n      getApellido:cText  := Clientes-&gt;Apellido,;\n      getTel_Fijo:cText  := Clientes-&gt;Tel_Fijo,;\n      getTel_Mobil:cText := Clientes-&gt;Tel_Mobil,;\n      getMarca:cText 	 := Clientes-&gt;Marca,;\n      getColorr:cText	 := Clientes-&gt;Colorr,;\n      getLinea:cText 	 := Clientes-&gt;Linea,;\n      getOt:cText 	 := Clientes-&gt;Ot,;\n      cIngreso 	:=IIF(EMPTY(Clientes-&gt;Ingreso),aItems[1],Clientes-&gt;Ingreso),;\n      getIngreso:refresh())\n                    \n\n   REDEFINE BUTTON oBt1 ID 114 OF oDlg ;//--&gt;\n      ACTION ( DbSkip( 1 ),;\n      If( EoF(), DbSkip(1),),;\n      If( EoF(), MsgInfo( \"Fin del Archivo\" ),),;\n      getPlaca:cText     := Clientes-&gt;Placa,;\n      getFecha:cText     := Clientes-&gt;Fecha,;\n      getEmpresa:cText   := Clientes-&gt;Empresa,;\n      getNombre:cText    := Clientes-&gt;Nombre,;\n      getApellido:cText  := Clientes-&gt;Apellido,;\n      getTel_Fijo:cText  := Clientes-&gt;Tel_Fijo,;\n      getTel_Mobil:cText := Clientes-&gt;Tel_Mobil,;\n      getMarca:cText     := Clientes-&gt;Marca,;\n      getColorr:cText    := Clientes-&gt;Colorr,;\n      getLinea:cText     := Clientes-&gt;Linea,;\n      getOt:cText        := Clientes-&gt;Ot,;\n      cIngreso :=IIF(EMPTY(Clientes-&gt;Ingreso),aItems[1],Clientes-&gt;Ingreso),;\n      getIngreso:refresh()) \n \n  REDEFINE BUTTON oBt1 ID 115 OF oDlg ; //--&gt;|\n      ACTION ( IF (!EOF(),DBGOBOTTOM(),),;\n      getPlaca:cText     := Clientes-&gt;Placa,;\n      getFecha:cText     := Clientes-&gt;Fecha,;\n      getEmpresa:cText   := Clientes-&gt;Empresa,;\n      getNombre:cText    := Clientes-&gt;Nombre,;\n      getApellido:cText  := Clientes-&gt;Apellido,;\n      getTel_Fijo:cText  := Clientes-&gt;Tel_Fijo,;\n      getTel_Mobil:cText := Clientes-&gt;Tel_Mobil,;\n      getMarca:cText     := Clientes-&gt;Marca,;\n      getColorr:cText    := Clientes-&gt;Colorr,;\n      getLinea:cText     := Clientes-&gt;Linea,;\n      getOt:cText        := Clientes-&gt;Ot,;\n      cIngreso :=IIF(EMPTY(Clientes-&gt;Ingreso),aItems[1],Clientes-&gt;Ingreso),;\n      getIngreso:refresh() )\n\n    REDEFINE BUTTON oBt1 ID 223 OF oDlg ; //--&gt;||\n      ACTION (DBGOBOTTOM(),;\n      If(!EOF(), DbSkip(1),),; \n      getPlaca:cText     := Clientes-&gt;Placa,;\n      getFecha:cText     := Clientes-&gt;Fecha,;\n      getEmpresa:cText   := Clientes-&gt;Empresa,;\n      getNombre:cText    := Clientes-&gt;Nombre,;\n      getApellido:cText  := Clientes-&gt;Apellido,;\n      getTel_Fijo:cText  := Clientes-&gt;Tel_Fijo,;\n      getTel_Mobil:cText := Clientes-&gt;Tel_Mobil,;\n      getMarca:cText     := Clientes-&gt;Marca,;\n      getColorr:cText    := Clientes-&gt;Colorr,;\n      getLinea:cText     := Clientes-&gt;Linea,;\n      getOt:cText        := Clientes-&gt;Ot,;\n      cIngreso :=IIF(EMPTY(Clientes-&gt;Ingreso),aItems[1],Clientes-&gt;Ingreso),;\n      getIngreso:refresh() ) \n\n   REDEFINE BUTTON oBt1 ID 116  OF oDlg ACTION oDlg:End()\n\n   REDEFINE BUTTON oBt1 ID 118  OF oDlg ACTION AgregarNuevo(cPlaca) \n   REDEFINE BUTTON oBt1 ID 111  OF oDlg ACTION BorraRegistro() //Aqui puedes \n                                                    //recargar las variables\n   ACTIVATE DIALOG oDlg on init (IgualaVariable(),BloqueaGets())\n\n\n  USE\nreturn NIL\n\nFUNCTION AgregarNuevo()\n \n cPlaca :=Clientes-&gt;Placa\n\n  SET DELETED OFF\n  IF MsgYesNo(\"Agregar Nueva Entrada\",\"Decida\")\n     SELE Clientes\n     GO TOP\n     IF DBSEEK(cPlaca)\n        IF DELETED()\n           RECALL\n        ENDIF\n     ELSE\n        APPEND BLANK\n        Clientes-&gt;Placa := cPlaca\n     ENDIF\n     ActivaGets()     \n ENDIF\n SET DELETED ON\n\nRETURN NIL   \n \nFUNCTION BorraRegistro()\n LOCAL nReg := Recno() -1\n \n IF MsgYesNo(\"Borrar Registro\",\"Confirme\")\n  DELETE\n ENDIF\n\n DBGOTO( nReg ) // para colocarse un registro previo al que se ha borrado\n\n // Aquí es otro lugar que puedes volver a refrescar los GET\n\nRETURN NIL   \n \nFUNCTION BloqueaGets()\n\ngetPlaca:disable()\ngetFecha:disable()\ngetEmpresa:disable()\ngetNombre:disable()\ngetApellido:disable()\ngetTel_Fijo:disable()\ngetTel_Mobil:disable()\ngetmarca:disable()\ngetColorr:disable()\ngetLinea:disable()\ngetOt:disable()\ngetIngreso:disable()\n\nRETURN NIL  \n \nFUNCTION ActivaGets()\n\ngetPlaca:enable()\ngetFecha:enable()\ngetEmpresa:enable()\ngetNombre:enable()\ngetApellido:enable()\ngetTel_Fijo:enable()\ngetTel_Mobil:enable()\ngetmarca:enable()\ngetColorr:enable()\ngetLinea:enable()\ngetOt:enable()\ngetIngreso:enable()\n \nRETURN NIL   \nFUNCTION IgualaVariable()\n\ncPlaca    := Clientes-&gt;Placa\ncFecha    := Clientes-&gt;Fecha\ncEmpresa  := Clientes-&gt;Empresa\ncNombre   := Clientes-&gt;Nombre\ncApellido := Clientes-&gt;Apellido\ncTel_Fijo := Clientes-&gt;Tel_Fijo\ncTel_Mobil:= Clientes-&gt;Tel_Mobil\ncMarca    := Clientes-&gt;Marca\ncColorr   := Clientes-&gt;Colorr\ncLinea    := Clientes-&gt;Linea\ncOt       := Clientes-&gt;Ot\ncIngreso  := Clientes-&gt;Ingreso\nRETURN NIL \n//----------------------------------------------------------------------------//\nFUNCTION Busqueda()\n\n \nuse clientes\n\n cPlaca := Clientes-&gt;Placa\n\n  DEFINE DIALOG oDlg RESOURCE \"Busqueda\" TITLE \"Busqueda por Placa y OT\"\n\n    IF EMPTY(cPlaca) .OR.   ;         // si el campo esta vacío o\n      ASCAN(cPlaca) == 0      // el contenido no consta en elArray de opciones\n      \n   ENDIF\n\n   REDEFINE GET getPlaca VAR cPlaca  ;\n      ID 390  of oDlg UPDATE  PICTURE\"!!!999\" VALID( busq(cPlaca))\n\n   \n   REDEFINE BUTTON oBt1 ID 4001 OF oDlg ACTION busq(cPlaca)	\n                                                                                   \n\n  ACTIVATE DIALOG oDlg\n  \n\nfunction busq(cPlaca)\nUSE Clientes Alias Clientes \nINDEX ON Clientes-&gt;Placa TO Clipla\nSET INDEX TO Clipla\nGO TOP\ncPlaca :=Clientes-&gt;Placa\nseek(cPlaca)\nif found()\nentradas2(cPlaca)\n endif \n \n   return found()    \n\nLa idea es que con un pequeño dialogo busque por placa o por ot y al ejecutar enter se abra el dialogo entradas2() mostrando el registro solicitado \n\nAcepto todo tipo de criticas y sugerencias que me fortalezcan en FWH\n\nCordialmente\nJairo','',0,'gA==','qhaqv378',1,0,'',890,0,0),(27656,6197,3,69,0,'74.13.34.9',1173044843,1,0,1,1,1,0,'','Client / Server','Hi Everybody,\n\nI am starting to look into client / server solutions for my app.\nI know that ADS will work but it\'s very expensive.\n\n\nAre there any opensource database servers out there?\n\n\nThanks,\n\nJeff','',0,'gA==','1gokaaym',1,0,'',69,0,0),(27657,6198,6,913,0,'189.136.164.234',1173045537,1,0,1,1,1,1,'','Por fin pude poner el combobox en la toolbar :)','Hola\n\nYa por fin pude poner el combobox en el toolbar <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  y es de una manera tan simple que por eso no me dava cuenta <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  tal vez no sea de la manera correcta  como lo hise pero funciona\n\npara los novatos y novatas  como yo les dejo como le hise <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nDEFINE WINDOW oWnd FROM 2, 2 TO 35, 85  TITLE \"Aida Control de Polizas V 1.00 2007\" Color nRgb(230, 230, 250  ),nRgb( 132, 112, 255)  ;\n	 MENU BuildMenu()\n\n	\nAqui lo pongo con [color=red:1rxp4i5s]OF oToolBar2 [/color:1rxp4i5s]aqui estara invisible pero funcional el get\n@ 2.50,36 get oGet var getbuca OF oToolBar2 size 120,20\n\nAqui lo pongo con OF oToolBar2 aqui estara invisible pero funcional el combobox\n@ 2.32,52  COMBOBOX cAcom VAR listb ITEMS  {\"AUTOS\",\"VIDA\",\"GMM\",\"DAÑOS\"}   OF oToolBar2  SIZE 120,80\n\n\n\noImgList1 = TImageList():New( 46, 46 ) // width and height of bitmaps\n\noImgList1:AddMasked( TBitmap():Define( \"doctor1\",,    oWnd ), nRGB( 255, 0, 255 ) )\noImgList1:AddMasked( TBitmap():Define( \"disks\",,   oWnd ), nRGB( 255, 0, 255 ) )\n\noImgList2 = TImageList():New( 32, 32 ) // width and height of bitmaps\n\n\noImgList3 = TImageList():New( 30,30 ) // width and height of bitmaps\noImgList3:AddMasked( TBitmap():Define( \"internet\",, oWnd ), nRGB( 255, 0, 255 ) )\noImgList3:AddMasked( TBitmap():Define( \"quit\",, oWnd ), nRGB( 255, 0, 255 ) )\n\n\n\n\n   // Now we create the rebar\n\noReBar = TReBar():New( oWnd )\n\n // Now we create the toolbars and add the buttons\noToolBar1 = TToolBar():New( oReBar, 60, 60, oImgList1 )\noToolBar1:AddButton( { || Main2() }, \"Mantenimiento de bases de datos\", \"Mantenimiento\" )\noToolBar1:AddButton( { || MIPDF()}, \"Respaldar bases de datos\", \"Respaldo\" )\n\noToolBar2 = TToolBar():New( oReBar, 70, 70, oImgList2 )\n\n\n\noToolBar3 = TToolBar():New( oReBar, 43, 43, oImgList3 )\noToolBar3:AddButton( { || navega() }, \"Checar nuevas versiones\",;\n                       \"Upgrade\" )\noToolBar3:AddButton( { || oWnd:End() }, \"Fin del programa\", \"Salida\" )\n\n\n\n // We set the widths for each toolbar\noToolBar1:nWidth = 150\noToolBar2:nWidth = 500\noToolBar3:nWidth = 150\n\n\n\n // Now we insert the toolbars into the rebar\noReBar:InsertBand( oToolBar1 )\noReBar:InsertBand( oToolBar2 )\noReBar:InsertBand( oToolBar3 )\n\n\n\n@ 2.15,1 SENSITIVE SAY oSay PROMPT \"Buscar Poliza :   \"   OF oToolBar2\n\nAqui lo pongo otra vez pero ya con [color=green:1rxp4i5s]OF oWnd [/color:1rxp4i5s]para que pinten el get\n@ 2.50,36 get oGet var getbuca OF oWnd size 120,20\nAqui lo pongo otra vez pero ya con OF oWnd para que pinte el combobox\n@ 2.32,52  COMBOBOX cAcom VAR listb ITEMS  {\"AUTOS\",\"VIDA\",\"GMM\",\"DAÑOS\"}   OF oWnd  SIZE 120,80\n\n\n\n\n\n\na si que solo era ponerlo 2 veces para que me funcionara jejeje\n\nBueno almenos ya sali de esta a ver ahora que mas me sale en el camino\npero es bonito poder superar los atorones con ayuda y sin ella\n\nSaludos a todos en el foro\n\nAida <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\naqui pongo una foto de como me esta quedando mi programa\n[url=http&#58;//img106&#46;imageshack&#46;us/my&#46;php?image=dibujosg9&#46;jpg:1rxp4i5s][img:1rxp4i5s]http&#58;//img106&#46;imageshack&#46;us/img106/36/dibujosg9&#46;th&#46;jpg[/img:1rxp4i5s][/url:1rxp4i5s]','',0,'Gg==','1rxp4i5s',1,0,'',913,0,0),(27658,6199,3,904,0,'198.54.202.226',1173046981,1,0,1,1,1,1,'','Fonts','DEFINE FONT oFont NAME \"Arial\" SIZE 0, -11 OF oPrn  \n\nI cannot get a small enough size to print.\n\nI think its because I don\'t understand fonts. \n\nWhy is the above line Width =  0 and Height = -11 (negative!)\n\nWhat to these numbers refer to?\n\nWhy can I not just specify 8 point size?\n\nPlease guide me or tell me where I can get more information.','',0,'Gg==','sbvbzdcx',1,0,'',904,0,0),(27659,6200,6,785,0,'190.64.203.62',1173052972,1,0,1,1,1,0,'','oPrn:cmSay()','Amigos:\n\nTengo 2 variables= Space(30)\nxTit1 :=space(30)\nxTit2 :=Space(30)\n\nAl ingresar al programa tomas de una BD \nxTit1 := TITULO-&gt;TITULO1  // los campos tiene el mismo valor 30 Chr.\nxTit2 := TITULO-&gt;TITULO2\n\n\n  oPrn:cmSay(cmt,7     ,  xtit1,OF1, , , , 2)  \n  cmt +=0.5                                                                \n  oPrn:cmSay(cmt,7     ,  xtit2 ,OF1, , , , 2)        \n\nSe supone que el 2 hace que se centren estos 2 títulos, pero no.\n\nAgradezco alguna ayuda.\n\nMuchas gracias.\n\nRuben Fernamdez.','',0,'Gg==','8ydcegto',1,0,'',785,0,0),(27660,6197,3,233,0,'219.95.200.32',1173057419,1,0,1,1,1,0,'','','<!-- w --><a class=\"postlink\" href=\"http://www.firebirdsql.org\">www.firebirdsql.org</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.postgresql.org\">www.postgresql.org</a><!-- w -->','',0,'Gg==','3vkghoxq',1,0,'',233,0,0),(27661,6199,3,2,0,'87.218.146.204',1173057581,1,0,1,1,1,1,'','','Ollie,\n\nThis is from Windows API docs:\n\nnHeight\n\nSpecifies the height, in logical units, of the font\'s character cell or character. The character height value (also known as the em height) is the character cell height value minus the internal-leading value. The font mapper interprets the value specified in nHeight in the following manner:\n\nValue	Meaning\n&gt; 0	The font mapper transforms this value into device units and matches it against the cell height of the available fonts.\n0	The font mapper uses a default height value when it searches for a match.\n&lt; 0	The font mapper transforms this value into device units and matches its absolute value against the character height of the available fonts.\n\nFor all height comparisons, the font mapper looks for the largest font that does not exceed the requested size. \n\nThis mapping occurs when the font is used for the first time. \nFor the MM_TEXT mapping mode, you can use the following formula to specify a height for a font with a specified point size:\n\nnHeight = -MulDiv(PointSize, GetDeviceCaps(hDC, LOGPIXELSY), 72);\n \nnWidth\n\nSpecifies the average width, in logical units, of characters in the requested font. If this value is zero, the font mapper chooses a \"closest match\" value. The \"closest match\" value is determined by comparing the absolute values of the difference between the current device\'s aspect ratio and the digitized aspect ratio of available fonts.','',0,'Gg==','1iwagu2a',1,0,'',2,0,0),(27662,6195,3,303,0,'72.199.41.171',1173060684,1,0,1,1,1,0,'','','Ollie,\n\nI think there may be some bugs in the font class.\n\nIf you do this:\n\nDEFINE FONT oFont NAME \"Aerial\" SIZE 29.3333, 66.67 OF oPrn \n\nFollowed by this:\n\noFont:nHeight:= 66.67\n\nWhich theoretically should have no effect.\n\nThen you get these:\n\noFont:nSize() returns -49.75\noFont:nWidth() returns 29.3333\noFont:nHeight() returns 66.67\n\nI note that the nSize method is subtracting -.25 under some circumstances, which would account for the 49.75. Also it is multiplying by -1 under some circumstances.\n\nOh, and to add to the confusion, there are also oFont:nInpWidth and oFont:nInpHeight vars. I assume these are supposed to hold the values input via the New(), nWidth(), and nHeight() methods, but the values I find in them only adds to the confusion.\n\nPerhaps this all has to do with the difference between size in points (a physical size) and size in pixels or dots per inch (size relative to the device).\n\nHowever, I think Ollie wants to save a user defined font and restore it. I\'m not sure we can do this.\n\nAntonio, Enrico, any comments?\n\nJames','',0,'Gg==','1lyyz87j',1,0,'',303,0,0),(27663,6199,3,303,0,'72.199.41.171',1173062245,1,0,1,1,1,0,'','','Antonio,\n\nSee my response to Ollie\'s font question in his other thread.\n\nJames','',0,'Gg==','2v0e17e5',1,0,'',303,0,0),(27664,6200,6,785,0,'190.64.197.207',1173067508,1,0,1,1,1,0,'','','Ya lo resolví\n\nPadC(rtrim(ltrim(xTit1)),30,\" \")\n\nSaludos\n\nRuben Fernandez.','',0,'Gg==','2scigwra',1,0,'',785,0,0),(27665,6201,3,904,0,'196.25.255.246',1173072238,1,0,1,1,1,1,'','GenRep','I compile Genrep.prg (C:\\FWH\\SAMPLES\\GENREP.PRG)\n\nwith Buildx.bat (included below)\n\nWhen I click the button, I get the following error:\n\nApplication\n===========\n   Path and name: C:\\FWH\\SAMPLES\\genrep.exe (32 bits)\n   Size: 1,256,448 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 03/05/07, 07:22:34\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: OWNDCLIENT\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; OWNDCLIENT(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:NEW(0)\n   Called from: genrep.prg =&gt; GENCHILD(29)\n   Called from: genrep.prg =&gt; (b)MAIN(17)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: genrep.prg =&gt; MAIN(19)\n\nI use c:\\XHarbour, c:\\FWH c:\\bcc55\n\nMy BuildX.bat  :\n[code:nvzaquqt]@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for xHarbour 6&#46;12 - December 2006       xHarbour development power ³Ü\nECHO ³ &#40;c&#41; FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO &#58;SINTAX\nif NOT EXIST %1&#46;prg GOTO &#58;NOEXIST\n\nECHO Compiling&#46;&#46;&#46;\n\nset hdir=c&#58;\\xharbour\nset bcdir=c&#58;\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i&#46;&#46;\\include;%hdir%\\include /w /p %2 %3 &gt; clip&#46;log\n@type clip&#46;log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1&#46;exe -I%hdir%\\include %1&#46;c &gt; b32&#46;bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32&#46;bc\n&#58;ENDCOMPILE\n\nIF EXIST %1&#46;rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho &#46;&#46;\\lib\\Fivehx&#46;lib &#46;&#46;\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtgui&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\rasapi32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\iphlpapi&#46;lib, &gt;&gt; b32&#46;bc\n\nIF EXIST %1&#46;res echo %1&#46;res &gt;&gt; b32&#46;bc\n\nrem uncomment this line to use the debugger and comment the following one\nrem %bcdir%\\bin\\ilink32 -Gn -Tpe -s -v @b32&#46;bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32&#46;bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1&#46;c\n\n&#58;LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n&#58;SINTAX\nECHO    SYNTAX&#58; Build &#91;Program&#93;     &#123;-- No especifiques la extensi¢n PRG\nECHO                                &#123;-- Don\'t specify &#46;PRG extension\nGOTO EXIT\n\n&#58;NOEXIST\nECHO The specified PRG %1 does not exist\n\n&#58;EXIT\n[/code:nvzaquqt][quote][/quote][code:nvzaquqt][/code:nvzaquqt]','',0,'AIA=','nvzaquqt',1,0,'',904,0,0),(27666,6197,3,138,0,'200.65.243.53',1173073823,1,0,1,1,1,1,'','','Jeff:\n\nIn my personal experience you have to take in account several issues regarding moving to client / server.\n\nDuring the last 10 years I\'ve done over 100 installations of ADS, and I also have developed some SQL based applications, all with FiveWin since version 1.92.\n\nBoth, SQL based databases and ADS have their advantages and disadvantages.\n\nI personally advice to my customers to use ADS if they already have a huge ammount of information in DBF format, believe or not, for economical reasons.\n\nSQL databases may be less expensive, even free, but you always get what you pay for, personally I\'ve done some applications with MySQL, SQL Server, Informix and Oracle, from my point of view, the best databases are not the free ones, but the ones that have a cost, my choice: Informix, if you want something \"payable\" SQL Server would be a good choice.\n\nWhy ADS could be less expensive ? well in terms of time, giving your application client / server technology, is almost inmediatly, just install ADS, make some adaptation to your code, and done !, you can make a basic migration to client / server in one or two days, the most of my customers do it in a weekend, so they can be back to work the very next monday.\n\nADS have a bunch of features, transactions, Optimized filters, Internet Access, it takes some extra time to be \"full\" up and running with ADS but not more than a month, in the meantime you can keep working without  stoping your business.\n\nSQLs Databases are a good choice if you are starting a new project, they can be Open Source, free or you have to pay for them, but please notice that beside of the economic issues, there\'s a big investment you have to do in time.\n\nFrist of all, you have to make a complete redesign  of your database in order to get the most of the new sql based database, the BIGGEST mistake programmers do when moving to SQL is to copy the DBF data structures into the SQL tables, please notice that the SQL model is quite different  to the DBF model, SQL model has ENOURMOUS advantages over the DBF model such security, referential integrity, relations, triggers, stored procedures, etc so you have to invest at least one month or two just designing the database, also you have to have tools for designing, again, some are free, some you have to pay for them, but trying to go SQL without a good Entity relation diagram or a data design tool, can be a suicide in long time.\n\nOnce you have your database designed, you have to invest time reprogramming all your data access inside your program.\n\nForget about RDD based tools, the Xbase model for accesing data is very defective, you will notice it  once you have discover the SQL world with all its features. Sorry to say guys but it\'s true, using USE... REPLACE or stuff like that having a SQL  behind, is like to kill pigeons with cannonballs.\n\nThe best choice is to use ADO for accesing data, the ADO model is very similar to Xbase model, you will feel very comfotable with it, but the sucess using ADO is based in a good database design. My best advice: you are making a CLIENT / SERVER application, so let the SERVER work !!!!!, the best approach in order to minimize the programming changes is to use Stored Procedures.\n\nIt will take about two months more to do the reprogramming for data access.\n\nAnd finally, you have to make the migration of the current data to the new SQL database, setting up it and fine tunning it may take you another month.\n\nIn terms of money, you have to spend between 5 to 7 months (not less) to have ready your application running under SQL client / server.\n\nRemember... the sucess here is all based on the database design, I have customers that didn\'t make a good database design from the begining, they never tested the \"server\" part, and took them more than two years to move to SQL client / server, they finally made it, but they still have problems of speed and performance due to a defective database design and because they never tested the application with a real server, never tested the internet access, they let the client make the dirty job, not the server, and never made test with big ammounts of data.','',0,'AIA=','17sishwn',1,0,'',138,0,0),(27667,6202,3,904,0,'196.25.255.210',1173076287,1,0,1,1,1,1,'','Error Compiling Fivedit.prg','Error Compiling Fivedit.prg\n\nUnresolved External _HB_FUN_MAPISendDocument\nUnresolved External _HB_FUN_WNetDisconnect\n\nCan anyone help?','',0,'AIA=','udwwlykf',1,0,'',904,0,0),(27668,6179,7,945,0,'80.32.177.143',1173083380,1,0,1,1,1,0,'','No me funciona','Muy buenas, no se que hacer la impresora no funciona, he llamado al servicio técnico y dicen que debe ser de programación y yo no hago nada más que el código anterior, decirme que puedo hacer, es decir, si hay otra forma de comunicarse con la impresora, otra forma de imprimir, no se algo para que esto funcione.\n\nTambién he probado con otra impresora nueva para ver si es que estuviese rota, y también pasa lo mismo.\n\nBueno, gracias de antemano.\n\nUn Saludo.','',0,'AIA=','1op45rqi',1,0,'',945,0,0),(27669,6179,7,456,0,'217.127.39.57',1173085462,1,0,1,1,1,1,'','','Pues no se que decirte, el codigo anteriro a mi me funciona. Pro probar, pero es lo mismo.\n\n[code:3baocte8]\nWriteByte&#40;cConexion,27&#41;\nWriteByte&#40;cConexion,Asc&#40;\'C\'&#41;\nWriteByte&#40;cConexion,48&#41;  //Lineas \nfor n = 1 to Len&#40; cTexto &#41; \n   WriteByte&#40; cConexion, Asc&#40; SubStr&#40; cTexto, n, 1 &#41; &#41; &#41; \nnext \n[/code:3baocte8]\n\nPuedes probar de imprimir con cable directo, entiendo que lo haces via Bluetooth.','',0,'AIA=','3baocte8',1,0,'',456,0,0),(27670,6176,6,967,0,'62.43.189.20',1173086113,1,0,1,1,1,0,'','','Gracias <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'AIA=','n0grj0x5',1,0,'',967,0,0),(27671,6179,7,945,0,'80.32.177.143',1173087484,1,0,1,1,1,0,'','No se por que no','¿Sabes algún caracter de escape que tengamos que complementar a ese? es decir, lo mismo tengo que reiniciar la impresora, limpiar buffer, no se algo que complemente que haga que funcione de una vez.\n\nGracias.\n\nUn Saludo.','',0,'AIA=','2b9xzb3p',1,0,'',945,0,0),(27672,6196,6,2,0,'87.218.146.204',1173087858,1,0,1,1,1,1,'','','Julio,\n\nEn <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m --> tienes los builds de Harbour/xHarbour que nosotros hemos publicado','',0,'AIA=','7kc0xz4n',1,0,'',2,0,0),(27673,6179,7,945,0,'80.32.177.143',1173088425,1,0,1,1,1,0,'','','Lo hemos probado también con el cable directo y no funciona, es de la impresora que no coje el caracter de escape','',0,'AIA=','190k773r',1,0,'',945,0,0),(27674,6192,5,512,0,'219.90.192.51',1173091580,1,0,1,1,1,0,'','','Many thanks Antonio. The new Five32rt.dll file fixed the prompt displays on the buttons.\n\nAlso thanks for pointing out the following:\n\"There is a mistake in your code: If you use a REDEFINE BTNBMP ... then in your RC file you have to use \"TBtnBmp\" (custom control) instead of a PUSHBUTTON.\n\nBut if you want to use a PUSHBUTTON in your resources then you have to use a REDEFINE BUTTON ... instead of REDEFINE BTNBMP ...\"\n\nIn trying lots of differnt examples betwen using the BUTTON and TBTNBMP controls to try and find a solution to the problem, my resource file got out of sync with my source file. \n\nAgain thanks again for your support.\n\nBest Regards,\nAngelo','',0,'AIA=','3d6yvybt',1,0,'',512,0,0),(27675,6202,3,6,0,'82.57.160.176',1173092223,1,0,1,1,1,1,'','Re: Error Compiling Fivedit.prg','[quote=&quot;Ollie&quot;:1n630v8p]Error Compiling Fivedit.prg\n\nUnresolved External _HB_FUN_MAPISendDocument[/quote:1n630v8p]\n\nChange it to MAPISendDocuments() in Fivedit.prg.\n\n[quote=&quot;Ollie&quot;:1n630v8p]Unresolved External _HB_FUN_WNetDisconnect[/quote:1n630v8p]\n\nChange it to WNetDisconnectDialog() in Fivedit.prg.\n\nEMG','',0,'gA==','1n630v8p',1,0,'',6,0,0),(27676,6202,3,904,0,'196.25.255.194',1173092887,1,0,1,1,1,1,'','','Thanks it worked.','',0,'gA==','2ispy8wl',1,0,'',904,0,0),(27677,6195,3,6,0,'82.57.160.176',1173093478,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1jwuczv6]However, I think Ollie wants to save a user defined font and restore it. I\'m not sure we can do this.\n\nAntonio, Enrico, any comments?\n\nJames[/quote:1jwuczv6]\n\nI don\'t know but I think it\'s easier to save just \"Arial\", 0 and -8 in the Ollie\'s example.\n\nEMG','',0,'gA==','1jwuczv6',1,0,'',6,0,0),(27678,6202,3,904,0,'196.25.255.210',1173093497,1,0,1,1,1,1,'','','But it hangs when I choose \"Send...\" from the file menu.','',0,'gA==','2v7475lc',1,0,'',904,0,0),(27679,6202,3,6,0,'82.57.160.176',1173093607,1,0,1,1,1,1,'','','That\'s because the calling syntax is not correct. Please look at the docs for MAPISendDocuments().\n\nEMG','',0,'gA==','2y0jmq1s',1,0,'',6,0,0),(27680,6195,3,904,0,'198.54.202.210',1173094360,1,0,1,1,1,1,'','','It sure would be.\nI let the user select a font fontselect()\nAnd then I want to save it, however, if the User chooses Arial 8 point,\nI don\'t find that when I query the Font object. I get the heights and widths shown above.\nIf you can show me where the 0 amd -8 is found, that would be great.','',0,'gA==','12jbu5r8',1,0,'',904,0,0),(27681,6202,3,904,0,'196.25.255.210',1173094415,1,0,1,1,1,1,'','','Thanks Enrico,\n\nCouldn\'t find those docs - can you direct me please.','',0,'gA==','i8v7l454',1,0,'',904,0,0),(27682,6203,6,92,0,'213.96.45.9',1173095245,1,0,1,1,1,0,'','TDataBase y TDbf','Hola a todos,\n\nHe adquirido la última versión de FiveWin y quisiera olvidarme de clases de terceros que yo deba adaptar a cada nueva versión (aunque sea de tarde en tarde).\n\n¿Alguno de ustedes utiliza la maravillosa clase TDBF de Manuel Expósito bajo la versión de FiveWin 7.01 y Harbour 1.0?\n\n¿Que tal la experiencia con la clase TDataBase nativa de FiveWin?\n\n¿Con TDataBase, se pueden instanciar los campos de la dbf directamente como si fueran métodos de la clase (al estilo--&gt;&gt;&gt;  oMidbf:micampo) bajo Harbour?\n\n¿Cuando en el código fuente de una clase encuentro  #ifdef __XPP__, con que compilador se aplicaría su lógica?\n\nSaludos y gracias\nCarlos G.','',0,'gA==','3cv290xj',1,0,'',92,0,0),(27683,6195,3,6,0,'82.57.160.176',1173095262,1,0,1,1,1,1,'','','oFont:cFaceName\noFont:nSize\n\nEMG','',0,'gA==','278ti1tp',1,0,'',6,0,0),(27684,6202,3,6,0,'82.57.160.176',1173095356,1,0,1,1,1,1,'','','[code:9diz41k9]   CLIPPER MAPISENDDOCUMENTS&#40; PARAMS &#41; // CUMENTS&#40; nUiParam, cDelimiters, cFilePaths,\n                        //      cFileNames, nReserved &#41; --&gt; nResult[/code:9diz41k9]\n\nEMG','',0,'AIA=','9diz41k9',1,0,'',6,0,0),(27685,6204,6,968,0,'190.45.238.99',1173095609,1,0,1,1,1,0,'','Documentación WinAsp','Estimados amigos,\n\nHe puesto alguna documentación de winasp en \n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl/download.htm\">http://www.htcsoft.cl/download.htm</a><!-- m -->\n\nSaludos\nJorge Mason','',0,'AIA=','2on92dkn',1,0,'',968,0,0),(27686,6205,3,968,0,'190.45.238.99',1173095701,1,0,1,1,1,0,'','WinAsp spanish documentation','Dear friends,\n\nI put spanish documentation on\n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl/download.htm\">http://www.htcsoft.cl/download.htm</a><!-- m -->\n\nRegards\nJorge Mason','',0,'AIA=','24dhpqnb',1,0,'',968,0,0),(27687,6195,3,904,0,'196.25.255.246',1173096154,1,0,1,1,1,1,'','','I can\'t see the Size setting:\n\naFont := Choosefont()\n   IF EMPTY( aFont[ 14 ] )\n      aFont[ LF_HEIGHT ]          := - 13\n      aFont[ LF_WIDTH ]           := 0\n      aFont[ LF_ESCAPEMENT ]      := 0\n      aFont[ LF_ORIENTATION ]     := 0\n      aFont[ LF_WEIGHT ]          := 400\n      aFont[ LF_ITALIC ]          := .F.\n      aFont[ LF_UNDERLINE ]       := .F.\n      aFont[ LF_STRIKEOUT ]       := .F.\n      aFont[ LF_CHARSET ]         := 0\n      aFont[ LF_OUTPRECISION ]    := 3\n      aFont[ LF_CLIPPRECISION ]   := 2\n      aFont[ LF_QUALITY ]         := 1\n      aFont[ LF_PITCHANDFAMILY ]  := 34\n      aFont[ LF_FACENAME ]        := \'Arial\'\n\nis there a better way.','',0,'','3ra4z9ff',1,0,'',904,0,0),(27688,6203,6,92,0,'213.96.45.9',1173097074,1,0,1,1,1,0,'','Re: TDataBase y TDbf','[quote=&quot;FiveWiDi&quot;:2sd3j80g]¿Con TDataBase, se pueden instanciar los campos de la dbf directamente como si fueran métodos de la clase (al estilo--&gt;&gt;&gt;  oMidbf:micampo) bajo Harbour?\n[/quote:2sd3j80g]\n\nMe autorespondo:\n\nSi se puede.\n\nSaludos\nCarlos G.','',0,'gA==','2sd3j80g',1,0,'',92,0,0),(27689,6189,2,2,0,'87.218.146.204',1173097656,1,0,1,1,1,1,'','','Jairo,\n\nPor favor envíame por email el fichero RC que estás usando, gracias','',0,'gA==','qhacq73a',1,0,'',2,0,0),(27690,6192,5,2,0,'87.218.146.204',1173097771,1,0,1,1,1,1,'','','Angelo,\n\nYou are welcome,\n\nClass TBtnBmp is for pushbuttons with images on them. Class TButton is for Windows standard pushbuttons (without images).','',0,'gA==','7xpe6xo5',1,0,'',2,0,0),(27691,6195,3,2,0,'87.218.146.204',1173098387,1,0,1,1,1,1,'','','Ollie,\n\nPlease review the source code of the Class TFont Method nSize(). \n\nYou can transform it into a function to use it without creating a font object','',0,'gA==','2rhjxmdc',1,0,'',2,0,0),(27692,6203,6,2,0,'87.218.146.204',1173098567,1,0,1,1,1,1,'','','Carlos,\n\n&gt;\n¿Cuando en el código fuente de una clase encuentro #ifdef __XPP__, con que compilador se aplicaría su lógica? \n&gt;\n\nAlaska Xbase++','',0,'gA==','3544pgj5',1,0,'',2,0,0),(27693,6191,6,41,0,'200.105.194.235',1173099575,1,0,1,1,1,0,'','','Hola,\n\n Psotgres a mi parecer es mucho mejor que MySQL, por ejemoplo  en lo que se refiere a concurrencia MySQL nunca nacio con la idea de ser un DBMS, si bien su popularidad lo llevo a eso, por lo que   su arquitectura base no estuvo pensada en ello, a diferencia de PG.  MySQL tenia como objetivo ser un sistema de consulta nada mas, claro muy muy veloz, y algunos a~nos atras en su NOTODO estaba el que nunca implementarian un sistema transaccional, que ahora lo implemento gracias al uso de BerkleyDB \n\nComo ejemplo de la calidad de PG, tienes a Interprisedb que es un producto comercial casi 100% compatible con Oracle que tiene como core a PG mas una capa de compatibilidad de SQL.\n\nPG tienes muchas caracteristicas, que inclusive en sistemas comercial no encuentras, tienes extensiones para GIS y puedes definir tus propios tipos de datos, inclusive se prodria pensar en colocar a [x]Harbour como lenguaje para sus funciones y procedimientos almancenados, por otra parte su api es muy sencilla y por ello tienes conexion con una variedad de lenguajes, [x]Harbour esta en la lista.\n\nAhora sobre la conexion, creo que hay todos los sabores ODBC, ADO y nativo, por mi parte jugue con el nativo y funciono correctamente, (algun tiempo atras).\n\nSobre la licencia, tienes que ver ello, ya que MySQL no es gratuito a no ser que haya cambiado en los ultimos tiempos.\n\nMira todo esto lo escucharas de maneras distintas dependiendo quien te lo cuente, y seguro que todas las opiones valen y claro esta se las respeta.\n\nsolo es una opinion personal\n\nsaludos\n\nMarcelo','',0,'','1fj9ze3h',1,0,'',41,0,0),(27694,6206,6,92,0,'213.96.45.9',1173102891,1,0,1,1,1,0,'','Dbfs Relacionados','Hola a todos,\n\nTeniendo 2 Dbfs relacionadas y estando ya posicionados en los registros correspondientes,\n\n¿Alguién podría mostrarme un trozo de código en el cual se vea como se muestra/captura el valor de un campo de cada una de ellas?\n\n¿Y cómo se actualizarían estos campos?\n\n¿Se deben atacar sus campos desde alias distintos?\nSi es así, la gestión de fldget y fldput las debo gestionar a mano teniendo en cuenta de que DBF són, no?\n\nHace tiempo que le doy vueltas al tema de las DBF relacionadas y sigo teniendo dudas.\n\nSaludos\nCarlos G.','',0,'','3lgqz2hs',1,0,'',92,0,0),(27695,6201,3,397,0,'201.26.13.46',1173103230,1,0,1,0,1,1,'','','Ollie\n\nIn funtion GenChild() put OF oWnd as below:\n\n[code:3s481kgh]\nfunction GenChild&#40;&#41;\n\n   local oWndChild, oBar, oBmp\n\n   DEFINE WINDOW oWndChild MDICHILD COLOR &quot;N/W&quot; OF oWnd\n[/code:3s481kgh]','',0,'AIA=','3s481kgh',1,0,'',397,0,0),(27696,6197,3,217,0,'200.159.120.34',1173103960,1,0,1,1,1,0,'','','My point of view:\n\nI use Firebird for 2 or 3 years with Delphi and Fivewin.\nAbout FW, I used it with a modified FW ODBC class and I never had problem. Since last year I use FW + xHB comercial + SQLRDD and work perfect.\n\nRegards,\nMaurilio','',0,'AIA=','3067hlk6',1,0,'',217,0,0),(27697,6138,6,103,0,'200.195.79.231',1173104172,1,0,1,1,1,1,'','','Hola Jose,\n\n     El autor de la xDevStudio es Vailton Renato (el mismo autor de la SQLLIB) y es la intención tener la xDevStudio en Español y Ingles, pero aun no tenemos una fecha determinada para tenerlo.\n\nSaludos,','',0,'AIA=','dbd4370b',1,0,'',103,0,0),(27698,6205,3,160,0,'59.95.201.125',1173107522,1,0,1,1,1,0,'','','Dear JMarson,\n\nCan you post here or somewhere a brief description of Winasp in English ? It will be quite helpful for non-spanish speaking persons like me.\n\nThanks in advance,.\n\nMilan.','',0,'AIA=','3w0kn853',1,0,'',160,0,0),(27699,6207,3,160,0,'59.95.201.125',1173109780,1,0,1,1,1,0,'','Anybody with success with NSLock  ?','Dear All,\n\nHas anybody met success with NSLock ? I am using FWH May-2006 build and Win-Xp SP2. But my following code gives me GPF.\n\n\nCan somebody help me ?\n\nTIA\nMilan.\n\n-----------------------Cut-------------------------------\n// FiveWin ActiveX support demo - Using Adobe Acrobat Reader\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oWnd, oActiveX, cLiberationKey := space(16)\n\n   DEFINE WINDOW oWnd TITLE \"FiveWin ActiveX Support\"\n\n   oActiveX = TActiveX():New( oWnd, \"nslock15vb5.ActiveLock\" )\n\n   oActiveX&#058;Do( \"Password\"           , \"rochinha\" )\n   oActiveX&#058;Do( \"SoftwareName\"       , \"5Volution\" )\n   oActiveX&#058;Do( \"LiberationKeyLength\", 16 )\n   oActiveX&#058;Do( \"SoftwareCodeLength\" , 16 )\n\n   //? oActiveX&#058;GetProp( \"SoftwareCode\" )\n\n   if ! oActiveX&#058;GetProp( \"RegisteredUser\" )\n      MsgGet( \"Entre a chave de liberacao\",; // Title\n              \"Chave:\",;                     // Label\n              @cLiberationKey )              // A variable by reference\n      oActiveX&#058;Do( \"LiberationKey\", cLiberationKey )\n   endif\n\n   if ! oActiveX&#058;GetProp( \"RegisteredUser\" )\n      if oActiveX&#058;GetProp( \"LastRunDate\" ) &gt; date()\n         ? \'Data foi retrocedida. Programa sera encerrado\'\n      else\n         ? \'Faltam \' + Str( 30 - oActiveX&#058;GetProp( \"UsedDays\" ) ) + \' dias.\'\n      endif\n      ? \'DEMONSTRACAO\'\n      oWnd:cCaption := \'DEMONSTRACAO\'\n      SysRefresh()\n   else\n      ? \'REGISTRADO\'\n      oWnd:cCaption := \'REGISTRADO\'\n      SysRefresh()\n   endif\n\n   //oWnd:oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n-------------------------------------Paste----------------------------','',0,'AIA=','30xn8ryd',1,0,'',160,0,0),(27700,6195,3,303,0,'72.199.41.171',1173109783,1,0,1,1,1,0,'','','Enrico and Antonio,\n\nThe problem is that he has a user created font and he needs to find the face name and point size. oFont:cFaceName works OK, but oFont:nSize() returns 50 for a point size of 8. What units is this 50? Is it a physical size or a device size (pixels or dots per inch). Can it be translated back to points? It would be better if it just returned the point size or if there was another method that did.\n\nJames','',0,'AIA=','5dgo1dft',1,0,'',303,0,0),(27701,6195,3,6,0,'82.61.68.134',1173111463,1,0,1,1,1,1,'','','oFont:nSize() returns the expected value for me. Try this sample:\n\n[code:2dygipli]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cVar &#58;= &quot;This is a test&quot;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 SAY &quot;This is a test&quot;;\n           COLOR CLR_BLACK\n\n    @ 3, 1 GET cVar;\n           SIZE 100, 20\n\n    @ 5, 1 BUTTON &quot;Change font&quot;;\n           SIZE 100, 20;\n           ACTION CHANGEFONT&#40; oWnd &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION CHANGEFONT&#40; oWnd &#41;\n\n    LOCAL oFont &#58;= oWnd&#58;GetFont&#40;&#41;&#58;Choose&#40;&#41;\n\n    LOCAL i\n\n    ? oFont&#58;nSize&#40;&#41;\n\n    oWnd&#58;SetFont&#40; oFont &#41;\n\n    FOR i = 1 TO LEN&#40; oWnd&#58;aControls &#41;\n        oWnd&#58;aControls&#91; i &#93;&#58;SetFont&#40; oFont &#41;\n        oWnd&#58;aControls&#91; i &#93;&#58;Refresh&#40;&#41;\n    NEXT\n\n    RETURN NIL[/code:2dygipli]\n\nEMG','',0,'AIA=','2dygipli',1,0,'',6,0,0),(27702,6208,6,131,0,'194.179.55.36',1173112223,1,0,1,1,1,0,'','tooltips de ballon en rebar','Hola:\nEn mi windows.prg he hecho el cambio\nhWnd = CreateToolTip( Self:hWnd, cToolTip, .t. ) //for ballon tooltips !\npara tener tooltips de balón. Si creo una ventana con una toolbar me aparecen los tooltip de balón, pero si lo que creo es una rebar el tooltip es el cuadrado de siempre. ¿ Porqué ?\n\nSaludos,','',0,'AIA=','1h7jt61n',1,0,'',131,0,0),(27703,6208,6,131,0,'194.179.55.36',1173112426,1,0,1,1,1,0,'','','Me respondo\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6113&amp;highlight=tooltip\">http://fivetechsoft.com/forums/viewtopi ... ht=tooltip</a><!-- m -->\n\nSaludos,','',0,'AIA=','1f2u6ob3',1,0,'',131,0,0),(27704,6209,6,198,0,'189.134.35.175',1173113433,1,0,1,1,1,1,'','Siguiendo con conla integraciond del grid de CANAL5','Hola de nuevo!\n\nSigo atorada con la integración del grid de canal5.  Hice lo siguiente:\n\n1.  Recompile  (con un archivo .BAT que amablemente RF me envio) e integre de nuevo la libreria con lo siguiente:\n     GRID.OBJ, HEADER.OBJ, FOOT.OBJ, COLUMNA.OBJ, DRIVES.OBJ y XSCRLL.OBJ...  al compilar estos dos últimos me envio algunos warnings que Antonio me indico que por no ser errores no había problema...\n\n2.  Agregue a mi script de compilación dicha librería pero a la hora de compilar mi  aplicación me manda errores como si no reconociera las funciones que estan en DRIVES y en XSCRLL:\n\nError: Unresolved external \'_HB_FUN__DBSKIPPER\' referenced from C:\\CANAL5\\GRID\\GRID32\\GRID32.LIB|grid\nError: Unresolved external \'_HB_FUN_PBMPWIDTH\' referenced from C:\\CANAL5\\GRID\\GRID32\\GRID32.LIB|grid\nError: Unresolved external \'_HB_FUN_PBMPHEIGHT\' referenced from C:\\CANAL5\\GRID\\GRID32\\GRID32.LIB|grid\nError: Unresolved external \'_HB_FUN_CDRIVES\' referenced from C:\\CANAL5\\GRID\\GRID32\\GRID32.LIB|grid\nError: Unresolved external \'_HB_FUN_XVSCRLL\' referenced from C:\\CANAL5\\GRID\\GRID32\\GRID32.LIB|grid\nError: Unresolved external \'_HB_FUN_XHSCRLL\' referenced from C:\\CANAL5\\GRID\\GRID32\\GRID32.LIB|grid\nError: Unresolved external \'_HB_FUN_GETTEXTWID\' referenced from C:\\CANAL5\\GRID\\GRID32\\GRID32.LIB|grid\n\n\nqué puedo hacer??? ya tengo varios dias con esto y nada...  si alguien ya hizo esto me podría ayudar.... la insistencia es porque estamos migrando  nuestro sistema  y tenemos ncantidad de grids en todala aplicación...\n\nMe falta agregar algo a los programas??? \n\nMil gracias de antemano!!!!\n\nLaura Edith Hernández H. <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'AIA=','1535v8aa',1,0,'',198,0,0),(27705,6195,3,303,0,'72.199.41.171',1173115418,1,0,1,1,1,0,'','','Enrico,\n\nYes, your example does seem to work, but this example really adds to the confusion. If you select Arial, 8pt, then aFont contains nWidth=0, nHeight=-11. It seems to be returning an 11pt font. Then when you create a font using these parameters, then oFont:nSize returns 8 not 11 as expected.\n\nSo, it seems the user selected size being returned by chooseFont() is incorrect. It is also confusing since nWidth contains zero and nHeight is really supposed to be the point size, but it is incorrect.\n\nAlso, if you build a font using the SIZE clause with a point size, then nSize is not returning the correct point size (assuming that is what nSize is supposed to do).\n\nJames \n\n\n\n[code:32iufgsj]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oFont,aFont,oWnd, cFacename\n\n   define window oWnd\n\n   aFont&#58;= chooseFont&#40;&#41;  // select Arial, 8pt\n\n   cFaceName&#58;= aFont&#91;LF_FACENAME&#93;\n   nWidth&#58;= aFont&#91;LF_WIDTH&#93;\n   nHeight&#58;= aFont&#91;LF_HEIGHT&#93;\n\n   // msgInfo&#40; aFont&#91;LF_FACENAME&#93;&#41;\n   msgInfo&#40; nWidth &#41; // returns 0\n   msgInfo&#40; nHeight &#41; // returns -11\n\n   DEFINE font oFont name cFaceName size nWidth, nHeight\n\n   activate window oWnd on init msgInfo&#40; oFont&#58;nSize &#41;\n\nreturn nil[/code:32iufgsj]','',0,'AIA=','32iufgsj',1,0,'',303,0,0),(27707,6209,6,138,0,'189.141.72.59',1173116088,1,0,1,1,1,1,'','','Laura:\n\nA ver.... el codigo en C ya no es necesario compilarlo por fuera porque se añadio al final del código fuente de GRID.PRG. entre un #PRAGMA BEGINDUMP y #PRAGMA ENDDUMP\n\nLa funcion cDrives se cambio por otra función escrita en FiveWin y tambien se añadio al final del GRID.PRG.\n\nAsi que el BAT de compilacion debio de quedar asi:\n\n[code:1geshz4i]harbour grid /m /n /ic&#58;\\xharbour\\include;c&#58;\\fwh\\include\nharbour columna /m /n /ic&#58;\\xharbour\\include;c&#58;\\fwh\\include\nharbour foot /n /ic&#58;\\xharbour\\include;c&#58;\\fwh\\include\nharbour header /m /n /ic&#58;\\xharbour\\include;c&#58;\\fwh\\include\n\nbcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -Ic&#58;\\xHarbour\\include&#58;c&#58;\\fwh\\include grid&#46;c\nbcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -Ic&#58;\\xHarbour\\include&#58;c&#58;\\fwh\\include columna&#46;c\nbcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -Ic&#58;\\xHarbour\\include&#58;c&#58;\\fwh\\include foot&#46;c\nbcc32 -D__HARBOUR__;HB_API_MACROS;HB_FM_STATISTICS_OFF -O2 -c -Ic&#58;\\xHarbour\\include&#58;c&#58;\\fwh\\include header&#46;c\n\nDEL grid32&#46;lib\n\nTLIB grid32&#46;lib +grid&#46;obj\nTLIB grid32&#46;lib +columna&#46;obj\nTLIB grid32&#46;lib +foot&#46;obj\nTLIB grid32&#46;lib +header&#46;obj[/code:1geshz4i]\n\nAqui la LIB la probamos y esta funcionando perfectamente con :\n\nFWH 2.5, 2.6, 2.7, 2.8 y 7.01','',0,'AIA=','1geshz4i',1,0,'',138,0,0),(27708,6210,7,527,0,'83.42.42.158',1173116196,1,0,1,1,1,0,'','como puedo grabar un ficheo ascii con varias lineas','como puedo grabar un ficheo ascii con varias lineas','',0,'AIA=','wbn0hyxe',1,0,'',527,0,0),(27709,6207,3,138,0,'189.141.72.59',1173117541,1,0,1,1,1,1,'','','The Sentinel Super Pro hardkey has a native (x)Harbour driver developed by ourselves.\n\nIt supports all the features of the lock using both, native C functions or the TSentinel Class.','',0,'AIA=','cip2x0ve',1,0,'',138,0,0),(27710,6211,6,838,0,'80.59.225.15',1173117858,1,0,1,1,1,0,'','Una de e-mail','Hola amigos\n\nA fin de enviar a fin de mes las facturas en pdf via e-mail, a los clientes que así lo desean, estoy utilizando unas rutinas que lo hacen a través de blat.exe, y funciona perfectamente a excepción de la confirmación de lectura, que no me retorna si ha sido leido.\n\nEstoy haciendo pruebas con el siguiente codigo[code:2y1r1mwm]#include &quot;Fivewin&#46;ch&quot;\n#define olMailItem 0 \n\n\nFUNCTION MAIN&#40;&#41; \n    LOCAL oOutlook, oMail \n    oOutlook = CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41; \n    oMail = oOutlook&#58;CreateItem&#40; olMailItem &#41; \n    oMail&#58;Recipients&#58;Add&#40; &quot;cliente@cliente&#46;com&quot; &#41; \n    oMail&#58;Subject = &quot;Test&quot; \n    oMail&#58;Attachments&#58;Add&#40; &quot;c&#58;\\pdf\\0042126472&#46;pdf&quot; &#41; \n //   oMail&#58;HTMLBody = MEMOREAD&#40; &quot;c&#58;\\xharbour\\test&#46;htm&quot; &#41; \n    oMail&#58;Send&#40;&#41; \n    oOutlook&#58;Quit&#40;&#41; \n    RETURN NIL[/code:2y1r1mwm]\n\nPero no se que hay que poner para recibir una confirmacion de lectura.\n\nTambién me gustaría saber como quitar el aviso que sale que dice que otra aplicación está intentando enviar un correo, puede tratarse de un virus.\n\nEn Outlook expres hay un checkbox que deshabilitandolo no sale, pero en Outlook no consigo localizarlo.\n\nSaludos\n\nJose Luis','',0,'AIA=','2y1r1mwm',1,0,'',838,0,0),(27711,6201,3,904,0,'198.54.202.210',1173118114,1,0,1,1,1,1,'','','Thank you.\n\nWhen you click Preview - run time error:\n\n Error description: Error BASE/1111  Argument error: LEN\n   Args:\n     [   1] = U   \n\n\nStack Calls\n===========\n   Called from:  =&gt; CFACENAME(0)\n   Called from: genrep.prg =&gt; PREVIEW(143)\n   Called from: genrep.prg =&gt; (b)GENCHILD(37)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: genrep.prg =&gt; MAIN(19)','',0,'','1y7m61ye',1,0,'',904,0,0),(27712,6212,3,904,0,'198.54.202.210',1173118184,1,0,1,1,1,1,'','Setup Program','I need a Setup / Installation program,\n\nI remember coming across one, can\'t remember if it was in Samples or Contributions, but now I can\'t find it again.\n\nCan anyone help please?','',0,'','1t51u66g',1,0,'',904,0,0),(27713,6212,3,138,0,'189.141.72.59',1173120222,1,0,1,1,1,1,'','','The best setup program by far is InnoSetup, the most of us use it for programm instalation, is a free for use even for commercial applications.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.jrsoftware.org/isinfo.php\">http://www.jrsoftware.org/isinfo.php</a><!-- m -->\n\nIt works based on a Script \"compiling\" all your program resources (EXE, DLL, DBF, etc) and \"melting\" them all together into a single INSTALL.EXE file.\n\nIt\'s fully customizable, you can create directories, indicate where to place certain files, such DLLs, you can also create or modify entries in the registry or register DLL for Activex.\n\nIt\'s multilanguage also, you can specify in which language you want the installation to be performed.','',0,'','33dadtw0',1,0,'',138,0,0),(27714,6210,7,138,0,'189.141.72.59',1173120500,1,0,1,1,1,1,'','','Asi:\n\ncText := \"primera linea\"+CRLF\ncText += \"segunda linea\"+CRLF\ncText += \"tercera linea\"+CRLF\n....\n....\n....\ncText += \"n-sima linea\"+CRLF\n\nMEMOWRIT(curdir()+\"\\archivo.txt\",cText)','',0,'','1uh430cs',1,0,'',138,0,0),(27715,6206,6,138,0,'189.141.72.59',1173120729,1,0,1,1,1,1,'','','[code:7v7ymu90]REDEFINE SAY oSay PROMPT Alias1-&gt;campo\nREDEFINE SAY oSay2 PROMPT Alias2-&gt;campo\n\nREDEFINE GET oGet VAR Alias1-&gt;campo\nREDEFINE GET oGet1 VAR alias2-&gt;campo\n\nalias1-&gt;&#40;fieldget&#40;campo&#41;&#41;\nalias2-&gt;&#40;fieldput&#40;campo&#41;&#41;[/code:7v7ymu90]\n\nY listo, siempre con el nombre del alias por delante.','',0,'AIA=','7v7ymu90',1,0,'',138,0,0),(27716,6195,3,6,0,'82.61.68.134',1173123287,1,0,1,1,1,1,'','','I think that you are confusing points with pixels.\n\nEMG','',0,'AIA=','2snhct83',1,0,'',6,0,0),(27717,6204,6,131,0,'83.53.155.177',1173125734,1,0,1,1,1,0,'','','Gracias,','',0,'AIA=','20q2rjw8',1,0,'',131,0,0),(27718,6195,3,303,0,'72.199.41.171',1173126116,1,0,1,1,1,0,'','','Enrico,\n\n&gt;I think that you are confusing points with pixels.\n\nWell, I mentioned that it is confusing since the docs don\'t state what units each of the methods is returning.\n\nBut, if you get back 0,-11 as the sizes when you choose an 8pt font, what does it mean? Is 11 the size in pixels? If so, for what device since no device was specified? Also, then how can you use this information to create an 8pt font?\n\nWhat is useful is to use points since they are independent of the display device. If you saved the pixel dimensions from one device then tried to restore them for use on a different device you would, obviously, not get the same size font. Conversely, if you save the font size in points and then restore it in points, it will be the same size regardless of the display device.\n\nJames','',0,'AIA=','1drg4gyj',1,0,'',303,0,0),(27719,6212,3,904,0,'198.54.202.210',1173126538,1,0,1,1,1,1,'','','wow. \n\nSuper.\n\nThanks.','',0,'AIA=','j5lr3rqa',1,0,'',904,0,0),(27720,6197,3,435,0,'200.155.195.31',1173128239,1,0,1,1,1,0,'','','Eu estou usando MySQL por mais de 3 anos e o unico problema que tenho quando uso WinXP, se o usuario desligar o Servidor ..corrompe as tabelas.\n\nO FireBird acontece isso ?','',0,'AIA=','3hyakhbn',1,0,'',435,0,0),(27721,6195,3,6,0,'82.61.28.185',1173129989,1,0,1,1,1,1,'','','Ok, let\'s start from the beginning. Please reformulate the problem and the question as I lost the track.\n\nEMG','',0,'AIA=','1s3lgc43',1,0,'',6,0,0),(27722,6213,2,832,0,'201.116.83.242',1173130799,1,0,1,1,1,0,'','¡¡ AYUDA COMO IMPRIMIR EN IMPRESORA POR COM !!!','HOLA A TODOS...\n\n\nESTOY TRATANDO EN IMPRIMIR EN UN IMPRESORA EPSON LX-300, DE PUERTO COM, PERO NO HE PODIDO....\n\n\nSOLO ME PASARON ESTE FRAGMENTO DE CODIGO EN CLIPPER Y NO SE COMO ENVIAR DATOS A ESTE PUERTO Y PARA ESTO UTILIZO IOLIB.....\n\n\nESPERO Y ME PUEDAN AYUDAR....\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  Y GRACIAS POR SU AYUDA.... \n\npublic VERIFON:=\"SC5000\"\n     //IF INIT_PORT(COM4,BPS9600,NO_PARITY,EIGHT_DATA_BITS,ONE_STOP_BIT,IRQ2,@cBUFFER)\n     IF ABRE_PORT(COM4,BPS1200,EIGHT_DATA_BITS,NO_PARITY,ONE_STOP_BIT,IRQ3,@cBUFFER,\"TL850\")\n        ALERT(\"COM NO DISPONIBLE \")\n        RETURN\n     ENDIF\n\n     cBANDA:=LEE(100,\"SC5000\",.T.)\n     ?? cBANDA\n      wait \"cband\" //\n\n     //FECHA_PORT(\"SC5000\")\n  RETURN\n//***************************************************\n\nFUNCTION ABRE_PORT(nPORT,nVELOC,nDADOS,nPARIDADE,nPARADA,nIRQ,cBUFFER,cMODELO)\n   LOCAL lOK\n   //IRQ4:=4\n   lOK:=INIT_PORT(nPORT,nVELOC,nDADOS,nPARIDADE,nPARADA,nIRQ,@cBUFFER)\n   ?\"lok\",lok\n   wait \"lok\"\n\n    SETRTS(.T.) //Habilita RTS se for TL270\nRETURN(lOK)','',0,'AIA=','2miiz7u3',1,0,'',832,0,0),(27723,6195,3,303,0,'72.199.41.171',1173132354,1,0,1,1,1,0,'','','&gt;Please reformulate the problem and the question as I lost the track. \n\nOllie wants to be able to save and retore a user defined font.\n\nJames','',0,'AIA=','ix7mf4vm',1,0,'',303,0,0),(27724,6195,3,2,0,'87.218.146.67',1173132865,1,0,1,1,1,1,'','','James,\n\nFrom the Windows API docs:\n\n\"Specifies the height, in logical units, of the font\'s character cell or character\"','',0,'AIA=','3qi4131j',1,0,'',2,0,0),(27725,6202,3,148,0,'196.205.184.163',1173132942,1,0,1,1,1,0,'','','What about that error :\n\nApplication\n===========\n   Path and name: E:\\COMPILER\\clipper\\FWH\\SAMPLES\\fivedit.exe (32 bits)\n   Size: 1,156,608 bytes\n   Time from start: 0 hours 1 mins 43 secs \n   Error occurred at: 03/06/07, 00:14:23\n   Error description: Error BASE/44  Assigned value is wrong class: TTXTEDIT:NTOP\n   Args:\n     [   1] = U','',0,'','vei3h347',1,0,'',148,0,0),(27726,6195,3,6,0,'82.61.28.185',1173134514,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3is47y2s]Ollie wants to be able to save and retore a user defined font.[/quote:3is47y2s]\n\nThis is a working sample:\n\n[code:3is47y2s]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cVar &#58;= &quot;This is a test&quot;\n\n    LOCAL aFont &#58;= SELECTFONT&#40; oWnd &#41;\n\n    LOCAL aSaved\n\n    IF EMPTY&#40; aFont &#41;; RETURN NIL; ENDIF\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 SAY &quot;This is a test&quot;;\n           COLOR CLR_BLACK\n\n    @ 3, 1 GET cVar;\n           SIZE 100, 20\n\n    @ 5, 1 BUTTON &quot;Choose font&quot;;\n           SIZE 100, 20;\n           ACTION aFont &#58;= SELECTFONT&#40; oWnd &#41;\n\n    @ 7, 1 BUTTON &quot;Save font&quot;;\n           SIZE 100, 20;\n           ACTION aSaved &#58;= aFont\n\n    @ 9, 1 BUTTON &quot;Restore font&quot;;\n           SIZE 100, 20;\n           ACTION RESTOREFONT&#40; oWnd, aSaved &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\n#define FW_NORMAL 400\n\n\nSTATIC FUNCTION SELECTFONT&#40; oWnd &#41;\n\n    LOCAL aFont &#58;= CHOOSEFONT&#40;&#41;\n\n    LOCAL oFont &#58;= BUILDFONT&#40; aFont &#41;\n\n    IF oFont = NIL; RETURN NIL; ENDIF\n\n    IF oWnd != NIL; REFRESHWND&#40; oWnd, oFont &#41;; ENDIF\n\n    RETURN aFont\n\n\nSTATIC FUNCTION RESTOREFONT&#40; oWnd, aFont &#41;\n\n    LOCAL oFont &#58;= BUILDFONT&#40; aFont &#41;\n\n    IF oFont = NIL; RETURN NIL; ENDIF\n\n    REFRESHWND&#40; oWnd, oFont &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION BUILDFONT&#40; aFont &#41;\n\n    IF EMPTY&#40; aFont&#91; LF_FACENAME &#93; &#41;\n        RETURN NIL\n    ENDIF\n\n    RETURN TFont&#40;&#41;&#58;New&#40; aFont&#91; LF_FACENAME &#93;,;\n                        ,;\n                        aFont&#91; LF_HEIGHT &#93;,;\n                        &#46;f&#46;,;\n                        !&#40; aFont&#91; LF_WEIGHT &#93; == FW_NORMAL &#41;,;\n                        aFont&#91; LF_ESCAPEMENT &#93;,;\n                        aFont&#91; LF_ORIENTATION &#93;,;\n                        aFont&#91; LF_WEIGHT &#93;,;\n                        aFont&#91; LF_ITALIC &#93;,;\n                        aFont&#91; LF_UNDERLINE &#93;,;\n                        aFont&#91; LF_STRIKEOUT &#93;,;\n                        aFont&#91; LF_CHARSET &#93;,;\n                        aFont&#91; LF_OUTPRECISION &#93;,;\n                        aFont&#91; LF_CLIPPRECISION &#93;,;\n                        aFont&#91; LF_QUALITY &#93;,;\n                        ,;\n                        aFont&#91; LF_PITCHANDFAMILY &#93; &#41;\n\n\nSTATIC FUNCTION REFRESHWND&#40; oWnd, oFont &#41;\n\n    LOCAL i\n\n    oWnd&#58;SetFont&#40; oFont &#41;\n\n    FOR i = 1 TO LEN&#40; oWnd&#58;aControls &#41;\n        oWnd&#58;aControls&#91; i &#93;&#58;SetFont&#40; oFont &#41;\n        oWnd&#58;aControls&#91; i &#93;&#58;Refresh&#40;&#41;\n    NEXT\n\n    RETURN NIL[/code:3is47y2s]\n\nEMG','',0,'gIA=','3is47y2s',1,0,'',6,0,0),(27729,6202,3,2,0,'87.218.146.67',1173136960,1,0,1,1,1,1,'','','Ehab,\n\nPlease remove \"AS NUMERIC\" from these lines in the Class TTxtEdit:\n\n   DATA   nRow, nCol AS NUMERIC           // Phisical row and col\n   DATA   nLineRow, nLineCol AS NUMERIC   // Logical row and col','',0,'EA==','2j4rozm6',1,0,'',2,0,0),(27730,6216,3,261,0,'63.196.154.4',1173138176,1,0,1,1,1,1,'','MP4 Video with tvideo class.','We are utilizing the tvideo class with MPG type files.  One question is we would like to utilize the newer MP4 files.  As well as we would like to expand the video to full screen.  We have gotten the MPG files to play but cannot expand to full screen.  We have not been able to get the MP4 files to play.  I would like to also utilize this for playing movies at my home as well.  Anybody with experience please jump in.\n\nThanks, \n\nByron...','',0,'EA==','2x9jtfjz',1,0,'',261,0,0),(27731,6201,3,2,0,'87.218.146.67',1173139319,1,0,1,1,1,1,'','','Ollie,\n\nPlease add these lines to the sample:\n\nline 125:\n         if ! Empty( oWndChild:aControls )\n\nline 141:\n                    oCtrl:GetFont() \n\nline 161:\nendif\n\nPlease keep in mind that those FW samples are just small prototypes with the intention to show FW source code and provide inspiring ideas','',0,'EA==','2vstqdeo',1,0,'',2,0,0),(27732,6196,6,141,0,'200.88.94.8',1173142246,1,0,1,1,1,1,'','','Gracias Antonio,\n\nDescargue la correspondiente al 17 de septiembre de 2006\n\nAbrazos,','',0,'EA==','1jpq016q',1,0,'',141,0,0),(27733,6189,2,890,0,'190.9.66.196',1173142921,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:8du8m8ku]Jairo,\n\nPor favor envíame por email el fichero RC que estás usando, gracias[/quote:8du8m8ku]\n\nAntonio te envìe el Rc po tu email\n\nUn abrazo\nMuy agradecido por tus explicasiones\n\nJairo Barbosa','',0,'gA==','8du8m8ku',1,0,'',890,0,0),(27735,6217,6,774,0,'200.72.179.185',1173143177,1,0,1,1,1,1,'','RBAR:::::','se podria incluir un Brush en la clase Trebar... como seria eso....\n\ny lo otro en TRebar se podria poner un bitmap,, pero q solo sea de adorno,, como un logo,,, algo asi... \n\n\nGRACIAS....:','',0,'gA==','qtnjcdwc',1,0,'',774,0,0),(27736,6207,3,397,0,'201.42.10.101',1173144017,1,0,1,0,1,1,'','','Hello,\n\nWhat GPF you found?\n\nI test the example in a Windows Server 2003 and XP/ME in virtual PC.','',0,'gA==','33a0zqer',1,0,'',397,0,0),(27737,6218,6,694,0,'200.189.112.21',1173145726,1,0,1,1,1,1,'','Trocar imagem de uma MSGBAR','Amigos, como posso trocar a imagem de um item MSGBAR:\n\nDEFINE MSGITEM oMiCasill2 OF oWnd:oMsgBar    ;\n              BITMAP \"BD2\" ;\n              TOOLTIP \"Conexão com o Banco de Dados\"\n\nQuero trocar a imagem em tempo de execução!\n\nDesde já agradeço!\n\nAokisantos','',0,'gA==','3uv2ohcv',1,0,'',694,0,0),(27738,6207,3,397,0,'201.42.10.101',1173147706,1,0,1,0,1,1,'','','This is the new code\n\n[code:re71dspy]\n// FiveWin ActiveX support demo - Using Adobe Acrobat Reader\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX, cLiberationKey &#58;= space&#40;16&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;nslock15vb5&#46;ActiveLock&quot; &#41;\n\n   oActiveX&#58;SetProp&#40; &quot;Password&quot;, &quot;rochinha&quot; &#41;\n   oActiveX&#58;SetProp&#40; &quot;SoftwareName&quot;, &quot;5Volution&quot; &#41;\n   oActiveX&#58;SetProp&#40; &quot;LiberationKeyLength&quot;, 8 &#41;\n   oActiveX&#58;SetProp&#40; &quot;SoftwareCodeLength&quot; , 8 &#41;\n\n   if ! oActiveX&#58;GetProp&#40; &quot;RegisteredUser&quot; &#41;\n      MsgGet&#40; &quot;Entre a chave de liberacao&quot;,; // Title\n              &quot;Chave&#58; &#40;&quot;+oActiveX&#58;GetProp&#40; &quot;SoftwareCode&quot; &#41;+&quot;&#41;&quot;,; // Label\n              @cLiberationKey &#41;              // A variable by reference\n      oActiveX&#58;SetProp&#40; &quot;LiberationKey&quot;, alltrim&#40;cLiberationKey&#41; &#41;\n   endif\n\n   if ! oActiveX&#58;GetProp&#40; &quot;RegisteredUser&quot; &#41;\n      if oActiveX&#58;GetProp&#40; &quot;LastRunDate&quot; &#41; &gt; date&#40;&#41;\n         ? \'Data foi retrocedida&#46; Programa sera encerrado\'\n      else\n         ? \'Faltam \' + Str&#40; 30 - oActiveX&#58;GetProp&#40; &quot;UsedDays&quot; &#41; &#41; + \' dias&#46;\'\n      endif\n      ? \'DEMONSTRACAO\'\n      oWnd&#58;cCaption &#58;= \'DEMONSTRACAO\'\n      SysRefresh&#40;&#41;\n   else\n      ? \'REGISTRADO\'\n      oWnd&#58;cCaption &#58;= \'REGISTRADO\'\n      SysRefresh&#40;&#41;\n   endif\n\n   //oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oWnd \n\nreturn nil\n[/code:re71dspy]\n\nRemember if you registered the .OCX in your system:\n\nC:\\WINDOWS\\SYSTEM32\\REGSVR32 C:\\???\\NSLOCK15VB5.OCX','',0,'AIA=','re71dspy',1,0,'',397,0,0),(27739,6201,3,397,0,'201.42.10.101',1173148605,1,0,1,0,1,1,'','','Friend\n\nTake a look at this Fivewin Utility:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=472\">http://www.fivewin.com.br/exibedicas.asp?id=472</a><!-- m -->','',0,'AIA=','1f2wc6rt',1,0,'',397,0,0),(27740,6219,6,54,0,'189.132.99.3',1173163822,1,0,1,1,1,1,'','SCROLL en WINDOW','Amigos,\n\nAlguien podria auxiliarme para hacer funcionar los scroll en Window.\n\nTengo lo siguiente sin funcionar:\n[code:mccuhw2e]DEFINE WINDOW oWnd MDI TITLE &quot;Sin funcionar&quot; VSCROLL HSCROLL\nACTIVATE WINDOW oWnd[/code:mccuhw2e]\n\nSi creo una ventana hija, y la muevo al final de la ventana, pues si aparecen los scroles, pero al moverlo, la ventana hija no sube.\n\nSaludos y gracias de antemano','',0,'AIA=','mccuhw2e',1,0,'',54,0,0),(27741,6206,6,92,0,'213.96.45.9',1173165732,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:1qvqbs0x][code:1qvqbs0x]REDEFINE SAY oSay PROMPT Alias1-&gt;campo\nREDEFINE SAY oSay2 PROMPT Alias2-&gt;campo\n\nREDEFINE GET oGet VAR Alias1-&gt;campo\nREDEFINE GET oGet1 VAR alias2-&gt;campo\n\nalias1-&gt;&#40;fieldget&#40;campo&#41;&#41;\nalias2-&gt;&#40;fieldput&#40;campo&#41;&#41;[/code:1qvqbs0x]\n\nY listo, siempre con el nombre del alias por delante.[/quote:1qvqbs0x]\n\nGracias Rene,\n\nEs lo que me temía, con Relation lo que consigo es situarme en el registro adecuado,..... pero ... lo que es la gestión bajo un solo \'alias\', bloqueos, grabación, borrado , etc. deberé seguir haciéndolo a mano.\n\nPor cierto sabes si en Harbour, la clase TDatabase basa su gestión de acceso a los campos (de la manera oMiDatabase:Micampo) provocando un error en la clase, o se \'crea\' un método para cada campo?\n\nSaludos y gracias\nCarlos G.','',0,'gIA=','1qvqbs0x',1,0,'',92,0,0),(27742,6212,3,239,0,'218.19.75.243',1173166579,1,0,1,1,1,0,'','','We use nsis ,  you  can search and download nsis at sourceforge.org\n\nShuming Wang\n\nremodified March 6','',0,'gIA=','3qowsv52',1,1173252867,'',239,1,0),(27743,6220,4,13,0,'213.76.252.200',1173167611,1,0,1,1,1,0,'','Dialog title','Antonio,\n\nHow to set to second dialog title ? When second dialog is loaded, dialog title doesn\'t change.\n\nRegards\nPawel\n\n[code:fmj3busx]\n// prg file\n#Include \'FwCe&#46;Ch\'\n\nFunction Test1 &#40;&#41;\n\n   Local oDlg &#58;= Nil\n\n   Define Dialog oDlg Resource \'TEST1\'\n   ReDefine Button Id 1001 of oDlg Action Test2 &#40;&#41;\n   Activate Dialog oDlg On Init DlgFullScr &#40;oDlg &#58; hWnd&#41;\n\nReturn &#46;T&#46;\n\nFunction Test2 &#40;&#41;\n\n   Local oDlg &#58;= Nil\n\n   Define Dialog oDlg Resource \'TEST2\'\n   Activate Dialog oDlg On Init DlgFullScr &#40;oDlg &#58; hWnd&#41;\n  \nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC &#40;DLGFULLSCR&#41;\n&#123;\n   SHINITDLGINFO shidi;\n   HWND hDlg = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = hDlg;\n   shidi&#46;dwFlags = SHIDIF_EMPTYMENU|SHIDIF_SIZEDLGFULLSCREEN;\n   SHInitDialog &#40;&amp;shidi&#41;;\n&#125;\n\n#pragma ENDDUMP\n\n// rc file\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n\nLANGUAGE LANG_POLISH,SUBLANG_DEFAULT\n\nTEST1 DIALOG DISCARDABLE 0, 0, 136, 154\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;TEST1&quot;\nFONT 10, &quot;System&quot;\nBEGIN\n  CONTROL &quot;TEST1&quot;, 1001, &quot;Button&quot;, WS_TABSTOP, 100, 140, 34, 11\nEND\n\nTEST2 DIALOG DISCARDABLE 0, 0, 136, 154\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;TEST2&quot;\nFONT 10, &quot;System&quot;\nBEGIN\n  CONTROL &quot;TEST2&quot;, 1001, &quot;Button&quot;, WS_TABSTOP, 100, 140, 34, 11\nEND\n[/code:fmj3busx]','',0,'AIA=','fmj3busx',1,0,'',13,0,0),(27744,6189,2,2,0,'87.218.146.67',1173168824,1,0,1,1,1,1,'','','Jairo,\n\nTe hemos enviado tu PRG modificado y funcionando correctamente','',0,'AIA=','339dsryt',1,0,'',2,0,0),(27745,6220,4,6,0,'80.181.217.125',1173169050,1,0,1,1,1,1,'','Re: Dialog title','oDlg:cTitle( \"New title\" )\n\nEMG','',0,'AIA=','3jpob5nq',1,0,'',6,0,0),(27746,6216,3,6,0,'80.181.217.125',1173169198,1,0,1,1,1,1,'','Re: MP4 Video with tvideo class.','Can you send me a sample of this new format to test here?\n\nEMG','',0,'AIA=','3se2522b',1,0,'',6,0,0),(27747,6221,6,413,0,'194.106.16.43',1173171893,1,0,1,1,1,0,'','Bases de datos .DAT y indices .IDX','Alguien sabe con que abrir estas bases de datos .dat y indices .idx.....\n\n\nGracias.','',0,'AIA=','31vm4odl',1,0,'',413,0,0),(27748,6220,4,13,0,'213.76.252.200',1173172097,1,0,1,1,1,0,'','','Enrico,\n\nMethod cTitle() doesn\'t exist in dialog and window source. SetText() exists but doesn\'t work for second dialog call.\n\nRegards\nPawel','',0,'AIA=','2gimzzrk',1,0,'',13,0,0),(27749,6210,7,527,0,'88.12.145.50',1173172494,1,0,1,1,1,0,'','No me sirve','Necesito saber como se usa en FWRITE, cada FWRITE que haga necesito que se escriba en una linea distinta, el problema que tengo es que escribo el texto pero  no me salta de linea\nHe probado con el CTRLF  Y DESPUES CON EL CHR(10)+CHR(12)+CHR(13), pero sigue sin saltarme de linea, me escribe todo en una linea.\n\nLo que quiero es escribir un fichero ASCI con los pedidos para poder enviarlo por correo electronico.\n\nimjcc','',0,'AIA=','mw74hb5i',1,0,'',527,0,0),(27750,6191,6,24,0,'80.102.192.10',1173172840,1,0,1,1,1,1,'','','Totalmente de acuerdo con Marcelo, ademas, postgree te permite usarlo \ntanto en aplicaciones comerciales como libres, cosa que MySql no.\nVamos , seria intentar comparar un Ferrari con un utilitario comun, como un ford Fiesta, por ejemplo, sencillamente, no se puede comparar.','',0,'AIA=','2ypiwzqu',1,0,'',24,0,0),(27751,6220,4,6,0,'80.181.217.125',1173172960,1,0,1,1,1,1,'','','[code:1huvjkj0]METHOD cTitle&#40; cNewTitle &#41; CLASS TWindow[/code:1huvjkj0]\n\nEMG','',0,'AIA=','1huvjkj0',1,0,'',6,0,0),(27752,6222,3,962,0,'200.161.189.88',1173174628,1,0,1,1,1,1,'','Read all handles of controls, associate ONLY handle Win/Dlg','How read all handles of controls, associate ONLY handle Window/Dialog activate.\n\nobjective, realize refresh without require any object.\n\nExample:\n[code:wkfmzgzb]\nSetKey&#40;VK_F5, &#123;|a,b,c| ReadAllHandles&#40;&#41; &#125;&#41;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nfunction ReadAllHandles&#40;&#41;\nlocal nWnd,nHandle\n\nnWnd &#58;=GetActiveWindow&#40;&#41;\n//nHandle = nil, first control\ndo while &#46;t&#46;\n   nHandle&#58;=NEXTDLGTAB&#40;nWnd,nHandle&#41;\n\n   if ! MsgYesNo&#40;\'nHandle=&gt;\'+NTRIM&#40;nHandle&#41; + CHR&#40;13&#41; + ;\n      GetClassName&#40;nHandle&#41; + CHR&#40;13&#41; + ;\n      GetWindowText&#40;nHandle&#41; + CHR&#40;13&#41; + ;\n      \'GetParent&#40;nHandle&#41;=&gt;\'+ntrim&#40;GetParent&#40;nHandle&#41;&#41; ;\n      &#41;\n\n      exit\n\n   endif\n\nenddo\nreturn nil\n[/code:wkfmzgzb]\n\ntwo problems.\nIf Control be in SysTabControl32( TFolder ), not know how read.\nif Control be Disable, GetNextDlgTabItem skip handle control.\n\nPlease.','',0,'AIA=','wkfmzgzb',1,0,'',962,0,0),(27753,6220,4,2,0,'87.218.146.67',1173175613,1,0,1,1,1,1,'','','Pawel,\n\nIt looks as a side effect for using DlgFullScr(). If you don\'t call this function, then the captions are shown ok.\n\nThis is a workaround to get it working:\n[code:358e8kax]\nstatic oDlg1, oDlg2\n\nFunction Test1 &#40;&#41; \n\n   Define Dialog oDlg1 Resource \'TEST1\' \n   ReDefine Button Id 1001 of oDlg1 Action Test2 &#40;&#41; \n   Activate Dialog oDlg1 On Init DlgFullScr &#40;oDlg1 &#58; hWnd&#41; \n\nReturn &#46;T&#46; \n\nFunction Test2 &#40;&#41; \n\n   Define Dialog oDlg2 Resource \'TEST2\' \n   Activate Dialog oDlg2 On Init &#40; DlgFullScr &#40;oDlg2 &#58; hWnd&#41;, oDlg1&#58;SetText&#40; &quot;TEST2&quot; &#41; &#41;\n   oDlg1&#58;SetText&#40; &quot;TEST1&quot; &#41;\n  \nReturn &#46;T&#46; \n[/code:358e8kax]','',0,'AIA=','358e8kax',1,0,'',2,0,0),(27754,6210,7,2,0,'87.218.146.67',1173176601,1,0,1,1,1,1,'','','En vez de usar FWrite(), guarda el texto en una variable en memoria y sálvala al final como te indica René','',0,'AIA=','23gz3iw1',1,0,'',2,0,0),(27755,6207,3,160,0,'59.95.201.125',1173176999,1,0,1,1,1,0,'','','Dear Rochina,\n\nThanks. It worked like that.\n\nWhere can I get information in English abt NSLock ? Does it generate different key for the different computer ?\n\nTIA\nMilan.','',0,'AIA=','321xcvw7',1,0,'',160,0,0),(27756,6207,3,160,0,'59.95.201.125',1173177090,1,0,1,1,1,0,'','','Dear RF,\n\nYour <!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w --> seems to be down today. I am not able to access it. Can you send me more information about Sentinel Super Pro ?\n\nTIA\nMilan.\n\n[quote=&quot;RF&quot;:13mzozlf]The Sentinel Super Pro hardkey has a native (x)Harbour driver developed by ourselves.\n\nIt supports all the features of the lock using both, native C functions or the TSentinel Class.[/quote:13mzozlf]','',0,'gA==','13mzozlf',1,0,'',160,0,0),(27757,6195,3,904,0,'196.25.255.210',1173177888,1,0,1,1,1,1,'','','Thanks for all the effort so far, but my problem comes when printing.\n\nThis code shows the problem:\n\n1. When creating the second font Size() goes negative (although that I can overcome, it would be nice to understand why it happens)\n\n2. When I introduce the printer object, the Height and Width goes crazy.\nI want to use the User\'s saved font to print with.\n\n\n[code:bww2t9x1]STATIC PROCEDURE font_test&#40;&#41;\n   //Let user select a font\n   LOCAL oFont1,oFont2\n\n   //Select a Font1\n   oFont1&#58;=Tfont&#40;&#41;&#58;Choose&#40;&#41;\n   ? &quot;Font1 - Selected by user&#58; Width/Height/Size&#58;&quot;,oFont1&#58;nWidth,oFont1&#58;nHeight,oFont1&#58;nSIZE&#40;&#41;\n   //Now create a font2\n   //METHOD New &#40; cFaceName, nWidth, nHeight, lFromUser,; lBold, nEscapement, nOrientation, nWeight, lItalic,; lUnderline, lStrikeOut, nCharSet, nOutPrecision,; nClipPrecision, nQuality, oDevice &#41;\n\n   oFont2 &#58;= TFONT&#40;&#41;&#58;New&#40; oFont1&#58;cFaceName,;\n   oFont1&#58;nWidth,;\n   oFont1&#58;nHeight,;\n   &#46;F&#46;,; //lFromUser\n   oFont1&#58; lBold,;\n   oFont1&#58;nEscapement,;\n   oFont1&#58;nOrientation,;\n   oFont1&#58;nWeight,;\n   oFont1&#58;lItalic,;\n   oFont1&#58;lUnderline,;\n   oFont1&#58;lStrikeOut,;\n   oFont1&#58;nCharSet,;\n   oFont1&#58;nOutPrecision,;\n   oFont1&#58;nClipPrecision,;\n   oFont1&#58;nQuality&#41;\n   //oDevice\n   ? &quot;Font2 - Create from Font1&#58; Width/Height/Size&#58;&quot;,oFont2&#58;nWidth,oFont2&#58;nHeight,oFont2&#58;nSIZE&#40;&#41;\n   PRINTER oDevice NAME &quot;Labels&quot; PREVIEW\n   oFont2 &#58;= TFONT&#40;&#41;&#58;New&#40; oFont1&#58;cFaceName,;\n   oFont1&#58;nWidth,;\n   oFont1&#58;nHeight,;\n   &#46;F&#46;,; //lFromUser\n   oFont1&#58; lBold,;\n   oFont1&#58;nEscapement,;\n   oFont1&#58;nOrientation,;\n   oFont1&#58;nWeight,;\n   oFont1&#58;lItalic,;\n   oFont1&#58;lUnderline,;\n   oFont1&#58;lStrikeOut,;\n   oFont1&#58;nCharSet,;\n   oFont1&#58;nOutPrecision,;\n   oFont1&#58;nClipPrecision,;\n   oFont1&#58;nQuality,;\n   oDevice&#41;\n   ? &quot;Font2 - oDevice added&#46; Create from Font1&#58; Width/Height/Size&#58;&quot;,oFont2&#58;nWidth,oFont2&#58;nHeight,oFont2&#58;nSIZE&#40;&#41;\n   RETURN[/code:bww2t9x1]','',0,'AIA=','bww2t9x1',1,0,'',904,0,0),(27758,6220,4,13,0,'213.76.252.200',1173179454,1,0,1,1,1,0,'','','Antonio,\n\nIs there a method to set focus to dialog control ? In window this command work as expected:\n[code:v9a62fxk]\nActivate Window oWnd On Init oCtl &#58; SetFocus &#40;&#41;\n[/code:v9a62fxk]\nIn dialog focus is set to first control with WS_TABSTOP message. Command:\n[code:v9a62fxk]\nActivate Dialog oDlg On Init oCtl &#58; SetFocus &#40;&#41;\n[/code:v9a62fxk]\ndon\'t move focus to oCtl control.\n\nThanks for help\nPawel\n\nWorking sample:\n[code:v9a62fxk]\n// prg file\n#Include \'FwCe&#46;Ch\'\n\nFunction Test &#40;&#41;\n\n   Local oDlg &#58;= Nil\n   Local oGet &#58;= Nil\n   Local cGet &#58;= \'\'\n   Local nGet &#58;= 999999&#46;99\n\n   Define Dialog oDlg Resource \'NALKPKW\'\n   ReDefine Get cGet Id 1015 Of oDlg MultiLine\n   ReDefine Get oGet Var nGet Id 1018 Of oDlg Picture \'999,999&#46;99\'\n   Activate Dialog oDlg On Init &#40;DlgFullScr &#40;oDlg &#58; hWnd&#41;, oGet &#58; SetFocus &#40;&#41;&#41;\n\nReturn &#46;T&#46;\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC &#40;DLGFULLSCR&#41;\n&#123;\n   SHINITDLGINFO shidi;\n   HWND hDlg = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n\n   shidi&#46;dwMask  = SHIDIM_FLAGS;\n   shidi&#46;hDlg    = hDlg;\n   shidi&#46;dwFlags = SHIDIF_EMPTYMENU|SHIDIF_SIZEDLGFULLSCREEN;\n   SHInitDialog &#40;&amp;shidi&#41;;\n&#125;\n\n#pragma ENDDUMP\n\n// rc file\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n\nLANGUAGE LANG_POLISH,SUBLANG_DEFAULT\n\nNALKPKW DIALOG DISCARDABLE 0, 0, 136, 154\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;KP/KW&quot;\nFONT 10, &quot;System&quot;\nBEGIN\n  CONTROL &quot;Numer&#58;&quot;, 1001, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 2, 26, 11\n  CONTROL &quot;Data&#58;&quot;, 1002, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 14, 26, 11\n  CONTROL &quot;Klient&#58;&quot;, 1003, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 26, 26, 11\n  CONTROL &quot;Tytul&#58;&quot;, 1004, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 48, 26, 11\n  CONTROL &quot;Wart/Z&#58;&quot;, 1005, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 80, 26, 11\n  CONTROL &quot;Kwota&#58;&quot;, 1006, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 92, 26, 11\n  CONTROL &quot;Nr wew&#58;&quot;, 1007, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 68, 92, 30, 11\n  CONTROL &quot;Ulica&#58;&quot;, 1008, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 104, 26, 11\n  CONTROL &quot;Pna&#58;&quot;, 1009, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 116, 26, 11\n  CONTROL &quot;Miasto&#58;&quot;, 1010, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 128, 26, 11\n  CONTROL &quot;&quot;, 1011, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 26, 2, 42, 11\n  CONTROL &quot;&quot;, 1012, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 26, 14, 42, 11\n  CONTROL &quot;&quot;, 1013, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 70, 14, 42, 11\n  CONTROL &quot;&quot;, 1014, &quot;Edit&quot;, ES_MULTILINE|ES_AUTOVSCROLL|ES_UPPERCASE|ES_READONLY|WS_VSCROLL|WS_BORDER, 26, 26, 108, 21\n  CONTROL &quot;&quot;, 1015, &quot;Edit&quot;, ES_MULTILINE|ES_AUTOVSCROLL|ES_UPPERCASE|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 26, 48, 108, 31\n  CONTROL &quot;&quot;, 1016, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 26, 80, 42, 11\n  CONTROL &quot;&quot;, 1017, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 70, 80, 42, 11\n  CONTROL &quot;&quot;, 1018, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 26, 92, 42, 11\n  CONTROL &quot;&quot;, 1019, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 98, 92, 36, 11\n  CONTROL &quot;&quot;, 1020, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 26, 104, 108, 11\n  CONTROL &quot;&quot;, 1021, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 26, 116, 32, 11\n  CONTROL &quot;&quot;, 1022, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 26, 128, 108, 11\n  CONTROL &quot;Zapisz&quot;, 1023, &quot;Button&quot;, WS_TABSTOP, 64, 140, 34, 11\n  CONTROL &quot;Anuluj&quot;, 1024, &quot;Button&quot;, WS_TABSTOP, 100, 140, 34, 11\nEND\n[/code:v9a62fxk]','',0,'AIA=','v9a62fxk',1,0,'',13,0,0),(27759,6210,7,527,0,'88.12.145.50',1173179510,1,0,1,1,1,0,'','no puedo usar una variable','no puedo usar una variable, ya el el pedido puede tener hasta 100 lineas, entonces no va a coger toda la variable en memoria y pueden ser varios pedidos de distintos clientes.','',0,'AIA=','2sqyp4ag',1,0,'',527,0,0),(27760,6197,3,217,0,'200.159.120.34',1173179569,1,0,1,1,1,0,'','','Ari,\n\nExistem muitas situações em que se corrompe bancos de dados, com o Firebird não é diferente, entretanto é mais seguro que os DBFs (não sei comparar com relação ao MySQL...).\nNo guia de referência do FB, há uma lista de coisas que *podem* corromper o BD, como desligar o servidor no meio de uma transação, copiar o arquivo com ele em uso, dentre outras situações...\nFelizmente nunca tive o desprazer de ver um arquivo FB corrompido, pois é um problema recuperar qualquer DB relacional corrompido. Quando ocorre de desligar o servidor por um motivo ou outro (queda de energia, por exemplo, e o mesmo não tenha nobreak), eu sempre passo um utilitário  pra verificar se esta tudo OK...\nMas há casos em que nem fico sabendo e o BD continua lá funcionando. Mas seguro morreu de velho.\n\n[ ]\'s\nMaurilio','',0,'','1bwew878',1,0,'',217,0,0),(27761,6221,6,785,0,'190.64.207.1',1173179868,1,0,1,1,1,0,'','','Andrés:\n\nPrueba con Advantage Data Architect.(ADS).\n\nSaludos\n\nRuben Fernandez.','',0,'','2jom1elu',1,0,'',785,0,0),(27762,6179,7,945,0,'80.32.177.143',1173180771,1,0,1,1,1,0,'','Muchas gracias','Muy buenas, ya ha solucionado el problema de la impresión muchas gracias por todo.','',0,'','nnnj1xo2',1,0,'',945,0,0),(27763,6220,4,2,0,'87.218.146.174',1173180870,1,0,1,1,1,1,'','','Pawel,\n\nYou have to do it this way:\n[code:2v1nvsp7]\nActivate Dialog oDlg On Init &#40; oCtl &#58; SetFocus &#40;&#41; , &#46;F&#46; &#41;\n[/code:2v1nvsp7]','',0,'AIA=','2v1nvsp7',1,0,'',2,0,0),(27764,6179,7,456,0,'217.127.39.57',1173182444,1,0,1,1,1,1,'','','Por curiosidad, cual ha sido la solución.','',0,'AIA=','2q5u05wv',1,0,'',456,0,0),(27765,6223,6,971,0,'150.214.30.26',1173182812,1,0,1,1,1,0,'','Saludos','[list]Con este código capturo y visualizo ficheros .bmp con clipper ,FW, y blinker. en pantalla y los grabo en base de datos\n\n\n@16,38 combobox oCombo var cfoto iTems aFiles valid (ofoto:loadbmp;(\"..\\album\\\"+cfoto+\".bmp\"),ofoto:refresh().t.) of oDlg\n\n@5,25 bitmap ofoto filename (\"..\\album\\\"+cfoto+\".bmp\") adjust size 280,210','',0,'','abrhl91v',1,0,'',971,0,0),(27766,6210,7,456,0,'217.127.39.57',1173183035,1,0,1,1,1,1,'','','[code:biihs5fp]\n  nHand&#58;=fCreate&#40;\'fichero&#46;txt\',FC_NORMAL&#41;\n   While !CabVta-&gt;&#40;Eof&#40;&#41;&#41;\n        fWrite&#40;nHand,Str&#40;CabVta-&gt;Total&#41;&#41;\n        fWrite&#40;nHand,\'lo que sea\'&#41;\n        fWrite&#40;nHand, Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n        CabVta-&gt;&#40;dbSkip&#40;&#41;&#41;\n    End\nfClose&#40;nHand&#41;[/code:biihs5fp]','',0,'AIA=','biihs5fp',1,0,'',456,0,0),(27768,6219,6,104,0,'201.58.19.204',1173183276,1,0,1,1,1,0,'','','Olá William,\n\nSegue abaixo exemplos para usar scroll em uma Window e Dialog.\n\n[code:10kdczhw]\n// Testing how to scroll a window with its contents\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define D_WIDTH           4\n#define D_HEIGHT          13\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oWnd,oScrWnd\nLOCAL cGet0101 &#58;= space&#40;10&#41;,  ; //Row 1\n      cGet0102 &#58;= space&#40;10&#41;,  ;\n      cGet0103 &#58;= space&#40;10&#41;,  ;\n      cGet0104 &#58;= space&#40;10&#41;,  ;\n      cGet0105 &#58;= space&#40;10&#41;,  ;\n      cGet0201 &#58;= space&#40;10&#41;,  ; //Row 2\n      cGet0202 &#58;= space&#40;10&#41;,  ;\n      cGet0203 &#58;= space&#40;10&#41;,  ;\n      cGet0204 &#58;= space&#40;10&#41;,  ;\n      cGet0205 &#58;= space&#40;10&#41;,  ;\n      cGet0301 &#58;= space&#40;10&#41;,  ; //Row 3\n      cGet0302 &#58;= space&#40;10&#41;,  ;\n      cGet0303 &#58;= space&#40;10&#41;,  ;\n      cGet0304 &#58;= space&#40;10&#41;,  ;\n      cGet0305 &#58;= space&#40;10&#41;,  ;\n      cGet0401 &#58;= space&#40;10&#41;,  ; //Row 4\n      cGet0402 &#58;= space&#40;10&#41;,  ;\n      cGet0403 &#58;= space&#40;10&#41;,  ;\n      cGet0404 &#58;= space&#40;10&#41;,  ;\n      cGet0405 &#58;= space&#40;10&#41;,  ;\n      cGet0501 &#58;= space&#40;10&#41;,  ; //Row 5\n      cGet0502 &#58;= space&#40;10&#41;,  ;\n      cGet0503 &#58;= space&#40;10&#41;,  ;\n      cGet0504 &#58;= space&#40;10&#41;,  ;\n      cGet0505 &#58;= space&#40;10&#41;,  ;\n      cGet0601 &#58;= space&#40;10&#41;,  ; //Row 6\n      cGet0602 &#58;= space&#40;10&#41;,  ;\n      cGet0603 &#58;= space&#40;10&#41;,  ;\n      cGet0604 &#58;= space&#40;10&#41;,  ;\n      cGet0605 &#58;= space&#40;10&#41;,  ;\n      cGet0701 &#58;= space&#40;10&#41;,  ; //Row 7\n      cGet0702 &#58;= space&#40;10&#41;,  ;\n      cGet0703 &#58;= space&#40;10&#41;,  ;\n      cGet0704 &#58;= space&#40;10&#41;,  ;\n      cGet0705 &#58;= space&#40;10&#41;,  ;\n      cGet0801 &#58;= space&#40;10&#41;,  ; //Row 8\n      cGet0802 &#58;= space&#40;10&#41;,  ;\n      cGet0803 &#58;= space&#40;10&#41;,  ;\n      cGet0804 &#58;= space&#40;10&#41;,  ;\n      cGet0805 &#58;= space&#40;10&#41;,  ;\n      cGet0901 &#58;= space&#40;10&#41;,  ; //Row 9\n      cGet0902 &#58;= space&#40;10&#41;,  ;\n      cGet0903 &#58;= space&#40;10&#41;,  ;\n      cGet0904 &#58;= space&#40;10&#41;,  ;\n      cGet0905 &#58;= space&#40;10&#41;,  ;\n      cGet1001 &#58;= space&#40;10&#41;,  ; //Row 10\n      cGet1002 &#58;= space&#40;10&#41;,  ;\n      cGet1003 &#58;= space&#40;10&#41;,  ;\n      cGet1004 &#58;= space&#40;10&#41;,  ;\n      cGet1005 &#58;= space&#40;10&#41;,  ;\n      cGet1101 &#58;= space&#40;10&#41;,  ; //Row 11\n      cGet1102 &#58;= space&#40;10&#41;,  ;\n      cGet1103 &#58;= space&#40;10&#41;,  ;\n      cGet1104 &#58;= space&#40;10&#41;,  ;\n      cGet1105 &#58;= space&#40;10&#41;\n\n   define window oWnd from 0, 0 TO 25, 70 ;\n         title &quot;Scroll Window&quot;            ;\n         vscroll hscroll\n\n   @ 9,17 bitmap file &quot;\\fwh\\bitmaps\\pic1&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,32 bitmap file &quot;\\fwh\\bitmaps\\pic2&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,47 bitmap file &quot;\\fwh\\bitmaps\\pic3&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,62 bitmap file &quot;\\fwh\\bitmaps\\pic4&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,77 bitmap file &quot;\\fwh\\bitmaps\\pic5&#46;bmp&quot; of oWnd size 120,148 adjust\n\n   @ 21*13,02*8 say &quot;Customer &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 23*13,02*8 say &quot;P&#46;O&#46; #   &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 25*13,02*8 say &quot;Style No&#46;&quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 27*13,02*8 say &quot;Fabrics  &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 29*13,02*8 say &quot;Fob      &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 31*13,02*8 say &quot;Q\'TY     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 33*13,02*8 say &quot;DEL&#46;     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 35*13,02*8 say &quot;MAKER    &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 37*13,02*8 say &quot;QTA      &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 39*13,02*8 say &quot;SIZE     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 41*13,02*8 say &quot;Size B/D &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 43*13,02*8 say &quot;REMARKS  &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   @ 21*13,17*8 say &quot;Venture  &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,32*8 say &quot;Sears    &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,47*8 say &quot;Kohl\'s   &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,62*8 say &quot;Kiss     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,77*8 say &quot;K-MART   &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   //-* Row 1\n   @ 23*13,17*8 get cGet0101 size 120,26 of oWnd update pixel\n   @ 23*13,32*8 get cGet0102 size 120,26 of oWnd update pixel\n   @ 23*13,47*8 get cGet0103 size 120,26 of oWnd update pixel\n   @ 23*13,62*8 get cGet0104 size 120,26 of oWnd update pixel\n   @ 23*13,77*8 get cGet0105 size 120,26 of oWnd update pixel\n\n   //-* Row 2\n   @ 25*13,17*8 get cGet0201 size 120,26 of oWnd update pixel\n   @ 25*13,32*8 get cGet0202 size 120,26 of oWnd update pixel\n   @ 25*13,47*8 get cGet0203 size 120,26 of oWnd update pixel\n   @ 25*13,62*8 get cGet0204 size 120,26 of oWnd update pixel\n   @ 25*13,77*8 get cGet0205 size 120,26 of oWnd update pixel\n\n   //-* Row 3\n   @ 27*13,17*8 get cGet0301 size 120,26 of oWnd update pixel\n   @ 27*13,32*8 get cGet0302 size 120,26 of oWnd update pixel\n   @ 27*13,47*8 get cGet0303 size 120,26 of oWnd update pixel\n   @ 27*13,62*8 get cGet0304 size 120,26 of oWnd update pixel\n   @ 27*13,77*8 get cGet0305 size 120,26 of oWnd update pixel\n\n   //-* Row 4\n   @ 29*13,17*8 get cGet0401 size 120,26 of oWnd update pixel\n   @ 29*13,32*8 get cGet0402 size 120,26 of oWnd update pixel\n   @ 29*13,47*8 get cGet0403 size 120,26 of oWnd update pixel\n   @ 29*13,62*8 get cGet0404 size 120,26 of oWnd update pixel\n   @ 29*13,77*8 get cGet0405 size 120,26 of oWnd update pixel\n\n   //-* Row 5\n   @ 31*13,17*8 get cGet0501 size 120,26 of oWnd update pixel\n   @ 31*13,32*8 get cGet0502 size 120,26 of oWnd update pixel\n   @ 31*13,47*8 get cGet0503 size 120,26 of oWnd update pixel\n   @ 31*13,62*8 get cGet0504 size 120,26 of oWnd update pixel\n   @ 31*13,77*8 get cGet0505 size 120,26 of oWnd update pixel\n\n   //-* Row 6\n   @ 33*13,17*8 get cGet0601 size 120,26 of oWnd update pixel\n   @ 33*13,32*8 get cGet0602 size 120,26 of oWnd update pixel\n   @ 33*13,47*8 get cGet0603 size 120,26 of oWnd update pixel\n   @ 33*13,62*8 get cGet0604 size 120,26 of oWnd update pixel\n   @ 33*13,77*8 get cGet0605 size 120,26 of oWnd update pixel\n\n   //-* Row 7\n   @ 35*13,17*8 get cGet0701 size 120,26 of oWnd update pixel\n   @ 35*13,32*8 get cGet0702 size 120,26 of oWnd update pixel\n   @ 35*13,47*8 get cGet0703 size 120,26 of oWnd update pixel\n   @ 35*13,62*8 get cGet0704 size 120,26 of oWnd update pixel\n   @ 35*13,77*8 get cGet0705 size 120,26 of oWnd update pixel\n\n   //-* Row 8\n   @ 37*13,17*8 get cGet0801 size 120,26 of oWnd update pixel\n   @ 37*13,32*8 get cGet0802 size 120,26 of oWnd update pixel\n   @ 37*13,47*8 get cGet0803 size 120,26 of oWnd update pixel\n   @ 37*13,62*8 get cGet0804 size 120,26 of oWnd update pixel\n   @ 37*13,77*8 get cGet0805 size 120,26 of oWnd update pixel\n\n   //-* Row 9\n   @ 39*13,17*8 get cGet0901 size 120,26 of oWnd update pixel\n   @ 39*13,32*8 get cGet0902 size 120,26 of oWnd update pixel\n   @ 39*13,47*8 get cGet0903 size 120,26 of oWnd update pixel\n   @ 39*13,62*8 get cGet0904 size 120,26 of oWnd update pixel\n   @ 39*13,77*8 get cGet0905 size 120,26 of oWnd update pixel\n\n   //-* Row 10\n   @ 41*13,17*8 get cGet1001 size 120,26 of oWnd update pixel\n   @ 41*13,32*8 get cGet1002 size 120,26 of oWnd update pixel\n   @ 41*13,47*8 get cGet1003 size 120,26 of oWnd update pixel\n   @ 41*13,62*8 get cGet1004 size 120,26 of oWnd update pixel\n   @ 41*13,77*8 get cGet1005 size 120,26 of oWnd update pixel\n\n   //-* Row 11\n   @ 43*13,17*8 get cGet1101 size 120,26 of oWnd update pixel\n   @ 43*13,32*8 get cGet1102 size 120,26 of oWnd update pixel\n   @ 43*13,47*8 get cGet1103 size 120,26 of oWnd update pixel\n   @ 43*13,62*8 get cGet1104 size 120,26 of oWnd update pixel\n   @ 43*13,77*8 get cGet1105 size 120,26 of oWnd update pixel\n\n\n   @ 50,20 button &quot;&amp;Ok&quot; size 80,20 of oWnd   ;\n      action &#40;MsgInfo&#40;&quot;You click OK button!&quot;&#41;,oWnd&#58;End&#40;&#41;&#41;\n   @ 50,40 button &quot;&amp;Cancel&quot; size 80,20 of oWnd  ;\n      action &#40;MsgInfo&#40;&quot;You click Cancel button!&quot;&#41;,oWnd&#58;End&#40;&#41;&#41;\n\n   ACTIVATE WINDOW oWnd    ;\n      ON INIT &#40; TScrWnd&#40;&#41;&#58;New&#40;oWnd,1,40,1,70&#41; &#41;\n\nRETURN&#40; NIL &#41;\n\n//============================================================================\n// FileName &#58; SCROLL&#46;PRG\n// Purpose  &#58;  Windows Scroll Class\n// Author   &#58; Eric Yang\n// Update History &#58;\n//      Date     Contents\n//    ---------- ---------------------------------------------------------------\n//    1997&#46;02&#46;01\n//\n//============================================================================\n#include &quot;FiveWin&#46;ch&quot;\n\n#ifndef TRUE\n   #define TRUE              &#46;T&#46;\n   #define FALSE             &#46;F&#46;\n#endif\n\nCLASS TScrWnd\n\n   DATA oWnd\n   DATA nVPos,nHPos\n\n   METHOD New&#40; oWnd,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR\n   METHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\n   //-*------------------------------------------------------------\n   METHOD VScroll&#40;&#41;\n   METHOD VScrollThumb&#40;&#41;\n   METHOD VScrollTrack&#40;&#41;\n   METHOD VScrollPgDown&#40;&#41;\n   METHOD VScrollPgUp&#40;&#41;\n   //-*-----------------------------\n   METHOD HScroll&#40;&#41;\n   METHOD HScrollThumb&#40;&#41;\n   METHOD HScrollTrack&#40;&#41;\n   METHOD HScrollPgDown&#40;&#41;\n   METHOD HScrollPgUp&#40;&#41;\n\nENDCLASS\n\nMETHOD New&#40; oWnd,nV1,nV2,nH1,nH2 &#41; CLASS TScrWnd\n   &#58;&#58;nVPos &#58;= 0\n   &#58;&#58;nHPos &#58;= 0\n   &#58;&#58;oWnd &#58;= oWnd\n   &#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\nRETURN Self\n\n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrWnd\nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125;\n   //--------------------------------------------------\n   //-* Vertical Scroll Bar\n//   ? &#58;&#58;oWnd&#58;oVSCroll=NIL\n   if &#58;&#58;oWnd&#58;oVScroll != NIL\n//    ? nV1,nV2\n      &#58;&#58;oWnd&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41;\n      &#58;&#58;nVPos &#58;= &#58;&#58;oWnd&#58;oVScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oWnd&#58;oVScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oWnd&#58;oVScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //--------------------------------------------------\n   //-* Horizontal Scroll Bar\n   if &#58;&#58;oWnd&#58;oHScroll != NIL\n      &#58;&#58;oWnd&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41;\n      &#58;&#58;nHPos &#58;= &#58;&#58;oWnd&#58;oHScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oWnd&#58;oHScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oWnd&#58;oHScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //&#58;&#58;oWnd&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125;\n   //--------------------------------------------------\nRETURN&#40; NIL &#41;\n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41;\n   //MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41;\n   //if nKey == K_ENTER\n   //   goMainDlg&#58;End&#40;&#41;\n   //   lRetVal &#58;= TRUE\n   //endif\n//RETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Vertical Scroll Bar\nMETHOD VScroll&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oWnd&#58;oVScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40;  &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nVPos &lt; &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oWnd&#58;oVScroll&#58;nMax, &#58;&#58;oWnd&#58;oVScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt; &#58;&#58;oWnd&#58;oVScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oWnd&#58;oVScroll&#58;nMin,&#58;&#58;oWnd&#58;oVScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Horizontal Scroll Bar\nMETHOD HScroll&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oWnd&#58;oHScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nHPos &lt; &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oWnd&#58;oHScroll&#58;nMax, &#58;&#58;oWnd&#58;oHScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt; &#58;&#58;oWnd&#58;oHScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oWnd&#58;oHScroll&#58;nMin,&#58;&#58;oWnd&#58;oHScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=* End of File =================================================\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn\n[/code:10kdczhw]\n\n[code:10kdczhw]\n\n// Testing how to scroll a dialog with its contents\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define D_WIDTH           4\n#define D_HEIGHT          13\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oDlg\nLOCAL cGet0101 &#58;= space&#40;10&#41;,  ; //Row 1\n      cGet0102 &#58;= space&#40;10&#41;,  ;\n      cGet0103 &#58;= space&#40;10&#41;,  ;\n      cGet0104 &#58;= space&#40;10&#41;,  ;\n      cGet0105 &#58;= space&#40;10&#41;,  ;\n      cGet0201 &#58;= space&#40;10&#41;,  ; //Row 2\n      cGet0202 &#58;= space&#40;10&#41;,  ;\n      cGet0203 &#58;= space&#40;10&#41;,  ;\n      cGet0204 &#58;= space&#40;10&#41;,  ;\n      cGet0205 &#58;= space&#40;10&#41;,  ;\n      cGet0301 &#58;= space&#40;10&#41;,  ; //Row 3\n      cGet0302 &#58;= space&#40;10&#41;,  ;\n      cGet0303 &#58;= space&#40;10&#41;,  ;\n      cGet0304 &#58;= space&#40;10&#41;,  ;\n      cGet0305 &#58;= space&#40;10&#41;,  ;\n      cGet0401 &#58;= space&#40;10&#41;,  ; //Row 4\n      cGet0402 &#58;= space&#40;10&#41;,  ;\n      cGet0403 &#58;= space&#40;10&#41;,  ;\n      cGet0404 &#58;= space&#40;10&#41;,  ;\n      cGet0405 &#58;= space&#40;10&#41;,  ;\n      cGet0501 &#58;= space&#40;10&#41;,  ; //Row 5\n      cGet0502 &#58;= space&#40;10&#41;,  ;\n      cGet0503 &#58;= space&#40;10&#41;,  ;\n      cGet0504 &#58;= space&#40;10&#41;,  ;\n      cGet0505 &#58;= space&#40;10&#41;,  ;\n      cGet0601 &#58;= space&#40;10&#41;,  ; //Row 6\n      cGet0602 &#58;= space&#40;10&#41;,  ;\n      cGet0603 &#58;= space&#40;10&#41;,  ;\n      cGet0604 &#58;= space&#40;10&#41;,  ;\n      cGet0605 &#58;= space&#40;10&#41;,  ;\n      cGet0701 &#58;= space&#40;10&#41;,  ; //Row 7\n      cGet0702 &#58;= space&#40;10&#41;,  ;\n      cGet0703 &#58;= space&#40;10&#41;,  ;\n      cGet0704 &#58;= space&#40;10&#41;,  ;\n      cGet0705 &#58;= space&#40;10&#41;,  ;\n      cGet0801 &#58;= space&#40;10&#41;,  ; //Row 8\n      cGet0802 &#58;= space&#40;10&#41;,  ;\n      cGet0803 &#58;= space&#40;10&#41;,  ;\n      cGet0804 &#58;= space&#40;10&#41;,  ;\n      cGet0805 &#58;= space&#40;10&#41;,  ;\n      cGet0901 &#58;= space&#40;10&#41;,  ; //Row 9\n      cGet0902 &#58;= space&#40;10&#41;,  ;\n      cGet0903 &#58;= space&#40;10&#41;,  ;\n      cGet0904 &#58;= space&#40;10&#41;,  ;\n      cGet0905 &#58;= space&#40;10&#41;,  ;\n      cGet1001 &#58;= space&#40;10&#41;,  ; //Row 10\n      cGet1002 &#58;= space&#40;10&#41;,  ;\n      cGet1003 &#58;= space&#40;10&#41;,  ;\n      cGet1004 &#58;= space&#40;10&#41;,  ;\n      cGet1005 &#58;= space&#40;10&#41;,  ;\n      cGet1101 &#58;= space&#40;10&#41;,  ; //Row 11\n      cGet1102 &#58;= space&#40;10&#41;,  ;\n      cGet1103 &#58;= space&#40;10&#41;,  ;\n      cGet1104 &#58;= space&#40;10&#41;,  ;\n      cGet1105 &#58;= space&#40;10&#41;\n\n   define dialog oDlg from 0, 0 TO 25, 70 ;\n         title &quot;Scroll dialog&quot;            ;\n         Style nor&#40; WS_VSCROLL, WS_HSCROLL &#41;\n\n   @ 9,17 bitmap file &quot;\\fwh\\bitmaps\\pic1&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,32 bitmap file &quot;\\fwh\\bitmaps\\pic2&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,47 bitmap file &quot;\\fwh\\bitmaps\\pic3&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,62 bitmap file &quot;\\fwh\\bitmaps\\pic4&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,77 bitmap file &quot;\\fwh\\bitmaps\\pic5&#46;bmp&quot; of oDlg size 120,148 adjust\n\n   @ 21*13,02*8 say &quot;Customer &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 23*13,02*8 say &quot;P&#46;O&#46; #   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 25*13,02*8 say &quot;Style No&#46;&quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 27*13,02*8 say &quot;Fabrics  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 29*13,02*8 say &quot;Fob      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 31*13,02*8 say &quot;Q\'TY     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 33*13,02*8 say &quot;DEL&#46;     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 35*13,02*8 say &quot;MAKER    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 37*13,02*8 say &quot;QTA      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 39*13,02*8 say &quot;SIZE     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 41*13,02*8 say &quot;Size B/D &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 43*13,02*8 say &quot;REMARKS  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   @ 21*13,17*8 say &quot;Venture  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,32*8 say &quot;Sears    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,47*8 say &quot;Kohl\'s   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,62*8 say &quot;Kiss     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,77*8 say &quot;K-MART   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   //-* Row 1\n   @ 23*13,17*8 get cGet0101 size 120,26 of oDlg update pixel\n   @ 23*13,32*8 get cGet0102 size 120,26 of oDlg update pixel\n   @ 23*13,47*8 get cGet0103 size 120,26 of oDlg update pixel\n   @ 23*13,62*8 get cGet0104 size 120,26 of oDlg update pixel\n   @ 23*13,77*8 get cGet0105 size 120,26 of oDlg update pixel\n\n   //-* Row 2\n   @ 25*13,17*8 get cGet0201 size 120,26 of oDlg update pixel\n   @ 25*13,32*8 get cGet0202 size 120,26 of oDlg update pixel\n   @ 25*13,47*8 get cGet0203 size 120,26 of oDlg update pixel\n   @ 25*13,62*8 get cGet0204 size 120,26 of oDlg update pixel\n   @ 25*13,77*8 get cGet0205 size 120,26 of oDlg update pixel\n\n   //-* Row 3\n   @ 27*13,17*8 get cGet0301 size 120,26 of oDlg update pixel\n   @ 27*13,32*8 get cGet0302 size 120,26 of oDlg update pixel\n   @ 27*13,47*8 get cGet0303 size 120,26 of oDlg update pixel\n   @ 27*13,62*8 get cGet0304 size 120,26 of oDlg update pixel\n   @ 27*13,77*8 get cGet0305 size 120,26 of oDlg update pixel\n\n   //-* Row 4\n   @ 29*13,17*8 get cGet0401 size 120,26 of oDlg update pixel\n   @ 29*13,32*8 get cGet0402 size 120,26 of oDlg update pixel\n   @ 29*13,47*8 get cGet0403 size 120,26 of oDlg update pixel\n   @ 29*13,62*8 get cGet0404 size 120,26 of oDlg update pixel\n   @ 29*13,77*8 get cGet0405 size 120,26 of oDlg update pixel\n\n   //-* Row 5\n   @ 31*13,17*8 get cGet0501 size 120,26 of oDlg update pixel\n   @ 31*13,32*8 get cGet0502 size 120,26 of oDlg update pixel\n   @ 31*13,47*8 get cGet0503 size 120,26 of oDlg update pixel\n   @ 31*13,62*8 get cGet0504 size 120,26 of oDlg update pixel\n   @ 31*13,77*8 get cGet0505 size 120,26 of oDlg update pixel\n\n   //-* Row 6\n   @ 33*13,17*8 get cGet0601 size 120,26 of oDlg update pixel\n   @ 33*13,32*8 get cGet0602 size 120,26 of oDlg update pixel\n   @ 33*13,47*8 get cGet0603 size 120,26 of oDlg update pixel\n   @ 33*13,62*8 get cGet0604 size 120,26 of oDlg update pixel\n   @ 33*13,77*8 get cGet0605 size 120,26 of oDlg update pixel\n\n   //-* Row 7\n   @ 35*13,17*8 get cGet0701 size 120,26 of oDlg update pixel\n   @ 35*13,32*8 get cGet0702 size 120,26 of oDlg update pixel\n   @ 35*13,47*8 get cGet0703 size 120,26 of oDlg update pixel\n   @ 35*13,62*8 get cGet0704 size 120,26 of oDlg update pixel\n   @ 35*13,77*8 get cGet0705 size 120,26 of oDlg update pixel\n\n   //-* Row 8\n   @ 37*13,17*8 get cGet0801 size 120,26 of oDlg update pixel\n   @ 37*13,32*8 get cGet0802 size 120,26 of oDlg update pixel\n   @ 37*13,47*8 get cGet0803 size 120,26 of oDlg update pixel\n   @ 37*13,62*8 get cGet0804 size 120,26 of oDlg update pixel\n   @ 37*13,77*8 get cGet0805 size 120,26 of oDlg update pixel\n\n   //-* Row 9\n   @ 39*13,17*8 get cGet0901 size 120,26 of oDlg update pixel\n   @ 39*13,32*8 get cGet0902 size 120,26 of oDlg update pixel\n   @ 39*13,47*8 get cGet0903 size 120,26 of oDlg update pixel\n   @ 39*13,62*8 get cGet0904 size 120,26 of oDlg update pixel\n   @ 39*13,77*8 get cGet0905 size 120,26 of oDlg update pixel\n\n   //-* Row 10\n   @ 41*13,17*8 get cGet1001 size 120,26 of oDlg update pixel\n   @ 41*13,32*8 get cGet1002 size 120,26 of oDlg update pixel\n   @ 41*13,47*8 get cGet1003 size 120,26 of oDlg update pixel\n   @ 41*13,62*8 get cGet1004 size 120,26 of oDlg update pixel\n   @ 41*13,77*8 get cGet1005 size 120,26 of oDlg update pixel\n\n   //-* Row 11\n   @ 43*13,17*8 get cGet1101 size 120,26 of oDlg update pixel\n   @ 43*13,32*8 get cGet1102 size 120,26 of oDlg update pixel\n   @ 43*13,47*8 get cGet1103 size 120,26 of oDlg update pixel\n   @ 43*13,62*8 get cGet1104 size 120,26 of oDlg update pixel\n   @ 43*13,77*8 get cGet1105 size 120,26 of oDlg update pixel\n\n\n   @ 50,20 button &quot;&amp;Ok&quot; size 80,20 of oDlg   ;\n      action &#40;MsgInfo&#40;&quot;You click OK button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41;\n   @ 50,40 button &quot;&amp;Cancel&quot; size 80,20 of oDlg  ;\n      action &#40;MsgInfo&#40;&quot;You click Cancel button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41;\n\n   ACTIVATE dialog oDlg    ;\n      ON INIT &#40; TScrDlg&#40;&#41;&#58;New&#40;oDlg,1,100,1,400&#41; &#41;\n\nRETURN&#40; NIL &#41;\n\n//============================================================================\n// FileName &#58; SCROLL&#46;PRG\n// Purpose  &#58;  dialog Scroll Class\n// Author   &#58; Eric Yang\n// Update History &#58;\n//      Date     Contents\n//    ---------- ---------------------------------------------------------------\n//    1997&#46;02&#46;01\n//\n//============================================================================\n#include &quot;FiveWin&#46;ch&quot;\n\n#ifndef TRUE\n   #define TRUE              &#46;T&#46;\n   #define FALSE             &#46;F&#46;\n#endif\n\nCLASS TScrDlg\n\n   DATA oDlg\n   DATA nVPos,nHPos\n\n   METHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR\n   METHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\n   //-*------------------------------------------------------------\n   METHOD VScroll&#40;&#41;\n   METHOD VScrollThumb&#40;&#41;\n   METHOD VScrollTrack&#40;&#41;\n   METHOD VScrollPgDown&#40;&#41;\n   METHOD VScrollPgUp&#40;&#41;\n   //-*-----------------------------\n   METHOD HScroll&#40;&#41;\n   METHOD HScrollThumb&#40;&#41;\n   METHOD HScrollTrack&#40;&#41;\n   METHOD HScrollPgDown&#40;&#41;\n   METHOD HScrollPgUp&#40;&#41;\n\nENDCLASS\n\nMETHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg\n   &#58;&#58;nVPos &#58;= 0\n   &#58;&#58;nHPos &#58;= 0\n   &#58;&#58;oDlg &#58;= oDlg\n   &#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\nRETURN Self\n\n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg\nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125;\n   //--------------------------------------------------\n   //-* Vertical Scroll Bar\n//   ? &#58;&#58;oDlg&#58;oVSCroll=NIL\n   if &#58;&#58;oDlg&#58;oVScroll != NIL\n//    ? nV1,nV2\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41;\n      &#58;&#58;nVPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oDlg&#58;oVScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //--------------------------------------------------\n   //-* Horizontal Scroll Bar\n   if &#58;&#58;oDlg&#58;oHScroll != NIL\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41;\n      &#58;&#58;nHPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oDlg&#58;oHScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //&#58;&#58;oDlg&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125;\n   //--------------------------------------------------\nRETURN&#40; NIL &#41;\n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41;\n   //MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41;\n   //if nKey == K_ENTER\n   //   goMainDlg&#58;End&#40;&#41;\n   //   lRetVal &#58;= TRUE\n   //endif\n//RETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Vertical Scroll Bar\nMETHOD VScroll&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;  &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax, &#58;&#58;oDlg&#58;oVScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin,&#58;&#58;oDlg&#58;oVScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Horizontal Scroll Bar\nMETHOD HScroll&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax, &#58;&#58;oDlg&#58;oHScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin,&#58;&#58;oDlg&#58;oHScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=* End of File =================================================\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn\n[/code:10kdczhw]\n\nAbraços,\n\nRossine.','',0,'AIA=','10kdczhw',1,0,'',104,0,0),(27769,6217,6,774,0,'200.72.196.218',1173183740,1,0,1,1,1,1,'','','...','',0,'AIA=','y5tv0c56',1,0,'',774,0,0),(27771,6207,3,397,0,'201.13.90.66',1173186258,1,0,1,0,1,1,'','','Milan\n\nThe last example work fine with NSLOCK15VB5.OCX. I made modifications to Activex SetProp/GetProp.\n\nI found <!-- m --><a class=\"postlink\" href=\"http://www.activelock.com\">http://www.activelock.com</a><!-- m --> with more informations about this .OCX.','',0,'AIA=','24eookmv',1,0,'',397,0,0),(27772,6195,3,303,0,'72.199.41.171',1173186746,1,0,1,1,1,0,'','','Here is some more information.\n\nRemember that when you select 8pt using chooseFont() it returns -11 as the height. Likewise when I select 72 points, nHeight is -96.\n\nCuriously these ratios are not the same:\n\n8/11 = .73\n72/96 = .75\n\nI suppose the difference could be due to rounding errors.\n\nWhen I create a 72pt font using SIZE 0,-72 and display it on my screen it is much less than 1 inch high (10/16in). By definition a 72pt font is 1 inch high, so what is being displayed is [b:1silmdt4]not[/b:1silmdt4] a 72pt font.\n\nSo, this makes me think that the SIZE clause is not actually accepting points when we specify ...SIZE 0,-value, but perhaps \"logical units.\" I always thought it was points. To add to the confusion, according to the API docs, \"logical units\" can be either pixels or inches, or mm, depending on the current \"mapping mode.\"\n\nIt seems I know less about fonts now than I did when we started this conversation.\n\nJames','',0,'QA==','1silmdt4',1,0,'',303,0,0),(27773,6195,3,6,0,'80.181.217.125',1173187706,1,0,1,1,1,1,'','','[quote=&quot;Ollie&quot;:1jfcltmy]Thanks for all the effort so far, but my problem comes when printing.[/quote:1jfcltmy]\n\nThis is a print working sample:\n\n[code:1jfcltmy]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL aFont &#58;= SELECTFONT&#40;&#41;\n\n    LOCAL oPrn, oFont\n\n    IF EMPTY&#40; aFont &#41;; RETURN NIL; ENDIF\n\n    PRINT oPrn PREVIEW\n        oFont &#58;= BUILDFONT&#40; oPrn, aFont &#41;\n\n        PAGE\n            oPrn&#58;CmSay&#40; 0, 0, &quot;This is a test&quot;, oFont &#41;\n        ENDPAGE\n    ENDPRINT\n\n    RELEASE FONT oFont\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SELECTFONT&#40;&#41;\n\n    LOCAL aFont &#58;= CHOOSEFONT&#40;&#41;\n\n    IF EMPTY&#40; aFont&#91; LF_FACENAME &#93; &#41;\n        RETURN NIL\n    ENDIF\n\n    RETURN aFont\n\n\n#define FW_NORMAL 400\n\n\nSTATIC FUNCTION BUILDFONT&#40; oPrn, aFont &#41;\n\n    RETURN TFont&#40;&#41;&#58;New&#40; aFont&#91; LF_FACENAME &#93;,;\n                        ,;\n                        aFont&#91; LF_HEIGHT &#93;,;\n                        &#46;f&#46;,;\n                        !&#40; aFont&#91; LF_WEIGHT &#93; == FW_NORMAL &#41;,;\n                        aFont&#91; LF_ESCAPEMENT &#93;,;\n                        aFont&#91; LF_ORIENTATION &#93;,;\n                        aFont&#91; LF_WEIGHT &#93;,;\n                        aFont&#91; LF_ITALIC &#93;,;\n                        aFont&#91; LF_UNDERLINE &#93;,;\n                        aFont&#91; LF_STRIKEOUT &#93;,;\n                        aFont&#91; LF_CHARSET &#93;,;\n                        aFont&#91; LF_OUTPRECISION &#93;,;\n                        aFont&#91; LF_CLIPPRECISION &#93;,;\n                        aFont&#91; LF_QUALITY &#93;,;\n                        oPrn,;\n                        aFont&#91; LF_PITCHANDFAMILY &#93; &#41;[/code:1jfcltmy]\n\nEMG','',0,'gIA=','1jfcltmy',1,0,'',6,0,0),(27774,6226,6,66,0,'201.212.149.134',1173187752,1,0,1,0,1,0,'','Se puede utilizar ??  en vez  de 1,1 para imprimir','Estimados Colegas\n\nComo puedo reutilizar codigo de impresion que en vez de tener\ncoordenadas 1,1 tiene signos de Preguntas, \n\n\ndesde ya muchisimas gracias\n\nEj :\n \n?? E_ITA\n      ? \'                                                   \'+F_DIA\n      ?? T_ITA\n      ?\n      ? SPACE(63)+E_EXP+E_NEG+\'       \'+T_EXP+T_NEG\n      ?\n      ?\n      IF WPRO = \' \'\n         ? \'           \'+WNOM+\' (\'+ALLTRIM(STR(WCODIG))+\')\'\n      ELSE\n         ? \'           \'+WNOM+\' (\'+STR(WCODIG)+\')\'+SPACE(03)+E_CON+\'Prov.: \'+ALLTRIM(LEFT(WPRO,12))+T_CON\n      ENDIF\n      IF WIB &lt;&gt; \' \'\n         ? \'','',0,'gIA=','20qliyfg',1,0,'',66,0,0),(27775,6195,3,2,0,'87.218.146.174',1173188282,1,0,1,1,1,1,'','','Enrico,\n\nIt looks as there is a problem with your email and our host:\n\n&lt;e.m.giordano@alice.it&gt;:\n85.33.2.53 does not like recipient.\nRemote host said: 550 5.7.1 213.149.226.3 has been blocked by abuseat Giving up on 85.33.2.53.\n\nDo you have another email account ? thanks','',0,'gIA=','3aufmmhn',1,0,'',2,0,0),(27776,6227,6,435,0,'200.155.194.138',1173190040,1,0,1,1,1,0,'','site dbwide.com.ar','Qual o novo endereço do dbwide.com.ar ?\n\nAri','',0,'gIA=','132f9rrv',1,0,'',435,0,0),(27777,6228,1,186,0,'66.130.50.142',1173190055,1,0,1,1,1,1,'','TGet problems','Hi all,\n\nStarnge things are happening with some METHOD in TGet.\n\n1.  GetSel() always returns ``\n\n2.  GetSelPos() Always return nHi = 10, nLo = 10\n     so trying to use Copy(), Cut() and Paste() methods results in no       results.\n\n3.  Application crashes with NO EXP. METHOD TGET:GETFOCUS\n     this method is used in at least two methods. Should`nt it be GotFocus()\n\n4.  Is using ::TControl:...   result the same as Super:...\n\nRegards,\n\nGilbert','',0,'gIA=','3e1htemq',1,0,'',186,0,0),(27778,6228,1,2,0,'87.218.146.174',1173190192,1,0,1,1,1,1,'','','Gilbert,\n\nCould you please provide a small sample to reproduce it ?','',0,'gIA=','27spknot',1,0,'',2,0,0),(27779,6195,3,6,0,'80.181.217.125',1173191174,1,0,1,1,1,1,'','','<!-- e --><a href=\"mailto:e.m.giordano@emagsoftware.it\">e.m.giordano@emagsoftware.it</a><!-- e -->\n\nEMG','',0,'gIA=','sotktf0x',1,0,'',6,0,0),(27780,6228,1,186,0,'66.130.50.142',1173191416,1,0,1,1,1,1,'','','Hi Antonio,\n\n\nFound out that ::GetFocus() is not a valid method instead I used ::oGet:HasFocus() and worked OK\n\nI will try to supply a code sample, this will be hard because my TGet is quite different than your`s.\n\nRegards\n\nGilbert','',0,'gIA=','1tfxxqz8',1,0,'',186,0,0),(27781,6226,6,492,0,'189.147.25.211',1173191459,1,0,1,1,1,1,'','','Hola\n\nBastaria con sustituir :\n\n\nLOCAL nLinea := 1\n\n?? E_ITA     por --&gt;     @ nLinea,1 SAY E_ITA  ; nLinea ++\netc\netc\n\n\n\nSALUDOS','',0,'gIA=','25gsbcvn',1,0,'',492,0,0),(27782,6202,3,148,0,'196.205.184.163',1173194477,1,0,1,1,1,0,'','','No after amending your last post stiil the error appears :\nApplication\n===========\n   Path and name: E:\\COMPILER\\clipper\\FWH\\SAMPLES\\fivedit.exe (32 bits)\n   Size: 1,156,608 bytes\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 03/06/07, 17:23:42\n   Error description: Error BASE/1004  No exported method: CFILENAME\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from: .\\source\\function\\FILENAME.PRG =&gt; CFILENAME(0)\n   Called from: fivedit.prg =&gt; (b)MAIN(71)\n   Called from:  =&gt; TBTNBMP:CLICK(0)\n   Called from:  =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: fivedit.prg =&gt; MAIN(94)','',0,'','24i5t6wx',1,0,'',148,0,0),(27783,6219,6,54,0,'189.132.99.3',1173194782,1,0,1,1,1,1,'','','Rossine,\n\nLas datas oVScroll, oHScroll, no existen en los MDI.\n\nHabrá alguna solución al respecto?\n\nGracias de antemano.','',0,'','1wtr7kjw',1,0,'',54,0,0),(27784,6212,3,148,0,'196.205.184.163',1173195643,1,0,1,1,1,0,'','','I did not find that program at all ?? nsis','',0,'','3jpj6b3p',1,0,'',148,0,0),(27785,6207,3,138,0,'189.141.72.59',1173195999,1,0,1,1,1,1,'','','[quote=&quot;Milan Mehta&quot;:p9ij6jb7]Dear RF,\n\nYour <!-- w --><a class=\"postlink\" href=\"http://www.google.com\">www.google.com</a><!-- w --> seems to be down today. I am not able to access it. Can you send me more information about Sentinel Super Pro ?\n\nTIA\nMilan.\n\n[/quote:p9ij6jb7]\n\nThe driver was developed for the Sentinel Company, it should be included with all the Sentinel Super Pro Developer Kits.','',0,'gA==','p9ij6jb7',1,0,'',138,0,0),(27786,6219,6,54,0,'189.132.99.3',1173196088,1,0,1,1,1,1,'','','Rossine,\n\nSorry, era error mio, no inicializaba la variable oWnd.\n\nPero, fijate que muevo las ventanas child y no funcionan los scrolles.\n\nAdjunto una imagen.\n\n[img:i8fb9p0e]http&#58;//www&#46;incos&#46;com&#46;mx/envio&#46;jpg[/img:i8fb9p0e]\n\nPrecisamente en la imagen se observa la ventana child, pero esta no se mueve con los scroll.\n\nGracias de antemano por la ayuda prestada','',0,'CA==','i8fb9p0e',1,0,'',54,0,0),(27787,6212,3,343,0,'24.173.70.29',1173196673,1,0,1,1,1,0,'','','For a long time we have used Setup2Go for .exe installation and Installer2Go when when we need msi installation. Both are free and easy to use. \n\n[url:362u0q01]http&#58;//www&#46;dev4pc&#46;com/[/url:362u0q01]','',0,'EA==','362u0q01',1,0,'',343,0,0),(27788,3391,6,375,0,'84.125.128.139',1173197596,1,0,1,1,1,1,'','','Es extraño, pero parece que el uploader que utilizo no va bien. Si quereis os mando el PRG a vuestro e-mail personal.\n\nDe todas formas ese error es extraño porque se da en la definición de los DATAS de la clase y eso no es normal. Tengan en cuenta que está escrito en FiveWin para Clipper, a lo mejor ahí está el problemas, aunque no creo que sea muy complicado pasarlo a xHabour.\n\nPor si estais interesados, mi e-mail es: <!-- e --><a href=\"mailto:ramosframit@ono.com\">ramosframit@ono.com</a><!-- e -->\n\nUn saludo.','',0,'EA==','157ht7d3',1,0,'',375,0,0),(27789,6229,7,945,0,'80.32.177.143',1173197802,1,0,1,1,1,0,'','Quitar borde de un bitmap','Muy buenas, he definido un bitmap y me gustaría saber si se le puede quitar el borde que le sale negro.\n\nGracias.\nUn Saludo.','',0,'EA==','2t9dzhxi',1,0,'',945,0,0),(27790,6227,6,397,0,'201.13.90.66',1173198832,1,0,1,0,1,1,'','','Acho que é <!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/\">http://www.vikthor.com.mx/fivewin/</a><!-- m --> ou <!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/\">http://www.vikthor.com.mx/</a><!-- m -->','',0,'EA==','h9clqcra',1,0,'',397,0,0),(27791,6227,6,54,0,'189.132.99.3',1173200304,1,0,1,1,1,1,'','','[quote=&quot;Rochinha&quot;:2gv3c37p]Acho que é <!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/fivewin/\">http://www.vikthor.com.mx/fivewin/</a><!-- m --> ou <!-- m --><a class=\"postlink\" href=\"http://www.vikthor.com.mx/\">http://www.vikthor.com.mx/</a><!-- m -->[/quote:2gv3c37p]\n\nRochinha,\n\nEl site de dbwide colgado en el server de vikthor está caido.\n\nEsperemos pronto lo habilite.','',0,'gA==','2gv3c37p',1,0,'',54,0,0),(27792,5655,16,319,0,'201.1.168.51',1173200597,1,0,1,1,1,0,'','','onde posso conseguir esta atualização, estou usando a vesão 2.8 de dezembro','',0,'gA==','7en7m572',1,0,'',319,0,0),(27793,6211,6,838,0,'80.59.225.15',1173201176,1,0,1,1,1,0,'','','Me refiero a ésta ventana que sale siempre\n[img][url=http&#58;//imageshack&#46;us:2u9fss37][img]http://img251.imageshack.us/img251/7615/outlookfv1.jpg[/img][/url:2u9fss37][/img]\n\nSaludos\n\nJose Luis','',0,'GA==','2u9fss37',1,0,'',838,0,0),(27794,3391,6,376,0,'190.42.40.119',1173204877,1,0,1,1,1,1,'','','Es posible que el origen del error sea el tipo de las DATA en la clase. Recuerden que, por ejemplo, en FW-Clipper los valores numericos son NUMBER mientras que en FWH ese mismo tipo es NUMERIC y asì sucesivamente...','',0,'GA==','1nh6uhy8',1,0,'',376,0,0),(27795,6229,7,2,0,'87.218.146.174',1173205548,1,0,1,1,1,1,'','','Muestranos el código que has usado para crearlo, gracias','',0,'GA==','35k9yl0q',1,0,'',2,0,0),(27796,6227,6,2,0,'87.218.146.174',1173205699,1,0,1,1,1,1,'','','Muchas de las utilidades que había en dbwide.com.ar están en la sección de utilidades de estos foros','',0,'GA==','wyx9mt4u',1,0,'',2,0,0),(27797,5655,16,2,0,'87.218.146.174',1173205790,1,0,1,1,1,1,'','','Ronaldo,\n\nUtiliza tu login y password para descargarla. Tienes dos meses de actualizaciones gratuitas desde la fecha de compra.\n\nSi la comprastes a Virtual Objects, por favor, contacta con ellos, gracias','',0,'GA==','2wmy02c7',1,0,'',2,0,0),(27798,6229,7,945,0,'80.32.177.143',1173206514,1,0,1,1,1,0,'','','El código es:\n\n@ 1,1 bitmap oBtn OF oDlg FILE \'imprime.bmp\'\n\nLa cuestión es que sale con un recuadro negro y me gustaría quitarlo, lo que quiero es usarlo como botón y hacer mis própios botones con bitmap, esa es la idea, entonces como sale un recuadro recubriendo el bitmap no me sirve.\n\n\n\nUn Saludo.','',0,'GA==','ugucb06h',1,0,'',945,0,0),(27799,6098,6,41,0,'200.105.194.235',1173208531,1,0,1,1,1,0,'','Aqui la solucion','Holas,\n\nla solucion para el problema del cellview, va reemplazando el metodo \nstartline de la clase TMReport\n\n[quote:2xppfa7p]\nMETHOD StartLine( nHeight, lSeparator ) CLASS TMReport\n\n   If ::lSalida\n      ::oSalida:StartLine( nHeight )\n   Else\n      Super:StartLine( nHeight, lSeparator )\n   EndIf\n\n   Return NIL\n[/quote:2xppfa7p]\n\nsaludos\n\nMarcelo','',0,'gA==','2xppfa7p',1,0,'',41,0,0),(27800,6230,6,41,0,'200.105.194.235',1173209027,1,0,1,1,1,0,'','SQL de ADS','Holas,\n\nestoy probando la ultima version xHarbour piublicada en el foro, creo que hubieron algunos cambios desde la version .99.5 que es la que utilizo, mi problema esta cuando en una serie de sentencias SQL utilizo tablas temporales #tabla .... luego las elimino DROP TABLE #tabla, no puedo volver a utilizar el area de trabajo (alias) que utilice antes, si no utilizo tablas temporales todo ok.\n\nPara la ejecucion de la sentencias SQL hago lo siguiente\n\n    ADSCreateSQLStatement( \"SQLarea\", 3 )\n    AdsExecuteSQLDirect( consulta )\n\nsi el resultado es un cursor luego de utilizarlo hago (\"SQLarea\") -&gt; ( DBCLOSEAREA() )\n\nEso funcionaba antes ahora cuando tengo un drop table ya no me daja utilizar el mismo alias, algo ha cambiado ?\n\nLo curioso es que si coloco un ? AdsExecuteSQLDirect( consulta ) para ver como se va ejecutando la cosa este me devuelve true con el primer DROP TABLE #tabla, y para el segundo DROP me sale false, no se donde mas ver alguna idea?\n\nsaludos\n\nMarcelo','',0,'gA==','e72frfvm',1,0,'',41,0,0),(27801,6227,6,435,0,'200.155.207.34',1173211803,1,0,1,1,1,0,'','','estou procurando uma classe antiga que gerava rtf, eu tinha ela aqui ..nao estou achando.. richtrtf alguma coisa assim\n\ntinha um exemplo que gerava a partir de arquivo TXT ou não..\n\nAri','',0,'gA==','d3zmb949',1,0,'',435,0,0),(27802,6191,6,968,0,'190.45.238.99',1173211868,1,0,1,1,1,0,'','PostgreSQL','Estimado Jorge,\n\nPostgreSQL es extraordinario, si le aplicaramos puntaje ... en distintas categorias, yo diría que sale sobresaliente en muchas de ellas.\n\nYo lo uso en mis aplicaciones y con mucho exito.\n\nCon PostgreSQL tienes un motor SQL gratis y que tiene Triggers muy bien implementados.\n\nWinAsp puede conectarse a PostgreSQL sin problemas y funciona a la perfección.\n\nSaludos\nJorge Mason\n<!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w -->','',0,'gA==','6qbsgt3m',1,0,'',968,0,0),(27803,6217,6,774,0,'164.77.169.147',1173213873,1,0,1,1,1,1,'','','Alguien sabe','',0,'gA==','x9w7x8y7',1,0,'',774,0,0),(27804,6229,7,2,0,'87.218.146.174',1173216696,1,0,1,1,1,1,'','','Hazlo así:\n\n@ 1,1 bitmap oBtn OF oDlg FILE \'imprime.bmp\' NOBORDER','',0,'gA==','1fgz2l23',1,0,'',2,0,0),(27805,6217,6,2,0,'87.218.146.174',1173216966,1,0,1,1,1,1,'','','El control Rebar es estandard de Windows y usa el tema que tengas seleccionado. En principio no se podría usar un brush distinto del que usa por defecto','',0,'gA==','1hyq2fzq',1,0,'',2,0,0),(27806,6098,6,292,0,'201.242.132.186',1173230835,1,0,1,1,1,1,'','Re: Aqui la solucion','Marcelo,\nPuedes enviarme esta clase hacia <!-- e --><a href=\"mailto:jnavas@datapronet.com\">jnavas@datapronet.com</a><!-- e -->\n\n\n\n[quote=&quot;Marcelo Via Giglio&quot;:202hrj49]Holas,\n\nla solucion para el problema del cellview, va reemplazando el metodo \nstartline de la clase TMReport\n\n[quote:202hrj49]\nMETHOD StartLine( nHeight, lSeparator ) CLASS TMReport\n\n   If ::lSalida\n      ::oSalida:StartLine( nHeight )\n   Else\n      Super:StartLine( nHeight, lSeparator )\n   EndIf\n\n   Return NIL\n[/quote:202hrj49]\n\nsaludos\n\nMarcelo[/quote:202hrj49]','',0,'gA==','202hrj49',1,0,'',292,0,0),(27807,6207,3,160,0,'59.95.238.97',1173245007,1,0,1,1,1,0,'','','Dear Rochina,\n\nI visited the site <!-- w --><a class=\"postlink\" href=\"http://www.activelock.com\">www.activelock.com</a><!-- w -->. But it does not alllow me to register as new member. But anyway, they offer new version 1.8 also. Does that work too with xHarbour ? Let me know if you have experemented.\n\nDoes NSLock can work with pure xHarbour (no GUI) ?\n\nTIA\nMilan.','',0,'gA==','3fu0o9xf',1,0,'',160,0,0),(27808,6223,6,971,0,'150.214.30.26',1173252012,1,0,1,1,1,0,'','Re: Saludos','[quote=&quot;Uri&quot;:1gdjjehr][list]Con este código capturo y visualizo ficheros .bmp con clipper ,FW, y blinker. en pantalla y los grabo en base de datos\n\n\n@16,38 combobox oCombo var cfoto iTems aFiles valid (ofoto:loadbmp;(\"..\\album&quot;+cfoto+\".bmp\"),ofoto:refresh().t.) of oDlg\n\n@5,25 bitmap ofoto filename (\"..\\album&quot;+cfoto+\".bmp\") adjust size 280,210[/quote:1gdjjehr]\n\nEl problema surge al pasarlo a harbour: no lo visualiza en pantalla.\n¿Como podriamos adaptarlo a todo tipo de ficheros de imagen?','',0,'gA==','1gdjjehr',1,0,'',971,0,0),(27809,6223,6,2,0,'87.218.146.174',1173253985,1,0,1,1,1,1,'','','Uri,\n\nModifica esta línea así:\n\n   @ 16,38 combobox oCombo var cfoto iTems aFiles [color=red:20zlrvct]ON CHANGE[/color:20zlrvct] (ofoto:loadbmp(cfoto+\".bmp\"),ofoto:refresh() ) of oDlg\n\nPara mostrar cualquier tipo de imagen cambia BITMAP por IMAGE:\n\n@5,25 [color=red:20zlrvct]IMAGE[/color:20zlrvct] ofoto filename (\"..\\album\\\"+cfoto+\".bmp\") adjust size 280,210\n\ny asegúrate de tener ( FWH\\DLLS\\ ) [color=red:20zlrvct]FreeImage.DLL[/color:20zlrvct] en el mismo directorio en donde esté tu aplicación','',0,'Ag==','20zlrvct',1,0,'',2,0,0),(27810,6202,3,2,0,'87.218.146.174',1173254912,1,0,1,1,1,1,'','','Ehab,\n\nIn samples\\Fivedit.prg change this function:\n[code:20nnwwc3]\nfunction PrgSave&#40;&#41;\n\n   oTxtEdit&#58;SaveToFile&#40;&#41;\n   oTxtEdit&#58;SetFocus&#40;&#41;\n\nreturn nil\n[/code:20nnwwc3]','',0,'AIA=','20nnwwc3',1,0,'',2,0,0),(27811,6212,3,130,0,'141.51.32.24',1173257789,1,0,1,1,1,0,'','','[quote=&quot;Ehab Samir Aziz&quot;:8f1b78m8]I did not find that program at all ?? nsis[/quote:8f1b78m8]\n\nNSIS can be found on\n [url:8f1b78m8]http&#58;//nsis&#46;sourceforge&#46;net/Main_Page[/url:8f1b78m8]\n\nIt´s a very good nstaller, easy to use and supports also the new look of InstallShield.\n\nI suggest, also to download HM NIS Edit, an editor for the scripts. It´s includes a wizard to create installations on the fly.\n\nStefan','',0,'kA==','8f1b78m8',1,0,'',130,0,0),(27812,6105,4,3,0,'82.124.112.138',1173259371,1,0,1,1,1,1,'','','Antonio\n\nI do not have the printer available at the moment. It was delivered to the customer.\n\nI will have a new one within the next 2 days (we have purchased one).\n\nI will continue testing when i will have it available,\n\nregards\n\nRichard','',0,'kA==','6qumcqca',1,0,'',3,0,0),(27813,6231,7,945,0,'80.32.177.143',1173259943,1,0,1,1,1,0,'','Conexion Bluetooth','Muy buenas, yo envio un fichero por un puerto serie a un impresora bluetooth y me gustaría saber si la impresora ha recibido el fichero o no, se que con:\nlocal cConexion := CreateFile( \"COM8:\",GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL )\n\ncConexion si no hay te devuelve 1 pero a mi si no tiene conexion no devuelve 1.\n\nMe gustaría saber si recibe bien la impresora el fichero y ver de que manera puedo saber si está imprimiendo.\n\nGracias.\n\nUn Saludo.','',0,'kA==','2cdtol83',1,0,'',945,0,0),(27814,6212,3,130,0,'141.51.32.24',1173262520,1,0,1,1,1,0,'','','The new UI can be found on\n\n[url:29nus96i]http&#58;//nsis&#46;sourceforge&#46;net/ExperienceUI[/url:29nus96i]\n\nStefan','',0,'EA==','29nus96i',1,0,'',130,0,0),(27815,6232,3,962,0,'200.161.189.238',1173263590,1,0,1,1,1,1,'','Error FiveWin/3 Cannot create Dialog Box - Antonio Linares','[color=red:205md7au]Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Title: Pesquisa em desenvolvimento[/color:205md7au]\n\nNot understand cause  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> , code very simple:\n\nnote:Call EscolheRegistro(), Button in Dialog Resource.\nif not exist Browse, not cause problem.\n\n[code:205md7au]\n\nRedefine BMPGET &#58;&#58;oDBCli&#58;Field&#58;CLI_RAMATI ;\n             ID 4016 ;\n             OF oFld&#58;aDialogs&#91;1&#93; ;\n             VALID GetFill&#40;&#41; ;\n             READONLY ;\n             ACTION RMA-&gt;&#40;EscolheRegistro&#40;oDBRMA,&#58;&#58;oDlgCliente,2&#41;&#41;\n\nfunction EscolheRegistro&#40; oDB, oDlg &#41;\nlocal oWin,oBrw\n\nselect rma\n\nDefine DIALOG oWin ;\n       TITLE \'Pesquisa em desenvolvimento\' ;\n       SIZE 300,300\n\n       @00,00 BROWSE oBrw of oWin\n\n       ADD COLUMN TO oBrw DATA RMA_DESCRI HEADER &quot;DESCRICAO&quot;\n       ADD COLUMN TO oBrw DATA RMA_CODIGO HEADER &quot;CODIGO&quot;\n\n// here, cause problem&#46;\nACTIVATE dialog oWin\n[/code:205md7au]\n\n\nApplication\n===========\n   Path and name: D:\\sistema\\masterl\\master.exe (32 bits)\n   Size: 1,740,800 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 07/03/2007, 07:17:52\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Title: Pesquisa em desenvolvimento\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(565)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(287)\n   Called from: FUNCAO.PRG =&gt; ESCOLHEREGISTRO(454)\n   Called from: CLIENTE.PRG =&gt; (b)TCLIENTE:DLGCLIENTE(123)\n   Called from: CLASSES.PRG =&gt; (b)TBMPGET:DEFAULT(202)\n   Called from: WINDOW.PRG =&gt; TWINDOW:LBUTTONDOWN(0)\n   Called from: CONTROL.PRG =&gt; TBITMAP:LBUTTONDOWN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(270)\n   Called from: CLIENTE.PRG =&gt; TCLIENTE:DLGCLIENTE(181)\n   Called from: CLIENTE.PRG =&gt; TCLIENTE:DLGALTERAR(61)\n   Called from: CLIENTE.PRG =&gt; (b)TCLIENTE:DLGBROWSE(242)\n   Called from: TCBROWSE.PRG =&gt; TMBROWSE:LDBLCLICK(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TMBROWSE:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(270)\n   Called from: CLIENTE.PRG =&gt; TCLIENTE:DLGBROWSE(279)\n   Called from: CLIENTE.PRG =&gt; FRMCLIENTE(5)\n   Called from: MASTER.PRG =&gt; (b)MAIN(27)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: MASTER.PRG =&gt; MAIN(137)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) D CPU 2.80GHz 2800 Mhz\n   Hardware memory: 512 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   CREATEDLGERROR\n     Param   1:    O    Class: TDIALOG\n     Local   1:    U    \n     Local   2:    C    \"                      \"\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    591902\n     Local   3:    U    \n     Local   4:    U    \n   ESCOLHEREGISTRO\n     Param   1:    O    Class: TDBTABLE\n     Param   2:    O    Class: TDIALOG\n     Param   3:    O    Class: TDIALOG\n     Local   1:    O    Class: TCBROWSE\n   (b)TCLIENTE:DLGCLIENTE\n     Param   1:    O    Class: TGET\n     Local   1:    N    5\n   (b)TBMPGET:DEFAULT\n     Param   1:    N    7\n     Param   2:    N    6\n     Param   3:    N    1\n     Param   4:    O    Class: TBITMAP\n   TWINDOW:LBUTTONDOWN\n     Param   1:    N    7\n     Param   2:    N    6\n     Param   3:    N    1\n     Local   1:    O    Class: TBITMAP\n   TBITMAP:LBUTTONDOWN\n     Param   1:    N    7\n     Param   2:    N    6\n     Param   3:    N    1\n     Local   1:    O    Class: TBITMAP\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    513\n     Param   2:    N    1\n     Param   3:    N    458758\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    513\n     Param   2:    N    1\n     Param   3:    N    458758\n     Local   1:    O    Class: TBITMAP\n   TBITMAP:HANDLEEVENT\n     Param   1:    N    513\n     Param   2:    N    1\n     Param   3:    N    458758\n     Local   1:    O    Class: TBITMAP\n   _FWH\n     Param   1:    N    458758\n     Param   2:    N    513\n     Param   3:    N    1\n     Param   4:    N    458758\n     Param   5:    N    71\n     Local   1:    O    Class: TBITMAP\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"CDT_CLIENTE\"\n     Param   3:    N    3016624\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    B    {|| ... }\n     Param   6:    L    .T.\n     Param   7:    B    {|| ... }\n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    3016624\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   TCLIENTE:DLGCLIENTE\n     Local   1:    O    Class: TCLIENTE\n     Local   2:    O    Class: TCLIENTE\n     Local   3:    O    Class: TFOLDER\n     Local   4:    O    Class: TCOMBOBOX\n     Local   5:    O    Class: TCOMBOBOX\n     Local   6:    O    Class: TGET\n     Local   7:    O    Class: TDBTABLE\n   TCLIENTE:DLGALTERAR\n     Local   1:    O    Class: TCLIENTE\n   (b)TCLIENTE:DLGBROWSE\n     Param   1:    N    122\n     Param   2:    N    188\n     Param   3:    N    1\n   TMBROWSE:LDBLCLICK\n     Param   1:    N    122\n     Param   2:    N    188\n     Param   3:    N    1\n     Local   1:    O    Class: TMBROWSE\n     Local   2:    N    8\n     Local   3:    N    1\n     Local   4:    U    \n   TWINDOW:HANDLEEVENT\n     Param   1:    N    515\n     Param   2:    N    1\n     Param   3:    N    7995580\n   TMBROWSE:HANDLEEVENT\n     Param   1:    N    515\n     Param   2:    N    1\n     Param   3:    N    7995580\n     Local   1:    O    Class: TMBROWSE\n   _FWH\n     Param   1:    N    7995580\n     Param   2:    N    515\n     Param   3:    N    1\n     Param   4:    N    7995580\n     Param   5:    N    52\n     Local   1:    O    Class: TMBROWSE\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"CDT_CLIENTE_GRID\"\n     Param   3:    N    2032922\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    B    {|| ... }\n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2032922\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   TCLIENTE:DLGBROWSE\n     Local   1:    O    Class: TCLIENTE\n     Local   2:    O    Class: TFOLDER\n     Local   3:    O    Class: TCLIENTE\n     Local   4:    O    Class: TMBROWSE\n     Local   5:    O    Class: TMBROWSE\n   FRMCLIENTE\n   (b)MAIN\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20001\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TWINDOW\n     Local   2:    N    0\n     Local   3:    N    20001\n     Local   4:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20001\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20001\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TWINDOW\n   WINRUN\n     Param   1:    N    2032922\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    B    {|| ... }\n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TWINDOW\n     Local   2:    O    Class: TMENU\n     Local   3:    O    Class: TFONT\n     Local   4:    O    Class: TOUTLOOK\n     Local   5:    O    Class: TSPLITTER\n     Local   6:    O    Class: TTOOLBAR\n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    N    0\n     Local  10:    C    \"Master Lite - compilação 20070307.07:17:45\"\n\nLinked RDDs\n===========\n   ADS\n   ADT\n   ADSCDX\n   ADSNTX\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\n  1:    CLI                                RddName: ADSCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n         20           24      .F.   .F.\n\n     Indexes in use                        TagName\n           CLI_CODIGO                         CLI001\n        =&gt; CLI_RAZSOC                         CLI002\n\n     Relations in use\n\n  2:    FOR                                RddName: ADSCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n          1            0      .T.   .T.\n\n     Indexes in use                        TagName\n        =&gt; FOR_CODIGO                         FOR001\n           FOR_RAZSOC                         FOR002\n\n     Relations in use\n\n  3: =&gt; RMA                                RddName: ADSCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n          1            3      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; RMA_CODIGO                         RMA001\n           RMA_DESCRI                         RMA002\n\n     Relations in use\n\n  4:    CTC                                RddName: ADSCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n          1            3      .F.   .F.\n\n     Indexes in use                        TagName\n        =&gt; CTC_CLICOD                         CTC001\n\n     Relations in use\n\n  5:    CTF                                RddName: ADSCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n          1            0      .T.   .T.\n\n     Indexes in use                        TagName\n        =&gt; CTF_FORCOD                         CTF001\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TWINDOW\n     5 TDIALOG\n     6 TBRUSH\n     7 TFONT\n     8 TMENU\n     9 TMENUITEM\n    10 TIMAGELIST\n    11 TCONTROL\n    12 TBITMAP\n    13 TTOOLBAR\n    14 TOUTLOOK\n    15 TCURSOR\n    16 TBTNBMP\n    17 TBUTTON\n    18 TSAY\n    19 TSPLITTER\n    20 TMSGBAR\n    21 TRECT\n    22 TMSGITEM\n    23 TTIMER\n    24 TCLIENTE\n    25 TDBTABLE\n    26 TDBFIELD\n    27 TDBFIELD\n    28 TFOLDER\n    29 TWBROWSE\n    30 TCBROWSE\n    31 TMBROWSE\n    32 TCCOLUMN\n    33 TGET\n    34 MGET\n    35 GET\n    36 TCLIPGET\n    37 TSCROLLBAR\n    38 TDBFIELD\n    39 TCOMBOBOX\n    40 MCOMBOBOX\n    41 TBMPGET\n    42 TCHECKBOX\n    43 ERROR\n    44 TREG32\n\nMemory Analysis\n===============\n      173 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes','',0,'AoA=','205md7au',1,1173268081,'',962,1,0),(27816,6105,4,2,0,'87.218.146.174',1173265028,1,0,1,1,1,1,'','','Richard,\n\nOk, thanks','',0,'AoA=','2zehehw5',1,0,'',2,0,0),(27817,6232,3,2,0,'87.218.146.174',1173265254,1,0,1,1,1,1,'','','Éric,\n\nEste ejemplo funciona bien. Por favor, pruébalo:\n[code:bdykqhyj]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;TCBrowse&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\nlocal oWin,oBrw \n\nDefine DIALOG oWin ; \n       TITLE \'Pesquisa em desenvolvimento\' ; \n       SIZE 300,300 \n\n       @00,00 BROWSE oBrw of oWin \n\n       ADD COLUMN TO oBrw DATA &quot;test1&quot; HEADER &quot;DESCRICAO&quot; \n       ADD COLUMN TO oBrw DATA &quot;test2&quot; HEADER &quot;CODIGO&quot; \n\n// here, cause problem&#46; \nACTIVATE dialog oWin \n\nreturn nil\n[/code:bdykqhyj]','',0,'AIA=','bdykqhyj',1,0,'',2,0,0),(27818,6231,7,2,0,'87.218.146.174',1173265407,1,0,1,1,1,1,'','','Puedes comprobar el valor que te devuelve WriteByte() que ha de ser .T.','',0,'AIA=','1swgzkub',1,0,'',2,0,0),(27819,6195,3,2,0,'87.218.146.174',1173265466,1,0,1,1,1,1,'','','Enrico,\n\nIt is also failing <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n&lt;e.m.giordano@emagsoftware.it&gt;:\n62.149.128.157 does not like recipient.\nRemote host said: 553 <!-- m --><a class=\"postlink\" href=\"http://www.spamhaus.org/query/bl?ip=213.149.226.3\">http://www.spamhaus.org/query/bl?ip=213.149.226.3</a><!-- m -->\nGiving up on 62.149.128.157.','',0,'AIA=','3lgvlaor',1,0,'',2,0,0),(27820,6232,3,962,0,'200.161.189.238',1173265574,1,0,1,1,1,1,'','','hehehe, mas não esta funcionando da forma que estou usando.\nNote que há outros códigos além do que eu postei. Caso fosse somente o código que postei, certamente funcionaria.\n\nTentei montar um teste, mas não consigo reproduzir o erro.\n\nQuais os fatores que podem estar afetando a forma que estou usando ?','',0,'AIA=','3l1o5kxu',1,0,'',962,0,0),(27821,6229,7,945,0,'80.32.177.143',1173266035,1,0,1,1,1,0,'','Problema del primer pixel','Muy buenas, ya he conseguido poner el bitmap sin borde, pero la cuestion es que me pone en blanco todos los pixeles que sean igual al primero de la esquina superior-izquiera, se puede quitar esa opcion para que no me haga eso.\n\nUn Saludo.','',0,'AIA=','1obm3qwl',1,0,'',945,0,0),(27822,6233,6,63,0,'88.11.31.105',1173266154,1,0,1,1,1,0,'','Grupos en un Report','Estoy haciendo un report simple por Familias:\n[code:12tvpyyn]\nREPORT oRep &#46;&#46;&#46;&#46;&#46;\nGROUP ON FAMILIA FAM\n&#46;&#46;&#46;&#46;\n\nACTIVATE REPORT &#46;&#46;&#46;\nSTARTGROUP &#40;oReport&#58;NewLine&#40;200&#41;,;\n                oReport&#58;Say&#40;0, &quot;Familia&#58; &quot;+FAM,2,0,oReport&#58;nRow&#41;,;\n                oReport&#58;NewLine&#40;200&#41;&#41;\n\n[/code:12tvpyyn]\n\nQuisiera que quedase así:\n\nFamilia: FAMILIA 1\n&lt;interlinea&gt;\nxxxx\nxxxx\n&lt;interlinea&gt;\nFamilia: FAMILIA 2\n&lt;interlinea&gt;\nxxx\nxxx\nEtc\n\nFunciona bien para todos los grupos excepto el primero, en donde la linea \"Familia:\"  queda sobreescrita (\"machacada\") por la primera linea del report.\n¿Alguien me podría decir cómo solucionarlo?\n\nGracias,\nRafael','',0,'AIA=','12tvpyyn',1,0,'',63,0,0),(27823,6195,3,6,0,'87.17.186.118',1173266420,1,0,1,1,1,1,'','','I hate blacklists. They block the innocents and let the spammers freely do their work... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','1h1xt5tm',1,0,'',6,0,0),(27824,6231,7,945,0,'80.32.177.143',1173268822,1,0,1,1,1,0,'','','Siempre me devuelve .t. y no tengo la impresora enchufada, ¿Que puedo hacer para saber la conexion?\n\nUn Saludo.','',0,'AIA=','m5oh9zt3',1,0,'',945,0,0),(27825,6234,3,227,0,'201.13.25.33',1173272131,1,0,1,1,1,1,'','ListBox','Amigos...\n\nQual metodo devo usar para saltar linhas em um ListBox ???\n\nObrigado','',0,'AIA=','31c0u1ag',1,0,'',227,0,0),(27826,6235,6,449,0,'212.64.224.250',1173273287,1,0,1,1,1,1,'','Clase TTreeView -&gt; Metodo ::Del() ?','Hola,\n\nAlguien sabe como eliminar un iItem de un Tree ?  De la misma manera q existe un ::Add( cPrompt, nImage ), sabeis si es posible hacer algo como ::Del( oItem ) ?\n\nGracias.','',0,'AIA=','lzd529ny',1,0,'',449,0,0),(27827,6230,6,449,0,'212.64.224.250',1173273476,1,0,1,1,1,1,'','','Prueba de ponere antes un select 0 para crear un area nueva.\n\nSaludos.','',0,'AIA=','2hhb9hr9',1,0,'',449,0,0),(27828,6236,6,121,0,'189.142.91.183',1173275253,1,0,1,1,1,1,'','MENUS TIPO XP ( otra vez )','Nuevamente aqui con el problema de la\ncompilacion del los menus de Arturo Tamayo\n\nSiguiendo las instrucciones que me enviaron Arturo, Antonio y otras opciones que indico RF (#pragma begin dump....)\n\nFinamente logre compilar sin errores\npero al ejecutar me envia el siguiente error\n\n\'Program with 1st fun: ALERT\' was compiled by older version, PCODE version 0 is no longer supported - Please recompile.\n\nCabe señalar que estoy recompilando todos los modulos con la version\n0.99.51 de xharbour','',0,'AIA=','8cakdavs',1,0,'',121,0,0),(27829,6230,6,41,0,'200.105.194.235',1173276228,1,0,1,1,1,0,'','','Carles,\n\ngracias, si asi funciona yo utilizaba siempre un area especifica definida para crear el cursor, pero bueno.\n\ngracias, saludos\n\nMarcelo\n\n[quote=&quot;Carles&quot;:ucd633y2]Prueba de ponere antes un select 0 para crear un area nueva.\n\nSaludos.[/quote:ucd633y2]','',0,'gA==','ucd633y2',1,0,'',41,0,0),(27830,6235,6,41,0,'200.105.194.235',1173276660,1,0,1,1,1,0,'','','Carles,\n\nesto me funciona oTree:DeleteString() pero con el tree de Goran Savckic\n\nsaludos','',0,'gA==','2m534teo',1,0,'',41,0,0),(27831,6191,6,196,0,'190.48.193.172',1173277355,1,0,1,1,1,0,'','','Les agradezco sinceramente todas las opiniones, evidentemente hay que usarlo.\nEl unico problema es que nunca use SQL, abusando de su buena voluntad; alguien tendra algun ejemplito de un ABM usando postgre? Me gustaria poder usarlo sin utilizar ODBC.\n\nMuchas gracias\nJorge Jaurena','',0,'gA==','jtj1sogf',1,0,'',196,0,0),(27833,6238,6,196,0,'190.48.193.172',1173282464,1,0,1,1,1,0,'','Probando ODBC','Estoy tratando de compilar el ejemplo testsql1 del nuevo FWH para intentar abrir alguna base de datos que cree con postgres y al enlazar con BCC me da los siguientes errores:\n\nError: Unresolved external _HB_FUN_RDDSETFIELDEXTENT referenced from C:\\FWH\\LIB\\FIVEH.LIB|TRDD\n\nError: Unresolved external _HB_FUN__TRDD referenced from C:\\FWH\\LIB\\FIVEH.LIB|TRDD\n\nError: Unresolved external _HB_FUN_INIODBC32 referenced from C:\\FWH\\LIB\\FIVEH.LIB|TRDDODBC\n\nError: Unresolved external _HB_FUN_ENDODBC32 referenced from C:\\FWH\\LIB\\FIVEH.LIB|TRDDODBC\n\nSospecho que me falta alguna libreria, trate de bajar las librerias construidas de la pagina de harbour pero no he podido.\n\nMuchas gracias\nJorge Jaurena','',0,'gA==','2b9d0yg8',1,0,'',196,0,0),(27834,6232,3,2,0,'87.218.146.106',1173283547,1,0,1,1,1,1,'','','Éric,\n\n&gt; Quais os fatores que podem estar afetando a forma que estou usando ?\n\nQue otros controles usas en el diálogo ?','',0,'gA==','37e8qarc',1,0,'',2,0,0),(27835,6227,6,140,0,'190.36.174.110',1173284635,1,0,1,1,1,0,'','','Hace algun tiempo Victor coloco en mi servidor muchas de las utilidades que ha colocado en su site.\nla url es <!-- m --><a class=\"postlink\" href=\"http://fivewin.sytes.net/fivewin/\">http://fivewin.sytes.net/fivewin/</a><!-- m -->\n\nSe que muchas de las cosas que estaban en dbwide estan alli.\n\nSi en algun momento la url no funciona, envienme un correo a gsabattino gmail.com para resolver en la brevedad posible.\n\nSaludos,\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'gA==','2vyd6m8j',1,0,'',140,0,0),(27836,6239,2,832,0,'201.116.83.242',1173285163,1,0,1,1,1,0,'','!!  YA TENGO COMUNICACION POR EL COM ¡¡','BUEN DIA A TODOS YA TENGO COMUNICACION COM EL \"COM1\"...\n\n\nLO UNICO QUE HACE FALTA ES COMO ENVIAR DATOS...\n\n\nYO LO HAGO ASI...\n\nPERO NO ME MANDA NADA...\n\n\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nOUTBUFCLR()\n\n   SETDTR(.T.)\n\n   cmens1:=\"hola............................\"+chr(13)\n   OUTCHR(@CMENS1)\n   OUTCHR(\"U\")\n\n\n\nY NO ME EVIA NADA  Y LO ESTOY HACIENDO CON IOLIB\n\n\n\nALGUIEN ME PODRIA AYUDAR....','',0,'gA==','2gqdwjwf',1,0,'',832,0,0),(27837,6227,6,435,0,'200.155.197.114',1173285268,1,0,1,1,1,0,'','','Obrigado,\n\nEncontrei o que procurava.\n\nAri','',0,'gA==','o7ehitqo',1,0,'',435,0,0),(27838,6240,6,140,0,'190.36.174.110',1173285536,1,0,1,1,1,0,'','PrnGetName() falla','Saludos a todos...\nTenia algunos meses que no me acecaba al foro...\nMe agrada ver nombres que para mi son nuevos, y muchos de ellos integrandose en la ayuda al resto de los que utilizamos FW como herramienta de desarrollo.\n\nEl tema es el siguiente...\nla funcion PrnGetName() arroja un bello GPF cuando una aplicacion FWH se intenta correr en un equipo donde a nivel de Windows no se haya instalado una impresora previamente...\n\nHay alguna forma de prevenir eso???\n\nGracias de antemano por los comentarios,\n\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'gA==','1k60fual',1,0,'',140,0,0),(27839,6238,6,138,0,'189.141.72.59',1173286177,1,0,1,1,1,1,'','','Pasa del ODBC que es tecnologia obsoleta, y vete mejor por ADO, menos complicaciones y mucho mas simple de entender e implmentar.','',0,'gA==','2gipn1u7',1,0,'',138,0,0),(27840,6241,7,945,0,'80.32.177.143',1173286499,1,0,1,1,1,0,'','Pintar un pixel o varios pixeles','Muy buenas, alguien me podría decir como se pinta un pixel o pixeles en un dialogo y aplicarte un color.\n\nUn Saludo.','',0,'gA==','hl4etr8c',1,0,'',945,0,0),(27842,6242,7,527,0,'88.22.220.124',1173288974,1,0,1,1,1,0,'','problema urgente por favor','Ya he puesto varias veces el mensaje en el foro\nnecesito generar un fichero ascii con los siguientes datos. Mi intencion es generar un fichero asci con los datos de los pedidos y enviarlos por correo electronico.\n\nEl formato de de ser el siguiente\n==========================================\nArticulo        Nombre del articulo                             Cantidad\n==========================================\n???????       ?????????????????????????????????????   ????????????\n???????       ?????????????????????????????????????   ????????????\n???????       ?????????????????????????????????????   ????????????\ny asi sucesivamente, he probado con el FWRITE(xxx,texto+chr(10)+chr(13))\npero no me realiza el salto de linea en el fichero ASCII y no se como solucionar este problema de otra forma.\n\n\nGRACIAS\n<!-- e --><a href=\"mailto:imjcc@mjccsl.com\">imjcc@mjccsl.com</a><!-- e -->','',0,'EA==','1t3ijm40',1,0,'',527,0,0),(27843,6243,6,41,0,'200.105.194.235',1173289865,1,0,1,1,1,0,'','probando xharbour 7.1 + ADS','Hola,\n\notra cosa que me esta pasando al probar XH 99.71 + ADS, por ejemplo el eliminar un registro o aumentar un registro y refrescar un browse es muy lento, hay que esperar para ver la actualizacion, cosa que no pasa con \nxH 99.5.\n\nAlguien mas vio este comportamiento y estoy haciendo algo mal\n\nsaludos\n\nMarcelo','',0,'EA==','yity1p3h',1,0,'',41,0,0),(27845,6242,7,2,0,'87.218.146.106',1173291746,1,0,1,1,1,1,'','','Este ejemplo funciona correctamente:\n[code:2tmc6of9]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local nHand &#58;= fCreate&#40;\'fichero&#46;txt\'&#41; \n\n   fWrite&#40;nHand, &quot;Probando&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n   fWrite&#40;nHand, &quot;Probando&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n   fWrite&#40;nHand, &quot;Probando&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n   fWrite&#40;nHand, &quot;Probando&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n   fWrite&#40;nHand, &quot;Probando&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n   fWrite&#40;nHand, &quot;Probando&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n   fWrite&#40;nHand, &quot;Probando&quot; + Chr&#40;13&#41;+Chr&#40;10&#41; &#41; \n   fClose&#40;nHand&#41;\n\n   MsgInfo&#40; MemoRead&#40; &quot;fichero&#46;txt&quot; &#41; &#41;\n\nreturn nil\n[/code:2tmc6of9]','',0,'AIA=','2tmc6of9',1,0,'',2,0,0),(27846,6236,6,138,0,'189.141.72.59',1173292310,1,0,1,1,1,1,'','','Seguramente estas olvidando compilar algun modulo en C que esta compilado con una version mas nueva.','',0,'AIA=','3hrj784e',1,0,'',138,0,0),(27847,6243,6,138,0,'189.141.72.59',1173293014,1,0,1,1,1,1,'','','Abre TODOS los archivos de datos al principio del programa y asunto arreglado.\n\nEl estar abriendo y cerrando archivos durante la ejecucion del programa ralentiza enormemente el performance del servidor ADS.\n\nTe aconsejo que indexes agregando la clausula FOR NOT DELETED() eso aumenta la velocidad de la actualizacion de datos.','',0,'AIA=','14wjik3c',1,0,'',138,0,0),(27848,6242,7,138,0,'189.141.72.59',1173293190,1,0,1,1,1,1,'','','Generado con Memowrit() y tambien funciona','',0,'AIA=','kvwyjhky',1,0,'',138,0,0),(27849,6244,6,533,0,'80.32.177.143',1173293198,1,0,1,1,1,0,'','Justificado de texto','Buenas foro!!\n\n   Me han planteado una cosilla que no se como solucionar, y es que con la función memoline voy escribiendo un texto en un listado de un cliente, entonces el texto que son lineas de 40 caracteres me lo imprime perfectamente, pero el cliente quiere que el texto salga justificado, pero no quiere que use el tipo de letra Courier New( <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> ). ¿Podéis orientarme?\n\nMUCHAS GRACIAS,\n\nFw 2.8 + xHarbour','',0,'AIA=','3bj8i2hh',1,0,'',533,0,0),(27850,6245,6,36,0,'200.113.56.235',1173293748,1,0,1,1,1,0,'','ADS version 7','Estimados\n\nComo saber con que version esta utilizando la libreria rddAds.lib\n\nYo actualmente utilizo la vension de ADS 7.1 y he visto los fuentes que hace mencion a ADS_REQUIRE_VERSION6;ADS_REQUIRE_VERSION7;\nADS_REQUIRE_VERSION8\n\nHay que volver a compilar la libreria, o bien dentro del sistema agregar alguna clausula\n\n\nDesde ya muy agredecido\n\nSaludos\nPatricio','',0,'AIA=','1s2sqvv0',1,0,'',36,0,0),(27851,6243,6,41,0,'200.105.194.235',1173294351,1,0,1,1,1,0,'','','Rene,\n\ncomo siempre tu aconsejaste abro las ADT (en mi caso) al inicio del programa, entoces ese no es el caso, la cosa es que si cambio de version de XH a 0.99.5 la cosa va rapido. Sera que hay algun cambio en el manejo de ADS que no lo estoy tomando en cuenta.\n\nGracias como siempre\n\nSaludos\n\nMarcelo\n\n[quote=&quot;RF&quot;:1km9lfjv]Abre TODOS los archivos de datos al principio del programa y asunto arreglado.\n\nEl estar abriendo y cerrando archivos durante la ejecucion del programa ralentiza enormemente el performance del servidor ADS.\n\nTe aconsejo que indexes agregando la clausula FOR NOT DELETED() eso aumenta la velocidad de la actualizacion de datos.[/quote:1km9lfjv]','',0,'gA==','1km9lfjv',1,0,'',41,0,0),(27852,6242,7,456,0,'217.127.39.57',1173294718,1,0,1,1,1,1,'','','[quote:1b9porid]FWRITE(xxx,texto+chr(10)+chr(13)) [/quote:1b9porid]\nDebe ser Chr(13)+Chr(10), solo eso hace que el Bloc de notas te visualice el contenido en una sola linea.\n\nTanto lo que te comenta Rene, como Antonio, como yo mismo en el anterior hilo, funcina 100% seguro.','',0,'gA==','1b9porid',1,0,'',456,0,0),(27853,6241,7,2,0,'87.218.146.106',1173296188,1,0,1,1,1,1,'','','Este es un ejemplo:\n[code:25oqou86]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n   \n   DEFINE DIALOG oDlg SIZE 200, 100\n   \n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON PAINT SetPixel&#40; oDlg&#58;hDC, 50, 50, nRGB&#40; 0, 0, 0 &#41; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; SETPIXEL &#41;\n&#123;\n   hb_retnl&#40; SetPixel&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41; &#41; &#41;;\n&#125;   \n\n#pragma ENDDUMP\n[/code:25oqou86]\nCambiando nRGB( 0, 0, 0 ) por otros valores en vez de cero, usas el color RGB que quieras','',0,'AIA=','25oqou86',1,0,'',2,0,0),(27854,6238,6,413,0,'217.125.9.228',1173297207,1,0,1,1,1,0,'','','Rene he mirado el odbc y me parece una burrada eso de que trabaje con dbf temporales, hay mucho aprendiz de bill gaitas en mi trabajo y no tardarian en encontrar esta vulnerabilidad. Donde encuentro ejemplos de ADO, no veo en fivewin ningun ejemplo. \n\nJorge a mi tambien me da el mismo error, bueno parecido, pues compilo con xharbour, pero el testsql3 si que me funciono.\n\n\nSalud.','',0,'AIA=','hrwwknip',1,0,'',413,0,0),(27855,6238,6,2,0,'87.218.146.106',1173297542,1,0,1,1,1,1,'','','La clase TRdd está sólo disponible para FW 16 bits (ya que [x]Harbour implementan una similar USRRDD)','',0,'','psy7ld20',1,0,'',2,0,0),(27856,6239,2,2,0,'87.218.146.106',1173297865,1,0,1,1,1,1,'','','Revisa el ejemplo samples\\phone.prg','',0,'','bcl478zm',1,0,'',2,0,0),(27857,6242,7,527,0,'88.22.220.124',1173298447,1,0,1,1,1,0,'','ok. Lo volvere a probar entonces','gracias.','',0,'','2ohs5bqy',1,0,'',527,0,0),(27858,6245,6,36,0,'200.113.56.235',1173300208,1,0,1,1,1,0,'','','Me respondo, si alguien tiene otra solucion favor postearla\n\nAl final tuve que reconstruir la libreria nuevamente, pero me salieron unos warning, pero al parecer son solo advertencia que se declaro una variable con un valor y este no fue utilizado o algo parecido\n\npero me cuasa cuidado la linea [b:3i951r0d]Warning W8065 adsfunc.c 189[/b:3i951r0d]\n\n[code:3i951r0d]MAKE Version 5&#46;2  Copyright &#40;c&#41; 1987, 2000 Borland\n	bcc32   -c -O2 -DWIN32;ADS_REQUIRE_VERSION=7&#46;1 -Ic&#58;\\harbour\\include -o&#46;&#46;\\&#46;&#46;\\obj\\b32\\ads1&#46;obj ads1&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nads1&#46;c&#58;\nWarning W8004 ads1&#46;c 727&#58; \'ulRetVal\' is assigned a value that is never used in function adsGoTo\nWarning W8004 ads1&#46;c 995&#58; \'u32Result\' is assigned a value that is never used in function adsSeek\nWarning W8004 ads1&#46;c 2611&#58; \'hConnection\' is assigned a value that is never used in function adsOpen\nWarning W8004 ads1&#46;c 4109&#58; \'u32RetVal\' is assigned a value that is never used in function adsGetValueFile\nWarning W8004 ads1&#46;c 4139&#58; \'u32RetVal\' is assigned a value that is never used in function adsPutValueFile\nWarning W8065 ads1&#46;c 4309&#58; Call to function \'AdsApplicationExit\' with no prototype in function adsExit\n	tlib &#46;&#46;\\&#46;&#46;\\lib\\rddads&#46;lib -+&#46;&#46;\\&#46;&#46;\\obj\\b32\\ads1&#46;obj,,\nTLIB 4&#46;5 Copyright &#40;c&#41; 1987, 1999 Inprise Corporation\n\n	bcc32   -c -O2 -DWIN32;ADS_REQUIRE_VERSION=7&#46;1 -Ic&#58;\\harbour\\include -o&#46;&#46;\\&#46;&#46;\\obj\\b32\\adsfunc&#46;obj adsfunc&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nadsfunc&#46;c&#58;\nWarning W8065 adsfunc&#46;c 189&#58; Call to function \'AdsApplicationExit\' with no prototype in function HB_FUN_ADSAPPLICATIONEXIT\nWarning W8004 adsfunc&#46;c 2099&#58; \'fDictionary\' is assigned a value that is never used in function HB_FUN_ADSCONNECT60\n	tlib &#46;&#46;\\&#46;&#46;\\lib\\rddads&#46;lib -+&#46;&#46;\\&#46;&#46;\\obj\\b32\\adsfunc&#46;obj,,\nTLIB 4&#46;5 Copyright &#40;c&#41; 1987, 1999 Inprise Corporation\n\n	bcc32   -c -O2 -DWIN32;ADS_REQUIRE_VERSION=7&#46;1 -Ic&#58;\\harbour\\include -o&#46;&#46;\\&#46;&#46;\\obj\\b32\\adsmgmnt&#46;obj adsmgmnt&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nadsmgmnt&#46;c&#58;\n	tlib &#46;&#46;\\&#46;&#46;\\lib\\rddads&#46;lib -+&#46;&#46;\\&#46;&#46;\\obj\\b32\\adsmgmnt&#46;obj,,\nTLIB 4&#46;5 Copyright &#40;c&#41; 1987, 1999 Inprise Corporation\n\n[/code:3i951r0d]\n\nSaludos\nPatricio','',0,'QIA=','3i951r0d',1,0,'',36,0,0),(27859,6056,6,36,0,'200.113.56.235',1173300312,1,0,1,1,1,0,'','','Me respondo\n\n  AdsCloseCachedTables()\n\nSaludos\nPatricio','',0,'QIA=','te82e47t',1,0,'',36,0,0),(27860,6236,6,121,0,'189.141.149.95',1173302424,1,0,1,1,1,1,'','','GRACIAS RENE\nPERO, SOLO COMPILO PUROS PRG\nLOS ARCHIVOS .C  ( MENUS.C GRADFILL.C )\nSE INCLUYERON EN LOS PRGS UTILIZANDO\nBEGINDUMP...ENDDUMP\n\nANEXO BAT DE COMPILACION\n\nset hdir=c:\\xharbour\nset bcdir=c:\\bcc55\n\nc:\\xharbour\\bin\\harbour %1 /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt; clip.log\nc:\\xharbour\\bin\\harbour menu.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log\nc:\\xharbour\\bin\\harbour mru.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log\nc:\\xharbour\\bin\\harbour menuitem.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log\nc:\\xharbour\\bin\\harbour pdmenu.prg /n /i..\\include;c:\\xharbour\\include;c:\\bcc55\\include;c:\\fwh\\include /w /p %2 %3 &gt;&gt; clip.log\n\necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include %1.c         &gt; b32.bc\necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include menu.c      &gt;&gt; b32.bc\necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include mru.c       &gt;&gt; b32.bc\necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include menuitem.c  &gt;&gt; b32.bc\necho -O2 -e%1.exe -Ic:\\xharbour\\include;c:\\bcc55\\include pdmenu.c    &gt;&gt; b32.bc\nc:\\bcc55\\bin\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc c:\\bcc55\\bin\\brc32 -r %1\n\necho c:\\bcc55\\lib\\c0w32.obj + &gt; b32.bc\necho %1.obj + &gt;&gt; b32.bc\necho menu.obj + &gt;&gt; b32.bc\necho Mru.obj + &gt;&gt; b32.bc\necho menuitem.obj + &gt;&gt; b32.bc\necho pdmenu.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho c:\\fwh\\lib\\FiveH.lib c:\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n\necho %hdir%\\lib\\rtl.lib          +  &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib           +  &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib         +  &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib          +  &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib           +  &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib     +  &gt;&gt; b32.bc\n\n\necho c:\\bcc55\\lib\\cw32.lib + &gt;&gt; b32.bc\necho c:\\bcc55\\lib\\import32.lib + &gt;&gt; b32.bc\necho c:\\bcc55\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho c:\\bcc55\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho c:\\bcc55\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\necho c:\\bcc55\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\nc:\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n\n@del %1.c\n@del %1.il?','',0,'QIA=','oafqq73k',1,0,'',121,0,0),(27861,6189,2,890,0,'209.88.63.74',1173314841,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2kz1vtla]Jairo,\n\nTe hemos enviado tu PRG modificado y funcionando correctamente[/quote:2kz1vtla]\n\nAntonio \n\nGracias Antonio por tus explicaciones, la busqueda del registro deseado funciono muy bien, es fabuloso la forma como se logra, en verdad es gratificante haber aprendido ese punto, solo quda un interrogante, cuando llamo el registro es correcto y muy rapido, pero la informacion que se introdujo por el combobox no aparece en la informacion que trae del registro solicitado, por favor aconsejame como puedo soliccionar este pequeño problemita.\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','2kz1vtla',1,0,'',890,0,0),(27862,6189,2,2,0,'87.218.146.203',1173315038,1,0,1,1,1,1,'','','Jairo,\n\nte refieres al combobox de \"ingreso\" ?\n\nEn el PRG faltaba la \"@\" antes de la variable:\n[code:16e5jg6c]\nIgualaVariable&#40; @cPlaca, @cFecha, @cEmpresa,; \n                @cNombre, @cMarca, @cTel_Fijo,;\n                @cTel_Mobil, @cColorr, @cLinea,;\n                @cOt, @cIngreso, @cRegis, @aItems &#41;\n[/code:16e5jg6c]\n','',0,'AoA=','16e5jg6c',1,0,'',2,0,0),(27863,6189,2,890,0,'209.88.63.74',1173315556,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1qyf7gt5]Jairo,\n\nte refieres al combobox de \"ingreso\" ?\n\nEn el PRG faltaba la \"@\" antes de la variable:\n[code:1qyf7gt5]\nIgualaVariable&#40; @cPlaca, @cFecha, @cEmpresa,; \n                @cNombre, @cMarca, @cTel_Fijo,;\n                @cTel_Mobil, @cColorr, @cLinea,;\n                @cOt, @cIngreso, @cRegis, @aItems &#41;\n[/code:1qyf7gt5]\n[/quote:1qyf7gt5]\n\nRevisare si me falta igualar la variable te lo comentare cuando lo ensaye  pero lo que sale en ese campo es el contenido del array y no lo que se encuentra en el dbf\nGracias ne nuevo','',0,'goA=','1qyf7gt5',1,0,'',890,0,0),(27864,6246,6,854,0,'200.95.238.251',1173337688,1,0,1,1,1,0,'','TxBrowse desde Recursos','Que tal, he estado viendo las respuestas sobre el txbrowse y de los demos que han puesto ninguno lo hace desde recursos, la pregunta se puede ?\n\nGracias.','',0,'goA=','12ksliif',1,0,'',854,0,0),(27865,6246,6,54,0,'189.132.118.91',1173338384,1,0,1,1,1,1,'','Re: TxBrowse desde Recursos','[quote=&quot;Vital&quot;:2phgr3hk]Que tal, he estado viendo las respuestas sobre el txbrowse y de los demos que han puesto ninguno lo hace desde recursos, la pregunta se puede ?\n\nGracias.[/quote:2phgr3hk]\n\nAfirmativo, claro que se puede.\n\n[code:2phgr3hk]   WITH OBJECT &#40; oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; &#41;\n      &#58;SetArray&#40; aDetalle &#41;\n      &#58;lVScroll         &#58;= &#46;t&#46;\n      &#58;lHScroll         &#58;= &#46;f&#46;\n      &#58;nFreeze          &#58;= 1\n      &#58;nColDividerStyle &#58;= LINESTYLE_INSET\n\n      WITH OBJECT &#58;aCols&#91;1&#93;\n         &#58;cHeader      &#58;= &quot;Línea&quot;\n         &#58;bStrData     &#58;= &#123;|| Transform&#40; aDetalle&#91; oBrw&#58;nArrayAt &#93;&#91;01&#93;, &quot;9,999&quot; &#41;&#125;\n      END\n      WITH OBJECT &#58;aCols&#91;2&#93;\n         &#58;cHeader      &#58;= &quot;Estudio&quot;\n         &#58;bStrData     &#58;= &#123; || Transform&#40; aDetalle&#91; oBrw&#58;nArrayAt &#93;&#91;02&#93;, &quot;@x&quot; &#41; &#125;\n      END\n      WITH OBJECT &#58;aCols&#91;3&#93;\n         &#58;cHeader      &#58;= &quot;Descripción&quot;\n         &#58;bStrData     &#58;= &#123; || Transform&#40; aDetalle&#91; oBrw&#58;nArrayAt &#93;&#91;03&#93;, &quot;@x&quot; &#41; &#125;\n      END\n\n      &#58;CreateFromResource&#40; 403 &#41;\n   END[/code:2phgr3hk]\n\nEspero te ayude este código','',0,'gIA=','2phgr3hk',1,0,'',54,0,0),(27866,6246,6,854,0,'200.95.238.251',1173338810,1,0,1,1,1,0,'','Gracias wmormar','Lo voy a probar','',0,'gIA=','2hakmrd3',1,0,'',854,0,0),(27867,6223,6,971,0,'150.214.30.26',1173339073,1,0,1,1,1,0,'','captura de ficheros de imagen en un combobox','Saludos de nuevo Antonio:\nPues sigue sin funcionarme la función de capturar imagenes a través de un combobox como lo hacia con clipper .No se visualiza en pantalla,aunque si se graba el campo.\n\nEl único modo es una vez capturado el campo, editar la base de datos con dbu.exe y en el campo foto suprimir la extensión .bmp, .jpg, .gif  etc.\nEntonces:\nCon loadbmp\\\"+cfoto+\".bmp\" sólo visualizo los que tenian extensión .bmp\nCon loadbmp\\\"+cfoto+\".jpg\" sólo visualizo los que tenian extensión .jpg\nAsí como con IMAGE ofoto, con loadimage. etc.\n\nTambien he probado utilizando alltrim(cfoto), en la cabecera pongo el #include\"Image.ch\", el fichero freeimage.dll lo tengo en todos los directorios del programa.\n¿Tendría algo que ver que el campo cfoto tenga 24 caracteres.? \nSaludos :Félix Urí','',0,'gIA=','33ukg51y',1,0,'',971,0,0),(27868,6223,6,2,0,'87.218.146.148',1173341152,1,0,1,1,1,1,'','','Uri,\n\nPrueba este ejemplo y verás que funciona correctamente:\n[code:3chua2ba]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cFoto &#58;= &quot;one&quot;, oFoto\n   local aFiles &#58;= &#123; &quot;one&quot;, &quot;two&quot;, &quot;three&quot; &#125;\n\n   DEFINE DIALOG oDlg SIZE 400, 300\n\n   @ 1, 1 combobox oCombo var cfoto iTems aFiles ON CHANGE &#40;ofoto&#58;loadbmp&#40;cfoto+&quot;&#46;png&quot;&#41;,ofoto&#58;refresh&#40;&#41; &#41; of oDlg \n\n   @ 1, 7 IMAGE ofoto filename &#40; cfoto + &quot;&#46;png&quot; &#41; adjust size 120,120\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:3chua2ba]\nProporciónale tres archivos .PNG (\"one.png\", \"two.png\" y \"three.png\")','',0,'AIA=','3chua2ba',1,0,'',2,0,0),(27869,6247,7,57,0,'83.53.69.224',1173343165,1,0,1,1,1,1,'','bWhen en Menus con Bitmaps','Antonio\n\nNecesito poder utilizar la clausula bWhen para habilitar/desabilitar opciones de Menu del tipo Botones con Bitmaps. \n\n¿Como puedo hacerlo?\n\nSaludos','',0,'AIA=','2iwd9jtc',1,0,'',57,0,0),(27870,6248,3,3,0,'82.124.244.55',1173348944,1,0,1,1,1,1,'','fwh jan 2007 + xhab jan 2007 error','Antonio\n\nI have migrated my system to fwh jan and also xhb pro to jan 2007\n\nWhen i link my app, i get \n\nxlink error  : Unresolved external symbol _ansitowide \n\nAny clue ?\n\nThanks\n\nRichard','',0,'AIA=','1dlhdb1y',1,0,'',3,0,0),(27871,6247,7,2,0,'87.218.146.148',1173351642,1,0,1,1,1,1,'','','Toni,\n\nLa claúsula WHEN de los menuitems funciona correctamente. Prueba este cambio en samples\\TestMnu2.prg:\n\n   REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo( \"Proveedores\" ) WHEN .F.','',0,'AIA=','c2h6s5lz',1,0,'',2,0,0),(27872,6248,3,2,0,'87.218.146.148',1173351941,1,0,1,1,1,1,'','','Richard,\n\nStrange... Please add this function:\n\n[code:2ktx3jtz]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n\nLPWSTR AnsiToWide&#40; LPSTR cAnsi &#41;;\n\nLPWSTR ansitowide&#40; LPSTR cAnsi &#41;\n&#123;\n   return AnsiToWide&#40; cAnsi &#41;;\n&#125;\n#pragma ENDDUMP\n[/code:2ktx3jtz]','',0,'AIA=','2ktx3jtz',1,0,'',2,0,0),(27873,6234,3,2,0,'87.218.146.148',1173352256,1,0,1,1,1,1,'','','Christiano,\n\nTe refieres a un ListBox de Windows ó a un browse ?','',0,'AIA=','gaosxucq',1,0,'',2,0,0),(27874,6240,6,2,0,'87.218.146.148',1173352539,1,0,1,1,1,1,'','','Giancarlo,\n\nAqui esta funcionando correctamente con FWH 7.01\n\nComprueba que este es el código fuente de esa función:\n[code:yri22q44]\nCLIPPER PRNGETNAME&#40; PARAMS &#41; // &#40;&#41; --&gt; cPrinter\n&#123;\n   LPDEVNAMES lpDevNames; \n\n   PrinterInit&#40;&#41;; \n\n   if&#40; pd&#46;hDevNames &#41; \n   &#123; \n      lpDevNames = &#40;LPDEVNAMES&#41; GlobalLock&#40; pd&#46;hDevNames &#41;; \n\n      if&#40; lpDevNames &#41; \n      &#123; \n         _retc&#40; &#40; LPSTR &#41; lpDevNames + lpDevNames-&gt;wDeviceOffset &#41;; \n         GlobalUnlock&#40; pd&#46;hDevNames &#41;; \n      &#125; \n      else \n         _retc&#40; &quot;&quot; &#41;; \n   &#125; \n   else \n      _retc&#40; &quot;&quot; &#41;; \n&#125;\n[/code:yri22q44]','',0,'AIA=','yri22q44',1,0,'',2,0,0),(27875,6247,7,57,0,'83.53.69.224',1173352690,1,0,1,1,1,1,'','','Antonio\n\nFunciona correctamente cuando son Menus tipo Popup pero no funciona cuando son Menus tipo botones con Bitmaps\n\nPuedes probar el ejemplo menubmp.prg y podras comprobarlo.\n\nSaludos','',0,'AIA=','36rczhcy',1,0,'',57,0,0),(27876,6244,6,2,0,'87.218.146.148',1173352903,1,0,1,1,1,1,'','','Podrias ir añadiendo espacios al texto y llamando al método oPrinter:GetTextWidth( cText, oFont ) hasta que devuelva el ancho deseado','',0,'AIA=','1zm3mdso',1,0,'',2,0,0),(27877,6222,3,2,0,'87.218.146.148',1173353083,1,0,1,1,1,1,'','','Éric,\n\n&gt; If Control be in SysTabControl32( TFolder ), not know how read. \n\nUse GetClassName( hCtrlWnd ) to check for SysTabControl32 and check its childs\n\n&gt; if Control be Disable, GetNextDlgTabItem skip handle control. \n\nUse GetWindow( hWnd, GW_CHILD ) and GW_HWNDNEXT','',0,'AIA=','3pjpuhop',1,0,'',2,0,0),(27878,6174,6,2,0,'87.218.146.148',1173353149,1,0,1,1,1,1,'','','FWH\\samples\\buildh.bat muestra claramente como se construyen los OBJs y el EXE','',0,'AIA=','34qw5t64',1,0,'',2,0,0),(27879,6248,3,3,0,'82.124.244.55',1173353286,1,0,1,1,1,1,'','','Antonio\n\nSame link error message\n\nSwitching back to fwh october 2006 , this is the one i was using compiles and links ok\n\nRichard','',0,'AIA=','3tk3ycam',1,0,'',3,0,0),(27880,6249,3,86,0,'213.119.103.68',1173354378,1,0,1,1,1,1,'','Word VBA instructions in FW','Hello,\n\nHow do I put the next lines in a OLE-instruction in FW ?\n\n[code:yin9jk4g]    Application&#46;WindowState = wdWindowStateNormal\n    Application&#46;Move Left&#58;=0, Top&#58;=43\n    Application&#46;Resize Width&#58;=768, Height&#58;=553\n[/code:yin9jk4g]\n\nThank you.\n\nMichel','',0,'AIA=','yin9jk4g',1,0,'',86,0,0),(27881,6250,4,267,0,'200.208.238.2',1173354534,1,0,1,1,1,1,'','Error when compiling HB_FUNC (GPRSCONNECTION) of Pawelu','Hi,\n\nWhat I am making made a mistake? When I compile the function appear the following messages of error:\n\n\n\nc:\\vce\\include\\arm\\connmgr.h(13) : error C2059: syntax error : \',\'\nc:\\vce\\include\\arm\\connmgr.h(13) : error C2143: syntax error : missing \')\' before \'constant\'\nc:\\vce\\include\\arm\\connmgr.h(13) : error C2143: syntax error : missing \'{\' before \'constant\'\nc:\\vce\\include\\arm\\connmgr.h(13) : error C2059: syntax error : \'&lt;Unknown&gt;\'\nc:\\vce\\include\\arm\\connmgr.h(13) : error C2059: syntax error : \')\'\nc:\\vce\\include\\arm\\connmgr.h(16) : error C2059: syntax error : \',\'\nc:\\vce\\include\\arm\\connmgr.h(16) : error C2143: syntax error : missing \')\' before \'constant\'\nc:\\vce\\include\\arm\\connmgr.h(16) : error C2143: syntax error : missing \'{\' before \'constant\'\nc:\\vce\\include\\arm\\connmgr.h(16) : error C2059: syntax error : \'&lt;Unknown&gt;\'\nc:\\vce\\include\\arm\\connmgr.h(16) : error C2059: syntax error : \')\'\nc:\\vce\\include\\arm\\connmgr.h(19) : error C2059: syntax error : \',\'\nc:\\vce\\include\\arm\\connmgr.h(19) : error C2143: syntax error : missing \')\' before \'constant\'\nc:\\vce\\include\\arm\\connmgr.h(19) : error C2143: syntax error : missing \'{\' before \'constant\'\nc:\\vce\\include\\arm\\connmgr.h(19) : error C2059: syntax error : \'&lt;Unknown&gt;\'\nc:\\vce\\include\\arm\\connmgr.h(19) : error C2059: syntax error : \')\'\nc:\\vce\\include\\arm\\connmgr.h(22) : error C2059: syntax error : \',\'\n\n\n[code:3q7zzqxe]// Header file&#58; &lt;connmgr&#46;h&gt; \n// Library linked&#58; CellCore&#46;Lib \n// Pocket Pc&#58; Properly create GPRS connection &#40;My ISP&#41; in Connections Settings \n//            Connections Settings, Advanced Tab, Select Networks Button, set to My ISP \n\nHB_FUNC &#40;GPRSCONNECTION&#41; \n&#123; \n   HANDLE phWebConnection = NULL; \n   DWORD pdwStatus = 0; \n\n   ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;; \n   if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41; \n   &#123; \n      hb_retl &#40;TRUE&#41;; \n   &#125; \n   else \n   &#123; \n      CONNMGR_CONNECTIONINFO sConInfo; \n      memset &#40;&amp;sConInfo,0, sizeof &#40;CONNMGR_CONNECTIONINFO&#41;&#41;; \n      sConInfo&#46;cbSize = sizeof &#40;CONNMGR_CONNECTIONINFO&#41;; \n      sConInfo&#46;dwParams = CONNMGR_PARAM_GUIDDESTNET; \n      sConInfo&#46;dwPriority = CONNMGR_PRIORITY_USERINTERACTIVE; \n      sConInfo&#46;dwFlags = CONNMGR_FLAG_PROXY_HTTP; \n      sConInfo&#46;bExclusive = FALSE; \n      sConInfo&#46;bDisabled = FALSE; \n      sConInfo&#46;guidDestNet = IID_DestNetInternet; \n\n      if &#40;ConnMgrEstablishConnection &#40;&amp;sConInfo, &amp;phWebConnection&#41; == S_OK&#41; \n      &#123; \n         for &#40;unsigned int k = 0; k &lt; 8; k ++&#41; \n         &#123; \n            ConnMgrConnectionStatus&#40;phWebConnection,&amp;pdwStatus&#41;; \n            if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41; \n            &#123; \n               hb_retl &#40;TRUE&#41;; \n            &#125; \n            else \n            &#123; \n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41; \n               &#123; \n                  hb_retl &#40;FALSE&#41;; \n               &#125; \n               Sleep &#40;2500&#41;; \n               ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;; \n               if &#40;pdwStatus == CONNMGR_STATUS_WAITINGCONNECTION&#41; \n               &#123;&#125; \n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41; \n               &#123; \n                  hb_retl &#40;FALSE&#41;; \n               &#125; \n            &#125; \n         &#125; \n         hb_retl &#40;FALSE&#41;; \n      &#125; \n      else \n      &#123; \n         hb_retl &#40;FALSE&#41;; \n      &#125; \n   &#125; \n&#125; \n[/code:3q7zzqxe]','',0,'AIA=','3q7zzqxe',1,0,'',267,0,0),(27882,6241,7,945,0,'80.32.177.143',1173356486,1,0,1,1,1,0,'','','Lo que me gustaría hacer es quitar pintar sobre el primer pixel de un bitmap y así ocultar el pixel blanco que le pongo en la esquina superior-izquiera para que no haga lo de la transparencia. ¿Sabrias decirme en que posicion se encuentra el pixel si tenemos posicionado el bitmap en @ 3,4? gracias.','',0,'AIA=','2eka8k5p',1,0,'',945,0,0),(27883,6240,6,140,0,'190.36.189.7',1173357101,1,0,1,1,1,0,'','','Hola Antonio, Saludos...\n\nOlvide añadir al post que aun estoy en la edad de bronce...  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nUso FW2.4 y xHarbour 0.993\n\nTambien me doy cuenta de que no hice bien el planteamiento...\nEl GPF en la aplicación FW/xH se presenta cuando a nivel de Windows no se ha instalado ninguna impresora (carpeta de impresoras completamente vacia) y pasa por la función PrnGetName().\n\nAl haber al menos una impresora instalada a nivel de Windows ya el problema no se presenta.\n\nGracias adelantadas por tus comentarios,\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'AIA=','34hazkhv',1,0,'',140,0,0),(27884,6234,3,227,0,'201.13.25.33',1173358124,1,0,1,1,1,1,'','','Sim, ListBox de Windows...\n\nObrigado','',0,'AIA=','2l5df6sm',1,0,'',227,0,0),(27885,6243,6,41,0,'200.105.194.235',1173360437,1,0,1,1,1,0,'','','Holas,\n\ncreo que encontre el por que de  la lentitud, la funcion DBCOMMITALL(), es mucho mas lenta en la version 99.71 de xHarbour que en la 99.5, sera que alguien puede puede confirmarme este hecho.\n\nsaludos\n\nMarcelo','',0,'AIA=','tpxno2vp',1,0,'',41,0,0),(27886,6249,3,397,0,'201.1.163.158',1173360744,1,0,1,0,1,1,'','','[code:n4ihc0hd]\n          oWord&#58;=TOleAuto&#40;&#41;&#58;New&#40; &quot;Word&#46;Application&quot; &#41;\n          oWord&#58;Documents&#58;Open&#40; &quot;C&#58;\\AUTOEXEC&#46;BAT&quot; &#41;\n          oWord&#58;Top              &#58;= 0\n          oWord&#58;Left              &#58;= 43\n          oWord&#58;Width           &#58;=768 \n          oWord&#58;Height          &#58;=553\n          oWord&#58;Visible          &#58;= &#46;t&#46;\n          oWord&#58;Visible          &#58;= &#46;t&#46;\n          oWord&#58;Visible          &#58;= &#46;t&#46;\n          oWord&#58;WindowState &#58;= 1\n[/code:n4ihc0hd]','',0,'AIA=','n4ihc0hd',1,0,'',397,0,0),(27887,6181,7,720,0,'80.36.244.134',1173360920,1,0,1,1,1,0,'','','Hola a todos...\n\nAntonio, el problema que tengo no es la \"x\" de los dialogos puesto que los he creado sin el caption y por tanto sin la \"x\". A lo que me refiero es a la \"x\" que tiene la propia pantalla de windows, nose si me explico, esa \"x\" que se encuentra al lado de la hora....\n\nEl tema es que si el usuario pulsa ahi le cierra la pantalla en la que se encuentra y por tanto no realiza las acciones que debe hacer...\n\nAlguna sugerencia al respecto?..\n\nSaludos y gracias..\n\nElías Torres.','',0,'AIA=','30g2tvbt',1,0,'',720,0,0),(27888,6241,7,2,0,'87.218.146.148',1173362083,1,0,1,1,1,1,'','','Lo más facil es que modifiques directamente el fichero BMP y le cambies el pixel 0, 0 a otro color','',0,'AIA=','9iiehy20',1,0,'',2,0,0),(27889,6181,7,2,0,'87.218.146.148',1173362203,1,0,1,1,1,1,'','','Elías,\n\nUsa el VALID de la ventana principal:\n\nACTIVATE WINDOW oWnd VALID ( ... )\n\nDebe ser una expresión lógica que devuelva .t. ó .f.','',0,'AIA=','3b50q88t',1,0,'',2,0,0),(27890,6248,3,2,0,'87.218.146.148',1173362339,1,0,1,1,1,1,'','','Richard,\n\nPlace an underscore in front:\n[code:31e2897w]\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt; \n\nLPWSTR AnsiToWide&#40; LPSTR cAnsi &#41;; \n\nLPWSTR _ansitowide&#40; LPSTR cAnsi &#41; \n&#123; \n   return AnsiToWide&#40; cAnsi &#41;; \n&#125; \n#pragma ENDDUMP\n[/code:31e2897w]','',0,'AIA=','31e2897w',1,0,'',2,0,0),(27891,6240,6,2,0,'87.218.146.148',1173362433,1,0,1,1,1,1,'','','Giancarlo,\n\nNosotros lo hemos probado quitando todas las impresoras de Windows y no da errores:\n\nMsgInfo( GetPrnName() )\n\nMuestra un MsgInfo() vacio sin texto','',0,'AIA=','37ws7wzr',1,0,'',2,0,0),(27892,6250,4,13,0,'213.76.252.200',1173362503,1,0,1,1,1,0,'','','Vilian,\n\nTry to compile this code with -TP switch.\n\nPawel','',0,'AIA=','1a67qivi',1,0,'',13,0,0),(27893,6248,3,3,0,'82.124.244.55',1173363248,1,0,1,1,1,1,'','','Antonio\n\nNo change same error \n\nVery strange, where can it come from ?\n\nEverything compiles OK with fwh 2.8 october\n\nRichard','',0,'AIA=','34723bpa',1,0,'',3,0,0),(27894,6251,3,154,0,'151.21.75.33',1173363711,1,0,1,1,1,1,'','Special character','I must use special characters in fields get, mget of fwh and in fields memo or character in the dbf. \nDuring the insertion it is ok, changes as soon as I exit from the field:\n[url=http&#58;//img161&#46;imagevenue&#46;com/img&#46;php?image=63166_Immagine4_123_154lo&#46;JPG:11hhu8uq][img:11hhu8uq]http&#58;//img161&#46;imagevenue&#46;com/loc154/th_63166_Immagine4_123_154lo&#46;JPG[/img:11hhu8uq][/url:11hhu8uq]\nIs possible to solve?\nThanks in advance.','',0,'GA==','11hhu8uq',1,0,'',154,0,0),(27895,6240,6,140,0,'190.36.189.7',1173364292,1,0,1,1,1,0,'','','Si Antonio, lo que tu planteas es lo lógico, pero el caso es que con las versiones que estoy utilizando la funcion falla... (FW2.4 y xH0.993)\n\nVoy a hacer unas pruebitas haciendo un programa usando solo la funcion para ver si se trata de algun elemento que pueda estar afectandola...\n\nGracias,\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'GA==','1ju2fp75',1,0,'',140,0,0),(27896,6251,3,6,0,'87.17.223.194',1173365772,1,0,1,1,1,1,'','Re: Special character','Please build a simple PRG showing the problem.\n\nEMG','',0,'GA==','3oz7aeuv',1,0,'',6,0,0),(27897,6250,4,267,0,'200.208.238.2',1173366223,1,0,1,1,1,1,'','','Hi Pawel,\n\nIt improved, now the error is only one:\n\n[code:14asriki]Compiling&#46;&#46;&#46;\nHarbour Compiler Alpha build 46&#46;2 &#40;Flex&#41;\nCopyright 1999-2006, http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'ftpv&#46;prg\' and generating preprocessed output to \'ftpv&#46;ppo\'&#46;&#46;&#46;\n\nLines 221, Functions/Procedures 1\nGenerating C source output to \'ftpv&#46;c\'&#46;&#46;&#46; Done&#46;\nftpv&#46;c\n   Creating library ftpv&#46;lib and object ftpv&#46;exp\nftpv&#46;obj &#58; error LNK2019&#58; unresolved external symbol &quot;unsigned short * __cdecl AnsiToWide&#40;char *&#41;&quot; &#40;?AnsiToWide@@YAPAGPAD@Z&#41; referenced in function HB_FUN_INTERNETOPEN\nftpv&#46;exe &#58; fatal error LNK1120&#58; 1 unresolved externals\n* Application successfully built\n[/code:14asriki]','',0,'AIA=','14asriki',1,0,'',267,0,0),(27898,6240,6,72,0,'189.146.239.227',1173368058,1,0,1,1,1,0,'','','Prueba de esta forma:\n\n      IF GetPrintDefault(GetActiveWindow())&lt;&gt;0\n         oPrn:=PrintBegin(\"\",.F.,,,.T.)\n            oPrn:SetPage(1)\n         PrintEnd()\n      ELSE\n         MsgAlert(\"Configure una impresora como predeterminada\"+CRLF+ ;\n                  \"o no podrá visualizar los reportes.\",\"Precaución!\")\n      ENDIF\n\nSaludos.','',0,'AIA=','2vlyp7pe',1,0,'',72,0,0),(27899,6251,3,303,0,'72.199.41.171',1173368203,1,0,1,1,1,0,'','','Ugo,\n\nI am not having that problem here.\n\nFWH 2.7 Aug 2006 build/xHarbour\n\nJames','',0,'AIA=','339dnrjz',1,0,'',303,0,0),(27900,6250,4,2,0,'87.218.146.148',1173369718,1,0,1,1,1,1,'','','Vilian,\n\nHave you recompiled yourself the module where HB_FUN_INTERNETOPEN is ? If yes, do it _without_ -TP','',0,'AIA=','ofhrma8b',1,0,'',2,0,0),(27901,6248,3,2,0,'87.218.146.148',1173369784,1,0,1,1,1,1,'','','Richard,\n\nWe email you the most recent libraries','',0,'AIA=','1bv3ldlf',1,0,'',2,0,0),(27902,6249,3,86,0,'213.119.103.68',1173372070,1,0,1,1,1,1,'','','Rochinha,\n\nThanks a lot.\n\nI\'ll try it out.\n\nMichel','',0,'AIA=','1bmu7ywp',1,0,'',86,0,0),(27903,6246,6,854,0,'200.95.238.251',1173373382,1,0,1,1,1,0,'','TxBrowse desde Recursos','Que tal wmormar, ya lo estube probando, pero me marca un error, ADSGETRELKEYPOS, y ya lo estube buscando y vi varias soluciones y nada, tendras alguna solucion.\n\nEstoy usando ADS de 5 Usuarios 7.1\n\nGracias.','',0,'AIA=','cpds5bf0',1,0,'',854,0,0),(27904,6246,6,854,0,'200.95.238.251',1173374262,1,0,1,1,1,0,'','TxBrowse desde Recursos','Solucionado, Gracias.','',0,'AIA=','3ge7lpxv',1,0,'',854,0,0),(27905,6252,7,720,0,'80.36.244.134',1173375553,1,0,1,1,1,0,'','Cabecera browse...','Hola a todos...\n\nTengo un browse en donde muestro el codigo de los articulos y el nombre. Si pincho en la cabecera del codigo me lo ordena por codigo y si lo hago por la del nombre me lo ordena por el nombre.\nMe pregunto si existe alguna forma de poder cambiar (da igual que sea el texto o el fondo) el encabezado del browse cuando hacemos \'click\' sobre el para indicar cual es el que está activo....\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'AIA=','hykj06lx',1,0,'',720,0,0),(27906,6253,7,490,0,'80.24.224.89',1173376399,1,0,1,1,1,0,'','Problema urgente con nueva versión','Antonio,\n\nDesde que instalé la nueva versión, tengo un problema que no había visto porque no daba error.\n\nDesde mi aplicación llamo a otra:\n\nShellExecute( GetActiveWindow() , \"open\", CurDir()+\"\\addons\\addons1.exe\",     \"DirQueQuier\")\n\nY en la otra recibo el parámetro con esto:\nFunction Main()\n  Parameters cPath\n\nPero hasta ahora me llegaba cPath == \"DirQueQuier\"\nY con esta versión me llega cPath == \"D\"\n\nCon lo cual nada de lo siguiente funciona, ya que depende del parámetro.\n\n¿Cuál es el problema ShellExecute o la recepción del parámetro en HB para pocket que no lo hace bien?\n\n\nMe urge bastante,\nUn Saludo\nJoaquín','',0,'AIA=','2sn097v4',1,0,'',490,0,0),(27907,6250,4,267,0,'200.208.238.2',1173377973,1,0,1,1,1,1,'','','hi Antonio,\n\nThe program all is listed to follow. Please it tries to compile, I am using the version 1.0/Feb/2007\n\n[code:2ns3kfet]// FTP sample developed by Enrico Maria Giordano\n\n#include &quot;Fwce&#46;ch&quot;\n\n#define FILE_ATTRIBUTE_READONLY 1\n#define FILE_ATTRIBUTE_HIDDEN 2\n#define FILE_ATTRIBUTE_SYSTEM 4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE 32\n#define FILE_ATTRIBUTE_NORMAL 128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG 0 // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT 1 // direct to net\n#define INTERNET_OPEN_TYPE_PROXY 3 // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 4 // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER 0 // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT 21 // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT 70 // &quot; &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT 80 // &quot; &quot; HTTP &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT 443 // &quot; &quot; HTTPS &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT 1080 // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP 1\n#define INTERNET_SERVICE_GOPHER 2\n#define INTERNET_SERVICE_HTTP 3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII 1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\n\nFUNCTION MAIN&#40;&#41;\nLOCAL hInternet, hCon\n\n    MsgInfo&#40;&quot;Conectando&#46;&#46;&#46;&quot;&#41;\n    hInternet &#58;= InternetOpen&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n    IF hINTERNET = 0\n       MSGINFO&#40;&quot;Erro na conexão com a internet!&quot;&#41;\n       RETURN NIL\n    ENDIF\n\n    hCon = INTERNETCONNECT&#40; hInternet, &quot;ip_do_Site_ftp&quot;,0, &quot;Usuário&quot;,&quot;senha&quot;, INTERNET_SERVICE_FTP, 0,0 &#41;\n    IF HCON = 0\n       MSGSTOP&#40;&quot;Erro na conexão FTP !&quot;&#41;\n       RETURN NIL\n    ENDIF\n\n    FTPPUTFILE&#40; hCon, CurDir&#40;&#41;+&quot;\\param&#46;dbf&quot;, &quot;/public_html/sav/param&#46;dbf&quot;, 0, 0 &#41;\n\n    INTERNETCLOSEHANDLE&#40; hCon &#41;\n    INTERNETCLOSEHANDLE&#40; hInternet &#41;\n\n    MsgInfo&#40;&quot;Arquivo enviado com sucesso !&quot;&#41;\n\nRETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;initguid&#46;h&quot;\n#include &quot;connmgr&#46;h&quot;\n\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;;\n\n\nHB_FUNC&#40; INTERNETOPEN &#41;\n&#123;\n    LPWSTR cAgent = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;;\n    LPWSTR cProxyName = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n    LPWSTR cProxyBypass = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;;\n\n    HINTERNET hInternet = InternetOpen&#40; cAgent, hb_parnl&#40; 2 &#41;, cProxyName, cProxyBypass, hb_parnl&#40; 5 &#41; &#41;;\n\n    hb_xfree&#40; cAgent &#41;;\n    hb_xfree&#40; cProxyName &#41;;\n    hb_xfree&#40; cProxyBypass &#41;;\n\n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41;\n&#123;\n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCONNECT &#41;\n&#123;\n    LPWSTR cServerName = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n    LPWSTR cUserName = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;;\n    LPWSTR cPassword = AnsiToWide&#40; hb_parc&#40; 5 &#41; &#41;;\n\n    HINTERNET hInternet = InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cServerName, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, cUserName, cPassword, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41;;\n\n    hb_xfree&#40; cServerName &#41;;\n    hb_xfree&#40; cUserName &#41;;\n    hb_xfree&#40; cPassword &#41;;\n\n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;\n&#125;\n\n\nHB_FUNC&#40; FTPGETFILE &#41;\n&#123;\n    LPWSTR cRemoteFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n    LPWSTR cNewFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n\n    hb_retl&#40; FtpGetFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cRemoteFile, cNewFile, hb_parl&#40; 4 &#41;, hb_parnl&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41; &#41; &#41;;\n\n    hb_xfree&#40; cRemoteFile &#41;;\n    hb_xfree&#40; cNewFile &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPPUTFILE &#41;\n&#123;\n    LPWSTR cLocalFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;;\n    LPWSTR cNewRemoteFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;;\n\n    hb_retl&#40; FtpPutFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cLocalFile, cNewRemoteFile, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n\n    hb_xfree&#40; cLocalFile &#41;;\n    hb_xfree&#40; cNewRemoteFile &#41;\n&#125;\n\nHB_FUNC &#40;GPRSCONNECTION&#41;\n&#123;\n   HANDLE phWebConnection = NULL;\n   DWORD pdwStatus = 0;\n\n   ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;;\n   if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41;\n   &#123;\n      hb_retl &#40;TRUE&#41;;\n   &#125;\n   else\n   &#123;\n      CONNMGR_CONNECTIONINFO sConInfo;\n      memset &#40;&amp;sConInfo,0, sizeof &#40;CONNMGR_CONNECTIONINFO&#41;&#41;;\n      sConInfo&#46;cbSize = sizeof &#40;CONNMGR_CONNECTIONINFO&#41;;\n      sConInfo&#46;dwParams = CONNMGR_PARAM_GUIDDESTNET;\n      sConInfo&#46;dwPriority = CONNMGR_PRIORITY_USERINTERACTIVE;\n      sConInfo&#46;dwFlags = CONNMGR_FLAG_PROXY_HTTP;\n      sConInfo&#46;bExclusive = FALSE;\n      sConInfo&#46;bDisabled = FALSE;\n      sConInfo&#46;guidDestNet = IID_DestNetInternet;\n\n\n      if &#40;ConnMgrEstablishConnection &#40;&amp;sConInfo, &amp;phWebConnection&#41; == S_OK&#41;\n      &#123;\n         for &#40;unsigned int k = 0; k &lt; 8; k ++&#41;\n         &#123;\n            ConnMgrConnectionStatus&#40;phWebConnection,&amp;pdwStatus&#41;;\n            if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41;\n            &#123;\n               hb_retl &#40;TRUE&#41;;\n            &#125;\n            else\n            &#123;\n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41;\n               &#123;\n                  hb_retl &#40;FALSE&#41;;\n               &#125;\n               Sleep &#40;2500&#41;;\n               ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;;\n               if &#40;pdwStatus == CONNMGR_STATUS_WAITINGCONNECTION&#41;\n               &#123;&#125;\n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41;\n               &#123;\n                  hb_retl &#40;FALSE&#41;;\n               &#125;\n            &#125;\n         &#125;\n         hb_retl &#40;FALSE&#41;;\n      &#125;\n      else\n      &#123;\n         hb_retl &#40;FALSE&#41;;\n      &#125;\n   &#125;\n&#125;\n\n\n\n\n\n#pragma ENDDUMP\n\n\n[/code:2ns3kfet]','',0,'AIA=','2ns3kfet',1,0,'',267,0,0),(27908,6244,6,72,0,'189.146.239.227',1173380623,1,0,1,1,1,0,'','','Aquí el código a colocar en el método Say() de TPrinter:\n\n        IF nPad=PAD_BOTH .AND. \" \"$cText  // Justificado a ambos lados\n           nP:=1\n           DO WHILE ::GetTextWidth( cText, oFont ) &lt; nWidth\n              FOR nI=nP TO Len(cText)\n                 nP++\n                 cC:=SubStr(cText,nI,1)\n                 IF cC=\" \"\n                    cText:=Substr(cText,1,nI)+Substr(cText,nI,Len(cText))\n                    nI:=Len(cText)+1\n                    nP++\n                 ENDIF\n              NEXT nI\n              IF nP&gt;=Len(cText)-1\n                 nP:=1\n              ENDIF\n           ENDDO\n        ENDIF','',0,'AIA=','4vah8bhz',1,0,'',72,0,0),(27909,6254,6,23,0,'213.96.85.49',1173380676,1,0,1,1,1,1,'','HBZIP.LIB!!','No tengo forma de descargarlo, desde la web de project-habour.org en contributions esta descargable pero el link no funciona.\n\nAlguien lo tiene funcionando para enviarmelo gracias\n<!-- e --><a href=\"mailto:angel@sigev.com\">angel@sigev.com</a><!-- e -->','',0,'AIA=','2n2mbyi4',1,0,'',23,0,0),(27910,6255,6,533,0,'80.32.177.143',1173381096,1,0,1,1,1,0,'','IsInternet() no me funciona','Buenas foro, aqui tengo el código de IsInternet() que he visto por aqui\n[code:3r2mcpif]\nFunction IsInternet&#40;&#41; \nWSAStartup&#40;&#41; \nRETURN &#40;IIF&#40;GetHostByName&#40;&quot;microsoft&#46;com&quot;&#41;&lt;&gt;&quot;0&#46;0&#46;0&#46;0&quot;,&#46;T&#46;,&#46;F&#46;&#41;\n[/code:3r2mcpif]\n\npero cuando NO tengo internet se me queda colgado. ¿Que puede ser?\n\nGRACIAS\n\nFW 2.8 + xHarbour','',0,'AIA=','3r2mcpif',1,0,'',533,0,0),(27911,6250,4,2,0,'87.218.146.148',1173384347,1,0,1,1,1,1,'','','Vilian,\n\nSome \";\" were missing and a little fix for C:\n[code:z6zsl0g7]\n// FTP sample developed by Enrico Maria Giordano \n\n#include &quot;Fwce&#46;ch&quot; \n\n#define FILE_ATTRIBUTE_READONLY 1 \n#define FILE_ATTRIBUTE_HIDDEN 2 \n#define FILE_ATTRIBUTE_SYSTEM 4 \n#define FILE_ATTRIBUTE_DIRECTORY 16 \n#define FILE_ATTRIBUTE_ARCHIVE 32 \n#define FILE_ATTRIBUTE_NORMAL 128 \n#define FILE_ATTRIBUTE_TEMPORARY 256 \n\n\n\n// \n// access types for InternetOpen&#40;&#41; \n// \n\n#define INTERNET_OPEN_TYPE_PRECONFIG 0 // use registry configuration \n#define INTERNET_OPEN_TYPE_DIRECT 1 // direct to net \n#define INTERNET_OPEN_TYPE_PROXY 3 // via named proxy \n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 4 // prevent using java/script/INS \n\n\n// \n// manifests \n// \n\n#define INTERNET_INVALID_PORT_NUMBER 0 // use the protocol-specific default \n\n#define INTERNET_DEFAULT_FTP_PORT 21 // default for FTP servers \n#define INTERNET_DEFAULT_GOPHER_PORT 70 // &quot; &quot; gopher &quot; \n#define INTERNET_DEFAULT_HTTP_PORT 80 // &quot; &quot; HTTP &quot; \n#define INTERNET_DEFAULT_HTTPS_PORT 443 // &quot; &quot; HTTPS &quot; \n#define INTERNET_DEFAULT_SOCKS_PORT 1080 // default for SOCKS firewall servers&#46; \n\n\n// \n// service types for InternetConnect&#40;&#41; \n// \n\n#define INTERNET_SERVICE_FTP 1 \n#define INTERNET_SERVICE_GOPHER 2 \n#define INTERNET_SERVICE_HTTP 3 \n\n\n// \n// flags for FTP \n// \n\n#define INTERNET_FLAG_TRANSFER_ASCII 1 \n#define INTERNET_FLAG_TRANSFER_BINARY 2 \n\n\n\nFUNCTION MAIN&#40;&#41; \nLOCAL hInternet, hCon \n\n    MsgInfo&#40;&quot;Conectando&#46;&#46;&#46;&quot;&#41; \n    hInternet &#58;= InternetOpen&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41; \n    IF hINTERNET = 0 \n       MSGINFO&#40;&quot;Erro na conexão com a internet!&quot;&#41; \n       RETURN NIL \n    ENDIF \n\n    hCon = INTERNETCONNECT&#40; hInternet, &quot;ip_do_Site_ftp&quot;,0, &quot;Usuário&quot;,&quot;senha&quot;, INTERNET_SERVICE_FTP, 0,0 &#41; \n    IF HCON = 0 \n       MSGSTOP&#40;&quot;Erro na conexão FTP !&quot;&#41; \n       RETURN NIL \n    ENDIF \n\n    FTPPUTFILE&#40; hCon, CurDir&#40;&#41;+&quot;\\param&#46;dbf&quot;, &quot;/public_html/sav/param&#46;dbf&quot;, 0, 0 &#41; \n\n    INTERNETCLOSEHANDLE&#40; hCon &#41; \n    INTERNETCLOSEHANDLE&#40; hInternet &#41; \n\n    MsgInfo&#40;&quot;Arquivo enviado com sucesso !&quot;&#41; \n\nRETURN NIL \n\n\n#pragma BEGINDUMP \n\n#include &quot;windows&#46;h&quot; \n#include &quot;wininet&#46;h&quot; \n#include &quot;hbapi&#46;h&quot; \n#include &quot;initguid&#46;h&quot; \n#include &quot;connmgr&#46;h&quot; \n\n\nLPWSTR AnsiToWide&#40; LPSTR &#41;; \n\nHB_FUNC&#40; INTERNETOPEN &#41; \n&#123; \n    LPWSTR cAgent = AnsiToWide&#40; hb_parc&#40; 1 &#41; &#41;; \n    LPWSTR cProxyName = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;; \n    LPWSTR cProxyBypass = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;; \n\n    HINTERNET hInternet = InternetOpen&#40; cAgent, hb_parnl&#40; 2 &#41;, cProxyName, cProxyBypass, hb_parnl&#40; 5 &#41; &#41;; \n\n    hb_xfree&#40; cAgent &#41;; \n    hb_xfree&#40; cProxyName &#41;; \n    hb_xfree&#40; cProxyBypass &#41;; \n\n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;; \n&#125; \n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41; \n&#123; \n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;; \n&#125; \n\nHB_FUNC&#40; INTERNETCONNECT &#41; \n&#123; \n    LPWSTR cServerName = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;; \n    LPWSTR cUserName = AnsiToWide&#40; hb_parc&#40; 4 &#41; &#41;; \n    LPWSTR cPassword = AnsiToWide&#40; hb_parc&#40; 5 &#41; &#41;; \n\n    HINTERNET hInternet = InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cServerName, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, cUserName, cPassword, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41;; \n\n    hb_xfree&#40; cServerName &#41;; \n    hb_xfree&#40; cUserName &#41;; \n    hb_xfree&#40; cPassword &#41;; \n\n    hb_retnl&#40; &#40; LONG &#41; hInternet &#41;; \n&#125; \n\nHB_FUNC&#40; FTPGETFILE &#41; \n&#123; \n    LPWSTR cRemoteFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;; \n    LPWSTR cNewFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;; \n\n    hb_retl&#40; FtpGetFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cRemoteFile, cNewFile, hb_parl&#40; 4 &#41;, hb_parnl&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41; &#41; &#41;; \n\n    hb_xfree&#40; cRemoteFile &#41;; \n    hb_xfree&#40; cNewFile &#41;; \n&#125; \n\nHB_FUNC&#40; FTPPUTFILE &#41; \n&#123; \n    LPWSTR cLocalFile = AnsiToWide&#40; hb_parc&#40; 2 &#41; &#41;; \n    LPWSTR cNewRemoteFile = AnsiToWide&#40; hb_parc&#40; 3 &#41; &#41;; \n\n    hb_retl&#40; FtpPutFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, cLocalFile, cNewRemoteFile, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;; \n\n    hb_xfree&#40; cLocalFile &#41;; \n    hb_xfree&#40; cNewRemoteFile &#41;; \n&#125; \n\nHB_FUNC &#40;GPRSCONNECTION&#41; \n&#123; \n   HANDLE phWebConnection = NULL; \n   DWORD pdwStatus = 0; \n\n   ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;; \n   if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41; \n   &#123; \n      hb_retl &#40;TRUE&#41;; \n   &#125; \n   else \n   &#123; \n      CONNMGR_CONNECTIONINFO sConInfo; \n      memset &#40;&amp;sConInfo,0, sizeof &#40;CONNMGR_CONNECTIONINFO&#41;&#41;; \n      sConInfo&#46;cbSize = sizeof &#40;CONNMGR_CONNECTIONINFO&#41;; \n      sConInfo&#46;dwParams = CONNMGR_PARAM_GUIDDESTNET; \n      sConInfo&#46;dwPriority = CONNMGR_PRIORITY_USERINTERACTIVE; \n      sConInfo&#46;dwFlags = CONNMGR_FLAG_PROXY_HTTP; \n      sConInfo&#46;bExclusive = FALSE; \n      sConInfo&#46;bDisabled = FALSE; \n      sConInfo&#46;guidDestNet = IID_DestNetInternet; \n\n\n      if &#40;ConnMgrEstablishConnection &#40;&amp;sConInfo, &amp;phWebConnection&#41; == S_OK&#41; \n      &#123; \n         unsigned int k;\n         \n         for&#40; k = 0; k &lt; 8; k ++&#41; \n         &#123; \n            ConnMgrConnectionStatus&#40;phWebConnection,&amp;pdwStatus&#41;; \n            if &#40;pdwStatus == CONNMGR_STATUS_CONNECTED&#41; \n            &#123; \n               hb_retl &#40;TRUE&#41;; \n            &#125; \n            else \n            &#123; \n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41; \n               &#123; \n                  hb_retl &#40;FALSE&#41;; \n               &#125; \n               Sleep &#40;2500&#41;; \n               ConnMgrConnectionStatus &#40;phWebConnection, &amp;pdwStatus&#41;; \n               if &#40;pdwStatus == CONNMGR_STATUS_WAITINGCONNECTION&#41; \n               &#123;&#125; \n               if &#40;pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT&#41; \n               &#123; \n                  hb_retl &#40;FALSE&#41;; \n               &#125; \n            &#125; \n         &#125; \n         hb_retl &#40;FALSE&#41;; \n      &#125; \n      else \n      &#123; \n         hb_retl &#40;FALSE&#41;; \n      &#125; \n   &#125; \n&#125; \n\n#pragma ENDDUMP\n[/code:z6zsl0g7]','',0,'AIA=','z6zsl0g7',1,0,'',2,0,0),(27912,6253,7,2,0,'87.218.146.148',1173385512,1,0,1,1,1,1,'','','Joaquín,\n\nPrueba con:\n\ncPath = HB_ARGV( 1 )','',0,'AIA=','1tjbsscr',1,0,'',2,0,0),(27913,6252,7,2,0,'87.218.146.148',1173385670,1,0,1,1,1,1,'','','Elías,\n\noBrowse:aHeaders[ n ] = cTexto\noBrowse:Refresh()\n\ny en cTexto usa algún caracter que lo indique (*,+,#,etc.)','',0,'','1wulwa96',1,0,'',2,0,0),(27914,6256,6,976,0,'165.98.139.66',1173387493,1,0,1,1,1,0,'','Consulta de Funcky','Hola estimados,\n\nTengo un trial de Funcky 6.0 para xBase++, necesito saber si funciona con Fwh.\n\nSaludos desde Nicaragua, C.A.','',0,'','3a4ffcii',1,0,'',976,0,0),(27915,6189,2,890,0,'200.24.100.92',1173389277,1,0,1,1,1,0,'','','[quote=&quot;jaba&quot;:qpi4enb3][quote=&quot;Antonio Linares&quot;:qpi4enb3]Jairo,\n\nte refieres al combobox de \"ingreso\" ?\n\nEn el PRG faltaba la \"@\" antes de la variable:\n[code:qpi4enb3]\nIgualaVariable&#40; @cPlaca, @cFecha, @cEmpresa,; \n                @cNombre, @cMarca, @cTel_Fijo,;\n                @cTel_Mobil, @cColorr, @cLinea,;\n                @cOt, @cIngreso, @cRegis, @aItems &#41;\n[/code:qpi4enb3]\n[/quote:qpi4enb3]\n\nRevisare si me falta igualar la variable te lo comentare cuando lo ensaye  pero lo que sale en ese campo es el contenido del array y no lo que se encuentra en el dbf\nGracias ne nuevo[/quote:qpi4enb3]\n\nAntonio\nYa lo encontre!! Muchas gracias cuando coloque el @ no se arreglo pero el pequeño array que tre coloco a continuacion cambie el 0 por uno y mire que logica tiene, claro ya lo esta mostrando.\n\nIF EMPTY(cIngreso) .OR. ; // si el campo esta vacío o \nASCAN(aItems,cIngreso) == 0 // el contenido no consta en elArray de \ncIngreso := aItems[1] // opciones \n\nUn abrazo\n\nJairo Barbosa','',0,'goA=','qpi4enb3',1,0,'',890,0,0),(27916,6189,2,2,0,'87.218.146.148',1173389527,1,0,1,1,1,1,'','','Bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'goA=','3d0w4cp0',1,0,'',2,0,0),(27917,6256,6,138,0,'189.140.130.3',1173402310,1,0,1,1,1,1,'','','Si, funciona, Funcky pra Xbase++ va por OLE, es un componente COM que se puede utilizar perfectamente con FWH','',0,'goA=','2wz5j47x',1,0,'',138,0,0),(27918,6246,6,138,0,'189.140.130.3',1173402603,1,0,1,1,1,1,'','','REQUEST ADSGETRELKEYPOS\n\nal principio del programa','',0,'goA=','2li9bcfn',1,0,'',138,0,0),(27919,6246,6,854,0,'200.95.238.251',1173405580,1,0,1,1,1,0,'','','Gracias Maestro.','',0,'goA=','2i8ykwxl',1,0,'',854,0,0),(27920,6257,6,854,0,'200.95.238.251',1173408554,1,0,1,1,1,0,'','Ya funciona muy bien el TxBrowse, pero ?','Saludos nuevamente, con el codigo que me mando wmormar, ya funciona muy bien, para cualquier tabla, pero quisiera que desde codigo solo mostrar algunos campos de la tabla, como poder hacerle.\n\nGracias.','',0,'goA=','odz4k4op',1,0,'',854,0,0),(27921,6258,6,397,0,'201.1.163.158',1173408957,1,0,1,0,1,1,'','CODE SAMPLE: Here is Microsoft MAPI support with OCX','Code complete:\n[code:1g8ttpip]\n// FiveWin OLE support demo\n// Using Microsoft MAPI Control\n// By Rochinha - Brazil\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define SESSION_SIGNON  1\n#define MESSAGE_COMPOSE 6\n#define ATTACHTYPE_DATA 0\n#define RECIPTYPE_TO    1\n#define RECIPTYPE_CC    2\n#define MESSAGE_RESOLVENAME 13\n#define MESSAGE_SEND    3\n#define SESSION_SIGNOFF 2\n\nfunction Main&#40;&#41;\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin OLE Support&quot;\n\n   MapiSession1  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPISession&#46;1&quot; &#41;\n   MapiMessages1 &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPImessages&#46;1&quot; &#41;\n\n   //MapiSession1&#58;aboutbox&#40;&#41;\n   //Open up a MAPI session\n   MapiSession1&#58;Action      &#58;= SESSION_SIGNON\n   //Point the MAPI messages control to the open MAPI session&#58;\n   MapiMessages1&#58;SessionID  &#58;= 1\n\n   MapiMessages1&#58;Action     &#58;= MESSAGE_COMPOSE   //Start a new message\n\n   // Set the subject of the message&#58;\n   MapiMessages1&#58;MsgSubject &#58;= &quot;This is the subject&#46;&quot;\n   // Set the message content\n   MapiMessages1&#58;MsgNoteText&#58;= &quot;This is the mail message&#46;&quot;\n\n   // The following four lines of code add an attachment to the message,\n   // and set the character position within the MsgNoteText where the\n   // attachment icon will appear&#46; A value of 0 means the attachment will\n   // replace the first character in the MsgNoteText&#46; You must have at\n   // least one character in the MsgNoteText to be able to attach a file&#46;\n   MapiMessages1&#58;AttachmentPosition &#58;= 0\n   // Set the type of attachment\n   MapiMessages1&#58;AttachmentType     &#58;= ATTACHTYPE_DATA\n   // Set the icon title of attachment&#58;\n   MapiMessages1&#58;AttachmentName     &#58;= &quot;System Configuration File&quot;\n   // Set the path and file name of the attachment&#58;\n   MapiMessages1&#58;AttachmentPathName &#58;= &quot;C&#58;\\CONFIG&#46;SYS&quot;\n\n   // Set the recipients\n   MapiMessages1&#58;RecipIndex       &#58;= 0                  // First recipient\n   MapiMessages1&#58;RecipType        &#58;= RECIPTYPE_TO       // Recipient in TO line\n   MapiMessages1&#58;RecipDisplayName &#58;= &quot;EddieSpaghetti&quot;   // e-mail name\n   MapiMessages1&#58;RecipIndex       &#58;= 1                  // add a second recipient\n   MapiMessages1&#58;RecipType        &#58;= RECIPTYPE_TO       // Recipient in TO line\n   MapiMessages1&#58;RecipDisplayName &#58;= &quot;TanyaLasagna&quot;     // e-mail name\n   MapiMessages1&#58;RecipIndex       &#58;= 2                  // Add a third recipient\n   MapiMessages1&#58;RecipType        &#58;= RECIPTYPE_CC       // Recipient in CC line\n   MapiMessages1&#58;RecipDisplayName &#58;= &quot;BlairAngelHair&quot;   // e-mail name\n   MapiMessages1&#58;RecipIndex       &#58;= 3                  // Add a fourth recipient\n   MapiMessages1&#58;RecipType        &#58;= RECIPTYPE_CC       // Recipient on CC Line\n   MapiMessages1&#58;RecipDisplayName &#58;= &quot;JoanieCannelloni&quot; // e-mail name&quot;\n\n   // MESSAGE_RESOLVENAME checks to ensure the recipient is valid and puts\n   // the recipient address in MapiMessages1&#58;RecipAddress\n   // If the E-Mail name is not valid, a trappable error will occur&#46;\n   MapiMessages1&#58;Action &#58;= MESSAGE_RESOLVENAME\n   // Send the message&#58;\n   MapiMessages1&#58;Action &#58;= MESSAGE_SEND\n\n   // Close MAPI mail session&#58;\n   MapiSession1&#58;Action &#58;= SESSION_SIGNOFF\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:1g8ttpip]\n\nDownload de .OCX\n<!-- m --><a class=\"postlink\" href=\"http://home.wxs.nl/~hafoh000/MSMAPI32.zip\">http://home.wxs.nl/~hafoh000/MSMAPI32.zip</a><!-- m -->','',0,'AIA=','1g8ttpip',1,0,'',397,0,0),(27922,6211,6,397,0,'201.1.163.158',1173409062,1,0,1,0,1,1,'','','Esto sierve?\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=27921#27921\">http://fivetechsoft.com/forums/viewtopi ... 7921#27921</a><!-- m -->','',0,'AIA=','16kox8cf',1,0,'',397,0,0),(27923,6257,6,54,0,'189.132.118.91',1173410498,1,0,1,1,1,1,'','Re: Ya funciona muy bien el TxBrowse, pero ?','[quote=&quot;Vital&quot;:2ijuekfi]Saludos nuevamente, con el codigo que me mando wmormar, ya funciona muy bien, para cualquier tabla, pero quisiera que desde codigo solo mostrar algunos campos de la tabla, como poder hacerle.\n\nGracias.[/quote:2ijuekfi]\n\n[code:2ijuekfi]oBrw &#58;= TXBrowse&#40;&#41;&#58;new&#40; oDlg &#41;\n&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\noBrw&#58;aCols&#91;2&#93;&#58;hide&#40;&#41;\n&#46;&#46;&#46;[/code:2ijuekfi]','',0,'gIA=','2ijuekfi',1,0,'',54,0,0),(27924,6259,3,95,0,'189.155.128.230',1173418803,1,0,1,1,1,0,'','Mac ..','Dear Antonio\n\n\"Por fin\" I have a minimac ... \nMy client lend me one, so I want to testing my Xbase++ and app using two proccesor, but off course, I want to tesing harbour on Mac, but I want to ask:\n\n1.- Please If you have time, the steep to compile the harbour on mac\n2.- What are the news about FiveMac ...\n\nThanks in Advance ...\n\nBest Regards\nOsvaldo Ramirez','',0,'gIA=','vy2d8c31',1,0,'',95,0,0),(27925,6260,4,266,0,'60.50.92.103',1173420535,1,0,1,1,1,1,'','nokia 6600 symbian OS','I need to code for Nokia 6600. \n\nCan FWPPC code recompiled to Symbian C++ ?','',0,'gIA=','1x7c6src',1,0,'',266,0,0),(27926,6257,6,854,0,'200.95.238.251',1173423463,1,0,1,1,1,0,'','','Nuevamente wmormar mil gracias\n\nYa funciono.','',0,'gIA=','3ju31d6w',1,0,'',854,0,0),(27927,6258,6,15,0,'203.70.52.83',1173425053,1,0,1,1,1,0,'','','Hello Rochinha,\n\nThanks for your help and file.\nI will get new skill for it.\n\nBut I got this error message\n\nError description: Error TOleAuto/-1 Unknown error: TOLEAUTO:NEW \n\nRegards,\n\nRichard','',0,'gIA=','ug96jbfk',1,1173429061,'',15,1,0),(27928,6260,4,2,0,'87.218.146.51',1173425680,1,0,1,1,1,1,'','','Hoe,\n\nis there a Windows Mobile for Nokia 6600 ? FWPPC uses Windows Mobile','',0,'gIA=','nnyb1jr2',1,0,'',2,0,0),(27929,6258,6,838,0,'80.34.222.112',1173427327,1,0,1,1,1,0,'','','Hola\n\nGracias por el código, lo que pasa es que, aunque me compila perfectamente, cuando ejecuto la aplicación me da el siguiente error:\n    Error description: Error TOleAuto/-1  Unknown error: TOLEAUTO:NEW\n\nQue puede ser?\n\nSaludos\n\nJose Luis','',0,'gIA=','16plh7jo',1,0,'',838,0,0),(27930,6247,7,57,0,'88.0.86.166',1173429043,1,0,1,1,1,1,'','','Antonio\n¿Has encontrado alguna solución?. \n\nSaludos','',0,'gIA=','3hfg0kt0',1,0,'',57,0,0),(27931,6261,18,6,0,'79.3.216.201',1173430510,1,0,1,1,1,1,'','TWBrowse GoLeft() [Solved]','This is the sample:\n\n[code=fw:n6c1tpfe]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"><span style=\"color: #00D7D7;\">#include</span> <span style=\"color: #ff0000;\">&quot;Fivewin.ch&quot;</span><br /><br /><br /><span style=\"color: #00C800;\">FUNCTION</span> MAIN<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span><br /><br />&nbsp; &nbsp; <span style=\"color: #00C800;\">LOCAL</span> oWnd, oBrw<br /><br />&nbsp; &nbsp; USE TEST<br /><br />&nbsp; &nbsp; <span style=\"color: #0000ff;\">DEFINE</span> <span style=\"color: #0000ff;\">WINDOW</span> oWnd<br /><br />&nbsp; &nbsp; @ <span style=\"color: #000000;\">0</span>, <span style=\"color: #000000;\">0</span> <span style=\"color: #0000ff;\">LISTBOX</span> oBrw FIELDS<br /><br />&nbsp; &nbsp; oBrw:<span style=\"color: #000000;\">lCellStyle</span> = .T.<br /><br />&nbsp; &nbsp; oWnd:<span style=\"color: #000000;\">oClient</span> = oBrw<br /><br />&nbsp; &nbsp; <span style=\"color: #0000ff;\">ACTIVATE</span> <span style=\"color: #0000ff;\">WINDOW</span> oWnd;<br />&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<span style=\"color: #0000ff;\">MAXIMIZED</span><br /><br />&nbsp; &nbsp; CLOSE<br /><br />&nbsp; &nbsp; <span style=\"color: #00C800;\">RETURN</span> <span style=\"color: #00C800;\">NIL</span></div>[/code:n6c1tpfe]\n\nTry to:\n\n- move the hilight to a column near the right side of the browse\n\n- restore the window (click the button near the right-top X)\n\n- move the now invisible hilight to the left\n\nYou should get an error.\n\nEMG','18c6cc835896b9bfafecdfc52b37ae09',0,'AIA=','n6c1tpfe',1,0,'',6,0,0),(27932,6247,7,2,0,'87.218.146.51',1173431362,1,0,1,1,1,1,'','','Toni,\n\nLa barra principal del menu genera WM_INITMENU y por lo visto ese mensaje no llega en Windows Mobile <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n[code:x6pd3x8k]\n      case nMsg == WM_INITMENU &#46;or&#46; nMsg == WM_INITMENUPOPUP\n           MsgInfo&#40; &quot;InitMenu&quot; &#41;\n           return &#58;&#58;InitMenuPopup&#40; nWParam, nLoWord&#40; nLParam &#41;, nHiWord&#40; nLParam &#41; != 0 &#41;\n[/code:x6pd3x8k]','',0,'AIA=','x6pd3x8k',1,0,'',2,0,0),(27933,6259,3,2,0,'87.218.146.51',1173431931,1,0,1,1,1,1,'','','Osvaldo,\n\nFirst install xcode tools on the Mac. You may download them from <!-- w --><a class=\"postlink\" href=\"http://www.Apple.com\">www.Apple.com</a><!-- w --> or install them from the OSX installation DVD.\n\n&gt; 1.- Please If you have time, the steep to compile the harbour on mac \n\nExactly the same as building Harbour for Linux:\n\nFirst, do a checkout from Harbour CVS. Create a file named checkout.sh with this content:\n\ncvs -z3 -d:pserver:anonymous@harbour-project.cvs.sourceforge.net:/cvsroot/harbour-project co -P harbour\n\nThen do a chmod +x ./checkout.sh to give it execution permission. Now run ./checkout.sh to download Harbour.\n\nNow locate harbour/make_gnu.sh and do again chmod +x ./make_gnu.sh and then run ./make_gnu.sh and you get Harbour for Mac built and ready to be used <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; 2.- What are the news about FiveMac ...\n\nWe are working on it, though we are delayed','',0,'AIA=','2od1sfdr',1,0,'',2,0,0),(27934,6251,3,154,0,'151.21.75.33',1173433166,1,0,1,1,1,1,'','Re: Special character','[quote=&quot;EnricoMaria&quot;:2ou3cbks]Please build a simple PRG showing the problem.[/quote:2ou3cbks]\nEnrico, \nthis is the test:\n[code:2ou3cbks]FUNCTION Main&#40;&#41;\n/* RC File&#58;\n1 24 &quot;themed&#46;manifest&quot;\n\nSPECIALCHAR DIALOG 51, 72, 254, 85\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION &quot;Special Char&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 13, 10, 230, 45, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n PUSHBUTTON &quot;Char Map&quot;, 102, 41, 67, 50, 14\n PUSHBUTTON &quot;Paste&quot;, 103, 100, 67, 50, 14\n PUSHBUTTON &quot;End&quot;, 104, 162, 67, 50, 14\n&#125;*/\n   LOCAL oDlg, oGet, cNote &#58;= Space&#40; 100 &#41;, oClp, oBt1, oBt2, oBt3, oFont\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, - 11\n   DEFINE DIALOG oDlg RESOURCE &quot;SpecialChar&quot; FONT oFont\n   DEFINE CLIPBOARD oClp OF oDlg\n   REDEFINE GET oGet VAR cNote ID 101 OF oDlg MEMO\n   REDEFINE BUTTON oBt1 ID 102 ACTION WinExec&#40; &quot;CHARMAP&#46;EXE&quot; &#41;\n   REDEFINE BUTTON oBt2 ID 103 ACTION &#40; oGet&#58;Paste&#40; oCLp&#58;GetText&#40;&#41; &#41;, oDlg&#58;Refresh&#40;&#41; &#41;\n   REDEFINE BUTTON oBt3 ID 104 ACTION OdLG&#58;END&#40;&#41;\n   Activate Dialog oDlg\n   oClp&#58;END&#40;&#41;\n\n   Return Nil[/code:2ou3cbks]\nYou can reproduce the problem with click on \"Char Map\" Button, select in the Arial Font the U+015E char and click on copy, next right click on get control and select paste, you see the char, if you exit focus, the char change! <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nIn the fwh exe do not work the paste button. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nIf you remove from rc the line:\n[code:2ou3cbks]1 24 &quot;themed&#46;manifest&quot;[/code:2ou3cbks]\ndo not work!\n \nCan you confirm?\nIs possible to solve?','',0,'gIA=','2ou3cbks',1,0,'',154,0,0),(27935,6253,7,490,0,'80.24.224.89',1173435675,1,0,1,1,1,0,'','','Antonio,\n\nExactamente el mismo resultado, recibe una \"D\" , que es la primera letra.\n\n\n¿Pruebo algo más?\n\nUn Saludo,\nJoaquín','',0,'gIA=','1vnx8ffy',1,0,'',490,0,0),(27936,6251,3,154,0,'151.21.75.33',1173435863,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:b6crzvuo]I am not having that problem here.\n\nFWH 2.7 Aug 2006 build/xHarbour\n[/quote:b6crzvuo]\nJames,\nI compile with FWH 7.01 and xHrb 0.99.71.\nDo not work with my previous versione May 2006\n\nHave you tested my sample?','',0,'gA==','b6crzvuo',1,0,'',154,0,0),(27937,6251,3,2,0,'87.218.146.51',1173436960,1,0,1,1,1,1,'','','Ugo,\n\nYour sample is working fine here with FWH 7.01, with and without themes','',0,'gA==','1vg9nwh4',1,0,'',2,0,0),(27938,6252,7,720,0,'80.36.244.134',1173438246,1,0,1,1,1,0,'','','Gracias Antonio, es lo que queria... He estado mirando algunas funciones para cambiar el color de las cabeceras. En concreto encontré dos:\n\noBrw:nClrBackHead:=CLR_BLUE \noBrw:nClrForeHead:=CLR_WHITE \n\nEsto me funciona perfectamente pero el problema es que me pinta todas las cabeceras del browse. Existe alguna forma en la que solo me pinte la cabecera de la columna sobre la que he picado??\n\n\nSaludos..\n\nElías Torres.','',0,'gA==','1m6xasvg',1,0,'',720,0,0),(27939,6251,3,154,0,'151.21.75.33',1173439139,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:9ufb9i9u]Your sample is working fine here with FWH 7.01, with and without themes[/quote:9ufb9i9u]\nAntonio,\non my computer is different!!!\nsee the enclosed pictures (with themes):\n1) [url=http&#58;//img126&#46;imagevenue&#46;com/img&#46;php?image=38222_Immagine4_123_248lo&#46;JPG:9ufb9i9u][img:9ufb9i9u]http&#58;//img126&#46;imagevenue&#46;com/loc248/th_38222_Immagine4_123_248lo&#46;JPG[/img:9ufb9i9u][/url:9ufb9i9u]      [url=http&#58;//img169&#46;imagevenue&#46;com/img&#46;php?image=38227_Immagine4_1_123_233lo&#46;JPG:9ufb9i9u][img:9ufb9i9u]http&#58;//img169&#46;imagevenue&#46;com/loc233/th_38227_Immagine4_1_123_233lo&#46;JPG[/img:9ufb9i9u][/url:9ufb9i9u]\n\nIs not the same character!!!  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->\n\nAlso without themes: [url=http&#58;//img13&#46;imagevenue&#46;com/img&#46;php?image=38798_Immagine4_2_123_24lo&#46;JPG:9ufb9i9u][img:9ufb9i9u]http&#58;//img13&#46;imagevenue&#46;com/loc24/th_38798_Immagine4_2_123_24lo&#46;JPG[/img:9ufb9i9u][/url:9ufb9i9u]\n\nIs not the same character!!!  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'mA==','9ufb9i9u',1,0,'',154,0,0),(27940,6262,6,52,0,'190.7.62.226',1173439515,1,0,1,1,1,1,'','tWbrowse y LDblClick','Estimados,\n\n    Quiero que la TWbrowse al hacer doble click sobre una linea entre en modo edicion, este codigo con el método bLClicked me anda, pero con ldblClick no, porque?\n\nGracias\n \n[code:3otzpklk] \n// Aca esta la parte de la definicion del browse\n&#46;&#46;&#46; \n           oBrw&#91;2&#93;&#58;bEdit     &#58;= &#123; | nCol | EditarModelo&#40; nCol, oBrw&#91;2&#93;, aDatos &#41; &#125;\n            obrw&#91;2&#93;&#58;LDblClick&#58;= &#123; || EditarModelo&#40; oBrw&#91;2&#93;, aDatos &#41; &#125;\n\n&#46;&#46;&#46;\n\nSTATIC FUNCTION EditarModelo&#40; oBrw, aDatos &#41;\n\n   LOCAL nAt &#58;= oBrw&#58;nAt, ;\n         uBuffer, ;\n         oQueryLocal\n\n   DO CASE\n\n      CASE oBrw&#58;nColact == 1\n         uBuffer       &#58;= aDatos&#91;nAt,1&#93;\n         oBrw&#58;lEditCol&#40; 1, @uBuffer &#41;\n         aDatos&#91;nAt,1&#93; &#58;= uBuffer\n         oBrw&#58;nColAct  &#58;= 1\n\n[/code:3otzpklk]','',0,'AIA=','3otzpklk',1,0,'',52,0,0),(27941,6254,6,23,0,'213.96.85.49',1173439902,1,0,1,1,1,1,'','Lo descargue desde este foro (utilidades) pero ...','Ya lo pude descargar desde este foro (utilidades), pero ...\n\nAl linkar la libreria me arroja estos errores. ¿saben porque?\nUso FWH 2.6\n\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\n===============================================\n= Montado fichero b32.bc para el linkador     =\n===============================================\n===============================================\n= Linkando los archivos .OBJ                  =\n===============================================\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_Wild2RegEx\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|zip\nError: Unresolved external \'_hb_fsDirectory\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|zip\nError: Unresolved external \'_inflateEnd\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflate\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_get_crc_table\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateEnd\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_deflateInit2_\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_crc32\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_fsCurDirBuffEx\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|zipnew\nError: Unresolved external \'_inflateInit2_\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_inflate\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|ziparchive\nError: Unresolved external \'_hb_arraySetForward\' referenced from C:\\SI\\TRABAJO\\FWH\\COPYSEG\\HBZIP.LIB|zipnew\n===============================================\n= Fin del LINK                                =\n===============================================','',0,'AIA=','e6x09uoc',1,0,'',23,0,0),(27942,6251,3,2,0,'87.218.146.51',1173439944,1,0,1,1,1,1,'','','Ugo,\n\nPlease download the EXE from here and test it:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/A8FHEWOT/test.zip.html\">http://www.uploading.com/files/A8FHEWOT/test.zip.html</a><!-- m -->','',0,'AIA=','1be5ccif',1,0,'',2,0,0),(27943,6252,7,2,0,'87.218.146.51',1173440053,1,0,1,1,1,1,'','','Elías,\n\n&gt; Existe alguna forma en la que solo me pinte la cabecera de la columna sobre la que he picado?? \n\nNo, no está implementado. Cambia el texto de la columna añadiéndole (*) ó similar, para que indique que es la activa','',0,'AIA=','36vcqkpj',1,0,'',2,0,0),(27944,6253,7,2,0,'87.218.146.51',1173440156,1,0,1,1,1,1,'','','Joaquín,\n\nParece que el problema entonces es de ShellExecute().\n\nTu le estás pasando la cadena como ansi ó como unicode ? (AnsiToWide())','',0,'AIA=','2cum6q3y',1,0,'',2,0,0),(27945,6254,6,2,0,'87.218.146.51',1173440348,1,0,1,1,1,1,'','','Angel,\n\nHay que descargar Harbour desde el CVS y construir la librería, y ver si está operativa','',0,'AIA=','25f0x2x3',1,0,'',2,0,0),(27946,6262,6,2,0,'87.218.146.51',1173440467,1,0,1,1,1,1,'','','Gustavo,\n\nTienes que usar oBrowse:bLDblClick = ...','',0,'AIA=','1uuorgr1',1,0,'',2,0,0),(27947,5458,3,487,0,'151.38.44.254',1173440501,1,0,1,1,1,0,'','Urgent please.','On Windows 98 the EXE does not start because GetWindowsSystemDirectoryA is not included in Kernel32.dll (even thought in RealWinDir() it\'s not called in Win98)\n\nHow can I do to exclude that part if I\'m on 98 (or to use the GetWinDir() instead) ?\n\nUrgent please !\n\nThanks\nDavide\n\n\n[code:2pqlh2q8]\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; GETSYSWINDIR &#41;\n&#123;\n    CHAR Buffer&#91; MAX_PATH &#93;;\n\n    GetSystemWindowsDirectory&#40; Buffer, MAX_PATH &#41;;\n\n    hb_retc&#40; Buffer &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:2pqlh2q8]','',0,'AIA=','2pqlh2q8',1,0,'',487,0,0),(27948,6254,6,23,0,'213.96.85.49',1173442733,1,0,1,1,1,1,'','','¿Es posible conseguir los fuentes de la libreria para construirla?','',0,'AIA=','234dnstx',1,0,'',23,0,0),(27949,6251,3,154,0,'151.21.75.33',1173443396,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2h8lv7q4]Please download the EXE from here and test it[/quote:2h8lv7q4]\n\nAntonio,\n\nWOW, your test work fine  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThe problem is my library!   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nMany thanks for the help!!!','',0,'gA==','2h8lv7q4',1,0,'',154,0,0),(27950,5458,3,2,0,'87.218.146.51',1173443930,1,0,1,1,1,1,'','','Davide,\n\nUse dynamic linking:\n\nDLL FUNCTION ...\n\ninstead of the FW built in function','',0,'gA==','1b33vpu0',1,0,'',2,0,0),(27951,6254,6,2,0,'87.218.146.51',1173444129,1,0,1,1,1,1,'','','Angel,\n\n--\n¿Es posible conseguir los fuentes de la libreria para construirla?\n--\n\nEstan en el CVS de Harbour. Puedes acceder a ellos desde <!-- w --><a class=\"postlink\" href=\"http://www.sourceforge.net\">www.sourceforge.net</a><!-- w --> buscando el proyecto Harbour y revisando los ficheros del CVS','',0,'gA==','1trwg8oc',1,0,'',2,0,0),(27952,6263,6,75,0,'83.54.31.77',1173445543,1,0,1,1,1,0,'','Cambiar fecha y hora del sistema','¿Cómo cambio la fecha y la hora del sistema desde dentro del programa sin llamar a windows?.','',0,'gA==','3o6e5jnc',1,0,'',75,0,0),(27953,5458,3,487,0,'151.38.44.254',1173445961,1,0,1,1,1,0,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:ag1qv096]Use dynamic linking:\n\nDLL FUNCTION ...[/quote:ag1qv096]\n\nI cannot have it working without an Harbour exception:\n\n[code:ag1qv096]DLL32 Function GetSysWinDir&#40; lpBuffer AS LPSTR , uSize AS DWORD &#41; AS LPSTR ;\n                             PASCAL FROM &quot;GetSystemWindowsDirectoryA&quot; LIB &quot;kernel32&#46;dll&quot;\n[/code:ag1qv096]\n\nwhat\'s wrong ?\n\nThanks,\nDavide.','',0,'gIA=','ag1qv096',1,0,'',487,0,0),(27954,6264,6,436,0,'200.117.176.173',1173448052,1,0,1,1,1,0,'','SOBRE WORD','Hola colegas, necesito implementar para un sistema el envio de notificaciones/intimaciones a los clientes.\nLa idea es que hayan determinados modelos ya cargados en un texto de word y se agreguen los datos del cliente y por ej. su estado de cuenta.\nEs esto posible?\nNo tengo experiencia con el uso de de word desde FW+HB asi que todo comentario será bienvenido (con ejemplos tanto mejor!!!).\nGracias.','',0,'gIA=','1jhrl8gx',1,0,'',436,0,0),(27955,6258,6,397,0,'201.27.233.127',1173448353,1,0,1,0,1,1,'','','Excuse me friends,\n\nDownload the .OCX on link below and register in your system first:\n\n<!-- m --><a class=\"postlink\" href=\"http://home.wxs.nl/~hafoh000/MSMAPI32.zip\">http://home.wxs.nl/~hafoh000/MSMAPI32.zip</a><!-- m -->\n\nCOPY MSMAPI32.OCX C:\\WINDOWS\\SYSTEM32\nCD WINDOWS\\SYSTEM32\nREGSVR32.EXE MSMAPI32.OCX\n\nI\'m use a tradicional Harbour, not xHarbour.\n\nChange the TAutoOLE() to CreateOLEObject()\n\nMapiSession1  := CreateOLEObject( \"MSMAPI.MAPISession.1\" )\nMapiMessages1 := CreateOLEObject( \"MSMAPI.MAPImessages.1\" )\n\nAnd set properties and methods to:\n\nProperties:\n\nOLESetProperty(MapiSession1,\"property\",value)\nOLEGetProperty(MapiSession1,\"property\")\n\nMethods:\n\nOLEInvoke(MapiSession1,\"method\")','',0,'gIA=','2dpbs9ju',1,0,'',397,0,0),(27956,6251,3,154,0,'151.21.75.33',1173448559,1,0,1,1,1,1,'','','Antonio,\n\nthe problem is present in GET without MEMO!\n\nCan you confirm?','',0,'gIA=','37spdw7j',1,0,'',154,0,0),(27957,5458,3,487,0,'151.38.44.254',1173449627,1,0,1,1,1,0,'','','[quote:3nf5tu08]what\'s wrong ?\n[/quote:3nf5tu08]\n\nok, I\'ve found it. Here\'s the function:\n\n[code:3nf5tu08]FUNCTION GetSysWinDir&#40;&#41;\n\n     Local cBuffer &#58;= Space&#40;261&#41;\n     Local nLen\n\n     nLen &#58;= GetSystemWindowsDirectory&#40; @cBuffer, Len&#40;cBuffer&#41; &#41;\n\nRETURN Left&#40;cBuffer, nLen&#41;\n\n//----------------------------------------------------------------------------//\n\nDLL32 Function GetSystemWindowsDirectory&#40; lpBuffer AS LPSTR , uSize AS DWORD &#41; AS DWORD ;\n                   PASCAL FROM &quot;GetSystemWindowsDirectoryA&quot; LIB &quot;kernel32&#46;dll&quot;\n\n//----------------------------------------------------------------------------//\n[/code:3nf5tu08]\n\nI\'m going to test it on the different OS\'s, unless you already see something wrong in it.\n\nRegards,\nDavide','',0,'gIA=','3nf5tu08',1,0,'',487,0,0),(27958,6251,3,154,0,'151.21.75.33',1173449750,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:36xpz7fx]the problem is present in GET without MEMO![/quote:36xpz7fx]\nAntonio,\n\nI found another problem, the special character is visible but not usable!\nTest this:[code:36xpz7fx]   LOCAL oDlg, oGet, cNote &#58;= &quot;&quot;, oClp, oBt1, oBt2, oBt3, oFont, oIni\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, - 11\n   DEFINE DIALOG oDlg RESOURCE &quot;SpecialChar&quot; FONT oFont\n   DEFINE CLIPBOARD oClp OF oDlg\n\n   INI oIni File &quot;MemoTest&#46;ini&quot;\n      GET cNote SECTION &quot;Test&quot; ENTRY &quot;Memo&quot; OF oIni DEFAULT Space&#40; 100 &#41;\n\n      REDEFINE GET oGet VAR cNote ID 101 OF oDlg MEMO\n      REDEFINE BUTTON oBt1 ID 102 ACTION WinExec&#40; &quot;CHARMAP&#46;EXE&quot; &#41;\n      REDEFINE BUTTON oBt2 ID 103 ACTION &#40; oGet&#58;Paste&#40; oCLp&#58;GetText&#40;&#41; &#41;, oDlg&#58;Refresh&#40;&#41; &#41;\n      REDEFINE BUTTON oBt3 ID 104 ACTION OdLG&#58;END&#40;&#41;\n      Activate Dialog oDlg\n      oClp&#58;END&#40;&#41;\n\n      SET SECTION &quot;Test&quot; ENTRY &quot;Memo&quot;  TO cNote OF oIni\n   ENDINI\n   Return Nil[/code:36xpz7fx]\n\nInsert the special character and click on \"End\" button.\nNow run the program and you will see the \"S\" not the \"&#350;\".\n\nCan you confirm?\n\nIs possible to save the special character into the DBF and INI files?','',0,'gIA=','36xpz7fx',1,0,'',154,0,0),(27959,5458,3,2,0,'87.218.146.51',1173451575,1,0,1,1,1,1,'','','Davide,\n\nIt looks fine','',0,'gIA=','1s99skyc',1,0,'',2,0,0),(27960,6258,6,397,0,'201.27.233.127',1173451810,1,0,1,0,1,1,'','','Here is the Send/Receiving code:\n\n[code:2k9xmdes]\n// FiveWin OLE support demo - Using Microsoft MAPI Control\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define SESSION_SIGNON  1\n#define MESSAGE_COMPOSE 6\n#define ATTACHTYPE_DATA 0\n#define RECIPTYPE_TO    1\n#define RECIPTYPE_CC    2\n#define MESSAGE_RESOLVENAME 13\n#define MESSAGE_SEND    3\n#define SESSION_SIGNOFF 2\n\nfunction Main&#40;&#41;\n   local oWnd, aMessages &#58;= &#123;&#125;\n\n   SET DATE BRIT\n   // \n   // FiveWin OLE Support - Sending\n   // \n   MapiSession1  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPISession&#46;1&quot; &#41;\n   MapiMessages1 &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPImessages&#46;1&quot; &#41;\n\n   //MapiSession1&#58;aboutbox&#40;&#41;\n   //Open up a MAPI session\n   MapiSession1&#58;Action      &#58;= SESSION_SIGNON\n   //Point the MAPI messages control to the open MAPI session&#58;\n   MapiMessages1&#58;SessionID  &#58;= MAPISession1&#58;SessionID\n\n   MapiMessages1&#58;Action     &#58;= MESSAGE_COMPOSE   //Start a new message\n\n   // Set the subject of the message&#58;\n   MapiMessages1&#58;MsgSubject &#58;= &quot;This is the subject&#46;&quot;\n   // Set the message content\n   MapiMessages1&#58;MsgNoteText&#58;= &quot;This is the mail message&#46;&quot;\n\n   // The following four lines of code add an attachment to the message,\n   // and set the character position within the MsgNoteText where the\n   // attachment icon will appear&#46; A value of 0 means the attachment will\n   // replace the first character in the MsgNoteText&#46; You must have at\n   // least one character in the MsgNoteText to be able to attach a file&#46;\n   MapiMessages1&#58;AttachmentPosition &#58;= 0\n   // Set the type of attachment\n   MapiMessages1&#58;AttachmentType     &#58;= ATTACHTYPE_DATA\n   // Set the icon title of attachment\n   MapiMessages1&#58;AttachmentName     &#58;= &quot;System Configuration File&quot;\n   // Set the path and file name of the attachment\n   MapiMessages1&#58;AttachmentPathName &#58;= &quot;C&#58;\\CONFIG&#46;SYS&quot;\n\n   // Set the TO recipients\n   aTORecipients &#58;= &#123; &quot;softclever@itelefonica&#46;com&#46;br&quot;, ;\n                      &quot;irochinha@itelefonica&#46;com&#46;br&quot;, ;\n                      &quot;fivolution@hotmail&#46;com&quot;, ;\n                      &quot;softclever@ig&#46;com&#46;br&quot; &#125;\n   aCCRecipients &#58;= &#123; RECIPTYPE_TO, RECIPTYPE_CC, RECIPTYPE_CC, RECIPTYPE_CC &#125;\n   for i = 1 to len&#40;aTORecipients&#41;\n       MapiMessages1&#58;RecipIndex          &#58;= i                  // Recipient count\n       MapiMessages1&#58;RecipType           &#58;= aCCRecipients&#91;i&#93;   // Recipient in TO line\n       MapiMessages1&#58;RecipDisplayName    &#58;= aTORecipients&#91;i&#93;   // e-mail name\n       MapiMessages1&#58;MsgReceiptRequested &#58;= &#46;t&#46;\n   next\n\n   // MESSAGE_RESOLVENAME checks to ensure the recipient is valid and puts\n   // the recipient address in MapiMessages1&#58;RecipAddress\n   // If the E-Mail name is not valid, a trappable error will occur&#46;\n   MapiMessages1&#58;Action &#58;= MESSAGE_RESOLVENAME\n   // Send the message\n   MapiMessages1&#58;Action &#58;= MESSAGE_SEND\n\n   // Close MAPI mail session\n   MapiSession1&#58;Action &#58;= SESSION_SIGNOFF\n\n   MapiSession1&#58;End&#40;&#41;\n   MapiMessages1&#58;End&#40;&#41;\n\n   //\n   // FiveWin OLE Support - Receiving\n   //\n   MapiSession1  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPISession&#46;1&quot; &#41;\n   MapiMessages1 &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPImessages&#46;1&quot; &#41;\n    \n   MAPISession1&#58;DownLoadMail &#58;= &#46;t&#46;\n   MAPISession1&#58;SignOn&#40;&#41;\n    \n   MAPIMessages1&#58;SessionID &#58;= MAPISession1&#58;SessionID\n   MAPIMessages1&#58;Fetch&#40;&#41;\n\n   nMsgHoje &#58;= 0\n   nMsgLida &#58;= 0\n\n   If MAPIMessages1&#58;MsgCount &gt; 0\n      For i = 0 To MAPIMessages1&#58;MsgCount - 1\n          MAPIMessages1&#58;MsgIndex &#58;= i\n          if MDtoD&#40; MAPIMessages1&#58;MsgDateReceived &#41; = date&#40;&#41;\n             nMsgHoje &#58;= nMsgHoje + 1\n          endif\n          if MAPIMessages1&#58;MsgRead\n             nMsgLida &#58;= nMsgLida + 1\n          endif\n          AADD&#40; aMessages, &#123; &quot;From&#58; &quot; + MAPIMessages1&#58;MsgOrigDisplayName, ;\n                             &quot;Subject&#58; &quot; + MAPIMessages1&#58;MsgSubject &#125; &#41;\n      Next\n   End If\n   MAPISession1&#58;SignOff&#40;&#41;\n\n   MapiSession1&#58;End&#40;&#41;\n   MapiMessages1&#58;End&#40;&#41;\n\n   ? &quot;Menssages&#58; &quot;+str&#40;len&#40; aMessages &#41;&#41;, &quot;Today&#58; &quot;+str&#40;nMsgHoje&#41;, &quot;Reads&#58; &quot;+str&#40;nMsgLida&#41;\n\nreturn nil\n\nFunction MDtoD&#40; cData &#41;\n   cData &#58;= substr&#40; cData, 1, 10 &#41;\n   return ctod&#40; substr&#40;cData,9,2&#41;+&quot;/&quot;+substr&#40;cData,6,2&#41;+&quot;/&quot;+substr&#40;cData,1,4&#41; &#41;\n[/code:2k9xmdes]','',0,'AIA=','2k9xmdes',1,0,'',397,0,0),(27961,6257,6,54,0,'189.132.118.91',1173452644,1,0,1,1,1,1,'','','[quote=&quot;Vital&quot;:kyyfq9mk]Nuevamente wmormar mil gracias\n\nYa funciono.[/quote:kyyfq9mk]\n\nDe nada carnal','',0,'gA==','kyyfq9mk',1,0,'',54,0,0),(27962,6265,6,23,0,'213.96.85.49',1173456303,1,0,1,1,1,1,'','Compilar con xHarbour?','Buenassss.\nEstoy testeando xharbour por los dichosos problemas que tengo con los zips, y me va muy bien en modo consola, pero no consigo que funcione con mi FWH, uso la versión 2.6 y xHarbour recién descargada 0.99.70.\n\nMe compila y linka bien, pero al ejecutarlo me da la siguiente advertencia :\n\n\"Program with 1st fun: ALERT\" was compiled by older version, PCODE version 0 is no longer supported - Please recompile.\n\n¿Incompatibilidad entre ellos???\n\nAlguna ayuda, gracias.','',0,'gA==','1o3s5yv8',1,0,'',23,0,0),(27963,6263,6,72,0,'189.146.239.227',1173456876,1,0,1,1,1,0,'','','Para cambiar la fecha uso:\n\n      SetDate(Day(dDate)+1,Month(dDate),Year(dDate))\n\n... desconozco el motivo pero si no se incrementa en 1 el día no lo asigna correctamente.','',0,'gA==','15z21aut',1,0,'',72,0,0),(27964,6265,6,23,0,'213.96.85.49',1173458539,1,0,1,1,1,1,'','','Ya pude realizarlo correctamente, gracias (era usar fivehx)','',0,'gA==','315ib9hf',1,0,'',23,0,0),(27965,6256,6,976,0,'165.98.139.66',1173458944,1,0,1,1,1,0,'','','Gracias Maestro,\n\nTiene algún ejemplo para saber cómo utilizar el control?\n\nSaludos','',0,'gA==','3ggycqor',1,0,'',976,0,0),(27966,6253,7,490,0,'80.24.224.89',1173459054,1,0,1,1,1,0,'','','Antonio,\n\nAsí la estoy pasando:\n\n cPathAddons := Strtran(alltrim(CurDir()+\"\\\"),\" \",\"_\")\n\n      ShellExecute( GetActiveWindow() , \"open\", CurDir()+\"\\addons\\addons1.exe\", cPathAddons )\n\n\nUn Saludo,\nJoaquín','',0,'gA==','wehllktr',1,0,'',490,0,0),(27967,6256,6,138,0,'189.141.72.59',1173459371,1,0,1,1,1,1,'','','No es un control, es un Componente COM y se accesa por OLE.\n\nEn general el manual de funcky es muy explicito.\n\nLee mi articulo:\n\n[url:2feaizxq]http&#58;//google&#46;blogspot&#46;com/2005/03/its-time-to-get-funcky-again&#46;html[/url:2feaizxq]','',0,'EA==','2feaizxq',1,0,'',138,0,0),(27968,6260,4,138,0,'189.141.72.59',1173459879,1,0,1,1,1,1,'','','No, Symbian is not a Pocket PC Compatible Operating System.\n\nTake a look into smartphones with Pocket PC installed, BenQ, HP, Qtek, O2, and I-mate have very nice models not too expensive (my choice actually would be an HP 7000 series Smartphoe with GPS integrated, but it\'s almost 800 dollars, so I\'ll keep my Qtek-9100).\n\nBelive me, use a SmartPhone with Windows Mobile once and you will never want another mobile phone.','',0,'EA==','2k33bv3t',1,0,'',138,0,0),(27969,6264,6,138,0,'189.141.72.59',1173460157,1,0,1,1,1,1,'','','Puedes utilizar la clase TWord, o bien hacerlo directo por OLE.\n\nVykthor tiene por ahí un ejemplo de combinar correspondencia con Word que funciona para hacer exactamente lo que tu quieres.','',0,'EA==','2rmzu2eg',1,0,'',138,0,0),(27970,6259,3,95,0,'189.171.158.118',1173461835,1,0,1,1,1,0,'','','Thanks a lot\n\nI will try and I will wait ...\n\nBest Regards\nOsvaldo Ramirez','',0,'EA==','2i2lbsdi',1,0,'',95,0,0),(27971,6261,18,303,0,'72.199.41.171',1173463008,1,0,1,1,1,0,'','','Enrico,\n\nI confirm it with Aug 2006 build. I\'m surprized nobody has reported it sooner.\n\nJames','',0,'EA==','3npo9fga',1,0,'',303,0,0),(27972,6253,7,2,0,'87.218.146.51',1173464721,1,0,1,1,1,1,'','','Joaquín, \n\nNo hay que usar AnsiToWide() ya que FWPPC lo llama automaticamente.\n\nHas probado con WinExec() en vez de con ShellExecute() ?','',0,'EA==','2y33kd6v',1,0,'',2,0,0),(27973,6256,6,976,0,'165.98.139.66',1173464903,1,0,1,1,1,0,'','','Gracias René,\n\nLeí tu artículo y en realidad resuntó sencillo, eso es lo importante de tener el correo de el que sabe.\n\nSi no es mucha molestia, de casualidad tienes algún ejemplo de utilización de List &amp; Label?\n\nSaludos.','',0,'EA==','3f36njcq',1,0,'',976,0,0),(27974,6261,18,2,0,'87.218.146.51',1173467833,1,0,1,1,1,1,'','','This seems as a possible fix:\n[code:2kr0lqy3]\nMETHOD ReSize&#40; nSizeType, nWidth, nHeight &#41; CLASS TWBrowse\n\n   local nTotalSize &#58;= 0\n\n   &#58;&#58;nRowPos = Min&#40; &#58;&#58;nRowPos, Max&#40; &#58;&#58;nRowCount&#40;&#41;, 1 &#41; &#41;\n   &#58;&#58;nColAct = Min&#40; &#58;&#58;nColAct, AScan&#40; &#58;&#58;GetColSizes&#40;&#41;,;\n                                      &#123; | nSize | nTotalSize += nSize,;\n                                      nWidth &lt; nTotalSize &#125;, &#58;&#58;nColPos &#41; &#41;\n\nreturn Super&#58;ReSize&#40; nSizeType, nWidth, nHeight &#41;\n[/code:2kr0lqy3]\nand in function wbrwline():\n[code:2kr0lqy3]\n   &#46;&#46;&#46;\n   nColPos = Max&#40; nColPos, 1 &#41;  // new!\n\n   for n &#58;= nColPos to Len&#40; aValues &#41;\n      nLeft   = nColStart + 1\n      nRight  = Min&#40; nColStart &#58;= &#40; nLeft + aColSizes&#91; n &#93; - 1 &#41;, nWidth &#41;\n      if nLeft &gt; nWidth\n         exit\n      endif\n      if n &gt;= Len&#40; aValues &#41; // changed!\n         nRight = nWidth\n      endif\n      &#46;&#46;&#46;\n[/code:2kr0lqy3]\nthough is this the desirable behavior ?','',0,'AIA=','2kr0lqy3',1,0,'',2,0,0),(27975,6250,4,267,0,'200.208.238.2',1173472145,1,0,1,1,1,1,'','','Antonio,\n\nThanks.','',0,'AIA=','15w1eg6y',1,0,'',267,0,0),(27976,6266,6,41,0,'200.105.194.235',1173473112,1,0,1,1,1,0,'','DBCOMITALL() diferencia entre xH99.5 y xH99.71','Holas,\n\nalguien puede probar este codigo con las versiones 99.5 y 99.71 de xHarbour, yo tengo una diferencia del doble entre ellos.\n\n[quote:32tnnk8u]\nFUNCTION main()\n\n   LOCAL astruct, i, ini, ind\n\n    rddRegister( \"ADS\", 1 )\n    rddsetdefault( \"ADS\" )\n\n    AdsSetServerType ( 1 )\n\n    aStruct := {{\"name\",\"C\",50,0},{\"salary\",\"N\",10,2}}\n\n    FOR i:=0 TO 30\n        ind := ALLTRIM( STR(i))\n        FERASE(\"person\" + ind + \".adt\")\n        FERASE(\"person\" + ind + \".adi\")\n        DBCREATE( \"person\" + ind, aStruct )\n        DBUSEAREA( .T.,, \"person\" + ind,,.T. )\n    NEXT\n   \n    ini := SECONDS()\n    DBCOMMITALL()\n    DBCLOSEALL()\n    ? SECONDS() - ini\n\n    INKEY(0)\n\nRETURN NIL\n[/quote:32tnnk8u]','',0,'gA==','32tnnk8u',1,0,'',41,0,0),(27977,6267,3,41,0,'200.105.194.235',1173473321,1,0,1,1,1,0,'','DBCOMMITALL() with xH 99.5 and 99.71','Hello,  somebody can try this test with xH 99.5 and 99.71, I obtained two times from one to other\n\n[quote:f1wkqwlw]\nFUNCTION main()\n\n   LOCAL astruct, i, ini, ind\n\n    rddRegister( \"ADS\", 1 )\n    rddsetdefault( \"ADS\" )\n\n    AdsSetServerType ( 1 )\n\n    aStruct := {{\"name\",\"C\",50,0},{\"salary\",\"N\",10,2}}\n\n    FOR i:=0 TO 30\n        ind := ALLTRIM( STR(i))\n        FERASE(\"person\" + ind + \".adt\")\n        FERASE(\"person\" + ind + \".adi\")\n        DBCREATE( \"person\" + ind, aStruct )\n        DBUSEAREA( .T.,, \"person\" + ind,,.T. )\n    NEXT\n   \n    ini := SECONDS()\n    DBCOMMITALL()\n    DBCLOSEALL()\n    ? SECONDS() - ini\n\n    INKEY(0)\n\nRETURN NIL\n[/quote:f1wkqwlw]','',0,'gA==','f1wkqwlw',1,0,'',41,0,0),(27978,6268,6,694,0,'200.189.112.21',1173478414,1,0,1,1,1,1,'','Qual xharbour usar com o FWH7.1?','Amigos, qual xharbour usar com o FWH7.1?\n\nHoje utilizo o xharbour 99.50 com FWH2.5\n\nDesde já agradeço\n\nAokisantos','',0,'gA==','dc566n06',1,0,'',694,0,0),(27979,6268,6,2,0,'87.218.146.51',1173479213,1,0,1,1,1,1,'','','Aokisantos,\n\nEn <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m --> estan todos los builds de Harbour y xHarbour publicados','',0,'gA==','3dfed55t',1,0,'',2,0,0),(27980,6268,6,694,0,'200.189.112.21',1173479568,1,0,1,1,1,1,'','Desculpe antonio','Antonio, achei o link, porém não entendi o que devo fazer... Tmabém não consigue acessar o link...\nPode ser mais especifico, por favor?\n\nAokisantos','',0,'gA==','2mc3luzo',1,0,'',694,0,0),(27981,6268,6,2,0,'87.218.146.51',1173480030,1,0,1,1,1,1,'','','Click here <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/files/8D2J1FRZ/xharbour.EXE.html\">http://www.uploading.com/files/8D2J1FRZ ... r.EXE.html</a><!-- m -->\n\nand download xharbour.exe','',0,'gA==','3tgvofap',1,0,'',2,0,0),(27982,6261,18,6,0,'82.55.208.162',1173481794,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:37znpmmr]This seems as a possible fix:[/quote:37znpmmr]\n\nThank you.\n\n[quote=&quot;Antonio Linares&quot;:37znpmmr]though is this the desirable behavior ?[/quote:37znpmmr]\n\nYes, it is similar to the vertical resize behavior. But there is one more problem: the horizontal scrollbar is not correctly updated. Can you fix that too?\n\nEMG','',0,'gA==','37znpmmr',1,0,'',6,0,0),(27983,6269,3,666,0,'211.28.125.58',1173491119,1,0,1,1,1,0,'','To Antonio: re GTWIN versus GTGUI','In running latest XHB builder (i.e. from xharbour.com) and FWH7.01, I get error because it is still looking for GTWIN.LIB instead of GTGUI.LIB.\n\nIs it OK for me to just copy GTGUI.LIB and rename that copy to GTWIN.LIB?\n\n(BTW, I\'m compiling with BCC32)\n\nColin Wisbey','',0,'gA==','sh5vt10d',1,0,'',666,0,0),(27984,6270,3,69,0,'74.13.34.9',1173494086,1,0,1,1,1,0,'','close EXCEL.EXE','Hi Everybody,\n\nIs there a way from within FWH to close Ms-Excel  (EXCEL.EXE) if it is running in the background?\n\n\n\nThanks,\nJeff','',0,'gA==','ojuiggz3',1,0,'',69,0,0),(27985,6271,3,32,0,'168.209.98.42',1173499099,1,0,1,1,1,0,'','Bug in TImageList','Hi,\n\nI don\'t think that oIcon should be in inverted comma\'s <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAlex\n\nMETHOD AddIcon( oIcon ) CLASS TImageList\n\n   local oIco\n\n   if ValType( oIcon ) == \"C\"\n[b:50phbd14]      if File( \"oIcon\" )[/b:50phbd14]\n         DEFINE ICON oIco FILENAME oIcon\n      else\n         DEFINE ICON oIco RESOURCE oIcon\n      endif\n   else\n      oIco = oIcon\n   endif\n\nreturn ILAddIcon( ::hImageList, oIco:hIcon )','',0,'QA==','50phbd14',1,0,'',32,0,0),(27986,6261,18,2,0,'87.218.146.51',1173510292,1,0,1,1,1,1,'','','Enrico,\n\nHorizontal scrollbar updated:\n[code:aqom8h0i]\nMETHOD ReSize&#40; nSizeType, nWidth, nHeight &#41; CLASS TWBrowse\n\n   local nTotalSize &#58;= 0\n\n   &#58;&#58;nRowPos = Min&#40; &#58;&#58;nRowPos, Max&#40; &#58;&#58;nRowCount&#40;&#41;, 1 &#41; &#41;\n   &#58;&#58;nColAct = Min&#40; &#58;&#58;nColAct, AScan&#40; &#58;&#58;GetColSizes&#40;&#41;,;\n                                      &#123; | nSize | nTotalSize += nSize,;\n                                      nWidth &lt; nTotalSize &#125;, &#58;&#58;nColPos &#41; &#41;\n   if &#58;&#58;oHScroll != nil\n      &#58;&#58;oHScroll&#58;SetPos&#40; &#58;&#58;nColAct &#41;\n   endif\n\nreturn Super&#58;ReSize&#40; nSizeType, nWidth, nHeight &#41;\n[/code:aqom8h0i]','',0,'AIA=','aqom8h0i',1,0,'',2,0,0),(27987,6261,18,6,0,'87.17.218.2',1173515365,1,0,1,1,1,1,'','','Perfect for me, thank you!\n\nEMG','',0,'AIA=','3ci0q6x4',1,0,'',6,0,0),(27988,6271,3,2,0,'87.218.146.51',1173515581,1,0,1,1,1,1,'','','Alex,\n\nFixed, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2jz55kfr',1,0,'',2,0,0),(27989,6269,3,2,0,'87.218.146.51',1173515633,1,0,1,1,1,1,'','','Colin,\n\n&gt; Is it OK for me to just copy GTGUI.LIB and rename that copy to GTWIN.LIB? \n\nyes','',0,'AIA=','o1eezlt8',1,0,'',2,0,0),(27990,6270,3,6,0,'79.3.216.240',1173520692,1,0,1,1,1,1,'','Re: close EXCEL.EXE','This is a working sample:\n\n[code:2s78ojy8]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    IF CLOSEEXCEL&#40;&#41;\n        ? &quot;Excel closed&quot;\n    ENDIF\n\n    RETURN NIL\n\n\n#define GW_HWNDNEXT	2\n#define GW_CHILD	5\n\n\nSTATIC FUNCTION CLOSEEXCEL&#40;&#41;\n\n    LOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41;\n\n    WHILE hWnd != 0\n        IF GETWINDOWTEXT&#40; hWnd &#41; = &quot;Microsoft Excel&quot;\n            POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n            RETURN &#46;T&#46;\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    RETURN &#46;F&#46;[/code:2s78ojy8]\n\nEMG','',0,'AIA=','2s78ojy8',1,0,'',6,0,0),(27991,6272,6,774,0,'200.72.65.173',1173526351,1,0,1,1,1,1,'','Txbrowse,, Tcbrowse y Twbrowse....  CONSULTA','de estas tres clases,, ¿ todas son nativas de FW?\n\ncual es la diferencia sustancial entre ellas...\n\nexisten referencia ( manual ) de sus funciones \n\n\nGRACIAS','',0,'AIA=','3lnb2gqy',1,0,'',774,0,0),(27992,6270,3,69,0,'74.13.34.9',1173527649,1,0,1,1,1,0,'','','Hi Enrico,\n\nOnce again I thank you.\n\nIt is people like you that make me glad I picked FWH as my programming language. Your knowledgeable and quick replies not only help solve our issues but also help expand our understanding of FWH.\n\nI wish we had 10 of you ... but the one we do have is pretty dam good.\n\n\nThanks again for all you help.\n\nJeff','',0,'AIA=','1el373i3',1,0,'',69,0,0),(27993,6273,6,774,0,'164.77.167.212',1173529833,1,0,1,1,1,1,'','PARA ANTONIO LINARES','Antonio  \nun saludo afectuoso a la distancia\n\nme permito consultarte lo siguiente...\n\nrevisando el directorio de instalacion de FWH27,, existe una subcarpeta MANUALES,, todos estan en INGLES,,  \n\n\nla pregunta del millon,,, EXISTEN ESOS MANUALES EN ESPAÑOL,, o NO\n\n\n\nAtte,,,\n\nGRACIAS...\n\npD... serian de mucha utilidad a los del foro en español,, no crees..','',0,'AIA=','1472fiyb',1,0,'',774,0,0),(27994,6273,6,2,0,'87.218.146.51',1173531541,1,0,1,1,1,1,'','','Tenemos la versión en Español de FiveWin.chm pero no de classes.chm, functions.chm y commands.chm\n\nDe todas formas la información contenida en esos CHM es muy técnica y se comprende bastante bien aunque este en inglés','',0,'AIA=','v4fvwowo',1,0,'',2,0,0),(27995,6272,6,2,0,'87.218.146.51',1173531674,1,0,1,1,1,1,'','','La clase base es TWBrowse. TCBrowse deriva de TWBrowse y permite usar objetos columna.\n\nTXBrowse es más compleja y permite una configuración más completa\n\nPara un browse relativamente simple, TWBrowse es suficiente.','',0,'AIA=','1j7g80fp',1,0,'',2,0,0),(27996,6270,3,6,0,'79.3.216.240',1173533162,1,0,1,1,1,1,'','','[quote=&quot;Jeff Barnes&quot;:2j2j44hf][...]FWH as my programming language.[/quote:2j2j44hf]\n\nFWH is not a programming language but \"merely\" a library. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEMG','',0,'gA==','2j2j44hf',1,0,'',6,0,0),(27997,6268,6,694,0,'200.189.112.21',1173533249,1,0,1,1,1,1,'','Antonio','ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for xHarbour 7.01 - January 2007        xHarbour development power ³Ü\n³ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testdlg.prg\' and generating preprocessed output to \'testdlg.ppo\'...\n\nLines 29, Functions/Procedures 2\nGenerating C source output to \'testdlg.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntestdlg.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_gt_Init\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetScreenHeight\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetScreenWidth\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Exit\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ExtendedKeySupport\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ReadKey\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_AdjustPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Box\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_VertLine\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_HorizLine\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PreExt\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PostExt\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetCursorStyle\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_IsColor\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_RectSize\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Replicate\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetBlink\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetBlink\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetMode\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Puts\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Scroll\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Tone\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Version\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispCount\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispEnd\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Suspend\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Resume\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Row\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_Col\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_DispBegin\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetClipboard\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetClipboardSize\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_ProcessMessages\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetClipboard\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_GetText\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_PutText\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_gt_SetAttribute\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|gtapi\nError: Unresolved external \'_hb_mouse_IsPresent\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Show\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Hide\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Col\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_Row\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_SetPos\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_IsButtonPressed\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_CountButton\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_SetBounds\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_mouse_GetBounds\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|mouseapi\nError: Unresolved external \'_hb_gt_OutStd\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|console\nError: Unresolved external \'_hb_gt_OutErr\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|console\n* There are errors\n\n\n\nAntonio, baixei o link e compilei....deu este monte de erro\n\nAokisantos','',0,'gA==','3c3rebzh',1,0,'',694,0,0),(27998,6268,6,2,0,'87.218.146.51',1173533327,1,0,1,1,1,1,'','','Tienes que enlazar GTGUI.lib','',0,'gA==','9mvom7x5',1,0,'',2,0,0),(27999,6274,4,946,0,'87.196.64.150',1173533910,1,0,1,1,1,0,'','Hiding objects','Hello to everyone,\n\nHow to hide/show objects?\n\nCan i do something like: \noButton:visible := .t.\n\n\nTIA\nJoaquim','',0,'gA==','3rxhhgoe',1,0,'',946,0,0),(28000,6268,6,694,0,'200.189.112.21',1173533940,1,0,1,1,1,1,'','onde encontro esta lib','Antonio, onde consigo esta LIB?','',0,'gA==','3txcxm70',1,0,'',694,0,0),(28001,6268,6,694,0,'200.189.112.21',1173534087,1,0,1,1,1,1,'','CONSEGUI ANTONIO!','GRACIAS\nGRACIAS\nGRACIAS\n\nANTONIO','',0,'gA==','az9h5kyk',1,0,'',694,0,0),(28002,6262,6,52,0,'190.7.62.226',1173534435,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2itt51ql]Gustavo,\n\nTienes que usar oBrowse:bLDblClick = ...[/quote:2itt51ql]\n\nGracias, ya esta funcionando.','',0,'gA==','2itt51ql',1,0,'',52,0,0),(28003,6274,4,2,0,'87.218.146.51',1173536796,1,0,1,1,1,1,'','','Joaquim,\n\noButton:Hide()\n\noButton:Show()','',0,'gA==','3j75ccya',1,0,'',2,0,0),(28004,6274,4,946,0,'87.196.64.150',1173538188,1,0,1,1,1,0,'','','Thank you, it worked.\n\nJoaquim','',0,'gA==','4datzkoi',1,0,'',946,0,0),(28005,6272,6,439,0,'200.125.39.167',1173547392,1,0,1,1,1,1,'','','Y si, las tres son nativas y soportadas por Fivetechsoft, aunque existe también un twbrowse de Hernán que encontrarás en los foros y no es nativo.\nDe él se habla mucho en el foro, por eso no debes confundirlo con la clase nativa de Fivewin.','',0,'gA==','33nheqa6',1,0,'',439,0,0),(28006,6270,3,439,0,'200.125.39.167',1173547972,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:337tz1tp][quote=&quot;Jeff Barnes&quot;:337tz1tp][...]FWH as my programming language.[/quote:337tz1tp]\n\nFWH is not a programming language but \"merely\" a library. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEMG[/quote:337tz1tp]\n\nEnrico, what is correct.\n\nWhen I worked with Clipper I use to say I was a Clipper Programmer, and that  Clipper was my \"language\".\n\nNow If somebody ask me which language I use ¿Which is the right answer? c++?  [x]Harbour FWH  or .......?\n\nThanks for your help and support','',0,'gA==','337tz1tp',1,0,'',439,0,0),(28007,6270,3,6,0,'79.3.216.240',1173550427,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:2w9jarpa]Enrico, what is correct.\n\nWhen I worked with Clipper I use to say I was a Clipper Programmer, and that  Clipper was my \"language\".\n\nNow If somebody ask me which language I use ¿Which is the right answer? c++?  [x]Harbour FWH  or .......?[/quote:2w9jarpa]\n\nxHarbour is better than FWH but xHarbour is a compiler not a language. Clipper is also a compiler. dBase III is an interpreter. I don\'t know if our beloved programming language has really a name. What do you think about \"xBase language\"?\n\nEMG','',0,'gA==','2w9jarpa',1,0,'',6,0,0),(28008,6270,3,439,0,'200.125.39.167',1173550549,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:23qc0gpt][quote=&quot;jose_murugosa&quot;:23qc0gpt]Enrico, what is correct.\n\nWhen I worked with Clipper I use to say I was a Clipper Programmer, and that  Clipper was my \"language\".\n\nNow If somebody ask me which language I use ¿Which is the right answer? c++?  [x]Harbour FWH  or .......?[/quote:23qc0gpt]\n\nxHarbour is better than FWH but xHarbour is a compiler not a language. Clipper is also a compiler. dBase III is an interpreter. I don\'t know if our beloved programming language has really a name. What do you think about \"xBase language\"?\n\nEMG[/quote:23qc0gpt]\n\nOk, I like it, thanks, Have a nice weekend.','',0,'gA==','23qc0gpt',1,0,'',439,0,0),(28009,6275,17,439,0,'200.125.33.142',1173556658,1,0,1,1,1,1,'','Diagramas Entidad-Relación Freeware!!! y para xHarbour!!!!','Un interesante shareware es Toad Data Modeler Freeware, una aplicación que aunque limitada a 25 bases de datos por diagrama permite hacer rápidos diagramas entidad-relación contemplando los formatos y tipos de dato de Clipper 5 (ideales para clipper y [x]Harbour) PostGreSQL, MySQL, MSSql.\n\nGenera Informes en múltiples formatos!!!\n\nMe ha resultado práctica, y [b:2ancjr7z]es Freeware!![/b:2ancjr7z] , espero que a Uds. también. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nLa hallarán en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.toadsoft.com/toaddm/toad_data_modeler.htm\">http://www.toadsoft.com/toaddm/toad_data_modeler.htm</a><!-- m -->\n\nAquí podrán ver todas las posibilidades de la versión Freeware ( y son muchísimas) y la diferencia con la comercial.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.casestudio.com/enu/features.aspx\">http://www.casestudio.com/enu/features.aspx</a><!-- m -->','',0,'QA==','2ancjr7z',1,0,'',439,0,0),(28010,6259,3,95,0,'189.155.100.100',1173558732,1,0,1,1,1,0,'','','Dear Antonio\n\nI dit that you suggest me, appear that all was success, but When I try to find or try to execute somethings similar like ./harbour   harbour, dont happend nothing.\n\nAny hints\n\nBest Regards\nOsvaldo Ramirez','',0,'QA==','2e2hghke',1,0,'',95,0,0),(28011,6259,3,95,0,'189.155.100.100',1173559837,1,0,1,1,1,0,'','','This is a message :\n\ncvs checkout: warning: failed to open /Users/mac/.cvspass for reading: No such file or directory\n\nAnd when I try to run make_gnu, appear this :\n\n\nmacs-computer:~/harbour mac$ ./make_gnu.sh\nmake[2]: Nothing to be done for `first\'.\nmake[2]: Nothing to be done for `first\'.\nmake[1]: Nothing to be done for `first\'.\nmake[3]: `libcommon.a\' is up to date.\nmake[3]: `libpp.a\' is up to date.\nmake[3]: `libcompiler.a\' is up to date.\nmake[3]: `harbour\' is up to date.\nmake[3]: `librtl.a\' is up to date.\nmake[4]: `libgtcgi.a\' is up to date.\nmake[4]: `libgtcrs.a\' is up to date.\nmake[4]: `libgtpca.a\' is up to date.\nmake[4]: `libgtstd.a\' is up to date.\n\nMaybe I need install other things \n\nBest Regards\nOsvaldo Ramirez','',0,'','u0ku3kpo',1,0,'',95,0,0),(28012,6259,3,2,0,'87.218.146.51',1173561642,1,0,1,1,1,1,'','','Osvaldo,\n\nIts ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nUse spotlight and type harbour and you will find it\n\n[url=http&#58;//imageshack&#46;us:3fpkfukb][img:3fpkfukb]http&#58;//img262&#46;imageshack&#46;us/img262/162/picture2gx6&#46;png[/img:3fpkfukb][/url:3fpkfukb] \n\nharbour is located at the directory where you have done the checkout, at harbour/source/main/gcc/darwin/gcc\n\nI suggest you to create a bin, lib and include directories and copy the usual files there','',0,'GA==','3fpkfukb',1,0,'',2,0,0),(28013,6276,6,694,0,'200.189.112.21',1173564214,1,0,1,1,1,1,'','Error compilando FWH7.1 + xharb 99.71','C:\\BCC55\\Bin\\iLink32.Exe -Gn -aa -Tpe -s @C:\\genesis\\genesis.bcl\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'___CPPdebugHook\' referenced from C:\\BCC55\\LIB\\CW32.LIB|xx\nError: Unresolved external \'___System__GetTls\' referenced from C:\\BCC55\\LIB\\CW32.LIB|xxv\n\n\nAntonio, estou enfrentando uma série de erros, entre eles, os citados acima:\n\nAokisantos','',0,'GA==','3vy8csig',1,0,'',694,0,0),(28014,6262,6,52,0,'190.7.62.226',1173564498,1,0,1,1,1,1,'','','[quote=&quot;goosfancito&quot;:3ss9kovg][quote=&quot;Antonio Linares&quot;:3ss9kovg]Gustavo,\n\nTienes que usar oBrowse:bLDblClick = ...[/quote:3ss9kovg]\n\nGracias, ya esta funcionando.[/quote:3ss9kovg]\n\nNo logro hacer andar la tw de hernan con doble click.\n\nCon simple click puedo hacerla editar, pero con el doble click no, me queda editando en celda y no me deja salir por nada del mundo.\n\nAlgun Ejemplo?','',0,'gA==','3ss9kovg',1,0,'',52,0,0),(28015,6272,6,774,0,'200.72.70.94',1173565950,1,0,1,1,1,1,'','','Ahora me saltan mas dudas\n\nsobre Twbrowse,,, cual es la q usan para generar los browse,,,\n\nla nativa de FWH,, o la de hernan,,\n\ny cuales son sus diferencias si es que las hay','',0,'gA==','1227w4rt',1,0,'',774,0,0),(28016,6276,6,2,0,'87.218.146.51',1173566114,1,0,1,1,1,1,'','','Aokisantos,\n\nte salen esos mismos errores si construyes los ejemplos de FWH samples usando buildx.bat ?','',0,'gA==','lohtqbec',1,0,'',2,0,0),(28017,6272,6,439,0,'200.125.42.254',1173566607,1,0,1,1,1,1,'','','Ah mi amigo, es Ud. muy \"dudador.....\" jeje\n\nSimplemente baja la twbrowse de hernán de el foro de utilidades y mira en el archivo whatsnew.txt sus características.\n\nLas dos son igualmente rápidas y practicamente de igual sintaxis, ya que la segunda es modificacion de la primera.\n\nEs cuestión de gustos, personalmente pienso que usar las clases nativas de fivewin tiene la ventaja que son soportadas por fivetechsoft, no así las de terceros (aún cuando suele haber buena disposición a dar una mano siempre de A.Linares), pero para el caso del Browse de Hernán es tan sólida, que da lo mismo una que la otra.\n\nUna aplicación hecha con la clase TWBrowse nativa de fivewin me funciona bien con la de Hernán, no siempre a la inversa, ya que esta tiene algunas particularidades y mejoras que no tiene la primera.\n\nCreo que estás en el punto de revisar documentación y decidir.\n\n[b:1fcez96b]Lo dejo a tu criterio.[/b:1fcez96b] <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','1fcez96b',1,0,'',439,0,0),(28018,6259,3,95,0,'189.155.100.100',1173567222,1,0,1,1,1,0,'','','Hola Antonio\n\n\"ojala eso de \'dear\' \" no suene \"diferente\"\n\n\n\nYa lo localize el harbour y lo copie a /harbour/bin\nya existe include y lib ....\n\nAlgun comentario adicional ...\n\nSaludos\nOsvaldo Ramirez','',0,'QA==','2nwietrb',1,0,'',95,0,0),(28019,6275,17,138,0,'189.141.72.59',1173567326,1,0,1,1,1,1,'','','Jose:\n\nTe podria decir que aquí en google el Toad Data Modeler es \"la eleccion de la casa\"\n\nNos gusta porque ademas de generar diagramas ER, tambien genera las tablas para un monton de gestores de bases de datos, incluyendo ADS , SQL Server y MySQL.','',0,'QA==','2mcd124b',1,0,'',138,0,0),(28020,6259,3,138,0,'189.141.72.59',1173567424,1,0,1,1,1,1,'','','jejeje... comenzando por hablar en Español desde un principio...\n\nYo pense.... miren al Osvaldo, domina el ingles....','',0,'QA==','2f1yqplo',1,0,'',138,0,0),(28021,6272,6,138,0,'189.141.72.59',1173567601,1,0,1,1,1,1,'','','100 puntos para el browse de Hernan.\n\nes 100% compatible con el browse nativo de FiveWin, pero tiene montones de cosas mas, ademas de que el despliegue de datos es increiblemente rapido.\n\nSi te digo que tiene mas de 100 diferencias con el Wbrowse nativo de FiveWin me estoy quedando corto, como bien aconsejan lo mejor es que mires el archivo de novedadoes y veas todo lo que puedes hacer con el.\n\nYo solia usarlo hasta que descubri el xBrowse mismo que ahora tambien utilizo.','',0,'QA==','1fr6olxn',1,0,'',138,0,0),(28022,6275,17,439,0,'200.125.42.254',1173569190,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2xpiim3c]Jose:\n\nTe podria decir que aquí en google el Toad Data Modeler es \"la eleccion de la casa\"\n\nNos gusta porque ademas de generar diagramas ER, tambien genera las tablas para un monton de gestores de bases de datos, incluyendo ADS , SQL Server y MySQL.[/quote:2xpiim3c]\n\nMaestro, perdón que olvidé Advantage Data Server en la lista, y que sea su elección, pues es una garantía. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2xpiim3c',1,0,'',439,0,0),(28023,6276,6,694,0,'200.189.112.21',1173570118,1,0,1,1,1,1,'','','NÃO ANTONIO....usando o buildx.bat esta ok!','',0,'gA==','2m22a3sf',1,0,'',694,0,0),(28024,6259,3,95,0,'189.155.100.100',1173572062,1,0,1,1,1,0,'','','Hola Rene\n\nJajajajaja, bueno le hacemos intento ... pero si, suena raro...\n\nDime como estas ?\n\nHas escho algo con Mac. ?\n\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','zfg25305',1,0,'',95,0,0),(28025,6259,3,95,0,'189.155.100.100',1173573917,1,0,1,1,1,0,'','','This is my next question ...\n\n\nmacs-computer:~/harbour/bin mac$ ./bld.sh ac_test    \nHarbour devel build 1.1-0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'ac_test.prg\'...\nLines 644, Functions/Procedures 2\nGenerating C source output to \'ac_test.c\'... Done.\n/usr/bin/ld: unknown flag: -oac_test\ncollect2: ld returned 1 exit status\n\nBest Regards to all mexicas\nOsvaldo Ramirez','',0,'gA==','16722iwo',1,0,'',95,0,0),(28026,6259,3,2,0,'87.218.146.51',1173574938,1,0,1,1,1,1,'','','Osvaldo,\n\nTe preparo mañana un build.sh para que construyas aplicaciones en Mac en modo consola <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  Aqui es tarde ya...','',0,'gA==','2laswcvt',1,0,'',2,0,0),(28027,6276,6,2,0,'87.218.146.51',1173575100,1,0,1,1,1,1,'','','Aokisantos,\n\nCompara tu fichero make ó bat con buildx.bat y localiza las diferencias','',0,'gA==','2qy2y68p',1,0,'',2,0,0),(28028,6259,3,95,0,'189.155.100.100',1173580319,1,0,1,1,1,0,'','','Te lo agradesco\n\nAqui aun hay cuerda son las 7:31pm\n\nSaludos','',0,'gA==','25hsqyk8',1,0,'',95,0,0),(28029,6218,6,2,0,'87.218.146.51',1173604065,1,0,1,1,1,1,'','','DeleteObject( oMiCasill2:hBitmap1 )\noMiCasill2:hBitmap1 = LoadBitmap( GetResources(), \"NuevoBmp\" )\noMiCasill2:Refresh()','',0,'gA==','2nznph5k',1,0,'',2,0,0),(28030,6259,3,2,0,'87.218.146.51',1173605570,1,0,1,1,1,1,'','','Osvaldo,\n\nHere it is:\n\nbuild.sh\n[code:mriy5v8r]\n# &#46;/build&#46;sh for Mac OSX - &#40;c&#41; FiveTech Software 2007\n\nclear\n\nif &#91; $# = 0 &#93;; then\n   echo syntax&#58; &#46;/build&#46;sh file &#91;options&#46;&#46;&#46;&#93;\n   exit\nfi\n\necho compiling&#46;&#46;&#46;\n&#46;/&#46;&#46;/bin/harbour $1 -n -I&#46;/&#46;&#46;/include $2\nif &#91; $? = 1 &#93;; then\n   exit\nfi   \n\necho compiling C module&#46;&#46;&#46;\n\ngcc $1&#46;c -c -I&#46;/&#46;&#46;/include\n\necho linking&#46;&#46;&#46;\ngcc $1&#46;o -o &#46;/$1 -L&#46;/&#46;&#46;/lib -ldebug -lvm -lrtl -llang -lrdd -lrtl -lgtstd -lvm -lmacro -lpp -ldbfntx -ldbfcdx -ldbffpt -lhbsix -lcommon\nrm $1&#46;c\nrm $1&#46;o\n\necho done!\n&#46;/$1[/code:mriy5v8r]','',0,'AIA=','mriy5v8r',1,0,'',2,0,0),(28031,6259,3,2,0,'87.218.146.51',1173605794,1,0,1,1,1,1,'','','A sample of use:\n\nHello.prg:\n[code:qurjagkx]\nfunction Main&#40;&#41;\n   ? &quot;Hello world!&quot;\nreturn nil\n[/code:qurjagkx]\n./build.sh hello\n[url=http&#58;//imageshack&#46;us:qurjagkx][img:qurjagkx]http&#58;//img291&#46;imageshack&#46;us/img291/5605/picture3lq7&#46;png[/img:qurjagkx][/url:qurjagkx]','',0,'GIA=','qurjagkx',1,0,'',2,0,0),(28032,3391,6,375,0,'84.122.105.157',1173610732,1,0,1,1,1,1,'','','Muchas Gracias Armando.\n\nSeguro que es eso. Yo aun no programo en (x)Harbour y no podía saberlo. Sólo será cuestión de cambiar NUMBER por NUMERIC y quizá alguno más por el estilo.\n\nUn saludo.','',0,'GIA=','7l7yqt7j',1,0,'',375,0,0),(28033,6259,3,2,0,'87.218.146.51',1173614784,1,0,1,1,1,1,'','','Osvaldo,\n\nWe have created a first Harbour setup for OSX.\n\nYou may download it from here:\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/76fac8/\">http://www.filefactory.com/file/76fac8/</a><!-- m -->\n\nI appreciate your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','2ly67j1b',1,0,'',2,0,0),(28034,3391,6,140,0,'190.36.189.7',1173622128,1,0,1,1,1,0,'','','Hola a todos,\n\nMe tome el atrevimiento de colocar la clase TGSay en este link:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivewin.sytes.net/fivewin/sources/manuramos\">http://fivewin.sytes.net/fivewin/sources/manuramos</a><!-- m -->\n\nSi esta iniciativa de mi parte afecta a alguien (y/o a algo) por favor me hacen llegar la informacion para retirarlo.\n\n\nSaludos,\n\nGiancarlo J. Sabattino S.\ngsabattino @ gmail.com\nValencia, Venezuela','',0,'GIA=','2fv0r0z0',1,0,'',140,0,0),(28035,6277,6,694,0,'200.189.112.21',1173625400,1,0,1,1,1,1,'','Botão no GET com FWH7.1 é possível ?','Antonio e amigos, o fivewin tem alguma classe que seja possível colocar botão em um GET? sem precisar usar classe de terceiro!?\n\nAokisantos','',0,'GIA=','eyeozrl5',1,0,'',694,0,0),(28036,6259,3,2,0,'87.218.146.51',1173626458,1,0,1,1,1,1,'','','A new Harbour setup for Intel and PowerPC (Universal binaries and libraries):\n\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/0d762a/\">http://www.filefactory.com/file/0d762a/</a><!-- m -->','',0,'GIA=','2rksdg6v',1,0,'',2,0,0),(28037,6259,3,95,0,'189.155.100.100',1173629177,1,0,1,1,1,0,'','','Muchas Gracias.\n\nLo baje, lo instale el harbour.pkg y seleccione el folder pero no me instalo nada en el folder.\nCuando use el folder por default y continue de manera normal, busque harbour y no encuentro nada.\n\nPor cierto la instalacion avanza muy rapido que no veo q copie algo al disco duro.\n\nSaludos','',0,'GIA=','5xgi8ttf',1,0,'',95,0,0),(28038,6259,3,2,0,'87.218.146.51',1173630222,1,0,1,1,1,1,'','','Osvaldo,\n\nPor defecto debería estar en /usr/local/harbour','',0,'GIA=','13lavfgf',1,0,'',2,0,0),(28039,6278,1,418,0,'88.122.230.35',1173639447,1,0,1,1,1,0,'','PREVIEW PROBLEM','Hi\ni have a problem with preview:   print... preview\nsometimes it works and sometimes no :i see a blank page   and when i print it i allready have a blank page\nIf i delete the \"preview\" it will print very well\nSome other days the preview works good.\nCan everybody explain me how the preview works?\n\n\nI\' using FW 2.1\nThanks','',0,'GIA=','kno0p5z4',1,0,'',418,0,0),(28040,6276,6,694,0,'200.189.112.21',1173642798,1,0,1,1,1,1,'','Antonio','Antonio revisei o make, e estava faltando o obj C0W32.OBJ....   \n\nAntonio compilou, mais em tempo de execução..esta dando erro e reiniciando o micro....provavelmente é aluma CPG, com LIB de terceiros né?  Haja vista que compilando o SAMPLES com o buildx.bat não acontece este erro!\n\nAokisantos','',0,'GIA=','1quvrni1',1,0,'',694,0,0),(28041,6276,6,2,0,'87.218.146.51',1173644172,1,0,1,1,1,1,'','','Aokisantos,\n\nComprueba que todo tu código y librerias usadas esten compiladas usando el mismo compilador de C y tambien de xHarbour','',0,'GIA=','sd0bopog',1,0,'',2,0,0),(28042,6270,3,707,0,'125.163.116.2',1173653506,1,0,1,1,1,0,'','','Hi ! Enrico.\n\nClipper is my language when I was Born\n\nThank\'s Enrico for some help for me.\n\nYou are the good guy in the world  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nHow to focus my window application\n[code:16h0gf2g]\n        IF GETWINDOWTEXT&#40; hWnd &#41; = &quot;My Application&quot;\n            //POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n            POSTMESSAGE&#40;hWnd,????????&#41; &lt;--- \n            RETURN &#46;T&#46;\n        ENDIF\n[/code:16h0gf2g]\n\nBest Regard\nAreang','',0,'AIA=','16h0gf2g',1,0,'',707,0,0),(28043,6259,3,2,0,'87.218.146.51',1173657446,1,0,1,1,1,1,'','','Please remember to install Xcode from the OSX setup DVD or download it from <!-- w --><a class=\"postlink\" href=\"http://www.apple.com\">www.apple.com</a><!-- w -->\n\nIt includes all the required tools (c compiler (gcc), etc.)','',0,'AIA=','2zhm9sz1',1,0,'',2,0,0),(28044,6279,6,2,0,'87.218.146.51',1173663925,1,0,1,1,1,1,'','Harbour para Mac OSX','Para quienes esteis interesados en probar Harbour en Mac OSX, podeis descargar una instalación automática desde:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/0d762a/\">http://www.filefactory.com/file/0d762a/</a><!-- m -->\n\nFunciona tanto en Intel como en PowerPC.\n\nEs preciso que instaleis xcode desde vuestro DVD de OSX ó descargándolo desde <!-- w --><a class=\"postlink\" href=\"http://www.apple.com\">www.apple.com</a><!-- w -->\nxcode contiene el compilador de C, el editor de recursos, el CVS, etc.\n\nEn el directorio samples se proporciona el fichero build.sh. Para construir una aplicación sólo teneis que hacer:\n./build.sh hello\n\n[url=http&#58;//imageshack&#46;us:2gecfh35][img:2gecfh35]http&#58;//img169&#46;imageshack&#46;us/img169/6108/picture1gt0&#46;png[/img:2gecfh35][/url:2gecfh35]','',0,'GA==','2gecfh35',1,0,'',2,0,0),(28045,6277,6,785,0,'190.64.211.127',1173667189,1,0,1,1,1,0,'','','Aokisantos:\n\nPor el momento FW(H) no tiene esa posibilidad, lo que puedes hacer\n(que es lo que hago) coloco un boton junto al get.\nAl salir del boton luego de hacer la seleccion de lo que sea,\nle doy foco al get.\n\nDebes refrescar el get y ademas si le das el foco luego del boton\nhacer un valid (en el get) para comprobar el dato ingresdado.\n(Esto es por si alguien despues de seleccionar algo desde el boton\nmodifica el get )\n\nSaludos\n\nRuben Fernandez.','',0,'GA==','1xt5g2fg',1,0,'',785,0,0),(28046,6280,6,854,0,'200.95.238.251',1173676816,1,0,1,1,1,0,'','sobre la clase DATABASE','Que tal, nuevamente saludos a todos.\n\nTengo una duda, estoy manejando un \"DATABASE oDbf\", pero quiero saber el tamaño y el tipo de campo, del primer Field o del segundo.\n\nComo hacerle, existe algun manual de la clase DATABASE \n\nGracias.','',0,'GA==','v1ntw03q',1,0,'',854,0,0),(28047,6259,3,95,0,'189.155.100.100',1173678393,1,0,1,1,1,0,'','','Excelente\n\nBaje el ultimo link que me pusistes y lo instaldo en /usr/local/harbour\nEl cual todo el folder lo copie al folder \"home\"   /Users/mac el cual es por default segun mi mac.\n\nBueno, pues puse el build.sh en el folder de bin y creee mi primero programa y compili y corrio, asi que hay van las dudas.\n\n\nun simple ejemplo :\n\nprocedure main\nlocal nnumero\nnnumero := 0\ncls\n@0,0 say \"Hola:\" get nNumero pict \"999,999.99\"\nread\n? nNumero\nreturn\n\n\n1.- Porque el cursor se queda al final del get y no avanza segun tecleo un numero ?\n\n2.- El harbour.pkg, como se crean ?\n     Este paquete no neceista primero des-instalar y volver a instalar cuando existe uno mas nuevo ?\n\n3.- Un buen programa editor de textos. ?\n\nSaludos\nOsvaldo Ramirez','',0,'GA==','3cy8art7',1,0,'',95,0,0),(28048,6259,3,95,0,'189.155.100.100',1173680632,1,0,1,1,1,0,'','','Estimado Antonio ... ( Suena mejor que dear )\n\njajajaja\n\nPero bueno... no quiero pasar por alto.\n\nTe agradesco mucho por el esfuerzo en fin de semana se que debes tambien tener tus cosas personales.\nEl setup, funciona perfecto, ya iran saliendo las dudas poco a poco.\n\nHaber si nos vemos en el DevCon de Xbase++ con nuestros amigos de Alaska (Los osos polares de Berlin ) y con mucho gusto nos tomamos unos tequilas de Jalisco.\n\nSaludos','',0,'GA==','3oa916ac',1,0,'',95,0,0),(28049,6270,3,206,0,'125.160.81.212',1173686914,1,0,1,1,1,0,'','','Me too. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\ntry this:\n\n[code]\nSetActiveWindow(hWnd)\n[code]\n\n\n[quote=&quot;areang&quot;:1va4bq2c]Hi ! Enrico.\n\nClipper is my language when I was Born\n\nThank\'s Enrico for some help for me.\n\nYou are the good guy in the world  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nHow to focus my window application\n&#91;code&#93;\n        IF GETWINDOWTEXT( hWnd ) = \"My Application\"\n            //POSTMESSAGE( hWnd, WM_CLOSE )\n             POSTMESSAGE(hWnd,????????) &lt;--- \n            RETURN .T.\n        ENDIF\n&#91;/code&#93;\n\nBest Regard\nAreang[/quote:1va4bq2c]','',0,'gA==','1va4bq2c',1,0,'',206,0,0),(28050,6270,3,6,0,'87.18.210.240',1173687637,1,0,1,1,1,1,'','','Or\n\n[code:9p8ip3i1]BringWindowToTop&#40; hWnd &#41;[/code:9p8ip3i1]\n\nEMG','',0,'AIA=','9p8ip3i1',1,0,'',6,0,0),(28051,6259,3,2,0,'87.218.146.51',1173689594,1,0,1,1,1,1,'','','Osvaldo,\n\n--\n1.- Porque el cursor se queda al final del get y no avanza segun tecleo un numero ?\n--\n\nTienes que usar libgtcrs.a en vez de libgtstd.a en build.sh\n\n--\n2.- El harbour.pkg, como se crean ?\n--\n\nPuedes usar el PackageMaker que viene incluido al instalar xcode. Búscalo en el spotlight.\n\n--\nEste paquete no neceista primero des-instalar y volver a instalar cuando existe uno mas nuevo ?\n--\n\nPosiblemente se pueda hacer, pero aún no sabemos como se le indica al PackageMaker <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n--\n3.- Un buen programa editor de textos. ? \n--\n\nNosotros usamos JEdit, es multiplataforma y open source. Nos han recomendado TextMate que es comercial, pero aún no hemos probado la versión demo que ofrecen','',0,'AIA=','392ru3le',1,0,'',2,0,0),(28052,6280,6,2,0,'87.218.146.51',1173689897,1,0,1,1,1,1,'','','Len( oDbf:FieldGet( n ) )  // longitud\n\nValType( oDbf:FieldGet( n ) )  // Tipo\n\nEn la documentación de classes de FWH viene incluida la clase TDataBase','',0,'AIA=','1629lh5u',1,0,'',2,0,0),(28053,6277,6,439,0,'200.125.48.168',1173698959,1,0,1,1,1,1,'','','Si es posible gracias a una excelente clase llamada BtnGet32, la hallarás aquí:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02200d8b54/BtnGet32.exe.html\">http://hyperupload.com/download/02200d8 ... 2.exe.html</a><!-- m -->','',0,'AIA=','389tn7gd',1,0,'',439,0,0),(28054,6277,6,694,0,'200.189.112.21',1173701350,1,0,1,1,1,1,'','gracias','gracias','',0,'AIA=','2glv0v66',1,0,'',694,0,0),(28055,6281,6,785,0,'190.64.218.253',1173706119,1,0,1,1,1,0,'','Texto vertical en un dialogo...','Amigos:\n\nNecesito colocar un texto vertical en un dialogo.\nDeclarando el font  NESCAPEMENT 900 solo funciona\npara las impresiones no para los says en un dialogo.\n\nAgradezco alguna sugerencia\n\nMuchas gracias \n\nRuben Fernandez.','',0,'AIA=','gc5z603k',1,0,'',785,0,0),(28062,5603,7,267,0,'200.208.238.2',1173707462,1,0,1,1,1,1,'','','Hi,\n\nThe generated archives ZIP in the WindowsCE are not compatible with those generated in the WindowsXp?','',0,'AIA=','1tvc367l',1,0,'',267,0,0),(28063,6281,6,492,0,'189.147.25.211',1173711071,1,0,1,1,1,1,'','','Hola Ruben\n\nEsto quizas podria ayudarte :\n\n\n******************************************************************************\n* Function SayRotated(oWnd,Y,X,cPrompt,oFont,nClrText,nClrPane,l3D)\n* Dibuja un texto rotado\n*   oWnd: Ventana / diálogo\n*   Y,X: coordenadas en pixels del inicio del texto (nTop, nLeft)\n*   oFont: Fuente (definir antes) // debe ser True Type\n*   nClrText,nClrPane: Colores de texto y fondo. Si éste ultimo es nil se\n*                      pinta transparente\n*   l3D: Con efecto 3D\n*\n* César E. Lozada   (<!-- e --><a href=\"mailto:cesarlozada@hotmail.com\">cesarlozada@hotmail.com</a><!-- e -->)\n* Los Teques, Venezuela       Marzo 25, 2003\n*\n******************************************************************************\n#include \"Fivewin.ch\"\n******************************************************************************\nFunction Test\n  Local oDlg, oFont1, oFont2\n  DEFINE FONT oFont1 NAME \"Arial\" SIZE 0,-36 NESCAPEMENT 90*10\n  DEFINE FONT oFont2 NAME \"Arial\" SIZE 0,-24 BOLD NESCAPEMENT 45*10\n\n  DEFINE DIALOG oDlg FROM 0,0 TO 20,40 COLOR CLR_BLACK,CLR_WHITE;\n    TITLE \"Textos rotados\"\n\n  ACTIVATE DIALOG oDLg CENTERED;\n    ON PAINT( SayRotated(oDlg,235,0,\"90 grados 3D\",oFont1,,,.t.),;\n              SayRotated(oDlg,125,50,\"45 grados\",oFont2,CLR_HRED,CLR_YELLOW,.f.))\n\n  RELEASE FONT oFont1\n  RELEASE FONT oFont2\nreturn\n******************************************************************************\nFunction SayRotated(oWnd,Y,X,cPrompt,oFont,nClrText,nClrPane,l3D)\n  Local hDC:=oWnd:hDC\n  DEFAULT nClrText:=CLR_BLUE, l3D:=.T.\n  \n  IF l3D\n    DrawRotated(hdc, cPrompt, Y + 1, X + 1, CLR_BLACK,nClrPane,oFont)\n    DrawRotated(hdc, cPrompt, Y - 1, X - 1, nClrText,nClrPane,oFont)\n  ENDIF\n  DrawRotated(hdc, cPrompt, Y , X , nClrText,nClrPane,oFont)\n\nreturn\n******************************************************************************\nStatic Function DrawRotated(hDC,cPrompt,Y,X,nClrText,nClrPane,oFont)\n  Local hOldFont, nOldMode, nOldClrText, nOldClrPane\n\n  nOldClrText:=SetTextColor(hDC,nClrText)\n  if nClrPane&lt;&gt;nil\n    nOldClrPane:=SetBkColor(hDC,nClrPane)\n  else\n    nOldBkMode:=SetBkMode(hDC,1)\n  endif\n  hOldFont:=SelectObject(hDC,oFont:hFont)\n  TextOut(hDC,Y,X,cPrompt,Len(cPrompt))\n  SelectObject(hDC,hOldFont)\n  if nClrPane&lt;&gt;nil\n    SetBkColor(hDC,nOldClrPane)\n  else\n    SetBkMode(hDC,nOldBkMode)\n  endif\n  SetTextColor(hDC,nOldClrText)\nreturn\n******************************************************************************\n\n\nSaludos','',0,'AIA=','3c1z67ic',1,0,'',492,0,0),(28064,6288,6,975,0,'200.21.137.146',1173711265,1,0,1,1,1,0,'','Como Seleccionar un CHECKBOX y a la vez se active un GET','Necesitamos saber como un  CHECKBOX que al darle clic, active un GET para introducir informacion; y a la vez la información introducida nos aparezca grabada en el archivo.\n\n\n\n\nSTATIC FUNCTION Nuevo()\n#define DIALOG_3	3\nLOCAL oCbx,oCbx1,oBoton1, oBoton2 \nLOCAL videntif\n\nlocal oGet1,oGet2,oGet3\n\nlocal vcuenta:=space(8)\nlocal vnomcuenta:=space(40)\nLOCAL VNOM_PA:=space(20)\nstatic vreq_pa:=.F.\n\nstatic ccampo1\n\nLOCAL lSalir  := .F.\nLOCAL lSalvar := .F. \nuse IDENTIFI alias \"NOMB\" NEW SHARED\n\nDEFINE DIALOG oDlg1 RESOURCE DIALOG_3 of oDlg\n\nREDEFINE GET oGet1 var vcuenta PICTURE \"########\" ID 101 OF oDlg1 VALID LEER1( vcuenta )\nREDEFINE GET oGet2 var vnomcuenta PICTURE \"@!\" ID 102 OF oDlg1\n\n                                             \nREDEFINE CHECKBOX oCkb1 var vreq_pa ID 103 OF oDlg1 ON CLICK reg1( vreq_pa ) \n\n\n   REDEFINE DBCOMBO oCbx VAR videntif ID 109 OF oDlg1 ;\n          ALIAS \"NOMB\" ;\n          ITEMFIELD \"CODIGO\" ;\n          LISTFIELD \"NOMB\"\n\nREDEFINE BUTTONBMP oBoton1 ID 113 OF oDlg1 ;\n      ACTION ( lSalvar := .T. , oDlg1:End() )  \n\nREDEFINE BUTTONBMP oBoton2 ID 114 OF oDlg1 ;\n      ACTION  ( lSalir := .T. , oDlg1:End() )  \n\n\nACTIVATE DIALOG oDlg1 CENTER\n\n       IF lSalvar\n      APPEND BLANK\n           lSalvar := .F.\n           replace plan-&gt;cuenta with vcuenta,plan-&gt;nomcuenta with vnomcuenta\n           replace plan-&gt;req_pa with vreq_pa\n           replace plan-&gt;nom_pa with vnom_pa\n\n MsgWait( \"Informacion Salvada\" )\n           oTBR2 : Refresh()\n       ENDIF\n\n       IF lSalir\n        Return Nil\n       endif\n\nRETURN( NIL )\n\n\n\nSTATIC FUNCTION reg1(cCampo1)\n//VNOM_PA:=space(20)\nif cCampo1\n REDEFINE GET oGet3 var vnom_pa PICTURE \"@!\" ID 104 OF oDlg1\n  else\n VNOM_PA:=space(20)\n return(.F.) \nendif\nreturn(vnom_pa)','',0,'AIA=','2em01zgv',1,0,'',975,0,0),(28065,6281,6,785,0,'190.64.207.25',1173711755,1,0,1,1,1,0,'','','Gracias Raymundo\n\nLo pruebo y te digo.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','38vvnf57',1,0,'',785,0,0),(28066,6256,6,976,0,'165.98.139.66',1173713503,1,0,1,1,1,0,'','','Hola René,\n\nEn realidad creí que al ver tu ejemplo me iba a funcionar, pero no fué así, me aperece el siguiente error:\n\nError description: Error TOleAuto/-1 Unknown error: TOLEAUTO:NEW \n\nNo tengo ningún archivo Funcky.ocx, sólo Funcky60.dll\n\nEl ejecutable que descarqué de tu blog funciona perfectamente.\n\nSaludos.','',0,'AIA=','2z6wunha',1,0,'',976,0,0),(28067,6289,3,160,0,'59.95.222.60',1173713975,1,0,1,1,1,0,'','Can I change the report viewer ?','Dear All,\n\nOne of my client is an old one and he finds it difficult to make out the report in our Report preview dialog. He wants to view the report in slightly bigger size (bigger than 1 and smaller than 2) and with a cursor like line which show  which is the current line. He tend to mix two lines when report is horizontally long.\n\nIn nut shell,  is there any alternate viewer I can use only in this case.\n\nTIA\n\nMilanl','',0,'AIA=','66fiti2a',1,0,'',160,0,0),(28068,6289,3,303,0,'72.199.41.171',1173715010,1,0,1,1,1,0,'','','Milan,\n\nTo provide a different magnification you can modify the RPREVIEW.PRG file.\n\nTo get a highlight is more difficult. One way would be to print the report to a file, create a temp dbf with a single wide field, then read the report file and post one line to each record of the browse. Finally browse the temp.dbf with a browser with the cell lines turned off.\n\nI don\'t know what your report looks like but if it is simple list, I would just create a browse instead of generating a report. Let the user just browse the data they want to see. You might be able to just set an index and scope on an existing DBF or create a temp dbf if you must.\n\nJames','',0,'AIA=','2qcr92dj',1,0,'',303,0,0),(28069,6280,6,854,0,'200.95.238.251',1173715737,1,0,1,1,1,0,'','','Gracias Antonio.','',0,'AIA=','16u8uea3',1,0,'',854,0,0),(28070,6289,3,6,0,'87.17.218.95',1173716397,1,0,1,1,1,1,'','Re: Can I change the report viewer ?','[quote=&quot;Milan Mehta&quot;:2q3k3obd][...] and with a cursor like line which show  which is the current line. He tend to mix two lines when report is horizontally long.[/quote:2q3k3obd]\n\nCan\'t you just activate lSeparator (or similar) to draw horizontal lines separating the report lines?\n\nEMG','',0,'gA==','2q3k3obd',1,0,'',6,0,0),(28071,6290,6,132,0,'83.213.45.32',1173717353,1,0,1,1,1,1,'','FWH y Windows Vista','Me llamo un cliente que quiere cambiar de XP a Windows Vista, la pregunta es:\n\n¿FWH funcion bajo Windows Vista?\nEn mi caso se trata de FWH 2.7 y xHarbour 0.99.6\n\nGracias de antemano','',0,'gA==','bcci1ddw',1,0,'',132,0,0),(28072,6288,6,180,0,'88.1.106.242',1173717839,1,0,1,1,1,0,'','Re: Como Seleccionar un CHECKBOX y a la vez se active un GET','Prueba esto:\nREDEFINE GET oGet1 var vcuenta PICTURE \"########\" ID 101 OF oDlg1 VALID LEER1( vcuenta )\nREDEFINE GET oGet2 var vnomcuenta PICTURE \"@!\" ID 102 OF oDlg1\n[color=darkred:2v26i0fz]REDEFINE GET oGet3 var vnom_pa PICTURE \"@!\" ID 104 OF oDlg1 WHEN vreq_pa = .T.\n                                             \nREDEFINE CHECKBOX oCkb1 var vreq_pa ID 103 OF oDlg1 [/color:2v26i0fz]\n\nUn saludo,\nManuel\n\n[quote=&quot;JHON JAIRO VALENCIA DIAZ&quot;:2v26i0fz]Necesitamos saber como un  CHECKBOX que al darle clic, active un GET para introducir informacion; y a la vez la información introducida nos aparezca grabada en el archivo.\n\n\n\n\nSTATIC FUNCTION Nuevo()\n#define DIALOG_3	3\nLOCAL oCbx,oCbx1,oBoton1, oBoton2 \nLOCAL videntif\n\nlocal oGet1,oGet2,oGet3\n\nlocal vcuenta:=space(8)\nlocal vnomcuenta:=space(40)\nLOCAL VNOM_PA:=space(20)\nstatic vreq_pa:=.F.\n\nstatic ccampo1\n\nLOCAL lSalir  := .F.\nLOCAL lSalvar := .F. \nuse IDENTIFI alias \"NOMB\" NEW SHARED\n\nDEFINE DIALOG oDlg1 RESOURCE DIALOG_3 of oDlg\n\nREDEFINE GET oGet1 var vcuenta PICTURE \"########\" ID 101 OF oDlg1 VALID LEER1( vcuenta )\nREDEFINE GET oGet2 var vnomcuenta PICTURE \"@!\" ID 102 OF oDlg1\n\n                                             \nREDEFINE CHECKBOX oCkb1 var vreq_pa ID 103 OF oDlg1 ON CLICK reg1( vreq_pa ) \n\n\n   REDEFINE DBCOMBO oCbx VAR videntif ID 109 OF oDlg1 ;\n          ALIAS \"NOMB\" ;\n          ITEMFIELD \"CODIGO\" ;\n          LISTFIELD \"NOMB\"\n\nREDEFINE BUTTONBMP oBoton1 ID 113 OF oDlg1 ;\n      ACTION ( lSalvar := .T. , oDlg1:End() )  \n\nREDEFINE BUTTONBMP oBoton2 ID 114 OF oDlg1 ;\n      ACTION  ( lSalir := .T. , oDlg1:End() )  \n\n\nACTIVATE DIALOG oDlg1 CENTER\n\n       IF lSalvar\n      APPEND BLANK\n           lSalvar := .F.\n           replace plan-&gt;cuenta with vcuenta,plan-&gt;nomcuenta with vnomcuenta\n           replace plan-&gt;req_pa with vreq_pa\n           replace plan-&gt;nom_pa with vnom_pa\n\n MsgWait( \"Informacion Salvada\" )\n           oTBR2 : Refresh()\n       ENDIF\n\n       IF lSalir\n        Return Nil\n       endif\n\nRETURN( NIL )\n\n\n\nSTATIC FUNCTION reg1(cCampo1)\n//VNOM_PA:=space(20)\nif cCampo1\n REDEFINE GET oGet3 var vnom_pa PICTURE \"@!\" ID 104 OF oDlg1\n  else\n VNOM_PA:=space(20)\n return(.F.) \nendif\nreturn(vnom_pa)[/quote:2v26i0fz]','',0,'gg==','2v26i0fz',1,0,'',180,0,0),(28073,6256,6,138,0,'189.141.72.59',1173717981,1,0,1,1,1,1,'','','Jairo:\n\n2 cosillas, el EXE esta construido con la version completa de funcky, por lo que si te falla algun componente es que estas tratando de invocar algun elemento de funcky que no esta en la version de evaluacion.\n\nUtiliza la clase TOleAUTO nativa de xHarbour, si estas trabajando con Harbour igual tendras que agregar la TOLE por fuera.\n\nEl componente funcky lo tienes que registrar en tu ordenador para que pueda funcionar.\n\nEsto se hace asi:\n\ncopia estos archivos a la carpeta windows\\system32\n\nFUNCky60.DLL, FUNCky60.TLB y FUNCky60.Dep\n\nLuego \"registra\" desde ms-dos el componente tecleando esto:\n\nRegSvr32 \\Windows\\System32\\FUNCky60.DLL\n\n\nY listo , deberas registrar Funcky en cada uno de los computadores donde vayas a ejecutar el programa.','',0,'gg==','2miaptll',1,0,'',138,0,0),(28074,6291,6,661,0,'189.155.18.95',1173718936,1,0,1,1,1,0,'','Socket pierde la conexion help!!','hola que tal, solicitando su ayuda nuevamente ya que tengo un problemita con la TSOCKET, bueno no es tanto un problema sino mas bien desconocimiento de mi parte, les platico que tengo un programa corriendo en mi servidor el cual me esta registrando las lecturas de un dispositivo (bascula) a travez de una conexion por socket, esto trabaja pero en ocasiones por razones que no se pueden evitar la bascula se apaga momentaneamente y se vuelve a encender y aqui es donde viene el problema ya que mi programa deja de monitorear la IP y pierdo toda la informacion despues del \"insidente\" y lo que quiero es poder detectar que ya no estoy recibiendo datos de la IP y poder reconectar el socket, cualquier ayuda es bienvenida....\n\nsaludos\nAlex.','',0,'gg==','2yuif3kh',1,0,'',661,0,0),(28075,6290,6,2,0,'87.218.146.51',1173719513,1,0,1,1,1,1,'','','Alfonso,\n\n* ¿FWH funciona bajo Windows Vista? \n\nSí, perfectamente','',0,'gg==','zd5fcv44',1,0,'',2,0,0),(28076,6292,6,203,0,'200.25.180.42',1173721358,1,0,1,1,1,1,'','DE BASE DE DATOS DE COBOL A DBF','Hola amigos del Foro\nNecesito pasar los datos de bases de datos de Cobol a Dbf\nsi alguien sabe como por favor un a ayudita\n\n\nGracias\n\n\nSaludos\nOscar','',0,'gg==','3pcvatfn',1,0,'',203,0,0),(28077,6251,3,154,0,'151.21.55.26',1173721797,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:1e8pkqvc]Is possible to save the special character into the DBF and INI files?[/quote:1e8pkqvc]\nany suggestions?','',0,'gA==','1e8pkqvc',1,0,'',154,0,0),(28078,6261,18,6,0,'87.17.218.95',1173721984,1,0,1,1,1,1,'','','Unfortunately there is still a bug:\n\n[code:6pw9lvzg]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBrw\n\n    DBCREATE&#40; &quot;BUGTEST&quot;, &#123; &#123; &quot;TEST1&quot;, &quot;C&quot;, 10, 0 &#125;,;\n                           &#123; &quot;TEST2&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE BUGTEST\n\n    APPEND BLANK\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oWnd&#58;oClient = oBrw\n\n    ACTIVATE WINDOW oWnd;\n             MAXIMIZED\n\n    CLOSE\n\n    RETURN NIL[/code:6pw9lvzg]\n\nNo cell is selected.\n\nEMG','',0,'AIA=','6pw9lvzg',1,0,'',6,0,0),(28079,6251,3,6,0,'87.17.218.95',1173722356,1,0,1,1,1,1,'','','Do you have any problems saving special characters to DBF or INI files? If yes, can I see a little sample?\n\nEMG','',0,'AIA=','1cwkma7u',1,0,'',6,0,0),(28080,6260,4,266,0,'60.48.99.118',1173722385,1,0,1,1,1,1,'','','The reason is because a customer prefers to buy Nokia 6600 or similar as it is cheaper for bulk purchase(100-200units) as compares to smartphone.\n\nSince FWPPC is compiled by Harbour to C, I wonder if it can be compiled to Symbian C++.\n\nIs there any simple tool to develop application on Symbian OS ?','',0,'AIA=','3v3w7w91',1,0,'',266,0,0),(28081,6260,4,2,0,'87.218.146.51',1173722657,1,0,1,1,1,1,'','','Hoe,\n\n* Since FWPPC is compiled by Harbour to C, I wonder if it can be compiled to Symbian C++.\n\nFWPPC requires Windows Mobile operating system','',0,'AIA=','mbdu7a31',1,0,'',2,0,0),(28082,6293,6,23,0,'213.96.85.49',1173723230,1,0,1,1,1,1,'','Ventana de Consola','Estoy haciendo algunas pruebas con xHarbour y fwh y al ejecutar cualquier ejemplo me sale primero una ventana modo consola (MS-DOS) y luego encima la aplicación,.\n¿Como puedo solucionar esto?\nCuando cierro la aplicación, se cierra también dicha ventana.\n¿como puedo solucionar esto?','',0,'AIA=','1tp4u8q1',1,0,'',23,0,0),(28083,6278,1,51,0,'80.122.88.242',1173723328,1,0,1,1,1,0,'','','Preview makes a temp-file to windows-temp folder.  If you get an error during printing the temp-file is still there and locked. And the new file can\'t be created because FW uses always the same name. I changed printer class for me.\nOtto\n\nMETHOD _StartPage() CLASS TPrinter\n\n   LOCAL lSetFixed\n   LOCAL aDirTMP := {}\n\n   If ::hDC = 0\n      Return NIL\n   endif\n\n   lSetFixed := Set(_SET_FIXED,.F.)\n\n   if !::lMeta .AND. !::lStarted\n      ::lStarted := .T.\n      StartDoc( ::hDC, ::cDocument )\n   endif\n\n   ::nPage++\n\n\n\n   if ::lMeta\n      aDirTMP := directory(::cDir+\"\\*.wmf\", \"D\")\n      AAdd(::aMeta,::cDir+\"\\T\"+ALLTRIM(STR(len(aDirTMP)+1))+Padl(::nPage,4,\"0\")+\".wmf\")\n      ::hDCOut := CreateMetaFile(Atail(::aMeta))\n   else\n      StartPage(::hDC)\n   endif\n\n   Set(_SET_FIXED,lSetFixed )\n\nReturn NIL','',0,'AIA=','1woy0i12',1,0,'',51,0,0),(28084,6289,3,51,0,'80.122.88.242',1173723503,1,0,1,1,1,0,'','','For a hair cross you should try:\nrpreview.prg \noMeta1:bMMoved:={|y,x,flags| oMeta1:line (y,0,y,500)  }\nBut there is some extra work to save/restore the screen.\nOtto\n\nrpreview.prg \noMeta1:bMMoved:={|y,x,flags| oMeta1:line (y,0,y,500)  }\n\n\n oMeta1 := TMetaFile():New( 0, 0, 0, 0,;\n                              aFiles[1],;\n                              oWnd,;\n                              CLR_BLACK,;\n                              CLR_WHITE,;\n                              oDevice:nHorzRes(),;\n                              oDevice:nVertRes() )\n\n     oMeta1:oCursor := oCursor','',0,'','2duqgbi6',1,0,'',51,0,0),(28085,6293,6,2,0,'87.218.146.51',1173723697,1,0,1,1,1,1,'','','Angel,\n\nTienes que enlazar GTGUI.lib en vez de GTWIN.lib','',0,'','1gu1hfpd',1,0,'',2,0,0),(28086,6259,3,95,0,'189.155.116.191',1173724256,1,0,1,1,1,0,'','','Antonio\n\n1.- Como no encuentro la libgtcrs.a, me imagino que debo de bajarla y desdeluego crearla. estoy en lo correcto ?\n\n2.- Dicha lib para manejar la consola, es mejor que otras o hay alguna mejor ?\n\nSaludos\nOsvaldo Ramirez','',0,'','1s745xwa',1,0,'',95,0,0),(28087,6294,3,6,0,'87.17.218.95',1173726226,1,0,1,1,1,1,'','TWBrowse lCellStyle bug','This is the sample:\n\n[code:1zlbknwb]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBrw\n\n    DBCREATE&#40; &quot;BUGTEST&quot;, &#123; &#123; &quot;TEST1&quot;, &quot;C&quot;, 10, 0 &#125;,;\n                           &#123; &quot;TEST2&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE BUGTEST\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oWnd&#58;oClient = oBrw\n\n    ACTIVATE WINDOW oWnd;\n             MAXIMIZED\n\n    CLOSE\n\n    RETURN NIL[/code:1zlbknwb]\n\nTry to move one cell right and you will see that a \"phantom record\" is displayed on the browse.\n\nEMG','',0,'AIA=','1zlbknwb',1,0,'',6,0,0),(28088,6278,1,418,0,'88.122.230.46',1173727190,1,0,1,1,1,0,'','','Thanks  \nit is very usefull\nPatrick','',0,'AIA=','1k4g01c3',1,0,'',418,0,0),(28089,6295,6,75,0,'83.45.24.11',1173729709,1,0,1,1,1,0,'','Impresora de Tikets','Esto pasando un programa de clipper a xHarbour + fw y me toca ahora la parte de la impresora.\n\nEn el programa de clipper imprimía todo con ?, porque al ser una impresora de tikets no hay tamaño de página. Y los cambios de tipo de letra y apertura del cajón de monedas los hacía con secuencias de escape.\n\n¿Qué debo hacer ahora para imprimir?\n\nLa impresora es una Epson TM-60.','',0,'AIA=','16l7jka3',1,0,'',75,0,0),(28090,6294,3,2,0,'87.218.146.51',1173731589,1,0,1,1,1,1,'','','Enrico,\n\nIn both Methods GoLeft() and GoRight() this code has to be included at the beginning:\n[code:2w98m7az]\n   if &#40; &#58;&#58;nLen &#58;= Eval&#40; &#58;&#58;bLogicLen, Self &#41; &#41; &lt; 1\n      return nil\n   endif\n[/code:2w98m7az]','',0,'AIA=','2w98m7az',1,0,'',2,0,0),(28091,6259,3,2,0,'87.218.146.51',1173731805,1,0,1,1,1,1,'','','Osvaldo,\n\nTienes que volver a descargar la instalación de Harbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/c70c22/\">http://www.filefactory.com/file/c70c22/</a><!-- m -->\n\nAhí va incluida la librería libgtcrs.a que por lo visto es la más adecuada para el modo consola en OSX','',0,'AIA=','p36p17ae',1,0,'',2,0,0),(28092,6278,1,2,0,'87.218.146.51',1173731986,1,0,1,1,1,1,'','','Otto,\n\nYou can use:\n\nAAdd( ::aMeta, ::cDir + cTempFile( \"\\\", \"wmf\" ) )','',0,'AIA=','2qiv8x95',1,0,'',2,0,0),(28093,6296,6,959,0,'189.13.40.129',1173732323,1,0,1,1,1,0,'','Position Mouse','Olá a todos,  como posso capturar posição atual do mouse em FWH/xHb.\n\nObrigado','',0,'AIA=','ntrfcfou',1,0,'',959,0,0),(28094,6297,6,694,0,'200.189.112.21',1173733480,1,0,1,1,1,1,'','FWH 7.01 com xHarbour Comercial','Antonio, o FWH7.01, vai funcionar normalmente com o xharbour comercial?\n\nAokisantos','',0,'AIA=','323phtu0',1,0,'',694,0,0),(28095,6261,18,2,0,'87.218.146.51',1173733493,1,0,1,1,1,1,'','','Enrico,\n\nIt is a side effect of the latest change. This seems to fix it:\n[code:2b5eh214]\nMETHOD ReSize&#40; nSizeType, nWidth, nHeight &#41; CLASS TWBrowse\n\n   local nTotalSize &#58;= 0\n\n   &#58;&#58;nRowPos = Min&#40; &#58;&#58;nRowPos, Max&#40; &#58;&#58;nRowCount&#40;&#41;, 1 &#41; &#41;\n   &#58;&#58;nColAct = Min&#40; &#58;&#58;nColAct, AScan&#40; &#58;&#58;GetColSizes&#40;&#41;,;\n                                      &#123; | nSize | nTotalSize += nSize,;\n                                      nWidth &lt; nTotalSize &#125;, &#58;&#58;nColPos &#41; &#41;\n   &#58;&#58;nColAct = Max&#40; &#58;&#58;nColAct, 1 &#41;\n                                      \n   if &#58;&#58;oHScroll != nil\n      &#58;&#58;oHScroll&#58;SetPos&#40; &#58;&#58;nColAct &#41;\n   endif\n\nreturn Super&#58;ReSize&#40; nSizeType, nWidth, nHeight &#41;\n[/code:2b5eh214]','',0,'AIA=','2b5eh214',1,0,'',2,0,0),(28096,6297,6,2,0,'87.218.146.51',1173734899,1,0,1,1,1,1,'','','Si, ok','',0,'AIA=','2ueexfqo',1,0,'',2,0,0),(28097,6295,6,109,0,'200.56.185.25',1173735776,1,0,1,1,1,0,'','','Espero que esto te ayude\n\n       oRep:=TdosPrg():New(cCmd)\n             \n              //Especiales\n              oRep:Say(00,00,CHR(27)+\"@\")                  // INDICA QUE SE INICIA CONFIGURACION\n              oRep:Say(00,00,CHR(27)+\"t\"+CHR(0))\n              oRep:Say(00,00,CHR(27)+\"c0\"+CHR(2))          // ACTIVA RECEIVE  COMO HOJA(TICKET)\n              oRep:Say(00,00,CHR(27)+\"z\"+CHR(0))\n              //----------------\n              If !(oDbfTick)-&gt;Ignora1\n                n++\n                cCmd:=&amp;(oDbfTick)-&gt;cTit1\n                oRep:Say(n,00,&amp;cCmd)\n              EndIf\n              If !(oDbfTick)-&gt;Ignora2\n                n++\n                cCmd:=&amp;(oDbfTick)-&gt;cTit2\n                oRep:Say(n,00,&amp;cCmd)\n              EndIf\n              If !(oDbfTick)-&gt;Ignora3\n                n++\n                cCmd:=&amp;(oDbfTick)-&gt;cTit3\n                oRep:Say(n,00,&amp;cCmd)\n              EndIf\n              If !(oDbfTick)-&gt;Ignora4\n                n++\n                cCmd:=&amp;(oDbfTick)-&gt;cTit4\n                oRep:Say(n,00,&amp;cCmd)\n              EndIf\n              n+=2\n              oRep:Say(n,00,\"TRANSACCION ANULADA POR EL OPERADOR\")\n              n:=0\n              n++\n              cCmd:=Fechas(Date())+\"  \"+Time()+\"    \"+Str(nTienda)+\"    \"\n              oRep:Say(n,00,cCmd)\n              n++\n              oRep:Say(00,00,Chr(27) + \"d\") //+ Chr(13))   // estas lineas\n              oRep:Say(00,00,Chr(27) + \"i\") //+ Chr(13))   // cortan el papel','',0,'AIA=','2mj2mlw1',1,0,'',109,0,0),(28098,6261,18,6,0,'87.17.218.95',1173736211,1,0,1,1,1,1,'','','Thank you.\n\nEMG','',0,'AIA=','3f48byvz',1,0,'',6,0,0),(28099,6292,6,109,0,'200.56.185.25',1173736541,1,0,1,1,1,0,'','','Si los Archivos de Cobol son 2.\n\n    Por ejemplo:\n    Clientes.Dat y Clientes.Idx (o algo asi)\nPuedes abrir el archivo .DAT con cualquier editor de textos, estos archivos son \"PLANOS\".\n    Si no es asi, necesitariamos saber con que Cobol fueron creados, (Acucobol,RmCobol,Microsofot,MicroFocus, etc) y hacer un programita para sacar la informacion. Previamente necesitamos conocer la estructura del archivo.','',0,'AIA=','26dlw021',1,0,'',109,0,0),(28100,6294,3,6,0,'87.17.218.95',1173736620,1,0,1,1,1,1,'','','I think that this is better because it allows to scroll horizontally even if there are no records:\n\n[code:2bqr7cud]         if &#58;&#58;nLen &gt; 0\n            &#58;&#58;DrawSelect&#40;&#41;\n         endif[/code:2bqr7cud]\n\nEMG','',0,'AIA=','2bqr7cud',1,0,'',6,0,0),(28101,6296,6,2,0,'87.218.146.51',1173741780,1,0,1,1,1,1,'','','GetCursorPos() devuelve { nRow, nCol }','',0,'AIA=','3augrcj4',1,0,'',2,0,0),(28102,6298,2,890,0,'200.24.110.196',1173742956,1,0,1,1,1,0,'','Cuestion de rango','Hola a todos en la red\nAntonio\nDos preguntas\n1) En Access un rango se define con &#8220; Entre&#8221;  &#8220;Y&#8221; por ejemplo de fecha Entre xx/xx/xx Y xx/xx/xx como lo puedo lograr con FW?\n\n2) Existe una presentación de un dialogo con apariencia de tabla? O se debe recurrir a un arreglo de código \n\nGracias\n\nCordialmente\nJairo Barbosa','',0,'AIA=','1utb4fvn',1,0,'',890,0,0),(28103,6296,6,959,0,'189.13.40.129',1173743072,1,0,1,1,1,0,'','','Gracias Antonio.','',0,'AIA=','3ssbi8ei',1,0,'',959,0,0),(28104,6298,2,138,0,'189.141.72.59',1173743431,1,0,1,1,1,1,'','','Si solo quieres ver el DBF con datos:\n\nUSE archivo\nBrowse()\n\nSi lo quieres filtrado, entonces haces un indice por fecha\n\nrequest DBFCDX\nRddSetDefault(\"DBFCDX\")\n\nUSE archivo\nINDEX ON DTOS(campofecha) TAG fecha\nDBCLOSEAREA()\n\nY  para mostrarlo filtrado:\n\nUSE archivo\nOrdSetFocus(\"fecha\")\nOrdScope(0,DTOS(CTOD(\"01/01/2006\"))\nOrdScope(1,DTOS(CTOD(\"31/12/2006\"))\nDBGOTOP()\nBrowse()','',0,'AIA=','35yw9glz',1,0,'',138,0,0),(28105,6292,6,203,0,'200.107.2.33',1173743599,1,0,1,1,1,1,'','','Gracias por la respuesta\nVoy a revisar todos estos detalles\n\nSaludos Oscar','',0,'AIA=','26wvjjq0',1,0,'',203,0,0),(28106,6297,6,694,0,'200.189.112.21',1173747615,1,0,1,1,1,1,'','COMERCIAL','Antonio, estou observando que as libs do buildx.bat não conferem com as libs do xharbour 99.60 comercial, as libs não existem !\n\nPara compilar com fwh.71 + xharbour comercial 99.60 o que devo fazer?\nTenho que recriar as libs do fwh? se sim! como devo proceder para isso?\n\nAokisantos','',0,'AIA=','2mln48pd',1,0,'',694,0,0),(28107,5917,3,980,0,'202.146.100.64',1173751503,1,0,1,1,1,0,'','','Dear all,\n\nI am using FiveWin for xHarbour to development the application and facing unicode problem, some Chinese character like the attached image is unable to type in the text box, it will show in \'?\' after typing.\n\n<!-- m --><a class=\"postlink\" href=\"http://202.146.109.43/testing/unicode.jpg\">http://202.146.109.43/testing/unicode.jpg</a><!-- m -->\n\nI want to know if the ActiveX suite pro can solve this problem?\n\n\nRegards,\nThomas','',0,'AIA=','2pwga8ss',1,0,'',980,0,0),(28108,5030,3,980,0,'202.146.100.64',1173752531,1,0,1,1,1,0,'','','[quote=&quot;ShumingWang&quot;:1zqgu7mk]Antonio,\n    Could fwh directly display /say  and input/get  unicode/UTF-8 in a dialog ?  diffrent  languages items in one dialog , if convert items into ansi,  may display discorder codes .\n\nBest regard!\n\nShuming Wang[/quote:1zqgu7mk]\n\nHi Mr Wang,\n\nI am using FiveWin for xHarbour to development the application and also facing unicode problem, some Chinese character like the attached image is unable to type in the text box, it will show in \'?\' after typing. \n\n<!-- m --><a class=\"postlink\" href=\"http://202.146.109.43/testing/unicode.jpg\">http://202.146.109.43/testing/unicode.jpg</a><!-- m --> \n\nDo you facing the similar problem and have yopu solved the problem now?  Would you give me some advice about this?\n\nRegards, \nThomas','',0,'gA==','1zqgu7mk',1,0,'',980,0,0),(28109,5917,3,15,0,'203.70.52.83',1173766457,1,0,1,1,1,0,'','','[quote=&quot;wktsang1&quot;:17r2u6vx]Dear all,\n\nI am using FiveWin for xHarbour to development the application and facing unicode problem, some Chinese character like the attached image is unable to type in the text box, it will show in \'?\' after typing.\n\n<!-- m --><a class=\"postlink\" href=\"http://202.146.109.43/testing/unicode.jpg\">http://202.146.109.43/testing/unicode.jpg</a><!-- m -->\n\nI want to know if the ActiveX suite pro can solve this problem?\n\n\nRegards,\nThomas[/quote:17r2u6vx]\n\nHello Thomas,\n\nCould you use Themes into your EXE file?\nI know FWH\'s TGet not support 2 bytes(Chinese) input Chinese when your\napplication add Themes interface.\nI know you can download unicode solution from web site. It support some \nAP not support unicode font when you input unicode character.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gA==','17r2u6vx',1,0,'',15,0,0),(28110,5030,3,15,0,'203.70.52.83',1173766565,1,0,1,1,1,0,'','','[quote=&quot;wktsang1&quot;:39mlljea][quote=&quot;ShumingWang&quot;:39mlljea]Antonio,\n    Could fwh directly display /say  and input/get  unicode/UTF-8 in a dialog ?  diffrent  languages items in one dialog , if convert items into ansi,  may display discorder codes .\n\nBest regard!\n\nShuming Wang[/quote:39mlljea]\n\nHi Mr Wang,\n\nI am using FiveWin for xHarbour to development the application and also facing unicode problem, some Chinese character like the attached image is unable to type in the text box, it will show in \'?\' after typing. \n\n<!-- m --><a class=\"postlink\" href=\"http://202.146.109.43/testing/unicode.jpg\">http://202.146.109.43/testing/unicode.jpg</a><!-- m --> \n\nDo you facing the similar problem and have yopu solved the problem now?  Would you give me some advice about this?\n\nRegards, \nThomas[/quote:39mlljea]\n\nHello Thomas, \n\nCould you use Themes into your EXE file? \nI know FWH\'s TGet not support 2 bytes(Chinese) input Chinese when your \napplication add Themes interface. \nI know you can download unicode solution from web site. It support some \nAP not support unicode font when you input unicode character. \n\nRegards, \n\nRichard \nFivetech.net Taiwan','',0,'gA==','39mlljea',1,0,'',15,0,0),(28111,6256,6,838,0,'80.34.222.112',1173772035,1,0,1,1,1,0,'','','Hola René\nUna preguntita sobre el error \"Error description: Error TOleAuto/-1 Unknown error: TOLEAUTO:NEW \"\nYo compilo con xharbour y a mi me sale éste error en algunas aplicaciones, no te entiendo qué quieres decir con utilizar la clase TOleAuto nativa de xHarbour; yo entiendo que al compilar con xHarbour, éste utiliza sus propias clases.\n\nMe puedes aclarar ésto a ver si soy capaz de continuar con éste tema ?\n\nSaludos\n\nJose Luis','',0,'gA==','1utk41zw',1,0,'',838,0,0),(28112,6289,3,51,0,'80.122.88.242',1173779605,1,0,1,1,1,0,'','','Hello,\n\nHairCross Cursor is working:\n\nInsert \n \noMeta1:bMMoved:={|y,x,flags|hairCross(oMeta1,y,x) }\n\nin FUNCTION RPreview( oDevice ) in rpreview.prg.\n\nfunc hairCross(oMeta1,y,x)\n    nCount:=nCount+1\n    IF nCount &gt; 5\n        nCount:=0\n        oMeta1:refresh()\n        sysrefresh()\n        oMeta1:line (0,x,1800,x)\n        oMeta1:line (y,0,y,1500)\n    ENDIF\nreturn nil\n\n\n\n\nBut could someone please tell me how to save and restore a part of the canvas / screen.\n\n\noMeta1:bMMoved:={|y,x,flags| hairCross(y,x, oMeta1)}\n\n\nDim ScreenSave\n\nfunc hairCross(x,y, oMeta1)\n\nrestore = ScreenSave\n\nScreenSave = save part of the screen where you draw the new line\n\noMeta1:line (y,0,y,500)\n\nreturn nil\n\nOtto','',0,'gA==','2vs7ca9x',1,0,'',51,0,0),(28113,6293,6,23,0,'213.96.85.49',1173782404,1,0,1,1,1,1,'','','Funcionó perfecto, gracias.','',0,'gA==','15gf99rt',1,0,'',23,0,0),(28114,6299,2,985,0,'217.11.101.59',1173783245,1,0,1,1,1,0,'','Memoria convencional agotada','Pedonar tengo un problema al ejecutar una aplicacion pequeña que solo usa 7 bases de datos al abrir el area 6 me devuelve el error Memoria convencional agotada.\nEspero que me podais ayudar muchas gracias','',0,'gA==','h6ueigh5',1,0,'',985,0,0),(28115,6300,3,2,0,'87.218.146.51',1173783684,1,0,1,1,1,1,'','FiveMac pre-release already available!','FiveMac pre-release is already available to develop Mac OSX applications using the elegant OSX Aqua interface. If you know FiveWin then you know how to develop with FiveMac. Order it and get free upgrades up to version 1.0\n\nIntroductory price: 50% disccount on final 1.0 price.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/fivemac.html\">http://www.fivetechsoft.com/english/fivemac.html</a><!-- m -->\n[url=http&#58;//imageshack&#46;us:10a3l6hx][img:10a3l6hx]http&#58;//img86&#46;imageshack&#46;us/img86/8082/picture1gv3&#46;png[/img:10a3l6hx][/url:10a3l6hx]','',0,'GA==','10a3l6hx',1,0,'',2,0,0),(28116,6301,6,2,0,'87.218.146.51',1173784169,1,0,1,1,1,1,'','FiveMac pre-release ya está disponible!','FiveMac pre-release ya está disponible para desarrollar aplicaciones para Mac OSX usando la elegante interfaz de OSX Aqua. Si sabes FiveWin entonces ya sabes FiveMac. Adquiérelo ya y consigue actualizaciones gratuitas hasta la versión 1.0\n\nPrecio de lanzamiento: 50% descuento sobre el precio final de la versión 1.0.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fivemac.html\">http://www.fivetechsoft.com/spanish/fivemac.html</a><!-- m -->\n[url=http&#58;//imageshack&#46;us:3ol4rjrw][img:3ol4rjrw]http&#58;//img86&#46;imageshack&#46;us/img86/8082/picture1gv3&#46;png[/img:3ol4rjrw][/url:3ol4rjrw]','',0,'GA==','3ol4rjrw',1,0,'',2,0,0),(28117,6299,2,2,0,'87.218.146.51',1173784270,1,0,1,1,1,1,'','','Que versión de FiveWin y de Clipper usas ?','',0,'GA==','13m3qdhe',1,0,'',2,0,0),(28118,6299,2,985,0,'217.11.101.59',1173784374,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:21o8wb2s]Que versión de FiveWin y de Clipper usas ?[/quote:21o8wb2s]\nGracias por contestar Antonio.\n\n\nUtilizo Fw 2.0 Blinker 7.0 Clipper 5.2\n\nGracias','',0,'gA==','21o8wb2s',1,0,'',985,0,0),(28119,5854,3,46,0,'217.168.114.248',1173784710,1,0,1,1,1,0,'','','[code:lk0pddq4]\nMETHOD ReDefine&#40; nId, oWnd, nClrFore, nClrBack, lDesign, cMsg &#41; CLASS TTreeView\n\n&#46;&#46;&#46;&#46;&#46;&#46;\n   //ROS\n   &#58;&#58;nClrText &#58;= nClrFore\n   &#58;&#58;nClrPane &#58;= nClrBack\n   //\n   &#58;&#58;Register&#40; &#46;&#46;&#46;&#46;&#46;\n\n&#46;&#46;&#46;&#46;&#46;&#46;\n[/code:lk0pddq4]\n\nsalu2 <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','lk0pddq4',1,0,'',46,0,0),(28120,6299,2,2,0,'87.218.146.51',1173786028,1,0,1,1,1,1,'','','Prueba a construir tu aplicación con Clipper 5.3','',0,'AIA=','3e5oq7qf',1,0,'',2,0,0),(28121,6302,6,105,0,'200.72.140.34',1173788884,1,0,1,1,1,1,'','Tamaño de Bitmaps en Clase Outllok','Hola a todos...\n\nQuien ha logrado poner un Bitmap de mas de 32x32 en la clase  tOutlook.\n\nA mi los de 48x48 me salen cortados, como lo han hecho?\n\nY otra... como se puede poner un bitmap transparente sobre el brush de una Window .. ?\n\nEso nada mas..\n y gracias por sus respuestas...\n\nDesde Chile\n\nAdolfo Lagos','',0,'AIA=','2bv97dgl',1,0,'',105,0,0),(28122,6289,3,217,0,'200.159.120.34',1173791800,1,0,1,1,1,0,'','Re: Can I change the report viewer ?','Milan,\n\nAn interesting feature we found in Crystal Report were you can navigate in the report page like a browse.\nMany months ago I tryed to adapt it to RPreview but without success <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nIf anybody know how...\nBut I think Otto\'s idea very good.\n\nRegards\nMaurilio','',0,'AIA=','3bdmo9ui',1,0,'',217,0,0),(28123,6303,4,267,0,'200.208.238.2',1173793341,1,0,1,1,1,1,'','Using archives ZIP','Hi,\n\nJose Luis Capel liberated in [url:1wsqztgt]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5603[/url:1wsqztgt] a function to compact archives. But the archive ZIP is not compatible with those generated in the Windows.\n\nLooking for in the documentation of the ZLIB I found the function below to decide the problem, but I do not obtain to use with the Fwppc!\n\n[code:1wsqztgt]/* blast&#46;c\n * Copyright &#40;C&#41; 2003 Mark Adler\n * For conditions of distribution and use, see copyright notice in blast&#46;h\n * version 1&#46;1, 16 Feb 2003\n *\n * blast&#46;c decompresses data compressed by the PKWare Compression Library&#46;\n * This function provides functionality similar to the explode&#40;&#41; function of\n * the PKWare library, hence the name &quot;blast&quot;&#46;\n *\n * This decompressor is based on the excellent format description provided by\n * Ben Rudiak-Gould in comp&#46;compression on August 13, 2001&#46;  Interestingly, the\n * example Ben provided in the post is incorrect&#46;  The distance 110001 should\n * instead be 111000&#46;  When corrected, the example byte stream becomes&#58;\n *\n *    00 04 82 24 25 8f 80 7f\n *\n * which decompresses to &quot;AIAIAIAIAIAIA&quot; &#40;without the quotes&#41;&#46;\n */\n\n/*\n * Change history&#58;\n *\n * 1&#46;0  12 Feb 2003     - First version\n * 1&#46;1  16 Feb 2003     - Fixed distance check for &gt; 4 GB uncompressed data\n */\n\n#include &lt;setjmp&#46;h&gt;             /* for setjmp&#40;&#41;, longjmp&#40;&#41;, and jmp_buf */\n#include &quot;blast&#46;h&quot;              /* prototype for blast&#40;&#41; */\n\n#define local static            /* for local function definitions */\n#define MAXBITS 13              /* maximum code length */\n#define MAXWIN 4096             /* maximum window size */\n\n/* input and output state */\nstruct state &#123;\n    /* input state */\n    blast_in infun;             /* input function provided by user */\n    void *inhow;                /* opaque information passed to infun&#40;&#41; */\n    unsigned char *in;          /* next input location */\n    unsigned left;              /* available input at in */\n    int bitbuf;                 /* bit buffer */\n    int bitcnt;                 /* number of bits in bit buffer */\n\n    /* input limit error return state for bits&#40;&#41; and decode&#40;&#41; */\n    jmp_buf env;\n\n    /* output state */\n    blast_out outfun;           /* output function provided by user */\n    void *outhow;               /* opaque information passed to outfun&#40;&#41; */\n    unsigned next;              /* index of next write location in out&#91;&#93; */\n    int first;                  /* true to check distances &#40;for first 4K&#41; */\n    unsigned char out&#91;MAXWIN&#93;;  /* output buffer and sliding window */\n&#125;;\n\n/*\n * Return need bits from the input stream&#46;  This always leaves less than\n * eight bits in the buffer&#46;  bits&#40;&#41; works properly for need == 0&#46;\n *\n * Format notes&#58;\n *\n * - Bits are stored in bytes from the least significant bit to the most\n *   significant bit&#46;  Therefore bits are dropped from the bottom of the bit\n *   buffer, using shift right, and new bytes are appended to the top of the\n *   bit buffer, using shift left&#46;\n */\nlocal int bits&#40;struct state *s, int need&#41;\n&#123;\n    int val;            /* bit accumulator */\n\n    /* load at least need bits into val */\n    val = s-&gt;bitbuf;\n    while &#40;s-&gt;bitcnt &lt; need&#41; &#123;\n        if &#40;s-&gt;left == 0&#41; &#123;\n            s-&gt;left = s-&gt;infun&#40;s-&gt;inhow, &amp;&#40;s-&gt;in&#41;&#41;;\n            if &#40;s-&gt;left == 0&#41; longjmp&#40;s-&gt;env, 1&#41;;       /* out of input */\n        &#125;\n        val |= &#40;int&#41;&#40;*&#40;s-&gt;in&#41;++&#41; &lt;&lt; s-&gt;bitcnt;          /* load eight bits */\n        s-&gt;left--;\n        s-&gt;bitcnt += 8;\n    &#125;\n\n    /* drop need bits and update buffer, always zero to seven bits left */\n    s-&gt;bitbuf = val &gt;&gt; need;\n    s-&gt;bitcnt -= need;\n\n    /* return need bits, zeroing the bits above that */\n    return val &amp; &#40;&#40;1 &lt;&lt; need&#41; - 1&#41;;\n&#125;\n\n/*\n * Huffman code decoding tables&#46;  count&#91;1&#46;&#46;MAXBITS&#93; is the number of symbols of\n * each length, which for a canonical code are stepped through in order&#46;\n * symbol&#91;&#93; are the symbol values in canonical order, where the number of\n * entries is the sum of the counts in count&#91;&#93;&#46;  The decoding process can be\n * seen in the function decode&#40;&#41; below&#46;\n */\nstruct huffman &#123;\n    short *count;       /* number of symbols of each length */\n    short *symbol;      /* canonically ordered symbols */\n&#125;;\n\n/*\n * Decode a code from the stream s using huffman table h&#46;  Return the symbol or\n * a negative value if there is an error&#46;  If all of the lengths are zero, i&#46;e&#46;\n * an empty code, or if the code is incomplete and an invalid code is received,\n * then -9 is returned after reading MAXBITS bits&#46;\n *\n * Format notes&#58;\n *\n * - The codes as stored in the compressed data are bit-reversed relative to\n *   a simple integer ordering of codes of the same lengths&#46;  Hence below the\n *   bits are pulled from the compressed data one at a time and used to\n *   build the code value reversed from what is in the stream in order to\n *   permit simple integer comparisons for decoding&#46;\n *\n * - The first code for the shortest length is all ones&#46;  Subsequent codes of\n *   the same length are simply integer decrements of the previous code&#46;  When\n *   moving up a length, a one bit is appended to the code&#46;  For a complete\n *   code, the last code of the longest length will be all zeros&#46;  To support\n *   this ordering, the bits pulled during decoding are inverted to apply the\n *   more &quot;natural&quot; ordering starting with all zeros and incrementing&#46;\n */\nlocal int decode&#40;struct state *s, struct huffman *h&#41;\n&#123;\n    int len;            /* current number of bits in code */\n    int code;           /* len bits being decoded */\n    int first;          /* first code of length len */\n    int count;          /* number of codes of length len */\n    int index;          /* index of first code of length len in symbol table */\n    int bitbuf;         /* bits from stream */\n    int left;           /* bits left in next or left to process */\n    short *next;        /* next number of codes */\n\n    bitbuf = s-&gt;bitbuf;\n    left = s-&gt;bitcnt;\n    code = first = index = 0;\n    len = 1;\n    next = h-&gt;count + 1;\n    while &#40;1&#41; &#123;\n        while &#40;left--&#41; &#123;\n            code |= &#40;bitbuf &amp; 1&#41; ^ 1;   /* invert code */\n            bitbuf &gt;&gt;= 1;\n            count = *next++;\n            if &#40;code &lt; first + count&#41; &#123; /* if length len, return symbol */\n                s-&gt;bitbuf = bitbuf;\n                s-&gt;bitcnt = &#40;s-&gt;bitcnt - len&#41; &amp; 7;\n                return h-&gt;symbol&#91;index + &#40;code - first&#41;&#93;;\n            &#125;\n            index += count;             /* else update for next length */\n            first += count;\n            first &lt;&lt;= 1;\n            code &lt;&lt;= 1;\n            len++;\n        &#125;\n        left = &#40;MAXBITS+1&#41; - len;\n        if &#40;left == 0&#41; break;\n        if &#40;s-&gt;left == 0&#41; &#123;\n            s-&gt;left = s-&gt;infun&#40;s-&gt;inhow, &amp;&#40;s-&gt;in&#41;&#41;;\n            if &#40;s-&gt;left == 0&#41; longjmp&#40;s-&gt;env, 1&#41;;       /* out of input */\n        &#125;\n        bitbuf = *&#40;s-&gt;in&#41;++;\n        s-&gt;left--;\n        if &#40;left &gt; 8&#41; left = 8;\n    &#125;\n    return -9;                          /* ran out of codes */\n&#125;\n\n/*\n * Given a list of repeated code lengths rep&#91;0&#46;&#46;n-1&#93;, where each byte is a\n * count &#40;high four bits + 1&#41; and a code length &#40;low four bits&#41;, generate the\n * list of code lengths&#46;  This compaction reduces the size of the object code&#46;\n * Then given the list of code lengths length&#91;0&#46;&#46;n-1&#93; representing a canonical\n * Huffman code for n symbols, construct the tables required to decode those\n * codes&#46;  Those tables are the number of codes of each length, and the symbols\n * sorted by length, retaining their original order within each length&#46;  The\n * return value is zero for a complete code set, negative for an over-\n * subscribed code set, and positive for an incomplete code set&#46;  The tables\n * can be used if the return value is zero or positive, but they cannot be used\n * if the return value is negative&#46;  If the return value is zero, it is not\n * possible for decode&#40;&#41; using that table to return an error--any stream of\n * enough bits will resolve to a symbol&#46;  If the return value is positive, then\n * it is possible for decode&#40;&#41; using that table to return an error for received\n * codes past the end of the incomplete lengths&#46;\n */\nlocal int construct&#40;struct huffman *h, const unsigned char *rep, int n&#41;\n&#123;\n    int symbol;         /* current symbol when stepping through length&#91;&#93; */\n    int len;            /* current length when stepping through h-&gt;count&#91;&#93; */\n    int left;           /* number of possible codes left of current length */\n    short offs&#91;MAXBITS+1&#93;;      /* offsets in symbol table for each length */\n    short length&#91;256&#93;;  /* code lengths */\n\n    /* convert compact repeat counts into symbol bit length list */\n    symbol = 0;\n    do &#123;\n        len = *rep++;\n        left = &#40;len &gt;&gt; 4&#41; + 1;\n        len &amp;= 15;\n        do &#123;\n            length&#91;symbol++&#93; = len;\n        &#125; while &#40;--left&#41;;\n    &#125; while &#40;--n&#41;;\n    n = symbol;\n\n    /* count number of codes of each length */\n    for &#40;len = 0; len &lt;= MAXBITS; len++&#41;\n        h-&gt;count&#91;len&#93; = 0;\n    for &#40;symbol = 0; symbol &lt; n; symbol++&#41;\n        &#40;h-&gt;count&#91;length&#91;symbol&#93;&#93;&#41;++;   /* assumes lengths are within bounds */\n    if &#40;h-&gt;count&#91;0&#93; == n&#41;               /* no codes! */\n        return 0;                       /* complete, but decode&#40;&#41; will fail */\n\n    /* check for an over-subscribed or incomplete set of lengths */\n    left = 1;                           /* one possible code of zero length */\n    for &#40;len = 1; len &lt;= MAXBITS; len++&#41; &#123;\n        left &lt;&lt;= 1;                     /* one more bit, double codes left */\n        left -= h-&gt;count&#91;len&#93;;          /* deduct count from possible codes */\n        if &#40;left &lt; 0&#41; return left;      /* over-subscribed--return negative */\n    &#125;                                   /* left &gt; 0 means incomplete */\n\n    /* generate offsets into symbol table for each length for sorting */\n    offs&#91;1&#93; = 0;\n    for &#40;len = 1; len &lt; MAXBITS; len++&#41;\n        offs&#91;len + 1&#93; = offs&#91;len&#93; + h-&gt;count&#91;len&#93;;\n\n    /*\n     * put symbols in table sorted by length, by symbol order within each\n     * length\n     */\n    for &#40;symbol = 0; symbol &lt; n; symbol++&#41;\n        if &#40;length&#91;symbol&#93; != 0&#41;\n            h-&gt;symbol&#91;offs&#91;length&#91;symbol&#93;&#93;++&#93; = symbol;\n\n    /* return zero for complete set, positive for incomplete set */\n    return left;\n&#125;\n\n/*\n * Decode PKWare Compression Library stream&#46;\n *\n * Format notes&#58;\n *\n * - First byte is 0 if literals are uncoded or 1 if they are coded&#46;  Second\n *   byte is 4, 5, or 6 for the number of extra bits in the distance code&#46;\n *   This is the base-2 logarithm of the dictionary size minus six&#46;\n *\n * - Compressed data is a combination of literals and length/distance pairs\n *   terminated by an end code&#46;  Literals are either Huffman coded or\n *   uncoded bytes&#46;  A length/distance pair is a coded length followed by a\n *   coded distance to represent a string that occurs earlier in the\n *   uncompressed data that occurs again at the current location&#46;\n *\n * - A bit preceding a literal or length/distance pair indicates which comes\n *   next, 0 for literals, 1 for length/distance&#46;\n *\n * - If literals are uncoded, then the next eight bits are the literal, in the\n *   normal bit order in th stream, i&#46;e&#46; no bit-reversal is needed&#46; Similarly,\n *   no bit reversal is needed for either the length extra bits or the distance\n *   extra bits&#46;\n *\n * - Literal bytes are simply written to the output&#46;  A length/distance pair is\n *   an instruction to copy previously uncompressed bytes to the output&#46;  The\n *   copy is from distance bytes back in the output stream, copying for length\n *   bytes&#46;\n *\n * - Distances pointing before the beginning of the output data are not\n *   permitted&#46;\n *\n * - Overlapped copies, where the length is greater than the distance, are\n *   allowed and common&#46;  For example, a distance of one and a length of 518\n *   simply copies the last byte 518 times&#46;  A distance of four and a length of\n *   twelve copies the last four bytes three times&#46;  A simple forward copy\n *   ignoring whether the length is greater than the distance or not implements\n *   this correctly&#46;\n */\nlocal int decomp&#40;struct state *s&#41;\n&#123;\n    int lit;            /* true if literals are coded */\n    int dict;           /* log2&#40;dictionary size&#41; - 6 */\n    int symbol;         /* decoded symbol, extra bits for distance */\n    int len;            /* length for copy */\n    int dist;           /* distance for copy */\n    int copy;           /* copy counter */\n    unsigned char *from, *to;   /* copy pointers */\n    static int virgin = 1;                              /* build tables once */\n    static short litcnt&#91;MAXBITS+1&#93;, litsym&#91;256&#93;;        /* litcode memory */\n    static short lencnt&#91;MAXBITS+1&#93;, lensym&#91;16&#93;;         /* lencode memory */\n    static short distcnt&#91;MAXBITS+1&#93;, distsym&#91;64&#93;;       /* distcode memory */\n    static struct huffman litcode = &#123;litcnt, litsym&#125;;   /* length code */\n    static struct huffman lencode = &#123;lencnt, lensym&#125;;   /* length code */\n    static struct huffman distcode = &#123;distcnt, distsym&#125;;/* distance code */\n        /* bit lengths of literal codes */\n    static const unsigned char litlen&#91;&#93; = &#123;\n        11, 124, 8, 7, 28, 7, 188, 13, 76, 4, 10, 8, 12, 10, 12, 10, 8, 23, 8,\n        9, 7, 6, 7, 8, 7, 6, 55, 8, 23, 24, 12, 11, 7, 9, 11, 12, 6, 7, 22, 5,\n        7, 24, 6, 11, 9, 6, 7, 22, 7, 11, 38, 7, 9, 8, 25, 11, 8, 11, 9, 12,\n        8, 12, 5, 38, 5, 38, 5, 11, 7, 5, 6, 21, 6, 10, 53, 8, 7, 24, 10, 27,\n        44, 253, 253, 253, 252, 252, 252, 13, 12, 45, 12, 45, 12, 61, 12, 45,\n        44, 173&#125;;\n        /* bit lengths of length codes 0&#46;&#46;15 */\n    static const unsigned char lenlen&#91;&#93; = &#123;2, 35, 36, 53, 38, 23&#125;;\n        /* bit lengths of distance codes 0&#46;&#46;63 */\n    static const unsigned char distlen&#91;&#93; = &#123;2, 20, 53, 230, 247, 151, 248&#125;;\n    static const short base&#91;16&#93; = &#123;     /* base for length codes */\n        3, 2, 4, 5, 6, 7, 8, 9, 10, 12, 16, 24, 40, 72, 136, 264&#125;;\n    static const char extra&#91;16&#93; = &#123;     /* extra bits for length codes */\n        0, 0, 0, 0, 0, 0, 0, 0, 1, 2, 3, 4, 5, 6, 7, 8&#125;;\n\n    /* set up decoding tables &#40;once--might not be thread-safe&#41; */\n    if &#40;virgin&#41; &#123;\n        construct&#40;&amp;litcode, litlen, sizeof&#40;litlen&#41;&#41;;\n        construct&#40;&amp;lencode, lenlen, sizeof&#40;lenlen&#41;&#41;;\n        construct&#40;&amp;distcode, distlen, sizeof&#40;distlen&#41;&#41;;\n        virgin = 0;\n    &#125;\n\n    /* read header */\n    lit = bits&#40;s, 8&#41;;\n    if &#40;lit &gt; 1&#41; return -1;\n    dict = bits&#40;s, 8&#41;;\n    if &#40;dict &lt; 4 || dict &gt; 6&#41; return -2;\n\n    /* decode literals and length/distance pairs */\n    do &#123;\n        if &#40;bits&#40;s, 1&#41;&#41; &#123;\n            /* get length */\n            symbol = decode&#40;s, &amp;lencode&#41;;\n            len = base&#91;symbol&#93; + bits&#40;s, extra&#91;symbol&#93;&#41;;\n            if &#40;len == 519&#41; break;              /* end code */\n\n            /* get distance */\n            symbol = len == 2 ? 2 &#58; dict;\n            dist = decode&#40;s, &amp;distcode&#41; &lt;&lt; symbol;\n            dist += bits&#40;s, symbol&#41;;\n            dist++;\n            if &#40;s-&gt;first &amp;&amp; dist &gt; s-&gt;next&#41;\n                return -3;              /* distance too far back */\n\n            /* copy length bytes from distance bytes back */\n            do &#123;\n                to = s-&gt;out + s-&gt;next;\n                from = to - dist;\n                copy = MAXWIN;\n                if &#40;s-&gt;next &lt; dist&#41; &#123;\n                    from += copy;\n                    copy = dist;\n                &#125;\n                copy -= s-&gt;next;\n                if &#40;copy &gt; len&#41; copy = len;\n                len -= copy;\n                s-&gt;next += copy;\n                do &#123;\n                    *to++ = *from++;\n                &#125; while &#40;--copy&#41;;\n                if &#40;s-&gt;next == MAXWIN&#41; &#123;\n                    if &#40;s-&gt;outfun&#40;s-&gt;outhow, s-&gt;out, s-&gt;next&#41;&#41; return 1;\n                    s-&gt;next = 0;\n                    s-&gt;first = 0;\n                &#125;\n            &#125; while &#40;len != 0&#41;;\n        &#125;\n        else &#123;\n            /* get literal and write it */\n            symbol = lit ? decode&#40;s, &amp;litcode&#41; &#58; bits&#40;s, 8&#41;;\n            s-&gt;out&#91;s-&gt;next++&#93; = symbol;\n            if &#40;s-&gt;next == MAXWIN&#41; &#123;\n                if &#40;s-&gt;outfun&#40;s-&gt;outhow, s-&gt;out, s-&gt;next&#41;&#41; return 1;\n                s-&gt;next = 0;\n                s-&gt;first = 0;\n            &#125;\n        &#125;\n    &#125; while &#40;1&#41;;\n    return 0;\n&#125;\n\n/* See comments in blast&#46;h */\nint blast&#40;blast_in infun, void *inhow, blast_out outfun, void *outhow&#41;\n&#123;\n    struct state s;             /* input/output state */\n    int err;                    /* return value */\n\n    /* initialize input state */\n    s&#46;infun = infun;\n    s&#46;inhow = inhow;\n    s&#46;left = 0;\n    s&#46;bitbuf = 0;\n    s&#46;bitcnt = 0;\n\n    /* initialize output state */\n    s&#46;outfun = outfun;\n    s&#46;outhow = outhow;\n    s&#46;next = 0;\n    s&#46;first = 1;\n\n    /* return if bits&#40;&#41; or decode&#40;&#41; tries to read past available input */\n    if &#40;setjmp&#40;s&#46;env&#41; != 0&#41;             /* if came back here via longjmp&#40;&#41;, */\n        err = 2;                        /*  then skip decomp&#40;&#41;, return error */\n    else\n        err = decomp&#40;&amp;s&#41;;               /* decompress */\n\n    /* write any leftover output and update the error code if needed */\n    if &#40;err != 1 &amp;&amp; s&#46;next &amp;&amp; s&#46;outfun&#40;s&#46;outhow, s&#46;out, s&#46;next&#41; &amp;&amp; err == 0&#41;\n        err = 1;\n    return err;\n&#125;\n\n#ifdef TEST\n/* Example of how to use blast&#40;&#41; */\n#include &lt;stdio&#46;h&gt;\n#include &lt;stdlib&#46;h&gt;\n\n#define CHUNK 16384\n\nlocal unsigned inf&#40;void *how, unsigned char **buf&#41;\n&#123;\n    static unsigned char hold&#91;CHUNK&#93;;\n\n    *buf = hold;\n    return fread&#40;hold, 1, CHUNK, &#40;FILE *&#41;how&#41;;\n&#125;\n\nlocal int outf&#40;void *how, unsigned char *buf, unsigned len&#41;\n&#123;\n    return fwrite&#40;buf, 1, len, &#40;FILE *&#41;how&#41; != len;\n&#125;\n\n/* Decompress a PKWare Compression Library stream from stdin to stdout */\nint main&#40;void&#41;\n&#123;\n    int ret, n;\n\n    /* decompress to stdout */\n    ret = blast&#40;inf, stdin, outf, stdout&#41;;\n    if &#40;ret != 0&#41; fprintf&#40;stderr, &quot;blast error&#58; %d\\n&quot;, ret&#41;;\n\n    /* see if there are any leftover bytes */\n    n = 0;\n    while &#40;getchar&#40;&#41; != EOF&#41; n++;\n    if &#40;n&#41; fprintf&#40;stderr, &quot;blast warning&#58; %d unused bytes of input\\n&quot;, n&#41;;\n\n    /* return blast&#40;&#41; error code */\n    return ret;\n&#125;\n#endif\n[/code:1wsqztgt]\n\nSomebody can help?','',0,'EIA=','1wsqztgt',1,0,'',267,0,0),(28124,6304,6,694,0,'200.189.112.21',1173793488,1,0,1,1,1,1,'','Maurilio Viana','Maurilio, estou precisando muito falar com você, é possível você me adicionar no MSN <!-- e --><a href=\"mailto:aokisantos@hotmail.com\">aokisantos@hotmail.com</a><!-- e -->\n\n\nAokisantos','',0,'EIA=','1wg2lx4z',1,0,'',694,0,0),(28125,6305,1,981,0,'74.56.149.181',1173795564,1,0,1,1,1,0,'','exetype','Hi all \n\nI am Richard  and l work with clipper 5.3, bilnker 4.1 fw 2.1 and l want to make\nexetype 95, 98, nt or 2000. It just work with 3.1. What canl do\n\nWhen l try with 95 or 95 the system told me this application is not take in charge by windows\n\nWhen l try with 2000 relesse is not enough recently need windows 3.0 or more\n\nWhen l try with NT blinker told me that nt does not exist','',0,'EIA=','26kj18ds',1,1173893889,'',981,1,0),(28126,6306,6,196,0,'190.48.202.201',1173796623,1,0,1,1,1,0,'','No consigo hbole.lib','Hola, estoy tratando de bajar de la pagina de Harbour la hbole.lib y me es imposible, quizas alguien me pueda hacer el favor de enviarla a mi mail, o indicarme donde se puede bajar sin problemas.\n\nMuchas gracias\nJorge Jaurena','',0,'EIA=','3b2buz89',1,0,'',196,0,0),(28127,6305,1,2,0,'87.218.146.51',1173798962,1,0,1,1,1,1,'','','Richard,\n\nBlinker LNK exetype windows 3.1 should work on all windows versions. What error do you get on those windows versions ?','',0,'EIA=','pdzyz15b',1,0,'',2,0,0),(28128,6307,3,303,0,'72.199.41.171',1173799342,1,0,1,1,1,0,'','Vista won\'t run .HLP format help files','I came across this today. If your app has .HLP format help files they will not run under Vista--unless your users download this program. Due to Microsoft\'s copyright I don\'t think you can distribute this exe with with your app so each user would have to download and install the help exe. Now would be a good time to convert HLP files to CHM.\n\nJames\n\n[i:2cgvn0yw]WinHlp32.exe is required to display 32-bit Help files that have the \".hlp\" file name extension. To view .hlp files on Windows Vista, you need to install this application.[/i:2cgvn0yw]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=6ebcfad9-d3f5-4365-8070-334cd175d4bb&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->','',0,'IA==','2cgvn0yw',1,0,'',303,0,0),(28129,6308,1,190,0,'124.7.25.163',1173800018,1,0,1,1,1,0,'','save active work areas/indexes/filters/relations and restore','Hi friends\n\nCan anybody guide me how to save the work areas in use alongwith their\nindexes, filters and relations to restore them back later.\n\nI am calling a function within main() which is using a different set of \ndatabases, indexes with some filters and relations closing all the earlier\ndatabses, indexes ... etc with CLOSE ALL. Once the called function has\nperformed its action,  I want to restore the earlier databases, indexes,\nfilters and relations used in main function, automatically.\n\nThis functionality needs to work in Clipper 5.3b.\n\nThanks in advance\n\n\n\n- Ramesh Babu P','',0,'IA==','12ga3ia0',1,0,'',190,0,0),(28130,6256,6,976,0,'165.98.139.66',1173801828,1,0,1,1,1,0,'','','Probé utilizando FunckyLt.dll y funcionó, con la salvedad de que esa versión es muy limitada.\n\nAhora estoy tratando de probar List &amp; Label 12, lo he intentado utilizando Ole y también Activex, pero no ha funcionado.\n\nAlguna sugerencia?\n\nSaludos.','',0,'IA==','2pszij93',1,0,'',976,0,0),(28131,6307,3,2,0,'87.218.146.51',1173801899,1,0,1,1,1,1,'','','James,\n\nUsers may also copy it from XP windows directory\n\nI guess many Vista users are running dual boot with XP','',0,'IA==','3uw6kfay',1,0,'',2,0,0),(28132,6300,3,95,0,'189.171.159.213',1173807138,1,0,1,1,1,0,'','','!! Congratulation !!!\n\n\nTell me, the price as show in your web page, is 224 Euros, so it will cost 448  ?\n\nBest Regards\nOsvaldo Ramirez','',0,'IA==','1n2xn2xj',1,0,'',95,0,0),(28133,6307,3,303,0,'72.199.41.171',1173807633,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Users may also copy it from XP windows directory \n\nThanks for pointing that out. I was wondering if that would work.\n\nJames','',0,'IA==','1sy02aem',1,0,'',303,0,0),(28134,6309,6,207,0,'201.139.196.2',1173808125,1,0,1,1,1,0,'','errores ads con tdbf en fw 7.01','Hola a todos, tengo errores al recompilar mi aplicacion, uso la tdbf y marca errores con funciones como: ADSSETFILTER,ADSISSHARED,ADSDBFHDL, etc,etc, \nno inclui la rddads de xharbour, pero si la incluyo me salen muchos mas errores en funciones  como:\nadsSetServerType,AdsGetDateFormat,AdsSetDateFormat,AdsGetEpoch y un largo etc.  ¿?????\n\nQue hago, no he podido estrenar mi FW7.01, ¿que honda?\n\nAgradezco sus comentarios.\nAtte\nMiguel\nSAludos desde Mexico','',0,'IA==','2ii70ys3',1,0,'',207,0,0),(28135,6310,2,812,0,'200.83.125.109',1173808520,1,0,1,1,1,0,'','FAVOR Ayuda Urgente','Hola Amigos: \n\nComo puedo manejar el Browser (Tcbrowse) con un arreglo de variables de paso. \n\nUso FW 2.4, Clipper 5.3 y Blinker 7.0. \n\nSaludos, \nMiguel','',0,'IA==','2pv060i9',1,0,'',812,0,0),(28136,6256,6,838,0,'80.59.225.15',1173809681,1,0,1,1,1,0,'','','Hola Jairo\n\nUn amigo mio compró list &amp; label, y lo dejó por imposible, no pudo ponerlo en marcha, él pretendía general códigos de barras en formato PDF417, que parece ser que list &amp; label los genera, pero se volvió majareta y no lo consiguíó, ya que todo viene en inglés y principalmente en alemán.\n\nSaludos\n\nJose Luis','',0,'IA==','2f0wi6jd',1,0,'',838,0,0),(28137,6300,3,2,0,'87.218.146.51',1173812116,1,0,1,1,1,1,'','','Osvaldo,\n\nActual price is around 150 euros.\n\nSelect by email','',0,'IA==','1m5wfiaw',1,0,'',2,0,0),(28138,6303,4,2,0,'87.218.146.51',1173812580,1,0,1,1,1,1,'','','Vilian,\n\nWhat do you need ? To compile such code ? To modify it ?','',0,'IA==','1z9t6mz6',1,0,'',2,0,0),(28139,6310,2,2,0,'87.218.146.51',1173812674,1,0,1,1,1,1,'','','Miguel,\n\n&gt; Como puedo manejar el Browser (Tcbrowse) con un arreglo de variables de paso. \n\nA que te refieres ? Puedes poner un ejemplo ?','',0,'IA==','8y1zzooy',1,0,'',2,0,0),(28140,6311,6,854,0,'200.95.238.251',1173812800,1,0,1,1,1,0,'','Pregunta con xharbour','Que tal, tengo un problemita, al momento de compilar me dice que el archivo esta siendo ocupado ppor otro proceso y ya no compila.\n\nAlguien sabra de esto ?','',0,'IA==','1xif11ck',1,0,'',854,0,0),(28141,6303,4,267,0,'200.208.238.2',1173813981,1,0,1,1,1,1,'','','Antonio,\n\nI need to adjust the code to compile with harbour_ce.','',0,'IA==','1zz6xj1c',1,0,'',267,0,0),(28142,6299,2,985,0,'81.34.40.252',1173814147,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2p8343l4]Prueba a construir tu aplicación con Clipper 5.3[/quote:2p8343l4]\nGracias Antonio.\n\nHe probado con Clipper 5.3 y me devuelve el mismo error.\nEste programa lo ejecuto en Windows 2000, no se si esto te ayuda un poco.\n\nMuchas gracias por tu interes.','',0,'gA==','2p8343l4',1,0,'',985,0,0),(28143,6312,6,435,0,'200.155.207.100',1173815250,1,0,1,1,1,0,'','ADO com FireBird','Procuro as classes do FireBird, para usar com ADO, hoje uso o MySQL, gostaria de tentar o FireBird.\n\nAri','',0,'gA==','3qapyzyj',1,0,'',435,0,0),(28144,6309,6,92,0,'83.53.82.44',1173816046,1,0,1,1,1,0,'','Re: errores ads con tdbf en fw 7.01','[quote=&quot;Miguel Salas&quot;:1d07c8f5]Hola a todos, tengo errores al recompilar mi aplicacion, uso la tdbf y marca errores con funciones como: ADSSETFILTER,ADSISSHARED,ADSDBFHDL, etc,etc, \nno inclui la rddads de xharbour, pero si la incluyo me salen muchos mas errores en funciones  como:\nadsSetServerType,AdsGetDateFormat,AdsSetDateFormat,AdsGetEpoch y un largo etc.  ¿?????\n\nQue hago, no he podido estrenar mi FW7.01, ¿que honda?\n\nAgradezco sus comentarios.\nAtte\nMiguel\nSAludos desde Mexico[/quote:1d07c8f5]\n\nYo estoy igual, tampoco he podido estrenar la 7.01 bajo Harbour.\nMe estoy planteando cambiar el uso de TDbf por TDataBase.\n\nSaludos y suerte.\nCarlos G.','',0,'gA==','1d07c8f5',1,0,'',92,0,0),(28145,6303,4,3,0,'82.254.184.248',1173817792,1,0,1,1,1,1,'','','Antonio\n\nIt would be great if we had a zip support in fwppc !!!\n\nSaves a lot of time in transfering data.\n\nRichard','',0,'gA==','1jpbj4bv',1,0,'',3,0,0),(28146,6307,3,3,0,'82.254.184.248',1173818136,1,0,1,1,1,1,'','','James Antonio\n\nVista is very versatile xith system files (ini files, cfg files)\n\nIt is changing and making things much more complex than before in behaviour.\n\nChanging just a theme in windows (from aero to standard or whatever) makes ini files unaccessible to the same users..... \n\nI am working on this at the moment, i have a brand new laptop (Vista). Our software uses a protection with Ini files in windows directory. We start facing the problems and plan to move to other extension than \"ini\"\n\nI will keep posting on this. I think we should look much closer on Vista...\n\nRichard','',0,'gA==','1b86bnqj',1,0,'',3,0,0),(28147,6300,3,3,0,'82.254.184.248',1173818577,1,0,1,1,1,1,'','','Antonio\n\nCongratulations.\n\nMy concern, is there a way to port an app from fwh to five mac ? How much compatibility do we have ?.\n1. Source code\n2. Resources \n\nHave you planned a way to convert Microsoft rc files to mac os compatible ?\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nRichard','',0,'gA==','rk2ulg1d',1,0,'',3,0,0),(28148,6310,2,812,0,'201.236.185.135',1173821045,1,0,1,1,1,0,'','','Antonio:\n\nGracias por responder, solo necesito Mostrar el Browser con un arreglo de 6 variables: Folio, Fecha, Detalle,Cantidad,Valor Uni,Total. Tengo que poder modificar su contenido.\n\nSaludos,\nMiguel\n\n[quote=&quot;Antonio Linares&quot;:1pf4fsp3]Miguel,\n\n&gt; Como puedo manejar el Browser (Tcbrowse) con un arreglo de variables de paso. \n\nA que te refieres ? Puedes poner un ejemplo ?[/quote:1pf4fsp3]','',0,'gA==','1pf4fsp3',1,0,'',812,0,0),(28149,6302,6,278,0,'200.72.147.59',1173822907,1,0,1,1,1,1,'','','Adolfo:\n\nA mi me sucede lo mismo, llegan solo hasta 32x32.\n\nSaludos , \nJuan','',0,'gA==','351s6ju1',1,0,'',278,0,0),(28150,6312,6,278,0,'200.72.147.59',1173823068,1,0,1,1,1,1,'','','Ari:\n\nContact to Rochinha, I remenber her made to library for Firebird + ADO.\n\n<!-- e --><a href=\"mailto:irochinha@itelefonica.com.br\">irochinha@itelefonica.com.br</a><!-- e -->; \n\nRegards ,\n\nJuan','',0,'gA==','3fqj2mcg',1,0,'',278,0,0),(28151,6300,3,2,0,'87.218.146.51',1173825441,1,0,1,1,1,1,'','','Richard,\n\n&gt;\nMy concern, is there a way to port an app from fwh to five mac ? How much compatibility do we have ?.\n1. Source code\n2. Resources\n&gt;\n\nFiveMac is in a very early stage, like a FiveWin 1.0 or 1.5, so you can not port a FWH app to FiveMac straight away.\n\nActually FiveMac provides enough functionality to build an application, but it is not as complete as FWH.\n\n&gt; Have you planned a way to convert Microsoft rc files to mac os compatible ?\n\nWe could use a simple utility to generate PRG code from a RC file. \nOSX uses NIB files, we are working to support them, but its not ready yet.','',0,'gA==','3qp5g7wu',1,0,'',2,0,0),(28152,6299,2,2,0,'87.218.146.51',1173825761,1,0,1,1,1,1,'','','Crea un icono en el escritorio para arrancar tu aplicación y en las propiedades del icono especifica ejecutar la aplicación en un espacio de memoria separado','',0,'gA==','36m5k4di',1,0,'',2,0,0),(28153,6310,2,2,0,'87.218.146.51',1173826008,1,0,1,1,1,1,'','','Miguel,\n\nEn el directorio samples tienes TestTcbr.prg que muestra un ejemplo de un browse con objetos columna y editables.','',0,'gA==','ptrxju0h',1,0,'',2,0,0),(28154,6309,6,138,0,'189.141.72.59',1173826155,1,0,1,1,1,1,'','','Agrega el RDDADS Y ADEMAS el ACE32.LIB\n\nCon eso se soluciona tu problema','',0,'gA==','1x8u1mmz',1,0,'',138,0,0),(28155,6313,3,69,0,'74.13.40.57',1173828359,1,0,1,1,1,0,'','WriteComm() Question','Hi Everybody,\n\nI am trying to send a command to a serial device and just want to make sure I am doing this correctly:\n\nFrom the device manual:\n&gt;&gt;Command: &#147;Dn&#148; where n is configuration # in ASCII (1-2,7-8,A-D)&lt;&lt;\n\nI want to send  D1  to the serial port so I use:\n\nWriteComm( nComm, \"D1\" )\n\nwhere nComm:= OpenComm( \"Com5\", 1024, 128 )  \n\nIs this correct?\n\n\nThanks,\nJeff','',0,'gA==','1djr3m0z',1,0,'',69,0,0),(28156,6313,3,69,0,'74.13.40.57',1173828491,1,0,1,1,1,0,'','','Sorry,  I forgot to mention that the device will send a response and I\'d like to know how to read this response.\n\nAgain from the device manual:\n&gt;&gt;Response *: &lt;ACK&gt;\n&gt;&gt;Denied Response *: &lt;NAK&gt; if out of range data','',0,'gA==','5l5dh823',1,0,'',69,0,0),(28157,6298,2,890,0,'200.24.110.196',1173828919,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:2mok888o]Si solo quieres ver el DBF con datos:\n\nUSE archivo\nBrowse()\n\nSi lo quieres filtrado, entonces haces un indice por fecha\n\nrequest DBFCDX\nRddSetDefault(\"DBFCDX\")\n\nUSE archivo\nINDEX ON DTOS(campofecha) TAG fecha\nDBCLOSEAREA()\n\nY  para mostrarlo filtrado:\n\nUSE archivo\nOrdSetFocus(\"fecha\")\nOrdScope(0,DTOS(CTOD(\"01/01/2006\"))\nOrdScope(1,DTOS(CTOD(\"31/12/2006\"))\nDBGOTOP()\nBrowse()[/quote:2mok888o]\n\nRene\nGracias por tu respuesta\nCordialmente\n\n\nJairo Barbosa','',0,'gA==','2mok888o',1,0,'',890,0,0),(28158,6314,2,890,0,'200.24.110.196',1173829887,1,0,1,1,1,0,'','Acerca del Browse','Hola nuevamente\n\nSaludo Cordial a todos los intergrantes del foro\n\nQuisiera conocer el código para hacer un Browse sencillo, nada mas que para ver una búsqueda por selección\n\nCordialmente \n\nJairo Barbosa','',0,'gA==','2dg8uz4z',1,0,'',890,0,0),(28159,6314,2,138,0,'189.141.72.59',1173833397,1,0,1,1,1,1,'','','Use DBF\nBrowse()\n\nEl codigo fuente de la funcion Browse esta en la carpeta:\n\n\\FWxx\\source\\function\\browse.prg','',0,'gA==','1lsthb1r',1,0,'',138,0,0),(28160,6256,6,976,0,'165.98.139.66',1173835778,1,0,1,1,1,0,'','','Ya pude desplegar el diseñador de List &amp; Label con Activex&#058;\n\n   oActiveX = TActiveX():New( oWnd, \"L12.List-Label12_Ctrl_32.1\" )\n   oActiveX&#058;Do(\"LlDefineLayout\", oWnd:hWnd, \"Design List\", LL_PROJECT_LIST,\"simple.lst\")\n\nEsta muy interesante.\n\nSaludos.','',0,'gA==','6buc4zcb',1,0,'',976,0,0),(28161,6315,3,148,0,'196.205.222.7',1173839293,1,0,1,1,1,0,'','xBrowse Horizontal scroll','The Horizontal scroll in xBrowse is not working properly. When it comes to big number of field . It displays endded fields over the started fields. I have to scroll horizontally using the right arrow in the horizontal scroll bar.\n\nAny Explaination ?','',0,'gA==','dmmm9wf4',1,0,'',148,0,0),(28162,6303,4,13,0,'213.76.252.200',1173847535,1,0,1,1,1,0,'','','Richard,\n\nAlternative way to use compress send data is rsync based transfer. My program MoBi using this method works very good. Compress ratio for DBF and FPT file is ca 10 times and better. Youn don\'t need compress data to zip or other format before transfer but you need accesible address on internet network where rsync server wait for users login (GPRS connection).\n\nRegards\nPawel','',0,'gA==','zx2d67tg',1,0,'',13,0,0),(28163,6313,3,6,0,'87.19.208.121',1173858106,1,0,1,1,1,1,'','Re: WriteComm() Question','This is a sample of a simple ASCII terminal:\n\n[code:3m3grton]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cTxt &#58;= &quot;&quot;\n\n    LOCAL nCom\n\n    DEFINE DIALOG oDlg;\n           SIZE 500, 500;\n           TITLE &quot;Terminale&quot;\n\n    @ 0, 0 GET oGet VAR cTxt MEMO READONLY\n\n    oGet&#58;bKeyDown = &#123; | nKey | Tasti&#40; nCom, nKey &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT &#40; oGet&#58;AdjClient&#40;&#41;,;\n                       nCom &#58;= APRICOM&#40; oDlg, oGet &#41;,;\n                       IF&#40; nCom &lt; 0, oDlg&#58;End&#40;&#41;, &#41; &#41;;\n             CENTER\n\n    IF nCom &gt;= 0; CLOSECOMM&#40; nCom &#41;; ENDIF\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TASTI&#40; nCom, nKey &#41;\n\n    SENDSTR&#40; nCom, CHR&#40; nKey &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION APRICOM&#40; oDlg, oGet &#41;\n\n    LOCAL nCom, cDcb\n\n    BEGIN SEQUENCE\n        nCom = OPENCOMM&#40; &quot;COM1&quot;, 16384, 16384 &#41;\n\n        IF nCom &lt; 0\n            ? &quot;Errore di apertura della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        BUILDCOMMDCB&#40; &quot;COM1&#58;115200,N,8,1&quot;, @cDcb &#41;\n\n        IF !SETCOMMSTATE&#40; nCom, cDcb &#41;\n            ? &quot;Errore di impostazione della porta di comunicazione&#46;&quot;\n            BREAK\n        ENDIF\n\n        oDlg&#58;bCommNotify = &#123; | nCom | Connect&#40; nCom, oGet &#41;,;\n                                      EnableCommNotification&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41; &#125;\n\n        IF !ENABLECOMMNOTIFICATION&#40; nCom, oDlg&#58;hWnd, 1, -1 &#41;\n            ? &quot;Errore di abilitazione della notifica&#46;&quot;\n            BREAK\n        ENDIF\n    RECOVER\n        nCom = -1\n    END SEQUENCE\n\n    RETURN nCom\n\n\nSTATIC FUNCTION CONNECT&#40; nCom, oGet &#41;\n\n    LOCAL cStr\n\n    ENABLECOMMNOTIFICATION&#40; nCom, 0, 1, -1 &#41;\n\n    cStr = RECEIVESTR&#40; nCom &#41;\n\n    cStr = STRTRAN&#40; cStr, CHR&#40; 13 &#41;, &quot;&quot; &#41;\n    cStr = STRTRAN&#40; cStr, CHR&#40; 10 &#41;, CRLF &#41;\n\n    oGet&#58;Append&#40; cStr &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SENDSTR&#40; nCom, cString &#41;\n\n    LOCAL nBytes &#58;= WRITECOMM&#40; nCom, cString &#41;\n\n    RETURN nBytes = LEN&#40; cString &#41;\n\n\nSTATIC FUNCTION RECEIVESTR&#40; nCom &#41;\n\n    LOCAL cBuf &#58;= SPACE&#40; 1000 &#41;\n\n    RETURN LEFT&#40; cBuf, READCOMM&#40; nCom, @cBuf &#41; &#41;[/code:3m3grton]\n\nEMG','',0,'AIA=','3m3grton',1,0,'',6,0,0),(28164,5854,3,2,0,'87.218.146.51',1173858464,1,0,1,1,1,1,'','','RenOmaS,\n\nYes, it was as simple as those missing lines, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2wwunq2w',1,0,'',2,0,0),(28165,5854,3,154,0,'151.21.75.33',1173858753,1,0,1,1,1,1,'','','[quote=&quot;RenOmaS&quot;:38e1xeei]\n......\n   //ROS\n   ::nClrText := nClrFore\n   ::nClrPane := nClrBack\n   //\n   ::Register( .....\n......\n[/quote:38e1xeei]\n\nRenOmaS, \nthanks a lot!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nThis redefine method work perfectly with 701.\n\n[code:38e1xeei]//----------------------------------------------------------------------------//\n\nMETHOD ReDefine&#40; nId, oWnd, nClrFore, nClrBack, lDesign, cMsg &#41; CLASS TTreeView\n\n   DEFAULT oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nClrFore &#58;= GetSysColor&#40; COLOR_WINDOWTEXT &#41;,;  // UGO\n           nClrBack &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,;       // UGO\n           lDesign  &#58;= &#46;f&#46;\n\n   &#58;&#58;nClrText &#58;= nClrFore       // ROS\n   &#58;&#58;nClrPane &#58;= nClrBack     // ROS\n   &#58;&#58;nId     = nId\n   &#58;&#58;oWnd    = oWnd\n   &#58;&#58;aItems  = &#123;&#125;\n\n   &#58;&#58;Register&#40; nOR&#40; CS_VREDRAW, CS_HREDRAW, TVS_HASBUTTONS, TVS_HASLINES, TVS_LINESATROOT &#41; &#41;\n\n   oWnd&#58;DefControl&#40; Self &#41;\n\nreturn Self\n[/code:38e1xeei]','',0,'gIA=','38e1xeei',1,0,'',154,0,0),(28166,6311,6,2,0,'87.218.146.51',1173859052,1,0,1,1,1,1,'','','Revisa si tienes el fichero .C resultante abierto desde tu editor de código','',0,'gIA=','1o10ennm',1,0,'',2,0,0),(28167,6308,1,2,0,'87.218.146.51',1173859245,1,0,1,1,1,1,'','','Ramesh,\n\nYou may review the source code of FW function\\errsysw.prg that checks all open DBFs, indexes and relations. \n\nYou could use that info to save it and later restore it.','',0,'gIA=','3k2j3mul',1,0,'',2,0,0),(28168,6306,6,2,0,'87.218.146.51',1173859341,1,0,1,1,1,1,'','','Jorge,\n\nPara trabajar con OLE es preferible que uses xHarbour ya que trae soporte de OLE incluido','',0,'gIA=','1okn2tfd',1,0,'',2,0,0),(28169,6303,4,2,0,'87.218.146.51',1173859657,1,0,1,1,1,1,'','','Vilian,\n\nThis file is missing:\n\n#include \"blast.h\"','',0,'gIA=','246kpdo9',1,1173874326,'',2,1,0),(28170,5917,3,980,0,'202.146.100.64',1173863455,1,0,1,1,1,0,'','','[quote=&quot;Taiwan&quot;:3v7pk6os]\nHello Thomas,\n\nCould you use Themes into your EXE file?\nI know FWH\'s TGet not support 2 bytes(Chinese) input Chinese when your\napplication add Themes interface.\nI know you can download unicode solution from web site. It support some \nAP not support unicode font when you input unicode character.\n\nRegards,\n\nRichard\nFivetech.net Taiwan[/quote:3v7pk6os]\n\nHi Richard,\n\nThank for your quick response.\n\nIn fact now my application can support most of the Chinese character, but find few character with problem.  \n\nDoes \'unicode solution\' you mention is the ActiveX suite pro in <!-- m --><a class=\"postlink\" href=\"http://www.codejock.com/\">http://www.codejock.com/</a><!-- m -->?  After purchase and install this tool, do I need to update all object (such as textbox, list, label) in order to show/input such character?\n\nAny what is the meaning of \'It support some \nAP not support unicode font when you input unicode character.\'. \n\nI have also try the Visual xHarbour and find the problem is still exist, indeed if xHarbour provide the component like RichTextBox in Visual Basic?\n\nMany thank.\nThomas','',0,'gA==','3v7pk6os',1,0,'',980,0,0),(28171,6299,2,985,0,'217.11.101.59',1173864119,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:38mdx33q]Crea un icono en el escritorio para arrancar tu aplicación y en las propiedades del icono especifica ejecutar la aplicación en un espacio de memoria separado[/quote:38mdx33q]\n\nMuchas Gracias Antonio. Siento darte la lata tanto.\n\nNo me ha funcionado lo de las propiedades en el icono. Me esta desesperando.\n\nDisculpa sabes si en algunsitio a vuelto a funcionar PROMETHEUS\n\nPerdona las molestias\n\n15/03/07 Ya resuelto.\n\nGracias Antonio. He conseguido solucionarlo. \nEl problema es que el usuario habia abierto la Base de Datos con Excel, la habia grabado con extension \"DBF\" pero con formato \"XLS\" y mi aplicacion cuando la intentaba abrir esta se volvia loca.\n\nMuchas gracias por todo.','',0,'gA==','38mdx33q',1,0,'',985,0,0),(28172,6251,3,154,0,'151.21.75.33',1173868409,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:34lmgcjs]Do you have any problems saving special characters to DBF or INI files?[/quote:34lmgcjs]Enrico,\nYes![quote:34lmgcjs]can I see a little sample?[/quote:34lmgcjs]Yes:[code:34lmgcjs]FUNCTION Main&#40;&#41;\n/* RC File&#58;\n1 24 &quot;themed&#46;manifest&quot;\n\nSPECIALCHAR DIALOG 51, 72, 203, 112\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION &quot;Special Char&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 13, 10, 180, 45, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n PUSHBUTTON &quot;Char Map&quot;, 102, 16, 90, 50, 14\n PUSHBUTTON &quot;Paste&quot;, 103, 75, 90, 50, 14\n PUSHBUTTON &quot;End&quot;, 104, 137, 90, 50, 14\n EDITTEXT 105, 13, 68, 83, 12\n&#125;*/\n   LOCAL oDlg, oGet, cNote &#58;= &quot;&quot;, cNot1 &#58;= Space&#40;20&#41;, oClp, oBt1, oBt2, oBt3, oFont, oIni\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, - 11\n   DEFINE DIALOG oDlg RESOURCE &quot;SpecialChar&quot; FONT oFont\n   DEFINE CLIPBOARD oClp OF oDlg\n\n   INI oIni File &quot;MemoTest&#46;ini&quot;\n      GET cNote SECTION &quot;Test&quot; ENTRY &quot;Memo&quot; OF oIni DEFAULT Space&#40; 100 &#41;\n      GET cNot1 SECTION &quot;Test&quot; ENTRY &quot;Memo1&quot; OF oIni DEFAULT Space&#40; 20 &#41;\n\n      REDEFINE GET oGet VAR cNote ID 101 OF oDlg MEMO\n      REDEFINE GET oGet VAR cNot1 ID 105 OF oDlg\n      REDEFINE BUTTON oBt1 ID 102 ACTION WinExec&#40; &quot;CHARMAP&#46;EXE&quot; &#41;\n      REDEFINE BUTTON oBt2 ID 103 ACTION &#40; oGet&#58;Paste&#40; oCLp&#58;GetText&#40;&#41; &#41;, oDlg&#58;Refresh&#40;&#41; &#41;\n      REDEFINE BUTTON oBt3 ID 104 ACTION OdLG&#58;END&#40;&#41;\n      Activate Dialog oDlg\n      oClp&#58;END&#40;&#41;\n\n      SET SECTION &quot;Test&quot; ENTRY &quot;Memo&quot;  TO cNote OF oIni\n      SET SECTION &quot;Test&quot; ENTRY &quot;Memo1&quot;  TO cNot1 OF oIni\n   ENDINI\n   Return Nil[/code:34lmgcjs]You can reproduce the problem with click on \"Char Map\" Button, it selects in the Arial Font the U+015E char and click on copy.\nNow paste (with right click and paste) into memo-get and into normal get.\nWhen you exit from the normal get change the char!\nNow exit and reopen the program, the char is not the same in the memo-get, in INI file is saved the standard char.\nIn dbf file is the same.\nCan you confirm?\n\n[SORRY FOR MY BAD ENGLISH!!! <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> ]','',0,'gIA=','34lmgcjs',1,0,'',154,0,0),(28173,6251,3,6,0,'87.21.239.223',1173869065,1,0,1,1,1,1,'','','As I said you in private email, I can\'t see the pasted special character here. It immediately becomes \"S\".\n\nEMG','',0,'gIA=','jxby4lb9',1,0,'',6,0,0),(28174,6316,7,720,0,'80.36.244.134',1173870941,1,0,1,1,1,0,'','Como actualizar variables desde la clausula on init...','Hola a todos...\n\nVamos a ver, tengo el siguiente codigo:\n\n*********************************\nFUNCTION Selecciona_proveedor(odlg6)\n*********************************\n\nLOCAL hBmp := ReadBitmap( CurDir() + \"\\go.bmp\" ),cSearch:=\'\',nKey,oTmr,num_compra:=\'\'\nLOCAL NumD\n	\n.....	\nSELECT 0\nUSE (CURDIR()+\"\\proveedor.dbf\") VIA \"DBFCDX\" new\nINDEX ON codigo TO codigo\nproveedor-&gt;(OrdSetFocus( \"codigo\"))\n	\nDEFINE dialog odlg10 resource \"seleccion_proveedor\"\n\nredefine LISTBOX oBrw; &amp;&amp;nos creamos un brows para la muestra\n          FIELDS hBmp, proveedor-&gt;codigo, proveedor-&gt;nombre;\n          HEADERS \"\",\"Código\", \"Nombre\" ID 500 OF oDlg10\n\noBrw:aActions := {{|| NIL},{|| MsgBeep(),ordenar_por_codigo(aux,oBrw),oBrw:Upstable(),oBrw:Refresh()}, {|| MsgBeep(),ordenar_por_nombre(aux,oBrw),oBrw:Upstable(),oBrw:Refresh()}}\n\nobrw:bKeyChar = { | nKey, nFlags | busca_proveedor( nKey, @cSearch ),oBrw:Refresh(),oSay:REFRESH()}\n\nredefine say oSay prompt cSearch id 130 of odlg10 COLOR CLR_BLACK, CLR_WHITE\n\nredefine button id 140 of odlg10 action MsgBeep(),( nRecno := proveedor-&gt;( Recno() ),oDlg10:End(),Compras(num_compra,NumD,FecD))\n\nredefine button id 150 of odlg10 action MsgBeep(),odlg10:end()\n\nredefine get oNumD var NumD id 4002 of odlg10\n\nACTIVATE dialog odlg10;\non init calendario(odlg10,FecD)\n	\nodlg6:end()\nRETURN nil\n\n************************\nFUNCTION calendario(odlg10,FecD)\n************************\nLOCAL oFecha\n\nFecD:=DATE()\n\n@ 202, 132 DTPICKER oFecha VAR FecD OF oDlg10 SIZE 90, 20 PIXEL COLOR CLR_BLACK, CLR_WHITE\n	\nRETURN nil\n\n\nEl tema es el siguiente. Cuando llamo a la funcion Selecciona_proveedor(odlg6), en la clausula on init del dialogo me llama a la funcion Calendario(). Hasta ahi todo correcto. El DtPicker me muestra el dia correcto y me lo almacena en la variable FecD (que por defecto coge el dia actual). El problema que tengo es que esta variable se inicializa en el init y luego aunque yo le cambie la fecha en el calendario esta variable no se actualiza. He probado con la clausula on change en la funcion calendario() pero tampoco me actualiza la variable. \n\nAlguien puede indicarme como puedo hacerlo...\n\nSaludos y gracias.\n\nElías Torres.','',0,'gIA=','1ot6nn71',1,0,'',720,0,0),(28175,6261,18,6,0,'87.21.239.223',1173871547,1,0,1,1,1,1,'','','Sorry, one more bug:\n\n[code:16g6wp2n]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBrw\n\n    DBCREATE&#40; &quot;BUGTEST&quot;, &#123; &#123; &quot;TEST1&quot;, &quot;C&quot;, 10, 0 &#125;,;\n                           &#123; &quot;TEST2&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE BUGTEST\n\n    APPEND BLANK\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oWnd&#58;oClient = oBrw\n\n    ACTIVATE WINDOW oWnd;\n             MAXIMIZED\n\n    CLOSE\n\n    RETURN NIL[/code:16g6wp2n]\n\nSelect the second column and the resize the window: the first column will be selected back.\n\nEMG','',0,'AIA=','16g6wp2n',1,0,'',6,0,0),(28176,6303,4,267,0,'200.208.238.2',1173872286,1,0,1,1,1,1,'','','Antonio,\n\nI sent for its email a complete copy of the ZLIB with all the archives.\n\n[code:33o13p6y]/* blast&#46;h -- interface for blast&#46;c\n  Copyright &#40;C&#41; 2003 Mark Adler\n  version 1&#46;1, 16 Feb 2003\n\n  This software is provided \'as-is\', without any express or implied\n  warranty&#46;  In no event will the author be held liable for any damages\n  arising from the use of this software&#46;\n\n  Permission is granted to anyone to use this software for any purpose,\n  including commercial applications, and to alter it and redistribute it\n  freely, subject to the following restrictions&#58;\n\n  1&#46; The origin of this software must not be misrepresented; you must not\n     claim that you wrote the original software&#46; If you use this software\n     in a product, an acknowledgment in the product documentation would be\n     appreciated but is not required&#46;\n  2&#46; Altered source versions must be plainly marked as such, and must not be\n     misrepresented as being the original software&#46;\n  3&#46; This notice may not be removed or altered from any source distribution&#46;\n\n  Mark Adler    madler@alumni&#46;caltech&#46;edu\n */\n\n\n/*\n * blast&#40;&#41; decompresses the PKWare Data Compression Library &#40;DCL&#41; compressed\n * format&#46;  It provides the same functionality as the explode&#40;&#41; function in\n * that library&#46;  &#40;Note&#58; PKWare overused the &quot;implode&quot; verb, and the format\n * used by their library implode&#40;&#41; function is completely different and\n * incompatible with the implode compression method supported by PKZIP&#46;&#41;\n */\n\n\ntypedef unsigned &#40;*blast_in&#41;&#40;void *how, unsigned char **buf&#41;;\ntypedef int &#40;*blast_out&#41;&#40;void *how, unsigned char *buf, unsigned len&#41;;\n/* Definitions for input/output functions passed to blast&#40;&#41;&#46;  See below for\n * what the provided functions need to do&#46;\n */\n\n\nint blast&#40;blast_in infun, void *inhow, blast_out outfun, void *outhow&#41;;\n/* Decompress input to output using the provided infun&#40;&#41; and outfun&#40;&#41; calls&#46;\n * On success, the return value of blast&#40;&#41; is zero&#46;  If there is an error in\n * the source data, i&#46;e&#46; it is not in the proper format, then a negative value\n * is returned&#46;  If there is not enough input available or there is not enough\n * output space, then a positive error is returned&#46;\n *\n * The input function is invoked&#58; len = infun&#40;how, &amp;buf&#41;, where buf is set by\n * infun&#40;&#41; to point to the input buffer, and infun&#40;&#41; returns the number of\n * available bytes there&#46;  If infun&#40;&#41; returns zero, then blast&#40;&#41; returns with\n * an input error&#46;  &#40;blast&#40;&#41; only asks for input if it needs it&#46;&#41;  inhow is for\n * use by the application to pass an input descriptor to infun&#40;&#41;, if desired&#46;\n *\n * The output function is invoked&#58; err = outfun&#40;how, buf, len&#41;, where the bytes\n * to be written are buf&#91;0&#46;&#46;len-1&#93;&#46;  If err is not zero, then blast&#40;&#41; returns\n * with an output error&#46;  outfun&#40;&#41; is always called with len &lt;= 4096&#46;  outhow\n * is for use by the application to pass an output descriptor to outfun&#40;&#41;, if\n * desired&#46;\n *\n * The return codes are&#58;\n *\n *   2&#58;  ran out of input before completing decompression\n *   1&#58;  output error before completing decompression\n *   0&#58;  successful decompression\n *  -1&#58;  literal flag not zero or one\n *  -2&#58;  dictionary size not in 4&#46;&#46;6\n *  -3&#58;  distance is too far back\n *\n * At the bottom of blast&#46;c is an example program that uses blast&#40;&#41; that can be\n * compiled to produce a command-line decompression filter by defining TEST&#46;\n */\n[/code:33o13p6y]','',0,'AIA=','33o13p6y',1,0,'',267,0,0),(28177,6256,6,838,0,'80.34.222.112',1173873067,1,0,1,1,1,0,'','','Intento crear una aplicación con éstad dos líneas, y me da el siguiente error:\nError description: Error BASE/1003  Variable does not exist: LL_PROJECT_LIST\n\nLa verdad es que yo nunca he trabajado con activex , si me puedes mandar una parte de codigo para ver como funciona el tema te lo agradezco.\n\nUn saludo\n\nJose Luis','',0,'AIA=','3tak9c0x',1,0,'',838,0,0),(28178,6317,6,519,0,'83.60.230.87',1173873416,1,0,1,1,1,0,'','Sobreescribir metodo   ?','Hola\n\n    Se puede sobreescribir un metodo de una clase  con las nueva extensiones de xharbour   ?\n\n\n   Por ejemplo quiero modificar el metodo paint de la clase timage  \n\n\n  Un saludo','',0,'AIA=','o7l70u3o',1,0,'',519,0,0),(28179,5030,3,154,0,'151.21.75.33',1173873784,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:31s40m9x]FWH provides AnsiToWide() and WideToAnsi() so you can convert from ansi to unicode and viceversa.[/quote:31s40m9x]\n\nAntonio,\nexist a function for test if are presents any UNICODE characters in the string?','',0,'gA==','31s40m9x',1,0,'',154,0,0),(28180,6316,7,2,0,'87.218.146.150',1173874418,1,0,1,1,1,1,'','','Elías,\n\nTienes que pasar la variable por \"referencia\":\n\non init calendario(odlg10, @FecD)','',0,'gA==','1vivwb8k',1,0,'',2,0,0),(28181,6308,1,190,0,'124.7.27.219',1173875607,1,0,1,1,1,0,'','','Mr.Antonio\n\nThank you very much for your guidance.\n\nI could do it exactly what I wanted by using\npart of code from Errsysw.prg\n\nRegards to you,\n\n- Ramesh Babu P','',0,'gA==','16nu4hh9',1,0,'',190,0,0),(28182,6316,7,720,0,'80.36.244.134',1173877110,1,0,1,1,1,0,'','','Gracias Antonio, yo habia optado por crearme una variable public y actualizarla en la ejecucion de un boton y me funcionaba pero de esta otra forma me ahorro esa declaracion publica.\n\n\nGracias y saludos.\n\nElías Torres.','',0,'gA==','frthrvfw',1,0,'',720,0,0),(28183,6251,3,303,0,'72.199.41.171',1173877112,1,0,1,1,1,0,'','','Enrico,\n\n&gt;As I said you in private email, I can\'t see the pasted special character here. It immediately becomes \"S\". \n\nWhat I see is that if you use Ctrl-V to paste it, it appears as a regular S, but if you use the right-click menu and select Paste, you get the special character, which then reverts to the regular S when you leave the field, or when you type anything else in the same field.\n\nI am using FWH 2.7 Aug 2006 build/xHarbour, XP Pro SP2.\n\nJames','',0,'gA==','7sptsv6k',1,0,'',303,0,0),(28184,1588,3,267,0,'200.208.238.2',1173877917,1,0,1,1,1,1,'','','Hi Enrico,\n\nWhen I show archives avi(divx) with the \"Video\" class, some times the image alone I appear if to make some movement in the window! \n\nYou know why this you happen?','',0,'gA==','25lcd5a2',1,0,'',267,0,0),(28185,6270,3,707,0,'125.163.110.0',1173877953,1,0,1,1,1,0,'','','Hi All !\n\nThis is work sample :\nfor setfocus and maximize windows to the top\n\n[code:2xrxep06]\n#include &quot;Fivewin&#46;ch&quot;\n\n#define SW_NORMAL              1\n#define SW_MAXIMIZE            3\n#define SW_MINIMIZE            6\n#define SW_RESTORE             9\n\n\nFUNCTION MAIN&#40;&#41;\n\n    IF CLOSEEXCEL&#40;&#41;\n        ? &quot;My Application ready for you&quot;\n    ENDIF\n\n    RETURN NIL\n\n\n#define GW_HWNDNEXT   2\n#define GW_CHILD   5\n\n\nSTATIC FUNCTION CLOSEEXCEL&#40;&#41;\n\n    LOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41;\n\n    WHILE hWnd != 0\n        IF GETWINDOWTEXT&#40; hWnd &#41; = &quot;My Applicationl&quot;\n//           POSTMESSAGE&#40; hWnd, WM_CLOSE &#41; &lt;-- work for close windows\n//           BringWindowToTop&#40; hWnd &#41; &lt;-- not work\n              SetActiveWindow&#40; hWnd &#41;\n              ShowWindow&#40; hWnd, SW_MAXIMIZE &#41;\n            RETURN &#46;T&#46;\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    RETURN &#46;F&#46;\n\n[/code:2xrxep06]\n\nPlease reply !\n\nregards\nareang','',0,'AIA=','2xrxep06',1,0,'',707,0,0),(28186,6251,3,154,0,'151.21.75.33',1173878015,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1xjczzz6]What I see is that if you use Ctrl-V to paste it, it appears as a regular S, but if you use the right-click menu and select Paste, you get the special character, which then reverts to the regular S when you leave the field, or when you type anything else in the same field.\n\nI am using FWH 2.7 Aug 2006 build/xHarbour, XP Pro SP2.[/quote:1xjczzz6]\nJames,\nyes this is for the standard get, in the memo-get appears the special character with Ctrl+V and with Right click and Paste option, and is not possible to save.\n\nI am using FWH 7.01, xHarbour and BCC on XP-Pro Sp2','',0,'gA==','1xjczzz6',1,0,'',154,0,0),(28187,6313,3,707,0,'125.163.110.0',1173878265,1,0,1,1,1,0,'','','Yes that is work samples, Jeff !\n\nI used it for send char to my mobile phone\n\nMany thank to Enrico again..!\n\n\nAreang','',0,'gA==','397jinyd',1,0,'',707,0,0),(28188,6310,2,812,0,'200.83.125.109',1173878765,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias por tu ayuda.\n\nSaludos,\nMiguel\n\n[quote=&quot;Antonio Linares&quot;:3qypptbj]Miguel,\n\nEn el directorio samples tienes TestTcbr.prg que muestra un ejemplo de un browse con objetos columna y editables.[/quote:3qypptbj]','',0,'gA==','3qypptbj',1,0,'',812,0,0),(28189,1588,3,6,0,'87.21.239.223',1173879382,1,0,1,1,1,1,'','','No, sorry. Maybe the codec?\n\nEMG','',0,'gA==','11e4xqqp',1,0,'',6,0,0),(28190,6140,1,27,0,'212.145.65.52',1173880124,1,0,1,1,1,1,'','Codigos Hayes para SMS','Aqui encuentras mas codigos\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pes-systems.com/recowap/smsatset.htm#SMS%20Command%20Set\">http://www.pes-systems.com/recowap/smsa ... mand%20Set</a><!-- m -->','',0,'gA==','14zxecbj',1,0,'',27,0,0),(28191,6186,3,35,0,'167.7.140.254',1173881080,1,0,1,1,1,0,'','','I like your utility .. is there a MS SQL conversion there ??\n\nRick Lipkin\nSC Dept of Health, USA\n<!-- e --><a href=\"mailto:lipkinrm@dhec.sc.gov\">lipkinrm@dhec.sc.gov</a><!-- e -->','',0,'gA==','1m1sidhw',1,0,'',35,0,0),(28192,6318,6,986,0,'200.162.80.159',1173881478,1,0,1,1,1,1,'','TWBROWSE de Herman','Depois de compilar  a TWBROWSE com  FWH 7.1 e xHarbour 0.9971, as teclas  de movimentacao  PGUP,PGDOW,Home,End, estao com problemas de visualizacao no browse, a tela fica toda preta e mostra somente 2 linhas no browse.\n\nAgradeco quem poder me ajudar.\n\n\nAbracos,','',0,'gA==','1hbz9dip',1,0,'',986,0,0),(28193,6319,3,89,0,'213.21.136.60',1173883938,1,0,1,1,1,0,'','PICTURE time','Is it possible to  have  a PICTURE for the time()  like \"00:00:00\" \n\nRegards Maurizio','',0,'gA==','10n2xkko',1,0,'',89,0,0),(28194,5917,3,15,0,'203.70.52.83',1173885163,1,0,1,1,1,0,'','','[quote=&quot;wktsang1&quot;:35p8x9ke][quote=&quot;Taiwan&quot;:35p8x9ke]\nHello Thomas,\n\nCould you use Themes into your EXE file?\nI know FWH\'s TGet not support 2 bytes(Chinese) input Chinese when your\napplication add Themes interface.\nI know you can download unicode solution from web site. It support some \nAP not support unicode font when you input unicode character.\n\nRegards,\n\nRichard\nFivetech.net Taiwan[/quote:35p8x9ke]\n\nHi Richard,\n\nThank for your quick response.\n\nIn fact now my application can support most of the Chinese character, but find few character with problem.  \n\nDoes \'unicode solution\' you mention is the ActiveX suite pro in <!-- m --><a class=\"postlink\" href=\"http://www.codejock.com/\">http://www.codejock.com/</a><!-- m -->?  After purchase and install this tool, do I need to update all object (such as textbox, list, label) in order to show/input such character?\n\nAny what is the meaning of \'It support some \nAP not support unicode font when you input unicode character.\'. \n\nI have also try the Visual xHarbour and find the problem is still exist, indeed if xHarbour provide the component like RichTextBox in Visual Basic?\n\nMany thank.\nThomas[/quote:35p8x9ke]\n\nHello Thomas,\n\nNow, FWH\'s TGet problem when you add Themes interface.\ninput Chinese charact cursor position not correct.\nIf remove Themes interface, cursor position no problem.\n\nUnicode problem. Sometimes when we input some Chinese Character\nMS-Work can disappear it, but FWH\'s AP appear \'?\' problem for me.\nSo I intall Free Unicode tools from site( I gorgot ) to solve this problem.\nNow, I input any Chinese character no problem.\n\nCodejock ActiveX.\nNow, I just test Codejock Suite pro ActiveX functions. I think very nice tools for me. But how to write codes not easy. I need more time to try.\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gA==','35p8x9ke',1,0,'',15,0,0),(28195,6319,3,303,0,'72.199.41.171',1173885893,1,0,1,1,1,0,'','','Have you tried \"99:99:99\" ?','',0,'gA==','hc41gx2n',1,0,'',303,0,0),(28196,6320,4,95,0,'189.155.152.97',1173886171,1,0,1,1,1,0,'','MC1000','Back to the Pocket ...\n\nI have another Symbol MC1000, but when I try to coneect this via the Cradle USB to my PC, it ask me to a driver \"PocketPC SmartPhone\"\nAnd I dont have any driver for it.\n\nSome one know how to configure this on XP ?\n\nBest Regards\nOsvaldo Ramirez','',0,'gA==','2ja62ezg',1,0,'',95,0,0),(28197,6313,3,69,0,'206.210.100.104',1173887111,1,0,1,1,1,0,'','','Thanks guys.\n\nI was thinking that my command was not being sent but after a bit more reading on my device I found that I had to send the command within the first 5 seconds of the bluetooth connection.\n\nIt looks like it is working now.\n\n\nJeff','',0,'gA==','1wdqt1uv',1,0,'',69,0,0),(28198,6186,3,86,0,'213.119.103.68',1173887689,1,0,1,1,1,1,'','','Hi,\n\nI\'m interested in this tool too.\n\nUnfortunately, it can\'t be downloaded anymore (getting a HTTP 404-error).\n\nWhere can I find it now ?\n\nThanks.\n\nMichel','',0,'gA==','2l5ze1ac',1,0,'',86,0,0),(28199,6256,6,976,0,'165.98.139.66',1173887717,1,0,1,1,1,0,'','','Hola JoseLuis,\n\nIncluye la linea #xtranslate LL_PROJECT_LIST  =&gt; 2, o bien, utiliza directamente el valor.\n\nEn \"C:\\Archivos de programa\\combit\\LL12\\Programmable Samples and Declarations\\Alaska Xbase++\" se encuentra cmbtll12.ch\n\n#include \"FiveWin.ch\"\n#include \"cmbtll12.ch\"\nGlobal oActiveX, oWnd, hJob, nRet\n\nFunction Main()\nLocal cEvents := \"\"\nLOCAL aField, aType, aLen, aDec, sName\nLOCAL FldType, FldContent, DateBuffer, lExpr, I:=1, bAsField:=.T.\n                \nUSE ARTICLE NEW\nGO TOP   \n	 \n    aField := Array( ARTICLE-&gt;(FCount()) ) \n    aType  := Array( ARTICLE-&gt;(FCount()) ) \n    aLen   := Array( ARTICLE-&gt;(FCount()) ) \n    aDec   := Array( ARTICLE-&gt;(FCount()) ) \n    sname  := \"article.lst\"\n\n  DEFINE WINDOW oWnd TITLE \"FiveWin ActiveX Support\"\n\n  oActiveX = TActiveX():New( oWnd, \"L12.List-Label12_Ctrl_32.1\" )\n\n  oWnd:oClient = oActiveX // To fill the entire window surface\n\n  //US: Read field info from database\n   AFields( aField, aType, aLen, aDec ) \n\n //US: open List &amp; Label job, retrieve job handle\n    hJob := 1 \n \n //US: Enable multiple table lines\noActiveX&#058;Do( \"LlSetOption\", LL_OPTION_MULTIPLETABLELINES, 1)	\n\n //US: clear DLL-internal field buffer\noActiveX&#058;Do( \"LlDefineFieldStart\" )\n\n // US: Define Fields\n\n    FOR I = 1 to ARTICLE-&gt;(Fcount())\n    \n    DateBuffer = Replicate(chr(0), 255)\n\nDO CASE     \nCASE aType[i] == \"N\"\n	FldType=LL_NUMERIC\n	FldContent=Str( FieldGet(i) )			     \nCASE aType[i] == \"D\"\n	FldType=LL_DATE\n     \n	//US: Convert to Julian Date\n	//US: Create function tree\nlExpr = oActiveX&#058;Do(\"LlExprParse\", \"CTOD( FieldGet(i) )\", .F. )\n\n//US: Evaluate expression\noActiveX&#058;Do(\"LlExprEvaluate\", lExpr, @DateBuffer )\n\n//US: Free expression\noActiveX&#058;Do(\"LlExprFree\", lExpr )\nFldContent = DateBuffer\n        \nCASE aType[i] == \"L\"\n	FldType=LL_BOOLEAN             \n	if FieldGet(i) = .F.\n	  FldContent=\"FALSE\"\n                else\n	  FldContent=\"TRUE\"					endif\n\nCASE aType[i] == \"C\" \n	FldType=LL_TEXT\n	FldContent=Trim(FieldGet(i))\n\n	// US: for article number generate EAN128-barcode\n	if i=1\n	DO CASE\n\n	// US: Distinguish between field and variable declaration\n	CASE bAsField==.F.\noActiveX&#058;Do(\"LlDefineVariableExt\", \"ARTICLENO_EAN128\", Trim(FieldGet(i)), LL_BARCODE_EAN128 )\n\n	CASE bAsField==.T.\noActiveX&#058;Do(\"LlDefineFieldExt\", \"ARTICLENO_EAN128\", Trim(FieldGet(i)), LL_BARCODE_EAN128 )\n\n	END CASE\n	endif\n\nCASE aType[i] == \"M\"\n						FldType=LL_TEXT\n	FldContent=FieldGet(i)\n\nEND CASE\n		\n//US: pass data to List &amp; Label             \n\nDO CASE                \n      CASE bAsField==.F.\n\noActiveX&#058;Do(\"LlDefineVariableExt\", aField[i], FldContent, FldType )\n      CASE bAsField==.T.\n\noActiveX&#058;Do(\"LlDefineFieldExt\",aField[i], FldContent, FldType )\nEND CASE\n    \nNEXT I\n\n// US: start designer\noActiveX&#058;Do(\"LlSetPrinterDefaultsDir\",hJob,\"C:\\Windows\\Temp\")\noActiveX&#058;Do(\"LlDefineLayout\",oWnd:hWnd,\"Designer\",LL_PROJECT_LIST, \"article.lst\")\n\nACTIVATE WINDOW oWnd VALID ( dbCloseArea(),.t. )\n\nReturn','',0,'','2643f373',1,0,'',976,0,0),(28200,6319,3,86,0,'213.119.103.68',1173887784,1,0,1,1,1,1,'','','Maurizio,\n\nI use \"99:99\" as a time picture. It works very well. The only thing is that you have to type the leading zero (like 01:35).\n\nMichel','',0,'','l6icb6x1',1,0,'',86,0,0),(28201,6319,3,303,0,'72.199.41.171',1173889981,1,0,1,1,1,0,'','','Maurizio and Michel,\n\nMight I suggest making a smart control that allows different forms of time entry then formats it when the user leaves the field.\n\n135 becomes 01:35\n1350 becomes 13:50\n35 becomes 00:35\n\nThis way the use doesn\'t have to enter the colon or the leading zero and the data still ends up formatted properly.\n\nAnd how about letting the user enter \"now\" and the program would automaticlly insert the current time. And maybe -10m for 10 minutes ago, or -2h for two hours ago.\n\nJames','',0,'','rwhzlo47',1,0,'',303,0,0),(28202,6311,6,854,0,'189.131.53.237',1173890650,1,0,1,1,1,0,'','','Antonio\n\nEl detalle es que no compila, no genera el .C, sino que sale un letrero que dice que el archivo esta ocupado por otro usuario','',0,'','ik8u4o5p',1,0,'',854,0,0),(28203,6321,7,720,0,'80.36.244.134',1173891643,1,0,1,1,1,0,'','Problema de reconocimiento de alias...','Hola a todos...\nBueno antes de nada este es el codigo conflictivo...\n\n\n*********************************\nFUNCTION configuracion(usuario,clave)\n*********************************\nLOCAL olist,radio_pvp,radio_art,oart_nuevo,oexis_local,lval:=.f.,lval1:=.f.\nLOCAL oexis_local_siempre,oexis_remot_siempre,contador\n\n\nCLOSE DATABASES\n	\n&amp;&amp; se contabilizan los registros que estan marcados\nSELECT 0\nUSE (CURDIR() +\"\\definiciones.dbf\") VIA \"DBFCDX\" new\nINDEX ON codigo TO codigo\ndefiniciones-&gt;(OrdSetFocus(\"codigo\"))\nSET FILTER TO (definiciones-&gt;activado==.T.) \ndefiniciones-&gt;(dbgotop())\ncontador:=0\nDO while !EOF()\ncontador:=contador+1\ndefiniciones-&gt;(dbskip())\nENDDO\ndefiniciones-&gt;( DbClearFilter() ) \ndefiniciones-&gt;(dBGotop())\n	\nSELECT 0\n\nUSE (CURDIR() + \"\\vector_ini.dbf\") VIA \"DBFCDX\" new\nip:=ALLTRIM(vector_ini-&gt;ip_equipo)  &amp;&amp;guarda la ip del equipo\nnombre_pda:=ALLTRIM(vector_ini-&gt;codpda)	\ncontrol_existencias_locales:= vector_ini-&gt;exis_local\ncontrol_existencias_remotas:= vector_ini-&gt;exis_remot\nexistencias_locales_siempre:=vector_ini-&gt;el_siempre\nexistencias_remotas_siempre:=vector_ini-&gt;er_siempre\n	\n			\nSELECT vector_ini\n	\nDEFINE window oWnd1 TITLE \"Configuración\"\n   \n   &amp;&amp;definimos las pestañas y el tamaño de estas\n@ 3, 1 FOLDER oFld PROMPTS \"Parámetros\", \"Sistema\", \"Descargas\", \"Configuración\",;\n \"Máscaras\",\"Definiciones\",\"Cambio de Claves\" SIZE 225, 175\n   \n   &amp;&amp;le damos un color de fondo para integrarla en la pantalla principal   \n   oFld:setcolor(RGB(1,1,1),RGB(230,184,94))  \n   \n\n   \nIF VAL(tipo_acceso)==0   &amp;&amp;solo se permite acceso a la primera pagina\n   \n&amp;&amp; primera pagina\n	\n@ 2, 1 SAY \"Codigo PDA\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 2, 10 GET oCod_pda var vector_ini-&gt;codpda OF oFld:aDialogs[ 1 ] SIZE 130, 21\n@ 3.6, 1 SAY \"Aplicación\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 4, 10 GET oAplic var vector_ini-&gt;aplicacion OF oFld:aDialogs[ 1 ] SIZE 130, 21\n@ 5.4, 1 SAY \"Almacen\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 6, 10 GET oAlmacen var vector_ini-&gt;almacen OF oFld:aDialogs[ 1 ] SIZE 130, 21\n@ 7.1, 1 SAY \"Lista Precios\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 8, 10 GET oPrecios var vector_ini-&gt;lista_pvp OF oFld:aDialogs[ 1 ] SIZE 130, 21\n\nELSE    &amp;&amp;el acceso es a toda la configuración\n	\n&amp;&amp; primera pagina\n          \n@ 2, 1 SAY \"Codigo PDA\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 2, 10 GET oCod_pda var vector_ini-&gt;codpda OF oFld:aDialogs[ 1 ] SIZE 130, 21\n@ 3.6, 1 SAY \"Aplicación\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 4, 10 GET oAplic var vector_ini-&gt;aplicacion OF oFld:aDialogs[ 1 ] SIZE 130, 21\n@ 5.4, 1 SAY \"Almacen\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 6, 10 GET oAlmacen var vector_ini-&gt;almacen OF oFld:aDialogs[ 1 ] SIZE 130, 21\n@ 7.1, 1 SAY \"Lista Precios\" OF oFld:aDialogs[ 1 ] SIZE 70, 15\n@ 8, 10 GET oPrecios var vector_ini-&gt;lista_pvp OF oFld:aDialogs[ 1 ] SIZE 130, 21\n	   \n  &amp;&amp; segunda pagina\n\n@ 1, 1 SAY \"Dirección IP\" OF oFld:aDialogs[ 2 ] SIZE 70, 15\n@ 1, 10 GET oIP var vector_ini-&gt;ip_equipo OF oFld:aDialogs[ 2 ] SIZE 130, 21\n@ 2.6, 1 SAY \"Nombre Eq.\" OF oFld:aDialogs[ 2 ] SIZE 70, 15\n@ 3, 10 GET oNombreEq var vector_ini-&gt;equipo OF oFld:aDialogs[ 2 ] SIZE 130, 21\n@ 4.3, 1 SAY \"Ruta\" OF oFld:aDialogs[ 2 ] SIZE 70, 15\n@ 5, 10 GET oRuta var vector_ini-&gt;ruta OF oFld:aDialogs[ 2 ] SIZE 130, 21\n@ 6, 1 SAY \"Usuario\" OF oFld:aDialogs[ 2 ] SIZE 70, 15\n@ 7, 10 GET oUsuario var vector_ini-&gt;usuario OF oFld:aDialogs[ 2 ] SIZE 130, 21\n@ 7.8, 1 say \"Constraseña\" of oFld:aDialogs[ 2 ] SIZE 70, 15\n@ 9, 10 GET oPass var vector_ini-&gt;pass OF oFld:aDialogs[ 2 ] SIZE 130, 21\n	  \n&amp;&amp; tercera pagina\n		\n@ 1, 1 SAY \"Inventarios\" OF oFld:aDialogs[ 3 ] SIZE 70, 15\n@ 1, 10 GET oRuta_Inv var vector_ini-&gt;ruta_inv OF oFld:aDialogs[ 3 ] SIZE 130, 21\n@ 2.6, 1 SAY \"Compras\" OF oFld:aDialogs[ 3 ] SIZE 70, 15\n@ 3, 10 GET oRuta_com var vector_ini-&gt;ruta_com OF oFld:aDialogs[ 3 ] SIZE 130, 21\n@ 4.3, 1 SAY \"Ventas\" OF oFld:aDialogs[ 3 ] SIZE 70, 15\n@ 5, 10 GET oRuta_ven var vector_ini-&gt;ruta_ven OF oFld:aDialogs[ 3 ] SIZE 130, 21\n@ 6, 1 SAY \"Consultas\" OF oFld:aDialogs[ 3 ] SIZE 70, 15\n@ 7, 10 GET oRuta_con var vector_ini-&gt;ruta_con OF oFld:aDialogs[ 3 ] SIZE 130, 21\n\n&amp;&amp; cuarta pagina\n		\n@ 1, 1 SAY \"Dias sin actualizar\" OF oFld:aDialogs[ 4 ] SIZE 110, 15\n@ 1, 15 GET oDias var vector_ini-&gt;dias OF oFld:aDialogs[ 4 ] SIZE 90, 21\n@ 3, 1 checkbox oart_nuevo var vector_ini-&gt;art_nuevo prompt \"Crear Articulo\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\n@ 5, 1 checkbox omod_pvp var vector_ini-&gt;pvp_modif prompt \"Modificar PVP\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\n@ 7, 22 checkbox oexis_local_siempre var vector_ini-&gt;El_siempre prompt \"Siempre\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\nIIF (control_existencias_locales=.f.,oexis_local_siempre:hide(),lval:=.t.)\n@ 9, 22 checkbox oexis_remot_siempre var vector_ini-&gt;er_siempre prompt \"Siempre\" OF oFld:aDialogs[ 4 ] SIZE 100, 21\nIIF (control_existencias_remotas=.f.,oexis_remot_siempre:hide(),lval1:=.t.)\n\n@ 7, 1 checkbox oexis_local var vector_ini-&gt;exis_local prompt \"Ver Exis. Locales\" OF oFld:aDialogs[ 4 ] SIZE 140, 21 on click ( lVal := ! lVal, Iif( lVal, oexis_local_siempre:show(), (oexis_local_siempre:hide(),vector_ini-&gt;el_siempre:=.t.)))\n\n@ 9, 1 checkbox oexis_remot var vector_ini-&gt;exis_remot prompt \"Ver Exis. Remotas\" OF oFld:aDialogs[ 4 ] SIZE 140, 21 on click ( lVal1 := ! lVal1, Iif( lVal1, oexis_remot_siempre:show(),(oexis_remot_siempre:hide(),vector_ini-&gt;er_siempre:=.t.)))\n	 \n	   \n&amp;&amp; quinta pagina\n\n		\n@ 1, 1 SAY \"Inventario\" OF oFld:aDialogs[ 5 ] SIZE 70, 15\n@ 1, 10 GET omasc_inv var vector_ini-&gt;masc_inv OF oFld:aDialogs[ 5 ] SIZE 130, 21\n@ 2.6, 1 SAY \"Compras\" OF oFld:aDialogs[ 5 ] SIZE 70, 15\n@ 3, 10 GET omasc_com var vector_ini-&gt;masc_com OF oFld:aDialogs[ 5 ] SIZE 130, 21\n@ 4.3, 1 SAY \"Ventas\" OF oFld:aDialogs[ 5 ] SIZE 70, 15\n@ 5, 10 GET omasc_ven var vector_ini-&gt;masc_ven OF oFld:aDialogs[ 5 ] SIZE 130, 21\n\n		\n&amp;&amp;  pagina 6\n		\nSELECT definiciones\n\n@ 1, 1 listbox olist fields definiciones-&gt;codigo,definiciones-&gt;descrip,;\ndefiniciones-&gt;abreviatur,definiciones-&gt;activado fieldsizes 30,100,37,20 header \"Cód\",\"Descripción\",\"Abrev\",\"Sel\" OF oFld:aDialogs[ 6 ] size 207,105\n\nolist:nClrPane := { || If( definiciones-&gt;activado,RGB(230,184,94) , RGB(255,255,255) ) }\nolist:blClicked:={||definiciones-&gt;activado:=!definiciones-&gt;activado,;\n						\nIIF(definiciones&gt;activado==.t.,contador:=contador+1, contador:=contador-1),olist:Refresh(),IIF(contador&lt;=3,,(msginfo(\'Solo es posible marcar 3 definiciones...\',\'Atención\'),definiciones-&gt;activado:=!definiciones-&gt;activado,contador:=contador-1))}\n	  \n\n@ 9, 1 bitmap obmp1 name \"titulo_modificar\" noborder OF oFld:aDialogs[ 6 ] SIZE 110, 42\n@ 9, 17 bitmap obmp2 name \"titulo_anadir\" noborder of oFld:aDialogs[ 6 ] size 110, 42\n@ 11.5, 9 bitmap obmp3 name \"titulo_borrar\" noborder of oFld:aDialogs[ 6 ] size 110, 42\n\noBmp2:blClicked := {|| MsgBeep(),nueva_marca(oWnd1) }\noBmp1:blClicked := {|| MsgBeep(),IIF(!BOF(),(nRecno := definiciones-&gt;( Recno()),modifica_definicion(olist)),obmp1:hide()) }\noBmp3:blClicked := {|| MsgBeep(),(nRecno := definiciones-&gt;( Recno())),IIF(!BOF(),IIF(MsgNoYes(\'¿Desea borrar de las definiciones el registro marcado?\',\'Atención\'),(definiciones-&gt;(DBDelete()),olist:REFRESH(),contador:=contador-1),),obmp3:hide()) }\n	   \n\n&amp;&amp; septima pagina  (cambio de clave)\n\n@ 5, 4 bitmap obmp7 name \"cambio_clave\" noborder OF oFld:aDialogs[ 7 ] SIZE 180, 42\noBmp7:blClicked := {|| MsgBeep(),IIF(msgNoYes(\'Atención, ¿desea cambiar la clave asignada al usuario?\',\'Atención\'),cambia_clave(usuario,clave),)}\n	  \nendif\n\n   &amp;&amp;color de fondo de la pantalla\n   oWnd1:setcolor(RGB(1,1,1),RGB(230,184,94))\n   \nACTIVATE WINDOW oWnd1;\non init botones_configuracion(oWnd1,olist) &amp;&amp;al iniciar cargamos la barra de botones\nRETURN nil\n\n\n\nSe me ha presentado un problema que no se por donde cogerlo. Tengo el codigo anterior que lo que hace es mostrar una serie de pestañas para la configuración de la aplicación. Resulta que cuando entro la primera vez a esta opción todo funciona correctamente, pero si vuelvo a entrar una segunda vez todo me funciona menos la pestaña 6. Me da un error que dice que no encuentra el alias definiciones.De echo en esta pestaña el Select Definiciones lo hace y no da error pero cuando llega al listbox me da el error de \'no se encuentra el alias definiciones\'.... Yo creo que el problema puede estar en el browse donde muestro las definiciones que a lo mejor hay que inicializarlo de nuevo, la verdad es que no se que hacer. He probado a destruir el objeto olist, pero nada. Lo curioso es que cuando entro lo primero que hago es cerrar las tablas que tengo abiertas pero tampoco me soluciona el problema..\n\nSi alguien puede aclararme cual es el problema o por lo menos darme alguna pista que me pueda \'iluminar\' se lo agradecería....\n\n\nSaludos..\n\nElías Torres.','',0,'','hx4r2fjt',1,0,'',720,0,0),(28204,6322,7,945,0,'80.32.177.143',1173892407,1,0,1,1,1,0,'','Hacer click en un bitmap','Muy buenas, me gustaría saber como puedo llamar al procedimiento ON CLICK de un bitmap, desde una función cualquiera.\n\nGracias.','',0,'','s3m7ryod',1,0,'',945,0,0),(28205,6322,7,720,0,'80.36.244.134',1173892695,1,0,1,1,1,0,'','','Hola\n\nPuedes hacerlo así:\n\noBmp:blClicked := {|| aqui va el codigo que quieres ejecutar }\n\n\nSaludos.\n\nElías Torres.','',0,'','2p5s8ado',1,0,'',720,0,0),(28206,6317,6,110,0,'148.168.40.4',1173894033,1,0,1,1,1,1,'','','claro que se puede en la mayoria de los casos, dejame llegar al trabajo por la tarde y te mando unos ejemplos de sobreescitura y de agregar metodos a una clase.\n\nsalu2\ncarlos vargas','',0,'','12318plp',1,0,'',110,0,0),(28207,6321,7,2,0,'87.218.146.150',1173896912,1,0,1,1,1,1,'','','Elías,\n\nA primera vista, aqui falta esto:\n\nIIF(definiciones[color=red:2gxu4h95]-[/color:2gxu4h95]&gt;activado==.t., ...','',0,'Ag==','2gxu4h95',1,0,'',2,0,0),(28208,6321,7,2,0,'87.218.146.150',1173897278,1,0,1,1,1,1,'','','Elías,\n\nPrueba a hacer:\n\nSELECT definiciones \nMsgInfo( Alias() )\n\npara asegurarte de que el Alias() es correcto','',0,'Ag==','2mx3sgab',1,0,'',2,0,0),(28209,6320,4,2,0,'87.218.146.150',1173897408,1,0,1,1,1,1,'','','Osvaldo,\n\nHave you searched at the website of Symbol MC1000 for the driver ?','',0,'Ag==','1efoqoiw',1,0,'',2,0,0),(28210,6321,7,720,0,'80.36.244.134',1173898116,1,0,1,1,1,0,'','','Antonio, en cuanto a la falta de \'-\' es un error al copiarlo aqui. He comprobado el alias y es correcto... Pero cuando pincho en la pestaña en cuestion(por segunda vez) me da el error, a la primera no.\n\nEl error lo tengo localizado al mostrar los campos en el browse... La verdad es que nose porque se da el error. Nose si el browse se queda  \'pillado\' la primera vez. He probado como decia en el otro post a destruir el objeto pero nada....No se me ocurre nada mas.\n\n\nSaludos.\n\nElías Torres.','',0,'Ag==','2ayojv99',1,0,'',720,0,0),(28211,6323,3,529,0,'200.159.198.92',1173898487,1,0,1,1,1,0,'','registry sample','hi, someone has an simple sample to write to windows registry? thanks','',0,'Ag==','3effepww',1,0,'',529,0,0),(28212,6324,6,171,0,'71.232.193.197',1173898616,1,0,1,1,1,0,'','Existe una funcion Soundex() para el idioma español?','Hola compañeros,\n\nEsa es mi pregunta, si tenemos un algorithmo soundex() o metaphone() para nuestro idioma.\n\nGeorge','',0,'Ag==','3hdprl1l',1,0,'',171,0,0),(28213,6325,3,171,0,'71.232.193.197',1173899337,1,0,1,1,1,0,'','The end of Visual FoxPro','<!-- m --><a class=\"postlink\" href=\"http://www.eweek.com:80/article2/0,1895,2103695,00.asp?kc=EWEWEMNL031407EP35E\">http://www.eweek.com:80/article2/0,1895 ... 31407EP35E</a><!-- m -->','',0,'Ag==','prdf4gpj',1,0,'',171,0,0),(28214,6326,6,64,0,'201.72.124.2',1173899469,1,0,1,1,1,1,'','Encrypt... Barcode... incompativeis!','Olá,\n\n   Estou tentando usar a função Encrypt() para mascarar um campo que será usado como senha, mas preciso imprimir este campo em código de barras (code39) para que não exista digitação. \n\n   A função está retornando caracteres que não são reconhecidos pelo CODE39 (da BARLIB), que somente aceita os caracteres:\n1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%\n\n   Alguma sugestão?','',0,'Ag==','qahj6j02',1,0,'',64,0,0),(28215,6327,4,946,0,'89.180.136.25',1173901247,1,0,1,1,1,0,'','How to get a readonly object','Hello,\n\nDoes anybody know how to create a [b:2a74xpwx]readonly[/b:2a74xpwx] combobox?\n\nSomething like: oCombo:readonly()\n\nThank you,\nJoaquim','',0,'QA==','2a74xpwx',1,0,'',946,0,0),(28216,6328,2,812,0,'201.236.179.14',1173902980,1,0,1,1,1,0,'','FAVOR AYUDA.','Hola Amigos:\n\nAlguien me puede indicar, de donde puedo bajar la TwBrowse de Hernan y lo que necesito para implementarla.\n\nUso  Fw 2.4, Clipper 5.3b, Blinker 7, Workshop.\n\nSaludos,\n\nMiguel','',0,'QA==','1a8ohpi4',1,0,'',812,0,0),(28217,6327,4,6,0,'87.21.239.223',1173905882,1,0,1,1,1,1,'','Re: How to get a readonly object','WHEN .F.?\n\noCombo:Disable()?\n\nEMG','',0,'QA==','29d8mikl',1,0,'',6,0,0),(28218,6323,3,6,0,'87.21.239.223',1173906172,1,0,1,1,1,1,'','Re: registry sample','[code:9w5412fi]#define HKEY_CURRENT_USER 2147483649\n\n#define KEY_ALL_ACCESS 983103\n\n#define REG_SZ 1\n\n\nSTATIC FUNCTION PDFGETOPTION&#40; cKey &#41;\n\n    LOCAL hKey &#58;= 0\n\n    LOCAL nType &#58;= REG_SZ\n\n    LOCAL cData &#58;= SPACE&#40; 256 &#41;\n\n    LOCAL nSize &#58;= LEN&#40; cData &#41;\n\n    REGOPENKEY&#40; HKEY_CURRENT_USER, &quot;Software\\PDFCreator\\Program&quot;, 0, KEY_ALL_ACCESS, @hKey &#41;\n\n    REGQUERYVALUE&#40; hKey, cKey, 0, @nType, @cData, @nSize &#41;\n\n    REGCLOSEKEY&#40; hKey &#41;\n\n    RETURN LEFT&#40; cData, AT&#40; CHR&#40; 0 &#41;, cData &#41; - 1 &#41;\n\n\nSTATIC FUNCTION PDFSETOPTION&#40; cKey, cValue &#41;\n\n    LOCAL hKey &#58;= 0\n\n    LOCAL nType &#58;= REG_SZ\n\n    LOCAL nSize &#58;= LEN&#40; cValue &#41;\n\n    REGOPENKEY&#40; HKEY_CURRENT_USER, &quot;Software\\PDFCreator\\Program&quot;, 0, KEY_ALL_ACCESS, @hKey &#41;\n\n    REGSETVALUE&#40; hKey, cKey, 0, nType, cValue, nSize &#41;\n\n    REGCLOSEKEY&#40; hKey &#41;\n\n    RETURN NIL\n\n\nDLL32 STATIC FUNCTION REGOPENKEY&#40; hKey AS LONG, cSubKey AS LPSTR, nOptions AS DWORD, nSamDesired AS DWORD, @nHandle AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;RegOpenKeyExA&quot; LIB &quot;advapi32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION REGQUERYVALUE&#40; hKey AS LONG, cValueName AS LPSTR, nReserved AS LONG, @nType AS PTR, @cData AS LPSTR, @nSize AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;RegQueryValueExA&quot; LIB &quot;advapi32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION REGSETVALUE&#40; hKey AS LONG, cValueName AS LPSTR, nReserved AS LONG, nType AS DWORD, cData AS LPSTR, nData AS DWORD &#41; AS LONG;\n      PASCAL FROM &quot;RegSetValueExA&quot; LIB &quot;advapi32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION REGCLOSEKEY&#40; hKey AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;RegCloseKey&quot; LIB &quot;advapi32&#46;dll&quot;[/code:9w5412fi]\n\nEMG','',0,'AIA=','9w5412fi',1,0,'',6,0,0),(28219,6321,7,2,0,'87.218.146.150',1173908619,1,0,1,1,1,1,'','','Elías,\n\n&gt; Pero cuando pincho en la pestaña en cuestion(por segunda vez) me da el error, a la primera no.\n\nTe refieres a que te mantienes en la misma pantalla, pero cambias de pestaña solamente ?','',0,'AIA=','2xdl1h26',1,0,'',2,0,0),(28220,6329,6,774,0,'164.77.169.194',1173908794,1,0,1,1,1,1,'','TWBROWSE DE HERNAN','Amigos.. alguien me podria mandar twbrose de hernan a mi correo\n<!-- e --><a href=\"mailto:leiva_36@hotmail.com\">leiva_36@hotmail.com</a><!-- e -->  o   <!-- e --><a href=\"mailto:zxzxzx@123mail.cl\">zxzxzx@123mail.cl</a><!-- e -->\n\nel link de utilidades no funciona,,, me descarga twbrowse pero debe estar mal subido a la red,, por no puedo usarlo...\n\no bien si me pueden decir d dndn bajarlo\n\nGRACIAS','',0,'AIA=','3mxwdzi4',1,0,'',774,0,0),(28221,6325,3,2,0,'87.218.146.150',1173909009,1,0,1,1,1,1,'','','&gt;\nMicrosoft will release core portions of the FoxPro software to its CodePlex community development site\n&gt;\n\nThat sounds quite interesting: Harbour may benefit from it.','',0,'AIA=','26opupqv',1,0,'',2,0,0),(28222,6186,3,392,0,'201.1.220.134',1173909499,1,0,1,1,1,1,'','','The lasted version is here: <!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/fw/dbf2sql-2.3-BETA.zip\">http://www.sqllib.com.br/fw/dbf2sql-2.3-BETA.zip</a><!-- m -->!\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','1t60o52n',1,0,'',392,0,0),(28223,6315,3,2,0,'87.218.146.150',1173910992,1,0,1,1,1,1,'','','Ehab,\n\nPlease provide a sample to reproduce the error, thanks','',0,'AIA=','26kf5m46',1,0,'',2,0,0),(28224,6320,4,95,0,'189.171.159.213',1173912582,1,0,1,1,1,0,'','','Antonio\n\nYes, I did, but I didn\'t find anything ... \n\nI still looking and wait if someone has the same model.\n\nBest Regars\nOsvaldo Ramirez','',0,'AIA=','3ou95acv',1,0,'',95,0,0),(28225,6320,4,2,0,'87.218.146.150',1173913294,1,0,1,1,1,1,'','','Osvaldo,\n\nHave you tried it on Windows Vista ? It has a much better support for Pocket PC devices','',0,'AIA=','1fmb81gm',1,0,'',2,0,0),(28226,5917,3,980,0,'202.146.100.64',1173920485,1,0,1,1,1,0,'','','[quote:1yibii18]\nUnicode problem. Sometimes when we input some Chinese Character \nMS-Work can disappear it, but FWH\'s AP appear \'?\' problem for me. \nSo I intall Free Unicode tools from site( I gorgot ) to solve this problem. \nNow, I input any Chinese character no problem[/quote:1yibii18]\n\nCool, I think what I need now is this unicode tool, could you provide more information for me to get this tool?','',0,'gA==','1yibii18',1,0,'',980,0,0),(28227,6318,6,694,0,'200.189.112.21',1173923722,1,0,1,1,1,1,'','Mesmo problema','Amigo, estou com o mesmop problema!\nExatamente o mesmo problema!\n\n\nAokisantos','',0,'gA==','2ou5k8mf',1,0,'',694,0,0),(28228,6330,6,694,0,'200.189.112.21',1173923813,1,0,1,1,1,1,'','TWBROWSE com FWH7.1','amigos, usando a TWBROWSE versão 1.7, com o FWH7.1, a usar a barra de rolagem a tela fica preta.\n\nAlguem tem a solução?\n\nAokisantos','',0,'gA==','4elgz2k4',1,0,'',694,0,0),(28229,6323,3,529,0,'200.159.198.92',1173924115,1,0,1,1,1,0,'','','Enrico, thanks.','',0,'gA==','18msq8fb',1,0,'',529,0,0),(28230,6323,3,303,0,'72.199.41.171',1173926692,1,0,1,1,1,0,'','','Nop,\n\nBe sure to check out the new security issues with writing to the registry under Vista. Here is a good place to start:\n\n<!-- m --><a class=\"postlink\" href=\"http://windowsconnected.com/blogs/jerry/archive/2005/12/19/86.aspx\">http://windowsconnected.com/blogs/jerry ... 19/86.aspx</a><!-- m -->\n\nJames','',0,'gA==','1gnzerq7',1,0,'',303,0,0),(28231,6331,6,760,0,'200.37.76.91',1173926692,1,0,1,1,1,0,'','sbrowse y tdbf a 32 bits','Estoy tratando de migrardo mis aplicaciones a 32 bits y mis dudas son si el sbrowse que de tengo y el tdbf12 de 16 bits, funcionaran con el fwh2.4?\n\nSi no es asi donde puedo consegui estas dos librerias pero a 32 bits, por favor, estas dos librerias uso en casi el 50% de mis aplicaiones a 16 bits...\n\nSalu2','',0,'gA==','1gnzerq7',1,0,'',760,0,0),(28232,6307,3,303,0,'72.199.41.171',1173926868,1,0,1,1,1,0,'','','Richard,\n\n&gt;I am working on this at the moment, i have a brand new laptop (Vista). Our software uses a protection with Ini files in windows directory. We start facing the problems and plan to move to other extension than \"ini\" \n\nThere is a discussion of some of the problems with INI files under Vista here:\n\n<!-- m --><a class=\"postlink\" href=\"http://windowsconnected.com/blogs/jerry/archive/2005/12/19/86.aspx\">http://windowsconnected.com/blogs/jerry ... 19/86.aspx</a><!-- m -->\n\nI hope it helps.\n\nJames','',0,'gA==','l0nm7id4',1,0,'',303,0,0),(28233,6332,6,976,0,'165.98.139.66',1173928922,1,0,1,1,1,0,'','Probando List &amp; Label 12','JoseLuis,\n\nYa tengo el programita de prueba para usar List &amp; Label con FWH, lo modifiqué del ejemplo originalmente diseñado para xBase++\n\nSi te interesa, envíame tu correo.\n\nSaludos.','',0,'gA==','vj0diq3k',1,0,'',976,0,0),(28234,6256,6,838,0,'80.34.222.112',1173945376,1,0,1,1,1,0,'','','Hola Jairo\n\nLo he probado y es fantástico.\n\nEstaba atascado, y me das pistas para continuar\n\nGracias y saludos\n\nJoe Luis','',0,'gA==','1pw2xnyg',1,0,'',838,0,0),(28235,6317,6,519,0,'88.26.2.42',1173946879,1,0,1,1,1,0,'','','Gracias Carlos , cuando puedas pones un ejemplo aqui en el foro\n\n\n    un saludo','',0,'gA==','rjn11o66',1,0,'',519,0,0),(28236,6333,3,51,0,'80.122.88.242',1173947122,1,0,1,1,1,0,'','store/restore parts of the screen','Could someone please help?\nThanks in advance\nOtto','',0,'gA==','19opayu4',1,0,'',51,0,0),(28237,6320,4,456,0,'217.127.39.57',1173947214,1,0,1,1,1,1,'','','Osvaldo, do you have the last version of ActiveSync. If not, uptdate to last version, probably will solve your problem.','',0,'gA==','30qnc2b8',1,0,'',456,0,0),(28238,6333,3,6,0,'82.57.159.122',1173948473,1,0,1,1,1,1,'','Re: store/restore parts of the screen','You should not need to save/restore screen under Windows (or any other GUI).\n\nWhat do you want to achieve, exactly?\n\nEMG','',0,'gA==','31dkk6t9',1,0,'',6,0,0),(28239,6332,6,838,0,'80.34.222.112',1173950602,1,0,1,1,1,0,'','','Muchas gracias Jairo\n\nTe he enviado mi correo\n\nSaludos\n\nJose Luis','',0,'gA==','21ur1aed',1,0,'',838,0,0),(28240,6321,7,720,0,'80.36.244.134',1173950816,1,0,1,1,1,0,'','','Hola Antonio, me falla cuando hago lo siguiente:\n\nTodo el codigo anterior pertecene a una seccion del programa llamada configuración. El tema es que cuando entro por primera vez a esta seccíón (se muestran todas las pestañas) funciona perfectamente, realizo cualquier cambio (o no) y salgo para meterme en otra sección fuera de la configuración. Hasta aqui todo correcto. Entonces si vuelvo a entrar en esta sección de configuración por segunda vez,cuando llego a la pestaña nº 7 es cuando me da el error. Nose si me he explicado...\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','lye5qfix',1,0,'',720,0,0),(28241,6321,7,2,0,'87.218.146.247',1173953585,1,0,1,1,1,1,'','','Elías,\n\nEntendido, y cual es el error exacto que te aparece ?','',0,'gA==','34esdpnm',1,0,'',2,0,0),(28242,6334,3,15,0,'203.70.52.83',1173953592,1,0,1,1,1,0,'','Who can do it? Tree into Browse','Hello\n\nWho can do it or any good idea?\n\nLook Jpg file and Browse data.\n<!-- m --><a class=\"postlink\" href=\"http://www.es.com.tw/image/projquote.jpg\">http://www.es.com.tw/image/projquote.jpg</a><!-- m -->\n\nRegards,\n\nRichard','',0,'gA==','1xa7ct49',1,0,'',15,0,0),(28243,6321,7,720,0,'80.36.244.134',1173954008,1,0,1,1,1,0,'','','Antonio, el error que me da es exactamente este:\n\n\nAlias does not exist\nDEFINICIONES\nstack calls:\n(b)CONFIGURACION(705)\nTWBROWSE:DRAWSELECT(0)\n(b)TWBROWSE(0)\nTWBROWSE:LOSTFOCUS(0)\nTWBROWSE:KILLFOCUS(0)\nTCONTROL:HANDLEEVENT(0)\nTWBROWSE:HANDLEEVENT(0)\n_FWPPC(0)\nMSGINFO(0)\nSHOWERROR(0)\n(b)ERRORSYS(0)\n(b)CONFIGURACION(705)\nTWBROWSE:DRAWSELECT(0)\n(b)TWBROWSE(0)\nTWBROWSE:GOTFOCUS(0)\nTWINDOW:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nTWBROWSE:HANDLEEVENT(0)\n_FWPPC(0)\nSETFOCUS(0)\nTDIALOG:GOTFOCUS(0)\nTWINDOW:HANDLEEVENT(0)\nTDIALOG:HANDLEEVENT(0)\n_FWPPC(0)\nSETFOCUS(0)\nTDIALOG:SETFOCUS(0)\nTFOLDER:SETOPTION(0)\nTFOLDER:NOTIFY(0)\nTWINDOW:NOTIFY(0)\nTWINDOW:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nMAIN(109)\n\Z\n\nSaludos\n\nElías Torres.','',0,'gA==','1bdhs3lw',1,0,'',720,0,0),(28244,6335,6,988,0,'213.4.13.168',1173955954,1,0,0,1,1,0,'','Oferta de Trabajo FiveWin for Harbour/xHarbour','Conocida empresa, fabricante de programas de gestión para la Pyme, busca PROGRAMADORES con conocimientos de las herramientas FiveWin/Harbour.\n\nSe valorarán también conocimientos o experiencia de otras tecnologías.\n\nLas oficinas y por ello el puesto de trabajo está ubicado en Madrid.\n\nRetribución a convenir según valía y conocimientos.\n\nInteresados enviar CV y datos de contacto a: <!-- e --><a href=\"mailto:rrhh@infoser.es\">rrhh@infoser.es</a><!-- e --> ó bien ponerse en contacto con nuestra empresa a través del teléfono 91.381 21 91 y preguntar por Ana.','',0,'gA==','2bq1pboy',1,0,'',988,0,0),(28245,6304,6,217,0,'200.159.120.34',1173957685,1,0,1,1,1,0,'','Re: Maurilio Viana','Olá!\n\nEu raramente entro no MSN, mas você pode me encontrar no Skype pelo nome mau.viana\n\n[ ]\'s\nMaurilio','',0,'','1sqc9r84',1,0,'',217,0,0),(28246,6336,6,196,0,'190.48.195.185',1173960359,1,0,1,1,1,0,'','Documentacion HBOle.lib','Hola.\nAlguien tendra documentacion de esta .lib?\n\nGracias\nJorge Jaurena','',0,'','brn7tcc3',1,0,'',196,0,0),(28247,6337,3,707,0,'125.163.98.0',1173960639,1,0,1,1,1,0,'','How to play multimedia files with FWH','Hi all !\n\nPlease help me, for this subject !\n\nThank\'s for help\n\nRegards\nAreang','',0,'','11zgxru8',1,0,'',707,0,0),(28248,6338,6,362,0,'200.168.52.156',1173961653,1,0,1,1,1,1,'','Controlar Volumen/Sonido és posible?','Buenas,\n\nAmigos, és posible controlar el volumen, intensidad del sonido, VIA CODIGO?\n\nDe una WAVE o MP3?\n\nRegards, saludos','',0,'','3jpz6esd',1,0,'',362,0,0),(28249,6339,6,105,0,'200.72.140.34',1173962882,1,0,1,1,1,1,'','Bitmap Transparente sobre Brush ?','Hola a todos...\n\nAlguien habra conseguido poner un Bitmap transparente sobre una window con un Brush ?\n\nGracias de antemano\n\nDesde Chile\nAdolfo','',0,'','26231gqr',1,0,'',105,0,0),(28250,6340,3,105,0,'200.72.140.34',1173962963,1,0,1,1,1,1,'','Transparent Bitmap over a brush ?','Hi everybody.\n\nHow can I put a Transparent Bitmap over a window with a brush ?\n\nThanks in advance\n\nFrom Chile\nAdolfo','',0,'','wmlll776',1,0,'',105,0,0),(28251,6336,6,960,0,'217.12.16.49',1173963176,1,0,1,1,1,0,'','','Echa un vistazo a tu email, adjunto te lo envio en formato DOC','',0,'','3gdt57u9',1,0,'',960,0,0),(28252,6341,3,3,0,'82.124.243.201',1173963536,1,0,1,1,1,1,'','OT UESTUDIO','Hello\n\nI am setting up my UESTUDIO\n\nWhen i generate the project, i get the following\n\nFatal: Unable to open file \'GTNUL.LIB\'\n\nDoes anyone know where this comes from and how to fix ? \nWhat is GTNUL.LIB  ?\n\nThanks for your help\n\nRichard','',0,'','2trbp1sj',1,0,'',3,0,0),(28253,6341,3,2,0,'87.218.146.247',1173965448,1,0,1,1,1,1,'','','Richard,\n\nWhat UEStudio config files are you using ?\n\nPlease review c:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\harbour\\\n\nthere should be a file there, edit it and change GTNUL.lib into GTGUI.lib','',0,'','33l9edrk',1,0,'',2,0,0),(28254,6186,3,103,0,'201.8.73.33',1173965720,1,0,1,1,1,1,'','','Hi Rick,\n\n   At the moment we don\'t have a MS SQL conversion, but it is in our plans as soon as possible. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nBest Regards,','',0,'','2wz6cesp',1,0,'',103,0,0),(28255,6305,1,981,0,'74.56.149.181',1173966212,1,0,1,1,1,0,'','Re: exetype','[quote=&quot;rwilson&quot;:2katfe8x]Hi all \n\nI am Richard  and l work with clipper 5.3, bilnker 4.1 fw 2.1 and l want to make\nexetype 95, 98, nt or 2000. It just work with 3.1. What canl do\n\nWhen l try with 95 or 95 the system told me this application is not take in charge by windows\n\nWhen l try with 2000 relesse is not enough recently need windows 3.0 or more\n\nWhen l try with NT blinker told me that nt does not exist[/quote:2katfe8x]\n\nl try this with window 98 xp nd 2003','',0,'gA==','2katfe8x',1,0,'',981,0,0),(28256,6342,6,774,0,'200.72.202.178',1173967213,1,0,1,1,1,1,'','PARA ANTONIO / RENE','Adaptación de su código fuente C:\nHarbour necesita realizar pequeños cambios en sus ficheros de desarrollo C. Proporcionamos una utilidad llamada TOOLS\\Clp2Harb.exe que realiza automáticamente dichos cambios. Clp2Harb.exe es una pequeña aplicacion de Harbour (se proporcionan sus fuentes).\n\nClp2Harb.exe se debe ejecutar antes de compilar sus fichero C:\n\nClp2harb.exe crea un fichero de salida con el nombre dado como segundo paramentro, con los cambios ya realizados. Después ejecute bcc32.exe de Borlando con la instrucción siguiente:\n\nbcc32 -c TEMP\\YourFile.c\n\n\nA Q SE REFIERE ESTO ESPECIFICAMENTE,,, \n\n\nGRCIAS','',0,'gA==','1f1jinmc',1,0,'',774,0,0),(28257,6343,3,529,0,'200.159.198.129',1173967377,1,0,1,1,1,0,'','Disable print screen','HI, theres any way to disable print screen, i remember in fw (old versions), this is works, but with fwh and last windows i dont know...\nthanks','',0,'gA==','264dydpv',1,0,'',529,0,0),(28258,6337,3,267,0,'200.208.238.2',1173967468,1,0,1,1,1,1,'','','Hi areang,\n\nSee samples\\testvid*.prg .and. samples\\media.prg','',0,'gA==','tfnqwc0e',1,0,'',267,0,0),(28259,6341,3,3,0,'82.124.243.201',1173967473,1,0,1,1,1,1,'','','Antonio\n\nThanks i did it after writing, now i have a final error\n\nFatal: Too many MAP file names: fivehx.lib\n\nI have been through this long time ago ( i have quited borland few years ago now...) but i do not remember the solution. I think it had to do with a link switch \n\nAny help ?\n\nThanks in adavance\n\nRichard','',0,'gA==','1d4skatm',1,0,'',3,0,0),(28260,6329,6,774,0,'200.72.202.178',1173967505,1,0,1,1,1,1,'','','Hola ....','',0,'gA==','1eqceu1n',1,0,'',774,0,0),(28261,6344,6,694,0,'200.189.112.21',1173969185,1,0,1,1,1,1,'','Antonio, Called from CALLDLL(0)','Antonio que erro é esse:\n\n\nHARBOUR EXECPETION:\n\nCalled from CALLDLL(0)\nCalled from GETDSKTP32(0)\nCalled from LOADIMAGE2(164)\nCalled from Timage:loadimage(112)\nCalled from Timage:reload(0)\nCalled from _eval(0)\nCalled from Timage:loadbmp(0)\n\nFWH7.1 + XHARB 99.71','',0,'gA==','145zt9ls',1,0,'',694,0,0),(28262,6341,3,2,0,'87.218.146.247',1173973127,1,0,1,1,1,1,'','','Richard,\n\nYou have an extra \",\" or a missing \",\" in your UEStudio config file','',0,'gA==','33vyc4gn',1,0,'',2,0,0),(28263,6340,3,2,0,'87.218.146.247',1173973269,1,0,1,1,1,1,'','','Adolfo,\n\nUse the clause TRANSPARENT when creating the bitmap:\n\n@ ..., ... BITMAP ... TRANSPARENT\n\nor \n\nREDEFINE BITMAP ... TRANSPARENT','',0,'gA==','3vlijcfe',1,0,'',2,0,0),(28264,6305,1,2,0,'87.218.146.247',1173973349,1,0,1,1,1,1,'','','Richard,\n\nPlease make a ZIP file with your EXE and email it to me, thanks','',0,'gA==','ysmbru5f',1,0,'',2,0,0),(28265,6344,6,2,0,'87.218.146.247',1173973486,1,0,1,1,1,1,'','','GETDSKTP32() and LOADIMAGE2() are yours ?\n\nIf yes, please show their source code, thanks','',0,'gA==','3pad2msu',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (28266,6342,6,2,0,'87.218.146.247',1173973591,1,0,1,1,1,1,'','','Los ficheros en C de FiveWin no usan la nomenclatura HB_FUNC() sino la tradicional de Clipper (CLIPPER ...). Igualmente no usan el prefijo hb_... en las llamadas a las funciones del \"extend system\", por eso proporcionamos una utilidad Cll2Harb.exe que los corrige para poder compilarlos con Harbour','',0,'gA==','2ign0emq',1,0,'',2,0,0),(28267,6339,6,2,0,'87.218.146.247',1173973673,1,0,1,1,1,1,'','','Adolfo, \n\nUsa la claúsula TRANSPARENT al crear el bitmap: \n\n@ ..., ... BITMAP ... TRANSPARENT \n\no \n\nREDEFINE BITMAP ... TRANSPARENT','',0,'gA==','29t8emkn',1,0,'',2,0,0),(28268,6321,7,2,0,'87.218.146.247',1173973813,1,0,1,1,1,1,'','','Elías,\n\nEn alguna parte de tu código debes estar reusando esa área de trabajo ó cerrándola.\n\nLlama a MsgInfo( Select( \"DEFINICIONES\" ) ) antes de entrar en esa función y comprueba que te muestre un valor distinto a cero','',0,'gA==','2j8f86l8',1,0,'',2,0,0),(28269,6290,6,486,0,'200.184.85.3',1173974028,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1uqjbq3t]Alfonso,\n\n* ¿FWH funciona bajo Windows Vista? \n\nSí, perfectamente[/quote:1uqjbq3t]\n\nUsando ADS/LOCAL funciona ?','',0,'gA==','1uqjbq3t',1,0,'',486,0,0),(28270,6321,7,720,0,'80.36.244.134',1173976235,1,0,1,1,1,0,'','','Antonio, \nhe puesto lo que me comentas antes de la función Configuración() y me muestra un cero. He probado a abrir las tablas dentro de la función Configuración() con un Select 1 en vez de Select 0 para cambiar el área de trabajo pero me sigue dando el mismo error. Lo que no entiendo es si al hacer un close databases (como hago al entrar en dicha función) no me debe cerrar TODAS las tablas y áreas de trabajo?.\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','14nbdv6v',1,0,'',720,0,0),(28271,6342,6,774,0,'200.72.202.178',1173976557,1,0,1,1,1,1,'','','antonio,  y como la aplico\n\nenseñame\n\nGRACIAS','',0,'gA==','1gz2aw1a',1,0,'',774,0,0),(28272,6345,6,774,0,'200.72.202.178',1173976695,1,0,1,1,1,1,'','AL TODOS EN EL FORO','alguien me podria decir cual es la mejor clases para aplicar en relacion a barras de botones,, y  lo otros alguien tiene un ejemplo de barra de botones degradada,, \n\n\nGRACIAS','',0,'gA==','24q3iduo',1,0,'',774,0,0),(28273,6333,3,51,0,'80.122.88.242',1173977235,1,0,1,1,1,0,'','','Hello Enrico,\nI need an undo function on painting lines.\n\nPlease have a look at:\n<!-- m --><a class=\"postlink\" href=\"http://www.winhotel.net/1plan5/\">http://www.winhotel.net/1plan5/</a><!-- m -->\n(press  mouse-button and keep it down )\n\n\nIn this case I use asp and js but I need the same in FW.\n\nOtto','',0,'gA==','3nlfkbaf',1,0,'',51,0,0),(28274,6344,6,694,0,'200.189.112.21',1173979164,1,0,1,1,1,1,'','antonio','Antonio, imagino que elas sejam da CLASSE IMAGE (FREEIMAGE.DLL)\n\nEu tinhas o arquivo FREEIMAG.DLL na pasta do meu sistema, percebi que na pasta do FWH71 tem FREEIMAGE.DLL, mudei mais mesmo assim esta dando o erro.\n\nAntonio sera que é alguma dessas configurações:\n\nhBor       := Loadlib32(\"Bwcc32.dll\")\nBwccRegister( GetResources() )\n\nDLL32 FUNCTION BWCCRegister(hinst AS LONG) AS WORD PASCAL LIB \"BWCC32.DLL\"\n\nProcedure AppSys\nreturn\n\n\n#pragma BEGINDUMP\n#include \"hbapi.h\"\n#include \"hbapiitm.h\"\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\nreturn pDynSym-&gt;pSymbol;\n}\n#pragma ENDDUMP','',0,'gA==','1v8l34zb',1,0,'',694,0,0),(28275,6344,6,694,0,'200.189.112.21',1173980268,1,0,1,1,1,1,'','RESOLVIDO','Antonio, RESOLVIDO....  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\ndesculpe-me, no FWH.25 eu tinha anexado ao meu maker o arquivo image.prg, tirei ele e passei a usar a FREEIMAGE.DLL do fwh7.1, e funcionou OK. \n\nMUITO OBRIGADO E DESCULPE-ME\n\nAOKISANTOS','',0,'gA==','2ykqrkxv',1,0,'',694,0,0),(28276,6333,3,6,0,'87.17.213.35',1173981031,1,0,1,1,1,1,'','','You don\'t have to save/restore screen. Instead you have to use a control that knows how to repaint itself. This is the basics of event driven programming.\n\nIn details, the board repaints itself using a list of lines coordinates. When you remove a line really remove its coordinates from the list and then refresh the board.\n\nEMG','',0,'gA==','2346rwyr',1,0,'',6,0,0),(28277,6333,3,51,0,'80.122.88.242',1173982747,1,0,1,1,1,0,'','','A control for this as far as I know doesn’t exist.\nTherefore you have to do it yourself.\n&gt;control that knows how to repaint itself \n            How is it made inside?\nTo refresh the board if it is full of information is a time-consuming task.\nTherefore it would be better only to restore a part of the screen.\n\nOtto','',0,'gA==','b4r4sjhp',1,0,'',51,0,0),(28278,6346,7,945,0,'80.32.177.143',1173983074,1,0,1,1,1,0,'','Filtar en un listbox','Muy buenas, sabe alquien como puede hacer para que en un listbox salgan los registros de una tabla, pero que me muestren solo una vez el registro con el mismo indentificador, es decir, si mi identificador es serie+numero pues que me muestre solo un registro con ese identificador y por supuesto todos los registros con diferentes identificadores.\n\nSupongo que será con el SELECT del listbox.\nEj:\nSERIE  NUMERO FECHA\n99       99          01/06/2006\n99       99          01/07/2007\n99       01          02/06/2007\n\nMe tiene que mostrar :\nSERIE  NUMERO FECHA\n99       99          01/06/2006\n99       01          02/06/2007\n\n  \nGracias.\nUn Saludo.','',0,'gA==','2dk0220e',1,0,'',945,0,0),(28279,6333,3,6,0,'87.17.213.35',1173985068,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:3kk5spih]How is it made inside?[/quote:3kk5spih]\n\nJust use the paint event of any container.\n\n[quote=&quot;Otto&quot;:3kk5spih]To refresh the board if it is full of information is a time-consuming task.\nTherefore it would be better only to restore a part of the screen.[/quote:3kk5spih]\n\nYou can\'t. What if the board is covered by another window? It has to repaint itself.\n\nEMG','',0,'gA==','3kk5spih',1,0,'',6,0,0),(28280,6347,7,945,0,'80.32.177.143',1173985842,1,0,1,1,1,0,'','Acceder a los datos de un listbox','Muy buenas, alguien me podría decir, como puedo acceder a los datos de un listbox haciendo referencia a oTbr\n\nGracias.','',0,'gA==','2e7r6rz9',1,0,'',945,0,0),(28281,6320,4,95,0,'189.171.253.73',1173988303,1,0,1,1,1,0,'','','Antonio, \n\nYes, my client has Windows Vista and he doesnot have anyproblem.\nbut With XP, ask me the drivers.\n\n\nBield, \n\nI will try with ActiveSync...\n\nBest Regards \nOsvaldo Ramirez','',0,'gA==','142f3c7c',1,0,'',95,0,0),(28282,6321,7,2,0,'87.218.146.247',1173988366,1,0,1,1,1,1,'','','Elías,\n\nPrueba esto en vez de SELECT 0:\n\nSELECT 1 \nUSE (CURDIR() +\"\\definiciones.dbf\") VIA \"DBFCDX\" new \n...\n\nSELECT 2 // Seleccionas la siguiente\nUSE (CURDIR() + \"\\vector_ini.dbf\") VIA \"DBFCDX\" new \n...','',0,'gA==','chxdxf4t',1,0,'',2,0,0),(28283,6320,4,2,0,'87.218.146.247',1173988443,1,0,1,1,1,1,'','','Osvaldo,\n\nYou may install Windows Vista with dual boot with XP','',0,'gA==','2ue56iln',1,0,'',2,0,0),(28284,6347,7,2,0,'87.218.146.247',1173988563,1,0,1,1,1,1,'','','Te refieres a un browse ó a un listbox que usa un conjunto de elementos ?','',0,'gA==','ugffnydg',1,0,'',2,0,0),(28285,6348,6,959,0,'189.13.40.129',1173988790,1,0,1,1,1,0,'','FLEX + xHarbour + FWH - Por que não ?','Só depende da nossa imaginação !\n\nVejam que maravilha.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.bytesoftware.com.br/videos/sintegra/bytesintegra.html\">www.bytesoftware.com.br/videos/sintegra ... tegra.html</a><!-- w -->\n\nMário Saviotti Jr.','',0,'gA==','2pwwljrh',1,0,'',959,0,0),(28286,6331,6,92,0,'88.23.31.163',1173989426,1,0,1,1,1,0,'','Re: sbrowse y tdbf a 32 bits','[quote=&quot;Francis&quot;:3rodso8h]Estoy tratando de migrardo mis aplicaciones a 32 bits y mis dudas son si el sbrowse que de tengo y el tdbf12 de 16 bits, funcionaran con el fwh2.4?\n\nSi no es asi donde puedo consegui estas dos librerias pero a 32 bits, por favor, estas dos librerias uso en casi el 50% de mis aplicaiones a 16 bits...\n\nSalu2[/quote:3rodso8h]\n\nCreo que es el momento de plantearse el cambio a TDataBase en vez de TDbf.\nTDbf me ha dado mucho servicio pero creo que está descontinuada; además cuando he intentado el cambio a FWH 7.01 parece ser que el Harbour que va con él no es muy amigo de la TDbf que tengo.\n\nSaludos\nCarlos G.','',0,'gA==','3rodso8h',1,0,'',92,0,0),(28287,6333,3,51,0,'80.122.88.242',1173992961,1,0,1,1,1,0,'','','&gt;You can\'t. What if the board is covered by another window? It has to repaint itself. \nShure I have a repaint-button, too. But a window which covers another window must restore the background if you close it.\nOr am I wrong?\nOtto','',0,'gA==','gnr1q7gk',1,0,'',51,0,0),(28288,6349,6,52,0,'190.7.62.226',1173993268,1,0,1,1,1,1,'','orden de prioridades en LostFocus() bValid bChange... como e','Eso mismo.\n\nMe interesa saber como es el orden en que se ejecutan esas cosas en un get.\n\n\nredefine get oGet id...\n\noGet:Lostfocus()\noGet:Changed...\noGet:valid...\n\nGracias.','',0,'gA==','3psakbkz',1,0,'',52,0,0),(28289,6333,3,6,0,'87.17.213.35',1173996492,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:2p3cig7v]Shure I have a repaint-button, too. But a window which covers another window must restore the background if you close it.\nOr am I wrong?[/quote:2p3cig7v]\n\nYou are wrong. They are the controls in background that repaint themselves. This is how Windows works.\n\nEMG','',0,'gA==','2p3cig7v',1,0,'',6,0,0),(28290,6350,3,529,0,'200.159.198.129',1173996536,1,0,1,1,1,0,'','Documentation of init harbour','hi, someone has an documentation about init of harbour, lexical rules, fles, byson, etc... \nthanks','',0,'gA==','h5nl9y25',1,0,'',529,0,0),(28291,6337,3,707,0,'125.163.116.0',1173997577,1,0,1,1,1,0,'','','Mr. Vilian.\nThank\'s for quick reply\n\nI will test it\n\nRegards\nAreang','',0,'gA==','m0a0v4z7',1,0,'',707,0,0),(28292,6259,3,95,0,'189.171.159.213',1173997846,1,0,1,1,1,0,'','','Antonio,\n\nA veces piensa uno que el echo de compilar va a correr exactamente igual que clipper en modo consola, pero sera cuestion de aprender.\n\nPor ejemplo, al correr un simple get, usando la lib gtcrs, el cursor se queda al final del get y no avanza cuando uno va tecleando, tal vez sea asi normal.\nTambien cuando corro el ejemplo de ac_test.prg se ve todo en blanco y negro, no hay una iluminacion por default, pero de igual forma sera question de cambiar los valores por defatult.\n\nTe comento, muchas gracias, e iniciar en este nuevo mundo,\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','2q5rz492',1,0,'',95,0,0),(28293,6351,6,413,0,'217.125.9.228',1173997871,1,0,1,1,1,0,'','Algun programa cazador de recursos....','pues eso, si sabeis de algun programa que coja los recursos de un exe y me los convierta en .rc o cuando no que me obtenga los recursos en forma de ficheros(bmp, dialogos, cursores,...etc). Muchas demos que tengo tienen el codigo fuente y el exe pero no el .rc y a la hora de ejecutar el programa no es muy instructivo, y muchos de ellos son muy antiguos. Supongo que el workshop debiera hacerlo pero supongo que la version que tengo es antigua y la mayoria no me funciona con los exes a 32.\n\n\nSaludos','',0,'gA==','2x3b6mdr',1,0,'',413,0,0),(28294,6352,3,34,0,'68.5.222.61',1173998422,1,0,1,1,1,1,'','New Version','Antonio,\n\nYour most recent version is from January.  Are you planning a newer release soon ?\n\nTim <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3nsbz7mn',1,0,'',34,0,0),(28295,6329,6,774,0,'200.72.202.178',1174000997,1,0,1,1,1,1,'','','..','',0,'gA==','1lhxhpwc',1,0,'',774,0,0),(28296,6352,3,2,0,'87.218.146.39',1174001019,1,0,1,1,1,1,'','','Tim,\n\nWe may publish FWH 7.03 in a few days','',0,'gA==','342nt2vl',1,0,'',2,0,0),(28297,6259,3,2,0,'87.218.146.39',1174001135,1,0,1,1,1,1,'','','Osvaldo,\n\nNosotros es que no usamos el modo consola practicamente. \n\nUsamos el GUI de OSX, Aqua, que es realmente elegante.','',0,'gA==','2t1ds3vb',1,0,'',2,0,0),(28298,6329,6,496,0,'200.107.36.176',1174002712,1,0,1,1,1,0,'','','Mira tu correo\n\nUn saludo\n\nMarcelo Jingo','',0,'gA==','15a78a0g',1,0,'',496,0,0),(28299,6351,6,138,0,'189.141.72.59',1174006136,1,0,1,1,1,1,'','','Yo he abierto EXEs de 32 bits con el Workshop 4.5 sin ningun problema.\n\nHaz la prueba, seleccion un EXE con el Workshop y verás que se pueden abrir todos los recursos incrustado para luego generar un RC.','',0,'gA==','2hbmjpsl',1,0,'',138,0,0),(28300,6353,3,267,0,'201.9.170.161',1174008073,1,0,1,1,1,1,'','Not to move Dialog/WIndow - It has as?','How to hinder that a Window/Dialog can be moved?','',0,'gA==','fotuocnl',1,0,'',267,0,0),(28301,6333,3,138,0,'189.141.72.59',1174008422,1,0,1,1,1,1,'','','Otto:\n\nEnrico is Right !!!!!, it\'s very easy to creat a control that repaints itself from source code:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/objeto/prueba2d.exe\">http://www.google.d2g.com/objeto/prueba2d.exe</a><!-- m -->\n\nIn this sample I draw by hand a grid to later print a line graph, as you can notice, you can resize the window container and the graph will paint itself as necesary, there\'s no delay or time comsuming with it.\n\nIf you try this sample:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/objeto/test2.exe\">http://www.google.d2g.com/objeto/test2.exe</a><!-- m -->\n\nI have converted the previous code into a control code, play around with buttons and you will see how the graphs change in run time, with no speed degradation at all.\n\n\n\n, this is the sample:\n\nMaybe is what you need.','',0,'gA==','2h89lrqf',1,0,'',138,0,0),(28302,6329,6,774,0,'164.77.169.124',1174011446,1,0,1,1,1,1,'','','Muchas gracias amigo por la LIB me sera de mucha ayuda\n\nPd.  Tendrias por ahi la clase completa\n\n\nGRACIAS','',0,'gA==','1z8mdv4o',1,0,'',774,0,0),(28303,6354,6,774,0,'164.77.169.124',1174012109,1,0,1,1,1,1,'','MUNES STYLE  OFFICE 2003 Y XP','estoy usando FWH27+xharbour  \n\ncompilo con verce43\n\n\npero no he podido compilar testmenu.prg  me marca es siguiente error\n\n\nError: Unresolved external \'_HB_FUN_LIGHTCOLOR\' referenced from D:\\XDEGRA\\TESTMENU.OBJ\n\nError: Unresolved external \'_HB_FUN__COLORMENU\' referenced from D:\\XDEGRA\\TESTMENU.OBJ\n\nError: Unresolved external \'_HB_FUN__COLORSUBMENU\' referenced from D:\\XDEGRA\\TESTMENU.OBJ\n\n\n\nAYUDAAAA,, HELPPPPPPPPPP\n\nALGUIEN BAJO Y COMPILO ESTE DEMO','',0,'gA==','1b41kz9a',1,0,'',774,0,0),(28305,6356,6,307,0,'200.79.147.250',1174015892,1,0,1,1,1,0,'','foco en objeto (antonio)','Saludos, pues aqui sufriendo con FWH..  no funciona el setfocus()\ncaptura en un dialogo de facturas.....\n\nestoy capturando en un browse Tsbrowse, y cuando el articulo que capturo no existe, el foco me lo manda en el primer campo de mi dialogo!!\n\ncambio la forma de capturar y hago unos campos donde , en lugar de captura sobre el browse, lo hago fuera del browse, y al momento de grabar los datos, el foco nunca me lo regresa!.. \n\nOcodigo:Setfocus()\nle quiero poner el foco a cualquier get que se me de la gana y no lo hace..\nalgo estara mal?..., siempre he sufrido con estos detalles.\n\nexiste algun buen, pero buen browse, donde se pueda hacer una captura tipo detalle de facturas...\n\n\ngracias..\nAVS','',0,'gA==','1judsvy9',1,0,'',307,0,0),(28306,6311,6,854,0,'200.95.238.251',1174020471,1,0,1,1,1,0,'','','Ya solucionado','',0,'gA==','3csp87jh',1,0,'',854,0,0),(28307,6333,3,51,0,'80.122.88.242',1174027368,1,0,1,1,1,0,'','','Thank you Rene. These are nice samples.\n\nI the meantime I had a closer look into Pezold and read about WM_PAINT and InvalidateRect. \n\nPlease could you have a look at the topic:\nCan I change the report viewer ?\n\nIsn\'t that a heavy-duty to repaint the whole window every time you move the mouse?\n \n\nHairCross Cursor: \n\nInsert \n\noMeta1:bMMoved:={|y,x,flags|hairCross(oMeta1,y,x) } \n\nin FUNCTION RPreview( oDevice ) in rpreview.prg. \n\nfunc hairCross(oMeta1,y,x) \nnCount:=nCount+1 \nIF nCount &gt; 5 \nnCount:=0 \noMeta1:refresh() \nsysrefresh() \noMeta1:line (0,x,1800,x) \noMeta1:line (y,0,y,1500) \nENDIF \nreturn nil','',0,'gA==','27hkpptl',1,0,'',51,0,0),(28308,6353,3,6,0,'87.18.239.136',1174031475,1,0,1,1,1,1,'','Re: Not to move Dialog/WIndow - It has as?','If you want a dialog that can\'t be moved the use the following styles:\n\n[code:3benj5mg]STYLE DS_MODALFRAME | WS_POPUP | WS_DLGFRAME | WS_SYSMENU[/code:3benj5mg]\n\nEMG','',0,'AIA=','3benj5mg',1,0,'',6,0,0),(28309,6356,6,2,0,'87.218.146.39',1174032236,1,0,1,1,1,1,'','','Prueba a usar oControl:oJump := oOtroControl\n\nDe todas formas, si pones un ejemplo que podamos construir aqui, es más fácil ayudarte','',0,'AIA=','3zaiimjm',1,0,'',2,0,0),(28310,6350,3,2,0,'87.218.146.39',1174032336,1,0,1,1,1,1,'','','Nop,\n\nO\'Reilly provides a good book about Lex and Yacc (same as flex and Bison)','',0,'AIA=','3aggd76b',1,0,'',2,0,0),(28311,6346,7,945,0,'80.32.177.143',1174032593,1,0,1,1,1,0,'','No me explicado bien','Lo que me gustaría hacer es lo que se hace en un SELECT DISTINCT en SQL.\n\nGracias.\nUn Saludo.','',0,'AIA=','1dtes1x9',1,0,'',945,0,0),(28312,6346,7,2,0,'87.218.146.39',1174033271,1,0,1,1,1,1,'','','Usa un índice creado con la claúsula UNIQUE\n\n     UNIQUE specifies that the key value of each record inserted into the\n     order be unique.  Duplicate key values are not added to the order.','',0,'AIA=','1e8aaynj',1,0,'',2,0,0),(28313,6349,6,2,0,'87.218.146.39',1174033381,1,0,1,1,1,1,'','','Gustavo,\n\nUsa un LogFile( \"orden.txt\", { &lt;nombre_evento&gt; } ) en cada uno de ellos, y luego revisa el fichero \"orden.txt\"','',0,'AIA=','35vsdhkd',1,0,'',2,0,0),(28314,6345,6,2,0,'87.218.146.39',1174033480,1,0,1,1,1,1,'','','La estandard de Windows es la clase TToolBar, tienes ejemplos de uso en el directorio samples','',0,'AIA=','qs75dv88',1,0,'',2,0,0),(28316,6349,6,52,0,'190.7.62.226',1174038977,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2l5p8c6v]Gustavo,\n\nUsa un LogFile( \"orden.txt\", { &lt;nombre_evento&gt; } ) en cada uno de ellos, y luego revisa el fichero \"orden.txt\"[/quote:2l5p8c6v]\n\n\nEsa no la sabia gracias','',0,'gA==','2l5p8c6v',1,0,'',52,0,0),(28319,6351,6,413,0,'194.106.16.43',1174040067,1,0,1,1,1,0,'','','Gracias Rene es lo primero que prove pero como bien he dicho algo falla en el workshop 4.5, no todos los exe 32 funcionan, muchos sobre todo me dan fallo al abrir los cursores y ya no puedo seguir, pero bueno investigando por internet como bien dice Antonio he conseguido uno que por lo menos me recupera los recursos en forma de fichero el Resource Tuner, que aunque es una version demo me ha funcionado y me ha recuperado todo en forma de ficheros, si alguien se le ocurre algo mejor que lo diga por favor.','',0,'gA==','1qzc2sme',1,0,'',413,0,0),(28320,6354,6,36,0,'200.113.56.235',1174051511,1,0,1,1,1,0,'','','Debes enlazar tambien \n\n[b:xm9wj8bj]     GradFill.C[/b:xm9wj8bj]\n\nahi estan esas funciones\n\nSaludos\nPatricio','',0,'QA==','xm9wj8bj',1,0,'',36,0,0),(28321,6354,6,854,0,'200.95.238.251',1174054362,1,0,1,1,1,0,'','','Patricio\n\nEl detalle es que cuando descargar no tienes todos los archivos necesarios para compilar.\n\nYo lo estube intentando y nada, me decia que hacian falta alguno archivos que en ese archivo .C los llama.','',0,'QA==','6py4s78n',1,0,'',854,0,0),(28322,6354,6,774,0,'200.72.102.41',1174055078,1,0,1,1,1,1,'','','Gracias patricio ahora compilo sin errores\n\npero no se ven los bmp,, rebice la descarga y faltan todos los bmp \n\nlos tendras por ahi o la instalacion completa\n\nGRACIAS\n\n[/list]','',0,'','2ogs6lid',1,0,'',774,0,0),(28323,6354,6,854,0,'200.95.238.251',1174055851,1,0,1,1,1,0,'','','A&amp;C\n\nSi me podras mandar tus archivos para que pueda compilar.\n\nGracias.','',0,'','2u7a2ww4',1,0,'',854,0,0),(28324,6353,3,267,0,'201.9.146.55',1174057738,1,0,1,1,1,1,'','','Enrico,\n\nIt did not function! I made thus: \n\n[code:22f91r6z]  DEFINE DIALOG oDlg RESOURCE &quot;PESQUISA&quot; BRUSH oBrush;\n      STYLE DS_MODALFRAME | WS_POPUP | WS_DLGFRAME | WS_SYSMENU[/code:22f91r6z]\n\nIt is certain?','',0,'AIA=','22f91r6z',1,0,'',267,0,0),(28325,6353,3,6,0,'87.20.230.243',1174058352,1,0,1,1,1,1,'','','If your dialog is from resources then you have to set that styles in the RC or RES file.\n\nEMG','',0,'AIA=','ecmpii99',1,0,'',6,0,0),(28326,6348,6,106,0,'85.34.123.173',1174059966,1,0,1,1,1,1,'','','Muy buena grafica. \n\n\nFelicidades!!!','',0,'AIA=','2y9lzcxb',1,0,'',106,0,0),(28327,6351,6,131,0,'83.32.118.39',1174061522,1,0,1,1,1,0,'','','Creo que lo que buscas es ResHacker \n<!-- m --><a class=\"postlink\" href=\"http://www.angusj.com/resourcehacker/\">http://www.angusj.com/resourcehacker/</a><!-- m -->\n\nSaludos,','',0,'AIA=','21wxcd1s',1,0,'',131,0,0),(28328,6351,6,138,0,'148.233.151.30',1174062126,1,0,1,1,1,1,'','','hace tiempo yo usaba uno llamdo Resource Xcavator, muy bueno para recursos graficos (cursores iconos y bitmaps), no te vale para los dialogos, pero miratelo con google.\n\ntambien puedes usar el resource builder de <!-- w --><a class=\"postlink\" href=\"http://www.sicomponents.com\">www.sicomponents.com</a><!-- w -->','',0,'AIA=','28s37lim',1,0,'',138,0,0),(28329,6360,3,303,0,'72.199.41.171',1174062735,1,0,1,1,1,0,'','TGet and bChange','I found that in the FWH 2.7 Aug 2006 build, the location of the eval of bChange in the TGet:keyChar() method was changed from a previous version (Feb 2006). It was moved below the code that rejects new keystrokes. Now if your bChange function returns .f. the keystroke still gets accepted--before it got rejected. You can test this with the code below. It should reject all keystrokes. \n\nHas the location of the eval of bChange been returned to it\'s original location in newer versions of FWH? If not, why was it moved, and can we resolve both issues somehow? I really need to be able to reject keystrokes like when doing incremental searches.\n\nJames\n\n\n[code:229ev1tp]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg, oGet, cVar&#58;=space&#40;10&#41;\n\n   define dialog oDlg title &quot;Test bChange&quot;\n\n   @5,5 get oGet var cVar of oDlg update;\n      on change test&#40;nKey,nFlags,oGet&#41; pixel\n\n   activate dialog oDlg center\n\nreturn nil\n\n\nfunction test&#40;nKey,nFlags,oGet&#41;\nreturn &#46;f&#46;[/code:229ev1tp]\n\n.','',0,'AIA=','229ev1tp',1,0,'',303,0,0),(28330,6317,6,222,0,'150.188.30.10',1174063015,1,0,1,1,1,0,'','Sobreescribir Método','PROCEDURE tDialog_Modify()\n  OVERRIDE METHOD Help95 CLASS tDialog WITH MyHelp95\nRETURN \n*============================================\n#define GWL_EXSTYLE      -20\n#define WS_EX_CONTEXTHELP   1024\nStatic Function MyHelp95()\n   Local Self:=qSelf()\n   if ::lHelpIcon == NIL\n      ::lHelpIcon := .f.\n   endif\n\n   if ::lHelpIcon\n      SetWindowLong( ::hWnd, GWL_EXSTYLE,;\n                              nOr( GetWindowLong( ::hWnd,GWL_EXSTYLE ),;\n                                     WS_EX_CONTEXTHELP ) )\n\n   endif\n\nreturn nil\n*============================================','',0,'AIA=','1o5dkrur',1,0,'',222,0,0),(28331,6360,3,6,0,'87.20.230.243',1174064996,1,0,1,1,1,1,'','Re: TGet and bChange','I confirm the problem, although I never used that feature so far.\n\nEMG','',0,'AIA=','32670740',1,0,'',6,0,0),(28332,6361,6,812,0,'200.83.125.109',1174065504,1,0,1,1,1,0,'','FAVOR URGENTE','Hola Amigos: \n\nAlguien me puede indicar, de donde puedo bajar la TwBrowse de Hernan y lo que necesito para implementarla. \n\nFWH7.00 - xHarbour 0.99.71 - BCC5.5\n\nSil alguien ma la puede envia a \"marf2@tutopia.com\"\n \n\nSaludos, \n\nMiguel','',0,'AIA=','3upiicvd',1,0,'',812,0,0),(28333,6362,6,785,0,'190.64.224.39',1174066865,1,0,1,1,1,0,'','SysTabControl32+ Enter','Amigos:\n\nEn un  folder tengo un checkbox, para pasar al control siguiente \ndebo apretar la tecla TAB, PERO en los dialogos SI pasa de control\nen control con Enter\n\nDeseo pasar de control en control con la tecla Enter en folder\n\nSe puede ?.\n\nGracias\n\nRuben Fernandez.\nFWH2.8, Harbour','',0,'AIA=','2nggsuwj',1,0,'',785,0,0),(28334,6352,3,34,0,'68.5.222.61',1174068249,1,0,1,1,1,1,'','New Version','OK ... I\'ll order it when its up.','',0,'AIA=','86r6lqtz',1,0,'',34,0,0),(28335,6315,3,148,0,'82.201.251.113',1174069264,1,0,1,1,1,0,'','','Look to the top left corner and see the overlaping of fields .\n[img:352jwfqp]http&#58;//img361&#46;imageshack&#46;us/img361/5586/errorse6&#46;png[/img:352jwfqp][/img]','',0,'CA==','352jwfqp',1,0,'',148,0,0),(28336,6325,3,148,0,'82.201.251.113',1174070955,1,0,1,1,1,0,'','','I want to ask this from a lot of years. Which is more powerfull ?\nFoxPro OR Harbour OR Visual Object Or others Xbase langauges . Which has no limit of any module capability ?\nPlease Antonio do not stand beside your product I need honest answer.\nThanks','',0,'CA==','rzrkk1vr',1,0,'',148,0,0),(28337,6354,6,940,0,'189.157.88.221',1174073983,1,0,1,1,1,1,'','','los bmp (S)  son los de fwh\\bitmaps','',0,'CA==','17al7jc6',1,0,'',940,0,0),(28338,6317,6,110,0,'165.98.223.30',1174073990,1,0,1,1,1,1,'','','ops.\ndisculpa, se me olvido\n\nsalu2\ncarlos vargas\n\nal inicio de tu aplicacion llama al procedimiento OverrideAndExtend\n\n[code:15toota2]\nfunction main&#40;&#46;&#46;&#46;&#41;\n\n   &#46;&#46;&#46;\n   /*sobreescritura y extencion de metodos*/\n   OverrideAndExtend&#40;&#41;\n   &#46;&#46;&#46;\n\nreturn nil\n\n[/code:15toota2]\n\n[code:15toota2]\nPROCEDURE OverrideAndExtend&#40;&#41;\n\n    OVERRIDE METHOD DispBegin IN CLASS TWindow WITH KDispBegin\n    OVERRIDE METHOD DispEnd   IN CLASS TWindow WITH KDispEnd\n\n    EXTEND CLASS TFOLDER  WITH METHOD RefreshPages\n    EXTEND CLASS TFOLDER  WITH METHOD GoFirstControl\n    EXTEND CLASS TDIALOG  WITH METHOD RefreshDialog\n\n    EXTEND CLASS TPRINTER WITH METHOD Cm2Pix\n\nRETURN\n\n[/code:15toota2]\n\n[code:15toota2]\n/*----------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION KDispBegin&#40;&#41;\n\n    LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n\nRETURN SELF\n\n/*----------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION KDispEnd&#40;&#41;\n\n    LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n\nRETURN NIL\n\n/*----------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION RefreshDialog&#40; nPos &#41;\n    LOCAl Self &#58;= HB_QSelf&#40;&#41;\n\n    aeval&#40; &#58;&#58;aControls, &#123; |oCtrl| oCtrl&#58;Refresh&#40;&#41; &#125; &#41;\n    &#58;&#58;aControls&#91; nPos &#93;&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n\n/*----------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION RefreshPages&#40;&#41;\n    LOCAl Self &#58;= HB_QSelf&#40;&#41;\n    LOCAL oPage\n\n    FOR EACH oPage IN &#58;&#58;aDialogs\n        aeval&#40; oPage&#58;aControls, &#123; |oCtrl| oCtrl&#58;Refresh&#40;&#41; &#125; &#41;\n    NEXT\n\nRETURN NIL\n\n/*----------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION GoFirstControl&#40;&#41;\n    LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n\n    &#58;&#58;aDialogs&#91;1&#93;&#58;aControls&#91;1&#93;&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n\n/*----------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION Cm2Pix&#40;nCm&#41;\n    LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n\n    IF ValType&#40; &#58;&#58;nXOffset &#41; == &quot;U&quot;\n        &#58;&#58;nXoffset &#58;= 0\n    ENDIF\n\n    nPix &#58;= Max&#40; 0, &#40; nCm * 10 * &#58;&#58;nHorzRes&#40;&#41; / &#58;&#58;nHorzSize&#40;&#41; &#41; - &#58;&#58;nXoffset &#41;\n\nRETURN nPix\n\n/*----------------------------------------------------------------------------------*/\n[/code:15toota2]','',0,'AIA=','15toota2',1,0,'',110,0,0),(28339,6325,3,171,0,'71.232.193.197',1174074321,1,0,1,1,1,0,'','','Ehab,\n\nFor me this the *only* that I need to develop windows xp applications.\n\na) xHarbour builder \nb) Fivewin for harbour\nc) Multi-edit\nd) Workshop ( yes the old one)\ne) Advantage database driver\n\nRegards,\n\nGeorge','',0,'AIA=','36gy1eg7',1,0,'',171,0,0),(28340,6363,7,579,0,'200.76.189.223',1174075794,1,0,1,1,1,1,'','Programa para verificar compatibilidad','Existe algun programa o ejemplo que se le pueda pasar a un cliente para que al correrlo sepa que cualquier sistema que creemos en FWPPC será compatible con sus PocketPC/SmartPhone?\n\nEsto es que verifique si la versión de Windows es compatible, al igual que el procesador, la resolución en pantalla, la apertura de archivos, etc.\n\nVeo que a diferencia de las PCs, hay muchos tipos de hardware y versiones de Windows para estos juguetes y para el usuario final le es dificil saber si su procesador y windows es compatible con el sistema que les entregaremos finalmente, entonces, antes de venderles, me gustaría enviarles un pequeño programa que verifique si finalmente les funcionará el sistema.','',0,'AIA=','34oro5fj',1,0,'',579,0,0),(28341,6358,6,940,0,'189.157.88.221',1174076212,1,0,1,1,1,1,'','0.k.','Para los que estamos de este lado del charco, ahi les va el costo.\n\nel curso mas varato:  420 (euros )  equivalente a 559.552 (dolar US)\n\nMultiplicados ( X 11 pesos mexicanos  ) \n\nel costo en pesos mexicanos del curso mas varato es: de $ 6,155.072 + iva\n\n\nel paquete completo : 2,970. (euros) equivalente a 3,956.83 ( dolar US )\nMultiplicados (x 11 pesos mexicanos )\n\nel costo en pesos mexicanos del paquete completo es: $ 43, 525.13 + iva.\n\nA esto hay que agregarle,  viaticos de traslado, estancia en el hotel,\nalmuerzo , comida y cena,\ny agregale una que otra acompañante .\n\npor cierto mas o meno como eso pague por el enganche de una casa.\n\n\n\nsaludos ahi estaremos..','',0,'AIA=','3hv289tm',1,0,'',940,0,0),(28342,6363,7,138,0,'189.141.72.59',1174076260,1,0,1,1,1,1,'','','Rodolfo:\n\nSin animo de pecar de simple:\n[code:2tr5bdup]\nFunction Main\n   MsgInfo&#40;&quot;Si usted esta viendo este mensaje&quot;+\n                CRLF+;\n               &quot;Su PDA puede ejecutar nuestro programa&quot;,\n               &quot;Mensaje de Compatibiliad&quot;&#41;\nRETURN[/code:2tr5bdup]\n\nY listo... si este programita corre,  cualquier cosa hecha en FWPPC correra en ese Pocket, si no corre.... pus no....\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','2tr5bdup',1,0,'',138,0,0),(28343,6363,7,579,0,'200.76.189.223',1174076877,1,0,1,1,1,1,'','','Pues si, se que eres un pecador irremediable, pero con esa prueba no puedo saber si aceptará, por ejemplo, abrir varias veces el mismo archivo (WM3/WM5) y si las ventanas que diseñe cabrán en su pantalla y no se me ocurre que otra cosa más habría que verificar.\n\nY de paso, veo que viajas de nuevo a la madre patria a dar cursos, cuando nos honrraras con darlos en Mexico?','',0,'AIA=','hl7y5s4w',1,0,'',579,0,0),(28344,4897,6,171,0,'71.232.193.197',1174078437,1,0,1,1,1,0,'','Forma PDF - Llenar los campos con datos almacenados en DBF -','Manuel,\n\nPudiste resolver como llenar los campos de una forma PDF con datos almacenados en un fichero DBF?\n\nIF Yes\n  msginfo (\"Podrias postear un ejemplo?\")\nELSE \n  msginfo(\"Cual fue tu experiencia en este proyecto?\"\nENDIF\n\nSaludos\n\nGeorge','',0,'AIA=','1rxv3jdm',1,0,'',171,0,0),(28345,6353,3,267,0,'200.208.238.2',1174078485,1,0,1,1,1,1,'','','Enrico,\n\nI use the Pelles you know to say me that property would have that to activate or to disactivate?\n\nAlready I tried modifying in RC, but it does not function!','',0,'AIA=','1sw7dbmz',1,0,'',267,0,0),(28346,6363,7,2,0,'87.218.146.97',1174081303,1,0,1,1,1,1,'','','Rodolfo,\n\nCoincido con René. FWPPC está hecho para Windows Mobile 2003 ó 2005, y para PDAs con arquitectura ARM (el procesador más corriente es el Intel XScale).\n\nSi ese mensaje funciona, entonces casi seguro todo lo demás funcionará bien','',0,'AIA=','h5toioef',1,0,'',2,0,0),(28347,6278,1,418,0,'91.168.153.236',1174082296,1,0,1,1,1,0,'','','But how can i include this new function in my library?\nThanks','',0,'AIA=','3p9fbb3m',1,0,'',418,0,0),(28348,6353,3,6,0,'87.18.210.166',1174085047,1,0,1,1,1,1,'','','This is a working sample:\n\n[code:h57hqt2j]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           STYLE DS_MODALFRAME | WS_POPUP | WS_DLGFRAME | WS_SYSMENU\n\n    @ 2, 2 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:h57hqt2j]\n\nEMG','',0,'AIA=','h57hqt2j',1,0,'',6,0,0),(28349,6358,6,53,0,'189.139.23.103',1174086494,1,0,1,1,1,1,'','','sysctrl2: ( Que nombre tan raro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> )\n\nComo bien dice el Maestro RF, \"Matando pulgas a cañonazos ?\"\n\nPara que ir al otro lado  ?, si aquí en México tenemos a René.\n\nAsí podras dar el enganche de otra casa <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos, Armando','',0,'AIA=','1d351m5q',1,0,'',53,0,0),(28350,6363,7,579,0,'200.76.189.223',1174089049,1,0,1,1,1,1,'','','Don Antonio, en otro mensaje del foro, el propio Rene mencionó que con WM3 no se podía abrir 2 veces el mismo DBF y que con WM5 si se puede. No se que otras curiosidades existan de ese tipo que en un caso dado descubra el cliente que aunque funcionó la prueba inicial no lo haga el programa final.\n\nPor otro lado, yo tengo un QTek9100 y no se si todas las pantallas de PocketPC/SmartPhone tengan la misma resolución, para efectos de crear las ventanas de dialogo, o todas son iguales?\n\nAsí que para iniciar, el programa que verifica la compatibilidad (además de desplegar el mensaje de Rene), debe verificar la versión de WM intalada (existe alguna función para hacer esto?), en seguida debe crear un DBF, intentar abrirlo 2 veces con diferente alias y posteriormente verificar la resolución (se haría con la misma función de FWH?).\n\nNo se que más habría que probar.','',0,'AIA=','3cyobljx',1,0,'',579,0,0),(28351,6358,6,940,0,'189.157.88.221',1174089498,1,0,1,1,1,1,'','','Armando tienes razon,\n\npero asi como esta el moustrouso D.F.\n\nda miedo ir  jeje.\n\n\nsaludos.\n\nCesar Cortes Cruz\n\nSysCtrl Software, S.A. de C.V.\n\nTorreon coah. mexico','',0,'AIA=','25mbn4d0',1,0,'',940,0,0),(28352,6364,6,439,0,'200.125.47.72',1174095702,1,0,1,1,1,1,'','Error al compilar con HBComm.lib Prog. Porta.prg','Hola,\n\nDebo hacer una aplicación que lea desde en com1 un string enviado por una balanza.\n\nHe estado viendo todos los post al respecto, y me pareció interesante un ejemplo usando hbcomm.lib de Frank Lenon Rodrigues, encontré en el foro esta lib, en utilidades, al compilar la aplicación con esta lib (porta.prg, que viene como ejemplo) me da este error:\n\nUnresolved external \'_hb_stack\' referenced from C:\\HBCOMM\\HBCOMM.LIB|hbcomm\n\nHe probado recompilando la lib, y nada.\n\nApreciaré cualquier ayuda que puedan brindarme.','',0,'AIA=','1e28hqg4',1,0,'',439,0,0),(28353,6354,6,774,0,'200.72.145.254',1174098354,1,0,1,1,1,1,'','','vital,, no se como te llamas\n\ntienes MSN de hotmail\n\nah.. te mando la clase','',0,'AIA=','1aqxypr0',1,0,'',774,0,0),(28354,6353,3,267,0,'201.9.129.210',1174098919,1,0,1,1,1,1,'','','You have reason, its example you function, but use resources and in this case nothing made!\n\nWhat necessary he is to prevent that the users moves a DialogBox  defined from resources.  How to make this?','',0,'AIA=','1yq9zcvj',1,0,'',267,0,0),(28355,6365,3,69,0,'74.13.40.57',1174099172,1,0,1,1,1,0,'','change color of part of a screen','Hi Everybody,\n\n\nI would like to change the background color of \"part\" of my screen.\n\nIn the following screen shot clip, I would like to change the background whenever the waveform dips below the red line.  I need to still see the waveform. I can get the screen co-ordinates, I just need to know the color changing part.\n\nIs this possible?\n\nThanks,\n\nJeff\n\n\n[img]\n<!-- w --><a class=\"postlink\" href=\"http://www.can-soft.net/dl/ScreenShot.JPG\">www.can-soft.net/dl/ScreenShot.JPG</a><!-- w -->\n[/img]','',0,'','22gdr0hx',1,0,'',69,0,0),(28356,6366,3,69,0,'74.13.40.57',1174099867,1,0,1,1,1,0,'','oMenu:Disable()','Hi Everybody,\n\nHere is a strange one for you....\n\nI my app,  I create a menu ...\n\nIn the example below, I use a logical value to hide a menu choice if I don\'t want the user to have access to it ... so far so good.\n\n[code:14pk0li8]\nfunction BuildMenu&#40;&#41;\n      MENU oMenu \n\n      MENUITEM &quot;Exit&quot;\n      MENU\n         MENUITEM &quot;Exit Program&quot; Action QuitApp&#40;&#41;\n      ENDMENU\n\n      MENUITEM &quot;Help&quot; WHEN lHelp       //This is where the issue is\n      MENU\n         MENUITEM &quot;View Help File&quot;  ACTION ViewHelp&#40;&#41;\n      ENDMENU\n\n   ENDMENU\nreturn oMenu\n[/code:14pk0li8]\n\n\nNow here is the strange part.....\n\nLets say lHelp := .t.\n\nIf I do a   oMenu:Disable()  only the menu items that do NOT have the WHEN clause will be disabled.\n\nWhy does this happen?  \n\n\nThanks,\nJeff','',0,'AIA=','14pk0li8',1,0,'',69,0,0),(28357,6367,6,307,0,'200.79.147.250',1174107205,1,0,1,1,1,0,'','archivo FM','saludos a todos, una pregunta, cada vez que termina mi aplicacion, veo que hay un archivo de texto FM.txt que tiene datos del volcado de memoria, hay alguna manera para libertar el garbage que se queda en memoria? o porque se genera ese archivo?\n\neste es el contenido del archivo y cada vez se genera un bloque similar\nMemory Allocation Report\nApplication: C:\\SOFT\\VALLE\\SISADMIN.Exe\nxHarbour Version: xHarbour build 0.99.70 Intl. (SimpLex)\nCompiler: Borland C++ 5.5.1\nPlatform: Windows XP Professional 5.01.2600 Service Pack 2\nTime Occured: 2007.03.16 09:51:30\nTotal 3010211 allocations (737809 reallocation), of which 3010210 freed.\nHighest total allocated 4262214 bytes in 16578 blocks.\nWARNING! Memory allocated but not released: 24 bytes (1 blocks)\nBlock 1 00E6DE74 (size 24) KEYBON(0), \"008000000100000048ABE6000D00000000000000C4C9E500\"\n\nsaludos\nAVS.','',0,'AIA=','3qtz732o',1,0,'',307,0,0),(28358,6368,6,307,0,'200.79.147.250',1174109038,1,0,1,1,1,0,'','variables','Saludos, en version de 16bits, vi que la aplicacion consumia muchos recursos y opte por usar arreglos de variables.. es decir, en lugar de usar\ncNombre\ncNumero\n...\n\nuse un arreglo oGet[0,space(x)] que contenia el total de variables que necesito en el programa, esto me soluciono el problema un poco ya que solo tenia una variable en realidad. en version 32 bits, es necesario seguir asi?.. digo esto solo porque al usar nombres de variables el codigo se ve mas entendible y a la hora de depurarlo pues se sabe de antemano el valor que trae la variable con solo ver el nombre.\n\nmi pregunta es:  puedo usar tantas variables como necesite y no pasar por el problema de consumir muchos recursos..?\n\ntambien se me faciita con los arreglos porque los puedo pasar por referencia y asi modificar su valor (digo mas facil).\n\nseguir usando arreglos para las variables, o usar variables mas descriptivas???\n\nsaludos..\nAVS','',0,'','3uf63w7m',1,0,'',307,0,0),(28359,6363,7,2,0,'87.218.146.97',1174110677,1,0,1,1,1,1,'','','Rodolfo,\n\nEste código funciona correctamente en WM 2003 y en WM 2005:\n[code:3vmw5qgp]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   DbCreate&#40; &quot;test&quot;, &#123; &#123; &quot;first&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n   USE Test ALIAS First SHARED\n   MsgInfo&#40; Alias&#40;&#41; &#41;\n\n   USE Test ALIAS Second SHARED NEW\n   MsgInfo&#40; Alias&#40;&#41; &#41;\n\nreturn nil\n[/code:3vmw5qgp]\nEn principio la única diferencia entre WM 2003 y WM 2005 es que WM 2003 no puede acceder a DBFs en otras máquinas en red que usen DBFs shared, pero no se ha verificado al 100% que WM 2005 lo permita correctamente tampoco.','',0,'AIA=','3vmw5qgp',1,0,'',2,0,0),(28360,6363,7,2,0,'87.218.146.97',1174111173,1,0,1,1,1,1,'','','En cuanto a la resolución de la pantalla, es lo mismo que decir que vas a hacer una aplicación para Windows en PC que funcione en cualquier tipo de pantalla de Windows:\n\nTendrás que ajustarte a un mínimo (que puede ser el del emulador), e ignorar el tamaño máximo que pueda llegar a tener','',0,'AIA=','30rvpn8g',1,0,'',2,0,0),(28361,6363,7,2,0,'87.218.146.97',1174112211,1,0,1,1,1,1,'','','Para obtener la versión puedes usar este código:\n[code:7ei5kl1s]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local aInfo &#58;= GetVersionEx&#40;&#41;\n   \n   MsgInfo&#40; Str&#40; aInfo&#91; 1 &#93; &#41; + CRLF + ;\n            Str&#40; aInfo&#91; 2 &#93; &#41; + CRLF + ;\n            Str&#40; aInfo&#91; 3 &#93; &#41; + CRLF + ;\n            Str&#40; aInfo&#91; 4 &#93; &#41; + CRLF + ;\n            aInfo&#91; 5 &#93; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; GETVERSIONEX &#41;\n&#123;\n   OSVERSIONINFO os;\n   \n   os&#46;dwOSVersionInfoSize = sizeof&#40; OSVERSIONINFO &#41;;\n   \n   GetVersionEx&#40; &amp;os &#41;;\n   \n   hb_reta&#40; 5 &#41;;\n   hb_stornl&#40; os&#46;dwMajorVersion, -1, 1 &#41;;\n   hb_stornl&#40; os&#46;dwMinorVersion, -1, 2 &#41;;\n   hb_stornl&#40; os&#46;dwBuildNumber, -1, 3 &#41;;\n   hb_stornl&#40; os&#46;dwPlatformId, -1, 4 &#41;;   \n   hb_storc&#40; os&#46;szCSDVersion, -1, 5 &#41;;\n   \n&#125;   \n\n#pragma ENDDUMP\n[/code:7ei5kl1s]\n[url=http&#58;//imageshack&#46;us:7ei5kl1s][img:7ei5kl1s]http&#58;//img101&#46;imageshack&#46;us/img101/3199/wmtb0&#46;png[/img:7ei5kl1s][/url:7ei5kl1s]','',0,'GIA=','7ei5kl1s',1,0,'',2,0,0),(28362,6368,6,2,0,'87.218.146.97',1174112980,1,0,1,1,1,1,'','','AVS,\n\n&gt;\nmi pregunta es: puedo usar tantas variables como necesite y no pasar por el problema de consumir muchos recursos..?\n&gt;\n\nSi, en 32 bits no existe ese problema','',0,'GIA=','m3nf6d8p',1,0,'',2,0,0),(28363,6365,3,2,0,'87.218.146.97',1174113133,1,0,1,1,1,1,'','','Jeff,\n\nIf you don\'t use a dooted red line (use a continuous one) then you can use FloodFill()','',0,'GIA=','3p3pho1o',1,0,'',2,0,0),(28364,6278,1,2,0,'87.218.146.97',1174113299,1,0,1,1,1,1,'','','Modify source\\classes\\printer.prg, recompile it and replace it into Five.lib\n\nAlternatively you may link the resulting OBJ as another OBJ of your application instead of replacing it into the library','',0,'GIA=','3nm038pe',1,0,'',2,0,0),(28365,6366,3,6,0,'87.13.209.114',1174120931,1,0,1,1,1,1,'','Re: oMenu:Disable()','It seems that WHEN clause has greater priority than Disable() method.\n\nEMG','',0,'GIA=','1u37pkaj',1,0,'',6,0,0),(28366,6353,3,6,0,'87.13.209.114',1174121239,1,0,1,1,1,1,'','','[code:178xkbj9]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           RESOURCE &quot;TEST&quot;\n\n    REDEFINE BUTTON;\n             ID 201 OF oDlg;\n             ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:178xkbj9]\n\n[code:178xkbj9]TEST DIALOG 107, 58, 153, 154\nSTYLE DS_MODALFRAME | WS_POPUP | WS_DLGFRAME | WS_SYSMENU\nFONT 8, &quot;MS Sans Serif&quot;\nLANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL\n&#123;\n PUSHBUTTON &quot;&amp;Close&quot;, 201, 54, 105, 50, 14\n&#125;[/code:178xkbj9]\n\nEMG','',0,'AIA=','178xkbj9',1,0,'',6,0,0),(28367,6369,6,841,0,'84.122.250.8',1174121855,1,0,1,1,1,0,'','BITMAP TRANSPARENTES','AMIGOS, TENGO UN BITMAP DESDE RECURSO CON FONDO 255,255,255 (BLANCO)\nEN EL PRG TENGO:\nredefine bitmap oima resource \'tips\' id 107 of otips TRANSPAREN\nEN EL RC TENGO:\nClass \"TBtnBmp\",   Style: 0 | WS_CHILD | WS_VISIBLE\n\ndesde recurso probé también con Class \"Tbitmap\".\nLa cosa es que con FWH 2.4 sale perfectamente.... yo estoy utilizando ahora FWH 2.7.... ¿Cómo se hace?\nMil gracias.\nLORENZO','',0,'AIA=','2866g8z2',1,0,'',841,0,0),(28368,6369,6,2,0,'87.218.146.97',1174122258,1,0,1,1,1,1,'','','En el recurso tienes que usar:\n\nClass \"TBitmap\", Style: 0 | WS_CHILD | WS_VISIBLE','',0,'AIA=','3e7e23cn',1,0,'',2,0,0),(28369,6325,3,49,0,'213.82.134.66',1174123475,1,0,1,1,1,1,'','','George,\nI Know it from 2002 because I have a friend work in Microsoft on Canada\nthe DB engine was change many timesb and it not suupported \nMy italian friend made a big commercial application with VFP ( he go also to smau) and the application is used by many customers in italy  and now he must  think to converte it .... I explain he must use xharbour but all are interest to java .....why ?','',0,'AIA=','2htobzqz',1,0,'',49,0,0),(28370,6360,3,2,0,'87.218.146.162',1174127788,1,0,1,1,1,1,'','','James,\n\nDo you mean this code (changed as you suggest):\n[code:13qgtlen]\n      case nKey &gt;= 32 &#46;and&#46; nKey &lt; 256\n\n           #ifdef __HARBOUR__\n           // &lt;lk&gt; deadkey+tab &#91;or enter&#93; previously pressed will cause a r/t error\n              if &#58;&#58;oGet&#58;buffer == nil\n                 return 0\n              endif\n           #endif\n\n           &#58;&#58;GetSelPos&#40; @nLo, @nHi &#41;\n           // Delete selection\n           if nHi != nLo\n              &#58;&#58;GetDelSel&#40; nLo, nHi &#41;\n              &#58;&#58;EditUpdate&#40;&#41;\n           endif\n\n           if &#58;&#58;bChange != nil\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; ! lAccept\n                 return 0\n              endif\n           endif\n\n           if &#58;&#58;oGet&#58;Type == &quot;N&quot; &#46;and&#46; ;\n              &#40; Chr&#40; nKey &#41; == &quot;&#46;&quot; &#46;or&#46; Chr&#40; nKey &#41; == &quot;,&quot; &#41;\n              if &#58;&#58;oGet&#58;Clear&#40;&#41;\n                 &#58;&#58;oGet&#58;DelEnd&#40;&#41;\n              endif\n              &#58;&#58;oGet&#58;ToDecPos&#40;&#41;\n           else\n              if Set&#40; _SET_INSERT &#41;             // many thanks to HMP\n                 &#58;&#58;oGet&#58;Insert&#40; Chr&#40; nKey &#41; &#41;\n              else\n                 &#58;&#58;oGet&#58;Overstrike&#40; Chr&#40; nKey &#41; &#41;\n              end\n           endif\n           if &#58;&#58;oGet&#58;Rejected\n              if Set&#40; _SET_BELL &#41;\n                 MsgBeep&#40;&#41;\n              endif   \n           endif\n           &#58;&#58;EditUpdate&#40;&#41;\n           if &#58;&#58;oGet&#58;TypeOut\n              if ! Set&#40; _SET_CONFIRM &#41;\n                 &#58;&#58;oWnd&#58;nLastKey = VK_RETURN\n                 &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n              else\n                 if Set&#40; _SET_BELL &#41;\n                    MsgBeep&#40;&#41;\n                 endif   \n              endif\n           endif\n           Eval&#40; &#58;&#58;bPostKey, Self, &#58;&#58;oGet&#58;Buffer &#41;\n[/code:13qgtlen]\n\nWill that be ok ?','',0,'AIA=','13qgtlen',1,0,'',2,0,0),(28371,6330,6,694,0,'200.189.112.21',1174133211,1,0,1,1,1,1,'','SOLUCIONADO','SOLUCIONADO\n\n\nGRACIAS <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3colzyuu',1,0,'',694,0,0),(28372,6353,3,267,0,'201.9.145.52',1174136280,1,0,1,1,1,1,'','','Enrico,\n\nThanks.','',0,'AIA=','ekpv4dzp',1,0,'',267,0,0),(28373,6370,6,841,0,'84.122.250.8',1174137099,1,0,1,1,1,0,'','BOTONES CON ESTILO XP','Amigos, quizás sea una tontería, pero llevo casi 1h y no doy con la tecla:\n\nEn un dialog incrusto un boton con un action:\n\nredefine btnbmp resource \'nuevo\' TOP prompt \'Altas\' id 101 of w_cli tooltip \'Nuevo Cliente\' action altasc()\n\nEn el RC inserto la clausula \"1 24 WindowsXp.Manifest\". Compila perfecto pero el botón sigue en formato W98.\nMiré en \\samples y probé con \"redefine buttonbmp...\" pero no consigo el efecto deseado....\nQuiero un bottón con un BMP, un prompt y en formato XP\nUtilizo FWH 2.7\n\n¿ Como lo haceis vosotros?\nMil gracias\nLORENZO','',0,'AIA=','5aez6u3t',1,0,'',841,0,0),(28374,6360,3,303,0,'72.199.41.171',1174140145,1,0,1,1,1,0,'','','Antonio,\n\n&gt; Will that be OK?\n\nI\'m not sure, I will have to do some testing. I think it will solve my problem, but I am also concerned as to the reason it was moved. Do you remember why? I don\'t want this change to undo whatever you were attempting to do by moving it in the first place.\n\nIn the Feb 2006 code, bChange was in a different place (see below). It was after numeric keys were processed. Is the new location going to create a problem with that--or maybe it solves a problem?\n\nTo be consistant, the msgBeep() should probably also be added before the RETURN 0 as it is when ::oGet:Rejected is true. \n\nJames\n\n\n[code:rd53tig8]case nKey &gt;= 32 &#46;and&#46; nKey &lt; 256 \n\n           #ifdef __HARBOUR__ \n           // &lt;lk&gt; deadkey+tab &#91;or enter&#93; previously pressed will cause a r/t error \n              if &#58;&#58;oGet&#58;buffer == nil \n                 return 0 \n              endif \n           #endif \n\n           &#58;&#58;GetSelPos&#40; @nLo, @nHi &#41; \n           // Delete selection \n           if nHi != nLo \n              &#58;&#58;GetDelSel&#40; nLo, nHi &#41; \n              &#58;&#58;EditUpdate&#40;&#41; \n           endif \n\n           if &#58;&#58;bChange != nil \n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41; \n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; ! lAccept\n                 return 0 \n              endif \n           endif \n\n           if &#58;&#58;oGet&#58;Type == &quot;N&quot; &#46;and&#46; ; \n              &#40; Chr&#40; nKey &#41; == &quot;&#46;&quot; &#46;or&#46; Chr&#40; nKey &#41; == &quot;,&quot; &#41; \n              if &#58;&#58;oGet&#58;Clear&#40;&#41; \n                 &#58;&#58;oGet&#58;DelEnd&#40;&#41; \n              endif \n              &#58;&#58;oGet&#58;ToDecPos&#40;&#41; \n           else \n\n//--- bChange was here in Feb 2006 version\n\n              if Set&#40; _SET_INSERT &#41;             // many thanks to HMP \n                 &#58;&#58;oGet&#58;Insert&#40; Chr&#40; nKey &#41; &#41; \n              else \n                 &#58;&#58;oGet&#58;Overstrike&#40; Chr&#40; nKey &#41; &#41; \n              end \n           endif \n           if &#58;&#58;oGet&#58;Rejected \n              if Set&#40; _SET_BELL &#41; \n                 MsgBeep&#40;&#41; \n              endif    \n           endif \n           &#58;&#58;EditUpdate&#40;&#41; \n           if &#58;&#58;oGet&#58;TypeOut \n              if ! Set&#40; _SET_CONFIRM &#41; \n                 &#58;&#58;oWnd&#58;nLastKey = VK_RETURN \n                 &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41; \n              else \n                 if Set&#40; _SET_BELL &#41; \n                    MsgBeep&#40;&#41; \n                 endif    \n              endif \n           endif \n           Eval&#40; &#58;&#58;bPostKey, Self, &#58;&#58;oGet&#58;Buffer &#41; [/code:rd53tig8]','',0,'AIA=','rd53tig8',1,0,'',303,0,0),(28375,6366,3,303,0,'72.199.41.171',1174141293,1,0,1,1,1,0,'','','Jeff,\n\n&gt;In the example below, I use a logical value to hide a menu choice if I don\'t want the user to have access to it ... so far so good. \n\nI think it is better to just not to add those items to the menu. I just check user rights when building the menu and leave out those items.\n\nIf the items are visible and disabled, the user is left to figure out why they are disabled. They wonder if they will become enabled after some user action, or if they need to configure something. Or, if they do know why the items are disabled, it is like an in-your-face statement that they are not good enough to have access.\n\nIf the items aren\'t on the menu, then both of these issues are solved. This might also solve your other problem.\n\nJames','',0,'AIA=','3n24gg87',1,0,'',303,0,0),(28376,6325,3,171,0,'71.232.193.197',1174143499,1,0,1,1,1,0,'','','Silvio,\n\nI think [x]Harbour + FWH has a *BRIGHT* future.\n\nCongratulations Antonio!!!!\n\nGeorge','',0,'','20f36w81',1,0,'',171,0,0),(28377,6365,3,69,0,'74.13.40.57',1174148697,1,0,1,1,1,0,'','','Antonio,\n\nTake a look at this second screen shot ... This is an idea of what I am trying to do.\n\n\n[img]\n<!-- w --><a class=\"postlink\" href=\"http://www.can-soft.net/dl/ScreenShot2.JPG\">www.can-soft.net/dl/ScreenShot2.JPG</a><!-- w -->\n[/img]\n\n\nThanks,\nJeff','',0,'','macf1wuu',1,0,'',69,0,0),(28378,6366,3,69,0,'74.13.40.57',1174148861,1,0,1,1,1,0,'','','Hi James,\n\nI can see what you are saying and it makes perfect sense, but in this case, having the user \"see\" what they are missing is a good thing ... additional options that are available to purchase  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nJeff','',0,'','36tpw2ny',1,0,'',69,0,0),(28379,6368,6,375,0,'84.123.181.8',1174149070,1,0,1,1,1,1,'','','Un momento dado, si no quieres borrar lo que ya tienes, puedes darle un nombre a cada elemento del array:\n\n#define V_NOMBRE         oGet[1]\n#define V_APELLIDOS     oGet[2]\n#define V_DIRECCION    oGet[3]\n...\n...\n#define VARIABLE21     oGet[2,1]\n...\netc...\n\nA partir de entonces en lugar de poner \"oGet[x,y]\" sólo has de escribir el nombre que le definiste. (pueden convivir ambas formas).','',0,'','bcj9h8bt',1,0,'',375,0,0),(28380,6366,3,303,0,'72.199.41.171',1174150241,1,0,1,1,1,0,'','','Jeff,\n\n&gt;I can see what you are saying and it makes perfect sense, but in this case, having the user \"see\" what they are missing is a good thing ... additional options that are available to purchase.\n\nAh, a very good point indeed!\n\nJames','',0,'','2o9q8lix',1,0,'',303,0,0),(28381,6365,3,303,0,'72.199.41.171',1174150553,1,0,1,1,1,0,'','','Jeff,\n\nTry drawing a box then use floodFill(). Use the same color pen for both.\n\nMaybe you will have to redraw the gridlines and graph afterward.\n\nJames','',0,'','ok6swpfn',1,0,'',303,0,0),(28382,6371,6,935,0,'200.62.114.169',1174151102,1,0,1,1,1,0,'','Ayuda, Por favor: xHarbour','Hola amigos del Foro,\n\nEstoy incursionando el tema d elos 32 bits y estoy tratando con MySql 5.01 + FWH 7.01 + xharbour 0.99.7, el programita de captura compila bien, pero al correrlo me genera error,\n\nDesde ya les agradezco su ilumnacion al respecto, algo debo estar haciendo mal,\n\nEl codigo y el error es el siguiente :\n\n#Include \"Fivewin.ch\"\n#Include \"Ado.ch\"\n\nFUNCTION MAIN() ...\n...\n....\n\n//====================\nFUNCTION CARGOS()\n//====================\n\nPublic oCod,oNombre,oDlg,mCod,mNombre\n\nmCod = space(5)\nmNombre = space(40)\n\nDEFINE DIALOG oDlg RESOURCE 2\n\nREDEFINE GET oCod     Var mCod     ID 101 of oDlg\nREDEFINE GET oNombre  Var mNombre  ID 102 of oDlg\n\nREDEFINE BUTTON ID 105 of oDlg ACTION( AGREGO(), oDlg:End())\nREDEFINE BUTTON ID 106 of oDlg ACTION( oDlg:End())\n\nACTIVATE DIALOG oDlg CENTERED\nDBCLOSEALL()\n\nRETURN NIL\n\n//==========================\nSTATIC FUNCTION AGREGO()\n//==========================\n\nPublic oConexionAdo := TOLEAUTO():New(\"adodb.connection\")\nPublic oRecordSet\nPublic oCommand := TOleAuto():New(\"adodb.command\")\noConexionAdo:Open(\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1 ; DATABASE=Personal1; UID=root; PWD=123\")\noRecordSet := TOleAuto():New(\"adodb.recordset\")\noRecordSet:LockType := adLockOptimistic\noRecordSet:CursorType := adOpenKeyset\noRecordSet:ActiveConnection(oConexionAdo)\noRecordSet:Source := \"SELECT * FROM CARGOS\"\noRecordSet:Open()\noRecordSet:AddNew()\noRecordSet:Fields(\"Codigo\"):Value := mCod       //==========&gt; ME MARCA EL ERROR AQUI\noRecordSet:Fields(\"Descrip\"):value := mNombre\noRecordSet:Update()\noConexionAdo:Close()\n\nRETURN NIL\n\nNota: Los campos en la tabla de la BD MySql son char de 5, el primero y \nchar de 40 el segundo probe con varchar y lo mismo da error\n\n// ESTE ES EL LOG\n\nApplication\n===========\n   Path and name: C:\\sistemas\\RRHH_32\\personal.exe (32 bits)\n   Size: 1,381,888 bytes\n   Time from start: 0 hours 0 mins 11 secs\n   Error occurred at: 15/03/2007, 21:33:47\n   Error description: Error adodb.recordset:FIELDS/16389  E_FAIL: _VALUE\n   Args:\n     [   1] = C   09899\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:_VALUE(0)\n   Called from:  =&gt; AGREGO(382)\n   Called from: personal.prg =&gt; (b)CARGOS(353)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: personal.prg =&gt; CARGOS(356)\n   Called from: personal.prg =&gt; (b)CREAMENU(123)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: personal.prg =&gt; PRINCIPAL(82)\n\nSystem\n======\n   CPU type: Intel(R) Celeron(R) M processor         1.60GHz 1600 Mhz\n   Hardware memory: 447 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 49','',0,'','19pon6gn',1,0,'',935,0,0),(28385,6365,3,2,0,'87.218.146.162',1174154018,1,0,1,1,1,1,'','','Jeff,\n\nDo you mean those vertical gray rectangles ?','',0,'EA==','25o00x2q',1,0,'',2,0,0),(28386,6365,3,69,0,'74.13.40.57',1174155160,1,0,1,1,1,0,'','','Antonio,\n\nYes, the grey areas are what I would like to add when needed.\n\n\nJeff','',0,'EA==','p4qt1z08',1,0,'',69,0,0),(28387,6358,6,138,0,'189.141.72.59',1174158883,1,0,1,1,1,1,'','','Jejeje , eso ya lo habia escuchado yo antes.\n\nCada mes se programan cursos en nuestras instalaciones del DF y adicionalmente manejamos varios servicios de consultoria y desarrollo de aplicaciones no solo en FW, sino en cualquier herramienta xBase en general.\n\nHemos trabajado a Nivel consultoria con varias empresas con sede en Vancouver Canada, Barcelona, Madrid, Miami, Houston y Los Angeles.\n\nA nivel capacitación los cursos pueden impartir en las  instalaciones del cliente, podemos ir para donde quieran, dentro de México y Latinoamerica, solo que para salir necesitamos por lo menos 5 particpantes en México, para servicios fuera del pais, tenemos planes desde 3,000 dolares con todo incluido. ( y cuando digo todo, es TODO)\n\nAsí he dado cursos en Venezuela (2 veces), en Colombia, en Guatemala, Panama, El Salvador, Peru, y cada año, desde hace 9, en España.\n\nHemos capacitado a empresas cuyo software comercial corre en FiveWin, como el Grupo DataPro de Venezuela, hemos capacitado a gente de  Grupo SP, de Mexico y España.\n\nDe nuestros cursos han salido yo creo que algunas de las mentes mas brillantes en FW de habla hispana y no voy a decir nombres, porque seguro se me va a olvidar alguno pero muchos colaboran en este foro, personas que ademas de ser alumnos, hoy son estupendos amigos.\n\nY creo, sin temor a equivocarme, que todos los usuarios de FW llevan en sus programas alguna colaboracion de nosotros directa o indirectamente.\n\nAsi que no hay pretexto, un cursito de 4 o 5 dias y te garantizo que te voy a ahorrar dos o tres meses de trabajo.','',0,'EA==','1vc11r4e',1,0,'',138,0,0),(28388,6370,6,138,0,'189.141.72.59',1174159337,1,0,1,1,1,1,'','','Los btnbmp son \"ownerdraw\", es decir, no son nativos del sistema operativo, son pintados \"a mano\".\n\nPara poner un boton con bitmap con estilo XP necesitas la clase BUTTONBMP','',0,'EA==','3b20hoyu',1,0,'',138,0,0),(28389,6371,6,138,0,'189.141.72.59',1174159551,1,0,1,1,1,1,'','','El error es que el recordset no se creo porque no se pudo conectar a la base de datos.\n\nCreo que hay algun cambio en el DLL de MySQL para la conexion ODBC, yo te recomendaria que revisaras eso y que ademas revises que la conexion con el servidor se esta realizando correctamente.','',0,'EA==','2nh7khe4',1,0,'',138,0,0),(28390,6235,6,449,0,'88.26.84.118',1174159860,1,0,1,1,1,1,'','','Bueno,\n\nAqui va\n\n[code:2djoua2j]&#46;&#46;&#46;\n#define TVM_DELETE        TV_FIRST + 1\n&#46;&#46;&#46;\nMETHOD Delete&#40;&#41; INLINE ;\n   SendMessage&#40; &#58;&#58;oTree&#58;hWnd, TVM_DELETE, 0, &#58;&#58;hItem &#41;[/code:2djoua2j]\n\nSiau.','',0,'AIA=','2djoua2j',1,0,'',449,0,0),(28391,6363,7,138,0,'189.141.72.59',1174159911,1,0,1,1,1,1,'','','No no no a ver, no me expres bien, o no me entendiste bien, yo dije que en WM2003 no hay apertura compartida de archivos, lo que quiere decir que no ha conexion remota a abrir otros archivos en otra maquina, como por ejemplo un servidor remoto.\n\nCreo que tu programa no funciona para red, luego entonces no tienes ese problema.','',0,'AIA=','1plz2ad2',1,0,'',138,0,0),(28392,6354,6,854,0,'200.95.238.251',1174162778,1,0,1,1,1,0,'','','A&amp;C\n\nA mi correo <!-- e --><a href=\"mailto:sivital@yahoo.com\">sivital@yahoo.com</a><!-- e -->\n\nGracias.','',0,'AIA=','2l3aek8n',1,0,'',854,0,0),(28393,6363,7,579,0,'200.76.189.223',1174176320,1,0,1,1,1,1,'','','Perfecto, creo que ya puedo iniciar tranquilo después de todo este desborde de conocimientos adquiridos.\n\n+Dudas:\n- Antonio, que difernecia hay entre usar la funcion que me mencionas (GetVersionCE()) para extraer la versión de Windows y la que viene en uno de los ejemplos (GetVersion())?\n\n- Veo que en foros de PocketPCs hablan de WindowsCE, podrá correr el sistema en esa versión? Es una versión paralela a WM o WM está sustituyendo a la primera?','',0,'AIA=','1hiqp0uh',1,0,'',579,0,0),(28394,6365,3,2,0,'87.218.146.184',1174176768,1,0,1,1,1,1,'','','Jeff,\n\nYou may paint them using Rectangle() before painting the lines','',0,'AIA=','7b2sw5ti',1,0,'',2,0,0),(28395,6372,3,705,0,'61.0.136.130',1174187222,1,0,1,1,1,0,'','Error occurred during compiling of zip and uzip prgs.','Hello friends,\n\nI am getting the following errors during compilation. Where should I edit the code to get correct result.\n\nDuring compile of  \\fwh\\sample\\testzip.prg  the following errors are occured. \n\ntestzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_ZIP\nMSG(void)\" (?HB_FUN_ZIPMSG@@YAXXZ)\n\ntestzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_ZIP\nBLOCK(void)\" (?HB_FUN_ZIPBLOCK@@YAXXZ)\n\ntestzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_ZIP\nTYPE(void)\" (?HB_FUN_ZIPTYPE@@YAXXZ)\n\ntestzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_ZIP\nFILE(void)\" (?HB_FUN_ZIPFILE@@YAXXZ)\n\ntestzip.exe : fatal error LNK1120: 4 unresolved externals\n* There are errors\n\nDuring compile of  \\fwh\\sample\\testuzip.prg  the following errors are occured. \n\ntestuzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_CL\nOSEZIPFILE(void)\" (?HB_FUN_CLOSEZIPFILE@@YAXXZ)\n\ntestuzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_GE\nTNEXTINZIP(void)\" (?HB_FUN_GETNEXTINZIP@@YAXXZ)\n\ntestuzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_GE\nTFIRSTINZIP(void)\" (?HB_FUN_GETFIRSTINZIP@@YAXXZ)\n\ntestuzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_IS\nZIP(void)\" (?HB_FUN_ISZIP@@YAXXZ)\n\ntestuzip.obj : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_UN\nZIPFILE(void)\" (?HB_FUN_UNZIPFILE@@YAXXZ)\n\ntestuzip.exe : fatal error LNK1120: 5 unresolved externals\n* There are errors\n\nCan any one help me?\n\nWith regards,\nArindam','',0,'AIA=','237wyk7u',1,0,'',705,0,0),(28396,6373,3,666,0,'211.28.125.58',1174192131,1,0,1,1,1,0,'','Graphs','I\'m converting my apps from FW to FWH and all has gone well except graphs.\n\nI need to replace the 16bit Graphics Server stuff I\'ve used under 16bit.\n\n1. I was keen to use TGraph and started converting to it but reached a dead end because I can\'t see a way to display bars on a bar chart as patterns instead of solid colors. (I need this to distinguish the bars when printing to a black and white printer).  Is there any way to do this with TGraph?\n\n2. Alternatively, I was also happy to convert from Bits Per Second\'s product, Graphics Server 16bit, to their 32bit version but I can\'t work out how to link their 32bit version in.  Anyone had success and, if so, what do I need to do?\n\nI need help very urgently. Hope someone can help me.\n\nThanks\nColin Wisbey','',0,'AIA=','10cv1q5p',1,0,'',666,0,0),(28397,6374,7,527,0,'88.22.221.59',1174212361,1,0,1,1,1,0,'','SELECT EN FWPPC','SELECT EN FWPPC\nSe puede hacer un SELECT * FROM cliente WHERE=&lt;condicion&gt; en FWPPC\n\ngracias\nsi se puede hacer me podeis indicar un ejemplo \ngracias','',0,'AIA=','2kgmmlk1',1,0,'',527,0,0),(28398,6375,6,960,0,'84.122.250.8',1174213122,1,0,1,1,1,0,'','CORRIENDO 2 EXE A LA VEZ','compañeros:\nnecesito desde mi EXe llamar a otro EXE mediante Winexec, pero antes de llamarlo [b:1i0ekdkq]quiero saber si ya está corriendo[/b:1i0ekdkq]. ¿como lo puedo saber?\n\nIntenté con la función GetTasks(), haciendo esto:\n\nfunct llamarfun\n if AScan( GetTasks(), \'post-it.exe\') == 0\n  winexec(\'.\\post-it\\post-it.exe\')\n else\n  msginfo(\'Ya está corriendo\')\n endif\nreturn\n\n... pero no resultó... siempre abre el EXE. Alguna sugerencia???\nmil gracias. LORENZO','',0,'QA==','1i0ekdkq',1,0,'',960,0,0),(28399,6370,6,960,0,'84.122.250.8',1174215402,1,0,1,1,1,0,'','','compañeros:\n\nIntento armar un buttonbmp insertando un bmp desde recurso pero me es imposible. Cuando compilo me genera un error.\n\nNecesito insertar el bmp desde el RC porque tengo todos los bmp dentro del RC.\n\nMil gracias.\nLORENZO.','',0,'QA==','3fm59fzn',1,0,'',960,0,0),(28400,6258,6,838,0,'80.59.225.15',1174215842,1,0,1,1,1,0,'','','Hola Rochinha\nYo utilizo xharbour+verce, y siempre que quiero utilizar Toleauto:New, me da error, y es que no se si tengo que enlazar con alguna libreria o qué.\nComo has indicado, he sustituido\n[code:3lgb2miu]   MapiSession1  &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPISession&#46;1&quot; &#41; \n   MapiMessages1 &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;MSMAPI&#46;MAPImessages&#46;1&quot; &#41; \n[/code:3lgb2miu]\npor\n[code:3lgb2miu]MapiSession1 &#58;= CreateOLEObject&#40; &quot;MSMAPI&#46;MAPISession&#46;1&quot; &#41; \nMapiMessages1 &#58;= CreateOLEObject&#40; &quot;MSMAPI&#46;MAPImessages&#46;1&quot; &#41; \n[/code:3lgb2miu]\n\ny ahora me sale en tiempo de ejecución el siguiente error:\n\n  \"    Error description: Error BASE/1005  Class: \'NUMERIC\' has no property: ACTION\"\n\nEste error hace referencia a ésta línea:\n\n\"   MapiSession1:Action      := SESSION_SIGNON \"\n\nMe das algún consejo?\n\nSaludos\n\nJose Luis','',0,'AIA=','3lgb2miu',1,0,'',838,0,0),(28401,6372,3,303,0,'72.199.41.171',1174223627,1,0,1,1,1,0,'','','Arindam,\n\nYou have to link in the zip library. It depends on which version of Harbour or xHarbour you are using which zip library(s) you need. I don\'t remember them all, but for xHarbour I use HBZIP.LIB. You can try searching the forum for the names of the others if you need them. I think the commercial version of xHarbour uses different libs.\n\nJames','',0,'AIA=','3tt7p87n',1,0,'',303,0,0),(28402,6363,7,138,0,'148.233.151.30',1174234849,1,0,1,1,1,1,'','','Windows CE fue la primera generacion de sostemas operativos moviles, actualmente ninguna PDA \"moderna\" trae ese sistema operativo, salvo algunos dispositivos de captura de datos y eso en algunos modelos como los Symbol y los Dolphin que son PDAs industriales, no creo que tus clientes se vayan a gastar mas de 1500 dolares en un pda con lector de codigo de barras y coraza de titanio a prueba de golpes.\n\nHaz de cuenta que el windows CE es el Windows98 de las PPC y para tu tranquilidad, si, las aplicaciones en FWPPC funcionan en Windows CE','',0,'AIA=','2ooebizd',1,0,'',138,0,0),(28403,6374,7,138,0,'148.233.151.30',1174235361,1,0,1,1,1,1,'','','Que yo sepa no, porque aunque existe soporte para las tecnologias de acceso a datos como ODBC, el problema es que no hay clientes PPC para accesar remotamatemente a bases de datos sql, es mas, no hay cliente ni para SQL Server de microsoft.\n\nLa mayoria de los programas que yo he visto para PPC utilizan archivos de texto plano para alamacenar los datos.','',0,'AIA=','3hi77zd1',1,0,'',138,0,0),(28404,6373,3,138,0,'148.233.151.30',1174235808,1,0,1,1,1,1,'','','If your previous product has a OCX version for 32 bits, you can use it with FW from version 2.7 which supports ActiveX/Ocx technology','',0,'AIA=','ya7hebeq',1,0,'',138,0,0),(28405,4897,6,180,0,'83.34.157.124',1174238719,1,0,1,1,1,0,'','Re: Forma PDF - Llenar los campos con datos almacenados en D','Claro que lo resolví y en los dos mensajes anteriores tienes los ejemplos.\nSaludos,\nManuel \n\n[quote=&quot;George&quot;:2jed1hjf]Manuel,\n\nPudiste resolver como llenar los campos de una forma PDF con datos almacenados en un fichero DBF?\n\nIF Yes\n  msginfo (\"Podrias postear un ejemplo?\")\nELSE \n  msginfo(\"Cual fue tu experiencia en este proyecto?\"\nENDIF\n\nSaludos\n\nGeorge[/quote:2jed1hjf]','',0,'gA==','2jed1hjf',1,0,'',180,0,0),(28406,4897,6,171,0,'71.232.193.197',1174239955,1,0,1,1,1,0,'','','Manuel,\n\nLa razon por la que te pregunte es porque al tratar de bajar los ejemplos dice \"file not available\". \n\nSi fueras tan amable de subirlo de nuevo\n\nSaludos\n\n\nGeorge','',0,'gA==','1ixtmt7p',1,0,'',171,0,0),(28407,6372,3,2,0,'87.218.146.184',1174243834,1,0,1,1,1,1,'','','Arindam,\n\nsamples\\TestZip.prg is for FW 16 bits only','',0,'gA==','3lneu0zq',1,0,'',2,0,0),(28408,6375,6,2,0,'87.218.146.184',1174244109,1,0,1,1,1,1,'','','[code:2rmm3qkk]\nIF IsExeRunning&#40;cFileName&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41;&#41;   msgalert&#40;&quot;Program already running!&quot;+CRLF+&quot;This program cannot be started more than one instance!&quot;&#41; \n   QUIT \nENDIF\n[/code:2rmm3qkk]','',0,'AIA=','2rmm3qkk',1,0,'',2,0,0),(28409,6368,6,307,0,'200.79.147.250',1174245648,1,0,1,1,1,0,'','gracias','prefecto gracias por el consejo.\nun saludo..\n\nAVS','',0,'AIA=','3552lj2m',1,0,'',307,0,0),(28410,6376,6,307,0,'200.79.147.250',1174248555,1,0,1,1,1,0,'','aprender objetos','saludos, algun manual para aprender el manejo de objetos en FWH?\n\nme he dado cuenta que si no manejas programacion orientada a objetos, realmente no se explota FWH, creo que aprendiendo a programar objetos con FWH seria la manera adecuada para disfrutar de las bondades de FWH\n\nSaludos.\nAVS','',0,'AIA=','1ifvt58r',1,0,'',307,0,0),(28411,6377,4,2,0,'87.218.146.184',1174249449,1,0,1,1,1,1,'','SmartPhone emulator and Internet access','We are following these instructions to setup the SmartPhone emulator to access the Internet:\n\n<!-- m --><a class=\"postlink\" href=\"http://weblogs.asp.net/eporter/archive/2004/12/08/278089.aspx\">http://weblogs.asp.net/eporter/archive/ ... 78089.aspx</a><!-- m -->\n\nBut without success. We do appreciate if someone is able to get it working and help all of us <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ek499fk',1,0,'',2,0,0),(28412,6378,7,2,0,'87.218.146.184',1174249543,1,0,1,1,1,1,'','SmartPhone emulador y acceso internet','Estamos siguiendo estas instrucciones para configurar el SmartPhone emulador y que pueda acceder a internet:\n\n<!-- m --><a class=\"postlink\" href=\"http://weblogs.asp.net/eporter/archive/2004/12/08/278089.aspx\">http://weblogs.asp.net/eporter/archive/ ... 78089.aspx</a><!-- m --> \n\nDe momento sin éxito. Agradecemos si alguien lo consigue y nos ayuda a todos, gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1gmr025k',1,0,'',2,0,0),(28413,6379,4,2,0,'87.218.146.184',1174263033,1,0,1,1,1,1,'','FWPPC running on the SmartPhone emulator!','Ok, we found the missing steps to execute our apps from the SmartPhone emulator <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Here you have a sample:\n[code:2buuim94]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; &quot;Hello world of FWPPC&quot; &#41;\n\nreturn nil\n[/code:2buuim94]\nSee how nice a MgsInfo() looks in SmartPhone <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[url=http&#58;//imageshack&#46;us:2buuim94][img:2buuim94]http&#58;//img143&#46;imageshack&#46;us/img143/2690/smart1qm6&#46;png[/img:2buuim94][/url:2buuim94]\nTomorrow we will explain step by step how to do it, and also how to browse Internet from the SmartPhone emulator! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[url=http&#58;//imageshack&#46;us:2buuim94][img:2buuim94]http&#58;//img143&#46;imageshack&#46;us/img143/6747/smart2fo2&#46;png[/img:2buuim94][/url:2buuim94]','',0,'GIA=','2buuim94',1,0,'',2,0,0),(28414,6380,7,2,0,'87.218.146.184',1174263516,1,0,1,1,1,1,'','Ejecutando aplicaciones FWPPC en el emulador de SmartPhone','Por fín hemos encontrado la forma de ejecutar nuestras aplicaciones desde el emulador de SmartPhone <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Aqui teneis un ejemplo:\n[code:o48i54t5]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; &quot;Hello world of FWPPC&quot; &#41;\n\nreturn nil\n[/code:o48i54t5]\nMirad que elegante se ve un MsgInfo() en SmartPhone <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[url=http&#58;//imageshack&#46;us:o48i54t5][img:o48i54t5]http&#58;//img143&#46;imageshack&#46;us/img143/2690/smart1qm6&#46;png[/img:o48i54t5][/url:o48i54t5]\nMañana explicaremos paso a paso como hacerlo y tambien como surfear en Internet desde el emulador de SmartPhone <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[url=http&#58;//imageshack&#46;us:o48i54t5][img:o48i54t5]http&#58;//img143&#46;imageshack&#46;us/img143/6747/smart2fo2&#46;png[/img:o48i54t5][/url:o48i54t5]','',0,'GIA=','o48i54t5',1,0,'',2,0,0),(28415,6381,6,141,0,'200.88.94.84',1174275623,1,0,1,1,1,1,'','Ancho y Alto usando FreeImage','Hola,\n\nMe rindo... Necesito saber como se puede saber el tamaño de una imagen, usando la clase Image y FreeImage\n\n¿Alguien a estado con esto?\n\nAbrazos,','',0,'GIA=','19rewzmp',1,0,'',141,0,0),(28416,6379,4,2,0,'87.218.146.32',1174285618,1,0,1,1,1,1,'','','[code:3j1sc3ls]\nfunction Main&#40;&#41;\n\n   MsgYesNo&#40; &quot;Want to end ?&quot; &#41;\n\nreturn nil\n[/code:3j1sc3ls]\n[url=http&#58;//imageshack&#46;us:3j1sc3ls][img:3j1sc3ls]http&#58;//img440&#46;imageshack&#46;us/img440/7554/smart3vi5&#46;png[/img:3j1sc3ls][/url:3j1sc3ls]','',0,'GIA=','3j1sc3ls',1,0,'',2,0,0),(28417,6380,7,2,0,'87.218.146.32',1174285683,1,0,1,1,1,1,'','','[code:3g9aq609]\nfunction Main&#40;&#41;\n\n   MsgYesNo&#40; &quot;Want to end ?&quot; &#41;\n\nreturn nil\n[/code:3g9aq609]\n[url=http&#58;//imageshack&#46;us:3g9aq609][img:3g9aq609]http&#58;//img440&#46;imageshack&#46;us/img440/7554/smart3vi5&#46;png[/img:3g9aq609][/url:3g9aq609]','',0,'GIA=','3g9aq609',1,0,'',2,0,0),(28418,6382,4,2,0,'87.218.146.32',1174287537,1,0,1,1,1,1,'','SmartPhone emulator management','First we need to download this free app from Microsoft:\nDevice Emulator Manager\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/2af9b7/\">http://www.filefactory.com/file/2af9b7/</a><!-- m -->\n\nFirst run the SmartPhone emulator, then execute the Device Emulator Manager, and you will see the emulator listed:\n[url=http&#58;//imageshack&#46;us:2wvhm5hl][img:2wvhm5hl]http&#58;//img96&#46;imageshack&#46;us/img96/7933/smart4di6&#46;png[/img:2wvhm5hl][/url:2wvhm5hl]\nThen right click on the listed emulator and select \"cradle\":\n[url=http&#58;//imageshack&#46;us:2wvhm5hl][img:2wvhm5hl]http&#58;//img96&#46;imageshack&#46;us/img96/5521/cradlekm9&#46;png[/img:2wvhm5hl][/url:2wvhm5hl]\nThat will start the ActiveSync on the computer (you need to have ActiveSync installed):\nFrom the ActiveSync you will be prompted to access as a guest, and then you can explore the SmartPhone contents:\n[url=http&#58;//imageshack&#46;us:2wvhm5hl][img:2wvhm5hl]http&#58;//img180&#46;imageshack&#46;us/img180/6052/active1hf1&#46;png[/img:2wvhm5hl][/url:2wvhm5hl]\nThen navigate to Storage/Windows/Start Menu/Accessories and paste your app:\n[url=http&#58;//imageshack&#46;us:2wvhm5hl][img:2wvhm5hl]http&#58;//img241&#46;imageshack&#46;us/img241/691/active2or9&#46;png[/img:2wvhm5hl][/url:2wvhm5hl]\nNow in the SmartPhone emulator select \"Start-More-Accessories\" and you will see your app listed:\n[url=http&#58;//imageshack&#46;us:2wvhm5hl][img:2wvhm5hl]http&#58;//img241&#46;imageshack&#46;us/img241/4496/phone1ap3&#46;png[/img:2wvhm5hl][/url:2wvhm5hl]\nClick on the central SmartPhone button to execute it','',0,'GA==','2wvhm5hl',1,0,'',2,0,0),(28419,6383,7,2,0,'87.218.146.32',1174288563,1,0,1,1,1,1,'','Uso del emulador de SmartPhone','Primero teneis que usar esta herramienta gratuita de Microsoft:\nDevice Emulator Manager\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/2af9b7/\">http://www.filefactory.com/file/2af9b7/</a><!-- m -->\n\nEjecutad el emulador de SmartPhone, a continuación ejecutad el Device Emulator Manager, y vereis listado el emulador:\n[url=http&#58;//imageshack&#46;us:3jf6xf7a][img:3jf6xf7a]http&#58;//img96&#46;imageshack&#46;us/img96/7933/smart4di6&#46;png[/img:3jf6xf7a][/url:3jf6xf7a]\nHaced click derecho sobre él y seleccionad \"cradle\":\n[url=http&#58;//imageshack&#46;us:3jf6xf7a][img:3jf6xf7a]http&#58;//img96&#46;imageshack&#46;us/img96/5521/cradlekm9&#46;png[/img:3jf6xf7a][/url:3jf6xf7a]\nEso activará el ActiveSync en el ordenador (teneis que haber instalado el ActiveSync previamente):\nDesde el ActiveSync se os ofrecerá conectar como invitado, y ya podreis explorar el contenido del SmartPhone:\n[url=http&#58;//imageshack&#46;us:3jf6xf7a][img:3jf6xf7a]http&#58;//img180&#46;imageshack&#46;us/img180/6052/active1hf1&#46;png[/img:3jf6xf7a][/url:3jf6xf7a]\nAhora navegad a Storage/Windows/Start Menu/Accessories y pegad vuestra aplicación:\n[url=http&#58;//imageshack&#46;us:3jf6xf7a][img:3jf6xf7a]http&#58;//img241&#46;imageshack&#46;us/img241/691/active2or9&#46;png[/img:3jf6xf7a][/url:3jf6xf7a]\nAhora en el emulador de SmartPhone seleccionad \"Start-More-Accessories\" y vereis vuestra aplicación:\n[url=http&#58;//imageshack&#46;us:3jf6xf7a][img:3jf6xf7a]http&#58;//img241&#46;imageshack&#46;us/img241/4496/phone1ap3&#46;png[/img:3jf6xf7a][/url:3jf6xf7a]\nHaced click en el botón central para ejecutarla','',0,'GA==','3jf6xf7a',1,0,'',2,0,0),(28420,6351,6,413,0,'194.106.16.43',1174289199,1,0,1,1,1,1,'','','Jose Luis Gracias por el email que me mandaste a mi privado hacia tiempo que no revisaba el correo gmail, te agradezco tu ayuda. Por lo que veo el Resource tuyo es muy completo e incluso varia los recursos de los exe. Igualmente gracias Rene.','',0,'GA==','5lblrkxq',1,0,'',413,0,0),(28421,6384,6,960,0,'217.12.16.50',1174295497,1,0,1,1,1,0,'','SOLICITANDO SUGERENCIAS','Compañeros:\n\nTengo un RC (en WorkShop) con todos los bmp insertados en 256 colores. Mi cliente desea Dialogs que tengan Buttom con BMP y prompt. Para ello utilizo BUTTONBMP pero me dí cuenta que solo puedo insertar los bmp en el button desde FILE y no desde RESOURCE.\n    Aquí surgen varias posibilidades:\n- a) Migrar todos los bmp desde RC a una carpeta \"images\" y desde allí invocarlos: Esto supone trabajo de chino y poco profesionalidad puesto que el cliente puede \"fisgonear\" en dicha carpeta y cambiar/modificar/eliminar bmp\'s sin mi consentimiento, además, viendo programas profesionales que están en el mercado (tipo Contaplus/facturaplus... etc... todos en FWH) no utilizan carpetas \"images\", todos los bmp están en los RC.\n- b) Utilizar en mis prg BTNBMP e invocarlos los bmp desde resource: En este caso cuando compilo en formato Wxp (1 24 Windowsxp.Manifest) los btnbmp siguen en formato W98. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->(\n    ¿ Alguna sugerencia al respecto ???\n\n   MIL GRACIAS A TODOS\n   LORENZO','',0,'GA==','10117gbh',1,0,'',960,0,0),(28422,6385,6,542,0,'83.39.65.214',1174297298,1,0,1,1,1,0,'','error e2075','Hola amigos.\n\nEstoy intentando cambiar a FWH y estos principios son muy duros, he conseguido instalar todo y empezar a compilar con harbour y todo bien. El siguiente paso es crear los obj pero cuando pongo la instruccion:\n\nbcc32 -c gestimpr.c\n\nsiempre me pone el error e2075  incorrect configuration file option: c:\\bcc55\\include\n\nen los archivos .CFG he puesto \n\n-I \"c:\\bcc55\\include\"\n-L \"c:\\bcc55\\lib\"\n\ncomo indicaba en las instrucciones y he mirado en internet y todo me indica que el problema viene de estos archivos.\n\nAlguien me puede ayudar \n\ngracias.','',0,'GA==','l0gmj33l',1,0,'',542,0,0),(28423,6321,7,720,0,'80.36.244.134',1174303588,1,0,1,1,1,0,'','','Nada Antonio, he cambiado las areas de trabajo y me sigue dando el mismo error. Lo curioso es que si yo le quito el objeto listbox funciona correctamente, por lo que el error está localizado al mostrar los campos de la tabla definiciones en dicho listbox... No doy con la solución...\n\n\nSaludos.\n\nElías Torres.','',0,'GA==','2v2gkb1c',1,0,'',720,0,0),(28424,6373,3,130,0,'141.51.32.24',1174303970,1,0,1,1,1,0,'','','Colin,\n\nyou may also look at RmChart from Rainer Morgen. It´s an excellent chart-tool and it´s free.\n\n[url:35db9leu]http&#58;//www&#46;rmchart&#46;com[/url:35db9leu]\n\nStefan','',0,'EA==','35db9leu',1,0,'',130,0,0),(28425,6386,6,838,0,'80.34.222.112',1174304941,1,0,1,1,1,0,'','Sobre ToleAuto','Hola amigos\nLa mayoria de los ejemplos que veo en éste foro para mandar e-mail utilizan la clase ToleAuto(), y yo que utilizo xharbour, siempre me da error TOleAuto():New().\n\nMi pregunta es si hay que enlazar con alguna librería para poder compilar alguno de los ejemplos que hay en el foro\n\nSaludos\n\nJose Luis','',0,'EA==','2demcs75',1,0,'',838,0,0),(28426,6384,6,785,0,'190.64.216.117',1174306590,1,0,1,1,1,0,'','','Lorenzo:\n\nCon buttonbmp puedes usar bitmaps desde recursos asi\n\nREDEFINE ButtonBmp oBtn ID 110  OF oDlg PROMPT \"&amp;Cancelar\"  ;\n            BITMAP \"CANCELROJO\"  TEXTRIGHT ;\n            ACTION (oDlg:End()) \n            oBtn:cTooltip:= \"Algo\" ;  oBtn:oFont:= oFont  ; oBtn:lCancel:=.T.\n\nSi pones el nombre del bmp sin extension lo busca en el archivo de recursos\n\nSaludos\n\nRuben Fernandez.','',0,'EA==','27ondjs5',1,0,'',785,0,0),(28427,6387,3,86,0,'213.119.103.68',1174308097,1,0,1,1,1,1,'','No icons in the buttons of the Preview','Hello,\n\nIn the preview of any report, generated by the TPrinter class, there are no icons in the buttons, although PREV32.DLL is in the same folder.\n\nIt doesn\'t happen all the time. On my systems with WIN XP Prof, I have no problem. On Windows Vista, the icons are invisible.\n\nBut I also have the same problem on some WIN XP systems of my costumers.\n\nDoes anyone know how this can be solved ?\n\nThanks.\n\nMichel','',0,'EA==','3uoto9tc',1,1174308582,'',86,1,0),(28428,6387,3,86,0,'213.119.103.68',1174308540,1,0,1,1,1,1,'','','Hello Guys,\n\nSorry, I found the reason for my problem.\n\nI translated the PREV32.DLL to Dutch by using Resource Workshop.\n\nUnfortunately, that isn\'t possible.\n\nAfter having put back the original PREV32.DLL, the icons on the buttons reappeared.\n\nBut how can I translate PREV32.DLL to Dutch. My costumers don\'t like English in their software.\n\nThanks a lot.\n\nMichel','',0,'EA==','2i9c788i',1,0,'',86,0,0),(28429,6388,6,52,0,'190.7.62.226',1174309065,1,0,1,1,1,1,'','¿Puedo usar aca las MACROS?','Gente,\n\nHoy por hoy llamo a un metodo propio que me devuelve una consulta\npor mysql, y lo hago de esta manera:\n\n[code:r6d6i5ps]oQuery&#58;= GetApp&#40;&#41;&#58;LeerTabla&#40; &#123; &quot;clientes&#46;cod_cli&quot;, &quot;clientes&#46;cliente&quot; &#125;, , , &quot;cliente&quot; &#41; [/code:r6d6i5ps]\nPero luego en otra funcion vuelvo a hacer el mismo procedimiento\npero cambio lo que le transfiero a LeerTabla\n\n[code:r6d6i5ps]oQuery&#58;= GetApp&#40;&#41;&#58;LeerTabla&#40; &#123; &quot;clientes&#46;*&quot; &#125; &#41; [/code:r6d6i5ps]\nEntonces quiero hacer una sola funcion en el cual indicandolé \nque quiero enviar como parámetro. Pensé esto:\n\n\n[code:r6d6i5ps]\nfunction Recargar&#40; nItem &#41;\n\n    do case \n        case nItem == 1\n\n        return &#40; oQuery&#58;= GetApp&#40;&#41;&#58;LeerTabla&#40; &#123; &quot;clientes&#46;cod_cli&quot;, &quot;clientes&#46;cliente&quot; &#125;, , , &quot;cliente&quot; &#41;  &#41;\n\n        Case nItem == 2\n\n        return &#40; oQuery&#58;= GetApp&#40;&#41;&#58;LeerTabla&#40; &#123; &quot;clientes&#46;*&quot; &#125; &#41;  &#41;\n    enddo\nreturn \n[/code:r6d6i5ps]\n\nEsto es simple cuando hay unos 3 o 4, pero tengo en realizar 40 de esto s nItem entonces es muy engorroso ir acordandose que me devuelve esto:\n\n[code:r6d6i5ps]Recargar&#40; 35 &#41;[/code:r6d6i5ps]\nPor lo que pense que podría hacer un .ch donde, por ejmplo haga esto:\n\nConsultaCliente:=  { \"clientes.cod_cli\", \"clientes.cliente\" }, , , \"cliente\" \n\nComo lo hago? porque dijense que estoy pansado tambien las comas. pensé hacerlo asi: \n[code:r6d6i5ps]&#91;comillas simples&#93; &#123; &quot;clientes&#46;cod_cli&quot;, &quot;clientes&#46;cliente&quot; &#125;, , , &quot;cliente&quot; &#91;comillas simples&#93; [/code:r6d6i5ps]\npero me toma como toda una cadena.\n\nAlguna Idea?\nGracias.','',0,'AIA=','r6d6i5ps',1,0,'',52,0,0),(28430,6387,3,6,0,'87.10.2.62',1174309487,1,0,1,1,1,1,'','','Create a new RC or RES project, import prev32.dll, save and then link the RC or RES to your EXE.\n\nEMG','',0,'AIA=','19c8p2ox',1,0,'',6,0,0),(28431,6389,3,801,0,'201.10.73.196',1174312727,1,0,1,1,1,0,'','BitMap/Icones (Windows xp), para botoes e barras','Alguem conhece algum site pra pegar BitMaps e/ou Icones, para pegar e usar em botoes e barras na aplicacao (de preferencia tipo windows xp) ?\n\nDesde ja agradeco: Muito Obrigado !\n\nGilberto','',0,'AIA=','ody8wf9t',1,0,'',801,0,0),(28432,6387,3,86,0,'213.119.103.68',1174313077,1,0,1,1,1,1,'','','Enrico,\n\nAnd I need to adjust the RPREVIEW class since it is directed to PREV32.DLL, don\'t I ?\n\nThanks.\n\nI\'ll try it out.\n\nMichel','',0,'AIA=','2kdqkf5u',1,0,'',86,0,0),(28433,6372,3,705,0,'121.247.130.123',1174313515,1,0,1,1,1,0,'','','Antonio,\n\nThanks for your post reply.\n\nFrom which sample should i get some idea on zip/unzip. Is there any 32 bits sample.\n\nwith regards,\nArindam','',0,'AIA=','d0bwm2mi',1,0,'',705,0,0),(28434,6389,3,801,0,'201.10.73.196',1174313766,1,0,1,1,1,0,'','','vejam este: <!-- m --><a class=\"postlink\" href=\"http://www.download.joejoe.org/\">http://www.download.joejoe.org/</a><!-- m -->','',0,'AIA=','2seg3qdr',1,0,'',801,0,0),(28435,6387,3,6,0,'87.10.2.62',1174313986,1,0,1,1,1,1,'','','[quote=&quot;driessen&quot;:deh6a3dc]Enrico,\n\nAnd I need to adjust the RPREVIEW class since it is directed to PREV32.DLL, don\'t I ?[/quote:deh6a3dc]\n\nYes, sorry. By the way, I just tried to change messages from prev32.dll and found it perfectly working.\n\nEMG','',0,'gA==','deh6a3dc',1,0,'',6,0,0),(28436,6386,6,456,0,'217.127.39.57',1174314466,1,0,1,1,1,1,'','','Si usas xHarbour utiliza CreateObject(), en lugar de tOleAuto():New(). xHarbour lleva soporte nativo ole. Si usas Harbour, para poder usar tOleAuto, debes enlazar con la libreria hbOle.lib','',0,'gA==','15cwqoa5',1,1174325487,'',456,1,0),(28437,6390,6,92,0,'217.125.165.50',1174315347,1,0,1,1,1,0,'','DataBase.prg y DataBase.ch','Hola,\nAlguien me puede decir si el método New() de Database.prg se corresponde con el método New() que se usará según Database.ch?\n(observen los parámetros)\n\nY lo mismo sucede con el método ADDindex().\n\nHoy empiezo a cambiar mi lógica al uso de la clase TDatabase, y claro a la primera me estoy dando de frente con algo que no se ver o que hago mal.\n\nEstoy usando FWH 7.01 y Hrbour 1.00\nSaludos y gracias.\nCarlos G.','',0,'gA==','2pm528in',1,0,'',92,0,0),(28438,6387,3,303,0,'72.199.41.171',1174318737,1,0,1,1,1,0,'','','I find that often when I edit a 32bit DLL with Workshop, it is damaged.\n\nJames','',0,'gA==','3sh0pslh',1,0,'',303,0,0),(28439,6391,6,92,0,'217.125.161.190',1174319960,1,0,1,1,1,0,'','Longitud máxima de Alias','Hola,\n\nCual puede ser la longitud máxima de un alias de una DBF abierta?\n\nSaludos\nCarlos G.','',0,'gA==','pq33ty2m',1,0,'',92,0,0),(28440,6330,6,207,0,'189.158.110.242',1174323142,1,0,1,1,1,0,'','','creo que me pasa lo mismo, en la primera celda que aparece en browse esta completamente negra, ¿podrias pasarme tu solución?','',0,'gA==','ugx9kixg',1,0,'',207,0,0),(28441,6386,6,838,0,'80.59.225.15',1174325113,1,0,1,1,1,0,'','','Una pregunta\nEs que a pesar de sustituir Toleauto():New() por Createobject, el error que me da en tiempo de ejecución hace referencia a Toleauto, aunque en el fuente no aparezca por ningún lado. Mira el código de error que me da:\n[list:3o7yatae]Application\n===========\n   Path and name: c:\\fuentes\\xharbour\\mail2.Exe (32 bits)\n   Size:   444,928 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 03/19/07, 18:20:09\n   Error description: Error TOleAuto/-1  CO_E_CLASSSTRING: TOLEAUTO:NEW\n   Args:\n     [   1] = C   Persits.MailSender.4\n\nStack Calls\n===========\n   Called from:  =&gt; THROW(0)\n   Called from: win32ole.prg =&gt; TOLEAUTO:NEW(300)\n   Called from: win32ole.prg =&gt; CREATEOBJECT(67)\n   Called from: mail2.prg =&gt; EMAILSENDER(3)\n[/list:u:3o7yatae]\n\nQue puede ser?\n\nGracias\n\nJose Luis','',0,'AEA=','3o7yatae',1,0,'',838,0,0),(28442,6360,3,217,0,'200.159.120.34',1174325205,1,0,1,1,1,0,'','','In older FW versions bChange was evaluated in wrong place. Then if you ask to show the variable buffer the last key pressed wasn\'t considered.\nI think Antonio fixed it months ago...\nIf I\'m not wrong it was corrected 2006/march.\n\nRegards,\nMaurilio','',0,'AEA=','221vhu8g',1,0,'',217,0,0),(28443,4897,6,9,0,'85.59.46.186',1174325620,1,0,1,1,1,1,'','Re: Forma PDF - Llenar los campos con datos almacenados en D','[quote=&quot;Manuel Aranda&quot;:mh69d2ri]Claro que lo resolví y en los dos mensajes anteriores tienes los ejemplos.[/quote:mh69d2ri]\n\nManuel, en primer lugar felicidades por el logro. Desde hace tiempo vengo rellenando los impresos oficiales 300 y 110 de Hacienda, pero el 390 se me resiste. En los mod. 300 y 110 para tomar los datos, usa un fichero ASCII plano y es fácil. Pero para el modelo 390 usa un fichero.XML, como el que tu comentas. \n\nDesgraciadamente, el fichero tiene muchísimas variables y queria pedir, a los amigos del foro, (para ahorrarme algunas horas de trabajo) si alguno viene usando este modelo 390.','',0,'gA==','mh69d2ri',1,0,'',9,0,0),(28444,6321,7,2,0,'87.218.146.32',1174325856,1,0,1,1,1,1,'','','Elías,\n\nSELECT 1 \nUSE (CURDIR() +\"\\definiciones.dbf\") VIA \"DBFCDX\" new \nMsgInfo( Alias() )\n\nantes del browse, tendría que mostrar siempre DEFINICIONES, es así ?','',0,'gA==','268g1wxf',1,0,'',2,0,0),(28445,6390,6,2,0,'87.218.146.32',1174326231,1,0,1,1,1,1,'','','Carlos,\n\nDataBase.ch NO se usa. Se usa el comando DATABASE ... que está en FiveWin.ch','',0,'gA==','1l5wlilr',1,0,'',2,0,0),(28446,6321,7,720,0,'80.36.244.134',1174326815,1,0,1,1,1,0,'','','Hola Antonio, por fin he dado con el problema!. Miré por todo el código que estaba relacionado con esta función (basándome en lo que me decías de que estaba reutilizando el área de trabajo o directamente me lo estaba cargando) y efectivamente en una parte de una función estaba haciendo un \'use\' que no debía hacer. Lo he quitado y todo está correcto.\n\nDe nuevo muchas gracias por tu tiempo.\n\nSaludos.\n\nElías Torres.','',0,'gA==','1ime325s',1,0,'',720,0,0),(28447,6386,6,456,0,'217.127.39.57',1174327337,1,0,1,1,1,1,'','','Si se ve que einternamente CreateObject llama a tOleAuto:New(). \n\nEl error que te da, no sabria decirte, pero a mi me da un error muy parecido cuando intento crear un objeto y dicho objeto no esta en mi sistema, o me equivoco en el string.\n\n[code:268xmedw]\noRsPen&#58;=CreateObject&#40;&quot;NADA&quot;&#41;\n[/code:268xmedw]\n[quote:268xmedw]Error occurred at: 19-03-07, 18:58:28\n   Error description: Error TOleAuto/-1  CO_E_CLASSSTRING: TOLEAUTO:NEW\n   Args:\n     [   1] = C   ADof\n\nStack Calls\n===========\n   Called from:  =&gt; THROW(0)\n   Called from: win32ole.prg =&gt; TOLEAUTO:NEW(307)\n   Called from: win32ole.prg =&gt; CREATEOBJECT(67)[/quote:268xmedw]','',0,'gIA=','268xmedw',1,0,'',456,0,0),(28448,6360,3,303,0,'72.199.41.171',1174328050,1,0,1,1,1,0,'','','Maurilio,\n\nThanks for your response.\n\n&gt;In older FW versions bChange was evaluated in wrong place. Then if you ask to show the variable buffer the last key pressed wasn\'t considered. I think Antonio fixed it months ago... \n\nWell, that explains it, but there is a problem. Before the \"fix,\" you could reject any keystroke by returning .f. from the bChange codeblock. This was really useful as you could have complete control over what was entered. The downside is that if you need everything that has been input you have to use oGet:varGet() + chr( nKey ). Note that nKey is automatically passed by the eval so this can be done.\n\n[code:zs0amqfj]Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;[/code:zs0amqfj]\n\nThe \"fix\" you mentioned makes it much more difficult to reject keystrokes. You might think that you could just chop off the last character, but it is not so simple. First, the user will have already seen the character in the GET (not so with the previous method). Second, the user could be inserting or overstriking a character in the middle of the existing data in the GET. So, you have to write a rather complex processing routine and you still can\'t overcome the issue of the last character already having been displayed to the user.\n\nI notice in TGet:keyChar() there is also another codeblock that could be used the way you want. Near the end of the method you will see this:\n\n           [code:zs0amqfj]Eval&#40; &#58;&#58;bPostKey, Self, &#58;&#58;oGet&#58;Buffer &#41;[/code:zs0amqfj]\n\nAt the time of this eval, ::bPostKey will contain the entire buffer including the last key typed (unless the last key was rejected either by other code or by bChange). \n\nSo, the last \"fix\" broke existing code. Any change now will likely break other code so there is no perfect solution, but I think you can easily change your code to use bPostkey instead of bChange. If that works, then we can move bChange back to its original location and we will have access to both features. Having both features would also allow you to easily both reject keystrokes before they reached the buffer AND to evaluate the buffer with each new keystroke by using both bChange and bPostKey.\n\nWill you test changing your existing code to use bPostKey instead of bChange to see if that works for you? Then let us know what you find and we can either look for a different solution or we can make a recommendation to Antonio.\n\nAnyone else have any comments or suggestions?\n\nRegards,\nJames','',0,'AIA=','zs0amqfj',1,0,'',303,0,0),(28449,6390,6,92,0,'217.125.161.190',1174329939,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1dyq6grm]Carlos,\n\nDataBase.ch NO se usa. Se usa el comando DATABASE ... que está en FiveWin.ch[/quote:1dyq6grm]\n\nGracias Antonio,\n\nsigo adelante.\n\nSaludos\nCarlos G.','',0,'gA==','1dyq6grm',1,0,'',92,0,0),(28450,6387,3,86,0,'213.119.103.68',1174330507,1,0,1,1,1,1,'','','Enrico,\nJames,\n\nI transferred PREV32.DLL to RC-file, compiled it to a RES-file and linked it in my application.\n\nI changed RPREVIEW.PRG (get rid of GetResources(), \"PREV32.DLL\" ...) and linked it in my application, too.\n\nNow, everything is working fine.\n\nThanks a lot for your help, guys.\n\nMichel','',0,'gA==','2kti573a',1,0,'',86,0,0),(28451,6392,3,86,0,'213.119.103.68',1174330702,1,0,1,1,1,1,'','RPREVIEW and TPRINTER in Windows Vista','Hello,\n\nToday, I tested my application on Windows Vista for the first time.\n\nEverything is running fine (Vista looks much faster on a dualcore processor than XP).\n\nOnly one minor problem : if I start a report through RPREVIEW and TPRINTER, it lasts a few seconds before the report is started. When the preview is shown and the CLOSE-button is pushed, it lasts a few seconds once again before the preview vanishes.\n\nDoes anyone have any idea why ?\n\nThanks.\n\nMichel','',0,'gA==','3u5gnum8',1,0,'',86,0,0),(28452,4897,6,180,0,'81.38.4.13',1174330789,1,0,1,1,1,0,'','Re: Forma PDF - Llenar los campos con datos almacenados en D','Me adhiero a tu petición, me ocurre xastamente igual que a tí.\n\nUn saludo,\nManuel \n\n[quote=&quot;Manuel Valdenebro&quot;:r5wyj0xx][quote=&quot;Manuel Aranda&quot;:r5wyj0xx]Claro que lo resolví y en los dos mensajes anteriores tienes los ejemplos.[/quote:r5wyj0xx]\n\nManuel, en primer lugar felicidades por el logro. Desde hace tiempo vengo rellenando los impresos oficiales 300 y 110 de Hacienda, pero el 390 se me resiste. En los mod. 300 y 110 para tomar los datos, usa un fichero ASCII plano y es fácil. Pero para el modelo 390 usa un fichero.XML, como el que tu comentas. \n\nDesgraciadamente, el fichero tiene muchísimas variables y queria pedir, a los amigos del foro, (para ahorrarme algunas horas de trabajo) si alguno viene usando este modelo 390.[/quote:r5wyj0xx]','',0,'gA==','r5wyj0xx',1,0,'',180,0,0),(28453,6393,3,962,0,'200.161.189.51',1174331567,1,0,1,1,1,1,'','Problems :hide() with ReDefine Folder - Antonio Linares','Olá Antonio.\n\nComo fazer para ocultar uma guia do TFolder ?\nSem precisar eliminar/recarregar.\n\n[code:151nbcd9]\n&#46;&#46;&#46;\n       Redefine FOLDER oFld ;\n                ID 4003     ;\n                OF &#58;&#58;oDlgCliente ;\n                ITEMS \'Gera&amp;l\', \'&amp;Pessoa Física\', \'&amp;Endereços\', \'Dados &amp;Fiscais\' ;\n                DIALOGS \'CDT_CLIENTE_GERAL\', \'CDT_CLIENTE_FISICA\', \'CDT_CLIENTE_ENDERECO\', \'CDT_CLIENTE_FISCAL\'\n\n&#46;&#46;&#46;\n    // Isso não funciona\n     oFld&#58;aDialogs&#91;2&#93;&#58;Hide&#40;&#41;\n[/code:151nbcd9]\n\nObrigado.','',0,'AIA=','151nbcd9',1,0,'',962,0,0),(28454,6360,3,217,0,'200.159.120.34',1174332105,1,0,1,1,1,0,'','','James, I understood the problem.\nI\'ll try bPostKey instead bChange in all code I have and I\'ll post here my results.\n\nRegards,\nMaurilio','',0,'AIA=','3icznh9z',1,0,'',217,0,0),(28455,6392,3,3,0,'82.255.119.40',1174333031,1,0,1,1,1,1,'','Re: RPREVIEW and TPRINTER in Windows Vista','Michel\n\nFivewin and vista work OK\n\nWhat you describe is a side effect of \"Aero windows theme\"\n\nChange you \"theme\" to any non aero and you\'re set.\n\nHth\n\nRichard','',0,'AIA=','2ivv315r',1,0,'',3,0,0),(28456,6393,3,3,0,'82.255.119.40',1174333180,1,0,1,1,1,1,'','Re: Problems :hide() with ReDefine Folder - Antonio Linares','Eric \n\nTry something like this\n\n oFld:aEnable[2]:=.F.\n \nHth\n\nRichard','',0,'','1g2200bc',1,0,'',3,0,0),(28457,6393,3,962,0,'200.161.189.51',1174333418,1,0,1,1,1,1,'','','Obrigado Richard\n\nA minha necessidade é ocultar, e não desabilitar.','',0,'','16r372e1',1,0,'',962,0,0),(28458,6393,3,3,0,'82.255.119.40',1174334229,1,0,1,1,1,1,'','','Eric\n\nI understand\n\nI have not found how to hide a folder dialog neither. What i do is the following\n\nlocal dlib \n\n Redefine FOLDER oFld ; \n                ID 4003     ; \n                OF ::oDlgCliente ; \n                ITEMS \'Gera&amp;l\', dlib, \'&amp;Endereços\', \'Dados &amp;Fiscais\' ; \n                DIALOGS \'CDT_CLIENTE_GERAL\', \'CDT_CLIENTE_FISICA\', \'CDT_CLIENTE_ENDERECO\', \'CDT_CLIENTE_FISCAL\' \n\n\nIf \n  dlib := ....\n else\n  dlib := nil\n  oFld:aEnable[2]:=.F. \nendif\n\nthe title is not visible though the \"place allocated\" for the dialog does not disappear.\n\nHTH\n\nRichard','',0,'','1457md1n',1,0,'',3,0,0),(28459,6321,7,2,0,'87.218.146.32',1174335386,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1ud8nm17',1,0,'',2,0,0),(28460,6393,3,2,0,'87.218.146.32',1174335529,1,0,1,1,1,1,'','','Éric,\n\nThe Windows API does not provide a function to hide a tab of the folder. \n\nYou may need to rebuild it again without such tab','',0,'','2semeqzn',1,0,'',2,0,0),(28461,6394,3,3,0,'82.255.119.40',1174335939,1,0,1,1,1,1,'','uestudio OT','Hello\n\nI am trying to configure out UESTUDIO\n\nI have used the provided (from Ken) xharbour config file.\n\nI am testing with a hello world project, very simple program.\n\nCompile and link are OK, no errors but nothing shows at run  time. I am using \"release mode\" \n\nI am sure i am missing some library ... but i am not able to find which one.\n\nAny one had succeeded in using oestudio can share the xharbour.config application file ?\n\nThanks in advance.\n\nRichard\n\nI join my config file, if anyone can help ....\n\n# ----- xHarbour-FiveWin Compiler configuration ---- \n# --- general -------------------------------------- \n# $P - project name \n# $Pp - path to project directory \n# $Pn - project name \n# --- compile -------------------------------------- \n# $I - input full name \n# $Ip - input path \n# $In - input name \n# $Ie - input extension \n# $O - output file \n# $Op - path to output file \n# $On - output filename (without path) \n# $Oe - output extension \n# $R - release/debug setting for compiler \n# --- build ---------------------------------------- \n# $T - target full name \n# $Tp - target path \n# $Tn - target name \n# $O - output file \n# $Op - path to output file \n# $On - output filename (without path) \n# $Oe - output extension \n# $R - release/debug setting for linker \n\n[Settings] \nTarget = \nCategory&amp;01 = DEFAULT RUN CONFIGURATION \nWorking Directory =. \nCommand Line Arguments = \n\nCategory&amp;02 = xHarbour Options \nGUI = FWH \nAutomatic Memvar Declaration = yes|no \nVariables Are Assumed = yes|no \nGenerate Preprocessed Output = no|yes \nExit Severity = 0|1|2 \nUse xHarbour Dll = no|yes \nUse MT Library = no|yes \nUse AdvantageRDD = no|yes \nUser Include Path =  \nUser Defines = \n\n\nCompiler Options = \nLinker Options = \n\n[SettingsInfo] \nTarget = Provides a space for you to specify an output file and location of the program that the linker creates. \nWorking Directory = Provides a space for you to specify the directory in which executing occurs. If you do not specify a directory, executing occurs in the directory where the executable is located. \nCommand Line Arguments = Provides a space for you to specify command-line arguments you want to pass to the program at startup. \nCompiler Options = Provides a space for you to specify an additional compiler options. \nUser Defines = Shows the switches the tool will use to build. Use \';\' as delimiter. \nUse MT Library = Set this if you want to use Multi threaded libraries \nLinker Options = Provides a space for you to specify an additional linker options. \n\n[SettingsReps] \nUser Defines = @[;|/D%s] \nAutomatic Memvar Declaration = no=|yes=/a \nVariables Are Assumed = no=|yes=/v \nExit Severity = @/es%s \nGenerate Preprocessed Output = no=|yes=/p \nUse xHarbour Dll = no=|yes=harbour.lib \nUse Multi Thread Library = no|yes \nUse AdvantageRDD = no=|yes = ace32.lib rddads.lib \nUser Include Path = ^^@[;|;%s] \nUser Include Path&amp;1 = ^^@[;| /i%s] \n\n[Variables] \nFWH = C:\\FWH\nCPATH = C:\\xHarbour \nBPATH = C:\\BCC55\\CBUILDER5 \n\nFWHI = $(FWH)\\include \nFWHL = $(FWH)\\lib \n\nGUII = {[$(GUI)=][none=][FWH=;$(FWHI)]} \nGUIL = {[$(GUI)=][none=][FWH=;$(FWHL)]} \nGUII&amp;1 = {[$(GUI)=][none=][FWH=/i$(FWHI)]} \n\nCOPT = /i$(CPATH)\\INCLUDE $(User Include Path&amp;1) $(GUII&amp;1) /n $(Automatic Memvar Declaration) $(Variables Are Assumed) $(Exit Severity) $(User Defines) $(Compiler Options) $(Generate Preprocessed Output) \nBOPT = -c -D__EXPORT__ -I$(CPATH)\\INCLUDE;$(BPATH)\\INCLUDE$(User Include Path)$(GUII) \n\nLOPT = -L$(BPATH)\\LIB\\OBJ;$(BPATH)\\LIB;$(CPATH)\\LIB$(GUIL) -Gn -M -m -s -Tpe -x $(GLnk) $(Linker Options) \nLIB1 = lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib import32.lib cw32.lib \nLIBM = lang.lib vmmt.lib rtlmt.lib rddmt.lib macromt.lib ppmt.lib dbfntxmt.lib dbfcdxmt.lib dbffptmt.lib common.lib codepage.lib ctmt.lib tipmt.lib pcrepos.lib hsxmt.lib hbsixmt.lib import32.lib cw32mt.lib \n\nLIBX = {[$(Use MT Library)=][no=$(LIB1)][yes=$(LIBM)]} \nGLIB = {[$(GUI)=][none=gtwin.lib][FWH=fivehx.lib fivehc.lib gtgui.lib gtgui.lib]} \nLIBS = $(Use xHarbour Dll) {[$(BuildMode)=][Debug=debug.lib]} $(GLIB) $(LIBX) $(Use AdvantageRDD) \n\nGLnk = {[$(GUI)=][none=-ap][FWH=-aa]} \nDCon = {[$(GUI)=][none=1][FWH=0]} \n\nLinkWith = {[$(GUI)=][none=C:\\BCC55\\CBUILDER5\\lib\\c0x32.obj][FWH=C:\\BCC55\\CBUILDER5\\lib\\c0w32.obj]} \n\n[Environment] \nPATH = $(CPATH)\\BIN;$(BPATH)\\BIN;%PATH% \nINCLUDE = $(CPATH)\\INCLUDE;$(BPATH)\\INCLUDE$(User Include Path);$(GUII) \nLIB = $(CPATH)\\LIB;$(BPATH)\\LIB;$(GUIL) \nOBJ = $(CPATH)\\OBJ; \nBuildMode = %UESMode% \n\n[General] \nTargetExt = .EXE \nReleaseOut = Release \nDebugOut = Debug \nUseFullPaths = 1 \nUseDosNames = 1 \nExcludes = $(Excluded Files) \n\n[MakeCommands] \nrun = Execute Application \nmakef = Show Makefile \n\n[Execute Application] \nTitle = Execute $T \nCmd0 = $(Command Line Arguments) \nDepends = $T \nShowWindow = 1 \nDisplayConsole = $(DCon) \n\n[Show Makefile] \nTitle=Show makefile \nCmd0=uestudio makefile \nShowWindow=1 \nDisplayConsole=0 \n\n[InsertFiles] \n\n[FileGroups] \nFGO = .obj; \nFGR = .res; \nFGL = .lib; \nFGD = .def; \n\n[GroupFormats] \nFGO = %s \nFGR = %s \nFGL = %s \n\n[Build] \nOut = $T \nDepends = $FGO $FGR \nDebugFlag = \nReleaseFlag = \nCmd0 = ILINK32 $(LOPT) $R $(LinkWith) $FGO,$On,,$(LIBS) $FGL,$FGD,$FGR \n\n[.PRG] \nOut = $In.c \nDebugFlag = /b \nReleaseFlag = /l \nCmd0 = harbour $I $(COPT) $R /o$O \n\nIncFiles = 1 \nCaseSensitive = 0 \nIncDirs = .;$(INCLUDE); \nIncKeyWords = #include; \nComments = /*.*/.//.eol. \n\n[.C] \nOut = $In.obj \nCmd0 = bcc32 $(BOPT) -o$O $I \n\n[.RC] \nOut = $In.res \nCmd0 = brcc32 -r -32 -fo$O $I \n\nIncFiles = 1 \nCaseSensitive = 0 \nIncDirs = .;$(INCLUDE); \nIncKeyWords = #include; \nComments = /*.*/.//.eol.','',0,'','1pxtog57',1,0,'',3,0,0),(28462,6395,6,990,0,'190.73.202.8',1174336420,1,0,1,1,1,0,'','Problema con FW24 y xHarbour 0.92','Cada vez que trato de hacer un Vulgar dbappend() sale este error \n\nError DBCMD/0  Open error: DBAPP;__DBAPP(0) in module:\n\nAgradeceria ayuda del alguno de las personas que saben mas sobre este tema.','',0,'','zagv60w2',1,0,'',990,0,0),(28463,6395,6,2,0,'87.218.146.32',1174341858,1,0,1,1,1,1,'','','La versión de xHarbour que estás usando es bastante antigua.\n\nActualízate a una versión reciente','',0,'','m65b8lqg',1,0,'',2,0,0),(28465,6394,3,2,0,'87.218.146.32',1174343063,1,0,1,1,1,1,'','','Richard,\n\nOk, we are at the same stage as you. The EXE is created but it does not run. We are checking it...','',0,'','2xvq4f59',1,0,'',2,0,0),(28466,6396,6,307,0,'200.79.147.250',1174345374,1,0,1,1,1,0,'','para Viktor','hola viktor vi en un post que tienes un manual de xbrowse pero al dar click al link no funciona, \n<!-- m --><a class=\"postlink\" href=\"http://vikthor.com.mx/fivewin\">http://vikthor.com.mx/fivewin</a><!-- m -->\n\nhabra manera de obtener el manual?\n\ngracias.\n\n<!-- e --><a href=\"mailto:arnulfo@arvisnet.com.mx\">arnulfo@arvisnet.com.mx</a><!-- e -->\nun saludo','',0,'','37bx0dmn',1,0,'',307,0,0),(28467,6392,3,86,0,'213.119.103.68',1174346206,1,0,1,1,1,1,'','','Richard,\n\nI put the theme to \"Windows Classic\", but the problems remains.\n\nThanks.\n\nMichel','',0,'','d77j7mnn',1,0,'',86,0,0),(28468,6397,6,694,0,'200.189.112.21',1174352350,1,0,1,1,1,1,'','Classe TPROGRESS com sinal de % é possível?','É possível utilizando a classe tprogress que apareça o sinal de %, igual é utilizando o METER?\n\nEX?\n\n===..........10%............\n\naokisantos','',0,'','3is0nn7j',1,0,'',694,0,0),(28469,6394,3,2,0,'87.218.146.32',1174354356,1,0,1,1,1,1,'','','Richard,\n\nSeems to be a bug in the way UEStudio manages groups of files.\n\nAdd another PRG to your project and the resulting EXE will be ok. It was not working as the main PRG was not being linked in.','',0,'','ye8vb6ft',1,0,'',2,0,0),(28470,6394,3,2,0,'87.218.146.32',1174355249,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3d9wnsn7][img:3d9wnsn7]http&#58;//img137&#46;imageshack&#46;us/img137/7785/uestudio2jo1&#46;png[/img:3d9wnsn7][/url:3d9wnsn7]','',0,'GA==','3d9wnsn7',1,0,'',2,0,0),(28471,6398,3,980,0,'58.143.178.149',1174367135,1,0,1,1,1,0,'','To Richard: Unicode Problem','[quote:1pjtzfa8]Unicode problem. Sometimes when we input some Chinese Character \nMS-Work can disappear it, but FWH\'s AP appear \'?\' problem for me. \nSo I intall Free Unicode tools from site( I gorgot ) to solve this problem. \nNow, I input any Chinese character no problem.[/quote:1pjtzfa8]\n\n\nHi Richard, sorry to trouble you many time, i have no idea to find the unicode tools for solving the \'?\' display problem for some Chinese character.  \n\nWould you help to some more information for your tool?\n\nRegards.\nThomas','',0,'gA==','1pjtzfa8',1,0,'',980,0,0),(28472,6398,3,15,0,'203.70.52.83',1174369648,1,0,1,1,1,0,'','','Hello wktsang1,\n\nI will talk to you by MSN.\n\nRegards,\n\nRichard','',0,'gA==','22jnknhe',1,0,'',15,0,0),(28473,6397,6,2,0,'87.218.146.32',1174375997,1,0,1,1,1,1,'','','Aokisantos,\n\nNo, el API de Windows no muestra el porcentaje en ese control','',0,'gA==','jfshbbrs',1,0,'',2,0,0),(28474,6372,3,2,0,'87.218.146.32',1174376085,1,0,1,1,1,1,'','','Arindam,\n\nHave a look at Harbour/xharbour CVS files, tests directory','',0,'gA==','36crr7er',1,0,'',2,0,0),(28475,6399,6,542,0,'83.52.13.255',1174377163,1,0,1,1,1,0,'','ilink32','Hola amigos:\n\nSoy nuevo con fwh + harbour y no consigo realizar un ejecutable todavia, mi problema es porque no se que instrucciones debe llevar el archivo para linkar, yo con fw + clipper  realizaba la siguiente instruccion desde un bat:\n\nblinker @cyewin.lnk\n\ny el archivo cyewin.lnk tenia lo siguiente:\n\nBLINKER CLIPPER SYMBOL OFF\n\nfi fyvwin,rddsys,preparar,gestempr,gestacti,gestutil,gestbanc,gestconc,gestempl,gestprov,gestclie,gestcocl,gestmovi,gestalba,gestfact,gestmovg,gestfacg,gestvenc,gestlist,gestimpr\nOUT fyvwin.exe\n\nPACKCODE\nPACKDATA\n\n// If you use Mr. Debug for Windows product\n// search c:\\mrdebug\\lib\\mrd4win.lib\n\nDEFBEGIN\n   name        FyVWin\n   description \'Facturacion y Vencimientos para Windows\'\n   exetype     Windows 3.1\n   code        moveable discardable preload\n   data        preload moveable\n   stacksize   10000\n   heapsize    4096\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nNOBELL\n\nsear  Five, FiveC, Objects, Fast, WinApi\nlib   clipper, extend, terminal, dbfcdx, _dbfcdx\n\nalguien me podria ayudar para saber que tengo que cambiar para hacerlo con ilink32.\n\no decirme agun ejemplo para linkar.\n\nGracias\n\nCarlos\n\Z','',0,'gA==','32nyxh8i',1,0,'',542,0,0),(28476,6400,3,210,0,'81.24.159.58',1174382064,1,0,1,1,1,0,'','Extend system','Hello all,\nis there an way to give back a array with nested arrays from a C-routine to Harbour? hb_reta() produces only one array.\nGreetings','',0,'gA==','49ibdhht',1,0,'',210,0,0),(28477,6400,3,2,0,'87.218.146.32',1174383910,1,0,1,1,1,1,'','','From Harbour Directory() source code:\n[code:3fgxk0i3]\nHB_FUNC&#40; DIRECTORY &#41;\n&#123;\n   PHB_ITEM  pDirSpec = hb_param&#40; 1, HB_IT_STRING &#41;;\n   PHB_ITEM  pAttributes = hb_param&#40; 2, HB_IT_STRING &#41;;\n   USHORT    uiMask;\n\n   PHB_ITEM  pDir = hb_itemArrayNew&#40; 0 &#41;;\n   PHB_FFIND ffind;\n\n   /* Get the passed attributes and convert them to Harbour Flags */\n\n   uiMask = HB_FA_ARCHIVE\n          | HB_FA_READONLY\n          | HB_FA_DEVICE\n          | HB_FA_TEMPORARY\n          | HB_FA_SPARSE\n          | HB_FA_REPARSE\n          | HB_FA_COMPRESSED\n          | HB_FA_OFFLINE\n          | HB_FA_NOTINDEXED\n          | HB_FA_ENCRYPTED\n          | HB_FA_VOLCOMP;\n\n   if&#40; pAttributes &amp;&amp; hb_itemGetCLen&#40; pAttributes &#41; &gt; 0 &#41;\n   &#123;\n      if &#40; &#40; uiMask |= hb_fsAttrEncode&#40; hb_itemGetCPtr&#40; pAttributes &#41; &#41; &#41; &amp; HB_FA_LABEL &#41;\n      &#123;\n         /* NOTE&#58; This is Clipper Doc compatible&#46; &#40;not operationally&#41; */\n         uiMask = HB_FA_LABEL;\n      &#125;\n   &#125;\n\n   /* Get the file list */\n\n   if&#40; &#40; ffind = hb_fsFindFirst&#40; pDirSpec ? hb_itemGetCPtr&#40; pDirSpec &#41; &#58; HB_DIR_ALL_FILES_MASK, uiMask &#41; &#41; != NULL &#41;\n   &#123;\n      PHB_ITEM pFilename = hb_itemNew&#40; NULL &#41;;\n      PHB_ITEM pSize = hb_itemNew&#40; NULL &#41;;\n      PHB_ITEM pDate = hb_itemNew&#40; NULL &#41;;\n      PHB_ITEM pTime = hb_itemNew&#40; NULL &#41;;\n      PHB_ITEM pAttr = hb_itemNew&#40; NULL &#41;;\n\n      do\n      &#123;\n         PHB_ITEM pSubarray = hb_itemArrayNew&#40; F_LEN &#41;;\n         char buffer&#91; 32 &#93;;\n\n         hb_arraySet&#40; pSubarray, F_NAME, hb_itemPutC&#40; pFilename, ffind-&gt;szName &#41; &#41;;\n         hb_arraySet&#40; pSubarray, F_SIZE, hb_itemPutNL&#40; pSize, ffind-&gt;size &#41; &#41;;\n         hb_arraySet&#40; pSubarray, F_DATE, hb_itemPutDL&#40; pDate, ffind-&gt;lDate &#41; &#41;;\n         hb_arraySet&#40; pSubarray, F_TIME, hb_itemPutC&#40; pTime, ffind-&gt;szTime &#41; &#41;;\n         hb_arraySet&#40; pSubarray, F_ATTR, hb_itemPutC&#40; pAttr, hb_fsAttrDecode&#40; ffind-&gt;attr, buffer &#41; &#41; &#41;;\n\n         /* Don\'t exit when array limit is reached */\n         hb_arrayAdd&#40; pDir, pSubarray &#41;;\n\n         hb_itemRelease&#40; pSubarray &#41;;\n      &#125;\n      while&#40; hb_fsFindNext&#40; ffind &#41; &#41;;\n\n      hb_itemRelease&#40; pFilename &#41;;\n      hb_itemRelease&#40; pSize &#41;;\n      hb_itemRelease&#40; pDate &#41;;\n      hb_itemRelease&#40; pTime &#41;;\n      hb_itemRelease&#40; pAttr &#41;;\n\n      hb_fsFindClose&#40; ffind &#41;;\n   &#125;\n\n   hb_itemRelease&#40; hb_itemReturn&#40; pDir &#41; &#41;;\n&#125;\n[/code:3fgxk0i3]','',0,'AIA=','3fgxk0i3',1,0,'',2,0,0),(28478,6399,6,2,0,'87.218.146.32',1174384028,1,0,1,1,1,1,'','','FWH proporciona el fichero buildh.bat y buildx.bat en el directorio samples en donde se muestra claramente como construir un EXE con harbour ó xharbour, usando ilink32','',0,'AIA=','3s5xswem',1,0,'',2,0,0),(28479,6401,3,330,0,'217.37.54.49',1174384593,1,0,1,1,1,0,'','Shellexecute','Hi all\nI am using fwh with the latest xharbour compiler and I am getting a problem with using shellexecute in that it gpfs every time it tries to use this. Winexec works but I have had problems with winexec on some operating versions.\n\nThanks\nPeter','',0,'AIA=','1i2ve4uk',1,0,'',330,0,0),(28480,6401,3,2,0,'87.218.146.32',1174385255,1,0,1,1,1,1,'','','Peter,\n\nPlease copy here how you are calling ShellExecute() when it GPFs, thanks','',0,'AIA=','3670hcu1',1,0,'',2,0,0),(28481,6401,3,330,0,'217.37.54.49',1174385703,1,0,1,1,1,0,'','','ShellExecute(0,0, \"CAPSLOCK\",\"on\",0,0)','',0,'AIA=','l2tyv34h',1,0,'',330,0,0),(28482,6401,3,2,0,'87.218.146.32',1174386076,1,0,1,1,1,1,'','','Peter,\n\nHere it is working ok. \n\nAre you using xHarbour from the CVS or the commercial version ?','',0,'AIA=','2vg7tblo',1,0,'',2,0,0),(28483,6401,3,330,0,'217.37.54.49',1174386905,1,0,1,1,1,0,'','','latest commercial version in beta','',0,'AIA=','1uexi60e',1,0,'',330,0,0),(28484,6401,3,3,0,'82.124.119.117',1174387391,1,0,1,1,1,1,'','','Peter\n\ntry utting  SHELLEXECUTE(WNDMAIN():hWnd,\"open\",....\n\nIt works with xhb commercial and latest beta \n\nRichard','',0,'AIA=','3q1qkug9',1,0,'',3,0,0),(28485,6401,3,330,0,'217.37.54.49',1174387562,1,0,1,1,1,0,'','','Sorry can you post a full syntax using thesample i posted before','',0,'AIA=','24vrnauo',1,0,'',330,0,0),(28486,6401,3,2,0,'87.218.146.32',1174388881,1,0,1,1,1,1,'','','[code:2z63eoed]\nfunction Main&#40;&#41;\n\n   ShellExecute&#40;0,0, &quot;CAPSLOCK&quot;,&quot;on&quot;,0,0&#41;\n   MsgInfo&#40; &quot;done&quot; &#41;\n   \nreturn nil   \n[/code:2z63eoed]','',0,'AIA=','2z63eoed',1,0,'',2,0,0),(28487,6402,3,161,0,'213.119.247.14',1174389243,1,0,1,1,1,0,'','Field-name','I\'m still using FW+clipper.\nI\'m wondering if I move to FWH that there is still a restiction of 10 characters for field-names in database and that special characters can be used (ex. $) for filed-names.\n\nThanks\n\nMarc','',0,'AIA=','2557blpa',1,0,'',161,0,0),(28488,6401,3,330,0,'217.37.54.49',1174390609,1,0,1,1,1,0,'','','thats what I am using but it still gpfs. Should I be using the latest version of fwh','',0,'AIA=','105yikp9',1,0,'',330,0,0),(28489,4897,6,316,0,'213.97.245.163',1174390724,1,0,0,1,1,0,'','Otra alternativa','Hace algun tiempo descubrí el pdftk. Si bien lo usaba para otra cosa, sé que tambien se puede usar para hacer el merge del xml con los campos del pdf.\nEs de uso bastante sencillo\n\n<!-- m --><a class=\"postlink\" href=\"http://www.accesspdf.com/pdftk\">http://www.accesspdf.com/pdftk</a><!-- m -->\n\nSaludos,\n\nCarlos.','',0,'AIA=','3s5itfs2',1,0,'',316,0,0),(28490,6402,3,2,0,'87.218.146.32',1174390848,1,0,1,1,1,1,'','','Marc,\n\nThere is no 10 chars restriction, but the files names rules are the same','',0,'AIA=','2b2t0g1w',1,0,'',2,0,0),(28491,6394,3,529,0,'200.233.185.181',1174391461,1,0,1,1,1,0,'','','whats version yours using?','',0,'AIA=','3pcuc5hj',1,0,'',529,0,0),(28492,6394,3,2,0,'87.218.146.32',1174391862,1,0,1,1,1,1,'','','The current version that is available from <!-- m --><a class=\"postlink\" href=\"http://www.ultraedit.com/index.php?name=Downloads&amp;d_op=viewdownload&amp;cid=13\">http://www.ultraedit.com/index.php?name ... oad&amp;cid=13</a><!-- m -->','',0,'AIA=','fzzrbp7y',1,0,'',2,0,0),(28493,6397,6,694,0,'200.189.112.21',1174391965,1,0,1,1,1,1,'','gracias','gracias','',0,'AIA=','2bsmv0od',1,0,'',694,0,0),(28494,87,3,52,0,'190.7.62.226',1174392606,1,0,1,1,1,1,'','Re: Solved!','[quote=&quot;Antonio Linares&quot;:37im270w][quote=&quot;Rafael Clemente&quot;:37im270w]It was just a matter of adding SysRefresh() !!![/quote:37im270w]\n\ngood  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:37im270w]\nAntonio, este codigo \n\n\n[code:37im270w]    redefine get odatos&#91;1&#93;&#46;&#46;&#46;\n    &#46;&#46;&#46;\n\n    redefine get odatos&#91;10&#93;&#46;&#46;&#46;\n\n    oDatos&#91;1&#93;&#58;bValid&#58;= &#123; || oDatos&#91;1&#93;&#58;SetPos&#40; 10 &#41;, SysRefresh&#40;&#41;, &#46;T&#46; &#125;[/code:37im270w]\nCuando valida oDatos[1], salta al get en la posicion 10? aca no me esta funcionado.','',0,'gIA=','37im270w',1,0,'',52,0,0),(28495,6403,6,483,0,'201.252.183.118',1174393800,1,0,1,1,1,0,'','comas por punto','Hola foro: talvez sea una pregunta tonta, pero no se como cambiar el punto decimal por coma. Es que tengo que generar un archivo plano y me piden que en lugar de punto decimal tiene que figurar la coma.\nDesde ya muchas gracias.','',0,'gIA=','2t03pdiy',1,0,'',483,0,0),(28496,87,3,2,0,'87.218.146.32',1174393822,1,0,1,1,1,1,'','','Gustavo,\n\nSi el foco se va a ir a otro control, prueba a hacer:\n\noGet:nPos := 10\n\ndesde el VALID','',0,'gIA=','1i9ryisg',1,0,'',2,0,0),(28497,87,3,52,0,'190.7.62.226',1174394085,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:lmu1ewcw]Gustavo,\n\nSi el foco se va a ir a otro control, prueba a hacer:\n\noGet:nPos := 10\n\ndesde el VALID[/quote:lmu1ewcw]\n\n   [code:lmu1ewcw]oDatos&#91;1&#93;&#58;bValid&#58;= &#123; || oDatos&#91;1&#93;&#58;nPos&#58;= 5, SysRefresh&#40;&#41;, &#46;T&#46; &#125;[/code:lmu1ewcw]\n\nNo pasa nada... porque?','',0,'gIA=','lmu1ewcw',1,0,'',52,0,0),(28498,87,3,2,0,'87.218.146.32',1174395658,1,0,1,1,1,1,'','','Cuando vuelve el foco al Get, el cursor no va a otra posición ?\n\nCambia tambien oGet:oGet:Pos := 10','',0,'gIA=','26yje5zy',1,0,'',2,0,0),(28499,6394,3,879,0,'65.92.174.8',1174395742,1,0,1,1,1,0,'','','Hello Richard,\n\nThe problem might be with which source file is getting linked first. Initially I had a similar problem. \n\nTry this. In the list of projects on the left side of the screen (see Antonio\'s image) move the mouse pointer over the project file name (test) and right click the mouse. At the bottom of the list of options you will find \"Change Files Order...\" Select this. A window will pop up where you can select and move to the top which program you want to link first.\n\nWhile on the subject of hidden or missing information, if you want to change the name of a resource file element, select the resource to be renamed in that left column and press F2.\n\nAlso, if you move project files to another computer and UEStudio is not installed in exactly the same volume and folder, you will find all the syntax highlighting has disappeared. Look at your project file settings. The problem is the setting stored in the project file for Wordfile.txt.\n\n\nRegards,\n\nKen','',0,'gIA=','3inzxgfa',1,0,'',879,0,0),(28500,6404,6,52,0,'190.7.62.226',1174396590,1,0,1,1,1,1,'','oJump y los buttons','Antonio,\n\nPongo aca el código asi me explico mejor. aca los oJump funcionan, pero no puedo hacer click en los button. en este caso, como hago para que funcione el oJump y a parte el click del button?\n\nGracias\n\n[code:1vnxb0ou]FUNCTION main&#40;&#41;\n\n   LOCAL oDlg, ;\n         oDatos &#58;= Array&#40; 10 &#41;, ;\n         vDatos &#58;= Array&#40; 10 &#41;, ;\n         oBtns  &#58;= Array&#40; 2 &#41;\n\n   oDlg&#58;= Dialogo&#40; oDatos, vDatos, oBtns &#41;\n   Inicializar&#40; oDatos, vDatos, oBtns &#41;\n\n   //----------&#40; Controlo los Get´s &#41;----------\n\n   oDatos&#91;1&#93;&#58;bValid&#58;= &#123; || oDatos&#91;1&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;1&#93; &#93;, &#46;T&#46; &#125;\n   oDatos&#91;2&#93;&#58;bValid&#58;= &#123; || oDatos&#91;2&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;2&#93; &#93;, &#46;T&#46; &#125;\n   oDatos&#91;3&#93;&#58;bValid&#58;= &#123; || oDatos&#91;3&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;3&#93; &#93;, &#46;T&#46; &#125;\n   oDatos&#91;4&#93;&#58;bValid&#58;= &#123; || oDatos&#91;4&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;4&#93; &#93;, &#46;T&#46; &#125;\n   oDatos&#91;5&#93;&#58;bValid&#58;= &#123; || oDatos&#91;5&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;5&#93; &#93;, &#46;T&#46; &#125;\n   oDatos&#91;6&#93;&#58;bValid&#58;= &#123; || oDatos&#91;6&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;6&#93; &#93;, &#46;T&#46; &#125;\n   oDatos&#91;7&#93;&#58;bValid&#58;= &#123; || oDatos&#91;7&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;7&#93; &#93;, &#46;T&#46; &#125;\n   oDatos&#91;8&#93;&#58;bValid&#58;= &#123; || oDatos&#91;8&#93;&#58;oJump&#58;= oDatos&#91; vDatos&#91;8&#93; &#93;, &#46;T&#46; &#125;\n\n   ACTIVATE DIALOG oDlg Centered\n\n   RETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\nFUNCTION Inicializar&#40; oDatos, vDatos, oBtns &#41;\n\n   vDatos&#91;1&#93;&#58;= 3\n   vDatos&#91;2&#93;&#58;= 7\n   vDatos&#91;3&#93;&#58;= 8\n   vDatos&#91;4&#93;&#58;= 6\n   vDatos&#91;5&#93;&#58;= 2\n   vDatos&#91;6&#93;&#58;= 5\n   vDatos&#91;7&#93;&#58;= 3\n   vDatos&#91;8&#93;&#58;= 6\n\n   oDatos&#91;1&#93;&#58;refresh&#40;&#41;\n   oDatos&#91;2&#93;&#58;refresh&#40;&#41;\n   oDatos&#91;3&#93;&#58;refresh&#40;&#41;\n   oDatos&#91;4&#93;&#58;refresh&#40;&#41;\n   oDatos&#91;5&#93;&#58;refresh&#40;&#41;\n   oDatos&#91;6&#93;&#58;refresh&#40;&#41;\n   oDatos&#91;7&#93;&#58;refresh&#40;&#41;\n   oDatos&#91;8&#93;&#58;refresh&#40;&#41;\n\n   RETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\nFUNCTION Dialogo&#40; oDatos, vDatos, oBtns &#41;\n\n   LOCAL oDlg\n\n   DEFINE DIALOG oDlg RESOURCE &quot;DLG_PARTICULAR&quot;\n\n      //----------&#40; Get´s &#41;----------\n\n      REDEFINE GET oDatos&#91;1&#93; VAR vDatos&#91;1&#93; ID 101 OF oDlg\n      REDEFINE GET oDatos&#91;2&#93; VAR vDatos&#91;2&#93; ID 102 OF oDlg\n      REDEFINE GET oDatos&#91;3&#93; VAR vDatos&#91;3&#93; ID 103 OF oDlg\n      REDEFINE GET oDatos&#91;4&#93; VAR vDatos&#91;4&#93; ID 104 OF oDlg\n      REDEFINE GET oDatos&#91;5&#93; VAR vDatos&#91;5&#93; ID 105 OF oDlg\n      REDEFINE GET oDatos&#91;6&#93; VAR vDatos&#91;6&#93; ID 106 OF oDlg\n      REDEFINE GET oDatos&#91;7&#93; VAR vDatos&#91;7&#93; ID 107 OF oDlg\n      REDEFINE GET oDatos&#91;8&#93; VAR vDatos&#91;8&#93; ID 108 OF oDlg\n\n      REDEFINE Checkbox oDatos&#91;9&#93;  VAR vDatos&#91;9&#93;  ID 109 OF oDlg\n      REDEFINE Checkbox oDatos&#91;10&#93; VAR vDatos&#91;10&#93; ID 110 OF oDlg\n\n      //----------&#40; Botones &#41;----------\n\n      REDEFINE BUTTON oBtns&#91;1&#93; ID 301 OF oDlg\n      REDEFINE BUTTON oBtns&#91;2&#93; ID 302 OF oDlg\n\n   RETURN &#40; oDlg &#41;[/code:1vnxb0ou]','',0,'AIA=','1vnxb0ou',1,0,'',52,0,0),(28501,6404,6,2,0,'87.218.146.32',1174396894,1,0,1,1,1,1,'','','Prueba a usar la cláusula CANCEL en los buttons','',0,'AIA=','33q732ck',1,0,'',2,0,0),(28502,6404,6,52,0,'190.7.62.226',1174397365,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1zt2te09]Prueba a usar la cláusula CANCEL en los buttons[/quote:1zt2te09]\n\nAl hacer esto, luego ya deja de funcionar el jump... aclaro con el mouse, con el teclado funciona.','',0,'gA==','1zt2te09',1,0,'',52,0,0),(28504,6395,6,376,0,'201.230.41.55',1174399973,1,0,1,1,1,1,'','Re: Problema con FW24 y xHarbour 0.92','No deberìas tener problemas si estuviste usandolo anteriormente. De todas formas la antiguedad de tu xHarbour puede corregirse con una versiòn màs reciente \"pero que sea compatible con FWH24\". La dificultad reside ubicar la versiòn compatible.\n\nSaludos\n\nArmando\n\n[quote=&quot;Venezolano1963&quot;:1uje67sv]Cada vez que trato de hacer un Vulgar dbappend() sale este error \n\nError DBCMD/0  Open error: DBAPP;__DBAPP(0) in module:\n\nAgradeceria ayuda del alguno de las personas que saben mas sobre este tema.[/quote:1uje67sv]','',0,'gA==','1uje67sv',1,0,'',376,0,0),(28505,6392,3,217,0,'200.159.120.34',1174401114,1,0,1,1,1,0,'','','Michael,\n\nI think it can be related to create/delete temporary files...\nMaybe you can test it including a msgalert(time()) before and after create/delete temporary files...\n\nRegards\nMaurilio','',0,'gA==','3tw28zxr',1,0,'',217,0,0),(28506,6406,6,147,0,'200.45.54.134',1174403428,1,0,1,0,1,1,'','O.T. Buscando fuentes','Por las dudas. alguien usó la lib SPTOOLS de JMS?\nTengo una aplicacion DOS con esta LIB y quisiera compilarla con xHarbour.\nO sea necesito los fuentes...\nO bien si alguien tiene algún correo-e de JMS.\n\nmuchas gracias,\nSaludos','',0,'gA==','1nq81w1g',1,0,'',147,0,0),(28507,6395,6,990,0,'190.73.202.8',1174403498,1,0,1,1,1,0,'','Agradecimiento','Agradecido por sus opiniones y veremos como resolver este detalle que me pasa solo con xharbour ya que tengo ese mismo programa en Clipper52e + FW24 y funciona perfecto el problema resulto con el xharbour y mi falta de trabajo en el mundo de la programacion ya que estoy un poco alejado de ella.','',0,'gA==','2wem6a9d',1,0,'',990,0,0),(28508,6406,6,179,0,'64.46.80.210',1174404619,1,0,1,1,1,1,'','','Mario\n\nme uno a tu pedido, estoy en la misma situación y no he hallado ninguna referencia de esta excelente librería\n\nSaludos','',0,'gA==','zznetppc',1,0,'',179,0,0),(28509,6407,3,86,0,'213.119.103.68',1174405426,1,0,1,1,1,1,'','Urgent question about Outlook','Hello, \n\nI urgently need some WORKING examples for my FW application to : \n\n1. Read an appointment out of Outlook \n2. Write an appointment to Outlook \n3. Read a task out of Outlook \n4. Write a task to Outlook \n5. Read messages from the Inbox. \n\nCan someone provide these to me ? \n\nThank you very much in advance. \n\nMichel','',0,'gA==','3ce2mubj',1,0,'',86,0,0),(28510,6408,6,875,0,'64.76.108.179',1174406358,1,0,1,1,1,0,'','Como Compilar Varios PRGS','estuve probando FiveWin con Harbour ademas de los ejemplos y todo bien, Ahora quiero empezar a migrar a 32 bits, pero tengo una pregunta como compilo varios PRGS, el BAT de ejemplo (BUILDH.BAT) solo esta para un PRG.\n\n\nComo Compilo varios PRGS y luego generar el EXE?\n\n\nGracias de antemano\n\nJaime','',0,'gA==','1qzf5chw',1,0,'',875,0,0),(28511,6409,6,854,0,'200.95.238.251',1174406749,1,0,1,1,1,0,'','Sobre el WorkShop','Que tal saludos a todos.\n\nTengo un problema, yo creo que no es muy grabe, pero en fin, en el workshop, hasta antes de instalar el \"Resource Builder\" para probarlo todo funcionaba bien, despues de esto, cuando quiero agregarle mas iconos o dialogos a mi RC me lo permite pero al compilarlo me dice que ocurrio un error y se sale, ya desinstale el \"Resource Builder\" y todabia sigo sin poder agregar a mi RC.\n\nSi alguien sabe como componer eso se los agradeceria.','',0,'gA==','128l38ff',1,0,'',854,0,0),(28512,6403,6,36,0,'200.113.56.235',1174407661,1,0,1,1,1,0,'','','Hola\n\nPuedes hacerlo de varios manera\n\n[code:4h24jbm7]local	cNum &#58;= 79568&#46;99\n\nalert&#40; trans&#40; cNum, &quot;@E 9,999,999&#46;99&quot; &#41; &#41; // 79&#46;568,99\n\nalert&#40; strtran&#40; trans&#40; cNum, &quot;@E 9,999,999&#46;99&quot; &#41;,&quot;&#46;&quot;, &quot;&quot; &#41;&#41; // 79&#46;568,99\n\n[/code:4h24jbm7]\n\nSaludos\nPatricio','',0,'AIA=','4h24jbm7',1,0,'',36,0,0),(28513,6395,6,376,0,'190.42.39.111',1174408182,1,0,1,1,1,1,'','','Escribeme a mi email privado y veo como puedo ayudarte en este problemita.','',0,'AIA=','3hlkrop8',1,0,'',376,0,0),(28514,6408,6,376,0,'190.42.39.111',1174409191,1,0,1,1,1,1,'','','Sin cambiar nada en el bat, solo tienes que poner \n\n#include prog2.prg\n#nclude prog3.prg\n\ny asi sucesivamente segun la cantidad de prgs que quieras (lo que no he probado es el limite extremo que se puede incluir)','',0,'AIA=','3k2a2rv4',1,0,'',376,0,0),(28515,6408,6,376,0,'190.42.39.111',1174409396,1,0,1,1,1,1,'','','Disculpa... me falto completar. Los include tiene que ponerlos en tu programa principal (preferiblemente al final de la rutina principal)','',0,'AIA=','q475eh2q',1,0,'',376,0,0),(28516,6408,6,875,0,'64.76.108.179',1174410396,1,0,1,1,1,0,'','','Gracias Armando, funcion bien,  Ahora vere cuantos PRGS acepta, espero que todos ja ja ja\n\n\nJaime','',0,'AIA=','2yku5tvp',1,0,'',875,0,0),(28517,6410,6,694,0,'200.189.112.21',1174410925,1,0,1,1,1,1,'','Menu POPUP em REBAR, é possível ?','Antonio e amigos, é possível menu POPUP com REBAR?\n\nEu utilizava assim antes:\n    \n    DEFINE BUTTON d1[1] OF oBar RESOURCE \"FAT32\" NOBORDER    ;\n               ACTION msginfo(\"teste\") ;\n               menu cPopup\n\nComo fazer isto com a REBAR?\n\n\nAokisantos','',0,'','dqrxb2cp',1,0,'',694,0,0),(28518,6411,6,64,0,'201.72.124.2',1174411408,1,0,1,1,1,1,'','menus tipo office 2003 y Xp - ?? Dónde??','[quote:301xqrs5]Aqui les dejo las fuentes para crear menus tipo office 2003 y Xp, basado en las fuentes originales de Fivewin \n\nPueden descargar de <!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w --> \n\nFelices fiestas \n\nSaludos \n\nArturo Tamayo Daza \n[/quote:301xqrs5]\n\n[color=red:301xqrs5][size=150:301xqrs5]não funciona\n[/size:301xqrs5][/color:301xqrs5]\nThis Account Has Been Suspended \nPlease contact the billing/support department as soon as possible.','',0,'hg==','301xqrs5',1,0,'',64,0,0),(28519,4897,6,180,0,'83.35.19.152',1174412867,1,0,1,1,1,0,'','','Disculpa George, no había visto tu post.\nEste es el código:\n\nLocal cFicheroXML:= \"bajavehiculo.pdf.xml\" \nLocal cLugarAcrobat:=\"C:\\Archivos de programa\\Adobe\\Acrobat 7.0\\Reader\\AcroRd32.exe\" \n Winexec(cLugarAcrobat+\" \"+cFicheroXML)  \n \nAquí están los ficheros:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/021c956612/bajavehiculo.pdf.html\">http://hyperupload.com/download/021c956 ... o.pdf.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0295236a35/bajavehiculo.pdf.XML.html\">http://hyperupload.com/download/0295236 ... f.XML.html</a><!-- m -->\n\nUn saludo,\nManuel\n\n\n[quote=&quot;George&quot;:3cgtnsdv]Manuel,\n\nLa razon por la que te pregunte es porque al tratar de bajar los ejemplos dice \"file not available\". \n\nSi fueras tan amable de subirlo de nuevo\n\nSaludos\n\n\nGeorge[/quote:3cgtnsdv]','',0,'gA==','3cgtnsdv',1,0,'',180,0,0),(28520,6364,6,439,0,'200.125.37.54',1174413171,1,0,1,1,1,1,'','','Verdaderamente apreciaré cualquier pista.','',0,'gA==','13cwr7gd',1,0,'',439,0,0),(28521,6412,3,439,0,'200.125.37.54',1174413470,1,0,1,1,1,1,'','Error using porta.prg with hbcomm.lib to control com1','Hi, \n\nI need to make an aplication to read an string from com1 sent by a device.\n\nI have been studying some samples and posts about it, and I become interested on HbComm.lib of Frank Lenon Rodrigues, I found the lib in the forum and a sample named porta.prg\n\nCompilling it I get this error:\n\nUnresolved external \'_hb_stack\' referenced from C:\\HBCOMM\\HBCOMM.LIB|hbcomm \n\nI prove to compile again the lib but is the same. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  \n\nSorry for my bad english <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\n\nPlease, I will really apreciate all help\n\nThanks from now.','',0,'gA==','7td02fer',1,0,'',439,0,0),(28522,6413,6,316,0,'213.97.245.163',1174413550,1,0,0,1,1,0,'','Que número de color es el naranja?','Hola compañeros,\n\nQue parámetro debo indicar a GetSysColor() para que me devuelva el color naranja del borde de las pestañas del SysTabControl32?\n\nProbé del 1 al 42 y no me devuelve nada, y me gustaría poner en un control ese color y que cambie si el usuario lo cambia en el XP.\n\nSaludos,\n\nCarlos','',0,'gA==','3b1w5aim',1,0,'',316,0,0),(28523,6407,3,6,0,'87.11.229.226',1174414290,1,0,1,1,1,1,'','Re: Urgent question about Outlook','This is a working sample for Inbox:\n\n[code:1wlfzjd2]#define olFolderInbox 6\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n    LOCAL oNameSpace &#58;= oOutlook&#58;GetNameSpace&#40;&quot;MAPI&quot;&#41;\n    LOCAL oInbox &#58;= oNameSpace&#58;GetDefaultFolder&#40; olFolderInbox &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO oInbox&#58;Items&#58;Count\n        ? oInbox&#58;Items&#91; i &#93;&#58;Body\n        ?\n    NEXT\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:1wlfzjd2]\n\nEMG','',0,'AIA=','1wlfzjd2',1,0,'',6,0,0),(28524,6408,6,891,0,'148.243.37.162',1174414678,1,0,1,1,1,0,'','Hola Jaime','[quote=&quot;jacgsoft&quot;:1stfeqr3]Gracias Armando, funcion bien,  Ahora vere cuantos PRGS acepta, espero que todos ja ja ja\n\n\nJaime[/quote:1stfeqr3]\n\nHola Jaime, mi recomendacion es que uses VeRCE, y se puede agregar mas de 20 prgs y asi como librerias de terceros y recursos\nSaludos Adriano C. C.\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'gA==','1stfeqr3',1,0,'',891,0,0),(28525,6408,6,215,0,'189.136.214.177',1174414925,1,0,1,1,1,1,'','usa este','Aquí deje uno hace algunos dias\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/profilp.php?mode=viewprofile&amp;u=215\">http://fivetechsoft.com/forums/profilp. ... file&amp;u=215</a><!-- m -->','',0,'gA==','1sszk717',1,0,'',215,0,0),(28526,6362,6,694,0,'200.189.112.21',1174419672,1,0,1,1,1,1,'','Tente isso','Tente isso meu amigo:\n\nadat[12]:bKeyDown:={|nKey| iif(nKey=VK_RETURN,adat[24]:SetFocus(),)}\n\n\nADAT[12]=OBJETO ATUAL\nADAT[24]=OBJETO APÓS ENTER\n\nAOKISANTOS','',0,'','103p3cs8',1,0,'',694,0,0),(28527,6414,6,760,0,'200.37.76.85',1174421400,1,0,1,1,1,0,'','ejemplos hbzip','Hola amigos\n\nRecientemente compile la librerias hbzip, bajado de las contribuciones del xharbour, lo que pasa es que no hay ejemplos ni listados de funciones para poder trabajar con ellas.\n\nSi alguien ya utiliza esta lirberia por favor si puede poner unos ejemplos en el foro, para tener un idea.\n\nGracias\n\nSalu2 <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','2cshpa1s',1,0,'',760,0,0),(28528,6394,3,3,0,'82.65.177.254',1174422419,1,0,1,1,1,1,'','','Antonio and Ken\n\nThanks for your efforts, Now my Uestudio is set and i can compile and link correct. Still i have different behaviour compared to my previous compiler (xbuild), it has to be compiler switch, i am going to review.\n\nCan you brievly explain the meaning of the following and what the correct default setting should be ?\n\nAutomatic Memvar Declaration = yes|no \nVariables Are Assumed = yes|no \n\nThanks in advance,\n\nRichard','',0,'','3i9unt9i',1,0,'',3,0,0),(28529,6415,6,875,0,'64.76.108.179',1174422767,1,0,1,1,1,0,'','No Pasa el GET','Tengo la siguiente funcion con un GET, una vez que ingreso los 6 caracteres no pasa al VALID para ejecutar   Verif_cla(@_Log)\nno se porque?   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSe agradece\n\nJaime\n\n\n*******************************************************\nFunction Check_clav()\n   Local _Log:=.F.,oDlg,_Clav\n\n   _Clav:=Space(6)\n\n   Define Dialog oDlg Title \'Clave De Acceso\' ;\n       From 05,04 To 10,40\n\n      @ 01,02 Say \'Ingrese Clave :\'\n      @ 01,08 Get _Clav Picture\'@!\' Password Valid(Verif_cla(@_Log))\n\n   Activate Dialog oDlg Center\n\nReturn(_Log)\n*********************************************************','',0,'','2eg8h6bs',1,0,'',875,0,0),(28530,6295,6,75,0,'83.34.193.150',1174423945,1,0,1,1,1,0,'','','He podido ya imprimir sin usar tDosPrint.\n\nPero ahora no se como hacer para abrir el cajon. Lo que hago es mandar la instrucción como sigue:\n\n[color=green:xpvtbsv1]//Apertura del cajon de monedas\nfunction AbreCajon()\n local oPrn\n local oFont1\n local cInstruccion := Chr(27)+Chr(112)+Chr(000)+Chr(060)+Chr(240)\n PRINT oPrn NAME \"Abre_Cajon\"\n DEFINE FONT oFont1 NAME \"ARIAL\" SIZE 0, -10 OF oPrn\n  if empty( oPrn:hDC )\n      msgstop( \"No hay impresora preparada\" )\n    else\n      PAGE\n       oPrn:CmSay(0,0,cInstruccion,oFont1)\n      ENDPAGE\n  endif\n ENDPRINT // Apaga la impresora   \n oFont1:end()\nreturn NIL[/color:xpvtbsv1]\n\nPero lo único que consigo es imprimir unos símbolos extraños en el papel.\n\nRuego sus sugerencias.','',0,'Ag==','xpvtbsv1',1,0,'',75,0,0),(28531,6362,6,785,0,'190.64.222.24',1174424048,1,0,1,1,1,0,'','','Amigo:\n\nFunciono de maravillas.\n\nMuchas gracias AOKISANTOS.\n\nSaludos\n\nRuben Fernandez.','',0,'Ag==','3hbciqyg',1,0,'',785,0,0),(28532,6415,6,362,0,'200.168.52.156',1174425020,1,0,1,1,1,1,'','','[code:3vqmalys]\n\n#Include &quot;FiveWin&#46;Ch&quot;\n\n*******************************************************\n\nFUNCTION Check_Clav&#40;&#41;\n\n    LOCAL _Log &#58;= &#46;F&#46;, oDlg, _Clav, _Otro_Get\n\n    //-&gt; Necesita 2 Get\'s Para Funcionar\n    _Otro_Get  &#58;= Space&#40;06&#41;  //-&gt; Asi, pasa!\n    _Clav      &#58;= Space&#40;06&#41;\n\n    DEFINE DIALOG oDlg TITLE \'Clave De Acceso\' ;\n           FROM 05, 04 To 18&#46;50, 40\n\n    oDlg&#58;lHelpIcon &#58;= &#46;F&#46;\n\n    @ 1&#46;6, 02 Say \'Nombre del usuario \' SIZE 70,12 OF oDlg\n\n    @ 02,  08 Get _Otro_Get Picture \'@!\' SIZE 50, 12 OF oDlg ;\n\n    @ 2&#46;6, 02 Say \'Ingrese Clave &#58; \' SIZE 70, 12 OF oDlg\n\n    @ 03,  08 Get _Clav Picture \'@!\' PASSWORD SIZE 50, 12 OF oDlg ;\n              VALID&#40; VERIF_CLA&#40; @_Log, oDlg &#41; &#41;\n\n    @ 4&#46;5, 07 BUTTON &quot;&amp;Salida &quot; OF oDlg  SIZE 60,12 ;\n              ACTION&#40; oDlg&#58;End&#40;&#41; &#41; CANCEL\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    Release All\n\nRETURN&#40; _Log &#41;\n\nSTATIC FUNCTION VERIF_CLA&#40; _Log, oDlg &#41;\n\n   LOCAL lRet\n\n   lRet &#58;= &#46;T&#46;\n\n   ? \'Log-&gt; \', _Log\n\nRETURN&#40; lRet &#41;\n\n//-&gt; FIN\n[/code:3vqmalys]','',0,'AIA=','3vqmalys',1,0,'',362,0,0),(28533,6416,3,973,0,'63.196.154.4',1174425527,1,0,1,1,1,0,'','Video in FullScreen','Hi,\n\nI\'m trying to create an application that plays video in fullscreen mode. However the video class of my old version of xHarbour does not support video in fullscreen mode. Do I need to buy the latest xHarbour? Please help.\n\nBert','',0,'AIA=','1jfgt7x9',1,0,'',973,0,0),(28534,6295,6,940,0,'189.157.88.221',1174426171,1,0,1,1,1,1,'','','hay algunos cajones que se abren asi:\n\n\n	oPrn := TDosPrn():New(\'LPT1\')\n	oPrn:say( 0,0, chr(7)  )\n	oPrn:end()\n\n\nsaludos,  Cesar Cortes ..','',0,'AIA=','2z02ip4i',1,0,'',940,0,0),(28535,6394,3,879,0,'65.92.174.8',1174426429,1,0,1,1,1,0,'','','Hello Richard,\n\nIf you simply type Harbour.exe, you will get a list of options. Included are the following:\n/a automatic memvar declaration and /v variables are assumed M-&gt;\n\nIn the old Clipper Quick Programming and Utilities Guide I found the following definitions:\n\n/a Any variable included in a PRIVATE, PUBLIC or PARAMETERS statement is automatically declared as MEMVAR.\n\n/v Forces the compiler to assume that all references to undeclared or unaliased variable names are public or private variables. The default is to treat ambiguous references as fields. The /v option has the same effect as using the dynamic variable alias (MEMVAR-&gt;).\n\nI am not certain how relevant these settings are when using FiveWin but when I was using Clipper, they were standard entries in my makefile. I have asked the people at xHarbour to incude the various Harbour.exe options in their next revision of the xHarbour manual.\n\nThe developers at UEStudio were trying to create a single config file for both FiveWin and the xHarbour text console as well as the ability to use the debugger in both. However, it is not possible in the existing config to switch between gtgui.lib and gtwin.lib along with adding the /b switch for Harbour.exe and adding the debug.lib in the linker.\n\nMore importantly, programmers using FiveWin are not likely to write a program using the DOS text console.\n\nThererfore, I am currently in the process of modifying the config file. Instead of one file to do both, I will have one for each. I was hoping to quickly finish this but interruptions keep delaying me. Once this is done I will post it as well as send it along to the developers at UltraEdit to be included in their next release. Programmers using other xHarbour GUI drivers will also require their own config files.\n\nHope this helps,\n\nKen','',0,'AIA=','1chje1hl',1,0,'',879,0,0),(28536,6410,6,694,0,'200.189.112.21',1174426901,1,0,1,1,1,1,'','UP!!!','UP!!! \n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','7ebqr7yb',1,0,'',694,0,0),(28537,6330,6,694,0,'200.189.112.21',1174427037,1,0,1,1,1,1,'','Miguel','Miguel, compuilei a LIB da FWBROWSE com meu xharbour e fwh e não aconteceu mais o problema.\n\n\nMSN: <!-- e --><a href=\"mailto:aokisantos@hotmail.com\">aokisantos@hotmail.com</a><!-- e -->','',0,'AIA=','ubl0vni7',1,0,'',694,0,0),(28538,6414,6,940,0,'189.157.88.221',1174427083,1,0,1,1,1,1,'','hbzip','yo tengo proceso el cual uso para respaldar,  te lo puedo enviar para\n\nque te des una idea,\n\ndime a donde.\n\n\nsaludos. \n\nCesar Cortes SysCtrl Software','',0,'AIA=','2gpfyzab',1,0,'',940,0,0),(28539,6394,3,529,0,'200.159.199.36',1174430082,1,0,1,1,1,0,'','','where i found the configuration files to xharbour?? thanks','',0,'AIA=','tx8g5b3k',1,0,'',529,0,0),(28540,6415,6,875,0,'64.76.108.179',1174430295,1,0,1,1,1,0,'','','Pero yo no quiero usar otro Get o Boton, quiero que quede como esta porque es una ventana de PASSWORD y solo necesito un GET  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nAtt.\n\nJaime','',0,'AIA=','35dfay33',1,0,'',875,0,0),(28541,6415,6,875,0,'64.76.108.179',1174430348,1,0,1,1,1,0,'','','Pero yo no quiero usar otro Get o Boton, quiero que quede como esta porque es una ventana de PASSWORD y solo necesito un GET  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nAtt.\n\nJaime','',0,'AIA=','3jsqsvvs',1,0,'',875,0,0),(28542,6394,3,879,0,'65.92.174.8',1174430753,1,0,1,1,1,0,'','','Nop,\n\nFollow this link to the post\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5832\">http://fivetechsoft.com/forums/viewtopic.php?t=5832</a><!-- m -->\n\nRegards,\n\nKen','',0,'AIA=','w8qts5zg',1,0,'',879,0,0),(28543,6258,6,435,0,'200.155.201.31',1174431537,1,0,1,1,1,0,'','','eu recebi o mesmo erro que o Jose Luiz\n\nAri','',0,'AIA=','gs7cm0x4',1,0,'',435,0,0),(28544,6415,6,36,0,'200.113.56.235',1174431813,1,0,1,1,1,0,'','','Hola\n\nHe probado el ejemplo y me sucede lo mismo\n\npuede ser como no hay mas controles no puede salir de este, \n\nprueba este ejemplo, es un turco chapuson no mas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\n[code:3f6peaya]Function pass&#40;&#41;\nLocal _Log&#58;=&#46;F&#46;,oDlg,_Clav, oGet, _Clav2, oGet2\n\n_Clav&#58;=Space&#40;6&#41;\n\nDefine Dialog oDlg Title \'Clave De Acceso\' ;\nFrom 05,04 To 10,40\n\n@ 01,02 Say \'Ingrese Clave &#58;\'\n@ 01,08 Get oGet ;\n		  VAR _Clav ;\n		  Picture &quot;@!&quot; ;\n		  Valid &#40; Verif_cla&#40;@_Log&#41;, oDlg&#58;End&#40;&#41; &#41;\n\n\n@ 03,02 Say \'Ingrese Clave2 &#58;\'\n@ 03,08 Get oGet2 ;\n		  VAR _Clav2\n\nActivate Dialog oDlg Center \n\nReturn&#40;_Log&#41;\n*********************************************************\nstatic function Verif_cla&#40;_Log&#41;\n_log = &quot;CLAVE&quot;\nALERT&#40; &quot;MM&quot; &#41;\n\nreturn&#40; &#46;t&#46; &#41;\n[/code:3f6peaya]\n\n\nSaludos\nPatricio','',0,'AIA=','3f6peaya',1,0,'',36,0,0),(28545,6415,6,215,0,'189.136.214.177',1174432218,1,0,1,1,1,1,'','Prueba esto','A ver si me explico.\n\nFunction Check_clav() \nLocal _Log:=.F.,oDlg,_Clav \n\n_Clav:=Space(6) \n\nDefine Dialog oDlg Title \'Clave De Acceso\' ; \nFrom 05,04 To 10,40 \n\n@ 01,02 Say \'Ingrese Clave :\' \n@ 01,08 Get _Clav Picture\'@!\' Password ;\n    Valid( Verif_cla( @_Log, _Clav, oDlg ) ) \n\nActivate Dialog oDlg Center \n\nReturn(_Log)\n\n\n\nstatic function Verif_cla( _Log,  _Clav, oDlg ) ) \n\n if _Clav == \"OK\" \n   _Log := .T.\n   oDlg:End( ) \n endif\n\nreturn .F.','',0,'AIA=','1soqfqbf',1,0,'',215,0,0),(28546,6404,6,215,0,'189.136.214.177',1174432636,1,0,1,1,1,1,'','una prueba','¿Ya probaste a poner un mensaje en el action del botón?. Pregunto por que no veo que tenga un action entonces.... simplemente no hace nada.\n\n\nREDEFINE BUTTON oBtns[1] ID 301 OF oDlg ;\nACTION Hola()\n\n\nstatic function Hola()\n  ?\"Si aparece este mensaje. Si funciona\"\nreturn nil','',0,'','2ysxjk75',1,0,'',215,0,0),(28547,6414,6,760,0,'200.37.76.85',1174432833,1,0,1,1,1,0,'','hbzip','puedes mandar a mi correo <!-- e --><a href=\"mailto:daxreyna@mixmail.com\">daxreyna@mixmail.com</a><!-- e -->\n\nGracias de antemano\n\nSalu2 <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','2g56ay3m',1,0,'',760,0,0),(28548,6391,6,215,0,'189.136.214.177',1174433966,1,0,1,1,1,1,'','Mas de 2 mil','Algo si es seguro. El nombre del Alias puede ser más de dos mil caracteres. Ahí está mi test.\nO eso... o xharbour lo trunca a una cantidad. Lo que suceda primero.\nPero // ?len(cBase) probe a monitorear hasta 200 y el Alias es de 200 caracteres... luego lo incremente a dos mil y al final sale con esa cantidad.\n\n\nfunction Test()\nlocal cBase\nlocal i\n\n   cBase := \"A\"\n   FOR i := 1 TO 2000\n      cBase := \"A\"+Mas(i)\n      // ?len(cBase)\n      USE DIGITAL ALIAS ( cBase ) SHARED NEW\n      ( cBase )-&gt;( dbclosearea() )\n   NEXT\n\n    ?len(cBase)\n\nreturn TRUE\n\n\nstatic function Mas(nMax)\n   local  i\n   local  cReturn := \"\"\n\n   FOR i := 1 TO nMax\n      cReturn+=\"A\"\n   NEXT\nreturn cReturn','',0,'','3kw8oge3',1,0,'',215,0,0),(28549,6414,6,940,0,'189.157.88.221',1174435152,1,0,1,1,1,1,'','','LISTO,  EJEMPLO ENVIADO.\n\nSALUDOS..','',0,'','n8f8fjve',1,0,'',940,0,0),(28550,6417,3,694,0,'200.189.112.21',1174435600,1,0,1,1,1,1,'','MENU POPUP in REBAR','Is it possible to call a MENU POPUP in a REBAR?\n\nDEFINE IMAGELIST oImageList SIZE 34,34 \n oImageList:AddMasked( TBitmap():Define( \"FAT33\" ,,oWnd ) , nRGB( 255, 0, 255 ) )    \n   \n oReBar = TReBar():New( oWnd )\n    \nDEFINE TOOLBAR oBar OF oReBar SIZE 42,42 IMAGELIST oImageList BALLOON \n           \noReBar:InsertBand( oBar )\n\n oBar:nHeight -= 2    //  ???? \n\n DEFINE TBBUTTON OF oBar ;\n              ACTION  msginfo(\"1\") TOOLTIP \"Teste de tooltip\" ;\n             menu popup   &lt;--- IS POSSIBLE ?\n\n\n\nAOKISANTOS','',0,'','2ifblywt',1,0,'',694,0,0),(28551,6414,6,66,0,'200.127.74.10',1174443542,1,0,1,0,1,0,'','','Estimado Colega\n\nPuedes enviarme un ejemplo a <!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->\n\nGracias\nFabian','',0,'','gn2fth7q',1,0,'',66,0,0),(28552,6364,6,54,0,'189.132.114.41',1174449032,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:38wtyzny]Verdaderamente apreciaré cualquier pista.[/quote:38wtyzny]\n\n[url:38wtyzny]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3974&amp;highlight=stack[/url:38wtyzny]\n\nEspero te pueda servir','',0,'kA==','38wtyzny',1,0,'',54,0,0),(28553,6418,3,49,0,'213.82.134.66',1174464473,1,0,1,1,1,1,'','PHOTO on an application','I must insert on a dialog a photo  \nunder the the picture there is a button to call the procedure to open webcam to save a picture and the it must save on field of the get.\n\nHave you an easy sample  to acquire a photo from webcam ?\n\nwich class i can use ?','',0,'kA==','1l62ay74',1,0,'',49,0,0),(28554,6394,3,3,0,'82.124.244.114',1174465059,1,0,1,1,1,1,'','','Ken\n\nThanks for info. I was not sure about hese 2 parameters and i do not need them anyway.\n\nMy UESTUDIO is fully configured now, i have made changes to your initial file as i am using 3rd party libraries like tsbrowse, twbrose, tsbutton, vrd\n\nUestudio is very interesting and now i plan to use it all the time.\n\nI am dropping xhb commercial (it is a pity i have renewed my subscription 2 weeks ago....) and switching completely to uestudio.\n\nBtw i am using Vista.\n\nNow there is no more need for xhb builder, uestudio is much more powerful.\n\nThanks for the help.\n\nFor Antonio,\n\nhave you set an application file for fwppc ? If not i am going to prepare one asap.\n\nBest regards\n\nRichard','',0,'kA==','hz8fnlz2',1,0,'',3,0,0),(28555,6391,6,92,0,'213.96.45.9',1174465814,1,0,1,1,1,0,'','Re: Mas de 2 mil','Gracias,\n\nSupongo que con 25 caracteres tendré suficiente.\n\nCarlos G.','',0,'kA==','3u6xbq5f',1,0,'',92,0,0),(28556,6419,6,92,0,'80.33.133.32',1174466275,1,0,1,1,1,0,'','Mandato LOCATE.','Hola,\n\nSe puede referenciar un LOCATE a un alias que no sea el del área de trabajo?\n\nSaludos\nCarlos G.','',0,'kA==','34gsld6v',1,0,'',92,0,0),(28557,6420,7,106,0,'85.34.123.173',1174468300,1,0,1,1,1,1,'','archivo abierto en la SD','Mi problema es el siguiente:\n\nAbro un dbf que està en la SD, lo muestro con un browse, luego de x minutos, se apaga el pocket para el ahorro de energía o lo apago yo manualmente, cuando lo enciendo nuevamente, me da error  (Read Error), y claramente, se va del programa.\n\nA alguien le pasó?\n\n\nGracias\n\n\n\nP.D. (Para evitar este problema, cargo el dbf en un array, y muestro los datos del array, pero no me parece la solucion justa)','',0,'kA==','3ky1sr8s',1,0,'',106,0,0),(28558,6419,6,106,0,'85.34.123.173',1174468786,1,0,1,1,1,1,'','','Si, \n\n\n c_cau-&gt;( __dbLocate( {|| c_cau-&gt;cod = cCodCau } ) )\n\n\nsaludos','',0,'kA==','351fx21u',1,0,'',106,0,0),(28559,6418,3,15,0,'203.70.52.83',1174471377,1,0,1,1,1,0,'','','Hello Silvio,\n\nLook this?\n\n1. Start WebCam\n[url=http&#58;//img176&#46;imageshack&#46;us/my&#46;php?image=webcam1ub7&#46;jpg:2zzb8h4y][img:2zzb8h4y]http&#58;//img176&#46;imageshack&#46;us/img176/4859/webcam1ub7&#46;th&#46;jpg[/img:2zzb8h4y][/url:2zzb8h4y]\n\n2.Capture picture and save as JPG and save information into DBF and Click it to dispaly this picture.\n[url=http&#58;//img412&#46;imageshack&#46;us/my&#46;php?image=webcam2cr6&#46;jpg:2zzb8h4y][img:2zzb8h4y]http&#58;//img412&#46;imageshack&#46;us/img412/9919/webcam2cr6&#46;th&#46;jpg[/img:2zzb8h4y][/url:2zzb8h4y]\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'GA==','2zzb8h4y',1,0,'',15,0,0),(28560,6421,6,917,0,'213.96.167.92',1174473549,1,0,1,1,1,0,'','Problema con says dentro de un folder','Hola,\nEstamos tratando de poner color al fondo de un say que se encuentra dentro de un folder y es imposible.\n\nOcurre cuando se utiliza el archivo manifest para visualizar los controles con el estilo de windows xp.\n\n\nFWH 7.01 + Harbour 1.0\n\nGracias de antemano. \nSaludos','',0,'GA==','248n0ex0',1,0,'',917,0,0),(28561,6417,3,694,0,'200.189.112.21',1174474519,1,0,1,1,1,1,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nresolvido   c:\\fwh71\\samples\\toolbar2.prg\n\n\nAokisantos','',0,'GA==','3e5wk03q',1,0,'',694,0,0),(28562,6410,6,694,0,'200.189.112.21',1174474619,1,0,1,1,1,1,'','','RESOLVIDO\n\n\nSAMPLES\\TOOLBAR2\n\nAOKISANTOS  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','3oemjl2n',1,0,'',694,0,0),(28563,6418,3,49,0,'213.82.134.66',1174478288,1,0,1,1,1,1,'','','yes \nI made a program when the user insert a record have the customer in front of him..\nthe user insert the name,surname ... and then can capture a photo from webcam  \nthe photo must be save on jpg formats and the name with extension must be save on field get \n\nwith class I must use ? have you a easy and small sample ?\n I use xharbour/winxp pro','',0,'GA==','11js62cm',1,0,'',49,0,0),(28564,6422,6,774,0,'200.72.190.169',1174478997,1,0,1,1,1,1,'','INTERNET ?????? HELP AYUDA','Estimados colegas del foro:\n\nExiste dentro de sus conocimientos la manera de confeccionar un navegador,,, me refiero a funciones q realiza un navegador,, como son el boton de adelante, atras, detener, actualizar, inicio,, y todos los tipicos q tiene esta herramienta,,, alguien ha diseñado alguno\n\no existe alguna clase q haga esto...\n\n\nGRACIAS','',0,'GA==','3g15etj6',1,0,'',774,0,0),(28565,6419,6,92,0,'80.33.133.32',1174479830,1,0,1,1,1,0,'','','[quote=&quot;pymsoft&quot;:2zak685c]Si, \n\n\n c_cau-&gt;( __dbLocate( {|| c_cau-&gt;cod = cCodCau } ) )\n\n\nsaludos[/quote:2zak685c]\n\nGracias,\n\nya vi esta función, pero quería evitarla por ser una función de \'uso interno\' del compilador.\n\nSaludos y gracias de nuevo\nCarlos G.','',0,'gA==','2zak685c',1,0,'',92,0,0),(28566,6423,6,171,0,'71.232.193.197',1174480437,1,0,1,1,1,0,'','Skype + xHarbour &amp; LLamadas telefonicas','Con el siguiente codigo se pueden hacer lamadas telefonicas a traves de Internet usando el Skype + xHarbour:\n\n[code:slhtq0k8]\nfunction dial_skype&#40;t_phone&#41;\nlocal objskype\nif empty&#40;t_phone&#41;\n   return &#46;t&#46;\nendif\nobjSkype = CreateObject&#40;&quot;SKYPEAPI&#46;Access&quot;, &quot;objSkype_&quot;&#41;\nobjSkype&#58;Connect&#40;&#41;\ndo while objSkype&#58;APIAttachmentStatus &lt;&gt; 0\nenddo\ninkey&#40;&#46;5&#41;\noCall = objskype&#58;PlaceCall&#40;t_phone&#41;\nobjskype = Nil\nreturn &#46;t&#46;\n[/code:slhtq0k8]\n\nEl problema es que no encuentro por ningun lado el DLL llamado SkypeAPI.dll; Si alguno de ustedes sabe donde encontrar este DLL favor de comunicarnoslo.\n\nSaludos,\n\nGeorge','',0,'AIA=','slhtq0k8',1,0,'',171,0,0),(28567,6424,7,945,0,'80.32.177.143',1174480451,1,0,1,1,1,0,'','Aplicar color a las pestañas de un folder','Muy buenas, me gustaría saber como puedo aplicar color de fondo a las pestañas de un folder.\n\nGracias.\n\nUn Saludo.','',0,'AIA=','20k1dp5z',1,0,'',945,0,0),(28568,6425,4,266,0,'60.48.99.118',1174489776,1,0,1,1,1,1,'','Window CE','Is Window CE = Window Mobile ? \n\nCan FWPPC exe run on Window CE ?','',0,'AIA=','3djmveq6',1,0,'',266,0,0),(28570,6418,3,15,0,'203.70.52.83',1174491931,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:265h4zrt]yes \nI made a program when the user insert a record have the customer in front of him..\nthe user insert the name,surname ... and then can capture a photo from webcam  \nthe photo must be save on jpg formats and the name with extension must be save on field get \n\nwith class I must use ? have you a easy and small sample ?\n I use xharbour/winxp pro[/quote:265h4zrt]\n\nYes, I save JPG file.\nEx. Customer NO : 001 so JPG name is 001.jpg and save \"c:\\001.jpg\" into\n      PHOTO field in DBF file.\n\nRight?\n\nRichard','',0,'gA==','265h4zrt',1,0,'',15,0,0),(28571,6394,3,51,0,'80.122.88.242',1174492664,1,0,1,1,1,0,'','','Can someone please post some screenshots of the debugging with UE.\nThanks in advance\nOtto','',0,'gA==','3qevimxq',1,0,'',51,0,0),(28572,6419,6,36,0,'200.113.56.235',1174495945,1,0,1,1,1,0,'','','puedes añadir este comando en un archivo de cabezera\n\n\n[code:g72pgy3l]\n#command LOCATE                                                         ;\n         &#91;FOR &lt;for&gt;&#93;                                                    ;\n         &#91;WHILE &lt;while&gt;&#93;                                                ;\n         &#91;NEXT &lt;next&gt;&#93;                                                  ;\n         &#91;RECORD &lt;rec&gt;&#93;                                                 ;\n         &#91;&lt;rest&#58;REST&gt;&#93;                                                  ;\n         &#91;ALL&#93;                                                          ;\n         ALIAS &lt;a&gt;                                                      ;\n                                                                        ;\n      =&gt; &lt;a&gt; -&gt; &#40; __dbLocate&#40; &lt;&#123;for&#125;&gt;, &lt;&#123;while&#125;&gt;, &lt;next&gt;, &lt;rec&gt;, &lt;&#46;rest&#46;&gt; &#41; &#41;\n[/code:g72pgy3l]\n\nSaludo\nPatricio','',0,'AIA=','g72pgy3l',1,0,'',36,0,0),(28573,6425,4,13,0,'213.76.252.200',1174496069,1,0,1,1,1,0,'','','Hoe,\n\nWindows Mobile is little diffrent from Windows CE but FWPPC works great on WM 2003, WM 5 and WCE 4.20, WCE 5.00.\n\nRegards\nPawel','',0,'AIA=','1yx3miob',1,0,'',13,0,0),(28574,6426,7,945,0,'80.32.177.143',1174496786,1,0,1,1,1,0,'','Funciones sobre ficheros','Muy buenas, me podría decir alguien el grupo de funciones para el tratamiento de ficheros pero que no sean las antiguas de clipper(COPY FILE,DELETE,ETC..)\n\nUn Saludo.','',0,'AIA=','17qk5gxh',1,0,'',945,0,0),(28575,6427,6,278,0,'164.77.219.82',1174497439,1,0,1,1,1,1,'','TXBRowse - tiene error con picture de Array','Hola Foro:\n\nTengo un problema que me tiene complicado, cuando uso el TXBrowse con un arreglo ( array ) de datos, por ejemplo de 6 columnas y deseo que una columna numerica tenga un PICTURE \"@E 999,999,999\" de miles, para una mejor visualizacion en el browse, NO FUNCIONA !!!\n\nSerá un Bug  o un error mío , por favor si alguien tiene alguna idea de que pasa, que me de una manita.\n\n[code:113r1rkk]\n\n oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWinh &#41;\n oBrw&#58;SetArray&#40; aDatos, &#46;T&#46; &#41;\n         	\n oBrw&#58;aCols&#91;1&#93;&#58;nWidth     &#58;= 100\n oBrw&#58;aCols&#91;2&#93;&#58;nWidth     &#58;= 350\n oBrw&#58;aCols&#91;3&#93;&#58;nWidth     &#58;= 95\n oBrw&#58;aCols&#91;4&#93;&#58;nWidth     &#58;= 90\n oBrw&#58;aCols&#91;5&#93;&#58;nWidth     &#58;= 90\n oBrw&#58;aCols&#91;6&#93;&#58;nWidth     &#58;= 90\n	\n oBrw&#58;aCols&#91;3&#93;&#58;nDataStrAlign	&#58;= AL_RIGHT   \n oBrw&#58;aCols&#91;4&#93;&#58;nDataStrAlign	&#58;= AL_CENTER  \n oBrw&#58;aCols&#91;5&#93;&#58;nDataStrAlign	&#58;= AL_RIGHT   \n oBrw&#58;aCols&#91;6&#93;&#58;nDataStrAlign	&#58;= AL_RIGHT   \n oBrw&#58;aCols&#91;5&#93;&#58;cEditPicture &#58;= &quot;@E 9,999,999,999&quot; \n oBrw&#58;aCols&#91;6&#93;&#58;cEditPicture &#58;= &quot;@E 9,999,999,999&quot;     &#40; &lt;== NO  FUNCIONAN !!! &#41;\n\n[/code:113r1rkk]\n\n\nEstoy usando xHarbour y FWH 2.8 \n\nGracias ,','',0,'AIA=','113r1rkk',1,0,'',278,0,0),(28576,6407,3,308,0,'84.148.27.232',1174501132,1,0,1,1,1,0,'','Re: Urgent question about Outlook','Sample for Add-Task\n\n[code:33v7j3bh]\nFUNCTION AddOLTask&#40; cDate, cSubject, cNotiz, cTime &#41;\n\n   LOCAL hOutlook, hAppItem, dDate\n   LOCAL lSave &#58;= &#46;f&#46;\n   TRY\n      hOutlook &#58;= CreateOLEObject&#40; &quot;Outlook&#46;Application&quot;\n      hAppItem &#58;= OLEInvoke&#40; hOutlook, &quot;CreateItem&quot;, 3 &#41;\n      dDate &#58;= CToD&#40; cDate &#41;\n      OLESetProperty&#40; hAppItem, &quot;DueDate&quot;, dDate &#41;\n      OLESetProperty&#40; hAppItem, &quot;Remindertime&quot;, cDate + &quot; &quot; + cTime &#41;\n      OLESetProperty&#40; hAppItem, &quot;ReminderSet&quot;, &quot;Y&quot; &#41;\n      OLESetProperty&#40; hAppItem, &quot;StartDate&quot;, Date&#40;&#41; &#41;\n      SET CENTURY ON\n      SET Date TO GERMAN\n      OLESetProperty&#40; hAppItem, &quot;Duration&quot;, 60 &#41;\n      OLESetProperty&#40; hAppItem, &quot;Subject&quot;, cSubject &#41;\n      OLESetProperty&#40; hAppItem, &quot;Body&quot;, cNotiz &#41;\n      OLESetProperty&#40; hAppItem, &quot;StartTime&quot;, cTime + &quot;&#58;00&quot; &#41;\n      OLEInvoke&#40; hAppItem, &quot;Save&quot; &#41;\n      hAppItem &#58;= NIL\n      hOutlook &#58;= NIL\n      lSave &#58;= &#46;t&#46;\n   CATCH\n      lSave &#58;= &#46;f&#46;\n   END\nRETURN &#40;lSave&#41;\n\n[/code:33v7j3bh]','',0,'AIA=','33v7j3bh',1,0,'',308,0,0),(28577,6407,3,308,0,'84.148.27.232',1174501475,1,0,1,1,1,0,'','Re: Urgent question about Outlook','Sample Add appointment\n\n[code:1u26rv0r]\nFUNCTION AddOLappointment&#40; cDate, cTime, nLenInMin, cSubject, cNotiz &#41;\n\n   LOCAL hOutlook\n   LOCAL hApptItem\n   LOCAL dDate\n   LOCAL lSave &#58;= &#46;F&#46;\n   TRY\n      hOutlook  &#58;= CreateOLEObject&#40; &quot;Outlook&#46;Application&quot; &#41;\n      hAppItem  &#58;= OLEInvoke&#40; hOutlook, &quot;CreateItem&quot;, 1 &#41;\n\n      SET CENTURY ON\n      dDate &#58;= CToD&#40; cDate &#41;\n      OLESetProperty&#40; hAppItem, &quot;Start&quot;, cDate + &quot; &quot; + cTime &#41;\n      OLESetProperty&#40; hAppItem, &quot;StartTime&quot;, cTime + &quot;&#58;00&quot; &#41;\n      SET CENTURY ON\n      SET Date TO GERMAN\n      OLESetProperty&#40; hAppItem, &quot;Duration&quot;, nLenInMin * 60 &#41;\n      OLESetProperty&#40; hAppItem, &quot;Subject&quot;, cSubject &#41;\n      OLESetProperty&#40; hAppItem, &quot;Body&quot;, cNotiz &#41;\n      OLESetProperty&#40; hAppItem, &quot;Mileage&quot;, 225 &#41;\n      OLEInvoke&#40; hAppItem, &quot;Save&quot; &#41;\n      hAppItem &#58;= NIL\n      hOutlook &#58;= NIL\n      lSave &#58;= &#46;t&#46;\n   CATCH\n      lSave &#58;= &#46;f&#46;\n   END\nRETURN &#40;lSave&#41;\n[/code:1u26rv0r]','',0,'AIA=','1u26rv0r',1,0,'',308,0,0),(28578,6428,6,533,0,'80.32.177.143',1174501991,1,0,1,1,1,0,'','Busqueda en ComboBox','Amigos del Foro, buenas!!\n\nMirad tengo un problema, y es que tengo un array (1 columna de 6 caracteres) con codigos:\n\n300001\n300002\n....\n300005\n....\n\ny lo que quiero es que vaya buscando el codigo mientras voy pulsando una tecla. ¿Tenéis algún ejemplo? Gracias.','',0,'AIA=','1xnee3q8',1,0,'',533,0,0),(28579,6429,6,533,0,'80.32.177.143',1174502230,1,0,1,1,1,0,'','Encabezado del Report!!','Hoy la verdad que estoy preguntón. Tambien tengo un problema, tengo un report muy simple que muestra una tabla, sin relaciones ni grupos ni nada, y quiero insertar debajo del nombre de las columnas y antes de los datos un par de líneas informativas, pero cual es mi sorpresa que cuando lo hago (ON INIT PintaLineas()), me pinta las líneas, pero encima de ellas comienza a pintarme las líneas del report.\n\nHe probado con newline, endline, .... pero no me funciona, ¿sabéis que puede pasar?. Muchas gracias a todos.\n\nFWH 2.8 + xHarbour','',0,'AIA=','3ds9o7j6',1,0,'',533,0,0),(28580,6415,6,362,0,'200.168.52.156',1174502647,1,0,1,1,1,1,'','','Pués... solo te basta invisibilizar uno dos Gets y pronto.','',0,'AIA=','su7mbd5y',1,0,'',362,0,0),(28581,6360,3,217,0,'200.159.120.34',1174502779,1,0,1,1,1,0,'','','I changed all code were I used bChange to bPostKey and worked fine.\nIn all cases were I used bChange worked fine replacing to bPostKey.\n\nBest regards\nMaurilio','',0,'AIA=','2kl6d7nx',1,0,'',217,0,0),(28582,6430,6,774,0,'200.72.70.226',1174504286,1,0,1,1,1,1,'','CLASE VTASKBAR ERROR EN WIN98','Este es el error que arroja al ejecutar en win98 \n\nApplication \n=========== \n   Path and name: C:\\UTIL\\DESA32BITS\\PRUEBA MENU XP\\PRUEBA13\\VM.EXE (32 bits) \n   Size: 1,311,232 bytes \n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 03/21/07, 15:04:51 \n   Error description: Error FiveWin/6  Cannot create window or control: \nClass: TVMENU \nCaption: \nSystem Error: La operación se ha completado correctamente. \n\n\nStack Calls \n=========== \n   Called from: WINDOW.PRG =&gt; WNDCREATEERROR(0) \n   Called from: WINDOW.PRG =&gt; TVMENU:CREATE(0) \n   Called from: VMENU.PRG =&gt; TVMENU:NEW(361) \n   Called from: prueba.prg =&gt; MAIN(32) \n\nSystem \n====== \n   CPU type:  1600 Mhz \n   Hardware memory: 160 megs \n\n   Free System resources: 90 % \n        GDI    resources: 90 % \n        User   resources: 90 % \n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex) \n   Windows version: 4.10, Build 67766446  A \n\n   Windows total applications running: 0 \n\nVariables in use \n================ \n   Procedure     Type   Value \n   ========================== \n   WNDCREATEERROR \n     Param   1:    O    Class: TVMENU \n     Local   1:    C    \" \nClass: TVMENU \nCaption: \nSystem Error: La operación se ha completado correctamente. \n\" \n   TVMENU:CREATE \n     Local   1:    C    \"TVMENU\" \n     Local   2:    O    Class: TVMENU \n   TVMENU:NEW \n     Param   1:    N    78 \n     Param   2:    N    0 \n     Param   3:    N    148 \n     Param   4:    N    1000 \n     Param   5:    O    Class: TWINDOW \n     Param   6:    B    {|| ... } \n     Param   7:    N    16777215 \n     Param   8:    N    12810350 \n     Param   9:    O    Class: TFONT \n     Param  10:    L    .F. \n     Param  11:    N    16777215 \n     Param  12:    N    23 \n     Param  13:    U \n     Param  14:    C    \"UNDERLINE\" \n     Param  15:    N    5 \n     Param  16:    N    12810350 \n     Param  17:    N    1 \n     Param  18:    C    \"FILLED\" \n     Param  19:    U \n     Param  20:    N    16777215 \n     Param  21:    U \n     Param  22:    N    16777215 \n     Param  23:    N    12810350 \n     Param  24:    U \n     Param  25:    N    16777215 \n     Param  26:    L    .F. \n     Param  27:    L    .F. \n     Param  28:    U \n     Param  29:    U \n     Local   1:    O    Class: TVMENU \n   MAIN \n     Local   1:    U \n     Local   2:    U \n     Local   3:    O    Class: TBITMAP \n     Local   4:    O    Class: TBITMAP \n     Local   5:    O    Class: TBRUSH \n     Local   6:    O    Class: TFONT \n\nLinked RDDs \n=========== \n   DBF \n   DBFFPT \n   DBFNTX \n   DBFBLOB \n\nDataBases in use \n================ \n\nClasses in use: \n=============== \n     1 HASHENTRY \n     2 HBCLASS \n     3 HBOBJECT \n     4 TFONT \n     5 TBRUSH \n     6 TWINDOW \n     7 TCONTROL \n     8 TBITMAP \n     9 TVMENU \n    10 TC5IMGLIST \n    11 ERROR \n    12 TREG32 \n\nMemory Analysis \n=============== \n      118 Static variables \n\n   Dynamic memory consume: \n      Actual  Value:          0 bytes \n      Highest Value:          0 bytes','',0,'AIA=','3kykzgy8',1,0,'',774,0,0),(28583,6414,6,376,0,'190.42.41.230',1174510586,1,0,1,1,1,1,'','','Aqui hay un ejemplo casi completo de esa libreria\n\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d92cf460/zipper3.Zip.html\">http://hyperupload.com/download/02d92cf ... 3.Zip.html</a><!-- m -->','',0,'AIA=','2hig7y45',1,0,'',376,0,0),(28584,6431,6,969,0,'83.165.110.185',1174514404,1,0,1,1,1,0,'','Sobre XBrowse y XBrwScroll()','Para Antonio:\n\nEs posible tener los fuentes de la función XBrwScroll() que utiliza TXBrowse, ya que hay un pequeño problema en el pintado de la última línea horizontal de los XBrowse, y en parte es por el scroll que realiza esta función.\n\nUn saludo,\nRamón Avendaño.','',0,'AIA=','3j6zmo0u',1,0,'',969,0,0),(28585,6408,6,73,0,'200.23.18.132',1174516562,1,0,1,1,1,0,'','','usa Verce es excelente y de facil manejo\nsalu2\npaco','',0,'AIA=','13anun5c',1,0,'',73,0,0),(28586,6432,6,110,0,'165.98.223.30',1174519095,1,0,1,1,1,1,'','Gurus de ADS - Problema de conexion por internet AIS','Compañeros, \n\nHe realizado la conexion por remoto del sevidor ADS, pero me ha fallado a travez de Internet.\n\nhe creado un diccionario de datos, para las tablas, he creado un usuario llamado \"carlos\", con su clave \"carlos01\".\n\nhe probado que exista comunicacion a travez de UDP con el puerto que he asignado 2003 a la conexion por internet. (con una utilidad que encontre en el sitio de Advantage que permite enviar paquetes a travez de una IP en un puerto especifico).\n\n[code:1pcdg7wo]\nPROCEDURE Main_Inicio&#40;&#41;\n    LOCAL cType,cPath\n\n    /*sobre escribe y agrega metodos a clases nativas de fwh*/\n    OverrideAndExtend&#40;&#41;\n\n    /*fix*/\n    nXFix&#58;=0\n    nYFix&#58;=0\n\n    /*define pagina de codigo y lenguaje por defecto*/\n    hb_langselect&#40;&quot;ES&quot;&#41;\n    hb_setcodepage&#40;&quot;ES&quot;&#41;\n\n    /*define RDD*/\n    rddsetdefault&#40;&quot;ADS&quot;&#41;\n\n    /*define parametros del servidor*/\n    AdsRightsCheck&#40;FALSE&#41;\n    AdsSetFileType&#40;ADS_ADT&#41;\n    AdsLocking&#40;FALSE&#41;\n    AdsSetServerType&#40;7&#41;\n\n    /*define configuracion de entorno*/\n    SET CENTURY  ON\n    SET DATE     BRIT\n    SET EPOCH    TO 1964\n    SET OPTIMIZE ON\n    SET CONFIRM  ON\n    SET DELETED  ON\n    SET SOFTSEEK OFF\n    SET DECIMAL  TO 4\n\n    Set&#40;_SET_FILECASE,1&#41;\n    Set&#40;_SET_DIRCASE,1&#41;\n\n    /*Abre tablas*/\n    IF !Main_AbrirTablas&#40;cPath&#41;\n        RETURN FALSE\n    ENDIF\n\nRETURN TRUE\n\n/*----------------------------------------------------------------------------------*/\n\nFUNCTION Main_AbrirTablas&#40;cPath&#41;\n    LOCAL oErr, cErr\n    LOCAL lOk&#58;=FALSE\n\n    /*intenta conexion con servidor de datos*/\n    IF !AdsConnect60&#40;&quot;\\\\jardines\\jrdatos\\jardines&#46;add&quot;,4,&quot;carlos&quot;,&quot;carlos01&quot;,,@hConn&#41;\n\n        /*obtiene error*/\n        adsGetLastError&#40;@cErr&#41;\n\n        /*muestra mensaje de error de conexion*/\n        MsgStop&#40;cErr,&quot;Error de conexion a servidor de datos ADS!&quot;&#41;\n        RETURN lOk\n\n    ENDIF\n\n    /*abre tablas de datos*/\n    USE mcole&#46;adt NEW SHARED ALIAS cole\n    USE mvend&#46;adt NEW SHARED ALIAS vend\n    USE mjard&#46;adt NEW SHARED ALIAS jard\n    USE mlote&#46;adt NEW SHARED ALIAS lote\n    USE mcont&#46;adt NEW SHARED ALIAS cont\n    USE mdesl&#46;adt NEW SHARED ALIAS tasa\n\n    /*flag de operacion*/\n    lOk&#58;=TRUE\n\nRETURN lOk\n\n/*----------------------------------------------------------------------------------*/\n\n[/code:1pcdg7wo]\n\nEl error que muestra es:\n\nError 6610, The anvantage databases server did no respond to a database request in a timely manner. \n\n\nsalud2\ncarlos vargas','',0,'AIA=','1pcdg7wo',1,0,'',110,0,0),(28587,6394,3,2,0,'82.210.96.98',1174521193,1,0,1,1,1,1,'','','Richard,\n\n&gt;\nFor Antonio, \n\nhave you set an application file for fwppc ? If not i am going to prepare one asap. \n&gt;\n\nNo, we just use a call to buildce.bat file for quick tests from UEStudio.\n\nWe do appreciate your help on setting a FWPPC config file for UEStudio, thanks!','',0,'AIA=','nppgg53l',1,0,'',2,0,0),(28588,6431,6,2,0,'82.210.96.98',1174521477,1,0,1,1,1,1,'','','Ramón,\n\nEstos dias estamos impartiendo un seminario de FWPPC en Holanda. El próximo domingo regresamos y te enviamos el código fuente que solicitas.\n\nPor favor recuérdanoslo por email, gracias!','',0,'AIA=','2fxd3nkc',1,0,'',2,0,0),(28589,6373,3,666,0,'211.28.125.58',1174521668,1,0,1,1,1,0,'','','Thanks for your replies.\n\nDoes anyone have wrappers for either 32bit Graphics Server (version 5x) or RMChart?  I\'m not experienced enough with C stuff to confidently do it myself.\n\n(Shame TGraph doesn\'t allow for printing to a B&amp;W printer. eg various hatch patterns for bars in a barchart, or different point symbols on a line graph. That\'s a show-stopper for me - otherwise I am impressed with what I have seen of TGraph.)\n\nTIA\nColin Wisbey','',0,'AIA=','mjac3ebj',1,0,'',666,0,0),(28590,6433,3,35,0,'65.188.6.143',1174523819,1,0,1,1,1,0,'','Dbf to Xls','To All\n\nI know I have seen bits and pieces of Excel code .. I need a routine to extract certain fields and data from a dbf table and copy\\create an excel .xls .. 2000\\2003.\n\nAny help or code snippits would be appreciated .. xHarbour\\Fwh.\n\nThanks\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','1zrqzhjl',1,0,'',35,0,0),(28591,6432,6,138,0,'189.141.75.24',1174524001,1,0,1,1,1,1,'','','Carlos:\n\nRevisa:\n\n1) Que el usuario que creaste en el diccionario tenga marcado el checkbox INTERNET ACCESS\n\n2) Revisa tu ADS.INI que tiene que tener algo como esto:\n\n[jardines]\ninternet_ip = &lt;direccion IP publica del router&gt;\ninternet_port = 2003\n\n3) ¿ Abriste el puerto 2003 del router para UDP Lectura / escritura, y lo redireccionaste al equipo que tiene instalado el ADS ?','',0,'','3guluhde',1,0,'',138,0,0),(28592,6433,3,138,0,'189.141.75.24',1174524565,1,0,1,1,1,1,'','','What flavour of XL do you prefer ?\n\nClass FileXLS can create XLS files directly without the need of having Excel installed. Files created with file XLS are Office97 and forward compatible, but they are not multibook.\n\nYou can also try Class XLScript, this class works using OLE and handle multibook spreadsheets, you will need to have Excel installed on the computer you are running your program.\n\nFileXLS is fast but it doesn\'t have all the Excel stuff available, XLSCript is not as fast,  but  you have all the Excel features at your fingers.','',0,'','6s29qopx',1,0,'',138,0,0),(28593,6431,6,138,0,'189.141.75.24',1174524682,1,0,1,1,1,1,'','','Hombre !!!!!!!\n\nRamón !!!!!!!!\n\nDonde ..... te haz metido, que gusto saber que todavía estas por estos rumbos.\n\nUn abrazo chaval.','',0,'','3lipmq7z',1,0,'',138,0,0),(28594,6407,3,86,0,'213.119.103.68',1174525366,1,0,1,1,1,1,'','','Thanks, guys.\n\nI\'ll try out your code.\n\nAnd I hope there is more to come here.\n\nThank you su much.\n\nMichel','',0,'','i2pm789l',1,0,'',86,0,0),(28595,6416,3,267,0,'201.9.130.135',1174526000,1,0,1,1,1,1,'','','hi,\n\nTry this,\n\n\n[code:3cc6w2ft]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;MediaPlayer&#46;MediaPlayer&#46;1&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   oActiveX&#58;SetProp&#40; &quot;DisplaySize&quot;, 2 &#41;\n   oActiveX&#58;SetProp&#40; &quot;FileName&quot;, &quot;trailler&#46;avi&quot; &#41;\n   oActiveX&#58;bOnEvent = &#123; | event, aParams | EventInfo&#40; event, aParams &#41; &#125;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction EventInfo&#40; event, aParams &#41;\n\n   local cMsg &#58;= &quot;Event&#58; &quot; + cValToChar&#40; event &#41; + CRLF + CRLF\n   local n\n\n   cMsg += &quot;Params&#58; &quot;\n\n   for n = 1 to Len&#40; aParams &#41;\n      cMsg += cValToChar&#40; aParams&#91; n &#93; &#41; + CRLF\n   next\n\n   MsgInfo&#40; cMsg &#41;\n\nreturn nil\n\n[/code:3cc6w2ft]','',0,'AIA=','3cc6w2ft',1,0,'',267,0,0),(28596,6434,3,233,0,'218.111.61.32',1174534524,1,0,1,1,1,0,'','How to make encrypt()/decrypt() produce same result in 16/32','How to enable encrypt()/decrypt() to produce the same result in 16 and 32 bits version? So far I noticed a 16-bit decrypt() can\'t correctly decrypt a string encrypted by a 32-bit encrypt().\n\nAny help is much appreciated as it\'s quite urgent.\n\nTIA.','',0,'AIA=','2i0mm8dh',1,1174553717,'',233,1,0),(28597,6435,3,962,0,'200.161.189.139',1174536827,1,0,1,1,1,1,'','Bug PICTURE &quot;@R &quot; - URGENTE - Antonio Linares','Olá Antonio..\n\nPercebi que ao selecionar o primeiro dígito (SHIFT + SETA) e inserir outro, bagunça a máscara na tela, e fazendo parte no valor da variável.\n\n[code:2hrs5n59]\n  Exemplo&#58;\n   cSeek&#58;=SPACE&#40;08&#41;\n   @  7, 8 GET cCep PICTURE \'@R 99&#46;999-999&quot;\n[/code:2hrs5n59]\n\nIsso ocorre tanto @ get / ReDefine...\n\nMas uma que esse FiveWin me apronta...','',0,'AIA=','2hrs5n59',1,0,'',962,0,0),(28598,6360,3,303,0,'72.199.41.171',1174540854,1,0,1,1,1,0,'','','Maurilio,\n\nThanks for testing that and reporting your results.\n\nSo, Antonio, I recommend putting bChange back were it was initially (see my message above for the specific location). Also, I recommend putting in the msgbeep() if SET BELL is on. If you like I can write something up explaining all this that you can put into the What\'s New.\n\nJames','',0,'AIA=','256lfvtz',1,0,'',303,0,0),(28599,6373,3,303,0,'72.199.41.171',1174541467,1,0,1,1,1,0,'','','Colin,\n\nWould it be possible for you to just use different shades of gray?\n\nJames','',0,'AIA=','13vsv0gk',1,0,'',303,0,0),(28600,6434,3,2,0,'82.210.96.98',1174544585,1,0,1,1,1,1,'','','Hua,\n\nWe are going to review this issue as soon as possible.\n\nWe are actually at Holland providing a FWPPC seminar but today we will look for some free time to review it','',0,'AIA=','2dgsjmuy',1,0,'',2,0,0),(28601,6408,6,2,0,'82.210.96.98',1174544906,1,0,1,1,1,1,'','','La versión más reciente de UEStudio, que se puede descargar en versión shareware, ya incluye soporte para xharbour y es un magnífico entorno de desarrollo, permitiendo gestionar proyectos enteros, crear y editar recursos, editor de código fuente con sintaxis realzada en colores, intellitips, etc. un IDE completo realmente profesional','',0,'AIA=','1me9ybgt',1,0,'',2,0,0),(28602,6421,6,2,0,'82.210.96.98',1174545050,1,0,1,1,1,1,'','','Arturo,\n\nActualmente estamos en Holanda impartiendo un seminario de FWPPC, el domingo regresamos y lo revisaremos cuanto antes','',0,'AIA=','17kzjrnd',1,0,'',2,0,0),(28603,6418,3,49,0,'213.82.134.66',1174549326,1,0,1,1,1,1,'','','yes  have U an sample ?','',0,'AIA=','264suqtf',1,0,'',49,0,0),(28604,6260,4,49,0,'213.82.134.66',1174549658,1,0,1,1,1,1,'','','fwppc samples run also with HTC TYNT ( <!-- w --><a class=\"postlink\" href=\"http://www.htc.com\">www.htc.com</a><!-- w -->)\nPerhaps in the summer htc europe sale htc p4550  smartphone Umts with GPs integrated GLobal  Sirf III and I wait for it\n\nHTC is the qtek future','',0,'AIA=','1tz0jqr1',1,0,'',49,0,0),(28605,6433,3,6,0,'87.21.195.196',1174550844,1,0,1,1,1,1,'','Re: Dbf to Xls','[code:2lchngye]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel, oSheet\n\n    LOCAL nRow\n\n    oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    oSheet = oExcel&#58;ActiveSheet\n\n    USE TEST\n\n    nRow = 1\n\n    WHILE !EOF&#40;&#41;\n        oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value = FIELD -&gt; last\n        oSheet&#58;Cells&#40; nRow, 2 &#41;&#58;Value = FIELD -&gt; first\n\n        nRow++\n\n        SKIP\n    ENDDO\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:2lchngye]\n\nEMG','',0,'AIA=','2lchngye',1,0,'',6,0,0),(28606,6436,6,413,0,'194.106.16.43',1174551044,1,0,1,1,1,1,'','Error en recursos...','Alguien sabe a que se puede deber o como puedo encontrar imformacion de este error al compilar los recursos .rc   . Lo raro es que en windows 2000 no me hace ese error solo me lo hace en windows xp y me sale en todos los programas que tienen un .rc o .res.\n\n[code:370bbq3i] @g&#58;\\policia\\winpol\\den\\den&#46;mak&#46;bc\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; \'G&#58;\\POLICIA\\WINPOL\\DEN\\PRG\\TCALENDAR\\CALENDAR&#46;RES\' contains invalid OMF record, type 0x00\n[/code:370bbq3i]\n\nGracias','',0,'AIA=','370bbq3i',1,0,'',413,0,0),(28608,6437,6,92,0,'80.33.133.32',1174552785,1,0,1,1,1,0,'','AddMethod() y __clsAddMsg()','Hola a todos,\n\nDonde puedo encontrar información sobre este método y función, y cómo poder usarlos?\n\nSaludos y gracias.\nCarlos G.','',0,'AIA=','5gmyo3fl',1,0,'',92,0,0),(28609,6373,3,130,0,'141.51.32.24',1174553686,1,0,1,1,1,0,'','','Colin,\n\n0skar made wrapper class for RmChart. I can sent it to you, if you want.\n\nStefan','',0,'AIA=','21tscqj4',1,0,'',130,0,0),(28610,6434,3,233,0,'218.111.61.32',1174553765,1,0,1,1,1,0,'','','Thanks Antonio. Appreciate it  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','2mkf5edc',1,0,'',233,0,0),(28611,6373,3,666,0,'211.28.125.58',1174554012,1,0,1,1,1,0,'','','James, shades of grey are not sufficiently distinguishable, unfortunately\n\nColin','',0,'AIA=','xp14ctgl',1,0,'',666,0,0),(28612,6373,3,666,0,'211.28.125.58',1174554187,1,0,1,1,1,0,'','Wrappers','Stefan, I would greatly appreciate you emailing the RMChart wrappers to me at \n\n<!-- e --><a href=\"mailto:cwisbey@optusnet.com.au\">cwisbey@optusnet.com.au</a><!-- e -->\n\nMany thanks.\n\nColin','',0,'AIA=','3b4cdlwf',1,0,'',666,0,0),(28613,6373,3,130,0,'141.51.32.24',1174554682,1,0,1,1,1,0,'','','ok, done','',0,'AIA=','2xrc7flt',1,0,'',130,0,0),(28614,6423,6,49,0,'213.82.134.66',1174560404,1,0,1,1,1,1,'','','you can download it from skype website ( developers sections)','',0,'AIA=','2h9poyyc',1,0,'',49,0,0),(28615,6438,20,49,0,'213.82.134.66',1174560880,1,0,1,1,1,1,'','prendere due celle','E\' possibile cliccando sopra a due celle o piu\'  prenderle cioè evidenziarle per poi farmi restituire l\'array  cioè vi spiego meglio...\nHo fatto una classe per una agenda appuntamenti  funzionate con listbox e con array sopra ci sono i giorni e a sinistra in verticale le ore\nio volevo selezionare dall\'ora per esempio 10,00 del giorno 22 marzo all\'ora 12,00 dello stesso giorno quindi prendere con il mouse 5 celle  (cioè 10:00 |10:30|11.00|11:30|12:00 )  quando inserisco l\'appuntamento queste celle si devono colorare in un certo colore e inserire i dati. \nSe avete problemi a capire posso postare una picture','',0,'AIA=','2q15w17l',1,0,'',49,0,0),(28616,6373,3,80,0,'202.72.164.124',1174562455,1,0,1,1,1,0,'','RMChart','Stefan\n\nCan I please have a copy of the wrappers.\n\n<!-- e --><a href=\"mailto:colin@techdata.net.au\">colin@techdata.net.au</a><!-- e -->\n\nregards\n\nColin','',0,'AIA=','2pqzwcpn',1,0,'',80,0,0),(28617,6439,4,986,0,'200.162.80.159',1174563625,1,0,1,1,1,1,'','Imprimir via IRDA','Colegas,\n\nComo faco para imprimir  via infravermelho , alguem tem o caminho das pedras.\n\nObrigado.','',0,'AIA=','ncbgttc4',1,0,'',986,0,0),(28618,6373,3,41,0,'200.105.194.235',1174564612,1,0,1,1,1,0,'','','Stefan\n\nCan I please have a copy of the wrappers too.\n\n<!-- e --><a href=\"mailto:via@dicyt.umss.edu.bo\">via@dicyt.umss.edu.bo</a><!-- e -->\n\nbest regards\n\nMarcelo','',0,'AIA=','1kth0coa',1,0,'',41,0,0),(28619,6423,6,171,0,'71.232.193.197',1174565030,1,0,1,1,1,0,'','','Gracias Silvio, buscare mayor informacion en el forum de Skype\n\nEstoy interesado en desarrollar un modulo, para una aplicacion que tengo en xHarbour + FWH que use Skype para hacer llamadas telefonicas.\n\nBTW, tu tienes los wrappers de Skype para xHarbour?\n\nHas desarrollado alguna aplicacion que use Skype?\n\nSi la respuesta es si, puedes compartir tu experiencia con nosotros?\n\n\nSaludos\n\n\nGeorge','',0,'AIA=','fxs6z1if',1,0,'',171,0,0),(28620,2676,3,435,0,'200.155.193.157',1174565625,1,0,1,1,1,0,'','','Eu gostaria de usar o PDFCreator e autoconfigurar:\n\nusando: TOleAuto():New(\"PDFCreator.Aplication\")\n\nmas gera erro.\n\nInstalei a versao 9 de PdfCreator\n\nalguem tem um exemplo completo ?\n\nAri','',0,'AIA=','10y4g2gh',1,0,'',435,0,0),(28621,6440,3,171,0,'71.232.193.197',1174565645,1,0,1,1,1,0,'','Internet Phone Call: Skype + [x]Harbour + FWH','Hi,\n\nI woud like to develop a phone call function using Skype.\nDoes any forum fellow developed xHarbour Skype wrappers or have any experience integrating Skype with [x]Harbour + FWH?\n\nRegards,\n\nGeorge','',0,'','3573cw2l',1,0,'',171,0,0),(28622,6423,6,49,0,'213.82.134.66',1174566199,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://share.skype.com/sites/devzone/\">http://share.skype.com/sites/devzone/</a><!-- m -->','',0,'','3qwpwrfg',1,0,'',49,0,0),(28623,6430,6,774,0,'200.72.179.207',1174566291,1,0,1,1,1,1,'','','..','',0,'','1fsvuozo',1,0,'',774,0,0),(28624,6422,6,774,0,'200.72.179.207',1174566312,1,0,1,1,1,1,'','','..','',0,'','1smdzmyr',1,0,'',774,0,0),(28625,6441,6,92,0,'80.33.133.32',1174568168,1,0,1,1,1,0,'','Eliminar un Método/Message de una clase.','Hola,\n\nDe la misma manera que puedo crear desde código y \'en caliente\' un nuevo método/message para una clase predefinida, es posible eliminar ese mismo método/message creado \'en caliente\'?\n\nEl caso es que si creo un Clon de un objeto, uno de sus métodos/message al estar accediendo a un área de trabajo concreta, necesito volver a definirlo con el nuevo valor del área; y claro lo que se me ocurre es eliminarlo y volverlo a crear con el nuevo valor.\n\nSaludos y gracias.\nCarlos G.','',0,'','2b2mmgy8',1,0,'',92,0,0),(28626,6418,3,15,0,'210.201.24.223',1174570878,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:3ipaehwg]yes  have U an sample ?[/quote:3ipaehwg]\n\nYes, I have a sample in my Application\'s Class code.\n\nRegards,\n\nRichard','',0,'gA==','3ipaehwg',1,0,'',15,0,0),(28627,6436,6,376,0,'201.230.189.126',1174571198,1,0,1,1,1,1,'','','Revisa el texto de tu RC. Es posible que se haya corrompido en alguno de las llaves o se hayan entremezclado entre los BEGIN-ENDBEGIN o hay un objeto que no tenga identificacion. Cuando se compila debe indicar el mensaje en que linea ocurre el error.','',0,'gA==','kem6afvj',1,0,'',376,0,0),(28628,6442,6,43,0,'189.128.25.131',1174575274,1,0,1,1,1,0,'','Clase tmysq de xHarbour en tunel SSH','Hola.\n\nEstoy tratando de conectarme a MySQL por medio de tunel SSH con la clase tmysql que esta en las contribuciones de xHabour.\n\nPero lamentablemente no conecta, he probado con el Administrador y el Query Browse de MySQL y esto programas si conectan sin ningun problema.\n\nAlguien ha probado esto que comento...?\n\nSaludos\nMarco A. Delgado.','',0,'gA==','czs2fxsn',1,0,'',43,0,0),(28629,6432,6,110,0,'148.168.40.4',1174575615,1,0,1,1,1,1,'','','Maestro Rene\n\neste es mi ADS.INI\n[code:ouads75n]\n&#91;jardines&#93;\nLAN_IP=192&#46;168&#46;1&#46;200\nLAN_PORT=2002\nINTERNET_IP=165&#46;98&#46;223&#46;30\nINTERNET_PORT=2003\n[/code:ouads75n]\n\nEl Router tiene direccionado las peticiones del puerto 2003 a la ip del server que es 192.198.1.200\n\nhe probado con la herramienta udp_test que el puerto 2003 funcione\n\n1. En el server puse a escuchar udp_test en el puerto 2003.\n2. En la pc cliente, indico que envie una cadena de datos al ip 165.98.223.30 en el puerto 2003, y si efectivamente se recibe el texto en el server.\n\nEl dicionario de datos tiene la marca de acceso a internet activa.\n\nAdicional a superusuario AdsSys existen dos usuarios llamados carlos y yerala, cada uno de ellos con la marca de acceso a internet.\nahora, a estos usuarios no le he modificado nada mas, no les he indicado tablas, ni nada por el estilo, si le marco tablas, aparece una lista de las tablas del diccionario con una marca en Inherit. Hay algo mas que hacer despues de esto? hay que crear un grupo obligatoriamente?\n\ncomo comente, por la via remotoa esta funcionando de pelos.\n\ngracias por la ayuda y la paciencia.\n\nTodo lo que voy haciendo lo voy documentando para elaborar un pequeno manual lo mas detallado posible para que sirva de guia, tengo la mayoria de los post de rene y minimanuales que nos ha obsequiado una y otra vez <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\nsalu2\ncarlos vargas','',0,'AIA=','ouads75n',1,0,'',110,0,0),(28630,6441,6,110,0,'148.168.40.4',1174576110,1,0,1,1,1,1,'','','y si lo reemplazas?\n\nOVERRIDE METHOD DispBegin IN CLASS TWindow WITH KDispBegin\n\nSTATIC FUNCTION KDispBegin()\n\n    LOCAL SELF := HB_QSelf()\n\nRETURN SELF\n\nsalu2\ncarlos vargas','',0,'AIA=','1ua9fhk9',1,0,'',110,0,0),(28631,6441,6,92,0,'80.33.133.32',1174578481,1,0,1,1,1,0,'','Perfecto, ya me vale como solución.','[quote=&quot;carlos vargas&quot;:154mhtbq]y si lo reemplazas?\n\nOVERRIDE METHOD DispBegin IN CLASS TWindow WITH KDispBegin\n\nSTATIC FUNCTION KDispBegin()\n\n    LOCAL SELF := HB_QSelf()\n\nRETURN SELF\n\nsalu2\ncarlos vargas[/quote:154mhtbq]\n\nPerfecto, ya me vale como solución.\n\nGracias.\nCarlos G.','',0,'gA==','154mhtbq',1,0,'',92,0,0),(28632,6427,6,278,0,'164.77.219.82',1174581167,1,0,1,1,1,1,'','','Hola a Todos :\n\nAlguien tiene alguna idea  - será un BUG , le he dado varias vueltas y NADA  ???\n\nAlguien usa Array ( arreglos ) y Picture  con TXbrowse ??\n\nSaludos ,','',0,'gA==','1hcbetjh',1,0,'',278,0,0),(28633,6429,6,533,0,'80.32.177.143',1174587552,1,0,1,1,1,0,'','','<!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> Solucionado, era un pegolete!! lo que hacen tantas horas de programación','',0,'gA==','2mz6j9ah',1,0,'',533,0,0),(28634,6432,6,138,0,'189.141.75.24',1174589587,1,0,1,1,1,1,'','','Se me ocurre:\n\nEl servidor o el router tienen activo algun Firewall, desactivalo.\n\nSi dentro de la red puedes ver el servidor remoto, luego entonces tendrias que poder ver el servidor AIS desde internet.\n\nEl problema esta casi seguro en la configuracion del router.','',0,'gA==','v3jqudya',1,0,'',138,0,0),(28635,6433,3,35,0,'167.7.140.254',1174590593,1,0,1,1,1,0,'','','I was looking for Excel 2000 or greater compatability .. Enrico has some good code there .. I am going to try that .. looks exacally like what I need ..\n\nThanks to you both ..\n\nRick Lipkin','',0,'gA==','1q4yv8wk',1,0,'',35,0,0),(28636,6364,6,439,0,'200.125.48.247',1174591900,1,0,1,1,1,1,'','','Wmormar,\n\nMuchas gracias por tu ayuda, no me gusta preguntar sin antes buscar en el foro, pero insólitamente busqué por la lib y no por el error. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nGracias nuevamente!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2tyrspf6',1,0,'',439,0,0),(28637,6427,6,138,0,'189.141.75.24',1174593008,1,0,1,1,1,1,'','','No uso xBrowse, bueno si, pero por otro lado.\n\nHaz probado haciendo un TRANSFORM() en vez de ponele un picture ????','',0,'gA==','12n6gje0',1,0,'',138,0,0),(28638,6442,6,138,0,'189.141.75.24',1174593181,1,0,1,1,1,1,'','','¿ Haz revisado que el puerto del servidor este abierto para recibir peticiones ?','',0,'gA==','12f0sh2x',1,0,'',138,0,0),(28639,6422,6,138,0,'189.141.75.24',1174593323,1,0,1,1,1,1,'','','Si se puede, con ActiveX, revisa los ejemplos de ActiveX dentro de FWH\\samples, ahi viene un ejemplo con Explorer','',0,'gA==','3lhgwew9',1,0,'',138,0,0),(28640,6430,6,138,0,'189.141.75.24',1174593420,1,0,1,1,1,1,'','','¿ Haz intentado contactar con Paco Garcia, para ver ese error ?','',0,'gA==','1onvn5nm',1,0,'',138,0,0),(28641,6433,3,343,0,'24.173.70.29',1174594786,1,0,1,1,1,0,'','','I have found that if you have a number of cells to update, then copy and paste works 1000\'s of times faster than individual cell updates using ole.\n\nHere is an example with xHarbour and FWH\n[code:35wicg5v]\nfunction test\n   local nCounter, nStart, oClipBoard\n   local oExcel, oWorkBook, oSheet\n\n   // create excel objects\n   oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n   oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oWorkBook = oExcel&#58;Get&#40; &quot;ActiveWorkBook&quot; &#41;\n   oSheet = oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n\n   nCounter &#58;= 1\n   nStart &#58;= nCounter\n   cMemo &#58;= \'\'\n   do while &#46;not&#46; eof&#40;&#41;\n      // build record\n      cMemo += Field1\n      cMemo += chr&#40;9&#41;+Field2\n      cMemo += chr&#40;9&#41;+Field3\n      cMemo += CRLF\n\n      nCounter++\n      skip\n      // update sheet every 1000 records or eof&#40;&#41;\n      if mod&#40; nCounter, 1000 &#41; = 0 &#46;or&#46; eof&#40;&#41;\n         oClipBoard &#58;= tclipboard&#40;&#41;&#58;New&#40;&#41;\n         if oClipBoard&#58;Open&#40;&#41;\n           oClipBoard&#58;SetText&#40; cMemo &#41;\n           oClipBoard&#58;Close&#40;&#41;\n         endif\n         pClipBoard&#58;close&#40;&#41;\n         oExcel&#58;oSheet&#58;Cells&#40; nStart, 1 &#41;&#58;Select&#40;&#41;\n         oExcel&#58;oSheet&#58;paste&#40;&#41;\n         nStart &#58;= nCounter\n         cMemo &#58;= \'\'\n      endif\n   enddo\nreturn&#40; nil &#41;\n[/code:35wicg5v]','',0,'AIA=','35wicg5v',1,0,'',343,0,0),(28642,6427,6,278,0,'164.77.219.82',1174595642,1,0,1,1,1,1,'','','Gracias Rene por responder:\n\nSi lo he hecho. El problema es que hay que hacerlo antes de grabar al Array, pero el dato se convierte en un dato del tipo caracter. Entonces, no se pueden hacer sumas o restas. Lo cual es un grave problema. \n\nNo se si existirá alguan otra forma ???\n\nVuelvo a insistir será un error de la clase ??\n\nSaludos ,','',0,'AIA=','233wa5oo',1,0,'',278,0,0),(28643,6443,6,841,0,'84.122.250.8',1174597933,1,0,1,1,1,0,'','limpiar buffer del teclado','compañeros:\n\npara limpiar el buffer del teclado, tenemos en FWH algo parecido a \"Clear Typeahead\" de Clipper??\nestuve buscando en \\Samples\\ pero no vi nada al respecto.\nMil gracias\nLORENZO','',0,'AIA=','1vuuqwmt',1,0,'',841,0,0),(28644,6444,6,52,0,'190.7.62.226',1174599590,1,0,1,1,1,1,'','Modifique un poquito la TGET. Antonio...','Antonio.\n\nEn estos casos de modificacion de las clases, como deberia de hacer para no incumplir con el reglamento?\n\n[b:25n8tjek]Fundamento:[/b:25n8tjek]   \n    Hoy por hoy la clase no informa si el control tubo modificaciones, lo que hace es ejecutar un bloque de codigo cuando se hizo una modificacion, me refiero al bChange...\n\n   Pero la mayoria de las veces en mi trabajo a parte del bChange... utilizamos el bValid... en donde chequeamos si el control get ha cambiado su contenido para asi definir que hacemos al respecto...\n\nUn ejemplo:\n\n\n[code:25n8tjek]\nfunction main&#40;&#41;\n\n	local aCambio&#58;= &#123; &#46;F&#46;, &#46;F&#46;, &#46;F&#46;, &#46;F&#46; &#125;\n\n	local oDatos&#58;= array&#40;4&#41;, ;\n	      vDatos&#58;= array&#40;4&#41;, ;\n	      oDlg\n\n\n	vDatos&#91;1&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;2&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;3&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;4&#93;&#58;= space&#40;20&#41;	\n\n\n	define dialog oDlg resource &quot;DLG_DIALOGO&quot; \n\n		redefine get oDatos&#91;1&#93; var vDatos&#91;1&#93; id 100 of oDlg\n		redefine get oDatos&#91;2&#93; var vDatos&#91;2&#93; id 101 of oDlg\n		redefine get oDatos&#91;3&#93; var vDatos&#91;3&#93; id 102 of oDlg\n		redefine get oDatos&#91;4&#93; var vDatos&#91;4&#93; id 103 of oDlg\n\n		// Actualmente hacemos asi&#58;\n\n		oDatos&#91;1&#93;&#58;bChanged&#58;= &#123; || aCambio&#91;1&#93;&#58;= &#46;t&#46; &#125;\n		oDatos&#91;2&#93;&#58;bChanged&#58;= &#123; || aCambio&#91;2&#93;&#58;= &#46;t&#46; &#125;\n		oDatos&#91;3&#93;&#58;bChanged&#58;= &#123; || aCambio&#91;3&#93;&#58;= &#46;t&#46; &#125;\n		oDatos&#91;41&#58;bChanged&#58;= &#123; || aCambio&#91;4&#93;&#58;= &#46;t&#46; &#125;\n\n		// Validamos ahora\n		\n		oDatos&#91;1&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n		oDatos&#91;2&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n		oDatos&#91;3&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n		oDatos&#91;4&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n	\n\n	ACTIVATE DIALOG oDlg\n\nreturn &#40; nil &#41;\n\n//---------------------------------------------------------\n\nstatic function ValidarDatos&#40; oDatos &#41;\n\n	if aCambio&#91;1&#93; &#46;or&#46; aCambio&#91;2&#93; &#46;or&#46; aCambio&#91;3&#93; &#46;or&#46; aCambio&#91;4&#93;\n		\n		// Aca se hace lo que uno quiere&#46;&#46;&#46;\n	endif \n\nreturn &#40; nil &#41;\n\n[/code:25n8tjek]\n\nPor lo vi una solucion mas \"comoda\" al momento de programar... \nY agregue dos lineas de codigo a la Tget\n\n1) dentro de la definicion de la clase\n\n[code:25n8tjek]    CLASS TGet FROM TControl\n\n        &#46;&#46;&#46;\n\n        DATA lCambio INIT &#46;F&#46; \n\n[/code:25n8tjek]\n\n2) Inicializar el lCambio cada vez que toma el foco el get..\n\n[code:25n8tjek]METHOD GotFocus&#40; hCtlLost &#41; CLASS TGet\n\n\n        // Esta linea no me habia dado cuenta, gracias wmormar\n        &#58;&#58;lCambio  &#58;= &#46;f&#46;    // wmormar   &#91;20070322&#93;\n\n[/code:25n8tjek]\n\n3) y luego en el método LostFocus agregue esto:\n\n[code:25n8tjek]  \n\n    METHOD LostFocus&#40; hCtlFocus &#41; CLASS TGet\n\n        &#46;&#46;&#46;\n\n        if ! &#58;&#58;oGet&#58;BadDate &#46;and&#46; ! &#58;&#58;lReadOnly &#46;and&#46; ;\n          \n          &#40; &#58;&#58;oGet&#58;changed &#46;or&#46; &#58;&#58;oGet&#58;unTransform&#40;&#41; &lt;&gt; &#58;&#58;oGet&#58;original &#41;\n            &#58;&#58;oGet&#58;Assign&#40;&#41;     // for adjust numbers\n            &#58;&#58;oGet&#58;UpdateBuffer&#40;&#41;\n\n          &#58;&#58;lCambio&#58;= &#46;T&#46;   //  GoosFancito\n\n          &#46;&#46;&#46;&#46;\n\n   ENDIF[/code:25n8tjek]\n\nA partir de ahora, el mismo ejemplo queda de esta forma:\n\n[code:25n8tjek]function main&#40;&#41;\n\n	local oDatos&#58;= array&#40;4&#41;, ;\n	      vDatos&#58;= array&#40;4&#41;, ;\n	      oDlg\n\n\n	vDatos&#91;1&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;2&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;3&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;4&#93;&#58;= space&#40;20&#41;	\n\n\n	define dialog oDlg resource &quot;DLG_DIALOGO&quot; \n\n		redefine get oDatos&#91;1&#93; var vDatos&#91;1&#93; id 100 of oDlg\n		redefine get oDatos&#91;2&#93; var vDatos&#91;2&#93; id 101 of oDlg\n		redefine get oDatos&#91;3&#93; var vDatos&#91;3&#93; id 102 of oDlg\n		redefine get oDatos&#91;4&#93; var vDatos&#91;4&#93; id 103 of oDlg\n\n		// Validamos ahora\n		\n		oDatos&#91;1&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n		oDatos&#91;2&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n		oDatos&#91;3&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n		oDatos&#91;4&#93;&#58;bValid&#58;= &#123; || ValidarDatos&#40; oDatos &#41; &#125;\n	\n\n	ACTIVATE DIALOG oDlg\n\nreturn &#40; nil &#41;\n\n//---------------------------------------------------------\n\nstatic function ValidarDatos&#40; oDatos &#41;\n\n\n	if oDatos&#91;1&#93;&#58;lCambio &#46;or&#46; oDatos&#91;2&#93;&#58;lCambio &#46;or&#46; oDatos&#91;3&#93;&#58;lCambio &#46;or&#46; oDatos&#91;4&#93;&#58;lCambio\n		\n		// Aca se hace lo que uno quiere&#46;&#46;&#46;\n	endif \n\n	\n\nreturn &#40; nil &#41;[/code:25n8tjek]\n\n\nEspero que les sirva.[quote][/quote]','',0,'QIA=','25n8tjek',1,0,'',52,0,0),(28645,6427,6,969,0,'83.165.110.185',1174601090,1,0,1,1,1,0,'','','Hola Juan:\n\nSi no te entiendo mal tu quieres que se visualice en el browse en el formato que te daría el picture, pero el problema es que, sino me equivoco, \'::cEditPicture\' es solo para cuando se edita la celda (picture para un get interno que genera el xbrowse) no como mascara de visualización.\n\nEn tal caso como bien apunta Rene puedes transformar el dato del array con un TRANSFOM antes de activar el XBrowse, o lo mas conveniente para que siga siendo un dato numérico es utilizar \'::bStrData\' que es el codebloc que transforma cada dato a  tipo caracter antes de visualizarlo, seria siguiendo tu ejemplo algo así:\n\noBrw:aCols[6]:bStrData:= {|| TRANSFORM(  aDatos[oBrw:nArrayAt, 6 ], \"@E 9,999,999,999\")}\n\nUn saludo,\nRamón Avendaño.','',0,'','zw7cvg5z',1,0,'',969,0,0),(28646,6431,6,969,0,'83.165.110.185',1174601999,1,0,1,1,1,0,'','','Hola maestro Rene:\n\nApartado un tiempo de la programación con FiveWin, vuelvo, y espero seguir mucho tiempo, estoy un poco desfasado pero espero ir tomando ritmo.\n\nAhora estoy peleándome con TXBrowse para adatarlo a mis necesidades, haber que tal me sale.\n\nUn abrazo,\nRamón Avendaño.','',0,'','3fydwfnh',1,0,'',969,0,0),(28647,6432,6,110,0,'165.98.223.30',1174604485,1,0,1,1,1,1,'','','Mil gracias rene, el problema era una ace32.lib creada de una version diferente de la ace32.dll que usaba.\n(tomando nota de fallas de capullos) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n\nfunciona de maravilla. \nRemote y AIS\n\n\nsalu2\ncarlos vargas','',0,'','g0efxdyk',1,0,'',110,0,0),(28648,6433,3,35,0,'65.188.6.143',1174609017,1,0,1,1,1,0,'','','Enrico .. here is your modified code .. 2 questions\n\n1) oExcel:Visible = .T. starts up Excel when the program is finished and you can save the spreadsheet .. however .. I do not want to start Excel .. just save the output to a &lt;file.xls&gt;\n\n2) How do I include the header descriptions as the first row ?\n\nalso .. I notice if the dates are \'invalid\' or empty() .. this program has a run-time failure .. I have fixed the empty() date .. but what if there is an invalid date .. how do I test for a bad date like \"06/31/2006\"\n\nThanks\nRick Lipkin\n\n\n// dbf to xls conversion\n\nLOCAL oExcel, oSheet\nLOCAL nRow\n\nclear\n\nREQUEST DBFCDX\nrddsetdefault( \"DBFCDX\" )\n\noExcel := CREATEOBJECT( \"Excel.Application\" )\noExcel:WorkBooks:Add()\noSheet := oExcel:ActiveSheet\n\nselect 1\nUSE cert via \"DBFCDX\" shared\ngo top\n\nnRow := 1\n\nDo WHILE !EOF()\n\n   @ 10,10 say str(Nrow)+\"  \"+cert-&gt;name\n\n   if deleted()\n      select cert\n      skip\n      loop\n   endif\n\n   oSheet:Cells( nRow, 1 ):Value = cert-&gt;reg_no\n   oSheet:Cells( nRow, 2 ):Value = cert-&gt;name\n   oSheet:Cells( nRow, 3 ):Value = cert-&gt;addr1\n   oSheet:Cells( nRow, 4 ):Value = cert-&gt;addr2\n   oSheet:Cells( nRow, 5 ):Value = cert-&gt;addr3\n   oSheet:Cells( nRow, 6 ):Value = cert-&gt;city\n   oSheet:Cells( nRow, 7 ):Value = cert-&gt;state\n   oSheet:Cells( nRow, 8 ):Value = cert-&gt;zip\n   oSheet:Cells( nRow, 9 ):Value = cert-&gt;zip4\n   oSheet:Cells( nRow, 10 ):Value = cert-&gt;schd\n   oSheet:Cells( nRow, 11 ):Value = if(EMPTY(cert-&gt;expir_date), \"00/00/00\", cert-&gt;expir_date)\n   oSheet:Cells( nRow, 12 ):Value = if(EMPTY(cert-&gt;init_date), \"00/00/00\", cert-&gt;init_date)\n\n   nRow++\n   @ 10,10 say str(Nrow)+\"  \"+cert-&gt;name\n   select cert\n\n   SKIP\n ENDDO\n\n* oExcel:Visible = .T.\n\nclose databases\nquit','',0,'','y1emppx1',1,0,'',35,0,0),(28649,6433,3,35,0,'65.188.6.143',1174609400,1,0,1,1,1,0,'','','Gale .. here is your modified code .. which generates a runtime error ..\n\nSame 2 questions I asked Enrico .. how do I put column headers in the file and how do I create the .xls file without opening Excel ??\n\nThanks\nRick Lipkin\n\nApplication\n===========\n   Path and name: c:\\FOX\\DC\\Dbf2Xls1.Exe (32 bits)\n   Size: 1,383,424 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 03/22/07, 20:08:44\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: CLIPBRD.PRG =&gt; (b)TCLIPBOARD:TCLIPBOARD(0)\n   Called from: CLIPBRD.PRG =&gt; TCLIPBOARD:OPEN(0)\n   Called from: EXCEL1.PRG =&gt; MAIN(54)\n\n\n// dbf2xls conversion\n\n#include \"fivewin.ch\"\n\nfunction Main()\n\nlocal nCounter, nStart, oClipBoard\nlocal oExcel, oWorkBook, oSheet\n\n   // create excel objects\n\noExcel = CREATEOBJECT( \"Excel.Application\" )\noExcel:WorkBooks:Add()\noWorkBook = oExcel:Get( \"ActiveWorkBook\" )\noSheet = oExcel:Get( \"ActiveSheet\" )\n\nnCounter := 1\nnStart := nCounter\ncMemo := \'\'\n\nREQUEST DBFCDX\nrddsetdefault( \"DBFCDX\" )\n\nselect 1\nuse cert via \"DBFCDX\" shared\ngo top\n\n\ndo while .not. eof()\n\n      // build record\n   cMemo += cert-&gt;reg_no\n   cMemo += chr(9)+cert-&gt;name\n   cMemo += chr(9)+cert-&gt;addr1\n   cMemo += chr(9)+cert-&gt;addr2\n   cMemo += chr(9)+cert-&gt;addr3\n   cMemo += chr(9)+cert-&gt;city\n   cMemo += chr(9)+cert-&gt;state\n   cMemo += chr(9)+cert-&gt;zip\n   cMemo += chr(9)+cert-&gt;zip4\n   cMemo += chr(9)+cert-&gt;schd\n   cMemo += chr(9)+dtoc(cert-&gt;expir_date)\n   cMemo += chr(9)+dtoc(cert-&gt;init_date)\n   cMemo += CRLF\n\n   nCounter++\n   skip\n\n   // update sheet every 1000 records or eof()\n\n   if mod( nCounter, 1000 ) = 0 .or. eof()\n      oClipBoard := tclipboard():New()\n\n     if oClipBoard:Open()            //  error here\n         oClipBoard:SetText( cMemo )\n         oClipBoard:Close()\n      endif\n\n      pClipBoard:close()\n      oExcel:oSheet:Cells( nStart, 1 ):Select()\n      oExcel:oSheet:paste()\n      nStart := nCounter\n      cMemo := \'\'\n   endif\n\nenddo\n\nclose databases\nquit\n\nreturn( nil )','',0,'','vh8rk7tr',1,0,'',35,0,0),(28650,6442,6,43,0,'189.128.25.131',1174611383,1,0,1,1,1,0,'','','Hola Rene.\n\nSi efectivamente ya lo revise, incluso ya he podido ver los archivos del servidor, pero no he podido conectarme con la clase tmysql de xharbour.\n\nAlguna otra sugerencia...?\n\nEl error que manda tmysql es el 2013, el cual dice:\nCR_SERVER_LOST - Lost connection to MySQL server during query\n\n\nSaludos\nMarco A. Delgado','',0,'','2ab47utr',1,0,'',43,0,0),(28651,6444,6,54,0,'189.132.110.109',1174613243,1,0,1,1,1,1,'','Re: Modifique un poquito la TGET. Antonio...','Goos, yo haria lo siguiente:\n\n[code:knn5yloe]function main&#40;&#41;\n	local oDatos&#58;= array&#40;4&#41;,vDatos&#58;= array&#40;4&#41;,oDlg\n\n	vDatos&#91;1&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;2&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;3&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;4&#93;&#58;= space&#40;20&#41;	\n\n	define dialog oDlg resource &quot;DLG_DIALOGO&quot; \n		redefine get oDatos&#91;1&#93; var vDatos&#91;1&#93; id 100 of oDlg\n		redefine get oDatos&#91;2&#93; var vDatos&#91;2&#93; id 101 of oDlg\n		redefine get oDatos&#91;3&#93; var vDatos&#91;3&#93; id 102 of oDlg\n		redefine get oDatos&#91;4&#93; var vDatos&#91;4&#93; id 103 of oDlg\n\n		// Validamos ahora\n		\n		oDatos&#91;1&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 1&quot;&#41; &#125;\n		oDatos&#91;2&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 2&quot;&#41; &#125;\n		oDatos&#91;3&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 3&quot;&#41; &#125;\n		oDatos&#91;4&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 4&quot;&#41; &#125;\n	ACTIVATE DIALOG oDlg\n\nreturn &#40; nil &#41;[/code:knn5yloe]\n\nBueno, es sugerencia, jjejjejjejje\n\n[/code]','',0,'AIA=','knn5yloe',1,0,'',54,0,0),(28652,6427,6,940,0,'189.157.88.221',1174616584,1,0,1,1,1,1,'','','Hola Juan,  efectivamente,  existe un error con xHarbour,\nesto pasa cuando haces un edit en las celdas del browse.\n\nmas y sin embargo \ncon harbour va bien.\n\nsaludos..','',0,'AIA=','idautw6j',1,0,'',940,0,0),(28653,6444,6,52,0,'190.7.62.226',1174621280,1,0,1,1,1,1,'','Re: Modifique un poquito la TGET. Antonio...','[quote=&quot;wmormar&quot;:2tr95tzp]Goos, yo haria lo siguiente:\n\n[code:2tr95tzp]function main&#40;&#41;\n	local oDatos&#58;= array&#40;4&#41;,vDatos&#58;= array&#40;4&#41;,oDlg\n\n	vDatos&#91;1&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;2&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;3&#93;&#58;= space&#40;20&#41;\n	vDatos&#91;4&#93;&#58;= space&#40;20&#41;	\n\n	define dialog oDlg resource &quot;DLG_DIALOGO&quot; \n		redefine get oDatos&#91;1&#93; var vDatos&#91;1&#93; id 100 of oDlg\n		redefine get oDatos&#91;2&#93; var vDatos&#91;2&#93; id 101 of oDlg\n		redefine get oDatos&#91;3&#93; var vDatos&#91;3&#93; id 102 of oDlg\n		redefine get oDatos&#91;4&#93; var vDatos&#91;4&#93; id 103 of oDlg\n\n		// Validamos ahora\n		\n		oDatos&#91;1&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 1&quot;&#41; &#125;\n		oDatos&#91;2&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 2&quot;&#41; &#125;\n		oDatos&#91;3&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 3&quot;&#41; &#125;\n		oDatos&#91;4&#93;&#58;bValid&#58;= &#123; || alert&#40;&quot;modifique GET 4&quot;&#41; &#125;\n	ACTIVATE DIALOG oDlg\n\nreturn &#40; nil &#41;[/code:2tr95tzp]\n\nBueno, es sugerencia, jjejjejjejje\n\n[/code][/quote:2tr95tzp]\n\nperfecto, pero entonces deberia de modificarse el método o bValid o LostFous <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','2tr95tzp',1,0,'',52,0,0),(28654,6445,2,235,0,'200.56.66.211',1174624504,1,0,1,1,1,0,'','como se puede inhabilitar la tecla tab','buenas noches a todos:\n\ntengo una duda, como se puede evitar que el usuario use la tecla tab, en en un dialogo creado desde workshop???, se desea que el usuario utilice siempre la tecla enter\n\ndesde ya muchas gracias','',0,'gIA=','8fxv5762',1,0,'',235,0,0),(28655,6446,5,512,0,'219.90.192.155',1174625777,1,0,1,1,1,0,'','No Clear method when pressing &quot;.&quot; in a listbox cel','Hello everyone, \n\nI have just upgraded from \"FiveWin++ 1.82 - February 2004\" to FW++ 7.01 and upgraded Alaska XBase++ Intl V1.81 to Intl V1.90.331. I use BorlandC Resource Compiler brcc32 V5.02 to manage my resources. \n \nWhen I edit a numeric field in a Browse list box using Cell Edit,I get the following error when I press \".\" decimal point.\n\n\n\n------------------------------------------------------------------------------\nERROR LOG of \"D:\\ac\\fivedb_ac_ph\\test_src\\gettst1.exe\" Date: 03/23/2007 15:09:31\n\nXbase++ version     : Xbase++ (R) Version 1.90.331\nOperating system    : Windows XP 05.01 Build 02600 Service Pack 2\n------------------------------------------------------------------------------\noError:args         :\n          -&gt; VALTYPE: O CLASS: TClipGet\noError:canDefault   : N\noError:canRetry     : N\noError:canSubstitute: Y\noError:cargo        : NIL\noError:description  : Object has no method with this name\noError:filename     : \noError:genCode      :         23\noError:operation    : Clear\noError:osCode       :          0\noError:severity     :          2\noError:subCode      :       2220\noError:subSystem    : BASE\noError:thread       :          1\noError:tries        :          0\n------------------------------------------------------------------------------\nCALLSTACK:\n------------------------------------------------------------------------------\nCalled from TGET:KEYCHAR(916)\nCalled from TWINDOW:HANDLEEVEN(3000)\nCalled from TCONTROL:HANDLEEVEN(1360)\nCalled from TGET:HANDLEEVEN(478)\nCalled from _XBPP(3164)\nCalled from TDIALOG:ACTIVATE(279)\nCalled from TWBROWSE:LEDITCOL(807)\nCalled from COLVARCHG(63)\nCalled from (B)SHOW_LIST(37)\nCalled from TWINDOW:LDBLCLICK(1753)\nCalled from TWBROWSE:LDBLCLICK(1039)\nCalled from TWINDOW:HANDLEEVEN(3063)\nCalled from TCONTROL:HANDLEEVEN(1360)\nCalled from _XBPP(3164)\nCalled from TDIALOG:ACTIVATE(279)\nCalled from SHOW_LIST(43)\nCalled from (B)MAIN(14)\nCalled from TWINDOW:ACTIVATE(876)\nCalled from MAIN(14)\n\nThe source code for gettst1.prg follows:\n//GET testing in 32 bit mode using resource redefine....\n\n#include \"FiveWin.ch\"\n#define COST_LBX	1000\n#define COSTINVT_ACCEPT 1001\nstatic oWin\n\n//----------------------------------------------------------------------------//\nfunction Main()\n\n  DEFINE WINDOW oWin FROM 7,5 to 15,63  TITLE \"Test Cell Edit in Browse Listbox\"\n  ACTIVATE WINDOW oWin ON INIT Show_List()\nreturn nil\n//----------------------------------------------------------------------------//\n\nprocedure Show_List()\nlocal oDlg2, oLbx\nlocal aItems\n\n    aItems := { {\"AA100\", 20, 30},{\"AA110\", 20, 30},{\"BA150\", 20.5, 30.5},{\"CD200\", 25.1, 30.5}}\n\n    DEFINE DIALOG oDlg2 RESOURCE \"BrwseCostInvt\" of oWin\n\n     REDEFINE LISTBOX oLbx FIELDS aItems[oLbx:nAt,1], str(aItems[oLbx:nAt,2]), str(aItems[oLbx:nAt,3]), \"\" ;\n	     ID COST_LBX ON DBLCLICK oDlg2:End() HEADER \"Prod Code\", \"%Cost\", \"Sel Price\", \"\" ;\n             FIELDSIZES 80, 60, 60, 0 of oDlg2 \n\n    oLbx:SetArray(aItems)\n\n	     // This enables the Cell navigation style for the browse\n	     oLbx:lCellStyle := .T.\n\n            // To perform and edit Cell operation using left double click \n	    oLbx:bLDBLclick := { |nRow, nCol, nKeyFlags| ;\n		ColVarChg(@oLbx, @aItems), oLbx:Refresh()}\n\n \n    REDEFINE BUTTON ID COSTINVT_ACCEPT OF oDlg2;\n        ACTION (oDlg2:end())\n\n     ACTIVATE DIALOG oDlg2\n\nreturn\n\n//----------------------------------------------------------------------------//\n\nprocedure ColVarChg(oLbx, aItems)\nlocal lColNumber, lRowNumber, lVarToEdit\n\nlColNumber := oLbx:nColAct  	// Get actual Column in focus\nlRowNumber := oLbx:nAt  	// Get actual Row in focus\n  DO CASE		// Check which column edit is to be performed	\n    CASE lColNumber == 1	// Column 1 is a string Prod ID value\n        // Make a temporary String copy of selected string field.\n        lVarToEdit := Eval(olbx:bLine)[lColNumber]\n	oLbx:lEditCol(lColNumber, @lVarToEdit, Replicate(\"X\",10), NIL, CLR_YELLOW, CLR_BLUE)\n\n    CASE (lColNumber == 2) .OR. (lColNumber == 3)	// Edit Numeric Fields\n        // Make a temporary NUMERIC copy of selected numeric field.\n        lVarToEdit := VAL(Eval(olbx:bLine)[lColNumber])\n	oLbx:lEditCol(lColNumber, @lVarToEdit, replicate(\"9\",5)+\".99\", NIL, CLR_YELLOW, CLR_BLUE)\n\n  ENDCASE\n  //Now save new edited value       \n  aItems[lRowNumber, lColNumber] := lVarToEdit\nreturn\n\n\n//32 bits Alaska XPP Initialisation source code here...\nprocedure AppSys()\nreturn\n\n-------------------------------------------------------------------------------\nThe resource file gettst1.rc used with the above program follows:\n#define COST_LBX	1000\n#define COSTINVT_ACCEPT 1001\n\nBrwseCostInvt DIALOG -5, 6, 282, 229\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Inventory Browse Showing Some Fields\"\nFONT 8, \"MS Sans Serif\"\n{\n LISTBOX COST_LBX, 2, 14, 279, 185, LBS_NOTIFY | WS_BORDER | LBS_NOINTEGRALHEIGHT | WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;OK to Accept  [F2]\", COSTINVT_ACCEPT, 110, 212, 71, 14, NOT WS_TABSTOP\n}\n __________________________________________________________\n\nAny help would be appreciated. I have used the standard FiveWin and Alaska XBase++ libararies for the above example.\n\nFor the future, I need to modify the Tget Class for my application (such as automatically highlighting entries when the &lt;CR&gt; key is pressed plus other minor changes), so would it be possible the get the corrected Tget.prg and TClipGet.prg class source code?\n\n\nBest regards, Angelo','',0,'','1bvubork',1,0,'',512,0,0),(28656,6411,6,774,0,'200.72.191.123',1174625971,1,0,1,1,1,1,'','','Tienes un mail en HOTMAIL.COM  ,, sino crea uno y me lo das para pasarte un ZIP con MENU STYLE OFFICE 2003 Y XP\n\nel mio,,, <!-- e --><a href=\"mailto:Leiva_36@hotmail.com\">Leiva_36@hotmail.com</a><!-- e -->\n\n\nNos leemos\n\nBYE','',0,'','1j3y80cd',1,0,'',774,0,0),(28657,6433,3,303,0,'72.199.41.171',1174630180,1,0,1,1,1,0,'','','Rick,\n\n&gt;how do I test for a bad date like \"06/31/2006\" \n\nI haven\'t tried this but you could try:\n\nfunction isDate( cDate )\nreturn if(emtpy(ctod( cDate )),.f.,.t.)\n\nJames','',0,'','2bifppzt',1,0,'',303,0,0),(28658,6433,3,6,0,'87.9.34.14',1174637115,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:131yy65y]Enrico .. here is your modified code .. 2 questions[/quote:131yy65y]\n\nThis is a modified version of my sample:\n\n[code:131yy65y]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel, oSheet\n\n    LOCAL nRow\n\n    oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    oSheet = oExcel&#58;ActiveSheet\n\n    USE TEST\n\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Value = &quot;LAST&quot;\n    oSheet&#58;Cells&#40; 1, 2 &#41;&#58;Value = &quot;FIRST&quot;\n    oSheet&#58;Cells&#40; 1, 3 &#41;&#58;Value = &quot;HIREDATE&quot;\n\n    nRow = 2\n\n    WHILE !EOF&#40;&#41;\n        oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value = FIELD -&gt; last\n        oSheet&#58;Cells&#40; nRow, 2 &#41;&#58;Value = FIELD -&gt; first\n        oSheet&#58;Cells&#40; nRow, 3 &#41;&#58;Value = FIELD -&gt; hiredate\n\n        nRow++\n\n        SKIP\n    ENDDO\n\n    oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value = &quot;Test for&quot;\n    oSheet&#58;Cells&#40; nRow, 2 &#41;&#58;Value = &quot;empty date&quot;\n    oSheet&#58;Cells&#40; nRow, 3 &#41;&#58;Value = CTOD&#40; &quot;&quot; &#41;\n\n    oSheet&#58;Columns&#40; &quot;A&#58;C&quot; &#41;&#58;AutoFit&#40;&#41;\n\n//    oExcel&#58;Visible = &#46;T&#46;\n\n    FERASE&#40; &quot;C&#58;\\XHARBOUR\\SAVED&#46;XLS&quot; &#41;\n\n    oSheet&#58;SaveAs&#40; &quot;C&#58;\\XHARBOUR\\SAVED&#46;XLS&quot; &#41;\n\n    oExcel&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:131yy65y]\n\nEMG','',0,'gIA=','131yy65y',1,0,'',6,0,0),(28659,6373,3,130,0,'141.51.32.24',1174638485,1,0,1,1,1,0,'','','Marcelo,\n\nyour mailserver blocked this attachment, so I sent it to hyperupload, where you and others can download it:\n\n[url:1qu20msx]http&#58;//hyperupload&#46;com/download/0226ccc367/TRMChartX&#46;zip&#46;html[/url:1qu20msx]\n\nStefan','',0,'EA==','1qu20msx',1,0,'',130,0,0),(28660,6418,3,49,0,'213.82.134.66',1174647091,1,0,1,1,1,1,'','','can you write here the  sample code ?','',0,'EA==','h66w3q07',1,0,'',49,0,0),(28661,6331,6,92,0,'80.33.140.85',1174647287,1,0,1,1,1,0,'','Re: sbrowse y tdbf a 32 bits','[quote=&quot;Francis&quot;:1e0jv5o6]Estoy tratando de migrardo mis aplicaciones a 32 bits y mis dudas son si el sbrowse que de tengo y el tdbf12 de 16 bits, funcionaran con el fwh2.4?\n\nSi no es asi donde puedo consegui estas dos librerias pero a 32 bits, por favor, estas dos librerias uso en casi el 50% de mis aplicaiones a 16 bits...\n\nSalu2[/quote:1e0jv5o6]\n\nBuenas,\n¿Has conseguido la TDBF para 32 bits?\n\nSi sigues interesado en ella, creo que te la puedo mandar (sería esta noche o mañana). Dime con que versión la usarías; la tengo para FWH 2.7 (creo que en 2.4 funcionaría) y ahora la tendré para 7.01.\n\nHe realizado unas pequeñas modificaciones/correcciones que estoy probando y hasta ahora parece ser que todo vuelve a funcionar.\nLa estoy probando bajo FWH 7.01 y Harbour 1.0\n\nSaludos\nCarlos G.','',0,'gA==','1e0jv5o6',1,0,'',92,0,0),(28662,6447,20,49,0,'213.82.134.66',1174647486,1,0,1,1,1,1,'','esempio per fare una foto ed inserirla nel campo get','avete un esempio per fare una foto con una webcam  nel momento dell\'inserimento del record e quindi salvarla in jpg e inserire il nome dela file esempio 0001.jpg nel get corrispondente?\n \nQuale classe usare o meglio quale classe in xharbour funziona senza interuzioni  ( ho visto che con capcature  fatto tre o quattro foto mi dice che non c\'è nessuna webcam installata)\n\ngrazie','',0,'gA==','d7ht6ew8',1,0,'',49,0,0),(28663,6411,6,49,0,'213.82.134.66',1174647879,1,0,1,1,1,1,'','','class of  Paco run ok  in w2000, Xp \n\ninstead the arthuro  class not run ok ...!!\n\nI think you must use the Paco classes','',0,'gA==','1471wuwu',1,0,'',49,0,0),(28664,6430,6,49,0,'213.82.134.66',1174648150,1,0,1,1,1,1,'','','wich version you have ?','',0,'gA==','3icmzrz1',1,0,'',49,0,0),(28665,3054,4,49,0,'213.82.134.66',1174648920,1,0,1,1,1,1,'','','can you send me at private emai  the sample cose to use this and the file exe to try with my smartphone HTC tyTn qtek9600\n\nRegards','',0,'gA==','1r64tsj5',1,0,'',49,0,0),(28666,6446,5,2,0,'217.21.255.129',1174652304,1,0,1,1,1,1,'','','Angelo,\n\nWe are currently at Holland on a FWPPC seminar. Next sunday we will be back at our offices so we will review this issue, thanks','',0,'gA==','1ug1j2s9',1,0,'',2,0,0),(28667,6373,3,666,0,'211.28.125.58',1174653052,1,0,1,1,1,0,'','','Many thanks, Stefan. (I emailed my thanks at the time but my email to you bounced back to me today).\nCol','',0,'gA==','2evfmlhp',1,0,'',666,0,0),(28668,6448,6,841,0,'217.12.16.48',1174654410,1,0,1,1,1,0,'','Para Antonio Linares','Estimado Antonio:\n\npara limpiar el buffer del teclado tenemos en FWH algo parecido a &quot;Clear Typeahead&quot; de Clipper?? \nestuve buscando en \\Samples\\ pero no vi nada al respecto y en el foro nadie responde. \n\nMil gracias, maestro.\nLORENZO','6a0fa9589302e1513228c8a56cb02483',0,'','1f935lun',1,0,'',841,0,0),(28669,6449,7,57,0,'83.44.41.76',1174655755,1,0,1,1,1,1,'','Cierre erroneo con Folder','Antonio\nCon la ultima modifición de la clase tFolder el metodo Destroy destruye el folder y cierra completamente la aplicación. \n\nEjecuta el ejemplo y podras comprobarlo.\n\nSi lo dejo como estaba, esto no sucede pero existe un bug reportado al foro que provoca que cuando se cierra la aplicación en ocasiones se queda algo colgado y la aplicación sigue en ejecución. \n\nif ::oWnd == WndMain()        \n   PostQuitMessage( 0 ) // A.L. 05-Dec-06\nendif\n\n\n(Incluye testfld2.rc de samples).\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, oMod\n\n   DEFINE WINDOW oWnd TITLE \"Version\"\n\n   @ 0, 2 BUTTON \"Dialog\" ;\n      SIZE 100, 30 ACTION BuildDlg( oWnd )\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\nfunction BuildDlg( oWnd )\n   local oDlg, oFld, cValue\n\n   DEFINE DIALOG oDlg NAME \'TestFld\' OF oWnd\n\n   REDEFINE FOLDER oFld ID 800 OF oDlg;\n      PROMPTS \"One\", \"Two\" ;\n      DIALOGS \"sub1\", \"sub2\"\n\n   REDEFINE COMBOBOX cValue ID 100 OF oFld:aDialogs[ 1 ] ;\n      ITEMS { \"Red\", \"Green\", \"Blue\" }\n\n   REDEFINE BUTTON ID 110 OF oFld:aDialogs[ 1 ] ACTION oFld:SetOption( 2 )\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil','',0,'','1j2hi2ys',1,0,'',57,0,0),(28670,6409,6,147,0,'200.45.54.134',1174656749,1,0,1,0,1,1,'','','Probaste desintalando y re instlando el WS?','',0,'','ooimwcz9',1,0,'',147,0,0),(28671,6305,1,981,0,'74.56.149.181',1174657378,1,0,1,1,1,0,'','Re: exetype','[quote=&quot;rwilson&quot;:jmg2hi23][quote=&quot;rwilson&quot;:jmg2hi23]Hi all \n\nI am Richard  and l work with clipper 5.3, bilnker 4.1 fw 2.1 and l want to make\nexetype 95, 98, nt or 2000. It just work with 3.1. What canl do\n\nWhen l try with 95 or 95 the system told me this application is not take in charge by windows\n\nWhen l try with 2000 relesse is not enough recently need windows 3.0 or more\n\nWhen l try with NT blinker told me that nt does not exist[/quote:jmg2hi23]\n\nl try this with window 98 xp nd 2003\n\nI try it with tutor08 and it dosen\'t function lsen you a zip file of the exe\nl send it to you e fow days agoe did you receive it\n[/quote:jmg2hi23][/list]','',0,'gA==','jmg2hi23',1,0,'',981,0,0),(28672,6411,6,36,0,'200.113.56.235',1174658301,1,0,1,1,1,0,'','','Hola\n\nYo utilizo la clase de arturo y funciona muy bien, tanto en win98 como XP\n\npd: El nuevo look le da un toque especial\n\n\nSaludos\nPatricio','',0,'gA==','20azd7lp',1,0,'',36,0,0),(28673,6444,6,36,0,'200.113.56.235',1174658768,1,0,1,1,1,0,'','','Hola\n\nYo implementaria este metodo\n\n\n[code:2zuqh9jh]METHOD Ischange&#40;&#41; INLINE &#58;&#58;oGet&#58;Changed&#40;&#41;[/code:2zuqh9jh]\n\nSaludos\nPatricio','',0,'AIA=','2zuqh9jh',1,0,'',36,0,0),(28674,6450,6,63,0,'88.11.31.105',1174659016,1,0,1,1,1,0,'','Agenda/Calendario tipo Outlook','Alguien sabe si existe un control que permita implementar una agenda / calendario tipo Outlook (gratuito o de pago, no importa)  Se trata de poder presentar una agenda de citas agrupadas en columnas por dias, semanas o meses.\nGracias\nRafael','',0,'AIA=','2rw9vrf9',1,0,'',63,0,0),(28675,6451,2,124,0,'190.31.49.118',1174659061,1,0,1,1,1,0,'','PROBLEMA PARA BUSCAR PRIMEROS REGISTROS CON SEEK','Amigos:\n\nAntes de escribir esto les aseguro que hice todas las pruebas posibles, ya que en 17 años de clipper jamas me paso algo parecido y parece que fuera un principiante por esta consulta.\n\nTrabajando con clipper / fivewin / dbfcdx tengo el siguiente problema:\n\nsi hago un gotop y un seek a una determinada clave que queda entre los primeros registros de ese orden de clave encuentra el dato y se posiciona bien. \n\nsi hago lo mismo con el puntero abajo en la tabla NO LO ENCUENTRA.\n\nsi hago lo mismo, con un gotop o con el puntero abajo en la tabla y busco un registro que esta luego de ese grupo inicial de registros, lo encuentra siempre bien.\n\nAl encontrar esto, lo repeti en distintas tablas, indices, etc y pasa lo mismo, tablas grandes y chicas, la clave es una clave normal, compuesta de 4 o 5 campos todos pasados llevados a string, etc, todo normal.\n\nEs decir encuentro que el seek no esta encontrando registros de los primeros en el orden cuando el seek no se hace desde arriba en la tabla.\n\nTodas las cosas posibles ya estan hechas, borrar los indices, regenerarlos, revisar todo, etc.\n\nLA CONSULTA ES SI ALGUNO SABE DE ALGUN PROBLEMA CON ALGUNA VERSION DE LA LIBRERIA DBFCDX Y ME ORIENTA DONDE CONSEGUIR LA QUE FUNCIONA BIEN.','',0,'AIA=','1b0mzo4j',1,0,'',124,0,0),(28676,6411,6,64,0,'201.72.124.2',1174659160,1,0,1,1,1,1,'','','Hello,\n\n    class of Paco is 5MENU? Where I find? How much? Works with xHarbour xBuilder?\n\nThanks','',0,'AIA=','3ukgadhg',1,0,'',64,0,0),(28677,6444,6,52,0,'190.7.62.226',1174659402,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:3c6ph4bc]Hola\n\nYo implementaria este metodo\n\n\n[code:3c6ph4bc]METHOD Ischange&#40;&#41; INLINE &#58;&#58;oGet&#58;Changed&#40;&#41;[/code:3c6ph4bc]\n\nSaludos\nPatricio[/quote:3c6ph4bc]\n\nCual sería la ventaja?\n\nGracias.','',0,'gIA=','3c6ph4bc',1,0,'',52,0,0),(28678,6433,3,35,0,'167.7.140.254',1174659869,1,0,1,1,1,0,'','','Enrico ...\n\nThank you .. think this will be perfect ..\n\nRick Lipkin','',0,'gIA=','35w9q1x6',1,0,'',35,0,0),(28679,6427,6,278,0,'164.77.219.82',1174660102,1,0,1,1,1,1,'','','GRACIAS  Ramón y Sysctrl por responder.\n\nRamón, tu idea funcióno PERFECTO !! , no sabía esa forma de uso.\n\n\nSysctrl, que bueno saber esto, pues me tenia complicado ese error !.\npensaba que era algo mío.\n\nSaludos ,','',0,'gIA=','2ma19bz3',1,0,'',278,0,0),(28680,6413,6,278,0,'164.77.219.82',1174660280,1,0,1,1,1,1,'','','Creo de  debes usar colores en formato RGB , un naranja sería algo como\n\n( 255,128,64 )  ó ( 255,128, 0 )','',0,'gIA=','24o6kx1l',1,0,'',278,0,0),(28681,6373,3,303,0,'72.199.41.171',1174661115,1,0,1,1,1,0,'','','When I try to download the wrappers I get a zero byte file. I tried three times and I have never had a problem downloading from Hyperupload before. Anyone else having this problem?\n\nJames','',0,'gIA=','2a8wc3wv',1,0,'',303,0,0),(28682,2548,3,23,0,'213.96.85.49',1174663102,1,0,1,1,1,1,'','','Can you tell me how you make the application run as a service?','',0,'gIA=','2487tq7q',1,0,'',23,0,0),(28683,6409,6,854,0,'189.131.144.246',1174663859,1,0,1,1,1,0,'','','Que tal Mario\n\nYo tengo el WS pero solo lo descompacto, no lo instalo.\n\nya lo descompacte de un respaldo que tenia y nada, sigue sin funcionar.','',0,'gIA=','369i0ugc',1,0,'',854,0,0),(28684,6452,6,23,0,'213.96.85.49',1174663888,1,0,1,1,1,1,'','Programa como servicio','Buenas, una duda acerca de hacer funcionar un programa como servicio.\nHe creado el programa, lo he instalado como servicio con el srvany y le he puesto las funciones : \n\n//------------------------------\nFunction ServiceProcess( mode )\n//------------------------------\nLocal nProcessId := 0\n\nDefault mode := 0\n\nnProcessId := GCP( )\n\nIf Abs( nProcessId ) &gt; 0\n    RSProcess( nProcessId, mode )\nEndif\n\nRETURN\n\n//----------------------------------------------------\nDLL32 FUNCTION RSProcess(npID  AS LONG ,;\n                         nMode AS LONG ) AS LONG ;\n      FROM \"RegisterServiceProcess\" LIB \"kernel32.DLL\"\n//----------------------------------------------------\n\n//----------------------------------------------------\nDLL32 FUNCTION GCP() AS LONG;\n      FROM \"GetCurrentProcessId\" LIB \"kernel32.dll\"\n//---------------------------------------------------- \n\nLlamando al principio de la aplicación :\n\nServiceProcess(1)\n\nY hasta aqui todo bien, voy a servicios y le doy a iniciar servicio, la aplicación se ejecuta (voy creando un fichero log con diversos controles y se crea), pero no se queda funcionando, al final windows me arroja el error 1053 : El servicio no ha respondido a la petición o inicio del control en un tiempo adecuado.\n\nLo estoy probando en windows 2003 server, se trata de un servicio de backup en segundo plano y necesito que se ejecute sin que nadie ejecute la sesión.\n\nGracias anticipadas.','',0,'gIA=','2lkx9hj2',1,0,'',23,0,0),(28685,6433,3,343,0,'24.173.70.29',1174664120,1,0,1,1,1,0,'','','The example I posted required Fivewin to have an open window.\nHere is another example that can compile and run with just xHarbour.com\n\nThe results I get are were\nOle = 18.67 seconds\nClipboard = .20 seconds\n\nQuite a difference.\n\n[code:2pe1yp1c]\n// #include &quot;fivewin&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n   LOCAL oExcel, oSheet\n   LOCAL nRow\n   LOCAL nCounter, nStart, nSeconds, nSecOle, nSecClip\n\n   oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n   oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oSheet = oExcel&#58;ActiveSheet\n\n   nRow &#58;= 1\n   oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value = &quot;Counter&quot;\n   oSheet&#58;Cells&#40; nRow, 2 &#41;&#58;Value = &quot;Date&quot;\n   oSheet&#58;Cells&#40; nRow, 3 &#41;&#58;Value = &quot;Row&quot;\n\n   nCounter &#58;= 1\n   nStart &#58;= nCounter\n   nSeconds &#58;= seconds&#40;&#41;\n\n   DO WHILE nCounter &lt; 2000\n      oSheet&#58;Cells&#40; nCounter+nRow, 1 &#41;&#58;Value = nCounter\n      oSheet&#58;Cells&#40; nCounter+nRow, 2 &#41;&#58;Value = date&#40;&#41;-nCounter\n      oSheet&#58;Cells&#40; nCounter+nRow, 3 &#41;&#58;Value = nCounter-1\n      nCounter++\n   ENDDO\n   nSecOle &#58;= seconds&#40;&#41;-nSeconds\n\n   nRow += nCounter+2\n\n   oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value = &quot;Counter&quot;\n   oSheet&#58;Cells&#40; nRow, 2 &#41;&#58;Value = &quot;Date&quot;\n   oSheet&#58;Cells&#40; nRow, 3 &#41;&#58;Value = &quot;Row&quot;\n\n\n   nSeconds &#58;= seconds&#40;&#41;\n\n   nCounter &#58;= 1\n   nStart &#58;= nCounter\n   cMemo &#58;= \'\'\n   DO WHILE nCounter &lt; 2000\n      // build record\n      cMemo += ltrim&#40; str&#40; nCounter &#41; &#41;\n      cMemo += chr&#40;9&#41;+dtoc&#40; date&#40;&#41;-nCounter &#41;\n      cMemo += chr&#40;9&#41;+ltrim&#40; str&#40; nCounter+nRow-1 &#41; &#41;\n      cMemo += chr&#40;10&#41;\n\n      nCounter++\n      // update sheet every 1000 records or eof&#40;&#41;\n      IF mod&#40; nCounter, 1000 &#41; = 0  // &#46;or&#46; eof&#40;&#41;\n\n         // This is for Fivewin Code\n         /*\n         oClipBoard &#58;= tClipBoard&#40;&#41;&#58;New&#40;&#41;\n         IF oClipBoard&#58;Open&#40;&#41;\n            oClipBoard&#58;SetText&#40; cMemo &#41;\n            oClipBoard&#58;Close&#40;&#41;\n         ENDIF\n         */\n         // This is for xHarbour Console\n         GTSetClipboard&#40; cMemo &#41;\n\n         oSheet&#58;Cells&#40; nRow+nStart, 1 &#41;&#58;Select&#40;&#41;\n         oSheet&#58;paste&#40;&#41;\n         nStart &#58;= nCounter\n         cMemo &#58;= \'\'\n      ENDIF\n   ENDDO\n\n   // clear clipboard buffer &#40;Fivewin Code&#41;\n   /*\n   oClp     &#58;= TClipBoard&#40;&#41;&#58;New&#40;&#41;\n   IF oClp&#58;Open&#40;&#41;\n      oClp&#58;SetText&#40; \'\' &#41;\n      oClp&#58;Close&#40;&#41;\n   ENDIF\n   msginfo&#40; \'Ole = \'+ltrim&#40;str&#40;nSecOle&#41;&#41;+CRLF+;\n      \'Clip = \'+ltrim&#40;str&#40;nSecClip&#41;&#41; &#41;\n   */\n   // This is for xHarbour Console\n   nSecClip &#58;= seconds&#40;&#41;-nSeconds\n   ? \'Ole = \'+ltrim&#40;str&#40;nSecOle&#41;&#41;\n   ? \'Clip = \'+ltrim&#40;str&#40;nSecClip&#41;&#41;\n   wait\n\n\n   nSecClip &#58;= seconds&#40;&#41;-nSeconds\n\n   oSheet&#58;Columns&#40; &quot;A&#58;C&quot; &#41;&#58;AutoFit&#40;&#41;\n   oExcel&#58;Visible = &#46;T&#46;\n\n\n   //    FERASE&#40; &quot;C&#58;\\XHARBOUR\\SAVED&#46;XLS&quot; &#41;\n   //\n   //    oSheet&#58;SaveAs&#40; &quot;C&#58;\\XHARBOUR\\SAVED&#46;XLS&quot; &#41;\n\n   // oExcel&#58;Quit&#40;&#41;\nRETURN&#40; nil &#41;\n\n[/code:2pe1yp1c]','',0,'AIA=','2pe1yp1c',1,0,'',343,0,0),(28686,6401,3,972,0,'81.164.115.198',1174664468,1,0,1,1,1,0,'','','[quote=&quot;Peterg&quot;:z0uqc08x]thats what I am using but it still gpfs. Should I be using the latest version of fwh[/quote:z0uqc08x]\n\nWhat version of xHarbour Builder do you use?\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','z0uqc08x',1,0,'',972,0,0),(28687,6401,3,330,0,'217.37.54.49',1174664738,1,0,1,1,1,0,'','','latest beta','',0,'gA==','1z5twa3p',1,0,'',330,0,0),(28688,6453,2,304,0,'189.129.88.148',1174664790,1,0,1,1,1,0,'','Indices decendentes','Hola:\nEstoy trbajando paralelamente con un sistema llamado ASPEL SAE v3.0 el cual usamos con base de datos dbf e indices mdx, el caso es que no he encontrado la forma de grabar datos y q estos se reflejen en el indice. los archivos son MINV01.DBF y los MINV01.MDX he notado que el archivo indexado esta en forma descendente abro MINV01 y se ve asi:\nREGISTRO...CLV_ART....... TIPO_MOV.......CANT......DB8EXIST\n1..................0001...................1................10............10\n2..................0001...................53................1..............9\n3..................0001...................53................2..............7\n\nconsulto con el programa mencionado arriba y se ve asi:\nREGISTRO...CLV_ART....... TIPO_MOV.......CANT......DB8EXIST\n3..................0001...................53................2..............7\n2..................0001...................53................1..............9\n1..................0001...................1.................10.............10\n\nSupongo que el indice esta Descendente pero no se como hacerlo\no no se como activar o abrir la base de datos para que lo muestre de esa forma intente con el comando:\nSET DESCENDING ON, pero al compilar marca error\nalguien tiene alguna idea ???, por cierto solo tiene un indice \n\nGRACIAS por todo\nsaludos\nVeracruz, Ver. Mexico','',0,'gA==','8iq1rq9y',1,0,'',304,0,0),(28689,6450,6,53,0,'189.139.24.158',1174665074,1,0,1,1,1,1,'','','Rafael:\n\nHay un hilo en el foro de inglés, parece es lo que necesitas.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6407\">http://fivetechsoft.com/forums/viewtopic.php?t=6407</a><!-- m -->\n\nSaludos, Armando','',0,'gA==','1jqqclsy',1,0,'',53,0,0),(28690,6401,3,972,0,'81.164.115.198',1174665644,1,0,1,1,1,0,'','','[quote=&quot;Peterg&quot;:1xdhzi5s]latest beta[/quote:1xdhzi5s]\n\nJust tried, and no GPF here. Did you try Antonio\'s sample?\n\nPlease download the sample with exe from \"http://www.xHarbour.net/Test_ShellExecute.zip\" and let me know if it GPF on your side.\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','1xdhzi5s',1,0,'',972,0,0),(28691,6450,6,63,0,'88.11.31.105',1174667467,1,0,1,1,1,0,'','','Armando:\nGracias por tu respuesta pero no es lo que busco.  No quiero acceder a Outlook; lo que quisiera es crear una aplicación que presente un browse con la misma apariencia que tiene el calendario Outlook, es decir: Varias columnas, una columna por dia y cada linea correspondiente a una hora.  Y con una estética similar a la del Outlook.  \nSaludos,\nRafael','',0,'gA==','ktxszmt6',1,0,'',63,0,0),(28692,6450,6,138,0,'189.141.75.24',1174668050,1,0,1,1,1,1,'','','Rafael:\n\nSi que lo hay, es el componente Calendar Pro de la casa CodeJock:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codejock.com/downloads/samples/calendar.asp#calendar_calendardemo\">http://www.codejock.com/downloads/sampl ... lendardemo</a><!-- m -->\n\nSe utiliza como ActiveX, yo lo he utilizado, no con FiveWin, y funciona estupendamente.\n\nEso si, hacerlo requiere paciencia, tiene cientos de metodos, eventos y propiedades, asi que vas a requerir un poco de paciencia.','',0,'gA==','4hwvjx0b',1,0,'',138,0,0),(28693,6453,2,138,0,'189.141.75.24',1174668451,1,0,1,1,1,1,'','','No creo que sea complicado, esto me fucniona a mi:\n\nINDEX ON condicion .... DESCENDING\n\ny listo','',0,'gA==','1bf9wjpx',1,0,'',138,0,0),(28694,6401,3,330,0,'217.37.54.49',1174668474,1,0,1,1,1,0,'','','Downloaded and it works fine using normal build for xbase.\nAs soon as I link in the sql.lib then I get a gpf','',0,'gA==','12hmf8m1',1,0,'',330,0,0),(28695,2548,3,167,0,'207.119.126.13',1174668675,1,0,1,1,1,1,'','run exe as a service','Check out this site.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.iopus.com/guides/srvany.htm\">http://www.iopus.com/guides/srvany.htm</a><!-- m -->','',0,'gA==','1t2ep72q',1,0,'',167,0,0),(28696,6303,4,267,0,'200.208.238.2',1174668811,1,0,1,1,1,1,'','','Hi,\n\nYou are verifying this?','',0,'gA==','kbgmjoq0',1,0,'',267,0,0),(28697,6450,6,63,0,'88.11.31.105',1174669323,1,0,1,1,1,0,'','','René:\nSí, ya lo había visto y tiene muy buen aspecto.  Es justo lo que necesito y por precio me va bien pero ¿puede alimentarse desde DBFs (no desde OCBD)? ¿Funcionaría desde FWH?\nGracias\nRafael','',0,'gA==','3amuyaqa',1,0,'',63,0,0),(28698,6413,6,138,0,'189.141.75.24',1174669706,1,0,1,1,1,1,'','','Juan esta en lo correcto:\n\nEn windows no hay 42 colores, hay solo 16 millones y todos tienen un numero de color del 0 al 16581375 millones poco mas o menos.\n\nLos colores se definen mediante la funcion RGB(), recibe 3 parametros: \n\nCantidad de color Rojo (RED), con valores del 0 al 255, cantidad de color Verde (GREEN) con los mismos valores y cantidad de color Azul (BLUE).\n\nDe tal forma que el color negro es RGB(0,0,0), el blanco es RGB(255,255,255) y todos los demas estan en el inter, por ejemplo de los que me vienen a la memoria ahora mismo el gris RGB(192,192,192), rojo puro RGB(255,0,0), Verde puro (0,255,0) y azul puro RGB(0,0,255) a partir de ahi, tienes que jugar con los valores.\n\nel Paint tiene una paleta de color personalizable donde podras ver las posibles combianciones de colores para obtener el color que deseas','',0,'gA==','1im5cx8y',1,0,'',138,0,0),(28699,6432,6,138,0,'189.141.75.24',1174670185,1,0,1,1,1,1,'','','Perfecto, a veces el bosque no nos deja ver los arboles.\n\nTe recomiendo que pruebes la conexion AIS via modem, eso te puede dar un buen parametro en caso de que haya alguna rutina que se pueda optimizar.\n\nYo suelo utilizar mucho el ADSCacheRecords, para el tema de los browses, me da muy buena velocidad sobre internet.','',0,'gA==','27w1r726',1,0,'',138,0,0),(28700,6411,6,171,0,'71.232.193.197',1174674234,1,0,1,1,1,0,'','','Syda,\n\nThe Paco Garcia C5MENU class is excellent and work fine with xHarbour Builder + FWH.\nI am using it with xHarbour Builder Jan 07 + FWH 2.8.\n\nTechnical Support from Paco is very good.\n\nThe only complaint that I have is that C5MENU class allow office style menues in the pull-down menu and not in the Horizontal Menu.\nPaco said me that a new C5MENU version will address this issue.\n\nRegards\n\nGeorge','',0,'gA==','3fhqdylv',1,0,'',171,0,0),(28701,6453,2,304,0,'189.129.88.148',1174674393,1,0,1,1,1,0,'','','Rene\nGracias por tu ayuda, yalo intente pero me sale un error al momento de ejecutar la orden\nes error en TAG','',0,'gA==','c2f5vmzr',1,0,'',304,0,0),(28702,6440,3,95,0,'189.171.159.213',1174677901,1,0,1,1,1,0,'','','George\n\nthis is the link from Mr. Pablo Botella\n\n<!-- w --><a class=\"postlink\" href=\"http://www.xbwin.com\">www.xbwin.com</a><!-- w -->\n\nThere is a testskype example.\n\nHTH\nOsvaldo Ramirez','',0,'gA==','1mre2m2q',1,0,'',95,0,0),(28703,6453,2,348,0,'200.60.26.152',1174678903,1,0,1,1,1,0,'','Re: Indices decendentes','Holas \npor casualidad has intentado con la funcion Descend(xValor)\n\nPor ejemplo :\n\nINDEX ON  CLV_ART + DESCEND(TIP_MOV +STR(DBBEXIST,5,0) )  TO ......\n\n\nquedaria ordenado por Clave, asscedentemente  pero dentro de cada clave,  descendentemente por tipo de movimiento  y DBBexit... \n\nno necesita usar SET DESCENDING..\nSuerte\n\nLubin\n\n\n[quote=&quot;servicomver&quot;:3u1oq10b]Hola:\nEstoy trbajando paralelamente con un sistema llamado ASPEL SAE v3.0 el cual usamos con base de datos dbf e indices mdx, el caso es que no he encontrado la forma de grabar datos y q estos se reflejen en el indice. los archivos son MINV01.DBF y los MINV01.MDX he notado que el archivo indexado esta en forma descendente abro MINV01 y se ve asi:\nREGISTRO...CLV_ART....... TIPO_MOV.......CANT......DB8EXIST\n1..................0001...................1................10............10\n2..................0001...................53................1..............9\n3..................0001...................53................2..............7\n\nconsulto con el programa mencionado arriba y se ve asi:\nREGISTRO...CLV_ART....... TIPO_MOV.......CANT......DB8EXIST\n3..................0001...................53................2..............7\n2..................0001...................53................1..............9\n1..................0001...................1.................10.............10\n\nSupongo que el indice esta Descendente pero no se como hacerlo\no no se como activar o abrir la base de datos para que lo muestre de esa forma intente con el comando:\nSET DESCENDING ON, pero al compilar marca error\nalguien tiene alguna idea ???, por cierto solo tiene un indice \n\nGRACIAS por todo\nsaludos\nVeracruz, Ver. Mexico[/quote:3u1oq10b]','',0,'gA==','3u1oq10b',1,0,'',348,0,0),(28704,6454,6,694,0,'200.189.112.21',1174679060,1,0,1,1,1,1,'','BACKUP MYSQL como ?','Gente como executar e restaurar backup no mysql ?\n\n\nAlguem poderia fornecer um exemplo de como criar uma rotina para esta finalidade?\n\nAokisantos','',0,'gA==','196k4gmu',1,0,'',694,0,0),(28705,6451,2,774,0,'164.77.169.84',1174680049,1,0,1,1,1,1,'','','Amigo,, yo siempre he esado el seek ,, con un gotop antes,,,, ya q sino no encuentra nada.... q este arriba del puntero de la DBF\n\n\nLa realidad no se si esto sera una anomalia,,, como te digo aprendi a usarlo asi...y considero q es lo correcto de hacer\n\n\nno se q opinan los demas ???','',0,'gA==','wz7y84g0',1,0,'',774,0,0),(28706,6444,6,54,0,'189.132.110.109',1174681313,1,0,1,1,1,1,'','Re: Modifique un poquito la TGET. Antonio...','Goos,\n\nexactamente como está la modificación funciona de maravillas.\n\ncheca y verás.\n\njjejjejje','',0,'gA==','685094yi',1,0,'',54,0,0),(28707,6433,3,69,0,'74.13.45.10',1174684628,1,0,1,1,1,0,'','','Hi Rick,\n\nYou might also find this useful.  It\'s a list (short but a good start) of commands that you can use...\n\n[url:3a37glmw]http&#58;//www&#46;fivewin&#46;info/html/tips___tricks_detail&#46;php?id=46[/url:3a37glmw]\n\n\n\nJeff','',0,'EA==','3a37glmw',1,0,'',69,0,0),(28708,6331,6,760,0,'200.37.76.91',1174686986,1,0,1,1,1,0,'','tsbrowse y tdbf a 32 bits','Hola amigo\n\nLa verdad no lo he conseguido...\n\nMas bien quisiera saber de donde eres, pues necesito una version actual del FWH, yo soy de Peru desde la ciudad de Iquitos, y desde aqui es bien dificil conseguir este Software, si es posible me lo pudieras vender una copia de la version actual del fwh...\n\nEspero tu respuesta...\n\nFrancis\nSalu2','',0,'EA==','k5q0jstf',1,0,'',760,0,0),(28709,6373,3,80,0,'202.72.164.124',1174689289,1,0,1,1,1,0,'','Same Problem','James\n\nShows file size 0 Kbs when I open screen.\n\nRegards\n\n\nColin','',0,'EA==','2g4c9hkj',1,0,'',80,0,0),(28710,6455,6,36,0,'200.113.56.235',1174690639,1,0,1,1,1,0,'','Borran los mensajes','Estimados\n\nEstoy buscando los mensajes de oskar Lira y no encuentro ninguno\n\nEstan Borran los mensaje?\n\n   Solo para saber, por que llevo bastante rato buscando y nada...\n\n\nSaludos\nPatricio','',0,'EA==','1lmkvbj0',1,0,'',36,0,0),(28711,6455,6,36,0,'200.113.56.235',1174690770,1,0,1,1,1,0,'','si borran','Antonio que pasa con la \n\npalabra O S K A R ...\n\nademas no sale ningun mensaje de este\n\nSaludos\nPatricio','',0,'EA==','kj0zn5jf',1,0,'',36,0,0),(28712,5567,6,100,0,'201.16.38.10',1174692276,1,0,1,1,1,1,'','','Ola \n\nArturo\n\n<!-- w --><a class=\"postlink\" href=\"http://www.quark-costos.com\">www.quark-costos.com</a><!-- w --> \n\nNo estas disponible\n\nque passa ?','',0,'EA==','hpm89maa',1,0,'',100,0,0),(28713,6440,3,171,0,'71.232.193.197',1174693135,1,0,1,1,1,0,'','','Osvaldo \n\nVery interesting!\n\nThanks\n\nGeorge','',0,'EA==','lgv0ejh2',1,0,'',171,0,0),(28714,6455,6,2,0,'82.210.96.98',1174694320,1,0,1,1,1,1,'','','Patricio,\n\nNos reservamos el derecho a administrar estos foros de la forma que entendemos más adecuada. Son foros privados, ya que pertenecen a FiveTech Software, aunque su uso es público','',0,'EA==','3qnbbb7w',1,0,'',2,0,0),(28715,6448,6,2,0,'82.210.96.98',1174695183,1,0,1,1,1,1,'','','Lorenzo,\n\nActualmente no proporcionamos dicha función, pero es fácil de construir, ya que su funcionamiento sería parecido a SysRefresh() pero para eliminar los mensajes de teclado pendientes\n\nVamos a construir un prototipo y lo publicaremos cuanto antes','',0,'EA==','13v0gase',1,0,'',2,0,0),(28716,6409,6,2,0,'82.210.96.98',1174695262,1,0,1,1,1,1,'','','Que error te aparece ?','',0,'EA==','3bhy2fea',1,0,'',2,0,0),(28717,6456,6,349,0,'189.165.2.3',1174703291,1,0,1,1,1,0,'','TWBrowse de Hernan,  Columnas desde una Variable','USANDO: Clase TWBrowse by Hernan Ceccarelli\n\nredefine ListBox oLbx ;\n         FIELDS      \"\"  ;\n         FIELDSIZES  50, 50, 50 ;\n         HEADERS     \"Semana\", \"C1\", \"C2\" ;\n         ID 301 OF oDlg UPDATE\n\noLbx:bLine := {|| {fieldget(3), fieldget(1), fieldget(2)} }\n\nDe esta manera funciona bien el TWBrowse\n\nLo que requiero es que el ListBox sea manejado con una Variable, para que me muestre, los campos que se requieran.\n\nLo Manejo de esta Manera;\n\naCamp := {fieldget(3), fieldget(1), fieldget(2)}\n\nredefine ListBox oLbx ;\n         FIELDS      \"\"  ;\n         FIELDSIZES  50, 50, 50 ;\n         HEADERS     \"Semana\", \"C1\", \"C2\" ;\n         ID 301 OF oDlg UPDATE\n\noLbx:bLine := {|| aCamp }\n\nMe muestra todos los registros iguales.','',0,'EA==','h6pu9m1z',1,0,'',349,0,0),(28718,6456,6,878,0,'190.30.40.21',1174704870,1,0,1,1,1,0,'','','Hola,\nDos cosas:\n1. Te falta el ALIAS cAliasdelaDbf en el LISTBOX\n2. Prueba de poner cAliasdelaDbf-&gt;(fieldget(1)), cAliasdelaDbf-&gt;(Fieldget(2)), cAliasdelaDbf-&gt;(FieldGet(3))\n\nSalu2.','',0,'EA==','9jaqjk0p',1,0,'',878,0,0),(28719,6456,6,349,0,'189.165.2.3',1174707264,1,0,1,1,1,0,'','Gracias, Funciona igual','Gracias por tu Aportacion, el resuldado es el mismo.\nEl codigo es el siguiente;\n\naCamp := { A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\nredefine ListBox oLbx ;\n         FIELDS      \"\"  ;\n         FIELDSIZES  50, 50, 50 ;\n         HEADERS     \"Semana\", \"C1\", \"C2\" ;\n         ID 301 OF oDlg UPDATE\n\n         oLbx:cAlias := \"A06PRES\"\n         oLbx:bLine  := {|| aCamp }','',0,'EA==','gorktuod',1,0,'',349,0,0),(28720,6457,3,705,0,'61.0.136.110',1174708624,1,0,1,1,1,0,'','Need support urgently','Hi friends!\n\nDue to some unavoidable reason, recently I have formate my HD and reload XP SP-2. Now the file format is NTFS. Previously it was FAT32. After doing this changes my all prgs are not working. I have observed some significant changes in file properties part also. While i am trying to open the prgs through FWH default editor it says, \"It is not WIN32 application.\". My .Exes are also not working. Earlier it was smooth and work properly.\n\nCan anyone suggest me what changes I have to do? I am totaly confused.  What modification required to overcome the situation?\n\nWith regards,\nArindam','',0,'EA==','21oar0l1',1,0,'',705,0,0),(28721,6456,6,45,0,'190.31.24.62',1174712222,1,0,1,1,1,0,'','Re: TWBrowse de Hernan,  Columnas desde una Variable','Basicamente al agregar y definir columnas en tiempo de ejecucion tienes que tener en cuenta lo siguiente.\n\n1) bLine devuelva un arreglo en funcion del nro de columnas que sean necesarias mostrar.\n2) Ajustar ::aHeaders y ::aFooters en el momento del cambio de agregar o quitar columnas\n3) Ajustar ::aColSizes que nos define los anchos en pixeles de la columna.\n4) Ajustar ::aJustify, ::aHJustify y ::aFJustify que guardan las alineaciones de columnas de datos, headers y footers\n5) Verificar que ::oLbx:nColPos:= 1 y  ::oLbx:nColAct:= 1 NO superen la cantidad de columnas activas.\n6) ::oLbx:lSyncH:= .T., ::oLbx:lSyncF:= .T. , ::oLbx:Refresh()\n\n  Parece un Rollo, pero es SENCILLO, muy sencillo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nHernan','',0,'EA==','30pa2qbn',1,0,'',45,0,0),(28722,6458,5,512,0,'219.90.192.51',1174712754,1,0,1,1,1,0,'','TWindow Class: 3 Unresolved externals when linking','Hello everyone, \n\nI use FW++ 7.01, Alaska XBase++ Intl V1.90.331 and BorlandC Resource Compiler brcc32 V5.02 to manage my resources. \n\nI am trying to use a slightly modified TWindow Class in my application. I compile the window.prg source file provided in the FiveWin++ V7.01 ..\\source\\classes directory and get the following unresolved external symbols:\n\nd:\\ac\\fivedb_ac_ph\\project\\WINDOW.obj: error ALK2102: unresolved external symbol CHILDLEVEL\nd:\\ac\\fivedb_ac_ph\\project\\WINDOW.obj: error ALK2102: unresolved external symbol VBXEVENT\nd:\\ac\\fivedb_ac_ph\\project\\WINDOW.obj: error ALK2102: unresolved external symbol CREATETOOL\nALINK: fatal error ALK4102: 3 external symbols unresolved\n\n\nCould a new Five32rt.lib and .dll file be provided with these functions accessible please?\n\nBest Regards, Angelo','',0,'EA==','1n2ilmpq',1,0,'',512,0,0),(28723,6458,5,512,0,'219.90.192.51',1174714989,1,0,1,1,1,0,'','','On some further investigation I found the following in db10.prg and odata.prg in the FiveWin V7.01 ..\\Function directory.\n\nfunction ChildLevel( o, oClass )  // There is no way to use :IsDerivedFrom()\n                                  // using 10 chars symbols\nreturn If( o:IsDerivedFrom( oClass ) .or. ;\n           Upper( o:ClassName() ) == Upper( oClass:ClassName() ), 1, 0 )\n\n\nfunction VbxEvent()\nreturn nil\n\n\nSo now I only need to resolve the symbol CREATETOOL (10 char truncated for CreateToolTip) in an updated five32rt.lib and .dll file.\n\nAngelo','',0,'EA==','3bitcz7c',1,0,'',512,0,0),(28724,6458,5,2,0,'82.210.96.98',1174717375,1,0,1,1,1,1,'','','Angelo,\n\nfunction CreateTool( x, y, z )\n\nreturn CreateToolTip( x, y, z )','',0,'EA==','359bzc6w',1,0,'',2,0,0),(28725,6458,5,512,0,'219.90.192.51',1174724916,1,0,1,1,1,0,'','','Thanks Antonio,\nI placed the function as you describe into my local copy of db10.prg but I still get the following unresolved external symbol.\n\nd:\\ac\\fivedb_ac_ph\\project\\DB10.obj: error ALK2102: unresolved external symbol CREATETOOLTIP\nALINK: fatal error ALK4102: 1 external symbols unresolved\n\nI did a text search of the version I am using of five32rt.lib for \"CreateToolTip\" but can\'t find any reference to it.\n\nI do find other references such as CREATECARE (CreateCaret), CREATEDC, CREATEDLG, CREATEDLGI, CREATEFONT etc etc.\n\nUnless I am missing something it still seems that I do not have a reference to CreateToolTip (CREATETOOL) in my libarary five32rt.lib\n\nBest regards, Angelo','',0,'EA==','3ocbw44d',1,0,'',512,0,0),(28726,6459,6,841,0,'84.122.250.8',1174725308,1,0,1,1,1,0,'','Clase TWbrowse','Hola amigos:\n\nYo dispongo de la clase TWbrowse 2.1 que funciona perfectamente con FWH 2.4. Ahora me pasé a FWH 2.7 pero observo que al implementar esta clase no funciona como debería (cuando usas las teclas RePag,AvPag,Up,Down,Left los registros se muestran mal...)\nHe implementado la clase que se encuentra en la sección de Utilidades pero tampoco se acopla perfectamente.\n\nAlguien me podría enviar la suya o indicarme un link para descargarla?\nmi email: <!-- e --><a href=\"mailto:lorenzo_fernandez@hotmail.com\">lorenzo_fernandez@hotmail.com</a><!-- e -->\nMil gracias a todos!\nLorenzo.','',0,'EA==','ty0m6kzz',1,0,'',841,0,0),(28727,6401,3,972,0,'81.164.115.198',1174725693,1,0,1,1,1,0,'','','[quote=&quot;Peterg&quot;:1p5zsom7]Downloaded and it works fine using normal build for xbase.\nAs soon as I link in the sql.lib then I get a gpf[/quote:1p5zsom7]\n\nAha! Interesting. Will test some more today and keep you posted on this.\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','1p5zsom7',1,0,'',972,0,0),(28728,6460,3,86,0,'213.119.103.68',1174733810,1,0,1,1,1,1,'','Question about the Listbox class','Hello,\n\nI have defined a listbox (Twbrowse) like this :\n\nREDEFINE LISTBOX oLst FIELDS ..... ID 101 of oDlg\n               HEADERS \"Header 1\",\"Header 2\", ...\n               FIELDSIZES ...........\n\nSo far, so good.\n\nBut can anyone tell me how I can change the headers of this listbox ?\n\nThanks.\n\nMichel','',0,'gA==','ioz8bmb2',1,0,'',86,0,0),(28729,6460,3,972,0,'81.164.115.198',1174737583,1,0,1,1,1,0,'','Re: Question about the Listbox class','[quote=&quot;driessen&quot;:9ygr3maq]But can anyone tell me how I can change the headers of this listbox ?\n[/quote:9ygr3maq]\n\noLst:aHeaders:={\"Header1\",\"Header2\",...}\n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','9ygr3maq',1,0,'',972,0,0),(28730,6413,6,426,0,'87.218.187.143',1174737850,1,0,1,1,1,0,'','','Hola compañeros,\n\ngracias por la respuesta. Creo que no me he explicado bien. Entiendo perfectamente la nomenclatura RGB de colores. Lo que estoy buscando es la forma de obtener de Windows lo que el usuario tiene definido como color por defecto, tal como lo dice el priemr post, via GetSysColor() para que si el usuario cambia el tema o lo personaliza, pueda reflejar los cambios en mi programa. \n\nvéase  WCOLOR.CH\n\nPodría hacerlo clavando una constante, pero es exactamente lo que quiero evitar.\n\nSaludos,\n\nCarlos.','',0,'gA==','131w7edn',1,0,'',426,0,0),(28731,6461,1,161,0,'81.164.212.146',1174745727,1,0,1,1,1,0,'','Get file-creation date','Hi,\n\nWith directory() you can get dat date when the file is modified.\nIs there a way to get the date of creation? \nIf you have a digital photograph, and rotate it, the date is changed.\nIn the exporer, the date of the file is changed, but not the date of creation of the file. \n\nThanks,\nMarc','',0,'gA==','2g8o9tz7',1,0,'',161,0,0),(28732,6462,6,725,0,'200.65.178.100',1174746972,1,0,1,1,1,1,'','password en tabla access','He podido grabar registros enuna tabla access pero ahora mi cliente me pide que la encripte grabando un password. alguien sabe como hacerlo\nEstoy usando fwh 2.07 y xharbour\n\n\nGracias por la ayuda','',0,'gA==','3nldms4y',1,0,'',725,0,0),(28733,6463,6,439,0,'200.125.49.126',1174752608,1,0,1,1,1,1,'','Posible bug en SetTime()','#include \"Fivewin.ch\"\nFUNCTION MAIN()\n	LOCAL lExito\n	lExito := SetTime( 19, 0 )\nRETURN nil\n\nEsta función cambia la hora del sistema a las 16:00 hs y no a las 19:00 como se espera.\n\nUso Windows XP SP2 y la versión de FWH de la firma.\n\nAprovecho para reportar error en documentación de la función settime()\nCita ver ejemplo TestDate.prg el cual es un ejemplo de SetDate() y no de Settime().\n\n[b:3nicypsm]Podrían confirmarme si es un bug y como puedo corregirlo, de momento estoy sumando 3 a las horas, pero es un poco rústico.[/b:3nicypsm] <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nGracias desde ya por la ayuda. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','3nicypsm',1,1174912664,'',439,1,0),(28734,5642,3,51,0,'80.122.88.242',1174756170,1,0,1,1,1,0,'','','Some news about the FW16 version?','',0,'QA==','1shogsoi',1,0,'',51,0,0),(28735,6458,5,2,0,'82.210.96.98',1174756730,1,0,1,1,1,1,'','','Angelo,\n\nTomorrow, Sunday, we will email you a modified library. Today we are not at our offices.','',0,'QA==','wix1uu3v',1,0,'',2,0,0),(28736,6462,6,43,0,'189.128.25.131',1174758584,1,0,1,1,1,0,'','','Hola\n\nPara grabar una pasword encriptado en una DBF, yo pongo lo sig:\n\nUsuarios-&gt;Password := Encrypt( cPassword, \"Clave\" )\n\nEspero y te sirva.\n\nSaludos\nMarco A. Delgado.','',0,'QA==','2oiw5nst',1,0,'',43,0,0),(28737,6303,4,2,0,'82.210.96.98',1174759758,1,0,1,1,1,1,'','','Vilian,\n\nWe are currently on a FWPPC seminar and we will get back to our offices next sunday. Then we plan to review it,','',0,'QA==','20nqcns7',1,0,'',2,0,0),(28738,6464,6,64,0,'201.72.124.2',1174760583,1,0,1,1,1,1,'','Raymundo Islas M. - RMCHART ??','[url:7zaaycq7]http&#58;//www&#46;fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3421&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=activex[/url:7zaaycq7]\n\n¿Usted consiguió usar este ocx de control con Fivewin + xHarbour? ¿Cómo hacía usted?','',0,'EA==','7zaaycq7',1,0,'',64,0,0),(28740,6456,6,812,0,'201.214.36.154',1174762666,1,0,1,1,1,0,'','Re: TWBrowse de Hernan,  Columnas desde una Variable','Hola Hernan:\n\nEsposible obtener tu Twbrowse, se habla mucho de ella en el foro y me gustaria poder aplicarla en mis sistemas. Como puedo disponer de ella, uso Fwh 2.7 y xHarbour.\n\nMi privado es \" <!-- e --><a href=\"mailto:marf2@tutopia.com\">marf2@tutopia.com</a><!-- e --> \", desde ya muchas gracias.\n\nMiguel','',0,'EA==','8puwjpfn',1,0,'',812,0,0),(28741,6461,1,6,0,'87.19.210.16',1174762911,1,0,1,1,1,1,'','Re: Get file-creation date','[code:14ksbxot]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Directry&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL aDir &#58;= LFNDIRECTORY&#40; &quot;E&#58;\\*&#46;*&quot;, &quot;D&quot; &#41;\n\n    LOCAL aNam &#58;= &#123;&#125;\n\n    LOCAL i\n\n    FOR i = 1 TO LEN&#40; aDir &#41;\n        AADD&#40; aNam, aDir&#91; i, F_NAME &#93; + CHR&#40; 9 &#41; + LTRIM&#40; STR&#40; aDir&#91; i, F_SIZE &#93; &#41; &#41; + CHR&#40; 9 &#41; + DTOC&#40; aDir&#91; i, F_DATE &#93; &#41; + CHR&#40; 9 &#41; + aDir&#91; i, F_TIME &#93; + CHR&#40; 9 &#41; + aDir&#91; i, F_ATTR &#93; &#41;\n    NEXT\n\n    WQOUT&#40; aNam &#41;\n\n    RETURN NIL\n\n\n// File attributes\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n#include &quot;Struct&#46;ch&quot;\n\n\n#define MAX_PATH 260\n\n#define ZTRIM&#40; cString &#41; Left&#40; cString, At&#40; Chr&#40; 0 &#41;, cString &#41; - 1 &#41;\n\n\nFUNCTION LFNDIRECTORY&#40; cFileSpec, cAttrib &#41;\n\n    LOCAL oWin32FindData &#58;= OWIN32FINDDATA&#40;&#41;\n\n    LOCAL cBuffer\n\n    LOCAL hFile\n\n    LOCAL aDir &#58;= &#123;&#125;\n\n    LOCAL cName, nSize, dDate, cTime, cAttr\n\n    DEFAULT cFileSpec &#58;= &quot;*&#46;*&quot;\n    DEFAULT cAttrib   &#58;= &quot;&quot;\n\n    cBuffer = oWin32FindData&#58;cBuffer\n\n    hFile = FINDFIRSTFILE&#40; cFileSpec, @cBuffer &#41;\n\n    oWin32FindData&#58;cBuffer = cBuffer\n\n    IF hFile = -1; RETURN &#123;&#125;; ENDIF\n\n    WHILE &#46;T&#46;\n        DO CASE\n            CASE !&#40; &quot;D&quot; $ cAttrib &#41; &#46;AND&#46; NAND&#40; oWin32FindData&#58;nFileAttr, FILE_ATTRIBUTE_DIRECTORY &#41; != 0\n            CASE !&#40; &quot;H&quot; $ cAttrib &#41; &#46;AND&#46; NAND&#40; oWin32FindData&#58;nFileAttr, FILE_ATTRIBUTE_HIDDEN &#41; != 0\n            CASE !&#40; &quot;S&quot; $ cAttrib &#41; &#46;AND&#46; NAND&#40; oWin32FindData&#58;nFileAttr, FILE_ATTRIBUTE_SYSTEM &#41; != 0\n            OTHERWISE\n                cName = ZTRIM&#40; oWin32FindData&#58;cFileName &#41;\n                nSize = 4294967296 * oWin32FindData&#58;nFileSizeH + oWin32FindData&#58;nFileSizeL\n//                dDate = FILEDATE&#40; oWin32FindData&#58;cLastWTime &#41;\n//                cTime = FILETIME&#40; oWin32FindData&#58;cLastWTime &#41;\n                dDate = FILEDATE&#40; oWin32FindData&#58;cCreatTime &#41;\n                cTime = FILETIME&#40; oWin32FindData&#58;cCreatTime &#41;\n                cAttr = FILEATTR&#40; oWin32FindData&#58;nFileAttr &#41;\n\n                AADD&#40; aDir, &#123; cName, nSize, dDate, cTime, cAttr &#125; &#41;\n        ENDCASE\n\n        cBuffer = oWin32FindData&#58;cBuffer\n\n        IF !FINDNEXTFILE&#40; hFile, @cBuffer &#41;; EXIT; ENDIF\n\n        oWin32FindData&#58;cBuffer = cBuffer\n    ENDDO\n\n    FINDCLOSE&#40; hFile &#41;\n\n    RETURN aDir\n\n\nFUNCTION FILEDATE&#40; cFileDtTm &#41;\n\n    LOCAL oLocalFileTime &#58;= OFILETIME&#40;&#41;\n    LOCAL oSystemTime    &#58;= OSYSTEMTIME&#40;&#41;\n\n    LOCAL cBuffer\n\n    oLocalFileTime&#58;cBuffer = cFileDtTm\n\n    cBuffer = oLocalFileTime&#58;cBuffer\n\n    FTTOLOCALFT&#40; cFileDtTm, @cBuffer &#41;\n\n    oLocalFileTime&#58;cBuffer = cBuffer\n\n    cBuffer = oSystemTime&#58;cBuffer\n\n    FTTOSYSTIME&#40; oLocalFileTime&#58;cBuffer, @cBuffer &#41;\n\n    oSystemTime&#58;cBuffer = cBuffer\n\n    RETURN STOD&#40; STR&#40; oSystemTime&#58;nYear, 4 &#41; + STRZERO&#40; oSystemTime&#58;nMonth, 2 &#41; + STRZERO&#40; oSystemTime&#58;nDay, 2 &#41; &#41;\n\n\nFUNCTION FILETIME&#40; cFileDtTm &#41;\n\n    LOCAL oLocalFileTime &#58;= OFILETIME&#40;&#41;\n    LOCAL oSystemTime    &#58;= OSYSTEMTIME&#40;&#41;\n\n    LOCAL cBuffer\n\n    oLocalFileTime&#58;cBuffer = cFileDtTm\n\n    cBuffer = oLocalFileTime&#58;cBuffer\n\n    FTTOLOCALFT&#40; cFileDtTm, @cBuffer &#41;\n\n    oLocalFileTime&#58;cBuffer = cBuffer\n\n    cBuffer = oSystemTime&#58;cBuffer\n\n    FTTOSYSTIME&#40; oLocalFileTime&#58;cBuffer, @cBuffer &#41;\n\n    oSystemTime&#58;cBuffer = cBuffer\n\n    RETURN STRZERO&#40; oSystemTime&#58;nHour, 2 &#41; + &quot;&#58;&quot; + STRZERO&#40; oSystemTime&#58;nMinute, 2 &#41; + &quot;&#58;&quot; + STRZERO&#40; oSystemTime&#58;nSecond, 2 &#41;\n\n\nFUNCTION FILEATTR&#40; nAttrib &#41;\n\n    LOCAL cAttrib &#58;= &quot;&quot;\n\n    IF NAND&#40; nAttrib, FILE_ATTRIBUTE_ARCHIVE &#41; != 0; cAttrib += &quot;A&quot;; ENDIF\n    IF NAND&#40; nAttrib, FILE_ATTRIBUTE_DIRECTORY &#41; != 0; cAttrib += &quot;D&quot;; ENDIF\n    IF NAND&#40; nAttrib, FILE_ATTRIBUTE_HIDDEN &#41; != 0; cAttrib += &quot;H&quot;; ENDIF\n    IF NAND&#40; nAttrib, FILE_ATTRIBUTE_READONLY &#41; != 0; cAttrib += &quot;R&quot;; ENDIF\n    IF NAND&#40; nAttrib, FILE_ATTRIBUTE_SYSTEM &#41; != 0; cAttrib += &quot;S&quot;; ENDIF\n\n    RETURN cAttrib\n\n\nFUNCTION OFILETIME&#40;&#41;\n\n    LOCAL oFileTime\n\n    STRUCT oFileTime\n        MEMBER nLDateTime AS DWORD\n        MEMBER nHDateTime AS DWORD\n    ENDSTRUCT\n\n    RETURN oFileTime\n\n\nFUNCTION OSYSTEMTIME&#40;&#41;\n\n    LOCAL oSystemTime\n\n    STRUCT oSystemTime\n        MEMBER nYear      AS WORD\n        MEMBER nMonth     AS WORD\n        MEMBER nDayOfWeek AS WORD\n        MEMBER nDay       AS WORD\n        MEMBER nHour      AS WORD\n        MEMBER nMinute    AS WORD\n        MEMBER nSecond    AS WORD\n        MEMBER nMilliSecs AS WORD\n    ENDSTRUCT\n\n    RETURN oSystemTime\n\n\nFUNCTION OWIN32FINDDATA&#40;&#41;\n\n    LOCAL oWin32FindData\n\n    STRUCT oWin32FindData\n        MEMBER nFileAttr  AS DWORD\n        MEMBER cCreatTime AS STRING LEN 8\n        MEMBER cLastATime AS STRING LEN 8\n        MEMBER cLastWTime AS STRING LEN 8\n        MEMBER nFileSizeH AS DWORD\n        MEMBER nFileSizeL AS DWORD\n        MEMBER nReserved0 AS DWORD\n        MEMBER nReserved1 AS DWORD\n        MEMBER cFileName  AS STRING LEN MAX_PATH\n        MEMBER cShortName AS STRING LEN 14\n    ENDSTRUCT\n\n    RETURN oWin32FindData\n\n\nDLL32 FUNCTION FTTOLOCALFT&#40; cFileTime AS LPSTR, @cLocalFileTime AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;FileTimeToLocalFileTime&quot; LIB &quot;kernel32&#46;dll&quot;\n\nDLL32 FUNCTION FTTOSYSTIME&#40; cFileTime AS LPSTR, @cSystemTime AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;FileTimeToSystemTime&quot; LIB &quot;kernel32&#46;dll&quot;\n\nDLL32 FUNCTION FINDCLOSE&#40; nFindFile AS LONG &#41; AS BOOL;\n      PASCAL FROM &quot;FindClose&quot; LIB &quot;kernel32&#46;dll&quot;\n\nDLL32 FUNCTION FINDFIRSTFILE&#40; cFileName AS LPSTR, @cFindFileData AS LPSTR &#41; AS LONG;\n      PASCAL FROM &quot;FindFirstFileA&quot; LIB &quot;kernel32&#46;dll&quot;\n\nDLL32 FUNCTION FINDNEXTFILE&#40; nFindFile AS LONG, @cFindFileData AS LPSTR &#41; AS BOOL;\n      PASCAL FROM &quot;FindNextFileA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:14ksbxot]\n\nEMG','',0,'AIA=','14ksbxot',1,0,'',6,0,0),(28742,6409,6,854,0,'200.95.238.251',1174762972,1,0,1,1,1,0,'','','Antonio\n\nNo me sale un numero , me sale un mensaje\n\nFatal : Access Violation. Link Terminated.\n\nY ya no genera el exe.\n\nSi aumento un dialogo o un icono o lo que sea que le aumente a mi RC me sale este mensaje y no he podido pasar de alli.\n\nGracias.','',0,'AIA=','2kwq4xkj',1,0,'',854,0,0),(28743,6465,6,694,0,'200.189.112.21',1174765286,1,0,1,1,1,1,'','Para Antonio Linares','Antonio no FWH2.5 eu utilizava as linhas abaixo, no fwh7.01 ainda preciso usa-las?\n\n#pragma BEGINDUMP\n#include \"hbapi.h\"\n#include \"hbapiitm.h\"\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\nreturn pDynSym-&gt;pSymbol;\n}\n#pragma ENDDUMP\n\n\nAokisantos','',0,'AIA=','2b07ppts',1,0,'',694,0,0),(28744,6466,3,148,0,'196.205.180.132',1174766086,1,0,1,1,1,0,'','Error of setup compiler','I was using setup compiler but after installation I faced that error :\n   Error description: Error ADSCDX/5004  Open error: cust\nthough I copied all necessary  files into zipped file:\n\n\"sitex.exe\" \n\"*.dll\"\n\"*.dbf\"\n\"*.ch\"\n\"*.lib\"\n\nWhat are missing files to make that error appeared ?','',0,'AIA=','1sj1j4na',1,0,'',148,0,0),(28745,5567,6,760,0,'200.37.76.84',1174766998,1,0,1,1,1,0,'','','Hola a todos\n\nEl link no funciona.....\n\nPor favor me podrian enviar esta clase excelente...\nMi correo es <!-- e --><a href=\"mailto:daxreyna@mixmail.com\">daxreyna@mixmail.com</a><!-- e -->..\n\nsaludos desde Peru a todos....\n\nFrancis\n\nSalu2  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'AIA=','1egl2o4n',1,0,'',760,0,0),(28746,5569,17,760,0,'200.37.76.84',1174767324,1,0,1,1,1,0,'','','Amigo este link no funciona.....\n\nSi puedes enviarme esta maravillosa clase a mi correo por favor...\n<!-- e --><a href=\"mailto:daxreyna@mixmail.com\">daxreyna@mixmail.com</a><!-- e -->\n\nGracias de antemano\n\nFrancis\n\nsalu2 <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','h24lborp',1,0,'',760,0,0),(28747,6467,6,180,0,'88.3.195.84',1174775242,1,0,1,1,1,0,'','nClrPane','Después de varias horas con este asunto no doy con la tecla.\nEn un listbox cambio el color de fondo alternando entre un registro y otro de la forma siguiente:\noLbx:nClrPane:={|| IIF(CLIENTES-&gt;(OrdKeyNo())%2==0,CLR_WHITE,CLR_LGRAY)}\n\nPero lo que quiero hacer es que en un listbox ordenado por un campo clave, me cambie el color alternativamente cuando cambie el valor de ese campo. \nA alguien se le ocurre por donde tirar?\n\nUn saludo,\nManuel Aranda','',0,'AIA=','2qghu28q',1,0,'',180,0,0),(28748,6468,3,6,0,'87.19.210.16',1174776545,1,0,1,1,1,1,'','Little repaint bug','This is the sample. Try to set the taskbar in autohide mode then run the sample, move the mouse cursor toward the bottom of the screen to cause the taskbar to show then let it hide again and you will see that the little bottom-right square between the two scrollbars doesn\'t repaint itself (it keeps a color stripe of the taskbar).\n\n[code:1osu915a]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBrw\n\n    USE TEST\n\n    DEFINE WINDOW oWnd\n\n    SET MESSAGE OF oWnd\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    oWnd&#58;oClient = oBrw\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT oWnd&#58;Move&#40; 0, 0, GETSYSMETRICS&#40; 0 &#41; / 2, GETSYSMETRICS&#40; 1 &#41; &#41;\n\n    CLOSE\n\n    RETURN NIL[/code:1osu915a]\n\nEMG','',0,'AIA=','1osu915a',1,0,'',6,0,0),(28749,6469,6,196,0,'190.48.215.186',1174778827,1,0,1,1,1,0,'','El metodo Zap() funciona bien?','Hace mas de 10 años que esto con Clipper y luego FWH24 funcionaba perfecto, pero ahora a veces anda y a veces no.\nAhora estoy usando el ultimo FWH y el Harbour bajado de Fivetechsoft.com\n\nHacia lo siguiente:\n\nUSE C:\\Salon\\Cierret INDEX C:\\Salon\\Cierret1,C:\\Salon\\Cierret2 NEW EXCLUSIVE\nDATABASE oDbf2\noDbf2:bEoF=nil\noDbf2:Zap()\noDbf2:Close()\n\nDe esta manera nunca funciona\n\nAsi que probe la siguiente barbaridad:\n\nUSE C:\\Salon\\Cierret INDEX C:\\Salon\\Cierret1,C:\\Salon\\Cierret2 NEW EXCLUSIVE\nDATABASE oDbf2\noDbf2:bEoF=nil\nFOR Q=1 TO 10\n   oDbf2:Zap()\n   IF oDbf2:LastRec()=0\n      EXIT\n   ENDIF\nNEXT\noDbf2:Close()\n\nDe esta manera a veces funciona.\n\nEsta dbf debe hacer un zap tres veces al dia, me sucede el mismo problema en distintos clientes, asi que no le puedo hechar la culpa al XP.\n\nQuizas alguien se de cuenta de lo que Yo aun no veo.\n\n\nMuchas gracias\nJorge Jaurena','',0,'AIA=','1y2o4hrw',1,0,'',196,0,0),(28750,6470,3,879,0,'65.92.174.8',1174782074,1,0,1,1,1,0,'','UEStudio Builder Configuration File','[size=150:2gejehou]UEStudio Builder Configuration File[/size:2gejehou]\n\nThis code replaces all previous UEStudio build script files. Since FiveWin users will probably never write programs using the xHarbour Text Console, it was removed. This new script now supports only FiveWin/xHarbour and the code now supports xHarbour\'s debugger.\n\nCopy the following code to the folder [quote:2gejehou][b:2gejehou]UEStudio\\config\\xHarbour[/b:2gejehou][/quote:2gejehou] using a name without an extention such as [quote:2gejehou][b:2gejehou]FW_Harbour_Builder[/b:2gejehou][/quote:2gejehou]\n[b:2gejehou]Tutor01.prg[/b:2gejehou] was used to test the 3 UEStudio build modes:\n[list:2gejehou]1. Full Debug mode using \"/b\"  and \"debug.lib\"\n2. Debug mode having only line numbers included in the application and\n3. Release mode with no line numbers[/list:u:2gejehou]\nThe Tutor01 source was modified as below to test the full debug mode:\n[code:2gejehou]\nfunction Main&#40;&#41;\n\n#ifdef TestDebug\n   AltD&#40; 1 &#41; // Enables the debugger&#46; Press F5 to go\n   MsgInfo&#40; &quot;debugger enabled&quot; &#41;\n \n  AltD&#40;&#41;   // Invokes the debugger\n   MsgInfo&#40; &quot;debugger invoked&quot; &#41;\n#endif\n\n   MsgInfo&#40; FWVERSION + Chr&#40; 13 &#41; + FWCOPYRIGHT, FWDESCRIPTION &#41;\nreturn nil[/code:2gejehou]\nAs Builder is part of Project Manager, it must be used with Projects. This because the compiler script is stored in the .PRJ file, along with other project settings.\n\nOnce you select this compiler from the list using [b:2gejehou]Select Compiler[/b:2gejehou], you will more than likely need to select the [b:2gejehou]Set Compiler Options[/b:2gejehou]. These consist of a combination of default options with yes/no answers and options where additional settings can be added.\n\n[b:2gejehou]For example, to test Tutor01 you must:[/b:2gejehou]\n1. Create a new Project/Workspace\n2. Add Tutor01.prg and Tutor01.rc files in the [b:2gejehou]Project Tab[/b:2gejehou][list:2gejehou]As Tutor01 is the only .prg, you do not need to select which source is to be compiled first[/list:u:2gejehou]3. Select the Compiler from the [b:2gejehou]Build [/b:2gejehou]menu\n\n[b:2gejehou]To test Debug[/b:2gejehou]\nSelect the Build menu and then select [b:2gejehou]Set Compiler Options[/b:2gejehou]\n\n[b:2gejehou]In the displayed window:[/b:2gejehou]\n1. Select [b:2gejehou]User Defines[/b:2gejehou] and enter the word [b:2gejehou][i:2gejehou]Debug[/i:2gejehou][/b:2gejehou].\n2. Then select [b:2gejehou]Include Debug[/b:2gejehou] and change the setting from [b:2gejehou][i:2gejehou]no[/i:2gejehou][/b:2gejehou] to [b:2gejehou][i:2gejehou]yes[/i:2gejehou][/b:2gejehou].\n\nIf you use more than one source file, you indicate which one needs to be linked first by moving the mouse to the name of the project name in the Project Tab and press the right mouse button. Select the last option, \"[b:2gejehou]Change Files Order[/b:2gejehou],\" then select the file you want to link first and move it, using the Up and/or Down buttons so that it is at the top.\n\nSuggestions or questions are always welcome by IDM and can be reached by sending an email to <!-- e --><a href=\"mailto:support@idmcomp.com\">support@idmcomp.com</a><!-- e --> or can be posted here.\n\nThe link to the UlraEdit/UEStudio website is [url:2gejehou]http&#58;//www&#46;ultraedit&#46;com[/url:2gejehou]\n\nHope this helps those using UEStudio,\n\nKen\n\nThe FiveWin/xHarbour Build Script\n[code:2gejehou]\n# --------- xHarbour Compiler configuration --------\n# --- general --------------------------------------\n# $P  - project name\n# $Pp - path to project directory\n# $Pn - project name\n# --- compile --------------------------------------\n# $I  - input full name\n# $Ip - input path\n# $In - input name\n# $Ie - input extension\n# $O  - output file\n# $Op - path to output file\n# $On - output filename &#40;without path&#41;\n# $Oe - output extension\n# $R  - release/debug setting for compiler\n# --- build ----------------------------------------\n# $T  - target full name\n# $Tp - target path\n# $Tn - target name\n# $O  - output file\n# $Op - path to output file\n# $On - output filename &#40;without path&#41;\n# $Oe - output extension\n# $R  - release/debug setting for linker\n\n&#91;Settings&#93;\nTarget =\nCategory&amp;01 = DEFAULT RUN CONFIGURATION\nWorking Directory =&#46;\nCommand Line Arguments =\n\nCategory&amp;02 = Harbour Options\nHarbour Type = xHarbour|Harbour\nAutomatic Memvar Declaration = no|yes\nVariables Are Assumed = no|yes\nGenerate Preprocessed Output = no|yes\nWarning Level = yes|no\nInclude Debug = no|yes\nUse xHarbour Dll = no|yes\nUse MT Library = no|yes\n\nUser Defines =\nUser Include Path =\n3rd Party Libs =\nAdditional Harbour Options =\nAdditional Linker Options =\n\n\n&#91;SettingsInfo&#93;\nTarget = The output directory and file name where the linker creates the program&#46;\nWorking Directory = A directory other than where the executable is located&#46;\nCommand Line Arguments = Command-line arguments passed to the program at startup&#46;\nUse MT Library = Set to &quot;yes&quot; to use Multi-threaded libraries&#46;\nUser Defines = The preprocessor defines during the build&#46; Use \';\' as delimiter&#46;\nUser Include Path = Additional include paths&#46; Use \';\' as delimiter&#46;\n3rd Party Libs = Additional Libraries &#40;include path if not in default&#41;&#46; Use space as delimiter&#46;\nAdditional Harbour Options = Additional Harbour Options&#46;\nAdditional Linker Options = Additional iLink32 options&#46;\n\n&#91;SettingsReps&#93;\nAutomatic Memvar Declaration = no=|yes=/a\nVariables Are Assumed = no=|yes=/v\nWarning Level = no=|yes=/w1\nGenerate Preprocessed Output = no=|yes=/p\nUse xHarbour Dll = no=|yes=harbour&#46;lib\nUse Multi Thread Library = no|yes\nUser Defines = @&#91;;|/D%s&#93;\nUser Include Path = ^^@&#91;;|;%s&#93;\nUser Include Path&amp;1 = ^^@&#91;;| /i%s&#93;\n\n&#91;Variables&#93;\nFWPATH = C&#58;\\FWH\nHPATH = C&#58;\\xHarbour\nCPATH = C&#58;\\Borland\\BCC55\n\nHOPT = /i$&#40;HPATH&#41;\\INCLUDE $&#40;User Include Path&amp;1&#41; /i$&#40;FWPATH&#41;\\include /n /go $&#40;Automatic Memvar Declaration&#41; $&#40;Variables Are Assumed&#41; $&#40;Warning Level&#41; /D__EXPORT__ $&#40;User Defines&#41; $&#40;Additional Harbour Options&#41; $&#40;Generate Preprocessed Output&#41; &#123;&#91;$&#40;Include Debug&#41;=&#93;&#91;yes=/b&#93;&#125;\nCOPT = -c -I$&#40;HPATH&#41;\\INCLUDE;$&#40;CPATH&#41;\\INCLUDE$&#40;User Include Path&#41;$&#40;FWPATH&#41;\\include\nLOPT = -L$&#40;CPATH&#41;\\LIB;$&#40;CPATH&#41;\\LIB\\PSDK;$&#40;HPATH&#41;\\LIB;$&#40;FWPATH&#41;\\lib -Gn -M -m -s -Tpe -x -aa $&#40;Additional Linker Options&#41;\n\nLIB1 = vm&#46;lib rtl&#46;lib rdd&#46;lib macro&#46;lib pp&#46;lib dbfntx&#46;lib dbfcdx&#46;lib dbffpt&#46;lib ct&#46;lib tip&#46;lib hsx&#46;lib hbsix&#46;lib cw32&#46;lib\nLIBM = vmmt&#46;lib rtlmt&#46;lib rddmt&#46;lib macromt&#46;lib ppmt&#46;lib dbfntxmt&#46;lib dbfcdxmt&#46;lib dbffptmt&#46;lib ctmt&#46;lib tipmt&#46;lib hsxmt&#46;lib hbsixmt&#46;lib cw32mt&#46;lib\nLIBX = &#123;&#91;$&#40;Use MT Library&#41;=&#93;&#91;no=$&#40;LIB1&#41;&#93;&#91;yes=$&#40;LIBM&#41;&#93;&#125;\n\nLIBS = &#123;&#91;$&#40;Harbour Type&#41;=&#93;&#91;xHarbour=FiveHx&#93;&#91;Harbour=FiveH&#93;&#125; fivehc&#46;lib $&#40;Use xHarbour Dll&#41; &#123;&#91;$&#40;Include Debug&#41;=&#93;&#91;no=gtgui&#46;lib&#93;&#91;yes= gtwin&#46;lib debug&#46;lib&#93;&#125; $&#40;3rd Party Libs&#41; lang&#46;lib common&#46;lib codepage&#46;lib pcrepos&#46;lib import32&#46;lib odbc32&#46;lib rasapi32&#46;lib nddeapi&#46;lib iphlpapi&#46;lib $&#40;LIBX&#41;\n\n&#91;Environment&#93;\nPATH = $&#40;HPATH&#41;\\Bin;$&#40;CPATH&#41;\\Bin;%PATH%\nINCLUDE = $&#40;HPATH&#41;\\Include;$&#40;CPATH&#41;\\Include$&#40;User Include Path&#41;;$&#40;FWPATH&#41;\\Include\nLIB = $&#40;HPATH&#41;\\Lib;$&#40;CPATH&#41;\\Lib;$&#40;CPATH&#41;\\Lib\\PsDk;$&#40;FWPATH&#41;\\Lib\n\n&#91;General&#93;\nTargetExt = &#46;EXE\nReleaseOut = Release\nDebugOut = Debug\nUseFullPaths = 1\nUseDosNames = 0\n\n&#91;MakeCommands&#93;\nrun = Execute Application\nmakef = Show Makefile\n\n&#91;Execute Application&#93;\nTitle = Execute $T\nCmd0 = $&#40;Command Line Arguments&#41;\nDepends = $T\nShowWindow = 1\nDisplayConsole = 0\n\n&#91;Show Makefile&#93;\nTitle=Show makefile\nCmd0=uestudio makefile\nShowWindow=1\nDisplayConsole=0\n\n&#91;InsertFiles&#93;\n\n&#91;FileGroups&#93;\nFGO = &#46;obj;\nFGR = &#46;res;\nFGL = &#46;lib;\nFGD = &#46;def;\n\n&#91;GroupFormats&#93;\nFGO = %s\nFGR = %s\nFGL = %s\n\n&#91;Build&#93;\nOut = $T\nDepends = $FGO $FGR\nDebugFlag =\nReleaseFlag =\nCmd0 = iLink32 $&#40;LOPT&#41; $R c0w32&#46;obj $FGO, $Op$On, , $&#40;LIBS&#41; $FGL, $FGD, $FGR\n\n&#91;&#46;PRG&#93;\nOut = $In&#46;c\nDebugFlag =\nReleaseFlag = /l\nCmd0 = Harbour $I $&#40;HOPT&#41; $R /o$O\n\nIncFiles = 1\nCaseSensitive = 0\nIncDirs = &#46;;$&#40;INCLUDE&#41;;\nIncKeyWords = #include;\nComments = /*&#46;*/&#46;//&#46;eol&#46;\n\n&#91;&#46;C&#93;\nOut = $In&#46;obj\nCmd0 = Bcc32 $&#40;COPT&#41; -O2 -O -OS -3 -o$O $I\n\n&#91;&#46;RC&#93;\nOut = $In&#46;res\nCmd0 = Brcc32 -r -32 -fo$O $I\n\nIncFiles = 1\nCaseSensitive = 0\nIncDirs = &#46;;$&#40;INCLUDE&#41;;\nIncKeyWords = #include;\nComments = /*&#46;*/&#46;//&#46;eol&#46;\n[/code:2gejehou]','',0,'9MA=','2gejehou',1,1174926124,'',879,3,0),(28751,6470,3,2,0,'82.210.96.98',1174802857,1,0,1,1,1,1,'','','Ken,\n\nMany thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'9MA=','3nt8mvys',1,0,'',2,0,0),(28752,6470,3,2,0,'82.210.96.98',1174802955,1,0,1,1,1,1,'','','Ken,\n\nWe should modify it to allow the use of Harbour or xHarbour alternatively, as there are both kind of users','',0,'9MA=','3qa4ooq3',1,0,'',2,0,0),(28753,6465,6,2,0,'82.210.96.98',1174803069,1,0,1,1,1,1,'','','No, no es preciso con FWH 7.01','',0,'9MA=','3k79zs6u',1,0,'',2,0,0),(28755,6470,3,3,0,'80.81.159.19',1174811136,1,0,1,1,1,1,'','','Yes and also allow third party libs to be linked like tsbutton.lib, tsbrowse...\n\nRegards\n\nRichard','',0,'9MA=','2mdirobj',1,0,'',3,0,0),(28756,6471,3,996,0,'70.58.66.18',1174818505,1,0,1,0,1,0,'','No exported method: END on exit','Hello I\'m trying to get my first FWH program working.  It is based on the testxbrw example, but it uses an RC file for the menu.  The only problem I\'m having is with the action oWnd:End() which is connected to one of my menu options.  It causes a \"No exported method: END\" error, but the method END was used in the original example.  What is the proper way to end a program from a menu Action?  Here is the code:\n\n\nfunction Main()\n\n   local oBmp, oWnd\n\n   REQUEST DBFCDX\n   rddsetdefault( \"DBFCDX\" )\n\n   USE D_Header NEW\n\n   DEFINE WINDOW oWnd TITLE \"DonorQuest 7.0 For Windows\";\n      MENU RCBuildMenu( oWnd ) MDI;\n      MENUINFO 3\n\n   DEFINE BITMAP oBmp RESOURCE \"Background\"\n\n   SET MESSAGE OF oWnd TO \"DonorQuest 7.0, (c) Intrepid Systems, Inc. \" CENTERED\n\n   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\nfunction RCBuildMenu( oWnd )\n\n   local oMenu, oItem\n\n   DEFINE MENU oMenu RESOURCE FRAME_MENU\n\n   REDEFINE MENUITEM oItem ID FRAME_MENU             OF oMenu ACTION MsgInfo( \"DonorQuest in 32 bits!\" )\n   REDEFINE MENUITEM oItem ID FMID_FILE_OPEN  OF oMenu ACTION AutoEdit( oWnd )\n\n   REDEFINE MENUITEM oItem ID FMID_FILE_EXIT         OF oMenu ACTION oWnd:End()\n\nreturn( oMenu )\n\n//----------------------------------------------------------------------------//\n\n\nThanks,\n\n-Patrick\n\n[list=][/list]','',0,'','1f47gztx',1,0,'',996,0,0),(28757,6472,5,512,0,'219.90.192.51',1174821753,1,0,1,1,1,0,'','Debug Message? xpp\\get.prg HB_LANGMESS() Appears?','Hello, \n\nI use FW++ 7.01, Alaska XBase++ Intl V1.90.331 and BorlandC Resource Compiler brcc32 V5.02 to manage my resources. \n\nWhen I use \"get\" fields in a dialog box and move from one field to another, I sometimes get a standard Windows \"Information\" Window with the text \"xpp\\get.prg HB_LANGMESS() \" and an OK default push button.\n\nI asssume this is part of some debug code that has been forgotten and has not been removed when placed into the FiveWin++ Runtime Library five32rt.lib/.dll\n\nA small program that reproduces this could be provided if requested.\n\nCould corrrected files be provided please.\n\nThanks, Angelo','',0,'','3gnbmekq',1,0,'',512,0,0),(28758,6471,3,6,0,'82.61.144.99',1174824880,1,0,1,1,1,1,'','Re: No exported method: END on exit','[code:qr2dzfc0]#include &quot;Fivewin&#46;ch&quot;\n\n\nSTATIC oWnd\n\n\nFUNCTION MAIN&#40;&#41;\n\n    DEFINE WINDOW oWnd;\n           MENU BUILDMENU&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION BUILDMENU&#40;&#41;\n\n    LOCAL oMenu\n\n    MENU oMenu\n        MENUITEM &quot;Exit&quot;;\n                 ACTION oWnd&#58;End&#40;&#41;\n    ENDMENU\n\n    RETURN oMenu[/code:qr2dzfc0]\n\nEMG','',0,'AIA=','qr2dzfc0',1,0,'',6,0,0),(28759,5923,4,6,0,'82.61.144.99',1174825294,1,0,1,1,1,1,'','Re: TGet RIGHT clause is not working','Any news?\n\nEMG','',0,'AIA=','3a0wt42m',1,0,'',6,0,0),(28760,3054,4,289,0,'87.109.236.184',1174831317,1,0,1,1,1,0,'','','[color=blue:1l3moi21]welcome Silvio\nI  send  to you the the sample work  has been on \na i-mate jamin with windows ce 5\n, and works is simple. \n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nregards, \nhathal [/color:1l3moi21]','',0,'Ag==','1l3moi21',1,0,'',289,0,0),(28761,6401,3,972,0,'81.164.115.198',1174838262,1,0,1,1,1,0,'','','[quote=&quot;Patrick Mast&quot;:2n5l4ayi][quote=&quot;Peterg&quot;:2n5l4ayi]Downloaded and it works fine using normal build for xbase. As soon as I link in the sql.lib then I get a gpf[/quote:2n5l4ayi]\n\nAha! Interesting. Will test some more today and keep you posted on this.\n[/quote:2n5l4ayi]\n\nHum, I can not get it to GPF here. Can you make me a reduced sample that trows the GPF?\n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','2n5l4ayi',1,0,'',972,0,0),(28762,6473,4,6,0,'82.61.144.99',1174840814,1,0,1,1,1,1,'','Bug in /= operator','This is the sample:\n\n[code:102kvtvh]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL nVal1 &#58;= 2&#46;000\n    LOCAL nVal2 &#58;= 10\n\n    MSGINFO&#40; nVal1 /= nVal2 &#41;\n\n    RETURN NIL[/code:102kvtvh]\n\nIt terminates with an error when operator /= is executed.\n\nEMG','',0,'AIA=','102kvtvh',1,0,'',6,0,0),(28763,6471,3,996,0,'70.58.66.18',1174851005,1,0,1,0,1,0,'','Re: No exported method: END on exit','Hello Enrico,\n\nThanks for responding.   Making oWnd a global static does allow the exit action to work, but it causes problems with TXBrowse -- makes the browse window unresponsive.  There must have been some reason they made oWnd a local variable in the testxbrw.prg example.\n\n-Patrick','',0,'AIA=','3vibpmi2',1,0,'',996,0,0),(28764,6474,6,694,0,'200.189.112.21',1174852874,1,0,1,1,1,1,'','Calendário DTPicker em BTNGET é possível ?','Amigos é possível chamar o calendário da classe DTPicker de um BTNGET?\n\nEX?\n\n REDEFINE BTNGET  oget[17] var DATA ID 102  OF oFld resource \"LUPA\" ACTION(   DTPICKER ???? )  &lt;---É POSSÍVEL ?\n\n\nAMIGOS SE FOR POSSÍVEL, COMO DEVO FAZER PARA FUNCIONAR ?\n\n\nAOKISANTOS','',0,'','u7mvndll',1,0,'',694,0,0),(28765,6454,6,694,0,'200.189.112.21',1174852927,1,0,1,1,1,1,'','SOLUCIONADO','SOLUCIONADO  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1vkd556z',1,0,'',694,0,0),(28766,6471,3,6,0,'87.18.232.241',1174853241,1,0,1,1,1,1,'','Re: No exported method: END on exit','Did you remove the LOCAL oWnd declaration?\n\nEMG','',0,'','24t7n89i',1,0,'',6,0,0),(28767,6470,3,879,0,'65.92.174.8',1174853942,1,0,1,1,1,0,'','','OK. You now have both options added, however, with one caveat for each.\n\nFor Harbour/xHarbour, for each project you will need to make sure the correct Harbour Type has been selected.\n\nFor 3rd Party Libraries, they need to be added to each Project file that is created. An alternative would be to manually add these libraries to the end of the “Libs =” line in the main config file in the UEStudio folder.\n\nI removed the Advantage RDD Driver option. It can now be added, if required, on the [i:2nik9z5i]3rd Party Libs = [/i:2nik9z5i]line \nRegards,\n\nKen','',0,'IA==','2nik9z5i',1,0,'',879,0,0),(28768,6470,3,2,0,'87.218.146.45',1174858647,1,0,1,1,1,1,'','','Ken,\n\nWhere is the modified config file ? thanks','',0,'IA==','3poy4jmt',1,0,'',2,0,0),(28769,6434,3,2,0,'87.218.146.45',1174858812,1,0,1,1,1,1,'','','Hua,\n\nWe have tested it in both 16 and 32 bits and the results are the same.\n\nCould you please provide a sample where the encrypted result is different ? thanks','',0,'IA==','1xusao5h',1,0,'',2,0,0),(28770,6466,3,2,0,'87.218.146.45',1174859444,1,0,1,1,1,1,'','','Ehab,\n\nPlease provide a small and self contained sample to reproduce it here, thanks','',0,'IA==','1l1l1pi2',1,0,'',2,0,0),(28771,6461,1,161,0,'81.164.212.146',1174859810,1,0,1,1,1,0,'','','Thanks Enrico, I will try it.\n\nMarc','',0,'IA==','25fmgmc9',1,0,'',161,0,0),(28772,6472,5,2,0,'87.218.146.45',1174859829,1,0,1,1,1,1,'','','Angelo,\n\nWe have just emailed you a new modified FW++ libraries,\n\nthanks for your feedback,','',0,'IA==','1ut7kyar',1,0,'',2,0,0),(28773,6473,4,2,0,'87.218.146.45',1174861442,1,0,1,1,1,1,'','','Enrico,\n\nThis is a workaround:\n[code:3jj622j9]\n#include &quot;Fwce&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL nVal1 &#58;= 2&#46;000 \n    LOCAL nVal2 &#58;= 10 \n    local nVal3 &#58;= nVal1 / nVal2\n\n    MSGINFO&#40; nVal3 &#41; \n\n    RETURN NIL\n[/code:3jj622j9]\nAnyhow we are going to check where the error comes from','',0,'AIA=','3jj622j9',1,0,'',2,0,0),(28774,6471,3,996,0,'70.58.66.18',1174861955,1,0,1,0,1,0,'','Re: No exported method: END on exit','Yes, and the code works fine for exiting now, but the TXBrowse won\'t work properly.  \n\nAs a test, I added a TXBrowse to the sample program resmenu.prg (provided with FiveWin).  I got exactly the same behavior -- the oWnd:End() works fine, but not the action AutoEdit().  Here is the complete code exactly as I have it.  It should compile if you place it in your \\FWH\\Samples\\ folder:\n\n[code:2y42ierq]\n// Using PullDown Menus from resources\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;ResMenu&#46;ch&quot;           // Some IDs for this Test\n#include &quot;xbrowse&#46;ch&quot;\n#include &quot;InKey&#46;ch&quot;\n\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   REQUEST DBFCDX\n   rddsetdefault&#40; &quot;DBFCDX&quot; &#41;\n\n   USE CUSTOMER NEW\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 75 ;\n      TITLE &quot;Using Menus from resources&quot; ;\n      MENU  BuildMenu&#40;&#41; MDI\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu, oItem\n\n   DEFINE MENU oMenu RESOURCE &quot;Main&quot;\n\n   REDEFINE MENUITEM oItem ID ID_ABOUT OF oMenu ;\n      ACTION MsgInfo&#40; &quot;About FiveWin&quot; &#41;\n\n   REDEFINE MENUITEM ID ID_TEST  OF oMenu ACTION AutoEdit&#40;&#41;\n\n   REDEFINE MENUITEM ID ID_EXIT OF oMenu ACTION oWnd&#58;End&#40;&#41;\n\n   REDEFINE MENUITEM ID ID_DELETE OF oMenu ACTION MsgInfo&#40; &quot;ok&#58; Delete&quot; &#41;\n\nreturn oMenu\n\n\n\n//----------------------------------------------------------------------------//\n\nSTATIC FUNCTION AutoEdit&#40;&#41;\n\n   local oChild, oBrw, oCol\n   local nFor\n\n   DEFINE WINDOW oChild TITLE &quot;Auto edit browse&quot; MDICHILD OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n\n   oBrw&#58;SetRDD&#40;&#41;\n\n   for nFor &#58;= 1 to len&#40; oBrw&#58;aCols &#41;\n      oCol &#58;= oBrw&#58;aCols&#91; nFor &#93;\n      oCol&#58;nEditType &#58;= 1\n      oCol&#58;bOnPostEdit &#58;= &#123;|o, v, n| iif&#40; n != VK_ESCAPE, FieldPut&#40; o&#58;nCreationOrder, v &#41;, &#41; &#125;\n   next\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n\n[/code:2y42ierq][/code]','',0,'AIA=','2y42ierq',1,0,'',996,0,0),(28775,6471,3,2,0,'87.218.146.45',1174863179,1,0,1,1,1,1,'','','Patrick,\n\nPlease change this line:\n\n   oBrw := TXBrowse():New( oWnd )\n\ninto:\n\n   oBrw := TXBrowse():New( [color=red:13ykz6tf]oChild[/color:13ykz6tf] )','',0,'Ag==','13ykz6tf',1,0,'',2,0,0),(28776,6449,7,2,0,'87.218.146.45',1174863531,1,0,1,1,1,1,'','','Toni,\n\nHemos estado unos dias fuera de la oficina en un seminario de FWPPC. \n\nLo revisamos de inmediato, gracias','',0,'Ag==','fynuw2o4',1,0,'',2,0,0),(28777,6471,3,996,0,'70.58.66.18',1174866147,1,0,1,0,1,0,'','No exported method: END on exit','That works perfectly!\n\nThanks very much Antonio and Enrico.  \n\nI must say that coming from a Clip4Win background, I\'m very impressed with FiveWin so far and how easy it is to create an MDI application -- that required a lot of complicated code in Clip4Win!','',0,'Ag==','gt2nls9c',1,0,'',996,0,0),(28778,6475,6,785,0,'190.64.223.141',1174869423,1,0,1,1,1,0,'','ADS de dbf,cdx,fpt a adt,adi,adm','Amigos:\n\nTengo una aplicacion con dbf,cdx,fpt (base, indice, memo) y deseo pasarla a \nADS nativos adt, adi, adm. (base, indice, memo) \n\nEs posible pasar los datos de una base a otra.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'Ag==','3dedzg6g',1,0,'',785,0,0),(28779,6467,6,492,0,'189.147.26.143',1174870054,1,0,1,1,1,1,'','','Manuel\n\nBasta con que agregues un campo adicional ( normalmente uso un numerico de 1 digito ) y al momento de estar \"llenando\" la base a mostrar vas alternando el valor de ese campo ( normalmente uso 0-1 ) y solo cambias el codigo por esto :\n\noLbx:nClrPane:={|| IIF(CLIENTES-&gt;TuCampo ==1,CLR_WHITE,CLR_LGRAY)} \n\nAsi lo he usado y hace exactamente lo que quieres hacer.\n\nSaludos','',0,'Ag==','3kfxhnpi',1,0,'',492,0,0),(28780,6476,3,725,0,'200.65.178.248',1174876092,1,0,1,1,1,1,'','password in access files','Does somebody knows how to put a password in this file type via fivewin and xharbour?\nI can open read write and close the access table but i don\'t know how put a password to encrypt it\n\nThank for any help','',0,'Ag==','2gw9qcjk',1,0,'',725,0,0),(28781,6467,6,9,0,'85.53.89.180',1174884451,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:15q6xw62]\nAsi lo he usado y hace exactamente lo que quieres hacer.\n[/quote:15q6xw62]\n\nRay,\n\nYo entiendo que lo que Manuel quiere es otra cosa. Tiene un campo clave (por ejemplo, ciudad) y tiene ordenado por este campo la base de datos:\n\nALICANTE\nALICANTE\nALICANTE\n[b:15q6xw62]BARCELONA\nBARCELONA[/b:15q6xw62]\nMALAGA\nMALAGA\nMALAGA\n\nLo que yo entiendo que quiere ( y es muy interesante), es que cada vez que el listbox cambie de ciudad (el bloque de registros) cambie el color.\nCreo que con el método del \"llenado\" la cosa sería complicada, sobretodo, si desde el listbox modificaramos los datos.','',0,'wA==','15q6xw62',1,0,'',9,0,0),(28782,6477,6,279,0,'189.169.13.192',1174887528,1,0,1,1,1,0,'','SUMAR UN AÑO, MES O DIA A UNA  FECHA','Hola a todos... \n\nMe gustaria saber si existe una opción para sumas a una fecha un número para aumentar un dia, meses o años.... \n\nYo tenia esta utileria en Clipper y me permitia sumas un mes un dia y años.\n\nlhasta:= date_addm(hasta,12) \n\n\n\nSaludos y gracias.. \nMario Espinosa','',0,'wA==','2yg6h86z',1,0,'',279,0,0),(28783,6454,6,228,0,'201.244.217.176',1174890053,1,0,1,1,1,1,'','Amigo...','Me podrias Indicar como lo hiceste... \n\nDe antemano Gracias  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'wA==','zomdjuqh',1,0,'',228,0,0),(28784,6436,6,413,0,'194.106.16.43',1174891750,1,0,1,1,1,1,'','','No eso es todo el error que tengo y por supuesto se para la compilacion, el problema es que esto me lo hace solo en windows xp, en windows 2000 va bien, pero no tengo ni idea por donde empezar para localizar el error, pues como tu dices no es algo mal que esta en el RC, puesto que de ser asi me diria exactamente en que linea esta el error. Parece que es algo referente a windows xp, alguna aplicacion instalada o algo por el estilo, pero de momento compilo en 2000, puesto que no encuentro el modo de solucionarlo.\n\nSaludos.','',0,'wA==','268wc3lp',1,0,'',413,0,0),(28785,6436,6,2,0,'87.218.146.45',1174892608,1,0,1,1,1,1,'','','Andrés,\n\nParece que tienes una coma de más ó de menos en tu fichero make ó BAT ya que el enlazador está intentando enlazar el fichero RES como si de un OBJ se tratase','',0,'wA==','ydtqyvyv',1,0,'',2,0,0),(28786,6305,1,2,0,'87.218.146.45',1174892701,1,0,1,1,1,1,'','','Richard,\n\nI have not received your file, please zip it and resend it again, thanks','',0,'wA==','101eu4nx',1,0,'',2,0,0),(28787,6454,6,54,0,'189.132.110.109',1174893392,1,0,1,1,1,1,'','Re: Amigo...','[quote=&quot;leandro&quot;:1ywki5hr]Me podrias Indicar como lo hiceste... \n\nDe antemano Gracias  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:1ywki5hr]\n\nLeandr,\n\nMe corroe la inquietud.\n\nMe gustaria que compartieras tu solución.\n\ngracias de antemano','',0,'gA==','1ywki5hr',1,0,'',54,0,0),(28788,6435,3,2,0,'87.218.146.45',1174893429,1,0,1,1,1,1,'','','Éric,\n\nThis sample seems to work fine:\n[code:2fotaxja]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cCep &#58;= SPACE&#40; 8 &#41;\n    \n   DEFINE DIALOG oDlg  \n    \n   @  2, 2 GET cCep PICTURE &quot;@R 99&#46;999-999&quot;\n   \n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:2fotaxja]\nHow to reproduce the error ?','',0,'AIA=','2fotaxja',1,0,'',2,0,0),(28789,6454,6,2,0,'87.218.146.45',1174893806,1,0,1,1,1,1,'','','En PHP:\n[code:2915gxkt]\n&lt;?php\n\n//Copyright &#40;C&#41; 2000-2006  Antonio Grandío Botella http&#58;//www&#46;antoniograndio&#46;com\n//Copyright &#40;C&#41; 2000-2006  Inmaculada Echarri San Adrián http&#58;//www&#46;inmaecharri&#46;com\n\n//This file is part of Catwin&#46;\n\n//CatWin is free software; you can redistribute it and/or modify\n//it under the terms of the GNU General Public License as published by\n//the Free Software Foundation; either version 2 of the License, or\n//&#40;at your option&#41; any later version&#46;\n\n//CatWin is distributed in the hope that it will be useful,\n//but WITHOUT ANY WARRANTY; without even the implied warranty of\n//MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE&#46;  See the\n//GNU General Public License for more details&#58;\n//http&#58;//www&#46;gnu&#46;org/copyleft/gpl&#46;html\n\n//You should have received a copy of the GNU General Public License\n//along with Catwin Net; if not, write to the Free Software\n//Foundation, Inc&#46;, 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA\n\nif &#40;!is_dir&#40;&quot;_backups&quot;&#41;&#41; &#123;mkdir&#40;&quot;_backups&quot;&#41;;&#125;\n\ndeldir&#40;&quot;_backups&quot;&#41;;\n\n$fich = $_SESSION&#91;\'empresa\'&#93;&#46;&quot;---&quot;&#46;date&#40;\'Y-m-d-His\'&#41;&#46;&quot;&#46;sql&quot;;\n\nif&#40; !@function_exists&#40;\'gzopen\'&#41;&#41; &#123;\n	$gz = false;\n	$f = fopen&#40; &quot;_backups/&quot;&#46;$fich, \'w\' &#41;;\n&#125;\nelse &#123;\n	$fich = $fich &#46; &quot;&#46;gz&quot;;\n	$gz = true;\n	$f = gzopen&#40; &quot;_backups/&quot;&#46;$fich, \'w6\' &#41;;\n&#125;\n\n$db = mysql_select_db&#40;$_SESSION&#91;\'empresa\'&#93;&#41;;\n\n$escribir = &quot;-- Base de datos&#58; &quot;&#46;$_SESSION&#91;\'empresa\'&#93;&#46;&quot; - Fecha&#58; &quot; &#46; strftime&#40; &quot;%d/%m/%Y - %H&#58;%M&#58;%S&quot;, time&#40;&#41; &#41;&#46;&quot;\\n&quot;;\nescribir&#40;$f, $gz, $escribir&#41;;\n\n$result = mysql_query&#40; \'SHOW tables\' &#41;;\nwhile&#40; $fila = mysql_fetch_array&#40;$result&#41; &#41; &#123;\n	if &#40;$_SESSION&#91;\'empresa\'&#93; == &quot;nuevocat&quot; AND $fila&#91;0&#93; == &quot;referers&quot;&#41; &#123;continue;&#125;\n	escribetabla&#40; $fila&#91;0&#93;, $f, $gz&#41;;\n	escribir&#40;$f, $gz, &quot;\\n&quot;&#41;;\n&#125;\n\nif&#40; !$gz &#41;&#123; \n	fclose&#40;$f&#41;;\n	&#125; else &#123;\n	gzclose&#40;$f&#41;;\n&#125;\n\necho &quot;&lt;a href=\'_backups/$fich\'&gt;Bajar la copia de seguridad &lt;span class=\'b\'&gt;$fich&lt;/span&gt;&lt;/a&gt;&quot;;\n\nfunction escribetabla&#40;$table, $f = 0, $gz&#41; &#123;\n	$escribir = &quot;\\n-- Tabla `$table`\\n&quot;;\n	escribir&#40;$f, $gz, &quot;\\n&quot;&#41;;\n	escribir&#40;$f, $gz, $escribir&#41;;\n	$escribir = mysql_fetch_array&#40;mysql_query&#40;&quot;SHOW CREATE TABLE $table&quot;&#41;&#41;;\n	quitar&#40;$escribir&#91;\'Create Table\'&#93;&#41;;\n	$escribir = &quot;DROP TABLE IF EXISTS $table;\\n&quot; &#46; $escribir&#91;\'Create Table\'&#93; &#46; &quot;;\\n\\n&quot;;\n	escribir&#40;$f, $gz, $escribir&#41;;\n	$escribir = &quot;--\\n&quot;;\n	escribir&#40;$f, $gz, $escribir&#41;;\n	$escribir = &quot;-- Dumping `$table`\\n&quot;;\n	escribir&#40;$f, $gz, $escribir&#41;;\n	$escribir = &quot;--\\n\\n&quot;;\n	escribir&#40;$f, $gz, $escribir&#41;;\n	$escribir = &quot;LOCK TABLES $table WRITE;\\n&quot;;\n	escribir&#40;$f, $gz, $escribir&#41;;\n\n	$result = mysql_query&#40;&quot;SELECT * FROM $table&quot;&#41;;\n	$campos=mysql_num_fields&#40;$result&#41;;\n	while &#40;$fila = mysql_fetch_array&#40;$result&#41;&#41; &#123;\n		$escribir = &quot;INSERT INTO $table VALUES&#40;&quot;;\n		escribir&#40;$f, $gz, $escribir&#41;;\n		$n = 0;\n		while &#40;$n &lt; $campos&#41; &#123;\n			$escribir = &quot;&quot;;\n			if &#40;$n&#41; &#123;$escribir = &quot;, &quot;;&#125;\n			if&#40; !isset&#40;$fila&#91;&quot;$n&quot;&#93;&#41;&#41; &#123;$escribir &#46;= \'NULL\';&#125; else &#123;$escribir &#46;= &quot;\'&quot; &#46; mysql_escape_string&#40;$fila&#91;&quot;$n&quot;&#93;&#41; &#46; &quot;\'&quot;;&#125;\n			escribir&#40;$f, $gz, $escribir&#41;;\n			$n = $n+1;\n		&#125;\n		$escribir = &quot;&#41;;\\n&quot;;\n		escribir&#40;$f, $gz, $escribir&#41;;\n	&#125;\n	$escribir = &quot;UNLOCK TABLES;&quot;;\n	escribir&#40;$f, $gz, $escribir&#41;;\n&#125;\n\nfunction quitar&#40;&amp;$text&#41; &#123;\n	return $text;\n&#125;\n\nfunction escribir&#40;$f, $gz, $escribir&#41; &#123;\n	if&#40; !$gz &#41;&#123;\n		fwrite&#40; $f, $escribir &#41;;\n	&#125; else &#123;\n		gzwrite&#40; $f, $escribir &#41;;	\n	&#125;\n&#125;\n\nfunction deldir&#40;$dir&#41;&#123;\n	$current_dir = opendir&#40;$dir&#41;;\n	while&#40;$entryname = readdir&#40;$current_dir&#41;&#41;&#123;\n		if&#40;is_dir&#40;&quot;$dir/$entryname&quot;&#41; and &#40;$entryname != &quot;&#46;&quot; and $entryname!=&quot;&#46;&#46;&quot;&#41;&#41;&#123;\n			 deldir&#40;&quot;$&#123;dir&#125;/$&#123;entryname&#125;&quot;&#41;;\n			&#125;elseif&#40;$entryname != &quot;&#46;&quot; and $entryname!=&quot;&#46;&#46;&quot;&#41;&#123;\n			unlink&#40;&quot;$&#123;dir&#125;/$&#123;entryname&#125;&quot;&#41;;\n		&#125;\n	&#125;\n	closedir&#40;$current_dir&#41;;\n&#125;\n\n?&gt;\n[/code:2915gxkt]','',0,'AIA=','2915gxkt',1,0,'',2,0,0),(28790,6373,3,130,0,'141.51.32.24',1174894175,1,0,1,1,1,0,'','','Ok, i uploaded it again, hope it´s working now.\n\n[url:30n6qvrk]http&#58;//hyperupload&#46;com/download/0226ccc365/TRMChartX&#46;zip&#46;html[/url:30n6qvrk]\n\nStefan','',0,'EA==','30n6qvrk',1,0,'',130,0,0),(28791,6436,6,413,0,'194.106.16.43',1174894476,1,0,1,1,1,1,'','','Gracias Antonio eso estaba mirando ahora en internet, pero parece que el problema no es la coma de mas o de menos, la diferencia entre mi windows 2000 y el XP, es que en el xp tengo montado el Borland c++ builder y al parecer esto marca una gran diferencia con el borland c55 y parece que alguna ruta del path me debe apuntar primero al builder en vez de al BC55, voy a ver si lo soluciono. \n\nGracias de nuevo \nSaludos.','',0,'EA==','29mvf6t6',1,0,'',413,0,0),(28792,6476,3,6,0,'87.20.214.43',1174897004,1,0,1,1,1,1,'','Re: password in access files','[code:qdxup07v]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oJro &#58;= CREATEOBJECT&#40; &quot;JRO&#46;JetEngine&quot; &#41;\n\n    LOCAL cConStr1 &#58;= &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=mymdb&#46;mdb&quot;\n    LOCAL cConStr2 &#58;= &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=newmdb&#46;mdb;Jet OLEDB&#58;Database Password=newpwd&quot;\n\n    oJro&#58;CompactDatabase&#40; cConStr1, cConStr2 &#41;\n\n    RETURN NIL[/code:qdxup07v]\n\nEMG','',0,'AIA=','qdxup07v',1,0,'',6,0,0),(28793,6473,4,6,0,'87.20.214.43',1174897229,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:34hnvipq]Enrico,\n\nThis is a workaround:\n[code:34hnvipq]\n#include &quot;Fwce&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL nVal1 &#58;= 2&#46;000 \n    LOCAL nVal2 &#58;= 10 \n    local nVal3 &#58;= nVal1 / nVal2\n\n    MSGINFO&#40; nVal3 &#41; \n\n    RETURN NIL\n[/code:34hnvipq][/quote:34hnvipq]\n\nYes, I did already know it. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n[quote=&quot;Antonio Linares&quot;:34hnvipq]Anyhow we are going to check where the error comes from[/quote:34hnvipq]\n\nThank you!\n\nEMG','',0,'gIA=','34hnvipq',1,0,'',6,0,0),(28794,6421,6,917,0,'213.96.167.92',1174897243,1,0,1,1,1,0,'','','De acuerdo Antonio, estaremos pendientes.','',0,'gIA=','3ua5mzaq',1,0,'',917,0,0),(28795,6478,3,247,0,'83.171.242.103',1174897951,1,0,1,1,1,0,'','External Child Form into MDI Form','Hi,\n\nCan i call an external exe file (that is only one form) and show it within my MDI main form ?\nI remember doing it with VB (DLL form + MDI form) but how can i do it with fivewin?\n\nThank you\nA.S.K','',0,'gIA=','383a2uwd',1,0,'',247,0,0),(28796,6473,4,2,0,'87.218.146.45',1174898153,1,0,1,1,1,1,'','','Enrico,\n\nIt looks as a bug in the Harbour build used for Pocket PC, as this sample with no FWPPC code in it also fails:\n\nnVal1 /= nVal2','',0,'gIA=','3dgykfua',1,0,'',2,0,0),(28797,6473,4,6,0,'87.20.214.43',1174898283,1,0,1,1,1,1,'','','Thank you. I\'m going to report it to the Harbour developers list.\n\nEMG','',0,'gIA=','3docvvwl',1,0,'',6,0,0),(28798,6473,4,2,0,'87.218.146.45',1174898411,1,0,1,1,1,1,'','','Enrico,\n\nWait, its ok in the current Harbour version, so it looks as the bug is just contained in the build used for Pocket PC\n\nWe may upgrade soon Harbour for Pocket PC to the current Harbour build','',0,'gIA=','3o5unjrp',1,0,'',2,0,0),(28799,6473,4,6,0,'87.20.214.43',1174898509,1,0,1,1,1,1,'','','Yes, you are right.\n\nThank you.\n\nEMG','',0,'gIA=','3s3jqmhc',1,0,'',6,0,0),(28800,6478,3,2,0,'87.218.146.45',1174898579,1,0,1,1,1,1,'','','Do you mean to show the external app as a MDI child of your MDI environment ?\n\nI don\'t think there is a way to do it...','',0,'gIA=','2cpbipct',1,0,'',2,0,0),(28801,6469,6,316,0,'213.97.245.163',1174901042,1,0,0,1,1,0,'','','Jorge,\n\na mi me pasó algo parecido con PACK usando dbfcdx y harbour. A veces el PACK me dejaba más registros de los que debía, replicando un error del Summer\'87.  Este error tenía que ver con un fallo en el SO con la funcion write del SO. Para \'acortar\' un archivo había que escribir 0 bytes en la posición donde se quería que termine el fichero. Luego de eso había que hacer una lectura inmediatamente, que por cierto fallaría. Si no se hacía el archivo no se truncaba y ocacionaba los consabidos fallos en el PACK\n\nLa solución? Despues del PACK la cierro y la vuelvo a abrir. Santo remedio.\n\nSelect UnaBase\nPack\nUse\nUse UnaBase ....\n\nPrueba a ver si es eso.\n\nPara tu caso se me ocurre una solución alternativa:\n\naStru:= dBStruct()\ndbCloseArea()\ndBCreate( \'tubase\', aStru )\nUse TuBase\n\nno creo que esto falle.\n\nUn saludo,\n\nCarlos.','',0,'gIA=','1n193lzb',1,0,'',316,0,0),(28802,6421,6,2,0,'87.218.146.96',1174901685,1,0,1,1,1,1,'','','Arturo,\n\nPuedes cambiar el color del texto del SAY, pero si usas temas de XP, entonces no puedes cambiar su fondo.\n\nSi el texto es estático y no va a cambiar, entonces podrías usar un bimap en vez del texto, en donde muestres el texto con los colores que desees','',0,'gIA=','3a340gb8',1,0,'',2,0,0),(28803,6477,6,841,0,'217.12.16.52',1174903114,1,0,1,1,1,0,'','','Mario, si tienes declarada la variable como DATE, es muy facil:\n\ndfecha:=date()\n\nnuevafecha:=dfecha+10  &amp;&amp; si quieres añadir, por ejemplo, 10 dias\n\n... y listo....\n\nUn saludo\nLORENZO','',0,'gIA=','17ifoe5m',1,0,'',841,0,0),(28804,6472,5,512,0,'219.90.192.51',1174907177,1,0,1,1,1,0,'','','Thank you Antonio.\n\nThe new modified FW++ libraries fix this problem.\n\nBest Regards, Angelo','',0,'gIA=','ad996tkm',1,0,'',512,0,0),(28805,6479,3,247,0,'83.171.242.103',1174907228,1,0,1,1,1,0,'','No border on a BTNBMP button','Hi, \n\nHow can I show only the image without the border on a BTNBMP button?\n\nThanks\nA.S.K','',0,'gIA=','1b3v3iu1',1,0,'',247,0,0),(28806,6458,5,512,0,'219.90.192.51',1174907273,1,0,1,1,1,0,'','','Thank you Antonio.\n\nThe new modified FW++ libraries fix this problem. The CreateToolTip function is now available.\n\nBest Regards, Angelo','',0,'gIA=','25jati7q',1,0,'',512,0,0),(28807,6446,5,512,0,'219.90.192.51',1174907796,1,0,1,1,1,0,'','','Thank you Antonio.\n\nI Hope all went well in Holland.\n\nI have received a new modified FW++ library that fixes the later CreateToolTip function reference and the extra debug message problem.  However I still have this \"Clear\" method not available problem when I press the decimal point \".\" in a get field.\n\nI also asked if it would be possible the get the latest and corrected Tget.prg and TClipGet.prg class source code?  I intent to modify it slightly for my application.\n\n\nBest Regards, Angelo','',0,'gIA=','fhzbs1u2',1,0,'',512,0,0),(28808,6446,5,2,0,'87.218.146.96',1174909783,1,0,1,1,1,1,'','','Angelo,\n\nIt was a great FWPPC seminar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe have just emailed you the source code for those classes','',0,'gIA=','y5otki29',1,0,'',2,0,0),(28809,6479,3,2,0,'87.218.146.96',1174909933,1,0,1,1,1,1,'','','If you mean the button border, then you may use a bitmap instead of a button, or simply modify the Class TBtnBmp to avoid the border painting','',0,'gIA=','3obmej5z',1,0,'',2,0,0),(28810,6463,6,439,0,'200.125.40.39',1174912560,1,0,1,1,1,1,'','','...','',0,'gIA=','1f00n7gm',1,0,'',439,0,0),(28811,6476,3,725,0,'200.65.178.2',1174912736,1,0,1,1,1,1,'','password in access files','sorry but I tried your solution and I have an ole error in compacdatabase instruction called by tole the name of the error is \"error jro.jetengine/16389 sure I\'m making something wrong','',0,'gIA=','2iv9eqyd',1,0,'',725,0,0),(28812,6479,3,247,0,'83.171.242.103',1174912841,1,0,1,1,1,0,'','','thank you Antonio','',0,'gIA=','pm2nrr0q',1,0,'',247,0,0),(28813,6436,6,413,0,'194.106.16.43',1174913013,1,0,1,1,1,1,'','','Antonio, nuevamente me descubro ante ti, no teneia nada que ver con las versiones del borland, sencillamente el enlazador me comia una linea de los ficheros del harbour o bcc55 y dejaba paso a interpretar el res como un fichero de libreria, osea me lo enlazaba como el cw32 y de ahi el error tan raro. Bueno si sirve de algo para otro aqui esta la reflexion, mas vale el zorro [color=orange:1jzf0by6]por zorro [/color:1jzf0by6]que por viejo, y Antonio eres un zorro viejo en estas lides, jo como cambia el cuento.\n\nMil Gracias Antonio.','',0,'Ag==','1jzf0by6',1,0,'',413,0,0),(28814,6479,3,6,0,'87.13.209.198',1174913109,1,0,1,1,1,1,'','Re: No border on a BTNBMP button','Did you try the NOBORDER clause?\n\nEMG','',0,'Ag==','1u7qx2nu',1,0,'',6,0,0),(28815,6476,3,6,0,'87.13.209.198',1174913200,1,0,1,1,1,1,'','Re: password in access files','I don\'t know. My sample works fine here.\n\nEMG','',0,'Ag==','apmgvya8',1,0,'',6,0,0),(28816,6451,2,124,0,'190.31.49.118',1174914091,1,0,1,1,1,0,'','','Gracias, pero si es una anomalía, tiene que haber una libreria DBFCDX que funcione bien, esa es mi búsqueda.','',0,'Ag==','2m7t6pw1',1,0,'',124,0,0),(28817,6475,6,36,0,'200.113.56.235',1174914953,1,0,1,1,1,0,'','','si es posible\n\nusa append from .. via\n\n\n[code:1agrkxvz]	SELE DOCU_ENT\n	zap\n	MsgRun&#40; &quot;Espere, importando movimientos de EQA&#46;sa&quot;, &quot;Usuario&quot;, &#123; || __dbApp&#40;&quot;c&#58;\\EQAsa\\DOCU_ENT&quot;,&#123; &#125;,,,,,&#46;F&#46;,&quot;DBFCDX&quot;&#41; &#125; &#41;\n[/code:1agrkxvz]\n\nSaludos\nPatricio','',0,'AIA=','1agrkxvz',1,0,'',36,0,0),(28818,6436,6,2,0,'87.218.146.96',1174915011,1,0,1,1,1,1,'','','Lo importante es que lo has solucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3jmk4ls3',1,0,'',2,0,0),(28819,6469,6,36,0,'200.113.56.235',1174915666,1,0,1,1,1,0,'','','Jorge \n\nPrueba con esto\n\n[code:2qqebrqr] &#40;oDbf2&#58;cAlias&#41;-&gt;&#40; __dbZap&#40;&#41; &#41;[/code:2qqebrqr]\n\nSaludos\nPatricio','',0,'AIA=','2qqebrqr',1,0,'',36,0,0),(28820,6433,3,35,0,'167.7.140.254',1174916666,1,0,1,1,1,0,'','','To All\n\nNow that I have the code running .. I am getting justification problems with charactor fields that contain alpha and numeric information ..\n\nExample .. in the reg_no column I have two rows :\n\nreg_no\n\n 2306753\n20A118\n\nFor some reason .. the alpha numeric get left justified .. which causes our SQL loader to fail .. any way to make sure all the contents of the column get left justified ??\n\nThanks\nRick Lipkin\nSC Dept of Health, USA\n\n\nCode:\n\n// dbf to xls conversion\n\nLOCAL oExcel, oSheet \nLOCAL nRow, cFILE,aDIR,mSTART,cDEFA\n\nclear \n\nREQUEST DBFCDX \nrddsetdefault( \"DBFCDX\" ) \n\nsetmode( 25,80 )\n\n//-- get timestamp on .exe //\n\ncFILE := HB_ARGV(0)\naDIR  := DIRECTORY( cFILE )\n\n// where .exe started from is default directory //\n\nmSTART := RAT( \"\\\", cFILE )\ncDEFA  := SUBSTR(cFILE,1,mSTART-1)\n\naDIR := NIL\nSET DEFA to ( cDEFA )\n\noExcel := CREATEOBJECT( \"Excel.Application\" ) \noExcel:WorkBooks:Add() \noSheet := oExcel:ActiveSheet\n\nselect 1 \nUSE cert via \"DBFCDX\" shared\ngo top \n\noSheet:Cells( 1, 1 ):value := \"REG_NO\"\noSheet:Cells( 1, 2 ):value := \"NAME\"\noSheet:Cells( 1, 3 ):value := \"ADDR1\"\noSheet:Cells( 1, 4 ):value := \"ADDR2\"\noSheet:Cells( 1, 5 ):value := \"ADDR3\"\noSheet:Cells( 1, 6 ):value := \"CITY\"\noSheet:Cells( 1, 7 ):value := \"STATE\"\noSheet:Cells( 1, 8 ):value := \"ZIP\"\noSheet:Cells( 1, 9 ):value := \"ZIP4\"\noSheet:Cells( 1, 10):value := \"SCHD\"\noSheet:Cells( 1, 11):value := \"INIT_DATE\"\noSheet:Cells( 1, 12):value := \"EXPIR_DATE\"\n\nnRow := 2\n\nDo WHILE !EOF()\n\n   @ 10,10 say str(Nrow)+\" \"+cert-&gt;name\n\n   if deleted()\n      select cert\n      skip\n      loop\n   endif\n\n   oSheet:Cells( nRow, 1 ):Value := cert-&gt;reg_no\n   oSheet:Cells( nRow, 2 ):Value := cert-&gt;name\n   oSheet:Cells( nRow, 3 ):Value := cert-&gt;addr1\n   oSheet:Cells( nRow, 4 ):Value := cert-&gt;addr2\n   oSheet:Cells( nRow, 5 ):Value := cert-&gt;addr3\n   oSheet:Cells( nRow, 6 ):Value := cert-&gt;city\n   oSheet:Cells( nRow, 7 ):Value := cert-&gt;state\n   oSheet:Cells( nRow, 8 ):Value := cert-&gt;zip\n   oSheet:Cells( nRow, 9 ):Value := cert-&gt;zip4\n   oSheet:Cells( nRow, 10 ):Value := cert-&gt;schd\n   oSheet:Cells( nRow, 11 ):Value := if(EMPTY(cert-&gt;expir_date), \"00/00/00\", cert-&gt;expir_date)\n   oSheet:Cells( nRow, 12 ):Value := if(EMPTY(cert-&gt;init_date), \"00/00/00\", cert-&gt;init_date)\n\n   nRow++\n   @ 10,10 say str(Nrow)+\" \"+cert-&gt;name\n   select cert\n\n   SKIP\nENDDO\n\noSheet:Columns( \"A:L\" ):AutoFit()\n\n* oExcel:Visible = .T.\n\nferase( cDEFA+\"\\CERT.XLS\" )\noSheet:SaveAs( cDEFA+\"\\CERT.XLS\" )\noExcel:Quit()\n\nclose databases\nquit','',0,'AIA=','2c9vrvto',1,0,'',35,0,0),(28821,6433,3,35,0,'167.7.140.254',1174916757,1,0,1,1,1,0,'','','Follow up ..\n\nGet right justified as opposed to left justified ..\n\nThanks\nRick Lipkin','',0,'AIA=','2k20bbeg',1,0,'',35,0,0),(28822,6480,6,64,0,'201.72.124.2',1174917714,1,0,1,1,1,1,'','TACTIVEX - modificar propriedades e metodos ????','Ola,\n\n     Bajé un activex de control (disponible también en DLL) para manipular gráficos - RMCHART. ¿Cómo hacer para manipular las propiedades y los métodos existentes a través de TACTIVEX? \n\nEjemplo: \n\nNombre encontrado a través de OLEVIEW.EXE:\nRMChart.RMChartX\n{E9BE51139-9DF4-40A6-B4F7-B7CB54FE6CD1}\n\n[color=red:2v2jdgbn]Yo usar de este modo\noActivex&#058;TActivex():New(ODLG2, \"RMChart.RMChartX\")[/color:2v2jdgbn]\n\n[code:2v2jdgbn]\nRMC_CreateChart function&#46; \nCreate a new chart \n\n--------------------------------------------------------------------------------\n \nSyntax \n nResult &#40;LONG&#41; = RMC_CreateChart&#40;\nByVal nParentHndl &#40;LONG&#41;,\nByVal nCtrlId &#40;LONG&#41;,\nByVal nX &#40;LONG&#41;,\nByVal nY &#40;LONG&#41;,\nByVal nWidth &#40;LONG&#41;,\nByVal nHeight &#40;LONG&#41;,\nOptional ByVal nBackColor &#40;LONG&#41;,\nOptional ByVal nCtrlStyle &#40;LONG&#41;,\nOptional ByVal nExportOnly &#40;LONG&#41;,\nOptional ByRef sBgImage &#40;ASCIIZ&#41;,\nOptional ByRef sFontName &#40;ASCIIZ&#41;,\nOptional ByVal nToolTipWidth &#40;LONG&#41;,\nOptional ByVal nBitmapBKColor &#40;LONG&#41;\n&#41;\n \n[/code:2v2jdgbn]\n\n[color=red:2v2jdgbn]Yo usar de este modo\nhdc:=odlg2:hwnd\noActivex&#058;DO(\"RMC_CreateChart\",hdc,101,50,50,200,200)[/color:2v2jdgbn]\n\n[code:2v2jdgbn]\ncontrol&#46;RMCBackColor \n--------------------------------------------------------------------------------\nType&#58; Long &#40;RMC_Color constant or any RGB value&#41; \nPurpose&#58; Sets the BackColor of the chart \nDefault&#58; AliceBlue \nAccessible&#58; Design time and runtime \nExample&#58; RMChartX1&#46;RMCBackColor = LightBlue \nRemarks&#58; - \n[/code:2v2jdgbn]\n\n\n[color=red:2v2jdgbn]¿Cómo hacer? \noActivex&#058;SETPROP(\"RMCBackColor\",nRGB(255,121,121))\n\nNo trabaje. \nocurren GPF (el programa ejecutó una - de operación ilegal para enviar el error a Microsoft)\n\n[/color:2v2jdgbn]\n\nGracias.','',0,'AoA=','2v2jdgbn',1,0,'',64,0,0),(28823,6479,3,2,0,'87.218.146.96',1174918519,1,0,1,1,1,1,'','','Enrico is right as usual, you may use the NOBORDER clause <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AoA=','2ja6uodz',1,0,'',2,0,0),(28824,6481,6,278,0,'164.77.219.82',1174918742,1,0,1,1,1,1,'','Menu 0ffice 2003 -XP','Hola Foro:\n\nAlguien puede por favor dejar en algun sitio las [b:1xwhr1hr]ultimas librerias [/b:1xwhr1hr]del Menu XP, ya que el sitio de Arturo Tamayo no funcionan desde hace varios dias. \n\nDe esta forma todos podemos usarla.  Se agradece su ayuda,\n\nJuan','',0,'QA==','1xwhr1hr',1,0,'',278,0,0),(28825,6463,6,278,0,'164.77.219.82',1174919575,1,0,1,1,1,1,'','','José :\n\nlo probé pero usando los tres parametros ( hora, min, seg )\n\ny efectivamente a mi me aumenta de la hora actual en tres horas.\n\nA ver si Antonio nos dice algo ???\n\nSaludos,','',0,'QA==','tam2qpyd',1,0,'',278,0,0),(28826,3054,4,289,0,'84.235.59.155',1174920110,1,0,1,1,1,0,'','','[size=150:2ta0moug][color=green:2ta0moug]Because the deal with the Camera possible with the programs fwppc\nI would end the first experiment on the source. \nThis picture images using the link \"VIDEO 3gp\"\n<!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/fwh_src/test.3gp\">http://www.livesystem.net/fwh_src/test.3gp</a><!-- m -->\nand this link  program  Camera  cam1.exe\n<!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/fwh_src/cam1.exe\">http://www.livesystem.net/fwh_src/cam1.exe</a><!-- m -->\nrun up windows ce 5 \ni testing up \" i-mate jamin \" hi is runing 100%\nregards, \nhathal [/color:2ta0moug][/size:2ta0moug]','',0,'Bg==','2ta0moug',1,0,'',289,0,0),(28827,6463,6,2,0,'87.218.146.96',1174920582,1,0,1,1,1,1,'','','Jose,\n\nLa función SetTime() usa la función del API de Windows SetSystemTime():\n\n&gt;&gt;\nSets the current system time and date. The system time is expressed in Coordinated Universal Time (UTC).\n&gt;&gt;\n\nPosiblemente se debe a que usa UTC, y la hora en tu pais sea UTC-3 (?)','',0,'Bg==','21s94v8s',1,0,'',2,0,0),(28828,6463,6,2,0,'87.218.146.96',1174921166,1,0,1,1,1,1,'','','Posiblemente tengamos que usar estas funciones:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms724949.aspx\">http://msdn2.microsoft.com/en-us/library/ms724949.aspx</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms724421.aspx\">http://msdn2.microsoft.com/en-us/library/ms724421.aspx</a><!-- m -->','',0,'Bg==','2mstj7uw',1,0,'',2,0,0),(28829,6463,6,439,0,'200.125.37.117',1174921257,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:zxfytlqr]Posiblemente tengamos que usar estas funciones:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms724949.aspx\">http://msdn2.microsoft.com/en-us/library/ms724949.aspx</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms724421.aspx\">http://msdn2.microsoft.com/en-us/library/ms724421.aspx</a><!-- m -->[/quote:zxfytlqr]\n\nMuchas gracias por tu ayuda,\nespero que los aires holandeces te hayan sentado bien. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nVoy a chequear y cualquier cosa te digo. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','zxfytlqr',1,0,'',439,0,0),(28830,6445,2,2,0,'87.218.146.96',1174921435,1,0,1,1,1,1,'','','Gerardo,\n\nSe podría hacer, pero ese es un comportamiento muy anti-Windows <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3b4wu79f',1,0,'',2,0,0),(28831,6433,3,6,0,'87.13.209.198',1174922909,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:3qdt8sp0]any way to make sure all the contents of the column get left justified ??[/quote:3qdt8sp0]\n\n[code:3qdt8sp0]oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value &#58;= &quot;\'&quot; + cert-&gt;zip[/code:3qdt8sp0]\n\nEMG','',0,'gIA=','3qdt8sp0',1,0,'',6,0,0),(28832,6452,6,23,0,'213.96.85.49',1174923497,1,0,1,1,1,1,'','','¿Alguna ideaaaa?','',0,'gIA=','333okvub',1,0,'',23,0,0),(28833,6475,6,785,0,'190.64.223.7',1174923935,1,0,1,1,1,0,'','','Muchas gracias Patricio\n\nSaludos\n\nRuben Fernandez.','',0,'gIA=','1e5v0nbj',1,0,'',785,0,0),(28834,6409,6,362,0,'200.168.52.156',1174925095,1,0,1,1,1,1,'','','[quote=&quot;Vital&quot;:3iiys3eg]Antonio\n\nNo me sale un numero , me sale un mensaje\n\nFatal : Access Violation. Link Terminated.\n\nY ya no genera el exe.\n\nSi aumento un dialogo o un icono o lo que sea que le aumente a mi RC me sale este mensaje y no he podido pasar de alli.\n\nGracias.[/quote:3iiys3eg]\n\n\nMUI SENCILLO...\n\nTUS ARCHIVOS.RES SOLO PUEDEN TENER EN EL MAXIMO, 1.052.000 BYTES, NO MÁS.\n\nUSES CUANTOS ARCHIVOS.RES NECESARIOS FUEREN!  \n\nSaludos.','',0,'gA==','3iiys3eg',1,0,'',362,0,0),(28835,6433,3,35,0,'167.7.140.254',1174925472,1,0,1,1,1,0,'','','Enrico\n\nIn my haste to get my problem posted .. I made an error .. the field lengths for the column in question ( reg_no) is C 7 .. any time I run into an alpha-numeric .. here is what happends:\n\n_2306753\n200A118_\n\nThe _ ( underscore ) represents leeding and trailing spaces .. I do not want the 2nd number behavoir.\n\nI do not understand your \"\'\" syntax ?? \n\nRick Lipkin','',0,'gA==','1u5pns25',1,0,'',35,0,0),(28836,6433,3,6,0,'87.13.209.198',1174926056,1,0,1,1,1,1,'','','Right alignment of string containing digits is automatic in Excel:\n\n[code:13ordh69]oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value &#58;= &quot;12345&quot;[/code:13ordh69]\n\nEMG','',0,'AIA=','13ordh69',1,0,'',6,0,0),(28837,6470,3,879,0,'65.92.174.8',1174926083,1,0,1,1,1,0,'','','Antonio\n\nI replaced the previous config  with the new one above.\n\nNear the top you seea new variable \"Harbour Type\" and further down \"3rd Party Libs.\"\n\nOne question. I first thought you were looking for a config file to build FiveWin and Text Console applications. Then I thought you meant to build Harbour or xHarbour FiveWin applications.\n\nIf you also need the Text Console config script I will add it also.\n\nRegards,\n\nKen','',0,'AIA=','13jtrwne',1,0,'',879,0,0),(28838,6433,3,6,0,'87.13.209.198',1174926151,1,0,1,1,1,1,'','','Otherwise, if you want left alignment:\n\n[code:3gqro3ye]oSheet&#58;Cells&#40; nRow, 1 &#41;&#58;Value &#58;= &quot;\'12345&quot;[/code:3gqro3ye]\n\nEMG','',0,'AIA=','3gqro3ye',1,0,'',6,0,0),(28839,6466,3,148,0,'196.205.180.132',1174927064,1,0,1,1,1,0,'','','I was writing setup compiler script (Inno) and I faced error of not founding DBF. Error description: Error ADSCDX/5004 Open error: cust\n\nI was adviced from Inno community to read this :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.jrsoftware.org/isfaq.php#workingdir\">http://www.jrsoftware.org/isfaq.php#workingdir</a><!-- m -->','',0,'AIA=','1yfgoz6t',1,0,'',148,0,0),(28840,2548,3,303,0,'72.199.41.171',1174927214,1,0,1,1,1,0,'','','Don,\n\nSearch google for this phrase, \"printing from windows service\" and look at the first article listed. I think it will answer your question.\n\nJames','',0,'AIA=','290cmpn8',1,0,'',303,0,0),(28841,6433,3,35,0,'167.7.140.254',1174927331,1,0,1,1,1,0,'','','Enrico\n\nThe problem is when I have a mix of alpha and numeric ?? ..  The right justification is what I want for all values .. what happends is when there is a mix .. that value gets left justified and adds a trailing blank .. throwing the entire column out of wack ..\n\nRick','',0,'AIA=','1p89q9so',1,0,'',35,0,0),(28842,6467,6,891,0,'148.243.37.162',1174927483,1,0,1,1,1,0,'','Esta es la instrucción','[quote=&quot;Manuel Valdenebro&quot;:2bkqxers][quote=&quot;Raymundo Islas M.&quot;:2bkqxers]\nAsi lo he usado y hace exactamente lo que quieres hacer.\n[/quote:2bkqxers]\n\nRay,\n\nYo entiendo que lo que Manuel quiere es otra cosa. Tiene un campo clave (por ejemplo, ciudad) y tiene ordenado por este campo la base de datos:\n\nALICANTE\nALICANTE\nALICANTE\n[b:2bkqxers]BARCELONA\nBARCELONA[/b:2bkqxers]\nMALAGA\nMALAGA\nMALAGA\n\nLo que yo entiendo que quiere ( y es muy interesante), es que cada vez que el listbox cambie de ciudad (el bloque de registros) cambie el color.\nCreo que con el método del \"llenado\" la cosa sería complicada, sobretodo, si desde el listbox modificaramos los datos.[/quote:2bkqxers]\n\noLbx:bTextColor  := {|nRow,nCol,nStyle| IF(nCol=4 .AND.;\n                                           nStyle=0 .AND. ;\n                       S96-&gt;REFERE=ALLTRIM(cBuscPal),CLR_GREEN,)}','',0,'wA==','2bkqxers',1,0,'',891,0,0),(28843,6457,3,303,0,'72.199.41.171',1174927491,1,0,1,1,1,0,'','','Arindam,\n\n&gt;FWH default editor\n\nWhat default editor? PRG\'s are just text files, you should be able to open them with Notepad or even Word. Perhaps they are all corrupted?\n\nJames','',0,'wA==','37vnrtep',1,0,'',303,0,0),(28844,6482,6,37,0,'201.230.92.180',1174927831,1,0,1,1,1,1,'','Debe ser sencillo, pintar fecha en Castellano','Saludos,\nPongo esta linea al inicio de mi programa \"REQUEST HB_LANG_ES\" que esta hecho con xH 99.71 y FWH 7.01 , pero al usar CMONTH y CDOW los resultados me siguen saliendo en ingles.\nPor favor como hacer que los mensajes salgan en castellano.\nGracias','',0,'wA==','3jp01dk4',1,0,'',37,0,0),(28845,6433,3,35,0,'167.7.140.254',1174928422,1,0,1,1,1,0,'','','Enrico\n\nIs there a method like : \n\noSheet:Columns( \"A:L\" ):Justify() .. \n\nI tried this but it produced a run-time error .. \n\nRick Lipkin','',0,'wA==','1fih3rgo',1,0,'',35,0,0),(28846,6433,3,6,0,'87.13.209.198',1174928580,1,0,1,1,1,1,'','','[code:jav7jho8]#define xlRight -4152\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel, oSheet\n\n    oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    oSheet = oExcel&#58;ActiveSheet\n\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Value = &quot;This is a test&quot;\n    oSheet&#58;Cells&#40; 2, 1 &#41;&#58;Value = &quot;This is a long test&quot;\n    oSheet&#58;Cells&#40; 3, 1 &#41;&#58;Value = &quot;12345&quot;\n\n    oSheet&#58;Columns&#40; &quot;A&#58;B&quot; &#41;&#58;AutoFit&#40;&#41;\n\n    oSheet&#58;Columns&#40; &quot;A&#58;B&quot; &#41;&#58;HorizontalAlignment = xlRight\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:jav7jho8]\n\nEMG','',0,'AIA=','jav7jho8',1,0,'',6,0,0),(28847,2548,3,167,0,'207.119.126.13',1174928956,1,0,1,1,1,1,'','','Thanks.\n\nCurrently I perform my printing using a .pdf tool that I think you may have alerted me about.\n\nImage2PDF.dll  --  works wonderfully.  I use the FWH report object - modified 2 lines of code to control the location and names of the .emf files, and then convert to .pdf documents and deliver via the web.\n\nI will checkout your link as well.','',0,'AIA=','1nwf3rr7',1,0,'',167,0,0),(28848,6467,6,492,0,'189.147.26.143',1174929006,1,0,1,1,1,1,'','','Hola, como se dice : una imagen vale mas que mil palabras  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nA esto me refiero, no se si es lo que Manuel desea.\n\n[img:11nkv91l]http&#58;//img116&#46;imageshack&#46;us/img116/6681/brw2clrdz6&#46;jpg[/img:11nkv91l]\n\n\nA diferencia del color alternado por registro, este browse cambia el color por X numero de registros que contenga una poliza.\n\n\nSaludos a todos','',0,'CA==','11nkv91l',1,0,'',492,0,0),(28849,6482,6,110,0,'148.168.40.4',1174929927,1,0,1,1,1,1,'','','al inicio de la app pon\n\n\nhb_setlanguage(\"ES\")\n\nbuscate info sobre esta funcion y sus parametros\n\nsalu2\ncarlos vargas','',0,'CA==','j8zbcj7z',1,0,'',110,0,0),(28850,6483,7,95,0,'189.155.151.98',1174930004,1,0,1,1,1,0,'','MC1000','Estimados \nEl mismo programa para la MC3000 funciona para la MC1000\n\nSe que no es gran cosa, pero anexo el programa de como quedo.\n\nSaludos\n\n\n#include \"fwce.ch\"\n#include \"hbclass.ch\"\n#include \"Directry.ch\"\n\n#define crlf chr(13)+chr(10)\n#define CRLF chr(13)+chr(10)\n#define CR chr(13)\n\n#pragma comment (lib,\"scnapi32\")\n\nFUNCTION Main()\n* begin\n\n  PRIVATE oWnd\n  PRIVATE nCant := 1 , oCant\n  PRIVATE nCantUltimo := 1 , oCantUltimo\n\n  PRIVATE oMsg , oMsgUltimo\n  PRIVATE cBarCode := space(13) , oBarCode\n  PRIVATE nContador := 0 , oContador\n  PRIVATE nContador2 := 0 , oContador2\n  PRIVATE cCurDir := curdir()\n  PRIVATE aTemp_file := {}\n\n  IF StillRun(\"Toma-Facil++ V1.0\")\n     Quit\n  ENDIF\n\n  if ! file( cCurDir+\"INVENTA.DBF\")\n    aadd( aTemp_file , { \"BARCODE\",\"C\",13,0} )\n    aadd( aTemp_file , { \"INVENTARIO\" ,\"N\",08,0} )\n    aadd( aTemp_file , { \"FECHA\" ,\"D\",08,0} )\n    aadd( aTemp_file , { \"HORA\" ,\"C\",08,0} )\n    create_tmp_file( aTemp_file , cCurDir , \"inventa.dbf\" )\n  endif\n\n  if ! file( cCurDir+\"INVENTA.DBF\")\n    msginfo(\"Base de datos no pudo se creada.\")\n    close all\n    return\n  endif\n\n  use ( cCurDir +\"INVENTA.DBF\" ) alias INVENTA\n  index on upper( barcode ) to ( cCurDir+\"INVENTA.NTX\" )\n  set order to 1\n  go top\n\n\n\n  DEFINE WINDOW oWnd TITLE \"Toma-Facil++ V1.0\"\n\n  @ 1.0,02 SAY \"Cantidad :\" SIZE 70, 20\n  @ 1.0,12 GET oCant VAR nCant picture \"99999\" VALID CheckCant() SIZE 40, 20\n  @ 2.3,02 SAY \"Codigo   :\" SIZE 70, 20\n  @ 2.5,12 GET oBarCode VAR cBarcode picture \"@!\" VALID CheckBarCode() SIZE 120, 20\n\n  @ 04.0,02 SAY oMsgUltimo  VAR \"Ultimo :                 Cant:\" SIZE 400, 20\n  @ 06.5,02 SAY oContador   VAR \"Piezas:\"  SIZE 200, 20\n  @ 08.0,02 SAY oContador2  VAR \"Codigos:\" SIZE 200, 20\n\n* @ 08.5,02 SAY oMsg       VAR \"Msg :\" SIZE 400, 20\n\n  @ 08.5,22 BUTTON \"Terminar\" SIZE 80, 30 ACTION oWnd:END()\n\n  ACTIVATE WINDOW oWnd on Init BuildTimer( oWnd )\n\n\nRETURN NIL\n\nprocedure BuildTimer( oWnd )\n* Begin\n  Define Timer oTimer Interval 1000 Action CheckBattery() OF oWnd\n  Activate Timer oTimer\nreturn\n\nfunction CheckBattery()\n  If BatteryLife () &lt; 10\n    oMsg:VarPut( \"!! Bateria Baja, Grabe su informacion.!!\")\n    oMsg:refresh()\n  endif\nreturn .t.\n\n\nFUNCTION CheckCant()\n* begin\n  LOCAL cFile , cRet , nActual := 0 , lReturn := .F.\n\n  IF  oCant:nLastKey = 13\n\n    cBarCode := \"\"\n    cRet := SCAN_OPEN()\n    IF valtype( cRet ) = \"C\"\n      cRet := strtran( cRet , chr(0),\"\" )\n      FOR i := 1 TO len( cRet )\n        IF substr(cRet,i,1) $\"abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890+-/\"\n          cBarCode += substr(cRet,i,1)\n        ENDIF\n      NEXT\n    ENDIF\n\n    cBarCode := alltrim(cBarcode)+space(13-len(alltrim(cBarcode)))\n\n    IF ! empty( cBarCode )\n\n      if INVENTA-&gt;(DbSeek( cBarcode))\n         replace INVENTA-&gt;inventario with INVENTA-&gt;inventario + nCant\n      else\n         INVENTA-&gt;(DbAppend())\n         replace INVENTA-&gt;barcode with cBarcode\n         replace INVENTA-&gt;inventario with nCant\n      endif\n      replace INVENTA-&gt;fecha with date()\n      replace INVENTA-&gt;hora  with time()\n\n      nContador += nCant\n      oContador:VarPut(\"Piezas:\"+transform(nContador,\"999\"))\n      oContador:refresh()\n\n      nContador2 += 1\n      oContador2:VarPut(\"Codigos:\"+transform(nContador2,\"999\"))\n      oContador2:refresh()\n\n      oCant:VarPut(1)\n      oCant:refresh()\n\n      oBarCode:VarPut( space(15))\n      oBarCode:refresh()\n\n      oMsgUltimo:VarPut(\"Ultimo:\"+alltrim(cBarCode)+\" Cant:\"+transform(nCant,\"999\"))\n      oMsgUltimo:refresh()\n\n    ENDIF\n  ELSE\n    lReturn  := .T.\n  ENDIF\nRETURN lReturn\n\nFUNCTION CheckBarCode()\n* begin\n  LOCAL cFile , cRet , nActual := 0 , lReturn := .F. , nHandle , cTxt\n\n  IF oBarCode:nLastKey = 38\n    oBarCode:oJump := oCant\n    RETURN .T.\n  ENDIF\n\n  if oBarCode:nLastKey = 13\n    cBarCode := alltrim(cBarcode)+space(13-len(alltrim(cBarcode)))\n    if INVENTA-&gt;(DbSeek( cBarcode))\n      replace INVENTA-&gt;inventario with INVENTA-&gt;inventario + nCant\n    else\n      INVENTA-&gt;(DbAppend())\n      replace INVENTA-&gt;barcode with cBarcode\n      replace INVENTA-&gt;inventario with nCant\n    endif\n    replace INVENTA-&gt;fecha with date()\n    replace INVENTA-&gt;hora  with time()\n\n    nContador += nCant\n    oContador:VarPut(\"Piezas:\"+transform(nContador,\"999\"))\n    oContador:refresh()\n\n    nContador2 += 1\n    oContador2:VarPut(\"Codigos:\"+transform(nContador2,\"999\"))\n    oContador2:refresh()\n\n    oCant:VarPut(1)\n    oCant:refresh()\n\n    oBarCode:VarPut( space(15))\n    oBarCode:refresh()\n\n    oMsgUltimo:VarPut(\"Ultimo:\"+cBarCode+\" Cant:\"+transform(nCant,\"999\"))\n    oMsgUltimo:refresh()\n\n\n    oCant:VarPut(1)\n    lReturn := .T.\n  endif\n\n  IF lReturn\n    oBarCode:oJump := oCant\n  ENDIF\n\nRETURN lReturn\n\n\n* Funciones que no corren en Symbol MC3000\nFUNCTION cesetmenu()  ; RETURN NIL\nFUNCTION getmenu()    ; RETURN NIL\nFUNCTION readbitmap() ; RETURN NIL\nFUNCTION palbmpread() ; RETURN NIL\n\n****************************************************************************************************\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\n#include &lt;Scancapi.h&gt;\n#include &lt;mmsystem.h&gt;\n#include &lt;uniqueid.h&gt;\nLPWSTR AnsiToWide( LPSTR );\n#define BUFFER_SIZE       7095\n#define DEFAULT_TIMEOUT   10000\n\nLPSCAN_BUFFER        lpScanBuffer          = NULL;\nBOOL                 bUseText              = TRUE;\nDWORD                dwScanSize            = 7095;\nDWORD                dwScanTimeout         = 0;\n\n\nHANDLE hScanner                = NULL;\nTCHAR  szScannerName[MAX_PATH] = TEXT(\"SCN1:\");\nDWORD  dwResult  ;\nCHAR   Buffer    ;\nUINT   uMsg      ;\nDWORD  dwTimeout ;\n\nHB_FUNC( SCAN_OPEN )\n {\n  dwResult = SCAN_Open( szScannerName, &amp;hScanner );\n  if ( dwResult == E_SCN_SUCCESS )\n   {\n     dwResult = SCAN_Enable( hScanner );\n     if ( dwResult == E_SCN_SUCCESS )\n      {\n        BOOL state = TRUE;\n        dwResult = SCAN_SetSoftTrigger(hScanner, &amp;state);\n        if (dwResult == E_SCN_SUCCESS)\n         {\n          // allocate a new scan buffer\n          lpScanBuffer = SCAN_AllocateBuffer(TRUE /* data as chars */, BUFFER_SIZE);\n          if (lpScanBuffer)\n           {\n            dwResult = SCAN_ReadLabelWait(hScanner, lpScanBuffer, DEFAULT_TIMEOUT);\n            if (dwResult == E_SCN_SUCCESS)\n             {\n              hb_retclen( (char *)SCNBUF_GETDATA(lpScanBuffer),28);\n             }\n           }\n           SCAN_DeallocateBuffer(lpScanBuffer);\n         }\n         state = FALSE;\n         SCAN_SetSoftTrigger(hScanner, &amp;state);\n      }\n     else\n      {\n        MessageBox( GetActiveWindow(), L\"Error en SCAN_Enable\", L\"Ok\", 0 );\n      }\n   }\n  else\n   {\n    MessageBox( GetActiveWindow(), L\"Error en SCAN_Open\", L\"Ok\", 0 );\n   }\n\n}\n\n\nHB_FUNC (STILLRUN)\n {\n HWND hWnd;\n BOOL lRet = FALSE;\n LPWSTR pW = AnsiToWide( hb_parc( 1 ) );\n hWnd = FindWindow ( NULL,pW);\n if (hWnd)\n {\n  SetForegroundWindow ((HWND) ((ULONG) hWnd |0x01));\n  lRet = TRUE;\n }\n hb_retl( lRet );\n\n}\n\nHB_FUNC (BATTERYLIFE)\n{\n   BOOL iRet;\n   SYSTEM_POWER_STATUS_EX status;\n   iRet = GetSystemPowerStatusEx (&amp;status, TRUE);\n\n   hb_retnl ((INT) status.BatteryLifePercent);\n}\n\nHB_FUNC (BATTERYINFO)\n\n{\n   BOOL iRet;\n   SYSTEM_POWER_STATUS_EX status;\n   iRet = GetSystemPowerStatusEx (&amp;status, TRUE);\n\n   hb_reta (9);\n   hb_stornl ((INT) status.ACLineStatus, -1, 1);\n   hb_stornl ((INT) status.BatteryFlag, -1, 2);\n   hb_stornl ((INT) status.BatteryLifePercent, -1, 3);\n   hb_stornl ((ULONG) status.BatteryLifeTime, -1, 4);\n   hb_stornl ((ULONG) status.BatteryFullLifeTime, -1, 5);\n   hb_stornl ((INT) status.BackupBatteryFlag, -1, 6);\n   hb_stornl ((INT) status.BackupBatteryLifePercent, -1, 7);\n   hb_stornl ((ULONG) status.BackupBatteryLifeTime, -1, <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->;\n   hb_stornl ((ULONG) status.BackupBatteryFullLifeTime, -1, 9);\n}\n\n#pragma ENDDUMP\n\nFUNCTION create_tmp_file( aFields , cPath , cName )\n* Begin\n  LOCAL temp\n  temp := cPath\n  temp := temp+cName\n  DbCreate( temp , aFields , \"DBFNTX\" )\nRETURN temp','',0,'','rdouf7re',1,0,'',95,0,0),(28851,6475,6,110,0,'148.168.40.4',1174930012,1,0,1,1,1,1,'','','en el sitio de google\npodria allar una app que desarrollo RF\nque pasa dbf e indices \n\n\nsalu2\ncarlos vargas','',0,'','qjdkq6l5',1,0,'',110,0,0),(28852,6484,6,278,0,'164.77.219.82',1174930052,1,0,1,1,1,1,'','Animaciones en FW','Hola Foro:\n\nEstoy tratando de poner una animación AVI pequeña, dentro de un dialogo, usando el control Animate del PellesC.\n\nEl  problema que tengo es que no se donde asignarle el nombre del archivo avi que quiero mostrar. \n\n[b:36dru2qm]  Alguien sabe como ???  [/b:36dru2qm]\n\nHe visto el ejemplo que ahy en win32.prg , pero ahi se llama a unas funciones , ejemplo  oAnimate:Search().\n\nEl problema es que no se donde le asignan la animación para search ??\n\nEn las porpiedades del PellesC, no aparece como asignarla.\n\n\nAlgun comentario ????  , saludos','',0,'QA==','36dru2qm',1,0,'',278,0,0),(28853,6433,3,35,0,'167.7.140.254',1174931444,1,0,1,1,1,0,'','','[size=200:2ku03im9]PERFECT !!![/size:2ku03im9]\n\nNever in a million years would I have figured that one out .. \n\n[size=200:2ku03im9]THANK YOU !![/size:2ku03im9]\n\nRick Lipkin','',0,'BA==','2ku03im9',1,0,'',35,0,0),(28854,6433,3,6,0,'87.13.209.198',1174931629,1,0,1,1,1,1,'','','But keep in mind that this is only an alignment and data extracted from the sheet remains the same.\n\nEMG','',0,'BA==','3rjmgpte',1,0,'',6,0,0),(28855,6433,3,35,0,'167.7.140.254',1174931860,1,0,1,1,1,0,'','','Enrico\n\nOur SQL loader apparently looks for \'right justification\' .. and when it saw some of the alpha-numeric values shifted to the left with a trailing space it failed ..\n\nI have asked our DBA to re-try the latest conversion .. the file \'looks\' GREAT\'\n\nI will know later this afternoon..\n\nThanks\nRick Lipkin','',0,'BA==','s3apwwlj',1,0,'',35,0,0),(28856,6485,6,95,0,'189.155.151.98',1174933141,1,0,1,1,1,0,'','Iniciando con Mac','Antonio\n\ncomo puedo compilar y encadenar varios prg\'s\n\nSaludos\nOsvaldo Ramirez','',0,'BA==','12iuz3pn',1,0,'',95,0,0),(28857,6485,6,95,0,'189.155.151.98',1174933382,1,0,1,1,1,0,'','','La otra, como puedo hacer lib o no se como se llamane en Mac\n\nSaludos y mil gracias por el apoyo\nOsvaldo Ramirez','',0,'BA==','121tiwlv',1,0,'',95,0,0),(28858,6483,7,2,0,'87.218.146.96',1174933858,1,0,1,1,1,1,'','','Osvaldo,\n\ngracias por la información <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'BA==','3tgmi40d',1,0,'',2,0,0),(28859,6475,6,785,0,'190.64.222.135',1174933969,1,0,1,1,1,0,'','','Muchas gracias Carlos.\n\n\nSaludos\n\nRuben Fernandez','',0,'BA==','2k4khv7y',1,0,'',785,0,0),(28860,6485,6,2,0,'87.218.146.96',1174934082,1,0,1,1,1,1,'','','Osvaldo,\n\nPara compilar varios PRGs, compilas cada uno por separado llamando a Harbour y luego a gcc otro.c -c ...\n\ny a la hora de enlazar especificas todos los OBJs a usar:\n\ngcc $1.o otro.o -o ...\n\nMás sencillo aún es que al final de tu PRG principal hagas #include \"otro.prg\". No es muy técnico, pero funciona <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'BA==','1gyh43nl',1,0,'',2,0,0),(28861,6485,6,2,0,'87.218.146.96',1174934268,1,0,1,1,1,1,'','','Para crear una librería haz:\n\nar rc libmilibreria.a modulo.o\n\nrc significa: r (reemplaza módulo), c (créala si no existe)\n\nlas librerías en OSX, igual que en Linux, comienzan por \"lib\" y tienen la extensión .a, pero son librerías como las LIB de Windows, a todos los efectos','',0,'BA==','1fvj0l6d',1,0,'',2,0,0),(28862,6452,6,2,0,'87.218.146.96',1174934358,1,0,1,1,1,1,'','','Angel,\n\nNosotros nunca hemos probado el crear servicios. \n\nPosiblemente en google puedas encontrar información útil','',0,'BA==','id922smz',1,0,'',2,0,0),(28863,6484,6,2,0,'87.218.146.96',1174934489,1,0,1,1,1,1,'','','Juan,\n\nTienes un ejemplo en samples\\copyfile.prg','',0,'BA==','3en93xqf',1,0,'',2,0,0),(28864,6470,3,2,0,'87.218.146.96',1174934616,1,0,1,1,1,1,'','','Ken,\n\nOk, thanks\n\nNo, text console applications are not needed (for FWH)','',0,'BA==','3p3yhfvh',1,0,'',2,0,0),(28865,6486,3,217,0,'200.159.120.34',1174936182,1,0,1,1,1,0,'','Time to display tooltip','Is possible configure the time that system wait for no movements of mouse to display tooltip?\nMy intention is reduce this time...\n\nRegards\nMaurilio','',0,'BA==','1kanz7zw',1,0,'',217,0,0),(28866,6485,6,95,0,'189.155.151.98',1174936928,1,0,1,1,1,0,'','','Muchas gracias Antonio\n\nTe ofresco una disculpa de antemano por las preguntas.\n\n1.- Algun manual de las funciones que ofrece FiveMac y/o harbour ?\n\nAhorita estoy buscando informacion de archivos INI, baje uno de oasis y lo estoy tratando de compilar\n\n2.- Si tienes algun sitio para buscar codigo e inicar a ver lo de ftp,odbc+mysql,smtp.\n\nSaludos y gracias.\nOsvaldo Ramirez','',0,'BA==','253dz81s',1,0,'',95,0,0),(28867,6477,6,279,0,'189.162.46.51',1174937288,1,0,1,1,1,0,'','','El problema no son los dias yo tengo que hacer la renovación de una fecha :\n\nejemplo: 26/03/2007\n\nCon la opcion que tenia solo ponia add_m( fecha,12) y me aumenta los 12 meses y en forma automatica me da el nuevo año:\n\nResultado 23/03/2008 \n\nEl problema con los dias es que tendrias que sumas los dias del años para aumentarlos para que sea exacto.\n\nSI pongo fecha + 365 la fecha que me da no es 23/03/2008 es 20 o 21\n\nPor so queria ver si existe algo solo para poner fecha y mes * año','',0,'BA==','3nwxxxzv',1,0,'',279,0,0),(28868,6487,3,148,0,'196.205.180.132',1174937306,1,0,1,1,1,0,'','control for hot pick','Is there is a control for hotpick in FWH ?','',0,'BA==','19bmwok3',1,0,'',148,0,0),(28869,5567,6,426,0,'87.218.187.143',1174937867,1,0,1,1,1,0,'','Alternativa de alojamiento','Arturo,\n\nhasta que resuelvas el tema de tu página, que opinas de subir el archivo a \n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net\">http://www.box.net</a><!-- m -->\n\n?\n\nEs gratis hasta 1Gb., lo que se me ocurre suficiente para las necesidades básicas de distribución.\n\nUn saludo y aprovecho la ocación para felicitarte por el trabajo.\n\nCarlos','',0,'BA==','18i6avgn',1,0,'',426,0,0),(28870,6456,6,426,0,'87.218.187.143',1174938272,1,0,1,1,1,0,'','Re: Gracias, Funciona igual','[quote=&quot;jhugono&quot;:1r8d8w5z]Gracias por tu Aportacion, el resuldado es el mismo.\nEl codigo es el siguiente;\n\naCamp := { A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\nredefine ListBox oLbx ;\n         FIELDS      \"\"  ;\n         FIELDSIZES  50, 50, 50 ;\n         HEADERS     \"Semana\", \"C1\", \"C2\" ;\n         ID 301 OF oDlg UPDATE\n\n         oLbx:cAlias := \"A06PRES\"\n         oLbx:bLine  := {|| aCamp }[/quote:1r8d8w5z]\n\nCreo que estás cometiendo un error conceptual.  {|| aCamp } te retornará siempre el array que se evaluó en el momento que lo declaraste, por eso los resultados que obtienes.\n\nPara explicarme mejor: cuando declaraste \naCamp := { A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\nlo que hiciste fue crear un array de 3 elementos que contendran los valores de los campos  EN ESE MOMENTO, por ejemplo { \'soyelcampo3\', \'soyel1\', \'soyel2peromecreoel3\' }\nEso quedará fijo! Luego, si \n\nbline:= {||acamp} \n\nentonces cada vez que se evalue bline retornara una referencia al campo original.\n\nla declaración correcta sería\n\noLbx:bLine := { || A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\ny con eso te aseguro funciona.\n\nSaludos,\n\ncarlos.','',0,'gA==','1r8d8w5z',1,0,'',426,0,0),(28871,6486,3,303,0,'72.199.41.171',1174939173,1,0,1,1,1,0,'','','Maurilio,\n\n&gt;Is possible configure the time that system wait for no movements of mouse to display tooltip?\n\nYes. See TWindow:nToolTip. It defaults to 900.\n \n&gt;My intention is reduce this time...\n\nI would advise against it. Users are only novices for a very short time. Advanced users are going to be annoyed by the tooltips popping up when they don\'t want them to. At the very least you should make this a user settable option, but even with that, most users are going to realize they can set it.\n\nJames','',0,'gA==','2s0l6vgg',1,0,'',303,0,0),(28872,6433,3,35,0,'167.7.140.254',1174939233,1,0,1,1,1,0,'','','Enrico\n\nBad news <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .... the loader see\'s the ( ole ) reg_no column as a double type .. when I ( manually ) take the .dbf table into Excel and then save out as .xls .. the Excel file loads perfectically.  \n\nFor some odd reason .. Excel formats the reg_no column as numeric even though it containes both charactor and numeric ?? The sql loader is configured a varchar.\n\nBack to square one ..At a loss here.\n\nRick Lipkin','',0,'gA==','n2fqirgl',1,0,'',35,0,0),(28873,6477,6,875,0,'64.76.108.179',1174941139,1,0,1,1,1,0,'','','Primero:\n---------\nA ver no entiendo Si yo le sumo 12 meses(1 año) a 26/03/2007, es igual a 26/03/2008,  ¿porque la funcion add_m( fecha,12) te da 23/03/2008?\n\nSegundo:\n----------\nLo que yo hago cuando quiero sumarle 1 año(12 meses) auna fecha hago lo siguiente\n\nFecha:=Ctod(\'26/03/2007\')\nFecha:=Dtoc(Fecha)\nFecha:=Ctod(Subs(Fecha,1,6)+Str(Val(Right(Fecha,4))+1,4))\n\nentonces Fecha=\'26/03/2008\'\n\n\n\n\nAtentamente Jaime','',0,'gA==','39zedu5u',1,0,'',875,0,0),(28874,6433,3,6,0,'87.13.209.198',1174941596,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:1anvag2x]Enrico\n\nBad news <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .... the loader see\'s the ( ole ) reg_no column as a double type ..[/quote:1anvag2x]\n\nSorry, I don\'t know what reg_no column is.\n\n[quote=&quot;Rick Lipkin&quot;:1anvag2x]For some odd reason .. Excel formats the reg_no column as numeric even though it containes both charactor and numeric ?? The sql loader is configured a varchar.[/quote:1anvag2x]\n\nThen, as I previously said, try to prefix it with a single quote \"\'\".\n\nEMG','',0,'gA==','1anvag2x',1,0,'',6,0,0),(28875,6477,6,875,0,'64.76.108.179',1174942099,1,0,1,1,1,0,'','','Primero:\n---------\nA ver no entiendo Si yo le sumo 12 meses(1 año) a 26/03/2007, es igual a 26/03/2008,  ¿porque la funcion add_m( fecha,12) te da 23/03/2008?\n\nSegundo:\n----------\nLo que yo hago cuando quiero sumarle 1 año(12 meses) auna fecha hago lo siguiente\n\nFecha:=Ctod(\'26/03/2007\')\nFecha:=Dtoc(Fecha)\nFecha:=Ctod(Subs(Fecha,1,6)+Str(Val(Right(Fecha,4))+1,4))\n\nentonces Fecha=\'26/03/2008\'\n\n\n\n\nAtentamente Jaime','',0,'gA==','1o56b1a9',1,0,'',875,0,0),(28876,6486,3,217,0,'200.159.120.34',1174942477,1,0,1,1,1,0,'','','&gt;&gt; Yes. See TWindow:nToolTip. It defaults to 900.\n\nThanks, James!!!\n\n&gt;&gt; you should make this a user settable option\n\nYes, I think put it in a configuration menu.\n\nThanks again!\nMaurilio','',0,'gA==','3moclzf9',1,0,'',217,0,0),(28877,6484,6,278,0,'164.77.219.82',1174944874,1,0,1,1,1,1,'','','Gracias Antonio por la ayuda.\n\nUna consulta  funciona el control Animate del pellesc en FWH ???\n\nSaludos,','',0,'gA==','2gbvrl5n',1,0,'',278,0,0),(28878,6487,3,2,0,'87.218.146.119',1174945275,1,0,1,1,1,1,'','','Ehab,\n\nWhat is it a hotpick control ? Please post an image','',0,'gA==','1pnpihm7',1,0,'',2,0,0),(28879,6485,6,2,0,'87.218.146.119',1174945534,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; Te ofresco una disculpa de antemano por las preguntas. \n\nTodas las preguntas son bienvenidas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; 1.- Algun manual de las funciones que ofrece FiveMac y/o harbour ? \n\nHarbour es el mismo que en Windows y al ser compatible con Clipper, te sirve la documentación de Clipper\n\nEn cuanto a la documentación de FiveMac, de momento tienes que revisar el código fuente (clases y funciones) que se proporciona. En próximos builds se incluirá la documentación.\n\n&gt;\nAhorita estoy buscando informacion de archivos INI, baje uno de oasis y lo estoy tratando de compilar \n&gt;\n\nSiendo código Clipper deberías poder compilarlo y usarlo en Mac sin problemas\n\n&gt;\n2.- Si tienes algun sitio para buscar codigo e inicar a ver lo de ftp,odbc+mysql,smtp. \n&gt;\n\nNo, de momento no tenemos ninguna dirección que ofrecerte. Sólo sugerirte el buscar en google y ver que encontramos...','',0,'gA==','3kfo9i4e',1,0,'',2,0,0),(28880,6467,6,180,0,'83.40.40.228',1174945779,1,0,1,1,1,0,'','','Muchas gracias, Raymundo. Es lo que buscaba. Me pongo a ello ahora mismo.\n\nUn saludo,\nManuel','',0,'gA==','r3wob272',1,0,'',180,0,0),(28881,6484,6,2,0,'87.218.146.119',1174945838,1,0,1,1,1,1,'','','Juan,\n\nDebería funcionar sin problemas usando el método:\n\noAnimate := TAnimate():ReDefine( nId, oDlg )\n\nen donde nId es el identificador del control en la caja de diálogo\n\nPosteriormente puedes asignarle el fichero a animar con:\n\nACTIVATE DIALOG oDlg ;\n   ON INIT oAnimate:Open( cAvi )','',0,'gA==','38ru8lsf',1,0,'',2,0,0),(28882,6488,6,207,0,'189.158.95.180',1174945997,1,0,1,1,1,0,'','ADSISSHARED,ADSISREADONLY,ISSHARED,ISREADONLY EN TDBFH','Me ha sido imposible hasta el momento estrenar mi FW701, porque la tdbfh, no encuentra estas funciones, alguien podria decime que hacer, El caso es que la version que tengo Fw24 funciona perfecto. Yarecompila mi tdbf con el xharbour que trae el cd de fw701 . ayuda por favor...','',0,'gA==','21cparqk',1,0,'',207,0,0),(28883,6477,6,875,0,'64.76.108.179',1174946640,1,0,1,1,1,0,'','','Primero:\n---------\nA ver no entiendo Si yo le sumo 12 meses(1 año) a 26/03/2007, es igual a 26/03/2008,  ¿porque la funcion add_m( fecha,12) te da 23/03/2008?\n\nSegundo:\n----------\nLo que yo hago cuando quiero sumarle 1 año(12 meses) auna fecha hago lo siguiente\n\nFecha:=Ctod(\'26/03/2007\')\nFecha:=Dtoc(Fecha)\nFecha:=Ctod(Subs(Fecha,1,6)+Str(Val(Right(Fecha,4))+1,4))\n\nentonces Fecha=\'26/03/2008\'\n\n\n\n\nAtentamente Jaime','',0,'gA==','1pfvmnyo',1,0,'',875,0,0),(28884,6477,6,875,0,'64.76.108.179',1174946694,1,0,1,1,1,0,'','','Primero:\n---------\nA ver no entiendo Si yo le sumo 12 meses(1 año) a 26/03/2007, es igual a 26/03/2008,  ¿porque la funcion add_m( fecha,12) te da 23/03/2008?\n\nSegundo:\n----------\nLo que yo hago cuando quiero sumarle 1 año(12 meses) auna fecha hago lo siguiente\n\nFecha:=Ctod(\'26/03/2007\')\nFecha:=Dtoc(Fecha)\nFecha:=Ctod(Subs(Fecha,1,6)+Str(Val(Right(Fecha,4))+1,4))\n\nentonces Fecha=\'26/03/2008\'\n\n\n\n\nAtentamente Jaime','',0,'gA==','2b7c8b0d',1,0,'',875,0,0),(28885,6482,6,875,0,'64.76.108.179',1174947310,1,0,1,1,1,0,'','','Que yo sepa el CMONTH y CDOW siempre muestras sus valores en INGLES,  yo uso mi propia funcion para tener los valores en Español.\nCrea 2 Arreglos uno de 7(para los dias)  y otro de 12 para los meses, Es recontra sencillo.\n\n\nAtt.\n\nJaime','',0,'gA==','385rvetg',1,0,'',875,0,0),(28886,6488,6,2,0,'87.218.146.119',1174948375,1,0,1,1,1,1,'','','Miguel,\n\nPuedes enviarme por email la clase tdbfh ? gracias,','',0,'gA==','todgf60b',1,0,'',2,0,0),(28887,6413,6,875,0,'64.76.108.179',1174948413,1,0,1,1,1,0,'','','Bueno los valores del GetSysColor son del 1 al 20,  Yo tambien trate de obtener algunos colores del sistema pero no tuve exito. \n\nAtt. \n\nJaime','',0,'gA==','30qiqdo5',1,0,'',875,0,0),(28888,6485,6,95,0,'189.155.151.98',1174948951,1,0,1,1,1,0,'','','Antonio, \n\n1.- El comando \"ar\" es el mismo que esta en /usr/bin?\n\n2.- la funcion curdrive() regresa la letra \"A\", esta bien ?\n\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','2jnd9htd',1,0,'',95,0,0),(28889,6485,6,95,0,'189.155.151.98',1174950350,1,0,1,1,1,0,'','','Antonio \n\nAl momento de compilar un programa el cual contiene un procedimiento llamado init_Var y en ese folder hay un prg llamado init_var, me marca que hay duplicidad esta bien ?\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','1dcfjdy4',1,0,'',95,0,0),(28890,6485,6,2,0,'87.218.146.119',1174950632,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; 1.- El comando \"ar\" es el mismo que esta en /usr/bin?\n\nSí. Escribe \"man ar\" y te aparecerá la ayuda de ar. Pero es suficiente usarlo como te he indicado anteriormente\n\n&gt; 2.- la funcion curdrive() regresa la letra \"A\", esta bien ? \n\nEn Darwin (como en Linux) el concepto de unidades de disco es distinto del de Windows. En vez de C: debería devolver /dev/hda1 (primera particion primaria del disco duro). De todas formas lo vamos a consultar en la lista de desarrollo de Harbour.\n\nEscribe df para ver todas las unidades','',0,'gA==','2u2k1bkc',1,0,'',2,0,0),(28891,6485,6,2,0,'87.218.146.119',1174951645,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; en ese folder hay un prg llamado init_var\n\nTienes un procedimiento y un PRG, ambos con el mismo nombre ? \n\nEstás compilando con /n ?','',0,'gA==','1tojoex1',1,0,'',2,0,0),(28896,6489,6,940,0,'189.157.88.221',1174955745,1,0,1,1,1,1,'','re:','Hombre que , pantalla tan PRO\n\nSkins  solo lo he visto en  DELPHI,\n\nque importante seria que en la comunidad FWH exista\n\neste tipo de librerias,\n\n\nsaludos..','',0,'EA==','3ublx8zo',1,0,'',940,0,0),(28898,6485,6,95,0,'189.155.151.98',1174957005,1,0,1,1,1,0,'','','Antonio\n\n1.- Si, estoy compilando con -n\n\n2.- Ya pude generar un lib ( .a )\n\n3.- hay un error que dice :\n\n./build.sh: line 39:  1918 Buserror \n\nEsto me da al finalizar mi programa, estamos bien ?\n\nSaludos\nOsvaldo Ramirez','',0,'EA==','3r2yday0',1,0,'',95,0,0),(28900,6485,6,95,0,'189.155.151.98',1174957889,1,0,1,1,1,0,'','','Este es mi error\n\n    IF file(main_dir+\"/\"+language+\"/*.*\")\n\nQue hago ?\n\nSaludos\nOsvaldo Ramirez','',0,'EA==','11wevo50',1,0,'',95,0,0),(28901,6493,6,73,0,'200.66.32.139',1174959069,1,0,1,1,1,0,'','poner un meter en un dbeval()','Hola foro,\nPues eso, como puedo poner un meter dentro de un dbeval(), asi tengo mi funcion\n(oDPac)-&gt;( DbEval( {|| IF(!Empty(Field-&gt;C_Grade),;\n                             IF(nPos:=Ascan(aGrade,Field-&gt;C_Grade)==0,;\n                                   AADD(aGrade,Field-&gt;C_Grade),),) } ) )\n\nlo unico que quiero es llevar el procentajde de registros leidos y en cual registro va, ya que es una base muy grande\ngracias\nPaco','',0,'EA==','1s5qagk5',1,0,'',73,0,0),(28902,6489,6,73,0,'200.66.32.139',1174959377,1,0,1,1,1,0,'','','simplemente, FENOMENAL!!!\ndeseo que sea el principo de todos los controles... exito!!\nPaco','',0,'EA==','ympqwzuh',1,0,'',73,0,0),(28903,6467,6,400,0,'201.26.18.146',1174960068,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:35vy2roc]Manuel\n\nBasta con que agregues un campo adicional ( normalmente uso un numerico de 1 digito ) y al momento de estar \"llenando\" la base a mostrar vas alternando el valor de ese campo ( normalmente uso 0-1 ) y solo cambias el codigo por esto :\n\noLbx:nClrPane:={|| IIF(CLIENTES-&gt;TuCampo ==1,CLR_WHITE,CLR_LGRAY)} \n\nAsi lo he usado y hace exactamente lo que quieres hacer.\n\nSaludos[/quote:35vy2roc]\nBuenas Raymundo,\n\nNao estou entende bem, eu teria q usar alguma funçao ? \nVc poderia me passar algum exemplo ?\n\nFico grato pela atençao.\n\n@braços Ale','',0,'gA==','35vy2roc',1,0,'',400,0,0),(28904,6494,6,349,0,'189.165.2.3',1174961552,1,0,1,1,1,0,'','TWBrowse de Hernan,  Columnas que se puedan configurar','Buenas Tardes\nCarlos Mora\n\nGracias Por Tus comentarios y observaciones.\n\nTienes Toda la Razón. Al manejarlo el bline como lo recomiendas si funciona.\n\nREDEFINE LISTBOX oLbx ; \n               FIELDS \"\" ; \n               FIELDSIZES 50, 50, 50 ; \n               HEADERS \"Semana\", \"C1\", \"C2\" ; \n               ID 301 OF oDlg UPDATE \n\noLbx:cAlias := \"A06PRES\"\noLbx:bLine := { A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\nLo que quiero lograr es que el ListBox,  funcione desde una variable, con el fin de agregar, modificar y borrar Columnas.\n\naCamp := { A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\nREDEFINE LISTBOX oLbx ; \n               FIELDS \"\" ; \n               FIELDSIZES 50, 50, 50 ; \n               HEADERS \"Semana\", \"C1\", \"C2\" ; \n               ID 301 OF oDlg UPDATE \n\noLbx:cAlias := \"A06PRES\"\noLbx:bLine  := {|| aCamp }\n\nMe sigue mostrando todos los registros iguales\n\nSaludos y Gracias …\nHugo Navarro','',0,'gA==','13iiycl5',1,0,'',349,0,0),(28905,6456,6,349,0,'189.165.2.3',1174962657,1,0,1,1,1,0,'','Hernan Diego Ceccarelli','Buenas Noches Hernan Diego Ceccarelli\n\nGracias por tu Ayuda.\n\nEl problema que tengo es que no se como modificar y aplicar el oLbx:bline\nDesde una variable.\n\nDigamos en un momento quiero definir un ListBox con Tres Campos, y en otro momento\nCon 5 campos.\n\nEsto es con el fin de Tener un ListBox que no sea fijo en el cual, pueda agregar, modificar y borrar Columnas.\n\nDe esta manera si funciona;\noLbx:bLine := { A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\nPero es un ListBox Fijo.\n\nPero si lo asigno a una variable, no me muestra todos los registros iguales;\naCamp := { A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\n\noLbx:bLine  := {|| aCamp }\n\n\nSaludos y Gracias\nHugo Navarro Orozco\n[/code]','',0,'','3ixb6yhs',1,0,'',349,0,0),(28906,6490,3,15,0,'203.70.52.83',1174967092,1,0,1,1,1,0,'','','Hello\n\nIt\'s support old xHarbour 0.92+FWH 2.5/2.6 ?\n\nRegards,\n\nRichard','',0,'','ilv2b3uu',1,0,'',15,0,0),(28907,6456,6,349,0,'189.165.2.3',1174968566,1,0,1,1,1,0,'','Ya quedo, Gracias a Todos','Buenas Noches a Todos.\n\nManeje una cadena;\n\ncLine := \"{ A06PRES-&gt;(fieldget(3)), A06PRES-&gt;(fieldget(1)), A06PRES-&gt;(fieldget(2))}\"\n\noLbx:bLine := { || &amp;cLine }\n\nSi funciono.  \n\nSaludos y Gracias ...','',0,'','362d16ap',1,0,'',349,0,0),(28908,6477,6,54,0,'189.132.110.109',1174969063,1,0,1,1,1,1,'','','ok, ya entendi.\n\njjejjejjejje\n\n\n[quote=&quot;jacgsoft&quot;:xv37jjvt]Primero:\n---------\nA ver no entiendo Si yo le sumo 12 meses(1 año) a 26/03/2007, es igual a 26/03/2008,  ¿porque la funcion add_m( fecha,12) te da 23/03/2008?\n\nSegundo:\n----------\nLo que yo hago cuando quiero sumarle 1 año(12 meses) auna fecha hago lo siguiente\n\nFecha:=Ctod(\'26/03/2007\')\nFecha:=Dtoc(Fecha)\nFecha:=Ctod(Subs(Fecha,1,6)+Str(Val(Right(Fecha,4))+1,4))\n\nentonces Fecha=\'26/03/2008\'\n\n\n\n\nAtentamente Jaime[/quote:xv37jjvt]','',0,'gA==','xv37jjvt',1,0,'',54,0,0),(28910,6485,6,2,0,'87.218.146.178',1174975953,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt;\n./build.sh: line 39: 1918 Buserror \nEsto me da al finalizar mi programa, estamos bien ?\n&gt;\n\nEse es un mensaje típico de salida de texto a consola. En principio no tiene que afectar a la ejecución de tu programa. \n\nSi ejecutas tu aplicación desde el \"finder\", no aparecerá y la aplicación debe funcionar bien','',0,'kA==','3uc4r943',1,0,'',2,0,0),(28911,6485,6,2,0,'87.218.146.178',1174976017,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt;\nEste es mi error \nIF file(main_dir+\"/\"+language+\"/*.*\") \n&gt;\n\nQue error te aparece ?\n\nHemos consultado en la lista de Harbour acerca del comportamiento de CurDrive() para ver si es correcto que devuelva \"A\"','',0,'kA==','1i2xr2vm',1,0,'',2,0,0),(28912,6488,6,2,0,'87.218.146.178',1174976116,1,0,1,1,1,1,'','','Miguel,\n\nLas funciones que comentas estan en el módulo HBFORCE.C de la librería.\n\nTienes que compilarlo e incluirlo al enlazar.','',0,'kA==','owxwepvc',1,0,'',2,0,0),(28913,6426,7,2,0,'87.218.146.178',1174976340,1,0,1,1,1,1,'','','Esos comandos son traducidos a llamadas a funciones que implementa Harbour.\n\nPorque no quieres usar esas funciones ? Revisa el fichero std.ch de Clipper y verás como los comandos son traducidos en funciones:\n\n#command COPY FILE &lt;(src)&gt; TO &lt;(dest)&gt;  =&gt; __CopyFile( &lt;(src)&gt;, &lt;(dest)&gt; )','',0,'kA==','7lfychaz',1,0,'',2,0,0),(28914,6493,6,2,0,'87.218.146.178',1174976643,1,0,1,1,1,1,'','','Francisco,\n\nPuedes usar la función MsgMeter() de FWH, revisa samples\\TestMmt.prg\n\nEl código fuente de MsgMeter() está en source\\function\\MsgMeter.prg','',0,'kA==','13x63mf8',1,0,'',2,0,0),(28915,6468,3,2,0,'87.218.146.178',1174976720,1,0,1,1,1,1,'','','Enrico,\n\nYes, we are aware of it though we have not found a way to fix it yet','',0,'kA==','20ufaftr',1,0,'',2,0,0),(28916,6439,4,2,0,'87.218.146.178',1174976886,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6092&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=irda\">http://fivetechsoft.com/forums/viewtopi ... light=irda</a><!-- m -->','',0,'kA==','3b226tsq',1,0,'',2,0,0),(28917,2548,3,23,0,'213.96.85.49',1174977155,1,0,1,1,1,1,'','','Don, thanks for your help. I make the application right, but now i\'ve a problem ...\n\nI\'ve installed the exe as a service with the srvany. \n\nInto the .prg i use these functions : \n\n//------------------------------\nFunction ServiceProcess( mode )\n//------------------------------\nLocal nProcessId := 0\n\nDefault mode := 0\n\nnProcessId := GCP( )\n\nIf Abs( nProcessId ) &gt; 0\nRSProcess( nProcessId, mode )\nEndif\n\nRETURN\n\n//----------------------------------------------------\nDLL32 FUNCTION RSProcess(npID AS LONG ,;\nnMode AS LONG ) AS LONG ;\nFROM \"RegisterServiceProcess\" LIB \"kernel32.DLL\"\n//----------------------------------------------------\n\n//----------------------------------------------------\nDLL32 FUNCTION GCP() AS LONG;\nFROM \"GetCurrentProcessId\" LIB \"kernel32.dll\"\n//----------------------------------------------------\n\n... and in then Function Main()\n                                  ServiceProcess(1)\n\n\nWell, it\'s allright, but when i try to start the service, i\'ve got an error message : (error 1053 : service is not responding) (windows 2003 server).\n\nCuriously, the application starts (i make a log file in the app and really works), but the service ends and the application is out!\n\n\nThanks ... and sorry for my english ! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'kA==','1bshtpy5',1,0,'',23,0,0),(28918,6468,3,6,0,'87.3.232.123',1174977990,1,0,1,1,1,1,'','','Ok, no problem. It\'s a little thing.\n\nEMG','',0,'kA==','1q7mfynm',1,0,'',6,0,0),(28919,6495,3,15,0,'203.70.52.83',1174978349,1,0,1,1,1,0,'','FWH support RibbonBar ActiveX','Hello\n\nI test codejock\'s RibbonBar function.\nI think it can work, but a little bug Title can\'t into ribbonBar.\nAny idea?\n\n[url=http&#58;//img72&#46;imageshack&#46;us/my&#46;php?image=fwhactivexribbonbar5yp6&#46;jpg:xcnb80ke][img:xcnb80ke]http&#58;//img72&#46;imageshack&#46;us/img72/3589/fwhactivexribbonbar5yp6&#46;th&#46;jpg[/img:xcnb80ke][/url:xcnb80ke]\n\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=fwhactivexribbonbar6ht3&#46;jpg:xcnb80ke][img:xcnb80ke]http&#58;//img224&#46;imageshack&#46;us/img224/7470/fwhactivexribbonbar6ht3&#46;th&#46;jpg[/img:xcnb80ke][/url:xcnb80ke]\n\n[url=http&#58;//img86&#46;imageshack&#46;us/my&#46;php?image=fwhactivexribbonbar7ow6&#46;jpg:xcnb80ke][img:xcnb80ke]http&#58;//img86&#46;imageshack&#46;us/img86/1682/fwhactivexribbonbar7ow6&#46;th&#46;jpg[/img:xcnb80ke][/url:xcnb80ke]\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'GA==','xcnb80ke',1,0,'',15,0,0),(28920,6495,3,2,0,'87.218.146.141',1174982081,1,0,1,1,1,1,'','','Richard,\n\n&gt; I think it can work, but a little bug Title can\'t into ribbonBar.\n\nWhats the bug ? Do you have a test to reproduce it here ? Thanks,','',0,'GA==','psta5rnm',1,0,'',2,0,0),(28921,6401,3,330,0,'217.37.54.49',1174984006,1,0,1,1,1,0,'','','Not sure how to upload to this board but the prog code is \n\n#include \"fivewin.ch\"\n\nfunction Main() \n\n   ShellExecute(0,0, \"CAPSLOCK\",\"on\",0,0) \n   MsgInfo( \"done\" ) \n    \nreturn nil\nThe only lib I am linking in Xharbour builder is SQL.LIB\nThis is the xbp file\n\nCINI = \nC_OUTPUTFOLDER = \nDEFFILE = \nINCLUDEFOLDERS = \nLAUTORUN = \nLDEBUG = .F.\nLGUI = .F.\nLIBFOLDERS = \nLMT = .F.\nLPRG_CLASSICDEBUG = .F.\nLPRG_DEBUG = .F.\nLUSEDLL = .F.\nMAPFILE = \nMYC_FLAGS =  \nMYDEFINES = \nMYLINK_FLAGS = \nMYPRG_FLAGS = \nMYRC_FLAGS = \nMYSLY_FLAGS = \nOUTPUTFOLDER = \nPRG_OUTPUTFOLDER = \nRC_OUTPUTFOLDER = \nRUNARGUMENTS = \nSLY_OUTPUTFOLDER = \nSTARTIN = \nTARGETFOLDER = \n\n[Test.prg]\nMYC_FLAGS = \nMYDEFINES = \nMYPRG_FLAGS = \n\n[C:\\xHB\\lib\\sql.lib]','',0,'','2vvbr3ap',1,0,'',330,0,0),(28922,6495,3,15,0,'203.70.52.83',1174984551,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1f2zvkdg]Richard,\n\n&gt; I think it can work, but a little bug Title can\'t into ribbonBar.\n\nWhats the bug ? Do you have a test to reproduce it here ? Thanks,[/quote:1f2zvkdg]\n\nHello Antonio,\n\nThis is my code\n[code:1f2zvkdg]\nDEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support RibbonBar&quot;\noActX &#58;= TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Codejock&#46;CommandBarsFrame&#46;10&#46;4&#46;2&quot; &#41;\n          \noWnd&#58;oClient = oActX\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nACTIVATE WINDOW oWnd[/code:1f2zvkdg]\n\nWhy FWH Title Bar incompatible RibbonBar? or\nHow to define ActiveX size include full Window size?\nMaybe remove \"oWnd:oClient = oActX\"\n\nThis is VB AP below:\n[url=http&#58;//img85&#46;imageshack&#46;us/my&#46;php?image=ribbonbarvbrt3&#46;jpg:1f2zvkdg][img:1f2zvkdg]http&#58;//img85&#46;imageshack&#46;us/img85/2401/ribbonbarvbrt3&#46;th&#46;jpg[/img:1f2zvkdg][/url:1f2zvkdg]','',0,'mIA=','1f2zvkdg',1,0,'',15,0,0),(28923,6435,3,962,0,'200.161.189.7',1174984975,1,0,1,1,1,1,'','','[code:3uuierqp]\nHow to reproduce the error ?\n[/code:3uuierqp]\nÉ como descrevi:\nSelecionar o primeiro dígito (SHIFT+Seta Direita), inserir outro.\n\n[code:3uuierqp]\nde&#58; &#40;antes deve selecionar o primeiro digito&#41;\n// @R 99&#46;999-999\n12&#46;345-678 \nficará&#58; &#40;digitado o numeor 4&#41;\n4&#46;&#46;45--78\n[/code:3uuierqp]','',0,'AIA=','3uuierqp',1,0,'',962,0,0),(28924,6495,3,2,0,'87.218.146.210',1174986496,1,0,1,1,1,1,'','','Richard,\n\nIs there a demo version of \"Codejock.CommandBarsFrame.10.4.2\" ?','',0,'AIA=','2kosdujb',1,0,'',2,0,0),(28925,6449,7,2,0,'87.218.146.210',1174989837,1,0,1,1,1,1,'','','Toni,\n\nVolviendo a usar:\n[code:19ms2sel]\nif &#58;&#58;oWnd == WndMain&#40;&#41; \n   PostQuitMessage&#40; 0 &#41;\nendif \n[/code:19ms2sel]\nen el método Destroy() de la Clase TFolder, los ejemplos proporcionados funcionan bien.\n\nTienes algún ejemplo que deje la aplicación en memoria ? gracias','',0,'AIA=','19ms2sel',1,0,'',2,0,0),(28926,6477,6,439,0,'200.125.39.64',1174993557,1,0,1,1,1,1,'','','jeje, hacía días que no me divertía tanto.....','',0,'AIA=','15ose931',1,0,'',439,0,0),(28927,6413,6,316,0,'213.97.245.163',1174994409,1,0,0,1,1,0,'','','Jaime,\n\nEl Glade, el editor de recursos del GTK, tiene un \"ladrón\" de colores. Le das a un boton y luego cliqueas en el color y te da el RGB. \nNo es lo que quiero hacer, prefiero tomar la definición del propio windows y adaptarme si cambia, peeero... Creo que habra que meterse con los manejadores de temas del Windows.\n\nUn saludo,\n\nCarlos','',0,'AIA=','3ukee63w',1,0,'',316,0,0),(28928,6465,6,694,0,'200.189.112.21',1174995575,1,0,1,1,1,1,'','gracias','gracias Antonio','',0,'AIA=','1g8rb9fq',1,0,'',694,0,0),(28929,6454,6,694,0,'200.189.112.21',1174995803,1,0,1,1,1,1,'','solução','segue a solução:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=9423\">http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=9423</a><!-- m -->\n\n\nAokisantos','',0,'AIA=','pn4zyfup',1,0,'',694,0,0),(28930,6474,6,694,0,'200.189.112.21',1174995896,1,0,1,1,1,1,'','up !!!','up !!!!','',0,'AIA=','27s9ke6b',1,0,'',694,0,0),(28931,6495,3,15,0,'203.70.52.83',1174998290,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:ebk3k843]Richard,\n\nIs there a demo version of \"Codejock.CommandBarsFrame.10.4.2\" ?[/quote:ebk3k843]\n\nHello Antonio,\n\nThis is VB sample EXE file.\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02a6781c32/RibbonSample.rar.html\">http://hyperupload.com/download/02a6781 ... e.rar.html</a><!-- m -->\n\nThis is FWH sample EXE file.\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/54ff60/\">http://www.filefactory.com/file/54ff60/</a><!-- m -->\n\nCodejock ActiveX components download link\n<!-- m --><a class=\"postlink\" href=\"http://www.codejock.com/public/download/evaluation/SuiteProEval.ActiveX.v10.4.2.zip\">http://www.codejock.com/public/download ... 10.4.2.zip</a><!-- m -->\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gA==','ebk3k843',1,1175032531,'',15,1,0),(28932,6496,6,15,0,'203.70.52.83',1174999046,1,0,1,1,1,0,'','FWH support RibbonBar ActiveX','Hola \n\nLook it.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6495\">http://fivetechsoft.com/forums/viewtopic.php?t=6495</a><!-- m -->\n\nRegards,\n\nRichard\nFivetech.net Taiwan','',0,'gA==','37do6bcb',1,0,'',15,0,0),(28933,6497,6,841,0,'217.12.16.52',1174999129,1,0,1,1,1,0,'','Impresora de Tickets','Hola compañeros,\n\nhasta ahora todos mis clientes tenian la impresora de tickets conectada al puerto LPT1, con lo cual yo utilizaba TDOSPRN para abrir el cajón portamonedas y controlar la impresora.\n\nAhora tengo otro cliente que la impresora de tickets la tiene conectada al puerto USB. Desde Windows ¿ Como transmito los códigos de escape ? \n\nEché un vistazo en el foro y no vi nada al respecto.\nMil gracias por anticipado.\nLORENZO','',0,'gA==','1a656ety',1,0,'',841,0,0),(28934,6449,7,57,0,'83.44.41.76',1175003465,1,0,1,1,1,1,'','','Antonio\nCon el ejemplo que hay en samples sucedia y lo curioso es que no sucede siempre. A mi me ha pasado varias veces y creo recordar que alguien lo reportó tambien en su dia.','',0,'gA==','5y0z9kku',1,0,'',57,0,0),(28935,6433,3,343,0,'24.173.70.29',1175004425,1,0,1,1,1,0,'','','You can set the cell format to text before adding the data. Then it will not have mixed numberic and text\n\nI believe you can add the following before you add data.\n\n[code:1m55u0r9]\noSheet&#58;Range&#40; &quot;A&#58;A&quot; &#41;&#58;Set&#40; &quot;NumberFormat&quot;, \'@\' &#41;\n// then the follwing would be text and not numeric\noSheet&#58;Cells&#40; 1, 1 &#41;&#58;Value = &quot;12345&quot; \n\n[/code:1m55u0r9]\nBy the way, here is a good way to find out how to do something in Excel.\nStart macro record, perform the action, stop macro, then look at the code that is created.','',0,'AIA=','1m55u0r9',1,0,'',343,0,0),(28936,5567,6,278,0,'164.77.219.82',1175004792,1,0,1,1,1,1,'','','Hola Amigos:\n\nAlguien puede poner la ultima libreria en algun sitio publico , para poder bajarla.\n\nSaludos,','',0,'AIA=','1sl0p621',1,0,'',278,0,0),(28938,6433,3,303,0,'72.199.41.171',1175007873,1,0,1,1,1,0,'','','Rick,\n\nAre you just trying to get DBF data into SQL? If so, there are other ways to do it. I think Enrico published a way to directly put DBF records into an SQL file. You could seach the forum for this.\n\nJames','',0,'EA==','p4qe5vro',1,0,'',303,0,0),(28939,6498,2,518,0,'189.170.4.26',1175010983,1,0,1,1,1,0,'','Color en celdas en el browse y problemas con ODBC-MYSQL','Hola a todos tengo 2 problemas que espero me puedan ayudar.\n\n1.- Yo uso el TWbrowse, para los browse. ( o por lo menos eso dice el nombre cuando construyo en el resource workshop de borland)\n\nNecesito cambiar el color de algunas celdas del browse dependiendo de ciertas condiciones.\n\nComo puedo hacer eso ? si necesito cambiar de browse de donde lo bajo ? como lo instalo ? como lo llamo desde el editor de recursos ?, que tengo que hacer diferente en la programacion para llamar a este nuevo browse ? \n\nYo defino el browse de la sig manera :\n\n REDEFINE LISTBOX oLbx1 FIELDS act-&gt;act .....\n\n\n2.- Tengo un odbc con mysql que funciona bien con FW. Pero al momento de hacer un browse con una tabla de odbc, el primer registro como que se duplica al momento de llegar al inicio cuando estas recorriendo el browse con los vertical scroll bars. Como que llegas al primero, pero si intentas ir mas arriba, te muestra el segundo registro y luego se devuelve al primero etc... algo raro.\n\nMuchas Gracias por su ayuda.','',0,'EA==','3gr5l0g3',1,0,'',518,0,0),(28940,6489,6,785,0,'190.64.204.158',1175012636,1,0,1,1,1,0,'','','Fernando:\n\nFelicitaciones por el producto.\n\nUna consulta: A los botones se les puede asignar una accion y un menu?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'EA==','1emv62gu',1,0,'',785,0,0),(28941,5567,6,100,0,'201.16.38.10',1175013374,1,0,1,1,1,1,'','','Ola amigos\n\nConsegui todos os fontes\n\nCedido pelo amigo Kleyber\n\nPodem baixa-los desde <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=741\">http://www.fivewin.com.br/exibedicas.asp?id=741</a><!-- m -->','',0,'EA==','25zpixfw',1,0,'',100,0,0),(28942,6499,22,867,0,'148.243.37.162',1175016941,1,0,1,1,1,0,'','Para Antonio Linares','Petición de BTNGET Para Antonio Linares.\nHola se podria incluir la clase de ayuda BTNGET y hacer mejoras de esa clase para la nueva version de FiveWin, seria de mucha utilidad tanto para todos los programadores asi como al usuario teclear x articulo y con F2 desplegara el listado de clave del campo tecleado o con F2, desplegar todo el listado, espero haberme explicado. pero es de suma gran importancia incluir la clase dentro de la nueva version de FiveWin, asi como ejemplos de esa clase BTNGET, y que seria mucho mejor con busqueda secuencial. \nSusy su amiga\n\nUso VeRCE, FiveWin 2.7 y xHarbour , 0.99.71','',0,'EA==','3axh2wvc',1,0,'',867,0,0),(28943,6500,6,867,0,'148.243.37.162',1175017031,1,0,1,1,1,0,'','Peticion Antonio Linares','Petición de BTNGET Para Antonio Linares.\nHola se podria incluir la clase de ayuda BTNGET y hacer mejoras de esa clase para la nueva version de FiveWin, seria de mucha utilidad tanto para todos los programadores asi como al usuario teclear x articulo y con F2 desplegara el listado de clave del campo tecleado o con F2, desplegar todo el listado, espero haberme explicado. pero es de suma gran importancia incluir la clase dentro de la nueva version de FiveWin, asi como ejemplos de esa clase BTNGET, y que seria mucho mejor con busqueda secuencial. \nSusy su amiga\n\nUso VeRCE, FiveWin 2.7 y xHarbour , 0.99.71\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'EA==','2mu2hjaz',1,0,'',867,0,0),(28944,2548,3,167,0,'207.119.126.13',1175017843,1,0,1,1,1,1,'','','I think the .exe which is spawned by the service should run continously controlled by some sort of loop or timer.  I usually terminate the .exe via a \'trigger\' such as writing a txt file from another process to instruct the loop to end.\n\nNote that the srvany.exe service process simply loads yourapplication.exe automatically, upon server startup.  It does not continously load the application.  If you terminate the .exe the service may still continue to run.  Terminating the service will terminate your .exe, but terminating your .exe will not terminate the service necessarily.\n\nI use the service (srvany.exe) as a method to automatically load an exe process upon server startup.','',0,'EA==','7ogp0w9e',1,0,'',167,0,0),(28945,6495,3,2,0,'87.218.146.191',1175019005,1,0,1,1,1,1,'','','Richard,\n\nPlease upload this file again as it is bad:\nThis is FWH sample EXE file. \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02eb8d1c84/fwhribbonbar.rar.html\">http://hyperupload.com/download/02eb8d1 ... r.rar.html</a><!-- m --> \n\nYou may use <!-- w --><a class=\"postlink\" href=\"http://www.filefactory.com\">www.filefactory.com</a><!-- w --> instead of <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w -->','',0,'EA==','1m3jg300',1,0,'',2,0,0),(28946,6500,6,2,0,'87.218.146.191',1175020134,1,0,1,1,1,1,'','','Susy,\n\ngracias por lsugerencia, es una buena idea y la vamos a implementar','',0,'EA==','af2n1x7a',1,0,'',2,0,0),(28948,6451,2,375,0,'84.122.121.46',1175021109,1,0,1,1,1,1,'','','Es la primera véz que escucho esto. Siempre usé SEEK desde cualquier lugar y siempre trabajó perfectamente. Tanto con NTX como ultimamente con CDX.\n\n¿Qué utilizas SEEk o DBSEEK?\n¿Qué clave has creado? El problema debe de andar por ahí.\n¿Utilizas SOFTSEEK? a lo mejor ese es el problema.\n\nEn el ejemplo siguiente, busco el primer registro válido de una base de datos para listarlos (desde cualquier posición de la base de datos):\n\n[b:2tn0f593]METHOD ExtremoS() CLASS NEOLIST\n   LOCAL lASeek := SET(_SET_SOFTSEEK,.T.)\n   *\n   IF ::uVal1 = NIL\n      (::cAlias)-&gt;( DbGoTop() )\n   ELSE\n      (::cAlias)-&gt;( DbSeek(::uVal1,.T.) )\n   ENDIF\n   IF (::cAlias) -&gt; (EOF())\n      ::PRIM_REG := 0\n      ::ULTM_REG := 0\n      RETURN NIL\n   ENDIF\n  ....[/b:2tn0f593]\n\nComo verás, si no hay valor de búsqueda (::uVal1) se va al GOTOP sino busca el primer registro ::uVal1 (suele estar al principio.\nNunca me falló.','',0,'QA==','2tn0f593',1,0,'',375,0,0),(28949,6413,6,375,0,'84.122.121.46',1175021541,1,0,1,1,1,1,'','','Yo utilizo: RGB( 250, 164,   0 )\n\nNormalmente, lo que hago es entrar en corel y buscar un color que me guste. Después veo cuales su codigo RGB y lo utilizo en el programa.','',0,'QA==','kw16mrab',1,0,'',375,0,0),(28950,6482,6,37,0,'190.41.59.208',1175022730,1,0,1,1,1,1,'','','Gracias a ambos, ya tenia los arreglos con los meses y dias en castellano, pretendia obtener el resultado directamente de xHarbour, pero no funciono, lo deje trabajando con arreglos.\nSaludos','',0,'QA==','2nsotde6',1,0,'',37,0,0),(28951,6497,6,940,0,'189.157.88.221',1175023181,1,0,1,1,1,1,'','re:','La solucion mas facil que yo encontre al respecto,\n\nfue capturarle un puerto lp1  al puerto la impresora conectada a un USB.\n\nlo hice creando un archivo scbat.bat   con las siguientes lineas,\n\n\nNET USE LPT1: /DELETE\nNET USE LPT1: \\\\SERVIDOR\\EPSON  /persistent:yes\n\ntienes que compartir la impresora.\n\n\ndesde codigo con la tdosprn no he encontrado la forma\n\nespero te sirva...\n\n\nsaludos.','',0,'QA==','23ikqoq3',1,0,'',940,0,0),(28952,5118,6,237,0,'200.68.70.90',1175027094,1,0,1,1,1,0,'','Me interesa!','Me interesa esto de BestCypt... tendrias algun ejemplo de como lo usas?\nAdmite argumentos por linea de comando? ( command line )\n\nMuchos saludos\nAlejandro Cebolido.\n\n[quote=&quot;Rochinha&quot;:1uqwbclm]Amiguinhos\n\nPara esto jo uso BestCrypt\n\nCon BestCrypt tu creas un fichero de até 2Gb o mas con clave de 128bits\n\nÉs mui bueno\n\n[url=http&#58;//www&#46;jetico&#46;com/download&#46;htm:1uqwbclm]BestCrypt Download[/url:1uqwbclm][/quote:1uqwbclm]','',0,'kA==','1uqwbclm',1,0,'',237,0,0),(28953,4774,3,319,0,'201.1.175.91',1175028302,1,0,1,1,1,0,'','','vc devera usr o openoffice 2.0 ou superior','',0,'kA==','1n5js7qs',1,0,'',319,0,0),(28954,4774,3,435,0,'200.155.200.35',1175028801,1,0,1,1,1,0,'','','eu testei com o BrOffice.org 2.0 vou baixar o direto do openoffice.org\n\nObrigado\nAri','',0,'kA==','kqkge6tg',1,0,'',435,0,0),(28955,6453,2,304,0,'201.155.7.216',1175029746,1,0,1,1,1,0,'','','Hola:\nSigo sin resolver mi problemas, tal vez no me explique bien, no necesito generar los indices descendentes, los necesito abrir\nya que estos los crea un sistema llamado ASPEL SAE, al inicio uso esto:\n(los archivos q tiene son: MINV01.DBF y MINV01.MDX)\n\nCLEAR SCREEN\n REQUEST DBFMDX\n RDDSETDEFAULT( \"DBFMDX\" )\nSET DATE BRITISH\nSET CENTURY ON\nSET EPOCH TO 1956\n\nUSE MINV01 \nSET ORDER TO 2 \nAPPEND BLANK\nFIELD-&gt;NUM_REG:=16\nFIELD-&gt;CLV_ART:=\"0001\"\nFIELD-&gt;TIPO_MOV:=51\nFIELD-&gt;FECHA_DOCU:=DATE()\nFIELD-&gt;REFER:=\"84\"\nFIELD-&gt;CLAVE_CLPV:=\"MOSTR\"\nFIELD-&gt;VEND:=\"\"\nFIELD-&gt;CANT:=3\nFIELD-&gt;CANT_COST:=0\nFIELD-&gt;PRECIO:=1\nFIELD-&gt;COSTO:=1\nFIELD-&gt;ALMACEN:=1\nFIELD-&gt;AFEC_COI:=\"\"\nFIELD-&gt;OBS_MINV:=0\nFIELD-&gt;REG_SERIE:=0\nFIELD-&gt;UNI_VENTA:=\"pz\"\nFIELD-&gt;U4SEC:=0\nFIELD-&gt;DB8EXIST:=1\nFIELD-&gt;TIPO_PROD:=\"I\"\nFIELD-&gt;FACTOR_CON:=1\nFIELD-&gt;FECHAELAB:= DATE()\nFIELD-&gt;USUARIO:=0\nFIELD-&gt;M_FLETE:=0\n\n* al poner set order to 2, si despues de grabar el registro lo listo efectivamente lo ordena bien, pero al consultarlo con el programa ya elaborado (Aspel), repite muchas veces el ultimo registro, no se q estoy haciendo mal, pero si regenero indices desde ese mismo programa el problema se soluciona, solo q yo necesito grabar y q se afecten correctamente los indices, vi que la estructura del indice es:\nCLV_ART + STR(ALMACEN) + STR(NUM_REG) + STR(TIPO_MOV)\n\nY ademas como les comentaba antes no encuentro la forma de donde lo ordena descendentemente, espero haberme explicado bien o no se si sea necesario pasarles los archivos,\n\nComo puedo hacer para que al grabar en la base de datos MINV01.DBF se afecten todos los Indices contenidos en MINV01.MDX ????\n\nsaludos\nveracruz, ver. mexico','',0,'kA==','18jmc1n5',1,0,'',304,0,0),(28956,6433,3,35,0,'167.7.140.254',1175029810,1,0,1,1,1,0,'','','James\n\nUltimately I want to use SQLRDD on this application and move the .dbf\'s to MS SQL Server..\n\nI have seen the dbf2sql but that utility does not support MS Sql Server <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nThis app needs to have outside Web data verification and will eventually need to be moved to SQL .. politics and complications need to be over-come first .. the quickest and easiest way to acomplish this task was to replicate the data to the Web Server..\n\nRon mentioned that SQLRDD was going to be sold seperately in the next release of xHarbour and not specifically bundled with the builder.. I am waiting to see that come about and have a go at moving the back end to SQL with ( minimal ) code changes ..\n\nWe\'ll see\nRick','',0,'kA==','39wrcivh',1,0,'',35,0,0),(28957,6433,3,35,0,'167.7.140.254',1175029999,1,0,1,1,1,0,'','','Gale\n\nThe pre-formatting seemd to work with the column justification of the mixed data .. and it formatted the column to \'text\" rather than \'general\' as before ..\n\nI have the new table in the staging area for the DBA to test .. we\'ll see in the morning ..\n\nThanks .. this has been an interesting learning experience.\n\nRick Lipkin','',0,'kA==','ye17b641',1,0,'',35,0,0),(28958,6495,3,15,0,'203.70.52.83',1175032494,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2c8qrqzv]Richard,\n\nPlease upload this file again as it is bad:\nThis is FWH sample EXE file. \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02eb8d1c84/fwhribbonbar.rar.html\">http://hyperupload.com/download/02eb8d1 ... r.rar.html</a><!-- m --> \n\nYou may use <!-- w --><a class=\"postlink\" href=\"http://www.filefactory.com\">www.filefactory.com</a><!-- w --> instead of <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w -->[/quote:2c8qrqzv]\n\nHello Antonio,\n\nTry it again.\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/54ff60/\">http://www.filefactory.com/file/54ff60/</a><!-- m -->\n\nRichard','',0,'gA==','2c8qrqzv',1,0,'',15,0,0),(28959,6495,3,2,0,'87.218.146.189',1175033496,1,0,1,1,1,1,'','','Richard,\n\nPlease provide the source code for the FWH sample, thanks','',0,'gA==','3eaixtcu',1,0,'',2,0,0),(28960,6501,4,289,0,'84.235.29.16',1175034740,1,0,1,1,1,0,'','New News For Voice Recorder tool With Fwppc','[color=red:ersploe6]Welcome to all\nI tested Voice Recorder tool with Fwppc and work in an excellent manner. \nThis program Link <!-- m --><a class=\"postlink\" href=\"http://www.livesystem.net/fwh_src/NEW_REC.ZIP\">http://www.livesystem.net/fwh_src/NEW_REC.ZIP</a><!-- m -->\nSave wav file IN \"My Documents\".\nregards, \nHathal.[/color:ersploe6]\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Ag==','ersploe6',1,0,'',289,0,0),(28961,6485,6,95,0,'189.171.159.213',1175036173,1,0,1,1,1,0,'','','Al parecer en clipper como en Xbase++ esta bien, ya que busco un folder\nPero en harbour para mac no, asi que lo removi y deje sin \"*.*\"\nPero lo voy a poner y y te digo lo que me dice Mac\n\n1.- He estado jugando con el bash, usando la instruccion for, quiero hacer un script que me compile todos los .prg en dicho folder, Tienes algo o tiene que ser uno por uno la compilada. ?\n\n2.- Al estar viendo Mac, cambia totalmente la forma de windows, quiza por qu en windows podemos tener un MDI con su menu propio, y desde el menu lanzar su propia ventana. Ahora con Mac, este mundo puede ser diferente ya que el menu se posiciona arriba y bien podemos tener o no tener la ventana principal. Estoy bien en el concepto o hay algo errone ?\n\n\nSaludos\nOsvaldo Ramirez','',0,'Ag==','1e3xwl84',1,0,'',95,0,0),(28962,5205,6,976,0,'165.98.139.66',1175036769,1,0,1,1,1,0,'','','Hola José,\n\nYo lo hago \"semi-rústico\" asi:\n\n\n/* 23/Marzo/2005 - Construye el Menú desde una base de datos - Jcenteno */\nFUNCTION BldMenu()\n*----------------------------------------------------------------*\n   LOCAL oMainMenu, oMnuItem\n   LOCAL cMnuAlias, i:= 1, nRec, fAction, cFileBmp, cResName\n   LOCAL lRight\n\n   IF Len( cMnuAlias := OpenDbf( aSysVar( cSysMenus ), 2, .T., .F., .F.,,\"ADS\",.T. ) ) = 0\n			MsgStop( \"Ha ocurrido un error en el sistema y deberá cerrarse\" )\n			oWnd:End()\n   ENDIF\n\n   nRec := ( cMnuAlias )-&gt;( LastRec() )   //RecCount()\n   ( cMnuAlias )-&gt;( OrdSetFocus(1) )\n\n   MENU oMainMenu\n\n   FOR i := 1 To nRec\n\n      IF ( cMnuAlias )-&gt;FldSeparat = TRUE\n        SEPARATOR\n      ENDIF\n\n      IF ( cMnuAlias )-&gt;FldVirtKey = 0\n         MENUITEM oMnuItem PROMPT ALLTRIM(( cMnuAlias )-&gt;fldTxtOpt)   ;\n         MESSAGE  ALLTRIM(( cMnuAlias )-&gt;fldMessage)\n      ELSE\n         MENUITEM oMnuItem PROMPT ALLTRIM(( cMnuAlias )-&gt;fldTxtOpt)    ;\n         MESSAGE  ALLTRIM(( cMnuAlias )-&gt;fldMessage)                   ;\n         ACCELERATOR ( cMnuAlias )-&gt;FldnState, ( cMnuAlias )-&gt;FldVirtKey\n      ENDIF\n\n      oMnuItem:lChecked := ( cMnuAlias )-&gt;fldCheck\n\n      lRight:= Eval( {|| &amp;( ALLTRIM( ( cMnuAlias )-&gt;fldCondi ) ) } )\n      oMnuItem:lActive := lRight\n\n      IF ! EMPTY( fAction := ALLTRIM( ( cMnuAlias )-&gt;fldAction ) )\n         oMnuItem:bAction := &amp;( fAction )\n        // ??? fAction      // Debug\n      ENDIF\n      IF FILE( cFileBmp := aGraphs(cMnuImgPath) + ALLTRIM( ( cMnuAlias )-&gt;FldFileBmp ) )\n        oMnuItem:hBitmap:= ReadBitmap( 0, cFileBmp )\n      ENDIF\n      IF ! EMPTY( cResName := ALLTRIM( ( cMnuAlias )-&gt;FldResBmp ) )\n        oMnuItem:hBitmap:= LoadBitmap( GetResources(), cResName )\n      ENDIF\n\n      DO CASE\n          CASE ( cMnuAlias )-&gt;cNext == \"M0\"\n               MENU\n          CASE ( cMnuAlias )-&gt;cNext == \"M1\"\n              MENU\n          CASE ( cMnuAlias )-&gt;cNext == \"E1\"\n              ENDMENU\n          CASE ( cMnuAlias )-&gt;cNext == \"E2\"\n              ENDMENU\n              ENDMENU\n          CASE ( cMnuAlias )-&gt;cNext == \"E3\"\n              ENDMENU\n              ENDMENU\n              ENDMENU\n          CASE ( cMnuAlias )-&gt;cNext == \"E4\"\n              ENDMENU\n              ENDMENU\n              ENDMENU\n              ENDMENU\n          CASE ( cMnuAlias )-&gt;cNext == \"E5\"\n              ENDMENU\n              ENDMENU\n              ENDMENU\n              ENDMENU\n              ENDMENU\n          CASE ( cMnuAlias )-&gt;cNext == \"E6\"\n              ENDMENU\n              ENDMENU\n              ENDMENU\n              ENDMENU\n              ENDMENU\n            	ENDMENU\n      ENDCASE\n      ( cMnuAlias )-&gt;(dbSkip())\n   NEXT i\n\n   ( cMnuAlias )-&gt;(dbCloseArea())\n\nRETURN oMainMenu\n\nEspero te sirva.\n\nSaludos,','',0,'Ag==','2jtwhtbe',1,0,'',976,0,0),(28963,6469,6,196,0,'190.48.223.148',1175037436,1,0,1,1,1,0,'','','Muchas gracias.\n\nProbe abrir y cerrar el archivo despues del zap y funciona correctamente, increible que a esta altura del partido haya que hacer algo asi para que esto funcione.\n\nJorge Jaurena','',0,'Ag==','1nzjtv1k',1,0,'',196,0,0),(28964,5205,6,439,0,'200.125.39.234',1175038031,1,0,1,1,1,1,'','','Gracias Jairo, \n\nPor supuesto que sirve, todo aporte mejora y enriquece.\n\nGracias por compartirlo <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','16eb4183',1,0,'',439,0,0),(28965,6502,3,69,0,'74.13.36.207',1175038457,1,0,1,1,1,0,'','OT: Serial Port Monitor','Hi Everybody,\n\nDoes anyone know of a program that will allow me to see the data going thru the serial port.\n\nI need something that will let me do this while I have another program accessing the port.\n\n\nThanks,\nJeff','',0,'Ag==','28hxdsy3',1,0,'',69,0,0),(28966,6495,3,15,0,'203.70.52.83',1175046259,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:35g33098]Richard,\n\nPlease provide the source code for the FWH sample, thanks[/quote:35g33098]\n\nHello Antonio,\n\nI think not ActiveX code( Codejock ). You run my EXE file, you will be know it. I guess FWH\'s ActiveX and Codejock\'s ActiveX OCX relations.\n\nRegards,\n\nRichard','',0,'gA==','35g33098',1,0,'',15,0,0),(28967,6485,6,2,0,'87.218.146.189',1175066686,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt;\n1.- He estado jugando con el bash, usando la instruccion for, quiero hacer un script que me compile todos los .prg en dicho folder, Tienes algo o tiene que ser uno por uno la compilada. ? \n&gt;\n\nLo idóneo es usar un make. Podemos proporcionar un make de ejemplo que use multiples PRGs\n\n&gt;\n2.- Al estar viendo Mac, cambia totalmente la forma de windows, quiza por qu en windows podemos tener un MDI con su menu propio, y desde el menu lanzar su propia ventana. Ahora con Mac, este mundo puede ser diferente ya que el menu se posiciona arriba y bien podemos tener o no tener la ventana principal. Estoy bien en el concepto o hay algo errone ? \n&gt;\n\nEl menú siempre está arriba, eso es lo estandard, y tienes una ventana principal, y varias más','',0,'gA==','1ntmtzuo',1,0,'',2,0,0),(28968,6495,3,2,0,'87.218.146.189',1175067039,1,0,1,1,1,1,'','','Richard,\n\nWe need the PRG to build it and test it if you want us to help you,','',0,'gA==','1fbxcc3a',1,0,'',2,0,0),(28969,6503,6,54,0,'189.132.110.109',1175073290,1,0,1,1,1,1,'','Algun bloque de codigo?','Hola,\n\nExiste algun bloque de codigo que se ejecute cuando se minimiza una mdichild o se restaura o maximiza?\n\nExisten los tres bloques?\n\nSaludos y gracias de antemano','',0,'gA==','2r6u6vvb',1,0,'',54,0,0),(28970,6503,6,2,0,'87.218.146.189',1175075554,1,0,1,1,1,1,'','','William,\n\nEn la Clase TWindow:\n[code:1q9kwhpj]\n   if &#58;&#58;bResized != nil\n      Eval&#40; &#58;&#58;bResized, nSizeType, nWidth, nHeight &#41;\n   endif\n[/code:1q9kwhpj]','',0,'AIA=','1q9kwhpj',1,0,'',2,0,0),(28971,6503,6,54,0,'189.132.110.109',1175077684,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1lk8yzsj]William,\n\nEn la Clase TWindow:\n[code:1lk8yzsj]\n   if &#58;&#58;bResized != nil\n      Eval&#40; &#58;&#58;bResized, nSizeType, nWidth, nHeight &#41;\n   endif\n[/code:1lk8yzsj][/quote:1lk8yzsj]\n\nGracias Antonio.','',0,'gIA=','1lk8yzsj',1,0,'',54,0,0),(28972,6504,6,83,0,'80.35.196.60',1175077912,1,0,1,1,1,0,'','Oferta de trabajo','Para desarrollar con FW y/o MySQL, los temas a desarrollar: Import/Export y transportes preferentemente, aunque existe una cartera de clientes para ambito de aplicación muy variado.\n\nLos interesados pueden contactarnos en <!-- e --><a href=\"mailto:central@matrixcomputer.es\">central@matrixcomputer.es</a><!-- e --> <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gIA=','1agvvq8r',1,0,'',83,0,0),(28973,6505,3,58,0,'84.149.126.97',1175081523,1,0,1,1,1,0,'','xBrowse','Dear friends,\n\ni\' m using  FWH 2.7 and get an error \n[code:1cou85jb]Unresolved external \'_HB_FUN_TXBROWSE\'[/code:1cou85jb] when building an app with a TXBrowse.\nDo i have to link an additional file to my app?\n\nRegards,\nDetlef','',0,'AIA=','1cou85jb',1,0,'',58,0,0),(28974,6502,3,2,0,'87.218.146.189',1175090698,1,0,1,1,1,1,'','','Jeff,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/technet/sysinternals/utilities/portmon.mspx\">http://www.microsoft.com/technet/sysint ... rtmon.mspx</a><!-- m -->','',0,'AIA=','37w0v05j',1,0,'',2,0,0),(28975,6505,3,2,0,'87.218.146.189',1175090823,1,0,1,1,1,1,'','','Detlef,\n\nHave you rebuilt the FWH PRG library yourself ?\n\nIf yes, then maybe you missed to include it','',0,'AIA=','13j99gjn',1,0,'',2,0,0),(28976,6505,3,58,0,'84.149.126.252',1175091964,1,0,1,1,1,0,'','','Antonio,\n\n i really forgot that i did rebuilt the FWH PRG library myself.<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nNow it\'s working.\n\nSorry for troubling you.\nDetlef','',0,'AIA=','1mynm17q',1,0,'',58,0,0),(28977,6433,3,35,0,'167.7.140.254',1175092852,1,0,1,1,1,0,'','','Gale\n\nIT WORKED .... and thanks Enrico as well !!\n\nRick Lipkin','',0,'AIA=','1q6htr6w',1,0,'',35,0,0),(28978,6485,6,95,0,'189.155.151.98',1175093274,1,0,1,1,1,0,'','','Antonio\n\nSi puede proporcionarme un ejemplo del make, te lo agrecedira.\nY en cuanto a las venanas principlaes, cada ventana tiene su propio workthread como Xbase++ ? o al abrir las tablas estas estan abiertas en todo el programa ?\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','wspbqzz0',1,0,'',95,0,0),(28979,6480,6,43,0,'189.128.25.131',1175094603,1,0,1,1,1,0,'','','Hola syda\n\nTe refieres a este control, mandame un mail para enviarte la clase que genera este grafico.\n\n[url=http&#58;//img46&#46;imageshack&#46;us/my&#46;php?image=graficoih5&#46;jpg:ma2u1tx1][img:ma2u1tx1]http&#58;//img46&#46;imageshack&#46;us/img46/1235/graficoih5&#46;th&#46;jpg[/img:ma2u1tx1][/url:ma2u1tx1]\n\nSaludos\nMarco A. Delgado','',0,'GA==','ma2u1tx1',1,0,'',43,0,0),(28980,6506,6,278,0,'164.77.219.82',1175098367,1,0,1,1,1,1,'','Columnas ficticias en SQL y ADO','Hola foro:\n\nAlguien sabe como me puede devolver en una consulta SQL , algunas columnas ficticias ( campos que no existen en la base de datos ).\n\nNecesito que ademas de los datos, me cree esa consulta algunas columas extras, para usar en calculos internos.\n\nAlguna idea por favor ???\n\nSaludos,','',0,'GA==','121io8uu',1,0,'',278,0,0),(28981,6506,6,392,0,'201.1.51.24',1175098829,1,0,1,1,1,1,'','','Me de maiores informações para que eu possa montar um exemplo para voce por favor. \n\n* Qual é o banco de dados: MySQL, PostgreSQL ou MS SQL ? \n* Qual o tipo de dados (data type) voce quer adicionar?','',0,'GA==','fnivexw8',1,0,'',392,0,0),(28982,5205,6,875,0,'64.76.108.179',1175099727,1,0,1,1,1,0,'','','Hola Jose\n\nYo lo hago asi:\n\n1. En una tabla tengo las opciones de todos los sistemas (opciones.dbf)\n2. En otra tabla tengo a los usuarios (usuarios.dbf)\n3. En otra tabla tengo la Relacion de Usuarios+Opciones (Accesos.dbf)\n\nAsi se ve el mantenimiento de los accesos\n \n[img:143zwnep]http&#58;//img59&#46;imageshack&#46;us/img59/8376/accesostr3&#46;jpg[/img:143zwnep]\n\n\n\n\nLuego para desplegar los menus lo hago asi:\n\n\n\nStatic _Amnp,_Asmn\n\n***********************************************************\nFunction Main\n   If Check_clav()\n      Get_opc_men()\n\n      Define Brush oBru Style Bricks\n      Define Font oFon Name \'Arial\' Weight -8\n\n      Define Window oWind Title \'Sistema De Planillas\' ;\n             Brush oBru Menu Menu1(oWind)\n      Set Message Of oWind To \'Medicina Externa S.A.\' Clock Date \n      Activate Window oWind Maximized\n\n   Endif\n\nReturn(Nil)\n*********************************************************\n\nFunction Menu1(oWind)\n   Local oMenu,I,J\n\n   Menu oMenu\n        For I=1 To Len(_Amnp)\n            MenuItem Alltrim(Left(_Amnp[I],30))\n                Menu\n                  For J=1 To Len(_Asmn)\n                      If Subs(_Amnp[I],31,2)=Subs(_Asmn[J],31,2)\n                           MenuItem Alltrim(Left(_Asmn[J],30))\n                      Endif\n                  Next I\n                EndMenu\n        Next I\n   EndMenu\n\nReturn oMenu\n\n************************************************************\n\nFunction Get_opc_men()\n   _Amnp:={}\n   _Asmn:={}\n\n   Select A\n   Net_use(\'Men_opci\',.F.,3)\n   Set Index To (\'Men_opci\')\n\n   Seek Vsystem\n   Do While !Eof() .And. A-&gt;Men_sist=Vsystem\n      If A-&gt;Status#\' \' //.Or. Len(Alltrim(A-&gt;Men_nive))&gt;2\n         Skip\n         Loop\n      Endif\n\n      If Len(Alltrim(A-&gt;Men_nive))=2\n         Aadd(_Amnp,Left(Alltrim(A-&gt;Men_dscr)+Space(30),30)+A-&gt;en_nive)\n      Endif\n\n      If Len(Alltrim(A-&gt;Men_nive))=4\n         Aadd(_Asmn,Left(Alltrim(A-&gt;Men_dscr)+Space(30),30)+A-&gt;Men_nive)\n      Endif\n\n      Skip\n   Enddo\n   Close DataBases\n\nReturn(Nil)\n***********************************************************\n\n\ny asi queda\n\n[img:143zwnep]http&#58;//img235&#46;imageshack&#46;us/img235/3746/menusto8&#46;jpg[/img:143zwnep]','',0,'CA==','143zwnep',1,0,'',875,0,0),(28983,6506,6,278,0,'164.77.219.82',1175101177,1,0,1,1,1,1,'','','Hola Vailtom:\n\nEstoy usando access 2000.','',0,'CA==','13oofruk',1,0,'',278,0,0),(28984,6507,3,435,0,'200.155.192.135',1175103146,1,0,1,1,1,0,'','TStatusBar with action','Como colocar action na TStatusbar ?\n\n\nAri','',0,'CA==','12v64en9',1,0,'',435,0,0),(28985,6433,3,35,0,'167.7.140.254',1175104018,1,0,1,1,1,0,'','','Gale\n\nIs there a DATE column formatting string ??\n\nThanks\nRick Lipkin','',0,'CA==','mtes77j5',1,0,'',35,0,0),(28986,6505,3,2,0,'87.218.146.189',1175105994,1,0,1,1,1,1,'','','Detlef,\n\nYou are welcome, glad to know you solved it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','2q0kiqt2',1,0,'',2,0,0),(28987,6508,6,362,0,'200.168.52.156',1175106143,1,0,1,1,1,1,'','Imprimir en la Impresora - ELTRON-2642','Buenas amigos...\n\nNecesito un ejemplo de como se imprime en esta impresora.\n\nELTRON TLP 2642.\n\nGracias,\n\nRegards, saludos.','',0,'CA==','1ela88t2',1,0,'',362,0,0),(28988,6508,6,392,0,'201.13.25.122',1175107895,1,0,1,1,1,1,'','','Olha só quem eu encontrei por terras estrangeiras.. <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nhehehehehe','',0,'CA==','3825ueot',1,0,'',392,0,0),(28989,6506,6,392,0,'201.13.25.122',1175107978,1,0,1,1,1,1,'','','Tente algo como isto:\n[code:um55nert]\nselect name, city, 0 as age, &quot;    &quot; as addr from tabla\n[/code:um55nert]\n\nEm MySQL e PostgreSQL rodaria normalmente, agora em ACCESS não tenho certeza.\n\nEspero ter ajudado!','',0,'AIA=','um55nert',1,0,'',392,0,0),(28990,6509,2,304,0,'201.155.7.216',1175108169,1,0,1,1,1,0,'','Archivos MDX, !!AYUDA!!','Hola:\nSigo haciendo pruebas con loas archivos MDX (no tengo opcion de usar otros), el caso es que usando el Database desktop 7 observe que usa 2 indices: \"minv01\" y \"Primario\" con los nombres TAG Minv01 y Num_Reg\nComo puedo hacer que se afecten los 2 TAGS a la ves, o que se afecten los indices incluidos en el archivo MINV01 ????\nYa no se que mas intentar, creo que estoy un poco confundido con los indices MDX\n\nsolo quiero afectar TODOS los indices que se encuentran dendtro de un archivo MDX \n\nSaludos\nVeracruz, Ver','',0,'AIA=','obbx1t7m',1,0,'',304,0,0),(28991,6433,3,343,0,'24.173.70.29',1175108484,1,0,1,1,1,0,'','','Here are some date and time related constants I use.\n\n[code:3qqvcuuh]\n#define XLSFORMAT_NUMBER_1      \'0\'\n#define XLSFORMAT_NUMBER_2      \'0&#46;00\'\n#define XLSFORMAT_NUMBER_3      \'#,##0\'\n#define XLSFORMAT_NUMBER_4      \'#,##0&#46;00\'\n#define XLSFORMAT_NUMBER_5      \'#,##0\\ &quot;pta&quot;;\\-#,##0\\ &quot;pta&quot;\'\n#define XLSFORMAT_NUMBER_6      \'#,##0\\ &quot;pta&quot;;&#91;Red&#93;\\-#,##0\\ &quot;pta&quot;\'\n#define XLSFORMAT_NUMBER_7      \'#,##0&#46;00\\ &quot;pta&quot;;\\-#,##0&#46;00\\ &quot;pta&quot;\'\n#define XLSFORMAT_NUMBER_8      \'#,##0&#46;00\\ &quot;pta&quot;;&#91;Red&#93;\\-#,##0&#46;00\\ &quot;pta&quot;\'\n#define XLSFORMAT_NUMBER_9      \'0%\'\n#define XLSFORMAT_NUMBER_10     \'0&#46;00%\'\n#define XLSFORMAT_NUMBER_11     \'0&#46;00E+00\'\n#define XLSFORMAT_NUMBER_12     \'@\'\n#define XLSFORMAT_DATE_1        \'mm/dd/yy\'\n#define XLSFORMAT_DATE_2        \'dd\\-mmm\\-yy\'\n#define XLSFORMAT_DATE_3        \'dd\\-mmm\'\n#define XLSFORMAT_DATE_4        \'mmm\\-yy\'\n#define XLSFORMAT_DATE_5        \'h&#58;mm\\ a&#46;m&#46;/p&#46;m&#46;\'\n#define XLSFORMAT_DATE_6        \'h&#58;mm&#58;ss\\ a&#46;m&#46;/p&#46;m&#46;\'\n#define XLSFORMAT_DATE_7        \'h&#58;mm\'\n#define XLSFORMAT_DATE_8        \'h&#58;mm&#58;ss\'\n#define XLSFORMAT_DATE_9        \'dd/mm/yy\\ h&#58;mm\'\n#define XLSFORMAT_DATE_10       \'mm&#58;ss\'\n[/code:3qqvcuuh]','',0,'AIA=','3qqvcuuh',1,0,'',343,0,0),(28992,6508,6,362,0,'200.168.52.156',1175112468,1,0,1,1,1,1,'','','[quote=&quot;vailtom&quot;:262oux95]Olha só quem eu encontrei por terras estrangeiras.. <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\nhehehehehe[/quote:262oux95]\n\n\nE AI MEU QUERIDO AMIGO DE SÃO PAULO-BRASIL?\n\nComo vai esta potencia do FIVEWIN Brasil?\n\nQuanto tempo não o vejo(hehehehehe).\n\nEspero que o senhor estja gozando de boa Saúde.\n\nBom ve-lo neste maravilhoso forum. Bem vindo.\n\nAbraços.','',0,'gA==','262oux95',1,0,'',362,0,0),(28993,6510,3,267,0,'200.208.238.2',1175113421,1,0,1,1,1,1,'','Unload dll','Hi,\n\nI need to unload a DLL of which I know only the name. I have as?','',0,'gA==','1h7p4loa',1,0,'',267,0,0),(28994,6510,3,2,0,'87.218.146.189',1175114477,1,0,1,1,1,1,'','','Vilian,\n\nFreeLibrary( GetModuleHandle( cDllName ) )','',0,'gA==','3q8qmjgl',1,0,'',2,0,0),(28995,6485,6,2,0,'87.218.146.189',1175114614,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; Si puede proporcionarme un ejemplo del make, te lo agrecedira.\n\nTe estamos preparando un ejemplo de make para múltiples PRGs. Te lo enviaremos por email\n\n&gt;\nY en cuanto a las venanas principlaes, cada ventana tiene su propio workthread como Xbase++ ? o al abrir las tablas estas estan abiertas en todo el programa ? \n&gt;\n\nLas ventanas no estan relacionadas con las areas de trabajo. Al abrir las tablas estan abiertas en todo el programa','',0,'gA==','1lgr6dgt',1,0,'',2,0,0),(28996,6510,3,267,0,'200.208.238.2',1175115720,1,0,1,1,1,1,'','','Antonio,\n\nIt did not function. I need to unload the ACE32.DLL.','',0,'gA==','ii6eq33f',1,0,'',267,0,0),(28997,6508,6,9,0,'85.59.41.161',1175117114,1,0,1,1,1,1,'','Re: Imprimir en la Impresora - ELTRON-2642','[quote=&quot;karinha&quot;:2y5dgv4n]\nNecesito un ejemplo de como se imprime en esta impresora.\nELTRON TLP 2642.\n[/quote:2y5dgv4n]\n\nUtilice esta impresora en un viejo programa en Clipper 5.3, para imprimir etiquetas con código de barras. Te envio las funciones que deberás adaptarlas a FiveWin:\n\n***************************************\n*** funciones para imprimir etiquetas\n*** en impresora ELTRON / ZEBRA\n***************************************\nFUNC ETIQUETA(nRepe)       // nRepe = numero de etiquetas a imprimir\n\n    TipImp  = \'S\'\n    LNarrow = IF ( TipImp = \'S\', 2, 1 )\n    LWide   = IF ( TipImp = \'S\', 1, 2 )\n\n    WHILE !FT_ISPRINT(TRIM(impresor-&gt;CBARRAS)) .AND. SUBS(impresor-&gt;LISTADOS,1,1) # \"C\"\n       nLen := VALERT (\"IMPRESORA DE ETIQUETAS;;NO PREPARADA.\",{\"Aceptar\",\"Cancelar\"},11)\n       IF nLen&lt;&gt;1\n          RETURN(0)\n       ENDI\n    ENDD\n    nLen  = LEN(NOMBRE)\n    SET PRINTER TO (TRIM(impresor-&gt;CBARRAS)) // nombre impresora codigo barras\n    SET DEVI TO PRINT                     // impresora\n    FOR I = 1 TO nRepe\n        VACIA_ETI ()\n        TAMANO_ETI ()\n        ** imprime_cod  columna\n        **              fila\n        **              rotation   0 = no\n        **              tipo BarCode (segun tabla) E30 = EAN 13\n        **              LNarrow = anchura\n        **              Lwide\n        **              altura\n        **              N\n        **              Cod_bar  = codigo de barra\n        IMPRIME_COD   ( 155,   6, 0, \'E30\', LNarrow, LWide, 50, \'N\', Cod_Bar )\n        IMPRIME_TEXTO ( 305,  10, 0, 4, 1, 1, \'N\', cPvP )  \n        IMPRIME_TEXTO ( 390,  14, 0, 2, 1, 1, \'N\', \'Eur\' )\n        IMPRIME_TEXTO ( 325,  35, 0, 2, 1, 1, \'N\', cCam )\n        IMPRIME_TEXTO ( 390,  35, 0, 2, 1, 1, \'N\', \'Pts\' )\n        IMPRIME_TEXTO ( 163,  60, 0, 2, 1, 1, \'N\', LEFT ( Referencia, 9 ) )\n        IMPRIME_TEXTO ( 260,  60, 0, 2, 1, 1, \'N\', STR  ( Proveedor, 5 ) )\n        IMPRIME_TEXTO ( 310,  60, 0, 2, 1, 1, \'N\', Ref_Pro )\n        IMPRIME_TEXTO ( 165,  85, 0, 2, 1, 1, \'N\', LEFT ( Nombre, 30 ) )\n        @ PROW () , 0 say \'P1\' + CHR (13) + CHR (10)\n    next\n    set printer to                  // (LPTX) impresora normal\n    set device to SCREEN            // pantalla\n    SET CURSOR ON\nReturn(0)\n\nfunc VACIA_ETI\n   @ PROW () , 0 say \'N\' + CHR (13) + CHR (10)\n   return(0)\n\nfunc TAMANO_ETI\n\n   Rel = IF ( TipImp = \'S\', 11.5 / 8, 1 )\n   Largo = STR ( INT ( 240 * Rel ), 3 )\n   Sep   = STR ( INT ( 24  * Rel ), 2 )\n   @ PROW () , 0 say \'Q\' + Largo + \',\' + Sep + CHR (13) + CHR (10)\n   return(0)\n\nfunc IMPRIME_COD ( Col, Lin, Rot, CBar, Narrow, Ancho, Alto, Num, Codigo )\n\n   Rel = IF ( TipImp = \'S\', 11.5 / 8, 1 )\n\n   @ PROW () , 0 say \'B\' + CAM ( Col * Rel ) + \',\' + ;\n                      CAM ( Lin * Rel ) + \',\' + ;\n                      CAM ( Rot ) + \',\' + ;\n                      CBar + \',\' + ;\n                      CAM ( Narrow ) + \',\' + ;\n                      CAM ( 2 ) + \',\' + ; &amp;&amp; Ancho * Rel\n                      CAM ( Alto * Rel ) + \',\' + ;\n                      Num + \',\' + \'\"\' + Codigo + \'\"\' + CHR (13) + CHR (10)\n   return(0)\n\nfunc IMPRIME_TEXTO ( Col, Lin, Rot, Fuente, MulCol, MulLin, Rev, Cadena )\n\n    Rel = IF ( TipImp = \'S\', 11.5 / 8, 1 )\n\n    @ PROW () , 0 say \'A\' + CAM ( Col * Rel ) + \',\' + ;\n                          CAM ( Lin * Rel ) + \',\' + ;\n                          CAM ( Rot ) + \',\' + ;\n                          CAM ( Fuente ) + \',\' + ;\n                          CAM ( MulCol ) + \',\' + ;\n                          CAM ( MulLin ) + \',\' + ;\n                          Rev + \',\' + \'\"\' + ;\n                          Cadena + \'\"\' + CHR (13) + CHR (10)\n    return(0)\n\nfunc CAM (Num)\n  cxx=ALLTRIM ( STR ( Num, 10 ) )\n  return(cxx)','',0,'gA==','2y5dgv4n',1,0,'',9,0,0),(28998,6511,3,705,0,'61.0.136.77',1175117468,1,0,1,1,1,0,'','Error during Compile','Hi everybody,\n\nI am Creating a .mak file in MSMAKE and compiling my code. During compiling the following error code generating, which is unresolved. \n\nerror LNK2019: unresolved external symbol _xCCGetLargestConsoleWindowSize referenced in function _hb_gt_SetMode regcode.exe : fatal error LNK1120: 1 unresolved externals\n\nI am creating gtwin.lib (gtwin.c, cmdarg.c and mousewin.c). It is creating successfully.\n\nI think, the above symbol is part of gtwin.c. I am including wincon.h (i.e. “#include wincon.h”) also in gtwin.c for testing. But practically there is no effect.\n\nCan any one give me solution? \n\nWith regards,\nArindam','',0,'gA==','1uz2l5vc',1,0,'',705,0,0),(28999,5661,7,64,0,'201.72.124.2',1175117669,1,0,1,1,1,1,'','','Rene,\n\n   Tengo el mismo problema usar IDX. El uso ADS 8.1 (REMOTE).\n\nAEVAL(DIRECTORY(\'s:\\*.idx\'),{|aFile| FERASE(aFile[F_NAME])})\n\nSELE 4 \nUSE RESPONSA.DBF \nINDEX ON CODIGO  TAG INDCODIGO TO INDRESP\nINDEX ON CODRESP TAG INDRSP01 TO INDRESP\nSET ORDER TO TAG INDCODIGO in INDRESP\noMeter:SET(20)\n\nFunciona!\n\nCuándo uso:\nSELE 4\nUSE RESPONSA INDEX INDRESP SHARED\nSET ORDER TO TAG INDCODIGO IN INDRESP\n\nNo funciona!!','',0,'','2xl6dce6',1,0,'',64,0,0),(29000,6510,3,2,0,'87.218.146.189',1175118185,1,0,1,1,1,1,'','','Vilian,\n\nTry this:\n[code:1idrah8z]\nwhile GetModuleHandle&#40; cDllName &#41; &#41; != 0\n   FreeLibrary&#40; GetModuleHandle&#40; cDllName &#41; &#41;\n   SysRefresh&#40;&#41;\nend\n[/code:1idrah8z]','',0,'AIA=','1idrah8z',1,0,'',2,0,0),(29001,6511,3,2,0,'87.218.146.189',1175118271,1,0,1,1,1,1,'','','Arindam,\n\nYou have to use GTGUI.lib not GTWIN.lib','',0,'AIA=','211ioepc',1,0,'',2,0,0),(29002,6512,6,1001,0,'80.25.144.122',1175119657,1,0,1,1,1,0,'','Error database','1º Hola, hace tiempo estuve en el foro antiguo. Mi problema es que pasando el ejemplo dbf01.prg tengo siempre un error, he probado casi todos los ejemplos del odf y siempre me han dado herror , copio el error .log debajo de mi mensaje. Estoy utilizando el buidlh  que viene en la carpeta samples. La version de fivewin es la 2.8 de noviembre del 2006.\n\nDe antemano muchas gracias.\n\nApplication\n===========\n   Path and name: D:\\FWH\\SAMPLES\\dbf01.exe (32 bits)\n   Size: 1,159,168 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 03/28/07, 23:58:51\n   Error description: Error BASE/44  Assigned value is wrong class: TDATABASE:BBOF\n   Args:\n     [   1] = B   {|| ... }\n\nStack Calls\n===========\n   Called from:  =&gt; TDATABASE:_BBOF(0)\n   Called from: dbf01.prg =&gt; TDATABASE:NEW(0)\n   Called from: dbf01.prg =&gt; CLIENTSREC(64)\n   Called from: dbf01.prg =&gt; (b)BUILDMENU(39)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: dbf01.prg =&gt; MAIN(25)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 3.00GHz 3017 Mhz\n   Hardware memory: 512 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 46.2 Intl. (Flex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 63\n     15 C:\\WINDOWS\\system32\\cmd.exe - buildh dbf01\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TDATABASE:_BBOF\n     Param   1:    B    {|| ... }\n     Local   1:    N    0\n   TDATABASE:NEW\n     Local   1:    N    1\n     Local   2:    O    Class: TDATABASE\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    A    Len:    0\n     Local   6:    A    Len:    0\n   CLIENTSREC\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    L    .F.\n   (b)BUILDMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20001\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TWINDOW\n     Local   2:    N    0\n     Local   3:    N    20001\n     Local   4:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20001\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20001\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TWINDOW\n   WINRUN\n     Param   1:    N    5178918\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\n  1: =&gt; CUSTOMER                           RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n          1          500      .F.   .F.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TMENU\n     5 TMENUITEM\n     6 TBRUSH\n     7 TFONT\n     8 TMSGBAR\n     9 TRECT\n    10 TDATABASE\n    11 ERROR\n    12 TREG32\n\nMemory Analysis\n===============\n      121 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','1meyj9dy',1,0,'',1001,0,0),(29004,6514,2,235,0,'201.151.70.15',1175120748,1,0,1,1,1,0,'','ME PODRIAN EXPLICAR EL USO DEL SCOPE','Y SI SE PUEDE USAR EL RESULTADO EN UN BROWSE\n\nDE ANTEMANO MUCHAS GRACIAS','',0,'','19upv8fl',1,0,'',235,0,0),(29005,6512,6,2,0,'87.218.146.189',1175121214,1,0,1,1,1,1,'','','Modifica la clase TDataBase y quita todas las claúsulas \"AS\":\n\nDATA ... // AS ...','',0,'','2uu7gm0j',1,0,'',2,0,0),(29006,6508,6,362,0,'200.168.52.156',1175121264,1,0,1,1,1,1,'','Re: Imprimir en la Impresora - ELTRON-2642','[quote=&quot;Manuel Valdenebro&quot;:247qtw2f][quote=&quot;karinha&quot;:247qtw2f]\nNecesito un ejemplo de como se imprime en esta impresora.\nELTRON TLP 2642.\n[/quote:247qtw2f]\n\nUtilice esta impresora en un viejo programa en Clipper 5.3, para imprimir etiquetas con código de barras. Te envio las funciones que deberás adaptarlas a FiveWin:\n\n***************************************\n*** funciones para imprimir etiquetas\n*** en impresora ELTRON / ZEBRA\n***************************************\nFUNC ETIQUETA(nRepe)       // nRepe = numero de etiquetas a imprimir\n\n    TipImp  = \'S\'\n    LNarrow = IF ( TipImp = \'S\', 2, 1 )\n    LWide   = IF ( TipImp = \'S\', 1, 2 )\n\n    WHILE !FT_ISPRINT(TRIM(impresor-&gt;CBARRAS)) .AND. SUBS(impresor-&gt;LISTADOS,1,1) # \"C\"\n       nLen := VALERT (\"IMPRESORA DE ETIQUETAS;;NO PREPARADA.\",{\"Aceptar\",\"Cancelar\"},11)\n       IF nLen&lt;&gt;1\n          RETURN(0)\n       ENDI\n    ENDD\n    nLen  = LEN(NOMBRE)\n    SET PRINTER TO (TRIM(impresor-&gt;CBARRAS)) // nombre impresora codigo barras\n    SET DEVI TO PRINT                     // impresora\n    FOR I = 1 TO nRepe\n        VACIA_ETI ()\n        TAMANO_ETI ()\n        ** imprime_cod  columna\n        **              fila\n        **              rotation   0 = no\n        **              tipo BarCode (segun tabla) E30 = EAN 13\n        **              LNarrow = anchura\n        **              Lwide\n        **              altura\n        **              N\n        **              Cod_bar  = codigo de barra\n        IMPRIME_COD   ( 155,   6, 0, \'E30\', LNarrow, LWide, 50, \'N\', Cod_Bar )\n        IMPRIME_TEXTO ( 305,  10, 0, 4, 1, 1, \'N\', cPvP )  \n        IMPRIME_TEXTO ( 390,  14, 0, 2, 1, 1, \'N\', \'Eur\' )\n        IMPRIME_TEXTO ( 325,  35, 0, 2, 1, 1, \'N\', cCam )\n        IMPRIME_TEXTO ( 390,  35, 0, 2, 1, 1, \'N\', \'Pts\' )\n        IMPRIME_TEXTO ( 163,  60, 0, 2, 1, 1, \'N\', LEFT ( Referencia, 9 ) )\n        IMPRIME_TEXTO ( 260,  60, 0, 2, 1, 1, \'N\', STR  ( Proveedor, 5 ) )\n        IMPRIME_TEXTO ( 310,  60, 0, 2, 1, 1, \'N\', Ref_Pro )\n        IMPRIME_TEXTO ( 165,  85, 0, 2, 1, 1, \'N\', LEFT ( Nombre, 30 ) )\n        @ PROW () , 0 say \'P1\' + CHR (13) + CHR (10)\n    next\n    set printer to                  // (LPTX) impresora normal\n    set device to SCREEN            // pantalla\n    SET CURSOR ON\nReturn(0)\n\nfunc VACIA_ETI\n   @ PROW () , 0 say \'N\' + CHR (13) + CHR (10)\n   return(0)\n\nfunc TAMANO_ETI\n\n   Rel = IF ( TipImp = \'S\', 11.5 / 8, 1 )\n   Largo = STR ( INT ( 240 * Rel ), 3 )\n   Sep   = STR ( INT ( 24  * Rel ), 2 )\n   @ PROW () , 0 say \'Q\' + Largo + \',\' + Sep + CHR (13) + CHR (10)\n   return(0)\n\nfunc IMPRIME_COD ( Col, Lin, Rot, CBar, Narrow, Ancho, Alto, Num, Codigo )\n\n   Rel = IF ( TipImp = \'S\', 11.5 / 8, 1 )\n\n   @ PROW () , 0 say \'B\' + CAM ( Col * Rel ) + \',\' + ;\n                      CAM ( Lin * Rel ) + \',\' + ;\n                      CAM ( Rot ) + \',\' + ;\n                      CBar + \',\' + ;\n                      CAM ( Narrow ) + \',\' + ;\n                      CAM ( 2 ) + \',\' + ; &amp;&amp; Ancho * Rel\n                      CAM ( Alto * Rel ) + \',\' + ;\n                      Num + \',\' + \'\"\' + Codigo + \'\"\' + CHR (13) + CHR (10)\n   return(0)\n\nfunc IMPRIME_TEXTO ( Col, Lin, Rot, Fuente, MulCol, MulLin, Rev, Cadena )\n\n    Rel = IF ( TipImp = \'S\', 11.5 / 8, 1 )\n\n    @ PROW () , 0 say \'A\' + CAM ( Col * Rel ) + \',\' + ;\n                          CAM ( Lin * Rel ) + \',\' + ;\n                          CAM ( Rot ) + \',\' + ;\n                          CAM ( Fuente ) + \',\' + ;\n                          CAM ( MulCol ) + \',\' + ;\n                          CAM ( MulLin ) + \',\' + ;\n                          Rev + \',\' + \'\"\' + ;\n                          Cadena + \'\"\' + CHR (13) + CHR (10)\n    return(0)\n\nfunc CAM (Num)\n  cxx=ALLTRIM ( STR ( Num, 10 ) )\n  return(cxx)[/quote:247qtw2f]\n\nGracias, Manuel \n\n\nVoy compilar en XHARBOUR modo CONSOLE si funcionar, adapto a FIVEWIN.\n\nMuchas gracias.\n\nRegards, saludos.','',0,'gA==','247qtw2f',1,0,'',362,0,0),(29007,6506,6,278,0,'164.77.219.82',1175124126,1,0,1,1,1,1,'','','Vailtom:\n\nFUNCIONO Perfecto , al 100 % !!!  \n\nMUCHAS  GRACIAS !!!!!!!!!!\n\nSaludos ,','',0,'gA==','1idd879w',1,0,'',278,0,0),(29008,6480,6,64,0,'201.72.124.2',1175125433,1,0,1,1,1,1,'','','Gracias Marco.','',0,'gA==','268nydc4',1,0,'',64,0,0),(29009,6502,3,69,0,'74.13.36.207',1175126194,1,0,1,1,1,0,'','','Thanks Antonio.\n\n\n\n\n\nJeff','',0,'gA==','9op5jr42',1,0,'',69,0,0),(29010,6485,6,95,0,'189.171.38.225',1175130322,1,0,1,1,1,0,'','','Gracias Antonio, \n\nHe pensado hacerca del ftp, al igual para hacer zip o desempacar.\n\nSi desde el programa construyo un script con fcreate() y luego lo corro con un run().\nDesde luego en el script debera conectarme al servidor en caso del ftp y en el caso del pkzip o pkunzip ( algo similar ) desempaco en el folder donde lo necesito.\n\nEsta bien la idea ?\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','10vvxvcb',1,0,'',95,0,0),(29011,6515,3,65,0,'193.201.131.125',1175137587,1,0,1,1,1,0,'','Which language version of Excel is installed','Hi,\n\nIs it possible to find out which language version of Excel is installed on the current system.\ni.e whether it is japanese office, english office, chinese office or some other language.\n\nHow can i find it out using the code ?\n\nRegards,\nBirol Betoncu','',0,'gA==','1gf2u166',1,0,'',65,0,0),(29012,6480,6,37,0,'201.230.61.160',1175141651,1,0,1,1,1,1,'','','Saludos Marco, si no es mucha molestia, me puedes enviar a mi tambien dicha clase, hace algun tiempo que deseo hacer unos buenos graficos.\nMi mail es : <!-- e --><a href=\"mailto:notebook@consorcioinformatico.com\">notebook@consorcioinformatico.com</a><!-- e --> con copia a <!-- e --><a href=\"mailto:evos@viabcp.com\">evos@viabcp.com</a><!-- e -->\nMuchas gracias','',0,'gA==','2lxwvez5',1,0,'',37,0,0),(29013,6516,6,439,0,'200.125.35.233',1175143068,1,0,1,1,1,1,'','Busqueda incremental parametrica','Hola, \nMe han enriquecido tanto en el foro con sus aportes, que modestamente he querido hacer este, aunque pequeño, entre los novatos como yo, seguramente habrá a quien quien le pueda ser útil\n\nEsta función despliega una busqueda incremental clásica, busca por ejemplo por el nombre del producto y devuelve el código del mismo.\n\nLo interesante es que no requiere pasarle muchos parámetros, solo el alias de la base donde se busca, el titulo del campo de búsqueda, y la posición ordinal del campo que se desea obtener (ej. nro. de codigo) y del que se usa para buscar (ejemplo descripcion) y además no requiere de ningún recurso.\n\nEl campo que se devuelve, podrá ser numérico o de texto, aquel por el que se busca naturalmente será de texto.\n\nLa función devuelve un array con ambos valores, el primer elemento es el código, para el caso y el segundo el nombre.\n\nSINTAXIS:\nBuscox(cAlias, cTitulo, n1, n2)\n\nLa encontrará aquí:\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?5mqozjtn2no\">http://www.mediafire.com/?5mqozjtn2no</a><!-- m -->\n\nEspero que les sea útil, cualquier sugerencia para mejorarlo se recibirá con gozo.','',0,'gA==','19a6aloe',1,0,'',439,0,0),(29014,6485,6,2,0,'87.218.146.189',1175144141,1,0,1,1,1,1,'','','Osvaldo,\n\nPuedes descargar un nuevo build de FiveMac que incluye el directorio make con un makefile para múltiples PRGs. Usa los datos de acceso que te proporcionamos al principio\n\nTu idea me parece buena <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2z96uem0',1,0,'',2,0,0),(29015,6517,16,2,0,'87.218.146.189',1175144244,1,0,1,1,1,1,'','New FiveMac build','Already available to download','',0,'gA==','1appn43q',1,0,'',2,0,0),(29016,6518,3,31,0,'195.182.84.105',1175144274,1,0,1,1,1,1,'','RTF Class ...','Hi !\n  If to open rtf file which contains two tables with Word , you will see correct view - both tables are parallelly . But if open this file with RTF class ( with TestRich ) , then the tables are going in sequence - first is above and second below . How to avoid this ?','',0,'gA==','1l4in57h',1,0,'',31,0,0),(29017,6519,3,2,0,'87.218.146.189',1175145237,1,0,1,1,1,1,'','UEStudio - FWPPC config','Hello Richard,\n\nDid you have a chance to start working on it ?\n\nWe are quite interested to provide it to FWPPC users. Please let us know if we can help, thanks','',0,'gA==','3o2vf317',1,0,'',2,0,0),(29018,6519,3,3,0,'80.81.159.19',1175150350,1,0,1,1,1,1,'','Re: UEStudio - FWPPC config','Antonio\n\nI was quite busy lately, i will work on it today or tomorrow\n\nRegards\n\nRichard','',0,'gA==','2svcfilv',1,0,'',3,0,0),(29019,6520,19,2,0,'87.218.146.189',1175150556,1,0,1,1,1,1,'','Steve Jobs on Stanford (don\'t miss it-no os lo perdais)','Don\'t miss this -  No os lo perdais:\n\n<!-- m --><a class=\"postlink\" href=\"http://video.google.com/videoplay?docid=3014637678488153340\">http://video.google.com/videoplay?docid ... 8488153340</a><!-- m -->','',0,'gA==','1ds05d8f',1,0,'',2,0,0),(29020,6516,6,106,0,'85.34.123.173',1175154743,1,0,1,1,1,1,'','','José, me pide contraseña.\n\n\nSaludos.','',0,'gA==','1bc0nt4b',1,0,'',106,0,0),(29021,6479,3,247,0,'83.171.242.103',1175154834,1,0,1,1,1,0,'','Re: No border on a BTNBMP button','[quote=&quot;EnricoMaria&quot;:3bqipoeu]Did you try the NOBORDER clause?\n\nEMG[/quote:3bqipoeu]\n\nThank you very much Enrico','',0,'gA==','3bqipoeu',1,0,'',247,0,0),(29022,6471,3,6,0,'80.181.217.26',1175155652,1,0,1,1,1,1,'','Re: No exported method: END on exit','This is a version using LOCAL variable:\n\n[code:9usqii49]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT oWnd&#58;SetMenu&#40; BUILDMENU&#40; oWnd &#41; &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION BUILDMENU&#40; oWnd &#41;\n\n    LOCAL oMenu\n\n    MENU oMenu\n        MENUITEM &quot;Exit&quot;;\n                 ACTION oWnd&#58;End&#40;&#41;\n    ENDMENU\n\n    RETURN oMenu[/code:9usqii49]\n\nEMG','',0,'AIA=','9usqii49',1,0,'',6,0,0),(29023,6480,6,959,0,'201.58.8.168',1175165282,1,0,1,1,1,0,'','Classe gráficos','Olá Marcos, excelente trabalho, poderia enviar a mim também por favor.\n\nGracias.\n\nMário Saviotti Jr.\n<!-- e --><a href=\"mailto:mario@bytesoftware.com.br\">mario@bytesoftware.com.br</a><!-- e -->','',0,'AIA=','3gzqhbcl',1,0,'',959,0,0),(29024,6516,6,439,0,'200.125.40.167',1175171315,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:37bc1zoe]José, me pide contraseña.\n\nSaludos.[/quote:37bc1zoe]\n\nPerdón, es que tengo el perfil de winrar predeterminado así y me olvidé <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , aquí envío el link del zip sin cifrar:  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?cjmgngx20gm\">http://www.mediafire.com/?cjmgngx20gm</a><!-- m -->','',0,'gA==','37bc1zoe',1,0,'',439,0,0),(29025,6480,6,439,0,'200.125.40.167',1175171893,1,0,1,1,1,1,'','','Por favor, también a mí por favor.\n\n<!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->\n\nGracias dese ya.','',0,'gA==','2l11847o',1,0,'',439,0,0),(29026,6474,6,694,0,'200.189.112.21',1175172323,1,0,1,1,1,1,'','','up!!!','',0,'gA==','1bs41iop',1,0,'',694,0,0),(29027,6457,3,705,0,'61.0.137.83',1175176280,1,0,1,1,1,0,'','','Thanks James for your reply.\n\nThis is not FWH default editor. This is xHarbour default editor.\n\nI had done some mistake in my part for which i was in problem. Now it is ok.\n\nWith regards,\nArindam','',0,'gA==','1kvxa4ut',1,0,'',705,0,0),(29028,6451,2,376,0,'201.230.199.67',1175176821,1,0,1,1,1,1,'','','Esa particularidad siempre estuvo en Clipper. Por eso los gurús de Clipper antiguamente aconsejaban que para hacer una búsqueda era necesario hacer un previo gotop(). En dBase esto no ocurría (acuerdense que Clipper fue el compilador del codigo dBase).','',0,'gA==','4o7ymzaf',1,0,'',376,0,0),(29029,6521,1,999,0,'201.43.141.145',1175180111,1,0,1,1,1,0,'','Trees from Resources','Hi, I am a long time reader, it is my first post.\nI am testing the program TESTTREE.PRG (from tree_r5.zip) showing trees in MDI-CHILD, dialogs and from resources and it works OK.\nWhen I transferred the tree-from-resources routine into an other program  and the resources into an other DLL it stopped working.\nIf I put \"set resources to ´testtree.dll´\" before the routine, it works OK\nAny hints ?\nTIA, Euclides  \n\nFW2.0 + BRW','',0,'gA==','3uszggvc',1,0,'',999,0,0),(29030,6480,6,850,0,'201.255.75.100',1175181920,1,0,1,1,1,0,'','','Por favor me lo enviarias a mi tambiem.\n\nMuchas Gracias\n\nandres\n\n<!-- e --><a href=\"mailto:andresb@credil.com\">andresb@credil.com</a><!-- e -->','',0,'gA==','1tlox1gw',1,0,'',850,0,0),(29031,6485,6,95,0,'189.155.151.98',1175182951,1,0,1,1,1,0,'','','Gracias Antonio\n\nDentro del folder make solo hay prgs y .o y la app, deberia haber un .mak ?\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','17pmieid',1,0,'',95,0,0),(29032,6447,20,49,0,'213.82.134.66',1175183281,1,0,1,1,1,1,'','','fate finta che non vi ho scritto niente','',0,'gA==','1ag0hrch',1,0,'',49,0,0),(29033,6485,6,2,0,'87.218.146.189',1175185902,1,0,1,1,1,1,'','','Osvaldo,\n\nDebe haber un fichero que se llama makefile y llamando a make, la aplicación se construye y se ejecuta','',0,'gA==','9m2kv0ox',1,0,'',2,0,0),(29034,6485,6,95,0,'189.155.151.98',1175186080,1,0,1,1,1,0,'','','Antonio\n\ndentro del folder make, no hay ningun archivo llamado makefile, solo los prg, one.app y los .o\n\n\nA lo mejor se olvido ?\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','3kuchx1i',1,0,'',95,0,0),(29035,6447,20,6,0,'87.17.186.102',1175186118,1,0,1,1,1,1,'','','Hai risolto o hai rinunciato?\n\nEMG','',0,'gA==','26tvrix7',1,0,'',6,0,0),(29036,6485,6,2,0,'87.218.146.189',1175186393,1,0,1,1,1,1,'','','Osvaldo,\n\nTe lo enviamos por email, posiblemente el instalador de OSX lo dejó fuera por alguna razón','',0,'gA==','2qrijd20',1,0,'',2,0,0),(29037,6521,1,6,0,'87.17.186.102',1175186510,1,0,1,1,1,1,'','Re: Trees from Resources','\"set resources to ´testtree.dll´\" is required.\n\nEMG','',0,'gA==','2apnaujw',1,0,'',6,0,0),(29038,6485,6,95,0,'189.155.151.98',1175187858,1,0,1,1,1,0,'','','Muchas gracias voy a probarlo\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','2st2uzme',1,0,'',95,0,0),(29039,6500,6,867,0,'148.243.37.162',1175188588,1,0,1,1,1,0,'','Hola Antonio gracias','[quote=&quot;Antonio Linares&quot;:1e7vhhjd]Susy,\n\ngracias por lsugerencia, es una buena idea y la vamos a implementar[/quote:1e7vhhjd]\n\nHola Antonio gracias por responder y tomarme en cuentra sobre esta petición pues, es que imaginense que tengamo en la base de datos un catalogo de productos mas de 2000 articulos a buscar y en ese momento el usuario tiene que teclear en el campo la clave del articulo 950 y si no lo se lo sabe buscar registro por registro o pagina por pagina como se diga en un scroll, pues del 1 a 2000, que el usuario teclee unicamente x articulo aproximado la clave 950 y con F2 despliega la pantalla con su num de codigo y descripcion y se le facilitara la busqueda de la clave del producto con la case BTNGET, y gracias Antonio, espero nuevas novedades o sugerencias o mejoras de esa clase. con un seek o setseek() que busque la clave aproximado, no precisamente tiene que ser exacto, repito porque muchas veces el usuario no se lo sabe de 2000 registros que tiene, puede ser claves de productos numericos o alfanumericos caracteres .\nSu amiga Susy desde michoacan mexico\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','1e7vhhjd',1,0,'',867,0,0),(29040,6521,1,999,0,'201.42.195.51',1175188762,1,0,1,1,1,0,'','','Enrico, thanks for the answer.\nI did \"set resources to...\" on the beginning of the main program.\nI transferred the TESTTREE.DLL resources to the main program´s DLL via the option: Add to Project... on the BWS. \nWhen running , the tree routine, opens the dialog, shows the bitmaps on the buttonbar, but does not show the tree.\nSo, to do a test, I inserted a new \"set resources to testtree.dll\" before the tree routine an a \"set resources to main.dll\" at the end of the tree routine and the tree routine worked well.\nI think there is some difference between the two dlls, but cannot figure what.\nRegards, Euclides','',0,'gA==','1imxzrs6',1,0,'',999,0,0),(29041,6516,6,867,0,'148.243.37.162',1175189133,1,0,1,1,1,0,'','Hola Jose','[quote=&quot;jose_murugosa&quot;:k8lc01cd][quote=&quot;pymsoft&quot;:k8lc01cd]José, me pide contraseña.\n\nSaludos.[/quote:k8lc01cd]\n\nPerdón, es que tengo el perfil de winrar predeterminado así y me olvidé <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , aquí envío el link del zip sin cifrar:  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?cjmgngx20gm\">http://www.mediafire.com/?cjmgngx20gm</a><!-- m -->[/quote:k8lc01cd]\n\nHola Jose como esta pues corazon, es muy buena la rutina que nos proporciona, pero creo que tendriamos que hacerlo con mas tecnicimos se pueda decir corazon, yo estoy usando la clase de terceros BTNGET, que baje en utilidades, pero creo que le falta algo mas a esa clase, porque tengo una funcion que el usuario pueda, en el campo clave teclear x clave de articulo y con F2  desplegar el listbox, con la informacion de esa clave puede o no pueda ser exacta, pero tengo la instruccion setseek() por si no encuentra con la clave que teclee y busque el siguiente x clave del articulo, pero lo mas chistoso es que antes tengo que poner dentro de mi funcion Msg(\"Buscando clave en el catalogo\")  y asi muestra la informacion y si se lo quito, no muestra nada y me pone al principio del primer clave de registro o sea del 1 al 2000, me pone el primer registro y la descripcion el 1 y si le pongo MSg(\"\") asi encuentra la clave tecleada, porque sera ? ya le busque y no le hallo, algun bug de esta clase BTNGET, debe faltar, pero no soy muy buena para desarrollar clases, espero sugerencias amigo cuidese ah y no puedo estar conectada por MSN son reglas de la empresa, por correo e internet no nos tiene permitido <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','k8lc01cd',1,0,'',867,0,0),(29042,6521,1,6,0,'87.17.186.102',1175190393,1,0,1,1,1,1,'','','It seems that BRW doesn\'t work correctly with DLLs.\n\nEMG','',0,'gA==','vrosyzg5',1,0,'',6,0,0),(29043,6522,2,146,0,'190.30.43.29',1175195774,1,0,1,1,1,0,'','para antonio','Buenas Tardes.\nEstoy trabajando en el sistema de Ricardo Becares y nos surgio este error:  en los comprobantes para cargar los articulos usamos una dbf que vamos visualizando con un browse, cuando pasamos los 40 articulos aproximadamente (registros en la tabla) nos aparece un mensaje con el siguiente error:\n\nENDDIALOG(0) Error no recuperable 650: Fallo en la pila del procesador\n\nEn otra oportunidad habiamos tenido problemas con la cantidad de gets que teniamos sobre una dialog y nos aconsejaron ustedes cambiar la compilacion con los siguientes parametros:\n\nBLINKER EXECUTABLE NODELETE\nBLINKER EXECUTABLE CLIPPER F255\nBLINKER INCREMENTAL OFF\nBLINKER PROCEDURE DEPTH 100\nBLINKER CLIPPER SYMBOL ON\n\nPACKCODE\nPACKDATA\n\nDEFBEGIN\n   name        FiveWin\n   description \'Clipper for Windows library\'\n   exetype     Windows 3.1\n   code        moveable discardable\n   data        preload moveable\n   stacksize   9500\n   heapsize    3048\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nSEARCH  d:\\fw\\lib\\Five, d:\\fw\\lib\\FiveC, d:\\fw\\lib\\Objects\ny demas lib \n\nLa pregunta es: El error que estamos teniendo tiene algo que ver con alguno de estos parametros, nos falta algo mas para compilar. Sino me gustaria que me tiren una pista o idea de que puede ser.\nGracias.\nLeonor.\n<!-- e --><a href=\"mailto:info@evosistemas.com.ar\">info@evosistemas.com.ar</a><!-- e -->','',0,'gA==','2r71xyl6',1,0,'',146,0,0),(29044,6516,6,439,0,'200.125.40.167',1175199223,1,0,1,1,1,1,'','Re: Hola Jose','[quote=&quot;Susy&quot;:1f9vcuxy][quote=&quot;jose_murugosa&quot;:1f9vcuxy][quote=&quot;pymsoft&quot;:1f9vcuxy]José, me pide contraseña.\n\nSaludos.[/quote:1f9vcuxy]\n\nPerdón, es que tengo el perfil de winrar predeterminado así y me olvidé <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , aquí envío el link del zip sin cifrar:  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?cjmgngx20gm\">http://www.mediafire.com/?cjmgngx20gm</a><!-- m -->[/quote:1f9vcuxy]\n\nHola Jose como esta pues corazon, es muy buena la rutina que nos proporciona, pero creo que tendriamos que hacerlo con mas tecnicimos se pueda decir corazon, yo estoy usando la clase de terceros BTNGET, que baje en utilidades, pero creo que le falta algo mas a esa clase, porque tengo una funcion que el usuario pueda, en el campo clave teclear x clave de articulo y con F2  desplegar el listbox, con la informacion de esa clave puede o no pueda ser exacta, pero tengo la instruccion setseek() por si no encuentra con la clave que teclee y busque el siguiente x clave del articulo, pero lo mas chistoso es que antes tengo que poner dentro de mi funcion Msg(\"Buscando clave en el catalogo\")  y asi muestra la informacion y si se lo quito, no muestra nada y me pone al principio del primer clave de registro o sea del 1 al 2000, me pone el primer registro y la descripcion el 1 y si le pongo MSg(\"\") asi encuentra la clave tecleada, porque sera ? ya le busque y no le hallo, algun bug de esta clase BTNGET, debe faltar, pero no soy muy buena para desarrollar clases, espero sugerencias amigo cuidese ah y no puedo estar conectada por MSN son reglas de la empresa, por correo e internet no nos tiene permitido <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->[/quote:1f9vcuxy]\n\nSusy, yo uso también btnget32, con buenos resultados, de hecho uso esta búsqueda con btnget32, el ejemplo no la usa porque mi interés era simplemente compartir la función.\n\nSi puedes preparar un pequeño ejemplo autocontenido que reproduzca la falla, y ponerlo aquí para descargar, tal vez yo o alguien más capaz podamos ayudarte. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1f9vcuxy',1,0,'',439,0,0),(29045,6522,2,2,0,'87.218.146.189',1175199984,1,0,1,1,1,1,'','','Leonor,\n\n&gt; ENDDIALOG(0) Error no recuperable 650: Fallo en la pila del procesador\n\nPuedes mostrar toda la lista de llamadas que aparecen en el fichero error.log previas a ENDDIALOG(0) ?\n\nNormalmente el error 650 se produce por un error recursivo, de ahi que sea necesario revisar desde donde se origina el error','',0,'gA==','17x6n3iv',1,0,'',2,0,0),(29046,6488,6,207,0,'189.158.95.180',1175200418,1,0,1,1,1,0,'','','Antonio:\n\nYa incluí la hbforce, esos errores quedaron resueltos, solo quq ahora me dice que falta la funcion _ADS , la llama del TUTIL de la TDBFH  con REQUEST , y aparte en mi modulo principal:\n\n#ifdef __HARBOUR__\n        #INCLUDE \"ADS.CH\"\n        REQUEST _ADS\n        REQUEST AdsKeyNo\n        REQUEST AdsKeyCount\n        REQUEST AdsGetRelKeyPos\n        REQUEST AdsSetRelKeyPos\n#endif\n\nde donde me falto ponerla?','',0,'gA==','kscmfe4n',1,0,'',207,0,0),(29047,6523,3,909,0,'75.177.72.230',1175200683,1,0,1,1,1,1,'','TFolder class','I noticed that there is #define TCS_MULTILINE  512 in the prg file for the TFolder class.  Does this mean there is a way to code multiline folders?  If so, how is it done?\n\nRegards,\nCharles Pratt','',0,'gA==','3bm7b1e0',1,0,'',909,0,0),(29048,6488,6,2,0,'87.218.146.189',1175201507,1,0,1,1,1,1,'','','Miguel,\n\nCambia\n\n REQUEST _ADS\n\npor\n\n REQUEST ADS','',0,'gA==','128cixm5',1,0,'',2,0,0),(29049,6451,2,375,0,'84.122.96.99',1175202775,1,0,1,1,1,1,'','','Bueno, empecé con el Summer 87, y no recuerdo esa particularidad. A lo mejor es que ya no me acuerdo. Juraría que no. Aunque si recuerdo algo de mover el puntero trás un reindexado o algo así (nunca utilicé ese comando, prefería reconstruir los indices) o tras un filtraje (que tampoco utilizo, demasiado lento).\n\nDe hecho, como el DBEDIT() era demasiado cuadriculado, creé mi propio Browse, que estuve utilizando durante años sin problemas de SEEK. Aun hoy utlizo, básicamente, ese mismo motor para mi propio Listbox, y sigue sin fallar. El trozo de código que mostré en mi post anterior forma parte de dicha CLASS.\n\nPieno que el problema de nuestro amigo está por otro lado, el Softseek quizá. O algún tipo de filtro. Con CDX a lo mejor el AUTOORDER o algo así. O a lo mejor teneis razón y hay que utilizar el GOTOP(), pero no le veo la lógica, ¿porqué para los primeros registros SÍ y para los demás NO? ¿No resulta ilógico y extraño?','',0,'gA==','3r9kra0q',1,0,'',375,0,0),(29050,6488,6,207,0,'189.158.95.180',1175202884,1,0,1,1,1,0,'','','ya avance mas ahora tengo esto:\n\nError occurred at: 29/03/2007, 15:06:10\n   Error description: Error BASE/1005  Message not found: TINDEX:_ODBF\n\nStack Calls\n===========\n   Called from:  =&gt; TINDEX:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TINDEX:MSGNOTFOUND(0)\n   Called from: TIndex.PRG =&gt; TINDEX:_ODBF(167)\n   Called from: TIDXUTIL.PRG =&gt; GETIDXNONE(84)\n   Called from: TDBF.PRG =&gt; TACACHAZA:NEW(341)\n   Called from: TDBF.PRG =&gt; TACACHAZA:NEWOPEN(354)\n   Called from: cachaza.PRG =&gt; CACHAZAXHORA(216)\n   Called from: cachaza.PRG =&gt; (b)CACHAZA(103)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: cachaza.PRG =&gt; CACHAZA(10','',0,'gA==','31vf83hk',1,0,'',207,0,0),(29051,6488,6,2,0,'87.218.146.189',1175203674,1,0,1,1,1,1,'','','Miguel,\n\nPor favor, vuelve a enviarme el ZIP con las clases por email, gracias','',0,'gA==','2f8h9u7w',1,0,'',2,0,0),(29052,6514,2,375,0,'84.122.96.99',1175203993,1,0,1,1,1,1,'','','El SCOPE se uitliza para delimitar una salida de registros. Por ejemplo, en un listado de apellidos, el SCOPE sería indicar: DESDE \"Gómez\" HASTA \"Rodríguez\", que serían los límites del SCOPE, o DESDE \"18 años\" HASTA \"40 años\", etc...\n\nYo no utilizo el Browse de FiveWin, pero en el manual, se puede leer en la definición LISTBOX la línea:\n\n[b:xykfbxnz][ SELECT &lt;cField&gt; FOR &lt;uValue1&gt; [ TO &lt;uValue2&gt;] ] [/b:xykfbxnz]\n\n&lt;uValue1&gt; y &lt;uValue2&gt; representan los límites del SCOPE\n\nAlgunos programadores prefieren utilisar un FILTRO y así no tener que definir un SCOPE en el BROWSE. Por ejemplo:\n\n[b:xykfbxnz]SET FILTER TO APELLIDOS &gt;= \"Gómez\" .AND: APELLIDOS &lt;= \"Rodríguez\"[/b:xykfbxnz]\n No te lo aconsejo, ralentiza la aplicación.\n\nCon DBF/CDX puedes incluso crear un INDICE con su propio SCOPE (indice condicional), así no tienes que preocuparte en filtros ni límites de listados. Creo que es la mejor opción. Por ejemplo:\n\n[b:xykfbxnz]INDEX ON BASE-&gt;APELLIDO TAG Grupo FOR APELLIDOS &gt;= \"Gómez\" .AND. APELLIDOS &lt;= \"Rodríguez\"[/b:xykfbxnz]\n\nSólo se añaden al índice los registros que cumplen la condición.','',0,'QA==','xykfbxnz',1,0,'',375,0,0),(29053,6488,6,36,0,'200.113.56.235',1175204440,1,0,1,1,1,0,'','','Miguel\n\nDebes colocar la libreria antes de las de fivewin ( fiveh(x) )\n\no bien elimina la tindex.obj de la fiveh(X)\n\nsaludos\nPatricio','',0,'QA==','5bdd71az',1,0,'',36,0,0),(29054,6523,3,2,0,'87.218.146.189',1175204886,1,0,1,1,1,1,'','','Charles,\n\nDo you plan to create them from source code or from resources ?','',0,'QA==','2l5qpu41',1,0,'',2,0,0),(29055,6512,6,1001,0,'80.25.144.122',1175205157,1,0,1,1,1,0,'','','OK Ahora funciona quitanso el as del la linea 23 <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->   \n   DATA   bBoF, bEoF, bNetError  //AS CODEBLOCK\nGracias por tu ayuda. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->\n\nSaludos \nCuco','',0,'QA==','1n73ke4j',1,0,'',1001,0,0),(29056,6488,6,2,0,'87.218.146.189',1175205493,1,0,1,1,1,1,'','','Patricio,\n\nEso es lo que pensé <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> por eso quería comprobar las clases de TDbf para ver si hay colisión en los nombres\n\nTu solución posiblemente es la correcta <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','1bldzeed',1,0,'',2,0,0),(29057,6518,3,86,0,'213.119.103.68',1175206948,1,0,1,1,1,1,'','','Rimantas,\n\nSorry that I have no answer to your question, but I want to add a problem that I have with the sample TestRich.\n\nIn the PRG-file, the dll RICHED20.DLL is used. Where can I find this DLL-file ?\n\nThank you.\n\nMichel','',0,'QA==','2rwxmp9u',1,0,'',86,0,0),(29058,6451,2,376,0,'190.40.52.12',1175207273,1,0,1,1,1,1,'','','Tampoco supee a que se debia, en ese entonces y aún ahora me sigo preguntando el porque de lo que aconsejaban.','',0,'QA==','qoad2t44',1,0,'',376,0,0),(29059,6488,6,207,0,'189.158.95.180',1175207311,1,0,1,1,1,0,'','','Aqui voy de nuevo, gracias por su ayuda.\n\nYa depuró todo 0 error, 0 warning, peeeeero,, ¿porque no muestra nada?\nsolo se activa en al administrador de tareas.\n\nen el error anterior spor lo menos me abria el dialogo para pedir el usuario y contraseña. ¿?','',0,'QA==','25wnx7cz',1,0,'',207,0,0),(29060,6515,3,69,0,'74.13.36.207',1175208957,1,0,1,1,1,0,'','','This is the info found in the excel chm file:\n\nLanguageSettings Property Example\n\nThis example returns the language identifier for the language you selected when you installed Microsoft Excel.\n\nSet objLangSet = Application.LanguageSettings\nMsgBox objLangSet.LanguageID(msoLanguageIDInstall)\n\n\nI Hope this helps.\n\n\nJeff','',0,'QA==','iiuwg2kz',1,0,'',69,0,0),(29061,6516,6,867,0,'148.243.37.162',1175210273,1,0,1,1,1,0,'','Anexo el archivo lo pueden descargar','[quote=&quot;jose_murugosa&quot;:adbcz7k9][quote=&quot;Susy&quot;:adbcz7k9][quote=&quot;jose_murugosa&quot;:adbcz7k9][quote=&quot;pymsoft&quot;:adbcz7k9]José, me pide contraseña.\n\nSaludos.[/quote:adbcz7k9]\n\nPerdón, es que tengo el perfil de winrar predeterminado así y me olvidé <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , aquí envío el link del zip sin cifrar:  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?cjmgngx20gm\">http://www.mediafire.com/?cjmgngx20gm</a><!-- m -->[/quote:adbcz7k9]\n\nHola Jose como esta pues corazon, es muy buena la rutina que nos proporciona, pero creo que tendriamos que hacerlo con mas tecnicimos se pueda decir corazon, yo estoy usando la clase de terceros BTNGET, que baje en utilidades, pero creo que le falta algo mas a esa clase, porque tengo una funcion que el usuario pueda, en el campo clave teclear x clave de articulo y con F2  desplegar el listbox, con la informacion de esa clave puede o no pueda ser exacta, pero tengo la instruccion setseek() por si no encuentra con la clave que teclee y busque el siguiente x clave del articulo, pero lo mas chistoso es que antes tengo que poner dentro de mi funcion Msg(\"Buscando clave en el catalogo\")  y asi muestra la informacion y si se lo quito, no muestra nada y me pone al principio del primer clave de registro o sea del 1 al 2000, me pone el primer registro y la descripcion el 1 y si le pongo MSg(\"\") asi encuentra la clave tecleada, porque sera ? ya le busque y no le hallo, algun bug de esta clase BTNGET, debe faltar, pero no soy muy buena para desarrollar clases, espero sugerencias amigo cuidese ah y no puedo estar conectada por MSN son reglas de la empresa, por correo e internet no nos tiene permitido <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->[/quote:adbcz7k9]\n\nSusy, yo uso también btnget32, con buenos resultados, de hecho uso esta búsqueda con btnget32, el ejemplo no la usa porque mi interés era simplemente compartir la función.\n\nSi puedes preparar un pequeño ejemplo autocontenido que reproduzca la falla, y ponerlo aquí para descargar, tal vez yo o alguien más capaz podamos ayudarte. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:adbcz7k9]\n\nHola Jose como esta corazon pues, anexo el archivo , incluye pequeño codigo y programa, espero que me puedan ayudar con ese detallito, asi como el Sr. Antonio Linares y a los demas colaboradores que les puede ser de gran utilidad, se que hay otros metodos, pero este BtnGet es mas rapida la busqueda.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?adimyxmwzdz\">http://www.mediafire.com/?adimyxmwzdz</a><!-- m -->\n\nEspero sugerencias y mejoras del codigo que les envio y si alguien lo pueden mejorar por favor envienme a mi email, <!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->\nGracias por el apoyo que me brindan y principalmente a mi maestro que me enseña muchas cosas AAL Alfredito.\nSu amiga Susy','',0,'gA==','adbcz7k9',1,0,'',867,0,0),(29062,6515,3,69,0,'74.13.36.207',1175210608,1,0,1,1,1,0,'','','After further searching.....\n\n[code:3jt352ci]\noExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\nnCode &#58;= oExcel&#58;LanguageSettings&#58;LanguageID&#40;3&#41; \n[/code:3jt352ci]\n\nWhere nCode can be found in the following chart.\n\nJeff.\n\n\n\nmsoLanguageIDAfrikaans 	1078 	\nmsoLanguageIDAlbanian 	1052 	\nmsoLanguageIDAmharic 	1118 	\nmsoLanguageIDArabic 	1025 	\nmsoLanguageIDArabicAlgeria 	5121 	\nmsoLanguageIDArabicBahrain 	15361 	\nmsoLanguageIDArabicEgypt 	3073 	\nmsoLanguageIDArabicIraq 	2049 	\nmsoLanguageIDArabicJordan 	11265 	\nmsoLanguageIDArabicKuwait 	13313 	\nmsoLanguageIDArabicLebanon 	12289 	\nmsoLanguageIDArabicLibya 	4097 	\nmsoLanguageIDArabicMorocco 	6145 	\nmsoLanguageIDArabicOman 	8193 	\nmsoLanguageIDArabicQatar 	16385 	\nmsoLanguageIDArabicSyria 	10241 	\nmsoLanguageIDArabicTunisia 	7169 	\nmsoLanguageIDArabicUAE 	14337 	\nmsoLanguageIDArabicYemen 	9217 	\nmsoLanguageIDArmenian 	1067 	\nmsoLanguageIDAssamese 	1101 	\nmsoLanguageIDAzeriCyrillic 	2092 	\nmsoLanguageIDAzeriLatin 	1068 	\nmsoLanguageIDBasque 	1069 	\nmsoLanguageIDBelgianDutch 	2067 	\nmsoLanguageIDBelgianFrench 	2060 	\nmsoLanguageIDBengali 	1093 	\nmsoLanguageIDBosnian 	4122 	\nmsoLanguageIDBrazilianPortuguese 	1046 	\nmsoLanguageIDBulgarian 	1026 	\nmsoLanguageIDBurmese 	1109 	\nmsoLanguageIDByelorussian 	1059 	\nmsoLanguageIDCatalan 	1027 	\nmsoLanguageIDCherokee 	1116 	\nmsoLanguageIDChineseHongKongSAR 	3076 	\nmsoLanguageIDChineseMacaoSAR 	5124 	\nmsoLanguageIDChineseSingapore 	4100 	\nmsoLanguageIDCroatian 	1050 	\nmsoLanguageIDCzech 	1029 	\nmsoLanguageIDDanish 	1030 	\nmsoLanguageIDDivehi 	1125 	\nmsoLanguageIDDutch 	1043 	\nmsoLanguageIDDzongkhaBhutan 	2129 	\nmsoLanguageIDEdo 	1126 	\nmsoLanguageIDEnglishAUS 	3081 	\nmsoLanguageIDEnglishBelize 	10249 	\nmsoLanguageIDEnglishCanadian 	4105 	\nmsoLanguageIDEnglishCaribbean 	9225 	\nmsoLanguageIDEnglishIndonesia 	14345 	\nmsoLanguageIDEnglishIreland 	6153 	\nmsoLanguageIDEnglishJamaica 	8201 	\nmsoLanguageIDEnglishNewZealand 	5129 	\nmsoLanguageIDEnglishPhilippines 	13321 	\nmsoLanguageIDEnglishSouthAfrica 	7177 	\nmsoLanguageIDEnglishTrinidadTobago 	11273 	\nmsoLanguageIDEnglishUK 	2057 	\nmsoLanguageIDEnglishUS 	1033 	\nmsoLanguageIDEnglishZimbabwe 	12297 	\nmsoLanguageIDEstonian 	1061 	\nmsoLanguageIDFaeroese 	1080 	\nmsoLanguageIDFarsi 	1065 	\nmsoLanguageIDFilipino 	1124 	\nmsoLanguageIDFinnish 	1035 	\nmsoLanguageIDFrench 	1036 	\nmsoLanguageIDFrenchCameroon 	11276 	\nmsoLanguageIDFrenchCanadian 	3084 	\nmsoLanguageIDFrenchCotedIvoire 	12300 	\nmsoLanguageIDFrenchHaiti 	15372 	\nmsoLanguageIDFrenchLuxembourg 	5132 	\nmsoLanguageIDFrenchMali 	13324 	\nmsoLanguageIDFrenchMonaco 	6156 	\nmsoLanguageIDFrenchMorocco 	14348 	\nmsoLanguageIDFrenchReunion 	8204 	\nmsoLanguageIDFrenchSenegal 	10252 	\nmsoLanguageIDFrenchWestIndies 	7180 	\nmsoLanguageIDFrenchZaire 	9228 	\nmsoLanguageIDFrisianNetherlands 	1122 	\nmsoLanguageIDFulfulde 	1127 	\nmsoLanguageIDGaelicIreland 	2108 	\nmsoLanguageIDGaelicScotland 	1084 	\nmsoLanguageIDGalician 	1110 	\nmsoLanguageIDGeorgian 	1079 	\nmsoLanguageIDGerman 	1031 	\nmsoLanguageIDGermanAustria 	3079 	\nmsoLanguageIDGermanLiechtenstein 	5127 	\nmsoLanguageIDGermanLuxembourg 	4103 	\nmsoLanguageIDGreek 	1032 	\nmsoLanguageIDGuarani 	1140 	\nmsoLanguageIDGujarati 	1095 	\nmsoLanguageIDHausa 	1128 	\nmsoLanguageIDHawaiian 	1141 	\nmsoLanguageIDHebrew 	1037 	\nmsoLanguageIDHindi 	1081 	\nmsoLanguageIDHungarian 	1038 	\nmsoLanguageIDIbibio 	1129 	\nmsoLanguageIDIcelandic 	1039 	\nmsoLanguageIDIgbo 	1136 	\nmsoLanguageIDIndonesian 	1057 	\nmsoLanguageIDInuktitut 	1117 	\nmsoLanguageIDItalian 	1040 	\nmsoLanguageIDJapanese 	1041 	\nmsoLanguageIDKannada 	1099 	\nmsoLanguageIDKanuri 	1137 	\nmsoLanguageIDKashmiri 	1120 	\nmsoLanguageIDKashmiriDevanagari 	2144 	\nmsoLanguageIDKazakh 	1087 	\nmsoLanguageIDKhmer 	1107 	\nmsoLanguageIDKirghiz 	1088 	\nmsoLanguageIDKonkani 	1111 	\nmsoLanguageIDKorean 	1042 	\nmsoLanguageIDKyrgyz 	1088 	\nmsoLanguageIDLao 	1108 	\nmsoLanguageIDLatin 	1142 	\nmsoLanguageIDLatvian 	1062 	\nmsoLanguageIDLithuanian 	1063 	\nmsoLanguageIDMacedonian 	1071 	\nmsoLanguageIDMalayalam 	1100 	\nmsoLanguageIDMalayBruneiDarussalam 	2110 	\nmsoLanguageIDMalaysian 	1086 	\nmsoLanguageIDMaltese 	1082 	\nmsoLanguageIDManipuri 	1112 	\nmsoLanguageIDMaori 	1153 	\nmsoLanguageIDMarathi 	1102 	\nmsoLanguageIDMexicanSpanish 	2058 	\nmsoLanguageIDMixed 	-2 	\nmsoLanguageIDMongolian 	1104 	\nmsoLanguageIDNepali 	1121 	\nmsoLanguageIDNone 	0 	\nmsoLanguageIDNoProofing 	1024 	\nmsoLanguageIDNorwegianBokmol 	1044 	\nmsoLanguageIDNorwegianNynorsk 	2068 	\nmsoLanguageIDOriya 	1096 	\nmsoLanguageIDOromo 	1138 	\nmsoLanguageIDPashto 	1123 	\nmsoLanguageIDPolish 	1045 	\nmsoLanguageIDPortuguese 	2070 	\nmsoLanguageIDPunjabi 	1094 	\nmsoLanguageIDQuechuaBolivia 	1131 	\nmsoLanguageIDQuechuaEcuador 	2155 	\nmsoLanguageIDQuechuaPeru 	3179 	\nmsoLanguageIDRhaetoRomanic 	1047 	\nmsoLanguageIDRomanian 	1048 	\nmsoLanguageIDRomanianMoldova 	2072 	\nmsoLanguageIDRussian 	1049 	\nmsoLanguageIDRussianMoldova 	2073 	\nmsoLanguageIDSamiLappish 	1083 	\nmsoLanguageIDSanskrit 	1103 	\nmsoLanguageIDSepedi 	1132 	\nmsoLanguageIDSerbianCyrillic 	3098 	\nmsoLanguageIDSerbianLatin 	2074 	\nmsoLanguageIDSesotho 	1072 	\nmsoLanguageIDSimplifiedChinese 	2052 	\nmsoLanguageIDSindhi 	1113 	\nmsoLanguageIDSindhiPakistan 	2137 	\nmsoLanguageIDSinhalese 	1115 	\nmsoLanguageIDSlovak 	1051 	\nmsoLanguageIDSlovenian 	1060 	\nmsoLanguageIDSomali 	1143 	\nmsoLanguageIDSorbian 	1070 	\nmsoLanguageIDSpanish 	1034 	\nmsoLanguageIDSpanishArgentina 	11274 	\nmsoLanguageIDSpanishBolivia 	16394 	\nmsoLanguageIDSpanishChile 	13322 	\nmsoLanguageIDSpanishColombia 	9226 	\nmsoLanguageIDSpanishCostaRica 	5130 	\nmsoLanguageIDSpanishDominicanRepublic 	7178 	\nmsoLanguageIDSpanishEcuador 	12298 	\nmsoLanguageIDSpanishElSalvador 	17418 	\nmsoLanguageIDSpanishGuatemala 	4106 	\nmsoLanguageIDSpanishHonduras 	18442 	\nmsoLanguageIDSpanishModernSort 	3082 	\nmsoLanguageIDSpanishNicaragua 	19466 	\nmsoLanguageIDSpanishPanama 	6154 	\nmsoLanguageIDSpanishParaguay 	15370 	\nmsoLanguageIDSpanishPeru 	10250 	\nmsoLanguageIDSpanishPuertoRico 	20490 	\nmsoLanguageIDSpanishUruguay 	14346 	\nmsoLanguageIDSpanishVenezuela 	8202 	\nmsoLanguageIDSutu 	1072 	\nmsoLanguageIDSwahili 	1089 	\nmsoLanguageIDSwedish 	1053 	\nmsoLanguageIDSwedishFinland 	2077 	\nmsoLanguageIDSwissFrench 	4108 	\nmsoLanguageIDSwissGerman 	2055 	\nmsoLanguageIDSwissItalian 	2064 	\nmsoLanguageIDSyriac 	1114 	\nmsoLanguageIDTajik 	1064 	\nmsoLanguageIDTamazight 	1119 	\nmsoLanguageIDTamazightLatin 	2143 	\nmsoLanguageIDTamil 	1097 	\nmsoLanguageIDTatar 	1092 	\nmsoLanguageIDTelugu 	1098 	\nmsoLanguageIDThai 	1054 	\nmsoLanguageIDTibetan 	1105 	\nmsoLanguageIDTigrignaEritrea 	2163 	\nmsoLanguageIDTigrignaEthiopic 	1139 	\nmsoLanguageIDTraditionalChinese 	1028 	\nmsoLanguageIDTsonga 	1073 	\nmsoLanguageIDTswana 	1074 	\nmsoLanguageIDTurkish 	1055 	\nmsoLanguageIDTurkmen 	1090 	\nmsoLanguageIDUkrainian 	1058 	\nmsoLanguageIDUrdu 	1056 	\nmsoLanguageIDUzbekCyrillic 	2115 	\nmsoLanguageIDUzbekLatin 	1091 	\nmsoLanguageIDVenda 	1075 	\nmsoLanguageIDVietnamese 	1066 	\nmsoLanguageIDWelsh 	1106 	\nmsoLanguageIDXhosa 	1076 	\nmsoLanguageIDYi 	1144 	\nmsoLanguageIDYiddish 	1085 	\nmsoLanguageIDYoruba 	1130 	\nmsoLanguageIDZulu 	1077\n[/list]','',0,'AIA=','3jt352ci',1,0,'',69,0,0),(29063,6524,3,49,0,'62.13.172.67',1175214835,1,0,1,1,1,1,'','Help tscan','can U send me a sample with tscan of carmona to capture from a webcam a picture and save it into jpg file \nI try with test sample but it make error  \"General failure in response MSH_Opends\"','',0,'AIA=','1q6uedct',1,0,'',49,0,0),(29064,5917,3,282,0,'210.72.235.124',1175218696,1,0,1,1,1,0,'','','Hi Richard !\n\nCould you tell me how to remove the S/F mark\n\nThanks !!!\n\nBest Regards','',0,'AIA=','3azpqcid',1,0,'',282,0,0),(29065,6493,6,73,0,'201.132.227.113',1175219477,1,0,1,1,1,0,'','','gracias antonio, le echare el vistazo\nsalu2\npaco','',0,'AIA=','ylr7n94p',1,0,'',73,0,0),(29066,6518,3,222,0,'201.243.176.78',1175222109,1,0,1,1,1,0,'','tRichEd','Use riched20.dll version 5.50 or upper and you will see rtf files rightly showed. Also, you can zoom rtf and previews are as expected. Zooming methods are listed below and must be called with %zoom, example, oRtf:SetZoom(65)  //65%\n\nAdd to tRichEd class (or extend class)\nDATA nW0    \n\n#define EM_GETZOOM  (WM_USER + 224)\n#define EM_SETZOOM  (WM_USER + 225)\n\nMETHOD SetZoom(nZoom)\nMETHOD GetZoom(nZoom)\n\nMETHOD SetZoom(nZoom)\n  Local nNum:=nZoom, nDen:=100, k\n  DEFAULT ::nW0:=::nWidth-20\n  FOR k:=2 to 5 step 3\n    DO WHILE nNum%k=0 .and. nDen%k=0\n      nNum/=k; nDen/=k\n    ENDDO\n  NEXT\n  IF nNum&gt;0 .and. nNum&lt;64 .and. nDen&gt;0 .and. nDen&lt;64\n    ::SetSize(::nW0*nZoom/100+20,::nHeight)\n    ::SendMsg(EM_SETZOOM, nNum, nDen)\n  ENDIF\nreturn nil\n\nMETHOD GetZoom()\n  Local nZoom,nNum:=0, nDen:=0\n  ::SendMsg(EM_GETZOOM, nNum, nDen)\n  nZoom:=100*nNum/Max(nDen,1)\nreturn nZoom\n\nRegards.\nCésar Lozada','',0,'AIA=','x8c1x3cl',1,0,'',222,0,0),(29067,6471,3,996,0,'70.58.66.18',1175222982,1,0,1,0,1,0,'','','Okay thanks Enrico!  That will be useful as I add more data grids to the application I\'m porting to FiveWin.  I will need to make extensive use of data grids showing related tables with TXBrowse(), so I\'m going to be delving into custom skip blocks with TXBrowse().  Hopefully there are some good examples in the FiveWin Samples folder!','',0,'AIA=','jg64izmj',1,0,'',996,0,0),(29068,6516,6,54,0,'189.132.95.103',1175226773,1,0,1,1,1,1,'','Susy, servida','Solucionado, aqui el link de la clase BTNGET modificada.\n\n[url:33g7pvjc]http&#58;//www&#46;mediafire&#46;com/?1azekgmfnyb[/url:33g7pvjc]\n\nSaludos\n\nPD. y funciona con tu códfigo perfectamente sin modificación','',0,'EA==','33g7pvjc',1,0,'',54,0,0),(29069,6485,6,95,0,'189.155.151.98',1175227413,1,0,1,1,1,0,'','','Antonio\n\nTengo programa llamado init_var.prg en el cual utilizo funciones como curdir(), Fclose(), fCreate(), etc,etc.\nPues bien, lo compile y genera una lib en base a dicho programa y me genero bien mi lib.\n\nAhora realizo mis test con otro programa y mando llamar una funcion q esta en la lib ( Puse la lib en el build.sh ) y me mana lo siguiente:\n\n/usr/bin/ld: Undefined symbol\n_HB_FUN_CURDIR\n_HB_FUN_FCLOSE\n_HB_FUN_FCREATE\n\n...\n\nY Al final me manda un :\n\n./build.sh: Line 39: ./system01.app/Contents/MacOS/system01: No such file or director.\n\nMi pregunta es como puedo generar mi lib, para q me incluya esas funciones que son parte de harbour ? odonde se incluyen estas ?\n\nSaludos\nOsvaldo Ramirez','',0,'EA==','2utg76kw',1,0,'',95,0,0),(29070,6485,6,95,0,'189.155.151.98',1175227787,1,0,1,1,1,0,'','','Antonio ...\n\nAl momento de hacer mi generar mi app la cual esta en  /Users/mac/servidor/programs \nme genera un folder llamado igual a mi app.\nSe ejecuta bien, pero si copio mi app, la cual se genero en dichos folders a mi folder  /Users/mac/servidor y la ejecuto desde el finder o el explorador\n1.- me abre una ventana de terminal\n2.- la funcion curdir() que deberia arrojarme /User/mac/servidor me devuelve /User/mac ....\n\nTiene algo que ver donde se guarde la app, ?\n\nSaludos\nOsvaldo Ramirez','',0,'EA==','3dy8tj9l',1,0,'',95,0,0),(29071,6456,6,45,0,'190.31.55.245',1175228123,1,0,1,1,1,0,'','Re: Ya quedo, Gracias a Todos','Gracias a le gente que me escribe a mi correo personal. Voy a actualizar lo antes posible, los que piden que actualice la version para hacerla funcionar sobre FW7.x y 6.x, vamos a tratar de lograrlo, voy a charlar con Antonio Linares a ver si me hecha una manito asi todos quedan contentos. Le he agregado unas cosillas a la clase, como siempre digo podria ser mejor. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSaludos a todos\nHernan','',0,'EA==','gl0p36e9',1,0,'',45,0,0),(29072,6485,6,95,0,'189.155.151.98',1175229602,1,0,1,1,1,0,'','','Antonio \n\nAl parecer la funcion curdir() esta bien, pero lo que no entiendo es que si la app es generada en un folder y al moverla a otro y ejecutarla ya no funciona bien, segun la pantalla de TERMINAL, esta cargada, pero no muestra las ventanas\n\nSaludos\nOsvaldo Ramirez','',0,'EA==','1g672kf3',1,0,'',95,0,0),(29073,6467,6,492,0,'189.147.26.143',1175234088,1,0,1,1,1,1,'','','Hola, un pequeñito ejemplo, de hecho no tiene gran ciencia hacer esto  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n\nREDEFINE LISTBOX lbKrdOpr ;\n	FIELDS DETKDX-&gt;KDAT,DETKDX-&gt;KPOL, ..... ;\n	HEAD \"FECHA\",\"POLIZA\", ...... ;\n	bla ;\n	bla ;\n	bla ;\n	OF oFold:aDialogs[7]\n\n	bla ;\n	bla ;\n	bla ;\n	[color=red:13gionib]lbKrdOpr:nClrPane := { || IIF( DETKDX-&gt;KCLR == 0, CLR_A, CLR_B ) }		&lt;--- Aqui[/color:13gionib]\n\nStatic Function XXXXXXX()					// para \"llenar\" la base o arreglo\nLOCAL nQ, [color=red:13gionib]nClrFlg := 0[/color:13gionib]\nFOR nQ := aKrdDts[4] TO aKrdDts[5]\n	IF MOVSYS-&gt;( DbSeek( DtoS( nQ ) ) )\n		WHILE MOVSYS-&gt;MFECHA == nQ .AND. MOVSYS-&gt;( !Eof() )\n			nKrdxPol := MOVSYS-&gt;MPOL\n			WHILE MOVSYS-&gt;MPOL == nKrdxPol .AND. MOVSYS-&gt;( !Eof() )\n				DETKDX-&gt;KDAT := XXXXXX\n				DETKDX-&gt;KPOL := YYYYYY\n				MOVSYS-&gt;( DbSkip() )\n			ENDDO\n			[color=red:13gionib]nClrFlg ++											&lt;--- Aqui\n			nClrFlg := IIF( nClrFlg == 2, 0, nClrFlg )			&lt;--- Aqui[/color:13gionib]		\nENDDO\n	ENDIF\nNEXT\nlbKrdOpr:REFRESH()\n\n\n\nSaludos','',0,'Ag==','13gionib',1,0,'',492,0,0),(29074,6467,6,492,0,'189.147.26.143',1175234324,1,0,1,1,1,1,'','','Sorry  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSe me paso la linea donde se graba el valor que indica el color a usar :\n\n\n\n\nStatic Function XXXXXXX() // para \"llenar\" la base o arreglo \nLOCAL nQ, [color=red:5huhd08a]nClrFlg := 0[/color:5huhd08a] \nFOR nQ := aKrdDts[4] TO aKrdDts[5] \nIF MOVSYS-&gt;( DbSeek( DtoS( nQ ) ) ) \nWHILE MOVSYS-&gt;MFECHA == nQ .AND. MOVSYS-&gt;( !Eof() ) \nnKrdxPol := MOVSYS-&gt;MPOL \nWHILE MOVSYS-&gt;MPOL == nKrdxPol .AND. MOVSYS-&gt;( !Eof() ) \nDETKDX-&gt;KDAT := XXXXXX \nDETKDX-&gt;KPOL := YYYYYY \n[color=red:5huhd08a]DETKDX-&gt;KCLR := nClrFlg[/color:5huhd08a]			&lt;--- Aqui\nMOVSYS-&gt;( DbSkip() ) \nENDDO \n[color=red:5huhd08a]nClrFlg ++ [/color:5huhd08a]&lt;--- Aqui \n[color=red:5huhd08a]nClrFlg := IIF( nClrFlg == 2, 0, nClrFlg )[/color:5huhd08a] &lt;--- Aqui \nENDDO \nENDIF \nNEXT \nlbKrdOpr:REFRESH()','',0,'Ag==','5huhd08a',1,0,'',492,0,0),(29075,6495,3,282,0,'210.72.235.124',1175237726,1,0,1,1,1,0,'','','Dear Richard\n\nCould you send me a FWH samples for how to use \"Codejock.CommandBarsFrame\" OCX\n\nMy email address is <!-- e --><a href=\"mailto:dixon514@gmail.com\">dixon514@gmail.com</a><!-- e -->\n\nThanks !!!\n\nBest Regards\n\nDixon Chu','',0,'Ag==','32x9c95f',1,0,'',282,0,0),(29076,6525,6,49,0,'213.82.134.66',1175242143,1,0,1,1,1,1,'','Help making photo with webcam','can U send me a sample with tscan of carmona or another class to capture from a webcam a picture and save it into jpg file \nI try with test sample but it make error \"General failure in response MSH_Opends\" when I try to call my webcam to create a photo from a application','',0,'Ag==','25zl4uki',1,0,'',49,0,0),(29077,6521,1,2,0,'87.218.146.189',1175242389,1,0,1,1,1,1,'','','Euclides,\n\nSave the DLLs resources as RC files, join them in just one RC and build one single DLL from that RC file','',0,'Ag==','1fih2wmy',1,0,'',2,0,0),(29078,6447,20,49,0,'213.82.134.66',1175243056,1,0,1,1,1,1,'','','Non ho risolto \n\n1. ho linkato una funziona scatta_foto() ad un pulsante\n\n2.  nella funzione scatta_foto ho chiamato la tscan di carmona \n\nla classe mi fa selezionare il source twain  ma quando deve create la foto mi fa errore general failure Msg_opened\n\nc\'è qualcosa di funzionante in giro  ?\n\ndevo far scattare  una foto direttamente dal dialogo di inserimento : il cliente si siede davanti al computer e quindi l\'operatore puo\' fargli la foto  quando inserisce il record\n\nhai qualcosa di funzionante per caso ?\n\nio ho acquistato una semplice webcam NOTE@acam ed ho installato i driver  sul pc  in win xp\n \nda premettere che se uso la classe tvideo o tcapture dello stesso autore funziona egregiamente ma ma me inteessa fare una foto e non un video \n\n\nsaluti.','',0,'Ag==','1dda9t3y',1,0,'',49,0,0),(29079,6485,6,2,0,'87.218.146.189',1175243275,1,0,1,1,1,1,'','','Osvaldo,\n\nPor favor muestra el PRG que estás usando para que podamos construirlo aqui y asi ver lo que ocurre, gracias\n\nO envíamelo por email, como prefieras','',0,'Ag==','3o360vts',1,0,'',2,0,0),(29080,6488,6,2,0,'87.218.146.189',1175243434,1,0,1,1,1,1,'','','Miguel,\n\nPosiblemente no estás enlazando tu primer PRG ó no lo has compilado con /n. Por eso se construye un EXE pero no comienza en tu código sino en el primer símbolo que encuentra la máquina virtual de harbour','',0,'Ag==','23l209lu',1,0,'',2,0,0),(29081,6520,19,177,0,'194.30.62.6',1175243563,1,0,1,1,1,0,'','','Antonio,\n\nmuy interesante !!!\n\nMuchas gracias.\n\nSaludos,\n\nFélix','',0,'Ag==','1dlqlvr7',1,0,'',177,0,0),(29082,6447,20,6,0,'87.1.198.5',1175245411,1,0,1,1,1,1,'','','Non ne so niente, mi dispiace.\n\nEMG','',0,'Ag==','3cgun35p',1,0,'',6,0,0),(29083,6518,3,6,0,'87.1.198.5',1175245599,1,0,1,1,1,1,'','','[quote=&quot;driessen&quot;:1ddfy4a4]In the PRG-file, the dll RICHED20.DLL is used. Where can I find this DLL-file ?[/quote:1ddfy4a4]\n\nYou should already have it in your c:\\windows\\system32 directory.\n\nEMG','',0,'gA==','1ddfy4a4',1,0,'',6,0,0),(29084,6515,3,6,0,'87.1.198.5',1175245767,1,0,1,1,1,1,'','','Right! I just found this one in my old samples:\n\n[code:29u7mp53]#define msoLanguageIDInstall 1\n#define msoLanguageIDUI      2\n#define msoLanguageIDHelp    3\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel &#58;= CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    LOCAL oApp &#58;= oExcel&#58;CommandBars&#40; &quot;Standard&quot; &#41;&#58;Application\n\n    ? oApp&#58;LanguageSettings&#58;LanguageID&#40; msoLanguageIDInstall &#41;\n    ? oApp&#58;LanguageSettings&#58;LanguageID&#40; msoLanguageIDUI &#41;\n    ? oApp&#58;LanguageSettings&#58;LanguageID&#40; msoLanguageIDHelp &#41;\n\n    RETURN NIL[/code:29u7mp53]\n\nEMG','',0,'AIA=','29u7mp53',1,0,'',6,0,0),(29085,6526,3,297,0,'217.57.213.130',1175245928,1,0,1,1,1,0,'','Tooltip in combobox','Hi dear friends!\n\n\ncase A\nCOMBOBOX 109, 182, 28, 188, 124, CBS_DROPDOWN | WS_VSCROLL | WS_TABSTOP\n\ncase B\nCOMBOBOX 109, 182, 28, 188, 124, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n\noTVMse:oMarca:cTooltip := \"This is a test\"\n\ntooltip is active only in the case B\n\nI fly in the dark.........\nI need sunlight','',0,'AIA=','16g6hkzd',1,0,'',297,0,0),(29086,6527,3,51,0,'80.122.88.242',1175246983,1,0,1,1,1,0,'','Command Function','How to return the command-line arguments specified when launching a FW/FWH program.\nThanks in advance\nOtto','',0,'AIA=','25qsednz',1,0,'',51,0,0),(29087,6527,3,2,0,'87.218.146.189',1175247276,1,0,1,1,1,1,'','','Otto,\n\nHB_ARGC() Returns the number of command line arguments passed to the application, this also includes the internal arguments\n\nHB_ARGV( n ) Returns a command line argument passed to the application. Calling it with the parameter zero, it will return the name of the executable, as written in the command line','',0,'AIA=','1iwngmor',1,0,'',2,0,0),(29088,6527,3,2,0,'87.218.146.189',1175247449,1,0,1,1,1,1,'','','In FW 16 bits you may use: NARGC() and CARGV( n )','',0,'AIA=','1jemgevn',1,0,'',2,0,0),(29089,6527,3,6,0,'87.1.198.5',1175247787,1,0,1,1,1,1,'','','Or, for a fixed number of parameters:\n\nFUNCTION MAIN( cPar1, cPar2, cPar3 )\n\nEMG','',0,'AIA=','yd8gns66',1,0,'',6,0,0),(29090,6526,3,6,0,'87.1.198.5',1175247865,1,0,1,1,1,1,'','Re: Tooltip in combobox','Add\n\n[code:2kx8dxp4]oTVMse&#58;oMarca&#58;oGet&#58;cTooltip &#58;= &quot;This is a test&quot;[/code:2kx8dxp4]\n\nEMG','',0,'AIA=','2kx8dxp4',1,0,'',6,0,0),(29091,6526,3,2,0,'87.218.146.189',1175248099,1,0,1,1,1,1,'','','Marco,\n\noCombo:oGet:cTooltip = ...','',0,'AIA=','1cz902tp',1,0,'',2,0,0),(29092,6527,3,51,0,'80.122.88.242',1175248233,1,0,1,1,1,0,'','','WOW - that\'s support!','',0,'AIA=','1qyqe7vu',1,0,'',51,0,0),(29093,6526,3,297,0,'217.57.213.130',1175249751,1,0,1,1,1,0,'','','Ok thanks','',0,'AIA=','n8057sqg',1,0,'',297,0,0),(29094,6525,6,533,0,'80.32.177.143',1175249759,1,0,1,1,1,0,'','','Espero que te sirva, a mi me funciona correctamente. Si te falta algún fichero me lo comentas. SALUDOS\n\n[code:3tqlu2mj]\n#include &quot;Fivewin&#46;ch&quot;\n\nStatic cWebCamDriver &#58;= &quot;Microsoft WDM Image Capture&quot;\nStatic _oWebcam_ &#58;= nil\n************************************************************************\n*\n************************************************************************\nFunction WebCam&#40;codart,xalias,ori&#41;\n  Local oDlg_Cam, oImg,oWc,bton,oGet,cFich,lVale&#58;=&#46;F&#46;,cFichero&#58;=SPACE&#40;254&#41;\n  \n  if codart=NIL\n     codart&#58;=&quot;imap&quot; + DTOS&#40;date&#40;&#41;&#41; + strtran&#40;time&#40;&#41;,&quot;&#58;&quot;&#41;\n  end if\n  cFichero&#58;=&quot;\\&quot; + codart + &quot;&#46;bmp&quot;\n  cFich&#58;= &quot;\\&quot; + codart + &quot;&#46;bmp&quot;\n \n  oWC&#58;=tWebCamPhoto&#40;&#41;&#58;New&#40;&#41;\n\n  DEFINE DIALOG oDlg_Cam TITLE &quot;Adquirir imagen del Producto via WebCam&quot; FROM 0,0 TO 290,725 PIXEL\n    @ 5,180 IMAGE oImg OF oDlg_Cam SIZE 160,120 PIXEL ADJUST \n    @ 130,10 BUTTON &quot;Capturar&quot; OF oDlg_Cam SIZE 30,10 PIXEL ACTION oWc&#58;Save&#40;oImg,cFich&#41; \n    @ 130,45 BUTTON &quot;Aceptar&quot;  OF oDlg_Cam SIZE 30,10 PIXEL ACTION &#40;oWc&#58;Disconnect&#40;&#41;,lVale&#58;=&#46;T&#46;,oDlg_Cam&#58;End&#40;&#41;&#41; \n    @ 130,80 BUTTON &quot;Cancelar&quot; OF oDlg_Cam SIZE 30,10 PIXEL ACTION &#40;oWc&#58;Disconnect&#40;&#41;,oDlg_Cam&#58;End&#40;&#41;&#41; \n\n    @ 132,180 SAY oSay PROMPT &quot;Localizacion fichero &quot; PIXEL\n    @ 130,230 GET oGet VAR cFich OF oDlg_Cam SIZE 110,10 PIXEL WHEN &#46;F&#46;\n\n    oImg&#58;nProgress&#58;=0\n\n  ACTIVATE DIALOG oDlg_Cam CENTER ON INIT;\n    &#40;oWC&#58;CreateWnd&#40;oDlg_Cam,10,10,260,180&#41;,oWc&#58;Connect&#40;&#41;&#41;\n  if lVale\n     sele &#40;xAlias&#41;\n     replace &#40;xalias&#41;-&gt;foto with cFichero\n     &amp;&amp;ori&#58;Refresh&#40;&#41;\n     ori&#58;setbmp&#40;cFichero&#41;\n     ori&#58;refresh&#40;&#41;\n     sysrefresh&#40;&#41;\n  end if\nreturn lVale\n\n\n\n/**********************************************************\n*\n*\n* Clase tWebCamPhoto &#40;Sólo para FWH&#41;\n*  Objetivo&#58; Capturar fotos con una Webcam\n*\n*  César E&#46; Lozada, cesarlozada@hotmail&#46;com\n*  Los Teques, Venezuela - 22/06/2003\n*\n*\n***********************************************************/\n#define WM_CAP_START             WM_USER\n#define WM_CAP_DRIVER_CONNECT    WM_CAP_START + 10\n#define WM_CAP_DRIVER_DISCONNECT WM_CAP_START + 11\n#define WM_CAP_SET_PREVIEW       WM_CAP_START + 50\n#define WM_CAP_SET_PREVIEWRATE   WM_CAP_START + 52\n#define WM_CAP_SET_SCALE         WM_CAP_START + 53\n\n#define WM_CAP_EDIT_COPY         WM_CAP_START + 30\n#define WM_CAP_FILE_SAVEDIB      WM_CAP_START + 25\n\n#define WM_CAP_DLG_VIDEOFORMAT   WM_CAP_START + 41\n#define WM_CAP_DLG_VIDEOSOURCE   WM_CAP_START + 42\n#define WM_CAP_GET_STATUS        WM_CAP_START + 54\n\n\n*********************************************************\n* EXIT Procedure WebcamDisconnect&#40;&#41;\n* Asegura la desconexión de la cámara&#46;\n*********************************************************\nEXIT Procedure WebcamDisconnect&#40;&#41;\n  if _oWebcam_&lt;&gt;nil \n    _oWebcam_&#58;Disconnect&#40;&#41;\n    _owebcam_&#58;=nil\n  endif\nreturn\n****************************************************************************\nCREATE CLASS tWebCamPhoto\n\n  DATA nFrameRate INIT 66      //Velocidad de actualización de la WebCam\n  DATA nJpgQuality INIT 75     //Calidad de los JPG\n\n  DATA hWnd                     //Handle de la centana de la imagen\n  DATA aDrivers                 //Drivers de captura disponibles\n  DATA nDriver                  //número del driver instalado + 1\n  DATA lConnected INIT &#46;F&#46;      //¿Está conectada&gt;\n\n  METHOD New&#40;cDriver,lSelect&#41; CONSTRUCTOR   // Construye el objeto&#46; cDriver es el nombre \n                                            // del driver a usar, recomendado guardar en ini&#46;\n                                            // Si lSelect=&#46;T&#46; muestra la lista para escogerlo   \n\n  METHOD CreateWnd&#40;oWnd,nLeft,nTop,nWidth,nHeight,nStyle,cTitle&#41;  \n             // Crea la ventana para la cámara en oWnd&#46; \n\n\n  METHOD Connect          // Conecta la cámara\n  METHOD Disconnect       // Desconecta la cámara\n\n  METHOD Clipboard&#40;oImg&#41; //Captura la imagen en clipboard&#46; Opcionalmente\n                         //actualiza a oImg con la imagen capturada\n\n  METHOD Save&#40;oImg,cFile,nQuality&#41;     //Captura la imagen y guarda en archivo &#40;BMP/JPG&#41;&#46;\n                                       //Opcionalmente actualiza a oImg con la imagen capturada\n\n  METHOD Source&#40;&#41;                      //Configura la fuente de la webcam \n\n  METHOD Format&#40;&#41;                      //Configura el formato de la imagen\n   \n  METHOD GetStatus&#40;&#41;                   //Status de la imagen\n   \n  METHOD Resize&#40;&#41;                      //Redimensiona la ventana de la imagen\n\n  METHOD End&#40;&#41; INLINE &#58;&#58;Disconnect&#40;&#41;   // Finaliza el objeto \n\nENDCLASS\n*===========================================================================\nMETHOD New&#40;cDriver,lSelect&#41;\n  DEFAULT cDriver&#58;=cWebCamDriver\n  DEFAULT lSelect&#58;=&#46;F&#46;\n  &#58;&#58;aDrivers&#58;=WebCamList&#40;&#41;\n  &#58;&#58;nDriver&#58;=aScan&#40;&#58;&#58;aDrivers,&#123;|u| Upper&#40;StrTran&#40;cDriver,\' \'&#41;&#41;==Upper&#40;StrTran&#40;u,\' \'&#41;&#41;&#125;&#41;\n  IF &#58;&#58;nDriver=0 &#46;or&#46; lSelect\n    &#58;&#58;nDriver&#58;=WebCamSelect&#40;&#58;&#58;nDriver,&#58;&#58;aDrivers&#41;\n  ENDIF\n  _oWebCam_&#58;=Self\nreturn Self  \n*===========================================================================\nMETHOD CreateWnd&#40;oWnd,nTop,nLeft,nWidth,nHeight,nStyle,cTitle&#41;\n  DEFAULT nTop&#58;=0, nLeft&#58;=0, nWidth&#58;=160, nHeight&#58;=120\n  DEFAULT nStyle&#58;=nOr&#40;WS_VISIBLE,WS_CHILD,WS_BORDER&#41;\n  IF &#58;&#58;nDriver&gt;0\n    &#58;&#58;hWnd&#58;=wCamCreaWnd&#40;&#58;&#58;aDrivers&#91;&#58;&#58;nDriver&#93;, nStyle,;\n                        nLeft, nTop, nWidth, nHeight, oWnd&#58;hWnd, 0&#41;\n  ENDIF\nreturn &#58;&#58;hWnd\n*===========================================================================\nMETHOD Connect&#40;&#41;\n  if &#58;&#58;hWnd&lt;&gt;nil\n    if SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DRIVER_CONNECT, &#58;&#58;nDriver-1, 0&#41;=1\n      cWebCamDriver&#58;=&#58;&#58;aDrivers&#91;&#58;&#58;nDriver&#93;\n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_SET_SCALE, 1, 0&#41;\n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_SET_PREVIEWRATE, &#58;&#58;nFrameRate, 0&#41;\n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_SET_PREVIEW, 1, 0&#41;\n      &#58;&#58;lConnected&#58;=&#46;T&#46;\n      &#58;&#58;Resize&#40;&#41;\n    else\n      &#58;&#58;lConnected&#58;=&#46;F&#46;\n      &#58;&#58;hWnd&#58;=nil\n    endif\n  endif\nreturn &#58;&#58;lConnected\n*===========================================================================\nMETHOD Disconnect\n  IF &#58;&#58;hWnd&lt;&gt;Nil &#46;and&#46; &#58;&#58;lConnected\n    if SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DRIVER_DISCONNECT, 0, 0&#41;=1\n      &#58;&#58;lConnected&#58;=&#46;F&#46;\n      _oWebCam_&#58;=nil\n    endif\n  ENDIF\nreturn nil\n*===========================================================================\nMETHOD Clipboard&#40;oImg&#41;\n  Local lSucc&#58;=&#46;F&#46;\n  if &#58;&#58;hWnd&lt;&gt;nil \n    lSucc&#58;=&#40;SendMessage&#40;&#58;&#58;hWnd, WM_CAP_EDIT_COPY, 0, 0&#41;=1&#41;\n    IF lSucc &#46;and&#46; oImg&lt;&gt;nil\n      oImg&#58;LoadFromClipboard&#40;&#41;\n      oImg&#58;Refresh&#40;&#41;\n    ENDIF\n  endif\nreturn lSucc\n*===========================================================================\nMETHOD Save&#40;oImg,cFile,nQuality&#41;\n  Local lSucc&#58;=&#46;F&#46;\n  Local cFileExt&#58;=Upper&#40;cFileExt&#40;cFile&#41;&#41;\n  Local cFileName&#58;=cFileNoExt&#40;cFile&#41;\n  Local cExec&#58;=\'BMPtoJPG&#46;EXE\'\n  if &#58;&#58;hWnd&lt;&gt;nil \n    CursorWait&#40;&#41;\n    IF &#40;cFileExt==&quot;JPG&quot; &#46;or&#46; cFileExt==&quot;JPEG&quot;&#41;\n      IF &#58;&#58;Clipboard&#40;&#41;\n        DEFAULT nQuality&#58;=&#58;&#58;nJpgQuality\n        &#58;&#58;nJpgQuality&#58;=Max&#40;Min&#40;Int&#40;nQuality&#41;,100&#41;,10&#41;\n        WaitRun&#40;cExec+\' -q\'+LTrim&#40;Str&#40;&#58;&#58;nJpgQuality,3,0&#41;&#41;+\' -c\'+cFileName+\' -o -s\',0&#41;\n      ENDIF\n    ELSEIF cFileExt==\'BMP\'\n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_FILE_SAVEDIB, 0, cFile&#41;\n    ENDIF\n    CursorArrow&#40;&#41;\n    SysRefresh&#40;&#41;\n    IF !&#40;lSucc&#58;=File&#40;cFile&#41;&#41; \n      MsgAlert&#40;&quot;No pudo crearse &quot;+cFile,cdi&#58;vTitulo&#41;\n    ELSEIF oImg&lt;&gt;nil\n       oImg&#58;LoadImage&#40;nil,cFile&#41;\n       oImg&#58;Refresh&#40;&#41;\n    ENDIF\n  endif\nreturn lSucc\n*===========================================================================\nMETHOD Source&#40;&#41;\n  if &#58;&#58;hWnd&lt;&gt;nil &#46;and&#46; &#58;&#58;lConnected\n    SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DLG_VIDEOSOURCE, 0, 0&#41;\n  endif\nreturn nil\n*===========================================================================\nMETHOD Format&#40;&#41;\n  if &#58;&#58;hWnd&lt;&gt;nil &#46;and&#46; &#58;&#58;lConnected\n    SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DLG_VIDEOFORMAT, 0, 0&#41;\n    &#58;&#58;Resize&#40;&#41;\n  endif\nreturn nil\n*===========================================================================\n#include &quot;Struct&#46;ch&quot;\nMETHOD GetStatus&#40;&#41;\n  Local oPoint, oStatus, cBuffer\n\n  STRUCT oPoint\n    MEMBER X AS LONG\n    MEMBER Y AS LONG\n  ENDSTRUCT\n\n  STRUCT oStatus\n    MEMBER nWidth AS LONG                    // Width of the image\n    MEMBER nHeight AS LONG                   // Height of the image\n    MEMBER lLive AS LONG                     // Now Previewing video?\n    MEMBER lOverlay AS LONG                  // Now Overlaying video?\n    MEMBER lScale AS LONG                          // Scale image to client?\n    MEMBER oXYScroll AS STRING LEN 8  //AS POINTAPI     // Scroll position\n    MEMBER lDefPalette AS LONG            // Using default driver palette?\n    MEMBER lAudHardware AS LONG                  // Audio hardware present?\n    MEMBER lCapFile AS LONG                  // Does capture file exist?\n    MEMBER nCurVidFrm AS LONG             // # of video frames cap\'td\n    MEMBER nCurVidDropped AS LONG     // # of video frames dropped\n    MEMBER nCurWavSamples AS LONG            // # of wave samples cap\'td\n    MEMBER nCurTimeEl AS LONG          // Elapsed capture duration\n    MEMBER hPalCur AS LONG                     // Current palette in use\n    MEMBER lCapturing AS LONG                   // Capture in progress?\n    MEMBER nReturn AS LONG                        // Error value after any operation\n    MEMBER nVidAlloc AS LONG              // Actual number of video buffers\n    MEMBER wAudAlloc AS LONG              // Actual number of audio buffers\n  ENDSTRUCT\n\n  oPoint&#58;x&#58;=0; oPoint&#58;y&#58;=0\n  oStatus&#58;oXYScroll&#58;=oPoint&#58;cBuffer\n\n  cBuffer&#58;= oStatus&#58;cBuffer\n\n  SendMessage&#40;&#58;&#58;hWnd, WM_CAP_GET_STATUS, Len&#40;cBuffer&#41;, @cBuffer&#41;\n\n  oStatus&#58;cBuffer&#58;= cBuffer\nreturn oStatus\n*===========================================================================\n#define HWND_BOTTOM   1\n#define SWP_NOMOVE    2\n#define SWP_NOSIZE    1\n#define SWP_NOZORDER  4\nMETHOD Resize&#40;&#41;\n  Local oStatus\n  \n  if &#58;&#58;hWnd&lt;&gt;nil &#46;and&#46; &#58;&#58;lConnected  \n    SysRefresh&#40;&#41;\n    oStatus &#58;= &#58;&#58;GetStatus&#40;&#41;\n    SetWindowPos&#40;&#58;&#58;hWnd,HWND_BOTTOM,0,0,oStatus&#58;nWidth,oStatus&#58;nHeight,;\n                 nOr&#40;SWP_NOMOVE,SWP_NOZORDER &#41; &#41;\n    SysRefresh&#40;&#41;\n  endif\n\nreturn nil\n****************************************************************************\nFunction WebcamList&#40;&#41;\n  Local aDrivers&#58;=&#123;&#125;, nDriver&#58;=0\n  Local cName, cVersion, nLen&#58;=255\n  DO WHILE &#46;T&#46;\n    cName&#58;=space&#40;nLen&#41;; cVersion&#58;=space&#40;nLen&#41;\n    IF !wCamGetDrvDesc&#40;nDriver, @cName, nLen, @cVersion, nLen&#41;\n      EXIT\n    ENDIF\n    if chr&#40;0&#41;$cName\n      cName&#58;=Left&#40;cName,At&#40;chr&#40;0&#41;,cName&#41;-1&#41;\n    endif\n    if chr&#40;0&#41;$cVersion\n      cVersion&#58;=Left&#40;cVersion,At&#40;chr&#40;0&#41;,cVersion&#41;-1&#41;\n    endif\n    aAdd&#40;aDrivers,cName&#41;\n    nDriver++\n  ENDDO\nreturn aDrivers\n****************************************************************************\nFunction WebcamSelect&#40;nDriver,aDrivers&#41;\n  Local oDlg, oCbx\n  Local cDriver\n  Local lSelect&#58;=&#46;F&#46;\n\n  DEFAULT nDriver&#58;=0, aDrivers&#58;=WebcamList&#40;&#41;\n  IF Empty&#40;aDrivers&#41;\n    MsgAlert&#40;\'No Webcams\'&#41;\n    return 0\n  ELSE\n    cDriver&#58;=aDrivers&#91;Max&#40;1,nDriver&#41;&#93;\n    DEFINE DIALOG oDlg FROM 0,0 to 6,40 TITLE &quot;Seleccionar Webcam&quot;\n        @ 0,0 COMBOBOX oCbx VAR cDriver OF oDlg ITEMS aDrivers;\n          SIZE 160,50 PIXEL \n        @ 1&#46;5, 4 BUTTON &quot;Seleccionar&quot; OF oDlg SIZE 40,12;\n           ACTION &#40;nDriver&#58;=oCbx&#58;nAt ,oDlg&#58;End&#40;&#41;&#41;\n        @ 1&#46;5,16 BUTTON &quot;Cancelar&quot; OF oDlg SIZE 40,12;\n           ACTION oDlg&#58;End&#40;&#41;\n    ACTIVATE DIALOG oDlg CENTERED\n  ENDIF\nreturn nDriver\n****************************************************************************\nFunction WebCamVersion&#40;nDriver&#41;\n  Local cName, cVersion, nLen&#58;=255\n  DEFAULT nDriver&#58;=0\n  IF nDriver&gt;0\n    cName&#58;=space&#40;nLen&#41;; cVersion&#58;=space&#40;nLen&#41;\n    IF wCamGetDrvDesc&#40;nDriver-1, @cName, nLen, @cVersion, nLen&#41;\n      if chr&#40;0&#41;$cVersion\n        cVersion&#58;=Left&#40;cVersion,At&#40;chr&#40;0&#41;,cVersion&#41;-1&#41;\n      endif\n    ELSE\n      cVersion&#58;=nil\n    ENDIF\n  ENDIF\nreturn cVersion\n****************************************************************************\nDLL32 STATIC FUNCTION wCamGetDrvDesc;\n       &#40;nDriver AS _INT,;\n        cName AS STRING,;\n        nName AS LONG,;\n        cVersion AS STRING,;\n        nVersion AS LONG&#41; AS BOOL PASCAL;\n  FROM &quot;capGetDriverDescriptionA&quot; LIB &quot;avicap32&#46;dll&quot;      \n\n************************************************************************\nDLL32 STATIC FUNCTION wCamCreaWnd;\n     &#40;cTitle AS STRING,;\n      nStyle AS LONG,;\n      x AS LONG, y AS LONG, nWidth AS LONG, nHeight AS LONG,;\n      hWndParent AS LONG, nID AS LONG&#41; AS LONG PASCAL;\n      FROM &quot;capCreateCaptureWindowA&quot; LIB &quot;avicap32&#46;dll&quot;\n************************************************************************\n\n\n\n[/code:3tqlu2mj]','',0,'AIA=','3tqlu2mj',1,0,'',533,0,0),(29095,6528,3,63,0,'88.11.31.105',1175254256,1,0,1,1,1,0,'','Creating gets with a For... next','I am trying to create about 30 gets with a For... next loop. Something like this:\n[code:1su8jioz]\n// --- Initialize\noGet &#58;= &#123;&#125;\naGet &#58;= &#123;&#125;\nFor i &#58;= 1 TO 30\n     AADD&#40;oGet, Nil&#41;\n     AADD&#40;aGet, Str&#40;i&#41;&#41;\nNext\n// --- Create Gets&#58;\nnR &#58;= 0; nC &#58;= 0\nFor i &#58;= 1 TO 30\n     nR, nC GET oGet&#91;i&#93; Var aGet&#91;i&#93;\n     nR += 1\nNext\n[/code:1su8jioz]\nBut this example doesn\'t work: All the gets show the last value (30) .  Anybody could suggest a way of solving this problem?.  Thanks\nRafael','',0,'AIA=','1su8jioz',1,0,'',63,0,0),(29096,6529,6,63,0,'88.11.31.105',1175254449,1,0,1,1,1,0,'','Cómo crear gets dentro de un bucle For...Next','Me gustaría poder crear 30 gets dentro de un bucle For... next.  Algo más o menos así:\n[code:38bna9ir]\n// --- Initialize\noGet &#58;= &#123;&#125;\naGet &#58;= &#123;&#125;\nFor i &#58;= 1 TO 30\n     AADD&#40;oGet, Nil&#41;\n     AADD&#40;aGet, Str&#40;i&#41;&#41;\nNext\n// --- Create Gets&#58;\nnR &#58;= 0; nC &#58;= 0\nFor i &#58;= 1 TO 30\n     nR, nC GET oGet&#91;i&#93; Var aGet&#91;i&#93;\n     nR += 1\nNext\n[/code:38bna9ir]\nPero este ejemplo no funciona.  Todos los gets muestran el mismo valor 30, o sea, el balor final del For... next).  Llevo un buen rato dándole vueltas pero estoy bloqueado. Alguien podría sugerirme cómo hacerlo?  \n\nRafael','',0,'AIA=','38bna9ir',1,0,'',63,0,0),(29097,6530,3,217,0,'200.159.120.34',1175255632,1,0,1,1,1,0,'','Multiline in TBtnBmp and color in TreeView','Hi,\n\nAfter many changes in my program I could recompile it with FWH 7.1 and xHB.com 2007/January.\n\nOnly 2 little things don\'t work for me:\n\nWhatsNew.txt says that now TBtnBmp accept multiline text. I try define the text \"Line 1\"+CRLF+\"Line 2\" but it didn\'t worked... Displayed text in button is \"Line 1 || Line 2\" showed in one line (CRLF appears like \"||\" or any).\nI search fwbmp.c and included PalBtnPaint function in my app but I couldn\'t debbug it. I think it isn\'t entering in code marked with: #ifdef UNICODE\nThen I declared UNICODE (#define UNICODE) but this way I get any warnings and errors when compile.\n\nAnother one: background of TreeView changed the color to BtnFace color (was WHITE). The text items is all black color (only display correct color on selected items) and last row of treeview don\'t display [+] mark and icon correctly.\n\nAntonio, can you help me?\n\nThanks a lot!\nMaurilio','',0,'','12qn9naj',1,0,'',217,0,0),(29098,6531,3,996,0,'70.58.66.18',1175255962,1,0,1,0,1,0,'','Multiple TXBrowse() Windows for related data tables','Hello everyone.  Does anyone know of any examples of TXBrowse() being used to display two tables held in a one-to-many relationship?  The main problem is getting the parent TXBrowse() to send a refresh message to the second TXBrowse() window when the record position of the parent browse changes.  It would be nice if I could set a code block notification in the Parent browse that would fire whenever the parent record pointer moves, and send a message to the child browse to completely refresh.  In the class help file for TXBrowse() the closest thing I see to this is the :bSkip block which would certainly be notified when a parent record move is made because it would have to actually implement it.  Is there a way to get notification of record position change without having to write a custom skip block for the parent browse?  Thanks!','',0,'','3kwy896r',1,0,'',996,0,0),(29099,6474,6,694,0,'200.189.112.21',1175256214,1,0,1,1,1,1,'','antonio','Antonio não é possível ? <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','21gurwpm',1,0,'',694,0,0),(29100,6528,3,217,0,'200.159.120.34',1175256513,1,0,1,1,1,0,'','Re: Creating gets with a For... next','Rafael, try any like this:\n\n[code:2kckdg3j]\n&#40;&#46;&#46;&#46;&#41;\nFor i &#58;= 1 TO 30\n     nR, nC GET oGet Var cGet\n     oGet&#91;i&#93; &#58;= oGet\n     cGet&#91;i&#93; &#58;= cGet\n     nR += 1\nNext\n[/code:2kckdg3j]\n\nI think the problem will be most clear if you compile with /p and seek the .ppo generated file... This is a codeblock problem were the program at runtime see only last item (i = 30).\nMaybe if you call for the class directly and use macro (&amp;) to compose the code block (&amp;(\"{|| .....}\")) it will do what you want... \n\nxxx := TGet():New(.....)\n\nSorry if I\'m not very clear...\nI did any like this times ago using menus. I\'m not in my house now, but when I go back I\'ll search in my computer. (But I think Antonio will let you a solution very near).\n\nRegards!\nMaurilio','',0,'AIA=','2kckdg3j',1,0,'',217,0,0),(29101,6528,3,63,0,'88.11.31.105',1175257298,1,0,1,1,1,0,'','','Maurilio:\n\nThanks for your suggestion, but it doesn\'t seem to work.  After the for...next loop,    ? oGet[i]:VarGet() gives the same value (the last one) for all the gets\n\nI\'ll take a look at the codeblock and see if I find a workaround\n\nBest regards,\n\nRafael','',0,'','2ha3qlh9',1,0,'',63,0,0),(29102,6516,6,106,0,'85.34.123.173',1175258148,1,0,1,1,1,1,'','','José, buena idea para las búsquedas.\n\n\n\na propósito,  pavada de clientes tienes...\n\n(T. Inglesa, Devoto, Curtifrance...Macromercado, Ancap...)\n\n\nSaludos','',0,'','1z2261o8',1,0,'',106,0,0),(29103,6523,3,909,0,'75.177.72.230',1175258613,1,0,1,1,1,1,'','','Hi Antonio - \n\nFrom resources.  \n\nRegards,\nCharles','',0,'','3a31hyds',1,0,'',909,0,0),(29104,6435,3,217,0,'200.159.120.34',1175258663,1,0,1,1,1,0,'','','Antonio,\n\nI don\'t tested it but what Eric says is:\n\nWhen you use @R picture and select the text using shift key + right arrow characters from picture mask \"mix\" with the get value.\nIf you use \"@R 99.999-999\" picture and fill the get with \"12345678\" it will be (correctly) displayed to \"12.345-679\", but if you select the text with shift + right arrow the get value turn into the \"4..45--78\" (\".\" and \"-\" mix with get value).\nI don\'t tryed it. I\'m only translating what Eric wanted to say <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nRegards!\nMaurilio','',0,'','1tj11112',1,0,'',217,0,0),(29105,6532,2,890,0,'200.24.110.196',1175258717,1,0,1,1,1,0,'','Editar en un listbox','Hola a todos en el foro\n\nPara Antonio o cualquier intergrante del foro \n\nComo pudo editar en un listbox?\nPor favor dame un ejemplo de codigo\nya puedo generar un listbox pero no puedo introducir datos al dbf por intermedio del listbox. \n\nCordialmente\n\nJairo Barbosa','',0,'','2c56bx3o',1,0,'',890,0,0),(29106,6435,3,2,0,'87.218.146.189',1175261906,1,0,1,1,1,1,'','','Maurilio,\n\nThanks. Yes, we have confirmed the bug. \n\nIts on our todo list to fix it asap.','',0,'','orjexlpr',1,0,'',2,0,0),(29107,6533,3,2,0,'87.218.146.189',1175263890,1,0,1,1,1,1,'','Multiple ActiveX support','Some users required to simultaneously use several ActiveX controls.\n\nHere it is a working sample:\n[code:1pv6vydq]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX1, oActiveX2\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin multiple ActiveX support&quot;\n\n   oActiveX1 = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oActiveX1&#58;Move&#40; 10, 10, 220, 220 &#41;\n\n   oActiveX1&#58;Do&#40; &quot;GoHome&quot; &#41;\n\n   oActiveX2 = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;MediaPlayer&#46;MediaPlayer&#46;1&quot; &#41;\n\n   oActiveX2&#58;Move&#40; 10, 240, 220, 220 &#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:1pv6vydq]\n[url=http&#58;//imageshack&#46;us:1pv6vydq][img:1pv6vydq]http&#58;//img381&#46;imageshack&#46;us/img381/8669/activexld8&#46;png[/img:1pv6vydq][/url:1pv6vydq]','',0,'GIA=','1pv6vydq',1,0,'',2,0,0),(29108,6534,6,2,0,'87.218.146.189',1175264046,1,0,1,1,1,1,'','Soporte de múltiples ActiveX','Algunos usuarios han comentado acerca de la posibilidad de usar simultaneamente varios controles ActiveX.\n\nAqui teneis un ejemplo:\n[code:2bblvudl]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX1, oActiveX2\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin multiple ActiveX support&quot;\n\n   oActiveX1 = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n\n   oActiveX1&#58;Move&#40; 10, 10, 220, 220 &#41;\n\n   oActiveX1&#58;Do&#40; &quot;GoHome&quot; &#41;\n\n   oActiveX2 = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;MediaPlayer&#46;MediaPlayer&#46;1&quot; &#41;\n\n   oActiveX2&#58;Move&#40; 10, 240, 220, 220 &#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:2bblvudl]\n[url=http&#58;//imageshack&#46;us:2bblvudl][img:2bblvudl]http&#58;//img381&#46;imageshack&#46;us/img381/8669/activexld8&#46;png[/img:2bblvudl][/url:2bblvudl]','',0,'GIA=','2bblvudl',1,0,'',2,0,0),(29109,6535,6,278,0,'164.77.219.82',1175264897,1,0,1,1,1,1,'','Problema con Tprogress()','Hola Foro:\n\nHay un problema con el TProgress , cuando esta mostrando la barrita de avance de un proceso , no llega hasta al final, incluso si el proceso ya termino.\n\nComo se puede hacer para que coincida el avance de la barrita con el final del proceso.\n\nEstoy usando pellesc.  Hay alguna propiedad que poner ??\n\nSaludos,','',0,'GIA=','2r0fmld5',1,0,'',278,0,0),(29110,6536,6,105,0,'200.72.140.34',1175265758,1,0,1,1,1,1,'','Logo de Fivewin','Antonio..\n\nTienes algun logo de Fivewin, para poner en mis aplicaciones \nAlgo asi como (\"powered By Fivewin\")\n\nUn poko de \"marketing\" no te vendria mal.. ja ja\n\nSi es asi indicame de donde bajarlo..\n.. o me lo puedes enviar por favor..\n\nVi el que viene en el directorio de fwh.. pero es un .ico y en muy mala resolucion\n\nDesde Chile...\nAdolfo','',0,'GIA=','35ao70o4',1,0,'',105,0,0),(29111,6528,3,6,0,'87.21.239.186',1175266913,1,0,1,1,1,1,'','','[code:2gjcuqni]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL aGet&#91; 2 &#93;\n\n    LOCAL aVar &#58;= &#123; SPACE&#40; 20 &#41;, SPACE&#40; 20 &#41; &#125;\n\n    LOCAL i\n\n    DEFINE DIALOG oDlg\n\n    FOR i = 1 TO 2\n        MAKEGET&#40; aGet, aVar, i &#41;\n    NEXT\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    ? aVar&#91; 1 &#93;, aVar&#91; 2 &#93;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MAKEGET&#40; aGet, aVar, n &#41;\n\n    @ n, 1 GET aGet&#91; n &#93; VAR aVar&#91; n &#93;\n\n    RETURN NIL[/code:2gjcuqni]\n\nEMG','',0,'AIA=','2gjcuqni',1,0,'',6,0,0),(29112,6534,6,171,0,'71.232.193.197',1175266963,1,0,1,1,1,0,'','','Antonio,\n\nQue haces para que ese dialogo se vea tan elegante?\n\nSe puede hacer con Borland Workshop?\n\nPodrias postear un ejemplo de como crear esos dialogos?\n\n\nSaludos,\n\nGeorge','',0,'AIA=','2djdxujq',1,0,'',171,0,0),(29113,6515,3,65,0,'88.255.16.212',1175270347,1,0,1,1,1,0,'','','jeff, Enrico \nThank you very much. I will try.\n\nBirol Betoncu','',0,'AIA=','23cjr9nq',1,0,'',65,0,0),(29114,6515,3,65,0,'88.255.17.118',1175271324,1,0,1,1,1,0,'','','It works perfect,\nAgain thank you very much.\n\nBirol Betoncu','',0,'AIA=','19leq7fq',1,0,'',65,0,0),(29115,6275,17,456,0,'217.127.39.57',1175271324,1,0,1,1,1,1,'','','Jose, muy buena herramienta, no la conocia, y la verdad es que esta muy bien. Andaba buscando algo como esto. Hace tiempo habia usado xCase,  pero la verdad es que con la version gratuita de Toad Data Modeler cubre nuestras necesidades.\n\nGracias por compartir la info.','',0,'AIA=','19leq7fq',1,0,'',456,0,0),(29116,6531,3,103,0,'201.8.72.119',1175271462,1,0,1,1,1,1,'','','Patrick,\n\n   I use this way:\n\n[code:2iwupn66]\n   oBrwVen                  &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg1 &#41;\n   oBrwVen&#58;nMarqueeStyle    &#58;= MARQSTYLE_HIGHLROW\n   oBrwVen&#58;nColDividerStyle &#58;= LINESTYLE_LIGHTGRAY\n   oBrwVen&#58;nRowDividerStyle &#58;= LINESTYLE_LIGHTGRAY\n   oBrwVen&#58;bSeek            &#58;= &#123;|c| DbSeek&#40; Upper&#40; c &#41; &#41; &#125;\n   oBrwVen&#58;bChange &#58;= &#123;||VEI-&gt;&#40;OrdScope&#40;0,cNLoja+VEN-&gt;nupd&#41;&#41;,VEI-&gt;&#40;OrdScope&#40;1,cNLoja+VEN-&gt;nupd&#41;&#41;,VEI-&gt;&#40;DbGoTop&#40;&#41;&#41;,oBrwVen2&#58;GoTop&#40;&#41;,oBrwVen2&#58;Refresh&#40;&#41;&#125;\n\n   oCol &#58;= oBrwVen&#58;AddCol&#40;&#41;\n      oCol&#58;cHeader       &#58;= &quot;Venda&quot;\n      oCol&#58;bStrData      &#58;= &#123; || VEN-&gt;nupd  &#125;\n      oCol&#58;nDataStrAlign &#58;= AL_LEFT\n      oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n      oCol&#58;nWidth        &#58;= 71\n      oCol&#58;bLClickHeader &#58;= &#123;|| Checa_Indices&#40;1,1,oBrwVen,&quot;VEN&quot;&#41; &#125;\n      oCol&#58;AddBmpFile&#40; &quot;BLANK&#46;BMP&quot;, &#46;T&#46; &#41;\n      oCol&#58;AddBmpFile&#40; &quot;CLIP&#46;BMP&quot;, &#46;T&#46; &#41;\n      oCol&#58;nHeadBmpNo &#58;= 1\n\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n   oBrwVen2                  &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg1 &#41;\n   oBrwVen2&#58;nMarqueeStyle    &#58;= MARQSTYLE_HIGHLROW\n   oBrwVen2&#58;nColDividerStyle &#58;= LINESTYLE_LIGHTGRAY\n   oBrwVen2&#58;nRowDividerStyle &#58;= LINESTYLE_LIGHTGRAY\n\n   oCol &#58;= oBrwVen2&#58;AddCol&#40;&#41;\n      oCol&#58;cHeader       &#58;= &quot;Venda&quot;\n      oCol&#58;bStrData      &#58;= &#123; || VEN-&gt;nupd  &#125;\n      oCol&#58;nDataStrAlign &#58;= AL_LEFT\n      oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n      oCol&#58;nWidth        &#58;= 71\n      oCol&#58;bLClickHeader &#58;= &#123;|| Checa_Indices&#40;1,1,oBrwVen,&quot;VEN&quot;&#41; &#125;\n      oCol&#58;AddBmpFile&#40; &quot;BLANK&#46;BMP&quot;, &#46;T&#46; &#41;\n      oCol&#58;AddBmpFile&#40; &quot;CLIP&#46;BMP&quot;, &#46;T&#46; &#41;\n      oCol&#58;nHeadBmpNo &#58;= 1\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n[/code:2iwupn66]\n\nHope this helps','',0,'AIA=','2iwupn66',1,0,'',103,0,0),(29118,6451,2,124,0,'190.30.49.171',1175273635,1,0,1,1,1,0,'','','AMIGOS:\n\nGracias por preocuparse y contestar. Les hago una pregunta, ¿que sistema de archivos están usando? y ¿como hicieron en caso de algun sql tipo mysql el uso de los comandos? ¿con algun driver de rdd y utilizando comandos xbase o sql embebido?\n\nEsto lo consulto ya que como no tengo transacciones disponibles y los sistemas crecen en datos, tablas, complejidad, creo que aprovecho el momento para iniciar el lento y penoso proceso de cambio de sistema de archivos.\n\nCualquier consejo u observación son bienvenidos.\n\nGracias.','',0,'AIA=','1k8cwyyz',1,0,'',124,0,0),(29119,6482,6,415,0,'190.24.103.243',1175274686,1,0,1,1,1,1,'','','Extractado de este FORO   (Antonio Linares)\n\nEn el primer PRG colocar estas lineas\n\nREQUEST HB_Lang_ES\nREQUEST HB_CODEPAGE_ESWIN\n\nHB_LangSelect(\"ES\")            // Para mensajes, fechas, etc..\nHB_SetCodePage(\"ESWIN\")  // Para ordenación, requiere CodePage.lib\n\n\nAsi obtendran los nombres de las fechas en Español sin hacer ningun arreglo adicional\n\nPara VERCE\n\nOpciones   -&gt;  LIBS/OBJS de Terceros se agrega:\nCodePaje.LIB\n\nPara los archivos por lotes (.BAT)\n\n%HB_INSTALL%\\lib\\codepage.lib + &gt;&gt; b32.bc\n\nY listo.\n\nSaludos','',0,'AIA=','1yv2v0pu',1,0,'',415,0,0),(29120,6519,3,3,0,'80.81.159.19',1175274976,1,0,1,1,1,1,'','Re: UEStudio - FWPPC config','Antonio\n\nI have not yet finished the script\n\nHarbour + vc compile goes ok\n\nI am having trouble with link in the script.\n\nI can not see where the problem comes from, maybe someone can take a look ?\n\nI will continue on it till it is ok.\n\nMeanwhile, here is the script.\n\nIn \\program files\\idm computer solutions\\ue studio\'06\\config \n\nCreate a folder named Harbour_ce\n\nIn this folder create a file named APPLICATION without extension\n\nCopy the following script in it\n\n# ----- Harbour_ce-FiveWin POCKET PC Compiler configuration ---- \n# --- general --------------------------------- \n# $P - project name \n# $Pp - path to project directory \n# $Pn - project name \n# --- compile ----------------------------------    \n# $I - input full name \n# $Ip - input path \n# $In - input name \n# $Ie - input extension \n# $O - output file \n# $Op - path to output file \n# $On - output filename (without path) \n# $Oe - output extension \n# $R - release/debug setting for compiler \n# --- build -----------------------------------                  \n# $T - target full name \n# $Tp - target path \n# $Tn - target name \n# $O - output file \n# $Op - path to output file \n# $On - output filename (without path) \n# $Oe - output extension \n# $R - release/debug setting for linker \n\n[Settings] \nTarget = \nCategory&amp;01 = DEFAULT RUN CONFIGURATION \nWorking Directory =. \nCommand Line Arguments = \n\nCategory&amp;02 = Harbour Options \nGUI = FWPPC \nAutomatic Memvar Declaration = no \nVariables Are Assumed = no \nGenerate Preprocessed Output = no|yes \nExit Severity = 0|1|2 \nUse Harbour Dll = no|yes \nUser Include Path = \nUser Defines = \nHarbour Options = -n -m -es2 -go \nCompiler Options = \nLinker Options = \n\n[SettingsInfo] \nTarget = Provides a space for you to specify an output file and location of the program that the linker creates. \nWorking Directory = Provides a space for you to specify the directory in which executing occurs. If you do not specify a directory, executing occurs in the directory where the executable is located. \nCommand Line Arguments = Provides a space for you to specify command-line arguments you want to pass to the program at startup. \nCompiler Options = Provides a space for you to specify an additional compiler options. \nUser Defines = Shows the switches the tool will use to build. Use \';\' as delimiter. \nLinker Options = Provides a space for you to specify an additional linker options. \n\n[SettingsReps] \nUser Defines = @[;|/D%s] \nAutomatic Memvar Declaration = no=|yes=/a \nVariables Are Assumed = no=|yes=/v \nExit Severity = @/es%s \nGenerate Preprocessed Output = no=|yes=/p \nUse Harbour Dll = no=|yes=harbour.lib \nUser Include Path = ^^@[;|;%s] \nUser Include Path&amp;1 = ^^@[;| /i%s] \n\n[Variables] \nFWDIR  = C:\\Fwppc \nHDIR   = C:\\Harbour_CE \nVCDIR  = c:\\vce\n\nHOPT  = $(HARBOUR Options) /i$(HDIR)\\INCLUDE $(User Include Path&amp;1) $(FWDIR)\\include /n $(Automatic Memvar Declaration) $(Variables Are Assumed) $(Exit Severity) $(User Defines)  $(Generate Preprocessed Output) \nCOPT  = $(Compiler Options) -W3 -c /DARM /DUNICODE \nLIBC  = rtl.lib vm.lib gtgui.lib lang.lib macro.lib rdd.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib codepage.lib hbsix.lib\nLIBL  = coredll.lib corelibc.lib aygshell.lib ws2.lib mfcce400.lib ole32.lib ceshell.lib commctrl.lib wininet.lib cellcore.lib\nFWLIB = fiveCE.lib fiveCEC.lib\nLIBS  = {[$(BuildMode)=][Debug=debug.lib]} $(FWLIB) $(LIBC) $(LIBL)\nLOPT  = $(Linker Options) /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM\n\n[Environment] \nPATH = $(HDIR)\\BIN;$(vcdir)\\BIN;%PATH%\nINCLUDE = $(FWDIR)\\Include;$(HDIR)\\Include;$(VCDIR)\\Include\\ARM;$(User Include Path)\nLIB  = $(HDIR)\\LIB;$(FWDIR)\\LIB;$(VCDIR)\\lib\\arm\nOBJ  = $(HDIR)\\OBJ; \nBuildMode = %UESMode% \n\n[General] \nTargetExt = .EXE \nReleaseOut = Release \nDebugOut = Debug \nUseFullPaths = 1 \nUseDosNames = 1 \nExcludes = $(Excluded Files) \n\n[MakeCommands] \nrun = Execute Application \nmakef = Show Makefile \n\n[Execute Application] \nTitle = Execute $T \nCmd0 = $(Command Line Arguments) \nDepends = $T \nShowWindow = 1 \nDisplayConsole=0 \n\n[Show Makefile] \nTitle=Show makefile \nCmd0=uestudio makefile \nShowWindow=1 \nDisplayConsole=0 \n\n[InsertFiles] \n\n[FileGroups] \nFGO = .obj; \nFGR = .res; \nFGL = .lib; \nFGD = .def; \n\n[Build] \nOut = $T \nDepends = $FGO $FGR \nDebugFlag = \nReleaseFlag = \nCmd0 = $(VCDIR)\\bin\\link $FGO $FGL $FGR $(LIBS) $On $R $(LOPT) \n\n[.PRG] \nOut = $In.c \nDebugFlag = /b \nReleaseFlag = /l \nCmd0 = $(HDIR)\\bin\\harbour $I $(HOPT) $R /o$O \n\nIncFiles = 1 \nCaseSensitive = 0 \nIncDirs = .;$(INCLUDE); \nLIBDirs = .;$(LIBS); \nIncKeyWords = #include; \nComments = /*.*/.//.eol. \n\n[.C] \nOut = $In.obj \nCmd0 = $(VCDIR)\\bin\\clarm $I $(COPT) $O \n\nIncFiles = 1 \nCaseSensitive = 0 \nIncDirs = .;$(INCLUDE); \nIncKeyWords = #include; \nComments = /*.*/.//.eol.','',0,'','24r7epx5',1,0,'',3,0,0),(29121,6480,6,43,0,'189.128.25.131',1175275155,1,0,1,1,1,0,'','','Jose Murugosa, se regresa el mail\n\nalguna otra cuenta\n\nSaludos\nMarco A. Delgado.','',0,'','2tolgwco',1,0,'',43,0,0),(29122,6514,2,235,0,'201.151.70.15',1175277549,1,0,1,1,1,0,'','','ok, gracias','',0,'','3hy2as3v',1,0,'',235,0,0),(29123,6533,3,217,0,'200.159.120.34',1175277614,1,0,1,1,1,0,'','Re: Multiple ActiveX support','Thanks Antonio, it came in good time <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nMaybe you can create a xBase like command to simplify these two lines. What do you think?\n\n[code:fy1w6ytb]\noActiveX1 = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\noActiveX1&#58;Move&#40; 10, 10, 220, 220 &#41;\n[/code:fy1w6ytb]\n\nDEFINE ACTIVEX oActiveX ENTRY \"Shell.Explorer\" OF oWnd FROM 10,10 TO 220,220\n\nRegards,\nMaurilio','',0,'AIA=','fy1w6ytb',1,0,'',217,0,0),(29124,6530,3,217,0,'200.159.120.34',1175277739,1,0,1,1,1,0,'','Re: Multiline in TBtnBmp and color in TreeView','Problem of TreeView is solved (I found solution in other topic) but multiline in TBtnBmp continues...\n\nRegards,\nMaurilio','',0,'AIA=','krbkzu8c',1,0,'',217,0,0),(29125,6485,6,95,0,'189.171.159.213',1175278376,1,0,1,1,1,0,'','','Utilize el mismo ejemplo /fivemac/samples/browse\n\nLo compile y me genero el folder correspondiente con sus demas folder\ny ese mismo o sea la app, a lleve a /fivemac/samples\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','37ksz9w4',1,0,'',95,0,0),(29126,6451,2,376,0,'200.106.46.188',1175280036,1,0,1,1,1,1,'','','Hasta el presente sigo utilizando los dbf (no estoy preocupado por la cantidad de registros que pueden caber en las tablas) ni la cantidad de tablas que puedan manejar xHarbour porque no creo que pueda llegar al limite de manejo.\n\nEsto no significa que no estè atento a la posibilidad de utilizar mysql, sql, postgres, etc. sino que hasta el presente no ha sido necesario que los utilice.','',0,'AIA=','2hglt789',1,0,'',376,0,0),(29127,6451,2,376,0,'200.106.46.188',1175280301,1,0,1,1,1,1,'','','Me falto indicar que en caso del Clipper 5.3b (última versión que utilice con FW2.0) con el apoyo de la libreria DBFCDX puede manejar hasta 4 billones de registros y creo... que sería muuuy dificil llegar a manejar esa cantidad de datos.','',0,'AIA=','2s2kgb6x',1,0,'',376,0,0),(29128,6480,6,533,0,'80.32.177.143',1175283737,1,0,1,1,1,0,'','','Te agradeceria me la enviaras:\n\n<!-- e --><a href=\"mailto:mserracat@terra.es\">mserracat@terra.es</a><!-- e -->\n\nMUCHAS GRACIAS','',0,'AIA=','2312btqc',1,0,'',533,0,0),(29129,6488,6,207,0,'189.158.95.180',1175285566,1,0,1,1,1,0,'','','Aqui si ya no entendí.\n\nSolo tengo un programa  cachaza.prg y un cachaza.rc. Te decia que el error anterior me abria el dialogo por lo menos.\n\n¿?','',0,'AIA=','2fm3up4r',1,0,'',207,0,0),(29130,6533,3,2,0,'87.218.146.189',1175287948,1,0,1,1,1,1,'','','Maurilio,\n\n&gt; DEFINE ACTIVEX oActiveX ENTRY \"Shell.Explorer\" OF oWnd FROM 10,10 TO 220,220\n\nWe were thinking about this one:\n\n@ ..., ... ACTIVEX oActivex PROGID \"Shell.Explorer\" OF oWnd SIZE ..., ...','',0,'AIA=','2ub5djq3',1,0,'',2,0,0),(29131,6488,6,2,0,'87.218.146.189',1175288920,1,0,1,1,1,1,'','','Miguel,\n\nPon un MsgInfo( \"aqui\" ) en tu PRG y comprueba si se muestra','',0,'AIA=','8gydi379',1,0,'',2,0,0),(29132,6521,1,999,0,'201.42.194.176',1175288940,1,0,1,1,1,0,'','','Thanks Antonio!\nNow is working fine. \nRegards, Euclides','',0,'AIA=','3hq0aqsh',1,0,'',999,0,0),(29133,6520,19,785,0,'190.64.201.48',1175288970,1,0,1,1,1,0,'','','Antonio:\n\nGracias.\n\nPara tener en cuenta\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','16wbgygv',1,0,'',785,0,0),(29134,6480,6,37,0,'190.41.59.208',1175290196,1,0,1,1,1,1,'','','Marco, MUCHAS GRACIAS !!!, aun no la pruebo pera ya la recibi\nSaludos','',0,'AIA=','1gu2pznc',1,0,'',37,0,0),(29135,6480,6,838,0,'80.59.225.15',1175290568,1,0,1,1,1,0,'','','Marco, estoy interesado yo también\nSe ve fantastico.\n\nmi correo:\n<!-- e --><a href=\"mailto:jlglopez@telefonica.net\">jlglopez@telefonica.net</a><!-- e -->\n\nSaludos\n\nJose Luis','',0,'AIA=','29reqe8k',1,0,'',838,0,0),(29136,6531,3,996,0,'70.58.66.18',1175291302,1,0,1,0,1,0,'','','Hello Kleyber.  That\'s work very well, thank you so much!  The big thing I needed to know about was the :bChange block (I didn\'t see it in the available methods of the TXBrowse() documentation.\n\nOne thing, how do you handle the case of their being no related records in the Vei table for the current Ven record?  In my test, the Vei table remains on the related records for the previous Ven record.  Is there a way to have the child Vei browse simply show no records in that case?  I tried setting oBrwVen2:nDataLines to zero in that case but that didn\'t clear the browse display.  Thanks!','',0,'AIA=','6bah0cte',1,0,'',996,0,0),(29137,6480,6,40,0,'189.194.84.48',1175293914,1,0,1,1,1,0,'','TActivex','Marco si no es mucha molestia a mi tambien\n\n<!-- e --><a href=\"mailto:jandujo@gmail.com\">jandujo@gmail.com</a><!-- e -->\n\n\nsaludos y gracias\nJoel Andujo','',0,'AIA=','1m4yt8jx',1,0,'',40,0,0),(29138,6516,6,439,0,'200.125.46.129',1175294275,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:1pkkykvj]José, buena idea para las búsquedas.\n\n\n\na propósito,  pavada de clientes tienes...\n\n(T. Inglesa, Devoto, Curtifrance...Macromercado, Ancap...)\n\n\nSaludos[/quote:1pkkykvj]\n\njeje, lo que es el uso de la imaginación no?','',0,'gA==','1pkkykvj',1,0,'',439,0,0),(29139,6275,17,439,0,'200.125.46.129',1175294332,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:1vok7kk6]Jose, muy buena herramienta, no la conocia, y la verdad es que esta muy bien. Andaba buscando algo como esto. Hace tiempo habia usado xCase,  pero la verdad es que con la version gratuita de Toad Data Modeler cubre nuestras necesidades.\n\nGracias por compartir la info.[/quote:1vok7kk6]\n\nMe alegra poder ayudar. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1vok7kk6',1,0,'',439,0,0),(29140,6467,6,439,0,'200.125.46.129',1175295002,1,0,1,1,1,1,'','','Raymundo,\n\nQue soberbio ejemplo, mezcla de simplicidad, practicidad y buen gusto.\nGracias por compartirlo con nosotros. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1neuqs6g',1,0,'',439,0,0),(29141,6488,6,207,0,'189.158.95.180',1175295234,1,0,1,1,1,0,'','','¡Ya estoy viendo la luz!.... ya abre el dialog, muestra el menu pero Tengo algunas dudas\n\n1.- No leyo mi archivo .INI.\n\n2.- Cada que le toca procesar algo se cicla.\n\nAgradezco su ayuda. Les recuerdo que este programa esta funcionando perfecto con la anterior version (fw24).\nSaludos','',0,'gA==','2nzwgebi',1,0,'',207,0,0),(29142,6518,3,86,0,'213.119.103.68',1175295267,1,0,1,1,1,1,'','','Found.\n\nThanks, Enrico.\n\nMichel','',0,'gA==','28wjj4bf',1,0,'',86,0,0),(29143,6537,6,305,0,'201.230.233.204',1175295534,1,0,1,1,1,0,'','Richedit','Estoy usando esta clase (FWH 07.01 + xHb 09971) y tengo algunas dudas:\n\n1) Cuando escribo y presiono Enter para saltar la linea no pasa nada, debo  presionar Ctrl_Enter para insertar una linea, es esto normal?\n\n2) Como inserto un quiebre de pagina?\n\n3) Es posible ajustar los margenes a la linea de acuerdo al ancho del papel?\n\nGracias por sus comentarios\n\nRalph','',0,'gA==','22wrucs4',1,0,'',305,0,0),(29144,6538,6,975,0,'200.21.137.146',1175296920,1,0,1,1,1,0,'','Listbox','Estamos realizando un TWBROWSE donde queremos agregar unos datos; con la siguiente linea. cuando el archivo esta vacio la presentación del TWBROWSE se pierde, no muestra la division de columnas y filas. Como hacemos para que cuando se este ejecutando el TWBROWSE se muestren las divisiones (Columnas, Filas) marcadas?. \nEstamos trabajando con FWH 7.1. gracias\n\nSELECT 7\nREDEFINE LISTBOX oTBR5;\n         FIELDS TEMPORAL-&gt;CUENTA,;\n                TEMPORAL-&gt;DETALLE,;\n                TEMPORAL-&gt;NIT,;\n                TEMPORAL-&gt;DEBITO,;\n                TEMPORAL-&gt;CREDITO;\n                HEADERS \"Codigo Contable\",\"DETALLE\",\"NIT o C.C.\",\"Debito\",\"Credito\";\n                FIELDSIZES 100,200,70,70,70;\n                ID 104 ;\n                OF oDlg8\n\n\n\n[code:2mfwpa3z][/code:2mfwpa3z][list:2mfwpa3z][/list:u:2mfwpa3z][code:2mfwpa3z][/code:2mfwpa3z][i <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> mg][/img]','',0,'AsA=','2mfwpa3z',1,0,'',975,0,0),(29145,6467,6,492,0,'189.147.26.143',1175296982,1,0,1,1,1,1,'','','Hola Jose\n\n\nAgradezco mucho tu comentario !     <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'AsA=','14f3ecey',1,0,'',492,0,0),(29146,6534,6,492,0,'189.147.26.143',1175297195,1,0,1,1,1,1,'','','Hola\n\nHay 2 opciones :\n\n- Conseguir e instalar algun tema/skin que emule al Vista\n\n- Instalar el windows Vista !!!! \n( esta precioso  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> , pero algo caro por no decir mucho  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  )\n\n\n\nSaludos','',0,'AsA=','3lrld66a',1,0,'',492,0,0),(29147,6447,20,49,0,'62.13.172.67',1175297287,1,0,1,1,1,1,'','','sui forum mi hanno risposto con questo prg ma a me non va  \npotresti provarlo tu per favore ( spero tu abbia una webcam) perchè a me fa errore \n[code:2j6d5qlr]\n#include &quot;Fivewin&#46;ch&quot;\n\nStatic cWebCamDriver &#58;= &quot;Microsoft WDM Image Capture&quot; \nStatic _oWebcam_ &#58;= nil \n************************************************************************ \n* \n************************************************************************ \nFunction WebCam&#40;codart,xalias,ori&#41; \n  Local oDlg_Cam, oImg,oWc,bton,oGet,cFich,lVale&#58;=&#46;F&#46;,cFichero&#58;=SPACE&#40;254&#41; \n  \n  if codart=NIL \n     codart&#58;=&quot;imap&quot; + DTOS&#40;date&#40;&#41;&#41; + strtran&#40;time&#40;&#41;,&quot;&#58;&quot;&#41; \n  end if \n  cFichero&#58;=&quot;\\&quot; + codart + &quot;&#46;bmp&quot; \n  cFich&#58;= &quot;\\&quot; + codart + &quot;&#46;bmp&quot; \n  \n  oWC&#58;=tWebCamPhoto&#40;&#41;&#58;New&#40;&#41; \n\n  DEFINE DIALOG oDlg_Cam TITLE &quot;Adquirir imagen del Producto via WebCam&quot; FROM 0,0 TO 290,725 PIXEL \n    @ 5,180 IMAGE oImg OF oDlg_Cam SIZE 160,120 PIXEL ADJUST \n    @ 130,10 BUTTON &quot;Capturar&quot; OF oDlg_Cam SIZE 30,10 PIXEL ACTION oWc&#58;Save&#40;oImg,cFich&#41; \n    @ 130,45 BUTTON &quot;Aceptar&quot;  OF oDlg_Cam SIZE 30,10 PIXEL ACTION &#40;oWc&#58;Disconnect&#40;&#41;,lVale&#58;=&#46;T&#46;,oDlg_Cam&#58;End&#40;&#41;&#41; \n    @ 130,80 BUTTON &quot;Cancelar&quot; OF oDlg_Cam SIZE 30,10 PIXEL ACTION &#40;oWc&#58;Disconnect&#40;&#41;,oDlg_Cam&#58;End&#40;&#41;&#41; \n\n    @ 132,180 SAY oSay PROMPT &quot;Localizacion fichero &quot; PIXEL \n    @ 130,230 GET oGet VAR cFich OF oDlg_Cam SIZE 110,10 PIXEL WHEN &#46;F&#46; \n\n    oImg&#58;nProgress&#58;=0 \n\n  ACTIVATE DIALOG oDlg_Cam CENTER ON INIT; \n    &#40;oWC&#58;CreateWnd&#40;oDlg_Cam,10,10,260,180&#41;,oWc&#58;Connect&#40;&#41;&#41; \n  if lVale \n     sele &#40;xAlias&#41; \n     replace &#40;xalias&#41;-&gt;foto with cFichero \n     &amp;&amp;ori&#58;Refresh&#40;&#41; \n     ori&#58;setbmp&#40;cFichero&#41; \n     ori&#58;refresh&#40;&#41; \n     sysrefresh&#40;&#41; \n  end if \nreturn lVale \n\n\n\n/********************************************************** \n* \n* \n* Clase tWebCamPhoto &#40;Sólo para FWH&#41; \n*  Objetivo&#58; Capturar fotos con una Webcam \n* \n*  César E&#46; Lozada, cesarlozada@hotmail&#46;com \n*  Los Teques, Venezuela - 22/06/2003 \n* \n*\n***********************************************************/\n#define WM_CAP_START             WM_USER\n#define WM_CAP_DRIVER_CONNECT    WM_CAP_START + 10\n#define WM_CAP_DRIVER_DISCONNECT WM_CAP_START + 11\n#define WM_CAP_SET_PREVIEW       WM_CAP_START + 50\n#define WM_CAP_SET_PREVIEWRATE   WM_CAP_START + 52 \n#define WM_CAP_SET_SCALE         WM_CAP_START + 53\n\n#define WM_CAP_EDIT_COPY         WM_CAP_START + 30 \n#define WM_CAP_FILE_SAVEDIB      WM_CAP_START + 25\n\n#define WM_CAP_DLG_VIDEOFORMAT   WM_CAP_START + 41\n#define WM_CAP_DLG_VIDEOSOURCE   WM_CAP_START + 42\n#define WM_CAP_GET_STATUS        WM_CAP_START + 54\n\n\n*********************************************************\n* EXIT Procedure WebcamDisconnect&#40;&#41;\n* Asegura la desconexión de la cámara&#46;\n*********************************************************\nEXIT Procedure WebcamDisconnect&#40;&#41;\n  if _oWebcam_&lt;&gt;nil \n    _oWebcam_&#58;Disconnect&#40;&#41;\n    _owebcam_&#58;=nil \n  endif\nreturn\n**************************************************************************** \nCREATE CLASS tWebCamPhoto\n\n  DATA nFrameRate INIT 66      //Velocidad de actualización de la WebCam \n  DATA nJpgQuality INIT 75     //Calidad de los JPG\n\n  DATA hWnd                     //Handle de la centana de la imagen\n  DATA aDrivers                 //Drivers de captura disponibles\n  DATA nDriver                  //número del driver instalado + 1\n  DATA lConnected INIT &#46;F&#46;      //¿Está conectada&gt;\n\n  METHOD New&#40;cDriver,lSelect&#41; CONSTRUCTOR   // Construye el objeto&#46; cDriver es el nombre\n                                            // del driver a usar, recomendado guardar en ini&#46;\n                                            // Si lSelect=&#46;T&#46; muestra la lista para escogerlo\n\n  METHOD CreateWnd&#40;oWnd,nLeft,nTop,nWidth,nHeight,nStyle,cTitle&#41;\n             // Crea la ventana para la cámara en oWnd&#46;\n\n\n  METHOD Connect          // Conecta la cámara \n  METHOD Disconnect       // Desconecta la cámara\n\n  METHOD Clipboard&#40;oImg&#41; //Captura la imagen en clipboard&#46; Opcionalmente\n                         //actualiza a oImg con la imagen capturada \n\n  METHOD Save&#40;oImg,cFile,nQuality&#41;     //Captura la imagen y guarda en archivo &#40;BMP/JPG&#41;&#46;\n                                       //Opcionalmente actualiza a oImg con la imagen capturada \n\n  METHOD Source&#40;&#41;                      //Configura la fuente de la webcam \n\n  METHOD Format&#40;&#41;                      //Configura el formato de la imagen \n    \n  METHOD GetStatus&#40;&#41;                   //Status de la imagen \n\n  METHOD Resize&#40;&#41;                      //Redimensiona la ventana de la imagen \n\n  METHOD End&#40;&#41; INLINE &#58;&#58;Disconnect&#40;&#41;   // Finaliza el objeto \n\nENDCLASS \n*=========================================================================== \nMETHOD New&#40;cDriver,lSelect&#41; \n  DEFAULT cDriver&#58;=cWebCamDriver\n  DEFAULT lSelect&#58;=&#46;F&#46; \n  &#58;&#58;aDrivers&#58;=WebCamList&#40;&#41; \n  &#58;&#58;nDriver&#58;=aScan&#40;&#58;&#58;aDrivers,&#123;|u| Upper&#40;StrTran&#40;cDriver,\' \'&#41;&#41;==Upper&#40;StrTran&#40;u,\' \'&#41;&#41;&#125;&#41; \n  IF &#58;&#58;nDriver=0 &#46;or&#46; lSelect\n    &#58;&#58;nDriver&#58;=WebCamSelect&#40;&#58;&#58;nDriver,&#58;&#58;aDrivers&#41; \n  ENDIF \n  _oWebCam_&#58;=Self\nreturn Self  \n*=========================================================================== \nMETHOD CreateWnd&#40;oWnd,nTop,nLeft,nWidth,nHeight,nStyle,cTitle&#41; \n  DEFAULT nTop&#58;=0, nLeft&#58;=0, nWidth&#58;=160, nHeight&#58;=120\n  DEFAULT nStyle&#58;=nOr&#40;WS_VISIBLE,WS_CHILD,WS_BORDER&#41; \n  IF &#58;&#58;nDriver&gt;0\n    &#58;&#58;hWnd&#58;=wCamCreaWnd&#40;&#58;&#58;aDrivers&#91;&#58;&#58;nDriver&#93;, nStyle,; \n                        nLeft, nTop, nWidth, nHeight, oWnd&#58;hWnd, 0&#41;\n  ENDIF\nreturn &#58;&#58;hWnd \n*===========================================================================\nMETHOD Connect&#40;&#41; \n  if &#58;&#58;hWnd&lt;&gt;nil\n    if SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DRIVER_CONNECT, &#58;&#58;nDriver-1, 0&#41;=1 \n      cWebCamDriver&#58;=&#58;&#58;aDrivers&#91;&#58;&#58;nDriver&#93;\n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_SET_SCALE, 1, 0&#41; \n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_SET_PREVIEWRATE, &#58;&#58;nFrameRate, 0&#41;\n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_SET_PREVIEW, 1, 0&#41;\n      &#58;&#58;lConnected&#58;=&#46;T&#46;\n      &#58;&#58;Resize&#40;&#41;\n    else\n      &#58;&#58;lConnected&#58;=&#46;F&#46;\n      &#58;&#58;hWnd&#58;=nil\n    endif\n  endif \nreturn &#58;&#58;lConnected \n*=========================================================================== \nMETHOD Disconnect \n  IF &#58;&#58;hWnd&lt;&gt;Nil &#46;and&#46; &#58;&#58;lConnected \n    if SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DRIVER_DISCONNECT, 0, 0&#41;=1 \n      &#58;&#58;lConnected&#58;=&#46;F&#46; \n      _oWebCam_&#58;=nil \n    endif \n  ENDIF \nreturn nil \n*=========================================================================== \nMETHOD Clipboard&#40;oImg&#41; \n  Local lSucc&#58;=&#46;F&#46; \n  if &#58;&#58;hWnd&lt;&gt;nil \n    lSucc&#58;=&#40;SendMessage&#40;&#58;&#58;hWnd, WM_CAP_EDIT_COPY, 0, 0&#41;=1&#41; \n    IF lSucc &#46;and&#46; oImg&lt;&gt;nil \n      oImg&#58;LoadFromClipboard&#40;&#41; \n      oImg&#58;Refresh&#40;&#41; \n    ENDIF \n  endif \nreturn lSucc \n*=========================================================================== \nMETHOD Save&#40;oImg,cFile,nQuality&#41; \n  Local lSucc&#58;=&#46;F&#46; \n  Local cFileExt&#58;=Upper&#40;cFileExt&#40;cFile&#41;&#41; \n  Local cFileName&#58;=cFileNoExt&#40;cFile&#41; \n  Local cExec&#58;=\'BMPtoJPG&#46;EXE\' \n  if &#58;&#58;hWnd&lt;&gt;nil \n    CursorWait&#40;&#41; \n    IF &#40;cFileExt==&quot;JPG&quot; &#46;or&#46; cFileExt==&quot;JPEG&quot;&#41; \n      IF &#58;&#58;Clipboard&#40;&#41; \n        DEFAULT nQuality&#58;=&#58;&#58;nJpgQuality \n        &#58;&#58;nJpgQuality&#58;=Max&#40;Min&#40;Int&#40;nQuality&#41;,100&#41;,10&#41; \n        WaitRun&#40;cExec+\' -q\'+LTrim&#40;Str&#40;&#58;&#58;nJpgQuality,3,0&#41;&#41;+\' -c\'+cFileName+\' -o -s\',0&#41; \n      ENDIF \n    ELSEIF cFileExt==\'BMP\' \n      SendMessage&#40;&#58;&#58;hWnd, WM_CAP_FILE_SAVEDIB, 0, cFile&#41; \n    ENDIF \n    CursorArrow&#40;&#41; \n    SysRefresh&#40;&#41; \n    IF !&#40;lSucc&#58;=File&#40;cFile&#41;&#41; \n      MsgAlert&#40;&quot;No pudo crearse &quot;+cFile,cdi&#58;vTitulo&#41; \n    ELSEIF oImg&lt;&gt;nil \n       oImg&#58;LoadImage&#40;nil,cFile&#41; \n       oImg&#58;Refresh&#40;&#41; \n    ENDIF \n  endif \nreturn lSucc \n*=========================================================================== \nMETHOD Source&#40;&#41; \n  if &#58;&#58;hWnd&lt;&gt;nil &#46;and&#46; &#58;&#58;lConnected \n    SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DLG_VIDEOSOURCE, 0, 0&#41; \n  endif \nreturn nil \n*=========================================================================== \nMETHOD Format&#40;&#41; \n  if &#58;&#58;hWnd&lt;&gt;nil &#46;and&#46; &#58;&#58;lConnected \n    SendMessage&#40;&#58;&#58;hWnd, WM_CAP_DLG_VIDEOFORMAT, 0, 0&#41; \n    &#58;&#58;Resize&#40;&#41; \n  endif \nreturn nil \n*=========================================================================== \n#include &quot;Struct&#46;ch&quot; \nMETHOD GetStatus&#40;&#41; \n  Local oPoint, oStatus, cBuffer \n\n  STRUCT oPoint \n    MEMBER X AS LONG \n    MEMBER Y AS LONG \n  ENDSTRUCT \n\n  STRUCT oStatus \n    MEMBER nWidth AS LONG                    // Width of the image \n    MEMBER nHeight AS LONG                   // Height of the image \n    MEMBER lLive AS LONG                     // Now Previewing video? \n    MEMBER lOverlay AS LONG                  // Now Overlaying video? \n    MEMBER lScale AS LONG                          // Scale image to client? \n    MEMBER oXYScroll AS STRING LEN 8  //AS POINTAPI     // Scroll position \n    MEMBER lDefPalette AS LONG            // Using default driver palette? \n    MEMBER lAudHardware AS LONG                  // Audio hardware present? \n    MEMBER lCapFile AS LONG                  // Does capture file exist? \n    MEMBER nCurVidFrm AS LONG             // # of video frames cap\'td \n    MEMBER nCurVidDropped AS LONG     // # of video frames dropped \n    MEMBER nCurWavSamples AS LONG            // # of wave samples cap\'td \n    MEMBER nCurTimeEl AS LONG          // Elapsed capture duration \n    MEMBER hPalCur AS LONG                     // Current palette in use \n    MEMBER lCapturing AS LONG                   // Capture in progress? \n    MEMBER nReturn AS LONG                        // Error value after any operation \n    MEMBER nVidAlloc AS LONG              // Actual number of video buffers \n    MEMBER wAudAlloc AS LONG              // Actual number of audio buffers \n  ENDSTRUCT \n\n  oPoint&#58;x&#58;=0; oPoint&#58;y&#58;=0 \n  oStatus&#58;oXYScroll&#58;=oPoint&#58;cBuffer \n\n  cBuffer&#58;= oStatus&#58;cBuffer \n\n  SendMessage&#40;&#58;&#58;hWnd, WM_CAP_GET_STATUS, Len&#40;cBuffer&#41;, @cBuffer&#41; \n\n  oStatus&#58;cBuffer&#58;= cBuffer \nreturn oStatus \n*=========================================================================== \n#define HWND_BOTTOM   1 \n#define SWP_NOMOVE    2 \n#define SWP_NOSIZE    1 \n#define SWP_NOZORDER  4 \nMETHOD Resize&#40;&#41; \n  Local oStatus \n  \n  if &#58;&#58;hWnd&lt;&gt;nil &#46;and&#46; &#58;&#58;lConnected  \n    SysRefresh&#40;&#41; \n    oStatus &#58;= &#58;&#58;GetStatus&#40;&#41; \n    SetWindowPos&#40;&#58;&#58;hWnd,HWND_BOTTOM,0,0,oStatus&#58;nWidth,oStatus&#58;nHeight,; \n                 nOr&#40;SWP_NOMOVE,SWP_NOZORDER &#41; &#41; \n    SysRefresh&#40;&#41; \n  endif \n\nreturn nil \n**************************************************************************** \nFunction WebcamList&#40;&#41; \n  Local aDrivers&#58;=&#123;&#125;, nDriver&#58;=0 \n  Local cName, cVersion, nLen&#58;=255 \n  DO WHILE &#46;T&#46; \n    cName&#58;=space&#40;nLen&#41;; cVersion&#58;=space&#40;nLen&#41; \n    IF !wCamGetDrvDesc&#40;nDriver, @cName, nLen, @cVersion, nLen&#41; \n      EXIT \n    ENDIF \n    if chr&#40;0&#41;$cName \n      cName&#58;=Left&#40;cName,At&#40;chr&#40;0&#41;,cName&#41;-1&#41; \n    endif \n    if chr&#40;0&#41;$cVersion \n      cVersion&#58;=Left&#40;cVersion,At&#40;chr&#40;0&#41;,cVersion&#41;-1&#41; \n    endif \n    aAdd&#40;aDrivers,cName&#41; \n    nDriver++ \n  ENDDO \nreturn aDrivers \n**************************************************************************** \nFunction WebcamSelect&#40;nDriver,aDrivers&#41; \n  Local oDlg, oCbx \n  Local cDriver \n  Local lSelect&#58;=&#46;F&#46; \n\n  DEFAULT nDriver&#58;=0, aDrivers&#58;=WebcamList&#40;&#41; \n  IF Empty&#40;aDrivers&#41; \n    MsgAlert&#40;\'No Webcams\'&#41; \n    return 0 \n  ELSE \n    cDriver&#58;=aDrivers&#91;Max&#40;1,nDriver&#41;&#93; \n    DEFINE DIALOG oDlg FROM 0,0 to 6,40 TITLE &quot;Seleccionar Webcam&quot; \n        @ 0,0 COMBOBOX oCbx VAR cDriver OF oDlg ITEMS aDrivers; \n          SIZE 160,50 PIXEL \n        @ 1&#46;5, 4 BUTTON &quot;Seleccionar&quot; OF oDlg SIZE 40,12; \n           ACTION &#40;nDriver&#58;=oCbx&#58;nAt ,oDlg&#58;End&#40;&#41;&#41; \n        @ 1&#46;5,16 BUTTON &quot;Cancelar&quot; OF oDlg SIZE 40,12; \n           ACTION oDlg&#58;End&#40;&#41; \n    ACTIVATE DIALOG oDlg CENTERED \n  ENDIF \nreturn nDriver \n**************************************************************************** \nFunction WebCamVersion&#40;nDriver&#41; \n  Local cName, cVersion, nLen&#58;=255 \n  DEFAULT nDriver&#58;=0 \n  IF nDriver&gt;0 \n    cName&#58;=space&#40;nLen&#41;; cVersion&#58;=space&#40;nLen&#41; \n    IF wCamGetDrvDesc&#40;nDriver-1, @cName, nLen, @cVersion, nLen&#41; \n      if chr&#40;0&#41;$cVersion \n        cVersion&#58;=Left&#40;cVersion,At&#40;chr&#40;0&#41;,cVersion&#41;-1&#41; \n      endif \n    ELSE \n      cVersion&#58;=nil \n    ENDIF \n  ENDIF \nreturn cVersion \n**************************************************************************** \nDLL32 STATIC FUNCTION wCamGetDrvDesc; \n       &#40;nDriver AS _INT,; \n        cName AS STRING,; \n        nName AS LONG,; \n        cVersion AS STRING,; \n        nVersion AS LONG&#41; AS BOOL PASCAL; \n  FROM &quot;capGetDriverDescriptionA&quot; LIB &quot;avicap32&#46;dll&quot;      \n\n************************************************************************ \nDLL32 STATIC FUNCTION wCamCreaWnd; \n     &#40;cTitle AS STRING,; \n      nStyle AS LONG,; \n      x AS LONG, y AS LONG, nWidth AS LONG, nHeight AS LONG,; \n      hWndParent AS LONG, nID AS LONG&#41; AS LONG PASCAL; \n      FROM &quot;capCreateCaptureWindowA&quot; LIB &quot;avicap32&#46;dll&quot; \n************************************************************************ \n\n[/code:2j6d5qlr]','',0,'AIA=','2j6d5qlr',1,0,'',49,0,0),(29148,3054,4,49,0,'62.13.172.67',1175297549,1,0,1,1,1,1,'','','have nothing for create a photo from webcam for fw and xharbour ?','',0,'AIA=','2rh3rblb',1,0,'',49,0,0),(29149,6529,6,661,0,'189.155.36.46',1175299529,1,0,1,1,1,0,'','','que tal rafael, se que esto declara muchas variables publicas pero no encontre otra forma, cualquier sugerencia bienvenida; mira yo lo resolvi asi:\n\npublic wcampo1,wcampo2,wcampo3...\n\nfor j = 1 to 30\n    wvar := \'wcampo\'+trim(str(j,2))     //WVAR no tiene declaracion previa\n    @ ren  ,col get aGets[j] VAR &amp;wvar OF ODlg PIXEL SIZE 40,10 \nnext  n','',0,'','1o3z2g97',1,0,'',661,0,0),(29150,6531,3,80,0,'202.72.164.124',1175300563,1,0,1,1,1,0,'','Refresh Browse','Patrick\n\nI use a scope for the related records - and on the bChange clear the \nscope and set another scope for the next set records and if no records match then I hide the browse oLbx:Hide().\n\nColin','',0,'','3p7klfm5',1,0,'',80,0,0),(29151,6485,6,95,0,'189.171.38.225',1175303986,1,0,1,1,1,0,'','','Antonio\n\nTengo programa llamado init_var.prg en el cual utilizo funciones como curdir(), Fclose(), fCreate(), etc,etc.\nPues bien, lo compile y genera una lib en base a dicho programa y me genero bien mi lib.\n\nAhora realizo mis test con otro programa y mando llamar una funcion q esta en la lib ( Puse la lib en el build.sh ) y me mana lo siguiente:\n\n/usr/bin/ld: Undefined symbol\n_HB_FUN_CURDIR\n_HB_FUN_FCLOSE\n_HB_FUN_FCREATE\n\n...\n\nY Al final me manda un :\n\n./build.sh: Line 39: ./system01.app/Contents/MacOS/system01: No such file or director.\n\nMi pregunta es como puedo generar mi lib, para q me incluya esas funciones que son parte de harbour ? odonde se incluyen estas ?\n\nSaludos\nOsvaldo Ramirez','',0,'','8jbpsls0',1,0,'',95,0,0),(29152,6531,3,996,0,'70.58.66.18',1175304030,1,0,1,0,1,0,'','','Thanks Colin that certainly works, but if the user is scrolling though records in the parent table, it creates a flashing effect as the child browse is refreshed and changes to grey with no grid lines for those parent records for which no related records exist in the child table.  I\'ll use that for now, but eventually I\'d like to find a way to keep the column titles and grid lines, just have no data showing when there are no related records.\n\n:Hide is another TXBrowse() method that I don\'t see in the TXBrowse class definition in the FiveWin documentation, so I\'m sure glad you guys know about it.  Hopefully the FiveWin .chm files will be updated again soon.  \n\n-Patrick','',0,'','1q5dxero',1,0,'',996,0,0),(29153,6539,3,69,0,'74.13.54.152',1175304512,1,0,1,1,1,0,'','Save Window contents to BMP','Hi Everybody,\n\nI need to save the contents of a window to a bmp file.\n\nI tried oWnd:SaveToBmp( cFile )  but it also copies the boarder.\n\nIs there any function to copy only what is inside the window?\n\n\nThanks,\nJeff','',0,'','kplgtf7i',1,0,'',69,0,0),(29156,6542,6,376,0,'190.42.35.70',1175305610,1,0,1,1,1,1,'','FWH+xharbour+pellesc','Actualmente utilizo FWH+BCC55+xharbour pero... he visto en algunos post del foro que otros utilizan FWH+PellesC+xHarbour... ¿puede alguìen decirme si tuvieron necesidad de reconstruir el FWH con PellesC o no es necesario?. \n\nEn el caso de xHarbour existe uno para PellesC... ¿Es necesario o no que también se compatibilice con FWH?\n\nAgradecido la orientación por adelantado...','',0,'GA==','pk225ck3',1,0,'',376,0,0),(29157,6543,3,69,0,'74.13.54.152',1175305785,1,0,1,1,1,0,'','Assign a button control to arrow key','Hi Everybody,\n\nIs there a way to assign the function of a button to an arrow key so when the user uses the left or right arrow key it functions as if they clicked a button?\n\n\nThanks,\n\nJeff','',0,'GA==','22mhnjpi',1,0,'',69,0,0),(29158,6544,3,973,0,'76.167.246.250',1175307014,1,0,1,1,1,0,'','Using Tvideo','Hi,\n\nI have a video object that is created when the application activates. At some point I need to use the public video object to play different files. I was able to make it play (using video_object:playfull()) , but only when it is the first time. It won\'t play again using the same file. I tried resetting the video position using video_object:position():=0 before calling the :play() method but it gives me an error. Or how can you make  it play again using a different file without recreating the video object?\n\nThanks\nBert','',0,'GA==','1pzg7fmo',1,0,'',973,0,0),(29159,6544,3,973,0,'76.167.246.250',1175307796,1,0,1,1,1,0,'','','Addendum:\n\nI can play again when using :play(nFrom,nTo) by specifying the nFrom and nTo parameters, but I don\'t know how to play again using <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->layFull().\n\nBert','',0,'GA==','3hisa2gj',1,0,'',973,0,0),(29160,6544,3,267,0,'201.9.138.60',1175309016,1,0,1,1,1,1,'','','Hi Bert,\n\nAfter very suffering, I gave up to use this class! One hour it touches the video, another one not.\n\nThe best solution that I found to touch videos was with the example media.prg that it uses activex to interact with windows.media.player.','',0,'GA==','354iep31',1,0,'',267,0,0),(29161,6544,3,973,0,'76.167.246.250',1175311326,1,0,1,1,1,0,'','','Thanks,\n\nI\'ll give it a try. Will it give me some control of the media player, like checking the OnClick method to check if the user clicked the Video? Do I have a way of knowing if the file being played is done so I can play the next file?\n\nBert','',0,'GA==','2m749oxg',1,0,'',973,0,0),(29162,6528,3,63,0,'88.11.31.105',1175326402,1,0,1,1,1,0,'','','Enrico:\nWorked beautifully! Once more, thanks!\nRafael','',0,'GA==','2bwc83gz',1,0,'',63,0,0),(29163,6529,6,63,0,'88.11.31.105',1175326740,1,0,1,1,1,0,'','','Alex:\nEnrico, en el Forum en inglés, me ha dado una solución muy elegante que funciona perfecto y no consume variables públicas.  La tienes en : \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=29111#29111\">http://fivetechsoft.com/forums/viewtopi ... 9111#29111</a><!-- m -->\n\nGracias y un saludo,\nRafael','',0,'GA==','2dfj1hkn',1,0,'',63,0,0),(29164,6533,3,2,0,'87.218.146.189',1175330629,1,0,1,1,1,1,'','','Well, in fact that syntax is available in FWH 7.01 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, so now the sample looks this way:\n[code:f836olql]\n// Using several ActiveX simultaneously\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX1, oActiveX2\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin multiple ActiveX support&quot;\n\n   @ 10, 10 ACTIVEX oActiveX1 PROGID &quot;Shell&#46;Explorer&quot; OF oWnd SIZE 220, 220\n\n   oActiveX1&#58;Do&#40; &quot;GoHome&quot; &#41;\n\n   @ 10, 240 ACTIVEX oActiveX2 PROGID &quot;MediaPlayer&#46;MediaPlayer&#46;1&quot; OF oWnd SIZE 220, 220\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:f836olql]','',0,'AIA=','f836olql',1,0,'',2,0,0),(29165,6534,6,2,0,'87.218.146.189',1175330754,1,0,1,1,1,1,'','','Es el Windows Vista x64 Ultimate <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAqui está el ejemplo nuevamente, usando los comandos de ActiveX&#058;\n[code:1azr046g]\n// Using several ActiveX simultaneously\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX1, oActiveX2\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin multiple ActiveX support&quot;\n\n   @ 10, 10 ACTIVEX oActiveX1 PROGID &quot;Shell&#46;Explorer&quot; OF oWnd SIZE 220, 220\n\n   oActiveX1&#58;Do&#40; &quot;GoHome&quot; &#41;\n\n   @ 10, 240 ACTIVEX oActiveX2 PROGID &quot;MediaPlayer&#46;MediaPlayer&#46;1&quot; OF oWnd SIZE 220, 220\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:1azr046g]','',0,'AIA=','1azr046g',1,0,'',2,0,0),(29166,6542,6,180,0,'83.54.12.40',1175331753,1,0,1,1,1,0,'','Re: FWH+xharbour+pellesc','Hola Armando, yo utilizo FWH+BCC55+xharbour  y además PellesC para los recursos, para construir una DLL de 32 bit o un archivo RC. Desconozco que PellesC tenga otra utilidad que esa.\n\nUn saludo, \nManuel\n\n[quote=&quot;Armando Picon&quot;:2b7rgdol]Actualmente utilizo FWH+BCC55+xharbour pero... he visto en algunos post del foro que otros utilizan FWH+PellesC+xHarbour... ¿puede alguìen decirme si tuvieron necesidad de reconstruir el FWH con PellesC o no es necesario?. \n\nEn el caso de xHarbour existe uno para PellesC... ¿Es necesario o no que también se compatibilice con FWH?\n\nAgradecido la orientación por adelantado...[/quote:2b7rgdol]','',0,'gA==','2b7rgdol',1,0,'',180,0,0),(29167,6539,3,2,0,'87.218.146.189',1175331801,1,0,1,1,1,1,'','','Jeff,\n\nClass TWindow Method SaveToBmp() calls the function WndBitmap().\n\nIf you modify WndBitmap() to call GetDC() instead of GetWindowDC(), then it will just save the window contents, without the caption and borders.\n\nWe could modify Method SaveToBmp() adding a new parameter:\n\nMethod SaveToBmp( cBmpFile, lBorder ) where lBorder may be .T. by default','',0,'gA==','3h69emja',1,0,'',2,0,0),(29168,6544,3,2,0,'87.218.146.189',1175332187,1,0,1,1,1,1,'','','Bert,\n\nThe samples\\media.prg shows how to manage the activex events. That may be usefull for your purpouse','',0,'gA==','roq14l2j',1,0,'',2,0,0),(29169,6542,6,2,0,'87.218.146.189',1175332785,1,0,1,1,1,1,'','','Armando,\n\nCuando hablamos de PellesC, nos referimos a él para manejar los recursos.\n\nNo existe una versión de FWH para el compilador de C de Pelles. Lo que ocurre es que FWH compilado para Microsoft C, es compatible con Pelles C (que es el compilador que usa xHB.com)','',0,'gA==','1wtsqdey',1,0,'',2,0,0),(29170,6485,6,2,0,'87.218.146.189',1175334017,1,0,1,1,1,1,'','','Osvaldo,\n\nPosiblemente tengas que enlazar tu librería antes de las de Harbour. \n\nNo la pongas la última. Ponla despues de las de FiveMac y antes de las de harbour','',0,'gA==','2m9tw5sm',1,0,'',2,0,0),(29171,6531,3,2,0,'87.218.146.189',1175334210,1,0,1,1,1,1,'','','Patrick,\n\nClass TXBrowse inherits from Class TControl which inherits from Class TWindow. So there are DATAs and Methods that you don\'t see in Class TXBrowse source code as they are declared in those parent classes, i.e. Hide()\n\nThe docs are quite updated <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','13zq5qnz',1,0,'',2,0,0),(29172,6543,3,2,0,'87.218.146.189',1175334361,1,0,1,1,1,1,'','','Jeff,\n\nIf the button has the focus, then you may use oBtn:bKeyChar or oBtn:bKeyDown to detect those keystrokes and fire the button action','',0,'gA==','3ohszenx',1,0,'',2,0,0),(29173,6488,6,2,0,'87.218.146.189',1175334559,1,0,1,1,1,1,'','','Miguel,\n\nMuestranos tu PRG para que podamos construirlo y asi ayudarte','',0,'gA==','2z5i2rbg',1,0,'',2,0,0),(29174,6538,6,2,0,'87.218.146.189',1175334713,1,0,1,1,1,1,'','','John,\n\nSi la DBF no tiene registros entonces no se verán las líneas, pero las columnas deben verse','',0,'gA==','mte3hsn4',1,0,'',2,0,0),(29175,6447,20,6,0,'87.10.1.224',1175334875,1,0,1,1,1,1,'','','No, non ho una webcam, mi dispiace.\n\nEMG','',0,'gA==','125o9g24',1,0,'',6,0,0),(29176,6536,6,2,0,'87.218.146.189',1175335436,1,0,1,1,1,1,'','','Adolfo,\n\nVamos a preparar uno basado en el \"ojo\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi alguien de este foro tiene capacidades artísticas y quiere ayudar, bienvenida sea la ayuda <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2u0fzvke',1,0,'',2,0,0),(29177,6535,6,2,0,'87.218.146.189',1175335562,1,0,1,1,1,1,'','','Juan,\n\nRevisa el ejemplo samples\\win32.prg y verás que la barra puede llegar hasta el final','',0,'gA==','2bvrsd73',1,0,'',2,0,0),(29178,6532,2,2,0,'87.218.146.189',1175340775,1,0,1,1,1,1,'','','Jairo,\n\noBrowse:lAutoEdit = .T.\n\ny haciendo doble click en una celda entras en modo edicción automáticamente','',0,'gA==','s73eji7s',1,0,'',2,0,0),(29179,6451,2,375,0,'84.122.112.8',1175344127,1,0,1,1,1,1,'','','Yo también utilizo el DBF de toda la vida. Un taller aun utiliza un programa mio que le regalé en 1995 sin haber borrado un sólo registro (ordenes de trabajo, albaranes y facturas) con DBF/NTX y sigue contento. Hace poco conseguí el Clipper 5.3b y me pasé a DBF/CDX. Y no lo hice antes porque no me hgizo falta tanta seguridad en los índices.','',0,'gA==','1u196iym',1,0,'',375,0,0),(29180,6532,2,890,0,'200.24.110.196',1175349333,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2k9xytdz]Jairo,\n\noBrowse:lAutoEdit = .T.\n\ny haciendo doble click en una celda entras en modo edicción automáticamente[/quote:2k9xytdz]\n\nAntonio\nDebo entender que coloco :lAutoEdit = .T. frente a la variable oBrowse?\nPues me da error al compilar.\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','2k9xytdz',1,0,'',890,0,0),(29181,6545,6,785,0,'190.64.217.134',1175352476,1,0,1,1,1,0,'','Habia una vez un  control de errores...','Amigos:\n\nHabia un control de errores que tomaba una foto de la pantalla en el\nmomento del error y la guardaba, demas permitia enviar por\nmail el archivo.jpg y el .log.\n\nAlguien la esta usando?\n\nSeria posible compartirla.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','77qspa71',1,0,'',785,0,0),(29182,6480,6,496,0,'200.107.36.176',1175353463,1,0,1,1,1,0,'','','Marco, yo también te molesto... puedes enviármela por fis ?\n\n<!-- e --><a href=\"mailto:mjingo@hotmail.com\">mjingo@hotmail.com</a><!-- e -->\n\n\n\nMarcelo Jingo','',0,'gA==','2dwi6786',1,0,'',496,0,0),(29183,6546,6,937,0,'200.76.200.83',1175357954,1,0,1,1,1,0,'','Ejecutar una funcion aleatoriamente ?','Que tal a todos...\n\nLo unico que quiero hacer es ejecutar una funcion aleatoriamente, por ejemplo cada 2 horas....\n\nGracias...\nSalu2','',0,'gA==','18rlos36',1,0,'',937,0,0),(29184,6547,6,171,0,'71.232.193.197',1175358943,1,0,1,1,1,0,'','TExcel class - problema inconsistente al abrir fichero XLS-','Estoy usando la clase TExcel, muy buena por cierto, de Víctor Manuel Tomas Díaz [Vikthor]. \n\nEn *ALGUNAS OCASIONES* cuando ejecuto el programa, al momento de este tratar de abrir la tabla Excel, consigo el siguiente error:\n\n[code:1h9mhjpg]\nApplication\n===========\n   Path and name&#58; C&#58;\\_AML_SOFT\\sat1&#46;exe &#40;32 bits&#41;\n   Size&#58; 2,427,904 bytes\n   Time from start&#58; 0 hours 0 mins 16 secs\n   Error occurred at&#58; 03/31/2007, 11&#58;07&#58;07\n   Error description&#58; Error Excel&#46;Application&#58;WORKBOOKS/16389  E_FAIL&#58; OPEN\n   Args&#58;\n     &#91;   1&#93; = C   C&#58;\\34444 LA CASA MUSICAL\\Copy of TransactionsFile&#46;xls\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;OPEN&#40;0&#41;\n   Called from&#58; TEXCELS&#46;PRG =&gt; TEXCELSCRIPT&#58;OPEN&#40;299&#41;\n[/code:1h9mhjpg]\n\nAlguna sugerencia?\n\nSaludos\n\nGeorge','',0,'AIA=','1h9mhjpg',1,0,'',171,0,0),(29185,6531,3,996,0,'70.58.66.18',1175363296,1,0,1,0,1,0,'','','Antonio,\n\nActually my copy of the fwclass.chm file does not have a :Hide() method in the TControl class (the closest thing is a HideDots() method).  Also, the formatting of the fwclass.chm file seems very strange compared with the very nice and orderly formatting of the other help files such as fwfun.chm where Syntax, Returns, Comments, etc. are nicely separated.  So I\'m wondering if my copy of fwclass.chm might possible be damaged.  I\'m attaching an image of how it looks on my screen.\n\n[img:k80piv8q]http&#58;//www&#46;donorquest&#46;com/downloads/fwclass&#46;jpg[/img:k80piv8q][/img]','',0,'CA==','k80piv8q',1,0,'',996,0,0),(29186,6531,3,6,0,'87.10.1.224',1175363498,1,0,1,1,1,1,'','','From TWindow docs:\n\n[quote:3nyskyix]Hide   Hide window Syntax: TWindow:Hide() \\\\ Purpose: Hides the window, and brings another one to the top.[/quote:3nyskyix]\n\nEMG','',0,'gA==','3nyskyix',1,0,'',6,0,0),(29187,6531,3,996,0,'70.58.66.18',1175365680,1,0,1,0,1,0,'','','Hey Enrico,\n\nWhat\'s the actual name of the file that\'s in?  Maybe I\'m missing something.  The chm files I have are:\n\n Directory of C:\\FWH\\MANUAL\n\n11/02/2003  06:41 AM           567,167 fivewin.chm\n03/02/2006  08:57 AM           522,563 fwclass.chm\n02/03/2005  10:32 AM           185,193 fwcmd.chm\n03/02/2006  09:03 AM         1,008,766 fwfun.chm\n\nThe hlp files I have are are quite old, so I thought the chm files are complete replacements for them.  But the ones I have are:\n\n Directory of C:\\FWH\\MANUAL\n\n12/19/2001  12:14 PM            55,293 fiveodbc.hlp\n11/19/2002  07:14 PM           345,862 fwclass.hlp\n11/19/2002  07:27 PM           269,883 fwcmd.hlp\n11/19/2002  07:02 PM           616,700 fwfun.hlp\n07/04/2001  06:45 PM           213,338 fwprog.hlp\n\nThanks - Patrick','',0,'gA==','231yb4st',1,0,'',996,0,0),(29188,6531,3,6,0,'87.10.1.224',1175366482,1,0,1,1,1,1,'','','It is in fwclass.chm. It wont\'s come up with a search but it is there.\n\nEMG','',0,'gA==','28lh7rgt',1,0,'',6,0,0),(29189,6543,3,69,0,'74.13.37.86',1175372130,1,0,1,1,1,0,'','','Antonio,\n\nActually I have 4 buttons that I would like to give the user the option to either click a button or an arrow key.\n\nEx.  Left Arrow   = BUTTON1\n      Right Arrow = BUTTON2\n      Up Arrow     = BUTTON3\n      Down Arrow = BUTTON4\n\n\nJeff','',0,'gA==','62xi3mj1',1,0,'',69,0,0),(29190,6543,3,2,0,'87.218.146.189',1175374024,1,0,1,1,1,1,'','','Jeff,\n\nWhich control has the focus ? The keystrokes will go to the focused control\n\nAny of the buttons ? Or other control ?','',0,'gA==','3stlas0x',1,0,'',2,0,0),(29191,6539,3,69,0,'74.13.37.86',1175374227,1,0,1,1,1,0,'','','Thanks Antonio.\n\nWhat is the correct procedure to recompile the WndPrint.c file so I can link it into my app?\n\n\nThanks,\nJeff\n\n(xHarb, FWH, Borland complier)','',0,'gA==','2zq0ugal',1,0,'',69,0,0),(29192,6539,3,2,0,'87.218.146.189',1175375011,1,0,1,1,1,1,'','','Jeff,\n\nFirst call tools\\clp2harb.exe module.c modified.c\n\nthen\n\nbcc32 -c -Ic:\\harbour\\include;c:\\fwh\\include -D__HARBOUR__ -D__FLAT__ modified.c\n\nthat will provide you a modified.obj','',0,'gA==','30mwv82b',1,0,'',2,0,0),(29193,6543,3,69,0,'74.13.37.86',1175375476,1,0,1,1,1,0,'','','The area where the buttons are has the focus.\n\nJeff','',0,'gA==','3b5bgvol',1,0,'',69,0,0),(29194,6543,3,2,0,'87.218.146.189',1175375704,1,0,1,1,1,1,'','','Is that area a dialogbox ? a window ?','',0,'gA==','3hi6t6sk',1,0,'',2,0,0),(29195,6548,3,148,0,'196.205.179.216',1175376025,1,0,1,1,1,0,'','sample error &quot;alaska2.prg&quot;','I recompiler alaska2.prg and those errors are produced after adding the line :\n#include \"fivewin.ch\"\n\nCompiling...\nHarbour Alpha build 1.0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'alaska2.prg\' and generating preprocessed output to \'alaska2.ppo\'...\nalaska2.prg(16) Error E0030  Syntax error: \"syntax error at \'METHOD\'\"\nalaska2.prg(16) Warning W0001  Ambiguous reference: \'SELF\'\n1 error\n\nNo code generated\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nError E2194: Could not find file \'alaska2.c\'\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'ALASKA2.OBJ\'\n* There are errors\n\nE:\\COMPILER\\clipper\\FWH\\SAMPLES&gt;','',0,'gA==','2blpgrq2',1,0,'',148,0,0),(29196,6549,3,148,0,'196.205.179.216',1175376110,1,0,1,1,1,0,'','hotpick in fivewin','How can I hotpick in getting a value from field in a get class.','',0,'gA==','1rvbgwey',1,0,'',148,0,0),(29197,6543,3,69,0,'74.13.37.86',1175386255,1,0,1,1,1,0,'','','Sorry,  I guess I should have mentioned that.\n\nIt\'s a Window.\n\n\nI\'ve tried:\n\n    SETKEY( K_UP,    { || MsgInfo( \"UP pressed\" ) } )\n    SETKEY( K_DOWN,  { || MsgInfo( \"DOWN pressed\" ) } ) \n    SETKEY( K_LEFT,  { || MsgInfo( \"LEFT pressed\" ) } )\n    SETKEY( K_RIGHT, { || MsgInfo( \"RIGHT pressed\" ) } ) \n\nBut with no luck ... basically nothing happens.  (inkey.ch is in my code)\n\n\nJeff','',0,'gA==','qvkk6aaz',1,0,'',69,0,0),(29198,6539,3,69,0,'74.13.37.86',1175387122,1,0,1,1,1,0,'','','Ok,  I\'m almost there.\n\nI have modified the wndprint.c file and most of the window border is gone.\n\nThere is still the Bottom and Right part of the window being copied.\n\nIs there something I can change to remove these?','',0,'gA==','3nthpp0b',1,0,'',69,0,0),(29199,6539,3,69,0,'74.13.37.86',1175387962,1,0,1,1,1,0,'','','OK ... I\'ve got it.\n\nI manipulated the value for rct.right and rct.bottom  (basically subtracted until I found the perfect number)\n\nAll borders are now gone.\n\n\nThanks for your help,\n\nJeff','',0,'gA==','1mldimdy',1,0,'',69,0,0),(29200,6550,6,73,0,'201.165.172.80',1175395253,1,0,1,1,1,0,'','dtpicker vacia...','Alguna forma de que el dtpicker me muestre la fecha vacia y poder yo seleccionarla, algo asi:\ndFec:=CTOD(\"\")\nRedefine dtpicker dFec .......\n\ntambien tengo un campo date y vacio si cargo la variable al dtpicker me muestra la fecha actual, como hacer que no ponga fecha?\nsalu2\npaco','',0,'gA==','38h3mnw0',1,0,'',73,0,0),(29201,6551,3,2,0,'87.218.146.189',1175405728,1,0,1,1,1,1,'','A Harbour view :-)','<!-- m --><a class=\"postlink\" href=\"http://img244.imageshack.us/img244/4475/picture2yw8.png\">http://img244.imageshack.us/img244/4475/picture2yw8.png</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://img225.imageshack.us/img225/7594/picture4rp2.png\">http://img225.imageshack.us/img225/7594/picture4rp2.png</a><!-- m -->','',0,'gA==','367xy5g3',1,0,'',2,0,0),(29202,6552,6,2,0,'87.218.146.189',1175405970,1,0,1,1,1,1,'','Una vista del puerto (Harbour) :-)','<!-- m --><a class=\"postlink\" href=\"http://img244.imageshack.us/img244/4475/picture2yw8.png\">http://img244.imageshack.us/img244/4475/picture2yw8.png</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://img225.imageshack.us/img225/7594/picture4rp2.png\">http://img225.imageshack.us/img225/7594/picture4rp2.png</a><!-- m -->','',0,'gA==','quvrqhv5',1,0,'',2,0,0),(29203,6539,3,2,0,'87.218.146.189',1175406365,1,0,1,1,1,1,'','','Jeff,\n\nVery good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2vmlk31v',1,0,'',2,0,0),(29204,6543,3,2,0,'87.218.146.189',1175406870,1,0,1,1,1,1,'','','Jeff,\n\nWhen a window or a dialogbox has several controls, one of them has the focus. So you should assign bKeyDown or bKeyChar to all of them:\n\noBtn1:bKeyChar = { | nKey | MsgInfo( nKey ) }\noBtn2:bKeyChar = { | nKey | MsgInfo( nKey ) }\noBtn3:bKeyChar = { | nKey | MsgInfo( nKey ) }\noBtn4:bKeyChar = { | nKey | MsgInfo( nKey ) }\n\nInstead of MsgInfo(), call a function where you check nKey and act accordingly','',0,'gA==','1bzbg4c7',1,0,'',2,0,0),(29205,6548,3,2,0,'87.218.146.189',1175407684,1,0,1,1,1,1,'','','Ehab,\n\nThats a specific sample for Alaska Xbase++ and FW++','',0,'gA==','dov7bhjg',1,0,'',2,0,0),(29206,6549,3,2,0,'87.218.146.189',1175407768,1,0,1,1,1,1,'','','Ehab,\n\nWhat do you mean for hotpick ? \n\nPlease post a sample or a screenshoot, thanks','',0,'gA==','351g6xmu',1,0,'',2,0,0),(29207,6532,2,2,0,'87.218.146.189',1175407908,1,0,1,1,1,1,'','','Jairo,\n\nPor favor muestra el PRG de como creas el listbox (browse)','',0,'gA==','3ii6ygdu',1,0,'',2,0,0),(29208,6546,6,2,0,'87.218.146.189',1175408023,1,0,1,1,1,1,'','','Alex,\n\nUsa un timer.\n\nBusca en este foro ejemplos de como usar un timer para intervalos grandes de tiempo','',0,'gA==','3gs82jzn',1,0,'',2,0,0),(29210,6485,6,95,0,'189.155.151.98',1175408440,1,0,1,1,1,0,'','','Antonio\n\nLo de la lib hay la llevo, pues he creado ya una lib y la enlaza sin ningun problema\n\nAhora, tienes timers ?\nPues puse algo asi DEFINE TIMER ...\nPero me marca error de syntaxis, y vi el fivemac.ch y no esta.\n\nQue uso para en lugar de timers, que lo que quiero es que mi app, corra difeentes procesos en base a la hora.\n\nAhora dime, que has visto de los errores al mover una app de su folder de creacion inicia ?, tal ves usando chmod ?\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','2qsw9f0o',1,0,'',95,0,0),(29211,6550,6,2,0,'87.218.146.189',1175408803,1,0,1,1,1,1,'','','Paco,\n\nParece que no hay manera. Aunque se haga:\n\nSetDatePick( oDTP:hWnd, 0, 0, 0 )\n\nmuestra la fecha actual','',0,'gA==','2bkchvo9',1,0,'',2,0,0),(29212,6485,6,2,0,'87.218.146.189',1175409115,1,0,1,1,1,1,'','','Osvaldo,\n\nA ver si tenemos terminados los timers cuanto antes.\n\nEn cuanto a mover la aplicación, posiblemente depende de los privilegios que tengas como usuario. Prueba a acceder como root (administrador) y podrás hacer lo que quieras <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPuedes activar el root desde Applications/Utilities/NetInfo Manager y luego cambias de usuario e inicias como root y la contraseña que le hayas asignado','',0,'gA==','2ghddhzn',1,0,'',2,0,0),(29213,6485,6,2,0,'87.218.146.189',1175419077,1,0,1,1,1,1,'','','Osvaldo,\n\nYa está terminado el soporte de Timers en FiveMac.\n\nHay un nuevo build listo para descargar. La sintaxis es exactamente la misma que en FiveWin, de hecho el ejemplo samples/TestTime.prg es el mismo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','gl5krgnt',1,0,'',2,0,0),(29214,6553,3,810,0,'89.12.45.157',1175427682,1,0,1,1,1,0,'','Looks like a nice tool','<!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/download.php?id=xDevStudio\">http://www.sqllib.com.br/download.php?id=xDevStudio</a><!-- m -->','',0,'gA==','1vyrbeoz',1,0,'',810,0,0),(29215,6543,3,69,0,'74.13.37.86',1175429214,1,0,1,1,1,0,'','','Antonio,\n\nIt seems to work with all the keys except the arrow keys  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nWhen I press an arrow key the focus moves to the next control.\n\n\nJeff','',0,'gA==','1qrzrb4q',1,0,'',69,0,0),(29216,6451,2,124,0,'190.31.23.123',1175431407,1,0,1,1,1,0,'','','Manu y Armando:\n\nMil gracias.\n\nUn abrazo.','',0,'gA==','2dj5pssw',1,0,'',124,0,0),(29217,5394,19,439,0,'200.125.38.90',1175437980,1,0,1,1,1,1,'','Re: Alternative site to hyperupload','[quote=&quot;hua&quot;:1vitdor8]Anyone has any recommendation to a free, easy to use upload site similar to hyperupload? Though simple to use, hyperupload has the annoyance of having a max file size of 10Mb only. \n\nAt <!-- w --><a class=\"postlink\" href=\"http://www.uploading.com\">www.uploading.com</a><!-- w --> I frequently get this annoying message when I attempt to download:\n[color=red:1vitdor8][b:1vitdor8]\nAll download slots assigned to your country ([i:1vitdor8]Country[/i:1vitdor8]) are in use. We apologize for the inconvenience. \nPlease try again later.[/b:1vitdor8][/color:1vitdor8][/quote:1vitdor8]\n\nI use <!-- w --><a class=\"postlink\" href=\"http://www.mediafire.com\">www.mediafire.com</a><!-- w -->, It has not wait messages and works very well for me.','',0,'4g==','1vitdor8',1,0,'',439,0,0),(29218,6554,3,810,0,'89.12.45.157',1175438988,1,0,1,1,1,0,'','fill fields in Internet explorer','In Vb u can fill fields \n\nlike\n\n  On Error Goto ErrHandler\n  With WebBrowser1.Document.Forms(0)\n    \' Eingabefelder ausfüllen\n    .elements(\"username\").Value = \"Ihr Benutzername\"\n    .elements(\"password\").Value = \"Ihr Kennwort\"\n\n    \' Formular abschicken\n    .Submit\n  End With\n  On Error Goto 0\n  Exit Sub','',0,'4g==','n2kf9it8',1,0,'',810,0,0),(29219,6488,6,207,0,'189.158.95.180',1175439067,1,0,1,1,1,0,'','','#define _OBJECTS_CH\n#define _VIDEO_CH\n#define _DDE_CH\n#define _ODBC_CH\n#define _DLL_CH\n#define _TREE_CH\n\n#include \"Fivewin.ch\"\n#include \"TSBrowse.ch\"\n#Include \"TDBFDBF.CH\"\n#ifdef __HARBOUR__\n        #INCLUDE \"ADS.CH\"\n        REQUEST ADS\n        REQUEST AdsKeyNo\n        REQUEST AdsKeyCount\n        REQUEST AdsGetRelKeyPos\n        REQUEST AdsSetRelKeyPos\n#endif\n\n\n#define CLR_PINK   nRgb(200,225,245)         //nRGB( 255, 128, 128)\n#define CLR_NBLUE  nRGB(200,255,200)         //nRGB( 128, 128, 192)\n\n//Graficas\n#define GRAPH_TYPE_BAR   1\n#define GRAPH_TYPE_LINE  2\n#define GRAPH_TYPE_POINT 3\n#define GRAPH_TYPE_ALL   4\n\nstatic oWnd, lInit\nMEMVAR cEmpresa, nEmpresa, oBmpLogo, oBmp, cFntW, cBmp, cFont\n\n//----------------------------------------------------------------------------//\n\nfunction cachaza()\n    local oBar, oBrush, oIcon, oTimer, oIni\n    //local cFileMp3 := \"f:\\campo\\bas\\LunaFies.mp3\"\n    LOCAL cBmpFondo := \"\"\n    local cFileMp3 := \"\"\n\n    PUBLIC cEmpresa, nEmpresa, oBmp, cFntW, cFont, cBmp\n\n    SET 3DLOOK  ON\n    SET CENTURY On\n    SET DATE    TO FRENCH\n    SET EPOCH   TO 1999\n    lInit := .T.\n/*    INI oIni FILE \".\\TABHRA.ini\"\n\n      GET cEmpresa SECTION \"EMPRESA\" ENTRY \"NomEmp\" OF oIni\n      GET nEmpresa SECTION \"EMPRESA\" ENTRY \"NumEmp\" OF oIni\n      GET cFont    SECTION \"EMPRESA\" ENTRY \"fuente\" OF oIni DEFAULT \"Arial\"\n      GET cFntW    SECTION \"EMPRESA\" ENTRY \"hFont\"  OF oIni\n\n     ENDINI\n*/\n    //SetHandleCount( 99 )\n    DbfCdx()\n//    DEFINE BRUSH oBrush FILE \".\\INGFAGSA.bmp\"\n\n    cEmpresa := \"Fagsa\"\n    nEmpresa := 1\n    cFont := \"Arial\"\n    cFtntW :=\"\"\n    DEFINE ICON oIcon NAME \"Truck\"\n\n    DEFINE WINDOW oWnd MDI ; //FROM 4,10  TO (MaxRow()-4), (MaxCol()-10) ;\n           MENU gMenu() ;\n           TITLE \"Salida de cachaza por Horas  \" ;\n           ICON oIcon\n\n        DEFINE BUTTONBAR oBar OF oWnd 3D\n        DEFINE BUTTON NAME \"tabla\"  NOBORDER OF oBar ;\n               ACTION (   CachazaXHora() );\n               TOOLTIP \"Cachaza por horas\"\n\n        SET MESSAGE OF oWnd ;\n            TO \"Fomento Azucarero del Golfo, S.A. de C.V.   Pánuco, Veracruz, México,  <!-- w --><a class=\"postlink\" href=\"http://www.ifagsa.com.mx\">www.ifagsa.com.mx</a><!-- w -->\" ;\n            CENTERED DATE TIME KEYBOARD\n\n\n        oWnd:bPainted := { |hDc| DrawBmp( hDc , oWnd , cBmpFondo ) }\n\n        ACTIVATE WINDOW oWnd maximized //;\n//        on init CachazaXHora()\n\n\n\n\nreturn( nil )\n\n//----------------------------------------------------------------------------//\n\nstatic function gMenu()\n\n    local oMenu\n\n    MENU oMenu\n       MENUITEM \"&amp;Consultas\"\n       MENU\n          MENUITEM \"&amp;Cachaza por hora...\" ;\n                    ACTION CachazaXHora()\n          SEPARATOR\n          MENUITEM \"&amp;Salir\"  ACTION oWnd:End()\n       ENDMENU\n       *\n       MENUITEM \"&amp;Ventanas\"\n       MENU\n            MENUITEM \"&amp;Titulo Vertical\"     ACTION oWnd:Tile() ;\n                WHEN Len( oWnd:oWndClient:aWnd ) &gt; 0\n            MENUITEM \"&amp;Titulo Horizontal\"   ACTION oWnd:Tile( .t. ) ;\n                WHEN Len( oWnd:oWndClient:aWnd ) &gt; 0\n            MENUITEM \"&amp;Cascada\"             ACTION oWnd:Cascade() ;\n                WHEN Len( oWnd:oWndClient:aWnd ) &gt; 0\n            MENUITEM \"&amp;Siguiente ventana\" + Chr( 9 ) + \"Ctrl+F6\" ;\n                                            ACTION oWnd:NextWindow() ;\n                WHEN Len( oWnd:oWndClient:aWnd ) &gt; 1\n        SEPARATOR\n            MENUITEM \"&amp;Alinea Iconos\"       ACTION oWnd:ArrangeIcons() ;\n                WHEN Len( oWnd:oWndClient:aWnd ) &gt; 0\n\n            MENUITEM \"&amp;Iconiza Todo\"        ACTION oWnd:IconizeAll() ;\n                WHEN Len( oWnd:oWndClient:aWnd ) &gt; 0\n\n            MENUITEM \"C&amp;ierra Todo\"         ACTION oWnd:CloseAll() ;\n                WHEN Len( oWnd:oWndClient:aWnd ) &gt; 0\n        ENDMENU\n\n        oMenu:AddHelp( \"FAGSA\", \"JLAS\" )\n\n    ENDMENU\n\nreturn( oMenu )\n\n//-------------------------------------------------------------------------------//\n\nSTATIC FUNCTION Refr_Wnd( hDC )\n\n   LOCAL hWnd, nColor := 255\n   LOCAL aRect, nSteps\n   LOCAL oBrush, nI\n\n   LOCAL  aCoor\n\n   IF lInit\n      aCoor := GetCoors(GetDeskTopWindow()) // Coordenadas de ventana\n      IF aCoor[ 3 ] &gt;= 768                    // si &gt; 600x800 la centra\n         aCoor[ 1 ] := ( aCoor[ 3 ] - 580 ) / 2\n         aCoor[ 2 ] := ( aCoor[ 4 ] - 800 ) / 2\n         aCoor[ 3 ] := 580\n         aCoor[ 4 ] := 800\n         oWnd:Move( aCoor[ 1 ], aCoor[ 2 ], aCoor[ 4 ], aCoor[ 3 ] )\n      ELSE\n         oWnd:Maximize()\n      ENDIF\n      lInit:=.F.\n   ENDIF\n\n   hWnd  := oWnd:hWnd\n   aRect := GetClientRect( hWnd )\n   nSteps:=( aRect[ 3 ] - aRect[ 1 ] ) / 3\n\n   aRect[ 3 ] := 0\n   FOR nI := 1 to nSteps\n      aRect[ 3 ] += 3\n      DEFINE BRUSH oBrush COLOR RGB( nColor, nColor, nColor )\n      FillRect( hDC, aRect, oBrush:hBrush )\n      RELEASE BRUSH oBrush\n      aRect[ 1 ] += 3\n      nColor -= 1\n   NEXT nI\n\n   SetBkMode( hDC, 1 )\n   SetTextColor( hDC, CLR_WHITE )\n   DrawText(hDC, \"© Miguel Salas\",{oWnd:nHeight - 105, oWnd:nWidth - 135, oWnd:nHeight - 10, oWnd:nWidth - 10 } )\n\nRETURN (NIL)\n\n//----------------------------------------------------------------------------//\n\nfunction CachazaXHora()\n\n    local oWndChild, oBar, oLbx, oACachaza\n    local bData, oBtn, oGet, oFont, bcolor,    ;\n          oFont1, oIco\n    //Local aBrush := Array(2)\n    LOCAL aArr := {}\n    LOCAL nTot := ARRAY(10)\n    LOCAL nAcumAnt[ 1 ]\n    LOCAL nPromedio := 0, dFecha1\n    LOCAL nTonSem[ 1 ]\n\n\n    DATABASE NEW oACachaza FILE \".\\dat\\acachaza.DBF\" SHARED via \"DBFCDX\" ;\n        INDEX aCachaza.CDX\n\n    oACachaza:lBuffer := .T.\n    oACachaza:Setorder(1)\n\n    IF oACachaza:LASTREC() == 0\n        MsgInfo(\"Tabla vacia\" + CRLF + \"No hay nada que mostrar\")\n        oACachaza:End()\n        return nil\n    ENDIF\n\n    oACachaza:last()\n\n    dFecha1 := oACachaza:AH_fecha\n\n//    CursorWait()\n\n   DEFINE FONT oFont1 NAME \"MS Sans Serif\" SIZE 0, -12\n   DEFINE ICON oIco NAME  \"alert.ico\"\n\n   DEFINE WINDOW oWndChild MDIchild ;\n           OF oWnd\n\n      DEFINE BUTTONBAR oBar OF oWndChild  3D\n\n            DEFINE BUTTON NAME \"Primero\"        ;\n                NOBORDER OF oBar TOOLTIP \"Inicio de Zafra\" ;\n                ACTION ( oACachaza:first(), dFecha1 := oACachaza:AH_fecha, aArr := {},;\n                         CargaDatos( oACachaza, oLbx, aArr, nTot, nAcumAnt, dFecha1, @nPromedio, oWndChild, @nTonSem ) )\n\n            DEFINE BUTTON NAME \"Previo\"   ;\n                NOBORDER OF oBar TOOLTIP \"Dia Anterior\";\n                ACTION ( dFecha1--, aArr := {},;\n                         CargaDatos( oACachaza, oLbx, aArr, nTot, nAcumAnt, dFecha1, @nPromedio, oWndChild, @nTonSem) )\n\n\n            DEFINE BUTTON NAME \"Siguiente\"      ;\n                NOBORDER OF oBar TOOLTIP \"Siguiente Registro\";\n                ACTION  ( dFecha1++, aArr := {}, ;\n                          CargaDatos( oACachaza, oLbx, aArr, nTot, nAcumAnt,dFecha1, @nPromedio, oWndChild, @nTonSem) )\n\n            DEFINE BUTTON NAME \"Ultimo\"         ;\n                NOBORDER OF oBar TOOLTIP OemToAnsi( \"Ultimo Registro\" ) ;\n                ACTION ( oACachaza:LAST() , dFecha1 := oACachaza:AH_fecha, aArr := {}, ;\n                         CargaDatos( oACachaza, oLbx, aArr, nTot, nAcumAnt, dFecha1, @nPromedio, oWndChild, @nTonSem  ) )\n\n            DEFINE BUTTON NAME \"Buscar\"         ;\n                NOBORDER OF oBar TOOLTIP \"Busca una Fecha especifica\";\n                ACTION ( dFecha1 :=  msgdate(,\"Dia de Zafra\"), aArr := {}, ;\n                         CargaDatos( oACachaza, oLbx, aArr, nTot, nAcumAnt, dFecha1, @nPromedio, oWndChild, @nTonSem ) )\n\n            DEFINE BUTTON NAME \"Impresora\" GROUP     ;\n                NOBORDER OF oBar TOOLTIP \"Imprimir \";\n                ACTION oLbx:Report(\"Salida de Cachaza por hora\", .T.)\n\n            DEFINE BUTTON NAME \"Histogr\"           ;\n                NOBORDER OF oBar TOOLTIP \"Gráfica de la entrada por horas\";\n                ACTION msginfo( \"Hola\" ) //Graficar( aArr, dFecha1, nPromedio )\n\n            DEFINE BUTTON NAME \"Actualizar\" GROUP ;\n                NOBORDER OF oBar TOOLTIP \"Refresca datos\";\n                ACTION aArr := {},;\n                       CargaDatos( oACachaza, oLbx, aArr, nTot, nAcumAnt, dFecha1, @nPromedio, oWndChild, @nTonSem )\n\n            DEFINE BUTTON NAME \"Salir\" GROUP ;\n                NOBORDER OF oBar TOOLTIP \"Salir de esta pantalla\";\n                ACTION oWndChild:End()\n\n        @  00, 00 BROWSE oLbx ALIAS ARRAY OF oWndChild UPDATE\n\n        CargaDatos( oACachaza, oLbx,  aArr, nTot, nAcumAnt, dFecha1, @nPromedio, oWndChild, @nTonSem )\n\n        ? \"hola3\"\n\n        bColor := { || If( oLbx:nAt % 2 == 0, CLR_PINK, CLR_NBLUE ) }\n\n        oLbx:lCellbrw := .T.\n//        oLbx:SetColor( { 2, 4 }, { aBrush[1], aBrush[2] } )\n\n    oLbx:SetColor( { 1, 3, 5, 6, 13, 15 }, ;\n                      { CLR_BLUE, CLR_YELLOW, CLR_BLUE, ;\n                      { CLR_WHITE, CLR_HRED }, ; // degraded cursor background color\n                        CLR_WHITE, CLR_HRED } )  // text colors\n\n    oLbx:SetColor( { 2, 4, 14 }, ;\n                  { { CLR_WHITE, CLR_HBLUE }, ;   // degraded cells background color\n                  { CLR_HGRAY, CLR_BLACK }, ;     // degraded headers backgroud color\n                  { CLR_HRED, CLR_HGREEN } } )     // degraded order column background color\n\n\n   ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 1;\n       TITLE \"Dia\" ;\n       SIZE 70 ;\n       COLORS CLR_BLACK, bColor;   // background color from a Code Block\n       3DLOOK TRUE, TRUE, TRUE;    // cells, titles, footers\n       ALIGN DT_LEFT, DT_CENTER, DT_RIGHT ; // cells, title, footer\n       FOOTER { || \"Dia Anterior\" + CRLF +;\n                   \"Del dia\" + CRLF + ;\n                   \"A LA SEMANA\" + CRLF +;\n                   \"Dia Anterior\" + CRLF +;\n                   \"Del Dia\" + CRLF +;\n                   \"Total\" }\n\n   ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 2;\n       TITLE \"Hora\"  ;\n       ALIGN DT_CENTER, DT_CENTER;  // let\'s align cells to right and center title\n       SIZE 44 ;\n       COLORS CLR_BLACK, bColor ;           // background color from a Code Block\n       3DLOOK TRUE, TRUE, TRUE ;     // cells, titles, footers\n       FOOTER \"=\"\n\n   ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 3;\n       TITLE \"Bruto\"  ;\n       ALIGN DT_RIGHT, DT_CENTER;\n       SIZE 240 ;\n       COLORS CLR_BLACK, bColor;\n       3DLOOK TRUE, TRUE, TRUE;\n       FOOTER { || Transform( nTonsem[ 1 ],              \"#,###,###.###\" ) + CRLF +;   /* &gt;Dia Anterior */\n                   Transform( nTot[ 1 ],                    \"##,###.###\" ) + CRLF +;   /* Del dia */\n                   Transform( nTonsem[ 1 ] + nTot[ 1 ],    \"###,###.###\" ) + CRLF +;   /* A LA SEMANA */\n                   Transform( nAcumAnt[1],               \"#,###,###.###\" ) + CRLF +;   /* &gt;Dia Anterior */\n                   Transform( nTot[ 1 ],                    \"##,###.###\" ) + CRLF +;   /* Del Dia */\n                   Transform( nAcumAnt[ 1 ] + nTot[ 1 ], \"#,###,###.###\" ) }           /* &gt;Total */\n\n\n   ADD SUPER HEADER TO oLbx FROM COLUMN 3 TO COLUMN 3 ;\n       TITLE OemToAnsi(\"Toneladas de cachaza por horas\") 3DLOOK\n\n\n\n   oLbx:nHeightCell  += 6\n   oLbx:nHeightSuper += 7\n   oLbx:ChangeFont( oFont1,, 1)\n   //oLbx:SetColor( {3,4},{CLR_BLACK,CLR_HGRAY} )\n   oLbx:SetColor({9},{CLR_RED},)\n\n      // 3D text bas-relief in all headers\n      oLbx:Set3DText( .T., .T.,, 3 )\n\n      // 3D text raised in cells of column 2\n      //oLbx:Set3DText( .T., .T., 2, 1 )\n\n      // adjust the header height\n      oLbx:nHeightHead := 25\n\n      oWndChild:SetControl(oLbx)\n        ? \"hola4\"\n\n    ACTIVATE WINDOW oWndChild ;\n       VALID ( oLbx:End(), oFont1:End(), oIco:End(), SysRefresh(),;\n              oACachaza:End(), .T. )\n\nreturn nil\n\n/*-------------------------------------------------------------*/\n\nstatic function CargaDatos( oACachaza, oLbx, aArr, nTot, nAcumAnt, dFecha1, nPromedio, oWndChild, nTonSem )\n\n         local nTGCN   := 0, n\n         local dFecha2, dFechaini\n         LOCAL oDb := oACachaza:Clone()  //Clonamos la base datos en memoria\n         LOCAL nPromTH := 0, nPromHras := 0, nTonsHra := 0\n\n         Afill( nTot, 0)\n\n         IF oACachaza:Ah_fecha == DATE()\n            IF oACachaza:Ah_Hora &lt; \"06\"\n               dFecha1--\n            ENDIF\n         ENDIF\n         dFecha2 := dFecha1 + 1\n         //   busca la fecha a consultar ( B£squeda aproximada )\n         oACachaza:SEEK(dtos(dFecha1)+\"06\", .T., .F. )\n         IF oACachaza:Eof() .OR. oACachaza:AH_fecha != dFecha1\n\n                   MsgAlert(\"Sin Informaci¢n en :\"+dtoc(dfecha1))\n                   RETURN .F.\n         ENDIF\n\n         oACachaza:Prior()\n\n         if oACachaza:bof()\n\n            FOR n := 1 TO 1\n               nAcumAnt[ n ] := 0\n               nTonSem[ n ] := 0\n            NEXT\n\n         else\n\n            nAcumAnt[ 1 ] := oACachaza:ah_a_tonbr\n\n            oACachaza:Next()\n\n            FOR n := 1 TO 1\n                   nTonSem[ n ] := 0\n            NEXT\n\n            dFechaIni := oDb:aH_fecha - ( dow( oDb:ah_fecha ) - 1 )\n            IF dFechaIni != dFecha1\n\n                oDb:Setscope( dtos( dFechaIni )+ \"06\", DTOS( dFecha1 ) + \"05\" )\n\n                 do  while ! oDb:Eof()\n\n                     nTonSem[ 1 ] += oDb:ah_h_tonbr\n                     oDb:next():qload()\n\n                 ENDDO\n\n            ENDIF\n\n         ENDIF\n\n         nTGCN :=  0\n\n          oACachaza:setscope(dtos( dFecha1) + \"06\", DTOS(dFecha2) + \"05\" )\n\n          DO WHILE ( ! oACachaza:eof() )\n\n             nTGCN += oACachaza:ah_h_tonbr\n             AADD( aArr, {transform(oACachaza:ah_fecha, \"@D\"),;\n                          strzero(val(oACachaza:ah_hora) + 1,2),;\n                          oACachaza:ah_h_tonbr, ;\n                          nTGCN,;\n                          oACachaza:ah_a_tonbr  } )\n\n             oACachaza:skip(1)\n\n          ENDDO\n\n\n   // Totalizar columnas\n   AEval( aArr, { | e | nTot[1]  += e[ 3 ], ;    // Tons Brutas\n                        nTot[2]  := nTGCN , ;    // Acumulado parcial\n                        nTonsHra += e[ 4 ] })\n\n   nPromedio := round( nTot[1] / len( aArr ), 3 )\n\n   nPromTH   := nTonsHra / nTGCN\n\n   oWndChild:SetText( \"Dia de Zafra: \"+ DTOC( dFecha1 ) +space(10)+;\n                       \"Promedio por Hora:\"+LTRIM( str( nPromedio ) ) + \" Tons.\" )\n\n   oLbx:SetArray( aArr )\n   oLbx:refresh()\n\n   oACachaza:ClearScope()\n\nreturn .T.\n//----------------------------------------------------------------------------//\n\nFUNCTION DrawBmp( hDc , oWnd , cBmpFile )\n/*\n  FUNCTION DrawBmp( hDc , oWnd , cBmpFile )\n  Autor : Víctor Manuel Tomás Díaz\n  Vikthor\n*/\n\n      LOCAL nTop, nLeft, nBottom, nRight\n      LOCAL oBmpFondo\n      LOCAL nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()\n\n      DEFAULT cBmpFile := \"\"\n\n      DEFINE BITMAP oBmpFondo FILE ( cBmpFile )\n\n      IF oWnd:oMsgBar != nil        // Si la ventana tiene Barra de mensajes\n         nHeight -=  oWnd:oMsgBar:nHeight\n      ENDIF\n      IF oWnd:oBar != nil           // Si la Ventana tiene Barra de botones\n         nHeight -=  oWnd:oBar:nHeight\n      ENDIF\n      nHeight -= 40               // +- Altura de la barra de titulo y menu\n      #IFDEF __HARBOUR__\n            DrawBitmap( hDC, oBmpFondo:hBitmap , 0, 0, nWidth, nHeight )\n      #ELSE\n         IF At(\"2.1\",FWVERSION) &gt; 0\n            DrawBitmap( hDC, oBmpFondo:hBmpPal , 0, 0, nWidth, nHeight )\n         ELSE\n            DrawBitmap( hDC, oBmpFondo:hBitmap , 0, 0, nWidth, nHeight )\n         ENDIF\n      #ENDIF\n      oBmpFondo:End()\nRETURN( NIL )','',0,'','i9zcjr6d',1,0,'',207,0,0),(29220,6488,6,2,0,'87.218.146.189',1175439376,1,0,1,1,1,1,'','','&gt; 2.- Cada que le toca procesar algo se cicla. \n\nQue error te da ?','',0,'','oipz8f1g',1,0,'',2,0,0),(29221,5394,19,2,0,'87.218.146.189',1175439457,1,0,1,1,1,1,'','','<!-- w --><a class=\"postlink\" href=\"http://www.filefactory.com\">www.filefactory.com</a><!-- w -->','',0,'','2yvdqe5p',1,0,'',2,0,0),(29222,6543,3,2,0,'87.218.146.189',1175439533,1,0,1,1,1,1,'','','Jeff,\n\nUse bKeyDown instead of bKeyChar and try it again','',0,'','147aat8t',1,0,'',2,0,0),(29223,6543,3,69,0,'74.13.37.86',1175439715,1,0,1,1,1,0,'','','Antonio,\n\nI\'ve tried both ... and still the arrow keys just move to the next control.\n\n\n\nJeff','',0,'','34lv0q79',1,0,'',69,0,0),(29224,6553,3,35,0,'65.188.6.143',1175439938,1,0,1,1,1,0,'','','Is there an English translation ??\n\nRick Lipkin\nSC Dept of Health, USA','',0,'','tg8fdi8l',1,0,'',35,0,0),(29225,6543,3,2,0,'87.218.146.189',1175440294,1,0,1,1,1,1,'','','Jeff,\n\nPlease try this too besides the bKeyChar/bKeyDown:\n\noBtn1:nDlgCode = DLGC_WANTALLKEYS\noBtn2:nDlgCode = DLGC_WANTALLKEYS\noBtn3:nDlgCode = DLGC_WANTALLKEYS\noBtn4:nDlgCode = DLGC_WANTALLKEYS','',0,'','28y0vxuv',1,0,'',2,0,0),(29226,6553,3,810,0,'89.12.45.157',1175441395,1,0,1,1,1,0,'','','no','',0,'','5celxd63',1,0,'',810,0,0),(29227,6542,6,376,0,'190.42.33.228',1175443734,1,0,1,1,1,1,'','','Antonio...\n\nEntonces... con FWH [u:2hzlh5w2]no puedo[/u:2hzlh5w2] utilizar xHarbour para PellesC? o estoy entendiendo mal?','',0,'AQ==','2hzlh5w2',1,0,'',376,0,0),(29228,6542,6,376,0,'190.42.33.228',1175443887,1,0,1,1,1,1,'','','Complemento la pregunta...\ncon FWH (compilado con BCC) no puedo utilizar xHarbour para PellesC?','',0,'AQ==','2ltcmeag',1,0,'',376,0,0),(29229,6542,6,53,0,'189.139.21.205',1175444725,1,0,1,1,1,1,'','','Tocayo:\n\n1.- FWH lo puedes utilizar con Harbour o xHarbour\n\n2.- Como ya te explicó A. Linares, no existe FWH para PellesC\n\n3.- De PellesC se utiliza su editor de recursos, digamos, como sustituto de WorkShop pero a 32 bits\n\nSaludos, Armando','',0,'AQ==','3ejkb5et',1,0,'',53,0,0),(29230,6542,6,376,0,'190.42.33.228',1175446660,1,0,1,1,1,1,'','','Ok...\n\nGracias a todos. El panorama me quedo muuuy claro','',0,'AQ==','379bzrie',1,0,'',376,0,0),(29231,6128,1,868,0,'123.236.153.246',1175447505,1,0,1,1,1,1,'','','is it possible to generat 16 bit obj compatible with clipper with bcc32.exe?  or where can we obtain free copy of bcc 16 bit compliner? any help please?','',0,'AQ==','3vrf4spn',1,0,'',868,0,0),(29232,6485,6,95,0,'189.155.151.98',1175450337,1,0,1,1,1,0,'','','Muchas gracias, probare lo de timers y lo de mover la app con otro usuario.\n\nSolo dime, por que la app se crea dentro de los folders ?\n\nSaludos\nOsvaldo Ramirez','',0,'AQ==','290oy8en',1,0,'',95,0,0),(29233,6542,6,439,0,'200.125.35.86',1175450705,1,0,1,1,1,1,'','','Antonio Linares dijo:\n\"Lo que ocurre es que FWH compilado para Microsoft C, es compatible con Pelles C (que es el compilador que usa xHB.com)\"\n\nES COMPATIBLE, a mis ojos significa SIRVE para Pelles C, FWH compilado para Borland C no, pero compilado para Microsoft C ES COMPATIBLE, COMPATIBLE, con Pelles C.\n\nNaturalmente puedo equivocarme, pero lo que se desprende de sus palabras NO ES que no se pueda usar con PellesC.\n\nAntonio, podrías definir este tema? (ya que tu solo puedes hacerlo)','',0,'AQ==','1vk18uwu',1,0,'',439,0,0),(29234,6485,6,95,0,'189.155.151.98',1175454609,1,0,1,1,1,0,'','','El INTERVAL no funciona o mas bien mi pregunta es q valor debe ir ?\n\nSaludos\nOsvaldo Ramirez','',0,'AQ==','wr873up3',1,0,'',95,0,0),(29235,6485,6,95,0,'189.155.151.98',1175457236,1,0,1,1,1,0,'','','Si estoy en la ventala del timer y selecciono el menu, el timer el cual muestra la hora, se detiene, no continua, eso significa que el timer esta corriendo dentro del loop de eventos o no corre independientemente .. ?\n\nEstoy haciendo algo mal ?\n\nSaludos\nOsvaldo Ramirez\n\n#include \"FiveMac.ch\"\n\nstatic oWnd, oTimer\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   BuildMenu()\n\n   DEFINE WINDOW oWnd FROM 200, 200 TO 600, 400 ;\n      TITLE \"Testing timers\"\n   DEFINE   TIMER oTmr INTERVAL 180 ACTION CheckFile(oWnd)\n   ACTIVATE TIMER oTmr\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n\nfunction CheckFile( oWnd )\noWnd:Settext(time())\nreturn nil\n\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM \"Apple\"\n      MENU\n         MENUITEM \"Build a Timer\" ACTION Timers()\n         SEPARATOR\n         MENUITEM \"Bye, bye...\" ;\n            ACTION ( oTimer:End(), MsgInfo( \"Timer end\" ), oWnd:End() )\n      ENDMENU\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction Timers()\n\n   if oTimer == nil\n      DEFINE TIMER oTimer ACTION oWnd:SetText( Time() )\n\n      ACTIVATE TIMER oTimer\n   else\n      MsgAlert( \"There is already a working timer...\" )\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//','',0,'AQ==','yvc3duvs',1,0,'',95,0,0),(29236,6550,6,73,0,'201.165.171.193',1175458040,1,0,1,1,1,0,'','','gracias antonio\nsalu2\npaco','',0,'AQ==','20fdng9i',1,0,'',73,0,0),(29237,6543,3,69,0,'74.13.37.86',1175458458,1,0,1,1,1,0,'','','Antonio,\n\nStill no luck.  Again, the focus is moved to the next control.\n\n\nJeff','',0,'AQ==','22esff0g',1,0,'',69,0,0),(29238,6555,3,930,0,'137.224.245.61',1175459728,1,0,1,1,1,0,'','Help needed with Help','I am trying to call specific topics from a HTML Help file with the following line of code:\nHTMLHelp(0, \"d:\\turboint\\help\\tvwinint.chm\", 2, nTopic)\nbut no matter what the topic nr is it always comes up with the first topic (default).\nHow do I need to change to code?\n\nRegards,\nStephan','',0,'AQ==','30gqkd8n',1,0,'',930,0,0),(29239,6556,1,69,0,'74.13.37.86',1175461043,1,0,1,1,1,0,'','To OTTO: Trapping Arrow Keys','Hi Otto,\n\nA while ago you had a post where you needed to trap the value of the arrow keys and you mentioned that you solved the problem.\n\nCould you please tell me how you solved the problem.\n\nYour original post:\n   [url:txjgwzys]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=1018&amp;highlight=arrow[/url:txjgwzys]\n\n\nThanks \nJeff','',0,'EA==','txjgwzys',1,0,'',69,0,0),(29240,6128,1,2,0,'87.218.146.189',1175461322,1,0,1,1,1,1,'','','&gt; is it possible to generat 16 bit obj compatible with clipper with bcc32.exe? \n\nNo, not possible\n\n&gt; or where can we obtain free copy of bcc 16 bit compliner? \n\nAs far as we know, the bcc 16 bits is a commercial product','',0,'EA==','2m1r1lgu',1,0,'',2,0,0),(29241,6543,3,2,0,'87.218.146.189',1175461474,1,0,1,1,1,1,'','','Jeff,\n\nWe are going to build a sample and try to get it working','',0,'EA==','1zp2darq',1,0,'',2,0,0),(29242,6485,6,2,0,'87.218.146.189',1175462194,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; Solo dime, por que la app se crea dentro de los folders ? \n\nEs un diseño propio de OSX. Tiene que ser así','',0,'EA==','e4xkod5v',1,0,'',2,0,0),(29243,6485,6,2,0,'87.218.146.189',1175462649,1,0,1,1,1,1,'','','Osvaldo,\n\nTu ejemplo funciona bien aqui en OSX 10.4.8\n\nQue versión de OSX estás usando ?','',0,'EA==','2thk6i6d',1,0,'',2,0,0),(29244,6546,6,937,0,'200.76.200.83',1175467765,1,0,1,1,1,0,'','Perfecto...!!  Gracias','Antonio, era justo lo que queria... como siempre Gracias.!!\n\nSalu2','',0,'EA==','1psm8e8c',1,0,'',937,0,0),(29245,6551,3,86,0,'213.119.103.68',1175468764,1,0,1,1,1,1,'','','Antonio,\n\nxHarbour and FiveWin on Apple Mac : it looks very good.\n\nAnd of course it opens new markets for us, developers.\n\nMany congratulations.\n\nMichel','',0,'EA==','3brnz35p',1,0,'',86,0,0),(29246,6543,3,69,0,'74.13.37.86',1175469884,1,0,1,1,1,0,'','','Thanks Antonio.','',0,'EA==','2ruocvnb',1,0,'',69,0,0),(29247,6480,6,666,0,'211.28.125.58',1175474292,1,0,1,1,1,0,'','','Marco, estoy interesado yo también \n\n<!-- e --><a href=\"mailto:cwisbey@optusnet.com.au\">cwisbey@optusnet.com.au</a><!-- e -->\n\nSaludos\n\nColin Wisbey','',0,'EA==','yy0yce3v',1,0,'',666,0,0),(29248,6557,3,785,0,'190.64.211.156',1175475932,1,0,1,1,1,0,'','Errorsys with printscreen ?','Friends:\n\nThere\'s a errorsys that when an error happend a print acreen was saved\nin jpg format. \nWhere is it?\n\nThankyou very much.\n\nRuben Fernandez','',0,'EA==','1u9vepnq',1,0,'',785,0,0),(29249,6558,6,785,0,'190.64.211.156',1175476056,1,0,1,1,1,0,'','Errorsys con printscreen ?','Amigos:\n\nAlguien tiene este errorsys.\nAl momento del error hace un printscren y lo guarda en jpg.\nCon la posibilidad de enviar por correo.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'EA==','2kfglagf',1,0,'',785,0,0),(29250,6542,6,376,0,'190.42.41.221',1175481115,1,0,1,1,1,1,'','','Jose no había captado la extensión en la respuesta de Antonio. Qué maravilloso es nuestro idioma!!!. Así que me adhiero a tu solicitud de explicación que haces a Antonio.','',0,'EA==','1a05h9s2',1,0,'',376,0,0),(29251,6485,6,95,0,'189.155.160.148',1175486129,1,0,1,1,1,0,'','','Estoy usando la version 10.4.7\n\nY si corre bien, solo que digo que se detiene el timer y vuelve a re-iniciar, esto solamente si estoy seleccionado algo del menu.\n\nDime, el timer esta dentro del loop de eventos principal o corre independientemente ?\n\nSaludos\nOsvaldo Ramirez','',0,'EA==','1j0y9u1v',1,0,'',95,0,0),(29252,6525,6,49,0,'213.82.134.66',1175496781,1,0,1,1,1,1,'','','I try it but  the program at first let me select the camera  then it make error','',0,'EA==','1ozuf6ka',1,0,'',49,0,0),(29253,6485,6,2,0,'87.218.146.189',1175497204,1,0,1,1,1,1,'','','Osvaldo,\n\nYa veo lo que dices: que mientras un item del menú está seleccionado, el título de la ventana no cambia <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nEn realidad es que no la está repintando, pero el timer sigue corriendo bien, ya que al dejar de pulsar el item el reloj está bien actualizado\n\nOSX es más sofisticado que Windows. No existe un loop de eventos como tal, y es 100% orientado a objetos, no como Windows que es una pseudo programación orientada a objetos.\n\nDe hecho el lenguaje que usa Cocoa, el GUI de OSX, es Objective-C que es una variante de C con objetos, distinta al C++','',0,'EA==','17k498ii',1,0,'',2,0,0),(29254,6525,6,533,0,'80.32.177.143',1175497695,1,0,1,1,1,0,'','','can you send me the error?. Posibly i don\'t send you all files. Sorry, but my english is so bad.\n\nbest regards.','',0,'EA==','2huhnxeb',1,0,'',533,0,0),(29255,6542,6,2,0,'87.218.146.189',1175497788,1,0,1,1,1,1,'','','Existen dos formatos principales de ficheros OBJs: OEM y COFF. Esos dos formatos NO son compatibles entre si.\n\nBorland genera formato OEM, y Microsoft y PellesC usan formato COFF. El formato OEM es más reducido, y las librerías resultantes son más pequeñas.\n\nEs por esto que los OBJs de Microsoft y PellesC pueden usarse juntos, ya que ambos son COFF. Así FWH compilado con Microsoft sirve para xHarbour construido con PellesC. Usan el mismo modelo interno de ficheros OBJs.','',0,'EA==','3p0ul43b',1,0,'',2,0,0),(29256,6480,6,63,0,'88.11.31.105',1175499910,1,0,1,1,1,0,'','','Marco:\nA mí también, por favor:   <!-- e --><a href=\"mailto:rafaelclem@telefonica.net\">rafaelclem@telefonica.net</a><!-- e -->\nGracias y disculpa las molestias.','',0,'EA==','1y78nu4i',1,0,'',63,0,0),(29257,6556,1,51,0,'80.122.88.242',1175500173,1,0,1,1,1,0,'','','Hello Jeff,\n<!-- m --><a class=\"postlink\" href=\"http://atzwanger.com/invoice/invoice.zip\">http://atzwanger.com/invoice/invoice.zip</a><!-- m -->\nhere is what I did so fare.\n\n\n\nRegards\nOtto','',0,'EA==','2gpr4q3i',1,0,'',51,0,0),(29258,6559,3,996,0,'70.58.66.18',1175500465,1,0,1,0,1,0,'','Non-Modal, resizeable, TXBrowse from a Resource file','Hello Everyone,\n\nSorry for all the TXBrowse() questions, but data grids are very central to the application I\'m porting to FiveWin/Harbour, and from what I can see think TXBrowse() is the best way for me to go.  Once I get past a few difficult things I\'ll be fine.  \n\nThe Testxbrw.prg sample has one resource-based use of TXBrowse(), but it is modal, and can\'t be resized.  I was wondering if anyone has or knows of an example using TXBrowse() with a resource-based non-modal dialog, which also allows for a TXBrowse() control combined with buttons, and which allows the TXBrowse() control to be automatically resized if the user changes the size of the dialog window.  In the code for our current application we respond to the WM_SIZE message from Windows and directly change the size of the Browse control based on the new size of the dialog, allowing space for our dialog buttons on the left as we do so.\n\nMaybe a picture is worth a thousands words.  Here is a screen shot of the application I\'m porting:\n\n[img:397ai23e]http&#58;//www&#46;donorquest&#46;com/downloads/donorquest&#46;jpg[/img:397ai23e]\n\nThe top data grid is browsing the main name/address table, and the two windows below it are browsing related records in other tables.  As the user moves in the top data grid, the related data grids are updated to point to the related records in their tables.  I got this synchronization part working (thanks Kleyber) with TXBrowse() using DEFINE WINDOW, and CreateFromCode(), but that was just for testing -- I now need to use my resource-based data grid dialogs which have buttons.  \n\nThanks for any help anyone can offer!','',0,'CA==','397ai23e',1,0,'',996,0,0),(29259,6543,3,2,0,'87.218.146.189',1175500687,1,0,1,1,1,1,'','','Jeff,\n\nOk, its working <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nYou have to modify Class TButton Method KeyDown() this way:\n[code:356sx7m8]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TButton\n\n   &#58;&#58;oWnd&#58;nLastKey &#58;= nKey\n\n   do case\n      case nKey == VK_UP &#46;or&#46; nKey == VK_LEFT\n           if &#58;&#58;bKeyDown != nil\n              Eval&#40; &#58;&#58;bKeyDown, nkey, nFlags &#41;\n           else   \n              &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n           endif   \n           return 0\n\n      case nKey == VK_DOWN &#46;or&#46; nKey == VK_RIGHT\n           if &#58;&#58;bKeyDown != nil\n              Eval&#40; &#58;&#58;bKeyDown, nkey, nFlags &#41;\n           else   \n              &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n           endif   \n           return 0\n\n      case nKey == VK_RETURN\n           if &#58;&#58;bKeyDown != nil\n              Eval&#40; &#58;&#58;bKeyDown, nkey, nFlags &#41;\n           else   \n              PostMessage&#40; &#58;&#58;hWnd, FM_CLICK &#41;    // fire the button\'s action\n           endif   \n           return 0\n   endcase\n\nreturn Super&#58;KeyDown&#40; nKey, nFlags &#41;\n[/code:356sx7m8]\nAnd here you have a working sample:\n[code:356sx7m8]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oBtn1, oBtn2, oBtn3, oBtn4\n\n   DEFINE DIALOG oDlg TITLE &quot;Test&quot;\n   \n   @ 3,  2 BUTTON oBtn1 PROMPT &quot;One&quot; OF oDlg\n   @ 3,  8 BUTTON oBtn2 PROMPT &quot;Two&quot; OF oDlg\n   @ 3, 14 BUTTON oBtn3 PROMPT &quot;Three&quot; OF oDlg\n   @ 3, 20 BUTTON oBtn4 PROMPT &quot;Four&quot; OF oDlg\n\n   oBtn1&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; nKey &#41; &#125;\n   oBtn1&#58;nDlgCode = DLGC_WANTALLKEYS\n   oBtn2&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; nKey &#41; &#125;\n   oBtn2&#58;nDlgCode = DLGC_WANTALLKEYS\n   oBtn3&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; nKey &#41; &#125;\n   oBtn3&#58;nDlgCode = DLGC_WANTALLKEYS\n   oBtn4&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; nKey &#41; &#125;\n   oBtn4&#58;nDlgCode = DLGC_WANTALLKEYS\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:356sx7m8]','',0,'AIA=','356sx7m8',1,0,'',2,0,0),(29260,6559,3,2,0,'87.218.146.189',1175501214,1,0,1,1,1,1,'','','Patrick,\n\n&gt; I now need to use my resource-based data grid dialogs which have buttons.\n\nPlease provide a portion of your resource where you define the buttons and the grid, thanks','',0,'AIA=','1x39comq',1,0,'',2,0,0),(29261,6556,1,2,0,'87.218.146.189',1175505617,1,0,1,1,1,1,'','','Its working:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=29259#29259\">http://fivetechsoft.com/forums/viewtopi ... 9259#29259</a><!-- m -->','',0,'AIA=','115k9dh1',1,0,'',2,0,0),(29262,6559,3,996,0,'70.58.66.18',1175506214,1,0,1,0,1,0,'','','Hello Antonio,\n\nHere is the resource definition for the first browse window you see in the screen shot I provided:\n\n[code:1a7bdfvh]\nDE_HEADER_BROWSE DIALOG 42, 100, 297, 93\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;Main File Browse&quot;\n&#123;\n LISTBOX HEADER_BROWSE_HOST_CONTROL, 51, 1, 246, 67, LBS_NOTIFY | LBS_NOREDRAW | LBS_OWNERDRAWVARIABLE | LBS_HASSTRINGS | LBS_NOINTEGRALHEIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Find&quot;, CID_FIND, 0, 1, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Add&quot;, CID_ADD, 0, 13, 23, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n DEFPUSHBUTTON &quot;&amp;Edit&quot;, CID_FORM2, 25, 13, 23, 10\n PUSHBUTTON &quot;&amp;Mark&quot;, CID_MARK, 0, 24, 23, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Copy&quot;, CID_COPY, 25, 24, 23, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Delete&quot;, CID_DELETE, 0, 36, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON &quot;Con&amp;solidate&quot;, CID_CONSOLIDATE, 0, 47, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON &quot;&amp;OK&quot;, IDOK, 0, 69, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n CTEXT &quot;&quot;, CID_STATUS_DISPLAY, 52, 83, 226, 9\n PUSHBUTTON &quot;W&amp;ord Notes&quot;, CID_WORD_NOTES, 0, 58, 48, 10\n&#125;\n[/code:1a7bdfvh]\n\nThe browse window is hosted by a LISTBOX control named, HEADER_BROWSE_CONTROL.  The code supporting resizing of the dialog at runtime is:\n\n[code:1a7bdfvh]\n   Case&#40; nMsg == WM_SIZE &#41;\n\n      If&#40; nWparam != SIZE_MINIMIZED &#41;\n\n         aCRect  &#58;= GetClientRect&#40; hDlgWnd &#41;  // hDlgWnd is a handle to the dialog hosting the browse&#46;\n\n         aStatusRect &#58;= GetClientRect&#40; GetDlgItem&#40; hDlgWnd, CID_STATUS_DISPLAY &#41; &#41;\n         hStatusWnd  &#58;= GetDlgItem&#40; hDlgWnd, CID_STATUS_DISPLAY &#41;\n         ShowWindow&#40; hStatusWnd, SW_HIDE &#41;\n         MoveWindow&#40; hStatusWnd, snButtonOffset + 10, aCRect&#91; W_BOTTOM &#93; - aStatusRect&#91; W_BOTTOM &#93;, aCRect&#91; W_RIGHT &#93; - snButtonOffset - 10, aStatusRect&#91; W_BOTTOM &#93; &#41;\n         ShowWindow&#40; hStatusWnd, SW_SHOW &#41;\n\n         hList &#58;= GetDlgItem&#40; hDlgWnd, snBrowHostID &#41;  // This is normally HEADER_BROWSE_HOST_CONTROL in the resource file&#46;\n\n         MoveWindow&#40; hList, snButtonOffset, 0, aCRect&#91; W_RIGHT &#93; - snButtonOffset, aCRect&#91; W_BOTTOM &#93; - 25, &#46;T&#46;&#41;\n\n         SendMessage&#40; hList, WM_PAINT, 0 , 0 &#41;\n\n         UpdateWindow&#40; hList &#41;\n\n\n         aCRect  &#58;= GetClientRect&#40; hList &#41;\n\n         MoveWindow&#40; oB&#58;hWnd, 0, 0, aCRect&#91; W_RIGHT &#93;, aCRect&#91; W_BOTTOM &#93;, &#46;T&#46;&#41;\n\n         SendMessage&#40; oB&#58;hWnd, WM_PAINT, 0 , 0 &#41;\n\n         UpdateWindow&#40; oB&#58;hWnd &#41;\n\n      EndIf\n\n[/code:1a7bdfvh]\n\nThe variable snButtonOffset is how much space we have to save on the left for the buttons when resizing the list box control hosting the Browse.\n\nThanks Antonio!','',0,'AIA=','1a7bdfvh',1,0,'',996,0,0),(29263,6560,6,945,0,'80.32.177.143',1175510650,1,0,1,1,1,0,'','Ayuda sobre Report','Muy buenas, estoy realizando un listados y agrupado por clientes y me gustaría saber como puedo hacer que en cada cliente apareciera un listado con su cabecera de por ejemplo sus obras, sería mas o menos así:\n\nCODIGO  NOMBRE\n----------  ----------\n00001      PEPE\n             \n               COD.OBRA  TOTAL\n               ------------   --------\n               000000001         25\n               000000003         25\n               000000003         25\n\ny cada uno de los encabezados encuadrado en cajas.\n\nGracias.','',0,'AIA=','8fg6kkis',1,0,'',945,0,0),(29264,6533,3,217,0,'200.159.120.34',1175511994,1,0,1,1,1,0,'','','Very good!\nThanks a lot, Antonio!\n\nRegards,\nMaurilio','',0,'AIA=','mij39w0o',1,0,'',217,0,0),(29265,6561,3,160,0,'59.95.253.37',1175515292,1,0,1,1,1,0,'','TwBrowse question','Dear All,\n\nI am normally using TwBrowse Listbox with normal syntax of REDEFINE LISTBOX.... But in a typical situation, I want to assign columns to the listbox programmatically. I saw that it is being passed as second parameter as Code block. My data is in an array and I want to pass all the columns as field for the listbox.\n	e.g. {|| { oReport:ArrData[nItem,1],oReport:ArrData[nItem,2] } }\n\nHow can I assing columns in the code block in a loop ?\n\nI hope somebody understand my problem and give some suggestion. I have difficulty in explaining my problem.\n\nWith best regards,\n\nMilan.','',0,'','3l2s0o7t',1,0,'',160,0,0),(29266,6373,3,160,0,'59.95.195.0',1175516082,1,0,1,1,1,0,'','','Dear Stefen,\n\nThe hyperload still shows and download 0 byte file.\n\nCan you send me on <!-- e --><a href=\"mailto:lotusint@sancharnet.in\">lotusint@sancharnet.in</a><!-- e --> ?\n\nTIA\nMilan','',0,'','27q7snul',1,0,'',160,0,0),(29267,6559,3,2,0,'87.218.146.118',1175516298,1,0,1,1,1,1,'','','Patrick,\n\nThis is a first working prototype:\n[code:2sdyh5zl]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   USE Customer\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot; MDI\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT BuildChild&#40;&#41;\n\nreturn nil\n\nfunction BuildChild&#40;&#41;\n\n   local oChild\n   \n   DEFINE WINDOW oChild TITLE &quot;A Child Window&quot; MDICHILD\n   \n   ACTIVATE WINDOW oChild ;\n      ON INIT BuildDialog&#40; oChild &#41;\n   \nreturn nil   \n\nfunction BuildDialog&#40; oChild &#41;\n\n   local oDlg, oBrw\n \n   DEFINE DIALOG oDlg RESOURCE &quot;DE_HEADER_BROWSE&quot; OF oChild\n   \n   oBrw = TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;CreateFromResource&#40; 10 &#41;\n   oBrw&#58;SetRDD&#40;&#41;\n\n   ACTIVATE DIALOG oDlg NOWAIT ;\n      ON INIT oDlg&#58;Move&#40; 0, 0 &#41; ;\n      VALID &#46;F&#46;\n   \n   oChild&#58;bResized = &#123; || oDlg&#58;SetSize&#40; oChild&#58;nWidth, oChild&#58;nHeight - 30 &#41;,; \n                                     oBrw&#58;SetSize&#40; oDlg&#58;nWidth - 118, oDlg&#58;nHeight - 10 &#41; &#125;\n   \nreturn nil   \n[/code:2sdyh5zl]\nWe have modified your RC this way:\n[code:2sdyh5zl]\nDE_HEADER_BROWSE DIALOG 42, 100, 297, 93 \nSTYLE WS_CHILD  \n&#123; \n LISTBOX 10, 51, 1, 246, 67, LBS_NOTIFY | LBS_NOREDRAW | LBS_OWNERDRAWVARIABLE | LBS_HASSTRINGS | LBS_NOINTEGRALHEIGHT | WS_CHILD | WS_VISIBLE | WS_TABSTOP \n PUSHBUTTON &quot;&amp;Find&quot;, 20, 0, 1, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP \n PUSHBUTTON &quot;&amp;Add&quot;, 30, 0, 13, 23, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP \n DEFPUSHBUTTON &quot;&amp;Edit&quot;, 40, 25, 13, 23, 10 \n PUSHBUTTON &quot;&amp;Mark&quot;, 50, 0, 24, 23, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP \n PUSHBUTTON &quot;&amp;Copy&quot;, 60, 25, 24, 23, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP \n PUSHBUTTON &quot;&amp;Delete&quot;, 70, 0, 36, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP \n PUSHBUTTON &quot;Con&amp;solidate&quot;, 80, 0, 47, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP \n PUSHBUTTON &quot;&amp;OK&quot;, 1, 0, 69, 48, 10, WS_CHILD | WS_VISIBLE | WS_TABSTOP \n CTEXT &quot;&quot;, 90, 52, 83, 226, 9 \n PUSHBUTTON &quot;W&amp;ord Notes&quot;, 100, 0, 58, 48, 10 \n&#125; \n[/code:2sdyh5zl]\nHere you have a screenshot:\n[url=http&#58;//imageshack&#46;us:2sdyh5zl][img:2sdyh5zl]http&#58;//img393&#46;imageshack&#46;us/img393/1900/browselx6&#46;png[/img:2sdyh5zl][/url:2sdyh5zl]','',0,'GIA=','2sdyh5zl',1,0,'',2,0,0),(29268,6561,3,2,0,'87.218.146.118',1175516645,1,0,1,1,1,1,'','','Milan,\n\nJust call a function from the codeblock, and in the function do whatever you may need:\n\n{ || MyFunction() }\n\n...\n\nfunction MyFunction()\n\nlocal aValues\n\n// Build aValues the way you need it\n\nreturn aValues','',0,'GIA=','3w3q0sm4',1,0,'',2,0,0),(29269,6447,20,49,0,'62.13.172.67',1175517757,1,0,1,1,1,1,'','','non hai proprio modo di provare il codice ?','',0,'GIA=','128nttj4',1,0,'',49,0,0),(29270,6525,6,49,0,'62.13.172.67',1175517928,1,0,1,1,1,1,'','','first \n[url=http&#58;//img250&#46;imageshack&#46;us/my&#46;php?image=errorwebcamvf8&#46;jpg:3gio6u3z][img:3gio6u3z]http&#58;//img250&#46;imageshack&#46;us/img250/589/errorwebcamvf8&#46;th&#46;jpg[/img:3gio6u3z][/url:3gio6u3z]\n\nand then \n\n\n\n\n\n\n\n\n\n\n\nApplication\n===========\n   Path and name: C:\\work\\prg\\CICLISMO\\Source\\camfoto.Exe (32 bits)\n   Size: 1,215,488 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 03/31/07, 01:25:59\n   Error description: Error BASE/1126  Argument error: STRTRAN\n   Args:\n     [   1] = U   \n     [   2] = C    \n     [   3] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; STRTRAN(0)\n   Called from: camfoto.prg =&gt; (b)TWEBCAMPHOTO:NEW(124)\n   Called from:  =&gt; ASCAN(0)\n   Called from: camfoto.prg =&gt; TWEBCAMPHOTO:NEW(124)\n   Called from: camfoto.prg =&gt; WEBCAM(17)','',0,'GA==','3gio6u3z',1,0,'',49,0,0),(29271,6447,20,6,0,'82.55.208.200',1175518256,1,0,1,1,1,1,'','','Senza webcam direi proprio di no.\n\nEMG','',0,'GA==','2zkb6gy6',1,0,'',6,0,0),(29272,6559,3,6,0,'82.55.208.200',1175518413,1,0,1,1,1,1,'','','Is TXBrowse able to show more than one line of text on each row?\n\nEMG','',0,'GA==','2dvnch3f',1,0,'',6,0,0),(29273,6525,6,49,0,'62.13.172.67',1175518423,1,0,1,1,1,1,'','','I hope you help me','',0,'GA==','xk1bg2xl',1,0,'',49,0,0),(29274,6305,1,981,0,'74.56.149.181',1175520041,1,0,1,1,1,0,'','confirmation address e-mail','send me a e-mail at <!-- e --><a href=\"mailto:wilsonrw@sympatico.ca\">wilsonrw@sympatico.ca</a><!-- e --> and l will reply you with the exe','',0,'GA==','35deqg86',1,0,'',981,0,0),(29275,6559,3,995,0,'81.11.195.214',1175520458,1,0,1,1,1,0,'','','Yes,\n\n   oBrw:nHeaderLines        := 2\n   oBrw:nDataLines            := 2\n   oBrw:nFooterLines          := 2\n\nFrank','',0,'GA==','2qqub1mf',1,0,'',995,0,0),(29276,6559,3,6,0,'82.55.208.200',1175521919,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'GA==','33sp84yc',1,0,'',6,0,0),(29277,6559,3,2,0,'87.218.146.118',1175522111,1,0,1,1,1,1,'','','This is a cleaner way to do it:\n[code:29g7kjg0]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define COLOR_BTNFACE   15\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   USE Customer\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot; MDI\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT BuildChild&#40;&#41;\n\nreturn nil\n\nfunction BuildChild&#40;&#41;\n\n   local oChild\n   \n   DEFINE WINDOW oChild TITLE &quot;A Child Window&quot; MDICHILD ;\n      COLOR 0, GetSysColor&#40; COLOR_BTNFACE &#41;\n   \n   ACTIVATE WINDOW oChild ;\n      ON INIT BuildDialog&#40; oChild &#41;\n   \nreturn nil   \n\nfunction BuildDialog&#40; oChild &#41;\n\n   local oDlg, oBrw, oSay, cText &#58;= &quot;Hello World!&quot;\n \n   DEFINE DIALOG oDlg RESOURCE &quot;DE_HEADER_BROWSE&quot; OF oChild\n   \n   oBrw = TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;CreateFromResource&#40; 10 &#41;\n   oBrw&#58;SetRDD&#40;&#41;\n   \n   REDEFINE BUTTON ID 20 OF oDlg\n   REDEFINE BUTTON ID 30 OF oDlg\n   REDEFINE BUTTON ID 40 OF oDlg\n   REDEFINE BUTTON ID 50 OF oDlg\n   REDEFINE BUTTON ID 60 OF oDlg\n   REDEFINE BUTTON ID 70 OF oDlg\n   REDEFINE BUTTON ID 80 OF oDlg\n   REDEFINE BUTTON ID 100 OF oDlg\n   REDEFINE BUTTON ID   1 OF oDlg\n\n   REDEFINE SAY oSay VAR cText ID 90 OF oDlg\n\n   ACTIVATE DIALOG oDlg NOWAIT ;\n      ON INIT ChangeParent&#40; oDlg, oChild &#41;\n      \n   oDlg&#58;End&#40;&#41;   \n   oChild&#58;bResized = &#123; || oBrw&#58;SetSize&#40; oChild&#58;nWidth - 117, oChild&#58;nHeight - 60 &#41;,;\n                                     oSay&#58;nTop &#58;= oChild&#58;nHeight - 55, oSay&#58;nLeft &#58;= &#40; oChild&#58;nWidth / 2 &#41; - oSay&#58;nWidth / 2 &#125;\n   oChild&#58;SetSize&#40; 800, 400 &#41;\n   \nreturn nil   \n\nfunction ChangeParent&#40; oDlg, oChild &#41;\n\n   local n\n   \n   for n = 1 to Len&#40; oDlg&#58;aControls &#41;\n      SetParent&#40; oDlg&#58;aControls&#91; n &#93;&#58;hWnd, oChild&#58;hWnd &#41;\n      AAdd&#40; oChild&#58;aControls, oDlg&#58;aControls&#91; n &#93; &#41;\n   next\n   \nreturn nil \n[/code:29g7kjg0]\n[url=http&#58;//imageshack&#46;us:29g7kjg0][img:29g7kjg0]http&#58;//img453&#46;imageshack&#46;us/img453/9528/browsees1&#46;jpg[/img:29g7kjg0][/url:29g7kjg0]','',0,'GIA=','29g7kjg0',1,0,'',2,0,0),(29278,6305,1,2,0,'87.218.146.118',1175522638,1,0,1,1,1,1,'','','done <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','2yoaymd7',1,0,'',2,0,0),(29279,6535,6,278,0,'164.77.219.82',1175523264,1,0,1,1,1,1,'','','GRACIAS Antonio , lo voy a analizar.','',0,'GIA=','12g9x7zf',1,0,'',278,0,0),(29280,6558,6,53,0,'189.139.11.235',1175525131,1,0,1,1,1,1,'','','Rubén:\n\nPor ahí tengo un PRG llamado ErrSysW.Prg que hace lo que mencionas y que fue desarrollado por Bingen, aunque se quedo en 16bits, si es lo que necesitas y Bingen no dice otra cosa puedo enviartelo.\n\nSaludos, Armando','',0,'GIA=','3lo9yetr',1,0,'',53,0,0),(29281,6561,3,160,0,'59.95.195.0',1175525389,1,0,1,1,1,0,'','','Dear Antonio,\n\nMy following code do not give desired result :\n\n   nItem := 1\n    REDEFINE LISTBOX oBrw FIELDS RetRecord(oReport:ArrData, nItem) ;\n             COLSIZES   50,    80;\n             HEADERS \'Code\', \'Name\';\n             FONT oFont ;\n             UPDATE ;\n             ID LBREPORT OF oDlg\n............\n\nFUNCTION RetRecord(aArrData, nItem)\n   LOCAL i, aRetVal := {}\n   FOR i = 1 TO len(aArrData[nItem])\n       AADD (aArrData, aArrData[nItem, i])\n   NEXT\n\n   RETURN aRetVal\n\nWhat am I doing wrong ? \n\nTIA\nMilan.','',0,'','fmeqw9sl',1,0,'',160,0,0),(29282,6558,6,785,0,'190.64.218.34',1175525568,1,0,1,1,1,0,'','','Armando:\n\nMuchas gracias.\n\nYo tambien lo encontre en mis prg\'s viejos pero pense que\nhabia una versionb de Bingen mas nueva.\n\n\nTratare de contartarme con Bingen.\n\nGracias  de nuevo.\n\nSaludos\n\nRuben Fernandez.','',0,'','3j762c56',1,0,'',785,0,0),(29283,6516,6,867,0,'148.243.37.162',1175528118,1,0,1,1,1,0,'','No funciona marca error','[quote=&quot;wmormar&quot;:1pymtar5]Solucionado, aqui el link de la clase BTNGET modificada.\n\n[url:1pymtar5]http&#58;//www&#46;mediafire&#46;com/?1azekgmfnyb[/url:1pymtar5]\n\nSaludos\n\nPD. y funciona con tu códfigo perfectamente sin modificación[/quote:1pymtar5]\n\nHola Willi, como esta corazon pues, no funciona el prg que usted modifico, marca error desde TGET <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'kA==','1pymtar5',1,0,'',867,0,0),(29284,6516,6,867,0,'148.243.37.162',1175528264,1,0,1,1,1,0,'','Hola Jose','[quote=&quot;jose_murugosa&quot;:zuz4ev0k][quote=&quot;pymsoft&quot;:zuz4ev0k]José, buena idea para las búsquedas.\n\n\n\na propósito,  pavada de clientes tienes...\n\n(T. Inglesa, Devoto, Curtifrance...Macromercado, Ancap...)\n\n\nSaludos[/quote:zuz4ev0k]\n\njeje, lo que es el uso de la imaginación no?[/quote:zuz4ev0k]\n\nHola Jose Murugosa, como esta corazon, nadie me ha podido ayudar con esta clase BtnGet de mejorarla y el ejemplo que le envie con su codigo de rutina...algun usuario que me pueda ayudar con esta clase ....m urgeeeeeee por favor se los pido de corazon, muuuaacckkk \nSusy desde michoacan\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','zuz4ev0k',1,0,'',867,0,0),(29285,6483,7,1006,0,'189.129.145.47',1175528570,1,0,1,1,1,0,'','','Estimado Osvaldo(o quien me pueda ayudar):\n\nFijate que tenemos una MC1000 y estoy revisando tu codigo, mi pregunta es, ese codigo para que lenguaje de programacion aplica?, y la segunda seria, como lo cargas a la MC1000?, mucho te agradeceria esa informacion, para poder echar a andar el equipo, ya que el demo que trae no permite exportar el archivo que genera.\n\nMuchas Gracias:','',0,'gA==','udihlwuc',1,0,'',1006,0,0),(29286,6530,3,89,0,'213.21.136.60',1175529760,1,0,1,1,1,0,'','','This is a bad workaround\n\nIn the method PAint()  after PalBtnPaint( \n\n     PalBtnPaint( ::hWnd, ::hBitmap1, ::hPalette1, ::hBitmap2, ::hPalette2,;\n                ::hBitmap3, ::hPalette3, ::lPressed, ::lAdjust, ::lBorder,;\n                ::oPopup != nil, ::nClrPane,  ::cCaption, ::nLayout,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ), ::nClrText, ::hDC )\n\n\n\n        //----- My_modi\n	IF empty(::cBmpFile1)\n	   ::cCaption := cOldCAption\n  	   nLenText := GetTextWidth( hDC, ::cCaption ,  If( ::oFont != nil, ::oFont:hFont, 0 )  )\n  	   IF nLenText &gt; ::nWidth()\n              hDC  = ::hDC\n  	      SetBkMode( hDc, 1 )\n              SetTextColor( hDC,::nClrText  )\n              SelectObject( hDC, If( ::oFont != nil, ::oFont:hFont, 0 ) )\n              nTxtHeight := Max(14, GetTextHeight( ::hWnd )-2)\n  	      FOR nX := 1 TO len(::cCaption)\n		  IF substr(::cCaption,nX,1) == \" \"   // or seek for a  CRLF\n  	  	     TextOut( hDC,nR * nTxtHeight , 1 , substr(::cCaption,n1,nX-n1) )\n  	  	     n1 := nX + 1\n  	  	     nR++\n  	  	   ENDIF\n  	      NEXT\n	   ENDIF\n	ENDIF\n	//------ End','',0,'gA==','2cfdxsjn',1,0,'',89,0,0),(29287,3054,4,289,0,'84.235.1.231',1175530069,1,0,1,1,1,0,'','','hi Silvio\nDo you work Silvio private source to  fwppc be using the news on the source above. \nFor source webcam with pc . say following link. \n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/ulfiles/Webcam32.zip\">http://www.fivewin.info/ulfiles/Webcam32.zip</a><!-- m -->','',0,'gA==','19a59caa',1,0,'',289,0,0),(29288,6530,3,217,0,'200.159.120.34',1175530592,1,0,1,1,1,0,'','','Thanks, Maurizio!!!\n\nI\'ll try it!\n\nBest regards,\nMaurilio','',0,'gA==','1z6tu3sc',1,0,'',217,0,0),(29289,6560,6,945,0,'80.32.177.143',1175531297,1,0,1,1,1,0,'','Mas cosas','Me gustaria hacer eso con el tprinter o treport, la cuestion es poner cajas para enmarcar los encabezados.\n\nGracias.','',0,'gA==','1nj79bvh',1,0,'',945,0,0),(29290,6560,6,945,0,'80.32.177.143',1175531535,1,0,1,1,1,0,'','Mas cosas','Me gustaria hacer eso con el tprinter o treport, la cuestion es poner cajas para enmarcar los encabezados.\n\nGracias.','',0,'gA==','f3i6h5wt',1,0,'',945,0,0),(29291,6561,3,2,0,'87.218.146.118',1175531695,1,0,1,1,1,1,'','','Try this:\n\nREDEFINE LISTBOX oBrw FIELDS \"\", \"\" ;\n...\n\noBrw:bLine = { || RetRecord(oReport:ArrData, nItem) }','',0,'gA==','3p0d8j78',1,0,'',2,0,0),(29292,6483,7,2,0,'87.218.146.118',1175531930,1,0,1,1,1,1,'','','Miguel,\n\nEs para FWPPC (<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->)','',0,'gA==','31djxy7o',1,0,'',2,0,0),(29293,6562,6,533,0,'80.32.177.143',1175532794,1,0,1,1,1,0,'','Cambiar la vista de la clase Toutlook','Buenas Foro!!!, Teneis ejemplos, porque he estado intentando cambiar el aspecto que viene en el ejemplo y no puedo.\n\nMUCHAS GRACIAS.','',0,'gA==','2r7el8v6',1,0,'',533,0,0),(29294,6516,6,53,0,'189.139.11.235',1175533738,1,0,1,1,1,1,'','','Susy:\n\nSi entiendo bien, el problema no es de la clase BTNGET, creo que debes buscarle en la ruitna de la busqueda incremental que estas usando.\n\nSaludos, Armando','',0,'gA==','27sgz3wr',1,0,'',53,0,0),(29295,6563,2,235,0,'201.151.70.15',1175535704,1,0,1,1,1,0,'','ME PODRIAN EXPLICAR LA DIFERENCIA ENTRE CMSAY E INCHSAY','Y CUAL ES EL MAS CONVENIENTE PARA USAR.\n\nDE ANTEMANO MUCHAS GRACIAS','',0,'gA==','2xzo4gac',1,0,'',235,0,0),(29296,6542,6,439,0,'200.125.36.14',1175538150,1,0,1,1,1,1,'','','Gracias Antonio, creo que ya quedó bien claro.','',0,'gA==','260y4bsh',1,0,'',439,0,0),(29297,6564,6,898,0,'200.206.202.17',1175538261,1,0,1,1,1,0,'','Problema com o Ç ou outros acentos com teclado ABNT2','E ae pesosal, estou usando a versão do FiveWin 6.12, esta com um problema aqui e ao que tudo indica ocorre apenas quando o teclado é o ABNT2, quando eu teclo por exemplo Ç, ou utilizo um acento , como : á é ó ã, alem de escrever o acento, o get para de receber outras teclas, eu tenho de sair e entrar no get para voltar a funcionar (Sem acento).\n\n\nAlguem tem alguma idéia??\n\n\n[]s!!','',0,'','3jj85c2d',1,0,'',898,0,0),(29298,6532,2,890,0,'200.24.110.196',1175539370,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:hur2pcnf]Jairo,\n\nPor favor muestra el PRG de como creas el listbox (browse)[/quote:hur2pcnf]\n\nCon gusto Antonio este es el tramo del codigo, y de antemano muy agradecido.\n  //-----------------------------------------------------------//\n\nDEFINE DIALOG oDlg RESOURCE \"Browse\" TITLE \"Busqueda por Operaciones\" \nREDEFINE SAY oSay PROMPT Clientes-&gt;Placa ID 88 OF oDlg UPDATE\n\nSEEK( Clientes-&gt;Placa)\nREDEFINE LISTBOX oBrw  FIELDS Clientes-&gt;Placa, operaciones-&gt;FechaSal,;\noperaciones-&gt;descrip,operaciones-&gt;Cantidad,Operaciones-&gt;Carga;\nHEADERS \"Placa\",\"Facha\",\"Descripcion\",\"Cantidad\",\"Refrigerante\";\nID 195 OF oDlg ALIAS \"operaciones\";\nselect  operaciones-&gt;Placa for Clientes-&gt;placa UPDATE \n// oBrw : autoedit = .T.\nactivate dialog oDlg CENTERED\n\n//--------------------------------------------------------------------------//\n\nRETURN found()\n\nNote la forma que coloque tu sugerencia, aunque como puedes ver esta inhabilitado.\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','hur2pcnf',1,0,'',890,0,0),(29299,6563,2,2,0,'87.218.146.118',1175540361,1,0,1,1,1,1,'','','Gerardo,\n\nCmSay() es en centímetros y InchSay() es en pulgadas. \n\nEn España lo más habitual es centímetros','',0,'gA==','85dgdl28',1,0,'',2,0,0),(29300,6565,3,35,0,'167.7.140.254',1175545105,1,0,1,1,1,0,'','How to set up and Use an Access database','To All\n\nI have the need to setup and use an Access database .. here is my netuse function for DBFCDX  .. what needs to change in order to use an Access database ??\n\nThanks\nRick Lipkin\nSC Dept of Health, USA\n\n\nREQUEST DBFCDX\nrddsetdefault ( \"DBFCDX\" )\n...\n...\n\n\n//-------------------------------\nfunc NETUSE( CDATABASE, LOPENMODE, NSECONDS )\n\nLOCAL FOREVER, RESTART, WAIT_TIME, YESNO\n\nRESTART = .T.\nFOREVER = ( NSECONDS = 0 )\nYESNO := {\"Yes\" , \"No\"}\n\nDO WHILE RESTART\n\n   WAIT_TIME = NSECONDS\n\n   DO WHILE ( FOREVER .OR. WAIT_TIME &gt; 0 )\n      \n      IF LOPENMODE\n         USE ( CDATABASE ) via \"DBFCDX\" EXCLUSIVE\n      ELSE\n         USE ( CDATABASE ) via \"DBFCDX\" SHARED\n      ENDIF\n      \n      IF .NOT. NETERR()\n         RETURN(.T.)\n      ENDIF\n      INKEY(1)\n      WAIT_TIME--\n      \n   ENDDO\n   \n   * lock failed, ask to continue\n   \n   IF MsgYesNo( \"Cannot lock \" + CDATABASE + \", retry ?\" )\n   ELSE\n      EXIT\n   ENDIF\n\nENDDO\n\nRETURN(.F.)','',0,'gA==','woyvb786',1,0,'',35,0,0),(29301,6536,6,2,0,'87.218.146.118',1175546442,1,0,1,1,1,1,'','','Adolfo,\n\nAqui está:\n\n[url=http&#58;//imageshack&#46;us:1e0dbw6a][img:1e0dbw6a]http&#58;//img502&#46;imageshack&#46;us/img502/6936/fivepowergm5&#46;gif[/img:1e0dbw6a][/url:1e0dbw6a]\n\nGracias a un buen amigo que lo ha diseñado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','1e0dbw6a',1,0,'',2,0,0),(29302,6566,3,2,0,'87.218.146.118',1175546548,1,0,1,1,1,1,'','FiveWin powered','Here you have a FiveWin powered logo just in case you want to give FiveWin some credits in your apps <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:1ewxd3ed][img:1ewxd3ed]http&#58;//img502&#46;imageshack&#46;us/img502/6936/fivepowergm5&#46;gif[/img:1ewxd3ed][/url:1ewxd3ed]','',0,'GA==','1ewxd3ed',1,0,'',2,0,0),(29303,6564,6,362,0,'200.168.52.156',1175548459,1,0,1,1,1,1,'','Re: Problema com o Ç ou outros acentos com teclado ABNT2','[quote=&quot;Rodrigo Pavan&quot;:iu6j9s78]E ae pesosal, estou usando a versão do FiveWin 6.12, esta com um problema aqui e ao que tudo indica ocorre apenas quando o teclado é o ABNT2, quando eu teclo por exemplo Ç, ou utilizo um acento , como : á é ó ã, alem de escrever o acento, o get para de receber outras teclas, eu tenho de sair e entrar no get para voltar a funcionar (Sem acento).\n\n\nAlguem tem alguma idéia??\n\n\n[]s!![/quote:iu6j9s78]\n\n\n[code:iu6j9s78]\n\n\n#Include &quot;FiveWin&#46;Ch&quot;\n#Include &quot;Directry&#46;ch&quot;\n#Include &quot;Objects&#46;Ch&quot;\n\nREQUEST HB_LANG_PT\nREQUEST HB_CODEPAGE_PT850\n\nSTATIC oWnd\n\nFUNCTION Main&#40;&#41;\n\n    //-&gt;Defaults da Lingua Portuguesa do &#91;x&#93;Harbour\n    HB_LANGSELECT&#40; \'PT\' &#41;         // Default language is now Portuguese\n    //-&gt;Como indexar corretamente campos acentuados Harbour/xHarbour\n    //-&gt;Este recurso e valido para Harbour e xHarbour e requer a biblioteca\n    //-&gt;CODEPAGE&#46;LIB&#46;\n    HB_SETCODEPAGE&#40; &quot;PT850&quot; &#41;\n\n[/code:iu6j9s78]','',0,'gIA=','iu6j9s78',1,0,'',362,0,0),(29304,6563,2,235,0,'201.151.70.15',1175548554,1,0,1,1,1,0,'','','Gracias Antonio.\n\nMi pregunta fue porque elabore un reporte usando InchSay, pero al usarlo en una impresora de inyeccion de tinta lo imprime bien pero al llevarlo a una impresora laser cambia.\n\npor eso fue mi pregunta, y hace tiempo vi que RF comento que mejor se deberia de usar el cmsay.\n\nahora mi pregunta es como obtengo la resolucion de las impresoras para evitar este \"error\" \n\nDe antemano muchas gracias','',0,'gIA=','28wjurx1',1,0,'',235,0,0),(29305,6567,3,63,0,'83.49.110.35',1175549706,1,0,1,1,1,0,'','Can change the caption of TButton &quot;on the fly&quot;?','Can the caption of a Button be changed at runtime?.  This example just does not do anything:\n[code:1egkle3l]\n#include &quot;Ficewin&#46;ch&quot;\nFunction Main&#40;&#41;\nDefine Window ownd from 0,0 to 200,200 pixel\n@ 10,10 Button oBtn Prompt &quot;Hello&quot; size 60,20 pixel of ownd action Change&#40;oBtn&#41;\nActivate window oWnd\nReturn Nil\n\nFunction Change&#40;oBtn&#41;\noBtn&#58;cCaption &#58;= &quot;Bye&quot;\noBtn&#58;Refresh&#40;&#41;\nReturn nil[/code:1egkle3l]\nThanks\nRafael','',0,'AIA=','1egkle3l',1,0,'',63,0,0),(29306,6568,6,63,0,'83.49.110.35',1175549870,1,0,1,1,1,0,'','Puede cambiarse el prompt de un Button en run time?','Pues eso: Es posible cambiar el texto de un botón durante la ejecución del programa.  Este ejemplo no hace nada:\n[code:g6cb6hwe]\n#include &quot;Fivewin&#46;ch&quot; \nFunction Main&#40;&#41; \nDefine Window ownd from 0,0 to 200,200 pixel \n@ 10,10 Button oBtn Prompt &quot;Hello&quot; size 60,20 pixel of ownd action Change&#40;oBtn&#41; \nActivate window oWnd \nReturn Nil \n\nFunction Change&#40;oBtn&#41; \noBtn&#58;cCaption &#58;= &quot;Bye&quot; \noBtn&#58;Refresh&#40;&#41; \nReturn nil\n[/code:g6cb6hwe]\nAgradeceré cualquier sugerencia.  Un saludo,\n\nRafael','',0,'AIA=','g6cb6hwe',1,0,'',63,0,0),(29307,6567,3,6,0,'82.55.208.200',1175550191,1,0,1,1,1,1,'','Re: Can change the caption of TButton &quot;on the fly&quot;','[code:jup0muoo]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oBtn\n\n    DEFINE DIALOG oDlg\n\n    @ 3, 1 BUTTON oBtn;\n           PROMPT &quot;&amp;Original&quot;;\n           ACTION oBtn&#58;SetText&#40; &quot;Changed&quot; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:jup0muoo]\n\nEMG','',0,'AIA=','jup0muoo',1,0,'',6,0,0),(29308,6565,3,6,0,'82.55.208.200',1175550503,1,0,1,1,1,1,'','Re: How to set up and Use an Access database','Do you want to use an RDD or directly via OLE?\n\nEMG','',0,'AIA=','22cowz0i',1,0,'',6,0,0),(29309,6568,6,72,0,'189.146.238.196',1175552363,1,0,1,1,1,0,'','','oBtn:SetText(\"&amp;Bye\")','',0,'AIA=','1z3dzfll',1,0,'',72,0,0),(29310,6569,3,2,0,'87.218.146.118',1175552420,1,0,1,1,1,1,'','RichEdit with Embedded images in FWH 7.04','In a few days FWH 7.04 will be released and one of the nicest new features is the ability to use embedded images into the richedit control:\n\n[url=http&#58;//imageshack&#46;us:3jnst57i][img:3jnst57i]http&#58;//img113&#46;imageshack&#46;us/img113/835/richedityy1&#46;png[/img:3jnst57i][/url:3jnst57i]\n\n[url=http&#58;//imageshack&#46;us:3jnst57i][img:3jnst57i]http&#58;//img441&#46;imageshack&#46;us/img441/5329/richedit2ja1&#46;png[/img:3jnst57i][/url:3jnst57i]','',0,'GA==','3jnst57i',1,0,'',2,0,0),(29311,6570,6,2,0,'87.218.146.118',1175552558,1,0,1,1,1,1,'','RichEdit con imágenes insertadas en FWH 7.04','En sólo unos dias FWH 7.04 estará disponible y una de las nuevas capacidades más llamativas es la habilidad de usar imágenes insertadas en el control richedit:\n\n[url=http&#58;//imageshack&#46;us:1ufkt12q][img:1ufkt12q]http&#58;//img113&#46;imageshack&#46;us/img113/835/richedityy1&#46;png[/img:1ufkt12q][/url:1ufkt12q]\n\n[url=http&#58;//imageshack&#46;us:1ufkt12q][img:1ufkt12q]http&#58;//img441&#46;imageshack&#46;us/img441/5329/richedit2ja1&#46;png[/img:1ufkt12q][/url:1ufkt12q]','',0,'GA==','1ufkt12q',1,0,'',2,0,0),(29312,6555,3,930,0,'82.171.95.180',1175552822,1,0,1,1,1,0,'','','Oke, I think I found it.\nWhen using the function as follows\n HtmlHelpPopup(0, \"d:\\turboint\\help\\tvwinint.chm\", 0, \"idh_introduction.htm\") it works, BUT not always. It randomly GPF\'s.\nHas anybody why these random GPF\'s occur?\n\nRegards,\nStephan','',0,'GA==','aa0h5umn',1,0,'',930,0,0),(29313,6543,3,69,0,'74.13.37.86',1175553415,1,0,1,1,1,0,'','','Success  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThanks Antonio,  it is now working.\n\n\nJeff','',0,'GA==','8na8ocgv',1,0,'',69,0,0),(29314,6536,6,72,0,'189.146.238.196',1175553420,1,0,1,1,1,0,'','','Ya está agregado en:  Acerca de...','',0,'GA==','2rpfvsmu',1,0,'',72,0,0),(29315,6555,3,2,0,'87.218.146.118',1175553508,1,0,1,1,1,1,'','','Stephan,\n\nWe have tested HTMLHelp(0, \"d:\\turboint\\help\\tvwinint.chm\", 2, nTopic) \nand it GPFs both in XP and Vista <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nIts difficult to know why as we are invoking an OCX (as a DLL) function\n\nmaybe we should try a direct call implementing a C wrapper instead of using DLL FUNCTION command','',0,'GA==','2ws4hza3',1,0,'',2,0,0),(29316,6559,3,996,0,'70.58.66.18',1175553956,1,0,1,0,1,0,'','','Thanks so much Antonio, that looks fantastic!  \n\n-Patrick','',0,'GA==','2catqy39',1,0,'',996,0,0),(29317,6555,3,930,0,'82.171.95.180',1175555177,1,0,1,1,1,0,'','','Thanks ANtonio. Would be most welcome if you could find a solution for this problem\n\nRegards,\nStephan','',0,'GA==','280o5d2z',1,0,'',930,0,0),(29318,6555,3,930,0,'82.171.95.180',1175557257,1,0,1,1,1,0,'','','Antonio,\n\nin the C:\\BCC55\\INLUDE I found htmlhelp.h.\nCould this file be of any help to find another solution?\n\nRegards,\nStephan','',0,'GA==','2q3fd8m6',1,0,'',930,0,0),(29319,6566,3,54,0,'189.132.101.92',1175558081,1,0,1,1,1,1,'','Re: FiveWin powered','[quote=&quot;Antonio Linares&quot;:11nps5id]Here you have a FiveWin powered logo just in case you want to give FiveWin some credits in your apps <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:11nps5id][img:11nps5id]http&#58;//img502&#46;imageshack&#46;us/img502/6936/fivepowergm5&#46;gif[/img:11nps5id][/url:11nps5id][/quote:11nps5id]\n\nAntonio, que excelente idea.\n\nCuando podremos descargar la imagen?','',0,'mA==','11nps5id',1,0,'',54,0,0),(29320,6566,3,2,0,'87.218.146.118',1175560643,1,0,1,1,1,1,'','','William,\n\nJust right click on it and select save as... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'mA==','e40k1erj',1,0,'',2,0,0),(29321,6565,3,35,0,'65.188.6.143',1175576146,1,0,1,1,1,0,'','','Enrico\n\nI am wanting to open a access database with multiple tables within the database .. I was not aware of an RDD for Access .. but an RDD would be the best solution .. otherwise as you suggest .. perhaps OLE or maybe ODBC .. I will need to manipulate records and append and edit information.\n\nThanks\nRick Lipkin','',0,'mA==','34yb6d7j',1,0,'',35,0,0),(29322,6485,6,95,0,'189.155.160.148',1175577798,1,0,1,1,1,0,'','','Antonio.\n\nCuando creo la app, desde build.sh y esta se ejecuta, la funcion curdir() me devuelve bin, pero si dicha app, la corro desde el \"explorer\" de mac, me devuelve vacio.\n\nejemplo \n\nprocedure main\n  msginfo( curdir() )\nreturn\n\nSaludos\nOsvaldo Ramirez','',0,'mA==','1hlcigec',1,0,'',95,0,0),(29323,6571,6,413,0,'194.106.16.43',1175578467,1,0,1,1,1,1,'','Windows Vista X64 Ultimate y Fivewin.','Hola Antonio, estoy pensando en meterme en el tema del Vista y he visto varios mensajes tuyos en el que dices que estas utilizando el Windows Vista x64 Ultimate, y queria preguntarte si este sistema no da muchos problemas pues he leido que da problemas con  los drivers puesto que tienen que estar certificados. Y ademas ¿No es solo para 64 bits?, de ahi la diferencia entre X86 y X64, lo digo pues me gustaria ya empezar con algo que no me de problemas, ¿Cual instalo?. Ademas te solicito consejo, tengo un G3 en casa desde hace unos 6 años y nunca me ha dado problemas, pero como he visto que tu has hecho pruebas con MAC en intel e incluso has aconsejado el WMWARE para realizar pruebas con varios sistemas y hoy en un mensaje en el foro ingles veo que haces lo contrario desde un mac ejecutas la emulacion en windows Vista o almenos eso me parece. Me gustaria que me dieras consejo de por donde empezar a realizar un proceso de modernizacion a los equipos de desarrollo que tengo. Tengo la posibilidad ahora de adquirir una maquina nueva para emprender este proceso de modernizacion ... Resumiendo que instalo\n\nVISTA x64 ultimate + WMWARE + OSX, LINUX ...\nVISTA x86 ... \no mejor hago las pruebas de OSX en el G3.','',0,'mA==','80mn1hmo',1,0,'',413,0,0),(29324,6565,3,6,0,'87.17.218.36',1175583659,1,0,1,1,1,1,'','','This is an OLEDB sample to copy a field from a DBF to an MDB:\n\n[code:1um8rjdc]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oRS\n\n    USE CLIENTI\n\n    oRS = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRS&#58;Open&#40; &quot;SELECT * FROM Clienti&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=clienti&#46;mdb&quot;, 0, 3 &#41;\n\n    WHILE !EOF&#40;&#41;\n        oRS&#58;AddNew&#40;&#41;\n\n        oRS&#58;Fields&#40; &quot;Cliente&quot; &#41;&#58;Value = FIELD -&gt; cliente\n\n        oRS&#58;Update&#40;&#41;\n\n        SKIP\n    ENDDO\n\n    oRS&#58;Close&#40;&#41;\n\n    CLOSE\n\n    RETURN NIL[/code:1um8rjdc]\n\nEMG','',0,'AIA=','1um8rjdc',1,0,'',6,0,0),(29325,6488,6,92,0,'80.33.133.32',1175584741,1,0,1,1,1,0,'','','Hola a todos,\n\nhace días que empecé a revisar/modificar TDBF, y ya consigo utilizarla aún sin eliminar TIndex de Fivewin.\n\nCreo que el método Clone() es erróneo para la versión actual de Harbour, me explico.\n\nEste método realiza:\n\n        oClon:aTField := __objClone( oDb:aTField )\n        oClon:aTIndex := __objClone( oDb:aTIndex )\n        #else\n        oClon:aTField := oClone( oDb:aTField )\n        oClon:aTIndex := oClone( oDb:aTIndex )\n\n\nclonando en realidad unas ARRAYs de objetos.\n\nPor tanto debería realizarse un Aclone() y posteriormente un Oclone() de cada elemento de la nueva ARRAY.\n\nSaludos.\nCarlos G.','',0,'AIA=','2mjeftty',1,0,'',92,0,0),(29326,6567,3,63,0,'83.49.110.35',1175585073,1,0,1,1,1,0,'','','Enrico:\nThank you once more!!!\nRafael','',0,'AIA=','1udhs7fe',1,0,'',63,0,0),(29327,6568,6,63,0,'83.49.110.35',1175585312,1,0,1,1,1,0,'','','Muchas gracias, Alfredo!!!\nRafael','',0,'AIA=','1e75xewg',1,0,'',63,0,0),(29328,6572,3,154,0,'151.21.75.120',1175586410,1,0,1,1,1,1,'','Exe version','Hi all,\ni define this file: [code:pvmzyxiz]/****************************************************************************\n\n\nMyTestFile&#46;rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n#define __HARBOUR__\n\n1 24 &quot;\\Work\\XPStyle\\WindowsXP&#46;Manifest&quot;\n\n1 VERSIONINFO\nFILEVERSION 7, 4, 3, 0\nPRODUCTVERSION 7, 4, 3, 0\n&#123;\n BLOCK &quot;StringFileInfo&quot;\n &#123;\n  BLOCK &quot;040904E4&quot;\n  &#123;\n   VALUE &quot;Author&quot;, &quot;MyAuthorName\\000&quot;\n   VALUE &quot;CompanyName&quot;, &quot;MyCompanyName\\000&quot;\n   VALUE &quot;FileDescription&quot;, &quot;MyFileDescription\\000&quot;\n   VALUE &quot;FileVersion&quot;, &quot;7&#46;4&#46;3&#46;0\\000&quot;\n   VALUE &quot;InternalName&quot;, &quot;MyInternalName\\000&quot;\n   VALUE &quot;LegalCopyright&quot;, &quot;\\251 MyName 2004-2007\\000&quot;\n   VALUE &quot;ProductName&quot;, &quot;MyProduct\\000&quot;\n   VALUE &quot;ProductVersion&quot;, &quot;7&#46;4&#46;3&#46;0\\000&quot;\n   VALUE &quot;OriginalFilename&quot;, &quot;MyFile&#46;exe\\000&quot;\n   VALUE &quot;PrivateBuild&quot;,&quot;\\000&quot;\n   VALUE &quot;SpecialBuild&quot;,&quot;\\000&quot;\n  &#125;\n &#125;\n BLOCK &quot;VarFileInfo&quot;\n &#123;\n  VALUE &quot;Translation&quot;, 1033, 1252\n &#125;\n&#125;[/code:pvmzyxiz]\nis possible to retrieve the value at runtime? how?\nthere are other values to insert? \nwhere I can find documentation?','',0,'AIA=','pvmzyxiz',1,0,'',154,0,0),(29329,6573,20,344,0,'80.18.221.53',1175587959,1,0,1,1,1,0,'','Bug Tracking','Qualcuno conosce un prodotto semplice per la gestione del Bug Tracking possibilmente Web e su piattaforma Windows.\nGrazie\nRiccardo','',0,'AIA=','2f2f9mob',1,0,'',344,0,0),(29330,6571,6,2,0,'87.218.146.118',1175588052,1,0,1,1,1,1,'','','Andrés,\n\nEl ordenador que te recomendamos, que es el que nosotros usamos, tienes que construirlo con los siguientes componentes:\n\nPlaca madre: Asus P5LD2-VM Revisión 2.0\nProcesador: Intel Core2 E6600 2400\n\nTiene que ser esa placa madre en concreto y no otra. Ya te explicaremos el por que. Si lo necesitas, podemos indicarte donde puedes comprarla por Internet. No es cara, alrededor de 90 euros sólo.\n\nEl procesador te costará 300 euros, original de Intel y con el ventilador propio de Intel.\n\nEn cuanto a la memoria, te aconsejamos Kingston 667, 1 giga ó 2 mejor. Tiene que ser DDR2.\n\nLa tarjeta gráfica va incorporada en la placa madre, es de IBM, la GMA950, por lo que no necesitas comprar ninguna. El ordenador te costará unos 500 euros aproximadamente y es extraordinario <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi tienes dudas, llámanos por teléfono al 952 83 95 77 y te explicaremos por que ese ordenador es el que necesitas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','wz60uoe6',1,1175588817,'',2,1,0),(29331,6574,3,344,0,'80.18.221.53',1175588146,1,0,1,1,1,0,'','Bug Tracking','Anyone know a simple software to manage the Bug Tracking, possibly on Web and Windows platform.\nThank you\nRiccardo','',0,'AIA=','29ce21pe',1,0,'',344,0,0),(29332,6571,6,2,0,'87.218.146.29',1175588629,1,0,1,1,1,1,'','','En cuanto a Vista, la versión x64 es de 64 bits y te permite ejecutar aplicaciones de 32 bits perfectamente. Funciona realmente bien en el ordenador que te hemos indicado.\n\nLo que no te permite es ejecutar aplicaciones de 16 bits, pero eso tampoco es ningún problema, ya que hay formas de hacerlo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3ceifk5l',1,0,'',2,0,0),(29333,6485,6,2,0,'87.218.146.29',1175588981,1,0,1,1,1,1,'','','Osvaldo,\n\nya hemos reportado el asunto del CurDir() a la lista de desarrollo de Harbour, ya que es algo específico de Harbour y no de FiveMac.\n\nEl \"explorer\" de OSX se llama \"Finder\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','354iz89p',1,0,'',2,0,0),(29334,6563,2,2,0,'87.218.146.29',1175589582,1,0,1,1,1,1,'','','Usa CmSay() y no tienes que preocuparte de la resolución de la impresora <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2hv2ltm8',1,0,'',2,0,0),(29335,6566,3,54,0,'189.132.101.92',1175591218,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3or6dqyw]William,\n\nJust right click on it and select save as... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3or6dqyw]\n\nSorry.\n\nI down now','',0,'gA==','3or6dqyw',1,0,'',54,0,0),(29336,6566,3,2,0,'87.218.146.29',1175591428,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:29jx09b4][img:29jx09b4]http&#58;//img85&#46;imageshack&#46;us/img85/1948/picture1kx9&#46;png[/img:29jx09b4][/url:29jx09b4]','',0,'GA==','29jx09b4',1,0,'',2,0,0),(29337,6574,3,217,0,'200.159.120.34',1175601280,1,0,1,1,1,0,'','Re: Bug Tracking','Riccardo,\n\nI don\'t know if is what you want but you can try FogBugz:\n<!-- m --><a class=\"postlink\" href=\"http://www.fogcreek.com/FogBugz/\">http://www.fogcreek.com/FogBugz/</a><!-- m -->\n\nRegards,\nMaurilio','',0,'GA==','3e81oa9u',1,0,'',217,0,0),(29338,6530,3,217,0,'200.159.120.34',1175601441,1,0,1,1,1,0,'','','I tryed but text are not displayed in correct position <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nRegards\nMaurilio','',0,'GA==','3rdflqhj',1,0,'',217,0,0),(29339,6536,6,105,0,'200.72.140.34',1175602818,1,0,1,1,1,1,'','','ERRRRRRCELENTE ::!!!!\n\nTa\' mu\' bonito....\n\nAgregado....','',0,'GA==','30a1r7h2',1,0,'',105,0,0),(29340,6571,6,413,0,'194.106.16.43',1175603694,1,0,1,1,1,1,'','','Gracias Antonio, ahora ya es un poco tarde para mi pero te llamo mañana.','',0,'GA==','1222v8qo',1,0,'',413,0,0),(29341,6571,6,413,0,'194.106.16.43',1175603901,1,0,1,1,1,1,'','','Nunca me habia fijado pero el reloj del mensaje no coincide con el de mi ordenador hay unas dos horas de diferencia es normal.','',0,'GA==','1cemir62',1,0,'',413,0,0),(29342,6530,3,89,0,'213.21.136.60',1175603945,1,0,1,1,1,0,'','','Hello Maurilio\nI use it \n  \n  @ 1 ,2 BTNBMP  oBtn OF oDlg SIZE 40 ,40\n  oBtn:cCaption := \"Test in button\"\n\n[img][url=http&#58;//imageshack&#46;us:32oddo6e][img]http://img142.imageshack.us/img142/5164/immaginemd1.jpg[/img][/url:32oddo6e][/img]','',0,'GA==','32oddo6e',1,0,'',89,0,0),(29343,6373,3,32,0,'168.209.98.42',1175603996,1,0,1,1,1,0,'','Wrappers','Hi,\n\nPlease send to <!-- e --><a href=\"mailto:aschaft@gmail.com\">aschaft@gmail.com</a><!-- e --> too please.\n\nIf it\'s not too big, I\'ll put it on our website\n\nAlex','',0,'GA==','2srx55vb',1,0,'',32,0,0),(29344,6575,6,64,0,'201.72.124.2',1175605122,1,0,1,1,1,1,'','Error mui estranho con xp.manifest. Antonio Linares.!!!','hola,\n\nEstoy con un error muy extraño en xp.Manifest, si uso el xplook.res y yo ordenamos para imprimir con el preview, algunos informes dan GPF (no muestra ningún error, solamente aborta el sistema). El mismo informe sin el xplook.res trabajan 100 %, si uso el xplook y ordeno para imprimir directamente para la impresora (sin el preview) trabajan 100% tambien.\n\n¿Alguien ya se ir por eso?\n\nEstoy usando la version 7.01 del Fivewin FWH + xBuild 0.99.71\n\nGracias.','',0,'GA==','30ccghi9',1,0,'',64,0,0),(29345,6523,3,909,0,'75.177.72.230',1175605423,1,0,1,1,1,1,'','','Antonio - \nDo you have any ideas about creating multiline folders with tfolder?  I use Resource workshop to create folders and enter \"SysTabControl32\" rather than tfolder as the class.  Then I save the dll to a RC file and compile it with my exe.  \nI use the tfolder coding in my prg.   \n\nAny help will be greatly appreciated.\n\nCharles','',0,'GA==','2hj9ents',1,0,'',909,0,0),(29346,6571,6,2,0,'87.218.146.198',1175606359,1,0,1,1,1,1,'','','Andrés,\n\nOk, espero tu llamada <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEl reloj es por la franja horaria de cada pais. Nosotros estamos en UTC+1, si no me equivoco','',0,'GA==','2iq6x598',1,0,'',2,0,0),(29347,6483,7,95,0,'189.155.160.148',1175610680,1,0,1,1,1,0,'','','Miguel \n\n1.- Lenguage de programacion harbour para Pocket PC\n     ( este te convierte a codigo de el cual se compila en VCE )\n2.- Libreria para Graficos FiveWin para Pocket PC\n\nPara Navegar desde tu pc el la memoria del la MC1000\n\n3.- Bajar el SDK de Symbol para dicha terminal\n    (Desde luego instalarlos)\n\n4.- Bajar el ActiveSync de Microsoft\n\n5.- Conectar el cargador o cradle via USB a tu PC y lo reconoce\n\nEn tu PC, haces tus programas, compilas y generas los exe para luego copiarlos a tu terminal donde los vas a ejecutar\n\nLo que se me hico laborioso en la MC1000 es que se batalla para activar el menu de windows y el teclado numerico que trae no ayuda mucho.\nYa que esta terminal no es touch screen, si es batallar.\n\nBEETPEM\n( Bueno Eso Es Todo Por El Momento )\nSaludos\nOsvaldo Ramirez','',0,'GA==','38zuibow',1,0,'',95,0,0),(29348,6555,3,930,0,'137.224.252.10',1175610998,1,0,1,1,1,0,'','','The problem is that VISTA does not support classic help (.HLP) anymore, so we will have to change to Html Help. \nAny suggestion to fix this problem is welcome.\n\nRegards,\nStephan','',0,'GA==','19eeac1h',1,0,'',930,0,0),(29349,6576,6,937,0,'200.76.200.83',1175611901,1,0,1,1,1,0,'','Se pueden ejecutar Archivos .gif','Que tal a todos..!\n\nMi pregunta es si de pueden ejecutar arhivos .gif como iconos animados..?\n\nO alguna otra opcion..?\n\nGracias...\nSalu2..\n\nAlejandro Frausto\nGuadalajara, Jal\nMexico','',0,'GA==','10iwe12c',1,0,'',937,0,0),(29350,6560,6,940,0,'189.157.84.245',1175616266,1,0,1,1,1,1,'','','Con la tprinter es facil,,\n\nte adjunto, 2 funciones, para dibujar cajas o lineas \n\ncualquier comentario,  \n\naqui andamos.\n\n\nfunction _dibujaCuadro(nLinInicial, nColInicial, nLinFinal, nColFinal, oPrn, oPen)\n   oPrn:Cmtr2Pix(@nLinInicial, @nColInicial)\n   oPrn:cmtr2Pix(@nLinFinal, @nColFinal)\n   oPrn:Box(nLinInicial, nColInicial, nLinFinal, nColFinal, oPen  )\nreturn (.T.)\n\nfunction _dibujaLinea(nRen, nColInicial,nColFinal,oPrn, oPen)\n   local nRen1,nRen2\n   default nColInicial := 1\n   default nColFinal := 20.5\n   nren1 := oPrn:cmtr2pix(nRen,nColInicial)\n   nren2 := oPrn:cmtr2pix(nRen,nColFinal)\n   oPrn:line(nren1[1],nren1[2],nren2[1],nren2[2],oPen)\nreturn (.T.)\n\n<!-- m --><a class=\"postlink\" href=\"http://sysctrl.sytes.net/tprinterimg.jpg\">http://sysctrl.sytes.net/tprinterimg.jpg</a><!-- m -->\n[/url]','',0,'','25v1osks',1,0,'',940,0,0),(29351,6530,3,217,0,'200.159.120.34',1175616790,1,0,1,1,1,0,'','','Maurizio,\n\nI tryed to place the text centered in bottom of button. But without success (yet). I\'ll continue trying. Or wait for Antonio because whatsnew.txt of near FWH says that multiline was added in tbtnbmp class. I have recent build (2007/jan) but it don\'t work for me...\n\nThanks a lot!\nMaurilio','',0,'','1ov2u4j6',1,0,'',217,0,0),(29352,6547,6,940,0,'189.157.84.245',1175617170,1,0,1,1,1,1,'','','oExcel:End( .t.  )   // .t. cierra el xls   .f. lo deja read only\n   oExcel := NIL\n\n\nsaludos..','',0,'','3byf8o5g',1,0,'',940,0,0),(29353,6523,3,217,0,'200.159.120.34',1175617269,1,0,1,1,1,0,'','','Charles, \n\nAre you saying about this folder style?\n[url:10illpa4]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3556&amp;highlight=folder[/url:10illpa4]\n\nYou can download TFolder modified class from \n[url:10illpa4]http&#58;//geocities&#46;yahoo&#46;com&#46;br/qiinformatica2000/FOLDER&#46;ZIP[/url:10illpa4]\n\nModifications was made by Rossine\n\nRegards!\nMaurilio','',0,'EA==','10illpa4',1,0,'',217,0,0),(29354,6577,6,106,0,'85.34.123.173',1175617825,1,0,1,1,1,1,'','SCROLL con twbrowse de Hernán','Me puse a mirar por que motivo no me funcionan las barras de scroll con el TWBrowse modificado por Hernán (nunca me funcionó con la version a 32 bits) \n\nMe di cuenta que el problema esta acá: (mirando la twbrowse que viene de serie con FWH, en la que si funcionan las barras de scroll)\n\n[code:37jssvut]\nMETHOD VScroll&#40; nWParam, nLParam &#41; CLASS TWBrowse\n\n   local nLines &#58;= &#58;&#58;nRowCount&#40;&#41;\n   local nLen\n\n   local nScrollCode &#58;= nLoWord&#40; nWParam &#41; // pgf\n   local nPos        &#58;= nHiWord&#40; nWParam &#41; // pgf\n   local nScrHandle  &#58;= nLParam // pgf\n\n//  WriteInfoTXT&#40; &quot;1&#41; &quot; + ALLTRIM&#40; STR&#40; nWParam &#41; &#41; + &quot; nLParam&#58; &quot; + ALLTRIM&#40; STR&#40; nLParam &#41; &#41;, , &quot;VSCROLL&#46;TXT&quot;, &#46;T&#46; &#41;\n  nWParam &#58;= nScrollCode // pgf\n  nLParam &#58;= nPos // pgf\n//  WriteInfoTXT&#40; &quot;2&#41; &quot; + ALLTRIM&#40; STR&#40; nWParam &#41; &#41; + &quot; nLParam&#58; &quot; + ALLTRIM&#40; STR&#40; nLParam &#41; &#41;, , &quot;VSCROLL&#46;TXT&quot;, &#46;T&#46; &#41;\n\n\n   if GetFocus&#40;&#41; != &#58;&#58;hWnd\n      SetFocus&#40; &#58;&#58;hWnd &#41;\n   endif\n\n  IF nScrHandle == 0\n\n   do case\n      case nWParam == SB_LINEUP\n           &#58;&#58;GoUp&#40;&#41;\n\n      case nWParam == SB_LINEDOWN\n           &#58;&#58;GoDown&#40;&#41;\n\n      case nWParam == SB_PAGEUP\n           &#58;&#58;PageUp&#40;&#41;\n\n      case nWParam == SB_PAGEDOWN\n           &#58;&#58;PageDown&#40;&#41;\n\n      case nWParam == SB_TOP\n           &#58;&#58;GoTop&#40;&#41;\n\n      case nWParam == SB_BOTTOM\n           &#58;&#58;GoBottom&#40;&#41;\n\n      case nWParam == SB_THUMBPOSITION\n\n           if &#40; &#58;&#58;nLen &#58;= Eval&#40; &#58;&#58;bLogicLen &#41; &#41; &lt; 1\n              return 0\n           endif\n\n           if nLParam &lt;= 1 // CeSoTech  /// == 0\n              &#58;&#58;GoTop&#40;&#41;\n           elseif nLParam == &#58;&#58;oVScroll&#58;GetRange&#40;&#41;&#91; 2 &#93;\n              &#58;&#58;GoBottom&#40;&#41;\n           else\n\n              &#58;&#58;lHitTop = &#46;f&#46;\n              &#58;&#58;lHitBottom = &#46;f&#46;\n\n              // CeSoTech //\n\n              If &#58;&#58;bGoLogicPos != Nil // Si tiene soporte de ir a un nKeyNo\n\n                 CursorWait&#40;&#41;\n\n                 Eval&#40; &#58;&#58;bGoLogicPos, Int&#40; nLParam / 100 * &#58;&#58;nLen &#41; &#41;\n\n                 &#58;&#58;oVScroll&#58;SetPos&#40; _POSVSCROLL_ &#41;\n\n                 &#58;&#58;Refresh&#40;&#41;\n                 &#58;&#58;nRowPos&#58;= 1  // Para asegurarnos que vaya donde corresponde\n\n                 CursorArrow&#40;&#41;\n                 if &#58;&#58;bChange != nil\n                    Eval&#40; &#58;&#58;bChange, Self &#41;\n                 endif\n                 return 0\n\n              Else  // Lo por defecto de FW\n\n                 CursorWait&#40;&#41;\n                 &#58;&#58;Skip&#40; nLParam - &#58;&#58;oVScroll&#58;GetPos&#40;&#41; &#41;\n                 CursorArrow&#40;&#41;\n\n              EndIf\n           endif\n\n           &#58;&#58;oVScroll&#58;SetPos&#40; nLParam &#41;\n           \n           nLen = Eval&#40; &#58;&#58;bLogicLen &#41;\n           if nLParam - &#58;&#58;oVScroll&#58;nMin &lt; nLines\n              &#58;&#58;nRowPos = 1\n           endif\n           if &#58;&#58;oVScroll&#58;nMax - nLParam &lt; Min&#40; nLines, nLen &#41;\n              &#58;&#58;nRowPos = Min&#40; nLines, nLen &#41; - &#40; &#58;&#58;oVScroll&#58;nMax - nLParam &#41;\n           endif\n           &#58;&#58;Refresh&#40;&#41;\n           if &#58;&#58;bChange != nil\n              Eval&#40; &#58;&#58;bChange, Self &#41;\n           endif\n\n      otherwise\n           return nil\n   endcase\n\n  ENDIF\n\nreturn 0[/code:37jssvut]\n\n\nAhora me da un problema diferente, cuando hago click en la barra y voy al final, no me mueve al final, alguien tiene alguna idea?, solo a mi me pasa?, alguien me puede mandar la ultima version de twbrowse? o al menos el metodo que hace el scroll asi lo comparo con el que estoy modificando yo?\n\nEstoy usando la version 17 de twbrowse, uso FWH 2.7 y xHarbour  0.99.51 y por ahora no puedo actualizar de version, con los cambios que todo eso implica.\n\n\nGracias','',0,'AIA=','37jssvut',1,0,'',106,0,0),(29355,6555,3,3,0,'80.81.159.19',1175618111,1,0,1,1,1,1,'','','Stephan\n\nYou can download the appropriate dll from microsoft msdn to support help files\n\nIf you click on a hlp file under vista, you will be guided to the appropriate link. Then you can use all hlp files under vista.\n\nI have downloaded the file a month ago but i do not remember the link\n\nHTH\n\nRichard','',0,'AIA=','3nrlbudg',1,0,'',3,0,0),(29356,6488,6,92,0,'213.98.207.124',1175618696,1,0,1,1,1,0,'','TDBF','LOCAL oDb := oACachaza:Clone()  //Clonamos la base datos en \n\nPrueba con sustituir la línea anterior por esta otra:\n\n         LOCAL oDb := oACachaza:Clone( .T. )  //Clonamos la base datos en \n\nSi no me equivoco en la misma función, estás estableciendo un Scope a oDb y otro a oAcachaza cuando ambas tienen el mismo alias/área de trabajo (no me he fijado si hay más cosas).\n\nPor otro lado este es el metodo Clone() de Tdbf.prg modificado (sin optimizar) que utilizo con FWH 7.01 y parece que funciona correctamente:\n\nSaludos\n******************************\nMETHOD Clone( lNewArea, cComment ) CLASS TDbf\n\n    local oDb := Self\n    local oClon\n\n    DEFAULT lNewArea := .f.\n    DEFAULT cComment := ::cComment\n\n    if lNewArea\n        oClon := DbfServer( oDb:cFile )\n        oClon:New( oDb:cFile, oDb:cName, oDb:cRDD, cComment, oDb:cPath )\n        #ifdef __HARBOUR__\n\n        //oClon:aTField := __objClone( oDb:aTField )\n        //oClon:aTIndex := __objClone( oDb:aTIndex )\n\n        // 2 línias sustituyen 2 anteriores. CG\n        oClon:aTField := aclone( oDb:aTField )\n        oClon:aTIndex := aclone( oDb:aTIndex )\n\n        #else\n\n        //oClon:aTField := oClone( oDb:aTField )\n        //oClon:aTIndex := oClone( oDb:aTIndex )\n\n        // 2 línias sustituyen 2 anteriores. CG\n        oClon:aTField := aclone( oDb:aTField )\n        oClon:aTIndex := aclone( oDb:aTIndex )\n\n        #endif\n\n        oClon:FieldCount := len( oClon:aTField )\n        AEval( oClon:aTField, { |o| o:oDbf := oClon } )\n        AEval( oClon:aTIndex, { |o| o:oDbf := oClon } )\n        oClon:Activate( oDb:lRecycle, oDb:lShared, oDb:lReadOnly, oDb:lProtec )\n\n    else\n        #ifdef __HARBOUR__\n        oClon := __objClone( oDb )\n\n        //oClon:aTField := __objClone( oDb:aTField )\n        //oClon:aTIndex := __objClone( oDb:aTIndex )\n\n        // 2 línias sustituyen 2 anteriores. CG\n        oClon:aTField := aclone( oDb:aTField )\n        oClon:aTIndex := aclone( oDb:aTIndex )\n\n        #else\n        oClon := oClone( oDb )\n\n        //oClon:aTField := oClone( oDb:aTField )\n        //oClon:aTIndex := oClone( oDb:aTIndex )\n\n        // 2 línias sustituyen 2 anteriores. CG\n        oClon:aTField := aclone( oDb:aTField )\n        oClon:aTIndex := aclone( oDb:aTIndex )\n\n        #endif\n\n        oClon:cComment := cComment\n        AEval( oClon:aTField, { |o| o:oDbf := oClon } )\n        AEval( oClon:aTIndex, { |o| o:oDbf := oClon } )\n\n    endif\n\n    // Inicio líneas añadidas CG\n    oClon:AutoField()\n    AEval( oClon:aTField, { |o| o:Activate() } )\n    oclon:AutoIndex()\n    oClon:IdxActivate()\n    // Fin líneas añadidas CG\n\nreturn( oClon )\n******************************','',0,'AIA=','1946qbhi',1,0,'',92,0,0),(29357,6523,3,909,0,'75.177.72.230',1175620049,1,0,1,1,1,1,'','','Maurilio -\nThanks very much for your help.  I shall check it out.\n\nCharles','',0,'AIA=','3bv70zms',1,0,'',909,0,0),(29358,6578,6,533,0,'80.32.177.143',1175621352,1,0,1,1,1,0,'','Problema con xBrowse','Buenas Foro!!\n\nMirad, tengo un problema con el xBrowse. Tengo un array de datos con 4 columnas (codigo,apellidos,nombre,cif). Todo va perfecto. El único problema que tengo es que cuando por ejemplo ordeno por la columna apellidos y pulso sobre una tecla para hacer una busqueda incremental, la busqueda se realiza pero la fila de los encabezados  y la columna del cursor (1ª) se pone en blanco. Luego si pulso el cursor arriba o abajo no se refresca, pero si pulso sobre avance pagina o retroceso pagina, se refresca y se queda bien. \n\n¿Alguna solución?\n\nMUCHAS GRACIAS.','',0,'AIA=','z0lun9gk',1,0,'',533,0,0),(29359,6579,6,435,0,'200.155.200.155',1175624104,1,0,1,1,1,0,'','Criar um papel nas impressoras do Windows via FWH','Alguem sabe como criar um papel nas impressoras do Windows via FWH ?','',0,'AIA=','1yrn2j2b',1,0,'',435,0,0),(29360,6454,6,78,0,'190.40.241.192',1175624288,1,0,1,1,1,0,'','','Holas, si se le asigna la usuario el priviliegio &gt;\"files\", se puede usar la siguiente orden\n\n\"SELECT * INTO OUTFILE \'/BACKS/listado.txt\' FROM listado\"\n\ndonde listado.txt contendra la infoirmacion de la tabla listado en formato txt plano...\n\nSalu2','',0,'AIA=','3jv45nde',1,0,'',78,0,0),(29361,6537,6,2,0,'87.218.146.198',1175624877,1,0,1,1,1,1,'','','Ralph,\n\n&gt;\n1) Cuando escribo y presiono Enter para saltar la linea no pasa nada, debo presionar Ctrl_Enter para insertar una linea, es esto normal? \n\nPrueba samples/TestRtf.prg. En dicho ejemplo Enter funciona bien. No tendrás algun botón \"default\" que esté procesando la pulsación del enter ?\n\n&gt; 2) Como inserto un quiebre de pagina? \n\nEn unos dias publicaremos FWH 7.04 e incluye dicho método. \n\n&gt; 3) Es posible ajustar los margenes a la linea de acuerdo al ancho del papel? \n\nVamos a investigarlo,','',0,'AIA=','1ut8j9t7',1,0,'',2,0,0),(29362,6580,6,439,0,'200.125.33.112',1175625673,1,0,1,1,1,1,'','Bug en DBSeek()?','Si buscan consultas incluyendo la palabra DBSeek en este foro, verán que hay varias búsquedas que no han funcionado muchas han sido resueltas con búsquedas propias de objetos de FWH y otras pues..... no se que pasó porque no hay una solución.\n\nTodas tienen en común algo POR SUPUESTO usan DBSEEK.\n\nPues bien, creo que algo cambió en DBSeek desde los últimos builds, adjunto 2 exes de una mísma busqueda y su código que verán es sencillo, la compilada con fwh marzo 2006 funciona perfectamente la compilada con fwh 7.01 anda MAL!!, prueben escribiendo lentamente la palabra DISKETTE y verán a lo que me refiero.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?1junmnokzil\">http://www.mediafire.com/?1junmnokzil</a><!-- m -->\n\nPor favor confírmenme si no estoy equivocado porque traigo este dolor de cabeza desde diciembre, lo he consultado y .... sigo esperando.','',0,'AIA=','1324x65a',1,0,'',439,0,0),(29363,6581,3,439,0,'200.125.33.112',1175626036,1,0,1,1,1,1,'','Problems with DBSeek()','If you look for the word dbseek in the forum you will see many recent messages refering to errors in searches.\n\nThem all have in common the use of DBSEEK, of course, and many of them were resolved with searches of fwh objects or just not resolved.\n\nWhat I really believe is that this function doesnt work properly, and It was working properly in March 2006.\n\nIn this sample you can see a very simple search, you will see if you write \"DISKETTE\" in both searches that the one builded with FWH March 2006 work properly and the builded with FWH 7.01 does´nt work (6.12  is the same), source code is attached too.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?1junmnokzil\">http://www.mediafire.com/?1junmnokzil</a><!-- m --> \n\nPlease confirm me If I´m wright or wrong, and In both cases what can I do.\n_________________','',0,'AIA=','3bugrknr',1,0,'',439,0,0),(29364,6578,6,278,0,'164.77.219.82',1175630922,1,0,1,1,1,1,'','','Mike:\n\nPrueba con refrescar el xbrowse, Ej:\n\noBrw:Refresh()   ó SysRefresh() .\n\nSaludos,','',0,'AIA=','3gl7mf83',1,0,'',278,0,0),(29365,6480,6,435,0,'200.155.200.155',1175631766,1,0,1,1,1,0,'','','Por favor, también a mí por favor. \n\n<!-- e --><a href=\"mailto:foliene@sisrev.com.br\">foliene@sisrev.com.br</a><!-- e -->\n<!-- w --><a class=\"postlink\" href=\"http://www.sisrev.com.br\">www.sisrev.com.br</a><!-- w -->\n\nGracias\nAri','',0,'AIA=','271nbzvd',1,0,'',435,0,0),(29366,6578,6,456,0,'217.124.40.45',1175632375,1,0,1,1,1,1,'','','Prueba lo siguiente. En el metodo Seek de tXBrowse, busca la linea siguiente\n[code:a08pby5q]&#58;&#58;lRefreshOnlyData &#58;= &#46;T&#46;[/code:a08pby5q]\ny comentala \n[code:a08pby5q]//&#58;&#58;lRefreshOnlyData &#58;= &#46;T&#46;[/code:a08pby5q]\nEn este metodo aparece dos veces la linea, mismo procedimiento con la segunda, compila y prueba.','',0,'AIA=','a08pby5q',1,0,'',456,0,0),(29367,6580,6,36,0,'200.113.56.235',1175633684,1,0,1,1,1,0,'','','hola Jose\n\nAl parecer no es el dbSeek\n\nestoy viendo y el problema esta en la funcion \n      BusquedaInterna( oGetBusca, cKey, oDlg, @RetornaBusca, oLbx )\n\nprueba colocando esto y veras que repite la ultima letra\n\n[code:2up2y9gl]   IF PRODUCTO-&gt;&#40; DBSEEK&#40; ALLTRIM&#40;RetornaBusca&#41;, &#46;t&#46; &#41; &#41;\n       oSay&#58;VarPut&#40; &quot;&#91;NO&#93;&quot; + ALLTRIM&#40; RetornaBusca&#41;&#41;\n  ELSE\n   oSay&#58;VarPut&#40; &quot;&#91;SI&#93;&quot; + ALLTRIM&#40; RetornaBusca&#41;&#41;\n endif\n oSay&#58;refresh&#40;&#41;\n[/code:2up2y9gl]\n\nSaludos\nPatricio','',0,'AIA=','2up2y9gl',1,0,'',36,0,0),(29368,6556,1,69,0,'74.13.37.86',1175634190,1,0,1,1,1,0,'','','Thanks Otto / Antonio.\n\n\nJeff','',0,'AIA=','u6d0517o',1,0,'',69,0,0),(29369,6555,3,930,0,'137.224.245.157',1175634614,1,0,1,1,1,0,'','','Hi Richard,\n\nthanks for advice, but which dll are you pointing at? Is it htmlhelp.dll? Can you sent it to my? \nIf have search the web for that file but couldn\'t find it.\n\nThe frusting think is that this can work, at least it works with a small Xailer program I wrote. Both Xailer and FHW are build on xHarbour, so..\n\nRegards,\nStephan','',0,'AIA=','1otpicnm',1,0,'',930,0,0),(29370,6580,6,439,0,'200.125.40.98',1175634684,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:2rubanlo]hola Jose\n\nAl parecer no es el dbSeek\n\nestoy viendo y el problema esta en la funcion \n      BusquedaInterna( oGetBusca, cKey, oDlg, @RetornaBusca, oLbx )\n\nprueba colocando esto y veras que repite la ultima letra\n\n[code:2rubanlo]   IF PRODUCTO-&gt;&#40; DBSEEK&#40; ALLTRIM&#40;RetornaBusca&#41;, &#46;t&#46; &#41; &#41;\n       oSay&#58;VarPut&#40; &quot;&#91;NO&#93;&quot; + ALLTRIM&#40; RetornaBusca&#41;&#41;\n  ELSE\n   oSay&#58;VarPut&#40; &quot;&#91;SI&#93;&quot; + ALLTRIM&#40; RetornaBusca&#41;&#41;\n endif\n oSay&#58;refresh&#40;&#41;\n[/code:2rubanlo]\n\nSaludos\nPatricio[/quote:2rubanlo]\n\nAmigo, Si el problema está en la función como explicas que compilandolo con FWH Marzo 2006 FUNCIONA PERFECTAMENTE, y compilandolo con 7.01 funciona MAL, si fuera un error de la función ambos deberían funcionar mal.\n\nAdemás tengo otros puntos de diferentes programas que comenzaron a dar errores en las busquedas (simples DBSeeks) desde que compilé con 7.01.\n\nIncluso validaciones donde se busca en la base si la clave existe para evitar duplicaciones me están fallando.\n\nY no soy el único que al recompilar tuvo problemas.....\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5751\">http://fivetechsoft.com/forums/viewtopic.php?t=5751</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5125\">http://fivetechsoft.com/forums/viewtopic.php?t=5125</a><!-- m -->\n\nY si observan hay más casos y no he visto en el foro que hayan sido resueltos.\n\nY desde diciembre sigo esperando.......    ? ? ?\n\nLo que más me molesta es que vuelvo a trabajar con FWH Marzo 2006, cuando tengo 6.12 y 7.01.... y no tengo solución aún.....','',0,'gIA=','2rubanlo',1,0,'',439,0,0),(29371,6580,6,2,0,'87.218.146.198',1175642492,1,0,1,1,1,1,'','','Jose,\n\nDbSkeek() no es una función de FWH sino de Harbour/xHarbour. \n\nEs decir, si hay un problema con DbSkeek() hay que ver que build de Harbour/xHarbour se está usando, intentar reproducir un posible bug en modo texto (sin usar FWH) y reportarlo a la lista de desarrollo de Harbour/xHarbour.\n\nIntentemos construir un pequeño ejemplo que verifique la existencia ó no de un bug en DbSkeek(). Tambien es importante reconstruir los índices ante la duda de que se hayan podido corromper.','',0,'gIA=','74y4pqem',1,0,'',2,0,0),(29372,6580,6,439,0,'200.125.40.98',1175642687,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:o2pjfmky]Jose,\n\nDbSkeek() no es una función de FWH sino de Harbour/xHarbour. \n\nEs decir, si hay un problema con DbSkeek() hay que ver que build de Harbour/xHarbour se está usando, intentar reproducir un posible bug en modo texto (sin usar FWH) y reportarlo a la lista de desarrollo de Harbour/xHarbour.\n\nIntentemos construir un pequeño ejemplo que verifique la existencia ó no de un bug en DbSkeek(). Tambien es importante reconstruir los índices ante la duda de que se hayan podido corromper.[/quote:o2pjfmky]\n\nAntonio, Gracias\n\nVoy a hacer algo en modo consola y probar para ver de reporducir el error, lo que no se es como reportarlo a xHarbour.\nEstoy usando el Build que Uds. distribuyen con FWH .99.71, si consigo reporducir el error, me pondré en contacto por este medio intentando ver como lo reporto.\n\nGracias!!!!! por contestar.','',0,'gA==','o2pjfmky',1,0,'',439,0,0),(29373,6582,3,69,0,'74.13.37.86',1175642743,1,0,1,1,1,0,'','Excel Command','Hi Everybody,\n\nI am trying to reduce the size of an image in excel but I am having problems converting the excel code in to fw.\n\nCan someone please help...\n\nExcel Code:\n[code:1us1x80u]\nSelection&#46;ShapeRange&#46;LockAspectRatio = msoTrue\nSelection&#46;ShapeRange&#46;Height = 286&#46;5\nSelection&#46;ShapeRange&#46;Width = 657#\nSelection&#46;ShapeRange&#46;Rotation = 0#\n[/code:1us1x80u]\n\n\nThanks,\nJeff','',0,'AIA=','1us1x80u',1,0,'',69,0,0),(29374,6581,3,2,0,'87.218.146.198',1175642769,1,0,1,1,1,1,'','','Jose, \n\nDbSkeek() its not a FWH function, but a Harbour/xHarbour one. \n\nIf there is a problem with DbSkeek() then we may check what  Harbour/xHarbour build you are using and try to reproduce a possible bug in text mode (without FWH) and report it to the Harbour/xHarbour developers mailing list.\n\nPlease lets build a small sample that proves the existence or not of a DbSeek() bug. Also it is very important to rebuild the indexes as they could be corrupted.','',0,'AIA=','2a3pg0ri',1,0,'',2,0,0),(29375,6580,6,2,0,'87.218.146.198',1175642926,1,0,1,1,1,1,'','','Jose,\n\nGracias. Esperamos tus noticias por si se tratase de un bug de DbSeek() y nosotros te ayudaríamos a reportarlo a la lista de desarrollo correspondiente.\n\nTen por seguro que si se tratase de un bug en DbSeek() se arreglará de inmediato.','',0,'AIA=','2rn7mtpq',1,0,'',2,0,0),(29376,6582,3,69,0,'74.13.37.86',1175644810,1,0,1,1,1,0,'','','I figured it out...\n\n[code:1rn41auj]\n      oSheet&#58;Pictures&#58;Height&#58;= 286&#46;5\n      oSheet&#58;Pictures&#58;Width&#58;= 657\n[/code:1rn41auj]\n\n\n\nJeff','',0,'AIA=','1rn41auj',1,0,'',69,0,0),(29377,6583,2,890,0,'209.88.63.83',1175648198,1,0,1,1,1,0,'','Edición y borrado en un listbox','Hola Integrantes del foro, un saludo cordial para todos\n\nAntonio\nPor favor explicame como activar la edicion y borrado en un listbox\n\nCordialmente \nJairo Barbosa','',0,'AIA=','1c1j1bnv',1,0,'',890,0,0),(29378,6584,19,26,0,'84.52.130.249',1175665632,1,0,1,1,1,1,'','Developers petition Microsoft to reconsider FoxPro phase out','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://blogs.zdnet.com/microsoft/?p=361\">http://blogs.zdnet.com/microsoft/?p=361</a><!-- m -->\n[quote:3p6cjpds]Microsoft officially announced late last month that the company has no plans to release FoxPro 10.0. Instead, as many FoxPro developers expected, the 9.0 release is the end of the Microsoft-supported line. [/quote:3p6cjpds]\n\n[quote:3p6cjpds]\"We\'re not announcing the end of FoxPro: Obviously, FoxPro applications will continue to work.  By some of our internal estimates, there are more applications running in FoxPro 2.6 than there are in VFP and FoxPro 2.6 hasn\'t been supported in many years.  Visual FoxPro 9 will be supported by Microsoft through 2015.[/quote:3p6cjpds]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.masfoxpro.com/Masfoxpropress\">http://www.masfoxpro.com/Masfoxpropress</a><!-- m -->\n\nRegards, Roman','',0,'gA==','3p6cjpds',1,0,'',26,0,0),(29379,6580,6,456,0,'217.127.39.57',1175670369,1,0,1,1,1,1,'','','Creo que el problema esta en la clase GET, y en concreto en el uso de ON CHANGE, que varia de una version a la otra de FWH.\n\n   Revisa la cadena que recibe como parametro de  busqueda , veras que de una a otra version es diferente.','',0,'gA==','7qr954t3',1,0,'',456,0,0),(29380,6585,20,1009,0,'82.187.221.169',1175676471,1,0,1,1,1,0,'','ALT + E','ciao, a tutti,\nuso fw2.7 con xHarbour 0.99.70,\nin una tabella twbrowse intercetto la pressione del tasto invio su un campo con il seguente blocco di codice:\noBrw:bKeyDown := {| nKey, nFlags | If((nKey == VK_RETURN,.....},)), .t.)}\nper compatibilità con un vecchio programma clipper devo fare la stessa cosa col tasto ALT + E,\nVK_ALT_E non è definito in vkey.ch e in nessun altro file include e\n#define K_ALT_E  274 del vecchio clipper non funziona.\ndove posso trovare la definizione funzionante di tutte le combinazioni di tasti come in inkey.ch di clipper?\n\nciao, marzio','',0,'gA==','2uoy2jtp',1,0,'',1009,0,0),(29381,6569,3,308,0,'84.148.14.208',1175677363,1,0,1,1,1,0,'','Re: RichEdit with Embedded images in FWH 7.04','When is the version 7.04 released ?\n\nRegards, Norbert','',0,'gA==','1tlchig7',1,0,'',308,0,0),(29382,4916,6,23,0,'213.96.85.49',1175678724,1,0,1,1,1,1,'','','Podrías facilitar la forma de interactuar con ese programa?\nGracias.','',0,'gA==','3c1zphje',1,0,'',23,0,0),(29383,6434,3,233,0,'218.111.61.32',1175680058,1,0,1,1,1,0,'','','Sorry for the late reply Antonio. Got to finish other stuffs that were due first. A brief description about the following samples. There would be 2 exe involved. The 32-bit exe would be calling the 16-bit exe.\n\nThis is the code for the 32-bit exe. (FWH2.8+xHarbour 0.99.61)\n[code:1clr9cfg]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oIco, cId &#58;= &quot;SUPERVISOR&quot;\n\n   DEFINE ICON oIco FILE &quot;&#46;&#46;\\icons\\fivewin&#46;ico&quot;\n\n   DEFINE DIALOG oDlg TITLE &quot;I am a DialogBox&quot; COLOR &quot;W+/B&quot; ;\n      ICON oIco\n\n\n   @ 3, 5 BUTTON &quot;Run module&quot; SIZE 40, 12 ;\n      ACTION winexec&#40;&quot;exe16&#46;exe &quot;+encrypt&#40;trim&#40;cId&#41;&#41;  &#41;\n\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:1clr9cfg]\n\nAnd this is the code for the 16-bit exe. (FW2.3+Clipper 5.2)\n[code:1clr9cfg]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main16&#40;cID&#41;\n\n  default cId &#58;= &quot;&quot;\n  msginfo&#40;decrypt&#40;trim&#40;cID&#41;&#41;&#41;\n\nreturn nil\n[/code:1clr9cfg]\n\nThe resulting string is not [b:1clr9cfg]SUPERVISOR[/b:1clr9cfg] as expected.','',0,'QIA=','1clr9cfg',1,0,'',233,0,0),(29384,5394,19,233,0,'218.111.61.32',1175680207,1,0,1,1,1,0,'','','Jose, Antonio, thanks for the info  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QIA=','1peix5pu',1,0,'',233,0,0),(29385,6373,3,130,0,'84.138.46.86',1175684582,1,0,1,1,1,0,'','','Milan, Alex,\n\nI will send it this afternoon\n\nStefan','',0,'QIA=','1dwlcjs1',1,0,'',130,0,0),(29386,6569,3,2,0,'87.218.146.198',1175685601,1,0,1,1,1,1,'','','Norbert,\n\nprobably this next weekend, or before','',0,'QIA=','1zkk445n',1,0,'',2,0,0),(29387,6434,3,2,0,'87.218.146.198',1175686554,1,0,1,1,1,1,'','','Hua,\n\nThats risky: the encrypted result may contain embedded zeroes that the application initialization may not properly parse.\n\nBetter write the encrypted text to a file and read that file from the 16 bits EXE','',0,'QIA=','20529c8q',1,0,'',2,0,0),(29388,6577,6,841,0,'217.12.16.49',1175687792,1,0,1,1,1,0,'','','Pedro,\n\na mi me pasa algo parecido. Si compilo con FWH 2.7 los controles de Repag,Avpag,Up,Down en el Browse no se actualizan y los registros se muestran mal.\nSin embargo si compilo con FWH 2.4 va todo perfecto.\n\nNo encuentro solución al respecto.\nLORENZO.','',0,'QIA=','17nq3clc',1,0,'',841,0,0),(29389,4916,6,177,0,'82.130.230.71',1175687895,1,0,1,1,1,0,'','','Hola,\n\nquizas con el ActiveX fly2pdf de <!-- m --><a class=\"postlink\" href=\"http://www.pdfforge.org/forum/4\">http://www.pdfforge.org/forum/4</a><!-- m --> lo podais conseguir.\n\nSaludos,\n\nFelix','',0,'QIA=','1qfpusjc',1,0,'',177,0,0),(29390,4916,6,177,0,'82.130.230.71',1175687975,1,0,1,1,1,0,'','','Podeis descargaros el ActiveX de \n\n<!-- m --><a class=\"postlink\" href=\"http://www.pdfforge.org/files/fly2pdf/fly2pdf-1_8_207.exe\">http://www.pdfforge.org/files/fly2pdf/f ... _8_207.exe</a><!-- m -->\n\nSaludos,\n\nFelix','',0,'QIA=','36djp0oi',1,0,'',177,0,0),(29391,6373,3,32,0,'168.209.98.42',1175691984,1,0,1,1,1,0,'','Wrappers','Online at [url:1t6mcxnt]http&#58;//www&#46;quicksoftware&#46;co&#46;za/dev/TRMChartX&#46;zip[/url:1t6mcxnt]','',0,'EA==','1t6mcxnt',1,0,'',32,0,0),(29392,4916,6,36,0,'200.113.56.235',1175692237,1,0,1,1,1,0,'','','Hola\n\nYo utilizo la CutePDF Writer, esta se instala y queda como una impresora mas en tu pc, solo le dices que imprima y listo el archivo pdf y sin molestos mensajes o banner\n\n\nSaludos\nPatricio','',0,'EA==','fqi8uuui',1,0,'',36,0,0),(29393,4916,6,103,0,'201.8.91.213',1175694589,1,0,1,1,1,1,'','','Hola Felix,\n[quote:ll9fm3cw]Hola, \n\nquizas con el ActiveX fly2pdf de <!-- m --><a class=\"postlink\" href=\"http://www.pdfforge.org/forum/4\">http://www.pdfforge.org/forum/4</a><!-- m --> lo podais conseguir. \n\nSaludos, \n\nFelix[/quote:ll9fm3cw]\n\nUna pregunta: Has experimentado el fly2pdf? Como se usa para accederlo?\n\nGracias y Saludos,','',0,'gA==','ll9fm3cw',1,0,'',103,0,0),(29394,6577,6,106,0,'85.34.123.173',1175695554,1,0,1,1,1,1,'','','Mas o menos resuelto...\n\nEn la clase scrllbar.prg de FW yo tenía activada esta funcion:\n\n\n[code:klal0rrk]\nMETHOD SetPage&#40; nSize, lReDraw &#41; CLASS TScrollBar\n\n\n   local nFlags\n\n   DEFAULT lRedraw &#58;= &#46;f&#46;\n\n   if ! Empty&#40; &#58;&#58;hWnd &#41;\n      nFlags = SB_CTL\n   else\n      if &#58;&#58;lVertical\n         nFlags = SB_VERT\n      else\n         nFlags = SB_HORZ\n      endif\n   endif\n   SetScrollInfo&#40; If&#40; ! Empty&#40; &#58;&#58;hWnd &#41;, &#58;&#58;hWnd, &#58;&#58;oWnd&#58;hWnd &#41;,;\n                  nFlags, nSize, lReDraw &#41;\n\nreturn nil\n[/code:klal0rrk]\n\n\nDesactivandola como viene de serie (no me dibuja las barras con dimension variable de acuerdo a la cantidad de registros), y con lo que modifiqué en la clase de twbrowse de Hernán, se resuelve el problema.\n\n\nLos cambios fueron los siguientes:\n\n[code:klal0rrk]\nnLParam &#58;= nHiWord&#40; nWParam &#41; // pgf \nnWParam &#58;= nLoWord&#40; nWParam &#41; // pgf\n[/code:klal0rrk]\n\n\no como lo hice realmente, copiando de la twbrowse original:\n\n[code:klal0rrk]\nMETHOD VScroll&#40; nWParam, nLParam &#41; CLASS TWBrowse\n\n   local nLines &#58;= &#58;&#58;nRowCount&#40;&#41;\n   local nLen\n\n   local nScrollCode &#58;= nLoWord&#40; nWParam &#41; // pgf\n   local nPos        &#58;= nHiWord&#40; nWParam &#41; // pgf\n   local nScrHandle  &#58;= nLParam // pgf\n\n  nWParam &#58;= nScrollCode // pgf\n  nLParam &#58;= nPos // pgf\n\n   if GetFocus&#40;&#41; != &#58;&#58;hWnd\n      SetFocus&#40; &#58;&#58;hWnd &#41;\n   endif\n\n  IF nScrHandle == 0 // pgf\n\n   do case\n      case nWParam == SB_LINEUP \n&#46;&#46;&#46;\n&#46;&#46;&#46;\n[/code:klal0rrk]\n\n\nAhora me funciona.\n\nTu problema no lo he tenido, estas seguro que usas la ultima version de twbrowse? la 17?\n\nRecompilaste toda la clase twbrowse para fwh2.7?\n\nSaludos','',0,'AIA=','klal0rrk',1,0,'',106,0,0),(29395,6585,20,6,0,'79.3.210.49',1175696048,1,0,1,1,1,1,'','Re: ALT + E','Non esistono tali combinazioni in Windows. Però esiste la definizione del tasto ALT da solo ed è VK_MENU. Purtroppo non è possibile, in generale, intercettare questo tasto con le FWH perciò ti consiglio di utilizzare il CTRL al suo posto:\n\n[code:10pdvzru]IF nKey = ASC&#40; &quot;E&quot; &#41; &#46;AND&#46; GETKEYSTATE&#40; VK_CONTROL &#41;\n    &#46;&#46;&#46;\nENDIF[/code:10pdvzru]\n\nEMG','',0,'AIA=','10pdvzru',1,0,'',6,0,0),(29396,6434,3,303,0,'72.199.41.171',1175700258,1,0,1,1,1,0,'','','Hua,\n\n&gt;Better write the encrypted text to a file and read that file from the 16 bits EXE\n\nIf you do this, don\'t forget to securely erase the file after reading it. I don\'t mean to just delete it, but to write dummy data to it multiple times before deleting it.\n\nJames','',0,'AIA=','25u42tyy',1,0,'',303,0,0),(29397,6581,3,303,0,'72.199.41.171',1175702877,1,0,1,1,1,0,'','','Jose,\n\nHere is the problem; the last character typed into the get is getting added to the search string twice so you see:\n\nDD\nDII\nDISS\nDISKK\netc.\n\nHere is how you can test it. Add a msgInfo() as shown:\n\n[code:16yzj3yb]STATIC FUNCTION Busqueda&#40; oGetBusca, cKey, oDlg, oLbx, XNOMEC &#41;\n//ogetbusca el objeto get, xnomec la variable del get\n\n\n    LOCAL RetornaBusca &#58;= &quot;&quot;\n\n    MEMVAR oNome_Busca\n\n    BusquedaInterna&#40; oGetBusca, cKey, oDlg, @RetornaBusca, oLbx &#41;\n\n    msgInfo&#40; retornaBusca &#41; // Add this line\n\n    IF lOpcaoRadio=1  //-&gt; Busqueda de opcion uno en Radio Button\n        PRODUCTO-&gt;&#40; DBSEEK&#40; ALLTRIM&#40; RetornaBusca&#41;, &#46;t&#46; &#41; &#41;\n    ELSE              //-&gt; Busqueda de Opcion 2 do Radio Button\n        PRODUCTO-&gt;&#40; ORDWILDSEEK&#40; &quot;*&quot; + ALLTRIM&#40; RetornaBusca &#41; + &quot;*&quot;, &#46;F&#46; &#41; &#41;\n    ENDIF\n\n    oLbx&#58;Refresh&#40;&#41;\n\nRETURN&#40; &#46;T&#46; &#41;[/code:16yzj3yb]\n\nThere were changes to the way oGet:bChange is processed which probably explains what is happening. Users were complaining that bChange didn\'t contain the last character typed so TGet was modified so that it did. And you are adding the last character, thus you now have the last character twice.\n\nI suggest using [b:16yzj3yb]oGet:bPostKey [/b:16yzj3yb]instead of oGet:bChange. bPostKey will contain the last character typed, and I have made a recommendation to Antonio to switch bChange back to its original processing as it is needed to reject invalid characters. Thus if you modify your code to work with bChange now, it will be broken again when Antonio changes the code back to its original form. You can search the forum for this discussion which was about two to three weeks ago. \n\nI hope I have explained this well.\n\nRegards,\nJames','',0,'QIA=','16yzj3yb',1,0,'',303,0,0),(29398,6586,6,237,0,'200.68.70.90',1175706403,1,0,1,1,1,0,'','Guardar los archivos en una unidad encriptada','Amigos del foro:\n\nHe visto desde hace mucho tiempo que lo de la encriptacion de datos es un tema no resuelto, ( mas allá de los adoradores del costoso ADS ), no he visto nada que resuelva este tema de manera contundente o por lo menos mas fácil o práctica.\nHace mucho que tenia esta idea inspirada en el utilitario \"Hide Folders\", se me habia ocurrido para un sistema hecho con FWH, y de alguna manera, ocultar y desocultar la carpeta de los archivos, pero no quedé convencido.\n\nDando vueltas por ahí, encontré este fantástico open source que se llama \"TrueCrypt\" ( <!-- m --><a class=\"postlink\" href=\"http://www.truecrypt.org/\">http://www.truecrypt.org/</a><!-- m --> ) que lo que hace es crear una unidad virtual del tamaño que quieran..., la formatea en fat32 o ntfs y listo! Posee distintos tipos de encriptación, la unidad en el ejemplo al mismo tiempo de ser abierta, es compartida en red ( los que usen sistemas monousuario pueden deshabilitarlo ).\nLas dbf se abren de esa unidad sin pestañear, he probado con unidades de 500 mb y 60 dbf al mismo tiempo y ni si quiera se van a dar cuenta que no los abrio de la manera convencional. \n\nEl ejemplo esta preparado para ser instalado en C:\\TESTTC y necesita libre la letra Z para crear la unidad virtual, cualquier cosa la pueden cambiar en el prg.\nAbre la unidad virutual al iniciar y la cierra al salir, evitando cualquier acceso, si quisieran salir del sistema y dejar la unidad abierta para revisarla, tendrian que anular toda la EXIT PROCEDURE.\n\nLa unidad virtual es levantada a partir del archivo C:\\TESTTC\\TESTTC.TC, creando una unidad de 5 mb para este ejemplo.\nSe lo maneja desde FHW por medio de linea de comandos, por lo tanto\nsirve para cualquier version de FW.\n\nPruébenlo y hagan sus comentarios, si les parece útil y potable, entre todos lo podemos mejorar.\n\nlink para la descarga: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/023219e744/TestTC.rar.html\">http://hyperupload.com/download/023219e ... C.rar.html</a><!-- m -->\n\nMuchos salu2\nAlejandro Cebolido','',0,'QIA=','1fmeeqyu',1,0,'',237,0,0),(29399,6580,6,73,0,'200.23.18.132',1175708372,1,0,1,1,1,0,'','','efectivamente con fwh junio y harbour, en mis busquedas incrementales en un browse jala bien, no he probado con fwh7.01 pruebo y les comento\nsalu2\npaco','',0,'QIA=','2i8vrqju',1,0,'',73,0,0),(29400,6581,3,439,0,'200.125.39.102',1175710519,1,0,1,1,1,1,'','','James,\n\nAs always you are wright, just a few hours before I recieve a sugestion in the same direction.\n\nYou are completely clear, that is the problem, I proved with my tget class of March 2006 and it works ok.\n\nThanks for your help and support, I will prove with 7.01 class using oGet:bPostKey code block.\n\nThanks!!!!!!!','',0,'QIA=','1qk80cfn',1,0,'',439,0,0),(29401,6580,6,439,0,'200.125.39.102',1175712443,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:2dtbn3vj]Creo que el problema esta en la clase GET, y en concreto en el uso de ON CHANGE, que varia de una version a la otra de FWH.\n\n   Revisa la cadena que recibe como parametro de  busqueda , veras que de una a otra version es diferente.[/quote:2dtbn3vj]\n\nGracias por tu ayuda amigo, James Bott, es de la misma opinión, y me dió una solución para resolverlo usando oGet:bPostKey, voy a probarla hoy y luego les cuento, la sugerencia de James y explicación del bug la encontrarán en:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6581\">http://fivetechsoft.com/forums/viewtopic.php?t=6581</a><!-- m -->','',0,'gA==','2dtbn3vj',1,0,'',439,0,0),(29402,6587,3,986,0,'201.45.114.2',1175713654,1,0,1,1,1,1,'','( Dos Error 6  )  em Fivewin  2.7','Colegas,\n\nDepois de atualizar a versao do Fwh para 2.7 e para o xharbour 0.99.70 , nos meus clientes que usam  Windows 2003 server, quando se vai criar um DBF temporario, esta dando as seguintes mensagem de erro :\n( DOS ERROR 6 ) DBFCDX/1004  Error de Criacao\n\nTenho que resolver com urgencia, Obrigado a todos!\nAte mais','',0,'gA==','27peqfjx',1,0,'',986,0,0),(29403,6588,6,785,0,'190.64.213.207',1175730184,1,0,1,1,1,0,'','Donde encuentro BMPtoJPG.exe','Amigos:\n\nDonde encuentro este archivo.\nSe usa para convertir un BMP en JPG según\nun ejemplo que hay en el foro de César E. Lozada\n\nMuchas gracias.\n\nRuben Fernandez','',0,'gA==','3j8h57yj',1,0,'',785,0,0),(29404,6589,6,743,0,'201.116.76.180',1175731507,1,0,1,1,1,0,'','TReBar, ToolBar urgente por favor','tengo un ToolBar como parte de mi menu, cuando pulso un boton, y lo desabilito, me aparece la imagen distorcionada, mi pregunta como puedo cambiar la imagen de una estado habilitado a desabilitado, es decir tengo dos imagenes una con color y la otra en gris, cuando el botton este desabilitado poner el boton en gris y cuando este habilitado el boton de color, \n\n\ngracias por la ayuda','',0,'gA==','jvtvel3l',1,0,'',743,0,0),(29405,6589,6,2,0,'87.218.146.198',1175733375,1,0,1,1,1,1,'','','Puedes usar el método oToolBar:ChangeBitmap( nButton, nImage ) con lo que le cambias la imagen a otra de la imagelist','',0,'gA==','1w3299p8',1,0,'',2,0,0),(29406,6588,6,12,0,'201.229.238.30',1175734734,1,0,1,1,1,1,'','','Aqui Lo tienes...\n[url:6gxqives]http&#58;//www&#46;filefactory&#46;com/file/570b87/[/url:6gxqives]','',0,'EA==','6gxqives',1,0,'',12,0,0),(29407,6589,6,743,0,'201.116.76.180',1175735222,1,0,1,1,1,0,'','','gracias por la contestacion \n\npero por que me manda este error\n\n   Error description: Error BASE/1004  Message not found: TOBAR:CHANGEBITMAP\n\ncomo que no tengo implementado este metodo\ncomo lo puedo solucionar\n\n\nantonio','',0,'EA==','87e7wsu8',1,0,'',743,0,0),(29408,6588,6,785,0,'190.64.195.74',1175737483,1,0,1,1,1,0,'','','Muchas gracias Pablo.\n\nSaludos\n\nRuben Fernandez','',0,'EA==','3bub6i5o',1,0,'',785,0,0),(29409,6490,3,1011,0,'203.160.185.132',1175738154,1,0,1,1,1,0,'','','Gonna love this! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','369yhh77',1,0,'',1011,0,0),(29410,6563,2,235,0,'200.56.66.225',1175740115,1,0,1,1,1,0,'','','Gracias Antonio','',0,'EA==','onyx373r',1,0,'',235,0,0),(29411,6434,3,233,0,'218.111.61.32',1175740286,1,0,1,1,1,0,'','','Antonio, James, thanks for the feedback and input. It never occur to me that passing encrypted string as I was doing could be problematic as the string length stays the same in exe32 and exe16.','',0,'EA==','3220gl07',1,0,'',233,0,0),(29412,6585,20,1009,0,'82.187.221.169',1175757056,1,0,1,1,1,0,'','','grazie enrico,\nVK_MENU funziona col tasto Alt Gr + E mentre con l\'Alt di sinistra non va.\ncome ho scritto è per compatibilità con un vecchio programma.\ngli utenti sono abituati ad usare alt + e.\n\nciao, marzio','',0,'EA==','22ek7lhf',1,0,'',1009,0,0),(29413,6589,6,2,0,'87.218.146.198',1175759752,1,0,1,1,1,1,'','','Que build de FWH estás usando ?','',0,'EA==','2awav73c',1,0,'',2,0,0),(29414,2486,16,2,0,'87.218.146.198',1175767854,1,0,1,1,1,1,'','','Harbour for Borland, April 17 2007 build: \n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/26540571/harbour.exe.html\">http://rapidshare.com/files/26540571/harbour.exe.html</a><!-- m -->\n\nxHarbour for Borland, April 05 2007 build:\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/b25d41/\">http://www.filefactory.com/file/b25d41/</a><!-- m -->','',0,'EA==','3pibob2r',1,1176843740,'',2,1,0),(29415,6590,3,2,0,'87.218.146.198',1175768260,1,0,1,1,1,1,'','New Harbour &amp; xHarbour builds','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=29414#29414\">http://fivetechsoft.com/forums/viewtopi ... 9414#29414</a><!-- m -->','',0,'EA==','39wdvlt0',1,0,'',2,0,0),(29416,6591,6,2,0,'87.218.146.198',1175768318,1,0,1,1,1,1,'','Nuevos builds de Harbour y xHarbour','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=29414#29414\">http://fivetechsoft.com/forums/viewtopi ... 9414#29414</a><!-- m -->','',0,'EA==','2w204abw',1,0,'',2,0,0),(29417,6592,7,720,0,'80.36.244.134',1175772083,1,0,1,1,1,0,'','compatibilidad con shared','Hola a todos..\n\nTengo una pda industrial Metrologic con un procesador Intel ARM920T-PXA27X y Windows CE versión 5.\n\nMi pregunta es: soporta bien la apertura compartida de tablas??\n\nSaludos y gracias..\n\nElías Torres.','',0,'EA==','123vi39h',1,0,'',720,0,0),(29418,6577,6,986,0,'201.45.114.2',1175773462,1,0,1,1,1,1,'','','Senhores,\n\n\nVc tem que colocar  a Twbrowse , antes da FIVEHx.LIB e FiveHC.LIB, como abaixo:\n\nC_LIB_INSTALL%\\c0w32.obj=1\n[b:1tbk8acf]C:\\LIBTER\\LIB97\\TWBRW97.LIB=2[/b:1tbk8acf]\nC:\\FWH\\LIB\\Fivehx.lib=3\nC:\\fwh\\LIB\\Fivehc.lib=4\n%HB_LIB_INSTALL%\\rtl.lib=5\n%HB_LIB_INSTALL%\\vm.lib=6\n%HB_LIB_INSTALL%\\gtgui.lib=7\n%HB_LIB_INSTALL%\\lang.lib=8\n\nAte mais','',0,'QA==','1tbk8acf',1,0,'',986,0,0),(29419,6592,7,2,0,'87.218.146.198',1175773984,1,0,1,1,1,1,'','','Elías,\n\nNo lo sabemos pues no lo hemos probado. Si eres tan amable, pruébalo tu y nos comentas los resultados, gracias','',0,'QA==','1faw3x4d',1,0,'',2,0,0),(29420,6592,7,720,0,'80.36.244.134',1175774356,1,0,1,1,1,0,'','','Antonio, lo he probado.No da error pero no hace nada, es decir, intenta acceder a la tabla y se queda ahi intentandolo....\n\nExiste la forma de controlar el error cuando dos pda intentan acceder a una misma tabla?. Lo digo porque como no soporta la clausula share debo controlar ese tipo de acceso y de alguna forma hacer que una espere para poder acceder...\n\n\nSaludos y gracias...\n\nElías Torres.','',0,'QA==','2y53inwq',1,0,'',720,0,0),(29421,6593,3,267,0,'200.208.238.2',1175774470,1,0,1,1,1,1,'','To use ADS Clipper + ADS xHarbour','Hi,\n\nI have two applications ADS, one CA-Clipper(16bits) and another one xHarbour(32bits). In the CA-Clipper application use client 6.11, in the application xHarbour use dlls version 6.2.\n\nThe problem is that in the CA-Clipper application it appears with frequencia a message \"corruption detect\". Always related the archives of the application xHarbour. \n\nThe two applications cannot have access and bring up to date the same database ADS?','',0,'QA==','2ftcmvnv',1,0,'',267,0,0),(29422,6594,16,2,0,'87.218.146.198',1175779508,1,0,1,1,1,1,'','New FTDN April/Abril 2007','April 7.04 2007 build\n ========================\n\n * New: FWPPC wininet.prg has been added to FiveHCE.lib\n \n * Fix: FWPPC, minor fix on Class TInternet\n \n * Fix: minor fix in source\\winapi\\wininet.prg \n \n * Fix: Class TGet Method KeyChar(), minor fix due to recent xHarbour changes. Thanks to Enrico!\n   \n * Enhancement: Class TGet, pressing TAB or ENTER positions the focus in the next control, no matter what the ON CHANGE clause returns, except false .F.. If .F. is returned then the focus will remain in the GET.\n\n * New: FWPPC, Class TMenuItem Method SetCheck(). Please review samples\\TestMnu2.prg\n\n * Enhancement: Class TBtnBmp uses the RC control default caption, if defined.\n\n * Enhancement: FWPPC, PushButtons on dialogs work fine if a pulldown menu is defined for the dialog.\n   \n * Fix: FWH 7.01 Class TComboBox incremental search was not properly working on all circunstances. Now it is ok. Thanks to Ugo! \n   \n * Enhancement: hb_vmPushSymbol( &amp;hb_symEval ); call changed into hb_vmPushEvalSym();\n \n * Fix: Class TWBrowse Method Resize() properly updates DATA nColAct when it is located out of the visible bounds.\n   \n * Fix: Minor fix on Class TImageList.\n \n * Fix: Class TWBrowse Methods GoLeft() and GoRight() were not checking if there were no records to show.\n   \n * Fix: Class TTreeView minor fix on colors management for redefined controls.\n   \n * Fix: FWPPC, minor fix on Class TWindow Method KeyDown() and Method New()\n   \n * Enhancement: FW++ some more exported functions on Five32rt.dll  \n   \n * New: FWPPC, browses online editing support. Same syntax as in FWH.\n   \n * New: Samples\\TestActM.prg shows how to use several ActiveX controls simultaneously.\n \n * Enhancement: Class TButton Method KeyDown() processes bKeyDown for arrow keys and enter key too.\n    \n * New: Samples\\TestMdiR.prg shows how to create MdiChilds from resources without using embedded dialogboxes.\n    \n * New: Class TRichEdit full support for images both from files and resources. Please review samples\\TestRtf.prg. New Methods InsertBitmap( cBmpFile ) and InsertPicture( *.bmp | *.dib | *.ico ) \n   \n * New: Class TRichEdit new Methods(): PageBreak() inserts a page break, GetZoom() returns an array with { nNumerator, nDenominator }, dividing them you get the zoom ratio, i.e.: { 1, 1 } -&gt; 100%; { 3, 4 } -&gt; 75%; { 1, 2 } -&gt; 50%, SetZoom() sets the zoom ratio from { 1, 63 } up to { 63, 1 }. Please review samples\\TestRtf.prg      \n    \n * New: FiveWin.ch includes a new define for HB_UNUSED_SYMBOL() function. This is due to recent changes in Harbour. If you get an unresolved HB_UNUSED_SYMBOL() then you are not using the right FiveWin.ch file.\n   \n * New: FWC3 gets removed from FTDN suscription and FiveMac is included into FTDN <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n \n * New: FWH has been rebuilt with most recent Harbour and xHarbour builds.','',0,'QA==','24niekmn',1,0,'',2,0,0),(29423,6595,3,2,0,'87.218.146.198',1175779555,1,0,1,1,1,1,'','New FWH 7.04 build','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6594\">http://fivetechsoft.com/forums/viewtopic.php?t=6594</a><!-- m -->','',0,'QA==','2g46gcgq',1,0,'',2,0,0),(29424,6596,6,2,0,'87.218.146.198',1175779583,1,0,1,1,1,1,'','Nuevo FWH 7.04 build','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6594\">http://fivetechsoft.com/forums/viewtopic.php?t=6594</a><!-- m -->','',0,'QA==','roqq7ome',1,0,'',2,0,0),(29425,6592,7,2,0,'87.218.146.198',1175779702,1,0,1,1,1,1,'','','Elías,\n\n&gt; Existe la forma de controlar el error cuando dos pda intentan acceder a una misma tabla? \n\nNo te da error de apertura del DBF ?','',0,'QA==','2g52likq',1,0,'',2,0,0),(29426,6577,6,45,0,'201.253.19.92',1175779815,1,0,1,1,1,0,'','','Voy a chequear la existencia del problema.  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \n\nSalu2  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','5c6cig2l',1,0,'',45,0,0),(29427,6536,6,45,0,'201.253.19.92',1175783255,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:39bfrvv2]Adolfo,\n\nAqui está:\n\n[url=http&#58;//imageshack&#46;us:39bfrvv2][img:39bfrvv2]http&#58;//img502&#46;imageshack&#46;us/img502/6936/fivepowergm5&#46;gif[/img:39bfrvv2][/url:39bfrvv2]\n\nGracias a un buen amigo que lo ha diseñado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:39bfrvv2]\n\n\nme encantoooo, me encantoooo   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'mA==','39bfrvv2',1,0,'',45,0,0),(29428,6582,3,69,0,'206.210.100.104',1175783496,1,0,1,1,1,0,'','','Thought I had it....  but those commands make all the images get rezised.\n\nDoes anyone know how to resize an image as it gets inserted to the excel file?\n\n\n\n\nThanks,\nJeff','',0,'mA==','5owj9dhu',1,0,'',69,0,0),(29429,6597,6,375,0,'84.122.116.125',1175786824,1,0,1,1,1,1,'','Empezando con Xharbour','Hola amigos, hasta ahora venía programando en FW 16 bits (hace al menos 10 años). Al fin me he decidido en dar los primeros pasos en xHarbour. Empezaré con una versión antigua prestada, antes de comprar la última.\n\nHe empezado por leerme los PRG del SOURCES para ver diferencias con FW 16b. Y como no, las primeras preguntas.\n\n¿Que es un GRIPPER? ¿Y DrawGripper()? ¿Y DrawDBGripper()?\nSi me pueden ilustar con una foto, se lo agradecería doblemente.\n\nEspero no tener que dar mucho la lata. Sean pacientes con migo.\n\n¿Por cierto, algún manual en condiciones en la WEB?\n\nGracias...','',0,'mA==','hzo1jpxz',1,0,'',375,0,0),(29430,6597,6,375,0,'84.122.116.125',1175787558,1,0,1,1,1,1,'','','Otra pregunta, que hasta ahora nunca me preocupé por averiguar.\n\n#ifndef __HARBOUR__\n...\n3endif\n\n¿Signbifica que el código (...) que va entre medias sólo se evalúa si se compila con HARBOUR, o al contrario, para cualquier compilador salvo para HARBOUR?\n\nGracias','',0,'mA==','r9hvpnlg',1,0,'',375,0,0),(29431,6434,3,303,0,'72.199.41.171',1175788783,1,0,1,1,1,0,'','','Hua,\n\nI don\'t know if this will work, but you could try:\n\n@ 3, 5 BUTTON \"Run module\" SIZE 40, 12 ; \n      ACTION winexec([exe16.exe ]+[\"]+encrypt(trim(cId))+[\"]  )\n\nEnclosing the passed parameter in quotes may fix any problems with spaces in cID.\n\nJames','',0,'','1psxp8zk',1,0,'',303,0,0),(29432,6516,6,867,0,'148.243.37.162',1175792498,1,0,1,1,1,0,'','Solucionadoooooooo gracias corazones','[quote=&quot;Armando&quot;:3t053sie]Susy:\n\nSi entiendo bien, el problema no es de la clase BTNGET, creo que debes buscarle en la ruitna de la busqueda incremental que estas usando.\n\nSaludos, Armando[/quote:3t053sie]\n\nHola Jose como esta corazon, ahi va el link de la clase BtnGet mejorada de un amigo que me envio a mi correo, gracias y se lo agradezco mucho los que me hayan ayudado y espero que les pueda servir y tu mi amigo Armando clarooo que si era la clase que fataba por modificar <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> nada que ver con mi funcion, espero que les sirva gracias  \n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?4gnngqlynnz\">http://www.mediafire.com/?4gnngqlynnz</a><!-- m -->\n\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','3t053sie',1,0,'',867,0,0),(29433,6573,20,49,0,'62.13.172.67',1175792758,1,0,1,1,1,1,'','','cosa intendi per bug...','',0,'gA==','1sfabasu',1,0,'',49,0,0),(29434,6598,20,49,0,'62.13.172.67',1175794064,1,0,1,1,1,1,'','rilevazione computer in un aula','Caro Emg,\navendo un computer in cattedra che funge da server ( collegato ad un dominio denominato Lab2) come faccio a rilevare quanti client ci sono collegati e il loro nome  da premettere che tutti i client sono collegati al dominio lab2, io vorrei far visualizzare i loro nomi in una tabella ( browse) \nè difficile ?\n\ngrazie','',0,'gA==','2u7jbysr',1,0,'',49,0,0),(29435,6597,6,375,0,'84.122.116.125',1175794330,1,0,1,1,1,1,'','','Por ultimo, Harbour utiliza:\n\n¿__FLAT__, __XPP__ u otra Constante?\n\nGracias otra vez.','',0,'gA==','37g1uxm0',1,0,'',375,0,0),(29436,6484,6,278,0,'164.77.219.82',1175794610,1,0,1,1,1,1,'','','GRacias Antonio , lo voy a probar asi.\n\nSaludos,','',0,'gA==','3pvkm2hg',1,0,'',278,0,0),(29437,6599,6,375,0,'84.122.116.125',1175794691,1,0,1,1,1,1,'','NcMousMove y EraseBkGnd','Alguien me puede explicar ¿cuándo se utiliza (o el systema utiliza) la funcion NCMOUSEMOVE()?\n\n¿Y la función ERASEBKGND() que aparece en muchas clases de FW para Harbour y no en las de FW 16 bits, tiene algo que ver con los dialogos transparentes?\n\nMe sería de mucha ayuda para iniciarme en xHarbour y pasar de FW a FWH, sobre todo la segunda. Muchas Gracias de antemano.','',0,'gA==','30lxchli',1,0,'',375,0,0),(29438,6597,6,375,0,'84.122.116.125',1175795041,1,0,1,1,1,1,'','','Por cierto, he visto una nueva funcion en la clase TGET: SetMargins\n\n¿Sigbnifca eso que en los MULTILINEAS se han implementado tabulaciones?\n\nMuchas Gracias.','',0,'gA==','m8goifin',1,0,'',375,0,0),(29439,2174,3,49,0,'62.13.172.67',1175795520,1,0,1,1,1,1,'','','Dear James,\nI saw How I can hide the icons on the desktop but \n \nHow I can make to in xharbour and fw :\n \nTo show on windows xp only the bar where there is “start” button and when I click on it I must show only a menu  windows xp like with only the application I want to show\n \n \nBest Regards and Good Easter\nSilvio','',0,'gA==','3h33d1j7',1,0,'',49,0,0),(29440,6600,3,69,0,'206.210.100.104',1175797511,1,0,1,1,1,0,'','Draw box on screen','Hi Everybody,\n\nThis might be a bit tricky to explain but I\'ll give it a try:\n\nI need to allow the user to draw a box on the screen via a click/drag and fill that area with some fill color.\n\nI also need to limit the area on the window where the user can do this.\n(I only want the user to be able to do this in 2 locations)\n\nI also need to know the top, left, bottom, right co-ordinates of where the user put the box.\n\nI have no idea where to even start with this one ... I hope someone can help with this.\n\n\nThanks in advance,\n\nJeff','',0,'gA==','2z8nld3g',1,0,'',69,0,0),(29441,6601,3,69,0,'206.210.100.104',1175797782,1,0,1,1,1,0,'','Excel Command - still need help','Hi Everybody,\n\nI thought I had this figured out but no such luck. (Re-size an inserted image)\n\nI need to convert the folowing code to fwh:\n\n[code:iw170qq7]\nSelection&#46;ShapeRange&#46;LockAspectRatio = msoTrue\nSelection&#46;ShapeRange&#46;Height = 286&#46;5\nSelection&#46;ShapeRange&#46;Width = 657#\nSelection&#46;ShapeRange&#46;Rotation = 0# \n[/code:iw170qq7]\n\nI tried:\n[code:iw170qq7]\noSheet&#58;Pictures&#58;Height&#58;= 286&#46;5\noSheet&#58;Pictures&#58;Width&#58;= 657 \n[/code:iw170qq7]\n\nBut that resized ALL images that I had inserted.  I want to be able to re-size them as I insert them leaving previous images alone.\n\nThanks,\nJeff','',0,'AIA=','iw170qq7',1,0,'',69,0,0),(29442,2174,3,303,0,'72.199.41.171',1175798421,1,0,1,1,1,0,'','','Silvio,\n\nI\'m not sure what you are trying to do, but if this is a single use PC, like for a kiosk that runs only one application, then perhaps you can set the application to run on startup and then just turn off the taskbar.\n\nTo run a program on startup just put a batch file in c:\\documents and settings\\[user]\\start menu\\programs\\startup (where [user] is actually the name of the user.\n\nI don\'t see any point in having a taskbar with just one application on it. I don\'t think you can do this with the Windows taskbar anyway.\n\nJames','',0,'','aubuwfze',1,0,'',303,0,0),(29443,2174,3,49,0,'62.13.172.67',1175799101,1,0,1,1,1,1,'','','thanks \nbut How  can set a session  from  a program ( xharbour+fw) to USER pc01\nIf I can make it I can to show another desktop with another barmenu programs...','',0,'','3332w799',1,0,'',49,0,0),(29444,6602,3,49,0,'62.13.172.67',1175799373,1,0,1,1,1,1,'','to find clients','Can I find ( in a program xharbour)  how many computers there are in a classroom from a server computer  : each pc are link to Lab2 Domain\nand put in a browse the name of each pc and his ip ?\nCan you write here a sample pls','',0,'','22juggzk',1,0,'',49,0,0),(29445,6603,6,49,0,'62.13.172.67',1175799613,1,0,1,1,1,1,'','Help for HIDE a disk','How I can make to hide hard disk to not give the possibility to save on hard disk - I have winxp \nthere is a function in xharbour and fw to make it ?\nI have problems with my boys at school : they save mp3 and many images on hard disk  .\nHelp me pls !!!!','',0,'','1oknjnb4',1,0,'',49,0,0),(29446,333,7,596,0,'80.28.12.107',1175799626,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:22kpy35e]...por lo que podrías hacerlo como lo haces en el PC[/quote:22kpy35e]\nEn el PC lo hago todo WRAPEANDO las funciones...\nY ademas uso ESTRUCTURAS de datos.\n¿ Seguro que esto mismo me funcionará ?\n\nEjemplos de codigos de estructuras:\nSTRUCT sockaddr\n  MEMBER s_family AS _INT\n  MEMBER s_port   AS _INT\n  MEMBER s_addr   AS LONG\n  MEMBER s_zero   AS STRING LEN 8\nENDSTRUCT\nSTRUCT WSAData\n  MEMBER wVersion  AS _INT\n  MEMBER wHighVer  AS _INT\n  MEMBER szDescrip AS STRING LEN WSADESCRIPTION_LEN\n  MEMBER szSystem  AS STRING LEN WSASYS_STATUS_LEN\n  MEMBER iMaxSock  AS _INT\n  MEMBER iMaxUdpDg AS _INT\n  MEMBER lpVendor  AS LONG\nENDSTRUCT\nSTRUCT ip_mreq\n  MEMBER i_multia AS LONG\n  MEMBER i_interf AS LONG\nENDSTRUCT\nSTRUCT Startup\n  MEMBER wVersion  AS _INT\n  MEMBER wHighVer  AS _INT\n  MEMBER szDescrip AS STRING LEN WSADESCRIPTION_LEN\n  MEMBER szSystem  AS STRING LEN WSASYS_STATUS_LEN\n  MEMBER iMaxSock  AS _INT\n  MEMBER iMaxUdpDg AS _INT\n  MEMBER lpVendor  AS LONG\nENDSTRUCT\n\nEjemplos del wrapeo:\nDLL32 FUNCTION WSAStartup(n AS LONG, pStruct AS LPSTR) AS LONG PASCAL FROM \"WSAStartup\" LIB \"wsock32.dll\"\nDLL32 FUNCTION WSACleanup() AS LONG PASCAL FROM \"WSACleanup\" LIB \"wsock32.dll\"\nDLL32 FUNCTION closesocket(af AS LONG) AS _INT PASCAL FROM \"closesocket\" LIB \"wsock32.dll\"\nDLL32 FUNCTION MemCopy(dest AS LPSTR, src AS LPSTR, cb AS LONG ) AS VOID PASCAL FROM \"RtlMoveMemory\" LIB \"Kernel32.dll\"\nDLL32 FUNCTION socket(af AS LONG, s_type AS LONG, protocol AS LONG ) AS LONG PASCAL FROM \"socket\" LIB \"wsock32.dll\"\nDLL32 FUNCTION setsockopt(s AS LONG,level AS LONG,optname AS LONG,optval AS LPSTR,optlen AS LONG) AS LONG PASCAL FROM \"setsockopt\" LIB \"wsock32.dll\"\nDLL32 FUNCTION getsockopt(s AS LONG,level AS LONG,optname AS LONG,optval AS LPSTR,optlen AS LONG) AS LONG PASCAL FROM \"getsockopt\" LIB \"wsock32.dll\"\nDLL32 FUNCTION htonl(hostlong AS LONG) AS LONG PASCAL FROM \"htonl\" LIB \"wsock32.dll\"\nDLL32 FUNCTION htons(hostshort AS LONG) AS _INT PASCAL FROM \"htons\" LIB \"wsock32.dll\"\nDLL32 FUNCTION bind(s AS LONG, pStruct AS LPSTR,namelen AS LONG) AS LONG PASCAL FROM \"bind\" LIB \"wsock32.dll\"\nDLL32 FUNCTION inet_addr(cp AS STRING) AS LONG PASCAL FROM \"inet_addr\" LIB \"wsock32.dll\"\nDLL32 FUNCTION WSAAsyncSelect(s AS LONG, hWnd AS LONG, wMsg AS LONG, lEvent AS LONG) AS LONG PASCAL FROM \"WSAAsyncSelect\" LIB \"wsock32.dll\"\nDLL32 FUNCTION recv(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG) AS LONG PASCAL FROM \"recv\" LIB \"wsock32.dll\"\nDLL32 FUNCTION recvfrom(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG,  addr As sockaddr, i AS LONG) AS LONG PASCAL FROM \"recvfrom\" LIB \"wsock32.dll\"\nDLL32 FUNCTION send(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG) AS LONG PASCAL FROM \"send\" LIB \"wsock32.dll\"\nDLL32 FUNCTION sendto(s AS LONG, Buf AS LPSTR, buflen AS LONG, flags AS LONG, addr AS LPSTR, i AS LONG) AS LONG PASCAL FROM \"sendto\" LIB \"wsock32.dll\"\n\nEjemplos de código:\nsockaddr:s_family:=AF_INET\nsockaddr:s_addr  :=inet_addr(m_HostSet)\nsockaddr:s_port  :=htons(m_PortSet)\nsockaddr:s_zero  :=replicate(chr(0), 8 )\ncTemp:=sockaddr:cBuffer\nrc:=bind(SocketNum,@cTemp,sockaddr_size)\nsockaddr:cBuffer:=cTemp\nif rc&lt;&gt;0\n   MsgAlert(\"Fallo en BIND\")\n   SocketNum:=-1\n   return nil\nendif\nstMreq2:i_interf:=inet_addr(m_HostSet)\ncTemp:=stMreq2:cBuffer\nrc:=setsockopt(SocketNum,IPPROTO_IP,IP_MULTICAST_IF,@cTemp,stMreq2:SizeOf())\nstMreq2:cBuffer:=cTemp\nif rc&lt;&gt;0\n   MsgAlert(\"Fallo en SETSOCKOPT-IF\")\n   SocketNum:=-1\n   return nil\nendif','',0,'gA==','22kpy35e',1,0,'',596,0,0),(29447,2174,3,303,0,'72.199.41.171',1175799721,1,0,1,1,1,0,'','','&gt;but How can set a session from a program ( xharbour+fw) to USER pc01 \n&gt;If I can make it I can to show another desktop with another barmenu programs...\n\nI\'m not sure I understand. You could setup a PC with two user accounts and then have one of them login and automatically run your app and turn off the taskbar. The other user account could be run differently--however you like.\n\nJames','',0,'gA==','22zrmbt7',1,0,'',303,0,0),(29448,2174,3,49,0,'62.13.172.67',1175800845,1,0,1,1,1,1,'','','No I explain you \n\nI am a tech teacher \nI have 31 pc in a classrooms : all are link on the net to Lab2 domain ( local network) and I can see all from my pc (teacher) .\n\nI want in each pc  I can hide all and show only the barmenu \"start\" with only 3 program :\n1. explorer.exe\n2 winword.exe\n3. calc.exe\n\nbecause My boys must not use all windows programs or configuration program of window xp ( monitor,screensaver, ecc.)\n\nI wanted also  each pc not show hard disk C  : my boy save mp3 and many images day by day and the hard disk is full and I must erase all each day.\n\nHow I can to make a program ( in xharbour and fw) to make it :\n1. Hide the icons desktop\n2. hide the hard disk C or Disk D or port USB ( pen drive)\n3. To show the  sart menu with a menu with only the program / exploer,winword and calc)\n4 .  to hide the task manager ( if a boy press ctrl+alt+del) \n5.  to hide the action if a boy press ctrl+c\n\nHow I can make it ?\n\nthanks for your help','',0,'gA==','3pcvwmkq',1,0,'',49,0,0),(29449,6604,6,49,0,'62.13.172.67',1175801264,1,0,1,1,1,1,'','help to disable taskmanagerof windows','How I can make to block the pssibility to enable/disable taskmanager of windows if I press ctrl+alt+del ?\nHow I can disable also the Ctrl+c press keys ?','',0,'gA==','1ustqa8l',1,0,'',49,0,0),(29450,2174,3,303,0,'72.199.41.171',1175801356,1,0,1,1,1,0,'','','&gt;I am a tech teacher. I have 31 pc in a classrooms...\n\nOK, this is not a FW issue, this is a security issue. Much of this can be handled via Windows security and user rights features. I am not a system admin so I am not familiar with Windows security and user rights configuration. Perhaps someone else here on the forum can answer your questions, or you can try one of the Windows forums. You could also try searching for \"windows user rights\" on Google.\n\nJames','',0,'gA==','3clvpo82',1,0,'',303,0,0),(29451,6480,6,279,0,'189.169.11.88',1175801907,1,0,1,1,1,0,'','Re: Classe gráficos','[Saludos Marco, si no es mucha molestia, me puedes enviar a mi tambien dicha clase. \nMi mail es : <!-- e --><a href=\"mailto:mespinosa@aspservicios.com\">mespinosa@aspservicios.com</a><!-- e --> \nMuchas gracias\n_________________\nMario Espinosa C.\nGuadalajara, Mexico \nxHb 99.71, Fwh 7.01, MySQL, FCSODBC, 2','',0,'','f9ugwsrh',1,0,'',279,0,0),(29452,6601,3,6,0,'87.3.184.128',1175802250,1,0,1,1,1,1,'','Re: Excel Command - still need help','[code:2v1zi5xc]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel, oSheet\n\n    oExcel = CreateObject&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n\n    oSheet = oExcel&#58;ActiveSheet\n\n    oSheet&#58;Shapes&#58;AddPicture&#40; &quot;C&#58;\\XHARBOUR\\SFONDO&#46;JPG&quot;, &#46;F&#46;, &#46;T&#46;, 0, 0, 200, 150 &#41;\n\n    oSheet&#58;Shapes&#91; 1 &#93;&#58;Height = 50\n    oSheet&#58;Shapes&#91; 1 &#93;&#58;Width = 50\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:2v1zi5xc]\n\nEMG','',0,'AIA=','2v1zi5xc',1,0,'',6,0,0),(29453,6598,20,6,0,'87.3.184.128',1175802335,1,0,1,1,1,1,'','Re: rilevazione computer in un aula','Non ne ho idea.\n\nEMG','',0,'AIA=','2jbu4pof',1,0,'',6,0,0),(29454,6555,3,930,0,'82.171.95.180',1175803416,1,0,1,1,1,0,'','','This could be a solution: simply call HH.EXE with some parameters.\nWinexec(\"HH.EXE &lt;nTopic&gt; &lt;myhelpfile.chm&gt;\")\nIt actually works (if HTMLHelp is installed of course).\n\nNow there is another problem: At startup there is definition for F1:\nSetKey( 28, { |nKey| MyHtmlHelp(IDH_INTRODUCTION) } )\nPressing F1 should call the function MyHtmlHelp(),  but instead there is message \'No HELP file available\'. Although not defined by me the function HelpTopic() is called. What can I do to change this behaviour?\n\nRegards,\nStephan','',0,'AIA=','zpkrhgnx',1,0,'',930,0,0),(29455,6598,20,49,0,'62.13.172.67',1175803830,1,0,1,1,1,1,'','','in realta dovrei far visualizzare ciò che si vede se clicchiamo su risorse di rete  in windows\nmi sono scaricato alcuni programmi demo  che in qualsiasi computer li metti automaticamente *vedono* i computer collegati e i loro indirizzi ip\nNon voglio credre che in xharbour Noi non possiamo farlo \nquesti programmi usano TCIP perchè ho provato a togliere tcip dalla connessione di rete ( proprietà ) per vedere cosa accadeva infatti è arrivato l\'errore che non trovava il protocollo','',0,'AIA=','3ij5zxsf',1,0,'',49,0,0),(29456,6604,6,49,0,'62.13.172.67',1175804119,1,0,1,1,1,1,'','','I resolve it','',0,'AIA=','228waibg',1,0,'',49,0,0),(29457,6605,6,49,0,'62.13.172.67',1175804226,1,0,1,1,1,1,'','find pc client','How I can found pc clients with tcp/ip protocol  from a server?\ncan I see if this each pc is open or close ?','',0,'AIA=','35gjgvoj',1,0,'',49,0,0),(29458,6555,3,6,0,'87.3.184.128',1175806151,1,0,1,1,1,1,'','','[code:1ja9ubjh]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 30 &#41;\n\n    SETKEY&#40; VK_F1, &#123; || MyHelp&#40;&#41; &#125; &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET cVar\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MYHELP&#40;&#41;\n\n    ? &quot;Help!&quot;\n\n    RETURN NIL\n\n\nFUNCTION HELPINDEX&#40;&#41;\n\n    RETURN NIL\n\n\nFUNCTION HELPTOPIC&#40;&#41;\n\n    RETURN NIL\n\n\nFUNCTION HELPPOPUP&#40;&#41;\n\n    RETURN NIL[/code:1ja9ubjh]\n\nEMG','',0,'AIA=','1ja9ubjh',1,0,'',6,0,0),(29459,6606,6,52,0,'201.212.254.39',1175806443,1,0,1,1,1,1,'','¿Cómo saber en cual de todos los controles se hizo un ENTER?','Gente,\n\nTengo un dialogo con:\n1 browser\n2 un par de say\n4 botones.\n\nEstoy capturando las teclas que se presionan y quiero saber en que control se pulso en RETURN.\n\nComo debo hacerlo?\n\nGracias.','',0,'AIA=','q5im10ew',1,0,'',52,0,0),(29460,6606,6,362,0,'200.168.52.156',1175809520,1,0,1,1,1,1,'','','[code:wgz11kcj]\n\n#Include &quot;FiveWin&#46;Ch&quot;\n\nFunction Main&#40;&#41;\n\n   LOCAL oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Testando as Teclas - Caixa Alta e Baixa&quot;\n\n   oWnd&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; &quot;Caixa Baixa&#58; &quot; + Str&#40; nKey &#41; &#41; &#125;\n   oWnd&#58;bKeyChar = &#123; | nKey | MsgInfo&#40; &quot;Caixa Alta&#46;&#58; &quot; + Str&#40; nKey &#41; &#41; &#125;\n\n   ACTIVATE WINDOW oWnd\n\nReturn Nil\n\n[/code:wgz11kcj]','',0,'AIA=','wgz11kcj',1,0,'',362,0,0),(29461,6555,3,930,0,'137.224.245.161',1175809537,1,0,1,1,1,0,'','','YES, thos works. Thanks Enrico!\n\nRegards,\nStephan','',0,'AIA=','efzl4nrl',1,0,'',930,0,0),(29462,6604,6,362,0,'200.168.52.156',1175809722,1,0,1,1,1,1,'','','[code:1gpdy4ub]\n\n/*\n// Antonio Carlos Pantaglione\n// Toninho@fwi&#46;com&#46;br\n// Ago/2001\n\n#include &quot;fivewin&#46;ch&quot;\n\nprocedure main&#40;&#41;\n\n  CtrlAltDel&#40; &#46;f&#46; &#41;\n\n  MsgAlert&#40; &quot;CTRL-ALT-DEL DESLIGADO&quot; + CRLF + &quot;Please, press CTRL + ALT + DEL&quot;, &quot;Desligado&quot; &#41;\n\n  CtrlAltDel&#40; &#46;t&#46; &#41;\n\n  MsgAlert&#40; &quot;CTRL-ALT-DEL LIGADO&quot; + CRLF + &quot;Please, press CTRL + ALT + DEL&quot;, &quot;Ligado&quot; &#41;\n\nreturn\n\n*/\n\n// Antonio Carlos Pantaglione\n// Toninho@fwi&#46;com&#46;br\n// Ago/2001\n\n/*\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;dll&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nProcedure CtrlAltDel&#40; lState &#41;\n\n   if !lState\n      SysParInfo&#40; 97, 1, 0, 0 &#41;\n   else\n      SysParInfo&#40; 97, 0, 0, 0 &#41;\n   endif\n\nreturn\n\n//----------------------------------------------------------------------------//\n\ndll32 static function SysParInfo&#40; uAction AS LONG, uParam AS LONG, vParam AS LONG, uWinIni AS LONG &#41; ;\n      AS LONG PASCAL  FROM &quot;SystemParametersInfoA&quot; LIB &quot;User32&#46;dll&quot;\n\n//----------------------------------------------------------------------------//\n*/\n\n[/code:1gpdy4ub]','',0,'AIA=','1gpdy4ub',1,0,'',362,0,0),(29463,6607,3,49,0,'62.13.172.67',1175812749,1,0,1,1,1,1,'','xbrowse multiselect','if I use on xbrowse :\n\noBrw:nMarqueeStyle := MARQSTYLE_HIGHLROWMS\n\nand select  many records with mouse and ctrl\n\ncan I have on an array  asel:={} the records I select ?','',0,'AIA=','373tz62x',1,0,'',49,0,0),(29464,6594,16,2,0,'87.218.146.198',1175814927,1,0,1,1,1,1,'','','Construcción 7.04 Abril 2007\n====================\n\nNuevo: En FWPPC, el fichero wininet.prg ha sido añadida a FiveHCE.lib\n\nCorrección: En FWPPC, pequeña corrección en la clase TInternet.\n\nCorrección: Pequeña corrección en source\\winapi\\wininet.prg\n\nCorrección: En el método KeyChar() de la clase Tget, pequeña corrección debido a los recientes cambios en xHarbour. Gracias a Enrico.\n\nMejora: En la clase TGet, pulsando la tecla TAB o ENTER posiciona el foco en el siguiente control, no importa lo que devuelva la cláusula ON CHANGE, excepto falso .F., si es devuelto .F. el foco permanecerá en el GET.\n\nNuevo: En FWPPC, nuevo método SetCheck() en la clase TMenuItem. Por favor, revisa samples\\TestMnu2.prg\n\nMejora: La clase TBtnBmp usa por defecto el valor subtitulo (caption), si es definido.\n\nMejora: En FWPPC, los botones tipo PushButtons en los diálogos funcionan perfectamente en los menús deslizantes (pulldown) si son definidos en el diálogo.\n\nCorrección: La búsqueda incremental de la clase TComboBox de FWH 7.01 no funcionaba correctamente en todas las circustancias. Ahora funciona correctamente. Gracias a Ugo!\n\nMejora: hb_vmPushSymbol( &amp;hb_symEval ); la llamada cambia a hb_vmPushEvalSym();\n\nCorrección: El método Resize() de la clase TWBrowse actualiza correctamente el DATA nColAct cuando se localiza fuera de los límites visibles.\n\nCorrección: Pequeña corrección en la clase TImageList.\n\nCorrección: Los métodos GoLeft() y GoRight() de la clase TWBrowse no chequeaban si había ningún registro a mostrar.\n\nCorrección: Pequeñas correcciones en la clase TTreeView en el manejo de los colores para los controles redefinidos.\n\nCorrección: En FWPPC, pequeñas correcciones en los métodos KeyDown() y New() de la clase TWindow.\n\nMejora: En FW++ se han exportado más funciones a Five32rt.dll\n\nNuevo: En FWPPC, soporte para la edición en línea en los \"browses\". Misma sintáxis que en FWH.\n\nNuevo: Samples\\TestActM.prg, muestra como usar varios ActiveX simultáneamente.\n\nMejora: El método KeyDown() de la clase TButton procesa bKeyDown con las flechas de cursor y la tecla Enter también.\n\nNuevo: Samples\\TestMdiR.prg, muestra como crear MdiChilds desde recursos sin usar cajas de diálogo embebidas. \n\nNuevo: La clase TRichEdit, soporte completo para el uso de imáges, desde fichero y desde recursos. Por favor, revisa el ejemplo samples\\TestRtf.prg. Nuevos métodos InsertBitmap( cBmpFile ) y InsertPicture( *.bmp | *.dib | *.ico )\n\nNuevo: Nuevos métodos en la clase TRichEdit, PageBreak() inserta una rotura de página. GetZoom(), devuelve una matriz con { nNumerator, nDenominator }, dividiéndolos consigues el ratio del zoom, por ejemplo: { 1, 1 } -&gt; 100%; { 3, 4 } -&gt; 75%; { 1, 2 } -&gt; 50%. SetZoom(), pone el ratio de zoom de { 1, 63 } a { 63, 1 }. Por favor, revisa el ejemplo samples\\TestRtf.prg\n\nNuevo: El fichero FiveWin.ch incluye una nueva definición para la función HB_UNUSED_SYMBOL(). Esto es debido a los recientes cambios en Harbour. Si obtienes el error HB_UNUSED_SYMBOL() no resuelto, entonces no estas utilizando el fichero FiveWin.ch correcto.\n\nNuevo: FWC3 ya no se incluye en la suscripción FTDN, ha sido sustituido por FiveMac <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.\n\nNuevo: FWH ha sido reconstruido con las construcciones más recientes de Harbour/xHarbour.','',0,'AIA=','163npi3o',1,0,'',2,0,0),(29465,6606,6,52,0,'201.212.254.39',1175816652,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:3g4kgo4f][code:3g4kgo4f]\n\n#Include &quot;FiveWin&#46;Ch&quot;\n\nFunction Main&#40;&#41;\n\n   LOCAL oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Testando as Teclas - Caixa Alta e Baixa&quot;\n\n   oWnd&#58;bKeyDown = &#123; | nKey | MsgInfo&#40; &quot;Caixa Baixa&#58; &quot; + Str&#40; nKey &#41; &#41; &#125;\n   oWnd&#58;bKeyChar = &#123; | nKey | MsgInfo&#40; &quot;Caixa Alta&#46;&#58; &quot; + Str&#40; nKey &#41; &#41; &#125;\n\n   ACTIVATE WINDOW oWnd\n\nReturn Nil\n\n[/code:3g4kgo4f][/quote:3g4kgo4f]\n\nGracias','',0,'gIA=','3g4kgo4f',1,0,'',52,0,0),(29466,6434,3,233,0,'218.111.61.32',1175821887,1,0,1,1,1,0,'','','Thanks for the idea James. I just find it odd that if both the above samples are compiled in 16-bit I do get the expected string i.e. [b:11my4a5i]SUPERVISOR[/b:11my4a5i]','',0,'QA==','11my4a5i',1,0,'',233,0,0),(29467,2486,16,376,0,'200.106.46.181',1175835332,1,0,1,1,1,1,'','','Antonio\n\n¿Podrías indicar, en forma resumida, estas versiones de (x)Harbour a que versiones de FWH corresponden?. Lo que pasa es que hay mucha confusión, respecto a la compatibilidad o nó entre las distintas versiones y de FWH y las \"builds\" que anuncias.','',0,'QA==','jxxpywt9',1,0,'',376,0,0),(29468,6434,3,32,0,'168.209.98.42',1175837785,1,0,1,1,1,0,'','Passing encrypted strings','Hi,\n\nAnother trick I use where high (&gt;127) ascii and low(&lt;32) can be tricky is to mime encode the strings\n\n[code:3sjpfrgs]\n\n   @ 3, 5 BUTTON &quot;Run module&quot; SIZE 40, 12 ;\n      ACTION winexec&#40;&quot;exe16&#46;exe &quot;+cmimeenc&#40;encrypt&#40;trim&#40;cId&#41;&#41;&#41;  &#41; \n\n[/code:3sjpfrgs]\n\nand\n\n[code:3sjpfrgs]\nmsginfo&#40;trim&#40;decrypt&#40;cmimedec&#40;cId&#41;&#41;&#41;&#41;\n[/code:3sjpfrgs]','',0,'AIA=','3sjpfrgs',1,0,'',32,0,0),(29469,6608,6,492,0,'189.147.26.143',1175838210,1,0,1,1,1,1,'','OrdWildSeek, informacion de esta funcion.','Hola a todos\n\nAlguien tendra a la mano la informacion completa de esta funcion, he estado buscando y la info encontrada esta algo confusa.\n\nNecesito saber cuales son todos sus parametros y la funcion de cada uno.\n\nYa vi todas las facilidades que ofrece, pero siento que la estoy aplicando a medias y a ciegas  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos','',0,'AIA=','160kee20',1,0,'',492,0,0),(29470,6604,6,413,0,'194.106.16.43',1175838799,1,0,1,1,1,1,'','','Silvio.\n\nHow you solve it?  because the source from Karinha don\'t work in a WINXP\n\nThanks','',0,'AIA=','2xnh4fze',1,0,'',413,0,0),(29471,6608,6,413,0,'194.106.16.43',1175839720,1,0,1,1,1,1,'','','Raymundo, parece interesante esta funcion, donde la consigo, he revisado todo el foro y lo unico que he encontrado es una referencia a su uso. Tines inconveniente en enviarmela a: \n\n<!-- e --><a href=\"mailto:zalezalon@gmail.com\">zalezalon@gmail.com</a><!-- e -->','',0,'AIA=','2qir3sf0',1,0,'',413,0,0),(29472,6434,3,303,0,'72.199.41.171',1175841925,1,0,1,1,1,0,'','','Hua,\n\n&gt;Thanks for the idea James. I just find it odd that if both the above samples are compiled in 16-bit I do get the expected string i.e. SUPERVISOR.\n\nGranted that does seem odd. Are you using the same versions of FW and FWH? Perhaps there was a change in the versions that is causing the problem rather than 16bit vs 32bit.\n\nJames','',0,'AIA=','3b4ayvkt',1,0,'',303,0,0),(29473,6555,3,303,0,'72.199.41.171',1175842194,1,0,1,1,1,0,'','','Stephan,\n\nHave you looked at the FWH help file modifications I made for HTML help? They are available on my website here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nLook for \"CHM Help Code\"\n\nIt has been quite some time since I wrote them so I don\'t remember exactly what is there, but perhaps it will answer some of your questions.\n\nJames','',0,'AIA=','1lsvkip7',1,0,'',303,0,0),(29474,6555,3,930,0,'137.224.252.10',1175842763,1,0,1,1,1,0,'','','Thanks you James.\nIt seems your solution is the same as the one I found. \n\nRegards,\nStephan','',0,'AIA=','2r9vchqk',1,0,'',930,0,0),(29475,2486,16,2,0,'87.218.146.198',1175846486,1,0,1,1,1,1,'','','Armando,\n\nEstos builds de Abril de Harbour y xHarbour se corresponden a la versión 7.04 (04=Abril y  7=2007) de FWH','',0,'AIA=','18l1nj76',1,0,'',2,0,0),(29476,6434,3,2,0,'87.218.146.198',1175846835,1,0,1,1,1,1,'','','James,\n\nThere have not been changes in functions Encrypt() and Decrypt() source code. Its easy to check that their results are compatible, so Hua problem has to be something else. Maybe something related to calling 16 bits from 32 bits.','',0,'AIA=','27t9xq7a',1,0,'',2,0,0),(29477,6597,6,2,0,'87.218.146.198',1175847031,1,0,1,1,1,1,'','','Manuel,\n\nEstás usando una versión no legal de FWH y además vienes a pedir soporte técnico y ayuda ?  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->\n\nEl software que tu haces, para tus clientes, se lo pueden \"prestar\" unos a otros ?','',0,'AIA=','2u74ruw2',1,0,'',2,0,0),(29478,6599,6,2,0,'87.218.146.198',1175847176,1,0,1,1,1,1,'','','Manuel,\n\nCuando adquieras FWH de forma legal con mucho gusto te ayudaremos en todo lo que te haga falta, gracias','',0,'AIA=','3k0owf29',1,0,'',2,0,0),(29479,6539,3,413,0,'194.106.16.43',1175847941,1,0,1,1,1,1,'','','Jeff, \nI\'m interested in the changes you have done. Please could you send to me. To my email: <!-- e --><a href=\"mailto:zalezalon@gmail.com\">zalezalon@gmail.com</a><!-- e -->.\n\nThis is my related message: \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4890&amp;highlight=pantalla\">http://fivetechsoft.com/forums/viewtopi ... t=pantalla</a><!-- m -->\n\nThanks','',0,'AIA=','2dpst476',1,0,'',413,0,0),(29480,6609,6,375,0,'84.122.116.125',1175848968,1,0,1,1,1,1,'','Para Antonio de Manuramos','Tienes razón. Parece que tendré que apañarmelas solo.\n\nDe todas formas, para que te quedes más tranquilo, nunca utilizé software ilegal para vender productos. Hasta hace pocos años trabajaba para F. Trenado Informática S.L., con un FW 2.0 con licencia Legal de los años 90. Cuando dejé de trabajar para él (mucho trabajo para poco dinero) conseguí un FW 2.3 para comparar, software que sólo utlicé como hobby pues me gusta experimentar aunque dejé de programar para la calle (no me dedico a esto). También te habrás dado cuenta que alguna vez intenté ayudar en este foro, y que todo lo que he experimentado lo he compartido con éstos amigos. Creo que no he abusado de vosotros como estas dando a entender, estarás de acuerdo que he sido sincero con tigo y con los demás. Me avergonsaría mucho que la gente pensara eso de mi.\n\nAhora me ha salido un posible cliente. Necesito algo fiable y versatil de al menos 32 bits y que no tarde mucho en aprender. Si FWH me conviene lo compraré sino me pasaré a DELPHI como mi vecino, o a otro con el que pueda experimentar primero. Pero no me voy a gastar más de 300 Euros para que a lo mejor después no lo puedo amortizar. Comprendelo, tengo otras prioridades económicas (vamos, que no me sobra el dinero). Tampoco voy a comprar FW pués está obsoleto (16 bits). Si me quieres ayudar te lo gradeceré sino pues nada ya intentaré apañarmelas sólo como hasta ahora. De todas formas gracias por la ayuda prestada.\n\nUn saludo','',0,'AIA=','2ivbq83i',1,0,'',375,0,0),(29481,6610,20,444,0,'81.208.83.217',1175852164,1,0,1,1,1,0,'','Auguri','Auguri di buona Pasqua a tutti!\n\nDino Alessandri','',0,'AIA=','1f6alh36',1,0,'',444,0,0),(29482,6609,6,2,0,'87.218.146.198',1175852860,1,0,1,1,1,1,'','','Pero Manu, tu crees que es razonable ir a un foro de soporte técnico a pedir soporte diciendo que estás usando una versión pirata ???\n\nUn poco de sensatez...\n\nFWH es totalmente compatible con FW y está más que demostrado, por el número de usuarios que tiene, que funciona y cumple su trabajo.\n\nA ti te gusta que te compren tu software, ó que tus clientes se lo \"presten\" entre ellos ?\n\nEs cierto que tu ayudas en estos foros, y tambien a ti se te ha ayudado. Eso no justifica que uses una versión ilegal.','',0,'AIA=','3ht3js1n',1,0,'',2,0,0),(29483,333,7,2,0,'87.218.146.198',1175853241,1,0,1,1,1,1,'','','Debería funcionar, pruébalo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','p081l1vj',1,0,'',2,0,0),(29484,6610,20,6,0,'87.21.239.240',1175853479,1,0,1,1,1,1,'','Re: Auguri','Buona Pasqua!\n\nEMG','',0,'AIA=','dquvo5bo',1,0,'',6,0,0),(29485,6607,3,6,0,'87.21.239.240',1175853920,1,0,1,1,1,1,'','Re: xbrowse multiselect','oBrw:aSelected\n\nEMG','',0,'AIA=','2f0gw87t',1,0,'',6,0,0),(29486,6611,6,439,0,'200.125.35.203',1175858360,1,0,1,1,1,1,'','MUY FELICES PASCUAS PARA TODOS','Un afectuoso saludo a todos los amigos del Foro y al equipo de Fivetechsoft, que tengan unas pascuas muy felices junto a sus familias.','',0,'AIA=','r7mn1ul3',1,0,'',439,0,0),(29487,6612,6,180,0,'88.23.57.32',1175858806,1,0,1,1,1,0,'','Para Manu Ramos','Hola Manuramos:\n\n     Te aseguro que el paso de FW a FWH es practicamente transparente. No sabes el cangelo que me daba este asunto hace unos meses, pero me decidí y en poco más de usa semana lo tenía todo funcionando y no sabes cuanto me alegro de haber dado el paso. Así que, ¡ ánimo hombre ! , y salta de una vez.\n\nUn saludo,\nManuel Aranda','',0,'AIA=','3t6kz02m',1,0,'',180,0,0),(29488,6613,1,173,0,'203.113.38.8',1175862971,1,0,1,1,1,0,'','How to skip valid of get to button in a dialog','Dear all,\n\nI\'m design a dialog for log on to system, in the dialog have 2 get and 2 button. How to skip valid of get when fault to button for exit system ?\n\nBest regrad,\n\nPeter','',0,'AIA=','3cw4yp9r',1,0,'',173,0,0),(29489,6613,1,2,0,'87.218.146.198',1175867999,1,0,1,1,1,1,'','','Peter,\n\nUse the clause CANCEL on the button:\n\n@ ..., ... BUTTON ... CANCEL\n\nor\n\nREDEFINE BUTTON ID ... CANCEL\n\nIt will skip the VALID of the current GET','',0,'AIA=','1bgsn293',1,0,'',2,0,0),(29490,6612,6,72,0,'189.136.193.209',1175872955,1,0,1,1,1,0,'','','Manu Ramos, para llevar el código de 16 a 32 bits solo será necesario hacer la compilación.\n\nComo menciona Manuel Aranda puede llevarte una semana armar el nuevo ambiente o tomar algunas decisiones sobre que herramientas usar (BRW o Pelles C, AJMake o VerCE) y tal vez conseguir algunas libs y clases, pero nada que este foro no pueda aportar.\n\nCreeme que FWH es totalmente funcional en los 32 bits, aprovecha la ventaja de haber trabajado los años que mencionas. Como ejemplo puedes revisar RC-eXtended (<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->).\n\nAdmiro tu sinceridad (de este lado del charco le llamamos pendejez) al mencionar que tienes una versión \'prestada\'.\n\nNo eres el único.\n\nSé de más de un colega que está trabajando de esa forma, por aquí navegan, no se atreven a mostrarse pero si revisan y consultan a otros.\n\n!Los invito a adquirir el producto!, seguro que obtendrán mayores beneficios.','',0,'AIA=','27yft5he',1,0,'',72,0,0),(29491,6611,6,785,0,'190.64.217.78',1175878391,1,0,1,1,1,0,'','','Jose:\n\nIgualmente para ti y tu familia como también para todos los\namigos de esta comunidad.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','3aho54im',1,0,'',785,0,0),(29492,6614,3,439,0,'200.125.41.54',1175881906,1,0,1,1,1,1,'','A Very Happy Easter to All!!!!','The best Easter for all my good friends of this forum, thanks for your help and support.','',0,'AIA=','2s78ll1d',1,0,'',439,0,0),(29493,6614,3,6,0,'87.21.239.240',1175883826,1,0,1,1,1,1,'','Re: A Very Happy Easter to All!!!!','Happy Easter!\n\nEMG','',0,'AIA=','1srpt93t',1,0,'',6,0,0),(29496,2486,16,376,0,'190.42.33.89',1175889901,1,0,1,1,1,1,'','','Antonio\n\nLo que quise decir es que deberiamos tener en el foro un cuadro que resuma la versiones de FWH en una columna y en otra las \"builds\" de (x)Harbour correspondientes que eviten las confusiones sobre compatibilidad (algo parecido al cuadro que tenía -no se si todavía lo tiene-- la pagina de Patrick Mast). Este cuadro sería el referente para todos los miembros del foro que tienen versiones que corresponden a los años 2003, 2004, 2005 y 2006.','',0,'AIA=','2acn26ow',1,0,'',376,0,0),(29497,6539,3,69,0,'74.13.28.188',1175897588,1,0,1,1,1,0,'','','Andrés,\n\nSent to your private email.\n\n\n\nJeff','',0,'AIA=','2xix9zgx',1,0,'',69,0,0),(29498,6614,3,69,0,'74.13.28.188',1175901349,1,0,1,1,1,0,'','','Happy Easter Everybody.','',0,'AIA=','c1f9cvga',1,0,'',69,0,0),(29499,6608,6,492,0,'189.147.26.143',1175905380,1,0,1,1,1,1,'','','Hola Andres\n\nViene incluida con xHarbour, asi que, si es lo que usas para compilar, la tienes a la mano  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos','',0,'AIA=','2lhijegp',1,0,'',492,0,0),(29500,6616,3,69,0,'74.13.28.188',1175910862,1,0,1,1,1,0,'','Time Function','Hi Everybody,\n\nIs there a function to convert  seconds  to  a time format like HH:MM:SS ?\n\nExanple:\n\nnSeconds = 3600\n\nsomething like SecondsToTime( nSeconds )  would return \"01:00:00\"\n\n\nThanks,\nJeff','',0,'AIA=','2ginsj2a',1,0,'',69,0,0),(29501,6600,3,69,0,'74.13.28.188',1175911559,1,0,1,1,1,0,'','','Ok ... lets start over ...\n\nHow can I allow the user to draw a box on the screen with a click and drag?\n\n\nIf I can figure out this first step I know how I can fill the box with a color.\n\nThen all I will need is the know the co-ordinates of the box and I think I can get the rest.\n\n\n\nThanks,\nJeff','',0,'AIA=','lduvlxxl',1,0,'',69,0,0),(29502,6608,6,439,0,'200.125.41.127',1175913440,1,0,1,1,1,1,'','','Efectivamente se incluye en xHarbour desde Junio 2004\n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org/index.asp?page=news/20040628\">http://www.xharbour.org/index.asp?page=news/20040628</a><!-- m -->\n\nSintaxis:\nOrdWildSeek(cPatern, [lCont])   \n\n(Cuidado, trabaja sobre índices CDX)\n\nOrdWildSeek() busca un string de caracteres que puede contener caracteres comodines ( wild card ) en el índice activo. Esto permite  recoger subsets de registros basados en una búsqueda de un string aproximado. Los registros que cuadran con la búsqueda se encuentran en el índice activo, y el puntero de registro se posiciona sobre el registro correspondiente. la función Found() devolverá .t. hasta que el puntero se mueva nuevamente. Ade,+as BoF() and EoF() dan .F. (falso), Si el valor que se busca no se encuentra, OrdWildSeek() posicionará el puntero en el \"Registro Fantasma\" (Lastrec()+1), por lo cual Found() devuelve .F. (falso) y Eof() .T. (verdadero). El seteo por medio de SET SOFTSEEK es ignorado por OrdWildSeek(). \n\n(Traduccion libre del manual de xHarbour)\n\nNo traduje más porque el resto está en el idioma de loro barranquero liptum no se que que en fin.... no se entiende, y como la documentación de xHarbour.org fué escrita durante \"la pasión de Cristo\" pues, a jo...robarse.','',0,'','5txkdnds',1,0,'',439,0,0),(29503,6616,3,6,0,'82.57.161.85',1175929466,1,0,1,1,1,1,'','Re: Time Function','[code:22evde2p]FUNCTION MAIN&#40;&#41;\n\n    LOCAL nSec &#58;= SECONDS&#40;&#41;\n\n    ? nSec, SECONDSTOTIME&#40; nSec &#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SECONDSTOTIME&#40; nSec &#41;\n\n    LOCAL nHour, nMin\n\n    nHour = INT&#40; nSec / 3600 &#41;\n\n    nSec -= nHour * 3600\n\n    nMin = INT&#40; nSec / 60 &#41;\n\n    nSec -= nMin * 60\n\n    RETURN STRZERO&#40; nHour, 2 &#41; + &quot;&#58;&quot; + STRZERO&#40; nMin, 2 &#41; + &quot;&#58;&quot; + STRZERO&#40; nSec, 2 &#41;[/code:22evde2p]\n\nEMG','',0,'AIA=','22evde2p',1,0,'',6,0,0),(29504,6611,6,533,0,'88.25.228.158',1175938392,1,0,1,1,1,0,'','','Lo mismo os deseo a todos. \n\nSALUDOS.','',0,'AIA=','26aeeg39',1,0,'',533,0,0),(29505,6616,3,69,0,'74.13.28.188',1175953583,1,0,1,1,1,0,'','','Exactly what I needed <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nThanks Enrico.\n\n\nJeff','',0,'AIA=','1hyymyxl',1,0,'',69,0,0),(29506,6543,3,484,0,'88.218.22.24',1175954079,1,0,1,1,1,0,'','','[quote=&quot;Jeff Barnes&quot;:3r6nx70q]Thanks Antonio.[/quote:3r6nx70q]','',0,'gA==','3r6nx70q',1,0,'',484,0,0),(29507,6614,3,86,0,'213.119.103.68',1175958843,1,0,1,1,1,1,'','','Also happy easter to you all.','',0,'gA==','1ii7s6yr',1,0,'',86,0,0),(29509,6600,3,2,0,'87.218.146.172',1175964196,1,0,1,1,1,1,'','','Jeff,\n\nThere is a working sample at fwh\\visual\\source\\design.prg\n\nPlease review the methods LButtonDown(), LButtonUp(), MouseMove() and DrawBox()','',0,'gA==','5bzhrmpz',1,0,'',2,0,0),(29510,6617,3,179,0,'200.63.213.2',1175965186,1,0,1,1,1,1,'','ot: Ads Server y VFP 9.0','Good Morning to all\nSomeone of us have experience to conect Visual Fox pro V 9.0 With Ads Server ?\nThanks in advance\n\nAtt\n\nWilson \'W\' Gamboa A\n<!-- e --><a href=\"mailto:swrite@uio.satnet.net\">swrite@uio.satnet.net</a><!-- e -->\npd: excuseme my bad English','',0,'gA==','astx3zol',1,0,'',179,0,0),(29511,6618,6,533,0,'88.25.228.158',1175965352,1,0,1,1,1,0,'','Problema Toolbar','Buenas foro, tengo un pequeño problema, y es que modificando el ejemplo toolbar2.prg en la cual en vez de generar el toolbar y rebar en la ventana principal lo hago en una ventana hija. Bueno, pues cuando paso el cursor sobre los botones, las imagenes se pierden.\n\n[code:2f2n27zt]\ndefine window &#58;&#58;Container  of owndPrincipal MDICHILD title &quot;Titulo&quot;\n		define imagelist &#58;&#58;oImageList SIZE 32, 32\n		define imgbitmap of &#58;&#58;oImageList name &quot;NEW&quot;   color nRGB&#40; 255, 0, 255 &#41; \n		define imgbitmap of &#58;&#58;oImageList name &quot;KEYS&quot;  color nRGB&#40; 255, 0, 255 &#41;\n		\n		define rebar &#58;&#58;oReBar of &#58;&#58;Container\n	  \n		define toolbar &#58;&#58;otoolbar of &#58;&#58;oReBar SIZE 50,58 imagelist &#58;&#58;oImageList\n	  \n		define tbbutton of &#58;&#58;otoolbar action	&#58;&#58;First&#40;&#41; 					tooltip &quot;Ir al Primer Registro&quot; 		prompt  &quot;Primer Registro&quot;\n		define tbbutton of &#58;&#58;otoolbar action	&#58;&#58;Container&#58;End&#40;&#41; 	tooltip &quot;Salir del Mantenimiento&quot; prompt  &quot;Salir Mantenimiento&quot;\n		// We set the widths for each toolbar\n		&#58;&#58;otoolbar&#58;nWidth = 300\n		// Now we insert the toolbars into the rebar\n		&#58;&#58;oReBar&#58;InsertBand&#40; &#58;&#58;otoolbar &#41;\n	\n   activate window &#58;&#58;Container maximized\n   &#58;&#58;oImageList&#58;End&#40;&#41;\n[/code:2f2n27zt]\n\nEste código es llamado de una opcion principal del menu. Pues cuando aparece la ventana, las imagenes si aparecen, pero cuando el ratón pasa por encima de ella se borran\n\n¿Alguna solución?','',0,'AIA=','2f2n27zt',1,0,'',533,0,0),(29512,6618,6,2,0,'87.218.146.172',1175965624,1,0,1,1,1,1,'','','Mike,\n\nEn esta línea estás destruyendo el imagelist, por eso las limágenes se pierden:\n\n   activate window ::Container maximized \n   [color=red:7nt558pq]::oImageList:End()[/color:7nt558pq] \n\nHas de hacerlo en el valid de esa ventana ó al finalizar la aplicación','',0,'Ag==','7nt558pq',1,0,'',2,0,0),(29513,6575,6,64,0,'201.72.124.2',1175967567,1,0,1,1,1,1,'','','up!','',0,'Ag==','3ignr5sn',1,0,'',64,0,0),(29515,6612,6,375,0,'84.122.116.125',1175968992,1,0,1,1,1,1,'','','Gracias por el ánimo. Cuando lo necesite de verdad pasaré a Habour.\n\nTocayo, Granaino, yo nací en Armilla.','',0,'Ag==','37zz9ux2',1,0,'',375,0,0),(29516,6600,3,69,0,'74.13.28.188',1175969846,1,0,1,1,1,0,'','','Thanks Antonio,   but I don\'t have a \"visual\" folder in my FWH directory.\n\nCould you please e-mail me the design.prg file\n\n\njeff @ can-soft . net\n\n\nThanks,\n\nJeff','',0,'Ag==','3nknyzfd',1,0,'',69,0,0),(29517,6600,3,2,0,'87.218.146.172',1175970414,1,0,1,1,1,1,'','','Jeff,\n\nAlready sent by email','',0,'Ag==','z46c6f5a',1,0,'',2,0,0),(29518,6620,6,252,0,'201.140.20.183',1175973177,1,0,1,1,1,0,'','¡AYUDA URGENTE! TRerport bug en startgroup al inciar el docu','Por favor ayudenme he pasado muchas horas en resolver el siguente problema y no he podido:\n  \n    Mando imprimir un encabezado antes de comenzar la impresion de un grupo, pero siempre al iniciar el documento se sobreescribe con la primera linea del grupo. Despues de que se imprime el primer grupo el problema no ocurre, el encabezado del grupo ya no se empalma con la impresion de la primera linea del grupo\n\n    El codigo es:\n\n\n[code:1dnrg60h]\nREPORT oReport ;\n     TITLE WcTitulo2;\n     HEADER WcTitulo1 CENTER;\n     FOOTER OemtoAnsi&#40;&quot;Pagina&#58; &quot;&#41;+str&#40;oReport&#58;nPage,3&#41; right;\n     FONT oFontArial8;\n     preview\n\n\n      COLUMN TITLE \'Fecha\' data Fecha\n\n      COLUMN TITLE \'Codigo\'  data Codigo\n\n       GROUP ON codigo;\n        footer \'Total de movimientos\'+str&#40;oReport&#58;aGroups&#91;1&#93;&#58;nCounter&#41;\n\nEND REPORT\n\nACTIVATE REPORT oReport;\non StartGroup &#40;oReport&#58;newLine&#40;&#41;,oReport&#58;&#40;\'Nuevo Grupo\'&#41;,oReport&#58;newLine&#40;&#41;&#41;\n[/code:1dnrg60h]\n\n\nAl iniciar la impresion del documento la frase \"Nuevo Grupo\" se sobreescribe con la fecha del primer elemento del grupo. A partir del siguiente grupo que se imprime en el documento el problema ya no ocurre.\n\n    Uso FWH 2.4 BCC 5.5 y XH 0.99.3\n\n    De antemano Muchas Gracias.\n    Jose Rios.','',0,'AIA=','1dnrg60h',1,0,'',252,0,0),(29519,6608,6,785,0,'190.64.206.182',1175973525,1,0,1,1,1,0,'','','Fernando:\n\nComo activo el flag HB_COMPAT_XPP en Harbour\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'AIA=','gxxegpm9',1,0,'',785,0,0),(29521,6600,3,69,0,'74.13.28.188',1175977775,1,0,1,1,1,0,'','','Antonio,\n\nSorry to be a pain but it looks like I also need the Visual.ch file.\nCould you please send that to my email as well.\n\nThanks,\nJeff','',0,'gIA=','hv7885np',1,0,'',69,0,0),(29522,6621,6,179,0,'200.63.213.2',1175978691,1,0,1,1,1,1,'','ot: Ads Server y VFP 9.0','buenas tardes a todos\nalguien tiene experiencia en acceder desde visual foxpro 9.0 a Advantage Database Server ?\nGracias x todo\nSaludos\n\nAtt\n\nWilson \'W\' Gamboa A\n<!-- e --><a href=\"mailto:swrite@uio.satnet.net\">swrite@uio.satnet.net</a><!-- e -->','',0,'gIA=','33fhjdg2',1,0,'',179,0,0),(29523,6608,6,785,0,'190.64.204.225',1175979745,1,0,1,1,1,0,'','','Muchas gracias Fernando.\n\nSaludos\n\nRuben Fernandez','',0,'gIA=','pup66io2',1,0,'',785,0,0),(29524,6600,3,2,0,'87.218.146.172',1175981919,1,0,1,1,1,1,'','','Jeff,\n\nAlready sent <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','3pkjs0rm',1,0,'',2,0,0),(29525,6600,3,69,0,'74.13.28.188',1175991283,1,0,1,1,1,0,'','','I\'m having trouble figuring this out.\n\nDo you have a sample that shows how to call the function that allow you to draw the box?\n\n\nJeff','',0,'gIA=','u9gtfc0r',1,0,'',69,0,0),(29526,6614,3,103,0,'201.8.72.197',1175995384,1,0,1,1,1,1,'','','Happy Easter to all of you  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nRegards,','',0,'gIA=','ridh7sgr',1,0,'',103,0,0),(29527,6621,6,138,0,'148.221.192.95',1175995810,1,0,1,1,1,1,'','','Wilson:\n\nDesde VFP 9.0 el acceso a ADS se puede hacer por ADO o por ODBC, ADS tiene los drivers para hacer esto.','',0,'gIA=','zo4n02wz',1,0,'',138,0,0),(29528,6593,3,138,0,'148.221.192.95',1175996708,1,0,1,1,1,1,'','','Villian :\n\nIt\'s a know bug in Clipper ADS client 6.11 you need to update ADS Client to 6.2.\n\nUnfortunatly there\'s no longer support for 6.x versions, my best advice is to upgrade your ADS at least to version 7.1 (the newest version  it\'s 8.1 but there\'s not client for Clipper 16 bits you will need to use the 7.1 client).\n\nI have working programs using ADS 7.1 with Clipper 16 bits, ASP, and xHarbour / FWH, never had a problem with it.','',0,'gIA=','26j4ittd',1,0,'',138,0,0),(29529,6592,7,138,0,'148.221.192.95',1175997460,1,0,1,1,1,1,'','','El problema es con el sistema operativo, tienes windows CE (Compact Edition) 5, y lo que necesitas es Windows MOBILE 5.','',0,'gIA=','3sd2yn66',1,0,'',138,0,0),(29530,6608,6,492,0,'189.147.26.143',1175998249,1,0,1,1,1,1,'','','Hola Amigo Jose\n\nGracias por la informacion.\n\nSeguire probando ya que en ocasiones me manda algunos registros que no deberia, quiero asumir que es debido a los comodines.\n\nEso si, que lo hace rapidisimo no hay duda  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos','',0,'gIA=','8mdfcv6q',1,0,'',492,0,0),(29531,6622,6,1013,0,'190.42.39.117',1176008219,1,0,0,1,1,0,'','ZIP CON FWH y HARBOUR','Estimados Colegas, \nSoy nuevo en FWH y estoy tratando de utilizar el ejemplo testzip pero no funciona , indica que faltan funciones, me podrian dar una mano, utilizando esa funcion u otra para generar un archivo zip.\n\nGracias por su atencion,\n\nMarcelo','',0,'gIA=','3miqatwl',1,0,'',1013,0,0),(29532,6594,16,2,0,'87.218.146.172',1176014494,1,0,1,1,1,1,'','','Listen OSX \"Vicky\" reading FWH 7.04 whatsnew <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/5fec2b/\">http://www.filefactory.com/file/5fec2b/</a><!-- m -->','',0,'gIA=','336lv4q5',1,0,'',2,0,0),(29533,6623,19,2,0,'87.218.146.172',1176014631,1,0,1,1,1,1,'','OSX &quot;Vicky&quot; reading FWH 7.04 whatsnew','Listen OSX \"Vicky\" reading FWH 7.04 whatsnew <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/5fec2b/\">http://www.filefactory.com/file/5fec2b/</a><!-- m -->','',0,'gIA=','1vtnomnf',1,0,'',2,0,0),(29534,6618,6,533,0,'88.25.228.158',1176020733,1,0,1,1,1,0,'','Acentos en el tooltip','Gracias Antonio, era eso, no me fije que la ventana ejecutaba todas las lineas después de activarla.\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n  Por cierto creo que existe un problema con lo acentos en el tooltip, y es que aparecen otros caracteres, ¿qué puede ser?.\n\nMUCHAS GRACIAS.','',0,'gIA=','1ud19it6',1,0,'',533,0,0),(29535,6614,3,163,0,'82.56.160.60',1176022694,1,0,1,1,1,0,'','','Happy Easter !!!','',0,'gIA=','glr5i4sz',1,0,'',163,0,0),(29536,6624,3,868,0,'123.236.154.183',1176022814,1,0,1,1,1,1,'','excel tactivex','Can anyone help me? How can this vbscript be writtein in xharbour + fwh with tactivex control of fwh?\n\n[code:13zvh2t8]\nDim Spread As OWC11&#46;Spreadsheet\n\nDim stYears&#40;0 To 2&#41; As String\nDim iCounter As Integer\n\nstYears&#40;0&#41; = &quot;1996&quot;\nstYears&#40;1&#41; = &quot;1997&quot;\nstYears&#40;2&#41; = &quot;1998&quot;\n\nSet Spread = Me&#46;Spreadsheet1\n\nWith Spread\n\n    &#46;Height = 3540\n\n    &#46;Width = 4695\n\n    With &#46;ActiveWindow\n\n    \'Set the caption of the actual columnheadings&#46;\n\n        &#46;ColumnHeadings&#40;1&#41;&#46;Caption = &quot;Country &quot;\n\n        &#46;ColumnHeadings&#40;2&#41;&#46;Caption = &quot;Freight &quot;\n\n        &#46;ColumnHeadings&#40;3&#41;&#46;Caption = &quot;Shipments &quot;\n\n        \'Set the caption of the actual rowheadings&#46;\n\n        For iCounter = 0 To 2\n\n            &#46;RowHeadings&#40;iCounter + 1&#41;&#46;Caption = stYears&#40;iCounter&#41;\n\n            &#46;RowHeadings&#40;iCounter + 4&#41;&#46;Caption = stYears&#40;iCounter&#41;\n\n        Next iCounter\n\n        \'Limit the viewable part of the worksheet&#46;\n\n        &#46;ViewableRange = &quot;A1 &#58; D6&quot;\n\n    End With\n\nEnd With\n\nSet Spread = Nothing\n[/code:13zvh2t8]','',0,'AIA=','13zvh2t8',1,0,'',868,0,0),(29537,6622,6,180,0,'81.39.226.202',1176023732,1,0,1,1,1,0,'','','Hola Marcelo:\n\nPara comprimir/descomprimir en ZIP tienes que utilizar xHarbour y enlazar las librerias PCREPOS.LIB y HBZIP.LIB (Creo que Harbour no las soporta).\n\nUn saludo,\nManuel Aranda','',0,'AIA=','1jf7lne4',1,0,'',180,0,0),(29538,2174,3,130,0,'84.138.0.142',1176025399,1,0,1,1,1,0,'','','Silvio,\n\nif all pc are in an active directory scheme or in a domain, you can solve this using GPO´s (group policies). There you can restrict the users from starting programs, write your own startmenu and so on. You can start the GPO-editor with gpedit.msc in the start/run-menü. \n\nIt´s very difficult to explain it in few words, so I suggest to read some literature about this very complex subject to get an overview about this technique.\n\nStefan','',0,'AIA=','3ep5t392',1,0,'',130,0,0),(29539,6624,3,6,0,'87.18.232.205',1176026250,1,0,1,1,1,1,'','Re: excel tactivex','This is an incomplete test. It shows the spreadsheet but I was not able to get or set ColumnHeadings property:\n\n[code:2rrc96kw]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oOwc, oColumnHeadings\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 ACTIVEX oOwc;\n           PROGID &quot;OWC&#46;Spreadsheet&quot;\n\n    oColumnHeadings = oOwc&#58;GetProp&#40; &quot;ColumnHeadings&quot; &#41;\n\n    // This is NIL and I don\'t know why&#58;\n\n//    ? oColumnHeadings\n\n    oWnd&#58;oClient = oOwc\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2rrc96kw]\n\nEMG','',0,'AIA=','2rrc96kw',1,0,'',6,0,0),(29540,6600,3,2,0,'87.218.146.172',1176032661,1,0,1,1,1,1,'','','Jeff,\n\nHere you have a working sample:\n[code:wy7wxpeq]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd, lBoxDraw &#58;= &#46;f&#46;, nBoxTop, nBoxLeft, nBoxBottom, nBoxRight\n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot;\n   \n   oWnd&#58;bLClicked = &#123; | nRow, nCol | MouseDown&#40; nRow, nCol &#41; &#125;\n   oWnd&#58;bLButtonUp = &#123; | nRow, nCol | MouseUp&#40; nRow, nCol &#41; &#125;\n   oWnd&#58;bMMoved = &#123; | nRow, nCol | MouseMove&#40; nRow, nCol &#41; &#125;\n   \n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction MouseDown&#40; nRow, nCol &#41;\n\n   lBoxDraw   = &#46;t&#46;\n   nBoxTop    = nRow\n   nBoxLeft   = nCol\n   nBoxBottom = nRow\n   nBoxRight  = nCol\n   SetCapture&#40; oWnd&#58;hWnd &#41;\n   DrawBox&#40;&#41;\n\nreturn nil\n\nfunction MouseUp&#40; nRow, nCol &#41;\n\n   if lBoxDraw\n      DrawBox&#40;&#41;\n      lBoxDraw = &#46;f&#46;\n      ReleaseCapture&#40;&#41;\n   endif   \n\nreturn nil\n\nfunction MouseMove&#40; nRow, nCol &#41;\n\n   if lBoxDraw\n      DrawBox&#40;&#41;\n      nBoxBottom = nRow\n      nBoxRight  = nCol\n      DrawBox&#40;&#41;\n   endif\n\nreturn nil\n\nfunction DrawBox&#40;&#41;\n\n   RectDotted&#40; oWnd&#58;hWnd, nBoxTop,;\n                     nBoxLeft, nBoxBottom, nBoxRight &#41;\n\nreturn nil\n[/code:wy7wxpeq]\n[url=http&#58;//imageshack&#46;us:wy7wxpeq][img:wy7wxpeq]http&#58;//img224&#46;imageshack&#46;us/img224/5599/boxre7&#46;png[/img:wy7wxpeq][/url:wy7wxpeq]','',0,'GIA=','wy7wxpeq',1,0,'',2,0,0),(29541,6424,7,2,0,'87.218.146.172',1176034077,1,0,1,1,1,1,'','','En principio los folders suelen usan colores predefinidos de Windows, que que el pintado lo hace Windows y no FWPPC.','',0,'GIA=','22yd0xuy',1,0,'',2,0,0),(29542,6532,2,2,0,'87.218.146.172',1176034171,1,0,1,1,1,1,'','','Te falta una L:\n\noBrw:[color=red:2oinggd2]l[/color:2oinggd2]AutoEdit = .T.','',0,'Ag==','2oinggd2',1,0,'',2,0,0),(29543,6618,6,2,0,'87.218.146.172',1176034242,1,0,1,1,1,1,'','','Has probado con OemToAnsi( cToolTip ) ?','',0,'Ag==','2wrp0glu',1,0,'',2,0,0),(29544,6593,3,267,0,'201.9.134.88',1176035514,1,0,1,1,1,1,'','','Rene,\n\nWhere I obtain client 6.2 for CA-Clipper?  you have?','',0,'Ag==','ajrozvnc',1,0,'',267,0,0),(29545,6624,3,868,0,'219.64.121.60',1176039424,1,0,1,1,1,1,'','','yes. i could not find out how to get this working.','',0,'Ag==','1457h9fi',1,0,'',868,0,0),(29546,6614,3,19,0,'83.18.178.178',1176039448,1,0,1,1,1,0,'','','Happy Easter to all !!! \n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Ag==','2huuewj2',1,0,'',19,0,0),(29547,6600,3,69,0,'74.13.28.188',1176042191,1,0,1,1,1,0,'','','Thank you very much Antonio.\n\nThis is exactly what I needed.\n\nWith your help I was able to draw the 2 boxes with user limits and the fill colors just like I had visioned in less than 10 minutes.\n\n\n\nThanks again,\n\nJeff','',0,'Ag==','1txoxlov',1,0,'',69,0,0),(29548,6600,3,2,0,'87.218.146.172',1176042549,1,0,1,1,1,1,'','','Jeff,\n\nWould you mind to share your sample to see how it works ? Thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','1u2lxurs',1,0,'',2,0,0),(29549,6618,6,533,0,'88.25.228.158',1176044496,1,0,1,1,1,0,'','','Fue lo primero que hice, pero no resultó, además, trabajo con editores en windows y NO debiera de pasar, pero de todas formas los caracteres raros que salen no son los que realmente salen cuando trabajabamos con editores DOS.\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nSALUDOS,','',0,'Ag==','11qoxsev',1,0,'',533,0,0),(29550,6625,6,533,0,'88.25.228.158',1176044862,1,0,1,1,1,0,'','UEStudio','Buenas Foro!, se que este  puede que no sea el lugar en el que debiera preguntarlo, pero es que llevo 2 días y no doy con la tecla y además se que tiene que ser un pego. Mirad tengo instalado los paquetes de programación en las siguientes carpetas:\n\n   C:\\XHARBOUR\n   C:\\BCC55\n   C:\\FWH\n\n   Con estas rutas y con los ficheros de configuración del bcc apuntando todo a  sus respectivas carpetas en la C,  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> ¿Cómo configuro el UEStudio? <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> , \n\nMuchisimas gracias de antemano <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'Ag==','3ncafz3t',1,0,'',533,0,0),(29551,6565,3,35,0,'65.188.6.143',1176046125,1,0,1,1,1,0,'','','Enrico\n\nIncluded is my first attempt in opening an Access .mdb with multiple tables .. Autimately what I want to do is open a listbox .. then double click on a line and relate ( select * for  file_num =  ) .. that part is to come.\n\nI am having trouble defining the column\'s .. I have the  oRs:Fields( \"file_num\" ):Value,; working because these are :text\' .. but the ID columb is a LongInteger .. if I define it as Value .. I get a column with no data .. what are the object data type indentifiers .. for numeric, text, and dates ??\n\nAnd .. how do I pass an object value like the \'file_num\" to put in my sql statement to relate and spin off another listbox opening another table to return just those matching rows ??\n\nAlso .. I will have to edit some of the row data and build a dialog of values ..  How would I define a column object like field-&gt;address ??\n\nThanks\nRick Lipkin\n\n\n//----------------\n#include \"Fivewin.ch\"\n#include \"Tcbrowse.ch\"\n\n\nFUNCTION MAIN()\n\n    LOCAL oRs, oErr\n\n    oRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\n    TRY\n        oRS:Open( \"SELECT * FROM LWMFS\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\n    CATCH oErr\n        ? oErr:Description\n        RETURN NIL\n     END TRY\n\n     WBROWSERECORDSET( oRs )\n  *  TCBROWSERECORDSET( oRs )\n\n    oRs:Close()\n\n    RETURN NIL\n\n\nSTATIC FUNCTION WBROWSERECORDSET( oRs )\n\n    LOCAL oDlg, oBrw, nRec\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 LISTBOX oBrw FIELDS oRs:Fields( \"id\" ):Value,; // here\n                               oRs:Fields( \"file_num\" ):Value,;\n                               oRs:Fields( \"file_name\" ):Value,;\n                               oRs:Fields( \"address\" ):Value;\n           HEADERS \"Id_Num\",;\n                   \"File_num\" ,;\n                   \"File_name\",;\n                   \"Address\"\n       *   ON RIGHT CLICK ( nRec := oRs:AbsolutePosition,;\n       *                    oBrw:Report( \"TWBrowse report\", .T. ),;\n       *                    oRs:MoveFirst(),;\n       *                    oRs:Move( nRec - 1 ) )\n\n    oBrw:bLogicLen = { || oRs:RecordCount }\n    oBrw:bGoTop    = { || oRs:MoveFirst() }\n    oBrw:bGoBottom = { || oRs:MoveLast() }\n    oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }\n    oBrw:cAlias    = \"ARRAY\"\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg:SetControl( oBrw );\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TCBROWSERECORDSET( oRs )\n\n    LOCAL oDlg, oBrw, oCol, nRec\n\n    DEFINE DIALOG oDlg SIZE 300, 300\n\n    @ 0, 0 BROWSE oBrw //;\n         * ON RIGHT CLICK ( nRec := oRs:AbsolutePosition,;\n         *                  oBrw:Report( \"TWBrowse report\", .T. ),;\n         *                  oRs:MoveFirst(),;\n         *                  oRs:Move( nRec - 1 ) )\n\n    ADD COLUMN TO oBrw;\n               DATA oRs:Fields( \"file_name\" ):Value;\n               HEADER \"File_name\"\n\n    oBrw:lCellStyle = .T.\n\n    oBrw:bLogicLen = { || oRs:RecordCount }\n    oBrw:bGoTop    = { || oRs:MoveFirst() }\n    oBrw:bGoBottom = { || oRs:MoveLast() }\n    oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }\n    oBrw:cAlias    = \"ARRAY\"\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg:SetControl( oBrw );\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SKIPPER( oRs, nSkip )\n\n    LOCAL nRec := oRs:AbsolutePosition\n\n    oRs:Move( nSkip )\n\n    IF oRs:EOF; oRs:MoveLast(); ENDIF\n    IF oRs:BOF; oRs:MoveFirst(); ENDIF\n\n    RETURN oRs:AbsolutePosition - nRec','',0,'Ag==','bifum5g7',1,0,'',35,0,0),(29552,6600,3,69,0,'74.13.28.188',1176048057,1,0,1,1,1,0,'','','Antonio,\n\nHere is the sample you gave me with my small changes.\n\nBasically,  in my application,  I have 2 waveforms on the screen where I need to give the user the option to \"exclude\" some data if need be.\n\nThe 2 \"filled\" areas in the code below would represent where my waveforms are.\n\nYou can look at an actual screen shot (with the waveforms) here:\n<!-- m --><a class=\"postlink\" href=\"http://img337.imageshack.us/my.php?image=boxvb4.jpg\">http://img337.imageshack.us/my.php?image=boxvb4.jpg</a><!-- m -->\n\nAgain,  Thank you very much for all your help Antonio.  I would never have figured out this one with out the help.\n\nJeff\n\n\n[code:brhfdaj7]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd, lBoxDraw &#58;= &#46;f&#46;, nBoxTop, nBoxLeft, nBoxBottom, nBoxRight, oBrush\n\nfunction Main&#40;&#41;\n   DEFINE BRUSH oBrush STYLE DIAGCROSS COLOR RGB&#40;218,165,32&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;Box Test with Fill&quot;\n      oWnd&#58;bLClicked  = &#123; | nRow, nCol | MouseDown&#40; nRow, nCol &#41; &#125;\n      oWnd&#58;bLButtonUp = &#123; | nRow, nCol | MouseUp&#40; nRow, nCol &#41; &#125;\n      oWnd&#58;bMMoved    = &#123; | nRow, nCol | MouseMove&#40; nRow, nCol &#41; &#125;\n   ACTIVATE WINDOW oWnd MAXIMIZED\nreturn nil\n\nfunction MouseDown&#40; nRow, nCol &#41;\n   lBoxDraw   = &#46;t&#46;\n   nBoxTop    = nRow\n   nBoxLeft   = nCol\n   nBoxBottom = nRow\n   nBoxRight  = nCol\n   SetCapture&#40; oWnd&#58;hWnd &#41;\n   DrawBox&#40;&#41;\nreturn nil\n\nfunction MouseUp&#40; nRow, nCol &#41;\n   Local aRect1, aRect2, hPen\n   oWnd&#58;GetDc&#40;&#41;\n   hPen &#58;= CreatePen&#40; 0, 1, RGB&#40;54,54,54&#41;&#41;\n\n   if lBoxDraw\n      DrawBox&#40;&#41;\n      lBoxDraw = &#46;f&#46;\n      ReleaseCapture&#40;&#41;\n\n      aRect1 &#58;= &#123; 26,nBoxLeft,125,nBoxRight&#125;\n      aRect2 &#58;= &#123;185,nBoxLeft,395,nBoxRight&#125;\n      FillRect&#40;oWnd&#58;hDc,aRect1,oBrush&#58;hBrush&#41;\n      FillRect&#40;oWnd&#58;hDc,aRect2,oBrush&#58;hBrush&#41;\n   endif   \nreturn nil\n\nfunction MouseMove&#40; nRow, nCol &#41;\n   if lBoxDraw\n      DrawBox&#40;&#41;\n      nBoxBottom = nRow\n      nBoxRight  = nCol\n      DrawBox&#40;&#41;\n   endif\nreturn nil\n\nfunction DrawBox&#40;&#41;\n   RectDotted&#40;oWnd&#58;hWnd, 26,nBoxLeft,125,nBoxRight&#41;\n   RectDotted&#40;oWnd&#58;hWnd,185,nBoxLeft,395,nBoxRight&#41;\nreturn nil \n[/code:brhfdaj7]','',0,'AIA=','brhfdaj7',1,0,'',69,0,0),(29553,6600,3,6,0,'87.17.226.100',1176050410,1,0,1,1,1,1,'','','Wonderful samples!\n\nEMG','',0,'AIA=','3jy4z5ow',1,0,'',6,0,0),(29554,6612,6,519,0,'88.22.132.201',1176050811,1,0,1,1,1,0,'','','Manuramos \n\n   Pues yo trabajo en Armilla y vivo en un pueblo a 3 km de Armilla, si necesitas algo por aqui estamos  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n\n  Un saludo Armillero  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','389xdtox',1,0,'',519,0,0),(29555,6565,3,6,0,'87.17.226.100',1176050818,1,0,1,1,1,1,'','','[code:2gn55ggq]@ 0, 0 LISTBOX oBrw FIELDS STR&#40; oRs&#58;Fields&#40; &quot;id&quot; &#41;&#58;Value &#41;,;[/code:2gn55ggq]\n\n[quote=&quot;Rick Lipkin&quot;:2gn55ggq]And .. how do I pass an object value like the \'file_num\" to put in my sql statement to relate and spin off another listbox opening another table to return just those matching rows ??[/quote:2gn55ggq]\n\n\"SELECT * FROM MyTable WHERE file_num =\" + LTRIM( STR( oRs:Fields( \"file_num\" ):Value ) )\n\n[quote=&quot;Rick Lipkin&quot;:2gn55ggq]Also .. I will have to edit some of the row data and build a dialog of values ..  How would I define a column object like field-&gt;address ??[/quote:2gn55ggq]\n\noRs:Fields( \"address\" ):Value\n\nEMG','',0,'gIA=','2gn55ggq',1,0,'',6,0,0),(29556,6620,6,252,0,'201.140.17.167',1176051223,1,0,1,1,1,0,'','','Buenos Dias.\n\n          Es casi un echo que todos los que programamos en FWH usamos o hemos usado alguna vez el motor de reportes. Por lo menos alguien digame si en alguna version posterior a la 2.4 no ocurre este probema.\n\n\n          Gracias.\n\n          Jose Rios.','',0,'gIA=','1bryvmib',1,0,'',252,0,0),(29557,6622,6,1013,0,'190.42.39.117',1176051711,1,0,0,1,1,0,'','ZIP CON FWH y HARBOUR','Gracias Manuel\n\nPero hay alguna manera de hacer un zip con harbour o tengo que cambiarme a trabajar con xharbour ?\n\nCon cual es mejor trabajar Harbour o xHarbour ?\n\nSaludos,\n\nMarcelo','',0,'gIA=','t3wyixny',1,0,'',1013,0,0),(29558,6600,3,2,0,'87.218.146.172',1176052644,1,0,1,1,1,1,'','','Jeff,\n\nPlease change your function MouseUp() this way:\n[code:1wmkluap]\nfunction MouseUp&#40; nRow, nCol &#41; \n   Local aRect1, aRect2\n\n   if lBoxDraw \n      oWnd&#58;GetDC&#40;&#41; \n      DrawBox&#40;&#41; \n      lBoxDraw = &#46;f&#46; \n      ReleaseCapture&#40;&#41; \n      aRect1 &#58;= &#123; 26,nBoxLeft,125,nBoxRight&#125; \n      aRect2 &#58;= &#123;185,nBoxLeft,395,nBoxRight&#125; \n      FillRect&#40;oWnd&#58;hDc,aRect1,oBrush&#58;hBrush&#41; \n      FillRect&#40;oWnd&#58;hDc,aRect2,oBrush&#58;hBrush&#41; \n      oWnd&#58;ReleaseDC&#40;&#41;\n   endif    \nreturn nil \n[/code:1wmkluap]','',0,'AIA=','1wmkluap',1,0,'',2,0,0),(29559,6565,3,35,0,'65.188.6.143',1176052888,1,0,1,1,1,0,'','','Enrico\n\nThanks .. i am close .. got the ID column to work .. now i am trying to pass the correct parameter to my function to spin off another recordset .. failing to open based on my parameter.\n\nExample\n\n ..\n ..\n ON DBLCLICK( _Cercla( oRS:Fields( \"file_num\" ):value ) ) // 010462\n\n\n//---------------------------------------------\nStatic Func _Cercla( cFILENUM )\n\nLOCAL oRs1, oErr, oBROW, oDLG1\n\n// cFILENUM DOES = 010462 ..\n\noRs1 := CREATEOBJECT( \"ADODB.Recordset\" )\n\nTRY\n   oRS1:Open( \"SELECT * FROM CERCLA_INDEXING WHILE ASSOCIATED_FILE_NUM =\"+cFILENUM , \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\nCATCH oErr\n   MsginFo( \"failed to open table\" )  // DIES HERE\n  * ? oErr:Description\n   RETURN NIL\nEND TRY','',0,'AIA=','2h3zowwc',1,0,'',35,0,0),(29561,6565,3,6,0,'87.17.226.100',1176055065,1,0,1,1,1,1,'','','[code:338u0o4y]oRS1&#58;Open&#40; &quot;SELECT * FROM CERCLA_INDEXING WHILE ASSOCIATED_FILE_NUM =\'&quot;+cFILENUM+&quot;\'&quot; , &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=LWMFS&#46;mdb&quot;, 1, 3 &#41;[/code:338u0o4y]\n\nEMG','',0,'AIA=','338u0o4y',1,0,'',6,0,0),(29562,6565,3,35,0,'65.188.6.143',1176055425,1,0,1,1,1,0,'','','Enrico\n\nYour parameter was PERFECT .. I did have a \'while\' which should have been \'where\' .. my dumb mistake there ..\n\nNever would have figured ..\n\nASSOCIATED_FILE_NUM =\'\"+cFILENUM+\"\'\" \n\nThanks a MILLION\nRick Lipkin','',0,'AIA=','2lrl4uno',1,0,'',35,0,0),(29563,6565,3,35,0,'65.188.6.143',1176055877,1,0,1,1,1,0,'','','Enrico\n\nAnother question .. within a recordset .. how can I \'locate\' a specific record without changing the parameter of the select statement .. I would like to just do like :\n\nseek \'010462\' or locate \'010462\' where 101462 is the file_num .. no indexes in the table that I know of by the way ..\n\nDon\'t think it is that simple <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nRIck Lipkin','',0,'AIA=','29gpxf25',1,0,'',35,0,0),(29564,6565,3,6,0,'87.17.226.100',1176056121,1,0,1,1,1,1,'','','Can\'t you just scan the recordset?\n\nEMG','',0,'AIA=','405h8s8a',1,0,'',6,0,0),(29565,6624,3,2,0,'87.218.146.172',1176057407,1,0,1,1,1,1,'','','You are missing this:\n\n    [color=red:3vt2km67]With .ActiveWindow [/color:3vt2km67]\n\nHere you have it working:\n[code:3vt2km67]\n#include &quot;Fivewin&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n   LOCAL oWnd, oOwc, oActiveWindow, nCounter\n\n   DEFINE WINDOW oWnd \n\n   @ 0, 0 ACTIVEX oOwc; \n           PROGID &quot;OWC11&#46;Spreadsheet&quot; \n\n   oActiveWindow = oOwc&#58;GetProp&#40; &quot;ActiveWindow&quot; &#41;\n\n   OleSetProperty&#40; oActiveWindow, &quot;ColumnHeadings&quot;, 1, &quot;Country&quot; &#41;\n   OleSetProperty&#40; oActiveWindow, &quot;ColumnHeadings&quot;, 2, &quot;Freight&quot; &#41;\n   OleSetProperty&#40; oActiveWindow, &quot;ColumnHeadings&quot;, 3, &quot;Shipments&quot; &#41;\n\n   for nCounter = 0 To 5 \n      OleSetProperty&#40; oActiveWindow, &quot;RowHeadings&quot;, nCounter + 1, Str&#40; 2000 + nCounter &#41; &#41;    \n   next   \n\n   OleSetProperty&#40; oActiveWindow, &quot;ViewableRange&quot;, &quot;A1&#58;D6&quot; &#41;\n\n   oWnd&#58;oClient = oOwc\n    \n   ACTIVATE WINDOW oWnd\n\nRETURN NIL\n[/code:3vt2km67]\n[url=http&#58;//imageshack&#46;us:3vt2km67][img:3vt2km67]http&#58;//img399&#46;imageshack&#46;us/img399/3167/excelne2&#46;png[/img:3vt2km67][/url:3vt2km67]','',0,'GoA=','3vt2km67',1,0,'',2,0,0),(29566,6618,6,2,0,'87.218.146.172',1176058027,1,0,1,1,1,1,'','','Prueba con AnsiToOem( cToolTip ). Puede ser que el toolbar lo aplique directamente.','',0,'GoA=','vbqplutr',1,0,'',2,0,0),(29567,6625,6,2,0,'87.218.146.172',1176058413,1,0,1,1,1,1,'','','Mike,\n\nModifica estos valores en c:\\Archivos de Programa\\IDM Computer Solutions\\UEStudio \'06\\configs\\xHarbour Compiler\\Application\n\n[Variables]\nFWH = C:\\FWH\nCPATH = C:\\XHARBOUR\nBPATH = C:\\BCC55','',0,'','19ed6i37',1,0,'',2,0,0),(29569,6565,3,35,0,'65.188.6.143',1176060871,1,0,1,1,1,0,'','','Enrico\n\n2 more ( dumb ) questins .. \n\n1) How would I do a table scan .. something like Locate for oRs:Fields( \"file_num\" ):Value = \"010462\' ??\n\n2) Why when I try to set up a mdichild window instead of a dialog .. do I get a recordcount error ??  I have rem\'d out the Window syntax and put back in the Dialog syntax and the code worked .. rem out the Dialog syntax and put the Window syntax and the browse seems to have problems defining the listbox.\n\nSorry to be such a pest on a holiday !!\n\nRick Lipkin\n\n\n\nstatic Owndmdi\n\n//--------------------------------------------------------\nSTATIC FUNCTION _LwmfsBrow( oRs, oWND )\n\nLOCAL oBrw, nRec, oDLG\n\nlOK := .F.\n\n/*\nDEFINE WINDOW oWndMdi       ;\n       FROM 1,1 to 30,100   ;\n       Title \"Docket System Browse\";\n       Menu BuildMenu() ;\n       NoMinimize       ;\n       NoZoom           ;\n       of oWND          ;\n       MDICHILD\n*/\nDEFINE DIALOG oDLG ;\n       FROM 1,1 to 30,100 ;\n       TITLE \"Docket System Browse\"\n\n@ 0,0 LISTBOX oBrw FIELDS   ;\n      STR( oRs:Fields( \"id\" ):Value ),;\n      oRs:Fields( \"file_num\" ):Value,;\n      oRs:Fields( \"file_name\" ):Value,;\n      oRs:Fields( \"address\" ):Value;\n      HEADERS \"Id Numb\",;\n              \"File_num\" ,;\n              \"File_name\",;\n              \"Address\";\n      SIZES 80,80,300,300;\n   --   of oWNDMDI ; \n      ON DBLCLICK( _Cercla( oRS:Fields( \"file_num\" ):value ) );\n      UPDATE\n\n   *   oWNDMDI:ReFresh()\n   *   oWNDMDI:SetColtrol( oBRW)\n\n      oBrw:bLogicLen = { || oRs:RecordCount }\n      oBrw:bGoTop    = { || oRs:MoveFirst() }\n      oBrw:bGoBottom = { || oRs:MoveLast() }\n      oBrw:bSkip     = { | nSkip | Skipper( oRs, nSkip ) }\n      oBrw:cAlias    = \"ARRAY\"\n\nACTIVATE DIALOG oDlg;\n             ON INIT oDlg:SetControl( oBrw )\n/*\nACTIVATE WINDOW oWNDMDI;\n               ON INIT oWNDMDI:SetControl( oBRW );\n               VALID ( IIF( !lOK, _LwmfsClose(.T.), .F. ))\n*/\n\n\nRETURN NIL','',0,'','2gpmzejf',1,0,'',35,0,0),(29570,6624,3,6,0,'87.17.226.100',1176060908,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:h3fvttes]You are missing this:\n\n    [color=red:h3fvttes]With .ActiveWindow [/color:h3fvttes][/quote:h3fvttes]\n\nI already tried it and unfortunately it doesn\'t work for me (Office 2000). <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nEMG','',0,'gg==','h3fvttes',1,0,'',6,0,0),(29571,6565,3,6,0,'87.17.226.100',1176061402,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:1g4k95lc]1) How would I do a table scan .. something like Locate for oRs:Fields( \"file_num\" ):Value = \"010462\' ??[/quote:1g4k95lc]\n\noRs:Filter = \"file_num = \'010462\'\'\"\n\nEMG','',0,'gA==','1g4k95lc',1,0,'',6,0,0),(29572,6620,6,252,0,'201.140.17.167',1176061551,1,0,1,1,1,0,'','','Hola Fernando.\n\n         Si, ya probe poner varios newline(), pero cuando es el primer grupo del documento hace caso omiso de las lineas a saltar. A partir del segundo grupo este problema no ocurre.\n\n         ¿a ti te ha ocurrido este problema?.\n\n         Saludos.','',0,'gA==','2sf5lqza',1,0,'',252,0,0),(29573,6624,3,2,0,'87.218.146.172',1176061798,1,0,1,1,1,1,'','','Enrico,\n\nWhat\'s your Office PROGID ?','',0,'gA==','1cn46ldv',1,0,'',2,0,0),(29574,6565,3,35,0,'65.188.6.143',1176061954,1,0,1,1,1,0,'','','Enrico\n\nThis is all new to me ( sorta like the excel thing about a week ago ) .. please bear with me .. on the second earlier item .. it seems the oBrw code blocks do not get evaluated if I use the Define Windows syntax .. any ideas there ??\n\nThanks\nRick Lipkin','',0,'gA==','uj7my7wc',1,0,'',35,0,0),(29576,6565,3,6,0,'87.17.226.100',1176063975,1,0,1,1,1,1,'','','This is working fine here:\n\n[code:2ryiyzl8]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs, oErr\n\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    TRY\n        oRS&#58;Open&#40; &quot;SELECT * FROM Clienti&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=clienti&#46;mdb&quot;, 1, 3 &#41;\n    CATCH oErr\n        ? oErr&#58;Description\n        RETURN NIL\n    END TRY\n\n    WBROWSERECORDSET&#40; oRs &#41;\n    TCBROWSERECORDSET&#40; oRs &#41;\n\n    oRs&#58;Close&#40;&#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION WBROWSERECORDSET&#40; oRs &#41;\n\n    LOCAL oWnd, oBrw, nRec\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 LISTBOX oBrw FIELDS oRs&#58;Fields&#40; &quot;Cliente&quot; &#41;&#58;Value;\n           HEADERS &quot;CLIENTI&quot;;\n           ON RIGHT CLICK &#40; nRec &#58;= oRs&#58;AbsolutePosition,;\n                            oBrw&#58;Report&#40; &quot;TWBrowse report&quot;, &#46;T&#46; &#41;,;\n                            oRs&#58;MoveFirst&#40;&#41;,;\n                            oRs&#58;Move&#40; nRec - 1 &#41; &#41;\n\n    oBrw&#58;bLogicLen = &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    = &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n    oBrw&#58;bGoBottom = &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    oWnd&#58;oClient = oBrw\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TCBROWSERECORDSET&#40; oRs &#41;\n\n    LOCAL oWnd, oBrw, oCol, nRec\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 BROWSE oBrw;\n           ON RIGHT CLICK &#40; nRec &#58;= oRs&#58;AbsolutePosition,;\n                            oBrw&#58;Report&#40; &quot;TWBrowse report&quot;, &#46;T&#46; &#41;,;\n                            oRs&#58;MoveFirst&#40;&#41;,;\n                            oRs&#58;Move&#40; nRec - 1 &#41; &#41;\n\n    ADD COLUMN TO oBrw;\n               DATA oRs&#58;Fields&#40; &quot;Cliente&quot; &#41;&#58;Value;\n               HEADER &quot;CLIENTI&quot;\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;bLogicLen = &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    = &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n    oBrw&#58;bGoBottom = &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    oWnd&#58;oClient = oBrw\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\nSTATIC FUNCTION SKIPPER&#40; oRs, nSkip &#41;\n\n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition\n\n    oRs&#58;Move&#40; nSkip &#41;\n\n    IF oRs&#58;EOF; oRs&#58;MoveLast&#40;&#41;; ENDIF\n    IF oRs&#58;BOF; oRs&#58;MoveFirst&#40;&#41;; ENDIF\n\n    RETURN oRs&#58;AbsolutePosition - nRec[/code:2ryiyzl8]\n\nEMG','',0,'AIA=','2ryiyzl8',1,0,'',6,0,0),(29577,6624,3,6,0,'87.17.226.100',1176064120,1,0,1,1,1,1,'','','Where can I find it? I\'m using \"OWC.Spreadsheet\" for Office Web Component.\n\nEMG','',0,'AIA=','2n6apym2',1,0,'',6,0,0),(29578,6624,3,2,0,'87.218.146.172',1176065339,1,0,1,1,1,1,'','','Enrico,\n\nYes, that may be fine.\n\nHave you considered to upgrade to Office 2003 ?','',0,'AIA=','qegofpb6',1,0,'',2,0,0),(29579,6620,6,252,0,'201.140.17.167',1176066023,1,0,1,1,1,0,'','','Parece ser que alguien mas ya habia tenido este problema, pero no tuvo respuestas en el foro:\n\n       <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6233&amp;highlight=startgroup\">http://fivetechsoft.com/forums/viewtopi ... startgroup</a><!-- m -->.\n\n       Saludos.','',0,'AIA=','1d4a25j4',1,0,'',252,0,0),(29580,6565,3,35,0,'65.188.6.143',1176066295,1,0,1,1,1,0,'','','Enrico\n\nThat seems a bit closer .. but I get an error after the listbox paints ..\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:RECORDCOUNT(0)\n   Called from: access.prg =&gt; (b)_LWMFSBROW(60)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:DISPLAY(0)\n   Called from: CONTROL.PRG =&gt; TWBROWSE:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: MAIN.PRG =&gt; MAIN(124)\n\n\nhere is the code .. \n\n//-------------------------------------------\nFunc Access( oWND )\n\nLOCAL  oErr, oRs\n\noRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\nTRY\n  oRS:Open( \"SELECT * FROM LWMFS ORDER BY FILE_NUM\" , \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\nCATCH oErr\n  MsgInfo( \"Error in Opening LWMFS table\" )\n  RETURN NIL\nEND TRY\n\n_LwmfsBrow(oRs ) //, oWND )\n\noRs:Close()\nReturn(nil)\n\n\n//--------------------------------------------------------\nSTATIC FUNCTION _LwmfsBrow( oRs ) //, oWND )\n\nLOCAL nRec, oDLG, oBTN1, oWND1, oBRW\n\nlOK := .F.\n\nDEFINE WINDOW oWnd1 ;\n       FROM 3,1 to 30,100 ;\n       TITLE \"Docket System Browse\"\n\n@ 0,0 LISTBOX oBrw FIELDS   ;\n      STR( oRs:Fields( \"id\" ):Value ),;\n      oRs:Fields( \"file_num\" ):Value,;\n      oRs:Fields( \"file_name\" ):Value,;\n      oRs:Fields( \"address\" ):Value;\n      COLSIZES 80,80,300,300;\n      HEADERS \"Id Numb\",;\n              \"File_num\" ,;\n              \"File_name\",;\n              \"Address\";\n      ON DBLCLICK( _Cercla( oRS:Fields( \"file_num\" ):value ) ) ;\n      UPDATE\n\n      oBrw:bLogicLen := { || oRs:RecordCount }\n      oBrw:bGoTop    := { || oRs:MoveFirst() }\n      oBrw:bGoBottom := { || oRs:MoveLast() }\n      oBrw:bSkip     := { | nSkip | Skipper( oRs, nSkip ) }\n      oBrw:cAlias    := \"ARRAY\"\n\n      oWND1:oClient := oBRW\n\nACTIVATE WINDOW oWND1\n\nRETURN NIL','',0,'AIA=','5sqf2m2c',1,0,'',35,0,0),(29581,3248,6,252,0,'201.140.17.167',1176066449,1,0,1,1,1,0,'','','Hola Armando.\n\n         ¿A ti no te sucedio que, al imprimir el primer primer grupo del documento, el encabezado del grupo se sobreescribe con primer elemento del grupo?\n    \n         <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6620\">http://fivetechsoft.com/forums/viewtopic.php?t=6620</a><!-- m -->\n\n         Saludos.','',0,'AIA=','6hc13lb3',1,0,'',252,0,0),(29582,6233,6,252,0,'201.140.17.167',1176066547,1,0,1,1,1,0,'','','Hola Rafael.\n\n         Yo tengo exactamente el mismo problema.\n\n          Dime si pudiste encontrar una solucion.\n\n          Saludos.\n\n          José','',0,'AIA=','3c1ilssv',1,0,'',252,0,0),(29583,6620,6,252,0,'201.140.17.167',1176067145,1,0,1,1,1,0,'','','Hola Amigos.\n\n        El motor de reportes FW en combinacion con scopes y los AOF, permite hacer maravillas, se pueden crear reportes que de otra forma nos llevarian muchisimas mas lineas. En un sistema de punto de venta que estoy desarrollando utilizo estas herramientas para hacer reportes de kardex, estadisticas, etc., con muy pocas lineas de codigo. Pero tengo el problema que les planteo del encabezado del primer grupo del documento que se sobreescribe con la primera linea del primer grupo. ¿Alguien sabe como solucionar esto?.\n\n     De antemano muchas gracias.\n\n     Jose Rios.','',0,'AIA=','3g18xp02',1,0,'',252,0,0),(29584,6565,3,35,0,'65.188.6.143',1176067728,1,0,1,1,1,0,'','','Enrico\n\nI see you are busy with Excel problems of your own .. I can zip up my files and send them to you .. difficult to troubleshoot this via the forum .. If you like you can send me a private message and I will send you the three files ..   2-prgs and the .mdb \n\nThanks\nRick Lipkin\n\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'AIA=','266rb5ym',1,0,'',35,0,0),(29585,6624,3,6,0,'87.17.226.100',1176067941,1,0,1,1,1,1,'','','I don\'t really need of Office. And I can\'t write code that only works on Office 2003.\n\nEMG','',0,'AIA=','1ekn7hu8',1,0,'',6,0,0),(29586,6565,3,6,0,'87.17.226.100',1176068262,1,0,1,1,1,1,'','','Try to run my sample modified for your MDB and let me know if it works.\n\nIf it don\'t then please send me your MDB and I will try it with my sample.\n\nEMG','',0,'AIA=','1kl5be2l',1,0,'',6,0,0),(29587,6624,3,2,0,'87.218.146.172',1176068376,1,0,1,1,1,1,'','','Enrico,\n\n&gt; And I can\'t write code that only works on Office 2003.\n\nI agree with you <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAnyhow, the sample is working fine','',0,'AIA=','1v8wm4p6',1,0,'',2,0,0),(29588,6624,3,6,0,'87.17.226.100',1176068813,1,0,1,1,1,1,'','','Yes. I\'m currently searching a way to manage OWC cells in a Office-version-independent way.\n\nEMG','',0,'AIA=','26o71w92',1,0,'',6,0,0),(29589,6565,3,35,0,'65.188.6.143',1176068917,1,0,1,1,1,0,'','','Enrico\n\nI zipped up the 2-prg\'s and .mdb with two tables .. prox 1.6mg .. sent it to your provate e-mail .. \n\nLet me know if you did not receive my message.\n\nRick Lipkin\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'AIA=','7pvf3tvh',1,0,'',35,0,0),(29590,6565,3,6,0,'87.17.226.100',1176069002,1,0,1,1,1,1,'','','I just tried your access.prg sample and it works fine here. I\'m going to send you my EXE to test it there.\n\nEMG','',0,'AIA=','129ymvo5',1,0,'',6,0,0),(29591,6624,3,69,0,'74.13.28.188',1176069669,1,0,1,1,1,0,'','','Enrico,\n\nYou might want to try \"Open Office\"  ( <!-- m --><a class=\"postlink\" href=\"http://www.openoffice.org/\">http://www.openoffice.org/</a><!-- m --> )\n\nIt is said to be compatible with MS-Office and it is FREE.\n\n\nJeff','',0,'AIA=','327ty8bn',1,0,'',69,0,0),(29592,6626,3,2,0,'87.218.146.172',1176070068,1,0,1,1,1,1,'','FiveTech activity growth','Here you can review how FiveTech Software website is getting more and more active <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:5kb9vr5l][img:5kb9vr5l]http&#58;//img371&#46;imageshack&#46;us/img371/5442/statisticslu6&#46;png[/img:5kb9vr5l][/url:5kb9vr5l]','',0,'GA==','5kb9vr5l',1,0,'',2,0,0),(29593,6627,6,2,0,'87.218.146.172',1176070178,1,0,1,1,1,1,'','Crecimiento de FiveTech','En este gráfico podeis observar como la actividad de FiveTech es cada vez mayor <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:q47833lk][img:q47833lk]http&#58;//img371&#46;imageshack&#46;us/img371/5442/statisticslu6&#46;png[/img:q47833lk][/url:q47833lk]','',0,'GA==','q47833lk',1,0,'',2,0,0),(29594,6624,3,6,0,'87.17.226.100',1176070249,1,0,1,1,1,1,'','','Sorry, I can\'t force my clients to migrate to OpenOffice.\n\nEMG','',0,'GA==','1kuj9dtu',1,0,'',6,0,0),(29595,6622,6,1013,0,'190.42.39.117',1176070373,1,0,0,1,1,0,'','\\Harbour\\Contrib\\HBZLIB','Hola Fernando\n\nGracias por el dato, sabes de donde puedo descargar los archivos, ingrese a \n<!-- m --><a class=\"postlink\" href=\"http://www.geocities.com/SiliconValley/Board/5300/\">http://www.geocities.com/SiliconValley/Board/5300/</a><!-- m -->\nContribuciones a Harbour \nPero no funcionan los link para HBZLIB.ZIP   HBZLIBSRC.ZIP \n\nSaludos,\n\nMarcelo','',0,'GA==','3uo6eb2w',1,0,'',1013,0,0),(29596,6624,3,6,0,'87.17.226.100',1176072247,1,0,1,1,1,1,'','','Ok, this is how to set cells values. It should work on any OWC version:\n\n[code:2sf19q9q]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oOwc, hSheet, hActiveWindow\n\n    DEFINE WINDOW oWnd\n\n    @ 0, 0 ACTIVEX oOwc;\n           PROGID &quot;OWC&#46;Spreadsheet&quot;\n\n    hSheet = oOwc&#58;GetProp&#40; &quot;ActiveSheet&quot; &#41;\n\n    OLESETPROPERTY&#40; hSheet, &quot;Cells&quot;, 1, 1, &quot;This is a test&quot; &#41;\n\n    oWnd&#58;oClient = oOwc\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2sf19q9q]\n\nEMG','',0,'AIA=','2sf19q9q',1,0,'',6,0,0),(29597,6624,3,868,0,'123.236.153.58',1176072369,1,0,1,1,1,1,'','','Thank you Mr. Antonio. Now I am able to do this and other similar examples. \n\nStill I have one general problem. How do I know what is the office version of on the target machine and decide whether to use owc or owc11 ?  What should I use for office 2007.\n\nWith office2003 if i use owc, I am getting GPF.  I am wondering how can i make the software that can recongnise the office version and work accordingly','',0,'AIA=','w8ejga2m',1,0,'',868,0,0),(29598,6594,16,92,0,'83.41.220.192',1176073650,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3lk6nsjz]Construcción 7.04 Abril 2007\n====================\nNuevo: El fichero FiveWin.ch incluye una nueva definición para la función HB_UNUSED_SYMBOL(). Esto es debido a los recientes cambios en Harbour. Si obtienes el error HB_UNUSED_SYMBOL() no resuelto, entonces no estas utilizando el fichero FiveWin.ch correcto.\n[/quote:3lk6nsjz]\n\nAntonio,\n\nEstoy padeciendo el error que mencionas; se produce al menos en las definiciones de métodos tipo:\n\nMETHOD Assign() INLINE ::oGet:Assign()\n\ndebo entender que en mis clases (o de terceros) debo insertar en su inicio (pregunto):\n\n#ifdef __HARBOUR__\n   #define HB_SYMBOL_UNUSED( symbol )  ( symbol := ( symbol ) )\n#endif   \n\nGracias\nCarlos G.','',0,'gA==','3lk6nsjz',1,0,'',92,0,0),(29599,6624,3,2,0,'87.218.146.172',1176077590,1,0,1,1,1,1,'','','You may use:\n\nIsActiveX( cProgID ) --&gt; lYesNo\n\ni.e.:\n\nif IsActiveX( \"OWC.Spreadsheet\" )\n ...\nelse\n...','',0,'gA==','2s0rr4r4',1,0,'',2,0,0),(29600,6594,16,2,0,'87.218.146.172',1176078674,1,0,1,1,1,1,'','','Carlos,\n\nSí','',0,'gA==','2smwtgvg',1,0,'',2,0,0),(29601,6620,6,53,0,'189.139.14.98',1176080799,1,0,1,1,1,1,'','','José:\n\nYo utilizo las siguientes líneas y me funcionan bien\n\noReport:EndLine()\noReport:StartLine()\n\nSaludos, Armando','',0,'gA==','du3jlt2t',1,0,'',53,0,0),(29602,3248,6,53,0,'189.139.14.98',1176081101,1,0,1,1,1,1,'','','José:\n\nAlgunas veces me pasa eso pero lo he solucionado con\n\noReport:EndLine()\noReport:StartLine()\n\ny en algunos caso más con la línea\n\noReport:BackLine(n)  // n es el número de lineas que deseo retroceder\n\nSaludos, Armando','',0,'gA==','3jv7j1ig',1,0,'',53,0,0),(29603,6434,3,233,0,'218.111.61.32',1176082208,1,0,1,1,1,0,'','','[quote=&quot;James&quot;:1mhtjeal]\n@ 3, 5 BUTTON \"Run module\" SIZE 40, 12 ;\nACTION winexec([exe16.exe ]+[\"]+encrypt(trim(cId))+[\"] ) \n[/quote:1mhtjeal]\n\nUnfortunately, the above didn\'t work James.\n\n[quote=&quot;James&quot;:1mhtjeal]\nGranted that does seem odd. Are you using the same versions of FW and FWH? Perhaps there was a change in the versions that is causing the problem rather than 16bit vs 32bit.\n[/quote:1mhtjeal]\n\nNo. I\'m using FW2.3 and FWH2.8 respectively. I\'m holding on to a time-tested principle, [i:1mhtjeal]\"if it ain\'t broken, don\'t fix it\"[/i:1mhtjeal].  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Hence my reluctance to touch anything that\'s working fine so I left my 16-bit programs with FW16. I doubt there was a change, if there was, a lot more people would\'ve been affected.\n\n[quote=&quot;AlexSchaft&quot;:1mhtjeal]\nAnother trick I use where high (&gt;127) ascii and low(&lt;32) can be tricky is to mime encode the strings \n[/quote:1mhtjeal]\n\nHey, that\'s a neat trick there Alex. I\'ll keep it in mind. I know it\'d have never crossed my mind.','',0,'oA==','1mhtjeal',1,0,'',233,0,0),(29604,6621,6,179,0,'200.63.213.2',1176088498,1,0,1,1,1,1,'','','gracias maestro\nSaludos','',0,'oA==','2h9b2jub',1,0,'',179,0,0),(29605,6620,6,252,0,'201.158.170.157',1176095780,1,0,1,1,1,0,'','','¡Armando Muchas Gracias!.\n\n      Problema arreglado anexando un oReport:endLine() antes del oReport:say() en StartGroup\n\n      Saludos.\n\n      Jose Rios.','',0,'oA==','10w07tdu',1,0,'',252,0,0),(29606,3248,6,252,0,'201.158.170.157',1176095895,1,0,1,1,1,0,'','','!Armando Muchas Gracias!.\n\n      Problema arreglado anexando un oReport:end() al inicio del StartGroup.\n\n       Saludos.','',0,'oA==','kb10ycjt',1,0,'',252,0,0),(29607,3248,6,252,0,'201.158.170.157',1176095997,1,0,1,1,1,0,'','','Corrijo.\n\nProblema arreglado anexando un oReport:endLine() al inicio del StartGroup.','',0,'oA==','90dqrmn4',1,0,'',252,0,0),(29608,6233,6,252,0,'201.158.170.157',1176096225,1,0,1,1,1,0,'','','Hola Rafael.\n\n      Armando Estrada me paso la solucion a este problema:\n\n[code:ttt4shu8]\nREPORT oRep &#46;&#46;&#46;&#46;&#46; \nGROUP ON FAMILIA FAM \n&#46;&#46;&#46;&#46; \n\nACTIVATE REPORT &#46;&#46;&#46; \nSTARTGROUP &#40;oReport&#58;EndLine&#40;&#41;,; \n                oReport&#58;Say&#40;0, &quot;Familia&#58; &quot;+FAM,2,0,oReport&#58;nRow&#41;,; \n                oReport&#58;NewLine&#40;200&#41;&#41; \n[/code:ttt4shu8]\n\n      Hay que poner oReport:EndLine() antes de oReport:say()\n\n   Saludos','',0,'AIA=','ttt4shu8',1,0,'',252,0,0),(29610,6608,6,413,0,'194.106.16.43',1176111372,1,0,1,1,1,1,'','','javascript&#058;emoticon(\':oops:\')\nEmbarassed\n\nGracias a todos pense que era una contribucion de alguien del foro.','',0,'EA==','1b9097pa',1,0,'',413,0,0),(29611,6628,3,996,0,'70.58.66.18',1176111946,1,0,1,0,1,0,'','Binding A Resource File Without Relinking the exe','Hello everyone.  We have another company localize our resource (.rc) files, and they have a need to bind various revisions to our exe without having our source code, or even the objs.  From the Borland documentation I would think that:\n\nc:\\borland\\bcc55\\bin\\brc32  AppName.rc AppName.exe\n\nwould compile the .rc to .res, and bind the .res with the .exe.  However, while the .res is produced, it is not bound to the .exe (the .exe is not updated at all).  I took care to leave off the -r switch which is supposed to prevent binding of the .res to the .exe.  I know binding a .res to an .exe was possible with the 16-bit Borland brc.exe utility.  Does anyone know how to do it with the 32-bit Borland utilities, or what might be wrong with my syntax?  \n\nThanks!','',0,'EA==','1p2xji13',1,0,'',996,0,0),(29612,6628,3,2,0,'87.218.146.172',1176113366,1,0,1,1,1,1,'','','Patrick,\n\nYou could deliver the resources as a DLL to be used from the EXE. FWH allows that, so you just send them the DLL, they replace the DLL and the application will be updated.\n\nAnyhow we are going to review the brc32 flags','',0,'EA==','2fyiwocb',1,0,'',2,0,0),(29613,6628,3,2,0,'87.218.146.172',1176114935,1,0,1,1,1,1,'','','Patrick,\n\nWe have tried:\n\nbrc32 -fetest.exe test.rc\n\nbut it does not update test.exe (it should)\n\nso you may better go the DLL way','',0,'EA==','ahbvyqm0',1,0,'',2,0,0),(29614,6628,3,2,0,'87.218.146.172',1176115051,1,0,1,1,1,1,'','','Patrick,\n\nTo build a DLL 32 bits from a RC please review:\n\nfwh\\DLL\\rc2dll32.bat\n\nFrom your application simply do a:\n\nSET RESOURCES TO \"YourDLL.DLL\"\n\nand FWH will search and use the resources from such DLL','',0,'EA==','3epkxtc3',1,0,'',2,0,0),(29615,6608,6,439,0,'200.125.38.59',1176116568,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:17yt4jmy]Hola Amigo Jose\n\nGracias por la informacion.\n\nSeguire probando ya que en ocasiones me manda algunos registros que no deberia, quiero asumir que es debido a los comodines.\n\nEso si, que lo hace rapidisimo no hay duda  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos[/quote:17yt4jmy]\n\nAmigo, yo he tenido problemas por una diferencia en el método \"ON CHANGE\" de las clases tGet recientes, ve este ejemplo y pruébalo con la tget que está en él, a ver si te da problemas.\n\n[url:17yt4jmy]http&#58;//www&#46;mediafire&#46;com/?aio4yfjggmm[/url:17yt4jmy]\n\nVerás entonces que no funciona bien con las tget recientes (posteriores a marzo 2006), a menos que comentes las siguientes líneas:\n\n[b:17yt4jmy]/*  cClaveBusca := Stuff( cClaveBusca, oGetBusca:nPos,                    ;\n                       If( Set(_SET_INSERT), 0, 1 ),                          ;\n                       Upper( Chr( cKey ) ) )   */[/b:17yt4jmy]\n\nen la linea 188 del programa.\n\nCreo que por aquí van los tiros...\n\nEspero haberte ayudado,','',0,'0A==','17yt4jmy',1,0,'',439,0,0),(29616,6628,3,303,0,'72.199.41.171',1176124657,1,0,1,1,1,0,'','','Patrick,\n\nIf I understand you right, you are sending them an EXE that already has resouces bound to it? If so, why not send them one that doesn\'t?\n\nJames','',0,'0A==','16529f23',1,0,'',303,0,0),(29617,6629,7,720,0,'80.36.244.134',1176136237,1,0,1,1,1,0,'','Icono en el ejecutable y uso de WINSOCK','Hola a todos....\n\nTengo dos preguntillas...\n\n1- como puedo colocar al .exe un icono??\n2- en FW existe alguna limitación con WINSOCK,ocx,dll,etc....??\n\n\nSaludos y gracias...\n\nElías Torres.','',0,'0A==','2ko33ohg',1,0,'',720,0,0),(29618,6629,7,2,0,'87.218.146.242',1176136970,1,0,1,1,1,1,'','','Elias,\n\n&gt; 1- como puedo colocar al .exe un icono??\n\nAñade un icono al RC y dale el identificador 1:\n\n1 ICON \"icono.ico\"\n\n&gt; 2- en FW existe alguna limitación con WINSOCK,ocx,dll,etc....?? \n\nNo, lo que ocurre es que son cosas distintas. WinSock es soporte de sockets para comunicaciones por tcp/ip y está soportado, OCX es soporte de ActiveX (FiveWin lo implementa, pero FWPPC aún no), DLL es soporte de DLLs y está soportado','',0,'0A==','142rt54u',1,0,'',2,0,0),(29619,6624,3,868,0,'219.64.121.60',1176138120,1,0,1,1,1,1,'','','Mr. Antonio\n\nthanks.','',0,'0A==','1u5l52pq',1,0,'',868,0,0),(29620,6629,7,720,0,'80.36.244.134',1176138190,1,0,1,1,1,0,'','','Antonio, gracias!.\n\nOcurre una cosa y es que he cambiado el icono del ejecutable, pero al pasarlo a la pda no me aparece el icono. Lo tengo como antes, aunque en el pc si lo tengo cambiado, pero en la pda no me lo hace...¿me falta algo por hacer?\n\nSaludos.\n\nElías Torres.','',0,'0A==','uqmnym7r',1,0,'',720,0,0),(29621,6629,7,2,0,'87.218.146.242',1176138599,1,0,1,1,1,1,'','','Elías,\n\nPosiblemente la PDA no haya refrescado bien el escritorio. Prueba a borrarlo, ó a cambiarlo de carpeta y a volver a copiarlo. Debería mostrar el nuevo','',0,'0A==','3a5pdbr0',1,0,'',2,0,0),(29622,6629,7,720,0,'80.36.244.134',1176139363,1,0,1,1,1,0,'','','Antonio, nada, lo he cambiado, lo he renombrado e incluso lo he borrado por completo, pero nada, siempre me deja el que tenia antes....\n\nLo que no entiendo es porq en el pc si lo cambia y luego cuando conecto la pda al equipo por medio del ActiveSync para enviar el ejecutable me pone el otro...\n\nSaludos.\n\nElías Torres.','',0,'0A==','2shlwrou',1,0,'',720,0,0),(29623,6532,2,890,0,'200.24.110.196',1176142384,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2k1pyf4l]Te falta una L:\n\noBrw:[color=red:2k1pyf4l]l[/color:2k1pyf4l]AutoEdit = .T.[/quote:2k1pyf4l]\n\nAntonio.. Fascinante!  funciono OK  pero surge otro problema\nAparece el listbox con la placa ya escrita lo que significa que existe una relacion, lleno el resto de los campos y graba en el dbf todo menos la placa por favor explicame como arreglo mi codigo para solucionar este problema?\n\nCordialmente\n\nJairo Barbosa','',0,'gg==','2k1pyf4l',1,0,'',890,0,0),(29624,6630,2,235,0,'201.151.70.15',1176143402,1,0,1,1,1,0,'','sobre impresoras','buena tarde a todos\n\nexiste alguna funcion que me permita saber si esta o no en linea la impresora, ya que en sistema operativo existe la funcion isprinter()\n\ndesde ya muchas gracias.','',0,'gg==','3dt237b6',1,0,'',235,0,0),(29625,6629,7,2,0,'87.218.146.56',1176145312,1,0,1,1,1,1,'','','Elías,\n\nPrueba a cambiar el orden de los iconos dentro del RC. Me refiero a unos antes que otros. Posiblemente use el primero que encuentra.','',0,'gg==','3vutoqxd',1,0,'',2,0,0),(29626,6303,4,267,0,'200.208.238.2',1176145412,1,0,1,1,1,1,'','','Antonio,\n\nIts seminary already finished? This treatment of archives ZIP is basic for our work.','',0,'gg==','3be55r4o',1,0,'',267,0,0),(29627,6631,6,959,0,'201.58.23.72',1176147643,1,0,1,1,1,0,'','Keyboard','Olá a todos,\n\nAlguém saberia me informar, por favor, como faço para emular as teclas F10,F1,ALT+C, etc..\n\nJá tentei com :\n__Keyboard (chr (237) )\n__Keyboard (VK_F10)\nkeyboard (chr (237) )\nKeyboard (VK_F10)\n\ne não funcionarm.\n\nObrigado,\n\nMário Saviotti Jr.','',0,'gg==','2o988wrt',1,0,'',959,0,0),(29628,6628,3,996,0,'70.58.66.18',1176148204,1,0,1,0,1,0,'','','Thanks Antonio, I will give the DLL approach a try, though I do prefer the way we have been doing it with a fully self-contained exe with no external code dependencies in which you have to worry that DLL\'s are all current when a user calls in with dialog anomalies.  I\'ve spent the past few hours doing Google searches for brc32 and reading a lot, and from what I can see this a well known bug with brc32.  I know it\'s free software so we can\'t complain too much, but you would think Borland would have fixed it by now (it\'s been a problem for years).  Is there an alternative to brc32 we could use?  Surely resource compiling and binding can\'t be that obscure a task -- there must be many similar utilities.\n\nJames - thanks for your suggestion but whether or not we give our localization office an exe with a bound resource is not the issue.  The bug in brc32 prevents them from binding their alternative resource files.  They would have to use ilink32 and have our link file and obj\'s at the very least.','',0,'gg==','2ab9qz38',1,0,'',996,0,0),(29629,6589,6,743,0,'201.116.76.180',1176148246,1,0,1,1,1,0,'','','FiveWin 2.6 - April 2005\n\nespero esto sirva','',0,'gg==','39admhdf',1,0,'',743,0,0),(29630,6631,6,180,0,'83.45.249.15',1176149140,1,0,1,1,1,0,'','Re: Keyboard','Hola saviotti:\n\nAlgunos ejemplos para orientarte:\n\nSetKey(VK_F1, {|nKey| WinHelp(\"Ayuda.Hlp\")})\nSetKey(VK_F9, {|nKey| Calculadora()  })\n\n    oBtn1:bkeydown:={|nKey|IIF((nKey == Asc( \"S\" ) .OR. nKey == Asc( \"s\" ) ) .AND. GetKeyState( VK_CONTROL ),;\n                      ( lSalvar := .T. , oDlgCodigo:End(), oLBx:refresh() ),)}\n\nUn saludo,\nManuel\n\n[quote=&quot;saviotti&quot;:1afy7ska]Olá a todos,\n\nAlguém saberia me informar, por favor, como faço para emular as teclas F10,F1,ALT+C, etc..\n\nJá tentei com :\n__Keyboard (chr (237) )\n__Keyboard (VK_F10)\nkeyboard (chr (237) )\nKeyboard (VK_F10)\n\ne não funcionarm.\n\nObrigado,\n\nMário Saviotti Jr.[/quote:1afy7ska]','',0,'gA==','1afy7ska',1,0,'',180,0,0),(29631,6538,6,975,0,'200.21.137.146',1176149405,1,0,1,1,1,0,'','','\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> Antonio Linares, Le comento que en nuestro programa de ejemplo no se ven  ni las columnas. \n\n[img]Cuenta	Detalle	Nit	Debito	Crédito\n				\n				\n				\n				\n				\n				\n				\n				\n[/img]\n\nYo quiero que se muestre como lo anterior.\n\n\nGracias.','',0,'Ag==','1pmozxes',1,0,'',975,0,0),(29632,6538,6,975,0,'200.21.137.146',1176149551,1,0,1,1,1,0,'','','Como muestro una imagen en el foro. \n\n\nGracias.','',0,'Ag==','3ne9nsvf',1,0,'',975,0,0),(29633,6288,6,975,0,'200.21.137.146',1176149955,1,0,1,1,1,0,'','','Gracias viejo Manuel, Me funciono.','',0,'Ag==','1saiks04',1,0,'',975,0,0),(29634,6628,3,2,0,'87.218.146.56',1176150398,1,0,1,1,1,1,'','','Patrick,\n\nYou may try Microsoft resources compiler instead of Borland\'s one. Its free, so if you don\'t locate it just say it, and we will email it to you <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','agj5pzvi',1,0,'',2,0,0),(29635,6303,4,2,0,'87.218.146.56',1176150543,1,0,1,1,1,1,'','','Vilian,\n\nWe have been busy with the FTDN 7.04 launch. But thanks for  remind it to us, we are going to review it','',0,'Ag==','t2wx83mv',1,0,'',2,0,0),(29636,6589,6,2,0,'87.218.146.56',1176150694,1,0,1,1,1,1,'','','Ese build es ya bastante antiguo. Han habido muchos cambios, mejoras y novedades desde entonces.\n\nNuestra sugerencia es que te actualices a la versión más reciente, la 7.04','',0,'Ag==','2jrkhy6w',1,0,'',2,0,0),(29637,6538,6,2,0,'87.218.146.56',1176150838,1,0,1,1,1,1,'','','John,\n\nSube la imagen a <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y copia aqui el enlace que te facilitan, gracias','',0,'Ag==','1ldvnx4c',1,0,'',2,0,0),(29638,6538,6,975,0,'200.21.137.146',1176152269,1,0,1,1,1,0,'','','[quote=&quot;JHON JAIRO VALENCIA DIAZ&quot;:ecjmq604]\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> Antonio Linares, Le comento que en nuestro programa de ejemplo no se ven  ni las columnas. \n\n				\n[url=http&#58;//img258&#46;imageshack&#46;us/my&#46;php?image=listboxhj5&#46;jpg:ecjmq604][img:ecjmq604]http&#58;//img258&#46;imageshack&#46;us/img258/1852/listboxhj5&#46;th&#46;jpg[/img:ecjmq604][/url:ecjmq604]				\n				\n				\n				\n		\n				\n	\nYo quiero que se muestre como el anterior, si es posible que de totales por columnas. \n\n\n\nGracias.[/quote:ecjmq604]','',0,'mg==','ecjmq604',1,0,'',975,0,0),(29639,6589,6,743,0,'201.116.76.180',1176155468,1,0,1,1,1,0,'','','te refieres a que adquiera la version 2.8 de fivewin o solo actualizar las librerias','',0,'mg==','108gxjme',1,0,'',743,0,0),(29640,6631,6,959,0,'201.58.23.72',1176156235,1,0,1,1,1,0,'','Keyboard','Gracias por responder, mas o lo que necessito é o seguinte :\n\nfunction ExecutaScript ()\n\n      Local aTexto  := memoread (\"teclas.txt\") ,;\n         nLinhas                               ,;\n         aTeclas                               ,;\n         lLinhaSistema := .f.                  ,;\n         aLinha                                ,;\n         I                                     ,;\n         nContaCaracter                        ,;\n         nPos                                  ,;\n         nPosFinal                             ,;\n         aFuncao                               ,;\n         aComando\n\n   oTimerScript&#058;Deactivate ()\n\n   nLinhas := mlcount (aTexto)\n\n   for I := 1 to nLinhas\n\n       aLinha := alltrim (memoline (aTexto,254,I))\n\n       nPos  := at (\".EXE\",upper (aLinha))\n\n       aInicial  :=  substr(aLinha,2,4)\n\n       do case\n\n          case upper (aLinha) == \"ENTER\"\n\n               [color=blue:2gdduf35]* ISTO FUNCIONA[/color:2gdduf35]\n               KEYBOARD (chr (13) )\n               //syswait (.2)\n\n          case upper (aLinha) == \"TAB\"\n\n               [color=blue:2gdduf35]* ISTO FUNCIONA[/color:2gdduf35]\n               KEYBOARD (chr (9) )\n               syswait (.2)\n\n          case upper (aLinha) == \"F10\"\n\n              [color=red:2gdduf35]* ISTO NÃO FUNCIONA[/color:2gdduf35]\n               __Keyboard (chr (237) )\n               __Keyboard (chr (VK_F10) )\n\n          case upper (aLinha) == \"F3\"\n\n              [color=red:2gdduf35]* ISTO NÃO FUNCIONA[/color:2gdduf35]\n               Keyboard (CHR (VK_F3 ) )\n               Keyboard (CHR (230 ) )\n\n          case upper (aLinha) == \"F1\"\n\n               KEYBOARD (chr (228) )\n               syswait (.2)\n\n          case at (\"ALT+\",aLinha) &gt; 0\n\n               nPos  := at (\"ALT\",aLinha)\n               nPosFinal := at (\"+\",aLinha)\n               aComando  := asc (substr (aLinha,nPosFinal+1,len (aLinha)))\n\n               SysWait (1)\n               __Keyboard( Chr( VK_END ))\n               KEYBOARD (chr (ACC_ALT) + chr (aComando)  )\n               //KEYBOARD (chr (254) + chr (aComando)  )\n//CC               SysWait (1)\n\n          case at (\"TEMPO(\",aLinha) &gt; 0\n\n               nPos  := at (\"(\",aLinha)\n               nPosFinal := at (\")\",aLinha)\n               nTempo    := val (substr (aLinha,nPos+1,nPosFinal-1))\n               SysWait (nTempo)\n\n          OtherWise\n\n               for nContaCaracter := 1 to len (aLinha)\n                   aComando := substr (aLinha,nContaCaracter,1)\n                   aComando := asc (aComando)\n                   aComando := chr (aComando)\n                   KeyBoard (aComando)\n               next\n\n               syswait (.1)\n\n       endcase\n\n   next\n\n   lLoginScript := .f.\n\nreturn .t.','',0,'Ag==','2gdduf35',1,0,'',959,0,0),(29641,6575,6,362,0,'200.168.52.156',1176157803,1,0,1,1,1,1,'','','[code:l8610tdy]\n\n/****************************************************************************\n\n\nWINXP&#46;rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n\n1 24 LOADONCALL MOVEABLE NONDISCARDABLE \n&#123;\n \'3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31\'\n \'2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54\'\n \'46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D\'\n \'22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62\'\n \'6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63\'\n \'68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D\'\n \'63 6F 6D 3A 61 73 6D 2E 76 31 22 20 6D 61 6E 69\'\n \'66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E 30\'\n \'22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64 65\'\n \'6E 74 69 74 79 0D 0A 20 20 20 20 74 79 70 65 3D\'\n \'22 77 69 6E 33 32 22 0D 0A 20 20 20 20 6E 61 6D\'\n \'65 3D 22 4D 79 4F 72 67 61 6E 69 7A 61 74 69 6F\'\n \'6E 2E 4D 79 44 69 76 69 73 69 6F 6E 2E 4D 79 41\'\n \'70 70 22 0D 0A 20 20 20 20 76 65 72 73 69 6F 6E\'\n \'3D 22 31 2E 30 2E 30 2E 30 22 0D 0A 20 20 20 20\'\n \'70 72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65\'\n \'63 74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20\'\n \'20 2F 3E 0D 0A 20 20 20 20 3C 64 65 73 63 72 69\'\n \'70 74 69 6F 6E 3E 56 65 72 62 61 6C 20 64 65 73\'\n \'63 72 69 70 74 69 6F 6E 20 6F 66 20 4D 79 41 70\'\n \'70 2E 3C 2F 64 65 73 63 72 69 70 74 69 6F 6E 3E\'\n \'0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65 6E 63\'\n \'79 3E 0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65\'\n \'6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20 20 20\'\n \'20 3C 61 73 73 65 6D 62 6C 79 49 64 65 6E 74 69\'\n \'74 79 0D 0A 20 20 20 20 20 20 20 20 74 79 70 65\'\n \'3D 22 77 69 6E 33 32 22 0D 0A 20 20 20 20 20 20\'\n \'20 20 6E 61 6D 65 3D 22 4D 69 63 72 6F 73 6F 66\'\n \'74 2E 57 69 6E 64 6F 77 73 2E 43 6F 6D 6D 6F 6E\'\n \'2D 43 6F 6E 74 72 6F 6C 73 22 0D 0A 20 20 20 20\'\n \'20 20 20 20 76 65 72 73 69 6F 6E 3D 22 36 2E 30\'\n \'2E 30 2E 30 22 0D 0A 20 20 20 20 20 20 20 20 70\'\n \'72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65 63\'\n \'74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20 20\'\n \'20 20 20 20 70 75 62 6C 69 63 4B 65 79 54 6F 6B\'\n \'65 6E 3D 22 36 35 39 35 62 36 34 31 34 34 63 63\'\n \'66 31 64 66 22 0D 0A 20 20 20 20 20 20 20 20 6C\'\n \'61 6E 67 75 61 67 65 3D 22 2A 22 0D 0A 20 20 20\'\n \'20 2F 3E 0D 0A 20 20 20 20 3C 2F 64 65 70 65 6E\'\n \'64 65 6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20\'\n \'20 20 20 3C 2F 64 65 70 65 6E 64 65 6E 63 79 3E\'\n \'0D 0A 3C 2F 61 73 73 65 6D 62 6C 79 3E 0D 0A 0D\'\n \'0A\'\n&#125;\n[/code:l8610tdy]','',0,'AIA=','l8610tdy',1,0,'',362,0,0),(29642,6632,3,973,0,'76.167.246.250',1176166871,1,0,1,1,1,0,'','How to make a TBTNBMP transparent','Hi,\n\nI am dynamically creating a BTNBMP (not from resource) to a window and I can\'t make it transparent. However, if I do it from a Resource dialog, it works. How can I do it without using a Resource dialog?\n\nThis one works for a Resource dialog:\nREDEFINE BTNBMP oBTN RESOURCE \"TEST\" OF oDLG NOBORDER\noBTN:LTRANSPARENT:=.T.\n\nHowever this one doesn\'t :  (displays bitmap but not transparent)\n@100,100 BTNBMP oBTN RESOURCE \"TEST\" SIZE 280,110 OF oWND NOBORDER\noBTN:LTRANSPARENT:=.T.\n\n\nThanks\nBert','',0,'AIA=','241j7yio',1,0,'',973,0,0),(29643,6632,3,973,0,'76.167.246.250',1176167521,1,0,1,1,1,0,'','More','I am using a BRUSH in my window thats why I want the BTNBMP to be trasparent.','',0,'AIA=','2qo47jed',1,0,'',973,0,0),(29644,6589,6,2,0,'87.218.146.49',1176181414,1,0,1,1,1,1,'','','Si, a actualizarte a FWH 7.04. La versión que usas es de hace dos años.','',0,'AIA=','259rzri6',1,0,'',2,0,0),(29645,6632,3,2,0,'87.218.146.49',1176182899,1,0,1,1,1,1,'','','Bert,\n\nHere you have a working sample:\n[code:1j1xvoty]\n// Testing a transparent TBtnBmp on a transparent DialogBox\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oBru, oDlg, oBtn\n\n   DEFINE BRUSH oBru FILENAME &quot;&#46;&#46;/bitmaps/Backgrnd/beach&#46;bmp&quot;\n\n   DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT\n\n   @ 70, 80 BTNBMP oBtn FILENAME &quot;&#46;&#46;/bitmaps/yes&#46;bmp&quot; ;\n      SIZE 50, 30 OF oDlg NOBORDER ACTION MsgInfo&#40; &quot;click&quot; &#41;\n\n   oBtn&#58;lTransparent = &#46;T&#46;   \n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:1j1xvoty]\nPlease notice the use of the clause TRANSPARENT when defining the dialog too\n[url=http&#58;//imageshack&#46;us:1j1xvoty][img:1j1xvoty]http&#58;//img72&#46;imageshack&#46;us/img72/539/picture1bh4&#46;png[/img:1j1xvoty][/url:1j1xvoty]','',0,'GIA=','1j1xvoty',1,0,'',2,0,0),(29646,6608,6,492,0,'189.147.26.143',1176190580,1,0,1,1,1,1,'','','Hola Jose\n\nAsi es, en efecto, lei un post tuyo hace unos dias indicando ese detalle.\n\nEn mi caso estoy obteniendo la cadena a buscar \"atrapando\" las teclas presionadas desde un TWBrowse, y esa cadena es la que busco y muestro los registros encontrados.\n\nEl detalle es que no siempre me encuentra los registros correctos.\n\nPor ejemplo, si trato de procesar los registros que contengan la palabra M793, supongo que bastaria que pusiera OrdWildSeek( \"*\" + cStr2Src + \"*\", .T. )     ==&gt;  cStr2Src es una variable en la cual estoy concatenando las teclas presionadas y que tiene en ese momento el valor M793.\n\nPues bien, si encuentra algunas palabras que contengan tal valor, pero tambien me muestra algunos registros con 793 o M79, cuando se supone que deberia mostrar aquellos que sin importar que haya antes o despues, deben tener M793, cierto ?\n\nEso es lo que no entiendo correctamente, que funcion realiza el * o el ? dentro del llamado a esta funcion, por que a veces se \"come\" una letra antes o despues.\n\nSaludos\n\nEspero haberme explicado  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GIA=','1fy9s7cv',1,0,'',492,0,0),(29647,6633,3,282,0,'210.72.235.124',1176195602,1,0,1,1,1,0,'','How to convert VB &quot;set&quot; function to Fivewin','How to convert VB \"set\" function to Fivewin\n\nVB sample code\n\n       \n    \'Declare a Ribbon Bar object\n    Dim RibbonBar As RibbonBar\n\n    \'Add a Ribbon Bar to the command bars\n    Set RibbonBar = CommandBars.AddRibbonBar(\"Ribbon Bar\")\n\n    \'Specify the Ribbon Bar is to use the stretched docking style. The Ribbon Bar\n    \'can only be docked to the top or bottom of an application\n    RibbonBar.EnableDocking xtpFlagStretched\n\n    Dim ControlFile As CommandBarPopup\n\n    \'Add a normal popup to the Ribbon Bar.\n\n    Set ControlFile = RibbonBar.Controls.Add(xtpControlPopup, -1, \"&amp;File\", 1)\n\n    \'Add commands to the popup\n    With ControlFile.CommandBar.Controls\n        .Add xtpControlButton, ID_FILE_NEW, \"&amp;New\"\n        .Add xtpControlButton, ID_FILE_OPEN, \"&amp;Open...\"\n        Set Control = .Add(xtpControlButton, ID_APP_EXIT, \"E&amp;xit\")\n        Control.BeginGroup = True\n    End With\n\n    .......\n\ncould anyone help me convert the following code to fivewin\n\n1.   Set RibbonBar = CommandBars.AddRibbonBar(\"Ribbon Bar\")\n2.   Set ControlFile = RibbonBar.Controls.Add(xtpControlPopup, -1, \"&amp;File\", 1)\n\n\nThanks !!!','',0,'GIA=','1osixv8f',1,0,'',282,0,0),(29648,6634,6,413,0,'194.106.16.43',1176198246,1,0,1,1,1,1,'','Como hacer con splitter ?','Estoy manejando una serie de programas que presentan una especie de barra o boton en el splitter que cuando lo pulsas hace correr la barra del splitter hacia el borde mas izquierdo de la pantalla y si lo vuelves a pulsar vuelve a ocupar su posicion original. Si tienes otro control en mi caso una barra toutlook, la hace desaparecer ocupando todo su espacio y se la vuelves a pulsar vuelve a dejar como estaba y vuelve a su posición original la barra del splitter. igual ocurre si hubiera varios splitters, el que pulsas ocupa el lugar del que tiene mas a su izquierda si pulsas la barra izquierda o de su parte superior si pulsas la barra splitter superior y asi sucesivamente. \nHasta ahora habia empleado los splitter tan solo con la posibilidad de que se moviera al pulsar y mover el raton y me pregunto si esto se puede hacer con splitters de fwh.\nAdjunto una imagen.....\n\n[img][url=http&#58;//imageshack&#46;us:17s1xgr0][img]http://img227.imageshack.us/img227/8302/screenshot009eq4.png[/img][/url:17s1xgr0][/img]','',0,'GA==','17s1xgr0',1,0,'',413,0,0),(29649,6633,3,2,0,'87.218.146.49',1176198449,1,0,1,1,1,1,'','','Dixon,\n\nAssuming that CommandBars is an ActiveX object:\n\n&gt;1. Set RibbonBar = CommandBars.AddRibbonBar(\"Ribbon Bar\")\n\nlocal hRibbonBar := CommandBars:Do( \"AddRibbonBar\", \"RibbonBar\" )\n\n&gt; 2. Set ControlFile = RibbonBar.Controls.Add(xtpControlPopup, -1, \"&amp;File\", 1) \n\nlocal hControls := OleGetProperty( hRibbonBar, \"Controls\" )\nlocal hControlFile := OleInvoke( hControls, \"Add\", xtpControlPopup, -1, \"&amp;File\", 1)','',0,'GA==','13h0n3ls',1,0,'',2,0,0),(29650,6634,6,2,0,'87.218.146.49',1176198581,1,0,1,1,1,1,'','','Andrés,\n\nPrueba a hacer oControl:Hide() del control que tienes a la izquierda del splitter','',0,'GA==','2mdqhaar',1,0,'',2,0,0),(29651,6632,3,973,0,'76.167.246.250',1176210247,1,0,1,1,1,0,'','','Thank you Antonio, it works when used in a Dialog, but how can you do it in a Window? There is no TRANSPARENT clause when defining a Window.\n\nThanks again,\nBert','',0,'GA==','13v52ho9',1,0,'',973,0,0),(29652,2174,3,49,0,'62.13.172.67',1176212149,1,0,1,1,1,1,'','','Many programs use TCP/ip or Netbeui\n\nI Think is not impossible to make with xharbour and Fivewin   with socket or tcp/ip class\n\nBut I not Know How I can Make it\n\nPerhaps If I run from a IP  it is easy found all pc link to this ip or derivations\n\nHave you an idea?','',0,'GA==','tkzs9kmk',1,0,'',49,0,0),(29653,6610,20,49,0,'62.13.172.67',1176212560,1,0,1,1,1,1,'','','Altrettanto !! ( anche se .... in ritardo !!)  ero fuori con la mia nuova auto...','',0,'GA==','d4urwn49',1,0,'',49,0,0),(29654,6631,6,316,0,'213.97.245.163',1176214463,1,0,0,1,1,0,'','','Keyboard( Chr( nKey) ) no te funcionará con valores de nKey &gt; 255.\n\nQue tal un PostMessage( , WM_KEYDOWN, VK_10, 0 ) ?\n\nEso si funciona en windows.\n\nSaludos,\n\nCarlos','',0,'GA==','8n0zur2s',1,0,'',316,0,0),(29655,6631,6,217,0,'200.159.120.34',1176214681,1,0,1,1,1,0,'','Re: Keyboard','Tente Keybd_Event da API do Win32:\n[Intenta Keybd_Event desde la API de Win32:]\n\n[code:2ub53gtx]\nDLL function keybd_event&#40;bVk as _INT,bScan as _INT, dwFlags as LONG, dwExtraInfo as LONG &#41; PASCAL lib &quot;user32&#46;dll&quot;\n[/code:2ub53gtx]\n\nEsta declaração pode não ser a correta, pois não testei\n[Esta declaracion puede no ser la correcta aunque yo no he testeado]\n\nExemplo [Ejemplo]:\n\n[code:2ub53gtx]\nkeybd_event&#40;VK_F3, 0, 0, 0&#41;   // Press F3 key\nkeybd_event&#40;VK_F3, 0, 2, 0&#41;   // Release F3 key\n[/code:2ub53gtx]\n\nURL:\n[url:2ub53gtx]http&#58;//eric&#46;aling&#46;tripod&#46;com/PB/tips/pbtip36&#46;htm[/url:2ub53gtx]\n[url:2ub53gtx]http&#58;//www&#46;codeproject&#46;com/system/keyboard&#46;asp[/url:2ub53gtx]\n\nAntonio, puedes ayudarnos?\n\nAbraços/Saludos\nMaurilio','',0,'EIA=','2ub53gtx',1,0,'',217,0,0),(29656,6453,2,812,0,'200.83.124.248',1176216240,1,0,1,1,1,0,'','','Amigo:\n\nViendo tu problema, me gustaria acotar algo, podrias probar declarando el archivo indice, no se enque esta desarrollado el programa que arriba declaras el que genera y actualiza la base y sus indices.\n\nUSE MINV01 \nSet Inde to MINVO1    &amp;&amp; Prueba esto\nSET ORDER TO 2 \n\nSegun lo que veo en tu programa, solo prodias probar esto y me cuentas.\n\nOjala de pueda servir.\n\n\n[quote=&quot;servicomver&quot;:2nz386xi]Hola:\nSigo sin resolver mi problemas, tal vez no me explique bien, no necesito generar los indices descendentes, los necesito abrir\nya que estos los crea un sistema llamado ASPEL SAE, al inicio uso esto:\n(los archivos q tiene son: MINV01.DBF y MINV01.MDX)\n\nCLEAR SCREEN\n REQUEST DBFMDX\n RDDSETDEFAULT( \"DBFMDX\" )\nSET DATE BRITISH\nSET CENTURY ON\nSET EPOCH TO 1956\n\nUSE MINV01 \nSET ORDER TO 2 \nAPPEND BLANK\nFIELD-&gt;NUM_REG:=16\nFIELD-&gt;CLV_ART:=\"0001\"\nFIELD-&gt;TIPO_MOV:=51\nFIELD-&gt;FECHA_DOCU:=DATE()\nFIELD-&gt;REFER:=\"84\"\nFIELD-&gt;CLAVE_CLPV:=\"MOSTR\"\nFIELD-&gt;VEND:=\"\"\nFIELD-&gt;CANT:=3\nFIELD-&gt;CANT_COST:=0\nFIELD-&gt;PRECIO:=1\nFIELD-&gt;COSTO:=1\nFIELD-&gt;ALMACEN:=1\nFIELD-&gt;AFEC_COI:=\"\"\nFIELD-&gt;OBS_MINV:=0\nFIELD-&gt;REG_SERIE:=0\nFIELD-&gt;UNI_VENTA:=\"pz\"\nFIELD-&gt;U4SEC:=0\nFIELD-&gt;DB8EXIST:=1\nFIELD-&gt;TIPO_PROD:=\"I\"\nFIELD-&gt;FACTOR_CON:=1\nFIELD-&gt;FECHAELAB:= DATE()\nFIELD-&gt;USUARIO:=0\nFIELD-&gt;M_FLETE:=0\n\n* al poner set order to 2, si despues de grabar el registro lo listo efectivamente lo ordena bien, pero al consultarlo con el programa ya elaborado (Aspel), repite muchas veces el ultimo registro, no se q estoy haciendo mal, pero si regenero indices desde ese mismo programa el problema se soluciona, solo q yo necesito grabar y q se afecten correctamente los indices, vi que la estructura del indice es:\nCLV_ART + STR(ALMACEN) + STR(NUM_REG) + STR(TIPO_MOV)\n\nY ademas como les comentaba antes no encuentro la forma de donde lo ordena descendentemente, espero haberme explicado bien o no se si sea necesario pasarles los archivos,\n\nComo puedo hacer para que al grabar en la base de datos MINV01.DBF se afecten todos los Indices contenidos en MINV01.MDX ????\n\nsaludos\nveracruz, ver. mexico[/quote:2nz386xi]','',0,'gA==','2nz386xi',1,0,'',812,0,0),(29657,2174,3,130,0,'84.138.45.125',1176218792,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:3w4ov86c]\nI want in each pc  I can hide all and show only the barmenu \"start\" with only 3 program :\n1. explorer.exe\n2 winword.exe\n3. calc.exe\n\nbecause My boys must not use all windows programs or configuration program of window xp ( monitor,screensaver, ecc.)\n\nI wanted also  each pc not show hard disk C  : my boy save mp3 and many images day by day and the hard disk is full and I must erase all each day.\n\nHow I can to make a program ( in xharbour and fw) to make it :\n1. Hide the icons desktop\n2. hide the hard disk C or Disk D or port USB ( pen drive)\n3. To show the  sart menu with a menu with only the program / exploer,winword and calc)\n4 .  to hide the task manager ( if a boy press ctrl+alt+del) \n5.  to hide the action if a boy press ctrl+c\n[/quote:3w4ov86c]\n\nAll these adjustments are registry entries, located in HKCU (belongs to the user) and HKLM (belongs to the computer)  and they are saved in the local user profile. These entrie are loaded when a user logs in. The entries in HKCU can be changed in xHarbour, most entries in HKLM only, if the user has administrtave rights, but they will take effect only if the user logs out and then logs in again. \n\nChanging the startmenü for example is in HKLM, because the user has no rights to change it.\n\nSo, what you can do is\n\n1. all pc are in a domain\nthe best way is, to do it with group policies, so you have to do all configurations once for all users and you will be sure every user will have the same configuration. Every new user who belongs to the group will have automatcally these configurations. \nJust create an OU (organisation unit = group), put all user in this group and build a group policy, which belongs to this group. The next step is to build a server based profile (best is to use a mandatory profile, so it´s deleted from the local computer when the user logs out). Only the administrator (you) can change the profile and the policy\n\n2. all pc are single pc\nyou have to do the configurations on every pc. The work depends on the number of pc´s you have.\n\nAll adjustments  are system adjustments, so it makes absolutly no sense and is in most cases impossible to do it with xharbour.\n\nStefan','',0,'gA==','3w4ov86c',1,0,'',130,0,0),(29658,6629,7,720,0,'80.36.244.134',1176218906,1,0,1,1,1,0,'','','Antonio, por fin he podido ponerle un icono al ejecutable... Lo que hice simplemente fue resetear la pda y cuando cargó todo de nuevo apareció el icono!...\n\nCon respecto a la pregunta de si el FWPPC soporta  winsock debo entender que si se puede trabajar con el sin problemas,no?\nEn cambio con los ocx no podria hacerlo....¿no es así?\n\n\nSaludos y gracias..\n\nElías Torres.','',0,'gA==','10kahoph',1,0,'',720,0,0),(29659,6635,1,161,0,'81.164.212.146',1176219426,1,0,1,1,1,0,'','Export to outlook contacts','Hello,\n\nIs there a posibility to export the email-adresses that are now in a FW-database to outlook contacts?\n\nThanks\nMarc','',0,'gA==','2lls638x',1,0,'',161,0,0),(29660,6631,6,959,0,'201.58.23.72',1176220493,1,0,1,1,1,0,'','Keyboard','Gracias,\n\nA conseguido fazer funcionar com :\n\nDLL32 FUNCTION keybd_event ( bVk as _INT,bScan as _INT, dwFlags as LONG, dwExtraInfo as LONG  ) AS LONG ;\n      PASCAL LIB \"user32.dll\"\n\nMário','',0,'gA==','pzqk62uy',1,0,'',959,0,0),(29661,6480,6,507,0,'200.77.18.206',1176220899,1,0,1,1,1,1,'','','Hola marco a mi tambien me interesaria, me lo puedes enviar a <!-- e --><a href=\"mailto:rubio.luisfernando@gmail.com\">rubio.luisfernando@gmail.com</a><!-- e --> por favor...\n\nsaludos\n\nLuis Fernando Rubio Rubio\nTequila, Jalisco, Mexico.','',0,'gA==','2f6isv6b',1,0,'',507,0,0),(29662,6565,3,35,0,'167.7.140.254',1176222174,1,0,1,1,1,0,'','','To All\n\nIs there a \'reference manual\' for syntax on the object commands .. I want to know how to script a the syntax .. I know how to OPEN ( oRs:open( \"SQL\" )  ..  for example\n\noRS:Insert ??\noRS:Delete ??\noRs:Add ??\noRs:Update ??\n\nJust guessing there .. what I am trying to do in this snipit is to start a DELETE SQL query ( \'DELETE FROM table-name where search-condition )    to go out and DELETE all blank records with \"  \" for a \'file_num\' ??\n\nThanks\nRick Lipkin\n\n\n//-----------------------\noRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\nTRY\n  oRS:Open( \"SELECT * FROM LWMFS ORDER BY FILE_NUM\" , \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\nCATCH oErr\n  MsgInfo( \"Error in Opening LWMFS table\" )\n  RETURN NIL\nEND TRY\n\n// delete all global fule_num = blank\n\nIF oRs:Fields( \"file_num\" ):Value = \'  \'\n   SAYING := \"It appears that there are BLANK File Numbers\"+chr(10)\n   SAYING += \"Do you wish to DELETE them Now ?\"+chr(10)\n\n   IF MsgYesNo( SAYING )\n       // PUT DELETE ACTION HERE \n   ENDIF\nENDIF','',0,'gA==','3soxremd',1,0,'',35,0,0),(29663,6565,3,6,0,'82.53.175.95',1176224338,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:1ry5ufdw]Is there a \'reference manual\' for syntax on the object commands[/quote:1ry5ufdw]\n\nThe reference manual for ADO is in the MSDN.\n\n[quote=&quot;Rick Lipkin&quot;:1ry5ufdw]oRS:Insert ??\noRS:Delete ??\noRs:Add ??\noRs:Update ??[/quote:1ry5ufdw]\n\n[code:1ry5ufdw]oRs&#58;AddNew&#40;&#41;  // appends a new empty record\noRs&#58;Delete&#40;&#41;  // deletes the current record\noRs&#58;Update&#40;&#41;  // commits the changes to the current record &#40;mandatory&#41;[/code:1ry5ufdw]\n\n[quote=&quot;Rick Lipkin&quot;:1ry5ufdw]Just guessing there .. what I am trying to do in this snipit is to start a DELETE SQL query ( \'DELETE FROM table-name where search-condition )    to go out and DELETE all blank records with \"  \" for a \'file_num\' ??[/quote:1ry5ufdw]\n\n[code:1ry5ufdw]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oCn\n\n    oCn = CREATEOBJECT&#40; &quot;ADODB&#46;Connection&quot; &#41;\n\n    oCn&#58;Open&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=clienti2&#46;mdb&quot; &#41;\n\n    ? oCn&#58;Execute&#40; &quot;DELETE FROM Clienti WHERE Cliente LIKE \'A%\'&quot; &#41;\n\n    oCn&#58;Close&#40;&#41;\n\n    RETURN NIL[/code:1ry5ufdw]\n\nEMG','',0,'gIA=','1ry5ufdw',1,0,'',6,0,0),(29664,6636,6,644,0,'201.253.133.227',1176224562,1,0,1,1,1,0,'','ayuda tdosprn','Amigos : EStoy trabajando en una Epson LX810 y quiero imprimir un recibo, original y duplicado. Están uno debajo del otro. He configurado la página ( 19 cm x 40 cm. papel continuo ). Sin embargo cuando imprimo no respeta estas medidas y corre más allá del corte de hoja. Mi pregunta es si puedo, desde código , configurar la página. y si no es así que debo hacer para configurar bien el corte de hoja ?. He visto los dip que trae la impresora pero solo me configura algunos tamaños del papel. Desde ya muchas gracias.','',0,'gIA=','21hf91bk',1,0,'',644,0,0),(29665,6631,6,217,0,'200.159.120.34',1176224941,1,0,1,1,1,0,'','Re: Keyboard','Beleza, Mário!!!\n\nAbraços!\nMaurilio','',0,'gIA=','cddsghlm',1,0,'',217,0,0),(29666,6636,6,812,0,'200.83.124.248',1176225356,1,0,1,1,1,0,'','Re: ayuda tdosprn','Amigo:\n\nPuedes mostrar el codigo que imprimes, sobre este tipo de papel.\n\n\n\n[quote=&quot;horacio&quot;:2tkcfvri]Amigos : EStoy trabajando en una Epson LX810 y quiero imprimir un recibo, original y duplicado. Están uno debajo del otro. He configurado la página ( 19 cm x 40 cm. papel continuo ). Sin embargo cuando imprimo no respeta estas medidas y corre más allá del corte de hoja. Mi pregunta es si puedo, desde código , configurar la página. y si no es así que debo hacer para configurar bien el corte de hoja ?. He visto los dip que trae la impresora pero solo me configura algunos tamaños del papel. Desde ya muchas gracias.[/quote:2tkcfvri]','',0,'gA==','2tkcfvri',1,0,'',812,0,0),(29667,6628,3,110,0,'148.168.40.4',1176225378,1,0,1,1,1,1,'','','please traslate this\n\nQuizas mi idea te sirva.\nExiste una herramienta que es capaz de reemplazar recursos de un exe ya establecido, esta herramienta viene con algunos paquetes que hace un mod a windows xp, que se llama resource hack.\n\npor ejemplo los mod de crystal lo utilizan para cambiar iconos, bitmap, dialogos, me inmagino que strings tambien, en estos mod los cambios los hace por comando no via gui segun he logrado ver.\n\n<!-- m --><a class=\"postlink\" href=\"http://delphi.icm.edu.pl/ftp/tools/ResHack.zip\">http://delphi.icm.edu.pl/ftp/tools/ResHack.zip</a><!-- m -->\n\nsalu2\ncarlos vargas','',0,'gA==','3skrpf1w',1,0,'',110,0,0),(29668,6629,7,2,0,'87.218.146.49',1176225945,1,0,1,1,1,1,'','','Elías,\n\n&gt;Lo que hice simplemente fue resetear la pda y cuando cargó todo de nuevo apareció el icono!...\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; Con respecto a la pregunta de si el FWPPC soporta winsock debo entender que si se puede trabajar con el sin problemas,no?\n\nSí\n\n&gt; En cambio con los ocx no podria hacerlo....¿no es así? \n\nEstamos trabajando para implementarlos lo antes posible','',0,'gA==','15wqapdu',1,0,'',2,0,0),(29669,6635,1,6,0,'82.53.175.95',1176225950,1,0,1,1,1,1,'','Re: Export to outlook contacts','[code:21ro93rr]#define olContactItem 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n\n    LOCAL oContact &#58;= oOutlook&#58;CreateItem&#40; olContactItem &#41;\n\n    oContact&#58;FullName = &quot;This is a new contact&quot;\n    oContact&#58;Email1Address = &quot;newcontact@newmail&#46;it&quot;\n\n    oContact&#58;Save&#40;&#41;\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:21ro93rr]\n\nEMG','',0,'AIA=','21ro93rr',1,0,'',6,0,0),(29670,6636,6,940,0,'189.157.84.245',1176227198,1,0,1,1,1,1,'','tdosprn','Amiguito,  aqui un ejemplo: con la tdos prn.\n\noPrn := TDosPrn():New( \"lpt1\" )           //iniciamos el objeto tdosprn.\n\noPrn:command( \"27\",\"67\", \"45\" )   //7.5\"pulgadas ,salto es cada 45renglones.\n\noprn:end()\n\n\nsaludos...','',0,'AIA=','14y04ckf',1,0,'',940,0,0),(29671,6608,6,492,0,'189.147.26.143',1176227632,1,0,1,1,1,1,'','','Listo !!!\n\nEncontre el \"problemita\", estaba aplicando el indice en forma erronea  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nAhora si, esta trabajando como debe   <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos y Gracias','',0,'AIA=','gmxt2zwe',1,0,'',492,0,0),(29672,6608,6,439,0,'200.125.48.238',1176227761,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:1q9irstn]Listo !!!\n\nEncontre el \"problemita\", estaba aplicando el indice en forma erronea  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nAhora si, esta trabajando como debe   <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos y Gracias[/quote:1q9irstn]\n\nMe alegra mucho, estoy a tus órdenes.','',0,'gA==','1q9irstn',1,0,'',439,0,0),(29673,6637,2,348,0,'200.121.233.206',1176233663,1,0,1,1,1,0,'','Que se requiere para acceder a MS Sql Server','Buenas tardes con todos,\n\nagradeciendo por adelantado las respuestas ,me gustaria saber si  Existen clases para acceder a MS SQL Server  usando fw23 /clipper 52 /blinker 4\n\nHay ejemplos como acceder y hacer mantenimiento  a este tipo de base de datos. (altas, edicion,bajas de registros, etc) \n\no en todo caso cuales son las alternativas.\n\ngracias\nLubin','',0,'gA==','1pio4kau',1,0,'',348,0,0),(29674,6638,6,436,0,'200.117.47.198',1176233895,1,0,1,1,1,0,'','FWH + Windows Vista','Hola Colegas\n\nUn cliente adquirió un equipo (HP) con Vista preinstalado (obviamente original), creo recordar que en la versión Vista Basic.\nPor lo tanto debí pasarle el sistema que les desarrollé (con FWH) al mismo. Hasta allí todo OK sin ningún problema.\nLuego de un par de días de uso, me informan que los listados demoran varios segundos en ser emitidos y en algunos casos directamente no se imprimen. \nHay algo que se pueda hacer?, anteriormente, con el sistema corriendo bajo XP andaba perfecto.\nPor favor cualquier sugerencia será bienvenida.\nGracias y saludos','',0,'gA==','24wik8j9',1,0,'',436,0,0),(29675,6639,3,2,0,'87.218.146.173',1176235554,1,0,1,1,1,1,'','Free Resources Editor','ResEdit: A very interesting free resources editor we may give it a try\n\n<!-- m --><a class=\"postlink\" href=\"http://www.resedit.net/\">http://www.resedit.net/</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.resedit.net/screenshots.htm\">http://www.resedit.net/screenshots.htm</a><!-- m -->\n\nThanks to Felix for the info <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3aaixryx',1,0,'',2,0,0),(29676,6640,6,2,0,'87.218.146.173',1176235949,1,0,1,1,1,1,'','Editor de recursos gratuito','ResEdit: Un muy interesante editor de recursos que merece ser investigado:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.resedit.net/\">http://www.resedit.net/</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.resedit.net/screenshots.htm\">http://www.resedit.net/screenshots.htm</a><!-- m -->\n\nGracias a Felix por la información <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1a0gb1lx',1,0,'',2,0,0),(29677,6640,6,362,0,'200.168.52.156',1176239444,1,0,1,1,1,1,'','','Este, és mui bueno e Free...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.angusj.com/resourcehacker/\">http://www.angusj.com/resourcehacker/</a><!-- m -->','',0,'gA==','ps3gfyqy',1,0,'',362,0,0),(29678,6639,3,35,0,'65.188.6.143',1176243624,1,0,1,1,1,0,'','','I just downloaded and tried to open a simple .rc .. got this error\n\nDS_MODALFRAME:UNDECLARED IDENTIFIER\n\nEMPLOYEE DIALOG 96, 70, 346, 218\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_THICKFRAME\nFONT 6, \"MS Sans Serif\"\n\n\nTried several other .rc files with similar results <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nRick Lipkin','',0,'gA==','hp181b5n',1,0,'',35,0,0),(29679,6641,6,812,0,'201.236.182.169',1176244022,1,0,1,1,1,0,'','Para MARURAMOS','Hola:\n\nTienes HOTMAIL, necesito hacerte una consulta.\n\nSaludos,\nMiguel','',0,'gA==','2zlaoilj',1,0,'',812,0,0),(29680,6639,3,177,0,'82.130.232.231',1176244735,1,0,1,1,1,0,'','','Hi Rick,\n\ncan you post your rc file ?\n\nBest regards,\n\nFelix','',0,'gA==','1de1veus',1,0,'',177,0,0),(29681,6639,3,2,0,'87.218.146.173',1176244778,1,0,1,1,1,1,'','','Rick,\n\nProbably #include &lt;windows.h&gt; is required','',0,'gA==','3j4ij8zu',1,0,'',2,0,0),(29682,6639,3,177,0,'82.130.232.231',1176244982,1,0,1,1,1,0,'','','Rick,\n\nOptions/Configure include paths\n\nRegards,\n\nFelix','',0,'gA==','3313e5hb',1,0,'',177,0,0),(29683,6589,6,743,0,'201.116.76.180',1176245258,1,0,1,1,1,0,'','','gracias \n\n\nque necesito para mi actualizacion\n\n\n\n\nantonio','',0,'gA==','1clhz9mv',1,0,'',743,0,0),(29684,6636,6,376,0,'190.42.42.5',1176246440,1,0,1,1,1,1,'','','Aquí en el foro hay varios ejemplos para setear la impresión para recibos o facturas. Si en caso no lo consiguieras, envíame un email a mi correo y te proporciono lo que en su momento lo deje aquí en el foro como ejemplo (eso fue el año pasado, me parece recordar y también yo uso una EPSON LX810)','',0,'gA==','2gzanr32',1,0,'',376,0,0),(29685,6607,3,49,0,'62.13.172.67',1176246823,1,0,1,1,1,1,'','','thanks\nbut How I can print only the record selected \ncan you make a small sample please','',0,'gA==','2rr1m5o7',1,0,'',49,0,0),(29686,6639,3,35,0,'65.188.6.143',1176247954,1,0,1,1,1,0,'','','Antonio\n\nYUP .. #include &lt;windows.h&gt; had to be placed in the .rc file and had to be configured in the editor.. just curious why Borland Workshop does not need the ( any ) include statement(s) ??\n\nNone of my .rc\'s have any include statements .. and have no adverse affect when running under my applications.. header files was the brunt of my critisms with Pelles C  .. especially if you switch between compilers Borland and MSVC ..\n\nJust curious Felix .. to make your editor work .. can you test for the include file before you open an existing .rc and ask if it can be inserted and what is the \\include path ??\n\nRick Lipkin','',0,'gA==','35cs8fxt',1,0,'',35,0,0),(29687,6642,20,49,0,'62.13.172.67',1176248062,1,0,1,1,1,1,'','record selezionati','usando xbrowse posso selezionare i record\n\n[code:1646xwvs]\nSTATIC FUNCTION MultiSelect&#40; oWnd &#41;\n\n   local oChild, oBrw\n\n   DEFINE WINDOW oChild TITLE &quot;MultiSelect browse&quot; MDICHILD OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oChild &#41;\n   oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROWMS\n\n   oBrw&#58;SetRDD&#40;&#41;\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL[/code:1646xwvs]\n\n\n\nse volessi stampare solo irecord selezionati come potrei fare ?\n\n\nil problema sussiste solo se uso xbrowse  con wbrowse non ho nessun problema perchè ho associato al tasto f5 la selezione del record che aggiungo aadd in un array\n\nPer motivi solo di estetica preferisco usare xbrowse però non volevo rinunciare alla selezione del record per le stampe','',0,'AIA=','1646xwvs',1,0,'',49,0,0),(29688,6643,23,49,0,'62.13.172.67',1176249039,1,0,1,1,1,1,'','where is Manfred Guttler ?','On 99 I write to Manfred for a print function but he not write to me \n\nhis address was :\n\nRingweg 11 - D - 29323 Wietze ( Germany)\n\n\nSomeone can help me  , please !!','',0,'AIA=','1cexn33v',1,0,'',49,0,0),(29689,6589,6,2,0,'87.218.146.173',1176249921,1,0,1,1,1,1,'','','Puedes adquirirla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos (Actualización a la nueva versión de FWH).','',0,'AIA=','37myqz0i',1,0,'',2,0,0),(29690,6637,2,138,0,'189.141.67.139',1176251429,1,0,1,1,1,1,'','','Se puede utilizar el ODBC, pero es demasiado complicado a 16 bits, aunque FW tiene una clase que es el RDDODBC que trata de simular el manejo de una tabla SQL como si fuese un DBF, sin embargo no es optimo\n\nLa mejor opcion es ADO a 32 bits, funciona estupendamente bien.\n\nSaludos\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'AIA=','34kcz8qz',1,0,'',138,0,0),(29691,6565,3,707,0,'125.163.113.3',1176254354,1,0,1,1,1,0,'','','Hi Enrico !\n\nCan I do this to open file on server directory:\n\n[code:3rzk7ray]\noCn&#58;Open&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=\\\\server\\datafiles\\clienti2&#46;mdb&quot; &#41; \n[/code:3rzk7ray]\n\nAreang','',0,'AIA=','3rzk7ray',1,0,'',707,0,0),(29692,2174,3,707,0,'125.163.113.3',1176255179,1,0,1,1,1,0,'','','Hi All ! This is spyware for protect your system made by xHarbour\n\n\n[code:170fl57o]\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define GW_HWNDNEXT   2\n#define GW_CHILD      5\n\n#define SW_NORMAL              1\n#define SW_MAXIMIZE            3\n#define SW_MINIMIZE            6\n#define SW_RESTORE             9\n\nstatic oWnd,cPassword,oTimer,oTimer2,oTimer3,oTray,lFree,oDlg\n\nfunction Main&#40;&#41;\n\n  set date british\n  set century on\n  set delete on\n\n  oDlg &#58;= nil\n\n  lFree &#58;= &#46;f&#46;\n\n  IF IsExeRunning&#40;cFileName&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41;&#41;   //cFileName&#40;HB_ARGV&#40;0&#41;&#41;\n     ShowApplication&#40;&#41;\n  else\n     Oke&#40;&#41;\n  endif\n  \n  if !file&#40;&quot;c&#58;\\windows\\system32\\free&#46;dat&quot;&#41; // just create\n     if file&#40;&quot;server&#46;exe&quot;&#41;  // server&#46;exe renamed from shutdown&#46;exe \n        WinExec&#40;&quot;server&#46;exe -s -t 1&quot;,0&#41;\n     else\n        WinExec&#40;&quot;c&#58;\\windows\\system32\\shutdown&#46;exe -s -t 1&quot;,0&#41;\n     endif\n  endif\n\nreturn nil\n\nfunction Oke&#40;&#41;\nlocal oIcon,oBrush\n\ncPassword &#58;= spac&#40;20&#41;\n\nDEFINE ICON  oIcon  NAME &quot;bercomp&quot;\n\nDEFINE BRUSH oBrush COLOR CLR_GREEN\n\nDEFINE WINDOW oWnd FROM 1,1 TO 80,350 pixel TITLE &quot;BaseProNet&quot; BRUSH oBrush ICON oIcon ;\nNOSYSMENU\n\nDEFINE TIMER oTimer INTERVAL  500 ;\n               ACTION &#40; CekWindows&#40;&#41; &#41; OF oWnd\n\nDEFINE TIMER oTimer3 INTERVAL  10000 ;\n               ACTION &#40; if&#40;oDlg == nil,&#46;f&#46;,oDlg&#58;End&#40;&#41; &#41; &#41; OF oWnd\n\noTimer&#58;Activate&#40;&#41;\noTimer3&#58;Activate&#40;&#41;\n\n\nACTIVATE WINDOW oWnd ;\n           ON INIT oTray &#58;= TTrayIcon&#40;&#41;&#58;New&#40;oWnd,oIcon,&quot;BaseProNet&quot;,&#123;||CekPass&#40;&#41;&#125;,&#123;|nRow,nCol|MenuTray&#40;nRow,nCol,oTray&#41;&#125;&#41; ;\n           VALID &#40; AskYou&#40;&#41;,oTray&#58;End&#40;&#41;,&#46;t&#46; &#41;\n\nreturn nil\n\nstatic function AskYou&#40;&#41;\n\nif lFree\n   return &#46;t&#46;\nendif\n\nif !file&#40;&quot;c&#58;\\windows\\system32\\free&#46;dat&quot;&#41; // just create this file for free from spyware\n   WinExec&#40;&quot;shutdown -s -t 1&quot;,1&#41;\nendif\nreturn &#46;t&#46;\n\nSTATIC FUNCTION CEKWINDOWS&#40;&#41;\nlocal cFindi,cChr\nLOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41;\n\nif lFree\n   oTimer&#58;deactivate&#40;&#41;\n   return nil\nendif\n\nif file&#40;&quot;c&#58;\\windows\\system32\\free&#46;dat&quot;&#41;\n   return nil\nendif\n\n\nWHILE hWnd != 0\n    cFind &#58;= alltrim&#40;upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41;&#41;\n\n    for i &#58;= 1 to len&#40;cFind&#41;\n        cChr &#58;= subs&#40;cFind,i,1&#41;\n        if cChr == &quot;&#58;&quot;\n           POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n        endif\n    next\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;Start Menu&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,6&#41;&#41; = upper&#40;&quot;System&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;My Computer&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;Documents and Settings&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;Program Files&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;My Documents&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;Search Results&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41; &#41; = upper&#40;&quot;My Network Places&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41; &#41; = upper&#40;&quot;Windows Task Manager&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,10&#41;&#41; = upper&#40;&quot;bercomp on&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,10&#41;&#41; = upper&#40;&quot;Local Disk&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;Run&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;System Properties&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;Registry Editor&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;GETWINDOWTEXT&#40; hWnd &#41;&#41; = upper&#40;&quot;Control Panel&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,14&#41;&#41; = upper&#40;&quot;Command Prompt&quot;&#41;\n       POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,7&#41;&#41; = upper&#40;&quot;Progexe&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,3&#41;&#41; = upper&#40;&quot;exe&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,7&#41;&#41; = upper&#40;&quot;Confirm&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,8&#41;&#41; = upper&#40;&quot;Computer&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,7&#41;&#41; = upper&#40;&quot;Display&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,7&#41;&#41; = upper&#40;&quot;Taskbar&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    IF upper&#40;left&#40;GETWINDOWTEXT&#40; hWnd &#41;,7&#41;&#41; = upper&#40;&quot;ciremai&quot;&#41;\n        POSTMESSAGE&#40; hWnd, WM_CLOSE &#41;\n    ENDIF\n\n    hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\nENDDO\n\nRETURN NIL\n\n\nstatic function CekPass&#40;&#41;\n\ncPassword &#58;= spac&#40;20&#41;\n\nif lFree\n   lFree &#58;= &#46;f&#46;\n   oTimer&#58;Activate&#40;&#41;\n   return &#46;t&#46;\nendif\n\nif oDlg == nil\nelse\n   oDlg&#58;End&#40;&#41;\n   lFree  &#58;= &#46;f&#46;\n   return &#46;t&#46;\nendif\n\nDEFINE DIALOG oDlg FROM 1,1 to 50,200 title &quot;Password&quot; pixel\n\n@1,1 get oPassword var cPassword size 50,12 of oDlg pixel picture &quot;@!&quot; password color CLR_BLACK,CLR_HGREEN\n\n@1,52 button &quot;OKE&quot; size 30,12 of oDlg pixel action &#40; oDlg&#58;End&#40;&#41; &#41;\n\nACTIVATE DIALOG oDlg centered ON INIT &#40; oPassword&#58;SetFocus&#40;&#41; &#41; VALID &#40; oDlg &#58;= nil, &#46;t&#46; &#41;\n\noDlg &#58;= nil\n\nif alltrim&#40;cPassword&#41; == &quot;8091016&quot;  // if you like \n   lFree  &#58;= &#46;t&#46;\nendif\nreturn &#46;t&#46;\n\nstatic function ShowApplication&#40;&#41;\n\n   local hWnd &#58;= FindWnd&#40; cFileNoExt&#40; HB_ARGV&#40; 0 &#41; &#41; &#41; \n    \n   if hWnd != nil \n      SetForeGroundWindow&#40; hWnd &#41; \n   endif    \n    \nreturn nil\n\n\nstatic function FindWnd&#40; cTitle &#41;\n\n   local hWnd &#58;= GetWindow&#40; GetDesktopWindow&#40;&#41;, GW_CHILD &#41; \n\n   while hWnd != 0 \n      if Upper&#40; cTitle &#41; $ Upper&#40; GetWindowText&#40; hWnd &#41; &#41; \n         return hWnd \n      endif \n\n      hWnd = GetWindow&#40; hWnd, GW_HWNDNEXT &#41; \n   end \n\nreturn nil\n\nFUNCTION MenuTray&#40; nRow, nCol, oTray &#41;\n\nLOCAL oMenu\n\n   MENU oMenu POPUP\n      MENUITEM &quot;Lock&quot; ACTION &#40; lBebas &#58;= &#46;f&#46;,oTimer&#58;Activate&#40;&#41;,if&#40;oDlg == nil,&#46;t&#46;,oDlg&#58;End&#40;&#41;&#41; &#41;\n      MENUITEM &quot;Hide&quot; ACTION oWnd&#58;Hide&#40;&#41;,oMenu&#58;End&#40;&#41;\n      SEPARATOR\n      MENUITEM &quot;Close&quot;   ACTION oWnd&#58;end&#40;&#41;\n   ENDMENU\n\n   ACTIVATE POPUP oMenu AT nRow, nCol OF oTray&#58;oWnd\n\nRETURN NIL\n[/code:170fl57o]\n\nPlease vote if you like  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nAreang','',0,'AIA=','170fl57o',1,1176539999,'',707,2,0),(29693,6633,3,282,0,'210.72.235.124',1176256185,1,0,1,1,1,0,'','','Dear Antonio\n\nIt\'s very kindly of you to help me out\n\n1. Set RibbonBar = CommandBars.AddRibbonBar(\"Ribbon Bar\") \n2. Set ControlFile = RibbonBar.Controls.Add(xtpControlPopup, -1, \"&amp;File\", 1) \n\nIt\'s ok now\n\nBut I still have problem for the following commands\nCould you help me this AGAIN !\n\n\'Add commands to the popup \nWith ControlFile.CommandBar.Controls \n.Add xtpControlButton, ID_FILE_NEW, \"&amp;New\" \n.Add xtpControlButton, ID_FILE_OPEN, \"&amp;Open...\" \nSet Control = .Add(xtpControlButton, ID_APP_EXIT, \"E&amp;xit\") \nControl.BeginGroup = True \nEnd With \n\nThank you very much !\n\nBest regards !\n\nDixon Chu','',0,'AIA=','2j7on3cr',1,0,'',282,0,0),(29694,6607,3,239,0,'202.105.97.227',1176263672,1,0,1,1,1,0,'','','oRpt:bSkip := { || oRpt:Cargo := ::rptSKIP(  ) }\n\nMethod Rptskip() class Txbrowse\nlocal n1,n1old\n   \n   \n   n1old:=::skip(1)\n   n1:=n1old\n   \n   IF  len(::aSelected)&gt;0                          \n              While AScan( ::aSelected, If( ::nDatatype==DATATYPE_ARRAY,::nArrayAt,eval(::bKeyno)))==0\n                      n1+=::skip(1) \n                     if ::nDATATYPE&lt;&gt;DATATYPE_ARRAY\n                        if eval(::bKeyno)==eval(::bkeyCount)\n                       n1:=0\n                       exit\n                     end\n                   else\n                    if ::nArrayAt==len(::aArray)  \n                      n1:=0\n                      exit\n                    end\n                 end       \n                 if n1==n1old                    \n                    exit\n                 end   \n                 n1old:=n1 \n                \n              enddo     \n    end     \n\n\nIf you want a more better method select()\n\n#ifdef __HARBOUR__\n   METHOD Select( nOperation ) CLASS TXBrowse\n#else\n   METHOD _Select( nOperation ) CLASS TXBrowse\n#endif\n\n   local uBook, uCurRow, uOldRow, uTemp\n   local aTemp\n   local nAt, nLen\n   local lRefresh\n\n   if ::nMarqueeStyle != MARQSTYLE_HIGHLROWMS\n      return nil\n   endif\n\n   DEFAULT nOperation := 1\n\n   do case\n   case nOperation ==   0 // delete all\n      if len( ::aSelected ) == 1 .and.  Eval( ::bBookMark,, Self ) == ::aSelected[ 1 ]\n         lRefresh := .f.\n      else\n         lRefresh := .t.\n      endif\n      ::aSelected   := {}     \n      if lRefresh .and. ::lCreated\n         ::lRefreshOnlyData := .t.\n         ::GetDC()\n         ::Paint()\n         ::ReleaseDC()\n      endif\n\n   case nOperation == 1\n   //  .or. ( len( ::aSelected ) == 0 .and. nOperation != 4 )// Add current\n   // xtech \n      uBook := Eval( ::bBookMark,, Self )\n      nAt   := Ascan( ::aSelected, uBook )\n      if nAt == 0\n        //  Aadd( ::aSelected, uBook )  \n        // xtech       \n          If ::lCreated\n            ::DrawLine( .t. )\n         Endif\n      endif\n\n   case nOperation == 2 // Swap key (Ctrl+LClick)\n      uBook := Eval( ::bBookMark,, Self )\n      nAt   := Ascan( ::aSelected, uBook )\n      if nAt &gt; 0\n         If ::lCreated\n            ::DrawLine( .f. )            \n         endif\n         ::aSelected[ nAt ] := Atail( ::aSelected )\n         Asize( ::aSelected, len( ::aSelected ) - 1 )\n     \n      else\n         Aadd( ::aSelected, Eval( ::bBookMark ))        \n         If ::lCreated          \n            ::DrawLine( .t. )            \n         endif\n      endif\n\n   case nOperation == 3 // Shift &amp; lclick\n      uBook   := Eval( ::bBookMark,, Self )\n      uCurRow := Eval( ::bKeyNo,,Self )\n      Eval( ::bBookMark,  Atail( ::aSelected ), Self )\n      uOldRow := Eval( ::bKeyNo,,Self )\n      if uOldRow != uCurRow\n         ::aSelected := { Atail( ::aSelected ) }\n         if uCurRow &gt; uOldRow\n            CursorWait()\n            do while ( uTemp := Eval( ::bBookMark,, Self ) ) != uBook .and. !Eval( ::bEof, Self )\n               If Ascan( ::aSelected, uTemp ) == 0\n                  Aadd( ::aSelected, uTemp )                \n               Endif\n               Eval( ::bSkip, 1, Self )\n            enddo\n            CursorArrow()\n         else\n            CursorWait()\n            do while ( uTemp := Eval( ::bBookMark,, Self ) ) != uBook .and. !Eval( ::bBof, Self )\n               If Ascan( ::aSelected, uTemp ) == 0\n                  Aadd( ::aSelected, uTemp )                \n               endif\n               Eval( ::bSkip, -1, Self )\n            enddo\n            CursorArrow()\n         endif\n         Aadd( ::aSelected, uBook )        \n         Eval( ::bBookMark, uBook, Self )\n         ::lRefreshOnlyData := .t.\n         If ::lCreated\n            ::GetDC()\n            ::Paint()\n            ::ReleaseDC()\n         endif\n      else\n         Eval( ::bBookMark, uBook, Self )\n      endif\n\n   case nOperation == 4 // Select all\n      uBook       := Eval( ::bBookMark,, Self )\n      ::aSelected := Array( ::KeyCount() )     \n      nAt         := 1\n      nLen        := ::nLen\n      aTemp       := ::aSelected\n      CursorWait()\n      Eval( ::bGotop, Self )\n      do while nAt &lt;= nLen //.and. !Eval( ::bEof )\n         aTemp[ nAt++ ] := Eval( ::bBookMark,, Self )\n         Eval( ::bSkip, 1, Self )\n      enddo\n      Eval( ::bBookMark, uBook, Self )\n      CursorArrow()\n      ::lRefreshOnlyData := .t.\n      If ::lCreated\n         ::GetDC()\n         ::Paint()\n         ::ReleaseDC()\n      Endif\n\n   end case\n\nreturn nil\n\n\n\n\nreturn n1','',0,'','3k1z7ijj',1,0,'',239,0,0),(29695,6026,3,215,0,'189.136.214.35',1176263969,1,0,1,1,1,1,'','en efecto','Carles,\nHe estado recibiendo reportes de mis usuarios que hay veces que las imagenes no se cargan, no se ven. El ::hBitmap regresa un número positivo o negativo.\nPor favor podrías explicarme como lo has solucionado.\n\nif oImage:hBitmap == 0\n      ?\"No se cargo la imagen\"\n   // ¿Qué se puede hacer?\nendif\n\n\nGracias\n\nFernando\nMéxico','',0,'','i0tx0g0j',1,0,'',215,0,0),(29696,6635,1,161,0,'81.164.212.146',1176268329,1,0,1,1,1,0,'','','Thanks Enrico,\n\nIs there also a possibility to check if a contact already exist? My customer is adding contacts in my program and want to update every month the contacts in outlook.\n\nThanks,\nMarc','',0,'','1qbzexua',1,0,'',161,0,0),(29697,6644,3,2,0,'87.218.146.173',1176272083,1,0,1,1,1,1,'','FWPPC: ActiveX support!','ActiveX support is already working in FWPPC <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nNow we are building some tests and we will publish a new build asap','',0,'','205bpm0d',1,0,'',2,0,0),(29698,6645,4,2,0,'87.218.146.173',1176272118,1,0,1,1,1,1,'','ActiveX support!','ActiveX support is already working <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nNow we are building some tests and we will publish a new build asap','',0,'','2iz2xhd8',1,0,'',2,0,0),(29699,6646,6,2,0,'87.218.146.173',1176272173,1,0,1,1,1,1,'','FWPPC: Soporte de ActiveX','El soporte de ActiveX en FWPPC ya está funcionando <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAhora estamos construyendo algunos ejemplos y publicaremos un nuevo build cuanto antes','',0,'','22o3w12l',1,0,'',2,0,0),(29700,6647,7,2,0,'87.218.146.173',1176272200,1,0,1,1,1,1,'','Soporte de ActiveX!','El soporte de ActiveX en FWPPC ya está funcionando <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAhora estamos construyendo algunos ejemplos y publicaremos un nuevo build cuanto antes','',0,'','2hfslwnm',1,0,'',2,0,0),(29701,6635,1,6,0,'87.20.227.184',1176274760,1,0,1,1,1,1,'','','[code:11t78hww]#define olFolderContacts 10\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n    LOCAL oNameSpace &#58;= oOutlook&#58;GetNameSpace&#40;&quot;MAPI&quot;&#41;\n    LOCAL oContacts &#58;= oNameSpace&#58;GetDefaultFolder&#40; olFolderContacts &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO oContacts&#58;Items&#58;Count\n        IF oContacts&#58;Items&#91; i &#93;&#58;FullName = &quot;MyContact&quot;\n            ? &quot;Found!&quot;\n            EXIT\n        ENDIF\n    NEXT\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:11t78hww]\n\nEMG','',0,'AIA=','11t78hww',1,0,'',6,0,0),(29702,6565,3,6,0,'87.20.227.184',1176275017,1,0,1,1,1,1,'','','I think so. Just try.\n\nEMG','',0,'AIA=','1pz6snr9',1,0,'',6,0,0),(29703,6642,20,6,0,'87.20.227.184',1176275115,1,0,1,1,1,1,'','Re: record selezionati','oBrw:aSelected che ti ho già segnalato non funziona?\n\nEMG','',0,'AIA=','3os9uh0f',1,0,'',6,0,0),(29704,6634,6,413,0,'194.106.16.43',1176278728,1,0,1,1,1,1,'','','Ok gracias lo pruebo....','',0,'AIA=','3pxw693n',1,0,'',413,0,0),(29705,6648,6,413,0,'194.106.16.43',1176286804,1,0,1,1,1,1,'','Barra Outlook + Splitter + Browse (xBrowse) + TAB','Tengo una ventana con tres objetos una Barra Outlook + Splitter + Browse (xBrowse) + TAB. El problema es que el browse me come la barra outlook y el tab engloba tanto a outlook como al browse y me gustaria que solo perteneciera al browse como lo hago.\nHe tomado el ejemplo /samples/testxbrw.prg\n\n[code:vetvbyy7]STATIC FUNCTION BasicCell&#40; oWnd &#41;\n\n   local oChild, oFont, oOut, oSpl, oBrw, oTabs\n\n   DEFINE FONT oFont NAME &quot;Ms Sans Serif&quot; SIZE 0,-8\n   DEFINE WINDOW oChild TITLE &quot;Basic Cell selector browse&quot; MDICHILD OF oWnd\n\n	//-----------------------------------------------------------------//\n	//      Definimos un objeto OUTLOOK                                //\n	//-----------------------------------------------------------------//\n\n	@ -1, -1 OUTLOOK oOut ;\n   SIZE 125, 100 ; //Ajustamos al tamaño máximo de la ventana, tenemos que pensar que esta la barra de mensajes\n   COLOR CLR_BLACK , 16436871 ;  //CLR_HCYAN  16741960\n   PIXEL ;\n	FONT oFont ;\n   OF oChild\n\n	DEFINE GROUP OF OUTLOOK oOut PROMPT &quot;&amp;Informes&quot; //Defino un apartado\n\n	//-----------------------------------------------------------------//\n	//      Definimos un objeto BROWSE                                 //\n	//-----------------------------------------------------------------//\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;cToolTip = &quot;This is a test&quot;\n\n   //oChild&#58;oClient &#58;= oBrw //Si lo pongo me machaca la barra outlook\n\n	//-----------------------------------------------------------------//\n	//      Definimos un objeto TAB                                    //\n	//-----------------------------------------------------------------//\n\n\n	@ 1, 0 TABS oTabs PROMPTS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot;, &quot;&amp;Four&quot; OF oChild ;\n      ACTION oChild&#58;Say&#40; 5, 5, oTabs&#58;nOption &#41;\n\n   oChild&#58;oBottom = oTabs\n	\n	//----------------------------------------------------------------------------//\n   //            Sistema de SPLITTER&#46; objeto oSpl                                //\n	//----------------------------------------------------------------------------//\n   @ 1, 124 SPLITTER oSpl ;\n            VERTICAL ;\n            PREVIOUS CONTROLS oOut ;\n            HINDS CONTROLS oBrw , oTabs;   //\n            LEFT MARGIN 100;\n            RIGHT MARGIN 200 ;\n            SIZE 4, 100  PIXEL ;\n            OF oChild ;\n            _3DLOOK ;\n            UPDATE\n\n\n   ACTIVATE WINDOW oChild;\n	                ON INIT oBrw&#58;SetFocus&#40;&#41;;\n                   ON RESIZE oSpl&#58;AdjRight&#40;&#41;\n\n\nRETURN NIL\n\n[/code:vetvbyy7]','',0,'AIA=','vetvbyy7',1,0,'',413,0,0),(29706,6648,6,456,0,'217.127.39.57',1176288155,1,0,1,1,1,1,'','','Hola Andres,\n\n[code:4uopd94a]oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;[/code:4uopd94a]\ndebes sustituir oWnd por oChild\n\nAntes de Activate WINDOW  añade el siguiente código\n[code:4uopd94a]oChild&#58;oLeft&#40;&#41;  &#58;= oOut\noChild&#58;oClient  &#58;= oBrw[/code:4uopd94a]\n\nCreo que con esto conseguiras el efecto deseado.','',0,'AIA=','4uopd94a',1,0,'',456,0,0),(29707,6592,7,720,0,'80.36.244.134',1176290594,1,0,1,1,1,0,'','','Hola a todos...\n\nVamos a ver, tengo un smartphone Qtek S200 con windows mobile 5. Hago un:\n\nuse(\'tabla.dbf\') shared new (no da error pero no hace nada)\n\ny no funciona!. Este modelo no puede usar tablas compartidas a pesar de tener el windows mobile5??\n\nUn saludo..\n\nElías Torres.','',0,'AIA=','38ebys3m',1,0,'',720,0,0),(29708,6592,7,2,0,'87.218.146.173',1176290708,1,0,1,1,1,1,'','','Elías,\n\nA que te refieres con \"no hace nada\" ? Se queda colgada la aplicación ? Sigue la ejecución ?','',0,'AIA=','1k51uiyj',1,0,'',2,0,0),(29709,6649,7,720,0,'80.36.244.134',1176290728,1,0,1,1,1,0,'','alguien puede mostrar un ejemplo del uso del WINSOCK??','Hola a todos, pues eso necesitaria para guiarme un ejemplillo para el uso del winsock..... Si alguien puede pasarme uno o decirme donde puedo mirar se lo agradeceria mucho.\n\nUn saludo.\n\nElías Torres.','',0,'AIA=','3mn4vf78',1,0,'',720,0,0),(29710,6592,7,720,0,'80.36.244.134',1176290792,1,0,1,1,1,0,'','','Antonio, se queda colgada la aplicación....\n\nSaludos.\n\nElías Torres.','',0,'AIA=','2j42rdrh',1,0,'',720,0,0),(29711,6592,7,720,0,'80.36.244.134',1176291801,1,0,1,1,1,0,'','','Antonio, despues de estar esperando a ver que es lo que hace la aplicación me sale el siguiente error;\n\nLockFileEx() not supported in this windows Mobile version\n\nLa versión de la que dispone el dispositivo es la siguiente:\n\nMicrosoft Windows Mobile version 5\nSO 5.1.195 (compilación 14847.2.0.0)\nprocesador: OMAP850-195MHz\n\nLa verdad es que no entiendo nada....\n\nPuede explicarme que es lo que está sucediendo??\n\n\nUn saludo y gracias.\n\nElías Torres.','',0,'AIA=','j77jpqf2',1,0,'',720,0,0),(29712,6650,2,393,0,'190.40.40.65',1176294091,1,0,1,1,1,0,'','Problemas al Imprimir un listado de varias paginas','Amigos, estoy generando un listado , pero solo me imprime la primera\npagina ò si tengo un listado largo me esta dejando de imprimir la paginas pares, adjunto parte del programa de impresion, a ver si me pueden\ndar alguna idea de que estoy haciendo mal.\nGracias por su apoyo.\nDaniel.\nFW25 + Clip53 + Blinker6.0\n\n\nnFila := 1\n\n//------------ Carga Datos del Detalle ----------------------//\nPRINT oPrn PREVIEW\nIF Empty( oPrn:hDC )\nMsgStop( \"Printer not ready!\" )\nReturn Nil\nEND IF\n\nDEFINE FONT oFnt12C NAME \"Courier\" SIZE 0,-12 OF\noPrn\nDEFINE FONT oFnt12CB NAME \"Courier\" SIZE 0,-12 BOLD OF\noPrn\nDEFINE FONT oFnt10C NAME \"Courier\" SIZE 0,-10 OF\noPrn\nDEFINE FONT oFnt08C NAME \"Courier\" SIZE 0,-8 OF\noPrn\nDEFINE FONT oFnt10CB NAME \"Courier\" SIZE 0,-10 BOLD OF\noPrn\nDEFINE FONT oFnt8 NAME \"Arial\" SIZE 0,-8 ITALIC OF oPrn\nDEFINE FONT oFnt10 NAME \"Arial\" SIZE 0,-10 OF oPrn\nDEFINE FONT oFnt10B NAME \"Arial\" SIZE 0,-10 BOLD OF oPrn\nDEFINE FONT oFnt12 NAME \"Arial\" SIZE 0,-12 BOLD OF oPrn\nDEFINE FONT oFnt14 NAME \"Arial\" SIZE 0,-14 BOLD OF oPrn\nDEFINE FONT oFnt16 NAME \"Arial\" SIZE 0,-16 BOLD OF oPrn\n\nDEFINE BRUSH oBrush COLOR 14671839 // gris claritillo\nDEFINE PEN oPen1 WIDTH 5\n\nnRowStep = oPrn:nVertRes() / 20 // We want 20 rows\nnColStep = oPrn:nHorzRes() / 15 // We want 15 cols\n\n//oPrn:SetPortrait()\n//oPrn:SetLandscape()\n\nPAGE\nPintaCabecera( cTipo, oPrn )\nnLineas := 0\nIf (cAlias)-&gt;( DbSeek( cTipo + cEstado ) )\nWHILE !(cAlias)-&gt;( Eof() ) .and. (cAlias)-&gt;TIPO =\ncTIPO\ncCliente := (cAlias)-&gt;CodClient\noPrn:cmSay( nFila, 1.0, \'CLIENTE : \' + cCliente\n+ \' \' + (cAlias)-&gt;Cliente , oFnt10CB )\nnFila := nFila + 0.5\nStore 0 to nParcialN, nParcialA, nParcialS\nnLineas ++\nWHILE !(cAlias)-&gt;( Eof() ) .and. (cAlias)-\n&gt;CODCLIENT = cCliente .and. (cAlias)-&gt;TIPO = cTIPO\nIf nLineas &gt;= 100\noPrn:StartPage()\nnFila := 1\nPintaCabecera( cTipo, oPrn )\nnLineas := 0\nEndif\n\ncNomMda := SearchMaestros(\"06\",(cAlias)-\n&gt;Moneda, 4)\n\nnParcialN := nParcialN + (cAlias)-&gt;Neto\nnParcialA := nParcialA + (cAlias)-&gt;Abonos\nnParcialS := nParcialS + (cAlias)-&gt;Saldo\n\noPrn:cmSay( nFila, 1.0, Dtoc((cAlias)-\n&gt;Fecha) , oFnt10C )\noPrn:cmSay( nFila, 3.2, (cAlias)-\n&gt;TIPO , oFnt10C )\noPrn:cmSay( nFila, 3.6, Left( (cAlias)-\n&gt;NRODOC,5) , oFnt10C )\noPrn:cmSay( nFila, 4.8, (cAlias)-\n&gt;Placa , oFnt10C )\noPrn:cmSay( nFila, 6.4,\ncNomMda , oFnt10C )\noPrn:cmSay( nFila,07.1, Num2Str( (cAlias)-\n&gt;Neto ,09,2 ) , oFnt10C,,,1 )\noPrn:cmSay( nFila,09.2, Num2Str( (cAlias)-\n&gt;Abonos,09,2 ) , oFnt10C,,,1 )\noPrn:cmSay( nFila,11.4, Num2Str( (cAlias)-\n&gt;Saldo ,09,2 ) , oFnt10C,,,1 )\noPrn:cmSay( nFila,13.4, Left((cAlias)-\n&gt;Observ,43 ) , oFnt08C )\n(cAlias)-&gt;( DbSkip() )\nnFila := nFila + 0.5\nnLineas ++\nIf nLineas &gt;= 46\nIf (cAlias)-&gt;( Eof() )\n\nElse\noPrn:cmSay(nFila,17.5,\'-----------//-------\n----\', oFnt10 )\nEndif\noPrn:EndPage()\nnLineas := 100\nEnd if\n\nEND WHILE\n\noPrn:cmSay( nFila, 1.0, \'Totales Parciales\' ,\noFnt10CB,,,1)\noPrn:cmSay( nFila,07.1, Num2Str( nParcialN,\n09,2 ) , oFnt10CB,,,1 )\noPrn:cmSay( nFila,09.2, Num2Str( nParcialA,\n09,2 ) , oFnt10CB,,,1 )\noPrn:cmSay( nFila,11.4, Num2Str( nParcialS,\n09,2 ) , oFnt10CB,,,1 )\nnLineas ++\nnFila := nFila + 1\nnTotalN := nTotalN + nParcialN\nnTotalA := nTotalA + nParcialA\nnTotalS := nTotalS + nParcialS\nEND WHILE\noPrn:cmSay( nFila, 1.0, \'Total General\' , oFnt10CB,,,1)\noPrn:cmSay( nFila,07.1, Num2Str( nTotalN, 09,2 ) ,\noFnt10CB,,,1 )\noPrn:cmSay( nFila,09.2, Num2Str( nTotalA, 09,2 ) ,\noFnt10CB,,,1 )\noPrn:cmSay( nFila,11.4, Num2Str( nTotalS, 09,2 ) ,\noFnt10CB,,,1 )\nELSE\nMsgAlert( \'Informacion solicitada, no Encontrada\')\nEND IF\nENDPAGE\nENDPRINT\n\nSET(_SET_SOFTSEEK, lSS)\n\noFnt8:End()\noFnt10:End()\noFnt10B:End()\noFnt12:End()\noFnt14:End()\noFnt16:End()\n\n(cAlias )-&gt;( DbCloseArea() )\nSelect( OldSele )\nRETURN ( .T. )\n\n\n\n// -------------------------------------------------------------------\n-----\n// Funci¢n ...: PintaCabecera\n// Descripci¢n: Pinta Cabecera de la Proforma\n// Parametros : aDatos -&gt; Arreglo con Datos de Clientes\n// aDatos1 -&gt; Arreglo con Datos del Auto\n// oDbfCab -&gt; Cabecera\n// oPrn -&gt; Objeto Printer.\n// Devuelve ..: Nada.\n// -------------------------------------------------------------------\n-----\nStatic Function PintaCabecera( cTipo, oPrn )\noPrn:cmSay( nFila ,5.5, \"LISTADO DE DEUDAS POR COBRAR \" ,\noFnt14 )\noPrn:cmSay( nFila+0.5,5.5, \" AL : \" + Dtoc(Date() ), oFnt14 )\n\nnFila := nFila + 2\nSubTitulo( oPrn )\n\nReturn Nil\n\nStatic Function SubTitulo( oPrn )\n//-------------------------------\noPrn:cmSay( nFila,01.0, \"FECHA\" , oFnt10CB )\noPrn:cmSay( nFila,02.8, \"NRODOC\" , oFnt10CB )\noPrn:cmSay( nFila,04.8, \"PLACA\" , oFnt10CB )\noPrn:cmSay( nFila,06.4, \"MDA\" , oFnt10CB )\noPrn:cmSay( nFila,07.1, \" NETO \" , oFnt10CB )\noPrn:cmSay( nFila,09.2, \" ABONOS \" , oFnt10CB )\noPrn:cmSay( nFila,11.4, \" SALDO \" , oFnt10CB )\noPrn:cmSay( nFila,13.4, \"OBSERVACIONES\" , oFnt10CB )\nnFila := nFila + 0.5\nLinea(nFila, 01.0,nFila,20.0,oPrn,oPen1)\nnFila := nFila + 0.5\nReturn Nil','',0,'AIA=','153lc7bn',1,0,'',393,0,0),(29713,6592,7,2,0,'87.218.146.173',1176295810,1,0,1,1,1,1,'','','Elías,\n\nPues significa que ese build en concreto de Windows Mobile 5 no exporta la función LockFileEx() por lo que no soporta la opción shared.\n\nLa verdad es que es extraño, pero nuestro código fuente busca la función en coredll.dll y si no la encuentra Windows, pues ese es el error que te aparece.\n\nHas probado tu aplicación en el emulador de Pocket PC con Windows Mobile 5 ?','',0,'AIA=','2ud2od6z',1,0,'',2,0,0),(29714,6633,3,2,0,'87.218.146.173',1176296156,1,0,1,1,1,1,'','','Dixon,\n\n&gt; With ControlFile.CommandBar.Controls\n\nlocal hCommandBar := OleGetProperty( hControlFile, \"CommandBar\" )\nlocal hControls := OleGetProperty( hCommandBar, \"Controls\" )\n\nIts easy <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','wrn4k5ha',1,0,'',2,0,0),(29715,6636,6,644,0,'201.253.133.227',1176300083,1,0,1,1,1,0,'','','Agradezco a todos los que se han interesado en mi problema. Ya lo pude solucionar con la data que me paso Sysctrl2. Muchas gracias por todo','',0,'AIA=','3g5ff8nz',1,0,'',644,0,0),(29716,6651,6,867,0,'148.243.37.162',1176307209,1,0,1,1,1,0,'','Hola Antonio, sobre nueva version Fwh 7.04','Hola Antonio como esta pues, leyendo las nuevas novedades de Fivewin version 7.04 que usted indica, no se encuentra incluido la clase BtnGet como usted dijo que se agregaria, para no usar clases de terceros y que sea nativo de fivewin y mejorada, y por otro lado yo soy mexicana y en cuanto esta en pesos mexicanos para adquirir esta nueva actualizacion, me indica el precio en euros, y si es muy fiable adquirir a travez de internet o pago en efectivo y si aqui en mexico se puede conseguir esta nueva version .\nSu amiga Susy saludos a todos del foro de Fivewin\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'AIA=','2hemk102',1,0,'',867,0,0),(29717,6652,6,785,0,'190.64.193.205',1176308224,1,0,1,1,1,0,'','Antonio con 7.04 funciona TsButton y TwBrowse de HDC ?','Maestro:\n\nAntes de actualizarme podría decirme si estas clases\nfuncionan con este build (7.04) ?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'AIA=','1lxxx49j',1,0,'',785,0,0),(29718,6633,3,15,0,'203.67.108.208',1176309484,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2s6y5bwp]Dixon,\n\n&gt; With ControlFile.CommandBar.Controls\n\nlocal hCommandBar := OleGetProperty( hControlFile, \"CommandBar\" )\nlocal hControls := OleGetProperty( hCommandBar, \"Controls\" )\n\nIts easy <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2s6y5bwp]\n\nHello Antonio,\n\nCould you try to convert these code to FWH?\n[code:2s6y5bwp]Private Sub CommandBars_Execute&#40;ByVal Control As XtremeCommandBars&#46;ICommandBarControl&#41;\n    Select Case Control&#46;Id\n        Case ID_APP_ABOUT&#58;     MsgBox &quot;Version &quot; &amp; App&#46;Major &amp; &quot;&#46;&quot; &amp; App&#46;Minor &amp; &quot;&#46;&quot; &amp; App&#46;Revision\n        Case ID_FILE_NEW&#58;       MsgBox Control&#46;Caption &amp; &quot; Clicked&quot;\n        Case ID_FILE_OPEN&#58;      MsgBox Control&#46;Caption &amp; &quot; Clicked&quot;\n        Case ID_FILE_CLOSE&#58;     MsgBox Control&#46;Caption &amp; &quot; Clicked&quot;\n        Case ID_FILE_SAVE&#58;      MsgBox Control&#46;Caption &amp; &quot; Clicked&quot;\n        \n        Case ID_APP_EXIT&#58;      Unload Me\n        \n        Case ID_VIEW_STATUS_BAR&#58;\n            CommandBars&#46;StatusBar&#46;Visible = Not CommandBars&#46;StatusBar&#46;Visible\n            CommandBars&#46;RecalcLayout\n       \n        Case ID_EDIT_CUT&#58;\n            Clipboard&#46;SetText txtClient&#46;SelText\n            txtClient&#46;SelText = vbNullString\n        Case ID_EDIT_COPY&#58;      Clipboard&#46;SetText txtClient&#46;SelText\n        Case ID_EDIT_PASTE&#58;     txtClient&#46;SelText = Clipboard&#46;GetText\n        Case Else&#58;\n            MsgBox Control&#46;Caption &amp; &quot; clicked&quot;, vbOKOnly, &quot;Button Clicked&quot;\n    End Select\nEnd Sub\n[/code:2s6y5bwp]\n\nThank you.\n\nRegards,\n\nRichard','',0,'gIA=','2s6y5bwp',1,0,'',15,0,0),(29719,6653,3,1011,0,'203.84.188.202',1176310281,1,0,1,1,1,0,'','xplook.rc does not seem to work','Using:\n\nFWH 7.01 + xHarbour Builder Enterprise Jan 2007\nhave added xplook.rc to the .xbp file\nalso the Windowsxp.Manifest file is in the same folder \nwith xplook.rc and .xbp (date October 20, 2003)\n\nNothing happened, my display is still the same?? does not seem to work??\n\nPlease help.\n\nToyet Amores','',0,'gIA=','14l34ww5',1,0,'',1011,0,0),(29720,6592,7,720,0,'80.36.244.134',1176310777,1,0,1,1,1,0,'','','Antonio, en el emulador estas simples lineas no van, la aplicación se queda colgada y tengo que reiniciar manualmente el dispositivo....\n\nfunction Main()\n\nUSE (curdir()+\'\\articulo.dbf\') shared NEW\nmsginfo(articulo-&gt;codart)\nDbCloseAll()\n\nretu nil\n\nSaludos.\n\nElías Torres.','',0,'gIA=','2d62to79',1,0,'',720,0,0),(29721,6653,3,1011,0,'203.84.188.202',1176310932,1,0,1,1,1,0,'','','Sorry guys, I forgot to put this line:\n\n1 24 \"WindowsXp.manifest\" to the RC file.\n\nThanks.\n\nToyet Amores','',0,'gIA=','23l7fjdy',1,0,'',1011,0,0),(29722,6633,3,2,0,'87.218.146.173',1176311044,1,0,1,1,1,1,'','','Richard,\n[code:183fezat]\nfunction CommandBars_Execute&#40; hControl &#41;\n\n   do case\n        case OleGetProperty&#40; hControl, &quot;Id&quot; &#41; == ID_APP_ABOUT\n            &#46;&#46;&#46;\n   endcase\n\nreturn nil\n[/code:183fezat]','',0,'AIA=','183fezat',1,0,'',2,0,0),(29723,6651,6,2,0,'87.218.146.173',1176311356,1,0,1,1,1,1,'','','Susy,\n\n&gt; leyendo las nuevas novedades de Fivewin version 7.04 que usted indica, no se encuentra incluido la clase BtnGet\n\nEstá en nuestra lista de cosas a hacer, pero no dió tiempo para la 7.04\n\n&gt; y por otro lado yo soy mexicana y en cuanto esta en pesos mexicanos para adquirir esta nueva actualizacion, me indica el precio en euros\n\n139,2 euros. Desde yahoo sección finanzas puedes calcularlo en pesos\n\n&gt; y si es muy fiable adquirir a travez de internet o pago en efectivo\n\nEl 98% de nuestros clientes lo hacen por Internet, desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos y es totalmente fiable.  En todos los años que llevamos no ha habido nunca una incidencia.\nPuedes hacer el pago también desde una oficina de \"Western Union\" en caso de no disponer de tarjeta de crédito. O tambien por transferencia bancaria.','',0,'AIA=','j1fdary7',1,0,'',2,0,0),(29724,6652,6,2,0,'87.218.146.173',1176311522,1,0,1,1,1,1,'','','Ruben,\n\nDeben funcionar sin problemas. En todo caso habría que recompilar los PRGs ya que FWH 7.04 usa los builds más recientes de Harbour y xHarbour','',0,'AIA=','3nchuacm',1,0,'',2,0,0),(29725,6651,6,215,0,'189.136.218.2',1176314556,1,0,1,1,1,1,'','en total','Hola Susy,\nEstoy en México y he comprado varias veces la actualización a FWH via internet con tarjeta de crédito.\nEl costo que menciona Antonio en euros y ya pasado a pesos ha sido entre 1,890 y 1,894 pesos por cada actualización.\nDesde luego, lo hago deducible para mis impuestos usando el estado de cuenta de la tarjeta de crédito.\n\nFernando\nMéxico, DF','',0,'AIA=','152h5nbh',1,0,'',215,0,0),(29726,6628,3,2,0,'87.218.146.173',1176315112,1,0,1,1,1,1,'','','Patrick,\n\nIt looks as you have set an autoresponder on your email account.\n\nPlease email us when you turn it off, thanks','',0,'AIA=','34xjnlyo',1,0,'',2,0,0),(29727,6654,3,397,0,'201.95.58.220',1176318892,1,0,1,0,1,1,'','Windows API Viewer','Download and test\n\n<!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/fiveapi.zip\">http://www.shoppmarketing.com/forum/fiveapi.zip</a><!-- m -->','',0,'AIA=','2sc2sy78',1,0,'',397,0,0),(29728,6654,3,2,0,'87.218.146.173',1176324634,1,0,1,1,1,1,'','','Rochinha,\n\nVery good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3qayugp8',1,0,'',2,0,0),(29729,6655,6,109,0,'200.52.197.242',1176326534,1,0,1,1,1,0,'','Ayuda con TcBrowse','Alguien me puede orientar en lo siguiente:\n\n    Tengo un Listbox con una Dbf, pues bien, necesito agregar un registro a esa Dbf, y hago lo siguiente:\n       \n      t:nArea  := Select( t:cAlias )\n       nRecno:=(t:cAlias)-&gt;(RecNo())\n      (t:cAlias)-&gt;(DbGoBottom())\n      (t:cAlias)-&gt;(DbSkip(1))\n      olbx:Refresh()\n\n      Se supone que con esto \"estare\" en el final de la Dbf, y podre capturar el registro que quiero agregar. Pero al Capturar el registro, las celdas que se suponen deberian estar \"VACIAS\", ya que se supone que es un nuevo registro, me \"REPITEN\", los datos del ULTIMO registro\n\n\n       <!-- m --><a class=\"postlink\" href=\"http://getfile.biz/67203\">http://getfile.biz/67203</a><!-- m -->\n      \n       No debo hacer un oLbx:RecAdd(), porque no se si el usuario se arrepentira de dar de alta el registro, y entonces este quedaria grabado en la base de datos.\n\n      \n       por su atencion muchas gracias','',0,'AIA=','1cfcclqt',1,0,'',109,0,0),(29730,6656,6,295,0,'200.89.49.127',1176329333,1,0,1,1,1,1,'','tecla INS y como modificar dbf por programa','Hola Amigos!\n\nDos preguntas:\n\n- como puedo activar la tecla INS por defecto en un prg para que al ingresar el dato no borre el contenido existente? sin que el usuario tenga que activarla antes de ingresar.\n \n- Como modificar una DBF por programa para adicionar un campo y que funcion me permite verificar si el campo existe?\n\nde antemano muchas gracias por sus comentarios\n\nun xhabrazo\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','176js044',1,0,'',295,0,0),(29731,6633,3,15,0,'203.67.108.208',1176329870,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1qvzcr68]Richard,\n[code:1qvzcr68]\nfunction CommandBars_Execute&#40; hControl &#41;\n\n   do case\n        case OleGetProperty&#40; hControl, &quot;Id&quot; &#41; == ID_APP_ABOUT\n            &#46;&#46;&#46;\n   endcase\n\nreturn nil\n[/code:1qvzcr68][/quote:1qvzcr68]\n\nHello Antonio,\n\nHow to put this function when we clicked?\n[code:1qvzcr68]\nlocal hControls &#58;= OleGetProperty&#40; hRibbonBar, &quot;Controls&quot; &#41; \nlocal hControlFile &#58;= OleInvoke&#40; hControls, &quot;Add&quot;, xtpControlPopup, -1, &quot;&amp;File&quot;, 1&#41;\n[/code:1qvzcr68]\n\nBut I don\'t understand, how to Execute when I clicked someone menuitem or ToolBar\'s button? \n\nRegards,\n\nRichard','',0,'gIA=','1qvzcr68',1,0,'',15,0,0),(29732,6656,6,110,0,'165.98.223.31',1176331303,1,0,1,1,1,1,'','','un poco de ayuda\n\ndonde esta ????? lo haces tu, ya que voy saliendo y no me dio tiempo finalizarlos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[code:cbvss6bv]\nFUNCTION FieldExist&#40;cFieldName&#41;\n LOCAL aFields&#91;FCOUNT&#40;&#41;&#93;\n\n afields&#40;aFields&#41;\n\n FOR x&#58;=1 TO len&#40;aFields&#41;\n  IF aFields&#91;x&#93; = cFieldName\n   RETURN &#46;t&#46;\n  ENDIF\n NEXT\n\nRETURN &#46;f&#46;\n[/code:cbvss6bv]\n\n[code:cbvss6bv]\nFUNCTION InsertField&#40;aField&#41;\n LOCAL aStruct&#58;=dbstruct&#40;&#41;\n LOCAL cAlias  &#58;= alias&#40;&#41;\n \n //agrega al arreglo con la estructura el nuevo campo\n aadd&#40;aStruct,aField&#41;\n\n //crea una tabla temporal\n dbcreate&#40;&quot;_TEMP_&quot;,aStruct&#41;\n \n //copia todos los registros de la tabla actual a la tabla nueva\n GO TOP\n COPY TO _TEMP_\n\n //cierra tabla actual\n CLOSE TABLE\n\n //elimina tabla actual\n ??????\n\n //renombra la tabla nueva con el nombre de la tabla anterior\n ?????\n\n //abre tabla nueva con el alias anterior\n ?????\n \nRETURN NIL\n[/code:cbvss6bv]\n\n[code:cbvss6bv]\n &#46;&#46;&#46;\n //verifica si existe el campo ENERO07 en la tabla TEMP\n IF !TEMP-&gt;&#40;FieldExist&#40;&quot;ENERO07&quot;&#41;&#41;\n\n   //altera la tabla agregando el campo\n   aNewField &#58;= &#123;&quot;ENERO07&quot;,&quot;N&quot;,09,02&#125;\n   TEMP-&gt;&#40;InsertField&#40;aField&#41;&#41;\n\n ENDIF\n[/code:cbvss6bv]','',0,'AIA=','cbvss6bv',1,0,'',110,0,0),(29733,6381,6,215,0,'189.136.218.2',1176331461,1,0,1,1,1,1,'','Por si no','Hola Julio,\nPor si no lo has resuelto.\nUna vez cargada la imagen puedes obtenarlas asi.\n\n  ?oImage:nWidth(), oImage:nHeight()\n\nAlguna vez estuviste aquí en México, de eso ya varios años. Fué en una reunión de programadores.\n\nFernando Leal\nMéxico, DF','',0,'AIA=','355jzj15',1,0,'',215,0,0),(29734,2174,3,49,0,'62.13.172.67',1176331643,1,0,1,1,1,1,'','','please  there is many erors \nit not found lBebas\n\ncan you write a  sample for it ?\n\n\n[code:19k4u7dr]\nApplication\n===========\n   Path and name&#58; C&#58;\\work\\errori\\antonio\\bu1&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,211,392 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 12/04/2007, 00&#58;48&#58;36\n   Error description&#58; Error BASE/1066  Argument error&#58; conditional\n   Args&#58;\n     &#91;   1&#93; = U   \n\nStack Calls\n===========\n   Called from&#58;  =&gt; CEKWINDOWS&#40;84&#41;\n   Called from&#58; bu1&#46;prg =&gt; &#40;b&#41;OKE&#40;53&#41;\n   Called from&#58; TIMER&#46;PRG =&gt; TIMEREVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; &#40;b&#41;TWINDOW&#58;TWINDOW&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;TIMER&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; bu1&#46;prg =&gt; OKE&#40;65&#41;\n   Called from&#58; bu1&#46;prg =&gt; MAIN&#40;27&#41;\n[/code:19k4u7dr]','',0,'AIA=','19k4u7dr',1,0,'',49,0,0),(29735,2174,3,49,0,'62.13.172.67',1176332105,1,0,1,1,1,1,'','','where I can found TTrayIcon() class ?','',0,'AIA=','1x71yfsi',1,0,'',49,0,0),(29736,6657,6,436,0,'201.253.26.241',1176332875,1,0,1,1,1,0,'','BUTTONBMP y Texto del boton','Estoy pasando mis botones a esta clase y queda muy bien además que toma los themes de XP.\nEl problema es que el texto siempre sale centrado, y lo que se corre de un lado a otro con la clausula TEXTRIGHT (por ej) es el bitmap.\nHay alguna solución como para que el texto lo ponga a un costado del bitmap?\nGracias','',0,'AIA=','22iikuu9',1,0,'',436,0,0),(29737,6642,20,49,0,'62.13.172.67',1176333503,1,0,1,1,1,1,'','','è solo che io con wbrowse premendo f5 selezionavo un record ed inserivo nel browse un bmp e qui niente di nuovo \n\n\n\nquesta funziona inseriva il bmp nel browse ( cosa che in xbrowse non funziona)\ncBmp,cCan sono variabili per caricare i resource \n\n cBmp:=LoadBitMap(GetResources(),\"C_Pal\")\n cCan:=LoadBitMap(GetResources(),\"C_Roj\")\n\n[code:2w5houe4]\n STAT FUNC Ds_Mar&#40;cBmp,cCan&#41;        // Marca\n   LOCAL cRet&#58;=&quot;&quot;\n   cRet&#58;=IF&#40;&#40;oDCli&#41;-&gt;Status=&quot;B&quot;,cCan,cRet&#41;\n   cRet&#58;=IF&#40;AScan&#40;oT&#58;aSel,&#40;oDCli&#41;-&gt;NumCli&#41;&lt;&gt;0,cBmp,cRet&#41;\nRETURN &#40;cRet&#41;\n\n[/code:2w5houe4]\n\n\nquando premevo f5 chiamavo questa funzione :\n\n[code:2w5houe4]\nSTAT FUNC Seleziona&#40;&#41;     // Seleziona registro\n   LOCAL x&#58;=AScan&#40;oT&#58;aSel,&#40;oDCli&#41;-&gt;NumCli&#41;\n   IF x&lt;&gt;0\n      ADel&#40;oT&#58;aSel,x&#41;\n      ASize&#40;oT&#58;aSel,Len&#40;oT&#58;aSel&#41;-1&#41;\n    ELSE\n      AAdd&#40;oT&#58;aSel,&#40;oDCli&#41;-&gt;NumCli&#41;\n   ENDIF\n   oApp&#40;&#41;&#58;oGrid&#58;SetFocus&#40;&#41;\nRETURN &#40;NIL&#41;\n\n[/code:2w5houe4]\n\ne poi nella stampa  usavo la variabili ot:asel per esempio\n\n[code:2w5houe4]\n\n CursorWait&#40;&#41;\n            &#40;oDCli&#41;-&gt;&#40;DbGoTop&#40;&#41;&#41;\n            DO WHILE !&#40;oDCli&#41;-&gt;&#40;EoF&#40;&#41;&#41;\n               IF &#40;nOpt=1 &#46;AND&#46; AScan&#40;oT&#58;aSel,&#40;oDCli&#41;-&gt;NumCli&#41;&lt;&gt;0&#41; &#46;OR&#46; ;\n                  &#40;nOpt=2 &#46;AND&#46; &#40;oDCli&#41;-&gt;TipCli=cTip&#41;\n                  oPrn&#58;CmSay&#40;nRow, 2&#46;0,&#40;oDCli&#41;-&gt;RazSoc,oFn1, 8&#46;7&#41;\n                  oPrn&#58;CmSay&#40;nRow,11&#46;0,&#40;oDCli&#41;-&gt;NumCli,oFn1,,,,2&#41;\n                  oPrn&#58;CmSay&#40;nRow,12&#46;0,&#40;oDCli&#41;-&gt;EncCom,oFn1&#41;\n                  oPrn&#58;CmSay&#40;nRow,17&#46;5,&#40;oDCli&#41;-&gt;TelFi1,oFn1&#41;\n                  nCli++\n                  nRow+=0&#46;4\n&#46;&#46;&#46;&#46;\n\n[/code:2w5houe4]\n\n\nnon so se hai capito ...\nse uso ogrid:aselected dovrebbe funzionare ma in realtà no','',0,'AIA=','2w5houe4',1,0,'',49,0,0),(29738,6658,3,49,0,'62.13.172.67',1176334042,1,0,1,1,1,1,'','where is Santiago Perez ??','Santiago can you write to private email please !!!','',0,'AIA=','b4ubtw62',1,0,'',49,0,0),(29739,6656,6,295,0,'201.246.146.225',1176334045,1,0,1,1,1,1,'','','gracias mil eduardo!!\n\nlo voy a probar\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','2u33ov3y',1,0,'',295,0,0),(29740,6592,7,2,0,'87.218.146.173',1176334578,1,0,1,1,1,1,'','','Elías,\n\nEste ejemplo funciona correctamente en el emulador de WM2005 sobre XP SP2 y la DBF se abre sin ninguna demora:\n[code:38u93608]\nfunction Main&#40;&#41;\n\n   USE &#40;curdir&#40;&#41;+\'\\customer&#46;dbf\'&#41; shared NEW \n   msginfo&#40;Alias&#40;&#41;&#41; \n   DbCloseAll&#40;&#41;\n\nreturn nil\n[/code:38u93608]\n[url=http&#58;//imageshack&#46;us:38u93608][img:38u93608]http&#58;//img96&#46;imageshack&#46;us/img96/2272/sharedjs3&#46;png[/img:38u93608][/url:38u93608]\nMira la versión del emulador:\n[url=http&#58;//imageshack&#46;us:38u93608][img:38u93608]http&#58;//img359&#46;imageshack&#46;us/img359/1599/shared2np3&#46;png[/img:38u93608][/url:38u93608]','',0,'GIA=','38u93608',1,0,'',2,0,0),(29741,6650,2,496,0,'200.107.36.176',1176342407,1,0,1,1,1,0,'','','Hola Daniel\n\nPara cada página debe haber un:\n\nPAGE\n...\nENDPAGE\n\nEs decir que tienes que controlar el número de líneas que se imprime por página. Al cumplirse el número de líneas deberías hacer un ENDPAGE, y para hacer una nueva página hacer el PAGE.\n\nEspero me comprendas, suerte.\n\nMarcelo Jingo','',0,'GIA=','8g8devr4',1,0,'',496,0,0),(29742,6659,6,78,0,'190.40.238.198',1176346429,1,0,1,1,1,0,'','Off Topic','Una ayuda please...  resula que una laptop que tengo, simplemente se malogro, asi que recupere algunos archivos de su disco duro instalandolo en otra pc, pero no puedo entrar a una carpeta, especificamente a \"Document and Setings/Wilfredo\" ,  Windows ,me dice que la capreta esta protegida y que no puede accesar a la misma... alguna solucion???\nPD. instale el mismo usuairo en la pc host, i no funciona..\n\nSalu2\nWilli','',0,'GIA=','142qyvdo',1,0,'',78,0,0),(29743,6485,6,95,0,'189.155.178.77',1176351908,1,0,1,1,1,0,'','','Estimado Antonio\n\n1.- Alguna utileria para producir pdf. desde un set print to \n\n2.- alguna funcio que presente una ventala modal y se quite a cierto tiempo ( talves 2 seg )\n\nSaludos\nOsvaldo Ramirez','',0,'GIA=','148rqra7',1,0,'',95,0,0),(29744,6633,3,282,0,'210.72.235.124',1176354111,1,0,1,1,1,0,'','','Antonio \n\nIt\'s OK now , Thanks\n\nBest Regards\n\nDixon Chu','',0,'GIA=','14w190cx',1,0,'',282,0,0),(29745,6613,1,173,0,'203.113.39.9',1176355414,1,0,1,1,1,0,'','again .!','Thank you very much, By the way if Skip from Get to other Get, How I do ?\n\nBest Regrad\n\nPeter','',0,'GIA=','3cl26zpz',1,0,'',173,0,0),(29746,6659,6,2,0,'87.218.146.173',1176356461,1,0,1,1,1,1,'','','Willi,\n\nUsa un Windows tipo \"live CD\" para arrancar desde el CD y acceder al disco duro.\n\nBusca en google por: windows live cd','',0,'GIA=','1rle6u4j',1,0,'',2,0,0),(29747,6485,6,2,0,'87.218.146.173',1176356701,1,0,1,1,1,1,'','','Osvaldo,\n\n&gt; 1.- Alguna utileria para producir pdf. desde un set print to\n\nAún estamos trabajando en la impresión. No sabemos que utilidad puedas usar.\n\n&gt; 2.- alguna funcio que presente una ventala modal y se quite a cierto tiempo ( talves 2 seg ) \n\nUsa un timer que cuente tiempo y al cabo de un cierto intervalo que haga un oDlg:End()','',0,'GIA=','3ke9ci97',1,0,'',2,0,0),(29748,6657,6,2,0,'87.218.146.173',1176356863,1,0,1,1,1,1,'','','Puedes usar una de estas claúsulas:\n\nTEXTTOP | TEXTBOTTOM | TEXTLEFT | TEXTRIGHT\n\nal crearlo bien con @ ó con REDEFINE','',0,'GIA=','xx28btzj',1,0,'',2,0,0),(29749,6613,1,2,0,'87.218.146.173',1176357003,1,0,1,1,1,1,'','','If you skip from one GET to another control, then the GET VALID will be fired. It has to return .T. to allow the new control to get focus.','',0,'GIA=','1v1pcj4l',1,0,'',2,0,0),(29750,6659,6,177,0,'82.130.229.92',1176357270,1,0,1,1,1,0,'','','Willi,\n\ntambién puedes utilizar un Knoppix <!-- m --><a class=\"postlink\" href=\"http://www.knoppix-es.org/\">http://www.knoppix-es.org/</a><!-- m --> para recuperar esos ficheros.\n\nSaludos,\n\nFélix','',0,'GIA=','25jv1ly7',1,0,'',177,0,0),(29751,6649,7,2,0,'87.218.146.173',1176357502,1,0,1,1,1,1,'','','Elías,\n\nEstos son ejemplos de FWH:\nsockcli.prg\n[code:23s0hnqj]\n// Socket server connection sample\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd, oSocket\n\nfunction Main&#40;&#41;\n\n   local oBar\n\n   DEFINE WINDOW oWnd TITLE &quot;Client socket&quot;\n\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n\n   DEFINE BUTTON OF oBar ACTION Client&#40;&#41; TOOLTIP &quot;Connect&quot;\n\n   DEFINE BUTTON OF oBar ;\n      ACTION oSocket&#58;SendData&#40; &quot;MSG This is a test&quot; &#41; ;\n      TOOLTIP &quot;Send data&quot;\n\n   DEFINE BUTTON OF oBar ;\n      ACTION SendFile&#40;&#41; TOOLTIP &quot;Send file&quot;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction Client&#40;&#41;\n\n   oSocket = TSocket&#40;&#41;&#58;New&#40; 2000 &#41;\n\n   oSocket&#58;bRead    = &#123; | oSocket | MsgInfo&#40; oSocket&#58;GetData&#40;&#41; &#41; &#125;\n\n   // Never use a MsgInfo&#40;&#41; here because it hangs Windows!!!\n\n   oSocket&#58;bConnect = &#123; || oWnd&#58;SetText&#40; &quot;Connected!&quot; &#41; &#125;\n\n   oSocket&#58;bClose   = &#123; || MsgInfo&#40; &quot;Server has closed!&quot; &#41; &#125;\n\n   oSocket&#58;Connect&#40; &quot;127&#46;0&#46;0&#46;1&quot; &#41; // use the server IP address here\n\nreturn nil\n\nfunction SendFile&#40;&#41;\n\n   local cFileName &#58;= cGetFile&#40; &quot;*&#46;*&quot;, &quot;Select a file to send by Internet&quot; &#41;\n\n   if ! Empty&#40; cFileName &#41; &#46;and&#46; File&#40; cFileName &#41;\n\n      oSocket&#58;SendData&#40; &quot;SENDFILE &quot; + cFileName&#40; cFileName &#41; &#41;\n      oSocket&#58;SendFile&#40; cFileName &#41;\n      oSocket&#58;End&#40;&#41;\n      MsgInfo&#40; &quot;File sent&quot; &#41;\n   endif\n\nreturn nil\n[/code:23s0hnqj]\n\nsockserv.prg\n[code:23s0hnqj]\n// Socket server connection sample\n\n\n\n#include &quot;FiveWin&#46;ch&quot;\n\n\n\n#define ST_COMMAND  1\n\n#define ST_SENDFILE 2\n\n#define FILE_BLOCK 8000\n\n\n\nstatic oWnd, oSocket, oClient\n\n\n\n//------------------------------------------------------------------------//\n\n\n\nfunction Main&#40;&#41;\n\n\n\n   local oBar\n\n\n\n   DEFINE WINDOW oWnd TITLE &quot;Server socket&quot;\n\n\n\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n\n\n\n   DEFINE BUTTON OF oBar ACTION Server&#40;&#41; TOOLTIP &quot;Listen&quot;\n\n\n\n   ACTIVATE WINDOW oWnd\n\n\n\nreturn nil\n\n\n\n//------------------------------------------------------------------------//\n\n\n\nfunction Server&#40;&#41;\n\n\n\n   oSocket = TSocket&#40;&#41;&#58;New&#40; 2000 &#41;\n\n\n\n   oSocket&#58;bAccept = &#123; | oSocket | oClient &#58;= TSocket&#40;&#41;&#58;Accept&#40; oSocket&#58;nSocket &#41;,;\n\n                       oClient&#58;Cargo &#58;= ST_COMMAND,;\n\n                       oClient&#58;bRead &#58;= &#123; | oSocket | OnRead&#40; oSocket &#41; &#125;,;\n\n                       oClient&#58;bClose &#58;= &#123; | oSocket | OnClose&#40; oSocket &#41; &#125; &#125;\n\n\n\n   oSocket&#58;Listen&#40;&#41;\n\n\n\nreturn nil\n\n\n\n//------------------------------------------------------------------------//\n\n\n\nfunction OnRead&#40; oSocket &#41;\n\n\n\n   local cData &#58;= oSocket&#58;GetData&#40;&#41;\n\n   local cToken\n\n\n\n   LogFile&#40; &quot;sockserv&#46;txt&quot;, &#123; Len&#40; cData &#41;, cData &#125; &#41;\n\n\n\n   do case\n\n      case oSocket&#58;Cargo == ST_COMMAND\n\n           cToken = StrToken&#40; cData, 1 &#41;\n\n           do case\n\n              case cToken == &quot;SENDFILE&quot;\n\n                   oSocket&#58;Cargo = ST_SENDFILE\n\n                   oSocket&#58;hFile = fcreate&#40; StrToken&#40; cData, 2 &#41; &#41;\n\n\n\n              case cToken == &quot;MSG&quot;\n\n                   MsgInfo&#40; SubStr&#40; cData, 5 &#41; &#41;\n\n           endcase\n\n\n\n      case oSocket&#58;Cargo == ST_SENDFILE\n\n           fwrite&#40; oSocket&#58;hFile, cData, Len&#40; cData &#41; &#41;\n\n           LogFile&#40; &quot;sockserv&#46;txt&quot;, &#123; &quot;writting&#46;&#46;&#46;&quot; &#125; &#41;\n\n\n\n           if Len&#40; cData &#41; &lt; FILE_BLOCK\n\n              // fclose&#40; oSocket&#58;hFile &#41;\n\n              // MsgInfo&#40; Len&#40; cData &#41; &#41;\n\n              // oSocket&#58;Cargo = ST_COMMAND\n\n           endif\n\n   endcase\n\n\n\nreturn nil\n\n\n\n//------------------------------------------------------------------------//\n\n\n\nfunction OnClose&#40; oSocket &#41;\n\n\n\n   MsgInfo&#40; &quot;Client has closed!&quot; &#41;\n\n\n\n   do case\n\n      case oSocket&#58;Cargo == ST_SENDFILE\n\n           fclose&#40; oSocket&#58;hFile &#41;\n\n   endcase\n\n\n\n   oSocket&#58;End&#40;&#41;\n\n\n\nreturn nil\n\n\n\n//------------------------------------------------------------------------//\n[/code:23s0hnqj]','',0,'AIA=','23s0hnqj',1,0,'',2,0,0),(29752,6655,6,2,0,'87.218.146.173',1176357915,1,0,1,1,1,1,'','','Ricardo,\n\nO bien usas una DBF temporal en donde creas un nuevo registro, aunque el usuario luego se arrepienta de crearlo. O bien usas la base de datos original y añades un nuevo registro que luego añades, ó lo eliminas ó lo dejas vacio para la próxima vez.\n\nOtra solución es mostrar un caja de diálogo en donde capturas los datos y si el usuario pulsa \"OK\" entonces añades el registro y copias los datos a los campos.','',0,'AIA=','czaoy3lb',1,0,'',2,0,0),(29753,6638,6,2,0,'87.218.146.173',1176358066,1,0,1,1,1,1,'','','Vista todavia es una calamidad en muchos aspectos. No es por echarle la culpa, pero puede volverte loco...\n\nSi tienes algún ejemplo que reproduzca el error, publícalo e intentaremos reproducirlo en Vista','',0,'AIA=','2k8tp8uh',1,0,'',2,0,0),(29754,6632,3,2,0,'87.218.146.173',1176358284,1,0,1,1,1,1,'','','Bert,\n\nCurrently is supported for dialogboxes only','',0,'AIA=','3t6jh5gu',1,0,'',2,0,0),(29755,6642,20,6,0,'82.61.144.234',1176361756,1,0,1,1,1,1,'','','Con TXBrowse la gestione della selezione è automatica.\n\nEMG','',0,'AIA=','1luuu1b8',1,0,'',6,0,0),(29756,6660,6,54,0,'189.132.92.10',1176365543,1,0,1,1,1,1,'','PCOUNT()','Alguien podria auxiliar para saber si FWH reescribe esta función o es la propia de xHarbour, pues tengo problemas con la ultima versión del CVS hoy 12 abril, 03.12 am hora de méxico.\n\nsaludos y espero ayuda\n\ngracias','',0,'AIA=','27hiqk6y',1,0,'',54,0,0),(29759,6660,6,2,0,'87.218.146.173',1176370277,1,0,1,1,1,1,'','','William,\n\nEs la propia de xHarbour. Que problema te da ?','',0,'GA==','2zhlmdi2',1,0,'',2,0,0),(29760,6661,20,1019,0,'217.222.223.35',1176371291,1,0,1,1,1,0,'','nserialhd()','Bentrovati <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .........è un sacco di tempo che non ci sentiamo.\nHo la necessità di eseguire un applicativo da hd esterno e vorrei poter controllare che sia sempre quello dov\'è installato il programma.\nHo provato con la funzione nserialhd(curdrive()) ma ricevo sempre l\'SN del disco \"C\".','',0,'GA==','2v3g4zp0',1,0,'',1019,0,0),(29761,6661,20,6,0,'82.61.144.234',1176373328,1,0,1,1,1,1,'','Re: nserialhd()','Prova con\n\n[code:f488emz5]nserialhd&#40;curdrive&#40;&#41;+&quot;&#58;&quot;&#41;[/code:f488emz5]\n\nEMG','',0,'AIA=','f488emz5',1,0,'',6,0,0),(29762,6661,20,1019,0,'217.222.223.35',1176374007,1,0,1,1,1,0,'','','Ciao Enrico,\ngrazie..............ti farò sapere.\nGiovanni','',0,'AIA=','cliq8ihq',1,0,'',1019,0,0),(29763,6660,6,54,0,'189.132.92.10',1176376492,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2iwx9tbf]William,\n\nEs la propia de xHarbour. Que problema te da ?[/quote:2iwx9tbf]\n\nBueno, propiamente con FWH no pasa nada. Sino en la clase vtaskbar de paco, en la funcion FillSolidRect, linea\n\n    if( hb_pcount()  &gt; 3 )\n\ncompilando coon la versión actual del CVS manda un GPF\n\nPor eso la pregunta.\n\nsaludos\n\nPD. de hecho en todas las funciones en C con la funcion hb_pcount() manda el GPF.\n\nsaludos y gracias por tu tiempo','',0,'gA==','2iwx9tbf',1,0,'',54,0,0),(29764,6660,6,217,0,'200.159.120.34',1176377541,1,0,1,1,1,0,'','','William,\n\n&gt;&gt; if( hb_pcount()  &gt; 3 )\n\nIntenta cambiar por:\n\nif( pcount() &gt; 3)\n\nSaludos!\nMaurilio','',0,'gA==','1z28qf4l',1,0,'',217,0,0),(29765,6662,1,979,0,'195.53.199.6',1176379164,1,0,1,1,1,0,'','Desplazamiento barra vertical en listbox.','Hola,\n\nEn un Listbox de un DBF la barra vertical no se ajusta al movimiento de registros del la DBF.\n\n¿Como puede ajustarse?.\n\nGracias,','',0,'gA==','2o6aknwa',1,0,'',979,0,0),(29766,6663,2,979,0,'195.53.199.6',1176379469,1,0,1,1,1,0,'','Desplazamiento barra vertical en Listbox.','Hola, \n\nEn un Listbox de un DBF la barra vertical no se ajusta al movimiento de registros del la DBF. \n\n¿Como puede ajustarse?. \n\nGracias,','',0,'gA==','1oa1p678',1,0,'',979,0,0),(29767,6664,1,161,0,'213.119.247.23',1176385203,1,0,1,1,1,0,'','Search in PRG-files','Hello,\n\nI have a problem that is not really a FW one but related to PRG-files.\nIf I want to search in Windows XP to files that containing a text, windows can’t find the string in PRG-files.\nIf I look for example to all the files containing the string ‘Function’, windows only find it files that doesn’t have extension PRG. If I rename the program-file to ex. .TXT, the sting is found.\nFirst I was thinking that there was a problem with my PC, but on my new one I have the same problem. Does anyone have the same problem?\n\nIt was working in Windows 2000, but since I use XP-Pro, it doesn’t work anymore.\n\nThanks,\nMarc','',0,'gA==','3pi9jk32',1,0,'',161,0,0),(29768,6664,1,6,0,'82.61.144.234',1176387195,1,0,1,1,1,1,'','Re: Search in PRG-files','Try to register PRG extension (ie. double click on a PRG file from Explorer then select a program to always open it).\n\nOr try my FileFind:\n\n[url:1wyla1hm]http&#58;//www&#46;emagsoftware&#46;it/Ff101&#46;zip[/url:1wyla1hm]\n\nEMG','',0,'EA==','1wyla1hm',1,0,'',6,0,0),(29769,6657,6,436,0,'190.31.192.143',1176389216,1,0,1,1,1,0,'','','Si, Antonio uso la cláusula TEXTRIGHT y si bien me pone el bitmap a la izquierda del botón, el texto sigue saliendo centrado y muchas veces queda bajo la imagen (bmp).\nMi FWh es de 03/2006 puede ser que se haya modificado esta clase?\n\nGracias','',0,'EA==','dyc68hhn',1,0,'',436,0,0),(29770,6638,6,436,0,'190.31.192.143',1176389536,1,0,1,1,1,0,'','','Gracias Antonio\nOcurre que yo no tengo Vista instalado y esto ha ocurrido en el equipo del cliente. Por ahora no se me han quejado más, pero creo recordar que también con XP tuvimos algunos problemas en demoras con la impresión y cosas parecidas. Esto supuestamente se solucionaba (si no mal recuerdo) con tocar algún parámetro de TimeOut del Registro de win y/o algunos otros tips que habían por allí.\nSi alguno recuerda algo...','',0,'EA==','93lrt92w',1,0,'',436,0,0),(29771,6637,2,348,0,'190.40.70.5',1176392440,1,0,1,1,1,0,'','','Gracias por la respuesta Rene\n\nPor lo que entiendo por ello,  deberia pasar a usar Harbour con FWH para poder usar esta alternativa, Bueno ...  y  ahora que requeriminetos de software necesitare ??? , Que clases o librerias requiero para ello???  ,, pues la verdad que he estado metido unicamente en Clipper , FW Blinker y WorkShop , y mi exxperiencia con el Harbour y sus anexos ... es totalmente nula \n\nte agradecere me des Luz al respecto \n\nLubin\n\n\n[quote=&quot;RF&quot;:1vsngweq]Se puede utilizar el ODBC, pero es demasiado complicado a 16 bits, aunque FW tiene una clase que es el RDDODBC que trata de simular el manejo de una tabla SQL como si fuese un DBF, sin embargo no es optimo\n\nLa mejor opcion es ADO a 32 bits, funciona estupendamente bien.\n\nSaludos\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->[/quote:1vsngweq]','',0,'gA==','1vsngweq',1,0,'',348,0,0),(29772,6638,6,456,0,'217.127.39.57',1176393584,1,0,1,1,1,1,'','','Esta es la solucion para windows XP\nBusca LPT_timeout en el registro(HKEY_LOCAL_MACHINE,SYSTEM,ControlSet001,control,WOW). Baja el valor y ponlo a 1 o 2.','',0,'gA==','7p0xjhhr',1,0,'',456,0,0),(29773,6663,2,138,0,'189.141.67.139',1176393770,1,0,1,1,1,1,'','','oBrw:bLogicLen := {|| OrdKeyCount() }','',0,'gA==','3es6mecg',1,0,'',138,0,0),(29774,4867,6,865,0,'201.163.209.13',1176394731,1,0,1,1,1,0,'','FWH-autocad interaction','Hello Silvio or Arturo Tamayo\nThe problem was solved using VBA for autocad, however  i am very interested with tdraw clase (Arturo Tamayo) and Open Design Alliance\nlibraries, my goal is try to do something very similar to Plantwave software (<!-- w --><a class=\"postlink\" href=\"http://www.9sq.co.kr\">www.9sq.co.kr</a><!-- w -->) ,  is possible some support or advice,share from you ?\n\n\nSaludos\nGraciano Tecuanhuey\n<!-- e --><a href=\"mailto:gts@cybergrates.com\">gts@cybergrates.com</a><!-- e -->','',0,'gA==','dm6abuyc',1,0,'',865,0,0),(29775,6659,6,110,0,'148.168.40.4',1176397117,1,0,1,1,1,1,'','','Exactamente \nyo lo hice hace tiempos con Knoppix, por que con windows no podia ya que el directorio del usuario estaba protegido por privacidad.\n\nsalu2\nCarlos Vargas','',0,'gA==','1frlpm0j',1,0,'',110,0,0),(29776,6664,1,303,0,'72.199.41.171',1176397386,1,0,1,1,1,0,'','','Marc,\n\nAs Enrico mentioned, PRG files are not registered as searchable text files, so you have to do it manually. However, this does not solve the problem that Windows search (except for Vista), does not maintain a search index so each time you start a search the entire disk must be searched while you wait.\n\nI have been using an indexed search engine for a couple of years now. It runs when the CPU is idle and maintains an index of all searchable files (including PDFs, emails, addresses, music, photos, etc.). So, when you do a search it finds the files as fast as you can type the search word. You can then list the files by folder or date. Nice.\n\nI highly recommend this program. And it is free!\n\nCopernic Desktop Search 2.0\nwwww.copernic.com\n\nRegards,\nJames','',0,'gA==','1mb9t5x1',1,0,'',303,0,0),(29777,2174,3,130,0,'84.138.48.96',1176397898,1,0,1,1,1,0,'','','here is the class\n\n[code:1uvuc21o]#INCLUDE &quot;Fivewin&#46;CH&quot;\n#INCLUDE &quot;Struct&#46;CH&quot;\n\n#define NIM_ADD             0\n#define NIM_MODIFY          1\n#define NIM_DELETE          2\n#define NIF_MESSAGE         1\n#define NIF_ICON            2\n#define NIF_TIP             4\n#define WM_SYSCOMMAND     274    // 0x112\n#define WM_LBUTTONDBLCLK  515    // 0x203\n\nCLASS TTrayIcon FROM TCONTROL\n   DATA oTray\n   DATA oWnd\n   DATA cIcon\n   DATA nIcon\n   DATA hIcon\n   DATA cCaption\n   DATA bLClicked\n   DATA bRClicked\n   DATA bMMoved\n   DATA bLDblClick\n   DATA bLButtonUp\n   DATA bRButtonUp\n   METHOD New&#40;oWnd,cICON,nICON,cTip,lON,uLClick,uRClick,uMMoved,uLDblClick,uLButtonUp,uRButtonUp&#41; CONSTRUCTOR\n   METHOD End&#40;&#41;\n   METHOD HIDE&#40;&#41; INLINE Shell_NotifyIconA&#40; NIM_DELETE , &#58;&#58;oTRAY&#58;cBuffer &#41; , &#58;&#58;oTRAY&#58;nON &#58;= 0\n   METHOD SHOW&#40;&#41; INLINE Shell_NotifyIconA&#40; NIM_ADD    , &#58;&#58;oTRAY&#58;cBuffer &#41; , &#58;&#58;oTRAY&#58;nON &#58;= 1\n   METHOD Refresh&#40; cIcon , nICON , cTip &#41;\n   METHOD SetIcon&#40; cICON , nICON &#41; INLINE &#40; &#58;&#58;Refresh&#40; cIcon , nICON &#41; , ;\n					    &#58;&#58;Refresh&#40; cIcon , nICON &#41; , ;\n					    IF&#40; &#58;&#58;oTRAY&#58;nON = 1 , EVAL&#40; &#123; |X| X&#58;HIDE&#40;&#41; , X&#58;SHOW&#40;&#41; &#125; , SELF &#41; ,  &#41; &#41;\n   METHOD SetText&#40; cTITLE &#41;        INLINE &#40; &#58;&#58;Refresh&#40; , , cTitle &#41; , ;\n					    IF&#40; &#58;&#58;oTRAY&#58;nON = 1 , EVAL&#40; &#123; |X| X&#58;HIDE&#40;&#41; , X&#58;SHOW&#40;&#41; &#125; , SELF &#41; ,  &#41; &#41;\n   METHOD Command&#40; nWPARAM , nLPARAM &#41;\nENDCLASS\n\nMETHOD Command&#40; nWPARAM , nLPARAM &#41; CLASS TTrayIcon\n   LOCAL A &#58;= GetCursorPos&#40;&#41;\n   LOCAL POINTAPI\n   STRUCT POINTAPI\n      MEMBER X AS LONG\n      MEMBER Y AS LONG\n   ENDSTRUCT\n   POINTAPI&#58;X &#58;= A&#91;1&#93;\n   POINTAPI&#58;Y &#58;= A&#91;2&#93;\n   ScreenToClient&#40; &#58;&#58;oWnd&#58;hWnd, A &#41;\n//   A&#91;1&#93; &#58;= POINTAPI&#58;X\n//   A&#91;2&#93; &#58;= POINTAPI&#58;Y\n   DO CASE\n      CASE nLParam == WM_LBUTTONDOWN &#46;AND&#46; VALTYPE&#40; &#58;&#58;bLClicked &#41; == &quot;B&quot;\n	   RETURN EVAL&#40;&#58;&#58;bLClicked,a&#91;1&#93;,a&#91;2&#93;&#41;\n      CASE nLParam == WM_RBUTTONDOWN &#46;AND&#46; VALTYPE&#40; &#58;&#58;bRClicked &#41; == &quot;B&quot;\n	   RETURN EVAL&#40;&#58;&#58;bRClicked,A&#91;1&#93;,A&#91;2&#93;&#41;\n      CASE nLParam == WM_MOUSEMOVE &#46;AND&#46; VALTYPE&#40; &#58;&#58;bMMoved &#41; == &quot;B&quot;\n	   RETURN EVAL&#40;&#58;&#58;bMMoved,a&#91;1&#93;,a&#91;2&#93;&#41;\n      CASE nLParam == WM_LBUTTONDBLCLK &#46;AND&#46; VALTYPE&#40; &#58;&#58;bLDblClick &#41; == &quot;B&quot;\n	   RETURN EVAL&#40;&#58;&#58;bLDblClick,a&#91;1&#93;,a&#91;2&#93;&#41;\n      CASE nLParam == WM_LBUTTONUP &#46;AND&#46; VALTYPE&#40; &#58;&#58;bLButtonUp &#41; == &quot;B&quot;\n	   RETURN EVAL&#40;&#58;&#58;bLButtonUp,a&#91;1&#93;,a&#91;2&#93;&#41;\n      CASE nLParam == WM_RBUTTONUP &#46;AND&#46; VALTYPE&#40; &#58;&#58;bRButtonUp &#41; == &quot;B&quot;\n	   RETURN EVAL&#40;&#58;&#58;bRButtonUp,a&#91;1&#93;,a&#91;2&#93;&#41;\n   ENDCASE\nRETURN SUPER&#58;HANDLEEVENT&#40; nWPARAM , nLPARAM &#41;\n\nMETHOD New&#40;oWnd,cICON,nICON,cTip,lON,uLClick,uRClick,uMMoved,uLDblClick,uLButtonUp,uRButtonUp&#41; CLASS TTrayIcon\n   LOCAL c\n   IF oWND = NIL\n      MSGSTOP&#40;&quot;ERROR&#58; You need to specify a main window for tray icon&quot;&#41;\n      RETURN NIL\n   ENDIF\n   DEFAULT cIcon      &#58;= &quot;OASYS&#46;DLL&quot;      ,;\n	   nIcon      &#58;= 1                ,;\n	   cTip       &#58;= oWnd&#58;cCaption    ,;\n	   uLClick    &#58;= oWnd&#58;bLClicked   ,;\n	   uRClick    &#58;= oWnd&#58;bRClicked   ,;\n	   uLDblClick &#58;= oWnd&#58;bLDblClick  ,;\n	   uMMoved    &#58;= oWnd&#58;bMMoved     ,;\n	   uLDblClick &#58;= oWnd&#58;bLDblClick  ,;\n	   uRButtonUp &#58;= oWnd&#58;bRButtonUp  ,;\n	   uLButtonUp &#58;= oWnd&#58;bLButtonUp  ,;\n	   lON        &#58;= &#46;T&#46;\n   &#58;&#58;oWND       = oWND\n   &#58;&#58;bLClicked  = uLClick\n   &#58;&#58;bRClicked  = uRClick\n   &#58;&#58;bMMoved    = uMMoved\n   &#58;&#58;bLDblClick = uLDblClick\n   &#58;&#58;bRButtonUp = uRButtonUp\n   &#58;&#58;bLButtonUp = uLButtonUp\n   &#58;&#58;cICON      = cICON\n   &#58;&#58;nICON      = nICON\n   &#58;&#58;oWnd&#58;bTaskBar = &#123; | nRow , nCol |  &#58;&#58;Command&#40; nRow , nCol &#41;&#125;\n   &#58;&#58;Refresh&#40; cIcon , nICON , cTip &#41;\n   IF&#40; lON , &#58;&#58;SHOW&#40;&#41; , &#41;\nRETURN Self\n\nMETHOD Refresh&#40; cIcon , nICON , cTip &#41; CLASS TTrayIcon\n  LOCAL c\n  LOCAL oTray\n  DEFAULT nICON &#58;= &#58;&#58;nIcon ,;\n	  cICON &#58;= &#58;&#58;cIcon ,;\n	  cTip  &#58;= &#58;&#58;cCaption\n  &#58;&#58;hIcon &#58;= DLL32GetExtractIcon&#40;&#58;&#58;oWnd&#58;hWnd,&#58;&#58;cICON,&#58;&#58;nICON&#41;\n  STRUCT oTray\n     MEMBER nSize      AS LONG\n     MEMBER hWnd       AS LONG\n     MEMBER nId        AS LONG //STRING LEN 4\n     MEMBER nFlags     AS LONG //STRING LEN 4\n     MEMBER nCallMsg   AS LONG //STRING LEN 4\n     MEMBER hIcon      AS LONG\n     MEMBER cToolTip   AS STRING LEN 64 //Len&#40;cTip&#41;+1\n     MEMBER nON        AS LONG\n  ENDSTRUCT\n  c &#58;= oTray&#58;cBuffer\n  oTray&#58;nSize        = oTray&#58;SizeOf&#40;&#41;\n  oTray&#58;hWnd         = &#58;&#58;oWnd&#58;hWnd\n  oTray&#58;nId          = 1\n  oTray&#58;nFlags       = nOr&#40; NIF_ICON, NIF_MESSAGE, NIF_TIP &#41;\n  oTray&#58;nCallMsg     = WM_TASKBAR\n  oTray&#58;hIcon        = &#58;&#58;hIcon\n  oTray&#58;cToolTip     = cTip + CHR&#40;0&#41;\n  c &#58;= oTray&#58;cBuffer\n  oTray&#58;cBuffer &#58;= c\n  oTRAY&#58;nON &#58;= IF&#40; !EMPTY&#40;&#58;&#58;oTRAY&#41; , &#58;&#58;oTRAY&#58;nON , 0 &#41;\n  &#58;&#58;oTray    = oTRAY\n  &#58;&#58;cCaption = cTip\n  &#58;&#58;cICON      = cICON\n  &#58;&#58;nICON      = nICON\n  SYSREFRESH&#40;&#41;\nRETURN NIL\n\nMETHOD End&#40;&#41; CLASS TTrayIcon\n   LOCAL c\n   IF !EMPTY&#40;&#58;&#58;oTray&#41;\n      &#58;&#58;oTray&#58;nFlags &#58;= 0\n      c &#58;= &#58;&#58;oTray&#58;cBuffer\n      Shell_NotifyIconA&#40;NIM_DELETE,@c&#41;\n      &#58;&#58;oTray&#58;cBuffer &#58;= c\n   ENDIF\nRETURN &#46;T&#46;\n\nFUNCTION ClientToScreen&#40;hWnd , aPOS&#41;\n   LOCAL POINTAPI\n   STRUCT POINTAPI\n      MEMBER X AS LONG\n      MEMBER Y AS LONG\n   ENDSTRUCT\n   POINTAPI&#58;Y &#58;= aPOS&#91;1&#93;\n   POINTAPI&#58;X &#58;= aPOS&#91;2&#93;\n   KClientToScreen&#40; hWnd, POINTAPI&#58;cBuffer &#41;\n   aPOS&#91;1&#93; &#58;= POINTAPI&#58;Y\n   aPOS&#91;2&#93; &#58;= POINTAPI&#58;X\nRETURN &#123; POINTAPI&#58;Y , POINTAPI&#58;X &#125;\n\nFUNCTION ScreenToClient&#40;hWnd , aPOS&#41;\n   LOCAL POINTAPI\n   STRUCT POINTAPI\n      MEMBER X AS LONG\n      MEMBER Y AS LONG\n   ENDSTRUCT\n   POINTAPI&#58;X &#58;= aPOS&#91;1&#93;\n   POINTAPI&#58;Y &#58;= aPOS&#91;2&#93;\n   KScreenToClient&#40; hWnd, POINTAPI&#58;cBuffer &#41;\n   aPOS&#91;1&#93; &#58;= POINTAPI&#58;X\n   aPOS&#91;2&#93; &#58;= POINTAPI&#58;Y\nRETURN &#123; POINTAPI&#58;X , POINTAPI&#58;Y &#125;\n\n// Windows API that extracts the icon handle of file\nDLL32 Function DLL32GetExtractIcon&#40;hWnd as LONG, szText as LPSTR, nIconIndex as LONG&#41;;\nAS LONG PASCAL FROM &quot;ExtractIconA&quot; LIB &quot;SHELL32&#46;DLL&quot;\n\n// Windows API that converts Screen pixels to Client pixels\nDLL32 Function KScreenToClient&#40;hWnd as LONG, szText as LPSTR &#41; ;\nAS LONG FROM &quot;ScreenToClient&quot; LIB &quot;user32&#46;dll&quot;\n\n// Windows API that converts Client pixels to Screen pixels\nDLL32 Function KClientToScreen&#40;hWnd as LONG, szText as LPSTR &#41; ;\nAS LONG FROM &quot;ClientToScreen&quot; LIB &quot;user32&#46;dll&quot;\n\n[/code:1uvuc21o]\n\nStefan','',0,'AIA=','1uvuc21o',1,0,'',130,0,0),(29778,6657,6,36,0,'200.113.56.235',1176398369,1,0,1,1,1,0,'','','ivan\n\nPrueba modificar la alineacion del boton en el recurso(pellesC,workshop)\n\nyo he modificado parte de la clase para que salgan los textos\nen la misma posicion \n\n[url:3lcyt3as]http&#58;//img161&#46;imageshack&#46;us/my&#46;php?image=botonbmpyf2&#46;jpg[/url:3lcyt3as]\n[img:3lcyt3as]http&#58;//img161&#46;imageshack&#46;us/my&#46;php?image=botonbmpyf2&#46;jpg[/img:3lcyt3as]\n\n\npodrias modificar la clase button.prg en el metodo\n[code:3lcyt3as]METHOD Initiate&#40; hDlg &#41; CLASS TButton\n   if ! Empty&#40; &#58;&#58;cCaption &#41;\n      SetWindowText&#40; &#58;&#58;hWnd, SPACE&#40;9&#41;+ &#58;&#58;cCaption &#41;\n   endif\n[/code:3lcyt3as]\nademas en tu recurso(pellesc,workshop) debe estar alineacion left el texto\n\nen mi caso yo modifique la clase Tbutton y TButtonBmp este le envia que es de la clase Tbutonbmp\n\nespero que te sirva\n\nSaludos\nPatricio\n\n\npd. Lo ideal seria saber que tipo de boton es, que tipo de alineacion tiene etc, etc.','',0,'GIA=','3lcyt3as',1,0,'',36,0,0),(29779,6664,1,161,0,'81.164.212.146',1176398851,1,0,1,1,1,0,'','','Enrico,\n\nThe PRG-files where already registered, but it didn\'t work. So I registered it again without result. The stanges thing is that he find it in .C files, and those files aren\'t registered.\n\nHow can I search in files with your FileFind-utility?\n\nJames,\nThanks for the tip. I will try it.\n\nBest regards?\nMarc','',0,'GIA=','3oivcrnv',1,0,'',161,0,0),(29780,3762,3,267,0,'200.208.238.2',1176399432,1,0,1,1,1,1,'','','Antonio,\n\nHow I make in sockserv.prg to return information to sockcli.prg?','',0,'GIA=','2cfgal01',1,0,'',267,0,0),(29781,6664,1,161,0,'81.164.212.146',1176401045,1,0,1,1,1,0,'','','I just found in the Microsoft knowledge-base that the search only look in the files of type: <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n.asm\n.c\n.cpp\n.cxx\n.def\n.h\n.hpp\n.hxx\n.idl\n.inc\n.js\n.log\n.pl\n.rc\n.rtf\n.url\n.xml\n.xsl\n.css\n.hta\n.htt\n.386\n.aifc\n.aiff\n.asx\n.au\n.AudioCD\n.bkf\n.bmp\n.cda\n.cpl\n.cur\n.DeskLink\n.dib\n.drv\n.dvd\n.emf\n.fnd\n.folder\n.gz\n.ivf\n.jfif\n.jpe\n.jpeg\n.latex\n.m1v\n.m3u\n.MAPIMail\n.mid\n.midi\n.mp2\n.mp2v\n.mpa\n.mpe\n.mpeg\n.mpg\n.mpv2\n.mydocs\n.png\n.rle\n.rmi\n.sit\n.snd\n.tgz\n.vxd\n.wax\n.wm\n.wma\n.wmp\n.wmv\n.wmx\n.wmz\n.wsz\n.wvx\n.xbm\n.ZFSendToTarget \n\nMarc','',0,'GIA=','j27mguvu',1,0,'',161,0,0),(29782,6659,6,507,0,'189.164.110.241',1176403099,1,0,1,1,1,1,'','','Hola, a ver algo me paso a mi en alguna ocasion, pero era una maquina con winxp sp2, pero en dentro de un dominio, donde le dije que una particion de mi dd fuera solo accesible por un usuario local de la maquina, y todo funciono ok, porque ni el admin de la maquina ni el dominio, podian acceder a esa particion, pero el problema fue cuando reinstale mi maquina y el usuario le puse otro, y ya no me dejo, entonces le di click con el boton derecho del mouse sobre la unidad y seleccione la pestaña de seguridad, creo que en avanzados y le di permiso tambien a el admin y a otros usuarios, y asi fue como logre accesar, en este momento no puedo reproducir el procedimiento porque no estoy dentro de un dominio, si puedes checarle y ojala funcione...','',0,'GIA=','248t20w0',1,0,'',507,0,0),(29783,6655,6,109,0,'200.92.108.196',1176404273,1,0,1,1,1,0,'','','Antonio:\n\n     Como siempre, muy atento para ayudarnos.\n\n     Muchas gracias.','',0,'GIA=','15aogcwd',1,0,'',109,0,0),(29784,6650,2,393,0,'200.47.185.10',1176406680,1,0,1,1,1,0,'','','Gracias por contestar, yo estoy usando si te fijas : \nPara finalizar : oPrn:EndPage()\nPara comenzar : oPrn:StartPage()\n\npero parece que startpage no funciona, voy a usar lo que me recomiendas.\nSaludos.\ndaniel.','',0,'GIA=','2jabeiae',1,0,'',393,0,0),(29785,6657,6,436,0,'190.31.192.143',1176406842,1,0,1,1,1,0,'','','Gracias Patricio, anduvo de maravillas.','',0,'GIA=','2mlrwbuo',1,0,'',436,0,0),(29786,6659,6,78,0,'190.40.238.198',1176407071,1,0,1,1,1,0,'','gracias a todos,,,,','gracias amigos, toi bajando le knoppix y el live cd,,, millon de gracias\nSalu2\nWilli','',0,'GIA=','2pyk02bh',1,0,'',78,0,0),(29787,6480,6,940,0,'189.157.84.245',1176408287,1,0,1,1,1,1,'','','Marco, \n\na mi tambien,  \n\nexcelente grafica.\n\nsaludos.','',0,'GIA=','136ee74n',1,0,'',940,0,0),(29788,6480,6,812,0,'201.236.178.106',1176408807,1,0,1,1,1,0,'','','Hola Marco:\n\nFavor, Me podrias mandar la clase del grafico,\n\n<!-- e --><a href=\"mailto:marf2@vtr.net\">marf2@vtr.net</a><!-- e -->\n\nDesde muchas gracias,\nMiguel\n\n\n\n[quote=&quot;Marco A. Delgado&quot;:bd4snh5p]Hola syda\n\nTe refieres a este control, mandame un mail para enviarte la clase que genera este grafico.\n\n[url=http&#58;//img46&#46;imageshack&#46;us/my&#46;php?image=graficoih5&#46;jpg:bd4snh5p][img:bd4snh5p]http&#58;//img46&#46;imageshack&#46;us/img46/1235/graficoih5&#46;th&#46;jpg[/img:bd4snh5p][/url:bd4snh5p]\n\nSaludos\nMarco A. Delgado[/quote:bd4snh5p]','',0,'mA==','bd4snh5p',1,0,'',812,0,0),(29789,6660,6,54,0,'189.132.111.170',1176410142,1,0,1,1,1,1,'','','[quote=&quot;Maurilio Viana&quot;:14k72a1r]William,\n\n&gt;&gt; if( hb_pcount()  &gt; 3 )\n\nIntenta cambiar por:\n\nif( pcount() &gt; 3)\n\nSaludos!\nMaurilio[/quote:14k72a1r]\n\nIntentando, comento resultado en cuanto cheque\n\ngracias por responder','',0,'gA==','14k72a1r',1,0,'',54,0,0),(29790,6665,3,2,0,'87.218.146.173',1176410401,1,0,1,1,1,1,'','UEStudio setup for FWPPC','Here you have the UEStudio setup to create FWPPC projects with multiple PRG files:\n\nPlease create a folder named FWPPC at:\nC:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\\n\nand copy this file:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/Application\">www.fivetechsoft.com/files/Application</a><!-- w -->\n\nOn a next msg we show a little tutorial about how to use it (quite simple) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1zlq2pzk',1,0,'',2,0,0),(29791,6666,4,2,0,'87.218.146.173',1176410476,1,0,1,1,1,1,'','UEStudio setup for FWPPC','Here you have the UEStudio setup to create FWPPC projects with multiple PRG files:\n\nPlease create a folder named FWPPC at:\nC:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\\n\nand copy this file:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/Application\">www.fivetechsoft.com/files/Application</a><!-- w -->\n\nOn a next msg we show a little tutorial about how to use it (quite simple) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1os4np0r',1,0,'',2,0,0),(29792,6667,6,2,0,'87.218.146.173',1176410614,1,0,1,1,1,1,'','UEStudio configuración para FWPPC','Aqui teneis el fichero de configuración para UEStudio para crear aplicaciones en FWPPC con múltiples PRGs:\n\nPrimero cread una carpeta FWPPC en:\nC:\\Archivos de Programa\\IDM Computer Solutions\\UEStudio \'06\\configs\\\n\ny copiar este fichero:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/Application\">www.fivetechsoft.com/files/Application</a><!-- w -->\n\nEn un próximo mensaje os mostraremos un breve tutorial de cómo usarlo (muy sencillo) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2kuc4v0m',1,0,'',2,0,0),(29793,6668,7,2,0,'87.218.146.173',1176410667,1,0,1,1,1,1,'','UEStudio configuración para FWPPC','Aqui teneis el fichero de configuración para UEStudio para crear aplicaciones en FWPPC con múltiples PRGs:\n\nPrimero cread una carpeta FWPPC en:\nC:\\Archivos de Programa\\IDM Computer Solutions\\UEStudio \'06\\configs\\\n\ny copiar este fichero:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/Application\">www.fivetechsoft.com/files/Application</a><!-- w -->\n\nEn un próximo mensaje os mostraremos un breve tutorial de cómo usarlo (muy sencillo) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3h55fk51',1,0,'',2,0,0),(29794,6480,6,694,0,'200.189.112.21',1176412135,1,0,1,1,1,1,'','','Marco, \n\na mi tambien, \n\nexcelente grafica. \n\nsaludos.\n\n<!-- e --><a href=\"mailto:aokisantos@hotmail.com\">aokisantos@hotmail.com</a><!-- e -->','',0,'gA==','avmkybxs',1,0,'',694,0,0),(29795,6664,1,6,0,'87.21.213.193',1176412251,1,0,1,1,1,1,'','','[quote=&quot;Marc Vanzegbroeck&quot;:1qd7q4u9]How can I search in files with your FileFind-utility?[/quote:1qd7q4u9]\n\nAs an example:\n\nff c:\\mydir\\*.prg report\n\nList all *.prg in c:\\mydir and subdir containing the string REPORT. Then you can open each files and automatically jump from one occurrence to the other.\n\nYou can also specify the parameters after the utility is run. Press F1 for a list of commands.\n\nIf you need of an english version just let me know.\n\nEMG','',0,'gA==','1qd7q4u9',1,0,'',6,0,0),(29796,6664,1,161,0,'81.164.212.146',1176413099,1,0,1,1,1,0,'','','Thanks,\n\nIt\'s working very nice. \nAn Englisch version would be nice. Is there a possibility to open the files with the default program (editor) after doubleclicking the file?\n\nMarc','',0,'gA==','xbm9od39',1,0,'',161,0,0),(29797,6664,1,6,0,'87.21.213.193',1176413386,1,0,1,1,1,1,'','','[quote=&quot;Marc Vanzegbroeck&quot;:2mqwcrrf]An Englisch version would be nice.[/quote:2mqwcrrf]\n\nOk, I will prepare it.\n\n[quote=&quot;Marc Vanzegbroeck&quot;:2mqwcrrf]Is there a possibility to open the files with the default program (editor) after doubleclicking the file?[/quote:2mqwcrrf]\n\nYes, just press F11 (look at the help F1).\n\nEMG','',0,'gA==','2mqwcrrf',1,0,'',6,0,0),(29798,6664,1,6,0,'87.21.213.193',1176414045,1,0,1,1,1,1,'','','Oh, and if you want the source code (it is pure C + Win32 API) just let me know.\n\nEMG','',0,'gA==','2w4nffaw',1,0,'',6,0,0),(29799,2174,3,49,0,'62.13.172.67',1176414233,1,0,1,1,1,1,'','','Shell_NotifyIconA fun not found !!','',0,'gA==','1b96odnr',1,0,'',49,0,0),(29800,6636,6,936,0,'190.56.118.121',1176414505,1,0,1,1,1,0,'','','Hola Horacio, sería tan amable de indicarme como solucionaste tu problema, yo estoy en las mismas de controlar el salto de página con la TDosPrn y no he podido hacerlo.\n\nGracias y saludos.\n\nCarlos Sincuir.','',0,'gA==','1ccodxff',1,0,'',936,0,0),(29801,6642,20,49,0,'62.13.172.67',1176415322,1,0,1,1,1,1,'','','quindi secondo come faccio per non riscrivere tutto ?\ncio\' che chiamo asel ( array di record selezionati) xbrowse in automatico lo chiama aselected potrebbe funzionare ?\n\nbe ho provato ma non mi ha stampato niente  ( selezionando solo due record)\n\necco il codice : \n\n[code:3r4y5a9m]\n\nSTAT FUNC Relacion&#40;n&#41;\n   LOCAL oPrn, oFn1, oFn2, oFn3,  cSTit\n   LOCAL aDes, aHas, nHor,nRow,cForm\n   LOCAL nRec ,lPrv&#58;=&#46;t&#46;\n\n     cSTit&#58;=&quot;ELENCO GENERALE SOCI  AL &quot;+cf&#40;Date&#40;&#41;&#41;+&quot;  &quot;+ n\n      cSTit&#58;=Alltrim&#40;cSTit&#41;\n      nRec&#58;=&#40;oDCli&#41;-&gt;&#40;Recno&#40;&#41;&#41;\n      oPrn&#58;=PrintBegin&#40;&quot;Elenco Soci&#46;&#46;&#46;&quot;,&#46;F&#46;,lPrv,,&#46;T&#46;&#41;\n         DEFINE FONT oFn1 NAME cFont SIZE 0,- 8      OF oPrn\n         DEFINE FONT oFn2 NAME cFont SIZE 0,- 8 BOLD OF oPrn\n         DEFINE FONT oFn3 NAME cFont SIZE 0,-11 BOLD OF oPrn\n         cForm&#58;=Get_Form&#40;&quot;101&quot;&#41;\n        * oPrn&#58;SetPortrait&#40;&#41; //verticale\n          oPrn&#58;SetLandscape&#40;&#41; //verticale\n         nHor&#58;=oPrn&#58;nHorzSize&#40;&#41;\n         nVer&#58;=oPrn&#58;nVertSize&#40;&#41;\n         nRow&#58;=4&#46;9\n         PageBegin&#40;&#41;\n              CursorWait&#40;&#41;\n              Title_WIN&#40;oPrn,nHor,nVer,oFn1,oFn2,oFn3,cSTit,1,&#46;T&#46;,cForm&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 1&#46;5,&quot;NUM&quot;,oFn1,,,,2&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 2&#46;4,&quot;A&quot;,oFn1,,,,2&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 2&#46;7,&quot;T&quot;,oFn1,,,,2&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 3&#46;0,&quot;NOMINATIVO&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 7&#46;0,&quot;TESSERA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 8&#46;5,&quot;NASCITA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,10&#46;6,&quot;TELEFONI&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,15&#46;5,&quot;INDIRIZZO&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,20&#46;5,&quot;LOCALITA\'&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,22&#46;5,&quot;CAP&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,23&#46;5,&quot;PROV&#46;&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 24&#46;5,&quot;CARICA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 26&#46;0,&quot;TAGLIA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 28&#46;0,&quot;SEX&quot;,oFn1&#41;\n            nCli&#58;=0\n            nOpt=1\n            CursorWait&#40;&#41;\n            &#40;oDCli&#41;-&gt;&#40;DbGoTop&#40;&#41;&#41;\n            DO WHILE !&#40;oDCli&#41;-&gt;&#40;EoF&#40;&#41;&#41;\n\n               IF &#40;nOpt=1 &#46;AND&#46; AScan&#40;oApp&#58;oGrid&#58;aSelected,&#40;oDCli&#41;-&gt;NumCli&#41;&lt;&gt;0&#41;\n\n\n\n\n               oPrn&#58;CmSay&#40;nRow, 1&#46;5,&#40;oDCli&#41;-&gt;NumCli,oFn1,,,,2&#41;\n               oPrn&#58;CmSay&#40;nRow, 2&#46;4,DaiAtt&#40;&#40;oDCli&#41;-&gt;Attivita&#41;,oFn1,,,,2&#41;\n               oPrn&#58;CmSay&#40;nRow, 2&#46;8,DaiTipo&#40;&#40;oDCli&#41;-&gt;Tipo&#41;,oFn1,,,,2&#41;\n               oPrn&#58;CmSay&#40;nRow, 3&#46;0,&#40;oDCli&#41;-&gt;Nomeintero,oFn1, 8&#46;7&#41;\n               oPrn&#58;CmSay&#40;nRow,7&#46;0,&#40;oDCli&#41;-&gt;Tessera,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,8&#46;5,cf&#40;&#40;oDCli&#41;-&gt;Nascita&#41;,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,10&#46;6,&#40;oDCli&#41;-&gt;Tel1,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,12&#46;6,&#40;oDCli&#41;-&gt;Tel2,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,15&#46;5,&#40;oDCli&#41;-&gt;Indirizzo,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,20&#46;5,&#40;oDCli&#41;-&gt;Localita,oFn1&#41;\n                 oPrn&#58;CmSay&#40;nRow,22&#46;5,&#40;oDCli&#41;-&gt;Cap,oFn1&#41;\n                 oPrn&#58;CmSay&#40;nRow,23&#46;5,&#40;oDCli&#41;-&gt;Provincia,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,24&#46;5,&#40;oDCli&#41;-&gt;Carica,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,26&#46;0,&#40;oDCli&#41;-&gt;Taglia,oFn1&#41;\n               oPrn&#58;CmSay&#40;nRow,28&#46;0,&#40;oDCli&#41;-&gt;Sesso,oFn1&#41;\n                  nCli++\n                  nRow+=0&#46;4\n                  IF nRow&gt;=25&#46;5\n                     PageEnd&#40;&#41;\n                     PageBegin&#40;&#41;\n        Title_WIN&#40;oPrn,nHor,nVer,oFn1,oFn2,oFn3,cSTit,1,&#46;F&#46;,cForm&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 2&#46;0,&quot;NUM&quot;,oFn1,,,,2&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 2&#46;7,&quot;T&quot;,oFn1,,,,2&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 3&#46;0,&quot;NOMINATIVO&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 7&#46;0,&quot;TESSERA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 8&#46;5,&quot;NASCITA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,10&#46;6,&quot;TELEFONI&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,15&#46;5,&quot;INDIRIZZO&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,20&#46;5,&quot;LOCALITA\'&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,22&#46;5,&quot;CAP&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2,23&#46;5,&quot;PROV&#46;&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 24&#46;5,&quot;CARICA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 26&#46;0,&quot;TAGLIA&quot;,oFn1&#41;\n            oPrn&#58;CmSay&#40;4&#46;2, 28&#46;0,&quot;SEX&quot;,oFn1&#41;\n                     nRow&#58;=4&#46;9\n                  ENDIF\n                 ENDIF\n               &#40;oDCli&#41;-&gt;&#40;DbSkip&#40;&#41;&#41;\n            ENDDO\n            aDes&#58;=oPrn&#58;Cmtr2Pix&#40;nRow+0&#46;3, 1&#46;0&#41;\n            aHas&#58;=oPrn&#58;Cmtr2Pix&#40;nRow+0&#46;3,29&#46;0&#41;\n            oPrn&#58;Line&#40;aDes&#91;1&#93;,aDes&#91;2&#93;,aHas&#91;1&#93;,aHas&#91;2&#93;&#41;\n            nRow+=&#46;5\n            oPrn&#58;CmSay&#40;nRow,10&#46;5, TRAN&#40;nCli,&quot;9999&quot;&#41;+&quot;  Socio&#40;i&#41; in archivio&quot;,oFn1,,,,2&#41;\n            aDes&#58;=oPrn&#58;Cmtr2Pix&#40;nRow+0&#46;4, 1&#46;0&#41;\n            aHas&#58;=oPrn&#58;Cmtr2Pix&#40;nRow+0&#46;4,29&#46;0&#41;\n            oPrn&#58;Line&#40;aDes&#91;1&#93;,aDes&#91;2&#93;,aHas&#91;1&#93;,aHas&#91;2&#93;&#41;\n             nRow+=&#46;5\n            oPrn&#58;CmSay&#40;nRow,15&#46;5, &quot; Legenda       - Tipo &#40;3# colonna&#41;  F = Fondatore  O = Ordinario  S = Sostenitore  A = altro       - Attivita\' &#40; 2# colonna&#41;   D = Docente  A = ATA   S = Alunno G = Genitore  E = Esterno &quot;,oFn1,,,,2&#41;\n\n         PageEnd&#40;&#41;\n         oFn1&#58;End&#40;&#41;; oFn2&#58;End&#40;&#41;; oFn3&#58;End&#40;&#41;\n      PrintEnd&#40;&#41;\n      &#40;oDCli&#41;-&gt;&#40;DbGoTo&#40;nRec&#41;&#41;\n     * oBCli&#58;Refresh&#40;&#41;\n     RETURN &#40;NIL&#41;\n[/code:3r4y5a9m]\n\n\n\nla variabile n di Relacion(n)\n\nmi serve per dare alla funzione l\'indice corrente','',0,'AIA=','3r4y5a9m',1,0,'',49,0,0),(29802,6665,3,2,0,'87.218.146.173',1176416359,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->','',0,'AIA=','ywkjo0df',1,0,'',2,0,0),(29803,6666,4,2,0,'87.218.146.173',1176416386,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->','',0,'AIA=','1pg5e8w5',1,0,'',2,0,0),(29804,6667,6,2,0,'87.218.146.173',1176416405,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->','',0,'AIA=','1ktddbou',1,0,'',2,0,0),(29805,6668,7,2,0,'87.218.146.173',1176416424,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->','',0,'AIA=','y3dfmf70',1,0,'',2,0,0),(29806,6480,6,812,0,'201.236.178.106',1176417010,1,0,1,1,1,0,'','','Hola Marco:\n\nFavor, me puedes enviar la clase del Grafico.\n\n<!-- e --><a href=\"mailto:marf2@vtr.net\">marf2@vtr.net</a><!-- e -->\n\nSaludos,\nMiguel','',0,'AIA=','22yadfnj',1,0,'',812,0,0),(29807,6636,6,940,0,'189.157.84.245',1176418775,1,0,1,1,1,1,'','','Carlos es muy facil. \n\ndejO aqui un ejemplo mas completito migrado de fox pro \n\na fw.\n\nPara esto necesitas la class TDOSPRN \n\n#define INICIAPRN      \'27,64\'\n#define SELECTDRAF     \'27,120,48\'\n#define SELECTLQ       \'27,120,49\'\n#define SELECTROMA     \'27,107,48\'\n#define SELECTSSER     \'27,107,49\'\n#define ONENFATIZADO   \'27,69\'\n#define OFFENFATIZADO  \'27,70\'\n#define ONDOBLEANCHO   \'27,87,1\'\n#define OFFDOBLEANCHO  \'27,87,0\'\n#define ONDOBLEALTO    \'27,119,1\'\n#define OFFDOBLEALTO   \'27,119,0\'\n#define ONDOBLEPASADA  \'27,71\'\n#define OFFDOBLEPASADA \'27,72\'\n#define ONSUPERSCRIPT  \'27,83,0\'\n#define ONSUBSCRIPT    \'27,83,1\'\n#define OFFSUPERSUB    \'27,84\'\n#define ONITALICA      \'27,4\'\n#define OFFITALICA     \'27,5\'\n\nfunction testPrn()\n\n   oPrn := TDosPrn():New( \"LPT1\" )   &amp;&amp;iniciamos el objeto tdosprn.\n   oPrn:command( INICIAPRN )        &amp;&amp; iniciamos la impresora\n   oPrn:command( \"27\",\"67\", \"18\" )   &amp;&amp; el salto es a los 18 renglonres\n                                                     &amp;&amp; 1 pulgada \"\" equivale a 6 reng.\n   oPrn:command( SELECTROMA )    &amp;&amp; me gusta la letra roman\n\n   dbselectArea( \'clientes\' )\n   dbgotop()\n    nRow := 1\n   do while !eof()\n        oPrn:say(nRow. 1, field-&gt;codigo )\n        oPrn:say(nRow, 10, field-&gt;nombre)\n        nRow++\n        if nRow &gt;= 15   &amp;&amp; brincamos a una nueva pagina.\n           nRow := 1\n        endif\n        sysrefresh()\n        dbskip()\n   enddo\n\noPrn:end()  &amp;&amp; terminamos el objeto tDosPrn.\n\n\nreturn .t.\n\n\nSaludos Cordiales ...','',0,'AIA=','38wven9b',1,0,'',940,0,0),(29808,6664,1,2,0,'87.218.146.173',1176420511,1,0,1,1,1,1,'','','Marc,\n\nWe have been using \"Total Commander\" for years (based on the old MsDos Norton Commander). All our products have been developed using it.\n\nWe can\'t do any professional development without it. It greatly increases your productivity and it has all kind of search options, etc.\n\nThere is a non limited shareware version, its worth to try it.','',0,'AIA=','3kig6wed',1,0,'',2,0,0),(29809,6669,6,990,0,'201.248.243.223',1176421451,1,0,1,1,1,0,'','Crystal XI y xharbour','Saludos Amigos, aca traigo un problema para evr en que se me puede ayudar, me quede en el fwh24 y el xharbour ya ni me acuerdo la version pero es un poco vieja, uso crystal Report 7.0 pero necesito exportar mis reportes a PDF cosa el que 7.0 no hace tengo la Version XI que si exporta pero quisiera saber si alguien usa estar version y es compatible con la que uso con el 7.0  o si tiene una rutina para esta version y si es posible hacermela llegar a mi Correo, agradeciendo de antemano la Atencion de esta Solicitud Queda de Ustedes Antonio P.\nMail: <!-- e --><a href=\"mailto:venezolano1963@yahoo.com\">venezolano1963@yahoo.com</a><!-- e -->','',0,'AIA=','1kjrax1z',1,0,'',990,0,0),(29810,6480,6,198,0,'189.134.24.232',1176423888,1,0,1,1,1,1,'','Yo tambien!!','Hola Marco:\n\nTambien me lo puedes enviar a mi por favor??\n\nMil grcias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nLaura. E. Hernández','',0,'AIA=','kvx8c2n5',1,0,'',198,0,0),(29811,6664,1,303,0,'72.199.41.171',1176426342,1,0,1,1,1,0,'','','None of the other solutions are as fast as Copernic. I just did a search and found 3 files out of the over 350,000 files on my hard disk, in less than a second.\n\nIndexed searching is the only way to go.\n\nJames','',0,'AIA=','yfgzd5bs',1,0,'',303,0,0),(29812,6670,6,743,0,'201.116.76.180',1176426427,1,0,1,1,1,0,'','tengo un problema urge por favor','tengo una funcion en c\n\n void algo( par1, parm2...){ \n   ... odigo\n  }\n\n\nel problema que tengo como la llama desde un prg\n\n\ngracias','',0,'AIA=','3ep91e16',1,0,'',743,0,0),(29813,6662,1,376,0,'190.42.12.61',1176429421,1,0,1,1,1,1,'','','Utiliza en el objeto listbox (oLb) lo siguiente:\n\noLb:UpStable()','',0,'AIA=','1vbaog9d',1,0,'',376,0,0),(29814,6671,6,511,0,'201.248.147.166',1176431551,1,0,1,0,1,1,'','Crear documento de Word con texto e imagen','Saludos al foro, estoy utilizando ole2 para crear un archivo DOC y funciona bien pero quiero agregar un BMP en el tope y otro en el pie de pagina. Alguien me podria indicar como se hace ?, Gracias anticipadas.\n\nFUNCTION MAIN() \n    LOCAL oWord, oDoc, oTexto, cNombre := \"c:\\prueba\"\n\n    oWord := TOleAuto():New( \"Word.Application\" )\n    oWord:Documents:Add()\n\n    oTexto := oWord:Selection()\n    oTexto:Text := \"PRUEBA\"\n    oTexto:Font:Name := \'ARIAL\'\n    oTexto:Font:Size := 12\n    oTexto:Font:Bold := .T.\n    oTexto:Font:Italic := .T.\n    oTexto:Font:Underline := .T.\n    oTexto:Font:color := 32768\n    //oTexto:oPageSetup := 2\n    oTexto:Orientation := 0 //1\n    oTexto:ParagraphFormat:Alignment := 0 //0,1,2,3\n\n    oDoc := oWord:Get( \"ActiveDocument\" )\n\n    oWord:Visible := .T.\n    oWord:Set( \"WindowState\", 1 )  // Maximizado\n    oDoc:SaveAs( cNombre )\n    oTexto:End()\n    oWord:End()\nRETURN NIL\n\nSaludos','',0,'AIA=','d5ywwmr5',1,0,'',511,0,0),(29815,6666,4,3,0,'194.126.10.107',1176446501,1,0,1,1,1,1,'','Re: UEStudio setup for FWPPC','Antonio  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThere is a small error \n\nthe following line should be changed from\nHPATHL = $(HPATH)\\LIB\\vce\n\nto\n\nHPATHL = $(HPATH)\\LIB\n\nThere is no vce lib in harbour_ce\\lib directory\n\nthis is a copy of the modified file\n\nBest regards\n\nRichard\n\n# --------- FWPPC configuration --------\n# --- general --------------------------------------\n# $P  - project name\n# $Pp - path to project directory\n# $Pn - project name\n# --- compile -------------------------------------\n# $I  - input full name\n# $Ip - input path\n# $In - input name\n# $Ie - input extension\n# $O  - output file\n# $Op - path to output file\n# $On - output filename (without path)\n# $Oe - output extension\n# $R  - release/debug setting for compiler\n# --- build ----------------------------------------\n# $T  - target full name\n# $Tp - target path\n# $Tn - target name\n# $O  - output file\n# $Op - path to output file\n# $On - output filename (without path)\n# $Oe - output extension\n# $R  - release/debug setting for linker\n\n[Settings]\nTarget = \nCategory&amp;01 = DEFAULT RUN CONFIGURATION\nWorking Directory =.\nCommand Line Arguments =\n\nCategory&amp;02 = Harbour Options\nAutomatic Memvar Declaration = no|yes\nVariables Are Assumed = no|yes\nGenerate Preprocessed Output = no|yes\nWarning Level = 1|2|3|4|0\nUser Include Path =\nUser Defines =\n\nCompiler Options =\nLinker Options =\n\nExcluded Files = Excludes\n\n[SettingsInfo]\nTarget = Provides a space for you to specify an output file and location of the program that the linker creates.\nWorking Directory = Provides a space for you to specify the directory in which executing occurs. If you do not specify a directory, executing occurs in the directory where the executable is located.\nCommand Line Arguments = Provides a space for you to specify command-line arguments you want to pass to the program at startup.\nCompiler Options = Provides a space for you to specify an additional compiler options.\nUser Defines = Shows the switches the tool will use to build. Use \';\' as delimiter.\nLinker Options = Provides a space for you to specify an additional linker options.\nExcluded Files = This will exclude the file(s) included in this UE project group from the build.\n\n[SettingsReps]\nUser Defines = @[;|-D%s]\nAutomatic Memvar Declaration = no=|yes=/a\nVariables Are Assumed = no=|yes=/v\nGenerate Preprocessed Output = no=|yes=/p\nUser Include Path = ^^@[;|;%s]\nUser Include Path&amp;1 = ^^@[;| /i%s]\nUse Multi Thread Library = no|yes\nWarning Level = @/w%s\n\n[Variables]\nFWPPC = C:\\FWPPC\nHPATH = C:\\Harbour_CE\nCPATH = C:\\VCE\n\nFWPPCI = $(FWPPC)\\include\nFWPPCL = $(FWPPC)\\lib\n\nHPATHL = $(HPATH)\\LIB\nCPATHL = $(CPATH)\\LIB\\ARM\n\nCOPT = -W3 -c /DARM /DUNICODE -I$(HPATH)\\INCLUDE -I$(CPATH)\\INCLUDE\\ARM \nHOPT = /n /gc0 /q $(Compiler Options) /i$(HPATH)\\INCLUDE $(User Include Path&amp;1) $(User Defines) $(Automatic Memvar Declaration) $(Variables Are Assumed) $(Generate Preprocessed Output) $(Warning Level)\n\nLOPT = /nologo /SUBSYSTEM:WINDOWSCE,3.0 /MACHINE:ARM\nLIBS1 = $(FWPPC)\\LIB\\FiveCE.lib $(FWPPC)\\LIB\\FiveCEC.lib \nLIBS2 =  $(HPATHL)\\rtl.lib $(HPATHL)\\vm.lib $(HPATHL)\\gtgui.lib $(HPATHL)\\lang.lib $(HPATHL)\\macro.lib $(HPATHL)\\rdd.lib $(HPATHL)\\dbfntx.lib $(HPATHL)\\dbfcdx.lib $(HPATHL)\\dbffpt.lib $(HPATHL)\\hbsix.lib $(HPATHL)\\debug.lib $(HPATHL)\\common.lib $(HPATHL)\\pp.lib $(HPATHL)\\codepage.lib \nLIBS3 = $(CPATHL)\\coredll.lib $(CPATHL)\\corelibc.lib $(CPATHL)\\aygshell.lib $(CPATHL)\\commctrl.lib $(CPATHL)\\ws2.lib $(CPATHL)\\mfcce400.lib $(CPATHL)\\ole32.lib $(CPATHL)\\oleaut32.lib $(CPATHL)\\olece400.lib $(CPATHL)\\uuid.lib $(CPATHL)\\ceshell.lib $(CPATHL)\\wininet.lib\nLIBS = $(LIBS1) $(LIBS2) $(LIBS3)\n\n[Environment]\nPATH = $(HPATH)\\BIN;$(CPATH)\\BIN;%PATH%\nINCLUDE = $(HPATH)\\INCLUDE;$(CPATH)\\ARM\\INCLUDE;$(FWPPC)\\INCLUDE\nLIB = $(HPATH)\\LIB;$(CPATH)\\LIB\nOBJ = $(HPATH)\\OBJ;\nBuildMode = %UESMode%\n\n[General]\nTargetExt = .EXE\nReleaseOut = Release\nDebugOut = Debug\nUseFullPaths = 1\nUseDosNames = 1\nExcludes = $(Excluded Files)\nGenerateEDGroup=$(External Dependencies)\n.CPP = .C\n\n[MakeCommands]\nrun = Execute Application\nmakef = Show Makefile\n\n[Execute Application]\nTitle = Execute $T\nCmd0 = $(Command Line Arguments)\nDepends = $T\nShowWindow = 1\nDisplayConsole = $(DCon)\n\n[Show Makefile]\nTitle=Show makefile\nCmd0=uestudio makefile\nShowWindow=1\nDisplayConsole=0\n\n[InsertFiles]\n\n[FileGroups]\nFGO = .obj;\nFGR = .res;\nFGL = .lib;\nFGD = .def;\n\n[GroupFormats]\nFGO = %s\nFGR = %s\nFGL = %s\n\n[Build]\nOut = $T\nDepends = $FGO $FGR\nDebugFlag = \nReleaseFlag = \nCmd0 = LINK $(LOPT) $FGO $(LIBS) $(FGR)\n\n[.PRG]\nOut = $In.c\nDebugFlag = /b\nReleaseFlag = /l\nCmd0 = harbour $I $(HOPT) $R /o$O \n\nIncFiles = 1\nCaseSensitive = 0\nIncDirs = .;$(INCLUDE);\nIncKeyWords = #include;\nComments = /*.*/.//.eol.\n\n[.C]\nOut = $In.obj\nCmd0 = clarm $(COPT) -o$O $I\n\n[.RC]\nOut = $In.res\nCmd0 = rc -r -32 -fo$O $I\n\nIncFiles = 1\nCaseSensitive = 0\nIncDirs = .;$(INCLUDE);\nIncKeyWords = #include;\nComments = /*.*/.//.eol.','',0,'','3m9324yf',1,0,'',3,0,0),(29816,6664,1,6,0,'87.13.209.126',1176447873,1,0,1,1,1,1,'','','I wonder how an index (or at least not a huge index) can keep track of all the text contained inside all the files. Anyway, I much prefer to use my own tools as I can add whatever feature I could need.\n\nEMG','',0,'','1w9rkfhf',1,0,'',6,0,0),(29817,6666,4,2,0,'87.218.146.173',1176447886,1,0,1,1,1,1,'','','Thanks Richard,\n\nYes, I left my own settings there <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2kxvz3d7',1,0,'',2,0,0),(29818,6666,4,2,0,'87.218.146.173',1176448007,1,0,1,1,1,1,'','','Also, these two lines may be deleted:\n\nFWPPCI = $(FWPPC)\\include \nFWPPCL = $(FWPPC)\\lib \n\nand I have not tested the RC compiler. Probably its flags are wrong\n\nbut now we can build FWPPC apps from UEStudio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> and it is much simpler than the one provided for xHarbour, so we may implement another for Harbour/xHarbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3u9gqw76',1,0,'',2,0,0),(29819,6642,20,6,0,'87.13.209.126',1176448139,1,0,1,1,1,1,'','','[code:2uve0941]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;XBrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg;\n           SIZE 800, 600\n\n    oBrw = TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n\n    oBrw&#58;SetRDD&#40;&#41;\n\n    oBrw&#58;nMarqueeStyle = MARQSTYLE_HIGHLROWMS\n\n    oBrw&#58;bRClicked = &#123; || WQOut&#40; oBrw&#58;aSelected &#41; &#125;\n\n    oBrw&#58;CreateFromCode&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL[/code:2uve0941]\n\nEMG','',0,'AIA=','2uve0941',1,0,'',6,0,0),(29820,6662,1,2,0,'87.218.146.173',1176449370,1,0,1,1,1,1,'','','Alfonso,\n\noBrowse:bLogicLen es un codeblock que tiene que devolver el número correcto de registros de la DBF. \n\nSi tienes registros borrados, y tu índice los tiene en cuenta:\n\n      INDEX ON Name TAG \"Name\" ;\n         TO ... FOR ! Scripts-&gt;( Deleted() )\n\nEntonces bLogicLen lo estableces así:\n\n      oBrowsew:bLogicLen = { || ( ::cAlias )-&gt;( If( At( \"DBFCDX\",;\n                         RddName() ) != 0, OrdKeyCount(), RecCount() ) ) }\n\ny asegúrate de reconstruir el índice para que no esté corrupto','',0,'AIA=','1jbrle62',1,0,'',2,0,0),(29821,6670,6,2,0,'87.218.146.173',1176449473,1,0,1,1,1,1,'','','Tienes muchísimos ejemplos en C en source\\winapi y source\\function\n\nBasicamente:\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi.h&gt;\n\nvoid algo( char *, char * ); \n\nHB_FUNC( ALGO )\n{\n   algo( hb_parc( 1 ), hb_parc( 2 ) );\n}\n\n#pragma ENDDUMP\n\nY desde tu PRG llamas a ALGO( \"uno\", \"dos\" )','',0,'AIA=','4s5fkn9u',1,0,'',2,0,0),(29822,6633,3,282,0,'210.72.235.124',1176453892,1,0,1,1,1,0,'','','Dear Antonio \n\nCould you help me again ! \n\nHow to conver VB \"AddHandle\" to FWH \n\nStatusBar = CommandBars.StatusBar \nAddHandler StatusBar.PaneClick, AddressOf StatusBar_PaneClickEvent \n\nThanks again ! \n\nDixon Chu','',0,'AIA=','yswfi1vo',1,0,'',282,0,0),(29823,6648,6,413,0,'195.55.176.112',1176457057,1,0,1,1,1,1,'','','Gracias Biel, el ejemplo es tal como esta en la carpeta samples de samples/testxbrw.prg. El problema es el resultado pues no se como decirle que las tab pertenecen al splitter derecho donde se muestra el browse. Quiero que aparezcan debajo del browse, esto lo he visto en varios programas hechos con fivewin pero no doy con el tema. \n\nSi pongo oChild:oBottom = oTabs \n\nme situa la barra tabs debajos de las dos partes del splitter, lo cual no queda mal ver esta foto\n[img]\n\n<!-- m --><a class=\"postlink\" href=\"http://img87.imageshack.us/my.php?image=screenshot012xa6.png\">http://img87.imageshack.us/my.php?image ... 012xa6.png</a><!-- m -->\n\n[/img]\n\n\n\nPero no encuentro la forma de decirle que pertenece al browse o al splitter de la derecha.\n\nSin splitter va perfecto:\n\n[code:l621mbfl]\n\nSTATIC FUNCTION BasicRow&#40; oWnd &#41;\n\n   local oChild, oBrw, oTabs\n\n   DEFINE WINDOW oChild TITLE &quot;Basic Row selector browse&quot; MDICHILD OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n   oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\n\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oChild&#58;oClient &#58;= oBrw\n\n	@ 1, 0 TABS oTabs PROMPTS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot;, &quot;&amp;Four&quot; OF oChild ;\n      ACTION oChild&#58;Say&#40; 5, 5, oTabs&#58;nOption &#41;\n\n   oChild&#58;oBottom = oTabs\n\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n[/code:l621mbfl]\n\nSitua uno a continuacion de otro.\nAlguien que tenga experiencia en este tema me puede indicar como hacer para que la tab aparezca debajo del browse?','',0,'AIA=','l621mbfl',1,0,'',413,0,0),(29824,6648,6,2,0,'87.218.146.173',1176459572,1,0,1,1,1,1,'','','Andrés,\n\nPrueba a comentar esta línea, y situa el tabs más abajo:\n\noChild:oBottom = oTabs\n\ny en el bResized de la ventana tendrías que ponerle las coordenadas correctas al tabs, por lo menos el oTabs:nTop, ya que el nLeft lo hará el splitter','',0,'AIA=','2dwza3xc',1,0,'',2,0,0),(29825,6633,3,2,0,'87.218.146.173',1176460700,1,0,1,1,1,1,'','','Dixon,\n\nAddHandler looks like an event response. \n\nPlease review samples\\webexp.prg to see how to manage ActiveX events','',0,'AIA=','30qlgx02',1,0,'',2,0,0),(29826,6648,6,413,0,'195.55.176.112',1176461275,1,0,1,1,1,1,'','','Ya me he dado cuenta de este detalle, si quito esa linea me situa el tab en el splitter derecho encima del browse, ahora estaba intentando situarlo en las coordenadas correctas, pero cuando se redimensiona el browse ocupa toda el area de cliente. Estoy realizando pruebas para ver como cojo las coordenadas del browse y lo ajusto a la ventana que le deja el espliter, creo que los tiros deben de ir por ahí.\n\nGracias Antonio','',0,'AIA=','3uxfjlcz',1,0,'',413,0,0),(29827,6490,3,15,0,'203.73.49.245',1176464736,1,0,1,1,1,0,'','','Hello\n\nI have old AP( xHarbour 0.92+FWH2.3 or FWH2.4).\nYour new version 1.1 support it?\nHave you call new FWH\'s kernal function?\nI afraid my old tools incompatible your v1.1\n\nRegards,\n\nRichard','',0,'AIA=','9w5q1qq3',1,0,'',15,0,0),(29828,6672,1,979,0,'195.53.199.6',1176465741,1,0,1,1,1,0,'','Change size to dialog during execution program','Hello,\n\nI have a browse and four buttoms inside of a dialog and I need to expand the dialog and browse to adjust to screen resolution and move the buttons to other position.\n\nDoes somebody know as doing it?\n\nRegards,','',0,'AIA=','y3wz0yo7',1,0,'',979,0,0),(29829,6636,6,936,0,'190.56.118.121',1176465892,1,0,1,1,1,0,'','','Gracias Cesar, eres muy amable, ahora mismo me pongo a hacer las pruebas.\n\nSaludos.\n\nCarlos Sincuir','',0,'AIA=','2ral71iu',1,0,'',936,0,0),(29830,6673,2,979,0,'195.53.199.6',1176466350,1,0,1,1,1,0,'','¿Como cambiar tamaño de un dialogo en tiempo de ejecucion?','Hola,\n\nTengo de finido un Browse y cuatro botones en un dialogo y necesito expandirlo para ajustar a la resolucion de la pantalla y por supuesto mover los botones dentro del nuevo tamaño de la pantalla.\n\n¿ Alguien sabe como hacerlo?\n\nGracias por adelantado,\n\nAlfonso','',0,'AIA=','2b3qlu58',1,0,'',979,0,0),(29831,6549,3,148,0,'196.205.112.101',1176467170,1,0,1,1,1,0,'','','The auto complete feature in any internet get variable . I need it in Xbrowse edit','',0,'AIA=','5kmcddy1',1,0,'',148,0,0),(29832,6592,7,720,0,'80.36.244.134',1176467780,1,0,1,1,1,0,'','','Antonio, solo comentar que para la Metrologic con el procesador Intel ARM920T-PXA27X y Windows CE versión 5 la clausula de shared funciona correctamente.\n\nNose que es lo que estaba haciendo antes, pero ahora lo he verificado y parece funcionar...\n\nSaludos\n\nElías Torres.','',0,'AIA=','6psihjt0',1,0,'',720,0,0),(29833,6303,4,267,0,'200.208.238.2',1176469165,1,0,1,1,1,1,'','','Antonio,\n\nI know that you must have a million of things to make and all very important they for all we, but please give one looked at in this question of the archives ZIP, I am certain that something very important for all is our community.','',0,'AIA=','1xkmwfj4',1,0,'',267,0,0),(29834,6674,3,972,0,'68.224.121.249',1176469483,1,0,1,1,1,0,'','Picture in GET problem','Hi,\n\nConsider this:\n\n[code:337p9cb5]\n#include &quot;FiveWin&#46;ch&quot;\n\nFunction wfMain&#40;&#41;\n   LOCAL oDlg\n   LOCAL oGet1, oGet2, oGet3\n   LOCAL nGet1&#58;=0, nGet2&#58;=9999&#46;999, nGet3&#58;=9999999&#46;999\n\n   DEFINE DIALOG oDlg TITLE &quot;Picture problem&quot; FROM 0,0 TO 200,500 PIXEL\n   \n   @ 10, 10 SAY \'The picture of the 3 GET objects is&#58; &quot;9 999 999&#46;999&quot;\' OF oDlg SIZE 500,10 PIXEL\n   @ 20, 10 SAY \'All 3 GET objects are RIGHT aligned&#46;\' OF oDlg SIZE 500,10 PIXEL\n\n   @ 40, 10 GET oGet1 VAR nGet1 OF oDlg SIZE 20, 10 PIXEL RIGHT PICTURE &quot;9 999 999&#46;999&quot;\n   @ 50, 10 GET oGet2 VAR nGet2 OF oDlg SIZE 30, 10 PIXEL RIGHT PICTURE &quot;9 999 999&#46;999&quot;\n   @ 60, 10 GET oGet3 VAR nGet3 OF oDlg SIZE 40, 10 PIXEL RIGHT PICTURE &quot;9 999 999&#46;999&quot;\n   \n   @ 40, 55 SAY \'-&gt; Value is 0&#46;000, but the decimals are not visible\' OF oDlg SIZE 500,10 PIXEL\n   @ 50, 55 SAY \'-&gt; Value is 9 999&#46;999, but the last decimal is not visible\' OF oDlg SIZE 500,10 PIXEL\n   @ 60, 55 SAY \'-&gt; Value is 9 999 999&#46;999, everything is visible\' OF oDlg SIZE 500,10 PIXEL      \n                                     \n   ACTIVATE DIALOG oDlg CENTERED    \n   \nRETURN NIL\n[/code:337p9cb5]\n\nThis code results in this:\n[img:337p9cb5]http&#58;//www&#46;patrickmast&#46;com/picture1&#46;png[/img:337p9cb5]\n\nHow can we get the spaces in FRONT of the picture removed, so the full value of the get is displayed in the get?\n\nThank you.\n\n--\nPatrick Mast,\n<!-- m --><a class=\"postlink\" href=\"http://www.WinFakt.com\">http://www.WinFakt.com</a><!-- m -->','',0,'CIA=','337p9cb5',1,0,'',972,0,0),(29835,6664,1,303,0,'72.199.41.171',1176471801,1,0,1,1,1,0,'','','Enrico,\n\n&gt;I wonder how an index (or at least not a huge index) can keep track of all the text contained inside all the files. Anyway, I much prefer to use my own tools as I can add whatever feature I could need. \n\nWell, of course, although there are 350,000 files on my disk, only a fraction of them are indexed.\n\nEnrico, as I expect you know, I am a big skeptic. I don\'t find much software that impresses me, but Copernic\'s Desktop Search is one of those that does. I encourge you to try it before you dismiss it as not useful. Since it is free, you only have a little of your time to loose and you might really like it.\n\nAnd you could still use your own tools for anything the Copernic doesn\'t do.\n\nJames','',0,'CIA=','2phqel7t',1,0,'',303,0,0),(29836,6674,3,2,0,'87.218.146.173',1176475713,1,0,1,1,1,1,'','','Patrick,\n\nYou may use the same SIZE for the three GETs:\n\n   @ 40, 10 GET oGet1 VAR nGet1 OF oDlg SIZE 40, 10 PIXEL RIGHT PICTURE \"9 999 999.999\"\n   @ 50, 10 GET oGet2 VAR nGet2 OF oDlg SIZE 40, 10 PIXEL RIGHT PICTURE \"9 999 999.999\"\n   @ 60, 10 GET oGet3 VAR nGet3 OF oDlg SIZE 40, 10 PIXEL RIGHT PICTURE \"9 999 999.999\"\n[url=http&#58;//imageshack&#46;us:o1m2wgb5][img:o1m2wgb5]http&#58;//img367&#46;imageshack&#46;us/img367/2019/patrickja1&#46;png[/img:o1m2wgb5][/url:o1m2wgb5]','',0,'GA==','o1m2wgb5',1,0,'',2,0,0),(29837,6592,7,2,0,'87.218.146.173',1176475891,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3me56fpl',1,0,'',2,0,0),(29838,6674,3,972,0,'68.224.121.249',1176476384,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2esi7v14]You may use the same SIZE for the three GETs:[/quote:2esi7v14]\nOk, but that\'s the problem. If the GET field is width enough, it fits, that\'s OK.\n\nBut I want to get rid of the left spaces in the GET, so, the picture fits into the GET. So, even if I have a picture of \"999999999.99\", and the GET fits only 3 digits, the startvalue of 0.00 is still vissable in the GET.\n\nWhy has the value in the GET spaces on the left side? If we can delete those, we are OK. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nPatrick','',0,'gA==','2esi7v14',1,0,'',972,0,0),(29839,6670,6,743,0,'201.116.76.180',1176476730,1,0,1,1,1,0,'','','gracias por tu respueta,\n\nestube analizando los ejemplos de c\n\n\ny resolvi mi duda, pero aprecio el ejemplo que pones\n\n\ngracias','',0,'gA==','1rc2vmsw',1,0,'',743,0,0),(29840,6565,3,35,0,'65.188.6.143',1176478835,1,0,1,1,1,0,'','','Enrico\n\nSorry to both you once again .. I an trying to delete all blank file_num columns .. and I know the first record evals to NIL .. \n\nI am getting a run time error and I just have no clue ??\n\nRick Lipkin\n\n//------------------------------------\noRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\nTRY\n  oRS:Open( \"SELECT * FROM LWMFS ORDER BY FILE_NUM\" , \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\nCATCH oErr\n  MsgInfo( \"Error in Opening LWMFS table\" )\n  RETURN NIL\nEND TRY\n\n// delete all global file_num = blank\n\noRs:MoveFirst()\ncFILENUM := oRs:Fields( \"file_num\" ):Value\n\nIF cFILENUM = nil\n   SAYING := \"It appears that there are BLANK File Numbers\"+chr(10)\n   SAYING += \"Do you wish to DELETE them Now ?\"+chr(10)\n\n   IF MsgYesNo( SAYING )\n      oRs:Execute( \"DELETE FROM LWMFS WHERE FILE_NUM = \'NIL\' \" )\n      oRs:Update()\n      oRs:MoveFirst()\n   ENDIF\nENDIF\n\n//-- error.log\n========\n   Path and name: C:\\FOX\\DOCKIT\\Dockit.Exe (32 bits)\n   Size: 1,420,288 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 04/13/2007, 11:36:02\n   Error description: Error ADODB.Recordset/16389  E_FAIL: EXECUTE\n   Args:\n     [   1] = C   DELETE FROM LWMFS WHERE FILE_NUM = \'NIL\' \n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:EXECUTE(0)\n   Called from: access.prg =&gt; ACCESS(34)\n   Called from: main.prg =&gt; (b)BUILDMENU(139)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: main.prg =&gt; MAIN(124)','',0,'','7zjs1ffs',1,0,'',35,0,0),(29841,6675,3,1017,0,'70.55.133.213',1176479237,1,0,1,1,1,0,'','MS SOAP Toolkit no longer supported, now what?','Hello all,\n\nI need to implement a SOAP-based Web Service. The classic solution for this has been to use the MSSOAP 3.0 toolkit, but MS no longer supports this. The web services provider has developed their web services with .NET. When I use the old technique of calling web services using MSSOAP.SOAPClient the service is called, but the response is always NIL and should be an XML complex type response).\n\nMSSOAP was depracated years ago, and these web services were developed recently. I think my problems may come from an incompatbility with the new .NET return types and the old MSSOAP\'s abilities.\n\nDoes anybody know abou this?\n\nHas anybody put any serious work into developing an XHarbour SOAP toolkit? If not, and anyone is willing to try, I am ready to contribute.\n\nThanks,\n\nCarlo','',0,'','res45bes',1,0,'',1017,0,0),(29842,6660,6,54,0,'189.132.113.136',1176483040,1,0,1,1,1,1,'','','[quote=&quot;Maurilio Viana&quot;:170e45gk]William,\n\n&gt;&gt; if( hb_pcount()  &gt; 3 )\n\nIntenta cambiar por:\n\nif( pcount() &gt; 3)\n\nSaludos!\nMaurilio[/quote:170e45gk]\n\nSigue el problema, apesar de borrar y recompilar xHarbour.\n\nlo que comentas de pcount() envia un error de función.\n\nEl problema es xharbour.\n\nsaludos','',0,'gA==','170e45gk',1,0,'',54,0,0),(29843,6565,3,6,0,'87.13.209.126',1176485605,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:38xad1n4]oRs:Execute( \"DELETE FROM LWMFS WHERE FILE_NUM = \'NIL\' \" )[/quote:38xad1n4]\n\nYou can\'t use a recordset to execute a query. You need of a connection (see my previous sample). And please note that your query will delete all the records in which FILE_NUM is equal to the string \'NIL\'. Use IsNull() function if you want to delete all the records with FILE_NUM equal to Null:\n\n[code:38xad1n4]oCn&#58;Execute&#40; &quot;DELETE FROM LWMFS WHERE IsNull&#40;FILE_NUM&#41;&quot; &#41;[/code:38xad1n4]\n\nEMG','',0,'gIA=','38xad1n4',1,0,'',6,0,0),(29844,6676,6,875,0,'64.76.108.179',1176488043,1,0,1,1,1,0,'','LISTBOX no me muestra campos Numericos','tengo el siguiente ListBox donde G-&gt;Tco_impo es Numerico (10,2) pero no muestra el valor, aparece en blanco, ¿sera porque los otros campos son caracter?   o ¿se debe definir un PICTURE para los campos numericos?    <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n   @ 01,01 ListBox oBrw2  Fields G-&gt;Tco_codi,G-&gt;Tco_desc,G-Tco_impo ;\n     Header \'Codigo\',\'Descripcion\',\'Importe\' ;\n     Size 180,90 \n\nEspero su ayuda   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nJaime Coronado','',0,'gIA=','2pc57ysu',1,0,'',875,0,0),(29845,6676,6,785,0,'190.64.196.183',1176489482,1,0,1,1,1,0,'','','Jaime:\n\nG[b:z9pupek8]-[/b:z9pupek8]Tco_impo ahí te falta el caracter [b:z9pupek8]&gt;[/b:z9pupek8]\n\nAdemás debe ser Str(G-&gt;Tco_impo)\n\nSaludos\n\nRuben Fernandez.','',0,'QA==','z9pupek8',1,0,'',785,0,0),(29846,6676,6,875,0,'64.76.108.179',1176489622,1,0,1,1,1,0,'','','Ahora si funciono con  el STR(),   pero ahora no se puede modificar ese campo los demas si a pesar de que   lautoedit=.t.     <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n\n\nJaime','',0,'QA==','3ltl60ir',1,0,'',875,0,0),(29847,5261,6,348,0,'201.230.166.151',1176491429,1,0,1,1,1,0,'','Re: IMPORTANTE: Nuevo sistema en la numeración de versión de','Buena alternativa, nos permitira catalogar mejor las versiones\n\nQuizas un aporte mas, es  llevarlo a un formato completo, es decir en vez de poner la version  6.12  ( Junio del 2006) ...  que sea  06.12  \n\nEl \"cero\" es importarte al momento de ordenarlo al catalogarlo..  pequeños detalles,,  pero al final es solo una idea..\n\nEjemplo: \n   FW06.02\n   FW07.09\n   FW10.03....     Seguro  llegamos al año 2010  !!!!   FACIL  !!\n\nSaludos y Adelante  !!!\n\nLubin\n\n\n','',0,'BA==','31klqyap',1,0,'',348,0,0),(29848,6674,3,303,0,'72.199.41.171',1176492633,1,0,1,1,1,0,'','','Patrick,\n\n&gt;Ok, but that\'s the problem. If the GET field is width enough, it fits, that\'s OK. \n\n&gt;But I want to get rid of the left spaces in the GET, so, the picture fits into the GET. So, even if I have a picture of \"999999999.99\", and the GET fits only 3 digits, the startvalue of 0.00 is still vissable in the GET. \n\nThe problem is that two of the GETs are not wide enough for the picture. So if the code was changed to what you want, some of the data would not be visible if a large number was entered. So, either way sometimes data would not be visible. The GET must be wide enough for the picture for everything to work properly.\n\nWhy not just either change the picture to a smaller one, or change the size of the GET to be larger? Is there something special about your situation where these options would not work?\n\nJames','',0,'BA==','1wguobzz',1,0,'',303,0,0),(29849,6565,3,35,0,'65.188.6.143',1176492668,1,0,1,1,1,0,'','','Enrico\n\nThank you .. just never made the code distinction between an ( open )  recordset and an ( execute )  connection .. \n\nI think I have all the recordset movements :\n\noRs:MoveNext()      = skip\n      :MoveFirst()      = go top\n      :MoveLast()      = go bott\n      :Addnew()        = Append\n      :Update()         = commit\noRs:Fields( \"FIELD\" ):Value := \'MyValue\'    Replace    \n\nDifficult to use MSDN .. I got all of the above from searching this forum and your prior posts <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nLets say I have a recordset filter with 10 rows on a related table.. and I want to update a new column with a new foreign key .. something like \"INSERT INTO SECOND TABLE WITH \"+\"\'\"+cID+\"\'\"+\" FOR FILE_NUM = \"+\"\'\"+cFILE_NUM+\"\'\" )  I am sure my syntax is incorrect .. will I need to release the recordset on the second table.. create a connection to the second table and run the query to update the 10 rows ?? ..  \n\n\nTwo other ( hopefully last ) recordset questions .. \n\n1) skip -1 ( possibly ) :MovePrior() ??\n2) Delete current record ( possibly )  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->elCurrent() ??\n\nMany thanks for ALL your help!!\n\nRick Lipkin','',0,'BA==','3c05me0w',1,0,'',35,0,0),(29850,6660,6,54,0,'189.132.113.136',1176493927,1,0,1,1,1,1,'','','Algion podria corroborar el problema?\n\npor favor.','',0,'BA==','1tzxj14x',1,0,'',54,0,0),(29851,6677,22,64,0,'201.72.124.2',1176494441,1,0,1,1,1,1,'','Folder','Una carpeta con tabuladores posibilidades de color por separado (como en el Excel), iconos y degradê.\n\nLike this:\n[img:1pzln6l0]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/FolderIdeal&#46;jpg[/img:1pzln6l0]\n\nor this:\n[img:1pzln6l0]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/OFFICEBAR1&#46;gif[/img:1pzln6l0]\n\nor this:\n[img:1pzln6l0]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/OFFICEBAR2&#46;gif[/img:1pzln6l0]\n\nor this:\n[img:1pzln6l0]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/FolderExcel&#46;PNG[/img:1pzln6l0]','',0,'CA==','1pzln6l0',1,0,'',64,0,0),(29852,6565,3,6,0,'87.13.209.126',1176494738,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:w7gphtl2]Lets say I have a recordset filter with 10 rows on a related table.. and I want to update a new column with a new foreign key .. something like \"INSERT INTO SECOND TABLE WITH \"+\"\'\"+cID+\"\'\"+\" FOR FILE_NUM = \"+\"\'\"+cFILE_NUM+\"\'\" )  I am sure my syntax is incorrect .. will I need to release the recordset on the second table.. create a connection to the second table and run the query to update the 10 rows ?? ..[/quote:w7gphtl2]\n\nSorry, I don\'t understand. Can you rephrase, please?\n\n[quote=&quot;Rick Lipkin&quot;:w7gphtl2]Two other ( hopefully last ) recordset questions .. \n\n1) skip -1 ( possibly ) :MovePrior() ??\n2) Delete current record ( possibly )  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->elCurrent() ??[/quote:w7gphtl2]\n\n1) oRs:MovePrevious()\n2) oRs:Delete()\n\nEMG','',0,'gA==','w7gphtl2',1,0,'',6,0,0),(29853,6674,3,972,0,'68.224.121.249',1176495059,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:25pdkqhg]Patrick,\n\n&gt;Ok, but that\'s the problem. If the GET field is width enough, it fits, that\'s OK. \n\n&gt;But I want to get rid of the left spaces in the GET, so, the picture fits into the GET. So, even if I have a picture of \"999999999.99\", and the GET fits only 3 digits, the startvalue of 0.00 is still vissable in the GET. \n\nThe problem is that two of the GETs are not wide enough for the picture. So if the code was changed to what you want, some of the data would not be visible if a large number was entered. So, either way sometimes data would not be visible. The GET must be wide enough for the picture for everything to work properly.\n\nWhy not just either change the picture to a smaller one, or change the size of the GET to be larger? Is there something special about your situation where these options would not work?[/quote:25pdkqhg]\n\nYes, I want to have a picture of \"9999999.99999\" in a narrow GET. So, if we can get rid of the spaces in from of the get, I\'m saved.\n\nIn FiveWin 1.9 I did not have that problem.\n\nPatrick','',0,'gA==','25pdkqhg',1,0,'',972,0,0),(29854,6674,3,303,0,'72.199.41.171',1176495420,1,0,1,1,1,0,'','','Patrick,\n\n&gt;Yes, I want to have a picture of \"9999999.99999\" in a narrow GET.\n \nWhy?\n\n&gt;So, if we can get rid of the spaces in from of the get, I\'m saved. \n\nAs I mentioned, changing TGET will just create another problem.\n\nJames','',0,'gA==','6u5n2ns3',1,0,'',303,0,0),(29855,6480,6,207,0,'189.158.115.73',1176497475,1,0,1,1,1,0,'','','ya entrados en gastos,puedes enviarmela tambien a mi paisano\n\nMiguel Salas\n<!-- e --><a href=\"mailto:msalas71@hotmail.com\">msalas71@hotmail.com</a><!-- e -->\nSaludos desde Pánuco, Veracruz','',0,'gA==','a7fl4v85',1,0,'',207,0,0),(29856,6676,6,228,0,'190.24.7.15',1176499104,1,0,1,1,1,1,'','Intenta..','Amigo ya intentaste con la clausula transform..\n\nTRANSFORM(MYDBF-&gt;MYCAMPO,\"999,999,999.99\")\n\nEspero te sirva..  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','100r7dgu',1,0,'',228,0,0),(29857,6678,3,103,0,'201.8.91.13',1176501820,1,0,1,1,1,1,'','New DBF2SQL','Hi,\n\n    The version 2.4 of DBF2SQL is available. You can download at <!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/fw/dbf2sql-2.4.zip\">http://www.sqllib.com.br/fw/dbf2sql-2.4.zip</a><!-- m -->\n\nBest Regards,','',0,'gA==','3ihkdj29',1,0,'',103,0,0),(29858,6679,6,103,0,'201.8.91.13',1176501957,1,0,1,1,1,1,'','DBF2SQL - Nueva versión','Hola a todos,\n\n   La nueva versión de DBF2SQL esta disponible. Las correcciones y/o novedades están en el Whatsnew.txt. Podéis descargar desde <!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/dbf2sql-2.4.zip\">http://www.sqllib.com.br/dbf2sql-2.4.zip</a><!-- m -->\n\nSaludos,','',0,'gA==','2nt2dqfb',1,0,'',103,0,0),(29859,6677,22,138,0,'189.141.67.139',1176502069,1,0,1,1,1,1,'','','CanalFive TabEx (work in progress, soon to be released):\n\n[img:1ktiz3co]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/tabex&#46;jpg[/img:1ktiz3co]\n\nSample :\n\n[url:1ktiz3co]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/c5tabex2&#46;zip[/url:1ktiz3co]','',0,'GA==','1ktiz3co',1,0,'',138,0,0),(29860,6303,4,2,0,'87.218.146.173',1176502469,1,0,1,1,1,1,'','','Vilian,\n\nJose Luis Capel delivered ZIP support for FWPPC. Whats wrong with it ?\n\nCan\'t you use a compatible ZIP manager in Windows with the created files ?','',0,'GA==','3mcpqlb8',1,0,'',2,0,0),(29861,6303,4,2,0,'87.218.146.173',1176503479,1,0,1,1,1,1,'','','Vilian,\n\nAll the C files that you sent me, compiled ok on first try (I didn\'t build a make yet):\n\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Foadler32.obj adler32.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Focompress.obj compress.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Focrc32.obj crc32.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Fodeflate.obj deflate.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Fogzio.obj gzio.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Foinfback.obj infback.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Foinffast.obj inffast.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Foinflate.obj inflate.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Foinftrees.obj inftrees.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Fominigzip.obj minigzip.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Fotrees.obj trees.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Founcompr.obj uncompr.c\nc:\\vce\\bin\\clarm -c /DARM /DUNICODE -D__HARBOUR__ -DHB_API_MACROS -D__FLAT__ -Ic:\\harbour_ce\\harbour\\include -Ic:\\vce\\include\\arm -Fozutil.obj zutil.c','',0,'GA==','80b31qto',1,0,'',2,0,0),(29862,6565,3,35,0,'65.188.6.143',1176504999,1,0,1,1,1,0,'','','Enrico\n\nSounds complicated .. but not really .. that Access table I sent you had prob 6 more relational tables .. and they are all joined by the primary\\foreign key of File_num.\n\nThis little application is an effort at cleaning up this data and instead of using file_num as the join .. use it as a way of identifying those rows that need to have inserted into them the ( matching ) ID sequence id for the lwmfs table.\n\nThe Lwmfs.mdb is the back end for a local intranet web application for our bureau . about 300 people. This application registers all the file documents that go into a certain file in the file room.  \n\nOver the years lots of bad data has been entered into this database and we are now at a point of re-structuring the relationships as we can no longer use file_num as a static column ( subject to change ).. then port all the data to MS Sql Server.\n\nIn the lwmfs table is a ID column which is numeric auto sequence and each of the relational tables have the same column .. but are not related to each other...\n\nWe want to stop the autoincrement of the relational ID columns and just use the ID column of the lwmfs table .. and identify the rows in each relational table .. and replace the ID column with the ID value in the lwmfs table.\n\nWhat I am trying to do is write an application what orders the lwmfs table .. and identity all those relational rows in each of the other tables by their matching file_num .. then the user will chose a \'keeper\' record in lwmfs and then I will fire off a cascade update to go out and re-order the relational tables with the matching ID from lwmfs.\n\nWhat this program will do:\n\n1) Allow a person to hi-lite a row in lwmfs as a keeper record ( may have multiple file_num rows with duplicate numbers .. that row becomes the unique \'keeper\' record.\n\n2) Go out and replace all the ID columns in the relational tables .. now joined by file_num to be the same ID of the keeper ( lwmfs ) record.\n\nSo I will have 2 SQL statements .. one as a gather the information and the other will be a replace statement for the same join .. only editing the ID column to match the keeper ID of the lwmfs table.\n\nLooking for that magic INSERT sql statement and the connection string to update all the matching relational records and tables.\n\nHope this made better sense ..\n\nRick Lipkin','',0,'GA==','dv6dhlg1',1,0,'',35,0,0),(29863,6665,3,2,0,'87.218.146.173',1176505614,1,0,1,1,1,1,'','','managing resources in FWH:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25864120/uestudio1.zip.html\">http://rapidshare.com/files/25864120/uestudio1.zip.html</a><!-- m -->','',0,'GA==','1to3wmkw',1,0,'',2,0,0),(29864,6667,6,2,0,'87.218.146.173',1176505644,1,0,1,1,1,1,'','','Usando recursos en FWH y UEStudio:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25864120/uestudio1.zip.html\">http://rapidshare.com/files/25864120/uestudio1.zip.html</a><!-- m -->','',0,'GA==','7845hauu',1,0,'',2,0,0),(29865,6673,2,2,0,'87.218.146.173',1176505739,1,0,1,1,1,1,'','','Alfonso,\n\nPuedes variar el tamaño con:\n\noDialog:nWidth = ...\noDialog:nHeight = ...\n\nigual para los botones y el browse. Y las posiciones de los botones con:\n\noButton:nTop = ...\noButton:nLeft = ...','',0,'GA==','3oqw6le2',1,0,'',2,0,0),(29866,6675,3,2,0,'87.218.146.173',1176507586,1,0,1,1,1,1,'','','Carlo,\n\nYou may check it with xHarbour.com\n\nAFAIK they were developing/providing a SOAP solution for xHarbour','',0,'GA==','37zuf7dl',1,0,'',2,0,0),(29867,6565,3,35,0,'65.188.6.143',1176507706,1,0,1,1,1,0,'','','Enrico\n\nI am truly a \'fish out of water here\' .. question after question and I truly appreciate your patience ..\n\nWhy when I try to open a recordset and the sql statement does not find any results .. can I not try to trap a \'no find\' situation ..\n\nIf I find a matching file_num .. everything works fine.\n\nRick Lipkin\n\n//---------------------------\noRs1 := CREATEOBJECT( \"ADODB.Recordset\" )\ncSQL := \"SELECT * FROM CERCLA_INDEXING WHERE ASSOCIATED_FILE_NUM =\'\"+cFILENUM+\"\' order by date_\"\n\nMsgInfo( cSQL )\n\nTRY\n   oRS1:Open( cSQL, \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\nCATCH oErr\n   MsginFo( \"failed to open table\" )\n  * ? oErr:Description\n   RETURN NIL\nEND TRY\n\noRS1:MoveLast()  // trying to catch a nul recordset errors here\n\n\nPath and name: C:\\FOX\\DOCKIT\\Dockit.Exe (32 bits)\n   Size: 1,420,800 bytes\n   Time from start: 0 hours 0 mins 40 secs \n   Error occurred at: 04/13/2007, 19:33:40\n   Error description: Error ADODB.Recordset/16389  E_FAIL: MOVELAST\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:MOVELAST(0)\n   Called from:  =&gt; _CERCLA(164)\n   Called from: access.prg =&gt; (b)_LWMFSBROW(83)\n   Called from: CONTROL.PRG =&gt; TCONTROL:LDBLCLICK(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:LDBLCLICK(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TWBROWSE:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: main.prg =&gt; MAIN(124)','',0,'GA==','198pb60i',1,0,'',35,0,0),(29868,6669,6,507,0,'200.77.18.206',1176508203,1,0,1,1,1,1,'','','Amigo: checate en el super google por el PDFCreator\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com.mx/search?hl=es&amp;q=pdfcreator&amp;meta=\">http://www.google.com.mx/search?hl=es&amp;q ... ator&amp;meta=</a><!-- m --> \n\nsaludos\n\nLuis Fernando Rubio Rubio','',0,'GA==','2u3txf04',1,0,'',507,0,0),(29869,6642,20,49,0,'62.13.172.67',1176509193,1,0,1,1,1,1,'','','grazie forse ho risolto il problema .','',0,'GA==','3khiot5w',1,0,'',49,0,0),(29870,6675,3,1017,0,'70.55.133.213',1176509363,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI will ask again - I asked a few months ago and I got the suggestion to use MSSOAP.SOAPClient(). I had asked a year before that, and got no response. I\'ll try again - I hope they aren\'t sick of me asking!\n\nCarlo','',0,'GA==','1g9d0sue',1,0,'',1017,0,0),(29871,6680,20,49,0,'62.13.172.67',1176509612,1,0,1,1,1,1,'','Leggere menu e tooltip con txttosppeeck','Non so se conoscete la classe txttospeeck di Cesar\nè una classe per cui dando un testo o un get ti legge ( facendo parlare il computer) la parola contenuta nel testo o nel get .\nNaturalmente deve essere installata una serie di agent per i tipi di voce c\'è  quella inglese,italiana ecc.\n\nLa mia domanda è semplicissima come potrei estendere questa proprietà se clicco su un menu o su una icona che abbia un tooltip e posso far leggere la parola corrispondente .\n\nVi spiego : \nin classe ho un alunno cieco che potrebbe avere dei benefici se aprendo winword oppure excell oppure qualsiasi altro programma  potesse sentire attraverso le cuffie la parola relativa al menu o a quel bottone oppure se usando la tastiera e scrivendo una frase potesse scrivendo sentire  parola per parola scritta .\n\nCome potrei usare questa classe a questo scopo ?\n\nGrazie in anticipo .','',0,'GA==','1wgoiohf',1,0,'',49,0,0),(29872,6681,6,1013,0,'200.121.79.126',1176509720,1,0,0,1,1,0,'','Proteccion coin Sentinel  Pro','Hola amigos\n\nAlguien me puede ayudar como usar la libreria SP32W.LIB con FWH y Harbour.\n\nGracias,\n\nMarcelo','',0,'GA==','36a66i09',1,0,'',1013,0,0),(29873,6650,2,496,0,'200.107.36.176',1176510306,1,0,1,1,1,0,'','','Entonces, te falta poner el  oPrn:EndPage() despues de comprobar el numero de líneas:\n\nIf nLineas &gt;= 100\n[color=green:25e5ky6b]oPrn:EndPage() [/color:25e5ky6b]\noPrn:StartPage() \nnFila := 1 \n.......\n\nUn saludo\n\nMarcelo Jingo','',0,'Ag==','25e5ky6b',1,0,'',496,0,0),(29874,6677,22,49,0,'62.13.172.67',1176510600,1,0,1,1,1,1,'','','How many euro for it ?','',0,'Ag==','4hjy7ybj',1,0,'',49,0,0),(29875,6565,3,35,0,'65.188.6.143',1176510628,1,0,1,1,1,0,'','','This works .. if sql statement recordset returns no rows ..  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nIF oRS1:eof\n   Msginfo( \"not found\" )\n   RETURN(NIL)\nENDIF','',0,'Ag==','1n49xidc',1,0,'',35,0,0),(29876,6682,6,743,0,'201.116.76.180',1176511537,1,0,1,1,1,0,'','una de twbrowse','tengo la siguiente duda, hay alguna variable que me regrese los registros visibles dentro del browser, por ejemplos me despleja 15 registros el browser, pero como obtengo este dato y en donde pinta cada uno de los registros, para que lo necesito bueno por estetica no megusta que al final del browser me deja una espacio en blanco, estaba investigando como estirar la ultima linea o registro para cubrir esto\n\n\n\ngracias','',0,'Ag==','i7jfs1vu',1,0,'',743,0,0),(29877,6682,6,496,0,'200.107.36.176',1176514618,1,0,1,1,1,0,'','',':nRowCount()  devuelve el número de filas visibles\n\nUn saludo\n\nMarcelo Jingo','',0,'Ag==','1yyybpqf',1,0,'',496,0,0),(29878,6681,6,138,0,'189.141.67.139',1176516350,1,0,1,1,1,1,'','','Marcelo:\n\nNosotros fuimos contratados por SafeNet, fabricantes del Sentinel hace un par de años para hacer la interfaz para el candado Super Pro para Harbour.\n\nDesarrollamos una lib completa para Harbour con Borland C++ que se puede accesar facilmente y te permite controlar todas las características del candado, se puede utilizar en Harbour modo consola o bien desde FiveWin o desde cualquier otra interfaz grafica de Harbour o xHarbour, soporta candados paralelos y usb.\n\nEsta interfaz deberia venir incluida con el CD que acompaña al kit de desarrollo de Sentinel Super Pro, si no la tienes, pide a tu distribuidor que te la proporcione, si tu distribuidor no cuenta con ella, dile que la pida a Mexico, la informacion de contacto es:\n\nLuis Gabriel Nuñez\nSafeNet Mexico\n<!-- e --><a href=\"mailto:lnunez@safenet-inc.com\">lnunez@safenet-inc.com</a><!-- e -->','',0,'Ag==','2lenxh18',1,0,'',138,0,0),(29879,6669,6,138,0,'189.141.67.139',1176516486,1,0,1,1,1,1,'','','Con Crystal XI puedes utilizar la interfaz ActiveX desde FiveWin, funciona perfectamente.','',0,'Ag==','2f4487ib',1,0,'',138,0,0),(29880,6677,22,138,0,'189.141.67.139',1176521487,1,0,1,1,1,1,'','','We don\'t have a price yet, until the control will be ready, it will take another two weeks to be fully tested and operational, as soon as it is ready we let you know.','',0,'Ag==','37w46q8i',1,1176578462,'',138,1,0),(29881,6672,1,2,0,'87.218.146.173',1176529980,1,0,1,1,1,1,'','','oDialog:nWidth = ... \noDialog:nHeight = ... \n\n&lt;oControl&gt;:nTop = ... \n&lt;oControl&gt;:nLeft ...\n&lt;oControl&gt;:nWidth = ... \n&lt;oControl&gt;:nHeight = ...','',0,'Ag==','2476t4da',1,0,'',2,0,0),(29882,6677,22,15,0,'203.67.108.208',1176534643,1,0,1,1,1,0,'','','Hello\n\nHow about it? Look Bar.\n\n[url=http&#58;//img72&#46;imageshack&#46;us/my&#46;php?image=c5bar4ra4&#46;jpg:3pt7yn88][img:3pt7yn88]http&#58;//img72&#46;imageshack&#46;us/img72/2672/c5bar4ra4&#46;th&#46;jpg[/img:3pt7yn88][/url:3pt7yn88]\n\nRegards,\n\nRichard','',0,'GA==','3pt7yn88',1,0,'',15,0,0),(29883,6683,2,1021,0,'82.159.125.88',1176538837,1,0,1,1,1,0,'','Pasar campos Memo DBT a Campos Memo FPT. ¿Cómo?','No sé, si la pregunta es pertinente en este foro. Quiero pasar viejos prg de clipper5.3 a Fivewin. Los tengo con indices NTX y los quiero pasar con (RDD) CDX. Con las DBF no hay problema. El problema está en la conversion de los campos memo. ¿Existe alguna rutina en programacion que convierta DBT en FPT, o bien hay que hacerlo manualmente uno a uno? .\n¿Si alguien lo sabe?. Gracias por la ayuda','',0,'GA==','18npj9yj',1,0,'',1021,0,0),(29884,2174,3,707,0,'222.124.20.50',1176540345,1,0,1,1,1,0,'','','Hi Silvio, sorry for Error\n\n[quote:1plvilpi]\nplease there is many erors \nit not found lBebas \n\ncan you write a sample for it ? \n\n[/quote:1plvilpi]\n\n\n\nPlease Copy and Paste again the code on this forum, It was edited\n\nThank\'s\nAreang','',0,'gA==','1plvilpi',1,0,'',707,0,0),(29885,6684,3,63,0,'83.49.110.35',1176543601,1,0,1,1,1,0,'','Mouse over on a Window','Is it possible to implement the mouseover funcion for a Window / dialog?\nThe idea is to show a tooltip (or execute other actions) when the cursor moves over a particular window.\nThanks\nRafael','',0,'gA==','29a8qm92',1,0,'',63,0,0),(29886,6684,3,6,0,'87.16.213.228',1176544307,1,0,1,1,1,1,'','Re: Mouse over on a Window','Try bMMoved\n\nEMG','',0,'gA==','68g28yjr',1,0,'',6,0,0),(29887,6565,3,6,0,'87.16.213.228',1176544486,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:3c4w392m]Why when I try to open a recordset and the sql statement does not find any results .. can I not try to trap a \'no find\' situation ..[/quote:3c4w392m]\n\n[code:3c4w392m]IF oRs&#58;EOF\n    // no records\nENDIF[/code:3c4w392m]\n\nor\n\n[code:3c4w392m]IF oRs&#58;RecordCount = 0\n    // no records\nENDIF[/code:3c4w392m]\n\nEMG','',0,'gIA=','3c4w392m',1,0,'',6,0,0),(29888,6684,3,63,0,'83.49.110.35',1176545508,1,0,1,1,1,0,'','','Enrico:  I had forgotten about MMoved.  It works. Thank you again!    \nRafael','',0,'gIA=','2lpej4bj',1,0,'',63,0,0),(29889,6685,6,838,0,'80.59.225.15',1176545677,1,0,1,1,1,0,'','Ajuste Tamaño Listbox','Hola amigos\n\nMe estoy liando y no se porque me sale el listbox como en la imagen siguiente:\n[img][url=http&#58;//imageshack&#46;us:1t7w17zb][img]http://img242.imageshack.us/img242/6538/ventanawx3.jpg[/img][/url:1t7w17zb][/img]\nPorque? no me ocupa la pantalla?\nEl codigo del listbox es:\n[code:1t7w17zb]\n      @ 30, 0 Listbox oLbx FIELDS  dtoc&#40;&#40;aAlias&#91;1&#93;&#41;-&gt;Fecha&#41;,;\n                               oemtoansi&#40;&#40;aAlias&#91;1&#93;&#41;-&gt;cnomcli&#41;;\n                               HEADER  &quot; Fecha &quot;, &quot; Cliente &quot;;\n                               FIELDSIZES    52,200;\n                               ALIAS aAlias&#91;1&#93;;\n                               CURSOR dedo;\n                               COLOR CLR_BLACK,  nRGB&#40;226,226,208&#41; ;\n                               ON LEFT DBLCLICK  &#40;iif&#40;!&#40;aAlias&#91;1&#93;&#41;-&gt;&#40;eof&#40;&#41;&#41;,&#40;cTitulo&#58;=&quot;Visualización de acciones &quot;,Entalba&#40;aAlias,cTitulo,&quot;V&quot;&#41;,oLbx&#58;Refresh&#40;&#41;&#41;,&#46;T&#46;&#41;&#41;;\n                               OF Publicas&#58;oWppal;\n			       PIXEL\n   oLbx&#58;nStyle&#58;= nOr&#40; WS_VSCROLL, WS_HSCROLL &#41;\n   oLbx&#58;nLineStyle &#58;= 1\n   oLbx&#58;Setcolor&#40;nil,RGB&#40;245,239,191&#41;&#41;\n   oLbx&#58;nClrBackHead &#58;= RGB&#40;248,191,36&#41;\n   oLbx&#58;aJustify &#58;= &#123;&#46;F&#46;,&#46;F&#46;&#125;\n   oLbx&#58;aHJustify &#58;= &#123;2,2&#125;\n   oLbx&#58;nClrPane&#58;=&#123;||iIF&#40;&#40;oLbx&#58;cAlias&#41;-&gt;&#40;OrdKeyNo&#40;&#41;&#41;%2==0,nRGB&#40;245,219,175&#41;,nRGB&#40;245,239,191&#41;&#41;&#125;\n[/code:1t7w17zb]\n\nSaludos\n\nJose Luis','',0,'GIA=','1t7w17zb',1,0,'',838,0,0),(29890,6686,6,52,0,'201.212.254.39',1176549695,1,0,1,1,1,1,'','twBrowse Muestra y no muestra la ultima fila...','Se carga el browser. y se produce un error de visualizacion al hacer estos pasos:\n\n[url=http&#58;//img144&#46;imageshack&#46;us/my&#46;php?image=dibujodu6&#46;jpg:14kdo531][img:14kdo531]http&#58;//img144&#46;imageshack&#46;us/img144/8025/dibujodu6&#46;th&#46;jpg[/img:14kdo531][/url:14kdo531]\n\n1) estando en la ultima fila presiono flecha hacia abajo\n2) flecha hacia arriba\n3) nuevamente flecha hacia abajo y esforzar otra flecha hacia abajo ( como si supiesemos que hay otra fila mas )\n\n4) la ultima fila desaparece.\n\n[url=http&#58;//img83&#46;imageshack&#46;us/my&#46;php?image=dibujo2go2&#46;jpg:14kdo531][img:14kdo531]http&#58;//img83&#46;imageshack&#46;us/img83/1482/dibujo2go2&#46;th&#46;jpg[/img:14kdo531][/url:14kdo531]\n\nQue puede estar pasando?\n\nGracias.','',0,'GA==','14kdo531',1,0,'',52,0,0),(29891,6565,3,6,0,'87.16.213.228',1176549783,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:29fbegli]Looking for that magic INSERT sql statement and the connection string to update all the matching relational records and tables.[/quote:29fbegli]\n\nI think you have to issue several INSERT statement.\n\nEMG','',0,'gA==','29fbegli',1,0,'',6,0,0),(29892,6480,6,384,0,'200.195.30.30',1176550533,1,0,1,1,1,1,'','','Por favor, poderias me enviar também ?\n\n<!-- e --><a href=\"mailto:toyasis@yahoo.com.br\">toyasis@yahoo.com.br</a><!-- e -->\n\nMui grato\n[]s\ntoya','',0,'','5z7yi50p',1,0,'',384,0,0),(29893,6565,3,35,0,'65.188.6.143',1176554131,1,0,1,1,1,0,'','','Enrico\n\nI think I came to that same conclusion .. many relational tables .. just apply insert updates to each instead of combining them all into one join .. \n\nI can tell you .. this exersize has been a valuable lesson .. but thinking down the road .. I was toying with the idea of sqlrdd for a Ms Sql project coming up .. \n\nAny feelings on ADO vs ( perhaps ) the sqlrdd ?? ... what has to be on the client to make the connection ?? .. for ms sql that is ?? I am very pleased with ADO speed and recordsets..\n\nThanks\n\nRick Lipkin','',0,'','u648w5j6',1,0,'',35,0,0),(29894,6679,6,36,0,'200.113.56.235',1176561694,1,0,1,1,1,0,'','','Kleyber\n\nVez en cuando sale este error\n\n[url=http&#58;//imageshack&#46;us:25ew556w][img:25ew556w]http&#58;//img246&#46;imageshack&#46;us/img246/692/errosqleq1&#46;jpg[/img:25ew556w][/url:25ew556w]\n\nSaludos\nPatricio','',0,'GA==','25ew556w',1,0,'',36,0,0),(29895,6687,6,436,0,'200.117.176.4',1176565819,1,0,1,1,1,0,'','Problemas con Report (Preview)','Hola Amigos\n\nEn una red con 4 pc con XP (todas) me ocurre lo siguiente: cuando se pretende realizar un listado (bastante complejo), el sistema sin emitir error se sale directamente de la aplicacion cerrándola.\nSólo en la servidora arma y muestra el listado OK. Yo lo que hice fue recomendarles que agreguen mas RAM puesto que solo tenian 256 y lo llevaron a 1Gb, esto pensando que quizàs colapsaba por esto.\nAhora no se por donde buscar..., sugerencias?\n\nGracias','',0,'GA==','2fz5l9rl',1,0,'',436,0,0),(29896,6681,6,1013,0,'201.230.202.64',1176566424,1,0,0,1,1,0,'','Sentinel Pro','Hola Rene \n\nQue gusto saber que sigues siendo una gran apoyo para esta comunidad\npero requiero utilizar los antiguos candados SENTINEL PRO, tengo un monton, se puede utilizar la misma libreria ?\n\nSaludos desde Lima Peru,\n\nMarcelo','',0,'GA==','1iv2yzva',1,0,'',1013,0,0),(29897,6565,3,6,0,'87.16.213.228',1176567303,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:20rni5sq]Any feelings on ADO vs ( perhaps ) the sqlrdd ?? ... what has to be on the client to make the connection ?? .. for ms sql that is ??[/quote:20rni5sq]\n\nAn ADORDD would be a wrapper to ADO and could be very useful to keep xBase syntax. But conceptually xBase and SQL are two very different beasts and I\'m still not sure if xBase syntax is the right path to follow.\n\nEMG','',0,'gA==','20rni5sq',1,0,'',6,0,0),(29898,6688,6,471,0,'190.40.204.57',1176567502,1,0,1,1,1,1,'','TURL CUAL ES EL METODO PARA ENVIAR UN ARCHIVO A UN FTP','AMIGOS \n\nCUAL ES EL METODO PARA ENVIAR UN ARCHIVO A UN FTP  DE  LA CLASE TURL  O COMO PUEDO SABER  CUALES SON SUS METODOS   \nSOLO SE COMO SE BAJA AHORA DESEO ENVIAR\n\noUrl := tURL():New(cGUARDAR)\n    oClient := tIPClient():New( oUrl )\n    oClient:nConnTimeout = 20000\n    oClient:Open( oUrl )\n    oClient:ReadToFile( cCOMO ) //\"newver.txt\" )\n    oClient:Close()\n\n\nGRACIAS POR LA AYUDA\n\nVZLL','',0,'gA==','1lklp5bp',1,0,'',471,0,0),(29899,6565,3,2,0,'87.218.146.173',1176574158,1,0,1,1,1,1,'','','Harbour\'s USRRDD could be used to easily implement an ADORDD and test how it goes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1r0ra9hf',1,0,'',2,0,0),(29900,6565,3,6,0,'87.16.213.228',1176574529,1,0,1,1,1,1,'','','True. The problem with USRRDD is the lack of documentation and samples.\n\nEMG','',0,'gA==','1ka2gxjh',1,0,'',6,0,0),(29902,6677,22,138,0,'189.141.67.139',1176578311,1,0,1,1,1,1,'','','Tool bar is done, actually ready for sale:\n\nCanalFive Toolbar:\n\n[img:2n8sus6h]http&#58;//www&#46;canalfive&#46;com/web/modules/_prod_c5bar/images/1&#46;png[/img:2n8sus6h]\n[img:2n8sus6h]http&#58;//www&#46;canalfive&#46;com/web/modules/_prod_c5bar/images/2&#46;png[/img:2n8sus6h]\n[img:2n8sus6h]http&#58;//www&#46;canalfive&#46;com/web/modules/_prod_c5bar/images/3&#46;png[/img:2n8sus6h]\n\nSamples: \n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/objeto/c5bar1.zip\">http://www.google.d2g.com/objeto/c5bar1.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/objeto/c5bar2.zip\">http://www.google.d2g.com/objeto/c5bar2.zip</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/objeto/c5bar3.zip\">http://www.google.d2g.com/objeto/c5bar3.zip</a><!-- m -->','',0,'CA==','2n8sus6h',1,0,'',138,0,0),(29903,6683,2,138,0,'189.141.67.139',1176578701,1,0,1,1,1,1,'','','Super facil:\n\n[code:1ya09bf9]REQUEST DBFCDX, DBFNTX\nRDDSETDEFAULT&#40;&quot;DBFNTX&quot;&#41;\n\nUSE &lt;archivo dbf con campos memo DBT&gt;\nCOPY TO &lt;archivo dbf con campos memo FPT&gt; VIA &quot;DBFCDX&quot;[/code:1ya09bf9]\n\nY listo, el proceso de copy to, usando otro RDD (via DBFCDX)  hace la traduccion de datos de los campos memo de manera automatica, crea un nuevo DBF con su respectivo FPT','',0,'AIA=','1ya09bf9',1,0,'',138,0,0),(29904,6686,6,138,0,'189.141.67.139',1176579069,1,0,1,1,1,1,'','','Es el TWBrowse de Hernan ¿ verdad ?.\n\nEfectivamente, ese es un bug de las primeras versiones, creo que ya esta corregido, el problema se debe a que el proceso de pintado \"piensa\" que el browse tiene footers, y entonces no repinta la ultima linea.','',0,'AIA=','28uue7li',1,0,'',138,0,0),(29905,6685,6,138,0,'189.141.67.139',1176579261,1,0,1,1,1,1,'','','Tienes que avisarle a la ventana contenedora que control es que toma el aera cliente:\n\nPublicas:oWppal:SetControl(oLbx)\n\nY listo, esto debe de ir antes del ACTIVATE WINDOW','',0,'AIA=','tl9kjqdw',1,0,'',138,0,0),(29906,6538,6,975,0,'200.21.137.146',1176585079,1,0,1,1,1,0,'','','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> Para Antonio, Que pasa con la ayuda, estoy esperando. hay un ejemplo en la carpeta de ejemplos que se llama TESTXBWR.PRG, el cual compilo y presenta errores. Respondame algo positivo.\n\n\nGracias\n\n\n\nJhon J.V.D\nAracataca - Magdalena - Colombia \"Tierra Nobel\"','',0,'AIA=','2mgh0yoh',1,0,'',975,0,0),(29907,6687,6,78,0,'190.40.238.198',1176589148,1,0,1,1,1,0,'','','Talvez en las estaciones de trabajo no esten definidas las impresoras... a mi me sucedio,.,,\nSalu2\nWilli','',0,'AIA=','1rvidcwp',1,0,'',78,0,0),(29908,6480,6,78,0,'190.40.238.198',1176589383,1,0,1,1,1,0,'','','Si no es mucha molestia,,, me la envias a mi tambien??\nGracias sr.\n\n<!-- e --><a href=\"mailto:ekasoftware@infonegocio.net.pe\">ekasoftware@infonegocio.net.pe</a><!-- e -->\n<!-- e --><a href=\"mailto:ekasoftware@hotmail.com\">ekasoftware@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:svite@hotmail.com\">svite@hotmail.com</a><!-- e -->\n\n\nSalu2\nWilli','',0,'AIA=','2zzw5cxo',1,0,'',78,0,0),(29909,6686,6,52,0,'201.212.254.39',1176590670,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:4wqdm7rd]Es el TWBrowse de Hernan ¿ verdad ?.\n\nEfectivamente, ese es un bug de las primeras versiones, creo que ya esta corregido, el problema se debe a que el proceso de pintado \"piensa\" que el browse tiene footers, y entonces no repinta la ultima linea.[/quote:4wqdm7rd]\n\nY desde donde puedo bajar la nueva? o tengo que actualizar el FWH tambien?','',0,'gA==','4wqdm7rd',1,0,'',52,0,0),(29910,6565,3,35,0,'65.188.6.143',1176592537,1,0,1,1,1,0,'','','Enrico\n\nOne last ( I hope ) question .. I am using your :filter suggestion for locate records .. is there a :find() or :locate() method in ADO .. I just want to \'seek\' a record in a recordset and move the pointer to that record ..\n\nAlso .. it appears that a recordset is ( like ) a \'local cursor\' .. what are the visability of updates from one workstation recordset to another workstation ( recordset ) that may have the same table open .. does the UPDATE clause on the listbox allow the recordsets to be refreshed from the table .. or is it once the recorset is created .. it never goes back to the origional table for refreshes ??\n\nThanks again .. I will be converting a large dbfcdx app soon to ms sql .. I know if I go the ADO route i will have to re-write a good bit of code .. but a \'wrapper\' ADO rdd would be nice... \n\nRick Lipkin','',0,'gA==','1guti9qq',1,0,'',35,0,0),(29911,2676,3,324,0,'89.216.32.242',1176601646,1,0,1,1,1,0,'','PDF maintanence','I am using IsedQuickPDf\nI load PDF  and write the needed text all over the PDF (nom mater how many pages PDF has)\nThen I can save the new PDF name, and then I can use this file whatever way I want (also to send as the mail attachement)\nUsing xharbour/FWH','',0,'gA==','3z890e0h',1,0,'',324,0,0),(29912,6392,3,324,0,'89.216.32.242',1176601883,1,0,1,1,1,0,'','Vista','@driessen\nHi Michel,\nI am testing our huge app on Vista. xHarbour/FWH 32-bit  app\nEverything works perfect. No lag when viewing reports. Everyting is faster under Vista, including reports\nmaybe you have some specific aproach?\nregards\nBoris','',0,'gA==','32ksh41b',1,0,'',324,0,0),(29913,6485,6,95,0,'189.155.107.208',1176602514,1,0,1,1,1,0,'','','Estimado Antonio\n\n1 .- Se que un archivo con letras mayusculas es diferente a uno con minusculas\nComo se puede hacer para que sean siempre iguales, ?\n\n2.- Este error me marca al finalizar el ejemplo de abajo.\n\n---------------------------------------\nTotal memory allocated: 34260 bytes (534 blocks)\nWARNING! Memory allocated but not released: 22 bytes (1 blocks)\nfm.c:612: HB_TR_ERROR Block 1 (size 18) MSGINFO(0), \"Archivo no existe.\"\nErase is delete.                                                        \nInterrupt is control-C (^C).\nmacs-computer:~/fivemac/samples mac$ \n\ninclude \"FiveMac.ch\"\n\nfunction Main()\n\n  local _file_name := \"/Users/mac/fivemac/samples/belyndaosvaldo.prg\"\n \n  if ! file( _file_name )\n     msginfo( \"Archivo no existe\")\n  else\n     msginfo( \"Archivo si existe\")\n  endif\n  \n  \nreturn NIL\n\nYa que he estado convirtiendo unas funciones que uso para abrir archivos y utilizo la funcion file() y esta me truena, asi que quize tratar de crear un ejemplo, pero solo consigo el error que comento arriba.\n\nDe antemano muchas gracias.\nOsvaldo Ramirez','',0,'gA==','1vx9dl9v',1,0,'',95,0,0),(29914,6689,3,1017,0,'70.55.133.213',1176608733,1,0,1,1,1,0,'','SAY / GET behaviour','Hi Antonio,\n\nI\'m finally starting to post questions regarding the legacy code port that I have to do. I am starting by converting my low-level video functions, so things are starting off with very basic display issues:\n\nThe following code produces strange results for me:\n\n[code:nbaoolwm]\n#include &quot;fivewin&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n   local oWnd, cText &#58;= &quot;GET_TEXT&quot;\n   DEFINE WINDOW oWnd TITLE &quot;TEST WINDOW&quot;\n   @ 2, 2 SAY &quot;SAY_TEXT&quot; COLOR 1\n   @ 2, 30 GET cText\n   @ 3, 10 BUTTON &quot;&amp;Button&quot; SIZE 80, 20\n   ACTIVATE WINDOW oWnd\nRETURN NIL\n[/code:nbaoolwm]\n\nFirst, I [b:nbaoolwm][u:nbaoolwm]have[/u:nbaoolwm][/b:nbaoolwm] to specify COLOR in the SAY statement, or the text does not appear (perhaps it is being rendered in the Windows background colour?)\n\nSecond, the text being rendered by the SAY statements is truncated,  it appears that the label is not correctly calculating the length required for the ALL CAPS text. If so, how can I help @ .. SAY ..  better calculate this? \n\nThird, SAY and GET are both defined on row 2, but they do not actually display in line wth each other.\n\nThanks,\n\nCarlo[/img]','',0,'QYA=','nbaoolwm',1,0,'',1017,0,0),(29915,6689,3,3,0,'194.126.10.108',1176617050,1,0,1,1,1,1,'','Re: SAY / GET behaviour','Carlo\n\nIf you want to use windowsd and dialogs from source code (you can do it from resources rc files also), it is much easier to use the \"pixel\" clause\n\nThis is a sample\n\n@ 5,140 SAY \"N°\" OF odlg SIZE 20,15 COLOR CLR_HBLUE,CLR_WHITE FONT AFONT BORDER CENTER PIXEL\n\nAs per the get issue a picture clause and define it in pixels\n\nHth\n\nRichard','',0,'QYA=','dlno8q2v',1,0,'',3,0,0),(29916,6689,3,1017,0,'70.55.133.213',1176620770,1,0,1,1,1,0,'','Re: SAY / GET behaviour','[quote=&quot;Richard Chidiak&quot;:2zg03rt2]Carlo\nIf you want to use windowsd and dialogs from source code (you can do it from resources rc files also), it is much easier to use the \"pixel\" clause\n[/quote:2zg03rt2]\n\nThanks for the suggestion Richard. Unfortunately, this project involves around 900 PRG files containing thousands of screen definitions. I need to use the existing coordinate system and get that to work. (Of course, using a monospaced font will help). \n\nThe good news is 99% of these screens were created with a screen painter/code generator - so the coding practices are predictable and uniform. I just need to get my UI support libraries recoded to be able to produce both DOS and Windows controls and graphics.\n\nCarlo','',0,'gA==','2zg03rt2',1,0,'',1017,0,0),(29917,2676,3,446,0,'151.32.163.216',1176627832,1,0,1,1,1,0,'','','You can try this little function with PdfCreator version 0.9.3\n\n[code:xujynq3n]\nfunction printPdf&#40;&#41;\n\nlocal oPdfApp &#58;= CreateObject&#40;&quot;PDFCreator&#46;clsPDFCreator&quot;&#41;\nlocal cASD &#58;= oPdfApp&#58;cOption&#40;&quot;AutoSaveDirectory&quot; &#41;\nlocal cASF &#58;= oPdfApp&#58;cOption&#40;&quot;AutoSaveFileName&quot; &#41;\n\noPdfApp&#58;cOption&#40;&quot;UseAutoSave&quot;, 1 &#41;\noPdfApp&#58;cOption&#40;&quot;UseAutoSaveDirectory&quot;, 1 &#41;\noPdfApp&#58;cOption&#40;&quot;AutoSaveStartStandardProgram&quot;, 1 &#41;\noPdfApp&#58;cOption&#40;&quot;AutoSaveDirectory&quot;, &quot;c&#58;\\temp&quot; &#41;\noPdfApp&#58;cOption&#40;&quot;AutoSaveFileName&quot; , &quot;Mypdf&quot; &#41;\noPdfApp&#58;cSaveOptions&#40;&#41;\n\n// print something\noPdfApp&#58;cPrintPDFCreatorTestpage&#40;&#41;\n\noPdfApp&#58;cOption&#40;&quot;AutoSaveDirectory&quot;, cASD &#41;\noPdfApp&#58;cOption&#40;&quot;AutoSaveFileName&quot; , cASF &#41;\noPdfApp&#58;cSaveOptions&#40;&#41;\n\noPdfApp = nil\nreturn &#40;nil&#41;\n[/code:xujynq3n]\n\nfor other functionality look at the help file\nregards\n\nRoberto Chiaiese','',0,'AIA=','xujynq3n',1,0,'',446,0,0),(29918,6689,3,2,0,'87.218.146.173',1176629046,1,0,1,1,1,1,'','','Carlo,\n\nYou may review fwh\\include\\constant.ch\n\nIf you modify those values and recompile the FWH Classes (PRG) then you may fine tune the screen position and sizes of the controls to mimic your MsDos screens\n\ni.e.: in Class TSay there is a:\n\n   DEFAULT nWidth := SAY_CHARPIX_W * Len( ::cCaption ) - 4\n\nDepending of the font that you finally decide to use, and modifying SAY_CHARPIX_W, you may get the automatic Say size that you need. \n\nThe same applies for the Gets and other controls (like Buttons) that you may need to create','',0,'AIA=','2rl3h84c',1,0,'',2,0,0),(29919,6485,6,2,0,'87.218.146.173',1176629506,1,0,1,1,1,1,'','','Osvaldo,\n\nTe refieres a \"Memory allocated but not released\" ó File() está fallando ?\n\nEn relación a lo primero, no te preocupes, eso lo iremos arreglando con el equipo de desarrollo de Harbour.','',0,'AIA=','3jqcf3qa',1,0,'',2,0,0),(29920,6565,3,6,0,'87.6.210.226',1176630116,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:3vyittob]I am using your :filter suggestion for locate records .. is there a :find() or :locate() method in ADO .. I just want to \'seek\' a record in a recordset and move the pointer to that record ..[/quote:3vyittob]\n\n[code:3vyittob]oRs&#58;Find&#40; &quot;Cliente LIKE \'A%\'&quot; &#41;[/code:3vyittob]\n\nThis is where you can find the ADO reference:\n\n[url:3vyittob]http&#58;//msdn&#46;microsoft&#46;com/library/default&#46;asp?url=/library/en-us/ado270/htm/mdmscadoapireference&#46;asp[/url:3vyittob]\n\n[quote=&quot;Rick Lipkin&quot;:3vyittob]Also .. it appears that a recordset is ( like ) a \'local cursor\' .. what are the visability of updates from one workstation recordset to another workstation ( recordset ) that may have the same table open .. does the UPDATE clause on the listbox allow the recordsets to be refreshed from the table .. or is it once the recorset is created .. it never goes back to the origional table for refreshes ??[/quote:3vyittob]\n\nIt depends on the cursortype specified in the Open() method.\n\nEMG','',0,'kIA=','3vyittob',1,0,'',6,0,0),(29921,6499,22,2,0,'87.218.146.178',1176645720,1,0,1,1,1,1,'','','De acuerdo, procuraremos de incluirla en el próximo build <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'kIA=','18dbqwe6',1,0,'',2,0,0),(29922,6480,6,171,0,'71.232.193.197',1176648489,1,0,1,1,1,0,'','','Marco,\n\nPor favor enviame a la clase a: <!-- e --><a href=\"mailto:georgeabinader@msn.com\">georgeabinader@msn.com</a><!-- e -->\n\nGracias por tu valioso aporte\n\nSaludos\n\n\nGeorge','',0,'kIA=','1zq0y2ok',1,0,'',171,0,0),(29923,6690,22,64,0,'201.72.124.2',1176649750,1,0,1,1,1,1,'','Preview','Un preview nativo con más tipo de recursos: elegir a la impresora, envío de e-mail, generar el PDF sin la necesidad estamos modificando la clase nativa o usando herramientas de paliativo de tener la solución.\n\nFivewin es una herramienta excelente y mas functionalities nativos para ofrecer más fuerte él será.\n\ngracias.','',0,'kIA=','32vq83m0',1,0,'',64,0,0),(29924,6565,3,35,0,'65.188.6.143',1176651169,1,0,1,1,1,0,'','','Enrico\n\nThank you VERY much .. I think you have the right open parameters set 1,3 .. from what I can tell .. visibility for edits are there and adopenkeyset supports the absolute position for records and top and bottom... where adopendynamic does not ..\n\nI did see a :resync method .. going to have to set up a share on my home network here to test .. \n\nI do find Antonio\'s comment interesting on ado wrappers intergrated into an RDD .. my only concern ( moving into a ms sql world soon ) .. what ado engine would have to be loaded on the workstation clients for MS Sql ?? .. I don\'t think MS office loads an ADO client for that particular connection ??\n\nRick Lipkin','',0,'kIA=','2xw0trfa',1,0,'',35,0,0),(29925,6565,3,6,0,'87.6.210.226',1176651669,1,0,1,1,1,1,'','','I\'m using the following connection string:\n\n[code:31vw11m8]&quot;Provider=sqloledb;Data Source=ipaddress;User Id=userid;Password=password&quot;[/code:31vw11m8]\n\nEMG','',0,'AIA=','31vw11m8',1,0,'',6,0,0),(29926,6679,6,103,0,'201.8.79.67',1176655837,1,0,1,1,1,1,'','','Patricio,\n\n   Lo que pasa es que intentaste cambiar la base de datos (de MySQL para PostgreSQL o vice-versa) sin antes definir la nueva conexión para la dicha base. Pero vamos a hacer el cambio para resolver el problema.\n\nGracias y saludos,','',0,'AIA=','3f1152zi',1,0,'',103,0,0),(29927,6685,6,838,0,'80.59.225.15',1176656989,1,0,1,1,1,0,'','','Gracias por la respuesta René\nAplicando el Setcontro(), me da el siguiente error\n\n*************************************************\n   Error description: Error BASE/1004  Message not found: TWINDOW:SETCONTROL\n\nStack Calls\n===========\n   Called from:  =&gt; TWINDOW:ERROR(179)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TWINDOW:MSGNOTFOUND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:SETCONTROL(167)\n   Called from: acciones.prg =&gt; MAIN(103)\n\n***********************************************\n\nYo nunca había tenido que utilizar ésto y me había funcionado, la verdad es que siempre he utilizado listbox en ventanas hijas o Dialogos. En éste caso lo utilizo en ventana pincipal no MDI y el codigo completo es:[code:2xoa221u]\n     DEFINE WINDOW Publicas&#58;oWPpal FROM 5,5 TO 35,90 NOMAXIMIZE;\n       TITLE Publicas&#58;cTitulo;\n       ICON oIco \n    DEFINE FONT oFont NAME \'MS Sans Serif\' SIZE 0,-8\n    Publicas&#58;oWPpal&#58;oFont&#58;=oFont\n    SET MESSAGE TO &#40;&quot; &#40;c&#41; GrupoSunade &quot;&#41; CENTERED OF Publicas&#58;oWPpal\n    DEFINE BUTTONBAR oBar TOP 3d OF Publicas&#58;oWPpal \n    DEFINE BUTTON RESOURCE &quot;ANADIR&quot; of oBar NOBORDER MESSAGE &quot;Añadir&quot;      ACTION &#40;cTitulo&#58;=&quot;Creación de nuevas acciones &quot;,;\n                        &#40;aAlias&#91;1&#93;&#41;-&gt;&#40;OrdSetFocus&#40;&quot;Fecha&quot;&#41;&#41;,oTab&#58;nOption&#58;=1,oTab&#58;refresh&#40;&#41;,;\n                        Entalba&#40;aAlias,cTitulo,&quot;A&quot;&#41;,oLbx&#58;Refresh&#40;&#41;&#41;;\n                        TOOLTIP &quot;Añadir&quot;\n    DEFINE BUTTON RESOURCE &quot;MODIFICAR&quot; of oBar NOBORDER  MESSAGE &quot;Modificar&quot;   ACTION &#40;iif&#40;!&#40;aAlias&#91;1&#93;&#41;-&gt;&#40;eof&#40;&#41;&#41;,&#40;cTitulo&#58;=&quot;Modificación de envios &quot;,;\n                        Entalba&#40;aAlias,cTitulo,&quot;M&quot;&#41;,oLbx&#58;Refresh&#40;&#41;&#41;,&#46;T&#46;&#41;&#41;;\n       			TOOLTIP &quot;Modificar&quot;\n    DEFINE BUTTON RESOURCE &quot;BORRAR&quot; of oBar NOBORDER  MESSAGE &quot;Eliminar&quot;    ACTION &#40;Entalba&#40;&#41;&#41;;\n			TOOLTIP &quot;Eliminar&quot;\n    DEFINE BUTTON RESOURCE &quot;BUSCAR&quot; of oBar NOBORDER  MESSAGE &quot;Localizar&quot;   ACTION &#40;Entalba&#40;&#41;&#41;;\n			TOOLTIP &quot;Localizar&quot;\n    DEFINE BUTTON RESOURCE &quot;VER&quot; of oBar NOBORDER  MESSAGE &quot;Visualizar&quot;  ACTION &#40;Entalba&#40;&#41;&#41;;\n			TOOLTIP &quot;Zoom&quot;\n    DEFINE BUTTON RESOURCE &quot;IMPRESORA&quot; of oBar NOBORDER  MESSAGE &quot;Imprimir&quot;    ACTION &#40;Entalba&#40;&#41;&#41;;\n   		        TOOLTIP &quot;Imprimir Listados&quot;\n    DEFINE BUTTON RESOURCE &quot;SALIR&quot; of oBar NOBORDER  MESSAGE &quot;Salir&quot;       ACTION Publicas&#58;oWppal&#58;END&#40;&#41;;\n			TOOLTIP &quot;Salir&quot;\n      @ 30, 0 Listbox oLbx FIELDS  dtoc&#40;&#40;aAlias&#91;1&#93;&#41;-&gt;Fecha&#41;,;\n                               oemtoansi&#40;&#40;aAlias&#91;1&#93;&#41;-&gt;cnomcli&#41;;\n                               HEADER  &quot; Fecha &quot;, &quot; Cliente &quot;;\n                               FIELDSIZES    52,200;\n                               ALIAS aAlias&#91;1&#93;;\n                               CURSOR dedo;\n                               COLOR CLR_BLACK,  nRGB&#40;226,226,208&#41; ;\n                               ON LEFT DBLCLICK  &#40;iif&#40;!&#40;aAlias&#91;1&#93;&#41;-&gt;&#40;eof&#40;&#41;&#41;,&#40;cTitulo&#58;=&quot;Visualización de acciones &quot;,Entalba&#40;aAlias,cTitulo,&quot;V&quot;&#41;,oLbx&#58;Refresh&#40;&#41;&#41;,&#46;T&#46;&#41;&#41;;\n                               OF Publicas&#58;oWppal;\n			       PIXEL\n   oLbx&#58;nStyle&#58;= nOr&#40; WS_VSCROLL, WS_HSCROLL &#41;\n   oLbx&#58;nLineStyle &#58;= 1\n   oLbx&#58;Setcolor&#40;nil,RGB&#40;245,239,191&#41;&#41;\n   oLbx&#58;nClrBackHead &#58;= RGB&#40;248,191,36&#41;\n   oLbx&#58;aJustify &#58;= &#123;&#46;F&#46;,&#46;F&#46;&#125;\n   oLbx&#58;aHJustify &#58;= &#123;2,2&#125;\n   oLbx&#58;nClrPane&#58;=&#123;||iIF&#40;&#40;oLbx&#58;cAlias&#41;-&gt;&#40;OrdKeyNo&#40;&#41;&#41;%2==0,nRGB&#40;245,219,175&#41;,nRGB&#40;245,239,191&#41;&#41;&#125;\n           @ Publicas&#58;oWPpal&#58;nHeight&#40;&#41; - 45, 0  TABS oTab ;\n	                            PROMPTS &quot;&amp;Fecha&quot;,&quot;&amp;Cliente&quot; ;\n				    COLOR CLR_BLACK, CLR_WHITE ;\n                                    ACTION &#40;&#40;aAlias&#91;1&#93;&#41;-&gt;&#40;Ordsetfocus&#40;cambia&#40;oTab&#58;nOption&#41;&#41;&#41;,oLbx&#58;Refresh&#40;&#41;&#41;\n  oTab&#58;Default&#40;&#41;\n * Publicas&#58;oWppal&#58;SetControl&#40;oLbx&#41; \n    ACTIVATE WINDOW Publicas&#58;oWPpal;\n              VALID Salir&#40;&#41;\n[/code:2xoa221u]\n\nSaludos\n\nJose Luis','',0,'AIA=','2xoa221u',1,0,'',838,0,0),(29928,6691,3,35,0,'65.188.6.143',1176663235,1,0,1,1,1,0,'','A Beginners Guide to ADO','To All\n\nOver the past few days I have had to learn how to connect and manipulate an Access database .mdb. with xHarbour and FWH.\n\nI would like to dedicate my “Beginners Guide for ADO” to  Enrico Maria Giordano who has been an inspiration and a tireless help in answering every one of my questions.\n\nFor anyone who has had to deal with MS Access .. here is a general guideline as to how to work with ADO ..\n \nHere is the MSDN link for more info:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmscadoapireference.asp\">http://msdn.microsoft.com/library/defau ... erence.asp</a><!-- m -->\n\nAgain .. many thanks Enrico !!\n\nRick Lipkin\nSC Dept of Health, USA\n\n\n//------------------------------------------------------\nADO general connections and methods:\n\nThere are 4 types of cursors supported by ADO:   ( first parameter )\n\n(0)adOpenForwardOnly: This is the lightest (cheapest) cursor, and the default when opening a recordset. It allows only forwards movement. Only the most minimal information about the recordset is calculated\nby Jet (eg you can\'t even get a .recordCount of the total number of records in the recordset). If you try to move backwards using this cursor, the recordset is closed, and the query re-executed.  Avoid doing this!\n\n(1)adOpenKeyset: A static snap-shot of the primary key values of the records that match your search  criteria are put into the recordset. As you scroll backwards and forwards, the primary key value in the recordset is used to fetch the current data for that record from the database. This cursor thus allows you to see updates to the data made by other users, but it doesn\'t let you see new records that have been added by other users  (because the primary key values for those records are not in your recordset).\n\n(2)adOpenDynamic: A dynamic snapshot of the database is maintained by OLEDB/ADO. All changes by other users to the underlying database are visible. Obviously this is the most sophisticated cursor, and thus is usually the most expensive. Because the data in the recordset is dynamic,\nattributes like AbsolutePosition and AbsolutePage can not be set. The adOpenDynamic cursor is not supported by the Jet OLEDB Provider.\n\n(3)adOpenStatic: A static snap-shot of the records that match your search criteria are put into the recordset. You can scroll forwards and backwards, and set bookmarks. Changes made to the database by other users    however are not visible - all you can see are the records that matched your search at the point in time when the query was executed\n\n   ( second parameter )\n\n(1)  adlockReadOnly\n(2)  adlockPessimistic\n(3)  adlockOptomistic\n(4)  adlockBatchOptomistic\n\n   How to Open a recordset .. this example is for MS Access .mdb\n\noRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\nTRY\n     oRS:Open( \"SELECT * FROM LWMFS ORDER BY FILE_NUM\" ,    \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\nCATCH oErr\n  MsgInfo( \"Error in Opening LWMFS table\" )\n  RETURN NIL\nEND TRY\n\nIF oRS:eof            // query resulted with no records\n   Msginfo( \"not found\" )\n   RETURN(NIL)\nENDIF\n\n   How to Open a connection .. like for running global inserts, deletes\n\noCn := CREATEOBJECT( \"ADODB.Connection\" )\noCn:Open( \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=lwmfs.mdb\" )\noCn:Execute( \"DELETE FROM LWMFS WHERE IsNull(FILE_NUM)\" )\noCn:Close()\n\n   Various Methods for ADO recordsets\n\noRs:Delete()          - delete\noRs:MovePrevious()    - skip -1\noRs:MoveNext()        - skip +1\noRs:MoveLast()        - go bott\noRs:MoveFirst()       - go top\noRs:AddNew()          - append blank\noRs:Update()          - commit\noRs:Find()            - seek, locate\n\n   some examples\n\noRs:Find( \"file_num = \'\"+cFIND+\"\'\" )\noRs:Fields(\"fieldname\"):Value := \'MyValue\'  - replace\noRS:Filter := \"file_num = \'\"+cFIND+\"\'\"      - scope condition\n\n   sample twbrowse for FWH\n\nSTATIC oRs1, oBrow\n#INCLUDE “FIVEWIN.CH”\n\n//---------------------------------------------\nStatic Func _Cercla( cFILENUM )\n\nLOCAL oErr, oDLG1, nREC, cSQL\n\noRs1 := CREATEOBJECT( \"ADODB.Recordset\" )\ncSQL := \"SELECT * FROM CERCLA_INDEXING cercla \"\ncSQL += \"WHERE cercla.ASSOCIATED_FILE_NUM =\'\"+cFILENUM+\"\'\"+\" order by date_\"\n\nTRY\n   oRS1:Open( cSQL, \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LWMFS.mdb\", 1, 3 )\nCATCH oErr\n   MsginFo( \"failed to open table\" )\n   RETURN NIL\nEND TRY\n\nIF oRS1:eof\n   Msginfo( \"not found\" )\n   RETURN(NIL)\nENDIF\n\noRS1:MoveFirst()\n\nDEFINE DIALOG oDLG1 ;\n       FROM 7,7 to 35,104 ;\n       TITLE \"Matching CERCLA Docket Browse for File Number \"+cFILENUM\n\n     @ 0, 0 LISTBOX oBrow FIELDS   ;    \n               oRs1:Fields(\"associated_file_num\" ):Value,;\n               DTOC( oRs1:Fields( \"DATE_\" ):Value ),;\n               oRs1:Fields( \"associated_permit_num\" ):Value,;\n               oRs1:Fields( \"docket_num\" ):Value,;\n               oRs1:Fields( \"from_to\"):Value,;\n               oRs1:Fields( \"description\"):Value,;\n               oRs1:Fields( \"added_by\"):Value;\n          SIZES 80,80,100,100,200,500,80;\n          HEADERS \"File_num\",;\n                   \"Date\",;\n                   \"Permit_num\",;\n                   \"Docket_num\",;\n                   \"From_to\",;\n                   \"Description\",;\n                   \"Added_by\"\n\n    oBrow:bLogicLen = { || oRs1:RecordCount }\n    oBrow:bGoTop    = { || oRs1:MoveFirst() }\n    oBrow:bGoBottom = { || oRs1:MoveLast() }\n    oBrow:bSkip     = { | nSkip | Skipper( oRs1, nSkip ) }\n    oBrow:cAlias    = \"ARRAY1\"\n\nACTIVATE DIALOG oDlg1;\n         ON INIT oDlg1:SetControl( oBrow  )\n\noRs1:Close()\n\nRETURN NIL\n\n//-------------------------------\nSTATIC FUNCTION SKIPPER( oRsx, nSkip )\n\nLOCAL nRec := oRsx:AbsolutePosition\n\noRsx:Move( nSkip )\n\nIF oRsx:EOF; oRsx:MoveLast(); ENDIF\nIF oRsx:BOF; oRsx:MoveFirst(); ENDIF\n\nRETURN( oRsx:AbsolutePosition - nRec )','',0,'AIA=','12fgdli6',1,0,'',35,0,0),(29929,6685,6,2,0,'87.218.146.178',1176665428,1,0,1,1,1,1,'','','Prueba así:\n\nPublicas:oWppal:oClient := oLbx','',0,'AIA=','eczd4j1a',1,0,'',2,0,0),(29930,6523,3,73,0,'201.132.86.114',1176669126,1,0,1,1,1,0,'','','Maurilio,\n\nthis folder works under Harbour?\nregards\nPaco','',0,'AIA=','p3oxfe56',1,0,'',73,0,0),(29931,6692,6,252,0,'201.140.19.86',1176675897,1,0,1,1,1,0,'','Programa para impresion codigos de barras en etiquetas','Buen Dia.\n\n   ¿Alguien sabe de donde descargar el programa GenLabel Bingen?, o bien alguna otra funcion o clase para imprimir codigo de barras en etiquetas usando impresoras laser.\n\n    De antemano muchas gracias.\n\n\n    Jose rios','',0,'AIA=','x7tlppvz',1,0,'',252,0,0),(29932,6303,4,267,0,'201.9.170.62',1176685481,1,0,1,1,1,1,'','','Antonio,\n\n[code:1y7iqnsm]\nJose Luis Capel delivered ZIP support for FWPPC&#46; Whats wrong with it ? &#46;[/code:1y7iqnsm]\nThe example presented for the Luis functions perfectly in Pocket PC, but the used format of compacting is not compatible with the one of the Windows.  We do not obtain to unpack archives zip bred in Pocket PC in the WIndows environment.\n\n[code:1y7iqnsm]Can\'t you use a compatible ZIP manager in Windows with the created files ?[/code:1y7iqnsm]\nIt is accurately what I am trying to obtain. Searching in the site of lib that Luis used I found the code-source that allows the compatibility between the two ambientes(blast.c).\nIn the compilation some does not appear error, but when I execute it appears an error of execution that did not obtain to decide, therefore the aid order.','',0,'AIA=','1y7iqnsm',1,0,'',267,0,0),(29933,6303,4,2,0,'87.218.146.178',1176701574,1,0,1,1,1,1,'','','Vilian,\n\nI am trying to contact Jose Luis to know his opinion about this issue','',0,'AIA=','hw40zf81',1,0,'',2,0,0),(29934,6693,6,92,0,'80.33.133.32',1176707853,1,0,1,1,1,0,'','Métodos Cut y Paste de TGet y ::bpostkey.','Métodos Cut y Paste de TGet y ::bpostkey.\n\nEstoy aplicando las novedades de la versión 7.04 de FWH, entre ellas el uso de ::bpostkey en lugar de ::bchange.\n\nEn mi caso el uso que hacía de ::bchange era para realizar una búsqueda en un Listbox.\n\nSegún el uso que hagan ustedes y su experiencia, no creen que sería adecuado que ::bpostkey también se lanzará cuando el método ::Cut y ::Paste?\n\nAntonio, como lo ves?\n\nSaludos y gracias.\nCarlos G.','',0,'AIA=','34s834cs',1,0,'',92,0,0),(29935,6693,6,2,0,'87.218.146.178',1176712787,1,0,1,1,1,1,'','','Carlos,\n\nSí, parece lógico. Habría que probarlo y comprobar que no genere algún error.\n\nLo has probado ?','',0,'AIA=','2v30bzo2',1,0,'',2,0,0),(29937,6693,6,92,0,'213.96.45.9',1176715749,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1hady4ci]Carlos,\n\nSí, parece lógico. Habría que probarlo y comprobar que no genere algún error.\n\nLo has probado ?[/quote:1hady4ci]\n\nAún no, lo intentaré entre hoy y mañana.\n\nSaludos.\nCarlos G.','',0,'gA==','1hady4ci',1,0,'',92,0,0),(29938,6490,3,15,0,'203.73.7.60',1176719219,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:3qy5ixj1]Hello,\n\n[quote:3qy5ixj1]I have old AP( xHarbour 0.92+FWH2.3 or FWH2.4). \nYour new version 1.1 support it? \nHave you call new FWH\'s kernal function? \nI afraid my old tools incompatible your v1.1[/quote:3qy5ixj1]\n\nWe have tested ViaCoral 1.1 up to FWH 6.12 version and it works 100% ok.\n\nYou are using old versions, both FWH and Harbour/xharbour.\nWe strongly recommend you to upgrade them as they have improved very much.[/quote:3qy5ixj1]\n\nOk.\nCould you share demo EXE let me test?\n\nRegards,\n\nRichard','',0,'gA==','3qy5ixj1',1,0,'',15,0,0),(29939,6692,6,838,0,'80.34.222.112',1176721027,1,0,1,1,1,0,'','','Hace muchos años hice una aplicación para generar todo tipo de codigo de barras para asociar a DBF o usar manualmente. Está en five.\nMira a ver si te sirve:\nEnlace:\n[url:28havpwd]http&#58;//hyperupload&#46;com/download/029f9c3d56/BARRAS&#46;ZIP&#46;html[/url:28havpwd]\n\nSaludos\n\nJose Luis','',0,'EA==','28havpwd',1,0,'',838,0,0),(29940,6523,3,217,0,'200.159.120.34',1176721362,1,0,1,1,1,0,'','','Francisco,\n\nI didn\'t tested it under Harbour (only xHarbour) but I think it work fine too.\n\nRegards,\nMaurilio','',0,'EA==','1ni2i8qj',1,0,'',217,0,0),(29941,6694,3,58,0,'84.149.90.167',1176722833,1,0,1,1,1,0,'','How To Start With ADS','Hi friends,\n\ncould anybody give me some info about how to get started with ADS?\nI would like to demonstrate our boss the advantages of ads.\n\nWe have a lot of clipper/FW/FWH programs running and if a demo could convince me ( and my boss ) i\'d like to migrate all apps to FWH + ADS.\n\nI heard that the best version of ads should be 6.2.\nBut for Demo download i find only 8.1 version.\n\nAny info is welcome.\nThanks and regards,\nDetlef','',0,'EA==','20ldxajj',1,0,'',58,0,0),(29942,6480,6,936,0,'69.79.119.88',1176726243,1,0,1,1,1,0,'','','Marco, por favor me la puedes enviar tambien, gracias.\n\n<!-- e --><a href=\"mailto:sincuir@yahoo.com\">sincuir@yahoo.com</a><!-- e -->\n<!-- e --><a href=\"mailto:carlosromero@123.com.gt\">carlosromero@123.com.gt</a><!-- e -->\n\nCarlos Sincuir Romero.','',0,'EA==','292muy0e',1,0,'',936,0,0),(29943,6695,3,707,0,'125.163.101.33',1176732317,1,0,1,1,1,0,'','To : Enrico -&gt; Send SMS with Nokia FBus Connection','Hi Enrico !\n\nPlease Help to guide me about this source code translate to FWH\n1. I want to create this source to lib files\n2. How to use with FWH\n\nThank\'s for Help\n\n[code:tu0i2l31]\n/**************************************************************************\n\n  Nokia 61xx SMS send/receive functions\n\n  Version 1&#46;0\n\n  Justin Karneges\n  infiniti@affinix&#46;com\n  June 2000\n\n  Thanks goes to the gnokii team for figuring out the frame format, among\n  many other things!  These guys did all the hard work&#46;  Although this file\n  was written from scratch, it was heavily based on their research&#46;\n\n  http&#58;//www&#46;gnokii&#46;org/\n\n  Overview&#58;\n\n    This file contains a set of functions for sending and receiving SMS\n    &#40;short message service&#41; text messages across a GSM network with a\n    Nokia 61xx series phone&#46;  I\'ve only tested it with my phone &#40;a 6190&#41;,\n    however it should work fine with any GSM phone in the series&#46;  It\n    should also work with the 51xx series phones&#46;\n\n    These functions were meant to be as portable as possible &#40;they contain\n    no serial communications code&#41;, and to perform two simple things&#58; send\n    and receive SMS&#46;  That\'s all&#46;  If you want a full program to control\n    all the aspects of the Nokia 61xx, then I suggest checking out gnokii&#46;\n    This code was meant to be small, so that it could be used in small\n    devices/applications&#46;\n\n\n  To use&#58;\n\n    Setup the serial port and call n61_init&#40;&#41;&#46;  Then use n61_smssend&#40;&#41; and\n    n61_smsrecv&#40;&#41; to send/recv SMS messages&#46;  Call n61_update&#40;&#41; as often\n    as possible &#40;possibly by having a timer ISR call it&#41; so that the driver\n    stays in sync with the phone&#46;  All incoming SMS messages are deleted\n    from the phone\'s inbox &#40;you want this&#41;&#46;\n\n\n  ------------------------------------------------------------------------\n  Functions&#58;\n\n    +---------------------------------------------------------+\n    |  void n61_init&#40;int &#40;*func&#41;&#40;int cmd, unsigned char c&#41;&#41;;  |\n    +---------------------------------------------------------+\n\n      Before calling this function, do everything necessary to have the\n      serial port ready&#46;  The port MUST be set as follows&#58;\n\n        Baud rate&#58; 115200\n        Parity&#58; None\n        Bits&#58; 8\n        Stop bits&#58; 1\n        DTR&#58; set\n        RTS&#58; cleared\n\n      Since this driver does not contain any serial communications\n      functionality, you must supply it&#46;  An interrupt driven / threaded\n      serial interface MUST be used&#46;  This driver does not poll the port,\n      and so it is completely dependant on a background serial driver\n      keeping a queue of all incoming data &#40;so that no data is lost&#41;&#46;\n\n      To give the serial functionality to this nokia driver, write a simple\n      function to perform the four types of requests that this driver will\n      need handled&#46;  Pass this function as the argument to init&#58;\n\n        n61_init&#40;myhandler&#41;;\n\n      The myhandler&#40;&#41; function should look like this&#58;\n\n        int myhandler&#40;int cmd, unsigned char c&#41;\n        &#123;\n            if&#40;cmd == 0&#41; &#123;\n                serial_send&#40;c&#41;;          // send c out the port\n                return;\n            &#125;\n            else if&#40;cmd == 1&#41;\n                return serial_recv&#40;&#41;;    // return the next byte in queue\n            else if&#40;cmd == 2&#41;\n                return serial_isdata&#40;&#41;;  // return zero if queue is empty\n            else if&#40;cmd == 3&#41;\n                msleep&#40;1&#41;;               // delay for 1 millisecond\n        &#125;\n\n      0 means send &quot;c&quot; out the serial port&#46;  1 means return a byte from the\n      serial port&#46;  2 means return true/false if there is data waiting&#46;\n      Simple enough!\n\n      This driver also requires a millisecond resolution timer, which is\n      what the last request is for&#46;  Most platforms include some sort of\n      millisecond &#40;or less&#41; delay function&#46;  For MSVC++ there is Sleep&#40;&#41;,\n      Unix has usleep&#40;&#41; and DOS has delay&#40;&#41;&#46;  If you\'re not using such a\n      platform, then you\'ll have to time it yourself&#46;  The driver doesn\'t\n      specify how many milliseconds to wait, your function should wait\n      just one millisecond&#46;  So just do Sleep&#40;1&#41;, usleep&#40;1000&#41;, delay&#40;1&#41;,\n      or whatever your homebrew method is&#46;  Easy!\n\n      Lastly, n61_init&#40;&#41; also queries the phone for the SMSC number to be\n      used when sending SMS&#46;\n\n      Whew!  If you got past n61_init&#40;&#41;, then the rest is easy as cake&#46;\n\n    +--------------------------------------------+\n    |  int n61_smssend&#40;char *dest, char *msg&#41;;  |\n    +--------------------------------------------+\n\n      Sends &quot;msg&quot; to &quot;dest&quot;&#46;  Returns 1 if sent, 0 if not&#46;\n\n\n    +---------------------------------------------+\n    |  int n61_smsrecv&#40;char *source, char *msg&#41;;  |\n    +---------------------------------------------+\n\n      Copies a received message into &quot;msg&quot;, stores the source phone number\n      in &quot;source&quot; and returns 1&#46;  Returns 0 if no messages are in the queue&#46;\n      &quot;msg&quot; will not be larger than 161 bytes &#40;including null byte&#41;&#46;\n      &quot;source&quot; will not be larger than 17 bytes &#40;including null byte&#41;&#46;\n\n\n    +-----------------------+\n    |  int n61_smsqueue&#40;&#41;;  |\n    +-----------------------+\n\n      Returns the number of messages in the incoming queue&#46;\n\n\n    +---------------------+\n    |  int n61_update&#40;&#41;;  |\n    +---------------------+\n\n      This must be called as often as possible&#46;  If it\'s not called, then\n      you won\'t be able to receive messages&#46;  This might be something good\n      to put in a timer interrupt if possible &#40;yes, it\'s safe&#41;&#46;\n\n\n  That\'s all you need to know!\n\n  ------------------------------------------------------------------------\n\n  Nokia 6190 message format&#58;\n\n    1 byte = start byte &#40;0x1e&#41;\n    1 byte = message destination\n    1 byte = message source\n    1 byte = message type\n    1 byte = ???\n    1 byte = message size\n\n    X bytes = message data &#40;X = message size&#41;\n\n    1 byte = filler byte &#40;exists only if needed to make message size even&#41;\n\n    2 byte = result of all 16bit words XOR\'ed together\n\n**************************************************************************/\n\n#include &lt;string&#46;h&gt;\n\n#define N61MODE_SYNC	0\n#define N61MODE_DEST	1\n#define N61MODE_SOURCE	2\n#define N61MODE_TYPE	3\n#define N61MODE_UNKNOWN	4\n#define N61MODE_SIZE	5\n#define N61MODE_DATA	6\n\n#define N61STATE_WAIT	0\n#define N61STATE_PROC	1\n#define N61STATE_GOOD	2\n#define N61STATE_BAD	3\n\n#define N61MAXSIZE	120\n\n#define N61VALID_1H	0x0b\n#define N61VALID_6H	0x47\n#define N61VALID_24H	0xa7\n#define N61VALID_72H	0xa9\n#define N61VALID_1W	0xad\n#define N61VALID_MAX	0xff\n\nstruct N61_MESSAGE\n&#123;\n	int dest;\n	int source;\n	int type;\n	int unknown;\n	int size;\n	unsigned char dat&#91;256&#93;;\n	int cs&#91;2&#93;;\n&#125;;\n\nstruct N61_MESSAGE n61_tmp, n61_buf;\nint n61_seqnum = 0;\nint n61_prevseq = 0;\nint &#40;*n61_serial&#41;&#40;int cmd, unsigned char c&#41;;\nint n61_mode = 0;\nint n61_atbyte = 0;\nint n61_datp = 0;\nint n61_readsize = 0;\nint n61_readbase = 0;\nint n61_state;\nint n61_multiple;\nchar n61_smsc&#91;32&#93;;\nint n61_msgqueuesize;\nchar n61_msgqueue&#91;4&#93;&#91;161&#93;;\nchar n61_msgqueue2&#91;4&#93;&#91;17&#93;;\nint n61_ack, n61_gotmsg, n61_waittype;\nint n61_blocked;\n\n\n// ** translate table taken directly from gnokii **\n\nunsigned char n61_transtable&#91;&#93; = &#123;\n\n	/* ETSI GSM 03&#46;38, version 6&#46;0&#46;1, section 6&#46;2&#46;1; Default alphabet */\n	/* Characters in hex position 10, &#91;12 to 1a&#93; and 24 are not present on\n		latin1 charset, so we cannot reproduce on the screen, however they are\n		greek symbol not present even on my Nokia */\n\n	\'@\',  0xa3, \'$\',  0xa5, 0xe8, 0xe9, 0xf9, 0xec, \n	0xf2, 0xc7, \'\\n\', 0xd8, 0xf8, \'\\r\', 0xc5, 0xe5,\n	\'?\',  \'_\',  \'?\',  \'?\',  \'?\',  \'?\',  \'?\',  \'?\',\n	\'?\',  \'?\',  \'?\',  \'?\',  0xc6, 0xe6, 0xdf, 0xc9,\n	\' \',  \'!\',  \'\\&quot;\', \'#\',  0xa4,  \'%\',  \'&amp;\',  \'\\\'\',\n	\'&#40;\',  \'&#41;\',  \'*\',  \'+\',  \',\',  \'-\',  \'&#46;\',  \'/\',\n	\'0\',  \'1\',  \'2\',  \'3\',  \'4\',  \'5\',  \'6\',  \'7\',\n	\'8\',  \'9\',  \'&#58;\',  \';\',  \'&lt;\',  \'=\',  \'&gt;\',  \'?\',\n	0xa1, \'A\',  \'B\',  \'C\',  \'D\',  \'E\',  \'F\',  \'G\',\n	\'H\',  \'I\',  \'J\',  \'K\',  \'L\',  \'M\',  \'N\',  \'O\',\n	\'P\',  \'Q\',  \'R\',  \'S\',  \'T\',  \'U\',  \'V\',  \'W\',\n	\'X\',  \'Y\',  \'Z\',  0xc4, 0xd6, 0xd1, 0xdc, 0xa7,\n	0xbf, \'a\',  \'b\',  \'c\',  \'d\',  \'e\',  \'f\',  \'g\',\n	\'h\',  \'i\',  \'j\',  \'k\',  \'l\',  \'m\',  \'n\',  \'o\',\n	\'p\',  \'q\',  \'r\',  \'s\',  \'t\',  \'u\',  \'v\',  \'w\',\n	\'x\',  \'y\',  \'z\',  0xe4, 0xf6, 0xf1, 0xfc, 0xe0\n&#125;;\n\n\n\n// **** Functions            ****\n\nvoid n61_init&#40;int &#40;*func&#41;&#40;int cmd, unsigned char c&#41;&#41;;	// initialize the driver\nint n61_smssend&#40;char *dest, char *msg&#41;;			// send SMS\nint n61_smsrecv&#40;char *dest, char *msg&#41;;			// recv SMS\nint n61_smsqueue&#40;&#41;;					// check the recv queue\nvoid n61_update&#40;&#41;;					// keep the driver in sync\n\n// **** Functions - internal ****\n\nvoid n61_block&#40;&#41;;						// protect during update\nvoid n61_unblock&#40;&#41;;						// unprotect\n\nvoid n61_update_main&#40;&#41;;						// main update\nvoid n61_update_internal&#40;&#41;;					// internal version of\n								//   n61_update&#40;&#41;\n\nvoid n61_serial_send&#40;unsigned char c&#41;;				// send byte\nunsigned char n61_serial_recv&#40;&#41;;				// recv byte\nunsigned char n61_serial_isdata&#40;&#41;;				// check for serial data\nvoid n61_serial_delay&#40;&#41;;					// wait 1 millisecond\n\nint n61_nextseq&#40;&#41;;						// get next sequence number\nint n61_sendframe&#40;int type, int size, unsigned char *data&#41;;	// send frame\nint n61_sendmsg&#40;int type, int size, unsigned char *data&#41;;	// send message\nvoid n61_sendack&#40;int type, int seqnum&#41;;				// send acknowledgement\n\nvoid n61_ackwait&#40;int x&#41;;					// wait for ack\nvoid n61_wait&#40;int x&#41;;						// wait for a message\n\nvoid n61_addchar&#40;char *str, char c&#41;;				// strcat&#40;&#41; but for chars\nvoid n61_bcd&#40;char *dest, char *s&#41;;				// encode SMSC number\nvoid n61_bcd2&#40;char *dest, char *s&#41;;				// encode phone number\nchar *n61_unbcd&#40;unsigned char *dat&#41;;				// decode SMSC number\nchar *n61_unbcd2&#40;unsigned char *dat&#41;;				// decode phone number\n\nvoid n61_pack7&#40;char *dest, char *s&#41;;				// pack when sending\nchar *n61_unpack7&#40;unsigned char *dat, int len&#41;;			// unpack when received\n\nunsigned char n61_gettrans&#40;unsigned char c&#41;;			// translate char\nvoid n61_addmsg&#40;char *dest, char *msg&#41;;				// add a received SMS\n								//   to the queue\n\nvoid n61_procmsg&#40;struct N61_MESSAGE *msg&#41;;			// process incoming message\n\nvoid n61_getstatus&#40;&#41;;						// request phone status\nvoid n61_getsmsc&#40;&#41;;						// request SMSC\nvoid n61_delsms&#40;int x&#41;;						// delete SMS message\nint n61_smssendfull&#40;char *smsc, char *dest, char *msg&#41;;		// send SMS via SMSC\n\n\n// ** Code **\nunsigned char n61_gettrans&#40;unsigned char c&#41;\n&#123;\n	unsigned char n;\n\n	if&#40;c == \'?\'&#41;\n		return 0x3f;\n\n	for&#40;n = 0; n &lt; 128; ++n&#41; &#123;\n		if&#40;n61_transtable&#91;n&#93; == c&#41;\n			return n;\n	&#125;\n\n	return 0x3f;\n&#125;\n\nvoid n61_block&#40;&#41;\n&#123;\n	n61_blocked = 1;\n&#125;\n\nvoid n61_unblock&#40;&#41;\n&#123;\n	n61_blocked = 0;\n&#125;\n\nvoid n61_update&#40;&#41;\n&#123;\n	if&#40;!n61_blocked&#41; &#123;\n		n61_block&#40;&#41;;\n		n61_update_main&#40;&#41;;\n		n61_unblock&#40;&#41;;\n	&#125;\n&#125;\n\nvoid n61_update_internal&#40;&#41;\n&#123;\n	n61_update_main&#40;&#41;;\n&#125;\n\nvoid n61_serial_send&#40;unsigned char c&#41;\n&#123;\n	n61_serial&#40;0, c&#41;;\n&#125;\n\nunsigned char n61_serial_recv&#40;&#41;\n&#123;\n	return n61_serial&#40;1, 0&#41;;\n&#125;\n\nunsigned char n61_serial_isdata&#40;&#41;\n&#123;\n	return n61_serial&#40;2, 0&#41;;\n&#125;\n\nvoid n61_serial_delay&#40;&#41;\n&#123;\n	n61_serial&#40;3, 0&#41;;\n&#125;\n\nvoid n61_ackwait&#40;int x&#41;\n&#123;\n	int n;\n\n	for&#40;n = 0; n &lt; x; ++n&#41; &#123;\n		n61_update_internal&#40;&#41;;\n		n61_serial_delay&#40;&#41;;\n		if&#40;n61_ack&#41;\n			return;\n	&#125;\n&#125;\n\nvoid n61_wait&#40;int x&#41;\n&#123;\n	int n;\n\n	for&#40;n = 0; n &lt; x; ++n&#41; &#123;\n		n61_update_internal&#40;&#41;;\n		n61_serial_delay&#40;&#41;;\n		if&#40;n61_gotmsg&#41;\n			return;\n	&#125;\n&#125;\n\nvoid n61_addmsg&#40;char *dest, char *msg&#41;\n&#123;\n	int n;\n\n	// clip args for safety&#46; in theory not necessary\n	msg&#91;160&#93; = 0;\n	dest&#91;16&#93; = 0;\n\n	// add the message\n	n = n61_msgqueuesize;\n	strcpy&#40;n61_msgqueue&#91;n&#93;, msg&#41;;\n	strcpy&#40;n61_msgqueue2&#91;n&#93;, dest&#41;;\n	++n61_msgqueuesize;\n&#125;\n\nint n61_smsrecv&#40;char *dest, char *msg&#41;\n&#123;\n	int n;\n\n	n61_block&#40;&#41;;\n	n = n61_msgqueuesize;\n\n	if&#40;n &lt;= 0&#41; &#123;\n		n61_unblock&#40;&#41;;\n		return 0;\n	&#125;\n\n	strcpy&#40;msg, n61_msgqueue&#91;0&#93;&#41;;\n	strcpy&#40;dest, n61_msgqueue2&#91;0&#93;&#41;;\n	--n61_msgqueuesize;\n\n	for&#40;n = 0; n &lt; n61_msgqueuesize; ++n&#41; &#123;\n		strcpy&#40;n61_msgqueue&#91;n&#93;, n61_msgqueue&#91;n+1&#93;&#41;;\n		strcpy&#40;n61_msgqueue2&#91;n&#93;, n61_msgqueue2&#91;n+1&#93;&#41;;\n	&#125;\n\n	n61_unblock&#40;&#41;;\n\n	return 1;\n&#125;\n\nint n61_smsqueue&#40;&#41;\n&#123;\n	return n61_msgqueuesize;\n&#125;\n\nint n61_sendframe&#40;int type, int size, unsigned char *data&#41;\n&#123;\n	unsigned char buf&#91;256&#93;;\n	int at, n, check, len;\n	unsigned short *p;\n\n	at = 0;\n\n	// build header\n	buf&#91;at++&#93; = 0x1e;		// message startbyte\n	buf&#91;at++&#93; = 0x00;		// dest&#58; phone\n	buf&#91;at++&#93; = 0x0c;		// source&#58; PC\n	buf&#91;at++&#93; = type;\n	buf&#91;at++&#93; = 0x00;\n	buf&#91;at++&#93; = size;\n\n	// add data\n	for&#40;n = 0; n &lt; size; ++n&#41;\n		buf&#91;at++&#93; = data&#91;n&#93;;\n\n	// if odd numbered, add filler byte\n	if&#40;size % 2&#41; &#123;\n		buf&#91;at++&#93; = 0x00;\n	&#125;\n\n	// calculate checksums\n	check = 0;\n	p = &#40;unsigned short *&#41;buf;\n	len = at / 2;\n	for&#40;n = 0; n &lt; len; ++n&#41;\n		check ^= p&#91;n&#93;;\n	p&#91;n&#93; = check;\n	at += 2;\n\n	// send the message!\n	for&#40;n = 0; n &lt; at; ++n&#41; &#123;\n		n61_serial_send&#40;buf&#91;n&#93;&#41;;\n	&#125;\n&#125;\n\nint n61_nextseq&#40;&#41;\n&#123;\n	int n;\n\n	n = n61_seqnum;\n	n61_prevseq = n;\n\n	++n61_seqnum;\n	n61_seqnum &amp;= 7;\n\n	return &#40;n + 0x40&#41;;\n&#125;\n\nint n61_sendmsg&#40;int type, int size, unsigned char *data&#41;\n&#123;\n	unsigned char buf&#91;N61MAXSIZE + 2&#93;;\n	unsigned char num, lastsize;\n	int n;\n	int len;\n\n	num = &#40;size + N61MAXSIZE - 1&#41; / N61MAXSIZE;\n	lastsize = size % N61MAXSIZE;\n\n	for&#40;n = 0; n &lt; num;&#41; &#123;\n		if&#40;n + 1 == num&#41;\n			len = lastsize;\n		else\n			len = N61MAXSIZE;\n\n		// get current chunk\n		memcpy&#40;buf, data + &#40;n * N61MAXSIZE&#41;, len&#41;;\n		buf&#91;len&#93; = num - n;\n		buf&#91;len+1&#93; = n61_nextseq&#40;&#41;;\n		if&#40;n&#41;\n			buf&#91;len+1&#93; &amp;= 7;\n\n		n61_ack = 0;\n		n61_sendframe&#40;type, len + 2, buf&#41;;\n		n61_ackwait&#40;1000&#41;;\n		if&#40;n61_ack&#41;\n			++n;\n	&#125;\n&#125;\n\nvoid n61_sendack&#40;int type, int seqnum&#41;\n&#123;\n	char buf&#91;2&#93;;\n\n	buf&#91;0&#93; = type;\n	buf&#91;1&#93; = seqnum;\n\n	n61_sendframe&#40;0x7f, 2, buf&#41;;\n&#125;\n\nvoid n61_update_main&#40;&#41;\n&#123;\n	int n;\n	unsigned char c;\n\n	while&#40;n61_serial_isdata&#40;&#41;&#41; &#123;\n		c = n61_serial_recv&#40;&#41;;\n\n		// calculate the checksums\n		n61_tmp&#46;cs&#91;n61_atbyte &amp; 1&#93; ^= c;\n\n		// act on the byte\n		switch&#40;n61_mode&#41; &#123;\n			case N61MODE_SYNC&#58;\n				if&#40;c == 0x1e&#41; &#123;\n					if&#40;!n61_multiple&#41; &#123;\n						memset&#40;n61_tmp&#46;dat, 0, 256&#41;;\n						n61_atbyte = 0;\n					&#125;\n\n					n61_tmp&#46;cs&#91;0&#93; = 0x1e;\n					n61_tmp&#46;cs&#91;1&#93; = 0;\n\n					n61_mode = N61MODE_DEST;\n				&#125;\n				break;\n\n			case N61MODE_DEST&#58;\n				n61_tmp&#46;dest = c;\n				n61_mode = N61MODE_SOURCE;\n				break;\n\n			case N61MODE_SOURCE&#58;\n				n61_tmp&#46;source = c;\n				n61_mode = N61MODE_TYPE;\n				break;\n\n			case N61MODE_TYPE&#58;\n				n61_tmp&#46;type = c;\n				n61_mode = N61MODE_UNKNOWN;\n				break;\n\n			case N61MODE_UNKNOWN&#58;\n				n61_tmp&#46;unknown = c;\n				n61_mode = N61MODE_SIZE;\n				break;\n\n			case N61MODE_SIZE&#58;\n				if&#40;n61_multiple&#41;\n					n61_tmp&#46;size += c - 2;\n				else &#123;\n					n61_tmp&#46;size = c;\n					n61_datp = 0;\n				&#125;\n\n				n61_mode = N61MODE_DATA;\n\n				// calculate the number of bytes to read\n				n = n61_tmp&#46;size % 2;\n\n				// message size + filler + checksums\n				n61_readsize = n61_tmp&#46;size + n + 2;\n\n				break;\n\n			case N61MODE_DATA&#58;\n				n = n61_datp++;\n				if&#40;n &gt; 255&#41; &#123;\n					n61_multiple = 0;\n					n61_mode = N61MODE_SYNC;\n					break;\n				&#125;\n\n				n61_tmp&#46;dat&#91;n&#93; = c;	// get the byte\n\n				// are we done yet?\n				if&#40;n &gt;= n61_readsize - 1&#41; &#123;\n					// checksums ok?\n					if&#40;n61_tmp&#46;cs&#91;0&#93; == n61_tmp&#46;cs&#91;1&#93; &amp;&amp; n61_tmp&#46;cs&#91;0&#93; == 0&#41; &#123;\n						// don\'t want to ACK on an ACK\n						if&#40;n61_tmp&#46;type != 0x7f&#41; &#123;\n							n61_sendack&#40;n61_tmp&#46;type, n61_tmp&#46;dat&#91;n61_tmp&#46;size-1&#93; &amp; 0x0f&#41;;\n\n							if&#40;n61_tmp&#46;size &gt; 1 &amp;&amp; n61_tmp&#46;dat&#91;n61_tmp&#46;size-2&#93; != 0x01&#41; &#123;\n								n61_datp -= 4;  // back up past checksums and seqinfo\n								++n61_multiple;\n							&#125;\n							else\n								n61_multiple = 0;\n						&#125;\n\n						if&#40;!n61_multiple || n61_tmp&#46;type == 0x7f&#41; &#123;\n							n61_multiple = 0;\n							memcpy&#40;&amp;n61_buf, &amp;n61_tmp, sizeof&#40;struct N61_MESSAGE&#41;&#41;;\n							n61_procmsg&#40;&amp;n61_buf&#41;;\n						&#125;\n					&#125;\n					else &#123;\n						// bad!\n						n61_multiple = 0;\n					&#125;\n					n61_mode = N61MODE_SYNC;\n				&#125;\n\n			default&#58;\n				break;\n		&#125;\n\n		++n61_atbyte;\n	&#125;\n&#125;\n\nvoid n61_getstatus&#40;&#41;\n&#123;\n	unsigned char buf&#91;32&#93;;\n\n	buf&#91;0&#93; = 0x00;\n	buf&#91;1&#93; = 0x01;\n	buf&#91;2&#93; = 0x00;\n\n	buf&#91;3&#93; = 0x6d;\n\n	n61_sendmsg&#40;0x11, 4, buf&#41;;\n&#125;\n\nvoid n61_getsmsc&#40;&#41;\n&#123;\n	unsigned char buf&#91;32&#93;;\n	int x, n;\n\n	buf&#91;0&#93; = 0x00;\n	buf&#91;1&#93; = 0x01;\n	buf&#91;2&#93; = 0x00;\n\n	buf&#91;3&#93; = 0x33;\n	buf&#91;4&#93; = 0x64;\n\n	buf&#91;5&#93; = 0x01;\n\n	// &quot;do&quot; or &quot;try&quot;, there is no &quot;do not&quot;\n	while&#40;1&#41; &#123;\n		// send off the request\n		n61_state = N61STATE_PROC;\n\n		n61_gotmsg = 0;\n		n61_waittype = 2;\n		n61_sendmsg&#40;0x02, 6, buf&#41;;\n\n		n61_wait&#40;1000&#41;;\n		if&#40;n61_state == N61STATE_GOOD&#41;\n			break;\n	&#125;\n&#125;\n\nvoid n61_delsms&#40;int x&#41;\n&#123;\n	unsigned char buf&#91;32&#93;;\n\n	buf&#91;0&#93; = 0x00;\n	buf&#91;1&#93; = 0x01;\n	buf&#91;2&#93; = 0x00;\n\n	buf&#91;3&#93; = 0x0a;\n	buf&#91;4&#93; = 0x02;\n	buf&#91;5&#93; = x;\n\n	n61_sendmsg&#40;0x14, 6, buf&#41;;\n&#125;\n\nvoid n61_bcd&#40;char *dest, char *s&#41;\n&#123;\n	int size, x, y, n, hi, lo;\n\n	if&#40;s&#91;0&#93; == \'+\'&#41; &#123;\n		dest&#91;1&#93; = 0x91;\n		++s;\n	&#125;\n	else\n		dest&#91;1&#93; = 0x81;\n\n	x = 0;\n	y = 2;\n	while&#40;s&#91;x&#93;&#41; &#123;\n		lo = s&#91;x++&#93; - \'0\';\n		if&#40;s&#91;x&#93;&#41;\n			hi = s&#91;x++&#93; - \'0\';\n		else\n			hi = 0x0f;\n\n		n = &#40;hi &lt;&lt; 4&#41; + lo;\n		dest&#91;y++&#93; = n;\n	&#125;\n	dest&#91;0&#93; = y - 1;\n&#125;\n\nvoid n61_bcd2&#40;char *dest, char *s&#41;\n&#123;\n	int size, x, y, n, hi, lo;\n\n	if&#40;s&#91;0&#93; == \'+\'&#41; &#123;\n		dest&#91;1&#93; = 0x91;\n		++s;\n	&#125;\n	else\n		dest&#91;1&#93; = 0x81;\n\n	x = 0;\n	y = 2;\n	while&#40;s&#91;x&#93;&#41; &#123;\n		lo = s&#91;x++&#93; - \'0\';\n		if&#40;s&#91;x&#93;&#41;\n			hi = s&#91;x++&#93; - \'0\';\n		else\n			hi = 0x0f;\n\n		n = &#40;hi &lt;&lt; 4&#41; + lo;\n		dest&#91;y++&#93; = n;\n	&#125;\n	dest&#91;0&#93; = strlen&#40;s&#41;;\n&#125;\n\nvoid n61_pack7&#40;char *dest, char *s&#41;\n&#123;\n	int len;\n	unsigned char c;\n	unsigned short *p, w;\n	int at;\n	int shift;\n	int n, x;\n\n	len = strlen&#40;s&#41;;\n	x = &#40;len * 8&#41; / 7;\n	for&#40;n = 0; n &lt; x; ++n&#41;\n		dest&#91;n&#93; = 0;\n\n	shift = 0;\n	at = 0;\n	w = 0;\n	for&#40;n = 0; n &lt; len; ++n&#41; &#123;\n		p = &#40;unsigned short *&#41;&#40;dest + at&#41;;\n		w = n61_gettrans&#40;s&#91;n&#93;&#41; &amp; 0x7f;\n		w &lt;&lt;= shift;\n\n		*p |= w;\n\n		shift += 7;\n		if&#40;shift &gt;= 8&#41; &#123;\n			shift &amp;= 7;\n			++at;\n		&#125;\n	&#125;\n&#125;\n\nint n61_smssendfull&#40;char *smsc, char *dest, char *msg&#41;\n&#123;\n	unsigned char buf&#91;256&#93;;\n	int n;\n\n	// standard frame data header\n	buf&#91;0&#93; = 0x00;\n	buf&#91;1&#93; = 0x01;\n	buf&#91;2&#93; = 0x00;\n\n	// send sms ?\n	buf&#91;3&#93; = 0x01;\n	buf&#91;4&#93; = 0x02;\n	buf&#91;5&#93; = 0x00;\n\n	// smsc\n	memset&#40;buf + 6, 0, 12&#41;;\n	n61_bcd&#40;buf + 6, smsc&#41;;\n\n	// TPDU ?\n	buf&#91;18&#93; = 0x11;\n\n	// misc\n	buf&#91;19&#93; = 0x00;	// message ref\n	buf&#91;20&#93; = 0x00;	// protocol ID\n	buf&#91;21&#93; = 0xf1;	// data coding scheme &#40;non-flash&#41;\n\n	// message size\n	buf&#91;22&#93; = strlen&#40;msg&#41;;\n\n	// destination\n	memset&#40;buf + 23, 0, 12&#41;;\n	n61_bcd2&#40;buf + 23, dest&#41;;\n\n	// validity period\n	buf&#91;35&#93; = N61VALID_24H;\n\n	// filler\n	buf&#91;36&#93; = 0;\n	buf&#91;37&#93; = 0;\n	buf&#91;38&#93; = 0;\n	buf&#91;39&#93; = 0;\n	buf&#91;40&#93; = 0;\n	buf&#91;41&#93; = 0;\n\n	// the string\n	n61_pack7&#40;buf + 42, msg&#41;;\n\n	// try till we get some response\n	while&#40;1&#41; &#123;\n		n61_state = N61STATE_PROC;\n\n		n61_gotmsg = 0;\n		n61_waittype = 1;\n		n61_sendmsg&#40;0x02, 42 + strlen&#40;msg&#41;, buf&#41;;\n\n		n61_wait&#40;5000&#41;;\n		if&#40;n61_state != N61STATE_PROC&#41;\n			break;\n	&#125;\n\n	if&#40;n61_state == N61STATE_GOOD&#41;\n		return 1;\n\n	return 0;\n&#125;\n\nint n61_smssend&#40;char *dest, char *msg&#41;\n&#123;\n	int n;\n\n	n61_block&#40;&#41;;\n	n = n61_smssendfull&#40;n61_smsc, dest, msg&#41;;\n	n61_unblock&#40;&#41;;\n\n	return n;\n&#125;\n\nvoid n61_addchar&#40;char *str, char c&#41;\n&#123;\n	int n;\n\n	n = strlen&#40;str&#41;;\n	str&#91;n&#93; = c;\n	str&#91;n+1&#93; = 0;\n&#125;\n\nchar *n61_unbcd&#40;unsigned char *dat&#41;\n&#123;\n	static char buf&#91;32&#93;;\n	int len;\n	int n, x;\n\n	buf&#91;0&#93; = 0;\n	len = dat&#91;0&#93;;\n\n	if&#40;dat&#91;1&#93; == 0x91&#41; &#123;\n		n61_addchar&#40;buf, \'+\'&#41;;\n	&#125;\n\n	for&#40;n = 0; n &lt; len-1; ++n&#41; &#123;\n		x = dat&#91;n+2&#93; &amp; 0x0f;\n		if&#40;x &lt; 10&#41;\n			n61_addchar&#40;buf, \'0\' + x&#41;;\n		x = &#40;dat&#91;n+2&#93; &gt;&gt; 4&#41; &amp; 0x0f;\n		if&#40;x &lt; 10&#41;\n			n61_addchar&#40;buf, \'0\' + x&#41;;\n	&#125;\n\n	return buf;\n&#125;\n\nchar *n61_unbcd2&#40;unsigned char *dat&#41;\n&#123;\n	static char buf&#91;32&#93;;\n	int len;\n	int n, x;\n	int at;\n\n	buf&#91;0&#93; = 0;\n	len = dat&#91;0&#93;;\n\n	if&#40;dat&#91;1&#93; == 0x6f || dat&#91;1&#93; == 0x91&#41; &#123;\n		n61_addchar&#40;buf, \'+\'&#41;;\n	&#125;\n\n	at = 2;\n	for&#40;n = 0; n &lt; len; ++n&#41; &#123;\n		x = dat&#91;at&#93; &amp; 0x0f;\n		if&#40;x &lt; 10&#41;\n			n61_addchar&#40;buf, \'0\' + x&#41;;\n		++n;\n		if&#40;!&#40;n &lt; len&#41;&#41;\n			break;\n		x = &#40;dat&#91;at&#93; &gt;&gt; 4&#41; &amp; 0x0f;\n		if&#40;x &lt; 10&#41;\n			n61_addchar&#40;buf, \'0\' + x&#41;;\n		++at;\n	&#125;\n\n	return buf;\n&#125;\n\nchar *n61_unpack7&#40;unsigned char *dat, int len&#41;\n&#123;\n	static char buf&#91;256&#93;;\n	unsigned short *p, w;\n	unsigned char c;\n	int n;\n	int shift;\n	int at;\n\n	shift = 0;\n	at = 0;\n	buf&#91;0&#93; = 0;\n	for&#40;n = 0; n &lt; len; ++n&#41; &#123;\n		p = &#40;unsigned short *&#41;&#40;dat + at&#41;;\n		w = *p;\n		w &gt;&gt;= shift;\n		c = w &amp; 0x7f;\n\n		shift += 7;\n		if&#40;shift &amp; 8&#41; &#123;\n			shift &amp;= 0x07;\n			++at;\n		&#125;\n\n		n61_addchar&#40;buf, n61_transtable&#91;c&#93;&#41;;\n	&#125;\n\n	return buf;\n&#125;\n\nvoid n61_procmsg&#40;struct N61_MESSAGE *msg&#41;\n&#123;\n	int n, subtype;\n\n	// check if this is a msg of interest\n	subtype = 0;\n	if&#40;msg-&gt;type != 0x7f&#41; &#123;\n		if&#40;msg-&gt;type == 0x02&#41; &#123;\n			if&#40;msg-&gt;dat&#91;3&#93; == 0x02 || msg-&gt;dat&#91;3&#93; == 0x03&#41;\n				subtype = 1;\n			if&#40;msg-&gt;dat&#91;3&#93; == 0x10&#41;\n				subtype = 2;\n			if&#40;msg-&gt;dat&#91;3&#93; == 0x34&#41;\n				subtype = 3;\n		&#125;\n		if&#40;subtype == n61_waittype&#41;\n			n61_gotmsg = 1;\n	&#125;\n\n	// act on it\n	switch&#40;msg-&gt;type&#41; &#123;\n		// SMS\n		case	0x02&#58;\n			if&#40;msg-&gt;dat&#91;3&#93; == 0x02&#41; &#123;\n				n61_state = N61STATE_GOOD;\n			&#125;\n			if&#40;msg-&gt;dat&#91;3&#93; == 0x03&#41; &#123;\n				n61_state = N61STATE_BAD;\n			&#125;\n			if&#40;msg-&gt;dat&#91;3&#93; == 0x10&#41; &#123;\n				n61_addmsg&#40;n61_unbcd2&#40;msg-&gt;dat + 23&#41;, n61_unpack7&#40;msg-&gt;dat + 42, msg-&gt;dat&#91;22&#93;&#41;&#41;;\n\n				// now delete the msg\n				if&#40;msg-&gt;dat&#91;5&#93;&#41;\n					n61_delsms&#40;msg-&gt;dat&#91;5&#93;&#41;;\n			&#125;\n\n			// SMSC\n			if&#40;msg-&gt;dat&#91;3&#93; == 0x34&#41; &#123;\n				n61_state = N61STATE_GOOD;\n				strcpy&#40;n61_smsc, n61_unbcd&#40;msg-&gt;dat+21&#41;&#41;;\n			&#125;\n			break;\n\n		case	0x7f&#58;\n			if&#40;&#40;msg-&gt;dat&#91;1&#93; &amp; 7&#41; == n61_prevseq&#41;\n				n61_ack = 1;\n			break;\n\n		default&#58;\n			break;\n	&#125;\n&#125;\n\nvoid n61_init&#40;int &#40;*func&#41;&#40;int cmd, unsigned char c&#41;&#41;\n&#123;\n	int n;\n\n	n61_seqnum = 0;\n	n61_serial = func;\n	n61_blocked = 0;\n	n61_msgqueuesize = 0;\n	n61_multiple = 0;\n	n61_readbase = 0;\n\n	// getsmsc\n	n61_getsmsc&#40;&#41;;\n&#125;\n\n[/code:tu0i2l31]\n\nPlease ! This is for my son  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nRegards\nAreang','',0,'AIA=','tu0i2l31',1,0,'',707,0,0),(29944,6485,6,95,0,'189.155.107.208',1176732550,1,0,1,1,1,0,'','','Antonio,\n\nla funcio file() curiosamente me truena, pero la uso en un procedimiento dentro de una libreria. Quize sacarla para ver si esta funcionando bien, y si efectivamente funciona, solo consigo el error de memory.\n\nTratare de poner un ejemplo haber si logro reproducir el error.\n\n\nAhora se que un archivo es diferente en mayusculas y minusculas, hay alguna forma de que los programas no tengan ninguna diferencia. ?\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','lpicky2a',1,0,'',95,0,0),(29945,6696,6,1014,0,'201.240.89.130',1176733198,1,0,1,1,1,1,'','Variables publicas y privadas','Hola amigos del foro\nSoy Jorge Vargas, de Lima, Perú, tengo algunos añitos programando en Clipper y mucho antes lo hacia para Main frames, y ahora estoy empezando a convertir mis aplicaciones de DOS a Windows usando FW + xHarbour, he estado dando una ojeada por el  foro y me gusta bastante por la cantidad de cosas que se aprende. \nAhora estoy tratando de compilar los 1ros prg’s que he convertido de Clipper, y recibo montones de warning W0002 por variables con referencia ambigua, y son asumidas como MEMVAR. Aunque en los parámetros de compilación existe “/a /n /v” asumiendo que son similares a Clipper y que debe solucionar estos mensajes. Las variables Publicas que defino en el programa principal y las uso indistintamente en funciones de todos los otros prg’s no son reconocidas.. estos warning dejan compilar los prg’s pero cuando ejecuto el Exec me da  “Error BASE/1003  Variable does not exist: XNTX” , esta variable publica fue declarada en el prg inicial.  Lo mismo sucede con variables Privadas  por ejemplo los Objetos y sus variables de los Dlg’s que defino al principio del prg. secundario y las uso en funciones o procedimientos dentro del mismo prg generan los warnings. <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x -->\nExiste algún truco para que las variables Privadas declaradas en la  función A puedan ser vistas y modificadas por la función B que es llamada por la función A. Y las variables Publicas declaradas en el programa principal puedan ser utilizadas en cualquier otra función o procedimiento de cualquier programa que éste llame, sin tener que utilizar MEMVAR para cada variable publica ya declarada en el programa principal?? Tal como en Clipper?\nHay algún manual de mensajes de errores de xHarbour  y Fw ? no lo encuentro por ningún lado\nMuchas gracias de antemano por la ayuda.\nJorge Vargas\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','1dpr5s46',1,0,'',1014,0,0),(29946,6679,6,103,0,'201.8.79.127',1176734303,1,0,1,1,1,1,'','','Patrício,\n\n   Te comento que he hecho testes aqui y no consigo reproducir tu problema. Puedes decir exactamente en que punto se genera dicho error? \n\nGracias','',0,'AIA=','22vwn0ai',1,0,'',103,0,0),(29947,6696,6,376,0,'201.230.199.63',1176736174,1,0,1,1,1,1,'','','Hola Jorge.\n\nTambién yo estoy en Perú.\n\nPara evitar los warnings debes compilar con el flag /w0 (como en clipper). El error NTX es posible sea porque no estas considerando la liberia adecuada (nunca he visto un error XNTX).\n\nQué maker estas utilizando? VERCE, Fronted o un bat?\n\nSaludos\n\nArmando','',0,'AIA=','3suutpwf',1,0,'',376,0,0),(29948,6697,2,304,0,'201.155.7.216',1176736952,1,0,1,1,1,0,'','Algun Software para tienda departamental','Hola:\nNecesito instalar un programa de punto de venta en  una tienda depatamental de Veracruz, Mexico.  (la idea es ponerlo en 25 tiendas), alguno de uds tienen algo desarrollado, por que me gustaria que fuera en fivewin, si no es asi  me interesa formar un buen equipo y desarrollar el propio, por que como se daran cuenta vale la pena intentarlo, nos ponemos de acuerdo y trabajamos en el desarrollo, yo tengo algo de experiencia en manejo de mini printer, cajon de dinero torretas e impresion de codigo de barras en maquinas monarch marketing. si les interesa, mi correo es <!-- e --><a href=\"mailto:servicomver@hotmail.com\">servicomver@hotmail.com</a><!-- e --> para estar en linea y sacar adelante el proyecto, mas tarde les paso una lista de los lugares donde se piensa poner los programas dentro de la republica mexicana.\nSaludos\n\nVeracruz, Mexico','',0,'AIA=','r1eexvkq',1,0,'',304,0,0),(29949,6685,6,838,0,'80.59.225.15',1176737742,1,0,1,1,1,0,'','','Perfecto Antonio\n\nSaludos\n\nJose Luis','',0,'AIA=','1md0n1x8',1,0,'',838,0,0),(29950,6695,3,6,0,'82.61.144.152',1176738046,1,0,1,1,1,1,'','Re: To : Enrico -&gt; Send SMS with Nokia FBus Connection','[quote=&quot;areang&quot;:32vabva1]Hi Enrico !\n\nPlease Help to guide me about this source code translate to FWH\n1. I want to create this source to lib files\n2. How to use with FWH[/quote:32vabva1]\n\nWhat do you exactly want to know? Have a look at the extend API and how all the FWH C sources have been written.\n\nEMG','',0,'gA==','32vabva1',1,0,'',6,0,0),(29951,6673,2,979,0,'195.53.199.6',1176738286,1,0,1,1,1,0,'','','Hola Antonio,\n\nGracias por la respuesta pero me queda un problema en el tintero.\n\nEstoy generando los dialogos con Resource Workshop y cuando redimensiono un dialogo los textos (literales) no se dimensionan.\n\n¿ Hay alguna forma de hacer que tomen el nuevo tamaño junto con los controles del dialogo? \n\nGracias por adelantado,','',0,'gA==','2e7pdeqj',1,0,'',979,0,0),(29952,6696,6,1014,0,'201.240.89.130',1176738620,1,0,1,1,1,1,'','','hola Armando.\nmuchas gracias por tu pronta respuesta, he hecho la modificacion \"/w0\"al bat de compilacion pero sigue dando los mismos warninigs W0002.\ntalvez me expresé mal pero el XNTX es una variable publica que inicializo al principio MAIN() y tiene \".CDX\", y la uso en una funcion dentro del mismo MAIN, dando el msg Base 1003.\nsera un gusto conocerte en algun momento\ngracias\nj vargas','',0,'gA==','ee2veuui',1,0,'',1014,0,0),(29954,6694,3,785,0,'190.64.220.52',1176741682,1,0,1,1,1,0,'','','Detlef:\n\nTry to contact the ADS\'Master, Mr. RF is the man.\nYou\'ll find his email here in  the forum.\n\nSorry for my English.\n\nRegards \n\nRuben Fernandez','',0,'EA==','2j0op71c',1,0,'',785,0,0),(29955,6694,3,110,0,'148.168.40.4',1176743136,1,0,1,1,1,1,'','','Detlef\n\ntoday night prepare you a little manual with examples\nin spanish. (sorry, my native language is the spanish).\n\nbut can you traslate or an other friends <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsorry for my terrible english. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\nsalu2\ncarlos vargas','',0,'EA==','34xdv8va',1,0,'',110,0,0),(29956,6694,3,58,0,'84.149.108.199',1176743798,1,0,1,1,1,0,'','','Hello Ruben and Carlos,\n\nthank you very much .\nDon\'t care for good or horrible english.\nIt is not my native language too.\n\nSo your help is appreciated <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->.\n\nBest regards,\nDetlef','',0,'EA==','31rsvt5m',1,0,'',58,0,0),(29957,6480,6,39,0,'201.220.111.103',1176744212,1,0,1,1,1,0,'','','Podrias enviarmela a mi tambien, a lautaro.moreira arroba gmail.com\n\ngracias\n\nAtte.,\nLautaro','',0,'EA==','zqc94lub',1,0,'',39,0,0),(29958,6693,6,92,0,'83.41.221.184',1176744784,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2rd2h85a]Carlos,\n\nSí, parece lógico. Habría que probarlo y comprobar que no genere algún error.\n\nLo has probado ?[/quote:2rd2h85a]\n\nBuenas a todos,\n\nHe probado la modificación (añadir el EVal() de ::bPostkey) del método HandleEvent() de TGet.prg, y de momento no he tenido problemas y hace lo que deseo.\n\nEl método al final queda:\n\n.../...\n      case nMsg == WM_PASTE\n           CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 )\n           ::oGet:buffer = Pad( GetWindowText( ::hWnd ), Len( ::oGet:buffer ) )\n           DEFINE CLIPBOARD oClp OF Self FORMAT TEXT\n           ::oGet:Pos += Len( oClp:GetText() )\n           oClp:End()\n           ::oGet:Assign()\n           Eval( ::bPostKey, Self, ::oGet:Buffer )    // FWD 16/04/2007\n           return 0\n.../...\n\nSaludos\nCarlos G.','',0,'gA==','2rd2h85a',1,0,'',92,0,0);
INSERT INTO `phpbb_posts` VALUES (29959,6673,2,92,0,'83.41.221.184',1176745271,1,0,1,1,1,0,'','Redimensionar Ventanas, diálogos y controles.','Prueba con esta función en la cláusula INIT del ACTIVATE del diálogo:\n\n*****************************************\n#Include \"FiveWin.ch\"\n\n/*\n   Los parámetros recibidos son:\n\n    lAutoresize:    permite prescindir de la funcionalidad de esta función; permitiendo\n                    de esta manera que la aplicación pueda tener un flag que\n                    permita/deniegue el autoredimensionado de las pantallas. 03/03/2006.\n    nWhatSize:      permite forzar el redimensionamiento a unos valores concretos;\n                    permitiendo de esta manera que la aplicación pueda tener un valor\n                    al cual redimensionar las pantallas. 03/03/2006.\n     oWnd:          Objeto/ventana/diálogo/control a ser redimensionado.\n     nResolution:   Número que identifica que resolución tenía la pantalla en la cual\n                    se diseñó el objeto.\n                    Este valor puede ser negativo, hecho que se interpretará como que\n                    la ventana ya ha estado redimensionada previamente y se pretende\n                    redimensionarla a su valor original. Esta característica es útil\n                    para provocar que un control (o ventana/dialogo) concreto se le\n                    devuelva su tamaño original según su valor de diseño. 03/03/2006\n     lRepaint:      Indicador de si debe repintarse el objeto una vez redimensionado.\n\n   Esta función permitirá que una aplicación desarrolada en un PC con una resolución\n   de pantalla de por ejemplo 1024 x 768 (nResolution valdría en este caso 3), se vea\n   redimensionada proporcionalmente en un PC con una resolución diferente, ya sea mayor\n   o menor.\n\n   A falta de perfeccionar el código, se comprueba solamente la variación de la anchura\n   de la resolución de la pantalla para aplicar la variación del tamaño, aunque cuando\n   ello se realiza se hace tanto en la anchura como en la altura.\n   Ahora se comprueba la altura. 09/12/2005.\n\n   Esta función está orientada a ser utilizada en el evento ON INIT del ACTIVATE\n   de las WINDOW y DIALOG con un valor fijo de lRepaint a .T. o sin él.\n   Además también puede utilizarse directamente sobre un control definido posteriormente\n   a la ACTIVACIÓN de su contenedor ya sea éste WINDOW o DIALOG, con la salvedad que\n   lRepaint debe valer .T. para forzar su repintado.\n\n   Ejemplos de uso:\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n          Se redimensiona toda la ventana oWnd y sus controles.\n\n          ACTIVATE oWnd ON INIT AutoResiz( .T., 0, oWnd, 3 )\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n          Se redimensiona todo el dialogo oDlg y sus controles. Además se fuerza que el control\n          oMyMulGet se redimensione como si la resolución de pantalla fuera del tipo 2.\n\n          ACTIVATE oDlg ON INIT AutoResiz( .T., 0, oWnd, 3 )\n\n          AutResiz( .T., 2, oMyMulGet, 0)\n\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n          Se redimensiona el control oTabs.\n          @ 185.50,8.00 TABS oTabs OF oWnd ITEMS \"Tab1\",\"Tab2\",\"Venga a ordenarrrrr!!\" ;\n          PIXEL COLORS CLR_BLUE,CLR_HCYAN SIZE 288.00,9.00 MESSAGE \"Mensaje del Tabs\"\n\n          AutoResiz( .T., 0, oTabs, 3, .T. )\n\n          -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -* -*\n*/\n\nFUNCTION AutResiz( lAutoresize, nWhatSize, oWnd, nResolution, lRepaint )\n\n// Resolución de la pantalla en el momento de definir los controles.\nLocal nOriWidth, nOriHeight\n\n// Lo normal sería que fuera la resolución actual de la pantalla (nWhatSize=0).\n// Se permite forzar esta resolución mediante el valor de nWhatSize=1,2,3,4,5,6,7,....\nLocal nWidth, nHeight\n\n// Son la relación entre la resolución de pantalla y la resolución de diseño.\nLocal nFactorWitdh, nFactorHeight\n\nLocal nContador\n\nDEFAULT lRepaint := .T.\n\nnOriWidth  := 0\nnOriHeight := 0\nnWidth     := 0\nnHeight    := 0\nnContador  := 0\n\nIf ABS(nResolution) = 1\n    nOriWidth  := 640\n    nOriHeight := 480\nElseIf ABS(nResolution) = 2\n    nOriWidth  := 800\n    nOriHeight := 600\nElseIf ABS(nResolution) = 3\n    nOriWidth  := 1024\n    nOriHeight := 768\nElseIf ABS(nResolution) = 4\n    nOriWidth  := 1152\n    nOriHeight := 864\nElseIf ABS(nResolution) = 5\n    nOriWidth  := 1280\n    nOriHeight := 800\nElseIf ABS(nResolution) = 6\n    nOriWidth  := 1280\n    nOriHeight := 1024\nElseIf ABS(nResolution) = 7\n    nOriWidth  := 1600\n    nOriHeight := 1200\nElseIf ABS(nResolution) = 8\n    nOriWidth  := 768\n    nOriHeight := 1024\nElse\n    ScrResolution( @nOriWidth, @nOriHeight )\nEndif\n\n//If nWhatSize = 0\n//    ScrResolution( @nWidth, @nHeight )\n//ElseIf nWhatSize = 1\n\nIf nWhatSize = 1\n    nWidth  := 640\n    nHeight := 480\nElseIf nWhatSize = 2\n    nWidth  := 800\n    nHeight := 600\nElseIf nWhatSize = 3\n    nWidth  := 1024\n    nHeight := 768\nElseIf nWhatSize = 4\n    nWidth  := 1152\n    nHeight := 864\nElseIf nWhatSize = 5\n    nWidth  := 1280\n    nHeight := 800\nElseIf nWhatSize = 6\n    nWidth  := 1280\n    nHeight := 1024\nElseIf nWhatSize = 7\n    nWidth  := 1600\n    nHeight := 1200\nElseIf nWhatSize = 8\n    nWidth  := 768\n    nHeight := 1024\nElse\n\n    ScrResolution( @nWidth, @nHeight )\n\n    /*\n    If oWnd:ClassName() = \"TMDICHILD\"\n        nWidth  := oWnd:oWnd:nRight  - oWnd:oWnd:nLeft - 10\n        nHeight := oWnd:oWnd:nBottom - oWnd:oWnd:nTop - 0\n    ElseIf oWnd:oWnd:ClassName() = \"TMDICHILD\"\n        nWidth  := oWnd:oWnd:oWnd:nRight  - oWnd:oWnd:oWnd:nLeft - 10\n        nHeight := oWnd:oWnd:oWnd:nBottom - oWnd:oWnd:oWnd:nTop - 0\n    Else\n        ScrResolution( @nWidth, @nHeight )\n    EndIf\n\n    //ScrResolution( @nWidth, @nHeight )\n    */\n\nEndif\n\n\n//ScrResolution( @nWidth, @nHeight )\n\n/*\nTraza( 1, \"nOriWidth=\", nOriWidth )\nTraza( 1, \"nOriHeight=\", nOriHeight )\n\nTraza( 1, \"nWidth=\", nWidth )\nTraza( 1, \"nHeight=\", nHeight )\n*/\n\n//Traza( 1, \"oWnd:ClassName()=\", oWnd:ClassName()  )\n\n//If nOriWidth != nWidth // .or.\nIf lAutoresize .and. nOriHeight != nHeight\n\n    /* Este será el caso habitual, en el cual se pretende redimensionar\n       los controles a la resolución de la pantalla en la cual se estan\n       viendo. 01/03/2006  */\n    If nResolution &gt; 0\n\n        nFactorWitdh  := nWidth / nOriWidth\n        nFactorHeight := nHeight / nOriHeight\n\n    /* Este será el caso en el cual se pretende deshacer el redimensionamiento\n       de los controles realizado previamente. */\n    ElseIf nResolution &lt; 0\n\n        nFactorWitdh  := nOriWidth / nWidth\n        nFactorHeight := nOriHeight / nHeight\n\n    EndIf\n\n    //oWnd:CoorsUpdate()\n\n    If lRepaint\n        oWnd:Hide()\n    EndIf\n\n    //If nFactorWitdh &gt; 1 // .or.\n    If nFactorHeight &gt; 1\n\n        //Traza( 1, \"Aumentando tamaño.\" )\n\n        If oWnd:ClassName() == \"kalimeroquetequiero\"\n\n        ElseIf oWnd:ClassName() $ \"/TJ02LISMN/TLISTBOX/\"\n/*            Traza( 1, \"oWnd:nTop=\", oWnd:nTop )\n            Traza( 1, \"oWnd:nLeft=\", oWnd:nLeft )\n            Traza( 1, \"oWnd:nWidth=\", oWnd:nWidth )\n            Traza( 1, \"oWnd:nHeight=\", oWnd:nHeight )\n*/\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight , ;\n                       .F. )\n        Else\n\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight * nFactorHeight , ;\n                       .F. )\n        EndIf\n    EndIf\n\n    If oWnd:ClassName() == \"TFOLDER\"\n//        Traza( 1, \"ValType(oWnd:aDialogs)=\", ValType(oWnd:aDialogs) )\n        If ValType( oWnd:aDialogs ) = \"A\"\n            For nContador := 1 To Len( oWnd:aDialogs )\n                AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. )\n            EndFor\n        EndIf\n      Else\n//        Traza( 1, \"ValType(oWnd:aControls)=\", ValType(oWnd:aControls) )\n        If ValType( oWnd:aControls ) = \"A\"\n            For nContador := 1 To Len( oWnd:aControls )\n                AutResiz( lAutoresize, nWhatSize, oWnd:aControls[nContador], nResolution, .F. )\n            EndFor\n        EndIf\n    EndIf\n\n    //If nFactorWitdh &lt; 1 // .or.\n    If nFactorHeight &lt; 1\n\n        //Traza( 1, \"Disminuyendo tamaño.\" )\n\n        If oWnd:ClassName() == \"kalimeroquetequiero\"\n\n        ElseIf oWnd:ClassName() $ \"/TJ02LISMN/TLISTBOX/\"\n\n/*            Traza( 1, \"oWnd:nTop=\", oWnd:nTop )\n            Traza( 1, \"oWnd:nLeft=\", oWnd:nLeft )\n            Traza( 1, \"oWnd:nWidth=\", oWnd:nWidth )\n            Traza( 1, \"oWnd:nHeight=\", oWnd:nHeight )\n*/\n\n            //Traza( 1, \"oWnd:nRight=\", oWnd:nRight )\n            //Traza( 1, \"oWnd:nBottom=\", oWnd:nBottom )\n\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight , ;\n                       .F. )\n            //oWnd:SetSize( oWnd:nWidth * nFactorWitdh, oWnd:nHeight * nFactorHeight, .T. )\n/*            Traza( 1, \"oWnd:nTop=\", oWnd:nTop )\n            Traza( 1, \"oWnd:nLeft=\", oWnd:nLeft )\n            Traza( 1, \"oWnd:nWidth=\", oWnd:nWidth )\n            Traza( 1, \"oWnd:nHeight=\", oWnd:nHeight )\n*/\n\n        Else\n\n            oWnd:Move( oWnd:nTop * nFactorHeight , ;\n                       oWnd:nLeft * nFactorWitdh, ;\n                       oWnd:nWidth * nFactorWitdh, ;\n                       oWnd:nHeight * nFactorHeight , ;\n                       .F. )\n        EndIf\n    EndIf\n\n    If lRepaint\n        oWnd:Show()\n    EndIf\n\nEndIf\n\nReturn Nil\n*****************************************\n\nSaludos\nCarlos G.','',0,'','1sb9sv5n',1,0,'',92,0,0),(29960,6488,6,207,0,'189.158.115.73',1176746384,1,0,1,1,1,0,'','','hola podrias pasarme la tdbfh y si tienes la TSbrowse que tienes funcionando con FW701, quizas por alli este el mal, ya que no me deja usar objetos database, set index, etc, esto  que estube haciendo me parece demasiado para actualizar mis programas, imaginate si este es uno solo y no he podido hacerlo funcionar, que sera cuando me ponga a corregirlos todos, si me dijeron \"nada mas recompila y ya\", pues asi debe ser, si todos mis programas funcionan con FW2.4, deden funcionar con 7.01 sin cambios, o minimos cambios.','',0,'','1kul6pqx',1,0,'',207,0,0),(29961,6696,6,2,0,'87.218.146.178',1176746668,1,0,1,1,1,1,'','','Jorge,\n\nPor favor muestra una pequeña muestra de tu código para que veamos como lo haces y así ayudarte correctamente, gracias','',0,'','7xxybgms',1,0,'',2,0,0),(29962,6488,6,2,0,'87.218.146.178',1176746981,1,0,1,1,1,1,'','','Miguel,\n\nFWH siempre mantiene compatibilidad con el código anterior, lo que ocurre es que si se está usando una librería de terceros como en este caso es la clase TDbf, pues pueden aparecer este tipo de errores por el uso de funciones que han cambiado en Harbour, etc.','',0,'','1cu811g9',1,0,'',2,0,0),(29963,6699,6,875,0,'64.76.108.179',1176747848,1,0,1,1,1,0,'','LISTBOX como obtener el numero de columna actual?','saludos a todos del Foro,  hasta ahora no se como obtener el numero de columna actual de un ListBox  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\ntengo el siguiente ListBox un DBF de 3 campos\n\npero \"oBrw2:nColAct\"  siempre retorna  1 a pesar de que el puntero esta en la 2da o 3ra columna, ¿como hago para que retorne 2 o 3?\n\n\n@ 01,01 ListBox oBrw2 ;\n  Fields G-&gt;Tco_codi,G-&gt;Tco_desc,Str(G-&gt;Tco_impo,10,2) ;\n  Header \'Codigo\',\'Descripcion\',\'Importe\' ;\n  Size 180,90 \n\nbGet:={|| uVal:=G-&gt;Tco_impo, oBrw2:lEditCol(oBrw2:nColAct,@uVal,,,,), ;\n           G-&gt;Tco_impo:=uVal, oBrw2:Refresh()  }\n\noBrw2:blDblClick:={|| Eval(bGet) }\n\n\nSe agradecera por la ayuda   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nJaime','',0,'','3mrpso85',1,0,'',875,0,0),(29964,6700,1,161,0,'81.164.212.146',1176751137,1,0,1,1,1,0,'','Keyboard Layout','Hi,\n\nIs there a way to get the keyboard-layout of the PC?\n\nThanks,\nMarc','',0,'','80s7uyp1',1,0,'',161,0,0),(29965,6694,3,810,0,'89.12.18.200',1176751278,1,0,1,1,1,0,'','','I have a nice 7.1 demo \n\n<!-- e --><a href=\"mailto:udiemer@web.de\">udiemer@web.de</a><!-- e -->','',0,'','c46h7nsx',1,0,'',810,0,0),(29966,6488,6,207,0,'189.158.115.73',1176751758,1,0,1,1,1,0,'','','totalmente de acuedo Antonio, por eso pido si alguien tiene funcionando estas libs con 701 , me las haga llegar, talvez desde alli esta mi error.\nGracias','',0,'','2jbsqfca',1,0,'',207,0,0),(29967,6701,6,1022,0,'189.145.131.82',1176752949,1,0,1,1,1,0,'','Reporte o Formato Preview a Word.','¿Hay una forma de que cuando imprima un reporte o un formato de documento (factura, pedido, cotizacion, etc) en lugar de mandarlo a papel lo exporte a un archivo de word? Gracias','',0,'','gpm650wj',1,0,'',1022,0,0),(29968,6538,6,875,0,'64.76.108.179',1176756177,1,0,1,1,1,0,'','','lo que yo hago siempre es adicionar varios registros en blancos y de alli todo normal,  Se supone que esa tabla es un temporal no?\n\n\n\nJaime','',0,'','2xqn9pdk',1,0,'',875,0,0),(29971,6488,6,92,0,'81.38.204.47',1176760065,1,0,1,1,1,0,'','','[quote=&quot;Miguel Salas&quot;:1fxfslgj]totalmente de acuedo Antonio, por eso pido si alguien tiene funcionando estas libs con 701 , me las haga llegar, talvez desde alli esta mi error.\nGracias[/quote:1fxfslgj]\n\nPrueba con este:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/0207653518/Tdbf_Hb1.01.zip.html\">http://hyperupload.com/download/0207653 ... 1.zip.html</a><!-- m -->\n\nParece que funciona con Harbour 1.01 y FiveWin 7.04\n\nSaludos\nCarlos G.','',0,'gA==','1fxfslgj',1,0,'',92,0,0),(29972,6694,3,138,0,'189.141.67.139',1176760595,1,0,1,1,1,1,'','','Detlef:\n\nADS ver. 6.x is quite old, should be about 4 or 5 years old, the newest version is 8.1, in fact version 6.x is not longer supported and has been discontinued.\n\nWhat you need:\n\n1) The ADS needed DLL files, you have to place them in the same directory where you EXE file is:\n\nADSLOC32.DLL: this is a full featured ADS LOCAL Server, supports all the ADS features except two: Is not Client/Server aware, and it doesn\'t support transactions. You can use it in your personal computer or in LAN enviroments up to 5 users. You are free to distribuite it with your application.\n\nACE32.DLL: this file contains ALL the ADS functions, you will need this file to create a LIB file to link into your EXE, keep reading.\n\nAXWCS32.DLL: this is the \"client\" for ADS, no matter which server you use (LOCAL, REMOTE or INTERNET) you will need this file to exist in order to connect to the server.\n\nThese are free DLLs that you can distribuite along with your application.\n\nWhere to get them ?. They are free, and they are included in the Advantage Data Architech (ARC) which is a free tool, kind of DBU, very useful by the way, you can browse DBFCDX, DBFNTX or ADS tables with it, you can also create \"data dictionaries\" and use SQL to retireve data from your DBF files, you can download it from:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.advantagedatabase.com\">www.advantagedatabase.com</a><!-- w --> \n\nor, for fast: \n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/ver7/arc32.exe\">www.google.d2g.com/ads/ver7/arc32.exe</a><!-- w -->.\n\nI\'m refering you to version 7.1 since the ARC is more \"understandable\" than in version 8.1, however, version 7 DLLs will work perfectly in 8.1.\n\n2) Source Code.\n\nOnce you get the DLLs, you have to make some changes in your source code, add this lines at the beging of your source code:\n\n[code:1u6wbqau]\n//Requesting the ADSRDD\nREQUEST ADS\nRDDSETDEFAULT&#40;&quot;ADS&quot;&#41;\n\n//setting up server type\n// 1 = Local Server &#40;no client / server&#41;\n// 2 = Remote Server \n// 3 = Local + Remot\n// 4 = Internet Server\n// 5 = Local + Internet\n// 6 = Remote+Internet\n// 7 = Local + Remote + Internet , best choice\nAdsSetServerType&#40;7&#41;\n\n//setting up the file types\n// 1 = DBFNTX\n// 2 = DBFCDX\n// 3 = ADSADI\nAdsSetFileType&#40;2&#41;[/code:1u6wbqau]\n\nAnd basically You are done !!!!!, all the stuff regarding data access remains the same, USE, APPEND, REPLACE all the rest works as usual (commands and functions) thanks to the RDD technology.\n\nThere are some extra functions that you may need to call, but basically this all what you need.\n\n3) Compiling and linking:\n\nYou will to link 2 libraries into your (x)HB application: RDDADS.LIB and ACE32.LIB.\n\nACE32.LIB comes from ACE32.DLL, you will need to create the LIB from the DLL, you have to use the program IMPLIB.EXE to do the job (IMPLIB comes with the Borland C++ compiler in the bin directory), sintax:\n\nIMPLIB ACE32.LIB ACE32.DLL\n\nAnd you are done !!! you have created the LIB from the DLL.\n\nNo comes the not-too-easy part, to create the RDDADS.LIB\n\nYou can get the RDDADS.LIB  from (x)Harbour contributions, it comes in source \"C\" code,  it\'s highly probably that you may need to rebuild it, but you will find bat files to do the job where the source code is.\n\nOnce created the LIBs, just link them to your program, and done !!!!\n\nYou are ready to ADS.\n\nFeel free to contact me for further information','',0,'AIA=','1u6wbqau',1,0,'',138,0,0),(29973,6696,6,1014,0,'200.121.41.46',1176765298,1,0,1,1,1,1,'','','Antonio:\nvoy a preparar los prg\'s de prueba\nmuchas gracias, saludos\nJorge','',0,'AIA=','jrlo6we3',1,0,'',1014,0,0),(29974,6699,6,492,0,'189.147.22.44',1176768221,1,0,1,1,1,1,'','','Hola, yo uso este procedimiento :\n\n\nlbCapMvs:bLDblClick     := {| nRow, nCol | EdItmXDev( nRow, nCol ) }\n\n\nStatic Function EdItmXDev( nRow, nCol )\nLOCAL  nColGet := Ascan( lbCapMvs:GetColSizes(), ;\n	{ | nColumn | nColPos += nColumn, nCol &lt;= nColPos }, lbCapMvs:nColPos )\n\nmsginfo( nColGet )\n\nReturn NIL\n\n\nEspero te sirva.\n\n\nSaludos','',0,'AIA=','35ahwn5f',1,0,'',492,0,0),(29975,6703,3,2,0,'87.218.146.36',1176768561,1,0,1,1,1,1,'','Class TOleAuto for Harbour','Just to inform you that xharbour Class TOleAuto has been ported to Harbour, so if you need TOleAuto support now you can have it from Harbour too <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIts already available from Harbour CVS at contrib/ole2.\n\nNext Harbour build from FiveTech will include it (HBOleAut.lib)','',0,'AIA=','3sjz78nc',1,0,'',2,0,0),(29976,6704,6,2,0,'87.218.146.36',1176768710,1,0,1,1,1,1,'','Class TOleAuto para Harbour','Informaros de que la clase TOleAuto de xharbour ha sido portada a Harbour, por lo que si necesitais soporte de TOleAuto ahora podeis tenerlo desde Harbour tambien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nYa está disponible en el CVS de Harbour en contrib/ole2\n\nEl próximo build de Harbour de FiveTech la incluirá (HBOleAut.lib)','',0,'AIA=','18uzo6l5',1,0,'',2,0,0),(29977,6675,3,1017,0,'70.55.133.213',1176775496,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:229864xz]Carlo,\nAFAIK they were developing/providing a SOAP solution for xHarbour[/quote:229864xz]\n\nI posted a message three days ago and so far, no one on the XHB forum has said there is any SOAP development. \n\nCarlo','',0,'gA==','229864xz',1,0,'',1017,0,0),(29978,6691,3,439,0,'200.125.9.115',1176778825,1,0,1,1,1,1,'','','Thank you very much  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Rick,\n\nI imagine you had to work hard to get this knowledge  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , so is very good that you share what you learn with others beginers (like me).\n\nTHANKS AGAIN, That is real spirit of service. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3olo0sb3',1,0,'',439,0,0),(29979,6674,3,972,0,'81.164.118.31',1176786435,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1fsbj2im]&gt;Yes, I want to have a picture of \"9999999.99999\" in a narrow GET.\nWhy?[/quote:1fsbj2im]Don\'t wanne be rude, but, does it matter? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n[quote=&quot;James Bott&quot;:1fsbj2im]\n&gt;So, if we can get rid of the spaces in from of the get, I\'m saved. \nAs I mentioned, changing TGET will just create another problem.\n[/quote:1fsbj2im]So, is it posible?\n\nWe had this in Fivewin 1.9.2.\n\nAntonio?\n\nPatrick','',0,'gA==','1fsbj2im',1,0,'',972,0,0),(29981,6672,1,239,0,'218.19.6.129',1176791799,1,0,1,1,1,0,'','','Hi,\nCLASS TDialog FROM TWindow\n\n\nMETHOD Autoresize(ntop,nleft)\n\nMETHOD Autoresize(ntop,nleft)\nlocal i,rsl0,rsl1\nDEFAULT ntop:=0\nDEFAULT nleft:=0\n\n   \n \n   rsl0:=getsysmetrics(0)/800\n   if rsl0&lt;=1; return ; end  //&lt;=800*600, not needed   \n   rsl1:=getsysmetrics(1)/600\n   for  i:=1 TO LEN(::acontrols)\n       oCtrol = ::aControls[i]\n       aRect = GetCoors( oCtrol:hWnd )\n       if oCtrol:classname()==\"TCOMBOBOX\"\n           oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1)\n         else  \n           oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1, (aRect[4] - aRect[2])*rsl0, (aRect[3] - aRect[1])*rsl1, .t. )        \n       end\n   next\n  \n    aRect = GetWndRect( ::hWnd )\n  \n    ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. )\n    \n    if ::lCentered\n      WndCenter( ::hWnd )\n   else\n      if Empty( ::cResName )\n         ::Move( ::nTop, ::nLeft )\n      endif\n   endif\n       \n\nreturn\n\n\n  In you app\n\n   define dialog odlg\n   redefine controls ...\n    ...\n   activate dialog odlg on init odlg:autoresize()\n\nRegards,\nShuming Wang','',0,'','1oxb4udb',1,0,'',239,0,0),(29982,6674,3,2,0,'87.218.146.36',1176793165,1,0,1,1,1,1,'','','Patrick,\n\n&gt; We had this in Fivewin 1.9.2. \n\nIt has rained a lot since then <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nFWH GET PICTUREs support is much more complete by now but as a side effect it looks that there is the problem that you describe\n\nAnyhow you may use the workaround of the size or a reduced picture','',0,'','2yfzyk0d',1,0,'',2,0,0),(29983,6675,3,2,0,'87.218.146.36',1176793296,1,0,1,1,1,1,'','','Carlo,\n\nYou should directly email your question to Patrick Mast or Ron Pinkas','',0,'','yntbytln',1,0,'',2,0,0),(29984,6485,6,2,0,'87.218.146.36',1176793606,1,0,1,1,1,1,'','','Osvaldo,\n\nTe refieres a usar exactamente el mismo código en FiveWin y en FiveMac ?','',0,'','cfekmunr',1,0,'',2,0,0),(29985,6674,3,972,0,'81.164.118.31',1176795130,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1z4ope7t]FWH GET PICTUREs support is much more complete by now but as a side effect it looks that there is the problem that you describe.[/quote:1z4ope7t]\nIs there a simple LTrim() somewhere we can do in TGet to get this fixed?\n\nPatrick','',0,'gA==','1z4ope7t',1,0,'',972,0,0),(29986,2676,3,972,0,'81.164.118.31',1176796568,1,0,1,1,1,0,'','','[quote=&quot;chiaiese&quot;:1lfzovdn]You can try this little function with PdfCreator version 0.9.3[/quote:1lfzovdn]\nWe can not get the pdfCreator to work in Vista. Is there anyone who runs it in Vista?  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nPatrick','',0,'gA==','1lfzovdn',1,0,'',972,0,0),(29987,6694,3,58,0,'84.149.74.192',1176796711,1,0,1,1,1,0,'','','Rene,\n\nthanks a lot for your profound explanation.\nUnfortunatelly your link [i:37knnhop]www.google.d2g.com/ads/ver7/arc32.exe[/i:37knnhop] doesn\'t work.\nI\'ll try to find those files at advantagedatabase.com.\n\nYou tell me not to use a 6.x version of ADS.\nI thought that versions after 6 can not work together with 16 bit clipper apps.\n\nI have this problem to migrate one app after the other to 32 bit.\nBut in the meanwhile the older programs should still be able to handle the dbf data.\n\nIs it possible to setup an ADS Server on a dedicated server and access the dbf files on this machine as well from Germany and from China?\n\nFor the moment we have to make daily updates to be synchronized with our data. It would be a very big step forward if we had the possibility to use one and the same dbf system.\n\nCould you please tell me if it\'s possible for me to build a very small prog with the ADS demo version to show my boss this dbf sharing?\n\nThanks again Rene \nand best regards,\n\nDetlef','',0,'IA==','37knnhop',1,0,'',58,0,0),(29988,6674,3,2,0,'87.218.146.57',1176796812,1,0,1,1,1,1,'','','Patrick,\n\nIn METHOD DispText() CLASS TGet there is a call to SetWindowText(). You can try a LTrim() there:\n\nSetWindowText( ::hWnd, LTrim( ::oGet:buffer ) )\n\nbut the caret position should be tested to see if it matches the right location','',0,'IA==','2u3prqd4',1,0,'',2,0,0),(29989,6703,3,6,0,'87.3.212.10',1176799060,1,0,1,1,1,1,'','Re: Class TOleAuto for Harbour','Great! Now, if you only could do the same with hbzip.lib... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEMG','',0,'IA==','3ao1jimf',1,0,'',6,0,0),(29990,6705,3,63,0,'83.49.110.35',1176799558,1,0,1,1,1,0,'','VScroll with mouse wheel','I am using the TScrWnd class (in \\Samples\\TestWScr.prg) to perform VScroll in a window.  It works fine, but does not handle the wouse wheel.  Has anybody modified this class (or an equivalent one) to perform mouse wheel vertical scroll? \nThanks\nRafael','',0,'IA==','315xji9b',1,0,'',63,0,0),(29991,6703,3,2,0,'87.218.146.57',1176801184,1,0,1,1,1,1,'','','Enrico,\n\nYou may ask Przemek for his advise about it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIf he considers that it is possible, then we may do it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'IA==','8nyiy4p8',1,0,'',2,0,0),(29992,6672,1,979,0,'195.53.199.6',1176801240,1,0,1,1,1,0,'','','Thanks for your reply.\nBut I have a problem, the fix text or literals in a dialog are not resized. Do you know how can I manage it to resize it?\nThanks in advance,\nJose Alfonso','',0,'IA==','33y7efwq',1,0,'',979,0,0),(29993,6705,3,2,0,'87.218.146.57',1176801569,1,0,1,1,1,1,'','','Rafael,\n\nYou may review Class TWBrowse Method MouseWheel() source code. \n\nIts quite simple and surely you can easily adapt it to your needs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'IA==','bv6xjwlf',1,0,'',2,0,0),(29994,6673,2,979,0,'195.53.199.6',1176801634,1,0,1,1,1,0,'','','Garcias por tu respuesta.\nPero todavia tengo algún problema con los dialogos, los literales o textos fijos en el dialogo no son dimensionados y la visualizacion en pantalla de estos textos desfiguran la visualizacion.\n¿Como se pueden tratar los textos fijos o literales en un dialogo para que pueda redimensionarlos?\nGracias por adelantado,\nJose Alfonso','',0,'IA==','6xg3ncwz',1,0,'',979,0,0),(29995,6703,3,6,0,'87.3.212.10',1176801658,1,0,1,1,1,1,'','','I already asked him in at least two occasions and he said something about the licence of the library and that he doesn\'t want to work on it.\n\nEMG','',0,'IA==','z5qqwlfg',1,0,'',6,0,0),(29996,6703,3,2,0,'87.218.146.57',1176803422,1,0,1,1,1,1,'','','We may review it when we get some free time <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIn the meantime, here it is HBOleAut.lib for Harbour:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/26446254/hboleaut.lib.html\">http://rapidshare.com/files/26446254/hboleaut.lib.html</a><!-- m -->\n\nfor those that may want to start using it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'IA==','f96g42hb',1,0,'',2,0,0),(29997,6704,6,2,0,'87.218.146.57',1176803491,1,0,1,1,1,1,'','','Aqui la teneis para quienes querais empezar a usarla <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/26446254/hboleaut.lib.html\">http://rapidshare.com/files/26446254/hboleaut.lib.html</a><!-- m -->','',0,'IA==','3l6r4j2s',1,0,'',2,0,0),(29998,6303,4,123,0,'83.53.52.25',1176803783,1,0,1,1,1,0,'','','Vilian,\n\n[quote:3aqib4d2]The example presented for the Luis functions perfectly in Pocket PC, but the used format of compacting is not compatible with the one of the Windows. We do not obtain to unpack archives zip bred in Pocket PC in the WIndows environment[/quote:3aqib4d2]\n\nYes this is the main problem I\'ve found using this lib.  This why I decided not to use that for my ppc application.\n\n[quote:3aqib4d2]It is accurately what I am trying to obtain. Searching in the site of lib that Luis used I found the code-source that allows the compatibility between the two ambientes(blast.c). \nIn the compilation some does not appear error, but when I execute it appears an error of execution that did not obtain to decide, therefore the aid order[/quote:3aqib4d2]\n\nAntonio have called to me and have talking about this issue.  He has sent to me  all related to this library.  I will take a look as soos as possible.  Also I have been working on litezip/liteunzip library with no success for PPC plaform.  Main problems were conversion from unicode to ansi and viceversa.  So I gess that for this new library these problems don\'t exist as there are no warnings  at compilation time.\n\nRegards,\nJosé Luis Capel','',0,'gA==','3aqib4d2',1,0,'',123,0,0),(29999,6703,3,6,0,'87.3.212.10',1176804103,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1xijezvl]We may review it when we get some free time <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1xijezvl]\n\nThank you!\n\n[quote=&quot;Antonio Linares&quot;:1xijezvl]In the meantime, here it is HBOleAut.lib for Harbour:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/26446254/hboleaut.lib.html\">http://rapidshare.com/files/26446254/hboleaut.lib.html</a><!-- m -->\n\nfor those that may want to start using it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1xijezvl]\n\nI already tried it from CVS. It seems to work fine. Thank you!\n\nEMG','',0,'gA==','1xijezvl',1,0,'',6,0,0),(30000,6705,3,63,0,'83.49.110.35',1176805730,1,0,1,1,1,0,'','','Antonio:\nJust to try, after studying the wbrowse class, I added Method MouseWheel() Inline MsgInfo(\"Hello\") to the TScrWnd class.  As it was suspecting, it didn\'t do anything.  How can I make that class to be aware of that new method, could you give me a hint?\nRafael','',0,'gA==','21e29jfo',1,0,'',63,0,0),(30001,6691,3,123,0,'83.53.52.25',1176808120,1,0,1,1,1,0,'','','Hi Rip,\n\nI just want to comment that \n\n[code:3w15iiu4]IF oRS&#58;eof // query resulted with no records \nMsginfo&#40; &quot;not found&quot; &#41; \nRETURN&#40;NIL&#41; \nENDIF \n[/code:3w15iiu4]\n\nSometimes will not be enought to determine if this recordset is empty or not.  I think should be better do:\n\n[code:3w15iiu4]IF oRS&#58;eof and oRs&#58;Bof // query resulted with no records \nMsginfo&#40; &quot;not found&quot; &#41; \nRETURN&#40;NIL&#41; \nENDIF [/code:3w15iiu4]\n\nADO will set Bof and Eof to TRUE when no records results in the query.\n\nRegards,\nJosé Luis Capel','',0,'AIA=','3w15iiu4',1,0,'',123,0,0),(30002,6303,4,267,0,'200.208.238.2',1176809528,1,0,1,1,1,1,'','','Antonio/Jose,\n\nThanks.','',0,'AIA=','27b47mmh',1,0,'',267,0,0),(30003,6706,6,41,0,'200.87.167.162',1176811470,1,0,1,1,1,0,'','Cambiar la justificacion de un GET','Holas,\n\nquisiera saber si esposible cambiar la justificacion de un GET definido desde recurso en tiempo de ejecucion RIGTH, LEFT o CENTER\n\nalguna idea?\n\nsaludos\n\nMarcelo','',0,'AIA=','ac0ix1p1',1,0,'',41,0,0),(30004,6691,3,6,0,'87.3.212.10',1176811946,1,0,1,1,1,1,'','','Or even better\n\n[code:2m8dcb6o]IF oRs&#58;RecordCount = 0[/code:2m8dcb6o]\n\nBut it will not work with all cursortype.\n\nEMG','',0,'AIA=','2m8dcb6o',1,0,'',6,0,0),(30005,6707,3,678,0,'168.209.98.42',1176813271,1,0,1,1,1,1,'','wNetGetConnection() issue','Hi Antonio\n\nwNetGetConnection( z: ) returns the correct UNC path for the specified drive but the returned value (which is correct) has a whole lot of garbage chrs appended to it, which I have to remove by finding the first Chr(0) in the returned value and substringing to the chr before that.\n\nUsing xHb and fWh version from +- Oct 2006\n\nRegds\nPeter','',0,'AIA=','31vvxtid',1,0,'',678,0,0),(30006,6708,6,400,0,'200.205.49.10',1176813691,1,0,1,1,1,1,'','Preciso de exemplo com Tabs ????','Bom Dia,\n\nEstou fazendo uma tela com Tabs, mas, estou encontrando dificuldade em chamar as telas pra cada Aba.\n\nAlguem poderia me passar algum  exemplo.....estou usando o Redefine Tabs.....tipo assim:\n\nCom Folder eu chamo assim as telas pra cada Aba:\n\nREDEFINE FOLDER oFld ID 301 OF oDlg ;\n            PROMPT  \"Dados &amp;Iniciais  \", \"Dados &amp;Adicionais\" ;\n            DIALOGS 1002, 1003 // [quote:38w97jhy]DIALOGS 1002, 1003 aqui eu chamo as telas pra cada Aba usando o Folder[/quote:38w97jhy]\n\nE com Tabs...como chamo as Telas ?????\n\nAgradeço antecipadamente.....pela ajuda, obrigado !!!\n\n@braços Ale','',0,'gA==','38w97jhy',1,0,'',400,0,0),(30007,6709,6,450,0,'200.245.0.8',1176817267,1,0,1,1,1,1,'','Archive PDF (Acrobat Reader)','Hi...\nIt is possible to open an Archive PDF (Acrobat Reader) in a Fivewin/xHarbour application directly?\n\nRegards \n\nThanks','',0,'gA==','35kdzb2c',1,0,'',450,0,0),(30008,6708,6,2,0,'87.218.146.57',1176817337,1,0,1,1,1,1,'','','Alessandro,\n\nTienes ejemplos en samples\\TestTabs.prg y TestTab2.prg\n\nLo que intentas es mostrar distintos diálogos desde el Tabs ?','',0,'gA==','3gzssdcd',1,0,'',2,0,0),(30009,6696,6,376,0,'200.106.46.157',1176819155,1,0,1,1,1,1,'','','Jorge\n\nContactame en mi email para ver cómo puedo ayudarte\n\nArmando\n\n[quote=&quot;jvargas&quot;:hydipy3x]hola Armando.\nmuchas gracias por tu pronta respuesta, he hecho la modificacion \"/w0\"al bat de compilacion pero sigue dando los mismos warninigs W0002.\ntalvez me expresé mal pero el XNTX es una variable publica que inicializo al principio MAIN() y tiene \".CDX\", y la uso en una funcion dentro del mismo MAIN, dando el msg Base 1003.\nsera un gusto conocerte en algun momento\ngracias\nj vargas[/quote:hydipy3x]','',0,'gA==','hydipy3x',1,0,'',376,0,0),(30010,6485,6,95,0,'189.155.107.208',1176819157,1,0,1,1,1,0,'','','Antonio\n\nPor ejemplo:\n\nEl archivo test.dbf es diferente a test.DBF, con le hago para que cuando verifique si existe el archivo TEST.DBF, me devuelva true, sabiendo que esta uno llamado test.dbf o test.DBF. ?\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','70uwkyxx',1,0,'',95,0,0),(30011,6523,3,909,0,'71.71.110.50',1176819718,1,0,1,1,1,1,'','','Maurilio -\nI have worked with this (with xHarbour) and had some limited success.  However, you only get the multiline folders with the NEW method.  Since I realy need to do it with resources, I have modified the redefine method to include the multiline.  This gives me all of the folders, but half of them are out of view and accessable only by clicking a small button that appears at the top right of the folder and scrolls them in view.  I noticed this same thing with the source code sample provided and there appears to be no difference in code between the multiline example and the scrolling example.  Is there some automatic adjustment made by windows that depends on something like size?  \n\nRegards,\n\nCharles','',0,'gA==','1551aqm7',1,0,'',909,0,0),(30012,6674,3,303,0,'72.199.41.171',1176819902,1,0,1,1,1,0,'','','Patrick,\n\n&gt;&gt;Yes, I want to have a picture of \"9999999.99999\" in a narrow GET. \n&gt;Why? \n&gt;Don\'t wanne be rude, but, does it matter?\n\nYes. If you want someone else to donate their time to help with a problem that only seems to be a problem for you and will create more problems for others, I would say that you do need to give us a reason why.  \n\n&gt;&gt;So, if we can get rid of the spaces in from of the get, I\'m saved. \n&gt;As I mentioned, changing TGET will just create another problem. \n \n&gt;So, is it posible?\n\nSure, but you are going to have to do it yourself. Since you are asking everyone else to suffer with a new bug without reason, so you can have what you want, I don\'t think you are going to get much help.\n\n&gt;We had this in Fivewin 1.9.2. \n\nWhy not just use the TGET.PRG from 1.9.2 then?\n\nJames','',0,'gA==','25cip0rl',1,0,'',303,0,0),(30013,6697,2,376,0,'200.106.46.157',1176819934,1,0,1,1,1,1,'','','Mira en este site y si se adecua a tus expectativas hablamos:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.geocities.com/sisgemeirl\">www.geocities.com/sisgemeirl</a><!-- w --> \n\nBusca en la opcion \"productos\" y bajas lo que deseas','',0,'gA==','394g1g6e',1,0,'',376,0,0),(30014,6710,7,778,0,'200.152.43.195',1176820237,1,0,1,1,1,0,'','Salvar Codigo de barras com Bitmap','Ola a todos \nAproveitanto a Classe VRDBarcode de Timm Sodtalbers, conforme abaixo\n\nSubstitui a funcao Retangle() do original para FillRect() no FWPPC, \nestá funcionando pereitamento\n///////////////////////////////////////////////////////////////////////////////////\n/*\n    ==================================================================\n    EasyReport - The Visual Report Designer               VRDBCODE.PRG\n                                                         Version 1.1.2\n    ------------------------------------------------------------------\n                           (c) copyright: Timm Sodtalbers, 2000 - 2003\n                                                    Sodtalbers+Partner\n                                              <!-- e --><a href=\"mailto:info@reportdesigner.info\">info@reportdesigner.info</a><!-- e -->\n                                               <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->\n    ==================================================================\n\n    This barcode class is based on the great work of Cayetano Gomez.\n    I have added some features - for example the possiblitity to show\n    barcodes on a window or dialog - but the main work comes from\n    Cayetano.\n\n     1.07.2003  1.1.2  VRDBCODE.CH added\n    28.10.2002  1.1.1  Command support added\n*/\n\n#IFDEF __XPP__\n   #INCLUDE \"VRDXPP.ch\"\n#ELSE\n   #INCLUDE \"FiveWin.ch\"\n#ENDIF\n\n*-- CLASS DEFINITION ---------------------------------------------------------\n*         Name: VRDBarcode\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nCLASS VRDBarcode\n\n   DATA hDC           // handle of the window, dialog or printer object\n   DATA cText         // barcode text\n   DATA nTop          // top position\n   DATA nLeft         // left position\n   DATA nWidth        // barcode width\n   DATA nHeight       // barcode height\n   DATA nColText      // pin color\n   DATA nColPane      // background color\n   DATA lHorizontal   // horizontal (.T.) or vertical (.F.)\n   DATA lTransparent  // transparent or not\n   DATA nPinWidth     // barcode pin width\n   DATA nBCodeType    // Barcode type:\n                      //  1  = Code 39\n                      //  2  = Code 39 check digit\n                      //  3  = Code 128 auto select\n                      //  4  = Code 128 mode A\n                      //  5  = Code 128 mode B\n                      //  6  = Code 128 mode C\n                      //  7  = EAN 8\n                      //  8  = EAN 13\n                      //  9  = UPC-A\n                      //  10 = Codabar\n                      //  11 = Suplemento 5\n                      //  12 = Industrial 2 of 5\n                      //  13 = Industrial 2 of 5 check digit\n                      //  14 = Interlaved 2 of 5\n                      //  15 = Interlaved 2 of 5 check digit\n                      //  16 = Matrix 2 of 5\n                      //  17 = Matrix 2 of 5 check digit\n\n   METHOD New( hDC, cText, nTop, nLeft, nWidth, nHeight, nBCodeType, ;\n               nColText, nColPane, lHorz, lTransparent,  nPinWidth ) CONSTRUCTOR\n   METHOD ShowBarcode()\n   METHOD CreateBarcode( cCode )\n   METHOD InitCode39( lCheck )\n   METHOD InitCode128( cMode )\n   METHOD InitEAN13()\n   METHOD InitUPC( nLen )\n   METHOD InitE13BL( nLen )\n   METHOD InitCodabar()\n   METHOD InitSub5()\n   METHOD InitIndustrial25( lCheck )\n   METHOD InitInterleave25( lCheck )\n   METHOD InitMatrix25( lCheck )\n\nENDCLASS\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: New\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD New( hDC, cText, nTop, nLeft, nWidth, nHeight, nBCodeType, ;\n            nColText, nColPane, lHorz, lTransparent, nPinWidth ) CLASS VRDBarcode\n\n   DEFAULT nWidth       := 200\n   DEFAULT nHeight      := 20\n   DEFAULT nColText     := 0\n   DEFAULT nColPane     := RGB( 255, 255, 255 )\n   DEFAULT lHorz        := .T.\n   DEFAULT lTransparent := .F.\n   DEFAULT nPinWidth    := 1\n\n   ::hDC          := hDC\n   ::cText        := cText\n   ::nTop         := nTop\n   ::nLeft        := nLeft\n   ::nWidth       := nWidth\n   ::nHeight      := nHeight\n   ::nBCodeType   := nBCodeType\n   ::nColText     := nColText\n   ::nColPane     := nColPane\n   ::lHorizontal  := lHorz\n   ::lTransparent := lTransparent\n   ::nPinWidth    := nPinWidth\n\nRETURN ( Self )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: ShowBarcode\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD ShowBarcode() CLASS VRDBarCode\n\n   LOCAL cCode, cCode2\n\n   DO CASE\n   CASE ::nBCodeType = 1\n      cCode := ::InitCode39( .F. )\n   CASE ::nBCodeType = 2\n      cCode := ::InitCode39( .T. )\n   CASE ::nBCodeType = 3\n      cCode := ::InitCode128( \"\" )\n   CASE ::nBCodeType = 4\n      cCode := ::InitCode128( \"A\" )\n   CASE ::nBCodeType = 5\n      cCode := ::InitCode128( \"B\" )\n   CASE ::nBCodeType = 6\n      cCode := ::InitCode128( \"C\" )\n   CASE ::nBCodeType = 7\n      cCode  := ::InitUPC( 7 )\n      cCode2 := ::InitE13BL( 8 )\n   CASE ::nBCodeType = 8\n      cCode := ::InitEAN13()\n   CASE ::nBCodeType = 9\n      cCode  := ::InitUPC( 11 )\n      cCode2 := ::InitE13BL( 12 )\n   CASE ::nBCodeType = 10\n      cCode  := ::InitCodabar()\n   CASE ::nBCodeType = 11\n      cCode  := ::InitSub5()\n   CASE ::nBCodeType = 12\n      cCode  := ::InitIndustrial25( .F. )\n   CASE ::nBCodeType = 13\n      cCode  := ::InitIndustrial25( .T. )\n   CASE ::nBCodeType = 14\n      cCode  := ::InitInterleave25( .F. )\n   CASE ::nBCodeType = 15\n      cCode  := ::InitInterleave25( .T. )\n   CASE ::nBCodeType = 16\n      cCode  := ::InitMatrix25( .F. )\n   CASE ::nBCodeType = 17\n      cCode  := ::InitMatrix25( .T. )\n   OTHERWISE\n      cCode := ::InitCode39( .T. )\n   ENDCASE\n\n   ::CreateBarcode( cCode )\n\n   IF ::nBCodeType = 7 .OR. ::nBCodeType = 9\n      ::CreateBarcode( cCode2 )\n   ENDIF\n\nRETURN ( NIL )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: CreateBarcode\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD CreateBarcode( cCode ) CLASS VRDBarCode\n\n   LOCAL i, oBrush, hPen, hOldPen, hBrush, hOldBrush\n   LOCAL nX    := ::nTop\n   LOCAL nY    := ::nLeft\n   LOCAL lHorz := .T.\n\n   IF ::lTransparent = .F. .AND. ::nColPane &lt;&gt; RGB( 255, 255, 255 )\n      hPen      := CreatePen( , , ::nColPane )\n      hOldPen   := SelectObject( ::hDC, hPen )\n      hBrush    := CreateSolidBrush( ::nColPane )\n      hOldBrush := SelectObject( ::hDC, hBrush )\n      FillRect( ::hDC, { nX, nY, nX + ::nHeight, nY + ::nWidth }, hBrush )\n   ENDIF\n\n   hPen      := CreatePen( , , ::nColText )\n   hOldPen   := SelectObject( ::hDC, hPen )\n   hBrush    := CreateSolidBrush( ::nColText )\n   hOldBrush := SelectObject( ::hDC, hBrush )\n\n   IIF( ::nPinWidth &lt; 1, ::nPinWidth := 1, )\n\n   FOR i := 1 TO LEN( cCode )\n\n      IF SUBSTR( cCode, i, 1 ) = \"1\"\n         IF ::lHorizontal = .T.\n            FillRect( ::hDC, { nX, nY, nX + ::nHeight, ( nY += ::nPinWidth ) }, hBrush)\n         ELSE\n            FillRect( ::hDC, { nX, nY, ( nX += ::nPinWidth ), nY + ::nWidth }, hBrush)\n         ENDIF\n      ELSE\n         IF ::lHorizontal = .T.\n            nY += ::nPinWidth\n         ELSE\n            nX += ::nPinWidth\n         ENDIF\n      ENDIF\n\n   NEXT\n\n   SelectObject( ::hDC, hOldPen )\n   DeleteObject( hPen )\n   SelectObject( ::hDC, hOldBrush )\n   DeleteObject( hBrush )\n\nRETURN ( NIL )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitCode39\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitCode39( lCheck ) CLASS VRDBarCode\n\n   LOCAL cCars   := \"1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%\"\n   LOCAL aBarras := { \'1110100010101110\', ;\n                      \'1011100010101110\', ;\n                      \'1110111000101010\', ;\n                      \'1010001110101110\', ;\n                      \'1110100011101010\', ;\n                      \'1011100011101010\', ;\n                      \'1010001011101110\', ;\n                      \'1110100010111010\', ;\n                      \'1011100010111010\', ;\n                      \'1010001110111010\', ;\n                      \'1110101000101110\', ;\n                      \'1011101000101110\', ;\n                      \'1110111010001010\', ;\n                      \'1010111000101110\', ;\n                      \'1110101110001010\', ;    //E\n                      \'1011101110001010\', ;\n                      \'1010100011101110\', ;\n                      \'1110101000111010\', ;\n                      \'1011101000111010\', ;\n                      \'1010111000111010\', ;\n                      \'1110101010001110\', ;    //K\n                      \'1011101010001110\', ;\n                      \'1110111010100010\', ;\n                      \'1010111010001110\', ;\n                      \'1110101110100010\', ;\n                      \'1011101110100010\', ;    //p\n                      \'1010101110001110\', ;\n                      \'1110101011100010\', ;\n                      \'1011101011100010\', ;\n                      \'1010111011100010\', ;\n                      \'1110001010101110\', ;\n                      \'1000111010101110\', ;\n                      \'1110001110101010\', ;\n                      \'1000101110101110\', ;\n                      \'1110001011101010\', ;\n                      \'1000111011101010\', ;    //Z\n                      \'1000101011101110\', ;\n                      \'1110001010111010\', ;\n                      \'1000111010111010\', ;    // \' \'\n                      \'1000101110111010\', ;\n                      \'1000100010100010\', ;\n                      \'1000100010100010\', ;\n                      \'1000101000100010\', ;\n                      \'1010001000100010\'}\n\n   LOCAL cCar, m, n, n1, n2\n   LOCAL cBarra := \"\"\n   LOCAL cCode  := ::cText\n   LOCAL nCheck := 0\n\n   DEFAULT lCheck := .F.\n\n   cCode := UPPER( cCode )\n\n   IF LEN( cCode ) &gt; 32\n      cCode := LEFT( cCode, 32 )\n   ENDIF\n\n   cCode := \"*\" + cCode + \"*\"\n\n   FOR n := 1 to LEN( cCode )\n      cCar := SUBSTR( cCode, n, 1 )\n      m    := AT( cCar, cCars )\n      IF n &gt; 0\n         cBarra := cBarra + aBarras[m]\n         nCheck += ( m - 1 )\n      END\n   NEXT\n\n   if lCheck = .T.\n      cBarra += aBarras[ nCheck%43 + 1 ]\n   end\n\nRETURN ( cBarra )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitCode128\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitCode128( cMode ) CLASS VRDBarCode\n\n   LOCAL aCode :={ \"212222\", \"222122\", \"222221\", \"121223\", \"121322\", \"131222\", ;\n                   \"122213\", \"122312\", \"132212\", \"221213\", \"221312\", \"231212\", ;\n                   \"112232\", \"122132\", \"122231\", \"113222\", \"123122\", \"123221\", ;\n                   \"223211\", \"221132\", \"221231\", \"213212\", \"223112\", \"312131\", ;\n                   \"311222\", \"321122\", \"321221\", \"312212\", \"322112\", \"322211\", ;\n                   \"212123\", \"212321\", \"232121\", \"111323\", \"131123\", \"131321\", ;\n                   \"112313\", \"132113\", \"132311\", \"211313\", \"231113\", \"231311\", ;\n                   \"112133\", \"112331\", \"132131\", \"113123\", \"113321\", \"133121\", ;\n                   \"313121\", \"211331\", \"231131\", \"213113\", \"213311\", \"213131\", ;\n                   \"311123\", \"311321\", \"331121\", \"312113\", \"312311\", \"332111\", ;\n                   \"314111\", \"221411\", \"431111\", \"111224\", \"111422\", \"121124\", ;\n                   \"121421\", \"141122\", \"141221\", \"112214\", \"112412\", \"122114\", ;\n                   \"122411\", \"142112\", \"142211\", \"241211\", \"221114\", \"213111\", ;\n                   \"241112\", \"134111\", \"111242\", \"121142\", \"121241\", \"114212\", ;\n                   \"124112\", \"124211\", \"411212\", \"421112\", \"421211\", \"212141\", ;\n                   \"214121\", \"412121\", \"111143\", \"111341\", \"131141\", \"114113\", ;\n                   \"114311\", \"411113\", \"411311\", \"113141\", \"114131\", \"311141\", ;\n                   \"411131\", \"211412\", \"211214\", \"211232\", \"2331112\" }\n\n   LOCAL cBarra, cCar, cTemp, n, nCar\n   LOCAL cCode  := ::cText\n   LOCAL lCodeC := .F.\n   LOCAL lCodeA := .F.\n   LOCAL nSum   := 0\n   LOCAL nCount := 0\n\n   // Errors\n   IF VALTYPE( cCode ) &lt;&gt; \"C\"\n      MsgInfo( \"Barcode Code 128 requires a character value.\" )\n      RETURN NIL\n   ENDIF\n\n   IF .NOT. EMPTY( cMode )\n      IF VALTYPE( cMode ) = \"C\" .AND. UPPER( cMode )$\"ABC\"\n         cMode := UPPER( cMode )\n      ELSE\n         MsgInfo( \"Code 128 modes are A,B o C. Character values.\" )\n      ENDIF\n   ENDIF\n\n   IF EMPTY( cMode )\n      // autodetect mode\n      IF STR(VAL( cCode ), LEN( cCode ) ) = cCode\n         lCodeC := .T.\n         cTemp  := aCode[106]\n         nSum   := 105\n      ELSE\n         FOR n := 1 TO LEN( cCode )\n            nCount += IF( ASC(SUBSTR( cCode, n, 1 )) &gt; 31, 1, 0 ) // no cars. de control\n         NEXT\n         IF nCount &lt; LEN( cCode ) / 2\n            lCodeA := .T.\n            cTemp  := aCode[104]\n            nSum   := 103\n         ELSE\n            cTemp := aCode[105]\n            nSum  := 104\n         ENDIF\n      ENDIF\n   ELSE\n      IF cMode == \"C\"\n         lCodeC := .T.\n         cTemp  := aCode[106]\n         nSum   := 105\n      ELSEIF cMode == \"A\"\n         lCodeA := .T.\n         cTemp  := aCode[104]\n         nSum   := 103\n      ELSE\n         cTemp := aCode[105]\n         nSum  := 104\n      ENDIF\n   ENDIF\n\n   // caracter registrado\n   nCount := 0\n\n   FOR n := 1 to LEN( cCode )\n\n      nCount++\n      cCar := SUBSTR( cCode, n, 1 )\n\n      IF lCodeC\n         IF len(cCode)=n                        // ultimo caracter\n            CTemp += aCode[101]                 // SHIFT Code B\n            nCar := ASC( cCar ) - 31\n         ELSE\n            nCar := Val(substr(cCode,n,2))+1\n            n++\n         ENDIF\n      ELSEIF lCodeA\n         IF cCar&gt; \"_\"                           // Shift Code B\n            cTemp += aCode[101]\n            nCar := ASC( cCar ) - 31\n         ELSEIF cCar &lt;= \" \"\n            nCar := ASC( cCar ) + 64\n         ELSE\n            nCar := ASC( cCar ) - 31\n         ENDIF\n      ELSE                                      // code B standard\n         IF cCar &lt;= \" \"                         // shift code A\n            cTemp += aCode[102]\n            nCar := ASC( cCar ) + 64\n         ELSE\n            nCar := ASC( cCar ) - 31\n         ENDIF\n      ENDIF\n\n      nSum += ( nCar - 1 ) * nCount\n      cTemp := cTemp + aCode[nCar]\n\n   NEXT\n\n   nSum  := nSum%103 + 1\n   cTemp := cTemp + aCode[nSum] + aCode[107]\n   cBarra := \"\"\n\n   FOR n:=1 to LEN( cTemp ) STEP 2\n      cBarra += REPLICATE( \'1\', VAL(SUBSTR( cTemp, n, 1 )) )\n      cBarra += REPLICATE( \'0\', VAL(SUBSTR( cTemp, n+1, 1 )) )\n   NEXT\n\nRETURN ( cBarra )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitEAN13\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitEAN13() CLASS VRDBarCode\n\n   LOCAL derecha := [1110010110011011011001000010101110010011101010000100010010010001110100]\n   LOCAL izda1   := [0001101001100100100110111101010001101100010101111011101101101110001011]\n   LOCAL izda2   := [0100111011001100110110100001001110101110010000101001000100010010010111]\n   LOCAL primero := [ooooooooeoeeooeeoeooeeeooeooeeoeeooeoeeeoooeoeoeoeoeeooeeoeo]\n\n   LOCAL l, s1, s2, control, n, ac, cad, cadena, cadena2, n1, n2, NUmero\n   LOCAL Izda, Dcha, String, Mascara, k\n   LOCAL cCode := ::cText\n\n   k := LEFT(ALLTRIM( cCode ) + \"000000000000\", 12 ) // padding with \'0\'\n\n   // calculo del digito de control\n   // suma de impares\n   s1 := 0\n   // suma de pares\n   s2 := 0\n\n   FOR n := 1 TO 6\n      s1 := s1 + VAL(SUBSTR( k, ( n * 2 ) -1, 1 ))\n      s2 := s2 + VAL(SUBSTR( k, ( n * 2 ), 1 ))\n   NEXT\n\n   control := ( s2 * 3 ) + s1\n   l := 10\n   DO WHILE control &gt; l\n      l := l + 10\n   ENDDO\n\n   control := l - control\n   k := k + STR( control, 1, 0 )\n\n	// preparacion de la cadena de impresion\n   cadena := []\n   dcha := SUBSTR( k, 8, 6 )\n   izda := SUBSTR( k, 2, 6 )\n   mascara := SUBSTR( primero, ( VAL(SUBSTR( k, 1, 1 )) * 6 ) + 1, 6 )\n\n   // barra de delimitacion\n   cadena := [101]\n\n	// parte izda\n   FOR n := 1 TO 6\n      numero := VAL(SUBSTR( izda, n, 1 ))\n      IF SUBSTR( mascara, n, 1 ) = [o]\n         string := SUBSTR( izda1, numero * 7 + 1, 7 )\n      ELSE\n         string := SUBSTR( izda2, numero * 7 + 1, 7 )\n      ENDIF\n      cadena := cadena + string\n   NEXT\n\n   cadena := cadena + [01010]\n\n   // Lado derecho\n   FOR n := 1 TO 6\n      numero := VAL(SUBSTR( dcha, n, 1 ))\n      string := SUBSTR( derecha, numero * 7 + 1, 7 )\n      cadena := cadena + string\n   NEXT\n\n   cadena := cadena + [101]\n\nRETURN ( Cadena )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitUPC\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitUPC( nLen ) CLASS VRDBarCode\n\n   LOCAL derecha := [1110010110011011011001000010101110010011101010000100010010010001110100]\n   LOCAL izda1   := [0001101001100100100110111101010001101100010101111011101101101110001011]\n\n   LOCAL l, s1, s2, control, n, ac, cad, cadena, n1, n2, Numero\n   LOCAL Izda, Dcha, String, Mascara, k\n   LOCAL cCode := ::cText\n\n   // valid values for nLen are 11,7\n   k := LEFT(ALLTRIM( cCode ) + \"000000000000\", nLen ) // padding with \'0\'\n	// calculo del digito de control\n   // suma de impares\n   s1 := 0\n   // suma de pares\n   s2 := 0\n\n   FOR n := 1 TO nLen STEP 2\n      s1 := s1 + VAL(SUBSTR( k, n, 1 ) )\n      s2 := s2 + VAL(SUBSTR( k, n + 1, 1 ) )\n   NEXT\n\n   control := ( s1 * 3 ) + s2\n   l := 10\n   DO WHILE control &gt; l\n      l := l + 10\n   ENDDO\n\n   control := l - control\n   k := k + STR( control, 1, 0 )\n   nLen++\n\n   // preparacion de la cadena de impresion\n   cadena := []\n   dcha := RIGHT(k, nLen/2 )\n   izda := LEFT( k, nLen/2 )\n\n	// barra de delimitacion\n   cadena := [101]\n	// parte izda\n   FOR n := 1 TO nlen/2\n      numero := VAL( SUBSTR( izda, n, 1 ) )\n      cadena += SUBSTR( izda1, numero * 7 + 1, 7 )\n   NEXT\n\n   cadena := cadena + [01010]\n\n   // Lado derecho\n   FOR n := n To LEN( k )\n      numero := VAL(SUBSTR( dcha, n, 1 ))\n      cadena += SUBSTR( derecha, numero * 7 + 1, 7 )\n   NEXT\n\n   cadena := cadena + [101]\n\nRETURN ( Cadena )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitE13BL\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitE13BL( nLen ) CLASS VRDBarCode\n\n   nLen := INT( nLen / 2 )\n\nRETURN \"101\" + REPLICATE( \"0\", nLen * 7 ) + \"01010\" + REPLICATE( \"0\", nLen * 7 ) + \"101\"\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitCodabar\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitCodabar() CLASS VRDBarCode\n\n   //this system not test the start/end code\n\n   LOCAL cChar := \"0123456789-$:/.+ABCDTN*E\"\n   LOCAL abar := { \"101010001110\", \"101011100010\", \"101000101110\", \"111000101010\", ;\n                   \"101110100010\", \"111010100010\", \"100010101110\", \"100010111010\", ;\n                   \"100011101010\", \"111010001010\", \"101000111010\", \"101110001010\", ;\n                   \"11101011101110\", \"11101110101110\", \"11101110111010\", \"10111011101110\", ;\n                   \"10111000100010\", \"10001000101110\", \'10100011100010\', \'10111000100010\', ;\n                   \'10001000101110\', \'10100010001110\', \'10100011100010\'}\n\n   LOCAL n, nCar\n   LOCAL cBarra := \"\"\n   LOCAL cCode := UPPER( ::cText )\n\n   FOR n := 1 to LEN( cCode )\n      IF ( nCar := AT( SUBSTR( cCode, n, 1 ), cChar ) ) &gt; 0\n         cBarra += aBar[nCar]\n      ENDIF\n   NEXT\n\nRETURN ( cBarra )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitSup5\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitSub5() CLASS VRDBarCode\n\n   LOCAL izda1   := [0001101001100100100110111101010001101100010101111011101101101110001011]\n   LOCAL izda2   := [0100111011001100110110100001001110101110010000101001000100010010010111]\n   LOCAL primero := [ooooooooeoeeooeeoeooeeeooeooeeoeeooeoeeeoooeoeoeoeoeeooeeoeo]\n   LOCAL parity  := [eeoooeoeooeooeoeoooeoeeooooeeooooeeoeoeooeooeooeoe]\n\n   LOCAL l, k, control, n, nCar\n   LOCAL cCode   := ::cText\n   LOCAL cBarras := \"1011\"\n\n   k := LEFT(ALLTRIM( cCode ) + \"00000\", 5 ) // padding with \'0\'\n\n   control := RIGHT(STR(VAL(SUBSTR( k, 1, 1 )) * 3 + VAL(SUBSTR( k, 3, 1 )) * 3 + ;\n              VAL(SUBSTR( k, 5, 1 )) * 3 + VAL(SUBSTR( k, 2, 1 )) * 9 + ;\n              VAL(SUBSTR( k, 4, 1 )) * 9, 5, 0 ), 1 )\n   control := SUBSTR( primero, VAL( control ) * 6 + 2, 5 )\n\n   FOR n := 1 TO 5\n      nCar := VAL(SUBSTR( k, n, 1 ))\n      IF SUBSTR( control, n, 1 ) = \"o\"\n         cBarras += SUBSTR( Izda2, nCar * 7 + 1, 7 )\n      ELSE\n         cBarras += SUBSTR( Izda1, nCar * 7 + 1, 7 )\n      ENDIF\n      IF n &lt; 5\n         cBarras += \"01\"\n      ENDIF\n   NEXT\n\nRETURN ( cBarras )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitIndustrial25\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitIndustrial25( lCheck ) CLASS VRDBarCode\n\n   LOCAL n\n   LOCAL aBar     := { \"00110\", \"10001\", \"01001\", \"11000\", \"00101\", ;\n                       \"10100\", \"01100\", \"00011\", \"10010\", \"01010\" }\n   LOCAL cInStart := \"110\" // industrial 2 of 5 start\n   LOCAL cInStop  := \"101\" // industrial 2 of 5 stop\n   LOCAL cBar     := \"\"\n   LOCAL cBarra   := \"\"\n   LOCAL nCheck   := 0\n   LOCAL cCode    := trans( ::cText, \"@9\" ) // only digits\n\n   DEFAULT lCheck := .F.\n\n   IF lCheck\n      FOR n := 1 TO LEN( cCode ) STEP 2\n         nCheck += VAL(SUBSTR( cCode, n, 1 )) * 3 + VAL(SUBSTR( cCode, n + 1, 1 ))\n      NEXT\n      cCode += RIGHT(STR( nCheck, 10, 0 ), 1 )\n   ENDIF\n\n   cBar := cInStart\n\n   FOR n := 1 TO LEN( cCode )\n      cBar += aBar[ VAL(SUBSTR( cCode, n, 1 )) + 1 ] + \"0\"\n   NEXT\n\n   cBar += cInStop\n\n   FOR n := 1 TO LEN( cBar )\n      IF SUBSTR( cBar, n, 1 ) = \"1\"\n         cBarra += \"1110\"\n      ELSE\n         cBarra += \"10\"\n      ENDIF\n   NEXT\n\nRETURN ( cBarra )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitInterleave25\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitInterleave25( lMode ) CLASS VRDBarCode\n\n   LOCAL n, m\n   LOCAL aBar   := { \"00110\", \"10001\", \"01001\", \"11000\", \"00101\", ;\n                     \"10100\", \"01100\", \"00011\", \"10010\", \"01010\" }\n   LOCAL cStart := \"0000\"\n   LOCAL cStop  := \"100\"\n   LOCAL cBar   := \"\"\n   LOCAL cIz    := \"\"\n   LOCAL cBarra := \"\"\n   LOCAL cDer   := \"\"\n   LOCAL nLen   := 0\n   LOCAL nCheck := 0\n   LOCAL cCode  := trans( ::cText, \"@9\" ) // only digits\n\n   DEFAULT lMode := .F.\n\n   IF ( nLen%2 = 1 .AND. !lMode )\n      nLen++\n      cCode += \"0\"\n   ENDIF\n   IF lMode\n      FOR n := 1 TO LEN( cCode ) STEP 2\n         nCheck += VAL(SUBSTR( cCode, n, 1 )) * 3 + VAL(SUBSTR( cCode, n + 1, 1 ))\n      NEXT\n      cCode += RIGHT( STR( nCheck, 10, 0 ), 1 )\n   ENDIF\n\n   nLen   := LEN( cCode )\n   cBarra := cStart\n\n   // preencoding .. interlaving\n   FOR n := 1 TO nLen STEP 2\n      cIz  := aBar[ VAL(SUBSTR( cCode, n, 1 )) + 1 ]\n      cDer := aBar[ VAL(SUBSTR( cCode, n + 1,1 )) + 1 ]\n      FOR m := 1 TO 5\n         cBarra += SUBSTR( cIz, m, 1 ) + SUBSTR( cDer, m, 1 )\n      NEXT\n   NEXT\n\n   cBarra += cStop\n\n   FOR n := 1 TO LEN( cBarra ) STEP 2\n      IF SUBSTR( cBarra, n, 1 ) = \"1\"\n         cBar += \"111\"\n      ELSE\n         cBar += \"1\"\n      ENDIF\n      IF SUBSTR( cBarra, n + 1, 1 ) = \"1\"\n         cBar += \"000\"\n      ELSE\n         cBar += \"0\"\n      ENDIF\n   NEXT\n\nRETURN ( cBar )\n\n\n*-- METHOD -------------------------------------------------------------------\n*         Name: InitIndust25\n*  Description:\n*       Author: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nMETHOD InitMatrix25( lCheck ) CLASS VRDBarCode\n\n   LOCAL n\n   LOCAL aBar   := { \"00110\", \"10001\", \"01001\", \"11000\", \"00101\", ;\n                     \"10100\", \"01100\", \"00011\", \"10010\", \"01010\" }\n   LOCAL cMtSt  := \"10000\" // matrix start/stop\n   LOCAL cBar   := \"\"\n   LOCAL cBarra := \"\"\n   LOCAL nCheck := 0\n   LOCAL cCode  := trans( ::cText, \"@9\" ) // only digits\n\n   DEFAULT lCheck := .F.\n\n   IF lCheck\n      FOR n := 1 TO LEN( cCode ) STEP 2\n         nCheck += VAL(SUBSTR( cCode, n, 1 )) * 3 + VAL(SUBSTR( cCode, n + 1, 1 ))\n      NEXT\n      cCode += RIGHT(STR( nCheck, 10, 0 ), 1 )\n   ENDIF\n\n   cBar := cMtSt\n\n   FOR n := 1 TO LEN( cCode )\n      cBar += aBar[ VAL(SUBSTR( cCode, n, 1 )) + 1 ] + \"0\"\n   NEXT\n\n   cBar += cMtSt\n\n   FOR n := 1 TO LEN( cBar ) STEP 2\n      IF SUBSTR( cBar, n, 1 ) = \"1\"\n         cBarra += \"111\"\n      ELSE\n         cBarra += \"1\"\n      ENDIF\n      IF SUBSTR( cBar, n + 1, 1 ) = \"1\"\n         cBarra += \"000\"\n      ELSE\n         cBarra += \"0\"\n      ENDIF\n   NEXT\n\nRETURN ( cBarra )\n/////////////////////////////////////////////////////////////////////////////\ne aproveitando o Bctest.prg do mesmo autor\n\n#INCLUDE \"FWCE.ch\"\n\nFUNCTION Main()\n\n   //   SET RESOURCES TO \"BCTEST.DLL\"\n\n   DEFINE WINDOW oWnd  TITLE \"Barcode Test\"\n\n   oWnd:bPainted = {| hDC | DrawTestBarcode( hDC ) }\n\n   @ 20, 20 BUTTON \"Barcodes in a Dialog\" OF oWnd SIZE 160, 24 PIXEL ;\n      ACTION BarcodeDlgTest()\n\n   ACTIVATE WINDOW oWnd \n\n   //   SET RESOURCES TO\n\nRETURN (.T.)\n\n\n*-- FUNCTION -----------------------------------------------------------------\n* Name........: DrawTestBarcode\n* Beschreibung:\n* Argumente...: None\n* Rückgabewert: .T.\n* Author......: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nFUNCTION DrawTestBarcode( hDC )\n\n   LOCAL oBC3\n   LOCAL oBC1 := VRDBarcode():New( hDC, \"000000017646\", 05, 10, 150, 30, 8 )\n   //LOCAL oBC2 := VRDBarcode():New( hDC, \"12345678\", 80, 250, 40, 300, 8, CLR_BLUE,, .F. )\n\n   oBC1:ShowBarcode()\n   //oBC2:ShowBarcode()\n\n \n \nRETURN (.T.)\n\n\n*-- FUNCTION -----------------------------------------------------------------\n* Name........: BarcodeTestDlg\n* Beschreibung:\n* Argumente...: None\n* Rückgabewert: .T.\n* Author......: Timm Sodtalbers\n*-----------------------------------------------------------------------------\nFUNCTION BarcodeDlgTest()\n\n   LOCAL oDlg, hDCDlg\n   LOCAL cBarra := space(0)\n\n   DEFINE DIALOG oDlg NAME \"BARCODETEST\"\n\n   REDEFINE GET oSay VAR cBarra ID 102 OF oDlg \n\n   hDCDlg = oSay:GetDC()\n\n   oDlg:bPainted = { | | DrawTestBarcode( hDCDlg ),oSay:SaveToBmp(CurDir() + \"\\teste.bmp\"),msginfo(\"Salvei\") }\n\n   REDEFINE BUTTON ID 101 OF oDlg ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTER\n\nRETURN (.T.)\n\n\n#INCLUDE \"VRDBCODE.PRG\"\n\n\n/////////////////////////////////////////////////////////////////\nbctest.rc\n\n#ifdef _CE\n   #include \"c:\\vce\\include\\arm\\windows.h\"\n   #include \"c:\\vce\\include\\arm\\commctrl.h\"\n#endif\n\n\nBARCODETEST DIALOG 11, 7, 252, 135\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Barcodes in a Dialog\"\nFONT 6, \"MS Sans Serif\"\n{\n PUSHBUTTON \"&amp;Cancel\", 101, 192, 4, 54, 14\n EDITTEXT 102, 11, 27, 94, 26\n}\n\n/////////////////////////////////////////////////////////////////////////\n\nNão tive sucesso em slavar com bitmap, para emitir etiqueta como \nHTML, usando o Bitmap como imagem \nAlguma idéia ?\n\nSaludos\nMauro - Brasilia - Brasil','',0,'','20b06upu',1,0,'',778,0,0),(30015,6705,3,2,0,'87.218.146.57',1176820263,1,0,1,1,1,1,'','','Rafael,\n\nClass TScrWnd does not inherits from Class TWindow, instead it is a container Class, as it \"contains\" a TWindow object (oWnd)\n\nA possible solution though not very \"technical\" is to change the Method MouseWheel() of Class TWindow dinamically using __clsModMsg() but it has the side effect problem that all TWindows objects will change their behaviors too, which it is not desirable\n\nIn fact the right solution is to inherit from Class TWindow and redefine the Method MouseWheel(), so Class TScrWnd would become an inherited class, not a container class','',0,'','pmvythmz',1,0,'',2,0,0),(30017,5642,3,73,0,'200.23.18.132',1176820583,1,0,1,1,1,0,'','','Alguien ha reconstruido las librerias con la nueva version de Fwh y Harbour Abril de 2007? porque da error, en version de Junio del año pasado no da problemas.\nSalu2\nPaco','',0,'','23r1d0rs',1,0,'',73,0,0),(30018,6705,3,63,0,'83.49.110.35',1176821504,1,0,1,1,1,0,'','','Thanks, Antonio. I\'ll try and see what happens...\nRafael','',0,'','36ii8pjy',1,0,'',63,0,0),(30019,6710,7,2,0,'87.218.146.57',1176821700,1,0,1,1,1,1,'','','Mauro,\n\nUsa \n\noDlg:SaveToBmp(CurDir() + \"\\teste.bmp\")\n\nen vez de:\n\noSay:SaveToBmp(CurDir() + \"\\teste.bmp\"),','',0,'','uwwe8uiy',1,0,'',2,0,0),(30020,6710,7,2,0,'87.218.146.57',1176821890,1,0,1,1,1,1,'','','Mejor prueba a cambiar esto:\n\nhDCDlg = oSay:GetDC() \n\noDlg:bPainted = { | | DrawTestBarcode( hDCDlg ),oSay:SaveToBmp(CurDir() + \"\\teste.bmp\"),msginfo(\"Salvei\") }\n\npor:\n\noDlg:bPainted = { | | DrawTestBarcode( oSay:GetDC() ), oSay:ReleaseDC(), oSay:SaveToBmp(CurDir() + \"\\teste.bmp\"), msginfo(\"Salvei\") }','',0,'','21clihcx',1,0,'',2,0,0),(30021,6691,3,303,0,'72.199.41.171',1176822243,1,0,1,1,1,0,'','','Enrico,\n\n&gt;IF oRs:RecordCount = 0 \n\n&gt;But it will not work with all cursortype.\n\nAre you saying that oRS:RecordCount might be greater than zero even when there are no records in the recordset under some circumstances? If so, under what circumstances?\n\nJames','',0,'','1blgfucg',1,0,'',303,0,0),(30022,6485,6,2,0,'87.218.146.57',1176822269,1,0,1,1,1,1,'','','Osvaldo,\n\nNo parece tener fácil solución, ya que en OSX (al igual que en Unix y Linux) los nombres de fichero distinguen mayúsculas de minúsculas.\n\nSe podría implementar una función que probase todas las combinaciones posibles de mayúsculas y minúsculas, pero no es una solución muy técnica.\n\nEs preferible prestar atención y escribir los nombres de los ficheros de una forma determinada y referirse a ellos de la misma forma.','',0,'','39a8rhkg',1,0,'',2,0,0),(30023,6691,3,6,0,'87.3.212.10',1176822629,1,0,1,1,1,1,'','','oRs:RecordCount() is -1 when an adOpenForwardOnly or adOpenDynamic cursor type is used.\n\nEMG','',0,'','2w420yl3',1,0,'',6,0,0),(30024,6691,3,947,0,'88.5.164.13',1176822683,1,0,1,1,1,0,'','','Hi,\n\nis RLOCK() possible ?\n\nThanks,\n\nJAGarcia','',0,'','1tij6g0h',1,0,'',947,0,0),(30025,6691,3,6,0,'87.3.212.10',1176822999,1,0,1,1,1,1,'','','No, locking is automatic. You can choose pessimistic (from the first change to the Update() call, if I remember correctly) or optimistic (only during Update() call).\n\nEMG','',0,'','op069q5d',1,0,'',6,0,0),(30026,6691,3,303,0,'72.199.41.171',1176823147,1,0,1,1,1,0,'','','Enrico,\n\n&gt;oRs:RecordCount() is -1 when an adOpenForwardOnly or adOpenDynamic cursor type is used. \n\nOK, so oRS:RecordCount() &lt;= 0 when there are no records, right?\n\nOr, oRS:RecordCount() &lt; 1\n\nJames','',0,'','28gix6c2',1,0,'',303,0,0),(30027,6691,3,6,0,'87.3.212.10',1176823318,1,0,1,1,1,1,'','','No, with those two cursor types oRs:RecordCount is -1 even if there are records in the recordset.\n\nThanks to MS for this...\n\nEMG','',0,'','2jn0xovu',1,0,'',6,0,0),(30028,6699,6,875,0,'64.76.108.179',1176824660,1,0,1,1,1,0,'','','Raymundo Gracias, Funciono perfectamente    <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSe Agradece\n\n\nJaime','',0,'','2eorayff',1,0,'',875,0,0),(30029,6709,6,180,0,'83.35.122.128',1176826536,1,0,1,1,1,0,'','','Valdir:\n\nPrueba esto : ShellExecute( ,\"open\",\"archivo.pdf\",,,1 )\n\nUn saludo,\nManuel','',0,'','1bl5p1bj',1,0,'',180,0,0),(30030,6708,6,400,0,'200.205.49.10',1176826906,1,0,1,1,1,1,'','','Antonio, ja testei os exemplos do Samples.\n\n[quote:3thc0aim]Lo que intentas es mostrar distintos diálogos desde el Tabs ?[/quote:3thc0aim]\nSim, isto q eu quero, saber como fazer...\n\n@braços Ale','',0,'gA==','3thc0aim',1,0,'',400,0,0),(30031,6712,3,104,0,'189.13.46.127',1176827184,1,0,1,1,1,0,'','Fix para xbrowse + GoRight()','Olá,\n\nEu estava tendo alguns problemas com o xbrowse, quando se teclava a seta para direita, as colunas não eram mostradas na posição correta. Abaixo segue o fix (ou possível fix hehe) para isto. Pelo menos em todos os testes que fiz aqui funcionou 100%. Peço a quem usa o xbrowse fazer estas mudanças no arquivo XBROWSE.PRG e me digam se funciona para vocês também ok ? [:D]\n\n[code:vrxciqg4]\n//---------------------------------------------------------------------------//\n\nMETHOD IsDisplayPosVisible&#40; nPos, lComplete &#41; CLASS TXBrowse\n\n   local nWidth, nFor\n\n   DEFAULT lComplete &#58;= &#46;f&#46;\n\n   if nPos &lt; 1 &#46;or&#46; nPos &gt; len&#40; &#58;&#58;aDisplay &#41;\n      return &#46;f&#46;\n   endif\n\n   if &#58;&#58;lRecordSelector\n      nWidth &#58;= RECORDSELECTOR_WIDTH\n   else\n      nWidth &#58;= 0\n   endif\n\n   for nFor &#58;= 1 to nPos - 1\n      nWidth += &#58;&#58;ColAtPos&#40; nFor &#41;&#58;nWidth + COL_SEPARATOR\n   next\n\n   if lcomplete\n      nWidth += &#58;&#58;ColAtPos&#40; nPos &#41;&#58;nWidth + COL_SEPARATOR\n\n      if nWidth &gt; &#58;&#58;BrwWidth&#40;&#41;    &amp;&amp; By \nRossine - Reajusta a largura da coluna\n         &#58;&#58;ColAtPos&#40; nPos &#41;&#58;nWidth -= &#40; nWidth - &#58;&#58;BrwWidth&#40;&#41; + COL_SEPARATOR &#41;\n      endif\n\n   endif\n\nreturn &#40; nWidth  &lt; &#58;&#58;BrwWidth&#40;&#41; &#41;\n\n//---------------------------------------------------------------------------//\n[/code:vrxciqg4]\n\n[code:vrxciqg4]\n//---------------------------------------------------------------------------//\n\nMETHOD GoRight&#40; lOffset, lRefresh &#41; CLASS TXBrowse\n\n   local nLen, nVis\n\n   &#58;&#58;CancelEdit&#40;&#41;\n\n   if &#58;&#58;nMarqueeStyle == MARQSTYLE_NOMARQUEE &#46;or&#46; &#58;&#58;nMarqueeStyle &gt;= MARQSTYLE_HIGHLROW\n      lOffset &#58;= &#46;t&#46;\n   endif\n\n   DEFAULT lOffset  &#58;= &#46;f&#46;,;\n           lRefresh &#58;= &#46;t&#46;\n\n   nLen &#58;= len&#40; &#58;&#58;aDisplay &#41;\n   nVis &#58;= 0\n\n   Aeval&#40; &#58;&#58;aCols, &#123;|v| iif&#40;!v&#58;lHide, nVis++,&#41; &#125; &#41;\n\n   if &#58;&#58;ColAtPos&#40; &#58;&#58;nColSel &#41;&#58;nCreationOrder &lt; LEN&#40;&#58;&#58;aCols&#41;    &amp;&amp; By Rossine\n      if     &#58;&#58;ColAtPos&#40; &#58;&#58;nColSel+1 &#41;&#58;nCreationOrder = LEN&#40;&#58;&#58;aCols&#41;\n             if LEN&#40;&#58;&#58;aCols&#41; &lt;= &#58;&#58;LastDisplayPos&#40; &#46;f&#46; &#41;\n                &#58;&#58;nColSel++\n                if lRefresh\n                   &#58;&#58;DrawLine&#40; &#46;t&#46; &#41;\n                endif\n             else\n                &#58;&#58;GoRightMost&#40;&#41;\n             endif\n\n* Linha Original de xbrowse\n*     if     &#40; !lOffset &#46;and&#46; &#58;&#58;nColSel &lt;= &#58;&#58;LastDisplayPos&#40; &#46;t&#46; &#41; &#46;and&#46; &#58;&#58;nColSel &lt; nLen &#41; &#46;or&#46; ;\n*            &#40; &#58;&#58;nColOffset == &#40; nLen - &#58;&#58;nFreeze + 1 &#41; &#46;and&#46; &#58;&#58;nColSel &lt; nLen &#41;\n\n      elseif &#40; !lOffset &#46;and&#46; &#58;&#58;nColSel+1 &lt;= &#58;&#58;LastDisplayPos&#40; &#46;t&#46; &#41; &#46;and&#46; &#58;&#58;nColSel &lt;= nLen &#41; &#46;or&#46; ;\n             &#40; &#58;&#58;nColOffset == &#40; nLen - &#58;&#58;nFreeze + 1 &#41; &#46;and&#46; &#58;&#58;nColSel &lt; nLen &#41;\n             &#58;&#58;nColSel++\n             if lRefresh\n                &#58;&#58;DrawLine&#40; &#46;t&#46; &#41;\n             endif\n\n&amp;&amp; Linha Original de xbrowse\n*     elseif &#58;&#58;nColOffset &lt; &#40; nVis - &#58;&#58;nFreeze &#41;\n\n      elseif &#58;&#58;nColOffset &lt; &#40; nVis - &#58;&#58;nFreeze &#41; &#46;and&#46; &#58;&#58;ColAtPos&#40; &#58;&#58;nColSel &#41;&#58;nCreationOrder &lt;= LEN&#40;&#58;&#58;aCols&#41;\n      \n             &#58;&#58;nColOffset &#58;= Min&#40; &#58;&#58;nColOffset + 1, nVis - &#58;&#58;nFreeze &#41;\n             &#58;&#58;GetDisplayCols&#40;&#41;\n             if lRefresh\n                &#58;&#58;Super&#58;Refresh&#40; &#46;f&#46; &#41;\n             endif\n\n            &#58;&#58;IsDisplayPosVisible&#40; &#58;&#58;nColSel, &#46;t&#46; &#41;  &amp;&amp; By Rossine\n                                                     &amp;&amp; Isto e\' necessario para se ajustar a largura\n                                                     &amp;&amp; da ultima coluna visualizada a direita&#46;\n      endif\n\n      if &#58;&#58;oHScroll != nil\n         &#58;&#58;oHScroll&#58;GoDown&#40;&#41;\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n[/code:vrxciqg4]\n\nObrigado,\n\nRossine.','',0,'AIA=','vrxciqg4',1,0,'',104,0,0),(30032,6713,6,104,0,'189.13.46.127',1176827250,1,0,1,1,1,0,'','Fix para xbrowse + GoRight()','Olá,\n\nEu estava tendo alguns problemas com o xbrowse, quando se teclava a seta para direita, as colunas não eram mostradas na posição correta. Abaixo segue o fix (ou possível fix hehe) para isto. Pelo menos em todos os testes que fiz aqui funcionou 100%. Peço a quem usa o xbrowse fazer estas mudanças no arquivo XBROWSE.PRG e me digam se funciona para vocês também ok ? [:D]\n\n[code:3ffrwlfs]\n//---------------------------------------------------------------------------//\n\nMETHOD IsDisplayPosVisible&#40; nPos, lComplete &#41; CLASS TXBrowse\n\n   local nWidth, nFor\n\n   DEFAULT lComplete &#58;= &#46;f&#46;\n\n   if nPos &lt; 1 &#46;or&#46; nPos &gt; len&#40; &#58;&#58;aDisplay &#41;\n      return &#46;f&#46;\n   endif\n\n   if &#58;&#58;lRecordSelector\n      nWidth &#58;= RECORDSELECTOR_WIDTH\n   else\n      nWidth &#58;= 0\n   endif\n\n   for nFor &#58;= 1 to nPos - 1\n      nWidth += &#58;&#58;ColAtPos&#40; nFor &#41;&#58;nWidth + COL_SEPARATOR\n   next\n\n   if lcomplete\n      nWidth += &#58;&#58;ColAtPos&#40; nPos &#41;&#58;nWidth + COL_SEPARATOR\n\n      if nWidth &gt; &#58;&#58;BrwWidth&#40;&#41;    &amp;&amp; By \nRossine - Reajusta a largura da coluna\n         &#58;&#58;ColAtPos&#40; nPos &#41;&#58;nWidth -= &#40; nWidth - &#58;&#58;BrwWidth&#40;&#41; + COL_SEPARATOR &#41;\n      endif\n\n   endif\n\nreturn &#40; nWidth  &lt; &#58;&#58;BrwWidth&#40;&#41; &#41;\n\n//---------------------------------------------------------------------------//\n[/code:3ffrwlfs]\n\n[code:3ffrwlfs]\n//---------------------------------------------------------------------------//\n\nMETHOD GoRight&#40; lOffset, lRefresh &#41; CLASS TXBrowse\n\n   local nLen, nVis\n\n   &#58;&#58;CancelEdit&#40;&#41;\n\n   if &#58;&#58;nMarqueeStyle == MARQSTYLE_NOMARQUEE &#46;or&#46; &#58;&#58;nMarqueeStyle &gt;= MARQSTYLE_HIGHLROW\n      lOffset &#58;= &#46;t&#46;\n   endif\n\n   DEFAULT lOffset  &#58;= &#46;f&#46;,;\n           lRefresh &#58;= &#46;t&#46;\n\n   nLen &#58;= len&#40; &#58;&#58;aDisplay &#41;\n   nVis &#58;= 0\n\n   Aeval&#40; &#58;&#58;aCols, &#123;|v| iif&#40;!v&#58;lHide, nVis++,&#41; &#125; &#41;\n\n   if &#58;&#58;ColAtPos&#40; &#58;&#58;nColSel &#41;&#58;nCreationOrder &lt; LEN&#40;&#58;&#58;aCols&#41;    &amp;&amp; By Rossine\n      if     &#58;&#58;ColAtPos&#40; &#58;&#58;nColSel+1 &#41;&#58;nCreationOrder = LEN&#40;&#58;&#58;aCols&#41;\n             if LEN&#40;&#58;&#58;aCols&#41; &lt;= &#58;&#58;LastDisplayPos&#40; &#46;f&#46; &#41;\n                &#58;&#58;nColSel++\n                if lRefresh\n                   &#58;&#58;DrawLine&#40; &#46;t&#46; &#41;\n                endif\n             else\n                &#58;&#58;GoRightMost&#40;&#41;\n             endif\n\n* Linha Original de xbrowse\n*     if     &#40; !lOffset &#46;and&#46; &#58;&#58;nColSel &lt;= &#58;&#58;LastDisplayPos&#40; &#46;t&#46; &#41; &#46;and&#46; &#58;&#58;nColSel &lt; nLen &#41; &#46;or&#46; ;\n*            &#40; &#58;&#58;nColOffset == &#40; nLen - &#58;&#58;nFreeze + 1 &#41; &#46;and&#46; &#58;&#58;nColSel &lt; nLen &#41;\n\n      elseif &#40; !lOffset &#46;and&#46; &#58;&#58;nColSel+1 &lt;= &#58;&#58;LastDisplayPos&#40; &#46;t&#46; &#41; &#46;and&#46; &#58;&#58;nColSel &lt;= nLen &#41; &#46;or&#46; ;\n             &#40; &#58;&#58;nColOffset == &#40; nLen - &#58;&#58;nFreeze + 1 &#41; &#46;and&#46; &#58;&#58;nColSel &lt; nLen &#41;\n             &#58;&#58;nColSel++\n             if lRefresh\n                &#58;&#58;DrawLine&#40; &#46;t&#46; &#41;\n             endif\n\n&amp;&amp; Linha Original de xbrowse\n*     elseif &#58;&#58;nColOffset &lt; &#40; nVis - &#58;&#58;nFreeze &#41;\n\n      elseif &#58;&#58;nColOffset &lt; &#40; nVis - &#58;&#58;nFreeze &#41; &#46;and&#46; &#58;&#58;ColAtPos&#40; &#58;&#58;nColSel &#41;&#58;nCreationOrder &lt;= LEN&#40;&#58;&#58;aCols&#41;\n      \n             &#58;&#58;nColOffset &#58;= Min&#40; &#58;&#58;nColOffset + 1, nVis - &#58;&#58;nFreeze &#41;\n             &#58;&#58;GetDisplayCols&#40;&#41;\n             if lRefresh\n                &#58;&#58;Super&#58;Refresh&#40; &#46;f&#46; &#41;\n             endif\n\n            &#58;&#58;IsDisplayPosVisible&#40; &#58;&#58;nColSel, &#46;t&#46; &#41;  &amp;&amp; By Rossine\n                                                     &amp;&amp; Isto e\' necessario para se ajustar a largura\n                                                     &amp;&amp; da ultima coluna visualizada a direita&#46;\n      endif\n\n      if &#58;&#58;oHScroll != nil\n         &#58;&#58;oHScroll&#58;GoDown&#40;&#41;\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n[/code:3ffrwlfs]\n\nObrigado,\n\nRossine.','',0,'AIA=','3ffrwlfs',1,0,'',104,0,0),(30033,6485,6,95,0,'189.171.159.213',1176828590,1,0,1,1,1,0,'','','Muchas gracias.\n\nDesgraciadamente MS-Windows, nos acostumbro a cosas q en realidad para los programadores seria dolor de cabeza.\n\nPense tambien en tu solucion, una funcion que validara, pero voy a poner todo en un solo patron, Hace tiempo baje un script para convertir mis archivos a minusculas, voy a buscarlo y aplicarlo.\n\nSaludos y gracias\nOsvaldo Ramirez','',0,'AIA=','597b240t',1,0,'',95,0,0),(30034,6691,3,303,0,'72.199.41.171',1176829673,1,0,1,1,1,0,'','','&gt;No, with those two cursor types oRs:RecordCount is -1 even if there are records in the recordset. \n\nHmm. So how can we tell if there is an empty recordset?\n\nJames','',0,'AIA=','prm3cwei',1,0,'',303,0,0),(30035,6691,3,6,0,'87.3.212.10',1176830009,1,0,1,1,1,1,'','','[code:1isgjmnp]oRs&#58;Open&#40; &#46;&#46;&#46; &#41;\n\nIF oRs&#58;EOF&#40;&#41;\n    &#46;&#46;&#46;\nENDIF[/code:1isgjmnp]\n\nEMG','',0,'AIA=','1isgjmnp',1,0,'',6,0,0),(30036,6523,3,217,0,'200.159.120.34',1176830032,1,0,1,1,1,0,'','','Charles,\n\nI will ask Rossine about it. He was who made the changes in original TFolder class...\n\nRegards\nMaurilio','',0,'AIA=','26q608tn',1,0,'',217,0,0),(30037,6712,3,217,0,'200.159.120.34',1176830308,1,0,1,1,1,0,'','Re: Fix para xbrowse + GoRight()','Olá, Rossine!\n\nUso somente xBrowse em meu programa e em muitas situações tenho esse problema de remontagem das colunas.\nTenho também problema da montagem das linhas na navegação pela vertical quando a altura do xBrowse não permite que a última linha seja visualizada por completo.\nVou testar suas correções!\n\nAbraços!\nMaurilio','',0,'AIA=','1j7zaaf8',1,0,'',217,0,0),(30038,6710,7,778,0,'200.101.77.123',1176831780,1,0,1,1,1,0,'','','Prezado Antonio\n\nTestei esta nova opção, mas infelizmente somente salva o box do \nobjeto SAY em branco, e eu precisava salvar o codigo de barras em bitmap, para poder imprimir via Poocket Internet Explorer, no formato html,\n\nGrato\n\nUm saludo a todos\n\nMauro - Brasilia - Brasil','',0,'AIA=','10zuoiqs',1,0,'',778,0,0),(30039,6709,6,450,0,'200.245.0.8',1176833447,1,0,1,1,1,1,'','','Hola Manuel Aranda...\n\nmuchas gracias por tu pronta respuesta.\n\nFunciono... Gracias\n\nRegard Saludos','',0,'AIA=','2dumsu3q',1,0,'',450,0,0),(30040,6523,3,909,0,'71.71.110.50',1176833644,1,0,1,1,1,1,'','','Maurilio - \n\nI was mistaken in my last post.  There are some differences in the way teh examples are coded in the testfld5.prg sample.  I completely missed the BUTTON and BUT_MULT commands.  My old eyes are giving me problems!  I should be abel to get it working now.  Thanks for your help.\n\nRegards,\nCharles','',0,'AIA=','152awroh',1,0,'',909,0,0),(30041,6712,3,104,0,'189.13.46.127',1176833718,1,0,1,1,1,0,'','','Olá Maurilio,\n\n[quote:39cnozse]\nTenho também problema da montagem das linhas na navegação pela vertical quando a altura do xBrowse não permite que a última linha seja visualizada por completo. \n[/quote:39cnozse]\n\nTente mudar o método abaixo para ver ser resolve este problema de apagar a ultima linha. Mudei somente a linha com \"*\"\n\n[code:39cnozse]\nMETHOD GoUp&#40;&#41; CLASS TXBrowse\n\n   local nHeight\n\n   if &#58;&#58;nLen == 0 &#46;or&#46; Eval&#40; &#58;&#58;bBof &#41;\n      return nil\n   endif\n\n   &#58;&#58;CancelEdit&#40;&#41;\n   &#58;&#58;DrawLine&#40;&#41;\n   &#58;&#58;Seek&#40;&#41;\n\n   if Eval&#40; &#58;&#58;bSkip, -1 &#41; == -1\n      if &#58;&#58;nRowSel &gt; 1\n         &#58;&#58;nRowSel--\n      else\n         XBrwScroll&#40; &#58;&#58;hWnd, -1, &#58;&#58;nRowHeight, &#58;&#58;nHeaderHeight, &#58;&#58;nFooterHeight &#41;\n         nHeight &#58;= &#58;&#58;BrwHeight&#40;&#41; - &#58;&#58;FooterHeight&#40;&#41; - &#58;&#58;HeaderHeight&#40;&#41;\n         If nHeight % &#58;&#58;nRowHeight &gt; 0\n*           &#58;&#58;EraseData&#40; &#40; Int&#40;nHeight/&#58;&#58;nRowHeight&#41; + 1 &#41; * &#58;&#58;nRowHeight &#41;\n            &#58;&#58;EraseData&#40; &#40; &#40; Int&#40;nHeight/&#58;&#58;nRowHeight&#41; + 1 &#41; * &#58;&#58;nRowHeight &#41; + 10 &#41;\n         Endif\n         If &#58;&#58;nDataRows &lt; &#58;&#58;RowCount&#40;&#41;\n            &#58;&#58;nDataRows++\n         Endif\n      endif\n   endif\n[/code:39cnozse]\n\nAbraços,\n\nRossine.','',0,'gIA=','39cnozse',1,0,'',104,0,0),(30042,6714,3,41,0,'200.87.167.162',1176834059,1,0,1,1,1,0,'','Chage GET alignment','Hello,\n\nsomebody know how can I change the get alignment (rigth, left, center) in run time, the get is defined from resource\n\nsome idea\n\nregards\n\nMarcelo','',0,'gIA=','1i5bfo2n',1,0,'',41,0,0),(30043,6674,3,972,0,'81.164.118.31',1176835017,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1l9id027]&gt;&gt;Yes, I want to have a picture of \"9999999.99999\" in a narrow GET. \n&gt;Why? \n&gt;Don\'t wanne be rude, but, does it matter?\n\nYes. If you want someone else to donate their time to help with a problem that only seems to be a problem for you and will create more problems for others, I would say that you do need to give us a reason why.[/quote:1l9id027]\nSorry James, you are correct. Let me explain.\n\nWe are converting an app from Clipper/FW1.9.2 to xHarbour/FWH-April2007. In FW1.9.2 it worked like I discribed. And we have TONS of RC\'s that needs to be changed if we can not get the same behaviour in latest FWH.\n\nAntonio\'s proposal seems to do something, though, the carret is not correct via this way.\n\nSorry for being rude to you James. I must have had a very bad day. I\'m normally a very gentle guy!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPatrick','',0,'gA==','1l9id027',1,0,'',972,0,0),(30044,6697,2,138,0,'189.141.67.139',1176835279,1,0,1,1,1,1,'','','Para que reinventar el hilo negro, lo que estas buscando ya existe.\n\nERP Cliente / servidor\nCon Terminal Punto de venta totalmente desarrollado\nCon codigo fuente incluido\nHecho totalmente en FiveWin.\n\ny con cientos de historias de exito detras.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.creswin.com.mx\">www.creswin.com.mx</a><!-- w -->','',0,'gA==','2o43xb9e',1,0,'',138,0,0),(30045,6645,4,224,0,'162.83.94.176',1176837080,1,0,1,1,1,1,'','','Greetings Antonio,\n\nThis is great news!! I look forward to seeing some examples of to implement ActiveX.','',0,'gA==','l675gi8c',1,0,'',224,0,0),(30046,6715,6,450,0,'200.245.0.8',1176838646,1,0,1,1,1,1,'','Abrir Arquivos (*.TIF, *.BMP e *.JPG) com TActiveX','Olá...\n\nÉ possível abrir esses arquivos com a Classe TActiveX ?\n\nSaludos','',0,'gA==','2jccho70',1,0,'',450,0,0),(30047,6710,7,778,0,'200.101.77.123',1176838853,1,0,1,1,1,0,'','','Antonio\n\nFuncionou assim, alterei a Dialog para não ter bordas e coloquei esta dialog no tamanho do código desejado e salvei, fecho a janela e tenho meu codigo de barras salvo e posso agora imprimir....\n\nfuncionou, obrigado\n\n   oDlg:bPainted = { | hDC  | DrawTestBarcode( hDC ), oDlg:SaveToBmp(CurDir() + \"\\teste.bmp\"), oDlg:End() }\n\nSaludos\n\nMauro - Brasilia - Brasil','',0,'gA==','39ivasbh',1,0,'',778,0,0),(30048,6674,3,303,0,'72.199.41.171',1176839098,1,0,1,1,1,0,'','','Patrick,\n\n&gt;We are converting an app from Clipper/FW1.9.2 to xHarbour/FWH-April2007. In FW1.9.2 it worked like I discribed. And we have TONS of RC\'s that needs to be changed if we can not get the same behaviour in latest FWH. \n\nIt seems you do have a dilemma.\n\nI wonder if you couldn\'t do a search and replace on the picture clause you are using. Apparently, the picture clause is larger than any of the data, or you would have had a problem with it also.\n\nIf you do change the source of TGet you are going to have to change it again each time a new FWH version is released. So, there is still some incentive to change your program either by changing the picture clause or the get size in the resource file. At least you would only have to do it once.\n\nIf you still wish to modify TGET then I suggest using a file compare program to find all the changes between 1.9.2 and the latest version. This should help you find the solution. If you don\'t already have one, there is a good file compare program (free) here: <!-- m --><a class=\"postlink\" href=\"http://winmerge.org\">http://winmerge.org</a><!-- m -->\n\nJames','',0,'gA==','1tl925mo',1,0,'',303,0,0),(30049,6523,3,909,0,'71.71.110.50',1176839144,1,0,1,1,1,1,'','','Maurilio- \nI got the multiline folders working fine from resources.  The trick is that the style has to come from the resource file and all I did was to put TCS_MULTILINE directly into the RC file as part of the Style description.  Resource Workshop won\'t accept it, but adding it directly to the RC at the same time I put in the xpmanifest stuff works fine.  \n\nThanks, again,\n\nCharles','',0,'gA==','1i41j521',1,0,'',909,0,0),(30050,6712,3,217,0,'200.159.120.34',1176841706,1,0,1,1,1,0,'','','Beleza, Rossine.\nEstou de mudança esta semana, tá uma correria, mas vou tentar testar à noite.\n\nObrigado!\nMaurilio','',0,'gA==','smytcd5w',1,0,'',217,0,0),(30051,6523,3,217,0,'200.159.120.34',1176842152,1,0,1,1,1,0,'','','Charles,\n\nI\'m happy to know it worked fine to you!\n\nRegards\nMaurilio','',0,'gA==','3ob1uhgw',1,0,'',217,0,0),(30052,6715,6,215,0,'189.136.231.142',1176842765,1,0,1,1,1,1,'','y por que no','Hola.\n¿Por qué no usas Freeimage?\n\nRevisa Testimg.prg en los ejemplos de FWH','',0,'gA==','3j8hg50f',1,0,'',215,0,0),(30053,6716,3,705,0,'61.0.136.246',1176842890,1,0,1,1,1,0,'','Blinking during display','Hi!\n\nIn my following test code, no of say are more for display the information. My problem is that, while I am entering data during checking and displaying the information, the Say information’s are blinking. The blinking rates are increasing gradually.\n\n#include \"FiveWin.ch\"\n  \nStatic oGet, oSay, n, oFont, cStat\nStatic oDbf, oDbf1, oDbf2\n//----------------------------------------------------------------------------//\n\nFunction Main()\n   Local oDlg1, BtnVal\n   Local oBtnFind, oBtnDele, oBtnNext, oBtnPrev, oBtnGo, oBtnAdd, oBtnEdit, oBtnSave\n   Local a1Buttons\n\n   Set Century On\n   Set Date Brit\n   Set Date format \"dd/mm/yyyy\"\n\n   // Replace value\n   cStat     := \"ADD\"\n\n   // Open CustCat database and associate Indexes\n   USE (CurDrive() + \":\\\" + \"Testpro\\Data\\CustCat.Dbf\") Alias \"RefCate\" NEW SHARED\n   DATABASE oDbf2      \n   \n   // Open associate index files.\n   SET INDEX TO (CurDrive() + \":\\\" + \"Testpro\\Data\\Cust_cat\")\n      \n   // Open Customer database and associate Indexes\n   USE (CurDrive() + \":\\\" + \"Testpro\\Data\\Customer.Dbf\") Alias \"RefCust\" NEW SHARED\n   DATABASE oDbf1      \n   \n   // Open associate index files.\n   SET INDEX TO (CurDrive() + \":\\\" + \"Testpro\\Data\\Cust_no\")\n   \n   // Open Refill database and associate Indexes\n   USE (CurDrive() + \":\\\" + \"Testpro\\Data\\Refill.Dbf\") Alias \"Refill\" NEW SHARED\n   DATABASE oDbf      \n\n   // Open associate index files.\n   SET INDEX TO (CurDrive() + \":\\\" + \"Testpro\\Data\\Ref_ord\")\n\n   // Clean the Customer dataBase buffer\n   oDbf:Blank()                      \n   \n   oDbf:OrderDt   := oDbf2:LstOrdDt\n   oDbf:OrderNo   := oDbf2:LstOrdNo + 1\n   oDbf:Cashmemo  := oDbf2:LstCshMemo + 1\n   oDbf:DaySerial := oDbf2:LstDaySrl + 1\n   \n   //Field gets strt here\n   DEFINE FONT oFont NAME \"COURIER\" SIZE 12, 10\n   \n   DEFINE DIALOG oDlg1 ICON oIco RESOURCE \"Booking\" of oBookWind TITLE \"ADD INDENT\" Color RGB(170, 200, 210), RGB(170, 200, 210)\n   \n   SET FONT of oDlg1 to oFONT\n   \n   REDEFINE BUTTON oBtnFind ID 1 OF oDlg1\n\n   REDEFINE BUTTON oBtnDele ID 2 OF oDlg1\n\n   REDEFINE BUTTON oBtnNext ID 3 OF oDlg1\n\n   REDEFINE BUTTON oBtnPrev ID 4 OF oDlg1\n\n   REDEFINE BUTTON oBtnGo ID 5 OF oDlg1   \n   \n   REDEFINE BUTTON oBtnAdd ID 6 OF oDlg1\n\n   REDEFINE BUTTON oBtnEdit ID 7 OF oDlg1 ;\n      ACTION ( CheckESC(oDlg1), oDlg1:Update() )\n      \n   REDEFINE BUTTON oBtnBrow ID 8 OF oDlg1 ;\n      ACTION ( lBrowFun := .T., oDlg1:End() )\n      \n   REDEFINE BUTTON oBtnSave ID 9 OF oDlg1 ;\n      ACTION ( SaveData( oRecStat, username, today, oDlg1, UserName ), oDlg1:Update() )\n   \n   REDEFINE SAY oSay ID  12 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n   REDEFINE SAY oSay ID  13 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n   REDEFINE SAY oSay ID  14 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n   REDEFINE SAY oSay ID  15 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n   REDEFINE SAY oSay ID  16 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n   REDEFINE SAY oSay ID  17 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n   REDEFINE SAY oSay ID  18 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n   REDEFINE SAY oSay ID  19 OF oDlg1 Color RGB(56, 61, 249), RGB(170, 200, 210) Font oFont1 \n \n   REDEFINE GET oGet Var oDbf:CustNo ID 20 OF oDlg1                                     ;\n     Valid (If(!Empty(oDbf:CustNo),                                                     ;\n                RegValCheck( \"ADD\", userlevel, username, today, oDlg1 )), BtnPrsVal())  ;\n     Picture \"@!\" Color RGB(0, 0, 0), RGB(255, 255, 255) Font oFont \n\n   REDEFINE GET oGet Var oDbf:DlvyChrg ID 21 OF oDlg1              ;\n     When  !Empty(oDbf:CustNo)                                     ;\n     Valid If(nOption3 = 1, If(oDbf:DlvyMode == \"H\",               ;\n                       dChk(oDlg1, dName), .T.), .T.)           ;\n     Picture \"@Z 9999.99\" Color RGB(0, 0, 0), RGB(255, 255, 255) Font oFont \n     \n   REDEFINE GET oGet Var oDbf:DlvyReqst ID 22 OF oDlg1   ;\n     When  !Empty(oDbf:CustNo)                           ;\n     Valid refcheck( \"ADD\" ) .And.                       ;\n           ( If( SaveData( oRecStat, \"ADD\", today, oDlg1, UserName ), .T.,  (oDlg1:aControls[ 18 ]:Setfocus(), .T.) ), .T. ) ;\n     Picture \"@!\" Color RGB(0, 0, 0), RGB(255, 255, 255) Font oFont \n\n   a1Buttons = { oBtnFind, oBtnDele, oBtnNext, oBtnPrev, oBtnGo, ;\n                 oBtnAdd, oBtnEdit, oBtnBrow, oBtnSave }\n   \n   ACTIVATE DIALOG oDlg1 NOMODAL ;\n      Valid CloseFun( oRecStat )\n\n   // Disable appropriate buttons\n   For n = 1 to Len( a1Buttons ) - 3\n       a1Buttons[ n ]:Disable()\n   Next\n\n   // Following is to set focus\n   oDlg1:aControls[ 18 ]:SetFocus(.T.)\n\n   RELEASE FONT oFont\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function SaveData( oRecStat, helpIDX, today, oDlg1, Username )\n   Local saveAlias := Alias()\n   Local saveRecno, saveOrder, chkCashmo, cBar := .F.\n   Local cMRA  := \" \"\n   Local dName := \" \"\n   \n   // Confirm Message for continuation\n   If !MsgYesNo(\"Sure to save current record.\", \"CONFIRM\")\n      CheckESC(oDlg1)\n      Return .T.\n   Endif\n   \n   // First establish to locks configure control\n   Do While !(oDbf2:RecLock())\n   Enddo\n   \n   oDbf2:Load()\n   \n   dbSelectArea(saveAlias)\n\n   //Field gets strt here\n   DEFINE FONT oFont NAME \"COURIER\" SIZE 10, 10 BOLD\n\n   // All locks successfull, check dependencies first\n   If helpIDX == \"ADD\"\n         // Save the current database state\n         saveOrder := IndexOrd()\n         saveRecNo := RecNo()\n\n         chkCashmo := oDbf2:LstCshMemo+1\n      \n         // Set the controlling index\n         dbSelectArea(\"Refill\")\n\n         If chkCashmo &lt;&gt; 0\n            dbSeek(Dtos(oDbf:DlvyDt)+Str(ChkCashmo,8)+oDbf:ExtnCount)\n\n            If Found()\n               Tone(300,5)\n                \n               MsgInfo(\"DUPLICATE CASHMEMO FOUND :\"  + CRLF + CRLF +                 ;\n                       \"Another Cashmemo found as un-delivered in Service.\" + CRLF + ;\n                       \"Please CANCEL or SERVICE the same.\", \"WARNING\")\n\n               // Restore current database state\n               dbSelectArea(saveAlias)\n               dbSetOrder(saveOrder)\n               dbGoTo(saveRecNo)\n               oDbf8:UnLock()\n               CheckESC(oDlg1)\n               Return .T.\n            Endif\n         Endif\n\n         oDbf:OrderDt   := oDbf2:LstOrdDt       // Order Date\n         oDbf:OrderNo   := oDbf2:LstOrdNo+1     // Order No\n         oDbf:DaySerial := oDbf2:LstDaySrl+1    // Day Serial No\n\n         oDbf2:LstOrdNo   := oDbf:OrderNo\n         oDbf2:LstDaySrl  := oDbf:DaySerial\n\n         If Empty(oDbf:ExtnCount)\n            oDbf:ExtnCount := \"E0\"                      // Extention No\n         Endif\n\n         // Restore current database state\n         dbSelectArea(saveAlias)\n         dbSetOrder(saveOrder)\n         dbGoTo(saveRecNo)\n\n         oDbf:Cashmemo := 0\n\n         // Update parameters\n         If oDbf:nOption1 == 1\n            oDbf:Cashmemo        := oDbf2:LstCshMemo + 1\n            RefBlaze-&gt;LstCshMemo := oDbf:Cashmemo\n         Endif\n\n         If oDbf:DlvyMode == \"R\" .And. oDbf:DlvyChrg &gt; 0\n            oDbf:DlvyChrg := ((-1) * oDbf:DlvyChrg)\n         Endif\n\n         If oDbf:DlvyMode == \"C\"\n            oDbf:DlvyChrg := oDbf2:DelCharges\n         Endif\n\n         dbSelectArea(\"RefCust\")\n\n         // Update customer array\n         oDbf1:TotRefill  += oDbf:OrdCyl\n         oDbf1:LstOrdNo   := oDbf:OrderNo\n         oDbf1:LstIndtDt  := oDbf:OrderDt\n         oDbf1:TotOpenBkg := oDbf1:TotOpenBkg + 1\n\n         // Routine check for auto home delivery\n         If oDbf:nOption1 &lt;&gt; 1\n            If oDbf2:AutoDlvy == .T. .And. ( oDbf:DlvyMode == \"H\" .Or. oDbf:DlvyMode == \"C\" )\n               If !(oDbf2:DlvyManCod)\n                  oDbf:Cashmemo    := oDbf2:LstCshMemo + 1\n                  oDbf2:LstCshMemo := oDbf:Cashmemo\n               Endif\n\n               // Replace refill database\n               oDbf:DlvyDt := today\n\n               // Replace customer database\n               oDbf1:LstDlvyDt  := today\n               oDbf1:TotOpenBkg := oDbf1:TotOpenBkg - 1\n            Endif\n         Else\n            If oDbf8:AutoDlvy == .T. .And. ( oDbf:DlvyMode == \"H\" .Or. oDbf:DlvyMode == \"C\" )\n               // Replace refill database\n               oDbf:DlvyDt := today\n\n               // Replace customer database\n               oDbf1:LstDlvyDt  := today\n               oDbf1:TotOpenBkg := oDbf1:TotOpenBkg - 1\n            Endif\n         Endif\n\n         // Update customer database\n         oDbf1:RecLock()         \n         oDbf1:Save()\n         oDbf1:Commit()\n         oDbf1:UnLock()\n         \n         If oDbf2:DataConvt == .T. .And. oDbf2:DlvyManCod == .T.\n            oDbf:CashmemoDt := today\n         Endif\n         \n         // First establish to locks configure control\n         oDbf:Append()\n         oDbf:RecLock()\n         oDbf:Save()\n         oDbf:Commit()\n         oDbf:UnLock()         \n         \n         // Create new refill information\n         dbSelectArea(saveAlias)\n   Endif\n   \n   // Refresh for new entry\n   oDbf:Blank()\n   oDbf1:Blank()\n   oDbf2:Blank()\n   \n   oDbf:OrderDt   := oDbf2:LstOrdDt\n   oDbf:Order     := oDbf2:LstOrdNo+1\n   oDbf:Cash      := oDbf2:LstCshMemo+1\n   oDbf:DaySerial := oDbf2:LstDaySrl+1\n   \n   // Display customer details\n   @ 05, 17 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 80, 12 Font oFont\n\n   @ 06, 17 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont\n\n   @ 07, 17 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont\n\n   @ 08, 17 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont\n\n   @ 09, 17 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont\n\n   @ 10, 17 Say oSay Prompt \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 60, 12 Font oFont\n\n   @ 12, 17 Say oSay Prompt \"\" of oDlg1   ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 150, 12 Font oFont\n\n   @ 14, 17 Say oSay Prompt \"\" of oDlg1   ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n\n   @ 16, 17 Say oSay Prompt \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n\n   @ 17, 17 Say oSay Prompt \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n\n   @ 09, 80 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n\n   @ 10, 80 Say oSay Prompt \"\" of oDlg1  ;\n            Picture  \"@Z 9999999999\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n\n   @ 11, 80 Say oSay Prompt \"\" of oDlg1   ;\n            Picture  \"@Z 9999999999\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n\n   @ 15, 80 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 95, 12 Font oFont\n\n   @ 16, 80 Say oSay Prompt \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 95, 12 Font oFont\n\n   @ 17, 80 Say oSay Prompt \"\" of oDlg1   ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n\n   @ 23, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n\n   @ 27, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n            \n   @ 28, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont\n\n   @ 30, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont\n   \n   @ 31, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont\n   \n   @ 32, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont\n   \n   @ 34, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n   \n   @ 35, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n            \n   @ 36, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n   \n   @ 37, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n   \n   @ 6, 80 Say oSay Prompt \"\" of oDlg1   ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n\n   @ 24, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n\n   @ 25, 116 Say oSay Prompt \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont\n\n   // Erase booking history\n   @ 24, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 25, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 26, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 27, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 28, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 29, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 30, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 31, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 32, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 33, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 34, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 35, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 36, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   @ 37, 05 Say oSay Prompt \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont\n\n   // Display booking info\n   @ 05, 118 Say oSay Prompt oDbf:OrderDt of oDlg1 ;\n            Picture  \"@D\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n\n   @ 06, 118 Say oSay Prompt oDbf:Order of oDlg1 ;\n            Picture  \"@Z 99999\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n\n   @ 07, 118 Say oSay Prompt oDbf:Cash of oDlg1 ;\n            Picture  \"@Z 999.99\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n\n   @ 08, 118 Say oSay Prompt oDbf:DaySerial of oDlg1 ;\n            Picture  \"@Z 9999\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont\n   \n   // Following is to set focus\n   oDlg1:aControls[ 18 ]:Refresh(.T.)\n   oDlg1:aControls[ 18 ]:Setfocus(.T.)\n   \n   RELEASE FONT oFont\nReturn .T.\n\n//----------------------------------------------------------------------------//\n\nStatic Function CloseFunc( oMenuItm, oMenu, oDlg1 )\n   oDbf:Close()\n   oDbf1:Close()\n   oDbf2:Close()\nReturn .T.\n\n//-------------------------------------------------------------------//\n\nStatic Function RegValCheck( helpIDX, userlevel, username, today, oDlg1 )\n   Local saveAlias := Alias()\n   Local aMsg      := \"\"\n   Local aDlvyList := {}\n   Local saveRecno, saveOrder, i, nDisp, lSay\n   \n   Set Century On\n   Set Date Brit\n   Set Date format \"dd/mm/yyyy\"\n\n   If Empty(oDbf:CustNo)\n      Return .F.\n   Endif\n   \n   dbSelectArea(\"RefCust\")\n   dbSeek(oDbf:CustNo)\n   \n   If Found()\n      // Reload Customer Info\n      oDbf1:Load() \n   Else\n      Tone(300,5)\n      MsgStop(\"INVALID CUSTOMER NO :\"  + CRLF + CRLF +  ;\n              \"Customer with this Customer No not available.\" + CRLF + ;\n              \"Please enter correct No.\", \"WARNING\")\n\n      dbSelectArea(saveAlias)\n      Return .F.\n   Endif\n   \n   // Check customer category\n   If !chkkey(\"RefCate\", oDbf1:CustCat, 1,  ;\n              \"INVALID CUSTOMER CATEGORY :\" + CRLF + CRLF +  ;\n              \"Undefined customer category in Customer details.\")\n      Return .F.\n   Else\n      dbSelectArea(\"RefCate\")\n      dbSeek(oDbf1:CustCat)\n           \n      // Reload category info\n      oDbf2:Load()\n   Endif\n\n   // Reset to entry point state\n   dbSelectArea(saveAlias)\n\n   // Collect previous refill information\n   DispRef( aDlvyList )\n   \n   // Check if customer has taken transfer TV/TTV\n   If !Empty(oDbf1:TvTtvNo)\n      Tone(300,5)\n\n      MsgStop(\"Customer has taken transfer from the Agency. \" + ;\n              oDbf1:TvTtv + \" No. \"                           + ;\n              Transform(oDbf1:TvTtvNo, \"@!\")                  + ;\n              \" on \" + Transform(oDbf1:TvTtvDt, \"@D\") + \".\"   + ;\n              \" Transfered to \" + TRIM(Transform(oDbf1:BlkOutDist, \"@!\")) + \".\" ,;\n              \"WARNING\")\n\n      Return .F.\n   Endif\n\n   // Display info\n   @ 05, 118 Say oSay PROMPT oDbf:OrderDt of oDlg1 ;\n            Picture  \"@D\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 06, 118 Say oSay PROMPT oDbf:Order of oDlg1 ;\n            Picture  \"@Z 99999\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 07, 118 Say oSay PROMPT oDbf:Cash of oDlg1 ;\n            Picture  \"@Z 999.99\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 08, 118 Say oSay PROMPT oDbf:DaySerial of oDlg1 ;\n            Picture  \"@Z 9999\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n   \n   // Display customer details\n   @ 05, 17 Say oSay PROMPT oDbf1:Degs of oDlg1 ;\n            Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 80, 12 Font oFont1\n\n   @ 06, 17 Say oSay PROMPT oDbf1:Name of oDlg1 ;\n            Picture  \"@!\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 07, 17 Say oSay PROMPT oDbf1:Add1 of oDlg1 ;\n            Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 08, 17 Say oSay PROMPT oDbf1:Add2 of oDlg1 ;\n            Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 09, 17 Say oSay PROMPT oDbf1:Land of oDlg1 ;\n            Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 10, 17 Say oSay PROMPT oDbf1:Pin of oDlg1  ;\n            Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 60, 12 Font oFont1\n\n   @ 12, 17 Say oSay PROMPT oDbf2:Desc of oDlg1   ;\n            Picture  \"@!\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 150, 12 Font oFont1\n\n   @ 14, 17 Say oSay PROMPT oDbf1:DgccNo of oDlg1   ;\n            Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 09, 80 Say oSay PROMPT oDbf1:Contact of oDlg1 ;\n            Picture  \"@!\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 10, 80 Say oSay PROMPT oDbf1:OTel of oDlg1  ;\n            Picture  \"@Z 9999999999\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 11, 80 Say oSay PROMPT oDbf1:MTel of oDlg1   ;\n            Picture  \"@Z 9999999999\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 23, 116 Say oSay PROMPT oDbf1:Member of oDlg1   ;\n            Picture  \"@!\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 27, 116 Say oSay PROMPT oDbf1:Area of oDlg1 ;\n            Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n            \n   If !Empty(oDbf1:AreaType)\n      If oDbf1:AreaType == \"U\"\n         @ 28, 116 Say oSay PROMPT \"URBAN AREA\" of oDlg1 ;\n                  Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 120, 12 Font oFont1\n      Elseif oDbf1:AreaType == \"R\"\n         @ 28, 116 Say oSay PROMPT \"RURAL AREA\" of oDlg1 ;\n                  Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 120, 12 Font oFont1\n      Elseif oDbf1:AreaType == \"D\"\n         @ 28, 116 Say oSay PROMPT \"DEEPAM AREA.\" of oDlg1 ;\n                  Picture  \"@!\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 120, 12 Font oFont1\n      Endif\n   Endif\n\n   dbSelectArea(saveAlias)\n\n   // Save entry point state\n   saveRecno := RecNo()\n   saveOrder := IndexOrd()\n\n   // Display previous refill details\n   If Len(aDlvyList) &gt; 0\n      // Position cursor\n      i     := 24\n      nDisp := 1\n      \n      // Display booking history\n      For ndisp := 1 To Len(aDlvyList)\n          @ i, 05 Say lSay PROMPT aDlvyList[ndisp][1] of oDlg1 ;\n                  Picture \"@!\" Color RGB(255, 255, 255), RGB(170, 200, 210) SIZE 555, 12 Font oFont1\n          \n          // Position cursor\n          ++i\n      Next \n   \n      i     := 24\n      nDisp := 1\n   Endif   \n\n   // Reset to entry point state\n   dbSelectArea(saveAlias)\n   dbSetOrder(saveOrder)\n   dbGoto(saveRecno)\n\n   If helpIDX == \"ADD\"\n      // Display the variable\n      If !(Empty(oDbf1:LtManDt))\n         @ 24, 116 Say oSay PROMPT Transform((oDbf1:LtManDt), \"@D\")   ;\n                  of oDlg1 Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n      Else\n         @ 24, 116 Say oSay PROMPT Transform((oDbf1:ManDt),   \"@D\")   ;\n                  of oDlg1 Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n      Endif\n\n      @ 25, 116 Say oSay PROMPT Transform((oDbf1:ChgDt), \"@D\") ;\n               of oDlg1 Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n   Endif\n   \n   // Check if customer is temporarily suspended\n   If oDbf1:Suspended\n      Tone(300,5)\n\n      If !MsgYesNo(\"Customer is temporarily suspended. \"           + ;\n                   \"Reason \" + Alltrim(oDbf1:Reason) + \".\"  + CRLF + ;\n                   \"Would you like to continue ?\", \"CONFIRM\")\n      \n         CheckESC(oDlg1)\n         Return .T.\n      Endif\n   Endif\n\n   // Check if prev amount is due\n   If !Empty(oDbf1:AmtPending)\n      Tone(300,5)\n\n      If !MsgYesNo(\"Last Service amount is pending from this \"                               + ;\n                   \"Customer Rs.\" + Transform(oDbf1:AmtPending, \"@BZ 99999.99\") + \".\" + CRLF + ;\n                   \"Would you like to continue ?\", \"CONFIRM\")\n\n         CheckESC(oDlg1)\n         Return .T.\n      Endif\n   Endif   \n   \n   If !Empty(oDbf1:LstDDt) .And. ;\n          (oDbf:OrderDt - oDbf1:LstDlDt) &lt; oDbf2:BkgInt\n\n      aMsg += \"Too early for this Service.\" + CRLF\n   Endif\n      \n   If !Empty(oDbf1:LtManDt) .And. ;\n          (oDbf:OrderDt - oDbf1:LtManDt) &gt; oDbf2:MChkIntvl\n\n      aMsg += \"Mandatory Inspection date is overdue.\" + CRLF\n\n      // Equate field memory variables\n      oDbf:ImtMessage := \"Mandatory Check overdue\" \n   Endif\n       \n   If !Empty(aMsg)\n      Tone(300,5)\n\n      If !MsgYesNo(aMsg + CRLF + CRLF + ;\n         \"Would you like to continue.\", \"CONFIRM\")\n                        \n         CheckESC(oDlg1)\n         Return .T.\n      Endif\n   Endif\n\n   // Equate field memory variables\n   oDbf:Status    := \"N\"\n   oDbf:DlvyReqst := oDbf1:DlvyReqst\n\n   If (oDbf1:TotOpenBkg &gt;= oDbf2:MaxOpenBkg .And. oDbf2:Confirm == .F.)\n      Tone(300,5)\n\n      MsgStop(\"ATTENTION : \"   + CRLF + CRLF +        ;\n              \"Customer has one pending service. \"  + ;\n              \"Category not permited for next \"     + ;\n              \"Order.\", \"WARNING\")\n\n      CheckESC(oDlg1)\n      Return .T.\n   Endif   \n\n   If !Empty(oDbf1:LstDlvyDt) .And. ;\n      (oDbf:OrderDt - oDbf1:LstDlvyDt) &lt; oDbf2:BkgIntervl\n\n      If userlevel &lt;&gt; \"P\"\n         // Early Booking\n         Tone(300,5)\n         MsgStop(\"ATTENTION : \"  + CRLF + CRLF +           ;\n                 \"Service is not due. For this Service \" + ;\n                 \"DSR\'s  confirmation  required. \"        ,;\n                 \"WARNING\")\n\n         CheckESC(oDlg1)\n         Return .T. \n      Endif\n   Endif\n\n   oDbf:CustCat   := oDbf1:CustCat\n   oDbf:CustArea  := oDbf1:CustArea\n   oDbf:AreaType  := oDbf1:AreaType\n   oDbf:CylType   := oDbf2:CylType\n   oDbf:Gap       := oDbf2:DlvIntervl\n   oDbf:BookTime  := Time()\n   \n   If !Empty(username)\n      Set Century Off\n      oDbf:GenOnBy := username+\",\"+DTOC(today)\n      Set Century On\n   Endif\n\n   // Reset to entry point state\n   dbSelectArea(saveAlias)\n   dbSetOrder(saveOrder)\n   dbGoto(saveRecno)\nReturn .T.\n\n//----------------------------------------------------------------------------//\n\nStatic Function CheckESC(oDlg1)\n   Local saveAlias := Alias()\n   Local saveOrder, oFont1\n\n   //Field gets strt here\n   DEFINE FONT oFont1 NAME \"COURIER\" SIZE 10, 10 BOLD\n   \n   // Save entry point state\n   saveOrder := IndexOrd()\n   \n   // Clear Dbf information\n   oDbf:Blank()\n   oDbf1:Blank()\n   oDbf2:Blank()\n   \n   oDbf:OrderDt   := oDbf2:LstOrdDt\n   oDbf:OrderNo   := oDbf2:LstOrdNo\n   oDbf:Cashmemo  := oDbf2:LstCshMemo\n   oDbf:DaySerial := oDbf2:LstDaySrl\n\n   DEFINE FONT oFont1 NAME \"COURIER\" SIZE 10, 10 BOLD\n   \n   // Display customer details\n   @ 05, 17 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 80, 12 Font oFont1\n\n   @ 06, 17 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 07, 17 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 08, 17 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 09, 17 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 300, 12 Font oFont1\n\n   @ 10, 17 Say oSay PROMPT \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 60, 12 Font oFont1\n\n   @ 12, 17 Say oSay PROMPT \"\" of oDlg1   ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 150, 12 Font oFont1\n\n   @ 14, 17 Say oSay PROMPT \"\" of oDlg1   ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 16, 17 Say oSay PROMPT \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 17, 17 Say oSay PROMPT \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 09, 80 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 10, 80 Say oSay PROMPT \"\" of oDlg1  ;\n            Picture  \"@Z 9999999999\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 11, 80 Say oSay PROMPT \"\" of oDlg1   ;\n            Picture  \"@Z 9999999999\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 15, 80 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 95, 12 Font oFont1\n\n   @ 16, 80 Say oSay PROMPT \"\" of oDlg1  ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 95, 12 Font oFont1\n\n   @ 17, 80 Say oSay PROMPT \"\" of oDlg1   ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 23, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 27, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n            \n   @ 28, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont1\n\n   @ 30, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont1\n   \n   @ 31, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont1\n   \n   @ 32, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 120, 12 Font oFont1\n   \n   @ 34, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n   \n   @ 35, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n   \n   @ 36, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@!\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n   \n   @ 37, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n   \n   @ 6, 80 Say oSay PROMPT \"\" of oDlg1   ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 24, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   @ 25, 116 Say oSay PROMPT \"\" of oDlg1 ;\n            Picture  \"@D\" Color RGB(170, 200, 210), RGB(170, 200, 210) SIZE 100, 12 Font oFont1\n\n   // Display booking history\n   @ 24, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 25, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 26, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 27, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 28, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 29, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 30, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 31, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 32, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 33, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 34, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 35, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 36, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n\n   @ 37, 05 Say oSay PROMPT \"\"  of oDlg1    ;\n            SIZE 555, 12 Color RGB(170, 200, 210), RGB(170, 200, 210) Font oFont1\n   \n   // Reload controls\n   For n = 1 to Len(oDlg1:aControls) \n       oDlg1:aControls[ n ]:Refresh(.T.)\n   Next\n   \n   // Reload controls\n   aSize((oDlg1:aControls), 88)\n\n   // Display booking info\n   @ 05, 118 Say oSay PROMPT oDbf:OrderDt of oDlg1 ;\n            Picture  \"@D\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 06, 118 Say oSay PROMPT oDbf:Order of oDlg1 ;\n            Picture  \"@Z 99999\" Color RGB(237, 27, 27), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 07, 118 Say oSay PROMPT oDbf:Cash of oDlg1 ;\n            Picture  \"@Z 999.99\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   @ 08, 118 Say oSay PROMPT oDbf:DaySerial of oDlg1 ;\n            Picture  \"@Z 9999\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1\n\n   // Following is to set focus\n   oDlg1:aControls[ 18 ]:Refresh(.T.)\n   oDlg1:aControls[ 18 ]:Setfocus(.T.)\n\n   // Reset to entry point state\n   dbSelectArea(saveAlias)\n   dbSetOrder(saveOrder)\n\n   RELEASE FONT oFont1\nReturn .T.\n\n//----------------------------------------------------------------------------//\n\nStatic Function DispRef( aDlvyList )\n   Local saveAlias := Alias()\n   Local saveRecno, saveOrder, SrlNo\n   \n   // Save entry point state\n   saveRecno := RecNo()\n   saveOrder := IndexOrd()\n   SrlNo     := 0\n      \n   dbSelectArea(\"Refill\")\n   dbSetOrder (3)\n\n   // Setup database\n   dbSeek(oDbf:CustNo)\n\n   If Found()\n      // Display booking history\n      Do While !Eof()\n         If Refill-&gt;CustNo == oDbf:CustNo\n            Aadd(aDlvyList, {Dtoc(Refill-&gt;OrderDt) + \" \" + Str(Refill-&gt;OrdCyl) + \" \" + Str(Refill-&gt;Cashmemo)+ \" \" +;\n                             (If(Refill-&gt;Status &lt;&gt; \"C\", Dtoc(Refill-&gt;DlvyDt), Space(10))) + \" \" + Refill-&gt;DlvyMan + \" \" +;\n                             (If(Refill-&gt;Status == \"C\", Dtoc(Refill-&gt;DlvyDt), Space(10))) + \" \" + Str(Refill-&gt;OrderNo) + \" \" +;\n                             Refill-&gt;Remarks})\n         Else\n            Aadd(aDlvyList, {\"                                                                            \"})\n         Endif\n         \n         ++SrlNo\n         dbSkip()\n      \n         If SrlNo = 14\n            Exit\n         Endif\n         \n         SysRefresh()\n      Enddo\n   Endif\n\n   If Len ( aDlvyList ) &lt; 14\n      SrlNo := Len ( aDlvyList )\n      \n      Do While .T.\n         Aadd(aDlvyList, {\"                                                                            \"})\n         ++SrlNo\n         \n         If SrlNo = 14\n            Exit\n         Endif\n      \n         SysRefresh()\n      Enddo\n   Endif\n\n   // Reset to entry point state\n   dbSelectArea(saveAlias)\n   dbSetOrder(saveOrder)\n   dbGoTo(saveRecno)\nReturn (aDlvyList)\n\n//----------------------------------------------------------------------------//\n\nStatic Function BtnPrsVal()\n   \n  If oBtnEdit:lMouseDown()\n     KEYBOARD CHR(K_ENTER)\n     Return .T.\n  Else\n     MsgStop(\"Field can not be blank. Required Valid Number for Process.\",\"WARNING\")\n  Endif\n\nReturn .F.\n\n//----------------------------------------------------------------------------//\n\nStatic Function dChk(oDlg1, dName)\n\nReturn .T.\n\n\n\nCan anyone give me solution to stop blinking in my testrun.prg. \n\nWith regards,\nArindam','',0,'','dhnzk1an',1,0,'',705,0,0),(30054,6691,3,35,0,'167.7.140.254',1176846866,1,0,1,1,1,0,'','','To All\n\noRs:eof is an effective way of determining an EOF as well as a no find as in the first example.\n\nI do have some difficulties running SQL UPDATE statements in a large loop over and over again .. Updating number values as in the first cSQL variable works flawlessly .. however when you start moving \'text\' you have to pay attemtion to apostrophes within the charactor string .. will blow your UPDATE statement every time. Even so .. with just normal charactors .. the below UPDATE on the file_name column will just give spuadoc run-time failures .. the only common thread on the failures are special charactors in the txt itself .. such as   *&amp;-(),%# .. even if those charactors are legal within your string .. xHarbour reaches a point where it just \'breaks\' .. ver 99.70 .org .. If you run the same UPDATE on a single event .. it works just fine on the same UPDATE and the same charactor values .. just re-cursively call the UPDATE statements in a long record loop ( text only ) .. it will \'break\'\n\nOtherwise .. I am pleased with ADO .. and am looking forward to applying it to MS SQL server soon.\n\nRick lipkin\n\n\n\n\n/----------------------------\n oRs:Find(\"file_num = \'\"+cFIND+\"\'\" )\n\n  IF oRs:eof\n     oRs:MoveFirst()\n     oRs:Find(\"file_num = \'\"+cFIND+\"\'\" )\n\n     IF oRs:eof()\n        Msginfo( \"File Number \"+cFind+\" can not bre found\" )\n        oRs:MoveFirst()\n     ENDIF\n  ENDIF\n\n//------------------------------\n\n\n\n// update all the relational tables\n\ncID    := STR( oRs:Fields( \"id\" ):Value)\ncNAME  := oRs:Fields( \"FILE_NAME\" ):Value\ncFILE  := oRs:Fields( \"FILE_NUM\" ):Value\n\noCn := CREATEOBJECT( \"ADODB.Connection\" )\noCn:Open( \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=lwmfs.mdb\" )\n\ncSQL := \"UPDATE cercla_indexing SET ASSOCIATED_ID = \"+\"\'\"+cID+\"\'\"\ncSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\noCn:Execute( cSQL )\nSysReFresh()\n\nIF cBOTH = \'Y\'\n\n   // flakey here .. \n\n   cSQL := \"UPDATE cercla_indexing SET FILE_NAME = \'\"+cNAME+\"\'\"\n   cSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\n   oCn:Execute( cSQL )\n   SysReFresh()\nENDIF\n\ncSQL := \"UPDATE mining_indexing SET ASSOCIATED_ID = \"+\"\'\"+cID+\"\'\"\ncSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\noCn:Execute( cSQL )\nSysReFresh()\n\nIF cBOTH = \'Y\'\n   cSQL := \"UPDATE mining_indexing SET FILE_NAME = \'\"+cNAME+\"\'\"\n   cSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\n   oCn:Execute( cSQL )\n   SysReFresh()\nENDIF\n\ncSQL := \"UPDATE rcra_compliance_indexing SET ASSOCIATED_ID = \"+\"\'\"+cID+\"\'\"\ncSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\noCn:Execute( cSQL )\nSysReFresh()\n\nIF cBOTH = \'Y\'\n   cSQL := \"UPDATE rcra_compliance_indexing SET FILE_NAME = \'\"+cNAME+\"\'\"\n   cSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\n   oCn:Execute( cSQL )\n   SysReFresh()\nENDIF\n\ncSQL := \"UPDATE rcra_permitting_indexing SET ASSOCIATED_ID = \"+\"\'\"+cID+\"\'\"\ncSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\noCn:Execute( cSQL )\nSysReFresh()\n\nIF cBOTH = \'Y\'\n   cSQL := \"UPDATE rcra_permitting_indexing SET FILE_NAME = \'\"+cNAME+\"\'\"\n   cSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\n   oCn:Execute( cSQL )\n   SysReFresh()\nENDIF\n\ncSQL := \"UPDATE solidwaste_indexing SET ASSOCIATED_ID = \"+\"\'\"+cID+\"\'\"\ncSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\noCn:Execute( cSQL )\nSysReFresh()\n\nIF cBOTH = \'Y\'\n   cSQL := \"UPDATE solidwaste_indexing SET FILE_NAME = \'\"+cNAME+\"\'\"\n   cSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\n   oCn:Execute( cSQL )\n   SysReFresh()\nENDIF\n\noCn:Close()\noCN := NIL\n\nSysReFresh()\n\noRS:Fields( \"KEEP\" ):value := \'Y\'\noRs:Update()\n\nSysReFresh()','',0,'','15c8457b',1,0,'',35,0,0),(30055,6691,3,303,0,'72.199.41.171',1176849032,1,0,1,1,1,0,'','','I\'m no SQL expert, but try switching your single and double quotes so that you are not surrounding your text strings with single quotes.\n\nJames','',0,'','2ki2i1ed',1,0,'',303,0,0),(30056,6717,6,278,0,'164.77.219.99',1176851657,1,0,1,1,1,1,'','TXBrowse - dejando las columnas fijas !!!','Buenas Noches:\n\nSi, estoy trabajando de muy noche ( a mi señora no le gusta mucho ), pero estoy atrasado con mi proyecto.\n\n1) El problema que tengo es que no recuerdo y encuentro como dejar las columnas fijas del xbrowse, deseo que el usuario no pueda , mover  y tampoco cambiar el ancho  de las columnas.\n\nCual es el comando ???  Existe algo asi ??   <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> \n\n2) Es posible que al momento de mover una columna, para aumentar su ancho, me muestre su ancho y alto. Esto era algo que tenía, el browse de Manuel Mercado y era muy util en tiempo de diseño. Se podrá tener esto tambien, en el XBrowse o alguna pista  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> .\n\nGracias  y saludos a todos,\n\nJuan','',0,'','12emfx37',1,0,'',278,0,0),(30057,3268,3,171,0,'71.232.193.197',1176852347,1,0,1,1,1,0,'','','Randal,\n\nDid you get to work with MapPoint ?\nCan you shared with us some code samples?\n\nRegards\n\n\nGeorge','',0,'','2i3yke5g',1,0,'',171,0,0),(30058,6714,3,2,0,'87.218.146.224',1176854230,1,0,1,1,1,1,'','','Marcelo,\n\nYou may try this:\n\nnStyle = GetWindowLong( oGet:hWnd, GWL_STYLE )\n\n// Changes nStyle from ES_LEFT to ES_RIGHT\nnStyle = nOr( nXor( nStyle, ES_LEFT ), ES_RIGHT )\n\nSetWindowLong( oGet:hWnd, GWL_STYLE, nStyle )','',0,'','1r75chtt',1,0,'',2,0,0),(30059,6691,3,35,0,'65.188.6.143',1176856110,1,0,1,1,1,0,'','','James\n\nSQL can only interpret single quotes to pass as values :\n\ncSQL := \"UPDATE rcra_compliance_indexing SET ASSOCIATED_ID = \"\ncSQL += \"\'\"+cID+\"\', FILE_NAME = \'\"+cNAME+\"\'\"\ncSQL += \" WHERE ASSOCIATED_FILE_NUM = \'\"+cFILE+\"\'\"\n\nThis string equates to:\n\n\"UPDATE rcra_compliance_indexing SET ASSOCIATED_ID = \'12345\', FILE_NAME = \'JOES-BAR &amp; GRILL\' WHERE ASSOCIATED_FILE_NUM = \'45678\'\"\n\nI have no problem with the numeric values .. where my string breaks is passing the file_name string.  Don\'t know why .. but there is no ryme or reason for the failure .. never happends on the same record .. so I can not find any specific reasons .. just my gut instinct .. VM gets taxed or there is a memory leak in repeating the UPDATE text ( looping thru thousands of records ) .. and then it just breaks...\n\nI just decided to take out the file_name update ... and converted over the associated_id .. \n\nRick Lipkin','',0,'','6jv8cblg',1,0,'',35,0,0),(30060,6672,1,239,0,'218.19.6.171',1176859598,1,0,1,1,1,0,'','','So far,-1 Id not support yet.\n  You could change like this:\n  redefine say prompt \' ... ...\' of odlg id 111\nRegards\nShuming Wang','',0,'','sfmqvlkh',1,0,'',239,0,0),(30061,6718,6,179,0,'200.63.227.229',1176864542,1,0,1,1,1,1,'','ot: compilar harbour del cvs con bcc55','Buenas noches\npues eso, uso este .bat para compilar y me ha dejado de funcionar desde hace un mes mas o menos\n\n..........inicio del .bat...............\n@ECHO OFF\n\nSET HB_REBUILD_PARSER=no\nSET PATH=c:\\windows;c:\\windows\\system32;c:\\winnt;c:\\winnt\\system32;c:\\BCC55\\bin;c:\\djgpp\\bin\nSET INCLUDE=c:\\BCC55\\INCLUDE;c:\\HB\\INCLUDE\n\nSET HB_LEX=SIMPLEX\nSET DJGPP=C:\\DJGPP\\DJGPP.ENV\nSET BiSon_Simple=C:\\DJGPP\\share\\bison\\bison.simple\n\nSET HB_ARCHITECTURE=w32\nSET HB_COMPILER=bcc32\n\nSET C_USR=\nSET L_USR=\n\nREM SET ECHO=cmd /c echo\nREM SET DEL=cmd /c del\n\n\nCALL make_b32 clean\nCALL make_b32\n\Z\n...............final del .bat.............\n\nque estoy haciendo mal ??\n\nlos errores que me salen son\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\nsource\\common\\expropt1.c:\nsource\\common\\expropt2.c:\nsource\\common\\hbarch.c:\nsource\\common\\hbfhnd.c:\nsource\\common\\hbfsapi.c:\nsource\\common\\hbgete.c:\nsource\\common\\hbhash.c:\nsource\\common\\hbdate.c:\nsource\\common\\hbstr.c:\nsource\\common\\hbtrace.c:\nsource\\common\\hbver.c:\nsource\\common\\hbverdsp.c:\nsource\\common\\reserved.c:\nTLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation\n+obj\\b32\\expropt1.obj &amp;\n+obj\\b32\\expropt2.obj &amp;\n+obj\\b32\\hbarch.obj &amp;\n+obj\\b32\\hbfhnd.obj &amp;\n+obj\\b32\\hbfsapi.obj &amp;\n+obj\\b32\\hbgete.obj &amp;\n+obj\\b32\\hbhash.obj &amp;\n+obj\\b32\\hbdate.obj &amp;\n+obj\\b32\\hbstr.obj &amp;\n+obj\\b32\\hbtrace.obj &amp;\n+obj\\b32\\hbver.obj &amp;\n+obj\\b32\\hbverdsp.obj &amp;\n+obj\\b32\\reserved.obj &amp;\n+\nsource\\pp\\ppgen.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nsource\\pp\\pptable.c:\nsource\\pp\\ppcore.c:\nsource\\pp\\pplib.c:\nsource\\pp\\pplib2.c:\nsource\\pp\\pplib3.c:\nTLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation\n+obj\\b32\\pptable.obj &amp;\n+obj\\b32\\ppcore.obj &amp;\n+obj\\b32\\pplib.obj &amp;\n+obj\\b32\\pplib2.obj &amp;\n+obj\\b32\\pplib3.obj &amp;\n+\nsource\\compiler\\hbmain.c:\n        1 archivos copiados.\n        1 archivos copiados.\nobj\\b32\\harboury.c:\nWarning W8004 harboury.c 3850: \'yymsg\' is assigned a value that is never used in function yydestruct\nWarning W8008 harboury.c 6962: Condition is always false in function hb_compparse\nWarning W8066 harboury.c 6963: Unreachable code in function hb_compparse\nWarning W8004 harboury.c 6890: \'hb_compnerrs\' is assigned a value that is never used in function hb_compparse\nWarning W8004 harboury.c 4048: \'yyptr\' is assigned a value that is never used in function hb_compparse\nsource\\compiler\\complex.c:\nsource\\compiler\\cmdcheck.c:\nsource\\compiler\\hbcomp.c:\nsource\\compiler\\hbcmplib.c:\nsource\\compiler\\hbdbginf.c:\nsource\\compiler\\hbdead.c:\nsource\\compiler\\hbstripl.c:\nsource\\compiler\\hbusage.c:\nsource\\compiler\\hbident.c:\nsource\\compiler\\hbgenerr.c:\nsource\\compiler\\hblbl.c:\nsource\\compiler\\hbpcode.c:\nsource\\compiler\\hbfunchk.c:\nsource\\compiler\\hbfix.c:\nsource\\compiler\\hbopt.c:\nsource\\compiler\\ppcomp.c:\nsource\\compiler\\genc.c:\nsource\\compiler\\gencc.c:\nsource\\compiler\\gencli.c:\nsource\\compiler\\gencobj.c:\nsource\\compiler\\genobj32.c:\nsource\\compiler\\genjava.c:\nsource\\compiler\\genhrb.c:\nsource\\compiler\\expropta.c:\nWarning W8065 include\\hbexpra.c 174: Call to function \'hb_compExprDelete\' with no prototype in function hb_compExprLstDealloc\nError E2356 include\\hbexpra.c 225: Type mismatch in redeclaration of \'hb_compExprDelete\'\nWarning W8065 include\\hbexpra.c 257: Call to function \'hb_compErrorType\' with no prototype in function hb_compExprErrorType\nWarning W8065 include\\hbexpra.c 332: Call to function \'hb_compErrorDuplVar\' with no prototype in function hb_compExprCBVarAdd\nWarning W8065 include\\hbexpra.c 379: Call to function \'hb_compExprDelete\' with no prototype in function hb_compExprNewFunCall\nWarning W8065 include\\hbexpra.c 380: Call to function \'hb_compExprDelete\' with no prototype in function hb_compExprNewFunCall\nWarning W8065 include\\hbexpra.c 390: Call to function \'hb_compExprReduceList\' with no prototype in function hb_compExprNewFunCall\nWarning W8065 include\\hbexpra.c 468: Call to function \'hb_compExprDelete\' with no prototype in function hb_compExprNewFunCall\nWarning W8065 include\\hbexpra.c 531: Call to function \'hb_compExprDelete\' with no prototype in function hb_compExprNewFunCall\nWarning W8065 include\\hbexpra.c 534: Call to function \'hb_compExprDelete\' with no prototype in function hb_compExprNewFunCall\nWarning W8065 include\\hbexpra.c 548: Call to function \'hb_compExprDelete\' with no prototype in function hb_compExprNewFunCall\nWarning W8065 include\\hbexpra.c 796: Call to function \'hb_compErrorSyntax\' with no prototype in function hb_compExprSetOperand\n*** 1 errors in Compile ***\n\n** error 1 ** deleting obj\\b32\\expropta.obj\n\nSi alguien me puede ayudar\nGracias\n\nSaludos','',0,'','44vhktej',1,0,'',179,0,0),(30062,6719,6,694,0,'200.189.112.21',1176865544,1,0,1,1,1,1,'','Como saber o valor NAT usando xbrowse?','Usando xbrowse como descobrir o valor da linha atual ? Com a TWBROWSE era assim: obrw:nat e agora com a xbrowse ?\n\nAokisantos <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','2072fn47',1,0,'',694,0,0),(30063,6719,6,54,0,'189.132.112.100',1176866597,1,0,1,1,1,1,'','Re: Como saber o valor NAT usando xbrowse?','[quote=&quot;AOKISANTOS&quot;:bh4fb40g]Usando xbrowse como descobrir o valor da linha atual ? Com a TWBROWSE era assim: obrw:nat e agora com a xbrowse ?\n\nAokisantos <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->[/quote:bh4fb40g]\n\nAokisantos,\n\ndesde un arreglo\n  oBrw:nArrayAt\n\nEstá es el numero de fila seleccionado\n  oBrw:nRowSel\n\nespero te sirva','',0,'gA==','bh4fb40g',1,0,'',54,0,0),(30064,6689,3,1017,0,'70.55.133.213',1176869437,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2aukpihz]Carlo,\n\nYou may review fwh\\include\\constant.ch\n[/quote:2aukpihz]\n\nThanks Antonio.\n\n1) How do I fix the prolem of the default colour settings of SAY statements?\n\n2) Where do I find instructions on how to rebuild the libraries, especially since I use the XCC compler?\n\nCarlo','',0,'gA==','2aukpihz',1,0,'',1017,0,0),(30065,6689,3,3,0,'80.81.159.19',1176872012,1,0,1,1,1,1,'','','Carlo\n\n\\fwh\\source\\classes\\say.prg\n\nYou can change the default colour as you wish\n\nYou do not have to rebuild the libraries for xcc (not recommended), if you change a fwh program like say.prg  just add it to your programs and they will get compiled before fwh. I also use xcc, if you need any further explanation, do not hesitate\n\nregards\n\nRichard','',0,'gA==','1wkq7xpt',1,0,'',3,0,0),(30066,6613,1,173,0,'203.113.38.7',1176874970,1,0,1,1,1,0,'','Thank you very much','Dear Antonio,\n\nThank you very much for help and kidness me\n\nPeter\n\nBest Regard','',0,'gA==','33gnx7ov',1,0,'',173,0,0),(30067,6691,3,6,0,'87.20.219.250',1176878236,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:3jarowst]  IF oRs:eof\n     oRs:MoveFirst()[/quote:3jarowst]\n\nYou can\'t move the record pointer when the recordset is empty. This will result in a runtime error.\n\nEMG','',0,'gA==','3jarowst',1,0,'',6,0,0),(30068,6691,3,6,0,'87.20.219.250',1176878333,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:1mylhfhm]I have no problem with the numeric values .. where my string breaks is passing the file_name string.  Don\'t know why .. but there is no ryme or reason for the failure .. never happends on the same record .. so I can not find any specific reasons .. just my gut instinct .. VM gets taxed or there is a memory leak in repeating the UPDATE text ( looping thru thousands of records ) .. and then it just breaks...[/quote:1mylhfhm]\n\nCan I have a minimal PRG and an MDB to test here?\n\nEMG','',0,'gA==','1mylhfhm',1,0,'',6,0,0),(30069,6717,6,492,0,'189.147.22.44',1176878369,1,0,1,1,1,1,'','','Hola Juan\n\n\nEn el browse de Hernan, solo se pone : lbCatItms:nFreeze := 2\n\nEn XBrowse no estoy seguro si aplica.\n\nSaludos','',0,'gA==','1c9bjxr0',1,0,'',492,0,0),(30070,6718,6,2,0,'87.218.146.224',1176882139,1,0,1,1,1,1,'','','Wilson,\n\nNosotros lo construimos ayer mismo sin problemas. Usamos este fichero BAT:\n\nSET PATH=%PATH%;c:\\bcc55\\bin\nSET BISON_SIMPLE=bison.simple\nSET CFLAGS=-D__EXPORT__ -DHB_GUI -tWM -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -DHARBOUR_MAIN_WIN -d -a8 -OS -O2 -5 -6  \nmake_b32.bat %1','',0,'gA==','23l8fkqg',1,0,'',2,0,0),(30071,6717,6,533,0,'80.32.177.143',1176883026,1,0,1,1,1,0,'','','Prueba con \n\noTbr:nFreeze:=1 // para congelar la 1ª\noTbr:nFreeze:=2 // para congelar la 1ª y 2ª\n...\netc. . .\n\nSALUDOS','',0,'gA==','3ldcmrg0',1,0,'',533,0,0),(30072,6720,20,1009,0,'82.187.221.169',1176884015,1,0,1,1,1,0,'','lIsDir() in rete','ciao a tutti,\nnon riesco a verificare l\'esistenza di una directory con la funzione lIsDir() (fw2.5 con clipper) in un percorso di rete:\nMsgInfo(lIsDir(\"\\\\server\\cartella\\altracartella\"))   ---&gt; .f. anche se esiste.\n\ncome fare?\n\nciao, marzio','',0,'gA==','21hyjd7h',1,0,'',1009,0,0),(30073,6717,6,456,0,'217.127.39.57',1176884151,1,0,1,1,1,1,'','','Hola, \npara dejar columnas fijas a la izquierda.\n[code:eki08nkk]\noBrw&#58;nFreeze             &#58;= 2 //Nº de columnas\n[/code:eki08nkk]\nPara no permitir swap entre columnas \n[code:eki08nkk]oBrw&#58;lAllowColSwapping   &#58;=&#46;F&#46;[/code:eki08nkk]\n\nPara no permitir que se redimensionen las columnas. (Para cada columna que no quieres opcion de redimension.)\n[code:eki08nkk]oCol&#58;lAllowSizing&#58;=&#46;F&#46;[/code:eki08nkk]','',0,'AIA=','eki08nkk',1,0,'',456,0,0),(30074,6721,3,247,0,'193.92.131.194',1176886710,1,0,1,1,1,0,'','Why is this code produce an error?','I have xharbour 0.99.60 and Fivewin 2.7. The following code produce an error :\nHarbour Exception\nCalled from CDLG2CHR(0)\nCalled from TDIALOG:CTOCHAR(0)\nCalled from TDIALOG:ACTIVATE(0)\n\nThis has something to do with the length of the title string\n\nThank you\nA.S.K\n\n[b:2womxo53]\n#include \"fivewin.ch\"\n\n\n\nfunction main()\nlocal oDlg\n\n define dialog oDlg pixel   ;\n from 90,142 to 648,863 ;\n title \'test\'+replicate(\'0\',190)\n \n \n \n activate dialog oDlg\n \n \nreturn nil [/b:2womxo53]','',0,'QA==','2womxo53',1,0,'',247,0,0),(30075,5642,3,28,0,'213.27.201.254',1176890748,1,0,1,1,1,0,'','','Hola\nAlgunos clientes me han reportado errores de C5menu en concreto. \nEs curioso pero cuando antes esto funcionaba\n\nDATA cPrompt AS String INIT \" \"\n\ny se inicializaba a nil\n\nahora no funciona\n\nNo entiendo muy bien porque se pierde continuamente la compatiblidad con lo hecho antiguamente, pero enfin.\n\nUn saludo y si tienes algun problema en concreto escribeme a \n\npacogarcia[arroba]canalfive[punto]com','',0,'','2ajwi4io',1,0,'',28,0,0),(30077,6719,6,694,0,'200.189.112.21',1176895485,1,0,1,1,1,1,'','gracias willian','Gracias William...  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','1hr06wsr',1,0,'',694,0,0),(30078,6710,7,986,0,'200.162.80.159',1176895823,1,0,1,1,1,1,'','','Mauro,\n\nComo vc esta imprimindo , pois tenho urgencia em montar impressao no pocket e nao tenho ideia de como comecar.\n\n1)  Vc esta utilizando via Infravermelho  ou Bluetooth \n2) Qual tipo de impressora vc esta imprimindo\n\nSe puder dar uma dicas,\n\nAte mais','',0,'','w774y9al',1,0,'',986,0,0),(30079,6712,3,694,0,'200.189.112.21',1176896974,1,0,1,1,1,1,'','Rossini','Rossini, uso o fwh 7.01, estes problemas reportados tambem estao nessa versão ?\n\nTe agradeço...\n\nAokisantos <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'','2ywnxf00',1,0,'',694,0,0),(30080,6723,3,694,0,'200.189.112.21',1176899609,1,0,1,1,1,1,'','Rossini xbrowse please !','Rossini, é possivel utilizando a xbrowse ajustar a ultima coluna com o tamanho do browse ?     \nOutra coisa, existe algum lugar aonde eu possar saber todos os recursos da xbrowse?\n\nDesde já fico muito agradecido a ti!\n\nAokisantos','',0,'','202mt3q4',1,0,'',694,0,0),(30081,6712,3,104,0,'201.58.47.56',1176899991,1,0,1,1,1,0,'','','Olá Aoki,\n\n&gt; Rossini, uso o fwh 7.01, estes problemas reportados tambem estao nessa versão ? \n\nEu uso a versão de nov/05 mas acredito que devam sim funcionar para sua versão. Faça as mudanças que citei acima e veja se vai resolver ok ?\n\nAbraços,\n\nRossine.','',0,'','j2r63iov',1,0,'',104,0,0),(30082,6723,3,104,0,'201.58.47.56',1176900266,1,0,1,1,1,0,'','','Olá Aoki,\n\n&gt; Rossini, é possivel utilizando a xbrowse ajustar a ultima coluna com o tamanho do browse ? \n\nFaça as mudanças que citei no outro tópico e veja se funciona do jeito que você precisa. Se não funcionar gere um sample para mim ok ?\n\n&gt;Outra coisa, existe algum lugar aonde eu possar saber todos os recursos da xbrowse? \n\nOlha o único lugar que eu sei é dentro do programa sample do fwh, TESTXBRW.PRG  e no mais é analisar todos os recursos que existam dentro do XBROWSE.PRG.\n\nAbraços,\n\nRossine.','',0,'','241pwk05',1,0,'',104,0,0),(30083,6714,3,41,0,'200.105.194.235',1176900336,1,0,1,1,1,0,'','','Hello Antonio,\n\nthanks for your reply, I tryed it but not work, the get disappear, another suggestion ?\n\nthanks and regards\n\nMarcelo','',0,'','6cnjkvr0',1,0,'',41,0,0),(30084,6305,1,981,0,'66.130.76.240',1176901662,1,0,1,1,1,0,'','exetype suite','l send you a zip file 18 april 2007 at 9:07 am','',0,'','3g07ktrh',1,0,'',981,0,0),(30085,6717,6,278,0,'164.77.219.99',1176902698,1,0,1,1,1,1,'','','[/b]Gracias   a Todos  [b:1eiqhe9d]  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> , era lo que necesitaba.\n\nSaludos,\n\nJuan\n \n\n\n[/b:1eiqhe9d]','',0,'QA==','1eiqhe9d',1,0,'',278,0,0),(30086,6689,3,1017,0,'70.55.133.213',1176904584,1,0,1,1,1,0,'','','Thanks Richard,\n\n[quote=&quot;Richard Chidiak&quot;:31umx4uk]Carlo\n\n\\fwh\\source\\classes\\say.prg\n\nYou can change the default colour as you wish\n[/quote:31umx4uk]\n\nHow? SET COLOR doesn\'t seem to do this.\n\n[quote=&quot;Richard Chidiak&quot;:31umx4uk]\nYou do not have to rebuild the libraries for xcc (not recommended), if you change a fwh program like say.prg  just add it to your programs and they will get compiled before fwh.[/quote:31umx4uk]\n\nI don\'t like recompiling the libraries either, but I am not developing for myself. I am developing for a very large legacy application port project with 900 modules and for a programmer who is not used to very technical issues. I want to simplify things as much as possible. This is a complication, and I\'m paid to make things simple.\n\nFor this reason I won\'t just change the numeric literals in the constants.ch file, I will replace the literals with \"get\" function calls that return default values. This way the default values can be set by the calling program at run time, not compile time.','',0,'gA==','31umx4uk',1,0,'',1017,0,0),(30087,6710,7,778,0,'200.152.43.195',1176905074,1,0,1,1,1,0,'','','Olá Cleber\n\nGero um HTML, carrego o Pocket Internet Explorer e com o PiePrint ou outro software que acompanha a impressora bluetooth gero etiquetas,\nrelatórios, etc.\nImpresora CPM-10 da CITZEN - Bluetooth\n\nSaludos\nMauro - Brasilia - Brasil','',0,'gA==','3rtyei06',1,0,'',778,0,0),(30088,6718,6,179,0,'64.46.80.210',1176905205,1,0,1,1,1,1,'','','gracias Antonio\npero siguen los problemas\npodrias indicarme donde tiene instalados el Bison ?\nque valor tiene tu variable Path ? al ejecutar este .bat\n\nGracias x Todo\nSaludos','',0,'gA==','opldep4w',1,0,'',179,0,0),(30089,6714,3,6,0,'87.20.219.250',1176905994,1,0,1,1,1,1,'','Re: Chage GET alignment','[quote=&quot;Marcelo Via Giglio&quot;:ies6mep6]Hello,\n\nsomebody know how can I change the get alignment (rigth, left, center) in run time, the get is defined from resource\n\nsome idea\n\nregards\n\nMarcelo[/quote:ies6mep6]\n\nYou can\'t, as far as I know. Try to define three GETs, one for each style, and hide all of them but the one with the requested style.\n\nEMG','',0,'gA==','ies6mep6',1,0,'',6,0,0),(30090,6721,3,6,0,'87.20.219.250',1176906149,1,0,1,1,1,1,'','Re: Why is this code produce an error?','The string seems too long for the DIALOG\'s title.\n\nEMG','',0,'gA==','20a9cxk9',1,0,'',6,0,0),(30091,6689,3,2,0,'87.218.146.224',1176906929,1,0,1,1,1,1,'','','Carlo,\n\n&gt; This way the default values can be set by the calling program at run time, not compile time.\n\nVery good idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','20lv2ulx',1,0,'',2,0,0),(30092,6691,3,123,0,'83.53.52.25',1176906983,1,0,1,1,1,0,'','','Rip,\n\n\nAbout method Find of RecordSet (from BOL):\n\n[quote:1cpr511m]Find Method\nSearches a Recordset for the row that satisfies the specified criteria. Optionally, the direction of the search, starting row, and offset from the starting row may be specified. If the criteria is met, the current row position is set on the found record; otherwise, the position is set to the end (or start) of the Recordset.\n\nSyntax\nFind (Criteria, SkipRows, SearchDirection, Start)\nParameters\nCriteria \nA String value that contains a statement specifying the column name, comparison operator, and value to use in the search. \nSkipRows \nOptional. A Long value, whose default value is zero, that specifies the row offset from the current row or Start bookmark to begin the search. By default, the search will start on the current row. \nSearchDirection \nOptional. A SearchDirectionEnum value that specifies whether the search should begin on the current row or the next available row in the direction of the search. An unsuccessful search stops at the end of the Recordset if the value is adSearchForward. An unsuccessful search stops at the start of the Recordset if the value is adSearchBackward. \nStart \nOptional. A Variant bookmark that functions as the starting position for the search. \nRemarks\nOnly a single-column name may be specified in criteria. This method does not support multi-column searches.\n\nThe comparison operator in Criteria may be \"&gt;\" (greater than), \"&lt;\" (less than), \"=\" (equal), \"&gt;=\" (greater than or equal), \"&lt;=\" (less than or equal), \"&lt;&gt;\" (not equal), or \"like\" (pattern matching).\n\nThe value in Criteria may be a string, floating-point number, or date. String values are delimited with single quotes or \"#\" (number sign) marks (for example, \"state = \'WA\'\" or \"state = #WA#\"). Date values are delimited with \"#\" (number sign) marks (for example, \"start_date &gt; #7/22/97#\") and can contain hours, minutes and seconds to indicate time stamps but should not contain milliseconds or errors will occur.\n\nIf the comparison operator is \"like\", the string value may contain an asterisk (*) to find one or more occurrences of any character or substring. For example, \"state like \'M*\'\" matches Maine and Massachusetts. You can also use leading and trailing asterisks to find a substring contained within the values. For example, \"state like \'*as*\'\" matches Alaska, Arkansas, and Massachusetts.\n\nAsterisks can be used only at the end of a criteria string, or together at both the beginning and end of a criteria string, as shown above. You cannot use the asterisk as a leading wildcard (\'*str\'), or embedded wildcard (\'s*r\'). This will cause an error.\n\nNote   An error will occur if a current row position is not set before calling Find. Any method that sets row position, such as MoveFirst, should be called before calling Find.\nNote   If you call the Find method on a recordset, and the current position in the recordset is at the last record or end of file (EOF), you will not find anything. You need to call the MoveFirst method to set the current position/cursor to the beginning of the recordset.\nSee Also\nVisual Basic Example\n\nIndex Property | Optimize Property—Dynamic (ADO) | Seek Method\n\nApplies To: Recordset Object\n© 1998-2003 Microsoft Corporation. All rights reserved.[/quote:1cpr511m]\n\n\nAnd a suggestion of simulating xBase LOCATE command into a recordset:\n\n\n[code:1cpr511m]METHOD Locate &#40; cCriteria , lFromStart&#41; CLASS tAdoDbf\n\n       LOCAL oE\n       LOCAL lResult\n       LOCAL nSearchDi\n\n       &#58;&#58;cCriteria &#58;= cCriteria\n       &#58;&#58;nSearchDirection &#58;= adSearchForward\n\n       DEFAULT lFromStart &#58;= &#46;T&#46;\n\n       TRY\n           &#58;&#58;oRs&#58;Find&#40;cCriteria,0,&#58;&#58;nSearchDirection , IIF&#40; lFromStart, adBookmarkFirst, adBookmarkCurrent &#41;&#41;\n           lResult &#58;= !&#58;&#58;oRs&#58;EOF&#40;&#41;\n       CATCH oE\n           ShowError&#40; oE, Self, &#58;&#58;lShowError &#41;\n           lResult &#58;= &#46;F&#46;\n       END\n\nRETURN lResult\n\nMETHOD Continue&#40;&#41; CLASS tAdoDbf\n\n       LOCAL oE\n       LOCAL lResult\n\n       TRY\n           IF !&#58;&#58;oRs&#58;EOF&#40;&#41;\n              &#58;&#58;oRs&#58;Find&#40;&#58;&#58;cCriteria,1,&#58;&#58;nSearchDirection, adBookmarkCurrent&#41;\n              lResult &#58;= !&#58;&#58;oRs&#58;EOF&#40;&#41;\n           ELSE\n              lResult &#58;= &#46;F&#46;\n           ENDIF\n       CATCH oE\n           ShowError&#40; oE, Self, &#58;&#58;lShowError &#41;\n           lResult &#58;= &#46;F&#46;\n       END\n\nRETURN NIL\n\nMETHOD EndLocate&#40;&#41; CLASS tAdoDbf\n       &#58;&#58;cCriteria &#58;= &quot;&quot;\n       &#58;&#58;nSearchDirection &#58;= -1\nRETURN NIL\n[/code:1cpr511m]\n\nAbout delimiters (single, double quotes) just tell you that depends on Sql Motor.  For example in Sql Server you may change delimiters for your convenience.  Normally  you\'ll fight against apostrophes inside strings.  So... if you try to send this Sql sentence:\n\n[code:1cpr511m]LOCAL a\nLOCAL b\na &#58;= &quot;America\'s Cup in Valencia - Spain&quot;\nb &#58;= &quot;UPDATE mytable Set MyFiled = \'&quot;+ a +&quot;\';&quot;\noConnection&#58;Execute&#40;b&#41;[/code:1cpr511m] \n\nFor sure you\'ll have an error.  But if you set other type of delimiter to Sql Server you\'ll get out this problem.  For example:\n\n[code:1cpr511m]LOCAL a\nLOCAL b\na &#58;= &quot;America\'s Cup in Valencia - Spain&quot;\nb &#58;= &#91;UPDATE mytable Set MyFiled = &quot;&#93;+ a +&#91;&quot;;&#93;\noConnection&#58;Execute&#40;&quot;SET QUOTED_IDENTIFIER OFF&quot;&#41;\noConnection&#58;Execute&#40;b&#41;[/code:1cpr511m] \n\nIn this case we have set delimiters to double quotes (for sql server). \n\nAnd about how to determine if a recordset is empty or not the only way I was sure that a recordset is empty is :\n\n[code:1cpr511m]if ors&#58;bof and ors&#58;eof\n  MsgInfo&#40;&quot;Empty&quot;&#41;\nendif[/code:1cpr511m]\n\nOther ways are typecursor/provider/locationcursor dependant.\n\nRegards,\nJosé Luis Capel','',0,'gIA=','1cpr511m',1,0,'',123,0,0),(30093,6724,3,1023,0,'201.92.184.67',1176907184,1,0,1,1,1,0,'','Trouble in XBrowse','Hi, everyone!\nI am having trouble in addeding buttons in execution time for a xbrowse Object and passing a function in a variable and using the \"&amp;\".\nWhen i click the button, i see a error message saying that the oBrw is not found.\n\nCan someone help me on it?\n\nHere is and exemple of the code\n\n.[code:2jsu7zt7]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n#include &quot;SQLRDD&#46;ch&quot;\n\n//First at all, sorry for my poor inglish\n//This code is a test function that i\'m trying to implement in my sistem\n//This take the position of the browse and the buttons that this will have and adjust in a Group\n\nfunction main&#40;cDSN&#41;				//this funcion is just for text\n\n   local dbRotG\n   \n   connect&#40;cDSN&#41;   \n   \n   dbRotG   &#58;=&quot;Teste&#40;oBrw&#41;&quot;			//the function that i\'ll receive as a parameter\n\n\n   DEFINE WINDOW oWin FROM 1,1 TO 1024,1280 PIXEL TITLE &quot;Teste&quot;  //PIXEL \n   \n   SET MESSAGE OF oWin TO &quot;Teste Window&quot; CENTERED TIME DATE   //Logozinho Rs\n\n   USE cadcli new via &quot;sqlrdd&quot;\n   \n   DS_BROWSE&#40;oWin,0,0,90,90,,dbRotG&#41;     //All as percent\n\n   ACTIVATE WINDOW oWin MAXIMIZED\n\nreturn\n\n//\\\\/\\Testes/\\//\\\\ upahead is the test function caller\n\n****************************************************************************************************\n\nfunction DS_Browse&#40; oWin , vLeft , vTop , vWidth , vHeight , sTabela , bFunc &#41;\n      \n      local oBrw, oFra, oBtn, vBtnTop\n      \n      vBtnTop=7			//the first button top\n      vX=&#40;GetSysMetrics&#40;0&#41; / 100&#41; ; vY=&#40;GetSysMetrics&#40;1&#41; / 100&#41;      //Get the value of one percent of the window\n\n      if vLeft==nil ; vLeft=0 ; else ; vLeft*= vX ; endif						//check the values\n      if vTop==nil ; vTop=0 ; else ; vTop *= vY ; endif                 //Checa se os dados são validos\n      if vWidth==nil ; vWidth=80 * vX ; else ; vWidth *=  vX ; endif\n      if vHeight==nil ; vHeight=80 * vY ; else ; vHeight *= vY ; endif\n  \n      if sTabela==nil ; sTabela=alias&#40;&#41; ; endif				//take the tables\n      \n      oFra &#58;= desenharFrame&#40;oWin,vLeft,vTop,vWidth,vHeight&#41;             //Desenha o Frame\n      oBrw &#58;= desenharBrowse&#40;vWidth-&#40;vX * 8&#46;5&#41;, vHeight-&#40;vY * 4&#41;,sTabela, oFra&#41;        //Desenha o Browse\n\n   if bFunc &lt;&gt; nil ; desenharBotao&#40;vWidth-&#40; vX*8&#41; , vBtnTop, vX*8 , vY*3&#46;3 , bFunc , oFra , oBrw&#41; ; endif  //Checa se uma outra variavel esta\n                                                                                                            //ok e então monta o botão\nreturn\n\n****************************************************************************************************\n\nfunction desenharBrowse&#40;vWidth,vHeight,sTabela, oFra&#41;\n\n   local  wfname, wfdesc\n   \n   \n   a=\'select * from campos where file_name = &quot;\' + &#40;sTabela&#41; + \'&quot; and SR_DELETED&lt;&gt;&quot; &quot; order by indkey_001\'//field_ord, sr_recno\'\n   use &#40;A&#41; alias campos new via &quot;SQLRDD&quot;			//take the table listing the coluns we will use\n   go top\n   \n   oBrw &#58;= TXbrowse&#40;&#41;&#58;New&#40; oFra &#41;                  //Options of the browse\n   oBrw&#58;nMarqueeStyle      &#58;=  5\n   oBrw&#58;nColDividerStyle   &#58;= LINESTYLE_DARKGRAY\n   oBrw&#58;nRowDividerStyle   &#58;= LINESTYLE_DARKGRAY\n   oBrw&#58;lAllowRowSizing    &#58;= &#46;f&#46;\n   oBrw&#58;lAllowColHiding    &#58;= &#46;f&#46;\n   oBrw&#58;lAllowColSwapping  &#58;= &#46;f&#46;\n   oBrw&#58;LVScroll            &#58;= &#46;f&#46;\n      \n   oBrw&#58;oFont &#58;=TFont&#40;&#41;&#58;New&#40;&quot;Courier New&quot;&#41;         //The font\n   \n   \n   do while !eof&#40;&#41;   \\\\here the function will add colun one by oneof the tabla, but only the listed in the table campos\n   \n      wfname = campos-&gt;field_name               //The coluns\n      wfdesc = campos-&gt;field_desc\n      wflen = campos-&gt;field_len\n      \n      sele &#40;sTabela&#41;\n      oCol &#58;= TXBrwColumn&#40;&#41;&#58;New&#40; oBrw &#41;\n      oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n      oCol&#58;bStrData  &#58;= &#123; || &amp;wfname &#125;\n      oCol&#58;nWidth        &#58;= wflen * 10\n      oCol&#58;cHeader   &#58;= wfdesc\n      oCol&#58;lAllowSizing=&#46;f&#46;\n      \n      sele campos\n      skip\n      \n   enddo\n   close \n   \n   sele &#40;sTabela&#41;\n   oBrw&#58;SetRDD&#40;&#41;		//i dont remember what is this now, i thing i just add this for test&#46;&#46;&#46; rs\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nFreeze &#58;= 1  \n   oBrw&#58;nTop &#58;= 7\n   oBrw&#58;nLeft &#58;= 0\n   oBrw&#58;nHeight &#58;= vHeight\n   oBrw&#58;nWidth &#58;= vWidth\n   \n   //oBrw&#58;VSetRange&#40;1,1&#41;\n   \nreturn oBrw\n\nfunction desenharFrame&#40;oWin, vLeft, vTop,vWidth,vHeight&#41;\n//Here the frame are maked\n   @ vTop-7 , vLeft GROUP oFra TO vTop+vHeight+7 , vLeft+vWidth PIXEL //Desenha o Frame\n\nreturn oFra\n\n****************************************************************************************************\n\nfunction desenharBotao&#40; vLeft , Vtop , vWidth , vHeight , bFunc , oFra, oBrw&#41;\n   //Here is the case, i try do that of many ways\n   \n   //bFunc &#58;= \'teste&#40;oBrw&#41;\'		i tryed use here many string inside of it and nothing\n	 //bFunc &#58;= &quot;&#123;||teste&#40;oBrw&#41;&#125;&quot;\n	 //bFunc &#58;= &quot;&#123;|oBrw|teste&#40;oBrw&#41;&#125;&quot;\n	 \n	 @ vTop, vLeft BUTTON oBtn Prompt &quot;Teste&quot; of oFra ACTION Teste&#40;oBrw&#41; SIZE vWidth, vHeight PIXEL\n	 //this is the only way i try and work&#46; Butit is not what i want, i need pass the function reference in parameter\n	 \n	 /* i try a lot o way, and no one work, here is some exemples of bads trys ;\\	 \n	 \n		@ vTop, vLeft BUTTON oBtn PROMPT &quot;Teste&quot; of oFra ACTION &amp;bFunc SIZE vWidth, vHeight PIXEL\n		@ vTop, vLeft BUTTON oBtn PROMPT &quot;Teste&quot; of oFra ACTION bFunc SIZE vWidth, vHeight PIXEL\n		@ vTop, vLeft BUTTON oBtn PROMPT &quot;Teste&quot; of oFra ACTION &#123;||&amp;bFunc&#125; SIZE vWidth, vHeight PIXEL\n		@ vTop, vLeft BUTTON oBtn PROMPT &quot;Teste&quot; of oFra ACTION &#123;|oBrw|&amp;bFunc&#125; SIZE vWidth, vHeight PIXEL\n		\n		btnNew &#58;= TButton&#40;&#41;&#58;New&#40;vTop,vLeft,&quot;&amp;New&quot;,oFra,,vWidth,vHeight,,,&#46;F&#46;,&#46;T&#46;,&#46;F&#46;,,&#46;F&#46;,,,&#46;F&#46; &#41;\n		oBtn&#58;bAction = &#123;||&amp;bFunc&#125;\n		oBtn&#58;bAction = bFunc\n		oBtn&#58;bAction = &#123;|oBrw|&amp;bFunc&#125;\n	 */ \n	 \n	/*			this don\'t work &#58;@\n   @ vTop,  vLeft BUTTON oBtn PROMPT &quot;Teste&quot; OF oFra SIZE vWidth, vHeight PIXEL\n   oBtn&#58;bAction    = &#123; || &amp;bFunc&#125;//,oBrw&#58;GoBottom&#40;&#41;, oBrw&#58;SetFocus&#40;&#41; &#125;\n	 */\nreturn\n\n****************************************************************************************************\n\nfunction Teste&#40;oBrw&#41;\n   msginfo&#40;oBrw&#58;nHeight&#41;		//just do see if the function can access the browse\nreturn obj\n\n****************************************************************************************************\n\n#include &quot;d&#58;\\xhb\\samples\\sqlrdd\\connect&#46;prg&quot;		//the SQLRDD conection &#40;Must have a ini file on the app path with the conection string\n\n\n[/code:2jsu7zt7]\nI dont know very well FiveWin, if some one know other way to do that, i\'ll be happy to know <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n[b:2jsu7zt7]\n\nThanks for all.\n\n\n[/b:2jsu7zt7]','',0,'QIA=','2jsu7zt7',1,0,'',1023,0,0),(30094,6714,3,2,0,'87.218.146.224',1176907279,1,0,1,1,1,1,'','','Enrico,\n\nYes, thats a good idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QIA=','3p9p68ay',1,0,'',2,0,0),(30095,6723,3,694,0,'200.189.112.21',1176907664,1,0,1,1,1,1,'','gracias','grato Rossine\n\n\nAokiSantos','',0,'QIA=','1v0bdegc',1,0,'',694,0,0),(30096,6305,1,2,0,'87.218.146.224',1176907980,1,0,1,1,1,1,'','','Richard,\n\nPlease resend it or upload it to <!-- w --><a class=\"postlink\" href=\"http://www.rapidshare.com\">www.rapidshare.com</a><!-- w --> and provide a download url, thanks \n\nMaybe our mail server took is as spam','',0,'QIA=','12lvy2ob',1,0,'',2,0,0),(30097,6645,4,2,0,'87.218.146.224',1176908174,1,0,1,1,1,1,'','','Bill,\n\nWe use the same syntax as in FWH. Quite simple <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> :\n[code:3dzwdcj0]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oActiveX\n   local cEvents &#58;= &quot;&quot;\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;WMPlayer&#46;OCX&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n   oActiveX&#58;SetProp&#40; &quot;url&quot;, CurDir&#40;&#41; + &quot;\\clapping&#46;wav&quot; &#41;\n\n   oActiveX&#58;bOnEvent = &#123; | event, aParams, pParams | cEvents += EventInfo&#40; event, aParams, pParams, oActiveX &#41; &#125;\n\n   ACTIVATE WINDOW oWnd ;\n      VALID &#40; MsgInfo&#40; cEvents &#41;, &#46;t&#46; &#41;\n\nreturn nil\n\nfunction EventInfo&#40; event, aParams, pParams, oActiveX &#41;\n\n   local cMsg &#58;= &quot;Event&#58; &quot; + cValToChar&#40; event &#41; + CRLF\n   local n\n   \n   cMsg += &quot;Params&#58; &quot; + CRLF\n   \n   for n = 1 to Len&#40; aParams &#41;\n      cMsg += cValToChar&#40; aParams&#91; n &#93; &#41; + CRLF\n   next\n   \nreturn cMsg + CRLF\n[/code:3dzwdcj0]','',0,'AIA=','3dzwdcj0',1,0,'',2,0,0),(30098,6718,6,2,0,'87.218.146.224',1176908338,1,0,1,1,1,1,'','','Wilson,\n\nNosotros usamos un directorio \"util\" en donde tenemos todas las herramientas necesarias y esta accesible desde el path. Ahí tambien está el bison.simple, de hecho esta línea queda así:\n\nSET BISON_SIMPLE=c:\\util\\bison.simple\n\nQue errores te da ? Prueba a borrar todo el directorio Harbour y haz un checkout. Lo que se denomina un \"fresh checkout\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1f355fb2',1,0,'',2,0,0),(30099,6669,6,425,0,'81.84.76.22',1176908408,1,0,1,1,1,0,'','','Hi Rene\n\nCan you post a sample to use a RPT with a Fwh apps+ ADS+ CRsytal 11.\n\nwith activex\n\nBest regards\n\n            Pedro','',0,'AIA=','31wlej4d',1,0,'',425,0,0),(30100,6714,3,41,0,'200.105.194.235',1176908535,1,0,1,1,1,0,'','','Enrico.\n\nyes these was an idea, but I wanted to know another way, ok, if you konw other way, please tell me, and if I find other solution I will post here\n\nregards\n\nMarcelo','',0,'AIA=','2gmsqb07',1,0,'',41,0,0),(30101,6714,3,6,0,'87.20.219.250',1176908721,1,0,1,1,1,1,'','','There is no other way, I\'m afraid.\n\nEMG','',0,'AIA=','2xmtayh6',1,0,'',6,0,0),(30102,6725,7,720,0,'80.36.244.134',1176912228,1,0,1,1,1,0,'','Error al borra la ultima posición de un browse','Antonio, se me ha dado un caso un poco extraño,te cuento...\n\nYo tengo este trozo de código\n.....\n\nDEFINE dialog odlg8 resource \"Menu_clientes\"\n\nredefine LISTBOX oBrw; \nFIELDS tabla_ventas-&gt;nombre,tabla_ventas-&gt;fecha;\n  HEADERS \"Nombre\",\"Fecha\" ID 300 OF oDlg8\n\nACTIVATE dialog odlg8\n.......\n\n\nEsto es un simple listbox en el que cada linea es un registro de una tabla. El problema que he visto es que, supongamos que en el listbox hay 3 lineas correspondientes a 3 registros distintos de la tabla_venta. Si se borra el primero o el segundo al refrescar el grid todo es correcto. En cambio si en vez de borrar el primero o el segundo borro directamente el ultimo no refresca bien el listbox. Solo ocurre cuando en el listbox tienes mas de una linea y quieres borrar la ultima solamente... Da la sensación de que no gestiona bien el final de la tabla...nose.\n\n\n\nSi tienes alguna solución para evitar este problema te lo agradecería. Este error no influye para nada en la ejecución de la aplicación solo que a simple vista queda mal ya que no repinta bien el listbox...\n\n\nSaludos\n\nElías Torres.','',0,'AIA=','1ch2ewi7',1,0,'',720,0,0),(30103,6669,6,456,0,'217.127.39.57',1176913924,1,0,1,1,1,1,'','','Previsualizacion en pantalla\n[code:y6am311m] \n   oCrys&#58;=tOleAuto&#40;&#41;&#58;New&#40;&quot;CrystalRunTime&#46;Application&quot;&#41;\n   oRpt&#58;=oCrys&#58;OpenReport&#40;oAppl&#58;cDirRpt+&quot;QSL&#46;rpt&quot;&#41;\n   oRpt&#58;Database&#58;Tables&#40;1&#41;&#58;Location&#58;=oAppl&#58;cDirRpt+\'Log&#46;dbf\'\n   IF oRPt&#58;HasSavedData          //si tenia datos guardados con el reporte, lo borra&#46;\n      oRPT&#58;DiscardSavedData&#40;&#41;    //obligando asi la lectura desde el fichero dbf&#46;\n   ENDIF\n   oCrRpt&#58;=tActiveX&#40;&#41;&#58;New&#40;oWnd,&quot;CrystalReports11&#46;ActiveXReportViewer&#46;1&quot;&#41;\n   oCrRpt&#58;SetProp&#40;&quot;ReportSource&quot;,oRpt&#41;\n   oCrRpt&#58;SetProp&#40;&quot;DisplayGroupTree&quot;,&#46;F&#46;&#41;\n\n   oCrRpt&#58;DO&#40;&quot;ViewReport&quot;&#41;\n   oWnd&#58;oClient&#58;=oCrRpt\n\n   ACTIVATE WINDOW oWnd VALID &#40;oCrRpt&#58;END&#40;&#41;,oCrys&#58;END&#40;&#41;,oRpt&#58;END&#40;&#41;,&#46;T&#46;&#41;[/code:y6am311m]\n\nImpresion sin pre,\n[code:y6am311m]\n   oCrys&#58;=tOleAuto&#40;&#41;&#58;New&#40;&quot;CrystalRunTime&#46;Application&quot;&#41;\n   oRpt&#58;=oCrys&#58;OpenReport&#40;oAppl&#58;cDirRpt+&quot;QSL&#46;rpt&quot;&#41;\n   oRpt&#58;Database&#58;Tables&#40;1&#41;&#58;Location&#58;=oAppl&#58;cDirRpt+\'Log&#46;dbf\'\n   IF oRPt&#58;HasSavedData          //si tenia datos guardados con el reporte, lo borra&#46;\n      oRPT&#58;DiscardSavedData&#40;&#41;    //obligando asi la lectura desde el fichero dbf&#46;\n   ENDIF\n   oRpt&#58;PrintOut&#40;&#46;f&#46;&#41;\n   oRpt&#58;END&#40;&#41;\n   oCrys&#58;END&#40;&#41;[/code:y6am311m]','',0,'AIA=','y6am311m',1,0,'',456,0,0),(30104,6669,6,456,0,'217.127.39.57',1176914200,1,0,1,1,1,1,'','','Por cierto Rene, como te las arreglas para distribuir Crystal con tus aplicaciones. \nA mi solo me ha ido bien con InstallShield, pero el tamaño de la instalacion es muy grande, y aunque dice que puedes marcar que modulos incluir, a mi no me hace ni caso y siempre me pone todos los modulos en la instalacion.','',0,'AIA=','kwc55z7t',1,0,'',456,0,0),(30105,6691,3,303,0,'72.199.41.171',1176915619,1,0,1,1,1,0,'','','Rick,\n\n&gt;SQL can only interpret single quotes to pass as values : \n\nDouble quotes work for me, at least with Access. This works here:\n\noRS:Open( [SELECT * FROM Customers WHERE companyname=\"Eastern Connection\"], \"Provider=Microsoft.Jet.OleDB.4.0;Data Source=Northwind.mdb\" )\n\nJames','',0,'','13kxocbs',1,0,'',303,0,0),(30106,6726,3,148,0,'196.205.220.111',1176917006,1,0,1,1,1,0,'','auto complete feature','The auto complete feature in any internet for getting a variable . I need it in Xbrowse edititing. Is there auto complete for get class ?','',0,'','3ghpa83o',1,0,'',148,0,0),(30107,6727,3,924,0,'81.208.36.89',1176918059,1,0,1,1,1,0,'','How get message from dbx (Outlook Express)','Hi, any idea how get (with fwin) any single message from a DBX file of Outlook Express  ?\n\nI need it to get and process many many emails message in automatic mode using fwin\ntks\nRomeo/Zingoni','',0,'','qggump9i',1,0,'',924,0,0),(30108,6728,1,924,0,'81.208.36.89',1176918544,1,0,1,1,1,0,'','Come beccare i messaggi da un file DBX di Outlook Express','Ciao a tutti,\nmi occorrerebbe un\'idea (se esiste) x prelevare singolarmente e in automatico i messaggi da un file DBX di Outlook Express x poterli processare poi.\n\nC\'e\' qualcosa che posso usare/utilizzare ?\nGrazie','',0,'','ol1ggupt',1,0,'',924,0,0),(30109,6728,1,924,0,'81.208.36.89',1176918654,1,0,1,1,1,0,'','','Ho sbagliato a porre qui la domanda,.....scusate','',0,'','17uun8fd',1,0,'',924,0,0),(30110,6729,20,924,0,'81.208.36.89',1176918774,1,0,1,1,1,0,'','Come beccare i messaggi da un file DBX di Outlook Express','Ciao a tutti, \nmi occorrerebbe un\'idea (se esiste) x prelevare singolarmente e in automatico i messaggi da un file DBX di Outlook Express x poterli processare poi. \n\nC\'e\' qualcosa che posso usare/utilizzare ? \nGrazie\nHo prima postato questa richiesta sul forum internazionale poi mi sono accorto che EMG aveva gia\' risposto ad un quesito similare (almeno mi pareva)','',0,'','98stgkww',1,0,'',924,0,0),(30111,6725,7,2,0,'87.218.146.224',1176919763,1,0,1,1,1,1,'','','Elias,\n\nPrueba a usar SET DELETED ON','',0,'','2b94jhb1',1,0,'',2,0,0),(30112,6730,6,1024,0,'201.228.131.58',1176919840,1,0,1,1,1,1,'','Tdbf Para Version 7.04','He generado un proyecto viejo con una TDBF de Manu y no funciona correctamente los Indices.\n\nAlguien tiene una Version de la libreia TDBF reciente que funcione con la Version reciente de Fwh 7.04.\n\nMil Gracias','',0,'','1a4pcpoa',1,0,'',1024,0,0),(30113,6724,3,217,0,'200.159.120.34',1176925174,1,0,1,1,1,0,'','Re: Trouble in XBrowse','Soares, assim deveria funcionar:\n\ndbRotG := {|| Teste(oBrw) }\n\n...... action eval( dbRotG )\n\nClaro que a funcao Teste() deve existir e o parâmetro oBrw deve ser enxergado pelo programa...\n\n[ ]\'s\nMaurilio','',0,'','olayk7is',1,0,'',217,0,0),(30114,6724,3,1023,0,'201.92.184.67',1176926007,1,0,1,1,1,0,'','','Muito obrigado Maurilio Viana, eu testei aqui, e parece que funcionou.\nEu não fazia idéia da nescessidade da função \"Eval\". <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','29zicfh8',1,0,'',1023,0,0),(30115,6731,6,925,0,'200.72.213.66',1176926076,1,0,1,1,1,0,'','error fivewin /1','Alguien me puede decir a que se debe este error !  es solo cuando coloco\nel listbox dentro de un dialogo. \nel id que menciona no esta definido en ninguna parte uso  pelles .rc  \n\n\nApplication\n===========\n   Path and name: C:\\CONSUWIN\\consu02.exe (32 bits)\n   Size: 1,421,312 bytes\n   Time from start: 0 hours 0 mins 5 secs \n   Error occurred at: 18/04/2007, 15:54:40\n   Error description: Error FiveWin/1  Non defined Id: No:    103\n\nStack Calls\n===========\n   Called from: CONTROL.PRG =&gt; TCONTROL:INITIATE(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:TWBROWSE(596)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: CONSU02.PRG =&gt; MBUSCA(0)\n   Called from: CONSU02.PRG =&gt; (b)LIQUI(0)\n   Called from: BUTTON.PRG =&gt; TBUTTONBMP:CLICK(0)\n   Called from: BUTTON.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: BUTTONB.PRG =&gt; TBUTTONBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: CONSU02.PRG =&gt; LIQUI(0)\n   Called from: CONSU02.PRG =&gt; (b)PMENU1(0)\n   Called from: BUTTON.PRG =&gt; TBUTTONBMP:CLICK(0)\n   Called from: BUTTON.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: BUTTONB.PRG =&gt; TBUTTONBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: CONSU02.PRG =&gt; PMENU1(0)\n   Called from: CONSU02.PRG =&gt; (b)MAIN(0)\n   Called from: TOOLBAR.PRG =&gt; TTOOLBAR:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: CONSU02.PRG =&gt; MAIN(0)\n\nSystem\n======\n   CPU type: AMD Athlon(tm) 64 Processor 3200+ 2200 Mhz\n   Hardware memory: 960 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.61 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2','',0,'','1qoefnqo',1,0,'',925,0,0),(30116,6730,6,92,0,'217.125.165.196',1176926275,1,0,1,1,1,0,'','Re: Tdbf Para Version 7.04','[quote=&quot;audisys&quot;:xenvcxch]He generado un proyecto viejo con una TDBF de Manu y no funciona correctamente los Indices.\n\nAlguien tiene una Version de la libreia TDBF reciente que funcione con la Version reciente de Fwh 7.04.\n\nMil Gracias[/quote:xenvcxch]\n\nMira en:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6488&amp;start=15\">http://fivetechsoft.com/forums/viewtopi ... 8&amp;start=15</a><!-- m -->\n\nSaludos\nCarlos G.','',0,'gA==','xenvcxch',1,0,'',92,0,0),(30117,6331,6,92,0,'217.125.165.196',1176926808,1,0,1,1,1,0,'','Re: tsbrowse y tdbf a 32 bits','[quote=&quot;Francis&quot;:xxi511kj]Hola amigo\n\nLa verdad no lo he conseguido...\n\nMas bien quisiera saber de donde eres, pues necesito una version actual del FWH, yo soy de Peru desde la ciudad de Iquitos, y desde aqui es bien dificil conseguir este Software, si es posible me lo pudieras vender una copia de la version actual del fwh...\n\nEspero tu respuesta...\n\nFrancis\nSalu2[/quote:xxi511kj]\n\nPerdona el retraso, no me di cuenta de tu mensaje.\n\nLo que pides depende del sr. Linares; con lo que curra el hombre no me parece justo joderle el trabajo.\n\nRespecto a TDbf, como en su día la distribuyó en Internet su propio creador, Manuel Expósito si que creo que me puedo permitir hacértela llegar, mira en:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6488&amp;start=15\">http://fivetechsoft.com/forums/viewtopi ... 8&amp;start=15</a><!-- m -->\n\n\nSaludos\nCarlos G.','',0,'gA==','xxi511kj',1,0,'',92,0,0),(30118,6718,6,179,0,'200.63.227.229',1176926812,1,0,1,1,1,1,'','','Gracias Antonio, era eso he vuelto a bajar y me compila hasta con mi antiguo .bat\n\ngracias x todo\n\nSaludos','',0,'gA==','3l0hgwt0',1,0,'',179,0,0),(30119,6732,3,694,0,'200.189.112.21',1176927636,1,0,1,1,1,1,'','Rossine mais xbrowse','Rossine, tenho duvidas sobre estes comandos na xbrowse:\n\n\n****\nuBrw:aCols[2]:bClrEdit       := uBrw:bClrStd\n***\nuBrw:aCols[6]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 6 ] := x }\n***\noBrw:SetRDD()\n****\nAmigo, outra coisa, usando celulas editaveis como colocar uma função para validar a edição de uma celula?\n****\nDesde já te agradeço\n\nAokisantos <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'','27ehhlpy',1,0,'',694,0,0),(30120,6715,6,450,0,'200.245.0.24',1176929687,1,0,1,1,1,1,'','','Olá FLeal...\n\nObrigado pela resposta...\n\nJá havia usado o Freeimage, porém na verdade, gostaria de abrir qualquer tipo de Imagem (BMP,JPG,TIF,GIF), usando os recursos do \"image.preview\" do Windows, através da Classe TActiveX.\n\nSeguindo os exemplos abaixo :\nWORD    =&gt; oActiveX = TActiveX():New( oWnd, \"Word.Application.8\" )\nACROBAT =&gt; oActiveX = TActiveX():New( oWndPdf, \"PDF.PdfCtrl.6\" )\nEXCEL   =&gt; oActiveX = TActiveX():New( oWnd, \"OWC10.Spreadsheet\" )\nFLASH   =&gt; oActiveX = TActiveX():New( oWnd, \"ShockwaveFlash.ShockwaveFlash.1\" )\nficou facil de usar esses recursos, porém não encontrei nada em relação as imagens acima.\n\nEncontrei os parametros \"WangImage.Document\" que abre o image preview, só que estão faltando alguns parâmetros e não estou sabendo usa-los.\n\nGracias','',0,'','38emivwo',1,0,'',450,0,0),(30121,6729,20,6,0,'82.61.157.12',1176931195,1,0,1,1,1,1,'','Re: Come beccare i messaggi da un file DBX di Outlook Expres','Sì, puoi usare, appunto, OLE:\n\n[code:2wht0f9b]#define olFolderInbox 6\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n    LOCAL oNameSpace &#58;= oOutlook&#58;GetNameSpace&#40;&quot;MAPI&quot;&#41;\n    LOCAL oInbox &#58;= oNameSpace&#58;GetDefaultFolder&#40; olFolderInbox &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO oInbox&#58;Items&#58;Count\n        ? oInbox&#58;Items&#91; i &#93;&#58;Body\n        ?\n    NEXT\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:2wht0f9b]\n\nEMG','',0,'AIA=','2wht0f9b',1,0,'',6,0,0),(30122,6727,3,6,0,'82.61.157.12',1176931232,1,0,1,1,1,1,'','Re: How get message from dbx (Outlook Express)','[code:3lz7i8z3]#define olFolderInbox 6\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n    LOCAL oNameSpace &#58;= oOutlook&#58;GetNameSpace&#40;&quot;MAPI&quot;&#41;\n    LOCAL oInbox &#58;= oNameSpace&#58;GetDefaultFolder&#40; olFolderInbox &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO oInbox&#58;Items&#58;Count\n        ? oInbox&#58;Items&#91; i &#93;&#58;Body\n        ?\n    NEXT\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:3lz7i8z3]\n\nEMG','',0,'AIA=','3lz7i8z3',1,0,'',6,0,0),(30123,6733,19,92,0,'217.125.165.196',1176932370,1,0,1,1,1,0,'','Lector código de Barras.','Hola a todos,\n\nA ver si me pueden dar alguna idea u orientarme en resolver lo siguiente.\n\nDebo diseñar una pantalla para capturar varios campos independientes mediante un lector de código de barras.\nDebo leer varios códigos de barras y asociarlos a personas.\n\n¿Cómo realizarían ustedes el cambio de campo cuando se lee un código de barras mediante un lector? ¿Cómo saltarían al siguiente campo a capturar?\nUna de las maneras es pulsando Intro manualmente entre captura y captura, pero quiero evitar la accíón manual del usuario.\n\n¿Se les ocurre como podría definir un TIMER que entre pulsación y pulsación según alguna circunstancia cambiara el foco de un control a otro?\n\n¿Un TIMER sería la solución?\n\nSaludos y gracias\nCarlos G.','',0,'AIA=','2opkcs26',1,0,'',92,0,0),(30124,6715,6,450,0,'200.245.0.24',1176932866,1,0,1,1,1,1,'','','Olá...\n\nSeria esse o Imaging Preview que gostaria de usar com a TActiveX. \nSó não sei se será possível...\n\n[img:10wlk44g]http&#58;//br&#46;geocities&#46;com/valdirbrd/img001&#46;jpg[/img:10wlk44g]\n\nSaludos','',0,'CA==','10wlk44g',1,0,'',450,0,0),(30125,6331,6,760,0,'200.37.76.90',1176935430,1,0,1,1,1,0,'','tdbf a 32 bits','Hola amigo\n\nPero no he podido bajar esa direccion....\nSi es que tienes otra direccion para bajarlo.\n\nAhora esa nueva tfb funciona tanto para fwh7 y fwh2?\n\nSalu2','',0,'CA==','1ufh7qyk',1,0,'',760,0,0),(30128,6736,6,867,0,'148.243.37.162',1176936466,1,0,1,1,1,0,'','Buscar cadenas dentro de archivos','Hola amigos y amigas del foro pues, alguien sabe si conoce algun software, para hacer busquedas de palabras dentro de un archivo.\nejemplo. ARCHIVO : MAIN.PRG\n\n\nFUNCTION SUSANA()\n\nQue yo encuentre la palabra \"susana\" dentro del archivo main.prg o todos los archivos...espero haverme explicado, porque con el asistente de busqueda de windows XP, no lo encuentra <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'CA==','3pqzsawg',1,0,'',867,0,0),(30129,6731,6,785,0,'190.64.214.138',1176937458,1,0,1,1,1,0,'','','Pablo:\n\nPuede ser que el ID 103 no este definido en tu .RC pero si parece\nque esta definido en tu prg.\n\nSaludos.\n\nRuben Fernandez.','',0,'CA==','37xu89lr',1,0,'',785,0,0),(30130,6727,3,303,0,'72.199.41.171',1176939615,1,0,1,1,1,0,'','','Enrico,\n\nHe specified Outlook Exrpess. Will your code work with it?\n\nJames','',0,'CA==','o4x8huum',1,0,'',303,0,0),(30131,6736,6,72,0,'189.146.240.23',1176943560,1,0,1,1,1,0,'','','Si deseas buscar las cadenas en PRGs debe permitirlo tu editor de programas, en mi caso uso ConTEXT abro todos los programas en donde deseo buscar y/o reemplazar presiono Ctrl+R y listo.\n\nPara buscar cadenas en cualquier archivo sin importar el tipo, tamaño, etc.; sigo usando mi viejo XTree Gold en DOS y funciona!.','',0,'CA==','2ywp55qu',1,0,'',72,0,0),(30132,6737,6,743,0,'201.116.76.180',1176945078,1,0,1,1,1,0,'','tsbutton duda por favor','utilizo la clase tsbutton y necesito cambiar la imagen del boton en tiempo de ejecucion\n\n\n  veo que existe este metodo, ChangeBitMap() , lo utilizo pero no se que estoy haciendo mal\n\n\n\nsaludos','',0,'CA==','1i7vh6wr',1,0,'',743,0,0),(30133,3680,6,64,0,'201.72.124.2',1176945204,1,0,1,1,1,1,'','','.\n.','',0,'CA==','17o6o287',1,0,'',64,0,0),(30134,4708,6,64,0,'201.72.124.2',1176945329,1,0,1,1,1,1,'','','Hola Rene,\n\nUsted puede enviar este manual? \n\n<!-- e --><a href=\"mailto:adm@polynorte.com.br\">adm@polynorte.com.br</a><!-- e --> \n\nGracias','',0,'CA==','1y7ogevk',1,0,'',64,0,0),(30135,6708,6,400,0,'201.68.12.105',1176946360,1,0,1,1,1,1,'','','Ainda nao consegui, chamar uma Dialog com Tab......\n\nAgradeço por alguma dica..estou precisando muito terminar essa Tab.\n\n@braços Ale','',0,'CA==','2hu8z631',1,0,'',400,0,0),(30136,6738,6,64,0,'201.72.124.2',1176946462,1,0,1,1,1,1,'','Error 7040 en ADS. RENE FLORES. HELP.','Hola,\n\nEn un módulo de mi sistema el tengo que crear una tabela (dbf) a partir  del otra tabela usando el comando TOTAL ON.\n\n[code:1lzh0fci]\nSELE 32  // ARQ&#46; TEMPORÁRIO - CAPTAÇÃO DE ACABADOS\nIF RECCOUNT&#40;&#41;=0\n    RETURN &#46;F&#46;\nENDIF\nINDEX ON CODRED TO INDD\nSET INDEX TO INDD\nTOTAL ON CODRED FIELDS PESOKG, QTDSAI TO S&#58;\\SUMARY&#46;DBF\n[/code:1lzh0fci]\n\nEn el primer llamado del total sobre el que trabaja 100 %, llamó el lunes del módulo que obtengo el error 7040 - File creation error. Verify the specified path and file name is correct and that no other users have the file open.\n\nSolamente un usuario por el tiempo usa este archivo.\n\n[code:1lzh0fci]\nREQUEST ADS , ADSKeyno, ADSKeycount  \nRddRegister&#40; &quot;ADS&quot;, 1 &#41; \nRddSetDefault&#40; &quot;ADS&quot; &#41; \nAdsLocking&#40; &#46;T&#46; &#41;\nAdsRightsCheck&#40; &#46;F&#46; &#41;\nAdsSetFileType&#40; 2 &#41; /// 1 NTX / 2 CDX / 3 ADT\nIF NETNAME&#40;&#41; = \'NOTEDAF\'\n    AdsSetServerType&#40;1&#41; /// 1 Local / 2 Server / 7 AIS Internet\nELSE\n    AdsSetServerType&#40;2&#41; /// 1 Local / 2 Server / 7 AIS Internet\nENDIF\nAdsSetDateFormat&#40;&quot;DD/MM/YYYY&quot;&#41;\nAdsSetEpoch&#40;&quot;01/01/2000&quot;&#41;\n\n[/code:1lzh0fci]\n\nGracias.','',0,'AIA=','1lzh0fci',1,0,'',64,0,0),(30137,6737,6,785,0,'190.64.195.160',1176949916,1,0,1,1,1,0,'','','Tomafa:\n\nNo estoy seguro de que es lo que estas buscando...\n\nAl boton de Tsbutton le puedes asignar 4 bitmaps\n\nREDEFINE ......  RESOURCE \"bitmap1\",\"bitmap2\",\"bitmap3\",\"bitmap4\" of Odlg\n\nEspero te sirva de algo.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','ad9y38du',1,0,'',785,0,0),(30138,6739,3,962,0,'200.161.190.2',1176958704,1,0,1,1,1,1,'','Last Row of Dialog (Resource)','Como saber a linha inferior do Dialog (Resource), para poder inserir botões no rodapé ? \n@nLastRow - 30, 50 Button  ...\n\nEx:\n[code:7qnf2p9i]\n//------------------------------------------------------------------------------\nfunction DlgMain&#40;&#41;\nlocal oDlgMain\n\nDefine Dialog oDlgMain NAME \'CDT_CLIENTE\' TITLE \'CADASTRO CLIENTE\'\nActivate Dialog oDlgMain ;\n         On Init OnInitMain&#40;oDlgMain&#41; ;\n         Valid OnExitMain&#40;oDlgMain&#41; ;\n         Center\n\nreturn nil\n\n//------------------------------------------------------------------------------\nfunction OnInitMain&#40;oDlgMain&#41;\noDlgMain&#58;lHelpIcon&#58;=&#46;f&#46;\n\n@378,410 button \'&amp;Gravar\'   of oDlgMain Size 60,23 Pixel\n@378,480 button \'&amp;Cancelar\' of oDlgMain Size 60,23 Pixel \n// 378, não poderia estar fixo, algo parecido oDlgMain&#58;nBotton - 30\nreturn nil\n\n[/code:7qnf2p9i]','',0,'AIA=','7qnf2p9i',1,1177001037,'',962,1,0),(30139,6725,7,720,0,'80.36.244.134',1176970233,1,0,1,1,1,0,'','','Antonio, ya uso el set deleted on... Creo que no es problema de mi aplicación puesto que para los demas casos borra y repinta correctamente el listbox. Pienso que pueda ser que la clase listbox no gestiona bien este tema de repintado cuando se da el caso que te he comentado. Me gustaría que lo probaras, si es posible, para que me confirmes si es algun tipo de problema de la clase o si por el contrario soy yo el que no lo está haciendo bien. Aunque como ya te he dicho para los demas casos funciona correctamente...\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','11elzods',1,0,'',720,0,0),(30140,6727,3,6,0,'82.58.168.169',1176971303,1,0,1,1,1,1,'','','No, sorry. I missed it. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nEMG','',0,'AIA=','ks54jylf',1,0,'',6,0,0),(30141,6716,3,705,0,'61.0.136.62',1176971397,1,0,1,1,1,0,'','','Hi everybody,\n\nI think my last post was too lengthy for support. Ok. I need support for the following part only.\n\nWhile I am entering a client’s Id, first it is display previous clients details in @Say area and then current client details. I have erased and removed all Say information from display area and also from oDbf. Even after that it is displaying previous client details.\n\nHow can I stop this double display ?\n\nThe process time slowly increase. After 10-15 process it is remarkable slow. Is it due to buffering problem? How can I clear the buffer?\n\nHow can I reduced the value of  Dlg1:aControls ? ( as because the value is increasing in every process)\n\nWith regards,\nArindam','',0,'AIA=','3ksnzphq',1,0,'',705,0,0),(30142,6729,20,924,0,'81.208.36.89',1176973051,1,0,1,1,1,0,'','','Ho provato il seg. esempio:\n\n*************************\n#include \"FiveWin.ch\"\n#define olFolderInbox 6 \n\n\nFUNCTION MAIN() \n\n    LOCAL oOutlook := CREATEOBJECT( \"Outlook.Application\" ) \n    LOCAL oNameSpace := oOutlook:GetNameSpace(\"MAPI\") \n    LOCAL oInbox := oNameSpace:GetDefaultFolder( olFolderInbox ) \n\n    LOCAL i \n\n    FOR i = 1 TO oInbox:Items:Count \n        ? oInbox:Items[ i ]:Body \n        ? \n    NEXT \n\n    oOutlook:Quit() \n\n    INKEY( 0 ) \n\nreturn nil\n\n******************\ncon FWH24 e mi fa partire intanto il Microsoft Outlook (ma io i messaggi ce l\'ho in OutLook Express)\n\nma subito mi da il seg errore:\n\nClass: NIL has no exported method: BODY\n\nPosso fare qualcosa ? Ma sopratutto posso leggere i Body (e magari anche gli eventuali codici di errore delle email, es: email non esistente,spazio esaurito,ecc) e io poi uso Outlook Express.\n\nGrazie','',0,'','367vv2xr',1,0,'',924,0,0),(30143,6729,20,6,0,'82.58.168.169',1176973360,1,0,1,1,1,1,'','','Mi era sfuggito il fatto che tu parlavi di Outlook Express. OLE può essere utilizzato solo con Outlook di Office. Non ho nessuna idea su come fare quello che chiedi con OE.\n\nEMG','',0,'','2c2cbzlb',1,0,'',6,0,0),(30144,6716,3,6,0,'82.58.168.169',1176973525,1,0,1,1,1,1,'','','I don\'t know if I understood correctly your problem but try to not create new SAY objects and use oSay:SetText() method instead to change SAY content.\n\nEMG','',0,'','19o5x5n8',1,0,'',6,0,0),(30145,6729,20,924,0,'81.208.36.89',1176973712,1,0,1,1,1,0,'','','Ok, vorra\' dire che passo a Microsoft Outlook.\n\nSi riesce in questo caso a fare funzionare l\'esempio sopre che mi hai mandato oppure ho bisogno di qualche libreria o aggiornamento delle mie FWH24 ?\nGrazie','',0,'','16ac3qza',1,0,'',924,0,0),(30146,6724,3,2,0,'87.218.146.224',1176974735,1,0,1,1,1,1,'','','Carlos Alberto,\n\nYou can also do:\n\n@ vTop, vLeft BUTTON oBtn PROMPT \"Teste\" of oFra ACTION Teste(oBrw) ...\n\nbut do it as Maurilio told you if you are using a codeblock defined somewhere else','',0,'','jwd0lbot',1,0,'',2,0,0),(30147,6708,6,2,0,'87.218.146.224',1176974993,1,0,1,1,1,1,'','','Alessandro, \n\nPuedes usar un control TPages y el control TTabs. La acción del objeto TTabs será cambiar la página del objeto TPages.\n\nTienes un ejemplo de uso de TPages en samples\\TestPage.prg y TestPag2.prg','',0,'','13e9l8gv',1,0,'',2,0,0),(30148,6728,1,2,0,'87.218.146.224',1176975102,1,0,1,1,1,1,'','','Non fa niente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2a5zgh31',1,0,'',2,0,0),(30149,6725,7,2,0,'87.218.146.224',1176975417,1,0,1,1,1,1,'','','Elías,\n\nVamos a probarlo en seguida,\n\nHas probado a hacer oBrowse:Refresh() despues de borrar el registro para que se repinte el browse ?','',0,'','2vnfx8fq',1,0,'',2,0,0),(30150,6729,20,924,0,'81.208.36.89',1176976240,1,0,1,1,1,0,'','','Forse partendo da questo esempio trovat nelne news si riesce a risolvere il mio problema:\n\nCode: \n      oOL := TOleAuto():New( \"Outlook.Application\" ) \n      lOutlookOK := .T. \n   IF ! lOutlookOK \n      RETURN ( 0 ) \n   ENDIF \n\n   oNameSpace   = oOL:Get( \"GetNameSpace\", \"MAPI\" ) \n   oContacts    = oNameSpace:Get( \"GetDefaultFolder\", \"6\" )  // 6 = Inbox-Folder \n    \n   FOR nContador = 1 TO oContacts:ITEMS:Count() \n         oNewContact  = oContacts:ITEMS( nContador ) \n         cSenderName   := oNewContact:get( \"SenderName\" ) \n         cSubject      := oNewContact:get( \"Subject\" ) \n\n         cBody      := oNewContact:get( \"Body\" )   &amp;&amp; questo l\'ho inserito io grazie al tuo sempio e funziona \n\n  * quali sono tutte le altre informazioni che posso beccare ?\n  * ho provato a cercare nel web e nel mio pc il file:   VBAOUTL?.CHM che mi poteva aiutare ma.... non ho trovato niente, per la verita\' mi occorrerebbe qualche codice di risposta della email del tipo Non esestente,spazio email insuff, ecc...\n\n   NEXT nContador \nRETURN NIL \n \nCi siamo quasi, un ultimo sforzo \nGrazie','',0,'','2hs6fidg',1,0,'',924,0,0),(30151,6669,6,1025,0,'81.84.76.22',1176977748,1,0,1,1,1,0,'','Crystal XI e xHarbour','Hi everybody,\n\nBiel,\n\nI tested with your code sample but when execute the app this error occurs:\n\n\"TOleAuto/-1  CO_E_CLASSSTRING: TOLEAUTO:NEW Args: [   1] = C   CrystalRunTime.Application\"\n\nI have Crystal Reports XI Professional with all components installed on my machine.\n\nThanks for the help,\n\nMário Paiva','',0,'','n4wpycck',1,0,'',1025,0,0),(30152,6740,3,904,0,'196.25.255.250',1176977807,1,0,1,1,1,1,'','Question about closing dialogs','I want nChoice in the code below to be \'0\' if the user makes a choice on the radio button and then decides to close the window with the \'X\'.  \nIt does it when the user presses Cancel, but not when the window is closed with \'X\'.\n\n\n[code:2r0beds9]   DEFINE DIALOG oDlg OF Win_main TITLE &quot;Move Record&quot; SIZE 300, 150\n   @ 1, 1 SAY \'Move this record to &#58;\'\n   @ 3, 5 BUTTON but_move PROMPT &quot;Move&quot; SIZE 30, 10 DEFAULT ;\n      ACTION &#40; oDlg&#58;END&#40;&#41; &#41; // MSGSTOP&#40; &quot;Incorrect username or password&quot;, &quot;Error&quot; &#41; &#41;\n   @ 1,  9 RADIO nChoice PROMPT &quot;&amp;Prospective Database&quot;, &quot;&amp;Free Database&quot; OF oDlg\n   @ 3, 15 BUTTON but_cancel PROMPT &quot;Cancel&quot; SIZE 30, 10 ACTION &#40;nChoice&#58;=0, oDlg&#58;END&#40;&#41;&#41;\n   ACTIVATE DIALOG oDlg CENTER VALID &#40; &#46;T&#46; &#41;\n\n   MSGINFO&#40;STR&#40;nChoice&#41;&#41;[/code:2r0beds9]','',0,'AIA=','2r0beds9',1,0,'',904,0,0),(30153,6740,3,6,0,'82.58.168.169',1176978624,1,0,1,1,1,1,'','Re: Question about closing dialogs','Try\n\n[code:3h50c3zj]IF oDlg&#58;nResult = IDCANCEL\n    nChoice = 0\nENDIF[/code:3h50c3zj]\n\nright after ACTIVATE DIALOG command.\n\nEMG','',0,'AIA=','3h50c3zj',1,0,'',6,0,0),(30154,6740,3,6,0,'82.58.168.169',1176978699,1,0,1,1,1,1,'','Re: Question about closing dialogs','And\n\n[code:1sd2ygkj]@ 3, 5 BUTTON but_move PROMPT &quot;Move&quot; SIZE 30, 10 DEFAULT ; \n      ACTION &#40; oDlg&#58;END&#40; IDOK &#41; &#41;[/code:1sd2ygkj]\n\nEMG','',0,'AIA=','1sd2ygkj',1,0,'',6,0,0),(30155,6725,7,720,0,'80.36.244.134',1176978743,1,0,1,1,1,0,'','','Antonio, efectivamente le hago un refresh() y funciona siempre menos en el caso que te comento....\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','19eghzjj',1,0,'',720,0,0),(30156,6729,20,6,0,'82.58.168.169',1176978777,1,0,1,1,1,1,'','','[quote=&quot;Romeo&quot;:yfzewxez]Ok, vorra\' dire che passo a Microsoft Outlook.\n\nSi riesce in questo caso a fare funzionare l\'esempio sopre che mi hai mandato oppure ho bisogno di qualche libreria o aggiornamento delle mie FWH24 ?\nGrazie[/quote:yfzewxez]\n\nSì, dovrebbe funzionare regolarmente.\n\nEMG','',0,'gA==','yfzewxez',1,0,'',6,0,0),(30157,6729,20,6,0,'82.58.168.169',1176978847,1,0,1,1,1,1,'','','Non capisco cosa ti serve. Se il mio esempio ti funziona credo che tu non abbia bisogno di altro.\n\nEMG','',0,'gA==','3cie7901',1,0,'',6,0,0),(30158,6734,3,49,0,'62.13.168.67',1176978942,1,0,1,1,1,1,'','','GOOOOOOD   MR PACOOO!!!','',0,'gA==','57sejcqv',1,0,'',49,0,0),(30159,6669,6,456,0,'217.127.39.57',1176979716,1,0,1,1,1,1,'','','Hi Mario,\nhere I\'m using CR Developer, Full. Ver. 11.0.0.1282\n\nThe way to create objecs is how is decribed in the Crystal Reports Technical Reference Guide, page 24. \n\n\"Application Object  -&gt; CrystalRunTime.Applicaction\"\n\nMaybe is a differenece between CR Professional Edition and CR Developer Edition.','',0,'gA==','3ml094ep',1,0,'',456,0,0),(30160,6729,20,924,0,'81.208.36.89',1176979784,1,0,1,1,1,0,'','','Ok l\'esempio va bene e mi chiedevo se oltre al Body, posso avere anche altre variabili, ese: email di chi mi risponde, il codice di errore (se esiste).\n\ncerto potrei farlo analizzando riga x riga il body...ma se esistono le funzioni gia fatte e\' meglio.\n\nIl progrmma che devo relizzare dovra\' mandare delle email (tantissime) e poi analizzare le risposte in maniera piu\' automatico possibile. \nGrazie','',0,'gA==','3579zm66',1,0,'',924,0,0),(30161,6725,7,456,0,'217.127.39.57',1176980395,1,0,1,1,1,1,'','','Prueba con el siguiente código. \n[code:3oandkcn]\n    IF !&#40;cAlias&#41;-&gt;&#40;Eof&#40;&#41;&#41; //aqui el alias que uses\n         oBrw&#58;GoUp&#40;&#41;\n    ENDIF\n    oBrw&#58;Refresh&#40;&#41;[/code:3oandkcn]','',0,'AIA=','3oandkcn',1,0,'',456,0,0),(30162,6725,7,720,0,'80.36.244.134',1176982052,1,0,1,1,1,0,'','','Gracias Biel!!!\n\nAhora si refresca correctamente para todos los casos.....\n\nSaludos.\n\nElías Torres.','',0,'AIA=','2jrowmtm',1,0,'',720,0,0),(30163,6708,6,400,0,'200.205.49.10',1176982676,1,0,1,1,1,1,'','','Gracias Antonio,\n\nproblema resolvido........\n\n@braços Ale','',0,'AIA=','2e4k5wdn',1,0,'',400,0,0),(30164,6729,20,6,0,'82.58.168.169',1176982813,1,0,1,1,1,1,'','','Cerca l\'oggetto MailItem sulla documentazione e troverai tutte le sue proprietà disponibili.\n\nEMG','',0,'AIA=','2ioefaon',1,0,'',6,0,0),(30165,6725,7,2,0,'87.218.146.224',1176983088,1,0,1,1,1,1,'','','Gracias Biel <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1v6yxwvr',1,0,'',2,0,0),(30166,6739,3,2,0,'87.218.146.224',1176983256,1,0,1,1,1,1,'','','Eric,\n\n@ oDlgMain:nHeight - 30, 50 Button ...','',0,'AIA=','f4in0m4b',1,0,'',2,0,0),(30167,6736,6,2,0,'87.218.146.224',1176983675,1,0,1,1,1,1,'','','Susy,\n\nNosotros usamos \"Total Commander\" desde hace muchos años (y antes usábamos Norton Commander en MsDos) para controlar el ordenador. Te permite hacer eso y muchísimas más cosas.\n\nDe hecho siempre trabajamos desde el \"Total Commander\" y no podríamos trabajar profesionalmente sin él <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEs un producto shareware que puedes probar libremente','',0,'AIA=','13h199hg',1,0,'',2,0,0),(30168,6630,2,2,0,'87.218.146.224',1176984332,1,0,1,1,1,1,'','','Gerardo,\n\nHazlo así:\n[code:yjfxwd93]\n   local oPrn\n\n   PRINT oPrn\n\n      if Empty&#40; oPrn&#58;hDC &#41;\n         MsgStop&#40; &quot;Printer not ready!&quot; &#41;\n         return nil\n      endif\n\n      &#46;&#46;&#46;\n\n   ENDPRINT\n[/code:yjfxwd93]','',0,'AIA=','yjfxwd93',1,0,'',2,0,0),(30169,6740,3,904,0,'196.25.255.210',1176984429,1,0,1,1,1,1,'','','Thanks. Perfect.','',0,'AIA=','2p8f97at',1,0,'',904,0,0),(30170,6733,19,2,0,'87.218.146.224',1176984591,1,0,1,1,1,1,'','','Carlos,\n\nPodrías usar el dato bChange del GET para controlar la longitud del texto escrito y una vez escrita la longitud completa llamar a oDlg:GoNextCtrl():\n\noGet1:bChange := { || If( Len( RTrim( oGet:GetText() ) ) == &lt;n&gt;, oDlg:GoNextCtrl( oGet1:hWnd ),) }','',0,'AIA=','2va20gxy',1,0,'',2,0,0),(30171,6707,3,2,0,'87.218.146.224',1176985000,1,0,1,1,1,1,'','','Peter,\n\nIts strange because the C source code uses lLen to trim it:\n\n   WNetGetConnection( hb_parc( 1 ), ( char * ) bBuffer, &amp;lLen );\n\n   hb_retclen( ( char * ) bBuffer, lLen );\n\nSo it looks as a Windows API wrong behavior. But you got a good workaround <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','25rjyw50',1,0,'',2,0,0),(30172,6726,3,2,0,'87.218.146.224',1176985085,1,0,1,1,1,1,'','','Ehab,\n\nWhat text should be used to auto complete a Get ?','',0,'AIA=','wlei92ju',1,0,'',2,0,0),(30173,6701,6,2,0,'87.218.146.224',1176985382,1,0,1,1,1,1,'','','Podrías generar un archivo RFT (ascii) ó usar la clase TWord (busca en estos foros por TWord)','',0,'AIA=','2kuikbe2',1,0,'',2,0,0),(30174,6734,3,137,0,'151.38.8.195',1176986350,1,0,1,1,1,0,'','','Paco, I\'m still waiting for Outlook Bar patch (bottom line icons)\n\nRegards,\nRoberto Parisi','',0,'AIA=','3j6yozkx',1,0,'',137,0,0),(30175,6736,6,53,0,'189.139.24.229',1176986833,1,0,1,1,1,1,'','','Susana:\n\nTe recomiendo usar el editor MED  \n\n<!-- w --><a class=\"postlink\" href=\"http://www.med-editor.com\">www.med-editor.com</a><!-- w -->\n\nHace lo que necesitas y muchas cosas más, ah y es free.\n\nSaludos, Armando','',0,'AIA=','2i77rr0u',1,0,'',53,0,0),(30176,6741,6,644,0,'190.30.11.157',1176989213,1,0,1,1,1,0,'','rutina para grabar arrays en disco','Hace un tiempo usaba una función que me permitía grabar y recuperar arrays en disco. Me acuerdo la función para recuperar el array era Ft_restarray(). Si alguien lo tiene se lo agradecería. Muchas gracias de antemano','',0,'AIA=','3v6ok46t',1,0,'',644,0,0),(30177,6741,6,785,0,'190.64.201.139',1176991882,1,0,1,1,1,0,'','','Horacio:\n\nSi mal no recuerdo esa funcion es de Nanfor.lib\n\nLa lib estaba en las contribuciones de Harbour creo, no se ahora.\nHabría que preguntarle  a Antonio.\n\nSaludos.\n\nRuben Fernandez.','',0,'AIA=','1ntrf919',1,0,'',785,0,0),(30178,6736,6,785,0,'190.64.201.139',1176992170,1,0,1,1,1,0,'','','Susy:\n\nYo uso desde la epoca DOS xTreeGold, ahora existe\neXtreme que es algo parecido y es free.\n\nEste es el link\n<!-- m --><a class=\"postlink\" href=\"http://www.homepages.paradise.net.nz/link/\">http://www.homepages.paradise.net.nz/link/</a><!-- m -->\n\nEspero te sirva.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','3n3e6x50',1,0,'',785,0,0),(30179,6739,3,962,0,'200.161.191.179',1176992511,1,0,1,1,1,1,'','','Antonio,\n\nhehe\n\nisso foi a primeira coisa que fiz, além de outras propriedades básicas.\n\nMontei uma rotina pra listar todos, métodos e propriedades da Classe, e percebi que não há nenhuma variável de instância que tenha esta informação.\n\nQuando observei os valores de todas as propriedades, também considerei o fato deste número necessitar ser dividido ou multiplicado.\n\nTambém tentei GetCoors (oDlgMain).','',0,'AIA=','33mzyzcx',1,0,'',962,0,0),(30180,6742,3,460,0,'217.37.54.49',1176992877,1,0,1,1,1,0,'','Listbox refresh question','Hi,\n\nIn my app i am using LISTBOX from a resource file to browse a database.  Under DBFCDX i can set a scope and use oBrw:bLogiclen := {|| DBF-&gt;(cmxKeyCount())} and the the listbox behaves itself when the vertical thumbnail is dragged.  If under SQLRDD, as there isnt a way to find out how many records there are in a scope quickly (or is there?) the listbox display can corrupt until you press home/end or do a refresh - is there a way to repaint the listbox when the thumbnail is dragged?\n\nMy cmxKeyCount function is :\n\nfunc cmxKeyCount(xOrder, cBag)\ndbOrderInfo(DBOI_KEYCOUNTRAW, cBag, xOrder)\n\nHope the above is clear and thanks in advance\n\nPete','',0,'AIA=','pay1a45e',1,0,'',460,0,0),(30181,6737,6,743,0,'189.141.59.78',1176993224,1,0,1,1,1,0,'','','gracias por tu respusta\n\n   pero lo que quiero hacer es por decir, tengo un boton con una imagen, pero al querer desabilitar este boton le quiero cambiar la imagen, estuve probando con esta propiedad pero no se que estoy haciendo mal que no me lo hace\n\nlo defino asi\n\nREDEFINE ...... RESOURCE \"bitmap1\",\"bitmap2\",\"bitmap3\",\"bitmap4\" of Odlg \n\nboton:ChangeBitMap( cfile,cfile, lresource) \n\nasi lo quiero cambiar pero no me lo hace','',0,'AIA=','2tscbidy',1,0,'',743,0,0),(30182,6743,6,785,0,'190.64.201.139',1176993252,1,0,1,1,1,0,'','Archivos .db a dbf.... Como?','Amigos:\n\nDebo pasar unos archivos .db (Paradox ???) a .DBF, alguien\nsabe con que utilitario o como lo puedo hacer?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'AIA=','nzkf9nuu',1,0,'',785,0,0),(30183,6692,6,252,0,'201.140.19.58',1176993538,1,0,1,1,1,0,'','','','',0,'0','187sy8ns',1,0,'',252,0,0),(30184,6692,6,252,0,'201.140.19.58',1176993620,1,0,1,1,1,0,'','','Muchas gracias Jose Luis, lo voy a checar.\n\n   Saludos.','',0,'AIA=','3a2mt41s',1,0,'',252,0,0),(30185,6692,6,252,0,'201.140.19.58',1176993840,1,0,1,1,1,0,'','','Jose Luis.\n\n   No se puede descargar.  ¿Me lo podrias mandar a mi correo? :geussepe2004@hotmail.com.\n\n   Gracias','',0,'AIA=','29ungi3w',1,0,'',252,0,0),(30186,6741,6,78,0,'190.40.248.5',1176993914,1,0,1,1,1,0,'','','Horacio, te envie a tu email una rutunita que hace lo que requieres, pero para arrays unidimensionales, para multidimensionales (matrices) lo que hago es convertira a una dbf...\n\nSalu2\nWilli','',0,'AIA=','1bnwrgso',1,0,'',78,0,0),(30187,6744,6,900,0,'192.28.2.40',1176994404,1,0,1,1,1,0,'','Saturación de memoria','Aunque he visto que algunas personas han tenido problemas similares en ningún caso he encontrado la solución a mi problema y lo replanteo pra ver si alguien me puede ayudar.\n\nEjecuto una aplicación que captura las comprobaciones de gastos de viaje de mis usuarios, solo abre una base de datos pero usa muchas ventanas generdas a travez de archivos de recursos (.RC), al principio todo va bien, pero al capturar el programa va incrementandose en recursos consumidos y al final el sistema simplemente se cuelga y no hay otra forma de cerrarlo mas que usando el task manager de windows. Cuando salgo de una ventana en todos los casos la cierro (Ovent:end()) pero siempre llego al mismo resultado. ¿Alguna idea?\n\nMuchas gracias por su ayuda\n\nEsto es lo que uso:\nWindows 2000\nFivewin 2.6 para xHarbour 16 &amp; 32 bits\nResource builder 2.0\nAJ Make 0.33','',0,'QA==','2ei7g8rz',1,0,'',900,0,0),(30188,6727,3,303,0,'72.199.41.171',1176994592,1,0,1,1,1,0,'','','Romeo,\n\nIf the mail is coming off a POP3 server, then perhaps you can get the mail directly using TPop3. See samples\\testpop3.prg.\n\nJames','',0,'QA==','1y38vszc',1,0,'',303,0,0),(30189,3680,6,316,0,'213.97.245.163',1176995285,1,0,0,1,1,0,'','','[quote=&quot;thefull&quot;][quote=&quot;Baxajaun&quot;]Rafa,\n\ny EnterpriseDB <!-- m --><a class=\"postlink\" href=\"http://www.enterprisedb.com/\">http://www.enterprisedb.com/</a><!-- m --> ?\n\nSaludos,\n\nFélix[/quote]\n\nFelix, viendolo, creo que se basa en PostGre, por lo tanto, aceptamos\ntambien a Enterprisedb como unos de los mejores <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nPersonalmente, para APRENDER , contra MySql, es lo mas sencillo, porque no tiene ni la mitad de cosas que tiene el postgre , y eso que \nte ahorras en aprender.\n\nAhora si, si tienes que meter alguna aplicacion buscando \'robustez\',\nhay que mirar hacia PostGre antes que MySql.[/quote]\n\nRafa,\n\nMySQL es muy estable, no tengo mucha experiencia con Postgres pero para que sea MÁs estable tiene que serlo pero mucho. \nQue por ahí la licencia tan particular de MySQL te hace dejarlo de lado.. eso lo entiendo, pero hay cosas que no se le pueden discutir, y una es que es una de las más estables que hay.\nUna cosa que siempre me gustó de MySQL erspecto del resto es la sencillez de la replicación, que en Postgres es bastante más compleja.\nOtra cosa en la que me gusta más el MySQL es que los autoincrementales de Postgres necesitan que exista el sequencer para poder usarlos y no como MySQL que implementa el sequencer en la misma estructura de la BBDD.\nPunto a favor de Postgres: la orientacion a objetos.\n\nUn saludo,\n\nCarlos','',0,'QA==','3ibppbys',1,0,'',316,0,0),(30190,6733,19,92,0,'80.33.140.85',1176995847,1,0,1,1,1,0,'','Lector de código de barras.','Gracias Antonio,\n\nmás o menos por ahí estoy pensando solucionar el tema.\n\nLo que se me ocurre es que mediante ::bpostkey si la longitud del cBuffer es &gt;0 Activar un Timer que al cabo de 0,x segundos se desactive y cambie de foco hacia el siguiente oGet o realice una acción concreta (añadido a una array, etc.).\n\nDe esta menera no condiciono la longitud de la lectura efectuada, ya que se captaría todo el código de barras de manera muy rápida (supongo).\n\nDe momento empezaré por ahi a ver que tal va simulando pulsaciones rápidas en un oGet.\n\nSaludos y gracias.\nCarlos G.','',0,'QA==','2f8k7pks',1,0,'',92,0,0),(30191,6716,3,303,0,'72.199.41.171',1176996457,1,0,1,1,1,0,'','','Arimdam,\n\n&gt;I think my last post was too lengthy for support. \n\nYes, it is. We need a small self-contained example.\n\nFrom a quick look at your code, it appears that you are doing lots of things the hard way. For instance, coding all your controls instead of using resources is the hard way. \n\nIf you add the UPDATE clause to all your SAYs. Then you don\'t need this code:\n\n// Reload controls \nFor n = 1 to Len(oDlg1:aControls) \noDlg1:aControls[ n ]:Refresh(.T.) \nNext \n\n// Reload controls \naSize((oDlg1:aControls), 8 \n\nAll you have to do is oDlg:refresh() and all the controls with the UPDATE clause will be refreshed. This is built-in to oDlg.\n\nThen all you need to do to blank out all the SAYs is:\n\noDBF1:blank()\noDlg:refresh()\n\nIf you do this you can get rid of at least 50 lines of code. \n\nBut, I don\'t think you really need to blank out the SAYs--just reload the database object and redisplay:\n\noDBF1:skip() // or whatever...\noDlg:refresh()\n\nThis will probably solve your blinking problem.\n\nAnd, may I suggest naming your oDBF objects something more meaningfull, like oCustomer. This makes it much easter to read and understand. With search &amp; replace, this shouldn\'t take much time to do.\n\nAnd when you post code, please use the CODE feature of the (forum) editor so it doesn\'t loose all the indentation.\n\nRegards,\nJames','',0,'','12kyps27',1,0,'',303,0,0),(30192,6739,3,2,0,'87.218.146.224',1176998353,1,0,1,1,1,1,'','','Eric,\n\nNo te funciona oDlgMain:nHeight ?','',0,'','owtasrhb',1,0,'',2,0,0),(30193,6739,3,962,0,'200.161.191.179',1176998951,1,0,1,1,1,1,'','','Não funciona..\n\nconforme comentei.. não há nenhuma variavel de instância nesta classe que tem o valor correto, para eu usar como base.','',0,'','3paw1c0q',1,0,'',962,0,0),(30194,6744,6,2,0,'87.218.146.224',1176999719,1,0,1,1,1,1,'','','Mario,\n\nNormalmente ese problema se debe a un consumo de recursos GDI descontrolado. \n\nUsas bitmaps, brushes, fonts, etc. en tu aplicación ? Los liberas correctamente ?','',0,'','1ak3v4w6',1,0,'',2,0,0),(30196,6733,19,106,0,'85.34.123.173',1177000649,1,0,1,1,1,1,'','','Muchos lectores de codigos de barras agregan automaticamente ENTER, o sea, que cuando lee, va automaticamente al campo siguiente.\n\nSaludos.','',0,'gA==','mfm8wj0l',1,0,'',106,0,0),(30197,6739,3,2,0,'87.218.146.224',1177001034,1,0,1,1,1,1,'','','Eric,\n\nPlease try this sample, thanks\n[code:3tnxl90t]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT MsgInfo&#40; oDlg&#58;nHeight &#41;\n\nreturn nil\n[/code:3tnxl90t]','',0,'AIA=','3tnxl90t',1,0,'',2,0,0),(30198,6742,3,2,0,'87.218.146.224',1177001562,1,0,1,1,1,1,'','','Peter,\n\nIs there a way that you may issue this SQL sentence: \n\nSELECT COUNT( FieldName ) FROM TableName','',0,'AIA=','1jw9u3cf',1,0,'',2,0,0),(30199,6712,3,2,0,'87.218.146.224',1177002246,1,0,1,1,1,1,'','','Rossine,\n\nMany thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','yap3f505',1,0,'',2,0,0),(30200,6739,3,962,0,'200.161.191.179',1177002861,1,0,1,1,1,1,'','','Fiz o teste que pediu, lembrando que uso o Dialog via Resouce e o Button via @...\n\n[code:2gggyj9a]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\nlocal oDlg\n\nDEFINE DIALOG oDlg\n\nACTIVATE DIALOG oDlg CENTERED ;\n                ON INIT DlgOnInit&#40;self&#41;\n\nreturn nil\n\n//-----------------------------------------------------------------------------------\nfunction DlgOnInit&#40;Self&#41;\n? &#58;&#58;nHeight // 184\n? &#58;&#58;nWidth  // 324\n? &#58;&#58;nTop    // 0\n? &#58;&#58;nBottom // 151\n\n// 130, esta aparecendo no rodapé, conforme desejado&#46;\n@130,10 Button \'OK\' of self Size 60,23 Pixel\nreturn nil\n[/code:2gggyj9a]','',0,'AIA=','2gggyj9a',1,1177005723,'',962,1,0),(30201,6669,6,1025,0,'81.84.76.22',1177003138,1,0,1,1,1,0,'','Crystal with xHarbour','Hi Biel,\n\nI downloaded and installed the Crystal XI Release 2 for developers just like you said and recompile the code with this modifications:\n\n#include \"Fivewin.ch\"\n\nFUNCTION MAIN()\n\n    LOCAL oCrystal := CREATEOBJECT( \"CrystalRuntime.Application\" )\n    LOCAL oReport  := oCrystal:OpenReport( \"val_mov.rpt\" )\n\n    LOCAL oWnd, oCRViewer\n\n    DEFINE WINDOW oWnd\n\n    oCRViewer = TActiveX():New( oWnd, \"CrystalReports11.ActiveXReportViewer.1\" )\n            \n    oCRViewer:SetProp( \"ReportSource\", oReport )\n    oCRViewer:Do( \"ViewReport\" )\n\n    oWnd:oClient = oCRViewer\n\n    ACTIVATE WINDOW oWnd;\n             MAXIMIZED\n\n    RETURN NIL\n\nAnd this is the error that popup from the app:\n\n\"FiveWin for Harbour GPF occurred\n\nCalled from CREATACTIVEX(0)\nCalled from TACTIVEX&#058;NEW(0)\nCalled from MAIN(13)\"\n\nIs something missing in my code ?\n\nThanks again for the help,\n\nMário Paiva','',0,'AIA=','1yjnf9s1',1,0,'',1025,0,0),(30202,6739,3,2,0,'87.218.146.224',1177003358,1,0,1,1,1,1,'','','Eric,\n[code:39wdgl0f]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg SIZE 400, 200\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT PlaceControl&#40; oDlg &#41;\n\nreturn nil\n\nfunction PlaceControl&#40; oDlg &#41;\n\n   @ oDlg&#58;nHeight - 60, 20 BUTTON &quot;Ok&quot; PIXEL SIZE 80, 20\n   \nreturn nil\n[/code:39wdgl0f]\n[url=http&#58;//imageshack&#46;us:39wdgl0f][img:39wdgl0f]http&#58;//img373&#46;imageshack&#46;us/img373/3927/ericlg5&#46;png[/img:39wdgl0f][/url:39wdgl0f]','',0,'GIA=','39wdgl0f',1,0,'',2,0,0),(30203,6725,7,456,0,'217.124.41.110',1177004141,1,0,1,1,1,1,'','','Nada que no se puede pagar  con una caña(CruzCampo). <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'GIA=','231aij93',1,0,'',456,0,0),(30204,6744,6,900,0,'192.28.2.40',1177005132,1,0,1,1,1,0,'','','Antonio muchas gracias por tu pronta respuesta, como te imaginaras estoy incursionando en esta plataforma y me falta un buen por aprender, en cuanto a tu pregunta te puedo decir que no uso fonts, bitmaps o brushes en este programa, te transcribo parte del codigo para que tengas una mejor idea de lo que hago (y posiblemente me puedas sugerir alguna alternativa para hacer el programa mas eficiente.\n\n\n*Funcion para capturar facturas\nfunction capfacts()\n   public odial4\n   sino=\"S\"\n   do while sino=\"S\"\n      cNfac=space(12)\n      nMonf=0\n      dFechf=date()\n      ivapor=15\n      nrep1 := nrep1+\"   \"+nrep2+\"   \"+nrep3+\"   \"+nrep4\n      nomtec=\"Nombre del técnico: \"+alltrim(n1)+\" \"+alltrim(n2)\n      nomsolo=alltrim(n1)+\" \"+alltrim(n2)\n      public aConcepto := {\"Alimentos\",\"Hospedaje\",\"Telefono\",\"Combustible\",\"Papelería\",\"Otros\",\"Casetas\",\"Transporte\",\"Sin comprobación\"}\n      cConcepto := \" \"\n      define dialog odial4 resource \"capfacs\" of oVentprinc\n      redefine get nomtec ID 0 of oDial4\n      redefine get numcomp ID 2 of oDial4\n      redefine get cNfac ID 4 of oDial4 picture\"@!\"  valid IIF(cNfac=\" \",.f.,.t.)\n      redefine get nMonf ID 6 of Odial4 picture(\"$###,###.##\") valid IIF(nMonf=0,.f.,.t.)\n      redefine get dFechf ID 7 of oDial4\n      redefine get ivapor ID 9 of oDial4 picture \"##\" valid IIF(ivapor=0,.f.,.t.)\n      redefine combobox cconcepto ID 12 ITEMS aconcepto on change eltipo() of oDial4\n      activate dialog oDial4\n      sino=\"N\"\n   enddo\n   return\n\n\n*funcion para elegir tipo de factura\nfunction eltipo()\n   odial4:end()\n   public oDialpro\n   do case\n   case cconcepto=\"Alimentos\"\n      facalim()\n   case cconcepto=\"Hospedaje\"\n      fachosp()\n   case cconcepto=\"Telefono\"\n      factele()\n   case cconcepto=\"Combustible\"\n      faccomb()\n   case cconcepto=\"Papelería\"\n      facpape()\n   case cconcepto=\"Otros\"\n      facotro()\n   case cconcepto=\"Casetas\"\n      faccase()\n   case cconcepto=\"Transporte\"\n      factran()\n   case cconcepto=\"Sin comprobación\"\n      sincomp()\n   endcase\nreturn\n\n\n**Inician ordenes y funciones para captura de factura de alimentos\nfunction facalim()\n   prop=0\n   tope1=150\n   define dialog oDialpro resource \"propina\" of oDial4\n   redefine get prop ID 1 of oDialpro picture\"$###.##\"\n   redefine button ID 2 action oDialpro:end()\n   activate dialog oDialpro\n   ivapo=ivapor/100\n   subt1=nMonf-prop\n   subt2=subt1/(ivapo+1)\n   miva=subt2*(ivapo)\n   define dialog oDialrali resource \"resali\" of oDial4\n   redefine get folcom ID 9 of oDialrali\n   redefine get cNfac ID 10 of oDialrali\n   redefine get cconcepto ID 11 of oDialrali\n   redefine get subt2 ID 12 of oDialrali picture\"$###,###.##\"\n   redefine get miva ID 13 of oDialrali picture\"$###,###.##\"\n   redefine get prop ID 14 of oDialrali picture\"$###,###.##\"\n   redefine get nMonf ID 15 of oDialrali picture\"$###,###.##\"\n   redefine button ID 7 of oDialrali action regali()\n   redefine button ID 8 of oDialrali action rechali()\n   activate dialog oDialrali\n   return\n\n\n\n*funcion que agrega el registro capturado a la base de datos\n   function regali()\n      odialrali:end()\n      comexed=space(60)\n      IF subt2&gt;tope1\n         define dialog oDialalex resource \"alimexed\" of oVentprinc\n         redefine get comexed ID 1 of oDialalex\n         redefine button ID 2 of oDialalex action oDialalex:end()\n         activate dialog oDialalex\n      ENDIF\n      use &amp;tmpcap\n      append blank\n      go bottom\n      IF lock()\n         replace comp_orig with folcom, fechcomp with date(), clase with 1, fechaf with dFechf, nofact with cNfac\n         replace alimentos with subt2, iva with miva, totalxf with nMonf, tech_id with ctechid, subtotal with subt2\n         replace total with nMonf, propina with prop, reports with nrep1, iva_por with ivapor, observa with comexed\n         replace status with \"G\"\n         unlock\n      ENDIF\n      agrotra()\n      return\n\n\n\n*funcion que desecha el registro capturado\n    function rechali()\n      oDialrali:end()\n      agrotra()\n      return\n\n\n****************************************\n*Finalizan ordenes y funciones de factura de alimentos (de aqui en *adelante muestro ventanas para el desglose por tipo de factura y *despues le pregunto al usuario si desea capturar otra factura)\n****************************************\n\n\n        *funcion que permite elegir si desea capturar otra factura\n         function agrotra()\n            define dialog oDialotra resource \"otraf\" of oventprinc\n            redefine button ID 1 of odialotra action agreotra()\n            redefine button ID 2 of oDialotra action noagreotra()\n            activate dialog oDialotra\n            return\n\n\n\n        *funcion que al elegir capturar otra llama nuevamente a la funcion de captura\n         function agreotra()\n            oDialotra:end()\n            capfacts()\n            return\n\n\n\n\n        *Funcion que al elegir no agregar factura pide declaracion de rembolso\n\n         function noagreotra()\n            public oDialreem\n            oDialotra:end()\n            define dialog oDialreem resource \"reembolso\" of oVentprinc\n            redefine button ID 1 of oDialreem action (odialreem:end(),decdev())\n            redefine button ID 2 of oDialreem action (oDialreem:end(),addreg())\n            activate dialog oDialreem\n            return\n\n\n\n        *funcion que declara el rembolos a la empresa\n         function decdev()\n            public oDialdede\n            montdep := 0\n            fechdep := date()\n            obser1 := space(60)\n            oDialreem:end()\n            define dialog oDialdede resource \"declarad\" of oVentprinc\n            redefine get nomsolo ID 1 of oDialdede\n            redefine get folcom ID 3 of oDialdede\n            redefine get montdep ID 7 of oDialdede picture\"$###,###.##\"\n            redefine get fechdep ID 9 of oDialdede\n            redefine get obser1 ID 13 of oDialdede\n            redefine button ID 14 of oDialdede action (oDialdede:end(), insregde())\n            redefine button ID 15 of oDialdede action oDialdede:end()\n            activate dialog oDialdede\n            return\n\n        *Funcion que inserta el registro de rembolso a la base de datos\n         function insregde()\n            oDialdede:end()\n            use &amp;tmpcap\n            append blank\n            IF rlock()\n               replace nofact with \" \", comp_orig with folcom, fechcomp with date(), clase with 0, fechr with fechdep\n               replace tech_id with ctechid, reports with nrep1, observa with obser1, rembolso with montdep\n               replace status with \"G\"\n               unlock\n            ENDIF\n            do addreg\n            return\n\n\n\n        *Agrega todos los registros capturdos de la base de datos de captura (temporal) a la base de datos central\n         function addreg()\n            use &amp;dbgast\n            append from &amp;tmpcap\n            return','',0,'GIA=','5xp2basf',1,0,'',900,0,0),(30205,6743,6,785,0,'190.64.197.200',1177005243,1,0,1,1,1,0,'','','Gracias Fernando.\n\nLo intento.\n\nSaludos\n\nRuben Fernandez.','',0,'GIA=','3uc6znss',1,0,'',785,0,0),(30206,6739,3,962,0,'200.161.191.179',1177005675,1,0,1,1,1,1,'','','Realmente é um bonito dialogo que montou e funciona a contento.\n\nPor favor, observe os números, e como eu disse, uso RESOURCE.\n\n[code:3it4eqve]\nfunction DlgMain&#40;&#41;\nlocal oDlgMain\n\n// Definição no &#46;RC &#40;Pelles C&#41; Width = 370, Height = 250\n\nDefine Dialog oDlgMain NAME \'CDT_CLIENTE\'\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nActivate Dialog oDlgMain ;\n         On Init OnInitMain&#40;oDlgMain&#41; ;\n         Center\n\nreturn nil\n//---------------------------------------------------------------------\n\nfunction OnInitMain&#40;Self&#41;\n\n? &#58;&#58;nHeight // 438\n? &#58;&#58;nWidth  // 561\n? &#58;&#58;nTop    // 0\n? &#58;&#58;nBottom // 151\n\n@378,410 button \'&amp;Gravar\'   of Self Size 60,23 Pixel &#46;&#46;&#46;\n@378,480 button \'&amp;Cancelar\' of Self Size 60,23 Pixel &#46;&#46;&#46;\n\nreturn nil\n\n[/code:3it4eqve]\n\n::nHeight - 30 = 408, se eu linha acima de 378, o botão não aparecerá.\n\nAssim o botão ficará escondido.\n@::nHeight-30,410 button \'&amp;Gravar\'   of Self Size 60,23 Pixel ...\n\nClaro que se eu subtrair com um número bem maior que 30, funcionará, mas qual seria a lógica disso ?!\n\nPlease Antonio, help-me.','',0,'AIA=','3it4eqve',1,0,'',962,0,0),(30207,6712,3,217,0,'200.159.120.34',1177006060,1,0,1,1,1,0,'','','Rossine, tenho um xBrowse cujos dados vem de um array montados dinamicamente. Neste caso, quando as colunas ultrapassam a largura do browse e navego pra direita, quando deveria rolar para as colunas não visíveis ele não rola...\nVou ver se monto um exemplinho pra te demonstrar, o problema é que essa semana estou meio corrido, hehehehe\nE aquele problema da navegação pra baixo não sarou ainda <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n[ ]\'s\nMaurilio','',0,'','3a1acojc',1,0,'',217,0,0),(30208,6745,3,264,0,'200.91.3.10',1177007727,1,0,1,1,1,1,'','Off Topic - Busco a Julio LLinas','Hola julio Podrias comunicarte a mi msn ?\n\n<!-- e --><a href=\"mailto:talquipen@hotmail.com\">talquipen@hotmail.com</a><!-- e -->\n\nSaludos','',0,'','2cjc2kcf',1,0,'',264,0,0),(30209,6691,3,264,0,'200.91.3.10',1177008160,1,0,1,1,1,1,'','','Masters\n\nAny idea for compact a mdb, like \"Compact &amp; repair\" but with SQL instruccion ?\n\ntnks\n\nSpanish ON------------------\n\nMaestros, \nAlguna idea de como compactar una base mdb, como \"Compactar y reparar\" del Access, pero como instruccion SQL ?\n\nGracias.','',0,'','hld0hyg6',1,0,'',264,0,0),(30210,6746,3,529,0,'200.233.185.181',1177010219,1,0,1,1,1,0,'','Uestudio','HI, i see several topics about use of uestudio with fwh, where i found last configurations (updated), step by step to use this ide with fwh?\nthanks','',0,'','1qqqhrxn',1,0,'',529,0,0),(30211,6747,6,694,0,'200.189.112.21',1177011395,1,0,1,1,1,1,'','xBrowse com array problemas !','Amigos, estou tento problemas quando preciso recarregar a ARRAY.\n\nAcontece, que ao dar o comando:\n uBrw:SetArray(bStruc,.t.)\n uBrw:refresh()\nEsta desconfigurando as colunas da browse.\n\nfonte:\n\nuBrw := TXBrowse():New( oDlp )\n\nbStruc :={{\"\",\"Sim\",0,CTOD(\"\"),CTOD(\"\"),0}}\n\nuBrw:SetArray( bStruc, .t. )\n\nuBrw:aCols[1]:cHeader        := \"Parcela\"\nubrw:aCols[3]:nWidth         := 50 \nuBrw:aCols[1]:cEditPicture   := \"999\"\nuBrw:aCols[1]:bClrEdit       := uBrw:bClrStd\nuBrw:aCols[1]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 1 ] := x }\n\nuBrw:aCols[2]:cHeader        := \"Recebida\"\nubrw:aCols[3]:nWidth         := 60 \nuBrw:aCols[2]:nDataStrAlign  := AL_LEFT\nuBrw:aCols[2]:nHeadStrAlign  := AL_LEFT\nuBrw:aCols[2]:nEditType      := EDIT_LISTBOX\nuBrw:aCols[2]:aEditListTxt   := {\"Sim\", \"Não\"}\nuBrw:aCols[2]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 2 ] := x }\nuBrw:aCols[2]:aEditListBound := {\"Sim\", \"Não\"}\nuBrw:aCols[2]:bClrEdit       := uBrw:bClrStd\n\nuBrw:aCols[3]:cHeader        := \"Valor\"\nubrw:aCols[3]:nWidth         := 70 \nuBrw:aCols[3]:cEditPicture   := \"@E 999,999.99\"\nuBrw:aCols[3]:nDataStrAlign  := AL_RIGHT\nuBrw:aCols[3]:nHeadStrAlign  := AL_RIGHT\nuBrw:aCols[3]:bOnPostEdit    := {|o,x| bStruc[uBrw:nArrayAt, 3 ] := x }\nuBrw:aCols[3]:nEditType      := EDIT_GET\nuBrw:aCols[3]:bStrData       := {||    TRANS(bStruc[uBrw:nArrayAt, 3 ]      ,\"@E 999,999.99\")} \n\nuBrw:aCols[4]:cHeader        := padc(\"Vencimento\",11)\nubrw:aCols[3]:nWidth         := 80 \nuBrw:aCols[4]:nDataStrAlign  := AL_CENTER\nuBrw:aCols[4]:nHeadStrAlign  := AL_CENTER\nuBrw:aCols[4]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 4 ] := x }\nuBrw:aCols[4]:nEditType      := EDIT_GET\n\nuBrw:aCols[5]:cHeader        := padc(\"Data Pgto\",11)\nubrw:aCols[3]:nWidth         := 80 \nuBrw:aCols[5]:nDataStrAlign  := AL_CENTER\nuBrw:aCols[5]:nHeadStrAlign  := AL_CENTER\nuBrw:aCols[5]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 5 ] := x }\nuBrw:aCols[5]:nEditType      := EDIT_GET\n\nuBrw:aCols[6]:cHeader        := \"Valor Pgto\"\nubrw:aCols[6]:nWidth         := 70 \nuBrw:aCols[6]:cEditPicture   := \"@E 999,999.99\"\nuBrw:aCols[6]:nDataStrAlign  := AL_RIGHT\nuBrw:aCols[6]:nHeadStrAlign  := AL_RIGHT\nuBrw:aCols[6]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 6 ] := x}\nuBrw:aCols[6]:nEditType      := EDIT_GET\nuBrw:aCols[6]:bStrData       := {||    TRANS(bStruc[uBrw:nArrayAt, 6 ],\"@E 999,999.99\")} \n\n\nuBrw:nMarqueeStyle           := MARQSTYLE_HIGHLCELL\nuBrw:nColDividerStyle        := LINESTYLE_DARKGRAY \nuBrw:lColDividerComplete     := .t.\nuBrw:nFooterLines            := 2\nuBrw:lFooter                 := .t.\nuBrw:aCols[ 1 ]:cFooter      := \"Total:\"\n\nuBrw:bClrStd                 := { ||{ RGB(0,0,0), iif( uBrw:nArrayAt % 2 == 0, RGB(234,255,234) , RGB(255,255,255) ) } }\nuBrw:nFreeze                 := 6\nuBrw:lHScroll                := .f.\nuBrw:lVScroll                := .f.\nuBrw:lFastEdit               := .T.   //ENTER cod barras\nuBrw:CreateFromResource( 101 )\n\n\n***********************************************************\nSTATIC FUNCTION CRIA_TITULOS(cocond,iniciemis,tivalor,uBrw)\n***********************************************************\nLOCAL X,vvaltotal:=0,calcv:=0,ultparc\n\nselect condicoes\ndbsetorder(1)\nif dbseek(cocond)\n   bStruc:={}\n   calcv :=round(tivalor/condicoes-&gt;co_parc,2)      \n   Select TabCondicoes\n   dbsetorder(1)\n   dbseek(str(cocond,4,0))\n   do while TabCondicoes-&gt;pg_codi==cocond .and. TabCondicoes-&gt;(! eof())\n       iniciemis+=TabCondicoes-&gt;pg_praz\n       AADD(bStruc,{TabCondicoes-&gt;pg_nupa,\"Sim\",calcv,iniciemis,ctod(\"\"),0})            \n       TabCondicoes-&gt;(dbskip())\n   enddo\n   IF LEN(bStruc)&gt;0\n      vvaltotal:=0\n      ultparc  :=len(bStruc)\n      FOR X:=1 TO (LEN(bStruc)-1)\n          vvaltotal+=round(bStruc[x][3],2)\n      NEXT\n      bStruc[ultparc][3]:=round(tivalor-vvaltotal,2)\n   else\n      bStruc :={{\"\",\"Sim\",0,CTOD(\"\"),CTOD(\"\"),0}}\n   ENDIF\n   uBrw:SetArray(bStruc,.t.)  ***aqui o problema\n   uBrw:refresh()                  ***esta desconfigurando as colunas\nendif\nRETURN(.T.)\n \n\nO que estou fazendo de errado?\n\nDesde já agradeço\n\nAokisantos <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'','2qa6h8wc',1,0,'',694,0,0),(30212,6691,3,6,0,'87.19.208.102',1177011459,1,0,1,1,1,1,'','','[code:25fne4yj]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oJro &#58;= CREATEOBJECT&#40; &quot;JRO&#46;JetEngine&quot; &#41;\n\n    LOCAL cConStr1 &#58;= &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=mydb&#46;mdb&quot;\n    LOCAL cConStr2 &#58;= &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=mydb2&#46;mdb&quot;\n\n    oJro&#58;CompactDatabase&#40; cConStr1, cConStr2 &#41;\n\n    RETURN NIL[/code:25fne4yj]\n\nEMG','',0,'AIA=','25fne4yj',1,0,'',6,0,0),(30213,6691,3,264,0,'200.91.3.10',1177012265,1,0,1,1,1,1,'','','OK, any class to include or \"pure &amp; hard code\"\n\nSpanish ON\n\nOk, alguna clase a incluir o \"codigo puro y duro\" ?\n\n\nPD: Sql instruction via ODBC, exists ?','',0,'AIA=','1n07ujrq',1,0,'',264,0,0),(30214,6691,3,6,0,'87.19.208.102',1177012434,1,0,1,1,1,1,'','','Pure xHarbour code.\n\nEMG','',0,'AIA=','gdy3xg45',1,0,'',6,0,0),(30215,6716,3,705,0,'61.0.136.168',1177013006,1,0,1,1,1,0,'','','James,\n\nThanks for your guideline and also for quick look to my code. I am sure this will help me in future during coding\n\n[b:380kfr59]But, I am stuck in different part now. I am not updating any data ([color=darkred:380kfr59][u:380kfr59]As this is only for information system. In very few occasion I am updating the information in Dbf[/u:380kfr59][/color:380kfr59]) in any Dbf, simply erase the information from screens and entering next client Id. May be buffers are not clear and all problem due to this reasons.[/b:380kfr59]\n\n[u:380kfr59]My steps are:[/u:380kfr59]\n\n1&gt;  I am entering a client Id, the client’s detail (i.e. name, address, …..other information) are picking up from two separate Dbf and displaying on screen. Near about 100 nos. information I pick up from Dbf and display on screen.\n\n2&gt; I am using command, @ nRow(), nCol() Say oSay Prompt  oDbf:xFld of oDlg1 ……. Using same Say command for every display [ I think you have observed that in [b:380kfr59]RegValCheck(….)[/b:380kfr59]]\n \n3&gt; After completing the job with particular client, I am erasing the Say information from display area [ I think you have observed that in [b:380kfr59]CheckESC (….)[/b:380kfr59]]\n\n4&gt; Erasing and removed the information and entering next client Id.\n\n[u:380kfr59]My observation:[/u:380kfr59]\n\nWhile I am entering a new client’s Id, first it is display previous clients details, in @Say area and then current client details. I am erasing and removing all @Say information from display area and also from oDbf 1, oDbf2,……. Even after that it is displaying previous client details.\n\nAs Enrico suggested to use oSay:SetText(), I can not understand where and how should I use this. Because I am using oSay to display all 100 information of a client. \n\nWith regards,\nArindam','',0,'Qw==','380kfr59',1,0,'',705,0,0),(30216,6739,3,2,0,'87.218.146.224',1177013497,1,0,1,1,1,1,'','','Eric,\n\n&gt; // Definição no .RC (Pelles C) Width = 370, Height = 250\n\nThose values are [color=red:3kind9ol]logical units[/color:3kind9ol], not pixels\n\n&gt;&gt;\nThe GetDialogBaseUnits function returns the dialog box base units used by Windows to create dialog boxes. Both Windows and applications use these units to convert the width and height of dialog boxes and controls from dialog units, as given in dialog box templates, to pixels, and vice versa. \n\nLONG GetDialogBaseUnits(VOID)\n \n\nParameters\n\nThis function has no parameters. \n\nReturn Values\n\nThe return value is a 32-bit value that contains the dialog base units. The low-order word of the return value contains the horizontal dialog box base unit, and the high-order word contains the vertical dialog box base unit. \n\nRemarks\n\nThe horizontal base unit is equal to the average width, in pixels, of the characters in the system font; the vertical base unit is equal to the height, in pixels, of the font. Furthermore, each horizontal base unit is equal to 4 horizontal dialog units; each vertical base unit is equal to 8 vertical dialog units. Therefore, to convert dialog units to pixels, an application applies the following formulas: \n\npixelX = (dialogunitX * baseunitX) / 4  \npixelY = (dialogunitY * baseunitY) / 8  \n \n\nSimilarly, to convert from pixels to dialog units, an application applies the following formulas: \n\ndialogunitX = (pixelX * 4) / baseunitX  \ndialogunitY = (pixelY * <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> / baseunitY  \n \n\nThe multiplication is performed before the division to avoid rounding problems if base units are not divisible by 4 or 8. \n&gt;&gt;','',0,'Ag==','3kind9ol',1,0,'',2,0,0),(30217,6744,6,2,0,'87.218.146.224',1177013779,1,0,1,1,1,1,'','','Tu código se ve bien,\n\nTienes instaladas todas las actualizaciones de Windows 2000 ? Es importante que las instales y que vuelvas a probar','',0,'Ag==','1xzvzfkx',1,0,'',2,0,0),(30218,6746,3,2,0,'87.218.146.224',1177013882,1,0,1,1,1,1,'','','Norberto,\n\nIf you download the lastest UEStudio from IDM website, it already provides support for xHarbour and FWH <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nHere you have a tutorial video (its for FWPPC, but its practically the same for FWH):\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->','',0,'Ag==','3rw0m1zl',1,0,'',2,0,0),(30219,6744,6,900,0,'192.28.2.40',1177015304,1,0,1,1,1,0,'','','Si, tengo instalado w2k SP 4 y todas las actualizaciones de seguridad, de hecho tengo activadas las actualizaciones automaticas de windows, asi como se las active a todos los usuarios de este programa.\n\nEn algun foro leí acerca de aumentar los valores en el fivewin.lnk o generar un acceso directo y activar una casilla para ejecutarlo en un espacio separado de memoria pero hasta el momento no he encontrado la solución.\n\nNuevamente te agradezco tu apoyo y espero que puedas yudarme a resolverlo.','',0,'Ag==','2u41f6j4',1,0,'',900,0,0),(30220,6748,3,6,0,'87.19.208.102',1177016074,1,0,1,1,1,1,'','Bug in TWBrowse scrollbar','This is the sample:\n\n[code:3a34qsnm]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:3a34qsnm]\n\nTry to press CTRL-C or CTRL-R and you will see that the scrollbar thumb will move, respectively, down and up (while the highlight bar keep holding on the first record).\n\nEMG','',0,'AIA=','3a34qsnm',1,0,'',6,0,0),(30221,6743,6,362,0,'200.168.52.156',1177016243,1,0,1,1,1,1,'','','[quote=&quot;Fernando Mancera&quot;:2ywl2i0k]Hola Ruben,\n\n[quote:2ywl2i0k]Debo pasar unos archivos .db (Paradox ???) a .DBF, alguien \nsabe con que utilitario o como lo puedo hacer? [/quote:2ywl2i0k]\n\nBusca Visual FoxPro y PARADOX en google. Se puede hacer con ADO.[/quote:2ywl2i0k]\n\n\nFernando, por favor, que és ADO?','',0,'gA==','2ywl2i0k',1,0,'',362,0,0),(30222,6669,6,138,0,'189.141.67.139',1177016343,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:5z1tq0x8]Por cierto Rene, como te las arreglas para distribuir Crystal con tus aplicaciones. \nA mi solo me ha ido bien con InstallShield, pero el tamaño de la instalacion es muy grande, y aunque dice que puedes marcar que modulos incluir, a mi no me hace ni caso y siempre me pone todos los modulos en la instalacion.[/quote:5z1tq0x8]\n\nYo instalo los modulos que vienen en la ayuda que tienen que instalarse, como 7 u 8 DLLs adicionales y como bien mencionas, efectivamente, la instalacion crece bastante, pero no hay de otra, Crystal requiere de muchos recursos.','',0,'gA==','5z1tq0x8',1,0,'',138,0,0),(30223,6743,6,138,0,'189.141.67.139',1177016595,1,0,1,1,1,1,'','','ADO = Activex Data Objects.\n\nTecnicamente es una interfaz de windows que te permite conectarte con cualquier servidor y formato de base de datos utilizando unicamente un \"ADO PROVIDER\" y una cadena de conexion, sin necesidad de ODBC u de otro componente. \n\nEn xHarobur ADO se maneja por OLE nativo y funciona muy bien.\n\nMi defincion de ADO = Forma de Microsoft de decirnos a los programadores XBase.... ustedes no estaban tan equivocados como pensabamos, tanto asi que vamos a copiar la forma en que ustedes manejan las tablas, pero la vamos a modificar \"un poco\".','',0,'gA==','2bj8qk92',1,0,'',138,0,0),(30224,6637,2,138,0,'189.141.67.139',1177016866,1,0,1,1,1,1,'','','No necesitas mucho:\n\nxHarbour (preferentemente), ya que el soporte OLE, necesario para acceder a ADO es nativo.\n\nEl Borland C++ (xHarbour al compilar no genera .OBJ, genera .C, luego se necesita un compilador de C para generar el EXE final)\n\nEl Workshop te sigue sirviendo, solo que en vez de guardar las cosas en un DLL tendras que hacerlo en un RC\n\ny FiveWin Harbour, preferentemente la version mas reciente.\n\nAaaah y un buen gestor de compilacion, como VerCE.\n\nTu codigo FW de 16 bits pasa a 32 bits con apenas unos cuantos cambios.','',0,'gA==','3purch1t',1,0,'',138,0,0),(30225,6738,6,138,0,'189.141.67.139',1177017221,1,0,1,1,1,1,'','','Revisa que ningun otro programa tenga abierto el DBF que causa el error.\n\nO prueba quitando el AdsLocking(), ponlo en .F.\n\nRecuerda que ADS no puede abrir un archivo que este siendo utilizado por otra aplicacion que no sea cliente ADS y viceversa, un programa normal no puede abrir un archivo DBF que este siendo utilizador por una aplicacion cliente ADS','',0,'gA==','rdcxskfj',1,0,'',138,0,0),(30226,6736,6,838,0,'80.59.225.15',1177017227,1,0,1,1,1,0,'','','Para mi, como dice Antonio el mejor Total Comander, que entre otras cosas, te puede comparar ficheros por contenido, y buscar cadenas dentro de él, y otra clase de virguerías.\nAdemás de manejar FTP de la forma mas sencilla que he visto y multiples cosas mas\n\nSaludos\n\nJose Luis','',0,'gA==','1x7z480x',1,0,'',838,0,0),(30227,6716,3,303,0,'72.199.41.171',1177018538,1,0,1,1,1,0,'','','&gt;But, I am stuck in different part now. \n\nI am not sure what you are saying. Are you saying that the example you showed us is not what you are trying to debug?\n\n&gt;I am not updating any data (As this is only for information system. In very few occasion I am updating the information in Dbf) in any Dbf, simply erase the information from screens and entering next client Id. May be buffers are not clear and all problem due to this reasons.\n\nAh, perhaps you are confused. When I said \"updating\" I was referring to updating the SAYs with data from a database object NOT updating the database from the SAYs.\n\nThis code from your example IS displaying data from a database object:\n\n@ 05, 118 Say oSay PROMPT oDbf:OrderDt of oDlg1 ; \nPicture \"@D\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1 \n\nIf you add the UPDATE clause to the SAY statement:\n\n@ 05, 118 Say oSay PROMPT oDbf:OrderDt of oDlg1 ; \nPicture \"@D\" Color RGB(0, 0, 0), RGB(170, 200, 210) SIZE 82, 12 Font oFont1 UPDATE\n\nAnd then blank the database object and refresh the dialog:\n\noDBF:blank()\noDlg:refresh()\n\nThe SAY should be empty.\n\nYou could probably test this in your existing code by just adding the UPDATE clause to one of the SAYS, then adding the code to blank the database object and refresh the dialog.\n\nJames','',0,'gA==','fjl4et9n',1,0,'',303,0,0),(30228,6744,6,2,0,'87.218.146.224',1177019770,1,0,1,1,1,1,'','','Mario,\n\nPara descartar que pueda tratarse de un problema relacionado con Windows 2000, podrías probarlo en una versión distinta de Windows, a ser posible XP SP2 ?','',0,'gA==','n3pen6p3',1,0,'',2,0,0),(30230,6743,6,362,0,'200.168.52.156',1177023566,1,0,1,1,1,1,'','','Gracias Maestros.,\n\nDonde puedo pegar ADO, y como funciona?\n\nRegards, saludos.','',0,'gA==','1yw1n9jl',1,0,'',362,0,0),(30231,6735,6,582,0,'190.31.98.94',1177026829,1,0,1,1,1,0,'','Re: CanalFive Web','TROESMA !!!!\nExcelente !!!\n\nComo tienta tu trabajo !!! =&gt;))\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','3lhnb02s',1,0,'',582,0,0),(30232,6746,3,879,0,'65.95.238.89',1177027165,1,0,1,1,1,0,'','','Antonio,\n\nThe latest UEStudio config is an older version than the one currently posted on this forum. Specifically in the IDM config:\n[code:2adner0b]GUI = none|FWH[/code:2adner0b]This was deigned for an application that uses either the xHarbour Text Console or FiveWin. Other [x]Harbour GUI drivers are not supported. Also, there is no option setting in the UES config to select between Harbour or xHarbour.\n[code:2adner0b]3rd Party Rdd = None|RddAds[/code:2adner0b]IDM has assumed the only 3rd Party add-on was ADS RDD. The version posted on this forum allows any third party add-ons to be used as per Richard\'s request.\n[code:2adner0b]BOPT = -c -D__EXPORT__ -I$&#40;CPATH&#41;\\INCLUDE;$&#40;BPATH&#41;\\INCLUDE$&#40;User Include Path&#41;$&#40;GUII&#41; $&#40;DEFS&#41; [/code:2adner0b]This may have been my fault. The [b:2adner0b]-D__EXPORT__[/b:2adner0b] is used with [x]Harbour, not Bcc32. BOPT is confusing as it could be interpreted as Build OPTions or Borland OPTions. The config posted on this forum clearly identifies the [x]Harbour options (Harbour.exe) as HOPT and the Borland compiler oprions (Bcc55.exe) as COPT. I consider that Harbour.exe is a conversion program from a PRG source to a C Source. It is Borland\'s Bcc32.exe that is the compiler.\n\nHopefully, the next update of UEStudio will contain these latest changes.\n\nWhile on the soapbox, let me provide some other info. Some time ago it was reported that a single file such as Hello.prg could not be compiled. I believe it to be a problem in the build PRJ file. If a single file is used, the beginning of the PRJ file is as follows:\n[code:2adner0b]&#91;Files&#93;\n0=hello&#46;prg\n&#91;Debug Settings&#93;\nProgram Arguments=\nSelected Debugger=0\nSource Paths=\nSymbol Paths=\nWorking Directory=[/code:2adner0b] But if 2 or more files are used you get this:\n[code:2adner0b]&#91;Debug Settings&#93;\nProgram Arguments=\nSelected Debugger=0\nSource Paths=\nSymbol Paths=\nWorking Directory=\n&#91;Files&#93;\n0=hello&#46;prg\n1=Test2ndprg&#46;prg[/code:2adner0b]Because the [b:2adner0b]File[/b:2adner0b] and [b:2adner0b]Debug[/b:2adner0b] settings are reversed, the application gets built minus Hello.prg. IDM is aware of this and I am told the next update will fix this problem.\n\nLastly, I was surprised when I was told about the lack of reported problems with the included Resource Editor as I have identified many inconsistancies.\n\nA big problem is the lack of help information. I have already addressed changing a control name by using [b:2adner0b]F2[/b:2adner0b].\n\nYou can select a control inside another control, say a groupbox by positioning the mouse pointer over the dewsired control, hold down the ALT key and press the Left mouse button to select that control. Pressing both the ALT and CTRL keys and pressing the Left mouse button will select multiple controls. This was something I could not get the PellesC IDE application to do.\n\nI have asked IDM that they provide more information for the Resource Editor but I have no idea how soon it might be added.\n\nRegards,\n\nKen','',0,'QIA=','2adner0b',1,0,'',879,0,0),(30233,6732,3,694,0,'200.189.112.21',1177031351,1,0,1,1,1,1,'','UP','UP !!!!','',0,'QIA=','2ehkuzb8',1,0,'',694,0,0),(30234,6735,6,121,0,'189.138.35.62',1177031894,1,0,1,1,1,1,'','Fabulosos','Y los precios ?','',0,'QIA=','28lf95lq',1,0,'',121,0,0),(30235,6637,2,348,0,'201.230.116.90',1177035954,1,0,1,1,1,0,'','','Gracias Rene por tu respuesta\n\nCreo que iniciare algunos cambios para pasarme a los 32 bitssss\n\nquizas nos veremos por el otro foro harbour / x Harbour \n\na proposito podria preguntar cual es la diferenciaa... \n\nGracias.\n\nLubin','',0,'QIA=','2yvyk6uy',1,0,'',348,0,0),(30236,6716,3,303,0,'72.199.41.171',1177049156,1,0,1,1,1,0,'','','Whoops. Above I said oDlg:refresh() but it should have been oDlg:update().\n\nBelow is a working example.\n\nJames\n\n\n[code:3440iqlk]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg, oCust, oBtn\n\n   use customer\n   database oCust\n\n   define dialog oDlg\n\n   @ 1,2 say oCust&#58;last UPDATE\n\n   @ 3,2 button oBtn action &#40; oCust&#58;blank&#40;&#41;, oDlg&#58;update&#40;&#41; &#41;\n\n   activate dialog oDlg\n\nreturn nil[/code:3440iqlk]','',0,'AIA=','3440iqlk',1,0,'',303,0,0),(30238,6733,19,92,0,'80.33.140.85',1177050953,1,0,1,1,1,0,'','','[quote=&quot;pymsoft&quot;:3ny90mpd]Muchos lectores de codigos de barras agregan automaticamente ENTER, o sea, que cuando lee, va automaticamente al campo siguiente.\n\nSaludos.[/quote:3ny90mpd]\n\nGracias, va bien saberlo.\n\nYa estaba otra vez matando moscas a cañonazos.\n\nSaludos\nCarlos G.','',0,'gA==','3ny90mpd',1,0,'',92,0,0),(30239,6749,3,58,0,'84.149.68.137',1177052465,1,0,1,1,1,0,'','ADS remote access','Dear Friends,\n\nwith the kind help of RF i built my first app which uses the ADS rdd.\nThis was rather easy. And it works fine with the local ADS server.\n\nNow i would like to know how to acces a remote server.\nIf i set [b:1awgy3hb]AdsSetServerType(2)[/b:1awgy3hb], where do i have to give an IP address to my app?\n\nThanks for each help in advance.\nRegards,\nDetlef','',0,'QA==','1awgy3hb',1,0,'',58,0,0),(30240,6750,6,131,0,'194.179.55.36',1177052553,1,0,1,1,1,0,'','como saber que elemento de un menu se ha seleccionado','Hola:\nQuiero poner un menu que me permita hacer un filtro sobre una dbf en base a elementos de un array. Algo así:\n[code:30x7xls4]	MENU oMenu POPUP\n		MENUITEM i18n&#40;&quot;Todas las actividades&quot;&#41; ;\n			ACTION AP-&gt;&#40;DbClearFilter&#40;&#41;&#41;\n		SEPARATOR\n		For i=1 to Len&#40;aActividad&#41;\n			MENUITEM i18n&#40;aActividad&#91;i&#93;&#41; ;\n				ACTION &#40; AC-&gt;&#40;DbSetFilter&#40; &#123;|| AP-&gt;ApActivida==aActividad&#91;i&#93; &#125;&#41;&#41;, AC-&gt;&#40;DbGoTop&#40;&#41;&#41;&#41;\n		Next\n   ENDMENU[/code:30x7xls4]\nEl menu me lo muestra bien, pero al ejecutar la opción evidentemente no puedo evaluar la i del codeblock, y ahi me pierdo. Hay un array llamado aItems que contiene los items del menu, pero no se como saber en tiempo de ejecución que item se ha seleccionado.\nSaludos,','',0,'AIA=','30x7xls4',1,0,'',131,0,0),(30241,6669,6,456,0,'217.127.39.57',1177054107,1,0,1,1,1,1,'','','Gracias Rene por la respuesta, pues si no hay otra, nos tendremos que aguantar, un saludo.\n\nHi Mario,\nnow the error is at the creation of ActiveX. Look in your system the exact string maybe is diferent, in my system \"CrystalReports11.ActiveXReportViewer.1\" is ok and runnig fine.If I\'m not wrong .1 is the version, so probably you must use .2 .\nAny way you can use  ActiveXXX to know all features of activex in your system.\n <!-- m --><a class=\"postlink\" href=\"http://activex.moonvalley.com/activexxx.htm\">http://activex.moonvalley.com/activexxx.htm</a><!-- m -->','',0,'AIA=','1txk5nqw',1,1184601021,'',456,1,0),(30242,6742,3,460,0,'217.37.54.49',1177055952,1,0,1,1,1,0,'','','Yes there is, but it can be slow if you are looking at large amounts of data on a large table.  I was wondering if there was a way to call a function if the thumbnail was dragged?','',0,'AIA=','1p4kdn0r',1,0,'',460,0,0),(30243,6751,3,282,0,'210.72.235.124',1177056429,1,0,1,1,1,0,'','Open a memoreaded file without memowrite','Dear All\n\nIf I Read an entire file from disk into memory\n\ncString = MemoRead( &lt;cFileName&gt; ) \n\nHow can I use this string without Written to a file\n\nMemoWrit( &lt;cFileName&gt;, &lt;cString&gt; )\n\n\nFor example , If cFileName is a \"test.dbf\"\n\nctest = memoRead(\"test.dbf\")\n\nUSE ctest , or USE xxx(ctest) \n\nwithout MemoWrit( \"test.dbf\", ctest )\n\nAnyone can help\n\nThanks\n\nDixon Chu','',0,'AIA=','278nukwo',1,0,'',282,0,0),(30244,6752,3,89,0,'213.21.136.60',1177056438,1,0,1,1,1,0,'','Problem with RAS','I am trying the sample RATEST.PRG and TESTRAS.PRG but I have this\nerrors:\n\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nratest.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'RasDial\' referenced from C:\\FW27\\LIB\\FIVEHC.LIB|RASA\nPI\nError: Unresolved external \'RasHangUp\' referenced from C:\\FW27\\LIB\\FIVEHC.LIB|RA\nSAPI\nError: Unresolved external \'RasGetConnectStatus\' referenced from C:\\FW27\\LIB\\FIV\nEHC.LIB|RASAPI\nError: Unresolved external \'RasEnumConnections\' referenced from C:\\FW27\\LIB\\FIVE\nHC.LIB|RASAPI\nError: Unresolved external \'RasEnumEntries\' referenced from C:\\FW27\\LIB\\FIVEHC.L\nIB|RASAPI\nError: Unresolved external \'RasGetErrorString\' referenced from C:\\FW27\\LIB\\FIVEH\nC.LIB|RASAPI\n* There are errors\n\nRegards Maurizio','',0,'AIA=','1tdrgq91',1,0,'',89,0,0),(30245,6751,3,2,0,'87.218.146.224',1177057281,1,0,1,1,1,1,'','','Dixon,\n\nIf you load a DBF file into memory using MemoRead(), you can not USE it.\n\nYou may need a new and special RDD for such purpose (MEMRDD ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> ) .','',0,'AIA=','68e58hjo',1,0,'',2,0,0),(30246,6750,6,2,0,'87.218.146.224',1177058870,1,0,1,1,1,1,'','','Jose Luis,\n\nUsa \"detached locals\":\n[code:sropaqdr]\n      local bAction\n      &#46;&#46;&#46;\n      For i=1 to Len&#40;aActividad&#41; \n         bAction = GenCodeBlock&#40; aActividad, i &#41; \n         MENUITEM i18n&#40;aActividad&#91;i&#93;&#41; ACTION Eval&#40; bAction &#41; \n      Next \n&#46;&#46;&#46;\n\nfunction GenCodeBlock&#40; aActividad, i &#41;\nreturn &#123; || AC-&gt;&#40;DbSetFilter&#40; &#123;|| AP-&gt;ApActivida==aActividad&#91;i&#93; &#125;&#41;&#41;, AC-&gt;&#40;DbGoTop&#40;&#41;&#41; &#125;\n[/code:sropaqdr]','',0,'AIA=','sropaqdr',1,0,'',2,0,0),(30247,6729,20,924,0,'81.208.36.89',1177061637,1,0,1,1,1,0,'','','Ho cercato nelle cartelle e sottocartelle di fwh24 e nelle classi ma non ho trovato alcun riferimento a menuitem.\n\nForse ho una versione datata? (FWH24)\nGrazie','',0,'AIA=','2tqbnpgt',1,0,'',924,0,0),(30248,6729,20,924,0,'81.208.36.89',1177061817,1,0,1,1,1,0,'','','Ops, chiaramento cercato Mailitem\n\nMi viene un dubbio che io debba cercare nella documentazione del file VBAOUTL*.CHM di microsoft che io non ho !!\n\nRomeo','',0,'AIA=','p2w5thic',1,0,'',924,0,0),(30249,6729,20,6,0,'87.20.230.112',1177061819,1,0,1,1,1,1,'','','FWH non c\'entra niente. Devi cercare nella documentazione di Outlook (VBAOUTL*.CHM).\n\nEMG','',0,'AIA=','25vywra3',1,0,'',6,0,0),(30250,6752,3,6,0,'87.20.230.112',1177061929,1,0,1,1,1,1,'','Re: Problem with RAS','Try linking rasapi32.lib.\n\nEMG','',0,'AIA=','mrh65ggz',1,0,'',6,0,0),(30251,6729,20,6,0,'87.20.230.112',1177062057,1,0,1,1,1,1,'','','[quote=&quot;Romeo&quot;:2zkqw394]Ops, chiaramento cercato Mailitem\n\nMi viene un dubbio che io debba cercare nella documentazione del file VBAOUTL*.CHM di microsoft che io non ho !!\n\nRomeo[/quote:2zkqw394]\n\nInfatti. Ma se hai installato Office ce l\'hai certamente, se non sull\'hard disk sicuramente sul CD.\n\nEMG','',0,'gA==','2zkqw394',1,0,'',6,0,0),(30252,6750,6,131,0,'194.179.55.36',1177063191,1,0,1,1,1,0,'','','Antonio:\nNo funciona bien. Pulsando cualquier opción solo hace el filtro por el ultimo valor que ha cogido i cuando finaliza el bucle, es decir por len(aActividad).\n\nSaludos,','',0,'gA==','5fb6qed2',1,0,'',131,0,0),(30253,6736,6,106,0,'85.34.123.173',1177064700,1,0,1,1,1,1,'','','Te recomiendo PsPad, hace eso y muchisimo mas, tambien es free.\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pspad.com/\">http://www.pspad.com/</a><!-- m -->\n\n\nLa comparacion de versiones del mismo prg es muy buena...\n\nSaludos\n\n\n\n[url=http&#58;//img113&#46;imageshack&#46;us/my&#46;php?image=catturaricerca2ek5&#46;jpg:1tq3h96k][img:1tq3h96k]http&#58;//img113&#46;imageshack&#46;us/img113/9606/catturaricerca2ek5&#46;th&#46;jpg[/img:1tq3h96k][/url:1tq3h96k]\n\n\n[url=http&#58;//img214&#46;imageshack&#46;us/my&#46;php?image=catturaricercaia8&#46;jpg:1tq3h96k][img:1tq3h96k]http&#58;//img214&#46;imageshack&#46;us/img214/1369/catturaricercaia8&#46;th&#46;jpg[/img:1tq3h96k][/url:1tq3h96k]','',0,'GA==','1tq3h96k',1,0,'',106,0,0),(30254,6729,20,924,0,'81.208.36.89',1177067500,1,0,1,1,1,0,'','','Ho il cd rom di Office XP 2002 e non ho trovato il fiel VBAOUTL9.CHM ma l\'ho trovato su office 97.\nHo provato a guardare Mailitem ma dopo un po di tentativi ho rinunciato a cercare le altre funzioni poiche\' non le trovo, sicuramente ci sono ma non risco a trovarle!\nGrazie comunque\nRomeo','',0,'GA==','21luuat2',1,0,'',924,0,0),(30255,6753,3,49,0,'213.82.134.66',1177068598,1,0,1,1,1,1,'','lighting','someone have an sample to open and clode a Light from pc ( xharbour) ?','',0,'GA==','18n8n7wb',1,0,'',49,0,0),(30256,6736,6,838,0,'80.34.222.112',1177068653,1,0,1,1,1,0,'','','Acabo de bajarme el pspad, y veo que es un editor de codigo, y muy bueno, por cierto. Lo que pasa es que nos referíamos a un explorador de archivos.\nCon referencia a editor de textos, yo utilizo el Editplus, que tiene configuración para trabajar con fivewin, por lo tanto tiene cliptext para Fivewin. \nEsto tiene la ventaja de que si no te acuerdas como se construye un comando, por ejemplo \"Redefine Checkbox\", con todos sus parámetros, pues bien , trae una listas con todos los comandos de Fivewin, y con doble click, él te lo construye, a excepción de la variables, y si te equivocas, te lo muestra.\n\nSaludos\n\nJose Luis','',0,'GA==','1le00og0',1,0,'',838,0,0),(30257,6752,3,89,0,'213.21.136.60',1177070149,1,0,1,1,1,0,'','','I have the same problem \n\nRegards MAurizio','',0,'GA==','131br8nw',1,0,'',89,0,0),(30258,6750,6,2,0,'87.218.146.224',1177071597,1,0,1,1,1,1,'','','Es porque está usando el último bAction creado...\n\nhay que modificarlo...','',0,'GA==','3e8el438',1,0,'',2,0,0),(30259,6729,20,6,0,'87.3.232.89',1177072018,1,0,1,1,1,1,'','','[quote=&quot;Romeo&quot;:2hsoz80x]Ho il cd rom di Office XP 2002 e non ho trovato il fiel VBAOUTL9.CHM[/quote:2hsoz80x]\n\nInfatti devi cercare VBAOUTL*.CHM.\n\n[quote=&quot;Romeo&quot;:2hsoz80x]Ho provato a guardare Mailitem ma dopo un po di tentativi ho rinunciato a cercare le altre funzioni poiche\' non le trovo, sicuramente ci sono ma non risco a trovarle![/quote:2hsoz80x]\n\nHai trovato l\'oggetto MailItem? Ecco, in alto trovi il link Proprietà. Clickalo e verranno fuori tutte le proprietà di quell\'oggetto, tipo Body, etc. Non mi pare così difficile. Alla peggio cerca su Internet.\n\nEMG','',0,'gA==','2hsoz80x',1,0,'',6,0,0),(30260,6747,6,694,0,'200.189.112.21',1177072034,1,0,1,1,1,1,'','ninguem','pocha! ninguem vai me dar uma ajuda?\n\n\nAOKISANTOS','',0,'gA==','2mwc35zh',1,0,'',694,0,0),(30261,6752,3,6,0,'87.3.232.89',1177072071,1,0,1,1,1,1,'','','I confirm. It seems to be a problem in rasapi.c.\n\nEMG','',0,'gA==','69o28y3u',1,0,'',6,0,0),(30262,6750,6,2,0,'87.218.146.224',1177073821,1,0,1,1,1,1,'','','Jose Luis,\n\nPrueba con:\n\nMENUITEM i18n(aActividad[i]) BLOCK bAction','',0,'','3gzirr1y',1,0,'',2,0,0),(30263,6754,3,86,0,'213.119.103.68',1177074578,1,0,1,1,1,1,'','Problem with OLE and Outlook 2007','Hello,\n\nI use this code to send email from my application :\n\n[code:397gay0e]\noOutLook &#58;= CreateObject&#40;&quot;Outlook&#46;Application&quot;&#41;\noMail  &#58;= oOutLook&#58;CreateItem&#40;olMailItem&#41;\noMail&#58;Subject &#58;= ALLTRIM&#40;EmOnde&#41;\noMail&#58;Body    &#58;= ALLTRIM&#40;FmText&#41;\noMail&#58;Recipients&#58;Add&#40;cEmail&#91;i&#93;&#41;\noMail&#58;CC  &#58;= TabCC\noMail&#58;BCC &#58;= TabBCC\nFOR j=1 TO LEN&#40;TabBijl&#41;\n    oMail&#58;Attachments&#58;Add&#40;TabBijl&#91;j&#93;&#41;\nNEXT\noMail&#58;HTMLBody &#58;= MEMOREAD&#40;ALLTRIM&#40;US-&gt;UOUTLSJAB&#41;&#41;\noMail&#58;Send&#40;&#41;\n[/code:397gay0e]\n\nWhen I was using Outlook 2000, XP or 2003, everything went just fine. Now I just started using Outlook 2007. If Outlook 2007 is opened, no problems occurs but if Outlook 2007 is not opened, I got an error :\n\n[quote:397gay0e]\nError discription : E_FAIL:Recepients\n\nWin32ole =&gt; TOLEAUTO:RECIPIENTS\n[/quote:397gay0e]\n\nTo prevent the error from happening, I have to open Outlook 2007 before I run my application.\n\nBut this wasn\'t the case with Outlook 2000, XP or 2003. I didn\'t need to open Outlook before running my application.\n\nCan anyone tell me how this problem can be solved ?\n\nThank you.','',0,'gIA=','397gay0e',1,0,'',86,0,0),(30264,6754,3,6,0,'87.3.232.89',1177075002,1,0,1,1,1,1,'','Re: Problem with OLE and Outlook 2007','Probably a bug in Outlook 2007. Can\'t you just open Outlook using ShellExecute() before your sendmail code?\n\nEMG','',0,'gIA=','5q2gqkpw',1,0,'',6,0,0),(30265,6729,20,924,0,'81.208.36.89',1177075020,1,0,1,1,1,0,'','','si grazie, ho trovato qualcosa che mi interessa su MSDN','',0,'gIA=','1zsx6s6p',1,0,'',924,0,0),(30266,6741,6,644,0,'190.30.11.157',1177076423,1,0,1,1,1,0,'','','gracias por haberme contestado. Ya lo he podido solucionar.','',0,'gIA=','3hsbj4tn',1,0,'',644,0,0),(30267,6744,6,900,0,'192.28.2.40',1177076496,1,0,1,1,1,0,'','','Antonio, el perfil de software de la empresa es con win 2k, desafortunadamente no tengo ninguna máquina con un SO diferente para probar.','',0,'gIA=','2hxulimo',1,0,'',900,0,0),(30268,6750,6,131,0,'83.49.185.104',1177077990,1,0,1,1,1,0,'','','Antonio:\nAsí si funciona, gracias. Lo que no entiendo es porque, que diferencia hay entre el Eval y usar la clausula block.\n\nSaludos,','',0,'gIA=','2wpqusjq',1,0,'',131,0,0),(30269,6744,6,2,0,'87.218.146.224',1177078008,1,0,1,1,1,1,'','','Mario,\n\nPuedes usar el vmware e instalarlo en una máquina con W2K. El vmware te permite crear un ordenador \"virtual\" en donde puedes instalar XP y probar en él.\n\nAhora hay una beta de vmware, plenamente operativa, que puede descargarse desde aqui:\n<!-- m --><a class=\"postlink\" href=\"http://www.vmware.com/products/beta/ws/\">http://www.vmware.com/products/beta/ws/</a><!-- m -->','',0,'gIA=','1vaguskc',1,0,'',2,0,0),(30270,6750,6,2,0,'87.218.146.224',1177078414,1,0,1,1,1,1,'','','Jose Luis,\n\nAl hacer: ... ACTION Eval( bAction )\n\nEn realidad se está creando un bloque de código:\n\n{ || Eval( bAction ) }\n\nque referencia a la variable local en ambito, con el último valor que tenga.\n\nAl usar ... BLOCK bAction se está guardando el valor de bAction en ese momento. Es decir se hace una copia de él, con el valor actual.','',0,'gIA=','wwfuyrkr',1,0,'',2,0,0),(30271,6664,1,27,0,'62.174.195.220',1177080117,1,0,1,1,1,1,'','A BAT for finding text in Prgs.','REM busca.bat\nEj. Busca BtnAceptar\n\n@echo off\n\nif a%1a==aa goto error:\n\n\nif exist find.txt del find.txt\necho Buscando ocurrencias de la palabra \"%1\"\necho Espere por favor\nif a%2a==aa goto Todo:\nfor %%i in ( %2 ) do find /n /i \"%1\"  %%i &gt;&gt;find.txt\ngoto cont:\n:Todo\nfor %%i in ( *.PRG ) do find /n /i \"%1\"  %%i &gt;&gt;find.txt\n:cont\n\nedit find.txt\n\ngoto fin:\n\n:error\necho.\necho Sintaxis:  BUSCA [Cadena]\n\n:fin','',0,'','4kn1fag5',1,0,'',27,0,0),(30272,6751,3,282,0,'221.216.74.68',1177080391,1,0,1,1,1,0,'','','Antonio\n\nSorry, I give you a incorrect example.\n\nThe thing is I have to use a OCX method , like oActivex&#058;GetLocalFile( &lt;cFileName&gt; )\n\nThat function I can\'t change it .\n\nBut I want to save the  &lt;cFileName&gt;  into  Memo fields first ,\n\nthen oActivex&#058;:GetLocalFile( xxx(&lt;memo field&gt;) )\n\nThe function xxx is convert the memo to disk file\n\nfor example  \n\nREPLACE ALIAS-&gt;MEMOFIELD WITH MEMOREAD(&lt;cFileName&gt;)\n\nThen \n\noActivex&#058;:GetLocalFile(xxx(ALIAS-&gt;MEMOFIELD))\n\nso, I can store the disk file to Memo fields\n\nanyone can help\n\nRegards\n\nDixon Chu','',0,'','17yv2hbr',1,0,'',282,0,0),(30273,5903,1,27,0,'62.174.195.220',1177080403,1,0,1,1,1,1,'','Pre procesor overflow','To solve this problem I placed a copy of fivewin.ch in my PRG directory \nand edited it removing all non used defines.','',0,'','314epdn4',1,0,'',27,0,0),(30274,6755,6,1023,0,'201.92.184.29',1177081698,1,0,1,1,1,0,'','Erro ao montar 2 Browses','Estou tendo um erro sempre que tento montar dois browses na mesma janela.\n\nO código basicamente faz o seguinte. \n* da use na tabela de cadastro de clientes\n* da use na tabela campos\n* adiciona no primeiro browse somente as colunas da tabela de cadastro especificadas na tabela campos\n* da use na tabela cadastro de fornecedores\n* adiciona no browse dois as colunas da tabela de cadastro de fornecedores especificadas na tabela campos\n* fecha a tabela campos\n* Cria apartir do código os dois browses\n\nMais quando troco de browse ( as vezes nem chega a carregar ) da um erro.\nEu acredito que seja por que o browse tenta atualizar o conteudo mais a tabela do outro browse está selecionada, mais não concegui achar um evento que ocorre quando o browse recebe o fóco. \n\nA mensagem de erro que aparece é a seguinte.\n\"Erro BASE/1003 Variable does not exist: ccodcli from errosys,line 158\"\n\ne o compilador diz que o erro está na seguinte linha\n\"oCol:bStrData        := { || &amp;wfname }\"\n\n\nAlguém ai já teve esse problema e sabe como resolvelo?','',0,'','2i5502px',1,0,'',1023,0,0),(30275,6749,3,58,0,'84.149.106.18',1177083317,1,0,1,1,1,0,'','','Dear friends,\n\ni\'m a little bit further <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nI set up an ADS server which operates 200 km from here and built a data dictionary on it with 3 dbf files.\n\nWhen i open a VPN connection i can call my local data architect ( arc32.exe ) to open a dbf file from the remote server.\nMy xHarbour app works with the local ADS but can not connect to the remote server. I don\'t know how to open a dictionary.\n\nThe only way to see the remote data is to use the arc32.exe.\nBut browsing a dbf with the arc32 is very slow. The dbf file has only 13000 records. \n\nCan a xHarbour app be faster than the sluggish speed of the arc32.exe?\n\nI\'m rather interested to learn from your experiences.\n\nBet regards,\nDetlef','',0,'','2mhugdux',1,0,'',58,0,0),(30276,6707,3,868,0,'219.64.121.60',1177083551,1,0,1,1,1,1,'','','should iLen be DWORD ?','',0,'','134hrsx9',1,0,'',868,0,0),(30277,6756,6,23,0,'213.96.85.49',1177084248,1,0,1,1,1,1,'','Función no existe CreateObject?','Buenassss, he intentado compilar un ejemplo del foro inglés : \nfunction printPdf() \n\nlocal oPdfApp := CreateObject(\"PDFCreator.clsPDFCreator\") \nlocal cASD := oPdfApp:cOption(\"AutoSaveDirectory\" ) \nlocal cASF := oPdfApp:cOption(\"AutoSaveFileName\" ) \n\noPdfApp:cOption(\"UseAutoSave\", 1 ) \noPdfApp:cOption(\"UseAutoSaveDirectory\", 1 ) \noPdfApp:cOption(\"AutoSaveStartStandardProgram\", 1 ) \noPdfApp:cOption(\"AutoSaveDirectory\", \"c:\\temp\" ) \noPdfApp:cOption(\"AutoSaveFileName\" , \"Mypdf\" ) \noPdfApp:cSaveOptions() \n\n// print something \noPdfApp:cPrintPDFCreatorTestpage() \n\noPdfApp:cOption(\"AutoSaveDirectory\", cASD ) \noPdfApp:cOption(\"AutoSaveFileName\" , cASF ) \noPdfApp:cSaveOptions() \n\noPdfApp = nil \nreturn (nil) \n\ny me devuelve que no existe la función createobject.\nUso FWH27, tengo que incluir alguna otra libreria al linkado a parte de la de five\n\nGracias','',0,'','8lumik5m',1,0,'',23,0,0),(30279,2676,3,23,0,'213.96.85.49',1177087534,1,0,1,1,1,1,'','','No consigo que esta función haga nada, simplemente se ejecuta y no realiza nada. Tengo instalado pdfcreator 0.92\n\n\n\nfunction Main() \n\nlocal oPdfApp := CreateObject (\"PDFCreator.clsPDFCreator\") \nlocal cASD := oPdfApp:cOption(\"AutoSaveDirectory\" ) \nlocal cASF := oPdfApp:cOption(\"AutoSaveFileName\" ) \n\noPdfApp:cOption(\"UseAutoSave\", 1 ) \noPdfApp:cOption(\"UseAutoSaveDirectory\", 1 ) \noPdfApp:cOption(\"AutoSaveStartStandardProgram\", 1 ) \noPdfApp:cOption(\"AutoSaveDirectory\", \"c:\\temp\" ) \noPdfApp:cOption(\"AutoSaveFileName\" , \"Mypdf\" ) \noPdfApp:cSaveOptions() \n\n// print something \noPdfApp:cPrintPDFCreatorTestpage() \n\noPdfApp:cOption(\"AutoSaveDirectory\", cASD ) \noPdfApp:cOption(\"AutoSaveFileName\" , cASF ) \noPdfApp:cSaveOptions() \n\noPdfApp = nil \nreturn (nil) \nGracias','',0,'EA==','2ykcox4z',1,0,'',23,0,0),(30280,6756,6,23,0,'213.96.85.49',1177089375,1,0,1,1,1,1,'','','Genial, gracias','',0,'EA==','r9v661e6',1,0,'',23,0,0),(30281,6757,6,237,0,'201.213.110.182',1177090247,1,0,1,1,1,0,'','TWord para xHarbour ? donde, pleaseeee','Alquien sabe donde puedo conseguir la clase TWord para xHarbour ?\nLa estoy necesitando medio desesperado....\nHace falta alguna librería en especial ?\n\nNecesito combinar correspondencia con urgencia!!!!','',0,'EA==','1s6cbt8p',1,0,'',237,0,0),(30282,6758,6,348,0,'200.121.233.175',1177093210,1,0,1,1,1,0,'','Como ubicar el Programa VERCe  para facilitar Complilacion','Buenas tardes\n\nHe leido comentarios del Uso del programa VERCE que facilita generar los programas con varios obj en Harbour, podrian indicarme a quien dirigirme o proporcionarlo \nMi correo es : <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n\nGracias\n\nLubin','',0,'EA==','1qdrc2qn',1,0,'',348,0,0),(30283,6759,6,348,0,'200.121.233.175',1177094001,1,0,1,1,1,0,'','Recien entrando con Harbour  y xharbour','Buenas Tardes \n\nVengo del mundo de los 16Bit,  recien llegado  y me encuentro con dos versiones de Harbour y xHarbour.\nHe llegado a compilar los programas ejemplos  con Harbour y con unos pequeños cambios  estoy pasando modulos basicos hasta ahora sin problemas.\n  \nSegun creo una vrsion es Gratuita (harbour) y la otra es pagada (xHarbour) , con soporte, en vista que estoy iniciendo mis pruebas, pienso usar la gratuita inicialmente,  me gustaria algun comentario  o por que iniciar directamente por XHarbour.\n\nAgradecere sus comentarios,\n\nLubin','',0,'EA==','1t5pbpwm',1,0,'',348,0,0),(30284,6758,6,73,0,'200.23.18.132',1177094156,1,0,1,1,1,0,'','','ya salio para alla\nsalu2\npaco','',0,'EA==','fh6bnlvf',1,0,'',73,0,0),(30285,6760,6,397,0,'201.93.209.209',1177094544,1,0,1,0,1,1,'','MouseWheel scrollbar movimento en WBROWSE','Amigos\n\nBROWSE.EXE muestra la movimentacion en el browse con mousewheel i scrollbar horizontal i vertical.\nlas modificaciones tiene la indicacion \"******* KONECTIVA AUTOMACAO\"\n\nCon BROWSE.EXE tambien puedes anadir i borrar registros, modificar la estructura, generar dialogo .RC, generar reports con fuente e posicionar textos en bitmaps.\n\nBajar en <!-- m --><a class=\"postlink\" href=\"http://www.shoppmarketing.com/forum/superutil.zip\">http://www.shoppmarketing.com/forum/superutil.zip</a><!-- m -->','',0,'EA==','169p1ru2',1,0,'',397,0,0),(30286,6758,6,348,0,'200.121.233.175',1177094598,1,0,1,1,1,0,'','','Muchas Gracias Francisco\n\nLubin\n\n\n[quote=&quot;Francisco Horta&quot;:3aigpbwo]ya salio para alla\nsalu2\npaco[/quote:3aigpbwo]','',0,'gA==','3aigpbwo',1,0,'',348,0,0),(30287,6749,3,138,0,'189.141.67.139',1177096556,1,0,1,1,1,1,'','','My best advice:\n\nFor remote access you should use AIS (Advantage Internet Server), works great.\n\nDownload samples:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">http://www.google.d2g.com/ads/demos/</a><!-- m -->\n\nLocal servers is toooo slow for remote connection, try AIS instead.\n\nThere are some things you have to setup before attempt to connect to a remote server via AIS.\n\n1) You will need to create a dictionary, and set the flag of \"internet\" access.\n2) You will need to create a user, and set permissions for internet access.\n\nNow from source code:\n\nADSConnect60(&lt;diccionary&gt;,&lt;servertype&gt;,&lt;user&gt;,&lt;password&gt;)\n\nThis function returns .T. if you could succesfully connect to a dictionary\n\nSample:\n\nAdsConnect60(\"\\\\googleserver\\adsdemos\\demo.add\",4,\"admin\",\"admin\")\n\nIn order to \"resolve\" the server route, you will need a INI file, called ADS.INI\n\nADS.INI has section with the server name:\n\n[googleserver]\n\nWhere you have to setup the ips and ports used to connect:\n\n[googleserver]\nLAN_IP = 192.168.2.1\nLAN_PORT = 2000\nINTERNET_IP = google.d2g.com\nINTERNET_PORT = 2001\n\nWhen you try to connect to an ADS server, AXWCS32.DLL will look for the ADS.INI file, in order to resolve the server location, avoiding the \"discovery\" process which usually takes its time.\n\nSee the samples I suggested to download at the begining of this message','',0,'','1pugjvmk',1,0,'',138,0,0),(30288,6751,3,2,0,'87.218.146.174',1177099475,1,0,1,1,1,1,'','','Dixon,\n\nyes, you can easily do it:\n\noActivex&#058;GetLocalFile( FieldToFile( ALIAS-&gt;MEMOFIELD ) ) \n...\nfunction FieldToFile( cText )\n\nMemoWrit( \"temp.txt\", cText )\n\nreturn \"temp.txt\"','',0,'','3sw3hd8a',1,0,'',2,0,0),(30289,6707,3,2,0,'87.218.146.174',1177099785,1,0,1,1,1,1,'','','lLen is an unsigned long wich it is like a DWORD\n[code:1aynil7w]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; Test&#40;&#41; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; TEST &#41;\n&#123;\n   hb_retl&#40; sizeof&#40; unsigned long &#41; == sizeof&#40; DWORD &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP   \n[/code:1aynil7w]\nIt shows .T.','',0,'AIA=','1aynil7w',1,0,'',2,0,0),(30290,6758,6,2,0,'87.218.146.174',1177100171,1,0,1,1,1,1,'','','Lubin,\n\nTe recomendamos, al igual que a todos los usuarios de FWH, que useis UEStudio: Es un IDE extraordinario y construye aplicaciones FWH automaticamente, con un editor de código fuente profesional, con editor de recursos incluido, etc.\n\nSe puede descargar la versión completa para probarla durante un mes.','',0,'AIA=','2j3iew2g',1,0,'',2,0,0),(30291,6757,6,278,0,'164.77.219.99',1177104978,1,0,1,1,1,1,'','','Busca en este mismo foro, asi salen los link donde bajarla.\nBusca dentro de las respuestas, seguro que hay algo. \n\nAqui te dejo uno que busque a la rapida, espero que te sirvan.\n\n\nDocumentación: \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/019673e364/TWordxx.zip.html\">http://hyperupload.com/download/019673e ... x.zip.html</a><!-- m --> \n\nEjemplos de uso: \n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/018763bc84/Tword.zip.html\">http://hyperupload.com/download/018763b ... d.zip.html</a><!-- m -->\n_________________\nSaludos, \n\nJuan','',0,'AIA=','3ly00zg9',1,0,'',278,0,0),(30292,6736,6,439,0,'200.125.38.220',1177105314,1,0,1,1,1,1,'','Volviendo al tema de los &quot;Comander&quot;','Dentro de los emuladores de Norton Commander, me gusta y es FREEWARE \"Free Commander\", este no tiene versión de prueba limitada, es todo el poder de un Commander FREE.','',0,'AIA=','1pdynezf',1,0,'',439,0,0),(30293,6736,6,867,0,'148.243.37.162',1177107074,1,0,1,1,1,0,'','Gracias a todos por su ayuda','[quote=&quot;Antonio Linares&quot;:3r9wgf3k]Susy,\n\nNosotros usamos \"Total Commander\" desde hace muchos años (y antes usábamos Norton Commander en MsDos) para controlar el ordenador. Te permite hacer eso y muchísimas más cosas.\n\nDe hecho siempre trabajamos desde el \"Total Commander\" y no podríamos trabajar profesionalmente sin él <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEs un producto shareware que puedes probar libremente[/quote:3r9wgf3k]\n\nHola don Antonio , gracias me sirvio de mucha utilidad Total commander, eso era lo que queria encontrar en todas mis carpetas, porque no era solamente buscar dentro de un archivo .prg, eso lo puse de ejemplo, queria encontrar dentro de cualquier archivo la palabra a buscar que tengo perdido, y ya lo encontre es bastante practico solo que no es free.\nGracias a todos los que me ayudaron, les estoy agradecida\nSusy les mando saludos corazones ....mmuuuaaacckkkkk\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','3r9wgf3k',1,0,'',867,0,0),(30294,2676,3,435,0,'200.155.205.232',1177108390,1,0,1,1,1,0,'','','Eu tentei tambem e não fazia nada, só dava erro.  e consegui sucesso com as funcoes abaixo\n\n[code:8gw8heay]\n* =========================================================================\nFunction CheckPDF&#40;&#41;\n* =========================================================================\n  local oPDF &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;PDFCreator&#46;clsPDFCreator&quot;&#41; \n\n  IF Ole2TxtError&#40;&#41; != &quot;S_OK&quot; \n     MsgAlert&#40;&quot;PDFCreator não está disponivel&quot;, &quot;Esta opção requer o  PDFCreator&quot;&#41; \n     oPDF&#58;End&#40;&#41;\n     return &#46;f&#46;\n  Endif\n  oPDF&#58;End&#40;&#41;\n\nreturn &#46;t&#46;\n\n* =========================================================================\nFunction ConfigPDF&#40;&#41;\n* =========================================================================\n  local nKey &#58;= 2147483649  \n  local oReg &#58;= TReg32&#40;&#41;&#58;New&#40; nKey, &quot;SoftWare\\PDFCreator\\Program&quot; &#41;\n\n  oReg&#58;Set&#40;&quot;AutosaveDirectory&quot;, DirTmp&#40;&#41;  &#41;\n  oReg&#58;Set&#40;&quot;AutosaveFilename&quot; , &quot;&lt;Title&gt;&quot; &#41;\n  oReg&#58;Set&#40;&quot;AutosaveFormat&quot;   , &quot;pdf&quot;     &#41;\n  oReg&#58;Set&#40;&quot;UseAutosave&quot;      , 1         &#41;\n  oReg&#58;Set&#40;&quot;SendEmailAfterAutoSaving&quot; , 0 &#41;\n  oReg&#58;Close&#40;&#41;\n\nreturn nil\n[/code:8gw8heay]\n\nAri','',0,'AIA=','8gw8heay',1,0,'',435,0,0),(30295,6707,3,868,0,'219.64.121.60',1177110047,1,0,1,1,1,1,'','','you are right. sorry. i shdnt have bothered you with that. \nactually long time back wnetgetuser() function was having the same problem. I used to have a wrapper function truncating upto chr(0).  later it got solved on its own.  similar problem exists now with this function.','',0,'AIA=','6lsc75hi',1,0,'',868,0,0),(30296,6707,3,2,0,'87.218.146.118',1177111470,1,0,1,1,1,1,'','','NageswaraRao,\n\nYou are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','17p61hh6',1,0,'',2,0,0),(30297,6630,2,235,0,'200.56.67.41',1177112646,1,0,1,1,1,0,'','','Muchas gracias Antonio','',0,'AIA=','36wllc54',1,0,'',235,0,0),(30298,6761,2,66,0,'201.212.114.2',1177122060,1,0,1,0,1,0,'','Ayuda Acceso directo a aplicacion en XP','Tenngo  el programa en una maquina , y desde el escritorio de la otra  cree un acceso directo al exe, cuando lo ejecuto no me muestra ninguno de los iconos de los botones , ademas de producirme error en la apertura de archivos.\n\n \ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','1ih5jzqt',1,0,'',66,0,0),(30299,6762,6,1028,0,'189.158.101.204',1177132034,1,0,1,1,1,0,'','Error de novato...','empiezo a descubrir el fivewin y por tanto a iniciar con el desarrollo de el mismo, así que inicie con un directorio [b:qsnmk3jc]d:\\fivewin[/b:qsnmk3jc] donde contiene lo siguiente:\n[list:qsnmk3jc]BCC55 (Borland C++ Compiler 5.5)\nFWH (April 7.04 2007 build)\nharbour (build 08/March/2004)\nxHarbour [/list:u:qsnmk3jc]\ny me recomendaron usar VerCe 4.3 para enlazar y compilar pero al intentar un ejemplo sensillo, después de configurar las rutas trate de probar con el siguiente código:\n[code:qsnmk3jc]#Include &quot;FiveWin&#46;Ch&quot;                                                                                                             \n#Include &quot;pru&#46;Ch&quot;                                                                                                                \nFunction Main&#40;&#41;                                                                                                                   \n   MsgInfo&#40; &quot;Aplicación creada con VERCE v4&#46;3&quot;, NAMEPROGRAM &#41;                                                                     \nReturn NIL      [/code:qsnmk3jc]\ny me manda el siguente error\n[code:qsnmk3jc]Compilado y Enlazado de&#58; &#91;D&#58;\\fivewin\\Proy\\pru\\pru&#46;Exe&#93;\nEjecución No&#46; 1\nEjecutada a las&#58; 23&#58;49&#58;09\n============================================================\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_s_cdpage\' referenced from D&#58;\\FIVEWIN\\HARBOUR\\LIB\\DBFDBT&#46;LIB|dbfdbt1\nFin del proceso&#46;\nMAKE Version 5&#46;2  Copyright &#40;c&#41; 1987, 2000 Borland\n** error 2 ** deleting D&#58;\\fivewin\\Proy\\pru\\pru&#46;exe\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4&#46;3 -&gt; Ver Resultados de Compilación y Enlazado v4&#46;3\nJuan Carlos Salinas Ojeda\njcso@hotmail&#46;com,  jcso@esm&#46;com&#46;mx\nMinatitlán, Veracruz&#46; MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!\n[/code:qsnmk3jc]\nhe buscado en varios foros sin una respuesta espero que alguien me pueda ayudar\ny agradezco de ante mano la ayuda a resolver la situación\nsaludos.','',0,'QMA=','qsnmk3jc',1,0,'',1028,0,0),(30300,6758,6,348,0,'201.230.116.90',1177133258,1,0,1,1,1,0,'','','Gracias Antonio\n\nrealizare unas pruebas al respecto, si tengo un mes.. me es suficiente para tomar una opcion \n\nLubin','',0,'QMA=','3frvlred',1,0,'',348,0,0),(30301,6761,2,2,0,'87.218.146.128',1177140238,1,0,1,1,1,1,'','','Los recursos de la aplicación los mantienes dentro del EXE ó en una DLL ?','',0,'QMA=','3hi710oq',1,0,'',2,0,0),(30302,6762,6,2,0,'87.218.146.128',1177141730,1,0,1,1,1,1,'','','Gustavo,\n\nSi usas FWH 7.04 tienes que usar los builds de Harbour/xHarbour que se corresponden con esa versión.\n\nPuedes descargar los builds de Harbour/xHarbour para Abril 2007 desde:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->\nBusca al final','',0,'QMA=','15wk9zg8',1,0,'',2,0,0),(30303,6759,6,2,0,'87.218.146.128',1177141940,1,0,1,1,1,1,'','','Lubin,\n\nPuedes construir tu aplicación con FWH y Harbour ó xHarbour indistintamente. Ambos Harbour y xHarbour existen en versión gratuita (libre)\n\nxHarbour es más popular, pero técnicamente existen razones argumentadas de que Harbour está mejor construido y es más robusto','',0,'QMA=','3u36c276',1,0,'',2,0,0),(30304,6755,6,2,0,'87.218.146.128',1177142120,1,0,1,1,1,1,'','','Donde usas ccodcli en tu programa ?\n\nEs una variable ó es un campo de una DBF ?','',0,'QMA=','3ai27di1',1,0,'',2,0,0),(30305,6748,3,6,0,'87.21.239.126',1177148564,1,0,1,1,1,1,'','Re: Bug in TWBrowse scrollbar','Solved! Replace\n\n[code:hoa8sz54]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   do case\n      case nKey == K_PGUP\n           &#58;&#58;oVScroll&#58;PageUp&#40;&#41;\n\n      case nKey == K_PGDN\n           &#58;&#58;oVScroll&#58;PageDown&#40;&#41;\n\n      otherwise\n           return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n   endcase\n\nreturn 0[/code:hoa8sz54]\n\nwith\n\n[code:hoa8sz54]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   do case\n      case nKey == VK_PRIOR\n           &#58;&#58;oVScroll&#58;PageUp&#40;&#41;\n\n      case nKey == VK_NEXT\n           &#58;&#58;oVScroll&#58;PageDown&#40;&#41;\n\n      otherwise\n           return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n   endcase\n\nreturn 0[/code:hoa8sz54]\n\nEMG','',0,'AIA=','hoa8sz54',1,0,'',6,0,0),(30306,6763,3,6,0,'87.21.239.126',1177148777,1,0,1,1,1,1,'','Another bug in TWBrowse scrollbar','[code:or4jtkan]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:or4jtkan]\n\nTry to press PAGEDOWN and then PAGEUP: the scrollbar should go back to the top but it doesn\'t.\n\nEMG','',0,'AIA=','or4jtkan',1,0,'',6,0,0),(30307,6748,3,6,0,'87.21.239.126',1177153619,1,0,1,1,1,1,'','Re: Bug in TWBrowse scrollbar','Or, even better, just remove KeyChar method from TWBrowse class. It seems not needed.\n\nEMG','',0,'AIA=','1388h3mj',1,0,'',6,0,0),(30308,6749,3,190,0,'124.7.24.13',1177153779,1,0,1,1,1,0,'','','Hello Mr.RF\n\n\n[quote:2lkpaz6h]\n1) You will need to create a dictionary, and set the flag of \"internet\" access. \n2) You will need to create a user, and set permissions for internet access. \n[/quote:2lkpaz6h]\n\nCan you please guide me on the above to create a dictionary.\n\n\nAdsConnect60(\"\\\\googleserver\\adsdemos\\[color=blue:2lkpaz6h]demo.add[/color:2lkpaz6h]\",4,\"admin\",\"admin\")\n\nWhat exactly demo.add contains ?\nCan you please an example of a data dictionary ?\n\n[quote:2lkpaz6h]\n[googleserver] \nLAN_IP = 192.168.2.1 \nLAN_PORT = 2000 \nINTERNET_IP = google.d2g.com \nINTERNET_PORT = 2001 \n[/quote:2lkpaz6h]\n\n192.168.2.1 is the IP adress of remote server or local system ?\n\nThanks \n\n- Ramesh Babu P','',0,'gg==','2lkpaz6h',1,0,'',190,0,0),(30309,6763,3,6,0,'87.21.239.126',1177154606,1,0,1,1,1,1,'','Re: Another bug in TWBrowse scrollbar','[code:7yhll7jz]METHOD PageUp&#40; nLines &#41; CLASS TWBrowse\n\n   local nSkipped\n\n   DEFAULT nLines &#58;= &#58;&#58;nRowCount&#40;&#41;\n\n   nSkipped = &#58;&#58;Skip&#40; -nLines &#41;\n\n   if &#40; &#58;&#58;nLen &#58;= Eval&#40; &#58;&#58;bLogicLen, Self &#41; &#41; &lt; 1\n      return nil\n   endif\n\n   if ! &#58;&#58;lHitTop\n      if nSkipped == 0\n         &#58;&#58;lHitTop = &#46;t&#46;\n      else\n         &#58;&#58;lHitBottom = &#46;f&#46;\n         if -nSkipped &lt; nLines\n            &#58;&#58;nRowPos = 1\n            if &#58;&#58;oVScroll != nil\n               &#58;&#58;VSetPos&#40; 1 &#41;\n            endif\n         else\n\n            //nSkipped = &#58;&#58;Skip&#40; -nLines &#41;\n            //&#58;&#58;Skip&#40; -nSkipped &#41;[/code:7yhll7jz]\n\nCommenting out those last two statements seems to solve the problem but I\'m not sure if this is the right fix. Antonio, please review.\n\nEMG','',0,'AIA=','7yhll7jz',1,0,'',6,0,0),(30310,6762,6,1028,0,'189.158.101.204',1177157948,1,0,1,1,1,0,'','','gracias Antonio si efectivamente ese es el problema, pero ahora me pide para este mismo codigo me manda lo siguinete:\n[code:29rvy5dd]Compilado y Enlazado de&#58; &#91;D&#58;\\fivewin\\Proy\\pru\\dent&#46;Exe&#93;\nEjecución No&#46; 10\nEjecutada a las&#58; 07&#58;17&#58;22\n============================================================\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nFatal&#58; Unable to open file \'GTWIN&#46;LIB\'\nFin del proceso&#46;\nMAKE Version 5&#46;2  Copyright &#40;c&#41; 1987, 2000 Borland\n** error 2 ** deleting D&#58;\\fivewin\\Proy\\pru\\dent&#46;exe\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4&#46;3 -&gt; Ver Resultados de Compilación y Enlazado v4&#46;3\nJuan Carlos Salinas Ojeda\njcso@hotmail&#46;com,  jcso@esm&#46;com&#46;mx\nMinatitlán, Veracruz&#46; MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!\n[/code:29rvy5dd]\ngracias por la ayuda\nsaludos','',0,'AIA=','29rvy5dd',1,0,'',1028,0,0),(30311,6764,6,694,0,'200.189.112.21',1177158605,1,0,1,1,1,1,'','BUG xBrowse - Antonio olhe isso por favor !','Antonio, \n\nUtilizando o código abaixo:\n\nuBrw := TXBrowse():New( oDlp )\n\nbStruc :={{\"\",\"Sim\",0,CTOD(\"\"),CTOD(\"\"),0}}\n\nuBrw:SetArray( bStruc )\n\nuBrw:aCols[1]:cHeader        := \"Parcela\"\nubrw:aCols[1]:nWidth         := 50 \nuBrw:aCols[1]:cEditPicture   := \"999\"\nuBrw:aCols[1]:bClrEdit       := uBrw:bClrStd\nuBrw:aCols[1]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 1 ] := x }\n\nuBrw:aCols[2]:cHeader        := \"Recebida\"\nubrw:aCols[2]:nWidth         := 60 \nuBrw:aCols[2]:nDataStrAlign  := AL_LEFT\nuBrw:aCols[2]:nHeadStrAlign  := AL_LEFT\nuBrw:aCols[2]:nEditType      := EDIT_LISTBOX\nuBrw:aCols[2]:aEditListTxt   := {\"Sim\", \"Não\"}\nuBrw:aCols[2]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 2 ] := x }\nuBrw:aCols[2]:aEditListBound := {\"Sim\", \"Não\"}\nuBrw:aCols[2]:bClrEdit       := uBrw:bClrStd\n\nuBrw:aCols[3]:cHeader        := \"Valor\"\nubrw:aCols[3]:nWidth         := 70 \nuBrw:aCols[3]:cEditPicture   := \"@E 999,999.99\"\nuBrw:aCols[3]:nDataStrAlign  := AL_RIGHT\nuBrw:aCols[3]:nHeadStrAlign  := AL_RIGHT\nuBrw:aCols[3]:bOnPostEdit    := {|o,x| bStruc[uBrw:nArrayAt, 3 ] := x }\nuBrw:aCols[3]:nEditType      := EDIT_GET\nuBrw:aCols[3]:bStrData       := {||    TRANS(bStruc[uBrw:nArrayAt, 3 ]      ,\"@E 999,999.99\")} \n\nuBrw:aCols[4]:cHeader        := padc(\"Vencimento\",11)\nubrw:aCols[4]:nWidth         := 80 \nuBrw:aCols[4]:nDataStrAlign  := AL_CENTER\nuBrw:aCols[4]:nHeadStrAlign  := AL_CENTER\nuBrw:aCols[4]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 4 ] := x }\nuBrw:aCols[4]:nEditType      := EDIT_GET\n\nuBrw:aCols[5]:cHeader        := padc(\"Data Pgto\",11)\nubrw:aCols[5]:nWidth         := 80 \nuBrw:aCols[5]:nDataStrAlign  := AL_CENTER\nuBrw:aCols[5]:nHeadStrAlign  := AL_CENTER\nuBrw:aCols[5]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 5 ] := x }\nuBrw:aCols[5]:nEditType      := EDIT_GET\n\nuBrw:aCols[6]:cHeader        := \"Valor Pgto\"\nubrw:aCols[6]:nWidth         := 70 \nuBrw:aCols[6]:cEditPicture   := \"@E 999,999.99\"\nuBrw:aCols[6]:nDataStrAlign  := AL_RIGHT\nuBrw:aCols[6]:nHeadStrAlign  := AL_RIGHT\nuBrw:aCols[6]:bOnPostEdit    := {|o,x| bStruc[ uBrw:nArrayAt, 6 ] := x}\nuBrw:aCols[6]:nEditType      := EDIT_GET\nuBrw:aCols[6]:bStrData       := {||    TRANS(bStruc[uBrw:nArrayAt, 6 ],\"@E 999,999.99\")} \n\nuBrw:nMarqueeStyle           := MARQSTYLE_HIGHLCELL\nuBrw:nColDividerStyle        := LINESTYLE_DARKGRAY \nuBrw:lColDividerComplete     := .t.\nuBrw:nFooterLines            := 2\nuBrw:lFooter                 := .t.\nuBrw:aCols[ 1 ]:cFooter      := \"Total:\"\n\nuBrw:bClrStd                 := { ||{ RGB(0,0,0), iif( uBrw:nArrayAt % 2 == 0, RGB(234,255,234) , RGB(255,255,255) ) } }\nuBrw:nFreeze                 := 6\nuBrw:lHScroll                := .f.\nuBrw:lVScroll                := .f.\nuBrw:lFastEdit               := .T.   //ENTER cod barras\nuBrw:CreateFromResource( 101 )\n\n***********************************************************\nSTATIC FUNCTION CRIA_TITULOS(cocond,iniciemis,tivalor,uBrw)\n***********************************************************\nLOCAL X,vvaltotal:=0,calcv:=0,ultparc\n\nselect condicoes\ndbsetorder(1)\nif dbseek(cocond)\n   bStruc:={}\n   calcv :=round(tivalor/condicoes-&gt;co_parc,2)      \n   Select TabCondicoes\n   dbsetorder(1)\n   dbseek(str(cocond,4,0))\n   do while TabCondicoes-&gt;pg_codi==cocond .and. TabCondicoes-&gt;(! eof())\n       iniciemis+=TabCondicoes-&gt;pg_praz\n       AADD(bStruc,{TabCondicoes-&gt;pg_nupa,\"Sim\",calcv,iniciemis,ctod(\"\"),0})            \n       TabCondicoes-&gt;(dbskip())\n   enddo\n   IF LEN(bStruc)&gt;0\n      vvaltotal:=0\n      ultparc  :=len(bStruc)\n      FOR X:=1 TO (LEN(bStruc)-1)\n          vvaltotal+=round(bStruc[x][3],2)\n      NEXT\n      bStruc[ultparc][3]:=round(tivalor-vvaltotal,2)\n   else\n      bStruc :={{\"\",\"Sim\",0,CTOD(\"\"),CTOD(\"\"),0}}\n   ENDIF\n   uBrw:aArrayData := aClone( bStruc ) \n   uBrw:refresh()\nendif\nRETURN(.T.)\n\n\n\nEsta acontecendo o seguinte, vamos supor que o meu array tenha uns 100 registros, e, eu queira corre-los para baixo. aperto a seta para baixo e os registros começam a correr, porém, os dados de todas colunas(menos a ultima) assumem valores estranhos ex:\n\n<!-- m --><a class=\"postlink\" href=\"http://img255.imageshack.us/img255/1310/seta1cb3.jpg\">http://img255.imageshack.us/img255/1310/seta1cb3.jpg</a><!-- m -->\n\nE se a seta for para cima, ai o BUG é ao contrário, ou seja, todas as linhas ficam certas menos a ultima. ex: \n\n<!-- m --><a class=\"postlink\" href=\"http://img150.imageshack.us/img150/7351/seta2fz5.jpg\">http://img150.imageshack.us/img150/7351/seta2fz5.jpg</a><!-- m -->\n\nusing fwh 7.01\n\nAOKISANTOS\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','r2o4houc',1,0,'',694,0,0),(30312,6765,3,694,0,'200.189.112.21',1177158713,1,0,1,1,1,1,'','Bug xbrowse - help- me','use fwh 7.01 \n\n<!-- m --><a class=\"postlink\" href=\"http://img255.imageshack.us/img255/1310/seta1cb3.jpg\">http://img255.imageshack.us/img255/1310/seta1cb3.jpg</a><!-- m --> \n\n<!-- m --><a class=\"postlink\" href=\"http://img150.imageshack.us/img150/7351/seta2fz5.jpg\">http://img150.imageshack.us/img150/7351/seta2fz5.jpg</a><!-- m --> \n\nwhat is this?\n\nAokisantos <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'','17gzskde',1,0,'',694,0,0),(30313,6761,2,66,0,'201.212.114.2',1177159930,1,0,1,0,1,0,'','','Si Antonio\nLe terndria que poner verdad ?\n\nPath:=\"\\\"+CurDir()\n\n\n   SET PATH TO &amp;cPath\n   SET DEFAULT TO &amp;cPath\n \nSaludos\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','3siuvm1s',1,0,'',66,0,0),(30314,6762,6,838,0,'80.59.225.15',1177175838,1,0,1,1,1,0,'','','Renombra gtgui por gtwin\n\nSaludos\n\nJose Luis','',0,'','3qwtekjv',1,0,'',838,0,0),(30315,6766,6,64,0,'201.72.124.2',1177175941,1,0,1,0,1,1,'','Resource Builder 2.6 - Rene Flores - Help.','Olá Rene,\n\n     Pesquisando no fórum vi que você usa este Editor de Recursos. Baixei o demo para experimentar e gostei muito, tanto que o comprei.\n\n     Estou com uma dúvida, como funciona o custom type? Preciso incluir controles tipo linha, box e botões da classe TSBUTTON; Browse da classe TSBROWSE; Menus e barras da classe C5BAR, COFFICEBAR, COUTLOOKBAR...\n\n     Ele também não aceita a dll de controls do FiveWin.\n\nThanks.','',0,'','3i302yo4',1,0,'',64,0,0),(30316,2676,3,23,0,'85.59.77.109',1177180448,1,0,1,1,1,1,'','','Oka, con esto modificas las claves del registro y consigues modificar sus variables. Gracias!! con esto ya me apaño para lo que necesito.\n\nUn saludo.','',0,'','u49zlnvf',1,0,'',23,0,0),(30317,6767,3,162,0,'62.47.184.176',1177181276,1,0,1,1,1,0,'','chm-files in FWH','Antonio,\n\nWhat are the plans for the use of chm-files in FWH?\nWill there be a \"simple\" solution like SET HELPFILE TO XXX.CHM\nor do we have to change the code to HTMLHelp(..) everywhere?\n\nThanks for your answer,\nDietmar','',0,'','6v868p1i',1,0,'',162,0,0),(30318,6758,6,54,0,'189.132.106.110',1177181410,1,0,1,1,1,1,'','Re: Como ubicar el Programa VERCe  para facilitar Complilaci','[quote=&quot;lubin&quot;:372rw3xa]Buenas tardes\n\nHe leido comentarios del Uso del programa VERCE que facilita generar los programas con varios obj en Harbour, podrian indicarme a quien dirigirme o proporcionarlo \nMi correo es : <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n\nGracias\n\nLubin[/quote:372rw3xa]\n\nPodrias usar de igual manera\n\nxmate\n\na mi me funciona bien y trae un editor integrado.','',0,'gA==','372rw3xa',1,0,'',54,0,0),(30319,6749,3,138,0,'189.141.67.139',1177181821,1,0,1,1,1,1,'','','Ramesh:\n\nIn the SQL-based databases, all the stuff is stored in one single file, for example in MS Access all the tables, users, passwords, security schemas,stored procedures, etc is stored into a one singe MDB file, same happens in SQL Server, MySQL, Informix, etc.\n\nADS tries to do the same, using a \"data dictionary\" with a \"little\" difference, the DBF or ADT tables will not be \"merge\" into one single file, in this case the file is the data dictionary, they will remain as \"free files\", but they will be handled by the Data Dictionary, because the DD will have an internal reference to them.\n\nHow to create a dictionary:\n\nTo create the data dictionary you need to use the ARC, open the ARC (Advantage Data Architech), go to DATABASE in the main menu and select NEW DATABASE, give it a name, check the appropiate features you may need, and you are done.\n\nThe DD creation is also available via SourceCode in (x)Harbour.\n\nInmediatly after creating the dictionary you will need to create a \"super user account\" this is an administrative user account, by default ADS will create the ADSSYS user, and you will have to give it a password.\n\nData dictionaries will have the .ADD extension.\n\nOnce created, you will need to add all the tables you want to be accesed via the data dictionary, remember, the tables will not be merged into the DD, this is only to give the DD a reference of where are those tables located; this gives you an extra level or security because you will need a user and password to access the data.\n\nTo add tables into the dictionary, go to the tree structure you will see at the left  of the screen, select TABLES, right click over the TABLES item, and you will see a pop up menu, select ADD EXISTING TABLES, then pick up all the tables and indexes you will need to be into the data dictionary and you are done. Tables can be DBF with CDX or NTX indexes and DBT or FPT memos, or ADT tables with ADI indexes and ADM memos, you can also mix ADTs and DBFs in the same dictionary.\n\nThe goal of a data dictionary is to give an extra security level because you need to create users in the dictionary and give permissions to them for reading, writting, or deleting data, in DBF or ADT tables.\n\nData dictionaries are also important for internet access, because every user you create into the dictionary can have, or not to have Internet access to your data, you can set this feature every time you create a new user or you can modify user accounts to let them read your data via internet.\n\nThanks to ADS, you can handle data using SQL statements, Data dictionaries are also important to users that have worked with SQL based databases, they are used to \"connect\" to the database using an administrative program, and after that they can write queries to retrieve data, in ADS you can also \"connect\" o a database, this \"database\" is called \"data dictionary\" and, as a Data Dictionary has a list of all the tables needed, you can handle them as in the most popular SQL based systems. \n\nSo far so good, let\'s see now how to use the DD in (x)Harbour code.\n\nFirst you will need to connect to the dictionary, which is the the most important part:\n\nAdsConnect60(&lt;data dict&gt;,&lt;server type&gt;, &lt;user&gt;,&lt;password&gt;)\n\n&lt;data dict&gt; is the route where the DD is, this route has to be indicated using the UNC:\n\n\\\\server\\shared resource\\folder\\dictionary.add\n\nsample:\n\n\\\\googleserver\\adsdemos\\samples\\demo.add\n\nThis may sound reasonable if we were working into a LAN, but what if we want to use the Internet access to the data.\n\nFor internet access (and to speed the lan access too), ADS will use a configuration file that is used by the AXWCS32.DLL (ADS windows client), this file is an INI file called ADS.INI and you have to place it in the same directory where your exe file is.\n\nThis INI files has to be a section with the server name:\n\n[googleserver]\n\nunder this section you have to put the LAN address of the server AND in case you were working via internet, you have to place the public IP adress or the domain name:\n\n[googleserver]\nLAN_IP=192.168.2.1\n\nWhen working with the REMOTE ADS server (not the local), you also need to configure the ports of the server where you are reading information, this is done using the Advantage Configuration Utility, only available with the remote server, using this tool, you configure the lan ports and internet ports to be used, and in the ADS.INI you have to indicate such ports.\n\n[googleserver]\nLAN_IP=192.168.2.1\nLAN_PORT=2000\n\nIf you are using the AIS (Advantage Internet Server), you will also have to indicate the public IP of the server, or the domain name in order to resolve de ip address, also, you have to indicate which port is \"listening\" the internet requests:\n\n[googleserver]\nLAN_IP=192.168.2.1\nLAN_PORT=2000\nINTERNET_IP=google.d2g.com ; or 200.67.137.11\nINTERNET_PORT = 2001\n\nPlease notice that LAN and INTERNET port must be different.\n\nBack to the dictionary connection, the first two parameters will try to connect to the dictionary using the server type stablished.\n\nAdsConnect60(\"\\\\googleserver\\adsdemos\\demo.add\",4,.......)\n\nWhen calling this function, the ADS client will read the UNC, and inmediatly after will look for the ADS.INI looking for the server name section, and using its entries will try to resolve the server location.\n\nThe server type (4) is also important, 4 indicates that it must connect to the server only via INTERNET which means that no matter if the computer is connected to the LAN, the programm will attemp to connect to the server via INTERNET using the entries in the INI file. If there\'s no internet connection available the program will indicate an error, and it will finish.\n\nValues for the connection parameter are:\n\n(1) Local server only, no client server nor transactions features, no internet access either, this is a free redistributable server for developing, testing or for commercial applications, you can use it in a single computer (stand alone) but you can also use it up to 5 users under LAN enviroments, you are free to use and distribute this server (ADSLOC32.DLL).\n\n(2) Remote server only, you need to have an ADS remote server running in your server. Remote server will run under Novell Netware (from version 5.x and greater), Linux or Windows true 32 enviroments (NT, 2000, XP, 2003 or Vista), your choice.\n\n(3) Local (1) + remote servers (2), the program will attempt to connect first via the remote server, if there\'s no remote server running on the file server, it will use the local server, this value is adecuate if you are planing to move to a remote server later, because avoids you to write double code or to make modifcations into the source, you can work with free local server, and when you decide to move into the remote server for all the client/server transactional features, you will not need to make any changes to your code, simply install the remote server, and run your program again.\n\n(4) Internet server. This configuration is adecuate for remote computers, not connected to the LAN, using internet to gain access to the data.\n\n(5) Local (1) + Internet (4), you can use both servers, local and internet, for example, you can use the internet access to retrieve data via internet, and use the local server to create temp data files for reporting in your local computer.\n\n(6) Remote (2) + Internet (4), you can use this value when are working in your office in your LAN, retrieving data from the server, and if you go out of the office in a trip or want to work at home, you can use internet to connect to the server, remember, no modifications in the source code are needed, the same exe will work under the lan an under internet.\n\n(7) Local (1) + Remote (2) + Internet (4), this is your best choice since it allows you to connect to any server or combination of servers, for example you are working at your office in your LAN, using the remote server (2), but you go out of the office and decide to work at home, you can use the same exe to connect to a internet server (4), and you can use the local server (1) to create temp DBF or ADT files in your local hd for reporting.\n\nAnd finally, the last two parameters of the AdsConnect60() function are the user name, and its password, these values are set in the data dictionary when creating a new user.','',0,'','2h4x6crk',1,0,'',138,0,0),(30320,6768,6,75,0,'81.39.236.242',1177187539,1,0,1,1,1,0,'','Multitarea','Necesito hacer un programa que haga dos tareas simultaneamente y que estas dos tareas accedan a y graben en las mismas dbf, teniendo además que ser visibles las dos tareas desde la ventana principal.\n\nUna tarea consiste en grabar registros manualmente registros y la otra a través de unos equipos conectados mediante un concentrador a través del puerto RS-232 del ordenador.\n\n¿Qué recomendaciones me pueden dar?, nunca he trabajado con varias tareas a la vez dentro del mismo programa.\n\n\n\nGracias de antemano.','',0,'','3cdjimia',1,0,'',75,0,0),(30321,5477,3,996,0,'65.102.185.182',1177188189,1,0,1,0,1,0,'','','Hello Ollie,\n\nDid you ever get the debugger working with Harbour?  I\'m having the same problem you had -- the example program \\FWH\\Samples\\Altd.prg get\'s as far as the first message, \"Debugger Enabled\", but the Altd() call seems to lock it up.  Certainly no other windows appear.  I took care to compile with the /b option, and I used:\n\n%bcdir%\\bin\\ilink32 -Tpe -s @b32.bc\n\nin the BuildH.bat file as instructed.  I\'m linking in Debug.lib.\n\nThanks!\n\n-Patrick','',0,'','1i60tcmf',1,0,'',996,0,0),(30322,5477,3,904,0,'198.54.202.250',1177189091,1,0,1,1,1,1,'','','Hi Patrick,\n\nAlas, I did not.','',0,'','s3ynw5sy',1,0,'',904,0,0),(30323,6762,6,1028,0,'189.158.101.204',1177190795,1,0,1,1,1,0,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Mil Gracias.\nsi se pudo, si se pudo, si se pudo!!!\n\nSaludos','',0,'','jh2140ct',1,0,'',1028,0,0),(30324,5477,3,996,0,'65.102.185.182',1177191065,1,0,1,0,1,0,'','','Okay thanks for letting me know.  I wrote an email to Antonio about this, so hopefully we should at least be able to get the sample program Altd.prg working, and we can go from there.\n\n-Patrick','',0,'','10nncsor',1,0,'',996,0,0),(30325,6749,3,299,0,'24.233.172.101',1177208286,1,0,1,0,1,0,'','','The DD can also be created from source.  Here is sample code to create/update a DD using ACE API calls.  For more info on ACE calls look at the help in ARC.  It also helps reading the .c sources in the rddads contrib lib.\n\nADS is really-really working very good for me.  Speed, stability, remotely access of dbf via Internet, dbf security (very secure) and SQL capability against .ntx and .cdx files.  So, with ADS you get to keep ISAM and add SQL to it.  Best of both worlds.  Futhermore, DBFs are invisible to users on the LAN and/or WAN.\n\nHope the code below helps.\n\n[code:2mrz0za3]\n#include &quot;ads&#46;ch&quot;\n#include &quot;fivewin&#46;ch&quot;\n\n#define ADS_DEFAULT              0\n\nREQUEST ADS\nREQUEST ADSKeyCount, ADSKeyNo, OrdKeyCount, OrdKeyNo\n\nSTATIC aFiles &#58;= &#123;&#125;\nstatic cPath\n*-----------------------------------------------------------------------------------------------------\nStatic Function Start&#40;&#41;\nLocal oIni\nLocal xRDD\nLocal nErr\nLocal cParmPath 	&#58;= Arg&#40; 1 &#41;\nlocal xPath\nlocal cIniPath	&#58;= iif&#40; cParmPath == Nil &#46;or&#46; empty&#40; cParmPath &#41;, ;\n			cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41; , ;\n			cParmPath + iif&#40; right&#40; cParmPath, 1 &#41; == &quot;\\&quot;, &quot;&quot;, &quot;\\&quot; &#41; &#41;\nLocal cIni		&#58;= cIniPath + &quot;patients&#46;ini&quot;\n\n	INI oIni FILE cIni\n		GET xPath SECTION &quot;RDD&quot; ENTRY &quot;PATH&quot; OF oIni DEFAULT &quot;f&#58;\\mp\\data\\&quot;\n		Get xRDD SECTION &quot;RDD&quot; ENTRY &quot;RDD_VERSION&quot; OF oIni DEFAULT &quot;LOCAL&quot;\n	ENDINI\n\n	rddsetdefault&#40; &quot;ADS&quot; &#41;\n	AdsSetFileType&#40; ADS_NTX &#41;\n	AdsLocking&#40; ADS_COMPATIBLE_LOCKING &#41;\n	rddRegister &#40; &quot;ADS&quot;, 1 &#41;\n	if &#40; nErr &#58;= ADSSetServerType&#40; iif&#40; xRDD == &quot;LOCAL&quot;, ADS_LOCAL_SERVER, ADS_REMOTE_SERVER &#41; &#41; &#41; &lt;&gt; 0\n		MsgStop&#40; &quot;Cannot connect to server &quot; + Str&#40; nErr &#41;, &quot;Problem&quot; &#41;\n	Else\n		MsgRun&#40; &quot;Creating ADS Data Dictionary&#46;&#46;&#46;&quot;, &quot;ADS DD creation&quot;, &#123; ||CreateDictionary&#40; xPath &#41; &#125; &#41;\n	Endif\n\nReturn &#40;Nil&#41;\n\n*------------------------------------------------------------------------------------\nFunction CreateDictionary&#40; xpath &#41;\nlocal aFiles	&#58;= FileIndexStruc&#40;&#41;\n\n	cpath &#58;= xPath\n\n	if !file&#40; cpath+ &quot;mp&#46;add&quot; &#41; &#46;and&#46; !ADSDDCREATE&#40; cPath+&quot;mp&#46;add&quot;,, &quot;mp system data dictionary&quot; &#41;\n   		if !AdsConnect60&#40; cpath + &quot;mp&#46;add&quot;, ADS_REMOTE_SERVER, &quot;ADSSYS&quot;,&quot;mp8&quot; &#41; //&#46;and&#46; UpdateADSDD&#40;&#41;\n			MsgStop&#40; &quot;Create and/or connect failed&#46;&quot; + cValToChar&#40; AdsGetLastError&#40;&#41; &#41;, cPath + &quot;mp&#46;add&quot; &#41;\n			RETURN NIL\n		Endif\n	Endif\n\n	logfile&#40; &quot;dd&#46;log&quot;, &#123; cPath+&quot;mp&#46;add&quot;, AdsConnection&#40;&#41; &#125; &#41;\n	AdsDDSetDatabaseProperty&#40; ADS_DD_ENABLE_INTERNET, &#46;t&#46; &#41;\n	AdsDDSetDatabaseProperty&#40; ADS_DD_INTERNET_SECURITY_LEVEL, ADS_DD_LEVEL_2 &#41;\n\n	AdsDDCreateUser&#40; , &quot;mpuser&quot;, &quot;mp8&quot;, &quot;Mp system users&quot; &#41;\n	AdsDDCreateUser&#40; , &quot;x12&quot;, &quot;mp8&quot;, &quot;x12 document users&quot; &#41;\n	AdsDDCreateUser&#40; , &quot;billing&quot;, &quot;mp8&quot;, &quot;Billing users&quot; &#41;\n\n	AdsSetFileType&#40; ADS_NTX &#41;\n\n	aEval&#40; aFiles, &#123; |e| AdsSetFiletype&#40; iif&#40; len&#40; e &#41; &gt; 1 &#46;and&#46; lower&#40; cFileExt&#40; e&#91; 2 &#93; &#41; &#41; == &quot;cdx&quot;, ADS_CDX, ADS_NTX &#41; &#41;,;\n		addfiletoDD&#40; e &#41;, ;\n		SetTableProp&#40; e &#41;, ;\n		logfile&#40; &quot;dd&#46;log&quot;, &#123; &quot;Adding table to DD&quot;, ;\n							e&#91;1&#93;, ;\n							AdsSetFileType&#40;&#41;, ;\n							cFileExt&#40; e&#91; min&#40; 2, len&#40; e &#41; &#41; &#93; &#41;, ;\n							ADSGetLastError&#40;&#41; &#125; &#41; &#125; &#41;\n\nreturn Nil\n\n*------------------------------------------------------------------------------------\nStatic Function AddFiletoDD&#40; aFile &#41;\nlocal cIndexs &#58;= &quot;&quot;\n\n	if len&#40; afile &#41; &gt; 1 &#46;and&#46; left&#40; afile&#91; 2 &#93;,1 &#41; &lt;&gt; &quot;&#46;&quot;\n		aEval&#40; afile, &#123; |e| cIndexs += e +&quot;;&quot; &#125;, 2 &#41;\n		cIndexs &#58;= left&#40; cIndexs, len&#40; cIndexs &#41; -1 &#41;\n	Endif\n\nReturn&#40; AdsDDAddTable&#40; left&#40; afile&#91; 1 &#93;, at&#40;&quot;&#46;&quot;, afile&#91;1&#93; &#41;-1 &#41;, ;\n				cPath + aFile&#91; 1 &#93;, ;\n				cIndexs &#41; &#41;\n\n*------------------------------------------------------------------------------------\nstatic function SetTableProp&#40; aFile &#41;\nlocal cFile &#58;= cFileName&#40; afile&#91; 1 &#93; &#41;\n#ifndef VERSION_0&#46;99\n	AdsDDSetTableProperty&#40; cFile, ADS_DD_TABLE_AUTO_CREATE, &#46;t&#46; &#41;\n#endif\nreturn Nil\n\n*------------------------------------------------------------------------------------\nfunction FileIndexStruc&#40;&#41;\nlocal a &#58;= &#123;&#125;\n\n	aadd&#40; a, &#123; &quot;auditlog&#46;dbf&quot;, &quot;auditlog&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;remits&#46;dbf&quot;, &quot;remits&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;closed&#46;dbf&quot;, &quot;&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;icd4cpts&#46;dbf&quot;, &quot;icd4cpts&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;doctors&#46;dbf&quot;, &quot;doc_id&#46;ntx&quot;, &quot;doc_name&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;hospital&#46;dbf&quot;,&quot;hospital&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;techs&#46;dbf&quot;, &quot;tch_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;macros&#46;dbf&quot;, &quot;mcr_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;users&#46;dbf&quot;, &quot;users&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;scribes&#46;dbf&quot;,&quot;scrb_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;images&#46;dbf&quot;, &quot;images&#46;cdx&quot; &#125; &#41; //&quot;img_rec&#46;ntx&quot;,&quot;img_adm&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;imgtypes&#46;dbf&quot;,&quot;&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;patients&#46;dbf&quot;, &quot;pat_rec&#46;ntx&quot;, &quot;pat_ssn&#46;ntx&quot;, &quot;pat_name&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;pat_err&#46;dbf&quot;,&quot;&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;poliza&#46;dbf&quot;, &quot;poliza&#46;ntx&quot;,&quot;pol_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;planfile&#46;dbf&quot;, &quot;planfile&#46;ntx&quot;, &quot;ins_code&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;zipcode&#46;dbf&quot;, &quot;zip_city&#46;ntx&quot;, &quot;zip_code&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;diagfile&#46;dbf&quot;, &quot;diagcode&#46;ntx&quot;, &quot;diagdesc&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;forms&#46;dbf&quot;, &quot;forms&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;pmtrsns&#46;dbf&quot;, &quot;&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;meddata&#46;dbf&quot;, &quot;meddata&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;scripts&#46;dbf&quot;, &quot;&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;medsys&#46;dbf&quot;, &quot;&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;pay_items&#46;dbf&quot;, &quot;pay_items&#46;cdx&quot; &#125; &#41;\n\n#ifndef PROFESSIONAL\n	aadd&#40; a, &#123; &quot;abgparm&#46;dbf&quot;, &quot;abgparm&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;adtlog&#46;dbf&quot;, &quot;adtlog&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;nurses&#46;dbf&quot;, &quot;nur_id&#46;ntx&quot;, &quot;nur_name&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;autocode&#46;dbf&quot;, &quot;acd_code&#46;ntx&quot;, &quot;acd_cpt&#46;ntx&quot;, &quot;acd_ins&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;lbdefrs&#46;dbf&quot;, &quot;lbdefrs&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;ovrprdm&#46;dbf&quot;, &quot;ovp_code&#46;ntx&quot;, &quot;ovp_cpt&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;revcodes&#46;dbf&quot;, &quot;rev_code&#46;ntx&quot;, &quot;rev_item&#46;ntx&quot;, &quot;rev_desc&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;charges&#46;dbf&quot;, &quot;chr_code&#46;ntx&quot;, &quot;chr_desc&#46;ntx&quot;, &quot;chr_cpt&#46;ntx&quot;, &quot;chr_rev&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;admit&#46;dbf&quot;, &quot;adm_rec&#46;ntx&quot;, &quot;adm_num&#46;ntx&quot;, &quot;adm_date&#46;ntx&quot;, &quot;adm_dis&#46;ntx&quot;, &quot;adm_doc&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;rooms&#46;dbf&quot;, &quot;rms_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;meddept&#46;dbf&quot;, &quot;meddept&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;ptechrgs&#46;dbf&quot;, &quot;pch_date&#46;ntx&quot;, &quot;pch_adm&#46;ntx&quot;, &quot;pch_itm&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;packages&#46;dbf&quot;, &quot;pkg_code&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;abstrct&#46;dbf&quot;, &quot;abs_adm&#46;ntx&quot;, &quot;abs_rec&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;consults&#46;dbf&quot;, &quot;cns_adm&#46;ntx&quot;, &quot;cns_doc&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;incmprec&#46;dbf&quot;, &quot;inr_adm&#46;ntx&quot;, &quot;inr_stf&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;drg&#46;dbf&quot;, &quot;drg&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;admtypes&#46;dbf&quot;,&quot;&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;condcds&#46;dbf&quot;, &quot;condcds&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;trnsfs&#46;dbf&quot;, &quot;trn_adm&#46;ntx&quot;, &quot;trn_date&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;ubcodes&#46;dbf&quot;, &quot;ubc_adm&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;medyrded&#46;dbf&quot;, &quot;medyrded&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;orders&#46;dbf&quot;, &quot;ord_adm&#46;ntx&quot;, &quot;ord_date&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;labordrs&#46;dbf&quot;, &quot;lab_adm&#46;ntx&quot;, &quot;lab_rec&#46;ntx&quot;, &quot;lab_id&#46;ntx&quot;, &quot;lab_date&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;labrslts&#46;dbf&quot;, &quot;lrs_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;labrjcts&#46;dbf&quot;, &quot;lrj_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;labcmnts&#46;dbf&quot;, &quot;lcmts_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;labphned&#46;dbf&quot;, &quot;lphnd_id&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;hemafnds&#46;dbf&quot;, &quot;hemafnds&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;labdepts&#46;dbf&quot;, &quot;ldp_dept&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;xrorders&#46;dbf&quot;, &quot;xro_id&#46;ntx&quot;, &quot;xro_adm&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;rdlgsts&#46;dbf&quot;, &quot;rdl_id&#46;ntx&quot;, &quot;rdl_name&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;xrtrn&#46;dbf&quot;, &quot;xrtrn&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;autoreg&#46;dbf&quot;, &quot;autoreg&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;triage&#46;dbf&quot;, &quot;triage&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;painarea&#46;dbf&quot;, &quot;painarea&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;cost_ctr&#46;dbf&quot;, &quot;cost_ctr&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;srv_clss&#46;dbf&quot;, &quot;srv_clss&#46;cdx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;dsuppl&#46;dbf&quot;, &quot;dsuppl&#46;cdx&quot; &#125; &#41; //&quot;ds_code&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;dtypes&#46;dbf&quot;, &quot;dtypes&#46;cdx&quot; &#125; &#41; //&quot;dt_type&#46;ntx&quot;, &quot;dt_desc&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;drstric&#46;dbf&quot;, &quot;drstric&#46;cdx&quot; &#125; &#41; //&quot;dr_code&#46;ntx&quot; &#125; &#41;\n	aadd&#40; a, &#123; &quot;dietmast&#46;dbf&quot;, &quot;dietmast&#46;cdx&quot; &#125; &#41; //&quot;dietkey&#46;ntx&quot;, &quot;dietcode&#46;ntx&quot;, &quot;dietdesc&#46;ntx&quot; &#125; &#41;\n#endif\n\nreturn a\n\n*------------------------------------------------------------------------------------\nFunction IsInDictionary&#40; odbf &#41;\nlocal cfilename &#58;= lower&#40; cFileName&#40; odbf&#58;cfilename &#41; &#41;\n	if at&#40; &quot;&#46;&quot;, cfilename &#41; == 0\n		cfilename += &quot;&#46;dbf&quot;\n	endif\n\n	if empty&#40; aFiles &#41;\n		afiles &#58;= FileIndexStruc&#40;&#41;\n	Endif\n\nreturn aScan&#40; aFiles, &#123; |e| e&#91; 1 &#93; = cFileName &#125; &#41; &gt; 0	// cfileName IN aFiles //\n[/code:2mrz0za3]','',0,'AIA=','2mrz0za3',1,0,'',299,0,0),(30326,6769,6,1014,0,'190.40.35.69',1177214728,1,0,1,1,1,1,'','opciones de compilacion','Hola amigos del foro.\nestoy compilando ABC.prg y deseo que el obj de salida sea EFG.obj,\nle pongo la opcion /oEFG pero obtengo EFG.c y ABC.obj.\ncual es la opcion para que el obj tenga el nombre pedido?\ngracias por la respuesta\nJorge Vargas','',0,'AIA=','2tdkxxhu',1,0,'',1014,0,0),(30327,6749,3,190,0,'124.7.27.102',1177214947,1,0,1,1,1,0,'','','Mr.RF\n\nThank you very much for your detailed tutorial on ADS.  Now  I am \nright track.  I will seek some more help from you after some time.\n\n\nMr.Reinaldo\n\nThank you for the source.\n\nRegards to you both\n\n- Ramesh Babu P','',0,'AIA=','3vvgan98',1,0,'',190,0,0),(30328,5477,3,904,0,'196.25.255.250',1177217322,1,0,1,1,1,1,'','','Great. Good luck, please copy me.\n\nThanks','',0,'AIA=','2hof9e7m',1,0,'',904,0,0),(30329,5477,3,2,0,'87.218.146.101',1177219580,1,0,1,1,1,1,'','','Patrick, Ollie,\n\nIf you use samples\\buildh.bat to test it then you have to modify it to use GTWIN.lib instead of GTGUI.lib, add debug.lib and remove -aa when linking. And invoke buildh.bat this way:\n\nc:\\fwh\\samples\\buildh.bat altd /b\n\nHere it is working fine:\n[url=http&#58;//imageshack&#46;us:2se6hjod][img:2se6hjod]http&#58;//img177&#46;imageshack&#46;us/img177/8828/debugdn4&#46;png[/img:2se6hjod][/url:2se6hjod]\n\nHere you have gtwin.lib and debug.lib just in case yours are not the right ones:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27268617/libs.zip.html\">http://rapidshare.com/files/27268617/libs.zip.html</a><!-- m -->','',0,'GA==','2se6hjod',1,0,'',2,0,0),(30330,6748,3,2,0,'87.218.146.101',1177220409,1,0,1,1,1,1,'','','Enrico,\n\n&gt;\nTry to press CTRL-C or CTRL-R and you will see that the scrollbar thumb will move, respectively, down and up (while the highlight bar keep holding on the first record).\n&gt;\n\nWe have removed Class TWBrowse Method KeyChar() following your advise, thanks. Tested in Vista but when Ctrl+C or Ctrl+R are pressed nothing happens (edited: same behavior in XP). Maybe that behavior is not implemented in Vista.','',0,'GA==','2mtqs1nc',1,0,'',2,0,0),(30331,6763,3,2,0,'87.218.146.101',1177220648,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Try to press PAGEDOWN and then PAGEUP: the scrollbar should go back to the top but it doesn\'t. \n\nIn Vista is working fine without modifying the method. Going to try it in XP (edited: same behavior in XP).\n\nHow many records Test.dbf has ? (Here just 2).','',0,'GA==','3vjep0fl',1,0,'',2,0,0),(30332,6769,6,2,0,'87.218.146.101',1177221883,1,0,1,1,1,1,'','','Jorge,\n\n[code:3oc8afu5]\nc&#58;\\xharbour\\bin\\harbour abc /n /oefg&#46;c\nxHarbour Compiler build 0&#46;99&#46;71 &#40;SimpLex&#41;\nCopyright 1999-2007, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'abc&#46;prg\'&#46;&#46;&#46;\nLines 4, Functions/Procedures 1\nGenerating C source output to \'efg&#46;c\'&#46;&#46;&#46;\nDone&#46;\n[/code:3oc8afu5]\nY el fichero efg.c está en el disco. Ahora:\n[code:3oc8afu5]\nc&#58;\\bcc55\\bin\\bcc32 -c -Ic&#58;\\xharbour\\include efg&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nefg&#46;c&#58;\n[/code:3oc8afu5]\nY el fichero efg.obj está en el disco','',0,'AIA=','3oc8afu5',1,0,'',2,0,0),(30333,6768,6,2,0,'87.218.146.101',1177222723,1,0,1,1,1,1,'','','A que te refieres con: ?\n \n&gt; teniendo además que ser visibles las dos tareas desde la ventana principal\n\nTener dos ventanas abiertas a la vez ? En caso afirmativo, este es un ejemplo:\n[code:2lmhdbd8]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd \n\n   DEFINE WINDOW oWnd TITLE &quot;Primera&quot;\n\n   @ 2, 2 BUTTON &quot;Segunda&quot; SIZE 80, 20 ACTION Segunda&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction Segunda&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Segunda&quot;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:2lmhdbd8]\nComo cada ventana tiene su propio procedimiento que la controla, una puede estar atendiendo a escribir datos y otra al puerto RS232\n[url=http&#58;//imageshack&#46;us:2lmhdbd8][img:2lmhdbd8]http&#58;//img291&#46;imageshack&#46;us/img291/9076/verhovenre4&#46;png[/img:2lmhdbd8][/url:2lmhdbd8]','',0,'GIA=','2lmhdbd8',1,0,'',2,0,0),(30334,6763,3,6,0,'82.61.69.51',1177225652,1,0,1,1,1,1,'','','No, you will see the problem only when you have a certain amount of record. I tried with xHarbour sample TEST.DBF that has 500 record.\n\nEMG','',0,'GIA=','pcdg1smq',1,0,'',6,0,0),(30335,6748,3,6,0,'82.61.69.51',1177226156,1,0,1,1,1,1,'','','I don\'t know why you can\'t replicate the problem but try this:\n\n[code:3tq4gf2h]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   do case\n      case nKey == K_PGUP\n           &#58;&#58;oVScroll&#58;PageUp&#40;&#41;\n? nKey, K_PGUP\n      case nKey == K_PGDN\n           &#58;&#58;oVScroll&#58;PageDown&#40;&#41;\n? nKey, K_PGDN\n      otherwise\n           return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n   endcase\n\nreturn 0[/code:3tq4gf2h]\n\nDon\'t you see the same value for nKey and for K_PGUP or K_PGDN?\n\nTry with few records.\n\nEMG','',0,'AIA=','3tq4gf2h',1,0,'',6,0,0),(30336,6763,3,2,0,'87.218.146.101',1177258233,1,0,1,1,1,1,'','','Enrico,\n\nThis seems the right fix. Its just needed to change the order of the call to ::VSetPos()\n[code:3memk2jx]\n&#46;&#46;&#46;\n         else\n\n            if &#58;&#58;oVScroll != nil\n               &#58;&#58;VSetPos&#40; &#58;&#58;VGetPos&#40;&#41; + nSkipped &#41;\n            endif\n\n            nSkipped = &#58;&#58;Skip&#40; -nLines &#41;\n            &#58;&#58;Skip&#40; -nSkipped &#41;\n\n         endif\n&#46;&#46;&#46;\n[/code:3memk2jx]','',0,'AIA=','3memk2jx',1,0,'',2,0,0),(30337,6770,6,1013,0,'201.230.202.64',1177258323,1,0,0,1,1,0,'','Hay una solucion para trabajar con MS SQL SSERVER','Estimados Colegas\n\nRequiero utilizar MS SQL SERVER, como repositorio de datos, hay qlguna solucion para esto ?\n\nGracias,\n\nMarcelo De La Cruz','',0,'AIA=','3169nfar',1,0,'',1013,0,0),(30338,6748,3,2,0,'87.218.146.101',1177258495,1,0,1,1,1,1,'','','Enrico,\n\nWe removed Method KeyChar() following your advise and everything seems to work fine. Anyhow Ctrl+C and Ctrl+R do nothing here. \n\nWhat are those keystrokes intended for ?','',0,'AIA=','2lrpl403',1,0,'',2,0,0),(30339,6748,3,6,0,'87.1.232.165',1177259190,1,0,1,1,1,1,'','','Are you saying that the KeyChar method is not invoked when you press CTRL-C or CTRL-R? It is invoked here. Anyway, CTRL-C and CTRL-R is not intended for anything. Just they caused the scrollbar to move due to the typo K_PGUP/K_PGDN (Clipper keys) instead of VK_PRIOR/VK_NEXT (Windows keys). That\'s all.\n\nEMG','',0,'AIA=','2t7qk2lq',1,0,'',6,0,0),(30340,6749,3,58,0,'84.149.93.148',1177259443,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:2uxuny61]My best advice:\n\nFor remote access you should use AIS (Advantage Internet Server), works great.\n...\nLocal servers is toooo slow for remote connection, try AIS instead. \n...\n[/quote:2uxuny61]\nHello Rene,\n\nnow i\'m totally confused.\nI thought the ADS Server would be the first choice for handling huge databases better than with dbfntx or even dbfcdx.\nIf i\'m far away from the server i can use the server type setting as \'remote server\'.\n\nBut you recommend the AIS. Is this a totally different product?\n\nWhat would you recommend if i want to access the same dbf files by workstations in a local network and also from far way workstations?\n\nBest regards,\nDetlef','',0,'gA==','2uxuny61',1,0,'',58,0,0),(30341,6763,3,6,0,'87.1.232.165',1177259547,1,0,1,1,1,1,'','','I confirm the fix, thank you!\n\nEMG','',0,'gA==','tf54hrhk',1,0,'',6,0,0),(30342,6716,3,705,0,'61.0.137.217',1177259863,1,0,1,1,1,0,'','','James \n\nYes, I want to debug same example which I post earlier. As you have suggested, I have modify my code.\n\nIt is blank out the Says and remain as controls in oDlg1:aControls for next time use. As a result while I am entering next Client’s Id, then to displaying data from database object, I have to write in my code:\n\noSayODt:SetText(oDbf:OrderDt)\noSayONo:SetText(oDbf:OrderNo)\nAnd so on total 100 Says.\n\nTo follow this I have to create total 100 oSay variables also, to identify the Says separately.\n\nIf I do not follow the above and use same Say statement, then the Says will be add as new controls in oDlg1:aControls. So every time 100 new controls add into the existing array. No, it is not expected.\n\nMy intention is to delete the Says control from the aControls, while I am going for next entry. If I am able to do so, I need not to create 100 oSay variables separately and easily can use same Say statement. This will not increase the length of the array also.\n\nIs it possible? Is it practical? Is it right way? \n\nThank you once again for your last reply.\n\nWith regards,\nArindam','',0,'gA==','2aal1dqr',1,0,'',705,0,0),(30345,6773,3,2,0,'87.218.146.101',1177262062,1,0,1,1,1,1,'','UEStudio config files for FWH and FWPPC','Here you have the UEStudio config files for FWH and FWPPC:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27355106/fwh.zip.html\">http://rapidshare.com/files/27355106/fwh.zip.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27355194/fwppc.zip.html\">http://rapidshare.com/files/27355194/fwppc.zip.html</a><!-- m -->\n\nJust create a FWH folder and a FWPPC folder at c:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs and unzip each file in each folder','',0,'gA==','2472djyp',1,0,'',2,0,0),(30346,6774,6,2,0,'87.218.146.101',1177262191,1,0,1,1,1,1,'','UEStudio configuración para FWH y FWPPC','Aqui teneis los ficheros de configuración del UEStudio para FWH y FWPPC:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27355106/fwh.zip.html\">http://rapidshare.com/files/27355106/fwh.zip.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27355194/fwppc.zip.html\">http://rapidshare.com/files/27355194/fwppc.zip.html</a><!-- m -->\n\nCread una carpeta FWH y otra FWPPC en c:\\Archivos de Programa\\IDM Computer Solutions\\UEStudio \'06\\configs y descomprimir el contenido de cada fichero en su respectiva carpeta','',0,'gA==','3in17g5d',1,0,'',2,0,0),(30347,6775,6,348,0,'201.230.116.90',1177263291,1,0,1,1,1,0,'','Problemas al compilar mi clase en harbour','Buenas Tardes\n\nestoy compilando todas mis funciones que usaba en FW/16 bits con CLipper hacia Harbour , sin problemas, hasta que  decidi compilar una Clase que desarrolle para guardar las variables globales del sistema en un objeto. que compilaba sin error en Clipper, pero en harbour me da el mensaje de error  siguiente : \n\nHarbour Compiler Alpha build 44.0 (Flex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'lkdatsys.prg\' and generating preprocessed output to \'lkdatsys.ppo\'...\n\nlkdatsys.prg(14) Error E0030  Syntax error: \"parse error at \'(\'\"\nlkdatsys.prg(75) Error E0030  Syntax error: \"parse error at \'(\'\"\nlkdatsys.prg(76) Error E0030  Syntax error: \"parse error at \'_CARGACIA\'\"\nlkdatsys.prg(78 ) Error E0030  Syntax error: \"parse error at \'endif\'\"\nlkdatsys.prg(81) Error E0010  \'Class \"KDAT_SYS\" not declared for method: NEW(W_D\nRIVE,W_INSTALAR,W_BASEDIR,W_ID_SYS,W_NOMSYS,W_MODSYS,W_VERSYS,W_AUTOR1,W_AUTOR2)\n \'\nlkdatsys.prg(81) Warning W0007  Function \'KDAT_SYS\' does not end with RETURN statement\nlkdatsys.prg(92) Error E0030  Syntax error: \"parse error at \'W_DRIVE\'\"\nlkdatsys.prg(145) Error E0010  \'Class \"KDAT_SYS\" not declared for method: CARGACIA(cl_IDCIA,cl_EMPRESA,cl_DEFA) \'\n7 errors\n\nNo code generated\n\n\n\n\nAparentemente me falta definir algun include o definicion\nAgradecere alguna indicacion\n\nLubin\n','',0,'Ag==','3hhuj495',1,0,'',348,0,0),(30348,6770,6,39,0,'201.220.111.29',1177263378,1,0,1,1,1,0,'','','a travez de ado u odbc.\n\n\nAtte.,\nLautaro','',0,'Ag==','3jl0bnuc',1,0,'',39,0,0),(30349,6770,6,348,0,'201.230.116.90',1177264066,1,0,1,1,1,0,'','','Hola Lautaro\n\nYo tambien estoy interesado en el Tema, te seria posible darnos un ejemplo o documentacion como realzarlo, o en todo caso donde buscar informacion\n\nGracias \nLubin\n\n<!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->','',0,'Ag==','2of4llpj',1,0,'',348,0,0),(30350,6759,6,348,0,'201.230.116.90',1177264342,1,0,1,1,1,0,'','','Gracias Antonio\n\na seguir pa´ adelante\n\nLubin','',0,'Ag==','10ykxjjq',1,0,'',348,0,0),(30351,6764,6,969,0,'83.165.99.149',1177265273,1,0,1,1,1,0,'','','Hola AOKISANTOS:\n\nEl problema que planteas me tiene desconcertado, no por que se produzca, ya que es un error que conocía, sino porque tal como defines xBrouse en un recurso y sin borde, no debería producirse, salvo que hayas alterado el código original del xbrouse.prg. (y creo que sí)\n\nEn principio este problema se produce por un mal cálculo del la altura del xbrouse cuando esta definido el control con borde (WS_BORDER), por recursos, (.RC) y se utiliza con Footer, en estos casos hay una discordancia entre el pintado (::Paint()) y el scroll de la función XBrwScroll() que es el bug que tú indicas y además  pinta mal el Footer (que como veras en los JPGs que adjuntas , esta cortado, le falta las últimas líneas de pixels)  \n\nTemporalmente la solución, y estoy trabajando en corregir este problema y otros, es cambiar en el código de xBrowse.prg  para que METHOD BrwHeight()  devuelva 2 ó 4 pixels menos, algo así como:\n\n   METHOD BrwHeight()    INLINE ( ::nHeight - 2 - iif( ::lHScroll, GetSysMetrics( SM_CYHSCROLL ), 0 ) )\n\nó\n\n   METHOD BrwHeight()    INLINE ( ::nHeight - 4 - iif( ::lHScroll, GetSysMetrics( SM_CYHSCROLL ), 0 ) )\n\n\nY también  hay un bug en el METHOD GoUp() que te puede afectar cuando la altura de la cabecera y la de las líneas de datos son diferentes, donde pone:\n\n::EraseData( ( Int(nHeight/::nRowHeight) + 1 )* ::nRowHeight  )\n\nDebería poner:\n\n            ::EraseData( Int(nHeight/::nRowHeight) * ::nRowHeight + ::HeaderHeight() )  \n\n\n \nUn saludo,\n\nRamón Avendaño.','',0,'Ag==','md6yz1gn',1,0,'',969,0,0),(30352,6775,6,348,0,'201.230.116.90',1177265994,1,0,1,1,1,0,'','Re: Problemas al compilar mi clase en harbour','Holas con todos,  les comento ...\n\nYo mismo me respondo,  resulta que  la clase comienza asi : \n   CLASS  KDAT_SYS()\n\nCon clipper no sale error  pero para evitar ese error retire los ()  asi:\n    CLASS KDAT_SYS\nSi se resolvio el problema \n\n\nPero a su vez me salio error de Variable, este es el resultado de la compilacion:  \n\n\nHarbour Compiler Alpha build 44.0 (Flex)\nCopyright 1999-2004, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'lkdatsys.prg\' and generating preprocessed output to \'lkdatsys.ppo\'...\n\nlkdatsys.prg(86) Error E0030  Syntax error: \"parse error at \'W_DRIVE\'\"\n1 error\n\nNo code generated\n\n\nHe visto la linea a la que se hace referencia y corresponde al siguiente fragnmento de uno de los Metodos creados :\n\nMETHOD NEW(W_DRIVE,W_INSTALAR,W_BASEDIR,W_ID_SYS,W_NOMSYS,W_MODSYS,W_VERSYS,W_AUTOR1,W_AUTOR2) CLASS  KDAT_SYS\n\n   *Valor Default si no se especifca parametros\n   DEFAULT W_DRIVE   := CURDRIVE()           ,;          &lt;&lt;&lt;===--- ESTA ES LA LINEA 86 \n           W_INSTALAR:= .F.                  ,;\n           W_BASEDIR := \"SIGERCON\"           ,;\n           W_ID_SYS  := \"SigerconX\"          ,;\n           W_NOMSYS  := \"Sis.SGCx\"           ,;\n           W_MODSYS  := \"ModuloX\"            ,;\n           W_VERSYS  := \"Milenium\"           ,;\n           W_AUTOR1  := \"Lubin Azahuanche\"   ,;\n           W_AUTOR2  := \"\"\n   *====================================================================================\n   * Definicion de Variables de Valores Globales del Sistema\n   ::SYS_ID_SYS  := W_ID_SYS     &amp;&amp; ID del sistema.......y continua..\n\n\nSera acaso que DEFAULT no se puede usar en harbour, pues si lo pongo como comentario \"*\" ..  me compila normalmente..\n\n\nAgradecere alguna indicacion\n\nLubin\n[/quote]','',0,'Ag==','24lnp8dx',1,0,'',348,0,0),(30353,5477,3,996,0,'65.102.185.182',1177266059,1,0,1,0,1,0,'','','Antonio,\n\nStill no luck I\'m afraid.  When I try and build altd.prg I get these errors:\n\n[code:rawofbxl]\n&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for Harbour 7&#46;01 - January 2007         Harbour development power  &#9474;&#9604;\n&#9474; &#40;c&#41; FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;&#9608;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9608;\n  &#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;\nCompiling&#46;&#46;&#46;\nHarbour Alpha build 1&#46;0 Intl&#46;\nCopyright 1999-2007, http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'altd&#46;prg\' and generating preprocessed output to \'altd&#46;ppo\'&#46;&#46;&#46;\nLines 28, Functions/Procedures 1\nGenerating C source output to \'altd&#46;c\'&#46;&#46;&#46; Done&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\naltd&#46;c&#58;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETENTRY\' referenced from C&#58;\\HARBOUR\\\nLIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETGO\' referenced from C&#58;\\HARBOUR\\LIB\n\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETCBTRACE\' referenced from C&#58;\\HARBOU\nR\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_HEVAL\' referenced from C&#58;\\HARBOUR\\LIB\\DEB\nUG&#46;LIB|dbgthsh\nError&#58; Unresolved external \'_HB_FUN_HB_HVALUEAT\' referenced from C&#58;\\HARBOUR\\LIB\\\nDEBUG&#46;LIB|dbgthsh\nError&#58; Unresolved external \'_HB_FUN_HB_HKEYAT\' referenced from C&#58;\\HARBOUR\\LIB\\DE\nBUG&#46;LIB|dbgthsh\nError&#58; Unresolved external \'_HB_FUN_HB_CSTR\' referenced from C&#58;\\HARBOUR\\LIB\\DEBU\nG&#46;LIB|dbgthsh\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_GETEXPRVALUE\' referenced from C&#58;\\HARB\nOUR\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_GETSOURCEFILES\' referenced from C&#58;\\HA\nRBOUR\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_ISVALIDSTOPLINE\' referenced from C&#58;\\H\nARBOUR\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETNEXTROUTINE\' referenced from C&#58;\\HA\nRBOUR\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETQUIT\' referenced from C&#58;\\HARBOUR\\L\nIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETTOCURSOR\' referenced from C&#58;\\HARBO\nUR\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_ADDBREAK\' referenced from C&#58;\\HARBOUR\\\nLIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_DELBREAK\' referenced from C&#58;\\HARBOUR\\\nLIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETTRACE\' referenced from C&#58;\\HARBOUR\\\nLIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_ADDWATCH\' referenced from C&#58;\\HARBOUR\\\nLIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_VMVARGGET\' referenced from C&#58;\\HARBOUR\n\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_VMVARGSET\' referenced from C&#58;\\HARBOUR\n\\LIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_DELWATCH\' referenced from C&#58;\\HARBOUR\\\nLIB\\DEBUG&#46;LIB|debugger\nError&#58; Unresolved external \'_HB_FUN_HB_DBG_SETWATCH\' referenced from C&#58;\\HARBOUR\\\nLIB\\DEBUG&#46;LIB|debugger\n* There are errors\n\nC&#58;\\FWH\\SAMPLES&gt;buildh altd /b\n[/code:rawofbxl]\n\n\nHere is what my BuildH.bat file contains:\n\n[code:rawofbxl]\n@ECHO OFF\nCLS\nECHO \nif A%1 == A GOTO &#58;SINTAX\nif NOT EXIST %1&#46;prg GOTO &#58;NOEXIST\n\nECHO Compiling&#46;&#46;&#46;\n\nset hdir=c&#58;\\harbour\nset fwh=c&#58;\\FWH\nset bcdir=c&#58;\\borland\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i%fwh%\\include;%hdir%\\include /w /p %2 %3 &gt; clip&#46;log\n@type clip&#46;log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1&#46;exe -I%hdir%\\include %1&#46;c &gt; b32&#46;bc\n%bcdir%\\bin\\bcc32 -M -c @b32&#46;bc\n&#58;ENDCOMPILE\n\nIF EXIST %1&#46;rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho %fwh%\\lib\\FiveH&#46;lib %fwh%\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\nrem echo %hdir%\\lib\\gtgui&#46;lib + &gt;&gt; b32&#46;bc  // Use gtwin&#46;lib instead for debugger&#46;\necho %hdir%\\lib\\gtwin&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\codepage&#46;lib + &gt;&gt; b32&#46;bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc\nrem echo %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\iphlpapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\rasapi32&#46;lib, &gt;&gt; b32&#46;bc\n\nIF EXIST %1&#46;res echo %1&#46;res &gt;&gt; b32&#46;bc\nrem uncomment this line to use the debugger and comment the next one\n%bcdir%\\bin\\ilink32 -Tpe -s @b32&#46;bc\nrem %bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s @b32&#46;bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1&#46;c\n\n&#58;LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n&#58;SINTAX\nECHO    SYNTAX&#58; Build &#91;Program&#93;     &#123;-- No especifiques la extensi¢n PRG\nECHO                                &#123;-- Don\'t specify &#46;PRG extension\nGOTO EXIT\n\n&#58;NOEXIST\nECHO The specified PRG %1 does not exist\n\n&#58;EXIT\n[/code:rawofbxl]\n\nHere is my \\Harbour\\Lib\\ folder:\n\n[code:rawofbxl]\n\n04/22/2007  10&#58;58 AM    &lt;DIR&gt;          &#46;\n04/22/2007  10&#58;58 AM    &lt;DIR&gt;          &#46;&#46;\n01/13/2007  08&#58;41 AM            99,840 codepage&#46;lib\n01/13/2007  08&#58;41 AM            71,168 common&#46;lib\n01/13/2007  08&#58;41 AM           126,976 dbfcdx&#46;lib\n01/13/2007  08&#58;41 AM            34,304 dbffpt&#46;lib\n01/13/2007  08&#58;41 AM            51,712 dbfntx&#46;lib\n04/17/2007  09&#58;42 PM           183,808 debug&#46;lib\n01/13/2007  08&#58;41 AM             5,120 gtgui&#46;lib\n04/17/2007  09&#58;42 PM            15,872 gtwin&#46;lib\n01/13/2007  08&#58;41 AM            10,752 hbsix&#46;lib\n01/13/2007  08&#58;41 AM            17,408 hsx&#46;lib\n01/13/2007  08&#58;41 AM           213,504 lang&#46;lib\n01/13/2007  08&#58;41 AM            61,952 macro&#46;lib\n04/22/2007  10&#58;58 AM            54,436 OLD&#46;ZIP\n01/13/2007  08&#58;41 AM           216,064 pp&#46;lib\n01/13/2007  08&#58;41 AM           157,184 rdd&#46;lib\n01/13/2007  08&#58;53 AM            62,976 rddads&#46;lib\n01/13/2007  08&#58;41 AM           672,256 rtl&#46;lib\n01/13/2007  08&#58;41 AM           250,368 vm&#46;lib\n              18 File&#40;s&#41;      2,305,700 bytes\n               2 Dir&#40;s&#41;   4,571,369,472 bytes free\n\nC&#58;\\harbour\\lib&gt;\n\n[/code:rawofbxl]','',0,'AIA=','rawofbxl',1,0,'',996,0,0),(30354,6749,3,299,0,'24.233.172.101',1177267541,1,0,1,0,1,0,'','','René is THE professor of ADS.  He helped me a lot when I got started, so with his permission, I\'ll try to explain a bit more:\n\nADS has 3 access modes:\n\n\"Local\" - means no ADS server software running on the server.  You access your tables in the same manner you\'ve always have.  In this manner the server only serves as a file server.  Slow, prone to corruption, no security.  This RDD is free.  You are probably using it right now.\n\n\"Remote\"- You might think that this means access via the Internet.  It does not.  It mean that you access your tables via the server software running on the server.  But work stations are connected inside the LAN where the server is.  This is what is called a client-server architecture.  Here only the server software (ADS deamon/service) really access the tables and responds to client workstations sending requested data.  Using the very same free RDDs, DBFS may be invisible to the client workstations and only after the app has connected to a DD owned by the ADS server service it gains access to data.  Here the server is NO longer a simple file server.  Think of it like an SQL server.  Files are opened and closed in the server not at the workstation.  Files are **NOT** sent to the workstation for processing to take place.  If power fails on the workstation or it freezes, the files are not affected.  Althought it is not obligatory, you should access your tables by connecting to the DD.  Only by using a DD you get to protect DBFS and use SLQ commands on the very same dbf/ntx -dbf/cdx files, etc...  In this scenario you HAVE to purchase the \"server\" software which runs as a service in windows, as a NML in Novell, and as a deamon in Linux.  Prices depend on the # of users (connections) you want to purchase to connect concurrently.  I\'ve been using the windows and the Linux versions with much success.  I have never tried the Novell version.\n\n\"Internet\" - This is what rené is referring to as the AIS.  With ADS server software running on the server, local computers (LAN) can access data in the manner I described above, but other workstations out side de LAN, ie.. WAN (via the Internet) can also access the data by connecting to the DD.  The user/password combination used to connect to the DD must have internet access enabled.  A few other considerations must also be looked at.  But the ADS service/deamon running on the server is the very same used by the \"remote\" connecting computers inside the lan.   There are two different ways to connect and view data via an Internet connection.  One of them (which is what I\'m using), is connecting a FW-Win32 application directly to the DD using a connection from the number of connections allowed by your license directly to the IP/Port where the ADS server is responding to internet connections.  Another is via a .net or PHP or Java connection.  In the later manner no connection slot from your # of connections license is used.\n\nI\'ll leave you with that.  I hope it helped.\n\n\nReinaldo.','',0,'AIA=','1xjgw4t5',1,0,'',299,0,0),(30355,6776,6,9,0,'85.54.254.155',1177267786,1,0,1,1,1,1,'','FILTRAR CAMPO MEMO','En un fichero cdx con campos memos ¿como puedo realizar un filtro con una clave de su contenido?\n\nEn los otros tipos de campos, el filtro lo realizo mediante un indice:\n\n    INDEX ON fichero-&gt;NOMBRE  for cVariable $ fichero-&gt;MATRICULA \n\nPero esto no funciona con los campos memos.\n\nTambien he intentado con un SET FILTER, pero tampoco me ha funcionado.\n\n¿Alguna idea?','',0,'AIA=','1uqbo1zb',1,0,'',9,0,0),(30356,6716,3,303,0,'72.199.41.171',1177268971,1,0,1,1,1,0,'','','Arindam,\n\n&gt;Is it possible?\n\nProbably.\n\n&gt;Is it practical?\n\nNo. \n\n&gt;Is it right way?\n\nNo.\n\nDid you try my example code? If you use the UPDATE clause with any control it adds the control to the list of controls that get automatically updated when you do oDlg:update(). You don\'t need to erase the data in the SAYs yourself, nor do you need to put new data in. The data is automaically replaced with new data when oDlg:update() is called. If the database pointer has been moved to a new record then all the SAYs will reload the data from the database object into the SAYs. Try my example code replacing the oCust:blank() witho oCust:skip() and you will see that new data gets displayed each time you press the button.\n\nForget everything you were trying to do. FW handles this all automatically.\n\nJames','',0,'AIA=','1v1edfv3',1,0,'',303,0,0),(30357,5477,3,2,0,'87.218.146.101',1177269020,1,0,1,1,1,1,'','','Patrick,\n\nAre you using Harbour, the one provided by FiveTech, or have you download it from the Harbour CVS ?','',0,'AIA=','3by4c0tb',1,0,'',2,0,0),(30358,5477,3,2,0,'87.218.146.101',1177272788,1,0,1,1,1,1,'','','Ollie,\n\nOk we found the problem: You need FWH 7.04 and the Harbour setup we provide with it. It does not work with 7.01.','',0,'AIA=','1znd6odw',1,0,'',2,0,0),(30359,5477,3,996,0,'65.102.185.182',1177274579,1,0,1,0,1,0,'','','Ollie,\n\nI just wanted to let you know that Antonio had me upgrade to the latest version of FiveWin (7.04) and the debugger is working perfectly now.  You will still need the gtwin.lib file Antonio mentioned.\n\n-Patrick','',0,'AIA=','35ocvx6w',1,0,'',996,0,0),(30360,6716,3,303,0,'72.199.41.171',1177276961,1,0,1,1,1,0,'','','Arindam,\n\nJust try the code below with the FW\\samples\\customer.dbf file and you will see what I am talking about.\n\nJames\n\n[code:2xiqkbej]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg, oCust, oBtn\n\n   use customer\n   database oCust\n\n   define dialog oDlg\n\n   @ 1,2 say oCust&#58;last UPDATE\n\n   @ 3,2 button oBtn action &#40; oCust&#58;skip&#40;&#41;, oDlg&#58;update&#40;&#41; &#41;\n\n   activate dialog oDlg centered\n\nreturn nil[/code:2xiqkbej]','',0,'AIA=','2xiqkbej',1,0,'',303,0,0),(30361,6749,3,58,0,'84.149.109.29',1177278241,1,0,1,1,1,0,'','','Reinaldo,\n\nyour answer helped me very much.\n\nYou were right, i thought the \"remote\" server mode is the one to connect from a WAN.\nThanks for the clarification <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> .\n\nAs you already work with this technology i have some more questions.\nIs there a reasonable speed when browsing data with an AIS connection?\nIs it possible to allow other clients from the internet to retrieve data from an AIS with php scripts ( just as with mySQL ) ?\nAnd a last question, can i use a query with SQL like syntax from an AIS?\n\nBest regards,\nDetlef','',0,'AIA=','76gloovb',1,0,'',58,0,0),(30362,6777,6,66,0,'201.212.114.2',1177291931,1,0,1,0,1,0,'','Como instalar mi aplicacion en 2 pc red xp','Tengo el programa en una maquina , y desde el escritorio de la otra cree un acceso directo al exe, cuando lo ejecuto no me muestra ninguno de los iconos de los botones , ademas de producirme error en la apertura de archivos. \n\nDebo ponerle set default to en el programa main\n\n\ndesde ya muchisimas gracias \nFabian \n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','orlyvlul',1,0,'',66,0,0),(30363,6749,3,299,0,'24.233.172.101',1177297985,1,0,1,0,1,0,'','','[quote:2038yjnl]\nIs there a reasonable speed when browsing data with an AIS connection? \n[/quote:2038yjnl]\n\nresponse is acceptable.  Just open files and keep them opened through the session.  I use xbrowse.  I have users work totally via an internet connection.  Browse, edit data, print reports using a fw-xharbour app.\n\n[quote:2038yjnl]\nIs it possible to allow other clients from the internet to retrieve data from an AIS with php scripts ( just as with mySQL ) ?\n[/quote:2038yjnl]\n\nYes.  Totally.  Even parameterized queries with PHP.  Just like with MySQL. \n\n[quote:2038yjnl]\nAnd a last question, can i use a query with SQL like syntax from an AIS?\n[/quote:2038yjnl]\n\nAbsolutly! and very fast!  But must use a Data Dictionary connection, that\'s all.  You also have triggers, stored procedures, on-line backup, and replication.  With time I\'ve been using sql statements more and more.   Latetly I\'ve been recurring to SQL querries to allow users to xbrowse datasets built ad-hoc.  \n\nListen; there is a recent book on the subject: \"Advantage Database Server, A developer\'s guide\" by Cary Jensen and Loy Anderson.  You\'ll find it in Amazon.\n\nThere is a 2 user version of the ADS server available for free from the advantagedatabase.com page.  It is a good idea to download and start playing with it.  That\'s how I got started.  I get special pricing from Extended Systems so, when the time comes for your customers to purchase, email me and I\'ll transfer my savings over to any fw developer interested.\n\nReinaldo.','',0,'gA==','2038yjnl',1,0,'',299,0,0),(30364,6777,6,73,0,'201.165.172.82',1177299073,1,0,1,1,1,0,'','','Tienes que conectarla como unidad de red, (asiganrle una unidad) en la pc terminal\nsalu2\npaco','',0,'gA==','nmbvxc7s',1,0,'',73,0,0),(30365,6749,3,58,0,'84.149.115.33',1177310227,1,0,1,1,1,0,'','','Reinaldo,\n\nmany thanks again for your explanations.\nThis now made up my decision to plan my redesign with ADS/AIS as database system.\n\nBest regards,\nDetlef','',0,'gA==','5h3gqs18',1,0,'',58,0,0),(30366,6735,6,28,0,'213.27.201.254',1177312852,1,0,1,1,1,0,'','','Mandar un correo a pacogarcia[arroba]canalfive[punto]com y os los envio gustosamente.\n\nUn saludo\n\nPaco Garcia','',0,'','3hkaxylq',1,0,'',28,0,0),(30367,6669,6,1025,0,'81.84.76.22',1177320173,1,0,1,1,1,0,'','Crystal XI y xharbour','Hi Biel,\n\nThanks again for helpful you explanations.\n\nI run the app Activexxx and the information retrieved is CrystalReports115.ActiveXReportViewer.1. I pasted this in my code and it works !! Finaly i have the preview of Crystal Reports showing the information from the rpt previously created.\n\nBut something is missing ... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> The information within the rpt has not the information updated with the data dictionary created with Advantage Data Architect.\n\nWhen i create or modify a register on the database and open the rpt via my app, i don\'t get the information updated. Aperantly when the app call´s the rpt, the connection to Advantage Database server is not established. Do i need to put something else in my code to referesh the data in the rpt ?\n\nThis is my environment:\n\nServer:\n\n1 - Advantage Database Server 8.1 Installed on a remote server\n2 - Advantage Crystal Reports Driver 8.1\n3 - The test app that is going to executed remotely on client machines\n4 - The test rpt (made with Crystal pointed to an Advantage connection via Data dictionary )and the dll´s necessary to run the app remotely\n5 - The data dictionary created with Advantage Data Architect\n\nClient Machine:\n\n1 - All necessary components to run the Crystal Reports Preview (It´s working fine)\n2 - A shortcut to the test app to be executed on the Server.\n3 - All communication dll´s necessary to run the app\n\nEverything works fine but as i already said the information on the rpt is not updated with the data dictionary.\n\nThis is my code:\n\n#include \"Fivewin.ch\"\n\nFUNCTION MAIN()\n\n    LOCAL oCrystal := CREATEOBJECT( \"CrystalRuntime.Application\" )\n    LOCAL oReport  := oCrystal:OpenReport( \"mestre_artigos.rpt\" )\n\n    LOCAL oWnd, oCRViewer\n\n    DEFINE WINDOW oWnd\n\n    oCRViewer = TActiveX():New( oWnd, \"CrystalReports115.ActiveXReportViewer.1\" )\n            \n    oCRViewer:SetProp( \"ReportSource\", oReport )\n    oCRViewer:Do( \"ViewReport\" )\n\n    oWnd:oClient = oCRViewer\n\n    ACTIVATE WINDOW oWnd;\n             MAXIMIZED\n\n    RETURN NIL\n\nAgain Many thanks for your help.\n\nBest regards,\n\nMário paiva','',0,'','l3m10j6r',1,0,'',1025,0,0),(30368,6773,3,2,0,'87.218.146.101',1177320641,1,0,1,1,1,1,'','','In the FWH config file there is a missing comma:\n\nCmd0 = ilink32 $(LOPT) c0w32.obj $FGO, $T,, $(LIBS),, $FGR','',0,'','1n1tqitw',1,1177335767,'',2,1,0),(30369,6774,6,2,0,'87.218.146.101',1177320677,1,0,1,1,1,1,'','','En el fichero de configuración de FWH falta una coma:\n \nCmd0 = ilink32 $(LOPT) c0w32.obj $FGO, $T,, $(LIBS),, $FGR','',0,'','3hxuzny4',1,1177335876,'',2,1,0),(30370,6767,3,2,0,'87.218.146.101',1177320787,1,0,1,1,1,1,'','','Dietmar,\n\nIf we could implement the equivalent functions for the ones that are used one, then we could support both help files formats','',0,'','2nb7qfy9',1,0,'',2,0,0),(30371,6748,3,2,0,'87.218.146.101',1177320930,1,0,1,1,1,1,'','','Enrico,\n\nI see. Well as we have removed Method KeyChar() then it should be fine now <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','yvpnikw2',1,0,'',2,0,0),(30372,6748,3,6,0,'82.57.160.102',1177321080,1,0,1,1,1,1,'','','Yes, thank you.\n\nEMG','',0,'','y8v4lue0',1,0,'',6,0,0),(30373,6761,2,2,0,'87.218.146.101',1177322004,1,0,1,1,1,1,'','','Estás usando una DLL para los recursos ?\n\nEn caso afirmativo, y si no se muestran los recursos, entonces es que no consigue encontrar la DLL. Prueba a copiarla a tu ordenador','',0,'','1xx9f7aj',1,0,'',2,0,0),(30374,6778,7,413,0,'195.55.176.112',1177322843,1,0,1,1,1,1,'','Error falta gtgui.lib en UESTUDIO','Antonio, \n\nTengo la version FWPPC hasta la 1.0 ahora cuando intento compilar con el ustudio y el ejemplo que tu pones en el video me dice: \n[code:346pj4ay]\n--------------------ConfiguraciÃ³n&#58; Test - Debug--------------------\nHarbour Compiler Alpha build 45&#46;0 &#40;Flex&#41;\nCopyright 1999-2005, http&#58;//www&#46;harbour-project&#46;org/\nG&#58;\\FWPPC\\UESTUDIO\\Prueba1\\Test&#46;prg&#40;11&#41; Warning W0005  RETURN statement with no return value in function\nMicrosoft &#40;R&#41; C/C++ Optimizing Compiler Version 12&#46;20&#46;9615 for ARM\nCopyright &#40;C&#41; Microsoft Corp 1984-2002&#46; All rights reserved&#46;\n\nTest&#46;c\nHarbour Compiler Alpha build 45&#46;0 &#40;Flex&#41;\nCopyright 1999-2005, http&#58;//www&#46;harbour-project&#46;org/\nMicrosoft &#40;R&#41; C/C++ Optimizing Compiler Version 12&#46;20&#46;9615 for ARM\nCopyright &#40;C&#41; Microsoft Corp 1984-2002&#46; All rights reserved&#46;\n\notro&#46;c\nLINK &#58; fatal error LNK1181&#58; cannot open input file \'G&#58;\\FWPPC\\HARBOURCE\\LIB\\gtgui&#46;lib\'\nTest&#46;EXE - 1 error&#40;es&#41;, 1 advertencia&#40;s&#41;\n[/code:346pj4ay]\n\nHe revisado el harbource y no tengo esa libreria, ¿hay que hacer algo para generala o hay que cambiarla por otra?\n\nGracias','',0,'AIA=','346pj4ay',1,0,'',413,0,0),(30375,6736,6,106,0,'85.34.123.173',1177323397,1,0,1,1,1,1,'','','Josè, acabo de probar Free Commander y no está nada mal... lástima que no se pueden buscar los archivos presionando la tecla Alt y los primeros caràcteres del nombre del archivo como se hacia con NC o CN (o Ctrl+Alt + los primeros carácteres del nombre del archivo en Total Commander), y la otra cosa que le falta (a primer golpe de vista) es acceder a los archivos del POCKET como Total Commander.\n\nSaludos','',0,'AIA=','2v7bcna0',1,0,'',106,0,0),(30376,6768,6,106,0,'85.34.123.173',1177323890,1,0,1,1,1,1,'','','Verhoven, \n\nyo hago dos aplicaciones diferentes (o dos sesiones del mismo programa), una para acceder y leer los datos del RS-232 (cajas registradoras), y otra para acceder y hacer todas las tareas manuales.\n\n(En realidad es el mismo programa llamado con un parametro diferente, segun tenga que acceder a la lectura del RS-232 o tareas manuales)\n\n\nSaludos','',0,'AIA=','37bvc9qv',1,0,'',106,0,0),(30377,6736,6,106,0,'85.34.123.173',1177324525,1,0,0,1,1,1,'','','José, rectifico, veo que no hay que presionar Alt o Ctrl + Alt para buscar archivos en la carpeta actual... basta digitar el nombre... MUY BUENO!!!! faltaría que acceda al POCKET y sería un lujo.\n\n\n\nSaludos','',0,'AIA=','13f9knsr',1,0,'',106,0,0),(30378,6778,7,2,0,'87.218.146.101',1177328302,1,0,1,1,1,1,'','','Andrés,\n\nRenombra tu gtwin.lib como gtgui.lib ó cambia el nombre en el fichero de configuración de FWPPC para UEStudio por gtwin.lib','',0,'AIA=','1l7xzuy9',1,0,'',2,0,0),(30379,6736,6,2,0,'87.218.146.101',1177328407,1,0,1,1,1,1,'','','Pedro,\n\nTotal Commander accede al Pocket PC y también hay una versión de Total Commander para Pocket PC','',0,'AIA=','17wa7esx',1,0,'',2,0,0),(30380,6755,6,1023,0,'201.92.183.118',1177328861,1,0,1,1,1,0,'','','O ccodcli é um campo da tabela cadcli (cadastro de clientes), eu conecto ao banco de dados usando SQLRDD','',0,'AIA=','1961wgsw',1,0,'',1023,0,0),(30381,6736,6,106,0,'85.34.123.173',1177331082,1,0,1,1,1,1,'','','Antonio, \n\nen su época instalé el plug-in para acceder al pocket pc de Total Commander y andaba muy bien, también probé la versión para POCKET que hace un tiempo era free, no se ahora.\nAmbos se parecen muchisimo al viejo Norton Commander.\nLa ventaja del free si funcionara tambien el acceso a pocket, es que podría tambien instalarlo en algún cliente, sin tener que pagar la licencia.\n\n\nSaludos','',0,'AIA=','3u6q4c2y',1,0,'',106,0,0),(30382,6778,7,413,0,'195.55.176.112',1177334113,1,0,1,1,1,1,'','','Eso fue lo primero que hice renombre el fichero aplicacion de gtgui.lib a gtwin.lib y me dio estos errores por eso mande el mensaje.[code:1p6gbkv8]\n--------------------ConfiguraciÃ³n&#58; Test - Debug--------------------\nHarbour Compiler Alpha build 45&#46;0 &#40;Flex&#41;\nCopyright 1999-2005, http&#58;//www&#46;harbour-project&#46;org/\nG&#58;\\FWPPC\\UESTUDIO\\Prueba1\\Test&#46;prg&#40;11&#41; Warning W0005  RETURN statement with no return value in function\nMicrosoft &#40;R&#41; C/C++ Optimizing Compiler Version 12&#46;20&#46;9615 for ARM\nCopyright &#40;C&#41; Microsoft Corp 1984-2002&#46; All rights reserved&#46;\n\nTest&#46;c\nHarbour Compiler Alpha build 45&#46;0 &#40;Flex&#41;\nCopyright 1999-2005, http&#58;//www&#46;harbour-project&#46;org/\nMicrosoft &#40;R&#41; C/C++ Optimizing Compiler Version 12&#46;20&#46;9615 for ARM\nCopyright &#40;C&#41; Microsoft Corp 1984-2002&#46; All rights reserved&#46;\n\notro&#46;c\n   Creating library Test&#46;lib and object Test&#46;exp\nTest&#46;obj &#58; error LNK2001&#58; unresolved external symbol HB_FUN___DBGENTRY\notro&#46;obj &#58; error LNK2001&#58; unresolved external symbol HB_FUN___DBGENTRY\nTest&#46;obj &#58; error LNK2001&#58; unresolved external symbol HB_FUN_TWINDOW\notro&#46;obj &#58; error LNK2001&#58; unresolved external symbol HB_FUN_MSGINFO\nTest&#46;exe &#58; fatal error LNK1120&#58; 3 unresolved externals\nTest&#46;EXE - 5 error&#40;es&#41;, 1 advertencia&#40;s&#41;\n[/code:1p6gbkv8]\n\nPero me he fijado en mensajes anteriores que es debido a una actualizacion del harbource. El Buildce me funciona perfectamente pero enlazando gtwin.','',0,'AIA=','1p6gbkv8',1,0,'',413,0,0),(30383,6773,3,2,0,'87.218.146.101',1177335699,1,0,1,1,1,1,'','','Ops, some final changes regarding the resources management <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nHere is the final FWH config file:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27489570/fwh.zip.html\">http://rapidshare.com/files/27489570/fwh.zip.html</a><!-- m -->','',0,'AIA=','19aoirce',1,0,'',2,0,0),(30384,6774,6,2,0,'87.218.146.101',1177335859,1,0,1,1,1,1,'','','Unos últimos cambios en el uso de los recursos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAqui está el fichero correcto de configuración de FWH:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27489570/fwh.zip.html\">http://rapidshare.com/files/27489570/fwh.zip.html</a><!-- m -->','',0,'AIA=','1nbhqlh2',1,0,'',2,0,0),(30385,6669,6,1025,0,'81.84.76.22',1177336137,1,0,1,1,1,0,'','Crystal XI y xharbour','Hi again Biel,\n\nThanks to your examples (i missed the example code to Pedro Faro) sorry <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->, i can finally put almost all things working fine includind the connection to ADS established and the rpt´s updated to the Crystal Reports preview !\n\nJust one more thing to put the solution operational:\n\nWe need to now what are the components (Dll´s and what so ever) to distribute with our apps and put the client machines running the Crystal Report Preview XI without installing the entire setup of CRXI. \n\nThanks for the help and best regards,\n\nMário Paiva','',0,'AIA=','8tyqg616',1,0,'',1025,0,0),(30386,6779,6,649,0,'201.25.200.86',1177336222,1,0,1,1,1,1,'','Radiobutton e checkbox transparent.','Buonas díaz.\nHice una ventana con profundamente ella degrado y quisiera todos los\ncontroles era transparente.\nColoqué ja en el transparente en la definición del diálogo pero mi\nRadiobuttons y nao del checkbox son transparentes el color de\nprofundamente son el color de Windows.\n¿Alguem podía ayudarme?\n\nDeudor\n\nEsta frase era passade en un traductor perdona los errores.','',0,'AIA=','tuf2i9a8',1,0,'',649,0,0),(30387,6778,7,2,0,'87.218.146.101',1177336348,1,0,1,1,1,1,'','','Andrés,\n\nEs que el build anterior de Harbour para Pocket PC se construía en modo C++ y ahora, en el más reciente, se usa el modo C (no C++).\n\nEsto se ha debido a cambios en el proyecto Harbour. \n\nDe todas formas, añade /TP al llamar a clarm desde el fichero de configuración de FWPPC para UEStudio, para que use el modo C++','',0,'AIA=','1tzid20t',1,0,'',2,0,0),(30388,6780,3,281,0,'211.246.20.9',1177337622,1,0,1,1,1,1,'','Mouse Point very it comforts a location,','Hi All\n\nMouse Point -&gt; Window Position 1, 1 Move ?','',0,'AIA=','2pb14a2h',1,0,'',281,0,0),(30389,6747,6,1023,0,'201.92.183.118',1177339490,1,0,1,1,1,0,'','','Kra, eu não entendi direito esse código, oque ele está fazendo, mais eu fiz algo que acredito ter sido parecido de uma forma diferente.\n\nEu abre uma tabela com o nome do campo e a descrição do camop, e vou adicionando as colunas de uma outra tabela de acordo com a descrição dos campos.\n\nNo final, somente as colunas que eu escolhi serão adicionadas e ainda é possivel eu mudar o header ou outras propriedades da coluna individualmente.\n\nTalvez você possa tentar, abaixo segue um exemplo.\n\n[code:un4dmu28]   \na=\'select * from campos where file_name = &quot;\' + &#40;&#58;&#58;sTabela&#41; + \'&quot; and SR_DELETED=&quot; &quot; order by indkey_001\'//field_ord, sr_recno\'\n   use &#40;A&#41; alias oBrwcampos new via &quot;SQLRDD&quot;\n   go top\n   \n   oBrw &#58;= TXbrowse&#40;&#41;&#58;New&#40; &#58;&#58;oFra &#41;                  //Efeitos do browse\n   oBrw&#58;nMarqueeStyle      &#58;=  &#58;&#58;nMarqueeStyle\n   oBrw&#58;nColDividerStyle   &#58;=  &#58;&#58;nColDividerStyle\n   oBrw&#58;nRowDividerStyle   &#58;=  &#58;&#58;nRowDividerStyle\n   oBrw&#58;lAllowRowSizing    &#58;=  &#58;&#58;lAllowRowSizing\n   oBrw&#58;lAllowColHiding    &#58;=  &#58;&#58;lAllowColHiding\n   oBrw&#58;lAllowColSwapping  &#58;=  &#58;&#58;lAllowColSwapping\n   oBrw&#58;LVScroll           &#58;=  &#58;&#58;LVScroll\n   \n    do while !eof&#40;&#41;   \n      \n      wfname   &#58;= oBrwcampos-&gt;field_name\n      wfdesc   &#58;= oBrwcampos-&gt;field_desc\n      wflen    &#58;= oBrwcampos-&gt;field_len\n\n      sele &#40;&#58;&#58;sTabela&#41;\n      \n      oCol                 &#58;= TXBrwColumn&#40;&#41;&#58;New&#40; oBrw &#41;\n      oCol                 &#58;= oBrw&#58;AddCol&#40;&#41;\n      \n      oCol&#58;bStrData        &#58;= &#123; || &amp;wfname &#125;\n      oCol&#58;nWidth          &#58;= &#40;wflen * 10&#41; + 5\n      oCol&#58;cHeader         &#58;= &#40;wfdesc&#41;\n      oCol&#58;lAllowSizing    &#58;= &#46;f&#46;\n\n      sele oBrwcampos\n      skip\n      \n   enddo\n   close oBrwcampos\n   \n   sele &#40;&#58;&#58;sTabela&#41;[/code:un4dmu28]','',0,'AIA=','un4dmu28',1,0,'',1023,0,0),(30390,6755,6,1023,0,'201.92.183.118',1177339647,1,0,1,1,1,0,'','','O problema é basicamente que quando o browse recebe o focus, a tabela selecionada é diferente da que estava quando ele foi carregado, então ele tenta atualizar o conteudo das colunas e não encontra os campos que havia quando ela foi criada.\n\nSe tiver um evento que ocorre quando o browse recebe o fóco, eu poderia selecionar de novo a tabela de quando ele foi criado.','',0,'AIA=','230l6y98',1,0,'',1023,0,0),(30391,6775,6,348,0,'201.230.116.90',1177340244,1,0,1,1,1,0,'','Re: Problemas al compilar mi clase en harbour','Buenos Dias\n\nSigo con problemas con mi CLASE...\n\nLes comentare que finalmente, mientras tanto puse asteriscos en la zona de defincion de DEFAULT  para al menos compìlar y ejecutar mi sistema , \nfinalmente compilo sin errores usando del Verce....\n\nPero  al momento de ejecutarlo sale un error de Ejecucion  como si estuviera mal definido o indefinido la Clase (y seguro que es asi..., algo falta definir) \n\nError Description Error Base/1040  Class: NIL has not exported Method SYS_PATHEXE \n\nY el SYS_PATHEXE  es una variable DATA de la Clase la cual se carga la RUTA del sistema. Esta definicion y variable funcionaba correctamente en Clipper.\n\nPor Favor,  existe alguna consideracion especial para crear una Clase en Harbour.????\n\nUn Ultimo Comentario:  Para entendernos  mejor les explicare que hace  esta CLASE:  me  permite crear un objteto general que definir y guardar diferentes Variables del Sistema Ejemplo :  Ruta de  Bases de datos, Indices,Archivos BMP, Imagenes , etc  que seran usados por el sistema,  asi como parametros de control como Password, Usuario Activo, u otros valores Standar. \n\nActualmente lo uso asi: \n \n   oMysDatos:=KDAT_SYS():NEW(archi_cfg)\n\ny luego las variable la paso como parametro por todos los modulos del sistema ...  \n \n    MANTE_CLIENTE(oMysDatos,XCD_CLI,XNM_CLI) \n\n\nfinalmente  cuando necesito un dato de la clase la llamo asi: \n\n   XPATH_IMAGEN:= oMysDatos:SYS_PATHBMP \n\ny asi cargo la ruta donde estan las imagenes...  asi en un oMysDatos tengo todos los valores a la mano del Sistema.\n\n\nLes Agradecere cometarios \n\nLubin\n\n<!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->','',0,'AIA=','1o257wmp',1,0,'',348,0,0),(30392,6779,6,362,0,'200.168.52.156',1177343393,1,0,1,1,1,1,'','','Marcelo, tens como mostrar uma Imagem?\n\nFicou dificil a tradução. Terrivel este tradutor que usastes, en google, tem tradutores excelentes de Portugues a Espanhol. Abraços.','',0,'AIA=','1lfcn7tm',1,0,'',362,0,0),(30393,6669,6,456,0,'217.127.39.57',1177345313,1,0,1,1,1,1,'','','Hi\nabout teh componets to distribute, I have tried some ways,(copyng Dlls, ...) with no success. The only way running for the moment is using installshield, inluding de msm files provided with Crystal Reports.\n\ncrystal CrystalReports11_RDC_License.msm\nCrystalReports11_RDC_Reportengine.msm\nCrystalReports11_RDC_Runtime.msm \n\nYo can try wiht other installer, but you need msm support. Let me know if you find any easy way to distribute.','',0,'AIA=','2z286ffi',1,0,'',456,0,0),(30394,6779,6,649,0,'201.25.200.86',1177345495,1,0,1,1,1,1,'','','[img:20rad8wi]http&#58;//200&#46;215&#46;36&#46;19/eyewake/griff_web/tela03&#46;gif[/img:20rad8wi]\n\nVeja João como esta ficando.\nColoquei este degrade pra testes mesmo com o transparent na janela fica assim.\nNos Says resolveu fica tudo transparente mesmo nao sendo definido na dll com recursos.','',0,'CA==','20rad8wi',1,0,'',649,0,0),(30395,6774,6,867,0,'148.243.37.162',1177345601,1,0,1,1,1,0,'','Hola Antonio','[quote=&quot;Antonio Linares&quot;:250vhnyg]Unos últimos cambios en el uso de los recursos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAqui está el fichero correcto de configuración de FWH:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27489570/fwh.zip.html\">http://rapidshare.com/files/27489570/fwh.zip.html</a><!-- m -->[/quote:250vhnyg]\n\nHola Antonio, no logro hacer funcionar  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> el software que descargue UEStudio 6.20 y el archivo de configuracion que descargue, o sea pues desde principio como activarlo, y compilar desde menu, alguna explicacion mas detallada, desde el menu de configuracion, nuevo proyecto, y tambien descargue el video, en el post de este foro ni aun asi logro hacerlo funcionar, porque no veo desde el menu de UEStudio, desde donde accesar a la configuracion...me puede ayudar o algun manual de configuracion para FiveWin...\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','250vhnyg',1,0,'',867,0,0),(30396,6781,6,180,0,'81.38.52.252',1177351655,1,0,1,1,1,0,'','Archivos .HLP y Windows Vista','Existe alguna forma de hacer funcionar los archivos HLP  en Windows Vista? O quizá alguna utilidad para pasarlos a un formato que sí sea renoconido?\nUn saludo,\nManuel','',0,'gA==','el8tbq62',1,0,'',180,0,0),(30397,6782,3,973,0,'63.196.154.4',1177352855,1,0,1,1,1,0,'','CONSTANTS used in Excel','Hi\n\nHow and where do you find the value of CONTANTS used in Excel, ex: xlCenter, xlRight,xlAutomatic, etc? I\'ve search in the .CHM files but didn\'t find them? I\'m recording a MACRO and trying to convert them into Fivewin codes. Please help.\n\nBert','',0,'gA==','3jixt3bz',1,0,'',973,0,0),(30398,6774,6,177,0,'82.130.230.133',1177355756,1,0,1,1,1,0,'','','Susy,\n\nte aseguro que funciona el último fichero que ha puesto Antonio, está comprobado.\n\nLo ideal es que hayas creado una carpeta en C:\\Archivos de programa\\IDM Computer Solutions\\UEStudio \'06\\configs llamada FWH y metas en ella el fichero Application contenido en el fichero FWH.zip que ha puesto Antonio aquí en el foro.\n\nDespués crea el proyecto, añadele los ficheros .prg, .ch y .rc que componen tu proyecto. En UEStudio, selecciona en el menu Generar y dentro de esta elige la opción Seleccionar el compilador, elige FWH y dentro Application.\n\nPara generar la aplicación en el menu Generar, elige Generar o pulsa Mayus + F8.\n\nEspero que esto  te ayude a generar con UEStudio tus aplicaciones.\n\nAntonio, muchas gracias por tu ayuda al crear el fichero Application para Harbour. Con la chapa que te he dado. Como te he comentado muchas veces soy un poco torpe  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nSaludos,\n\nFélix','',0,'gA==','2r4e7g9z',1,1177361941,'',177,1,0),(30399,6774,6,2,0,'87.218.146.101',1177355793,1,0,1,1,1,1,'','','Susy,\n\nHas creado una carpeta en c:\\Archivos de Programa\\IDM Computer Solutions\\UEStudio \'06\\configs de nombre FWH y copiado el contenido de FWH.zip dentro de ella ?','',0,'gA==','2w624a40',1,0,'',2,0,0),(30400,6774,6,2,0,'87.218.146.101',1177355873,1,0,1,1,1,1,'','','Felix,\n\ngracias a ti por tu ayuda y pruebas. Ahora tenemos unos ficheros de configuración para UEStudio que funcionan muy bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEs un lujo trabajar desde el UEStudio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','27t1udfs',1,0,'',2,0,0),(30401,6747,6,2,0,'87.218.146.101',1177355977,1,0,1,1,1,1,'','','AOKISANTOS,\n\nVamos a revisarlo lo antes posible,','',0,'gA==','1jbbo2ry',1,0,'',2,0,0),(30402,6780,3,2,0,'87.218.146.101',1177356199,1,0,1,1,1,1,'','','SetCursorPos( 1, 1 )','',0,'gA==','ee10pbmp',1,0,'',2,0,0),(30403,6761,2,180,0,'81.38.52.252',1177357809,1,0,1,1,1,0,'','Re: Ayuda Acceso directo a aplicacion en XP','Si no creas una unidad de red no te va a funcionar.\nEstos son los pasos a seguir en Windows XP:\n\n1.- En el ordenador principal y desde el explorador de windows, pulsar con el botón derecho del ratón sobre la carpeta donde está instalado el programa y elegir la opción Compartir. Posteriormente elegir la opción Compartir como y asignar un nombre al recurso compartido; también debe señalarse como tipo de acceso, acceso total. \n\n2.- Desde el ordenador secundario, pulsar con el botón derecho del ratón sobre el icono del escritorio Mis sitios red y elegir la opción Conectar a unidad de red. Posteriormente elegir una unidad de red que esté libre y como ruta de acceso: \\\\nombredelpcprincipal\\nombredelrecursocompartido. Para facilitar el proceso, elija una ruta de acceso existente y cambie el nombre del recurso compartido por el que se haya asignado al crearlo en el paso 1. \n\n3.- Crear icono en el escritorio del ordenador secundario.Pulsar con el botón derecho del ratón sobre el escritorio y elegir la opción Nuevo-Acceso Directo-Examinar y elegir el archivo ejecutable de la unidad anteriormente creada. \n\nUn saludo,\nManuel\n\n\n[quote=&quot;Databaselab2002&quot;:20zeil4a]Tenngo  el programa en una maquina , y desde el escritorio de la otra  cree un acceso directo al exe, cuando lo ejecuto no me muestra ninguno de los iconos de los botones , ademas de producirme error en la apertura de archivos.\n\n \ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->[/quote:20zeil4a]','',0,'gA==','20zeil4a',1,0,'',180,0,0),(30404,5477,3,217,0,'200.159.120.34',1177358991,1,0,1,1,1,0,'','','Antonio,\n\nI use xHarbour Comercial. What I must do to debug work with it?\n\nRegards,\nMaurilio','',0,'gA==','2pa7bvet',1,0,'',217,0,0),(30405,6783,6,975,0,'200.21.137.146',1177359338,1,0,1,1,1,0,'','Para Antonio linares','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> Para Antonio, hay un ejemplo en la carpeta de ejemplos que se llama TESTXBWR.PRG, el cual compilo y presenta errores. Porque todos funcionan menos ese?. \n\n\nGracias \n\n\n\nJhon J.V.D \nAracataca - Magdalena - Colombia \"Tierra Nobel\"','',0,'gA==','3gxxpgir',1,0,'',975,0,0),(30406,6784,6,73,0,'200.23.18.132',1177359519,1,0,1,1,1,0,'','wbrowse y xbrowse','1. Regenere la libreria wbrowse 17 de hernan con la nueva version de fwh704 y al cargar el browse me muestra un error en el metodo NEW con la variable nElements que no existe, alguna solucion?\n\n2. como hacer una busqueda incremental con xbrowse, con wbrowse funciona perfecto, y como ejecutar una accion con xbrowse cuando se da click en una cabecera.\n\nsalu2\nPaco','',0,'gA==','391wjj3g',1,0,'',73,0,0),(30407,6755,6,217,0,'200.159.120.34',1177359670,1,0,1,1,1,0,'','','E se vc colocar pra selecionar a tabela no GotFocus?\nAssim:\n\noBrow:bGotFocus := {|| select(xxxxxxx) }\n\n\n[ ]s\nMaurilio','',0,'','3nwm4to6',1,0,'',217,0,0),(30408,6781,6,785,0,'190.64.199.224',1177360459,1,0,1,1,1,0,'','','Manuel:\n\nSegún tengo entendido el Vista usa CHM como archivos de ayuda.\n\nCreo que no esta permitido poner en tus instalaciones el\nwinhelp.exe para ejecutar archivos HLP, éste archivo debe ser\nbaja de Microsoft en donde verifica la autenticidad del Windows instalado.\n\nSaludos.\n\nRuben Fernandez.','',0,'','34j3i5rp',1,0,'',785,0,0),(30409,6782,3,6,0,'87.9.34.90',1177360483,1,0,1,1,1,1,'','Re: CONSTANTS used in Excel','[url:3fre5jyo]http&#58;//fox&#46;wikis&#46;com/wc&#46;dll?Wiki~ExcelConstants~VFP[/url:3fre5jyo]\n\nEMG','',0,'EA==','3fre5jyo',1,0,'',6,0,0),(30410,6785,3,267,0,'200.208.238.2',1177361532,1,0,1,1,1,1,'','Error when executing archives .CHM','Hi,\n\nI do not obtain to open no safe archive .CHM in network(windows 2003 server).  The same archive saved in the local record opens perfectly.\n\nWhy?','',0,'EA==','mwepzz0b',1,0,'',267,0,0),(30411,6784,6,63,0,'83.49.110.35',1177361543,1,0,1,1,1,0,'','','Paco:\nPara ejecutar una acción al clicar en la cabecera de una columna prueba:\n\noCol:bLClickHeader := {|r,c,f,o| MiAccion()}\n\nSaludos,\n\nRafael','',0,'EA==','tti9u4b9',1,0,'',63,0,0),(30412,6755,6,1023,0,'201.92.183.118',1177361633,1,0,1,1,1,0,'','','Eu coloquei no oBrw:bGotFocus o select da tabela usada pelo o browse, mais continua ocorrendo o mesmo erro, como se o campo não existisse, mais na hora em que o Browse está sendo montado isso não acontece, só quando ele recebe o fóco.\nNão existe um outro eveto que ocorre antes? ou alguma coisa que possa ser mudada no browse?\n\nBom, de qualquer forma, muito obrigado pela ajuda.\nUm abraço, T+.','',0,'EA==','1pu0ch36',1,0,'',1023,0,0),(30414,6784,6,73,0,'200.23.18.132',1177362960,1,0,1,1,1,0,'','','ok, rafael probare\ndescargue la wbrowse que modifio alfredo arteaga, y ese codigo no lo trae, asi que ya quedo.\nAlfredo, como hago para activar el id de la primer columna?, ya puse lFirst  a .T., y por cierto que version de wbrowse modificaste? ya que segun yo tengo la 17, pero en la tuya no esta el IF de nElements en el metodo NEW.\n\nasi esta mi codigo:\n@ 0,0 LISTBOX oBCos ;\n      FIELDS STR((oDCos)-&gt;Codigo,4),;\n             (oDCos)-&gt;Descri ;\n      HEADER \"Codigo\", \"D E S C R I P C I O N\" ;\n      SIZES  90,350 ;\n      WHEN !(dbEmpty(oDCos)) OF oWndHija\n\nsalu2\nPaco','',0,'EA==','1l029ozb',1,0,'',73,0,0),(30415,6705,3,397,0,'200.204.85.226',1177365140,1,0,1,0,1,1,'','','Friend,\n\nTake look in this post \n[url:2w6yqx1f]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6760[/url:2w6yqx1f]','',0,'EA==','2w6yqx1f',1,0,'',397,0,0),(30416,6744,6,397,0,'200.204.85.226',1177365222,1,0,1,0,1,1,'','','Mira mi ejemplo:\n\nCode complete:\n\n[code:3upzdubp]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oClients, oClient, oName\nstatic cName\nstatic oSplit\n\nFUNCTION EMPRESAS&#40; oWnd, lOque, cTitle &#41;\n   local oLbx, oIco, oBar, oGet, oGraph, oItem&#91;10&#93;, oEvolucao\n   cTitle &#58;= &quot;Linha de Produtos&quot;\n   if oClients != nil\n      return nil\n   endif\n   SET DELETE ON\n\n   lIncluindo&#58;=&#46;f&#46;\n   DEFINE FONT oFntLBX      NAME &quot;Courier New&quot;   SIZE 0, -12\n   DEFINE FONT fntArial     NAME &quot;Arial&quot;         SIZE  16,  28\n   DEFINE FONT fntHelvetica NAME &quot;Helv&quot;          SIZE  8,  8\n   DEFINE FONT fntHelv2     NAME &quot;Helv&quot;          SIZE  6,  6\n   ACTIVATE FONT fntHelvetica\n   //\n   // -&gt; Rotina de abertura de DBFs e Inicializacao de variaveis\n   AbreTabelas&#40;&#41;\n   CarregaTabela&#40;&#41;\n\n   if recco&#40;&#41;=0\n      lIncluindo&#58;=&#46;t&#46;\n   endif\n   M-&gt;NOME     &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;NOME&quot;    , EMPRESA-&gt;Nome     , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 45 &#41;\n   M-&gt;ENDERECO &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;ENDERECO&quot;, EMPRESA-&gt;Endereco , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 45 &#41;\n   M-&gt;BAIRRO   &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;BAIRRO&quot;  , EMPRESA-&gt;Bairro   , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 25 &#41;\n   M-&gt;CIDADE   &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;CIDADE&quot;  , EMPRESA-&gt;Cidade   , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 25 &#41;\n   M-&gt;CEP      &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;CEP&quot;     , EMPRESA-&gt;Cep      , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 09 &#41;\n   M-&gt;ESTADO   &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;ESTADO&quot;  , EMPRESA-&gt;Estado   , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 02 &#41;\n   M-&gt;CONTATO  &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;CONTATO&quot; , EMPRESA-&gt;Contato  , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 20 &#41;\n   M-&gt;TELEFONE &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;TELEFONE&quot;, EMPRESA-&gt;Telefone , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 14 &#41;\n   M-&gt;FAX      &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;FAX&quot;     , EMPRESA-&gt;Fax      , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 14 &#41;\n   M-&gt;CGC      &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;CGC&quot;     , EMPRESA-&gt;Cgc      , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 20 &#41;\n   M-&gt;INSCR    &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;IE&quot;      , EMPRESA-&gt;Inscr    , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 20 &#41;\n   M-&gt;EMAIL    &#58;= PADR&#40; VerifyINI&#40; &quot;CLIENTE&quot;, &quot;EMAIL&quot;   , EMPRESA-&gt;Obs      , cPath+&quot;nfw&#46;ini&quot;, &#46;f&#46; &#41;, 45 &#41;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;dlgEmpresa&quot;\n          REDEFINE GET      oCtrl101 VAR M-&gt;NOME       VALID LiberaBTN&#40;oBTN011&#41; ID 101 OF oDlg\n          REDEFINE GET      oCtrl102 VAR M-&gt;ENDERECO   VALID LiberaBTN&#40;oBTN011&#41; ID 102 OF oDlg\n          REDEFINE GET      oCtrl103 VAR M-&gt;BAIRRO     VALID LiberaBTN&#40;oBTN011&#41; ID 103 OF oDlg\n          REDEFINE GET      oCtrl104 VAR M-&gt;CIDADE     VALID LiberaBTN&#40;oBTN011&#41; ID 104 OF oDlg\n          REDEFINE GET      oCtrl105 VAR M-&gt;CEP        VALID LiberaBTN&#40;oBTN011&#41; ID 105 OF oDlg\n          REDEFINE GET      oCtrl106 VAR M-&gt;ESTADO     VALID LiberaBTN&#40;oBTN011&#41; ID 106 OF oDlg\n          REDEFINE GET      oCtrl107 VAR M-&gt;CONTATO    VALID LiberaBTN&#40;oBTN011&#41; ID 107 OF oDlg\n          REDEFINE GET      oCtrl108 VAR M-&gt;TELEFONE   VALID LiberaBTN&#40;oBTN011&#41; ID 108 OF oDlg\n          REDEFINE GET      oCtrl109 VAR M-&gt;FAX        VALID LiberaBTN&#40;oBTN011&#41; ID 109 OF oDlg\n          REDEFINE GET      oCtrl110 VAR M-&gt;CGC        VALID LiberaBTN&#40;oBTN011&#41; ID 110 OF oDlg\n          REDEFINE GET      oCtrl111 VAR M-&gt;INSCR      VALID LiberaBTN&#40;oBTN011&#41; ID 111 OF oDlg\n          REDEFINE GET      oCtrl112 VAR M-&gt;EMAIL      VALID LiberaBTN&#40;oBTN011&#41; ID 112 OF oDlg\n          REDEFINE SAY      oCtrl113 VAR STR&#40;RECNO&#40;&#41;,2&#41;+&quot;/&quot;+STR&#40;RECCO&#40;&#41;,2&#41; ID 113 OF oDlg\n          // \n          REDEFINE BTNBMP ID  5 OF oDlg RESOURCE &quot;bmp_pagant&quot;  TOOLTIP &quot;Primeiro registro&quot; ACTION &#40; dbGoTop&#40;&#41;   , CarregaTabela&#40;&#41;, LimpaCampos&#40;&#41;, oCtrl101&#58;Setfocus&#40;&#41;, oCtrl113&#58;SetText&#40;STR&#40;RECNO&#40;&#41;,2&#41;+&quot;/&quot;+STR&#40;RECCO&#40;&#41;,2&#41;&#41; &#41;\n          REDEFINE BTNBMP ID  6 OF oDlg RESOURCE &quot;bmp_regant&quot;  TOOLTIP &quot;Registro Anterior&quot; ACTION &#40; dbSkip&#40;-1&#41;  , CarregaTabela&#40;&#41;, LimpaCampos&#40;&#41;, oCtrl101&#58;Setfocus&#40;&#41;, oCtrl113&#58;SetText&#40;STR&#40;RECNO&#40;&#41;,2&#41;+&quot;/&quot;+STR&#40;RECCO&#40;&#41;,2&#41;&#41; &#41;\n          REDEFINE BTNBMP ID  7 OF oDlg RESOURCE &quot;bmp_regsig&quot;  TOOLTIP &quot;Proximo registro&quot;  ACTION &#40; dbSkip&#40;&#41;, IIF&#40;RECNO&#40;&#41;&gt;RECCO&#40;&#41;,&#40;lIncluindo&#58;=&#46;f&#46;, oBTN011&#58;Disable&#40;&#41;&#41;,&#41;, CarregaTabela&#40;&#41;, LimpaCampos&#40;&#41;, oCtrl101&#58;Setfocus&#40;&#41;, oCtrl113&#58;SetText&#40;STR&#40;RECNO&#40;&#41;,2&#41;+&quot;/&quot;+STR&#40;RECCO&#40;&#41;,2&#41;&#41; &#41;\n          REDEFINE BTNBMP ID  8 OF oDlg RESOURCE &quot;bmp_pagsig&quot;  TOOLTIP &quot;Ultimo registro&quot;   ACTION &#40; dbGoBottom&#40;&#41;, CarregaTabela&#40;&#41;, LimpaCampos&#40;&#41;, oCtrl101&#58;Setfocus&#40;&#41;, oCtrl113&#58;SetText&#40;STR&#40;RECNO&#40;&#41;,2&#41;+&quot;/&quot;+STR&#40;RECCO&#40;&#41;,2&#41;&#41; &#41;\n          REDEFINE BTNBMP ID  9 OF oDlg RESOURCE &quot;bmp_RegNovo&quot; TOOLTIP &quot;Novo registro&quot;     ACTION &#40; lIncluindo&#58;=&#46;t&#46;, dbGoBottom&#40;&#41;, dbSkip&#40;&#41;, CarregaTabela&#40;&quot;NOVO&quot;&#41;, LimpaCampos&#40;&#41;, oCtrl101&#58;Setfocus&#40;&#41;, oCtrl113&#58;SetText&#40;STR&#40;RECNO&#40;&#41;,2&#41;+&quot;/&quot;+STR&#40;RECCO&#40;&#41;,2&#41;&#41; &#41;\n          REDEFINE BTNBMP ID 10 OF oDlg RESOURCE &quot;bmp_RegCanc&quot; TOOLTIP &quot;Exclui registro&quot;   ACTION &#40; rLock&#40;&#41;, dbDelete&#40;&#41;, dbCommitAll&#40;&#41;, dbPack&#40;&#41;, dbSkip&#40;-1&#41; &#41;\n          REDEFINE BTNBMP oBTN011 ID 11 OF oDlg RESOURCE &quot;bmp_floppy&quot; TOOLTIP &quot;Salva registro&quot; ACTION &#40; sv_emp&#40;&#41;, oBTN011&#58;Disable&#40;&#41;, lIncluindo&#58;=&#46;f&#46; &#41;\n          //\n          REDEFINE BTNBMP ID  4 OF oDlg PROMPT &quot;Fechar esta tela&quot; RESOURCE &quot;bmpbtn24&quot;    TOOLTIP &quot;Fechar esta tela&quot;  ACTION &#40; dbCloseAll&#40;&#41;, oDlg&#58;End&#40;&#41; &#41; LEFT\n          oBTN011&#58;Disable&#40;&#41;\n   ACTIVATE DIALOG oDlg CENTERED ;\n            VALID &#40; oDlg &#58;= nil, dbCloseAll&#40;&#41;, &#46;t&#46;  &#41;\n   return nil\n\nstatic function sv_emp&#40;&#41;\n   dbSelectArea&#40; &quot;EMPRESA&quot; &#41;\n   if lIncluindo\n      dbAppend&#40;&#41;\n   else\n      rLock&#40;&#41;\n   endif\n   SalvaTabela&#40;&#41;\n   dbCommitAll&#40;&#41;\n   return &#46;t&#46;\n\nstatic function fun&#40;oBtn&#41;\n   return &#46;t&#46;\n\nstatic function LiberaBTN&#40;oBtn&#41;\n   oBtn&#58;Enable&#40;&#41;\n   return &#46;t&#46;\n\nstatic function LimpaCampos\n   oCtrl101&#58;Refresh&#40;&#41;\n   oCtrl102&#58;Refresh&#40;&#41;\n   oCtrl103&#58;Refresh&#40;&#41;\n   oCtrl104&#58;Refresh&#40;&#41;\n   oCtrl105&#58;Refresh&#40;&#41;\n   oCtrl106&#58;Refresh&#40;&#41;\n   oCtrl107&#58;Refresh&#40;&#41;\n   oCtrl108&#58;Refresh&#40;&#41;\n   oCtrl109&#58;Refresh&#40;&#41;\n   oCtrl110&#58;Refresh&#40;&#41;\n   oCtrl111&#58;Refresh&#40;&#41;\n   return &#46;t&#46;\n\nstatic function AbreTabelas\n   //\n   //-&gt; Abre arquivos de dados\n   dbCloseAll&#40;&#41;\n   USE EMPRESA EXCLUSIVE\n   InitVars&#40;&#41;\n   return nil\n\nstatic function CarregaTabela&#40; TIPO_ACAO &#41;\n   IF TIPO_ACAO = &quot;NOVO&quot;\n      GOTO BOTT\n      SKIP\n   ENDIF\n   M-&gt;NOME       &#58;= EMPRESA-&gt;NOME\n   M-&gt;ENDERECO   &#58;= EMPRESA-&gt;ENDERECO\n   M-&gt;BAIRRO     &#58;= EMPRESA-&gt;BAIRRO\n   M-&gt;CIDADE     &#58;= EMPRESA-&gt;CIDADE\n   M-&gt;CEP        &#58;= EMPRESA-&gt;CEP\n   M-&gt;ESTADO     &#58;= EMPRESA-&gt;ESTADO\n   M-&gt;CONTATO    &#58;= EMPRESA-&gt;CONTATO\n   M-&gt;TELEFONE   &#58;= EMPRESA-&gt;TELEFONE\n   M-&gt;FAX        &#58;= EMPRESA-&gt;FAX\n   M-&gt;CGC        &#58;= EMPRESA-&gt;CGC\n   M-&gt;INSCR      &#58;= EMPRESA-&gt;INSCR\n   IF TIPO_ACAO = &quot;NOVO&quot;\n      M-&gt;CIDADE    &#58;= \'SAO PAULO                \'\n      M-&gt;ESTADO    &#58;= \'SP\'\n      M-&gt;TELEFONE  &#58;= \'&#40;   &#41;    -    \'\n      M-&gt;FAX       &#58;= \'&#40;   &#41;    -    \'\n      M-&gt;CEP       &#58;= \'     -   \'\n   ENDIF\n   return &#46;t&#46;\n\nstatic function SalvaTabela\n   EMPRESA-&gt;NOME       &#58;= M-&gt;NOME\n   EMPRESA-&gt;ENDERECO   &#58;= M-&gt;ENDERECO\n   EMPRESA-&gt;BAIRRO     &#58;= M-&gt;BAIRRO\n   EMPRESA-&gt;CIDADE     &#58;= M-&gt;CIDADE\n   EMPRESA-&gt;CEP        &#58;= M-&gt;CEP\n   EMPRESA-&gt;ESTADO     &#58;= M-&gt;ESTADO\n   EMPRESA-&gt;CONTATO    &#58;= M-&gt;CONTATO\n   EMPRESA-&gt;TELEFONE   &#58;= M-&gt;TELEFONE\n   EMPRESA-&gt;FAX        &#58;= M-&gt;FAX\n   EMPRESA-&gt;CGC        &#58;= M-&gt;CGC\n   EMPRESA-&gt;INSCR      &#58;= M-&gt;INSCR\n   EMPRESA-&gt;OBS        &#58;= M-&gt;EMAIL\n   COMMIT\n   return &#46;t&#46;\n[/code:3upzdubp]\n\nResources\n[code:3upzdubp]\ndlgEmpresa DIALOG 72, 61, 316, 157\nSTYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME\nCAPTION &quot;Cadastro de Empresa&quot;\nFONT 8, &quot;Helv&quot;\n&#123;\n GROUPBOX &quot;Dados de Empresa&quot;, 99, 6, 2, 251, 131, BS_GROUPBOX\n CONTROL &quot;&quot;, 100, &quot;static&quot;, SS_WHITERECT | WS_CHILD | WS_VISIBLE | WS_BORDER, 163, 175, 102, 32\n CONTROL &quot;101&quot;, 101, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 69, 14, 180, 12\n CONTROL &quot;102&quot;, 102, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 69, 31, 180, 12\n CONTROL &quot;103&quot;, 103, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 69, 47, 88, 12\n CONTROL &quot;104&quot;, 104, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 161, 47, 88, 12\n CONTROL &quot;105&quot;, 105, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 69, 64, 55, 12\n CONTROL &quot;106&quot;, 106, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 129, 64, 28, 12\n CONTROL &quot;107&quot;, 107, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 161, 64, 88, 12\n CONTROL &quot;108&quot;, 108, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 69, 81, 88, 12\n CONTROL &quot;109&quot;, 109, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 161, 81, 88, 12\n CONTROL &quot;112&quot;, 112, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 69, 115, 180, 12\n PUSHBUTTON &quot;&amp;Fechar&quot;, 4, 175, 137, 82, 15\n LTEXT &quot;Razão Social&#58;&quot;, -1, 12, 17, 50, 8\n LTEXT &quot;Endereco&#58;&quot;, -1, 12, 33, 50, 8\n LTEXT &quot;Bairro/Cidade&#58;&quot;, -1, 12, 49, 50, 8\n LTEXT &quot;CEP/UF/Contato&#58;&quot;, -1, 12, 66, 55, 8\n LTEXT &quot;Telefone/Fax&#58;&quot;, -1, 12, 83, 55, 8\n LTEXT &quot;Email&#58;&quot;, -1, 12, 117, 55, 8\n ICON &quot;icon_info&quot;, -1, 320, 192, 18, 20\n CONTROL &quot;TBtnBmp&quot;, 7, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 40, 138, 14, 14\n CONTROL &quot;TBtnBmp&quot;, 8, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 57, 138, 14, 14\n CONTROL &quot;TBtnBmp&quot;, 5, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 138, 14, 14\n CONTROL &quot;TBtnBmp&quot;, 6, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 23, 138, 14, 14\n CONTROL &quot;TBtnBmp&quot;, 9, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 74, 138, 14, 14\n CONTROL &quot;TBtnBmp&quot;, 10, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 91, 138, 14, 14\n CONTROL &quot;TBtnBmp&quot;, 11, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 107, 138, 14, 14\n CONTROL &quot;110&quot;, 110, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 69, 98, 88, 12\n CONTROL &quot;111&quot;, 111, &quot;EDIT&quot;, WS_BORDER | WS_TABSTOP, 161, 98, 88, 12\n LTEXT &quot;CGC/INSCR&#58;&quot;, -1, 12, 100, 55, 8\n LTEXT &quot;Text&quot;, 113, 125, 138, 47, 14, WS_BORDER | WS_GROUP\n&#125;\n\nbmp_pagant BITMAP \n&#123;\n\'42 4D F6 00 00 00 00 00 00 00 76 00 00 00 28 00\'\n\'00 00 10 00 00 00 10 00 00 00 01 00 04 00 00 00\'\n\'00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n\'00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80\'\n\'00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80\'\n\'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF\'\n\'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF\'\n\'00 00 FF FF FF 00 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 07 77 77 07 77 77 77\'\n\'70 07 77 70 07 77 77 77 00 07 77 00 07 77 77 70\'\n\'00 07 70 00 07 77 77 00 00 07 00 00 07 77 77 70\'\n\'00 07 70 00 07 77 77 77 00 07 77 00 07 77 77 77\'\n\'70 07 77 70 07 77 77 77 77 07 77 77 07 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77\'\n&#125;\n\nbmp_regant BITMAP \n&#123;\n\'42 4D F6 00 00 00 00 00 00 00 76 00 00 00 28 00\'\n\'00 00 10 00 00 00 10 00 00 00 01 00 04 00 00 00\'\n\'00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n\'00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80\'\n\'00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80\'\n\'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF\'\n\'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF\'\n\'00 00 FF FF FF 00 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 70 77 77 77 77 77\'\n\'77 77 00 77 77 77 77 77 77 70 00 77 77 77 77 77\'\n\'77 00 00 77 77 77 77 77 70 00 00 77 77 77 77 77\'\n\'77 00 00 77 77 77 77 77 77 70 00 77 77 77 77 77\'\n\'77 77 00 77 77 77 77 77 77 77 70 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77\'\n&#125;\n\nbmp_pagsig BITMAP \n&#123;\n\'42 4D F6 00 00 00 00 00 00 00 76 00 00 00 28 00\'\n\'00 00 10 00 00 00 10 00 00 00 01 00 04 00 00 00\'\n\'00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n\'00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80\'\n\'00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80\'\n\'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF\'\n\'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF\'\n\'00 00 FF FF FF 00 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 70 77 77 70 77 77 77 77 70\'\n\'07 77 70 07 77 77 77 70 00 77 70 00 77 77 77 70\'\n\'00 07 70 00 07 77 77 70 00 00 70 00 00 77 77 70\'\n\'00 07 70 00 07 77 77 70 00 77 70 00 77 77 77 70\'\n\'07 77 70 07 77 77 77 70 77 77 70 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77\'\n&#125;\n\nbmp_regsig BITMAP \n&#123;\n\'42 4D F6 00 00 00 00 00 00 00 76 00 00 00 28 00\'\n\'00 00 10 00 00 00 10 00 00 00 01 00 04 00 00 00\'\n\'00 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n\'00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80\'\n\'00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80\'\n\'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF\'\n\'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF\'\n\'00 00 FF FF FF 00 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 07 77 77 77 77 77 77\'\n\'77 00 77 77 77 77 77 77 77 00 07 77 77 77 77 77\'\n\'77 00 00 77 77 77 77 77 77 00 00 07 77 77 77 77\'\n\'77 00 00 77 77 77 77 77 77 00 07 77 77 77 77 77\'\n\'77 00 77 77 77 77 77 77 77 07 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77\'\n&#125;\n\nbmp_RegNovo BITMAP \n&#123;\n\'42 4D F4 00 00 00 00 00 00 00 76 00 00 00 28 00\'\n\'00 00 0E 00 00 00 0E 00 00 00 01 00 04 00 00 00\'\n\'00 00 70 00 00 00 00 00 00 00 00 00 00 00 00 00\'\n\'00 00 00 00 00 00 00 00 00 00 00 00 BF 00 00 BF\'\n\'00 00 00 BF BF 00 BF 00 00 00 BF 00 BF 00 BF BF\'\n\'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF\'\n\'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF\'\n\'00 00 FF FF FF 00 77 77 77 77 77 77 77 00 77 77\'\n\'77 77 77 77 77 00 77 77 77 77 77 77 77 00 77 77\'\n\'77 00 77 77 77 00 77 77 77 00 77 77 77 00 77 77\'\n\'77 00 77 77 77 00 77 70 00 00 00 07 77 00 77 70\'\n\'00 00 00 07 77 00 77 77 77 00 77 77 77 00 77 77\'\n\'77 00 77 77 77 00 77 77 77 00 77 77 77 00 77 77\'\n\'77 77 77 77 77 00 77 77 77 77 77 77 77 00 77 77\'\n\'77 77 77 77 77 00 77 77 77 77 77 00 77 77 77 77\'\n\'77 77 77 00\'\n&#125;\n\nbmp_RegCanc BITMAP \n&#123;\n\'42 4D 04 01 00 00 00 00 00 00 76 00 00 00 28 00\'\n\'00 00 10 00 00 00 10 00 00 00 01 00 04 00 00 00\'\n\'00 00 80 00 00 00 C4 0E 00 00 C4 0E 00 00 10 00\'\n\'00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80\'\n\'00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80\'\n\'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF\'\n\'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF\'\n\'00 00 FF FF FF 00 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'00 77 77 00 77 77 77 77 70 07 70 07 77 77 77 77\'\n\'77 00 00 77 77 77 77 77 77 70 07 77 77 77 77 77\'\n\'77 00 00 77 77 77 77 77 70 07 70 07 77 77 77 77\'\n\'00 77 77 00 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77\'\n\'77 77 77 77\'\n&#125;\n\nbmp_floppy BITMAP \n&#123;\n\'42 4D F6 00 00 00 00 00 00 00 76 00 00 00 28 00\'\n\'00 00 10 00 00 00 10 00 00 00 01 00 04 00 00 00\'\n\'00 00 80 00 00 00 C4 0E 00 00 C4 0E 00 00 00 00\'\n\'00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80\'\n\'00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80\'\n\'00 00 C0 C0 C0 00 80 80 80 00 00 00 FF 00 00 FF\'\n\'00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF\'\n\'00 00 FF FF FF 00 77 77 77 77 77 77 77 77 77 00\'\n\'00 00 00 00 00 07 70 33 00 00 00 77 03 07 70 33\'\n\'00 00 00 77 03 07 70 33 00 00 00 77 03 07 70 33\'\n\'00 00 00 00 03 07 70 33 33 33 33 33 33 07 70 33\'\n\'00 00 00 00 33 07 70 30 77 77 77 77 03 07 70 30\'\n\'77 77 77 77 03 07 70 30 77 77 77 77 03 07 70 30\'\n\'77 77 77 77 03 07 70 30 77 77 77 77 00 07 70 30\'\n\'77 77 77 77 07 07 70 00 00 00 00 00 00 07 77 77\'\n\'77 77 77 77 77 77\'\n&#125;\n[/code:3upzdubp]','',0,'AIA=','3upzdubp',1,0,'',397,0,0),(30417,6782,3,973,0,'63.196.154.4',1177365296,1,0,1,1,1,0,'','','Enrico, thanks a lot for your help.\n\nBert','',0,'AIA=','1qq249at',1,0,'',973,0,0),(30418,6786,6,397,0,'200.204.85.226',1177365822,1,0,1,0,1,1,'','Minha solucao para menus popup em toolbar','As modificacoes que fiz foram:\n\n[code:iupsjjll]\nCLASS TToolBar FROM TControl\n\n   DATA   nBtnWidth, nBtnHeight\n   DATA   aButtons\n   DATA   oImageList\n   DATA   lTTBalloon\n\n   &#46;&#46;&#46;\n   METHOD AddButton&#40; bAction, cToolTip, cText, bWhen, cMsg, ;\n          oPopup &#41; //********************* KONECTIVA AUTOMACAO\n[/code:iupsjjll]\n\nNo metodo [b:iupsjjll]AddButton[/b:iupsjjll] acresci o parametro [b:iupsjjll]oPopup[/b:iupsjjll]\n\n[code:iupsjjll]\n&#46;&#46;&#46;\nMETHOD AddButton&#40; bAction, cToolTip, cText, bWhen, cMsg, ;\n                  oPopup &#41; CLASS TToolBar //********************* KONECTIVA AUTOMACAO\n\n   AAdd&#40; &#58;&#58;aButtons, &#123; bAction, cToolTip, cMsg, ;\n                       oPopup &#125; &#41; //********************* KONECTIVA AUTOMACAO\n   &#46;&#46;&#46;\n[/code:iupsjjll]\n\nNo metodo [b:iupsjjll]Command[/b:iupsjjll] critico a existencia de um menu:\n\n[code:iupsjjll]\nMETHOD Command&#40; nWParam, nLParam &#41; CLASS TToolBar\n   local nNotifyCode, nID, hWndCtl\n   local bAction\n   #ifdef __CLIPPER__\n      nNotifyCode = nHiWord&#40; nLParam &#41;\n      nID         = nWParam\n      hWndCtl     = nLoWord&#40; nLParam &#41;\n   #else\n      nNotifyCode = nHiWord&#40; nWParam &#41;\n      nID         = nLoWord&#40; nWParam &#41;\n      hWndCtl     = nLParam\n   #endif\n   if GetClassName&#40; hWndCtl &#41; == &quot;ToolbarWindow32&quot;\n      if &#40; bAction &#58;= &#58;&#58;aButtons&#91; nID &#93;&#91; 1 &#93; &#41; != nil\n\n         if &#58;&#58;aButtons&#91; nID &#93;&#91; 4 &#93; != nil\n            //********************* KONECTIVA AUTOMACAO\n            nTop  &#58;= &#58;&#58;nBtnHeight\n            nLeft &#58;= &#40;&#58;&#58;nBtnWidth*&#40;nID-1&#41;&#41; + &#40;&#40;&#58;&#58;nBtnWidth/2&#46;5&#41;*&#40;nID-1&#41;&#41;\n            &#58;&#58;aButtons&#91; nID &#93;&#91; 4 &#93;&#58;Activate&#40; nTop, nLeft, &#58;&#58;oWnd, &#46;f&#46; &#41;\n            &#58;&#58;oWnd&#58;oPopup &#58;= nil\n            //********************* KONECTIVA AUTOMACAO\n         else\n            Eval&#40; bAction, Self &#41;\n         endif\n\n      endif\n   endif   \n\nreturn nil\n[/code:iupsjjll]\n\nO teste foi efetivado usando o TOOLBAR1.PRG com as seguinte modificacoes:\n\n[code:iupsjjll]\n#include &quot;FiveWin&#46;ch&quot;\n\n#xcommand DEFINE TBBUTTON ;\n             &#91; OF &lt;oToolBar&gt; &#93; ;\n             &#91; ACTION &lt;uAction&gt; &#93; ;\n             &#91; TOOLTIP &lt;cToolTip&gt; &#93; ;\n             &#91; PROMPT &lt;cPrompt&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; MENU &lt;oPopup&gt; &#93; ; //********************* KONECTIVA AUTOMACAO\n       =&gt; ;\n          &lt;oToolBar&gt;&#58;AddButton&#40; &#91;&lt;&#123;uAction&#125;&gt;&#93;, &#91;&lt;cToolTip&gt;&#93;, &#91;&lt;cPrompt&gt;&#93;,;\n                                &#91;&lt;&#123;uWhen&#125;&gt;&#93;, &#91;&lt;cMsg&gt;&#93;,;\n                                &#91;&lt;oPopup&gt;&#93; &#41;  //********************* KONECTIVA AUTOMACAO\n\nstatic oToolBar\n\nfunction Main&#40;&#41;\n\n   local oWnd, oImageList\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH - Testing Win32 Toolbars&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   // First we build an ImageList with all the bitmaps \n   oImageList = TImageList&#40;&#41;&#58;New&#40; 32, 32 &#41; // width and height of bitmaps\n\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;new&quot;,,      oWnd &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;open&quot;,,     oWnd &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;search&quot;,,   oWnd &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;print&quot;,,    oWnd &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;internet&quot;,, oWnd &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;keys&quot;,,     oWnd &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;quit&quot;,,     oWnd &#41;, nRGB&#40; 255, 0, 255 &#41; &#41;\n\n   // Now we create the toolbar and add the buttons\n   \n   DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 50 ;\n      IMAGELIST oImageList BALLOON // tooltips balloon style\n   \n   oToolBar&#58;SetTextRows&#40; 2 &#41;\n\n   MENU oMenuBar1 POPUP          //********************* KONECTIVA AUTOMACAO                    \n        MENUITEM &quot;Lancar &amp;Ordem producao&quot; ACTION fun&#40;&#41;\n        MENUITEM &quot;&amp;Carteira de O&#46;P&#46;s&quot;     ACTION fun&#40;&#41;\n   ENDMENU                                           \n\n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  fun&#40;&#41; ;\n      TOOLTIP &quot;New&quot; ;\n      PROMPT  &quot;&amp;New project&quot; ;\n      MENU oMenuBar1             //********************* KONECTIVA AUTOMACAO\n   &#46;&#46;&#46;\n[/code:iupsjjll]','',0,'QIA=','iupsjjll',1,0,'',397,0,0),(30419,5477,3,343,0,'24.173.70.29',1177366560,1,0,1,1,1,0,'','','If you use the commercial xHarbour then you can use the debuger made for windows.\n\nCompile the source with debug checkbox on.\nThen run your program as follows\n\nxDebugW myprogram.exe\n\ndon\'t forget to add the .exe to the filename.','',0,'QIA=','ahlydgey',1,0,'',343,0,0),(30420,6782,3,343,0,'24.173.70.29',1177366863,1,0,1,1,1,0,'','','If you recorded the macro, then in the Visual Basic Editor you can just right click on the constant and select \"Quick Info\" and it will show you the value.','',0,'QIA=','3lfji2wp',1,0,'',343,0,0),(30421,6787,6,348,0,'200.121.233.175',1177367265,1,0,1,1,1,0,'','Error al Compilar CLASES en Harbour (repregunta)','Buenas Tardes \n\nDisculpen mi insistencia.. He retornado con La misma pregunta \n\nEn el Link ..... de <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6775\">http://fivetechsoft.com/forums/viewtopic.php?t=6775</a><!-- m -->\n.....  podran ver como  fueron pasando las cosas....  las cuales aqui he hecho un RESUMEN   por  un motivo de apremio  les agradesco  soportar mi insistencia para resolver esto,  ya que debo de pasar  mis sistemas a Harbour...  al menos era creo la mejor idea para salir de los 16 Bitssssss\n\nSucede que tengo problemas al usar una CLASE creada por mi , la cual funcionaba bien en CLIPPER , El resumen esto es lo que a pasado: \n\n1ro. No me compilaba bien la clase, yo la tenia :  CLASS KDAT_SYS()\n       Lo solucione poniendo  CLASS KDAT_SYS    sin los parentisis   y paso ese error de compilacion.\n       PREGUNTA : ESA SOLUCION DE SINTXSIS ES CORRECTA ???\n\n2do Luego me salio error en la defincion de DEFAULT de las Variables, no pude resolverlo  y solo se me ocurrio ponerlo con Astericos mientras se resolvia,,  \n         PREGUNTA :  COMO FUNCIONAN EL COMANDO DEFAULT USADO EN LAS CLASES O HAY ALGO MAS QUE DEFINIR ANTES????\n\n3.ro. Finalmente llego a compilar  e inclusive Linkearlo (Ilink) del VERCE, y sucede que no corre por un aparente problema en la clase, sale lo siguiente :\n\nError Description Error Base/1040 Class: NIL has not exported Method SYS_PATHEXE \n\nY el SYS_PATHEXE es una variable DATA de la Clase la cual se carga la RUTA del sistema. Esta definicion y variable funcionaba correctamente en Clipper. \n\n\n\n        PREGUNTA FINAL:  SE DEBE CREAR LA CLASE CON ALGUNA INDICACION ADICIONAL A LA QUE SE USABA EN CLIPPER CON FW16 BITS???\n\n\nGracias \nLubin','',0,'QIA=','1fd5blx8',1,0,'',348,0,0),(30422,6788,3,213,0,'24.242.228.6',1177367813,1,0,1,1,1,0,'','Vista &amp; Networking problems','All,\n\nWe are experiencing a lot of problems with users using Vista and networking.   When 2 users try to access the software in a shared folder on another computer the 2nd user locks up.  Has anyone else experienced any problems networking with Vista?\n\nThanks,\nRandal Ferguson','',0,'QIA=','rmk8j9ww',1,0,'',213,0,0),(30423,6787,6,2,0,'87.218.146.171',1177368465,1,0,1,1,1,1,'','','Los paréntesis sobran.\n\nHaz incluido esta línea al comienzo de tu clase ?\n\n#include \"FiveWin.ch\"\n\ny el método New() de tu clase debe devolver Self:\n\nreturn Self','',0,'QIA=','1aa04w6y',1,0,'',2,0,0),(30424,6783,6,2,0,'87.218.146.171',1177368671,1,0,1,1,1,1,'','','Jhon,\n\nQue errores presenta ?','',0,'QIA=','2oxn0nau',1,0,'',2,0,0),(30425,6789,3,171,0,'71.232.193.197',1177368947,1,0,1,1,1,0,'','Excel Files','Hi forum, \n\nCan we read and save as DBF an excel (XLS) file, using only xHarbour + FWH, with not microsoft excel installed in the computer?\n\nRegards,\n\nGeorge','',0,'QIA=','1cnu81qj',1,0,'',171,0,0),(30426,6790,6,264,0,'200.91.3.10',1177369852,1,0,1,1,1,1,'','no se puede descargar desde HiperUpload ?','Ni yo ni algunos de los amigos que les pedi hacer unas descargas, han podido descargar archivos desde ese sitio.....\nSe requiere algo especial ?\n\nGracias de antemano.','',0,'QIA=','2o4izkql',1,0,'',264,0,0),(30427,6779,6,15,0,'59.105.17.19',1177371315,1,0,1,1,1,0,'','','[quote=&quot;kbelo&quot;:3ksz0cox][img:3ksz0cox]http&#58;//200&#46;215&#46;36&#46;19/eyewake/griff_web/tela03&#46;gif[/img:3ksz0cox]\n\nVeja João como esta ficando.\nColoquei este degrade pra testes mesmo com o transparent na janela fica assim.\nNos Says resolveu fica tudo transparente mesmo nao sendo definido na dll com recursos.[/quote:3ksz0cox]\n\nHello \n\nYou can upgrade to new FWH version. New version support it.\n\nDEFINE DIALOG RESOURCE \"XXX\" transparent\n\nRegards,\n\nRichard','',0,'iA==','3ksz0cox',1,0,'',15,0,0),(30428,6744,6,644,0,'201.253.110.116',1177379783,1,0,1,1,1,0,'','','Rochinha : en el código tenes creadas unas funetes que después no destrís. No se si eso puede consumir demasiados recursos. probá a ver que sucede. espero te sirva\n\nsaludos','',0,'iA==','2yfjfdhw',1,0,'',644,0,0),(30429,6787,6,348,0,'201.230.116.90',1177380524,1,0,1,1,1,0,'','','Hola Antonio\n\nGracias por tu respuesta.\n\n1. Solo habia puesto el INCLUDE de objects.ch , ya agrege la de fivewin.ch\n\n2. En la Clase,  El Metodo NEW()  retornaba  NIL  y no SELF  , Hice el cambio para que retorne SELF.. y fue oki....\n    una Pregunta del Caso...  Solo la Clase NEW() debe retornar SELF ???\n\n3. Finalmente, al aumentar  el INCLUDE FIVEWIN.CH en la Clase, funciono normalmente el \ncomando DEFAULT (problema tambien comentado en la consulta).\n\nRealice la Compilacion  y Link..  y ya paso...  y no salio el Error cuando se ejecuta la clase....  asi que  CASO :  AJUSTES EN LA CLASE ... YA ESTA LISTO.\n\n\nGracias por la Ayuda.  seguro  esta HISTORIA DE  IMPLEMENTAR DE 16BITS  A 32BITSS  CONTINUA...\n\n\nLubin','',0,'BA==','1lulbbjj',1,0,'',348,0,0),(30430,6791,6,348,0,'201.230.116.90',1177384283,1,0,1,1,1,0,'','De 16 a 32Bits-Caso02 - Cambio uso de DLL a RC','Buenas Noches.\n\nSiguiendo con la implmentacion para pasar a de 16FW a FWH  \n\n1. Yo utilizaba WorkShop de Borland,  y tengo todo en DLL, segun lo leido en la documentacion es recomendable que toda esta DLL  grabarla como un solo RC,  que sea del Mismo nombre del PRG principal. para incluirlo  directamente en el EXE al momento de linkearlo,\nConsulta: \n  A. ES CORRECTO ??   \n  B. se puede seguir usando el WorkShop si continuamos trabajando con el Metodo RC ???\n  C. alguna recomendacion , es necesario otro manejador de recursos???\n\n\n2. En realidad cargaba dos DLL  de la siguiente manera :\n\n     W1_DLL = W_PATH_DLL+\"FWDLL\\WGES.DLL\"   \n     W2_DLL = W_PATH_DLL+\"FWDLL\\BWCC.DLL\"\n     SET RESOURCES TO W1_DLL,W2_DLL\n\n    como veran, cargaba dos DLL  que se encontraban en la carpeta W_PATH_DLL\n \n  Segun lo leido,  he cambiado esta carga de DLL por lo siguiente al inicio del programa principal:\n\n    * Activacion del BCC32.DLL    PARA USAR BOTONES DE BORLAND  \n        BWCCRegister( GetResources() )\n\n    y al Final del PRG Principal  he puesto lo siguiente: \n\n     DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB \"BWCC32.DLL\"\n\n   Consulta: \n      AHORA LUEGO DE ESTOS CAMBIOS TENGO PROBLEMAS AL EJECUTAR ALGUNA OPCION QUE USE DIALOGOS CREADOS EN ESTE  RC,  COMO SI NO EXISTIERA. EN CAMBIO SI USO  DIALOGOS SIN RECURSOS  O MENSAJES  FUNCIONA NORMAL.\n\nMe dan una ayuda\n\nGracias.\n\nLubin','',0,'BA==','1j3knngn',1,0,'',348,0,0),(30431,6792,6,279,0,'189.169.123.90',1177385376,1,0,1,1,1,0,'','error DTPICKER','Antonio:\n\nMe podria ayudar me esta presentando este error en la classe de Dtpicker.\n\n   REDEFINE GET       oCCot1 VAR vCot1 ID 100 OF oRenCot PICTURE \"@K!\" WHEN lValida = .t.\n   REDEFINE DTPICKER  oCCot2 VAR vCot2 ID 101 UPDATE OF oRenCot WHEN lValida = .t.\n   REDEFINE TMPicker  oCCot3 VAR vCot3 ID 102 UPDATE OF oRenCot WHEN lValida = .t.\n   REDEFINE GET       oCCot4 VAR vCot4 ID 103 OF oRenCot PICTURE \"99,999,999.99\" WHEN lValida = .t.\n   REDEFINE CHECKBOX  oCCot5 VAR vCot5 ID 104 OF oRenCot WHEN lValida = .t. ON CHANGE MsgBeep()\n\n   Called from:  =&gt; YEAR(0)\n   Called from: TDTPICKE.PRG =&gt; (b)TDATEPICK:TDATEPICK(0)\n   Called from: TDTPICKE.PRG =&gt; TDATEPICK:SETDATE(0)\n   Called from: TDTPICKE.PRG =&gt; TDATEPICK:_CTEXT(0)\n   Called from: TDTPICKE.PRG =&gt; TDATEPICK:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; CONTROL_LLAMADA(1535)\n   Called from: sdsren.prg =&gt; (b)MENU_RENOV(129)\n   Called from: MENU.PRG =&gt; TMENU:ACTIVATE(0)\n   Called from:  =&gt; MENU_RENOV(136)\n\nMuchas Gracias \nMario','',0,'BA==','2667k2cb',1,0,'',279,0,0),(30432,6778,7,413,0,'195.55.176.112',1177393871,1,0,1,1,1,1,'','','He añadido esto en copt:\n[quote:2pae08qw]COPT = -TP -W3 -c /DARM /DUNICODE -I$(HPATH)\\INCLUDE -I$(CPATH)\\INCLUDE\\ARM[/quote:2pae08qw]\n\nPero luego me aparece el error de que falta la funcion __Run() o almenos eso parece.\n\n\n\n\n[quote:2pae08qw]--------------------ConfiguraciÃ³n: Test - Debug--------------------\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nTest.c\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\notro.c\n   Creating library Test.lib and object Test.exp\nrtl.lib(run.obj) : error LNK2019: unresolved external symbol \"int __cdecl system(char const *)\" (?system@@YAHPBD@Z) referenced in function \"void __cdecl HB_FUN___RUN(void)\" (?HB_FUN___RUN@@YAXXZ)\nTest.exe : fatal error LNK1120: 1 unresolved externals\nTest.EXE - 2 error(es), 0 advertencia(s)\n[/quote:2pae08qw]\n\nPero si añado esta funcion:\n[quote:2pae08qw]Function __Run()\nReturn nil\n[/quote:2pae08qw]\n\nLuego me aparecen estos warnings pero me genera el exe y funciona en mi hp6515.\n[quote:2pae08qw]--------------------ConfiguraciÃ³n: Test - Debug--------------------\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nTest.c\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\notro.c\n   Creating library Test.lib and object Test.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000314E0\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000874B0\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00094EFC\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000AA9D8\nTest.EXE - 0 error(es), 4 advertencia(s)\n[/quote:2pae08qw]\n\nA que se deben estos warnings?','',0,'gA==','2pae08qw',1,0,'',413,0,0),(30433,6785,3,303,0,'72.199.41.171',1177397343,1,0,1,1,1,0,'','','It is due to Windows security--you can no longer run CHM files from a network drive unless to specifically configure the PC to allow that file to be loaded. The easier solution is just to copy the help file to the local driver. You could also just use pure HTML files, instead of compiled help files.\n\nJames','',0,'gA==','384d1a28',1,0,'',303,0,0),(30434,6778,7,2,0,'87.218.146.101',1177397603,1,0,1,1,1,1,'','','Andrés.\n\nEs correcto el añadir la función __Run().\n\nEsos warnings son conocidos y puedes ignorarlos. Los produce el enlazador.\n\nEstá funcionándote bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2u3cvc3m',1,0,'',2,0,0),(30435,6787,6,2,0,'87.218.146.101',1177397732,1,0,1,1,1,1,'','','Cualquier método puede devolver Self si quieres, pero en el caso del método New() es obligatorio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2mv5cmj8',1,0,'',2,0,0),(30436,6790,6,2,0,'87.218.146.101',1177397803,1,0,1,1,1,1,'','','Julio,\n\nNo, nada en especial, lo que ocurre es que a veces el servicio falla.\n\nUltimamente estamos usando <!-- w --><a class=\"postlink\" href=\"http://www.rapidshare.com\">www.rapidshare.com</a><!-- w -->','',0,'gA==','3p6g6hqz',1,0,'',2,0,0),(30437,6779,6,2,0,'87.218.146.101',1177397926,1,0,1,1,1,1,'','','kbelo,\n\nHas redefinido todos los radiobuttons y checkboxes desde tu PRG ?','',0,'gA==','2efjd5wo',1,0,'',2,0,0),(30438,6791,6,2,0,'87.218.146.101',1177398476,1,0,1,1,1,1,'','','Es correcto: Salvar los recursos como RC y que se enlacen dentro del EXE.\n\n&gt; SET RESOURCES TO W1_DLL,W2_DLL\n\nQuita esta línea, ya que los recursos los localiza la aplicación directamente\n\nPuedes seguir usando el Resources Workshop, ó usar el PellesC que incluye editor de recursos, u otros más que existen.','',0,'gA==','2erp2xzt',1,0,'',2,0,0),(30439,6789,3,6,0,'87.17.226.213',1177398747,1,0,1,1,1,1,'','Re: Excel Files','Try something like this:\n\n[code:11a844e9]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oCn &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Connection&quot; &#41;\n\n    oCn&#58;Open&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=c&#58;\\xharbour\\mytest&#46;xls;Extended Properties=\'Excel 8&#46;0\'&quot; &#41;\n\n    oCn&#58;Execute&#40; &quot;SELECT * INTO &#91;DBASE III; Database=c&#58;\\xharbour&#93;&#46;mytest FROM &#91;MySheet$&#93;&quot; &#41;\n\n    oCn&#58;Close&#40;&#41;\n\n    RETURN NIL[/code:11a844e9]\n\nPlease note that the $ sign after the sheet name is required.\n\nEMG','',0,'AIA=','11a844e9',1,0,'',6,0,0),(30440,6792,6,2,0,'87.218.146.101',1177398828,1,0,1,1,1,1,'','','Mario,\n\nQue valor inicial tiene la variable vCot2 ?','',0,'AIA=','1q13c1p7',1,0,'',2,0,0),(30441,6776,6,2,0,'87.218.146.101',1177399283,1,0,1,1,1,1,'','','Manuel,\n\nExiste una forma de crear un índice basado en la condición que desees y en donde tu indicas que registros se añaden al índice.\n\nHemos preguntado en la lista de desarrollo de Harbour para que nos indiquen cual es la forma correcta de usarlo.','',0,'AIA=','3jqusz2f',1,0,'',2,0,0),(30442,6793,3,972,0,'81.164.118.31',1177400401,1,0,1,1,1,0,'','Bug in TGet? (+fix)','Antonio,\n\nIn TGet, line 885, there is:\n[code:eqm3k0kg]&#58;&#58;oWnd&#58;GoNextControl&#40; &#58;&#58;hWnd &#41;[/code:eqm3k0kg]\nShould it not be:\n[code:eqm3k0kg]&#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;[/code:eqm3k0kg]\n--\nSincerely,\n\nPatrick Mast,\n<!-- m --><a class=\"postlink\" href=\"http://www.WinFakt.com\">http://www.WinFakt.com</a><!-- m -->','',0,'AIA=','eqm3k0kg',1,0,'',972,0,0),(30443,6778,7,413,0,'195.55.176.112',1177406602,1,0,1,1,1,1,'','','Gracias Antonio. Sí ahora funciona bien el compilado y me resuelve un tema pendiente para poder integrarlo todo en el UESTUDIO.','',0,'AIA=','15cbsaes',1,0,'',413,0,0),(30444,6794,6,533,0,'80.32.177.143',1177408881,1,0,1,1,1,0,'','Foco entre Ventanas y Dialogos','Buenos días foro. \n\n   Tengo un problemita que no se resolver, es el siguiente: tengo una opcion en el menu que me abre una ventana y dentro de esa ventana tengo un browse con los clientes. Si hago doble click sobre un cliente me abre un dialogo para modificar el cliente. el problema está en que estando abierto el dialogo para modificar el cliente, si pulso sobre el menu sobre proveedores, que tiene otra ventana con otro browse, esta me aparece por detras del dialogo de clientes, y me gustaria que no fuese así, es decir, que la ventana fuese lo primero y el dialogo se quedara por detrás. Espero haberme explicado bien. He probado con clausulas NOWAIT, etc. . .pero no me funciona.\n\nMUCHAS GRACIAS de ANTEMANO.','',0,'AIA=','11fghelf',1,0,'',533,0,0),(30445,6752,3,2,0,'87.218.146.79',1177411869,1,0,1,1,1,1,'','','It looks as the Ras API is not supported in all Windows versions.\n\nWe are reviewing it','',0,'AIA=','1aaaa9ui',1,0,'',2,0,0),(30446,6755,6,217,0,'200.159.120.34',1177412869,1,0,1,1,1,0,'','','Tente usar:\n\noBrw:cAlias := \"xxxxx\" // xxxxx=alias da sua tabela\n\nE, pelo que vemos, vc está usando macrossubstituição pra montar os campos... Eu não usaria assim, colocaria os campos diretos no bloco de código {|| arq-&gt;campo1}, etc etc etc\n\n[ ]\'s\nMaurilio','',0,'','2k1egl2j',1,0,'',217,0,0),(30447,6779,6,649,0,'201.35.194.253',1177413528,1,0,1,1,1,1,'','','Uso esta versão não é necessario atualização.\nfw 2.8 e xharbour 0.99.71\nE esta sim tudo definido no meu prg todoso os radio e checkbox e minha dialog ja tem este Transparent como ja citei acima.','',0,'','3qpt2tsg',1,0,'',649,0,0),(30448,6752,3,2,0,'87.218.146.79',1177415612,1,0,1,1,1,1,'','','Solved <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease add these lines in rasapi.c:\n[code:3o6jf37g]\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n#ifdef __FLAT__\n#define RasDial RasDialA\n#define RasHangUp RasHangUpA\n#define RasGetConnectStatus RasGetConnectStatusA\n#define RasEnumConnections RasEnumConnectionsA\n#define RasEnumEntries RasEnumEntriesA\n#define RasGetErrorString RasGetErrorStringA\n#endif\n\n#include &lt;Ras&#46;h&gt;\n#include &lt;RasError&#46;h&gt;\n&#46;&#46;&#46;\n[/code:3o6jf37g]','',0,'AIA=','3o6jf37g',1,0,'',2,0,0),(30449,6793,3,2,0,'87.218.146.79',1177415748,1,0,1,1,1,1,'','','Patrick,\n\nIt was already fixed here,\n\nThanks anyhow <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','36dkzma2',1,0,'',2,0,0),(30450,6788,3,2,0,'87.218.146.79',1177416745,1,0,1,1,1,1,'','','Randal,\n\nAre all of them using Vista ?\n\nWhat Vista version ? (32, Home, etc. )','',0,'AIA=','35xpmv4k',1,0,'',2,0,0),(30451,6779,6,2,0,'87.218.146.79',1177417134,1,0,1,1,1,1,'','','Marcelo,\n\nSi quieres publica el PRG de ese diálogo y su RC y el brush usado y lo probamos aqui para que veas el resultado con FWH 7.04','',0,'AIA=','2l2081q4',1,0,'',2,0,0),(30452,6790,6,103,0,'201.8.79.31',1177417228,1,0,1,1,1,1,'','','Antonio,\n\n    ¿ Has mirado <!-- w --><a class=\"postlink\" href=\"http://www.mediafire.com\">www.mediafire.com</a><!-- w --> ? Es excelente y no hay limitaciones de tiempo para descargas. Pienso que es mejor que el rapidshare, pues una vez que descargues un archivo en el rapidshare, no se puede descargar otro luego después, asi que tienes que esperar unos tantos minutos.\n\nSaludos,','',0,'AIA=','3ldbj8k2',1,0,'',103,0,0),(30453,6794,6,2,0,'87.218.146.79',1177417267,1,0,1,1,1,1,'','','Mike,\n\nUsa la claúsula OF para determinar el padre de una ventana ó diálogo:\n\nDEFINE WINDOW oWnd2 OF oWnd\n\n...\n\nDEFINE DIALOG oDlg OF oWnd  // ó OF oWnd2','',0,'AIA=','3ekbhdso',1,0,'',2,0,0),(30454,6779,6,649,0,'201.35.194.253',1177417383,1,0,1,1,1,1,'','','[code:3p2nv1l3]\nDEFINE DIALOG oDlgOrdem RESOURCE &quot;CFGORDEM&quot; icon Load_Obj&#40;1&#41; Font Load_Obj&#40;2&#41; transparent\nREDEFINE RADIO    onOpc      VAR nOpc      ID 101,102,103 OF oDlgOrdem ;\n               ON CHANGE Habilita&#40;&#41;\n\nREDEFINE CHECKBOX owEtapacor VAR wEtapacor ID 104 OF oDlgOrdem	when nopc==1 \nREDEFINE CHECKBOX owCombicor VAR wCombicor ID 105 OF oDlgOrdem	when nopc==1 \nREDEFINE CHECKBOX owObsercor VAR wObsercor ID 106 OF oDlgOrdem	when nopc==1 \nREDEFINE CHECKBOX owengencor VAR wengencor ID 107 OF oDlgOrdem	when nopc==1 \nREDEFINE RADIO    owMaterrea VAR wMatercor ID 108,109,110 OF oDlgOrdem when nopc==1 \nREDEFINE CHECKBOX owEtapaRea VAR wEtapaRea ID 111 OF oDlgOrdem	when nopc==2 \nREDEFINE CHECKBOX owCombiRea VAR wCombiRea ID 112 OF oDlgOrdem	when nopc==2 \nREDEFINE CHECKBOX owObserRea VAR wObserRea ID 113 OF oDlgOrdem	when nopc==2 \nREDEFINE CHECKBOX owengenRea VAR wengenRea ID 114 OF oDlgOrdem	when nopc==2 \nREDEFINE RADIO    owMaterRea Var wMaterrea ID 115,116,117 OF oDlgOrdem when nopc==2 \nREDEFINE CHECKBOX owEtapaSer VAR wEtapaSer ID 118 OF oDlgOrdem when nopc==3 \nREDEFINE CHECKBOX owCombiSer VAR wCombiSer ID 119 OF oDlgOrdem	when nopc==3 \nREDEFINE CHECKBOX owObserSer VAR wObserSer ID 120 OF oDlgOrdem	when nopc==3 \nREDEFINE CHECKBOX owengenSer VAR wengenSer ID 121 OF oDlgOrdem	when nopc==3 \nREDEFINE RADIO    owMaterSer Var wMaterSer ID 122,123,124 OF oDlgOrdem when nopc==3 \n\nREDEFINE BUTTON Obtok  ID 125 ACTION&#40; Grava&#40;&#41;,oDlgOrdem&#58;End&#40;&#41;  &#41;\nREDEFINE BUTTON obtcan ID 126 ACTION &#40;oDlgOrdem&#58;End &#40; &#41;&#41; CANCEL\n\nACTIVATE DIALOG oDlgOrdem CENTER on init sysrefresh&#40;&#41;  \n[/code:3p2nv1l3]\n\nEu uso tambem esta função para fazer o degrade no onpaint()\n\n[code:3p2nv1l3]\n*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=\nFUNCTION Textura&#40;oDlgTxt&#41; \n*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=\nLOCAL hWnd&#58;=oDlgTxt&#58;hWnd\nLOCAL aRec&#58;=GetClientRect&#40;hWnd&#41;\nLOCAL oBrush,nX,nStp&#58;=&#40;aRec&#91;3&#93;-aRec&#91;1&#93;&#41;/2\nLOCAL nColor1&#58;=rgb&#40;245,245,245&#41;,nColor2&#58;=rgb&#40;215,215,215&#41;\nLOCAL nColorR1&#58;=nRgbRed&#40;nColor1&#41;,nColorG1&#58;=nRgbGreen&#40;nColor1&#41;,nColorB1&#58;=nRgbBlue&#40;nColor1&#41;\nLOCAL nColorR2&#58;=nRgbRed&#40;nColor2&#41;,nColorG2&#58;=nRgbGreen&#40;nColor2&#41;,nColorB2&#58;=nRgbBlue&#40;nColor2&#41;\nLOCAL nSomaR&#58;=ABS&#40;nColorR2-nColorR1&#41;,nSomaG&#58;=ABS&#40;nColorG2-nColorG1&#41;,nSomaB&#58;=ABS&#40;nColorB2-nColorB1&#41;\nnSomaR&#58;=IIF&#40;nSomaR&lt;0,0,&#40;nSomaR/&#40;&#40;aRec&#91;3&#93;&#41;/2&#41;&#41;&#41;\nnSomaG&#58;=IIF&#40;nSomaG&lt;0,0,&#40;nSomaG/&#40;&#40;aRec&#91;3&#93;&#41;/2&#41;&#41;&#41;\nnSomaB&#58;=IIF&#40;nSomaB&lt;0,0,&#40;nSomaB/&#40;&#40;aRec&#91;3&#93;&#41;/2&#41;&#41;&#41;\noDlgTxt&#58;GetDC&#40;&#41;\naRec&#91;3&#93;&#58;=0\nFOR nX&#58;=1 TO nStp  \n   aRec&#91;3&#93;+=2  \n   DEFINE BRUSH oBrush COLOR nRgb&#40;nColorR1,nColorG1,nColorB1&#41; \n   FillRect&#40;oDlgTxt&#58;hDC,aRec,oBrush&#58;hBrush&#41;  \n   RELEASE BRUSH oBrush   \n   aRec&#91;1&#93;+=2\n   nColorR1&#58;=IIF&#40;nColorR2&gt;=nColorR1,nColorR1+nSomaR,nColorR1-nSomaR&#41;   \n   nColorG1&#58;=IIF&#40;nColorG2&gt;=nColorG1,nColorG1+nSomaG,nColorG1-nSomaG&#41;   \n   nColorB1&#58;=IIF&#40;nColorB2&gt;=nColorB1,nColorB1+nSomaB,nColorB1-nSomaB&#41;\nNEXT\noDlgTxt&#58;ReleaseDC&#40;&#41;\n   \nRETURN&#40;NIL&#41; \n[/code:3p2nv1l3]','',0,'AIA=','3p2nv1l3',1,0,'',649,0,0),(30455,6790,6,2,0,'87.218.146.79',1177417487,1,0,1,1,1,1,'','','Kleyber,\n\nGracias. Sí la verdad es que ya hay muchos, sería conveniente que tuviésemos una lista de todos los que podemos usar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','lakw2dn4',1,0,'',2,0,0),(30456,6788,3,3,0,'82.124.252.26',1177417629,1,0,1,1,1,1,'','Re: Vista &amp; Networking problems','Randal\n\nIt is sure that Vista is a problem under Network. Workstations are deadly slow but we are not experiencing locks (so far).\n\nRichard','',0,'AIA=','3s5tlz45',1,0,'',3,0,0),(30457,6795,7,413,0,'195.55.176.112',1177418009,1,0,1,1,1,1,'','RC con FWPPC','La verdad hasta ahora nunca habia empleado recursos en FWPPC. Pero viendo el mensaje de los codigos de barra me he animado a probarlo y me da un error utilizando el UESTUDIO que has propuesto con las modificaciones para utilizar FWPPC Ver 1.0. El error es el siguiente: [quote:8ppvhcfg]--------------------ConfiguraciÃ³n: Barcode - Debug--------------------\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nbctest.c\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nBarcode.c\n\n\nRC : fatal error RC1106 : invalid option: -32\n\n\n   Creating library bctest.lib and object bctest.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00035C78\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0008C4B0\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00099EFC\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000AF9D8\nBarcode.EXE - 1 error(es), 4 advertencia(s)\n[/quote:8ppvhcfg]\n\nSe sigue utilizando de igual forma supongo, basta con añadir el fichero .RC al proyecto o hay que modificar algo. \n\nEl RC es el siguiente como se ha puesto antes....[code:8ppvhcfg]#ifdef _CE\n#include &quot;g&#58;\\fwppc\\vce2003\\include\\arm\\windows&#46;h&quot;\n#include &quot;g&#58;\\fwppc\\vce2003\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\n\nBARCODETEST DIALOG 11, 7, 252, 135\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Barcodes in a Dialog&quot;\nFONT 6, &quot;MS Sans Serif&quot;\n&#123;\nPUSHBUTTON &quot;&amp;Cancel&quot;, 101, 192, 4, 54, 14\nEDITTEXT 102, 11, 27, 94, 26\n&#125;\n[/code:8ppvhcfg]\n\nDonde encuentro un help con los errores del RC\n\nSin el RC el programa funciona y muestra el codigo de barra en la pantalla principal. Pero eso si no funciona el boton que muestra el dialogo desde recursos.','',0,'gIA=','8ppvhcfg',1,1177418252,'',413,1,0),(30458,6779,6,2,0,'87.218.146.79',1177418042,1,0,1,1,1,1,'','','Marcelo,\n\nNo uses Textura(oDlgTxt).\n\nCrea un bitmap vertical con esos colores y crea un brush con él:\n\nDEFINE BRUSH oBrush FILENAME \"MyColors.bmp\"\n\nDEFINE DIALOG oDlg BRUSH oBrush TRANSPARENT','',0,'gIA=','sur44at5',1,0,'',2,0,0),(30459,6795,7,2,0,'87.218.146.79',1177418131,1,0,1,1,1,1,'','','Andrés,\n\nQuita la opción -32 del fichero de configuración del FWPPC para UEStudio','',0,'gIA=','2zcibnxk',1,0,'',2,0,0),(30460,6776,6,2,0,'87.218.146.79',1177418547,1,0,1,1,1,1,'','','Manuel,\n\nIgual que en Clipper 5.3 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nINDEX ON ... CUSTOM\n\n     CUSTOM specifies that a custom built order will be created for RDDs\n     that support them.  A custom built order is initially empty, giving you\n     complete control over order maintenance.  The system does not\n     automatically add and delete keys from a custom built order.  Instead,\n     you explicitly add and delete keys using ORDKEYADD() and ORDKEYDEL().\n     This capability is excellent for generating pick lists of specific\n     records and other custom applications.','',0,'gIA=','3ja0cmv4',1,0,'',2,0,0),(30461,6795,7,413,0,'195.55.176.112',1177419346,1,0,1,1,1,1,'','','He quitado -32 y lo he dejado asi el fichero aplication\n[quote:1f5i7thr][.RC]\nOut = $In.res\nCmd0 = rc -r -fo$O $I\n\n[/quote:1f5i7thr]\n\n\nPero me genera este error:\n [quote:1f5i7thr]--------------------ConfiguraciÃ³n: Barcode - Debug--------------------\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nbctest.c\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nBarcode.c\nG:\\FWPPC\\UESTUDIO\\Barcode\\Barcode.rc (8): error RC2104 : undefined keyword or key name: DS_MODALFRAME\n\n\n\n\n\n\n   Creating library bctest.lib and object bctest.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00035C78\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0008C4B0\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00099EFC\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000AF9D8\nBarcode.EXE - 1 error(es), 4 advertencia(s)\n\n[/quote:1f5i7thr]\nPero he  revisado el Buildce y he sustituido por lo que pone en el, que si funciona. He tenido que añadir -d_CE.\n\n[quote:1f5i7thr][.RC]\nOut = $In.res\nCmd0 = rc -r -d_CE -fo$O $I\n[/quote:1f5i7thr]\n\nAhora tengo problemas con los includes del windows.h. Supongo que en algun sitio se tienen que definir.\n\n\n\n[quote:1f5i7thr]--------------------ConfiguraciÃ³n: Barcode - Debug--------------------\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nbctest.c\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\nBarcode.c\ng:\\fwppc\\vce2003\\include\\arm\\windows.h(27) : fatal error RC1015: cannot open include file \'windef.h\'.\n   Creating library bctest.lib and object bctest.exp\nvm.lib(hvm.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00035C78\nrdd.lib(dbf1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x0008C4B0\ndbfntx.lib(dbfntx1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x00099EFC\ndbffpt.lib(dbffpt1.obj) : warning LNK1166: cannot adjust code at offset=0x00001000, rva=0x000AF9D8\nBarcode.EXE - 1 error(es), 4 advertencia(s)\n[/quote:1f5i7thr]','',0,'gA==','1f5i7thr',1,0,'',413,0,0),(30462,6795,7,413,0,'195.55.176.112',1177420223,1,0,1,1,1,1,'','','Vale, ya esta. En el fichero aplicacion tienes puesto un include erroneo. En vez de: [quote:18qyqr8p]INCLUDE = $(HPATH)\\INCLUDE;$(CPATH)\\ARM\\INCLUDE\\;$(FWPPC)\\INCLUDE;[/quote:18qyqr8p]\n\nTienes que cambiar ARM\\INCLUDE por INCLUDE\\ARM que es como esta dividido el fichero.\n\n[code:18qyqr8p]INCLUDE = $&#40;HPATH&#41;\\INCLUDE;$&#40;CPATH&#41;\\INCLUDE\\ARM;$&#40;FWPPC&#41;\\INCLUDE;[/code:18qyqr8p]\n\nAsi funciona a la perfeccion.','',0,'gIA=','18qyqr8p',1,0,'',413,0,0),(30463,6795,7,413,0,'195.55.176.112',1177420988,1,0,1,1,1,1,'','','Pero apesar de crearlo todo correctamente me presenta tanto en el emulador como en mi hp6515 un mensaje que pone:\n\n[quote:36xgpwwx]Can\'t create dialogBox[/quote:36xgpwwx]\n\nel mismo que cuando no incluia el RC.\n\n¿Como puedo saber si el RC esta incluido en el EXE?.\n\nHe mirado lo que ocupa el exe sin el RC y me ocupa lo mismo, algo me indica que no ha enlazado el RC.','',0,'gA==','36xgpwwx',1,0,'',413,0,0),(30464,6305,1,981,0,'70.55.103.87',1177421008,1,0,1,1,1,0,'','exetype (4)','l resend the zip file on 24/04/2007 at 9.17 am l am waiting for your answer tanks','',0,'gA==','2ngntjtd',1,0,'',981,0,0),(30465,6779,6,649,0,'201.35.194.253',1177421061,1,0,1,1,1,1,'','','Continua a mesma coisa\n\nDEFINE BRUSH oBrush FILENAME \"teste.bmp\" \nDEFINE DIALOG oDlgOrdem BRUSH oBrush TRANSPARENT RESOURCE \"CFGORDEM\" icon Load_Obj(1) Font Load_Obj(2)','',0,'gA==','298snr0b',1,0,'',649,0,0),(30466,6752,3,89,0,'213.21.136.60',1177422177,1,0,1,1,1,0,'','','Thank Antonio \n\nbut I have the same error \n(I have FW27)\n\nRegards MAurizio','',0,'gA==','4rq9w2og',1,0,'',89,0,0),(30467,6796,20,29,0,'88.149.161.11',1177424371,1,0,1,1,1,0,'','Utilizzare gli splitter per il resize automatico','Salve a tutti,\nsto facendo un pò di pratica con il comando splitter perché vorrei sostituire alcune dialog con una visualizzazione tipo \"outlook\" che mi permetta di operare agevolmente a tutte le risoluzioni.\n\nIn pratica ho la necessità di avere in nella sezione sinistra un browse e nella destra un folder.\nIl mio problema è che in caso di resize mi viene allargata la parte sinistra (folder) mentre vorrei che venga allargata la destra (browse) e precisamente solo la prima colonna del browse.\n\nVorrei inoltre che lo sfondo della sezione sinistra appaia in grigio (come una dialog); devo creare un oggetto Panel per questo ?\n\nQualche suggerimento ?\n\nLa videata del mio prg di esempio è su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.png\">www.softwarexp.co.uk/beta/test.png</a><!-- w -->\n\nmentre il prg è scaricabile da <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->\n\nGrazie in anticipo.\n\nMarco Turco','',0,'gA==','2iu9u0wq',1,0,'',29,0,0),(30468,6788,3,213,0,'24.242.228.6',1177425565,1,0,1,1,1,0,'','','Antonio, Richard\n\nAll the computers are Vista, I\'m not sure which version but I don\'t think the version is the issue.  In this instance the user has 3 computers.  2 computers access a server through a mapped drive.  If a user logs into the s/w from the server and one workstation it works fine.  If a user logs into the s/w from one workstation, when a user tries to login from the other workstation it locks up.  I believe there is a problem when 2 users try to lock a record in a shared folder.\n\nThis thread explains a similiar issue:\n<!-- m --><a class=\"postlink\" href=\"http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1267567&amp;SiteID=1\">http://forums.microsoft.com/MSDN/ShowPo ... 7&amp;SiteID=1</a><!-- m -->\n\nI have other users with XP on the server and Vista on the workstations and this setup seems to work fine.  It appears the problem is when all the computers are Vista and more than one workstation tries to open the software.  In our network version users have to login with a user id and password.  We have a user table and when the user logs in we lock that user record.  When other users try to login we check each record in the user list to see if it\'s locked and count the number of locked user records to make sure the user is not exceeding the network license limit.  It\'s during this process, when we try to lock each record to determine how many users are already logged in, that the software locks up.  The problem is basically when a workstation tries to lock a record that is already locked by another workstation.\n\nI\'m really suprised no one hear appears to have encountered this issue yet.\n\nThanks,\nRandal','',0,'gA==','1fhh3nn4',1,0,'',213,0,0),(30469,3268,3,213,0,'24.242.228.6',1177426367,1,0,1,1,1,0,'','','George,\n\nNo, I never got it to work.  I had upgraded to FWH 2.7 Apr 2006 version to get the new ActiveX features but still could not get it to work.  I don\'t know if a more recent version of FWH would make any difference. \n\nI\'m still very interested in making this work.  If you\'d like to compare notes please feel free to email me directly at <!-- e --><a href=\"mailto:scebee@yahoo.com\">scebee@yahoo.com</a><!-- e -->.  I\'d be happy to share the code I have.  I\'d also be willing to pay someone to get this working.\n\nThanks,\nRandal Ferguson','',0,'gA==','18ofjncz',1,0,'',213,0,0),(30470,6794,6,533,0,'80.32.177.143',1177427331,1,0,1,1,1,0,'','','Antonio, ya lo he hecho, pero sigue exactamente igual. ¿Tendría que redefinir el dialogo con algunas propiedades? Uso MS-C++. \n\nLa estructura es:\n\nVentana Principal (oWnd)\n   Ventana Clientes  (oWnd2) OF oWnd ----&gt; Dialogo Clientes OF oWnd2\n   Ventana Proveedores (oWnd3) OF oWnd\n\nCuando el dialogo Clientes está activo, si pulso sobre proveedores no sale la primera, sigue estando el dialogo Clientes en primer plano sin el foco, porque eso si, la ventana de proveedores es la que tiene el foco.','',0,'gA==','npsl7c1e',1,0,'',533,0,0),(30471,6796,20,49,0,'213.82.134.66',1177431055,1,0,1,1,1,1,'','','prova a trovare i messagi inerenti a fsdi2006\nli c\'era un resize automatico con gli splitter dialog e browse','',0,'gA==','2k1ia62l',1,0,'',49,0,0),(30472,6792,6,279,0,'189.164.173.9',1177431436,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2315y49m]Mario,\n\nQue valor inicial tiene la variable vCot2 ?[/quote:2315y49m]\n\n\n\n      IF lNew\n         vCot1:=Space(2)\n         vCot2:=Date()\n         vCot3:=Time()\n         vCot4:=0\n         vCot5:=0\n         vCot6:=.F.\n      ELSE\n         vCot1:=oDDetCot:C_CIA\n         vCot2:=oDDetCot:D_COTIZA\n         vCot3:=oDDetCot:C_FORPAG\n         vCot4:=oDDetCot:N_COTIZA\n         vCot5:=oDDetCot:N_RECIBO\n         vCot6:=oDDetCot:D_ANEXO\n      ENDIF','',0,'gA==','2315y49m',1,0,'',279,0,0),(30473,6789,3,138,0,'189.141.67.139',1177432033,1,0,1,1,1,1,'','','You can also try FileXLS class, it writes direct XLS files, no need to have anything installed.','',0,'gA==','3bjvsgd5',1,0,'',138,0,0),(30474,6797,6,36,0,'200.113.56.235',1177434040,1,0,1,1,1,0,'','Archivo Log.txt','Estimados FiveWin**\n\nAl ejecutar mi aplicación y al cerrarla me esta generando un archivo \n[u:2qlvpgfq]log.txt[/u:2qlvpgfq] con esta información\n\n[list:2qlvpgfq]24/04/2007 12:51:31:          1	\n24/04/2007 12:51:31:          1	\n24/04/2007 12:51:31:          1	\n24/04/2007 12:51:32:          1	\n24/04/2007 12:51:32:          1	\n24/04/2007 12:51:32:          1	\n24/04/2007 12:51:32:          1	\n24/04/2007 12:51:32:          1	\n24/04/2007 12:51:33:          1	\n24/04/2007 12:51:33:          1	\n24/04/2007 12:51:33:          1	\n24/04/2007 12:51:33:          1	\n24/04/2007 12:51:34:          1	\n24/04/2007 12:51:34:          1	\n24/04/2007 12:51:34:          1	\n24/04/2007 12:51:34:          1	\n[/list:u:2qlvpgfq]\n\n\nAlguien sabe por que se genera, algun Error interno?\n\nSaludos\nPatricio','',0,'AUA=','2qlvpgfq',1,0,'',36,0,0),(30475,6782,3,973,0,'63.196.154.4',1177434115,1,0,1,1,1,0,'','','Thanks GALE\n\nBert','',0,'AUA=','1skzhvex',1,0,'',973,0,0),(30476,6789,3,6,0,'87.16.223.75',1177434457,1,0,1,1,1,1,'','','Ok, but George needs to read from an XLS and write to a DBF, if I understood correctly.\n\nEMG','',0,'AUA=','205us2xv',1,0,'',6,0,0),(30477,6795,7,2,0,'87.218.146.69',1177435655,1,0,1,1,1,1,'','','Andrés,\n\nTienes que modificar esta línea en el fichero de configuración:\n\nCmd0 = LINK $(LOPT) $FGO $(LIBS) $FGR\n\nAsí ya tiene que funcionarte bien con los cambios que has hecho antes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AUA=','2a7ocrno',1,0,'',2,0,0),(30478,6774,6,2,0,'87.218.146.69',1177436000,1,0,1,1,1,1,'','','Unos últimos cambios al de FWPPC:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27708298/fwppc.zip.html\">http://rapidshare.com/files/27708298/fwppc.zip.html</a><!-- m -->','',0,'AUA=','3uj0ub2g',1,0,'',2,0,0),(30479,6773,3,2,0,'87.218.146.69',1177436031,1,0,1,1,1,1,'','','Some latest changes for FWPPC config file:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27708298/fwppc.zip.html\">http://rapidshare.com/files/27708298/fwppc.zip.html</a><!-- m -->','',0,'AUA=','13jb4qls',1,0,'',2,0,0),(30480,6666,4,2,0,'87.218.146.69',1177436077,1,0,1,1,1,1,'','','Here is the FWPPC UEStudio config file:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27708298/fwppc.zip.html\">http://rapidshare.com/files/27708298/fwppc.zip.html</a><!-- m -->','',0,'AUA=','2k56i9nj',1,0,'',2,0,0),(30481,6668,7,2,0,'87.218.146.69',1177436125,1,0,1,1,1,1,'','','Unos cambios en el fichero FWPPC de configuración para UEStudio:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27708298/fwppc.zip.html\">http://rapidshare.com/files/27708298/fwppc.zip.html</a><!-- m -->','',0,'AUA=','3fe5sx4g',1,0,'',2,0,0),(30482,6752,3,2,0,'87.218.146.69',1177436198,1,0,1,1,1,1,'','','Maurizio,\n\nHere it is building fine, using FWH 7.04','',0,'AUA=','2ovl0puv',1,0,'',2,0,0),(30483,6798,6,376,0,'190.42.34.89',1177436251,1,0,1,1,1,1,'','Recompilar FWH24 con xHarbour 99.70','¿Alguien puede indicarme como recompilar mi FWH24 para compatibilizarlo con la última version de xharbour?. Actualmente utilizo mi FWH24 con xharbour 99.60.\n\nMe urge incluir las nuevas bondades de la ultima version de xharbour en mis aplicaciones.','',0,'AUA=','o2xpunnn',1,0,'',376,0,0),(30484,6716,3,303,0,'72.199.41.171',1177436626,1,0,1,1,1,0,'','','Arindam,\n\nJust wondering if you have made any progress on this?\n\nJames','',0,'AUA=','15jchiut',1,0,'',303,0,0),(30485,6796,20,6,0,'87.16.223.75',1177437899,1,0,1,1,1,1,'','Re: Utilizzare gli splitter per il resize automatico','[quote=&quot;Marco Turco&quot;:2ibomc2h]Il mio problema è che in caso di resize mi viene allargata la parte sinistra (folder) mentre vorrei che venga allargata la destra (browse) e precisamente solo la prima colonna del browse.[/quote:2ibomc2h]\n\nNon so come allargare una colonna del browse ma per il resto modifica così il tuo esempio:\n\n[code:2ibomc2h]ACTIVATE WINDOW oWnd;\n         ON RESIZE RIDIMENSIONA&#40; oWnd, oSplit, oBrw, oFld &#41;[/code:2ibomc2h]\n\n[code:2ibomc2h]STATIC FUNCTION RIDIMENSIONA&#40; oWnd, oSplit, oBrw, oFld &#41;\n\n    oSplit&#58;nFirst = oWnd&#58;nWidth&#40;&#41; - oSplit&#58;nWidth - 300\n\n    oFld&#58;Move&#40; 90, oSplit&#58;nFirst + oSplit&#58;nWidth, , , &#46;T&#46; &#41;\n\n    oBrw&#58;Move&#40; 90, 60, oSplit&#58;nFirst - 60, 220, &#46;T&#46; &#41;\n\n    oSplit&#58;AdjClient&#40;&#41;\n\n    RETURN NIL[/code:2ibomc2h]\n\nEMG','',0,'gIA=','2ibomc2h',1,0,'',6,0,0),(30486,6796,20,6,0,'87.16.223.75',1177438207,1,0,1,1,1,1,'','Re: Utilizzare gli splitter per il resize automatico','[quote=&quot;Marco Turco&quot;:2q5lndbd]Vorrei inoltre che lo sfondo della sezione sinistra appaia in grigio (come una dialog)[/quote:2q5lndbd]\n\nAggiungi la clausola color al comando DEFINE WINDOW:\n\n[code:2q5lndbd]#include &quot;Wcolors&#46;ch&quot;\n\n&#46;&#46;&#46;\n\n&#46;&#46;&#46; COLOR NIL, GETSYSCOLOR&#40; COLOR_BTNFACE &#41;[/code:2q5lndbd]\n\nEMG','',0,'gIA=','2q5lndbd',1,0,'',6,0,0),(30487,6305,1,2,0,'87.218.146.69',1177440090,1,0,1,1,1,1,'','','Richard,\n\nWe have emailed you our exetype.com utility. Simply do:\n\nexetype.com YourApp.exe 4.0\n\nand YourApp.exe will be modified and will properly run on Win XP, etc.','',0,'gIA=','1ml060eo',1,0,'',2,0,0),(30488,6792,6,2,0,'87.218.146.69',1177440208,1,0,1,1,1,1,'','','Haz un MsgInfo( oDDetCot:D_COTIZA ) despues de ese IF ... ENDIF y comprueba el valor que tiene oDDetCot:D_COTIZA','',0,'gIA=','2z69gvqr',1,0,'',2,0,0),(30489,6779,6,2,0,'87.218.146.69',1177440294,1,0,1,1,1,1,'','','Marcelo,\n\nPublica aqui el RC de ese diálogo y lo construimos aqui con FWH 7.04 para que veas el resultado, gracias','',0,'gIA=','1sndcitw',1,0,'',2,0,0),(30490,6798,6,2,0,'87.218.146.69',1177440353,1,0,1,1,1,1,'','','Armando,\n\nNo funcionará ya que partes internas de xHarbour han cambiado y por lo tanto de FWH tambien','',0,'gIA=','307zbs54',1,0,'',2,0,0),(30491,6794,6,2,0,'87.218.146.69',1177440505,1,0,1,1,1,1,'','','Mike,\n\nEse comportamiento que describes es normal, ya que el diálogo pertenece a oWnd2 y no a oWnd3.\n\nDe todas formas puedes solucionarlo haciendo oWnd3:Disable() antes de llamar al diálogo y haciendo oWnd3:Enable() despues de salir del diálogo','',0,'gIA=','34ou3lxu',1,0,'',2,0,0),(30492,6782,3,940,0,'189.157.84.245',1177441061,1,0,1,1,1,1,'','','Hi,\n\nan example of the use of these constants?  \n  \nthank you,','',0,'gIA=','240ahtbo',1,0,'',940,0,0),(30493,6797,6,2,0,'87.218.146.69',1177441139,1,0,1,1,1,1,'','','Patricio,\n\nPara asegurarnos que no tengas algún LogFile() en la librería añade esta función a tu programa en el PRG principal:\n\nfunction LogFile()\nreturn nil','',0,'gIA=','154lazvm',1,0,'',2,0,0),(30494,6779,6,649,0,'201.35.194.253',1177441748,1,0,1,1,1,1,'','','Resolvido aqui\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=9702\">http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=9702</a><!-- m -->\n\nObrigado a todos','',0,'gIA=','mm2juxxz',1,0,'',649,0,0),(30495,6799,1,161,0,'81.164.212.146',1177444828,1,0,1,1,1,0,'','Picture Question','Hi,\n\nIs the a way to enter only 0-9 , A-Z and _(underscore).\nIf I use @N, only 0-9 and A-Z is allowed, but nu underscore <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nThanks,\nMarc','',0,'gIA=','o1rklv8a',1,0,'',161,0,0),(30496,6788,3,35,0,'167.7.140.254',1177445154,1,0,1,1,1,0,'','','To All\n\nRunning Vista Business RTM here on a Novell network with the Beta1 Novell Client .. having NO difficulties what-so-ever here .. running on cicso switches .. using xHarbour 99.70 and FWH27..\n\nNo conflicts with record locking or performance... be it a mapped drive or UNC access to the same application.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gIA=','opbluo3n',1,0,'',35,0,0),(30497,1379,6,147,0,'201.253.55.157',1177445668,1,0,1,0,1,1,'','','Gente que usa UES\n\nMe ha pasado algo extraño con el UES. Lo tengo instalado en 2 PCs. Al compilar, en una de ellas. se abre la ventana DOS y al terminar el compilado regresa. De hecho esto no lo hacía inicialmente. Por lo que desintalé y volví a instalar la app, me traje la configuración de la otra PC, que no manifiesta el mismo comportamiento, y nada. Luego hice un copy de toda la carpeta y tampoco.\nAlguna sugerencia?\n\ngracias, Saludos','',0,'gIA=','3py2ghk9',1,0,'',147,0,0),(30498,6716,3,705,0,'61.0.136.5',1177448245,1,0,1,1,1,0,'','','James,\n\nI have tested your sample code. It is working fine. May be there are some steping problem in my code. Once again I go through my code. if necessay I will get back to you for support.\n\nThank you for your kind efforts.\n\nWith regards,\nArindam','',0,'gIA=','soy27bna',1,0,'',705,0,0),(30499,6800,6,278,0,'164.77.219.99',1177449172,1,0,1,1,1,1,'','xBrowse  -  no funciona el bEditBlock ??','Hola a Todos:\n\nTengo un problema con el xBrowse , no se si estoy haciendo algo mal o es un error de la clase. \n\nLo que sucede es que no se ejecuta el codeblock del edit \n [b:6hh6730l]( bEditBlock )  [/b:6hh6730l],  al estar editando directamente en la grilla del browse. \n\nLes adjunto una parte del código. \n\n[code:6hh6730l]\n	oBrw&#58;aCols&#91;5&#93;&#58;cHeader  		&#58;= &quot;P&#46; COSTO&quot;\n	oBrw&#58;aCols&#91;5&#93;&#58;nHeadStrAlign	&#58;= AL_CENTER   \n	oBrw&#58;aCols&#91;5&#93;&#58;nWidth     	&#58;= 80\n	oBrw&#58;aCols&#91;5&#93;&#58;oHeaderFont   &#58;= aFont&#91;3&#93;\n	oBrw&#58;aCols&#91;5&#93;&#58;nEditType	&#58;= EDIT_GET    \n	oBrw&#58;aCols&#91;5&#93;&#58;bEditBlock	&#58;= &#123; || MsgInfo&#40; &quot; AVISO - se Uso el Edit Block&quot; &#41; &#125;\n	oBrw&#58;aCols&#91;5&#93;&#58;nDataStrAlign	&#58;= AL_RIGHT \n	oBrw&#58;aCols&#91;3&#93;&#58;cEditPicture	&#58;= &quot;@E 999,999,999&#46;99&quot;\n	oBrw&#58;aCols&#91;5&#93;&#58;bOnPostEdit	&#58;= &#123; | o,x | aDatos&#91; oBrw&#58;nArrayAt, 5 &#93; &#58;= x  &#125; \n	\n[/code:6hh6730l]\n\nPorque no se ejecuta el oBrw:aCols[5]:bEditBlock  ??\n\nNo se supone que al terminar de editar con un enter, se debería mostrar el mensaje ?? Eso esto correcto ??  O como se debe usar bien ??\n\nAlguna idea .\n\nSaludos,','',0,'QIA=','6hh6730l',1,0,'',278,0,0),(30500,6798,6,376,0,'190.42.34.89',1177451005,1,0,1,1,1,1,'','','Antonio\n\nFwh24 tampoco era compatible con xHarbour 99.60 sin embargo hice cambios en los archivos .ch y algunos .h, y se hicieron compatibles totalmente.\n\nSi tienes a bien indicarme en cuales de estos archivos han habido cambios podrìa hacerlo compatible nuevamente... salvo que todo se haya modificado!!!','',0,'QIA=','3q7dpfah',1,0,'',376,0,0),(30501,6788,3,303,0,'72.199.41.171',1177451855,1,0,1,1,1,0,'','','This appears to be a Vista Bug:\n\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/?kbid=935370\">http://support.microsoft.com/?kbid=935370</a><!-- m -->','',0,'QIA=','1h4hu1bg',1,0,'',303,0,0),(30502,6785,3,904,0,'198.54.202.250',1177452051,1,0,1,1,1,1,'','','What is a \'pure HTML\' file? - as opposed to a compiled help file CHM?\n\nI have read problems on this forum with HLP and CHM files. Is this the answer then? (pure HTML files)?  How are they used?','',0,'QIA=','m1pj9t3t',1,0,'',904,0,0),(30503,6773,3,529,0,'200.159.198.190',1177453863,1,0,1,1,1,0,'','project','hi, i do all steps, but when i create an new project , dont appear fwh ou harbour...','',0,'QIA=','2nkj4s5p',1,0,'',529,0,0),(30504,6785,3,303,0,'72.199.41.171',1177454055,1,0,1,1,1,0,'','','Ollie,\n\n&gt;What is a \'pure HTML\' file? - as opposed to a compiled help file CHM? \n\nCHM files are just compiled HTML files. Help generation software first creates an HTML file (just like any web page) then compiles all the HTML files into one CHM file. Then there is a special program that reads the CHM files to display the help. For whatever reason, Windows now considers CHM files a security threat, so they cannot be run from a network drive (unless the PC is configured to allow it).\n\nSo, if your Help generation software provides it, you can just export HTML files and put all the HTML files into a subdirectory of your application and then call whatever HTML file you wish from within your application.\n\nAlternatively, you could just have the HTML help files on your Internet site and have the app look for them there. That way everyone is seeing the most current help files. Of course, customers would have to have Internet access.\n\nOne other way is that the app could look for the CHM file in a specific local directory, and if it is not found then create the directory and copy the file from the server. This could be done from within FW. Or, if the help file is found locally, it would be a good idea to check the file date against the one on the server and update the local copy if needed.\n\nJames','',0,'QIA=','w0koybi4',1,0,'',303,0,0),(30505,6773,3,529,0,'200.159.198.190',1177454320,1,0,1,1,1,0,'','','hi, i unzip the files in config dir, but when i try to open an new project , dont show fwh ou harbour compiler.','',0,'QIA=','2hkzg4kz',1,0,'',529,0,0),(30506,6797,6,36,0,'200.113.56.235',1177454420,1,0,1,1,1,0,'','','Gracias antonio\n\nFunciona','',0,'QIA=','2kb4zh4l',1,0,'',36,0,0),(30507,6798,6,138,0,'189.141.67.139',1177455351,1,0,1,1,1,1,'','','Armando:\n\nNi te esfuerces, nosotros lo intentamos con FW 2.5 y 2.6 y mejor decidimos actualizar el FW.\n\nLos cambios internos en xHb son bastante extensos, no es posible modificar FW 2.4 para que funcione con las ultimas versiones de xHarbour, porque los cambios tocan muchos componentes internos de FW, en su mayoria escritos en C.','',0,'QIA=','1t9kats6',1,0,'',138,0,0),(30508,6785,3,904,0,'198.54.202.246',1177455681,1,0,1,1,1,1,'','','Thank you. Its clear now.','',0,'QIA=','140d3w8g',1,0,'',904,0,0),(30509,6773,3,2,0,'87.218.146.74',1177456024,1,0,1,1,1,1,'','','Norberto,\n\nYou have to create a new folder at:\n\nc:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\FWH\n\nand unzip there the FWH.zip file','',0,'QIA=','3p0qiq41',1,0,'',2,0,0),(30510,6783,6,36,0,'200.113.56.235',1177456214,1,0,1,1,1,0,'','','Jhon\n\nEdita el build.bat y quita los rem ads\n\n[code:3oux8i08]rem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\n[/code:3oux8i08]\n\nSaludos\nPatricio','',0,'AIA=','3oux8i08',1,0,'',36,0,0),(30511,6788,3,35,0,'65.188.6.143',1177456454,1,0,1,1,1,0,'','','Is this a MS Acess database or are we talking .dbf ?\n\nRick Lipkin','',0,'AIA=','1d918iv6',1,0,'',35,0,0),(30512,6788,3,213,0,'24.174.52.160',1177461989,1,0,1,1,1,0,'','','Rick,\n\nDoes your database reside on a Vista computer and are the workstations running Vista?\n\nRegards,\nRandal','',0,'AIA=','1fv32a3p',1,0,'',213,0,0),(30513,6787,6,348,0,'190.42.26.172',1177462213,1,0,1,1,1,0,'','','esta claro y confirmado\nGracias antonio','',0,'AIA=','urr39k3g',1,0,'',348,0,0),(30515,6788,3,303,0,'72.199.41.171',1177466203,1,0,1,1,1,0,'','','Rick,\n\n&gt;Is this a MS Acess database or are we talking .dbf ? \n\nAlthough the article is about an Access file, I think it applies to any file. I saw a number of message threads on user groups about this. Even multiple users trying to access the same Word and Excel file caused a hang. So, I assume it would also happen with a DBF.\n\nSince you are using Novell, Novell handles the file and record locking so it probably doesn\'t affect you. From what I read, it only happens in a shared folder on a Vista computer on a peer-to-peer network.\n\nIts amazing that a bug this serious wasn\'t found and fixed in several years of beta testing.\n\nJames','',0,'AIA=','snevk0md',1,0,'',303,0,0),(30516,6791,6,348,0,'190.42.26.172',1177466656,1,0,1,1,1,0,'','','Hola Antonio\n\nPor aqui siguiendo la historia con DLL y RC\n\nTe comento que me sale un error al ejecutar unas de las opciones del menu del Programa,  definitivamente es cuando se va activar uno de los dialogos , porque cuando uso un MSGSTOP(\"Prueba\")  `por ejemplo , sale bien y   pero al entar a crear el dialogo sale el problema\n\n\nFiveWin For Harbour  GPF occurred\n\nCalled From : DIALOGBOX/0)\nCalled From : TDIALOG:ACTIVATE(0)\nCalled From : WFI_REINDEX(320)\nCalled....\n\n\nEste ultimo modulo es el programa que invoca al Dialogo que esta en el RC.\n\nen otras opciones de mi menu se sale simplemente del programa al Windows , sin mensaje alguno.\n\nMe das una ida, Gracias\n\nLubin\n \n\n[quote=&quot;Antonio Linares&quot;:26dy2opj]Es correcto: Salvar los recursos como RC y que se enlacen dentro del EXE.\n\n&gt; SET RESOURCES TO W1_DLL,W2_DLL\n\nQuita esta línea, ya que los recursos los localiza la aplicación directamente\n\nPuedes seguir usando el Resources Workshop, ó usar el PellesC que incluye editor de recursos, u otros más que existen.[/quote:26dy2opj]','',0,'gA==','26dy2opj',1,0,'',348,0,0),(30517,6485,6,95,0,'189.155.109.187',1177474154,1,0,1,1,1,0,'','','Antonio\n\nTratando de construir el dbu de clipper 53, dime, puedo hacerlo en modo consola ?\n\ny si si, que lib, debo de remover y cual poner en el modo consola.\n\nSaludos\nOsvaldo Ramirez','',0,'gA==','1s62rwgk',1,0,'',95,0,0),(30518,2501,17,56,0,'217.251.230.18',1177476926,1,0,1,1,1,1,'','','Hi Antonio,\n\nit seems that the links are not valid anymore.\nCould you perhaps put the files on an other server?','',0,'gA==','3j3054in',1,0,'',56,0,0),(30519,6795,7,413,0,'195.55.176.112',1177478671,1,0,1,1,1,1,'','','Gracias nuevamente Antonio, ahora sí parece que enlaza el RC, antes genereaba el RES pero no lo enlazaba. Ahora me da una serie de errores al ejecutar el dialogo, pero parece que son consas que le faltan. Voy a revisarlo.','',0,'gA==','1oui32y7',1,0,'',413,0,0),(30520,6791,6,2,0,'87.218.146.74',1177480554,1,0,1,1,1,1,'','','Lubin,\n\nIntenta proporcionarnos un ejemplo pequeño y autocontenido que reproduzca el error, para que podamos probarlo aqui. Gracias,','',0,'gA==','1num828x',1,0,'',2,0,0),(30521,6485,6,2,0,'87.218.146.74',1177480678,1,0,1,1,1,1,'','','Osvaldo,\n\nTienes que quitar gtgui.lib y usar gtcrs.lib','',0,'gA==','203upb6l',1,0,'',2,0,0),(30522,2501,17,2,0,'87.218.146.74',1177480840,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27796169/Tscan32.zip.html\">http://rapidshare.com/files/27796169/Tscan32.zip.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27796256/TVideo.zip.html\">http://rapidshare.com/files/27796256/TVideo.zip.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27796342/TCapture.zip.html\">http://rapidshare.com/files/27796342/TCapture.zip.html</a><!-- m -->','',0,'gA==','3ez8op8k',1,0,'',2,0,0),(30523,6800,6,2,0,'87.218.146.74',1177483099,1,0,1,1,1,1,'','','Juan,\n\nEl dato bEditBlock es para otro uso:\n\nbEditBlock  // codeblock to evaluate for the  \"...\" button;\n\nQuizás lo que buscas es bEditValid','',0,'gA==','y0bozg8t',1,0,'',2,0,0),(30524,6786,6,2,0,'87.218.146.74',1177483249,1,0,1,1,1,1,'','','Rochinha,\n\nDe esa forma no puedes cambiar el contenido del Popup menú. \n\nDe la forma que lo hace FWH, sí puedes cambiar el popup menú cada vez que lo vas a usar.','',0,'gA==','1tksn1g3',1,0,'',2,0,0),(30525,6799,1,2,0,'87.218.146.74',1177483353,1,0,1,1,1,1,'','','Marc,\n\nIf you use FWH and Harbour/xHarbour then you can modify the Class TGet and provide it the behavior that you are looking for','',0,'gA==','2pj7fjyf',1,0,'',2,0,0),(30526,2501,17,37,0,'190.42.87.71',1177486784,1,0,1,1,1,1,'','','Antonio y la TUtilPrn y TImprime.\nGracias','',0,'gA==','gir0qyzj',1,0,'',37,0,0),(30527,2501,17,2,0,'87.218.146.74',1177489460,1,0,1,1,1,1,'','','Enrique,\n\nNo las encuentro, quizás Rafa nos pueda ayudar','',0,'gA==','xfmr4qc1',1,0,'',2,0,0),(30528,6726,3,148,0,'41.196.193.245',1177492983,1,0,1,1,1,0,'','','for example if I will get data from field can the auto complete works . For instance if I pressed letter A I will get all data that begins with A and etc..','',0,'gA==','4q288jr6',1,0,'',148,0,0),(30529,6726,3,217,0,'200.159.120.34',1177500470,1,0,1,1,1,0,'','','Ehab and Antonio,\n\nI use this class I created: [b:2srhcnwe]TAutoGet[/b:2srhcnwe]\nNew features, bug fixes and enhancements are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[code:2srhcnwe]\n// TAutoGet&#46;prg\n// Auto complete text in get features\n// By&#58; Maurilio Viana mouri_ryo@hotmail&#46;com\n//\n// New features, bug fixes and enhancements are welcome &#58;-&#41;\n// Please, let me now when you include new features, bug fixes etc in this class\n//\n// ToDo&#58; Show drop down window with possible options when typing\n//\n\n#include &quot;fivewin&#46;ch&quot;\n\nCLASS TAutoGet FROM TGet\n   DATA aItems AS ARRAY\n\n   METHOD New&#40; nRow    , nCol    , bSetGet  , oWnd     , nWidth   , nHeight,;\n               cPict   , bValid  , nClrFore , nClrBack , oFont    , lDesign,;\n               oCursor , lPixel  , cMsg     , lUpdate  , bWhen    , lCenter,;\n               lRight  , bChanged, lReadOnly, lPassword, lNoBorder, nHelpID,;\n               lSpinner, bUp     , bDown    , bMin     , bMax     , aItems  &#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nID     , bSetGet , oWnd     , nHelpId , cPict, bValid ,;\n                    nClrFore, nClrBack, oFont    , oCursor , cMsg , lUpdate,;\n                    bWhen   , bChanged, lReadOnly, lSpinner, bUp  , bDown  ,;\n                    bMin    , bMax, aItems &#41; CONSTRUCTOR\n   METHOD SetItems&#40; aItems &#41;\n   METHOD AutoFill&#40;&#41;\nEND CLASS\n\n\n//-----------------------------------------------------------------------------------------\nMETHOD New&#40;nRow     , nCol     , bSetGet , oWnd    , nWidth , nHeight , cPict    ,;\n           bValid   , nClrFore , nClrBack, oFont   , lDesign, oCursor , lPixel   ,;\n           cMsg     , lUpdate  , bWhen   , lCenter , lRight , bChanged, lReadOnly,;\n           lPassword, lNoBorder, nHelpId , lSpinner, bUp    , bDown   , bMin     ,;\n           bMax     , aItems&#41; CLASS TAutoGet\n local nLen, i\n\n Super&#58;New&#40;nRow   , nCol    , bSetGet  , oWnd     , nWidth   , nHeight,;\n           cPict  , bValid  , nClrFore , nClrBack , oFont    , lDesign,;\n           oCursor, lPixel  , cMsg     , lUpdate  , bWhen    , lCenter,;\n           lRight , &#58;&#58;bChange, lReadOnly, lPassword, lNoBorder, nHelpId,;\n           lSpinner, bUp    , bDown    , bMin     , bMax &#41;\n\n if&#40;aItems == Nil, aItems &#58;= &#123;&#125;, &#41;\n\n &#58;&#58;aItems &#58;= aItems\n\n &#58;&#58;bPostKey &#58;= &#123;|oGet, cBuffer| &#58;&#58;AutoFill&#40;&#41; &#125;\nreturn&#40; Self &#41;\n\n//-----------------------------------------------------------------------------------------\nMETHOD ReDefine&#40;nID      , bSetGet , oWnd   , nHelpId, cPict  , bValid, nClrFore,;\n                nClrBack , oFont   , oCursor, cMsg   , lUpdate, bWhen , bChanged,;\n                lReadOnly, lSpinner, bUp    , bDown  , bMin   , bMax  , aItems &#41; CLASS TAutoGet\n\n Super&#58;ReDefine&#40;nID      , bSetGet , oWnd   , nHelpId, cPict  , bValid, nClrFore ,;\n                nClrBack , oFont   , oCursor, cMsg   , lUpdate, bWhen , &#58;&#58;bChange,;\n                lReadOnly, lSpinner, bUp    , bDown  , bMin   , bMax  , aItems  &#41;\n\n\n if&#40;aItems == Nil, aItems &#58;= &#123;&#125;, &#41;\n\n &#58;&#58;aItems   &#58;= aItems\n\n &#58;&#58;bPostKey &#58;= &#123;|oGet, cBuffer| &#58;&#58;AutoFill&#40;&#41; &#125;\nreturn&#40; Self &#41;\n\n//---------------------------------------------------------------------------------------\n// Set items of AutoGet\n//---------------------------------------------------------------------------------------\nMETHOD SetItems&#40; aItems &#41; CLASS TAutoGet\n if&#40;aItems == Nil, aItems &#58;= &#123;&#125;, &#41;\n\n &#58;&#58;aItems   &#58;= aItems\n\nreturn&#40; Nil &#41;\n\n//---------------------------------------------------------------------------------------\n// Auto fill text when type based on aItems options\n// Return&#58; Ever return &#46;T&#46;\n//---------------------------------------------------------------------------------------\nMETHOD AutoFill&#40;&#41; CLASS TAutoGet\n local nPosItem   &#58;= 0                           // Text position into &#58;&#58;aItems\n local nPosCursor &#58;= &#58;&#58;nPos                      // Current cursor position\n local nLenght    &#58;= len&#40;&#58;&#58;cText&#41;                // Text lenght\n local cStartTxt  &#58;= left&#40;&#58;&#58;cText, nPosCursor-1&#41; // Start text &#40;position 1 to cursor position -1&#41;\n local cItem\n\n if len&#40;&#58;&#58;aItems&#41; = 0      // We have no items to search in this GET\n    return&#40;&#46;T&#46;&#41;\n endif\n\n //-------------------------------------------------------------------------\n // We use &#58;&#58;cargo to control when we must search in &#58;&#58;aItems for typed text\n // We must seek in &#58;&#58;aItems when GET is blank or when user clear it\n //-------------------------------------------------------------------------\n if valtype&#40;&#58;&#58;Cargo&#41; != &quot;L&quot; // Cargo isn\'t logical yet -&gt; GET received focus now\n    if ! empty&#40;&#58;&#58;Value&#41;     // GET isn\'t empty\n       &#58;&#58;Cargo &#58;= &#46;F&#46;       // We don\'t use autofill\n    else                    // GET is empty\n       &#58;&#58;Cargo &#58;= &#46;T&#46;       // Use autofill\n    endif\n else                       // We are controlling if use or no autofill\n    if empty&#40;&#58;&#58;Value&#41;       // User could cleaned the GET text\n       &#58;&#58;Cargo &#58;= &#46;T&#46;       // Use autofill\n    endif\n endif\n //-------------------------------------------------------------------------\n // When lost focus we clean &#58;&#58;Cargo and set GET cursor position to 1st pos\n //-------------------------------------------------------------------------\n &#58;&#58;bLostFocus &#58;= &#123;|| &#58;&#58;SetPos&#40;1&#41;, &#58;&#58;Cargo &#58;= Nil &#125;\n\n if ! &#58;&#58;Cargo    // If don\'t control autofill\n    return&#40;&#46;t&#46;&#41;\n endif\n\n nKey &#58;= &#58;&#58;nLastKey\n do case\n    case nKey ==  9 &#46;or&#46; ;    // Tab key\n         nKey == 13 &#46;or&#46; ;    // Enter key\n         nKey == 46           // Del key\n         &#58;&#58;Assign&#40;&#41;           // Assign typed text\n    case nKey &gt; 31\n         FOR EACH cItem IN &#58;&#58;aItems\n             nPosItem += 1\n             if ToUpper&#40; cItem &#41; = ToUpper&#40;cStartTxt&#41;\n                nLenght &#58;= len&#40; rtrim&#40; cItem &#41; &#41;\n                cItem   += space&#40; nLenght - len&#40;cItem&#41; &#41;\n                &#58;&#58;SetText&#40; cItem &#41;\n                &#58;&#58;SetSel&#40; nPosCursor -1, nLenght&#41; // Select found text\n                return&#40;&#46;t&#46;&#41;\n             endif\n         NEXT\n         &#58;&#58;HideSel&#40;&#41;   // Text not found -&gt; Undo selected text\n endcase\nreturn&#40; &#46;T&#46; &#41;\n\n// Convert latin characters to ANSI upper case\n// &#40;for any reason AnsiUpper cause a GPF with Comercial xHB&#41;\n\nSTATIC function ToUpper&#40; cString &#41;\n cString &#58;= upper&#40; cString &#41;\n cString &#58;= strtran&#40;strtran&#40;strtran&#40;strtran&#40;cString,&quot;á&quot;,&quot;Á&quot;&#41;,&quot;à&quot;,&quot;À&quot;&#41;,&quot;ã&quot;,&quot;Ã&quot;&#41;,&quot;â&quot;,&quot;Â&quot;&#41;\n cString &#58;= strtran&#40;strtran&#40;cString,&quot;é&quot;,&quot;É&quot;&#41;,&quot;ê&quot;,&quot;Ê&quot;&#41;\n cString &#58;= strtran&#40;cString,&quot;í&quot;,&quot;Í&quot;&#41;\n cString &#58;= strtran&#40;strtran&#40;strtran&#40;cString,&quot;ó&quot;,&quot;Ó&quot;&#41;,&quot;õ&quot;,&quot;Õ&quot;&#41;,&quot;ô&quot;,&quot;Ô&quot;&#41;\n cString &#58;= strtran&#40;strtran&#40;strtran&#40;cString,&quot;ú&quot;,&quot;Ú&quot;&#41;,&quot;ñ&quot;,&quot;Ñ&quot;&#41;,&quot;ç&quot;,&quot;Ç&quot;&#41;\nreturn&#40; cString &#41;\n\n// --- EoF ---\n[/code:2srhcnwe]\n\n[b:2srhcnwe]xBase definition (AutoGet.ch):[/b:2srhcnwe]\n[code:2srhcnwe]\n/*----------------------------------------------------------------------------//\n!short&#58; AUTOGET  */\n\n#xcommand REDEFINE AUTOGET &#91; &lt;oGet&gt; VAR &#93; &lt;uVar&gt; ;\n             &#91; ID &lt;nId&gt; &#93; ;\n             &#91; &lt;dlg&#58; OF, WINDOW, DIALOG&gt; &lt;oDlg&gt; &#93; ;\n             &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n             &#91; VALID   &lt;ValidFunc&gt; &#93;       ;\n             &#91; &lt;pict&#58; PICTURE, PICT&gt; &lt;cPict&gt; &#93; ;\n             &#91; &lt;color&#58;COLOR,COLORS&gt; &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; FONT &lt;oFont&gt; &#93; ;\n             &#91; CURSOR &lt;oCursor&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; ON CHANGE &lt;uChange&gt; &#93; ;\n             &#91; &lt;readonly&#58; READONLY, NO MODIFY&gt; &#93; ;\n             &#91; &lt;spin&#58; SPINNER&gt; &#91;ON UP &lt;SpnUp&gt;&#93; &#91;ON DOWN &lt;SpnDn&gt;&#93; &#91;MIN &lt;Min&gt;&#93; &#91;MAX &lt;Max&gt;&#93; &#93; ;\n             &#91; ITEMS &lt;aItems&gt;&#93; ;\n       =&gt; ;\n          &#91; &lt;oGet&gt; &#58;= &#93; TAutoGet&#40;&#41;&#58;ReDefine&#40; &lt;nId&gt;, bSETGET&#40;&lt;uVar&gt;&#41;, &lt;oDlg&gt;,;\n             &lt;nHelpId&gt;, &lt;cPict&gt;, &lt;&#123;ValidFunc&#125;&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;,;\n             &lt;oFont&gt;, &lt;oCursor&gt;, &lt;cMsg&gt;, &#46;T&#46;, &lt;&#123;uWhen&#125;&gt;,;\n             &#91; \\&#123;|nKey,nFlags,Self| &lt;uChange&gt; \\&#125;&#93;, &lt;&#46;readonly&#46;&gt;,;\n             &lt;&#46;spin&#46;&gt;, &lt;&#123;SpnUp&#125;&gt;, &lt;&#123;SpnDn&#125;&gt;, &lt;&#123;Min&#125;&gt;, &lt;&#123;Max&#125;&gt;, &lt;aItems&gt;&#41;\n\n#command @ &lt;nRow&gt;, &lt;nCol&gt; AUTOGET &#91; &lt;oGet&gt; VAR &#93; &lt;uVar&gt; ;\n            &#91; &lt;dlg&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n            &#91; &lt;pict&#58; PICTURE, PICT&gt; &lt;cPict&gt; &#93; ;\n            &#91; VALID &lt;ValidFunc&gt; &#93; ;\n            &#91; &lt;color&#58;COLOR,COLORS&gt; &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n            &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93;  ;\n            &#91; FONT &lt;oFont&gt; &#93; ;\n            &#91; &lt;design&#58; DESIGN&gt; &#93; ;\n            &#91; CURSOR &lt;oCursor&gt; &#93; ;\n            &#91; &lt;pixel&#58; PIXEL&gt; &#93; ;\n            &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n            &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n            &#91; WHEN &lt;uWhen&gt; &#93; ;\n            &#91; &lt;lCenter&#58; CENTER, CENTERED&gt; &#93; ;\n            &#91; &lt;lRight&#58; RIGHT&gt; &#93; ;\n            &#91; ON CHANGE &lt;uChange&gt; &#93; ;\n            &#91; &lt;readonly&#58; READONLY, NO MODIFY&gt; &#93; ;\n            &#91; &lt;pass&#58; PASSWORD&gt; &#93; ;\n            &#91; &lt;lNoBorder&#58; NO BORDER, NOBORDER&gt; &#93; ;\n            &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n            &#91; ITEMS &lt;aItems&gt;&#93; ;\n       =&gt; ;\n          &#91; &lt;oGet&gt; &#58;= &#93; TAutoGet&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, bSETGET&#40;&lt;uVar&gt;&#41;,;\n             &#91;&lt;oWnd&gt;&#93;, &lt;nWidth&gt;, &lt;nHeight&gt;, &lt;cPict&gt;, &lt;&#123;ValidFunc&#125;&gt;,;\n             &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;oFont&gt;, &lt;&#46;design&#46;&gt;,;\n             &lt;oCursor&gt;, &lt;&#46;pixel&#46;&gt;, &lt;cMsg&gt;, &#46;T&#46;, &lt;&#123;uWhen&#125;&gt;,;\n             &lt;&#46;lCenter&#46;&gt;, &lt;&#46;lRight&#46;&gt;,;\n             &#91;\\&#123;|nKey, nFlags, Self| &lt;uChange&gt;\\&#125;&#93;, &lt;&#46;readonly&#46;&gt;,;\n             &lt;&#46;pass&#46;&gt;, &#91;&lt;&#46;lNoBorder&#46;&gt;&#93;, &lt;nHelpId&gt;,,,,,,&lt;aItems&gt; &#41;\n\n#command @ &lt;nRow&gt;, &lt;nCol&gt; AUTOGET &#91; &lt;oGet&gt; VAR &#93; &lt;uVar&gt; ;\n            &#91; &lt;dlg&#58; OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; &#93; ;\n            &#91; &lt;pict&#58; PICTURE, PICT&gt; &lt;cPict&gt; &#93; ;\n            &#91; VALID &lt;ValidFunc&gt; &#93; ;\n            &#91; &lt;color&#58;COLOR,COLORS&gt; &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n            &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93;  ;\n            &#91; FONT &lt;oFont&gt; &#93; ;\n            &#91; &lt;design&#58; DESIGN&gt; &#93; ;\n            &#91; CURSOR &lt;oCursor&gt; &#93; ;\n            &#91; &lt;pixel&#58; PIXEL&gt; &#93; ;\n            &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n            &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n            &#91; WHEN &lt;uWhen&gt; &#93; ;\n            &#91; &lt;lCenter&#58; CENTER, CENTERED&gt; &#93; ;\n            &#91; &lt;lRight&#58; RIGHT&gt; &#93; ;\n            &#91; ON CHANGE &lt;uChange&gt; &#93; ;\n            &#91; &lt;readonly&#58; READONLY, NO MODIFY&gt; &#93; ;\n            &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n            &#91; &lt;spin&#58; SPINNER&gt; &#91;ON UP &lt;SpnUp&gt;&#93; &#91;ON DOWN &lt;SpnDn&gt;&#93; &#91;MIN &lt;Min&gt;&#93; &#91;MAX &lt;Max&gt;&#93; &#93; ;\n            &#91; ITEMS &lt;aItems&gt;&#93; ;\n       =&gt; ;\n          &#91; &lt;oGet&gt; &#58;= &#93; TAutoGet&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, bSETGET&#40;&lt;uVar&gt;&#41;,;\n             &#91;&lt;oWnd&gt;&#93;, &lt;nWidth&gt;, &lt;nHeight&gt;, &lt;cPict&gt;, &lt;&#123;ValidFunc&#125;&gt;,;\n             &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;oFont&gt;, &lt;&#46;design&#46;&gt;,;\n             &lt;oCursor&gt;, &lt;&#46;pixel&#46;&gt;, &lt;cMsg&gt;, &#46;T&#46;, &lt;&#123;uWhen&#125;&gt;,;\n             &lt;&#46;lCenter&#46;&gt;, &lt;&#46;lRight&#46;&gt;,;\n             &#91;\\&#123;|nKey, nFlags, Self| &lt;uChange&gt;\\&#125;&#93;, &lt;&#46;readonly&#46;&gt;,;\n             &#46;f&#46;, &#46;f&#46;, &lt;nHelpId&gt;,;\n             &lt;&#46;spin&#46;&gt;, &lt;&#123;SpnUp&#125;&gt;, &lt;&#123;SpnDn&#125;&gt;, &lt;&#123;Min&#125;&gt;, &lt;&#123;Max&#125;&gt;, &lt;aItems&gt; &#41;\n[/code:2srhcnwe]\n\nA fragment of code:\n\n#include \"autoget.ch\"\n\n(...)\ncName   := space(20)\naNames := {\"Mauro\", \"Mauricio\", \"Maurilio\", \"Maurizio\"}\n\nredefine autoget oGet var cName id 101 of oDlg items aNames\n\n(...)\nYou can update items from available text to autocomplete using:\naNames := {\"Angelo\", \"Antonio\", \"Afonso\"}\noGet:SetItems( aNames )\n\nBest regards!\nMaurilio','',0,'QIA=','2srhcnwe',1,0,'',217,0,0),(30530,6802,6,649,0,'201.2.232.196',1177500709,1,0,1,1,1,1,'','Twbrowse de Hernam com fw2.8','Ola amigos estou um pequeno problema.\nrecompilai LIB da twbrowse do Hernam Ceccarelli.\nmas se eu mover com as seta para cima ou para baixo\no Listbox fica preto e somente o registro que esta selecionado fica normal.\nComo resolvo isto.','',0,'QIA=','22fl85vw',1,0,'',649,0,0),(30531,6802,6,986,0,'200.162.80.159',1177501152,1,0,1,1,1,1,'','Twbrowse fw2.8','Eu tive o mesmo problema, \nVc tem que colocar  a lib da twbrowse na hora de compilar da  antes da lib do Fivewin.\n\n\nAte mais','',0,'QIA=','10kv7fze',1,0,'',986,0,0),(30532,6802,6,649,0,'201.2.232.196',1177502374,1,0,1,1,1,1,'','','Tambem nao funionou\nveja meu xhp\n\n//Acima disto vem os PRGs\n\nG:\\XHARBOUR\\FWH28\\LIB\\TWBRW32.LIB=186,.T.,0,0,\nG:\\XHARBOUR\\VLib\\xHarbour\\VLibFW28OutxH9961.Lib=187,.T.,0,0,\nG:\\XHARBOUR\\VLib\\Chs\\VPREVIEW.RES=188,.T.,0,0,\nG:\\XHARBOUR\\BCC55\\Lib\\PSDK\\msimg32.lib=189,.T.,0,0,\n%HB_LIB_INSTALL%\\common.lib=190,.T.,0,0,\n%C_LIB_INSTALL%\\C0W32.OBJ=191,.T.,0,0,\nG:\\XHARBOUR\\fwh28\\LIB\\Fivehc.lib=192,.T.,0,0,\nG:\\XHARBOUR\\fwh28\\LIB\\Fivehx.lib=193,.T.,0,0,\nG:\\XHARBOUR\\fwh28\\LIB\\FTP.lib=194,.T.,0,0,\n\n\nEu a coloquei acima de todas as LIB e nada ainda.','',0,'QIA=','26x91a3u',1,0,'',649,0,0),(30533,6803,3,247,0,'193.92.131.194',1177502930,1,0,1,1,1,0,'','Textbox on Taskbar','How can i have a textbox and a menu on Taskbar (like Nero)?\n\n\n[url=http&#58;//img441&#46;imageshack&#46;us/my&#46;php?image=textboxgg4&#46;png:3t1ik5q4][img:3t1ik5q4]http&#58;//img441&#46;imageshack&#46;us/img441/6656/textboxgg4&#46;th&#46;png[/img:3t1ik5q4][/url:3t1ik5q4]','',0,'GA==','3t1ik5q4',1,0,'',247,0,0),(30534,6755,6,1023,0,'201.92.179.47',1177503510,1,0,1,1,1,0,'','','Bom, Maurilio. Eu tentei fazer dessa forma, mais continua com o problema, eu vou fazer alguns testes sem uasr a subistituição por macro.\n\nEu só não entendo por que o macro pode vir a interferir? Eu comecei a trabalhar com xHarbour e FiveWi a pouco tempo e não conheço muito a linguagem, e menos ainda o fivewin.\nMacro para mim é novidade, meu patrão que pediu para usar, pois ele quer que o browse se ajuste a qualquer tabela que ele quizes :~~, mais acredito que exista outras formas de fazer isso.\n\nObrigado pela ajuda, T+.','',0,'GA==','35pjoajh',1,0,'',1023,0,0),(30535,6804,6,121,0,'189.142.94.220',1177504128,1,0,1,1,1,1,'','problema con xbrowse','Saludos\n\nEstoy haciendo mis primeras pruebas utilizando xbrowse\npero al intentar utilizar el metodo bONPOSTEDIT\n\nResulta que al escribir en la celda, borra el contenido\nno se si sera la version que utilizo\n\n\nAqui esta el codigo que utilizo\n\nFUNCTION PANPRESUP2(MMODO,MABRE)\n Local oDLGPRESUP, APASA:=.F., XFPASA:=.F.\n *\n DEFINE DIALOG oDlgPRESUP RESOURCE \'PRESUP\'  FONT aFONT[2] \n  SELE ENTG000\n  ENTG000-&gt;(Ordscope(0,ENT000-&gt;NUMERO))\n  ENTG000-&gt;(Ordscope(1,ENT000-&gt;NUMERO))\n  ENTG000-&gt;(DBGOTOP())\n  *\n  oBrw := TXBrowse():New(oDlgPRESUP)\n  oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n  oBrw:nColDividerStyle    := LINESTYLE_BLACK\n  oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n  oBrw:lColDividerComplete := .t.\n  oBrw:bCLRSTD:={||IF(RECNO()%2==0,{CLR_BLACK,CLR_1},{CLR_BLACK,CLR_2})}\n  oBRW:nFREEZE:=2\n  *\n  oCol:=oBrw:Addcol()\n   oCol:cHeader     := \"Concepto\"\n   oCol:bStrData    := { || ENTG000-&gt;CONCEPTO }\n\n  oCol:=oBrw:Addcol()\n   oCol:cHeader     := \"Descripcion\"\n   oCol:bStrData    := { || CIMP001-&gt;DESCRIP }\n   oCol:nHeadStrAlign:=AL_LEFT\n   oCol:nDataStrAlign:=AL_LEFT\n\n  oCol:=oBrw:Addcol()\n   oCol:cHeader     := \"Referencia\"\n   oCol:bStrData    := { || ENTG000-&gt;SERIE }\n   oCol:nHeadStrAlign:=AL_LEFT\n   oCol:nDataStrAlign:=AL_LEFT\n   oCol:nEditType    := 1\n   oCol:bOnPostEdit  := {|o,x| ENTG000-&gt;SERIE:=x}\n  *\n  oBRW:SETRDD()\n  oBrw:CreateFromRESOURCE(500)\n  *\n ACTIVATE DIALOG oDLGPRESUP CENTERED\n ENTG000-&gt;(Ordscope(0,NIL))\n ENTG000-&gt;(Ordscope(1,NIL))\n SELE ENT000\n oBRWPRESUP:REFRESH()\n oBRWPRESUP:SETFOCUS()\n oBRWPRESUP:UPSTABLE()\nRETURN NIL','',0,'','1e2js7i8',1,0,'',121,0,0),(30536,6773,3,529,0,'200.233.185.181',1177506036,1,0,1,1,1,0,'','','Antonio, i do this, but dont work.','',0,'','110plcrg',1,0,'',529,0,0),(30537,6788,3,35,0,'167.7.140.254',1177506941,1,0,1,1,1,0,'','','Randal\n\nI was testing a ADO Access app I have been working on and wanted to see the visability of updates .. I have a peer to peer network at home and I put this application in my Vista PUBLIC folder and started the app and went downstaires to my wireless laptop with XP pro sp2 and opend the share and the application.\n\nI did not see any problems with performance .. and as I changed records on my Vista box .. I went and paged up and down on the laptop .. and the browse records were all updated ..\n\nThe app did start a bit slow .. bit the recordset contains about 20k records .. but once the app got started .. did not have any locking or performance problems ..\n\nRick Lipkin','',0,'','kv94i07y',1,0,'',35,0,0),(30538,6800,6,278,0,'164.77.219.99',1177508485,1,0,1,1,1,1,'','','GRACIAS Antonio, \n\nTienes razón es  bEditValid lo que buscaba, requería que al terminar de digitar, se valide una función.\n\nSaludos,','',0,'','ssh5pgh3',1,0,'',278,0,0),(30539,6804,6,278,0,'164.77.219.99',1177508807,1,0,1,1,1,1,'','','Creo que tu problema es que en el bonPostEdit, estas pidiendo 2 variables , pero usas solo una. \n\nMira mi ejemplo, busco en mi array los dos datos solicitados y luego le asigno el cambio.\n\noBrw:aCols[5]:bOnPostEdit   := { | o,x | aDatos[ oBrw:nArrayAt, 5 ] := x  }\n\nSaludos','',0,'','38h9egc6',1,0,'',278,0,0),(30540,6485,6,95,0,'189.155.109.187',1177508961,1,0,1,1,1,0,'','','Antonio\n\nEsta es la linea que uso\n\ngcc $1.o dbuedit.o dbuindx.o dbustru.o dbuview.o dbucopy.o dbuhelp.o dbunet.o dbuutil.o -o ./$1.app/Contents/MacOS/$1 -L./../fivemac/lib -lfive -lfivec -L./../harbour/lib -ldebug -lvm -lrtl -llang -lrdd -lrtl -lgtstd -lvm -lmacro -lpp -ldbfntx -ldbfcdx -ldbffpt -lhbsix -lcommon\n\nRemovi gtstd y puse gtcrs al igual que fivec y five, pero en fin ya corrio el dbu, no aparecen las lineas pero si corrio, tratare de usar esto para la modificaciones de tablas.\n\nSaludos y gracias\nOsvaldo Ramirez','',0,'','1wvh3grk',1,0,'',95,0,0),(30541,6788,3,213,0,'24.242.228.6',1177513311,1,0,1,1,1,0,'','','Rick,\n\nThe problem I (and others) experienced occurrs when you have a shared folder on a Vista computer and two Vista workstations try to access the data at the same time.  If you access the data from the Vista computer where the data resides and then from a Vista workstation it works ok.\n\nSo, in order to recreate the problem you need to have a 3rd computer.  Run your ado app from the laptop and then try to access the same program from another Vista workstation, not the Vista computer where the software resides.\n\nThanks,\nRandal','',0,'','2pr6ux0u',1,0,'',213,0,0),(30542,6805,7,720,0,'80.36.244.134',1177514171,1,0,1,1,1,0,'','Comprobar si existe un directorio remoto....','Hola a todos...\n\nPues eso queria saber si existe alguna función que permita saber si existe un directorio remoto. He probado con lIsDir() pero cuando lo ejecuto me dice que no está disponible, por lo que no me funciona...\n\n\nSaludos.\n\nElías Torres.','',0,'','2qn609o3',1,0,'',720,0,0),(30543,6796,20,29,0,'88.149.161.11',1177515206,1,0,1,1,1,0,'','','Grazie EMG,\ncon le tue indicazioni ho fatto un deciso passo avanti.\n\nHo modificato il programma in modo tale che cliccando sul pulsante sulla buttonbar si esegue una funzione che crea il browse,il folder e attiva la gestione dello splitter. Tutto più o meno ok. L\'unico problema è che ho aggiunto un combobox sul quale opero con il metodo Move che mi hai suggerito ma in caso di resize il programma va in blocco.\n\nForse il comando move non è supportato per le combobox ?\n\nInoltre, che funzione posso utilizzare per cambiare lo sfondo quando chiamo la funzione che crea il browse e poi per ripristinarlo uscendo dalla funzione con il pulsante Exit che ho aggiunto ?\n\nHo aggiornato il prg con le modifiche su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->\n\nGrazie\n\nMarco','',0,'','2gtndtj6',1,0,'',29,0,0),(30544,6806,6,73,0,'200.23.18.132',1177515669,1,0,1,1,1,0,'','problema con wbrowse...','estoy probando a poner una imagen en una columna, para esto uso el lSelect de la clase para saber si estoy posicionado en el registro, y me manda este error al abrir el browse\n\nNo exported method: lSelect from errorsys, line: 0\n\nmi codigo esta asi:\n\nhBmp:=LoadBitMap(GetResources(),\"Puntero\")\n@ 0,0 LISTBOX oBCos ;\n      FIELDS IF(oBCos:lSelect,hBmp,\"\"), STR((oDCos)-&gt;Codigo,4),;\n             (oDCos)-&gt;Descri ;\n      HEADER \"\",\"Codigo\", \"D E S C R I P C I O N\" ;\n      SIZES  20,90,350 ;\n      WHEN !(dbEmpty(oDCos)) OF oWndHija\n\nes la wbrowse que modifico alfredo arteaga para poner el puntero,\ngracias\npaco','',0,'','f071kd6r',1,0,'',73,0,0),(30545,6807,6,456,0,'217.127.39.57',1177517759,1,0,1,1,1,1,'','Comparar dos JPG','Hola a todos,\nse os ocurre alguna manera rapida para comparar dos graficos(JPG,BMP, da igual), y detectar diferencias de un a otro.','',0,'','2k6xjpml',1,0,'',456,0,0),(30546,6805,7,2,0,'87.218.146.74',1177520537,1,0,1,1,1,1,'','','Elías,\n\nPodrías usar File( cDirRemoto + \"\\\" + cNombreFichero ). Si existe dicho fichero, entonces existe el directorio remoto.','',0,'','1wi2ye3z',1,0,'',2,0,0),(30547,6773,3,2,0,'87.218.146.74',1177521311,1,0,1,1,1,1,'','','Here we use FWPPC. Use FWH instead:\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img352&#46;imageshack&#46;us/img352/5883/uestudio1vn1&#46;png[/img:8cwxao9v][/url:8cwxao9v]\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img482&#46;imageshack&#46;us/img482/5296/uestudio2dk8&#46;png[/img:8cwxao9v][/url:8cwxao9v]\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img482&#46;imageshack&#46;us/img482/9103/uestudio3qh7&#46;png[/img:8cwxao9v][/url:8cwxao9v]\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img352&#46;imageshack&#46;us/img352/200/uestudio4ua5&#46;png[/img:8cwxao9v][/url:8cwxao9v]\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img482&#46;imageshack&#46;us/img482/9171/uestudio5ym3&#46;png[/img:8cwxao9v][/url:8cwxao9v]\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img352&#46;imageshack&#46;us/img352/278/uestudio6rf0&#46;png[/img:8cwxao9v][/url:8cwxao9v]\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img482&#46;imageshack&#46;us/img482/6035/uestudio7dm5&#46;png[/img:8cwxao9v][/url:8cwxao9v]\n\n[url=http&#58;//imageshack&#46;us:8cwxao9v][img:8cwxao9v]http&#58;//img352&#46;imageshack&#46;us/img352/160/uestudio8ru4&#46;png[/img:8cwxao9v][/url:8cwxao9v]','',0,'GA==','8cwxao9v',1,0,'',2,0,0),(30548,6807,6,2,0,'87.218.146.74',1177521852,1,0,1,1,1,1,'','','Biel,\n\nSi los gráficos estan en formatos diferentes, la solución sería seleccionar cada uno en un hDC distinto y comparar pixel a pixel sus colores\n\nSi lo que deseas es sólo comparar dos ficheros con igual extension, podrías calcular el CRC de cada uno de ellos y comparar los CRCs.','',0,'GA==','628pfg3w',1,0,'',2,0,0),(30549,6805,7,720,0,'80.36.244.134',1177522012,1,0,1,1,1,0,'','','Antonio, la opción que me propones no es del todo correcta para controlar si existe un directorio, puesto que puede ser que el archivo no esté pero en cambio si exista el directorio....\n\nEl problema viene porque debo controlar si el directorio que el usuario deja como parametro de descarga es correcto. Por tanto no puedo preguntar por ningun fichero para saber si existe o no el directorio...\n\nNo existe ninguna funcion para esto que te comento??\n\nSaludos.\n\nElías Torres.','',0,'GA==','156jkeh0',1,0,'',720,0,0),(30550,6805,7,2,0,'87.218.146.74',1177522116,1,0,1,1,1,1,'','','Elías,\n\nEn ese directorio tienes permiso de escritura ?','',0,'GA==','1gltw4rg',1,0,'',2,0,0),(30551,6485,6,2,0,'87.218.146.74',1177522310,1,0,1,1,1,1,'','','Puedes descargarte el programa DosBox que es libre y en el podrías ejecutar FoxPro para MsDos ó el propio DBU de Clipper','',0,'GA==','3qimk14n',1,0,'',2,0,0),(30552,6805,7,720,0,'80.36.244.134',1177522463,1,0,1,1,1,0,'','','Antonio, que diferencia hay??\n\nLo digo porque la ruta de descarga en principio debe ser fija, pero si por cualquier casualidad el usuario la cambia debo controlar si el directorio que el pone existe, porque sino controlo eso la aplicación falla generando un error, y claro, eso no puede ocurrir <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n\nSaludos\n\nElías Torres.','',0,'GA==','2eumkt9e',1,0,'',720,0,0),(30553,6806,6,2,0,'87.218.146.74',1177522469,1,0,1,1,1,1,'','','Paco,\n\nPrueba a hacerlo en dos pasos:\n\n@ 0,0 LISTBOX oBCos ; \nFIELDS \"\", \"\", \"\" ; \nHEADER \"\",\"Codigo\", \"D E S C R I P C I O N\" ; \nSIZES 20,90,350 ; \nWHEN !(dbEmpty(oDCos)) OF oWndHija \n\noBCos:bLine := { || { IF(oBCos:lSelect,hBmp,\"\"), STR((oDCos)-&gt;Codigo,4), (oDCos)-&gt;Descri } }','',0,'GA==','1bb0pz2n',1,0,'',2,0,0),(30554,6806,6,73,0,'200.23.18.132',1177523117,1,0,1,1,1,0,'','','gracias antonio, funciono, pero este comportamiento a que se puede deber?\nsalu2\npaco','',0,'GA==','28p7q772',1,0,'',73,0,0),(30555,6808,1,981,0,'70.55.103.87',1177523491,1,0,1,1,1,0,'','error win 2000','Tanks Antonio with exetype.\n\nWhen l try it works, but the day after when i return to excute my application he give me\na dbrelation (0) internal error 5333. in twindow function wndcreateerror form function create(). What that append? Tanks for your anwsers','',0,'GA==','3j02tkae',1,0,'',981,0,0),(30556,6806,6,2,0,'87.218.146.74',1177524684,1,0,1,1,1,1,'','','Paco,\n\nAl hacerlo en una sola línea se genera primero el codeblock para bLine y en ese momento oBCos es aún nil. \n\nDespués de la primera línea, oBCos ya no es nil y por eso el codeblock toma su valor correcto: el objeto browse','',0,'GA==','bc0eomho',1,0,'',2,0,0),(30557,6808,1,2,0,'87.218.146.74',1177524902,1,0,1,1,1,1,'','','What Clipper version are you using ?\n\nWe recommend Clipper 5.3 b','',0,'GA==','1y4h6hgp',1,0,'',2,0,0),(30558,6796,20,6,0,'87.1.232.242',1177525660,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:3f87z12w]Forse il comando move non è supportato per le combobox ?[/quote:3f87z12w]\n\nIl metodo Move() è perfettamente supportato dai Combobox.\n\n[quote=&quot;Marco Turco&quot;:3f87z12w]Inoltre, che funzione posso utilizzare per cambiare lo sfondo quando chiamo la funzione che crea il browse e poi per ripristinarlo uscendo dalla funzione con il pulsante Exit che ho aggiunto ?[/quote:3f87z12w]\n\nIl metodo SetColor()\n\nEMG','',0,'gA==','3f87z12w',1,0,'',6,0,0),(30559,6805,7,2,0,'87.218.146.74',1177526295,1,0,1,1,1,1,'','','Elías,\n\nUsa esta función:\n[code:20fj1se6]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; lCheckDir&#40; &quot;\\Storage card&quot; &#41; &#41;\n\nreturn nil\n\nfunction lCheckDir&#40; cDirName &#41;\n\nreturn Len&#40; Directory&#40; cDirName, &quot;D&quot; &#41; &#41; == 1\n[/code:20fj1se6]','',0,'AIA=','20fj1se6',1,0,'',2,0,0),(30560,6791,6,492,0,'189.147.22.44',1177527296,1,0,1,1,1,1,'','','Hola Lubin\n\nSi ya convertitste la DLL a RC, abrelo con algun editor de textos, y busca la palabra Borland, es probable que por algun lugar tengas definido un control de ese tipo.\n\nSaludos','',0,'AIA=','2by2r0k4',1,0,'',492,0,0),(30561,6786,6,397,0,'201.13.201.227',1177527513,1,0,1,0,1,1,'','','Obrigado Amigo!','',0,'AIA=','cry79300',1,0,'',397,0,0),(30562,6803,3,343,0,'24.173.70.29',1177527602,1,0,1,1,1,0,'','','Here is partial code for a combobox but you can add get, say and other stuff. Notice the \"of oBar\" instead of \"of oWnd\"\n\n[code:2w68p5sj]\ncBrView &#58;= \'Default\'\naBrView &#58;= &#123; ;\n   \'Default\' , ;\n   \'Available\' , ;\n   \'Scheduled\' , ;\n   \'Dispatched\' , ;\n   \'2nd Moves\' , ;\n   \'Query Mode\' &#125;\n\n@ 7, 535 SAY \'View&#58;\'          ;\n   OF oBar                                          ;\n   SIZE 50, 20           ;\n   PIXEL                                              ;\n   UPDATE\n\n// create view selection combobox on bar\n@ 3, 570 COMBOBOX oBrView VAR cBrView           ;\n   OF oBar                                          ;\n   SIZE 100,280                                       ;\n   ITEMS aBrView                                   ;\n   PIXEL                                              ;\n   UPDATE\n\noBrView&#58;cToolTip &#58;= &quot;Select View&quot;\noBrView&#58;refresh&#40;&#41;\noBrView&#58;bChange &#58;= &#123; || ChangeMyView&#40;&#41; , TRUE &#41; &#125;\n\n[/code:2w68p5sj]','',0,'AIA=','2w68p5sj',1,0,'',343,0,0),(30563,6806,6,73,0,'200.23.18.132',1177527782,1,0,1,1,1,0,'','','ok, gracias\npaco','',0,'AIA=','52opw8gr',1,0,'',73,0,0),(30564,6726,3,303,0,'72.199.41.171',1177528707,1,0,1,1,1,0,'','','Maurilio,\n\nGood work. I like it.\n\nI have made a few changes (see comments in code).\n\nAutoFill (or autocomplete) is somewhat of a Pandora\'s box. If you look at Outlook Express\'s \"To\" field and IE\'s \"Address\" field you will see two completely different methods of autocomplete. OE uses some kind of probability rather than the first alpha match. I have several Davids in my address book, but the one I use the most is near the end of the alpha sort of Davids. However, all I have to do is type \"D\" and his name shows up.\n\nIn contrast, IE has a drop-down list that is alpha order--not listed by probability.\n\nThings get even more complicated with multi-user applications. Do we store all items entered by all users or do we separate out items by user? Each circumstance may require a different solution.\n\nDo we use arrays, or direct database lookups? Arrays are good if they are small, but what about large arrays of say 10,000 items? Do we read them from a DBF each time the dialog is opened, or store them in a static array? A static would be faster but will use up a lot of memory, so perhaps a direct database lookup would be better with large lists.\n\nDo we do alpha lookups or probability lookups? Again, each situation may require a different solution.\n\nHow do we handle adding new items and when? Do we add all new items entered by any user? Only the most used?\n\nSo, there is no simple answer to providing autocomplete functionality. But autocomplete solutions are very helpful to the user so they are certainly worth working on.\n\nJames\n\n[code:3b3z2hjr]// TAutoGet&#46;prg\n// Auto complete text in get features\n// By&#58; Maurilio Viana, mouri_ryo@hotmail&#46;com\n// Date&#58; 4/25/2007\n// New features, bug fixes and enhancements are welcome &#58;-&#41;\n// Please, let me now when you include new features, bug fixes etc in this class\n//\n// ToDo&#58; Show drop down window with possible options when typing\n//\n\n/* Revisions 4/25/2007 10&#58;49AM by James Bott\nMethod AutoFill&#58; nKey was not defined as a LOCAL&#46; Fixed&#46;\nMethod AutoFill&#58; nLength was mispelled &#40;as nLenght&#41;&#46; Fixed&#46;\nMethod AutoFill&#58; &#58;&#58;Cargo changed to &#58;&#58;lAuto &#40;see reason below&#41;\nMethod AutoFill&#58; Changed to using vkey&#46;ch manifest constants instead of numbers&#46;\nMethod Redefine&#58; Was passing aItems to the parent method &#40;not needed&#41;&#46;\nMethod LostFocus&#58; Added this method&#46;\nMethos New&#40;&#41; and Redefine&#40;&#41;&#46; Was passing bChanged, and then &#58;&#58;bChange to parent&#46; Fixed&#46;\n\nIt is not a good idea to use &#58;&#58;Cargo, &#58;&#58;bPostKey, or &#58;&#58;bLostFocus in the class since these\nthen cannot be used by the programmer&#46; It would be better to subclass the needed methods and add\nwhatever functionality needed&#46; So, &#58;&#58;Cargo and &#58;&#58;bLostFocus were eliminated&#46;\n\nUnfortuneately, not using &#58;&#58;bPostKey is somewhat of a challenge&#46; We can subclass KeyDown&#40;&#41; and\nKeyChar&#40;&#41; but some of each method will have to be copied into the new methods and thus if there\nare any changes to these sections of code in future versions of TGET, then this method in\nTAutoGet will have to be updated also&#46;\n\nBug?&#58; If the items in &#58;&#58;aArray are in proper case, e&#46;g&#46; &quot;Mauro,&quot; they are automatically converted\nto proper case when autofilled, however, if you backspace they are converted to all lower case&#46;\n\n*/\n\n#include &quot;fivewin&#46;ch&quot;\n\n//---------------------------------------------------------------------------//\n\nCLASS TAutoGet FROM TGet\n   DATA aItems AS ARRAY\n   DATA lAuto AS LOGICAL\n\n   METHOD New&#40; nRow    , nCol    , bSetGet  , oWnd     , nWidth   , nHeight,;\n               cPict   , bValid  , nClrFore , nClrBack , oFont    , lDesign,;\n               oCursor , lPixel  , cMsg     , lUpdate  , bWhen    , lCenter,;\n               lRight  , bChanged, lReadOnly, lPassword, lNoBorder, nHelpID,;\n               lSpinner, bUp     , bDown    , bMin     , bMax     , aItems  &#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nID     , bSetGet , oWnd     , nHelpId , cPict, bValid ,;\n                    nClrFore, nClrBack, oFont    , oCursor , cMsg , lUpdate,;\n                    bWhen   , bChanged, lReadOnly, lSpinner, bUp  , bDown  ,;\n                    bMin    , bMax, aItems &#41; CONSTRUCTOR\n   METHOD SetItems&#40; aItems &#41;\n   METHOD AutoFill&#40;&#41;\n   METHOD LostFocus&#40; hWndGetFocus &#41; inline &#58;&#58;SetPos&#40;1&#41;, &#58;&#58;lAuto &#58;= Nil, &#58;&#58;super&#58;LostFocus&#40; hWndGetFocus &#41;\nEND CLASS\n\n//---------------------------------------------------------------------------//\n\nMETHOD New&#40;nRow     , nCol     , bSetGet , oWnd    , nWidth , nHeight , cPict    ,;\n           bValid   , nClrFore , nClrBack, oFont   , lDesign, oCursor , lPixel   ,;\n           cMsg     , lUpdate  , bWhen   , lCenter , lRight , bChanged, lReadOnly,;\n           lPassword, lNoBorder, nHelpId , lSpinner, bUp    , bDown   , bMin     ,;\n           bMax     , aItems&#41; CLASS TAutoGet\n   local nLen, i\n\n   Super&#58;New&#40;nRow   , nCol    , bSetGet  , oWnd     , nWidth   , nHeight,;\n           cPict  , bValid  , nClrFore , nClrBack , oFont    , lDesign,;\n           oCursor, lPixel  , cMsg     , lUpdate  , bWhen    , lCenter,;\n           lRight , bChanged, lReadOnly, lPassword, lNoBorder, nHelpId,;\n           lSpinner, bUp    , bDown    , bMin     , bMax &#41;\n\n   if&#40;aItems == Nil, aItems &#58;= &#123;&#125;, &#41;\n\n   &#58;&#58;aItems &#58;= aItems\n\n   &#58;&#58;bPostKey &#58;= &#123;|oGet, cBuffer| &#58;&#58;AutoFill&#40;&#41; &#125;\n\nreturn&#40; Self &#41;\n\n//---------------------------------------------------------------------------//\n\nMETHOD ReDefine&#40;nID      , bSetGet , oWnd   , nHelpId, cPict  , bValid, nClrFore,;\n                nClrBack , oFont   , oCursor, cMsg   , lUpdate, bWhen , bChanged,;\n                lReadOnly, lSpinner, bUp    , bDown  , bMin   , bMax  , aItems &#41; CLASS TAutoGet\n\n   Super&#58;ReDefine&#40;nID      , bSetGet , oWnd   , nHelpId, cPict  , bValid, nClrFore ,;\n                nClrBack , oFont   , oCursor, cMsg   , lUpdate, bWhen , bChanged,;\n                lReadOnly, lSpinner, bUp    , bDown  , bMin   , bMax  &#41;\n\n\n   if&#40;aItems == Nil, aItems &#58;= &#123;&#125;, &#41;\n\n   &#58;&#58;aItems   &#58;= aItems\n\n   &#58;&#58;bPostKey &#58;= &#123;|oGet, cBuffer| &#58;&#58;AutoFill&#40;&#41; &#125;\n\nreturn&#40; Self &#41;\n\n//---------------------------------------------------------------------------//\n// Set items of AutoGet\n//---------------------------------------------------------------------------//\n\nMETHOD SetItems&#40; aItems &#41; CLASS TAutoGet\n   if&#40;aItems == Nil, aItems &#58;= &#123;&#125;, &#41;\n   &#58;&#58;aItems   &#58;= aItems\nreturn&#40; Nil &#41;\n\n//---------------------------------------------------------------------------//\n// Auto fill text when typed based on aItems\n// Return&#58; Always returns &#46;T&#46;\n//---------------------------------------------------------------------------//\n\nMETHOD AutoFill&#40;&#41; CLASS TAutoGet\n   local nPosItem   &#58;= 0                           // Text position into &#58;&#58;aItems\n   local nPosCursor &#58;= &#58;&#58;nPos                      // Current cursor position\n   local nLength    &#58;= len&#40;&#58;&#58;cText&#41;                // Text length\n   local cStartTxt  &#58;= left&#40;&#58;&#58;cText, nPosCursor-1&#41; // Start text &#40;position 1 to cursor position -1&#41;\n   local cItem      &#58;= &quot;&quot;\n   local nKey       &#58;= 0\n\n   if len&#40;&#58;&#58;aItems&#41; = 0      // We have no items to search in this GET\n      return&#40;&#46;T&#46;&#41;\n   endif\n\n   //-------------------------------------------------------------------------\n   // We use &#58;&#58;lAuto to control when we must search in &#58;&#58;aItems for typed text\n   // We must seek in &#58;&#58;aItems when GET is blank or when user clear it\n   //-------------------------------------------------------------------------\n   if valtype&#40;&#58;&#58;lAuto&#41; != &quot;L&quot; // Cargo isn\'t logical yet -&gt; GET received focus now\n      if ! empty&#40;&#58;&#58;Value&#41;     // GET isn\'t empty\n         &#58;&#58;lAuto &#58;= &#46;F&#46;       // We don\'t use autofill\n      else                    // GET is empty\n         &#58;&#58;lAuto &#58;= &#46;T&#46;       // Use autofill\n      endif\n   else                       // We are controlling if use or no autofill\n      if empty&#40;&#58;&#58;Value&#41;       // User could cleaned the GET text\n         &#58;&#58;lAuto &#58;= &#46;T&#46;       // Use autofill\n      endif\n   endif\n\n   if ! &#58;&#58;lAuto    // If don\'t control autofill\n      return&#40;&#46;t&#46;&#41;\n   endif\n\n   nKey &#58;= &#58;&#58;nLastKey\n   do case\n      case nKey == VK_TAB &#46;or&#46; ;\n         nKey == VK_RETURN &#46;or&#46; ;\n         nKey == VK_DELETE\n         &#58;&#58;Assign&#40;&#41;           // Assign typed text\n      case nKey &gt;= 32 &#46;and&#46; &lt;= 256\n         FOR EACH cItem IN &#58;&#58;aItems\n            nPosItem += 1\n            if ToUpper&#40; cItem &#41; = ToUpper&#40;cStartTxt&#41;\n               nLength &#58;= len&#40; rtrim&#40; cItem &#41; &#41;\n               cItem   += space&#40; nLength - len&#40;cItem&#41; &#41;\n               &#58;&#58;SetText&#40; cItem &#41;\n               &#58;&#58;SetSel&#40; nPosCursor -1, nLength&#41; // Select found text\n               return&#40;&#46;t&#46;&#41;\n            endif\n         NEXT\n         &#58;&#58;HideSel&#40;&#41;   // Text not found -&gt; Undo selected text\n   endcase\nreturn&#40; &#46;T&#46; &#41;\n\n//---------------------------------------------------------------------------//\n// Convert latin characters to ANSI upper case\n// &#40;for some reason AnsiUpper causes a GPF with Commercial xHB&#41;\n//---------------------------------------------------------------------------//\n\nSTATIC function ToUpper&#40; cString &#41;\n   cString &#58;= upper&#40; cString &#41;\n   cString &#58;= strtran&#40;strtran&#40;strtran&#40;strtran&#40;cString,&quot;á&quot;,&quot;Á&quot;&#41;,&quot;à&quot;,&quot;À&quot;&#41;,&quot;ã&quot;,&quot;Ã&quot;&#41;,&quot;â&quot;,&quot;Â&quot;&#41;\n   cString &#58;= strtran&#40;strtran&#40;cString,&quot;é&quot;,&quot;É&quot;&#41;,&quot;ê&quot;,&quot;Ê&quot;&#41;\n   cString &#58;= strtran&#40;cString,&quot;í&quot;,&quot;Í&quot;&#41;\n   cString &#58;= strtran&#40;strtran&#40;strtran&#40;cString,&quot;ó&quot;,&quot;Ó&quot;&#41;,&quot;õ&quot;,&quot;Õ&quot;&#41;,&quot;ô&quot;,&quot;Ô&quot;&#41;\n   cString &#58;= strtran&#40;strtran&#40;strtran&#40;cString,&quot;ú&quot;,&quot;Ú&quot;&#41;,&quot;ñ&quot;,&quot;Ñ&quot;&#41;,&quot;ç&quot;,&quot;Ç&quot;&#41;\nreturn&#40; cString &#41;\n\n//---------------------------------------------------------------------------//\n\n// --- EoF ---[/code:3b3z2hjr]','',0,'AIA=','3b3z2hjr',1,0,'',303,0,0),(30565,6809,6,389,0,'189.133.11.242',1177529581,1,0,1,1,1,0,'','Obtener la ultima vesion de wBrowse de Hernan..?','Hola los link para descargar wBrowse de hernan en la seccion de utiles no funcionan.. alguien es tan amable de enviarme la ultima version o revision de este control.. gracias  <!-- e --><a href=\"mailto:gabomen@yahoo.com.mx\">gabomen@yahoo.com.mx</a><!-- e -->','',0,'AIA=','1hgh5vp1',1,0,'',389,0,0),(30566,6776,6,9,0,'85.59.53.135',1177532346,1,0,1,1,1,1,'','','Antonio,\n\nHa funcionado perfectamente con INDEX .. CUSTOM y personalizando el indice con ORDKEYADD().\n\nMuchas gracias.','',0,'AIA=','2wn0qqnm',1,0,'',9,0,0),(30567,6726,3,217,0,'200.159.120.34',1177533458,1,0,1,1,1,0,'','','Thanks a lot, James!!!\nVery good suggestions and fixes!\n\nAbout&#058;\n&gt;&gt;Bug?: If the items in ::aArray are in proper case, e.g. \"Mauro,\" they are &gt;&gt;automatically converted\n&gt;&gt;to proper case when autofilled, however, if you backspace they are &gt;&gt;converted to all lower case.\n\nThe true is that I don\'t know what do in this case... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nBest regards and thanks again!!!\nMaurilio','',0,'AIA=','1z99zp23',1,0,'',217,0,0),(30568,6809,6,2,0,'87.218.146.74',1177534806,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27920493/TWBrowse_Hernan.zip.html\">http://rapidshare.com/files/27920493/TW ... n.zip.html</a><!-- m -->','',0,'AIA=','1b4ogath',1,0,'',2,0,0),(30569,2502,17,2,0,'87.218.146.74',1177534839,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27920493/TWBrowse_Hernan.zip.html\">http://rapidshare.com/files/27920493/TW ... n.zip.html</a><!-- m -->','',0,'AIA=','1hmjkdl6',1,0,'',2,0,0),(30570,6791,6,348,0,'200.121.233.175',1177537224,1,0,1,1,1,0,'','','Hola Raymundo, \nYa le di una verificada pero no existe ninguna definicion con BORLAND\nvere hacerle un seguimiento usando un DLL  pequeño, pues el que tengo tiene muchos dialogos, para detectar el error, \n\nGracias, por el aliento ...\n\nLubin\n\n\n[quote=&quot;Raymundo Islas M.&quot;:1zsrkakd]Hola Lubin\n\nSi ya convertitste la DLL a RC, abrelo con algun editor de textos, y busca la palabra Borland, es probable que por algun lugar tengas definido un control de ese tipo.\n\nSaludos[/quote:1zsrkakd]','',0,'gA==','1zsrkakd',1,0,'',348,0,0),(30573,6812,6,171,0,'71.232.193.197',1177542938,1,0,1,1,1,0,'','Clase tGraph del Alfredo Arteaga','Estoy aprendendiendo a usar la clase tGraph de Alfredo Arteaga en ambiente xHarbour + FWH. \n\nTodo esta muy bien con excepcion del  metodo oGraph:Save2BMP(); este solo me graba un cuadro pequeño blanco con una x en el medio.\n\nQuizas necesito algun DLL o la clase Printer modificada?\n\nAlfredo o algun compañero del foro que me pueda orientar?\n\nSaludos,\n\ngeorge','',0,'gA==','28nmgsxe',1,0,'',171,0,0),(30574,6765,3,694,0,'200.189.112.21',1177545889,1,0,1,1,1,1,'','','THANKS ROSSINE, YOU IS SHOW !!!\n\n\nAOKISANTOS','',0,'gA==','1nagg2hd',1,0,'',694,0,0),(30575,6732,3,694,0,'200.189.112.21',1177545925,1,0,1,1,1,1,'','','RESOLVIDO! MUITO OBRIGADO ROSSINE!\n\n\nAOKISANTOS','',0,'gA==','argc0iic',1,0,'',694,0,0),(30576,6747,6,694,0,'200.189.112.21',1177546031,1,0,1,1,1,1,'','','MUITO OBRIGADO ROSSINE, VOCÊ É SHOW DE BOLA...PRATICAMENTE TODOS OS BUGS FORAM SOLUCIONADOS...\n\n\nRossine, vc é d+ !\n\nAokisantos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','111wfis4',1,0,'',694,0,0),(30577,2502,17,582,0,'190.31.7.177',1177561264,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:ehog2doq]http://rapidshare.com/files/27920493/TWBrowse_Hernan.zip.html[/quote:ehog2doq]\n\nAntonio, como se baja ?????\n\nEl Loco =&gt;))','',0,'gA==','ehog2doq',1,0,'',582,0,0),(30578,6807,6,456,0,'217.127.39.57',1177569857,1,0,1,1,1,1,'','','Hola Antonio,\n   los graficos son con el mismo formato, lo del CRC lo habia estado pensando como una posibilidad, pero quizas sea mas interesante el comparar pixel a pixel, pues así podria tener un porcentaje de smilitud y no solo igual o diferente. \n\n    Estoy algo perdido con el tema, como podria hacer una lectura pixel a pixel, comparando el color.','',0,'gA==','2fow0qxd',1,0,'',456,0,0),(30579,6803,3,247,0,'193.92.131.194',1177570282,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:2fre0bys]Here is partial code for a combobox but you can add get, say and other stuff. Notice the \"of oBar\" instead of \"of oWnd\"\n\n[code:2fre0bys]\ncBrView &#58;= \'Default\'\naBrView &#58;= &#123; ;\n   \'Default\' , ;\n   \'Available\' , ;\n   \'Scheduled\' , ;\n   \'Dispatched\' , ;\n   \'2nd Moves\' , ;\n   \'Query Mode\' &#125;\n\n@ 7, 535 SAY \'View&#58;\'          ;\n   OF oBar                                          ;\n   SIZE 50, 20           ;\n   PIXEL                                              ;\n   UPDATE\n\n// create view selection combobox on bar\n@ 3, 570 COMBOBOX oBrView VAR cBrView           ;\n   OF oBar                                          ;\n   SIZE 100,280                                       ;\n   ITEMS aBrView                                   ;\n   PIXEL                                              ;\n   UPDATE\n\noBrView&#58;cToolTip &#58;= &quot;Select View&quot;\noBrView&#58;refresh&#40;&#41;\noBrView&#58;bChange &#58;= &#123; || ChangeMyView&#40;&#41; , TRUE &#41; &#125;\n\n[/code:2fre0bys][/quote:2fre0bys]\n\nYes thank you but I need it inside the Windows Taskbar\n\nThank you \nA.S.K','',0,'gIA=','2fre0bys',1,0,'',247,0,0),(30580,6796,20,49,0,'213.82.134.66',1177570500,1,0,1,1,1,1,'','','comunque nel fsdi2006  allargava o restringeva tab,browse,splitter,menu e quantaltro era nella dialog ma c\'erano degli errori iniziali\n\nil problema era che non funzionava bene quando si andava a restringere il tutto a causa di un metodo che non trovava nella classe dialog poi io ho aggiunto questo metodo, probabilmente c\'è ma è con un altro nome \n\nCaro Marco, Quando torno a casa ti riporto il codice ...','',0,'gIA=','1djdq38c',1,0,'',49,0,0),(30581,6796,20,49,0,'213.82.134.66',1177570878,1,0,1,1,1,1,'','','[code:19wmx8va]\nFunction ResizeWndMain&#40;&#41;\n   local aClient\n   if oApp&#40;&#41;&#58;oDlg != NIL\n      aClient &#58;= GetClientRect &#40;oApp&#40;&#41;&#58;oWndMain&#58;hWnd &#41;\n      oApp&#40;&#41;&#58;oDlg&#58;SetSize&#40; aClient&#91;4&#93;, aClient&#91;3&#93; - oApp&#40;&#41;&#58;oWndMain&#58;oBar&#58;nHeight - oApp&#40;&#41;&#58;oWndMain&#58;oMsgBar&#58;nHeight &#41;\n      // oApp&#40;&#41;&#58;oDlg&#58;Move&#40;oApp&#40;&#41;&#58;oDlg&#58;nYMove,&#41;\n      oApp&#40;&#41;&#58;oDlg&#58;Refresh&#40;&#41;\n      oApp&#40;&#41;&#58;oSplit&#58;nLong &#58;= oApp&#40;&#41;&#58;oDlg&#58;nHeight // aClient&#91;4&#93;\n      oApp&#40;&#41;&#58;oSplit&#58;Refresh&#40;&#41;\n      oApp&#40;&#41;&#58;oGrid&#58;SetSize&#40; aClient&#91;4&#93;-oApp&#40;&#41;&#58;oGrid&#58;nLeft, oApp&#40;&#41;&#58;oDlg&#58;nHeight - 26 &#41;\n      oApp&#40;&#41;&#58;oGrid&#58;Refresh&#40;&#41;\n      oApp&#40;&#41;&#58;oTab&#58;nTop &#58;= oApp&#40;&#41;&#58;oDlg&#58;nHeight - 26\n      oApp&#40;&#41;&#58;oTab&#58;Refresh&#40;&#41;\n      oApp&#40;&#41;&#58;oWndMain&#58;oMsgBar&#58;Refresh&#40;&#41;\n      // SysRefresh&#40;&#41;\n   endif\nreturn NIL[/code:19wmx8va]\n\n\nc\'è una finestra principale  e dentro c\'è una dialog particolare  con a sinistra la classe vtaskbar ( menu)\n\nsolo questa parte cioè con la vtaskbar non sono riuscito a rimpicciolire mentre gli  altri controlli sono a posto','',0,'AIA=','19wmx8va',1,0,'',49,0,0),(30582,6796,20,49,0,'213.82.134.66',1177570950,1,0,1,1,1,1,'','','oops il comando era \n\n[code:2eos3he2]\n &#58;&#58;oWndMain&#58;bResized &#58;= &#123;|| ResizeWndMain&#40;&#41; &#125;\n[/code:2eos3he2]\n\nscusate!','',0,'AIA=','2eos3he2',1,0,'',49,0,0),(30583,6813,3,6,0,'87.6.210.56',1177571054,1,0,1,1,1,1,'','FWH and latest xHarbour from CVS','PCODE version is changed in latest xHarbour from CVS but FWH seems to work fine after recompiling all its PRG source code.\n\nEMG','',0,'AIA=','3llg351h',1,0,'',6,0,0),(30584,2502,17,2,0,'87.218.146.74',1177574001,1,0,1,1,1,1,'','','Pulsa en el botón que pone \"free\" y sigue las indicaciones','',0,'AIA=','3rjllf6c',1,0,'',2,0,0),(30585,6807,6,2,0,'87.218.146.74',1177574462,1,0,1,1,1,1,'','','Biel,\n[code:okf23jqn]\nlocal hBmp1 &#58;= ReadBitmap&#40; 0, cBmpFile1 &#41; \nlocal hBmp2 &#58;= ReadBitmap&#40; 0, cBmpFile2 &#41;\nlocal hDC &#58;= CreateDC&#40; &quot;DISPLAY&quot;,0,0,0 &#41; \nlocal hDCMem1 &#58;= CreateCompatibleDC&#40; hDC &#41; \nlocal hDCMem2 &#58;= CreateCompatibleDC&#40; hDC &#41; \nlocal hOldBmp1 &#58;= SelectObject&#40; hDCMem1, hBmp1 &#41; \nlocal hOldBmp2 &#58;= SelectObject&#40; hDCMem2, hBmp2 &#41; \nlocal nWBmp1 &#58;= nBmpWidth&#40; hBmp1 &#41; \nlocal nHBmp1 &#58;= nBmpHeight&#40; hBmp1 &#41;\nlocal nWBmp2 &#58;= nBmpWidth&#40; hBmp2 &#41; \nlocal nHBmp2 &#58;= nBmpHeight&#40; hBmp2 &#41;\n\nDeleteDC&#40; hDC &#41; \n\n// Aqui comparas los pixeles\nfor n = 1 to nHBmp1\n   for m = 1 to nHBmp1\n      if GetPixel&#40; hDCMem1, n, m &#41; != GetPixel&#40; hDCMem2, n, m &#41;\n         MsgInfo&#40; &quot;son distintos&quot; &#41;\n      endif\n   next\nnext\n\nSelectObject&#40; hDCMem1, hOldBmp1 &#41; \nDeleteDC&#40; hDCMem1 &#41;\nSelectObject&#40; hDCMem2, hOldBmp2 &#41; \nDeleteDC&#40; hDCMem2 &#41;\n[/code:okf23jqn]\nLo suyo sería pasar este código a C para que vaya más rápido','',0,'AIA=','okf23jqn',1,0,'',2,0,0),(30586,6814,3,2,0,'87.218.146.74',1177575887,1,0,1,1,1,1,'','New AdoRDD (free)','We are proud to announce the availability of an early release of the ADORDD for Harbour and xHarbour. This RDD is planned to be included in the Harbour CVS so we welcome all ADO users to start testing it and colaborating in its development.\n\nActually this code is already working:\n\nREQUEST ADORDD\n\nFUNCTION Main()\n\n   USE test.mdb VIA &quot;ADORDD&quot;\n   \n   BROWSE()\n   \n   USE\n   \nRETURN nil\n\nIt has already been tested with Access and MySQL, but it should work with any DataBase engine that supports ADO.\n\nbest regards,\n\nViaOpen <!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com\">http://www.viaopen.com</a><!-- m -->\nFernando Mancera','a32d55166e5ddadc170153bd4a766c5e',0,'','aw2g54fm',1,1178191200,'',2,1,0),(142750,26050,3,2,0,'176.32.53.57',1365531650,1,0,1,1,1,1,'','Re: Using Access on a lan','Rick,\n\nmany thanks for your advice <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nI have not used Access with ADO except when I developed the AdoRdd and did some simple tests with Access:\n<!-- l --><a class=\"postlink-local\" href=\"http://forums.fivetechsupport.com/viewtopic.php?p=93785#p93785\">viewtopic.php?p=93785#p93785</a><!-- l -->\n\nby that time we found that not all ADO features were available. \n\nIts good to have feedback about Access as probably is a quite common used database (?)','7d427b5b0adc4c6baf75f27fc48130ba',0,'','9f2nrh0p',1,0,'',0,0,0),(30587,6805,7,720,0,'80.36.244.134',1177576427,1,0,1,1,1,0,'','','Antonio, mil gracias, funciona a la perfección....\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','3b32e9dh',1,0,'',720,0,0),(30588,6813,3,54,0,'189.132.103.9',1177576598,1,0,1,1,1,1,'','Re: FWH and latest xHarbour from CVS','[quote=&quot;EnricoMaria&quot;:2xjcarlg]PCODE version is changed in latest xHarbour from CVS but FWH seems to work fine after recompiling all its PRG source code.\n\nEMG[/quote:2xjcarlg]\n\nEnrico,\n\nconfirmado, funciona sin problemas.\n\nAunque cuando se ejecuta la aplicación genera un trace.log\n\nse corrige en la linea siguiente:\n\n[code:2xjcarlg]/* NOTE&#58; hb_traceInit&#40;&#41; is not yet executed, but it uses s_bEmpty to not override output preceding hb_vmInit&#40;&#41;\n                  TraceLog&#40; NULL, &quot;*** WARNING! Function&#58; %s in Module&#58; %s is hidden by previously registered Module&#58; %s\\n&quot;,\n                            pSymbol-&gt;szName, szModuleName, pDynSym-&gt;pModuleSymbols ? pDynSym-&gt;pModuleSymbols-&gt;szModuleName &#58; &quot;&lt;unspecified&gt;&quot; &#41;; */\n[/code:2xjcarlg]\n\nComentando este trozo de código, ya no genera dicho archivo.\n\nsaludos','',0,'gIA=','2xjcarlg',1,0,'',54,0,0),(30589,6814,3,449,0,'212.64.224.249',1177576651,1,0,1,1,1,1,'','','Good news   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','2xb816vy',1,0,'',449,0,0),(30590,6815,6,2,0,'87.218.146.74',1177576853,1,0,1,1,1,1,'','Nuevo AdoRDD (libre)','FiveTech Software y ViaOpen <!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com\">http://www.viaopen.com</a><!-- m --> se complacen en anunciar la disponibilidad de una versión inicial de ADORDD para Harbour y xHarbour. Este RDD va a ser incluido en el CVS de Harbour por lo que damos la bienvenida a todos los usuarios de ADO para comenzar a probarlo y cooperar en su desarrollo.\n\nActualmente este código ya funciona:\n\nREQUEST ADORDD\n\nFUNCTION Main()\n\n   USE test.mdb VIA &quot;ADORDD&quot;\n   \n   BROWSE()\n   \n   USE\n   \nRETURN nil\n\nYa ha sido probado con Access y MySQL, y debe funcionar con cualquier motor de bases de datos que soporte ADO.\n\nsaludos,\n\nViaOpen <!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com\">http://www.viaopen.com</a><!-- m -->\nFernando Mancera','1cdb450c470e91961c4e305c1103e9cd',0,'','1qx1mpgh',1,1178191277,'',2,1,0),(30591,6815,6,177,0,'194.30.62.6',1177580933,1,0,1,1,1,0,'','','Antonio, Fernando-Fernando,Antonio,\n\nmuchas gracias a ambos por tan magnífica contribución.\n\nSaludos,\n\nFélix','',0,'gIA=','3oik01c8',1,0,'',177,0,0),(30592,6796,20,29,0,'88.149.161.11',1177581949,1,0,1,1,1,0,'','','Grazie Emg e Silvio. Ho risolto quasi tutti i problemi.\n\nSto cercando di creare un rettangolo blu con la scritta \"Bilancio\" ed un\'altra scritta più piccola sotto. Vorrei in pratica qualcosa tipo \"Posta elettronica\" di Outlook (vedi <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/image2.png\">www.softwarexp.co.uk/beta/image2.png</a><!-- w --> ) da inserire sopra il browse ( vedi <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/image1.png\">www.softwarexp.co.uk/beta/image1.png</a><!-- w --> ).\nChe funzione mi suggerite di usare per ottenere un risultato tipo \"Outlook\" ? \nHo provato con il semplice Say indicando le dimensioni da coprire ma non ho l\'effetto 3d e vorrei inoltre che il contorno del box blu sia definito da una linea nera come il browse. Non c\'è una funzionalità tipo \"Box\" nelle fivewin ?\n\nUn altro problema che ho è che non riesco a rendere trasparente la bitmap, in pratica mi prende uno sfondo bianco invece che azzurro.\n\nIn pratica faccio:\n\n@35,05 BITMAP oBmp FILENAME \"48CONS.BMP\" PIXEL NOBORDER OF oWnd\n\noBmp:nClrPane=nRgb(128,128,255)\noBmp:Refresh()\n\nMa il risultato è che lo sfondo appare sempre bianco come si vede da <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/image1.png\">www.softwarexp.co.uk/image1.png</a><!-- w -->\n\nQualche idea ?\n\n\nMarco','',0,'gIA=','1o1h7vi6',1,0,'',29,0,0),(30593,6816,3,32,0,'196.15.176.226',1177583511,1,0,1,1,1,0,'','Failing to embed word object','Hi,\n\nI\'m trying to embed a word object into a window, but keep getting runtime errors.\n\nIf I don\'t add xhb activex.lib, I get an error fro tactivex called from createactivex. If I do add the lib, I get a message EmbedObject failed.\n\nTrying the word.prg sample in fwh 7.01\n\nAlex','',0,'gIA=','2w9mnyf6',1,0,'',32,0,0),(30594,6815,6,785,0,'190.64.213.25',1177586047,1,0,1,1,1,0,'','','Maestro, Fernando:\n\nESPECTACULAR!!!!!\n\nMuchas gracias\nSaludos\n\nRuben Fernandez.','',0,'gIA=','jw2lu0p7',1,0,'',785,0,0),(30595,6814,3,6,0,'87.6.210.56',1177586921,1,0,1,1,1,1,'','Re: New AdoRDD (free)','Great!\n\nEMG','',0,'gIA=','35wbbgv8',1,0,'',6,0,0),(30596,6813,3,6,0,'87.6.210.56',1177586991,1,0,1,1,1,1,'','Re: FWH and latest xHarbour from CVS','Thank you. I already reported it to the xHarbour developers list.\n\nEMG','',0,'gIA=','q7fn44m4',1,0,'',6,0,0),(30597,6808,1,981,0,'70.55.103.87',1177587093,1,0,1,1,1,0,'','error win 2000 (next)','clipper 5.3 c, blinjker 4, fw 2.1','',0,'gIA=','74h49pak',1,0,'',981,0,0),(30598,6817,7,986,0,'200.162.80.159',1177587853,1,0,1,1,1,1,'','Classe HbPersistent  ( xHarbour )','Como faco para usar esta classe  HbPersistent  do xharbour no FWPPC, se alguem puder me ajudar tenho urgencia nesta classe.\n\nObrigado!','',0,'gIA=','gw3f2gw6',1,0,'',986,0,0),(30599,6808,1,981,0,'70.55.103.87',1177588099,1,0,1,1,1,0,'','error Win 2000 (n2)','When l try it with tutor08 with the option customer he give me this error\n\nerror fivewin/3 cannot create dialog box\n\ncall from  createdlgerror(0)\ncall from tdialog:activate()\ncall from browse()\ncal from customer(95)','',0,'gIA=','2yruxgv6',1,0,'',981,0,0),(30600,6814,3,247,0,'193.92.131.194',1177589022,1,0,1,1,1,0,'','Re: New AdoRDD (free)','[quote=&quot;Antonio Linares&quot;:3qd4ap2p]FiveTech Software and ViaOpen <!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com\">www.viaopen.com</a><!-- w --> are proud to announce the availability of an early release of the ADORDD for Harbour and xHarbour. This RDD is planned to be included in the Harbour CVS so we welcome all ADO users to start testing it and colaborating in its development.\n\nActually this code is already working:\n\nREQUEST ADORDD\n\nFUNCTION Main()\n\n   USE test.mdb VIA \"ADORDD\"\n   \n   BROWSE()\n   \n   USE\n   \nRETURN nil\n\nIt has already been tested with Access and MySQL, but it should work with any DataBase engine that supports ADO.\n\nbest regards,\n\nViaOpen <!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com\">www.viaopen.com</a><!-- w -->\nFernando Mancera[/quote:3qd4ap2p]\n\nHow can I use ADORDD ?What libraries do i need?\n\nThanks\nA.S.K','',0,'gA==','3qd4ap2p',1,0,'',247,0,0),(30601,6818,3,239,0,'59.40.246.66',1177590497,1,0,1,1,1,0,'','www/web connect funcion or class?','Hi,\n  I want a function/class(\"www.myside.com/down/a1.exe\",\"d:\\myapp\\tmp\",loverwrite)\nso easily support my app upgrade/download newfile from web site.\n\nThanks!\nShuming Wang','',0,'gA==','wkhikg3v',1,0,'',239,0,0),(30602,6815,6,362,0,'200.168.52.156',1177592428,1,0,1,1,1,1,'','','Mui buena Idéa!\n\nAntonio, Cuando Estará Disponible?\n\ny Cuanto a erros de CORRUPRION DETECTED?','',0,'gA==','1ip7nxj9',1,0,'',362,0,0),(30603,6817,7,2,0,'87.218.146.74',1177593655,1,0,1,1,1,1,'','','Cleber,\n\nHas probado a añadirla como un PRG más de tu aplicación y probar a compilarla ?','',0,'gA==','3ilkojkc',1,0,'',2,0,0),(30604,6755,6,1023,0,'201.92.185.18',1177594541,1,0,1,1,1,0,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Eu concegui faze funcionar, eu de vez de selecionar a tabela e depois adicionar o campo, na variavel que anotava o nome do campo já coloquei [Nome da Tabela]-&gt;[Nome do campo] com o sinal de macro, agora está funcionando, montei com mais de 4 browses na tela e funcionou.\n\nObrigado pela ajuda, flw.','',0,'','2v8z2sq1',1,0,'',1023,0,0),(30605,6814,3,137,0,'151.38.8.195',1177594639,1,0,1,1,1,0,'','','Maybe it will work with FWPPC and ADO x PocketPC?\n\nRegards,\nRoberto Parisi','',0,'','1ssceiwn',1,0,'',137,0,0),(30606,6814,3,2,0,'87.218.146.74',1177595640,1,0,1,1,1,1,'','','A.S.K.\n\nYou just need AdoRdd.lib and HbOleAut.lib if you use Harbour. For xharbour users, just AdoRdd.lib','',0,'','3qr24dcl',1,0,'',2,0,0),(30607,6814,3,2,0,'87.218.146.74',1177595673,1,0,1,1,1,1,'','','Roberto,\n\nWe have not tested it with FWPPC yet','',0,'','31x8kfl4',1,0,'',2,0,0),(30608,6814,3,247,0,'193.92.131.194',1177596626,1,0,1,1,1,0,'','Where can I find ADORDD.lib','[quote=&quot;Antonio Linares&quot;:k5ara1xu]A.S.K.\n\nYou just need AdoRdd.lib and HbOleAut.lib if you use Harbour. For xharbour users, just AdoRdd.lib[/quote:k5ara1xu]\n\nAntonio I use xharbour but I don\'t have ADORDD.LIB .Can you please tell me where I can found it?\n\nThank you in advance \nA.S.K.','',0,'gA==','k5ara1xu',1,0,'',247,0,0),(30609,6814,3,137,0,'151.38.8.195',1177596918,1,0,1,1,1,0,'','','Thx Antonio,\nI\'ll wait to see it.\n\nRegards,\nRoberto Parisi','',0,'gA==','1jy3clpy',1,0,'',137,0,0),(30610,6815,6,53,0,'189.139.22.172',1177597800,1,0,1,1,1,1,'','','Masters:\n\nE X C E L E N T E  ! aporte.\n\nMuchas gracias a ambos','',0,'gA==','3ckdni6q',1,0,'',53,0,0),(30611,6807,6,456,0,'217.127.39.57',1177597835,1,0,1,1,1,1,'','','Perfecto, gracias Antonio.\n\nEs justo lo que necesitaba, un pelin lento para lo que lo quiero, pero intentare pasarla a C , o no evaluar todos los pixels. Realmente busco similitud, y no es critico pixel arriba pixel abajo.\n\nMuchas gracias.','',0,'gA==','274iwcsu',1,0,'',456,0,0),(30612,6818,3,138,0,'189.141.67.139',1177599562,1,0,1,1,1,1,'','','TURL class has what you\'re looking for.... available in xHarbour','',0,'gA==','2cjgsitq',1,0,'',138,0,0),(30613,6815,6,215,0,'189.136.215.215',1177600142,1,0,1,1,1,1,'','Ohh','Antonio, Fernando.\nUna muy buena noticia <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n¿Funcionará con versiones antiguas de FWH o hay que hacer una actualización a la últimva versión?\n\nGracias\nFernando Leal','',0,'gA==','10oqzhah',1,0,'',215,0,0),(30614,6796,20,49,0,'213.82.134.66',1177600929,1,0,1,1,1,1,'','','ci vuole la classe di paco Vtitle oppure se vuoi farlo piu\' bello esteticamente la vtaskbar sempre di paco\n\n<!-- w --><a class=\"postlink\" href=\"http://www.canalfive.com\">www.canalfive.com</a><!-- w -->','',0,'gA==','2df571wm',1,0,'',49,0,0),(30615,6815,6,882,0,'201.0.124.238',1177601038,1,0,1,1,1,1,'','','Quando e onde estará maiores informações','',0,'gA==','3fvotomq',1,0,'',882,0,0),(30616,6812,6,73,0,'200.23.18.132',1177601481,1,0,1,1,1,0,'','','George,\nyo la uso sin probelmas, si me guarda el grafico correctamente, si gustas te envio la clase que uso.\noGraph:Save2Bmp(cFile,0)\nsalu2\npaco','',0,'gA==','3a0uvf8m',1,0,'',73,0,0),(30617,6796,20,6,0,'87.6.210.56',1177601578,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:3nc4ay6a]Sto cercando di creare un rettangolo blu con la scritta \"Bilancio\" ed un\'altra scritta più piccola sotto. Vorrei in pratica qualcosa tipo \"Posta elettronica\" di Outlook (vedi <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/image2.png\">www.softwarexp.co.uk/beta/image2.png</a><!-- w --> ) da inserire sopra il browse ( vedi <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/image1.png\">www.softwarexp.co.uk/beta/image1.png</a><!-- w --> ).\nChe funzione mi suggerite di usare per ottenere un risultato tipo \"Outlook\" ?[/quote:3nc4ay6a]\n\nNon puoi utilizzare semplicemente un bitmap?\n\n[quote=&quot;Marco Turco&quot;:3nc4ay6a]Un altro problema che ho è che non riesco a rendere trasparente la bitmap[/quote:3nc4ay6a]\n\nProva con\n\n[code:3nc4ay6a]oBmp&#58;lTransparent = &#46;T&#46;[/code:3nc4ay6a]\n\nEMG','',0,'gIA=','3nc4ay6a',1,0,'',6,0,0),(30618,6815,6,456,0,'217.127.39.57',1177603781,1,0,1,1,1,1,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Buena noticia, eso dara un impulso a la gente que no se atrevia con ADO. \nA mi me llega un poco tarde porque ya me he pegado mucho con ADO, pero seguro que mas adelante tambien le podre sacar partido.','',0,'gIA=','wfp08al1',1,0,'',456,0,0),(30619,6819,6,316,0,'213.97.245.163',1177604287,1,0,1,1,1,0,'','Pruebas con AIS','He empezado a experimentar con la conexion de internet del servidor ADS de la empresa, un ADS 7.1.\n\nSiguiendo el ejemplo de RF (uno algo antiguo pero que aún funciona) armé un pequeño programa para hacer la conexión.\n\nLo primero que me pasó fué que tengo que crear si o si el diccionario, es imprescindible para hacer la conexion con AdsConnect60(). Me llamó la atención porque eso es diferente y para acceder a tablas que accedía directamente, con AIS no puedo.\n\nEl problema que tengo es que para poder acceder a una tabla tengo que declararla en el diccionario, y en el use solo indico el nombre sin el path. Eso es diferente de como lo hace René en su código. Para mas claridad, adjunto mi código:\n\n[code:1fgt6zg2]\nANNOUNCE RDDSYS\n\nFUNCTION aisdem32&#40;&#41;\n   LOCAL oBar\n\n   SET DELETE ON\n\n   REQUEST ADS, ADSKeyCount, ADSKeyNo, OrdKeyCount, OrdKeyNo\n   RddRegister&#40;&quot;ADS&quot;,1&#41;\n   RddSetDefault&#40;&quot;ADS&quot;&#41;\n   AdsRightsCheck&#40;&#46;F&#46;&#41;\n   AdsSetServerType&#40;4&#41; //SET SERVER AIS\n   AdsSetFileType&#40;2&#41;\n\n   IF AdsConnect60&#40; &quot;\\\\pluton\\disco-d\\instalar\\inciden&#46;add&quot;, 4 , &quot;inciden&quot;, &quot;inciden&quot; &#41;\n      Alert&#40;&quot;Esta ahora conectado al Sevidor AIS de ATISA;;&quot;+;\n         &quot;You are now connected to ATISA Server&quot;,&quot;Bienvenido / Welcome&quot;&#41;\n\n   ELSE\n      Alert&#40;&quot;Se ha rechazado la conexión al servidor AIS de Atisa, por favor intente mas tarde;;&quot;+;\n         &quot;Conection to Atisa\'s AIS Server rejected, please, try again later&quot;,&quot;AIS Error&quot;&#41;\n      QUIT\n   ENDIF\n\n   AbreDbfs&#40;&#41;\n\nRETURN &#40;&#46;T&#46;&#41;\n\n\nFUNCTION AbreDbfs&#40;&#41;\n\n    // USE &quot;\\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empresas&#46;Dbf&quot; SHARED NEW Esto no funciona pero asi es como lo hace René en su ejemplo\n    //  USE &quot;W&#58;\\instalar\\LIFTPINT\\Empresas&#46;Dbf&quot; SHARED NEW esto tampoco ambos dan error 5132\n    USE &quot;Empresas&quot; SHARED NEW // esto si\n\n      browse&#40;&#41;\n\nRETURN &#40;&#46;T&#46;&#41;\n[/code:1fgt6zg2]\n\nSin embargo en el código de René la apertura se hace especificando el path:\n[code:1fgt6zg2]\nFUNCTION AbreDbfs&#40;&#41;\n      cAliCat &#58;= &quot;CATCUE&quot;\n      USE \\\\googleserver\\cursos\\adsdemo\\cibconwn\\stc\\CATCUE&#46;cat SHARED NEW ALIAS &#40;cAliCat&#41;\n      &#40;cAliCat&#41;-&gt;&#40;AdsCacheRecords&#40;50&#41;&#41;\n      &#40;cAliCat&#41;-&gt;&#40;OrdSetFocus&#40;&quot;NUMCUENTA&quot;&#41;&#41;\n      &#40;cAliCat&#41;-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n      cAliCatPol &#58;= &quot;CAT1&quot;\n      USE \\\\googleserver\\cursos\\adsdemo\\cibconwn\\stc\\CATCUE&#46;CAT SHARED NEW ALIAS &#40;cAliCatPol&#41;\n      &#40;cAliCatPol&#41;-&gt;&#40;OrdSetFocus&#40;&quot;NUMCUENTA&quot;&#41;&#41;\n\n      cAliPol &#58;= &quot;ENEPOL&quot;\n      USE \\\\googleserver\\cursos\\adsdemo\\cibconwn\\stc\\ENEPOL&#46;POL SHARED NEW ALIAS &#40;cAliPol&#41;\n      &#40;cAliPol&#41;-&gt;&#40;OrdSetFocus&#40;&quot;POLIZA&quot;&#41;&#41;        // seleccion del indice / index selection\n      &#40;cAliPol&#41;-&gt;&#40;ADSCACHERECORDS&#40;50&#41;&#41;          // lectura de registros por adelantado / record &quot;in advance&quot; reading\n\n      cAliPol2 &#58;= &quot;POLENE&quot;\n      USE \\\\googleserver\\cursos\\adsdemo\\cibconwn\\stc\\POLENE&#46;POL SHARED NEW ALIAS &#40;cAliPol2&#41;\n      &#40;cAliPol2&#41;-&gt;&#40;OrdSetFocus&#40;&quot;POLIZA&quot;&#41;&#41;       // seleccion del indice / index selection\n      &#40;cAliPol2&#41;-&gt;&#40;ADSCACHERECORDS&#40;50&#41; &#41;        // idem\n      &#40;cAliPol2&#41;-&gt;&#40;QuickScope&#40;&#40;cAliPol&#41;-&gt;tipopoli2+STR&#40;&#40;cAlipol&#41;-&gt;numpoli2,4&#41;&#41;&#41; // Filtro sobre el detalle en base al maestro / Detail filtering based on the master\n      &#40;cAliPol2&#41;-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n      SET RELATION TO numcta+numsubcta+numssubcta+numauxil INTO &#40;cAliCatPol&#41;\nRETURN &#40;&#46;T&#46;&#41;\n\n[/code:1fgt6zg2]\n\nLo que se me complica es que tengo que crear algunas dbfs cuyo nombre cambia segun diversos parámetros como la fecha y cosas por el estilo, y con el diccionario no se me ocurre como manejarlo.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','1fgt6zg2',1,0,'',316,0,0),(30620,6819,6,36,0,'200.113.56.235',1177605265,1,0,1,1,1,0,'','','Carlos\n\nDebes tener en cuenta que ADS tambien utiliza el archivo ADS.INI\n[b:2ipk4me6]\nADS.INI[/b:2ipk4me6]\n[code:2ipk4me6]&#91;SETTINGS&#93;\n\nDEFAULT_PROTOCOL = 1\n\n\n&#91;SERVIDOR&#93; //AQUI VA EL NOMBRE DEL SERVIDOR\n\nINTERNET_PORT=2000\nINTERNET_IP=xx&#46;xx&#46;xx&#46;xx\n\nLAN_IP=xx&#46;xx&#46;xx&#46;xx\nLAN_PORT=6262\n\n[/code:2ipk4me6]\n\ncuando abras una tabla ponle solo el noMbre\n\nuse clientes new\n\n\nEspero que te sirva\nSaludos\nPatricio','',0,'QIA=','2ipk4me6',1,0,'',36,0,0),(30621,6819,6,316,0,'213.97.245.163',1177606014,1,0,0,1,1,0,'','','Patricio,\n\nGracias por la respuesta.\n\nSi, eso está bien y de hecho ya está funcionando. El punto es que solo puedo abrir las dbfs usando el alias que definí en el diccionario de datos, pero no especificando el path en el servidor tal como lo hace René.\n\nEsto falla:\nUSE \"\\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empresas.Dbf\" SHARED NEW\n\nda error ADS 5132 \n\nEsto funciona bien\n\nUSE \"Empresas.Dbf\" SHARED NEW\n\nTodo usando AIS.\n\nSabes a que se puede deber?\n\nUN saludo y gracias por responder,\n\nCarlos.','',0,'QIA=','3fibjjg2',1,0,'',316,0,0),(30622,6807,6,169,0,'200.206.142.134',1177607355,1,0,1,1,1,0,'','','Hi.\n\nIf you need to compare two JPG files, try this:\n\nif HB_MD5File(cFile1) == HB_MD5File(cFile2)\n   ? \"equal\"\nendif\n\n\nToninho.','',0,'QIA=','2mv7dphn',1,0,'',169,0,0),(30623,6814,3,2,0,'87.218.146.74',1177608624,1,0,1,1,1,1,'','','A.S.K.,\n\nPlease keep in mind it is a work in progress and has not been uploaded to the Harbour CVS yet. Actually is just usefull for testing, not for production.\n\nHopefully today will be available for download.','',0,'QIA=','hssc6xi5',1,0,'',2,0,0),(30624,6815,6,2,0,'87.218.146.74',1177608759,1,0,1,1,1,1,'','','Biel,\n\nContamos con tu experiencia para madurar y completar el RDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nActualmente ofrece muy poquita funcionalidad, pero suficiente para usar browses y editarlos, todo sin cambiar el código de nuestras aplicaciones.','',0,'QIA=','1hqrec1o',1,0,'',2,0,0),(30625,6820,3,1034,0,'201.37.109.151',1177610093,1,0,1,1,1,1,'','TPowerPoint','Olá pessoal, \n\nAlguém sabe se já existe alguma classe para criar documentos no Power Point como a classe TWord ou a TExcel?\n\nGrato','',0,'QIA=','38iw5bc6',1,0,'',1034,0,0),(30626,6796,20,29,0,'88.149.161.11',1177610182,1,0,1,1,1,0,'','','&gt;Non puoi utilizzare semplicemente un bitmap? \n\nProvo ma temo che sgrani col cambiare della risoluzione.\n\n&gt;Prova con Code: oBmp:lTransparent = .T. \n\ngià fatto ma in questo caso assume come colore di background il nero.\n\nMarco','',0,'QIA=','2dhfiqld',1,0,'',29,0,0),(30627,6796,20,6,0,'87.6.210.56',1177610606,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:3c08t208]Provo ma temo che sgrani col cambiare della risoluzione.[/quote:3c08t208]\n\nOvviamente parlavo solo del colore sfumato. Quello non sgrana. Il testo lo puoi aggiungere durante il paint.\n\n[quote=&quot;Marco Turco&quot;:3c08t208]già fatto ma in questo caso assume come colore di background il nero.[/quote:3c08t208]\n\nOvviamente non è così, avrai fatto qualche errore solo che senza un esempio minimale che lo mostri non posso saperlo.\n\nEMG','',0,'gA==','3c08t208',1,0,'',6,0,0),(30628,6820,3,1034,0,'201.37.109.151',1177612184,1,0,1,1,1,1,'','TPowerPoint','Hi, \n\ndoes anybody know if already exists a class TPowerPoint like the class TWord or TExcel? \n\n\nThanks,','',0,'gA==','u0tgtu8w',1,0,'',1034,0,0),(30629,6815,6,348,0,'200.121.233.175',1177613257,1,0,1,1,1,0,'','','Que buen aporte Antonio \nello amplia bastante la vision para FWH y HArbour\n\nlo poco que pueda apoyarlos, para test..  cuenten con ello \n\nLubin\n \n\n[quote=&quot;Antonio Linares&quot;:3o31a1o6]Biel,\n\nContamos con tu experiencia para madurar y completar el RDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nActualmente ofrece muy poquita funcionalidad, pero suficiente para usar browses y editarlos, todo sin cambiar el código de nuestras aplicaciones.[/quote:3o31a1o6]','',0,'gA==','3o31a1o6',1,0,'',348,0,0),(30632,6819,6,36,0,'200.113.56.235',1177616947,1,0,1,1,1,0,'','','Carlos\n\nCuando utilizaba la version de xharbour 0.99.3 me funcionabacolocando la ruta completa donde esta dbf, luego cuando cambie de version de xharbour ya no funciono, si que tuve que colocar el nombre y para mi es mas comodo creo yo\n\nSaludos\nPatricio','',0,'gA==','gccdg2ih',1,0,'',36,0,0),(30633,6815,6,103,0,'201.8.79.31',1177617286,1,0,1,1,1,1,'','','Antonio, Fernando,\n\n    Gracias por el aporte. Yo recuerdo tambien que nuestro amigo Rochinha ha desarrollado una lib llamada HbADOX que hace la misma cosa. Quizas el podria ser un colaborador con su experiencia, no? ¿Que dices Rochinha?\n\nSaludos,','',0,'gA==','3ie2xwmv',1,0,'',103,0,0),(30634,6815,6,940,0,'189.157.84.245',1177618721,1,0,1,1,1,1,'','','Excelente !!!!!!!!!!!!\n\nlarga vida a FIVEWIN,  \n\n\nSaludos.','',0,'gA==','v23xiyfd',1,0,'',940,0,0),(30635,2501,17,2,0,'87.218.146.74',1177619433,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28090775/timprime.rar.html\">http://rapidshare.com/files/28090775/timprime.rar.html</a><!-- m -->','',0,'gA==','13xplqk6',1,0,'',2,0,0),(30636,6779,6,492,0,'189.147.22.44',1177619913,1,0,1,1,1,1,'','','Antonio :\n\nQuisiera entender por lo que comentas, que el uso del BitMap es la mas correcta para aplicar algun degrado de colores a las aplicaciones, si este es el caso :\n\n- El BitMap que dimensiones debera tener ?\n- Todos los controles automaticamente asumiran el fondo ?\n- Hay algun cuidado a tener para aplicar algun degrado ?\n\nLo pregunto, por que muero por ponerle degrados a un par de aplicaciones, y usando algunas funciones que han aportado algunos colegas de una u otra forma han surgido \"problemas\" :\n\n- Pantallas que \"parpadean\"\n- Controles que no toman el fondo\n- Controles que no aparecen\n- etc.\n\n\nSaludos','',0,'gA==','161ky36f',1,0,'',492,0,0),(30637,6812,6,171,0,'71.232.193.197',1177620523,1,0,1,1,1,0,'','','Paco,\n\nGracias por contestarme. Grabar la grafica en formato BMP, o culaquier otro formato, es lo unico que me falta para terminar esta parte de una aplicacion que estoy desarrollando.\nPaco, si no te es mucha molestia enviame por favor las clases Tgraph.prg, printer.prg, rprev.prg  y el PREV.DLL que estas usando, a <!-- e --><a href=\"mailto:georgeabinader@comcast.net\">georgeabinader@comcast.net</a><!-- e -->\n\nPuede que mi problema no sea solamente de Tgraph.prg sino con las otras clases, pues a estas ultimas les he hecho algunas modificaciones.\n\nSaludos,\n\n\nGeorge','',0,'gA==','1mrs8dt3',1,0,'',171,0,0),(30639,6819,6,138,0,'189.141.67.139',1177628746,1,0,1,1,1,1,'','','Carlos:\n\nEfectivamente, la version del ejemplo de FW que tienes esta compilada con xHarbour 0.99.5.... y las versiones anteriores tenian ese GRAVE PROBLEMA.\n\nEn realidad es un BUG del tamaño del planeta que fue corregido en el RDDADS a partir de la version 99.6.\n\nA partir de la version 99.6 y superiores, necestias el diccionario de datos y que la tabla este registrada en el diccionario.\n\nEn:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/demos/\">www.google.d2g.com/ads/demos/</a><!-- w -->\n\nhay otro ejemplo AISX... que esta compilado con la version mas reciente de xHarbour y no requiere que pongas la ruta completa','',0,'gA==','wbtb674k',1,0,'',138,0,0),(30640,6812,6,66,0,'200.127.42.126',1177631876,1,0,1,0,1,0,'','','Estimado Colega\n\nMe puedes  enviar la clase  \n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','2gjewxlx',1,0,'',66,0,0),(30641,6779,6,785,0,'190.64.206.137',1177632561,1,0,1,1,1,0,'','','Raymundo:\n\nNo soy Antonio, pero voy a decirte como lo hago y no tengo problemas.\nHago un bmp de 2 pixeles x 200 pixeles o de 200 pixeles x 2, con el Paint Shop Pro. El tamaño te cambia el degradado, horizontal o vertical. \n\nEl largo o el ancho del bmp debe ser igual o mayor al dialogo en el que lo vas a usar para que se vea bien.\n \nLo guardo como BMP, lo agrego a mi archivo .RC o .RES y luego desde\ncodigo:\nDefine Brush oBrush Resource \"nombre_del_ bmp\" (sin extension).\nDefine Dialog oDlg Resource \"Ing_Cli\" Font  oFont BRUSH oBrush Transparent\n\nDespues los say en el archivo rc o res los defino con el ID -1\nLos demas controles como se hace normalmente y listo.\n\nNo olvides al salir de ese dialogo hacer un oBrush:End()\nOtra cosa a tener en cuenta: muchos bmps incrementan bastante el tramaño de tu archivo de recursos.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','1h4uadfa',1,0,'',785,0,0),(30642,6726,3,694,0,'200.189.112.21',1177637267,1,0,1,1,1,1,'','','Maurilio, que erro é este? <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\genesis\\tautoget.prg\'...\nC:\\genesis\\tautoget.prg(138) Error E0030  Syntax error: \"parse error at \'32\'\"\nC:\\genesis\\tautoget.prg(150) Error E0017  Unclosed control structure at line 135\n2 errors\n\nNo code generated','',0,'gA==','2862620k',1,0,'',694,0,0),(30643,6726,3,159,0,'210.243.203.20',1177640824,1,0,1,1,1,0,'','','[quote=&quot;AOKISANTOS&quot;:25orjtno]Maurilio, que erro é este? <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\genesis\\tautoget.prg\'...\nC:\\genesis\\tautoget.prg(138) Error E0030  Syntax error: \"parse error at \'32\'\"\nC:\\genesis\\tautoget.prg(150) Error E0017  Unclosed control structure at line 135\n2 errors\n\nNo code generated[/quote:25orjtno]\n\nold: case nKey &gt;= 32 .and. &lt;= 256 \nchange to -&gt; case nKey &gt;= 32 .and. nKey &lt;= 256','',0,'gA==','25orjtno',1,0,'',159,0,0),(30644,3745,6,239,0,'219.134.44.227',1177642259,1,0,1,1,1,0,'','','oUrl := tURL():New(“http://www.my.com/down/a1.dll\")\nget a crash.\n\nRegards!\n\nShuming Wang','',0,'gA==','stfq03hh',1,0,'',239,0,0),(30645,6818,3,239,0,'219.134.44.227',1177642452,1,0,1,1,1,0,'','','oUrl := tURL():New(“http://www.my.com/down/a1.dll\") \nget a crash. \n\nRegards! \n\nShuming Wang','',0,'gA==','vkbaxqgh',1,0,'',239,0,0),(30646,6773,3,529,0,'200.159.199.186',1177643161,1,0,1,1,1,0,'','','Antonio, see :\n\n--------------------Configuration: teste - Debug--------------------\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nteste.c:\nError E2209 d:\\_wk\\32\\xharbour\\INCLUDE\\hbdefs.h 58: Unable to open include file \'stdarg.h\'\nError E2209 d:\\_wk\\32\\xharbour\\INCLUDE\\hbdefs.h 59: Unable to open include file \'stdio.h\'\nError E2209 d:\\_wk\\32\\xharbour\\INCLUDE\\hbdefs.h 60: Unable to open include file \'stdlib.h\'\nError E2209 d:\\_wk\\32\\xharbour\\INCLUDE\\hbdefs.h 61: Unable to open include file \'string.h\'\nError E2209 d:\\_wk\\32\\xharbour\\INCLUDE\\hbsetup.h 61: Unable to open include file \'limits.h\'\nError E2188 d:\\_wk\\32\\xharbour\\INCLUDE\\hbdefs.h 454: Expression syntax\nError E2257 d:\\_wk\\32\\xharbour\\INCLUDE\\hbdefs.h 476: , expected\nError E2139 d:\\_wk\\32\\xharbour\\INCLUDE\\hbvmpub.h 229: Declaration missing ;\nError E2451 teste.c 25: Undefined symbol \'NULL\'\nError E2141 teste.c 25: Declaration syntax error\nError E2190 teste.c 25: Unexpected }\nError E2190 teste.c 25: Unexpected }\nError E2040 teste.c 25: Declaration terminated incorrectly\nError E2190 teste.c 38: Unexpected }\nError E2190 teste.c 38: Unexpected }\nError E2109 teste.c 38: Not an allowed type in function hb_vm_SymbolInit_TESTE\n*** 16 errors in Compile ***\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'C0W32.OBJ\'\nteste.EXE - 17 error(s), 0 warning(s)','',0,'gA==','35xjsiee',1,0,'',529,0,0),(30647,6726,3,159,0,'210.243.203.20',1177645077,1,0,1,1,1,0,'','','bug fix:\n[code:30eb7oyb]\n      Case nKey &gt;= 32 &#46;And&#46; nKey &lt;= 256\n         &#58;\n         &#58;\n               &#58;&#58;SetText&#40; cItem &#41; \n               &#58;&#58;SetSel&#40; nPosCursor -1, nLength&#41; // Select found text\n               &#58;&#58;oGet&#58;Buffer = Pad&#40; cItem, Len&#40; &#58;&#58;oGet&#58;Buffer &#41;&#41; // add by&#58;ss-bbs\n               return&#40;&#46;t&#46;&#41; \n            endif \n         NEXT \n\n[/code:30eb7oyb]\n\nbug: press \'M\' -&gt; VK_RIGHT -&gt; \'S\' -&gt; \'A\' \n        data is \'M    SA\'','',0,'AIA=','30eb7oyb',1,0,'',159,0,0),(30648,6818,3,159,0,'210.243.203.20',1177645451,1,0,1,1,1,0,'','','You can try this:\n\n[code:1n1d0f2b]\n// author&#58; ssbbs\n// &#19979;&#36617;&#26356;&#26032;&#32000;&#37636;\nFunc    GetModify&#40;&#41;\nLocal   cFile   &#58;= &quot;d&#58;\\myapp\\tmp\\a1&#46;exe&quot;\n        If File&#40;cFile&#41;\n           fErase&#40;cFile&#41;\n        EndIf\n        If URLDownloadToFile&#40; 0, &quot;www&#46;myside&#46;com/down/a1&#46;exe&quot;, cFile, 0, 0 &#41; == 0\n           msgInfo&#40; &quot;&#27284;&#26696;&#21462;&#22238;&#25104;&#21151;&quot;, &quot;OK&quot; &#41;\n        Else\n           MsgStop&#40; &quot;&#20462;&#25913;&#32000;&#37636;&#27284;&#28961;&#27861;&#35712;&#21462;&#65281;&quot;, &quot;&#35686;&#21578;&#65281;&quot; &#41;\n        EndIf\nReturn  NIL\nDLL32   FUNCTION URLDownloadToFile&#40;pCaller AS LONG, \n                                                         szURL AS STRING, \n                                                         szFileName AS STRING,\n                                                         dwReserved AS LONG,\n                                                         lpfnCB AS LONG&#41;;\n        AS LONG PASCAL;\n        FROM &quot;URLDownloadToFileA&quot;;\n        LIB &quot;urlmon&quot;\n[/code:1n1d0f2b]','',0,'AIA=','1n1d0f2b',1,0,'',159,0,0),(30649,6821,3,233,0,'218.208.250.70',1177646096,1,0,1,1,1,0,'','Minimum System Requirements','From time to time I\'ll get this sort of question from users. What would be safe values to state for apps developed using xHarbour+BCC55+FWH? Or is there actually a better technique to determine such things?\n\nTIA','',0,'AIA=','3klm7w24',1,0,'',233,0,0),(30650,6814,3,247,0,'193.92.131.194',1177655475,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3tylu68x]A.S.K.,\n\nPlease keep in mind it is a work in progress and has not been uploaded to the Harbour CVS yet. Actually is just usefull for testing, not for production.\n\nHopefully today will be available for download.[/quote:3tylu68x]\n\nThank you both\n\nA.S.K','',0,'gA==','3tylu68x',1,0,'',247,0,0),(30651,6807,6,456,0,'217.127.39.57',1177657410,1,0,1,1,1,1,'','','Hi Toninho, thanks for your help. HB_MD5File() will be helpfull to find diferences between files. \n\nBut I will use pixel by pixel compare, because I want to know not just equal, also want to know similar.','',0,'gA==','1wiwxd4i',1,0,'',456,0,0),(30652,6818,3,239,0,'202.105.98.114',1177657677,1,0,1,1,1,0,'','','Need  FREELIBRARY( hLib ) ?\n\nThanks !\nShuming Wang','',0,'gA==','1ylsh61f',1,0,'',239,0,0),(30653,6807,6,456,0,'217.127.39.57',1177658044,1,0,1,1,1,1,'','','Gracias Antonio, con un pequeño retoque ya tengo la función haciendo justo lo que queria. \n\nLa utilizo con una camara IP, y lo que hago es detecar movimiento en la camara para disparar el sistema de grabación. \n\nLe he añadido dos parametros, precision (pixels a evaluar), y similitud (para detectar diferencias entre colores). La funcion retorna el porcentaje de diferencia entre las dos imagenes.\nGracias por la ayuda.','',0,'gA==','dxv0baym',1,1179938919,'',456,1,0),(30654,6807,6,2,0,'87.218.146.56',1177659043,1,0,1,1,1,1,'','','Biel,\n\nMe alegro que te haya servido <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2uqj1iq4',1,0,'',2,0,0),(30655,6819,6,316,0,'213.97.245.163',1177659353,1,0,1,1,1,0,'','','Hola compañeros,\nGracias por las respuestas, calman la ansiedad del que se mete con cosas nuevas (nuevas para uno <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) --> )\n\nRené,\n\nque sucede cuando quiero crear una tabla desde el cliente, como es mi caso? Estan todas en ficheros separados, en directorios separados dentro de la misma base.\n\nSaludos,\n\nCarlos.','',0,'gA==','2ql7s928',1,0,'',316,0,0),(30656,6808,1,2,0,'87.218.146.56',1177659529,1,0,1,1,1,1,'','','You get that error when the resources has not been linked into the EXE\n\nPlease check that you have rc.exe or brc.exe in the path and review how build.bat use them','',0,'gA==','1usamuha',1,0,'',2,0,0),(30658,6819,6,316,0,'213.97.245.163',1177665139,1,0,1,1,1,0,'','','René,\n\nEfectivamente, con xHarbour 0.99.5 este código funciona:\n\n[code:2qul0vdw]\n    USE &quot;\\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empresas&#46;Dbf&quot; SHARED NEW\n    dBCreate&#40; &quot;\\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empre&#46;Dbf&quot;, dBStruct&#40;&#41; &#41;\n    Use &#40;&quot;\\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empre&#46;Dbf&quot;&#41; Exclusive NEW\n    dBAppend&#40;&#41;\n[/code:2qul0vdw]\n\nPara hacerlo con xHarbour 0.99.6 o 0.99.7 he intentado y he logrado crear una nueva dbf, pero no sé como hacer para abrirla:\n\n[code:2qul0vdw]\n    USE &quot;Empresas&quot; SHARED NEW\n    dBCreate&#40; &quot;\\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empre&#46;Dbf&quot;, dBStruct&#40;&#41; &#41; // Funciona con 0&#46;99&#46;6!\n    Use &#40;&quot;\\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empre&#46;Dbf&quot;&#41; Exclusive NEW \n    // Acá casca con&#58;\n    // Error ADSCDX/5132  Open error&#58; \\\\PLUTON\\DISCO-D\\instalar\\LIFTPINT\\Empre&#46;Dbf\n    dBAppend&#40;&#41;\n[/code:2qul0vdw]\n\nComo puedo hacer con las bases nuevas creadas?\n\n\nPara aclarar la consulta','',0,'AIA=','2qul0vdw',1,0,'',316,0,0),(30662,6822,6,102,0,'87.217.66.82',1177666612,1,0,1,1,1,1,'','Configuración uEstudio','Hola chicos.\nEstoy tratando de configuar uEstdio 6,2 que me he bajado y no consigo hacerlo. He creado las carpetas como ha dicho Antonio y metido los ficheros que he bajado, Pero no hay forma de verlos al crear nuevo proyecto desde pantillas.\nAdemas no se que he hech pro he perdi do barars de heramientas que tenia al principo.\nHe reinstalado el programa pero sigo igual.\nAlguien tiene un manual de como configuarlo correctamente.\n\nDe antemano muchas gracias','',0,'EA==','3sc5tigk',1,0,'',102,0,0),(30663,6823,3,49,0,'88.38.121.105',1177669764,1,0,1,1,1,1,'','Important : where is santiago perez ?','Dear Santiago,\n\nwrite to private email , pls \n\nURGENT !!!','',0,'EA==','b8c41sae',1,0,'',49,0,0),(30665,6796,20,49,0,'88.38.121.105',1177670562,1,0,1,1,1,1,'','','prova a trovare sul forum una funzione  denominata gradient \nmi ricordo che qualcuno l\'aveva fatta e paco l\'aveva anche corretta\nnaturalmente non ti posso inviare quella sua ....','',0,'EA==','3e6scps6',1,0,'',49,0,0),(30666,6796,20,49,0,'88.38.121.105',1177670636,1,0,1,1,1,1,'','','trovata :\n\n[code:zlliuvoo]\n\nvoid GradientFill&#40; HDC hDC, RECT* rct, COLORREF crStart, COLORREF crEnd, int bVertical &#41; \n    &#123; \n       int nSegments = 100; \n       COLORREF cr; \n\n       int nR      = GetRValue&#40;crStart&#41;; \n       int nG      = GetGValue&#40;crStart&#41;; \n       int nB      = GetBValue&#40;crStart&#41;; \n       int neB     = GetBValue&#40;crEnd&#41;; \n       int neG     = GetGValue&#40;crEnd&#41;; \n       int neR     = GetRValue&#40;crEnd&#41;; \n       int nDiffR  = &#40;neR - nR&#41;; \n       int nDiffG  = &#40;neG - nG&#41;; \n       int nDiffB  = &#40;neB - nB&#41;; \n       int ndR ; \n       int ndG ; \n       int ndB ; \n       int nCX ; \n       int nCY ; \n       int nTop    = rct-&gt;top; \n       int nBottom = rct-&gt;bottom; \n       int nLeft   = rct-&gt;left; \n       int nRight  = rct-&gt;right; \n       HBRUSH hBrush; \n       RECT rc; \n\n       int i; \n\n       if&#40; !bVertical &#41; \n       &#123; \n          if&#40; nSegments &gt; &#40; rct-&gt;right - rct-&gt;left &#41; &#41; \n          &#123; \n            nSegments = &#40; rct-&gt;right - rct-&gt;left &#41;; \n          &#125; \n       &#125; \n       else \n       &#123; \n          if&#40; nSegments &gt; &#40; rct-&gt;bottom - rct-&gt;top &#41; &#41; \n          &#123; \n            nSegments = &#40; rct-&gt;bottom - rct-&gt;top &#41;; \n          &#125; \n       &#125; \n\n       ndR = 256 * &#40;nDiffR&#41; / &#40;max&#40;nSegments,1&#41;&#41;; \n       ndG = 256 * &#40;nDiffG&#41; / &#40;max&#40;nSegments,1&#41;&#41;; \n       ndB = 256 * &#40;nDiffB&#41; / &#40;max&#40;nSegments,1&#41;&#41;; \n       nCX = &#40;rct-&gt;right-rct-&gt;left&#41; / max&#40;nSegments,1&#41;; \n       nCY = &#40;rct-&gt;bottom-rct-&gt;top&#41; / max&#40;nSegments,1&#41;; \n\n\n\n       nR *= 256; \n       nG *= 256; \n       nB *= 256; \n\n       for &#40;i = 0; i &lt; nSegments; i++, nR += ndR, nG += ndG, nB += ndB&#41; \n       &#123; \n\n               if&#40;i == &#40;nSegments - 1&#41;&#41; \n               &#123; \n                  nRight  = rct-&gt;right; \n                  nBottom = rct-&gt;bottom; \n               &#125; \n               else \n               &#123; \n                  nBottom = nTop + nCY; \n                  nRight = nLeft + nCX; \n               &#125; \n\n               cr = RGB&#40;nR / 256, nG / 256, nB / 256&#41;; \n\n               &#123; \n                  hBrush = CreateSolidBrush&#40; cr &#41;; \n                  if&#40; bVertical &#41; \n                  &#123; \n                     rc&#46;top    = nTop; \n                     rc&#46;left   = rct-&gt;left; \n                     rc&#46;bottom = nBottom + 1; \n                     rc&#46;right  = rct-&gt;right; \n                  &#125; \n                  else \n                  &#123; \n                     rc&#46;top    = rct-&gt;top; \n                     rc&#46;left   = nLeft; \n                     rc&#46;bottom = rct-&gt;bottom; \n                     rc&#46;right  = nRight+1; \n                  &#125; \n                  FillRect&#40;hDC, &amp;rc, hBrush &#41;; \n                  DeleteObject&#40; hBrush &#41;; \n               &#125; \n\n               nLeft = nRight; \n               nTop = nBottom; \n       &#125; \n    &#125; \n\n\n   HB_FUNC&#40; DEGRADA &#41; \n   &#123; \n           RECT rct; \n\n           rct&#46;top      = hb_parni&#40; 2, 1 &#41;; \n           rct&#46;left      = hb_parni&#40; 2, 2 &#41;; \n           rct&#46;bottom = hb_parni&#40; 2, 3 &#41;; \n           rct&#46;right    = hb_parni&#40; 2, 4 &#41;; \n\n           GradientFill&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; , &amp;rct, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parl&#40;5&#41; &#41;; \n   &#125; \n\n\nlocal lVertical &#58;= &#46;t&#46; \nDegrada&#40; hDC, &#123; 10, 10, 200, 200&#125;,  CLR_WHITE, CLR_BLUE, lVertical &#41; \n[/code:zlliuvoo]','',0,'AIA=','zlliuvoo',1,0,'',49,0,0),(30667,6773,3,2,0,'87.218.146.240',1177671461,1,0,1,1,1,1,'','','Norberto,\n\nYou are missing bcc32.cfg and ilink32.cfg at c:\\bcc55\\bin','',0,'AIA=','23rxrfh6',1,0,'',2,0,0),(30668,6822,6,2,0,'87.218.146.240',1177671533,1,0,1,1,1,1,'','','José,\n\nEn este mensaje tienes captutadas pantalla a pantalla como usar el UEStudio:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6773\">http://fivetechsoft.com/forums/viewtopic.php?t=6773</a><!-- m -->','',0,'AIA=','1g4gyj6s',1,0,'',2,0,0),(30669,6726,3,217,0,'200.159.120.34',1177672713,1,0,1,1,1,0,'','','Many thanks, ssbbs!\n\nRegards,\nMaurilio','',0,'AIA=','3snbka2f',1,0,'',217,0,0),(30670,6821,3,2,0,'87.218.146.240',1177673791,1,0,1,1,1,1,'','','If you mean for different Windows versions then you could say from Win98 on up to Windows Vista.\n\nBut if you mean related to XP or Vista only, then the answer is the own system requirements for XP or Vista, specially to CPU and memory to be used, which it is a known issue.','',0,'AIA=','1ywa3rda',1,0,'',2,0,0),(30671,6819,6,41,0,'200.105.194.235',1177675291,1,0,1,1,1,0,'','','Hola,\n\nsi las tablas que utilizaras son temporales, vigentes solo para la conexion puedes utilizar SQL, ahora si las tablas deben quedarse, puedes utilizar la funcion AdsADDTable que te a~nade una tabla existente al diccionario, pero el problema sera llevar la tabla al server donde esta el diccionario, si ya lo tienes alli entonces no habra problema.\n\nNo se si entendi tu pregunta.\n\nsaludos\n\nMarcelo','',0,'AIA=','2zqm5ghc',1,0,'',41,0,0),(30672,6815,6,104,0,'201.58.147.136',1177675916,1,0,1,1,1,0,'','','Olá Fernando,\n\nSerá possível conectar o xharbour comercial (xacc) com esta lib ?\n\nAbraços,\n\nRossine.','',0,'AIA=','2sgps26v',1,0,'',104,0,0),(30674,6824,1,86,0,'213.119.103.68',1177677113,1,0,1,1,1,1,'','Rene Pilon','Can anyone tell me what happened to Rene Pilon ?\n\nIt has been quite a while that I heard anything from him.\n\nHow can I contact him ?\n\nThank you very much in advance for any help.','',0,'AIA=','18on493i',1,0,'',86,0,0),(30675,6825,3,86,0,'213.119.103.68',1177677135,1,0,1,1,1,1,'','Rene Pilon','Can anyone tell me what happened to Rene Pilon ?\n\nIt has been quite a while that I heard anything from him.\n\nHow can I contact him ?\n\nThank you very much in advance for any help.','',0,'AIA=','3ijhsk9n',1,0,'',86,0,0),(30676,6814,3,2,0,'87.218.146.240',1177678491,1,0,1,1,1,1,'','','Using the ADORDD with FWH:\n[code:3sm6bv8d]\n#include &quot;adordd&#46;ch&quot;\n#include &quot;FiveWin&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction Main&#40;&#41;\n\n   USE test00 VIA &quot;ADORDD&quot; TABLE &quot;ACCOUNTS&quot; MYSQL ;\n      FROM &quot;www&#46;freesql&#46;org&quot; USER &quot;myuser&quot; PASSWORD &quot;mypass&quot;\n\n   Browse&#40;&#41;\n\n   USE\n\nreturn nil\n[/code:3sm6bv8d]\n[url=http&#58;//imageshack&#46;us:3sm6bv8d][img:3sm6bv8d]http&#58;//img157&#46;imageshack&#46;us/img157/8922/fwhqk1&#46;png[/img:3sm6bv8d][/url:3sm6bv8d]','',0,'GIA=','3sm6bv8d',1,0,'',2,0,0),(30677,6815,6,2,0,'87.218.146.240',1177678584,1,0,1,1,1,1,'','','Usando el ADORDD con FWH:\n[code:3nv6422j]\n#include &quot;adordd&#46;ch&quot;\n#include &quot;FiveWin&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction Main&#40;&#41;\n\n   USE test00 VIA &quot;ADORDD&quot; TABLE &quot;ACCOUNTS&quot; MYSQL ;\n      FROM &quot;www&#46;freesql&#46;org&quot; USER &quot;myuser&quot; PASSWORD &quot;mypass&quot;\n\n   Browse&#40;&#41;\n\n   USE\n\nreturn nil\n[/code:3nv6422j]\n[url=http&#58;//imageshack&#46;us:3nv6422j][img:3nv6422j]http&#58;//img157&#46;imageshack&#46;us/img157/8922/fwhqk1&#46;png[/img:3nv6422j][/url:3nv6422j]','',0,'GIA=','3nv6422j',1,0,'',2,0,0),(30678,6796,20,29,0,'88.149.161.11',1177679866,1,0,1,1,1,0,'','','&gt;già fatto ma in questo caso assume come colore di background il nero. \n\n&gt;Ovviamente non è così, avrai fatto qualche errore solo che senza un &gt;esempio minimale che lo mostri non posso saperlo. \n\nHo inserito un self-contained sample che evidenzia il problema della bitmap su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->\n\nQualche idea ?','',0,'GIA=','ydtloell',1,0,'',29,0,0),(30679,6796,20,6,0,'87.20.230.236',1177680507,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:3j3ym23a]Ho inserito un self-contained sample che evidenzia il problema della bitmap su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.zip\">www.softwarexp.co.uk/beta/test.zip</a><!-- w -->\n\nQualche idea ?[/quote:3j3ym23a]\n\nForse mi sfugge qualcosa ma io lo sfondo del bitmap non lo vedo bianco. Vuoi il mio eseguibile da provare?\n\nEMG','',0,'gA==','3j3ym23a',1,0,'',6,0,0),(30680,6826,3,705,0,'121.247.130.123',1177680743,1,0,1,1,1,0,'','Strange behavior of ESC KEY','Hi Eeverybody,\n\nThe finding problem is:\n\n1) If I press the ESC key in get field, it is behaved like Enter key. If I check with Lastkey(), the return value is 13, instead of 27. \n\n2) In normal case if I press Enter key, in any get field, the cursor moved to next get field. But if I press ESC key, the return value is 13 and active window goes off.\n\nWhat is the solution?\n\nWith regards,\nArindam','',0,'gA==','3j3gh3v0',1,0,'',705,0,0),(30681,6815,6,278,0,'164.77.219.99',1177681972,1,0,1,1,1,1,'','','GRACIAS Antonio y Fernando, por este excelente aporte y trabajo !!!!\n\nYo estoy usando ADO y esto será muy util.\n\nSaludos,\nJuan','',0,'gA==','g2zr57cf',1,0,'',278,0,0),(30682,6815,6,37,0,'190.42.87.71',1177682295,1,0,1,1,1,1,'','','EXCELENTE, esto es un gran paso adelante, aqui estamos para probar y colaborar','',0,'gA==','1h1t9hgt',1,0,'',37,0,0),(30683,6779,6,492,0,'189.147.22.44',1177682498,1,0,1,1,1,1,'','','Hola Ruben\n\nMuchas gracias por tu aportacion, voy a probarlo de la manera que me indicas.\n\nSaludos','',0,'gA==','2n7cf3fj',1,0,'',492,0,0),(30684,6815,6,37,0,'190.42.87.71',1177682907,1,0,1,1,1,1,'','','Una primera consulta, ADO necesita que se instale primero el conector ODBC de la Base de Datos que vamos a usar, es correcto ???\nSi es asi, la libreria dara algun mensaje de alerta/error cuando no se encuentre instalado el Conector ODBC ???\nGracias','',0,'gA==','3cgdm3tl',1,0,'',37,0,0),(30685,6814,3,343,0,'24.173.70.29',1177684017,1,0,1,1,1,0,'','','Could you make a version of adordd.lib compatable with xHarbour commercial?\n\nThank you','',0,'gA==','2q35xqjf',1,0,'',343,0,0),(30686,6814,3,529,0,'200.159.199.186',1177685239,1,0,1,1,1,0,'','','Hi, works with xharbour.org too?','',0,'gA==','27760cd8',1,0,'',529,0,0),(30687,6822,6,102,0,'87.217.66.82',1177685781,1,0,1,1,1,1,'','','Antonio,\nMi problema es que no consigo ver las plantillas de harbur\n\nhe creado las carpetas que dices pero no las veo\nNo tiene el editor una configuracion inicial ?\nGracias\n\n\n[quote=&quot;Antonio Linares&quot;:mn5byqxs]José,\n\nEn este mensaje tienes captutadas pantalla a pantalla como usar el UEStudio:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6773\">http://fivetechsoft.com/forums/viewtopic.php?t=6773</a><!-- m -->[/quote:mn5byqxs]','',0,'gA==','mn5byqxs',1,0,'',102,0,0),(30688,6827,6,350,0,'80.32.243.219',1177687582,1,0,1,1,1,0,'','Str a Hash SHA-1','Hola a todos.\n\n¿Alguien tiene una funcion que convierta una cadena a formato Hash SHA-1 que es la que utilizan los TPVs virtuales de los bancos ?\n\nMe refiero en formato xbase (no en C ni otros lenguajes), porque estoy haciendo una web con WinASP y ya que la tengo casi lista me falta esta función para poder realizar el pago con tarjetas de crédito.\n\nSaludos','',0,'gA==','1h3ytcr3',1,0,'',350,0,0),(30689,6819,6,138,0,'189.141.67.139',1177688868,1,0,1,1,1,1,'','','Atencion:\n\nEl AIS es una herramienta para consulta y actualizacion de bases de datos, no para creacion de las mismas con instrucciones XBase.\n\nEn el manual de ADS indica que el uso de ais debe de evitar la creacion (dbcreate()) y la comprobacion de existencia de archivos (FILE()) por una razon muy simple, tu no estas accediendo fisicamente al disco duro del servidor remoto, sino estas escribiendo a un puerto de internet, realmente no tienes acceso fisico al disco duro remoto como seria en el caso de una vpn, con AIS tu estas leyendo y escribiendo a un puerto, lo que tu leas y escribas en el puerto sera procesado por el servidor de Advantage y de ahi enviado al disco.\n\nSi deseas crear tablas temporales, por ejemplo para informes o cosas asi, que luego van a desaparecer, puedes hacerlo EN TU DISCO DURO LOCAL, eso se puede hacer usando el servidor local de ADS en combinacion con el servidor AIS, de hecho asi lo hacemos nosotros. Debes seleccionar el tipo de server 7, para que puedas utilizar tanto servidor local, como remoto, como AIS simultaneamente.\n\nSi tu quieres crear tablas en el servidor, que van a ser de uso permanente, entonces puedes hacerlo via SQL con la instruccion CREATE TABLE (obviamente tienes que estar conectado al diccionario de datos).','',0,'gA==','umxkqtqf',1,0,'',138,0,0),(30690,6814,3,95,0,'189.171.159.213',1177688965,1,0,1,1,1,0,'','','Please dont forget for Mac\n\nBest Regards\nOsvaldo Ramirez','',0,'gA==','a3v66akv',1,0,'',95,0,0),(30691,6815,6,138,0,'189.141.67.139',1177689310,1,0,1,1,1,1,'','','Enrique.ç:\n\nDepende del tipo de servidor al que te quieras conectar, los que proveen de un \"ADO PROVIDER\" nativo no necesitan que instales el ODBC, por ejemplo ADS, SQL Server y Access tienen provider nativo, solo tienes que instalar el provider en tu cliente y listo.\n\nMySQL en cambio no tiene provider nativo y la conexion tiene que hacerse por ODBC, en este caso tienes que instalar el controlador MyODBC 3.51 y trabajar ado atravez de ODBC.','',0,'gA==','fbjyuz21',1,0,'',138,0,0),(30692,6828,7,720,0,'80.36.244.134',1177689579,1,0,1,1,1,0,'','Error en apertura share con campos memo','Hola a todos...\n\nTengo una duda, ¿se puede abrir tablas con campos memos usando shared?. En mi caso no me funciona. Yo lo hago de esta forma:\n\nUSE (\'tabla.dbf\')  share NEW\nINDEX ON proveedor TO proveedor\ntabla-&gt;(OrdSetFocus( \"proveedor\"))\n\nMe da error (no puede abrirla)\n\nHe probado a colocar la clausula REQUEST DBFCDX,DBFFPT pero nose si esto debe ser asi....\n\nSi la tabla no tiene ningun campo memo la instruccion USE (\'tabla.dbf\')  share NEW la abre sin problema..\n\nSaludos.\n\nElías Torres.','',0,'gA==','2icfbfli',1,0,'',720,0,0),(30693,6702,3,15,0,'59.105.17.19',1177689879,1,0,1,1,1,0,'','Re: Available: ViaCoral 1.1 Button Skins','[quote=&quot;Fernando Mancera&quot;:guecoo5t]Hello!,\n\nWe are very glad to announce the new 1.1 version of ViaCORAL.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMore information [url:guecoo5t]http&#58;//www&#46;viaopen&#46;com/news&#46;html[/url:guecoo5t][/quote:guecoo5t]\n\nHello Fernando,\n\nI help my customer ask you about order it from your web site.\nMy customer input data and submit. Non get any finish message.\nPlease check Order EMail or message from my customer.\n\nRegards,\n\nRichard','',0,'kA==','guecoo5t',1,0,'',15,0,0),(30694,6669,6,1025,0,'81.84.76.4',1177689953,1,0,1,1,1,0,'','Crystal XI y xharbour','Hi Biel,\n\nThings are working fine with that 3 files included in the installation package. Apparently this is the only way putting the client machines running crystal. I have Read some white papers from Business Objects and they say this is the only way (supported) to do it <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .\n\nJust one more thing, when I open a report a connection is established with ADS and works fine, but when I close the report, that connection is kept alive in ADS for about 3 minutes. Is there a way to immediately close the connection and the data base inside my code?\n\nI search in Crystal Help and they have this information:\n\n\"Working with secure data in reports:\n\nIf your report connects to a secure data source that requires log on information, you must release the Report object from the Report Viewer before you can log off of the data source. This can be done by assigning a new Report object to the ReportSource property, or by closing the CRViewer object. Until this is done, the data source will not be released from the Report object and you cannot log off.\"\n\nThanks a lot again,\n\nBest regards,\n\nMário Paiva','',0,'kA==','2fuxv1gc',1,0,'',1025,0,0),(30695,6815,6,18,0,'200.67.188.236',1177691227,1,0,1,1,1,1,'','','Para los que estan usando xHarbour y tengan el siguiente problema :\n\n\n[code:2c20sce4]\nError&#58; Unresolved external \'_HB_FUN_USRRDD_RDDDATA\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_USRRDD_AREADATA\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_USRRDD_ID\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_ERROR\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_SETFIELDEXTENT\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_ADDFIELD\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_OPEN\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_CLOSE\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_USRRDD_GETFUNCTABLE\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd\n[/code:2c20sce4]\n\nSe resuelve agregando la librería [b:2c20sce4]usrrdd[/b:2c20sce4] en su ambiente de compilación.\n\nAdemás si estan usando Microsoft SQL Server 2005 , y desean usar el rdd , deben hacer una pequeña modificación al programa adordd.prg\n[code:2c20sce4]\n       case s_cEngine == &quot;SQL&quot;\n              oAdo&#58;CursorType      = adOpenStatic\n              oAdo&#58;CursorLocation = adUseClient\n              oAdo&#58;LockType         = adLockPessimistic\n              oAdo&#58;Open&#40; &quot;SELECT * FROM &quot; + s_cTableName,;\n                                &quot;Provider=SQLOLEDB;&quot; + ;\n                                &quot;server=&quot; + s_cServer + ;\n                                &quot;;database=&quot; + aOpenInfo&#91; UR_OI_NAME &#93; + ;\n                                &quot;;uid=&quot; + s_cUserName + ;\n                                &quot;;pwd=&quot; + s_cPassword, adOpenKeyset, adLockOptimistic &#41;\n[/code:2c20sce4]\n\nAdemás de que también deben de modificar la siguiente linea de Adordd.ch\n\n[code:2c20sce4]&#91; &lt;dbEngine&#58; ACCESS, MYSQL, ORACLE, INFORMIX, SQL&gt; &#93;;[/code:2c20sce4]\n\nY la forma de llamar una tabla seria la siguiente :\n[code:2c20sce4]\n   USE northwind VIA &quot;ADORDD&quot; TABLE &quot;Customer&quot; SQL ;\n      FROM &quot;ServerSql2005&quot; USER &quot;sa&quot; PASSWORD &quot;super&quot;\n   Browse&#40;&#41;\n[/code:2c20sce4]\n\nY finalmente cómo dice Rene, SQL no necesita de ODBC.\n\nFernando y Antonio...¡¡ felicitaciones por este aporte !!\n\nPor cierto.... las conexiones remotas con SQL y MySQL funcionan perfectamente.','',0,'QIA=','2c20sce4',1,0,'',18,0,0),(30696,6814,3,343,0,'24.173.70.29',1177691873,1,0,1,1,1,0,'','','I compiled and linked provided prg\'s with xHarbour commercial and FWH and it is working ok so far.\n\nThanks,','',0,'QIA=','14dnhqds',1,0,'',343,0,0),(30697,6815,6,18,0,'200.67.188.236',1177692941,1,0,1,1,1,1,'','','Aquí les dejo una pequeña modificación al rdd.\n\nRealmente es algo muy sencillo pero desde mi punto de vista demasiado practico.\n\n\n[code:3v37j4f2]\n   USE northwind VIA &quot;ADORDD&quot; TABLE &quot;Customer&quot; SQL ;\n      FROM &quot;ServerSql2005&quot; USER &quot;sa&quot; PASSWORD &quot;Super&quot; QUERY &quot;Select Contact,Phone FROM &quot;\n   Browse&#40;&#41;\n\n   USE\n\n[/code:3v37j4f2]\n\nEl cambio consiste en agregar la claúsula QUERY para de esta forma poder crear consultas más dínamicas.\n\n\nEn el adordd.ch\n[code:3v37j4f2]\n#command USE &lt;&#40;db&#41;&gt; &#91;VIA &lt;rdd&gt;&#93; &#91;ALIAS &lt;a&gt;&#93; &#91;&lt;nw&#58; NEW&gt;&#93; ;\n            &#91;&lt;ex&#58; EXCLUSIVE&gt;&#93; &#91;&lt;sh&#58; SHARED&gt;&#93; &#91;&lt;ro&#58; READONLY&gt;&#93; ;\n            &#91;CODEPAGE &lt;cp&gt;&#93; &#91;INDEX &lt;&#40;index1&#41;&gt; &#91;, &lt;&#40;indexN&#41;&gt;&#93;&#93; ;\n            &#91; TABLE &lt;cTable&gt; &#93; ;\n            &#91; &lt;dbEngine&#58; ACCESS, MYSQL, ORACLE, INFORMIX, SQL&gt; &#93;;\n            &#91; FROM &lt;cServer&gt; &#93; ;\n	    &#91; QUERY &lt;cQuery&gt; &#93; ;\n            &#91; USER &lt;cUser&gt; PASSWORD &lt;cPassword&gt; &#93;=&gt; ;\n         &#91; HB_AdoSetQuery&#40; &lt;cQuery&gt; &#41; ; &#93; ;\n         &#91; HB_AdoSetTable&#40; &lt;cTable&gt; &#41; ; &#93; ;\n         &#91; HB_AdoSetEngine&#40; &lt;&#40;dbEngine&#41;&gt; &#41; ; &#93; ;\n         &#91; HB_AdoSetServer&#40; &lt;cServer&gt; &#41; ; &#93; ;\n         &#91; HB_AdoSetUser&#40; &lt;cUser&gt; &#41;; HB_AdoSetPassword&#40; &lt;cPassword&gt; &#41; ; &#93; ;\n         dbUseArea&#40; &lt;&#46;nw&#46;&gt;, &lt;rdd&gt;, &lt;&#40;db&#41;&gt;, &lt;&#40;a&#41;&gt;, ;\n                    if&#40;&lt;&#46;sh&#46;&gt; &#46;or&#46; &lt;&#46;ex&#46;&gt;, !&lt;&#46;ex&#46;&gt;, NIL&#41;, &lt;&#46;ro&#46;&gt; &#91;, &lt;cp&gt;&#93; &#41; ;\n         &#91;; dbSetIndex&#40; &lt;&#40;index1&#41;&gt; &#41;&#93; ;\n         &#91;; dbSetIndex&#40; &lt;&#40;indexN&#41;&gt; &#41;&#93;\n[/code:3v37j4f2]\n\ny en adordd.prg agregar la variable STATIC s_Query y este trozo de código\n\n[code:3v37j4f2]\n* Vikthor  27&#46;Abr&#46;2007\n#xcommand DEFAULT &lt;uVar1&gt; &#58;= &lt;uVal1&gt; ;\n               &#91;, &lt;uVarN&gt; &#58;= &lt;uValN&gt; &#93; =&gt; ;\n                  &lt;uVar1&gt; &#58;= If&#40; &lt;uVar1&gt; == nil, &lt;uVal1&gt;, &lt;uVar1&gt; &#41; ;;\n                &#91; &lt;uVarN&gt; &#58;= If&#40; &lt;uVarN&gt; == nil, &lt;uValN&gt;, &lt;uVarN&gt; &#41;; &#93;\n\nfunction HB_AdoSetQuery&#40; cQuery &#41;\n\n	DEFAULT cQuery &#58;= &quot;SELECT * FROM &quot;\n\n   s_Query = cQuery\n\nreturn nil\n[/code:3v37j4f2]\n\n\n¡¡¡ y listo el pollo !!!!','',0,'AIA=','3v37j4f2',1,0,'',18,0,0),(30698,5567,6,963,0,'201.236.176.87',1177693509,1,0,0,0,1,0,'','El menú no respeta la font seleccionada para este en windows','Noté al cambiar las font de menú, que este no respeta el tamaño que uno define en windows, alguien sabe porqué?, alguien sabe si se define en alguna parte el alto y ancho?','',0,'AIA=','2mphspfh',1,0,'',963,0,0),(30699,6822,6,2,0,'87.218.146.240',1177693715,1,0,1,1,1,1,'','','José,\n\nDe momento no hay plantillas definidas, pero si sigues las indicaciones con las pantallas del mensaje que te hemos indicado podrás construir tu aplicación perfectamente','',0,'AIA=','fooj131k',1,0,'',2,0,0),(30700,6068,6,963,0,'201.236.176.87',1177693802,1,0,0,0,1,0,'','','Hice el RC, lo compilé pegado al exe, y sigue enviandome el mismo error, pero en los recursos que generé para mdichild... no sé que pasa.','',0,'AIA=','1ea7c91j',1,0,'',963,0,0),(30701,6068,6,2,0,'87.218.146.240',1177693877,1,0,1,1,1,1,'','','Leon,\n\nPuedes poner un ejemplo pequeño de tu PRG y RC aqui para que lo revisemos ? gracias,','',0,'AIA=','1paqx9be',1,0,'',2,0,0),(30702,6815,6,2,0,'87.218.146.240',1177694146,1,0,1,1,1,1,'','','Vikthor,\n\nMuchas gracias por tus aportaciones al ADORDD, vamos a subirlas al CVS de Harbour.\n\nGracias tambien por tus pruebas. Agradecemos a todos los programadores que deseen colaborar en su desarrollo para que el ADORDD llegue a ser una herramienta muy util para todos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','w8qrh1mx',1,0,'',2,0,0),(30703,6815,6,2,0,'87.218.146.240',1177695505,1,0,1,1,1,1,'','','[code:12yz5gwp]\n2007-04-27 19&#58;33 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;ch\n   * contrib/adordd/adordd&#46;prg\n      * QUERY support and MS SQL support &#40;thanks to Vikthor!&#41;\n\nVikthor already successfully tested the ADORDD on Microsoft SQL server and added a new clause QUERY &#58;-&#41;\n\nRegards,\n\nAntonio\n[/code:12yz5gwp]','',0,'AIA=','12yz5gwp',1,0,'',2,0,0),(30704,6829,3,425,0,'81.84.76.4',1177695792,1,0,1,1,1,0,'','Group Total on Treport','Hi \n\nI have a Report with 2 groups and i need to declare 2 bEndGroup\n\noReport:bEndGroup:={ | oCol | (oCol:oReport:aGroups[1]:aTotal[2]:=((oCol:oReport:aGroups[1]:aTotal[4] * 30) )}\n\noReport:bEndGroup:={ | oCol | (oCol:oReport:aGroups[2]:aTotal[2]:=((oCol:oReport:aGroups[2]:aTotal[4] * 30))}\n\nHow can i include this ?\n\nregards\n                    Pedro Faro[/code]','',0,'','2x7now50',1,0,'',425,0,0),(30705,6814,3,2,0,'87.218.146.240',1177695858,1,0,1,1,1,1,'','','[code:mm62228s]\n2007-04-27 19&#58;33 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;ch\n   * contrib/adordd/adordd&#46;prg\n      * QUERY support and MS SQL support &#40;thanks to Vikthor!&#41;\n\nVikthor already successfully tested the ADORDD on Microsoft SQL server and added a new clause QUERY &#58;-&#41;\n\nRegards,\n\nAntonio\n[/code:mm62228s]','',0,'AIA=','mm62228s',1,0,'',2,0,0),(30706,6726,3,148,0,'196.205.181.171',1177696171,1,0,1,1,1,0,'','','can you guide me how to use it to get a value from field without using resources from code please ?\nWhat is written inside autoget.ch Could you send it to me ?','',0,'AIA=','2t377nll',1,0,'',148,0,0),(30707,6819,6,41,0,'200.105.194.235',1177696844,1,0,1,1,1,0,'','','Holas,\n\nRene esta en lo correcto como siempre, para que utilices AdADDTable, debes de tener la DB (Diccionario) en el mismo disco donde esta la aplicacion, en mi caso no es muy problematico ya que utilizo Linux. Pero tienes aun todad la potencia de SQL, con lo que podrias hacer muchas cosas.\n\nun saludo\n\nMarcelo','',0,'AIA=','mb94g5zk',1,0,'',41,0,0),(30708,6726,3,303,0,'72.199.41.171',1177696861,1,0,1,1,1,0,'','','Ehab,\n\n&gt;can you guide me how to use it to get a value from field without using resources from code please ? \n\n[code:3ld9xqiv]#include &quot;fivewin&#46;ch&quot;\n#include &quot;autoget&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg, oGet, cName, aNames\n\n   cName &#58;= space&#40;20&#41;\n   aNames &#58;= &#123;&quot;Mauro&quot;, &quot;Mauricio&quot;, &quot;Maurilio&quot;, &quot;Maurizio&quot;&#125;\n\n   define dialog oDlg title &quot;Test Autoget&quot;\n\n   @ 2,2 autoget oGet var cName of oDlg items aNames\n\n   activate dialog oDlg centered\n\nreturn nil[/code:3ld9xqiv]\n\n&gt;What is written inside autoget.ch Could you send it to me ?\n\nThe autoget.ch file was posted in the original message just after the PRG code (in a message above in this thread).','',0,'AIA=','3ld9xqiv',1,0,'',303,0,0),(30709,6815,6,18,0,'200.67.188.236',1177697616,1,0,1,1,1,1,'','','¡¡¡ ayy, ayy, ayyy !!!!\n\nQue lindo se siente ver mi nombre en un programa. \n\n¡¡¡¡¡ ajuaaa !!!!','',0,'AIA=','des1t8aw',1,0,'',18,0,0),(30710,6815,6,2,0,'87.218.146.240',1177698961,1,0,1,1,1,1,'','','Vikthor,\n\nSi te animas a hacerle más cambios podemos solicitar que te den de alta en el equipo de desarrollo de Harbour y puedes subir tus cambios directamente al CVS de Harbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSeria estupendo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2piuruuw',1,0,'',2,0,0),(30711,6829,3,303,0,'72.199.41.171',1177699015,1,0,1,1,1,0,'','','Just put all your code into the same bEndGroup codeblock.','',0,'AIA=','1jpgigqa',1,0,'',303,0,0),(30712,6815,6,73,0,'200.23.18.132',1177699362,1,0,1,1,1,0,'','','Excelente aportacion !!!\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nAdelante y Exito !!\n\nLo dificil es facil, cuando el dificil aporta lo facil ...\nsalu2\npaco','',0,'AIA=','29ozcl8q',1,0,'',73,0,0),(30713,6815,6,18,0,'200.67.188.236',1177700522,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:60brisx9]Vikthor,\n\nSi te animas a hacerle más cambios podemos solicitar que te den de alta en el equipo de desarrollo de Harbour y puedes subir tus cambios directamente al CVS de Harbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSeria estupendo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:60brisx9]\n\n¿ Qué datos te tengo que enviar ?','',0,'gA==','60brisx9',1,0,'',18,0,0),(30714,6815,6,2,0,'87.218.146.240',1177701173,1,0,1,1,1,1,'','','Vikthor,\n\nSolo tienes que darte de alta en <!-- w --><a class=\"postlink\" href=\"http://www.sourceforge.net\">www.sourceforge.net</a><!-- w --> , y proporcionarnos el login (ID) que elijas.\n\nPara la próxima modificación del ADORDD que hagas, le pedimos al equipo de Harbour que te den de alta y pasas a formar parte del equipo de desarrollo de Harbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1d2ngct9',1,1177701456,'',2,2,0),(30716,6726,3,148,0,'196.205.181.171',1177702848,1,0,1,1,1,0,'','','&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for Harbour 7.01 - January 2007         Harbour development power  &#9474;\n&#9474; (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP \n  \nCompiling...\nHarbour Alpha build 1.0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'autoget.prg\' and generating preprocessed output to \'autoget.ppo\'...\nautoget.prg(42) Error E0030  Syntax error: \"syntax error at \'@\'\"\n1 error\n\nNo code generated\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nautoget.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\n* Application successfully built\n\nE:\\programs\\Database\\clipper\\clpfwh\\sitex&gt;','',0,'gA==','1omersrm',1,0,'',148,0,0),(30717,6796,20,29,0,'88.149.161.11',1177703405,1,0,1,1,1,0,'','','Nell\'esempio di test nel quale uso lTrasnparent:=.t. lo sfondo della bitmap dovrebbe apparti nero, se invece uso nClrPane lo sfondo della bitmap mi appare bianco.\n\nL\'esempio test che hai compilato ti appare con la bitmap trasparente ? Se così, me lo puoi inviare per email a m.turco @ softwarexp.co.uk ?\n\nGrazie\n\nMarco','',0,'gA==','3s50hrmn',1,0,'',29,0,0),(30718,6726,3,303,0,'72.199.41.171',1177704936,1,0,1,1,1,0,'','','Ehab,\n\nThere is no @ symbol in autoget.prg. \n\nDid you paste the sample code into it? If so, then you need to include \"autoget.ch.\"\n\nJames','',0,'gA==','o3p7cvup',1,0,'',303,0,0),(30719,6826,3,303,0,'72.199.41.171',1177705295,1,0,1,1,1,0,'','','To prevent the user from exiting by using the Esc key:\n\nACTIVATE DIALOG oDlg;\n         VALID !GETKEYSTATE( VK_ESCAPE )','',0,'gA==','239bpdm8',1,0,'',303,0,0),(30720,6819,6,36,0,'200.113.56.235',1177705767,1,0,1,1,1,0,'','','Carlos\n\nYo lo utilizo asi para tablas temporales\n\n[code:17kbkhye]cFileTemp &#58;= cNewFileName&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\TEMPO&quot;, &quot;DBF&quot; &#41;\ncFileCdx  &#58;= cNewFileName&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\TEMPO&quot;, &quot;CDX&quot; &#41;\n\ndbCreate&#40; cFileTemp, ;\n						&#123; &#123; &quot;cod_prod&quot;, &quot;c&quot;, 15,0&#125;,;\n						  &#123; &quot;des_prod&quot;, &quot;C&quot;, 40,0&#125;,;\n						  &#123; &quot;fecha&quot;,    &quot;d&quot;, 08,0&#125;,;\n						  &#123; &quot;hora&quot;,     &quot;C&quot;, 10,0&#125;,;\n						  &#123; &quot;cant&quot;,     &quot;n&quot;, 10,0&#125;,;\n						  &#123; &quot;usuario&quot;,  &quot;C&quot;, 30,0&#125;&#125;, &quot;DBFCDX&quot; &#41;\n\nSELE 0 ; USE &#40;cFileTemp&#41; NEW ALIAS TEMP VIA &quot;DBFCDX&quot;\nINDEX ON FIELD-&gt;COD_PROD TAG CODIGO TO &#40;cFileCdx&#41;\nSET INDEX TO &#40;cFileCdx&#41;[/code:17kbkhye]\n\ny al terminar borro los archivos..\n\n\nEspero que te sirva\n\nSaludos\nPatricio','',0,'AIA=','17kbkhye',1,0,'',36,0,0),(30721,6809,6,36,0,'200.113.56.235',1177706182,1,0,1,1,1,0,'','','Hola \n\nme arroja error al abrir el archivo comprimido,\n\na alguien le pasa algo parecido??\n\nSaludos\nPatricio','',0,'AIA=','13mt8r2r',1,0,'',36,0,0),(30722,6814,3,18,0,'200.67.188.236',1177706675,1,0,1,1,1,1,'','Re: Where can I find ADORDD.lib','[quote=&quot;ask&quot;:fu8apl2j][quote=&quot;Antonio Linares&quot;:fu8apl2j]A.S.K.\n\nYou just need AdoRdd.lib and HbOleAut.lib if you use Harbour. For xharbour users, just AdoRdd.lib[/quote:fu8apl2j]\n\nAntonio I use xharbour but I don\'t have ADORDD.LIB .Can you please tell me where I can found it?\n\nThank you in advance \nA.S.K.[/quote:fu8apl2j]\n\nif you are using xHarbour and got this errors :\n\n[code:fu8apl2j]\nError&#58; Unresolved external \'_HB_FUN_USRRDD_RDDDATA\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_USRRDD_AREADATA\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_USRRDD_ID\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_ERROR\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_SETFIELDEXTENT\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_ADDFIELD\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_OPEN\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_UR_SUPER_CLOSE\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \nError&#58; Unresolved external \'_HB_FUN_USRRDD_GETFUNCTABLE\' referenced from C&#58;\\XHARBOUR\\LIB\\ADORDD&#46;LIB|adordd \n[/code:fu8apl2j]\n\n\nyou must be add [b:fu8apl2j]usrrdd library[/b:fu8apl2j]  into linked\n\nby the way , if you are using Microsoft SQL Server 2005 , and wish use adordd , you must be make little changes to adordd.prg file\n\n[code:fu8apl2j]\n\n       case s_cEngine == &quot;SQL&quot; \n              oAdo&#58;CursorType      = adOpenStatic \n              oAdo&#58;CursorLocation = adUseClient \n              oAdo&#58;LockType         = adLockPessimistic \n              oAdo&#58;Open&#40; &quot;SELECT * FROM &quot; + s_cTableName,; \n                                &quot;Provider=SQLOLEDB;&quot; + ; \n                                &quot;server=&quot; + s_cServer + ; \n                                &quot;;database=&quot; + aOpenInfo&#91; UR_OI_NAME &#93; + ; \n                                &quot;;uid=&quot; + s_cUserName + ; \n                                &quot;;pwd=&quot; + s_cPassword, adOpenKeyset, adLockOptimistic &#41; \n[/code:fu8apl2j] \n\n\nand need modify this line into Adordd.ch \n\n[code:fu8apl2j]\n&#91; &lt;dbEngine&#58; ACCESS, MYSQL, ORACLE, INFORMIX, SQL&gt; &#93;; \n[/code:fu8apl2j]\n\n\n\n   USE northwind VIA \"ADORDD\" TABLE \"Customer\" SQL ; \n      FROM \"ServerSql2005\" USER \"sa\" PASSWORD \"super\" \n   Browse() \n[/code]\n \n\n\nY finally , like said Rene, SQL dosen\'n need ODBC\n\nFernando y Antonio...¡¡ felicitaciones por este aporte !! \n\nand .... remote connections with  SQL y MySQL works perfect <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n\nSorry, but my english is very , very bad.','',0,'wIA=','fu8apl2j',1,0,'',18,0,0),(30723,6796,20,6,0,'79.3.217.99',1177709380,1,0,1,1,1,1,'','','Inviato.\n\nEMG','',0,'wIA=','26o2ff48',1,0,'',6,0,0),(30725,6830,2,275,0,'200.68.220.123',1177711114,1,0,1,1,1,0,'','Acceso directo a los Botones y Menues','Hola como le agrego los acceso directo, no se bien como se llama\na los botones, ejemplo Ctrl + S Save, etc\nA los Botones y Menues.','',0,'wIA=','1jyz0pss',1,0,'',275,0,0),(30726,6831,6,278,0,'164.77.219.99',1177714640,1,0,1,1,1,1,'','Como proteger los Recursos','Hola Amigos:\n\nNecesito una orientación Anticopia.\n\nComo pueden proteger o [b:20jd4q65]ocultar[/b:20jd4q65] mis recursos bmp , para que no sean vistos al examinar el ejecutable, con programas como el:\n\n - Resource Explorer , resource hacker o similares.\n\nLo que necesito es tratar de que no me copien mis figuras bmp.\n\nLo intente con comprimir el EXE, pero igual se pueden ver.\n\nAlguna idea, he visto algunos programas, a las cuales no se les puede \nver los bmp que tienen. Como hacen eso ??.\n\nCualquier ayuda es bienvenida  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos,','',0,'QA==','20jd4q65',1,0,'',278,0,0),(30727,6831,6,78,0,'190.40.128.59',1177717247,1,0,1,1,1,0,'','','Hola.\nProbaste trabajar los recursos (bmps, dialogos, etc) con el PellesC ?, y luego comprimir con upx?? como lo hace VerCe??\nal ,menos yo probe con el Resource Explorer y me dice \"Invalid Format\"..\nseria de que pruebes,,,\n\nSalu2\nWilli','',0,'QA==','n733gja8',1,0,'',78,0,0),(30728,6815,6,940,0,'189.157.84.245',1177722478,1,0,1,1,1,1,'','','el ejemplo que puso el sr. Antonio,\n\nUSE test00 VIA \"ADORDD\" TABLE \"ACCOUNTS\" MYSQL ;\n   FROM \"www.freesql.org\" USER \"myuser\" PASSWORD \"mypass\"\n\nfunciona de maravila y rapidicimo.\n\n pero si cambiamos la instrucion como sigue:\n\n   USE CONFIG VIA \"ADORDD\" TABLE \"PRUEBA\" MYSQL ;\n      FROM \'LOCALHOST\' USER \"root\" PASSWORD \"01898\"\n\nmarca el siguiente error:\n\nApplication\n===========\n   Path and name: C:\\XHARBOUR\\TESTADO\\TESTADO.Exe (32 bits)\n   Size: 1,329,664 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04/27/07, 20:04:33\n   Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   SELECT * FROM PRUEBA\n     [   2] = C   DRIVER={MySQL ODBC 3.51 Driver}; SERVER=LOCALHOST;DATABASE=CONFIG;UID=root;PWD=01898\n     [   3] = N   1\n     [   4] = N   3\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from:  =&gt; ADO_OPEN(144)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: testado.prg =&gt; MAIN(21)\n\n\nprobando con MYSQL-FRONT si puedo realizar la conexion.\n\n\nSaludos y larga vida a FW.','',0,'','3lpwvmqv',1,0,'',940,0,0),(30729,6702,3,239,0,'218.20.60.25',1177725287,1,0,1,1,1,0,'','','Could the buttons change into normal mode? at app, some customer like normal mode, some like viacore mode ,so give them a choice.\n\nThanks!\nShuming Wang','',0,'','216wllrm',1,0,'',239,0,0),(30730,6798,6,376,0,'190.42.38.122',1177728539,1,0,1,1,1,1,'','','Ok..\n\nGracias a ambos Antonio y Rene pero... aplicaré ese dicho \"se hace camino al andar\".','',0,'','1vnuru2d',1,0,'',376,0,0),(30731,6814,3,190,0,'124.7.26.49',1177728573,1,0,1,1,1,0,'','','Hi Friends\n\n[quote:37vn11b7]you must be add usrrdd library into linked \n[/quote:37vn11b7]\n\nCan a get a copy of USRRDD.LIB please.\n\nMy email : [color=blue:37vn11b7]aksharasoft@hotmail.com[/color:37vn11b7]\n\nThanks \n\n- Ramesh Babu P','',0,'gg==','37vn11b7',1,0,'',190,0,0),(30732,6814,3,19,0,'217.153.83.2',1177741819,1,0,1,1,1,0,'','','You can get it from <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m --> downloading the latest stable binaries.\n\nRegards Eugeniusz','',0,'gg==','2f8dc9ta',1,0,'',19,0,0),(30733,6825,3,1036,0,'207.112.75.252',1177743452,1,0,1,1,1,0,'','','Hello Michel,\n\nhow can I help you?\n\nRegards,\n\nRene.','',0,'gg==','1eu7fcmd',1,0,'',1036,0,0),(30734,6815,6,2,0,'87.218.146.91',1177744295,1,0,1,1,1,1,'','','Cesar,\n\nPrueba a usar \"127.0.0.1\" en vez de \'LOCALHOST\'','',0,'gg==','38p1n97o',1,0,'',2,0,0),(30735,6814,3,2,0,'87.218.146.91',1177744931,1,0,1,1,1,1,'','','Here it is usrrdd.lib for Harbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28329001/usrrdd.zip.html\">http://rapidshare.com/files/28329001/usrrdd.zip.html</a><!-- m -->\n\nAnd here it is for xharbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28329167/usrrdd.zip.html\">http://rapidshare.com/files/28329167/usrrdd.zip.html</a><!-- m -->','',0,'gg==','2qhg46kz',1,0,'',2,0,0),(30736,6825,3,3,0,'82.249.35.109',1177745081,1,0,1,1,1,1,'','','Hi Rene\n\nNice to see you around.\n\nRichard','',0,'gg==','67i8ybnj',1,0,'',3,0,0),(30737,6830,2,2,0,'87.218.146.91',1177745325,1,0,1,1,1,1,'','','En samples\\TestMenu.prg tienes un ejemplo de cómo usar aceleradores en los menuitems (MENUITEM ... ACCELERATOR ...).\n\nEn los botones, simplemente escribe \"&amp;\" antes de la letra que quieras que sea el acelerador, por ejemplo: \"&amp;Aceptar\"','',0,'gg==','1s3h9njl',1,0,'',2,0,0),(30738,6825,3,1036,0,'207.112.75.252',1177746093,1,0,1,1,1,0,'','','Bonjour Richard! \n\nVery glad to hear from you my friend.\n\nRene.','',0,'gg==','g7we4gyx',1,0,'',1036,0,0),(30743,6834,20,29,0,'88.149.160.254',1177755334,1,0,1,1,1,0,'','Creare un folder tramite codice ed le pagine da RC','Salve,\nsto cercando di creare un folder tramite codice ed importare le pagine da un file di risorse .rc.\n\nIn effetti nella cartella Sample di Fivewin c\'è un esempio che mostra come procedere (testfld5.prg) creando prima il folder e poi con il metodo oFld:LoadPages richiama le risorse. \nIl problema è che l\'esempio non funziona, appare infatti solo la prima pagina. \n\nQualche idea ?\n\nIl file di esempio in questione è quello standard di fivewin che comunque è possibile scaricare da <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/sample.zip\">www.softwarexp.co.uk/beta/sample.zip</a><!-- w --> per verificare il problema.\n\nGrazie in anticipo\n\nSaluti\n\nMarco','',0,'gA==','2owed6os',1,0,'',29,0,0),(30744,6726,3,148,0,'196.205.181.171',1177756767,1,0,1,1,1,0,'','','Oka I got it but that was not my goal . My goal was to open combobox with all values matched with the first letter and I can choose any one ??','',0,'gA==','9gk8tiu5',1,1183885176,'',148,2,0),(30746,6815,6,644,0,'200.82.27.89',1177757684,1,0,1,1,1,0,'','','Estoy compilando con Harbout 0.99.60 y a pesar que he agregado usrrdd.ch en el ambiente de compilación me tira los errores que Viktor describe en su post. Por qué será Muchas gracias de antemano','',0,'gA==','201nuht4',1,0,'',644,0,0),(30747,6815,6,2,0,'87.218.146.91',1177757802,1,0,1,1,1,1,'','','Horacio,\n\nTienes que usar usrrdd.lib, además de usrrdd.ch','',0,'gA==','32zrmsu5',1,0,'',2,0,0),(30748,6828,7,2,0,'87.218.146.91',1177757920,1,0,1,1,1,1,'','','Elías,\n\nPor favor envíame por email tabla.dbf y el fichero memo, en un archivo zip','',0,'gA==','1tm8hc76',1,0,'',2,0,0),(30749,6834,20,6,0,'87.11.236.69',1177758273,1,0,1,1,1,1,'','Re: Creare un folder tramite codice ed le pagine da RC','Confermo che si vede solo la prima DIALOG. Il motivo non te lo so dire.\n\nEMG','',0,'gA==','3ahxvupb',1,0,'',6,0,0),(30750,6835,3,15,0,'59.105.17.19',1177759885,1,0,1,1,1,0,'','ActiveX problem?','Hello Antonio,\n\nLook it below:\n\n[code:ey2wwkbz]\nDEFINE WINDOW oWnd TITLE &quot;Test ActiveX&quot;\n\n  oActX &#58;= TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Codejock&#46;ReportControl&#46;10&#46;4&#46;2&quot; &#41;\n  oWnd&#58;oClient = oActX\nACTIVATE WINDOW oWnd\n[/code:ey2wwkbz]\n\n[url=http&#58;//img153&#46;imageshack&#46;us/my&#46;php?image=fwhwndau9&#46;jpg:ey2wwkbz][img:ey2wwkbz]http&#58;//img153&#46;imageshack&#46;us/img153/1268/fwhwndau9&#46;th&#46;jpg[/img:ey2wwkbz][/url:ey2wwkbz]\n\n[code:ey2wwkbz]\nDEFINE DIALOG oDlg RESOURCE &quot;Test_ACTIVEX&quot;\n\noActX &#58;= TActiveX&#40;&#41;&#58;ReDefine&#40; 100, oDlg, &quot;Codejock&#46;CalendarControl&#46;10&#46;4&#46;2&quot; &#41;\nACTIVATE DIALOG oDlg\n[/code:ey2wwkbz]\n\n[url=http&#58;//img217&#46;imageshack&#46;us/my&#46;php?image=fwhdlgjs3&#46;jpg:ey2wwkbz][img:ey2wwkbz]http&#58;//img217&#46;imageshack&#46;us/img217/3719/fwhdlgjs3&#46;th&#46;jpg[/img:ey2wwkbz][/url:ey2wwkbz]\n\nRegards,\n\nRichard','',0,'GIA=','ey2wwkbz',1,0,'',15,0,0),(30751,6835,3,15,0,'59.105.17.19',1177761731,1,0,1,1,1,0,'','','Hello Antonio,\n\nAdd a method below:\n\n[code:23u5p5g7]\nDEFINE WINDOW oWnd TITLE &quot;Test ActiveX&quot; \n\n  oActX &#58;= TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Codejock&#46;ReportControl&#46;10&#46;4&#46;2&quot; &#41; \n  oWnd&#58;oClient = oActX \n\n  oActX&#58;Do&#40; &quot;SetVirtualMode&quot;, 1000 &#41;\n\nACTIVATE WINDOW oWnd \n\n[/code:23u5p5g7]\n\nWork fine. Please look Message 1 of picture 1\n\n[code:23u5p5g7]\nDEFINE DIALOG oDlg RESOURCE &quot;Test_ACTIVEX&quot; \n\noActX &#58;= TActiveX&#40;&#41;&#58;ReDefine&#40; 100, oDlg, &quot;Codejock&#46;CalendarControl&#46;10&#46;4&#46;2&quot; &#41; \n\noActX&#58;Do&#40; &quot;SetVirtualMode&quot;, 1000 &#41;\n\nACTIVATE DIALOG oDlg \n[/code:23u5p5g7]\n\nI got error message.\n\n[url=http&#58;//img99&#46;imageshack&#46;us/my&#46;php?image=fwherrorjg8&#46;jpg:23u5p5g7][img:23u5p5g7]http&#58;//img99&#46;imageshack&#46;us/img99/8620/fwherrorjg8&#46;th&#46;jpg[/img:23u5p5g7][/url:23u5p5g7]\n\nRegards,\n\nRichard','',0,'GIA=','23u5p5g7',1,0,'',15,0,0),(30752,6815,6,644,0,'200.82.27.89',1177762175,1,0,1,1,1,0,'','','Antonio\n\nGracias por responder. No tengo esa librería. Donde podría conseguirla ya que intenté buscarla por google sin ningún resultado. Desde ya muchas gracias','',0,'GIA=','bajcevlx',1,0,'',644,0,0),(30753,6815,6,104,0,'201.58.122.82',1177762891,1,0,1,1,1,0,'','','Olá,\n\nEste rdd é livre ? Posso atualizar os fontes dele via CVS ? Se for qual endereço do CVS ?\n\nPreciso recompilar esta lib pois não funciona com xharbour comercial \n(xhb)\n\nObrigado,\n\nRossine.','',0,'GIA=','xld2x4du',1,0,'',104,0,0),(30754,6815,6,237,0,'201.213.111.6',1177765964,1,0,1,1,1,0,'','Excelente trabajo!','Excelente trabajo y muchisimas gracias!\n\nAntonio, tengo una pregunta, yo uso xHarbour y lo actualizo desde el cvs, pero veo que este rdd ado no esta en /contrib, o sea que solo esta en el cvs de Harbour ? Como se puede hacer para estar al dia con ADO free para xHarbour ?\n\nMuchos saludos!\nAlejandro Cebolido\nBuenos Aires, Argentina','',0,'GIA=','86tsuwt9',1,0,'',237,0,0),(30755,6789,3,171,0,'71.232.193.197',1177767014,1,0,1,1,1,0,'','','Enrico, Rene,\n\nThat is correct. I have to read an XLS file, created by another program,  and save it as DBF in order to do some process with my xHarbour + FWH software.\nBy now I am using TEXCEL.PRG class. It is working fine, but as you know wee need to have Microsoft Excel installed.\n\nBTW a do you know how to, when saving the XLS file as DBF, to have a  field (in the generated DBF) as logical? Now I can have numerical and chars fields automatically created from the XLS, but not logical field.\n\nRegards,\n\n\nGeorge','',0,'GIA=','ze269r65',1,0,'',171,0,0),(30758,6836,6,694,0,'200.189.112.21',1177772809,1,0,1,1,1,1,'','Antonio como fazer isso ?','Antonio, chamando de um MENU,  como fazer este código funcionar na windows principal ?\n\n\nobj windows principal = ownd\n\nDEFINE WINDOW oWndnet TITLE \".::\"+alltrim(sis_1nom)+\"::. \"+alltrim(sis_1web)\n   oActiveX = TActiveX():New( oWndnet, \"Shell.Explorer\" )\n   oWndnet:oClient = oActiveX \n   IF EMPTY(sis_1web)\n      oActiveX&#058;Do( \"GoHome\" )\n   else \n      oActiveX&#058;Do( \"Navigate\", alltrim(sis_1web) )\n   endif \n   oActiveX&#058;SetProp( \"StatusBar\", .t. )\n   ACTIVATE WINDOW oWndnet \n\n\ntentei assim:\n\n*******************\nFUNCTION NETWND()\n*******************\n oActiveX = TActiveX():New( oWnd, \"Shell.Explorer\" )\n oWnd:oClient = oActiveX \n oActiveX&#058;Do( \"GoHome\" )\n oActiveX&#058;SetProp( \"StatusBar\", .t. )\nreturn(.t.)\n\n\nPorém, desse jeito a WINDOWS principal apresenta o navegador em um canto do video, não fica na tela inteira!\n\nAokisantos <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'kA==','scsl4uy9',1,0,'',694,0,0),(30759,6825,3,86,0,'81.255.33.188',1177773190,1,0,1,1,1,1,'','','Hello Rene,\n\nSorry I didn\'t answer sooner but at the moment I\'m staying in Paris until next Wednesday.\n\nPlease can you send me an email (<!-- e --><a href=\"mailto:michel.driessen@ma-consult.be\">michel.driessen@ma-consult.be</a><!-- e -->) so we can take contact with you in the second half of next week ?\n\nThank you very much in advance.','',0,'kA==','1e4r6wcn',1,0,'',86,0,0),(30760,6835,3,2,0,'87.218.146.91',1177774978,1,0,1,1,1,1,'','','[code:tpeqo1o6]\nDEFINE DIALOG oDlg RESOURCE &quot;Test_ACTIVEX&quot;\n\nREDEFINE ACTIVEX oActX ID 100 OF oDlg PROGID &quot;Codejock&#46;CalendarControl&#46;10&#46;4&#46;2&quot;\n\nACTIVATE DIALOG oDlg ;\n   ON INIT &#40; oActX&#58;nTop &#58;= 0, oActX&#58;nLeft &#58;= 0, oActX&#58;nWidth &#58;= oDlg&#58;nWidth, oActX&#58;nHeight &#58;= oDlg&#58;nHeight, oActX&#58;Do&#40; &quot;SetVirtualMode&quot;, 1000 &#41;\n[/code:tpeqo1o6]','',0,'AIA=','tpeqo1o6',1,0,'',2,0,0),(30761,6815,6,2,0,'87.218.146.91',1177775416,1,0,1,1,1,1,'','','Aqui teneis usrrdd.lib para Harbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28329001/usrrdd.zip.html\">http://rapidshare.com/files/28329001/usrrdd.zip.html</a><!-- m -->\n\nY aqui está para xharbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28329167/usrrdd.zip.html\">http://rapidshare.com/files/28329167/usrrdd.zip.html</a><!-- m -->','',0,'AIA=','1vfgittj',1,0,'',2,0,0),(30762,6836,6,2,0,'87.218.146.91',1177775560,1,0,1,1,1,1,'','','Revisa el ejemplo samples/webexp.prg','',0,'AIA=','3ap4ou91',1,0,'',2,0,0),(30763,6809,6,348,0,'190.40.139.132',1177776287,1,0,1,1,1,0,'','','Hola patricio\n\ntambien me sucedio lo mismo, parece estar malogrado el ZIP\nojala exista otro enlace...\n\nLubin\n\n[quote=&quot;Patricio Avalos Aguirre&quot;:nzjgenay]Hola \n\nme arroja error al abrir el archivo comprimido,\n\na alguien le pasa algo parecido??\n\nSaludos\nPatricio[/quote:nzjgenay]','',0,'gA==','nzjgenay',1,0,'',348,0,0),(30764,6809,6,2,0,'87.218.146.91',1177776417,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28397939/TWBrowse_Hernan.zip.html\">http://rapidshare.com/files/28397939/TW ... n.zip.html</a><!-- m -->','',0,'gA==','pluzq6b3',1,0,'',2,0,0),(30765,6815,6,307,0,'201.143.196.105',1177776870,1,0,1,1,1,0,'','Felicidades!!','excelente , excelente!!.. \n\nfelicidades y adelante, estaba apunto de empezar a desarrollar nuevamente con VB o ASP.net ..  me quedo aqui...\n\nsaludos.. \nArnulfo\n\nregresaron los tiempos en que los hombres son hombres y se animan a escribir sus propias utilerias jje.. (jeje adaptacion del texto citado por Linus Torvalds..)','',0,'gA==','1rkbiwso',1,0,'',307,0,0),(30766,6825,3,1036,0,'207.112.69.250',1177777178,1,0,1,1,1,0,'','','Hello Michel,\n\nI sent you an email at the address above.\n\nRene.','',0,'gA==','3jy7diij',1,0,'',1036,0,0),(30767,6837,3,29,0,'88.149.160.254',1177780170,1,0,1,1,1,0,'','Creating folder form source and pages from resources','Hi,\nI would like to make a folder via source code and then load the pages from an rc file.\n\nI take a look to the Fivewin sample testfld5.prg (provided in the sample FWH directory) that make this with the method LoadPages but only the first page is displayed.\n\nAny ideas ? \nIs there any problem using the method LoadPages as you know ?\n\nI\'m working with the latest FWH&amp;XHB versions.\n\nThanks in advance.\n\nBest Regards,\n\nMarco Turco','',0,'gA==','34gw4cfq',1,0,'',29,0,0),(30768,6834,20,29,0,'88.149.160.254',1177780263,1,0,1,1,1,0,'','','Provo a chiedere sul news inglese.\nForse il metodo LoadPages non è stato aggiornato da un pò.\n\nGrazie\n\nMarco','',0,'gA==','xn7fvbiv',1,0,'',29,0,0),(30769,6837,3,2,0,'87.218.146.91',1177781804,1,0,1,1,1,1,'','','Marco,\n\nPlease change samples/TestFld5.prg this way:\n\n[code:3ofmu41l]\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT &#40; oFld&#58;LoadPages&#40; &#123; &quot;one&quot;, &quot;two&quot; &#125;,;\n                                &#123; | oFld, nPage | SetCtrls&#40; oFld, nPage &#41; &#125; &#41;,;\n                oFld&#58;SetPrompts&#40; &#123; &quot;one&quot;, &quot;two&quot; &#125; &#41; &#41;\n[/code:3ofmu41l]','',0,'AIA=','3ofmu41l',1,0,'',2,0,0),(30770,6834,20,6,0,'87.11.236.69',1177783796,1,0,1,1,1,1,'','','Ho visto che Antonio ti ha risposto e ha risolto.\n\nEMG','',0,'AIA=','1g8jidcm',1,0,'',6,0,0),(30771,6836,6,694,0,'200.189.112.21',1177784213,1,0,1,1,1,1,'','ANTONIO','Antonio, trabalhando no meu sistema com a windows principal como navegador, as DIALOGS ficaram lentas e BTNGET não funciona, isso é normal ?\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nAOKISANTOS','',0,'AIA=','33cxbph7',1,0,'',694,0,0),(30772,6726,3,303,0,'72.199.41.171',1177785613,1,0,1,1,1,0,'','','Ehab,\n\nNo, you have the files wrong. What you are calling autoget.ch is autoget.prg. What you are calling autoget.prg is test.prg. You are still missing autoget.ch. I will email you the files. Don\'t forget to add the autoget.obj to the link list. I will include a copy of buildx.bat (for xHarbour) which you may modify or use as a model.\n\nJames','',0,'AIA=','3knrxe45',1,0,'',303,0,0),(30773,6789,3,303,0,'72.199.41.171',1177786054,1,0,1,1,1,0,'','','George,\n\n&gt;BTW a do you know how to, when saving the XLS file as DBF, to have a field (in the generated DBF) as logical? Now I can have numerical and chars fields automatically created from the XLS, but not logical field. \n\nThis is a round about way, but you could process the first DBF as a temp file, and change all the data in the field you want to be logical as you copy the data to a new file.\n\nOr, another idea just came to me, you can subclass TDatabase and modify the load method to convert the data each time a record is read. This way there is another (mock) field that is logical. Let me know if you would like an example.\n\nJames','',0,'AIA=','r1znqc6h',1,0,'',303,0,0),(30774,6726,3,148,0,'196.205.181.171',1177786708,1,0,1,1,1,0,'','','Oka I got it but that was not my goal . My goal was to open combobox with all values matched with the first letter and I can chose any one ??\nI used with harbour and when I went out I found that error ?\nApplication\n===========\n   Path and name: E:\\programs\\Database\\clipper\\clpfwh\\sitex\\autoget.exe (32 bits)\n   Size: 1,042,432 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 04/28/07, 22:07:45\n   Error description: Error BASE/44  Assigned value is wrong class: TAUTOGET:LAUTO\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TAUTOGET:_LAUTO(0)\n   Called from: autoget.prg =&gt; (b)TAUTOGET(0)\n   Called from:  =&gt; TAUTOGET:LOSTFOCUS(0)\n   Called from:  =&gt; TAUTOGET:KILLFOCUS(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TAUTOGET:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; ENDDIALOG(0)\n   Called from:  =&gt; TDIALOG:END(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: autoget.prg =&gt; MAIN(43)','',0,'','35hbh80r',1,0,'',148,0,0),(30775,6835,3,303,0,'72.199.41.171',1177786885,1,0,1,1,1,0,'','','Richard or Antonio,\n\nI don\'t know much about ADO, but unlike Word or Excel, the calendar control is not (I presume) already installed on the users computer. So how does this work; is the control linked into the app as a library?\n\nJames','',0,'','37ajk4h4',1,0,'',303,0,0),(30776,6726,3,303,0,'72.199.41.171',1177787514,1,0,1,1,1,0,'','','Ehab,\n\n&gt;Oka I got it but that was not my goal . My goal was to open combobox with all values matched with the first letter and I can chose any one ??\n\nGlad you got it working.\n\nAs I mentioned in a previous message, there are different forms of autocomplete, and this one does not work that way. What you are looking for is more like how IE\'s works.\n\nYou can do something similar with a regular combobox. It has a dynamic lookup so as the user types characters it continues to find the first match. The only difference with this and the way IE does it, is that the combobox does not limit the list to just those items that are matching. Still it is a good option.\n\nBy the way, I tried to send the files to your email account, but it was rejected because the attachment was too big. The attachment was only 5K (not 5MB). Is a gmail account\'s limit smaller than 5K?\n\nRegards\nJames','',0,'','37lp5wck',1,0,'',303,0,0),(30778,6815,6,940,0,'189.157.84.245',1177788171,1,0,1,1,1,1,'','','Sr. Antonio, gracias por todo.\n\ncontinuando con el testado,\n\n USE TABLA1 VIA \"ADORDD\" TABLE \"TESTADO\" MYSQL ;\n FROM \'192.168.0.102\' USER \"root\" PASSWORD \"01898\"\n\n   Browse()\n   USE\n\n\nme sigue marcando el error:\nPath and name: C:\\XHARBOUR\\TESTADO\\TESTADO.Exe (32 bits)\n   Size: 1,329,664 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 04/28/07, 14:15:33\n   Error description: Error ADODB.Recordset/16389  [b:33i7mwn1]E_FAIL: OPEN[/b:33i7mwn1]\n\nCuriosamente si cambiamos el string de conexion,:\nsi realiza la conexion.\n\n   oMySql := TOleAuto():New(\"adodb.connection\")\n   oMySql:Open (\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=192.168.0.102; DATABASE=TESTADO;UID=root;PWD=01898\")\n   oRs := TOleAuto():New(\"adodb.recordset\")\n   oRs:ActiveConnection(oMySql)\n   oRs:CursorLocation(3)\n   oRs:CursorType      = adOpenStatic\n   oRs:CursorLocation = adUseClient\n   oRs:LockType         = adLockPessimistic\n   oRs:Open(\"select * from TABLA1 \", oMySql ,adOpenKeyset, adLockOptimistic)  \n\nGracias al buen amigo Vicktor que me paso este tips\n\ncon este string si realiza la conexion,\n\nque pasara ?? \n   \n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nSaludos Cordiales !!! larga vida a fivewin !!!','',0,'QA==','33i7mwn1',1,0,'',940,0,0),(30779,6839,6,300,0,'201.3.17.207',1177789397,1,0,1,1,1,0,'','php desde fwh','Olá, és possivel chamar un codigo php desde fivewin?\n\nSalu2','',0,'QA==','26k6bri3',1,0,'',300,0,0),(30780,6836,6,2,0,'87.218.146.91',1177791040,1,0,1,1,1,1,'','','Puedes proporcionar un PRG de ejemplo de cómo lo estás haciendo ? gracias,','',0,'QA==','rjoz659y',1,0,'',2,0,0),(30783,6841,19,439,0,'200.125.51.62',1177794015,1,0,1,1,1,1,'','La vida es bella','aún a los 45 se pueden tener agradables sorpresas\n\n[url=http&#58;//imageshack&#46;us:2zans2uv][img:2zans2uv]http&#58;//img63&#46;imageshack&#46;us/img63/4465/pp2jh8&#46;jpg[/img:2zans2uv][/url:2zans2uv]\n\nJosé Adriel nació el 21 de abril de 2007 Pesó 2,800 Kg.','',0,'GA==','2zans2uv',1,0,'',439,0,0),(30784,6842,19,439,0,'200.125.51.62',1177794110,1,0,1,1,1,1,'','Life is wonderful','Even being 46 years old, life gives me a wonderful gift\n\n[url=http&#58;//imageshack&#46;us:2n7nsaes][img:2n7nsaes]http&#58;//img63&#46;imageshack&#46;us/img63/4465/pp2jh8&#46;jpg[/img:2n7nsaes][/url:2n7nsaes]\n \nJosé Adriel born April 21  2007','',0,'GA==','2n7nsaes',1,0,'',439,0,0),(30785,6841,19,582,0,'190.31.7.177',1177796351,1,0,1,1,1,0,'','Re: La vida es bella','[quote=&quot;jose_murugosa&quot;:1jy7bdyz]aún a los 45 se pueden tener agradables sorpresas\n\n[url=http&#58;//imageshack&#46;us:1jy7bdyz][img:1jy7bdyz]http&#58;//img63&#46;imageshack&#46;us/img63/4465/pp2jh8&#46;jpg[/img:1jy7bdyz][/url:1jy7bdyz]\n\nJosé Adriel nació el 21 de abril de 2007 Pesó 2,800 Kg.[/quote:1jy7bdyz]...claro que la viada es bella..... sobretodo si hay un fivewinero nuevo =&gt;))))\nMuchas felicidades a vos y sra.\n\nUn abrazo. El Loco =&gt;))','',0,'mA==','1jy7bdyz',1,0,'',582,0,0),(30786,6841,19,785,0,'190.64.216.7',1177798056,1,0,1,1,1,0,'','','José:\n\nMuchas felicidades para ti y tu Sra. y sobretodo para José \"Junior\".\n\nReciban un cordial abrazo de\n\nRuben Fernandez\n  Uruguay','',0,'mA==','3dqxp705',1,0,'',785,0,0),(30787,6842,19,2,0,'87.218.146.91',1177800059,1,0,1,1,1,1,'','','José,\n\nCongratulations! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'mA==','15mhvclv',1,0,'',2,0,0),(30788,6842,19,6,0,'87.11.236.69',1177801396,1,0,1,1,1,1,'','Re: Life is wonderful','My best wishes!\n\nEMG','',0,'mA==','3grg05sw',1,0,'',6,0,0),(30789,6747,6,1014,0,'190.42.178.153',1177803935,1,0,1,1,1,1,'','','Hola AOKISANTOS\nEstoy empezando con xBrowse y tengo el mismo problema que no responde al oBrw:refresh() aunque haga SysRefresh(), y si vuelvo a hacer oBrw:setArray(tabla) se me desconfigura el oBrw. Ya no sé por donde buscar.\nsi te es posible puedes compartir tu solución?\nmuchas gracias por tu ayuda\nJorge Vargas','',0,'mA==','22u23g5o',1,0,'',1014,0,0),(30790,6789,3,171,0,'71.232.193.197',1177804242,1,0,1,1,1,0,'','','James,\n\nI am trying to avoid modify the DBF. I would prefer using TEXCEL class to create a logical type column in the XLS file, before saving as DBF; I don\'t know if that is possible.\n\nI am glad to see you example.\n\nRegards,\n\n\nGeorge','',0,'mA==','3rxqcp2l',1,0,'',171,0,0),(30791,6812,6,171,0,'71.232.193.197',1177804464,1,0,1,1,1,0,'','','Francisco,\n\nEnviame la version actualizada que estas usando de las clase tGraph.prg y si tienes los \"wrappers\" del DLL rmchart, por favor enviamelo tambien a: <!-- e --><a href=\"mailto:georgeabinader@msn.com\">georgeabinader@msn.com</a><!-- e --> y a <!-- e --><a href=\"mailto:georgeabinader@comcast.net\">georgeabinader@comcast.net</a><!-- e -->.\n\nSaludos\n\nGeorge','',0,'mA==','2nxi1wu2',1,0,'',171,0,0),(30792,6842,19,239,0,'218.20.60.25',1177808850,1,0,1,1,1,0,'','','Congratulations!\nShuming Wang','',0,'mA==','3epgztxb',1,0,'',239,0,0),(30793,6842,19,15,0,'59.105.17.19',1177813197,1,0,1,1,1,0,'','','Enjoy your new life.\n\nRichard','',0,'mA==','qdj8v8e7',1,0,'',15,0,0),(30794,6842,19,95,0,'189.155.98.162',1177819182,1,0,1,1,1,0,'','','My best wishes to you and your wife and off course your new project...\n\nOsvaldo Ramirez','',0,'mA==','t5nxtiyj',1,0,'',95,0,0),(30795,6837,3,29,0,'88.149.160.254',1177829656,1,0,1,1,1,0,'','','Yes, it runs.\nThanks Antonio.\n\nBest Regards,\n\nMarco','',0,'mA==','m2vlu5jr',1,0,'',29,0,0),(30796,6814,3,2,0,'87.218.146.164',1177843873,1,0,1,1,1,1,'','','SET FILTER TO ... support\n\n   i.e.: SET FILTER TO First = \"Homer\"\n     \n   To use special SQL expressions, place quotation marks around them, i.e.:\n   SET FILTER TO \"City LIKE \'Chi*\'\"\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28522792/adordd.zip.html\">http://rapidshare.com/files/28522792/adordd.zip.html</a><!-- m -->','',0,'mA==','34tc8ty5',1,0,'',2,0,0),(30797,6815,6,2,0,'87.218.146.164',1177843948,1,0,1,1,1,1,'','','soporte de SET FILTER TO ... \n\n   ejemplo: SET FILTER TO First = \"Homer\"\n     \n   Para usar expresiones SQL especiales, escribidlas entre comillas:\n   SET FILTER TO \"City LIKE \'Chi*\'\"\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28522792/adordd.zip.html\">http://rapidshare.com/files/28522792/adordd.zip.html</a><!-- m -->','',0,'mA==','2imw24aj',1,0,'',2,0,0),(30798,6814,3,6,0,'82.58.168.237',1177845469,1,0,1,1,1,1,'','','It should be\n\n[code:yvnwegix]SET FILTER TO &quot;City LIKE \'Chi%\'&quot;[/code:yvnwegix]\n\nas far as I know.\n\nEMG','',0,'AIA=','yvnwegix',1,0,'',6,0,0),(30799,6814,3,2,0,'87.218.146.164',1177845863,1,0,1,1,1,1,'','','Enrico,\n\nThanks for your info <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAnyhow, SET FILTER TO \"City LIKE \'Chi*\'\" seems to be working fine too:\n\n[url=http&#58;//imageshack&#46;us:36xvcr36][img:36xvcr36]http&#58;//img175&#46;imageshack&#46;us/img175/8361/adocs5&#46;png[/img:36xvcr36][/url:36xvcr36]','',0,'GA==','36xvcr36',1,0,'',2,0,0),(30800,6814,3,6,0,'82.58.168.237',1177845981,1,0,1,1,1,1,'','','I wonder if the used character is db engine dependent...\n\nEMG','',0,'GA==','2hc46oso',1,0,'',6,0,0),(30801,6814,3,6,0,'82.58.168.237',1177846041,1,0,1,1,1,1,'','','I used \'%\' with Jet, MSDE, MSSQL and MSVFP driver.\n\nEMG','',0,'GA==','36b81ge8',1,0,'',6,0,0),(30802,6814,3,2,0,'87.218.146.164',1177846175,1,0,1,1,1,1,'','','Enrico,\n\nYes, probably. \n\nWe are doing the tests with MySQL and Access and it worked fine.','',0,'GA==','2btwrbw9',1,0,'',2,0,0),(30803,6834,20,29,0,'88.149.160.254',1177851104,1,0,1,1,1,0,'','','Si, c\'è però un problema quando si importano pagine di folder che contengono bitmap. Al caricamento delle pagine il programma va in errore.\n\nPotesti confermarmi il problema ?\n\nL\'esempio modificato è su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/sample.zip\">www.softwarexp.co.uk/beta/sample.zip</a><!-- w -->\n, ho aggiunto nel file di risorse un controllo tbitmap nella pagina \"one\".\n\nGrazie\n\nMarco','',0,'GA==','35wb9e3x',1,0,'',29,0,0),(30804,6747,6,694,0,'200.189.112.21',1177851482,1,0,1,1,1,1,'','','Jorge, já está no seu email \n\nLISTBOX.PRG\nXBROWSE.PRG\nTESTXBRW.PRG   &lt;-- Exemplo uso ARRAY\n\nAnexe ao seu sistema... OK\n\nUm abraço\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nAokisantos','',0,'GA==','3ay9xxsy',1,0,'',694,0,0),(30805,6834,20,6,0,'82.58.168.237',1177851902,1,0,1,1,1,1,'','','Devi definire il bitmap. Esempio:\n\n[code:2dynai6l]function SetCtrls&#40; oFld, nPage &#41;\n\n   local oBtn\n\n   if nPage == 1\n      REDEFINE BITMAP ID 101 OF oFld&#58;aDialogs&#91; 1 &#93;;\n               FILE &quot;\\fwh\\bitmaps\\open&#46;bmp&quot;\n\n      REDEFINE BUTTON oBtn ID 110 OF oFld&#58;aDialogs&#91; 1 &#93; ;\n         ACTION MsgInfo&#40; &quot;Works ok&quot; &#41;\n   endif\n\nreturn nil[/code:2dynai6l]\n\nEMG','',0,'AIA=','2dynai6l',1,0,'',6,0,0),(30806,6814,3,177,0,'82.130.231.77',1177854972,1,0,1,1,1,0,'','','Antonio,\n\nEnrico is right !\n\n<!-- m --><a class=\"postlink\" href=\"http://www.techonthenet.com/sql/like.php\">http://www.techonthenet.com/sql/like.php</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://en.wikipedia.org/wiki/SQL\">http://en.wikipedia.org/wiki/SQL</a><!-- m -->\n\nRegards,\n\nFelix','',0,'AIA=','3pbzu5zm',1,0,'',177,0,0),(30807,6814,3,2,0,'87.218.146.164',1177860245,1,0,1,1,1,1,'','','Felix,\n\nThanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2gmtnzle',1,0,'',2,0,0),(30808,6814,3,2,0,'87.218.146.164',1177861179,1,0,1,1,1,1,'','','2007-04-29 17:34 UTC+0100 Antonio Linares (<!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->)\n   * contrib/adordd/adordd.prg\n     * Oracle support, thanks to Srdjan Dragojlovic\n     \n   * contrib/adordd/adordd.ch\n     * formatting\n\nYou may download it from here:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28565058/adordd.zip.html\">http://rapidshare.com/files/28565058/adordd.zip.html</a><!-- m -->','',0,'AIA=','1l86qlbk',1,0,'',2,0,0),(30809,6815,6,2,0,'87.218.146.164',1177861293,1,0,1,1,1,1,'','','Soporte de Oracle:\n\n2007-04-29 17:34 UTC+0100 Antonio Linares (<!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->)\n   * contrib/adordd/adordd.prg\n     * Oracle support, thanks to Srdjan Dragojlovic\n     \n   * contrib/adordd/adordd.ch\n     * formatting\n\nPodeis descargarlo desde:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28565058/adordd.zip.html\">http://rapidshare.com/files/28565058/adordd.zip.html</a><!-- m -->','',0,'AIA=','twms6oqb',1,0,'',2,0,0),(30810,6843,3,6,0,'82.58.168.237',1177868067,1,0,1,1,1,1,'','Third bitmap of bitmap buttons','Probably I\'m missing something but what is the third bitmap for? It won\'t show in the following sample:\n\n[code:2nivcq6f]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd 3D\n\n    DEFINE BUTTON OF oBar;\n           FILE &quot;\\FWHARBOUR\\BITMAPS\\OPEN&#46;BMP&quot;,;\n                &quot;\\FWHARBOUR\\BITMAPS\\CLOSE&#46;BMP&quot;,;\n                &quot;\\FWHARBOUR\\BITMAPS\\DISPLAY&#46;BMP&quot;;\n           NOBORDER\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2nivcq6f]\n\nEMG','',0,'AIA=','2nivcq6f',1,0,'',6,0,0),(30811,6841,19,376,0,'190.42.33.67',1177868635,1,0,1,1,1,1,'','','Felicidades José\n\nQue el Señor te conceda muchos años más a tí y bendiciones para tu \"regalo\" y, sin olvidar, para tu esposa.','',0,'AIA=','2vz8pz4v',1,0,'',376,0,0),(30812,6843,3,2,0,'87.218.146.164',1177869198,1,0,1,1,1,1,'','','Enrico,\n\nIts the image to show when the button is disabled:\n\n    oBar:aControls[ 1 ]:Disable()','',0,'','2bmxh9p1',1,0,'',2,0,0),(30813,6843,3,6,0,'82.58.168.237',1177870665,1,0,1,1,1,1,'','','Ops, thank you.\n\nEMG','',0,'','242w754g',1,0,'',6,0,0),(30814,6834,20,29,0,'88.149.160.254',1177870810,1,0,1,1,1,0,'','','Scusa, mi sono espresso male, \nper bitmap intendevo un btnbmp.\n\nNon ci sono infatti problemi con le bitmap ma con i buttonbmp.\n\n REDEFINE BTNBMP ID 101 OF oFld:aDialogs[ 1 ]; \n               FILE \"\\fwh\\bitmaps\\open.bmp\" \n\nIndipendentemente dal fatto che venga definito p meno, una pagina che contiente un buttonbmp genera un errore al momento del caricamento.\n\nMi sorge il dubbio che il btnbmp vada definito nel file di risorse non come un controllo di FWH ma come un controllo standard di Windows (quale però).\n\nChe ne pensi ?\n\nMarco','',0,'','1plcf80l',1,0,'',29,0,0),(30815,6834,20,6,0,'82.58.168.237',1177871200,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:nyn5ski6]Scusa, mi sono espresso male, \nper bitmap intendevo un btnbmp.[/quote:nyn5ski6]\n\nNel tuo esempio però non c\'è un BTNBMP ma un BITMAP.\n\nEMG','',0,'gA==','nyn5ski6',1,0,'',6,0,0),(30816,6726,3,148,0,'196.205.176.132',1177872194,1,0,1,1,1,0,'','','Gmail is aceepting pictures with large size but no files with binary format such as executable files *.exe , *.bat , *.com. You must rename it.\nCan you help in the syntax of getting IE becuase it is very vital to me .','',0,'gA==','1zkvdh93',1,0,'',148,0,0),(30817,6726,3,303,0,'72.199.41.171',1177872853,1,0,1,1,1,0,'','','&gt;Gmail is aceepting pictures with large size but no files with binary format such as executable files *.exe , *.bat , *.com. You must rename it. \n\nI tried sending a ZIP file.\n\n&gt;Can you help in the syntax of getting IE becuase it is very vital to me .\n\nHave you tried a ComboBox yet?','',0,'gA==','35ysw748',1,0,'',303,0,0),(30818,6829,3,425,0,'83.132.14.220',1177873490,1,0,1,1,1,0,'','','Hi James\n\nTanksfor your reply\n\nPlease can you give me an example how to join the 2 Bendgroup ?\n\nbest regards\n\n  Pedro','',0,'gA==','d5ssajbo',1,0,'',425,0,0),(30819,6726,3,2,0,'87.218.146.164',1177873570,1,0,1,1,1,1,'','','James,\n\nIf the ZIP contains an EXE, then rename the ZIP as ZOP (or similar) and then gmail will accept it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','5n4rhpna',1,0,'',2,0,0),(30820,6842,19,58,0,'84.149.88.170',1177873583,1,0,1,1,1,0,'','','José,  \n\na a father of 4 children i can share your joy.\nCongratulations and my best wishes for your wife, José jr. and to you.\n\nDetlef','',0,'gA==','2aa6m6jj',1,0,'',58,0,0),(30821,6789,3,303,0,'72.199.41.171',1177873631,1,0,1,1,1,0,'','','George,\n\n&gt;I am trying to avoid modify the DBF. I would prefer using TEXCEL class to create a logical type column in the XLS file, before saving as DBF; I don\'t know if that is possible. \n\n&gt;I am glad to see you example.\n\nFirst create a subclass of TDatabase. Lets assume your fieldname is \"ACTIVE\" (the one you want to be a logical). We create a new fake field ISACTIVE. I don\'t know what your field contains, but here lets assume it contains Y or N.\n\nclass TMyData from TDatabase\n   data isactive\n   method load\nendclass\n\nmethod load class TDatabase\n    super:load()\n    // Convert the real field to a logical\n    ::isactive:= if(::ACTIVE=\"Y\",.t.,.f.)\nreturn self\n\nNow to use it all you do is this:\n\nuse mydata\noMyData:= TMyData():new()\n\nmsgInfo( oMyData:isactive )  // returns .t. or .f.\n\nSimple.\n\nJames','',0,'gA==','2hqw3a1e',1,0,'',303,0,0),(30822,6829,3,303,0,'72.199.41.171',1177873818,1,0,1,1,1,0,'','','You can put several functions in any codeblock like this:\n\n{| | function1(), function2(), function3() }\n\nSo for your code just do this:\n\noReport:bEndGroup:={ ;\n| oCol | ;\n(oCol:oReport:aGroups[1]:aTotal[2]:=((oCol:oReport:aGroups[1]:aTotal[4] * 30) ),; \n(oCol:oReport:aGroups[2]:aTotal[2]:=((oCol:oReport:aGroups[2]:aTotal[4] * 30));\n} \n\nJames','',0,'','1qr2gyrw',1,0,'',303,0,0),(30823,6842,19,303,0,'72.199.41.171',1177874017,1,0,1,1,1,0,'','','Congratulations José!\n\nBest Wishes,\nJames','',0,'','1wmvgau1',1,0,'',303,0,0),(30824,6726,3,303,0,'72.199.41.171',1177874153,1,0,1,1,1,0,'','','Antonio,\n\n&gt;If the ZIP contains an EXE, then rename the ZIP as ZOP (or similar) and then gmail will accept it \n\nGee, even ZIPs are considered dangerous now. Thanks.\n\nJames','',0,'','32514b9c',1,0,'',303,0,0),(30825,6789,3,303,0,'72.199.41.171',1177874218,1,0,1,1,1,0,'','','Anyone,\n\nWhere can I get a copy of the TExcel class?\n\nJames','',0,'','17hd7hxq',1,0,'',303,0,0),(30826,6789,3,177,0,'82.130.231.252',1177875164,1,0,1,1,1,0,'','','James,\n\nfollowing the link:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2765\">http://fivetechsoft.com/forums/viewtopic.php?t=2765</a><!-- m -->\n\nBest regards,\n\nFelix','',0,'','1wei8jra',1,0,'',177,0,0),(30827,6789,3,303,0,'72.199.41.171',1177875302,1,0,1,1,1,0,'','','Felix,\n\nThanks but the link to TXLS is now dead.\n\nJames','',0,'','u5bbh05g',1,0,'',303,0,0),(30828,6829,3,303,0,'72.199.41.171',1177875596,1,0,1,1,1,0,'','','Pedro,\n\nI just noticed that you have a syntax error in your code--too many parenthses. It should be:\n\noReport:bEndGroup:={ ; \n| oCol | ; \n(oCol:oReport:aGroups[1]:aTotal[2]:=(oCol:oReport:aGroups[1]:aTotal[4] * 30) ),; \n(oCol:oReport:aGroups[2]:aTotal[2]:=(oCol:oReport:aGroups[2]:aTotal[4] * 30) ); \n}\n\nJames','',0,'','3a1zetl3',1,0,'',303,0,0),(30829,6789,3,303,0,'72.199.41.171',1177875891,1,0,1,1,1,0,'','','OK, I found the TXLS.ZIP file on my own disk. I was looking for TEXCEL.ZIP before.\n\nNow I am confused. George, didn\'t you say that you were using TEXCEL to read an Excel file? The version I have only writes to Excel files.\n\nJames','',0,'','1xasgzi9',1,0,'',303,0,0),(30830,6814,3,1037,0,'89.216.240.57',1177878345,1,0,1,1,1,1,'','Connection','I suggest first create ADO Connection, this connection we can use in ADO\nRecordsets (in dBase terminology TABLE ), second parameter is string or ADO\nConnection object. If we create connection object we can use\ncnn:Execute(\"Select * FROM Table\"), cnn:Errors and open method of recordsets\nis fast.\n \nMy suggestion:\nADORDD.CH\n#ifndef _ADORDD_CH\n#define _ADORDD_CH\n\n// Cursor Type\n#define adOpenForwardOnly    0\n#define adOpenKeyset            1\n#define adOpenDynamic         2\n#define adOpenStatic             3\n\n// Lock Types\n#define adLockReadOnly          1\n#define adLockPessimistic        2\n#define adLockOptimistic         3\n#define adLockBatchOptimistic 4\n\n// Field Types\n#define adEmpty 					      0\n#define adTinyInt 					    16\n#define adSmallInt 						  2\n#define adInteger 						  3\n#define adBigInt 					    20\n#define adUnsignedTinyInt 		17\n#define adUnsignedSmallInt 		18\n#define adUnsignedInt 				19\n#define adUnsignedBigInt 			21\n#define adSingle 						  4\n#define adDouble 						  5\n#define adCurrency 					  6\n#define adDecimal 						14\n#define adNumeric 					  131\n#define adBoolean 						11\n#define adError 							10\n#define adUserDefined 			  132\n#define adVariant 						12\n#define adIDispatch 					  9\n#define adIUnknown 				    13\n#define adGUID 							 72\n#define adDate 							   7\n#define adDBDate 					   133\n#define adDBTime 					   134\n#define adDBTimeStamp 		   135\n#define adBSTR 							   8\n#define adChar 							129\n#define adVarChar 						200\n#define adLongVarChar 				201\n#define adWChar 						130\n#define adVarWChar 					202\n#define adLongVarWChar 			203\n#define adBinary 						128\n#define adVarBinary 					204\n#define adLongVarBinary 			205\n#define adChapter 						136\n#define adFileTime 						  64\n#define adPropVariant 				138\n#define adVarNumeric 				139\n#define adArray 							// &amp;H2000\n\n#define adRecDeleted					   4\n\n#define adUseNone 1\n#define adUseServer 2\n#define adUseClient 3\n#define adUseClientBatch 3\n\n#command USE &lt;(db)&gt; [VIA &lt;rdd&gt;] [ALIAS &lt;a&gt;] [&lt;nw: NEW&gt;] ;\n            [&lt;ex: EXCLUSIVE&gt;] [&lt;sh: SHARED&gt;] [&lt;ro: READONLY&gt;] ;\n            [CODEPAGE &lt;cp&gt;] [INDEX &lt;(index1)&gt; [, &lt;(indexN)&gt;]] ;\n            [ TABLE &lt;cTable&gt; ] ;\n            [ QUERY &lt;cQuery&gt; ] ; \n            [ CONNECTION &lt;cnn&gt; ]=&gt; ;\n         [ HB_AdoSetTable( &lt;cTable&gt; ) ; ] ;\n         [ HB_AdoSetQuery( &lt;cQuery&gt; ) ; ] ;\n         [ HB_AdoSetConnection( &lt;cnn&gt; ) ; ] ; \n         dbUseArea( &lt;.nw.&gt;, &lt;rdd&gt;, &lt;(db)&gt;, &lt;(a)&gt;, ;\n                    if(&lt;.sh.&gt; .or. &lt;.ex.&gt;, !&lt;.ex.&gt;, NIL), &lt;.ro.&gt; [, &lt;cp&gt;] ) ;\n         [; dbSetIndex( &lt;(index1)&gt; )] ;\n         [; dbSetIndex( &lt;(indexN)&gt; )]\n\n#command OPEN CONNECTION &lt;ConnectionString&gt; TO &lt;cnn&gt; =&gt; &lt;cnn&gt; := HB_ADOOpenConnection( &lt;ConnectionString&gt; )\n#command SET CONNECTION TO &lt;cnn&gt; =&gt; &lt;cnn&gt; := HB_ADOSetConnection( &lt;cnn&gt; )\n\n#endif\n\nADORDD.PRG\n\n#include \"rddsys.ch\"\n#include \"hbusrrdd.ch\"\n#include \"fileio.ch\"\n#include \"error.ch\"\n#include \"adordd.ch\"\n#include \"common.ch\"\n\nANNOUNCE ADORDD\n\nstatic s_cTableName, s_cEngine, s_cServer, s_cUserName, s_cPassword, s_cConnection, cnn\nstatic s_cQuery := \"SELECT * FROM \"\n\nSTATIC FUNCTION ADO_INIT( nRDD )\n\n   LOCAL aRData := ARRAY( 10 )\n\n   AFILL( aRData, -1 )\n   USRRDD_RDDDATA( nRDD, aRData )\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_NEW( pWA )\n\n   LOCAL aWData := { -1, .F., .F. }\n\n   USRRDD_AREADATA( pWA, aWData )\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_CREATE( nWA, aOpenInfo )\n\n        /*\n   LOCAL oError := ErrorNew()\n\n   oError:GenCode     := EG_CREATE\n   oError:SubCode     := 1004\n   oError:Description := HB_LANGERRMSG( EG_CREATE ) + \" (\" + ;\n                         HB_LANGERRMSG( EG_UNSUPPORTED ) + \")\"\n   oError:FileName    := aOpenInfo[ UR_OI_NAME ]\n   oError:CanDefault  := .T.\n   UR_SUPER_ERROR( nWA, oError )\n   */\n\nRETURN FAILURE\n\nSTATIC FUNCTION ADO_OPEN( nWA, aOpenInfo )\n\n   LOCAL cName, nMode, nSlot, nHandle, aRData, aWData, aField, oError, nResult\n   LOCAL oADO, nTotalFields := 0, i := 1\n\n   // When there is no ALIAS we will create new one using file name\n   IF aOpenInfo[ UR_OI_ALIAS ] == NIL\n      HB_FNAMESPLIT( aOpenInfo[ UR_OI_NAME ], , @cName )\n      aOpenInfo[ UR_OI_ALIAS ] := cName\n   ENDIF\n\n   nMode := IIF( aOpenInfo[ UR_OI_SHARED ], FO_SHARED , FO_EXCLUSIVE ) + ;\n            IIF( aOpenInfo[ UR_OI_READONLY ], FO_READ, FO_READWRITE )\n\n   aRData := USRRDD_RDDDATA( USRRDD_ID( nWA ) )\n   aWData := USRRDD_AREADATA( nWA )\n   nSlot := ASCAN( aRData, -1 )\n\n   IF nSlot == 0\n      oError := ErrorNew()\n      oError:GenCode     := EG_OPEN\n      oError:SubCode     := 1000\n      oError:Description := HB_LANGERRMSG( EG_OPEN ) + \", no free slots\"\n      oError:FileName    := aOpenInfo[ UR_OI_NAME ]\n      oError:CanDefault  := .T.\n      UR_SUPER_ERROR( nWA, oError )\n      RETURN FAILURE\n   ENDIF\n\n   oADO := TOleAuto():New( \"ADODB.Recordset\" )\n   oAdo:CursorType      = adOpenStatic\n   oAdo:CursorLocation  = adUseClient\n   oAdo:LockType        = adLockPessimistic\n   oADO:Open( s_cQuery + s_cTableName, cnn )\n\n/*\n   do case\n       case Lower( Right( aOpenInfo[ UR_OI_NAME ], 4 ) ) == \".mdb\"\n               oADO:Open( s_cQuery + s_cTableName,;\n                                  \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" + aOpenInfo[ UR_OI_NAME ],;\n                                  adOpenKeyset, adLockOptimistic )\n\n       case s_cEngine == \"MYSQL\"\n              oAdo:CursorType      = adOpenStatic\n              oAdo:CursorLocation = adUseClient\n              oAdo:LockType         = adLockPessimistic\n              oAdo:Open( s_cQuery + s_cTableName,;\n                                \"DRIVER={MySQL ODBC 3.51 Driver};\" + ;\n                                \"server=\" + s_cServer + ;\n                                \";database=\" + aOpenInfo[ UR_OI_NAME ] + ;\n                                \";uid=\" + s_cUserName + ;\n                                \";pwd=\" + s_cPassword, adOpenKeyset, adLockOptimistic )\n\n       case s_cEngine == \"SQL\"\n              oAdo:CursorType      = adOpenStatic\n              oAdo:CursorLocation  = adUseClient\n              oAdo:LockType        = adLockPessimistic\n              oAdo:Open( s_cQuery + s_cTableName,;\n                                \"Provider=SQLOLEDB;\" + ;\n                                \"server=\" + s_cServer + ;\n                                \";database=\" + aOpenInfo[ UR_OI_NAME ] + ;\n                                \";uid=\" + s_cUserName + ;\n                                \";pwd=\" + s_cPassword, adOpenKeyset, adLockOptimistic )\n     case s_cEngine == \"ORACLE\"\n              oAdo:CursorType      = adOpenStatic\n              oAdo:CursorLocation  = adUseClient\n              oAdo:LockType        = adLockPessimistic\n              oAdo:Open( s_cQuery + s_cTableName,;\n                                \"Provider=MSDAORA.1;\" + ;\n                                \"Persist Security Info=False\" + ;\n                                IIF( s_cServer == NIL .OR. s_cServer == \"\", \"\", \";Data source=\" + s_cServer ) + ;\n                                \";User ID=\" + s_cUserName + ;\n                                +\";Password=\" + s_cPassword, adOpenKeyset, adLockOptimistic )\n\n\n   endcase\n*/\n\n   IF oADO == NIL\n      oError := ErrorNew()\n      oError:GenCode     := EG_OPEN\n      oError:SubCode     := 1001\n      oError:Description := HB_LANGERRMSG( EG_OPEN )\n      oError:FileName    := aOpenInfo[ UR_OI_NAME ]\n      oError:OsCode      := fError()\n      oError:CanDefault  := .T.\n\n      UR_SUPER_ERROR( nWA, oError )\n      RETURN FAILURE\n   ENDIF\n\n   aRData[ nSlot ] := oADO\n   aWData[ 1 ] := oADO\n   aWData[ 2 ] := aWData[ 3 ] := .F.\n\n    nTotalFields := oADO:Fields:Count\n\n    UR_SUPER_SETFIELDEXTENT( nWA, oADO:Fields:Count )\n\n    FOR i = 1 TO nTotalFields\n                aField := ARRAY( UR_FI_SIZE )\n                aField[ UR_FI_NAME ]    := oADO:Fields( i - 1 ):Name\n                aField[ UR_FI_TYPE ]    := ADO_GETFIELDTYPE( oADO:Fields( i - 1 ):Type )\n                aField[ UR_FI_TYPEEXT ] := 0\n                aField[ UR_FI_LEN ]     := ADO_GETFIELDSIZE( aField[ UR_FI_TYPE ], oADO:Fields( i - 1 ):DefinedSize  )// 80   // set any arbitrary length - the real size will be differ\n                aField[ UR_FI_DEC ]     := 0\n                UR_SUPER_ADDFIELD( nWA, aField )\n    NEXT\n\n   nResult := UR_SUPER_OPEN( nWA, aOpenInfo )\n\n   IF nResult == SUCCESS\n      ADO_GOTOP( nWA )\n   ENDIF\n\nRETURN nResult\n\nSTATIC FUNCTION ADO_CLOSE( nWA )\n\n   LOCAL aRData, oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   oADO:Close()\n\n   aRData := USRRDD_RDDDATA( USRRDD_ID( nWA ) )\n\nRETURN UR_SUPER_CLOSE( nWA )\n\nSTATIC FUNCTION ADO_GETVALUE( nWA, nField, xValue )\n\n   LOCAL aWData := USRRDD_AREADATA( nWA )\n   LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   IF aWData[ 3 ]\n      xValue := \"\"\n   ELSE\n      xValue := oADO:Fields( nField - 1 ):Value\n   ENDIF\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_GOTO( nWA, nRecord )\n\n/*\n   LOCAL aWData := USRRDD_AREADATA( nWA )\n   LOCAL oADO := aWData[ 1 ]\n\n   IF nRecord &lt;= 0\n      aWData[ 2 ] := aWData[ 3 ] := .T.\n   ELSEIF nRecord == 1\n      oADO:MoveFirst()\n      aWData[ 2 ] := aWData[ 3 ] := HB_FEOF()\n   ELSE\n      //HB_FSKIP(0) // Clear the EOF flag inside HB_F* engin\n                  //   - it\'s not done automatically in HB_FGOBOTTOM() <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n      //HB_FGOTO( nRecord )\n      oADO:Move( nRecord )\n      aWData[ 2 ] := HB_FRECNO() == 0\n      aWData[ 3 ] := HB_FEOF()\n   ENDIF\n  */\n/*\n   LOCAL aWData := USRRDD_AREADATA( nWA )\n   HB_FSELECT( aWData[ 1 ] )\n   IF nRecord &lt;= 0\n      aWData[ 2 ] := aWData[ 3 ] := .T.\n   ELSEIF nRecord == 1\n      HB_FGOTOP()\n      aWData[ 2 ] := aWData[ 3 ] := HB_FEOF()\n   ELSE\n      HB_FSKIP(0) // Clear the EOF flag inside HB_F* engin\n                  //   - it\'s not done automatically in HB_FGOBOTTOM() <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n      HB_FGOTO( nRecord )\n      aWData[ 2 ] := HB_FRECNO() == 0\n      aWData[ 3 ] := HB_FEOF()\n   ENDIF\n\n*/\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_GOTOID( nWA, nRecord )\n\nRETURN SUCCESS // ADO_GOTO( nWA, nRecord )\n\nSTATIC FUNCTION ADO_GOTOP( nWA )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   oADO:MoveFirst()\n   USRRDD_AREADATA( nWA )[ 2 ] = .f.\n   USRRDD_AREADATA( nWA )[ 3 ] = .f.\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_GOBOTTOM( nWA )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   oADO:MoveLast()\n   USRRDD_AREADATA( nWA )[ 2 ] = .f.\n   USRRDD_AREADATA( nWA )[ 3 ] = .f.\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_SKIPRAW( nWA, nRecords )\n\n   LOCAL aWData, oADO\n\n   IF nRecords != 0\n      aWData := USRRDD_AREADATA( nWA )\n      oADO := aWData[ 1 ]\n      IF aWData[ 3 ]\n         IF nRecords &gt; 0\n            RETURN SUCCESS\n         ENDIF\n         ADO_GOBOTTOM( nWA )\n         ++nRecords\n       ENDIF\n       IF nRecords &lt; 0 .AND. oADO:AbsolutePosition &lt;= -nRecords\n          oADO:MoveFirst()\n          aWData[ 2 ] := .T.\n          aWData[ 3 ] := oADO:EOF\n       ELSEIF nRecords != 0\n          oADO:Move( nRecords )\n          aWData[ 2 ] := .F.\n          aWData[ 3 ] := oADO:EOF\n       ENDIF\n   ENDIF\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_BOF( nWA, lBof )\n\n   LOCAL aWData := USRRDD_AREADATA( nWA )\n\n   lBof := aWData[ 2 ]\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_EOF( nWA, lEof )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   lEof := ( oADO:AbsolutePosition == -3 ) // lEof := aWData[ 3 ]\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_DELETED( nWA, lDeleted )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n        IF oADO:Status == adRecDeleted // To be checked, ACCESS does not uses it\n           lDeleted := .T.\n        ELSE\n           lDeleted := .F.\n        ENDIF\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_DELETE( nWA )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   oADO:Delete()\n\n   ADO_SKIPRAW( nWA, 1 )\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_RECID( nWA, nRecNo )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n         nRecno := If( oADO:AbsolutePosition == -3, oAdo:RecordCount + 1, oAdo:AbsolutePosition )\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_RECCOUNT( nWA, nRecords )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   nRecords := oADO:RecordCount\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_PUTVALUE( nWA, nField, xValue )\n\n   LOCAL aWData := USRRDD_AREADATA( nWA )\n   LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   IF aWData[ 3 ]\n       xValue := \"\"\n   ELSE\n                oADO:Fields( nField - 1 ):Value := xValue\n                oADO:Update()\n   ENDIF\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_LOCATE( nWA, lContinue )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   // not implemented yet\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_SETLOCATE( nWA, aDBScopeInfo )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   // not implemented yet\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_APPEND( nWA, lUnLockAll )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n        oADO:AddNew()\n        oADO:Update() // keep it here, or there is an ADO error\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_FLUSH( nWA )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n        oADO:Update()\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_ORDINFO( nWA, iIndex, aOrderInfo )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\nRETURN SUCCESS // aOrderInfo[ iIndex ]\n\nSTATIC FUNCTION ADO_PACK( nWA )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_RAWLOCK( nWA, nAction, nRecNo )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_LOCK( nWA, aLockInfo  )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n        aLockInfo[ UR_LI_METHOD ] := DBLM_MULTIPLE\n    aLockInfo[ UR_LI_RECORD ] := RECNO()\n    aLockInfo[ UR_LI_RESULT ] := .T.\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_UNLOCK( nWA, xRecID )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\nRETURN SUCCESS\n\nFUNCTION ADORDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID )\n\n   LOCAL cSuperRDD := NIL     /* NO SUPER RDD */\n   LOCAL aMyFunc[ UR_METHODCOUNT ]\n\n   aMyFunc[ UR_INIT ]        := ( @ADO_INIT() )\n   aMyFunc[ UR_NEW ]        := ( @ADO_NEW() )\n   aMyFunc[ UR_CREATE ]   := ( @ADO_CREATE() )\n   aMyFunc[ UR_OPEN ]       := ( @ADO_OPEN() )\n   aMyFunc[ UR_CLOSE ]     := ( @ADO_CLOSE() )\n   aMyFunc[ UR_BOF  ]        := ( @ADO_BOF() )\n   aMyFunc[ UR_EOF  ]        := ( @ADO_EOF() )\n   aMyFunc[ UR_DELETED ]  := ( @ADO_DELETED() )\n   aMyFunc[ UR_SKIPRAW ] := ( @ADO_SKIPRAW() )\n   aMyFunc[ UR_GOTO ]       := ( @ADO_GOTO() )\n   aMyFunc[ UR_GOTOID ]    := ( @ADO_GOTOID() )\n   aMyFunc[ UR_GOTOP ]      := ( @ADO_GOTOP() )\n   aMyFunc[ UR_GOBOTTOM ] := ( @ADO_GOBOTTOM() )\n   aMyFunc[ UR_RECID ]       := ( @ADO_RECID() )\n   aMyFunc[ UR_RECCOUNT ] := ( @ADO_RECCOUNT() )\n   aMyFunc[ UR_GETVALUE ]  := ( @ADO_GETVALUE() )\n   aMyFunc[ UR_PUTVALUE ]  := ( @ADO_PUTVALUE() )\n   aMyFunc[ UR_DELETE ]           := ( @ADO_DELETE() )\n   aMyFunc[ UR_LOCATE ]           := ( @ADO_LOCATE() )\n   aMyFunc[ UR_SETLOCATE ]:= ( @ADO_SETLOCATE() )\n   aMyFunc[ UR_APPEND ]     := ( @ADO_APPEND() )\n         aMyFunc[ UR_FLUSH ]      := ( @ADO_FLUSH() )\n         aMyFunc[ UR_ORDINFO ]  := ( @ADO_ORDINFO() )\n         aMyFunc[ UR_PACK ]        := ( @ADO_PACK() )\n         aMyFunc[ UR_RAWLOCK ] := ( @ADO_RAWLOCK() )\n         aMyFunc[ UR_LOCK ]        := ( @ADO_LOCK() )\n         aMyFunc[ UR_UNLOCK ]    := ( @ADO_UNLOCK() )\n\nRETURN USRRDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID, ;\n                                                    cSuperRDD, aMyFunc )\n\nINIT PROC ADORDD_INIT()\n   rddRegister( \"ADORDD\", RDT_FULL )\nRETURN\n\nSTATIC FUNCTION ADO_GETFIELDSIZE( nDBFTypeField, nADOFielSize )\n\n        LOCAL nDBFFieldSize := 0\n\n   DO CASE\n\n                        CASE nDBFTypeField == HB_FT_STRING\n                    nDBFFieldSize := nADOFielSize\n\n                        CASE nDBFTypeField == HB_FT_INTEGER\n                    nDBFFieldSize := nADOFielSize\n\n                        CASE nDBFTypeField == HB_FT_DATE\n                    nDBFFieldSize := 8\n\n                        CASE nDBFTypeField == HB_FT_LOGICAL\n                    nDBFFieldSize := 1\n\n   ENDCASE\n\nRETURN nDBFFieldSize\n\nSTATIC FUNCTION ADO_GETFIELDTYPE( nADOFielfType )\n\n        LOCAL nDBFTypeField := 0\n\n        DO CASE\n\n                CASE nADOFielfType == adEmpty                                           // 0\n                CASE nADOFielfType == adTinyInt                                         // 16\n                CASE nADOFielfType == adSmallInt                                        // 2\n                CASE nADOFielfType == adInteger                                         // 3\n                nDBFTypeField := HB_FT_INTEGER\n\n                CASE nADOFielfType == adBigInt                                          // 20\n                CASE nADOFielfType == adUnsignedTinyInt             // 17\n                CASE nADOFielfType == adUnsignedSmallInt        // 18\n                CASE nADOFielfType == adUnsignedInt                     // 19\n                CASE nADOFielfType == adUnsignedBigInt          // 21\n                CASE nADOFielfType == adSingle                                          // 4\n                CASE nADOFielfType == adDouble                                          // 5\n                CASE nADOFielfType == adCurrency                                        // 6\n                CASE nADOFielfType == adDecimal                                         // 14\n                CASE nADOFielfType == adNumeric                                         // 131\n                CASE nADOFielfType == adBoolean                                         // 11\n                nDBFTypeField := HB_FT_LOGICAL\n\n                CASE nADOFielfType == adError                                           // 10\n                CASE nADOFielfType == adUserDefined                         // 132\n                CASE nADOFielfType == adVariant                                         // 12\n                CASE nADOFielfType == adIDispatch                                   // 9\n                CASE nADOFielfType == adIUnknown                                // 13\n                CASE nADOFielfType == adGUID                                            // 72\n                CASE nADOFielfType == adDate                                            // 7\n                nDBFTypeField := HB_FT_DATE\n\n                CASE nADOFielfType == adDBDate                                  // 133\n                CASE nADOFielfType == adDBTime                                  // 134\n                CASE nADOFielfType == adDBTimeStamp                     // 135\n                CASE nADOFielfType == adBSTR                                            // 8\n                CASE nADOFielfType == adChar                                            // 129\n                     // nDBFTypeField := HB_FT_STRING\n\n                CASE nADOFielfType == adVarChar                                         // 200\n                     // nDBFTypeField := HB_FT_STRING\n\n                CASE nADOFielfType == adLongVarChar                     // 201\n                //       nDBFTypeField := HB_FT_STRING\n\n                CASE nADOFielfType == adWChar                                           // 130\n            // nDBFTypeField := HB_FT_STRING\n\n                CASE nADOFielfType == adVarWChar                                // 202\n                nDBFTypeField := HB_FT_STRING\n\n                CASE nADOFielfType == adLongVarWChar                    // 203\n\n                CASE nADOFielfType == adBinary                                          // 128\n                CASE nADOFielfType == adVarBinary                               // 204\n                CASE nADOFielfType == adLongVarBinary               // 205\n                CASE nADOFielfType == adChapter                                         // 136\n                CASE nADOFielfType == adFileTime                                        // 64\n                CASE nADOFielfType == adPropVariant                         // 138\n                CASE nADOFielfType == adVarNumeric                              // 139\n                // CASE nADOFielfType == adArray &amp;H2000\n\n   ENDCASE\n\nRETURN nDBFTypeField\n\nfunction HB_AdoSetQuery( cQuery )\n\n   DEFAULT cQuery TO \"\"\n\n   s_cQuery := cQuery\n   IF LEN(s_cQuery) &gt; 0\n      s_cTableName := \"\"\n   ENDIF\n\nreturn nil\n\nfunction HB_AdoSetTable( cTableName )\n\n   DEFAULT cTableName TO \"\"\n\n   IF LEN(cTableName) &gt; 0\n      s_cQuery := \"\"\n      s_cTableName := \"SELECT * FROM \"+cTableName\n   ELSE\n      s_cTableName := \"\"\n   ENDIF\nreturn nil\n\nFUNCTION HB_AdoOpenConnection( cConnectionString )\n  cnn := TOleAuto():New( \"ADODB.Connection\" )\n  cnn:Open( cConnectionString )\nRETURN cnn\n\nFUNCTION HB_AdoSetConnection( db )\n  cnn := db\nRETURN NIL','',0,'','3god2izc',1,0,'',1037,0,0),(30831,6814,3,1037,0,'89.216.240.57',1177878418,1,0,1,1,1,1,'','Sample','#include \"adordd.ch\"\n\nREQUEST ADORDD\n\nfunction Main()\nLOCAL db\n\n\n/*\n// Example for creation of Oracle connection string\n   cDataSource := \"\"\n   cUserID := \"digi\"\n   cPassword := \"digi\"\n   OPEN CONNECTION \"Provider=MSDAORA.1;Persist Security Info=False\"+IIF( cDataSource == \"\", \"\", \";Data source=\" + cDataSource ) + \";User ID=\" + cUserID + \";Password=\" + cPassword TO db\n   USE NewQuery VIA \"ADORDD\" QUERY \"SELECT Objekat# AS Sifra, Naziv, NVL(X,0) AS XCOOR, NVL(Y,0) AS YCOOR FROM Objekat ORDER BY Sifra\" NEW\n*/\n\n\n\n// Example for creation of MySQL connection string\n   cServer := \"www.freesql.org\"\n   cUserID := \"myuser\"\n   cPassword := \"mypass\"\n   cDatabase := \"test00\"\n   OPEN CONNECTION \"DRIVER={MySQL ODBC 3.51 Driver};database=\"+cDatabase+\";server=\" + cServer + \";uid=\" + cUserID + \";pwd=\" + cPassword TO db\n   USE Accounts VIA \"ADORDD\" TABLE \"ACCOUNTS\" NEW\n\n\n/*\n// Example for creation of Access connection string\n   cDatabase := \"Test.MDB\"\n   OPEN CONNECTION \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" + cDataBase TO db\n   USE SampleAccess VIA \"ADORDD\" TABLE \"Tabla1\" NEW\n*/\n\n   Browse()\n   CLOSE ALL\n\nreturn nil','',0,'','1bxshd0r',1,0,'',1037,0,0),(30832,6789,3,1037,0,'89.216.240.57',1177878606,1,0,1,1,1,1,'','CreateXLS','I have code in VB for creating XLS file direct with FCREATE() and FWRITE()\nIf you interesting I can send this file for conversion to xHarbour','',0,'','28aaivjq',1,0,'',1037,0,0),(30833,6789,3,171,0,'71.232.193.197',1177880561,1,0,1,1,1,0,'','','James\n\n&gt; Where can I get a copy of the TExcel class? \nSent to your email\n\n\nDigicad,\n\nPlease send the VB code to <!-- e --><a href=\"mailto:georgeabinader@msn.com\">georgeabinader@msn.com</a><!-- e -->\n\nRegards,\n\nGeorge','',0,'','3hw7dut6',1,0,'',171,0,0),(30834,6841,19,1014,0,'190.40.102.130',1177880758,1,0,1,1,1,1,'','','Saludos Jose.\nSí, la vida es muy bella sobre todo si tú estas adornado con una buena Esposa e Hijos. y todos estan sanos.\nMuchas felicidades. Brindo por toda tu familia.\nJorge Vargas','',0,'','2gudus43',1,0,'',1014,0,0),(30835,6814,3,2,0,'87.218.146.164',1177884564,1,0,1,1,1,1,'','','Srdjan,\n\nOur first intention with the ADORDD is that a Harbour/xHarbour application may replace the used RDD for the ADORDD and the application automatically may work with a different databases engine like MySQL, MS SQL, Oracle, etc. with no changes or at least the minimum changes.\n\nWe can encapsulate the ADO connection objects inside the ADORDD itself, so they will be automatically created and may be accessed using DbOrdInfo() or another RDD standard function, for each workarea.\n\nActually we are planning and implementing the indexes management, later on we will go for the relations. As soon as possible we will automatically create and keep the ADO connections objects inside the ADORDD itself.','',0,'','o6cnzfox',1,0,'',2,0,0),(30836,6844,6,990,0,'190.36.178.193',1177885562,1,0,1,1,1,0,'','Que xHarbour necesito FWHX 2.7 December 2005','Disculpen mi ignorancia pero desde la version de Clipper es tan cambiante este mundo de la programacion con el FW que parece que no todo funciona con lo que esta alli en la pagina del xharbour y seria bueno saber que version de FWH funciona correctamente con cada version del xHarbour, en la version FWHX 2.7 December 2005 no se cual es el xHarbour correcto para que no genere errores.   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nporque con la version xharbour-0.99.70.bin.w32.bcc32 genera un problema que es el siguiente \n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_DBFDBT\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|rddsys\nError: Unresolved external \'_hb_stackReturnItem\' referenced from C:\\FWH27\\LIB\\FIVEHC.LIB|HARBOURC\n\nAgradecido de ante mano por su colaboracion','',0,'','b00wta5v',1,0,'',990,0,0),(30837,6845,6,694,0,'200.189.112.21',1177886184,1,0,1,1,1,1,'','Foco em celula do xbrowse','Amigos, utilizando a xbrowse COM CELULAS EDITAVEL, como fazer o foco ir para determinada celula ?\n\n\nAoki Santos  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'','2x2s9k5m',1,0,'',694,0,0),(30838,6844,6,2,0,'87.218.146.164',1177886202,1,0,1,1,1,1,'','','Las versiones publicadas de Harbour y xHarbour para cada build de FWH están disponibles en <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'','hggc34e6',1,0,'',2,0,0),(30839,6846,6,694,0,'200.189.112.21',1177894916,1,0,1,1,1,1,'','Travar MOVIMENTO HEADER Celula xbrowse','Amigos, como travar para que não seja possivel mover uma coluna (header) na xbrowse?\nQuando a gente aperta o header e move ele de um lugar para outro, é possível, configurar para que isso seja possível em uma coluna e nas outras não?\n\nAoki','',0,'','qfdbois6',1,0,'',694,0,0),(30840,6821,3,233,0,'218.208.250.70',1177896422,1,0,1,1,1,0,'','','Thanks Antonio','',0,'','1i0acmr8',1,0,'',233,0,0),(30841,6842,19,233,0,'218.208.250.70',1177896653,1,0,1,1,1,0,'','','Congratulations and best wishes Jose  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','k04jcxf0',1,0,'',233,0,0),(30842,6791,6,348,0,'190.40.139.132',1177897812,1,0,1,1,1,0,'','','Hola Raymundo  y a los amigos del foro \n\nPor aqui regresando...\n\nte comentare que sigo aun con el problema no encontre nada con la palabra Borland \npero ubique posibles controles como : \n\n   BorStatic\n   BorBtn\n   BorShade\n   \ncreo qe son controles borland ,,,  seria ese el problema ??\n\nestaba usando el verce para generar el archivo exe  pero ahora  lo hice a mano.. usando  un BAT parecido al build.bat  de samples..  pero me salio el mismo mensaje de error \n\nbueno...  si hay alguna idea \n\ngracias..\n\n\n\n[quote=&quot;Raymundo Islas M.&quot;:3cixy49h]Hola Lubin\n\nSi ya convertitste la DLL a RC, abrelo con algun editor de textos, y busca la palabra Borland, es probable que por algun lugar tengas definido un control de ese tipo.\n\nSaludos[/quote:3cixy49h]','',0,'gA==','3cixy49h',1,0,'',348,0,0),(30843,6789,3,439,0,'200.125.35.230',1177904564,1,0,1,1,1,1,'','Clase TXLS','Here is it again.\n\n<!-- m --><a class=\"postlink\" href=\"http://misoft.blogspot.com/2005/05/txls.html\">http://misoft.blogspot.com/2005/05/txls.html</a><!-- m -->','',0,'gA==','2zvvh6rr',1,0,'',439,0,0),(30844,6789,3,439,0,'200.125.35.230',1177904952,1,0,1,1,1,1,'','Clase TExcelScript de VikThoR','[quote=&quot;George&quot;:prvnzeek]James\n\n&gt; Where can I get a copy of the TExcel class? \nSent to your email\n\n\nDigicad,\n\nPlease send the VB code to <!-- e --><a href=\"mailto:georgeabinader@msn.com\">georgeabinader@msn.com</a><!-- e -->\n\nRegards,\n\nGeorge[/quote:prvnzeek]\n\nOk, here is it again.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?2t2zgd2z1ng\">http://www.mediafire.com/?2t2zgd2z1ng</a><!-- m -->','',0,'gA==','prvnzeek',1,0,'',439,0,0),(30845,6847,3,962,0,'200.161.190.112',1177906081,1,0,1,1,1,1,'','email - Dúvidas, Bugs - Linares','Antonio, sobre o email que te enviei:\n\n[code:3onh49i7]\nEm 23/04/07, Eric Magaldi &lt;ericmagaldi@XXXX&#46;XXX&gt; escreveu&#58;\nAntonio, boa tarde !!\n \nÚltima linha Dialog &#40;RC&#41; para colocar @&#46;&#46;Button no rodapé\nhttp&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6739\nEntendi que a medida são diferentes, poderia me ajudar com um exemplo, para o caso que descreví ? pois da forma que fiz não funcionou&#46;\n \nBug Picture\nhttp&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6435\nCaso foi corrigido, pode me enviar o código/PRG ?\n \nBug ComboBox\nhttp&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6111\nCaso foi corrigido, pode me enviar o código/PRG ?\n\nLinkagem xHB&#40;cvs&#41; x FW está incompatível\ncom as recentes alterações do xHB, a lib do FW esta incompatível\nError&#58; Unresolved external \'_hb_objGetClass\' referenced from C&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|MSGS\nPode me enviar o BAT para recompilar as LIBs do FW ?\n \nObrigado&#46;\n-- \nVirtualmente, \nÉric M&#46; Magaldi\nAnalista programador de sistemas\nxHarbour&#46;org &#40;0&#46;99&#46;71 CVS&#41; + Borland C++ &#40;5&#46;5&#46;1&#41; + FiveWin &#40;2&#46;8/6&#46;12&#41; + Pelles C &#40;4&#46;50&#46;113&#41; + HBMake + ADSCDX &#40;Local Server 8&#46;1&#41; \nOsasco - São Paulo - Brasil \n\n[/code:3onh49i7]','',0,'AIA=','3onh49i7',1,0,'',962,0,0),(30846,6814,3,1037,0,'89.216.240.57',1177906660,1,0,1,1,1,1,'','Excuse me','Antonio,\n\nFirst excuse me for big messages','',0,'AIA=','z6oftdgy',1,0,'',1037,0,0),(30847,6848,3,239,0,'218.20.61.195',1177907916,1,0,1,1,1,0,'','call another excute file and close itself ?','Hi,\n  my.exe :\n\n  function main()\n\n     define dialog odlg  source \"odlg\"\n\n   define  button of odlg action (winexec(downloadfiles.exe),odlg:end())\n\n  activate dialog odlg\n\nReturn \n\n Problem is that  before close my.exe, the downloadfiles.exe is already running and donwload my.exe from web site,so  my.exe will  be overwrite fail.\n\nThanks !\n\nShuming Wang','',0,'AIA=','2ihfrlz7',1,0,'',239,0,0),(30848,6849,17,439,0,'200.125.35.230',1177908627,1,0,1,1,1,1,'','Las que faltan, las que fallan los links','En esta carpeta ofrezco a la comunidad las clases gratuitas,de libre distribución que tengo,  espero que pueda ser de ayuda y si a alguien ofendo, pues, que me mande un mail a <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e --> y retiro su clase de la carpeta compartida, no obstante entiendo que los autores de ellas han manifestado publicamente el deseo de que las mismas sean difundidas.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/lck9effuyn\">http://www.box.net/shared/lck9effuyn</a><!-- m -->\n\nClases Incluídas en la carpeta:\nBtnGet32\nCreports (Crystal Reports)\nDsay (Say dinamico)\nSayRef (Say referencia)\nFileXls (Generar planillas excel sin necesidad de excel en la máquina)\nRepExcel (envia reportes de la clase treport a excel)\nSSay\nTExcels (TExcelScrip)\nTGraph (clase mejorada de graficos para fivewin)\nTOpenOffice (Clase de manejo de Open Office)\nTRMChartX (Clase de generación y visualización de graficos con este        control OCX)\nTSButton 5  botón mejorado\nTSBrowse 6.13 (Revisada por James Bott)\nTSLines líneas en dialogs\nTTBar Clase mara simplificar el manejo de las barras en rebars\nTWBrowse 17 (hace falta presentación?)\nTWord maneja Word\nTXls clase parecida a FileXLS\nVMsgBar  Barra de mensajes mejorada\nZoomImage Permite ver imagenes con tamaño ajustado\n\nEspero puedan ser de beneficio de mis queridos compañeros Fivewineros del foro, ESTAS CLASES NO ME PERTENECEN, PERTENECEN A SUS RESPECTIVOS AUTORES QUIENES HAN MANIFESTADO EN ELLAS EL DESEO DE COMPARTIRLAS LIBRE Y GRATUITAMENTE, aunque alguna puede haber recibido pequeñas modificaciones de mi parte, por cambios en Fivewin.\n\nTODAS ESTAS CLASES SON PARA FIVEWIN PARA HARBOUR Y XHARBOUR.','',0,'AIA=','16frbq7x',1,1177943960,'',439,3,0),(30849,6814,3,2,0,'87.218.146.84',1177913105,1,0,1,1,1,1,'','','Srdjan, \n\nYou are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> though we appreciate if you build a ZIP file, upload it to <!-- w --><a class=\"postlink\" href=\"http://www.rapidshare.com\">www.rapidshare.com</a><!-- w --> or similar and just place here the download url, thanks','',0,'AIA=','2av349rv',1,0,'',2,0,0),(30850,6848,3,2,0,'87.218.146.84',1177913567,1,0,1,1,1,1,'','','Shuming,\n\n[code:2u4gvvvk]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local lUpgrade &#58;= &#46;F&#46;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;odlg&quot;\n\n   @ 2, 2 BUTTON &quot;Upgrade&quot; OF oDlg SIZE 80, 20 ;\n      ACTION &#40; lUpgrade &#58;= &#46;T&#46;, oDlg&#58;End&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg\n\n   if lUpgrade\n      WinExec&#40; &quot;downloadfiles&#46;exe&quot; &#41;\n   endif\n\nreturn nil\n[/code:2u4gvvvk]','',0,'AIA=','2u4gvvvk',1,0,'',2,0,0),(30851,6847,3,2,0,'87.218.146.84',1177913989,1,0,1,1,1,1,'','','Eric,\n\n&gt;\nEntendi que a medida são diferentes, poderia me ajudar com um exemplo, para o caso que descreví ? pois da forma que fiz não funcionou.\n&gt;\n\nYou have to use GetDialogBaseUnits() as we told you:\n\nnDlgHeight = nLogHeight * nLoWord( GetDlgBaseUnits() ) / 4\nnDlgWidth = nLogWidth * nHiWord( GetDlgBaseUnits() ) / 8\n\nwhere nLogHeight and nLogWidth are the logical dimensions that you used for the dialog in the resource\n\nThe picture bug is not fixed yet\n\nRegarding the combobox we proposed you a workaround\n\n&gt; Linkagem xHB(cvs) x FW está incompatível\n\nYou need to upgrade to the most recent FWH build. We can\'t provide internal compatibility with xHB(cvs) changes, for previous FWH builds','',0,'AIA=','2493fszh',1,0,'',2,0,0),(30852,6791,6,2,0,'87.218.146.84',1177914530,1,0,1,1,1,1,'','','Lubin,\n\nLa forma correcta de usar controles de Borland en 32 bits es esta:\n[code:1fm0j2zg]\n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;código de tu aplicación&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot;\n[/code:1fm0j2zg]','',0,'AIA=','1fm0j2zg',1,0,'',2,0,0),(30853,6849,17,2,0,'87.218.146.84',1177914709,1,0,1,1,1,1,'','','Gracias José <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2tmuhx8a',1,0,'',2,0,0),(30854,6834,20,29,0,'88.149.160.254',1177917807,1,0,1,1,1,0,'','','Risolto, in pratica ho sempre definito i btnbmp nel file RC come bitmap. Questo non mi ha mai creato problemi ma con il metodo LoadPages il programma va in errore.\n\nHo ridefinito nel file RC i btnbmp come \"TBtnBmp\" invece che come \"TBitmap\" ed ora funziona tutto regolarmente.\n\nGrazie\n\nSaluti\n\nMarco','',0,'AIA=','10xjbjjs',1,0,'',29,0,0),(30855,6819,6,316,0,'213.97.245.163',1177921494,1,0,0,1,1,0,'','','Marcelo, Patricio:\n\nCreo tablas, pero no son temporales, es evidente que crear tablas temporales en un ancho de banda reducido sería nefasto. Las tablas a crear son como cierres o paquetes de datos a procesar en el servidor, que eventualmente son actualizados luego del cierre. Voy a probar a ver como me va con el ADSAddTable, a ver si me funciona.\n\nGracias por la atención,\n\nCarlos.','',0,'AIA=','1730owwm',1,0,'',316,0,0),(30857,6814,3,2,0,'87.218.146.84',1177921732,1,0,1,1,1,1,'','','Srdjan,\n\nWith this recent ADORDD change now you don\'t have to care about ADO connections and catalogs as they are automatically created and managed by the ADORDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease notice that the samples source code remains the same <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2rw3denf',1,0,'',2,0,0),(30859,6828,7,720,0,'80.36.244.134',1177921852,1,0,1,1,1,0,'','','Antonio, enviado al correo....\n\nSaludos y gracias.\n\nElías Torres.','',0,'EIA=','1mlcxkv2',1,0,'',720,0,0),(30861,6819,6,316,0,'213.97.245.163',1177923664,1,0,0,1,1,0,'','','Hola Rene,\n\ngracias por la respuesta,\n\n[quote=&quot;RF&quot;]\n\nAtencion:\n\nEl AIS es una herramienta para consulta y actualizacion de bases de datos, no para creacion de las mismas con instrucciones XBase.\n\nEn el manual de ADS indica que el uso de ais debe de evitar la creacion (dbcreate()) y la comprobacion de existencia de archivos (FILE()) por una razon muy simple, tu no estas accediendo fisicamente al disco duro del servidor remoto, sino estas escribiendo a un puerto de internet, realmente no tienes acceso fisico al disco duro remoto como seria en el caso de una vpn, con AIS tu estas leyendo y escribiendo a un puerto, lo que tu leas y escribas en el puerto sera procesado por el servidor de Advantage y de ahi enviado al disco.\n\nSi deseas crear tablas temporales, por ejemplo para informes o cosas asi, que luego van a desaparecer, puedes hacerlo EN TU DISCO DURO LOCAL, eso se puede hacer usando el servidor local de ADS en combinacion con el servidor AIS, de hecho asi lo hacemos nosotros. Debes seleccionar el tipo de server 7, para que puedas utilizar tanto servidor local, como remoto, como AIS simultaneamente.\n\nSi tu quieres crear tablas en el servidor, que van a ser de uso permanente, entonces puedes hacerlo via SQL con la instruccion CREATE TABLE (obviamente tienes que estar conectado al diccionario de datos).[/quote]\n\npor acá seguro viene la solución.\nReitero mi respuesta, no son temporales, debo crear las tablas.\n\nRespecto del argumento del porqué no se puedan crear, me ha dejado pensando un poco. Crear una tabla es solo crear uno o dos archivos en el espacio físico y nada más, no tiene más. Eventualmente se agregaría en el diccionario de datos, pero creo que tampoco es mucha información para transferir, el tráfico generado por esta operación es el mismo que se hace cuando creo un índice o bien edito o agrego un registro, por lo que no veo realmente una limitación en eso. \nY respecto de que no accedo al disco duro, cuando uso el servidor normal tampoco lo hago, para eso pongo el servidor ADS. De hecho las tablas son inaccesibles mientras el servidor las tiene abiertas (sé que se puede configurar para que si se pueda) lo que demestra que con servidor REMOTE tambien se acceden sin acceder al disco.\nSi el manual dice que no es recomendable así será, pero debe haber alguna otra razón, tal vez de seguridad o algo así, no?\n\nCon un ancho de banda limitado seguramente que habrá que realizar los procesos con mucha prudencia teniendo bien presente el ancho de banda, que todavia sigue siendo un recurso limitado.\n\nUn saludo,\n\nCarlos.','',0,'EIA=','1dks8xfa',1,0,'',316,0,0),(30862,6702,3,15,0,'59.105.17.19',1177925099,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:2pd5rghz]Richard,\n\n[quote:2pd5rghz]I help my customer ask you about order it from your web site. \nMy customer input data and submit. Non get any finish message. \nPlease check Order EMail or message from my customer. [/quote:2pd5rghz]\n\nYour customer has to contact directly with us.[/quote:2pd5rghz]\n\nHello Fernando,\n\nMy customer never get your company any download file message.\nCould you check order product OK? or any problem.\nPlease check your mail address or check order product name. \nOr EMail to me <!-- e --><a href=\"mailto:richard.service@seed.net.tw\">richard.service@seed.net.tw</a><!-- e -->\n\nRegards,\n\nRichard','',0,'gA==','2pd5rghz',1,0,'',15,0,0),(30863,6837,3,29,0,'88.149.160.254',1177925911,1,0,1,1,1,0,'','','Oops. There is still a little problem.\nThe XP style doesn\'t work loading the folder pages from resources.\n\nSee image at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/folder.png\">www.softwarexp.co.uk/beta/folder.png</a><!-- w --> \nand the self contained sample at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/folder.zip\">www.softwarexp.co.uk/beta/folder.zip</a><!-- w -->\n\nIs there any solution available ?\n\nThanks in advance\n\nBest Regards,\n\nMarco Turco','',0,'gA==','38gd2gq7',1,0,'',29,0,0),(30864,6842,19,705,0,'121.247.130.123',1177925997,1,0,1,1,1,0,'','','Jose Congratulations!\n\nMy best wishes to you and your family. \n\nArindam','',0,'gA==','2lo5fenh',1,0,'',705,0,0),(30865,6841,19,106,0,'85.34.123.173',1177929633,1,0,1,1,1,1,'','','Felicidades José.','',0,'gA==','17likl3w',1,0,'',106,0,0),(30868,6837,3,2,0,'87.218.146.84',1177934552,1,0,1,1,1,1,'','','Marco,\n\nPlease use this workaround:\n[code:1cigz1n4]\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT &#40; oFld&#58;LoadPages&#40; &#123; &quot;one&quot;, &quot;two&quot; &#125;,;\n                              &#123; | oFld, nPage | SetCtrls&#40; oFld, nPage &#41; &#125; &#41;,;\n                oFld&#58;SetPrompts&#40; &#123; &quot;one&quot;, &quot;two&quot; &#125; &#41;,;\n                oFld&#58;aDialogs&#91; 1 &#93;&#58;nWidth &#58;= oFld&#58;nWidth - 7,;\n                oFld&#58;aDialogs&#91; 1 &#93;&#58;nHeight &#58;= oFld&#58;nHeight - 28,;         \n                oFld&#58;aDialogs&#91; 2 &#93;&#58;nWidth &#58;= oFld&#58;nWidth - 7,;\n                oFld&#58;aDialogs&#91; 2 &#93;&#58;nHeight &#58;= oFld&#58;nHeight - 28 &#41;         \n[/code:1cigz1n4]','',0,'AIA=','1cigz1n4',1,0,'',2,0,0),(30869,6828,7,2,0,'87.218.146.84',1177934872,1,0,1,1,1,1,'','','Elías,\n\nEfectivamente se cuelga si hay un campo memo\n\nEstamos buscando una solución','',0,'AIA=','3qpq7y7z',1,0,'',2,0,0),(30871,6850,6,196,0,'190.48.228.95',1177936251,1,0,1,1,1,0,'','Preview','Hola\n\nAlguien podra recomendarme algun preview que permita hacer multiples vistas previas, y que sea posible comprar por internet con tarjeta de credito?\n\nQueria comprar el Easy Preview pero no se puede realizar a traves de tarjeta de credito y por deposito bancario es mas caro el tramite que el costo del producto.\n\nMuchas gracias\nJorge Jaurena','',0,'AIA=','1yih16mn',1,0,'',196,0,0),(30872,6842,19,217,0,'200.159.120.34',1177936425,1,0,1,1,1,0,'','','Congratulations and best wishes Jose!!!\nGod is great!\n\nRegards\nMaurilio','',0,'AIA=','2yv9dgca',1,0,'',217,0,0),(30873,6814,3,308,0,'84.148.58.46',1177936782,1,0,1,1,1,0,'','','Dear Antonio,\n\nwhen i set an legal SQL Filter like\n[code:1e3vql2k]\n   SET FILTER TO &quot;Status &lt; \'D\' AND Mandant = 1 AND &#40;VB = \'AA\' OR VB = \'WW\'&#41;&quot;\n[/code:1e3vql2k]\nor \n[code:1e3vql2k]\n   SET FILTER TO &quot;Status &lt; \'D\' AND Mandant = 1 AND VB IN &#40;\'AA\',\'WW\'&#41; &quot;\n[/code:1e3vql2k]\nan Error occured:\n\n  Error description: Error ADODB.Recordset/16389  E_FAIL: _FILTER\n\nThis is the Problem: (VB = \'AA\' OR VB = \'WW\')\n\nAny Ideas ?\n\nRegards Norbert','',0,'AIA=','1e3vql2k',1,0,'',308,0,0),(30874,6814,3,2,0,'87.218.146.84',1177937159,1,0,1,1,1,1,'','','Norbert,\n\nWhen you get an error ADODB.Recordset/16389 E_FAIL: _FILTER it means that the filter condition is not valid.\n\nAs we do some translations with the filter expression, please make this change in the ADORDD source code and check the expression that is shown:\n[code:1zj45yl5]\nSTATIC FUNCTION ADO_SETFILTER&#40; nWA, aInfo &#41;\n\n	local oADO &#58;= USRRDD_AREADATA&#40; nWA &#41;&#91; 1 &#93;\n  local cFilter &#58;= aInfo&#91; 2 &#93;\n     \n  if Left&#40; cFilter, 1 &#41; == \'&quot;\' &#46;and&#46; Right&#40; cFilter, 1 &#41; == \'&quot;\'\n     cFilter = SubStr&#40; cFilter, 2, Len&#40; cFilter &#41; - 2 &#41;\n  endif      \n     \n  cFilter = StrTran&#40; cFilter, \'&quot;&quot;\', &quot;&quot; &#41;\n  cFilter = StrTran&#40; cFilter, \'&quot;\', &quot;\'&quot; &#41;\n  cFilter = StrTran&#40; cFilter, &quot;\'\'&quot;, &quot;\'&quot; &#41;\n  cFilter = StrTran&#40; cFilter, &quot;==&quot;, &quot;=&quot; &#41;\n  cFilter = StrTran&#40; cFilter, &quot;&#46;and&#46;&quot;, &quot;AND&quot; &#41;\n  cFilter = StrTran&#40; cFilter, &quot;&#46;or&#46;&quot;, &quot;OR&quot; &#41;\n  cFilter = StrTran&#40; cFilter, &quot;&#46;AND&#46;&quot;, &quot;AND&quot; &#41;\n  cFilter = StrTran&#40; cFilter, &quot;&#46;OR&#46;&quot;, &quot;OR&quot; &#41;\n\n   MsgInfo&#40; cFilter &#41;\n   oADO&#58;Filter = cFilter\n\nRETURN SUCCESS\n[/code:1zj45yl5]','',0,'AIA=','1zj45yl5',1,0,'',2,0,0),(30875,6814,3,308,0,'84.148.58.46',1177937862,1,0,1,1,1,0,'','','Hello Antonio,\n\nthe Filter from MsgInfo is correct and in the normal query from sql-server or in your odbc-functions it works fine.\n\n[code:11tkaojj]\nApplication\n===========\n   Path and name&#58; C&#58;\\FWH\\ADO\\ADO&#46;Exe\n   Size&#58; 1,446,912 bytes\n   Error occurred at&#58; 04/30/07, 14&#58;52&#58;01\n   Error description&#58; Error ADODB&#46;Recordset/16389  E_FAIL&#58; _FILTER\n\n   Args&#58;\n     &#91;   1&#93; = C   Status &lt; \'D\' AND Mandant = 1 AND &#40;VB = \'NK\' OR VB = \'BW\'&#41;\n\nStack Calls\n===========\n   Called from TOLEAUTO&#58;_FILTER&#40;0&#41;\n   Called from ADO_SETFILTER&#40;475&#41;\n   Called from DBSETFILTER&#40;0&#41;\n   Called from MAIN&#40;47&#41;[/code:11tkaojj]','',0,'AIA=','11tkaojj',1,0,'',308,0,0),(30876,6814,3,2,0,'87.218.146.84',1177939075,1,0,1,1,1,1,'','','Norbert,\n\nAre you using Microsoft SQL server ?','',0,'AIA=','8fy4yksk',1,0,'',2,0,0),(30877,6814,3,308,0,'84.148.58.46',1177940343,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:35jkibvf]Norbert,\n\nAre you using Microsoft SQL server ?[/quote:35jkibvf]\n\nYes. MS SQL 2000','',0,'gA==','35jkibvf',1,0,'',308,0,0),(30878,6791,6,492,0,'189.147.22.44',1177940775,1,0,1,1,1,1,'','','Hola Lubin\n\nEfectivamente, esos son los controles.\n\nEn este caso tienes 2 opciones :\n\n- Aplicar el codigo que te comenta Antonio\n\n- Sustituirlos por otros controles similares\n\n\nSi haces una busqueda y checas en muchos post anteriores refentes a este punto, veras que todos coinciden en desaparecer estos controles.\n\n\nSaludos.','',0,'gA==','2rs8jtwk',1,0,'',492,0,0),(30879,6814,3,2,0,'87.218.146.84',1177941473,1,0,1,1,1,1,'','','Norbert,\n\nAre \"Status\", \"Mandant\" and \"VB\" fieldnames ? \n\nAre they written the same way (first upper and lower case) into the table ?','',0,'gA==','2oitt01t',1,0,'',2,0,0),(30880,6791,6,348,0,'190.40.139.132',1177942170,1,0,1,1,1,0,'','','Hola ,  Antonio y Raymundo\n\nEfectivamente,  con FW16 Bits  me encontre con ese problema, y se resolvio retirando muchos de esos controles,  por ello algo recordaba..  \npero quedaron algunos  que por lo visto aun fastifdian en  FWH,  pero para todo problema hay una soluciuon... \n\ngracias sus comentarios. \n\nLes comentare los resultados de ello\n\n\ny aproposito ..  FELIZ DIA DEL TRABAJADOR   !!!!!\n\nLubin\n\n\n\n[quote=&quot;Raymundo Islas M.&quot;:3f9jtf2i]Hola Lubin\n\nEfectivamente, esos son los controles.\n\nEn este caso tienes 2 opciones :\n\n- Aplicar el codigo que te comenta Antonio\n\n- Sustituirlos por otros controles similares\n\n\nSi haces una busqueda y checas en muchos post anteriores refentes a este punto, veras que todos coinciden en desaparecer estos controles.\n\n\nSaludos.[/quote:3f9jtf2i]','',0,'gA==','3f9jtf2i',1,0,'',348,0,0),(30881,6831,6,278,0,'164.77.219.99',1177942252,1,0,1,1,1,1,'','','Gracias Willi, \n\nPero igual se ven.  \n\nEspero que alguien conozca  alguna otra forma.\n\nSaludos,','',0,'gA==','1339a6pi',1,0,'',278,0,0),(30883,6846,6,278,0,'164.77.219.99',1177942786,1,0,1,1,1,1,'','','Hola Aoki:\n\nPuedes usar esto: \n\n1 ) Para no permitir swap entre columnas =\n\noBrw:lAllowColSwapping   :=.F. \n\n\n2) Para no permitir que se redimensionen las columnas =\n\noCol:lAllowSizing:=.F. \n\nSaludos ,','',0,'gA==','2xb8n0gp',1,0,'',278,0,0),(30884,6845,6,104,0,'201.58.155.185',1177942881,1,0,1,1,1,0,'','','Olá Aoki,\n\nTente isto:   oBrw:SelectCol(3)\n\nAbraços,\n\nRossine.','',0,'gA==','3hnzjgxm',1,0,'',104,0,0),(30885,6814,3,308,0,'84.148.58.46',1177943131,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3to5ziac]Norbert,\n\nAre \"Status\", \"Mandant\" and \"VB\" fieldnames ? \n\nAre they written the same way (first upper and lower case) into the table ?[/quote:3to5ziac]\n\nYes, are Fieldnames and in the Query-String includet.\n\ncase is the same (in ADO Case-sensitive ???)','',0,'gA==','3to5ziac',1,0,'',308,0,0),(30886,6846,6,104,0,'201.58.155.185',1177943254,1,0,1,1,1,0,'','','Olá Aoki,\n\n[quote:11gqte3x]\nQuando a gente aperta o header e move ele de um lugar para outro, é possível, configurar para que isso seja possível em uma coluna e nas outras não? \n[/quote:11gqte3x]\n\nVou ver se consigo isto (hehe)\n\nAbraços,\n\nRossine.\n[/code]','',0,'gA==','11gqte3x',1,0,'',104,0,0),(30887,6814,3,308,0,'84.148.58.46',1177943839,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:2labqe9v]Norbert,\n\nworks other filters to you with ADORDD and MSSQL?[/quote:2labqe9v]\n\nother Filters works fine. but if i have OR this don´t work.\n\nExample: You Have 2 Fields\n\nSTATUS and PERSON. You seek all records from STATUS = \'A\' and from\nPERSON AA or BB or CC, but only STATUS A\n\nthe Select string is:\nSELECT FROM ADRESS WHERE STATUS = \'A\' AND (PERSON = \'AA\' OR PERSON = \'BB\' OR PERSON = \'CC\')\n... ERROR _FILTER\nor you write \n\nSELECT FROM ADRESS WHERE STATUS = \'A\' AND PERSON IN (\'AA\', \'BB\', \'CC\')\n... ERROR _FILTER\n\non the ( or´s ) an IN () an Error occured.\n\nIf you write in the WHERE ...\nWHERE STATUS = \'A\' AND PERSON = \'AA\' OR (STATUS = \'A\' AND PERSON = \'BB\' ) OR (STATUS = \'A\' AND PERSON = \'CC\' )\n... it works. but all 3 ways are legal SQL Syntax.','',0,'gA==','2labqe9v',1,0,'',308,0,0),(30888,6837,3,29,0,'88.149.160.254',1177945960,1,0,1,1,1,0,'','','It run with a \"static\" dialog \nbut this problem still appairs on a splitter environment when the folder is created on the window.\n\nSee this sample image at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/splitter.png\">www.softwarexp.co.uk/beta/splitter.png</a><!-- w --> \nand my self-contained sample at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/splitter.zip\">www.softwarexp.co.uk/beta/splitter.zip</a><!-- w -->.\n\nDid I forget something ? I\'m working a lot this time.\n\nMarco','',0,'gA==','1cldj36n',1,0,'',29,0,0),(30889,6669,6,456,0,'217.127.39.57',1177946349,1,0,1,1,1,1,'','','Hello Mario,\nAbout ADS, I can\'t help you because I\'m not using. I tryed some reports via ODC connection to DB2. But usually I \'m using temporal DBF files for my reports.','',0,'gA==','18msywgl',1,0,'',456,0,0),(30890,6841,19,54,0,'189.132.94.50',1177946670,1,0,1,1,1,1,'','Re: La vida es bella','[quote=&quot;jose_murugosa&quot;:c7h88tme]aún a los 45 se pueden tener agradables sorpresas\n\n[url=http&#58;//imageshack&#46;us:c7h88tme][img:c7h88tme]http&#58;//img63&#46;imageshack&#46;us/img63/4465/pp2jh8&#46;jpg[/img:c7h88tme][/url:c7h88tme]\n\nJosé Adriel nació el 21 de abril de 2007 Pesó 2,800 Kg.[/quote:c7h88tme]\n\nNo hay nada más valioso que un retoño (como decimos acá en México)\n\nFeclicidades para ti y tu esposa.','',0,'mA==','c7h88tme',1,0,'',54,0,0),(30891,6815,6,376,0,'201.230.168.38',1177950758,1,0,1,1,1,1,'','','Fernando\n\nParece que este link no funciona.\n\n[quote=&quot;Fernando Mancera&quot;:2og3qlfj]Hola a todos, \n\n[code:2og3qlfj]\n2007-04-30 10&#58;15 UTC+0100 Fernando Mancera &#40;fmancera@viaopen&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * ADO connection objects and ADO catalog objects are automatically created, stored and used by the ADORDD\n[/code:2og3qlfj]\n\nPodeis descargar esta nueva versión desde:\n[url:2og3qlfj]http&#58;//www&#46;viaopen&#46;com/files/adordd&#46;zip[/url:2og3qlfj][/quote:2og3qlfj]','',0,'kIA=','2og3qlfj',1,0,'',376,0,0),(30892,6851,6,963,0,'201.236.187.168',1177952188,1,0,0,0,1,0,'','Error con FileXLS.Lib al compilar en 32 Bits','Nuevamente me dirijo a ustedes, ya que he podido avanzar en mi migración de sistemas a 32 bits, y con la librería FileXLS, tengo el siguiente problema, me arroja estos errores al compilar:\n\n: Unresolved external \'_HB_FUN_XLSFONT\' referenced from D:\\FWH\\XPCCLI\\TOXLS.OBJ\n: Unresolved external \'_HB_FUN_XLSFORMAT\' referenced from D:\\FWH\\XPCCLI\\TOXLS.OBJ\n: Unresolved external \'_HB_FUN_TFILEXLS\' referenced from D:\\FWH\\XPCCLI\\TOXLS.OBJ\n: Unresolved external \'_HB_FUN_TRAE_RSOC\' referenced from D:\\FWH\\XPCCLI\\TOXLS.OBJ\n\nNo tengo la menor idea de como solucionarlo, y no sé si alguno de ustedes puede decirme por qué me arroja ese error.\n\nAtentamente, Leo.','',0,'kIA=','som5ob3p',1,0,'',963,0,0),(30893,6846,6,694,0,'200.189.112.21',1177953263,1,0,1,1,1,1,'','','sou seu fã ! (hehehe)\n\n\naoki <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'kIA=','1izywhp3',1,0,'',694,0,0),(30894,6845,6,694,0,'200.189.112.21',1177953488,1,0,1,1,1,1,'','','mais rossine, imagine que eu precise mandar o FOCO para determinada linha e coluna, como ficaria ?\n\nAoki Santos','',0,'kIA=','1ibubzw9',1,0,'',694,0,0),(30895,6815,6,940,0,'189.157.84.245',1177953526,1,0,1,1,1,1,'','','sr. Fernando ,  sr. Antonio,\n\nefectivamente estaba poniendo mal los parametros,,\n\nasi funciona correctamente.\n\n   USE testado VIA \"ADORDD\" TABLE \"tabla1\" MYSQL ;\n   FROM \'192.168.0.102\' USER \"root\" PASSWORD \"01898\"\n\nTESTADO = contenedors de las tablas\nTABLAS   = tabla a utilizar\nFROM      = Servidor  puedes poner IP, localhost, sysctrl.sytes.net\n\ntengo otras cuestion,\n\ncuando la tabla esta vacia envia un error,\nMOVEFIRST\n\nif tablas-&gt;( lastrec() ) = 0   //esto es posible ?\n   dbappend()\nendif\n\n\nMuchas gracias, \nsaludos cordiales.\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'kIA=','3eg2wd8g',1,0,'',940,0,0),(30896,6815,6,940,0,'189.157.84.245',1177953909,1,0,1,1,1,1,'','','otra cuestion fernando, antonio.\n\nsi tenemos una tabla que fue creado con otra tipo driver, ya sea tmysql\n\nsi la tabla ya contiene registros, nos envia un error,\n\nE_FAIL:OPEN\n\ncon una tabla creada desde cero,  no hay ningun problema,\n\n\ngracias por todo.','',0,'kIA=','6dygp266',1,0,'',940,0,0),(30897,6831,6,2,0,'87.218.146.84',1177954747,1,0,1,1,1,1,'','','Juan,\n\nAunque consiguieses proteger el EXE, cuando las imágenes son mostradas por tu programa se puede hacer un \"impr-Pant\" y la imagen se captura en el porta-papeles de donde se puede pasar a un programa de manejo de gráficos que salve las imágenes.','',0,'kIA=','1l0o6sv1',1,0,'',2,0,0),(30898,6851,6,2,0,'87.218.146.84',1177955007,1,0,1,1,1,1,'','','Leon,\n\nEnlaza esta librería:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/28757585/FileXls.rar.html\">http://rapidshare.com/files/28757585/FileXls.rar.html</a><!-- m -->','',0,'kIA=','1daaz2s2',1,0,'',2,0,0),(30899,6814,3,123,0,'83.53.52.25',1177956653,1,0,1,1,1,0,'','','Hi,\n\nFrom Msdn\n\n[quote:15a352ha]\nFilter Property\nIndicates a filter for data in a Recordset.\n\nSettings and Return Values\nSets or returns a Variant value, which can contain one of the following: \n\nCriteria string — a string made up of one or more individual clauses concatenated with AND or OR operators. \nArray of bookmarks — an array of unique bookmark values that point to records in the Recordset object. \nA FilterGroupEnum value. \nRemarks\nUse the Filter property to selectively screen out records in a Recordset object. The filtered Recordset becomes the current cursor. Other properties that return values based on the current cursor are affected, such as AbsolutePosition, AbsolutePage, RecordCount, and PageCount. This is because setting the Filter property to a specific value will move the current record to the first record that satisfies the new value.\n\nThe criteria string is made up of clauses in the form FieldName-Operator-Value (for example, \"LastName = \'Smith\'\"). You can create compound clauses by concatenating individual clauses with AND (for example, \"LastName = \'Smith\' AND FirstName = \'John\'\") or OR (for example, \"LastName = \'Smith\' OR LastName = \'Jones\'\"). Use the following guidelines for criteria strings: \n\nFieldName must be a valid field name from the Recordset. If the field name contains spaces, you must enclose the name in square brackets. \nOperator must be one of the following: &lt;, &gt;, &lt;=, &gt;=, &lt;&gt;, =, or LIKE. \nValue is the value with which you will compare the field values (for example, \'Smith\', #8/24/95#, 12.345, or $50.00). Use single quotes with strings and pound signs (#) with dates. For numbers, you can use decimal points, dollar signs, and scientific notation. If Operator is LIKE, Value can use wildcards. Only the asterisk (*) and percent sign (%) wild cards are allowed, and they must be the last character in the string. Value cannot be null. \nNote   To include single quotation marks (\') in the filter Value, use two single quotation marks to represent one. For example, to filter on O\'Malley, the criteria string should be \"col1 = \'O\'\'Malley\'\". To include single quotation marks at both the beginning and the end of the filter value, enclose the string with pound signs (#). For example, to filter on \'1\', the criteria string should be \"col1 = #\'1\'#\".\nThere is no precedence between AND and OR. Clauses can be grouped within parentheses. However, you cannot group clauses joined by an OR and then join the group to another clause with an AND, like this: \n(LastName = \'Smith\' OR LastName = \'Jones\') AND FirstName = \'John\'\nInstead, you would construct this filter as \n(LastName = \'Smith\' AND FirstName = \'John\') OR (LastName = \'Jones\' AND FirstName = \'John\')\nIn a LIKE clause, you can use a wildcard at the beginning and end of the pattern (for example, LastName Like \'*mit*\'), or only at the end of the pattern (for example, LastName Like \'Smit*\'). \nThe filter constants make it easier to resolve individual record conflicts during batch update mode by allowing you to view, for example, only those records that were affected during the last UpdateBatch method call.\n\nSetting the Filter property itself may fail because of a conflict with the underlying data (for example, a record has already been deleted by another user). In such a case, the provider returns warnings to the Errors collection but does not halt program execution. A run-time error occurs only if there are conflicts on all the requested records. Use the Status property to locate records with conflicts.\n\nSetting the Filter property to a zero-length string (\"\") has the same effect as using the adFilterNone constant.\n\nWhenever the Filter property is set, the current record position moves to the first record in the filtered subset of records in the Recordset. Similarly, when the Filter property is cleared, the current record position moves to the first record in the Recordset.\n\nSee the Bookmark property for an explanation of bookmark values from which you can build an array to use with the Filter property.\n\nOnly Filters in the form of Criteria Strings (e.g. OrderDate &gt; \'12/31/1999\') affect the contents of a persisted Recordset. Filters created with an Array of Bookmarks or using a value from the FilterGroupEnum will not affect the contents of the persisted Recordset. These rules apply to Recordsets created with either client-side or server-side cursors.\n\nNote  When you apply the adFilterPendingRecords flag to a filtered and modified Recordset in the batch update mode, the resultant Recordset is empty if the filtering was based on the key field of a single-keyed table and the modification was made on the key field values. The resultant Recordset will be non-empty if one of the following is true:\nThe filtering was based on non-key fields in a single-keyed table. \nThe filtering was based on any fields in a multiple-keyed table. \nModifications were made on non-key fields in a single-keyed table. \nModifications were made on any fields in a multiple-keyed table. \nThe following table summarizes the effects of adFilterPendingRecords in different combinations of filtering and modifications. The left column shows the possible modifications; modifications can be made on any of the non-keyed fields, on the key field in a single-keyed table, or on any of the key fields in a multiple-keyed table. The top row shows the filtering criterion; filtering can be based on any of the non-keyed fields, the key field in a single-keyed table, or any of the key fields in a multiple-keyed table. The intersecting cells show the results: + means that applying adFilterPendingRecords results \n[/quote:15a352ha]\n\nRegards,\nJosé Luis Capel','',0,'gA==','15a352ha',1,0,'',123,0,0),(30900,6814,3,1037,0,'89.216.240.32',1177956669,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3d2qd1uc]Srdjan,\n\nWith this recent ADORDD change now you don\'t have to care about ADO connections and catalogs as they are automatically created and managed by the ADORDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease notice that the samples source code remains the same <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3d2qd1uc]\n\nThis is good code <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\ns_aConnections[ nWA ] = TOleAuto():New( \"ADODB.Connection\" )\nbut if you create same connection you must not create new connection.\nfor this you must save all parameters (server, UserID, Password, database, driver/provider )','',0,'gA==','3d2qd1uc',1,0,'',1037,0,0),(30901,6814,3,2,0,'87.218.146.84',1177958096,1,0,1,1,1,1,'','','Srdjan, \n\nYes, we plan to reuse the same connection objects for different workareas. It will be implemented soon <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','31nqtqmi',1,0,'',2,0,0),(30902,6815,6,2,0,'87.218.146.84',1177959384,1,0,1,1,1,1,'','','Cesar,\n\n&gt;\ncuando la tabla esta vacia envia un error, \nMOVEFIRST \n&gt;\n\nArreglado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1nwdfdad',1,0,'',2,0,0),(30903,6815,6,2,0,'87.218.146.84',1177959781,1,0,1,1,1,1,'','','[code:3srxormw]\n2007-04-30 20&#58;58 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * ZAP implemented&#46; GO TOP fixed for empty tables\n[/code:3srxormw]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">http://www.viaopen.com/files/adordd.zip</a><!-- m -->','',0,'AIA=','3srxormw',1,0,'',2,0,0),(30904,6814,3,2,0,'87.218.146.84',1177959821,1,0,1,1,1,1,'','','[code:1k6fx5bx]\n2007-04-30 20&#58;58 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * ZAP implemented&#46; GO TOP fixed for empty tables\n[/code:1k6fx5bx]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','1k6fx5bx',1,0,'',2,0,0),(30905,6837,3,2,0,'87.218.146.84',1177960160,1,0,1,1,1,1,'','','Marco,\n\nYou may need to resize the folder dialogs everytime the folder is resized:\n[code:iv5pn11l]\n    for i&#58;=1 to 2\n        oFld&#58;aDialogs&#91;i&#93;&#58;nWidth&#58;=oFld&#58;nWidth-7\n        oFld&#58;aDialogs&#91;i&#93;&#58;nHeight&#58;=oFld&#58;nHeight-28\n    next\n[/code:iv5pn11l]','',0,'AIA=','iv5pn11l',1,0,'',2,0,0),(30906,6815,6,940,0,'189.157.84.245',1177960539,1,0,1,1,1,1,'','','Disculpa teacher Antonio,\n\ncomo entras a las contribuciones de HARBOUR ?\n\n\ncontrib/adordd/adordd.prg\n\n\ncual es el LINLK para descargar ?\n\n\n\ngracias por todo.','',0,'AIA=','2pr2g227',1,0,'',940,0,0),(30907,6815,6,2,0,'87.218.146.84',1177960737,1,0,1,1,1,1,'','','Cesar,\n\nPuedes descargarlo desde aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">http://www.viaopen.com/files/adordd.zip</a><!-- m -->','',0,'AIA=','it2n43wi',1,0,'',2,0,0),(30908,6814,3,2,0,'87.218.146.84',1177962877,1,0,1,1,1,1,'','','[code:3sc2r2ms]\n2007-04-30 21&#58;58 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * IndexKey&#40; n &#41; support\n[/code:3sc2r2ms]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','3sc2r2ms',1,0,'',2,0,0),(30909,6815,6,2,0,'87.218.146.84',1177962960,1,0,1,1,1,1,'','','[code:uuoa0rxc]\n2007-04-30 21&#58;58 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * IndexKey&#40; n &#41; support\n[/code:uuoa0rxc]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','uuoa0rxc',1,0,'',2,0,0),(30910,6852,3,694,0,'200.189.112.21',1177965242,1,0,1,1,1,1,'','SOURCE functional calculator','could anybody get ready the SOURCE of a functional calculator?\n\nthanks\n\nAoki','',0,'AIA=','3j5f2apl',1,0,'',694,0,0),(30911,6845,6,104,0,'201.58.155.185',1177965594,1,0,1,1,1,0,'','','Olá Aoki,\n\nCriei mais um método no xbrowse (hehe)\n\nselectRowCol( nRow, nCol, lGotop )\n\nDigamos que quando voce abrir um dialog quer que posicione na linha 20 coluna 3, então ficaria assim:\n\n[code:11zktds0]\n   ACTIVATE DIALOG oDlg on init &#40; oBrw&#58;selectRowCol&#40;20,3,&#46;t&#46;&#41;, oBrw&#58;setfocus&#40;&#41;, &#46;f&#46; &#41;\n[/code:11zktds0]\n\nAbraços,\n\nRossine.','',0,'AIA=','11zktds0',1,0,'',104,0,0),(30912,6846,6,104,0,'201.58.155.185',1177965838,1,0,1,1,1,0,'','','Mais uma (hehe)\n\nOu você usa do jeito tradicional para fazer swap em todas as colunas \n\noBrw:lAllowColSwapping :=.F. \n\nou:\n\noBrw:lAllowColSwapping := { .F. , .T., .F., .T., .F., .T. }\n\nAbraços,\n\nRossine.','',0,'AIA=','36jn56a0',1,0,'',104,0,0),(30913,6846,6,104,0,'201.58.155.185',1177965933,1,0,1,1,1,0,'','','Ops,\n\nO certo para o swap total é: \n\noBrw:lAllowColSwapping := .T.\n\nAbraços,\n\nRossine.','',0,'AIA=','3ofykt1w',1,0,'',104,0,0),(30914,6815,6,940,0,'189.157.84.245',1177966114,1,0,1,1,1,1,'','','o.k. gracias por las atenciones..','',0,'AIA=','f679o3dq',1,0,'',940,0,0),(30915,6815,6,397,0,'200.168.6.162',1177966156,1,0,1,0,1,1,'','','Antonio\n\nQual teu email direto para enviarte meu projeto para tua analise e implementação total?\n\nAguardo!','',0,'AIA=','rkwzis0h',1,0,'',397,0,0),(30916,6815,6,2,0,'87.218.146.84',1177966637,1,0,1,1,1,1,'','','Rochinha,\n\n<!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->\n\ngracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2bt0t029',1,0,'',2,0,0),(30917,6791,6,348,0,'190.40.139.132',1177969325,1,0,1,1,1,0,'','Re: De 16 a 32Bits-Caso02 - Cambio uso de DLL a RC','Gracias Antonio y Raymundo\n\nAl parecer este problema llego a su fin, y confirmo las soluciones comentadas en este tema:\n\nAlternativas de Solucion :   \n     1ra alternativa : . Colocar  el Codigo indicado por Antonio  \n o  2da alternativa :  retirar los botones de Borland\n\n Ambas alternativas  fueron probadas  y son totalmente operativas\n\nGracias a ambos \n\nSeguro nos vemos en algun otro tema  en mi conversion de 16Bits a 32 Bits\n\nLubin','',0,'AIA=','1ubpzzq5',1,0,'',348,0,0),(30918,6853,3,924,0,'151.81.7.82',1177973829,1,0,1,1,1,0,'','How get message from dbx (Outlook Express)','Hi, i  need to know all the folders and messages  in the outlook express or microsoft outlook or more in general in the default mail of pc.\n\nI found the following exampe for microsoft outlook and in tried to implement it.\n\n****************************\noOL := TOleAuto():New( \"Outlook.Application\" ) \nlOutlookOK := .T. \nIF ! lOutlookOK \nRETURN ( 0 ) \nENDIF \n\noNameSpace = oOL:Get( \"GetNameSpace\", \"MAPI\" ) \noContacts = oNameSpace:Get( \"GetDefaultFolder\", \"6\" ) // 6 = Inbox-Folder \n\nFOR nContador = 1 TO oContacts:ITEMS:Count() \noNewContact = oContacts:ITEMS( nContador ) \ncSenderName := oNewContact:get( \"SenderName\" ) \ncSubject := oNewContact:get( \"Subject\" ) \n\ncBody := oNewContact:get( \"Body\" )\nNEXT nContador \nRETURN NIL \n********************\n\nof course i dont know how to complete it.\nI need for example to have all the folders of default mail (express/outlook/other) and the message and all the other information from an email/msg\n\nTks\nRomeo','',0,'AIA=','lbem72ze',1,0,'',924,0,0),(30919,6815,6,237,0,'201.213.111.6',1177975660,1,0,1,1,1,0,'','Error con xHarbour','Antonio:\n\nDescargue la version que indicaron para xharbour pero me da el siguiente error:\n\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from ADORDD.LIB\n\nSaludos!\n\nAlejandro Cebolido\n\nFeliz dia del trabajo!','',0,'AIA=','3d7v9d92',1,0,'',237,0,0),(30920,6815,6,2,0,'87.218.146.84',1177976075,1,0,1,1,1,1,'','','Alejandro,\n\nCompila adordd.prg con xharbour y enlaza el OBJ resultante en vez de la librería\n\nLa librería que está en el fichero ZIP es para Harbour','',0,'AIA=','949nkwe1',1,0,'',2,0,0),(30921,6853,3,303,0,'72.199.41.171',1177976800,1,0,1,1,1,0,'','','Romeo,\n\nOutlook Express is not OLE capable.\n\nJames','',0,'AIA=','2j97adi7',1,0,'',303,0,0),(30922,6846,6,694,0,'200.189.112.21',1177978978,1,0,1,1,1,1,'','','Rossine, vc me surpreende! parabens !\n\nAoki\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3lfhadd1',1,0,'',694,0,0),(30923,6845,6,694,0,'200.189.112.21',1177979160,1,0,1,1,1,1,'','','pois é meu amigo, porém na minha XBROWSE este metodo não esta disponivel né?\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n\nAoki','',0,'AIA=','1v0lyvqy',1,0,'',694,0,0),(30924,6846,6,694,0,'200.189.112.21',1177980755,1,0,1,1,1,1,'','','Rossine ao clicar sobre o HEADER esta acontecendo este erro:\n\n\nApplication\n===========\n   Path and name: C:\\genesis\\genesis.Exe (32 bits)\n   Size: 3,179,008 bytes\n   Time from start: 0 hours 0 mins 28 secs \n   Error occurred at: 30/04/2007, 22:01:05\n   Error description: Error BASE/1066  Argument error: conditional\n   Args:\n     [   1] = A   { ... }\n\nStack Calls\n===========\n   Called from: XBROWSE.PRG =&gt; TXBRWCOLUMN:HEADERLBUTTONDOWN(4054)\n   Called from: XBROWSE.PRG =&gt; TXBROWSE:LBUTTONDOWN(2177)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TXBROWSE:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3165)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; RECCOM(209)\n   Called from: PRO138.PRG =&gt; (b)PRO138(70)\n   Called from: BUTTON.PRG =&gt; TBUTTONBMP:CLICK(0)\n   Called from: BUTTON.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: BUTTONB.PRG =&gt; TBUTTONBMP:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3165)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: PRO138.PRG =&gt; PRO138(78)\n   Called from: genesis.PRG =&gt; (b)PREPARAMENU(668)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: window.prg =&gt; TWINDOW:COMMAND(934)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3165)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TWINDOW:ACTIVATE(883)\n   Called from: genesis.PRG =&gt; MAIN(395)\n\n\nAoki','',0,'','2kv0n1cd',1,0,'',694,0,0),(30925,6846,6,104,0,'200.141.37.9',1177982314,1,0,1,1,1,0,'','','Olá Aoki\n\nIsto \"oBrw:lAllowColSwapping := { .F. , .T., .F., .T., .F., .T. }\" só vai funcionar na versão que eu estou preparando. Esqueci de falar isto (hehe)\n\nAbraços,\n\nRossine.','',0,'','10o0cxjd',1,0,'',104,0,0),(30926,6845,6,104,0,'200.141.37.9',1177982585,1,0,1,1,1,0,'','','Pois é ...\n\nMais uma vez esqueci de dizer que este recurso estará disponível nas proximas modificações que estou fazendo  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEm breve (hehe)\n\nAbraços,\n\nRossine.','',0,'','12nqipz2',1,0,'',104,0,0),(30927,6815,6,644,0,'200.82.28.65',1177982846,1,0,1,1,1,0,'','','Al intentar compilar aparecen estos errores de la lib usrrrdd.lib\nError: Unresolved external \'_hb_itemGetSymbol\' referenced from C:\\ADO1\\USRRDD.LI\n\nB|usrrdd\nError: Unresolved external \'_hb_itemMove\' referenced from C:\\ADO1\\USRRDD.LIB|usr\nrdd\nError: Unresolved external \'_hb_xvmPopLogical\' referenced from C:\\ADO1\\USRRDD.LI\nB|usrrdd\nError: Unresolved external \'_hb_xvmPushLocalByRef\' referenced from C:\\ADO1\\USRRD\nD.LIB|usrrdd\n\n** error 2 ** deleting mysql1.exe\n\nAlguna idea. Gracias por todo','',0,'','24n9mxca',1,0,'',644,0,0),(30928,5567,6,348,0,'190.40.139.132',1177992000,1,0,1,1,1,0,'','Re: Menus tipo office 2003 y XP','Buenas tardes\n\n\nHe tratado de ubicar esta clase tan interesante, pero  no me ha sido posible ubicarla, utilizo BCC55, Harbour y FWH\n\n podrian indicarme  donde encontrarla   o en todo caso como compilar las Fuentes  que se incluyen en el enlace\n\n\nGracias\n\nLubin','',0,'','1xbvmcxy',1,0,'',348,0,0),(30929,6814,3,1037,0,'89.216.240.32',1177994584,1,0,1,1,1,1,'','Explantion','Where I can read good explanation of USRRDD ?','',0,'','giqrfcv6',1,0,'',1037,0,0),(30930,6815,6,54,0,'189.132.119.193',1177996623,1,0,1,1,1,1,'','','Horacio,\n\nPuedes bajar el archivo usrrdd.c desde el cvs de harbour e incluyelo como parte del proyecto en tu ejemplo.\n\nlo uso sin problemas.\n\nahora, no puedo accesar a mysql, con access va bien.\n\nsigo checando.','',0,'','iunv25f3',1,0,'',54,0,0),(30931,6815,6,2,0,'87.218.146.84',1177997058,1,0,1,1,1,1,'','','William,\n\nEl ejemplo mysql1.prg que proporcionamos, aquí funciona bien','',0,'','1zvza13a',1,0,'',2,0,0),(30932,6814,3,2,0,'87.218.146.84',1177997288,1,0,1,1,1,1,'','','There is no a good explanation of it,\n\nYou have to read the source, make tests and search...','',0,'','1hb21lh4',1,1177998132,'',2,1,0),(30933,6814,3,1037,0,'89.216.240.32',1177997496,1,0,1,1,1,1,'','','<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> I do it, I try way to build dbcreate','',0,'','iiy41usd',1,0,'',1037,0,0),(30934,6814,3,1037,0,'89.216.240.32',1177998943,1,0,1,1,1,1,'','dbCreate','Which function execute when dbcreate execute (aMyFunc[ UR_CREATE]) ?','',0,'','1jbvtiu4',1,0,'',1037,0,0),(30935,6726,3,148,0,'196.205.176.132',1178001696,1,0,1,1,1,0,'','','You can try my other mails :\n<!-- e --><a href=\"mailto:ehab_aziz2001@yahoo.com\">ehab_aziz2001@yahoo.com</a><!-- e -->\n<!-- e --><a href=\"mailto:ehabaziz2001@techemail.com\">ehabaziz2001@techemail.com</a><!-- e -->','',0,'','8fcfhdrg',1,0,'',148,0,0),(30936,6814,3,2,0,'87.218.146.84',1178002410,1,0,1,1,1,1,'','','test it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3nte9yiy',1,0,'',2,0,0),(30937,6814,3,2,0,'87.218.146.84',1178002533,1,0,1,1,1,1,'','','[code:33q6ollm]\n2007-05-01 08&#58;48 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;ch\n   * contrib/adordd/adordd&#46;prg\n     * LOCATE and CONTINUE support\n     \n   + contrib/adordd/mysql3&#46;prg\n     * MySQL LOCATE and CONTINUE sample \n[/code:33q6ollm]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','33q6ollm',1,0,'',2,0,0),(30938,6815,6,2,0,'87.218.146.84',1178002605,1,0,1,1,1,1,'','','[code:3ojzaolh]\n2007-05-01 08&#58;48 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;ch\n   * contrib/adordd/adordd&#46;prg\n     * LOCATE and CONTINUE support\n     \n   + contrib/adordd/mysql3&#46;prg\n     * MySQL LOCATE and CONTINUE sample \n[/code:3ojzaolh]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','3ojzaolh',1,1178012914,'',2,1,0),(30939,6837,3,29,0,'88.149.160.254',1178004544,1,0,1,1,1,0,'','','Hi,\nI tried adding that code in the resize routine (see below)\nbut it doesn\'t runs.\n\n****\n\nfunction ridimensiona(oWnd,oSplit,oBrw,oFld,oBtn,oCbx)\n\nlocal i\n\noSplit:nFirst=oWnd:nWidth()-oSplit:nWidth-300\noFld:Move(90,oSplit:nFirst+oSplit:nWidth,oWnd:nHeight-200-60,100,.t.)\noBrw:Move(85,05,oSplit:nFirst-10,oWnd:nHeight-200-60,.t.)\noBtn:Move(oWnd:nHeight()-120,05,90,25,.t.)\noCbx:Move(oWnd:nHeight()-160,05,oSplit:nFirst-60-20,100,.t.)\n\noSplit:ADjClient()\n\nfor i:=1 to 2\n    oFld:aDialogs[i]:nWidth:=oFld:nWidth-7\n    oFld:aDialogs[i]:nHeight:=oFld:nHeight-28\nnext\n\nreturn nil\n\n************\n\nAny ideas ?\n\nMarco','',0,'','d1fdooqk',1,0,'',29,0,0),(30940,6814,3,54,0,'189.132.119.193',1178009231,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:39f66qxo][code:39f66qxo]\n2007-05-01 08&#58;48 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;ch\n   * contrib/adordd/adordd&#46;prg\n     * LOCATE and CONTINUE support\n     \n   + contrib/adordd/mysql3&#46;prg\n     * MySQL LOCATE and CONTINUE sample \n[/code:39f66qxo]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->[/quote:39f66qxo]\n\nAntonio,\n\nhe hecho pruebas cen mysql.\n\naparentemente todo funciona de maravillas.\n\nPero, cuando cargo una tabla de aprox. 2000 registros, lanza un error de E_FAIL:RECCOUNT, y desde luego, se cae el EXE.\n\nsaludos','',0,'gIA=','39f66qxo',1,0,'',54,0,0),(30941,6815,6,54,0,'189.132.119.193',1178009390,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:28g0g4mi]William,\n\nEl ejemplo mysql1.prg que proporcionamos, aquí funciona bien[/quote:28g0g4mi]\n\nEfectivamente funciona sin problemas.\n\ngracias.\n\npor cierto, sigo haciendo pruebas con tablas mayores a 2,000 filas','',0,'gA==','28g0g4mi',1,0,'',54,0,0),(30942,6815,6,54,0,'189.132.119.193',1178010233,1,0,1,1,1,1,'','','Esta tabla aun con una fila, truena.\n\nCREATE TABLE `archivo1` (                \n           `clave` varchar(18) NOT NULL,         \n           `folio` varchar(14) NOT NULL,         \n           `fregistro` date NOT NULL,            \n           `nombre` varchar(30) NOT NULL,        \n           PRIMARY KEY  (`clave`)                \n         ) ENGINE=InnoDB DEFAULT CHARSET=latin1\n\ny está funciona bien.\n\nCREATE TABLE `archivo2` (                \n           `clave` varchar(18) NOT NULL,         \n           `folio` varchar(14) NULL,         \n           `fregistro` date NOT NULL,            \n           `nombre` varchar(30) NULL,        \n           PRIMARY KEY  (`clave`)                \n         ) ENGINE=InnoDB DEFAULT CHARSET=latin1\n\nla diferencia es NOT NULL, NULL\n\nalgún comentario al respecto?','',0,'gA==','zu6rv9lh',1,0,'',54,0,0),(30943,6814,3,1037,0,'89.216.240.32',1178010411,1,0,1,1,1,1,'','dbCreate','Hello Antonio,\n\nI build dbCreate for ADORDD and send to you with small sample.\n\nBut I think you must first connect to database and next commands can be \n\nUSE\ndbCreate\netc..\n\nIF dbCreate is first command Harbour don\'t know which connection in use\n\nBest regards\nSrdjan','',0,'gA==','2mjiyt2k',1,0,'',1037,0,0),(30944,6814,3,2,0,'87.218.146.84',1178011749,1,0,1,1,1,1,'','','William,\n\nWe are going to do some tests with many records, thanks','',0,'gA==','22dgmof1',1,0,'',2,0,0),(30945,6814,3,2,0,'87.218.146.84',1178011914,1,0,1,1,1,1,'','','Srdjan,\n\nWe are considering to use a special string, so DbCreate() may be issued without a USE:\n\nThis is an idea: DbCreate( \"DBName;TableName;MYSQL\", ... )\n\nIf I am not wrong, DbCreate() just creates it. It does not open the table <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','616r5beo',1,0,'',2,0,0),(30946,6814,3,1037,0,'89.216.240.32',1178012309,1,0,1,1,1,1,'','dbCreate','Antonio,\nyour opinion is good (not wrong) but if we use client/server natural is connect client on server. you must follow this idea : client -&gt; server\nin all case I follow you but I like suggesting <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSrdjan','',0,'gA==','303j23vi',1,0,'',1037,0,0),(30947,6814,3,2,0,'87.218.146.84',1178012744,1,0,1,1,1,1,'','','Srdjan,\n\nAll suggestions are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','n51t7i2v',1,0,'',2,0,0),(30949,6829,3,425,0,'83.132.14.220',1178017947,1,0,1,1,1,0,'','Treport','Hi James\n\nTanks for all\n\nit works fine now.\n\nregards\n                Pedro','',0,'gA==','3jnv8cog',1,0,'',425,0,0),(30953,6837,3,2,0,'87.218.146.84',1178022423,1,0,1,1,1,1,'','','Marco,\n\nWhats the problem in this sample ?\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/splitter.png\">www.softwarexp.co.uk/beta/splitter.png</a><!-- w --> \n\nIt looks fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','18nn4a9n',1,0,'',2,0,0),(30954,6854,3,904,0,'196.25.255.194',1178025436,1,0,1,1,1,1,'','Email with Attachments','[code:16pimss1]\nIF FILE&#40; DEFPATH&#40;&#41; + cFile &#41;\n      DEFINE MAIL oMail SUBJECT cSubject ;\n             TEXT cBody ;\n             TO cName , cEmail ;\n             FILES DEFPATH&#40;&#41; + cFile, cFilename ;\n             FROM USER\n      ACTIVATE MAIL oMail\nELSE\n      ? DEFPATH&#40;&#41; + cFile+&quot; not found&quot;\nENDIF\n[/code:16pimss1]\n\nCan I use this command (or class) with arrays aFile instead of cFile and cFilename  and  aRecipients instead of cName and cEmail.\n\nI need to send multiple emails and/or files to my procedure.','',0,'AIA=','16pimss1',1,0,'',904,0,0),(30955,6854,3,308,0,'84.148.16.46',1178027714,1,0,1,1,1,0,'','Re: Email with Attachments','[quote=&quot;Ollie&quot;:17m7bqxv][code:17m7bqxv]\nIF FILE&#40; DEFPATH&#40;&#41; + cFile &#41;\n      DEFINE MAIL oMail SUBJECT cSubject ;\n             TEXT cBody ;\n             TO cName , cEmail ;\n             FILES DEFPATH&#40;&#41; + cFile, cFilename ;\n             FROM USER\n      ACTIVATE MAIL oMail\nELSE\n      ? DEFPATH&#40;&#41; + cFile+&quot; not found&quot;\nENDIF\n[/code:17m7bqxv]\n\nCan I use this command (or class) with arrays aFile instead of cFile and cFilename  and  aRecipients instead of cName and cEmail.\n\nI need to send multiple emails and/or files to my procedure.[/quote:17m7bqxv]\n\nHello Ollie,\n\nuse this sample:\n[code:17m7bqxv]\n     aadd&#40;aFiles,&#123;file_with_path, only_filename&#125;&#41;\n     aadd&#40;aFiles,&#123;file_with_path, only_filename&#125;&#41;\n     aadd&#40;aFiles,&#123;file_with_path, only_filename&#125;&#41;\nREM Example&#58; aadd&#40;aFiles,&#123;&quot;C&#58;\\TEMP\\FILE1&#46;ZIP&quot;, &quot;FILE1&#46;ZIP&quot;&#125;&#41;\nREM Example&#58; aadd&#40;aFiles,&#123;&quot;C&#58;\\TEMP\\FILE2&#46;ZIP&quot;, &quot;FILE2&#46;ZIP&quot;&#125;&#41;\n      IF Len&#40; aFiles &#41; &gt; 0\n         oMail&#58;aFiles &#58;= aFiles\n      ENDIF\n      ACTIVATE MAIL oMail\n[/code:17m7bqxv]\n\nRegards, Norbert','',0,'gIA=','17m7bqxv',1,0,'',308,0,0),(30956,6808,1,981,0,'70.55.104.69',1178031028,1,0,1,1,1,0,'','win error (3)','Why if l did this it is functionning\n\nexetype tutor08.exe 3.95','',0,'gIA=','3az25qii',1,0,'',981,0,0),(30957,6814,3,1037,0,'89.216.240.32',1178031412,1,0,1,1,1,1,'','GetValue','This change for correct GetValue if database is empty\n \nSTATIC FUNCTION ADO_GETVALUE( nWA, nField, xValue )\n\n   LOCAL aWData := USRRDD_AREADATA( nWA )\n   LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   IF aWData[ 3 ]\n      xValue := \"\"\n   ELSE\n      IF oADO:BOF .AND. oADO:EOF\n         xValue := NIL\n      ELSE\n         xValue := oADO:Fields( nField - 1 ):Value\n      ENDIF\n   ENDIF\n\nRETURN SUCCESS','',0,'','246oe3f1',1,0,'',1037,0,0),(30958,6855,3,6,0,'82.57.160.43',1178035159,1,0,1,1,1,1,'','Printing a rich edit control','How to get a printout equal to what I see on the rich edit control? I\'m using testrtf.prg/testrtf.rtf sample but the printed text gets a different formatting.\n\nEMG','',0,'','2856m0m3',1,0,'',6,0,0),(30959,6856,3,904,0,'196.25.255.250',1178035975,1,0,1,1,1,1,'','TSMTP Class with HTML','I am having fun with the TSMTP class. Is it possible to send an HTML email like I can with TMAIL by having no cBody and attaching an HTML file?\n\nThis isn\'t working:\n\n[code:265evn7u]\nfunction SendMail&#40;oWnd&#41;\n\n   local oOutMail, cIP\n\n   oWnd&#58;SetMsg&#40; &quot;Sending Internet email&#46;&#46;&#46;&quot; &#41;\n\n   WSAStartup&#40;&#41;\n   oOutMail &#58;= TSmtp&#40;&#41;&#58;New&#40; cIP &#58;= GetHostByName&#40; &quot;smtp&#46;saix&#46;net&quot; &#41; &#41;\n//   MsgInfo&#40; cIP &#41;\n   oOutMail&#58;bConnecting = &#123; || oWnd&#58;SetMsg&#40; &quot;Connecting to smtp&#46;saix&#46;net&#46;&#46;&#46;&quot; &#41; &#125;\n   oOutMail&#58;bConnected  = &#123; || oWnd&#58;SetMsg&#40; &quot;Connected&quot; &#41; &#125;\n   oOutMail&#58;bDone       = &#123; || oWnd&#58;SetMsg&#40; &quot;Message sent successfully&quot; &#41; &#125;   //else The message Sent ALERT - is automatic&#46;\n\n   oOutMail&#58;SendMail&#40; &quot;ollie@theoasis&#46;co&#46;za&quot;,;     // From\n   &#123; &quot;support@theoasis&#46;co&#46;za&quot; &#125;,; // To\n      &quot;&quot;,;              // Msg Text\n                      &quot;Quote &quot;+DTOC&#40;DATE&#40;&#41;&#41;+&quot; &quot;+LEFT&#40;TIME&#40;&#41;,5&#41;,;\n                       &#123; DEFPATH&#40;&#41; + &quot;QUOLLIE&#46;HTM&quot; &#125; &#41;\n\n//                      &#123; &quot;testsmtp&#46;prg&quot;, &quot;testsmtp&#46;zip&quot; &#125; &#41;  // attached files\n\nreturn nil[/code:265evn7u]','',0,'AIA=','265evn7u',1,0,'',904,0,0),(30960,6837,3,29,0,'88.149.160.254',1178036231,1,0,1,1,1,0,'','','The problem is that the folder color has to be white and not gray.\nWhen the folder\'s pages are loaded from resource the folder pages doesn\'t appairs with the XP theme manager color.\n\nThis is a correct folder image :\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/correct.png\">www.softwarexp.co.uk/beta/correct.png</a><!-- w -->\n\nMarco','',0,'AIA=','3q9kys9u',1,0,'',29,0,0),(30961,6857,3,904,0,'196.25.255.214',1178036492,1,0,1,1,1,1,'','Retrieve C:\\Documents and Settings\\&lt;profilename&gt;','C:\\Documents and Settings\\&lt;profilename&gt;\\Application Data\\Microsoft\\Stationery\n\nWhat is the function to retrieve the &lt;profilename&gt; as in the path above?','',0,'AIA=','3sf8v9wm',1,0,'',904,0,0),(30962,6814,3,1037,0,'89.216.240.32',1178036960,1,0,1,1,1,1,'','dbAppend','STATIC FUNCTION ADO_APPEND( nWA, lUnLockAll )\n\n        local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n        oADO:AddNew()\n        TRY\n            oADO:Update() // keep it here, or there is an ADO error\n        CATCH\n        END\n\nRETURN SUCCESS\n\nMust add code TRY/CATCH if oADO:Update() create error','',0,'','usxh9mzz',1,0,'',1037,0,0),(30963,6814,3,1037,0,'89.216.240.32',1178038561,1,0,1,1,1,1,'','dbCreate','// Creating fields for new DBF - dbCreate() in current workarea\nSTATIC FUNCTION ADO_CREATEFIELDS( nWA, aStruct )\n   LOCAL aWData   := USRRDD_AREADATA( nWA )\n\n   aWData[ 1 ] := { ;\n          NIL   ,; // DATABASE_FILENAME\n          {}    ,; // DATABASE_RECORDS\n          {}    ,; // DATABASE_RECINFO\n          0     ,; // DATABASE_OPENNUMBER\n          FALSE ,; // DATABASE_LOCKED\n          aStruct; // DATABASE_STRUCT\n        }\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_CREATE( nWA, aOpenInfo )\n   LOCAL aWData := USRRDD_AREADATA( nWA )\n   LOCAL aRData := USRRDD_RDDDATA( USRRDD_ID( nWA ) )\n   LOCAL aField, oError, cName\n   LOCAL cFullName, aDBFData\n   LOCAL cCMD := \"CREATE TABLE \"\n   Local aStruct, I\n\n\n   /* getting database infos from current workarea */\n   aDBFData  := aWData[ 1 ]\n   aStruct := aWData[ 1 ][ 6 ]\n\n   /* setting in uppercase chars to avoid differences */\n   cFullName := Upper( aOpenInfo[ UR_OI_NAME ] )\n\n   // When there is no ALIAS we will create new one using file name\n   IF aOpenInfo[ UR_OI_ALIAS ] == NIL\n      HB_FNAMESPLIT( cFullName, , @cName )\n      aOpenInfo[ UR_OI_ALIAS ] := cName\n   ENDIF\n\n   // Check if database is already present in memory slots\n   IF !( cFullName IN aRData )\n\n      // Setting file attribs\n      aDBFData[ 1 ] := cFullName\n      aDBFData[ 5 ] := TRUE      /* I need Exclusive mode in creation */\n\n      cCMD += cFullName+\" ( \"\n      FOR I=1 TO LEN( aStruct )\n          cCMD += aStruct[i,1]+\" \"\n          IF aStruct[i,2]==\"C\"\n             cCMD += \"VARCHAR(\"+ALLTRIM(STR(aStruct[i,3]))+\")\"\n          ELSEIF aStruct[i,2]==\"M\"\n             cCMD += \"VARCHAR(\"+ALLTRIM(STR(aStruct[i,3]))+\")\"\n          ELSEIF aStruct[i,2]==\"N\"\n             cCMD += \"NUMERIC(\"+ALLTRIM(STR(aStruct[i,3]))+\",\"+ALLTRIM(STR(aStruct[i,4]))+\" )\"\n          ELSEIF aStruct[i,2]==\"D\"\n             cCMD += \"DATE\"\n          ENDIF\n          IF i==LEN(aStruct)\n             cCMD += \" )\"\n          ELSE\n             cCMD += \", \"\n          ENDIF\n      NEXT I\n\n      if s_cConnection != NIL\n         TRY\n           s_cConnection:Execute( \"DROP TABLE \"+cFullName )\n         CATCH\n         END\n         TraceLog( cCMD )\n         s_cConnection:Execute( cCMD )\n      endif\n\n      // Adding new database in RDD memory slots using filename as key\n\n   ELSE\n\n      // ERROR: database already exists\n\n      oError := ErrorNew()\n\n      oError:GenCode     := EG_CREATE\n      oError:SubCode     := 1004  // EDBF_CREATE_DBF\n      oError:Description := HB_LANGERRMSG( EG_CREATE ) + \" (\" + ;\n                            HB_LANGERRMSG( EG_UNSUPPORTED ) + \" - database already exists)\"\n      oError:FileName    := aOpenInfo[ UR_OI_NAME ]\n      oError:CanDefault  := .T.\n      UR_SUPER_ERROR( nWA, oError )\n\n      RETURN FAILURE\n\n   ENDIF\n\n   // Set WorkArea Info\n   aWData[ 3 ] := aOpenInfo // Put open informations\n\n   // increase open number\n   aDBFData[ 4 ]++\n\nRETURN SUCCESS\n\nAdd this code in ADORDD.PRG\n\n   aMyFunc[ UR_CREATE ]    := ( @ADO_CREATE() )\n   aMyFunc[ UR_CREATEFIELDS ] := ( @ADO_CREATEFIELDS() )\n\nAdd this two line into FUNCTION ADORDD_GETFUNCTABLE( pFuncCount, pFuncTable, pSuperTable, nRddID )\n\nTest it ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\ndbCreate is work <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3cqg753x',1,0,'',1037,0,0),(30964,6815,6,940,0,'189.157.84.245',1178038978,1,0,1,1,1,1,'','','Willian M.\n\nA mi tambien me pasa lo mismo, yo quise levantar un contenedor de tablas,\n\ncreada desde codigo con la tmysql,  \n\nmarca error al momento de seleccionar la tabla  select * from contactos,\n\neso me trajo loco por un rato, \n\npero despues cree un contenedor desde cero,  con MySql TurboManager,\n\ny le agregue un registro, y fue la forma que pude ejecutar un ejemplo con \n\nel nuevo RDDADO, \n\nComo dice Fenando,  tenemos que acoplarnos con el modelo ADO\n\n\nsaludos,  cordiales,','',0,'','1zxmxzzd',1,0,'',940,0,0),(30966,6814,3,2,0,'87.218.146.189',1178043314,1,0,1,1,1,1,'','','Srdjan,\n\nWe are going to implement it in a different way. \n\nWe plan to publish it today <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','32whgve9',1,0,'',2,0,0),(30967,6808,1,2,0,'87.218.146.189',1178043624,1,0,1,1,1,1,'','','Are you using Microsoft Link.exe or Blinker to create the EXE ?','',0,'','3dl6gjva',1,0,'',2,0,0),(30968,6814,3,1037,0,'89.216.240.32',1178043656,1,0,1,1,1,1,'','ADORDD','OK <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','3b8qnx3l',1,0,'',1037,0,0),(30969,6068,6,348,0,'201.230.0.93',1178043901,1,0,1,1,1,0,'','Re: Confundido...','Hola Leon\n\nQuizas te pueda dar unas ideas al respecto, pues hace poco me sucedia lo mismo,  dale una verificada a este link del foro,  fue una ayuda que recibi\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6791\">http://fivetechsoft.com/forums/viewtopic.php?t=6791</a><!-- m -->\n\nSuerte \nLubin','',0,'','31cvrvln',1,0,'',348,0,0),(30970,6858,3,904,0,'196.25.255.194',1178046877,1,0,1,1,1,1,'','Email multiple recipients.','[code:21kk8lq9]\ncTo&#58;=&quot;ollie@theoasis&#46;co&#46;za; support@theoasis&#46;co&#46;za;&quot;\nDEFINE MAIL oMail SUBJECT cSubject ;\n             TEXT cBody ;\n             TO cTo ;\n             FROM USER   \nACTIVATE MAIL oMail\n[/code:21kk8lq9]\n\nThis doesn\'t allow me to send to multiple recipients. How can I do it?','',0,'AIA=','21kk8lq9',1,0,'',904,0,0),(30971,6859,3,909,0,'71.71.110.50',1178047797,1,0,1,1,1,1,'','Multiline Folders','Antonio - \nI have been able to get very nice multiline folders from resources with only some minor changes to Tfolder and by adding a function called TabGetRowcount() to tabctrl.c that I got from Rossine\'s modified sample file.  No changes are needed in the redefine class, as the style is controled by the resources.  All you need to do is to add \"TCS_MULTILINE\" to the style in the .RC file and windows does it automatically.  \n\nThe only problen I have with this is when I use the RESIZE16 clause.  When I do this, none of the controls on the first folder page appear.  Clicking on the tab does bring the controls.  Or, if I call one of the pages on the second row by setting the option to 5 on INIT, for example, the dialog[5] appears on the front row with all of it\'s controls.  Any of the rear pages appear on the front with controls, and none of the first row pages that are called by the option method appear with their controls.  \n\nI\'ve looked at dialog.prg where the initiate method does the resize16 work, but I wouldn\'t know where to start to fix it.  If anybody has any ideas on this I would like to hear them.  \n\nRegards,\nCharles','',0,'','373twfw8',1,0,'',909,0,0),(30972,6815,6,54,0,'189.132.109.185',1178049750,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:3p249rrd]Willian M.\n\nA mi tambien me pasa lo mismo, yo quise levantar un contenedor de tablas,\n\ncreada desde codigo con la tmysql,  \n\nmarca error al momento de seleccionar la tabla  select * from contactos,\n\neso me trajo loco por un rato, \n\npero despues cree un contenedor desde cero,  con MySql TurboManager,\n\ny le agregue un registro, y fue la forma que pude ejecutar un ejemplo con \n\nel nuevo RDDADO, \n\nComo dice Fenando,  tenemos que acoplarnos con el modelo ADO\n\n\nsaludos,  cordiales,[/quote:3p249rrd]\n\nsysctrl,\n\nLa dfiferencia es en incluirle NOT NULL y NULL a la creación de las tablas.\n\nSi se le incluye NOT NULL, ahi es donde truena, con NULL no pasa nada, y funciona al 100%.\n\nla cantidad de registros no es problema, mas bien es la manera en que se crean las tablas.','',0,'gA==','3p249rrd',1,0,'',54,0,0),(30973,6860,6,348,0,'201.230.0.93',1178049943,1,0,1,1,1,0,'','Color a Get desHabilitados en Harbour','Buen Dia para todos\n\nDesearia cambiar el color de los GETs  que se encuentran DESHABILITADOS (Ejem. WHEN .f.)  en Harbour,  de preferencia  quizas hacerlo globalmente  cambiando el la Clase TGEts\n\nLes comentare que algo asi hice para cambiar en todo el sistema el Color del Get que tiene el Foco de edicion por ejemplo a amarillo, asi el usuario sabe donde digita...  pues ahora deseo que vea de otro color el Get Deshabilitado\n\n\nHarbour + FWH2.5 + BCC55\nGracias\n\nLubin','',0,'gA==','2hajwkzh',1,0,'',348,0,0),(30974,6815,6,940,0,'189.157.84.245',1178051755,1,0,1,1,1,1,'','','Ha mira, buena observacion,\n\n\nvoy a probar modificando las tablas como lo comentas\n\n\ngracias Wilian  y saludos, a tabasco,','',0,'gA==','yiqzl89x',1,0,'',940,0,0),(30975,6814,3,2,0,'87.218.146.218',1178053241,1,0,1,1,1,1,'','','[code:cjel9xds]\n2007-05-01 22&#58;53 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * DbCreate&#40;&#41; implementation just for Microsoft Access\n\n   + contrib/adordd/access2&#46;prg\n     * DbCreate&#40;&#41; sample with Microsoft Access\n[/code:cjel9xds]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','cjel9xds',1,0,'',2,0,0),(30976,6815,6,2,0,'87.218.146.218',1178053329,1,0,1,1,1,1,'','','[code:f7zola8u]\n2007-05-01 22&#58;53 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * DbCreate&#40;&#41; implementation just for Microsoft Access\n\n   + contrib/adordd/access2&#46;prg\n     * DbCreate&#40;&#41; sample with Microsoft Access\n[/code:f7zola8u]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','f7zola8u',1,0,'',2,0,0),(30977,6815,6,2,0,'87.218.146.218',1178056407,1,0,1,1,1,1,'','','Nuestra idea para implementar DbCreate() para ADO con cualquier motor de bases de datos es usarlo así:\n[code:2i1x3al7]\n   DbCreate&#40; &quot;test00;test;MYSQL;www&#46;freesql&#46;org;myuser;mypass&quot;,;\n             &#123; &#123; &quot;FIRST&quot;, &quot;C&quot;, 10, 0 &#125;,;\n               &#123; &quot;LAST&quot;,  &quot;C&quot;, 10, 0 &#125;,;\n               &#123; &quot;AGE&quot;,   &quot;N&quot;,  8, 0 &#125; &#125;, &quot;ADORDD&quot; &#41;\n[/code:2i1x3al7]','',0,'AIA=','2i1x3al7',1,0,'',2,0,0),(30978,6814,3,2,0,'87.218.146.218',1178056455,1,0,1,1,1,1,'','','Our idea to implement DbCreate() for any ADO database engine is to use it this way:\n[code:23s5j1bu]\n   DbCreate&#40; &quot;test00;test;MYSQL;www&#46;freesql&#46;org;myuser;mypass&quot;,;\n             &#123; &#123; &quot;FIRST&quot;, &quot;C&quot;, 10, 0 &#125;,;\n               &#123; &quot;LAST&quot;,  &quot;C&quot;, 10, 0 &#125;,;\n               &#123; &quot;AGE&quot;,   &quot;N&quot;,  8, 0 &#125; &#125;, &quot;ADORDD&quot; &#41;\n[/code:23s5j1bu]','',0,'AIA=','23s5j1bu',1,0,'',2,0,0),(30979,6815,6,1013,0,'190.42.33.125',1178063176,1,0,0,1,1,0,'','','Estimados\n\nEstoy tratando de compilar el demo pero me sale el siguente error\n\nUnresolved External \'_HB_FUN_HB_TOKENGET\'\nUnresolved External \'_HB_FUN_TOLEAUTO\'\nreferenciando al ADORDD\n\nutilizo FWH y HARBOUR\n\nGracias,\n\nMarcelo','',0,'AIA=','sneijxl8',1,0,'',1013,0,0),(30980,6815,6,2,0,'87.218.146.218',1178063353,1,0,1,1,1,1,'','','Marcelo,\n\nTienes que enlazar la librería HBOleAut.lib que se incluye en el ZIP.\n\nLa función HB_TokenGet() es una función nueva de Harbour. Descarga un build más reciente de Harbour desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'AIA=','3yjbq1nh',1,0,'',2,0,0),(30981,6815,6,940,0,'189.157.84.245',1178063814,1,0,1,1,1,1,'','','Sr. Antonio,\n\nquiere usted decir  que la funcion hb_tokenGet() \n\nno esta disponible para xharbour.org   ?\n\ncual podriamos usar en su lugar ?\n\nsaludos cordiales.','',0,'AIA=','1zism0o3',1,0,'',940,0,0),(30982,6861,7,840,0,'190.76.30.124',1178072360,1,0,1,1,1,0,'','PROBLEMAS ABRIENDO ARCHIVOS SHARED CON INDEX','SALUDOS\n\nQUIEN TIENE UN PROGRAMA QUE FUNCIONE ABRIENDO ARCHIVOS COMPARTIDOS (SHARED) CON INDICES (INDEX).\n\nHE PROBADO MI PROGRAMA CON WINDOWS MOBILE 5 Y NO FUNCIONA\n\nLO PROVE CON EL EMULADOR WINDOWS MOBILE 6 Y NO FUNCIONA\nTEMAPOCO.\n\nGRACIAS POR SU AYUDA.\n\nDARIO FERREIRA.','',0,'AIA=','ckhmh9me',1,0,'',840,0,0),(30983,6815,6,228,0,'201.244.208.97',1178073451,1,0,1,1,1,1,'','He intentado compilar pero...','Amigos del foro tengan buena noche.....\n\nHe estado intentando compilar el ejemplo.. pero me arroja el siguiente error...\n\nC:\\DLYMAINV\\PRG\\adordd.prg(55) Error F0001  Can\'t open #include file: \'hbusrrdd.ch\'; No such file or directory\n\nAlguien sabe de donde puedo sacar el archivo?\n\nDe antemano gracias','',0,'AIA=','51aw7a8i',1,0,'',228,0,0),(30984,6860,6,228,0,'201.244.208.97',1178073669,1,0,1,1,1,1,'','Amigo...','Si quieres enviame un correo al privado y te hago llegar la clase modificada..','',0,'AIA=','3gi9esde',1,0,'',228,0,0),(30985,5567,6,228,0,'201.244.208.97',1178073753,1,0,1,1,1,1,'','Amigo..','Lo mismo... si quieres enviame un correo al privado y con gusto te la hago llegar..','',0,'AIA=','1km2ga44',1,0,'',228,0,0),(30986,6860,6,348,0,'201.230.0.93',1178077667,1,0,1,1,1,0,'','Re: Amigo...','Leandro\nEstare Atento a tu envio\n\n  <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n\nMuchas gracias \n\nLubin','',0,'AIA=','5h0hobtz',1,0,'',348,0,0),(30987,5567,6,348,0,'201.230.0.93',1178077770,1,0,1,1,1,0,'','Re: Amigo..','Gracias Leandro \n\n<!-- e --><a href=\"mailto:Lubin.am@speedy.com.pe\">Lubin.am@speedy.com.pe</a><!-- e -->\n\nLubin\n\n\n[quote=&quot;leandro&quot;:10szf3g8]Lo mismo... si quieres enviame un correo al privado y con gusto te la hago llegar..[/quote:10szf3g8]','',0,'gA==','10szf3g8',1,0,'',348,0,0),(30988,6815,6,1013,0,'200.106.15.125',1178078345,1,0,0,1,1,0,'','','Gracias Antonio,\n\nMarcelo','',0,'gA==','1sp3rpgr',1,0,'',1013,0,0),(30989,6815,6,54,0,'189.132.100.96',1178079751,1,0,1,1,1,1,'','Re: He intentado compilar pero...','[quote=&quot;leandro&quot;:jsfsd7v1]Amigos del foro tengan buena noche.....\n\nHe estado intentando compilar el ejemplo.. pero me arroja el siguiente error...\n\nC:\\DLYMAINV\\PRG\\adordd.prg(55) Error F0001  Can\'t open #include file: \'hbusrrdd.ch\'; No such file or directory\n\nAlguien sabe de donde puedo sacar el archivo?\n\nDe antemano gracias[/quote:jsfsd7v1]\n\nyo lo tengo, contactáme y te lo hago llegar.\n\npor cierto, lo descargue del CVS de harbour.\n\naunque en xharbour existe uno igual, pero no es hbusrrdd.ch, sino solo usrrdd.ch\n\nsaludos','',0,'gA==','jsfsd7v1',1,0,'',54,0,0),(30990,6860,6,456,0,'217.127.39.57',1178087529,1,0,1,1,1,1,'','','Puedes modificar la linea 11 de la clase tGet\n\n[code:3b8wckoq]\n#define COLOR_GRAYTEXT      17\n[/code:3b8wckoq]\nCambia 17 por el color que tu quieras.','',0,'AIA=','3b8wckoq',1,0,'',456,0,0),(30991,6815,6,2,0,'87.218.146.218',1178089802,1,0,1,1,1,1,'','','Cesar,\n\nEn vez de HB_TokenGet() puedes usar StrToken() de FWH. \n\nUsa los mismos parámetros.','',0,'AIA=','2s0imay2',1,0,'',2,0,0),(30992,6859,3,2,0,'87.218.146.218',1178089952,1,0,1,1,1,1,'','','Charles,\n\nCould you provide us a small and self contained sample ? Thanks,','',0,'AIA=','zryscngk',1,0,'',2,0,0),(30993,6857,3,130,0,'141.51.32.24',1178091129,1,0,1,1,1,0,'','','Ollie,\n\nyou can read the environment\n\n[code:dny3hr3b]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local cValue &#58;= Space&#40; 256 &#41;\n\n //  MsgInfo&#40; GetEnv&#40; &quot;USERPROFILE&quot; &#41; &#41;\n   \n   GetEnvironmentVariable&#40; &quot;USERPROFILE&quot;, cValue, Len&#40; cValue &#41; &#41;\n   \n   MsgInfo&#40; cValue &#41;\n   \nreturn nil\n\nDLL32 FUNCTION GetEnvironmentVariable&#40; cName AS LPSTR, ;\n                                         cValue AS LPSTR, nLen AS LONG &#41; ;\n   AS LONG PASCAL FROM &quot;GetEnvironmentVariableA&quot; LIB &quot;kernel32&#46;dll&quot;  \n[/code:dny3hr3b]\n\nStefan','',0,'AIA=','dny3hr3b',1,0,'',130,0,0),(30995,6837,3,2,0,'87.218.146.218',1178091813,1,0,1,1,1,1,'','','Marco,\n\nFixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:242q9nq9]\nMETHOD LoadPages&#40; aResNames, bRedefineControls &#41; CLASS TFolder\n\n   local n, oDlg\n   local oThis &#58;= Self\n\n   &#58;&#58;DelPages&#40;&#41;\n\n   &#58;&#58;aPrompts = aResNames\n   &#58;&#58;aDialogs = Array&#40; Len&#40; aResNames &#41; &#41;\n\n   for n = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      DEFINE DIALOG oDlg OF Self RESOURCE aResNames&#91; n &#93; ;\n         FONT Self&#58;oFont\n\n      &#58;&#58;aDialogs&#91; n &#93; = oDlg\n\n      if bRedefineControls != nil\n         Eval&#40; bRedefineControls, Self, n &#41;\n      endif\n\n      ACTIVATE DIALOG oDlg NOWAIT ;\n         ON INIT &#40; oDlg&#58;Move&#40; oThis&#58;nFdHeight + 2, 3, oThis&#58;nWidth - 6, oThis&#58;nHeight - oThis&#58;nFdHeight - 5 &#41; &#41; ;\n         VALID &#46;f&#46;                // to avoid exiting pressing Esc !!!\n\n      #ifndef __CLIPPER__\n         if IsAppThemed&#40;&#41;\n            // oDlg&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41;\n            if Empty&#40; oDlg&#58;oBrush&#58;hBitmap &#41;\n               oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n            endif   \n         endif\n      #endif\n\n      oDlg&#58;Hide&#40;&#41;\n   next\n\n   &#58;&#58;nOption = 1\n   &#58;&#58;aDialogs&#91; 1 &#93;&#58;Show&#40;&#41;\n\nreturn nil\n[/code:242q9nq9]','',0,'AIA=','242q9nq9',1,0,'',2,0,0),(30996,6861,7,2,0,'87.218.146.218',1178092172,1,0,1,1,1,1,'','','Dario,\n\nTus DBFs tienen campos memo ?','',0,'AIA=','2co2ey5e',1,0,'',2,0,0),(30997,6837,3,29,0,'88.149.160.254',1178095301,1,0,1,1,1,0,'','','Great !!','',0,'AIA=','32oi5t6f',1,0,'',29,0,0),(30998,6837,3,2,0,'87.218.146.218',1178095502,1,0,1,1,1,1,'','','Marco,\n\nThe loaded pages size is automatically set now, so you don\'t need to set those values <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','didy70p3',1,0,'',2,0,0),(30999,6825,3,86,0,'213.119.103.68',1178099349,1,0,1,1,1,1,'','','Rene,\n\nI\'m sorry but I didn\'t get your email.\n\nPlease could you repost it to me (<!-- e --><a href=\"mailto:michel.driessen@ma-consult.be\">michel.driessen@ma-consult.be</a><!-- e -->) or could you put your email-address in a reply ?\n\nThanks.','',0,'AIA=','lf1pta49',1,0,'',86,0,0),(31000,6860,6,237,0,'200.68.70.90',1178110400,1,0,1,1,1,0,'','otra','Revisando la clase veo que existe una data que es ::lDisColors que arranca en .T., al parecer, di la pones en .F. va a utilizar los mismos colores que si no estuviera deshabilitado.\n\nSaludos!\nAlejandro Cebolido','',0,'AIA=','2ysqdbl9',1,0,'',237,0,0),(31001,6862,6,649,0,'201.2.230.82',1178112176,1,0,1,1,1,1,'','ADS com FW2.8','Unresolved External \"ADSClosCachedTables\" reference Rddads.lib\nUnresolved External \"HB_FUN__ADS\" ...\n\nAtualizei para FW 2.8 e aconteceu estes dois erros.','',0,'AIA=','perz8cgn',1,0,'',649,0,0),(31002,6808,1,981,0,'70.55.104.69',1178113119,1,0,1,1,1,0,'','error win (4)','L am using clipper 5.3c bilnker 4 and fw 2.1','',0,'AIA=','21akikj3',1,0,'',981,0,0),(31003,6862,6,15,0,'203.73.69.85',1178113535,1,0,1,1,1,0,'','Re: ADS com FW2.8','[quote=&quot;kbelo&quot;:1swsaqii]Unresolved External \"ADSClosCachedTables\" reference Rddads.lib\nUnresolved External \"HB_FUN__ADS\" ...\n\nAtualizei para FW 2.8 e aconteceu estes dois erros.[/quote:1swsaqii]\n\nHello\n\nPlease use it below:\n\nREQUEST ADS\n\nI guess you should be use REQUEST _ADS\n\nRegards,\n\nRichard','',0,'gA==','1swsaqii',1,0,'',15,0,0),(31004,6831,6,278,0,'164.77.105.87',1178113849,1,0,1,1,1,1,'','','Hola Antonio:\n\nSi te entiendo, eso es lo malo, pero de todas formas les va ha costar mucho mas copiarlos.\n\nPero piendo que igual debe existir algo, pues he visto programas , donde\nno se pueden ver los recursos usados, examino los exe y nada.\n\nAun no logro saber como, seguiré investigando, \n\nSaludos.','',0,'gA==','23p04yhc',1,0,'',278,0,0),(31005,6825,3,1036,0,'216.16.239.66',1178114197,1,0,1,1,1,0,'','','Hi Michel,\n\nI just emailed you to your email address.\n\nRegards,\n\nRene.','',0,'gA==','9eyvdzge',1,0,'',1036,0,0),(31006,6863,6,106,0,'85.34.123.173',1178115140,1,0,1,1,1,1,'','ADO error en la conexion...','Error description: Error ADODB.Recordset/14  DISP_E_BADPARAMCOUNT: OPEN\n   Args:\n     [   1] = C   SELECT * FROM Utenti\n     [   2] = C   Provider=SQLOLEDB;Data Source=PCPEDRO\\SQLEXPRESS;Initial Catalog=data_di_prova;UserID=sa;Password=1234;Persist Security Info=True\n     [   3] = N   1\n     [   4] = N   1\n\n\nMi codigo es el siguiente:\n\n[code:22k0j0v2]\n        oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n        cSQL &#58;= &quot;SELECT * FROM Utenti&quot;\n\n          oRs&#58;Open&#40; cSQL, &quot;Provider=SQLOLEDB;Data Source=PCPEDRO\\SQLEXPRESS;Initial Catalog=data_di_prova;UserID=sa;Password=1234;Persist Security Info=True&quot;, adOpenKeyset, adLockReadOnly &#41; // 1, 3\n\n          oRs&#58;MoveFirst&#40;&#41;\n      \n          WHILE !oRs&#58;EOF\n              ? oRs&#58;Fields&#40; &quot;nome&quot; &#41;&#58;Value\n              oRs&#58;MoveNext&#40;&#41;\n          ENDDO\n      \n          oRs&#58;Close&#40;&#41;[/code:22k0j0v2]\n\n\nEl usuario \"sa\" ya està creado con la password 1234 y accedo a esta tabla desde el MS SQL Server Management Studio Express con este usuario y pass.\n\n\nAlguna idea?\n\nFWH2.7, xHarbour 0.99.51\n\n\nP.D. No puedo hacer las pruebas con la nueva clase porque me da errores varios, porque seguramente con la version de xharbour que tengo no van de acuerdo y por ahora no puedo actualizar FW.\n\nGracias.','',0,'AIA=','22k0j0v2',1,0,'',106,0,0),(31007,6815,6,1013,0,'200.121.79.126',1178115662,1,0,0,1,1,0,'','Problema al intentar uilizar MS-SQL SERVER','Estimados\n\nEstoy tratando de conectarlo con un ms-sql200 pero sale el siguente error\n\n  Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   SELECT * FROM Customer\n     [   2] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; TOLEAUTO:OPEN(0)\n   Called from: adordd.prg =&gt; ADO_OPEN(222)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: MYSQL1.prg =&gt; MAIN(11)\n\n\nEl PRG :\n\n#include \"adordd.ch\"\n#include \"fivewin.ch\"\n\n\n\nREQUEST ADORDD\n\nfunction Main()\n\nUSE northwind VIA \"ADORDD\" TABLE \"Customer\" SQL ; \n      FROM \"SERVER2\" USER \"sa\" PASSWORD \"\"  \n\n// SERVER2 se llama la PC\n\n//   USE test00 VIA \"ADORDD\" TABLE \"ACCOUNTS\" MYSQL ;\n//      FROM \"www.freesql.org\" USER \"myuser\" PASSWORD \"mypass\"\n\n   Browse()\n\n   USE\n\nreturn nil\n\nSaludos,\n\nMarcelo','',0,'AIA=','xya6qjgb',1,0,'',1013,0,0),(31008,6815,6,228,0,'190.24.75.228',1178115754,1,0,1,1,1,1,'','oK. Amigo...','OK Amigo..\n\nClaro que si... Muchas Gracias.','',0,'AIA=','3k15m470',1,0,'',228,0,0),(31009,6863,6,106,0,'85.34.123.173',1178116248,1,0,1,1,1,1,'','','Parece cosa de locos... hace 5 dias que estoy con este problema, cuando decido poner el mensaje en el foro despues de 5 minutos descubro que el string de conexion que uso no era el adecuado.... Gracias a un mensaje de RF que dejó un link con todas las conexiones a sql <!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m --> y ahi encontré la que necesito...\n\n\n\"Provider=SQLNCLI;Server=PCPEDRO\\SQLEXPRESS;Database=data_di_prova;Uid=sa;Pwd=1234\"\n\nen vez de \n\n\"Provider=SQLOLEDB;Data Source=PCPEDRO\\SQLEXPRESS;Initial Catalog=data_di_prova;UserID=sa;Password=1234;Persist Security Info=True\"\n\n\nGracias','',0,'AIA=','20wodgue',1,0,'',106,0,0),(31010,6864,20,49,0,'62.13.172.67',1178116564,1,0,1,1,1,1,'','speek class','Sto provando la classe speeck di Cesar \nse non l\'avete posso postarla \nio voorei modificarla in modo da poter * leggere* qualsiasi scritta \ncioè se io clicco su  un menu mi deve leggere il prompt di quel menu \ncome posso fare ?','',0,'AIA=','rs745obn',1,0,'',49,0,0),(31011,6861,7,840,0,'201.243.12.220',1178118830,1,0,1,1,1,0,'','','saludos antonio\n\nLA TABLA DBF NO TIENE CAMPOS MEMOS.\n\nSI TIENES UN PROGRAMA EJEMPLO CON SHARED Y INDEX \nTE LO AGRADESCO.\n\n\nGRACIAS.','',0,'AIA=','nl41r5kv',1,0,'',840,0,0),(31012,6862,6,138,0,'189.141.67.139',1178119133,1,0,1,1,1,1,'','Re: ADS com FW2.8','[quote=&quot;kbelo&quot;:19bea8zj]Unresolved External \"ADSClosCachedTables\" reference Rddads.lib\nUnresolved External \"HB_FUN__ADS\" ...\n\nAtualizei para FW 2.8 e aconteceu estes dois erros.[/quote:19bea8zj]\n\nAgrega:\n\nACE32.LIB &amp; RDDADS.LIB \n\nA tu proyecto.','',0,'gA==','19bea8zj',1,0,'',138,0,0),(31013,6853,3,924,0,'81.208.36.89',1178122169,1,0,1,1,1,0,'','','Ok,\nCould be possible to have a sample (for microsoft outlook) to get  all the folders of  mail and all the message.\n\nI tried to have a look in  the file VBAOUTL*.CHM, but i am not able to get the right informations.\n\ntks','',0,'gA==','22zaug6u',1,0,'',924,0,0),(31014,6865,6,793,0,'201.225.19.210',1178122345,1,0,1,1,1,0,'','Como obtengo adordd','Hola amigos del foro\nquisiera saber como obtengo la libreria adordd\n\n\n\n\n\n\nsaludos \nerick almanza \n<!-- e --><a href=\"mailto:dicoms@gmail.com\">dicoms@gmail.com</a><!-- e -->','',0,'gA==','jqak6zxj',1,0,'',793,0,0),(31015,6865,6,2,0,'87.218.146.172',1178122616,1,0,1,1,1,1,'','','Erick,\n\nPuedes descargarla desde \n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'gA==','1jrlhtqd',1,0,'',2,0,0),(31018,6868,6,63,0,'83.49.110.35',1178124181,1,0,1,1,1,0,'','No se redimensiona bien una ventana pequeña','El siguiente código crea una ventana Child de 18 pixels de altura dentro de una ventana mayor.  \n[code:nhs6vhia]#include &quot;Fivewin&#46;ch&quot;\nFUNCTION Main&#40;&#41;\nLOCAL oWnd\nDEFINE Window oWnd  From 0,0 TO 300,400 Pixel\nACTIVATE Window oWnd ON INIT WndChild&#40;oWnd&#41;\nReturn Nil\n\nSTATIC FUNCTION WndChild&#40;oWnd&#41;\nLocal oW\nDEFINE Window oW  From 100,100 TO 117,200 Pixel Of oWnd ;\n       Style WS_CHILD+WS_THICKFRAME                     ;\n       Color CLR_BLUE, CLR_YELLOW\nACTIVATE Window oW\nReturn Nil[/code:nhs6vhia]\n\nSi intento aumentarla de tamaño verticalmente estirando su borde inferior, lo único que consigo es que el borde SUPERIOR baje, con lo que la ventana se hace más pequeña, no mayor.\n\nEl problema desaparece cuando la ventana tiene 30 pixels o más de alta.\n\n¿Estoy haciendo algo mal o es un problema de mi versión de FWH( V2.6, mayo 2005) ? Alguna forma de solucionarlo?\n\nGracias,\n\nRafael','',0,'AIA=','nhs6vhia',1,0,'',63,0,0),(31019,6815,6,940,0,'189.157.84.245',1178125123,1,0,1,1,1,1,'','','Leandro,\n\ncambialo por usrrdd.ch  y ligas la libreria USRRDD.LIB\n\nyo compilo con xharbour.org  y funciona bien.\n\nsaludos..','',0,'AIA=','3adxgkfx',1,0,'',940,0,0),(31020,6068,6,963,0,'201.236.190.46',1178125550,1,0,0,0,1,0,'','','Debo contarles, que he logrado enlazar los recursos, y eso, gracias a las cosas que leí en este foro, estoy muy agradecido por esta línea de programa:\n\nDLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB \"BWCC32.DLL\"\n\nLa incluí al final del módulo principal, y el problema se solucionó.\n\nSólo me queda un problemilla que resolver... que el programa queda inmerso en loop, ejecuta una y otra vez, la solicitud de password... lo que es un mal menor... creo que se puede solucinar con dos ejecutables y un winexec...\n\nGracias. Han sido y seguirán siendo una gran ayuda, es un inmenso aporte al programador este foro.','',0,'AIA=','1lgk00p8',1,0,'',963,0,0),(31021,6869,3,343,0,'24.173.70.29',1178126726,1,0,1,1,1,0,'','dtpicker and empty date','I cannot get the control to start with an empty date.\n\ndBegDate := ctod(\'\')\nREDEFINE DTPicker oBegDate VAR dBegDate ID 101 UPDATE OF oDlg\n\nIt always shows the checkbox checked when starting.\nIt is the same in the sample program \"datetime.prg\".','',0,'AIA=','25f07phb',1,0,'',343,0,0),(31022,6815,6,9,0,'85.59.34.238',1178128147,1,0,1,1,1,1,'','Re: oK. Amigo...','[quote=&quot;leandro&quot;:16yh71ba]OK Amigo..\n\nClaro que si... Muchas Gracias.[/quote:16yh71ba]\n\nLeandro,\n\nTe envié el pasado dia 30/4 un e-mail a tu otra dirección leandroalfonso....\n\n¿Lo has recibido?','',0,'gA==','16yh71ba',1,0,'',9,0,0),(31023,6870,2,235,0,'201.140.15.97',1178128826,1,0,1,1,1,0,'','alguien sabe como se recupera la info. de un archivo rc','puesto que perdi la dll que contiene todos mis dialogos.\n\nsi alguien me puede ayudar de antemano muchas gracias','',0,'gA==','244gz1wb',1,0,'',235,0,0),(31024,6815,6,228,0,'200.118.208.80',1178130916,1,0,1,1,1,1,'','No...','No manu..\n\nRevise el correo y no me ha llegado...\n\nEn ninguna de mis otras cuentas...','',0,'gA==','7jbgkkrm',1,0,'',228,0,0),(31025,5567,6,228,0,'200.118.208.80',1178131056,1,0,1,1,1,1,'','Llego..','Llego a la oficina y te lo envio.','',0,'gA==','3hkchpcv',1,0,'',228,0,0),(31026,6851,6,963,0,'201.236.190.46',1178131373,1,0,0,0,1,0,'','','Bajé y compilé con la librería, los errores desaparecieron, pero me queda un problema, el archivo excel no lo genera y el programa desaparece abruptamente... por si las dudas, posteo la línea en que hago la ejecución de la función, y el procedimiento que genera el cuadro excel, si encuentran algo raro, por favor, avísenme... Atentamente, Leo.\n\nAquí Ejecuto la función.\n\nPublic Before:=CurDrive() + \":\\\" + CurDir()\n\nREDEFINE BTNBMP ID 120 OF oDlg File \"ToExcel.BMP\" NoBorder;\n   Tooltip \"Envía Libro de Ventas a Excel\" Action (_LF_Excel_(oDbf,_Titulo),oBrw:SetFocus(),oBrw:nRowPos:=1, oBrw:Refresh(),Open_XLS(\"D:\\TempXLS\\LIbroF.XLS\"),lChDir(Before))\n\nAcá, se ejecuta la construcción del cuadro excel...\n\n#include \"fivewin.ch\"\n#include \"FileXLS.ch\"\n\n#define BORDER_UP     nOr( BORDER_TOP )\n#define BORDER_DOWN   nOr( BORDER_BOTTOM )\n#DEFINE TRUE  .T.\n#DEFINE FALSE .F.\n\nstatic oFileXLS\n*------------------------------------------------------------------------------*\nFunction _LF_Excel_(oDbf,_Titulo)\nLocal nFont1, nFont2\n\n    Local nFormat1, nFormat2,nXlsLine:=0\n\n	 Public Drive:=\"D:\\\",Directory:=\"TempXLS\",Start:=\"\\\"\n	 lChDir(\"D:\\\")\n	 lMkDir(\"TempXLS\")\n    lChDir(\"TempXLS\")\n\n    DEFINE XLS FONT nFont1 NAME \"Arial\" HEIGHT 12 BOLD\n    DEFINE XLS FONT nFont2 NAME \"Arial\"\n\n    DEFINE XLS FORMAT nFormat1 PICTURE \'dd-mmm-yyyy\'\n    DEFINE XLS FORMAT nFormat2 PICTURE \'#,##0\'\n\n    XLS oFileXLS FILE \"D:\\TempXLS\\LibroF.xls\" AUTOEXEC\n\n    XLS COL 1  WIDTH  1 OF oFileXLS\n	 XLS COL 2  WIDTH  6 OF oFileXLS\n    XLS COL 3  WIDTH 12 OF oFileXLS\n    XLS COL 4  WIDTH 12 OF oFileXLS\n    XLS COL 5  WIDTH 35 OF oFileXLS\n    XLS COL 6  WIDTH 12 OF oFileXLS\n    XLS COL 7  WIDTH 12 OF oFileXLS\n    XLS COL 8  WIDTH 12 OF oFileXLS\n	 XLS COL 9  WIDTH 12 OF oFileXLS\n    XLS COL 10 WIDTH 12 OF oFileXLS\n\n    @ 1,2 XLS SAY Alltrim((oDbf[4]:cAlias)-&gt;Razon_Soc) FONT nfont1 OF oFileXLS  ALIGNAMENT ALING_LEFT\n	 @ 2,2 XLS SAY Alltrim((oDbf[4]:cAlias)-&gt;Giro) FONT nfont2 OF oFileXLS  ALIGNAMENT ALING_LEFT\n	 @ 3,2 XLS SAY Alltrim((oDbf[4]:cAlias)-&gt;Direccion) FONT nfont2 OF oFileXLS  ALIGNAMENT ALING_LEFT\n	 @ 4,2 XLS SAY Alltrim((oDbf[4]:cAlias)-&gt;Co_Ciu) FONT nfont2 OF oFileXLS  ALIGNAMENT ALING_LEFT\n	 @ 5,2 XLS SAY \"TELEFONOS \"+Alltrim((oDbf[4]:cAlias)-&gt;Telefonos) FONT nfont2 OF oFileXLS  ALIGNAMENT ALING_LEFT\n	 @ 6,2 XLS SAY \"R.U.T. \"+(oDbf[4]:cAlias)-&gt;Rut FONT nfont2 OF oFileXLS  ALIGNAMENT ALING_LEFT\n\n    @ 8,5 XLS SAY _Titulo FONT nfont1 OF oFileXLS  ALIGNAMENT ALING_CENTER\n	 @ 9,2 XLS SAY \"PERIODO  : \"+Upper(Mes)+\" DE \"+Transform(_Years,\"@e #,###\") FONT nFont2 Of oFileXLS\n\n\n    @ 11,2 XLS SAY \" TIPO \" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,2 XLS SAY \"DOCTO.\" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n\n    @ 11,3 XLS SAY \"NUMERO DE\" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,3 XLS SAY \"DOCUMENTO\" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n\n    @ 11,4 XLS SAY \"FECHA DE\" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,4 XLS SAY \"EMISION \" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n\n    @ 11,5 XLS SAY \"      RAZON SOCIAL     \" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,5 XLS SAY \"        CLIENTE        \" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n\n    @ 11,6 XLS SAY \"R.U.T.\" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,6 XLS SAY \"      \" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n\n    @ 11,7 XLS SAY \"EXENTO\" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,7 XLS SAY \"       \" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n\n    @ 11,8 XLS SAY \"NETO \" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,8 XLS SAY \"     \" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n	 @ 11,9 XLS SAY \"I.V.A. \" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,9 XLS SAY \"       \" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n	 @ 11,10 XLS SAY \" TOTAL \" FONT nfont2 OF oFileXLS BORDER BORDER_UP ALIGNAMENT ALING_CENTER\n	 @ 12,10 XLS SAY \"       \" FONT nfont2 OF oFileXLS BORDER BORDER_DOWN ALIGNAMENT ALING_CENTER\n\n    Select (oDbf[3]:cAlias)\n    (oDbf[3]:GoTop())\n    *XLS ROW 8 HEIGHT 22 OF oFileXLS\n\n    nXlsLine:=14\n\n    Do While !Eof()\n       @ nXlsLine,2 XLS  SAY (oDbf[3]:cAlias)-&gt;Alf_Tipo  OF oFileXLS\n       @ nXlsLine,3 XLS  SAY (oDbf[3]:cAlias)-&gt;Alf_Num   FORMAT nFormat2 OF oFileXLS\n       @ nXlsLine,4 XLS  SAY PM_Dates((oDbf[3]:cAlias)-&gt;Alf_Fec) OF oFileXLS\n       @ nXlsLine,5 XLS  SAY (oDbf[3]:cAlias)-&gt;Alf_RS    OF oFileXLS\n       @ nXlsLine,6 XLS  SAY IIF(!Empty((oDbf[3]:cAlias)-&gt;Alf_Rut),Pm_Point((oDbf[3]:cAlias)-&gt;Alf_Rut),\"            \") OF oFileXLs\n       @ nXlsLine,7 XLS  SAY (oDbf[3]:cAlias)-&gt;Alf_Exen  FORMAT nFormat2 OF oFileXLS\n       @ nXlsLine,8 XLS  SAY (oDbf[3]:cAlias)-&gt;Alf_Neto  FORMAT nFormat2 OF oFileXLS\n		 @ nXlsLine,9 XLS  SAY (oDbf[3]:cAlias)-&gt;Alf_Iva   FORMAT nFormat2 OF oFileXLS\n       @ nXlsLine,10 XLS SAY (oDbf[3]:cAlias)-&gt;Alf_Tot   FORMAT nFormat2 OF oFileXLS\n       Skip\n       nXlsLine++\n    EndDo\n    nXlsLine++\n	 @ nXlsLine,2  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,3  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,4  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,5  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,6  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,7  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,8  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,9  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,10 XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 nXlsLine++\n	 @ nXlsLine,7  XLS SAY _EXENTO   OF oFileXLS  FORMAT nFormat2 BORDER_UP\n    @ nXlsLine,8  XLS SAY _Tot_NETO OF oFileXLS  FORMAT nFormat2 BORDER_UP\n    @ nXlsLine,9  XLS SAY _Tot_IVA  OF oFileXLS  FORMAT nFormat2 BORDER_UP\n	 @ nXlsLine,10 XLS SAY _TotALS   OF oFileXLS  FORMAT nFormat2 BORDER_UP\n	 nXlsLine++\n	 @ nXlsLine,2  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,3  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,4  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,5  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,6  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,7  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,8  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,9  XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n	 @ nXlsLine,10 XLS SAY \"\" OF oFileXLS BORDER BORDER_DOWN\n\n    SET XLS TO DISPLAY ;\n    OF oFileXLS\n\n   ENDXLS oFileXLS\n\n   Select (oDbf[3]:cAlias)\n   (oDbf[3]:GoTop())\n\nReturn Nil\n*------------------------------------------------------------------------------*\n*Apertura de Cuadro Excel mediante un objeto OLE\nFUNCTION Open_XLS(FileName)\n\n	 LOCAL hExcel\n    LOCAL hWorkbook\n    LOCAL hActiveWorkbook\n    LOCAL hSheets\n    LOCAL hActiveSheet\n\n    hExcel := CreateOLEObject(\"Excel.Application\")\n    OLESetProperty(hExcel,\"Visible\",TRUE)\n\n    hWorkbook := OLEGetProperty(hExcel,\"Workbooks\")\n    OLEInvoke(hWorkbook,\"Open\",FileName)      //&amp;    \"D:\\TempXLS\\Card.XLS\")      //\"D:\\TempXLS\\Egresos.XLS\")\n    hActiveWorkbook := OLEGetProperty(hExcel,\"ActiveWorkbook\")\n    hSheets := OLEGetProperty(hActiveWorkbook,\"Sheets\")\n    hActiveSheet := OLEGetProperty(hExcel,\"ActiveSheet\")\n\n    hExcel          := NIL\n    hWorkbook       := NIL\n    hActiveWorkbook := NIL\n    hSheets         := NIL\n    hActiveSheet    := NIL\n\n\n\nRETURN NIL\n*-----------------------------------------*','',0,'gA==','1gwpy92m',1,0,'',963,0,0),(31027,6808,1,2,0,'87.218.146.172',1178131546,1,0,1,1,1,1,'','','Are you using:\n\n   exetype     Windows 3.1\n\nin your Blinker .LNK file ?','',0,'gA==','iwh2dz4f',1,0,'',2,0,0),(31028,6868,6,2,0,'87.218.146.172',1178131886,1,0,1,1,1,1,'','','Rafael,\n\nAqui ocurre lo mismo que describes usando FWH 7.04 y Vista\n\nDa la sensación de que al ser tan pequeña, se selecciona el borde superior aunque se intente seleccionar el inferior.\n\nUna vez se hace mayor, ese comportamiento se corrige. Parece algo propio de Windows','',0,'gA==','37h87yj9',1,0,'',2,0,0),(31029,6870,2,2,0,'87.218.146.172',1178132109,1,0,1,1,1,1,'','','Gerardo,\n\nTienes el fichero RC ? \n\nEl fichero RC es ascii (texto) y contiene todas las descripciones de los recursos usados. Usándolo puedes volver a generar la DLL.\n\nEn el directorio DLL de FiveWin tienes el fichero screens.dll. Renómbralo como desees, ábrelo con el resources workshop e importa el fichero RC, para que quede dentro de la DLL.','',0,'gA==','39y9eyyy',1,0,'',2,0,0),(31030,6851,6,2,0,'87.218.146.172',1178132250,1,0,1,1,1,1,'','','León,\n\nSítua llamadas a MsgInfo( 1 ), MsgInfo( 2 ), MsgInfo( 3 ), etc. entre las líneas de tu programa para que veas hasta donde llega antes de terminar','',0,'gA==','5327dx7o',1,0,'',2,0,0),(31031,6861,7,2,0,'87.218.146.172',1178132379,1,0,1,1,1,1,'','','Este ejemplo funciona correctamente en el emulador de WM2005 sobre XP SP2 y la DBF se abre sin ninguna demora:\n[code:v71kq97e]\nfunction Main&#40;&#41;\n\n   USE &#40;curdir&#40;&#41;+\'\\customer&#46;dbf\'&#41; shared NEW \n   msginfo&#40;Alias&#40;&#41;&#41; \n   DbCloseAll&#40;&#41;\n\nreturn nil\n[/code:v71kq97e]\n[url=http&#58;//imageshack&#46;us:v71kq97e][img:v71kq97e]http&#58;//img96&#46;imageshack&#46;us/img96/2272/sharedjs3&#46;png[/img:v71kq97e][/url:v71kq97e]\nMira la versión del emulador:\n[url=http&#58;//imageshack&#46;us:v71kq97e][img:v71kq97e]http&#58;//img359&#46;imageshack&#46;us/img359/1599/shared2np3&#46;png[/img:v71kq97e][/url:v71kq97e]','',0,'GIA=','v71kq97e',1,0,'',2,0,0),(31032,6869,3,2,0,'87.218.146.172',1178132550,1,0,1,1,1,1,'','','Gale,\n\nPlease review this topic:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3181\">http://fivetechsoft.com/forums/viewtopic.php?t=3181</a><!-- m -->','',0,'GIA=','77po7cbo',1,0,'',2,0,0),(31033,6868,6,63,0,'83.49.110.35',1178132946,1,0,1,1,1,0,'','','Gracias, Antonio;  a mí me pasa con Windows Xp\nRafael','',0,'GIA=','33r0mdph',1,0,'',63,0,0),(31034,6869,3,343,0,'24.173.70.29',1178137404,1,0,1,1,1,0,'','','Ok, I created a prg with the code included in that conversation. Linked it into the sample program datetime.prg.\n\nStill did not work. When the control with the empty date ( 3rd control ) is initialized it has the check mark. \nIt will not start with it unchecked (blank).\n\nIt does not work right.\nBy the way, I had already tried that code in my program with no luck but I thought I would try it again with the sample program.','',0,'GIA=','9p5boqha',1,0,'',343,0,0),(31035,6851,6,963,0,'201.236.190.46',1178138072,1,0,0,0,1,0,'','','El programa deja de funcionar cuando defino el archivo, exactamente en esta línea:\n\nXLS oFileXLS FILE \"D:\\TempXLS\\LibroF.xls\" AUTOEXEC \n\nqué puede estar mal, no lo se.','',0,'GIA=','10pqgg86',1,0,'',963,0,0),(31036,6860,6,348,0,'201.230.0.93',1178139087,1,0,1,1,1,0,'','','Hola Biel \n\nte cometare que no me dio resultado, no cambia de color a los Gets Deshabilitados \n\nHice la prueba donde la clase TGET usa este Valor COLOR_GRAYTEXT  y lo cambie directamente,  y resulto dar efecto sobre \"GETS que no se habian usado en un proceso de edicion \"  aparentemente\n\nhabra alguna idea as  ??  \n\nLubin\n\n\n\n[quote=&quot;Biel EA6DD&quot;:2aw1path]Puedes modificar la linea 11 de la clase tGet\n\n[code:2aw1path]\n#define COLOR_GRAYTEXT      17\n[/code:2aw1path]\nCambia 17 por el color que tu quieras.[/quote:2aw1path]','',0,'gIA=','2aw1path',1,0,'',348,0,0),(31037,6815,6,73,0,'200.23.18.132',1178139356,1,0,1,1,1,0,'','','Antonio,\n\nInteresante el trabajo que estan realizando y muy oportuno para los que empezamos en el mundo del sql, felicidades !!\npor cierto, veo que este esta creciendo demasiado rapido y con demanda y pruebas y pruebas, considero que seria mas apropiado abrir un foro de sql y tener el seguimiento mas limpio y practico, animaos que el primer gran paso ya lo dieron \"sqlrdd\"....\n\nsalu2\npaco','',0,'gIA=','2key7kp6',1,0,'',73,0,0),(31038,6871,6,492,0,'189.147.32.76',1178141001,1,0,1,1,1,1,'','Acerca MDI','Hola a todos\n\nNecesito hacer algunas cosillas en MDI, alguno de uds tendra algo de informacion, manuales, ejemplos que quieran compartir ?\n\nHe checado los archivos en SAMPLES y uno que otro archivo que he encontrado, pero me gustaria tener un poquitin mas.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nGracias anticipadas\n\n\nSaludos','',0,'gIA=','2cy1lnm2',1,0,'',492,0,0),(31039,6872,4,154,0,'151.81.4.102',1178143478,1,0,1,1,1,1,'','Unresolved externals','Hi all,\nI have a problem with sample/ping.prg test\nreturn this error message:\n[code:1y2gy2qv]Compiling&#46;&#46;&#46;\nHarbour Compiler Alpha build 46&#46;2 &#40;Flex&#41;\nCopyright 1999-2006, http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'ping&#46;prg\' and generating preprocessed output to \'ping&#46;ppo\'&#46;&#46;&#46;\nLines 72, Functions/Procedures 1\nGenerating C source output to \'ping&#46;c\'&#46;&#46;&#46; Done&#46;\nMicrosoft &#40;R&#41; C/C++ Optimizing Compiler Version 12&#46;20&#46;9615 for ARM\nCopyright &#40;C&#41; Microsoft Corp 1984-2002&#46; All rights reserved&#46;\n\nping&#46;c\n   Creating library ping&#46;lib and object ping&#46;exp\nicmplib&#46;lib&#40;icmplib&#46;obj&#41; &#58; error LNK2019&#58; unresolved external symbol WsControl referenced in function IcmpSendEcho\nping&#46;exe &#58; fatal error LNK1120&#58; 1 unresolved externals[/code:1y2gy2qv]\nCan i resolve?','',0,'AIA=','1y2gy2qv',1,0,'',154,0,0),(31040,6873,3,716,0,'201.1.109.140',1178145087,1,0,1,1,1,0,'','FILEXLS FWH2.6 e XHARBOUR 99.40','Alguém tem a LIB FILEXLS para ser utilizada com FIVEWIN for HAURBOUR 2.6 e XHARBOUR 99.40 ?\nBaixei aqui do forum da fivetechsoft, mas está compilada para versões inferiores e não serve.\nAgradeço quem tiver a LIB para disponibilizar ou os arquivos abaixo para que eu mesmo possa compila-la para a versão que desejo.\nXSCRLL.OBJ  \nDRIVES.OBJ\n\nPaulo Peres\nE-mail :benyhapper@hotmail.com','',0,'AIA=','3t80wxfo',1,0,'',716,0,0),(31041,6869,3,343,0,'24.173.70.29',1178145752,1,0,1,1,1,0,'','','I noticed that the code used in the conversation that you linked to refers to a function called setdatepic().\n\nThe code calls setdatepic() with 5 parameters, with the 5th one a 0 or 1 depending on whether the date is empty or not.\nWhen I look at the source code for the setdatepic() function it does not make use of the 5th parameter.\n\nIs there an update for this function or other code that I do not have access to that would allow the control to start with no date?','',0,'AIA=','1t9lxcts',1,0,'',343,0,0),(31042,6861,7,840,0,'190.76.30.124',1178153100,1,0,1,1,1,0,'','','antonio\n\n\ngracias por el ejemplo embiado, pero\neste ejemplo ya me lo comunicaste meses antes.\n\n\nel ejemplo que necesito es que maneje una tabla \nabierta en forma shared con indeces abiertos (index ntx o cdx)\n\n\ngracias','',0,'AIA=','18xv1ctc',1,0,'',840,0,0),(31043,6815,6,54,0,'189.132.100.96',1178157134,1,0,1,1,1,1,'','','Hola,\n\nTengo funcionando ADORDD en xHarbour.\n\naqui dejo enlace de descarga.\n\n[url:1q2v8k0d]http&#58;//www&#46;uploading&#46;com/files/R23RK35L/adoRDD&#46;rar&#46;html[/url:1q2v8k0d]\n\nSaludos, sigo probando y modificando.\n\npd. viene ejemplo de uso (prg y exe)','',0,'EA==','1q2v8k0d',1,0,'',54,0,0),(31044,6870,2,138,0,'189.141.67.139',1178159666,1,0,1,1,1,1,'','','Un RC es un texto puro y duro.\n\nAbrelo con el Workshop y listo','',0,'EA==','2sff0s20',1,0,'',138,0,0),(31045,6874,20,29,0,'88.149.160.254',1178176110,1,0,1,1,1,0,'','Combobox e array multimensionali','Salve,\nsapere se è possibile riportare in un combobox solo un elemento di un array multidimensionale ?\n\nPer esempio dato un array di 2 dimensioni tipo:\n\naArray:=array(0,2)\naadd(aArray,{01,\"Primo\"})\naadd(aArray,{02,\"Secondo\"})\naadd(aArray,{03,\"Terzo\"})\n\nvorrei creare un combobox che mi riporta solo il secondo elemento dell\'array ossia Primo,Secondo e Terzo.\n\nQualche idea a riguardo ?\n\nGrazie \n\nMarco','',0,'EA==','2y5r9ge2',1,0,'',29,0,0),(31046,6869,3,130,0,'141.51.32.24',1178178902,1,0,1,1,1,0,'','','Gale,\n\nhere is the updated function in datepick.c\n\n[code:1uslehad]HB_FUNC&#40; SETDATEPICK &#41; // &#40; hWnd, wYear, wMonth, wDay, GTD_NONE &#41;\n&#123;\n   SYSTEMTIME sysTime;\n\n   sysTime&#46;wYear         = _parni&#40; 2 &#41;;\n   sysTime&#46;wMonth        = _parni&#40; 3 &#41;;\n   sysTime&#46;wDay          = _parni&#40; 4 &#41;;\n   sysTime&#46;wDayOfWeek    = 0;\n   sysTime&#46;wHour         = 0;\n   sysTime&#46;wMinute       = 0;\n   sysTime&#46;wSecond       = 0;\n   sysTime&#46;wMilliseconds = 0;\n\n   SendMessage&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, DTM_SETSYSTEMTIME, _parni&#40;5&#41;,\n                &#40; LPARAM &#41; &amp;sysTime &#41;;\n&#125;\n[/code:1uslehad]\n\nStefan','',0,'AIA=','1uslehad',1,0,'',130,0,0),(31047,6861,7,2,0,'87.218.146.187',1178181058,1,0,1,1,1,1,'','','Dario,\n\nEstos ejemplos funcionan [color=red:2oq9qjc6]correctamente[/color:2oq9qjc6] aunque [color=red:2oq9qjc6]hay que ejecutarlos en un directorio del Pocket PC[/color:2oq9qjc6] y [color=red:2oq9qjc6]NO en la tarjeta de memoria[/color:2oq9qjc6], ya que la tarjeta de memoria (SD card ó Storage card) no admite la compartición de ficheros (opción SHARED).\n\nhay que copiar el EXE y el fichero DBF a un directorio del Pocket PC, que no esté en la tarjeta de memoria:\n[code:2oq9qjc6]\nREQUEST DBFCDX\n\nfunction Main&#40;&#41; \n\n   USE &#40; CurDir&#40;&#41; + &quot;\\customer&#46;dbf&quot; &#41; NEW VIA &quot;DBFCDX&quot; SHARED\n   INDEX ON Customer-&gt;First TAG &quot;First&quot; TO &#40; CurDir&#40;&#41; + &quot;\\customer&quot; &#41; \n   MsgInfo&#40; IndexKey&#40;&#41; &#41;\n   DbCloseAll&#40;&#41; \n\nreturn nil\n[/code:2oq9qjc6]\n[code:2oq9qjc6]\nREQUEST DBFCDX\n\nfunction Main&#40;&#41; \n\n   USE &#40; CurDir&#40;&#41; + &quot;\\customer&#46;dbf&quot; &#41; NEW VIA &quot;DBFCDX&quot; SHARED\n   SET ORDER TO &quot;First&quot;\n   MsgInfo&#40; IndexKey&#40;&#41; &#41;\n   DbCloseAll&#40;&#41; \n\nreturn nil\n[/code:2oq9qjc6]\n[url=http&#58;//imageshack&#46;us:2oq9qjc6][img:2oq9qjc6]http&#58;//img396&#46;imageshack&#46;us/img396/5149/sharedmz0&#46;png[/img:2oq9qjc6][/url:2oq9qjc6]','',0,'GoA=','2oq9qjc6',1,0,'',2,0,0),(31048,6875,20,29,0,'88.149.160.254',1178181419,1,0,1,1,1,0,'','Menu stle office','Salve,\nsto provando la classe di quark-costos che permette di generare dei menu stile office.\n\nIl problema è che non riesco a creare la libreria in quanto quando viene compilato il file menus.c mi appare un errore di definizione che rigurda la prima riga.\n\nI files che compongono la classe sono su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/menuxp.zip\">www.softwarexp.co.uk/beta/menuxp.zip</a><!-- w -->\n\nQualche idea sull\'errore di compilazione ? Qualcuno ha la libreria già compilata per l\'ultima versione di xharbour e fwh ?\n\nGrazie\n\nMarco','',0,'GoA=','23tfqur6',1,0,'',29,0,0),(31049,6869,3,2,0,'87.218.146.240',1178185522,1,0,1,1,1,1,'','','Gale,\n\nThis is the modfied Class TDTPicket Method SetDate() using the previous function change:\n[code:2qvvwpg9]\n   METHOD SetDate&#40; dDate, lEmpty &#41; INLINE SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dDate &#41;,;\n                                  Month&#40; dDate &#41;, Day&#40; dDate &#41;,;\n                                  If&#40; lEmpty != nil &#46;and&#46; lEmpty, 1, 0 &#41; &#41;\n[/code:2qvvwpg9]','',0,'AIA=','2qvvwpg9',1,0,'',2,0,0),(31050,6872,4,2,0,'87.218.146.240',1178185967,1,0,1,1,1,1,'','','Ugo,\n\nYou have to link MS icmplib.lib and winsock.lib','',0,'AIA=','1x3cybjs',1,0,'',2,0,0),(31051,6871,6,2,0,'87.218.146.240',1178186050,1,0,1,1,1,1,'','','Raymundo,\n\nExplícanos un poco lo que quieres hacer y asi podremos orientarte de como implementarlo, gracias','',0,'AIA=','2wv4xcwp',1,0,'',2,0,0),(31052,6860,6,2,0,'87.218.146.240',1178186167,1,0,1,1,1,1,'','','Lubin,\n\nNo se puede cambiar el color de los GETs deshabilitados, ya que ese color lo implementa Windows. \n\nLo que te permite FWH es que no se vean como deshabilitados, aunque lo esten, para mejorar su lectura.','',0,'AIA=','1ifwwhsx',1,0,'',2,0,0),(31053,6828,7,2,0,'87.218.146.240',1178186568,1,0,1,1,1,1,'','','Elías,\n\nProblema localizado: Es una limitación de la tarjeta de memoria del Pocket PC. Si copias los ficheros a [color=red:2f14u6yf]un directorio del Pocket PC que no esté en la tarjeta de memoria[/color:2f14u6yf], el fichero se abre en modo compartido correctamente, con índices y campos memo.','',0,'Ag==','2f14u6yf',1,0,'',2,0,0),(31054,6876,3,29,0,'88.149.160.254',1178186645,1,0,1,1,1,0,'','Combobox and multimensional arrays','Hi,\nis there any way to manage a multidimensional array in a combobox ?\n\nI have a two dimension array like this:\n\naArray:=array(0,2) \naadd(aArray,{01,\"Primo\"}) \naadd(aArray,{02,\"Secondo\"}) \naadd(aArray,{03,\"Terzo\"}) \n\nand I would like to display in the combobox only the second element (First,second, third).\n\nAny ideas ?\n\nMarco Turco','',0,'Ag==','3nczz38d',1,0,'',29,0,0),(31055,6877,6,533,0,'80.32.177.143',1178187340,1,0,1,1,1,0,'','StatusBar','Buenos días foro!\n\n  Tengo un statusbar en una ventana y quiero que cuando realice una opcion dentro de la ventana me cambie el texto, he probado refrescando todos los objetos, pero nada, e incluso con:\n\n[code:hglbyhm0]\n    &#58;&#58;oStatusBar&#58;Setmsg&#40;&lt;Texto&gt;&#41;\n[/code:hglbyhm0]\n\npero no cambia el texto, ¿sabeis que puede ser?','',0,'AIA=','hglbyhm0',1,0,'',533,0,0),(31056,6878,6,533,0,'80.32.177.143',1178187596,1,0,1,1,1,0,'','xBrowse','tengo un xbrowse en una ventana y no se porque capturando el metodo\nbkeydown me ejecuta el resultado 2 veces, es decir:\n\n[code:1mnrqyl6]\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n &#58;&#58;oBrowse&#58;bKeydown&#58;=&#123;|nkey|press_on_browse&#40;nKey,self&#41;&#125;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\nfunction press_on_browse&#40;nKey,self&#41;\n        do case \n            case nkey = VK_F2 &#46;and&#46; &#58;&#58;lInsertButton\n                &#58;&#58;lInsertMode&#58;=&#46;t&#46;\n                &#58;&#58;lModifyMode&#58;=&#46;f&#46;\n                &#58;&#58;Insert&#40;&#41; \n            case nkey = VK_F3 &#46;and&#46; &#58;&#58;lModifyButton\n                &#58;&#58;lInsertMode&#58;=&#46;f&#46;\n                &#58;&#58;lModifyMode&#58;=&#46;t&#46;\n                &#58;&#58;Modify&#40;&#41; \n            case nkey = VK_F4 &#46;and&#46; &#58;&#58;lDeleteButton\n                &#58;&#58;Delete&#40;&#41; \n            case nkey = VK_F5 &#46;and&#46; &#58;&#58;lSearchButton\n                &#58;&#58;Search&#40;&#41; \n            case nkey = VK_F6 &#46;and&#46; &#58;&#58;lListButton\n                &#58;&#58;List&#40;&#41;\n            case nkey = VK_ESCAPE \n                &#58;&#58;Destroy&#40;&#41; \n        end case\nreturn\n[/code:1mnrqyl6]\n\ncon este código, si pulso sobre F2 entra 2 veces en Insert()\n\n¿Que puede ser?\n\nMuchas Gracias Foro!!','',0,'AIA=','1mnrqyl6',1,0,'',533,0,0),(31057,6876,3,2,0,'87.218.146.240',1178188502,1,0,1,1,1,1,'','','Marco,\n\nYou may review samples\\TestArr2.prg. Its a browse, not a combobox, but it uses a multidimensional array','',0,'AIA=','1k2ad253',1,0,'',2,0,0),(31058,6877,6,2,0,'87.218.146.240',1178188761,1,0,1,1,1,1,'','','Mike,\n\nRevisa samples\\StBar.prg','',0,'AIA=','2c5qetsy',1,0,'',2,0,0),(31059,6879,6,316,0,'213.97.245.163',1178189180,1,0,0,1,1,0,'','Cambiar el tipo de servidor con ADS','Siguiendo con las pruebas, ya conecto perfectamente al servidor AIS, y funciona bastante bien. El problema lo he tenido cuando quiero abrir la tabla local usando dentro del mismo ejecutable conexiones a un Internet Server y vía Local Server.\nAl intentar abrir la tabla local me da un error 5132, AE_INVALID_OBJECT_NAME, pero no me queda claro cual puede ser el origen del error.\n\nFragmento de código con problemas:\n\n[code]\n   RddSetDefault( \"ADS\" )\n   AdsRightsCheck(.F.)\n   AdsSetServerType(4) //SET SERVER AIS\n   AdsSetFileType(2)\n\n   IF AdsConnect60( \"\\\\pluton\\disco-d\\inciden\\inciden.add\", 4 , \"usr\", \"pass\" )\n      Alert( \"Esta ahora conectado al Sevidor AIS de ATISA\", {\"OK\"} )\n\n   ELSE\n      Alert( \"Se ha rechazado la conexión al servidor AIS de Atisa, por favor intente mas tarde\", \"AIS Error\" )\n      QUIT\n   ENDIF\n\n   AdsSetServerType(4) //SET SERVER AIS\n   AdsSetFileType(2)\n   #define DIR_APGRA \'C:\\APGRA\\\'\n   #define DIR_INCI  \"X:\\inciden\\\"\n\n\n   c:= DIR_INCI+\"Incidenc.Dbf\" // asi con 0.99.5\n   c:= \"Incidenc\"                        // asi con 0.99.6\n   USE (c) ALIAS \"SERINCI\" SHARED NEW\n\n   If !Used()\n      MsgInfo( \'no leo los datos...\' )\n   Else\n      AdsSetServerType(1) //SET SERVER LOCAL\n      USE (DIR_APGRA+\"Incidenc.Dbf\") ALIAS \"LOCINCI\" SHARED NEW\n      // Este use es el que falla con el error 5132\n\n   EndIf\n\n[/code]\nEs como si no usase Local server para abrir la 2da dbf.\nEste error me lo da usando 0.99.6, no asi con 0.99.5. Alguna sugerencia?\n\nUn saludo,\n\nCarlos.','',0,'AIA=','21fif5y6',1,0,'',316,0,0),(31060,6880,6,294,0,'201.250.223.170',1178189190,1,0,1,1,1,1,'','Consulta sobre windowsxp.manifest','Tengo una aplicacion que para arrancar solicita la clave de acceso al sistema. Por lo tanto en el DIALOG  defino el campo como PASSWORD. El .RC queda así:\n EDITTEXT 101, 48, 15, 60, 17, ES_UPPERCASE | [b:2bw3w6wh]ES_PASSWORD [/b:2bw3w6wh]| \nPero si le pongo al principio del .RC \n#ifdef __FLAT__\n   1 24 \"WindowsXP.Manifest\"\n#endif\nCuando accedo al programa en lugar de mostrarme los clasicos circulitos negros o los asteriscos, me muestra unas raras rayas negras poco esteticas.\nAgradezco sugerencias','',0,'QA==','2bw3w6wh',1,0,'',294,0,0),(31061,6881,6,106,0,'85.34.123.173',1178189740,1,0,1,1,1,1,'','ADO append con Uniqueidentifier en MSSQL','Manualmente hago asi para agregar un registro con el campo ID del tipo uniqueidentifier:  (B85E62C3-DC56-40C0-852A-49F759AC68FB)\n\n[code:5i9csd9t]\nINSERT INTO articoli\n  &#40;ID, Sub_ID, codice, descrizione&#41;\n  VALUES     &#40;NEWID&#40;&#41;, 15, \'uno\', \'due\'&#41;\n[/code:5i9csd9t]\n\n\nAlguien sabe como hacerlo con ADO?\n[code:5i9csd9t]\nFOR i &#58;= 1 TO 5000\n    oRs&#58;AddNew&#40;&#41;\n  //oRs&#58;fields&#40;&quot;ID&quot;&#41;&#58;VALUE &#58;= &quot;NEWID&#40;&#41;&quot;\n  oRs&#58;fields&#40;&quot;Sub_ID&quot;&#41;&#58;VALUE &#58;= i\n  oRs&#58;fields&#40;&quot;codice&quot;&#41;&#58;value &#58;= &quot;COD&quot; + ALLTRIM&#40; STR&#40; i &#41; &#41;\n  oRs&#58;Fields&#40; &quot;descrizione&quot; &#41;&#58;Value &#58;= &quot;Descrizione articolo &quot; + ALLTRIM&#40; STR&#40; i &#41; &#41;\n    oRs&#58;Update&#40;&#41;\nNEXT\n[/code:5i9csd9t]\n\n\nGracias','',0,'AIA=','5i9csd9t',1,0,'',106,0,0),(31062,6878,6,2,0,'87.218.146.240',1178189857,1,0,1,1,1,1,'','','Mike,\n\nEn la Clase TXBrowse realiza esta modificación:\n[code:1qogyjv1]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TXBrowse\n\n   if &#58;&#58;bKeyDown != nil\n      Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41;\n      return nil\n   endif   \n\n   &#46;&#46;&#46;\n[/code:1qogyjv1]','',0,'AIA=','1qogyjv1',1,0,'',2,0,0),(31063,6878,6,2,0,'87.218.146.240',1178189948,1,0,1,1,1,1,'','','Mike,\n\nMejor, preferiblemente, elimina esas líneas:\n[code:hhpx4gy4]\n   if &#58;&#58;bKeyDown != nil\n      Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41;\n   endif   \n[/code:hhpx4gy4]','',0,'AIA=','hhpx4gy4',1,0,'',2,0,0),(31064,6882,3,29,0,'88.149.160.254',1178191040,1,0,1,1,1,0,'','Combobox incremental seek bug','Hi,\nI think there is a bug using the incremental seek in a combobox.\n\nIn this self-contained sample at:\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/combo.zip\">www.softwarexp.co.uk/beta/combo.zip</a><!-- w -->\n\nI have and array with 3 elements: First, Second, Third,\nWhen the combobox has the focus press the \"S\" key to go to the \"Second\" element then press the \"Give me the position\" button and you will see that the position value is not the numeric value but the string \"Second\".\n\nAny ideas ?\n\nMarco','',0,'AIA=','1mjlamwn',1,0,'',29,0,0),(31065,6878,6,533,0,'80.32.177.143',1178192071,1,0,1,1,1,0,'','','Funcionó correctamente, Gracias Antonio <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1zm4bu9i',1,0,'',533,0,0),(31066,6875,20,6,0,'87.17.218.162',1178192655,1,0,1,1,1,1,'','Re: Menu stle office','Riporta qui l\'esatto errore che ottieni.\n\nEMG','',0,'AIA=','utoz4u1b',1,0,'',6,0,0),(31067,6874,20,6,0,'87.17.218.162',1178192830,1,0,1,1,1,1,'','Re: Combobox e array multimensionali','Non credo si possa. Quello che puoi fare è definire l\'array in modo diverso:\n\n[code:3t6whfex]aArray = &#123; &#123; 01, 02, 03 &#125;, &#123; &quot;Primo&quot;, &quot;Secondo&quot;, &quot;Terzo&quot; &#125; &#125;[/code:3t6whfex]\n\ne poi usare aArray[ 2 ] come lista da visualizzare.\n\nEMG','',0,'AIA=','3t6whfex',1,0,'',6,0,0),(31068,6883,20,49,0,'62.13.172.67',1178193027,1,0,1,1,1,1,'','burn cd','Emg, \nHo trovato un utilità su xharbour.com ...\nper scrivere sui cd Burn cd \nMa a me non funziona  non è che  sai come fare ?','',0,'AIA=','dvbup0z0',1,0,'',49,0,0),(31069,6875,20,49,0,'62.13.172.67',1178193228,1,0,1,1,1,1,'','','quella di Paco  funziona molto meglio \nDopo gli innumerevoli casini che ho avuto con quella che vuoi usare ho preferito quella di Paco anche perchè funziona come la classe menu di linares :\n[code:2wf4toeq]\n\nMENU oMenu            //   oMenu&#58;oFont &#58;= oFont\n   oMenu&#58;SetStyle&#40; 14 &#41;\n   MENUITEM &quot;&amp;File&quot;\n   MENU\n      MENUITEM &quot;&amp;New&quot;  + chr&#40;9&#41; + &quot;Ctrl+N&quot;  NAME &quot;btn1&quot;\n      MENUITEM &quot;&amp;Open&quot; + chr&#40;9&#41; + &quot;Ctrl+O&quot;  NAME &quot;btn2&quot;\n      MENUITEM &quot;&amp;Save&quot; + chr&#40;9&#41; + &quot;Ctrl+S&quot;  NAME &quot;btn3&quot;\n      SEPARATOR\n      MENUITEM &quot;S&amp;end&quot;                      NAME &quot;btn4&quot;\n      SEPARATOR\n      MENUITEM &quot;&amp;Print&quot; + chr&#40;9&#41; + &quot;Ctrl+P&quot; NAME &quot;btn5&quot;\n      MENUITEM &quot;Print Preview&quot;              NAME &quot;btn6&quot;\n      SEPARATOR\n      MENUITEM &quot;E&amp;xit&quot;\n   ENDMENU[/code:2wf4toeq]','',0,'AIA=','2wf4toeq',1,0,'',49,0,0),(31070,6883,20,6,0,'87.17.218.162',1178194124,1,0,1,1,1,1,'','Re: burn cd','No, mi dispiace.\n\nEMG','',0,'AIA=','dezmoj1g',1,0,'',6,0,0),(31071,6875,20,29,0,'88.149.160.254',1178194305,1,0,1,1,1,0,'','','x Silvio:\n\nHo anche quella di Paco ma è piuttosto lenta nel visualizzare i menu (specie se lunghi) e non mi sembra che consenta di cambiare il colore nella riga del menu ed evidenziarlo tipo office.\n\nIntendo come <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/menuoffice.png\">www.softwarexp.co.uk/beta/menuoffice.png</a><!-- w -->\n\nO sbaglio ?\n\nMarco','',0,'AIA=','2q9ubq1i',1,0,'',29,0,0),(31072,6875,20,29,0,'88.149.160.254',1178194397,1,0,1,1,1,0,'','','x Enrico:\n\nL\'errore è \"Declaration syntax error\" nella riga 23 di menus.c','',0,'AIA=','32kum4jk',1,0,'',29,0,0),(31073,6879,6,41,0,'200.87.67.10',1178194672,1,0,1,1,1,0,'','','Hola,\n\nintenta poner solo una vez  AdsSetServerType(7) que define la posibiliad de utilizar a ADS en todos sus modos\n\nsaludos\n\nMarcelo','',0,'AIA=','3mf8fln9',1,0,'',41,0,0),(31074,6871,6,838,0,'80.34.222.112',1178195290,1,0,1,1,1,0,'','','Raymundo\nA mi me va bien así:\n1º Declaro como locales:\n[code:2prvmu41]  local hdc &#58;=CreateDc&#40;&quot;DISPLAY&quot;,&quot;&quot;,&quot;&quot;&#41;\n  local nHor&#58;=GetDeviceCaps&#40;hdc,8&#41;\n  local nVer&#58;=GetDeviceCaps&#40;hdc,10&#41;\n[/code:2prvmu41]\n2º Declaro la Ventana MDICHILD así:\n[code:2prvmu41]  DEFINE WINDOW oDlg MDICHILD ;\n	OF Publicas&#58;oWPpal;\n	FROM 30+&#40;len&#40;Publicas&#58;oWPpal&#58;oWndclient&#58;aWnd&#41;*15&#41;,30+&#40;len&#40;Publicas&#58;oWPpal&#58;oWndclient&#58;aWnd&#41;*15&#41;;\n	TO nver-160+&#40;len&#40;Publicas&#58;oWPpal&#58;oWndclient&#58;aWnd&#41;*15&#41;,nHor-30+&#40;len&#40;Publicas&#58;oWPpal&#58;oWndclient&#58;aWnd&#41;*15&#41;;\n	COLOR CLR_BLACK,CLR_WHITE;\n        PIXEL\n[/code:2prvmu41]\n3º Para activarla lo hago así, teniendo en cuenta cerrar los alias mediante el Valid(), y si hemos utilizado un listbox, ése area lo cierro con él:\n[code:2prvmu41]            ACTIVATE WINDOW oDlg        ;\n                 ON INIT  oLbx&#58;SetFocus&#40;&#41;;\n                 ON PAINT &#40; oLbx&#58;Refresh&#40;&#41;,;\n                            oLbx&#58;nWidth&#58;=oDlg&#58;nWidth-10   ,;\n                            oLbx&#58;nHeight&#58;=oDlg&#58;nHeight-82 ,;\n                            oTab&#58;nWidth&#58;=oDlg&#58;nWidth-10   ,;\n                            oTab&#58;nTop&#58;=oDlg&#58;nHeight-52 &#41;  ;\n		 MAXIMIZED;\n                 VALID &#40;&#40;aAlias&#91;21&#93;&#41;-&gt;  &#40; dbClosearea&#40;&#41; &#41;,&#40;aAlias&#91;26&#93;&#41;-&gt;&#40; dbClosearea&#40;&#41; &#41;,;\n		        &#40;aAlias&#91;23&#93;&#41;-&gt;&#40; dbCloseArea&#40;&#41; &#41;,&#40;aAlias&#91;29&#93;&#41;-&gt; &#40; dbCloseArea&#40;&#41; &#41;,;\n			&#40;aAlias&#91;2&#93;&#41;-&gt; &#40; dbCloseArea&#40;&#41; &#41;,oLbx&#58;lCloseArea&#40;&#41;,&#46;t&#46; &#41;\n[/code:2prvmu41]\nLuego ya en la operativa para comprobar si una ventana está abierta hago:[code:2prvmu41]   if AbiertaVentana&#40; cTitulo &#41;\n   return NIL\n   endif[/code:2prvmu41]\ny la funcion es:[code:2prvmu41]FUNCTION AbiertaVentana &#40; cTitulo &#41;\n***********************************\n local lAbierta&#58;=&#46;f&#46;\n local i\n\n  if len&#40; Publicas&#58;oWPpal&#58;OwndClient&#58;aWnd &#41; &lt;&gt; 0\n    for i = 1 to len&#40; Publicas&#58;oWPpal&#58;oWndClient&#58;aWnd &#41;\n      if Publicas&#58;oWPpal&#58;OwndClient&#58;aWnd&#91;i&#93;&#58;ctitle = cTitulo\n        Publicas&#58;oWPpal&#58;OwndClient&#58;aWnd&#91;i&#93;&#58;normal&#40;&#41;\n        lAbierta&#58;=&#46;t&#46;\n      endif\n    next\n  endif\n\n return lAbierta[/code:2prvmu41]\nY tienes que tener en cuenta que si abres varias ventanas las bases de datos tienen que tener un alias distinto cada vez que abras una nueva.\nYo lo hago así:[code:2prvmu41]Function CargaAlias\n*******************\n\nreturn &#123; ;\n         cGetNewAlias&#40; &quot;ARTICULO&quot; &#41;,;   // 1\n         cGetNewAlias&#40; &quot;MUNICI&quot; &#41;  ,;   // 2\n         cGetNewAlias&#40; &quot;PROVIN&quot; &#41;  ,;   // 3\n         cGetNewAlias&#40; &quot;PROPIE&quot; &#41;  ,;   // 4\n	 cGetNewAlias&#40; &quot;SEAT1&quot;  &#41;  ,;	// 5\n         cGetNewAlias&#40; &quot;RAPPEL&quot; &#41;  ,;	// 6\n         cGetNewAlias&#40; &quot;EQUIPO&quot; &#41;  ,;   // 7\n         cGetNewAlias&#40; &quot;REFEREN&quot; &#41; ,;   // 8\n	 cGetNewAlias&#40; &quot;MATERIAL&quot; &#41;,;	// 9\n         cGetNewAlias&#40; &quot;VEHICULO&quot; &#41;,;	// 10\n	 cGetNewAlias&#40; &quot;TIPOS&quot; &#41;   ,;	// 11\n	 cGetNewAlias&#40; &quot;CANON&quot; &#41;   ,;	// 12\n	 cGetNewAlias&#40; &quot;TEXTOS&quot; &#41;  ,;	// 13\n	 cGetNewAlias&#40; &quot;IMAGEN&quot; &#41;  ,;	// 14\n				   ,;	// 15\n				   ,;	// 16\n				   ,;	// 17\n	 cGetNewAlias&#40; &quot;PARTE&quot; &#41;   ,;	// 18\n	 cGetNewAlias&#40; &quot;FIESTAS&quot; &#41; ,;	// 19\n	 cGetNewAlias&#40; &quot;VACAS&quot; &#41;   ,;	// 20\n	 cGetNewAlias&#40; &quot;PROVE&quot; &#41;   ,;   // 21\n	 cGetNewAlias&#40; &quot;FACTURA&quot; &#41; ,;   // 22\n	 cGetNewAlias&#40; &quot;ALMACEN&quot; &#41; ,;   // 23\n	 cGetNewAlias&#40; &quot;ALBARAN&quot; &#41; ,;   // 24\n	 cGetNewAlias&#40; &quot;EXTRAS&quot; &#41;  ,;   // 25\n	 cGetNewAlias&#40; &quot;CONDUC&quot; &#41;  ,;   // 26\n	 cGetNewAlias&#40; &quot;GASTOS&quot; &#41;  ,;   // 27\n	 cGetNewAlias&#40; &quot;REEMBOL&quot; &#41; ,;   // 28\n         cGetNewAlias&#40; &quot;RUTA&quot; &#41;    ,;   // 29\n         cGetNewAlias&#40; &quot;AVISOS&quot; &#41;  ,;   // 30\n         cGetNewAlias&#40; &quot;NALBARAN&quot; &#41; ;   // 31\n	&#125;[/code:2prvmu41]\n[code:2prvmu41]function cGetNewAlias&#40; cAlias &#41; \n*******************************\nlocal cNewAlias, nArea &#58;= 1\n\n      if Select&#40; cAlias &#41; != 0\n        while Select&#40; cNewAlias &#58;= &#40; cAlias + ;\n              StrZero&#40; nArea++, 2 &#41; &#41; &#41; != 0\n        end\n      else\n        cNewAlias = cAlias\n      endif\n[/code:2prvmu41]\nA mi me va bien de momento así\nNo se si ésto es lo que pedías, y perdona que la indentación sea un churro, pero en mi procesador de textos me sale bien.\n\nSaludos\n\nJose Luis','',0,'AIA=','2prvmu41',1,0,'',838,0,0),(31075,6825,3,972,0,'81.164.49.37',1178195611,1,0,1,1,1,0,'','','[quote=&quot;rspilon&quot;:138b9ygs]how can I help you?[/quote:138b9ygs]\nWhere have you been all this time man?!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPatrick','',0,'gA==','138b9ygs',1,0,'',972,0,0),(31076,6860,6,348,0,'201.230.0.93',1178196004,1,0,1,1,1,0,'','','Hola Antonio\n\nBueno si es asi,  que parametro debo de habilitar y en que parte lo debo hacer.\n\nLubin\n\n\n\n[quote=&quot;Antonio Linares&quot;:1whcdffd]Lubin,\n\nNo se puede cambiar el color de los GETs deshabilitados, ya que ese color lo implementa Windows. \n\nLo que te permite FWH es que no se vean como deshabilitados, aunque lo esten, para mejorar su lectura.[/quote:1whcdffd]','',0,'gA==','1whcdffd',1,0,'',348,0,0),(31077,6884,3,800,0,'201.14.31.6',1178197545,1,0,1,1,1,0,'','Estranho.....','Ola a todos !!!!\n\nolhem soh q coisa interessante esta acontecendo !!\n\neu tenho uma tabela q o problema acontece:\nEu abro ela normalmente assim \n\ndbUseArea(.T. ,\"DBFCDX\", cPathMnt+\"\\MONITOR.LGN\" ,\"MNT\" , .T. , .F.) \nSet Index to &amp;(cPathMnt+\"\\Monitor\")\n\nUtilizo ela mudando order, travando registro, gravando, destravando, dando append blank, tudo certinho... \nDepois faco outras coisas em outras tabelas... \nNum determinado momento volto nessa tabela pra atualizar uns dados, dai q observei os problemas, q o simples dbsetorder(n) dah, nesse momento, problema (trava a app), como outros comando, por exemplo dbUnlock()... \n\nIsso tudo rodando pela rede (app instalado num servidor, e sendo executado por uma estacao - rodado no proprio servidor nao acontece o problema) !\n\nDesde ja agradeco: muito obrigado !!!!','',0,'gA==','uymailm6',1,0,'',800,0,0),(31078,6586,6,237,0,'200.68.70.90',1178197600,1,0,1,1,1,0,'','Actualizo el link','Amigos:\n\nLes actualizo el link de descarga por que me avisaron que no funcionaba mas.\n\n<!-- m --><a class=\"postlink\" href=\"http://files.to/get/443008/34035/TestTC.zip\">http://files.to/get/443008/34035/TestTC.zip</a><!-- m -->\n\nAlgun comentario ???\n\n\nSaludos!\nAlejandro Cebolido','',0,'gA==','1jc6ky90',1,0,'',237,0,0),(31079,6885,6,176,0,'201.255.130.30',1178197665,1,0,1,1,1,0,'','ads','Hola quisiera saber si alguien tiene alguna guía básica para utilizar el ads, como se configura  para tablas dbf, y como se hacen las conexiones con el servidor. Se puede utilizar desde la misma pc? Si funciona con xp, etc\n\nDesde ya muchas gracias\n\nLuis Adolfo Sáenz','',0,'gA==','hqthy4ga',1,0,'',176,0,0),(31080,6882,3,53,0,'189.139.25.111',1178197884,1,0,1,1,1,1,'','','Marco:\n\nPls try with a numeric var as follow:\n\nacMonths := {\"Jan\",\"Feb\",\"Mar\",\"Apr\",\"May\",\"Jun\",;\n	\"Jul\",\"Aug\",\"Sep\",\"Oct\",\"Nov\",\"Dec\"}\n\nnMonth := 1\n\nREDEFINE COMBOBOX oGet VAR nMonth ID 100 OF oDlg;\nPROMPTS acMonths\n\nRegards, Armando','',0,'gA==','3mw5ogl7',1,0,'',53,0,0),(31081,6879,6,316,0,'213.97.245.163',1178198085,1,0,0,1,1,0,'','','Marcelo,\n\nGracias por responder. Voy a probar como me dices, de todas maneras no tengo claro en que punto de la aplicación debo definir el tipo de servidor, si al conectar, al principio o antes de cada apertura. La ayuda del ADS no es muy clara al respecto, solo dice que es una funcion que afecta a toda la aplicación pero no aclara si se puede usar para cambiar el comportamiento durante la ejecución.\n\nSería importante que no use el Local server al conectar al servidor remoto para evitar problemas de conectividad.\n\nUn saludo,\n\nCarlos.','',0,'gA==','1d0kn74l',1,0,'',316,0,0),(31082,6879,6,316,0,'213.97.245.163',1178198557,1,0,0,1,1,0,'','','Marcelo,\n\nProbé dejando solo el ADSsetservertype del principio especificando 7 (todos) y me da el mismo error. Si se te ocurre alguna otra cosa que pueda probar me cuentas.\n\nUn saludo y gracias por tu atención,\n\nCarlos.','',0,'gA==','dr8ogseb',1,0,'',316,0,0),(31083,6879,6,36,0,'164.77.81.210',1178198691,1,0,1,1,1,0,'','','Carlos\n\n[code:3tzkxz2j]iF AdsConnect60&#40; &quot;\\\\pluton\\disco-d\\inciden\\inciden&#46;add&quot;, 7 , &quot;usr&quot;, &quot;pass&quot;,, @hConection &#41; [/code:3tzkxz2j]\n\n\nSaludos\nPatricio','',0,'AIA=','3tzkxz2j',1,0,'',36,0,0),(31084,6815,6,228,0,'201.245.222.86',1178199425,1,0,1,1,1,1,'','Amigo...','Amigo Willi como siempre gracias.... \n\nVoy a probar y cualquier cosa te comento..  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1u6nkeev',1,0,'',228,0,0),(31085,6871,6,492,0,'189.147.32.76',1178200653,1,0,1,1,1,1,'','','Hola Jose Luis :\nMuchas gracias por compartir tu metodo MDI, empezare a hacer pruebas sobre el.\n\nHola Antonio :\nPasa lo siguiente, tengo una aplicacion practicamente terminada y debido a algunas sugerencias tanto de los clientes como propias, he determinado que tengo que convertirla a MDI.\n\nAsi que, esa es la situacion tengo que ver antes de meterle mano a las modificaciones, todo lo que tengo que considerar que y que no debo cambiar, etc.\n\n\nSaludos','',0,'AIA=','2w0dmtfl',1,0,'',492,0,0),(31086,6808,1,981,0,'70.55.99.163',1178200731,1,0,1,1,1,0,'','win error next','Yes l am sure\nbla bla bla\nexetype window 3.1\n\nbla bla bla\n\nexetype tutor08.exe 3.95\n\nl try this because in my error.log that said window reelease 3.95 and msdos release 7.1\n\nWhen l ask for the release of window that said 4.10','',0,'AIA=','3wwrsvds',1,0,'',981,0,0),(31087,6880,6,492,0,'189.147.32.76',1178200840,1,0,1,1,1,1,'','','Hola \n\nPrueba a cambiarle el font, me paso lo mismo cuando tenia el MS Sans, le puse el Tahoma y quedo muy bien !!!.\n\n\nSaludos','',0,'AIA=','3q4vf5m6',1,0,'',492,0,0),(31088,6831,6,492,0,'189.147.32.76',1178201293,1,0,1,1,1,1,'','','Hola\n\nHace ya tiempo atras, encontre un programa : Armadillo\n\nLo que hace, es que te \"envuelve\" tu archivo EXE con algunas \"capas\" para que no se pueda accesar a el, y sobre todo segun, para evitar una posible ingenieria inversa al mismo.\n\nNo te sabria decir si funciona, debido a que en aquel entonces estaba en los 16 bits y este programa funciona solo con 32.\n\nSeguro que hay muchas mas opciones similares a este programa.\n\nSaludos','',0,'AIA=','u64gciio',1,0,'',492,0,0),(31089,6879,6,316,0,'213.97.245.163',1178202326,1,0,0,1,1,0,'','','Hola Patricio,\n\nnada, hace exactamente lo mismo. Algo que no estoy usando que he visto en tu mensaje es hConnection, ¿Que uso tiene?\n\nUn saludo y gracias por responder,\n\nCarlos','',0,'AIA=','1wxem3fg',1,0,'',316,0,0),(31090,6886,6,1023,0,'201.92.184.122',1178202540,1,0,1,1,1,0,'','Valid dos Gets - Alguém pode me ajudar?','Estou tendo muitos probemas com os gets, preciso montar um esquema que crie os gets e use os valids, mais todas as minhas tentativas foram fracassadas, alguém ai sabe como usar os valids?\n\nVou postar um exemplo do que estou tentando fazer, mais sempre da um dos problemas, ou retorna o erro da funçõ TRANSFORM ou o que é digitado em um get passa para todos, ou nem da para digitar nos gets, e tem mais, só que não vale a pena colocar aqui. \n\n[code:1yv5qiww]\n#include &quot;SQLRDD&#46;ch&quot;\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction main&#40;cDSN&#41;\n   local oWnd, v, t,vali, c &#58;= 1 , oG   \n   DEFINE WINDOW oWnd FROM 1,1 TO getSysMetrics&#40;1&#41;/2,getSysMetrics&#40;0&#41;/2 PIXEL TITLE &quot;Teste&quot;   \n   oG &#58;= array&#40;4&#41;    // &lt;-- Minha ultima esperança ;&#40; &#40;Não funcionou&#41;\n   v=array&#40;4&#41;\n   v&#91;1&#93;  &#58;= &quot;o&quot;\n   v&#91;2&#93;  &#58;= &quot;a&quot;\n   v&#91;3&#93;  &#58;= &quot;b&quot;\n   v&#91;4&#93;  &#58;= &quot;d&quot;\n   ttop  &#58;= 1\n   \n   for c = 1 to 4   \n      t=v&#91;c&#93;      \n      private &amp;t &#58;= space&#40;10&#41;\n      \n      vali  &#58;= &quot;!EMPTY&#40;&quot; + t + &quot;&#41;&quot;\n      oG&#91;c&#93; &#58;= TGET&#40;&#41;&#58;New&#40;tTop, 1,&#123;|| &amp;t &#125;, oWnd, 50, 10,, &amp;&#40;vali&#41;&#41;\n      //@ ttop,1 GET &amp;&#40;t&#41; PICTURE &quot;@!&quot; VALID &amp;&#40;vali&#41;\n      ttop+=2\n           \n   next\n   ? o ; ? a ; ? b ; ? d    // apenas para comprovar que a variavel foi declarada &#40;Não confio nesse macro&#41;\n   ACTIVATE WINDOW oWnd\nreturn\n[/code:1yv5qiww]\n\nJá não sei mais como fazer isso, se alguem tiver qualquer sugestão ou opinial ou ainda uma solução, me envie, ficarei MUITOOO AGRADECIDO.\n\nObrigado, t+.','',0,'AIA=','1yv5qiww',1,0,'',1023,0,0),(31091,6860,6,319,0,'201.1.169.3',1178202553,1,0,1,1,1,0,'','','Resolvi desta maneira:\n\n   aEval( oDlg:aControls, {|o| If(o:ClassName() == \"TGET\", o:lDisColors:=.F., NIL) } )','',0,'AIA=','17zbz6l0',1,0,'',319,0,0),(31092,6880,6,294,0,'201.250.223.170',1178202801,1,0,1,1,1,1,'','','Cambio el font por Tahoma y sigue dando el error\nEste es el dialogo\n[code:3s71sm6a]ACCESO DIALOG 89, 116, 142, 63\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Acceso al Sistema&quot;\nFONT 8, &quot;Tahoma&quot;\n&#123;\n EDITTEXT 101, 48, 15, 60, 17, ES_UPPERCASE | ES_PASSWORD | WS_BORDER | WS_TABSTOP\n RTEXT &quot;Password&quot;, -1, 6, 19, 39, 8\n PUSHBUTTON &quot;&amp;Ok&quot;, 102, 24, 44, 50, 14\n PUSHBUTTON &quot;&amp;Salir&quot;, 103, 81, 44, 50, 14\n&#125;[/code:3s71sm6a]\nAsi es como se ve:  \nDesde ya muchas gracias[img:3s71sm6a]http&#58;//www&#46;cmsoft&#46;com&#46;ar/pantalla&#46;jpg[/img:3s71sm6a]','',0,'CIA=','3s71sm6a',1,0,'',294,0,0),(31093,6886,6,106,0,'85.34.123.173',1178202885,1,0,1,1,1,1,'','','Mira este post, te servirà para orientarte\n\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1291&amp;highlight=detached+locals\">http://fivetechsoft.com/forums/viewtopi ... hed+locals</a><!-- m -->\n\n\nSaludos','',0,'CIA=','2s2wuctp',1,0,'',106,0,0),(31094,6882,3,29,0,'88.149.160.254',1178203211,1,0,1,1,1,0,'','','Nothing to do.\n\nIf I select the month pressing the first key the return value will be the string instead of the numeric position.\n\nSee <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test.png\">www.softwarexp.co.uk/beta/test.png</a><!-- w -->\n\nThis problem appairs with the latest fivewin version,the FWH April 2006 build runs fine.\n\nMarco','',0,'CIA=','zf69escn',1,0,'',29,0,0),(31095,6851,6,963,0,'201.236.185.13',1178203288,1,0,0,0,1,0,'','','Después de estudiar un poco, decidí compilar las fuentes que trae la clase que me indicaste, y problema solucionado.\n\nAntonio, nuevamente gracias.','',0,'CIA=','e6jfatax',1,0,'',963,0,0),(31096,6815,6,376,0,'200.106.127.79',1178203416,1,0,1,1,1,1,'','','Este link tiene avisos pornograficos... podrías ponerlo en otro, quizá <!-- w --><a class=\"postlink\" href=\"http://www.4share.com\">www.4share.com</a><!-- w --> que es libre (salvo tener que registrar el Upload).\n\n[quote=&quot;wmormar&quot;:4usft5zq]Hola,\n\nTengo funcionando ADORDD en xHarbour.\n\naqui dejo enlace de descarga.\n\n[url:4usft5zq]http&#58;//www&#46;uploading&#46;com/files/R23RK35L/adoRDD&#46;rar&#46;html[/url:4usft5zq]\n\nSaludos, sigo probando y modificando.\n\npd. viene ejemplo de uso (prg y exe)[/quote:4usft5zq]','',0,'kA==','4usft5zq',1,0,'',376,0,0),(31097,6886,6,1023,0,'201.92.184.122',1178203453,1,0,1,1,1,0,'','','Olhei o post, mais não entendi muito bem...\no codeblock que estou passando está errado?','',0,'kA==','1w6n9gb1',1,0,'',1023,0,0),(31098,6875,20,49,0,'213.82.134.66',1178205142,1,0,1,1,1,1,'','','Si sbagli \nPerchè se vuoi ti posso confezionare uno dei menu che uso in un programma\n è lungo in larghezza  menu \"xxxxxxxxxxxxxxxxxxxxxxxxxxxxx\"\n ed è lungo in altezza con molti sottomenu \n\n e non ho mai visto un problema come quello da te lamentato\n\n e poi se avevi questo tipo di problemi potevi chiedere a Paco ma mi sembra molto strano ....','',0,'kA==','1fz4e5g8',1,0,'',49,0,0),(31099,6869,3,343,0,'24.173.70.29',1178205378,1,0,1,1,1,0,'','','I\'m sorry but I cannot get this to work. I get errors trying to compile the c code provided. \n\nAlso, DTPicker does not call setdate() with the second parameter anywhere that I could see.\n\nDoes anybody have this working?','',0,'kA==','38mjsk3q',1,0,'',343,0,0),(31100,6887,6,49,0,'213.82.134.66',1178205382,1,0,1,1,1,1,'','Burncd','i found on xharbour.com an utility for burn a cd\n but when i try to run it not run ok \n Some one can trying it  please !!\n\n\nN.B. i not want cdburner of manchera because he not give me all the sources codes.','',0,'kA==','12g5zu0z',1,0,'',49,0,0),(31101,6880,6,492,0,'189.147.32.76',1178205426,1,0,1,1,1,1,'','','Hola, asi lo tengo yo :\n\n\n[code:1b08wd51]\nVRFPSW DIALOG 201, 126, 194, 79\nSTYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME\nCAPTION &quot;VERIFICACION DE ACCESO&quot;\nFONT 8, &quot;TAHOMA&quot;\n&#123;\n COMBOBOX 103, 50, 15, 130, 58, CBS_DROPDOWNLIST | CBS_NOINTEGRALHEIGHT | WS_VSCROLL | WS_TABSTOP\n EDITTEXT 104, 50, 31, 50, 11, ES_PASSWORD | WS_BORDER | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Verificar&quot;, 105, 68, 58, 50, 14\n PUSHBUTTON &quot;Salir&quot;, 106, 128, 58, 50, 14\n GROUPBOX &quot; Datos De Usuario &quot;, 101, 4, 4, 185, 43, BS_GROUPBOX | WS_DISABLED | WS_TABSTOP\n GROUPBOX &quot; Opciones &quot;, 102, 51, 49, 138, 26, BS_GROUPBOX | WS_DISABLED | WS_TABSTOP\n RTEXT &quot;Usuario &#58;&quot;, -1, 8, 17, 38, 8\n RTEXT &quot;PassWord &#58;&quot;, -1, 8, 32, 38, 8\n&#125;\n[/code:1b08wd51]\n\n\n[img:1b08wd51]http&#58;//img300&#46;imageshack&#46;us/img300/9349/accesojx5&#46;jpg[/img:1b08wd51]','',0,'CIA=','1b08wd51',1,0,'',492,0,0),(31102,6888,6,945,0,'80.32.177.143',1178205655,1,0,1,1,1,0,'','Centrar un texto con TPrinter','Muy buenas, estoy interesado en centrar un texto con TPRINTER,sabiendo el texto a centrar, el font del texto y si la impresion es vertical o horizontal.\n\nGracias.\nUn Saludo.','',0,'CIA=','31zmc2qn',1,0,'',945,0,0),(31103,6879,6,36,0,'164.77.81.210',1178206144,1,0,1,1,1,0,'','','Carlos\n\n[url:1qzphzhr]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5563&amp;highlight=oapp+hconnection[/url:1qzphzhr]\n\n\npuede que te sirva\n\nSaludos\nPatricio','',0,'EA==','1qzphzhr',1,0,'',36,0,0),(31104,6886,6,106,0,'85.34.123.173',1178206720,1,0,1,1,1,1,'','','Prueba asi:\n\n\n[code:16jsxy5i]\n#include &quot;SQLRDD&#46;ch&quot;\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction main&#40;cDSN&#41;\n   local oWnd, v, t,vali, c &#58;= 1 , oG   \n   DEFINE WINDOW oWnd FROM 1,1 TO getSysMetrics&#40;1&#41;/2,getSysMetrics&#40;0&#41;/2 PIXEL TITLE &quot;Teste&quot;   \n   oG &#58;= array&#40;4&#41;    // &lt;-- Minha ultima esperança ;&#40; &#40;Não funcionou&#41;\n   v=array&#40;4&#41;\n   v&#91;1&#93;  &#58;= &quot;o&quot;\n   v&#91;2&#93;  &#58;= &quot;a&quot;\n   v&#91;3&#93;  &#58;= &quot;b&quot;\n   v&#91;4&#93;  &#58;= &quot;d&quot;\n   ttop  &#58;= 1\n   \n   for c = 1 to 4   \n      t=v&#91;c&#93;     \n      private &amp;t &#58;= space&#40;10&#41;\n     \n      vali  &#58;= &quot;!EMPTY&#40;&quot; + t + &quot;&#41;&quot;\n      oG&#91;c&#93; &#58;= TGET&#40;&#41;&#58;New&#40;tTop, 1,  GenBlock&#40; v, c &#41;, oWnd, 50, 10,, &amp;&#40;vali&#41;&#41;\n      //@ ttop,1 GET &amp;&#40;t&#41; PICTURE &quot;@!&quot; VALID &amp;&#40;vali&#41;\n      ttop+=2\n           \n   next\n   ? o ; ? a ; ? b ; ? d    // apenas para comprovar que a variavel foi declarada &#40;Não confio nesse macro&#41;\n   ACTIVATE WINDOW oWnd\nreturn \n\n\nfunction GenBlock&#40; v, c &#41;\nRETURN &#123; || v&#91;c&#93; &#125; \n[/code:16jsxy5i]\n\n\nSaludos','',0,'AIA=','16jsxy5i',1,0,'',106,0,0),(31105,6586,6,529,0,'200.159.199.106',1178206901,1,0,1,1,1,0,'','','os arquivos podem ser copiados quando abertos???','',0,'AIA=','2byu0ov4',1,0,'',529,0,0),(31106,6853,3,1038,0,'80.122.88.242',1178207650,1,0,1,1,1,0,'','','This is a VBA Macro where I inserted some code to get all Emails from a folder.\nRegards \nOtto\n\nSub SaveEmail()\n\'Declaration\nDim itm As Outlook.MailItem\n\nSet olItms = Application.ActiveExplorer.CurrentFolder.Items\n\nOn Error Resume Next\nFor Each itm In olItms\nMsgBox (itm.SenderEmailAddress)\nNext itm\n\nEnd Sub','',0,'AIA=','1lhsc7fx',1,0,'',1038,0,0),(31107,6880,6,294,0,'201.250.223.170',1178208050,1,0,1,1,1,1,'','','Gracias amigos por las sugerencias.\nYa lo solucioné, tenia mál definido el formulario de acceso, lo definia sobre una ventana y al sacarle el OF funcionó correctamente.\nGracias a todos...','',0,'AIA=','280ifuek',1,0,'',294,0,0),(31108,6853,3,924,0,'81.208.36.89',1178208091,1,0,1,1,1,0,'','','tks, in VBA it seems very simple. \nBut i use fwh, i tried\nRomeo','',0,'AIA=','38h4ushb',1,0,'',924,0,0),(31109,6875,20,6,0,'87.3.232.51',1178208769,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:1cf56ook]x Enrico:\n\nL\'errore è \"Declaration syntax error\" nella riga 23 di menus.c[/quote:1cf56ook]\n\nSostituisci tutte le righe tipo\n\n[code:1cf56ook]HARBOUR HB_FUN_CREATEMENU&#40; PARAMS &#41;[/code:1cf56ook]\n\ncon\n\n[code:1cf56ook]HB_FUNC&#40; CREATEMENU &#41;[/code:1cf56ook]\n\nSostituisci\n\n[code:1cf56ook]#include &lt;ClipApi&#46;h&gt;[/code:1cf56ook]\n\ncon\n\n[code:1cf56ook]#include &lt;HbApi&#46;h&gt;[/code:1cf56ook]\n\ne infine sostituisci tutti le funzioni tipo\n\n[code:1cf56ook]_retnl&#40; &#46;&#46;&#46;\n_parnl&#40; &#46;&#46;&#46;\netc&#46;[/code:1cf56ook]\n\ncon\n\n[code:1cf56ook]hb_retnl&#40; &#46;&#46;&#46;\nhb_parnl&#40; &#46;&#46;&#46;\netc&#46;[/code:1cf56ook]\n\nEMG','',0,'gIA=','1cf56ook',1,0,'',6,0,0),(31110,6869,3,343,0,'24.173.70.29',1178209218,1,0,1,1,1,0,'','','I appreciate the code Stefan but I use xHarbour professional and I cannot get the code to compile without errors.\n\nGale','',0,'gIA=','8avf78ec',1,0,'',343,0,0),(31111,6859,3,909,0,'71.71.110.50',1178210872,1,0,1,1,1,1,'','','Antonio - \nI sent an e-mail to you with a zip file (multfld.zip) attached that contained folder.prg (tfolder modified), tabctrl.c modified, foldonly.prg, and foldonly.rc.  I wasn\'t sure how to upload it to this forum.  \n\nRegards,\nCharles','',0,'gIA=','1vc7ksjb',1,0,'',909,0,0),(31112,6888,6,24,0,'80.24.12.168',1178211255,1,0,1,1,1,1,'','Re: Centrar un texto con TPrinter','[quote=&quot;softruz&quot;:1bv9t73x]Muy buenas, estoy interesado en centrar un texto con TPRINTER,sabiendo el texto a centrar, el font del texto y si la impresion es vertical o horizontal.\n\nGracias.\nUn Saludo.[/quote:1bv9t73x]\n\nBajate las clase TImprime y TUtilPrn, estan por aqui en el foro de utilidades,\ny ahi tienes el codigo fuente que realiza eso y mucho mas...','',0,'gA==','1bv9t73x',1,0,'',24,0,0),(31113,6879,6,316,0,'213.97.245.163',1178211331,1,0,0,1,1,0,'','','Patricio,\n\ngracias por el truco, me viene más que bien. Hasta ahora lo resolví abriendo la dbf local con \'dbfcdx\', pero ahora crearé 2 conexiones y te digo como me fue.\n\nSaludos,\n\nCarlos','',0,'gA==','3skbj20a',1,0,'',316,0,0),(31114,6871,6,278,0,'164.77.105.87',1178212158,1,0,1,1,1,1,'','','Hola Raymundo:\n\nAdjunto te dejo unos manuales de MDI al 100% que nos pasaron en un\ncurso de Argentina, del grupo puertosur.\n\nLo hicieron Eduardo Rizzolo y Victor Tomas.\n\nEspero que te sirvan son muy buenos.\n\nPueden bajarlos de aqui.\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/29290837/Mdi__Ayuda_-_al_100_.rar.html\">http://rapidshare.com/files/29290837/Md ... _.rar.html</a><!-- m -->\n\nSaludos,','',0,'gA==','1549i8k0',1,0,'',278,0,0),(31115,6886,6,1023,0,'201.92.184.122',1178212216,1,0,1,1,1,0,'','','Agora entendi, nesse caso do array funcionario, mais esse código que postei é apenas um prg de teste que estava montando.\nO intuito disso é o seguinte, a classe que estou montando deve criar uma tela de \"EDIÇÃO\" com todos os campos do browse aberto, o problema é que o browse não tem todos os campos da tabela, só os que estão especificados em uma outra tabela, e nessa mesma tabela com os nomes das colunas que o browse vai ter, tem também a rotina de validação de cada campo, e apartir dai que vou ter que tirar.\n\nBasicamente o seguinte , pego a rotina como string e uso o macro na hora de criar a janela de edição, e como o banco de dados tem MUITOS campos, fica ruim fazer a edição direto no browse.\n\nComo solução, gravei tudo em um array para quando criar os get pegar o valid e a Picture direto dele tb, o nome dos campos, etc.\nPara você entender melhor, você pode dar uma olhada em um tópico que postei parte dessa rotina.\n\n[url:3hbc4pt4]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6724&amp;highlight=[/url:3hbc4pt4]\n\nE fica complicado fazer diferente, pois estou passando o sistema de modo texto para modo grafico, e já existe muitos clientes usando ele, fica complicado trocar o banco de dados de todos eles, ou fazer isso sem pegar do banco de dados, pois cada empresa que usa o sistema tem seus campos nas tabelas, etc.\n\nDe qualquer forma, obrigado pela ajuda, vou tentar usar essa idéia para fazer isso, obrigado. T+.','',0,'EA==','3hbc4pt4',1,0,'',1023,0,0),(31116,6586,6,278,0,'164.77.105.87',1178212491,1,0,1,1,1,1,'','','Gracias Alejandro,  \n\nLo vamos a mirar.\n\nSaludos,','',0,'EA==','7poan9ol',1,0,'',278,0,0),(31117,6825,3,143,0,'67.60.48.2',1178212725,1,0,1,1,1,0,'','Rene....','Rene, how about me too???\n\nSid.........','',0,'EA==','p4wn2pqi',1,0,'',143,0,0),(31118,6815,6,2,0,'87.218.146.25',1178212736,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/29234022/adoRDD.rar.html\">http://rapidshare.com/files/29234022/adoRDD.rar.html</a><!-- m -->','',0,'EA==','3th0y3je',1,0,'',2,0,0),(31119,6889,3,35,0,'167.7.140.254',1178214348,1,0,1,1,1,0,'','ADO enhansed TwBrowse ?','To All\n\nWorking with a local access table and FWH Twbrowse seems to work with decent responce in painting the listbox .. BUT .. connecting to a SQL server using ADO and FW Twbrowse is very slow ..\n\nThe ( fwh ) Browse will start and you will see a corner in the left open and sit there till Twbrowse can get it\'s \'bearings\'. I realize that Twbrowse has to figure out it\'s parameters. top, bottom, recno??  but it is painfully slow.\n\nEven worse is Hernan\'s TwBrowse replacement class .. it never opens the recordset... and looking at the code .. it doesn\'t even take into consideration ADO .. just rdd and I am not using an rdd to calc the recordset.\n\nIs there a way to modify either FW TWbrowse or Hernan\'s Twbrowse to give any better performance with ADO.\n\nThanks\nRick Lipkin','',0,'EA==','22apv6mi',1,0,'',35,0,0),(31120,6889,3,2,0,'87.218.146.25',1178214863,1,0,1,1,1,1,'','','Rick,\n\nHave you already tested the free ADORDD that we have published ?\n\nBrowses work very fine with it','',0,'EA==','1a14bqx1',1,0,'',2,0,0),(31121,6853,3,1038,0,'80.122.88.242',1178215551,1,0,1,1,1,0,'','','What for do you need this?\nIn my case I save the emails with a macro and than use a FW program with a timer which looks up the folder where the emails are saved.\n\n\nRegards \nOtto','',0,'EA==','jz7ftpkb',1,0,'',1038,0,0),(31122,6882,3,2,0,'87.218.146.25',1178216230,1,0,1,1,1,1,'','','Marco,\n\nPlease make this change at source\\classes\\combobox.prg line 506:\n\n   ::Set( If( ValType( Eval( ::bSetGet ) ) == \"N\", AScan( ::aItems, uItem ), uItem ) )','',0,'EA==','1zch9233',1,0,'',2,0,0),(31123,6871,6,492,0,'189.147.32.76',1178217840,1,0,1,1,1,1,'','','Muchas gracias Juan\n\nLes estare dando su buena checada !!\n\n\n\nSaludos','',0,'EA==','nqbbxuao',1,0,'',492,0,0),(31124,6889,3,35,0,'167.7.140.254',1178218602,1,0,1,1,1,0,'','','Antonio\n\nTo be honest with you .. no, I have not tried the adordd. Would you be so kind as to send it to my private e-mail .. I will give it a good test.. \n\nI have been following your development .. does the download include a brief readme on the syntax .. for the connection strings ??  I guess the .ch would tell me a great deal as well .. \n\nBe anxious to see how it works.\n\nRick Lipkin\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'EA==','30qd2aea',1,0,'',35,0,0),(31125,6815,6,54,0,'189.132.108.233',1178218845,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:34nkytl4]http://rapidshare.com/files/29234022/adoRDD.rar.html[/quote:34nkytl4]\n\nAntonio,\n\nlo que he dejado en el zip, es para usarlo con xharbour o harbour indistintamente.\n\ncomo puedo aportar al código de adordd?\n\nsaludos','',0,'gA==','34nkytl4',1,0,'',54,0,0),(31126,6815,6,2,0,'87.218.146.25',1178219993,1,0,1,1,1,1,'','','William,\n\nComo prefieras, puedes poner aqui sólo los cambios ó el código nuevo (para evitar posts de mucho texto) ó poner un ZIP con el código para que lo revisemos y lo subamos al CVS de Harbour, muchas gracias','',0,'gA==','1tmceha3',1,0,'',2,0,0),(31128,6889,3,2,0,'87.218.146.25',1178220340,1,0,1,1,1,1,'','','Rick,\n\nAlready sent the email <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','g2ez928s',1,0,'',2,0,0),(31129,6882,3,29,0,'88.149.160.254',1178220398,1,0,1,1,1,0,'','','Yes, the return value is correct now \nbut the incremental seek runs only for the first key pressed.\n\nYou can easely check it in the sample I gave you.\n\nMarco','',0,'gA==','2b21xwu3',1,0,'',29,0,0),(31131,6882,3,2,0,'87.218.146.25',1178221281,1,0,1,1,1,1,'','','Marco,\n\nIt seems to work fine.\n\nPlease remember that you have to press Space in order to make a new search','',0,'gA==','gj4f9tv5',1,0,'',2,0,0),(31132,6815,6,54,0,'189.132.108.233',1178221461,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:4bjzfte6]William,\n\nComo prefieras, puedes poner aqui sólo los cambios ó el código nuevo (para evitar posts de mucho texto) ó poner un ZIP con el código para que lo revisemos y lo subamos al CVS de Harbour, muchas gracias[/quote:4bjzfte6]\n\nok','',0,'gA==','4bjzfte6',1,0,'',54,0,0),(31133,6815,6,54,0,'189.132.108.233',1178221478,1,0,1,1,1,1,'','','[quote=&quot;Fernando Mancera&quot;:2bnc2kad]William,\n\nGracias por tu interes en ADORDD.\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:2bnc2kad]\n\nok. saludos','',0,'gA==','2bnc2kad',1,0,'',54,0,0),(31134,6808,1,2,0,'87.218.146.25',1178221659,1,0,1,1,1,1,'','','You are using a very old FW version. \n\nYou should upgrade to the current version 7.04','',0,'gA==','12onumcd',1,0,'',2,0,0),(31135,6583,2,2,0,'87.218.146.25',1178221758,1,0,1,1,1,1,'','','Jairo,\n\nTe refieres a un browse ó a un listbox estandard de Windows ?','',0,'gA==','2lddfqep',1,0,'',2,0,0),(31136,6869,3,343,0,'24.173.70.29',1178221910,1,0,1,1,1,0,'','','Would someone send me a compiled datepick.c that include the changes above.\n\nI will try to work out the rest.\n\nThanks,\nGale','',0,'gA==','3l6whdfi',1,0,'',343,0,0),(31137,6869,3,2,0,'87.218.146.25',1178222213,1,0,1,1,1,1,'','','Gale,\n\nTry it this way. Please include this code in your main PRG:\n\n[code:3cwxrop3]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; SETDATEPICK &#41; // &#40; hWnd, wYear, wMonth, wDay, GTD_NONE &#41; \n&#123; \n   SYSTEMTIME sysTime; \n\n   sysTime&#46;wYear         = hb_parni&#40; 2 &#41;; \n   sysTime&#46;wMonth        = hb_parni&#40; 3 &#41;; \n   sysTime&#46;wDay          = hb_parni&#40; 4 &#41;; \n   sysTime&#46;wDayOfWeek  = 0; \n   sysTime&#46;wHour         = 0; \n   sysTime&#46;wMinute       = 0; \n   sysTime&#46;wSecond       = 0; \n   sysTime&#46;wMilliseconds = 0; \n\n   SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, DTM_SETSYSTEMTIME, hb_parni&#40;5&#41;, \n                &#40; LPARAM &#41; &amp;sysTime &#41;; \n&#125; \n\n#pragma ENDDUMP\n[/code:3cwxrop3]\nACTIVATE DIALOG oDlg ;\nON INIT oBegDate:SetDate( nil, .T. )','',0,'AIA=','3cwxrop3',1,0,'',2,0,0),(31138,6882,3,29,0,'88.149.160.254',1178222914,1,0,1,1,1,0,'','','Yes, pressing SPACE the seek reinitialize itself but this solution is really unpracticol for the customer.\n\nFor example if you have an array like:\n\nAntonio\nFabio\nAndrea\nMarco\nAlfonso\n..\n..\nAlexandro\n\n\nwith the old FWH April 2006 the customer simply pressing \"A\" go to the first name that start with this character and then can scroll all the name below simply re-pressing \"A\".\n\nwith this latest FWH the customer pressing \"A\" go to the first name and then he need to use the arrow key to go the next \"A\" name because the key seek doen\'t run anymore (and the names could also are not in alphabetic order).\n\nHope I am explained the problem,\nhowever I can send you a self-contained sample linked with the new and with the old combobox class to show you the difference.\n\nMarco','',0,'AIA=','36ajm0c9',1,0,'',29,0,0),(31139,6815,6,1013,0,'200.121.79.126',1178224028,1,0,0,1,1,0,'','','Estimados\n\nQuien me puede ayudar con los comandos de agregar, modificar y borrar registros en MS-SQL SERVER\n\ngracias,\n\nMarcelo','',0,'AIA=','3vxq1wmi',1,0,'',1013,0,0),(31140,6890,6,41,0,'200.87.67.10',1178224444,1,0,1,1,1,0,'','::bfont de la clase TWbrowse de HDC','Holas,\n\nno se si estoy mal pero creo que no esta implementado la parte de la DATA bfont de la classe twbrowse de HDC, o es que tengo una version antigua.\n\ndefiniendi bfont supuestamente tendriamos la posibilidad de definr un tipo de font para cada parte del browse, pero probando y viendo el codigo creo que no esta implementado.\n\nAlguien lo tiene implementado?\n\nsaludos\n\nMarcelo','',0,'AIA=','2lt4k8id',1,0,'',41,0,0),(31141,6869,3,343,0,'24.173.70.29',1178225011,1,0,1,1,1,0,'','','Thanks Antonio I have it working now. \nI had to add #include &lt;commctrl.h&gt;\n\nI am a little embarrassed because I was placing the #pragma after the include statements. Now life is good. Here is the code I am using.\n\nDatepick.prg\n[code:1vxxb802]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n\nHB_FUNC&#40; SETDATEPICK &#41; // &#40; hWnd, wYear, wMonth, wDay, GTD_NONE &#41;\n&#123;\n   SYSTEMTIME sysTime;\n\n   sysTime&#46;wYear         = hb_parni&#40; 2 &#41;;\n   sysTime&#46;wMonth        = hb_parni&#40; 3 &#41;;\n   sysTime&#46;wDay          = hb_parni&#40; 4 &#41;;\n   sysTime&#46;wDayOfWeek  = 0;\n   sysTime&#46;wHour         = 0;\n   sysTime&#46;wMinute       = 0;\n   sysTime&#46;wSecond       = 0;\n   sysTime&#46;wMilliseconds = 0;\n\n   SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, DTM_SETSYSTEMTIME, hb_parni&#40;5&#41;,\n                &#40; LPARAM &#41; &amp;sysTime &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:1vxxb802]\ntDtPicker.prg\n[code:1vxxb802]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;constant&#46;ch&quot;\n\n#define COLOR_WINDOW         5\n#define COLOR_WINDOWTEXT     8\n\n#define CS_DBLCLKS           8\n#define DTS_SHOWNONE         0x0002\n\n#ifdef __XPP__\n   #define Super &#58;&#58;TControl\n   #define New _New\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLASS TDatePick FROM TControl\n\n   CLASSDATA lRegistered\n   DATA      lEmptyDate\n\n   METHOD New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;\n               nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;\n               bWhen, bChange, nHelpId,lEmp&#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nId, bSetGet,oWnd, nHelpId, cMsg, lUpdate, bWhen, bValid&#41; CONSTRUCTOR\n   METHOD cText&#40; cText &#41; SETGET\n   METHOD cToChar&#40;&#41; INLINE Super&#58;cToChar&#40; &quot;SysDateTimePick32&quot; &#41;\n   METHOD Initiate&#40; hDlg &#41;\n   METHOD SetDate&#40; dDate &#41;                                       // Modificado fgondi\n   METHOD GetDate&#40;&#41;        INLINE GetDatePick&#40; &#58;&#58;hWnd &#41;\n   METHOD LostFocus&#40; hCtrl &#41;\n   METHOD Change&#40;&#41;\n   METHOD Changed&#40;&#41; INLINE &#40; Eval&#40; &#58;&#58;bSetGet, &#58;&#58;GetDate&#40;&#41; &#41;, &#58;&#58;Change&#40;&#41; &#41;\n   METHOD Refresh&#40;&#41; INLINE &#58;&#58;SetDate&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; nRow, nCol, bSetGet, oWnd, nWidth, nHeight, bValid, nClrFore,;\n            nClrBack, oFont, lDesign, oCursor, lPixel, cMsg, lUpdate,;\n            bWhen, bChange, nHelpId, lEmp &#41; Class TDatePick\n\n   DEFAULT nRow     &#58;= 0, nCol &#58;= 0,;\n           oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nWidth   &#58;= 100,;\n           nHeight  &#58;= If&#40; oFont != nil, oFont&#58;nHeight, 22 &#41;,;\n           nClrFore &#58;= GetSysColor&#40; COLOR_WINDOWTEXT &#41;,;\n           nClrBack &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,;\n           oFont    &#58;= oWnd&#58;oFont,;\n           nHelpId  &#58;= 100,;\n           lDesign  &#58;= &#46;f&#46;,;\n           lPixel   &#58;= &#46;f&#46;,;\n           lUpdate  &#58;= &#46;f&#46;,;\n           lEmp     &#58;= &#46;t&#46;\n\n   &#58;&#58;cCaption  = &quot;&quot;\n   &#58;&#58;nTop      = nRow * If&#40; ! lPixel, BTN_CHARPIX_H, 1 &#41;\n   &#58;&#58;nLeft     = nCol * If&#40; ! lPixel, BTN_CHARPIX_W, 1 &#41;\n   &#58;&#58;nBottom   = &#58;&#58;nTop  + nHeight\n   &#58;&#58;nRight    = &#58;&#58;nLeft + nWidth\n   &#58;&#58;nHelpId   = nHelpId\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;oFont     = oFont\n   &#58;&#58;bSetGet   = bSetGet\n   &#58;&#58;lEmptyDate &#58;= lEmp\n   &#58;&#58;lEmptyDate &#58;= &#46;t&#46;\n   if !lEmp\n      &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP,;\n      If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41; &#41;\n     else\n      &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP, DTS_SHOWNONE,;\n      If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41; &#41;\n   endif\n\n   &#58;&#58;nId       = &#58;&#58;GetNewId&#40;&#41;\n   &#58;&#58;lDrag     = lDesign\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;cMsg      = cMsg\n   &#58;&#58;lUpdate   = lUpdate\n   &#58;&#58;bWhen     = bWhen\n   &#58;&#58;bValid    = bValid\n   &#58;&#58;bChange   = bChange\n\n   InitCommon&#40;&#41;\n\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40; &quot;SysDateTimePick32&quot; &#41;\n      oWnd&#58;AddControl&#40; Self &#41;\n      if oFont != nil\n         &#58;&#58;SetFont&#40; oFont &#41;\n      endif\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\n   if lDesign\n      &#58;&#58;CheckDots&#40;&#41;\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine&#40; nId, bSetGet, oWnd, nHelpId, nClrFore, nClrBack,;\n                 oFont, oCursor, cMsg, lUpdate, bWhen, bValid, bChanged &#41; Class TDatePick\n\n   DEFAULT oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nClrFore &#58;= GetSysColor&#40; COLOR_WINDOWTEXT &#41;,;\n           nClrBack &#58;= GetSysColor&#40; COLOR_WINDOW &#41;,;\n           lUpdate  &#58;= &#46;f&#46;\n\n   &#58;&#58;nId       = nId\n   &#58;&#58;hWnd      = 0\n   &#58;&#58;nHelpId   = nHelpId\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;oFont     = oFont\n   &#58;&#58;oCursor   = oCursor\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;lDrag     = &#46;f&#46;\n   &#58;&#58;cMsg      = cMsg\n   &#58;&#58;lUpdate   = lUpdate\n   &#58;&#58;bWhen     = bWhen\n   &#58;&#58;bValid    = bValid\n   &#58;&#58;bSetGet   = bSetGet\n   &#58;&#58;bChange   = bChanged\n   &#58;&#58;lEmptyDate &#58;= &#46;t&#46;\n\n   InitCommon&#40;&#41;\n   &#58;&#58;Register&#40;&#41;\n   oWnd&#58;DefControl&#40; Self &#41;\nreturn Self\n\nMETHOD Initiate&#40; hDlg &#41; Class TDatePick\n   Super&#58;Initiate&#40; hDlg &#41;\n   &#58;&#58;cText = Eval&#40; &#58;&#58;bSetGet &#41;\nreturn nil\n\nMETHOD cText&#40; uVal &#41; CLASS TDatePick\n   if PCount&#40;&#41; == 1\n      Eval&#40; &#58;&#58;bSetGet, uVal &#41;\n      &#58;&#58;SetDate&#40; uVal &#41;\n      &#58;&#58;Refresh&#40;&#41;\n      &#58;&#58;Change&#40;&#41;\n   endif\nreturn &#58;&#58;GetDate&#40;&#41;\n\n\n//---------------------------------------------------------------------------//\n// Controlo si la fecha esta vacia para quitar la marca del checkbox incluido en el campo\n// El quinto parametro indica el estado del checkbox&#46; 0 Marcado, 1 Desmarcado&#46;\n\nMETHOD SetDate&#40; dDate &#41;  CLASS TDatePick\n   local dShow\n   local dDat &#58;= dDate\n   if empty&#40; dDate &#41;\n      dDat &#58;= if&#40; !&#58;&#58;lEmptyDate, date&#40;&#41;, dDate &#41;\n   endif\n   dShow &#58;= dDat\n   SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dShow &#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;, 0 &#41;\n   if Empty&#40;dDate&#41;\n     SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dShow &#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;, 1 &#41;\n   endif\nreturn Self\n\n\nMETHOD LostFocus&#40; hCtrl &#41;  CLASS TDatePick\n   Eval&#40; &#58;&#58;bSetGet, &#58;&#58;cText &#41;\nreturn Super&#58;LostFocus&#40; hCtrl &#41;\n\nMETHOD Change&#40;&#41; CLASS TDatePick\n   if &#58;&#58;bChange != nil\n      Eval&#40; &#58;&#58;bChange, Self &#41;\n   endif\nreturn nil\n[/code:1vxxb802]\n\nThanks everyone,\nGale','',0,'AIA=','1vxxb802',1,0,'',343,0,0),(31142,6889,3,138,0,'189.141.67.139',1178225649,1,0,1,1,1,1,'','','Rick:\n\nWhere are your placing the RecordSet Cursor ?\n\nFor browsing my best advice is to place the cursor on the client size because in the server size it takes ALOT of time on retrieving data.\n\nHave you modified the gotop, gobottom, bskip and blogiclen blocks ?','',0,'AIA=','2650d55o',1,0,'',138,0,0),(31143,6879,6,138,0,'189.141.67.139',1178225832,1,0,1,1,1,1,'','','Carlos:\n\nCreo que tendre que ir a visitarlos ahora que me pase por Madrid.... jejeje.\n\nEfectivamente, crea 2 conexiones una para el servidor AIS y otra para el servidor local y listo.\n\nEl problema consiste en que ADS esta buscando en el mismo servidor la tabla que deseas crear y por ello casca.\n\nOtra solucion, menos elegante es crear la tabla temporal VIA DBFCDX, pero bueno, es un paso atras ya que te haz movido a ADTs.','',0,'AIA=','22rczlyi',1,0,'',138,0,0),(31144,6890,6,785,0,'190.64.197.242',1178227107,1,0,1,1,1,0,'','','Marcelo:\n\nSi usas la clase publicada en el foro por Antonio\nte debe funcionar.\n\n   oLbx:bFont := {|nRow,nCol,nStyleLine| ;  \n               IIF( nStyleLine = 0  , oFont1:hFont,;\n               IIF( nStyleLine = 3  , oFont2:hFont , ;\n               IIF( nStyleLine = 2  , oFont2:hFont , ;\n               IIF( nStyleLine = 4  , oFont1:hFont , ;\n               IIF( nStyleLine = 1  , oFont2:hFont , ) ) ) ))}  \n\nSaludos.\n\nRuben Fernandez','',0,'AIA=','2f67xizl',1,0,'',785,0,0),(31145,6869,3,2,0,'87.218.146.25',1178227516,1,0,1,1,1,1,'','','Gale,\n\nglad to know you got it working <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3ipx6tw2',1,0,'',2,0,0),(31146,6882,3,2,0,'87.218.146.25',1178227676,1,0,1,1,1,1,'','','Marco,\n\nYes, you are right, it behaves in a different way. Several customers requested this new behavior to perform incremental search.\n\nYou may use the Class TComboBox from the previous FWH build.','',0,'AIA=','23de6ajd',1,0,'',2,0,0),(31147,6815,6,2,0,'87.218.146.25',1178227781,1,0,1,1,1,1,'','','Marcelo,\n\nUsando el ADORDD, lo haces igual que con los RDDs habituales de Harbour:\n\nAPPEND BLANK\n\nAlias-&gt;Campo := Valor\n\nDELETE','',0,'AIA=','2gfung5p',1,0,'',2,0,0),(31148,6889,3,35,0,'65.188.6.143',1178227876,1,0,1,1,1,0,'','','Rene\n\nI am using the \'standard\' code .. I presume the recordset is being cached to the local workstation ?\n\nHere is the code:\n\n// access.prg\n\n#include \"Fivewin.ch\"\n\nStatic lOK,oWND1,oBRW,oBROW,oBROW2\nStatic oSAY, cSAY, oSAY1, cSAY1\n//-------------------------------------------\nFunc Access()\n\nLOCAL  oErr, SAYING, cFILENUM, oCN, cNAME, nLEN, nPOS, oRs, oDLG\nLOCAL lOK\n\nSET CENTURY on\nSET EPOCH to 1990\nSET DELETED on\n\n\noRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\nTRY\n   oRS:Open( \"SELECT * FROM CERT_DATA order by Name\", \"Provider=SQLOLEDB;Data Source=WEBDB02;Initial Catalog=DRUG_CONTROL;User Id=drugcontroluser;Password=r2x6j3q4\", 1,3 )\nCATCH oErr\n  MsgInfo( \"Error in Opening CERT_DATA table\" )\n  RETURN NIL\nEND TRY\n\n* oRs:MoveFirst()\n\n_CertBrow(oRs )\n\nReturn(nil)\n\n\n//--------------------------------------------------------\nSTATIC FUNCTION _CertBrow( oRs )\n\nLOCAL nRec, oDLG\n\nlOK := .F.\n\nDEFINE WINDOW oWnd1 ;\n       FROM 3,1 to 30,100 ;\n       Menu Buildmenu(oRS);\n       TITLE \"REGISTRATION Registration Information Browse\"\n\n@ 0,0 LISTBOX oBrw FIELDS   ;\n      oRs:Fields( \"name\" ):Value,;\n      oRs:Fields( \"addr1\" ):Value,;\n      oRs:Fields( \"addr2\" ):Value,;\n      oRs:Fields( \"addr3\" ):Value,;\n      oRs:Fields( \"city\" ):Value,;\n      oRs:Fields( \"state\" ):Value,;\n      oRs:Fields( \"zip\" ):Value,;\n      oRs:Fields( \"zip4\" ):Value,;\n      oRs:Fields( \"schd\" ):Value,;\n      dtoc( oRs:Fields( \"expir_date\" ):Value),;\n      dtoc( oRs:Fields( \"init_date\" ):Value );\n      SIZES 300,100,100,100,80,80,80,80,80;\n      HEADERS \"Name\",;\n              \"Address1     \",;\n              \"Address2     \",;\n              \"Address3     \",;\n              \"City        \",;\n              \"State\",;\n              \"Zip   \",;\n              \"Zip4  \",;\n              \"Schd  \",;\n              \"Expire Date\",;\n              \"Init_date  \";\n      ON DBLCLICK( MsgInfo( \"Mark Record to Keep\" ) );\n      UPDATE\n\n      oBrw:bLogicLen := { || oRs:RecordCount }\n      oBrw:bGoTop    := { || oRs:MoveFirst() }\n      oBrw:bGoBottom := { || oRs:MoveLast() }\n      oBrw:bSkip     := { | nSkip | Skipper( oRs, nSkip ) }\n      oBrw:cAlias    := \"ARRAY\"\n\n       oWND1:oClient := oBRW\n\nACTIVATE WINDOW oWND1 ;\n               VALID ( IIF( !lOK, _LwmfsClose(.T., oRs), .F. ))\n\nRETURN NIL\n\n//------------------------\nStatic FUNCTION _LwmfsClose( lCLEAN, oRS )\n\nIF lCLEAN = .T.\n   lOK := .T.\n   oBRW:cALIAS := nil\n   oRs:Close()\nENDIF\n\nRETURN(.T.)\n\n\n//--------------------------------------\nStatic FUNCTION BuildMenu( oRS )\n\nLOCAL oMenu1\n\nMENU oMenu1\n\n     MENUITEM \"&amp;Find ...\"    //                        ;\n     *           ACTION ( _DocFind( oRS ),            ;\n     *                    oBRW:Refresh() )            ;\n     *           MESSAGE \"Find a Site\"\n\n\n     MENUITEM \"&amp;Quit\"                                ;\n               ACTION oWnd1:END()\n   ENDMENU\n\n   RETURN( oMenu1 )\n\n//-------------------------------\nSTATIC FUNCTION SKIPPER( oRsx, nSkip )\n\nLOCAL nRec := oRsx:AbsolutePosition\n\noRsx:Move( nSkip )\n\nIF oRsx:EOF; oRsx:MoveLast(); ENDIF\nIF oRsx:BOF; oRsx:MoveFirst(); ENDIF\n\nRETURN( oRsx:AbsolutePosition - nRec )\n\n\n//----------------------\nStatic Func _Docfind(oRS)\n\nLOCAL cITEM, oDLG,olbx\n\ncITEM := \"File Number\"\n\nDEFINE DIALOG oDlg                           ;\n       FROM 1, 3 to 18, 35                   ;\n       TITLE \"Site Locate Routine\"\n\n@ 0,0 LISTBOX oLBX var cITEM                 ;\n      ITEMS { \"File Number\" }                ;\n      on LEFT DBLCLICK _FINDENTR(cITEM,oDLG,oRS)           ;\n      of oDlg SIZE 120,100                   ;\n      MESSAGE \"Please select an Item\"\n\n@ 6,4  BUTTON \"&amp;Ok\"                         ;\n       SIZE 25,10 of oDLG                   ;\n       ACTION( _FINDENTR(cITEM, oDLG, oRS),      ;\n              oDLG:END(), cITEM := NIL )    ;\n       DEFAULT\n\n@ 6,11 BUTTON \"&amp;Quit\"                       ;\n       SIZE 25,10 of oDLG                   ;\n       ACTION oDlg:END()\n\nACTIVATE DIALOG oDlg\n\noDLG:END()\n\n\nRETURN( NIL )\n\n//-----------------------\nStatic FUNC _FINDENTR( cITEM,oDLG,oRS )\n\nLOCAL cFIND, cTITLE, oDLG2\n\ncFIND := \"BOGUS\"\n\nDO CASE\nCASE cITEM = \"File Number\"\n     cFIND  := SPACE(10)\n     cTITLE := \"Enter a File Number\"\n\nENDCASE\n\nDEFINE DIALOG oDlg1                        ;\n       FROM 14,10 to 21,44                 ;\n       TITLE cTITLE\n\n       @ 1,1 GET cFIND of oDLG1 PICTURE \"@!\"\n\n       @ 2,6  BUTTON \"&amp;Ok\"                  ;\n       SIZE 25,10 of oDLG1                  ;\n       ACTION ( GoGetum( cFIND, oRS, cITEM),;\n                oDlg1:END(), oDLG:END() )   ;\n       DEFAULT\n\n       @ 2,13 BUTTON \"&amp;Quit\"                ;\n       SIZE 25,10 of oDLG1                  ;\n       ACTION ( oDlg1:END(), oDLG:END() )\n\nACTIVATE DIALOG oDlg1\n\noDLG1:END()\nRETURN( NIL )\n\n//---------------------------\nStatic FUNC GoGetum( cFIND,oRS, cITEM )\n\nLOCAL SAYING, nRECNO, oBTN1,oBTN2\nLOCAL lOK\n\ncFIND := ALLTRIM( cFIND )\n\nDO CASE\nCASE cITEM = \"File Number\"\n\n  oRs:Find(\"file_num = \'\"+cFIND+\"\'\" )\n\n  IF oRs:eof\n     oRs:MoveFirst()\n     oRs:Find(\"file_num = \'\"+cFIND+\"\'\" )\n\n     IF oRs:eof()\n        Msginfo( \"File Number \"+cFind+\" can not bre found\" )\n        oRs:MoveFirst()\n     ENDIF\n  ENDIF\n\n  RETURN(.T.)\n\nENDCASE\n\nRETURN(NIL)\n\n// -- END','',0,'AIA=','28giyjwn',1,0,'',35,0,0),(31149,6889,3,2,0,'87.218.146.25',1178228069,1,0,1,1,1,1,'','','Rick,\n\nCheck the source code of the ADORDD to see how we do it:\n\n   oAdo := TOleAuto():New( \"ADODB.Recordset\" )\n   oAdo:CursorType     = adOpenDynamic\n   oAdo:CursorLocation = adUseClient\n   oAdo:LockType       = adLockPessimistic','',0,'AIA=','22l56yhn',1,0,'',2,0,0),(31151,6860,6,348,0,'200.121.233.175',1178228651,1,0,1,1,1,0,'','','Ronaldo\n\nLo aplicare para ver resultados y se los comento\n\nnota : supongo que debo de ponerlo antes de activar el dialogo a aplicar el efecto  verdad ?\n\n\nGracias\nLubin\n\n\n\n[quote=&quot;ronaldo&quot;:3la2rjg4]Resolvi desta maneira:\n\n   aEval( oDlg:aControls, {|o| If(o:ClassName() == \"TGET\", o:lDisColors:=.F., NIL) } )[/quote:3la2rjg4]','',0,'gA==','3la2rjg4',1,0,'',348,0,0),(31152,6860,6,348,0,'200.121.233.175',1178229031,1,0,1,1,1,0,'','Re: Amigo...','Hola Leandro\n\nGracias por el Envio, lo pondre en marcha y te lo comento\n\n\nLubin\n\n[quote=&quot;leandro&quot;:1iw72aro]Si quieres enviame un correo al privado y te hago llegar la clase modificada..[/quote:1iw72aro]','',0,'gA==','1iw72aro',1,0,'',348,0,0),(31153,5567,6,348,0,'200.121.233.175',1178229850,1,0,1,1,1,0,'','Re: Llego..','Gracias Leandro \n\nrecibido, ok\n\nLubin\n\n\n[quote=&quot;leandro&quot;:1bgb84mf]Llego a la oficina y te lo envio.[/quote:1bgb84mf]','',0,'gA==','1bgb84mf',1,0,'',348,0,0),(31154,6891,7,78,0,'190.40.235.125',1178230236,1,0,1,1,1,0,'','Terminal de Pedidos','Hola amigos.\nTengo un cliente (bueno, dependera de la respuesta), que tiene un software de control de restaurante hecho en MSFox con MySQL, el quiere que mediente una Pocket PC, se realizen los pedidos de las mesas y que automaticamente los pedidos se reflejen en el software principal (Fox+MySQL), el programador esta dispuesto a trabajar conmigo, siempre y cuando sea posible la conexion via wireless, es viable este trabajo??\n\nSalu2 \nWilli','',0,'gA==','1ugxbmtb',1,0,'',78,0,0),(31155,6888,6,940,0,'189.157.84.245',1178230888,1,0,1,1,1,1,'','','PRINT oPrn NAME \"Reporte de nomina semanal ...\" PREVIEW\nDEFINE FONT oFnt1 NAME \"Arial\" SIZE 0, -08  OF oPrn bold\n\nPAGE\n   oPrn:CmSay(1, 01, \'TEXTO NORMAL\', oFnt1 )\n\n   _centraCm(1, \'TEXTO CENTRADO\', oPrn, oFnt1 )\n\nENDPAGE\nENDPRINT\n\n\nFUNCTION _centraCm(nRen,cValor, oPrn, oFont )\n   oPrn:CmSay(nRen,0,cValor,oFont,oPrn:nHorzRes,,,2 )\nRETURN (nil)\n\n\nsaludos.','',0,'gA==','2j40fj3i',1,0,'',940,0,0),(31156,6891,7,2,0,'87.218.146.25',1178230974,1,0,1,1,1,1,'','','Willi,\n\nEn cuanto a la conexión wireless no hay problema ya que esa funcionalidad la ofrece el Pocket PC directamente conectándose al router via wifi como si se tratase de un PC más.\n\nLa cuestión sería localizar una DLL para Pocket PC que te permita acceder a MySQL. Imagino que MySQL debe ofrecer dicha DLL para Windows Mobile ó Windows CE. O bien un driver para ADO.\n\nSi no encontrases esa DLL ó driver, aún podrías generar un fichero con un pedido de un cliente y escribirlo en un determinado directorio, en donde el programa principal estaría comprobando y al leerlo, lo gestionaría en las bases de datos de MySQL.\n\nTambien te podrías conectar por sockets con la aplicación principal y darle los datos del pedido.\n\nComo ves, hay opciones <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3uwutjl0',1,0,'',2,0,0),(31158,6883,20,49,0,'62.13.172.67',1178234767,1,0,1,1,1,1,'','','probabilmente c\'è un errore \nsecondo te non si dovrebbe usare OLe ?\n[code:189n89a3]\n\n//****\n*FUNCTION BurnCDInXP&#40;&#41;\n//****\nFUNCTION main&#40;&#41;\nLOCAL cBurnPath\n//\nIF  &#40;oCD &#58;= XPBurnObj&#40;&#41;  != NIL &#41;\n   oFSO &#58;= CreateObject&#40; &quot;Scripting&#46;FileSystemObject&quot; &#41; // If we get here we\'re in XP and this shouldn\'t fail&#46;&#46;&#46;\n   //\n   WITH OBJECT &#40; oCD &#41;\n    *  &#58;ClearFiles&#40;&#41;                                     // Erases ALL files from burning area&#46;&#46;&#46;\n      //\n   *   MakeDir&#40; cBurnPath &#58;= &#40; &#58;BurnArea + &quot;\\Backup&quot; &#41; &#41; // Build your directory structure&#46;&#46;&#46;\n   *   MakeDir&#40; cBurnPath += &quot;\\companyname&quot; &#41;\n      //\n   *   &#58;AddFile&#40; &quot;c&#58;\\work\\prg\\burncd\\XPBurnObj&#46;dll&quot; &#41;                     // This method add the file to the root of the CD&#46;&#46;\n     * oFSO&#58;CopyFile&#40; &quot;u&#58;\\yourfile&#46;zip&quot;, cBurnPath + &quot;\\backup&#46;ext&quot; &#41;\n                                                        // Copy to the directory you just created&#46;&#46;&#46;\n      //\n      &#58;StartBurn&#40;&#41;                                      // Invokes the XP Burning wizard&#46;&#46;&#46;\n   END\nENDIF\n//\nRETURN &#40;&#46;T&#46;&#41;\n\n//***\nFUNCTION XPBurnObj&#40;&#41;\n//***\n   LOCAL oBurn\n   //\n   IF Os_IsWinXP&#40;&#41;\n      TRY\n         oBurn &#58;= CreateObject&#40; &quot;BaydenBurn&#46;XPBurn&quot; &#41;\n         IF !&#40; oBurn&#58;Equipped &#41;\n            oBurn &#58;= NIL\n         ENDIF\n      CATCH\n      END\n   ENDIF\n   //\n   RETURN &#40; oBurn &#41;\n\n[/code:189n89a3]\n\n\ndel tipo  oBurn := TOleAuto():new( \"BaydenBurn.XPBurn\" )\n\no altrimenti come posso fare ? perchè usa il fso ?','',0,'AIA=','189n89a3',1,0,'',49,0,0),(31159,6583,2,890,0,'200.24.110.196',1178235198,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:23m08h1u]Jairo,\n\nTe refieres a un browse ó a un listbox estandard de Windows ?[/quote:23m08h1u]\n\n//--------------------------------------------------------------------------//\n\nAntonio gracias por tu respuesta\n\nComo tu bien lo sabes  ando dando tumbos en este maravilloso mundo FW  preguntando aquí y allí, en cuanto a lo del listbox me refería a las dificultades que tuve no tanto para crear el listbox sino para sofisticarlo con edición y borrado especialmente, aun me interesa tener un buen ejemplo para novatos de cómo lograr el listbox con las virtudes descritas.\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','23m08h1u',1,0,'',890,0,0),(31161,6883,20,49,0,'62.13.172.67',1178235637,1,0,1,1,1,1,'','','questo è il codice  di VB  come faccio a convertirlo in xharbour \n\nPrivate Sub Command1_Click()\n	Dim foo As Object\n	Set foo = CreateObject(\"BaydenBurn.XPBurn\")\n	MsgBox (\"Is XP Burning ready: \" &amp; foo.Equipped)\n	MsgBox (\"Burn staging area: \" &amp; foo.BurnArea)\n	MsgBox (\"Add file1: \" &amp; foo.addfile(\"fdsafdsa\"))\n	MsgBox (\"Add file2: \" &amp; foo.addfile(\"C:\\try.txt\"))\n	foo.startburn\n	End Sub','',0,'gA==','hs4o3l9i',1,0,'',49,0,0),(31163,6871,6,92,0,'217.125.169.212',1178236707,1,0,1,1,1,0,'','','[quote=&quot;JoseLuis&quot;:3kobdrf4]\n3º Para activarla lo hago así, teniendo en cuenta cerrar los alias mediante el Valid(), y si hemos utilizado un listbox, ése area lo cierro con él:\n[code:3kobdrf4]            ACTIVATE WINDOW oDlg        ;\n                 ON INIT  oLbx&#58;SetFocus&#40;&#41;;\n                 ON PAINT &#40; oLbx&#58;Refresh&#40;&#41;,;\n                            oLbx&#58;nWidth&#58;=oDlg&#58;nWidth-10   ,;\n                            oLbx&#58;nHeight&#58;=oDlg&#58;nHeight-82 ,;\n                            oTab&#58;nWidth&#58;=oDlg&#58;nWidth-10   ,;\n                            oTab&#58;nTop&#58;=oDlg&#58;nHeight-52 &#41;  ;\n		 MAXIMIZED;\n                 VALID &#40;&#40;aAlias&#91;21&#93;&#41;-&gt;  &#40; dbClosearea&#40;&#41; &#41;,&#40;aAlias&#91;26&#93;&#41;-&gt;&#40; dbClosearea&#40;&#41; &#41;,;\n		        &#40;aAlias&#91;23&#93;&#41;-&gt;&#40; dbCloseArea&#40;&#41; &#41;,&#40;aAlias&#91;29&#93;&#41;-&gt; &#40; dbCloseArea&#40;&#41; &#41;,;\n			&#40;aAlias&#91;2&#93;&#41;-&gt; &#40; dbCloseArea&#40;&#41; &#41;,oLbx&#58;lCloseArea&#40;&#41;,&#46;t&#46; &#41;\n[/code:3kobdrf4]\n[/quote:3kobdrf4]\n\nAdemás de tener en cuenta de que si en una ventana MDI cargas todos los campos de un registro, alteras alguno y grabas TODO el registro, si esta misma DBF (aún distinta area de trabajo y alias) se está utilizando en otra MDI y haces lo mismo con otro de sus campos, se te va a armar un pollo de coj&amp;%$·es. (ejemplo-&gt;campo numerador de facturas y campo numerador de movimientos)\nJusto ahora acabo de encontrar un fallo así en una aplicación a medio terminar; llevo casi dos días con él y son las 2 de la mañana, pero aun así estoy contento y me gusta MDI. El usuario una vez acostumbrado lo agradece.\n\nEl método que te propone José Luís es muy parecido al que yo uso y va de perlas.\n\nSaludos\nCarlos G.','',0,'gIA=','3kobdrf4',1,0,'',92,0,0),(31167,6870,2,235,0,'201.140.15.97',1178238269,1,0,1,1,1,0,'','','Gracias Antonio y Rene por su pronta respuesta','',0,'gIA=','3m1lfgea',1,0,'',235,0,0),(31168,6887,6,185,0,'200.105.169.53',1178238607,1,0,1,1,1,0,'','','Hola al foro\n\nUna pena, ese codigo lo deje para que todos usen sin costo. \nsilvio solo lo compilo en 16bit y luego con el decompilador de clipper obtubo en codigo de la clase\nme entero que ahora tiene costo\nentre otras cosas la pensare para donar otros trabajos al foro','',0,'gIA=','3asz7gco',1,0,'',185,0,0),(31169,6887,6,376,0,'190.42.42.234',1178239734,1,0,1,1,1,1,'','','Arturo\n\nNo te preocupes del accionar de algún miembro del foro. Sabes que \"en todas partes se cuecen habas\" y el foro no es una excepción. Los que estamos retroalimentando el foro lo hacemos por simple vocación de compartir nuestros pocos conocimientos, aunque habrá algunos que tomen ventaja de eso.\n\nNo he visto tu clase, ni tu codigo si lo liberaste, pero si estuviera en tu lugar no prestaría atención a las actitudes personales de los concurrentes.\n\nUn fuerte abrazo compañero\n\n[quote=&quot;Arturo Tamayo Daza&quot;:px08dtcb]Hola al foro\n\nUna pena, ese codigo lo deje para que todos usen sin costo. \nsilvio solo lo compilo en 16bit y luego con el decompilador de clipper obtubo en codigo de la clase\nme entero que ahora tiene costo\nentre otras cosas la pensare para donar otros trabajos al foro[/quote:px08dtcb]','',0,'gA==','px08dtcb',1,0,'',376,0,0),(31170,6892,2,235,0,'201.140.15.97',1178240105,1,0,1,1,1,0,'','alguien tendra entre sus &quot;curiosidades&quot; un browse.','tipo factura, o algun ejemplo de como se programan cada una de las columnas de un browse, como se hacia en el famoso dbedit del antiguo clipper.\n\nde antemano muchas gracias.','',0,'gA==','3hqbgvo1',1,0,'',235,0,0),(31171,6893,3,376,0,'190.42.42.234',1178240645,1,0,1,1,1,1,'','Ejemplos de tIMAGE','Amigos\n\n¿Alguien tendra en su cajon de recuerdos ejemplos para colocar una imagen en una ventana MDI al que previamente se le ha efectuado un proceso de color degradado?. Y si me podrían enviar a mi correo privado? o talvez a un web para compartir?\n\nLes agradezco en forma adelantada sus sugerencias\n\nArmando','',0,'gA==','1djm2aeg',1,0,'',376,0,0),(31172,6889,3,35,0,'65.188.6.143',1178241170,1,0,1,1,1,0,'','','Antonio and Fernando\n\nI am looking at the adordd.prg and I see how you are creating the recordset ..\n\noADO := TOleAuto():New( \"ADODB.Recordset\" )\noAdo:CursorType     = adOpenDynamic\noAdo:CursorLocation = adUseClient\noAdo:LockType       = adLockPessimistic\noAdo:Open( s_cQuery + s_cTableName, s_aConnections[ nWA ] )\n\n//--- my code\n\noRs := CREATEOBJECT( \"ADODB.Recordset\" ) \n\nTRY \n   oRS:Open( \"SELECT * FROM CERT_DATA order by    Name\", \"Provider=SQLOLEDB;Data Source=WEBDB02;Initial Catalog=DRUG_CONTROL;User Id=drugcontroluser;Password=r2x6j3q4\", 1,3 ) \n   CATCH oErr \nMsgInfo( \"Error in Opening CERT_DATA table\" ) \nRETURN NIL \n  END TRY \n\nPlease excuse the dumb question .. what is the difference in :\n   oADO := TOleAuto():New( \"ADODB.Recordset\" )  \nand\n  oRs := CREATEOBJECT( \"ADODB.Recordset\" )\n\nI take it that this is what you were driving at with a client cursor vs a server cursor ??\n\nIf that is correct .. does the last two parameters 1,3 .. still allow the client recordset update visability back and forth from other network clients ??\n\nBeing rdd .. how do I define field vars and how do I write them back .. can I do something like :\n\nSelect 1\nUSE (AllTrim(cDbf)) VIA \"ADORDD\" TABLE AllTrim(cTable) SQL ;\n          FROM AllTrim(cFrom) USER AllTrim(cUser) PASSWORD AllTrim(cPsw)\n\nthen reference my vars with cWhatever := a-&gt;whatever and then write them back like a-&gt;whatever := cWhatever ?\n\nI take it record locks are still not relevant here since the database handles the oportunistic locking ??   1,3 )\n\nI am looking forward to seeing how this works .. I will let you all know sometime tomorrow ..\n\nMany thanks\nRick Lipkin','',0,'','hq0x92xo',1,0,'',35,0,0),(31174,6891,7,138,0,'189.141.67.139',1178241882,1,0,1,1,1,1,'','','Yo hice exactamente eso que tu quieres hacer, pero resolvi el problema con un CGI via el navegador web.\n\nUn programita en xharbour corriendo en el server y las pocket tomando la orden con una pagina web.','',0,'','1hwq6s05',1,0,'',138,0,0),(31176,6861,7,840,0,'190.76.8.193',1178243783,1,0,1,1,1,0,'','','antonio\n\n\ngracias por el ejemplo embiado, si funciona como indicaste.\n\n\nPERO CUANDO LO DIRIJO HACIA UNA RUTA FUERA DEL POCKET PC\n\nEJEMPLO \\\\PC\\C\\CUSTOMER TIENE EL MISMO PROBLEMA ANTERIOR\n\nSE QUEDA COLGADO NO HACE NADA.\n\nTAMBIEM LO EJECUTE CON EL .EXE EN ENTRO DIRECTORIO Y \nNO FUNCIONA.\n\nLA DBF Y EL INDEX ESTA EN OTRA COMPUTADORA EN RED\n\nEJEMPLO   \\\\NOMBRE DEL PC\\RUTA\\CUSTOMER.DBF\nDE ESTA MANERA NO FUNCIONA.\n\nDE ESTA MANERA ES QUE NECESITO HACER EL PROGRAMA DE \nPEDIDOS VIA WHI-FI O EN RED\n\nSALUDOS.\nDARIO FERREIRA.','',0,'','i2k3fdap',1,0,'',840,0,0),(31177,6889,3,138,0,'189.141.67.139',1178246659,1,0,1,1,1,1,'','','Rick:\n\nI reviewed your code all seems to look all rigth, I mean, the movement blocks are correct but, you have to \"prepare\" your RecordSet BEFORE open the query.\n\nTo \"prepare\" the cursor, you have to follow Antonio\'s instructions and use the ::CursorType, ::CursorLocation, and ::locktype properties before opening the recordset, if you don\'t prepare  the recordset, the cursortype is Forward Only, the cursor location is on server size and the Locktype is Optimistic (default values), I guess that\'s why the browsing is slow.','',0,'','af1wqtnx',1,0,'',138,0,0),(31178,6894,6,349,0,'189.165.43.160',1178249528,1,0,1,1,1,0,'','TWBrowse_Hernan, Error al abrirlo','Saludos a Todos.\n\nBajo el Archivo; TWBrowse_Hernan.zip y me marca error al abrirlo.\n\nMe pueden ayudar por favor.\n\nSaludos y Gracias ...','',0,'','2vo59kgv',1,0,'',349,0,0),(31179,6889,3,2,0,'87.218.146.74',1178257839,1,0,1,1,1,1,'','','Rick,\n\n&gt;\nSelect 1 \nUSE (AllTrim(cDbf)) VIA \"ADORDD\" TABLE AllTrim(cTable) SQL ; \nFROM AllTrim(cFrom) USER AllTrim(cUser) PASSWORD AllTrim(cPsw) \n&gt;\n\nYes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;\nthen reference my vars with cWhatever := a-&gt;whatever and then write them back like a-&gt;whatever := cWhatever ? \n&gt;\n\nRight <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2qzokidg',1,0,'',2,0,0),(31180,6893,3,2,0,'87.218.146.74',1178258445,1,0,1,1,1,1,'','','Armando,\n\n@ 0, 0 IMAGE oImage OF oWnd FILENAME \"NombreFichero\"\n\noImage:lTransparent = .T.','',0,'','2t7xvas9',1,0,'',2,0,0),(31181,6583,2,2,0,'87.218.146.74',1178258810,1,0,1,1,1,1,'','','Jairo,\n\nSi te refieres a un Browse, puedes revisar el código fuente de source\\function\\browse.prg ó buscar los ejemplos PRG en samples que contengan la palabra \"FIELDS\"','',0,'','1u1rvvjr',1,0,'',2,0,0),(31182,6892,2,2,0,'87.218.146.74',1178258895,1,0,1,1,1,1,'','','Puedes revisar el código fuente de source\\function\\browse.prg ó buscar los ejemplos PRG en el directorio samples que contengan la palabra \"FIELDS\"','',0,'','h85w9que',1,0,'',2,0,0),(31183,6855,3,2,0,'87.218.146.74',1178259417,1,0,1,1,1,1,'','','Enrico,\n\nIt depends on the size of the control: the texts gets adjusted to the control dimensions that may not be the same as the printer dimensions','',0,'','24zymhb5',1,0,'',2,0,0),(31184,6855,3,6,0,'87.21.195.53',1178261841,1,0,1,1,1,1,'','','Yes, I know. I\'m trying to size the window to have exactly what I will get when printing but I don\'t succeded so far.\n\nThis is what I write:\n\n[code:oxvzvg8p]#define LOGPIXELSX 88\n#define LOGPIXELSY 90\n\n#define HORZRES  8\n#define VERTRES 10\n\n#define HORZSIZE 4\n#define VERTSIZE 6\n\n#define PHYSICALWIDTH   110\n#define PHYSICALHEIGHT  111\n#define PHYSICALOFFSETX 112\n#define PHYSICALOFFSETY 113\n\n\nSTATIC FUNCTION ADJRTF&#40; oRtf &#41;\n\n    LOCAL hPrnDC &#58;= GETPRINTDEFAULT&#40;&#41;\n    LOCAL hVidDC &#58;= GETDC&#40; oRtf&#58;hWnd &#41;\n\n    LOCAL nHRatio &#58;= GETDEVICECAPS&#40; hPrnDC, LOGPIXELSX &#41; / GETDEVICECAPS&#40; hVidDC, LOGPIXELSX &#41;\n    LOCAL nVRatio &#58;= GETDEVICECAPS&#40; hPrnDC, LOGPIXELSY &#41; / GETDEVICECAPS&#40; hVidDC, LOGPIXELSY &#41;\n\n    LOCAL nHorzRes &#58;= GETDEVICECAPS&#40; hPrnDC, HORZRES &#41;\n    LOCAL nVertRes &#58;= GETDEVICECAPS&#40; hPrnDC, VERTRES &#41;\n\n    LOCAL nTMarg &#58;= PAGEGETMARGINS&#40;&#41;&#91; 1 &#93; / 2540 * GETDEVICECAPS&#40; hPrnDC, LOGPIXELSY &#41;\n    LOCAL nLMarg &#58;= PAGEGETMARGINS&#40;&#41;&#91; 2 &#93; / 2540 * GETDEVICECAPS&#40; hPrnDC, LOGPIXELSX &#41;\n    LOCAL nRMarg &#58;= PAGEGETMARGINS&#40;&#41;&#91; 3 &#93; / 2540 * GETDEVICECAPS&#40; hPrnDC, LOGPIXELSX &#41;\n    LOCAL nBMarg &#58;= PAGEGETMARGINS&#40;&#41;&#91; 4 &#93; / 2540 * GETDEVICECAPS&#40; hPrnDC, LOGPIXELSY &#41;\n\n    nHorzRes -= nLMarg + nRMarg\n    nVertRes -= nTMarg + nBMarg\n\n    ADJRTFRECT&#40; oRtf&#58;oWnd&#58;hWnd, oRtf&#58;hWnd, nHorzRes / nHRatio, nVertRes / nVRatio &#41;\n\n    DELETEDC&#40; hPrnDC &#41;\n    RELEASEDC&#40; hVidDC &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &lt;Windows&#46;h&gt;\n#include &lt;HbApi&#46;h&gt;\n\n\nHB_FUNC&#40; ADJRTFRECT &#41;\n&#123;\n    RECT rct;\n\n    GetClientRect&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, &amp;rct &#41;;\n\n    rct&#46;left += 5;\n    rct&#46;top  += 5;\n\n    rct&#46;right  = rct&#46;left + hb_parnl&#40; 3 &#41;;\n    rct&#46;bottom = rct&#46;top + hb_parnl&#40; 4 &#41;;\n\n    SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 2 &#41;, EM_SETRECT, 1, &#40; LPARAM &#41; &amp;rct &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:oxvzvg8p]\n\nCan you see anything wrong? Any suggestions?\n\nEMG','',0,'AIA=','oxvzvg8p',1,0,'',6,0,0),(31185,6883,20,6,0,'87.21.195.53',1178262625,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:2cwwqyat]probabilmente c\'è un errore[/quote:2cwwqyat]\n\nDirei che quell\'esempio è totalmente sballato. E comunque richiede un componente che io non ho (BaydenBurn.XPBurn).\n\n[quote=&quot;Silvio&quot;:2cwwqyat]secondo te non si dovrebbe usare OLe ?[/quote:2cwwqyat]\n\nInfatti usa OLE.\n\n[quote=&quot;Silvio&quot;:2cwwqyat]del tipo  oBurn := TOleAuto():new( \"BaydenBurn.XPBurn\" )[/quote:2cwwqyat]\n\nTOleAuto() o CreateObject() è la stessa cosa. E\' sempre OLE.\n\n[quote=&quot;Silvio&quot;:2cwwqyat]o altrimenti come posso fare ?[/quote:2cwwqyat]\n\nNon ne ho idea, mi dispiace.\n\n[quote=&quot;Silvio&quot;:2cwwqyat]perchè usa il fso ?[/quote:2cwwqyat]\n\nSe guardi bene, non lo usa.\n\nEMG','',0,'gA==','2cwwqyat',1,0,'',6,0,0),(31186,6895,6,533,0,'80.32.177.143',1178263000,1,0,1,1,1,0,'','Clase BtnBmp','Buenos días foro, me baje de un enlace del foro la clase, pero creo que está incompleta porque me marca el siguiente error:\n\n[code:3m4w76j9]\n&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for xHarbour 2&#46;8 - October 2006         xHarbour development power &#9474;&#9604;\n&#9474; &#40;c&#41; FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;&#9608;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9608;\n  &#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;\nCompiling&#46;&#46;&#46;\nxHarbour Compiler build 0&#46;99&#46;61 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'mcli&#46;prg\'&#46;&#46;&#46;\nLines 55, Functions/Procedures 4\nGenerating C source output to \'mcli&#46;c\'&#46;&#46;&#46;\nDone&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nmcli&#46;c&#58;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_GETBTN\' referenced from C&#58;\\PROYECTOS\\GESTION\\FUE\\BTNGET&#46;OBJ[/code:3m4w76j9]\n\n¿Sabéis dónde está esta función?\n\nMUCHAS GRACIAS.','',0,'AIA=','3m4w76j9',1,0,'',533,0,0),(31187,6871,6,396,0,'200.71.186.100',1178263567,1,0,1,1,1,1,'','','Ando tambien en algo de MDI, sera que me pudieras enviar esa guia JCARO a mi privado, trate de descargarlo pero me fue imposible... muy agradecido... <!-- e --><a href=\"mailto:joseluisysturiz@yahoo.com\">joseluisysturiz@yahoo.com</a><!-- e --> Saludos','',0,'AIA=','37mpxed9',1,0,'',396,0,0),(31188,6895,6,57,0,'83.53.52.25',1178264303,1,0,1,1,1,1,'','','Mike\nTe falta un fichero BTNGET.C que debería ir adjunto al proyecto.\n\nSaludos','',0,'AIA=','1lou6ju9',1,0,'',57,0,0),(31189,6895,6,533,0,'80.32.177.143',1178264640,1,0,1,1,1,0,'','','Lo tengo, pero como hago para incluirlo en el proyecto, en el bc. . ., o Como?\nMuchas Gracias','',0,'AIA=','30n3k8g7',1,0,'',533,0,0),(31193,6879,6,316,0,'213.97.245.163',1178266285,1,0,0,1,1,0,'','','René,\n\nsiempre hay excusas para una cerveza, no? \nTodavía sigo usando DBF poruqe la información que se traslada vía AIS se procesa en el servidor con aplicaciones muy variadas, que las integran a un sistema mayor.\n\nUn saludo para todos y gracias por el soporte,\n\nCarlos.','',0,'AIA=','2medsj6g',1,0,'',316,0,0),(31194,6881,6,106,0,'85.34.123.173',1178266479,1,0,1,1,1,1,'','','Fernando, \n\n\nno puedo usar adordd porque no compila con la version de xharbour que uso yo, que no puedo cambiar porque uso FWH 2.7 que actualizaré apenas me lo permitan. De todos modos, no se si está previsto, pero cuando el campo es del tipo uniqueidentifier hay que llamar a una funcion NewID() para crear el uniqueidentifier, que manualmente se hace \"INSERT INTO articoli (ID, codice) VALUES (NewID(), \'codigo uno\')\"\n\nMi problema es que con ADO no podia hacerlo en automatico, de todos modos lo he resuelto en este modo:\n\n[code:1bqlnruj]\n  TRY\n    oRs&#58;AddNew&#40;&#41;\n  CATCH oError\n    MsgStop&#40;oError&#58;Operation+CRLF+oError&#58;Description,&quot;Ado Connection&quot;&#41;\n    RETURN NIL   \n  END TRY\n\n  TRY\n    oRs2 &#58;= oConnection&#58;Execute&#40;&quot;select newid&#40;&#41;&quot;&#41;\n  CATCH oError\n    MsgStop&#40;oError&#58;Operation+CRLF+oError&#58;Description,&quot;Ado Connection&quot;&#41;\n    RETURN NIL\n  END TRY\n\n  cNewID &#58;= oRs2&#58;fields&#40;0&#41;&#58;value\n\n  oRs&#58;fields&#40;&quot;ID&quot;&#41;&#58;VALUE &#58;= cNewID\n  oRs&#58;fields&#40;&quot;Sub_ID&quot;&#41;&#58;VALUE &#58;= i\n  oRs&#58;fields&#40;&quot;codice&quot;&#41;&#58;value &#58;= &quot;COD&quot; + ALLTRIM&#40; STR&#40; i &#41; &#41;\n  oRs&#58;Fields&#40; &quot;descrizione&quot; &#41;&#58;Value &#58;= &quot;Descrizione articolo &quot; + ALLTRIM&#40; STR&#40; i &#41; &#41;\n  oRs&#58;Fields&#40; &quot;nota1&quot; &#41;&#58;Value &#58;= REPLICATE&#40;&quot;-=-&quot;, 800 &#41;\n  oRs&#58;Fields&#40; &quot;nota2&quot; &#41;&#58;Value &#58;= REPLICATE&#40;&quot;-+-&quot;, 800 &#41;\n  oRs&#58;Fields&#40; &quot;messaggio&quot; &#41;&#58;Value &#58;= REPLICATE&#40;&quot;&#46;-&#46;&quot;, 800 &#41;\n\n  TRY\n    oRs2&#58;close&#40;&#41;\n  CATCH\n  END TRY\n[/code:1bqlnruj]\n\n\nSeria bueno preveerlo que en ADORDD (si ya no lo hace) que cuando el campo sea de este tipo, lo genere automaticamente al hacer un append.\n\nSaludos y gracias de tu tiempo.','',0,'AIA=','1bqlnruj',1,0,'',106,0,0),(31195,6896,3,247,0,'193.92.131.194',1178269896,1,0,1,1,1,0,'','Please Help with ADORDD','I have Fivewin 2.7 and xHarbour Compiler build 0.99.60 (SimpLex) when i try to compile access1.prg i get the following error .Please help\n\nThank you \nA.S.K\n\n[b:2jd2154j]\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\FWH2\\LIB\\\nADORDD.LIB|adordd\nError: Unresolved external \'_hb_itemGetSymbol\' referenced from C:\\FWH2\\LIB\\USRRD\nD.LIB|usrrdd\nError: Unresolved external \'_hb_xvmPopLogical\' referenced from C:\\FWH2\\LIB\\USRRD\nD.LIB|usrrdd\nError: Unresolved external \'_hb_xvmPushLocalByRef\' referenced from C:\\FWH2\\LIB\\U\nSRRDD.LIB|usrrdd[/b:2jd2154j]','',0,'QA==','2jd2154j',1,0,'',247,0,0),(31196,6896,3,2,0,'87.218.146.74',1178270094,1,0,1,1,1,1,'','','You need usrrdd.lib for the xHarbour build that you are using\n\nAlso, you need to recompile adordd.prg','',0,'QA==','148a3o0m',1,0,'',2,0,0),(31197,6896,3,247,0,'193.92.131.194',1178270325,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:39fvj5nk]You need usrrdd.lib for the xHarbour build that you are using\n\nAlso, you need to recompile adordd.prg[/quote:39fvj5nk]\n\nCan you  please tell me how I can get them ?\n\nThank you','',0,'gA==','39fvj5nk',1,0,'',247,0,0),(31198,6896,3,2,0,'87.218.146.74',1178270635,1,0,1,1,1,1,'','','You may get the files from the xHarbour CVS','',0,'gA==','nnjhg22d',1,0,'',2,0,0),(31199,6896,3,2,0,'87.218.146.74',1178271076,1,0,1,1,1,1,'','','Or you may consider to upgrade to the current FWH 7.04 build and use the ADORDD files that we provide for it','',0,'gA==','3f5cupt4',1,0,'',2,0,0),(31200,6897,6,838,0,'80.34.222.112',1178272778,1,0,1,1,1,0,'','Problema con envio de e-mail','Hola amigos\nPara enviar facturas en pdf automáticamente via email, vengo utilizando blat, con la clase que ronda por éste foro, y en las pruebas que hago con unas cuantas direcciones de correo va perfecto, me manda el e-mail y también el fichero adjunto en pdf.\nBueno pues desde Enero, lo he puesto en funcionamiento en la aplicación, y siempre hay unos cuantos correos, unos 10 o 15 sobre unos 200 envíos que no les llega el adjunto, y siempre son los mismos.\nSin embargo luego les envío el adjunto manualmente mediante outlook, y les llega perfectamente.\nHe mirado repetidamente en el foro y veo que hay varias clases para utilizar con outlook, pero no sé cuál será la mas adecuada para lo que preciso, a ver si alguien me echa una mano con éste tema.\n\nSaludos\n\nJose Luis','',0,'gA==','3p4mvaps',1,0,'',838,0,0),(31201,6898,6,176,0,'201.255.143.142',1178278426,1,0,1,1,1,0,'','ads','Hola quisiera saber si alguien tiene alguna guía básica para utilizar el ads, como se configura  para tablas dbf, y como se hacen las conexiones con el servidor. Se puede utilizar desde la misma pc? Si funciona con xp, etc\n\nDesde ya muchas gracias\n\nLuis Adolfo Sáenz','',0,'gA==','2kqlmmao',1,0,'',176,0,0),(31204,6897,6,106,0,'85.34.123.173',1178279093,1,0,1,1,1,1,'','','Jose,\n\n\nYo lo hago asi:\n\n\n\n[code:3b9nzizl]\n    IF FILE&#40; oV&#58;arc_dir + &quot;TEMP\\&quot; + cNomeFileAllegato + \'&#46;pdf\' &#41;\n      cIndMail &#58;= IIF&#40; EMPTY&#40; cIndMail &#41;, &quot; &quot;, cIndMail &#41;\n      cMailSubject &#58;= &quot;Subject&#46;&#46;&#46;&quot;\n      cMailText &#58;= MEMOREAD&#40; &quot;testomail&#46;txt&quot; &#41;\n      cMailText &#58;= IIF&#40; EMPTY&#40; cMailText &#41;, &quot; &quot;, cMailText &#41;\n\n       DEFINE MAIL oMAIL;\n         SUBJECT cMailSubject; // Invio Documento&#58; &quot;+TIME&#40;&#41;\n         TEXT cMailText; \n         TO cIndMail;\n         FILES oV&#58;arc_dir + &quot;TEMP\\&quot; +cNomeFileAllegato + \'&#46;pdf\', cNomeFileAllegato + &quot;&#46;pdf&quot; ;\n         FROM USER\n\n      ACTIVATE MAIL oMail\n    ENDIF\n[/code:3b9nzizl]','',0,'AIA=','3b9nzizl',1,0,'',106,0,0),(31206,6899,3,31,0,'195.182.84.105',1178279474,1,0,1,1,1,1,'','ActiveX for Word','Hi !\n\n  I\'m searching a working solution for Word with ActiveX . Please send me directly <!-- e --><a href=\"mailto:rimantasu@gmail.com\">rimantasu@gmail.com</a><!-- e -->   lib , source or dll with which my application can work with Word through ActiveX . I\'ll be very thankfull ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> It seems that ActiveX alreday exist , but I can\'t find from where I can dowload package .\n\n  With best regards ! Rimantas','',0,'EA==','2jn3hl3i',1,0,'',31,0,0),(31207,6897,6,838,0,'80.34.222.112',1178279611,1,0,1,1,1,0,'','','Hola Pedro\n\nHe probado y perfecto, lo que pasa es que con cada envío me sale una ventana en la que me coumina outlook que se está enviando un mensaje fuera de él, y que puede tratarse de un virus. Si acepto, lo envía, y así no me es operativo.\n\nEste mensaje lo podía evitar antes con el Outlook express, ya que había una casilla que se podía deshabilitar para que no saliera éste mensaje.\n\nSabes alguna forma de evitar esto en Outlook ?\n\nGracias y Saludos\n\nJose Luis','',0,'EA==','3h4gckfq',1,0,'',838,0,0),(31208,6900,3,267,0,'200.208.238.2',1178280761,1,0,1,1,1,1,'','TOutLook in windows MDI is possible?','Is possible ?','',0,'EA==','2z8j1nmj',1,0,'',267,0,0),(31209,6890,6,41,0,'200.87.67.10',1178281813,1,0,1,1,1,0,'','','Ruben,\n\nya la consegui y creo que esta mejor, creo que le meti mucha mano a la que tengo.\n\ngracias y saludos\n\nMarcelo\n\n\n[quote=&quot;Ruben Fernandez&quot;:35eaa38u]Marcelo:\n\nSi usas la clase publicada en el foro por Antonio\nte debe funcionar.\n\n   oLbx:bFont := {|nRow,nCol,nStyleLine| ;  \n               IIF( nStyleLine = 0  , oFont1:hFont,;\n               IIF( nStyleLine = 3  , oFont2:hFont , ;\n               IIF( nStyleLine = 2  , oFont2:hFont , ;\n               IIF( nStyleLine = 4  , oFont1:hFont , ;\n               IIF( nStyleLine = 1  , oFont2:hFont , ) ) ) ))}  \n\nSaludos.\n\nRuben Fernandez[/quote:35eaa38u]','',0,'gA==','35eaa38u',1,0,'',41,0,0),(31210,6583,2,890,0,'200.24.110.196',1178282825,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1yqtpfl8]Jairo,\n\nSi te refieres a un Browse, puedes revisar el código fuente de source\\function\\browse.prg ó buscar los ejemplos PRG en samples que contengan la palabra \"FIELDS\"[/quote:1yqtpfl8]\n\nAntonio\n\nMuy agradecido\n\nJairo Barbosa','',0,'gA==','1yqtpfl8',1,0,'',890,0,0),(31211,6881,6,456,0,'217.127.39.57',1178285253,1,0,1,1,1,1,'','','Con ado puedes utilizar el metodo Execute del objeto connection.\n\n[code:1vn1im4w]\noCnn&#58;Execute&#40;&quot;INSERT INTO articoli   &#40;ID, Sub_ID, codice, descrizione&#41;   VALUES     &#40;NEWID&#40;&#41;, 15, \'uno\', \'due\'&#41; &quot;&#41;\n[/code:1vn1im4w]','',0,'AIA=','1vn1im4w',1,0,'',456,0,0),(31212,6894,6,376,0,'201.230.189.248',1178285419,1,0,1,1,1,1,'','','Extrae el contenido con Winrar que te permitira ver que tiene a su vez una carpeta que corresponde al Browse..._17. No lo abras con winzip que te va a dar error.','',0,'AIA=','l1boqtqu',1,0,'',376,0,0),(31213,6890,6,73,0,'200.23.18.132',1178286909,1,0,1,1,1,0,'','','marcelo,\n\nlo uso sin problemas en los encabezados, si lo quieres usar dentro del browse no hay problema, nomas elige el nStyleLine correcto,\n1=encabezados\n2=browse\n3=footers\n\noBDep:bFont  := {|nRow,nCol,nStyleLine| ;\n                            IF(nStyleLine==1 .AND. nCol==1,oFnt:hFont,) }\n\nsalu2\npaco','',0,'AIA=','28kgbn88',1,0,'',73,0,0),(31214,6889,3,35,0,'167.7.140.254',1178287115,1,0,1,1,1,0,'','','Antonio\n\nI got a working browse with my code and YES .. the listbox is MUCH better when the recordset is cached locally. \n\nStill takes a while to \'fetch\' the recordset .. but that is based on the connection to the server .. which is ( in my case here ) a considerable distance from my location.\n\nI have not tried multiple workstations updating records and the visability of those changes .. any thoughts there ??\n\nWhat about indexes .. or TAGS .. generally speaking I was creating the ORDER by in the SQL statement as to how I want to see the records and on the relational tables .. opening a recordset with the sql clause .. WHERE ASSOCIATED_FILE_NUM =\'\"+cFILENUM+\"\'\"+\" order by date_\" .. not even using an index.\n\nIn traditional dbfcdx rdd .. there is a set scope .. or filter .. I see in the adordd code:\n\nSTATIC FUNCTION ADO_SETFILTER( nWA, aFilterInfo )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   oADO:Filter = SQLTranslate( aFilterInfo[ UR_FRI_CEXPR ] )\n\nRETURN SUCCESS\n\nSTATIC FUNCTION ADO_CLEARFILTER( nWA )\n\n   local oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n  TRY\n      oADO:Filter = \"\"\n  #ifndef __XHARBOUR__\n   CATCH\n   FINALLY\n  #else\n   CATCH oError\n      Alert( oError:Operation )\n   END\n  #endif\n\nRETURN SUCCESS\n\nHow is that translated into rdd ??  ... set index to... set order to tag ... LOCATE ??\n\n#command LOCATE [FOR &lt;for&gt;] [WHILE &lt;while&gt;] [NEXT &lt;next&gt;] ;\n                [RECORD &lt;rec&gt;] [&lt;rest:REST&gt;] [ALL] =&gt; ;\n         [ HB_AdoSetLocateFor( &lt;(for)&gt; ); ] ;        \n         __dbLocate( &lt;{for}&gt;, &lt;{while}&gt;, &lt;next&gt;, &lt;rec&gt;, &lt;.rest.&gt; )\n\n\nI know this is still a work in progress .. MARVELOUS WORK so far !!  \n\nRick Lipkin','',0,'','1fnf5njt',1,0,'',35,0,0),(31215,6896,3,35,0,'167.7.140.254',1178287468,1,0,1,1,1,0,'','','Ask\n\nYou need to put the include files ( for now ) in your default folder .. add to your compile list adordd.prg and usrrdd.c ... I did not include the ussrdd.lib.\n\nRick Lipkin','',0,'','mauga4t1',1,0,'',35,0,0),(31216,6901,7,57,0,'83.53.52.25',1178290943,1,0,1,1,1,1,'','Diferencia entre EndDialog y DestroyWindow DIALOG:END()','Antonio\nMe encuentro con un problema al cual le he dado solución pero  desconozco su alcance. \n\nEn ocasiones despues de llamar al Metodo END() de un dialog para cerrarlo, se ejecutan los VALID\'S de los Controles definidos sobre el propio dialogo. Lo he solucionado cambiando el valor de lModal a .F. justo antes de llamar al END() para que en lugar de EndDialog() ejecute DestroyWindow(). \n\n¿Por que pasa esto?\n¿Que diferencia hay entre ambas funciones?\n¿Puede provocar el uso de DestroyWindow en pérdidas de memoria por no cerrar correctamente los recursos?.\n\nLas llamadas al ACTIVATE del DIALOG las realizo sin especificar la clausula NOWAIT pero ejecutando en el INIT la funcion DlgFullScr( ::hWnd )\n\nSaludos','',0,'','3ruivzpd',1,0,'',57,0,0),(31217,6853,3,924,0,'81.208.36.89',1178294529,1,0,1,1,1,0,'','','It seems a god idea.\nOf course i need VB...\nTks','',0,'','2fl8vh05',1,0,'',924,0,0),(31218,6881,6,106,0,'85.34.123.173',1178295211,1,0,1,1,1,1,'','','Biel, \n\n\njustamente, como habia leido aqui que RF decía que conviene usar oRs:update() en vez del comando INSERT (o de repente yo lo entendí mal), es que quería saber como hacerlo con el recordset (:update() en vez que con :Execute()\n\n\ngracias de tu tiempo.','',0,'','pyiod2mx',1,0,'',106,0,0),(31219,6897,6,106,0,'85.34.123.173',1178295346,1,0,1,1,1,1,'','','Jose,\n\nla verdad es que conOutlook como no lo uso casi, no se como deshabilitarlo.\nDe repente alguien que lo use nos puede aclarar como.\n\nSaludos','',0,'','1z5fk37m',1,0,'',106,0,0),(31220,6889,3,2,0,'87.218.146.74',1178296174,1,0,1,1,1,1,'','','Rick,\n\n&gt;\nI got a working browse with my code and YES .. the listbox is MUCH better when the recordset is cached locally. \n\nStill takes a while to \'fetch\' the recordset .. but that is based on the connection to the server .. which is ( in my case here ) a considerable distance from my location. \n&gt;\n\nYou may try setting the recordset CacheSize value. We have not implemented it yet, but we plan to do it:\n\noAdo:CacheSize := 50\n\n&gt;\nI have not tried multiple workstations updating records and the visability of those changes .. any thoughts there ?? \n&gt;\n\nADORDD uses oAdo:CursorType = adOpenDynamic so the changes should become visible from all workstations\n\n&gt; What about indexes .. or TAGS\n\nWe have not implemented them yet. Probably we will do it along this next weekend\n\nYou can use SET FILTER TO &lt;expression&gt; and SET FILTER TO, to clear the filter. Same as Clipper. For SQL expressions, write them between quotation marks\n\nWe are glad that you are enjoying the ADORDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3hn5hm4r',1,0,'',2,0,0),(31221,6902,6,570,0,'200.117.181.118',1178296413,1,0,1,1,1,1,'','PROBLEMAS ENTRE VENTANAS MDICHILD','Hola a Todos, quería preguntarles porque tengo abierta una ventana mdichild que contiene un listado, desde uno de los botones del obar llamo a una funcion que muestra otra ventana mdichild con otro listado y todo funciona muy bien. cierro la segunda ventana y luego la vuelvo a abrir desde el mismo boton a la tercera vez que repito esta opcion cuando cierro la segunda ventana y vuelvo a la primera me cambia el font de toda la ventana como si se comiera todos los recursos , ya lo revise y esta todo bien adjunto vean la imagen, muchas gracias por vuestra ayuda, esto me tiene renegando hace varios dias...saludos a todos\n\n[img:17vg8h4v]http&#58;//www&#46;prediger&#46;com&#46;ar/screen&#46;jpg[/img:17vg8h4v]','',0,'CA==','17vg8h4v',1,0,'',570,0,0),(31222,6902,6,2,0,'87.218.146.74',1178296657,1,0,1,1,1,1,'','','Gustavo,\n\nEse problema ocurre cuando un font se está destruyendo antes de tiempo.\n\nSi tu creas un font al comienzo en tu programa, hazle lo siguiente:\n\noFont:nCount++','',0,'CA==','1uh6i4in',1,0,'',2,0,0),(31223,6881,6,54,0,'189.132.110.108',1178297539,1,0,1,1,1,1,'','','[quote=&quot;Fernando Mancera&quot;:1ypgk66h]Hola Pedro,\n\nEn el mensaje referente a ADORDD un usuario posteo un link con todo lo necesario para hacer funcionar en xHarbour. Recuerda compilar el codigo fuente de ADORDD con tu version de xHarbour.\n\n[url:1ypgk66h]http&#58;//rapidshare&#46;com/files/29234022/adoRDD&#46;rar&#46;html[/url:1ypgk66h][/quote:1ypgk66h]\n\nFer,\n\ncompila tanto en xharbour como harbour.\n\npor cierto, sería conveniente incluir las modificaciones en el cvs de harbour.\n\nsaludos','',0,'kA==','1ypgk66h',1,0,'',54,0,0),(31224,6902,6,570,0,'200.117.181.118',1178298603,1,0,1,1,1,1,'','','Estimado Antonio, Gracias por tu pronta respuesta, he realizado lo que me dijiste y sigue haciendolo a la tercera vez que abro la seguna mdichild, yo defino los font al comienzo de cada funcion de cada ventana sera esto ? te adjunto el araanque de la segunda mdi\n\nMuchas Gracias...\n\n[code:3nqpgy1o]FUNCTION pro_ctas&#40;ncta&#41;\n\nLOCAL   nH, a_cli, a_cli2, ax&#91;4&#93;, a_tcta, a_tct2, a_tct3, oFldx\nLOCAL   oBcta , oBct2, oBchq, a_pag&#91;11,2&#93;, nAt, oSlen\nLOCAL   oFont, oFch2, oFexa\n\nDEFAULT ncta&#58;=1\n\nIF oWcta != Nil\n   oWcta&#58;END&#40;&#41;\n   oWcta&#58;=Nil\nENDIF\n\n*----DEFINIR CLIENTE------------------*\nIF ncta=1\n   a_cl&#58;=bus_prv&#40;&quot;1&quot;&#41;\n   IF a_cl&#91;1&#93;\n      ncta&#58;=a_cl&#91;2&#93;\n      ELSE\n      RETURN&#40;&#46;T&#46;&#41;\n   ENDIF\nENDIF\n*-------------------------------------*\n\ncursorwait&#40;&#41;\n\n*--DEFINIR a_pag RESUMEN -----------------*\na_pag&#91;1 ,1&#93;&#58;=oemtoansi&#40;&quot;Cr‚dito&#58;&quot;&#41;\na_pag&#91;2 ,1&#93;&#58;=&quot;Comprobantes en Cta&#46;Cte&#46;&#58;&quot;\na_pag&#91;3 ,1&#93;&#58;=&quot;Cheques en Cartera&#58;&quot;\na_pag&#91;4 ,1&#93;&#58;=&quot;Disponible&#58;&quot;\na_pag&#91;5 ,1&#93;&#58;=&quot;&quot;\na_pag&#91;6 ,1&#93;&#58;=&quot;Descuento en Vtas&#58;&quot;\na_pag&#91;7 ,1&#93;&#58;=&quot;Lista de Precios&quot;\na_pag&#91;8 ,1&#93;&#58;=&quot;Vendedor&#58;&quot;\na_pag&#91;9 ,1&#93;&#58;=oemtoansi&#40;&quot;D¡a de Visita&#58;&quot;&#41;\na_pag&#91;10,1&#93;&#58;=oemtoansi&#40;&quot;D¡as de Cr‚dito&#58;&quot;&#41;\na_pag&#91;11,1&#93;&#58;=oemtoansi&#40;&quot;Cr‚dito Limitado&#58;&quot;&#41;\nFOR i=1 TO 11\n    a_pag&#91;i,2&#93;&#58;=0\nNEXT i\n*-----------------------------------------*\n*-- DEFINIR SIMBOLO-----------------------*\naX&#91;1&#93; &#58;=LoadBitMap&#40;GetResources&#40;&#41;,&quot;B_ALTA&quot;&#41;\naX&#91;2&#93; &#58;=LoadBitMap&#40;GetResources&#40;&#41;,&quot;C_PAL&quot;&#41;\naX&#91;3&#93; &#58;=LoadBitMap&#40;GetResources&#40;&#41;,&quot;B_BAJA&quot;&#41;\naX&#91;4&#93; &#58;=LoadBitMap&#40;GetResources&#40;&#41;,&quot;B_MEDI&quot;&#41;\n*-----------------------------------------*\n\n*-- BUSCAR CLIENTE -------------*\na_cli &#58;=bus_prvr&#40;STR&#40;ncta,7,0&#41;&#41;\n*-------------------------------*\n\nMSGRUN&#40;&quot; ABRIENDO CUENTA CORRIENTE&#46;&#46;&#46;&#46; &quot;,&quot;ESPERE!!&quot;,;\n         &#123;|| oBchq &#58;=abrir_dbf&#40;&quot;GR2_500&quot;&#41;,a_tct3&#58;=ref_cta3&#40;a_cli,oBchq,2&#41;   ,oBchq &#58;=a_tct3&#91;2&#93;,;\n             oBct2 &#58;=abrir_dbf&#40;&quot;GR2_511&quot;&#41;,a_tct2&#58;=ref_cta2&#40;a_cli&#91;2&#93;,oBct2,2&#41;,oBct2 &#58;=a_tct2&#91;2&#93;,;\n             oBcta &#58;=abrir_dbf&#40;&quot;GR2_511&quot;&#41;,a_tcta&#58;=ref_ctac&#40;a_cli&#91;2&#93;,oBcta,2&#41;,oBcta &#58;=a_tcta&#91;4&#93;,;\n             ref_cta4&#40;a_pag,a_cli,a_tcta,a_tct2,a_tct3,2&#41; &#125;&#41;\n\nadias  &#58;=&#123;&quot;Lunes&quot;,&quot;Martes&quot;,OEMTOANSI&#40;&quot;Mi‚rcoles&quot;&#41;,&quot;Jueves&quot;,&quot;Viernes&quot;&#125;\n\nDEFINE FONT oFont   NAME &quot;Ms Sans Serif&quot; SIZE 0, -8\nDEFINE FONT oFch2   NAME &quot;Ms Sans Serif&quot; SIZE 0, -8 BOLD\nDEFINE FONT oFexa   NAME &quot;Terminal&quot;      SIZE 0,-11 PITCHFAMILY 49\n\noFont&#58;nCount++\noFch2&#58;nCount++\noFexa&#58;nCount++\n\n\nDEFINE WINDOW oWcta MDIChild OF oWnd ;\n       TITLE &quot;Cuenta Corriente de Proveedores &quot;+oBcta\n\n       DEFINE BUTTONBAR oBar 3DLOOK BUTTONSIZE 28,57 OF oWcta\n\n       DEFINE BUTTON oBot1 RESOURCE &quot;B_EXEL&quot; ;\n              OF oBar ;\n              ACTION cta_exel&#40;oBcta,oBrct,oBct2,oBrc2,oBchq,oBrc3,a_pag,oBrc4,oWcta,oSlen,oFldx&#41; ;\n              NOBORDER ;\n              TOOLTIP &quot;Transferir Actual a Excel&quot;\n\n       DEFINE BUTTON oBot1 RESOURCE &quot;B_PRI&quot; ;\n              OF oBar ;\n              ACTION cta_impr&#40;oBcta,oBrct,oBct2,oBrc2,oBchq,oBrc3,a_pag,oBrc4,oWcta,oSlen,oFldx,2&#41;;\n              NOBORDER ;\n              TOOLTIP &quot;Imprimir Actual&quot;\n\n       DEFINE BUTTON oBot1 ;\n              OF oBar ;\n              RESOURCE &quot;B_CLI&quot; ;\n              ACTION &#40;a_cli2&#58;=bus_prv&#40;STR&#40;a_cli&#91;2&#93;,7,0&#41;&#41;,;\n                      IF&#40;a_cli2&#91;1&#93;,;\n                         MSGRUN&#40;&quot; ABRIENDO CUENTA CORRIENTE&#46;&#46;&#46; &quot;,&quot;ESPERE!!&quot; ,;\n                         &#123;|| &#40;a_cli&#58;=a_cli2,;\n                         a_tcta&#58;=ref_ctac&#40;a_cli&#91;2&#93;,oBcta,2&#41;,;\n                         oBcta&#58;=a_tcta&#91;4&#93;,;\n                         a_tct2&#58;=ref_cta2&#40;a_cli&#91;2&#93;,oBct2,2&#41;,;\n                         oBct2 &#58;=a_tct2&#91;2&#93;,;\n                         a_tct3&#58;=ref_cta3&#40;a_cli,oBchq,2&#41;,;\n                         oBchq&#58;=a_tct3&#91;2&#93;,;\n                         ref_cta4&#40;a_pag,a_cli,a_tcta,a_tct2,a_tct3,2&#41;,;\n                         oBrct&#58;aFooters     &#58;=&#123;,,,&quot;Totales&quot;,,;\n                         TRANSFORM&#40;a_tcta&#91;2&#93;,&quot;@E ##,###,###&#46;##&quot;&#41;,;\n                         TRANSFORM&#40;a_tcta&#91;3&#93;,&quot;@E ##,###,###&#46;##&quot;&#41;,;\n                         TRANSFORM&#40;a_tcta&#91;1&#93;,&quot;@E ##,###,###&#46;##&quot;&#41; &#125; ,;\n                         oBrc2&#58;aFooters     &#58;=&#123;,,,&quot;Totales&quot;,,,,,;\n                         TRANSFORM&#40;a_tct2&#91;1&#93;,&quot;@E ##,###,###&#46;##&quot;&#41; &#125;,;\n                         oBrc3&#58;aFooters     &#58;=&#123;,,,,&quot;Total&quot;,;\n                         TRANSFORM&#40;a_tct3&#91;1&#93;,&quot;@E ##,###,###&#46;##&quot;&#41; &#125;,;\n                         oWcta&#58;UPDATE&#40;&#41;,oSlen&#58;REFRESH&#40;&#41;&#41; &#125;&#41; ,&#41;&#41; ;\n                NOBORDER ;\n                TOOLTIP &quot;Seleccionar otro Proveedor&quot;\n\n       @ &#46;05,18 SAY oSlen PROMPT lee_cl&#40;a_cli&#41; ;\n                SIZE 700,52 ;\n                COLOR CLR_BLUE,CLR_FONDO ;\n                FONT oFont ;\n                UPDATE ;\n                OF oBar\n\n       @ 1,1    FOLDER oFldx ;\n                OF oWcta ;\n                FONT oFont ;\n                ITEMS &quot;Mayor de Cuenta Corriente&quot;,&quot;Cbtes Adeudados/No Conciliados&quot;,;\n                      &quot;Cheques en Cartera&quot;,oemtoansi&#40;&quot;Res£men de Cta&#46;Cte&#46;&quot;&#41;\n\n       *------- MAYOR DE CUENTAS -------------------*\n       @ 0,0    LISTBOX oBrct ;\n                FIELDS  AX&#91;esta_cta&#40;oBcta&#41;&#93;       ,;\n                        DTOC&#40;&#40;oBcta&#41;-&gt;CTA_FVTO&#41;   ,;\n                        for_fec&#40;&#40;oBcta&#41;-&gt;CTA_FECH&#41;,;\n                        &#40;oBcta&#41;-&gt;VTA_COMP ,;\n                        &#40;oBcta&#41;-&gt;CTA_CUOT ,;\n                        TRANSFORM&#40;&#40;oBcta&#41;-&gt;CTA_DEBE,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        TRANSFORM&#40;&#40;oBcta&#41;-&gt;CTA_HABE,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        TRANSFORM&#40;&#40;oBcta&#41;-&gt;CTA_SALD,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        &quot; &quot;,;\n                        TRANSFORM&#40;&#40;oBcta&#41;-&gt;CTA_PAGA,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        cta_tpaga&#40;oBcta&#41;  ,;\n                        &#40;oBcta&#41;-&gt;OPE_OPER  ;\n                HEADERS &quot;E&quot;          ,;\n                        &quot;Vencimiento&quot;,;\n                        oemtoansi&#40;&quot;Emisi¢n&quot;&#41;,;\n                        &quot;Concepto&quot;    ,;\n                        &quot;Cuota&quot;       ,;\n                        &quot;Debe&quot;        ,;\n                        &quot;Haber&quot;       ,;\n                        &quot;Saldo&quot;       ,;\n                        &quot; &quot;           ,;\n                        &quot;Pagado&quot;      ,;\n                        &quot;Sldo&#46;Compte&#46;&quot;,;\n                        &quot;Operador&quot;     ;\n                SIZES   15,70,70,130,45,75,75,100,4,75,75,200 ;\n                ALIAS &#40;oBcta&#41;-&gt;&#40;ALIAS&#40;&#41;&#41; ;\n                FONT oFont ;\n                UPDATE ;\n                OF oFldx&#58;adialogs&#91;1&#93;\n\n       oBrct&#58;bFont        &#58;= &#123;| nRow,nCol, nStyleLine|  IF&#40; nCol=8 &#46;AND&#46; &#40;nStyleline=0 &#46;OR&#46; nStyleline=3 &#46;OR&#46; nStyleLine=2&#41;,;\n			                                                      oFch2&#58;Hfont,NIL&#41; &#125;\n\n       oBrct&#58;bLDblClick   &#58;= &#123; | nRow, nCol, nFlags |  com_vcon&#40;&#40;oBcta&#41;-&gt;VTA_COMP,a_cli&#91;2&#93;&#41; &#125;\n       oBrct&#58;bBkColor     &#58;= &#123;| nRow,nCol, nStyleLine| esta_ctac&#40;nRow,nStyleline,oBrct&#41;  &#125;\n       oBrct&#58;ajustify     &#58;= &#123;2,&#46;F&#46;,&#46;F&#46;,&#46;F&#46;,2,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;F&#46;&#125;\n       oBrct&#58;nclrbackhead &#58;= RGB&#40;0,200,255&#41;\n       oBrct&#58;nclrforehead &#58;= RGB&#40;0,0,1&#41;\n       oBrct&#58;nclrNFback   &#58;= RGB&#40;127,127,127&#41;\n       oBrct&#58;nlineHeight  &#58;= 15\n       oBrct&#58;nHeaderHeight&#58;= 15\n       oBrct&#58;nclrbackfocus&#58;= RGB&#40;200,100,50&#41;\n       oBrct&#58;lAdjLastCol  &#58;=&#46;F&#46;\n       oBrct&#58;lDrawFooters &#58;=&#46;T&#46;\n       oBrct&#58;aFooters     &#58;=&#123;,,,&quot;Totales&quot;,,;\n                            TRANSFORM&#40;a_tcta&#91;2&#93;,&quot;@E ##,###,###&#46;##&quot;&#41;,;\n                            TRANSFORM&#40;a_tcta&#91;3&#93;,&quot;@E ##,###,###&#46;##&quot;&#41;,;\n                            TRANSFORM&#40;a_tcta&#91;1&#93;,&quot;@E ##,###,###&#46;##&quot;&#41; &#125;\n\n       *-------ADEUDADOS---------------------------*\n       @ 0,0    LISTBOX oBrc2 ;\n                FIELDS  AX&#91;esta_cta&#40;oBct2&#41;&#93;       ,;\n                        DTOC&#40;&#40;oBct2&#41;-&gt;CTA_FVTO&#41;   ,;\n                        for_fec&#40;&#40;oBct2&#41;-&gt;CTA_FECH&#41;,;\n                        &#40;oBct2&#41;-&gt;VTA_COMP ,;\n                        &#40;oBct2&#41;-&gt;CTA_CUOT ,;\n                        TRANSFORM&#40;&#40;oBct2&#41;-&gt;CTA_DEBE,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        TRANSFORM&#40;&#40;oBct2&#41;-&gt;CTA_HABE,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        TRANSFORM&#40;&#40;oBct2&#41;-&gt;CTA_PAGA,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        cta_tpaga&#40;oBct2&#41;  ,;\n                        &#40;oBct2&#41;-&gt;OPE_OPER  ;\n                HEADERS &quot;E&quot;          ,;\n                        &quot;Vencimiento&quot;,;\n                        oemtoansi&#40;&quot;Emisi¢n&quot;&#41;,;\n                        &quot;Concepto&quot;    ,;\n                        &quot;Cuota&quot;       ,;\n                        &quot;Debe&quot;        ,;\n                        &quot;Haber&quot;       ,;\n                        &quot;Pagado&quot;      ,;\n                        &quot;Sldo&#46;Compte&#46;&quot;,;\n                        &quot;Operador&quot;     ;\n                SIZES   15,75,75,150,50,85,85,85,110,200 ;\n                ALIAS &#40;oBct2&#41;-&gt;&#40;ALIAS&#40;&#41;&#41; ;\n                FONT oFont ;\n                UPDATE ;\n                OF oFldx&#58;adialogs&#91;2&#93;\n\n       oBrc2&#58;bFont        &#58;= &#123;| nRow,nCol, nStyleLine|  IF&#40; nCol=9 &#46;AND&#46; &#40;nStyleline=0 &#46;OR&#46; nStyleline=3 &#46;OR&#46; nStyleLine=2&#41;,;\n			                                                      oFch2&#58;Hfont,NIL&#41; &#125;\n\n       oBrc2&#58;bLDblClick   &#58;= &#123; | nRow, nCol, nFlags |  com_vcon&#40;&#40;oBct2&#41;-&gt;VTA_COMP,a_cli&#91;2&#93;&#41; &#125;\n       oBrc2&#58;bBkColor     &#58;= &#123;| nRow,nCol, nStyleLine| esta_ctac&#40;nRow,nStyleline,oBrc2&#41;  &#125;\n       oBrc2&#58;ajustify     &#58;= &#123;2,&#46;F&#46;,&#46;F&#46;,&#46;F&#46;,2,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;F&#46;&#125;\n       oBrc2&#58;nclrbackhead &#58;= RGB&#40;0,200,255&#41;\n       oBrc2&#58;nclrforehead &#58;= RGB&#40;0,0,1&#41;\n       oBrc2&#58;nclrNFback   &#58;= RGB&#40;127,127,127&#41;\n       oBrc2&#58;nlineHeight  &#58;= 15\n       oBrc2&#58;nHeaderHeight&#58;= 15\n       oBrc2&#58;nclrbackfocus&#58;= RGB&#40;200,100,50&#41;\n       oBrc2&#58;lAdjLastCol  &#58;=&#46;F&#46;\n       oBrc2&#58;lDrawFooters &#58;=&#46;T&#46;\n       oBrc2&#58;aFooters     &#58;=&#123;,,,&quot;Totales&quot;,,,,,;\n                            TRANSFORM&#40;a_tct2&#91;1&#93;,&quot;@E ##,###,###&#46;##&quot;&#41; &#125;\n\n       *-------CHEQUES EN CARTERA---------------------------*\n       @ 0,0    LISTBOX oBrc3 ;\n                FIELDS  for_fec&#40;&#40;oBchq&#41;-&gt;CHQ_FVTO&#41;,;\n                        for_fec&#40;&#40;oBchq&#41;-&gt;CHQ_FECH&#41;,;\n                        &#40;oBchq&#41;-&gt;CHQ_BANK ,;\n                        &#40;oBchq&#41;-&gt;CHQ_SUCU ,;\n                        &#40;oBchq&#41;-&gt;CHQ_NUME ,;\n                        TRANSFORM&#40;&#40;oBchq&#41;-&gt;CHQ_TOTA,&quot;@EZ ##,###,###&#46;##&quot;&#41; ,;\n                        &#40;oBchq&#41;-&gt;VTA_COMP ,;\n                        &#40;oBchq&#41;-&gt;CHQ_CLIE ,;\n                        &#40;oBchq&#41;-&gt;OPE_OPER ;\n                HEADERS &quot;Fecha Cobro&quot;       ,;\n                        oemtoansi&#40;&quot;Emisi¢n&quot;&#41;,;\n                        oemtoansi&#40;&quot;Banco&quot;&#41;  ,;\n                        &quot;Sucursal&quot;          ,;\n                        oemtoansi&#40;&quot;N£mero&quot;&#41; ,;\n                        &quot;Monto&quot;             ,;\n                        &quot;Comprobante&quot;       ,;\n                        &quot;Cliente&quot;           ,;\n                        &quot;Operador&quot;          ;\n                SIZES   70,70,165,165,165,95,150,200,200 ;\n                ALIAS &#40;oBChq&#41;-&gt;&#40;ALIAS&#40;&#41;&#41; ;\n                FONT oFont ;\n                UPDATE ;\n                OF oFldx&#58;adialogs&#91;3&#93;\n\n        oBrc3&#58;bFont        &#58;= &#123;| nRow,nCol, nStyleLine|  IF&#40; nCol=6 &#46;AND&#46; &#40;nStyleline=0 &#46;OR&#46; nStyleline=3 &#46;OR&#46; nStyleLine=2&#41;,oFch2&#58;Hfont,NIL&#41; &#125;\n\n       oBrc3&#58;ajustify     &#58;= &#123;&#46;F&#46;,&#46;F&#46;,&#46;F&#46;,&#46;f&#46;,&#46;f&#46;,&#46;T&#46;,&#46;f&#46;,&#46;f&#46;,&#46;F&#46;&#125;\n       oBrc3&#58;nclrbackhead &#58;= RGB&#40;0,200,255&#41;\n       oBrc3&#58;nclrforehead &#58;= RGB&#40;0,0,1&#41;\n       oBrc3&#58;nclrNFback   &#58;= RGB&#40;127,127,127&#41;\n       oBrc3&#58;nlineHeight  &#58;= 15\n       oBrc3&#58;nHeaderHeight&#58;= 15\n       oBrc3&#58;nclrbackfocus&#58;= RGB&#40;200,100,50&#41;\n       oBrc3&#58;lAdjLastCol  &#58;=&#46;F&#46;\n       oBrc3&#58;lDrawFooters &#58;=&#46;T&#46;\n       oBrc3&#58;aFooters     &#58;=&#123;,,,,&quot;Total&quot;,;\n                            TRANSFORM&#40;a_tct3&#91;1&#93;,&quot;@E ##,###,###&#46;##&quot;&#41; &#125;\n\n       *--- FOLDER 4 - RESUMEN DE CUENTA\n       @ 0,0    LISTBOX oBrc4 FIELDS &quot;&quot; ;\n                HEADER &quot;Detalle&quot;             ,;\n                       &quot;Totales&quot;             ;\n                SIZES 250,180                ;\n                UPDATE ;\n                OF oFldx&#58;aDialogs&#91;4&#93;\n\n           oBrc4&#58;bFont        &#58;= &#123;| nRow,nCol, nStyleLine|  IF&#40; oBrc4&#58;nAt=4 &#46;AND&#46; &#40;nStyleline=0 &#46;OR&#46; nStyleline=3 &#46;OR&#46; nStyleLine=2&#41;,oFch2&#58;Hfont,NIL&#41; &#125;\n           oBrc4&#58;bBkColor     &#58;= &#123;| nRow,nCol, nStyleLine|  IF&#40; oBrc4&#58;nAt=4 &#46;AND&#46; nCol=2 &#46;AND&#46; &#40;nStyleline=0 &#46;OR&#46; nStyleline=3 &#46;OR&#46; nStyleLine=2&#41;,IF&#40;AT&#40;&quot;-&quot;,a_pag&#91;oBrc4&#58;nAt,2&#93;&#41;&gt;0,RGB&#40;255,0,0&#41;,RGB&#40;0,255,0&#41;&#41;,NIL&#41; &#125;\n\n           oBrc4&#58;bLine&#58;= &#123;|nAt| nAt&#58;= oBrc4&#58;nAt, &#123; a_pag&#91;nAt,1&#93;,a_pag&#91;nAt,2&#93; &#125; &#125;\n           oBrc4&#58;aJustify     &#58;= &#123; &#46;F&#46;,&#46;T&#46; &#125;\n           oBrc4&#58;SetArray&#40; a_pag &#41;\n           oBrc4&#58;lAdjLastCol  &#58;= &#46;f&#46;\n           oBrc4&#58;nLineStyle   &#58;= 4\n           oBrc4&#58;nlineHeight  &#58;= 17\n           oBrc4&#58;nHeaderHeight&#58;= 17\n           oBrc4&#58;nclrbackhead &#58;= RGB&#40;0,200,255&#41;\n           oBrc4&#58;nclrforehead &#58;= RGB&#40;0,0,1&#41;\n           oBrc4&#58;nclrNFback   &#58;= RGB&#40;127,127,127&#41;\n           oBrc4&#58;nclrbackfocus&#58;= RGB&#40;200,100,50&#41;\n\n\noWcta&#58;bGotFocus &#58;=&#123;|| oBrct&#58;SetFocus&#40;&#41; &#125;\noWcta&#58;SetControl&#40;oBrct&#41;\noWcta&#58;Gotop&#40;&#41;\n\nACTIVATE WINDOW oWcta ;\n         MAXIMIZED    ;\n         ON RESIZE FoldRes4&#40; oWcta, oFldx, oBrct, oBrc2, oBrc3, oBrc4 &#41; ;\n         VALID     &#40;oWcta&#58;=Nil,;\n				            cerrar_dbf&#40;oBcta&#41;,;\n				            cerrar_dbf&#40;oBct2&#41;,;\n                    cerrar_dbf&#40;oBchq&#41;,&#46;T&#46;&#41;\n\nRETURN&#40;&#46;T&#46;&#41;\n[/code:3nqpgy1o]','',0,'AIA=','3nqpgy1o',1,0,'',570,0,0),(31225,6881,6,2,0,'87.218.146.74',1178298627,1,0,1,1,1,1,'','','William,\n\nVamos a subir las modificaciones al CVS de Harbour, lo que ocurre es que queremos hacer algunos cambios en el código para eliminar diferencias entre Harbour y xHarbour y que a ser posible, se use el mismo código con ambos','',0,'AIA=','3dy24ie9',1,0,'',2,0,0),(31226,6902,6,570,0,'200.117.181.118',1178299191,1,0,1,1,1,1,'','','Estimado Antonio, muchas gracias ya esta resuelto cambie a definir los fonts al inicio del programa y listo...estupendo tu respuesta gracias...\nsaludos,','',0,'AIA=','24fhgb9m',1,0,'',570,0,0),(31227,4774,3,319,0,'201.1.169.3',1178300259,1,0,1,1,1,0,'','','vc esta emq aul versão do fivewin 2.8? me mande o log de errook','',0,'AIA=','xydydz4y',1,0,'',319,0,0),(31228,6889,3,35,0,'167.7.140.254',1178302982,1,0,1,1,1,0,'','','Antonio\n\noAdo:CacheSize had no effect at any value .... but I am not complaining. This is a table with about 25k records .. and I have tested it at this location ( on the \'outer rim\' ) and close to the core router. The closer to the core router .. the faster the \'fetch\'\n\nJust thought I would let you know about the cachesize\n\nRick Lipkin','',0,'AIA=','1pg0wzx6',1,0,'',35,0,0),(31229,6881,6,54,0,'189.132.110.108',1178308169,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:81rk2v0q]William,\n\nVamos a subir las modificaciones al CVS de Harbour, lo que ocurre es que queremos hacer algunos cambios en el código para eliminar diferencias entre Harbour y xHarbour y que a ser posible, se use el mismo código con ambos[/quote:81rk2v0q]\n\nok. gracias','',0,'gA==','81rk2v0q',1,0,'',54,0,0),(31230,6903,6,649,0,'201.3.212.48',1178308199,1,0,1,1,1,1,'','ADS com FW2.8','Estou tentando usar o ADS com Fivewin 2.8\nmas esta me aparecendo esta mensagem.\n\"Não foi possivel localizar o numero ordinal 438 na biblioteca de vinculo dinamico ACE32.DLL\"\n\nAlguem pode me auxiliar???','',0,'gA==','1wp8rqa1',1,0,'',649,0,0),(31231,6875,20,29,0,'88.149.160.254',1178308443,1,0,1,1,1,0,'','','x Silvio.\n\nLa classe di Paco è piuttosto lenta per visualizzare un menu abbastanza lungo come questo su <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/menuxp.png\">www.softwarexp.co.uk/beta/menuxp.png</a><!-- w --> e non gestisce inoltre il menu office style a livello orizzontale.\n\nHo evidenziato entrambe le cose a Paco, aspetto news.\n\nCiao\n\nMarco','',0,'gA==','25eahu8z',1,0,'',29,0,0),(31232,6904,20,29,0,'88.149.160.254',1178308608,1,0,1,1,1,0,'','Optgui e xharbour 0.99.70','Salve,\nsapete se serve ancora optgui.lib nell\'ultima versione di xHarbour per velocizzare la visualizzazione ?\n\nMarco','',0,'gA==','3u8dvlka',1,0,'',29,0,0),(31233,6886,6,1023,0,'201.92.184.27',1178311783,1,0,1,1,1,0,'','','Eu consegui fazer cada get ter um valor diferente, ligado direto no browse, o problem é que se edito um desses gets, assim que ele perde o fóco, o get retorna ao valor antigo, assim não vale de nada oque digito nele.\n\nComo que fasso com isso? Aluém pode me ajudar?','',0,'gA==','5dlbkyw5',1,0,'',1023,0,0),(31234,6886,6,46,0,'217.168.114.247',1178312842,1,0,1,1,1,0,'','','VC pode experimentar\n\nfunction GenBlock( v, c )\nRETURN { |u| If( u == Nil, v[c], v[c] := u ) }','',0,'','38tv014q',1,0,'',46,0,0),(31235,6903,6,46,0,'217.168.114.247',1178313016,1,0,1,1,1,0,'','','Tem que atualizar a versão do ADS','',0,'','394lwpxv',1,0,'',46,0,0),(31236,6904,20,6,0,'87.1.225.31',1178313636,1,0,1,1,1,1,'','Re: Optgui e xharbour 0.99.70','Non solo non serve ormai più da molto molto tempo ma siccome nel CVS non è proprio presente allora usandola rischi di mischiare codice vecchio con quello nuovo. Buttala pure via.\n\nEMG','',0,'','2p1cui5z',1,0,'',6,0,0),(31237,6889,3,2,0,'87.218.146.243',1178318755,1,0,1,1,1,1,'','','Rick\n\nThanks for the feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3gspu8jp',1,0,'',2,0,0),(31238,6905,6,185,0,'200.87.83.179',1178319462,1,0,1,1,1,0,'','el Tgantt esta disponible','ya que hay piratas en el foro, que no hacen otra cosa que copiar y plagiar el codigo que alguien desarrollo y dono a este foro donde existen grandes amigos\n\nLa forma de plagio, el codigo de la clase fue tomando el gantt.obj y enlazarlo en clipper como obj y likearlo con el rtlink, para luego pasarlo con el valkiria, se obtiune todo el codigo fuente, es facil, amigos\n\npero para que que de cosntancia aqui nles dejo una imagen de la ultima versión\n\n[img:3ic7e3q6]http&#58;//img99&#46;imageshack&#46;us/img99/6595/d004rn7&#46;jpg[/img:3ic7e3q6]\n\nLas fuentes estan disponibles, los que deseen contactenme a mi correo <!-- e --><a href=\"mailto:thee2d2@entelnet.bo\">thee2d2@entelnet.bo</a><!-- e -->\n\nY alos que les falta cerebro para pensar un saludo especial\n\n\nsaludos\n\nArturo','',0,'CA==','3ic7e3q6',1,0,'',185,0,0),(31239,6897,6,838,0,'80.59.225.15',1178321000,1,0,1,1,1,0,'','','También estoy probando con la clase Tsmtp modificada por Luis Krause, y no consigo arrancar ninguno de los ejemplos, ya que a la hora de hacer el envío siempre me dice que no puede conectar con el servidor, y el caso es que detecta la dirección IP del host, en mi caso smtp.telefonica.net, pero no se que hago mal que siempre me da ese error.\n\nSaludos\n\nJose Luis','',0,'CA==','1nr1zaxn',1,0,'',838,0,0),(31240,6905,6,72,0,'189.146.240.23',1178325656,1,0,1,1,1,0,'','','Excelente vista Arturo, felicidades y gracias por tus aportaciones.\n\nTe diré también que mi código ha sido tomado por muchos, estos son los riesgos. Hoy mismo he visto en este foro una imagen de aguién que no me ha solicitado el permiso.\n\nPero creo que siempre llevaremos un paso adelante.','',0,'CA==','3i4nrdiv',1,0,'',72,0,0),(31241,6905,6,348,0,'201.230.0.93',1178332483,1,0,1,1,1,0,'','Re: el Tgantt esta disponible','Arturo\n\nTe agradecer me permitas contar con dicha clase,  yo intente hacer una representacion de un Gant  dibujando \"cuadraditos\" ,  pedo ni hablar ni se acerca a esto,  mis respetos\n\nMi correo es <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e --> \n\na veces tambien me han copiado rutinas o programas,,  creo que finalmente me quedo solo reirme y  pensar..  \"JAJAJA  tiene la version mas vieja...  y les parece bueno... si vieran la nueva jajjaja  \",  mas nada porque somos siempre mejores que ellos,  en fin asi es el mundo.\n\nLubin\n\n\n\n[quote=&quot;Arturo Tamayo Daza&quot;:q6fyq7v3]ya que hay piratas en el foro, que no hacen otra cosa que copiar y plagiar el codigo que alguien desarrollo y dono a este foro donde existen grandes amigos\n\nLa forma de plagio, el codigo de la clase fue tomando el gantt.obj y enlazarlo en clipper como obj y likearlo con el rtlink, para luego pasarlo con el valkiria, se obtiune todo el codigo fuente, es facil, amigos\n\npero para que que de cosntancia aqui nles dejo una imagen de la ultima versión\nLas fuentes estan disponibles, los que deseen contactenme a mi correo <!-- e --><a href=\"mailto:thee2d2@entelnet.bo\">thee2d2@entelnet.bo</a><!-- e -->\n\nY alos que les falta cerebro para pensar un saludo especial\n\n\nsaludos\n\nArturo[/quote:q6fyq7v3]','',0,'gA==','q6fyq7v3',1,0,'',348,0,0),(31242,6905,6,496,0,'200.107.36.176',1178335862,1,0,1,1,1,0,'','','Es una excelente noticia, yo lo uso en una de mis aplicaciones, lo malo que está en 16 bits, y sería fantástico que ya esté disponible en 32 bits.\n\nTambién me apunto para ver si puedo ser partícipe de esta práctica clase.\n\nFelicitaciones por tan buen trabajo.\n\nAtentamente\n\nMarcelo Jingo','',0,'gA==','1p6me0tf',1,0,'',496,0,0),(31243,6906,6,66,0,'200.127.42.66',1178336046,1,0,1,0,1,0,'','Ayuda con olbx:setfilter  de 3 campos','Estimados Colegas\n\nTengo que filtrar un broese por 3 campos compañia,oficina,mes\ncomo lo puedo hace con olbx:setfilter\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yaho.com.ar\">Databaselab2002@yaho.com.ar</a><!-- e -->','',0,'gA==','2657x9mb',1,0,'',66,0,0),(31244,6894,6,349,0,'189.165.43.160',1178341409,1,0,1,1,1,0,'','Con WinRar si se puede','Buenas Noches\n\nArmando Picon\n\nSaludos y Gracias ...','',0,'gA==','350ydoke',1,0,'',349,0,0),(31245,6905,6,785,0,'190.64.208.153',1178341447,1,0,1,1,1,0,'','','Arturo:\n\n\nSi es posible me interesa tu clase, mi intelecto no me da para tanto.....\n\nMuchas gracias.\n\nSaludos y disculpa mi atrevimiento de pedirtela, pero esta demasiado buena\ncomo para ignorar tu  generosidad.\n\n\nRuben Fernandez\nUruguay','',0,'gA==','1l9nxcje',1,0,'',785,0,0),(31246,6901,7,2,0,'87.218.146.243',1178348229,1,0,1,1,1,1,'','','Toni,\n\nEl API de Windows contempla dos tipos de cajas de diálogo: modales y no modales. Las modales se crean (según reglas del API) usando DialogBox() y han de terminarse llamando a EndDialog(). \n\nEl código fuente del procedimiento de ventana de una caja de diálogo modal no está disponible, ya que Microsoft no lo proporciona, pero se entiende que que se encarga de automatizar una serie de tareas como el uso del tab, el impedir que la ventana padre tome focus, etc. EndDialog() debe forzosamente de llamar a DestroyWindow().\n\nUna caja de diálogo no modal, por el contrario, se construye con CreateDialog() y se destruye con DestroyWindow(). Así lo especifica el API de Windows.\n\nCon el cambio que haces, llamas a DestroyWindow() en vez de a EndDialog(). Debe funcionar porque asi tambien consigues destruir la caja de diálogo, lo que ocurre es que no sabemos si EndDialog() hará más cosas, que quedan sin hacer al llamar a DestroyWindow() directamente.\n\nHas probado la alternativa de quitar todos los VALIDs antes de llamar a oDlg:End() ? de esta forma se evitaría el efecto de que algún VALID se procese, como comentas.','',0,'gA==','3pv5m8st',1,0,'',2,0,0),(31247,6848,3,239,0,'218.20.61.115',1178352483,1,0,1,1,1,0,'','','Antonio, \nThe main my.exe file is still exist in memory and running during winexe(\"copyfile.exe\"). \n\n\n#include \"FiveWin.ch\" \n\nfunction Main() \n\nlocal lUpgrade := .F. \n\nDEFINE DIALOG oDlg RESOURCE \"odlg\" \n\n@ 2, 2 BUTTON \"Upgrade\" OF oDlg SIZE 80, 20 ; \nACTION ( lUpgrade := .T., oDlg:End() ) \n\nACTIVATE DIALOG oDlg \n\nif lUpgrade \nhLib = LOADLIBRARY( \"urlmon.dll\") \nURLDownloadToFile( 0, \"www.my.com/down/my.exe\", \".\\tmp\\my.exe\", 0, 0 ) == 0 \nFREELIBRARY( hLib ) \nWinExec( \"copyfile.exe\" ) \nendif \n\nreturn nil \n\nDLL32 FUNCTION URLDownloadToFile(pCaller AS LONG,szURL AS STRING, szFileName AS STRING, dwReserved AS LONG, lpfnCB AS LONG); \nAS LONG PASCAL; \nFROM \"URLDownloadToFileA\"; \nLIB hlib \n\n\n\ncopyfile.prg \n\n#include \"fivewin.ch\" \nFUNCTION main(cpath) \nlocal afiles \nmsgwait(\"&#27491;&#22312;&#26356;&#26032;&#25991;&#20214;\",\"\",2) \n\n\nafiles:=directory(\".\\tmp\\*.*\") \n\nfor i:=1 to len(afiles) \ncopyfile( \"\\\"+CURDIR()+\"\\tmp\\\"+afiles[i,1] ,afiles[i,1] ,.f.) \nnext \n\nwinexec(\"my.exe\") \n\nreturn \n\n\nThank you! \nShuming Wang','',0,'','oyz77rc0',1,0,'',239,0,0),(31248,6901,7,57,0,'83.53.52.25',1178353394,1,0,1,1,1,1,'','','Antonio\nSigue sin funcionar, pero he detectado el motivo por el cual se lanzan los VALID.\n\nEstoy utilizando Menus tipo botones para lanzar el END() del dialog y es justo la perdida del foco el que hace lanzar el VALID. Esto se solucionaría sin pudiera poner la clausula CANCEL a este tipo de Menu.\n\nSaludos','',0,'','18y95k2h',1,0,'',57,0,0),(31249,6907,20,29,0,'88.149.161.70',1178353881,1,0,1,1,1,0,'','About xBrowse','Salve,\nsto facendo alcune prove con xBrowse e mi sembra decisamente valido,\nho però il problema che avendo un array tipo:\n\naArray:=array(0,3)\n\naadd(aArray,{\"01,\"Pippo\",\"03\"})\naadd(aArray,{\"02\",\"Pluto\",04\"})\n\nanche se richiedo la visualizzazione dei soli primi 2 elementi, mi viene riportato anche il terzo. Come faccio a dirgli di riportare solo i primi 2 elementi senza quelli successivi ?\n\nMarco','',0,'','39gwaakn',1,0,'',29,0,0),(31250,6814,3,2,0,'87.218.146.27',1178353955,1,0,1,1,1,1,'','','[code:1j6yu5ze]\n2007-05-05 10&#58;28 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * Improved formatting and xharbour compatibility\n[/code:1j6yu5ze]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','1j6yu5ze',1,0,'',2,0,0),(31251,6815,6,2,0,'87.218.146.27',1178354022,1,0,1,1,1,1,'','','[code:25nlicb2]\n2007-05-05 10&#58;28 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * Improved formatting and xharbour compatibility\n[/code:25nlicb2]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','25nlicb2',1,0,'',2,0,0),(31252,6848,3,2,0,'87.218.146.27',1178354286,1,0,1,1,1,1,'','','Shuming,\n\nIn downloadfiles.exe do this:\n[code:1o3w9ben]\nwhile GetModuleHandle&#40; &quot;my&#46;exe&quot; &#41; != 0\n   SysRefresh&#40;&#41;\nend\n[/code:1o3w9ben]\nSo it will wait until my.exe finishes','',0,'AIA=','1o3w9ben',1,0,'',2,0,0),(31253,6901,7,2,0,'87.218.146.27',1178354592,1,0,1,1,1,1,'','','Toni,\n\nEl problema es que un menuitem no es un control de la caja de diálogo luego no podemos usar CANCEL con él. \n\nPrueba a quitarle el VALID al control desde el WHEN del menuitem:\nWHEN ( oControl:bValid := nil, .T. )','',0,'AIA=','2pg2yfh0',1,0,'',2,0,0),(31254,6901,7,57,0,'83.53.52.25',1178359140,1,0,1,1,1,1,'','','Antonio\nFunciona pero sigue con otro error. Lo he solucionado justo antes del End() del dialog, un End() de cada control incluido en aControls. \n\nSaludos','',0,'AIA=','2aabzdeg',1,0,'',57,0,0),(31256,6908,20,29,0,'88.149.161.70',1178367302,1,0,1,1,1,0,'','Sempre a proposito di splitter','non riesco ad accorciare le dimensioni di un folder, \nin pratica indipendentemente da quanto indicato con Move, il folder mi arriva fino al bordo inferiore della window.\n\nEcco un self-contained sample che mostra il problema :\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/testsplit.zip\">www.softwarexp.co.uk/beta/testsplit.zip</a><!-- w -->\n\ne un\'immagine dalla quale si vede che il folder mi arriva a fine window quando dovrebbe essere della lunghezza del browse di sinistra.\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/split.png\">www.softwarexp.co.uk/beta/split.png</a><!-- w -->\n\nQualche idea ?\n\nGrazie\n\nMarco','',0,'gA==','kuzi3vhg',1,0,'',29,0,0),(31261,6900,3,2,0,'87.218.146.27',1178384715,1,0,1,1,1,1,'','','In the main MDI window frame or in the MDI childs ?','',0,'gA==','3oeigqo6',1,0,'',2,0,0),(31262,6900,3,267,0,'200.208.238.2',1178388348,1,0,1,1,1,1,'','','Hi Antonio,\n\nIn the main MDI window frame.','',0,'gA==','1n46omuy',1,0,'',267,0,0),(31263,6815,6,798,0,'201.27.42.3',1178389941,1,0,1,1,1,0,'','','Antonio,\n\nNa transferencia de dados havera algum limite tipo LIMIT 0, 1000 quando for via Web ou não.\n\nPara que não traga todo o conteúdo do arquivo e venha deixar lerdo a transmissão de dados.\n\nDaniel Segura\n<!-- e --><a href=\"mailto:ciacpd@terra.com.br\">ciacpd@terra.com.br</a><!-- e -->','',0,'gA==','plwfw7t3',1,0,'',798,0,0),(31264,6815,6,2,0,'87.218.146.27',1178393144,1,0,1,1,1,1,'','','Daniel,\n\nModifica en ADORDD, en la creación del recordset, este valor:\n\noAdo:CacheSize = 50','',0,'gA==','kthjexap',1,0,'',2,0,0),(31265,6905,6,376,0,'201.230.28.240',1178394264,1,0,1,1,1,1,'','','Arturo\n\nNo he tenido ocasión de utilizar tu aporte... pero no es malo tenerlo como seguro cuando lo necesite. Si tiene a bien podrías transmitirlo a mi correo:\n\n<!-- e --><a href=\"mailto:apic1002002@yahoo.es\">apic1002002@yahoo.es</a><!-- e -->\n\nGracias adelantadas por la molestia.\n\nArmando Picón','',0,'gA==','2fx54h4l',1,0,'',376,0,0),(31266,6894,6,376,0,'201.230.28.240',1178394326,1,0,1,1,1,1,'','Re: Con WinRar si se puede','Si en algo se puede colaborar...\n\n[quote=&quot;jhugono&quot;:3vhp7zxx]Buenas Noches\n\nArmando Picon\n\nSaludos y Gracias ...[/quote:3vhp7zxx]','',0,'gA==','3vhp7zxx',1,0,'',376,0,0),(31267,6882,3,154,0,'151.81.3.65',1178396179,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1avw6ekv]You may use the Class TComboBox from the previous FWH build.[/quote:1avw6ekv]\n\nAntonio,\nI have insert any modification for incremental or previous use.\nIf insert the new clause INCREMENTAL the incremental search is active\nwithout new clause the Combobox search is the previous version.\n\nModify this:\n\nin fivewin.ch:\n[code:1avw6ekv]#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; COMBOBOX &#91; &lt;oCbx&gt; VAR &#93; &lt;cVar&gt; ;\n             &#91; &lt;it&#58; PROMPTS, ITEMS&gt; &lt;aItems&gt; &#93; ;\n             &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ;\n             &#91; &lt;dlg&#58;OF,WINDOW,DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n             &#91; ON CHANGE &lt;uChange&gt; &#93; ;\n             &#91; VALID &lt;uValid&gt; &#93; ;\n             &#91; &lt;color&#58; COLOR,COLORS&gt; &lt;nClrText&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; &lt;pixel&#58; PIXEL&gt; &#93; ;\n             &#91; FONT &lt;oFont&gt; &#93; ;\n             &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; &lt;design&#58; DESIGN&gt; &#93; ;\n             &#91; BITMAPS &lt;acBitmaps&gt; &#93; ;\n             &#91; ON DRAWITEM &lt;uBmpSelect&gt; &#93; ;\n             &#91; STYLE &lt;nStyle&gt; &#93; ;\n             &#91; &lt;pict&#58; PICT, PICTURE&gt; &lt;cPicture&gt; &#93;;\n             &#91; ON EDIT CHANGE &lt;uEChange&gt; &#93; ;\n             &#91; &lt;search&#58; INCREMENTAL, SEARCH, INCR_SEARCH&gt; &#93; ;\n       =&gt; ;\n          &#91; &lt;oCbx&gt; &#58;= &#93; TComboBox&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, bSETGET&#40;&lt;cVar&gt;&#41;,;\n             &lt;aItems&gt;, &lt;nWidth&gt;, &lt;nHeight&gt;, &lt;oWnd&gt;, &lt;nHelpId&gt;,;\n             &#91;&#123;|Self|&lt;uChange&gt;&#125;&#93;, &lt;&#123;uValid&#125;&gt;, &lt;nClrText&gt;, &lt;nClrBack&gt;,;\n             &lt;&#46;pixel&#46;&gt;, &lt;oFont&gt;, &lt;cMsg&gt;, &lt;&#46;update&#46;&gt;, &lt;&#123;uWhen&#125;&gt;,;\n             &lt;&#46;design&#46;&gt;, &lt;acBitmaps&gt;, &#91;&#123;|nItem|&lt;uBmpSelect&gt;&#125;&#93;, &lt;nStyle&gt;,;\n             &lt;cPicture&gt;, &#91;&lt;&#123;uEChange&#125;&gt;&#93;, &#91;&lt;&#46;search&#46;&gt;&#93; &#41;\n\n#xcommand REDEFINE COMBOBOX &#91; &lt;oCbx&gt; VAR &#93; &lt;cVar&gt; ;\n             &#91; &lt;items&#58; PROMPTS, ITEMS&gt; &lt;aItems&gt; &#93; ;\n             &#91; ID &lt;nId&gt; &#93; ;\n             &#91; &lt;dlg&#58;OF,WINDOW,DIALOG&gt; &lt;oWnd&gt; &#93; ;\n             &#91; &lt;help&#58;HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n             &#91; ON CHANGE &lt;uChange&gt; &#93; ;\n             &#91; VALID   &lt;uValid&gt; &#93; ;\n             &#91; &lt;color&#58; COLOR,COLORS&gt; &lt;nClrText&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; &lt;update&#58; UPDATE&gt; &#93; ;\n             &#91; MESSAGE &lt;cMsg&gt; &#93; ;\n             &#91; WHEN &lt;uWhen&gt; &#93; ;\n             &#91; BITMAPS &lt;acBitmaps&gt; &#93; ;\n             &#91; ON DRAWITEM &lt;uBmpSelect&gt; &#93; ;\n             &#91; STYLE &lt;nStyle&gt; &#93; ;\n             &#91; &lt;pict&#58; PICT, PICTURE&gt; &lt;cPicture&gt; &#93;;\n             &#91; ON EDIT CHANGE &lt;uEChange&gt; &#93; ;\n             &#91; &lt;search&#58; INCREMENTAL, SEARCH, INCR_SEARCH&gt; &#93; ;\n       =&gt; ;\n          &#91; &lt;oCbx&gt; &#58;= &#93; TComboBox&#40;&#41;&#58;ReDefine&#40; &lt;nId&gt;, bSETGET&#40;&lt;cVar&gt;&#41;,;\n             &lt;aItems&gt;, &lt;oWnd&gt;, &lt;nHelpId&gt;, &lt;&#123;uValid&#125;&gt;, &#91;&#123;|Self|&lt;uChange&gt;&#125;&#93;,;\n             &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;cMsg&gt;, &lt;&#46;update&#46;&gt;, &lt;&#123;uWhen&#125;&gt;,;\n             &lt;acBitmaps&gt;, &#91;&#123;|nItem|&lt;uBmpSelect&gt;&#125;&#93;, &lt;nStyle&gt;, &lt;cPicture&gt;,;\n             &#91;&lt;&#123;uEChange&#125;&gt;&#93;, &#91;&lt;&#46;search&#46;&gt;&#93; &#41;\n[/code:1avw6ekv]\n\nin Combobox.prg\n[code:1avw6ekv]// at the top\n#define MY_INCREMENTAL_SEARCH &#46;F&#46;\n\n&#46;&#46;&#46;\n\nCLASS TComboBox FROM TControl\n   &#46;&#46;&#46;\n   DATA   lIncrSearch\n\n&#46;&#46;&#46;\nMETHOD New&#40; nRow, nCol, bSetGet, aItems, nWidth, nHeight, oWnd, nHelpId,;\n            bChange, bValid, nClrFore, nClrBack, lPixel, oFont,;\n            cMsg, lUpdate, bWhen, lDesign, acBitmaps, bDrawItem, nStyle,;\n            cPict, bEChange, lIncSearch &#41; CLASS TComboBox\n&#46;&#46;&#46;\n   DEFAULT &#46;&#46;&#46;,;\n           lIncSearch &#58;= MY_INCREMENTAL_SEARCH\n&#46;&#46;&#46;\n   &#58;&#58;lIncrSearch &#58;= lIncSearch\n&#46;&#46;&#46;\n\n\nMETHOD ReDefine&#40; nId, bSetGet, aItems, oWnd, nHelpId, bValid, ;\n                 bChange, nClrFore, nClrBack, cMsg, lUpdate, ;\n                 bWhen, acBitmaps, bDrawItem, nStyle, cPict, ;\n                 bEChange, lIncSearch &#41; CLASS TComboBox\n&#46;&#46;&#46;\n   DEFAULT &#46;&#46;&#46;,;\n           lIncSearch &#58;= MY_INCREMENTAL_SEARCH\n&#46;&#46;&#46;\n   &#58;&#58;lIncrSearch &#58;= lIncSearch\n&#46;&#46;&#46;\n\n\n\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TComboBox\n\n&#46;&#46;&#46;\n\n   IF &#58;&#58;lIncrSearch\n      // Incremental search\n\n      // Actual code 70x version\n\n   else\n      // previous method\n      Return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n   endif\n\n   Return Nil[/code:1avw6ekv]\n\nif you want i send to your private mail the source.','',0,'gIA=','1avw6ekv',1,0,'',154,0,0),(31268,6910,6,785,0,'190.64.218.156',1178397667,1,0,1,1,1,0,'','Folder + SetKey()','Amigos:\n\nTen un folder de 7 pestañas y unas teclas que muestran un menu.\n\nEsas teclas deben habilitarse segun la pestaña que este activa.\n\nSetKey(VK_F5, {|nKey|  ShowMenu(0,0 )  })\n\nSolo quiero que esta funcion este accesible cuando la pestaña 2\neste activa.\n\nAlguna idea.\n\nSaludos y gracias\n\nRuben Fernandez','',0,'gIA=','35sgi6se',1,0,'',785,0,0),(31269,6910,6,496,0,'200.107.36.176',1178400770,1,0,1,1,1,0,'','','Puedes usar  oFolde:nOption, que contiene la pestaña activa.\n\nYo lo uso así:\n\nDesde un botón que está fuera del folder, al hacer click mando a ejecutar una acción dependiendo de la pestaña activa.\n\n@n,n button ........ Action (pest:=oFolde:nOption,if(pest==1,accion1(), if(pest==2,accion2(),accion3())))\n\nEspero te sirva\n\nSaludos\n\nMarcelo Jingo','',0,'gIA=','2hey80h2',1,0,'',496,0,0),(31270,6910,6,785,0,'190.64.193.225',1178401345,1,0,1,1,1,0,'','','Gracias Marcelo:\n\nLo solucione de la siguiente forma:\n\nEn el On Change del folder funcion ActivaTeclas()\n\nFunc ActivaTeclas()\nIf oFolder:nOption = 1 \n   Activo F5 o lo que sea y desactivbo las otras.\nelseif oFolder:nOption =2 \n      Activo F6 y desactivo las otras\nEndif\n\nGracias y saludos\n\nRuben Fernandez.','',0,'gIA=','1h5lskh0',1,0,'',785,0,0),(31271,6911,19,73,0,'201.132.249.87',1178404464,1,0,1,1,1,0,'','Info sobre ADO','aqui dejo varios link con algo de informacion sobre ADO para los que empiezan como yo y desconocemos muchos terminos que aqui nuestros colegas usan, espero les sean de utilidad.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.aspfacil.com/articulos/040401.asp\">http://www.aspfacil.com/articulos/040401.asp</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.sqlmax.com/centro/moduloV_4.asp?MX=\">http://www.sqlmax.com/centro/moduloV_4.asp?MX=</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/prop_cursorlocation.asp\">http://www.w3schools.com/ado/prop_cursorlocation.asp</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.activeserverpages.ru/ADO/\">http://www.activeserverpages.ru/ADO/</a><!-- m -->\n\nsalu2\nPaco','',0,'gIA=','1vc67rnh',1,0,'',73,0,0),(31272,6912,6,644,0,'201.253.113.82',1178405713,1,0,1,1,1,0,'','Off Topic','Accidentalmente he formateado un rígido. Tengo información que quiero recuperar. Alguien conoce alguna aplicación freeware de recuperación de datos. Muchas gracias por todo de antemano.','',0,'gIA=','1af1sjfs',1,0,'',644,0,0),(31273,6814,3,882,0,'200.158.227.247',1178411529,1,0,1,1,1,1,'','Erro AdoRdd','Que error puede ser ese.\n\nrror: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from T:\\FWH_28\\XHARBOUR\\LIB\\ADORDD.LIB|adordd','',0,'gIA=','3tp8kv3o',1,0,'',882,0,0),(31274,6912,6,496,0,'200.107.36.176',1178413402,1,0,1,1,1,0,'','','Prueba \"Drive Rescue 1.9d\" que lo puedes encontrar en Internet buscándolo con la ayuda de google. \n\nOjalá tengas suerte.\n\n\nUn saludo\n\nMarcelo Jingo','',0,'gIA=','1baw6lyy',1,0,'',496,0,0),(31275,6848,3,239,0,'218.20.63.36',1178415741,1,0,1,1,1,0,'','','Antonio,\n\n  Sometime works, sometimes fail .\n\nThank you!\n\nShuming Wang','',0,'gIA=','25vtf47z',1,0,'',239,0,0),(31276,6882,3,303,0,'72.199.41.171',1178419399,1,0,1,1,1,0,'','','Marco,\n\nAntonio \nFabio \nAndrea \nMarco \nAlfonso \n.. \n.. \nAlexandro \n\nI don\'t think this is a very good design. Potentially, the user could have to type a lot more keystrokes to find what they are looking for. What if there are 50 items beginning with A. They might have to type A, 50 times. However, you can usually find what you want with an incremenal search with 3 or 4 keystrokes even in large lists.\n\nMost users are also going to expect lists to be sorted. Is there a reason you can\'t use a sorted list?\n\nJames','',0,'gIA=','3m5f7z5z',1,0,'',303,0,0),(31277,6913,6,73,0,'201.132.249.87',1178420375,1,0,1,1,1,0,'','Busqueda registro en .mdb','Tengo una base de datos de access, con una tabla, dentro de la tabla tengo un campo RFC de texto, pero no es llave; tengo un get en un dialogo donde capuro el rfc y ese lo tengo que buscar en la tabla para luego traer los datos a un arreglo, como le hago para hacer la busqueda?\nutilizo ADO para hacer la conexion.\nsalu2\npaco','',0,'gIA=','3r6b5u4c',1,0,'',73,0,0),(31278,6825,3,1036,0,'207.112.69.119',1178424094,1,0,1,1,1,0,'','','Hello Patrick, Hello Sid,\n\nI can be reached at <!-- e --><a href=\"mailto:rspilon@hotmail.com\">rspilon@hotmail.com</a><!-- e --> <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nRegards,\n\nRene.','',0,'gIA=','33296xh0',1,0,'',1036,0,0),(31279,6911,19,439,0,'200.125.42.111',1178424676,1,0,1,1,1,1,'','','Gracias Francisco\n\nMuy buen aporte, y creo para nada fuera de tema','',0,'gIA=','1bmb1aq4',1,0,'',439,0,0),(31280,6913,6,54,0,'189.132.102.101',1178425243,1,0,1,1,1,1,'','Re: Busqueda registro en .mdb','[quote=&quot;Francisco Horta&quot;:uxuahr74]Tengo una base de datos de access, con una tabla, dentro de la tabla tengo un campo RFC de texto, pero no es llave; tengo un get en un dialogo donde capuro el rfc y ese lo tengo que buscar en la tabla para luego traer los datos a un arreglo, como le hago para hacer la busqueda?\nutilizo ADO para hacer la conexion.\nsalu2\npaco[/quote:uxuahr74]\n\nfácil.\n\ndeja te hago un sample y te lo hago llegar por correo\n\nsaludos','',0,'gA==','uxuahr74',1,0,'',54,0,0),(31281,6913,6,496,0,'200.107.36.176',1178425454,1,0,1,1,1,0,'','','Hola Francisco\n\nSe puede hacer con una consulta SQL:\ncRFC:=\"CapturadodesdeelGet\"\ncQuery:=\"Select * from tabla where RFC=\'\"+cRFC+\"\'\"\n\nLuego de realizar la conexión y crear el objeto recordset, lo abrimos:\n\noRs:Open( cQuery , cConnection, adOpenKeyset, adLockOptimistic ) \n\neste devuelve un arreglo con los registros que encontró en la consulta, y los puedes pasar a un array:\n\noRs:MoveFirst() // equivale a GO TOP \nadatos:={} //Arreglo en el que se recuperan los datos\nWHILE !oRs:Eof()\n   aReg := {\"\"}\n   for nPos := 0 to oRs:Fields:Count() -1\n	AAdd(aReg,oRs:Fields(nPos):Value)\n   next\n   AAdd(aDatos,aReg)\n   oRs:MoveNext()\nEND\n\n\nEspero que sea lo que necesitas.\n\nEsto me funciona en MySQL, supongo que debe funcionar en acces.\n\n\nUn saludo\n\nMarcelo Jingo','',0,'gA==','3nk7gcz4',1,0,'',496,0,0),(31282,6914,6,307,0,'201.130.133.80',1178427043,1,0,1,1,1,0,'','Para Rene Flores','Rene , te he mandado correos pero no tengo respuesta tuya..\nte comento en el correo que andare en mexico apartir del 17 de junio y necesito unos cursos, estaras disponible para esa fecha?\n\nSaludos.\nArnulfo','',0,'gA==','2se65u03',1,0,'',307,0,0),(31284,6858,3,303,0,'72.199.41.171',1178439063,1,0,1,1,1,0,'','','Try,\n\ncTo:=\"ollie@theoasis.co.za, <!-- e --><a href=\"mailto:support@theoasis.co.za\">support@theoasis.co.za</a><!-- e -->\"','',0,'gA==','31ecj4eu',1,0,'',303,0,0),(31285,6915,6,171,0,'71.233.232.238',1178466018,1,0,1,1,1,0,'','Representacion Visual de nodos interconectados','Hola,\n\nAlguien sabe si tenemos (o existe) alguna Clase, LIB, DLL o ActiveX que podamos usar para la representacion visual de nodos (graficos) nterconectados.\n\nMe explico: Tengo una serie de transacciones que quiero conectar, por ejemplo un remitemte enviando multiples transacciones monetarias a diferentes beneficiarios.  Me gustaria crea una pantalla donde se dibuje el (o los) remitentes y los beneficiarios y conectar las figuras mediantes lineas.\n\nLe agradezco cualquier sugerencia.\n\nSaludos,\n\n\nGeorge','',0,'gA==','138o8v48',1,0,'',171,0,0),(31286,6916,6,935,0,'200.62.120.33',1178481000,1,0,1,1,1,0,'','Soliictud de ayuda con un browse y ado','Saludes a Todos en el Foro,\n\nEstoy intentando incursionar con ado ( creo que es mejor que usar odbc ) pero no hay forma que pueda hacer un browse con los datos de la tabla, alguien me puede orientar que estoy haciendo mal ?\n\nel codigo de conexion es el siguiente :\n\nPublic oDlg,oBrw\n\nPublic oCon2 := TOLEAUTO():New(\"adodb.connection\")\nPublic oRecordSet\nPublic oCommand := TOleAuto():New(\"adodb.command\")\noCon2:Open(\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1 ; DATABASE=Personal1; UID=root; PWD=1234\")\noRecordSet := TOleAuto():New(\"adodb.recordset\")\noRecordSet:ActiveConnection(oCon2)\noRecordSet:Source := \"SELECT * FROM MAESTRO\"\noRecordSet:LockType := adLockOptimistic\noRecordSet:CursorType := adOpenKeyset\noRecordSet:Open()\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS oRecordSet:Fields(0):Value ,;\n                           oRecordSet:Fields(1):Value ,;\n                           oRecordSet:Fields(2):Value ,;\n                           oRecordSet:Fields(3):Value ,;\n                           oRecordSet:Fields(4):Value ;\n          HEADERS    \"Codigo\",\"Nombre \",\"Salario\",\"Nombre \",\"Salario\";\n          FIELDSIZES 60,200,60,200,60 ;\n          SIZE 284, 137 OF oDlg\n\n   @154,08  BTNBMP LEFT PROMPT \" Agregar\"    SIZE 50,19 OF oDlg FILENAME \"NEW1.BMP\"       ACTION oDlg:End()\n   @154,67  BTNBMP LEFT PROMPT \" Modificar\"  SIZE 50,19 OF oDlg FILENAME \"CARDF00C.BMP\"   ACTION oDlg:End()\n   @154,125 BTNBMP LEFT PROMPT \" Borrar\"     SIZE 50,19 OF oDlg FILENAME \"BORRAR1.BMP\"    //ACTION BorraU(oLbx )\n   @154,184 BTNBMP LEFT PROMPT \" Buscar\"     SIZE 50,19 OF oDlg FILENAME \"FIND.BMP\"       //ACTION BuscaU(oLbx,3,\"Color\")\n   @154,242 BTNBMP LEFT PROMPT \" Salir\"      SIZE 50,19 OF oDlg FILENAME \"SALIR3.BMP\"     ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n   oRecordSet:close()\n\nRETURN NIL\n\nAgradezco todo tipo de colaboracion de los expertos del foro, saludes desde Nicaragua','',0,'gA==','1v3vt2aq',1,0,'',935,0,0),(31287,6916,6,54,0,'189.132.102.101',1178483554,1,0,1,1,1,1,'','Re: Soliictud de ayuda con un browse y ado','Ramón,\n\nmira este ejemplo, creo que puede servirte.\n\n[code:3v0obzr0]Public oDlg,oBrw\n\nUSE &quot;Personal1&quot; VIA &quot;ADORDD&quot; TABLE &quot;MAESTRO&quot; MYSQL ;\n       FROM &quot;localhost&quot; USER &quot;root&quot; PASSWORD &quot;1234&quot;\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS maestro-&gt;codigo, ;\n                                           maestro-&gt;nombre, ;\n                                           maestro-&gt;salario ;\n          HEADERS    &quot;Codigo&quot;,&quot;Nombre &quot;,&quot;Salario&quot; ;\n          FIELDSIZES 60,200,60 ;\n          SIZE 284, 137 OF oDlg\n\n   @154,08  BTNBMP LEFT PROMPT &quot; Agregar&quot;    SIZE 50,19 OF oDlg FILENAME &quot;NEW1&#46;BMP&quot;       ACTION oDlg&#58;End&#40;&#41;\n   @154,67  BTNBMP LEFT PROMPT &quot; Modificar&quot;  SIZE 50,19 OF oDlg FILENAME &quot;CARDF00C&#46;BMP&quot;   ACTION oDlg&#58;End&#40;&#41;\n   @154,125 BTNBMP LEFT PROMPT &quot; Borrar&quot;     SIZE 50,19 OF oDlg FILENAME &quot;BORRAR1&#46;BMP&quot;    //ACTION BorraU&#40;oLbx &#41;\n   @154,184 BTNBMP LEFT PROMPT &quot; Buscar&quot;     SIZE 50,19 OF oDlg FILENAME &quot;FIND&#46;BMP&quot;       //ACTION BuscaU&#40;oLbx,3,&quot;Color&quot;&#41;\n   @154,242 BTNBMP LEFT PROMPT &quot; Salir&quot;      SIZE 50,19 OF oDlg FILENAME &quot;SALIR3&#46;BMP&quot;     ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n CLOSE DATABASES\n\nRETURN NIL\n[/code:3v0obzr0]\n\nsaludos, espero te de una idea','',0,'AIA=','3v0obzr0',1,0,'',54,0,0),(31288,6916,6,179,0,'200.63.213.2',1178483760,1,0,1,1,1,1,'','','William\naprovechando la ocacion prdrias postear el script de compilacion que usas para compilar AdoRdd para xHabrour,org ??\n\nGracias','',0,'AIA=','1409wcka',1,0,'',179,0,0),(31289,6814,3,2,0,'87.218.146.27',1178484369,1,0,1,1,1,1,'','','You have to build the ADORDD.lib using your Harbour/xHarbour build','',0,'AIA=','129shv6i',1,0,'',2,0,0),(31290,6814,3,2,0,'87.218.146.27',1178484477,1,0,1,1,1,1,'','','[code:3aofnbho]\n2007-05-06 11&#58;42 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;ch\n     * New define added\n     \n   * contrib/adordd/adordd&#46;prg\n     * SET RELATION implementation\n[/code:3aofnbho]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','3aofnbho',1,0,'',2,0,0),(31291,6815,6,2,0,'87.218.146.27',1178484502,1,0,1,1,1,1,'','','[code:17i2439c]\n2007-05-06 11&#58;42 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;ch\n     * New define added\n     \n   * contrib/adordd/adordd&#46;prg\n     * SET RELATION implementation\n[/code:17i2439c]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','17i2439c',1,0,'',2,0,0),(31292,6485,6,95,0,'189.155.98.162',1178487925,1,0,1,1,1,0,'','','Estimado Antonio\n\nAlgun ejemplo para usar los archivos .NIB de Interface builder. ?\n\nSaludos y gracias.\nOsvaldo Ramirez','',0,'AIA=','1bpjt80d',1,0,'',95,0,0),(31293,6485,6,2,0,'87.218.146.27',1178488546,1,0,1,1,1,1,'','','Osvaldo,\n\nAun no lo tenemos implementado. Confiamos en poder ofrecerlo cuanto antes.','',0,'AIA=','13iavuca',1,0,'',2,0,0),(31294,6485,6,95,0,'189.155.98.162',1178489150,1,0,1,1,1,0,'','','Estimado Antonio,\n\nQue nuevas tenemos para este mes ?\n\nSaludos\nOsvaldo Ramirez','',0,'AIA=','2u7nifnf',1,0,'',95,0,0),(31295,6485,6,2,0,'87.218.146.27',1178489498,1,0,1,1,1,1,'','','Osvaldo,\n\nNormalmente publicamos un nuevo build cada mediado de mes con todas las novedades. \n\nDe todas formas, estos dias estamos enfocados en el ADORDD para que esté completado cuanto antes, ya que como se ve en los foros hay muchos usuarios que necesitan usar ADO','',0,'AIA=','gsifdqfc',1,0,'',2,0,0),(31296,6814,3,882,0,'201.0.124.91',1178490897,1,0,1,1,1,1,'','AdoRdd','Sou novo e estou apanhando um bocado.\n\nError: Unresolved external \'_hb_itemMove\' referenced from T:\\FWH_28\\XHARBOUR\\LIB\\USRRDD.LIB|usrrdd','',0,'AIA=','3l9bsq09',1,0,'',882,0,0),(31297,6814,3,2,0,'87.218.146.27',1178492188,1,0,1,1,1,1,'','','use this usrrdd.lib with xHarbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/29886887/usrrdd.lib.html\">http://rapidshare.com/files/29886887/usrrdd.lib.html</a><!-- m -->','',0,'AIA=','2459vmzg',1,0,'',2,0,0),(31298,6814,3,882,0,'201.0.124.91',1178497445,1,0,1,1,1,1,'','AdoRdd','Ok, com bancos .MDB.\n\nCom banco MySql:\nError description: Error ADODB.Connection/16389  E_FAIL: OPEN\n\nArgs: [   1] = C   DRIVER={MySQL ODBC 3.51 Driver};server=192.168.0.254;database=ARQPRO;uid=newuser;pwd=newsenha\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from:  =&gt; ADO_OPEN(221)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: teste.prg =&gt; MAIN(9)','',0,'','1ut75itr',1,0,'',882,0,0),(31299,6916,6,935,0,'200.62.120.253',1178507529,1,0,1,1,1,0,'','Browse con ado, nuevamente, pidiendo auxilio','william, \n\ngracias pero no anda de ningun modo al compilarlo desde FWH 7.01 + xharbour me presenta una serie de errores, no habra otra manera de solucionarlo, entiendo que esto de rddado esta en su fase beta, y yo necesito aplicarlo a sistemas ya funcionando que transfiero a 32 bits en mysql\n\nsaludes y nuevamente gracias','',0,'','3chqemcj',1,0,'',935,0,0),(31300,6917,6,935,0,'200.62.120.253',1178507906,1,0,1,1,1,0,'','Nuevamente auxilio de Browse con ado,','Saludes a todo el foro, puse un pedazo de codigo desde donde intento hacer un listbox con un recordset y no hay forma, William me contesto mi mensaje anterior con un ejemplo de RDDADO pero no me funciona y yo necesito toda la potencia porque estoy tratando de migrar a 32 bits sistemas que ya funcionan, les agradeceria toda su aportacion, el codigo es el siguiente :\n\nPublic oDlg,oBrw\n\nPublic oCon2 := TOLEAUTO():New(\"adodb.connection\")\nPublic oRecordSet\nPublic oCommand := TOleAuto():New(\"adodb.command\")\noCon2:Open(\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1 ; DATABASE=Personal1; UID=root; PWD=1234\")\noRecordSet := TOleAuto():New(\"adodb.recordset\")\noRecordSet:ActiveConnection(oCon2)\noRecordSet:Source := \"SELECT * FROM MAESTRO\"\noRecordSet:LockType := adLockOptimistic\noRecordSet:CursorType := adOpenKeyset\noRecordSet:Open()\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS oRecordSet:Fields(0):Value ,;\n                           oRecordSet:Fields(1):Value ,;\n                           oRecordSet:Fields(2):Value ,;\n                           oRecordSet:Fields(3):Value ,;\n                           oRecordSet:Fields(4):Value ;\n          HEADERS    \"Codigo\",\"Nombre \",\"Salario\",\"Nombre \",\"Salario\";\n          FIELDSIZES 60,200,60,200,60 ;\n          SIZE 284, 137 OF oDlg\n\n   @154,08  BTNBMP LEFT PROMPT \" Agregar\"    SIZE 50,19 OF oDlg FILENAME \"NEW1.BMP\"       ACTION oDlg:End()\n   @154,67  BTNBMP LEFT PROMPT \" Modificar\"  SIZE 50,19 OF oDlg FILENAME \"CARDF00C.BMP\"   ACTION oDlg:End()\n   @154,125 BTNBMP LEFT PROMPT \" Borrar\"     SIZE 50,19 OF oDlg FILENAME \"BORRAR1.BMP\"    //ACTION BorraU(oLbx )\n   @154,184 BTNBMP LEFT PROMPT \" Buscar\"     SIZE 50,19 OF oDlg FILENAME \"FIND.BMP\"       //ACTION BuscaU(oLbx,3,\"Color\")\n   @154,242 BTNBMP LEFT PROMPT \" Salir\"      SIZE 50,19 OF oDlg FILENAME \"SALIR3.BMP\"     ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n   oRecordSet:close()\n\nRETURN NIL\n\nestoy trabajando con FWH 7.01 + xharbour + bcc++\n\nLe estare agradecido cualquier aporte que me saque de este atolladero,\n\n\nDesde Nicaragua\nRamon Paredes','',0,'','20xjm10u',1,0,'',935,0,0),(31301,6917,6,2,0,'87.218.146.27',1178520561,1,0,1,1,1,1,'','','Ramón,\n\nUsa el ADORDD e índicanos que es lo que no te funciona ó te da error.\n\nEl ADORDD te ahorra mucho trabajo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2vqowhed',1,0,'',2,0,0),(31302,6916,6,2,0,'87.218.146.27',1178520640,1,0,1,1,1,1,'','','Ramón,\n\nQue errores te presenta ?','',0,'','3m0j1rlp',1,0,'',2,0,0),(31303,6918,6,838,0,'80.34.222.112',1178520981,1,0,1,1,1,0,'','envio de correo a varios destinatarios','Hola amigos\nComo ya expliqué en mi post anterior, voy a probar a enviar las facturas del mes (en formato pdf) en lugar de blat, como lo venía haciendo hasta ahora, mediante tsmtp modificada por Luis Krause, y tengo una pequeña duda\nSi quiero enviar a 200 clientes el mismo correo, pero con el adjunto distinto (a cada uno su factura), tengo que cargar todo el proceso para cada uno, o si cargo en un array direcciones y en otro array facturas, antes de utilizar la función sendmatil() me enviaría a cada elemento del array \"direcciones\" su correspondiente elemento \"facturas\"?\n\nSaludos\n\nJose Luis','',0,'','1xlph9a0',1,0,'',838,0,0),(31304,6814,3,2,0,'87.218.146.54',1178530825,1,0,1,1,1,1,'','','[code:1ahy6vv2]\n2007-05-07 11&#58;28 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * INDEX ON &#46;&#46;&#46; Implementation\n     * OrdListClear&#40;&#41; and OrdListAdd&#40;&#41; implementation\n\nINDEX ON &#46;&#46;&#46; its working though it does not support all possible clauses yet\n[/code:1ahy6vv2]\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','1ahy6vv2',1,0,'',2,0,0),(31305,6815,6,2,0,'87.218.146.54',1178531158,1,0,1,1,1,1,'','','[code:2rtf07hj]\n2007-05-07 11&#58;28 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * INDEX ON &#46;&#46;&#46; Implementation\n     * OrdListClear&#40;&#41; and OrdListAdd&#40;&#41; implementation\n\nINDEX ON &#46;&#46;&#46; está funcionando aunque no soporta todas las posibles claúsulas aún\n[/code:2rtf07hj]\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','2rtf07hj',1,0,'',2,0,0),(31306,6897,6,106,0,'85.34.123.173',1178532697,1,0,1,1,1,1,'','','Jose,\n\n\nEstuve buscando por un rato largo y encontrè esto:\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.dimastr.com/redemption/\">http://www.dimastr.com/redemption/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.contextmagic.com/express-clickyes/\">http://www.contextmagic.com/express-clickyes/</a><!-- m -->\n\n\n(yo no lo probé)\n\n\nSaludos','',0,'AIA=','3noyvtjy',1,0,'',106,0,0),(31307,6814,3,882,0,'201.0.124.32',1178535650,1,0,1,1,1,1,'','AdoRdd','Called from: =&gt; ADO_OPEN(221) \nFaz referencia - DRIVER={MySQL ODBC 3.51 Driver}','',0,'AIA=','2rniw235',1,0,'',882,0,0),(31308,6919,3,1025,0,'81.84.76.4',1178536154,1,0,1,1,1,0,'','Close DBF Table opened by Crystal Reports XI via ADS 8.1','Hi all,\n\nI am evaluating Crystal Reports XI working with FWH and ADS 8.1\n\nThings are working fine but something is missing...\n\nThis is how it works:\n\nI execute my app from client machine that creates a .dbf table with all the \ninformation that i need to put on the report previously created in Crystal \nReports XI. Then a connection to the ADS 8.1 is established via Crystal \nReports Driver 8.1. using a data dictionary.\n\nThis data dictionary created with Architect 8.1 have all the tables (.dbf´s) \nneeded by my app. In the next step ActiveXReportViewer opens and shows the \nreport with the information contained in the table.\n\nWith Architect opened I verified that a connection to ADS is established \nwith the correspondent dictionary (.add) and table (.dbf). Everything works \nfine until this moment.\n\nBut when I close the ActiveXReportViewer, this connection and the assotiated \ndbf file remains open by ADS. The only way I have managed to close this \nconnection was using Architect and manually closing the connection or wating \nabout 4 minutes later to ADS automatically close it by itself.\n\nI need to delete this temporary dbf to create another with the same name and \nrefreshed information from database.\n\nThe big question is this ... How can we force to close the data dictionary \nconnection and the correspondent tables from inside our app code after the \ninformation needed by crystal reports is not necessary anymore.\n\nThe ideal cenario would be closing the connection and tables when the app \nuser close the Cristal Reports Viewer. That way next user that runs the app \nwould have that dbf with refreshed information on it.\n\nAll the help in this issue is welcome and would be really apriciated.\n\nThis is my code app:\n\n#include \"Fivewin.ch\"\n\n\nFUNCTION MAIN()\n\n    LOCAL oCrystal := CREATEOBJECT( \"CrystalRuntime.Application\" )\n    LOCAL oReport  := oCrystal:OpenReport( \"mapa001.rpt\" )\n\n    LOCAL oWnd, oCRViewer\n\n    DEFINE WINDOW oWnd\n\n    oCRViewer = TActiveX():New( oWnd, \"CrystalReports115.ActiveXReportViewer.1\" )\n            \n      oCRViewer:SetProp( \"ReportSource\", oReport )\n    \n    oCRViewer:SetProp(\"DisplayGroupTree\",.F.)\n		\n		oCRViewer:SetProp(\"WindowTitle\",\"Listagem do Mestre de Bens\") \n		\n		*/oCRViewer:SetProp(\"DisplayToolbar\",.T.)\n		\n		oReport:HasSavedData()\n    oReport:DiscardSavedData()    \n    oCRViewer:Do( \"ViewReport\" )\n		\n    oWnd:oClient = oCRViewer\n    \n			   \n    ACTIVATE WINDOW oWnd;\n        MAXIMIZED\n       \n    RETURN NIL\n\nThanks and best regards,\n\nMário Paiva','',0,'AIA=','3jzhrv1l',1,0,'',1025,0,0),(31310,6903,6,649,0,'201.41.194.224',1178537378,1,0,1,1,1,1,'','','Acho que vc não entendeu isto acontece em bases sem ads.\nVoces tem que ver que eu nao uso ads em todos os clientes.\ne Isto acontece logo ao iniciar o meu sistema mesmo que tenha ou não o ads.\n\nIsso é uma vergonha a cada mudança de versão os cara mexe em tudo e fazem um monte de cagada.\nFaz quase um mes que tento fazer esta versão 2.8 com xh 0.99.71 e nada\nso continuo tentando por que é uma necessidade senão ja tinha desistido.','',0,'kA==','11a0vgm7',1,0,'',649,0,0),(31311,6886,6,1023,0,'201.92.183.60',1178538034,1,0,1,1,1,0,'','','Eu estava msm tentando fazer algo parecido, mais estava me confundindo na hora de rotornar o codeblock, vou tentar fazer dessa forma ai.\n\nMuito obrigado msm,flw.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'kA==','3hm92oga',1,0,'',1023,0,0),(31312,6897,6,838,0,'80.34.222.112',1178538134,1,0,1,1,1,0,'','','Muchas gracias, creo que por lo que veo, el clickYes me va a servir\n\nSaludos\n\nJose Luis','',0,'kA==','38f5reag',1,0,'',838,0,0),(31315,6886,6,1023,0,'201.92.183.60',1178541946,1,0,1,1,1,0,'','','Os gets foram montados, mais não da pra digitar nada neles.\nJá tentei mudar o conteudo deles mais não consegui.','',0,'EIA=','2tuzpe2l',1,0,'',1023,0,0),(31317,6921,6,105,0,'200.72.140.34',1178543067,1,0,1,1,1,1,'','SayBitmap en Report','Hola aTodos...\n\nComo se podra alinear un Bitmap en un REPORT, deseo que este a 1 cm del borde derecho\n-------------------------|\n       xxxxxxxxxxx     |\n       xxxxxxxxxxx     |\n                         1cm |\n\nTengo el tamaño del Bitmap, que eventualmente puede variar,\n\nAhora lo uso asi\noRpt:SayBitmap( .1, 6, \"logo.bmp\", 100, 30 ) \n\nCualquier ayuda sera bienvenida..\n\nGracias...','',0,'EIA=','1ph10ed0',1,0,'',105,0,0),(31318,6921,6,105,0,'200.72.140.34',1178543775,1,0,1,1,1,1,'','Solucionado...','YAA.\n\nLo encontre...\ncon la ayuda de orpt:PhyWidth() supe el ancho de la hoja y solo le reste el ancho del bitmap + 1 Cm para ponerlo donde deseaba.\n\nAlgo asi como \norpt:SayBitmap(0.1, oRpt:PhyWidth() - 2.2, \"logo.bmp\", 2, 0.6)\n\nLas dimensiones del logo son 2 y 0.6, asi que le sume .2 a mi ancho y logre ponerlo donde queria...\n\nEso...\nGracias de todas formas por estar ahi..\n\nDesde Chile\nAdolfo','',0,'EIA=','pu9ium9u',1,0,'',105,0,0),(31319,6921,6,72,0,'189.136.210.184',1178544357,1,0,1,1,1,0,'','','Usa  oPrn:nHorzSize()  como referencia a la posición derecha.\n\nnRigth := oRpt:nHorzSize()\n\noRpt:SayBitmap( .1, nRight-nWidth_Bipmap, \"logo.bmp\", nWidth_Bipmap, 30 )','',0,'EIA=','3dh77oo0',1,0,'',72,0,0),(31320,6922,6,450,0,'200.245.0.24',1178546462,1,0,1,1,1,1,'','Alterar Resolução do Vídeo','Olá...\n\nExiste algum comando que permita alterar a Resolução do Vídeo em Run Time ?\n\nEX: \n\nFunction Main()\nLocal oWnd, aCoor:={}, Resolucao:=\"\"\n\naCoor := GetCoor(GetDesktopWindow())\nResolucao := aCoor[4]+\"x\"+aCoor[3]\n\nDo case\n   case Resolucao = \"1024x768\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1152x864\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1280x600\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1280x720\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1280x768\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1280x960\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1280x1024\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1400x1050\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1600x900\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1600x1200\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1856x1392\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1920x1080\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1920x1200\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"1920x1440\"\n          ** comando para mudar para 800 x 600\n    case resolucao = \"2048x1536\"\n          ** comando para mudar para 800 x 600\nendcase\n\n\nGrato\n\nSaludos.','',0,'','1rotkm97',1,0,'',450,0,0),(31321,6923,6,237,0,'200.68.70.90',1178547319,1,0,1,1,1,0,'','error con adordd y mysql','Al igual que otros me da este error y no logro hacer andar el ejemplo de MySql, Uso xHarbour y descargué la ultima version de viaopen y recompile la libreria. Tambien descargué el conector de: \n<!-- m --><a class=\"postlink\" href=\"http://dev.mysql.com/downloads/connector/odbc/3.51.html\">http://dev.mysql.com/downloads/connector/odbc/3.51.html</a><!-- m -->\n\nQue puede ser? simplemente el ejecutable se queda unos momentos como colgado y despues tira el error de apertura:\n\n      Descripción del error: Error ADODB.Recordset/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   SELECT * FROM ACCOUNTS\n     [   2] = C   DRIVER={MySQL ODBC 3.51 Driver}; SERVER=www.freesql.org;DATABASE=test00;UID=myuser;PWD=mypass\n     [   3] = N   1\n     [   4] = N   3\n\nPila de llamadas\n================\n   LLamada de TOLEAUTO:OPEN(0)\n   LLamada de ADO_OPEN(143)\n   LLamada de DBUSEAREA(0)\n\n\nAlguna idea?\n\nSaludos\nAlejandro Cebolido\nBuenos Aires, Argentina','',0,'','1kxz15bf',1,0,'',237,0,0),(31322,6913,6,73,0,'200.23.18.132',1178547661,1,0,1,1,1,0,'','','willy que buen detalle, lo espero\nmarcelo, es precisamente lo que buscaba\ngracias a ambos\nsalu2\npaco','',0,'','lqpvmz2z',1,0,'',73,0,0),(31323,6861,7,840,0,'201.243.12.220',1178548453,1,0,1,1,1,0,'','','antonio \n\n\ngracias por el ejemplo embiado, si funciona como indicaste. \n\n\nPERO CUANDO LO DIRIJO HACIA UNA RUTA FUERA DEL POCKET PC \n\nEJEMPLO \\\\PC\\C\\CUSTOMER TIENE EL MISMO PROBLEMA ANTERIOR \n\nSE QUEDA COLGADO NO HACE NADA. \n\nTAMBIEM LO EJECUTE CON EL .EXE EN ENTRO DIRECTORIO Y \nNO FUNCIONA. \n\nLA DBF Y EL INDEX ESTA EN OTRA COMPUTADORA EN RED \n\nEJEMPLO \\\\NOMBRE DEL PC\\RUTA\\CUSTOMER.DBF \nDE ESTA MANERA NO FUNCIONA. \n\nDE ESTA MANERA ES QUE NECESITO HACER EL PROGRAMA DE \nPEDIDOS VIA WHI-FI O EN RED \n\nSALUDOS. \nDARIO FERREIRA.','',0,'','euzazljx',1,0,'',840,0,0),(31324,6924,6,147,0,'200.45.54.134',1178549983,1,0,1,0,1,1,'','Ancho de columna con TFileXLS','Hola colegas\nA efectos de asignar el ancho de una columna, en la que por fila van textos de variado ancho determino el maximo de ellos mediante:\n\nnAnchoMax:= Max( nAnchoMax, GetTextWidth( 0, arr[1], oFont0:hFont ) )\n\neste proceso está dentro un array que se recorre mediante aEval().\nNo obstante el valor obtenido, evidentemente, no es el que utiliza TFileXLS, ya que al asignarse mediante el metodo ::ColumnWidth( n, nAnchoMax ) el ancho de la columna es muy superior al del texto mas ancho (obtenido con GetTextWidth() )\nAlguien me puede decir como podría calcular el valor de nAnchoMax a enviar a ::ColumnWidth() ?\n\nmuchas gracias','',0,'','hacz57ox',1,0,'',147,0,0),(31325,6914,6,138,0,'80.37.11.90',1178551109,1,0,1,1,1,1,'','Re: Para Rene Flores','[quote=&quot;Arvisnet&quot;:1iq74jvv]Rene , te he mandado correos pero no tengo respuesta tuya..\nte comento en el correo que andare en mexico apartir del 17 de junio y necesito unos cursos, estaras disponible para esa fecha?\n\nSaludos.\nArnulfo[/quote:1iq74jvv]\n\nContestado a tu privado','',0,'gA==','1iq74jvv',1,0,'',138,0,0),(31327,6923,6,237,0,'190.12.99.34',1178556162,1,0,1,1,1,0,'','error','Abri el puerto en el firewall de windows y corri el programa, el ejemplo\nhace:\n\n   while ! Eof()\n      ? test00-&gt;First, test00-&gt;City\n      CONTINUE\n   end\n\nse conectó y me emeparon a aparecer los msginfo() por lo que le mande un ctrl-alt-del para cortarlo. Luego modifique por ??? para captar la info desde\nel DebugView pero no me pude volver a conectar mas.\nPor que?\n\nSaludos!','',0,'gA==','jfjgebpn',1,0,'',237,0,0),(31328,6917,6,496,0,'157.100.180.226',1178556924,1,0,1,1,1,0,'','','Ramón\n\nEl recordset devuelto con la consulta es un arreglo que contiene las filas y columnas con el resultado de la consulta. Por lo tanto se puede usar directamente el recordset para mostrar en el browse. Lo que veo que te hace falta es colocar el listbox:bline:={||} donde se especifica el oRs:MoveNext()........   \n\nPersonalmente tuve problemas al mostrar en el browse directamente el recordset, y para no hacerme lío lo que hice es pasar todo el recordset a una array, y este último mostrar en el browse.\n\naDatos := {} \n\noDatos:MoveFirst() \n\ndo while .not. oDatos:EOF() \n   AADD(aDatos, {oDatos:Fields(0):value,; \n                          oDatos:Fields(1):value,; \n                          oDatos:Fields(2):value,; \n                          oDatos:Fields(3):value}) \n     oDatos:MoveNext()\nenddo \n\n\nEn todo caso si lo que quieres es sólo mostrar datos y nada más te aconsejo que hagas lo que hice.\n\nEsperemos que pronto esté completo el ADORDD el cual nos facilitará enormemente el acceso por ADO. Felicitaciones y gracias infinitas a quienes están llevando adelante este trabajo.\n\nUn saludo\n\nMarcelo Jingo','',0,'gA==','4n54sh15',1,0,'',496,0,0),(31329,6925,6,785,0,'190.64.198.124',1178557064,1,0,1,1,1,0,'','Varios lenguajes','Amigos:\n\nComo puedo hacer para que el programa antes que nada\nverifique en una base de datos el lenguaje y despues\nyo desde programa muestro los menu y lo demas en \nel lenguaje señalado.\n\nMuchas gracias.\n\nRuben Fernandez','',0,'gA==','nwrurmmg',1,0,'',785,0,0),(31330,6926,7,57,0,'83.53.52.25',1178559844,1,0,1,1,1,1,'','Folder desde recursos tipo Bottom','Antonio\n¿Es posible realizar este tipo de Folder desde Recursos?. He intentado reproducirlo buscando varios estilos pero no consigo que el metodo redefine lo pinte igual que usando el New.\nObserva la diferencia entre ambos estilos. El primero es usando New y el segundo el redefine.\n\n[url=http&#58;//img59&#46;imageshack&#46;us/my&#46;php?image=92973882ap9&#46;png:34fs9aq4][img:34fs9aq4]http&#58;//img59&#46;imageshack&#46;us/img59/9678/92973882ap9&#46;th&#46;png[/img:34fs9aq4][/url:34fs9aq4]\n\nSaludos','',0,'GA==','34fs9aq4',1,0,'',57,0,0),(31331,6927,3,29,0,'88.149.161.204',1178562321,1,0,1,1,1,0,'','ButtonBmp over Title','Could be possible to manage a control like this with fivewin ?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/test_title.bmp\">http://www.softwarexp.co.uk/beta/test_title.bmp</a><!-- m -->\n\nThanks\n\nMarco','',0,'GA==','2qk8qe5a',1,0,'',29,0,0),(31332,6927,3,2,0,'87.218.146.94',1178562566,1,0,1,1,1,1,'','','Marco,\n\nYou may use a TBtnBmp control without border (NOBORDER)','',0,'GA==','79wovnrp',1,0,'',2,0,0),(31333,6927,3,303,0,'72.199.41.171',1178562635,1,0,1,1,1,0,'','','See:\n\nwww. canalfive.com\n\nJames','',0,'GA==','1eqnn7hp',1,1178588645,'',303,1,0),(31334,6917,6,935,0,'165.98.240.104',1178564501,1,0,1,1,1,0,'','Estos son los errores de compilacion con RDDADO','Antonio, \n\nAl compilar me emite estos errores :\n\n ompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'personal.prg\' and generating preprocessed output to \'personal.ppo\'...\n\n 100\n 500\nLines 601, Functions/Procedures 9\nGenerating C source output to \'personal.c\'...\nDone.\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\npersonal.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_RDDDATA\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_AREADATA\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_HB_TOKENGET\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_ID\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_ERROR\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_SETFIELDEXTENT\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_ADDFIELD\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_OPEN\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_CLOSE\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_GETFUNCTABLE\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\n* There are errors\n*** Process \"buildx.bat  personal\" terminated. Return code=0\n\n\ntengo la lib de rddado en fwh\\lib y en xharbour\\lib, el include donde corresponde asi que no se que estoy haciendo mal, \n\nSiempre agradecido por tu atencion y al resto del foro\n\nRamon Paredes','',0,'GA==','3g5sgkbe',1,0,'',935,0,0),(31336,6922,6,36,0,'164.77.81.210',1178567042,1,0,1,1,1,0,'','','hola\n\nRevisa este link\n\n[url:pcsxg8np]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5970&amp;highlight=changeres[/url:pcsxg8np]\n\nSaludos\nPatricio','',0,'EA==','pcsxg8np',1,0,'',36,0,0),(31337,6861,7,2,0,'87.218.146.94',1178567111,1,0,1,1,1,1,'','','Dario,\n\n&gt; EJEMPLO \\\\PC\\C\\CUSTOMER\n\nCómo configuras el nombre del grupo de trabajo de la red local desde el Pocket PC ?','',0,'EA==','1ht2jzo1',1,0,'',2,0,0),(31338,6927,3,29,0,'88.149.161.204',1178567247,1,0,1,1,1,0,'','','Hi James,\nI am already working with vTitle of Canalfive and all runs fine.\n\nThe problem is that if I put a button over the vTitle control then the button will be hidden by the vTitle control.\n\nI also tried to disable the vTitle control and then I put the button on it but with this solution the button is visible but I can\'t press it.\n\nDid you know any solution about this ?\n\nThanks\n\nBest Regards,\n\nMarco','',0,'EA==','2pe04r4a',1,0,'',29,0,0),(31339,6861,7,840,0,'201.243.12.220',1178569060,1,0,1,1,1,0,'','','antonio.\n\n\nen el emulador yo no configuro el grupo de trabajo.\n\nsi existe no se donde colocarlo.\n\n\nsolamente cuando me conecto me pide el usuario la clave y \nel dominio po primera vez y se conecta.\n\nsi me lee los archivos que esta en la RUTA \\\\PC\\C\\CUSTOMER\ny exploro el disco dirigido desde el emilador.','',0,'EA==','117lcknl',1,0,'',840,0,0),(31340,6861,7,2,0,'87.218.146.94',1178569374,1,0,1,1,1,1,'','','Dario,\n\n&gt;\nsolamente cuando me conecto me pide el usuario la clave y\nel dominio po primera vez y se conecta.\n&gt;\n\nDesde donde te conectas ? Desde el Internet Explorer ? Puedes capturar la imagen de pantalla y ponerla aqui ? gracias (usa <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->) \n\n&gt;\nsi me lee los archivos que esta en la RUTA \\\\PC\\C\\CUSTOMER\ny exploro el disco dirigido desde el emilador.\n&gt;\n\nCon que utilidad exploras el disco remoto ?','',0,'EA==','m0vho002',1,0,'',2,0,0),(31341,6783,6,975,0,'208.19.70.93',1178570057,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1t12ug5o]Jhon,\n\nQue errores presenta ?[/quote:1t12ug5o]\n\n\nLos erros que presenta son:\n\n\nerror:unresolved external\n\n_HB_FUN_ADSSETSERVERTYPE\n_HB_FUN_ADSKEYCOUNT\n_HB_FUN_ADSSETFILETYPE\n_HB_FUN_ADSGETRELKEYPOS\n_HB_FUN_ADSSETRELKEYPOS\n_HB_FUN_ADS','',0,'gA==','1t12ug5o',1,0,'',975,0,0),(31342,6783,6,2,0,'87.218.146.94',1178570433,1,0,1,1,1,1,'','','Jhon,\n\nHaz lo que te ha indicado Patricio, gracias','',0,'gA==','34ab3jsl',1,0,'',2,0,0),(31343,6903,6,46,0,'217.168.114.132',1178572993,1,0,1,1,1,0,'','','disculpe cara..\nacho que essas mudanças corresponde a [x]harbour..\nvoce pode procurar... sobre esso.\ne mais.. ta um link <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4876&amp;highlight=438\">http://fivetechsoft.com/forums/viewtopi ... hlight=438</a><!-- m -->\n\nvoce encontra solucão a seus problemas.. e so procurar muito bem.','',0,'','1zlpvvao',1,0,'',46,0,0),(31344,6917,6,935,0,'165.98.240.104',1178575677,1,0,1,1,1,0,'','','Gracias Fernando por tu valiosa ayuda, copiare la libreria y probare,\n\nSaludes\nRamon Paredes','',0,'','2st9px1a',1,0,'',935,0,0),(31346,6916,6,54,0,'189.132.86.107',1178582604,1,0,1,1,1,1,'','','[quote=&quot;wilsongamboa&quot;:1t78umg5]William\naprovechando la ocacion prdrias postear el script de compilacion que usas para compilar AdoRdd para xHabrour,org ??\n\nGracias[/quote:1t78umg5]\n\nUso xMate, te sirve igual?\n\nte lo envio a tu correo, cual es?\n\nsaludos','',0,'gA==','1t78umg5',1,0,'',54,0,0),(31347,6928,6,40,0,'189.194.81.203',1178582774,1,0,1,1,1,0,'','Checar a través de fivewin la recepción de correos ?','Buenas tardes amigos del foro \n \nHay alguna manera de checar a través de fivewin la recepción de correos ?\n \nEs decir, checar si se ha recibido un correo en alguna cuenta especial y que provenga de una,\n \npor ejm:\n \nchecar si en la cuenta <!-- e --><a href=\"mailto:cliente@ramones.com.mx\">cliente@ramones.com.mx</a><!-- e --> hay correo sin leer procedente de  <!-- e --><a href=\"mailto:usuario@fertilizantes.com.mx\">usuario@fertilizantes.com.mx</a><!-- e -->  ?\n \nverificar el nombre del attach, descompactarlo, en una ruta específica ?\n\nSaludos y gracias de antemano\n\nJoel Andujo\nFWH 2.4 xHarbour','',0,'gA==','18xjwcyn',1,0,'',40,0,0),(31348,6927,3,303,0,'72.199.41.171',1178588703,1,0,1,1,1,0,'','','Marco,\n\n&gt;Did you know any solution about this ? \n\nI don\'t know, I have never used this control.\n\nJames','',0,'gA==','qhbnzts1',1,0,'',303,0,0),(31349,6861,7,840,0,'190.76.8.193',1178590085,1,0,1,1,1,0,'','','antonio,\n\nla coneccion la hice con file explorer del emulador\nselecione el MENU y la opcion OPEN PATH\nY ESCRIBE \\\\PC\\C   (SERVIDOR Y DISCO COMPARTIDO)\n\nesto lo hice para saber si estaba leyendo la ruta deseada,\nesta prueba no hacia falta en condiones normales para \nejecutar el programa.\n\n\ncuando me referi a tu pregunta anterior respecto al grupo de\ntrabajo.\n\nsimplemente te explique el proceso anterior para que emtendieras\nque si habia coneccion con el servidor lo cual este no es el problema.\n\nel programa que me embiaste modificalo de esta madera y veras\nque no funciona\n\nREQUEST DBFCDX \n\nfunction Main() \n\n**  crear la variables \\\\servidor\\disco c\\directorio pru \\archivo dbf\n\n   c:=(\"\\\\pc\\c\\pru\\MESONERO.DBF\")\n   ccdx:=(\"\\\\pc\\c\\pru\\MESONERO\")\n \n***   USE ( CurDir() + \"\\customer.dbf\" ) NEW VIA \"DBFCDX\" SHARED \n***  INDEX ON Customer-&gt;First TAG \"First\" TO ( CurDir()+ \"\\customer\" ) \n\n   USE &amp;c NEW VIA \"DBFCDX\" SHARED \n\n   INDEX ON Customer-&gt;First TAG \"First\" TO &amp;ccdx \n\n\n   MsgInfo( IndexKey() ) \n   DbCloseAll() \n\nreturn nil \n\n\n\nveras que da el mismo error anterior cuando el programa estaba\nen la tarja storage card o tarjeta memoria\n\nsi lees el archivo sin index o shared si funciona leyendo del servidor.','',0,'gA==','2af4ktpg',1,0,'',840,0,0),(31350,6929,1,173,0,'203.113.38.7',1178595679,1,0,1,1,1,0,'','MULTILINE of GET','Dear all,\n\nHow to remove the VScroll bar of Get when use Multiline ? Because I\'m got it everytime when I coding MULTILINE in GET \n\nBest regard\n\nPeter\n\nPS. I\'m use Fivewin V2.1c, Clipper5.2e, Blinker 7','',0,'gA==','1wxnn8n2',1,0,'',173,0,0),(31351,6930,6,945,0,'80.32.177.143',1178608659,1,0,1,1,1,0,'','Estructura de una tabla en mysql','Muy buenas, alguien sabe como puedo coger la estructrua de una tabla en mysql, yo utilizo este código pero en la columna TYPE siempre me retorna &lt;MEMO&gt;, este es el código:\n\nlocal cSQL:= \"SHOW FIELDS FROM clientes\"\noStruct:=TMsQuery(oConexion,cSQL) \noStruct:Open()\noStruct:first()\n  while !(oStruct:eof())\n      msginfo(oStruct:fieldget(2))\n      oStruct:next()\n  end while\n\nGracias.','',0,'gA==','24ijhg7t',1,0,'',945,0,0),(31352,6931,6,18,0,'189.143.54.121',1178610628,1,0,1,1,1,1,'','Funcion __PPAddRule()','Saludos Foro\n\nAlguien me puede explicar el funcionamiento de la funcion __PPAddRule()\n\nGracias','',0,'gA==','8nd61980',1,0,'',18,0,0),(31353,6861,7,2,0,'87.218.146.91',1178611183,1,0,1,1,1,1,'','','Dario,\n\nTe enviamos por email un nuevo build de Harbour para Pocket PC. \n\nPor favor pruébalo, gracias. Aqui está funcionando bien.','',0,'gA==','1e4lhvig',1,0,'',2,0,0),(31354,6882,3,29,0,'88.149.161.204',1178612284,1,0,1,1,1,0,'','','Hi James,\nI created an unsorted list only for this sample for a better explain of this problem.\n\nIn my commercial apps I obviusly use combos with sorted arrays.\n\nThe problem of this new kind of incremental seek is that it is a programmer-like feature and not an end-user feature.\nUnfortunately I could have a human-monkey meeting point customers but really I have had a lot of call of customers with many difficult to scroll the combos list with this solution.\n\nThere is also the problem that if the customer doesn\'t remember well the name it want to search then it need to continue the search with the mouse or arrows key. With the old system it has only to press the initial key and (in my apps) it can also make list filters pressing a button.\n\nBest Regars,\n\nMarco','',0,'gA==','2wxwx10h',1,0,'',29,0,0),(31355,6931,6,2,0,'87.218.146.91',1178613383,1,0,1,1,1,1,'','','Vikthor,\n\n/*\n * preprocess and execute new preprocessor directive\n * __PPADDRULE( &lt;pPP&gt;, &lt;cDirective&gt; )\n */\n\nEn donde &lt;pPP&gt; es un \"nuevo\" preprocesador creado con:\n\n/*\n * initialize new PP context and return pointer to it.\n * __PP_INIT( [&lt;cIncludePath&gt;] [, &lt;cStdChFile&gt; ] )\n * when &lt;cStdChFile&gt; is empty string (\"\") then no default rules are used\n * only the dynamically created #defines like __HARBOUR__, __DATE__, __TIME__\n */\n\n__PPADDRULE() te permite añadir nuevas reglas de preprocesado que se usarán cuando compiles una macro','',0,'','lrxvwl7d',1,0,'',2,0,0),(31356,6929,1,2,0,'87.218.146.91',1178613545,1,0,1,1,1,1,'','','Peter,\n\nDo you create it from source code or from resources ?\n\nIf created from resources don\'t use the style WS_VSCROLL','',0,'','33m8ncgg',1,0,'',2,0,0),(31357,6899,3,31,0,'195.182.84.105',1178614515,1,0,1,1,1,1,'','Re: ActiveX for Word','[quote=&quot;Rimantas&quot;:2rebsecl]Hi !\n\n  I\'m searching a working solution for Word with ActiveX . Please send me directly <!-- e --><a href=\"mailto:rimantasu@gmail.com\">rimantasu@gmail.com</a><!-- e -->   lib , source or dll with which my application can work with Word through ActiveX . I\'ll be very thankfull ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> It seems that ActiveX alreday exist , but I can\'t find from where I can dowload package .\n\n  With best regards ! Rimantas[/quote:2rebsecl]\n\n   No comments at all ?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  \n\n   Problems - FiveWin ActiveX isn\'t working with Word . With Excel - excelent , but with Word - no . It hangs application and Word ActiveX don\'t appears .\n   xBuilder ActiveX ins\'t working in full . It open Word ActiveX control , but I can\'t to open file with that . \n\n   Please help - maybe it\'s a solution how to run Word ActiveX with FiveWin ?\n\n   Regards ! Rimantas','',0,'gA==','2rebsecl',1,0,'',31,0,0),(31358,6923,6,138,0,'80.37.11.90',1178616762,1,0,1,1,1,1,'','','Creo que esta mal tu cadena de conexion.\n\nCuando el servidor es remoto, la cadena de conexion debe ser esta:\n\n[code:ju5vix5l]Driver=&#123;MySQL ODBC 3&#46;51 Driver&#125;;Server=data&#46;domain&#46;com;Port=3306;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;\n[/code:ju5vix5l]\nTe falta el Option = 3 y te falta el puerto (aunque este ultimo tendria que tomarlo por default)','',0,'AIA=','ju5vix5l',1,0,'',138,0,0),(31359,6925,6,138,0,'80.37.11.90',1178616907,1,0,1,1,1,1,'','','Puedes recurrir al viejo truco del DLL multilenguaje.\n\nAlguna vez, en FW de 16 bits tuve necesidad de hacer eso, e hicimos 2 DLLs uno en Ingles, y otro en Español, uno contenia todos los menus, constantes y dialogos en Español y el otro era identico, pero en español, luego con un SET RESOURCES TO.... haciamos el resto.','',0,'AIA=','2ymmwdde',1,0,'',138,0,0),(31360,6917,6,138,0,'80.37.11.90',1178617226,1,0,1,1,1,1,'','','Ramon:\n\nEl browse de FW no funcionara con un RecordSet de ADO \"asi como esta\", necesitas reescribir algunas propiedades como son el ::bLogicLen, el ::bSkip y reescribir la funcion Skpper para que vaya sobre recordset.','',0,'AIA=','1pb374c9',1,0,'',138,0,0),(31361,6926,7,2,0,'87.218.146.91',1178617484,1,0,1,1,1,1,'','','Toni,\n\nLo que quieres es que no se vea como botones ?','',0,'AIA=','2pu413ev',1,0,'',2,0,0),(31362,6928,6,138,0,'80.37.11.90',1178617504,1,0,1,1,1,1,'','','Joel:\n\nUna lana y te digo como..... jajajajaja, no te creas.\n\nFiveWin tiene un cliente de correo pop, mirate el ejemplo testpop3.prg.\n\nBasicamente el tema va de sockets, te conectas por un socket al servidor pop3, mandas la peticion de lista de correos, recibes una lista de correos y su contenido, y listo, puedes analizar las cabeceras para saber de donde viene, todo se maneja en archivos de texto.','',0,'AIA=','31y9pb1i',1,0,'',138,0,0),(31363,6932,6,131,0,'194.179.55.36',1178618552,1,0,1,1,1,0,'','añadir imagen a archivo de word','Hola:\nEstoy usando la clase TWord de Vikhtor para rellenar automáticamente un documento de word y me funciona de maravilla. Tengo que añadir una imagen y con addimagen me funciona perfecto, pero la crear la imagen se crea un cuadrito remarcandola. ¿ Alguien sabe como incrustar una imagen sin el dichoso cuadrito ? Viendo la clase llego hasta el método box, pero ahi ya me pierdo.\n\nSaludos,','',0,'AIA=','26bn89po',1,0,'',131,0,0),(31364,6932,6,2,0,'87.218.146.91',1178621515,1,0,1,1,1,1,'','','José Luis,\n\nHas probado con distintos valores para nTipo ?\n\nAddImagen( nTop, nLeft, nBottom, nRight, cImagen, alinea, nTipo )','',0,'AIA=','2wrr7fke',1,0,'',2,0,0),(31365,2503,17,2,0,'87.218.146.91',1178621630,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/30144703/Twordhb.zip.html\">http://rapidshare.com/files/30144703/Twordhb.zip.html</a><!-- m -->','',0,'AIA=','1o5ew83r',1,0,'',2,0,0),(31366,6932,6,131,0,'194.179.55.36',1178623555,1,0,1,1,1,0,'','','Estoy en eso, pero creo que más que en nTipo tiene que ser una opción del array que se la pasa al método box desde AddImagen, pero no se donde buscar esa documentación.\n\nSaludos,','',0,'AIA=','3eed7lk3',1,0,'',131,0,0),(31367,6926,7,57,0,'83.53.52.25',1178623839,1,0,1,1,1,1,'','','Antonio\nNo, lo que quiero es que desde recursos se vea igual que haciendo a pelo. Es decir la segunda imagen = a la primera.\n\nHe probado diferentes estilos y no consigo que sea igual. Creando el control desde cero, la opcion seleccionada se muestra con fondo blanco y el resto de Items recogen el color de fondo  COLOR_BTNFACE por contra utilizando recursos los colores de fondo de todos los items son siempre blancos, seleccionados y no seleccionados.\n\nSaludos','',0,'AIA=','1130do1o',1,0,'',57,0,0),(31369,6859,3,909,0,'71.71.110.50',1178627925,1,0,1,1,1,1,'','','We\'ve still not been able to fix the problem of the controls not showing on the first tab of the multiline folders when RESIZE16 is used.  Below is a web address to download a sample with the supporting files.  \n\nProblem is solved!  See my post below for a sample.\nCharles','',0,'EIA=','2xls05hl',1,1178802764,'',909,3,0),(31371,6933,3,29,0,'88.149.162.158',1178629206,1,0,1,1,1,0,'','BtnBmp from code and tooltip','As I see tooltip is not supported with BtnBmp created from code,\nisn\'t it ?\n\nMarco','',0,'AIA=','25s60jki',1,0,'',29,0,0),(31372,6932,6,72,0,'189.136.210.184',1178629693,1,0,1,1,1,0,'','','Tengo esto:\n\n   oWord:AddImage( 1.8, 2.0, 3.5, 19, cImage, {1,1,1,1,1,1} )','',0,'AIA=','19vlwiay',1,0,'',72,0,0),(31373,6934,6,54,0,'189.132.105.189',1178632954,1,0,1,1,1,1,'','ADORDD con xMate (xHarbour)','Bueno, este es el proyecto.\n\n[url:387phuu9]http&#58;//rapidshare&#46;com/files/30171091/adoRDD&#46;rar[/url:387phuu9]\n\nsaludos, espero ayude\n\nPD. hay que agregar la LIB usrrdd.lib a sus ambientes, para que no salgan errores.','',0,'EA==','387phuu9',1,0,'',54,0,0),(31374,6925,6,785,0,'190.64.216.206',1178634302,1,0,1,1,1,0,'','','Gracias Rene:\n\nEs una buena solución, aunque.\n\nSaludos y Gracias.\n\nRuben Fernandez.','',0,'EA==','1psceazu',1,0,'',785,0,0),(31375,6931,6,18,0,'200.67.188.236',1178634425,1,0,1,1,1,1,'','','Antonio :\n\n¿ Es válido que yo pueda hacer esto ?\n\n__PPADDRULE( \"#include mi.ch\" )\n\no cúal es la forma correcta de utilizar __PP_INIT()\n\n__PPINIT( \"c:\\midir\\\" , \"mi.ch\" )   &lt;--- ¿ esto es correcto ?\n\nTe agradezco tus comentarios','',0,'EA==','qwka7o4j',1,1178641619,'',18,1,0),(31376,6925,6,785,0,'190.64.216.206',1178634681,1,0,1,1,1,0,'','','Rene termino el mensaje...\n\naunque tengo todo realizado con .res, cambiarlo para usar Dll lo veo facil, pero quedara igual de seguro que teniendo el res incrustado.\n\n\nSaludos\n\nRuben  Fernandez.','',0,'EA==','mj7dvpv9',1,0,'',785,0,0),(31377,6928,6,40,0,'189.194.78.145',1178637411,1,0,1,1,1,0,'','','Gracias master por el norte.\n\nAprovechando, estamos interesados en el curso de \ninternet con xHarbour (xbscript).\n¿ Ya hay fechas para estos cursos en México ?\n\nSaludos y buena suerte en España\nJoel Andujo','',0,'EA==','j2jag9tl',1,0,'',40,0,0),(31379,6933,3,2,0,'87.218.146.91',1178641555,1,0,1,1,1,1,'','','Marco,\n\noBtnBmp:cToolTip = \"Tooltip text\"','',0,'EA==','2jjwv7nq',1,0,'',2,0,0),(31380,6931,6,18,0,'200.67.188.236',1178641578,1,0,1,1,1,1,'','','cuándo hago esto :\n\n__PPADDRULE(\"#include mi.ch\")\n\nobtengo el siguiente mensaje de error:\n\n[code:f2bgqkxd]   Error description&#58; Error PP/23  Unknown result marker &lt;uAction&gt; in #directive\n\nStack Calls\n===========\n   Called from&#58;  =&gt; __PPADDRULE&#40;0&#41;\n[/code:f2bgqkxd]','',0,'AIA=','f2bgqkxd',1,0,'',18,0,0),(31381,6931,6,2,0,'87.218.146.91',1178641737,1,0,1,1,1,1,'','','Vikthor,\n\n&gt; o cúal es la forma correcta de utilizar __PP_INIT()\n\nhPP = __PPINIT( \"c:\\midir\" , \"mi.ch\" )','',0,'AIA=','182egbfv',1,0,'',2,0,0),(31382,6931,6,18,0,'200.67.188.236',1178641891,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1w51n7dg]Vikthor,\n\n&gt; o cúal es la forma correcta de utilizar __PP_INIT()\n\nhPP = __PPINIT( \"c:\\midir\" , \"mi.ch\" )[/quote:1w51n7dg]\n\nY supongo que el valor hpp, lo debo usar __PPADDRULE() ?','',0,'gA==','1w51n7dg',1,0,'',18,0,0),(31383,6931,6,2,0,'87.218.146.91',1178642111,1,0,1,1,1,1,'','','Vikthor,\n\nSi. Y no se añade un #include sino un #xcommand ó similar','',0,'gA==','3a4odcgu',1,0,'',2,0,0),(31384,6936,3,29,0,'88.149.162.158',1178643957,1,0,1,1,1,0,'','About xBrowse','Hi,\nI have a small problem with the xbrowse class managing arrays.\n\nWith an array like this:\n\naArray:=array(0,3) \naadd(aArray,{\"01,\"Pippo\",\"03\"}) \naadd(aArray,{\"02\",\"Pluto\",04\"}) \n\nI need to display only the First and Second element so I defined only two header:\n\noBrw:aCols[1]:cHeader:=\"Number\"\noBrw:aCols[2]:cHeader:=\"Name\"\n\nThe problem is that the browse also report the thirth element (\"03\",\"04\") on the right that I have not defined as header.\n\nIs there any way to hidden the thirth element ?\n\nThanks in advance\n\nBest Regards,\n\nMarco Turco','',0,'','sh23v1ia',1,0,'',29,0,0),(31385,6937,1,434,0,'207.35.2.80',1178644076,1,0,1,1,1,0,'','MsgLogo','Hello All, \n\nMy Name Is Gino Siviero. I have a slight problem. \n\nWe are using FW 2.8. \n\nAfter a personnel change in our offices, some programs had to be re-compiled using FW 2.8. One of the programs was changed to include our logo. so, MsgLogo was used... \n\nThe program compiles great (bLinker, Fivewin). However, we cannot get MsgLogo to work... when we execute the program, we get an error... \n\nERROR... BASE 1068... Array access... \n\nI believe that this routine never worked... (I am usually wrong...) \n\nCould I have a working version of MSGLOGO or please tell me how to correct it ???\n\nThis is my first message (on this format) since 2003. \n\nThank You very much. \n\nBest Regards. \n\nGino P. Siviero\n\n<!-- e --><a href=\"mailto:GinoSiviero@kahnawake-edu.org\">GinoSiviero@kahnawake-edu.org</a><!-- e -->','',0,'','2zv1tq0e',1,0,'',434,0,0),(31386,6882,3,303,0,'72.199.41.171',1178644135,1,0,1,1,1,0,'','','Marco,\n\n&gt;The problem of this new kind of incremental seek is that it is a programmer-like feature and not an end-user feature.  Unfortunately I could have a human-monkey meeting point customers but really I have had a lot of call of customers with many difficult to scroll the combos list with this solution.\n\nI have not heard any complaints. Do you suppose this is just because the behavior changed and they were not used to it? I find that this will happen no matter great of an improvement you make, but after a few weeks they get used to it and you never hear about it again.\n\n&gt;There is also the problem that if the customer doesn\'t remember well the name it want to search then it need to continue the search with the mouse or arrows key. With the old system it has only to press the initial key and (in my apps) it can also make list filters pressing a button.\n\nIn contrast, if they do know the name, then they are going to have to type a lot more keystrokes. If you are looking for a name, Stevens, and there are a hundred names starting with S in the list, and given that T is about 3/4 of the way through the alphabet, with the old system they would have to type S about 75 times. With the new system, they could get to the first occurance of Stevens probably with only two keystrokes-ST. That is a big difference.\n\nI just tried an example with only about 200 names in the list and nine starting with S and one Stevens. It takes 2 keystrokes to get to Stevens using incremental searching and 7 with the old system. Still much less work with incremental searching.\n\nIf your app supports user configuration, then you could allow each user to configure this particular behavior to the way they like it. That solves it nicely.\n\nJames','',0,'','1r6f5ptk',1,0,'',303,0,0),(31388,6861,7,840,0,'201.243.12.220',1178644562,1,0,1,1,1,0,'','','antonio,\n\n\nactualize con lo que me mandaste y ahora no compila\n\ncuando ejecuto b.bat y el nombre del programa\n\nsale el siguiente error al compilar\n\n******************************************************\n\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'_aaa.prg\' and generating preprocessed output to \'_aaa.ppo\'...\nLines 17, Functions/Procedures 1\nGenerating C source output to \'_aaa.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\n_aaa.c\n   Creating library _aaa.lib and object _aaa.exp\n_aaa.obj : error LNK2001: unresolved external symbol HB_FUN_MSGINFO\ncommon.lib(hbgete.obj) : error LNK2019: unresolved external symbol GetEnvironmen\ntVariable referenced in function hb_getenv\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol AnsiToWide\nrtl.lib(errorint.obj) : error LNK2019: unresolved external symbol AnsiToWide ref\nerenced in function hb_conOutErr\nrtl.lib(console.obj) : error LNK2001: unresolved external symbol AnsiToWide\nrtl.lib(filesys.obj) : error LNK2019: unresolved external symbol AnsiToWide refe\nrenced in function hb_fsOpen\nrtl.lib(fstemp.obj) : error LNK2001: unresolved external symbol AnsiToWide\nrtl.lib(filesys.obj) : error LNK2019: unresolved external symbol SetCurrentDirec\ntory referenced in function hb_fsChDir\nrtl.lib(filesys.obj) : error LNK2019: unresolved external symbol GetCurrentDirec\ntory referenced in function hb_fsCurDirBuff\nrtl.lib(seconds.obj) : error LNK2019: unresolved external symbol GetProcessTimes\n referenced in function hb_secondsCPU\nrtl.lib(fstemp.obj) : error LNK2019: unresolved external symbol WideToAnsi refer\nenced in function hb_fsTempName\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol WideToAnsi\nrtl.lib(hbffind.obj) : error LNK2019: unresolved external symbol GetVolumeInform\nation referenced in function hb_fsFindNextLow\nrtl.lib(gtsys.obj) : error LNK2019: unresolved external symbol HB_FUN_HB_GT_WIN\nreferenced in function hb_gt_ForceLink_HB_GT_WIN\nvm.lib(main.obj) : error LNK2019: unresolved external symbol GPFStack referenced\n in function WinMain\n_aaa.exe : fatal error LNK1120: 10 unresolved externals\n* Application successfully built\n\nC:\\FWPPC\\dario&gt;block\n\"block\" no se reconoce como un comando interno o externo,\nprograma o archivo por lotes ejecutable.','',0,'','2ocvc4od',1,0,'',840,0,0),(31389,6938,6,963,0,'201.236.186.213',1178645466,1,0,0,0,1,0,'','¿Cómo puedo poner una segunda barra de botones?','Amigos del foro, tengo un menú que tiene más de 60 opciones, y quién me ha encargado el proyecto, quiere un botón para cada opción en la barra, obviamente, el espacio no alcanza. Mi pregunta es, cómo puedo montar una segunda barra de botones, bajo la primera, en la ventana principal?\n\nSaludos, Leo.','',0,'','1eb1bg11',1,0,'',963,0,0),(31390,6939,3,487,0,'151.42.55.34',1178645529,1,0,1,1,1,0,'','Printing extended characters','Hi guys,\nwe all know each Windows font does have much more than 256 characters in it.\nIs it possible to select one of the glyps over # 255 for printing ?\noPrn:Say(200, 200, chr(???) )\n\nThanks,\nDavide','',0,'','rmzxw3fv',1,0,'',487,0,0),(31391,6899,3,18,0,'200.67.188.236',1178645604,1,0,1,1,1,1,'','Re: ActiveX for Word','Rimantas :\n\nI wrote TExcelS class and re-write TWord class using TOleAuto and xHarbour and works excelent.\n\nIf you wish can I send you.\n\n\n[quote=&quot;Rimantas&quot;:2ckdspax][quote=&quot;Rimantas&quot;:2ckdspax]Hi !\n\n  I\'m searching a working solution for Word with ActiveX . Please send me directly <!-- e --><a href=\"mailto:rimantasu@gmail.com\">rimantasu@gmail.com</a><!-- e -->   lib , source or dll with which my application can work with Word through ActiveX . I\'ll be very thankfull ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> It seems that ActiveX alreday exist , but I can\'t find from where I can dowload package .\n\n  With best regards ! Rimantas[/quote:2ckdspax]\n\n   No comments at all ?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  \n\n   Problems - FiveWin ActiveX isn\'t working with Word . With Excel - excelent , but with Word - no . It hangs application and Word ActiveX don\'t appears .\n   xBuilder ActiveX ins\'t working in full . It open Word ActiveX control , but I can\'t to open file with that . \n\n   Please help - maybe it\'s a solution how to run Word ActiveX with FiveWin ?\n\n   Regards ! Rimantas[/quote:2ckdspax]','',0,'gA==','2ckdspax',1,0,'',18,0,0),(31393,6941,6,945,0,'80.32.177.143',1178647060,1,0,1,1,1,0,'','Asignar valor a una funcion','Muy buenas foro, tengo una duda sobre funciones, es decir, como podría asignar un valor a una funcion, me explico, tengo este codigo:\n\nmethod Var(cCampo) class CDIt\n   local nPos\n   nPos:=ascan( ::acTipos, {|v| lower(v[1]) = lower(cCampo) } )\n   if nPos&lt;&gt;0\n       ::acTipos[nPos,2]      // Me da el valor de esa variable\n   end if\nreturn\n\ny me gustaría llamar a esa funcion como si de una variable se tratase, es decir, como algo así:\n\n o:Var(\"numeroserie\"):=\"999\"\n\nEntonces la variable numeroserie que está en un array de la clase CDIt pueda modificarla de esta forma, o como sea, es decir, enfocarme como podría hacerlo, gracias.\n\nUn Saludo.','',0,'','ydwitg2c',1,0,'',945,0,0),(31394,6942,6,976,0,'165.98.139.66',1178649707,1,0,1,1,1,0,'','Ayuda con XBSCript','Hola a todos,\n\nAlguien ha utilizado xbscript para correr PRGs externos desde una aplicación?\n\nSaludos,\n\nJairo Centeno','',0,'','30o344yj',1,0,'',976,0,0),(31395,6943,19,75,0,'83.36.141.64',1178650561,1,0,1,1,1,0,'','Windows Vista - instalacion Contaplus Elite 2001 - error','Al instalar el Contaplus Elite 2001 en un portatil con Windows Vista me sucede que lo chequea bien y pide las claves, pero al terminar cuando graba en el disquete para descontar una instalación me da un error y sale de la instalación sin concluirla, entonces al entrar en la aplicación da el error de que \"la aplicación no está correctamente registrada\" y se sale del programa.\n\nSabe alguien como solucionar este problema, creo que se debe a que el disco llave no trae un formato normalizado standar y algo hace W-Vista que impide que se grabe en el disco.\n\nEn Windows XP si lo instala correctamente.\n\nSaludos.','',0,'','84nccyfd',1,0,'',75,0,0),(31396,6936,3,29,0,'88.149.162.158',1178651277,1,0,1,1,1,0,'','','Ok.\nSolved with oBrw:nFreeze:=2\n\n\nRegards,\n\nMarco','',0,'','1vyyppyy',1,0,'',29,0,0),(31397,6861,7,2,0,'87.218.146.91',1178653604,1,0,1,1,1,1,'','','Dario,\n\nIntenta construir samples/tutor01.prg y dime que errores te da, gracias\n\nDe que fecha son las librerías de FWPPC que estás usando ?','',0,'','15e18uxx',1,0,'',2,0,0),(31398,6815,6,743,0,'201.116.76.180',1178654038,1,0,1,1,1,0,'','error','saludos colegas\n\n\n estoy probando los ejemplos de ado\n\npero me tira estos errores como los corrigo\n\n\n\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from D:\\FIVEWIN\\HARBOUR\\LIB\\RDD.LIB|dbf1\n\nError: Unresolved external \'_hb_sxPtoD\' referenced from D:\\FIVEWIN\\HARBOUR\\LIB\\RDD.LIB|dbf1\n\n\nError: Unresolved external \'_hb_sxDtoP\' referenced from D:\\FIVEWIN\\HARBOUR\\LIB\\RDD.LIB|dbf1\n\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from D:\\FIVEWIN\\HARBOUR\\LIB\\RDD.LIB|dbf1\n\nsaludos espero me ayuden\n\ngracias','',0,'','1uadzcvm',1,0,'',743,0,0),(31399,6943,19,2,0,'87.218.146.91',1178654076,1,0,1,1,1,1,'','','Deberías dirigirte al servicio de soporte técnico de ese producto','',0,'','x1djv5aj',1,0,'',2,0,0),(31400,6941,6,2,0,'87.218.146.91',1178654571,1,0,1,1,1,1,'','','[code:17mmf5on]\nmethod Var&#40;cCampo, cValor &#41; class CDIt\n\n   local nPos &#58;= AScan&#40; &#58;&#58;acTipos, &#123;|v| lower&#40;v&#91;1&#93;&#41; = lower&#40;cCampo&#41; &#125; &#41;\n\n   if nPos&lt;&gt;0\n      if PCount&#40;&#41; &gt; 1\n         &#58;&#58;acTipos&#91;nPos,2&#93; = cValor\n      else\n         return &#58;&#58;acTipos&#91; nPos, 2 &#93;\n      endif\n   else\n      &#46;&#46;&#46;\n   end if\n\nreturn\n[/code:17mmf5on]\n\no:Var(\"numeroserie\", \"999\" )','',0,'AIA=','17mmf5on',1,0,'',2,0,0),(31401,6815,6,2,0,'87.218.146.91',1178654681,1,0,1,1,1,1,'','','te falta enlazar hbsix.lib','',0,'AIA=','22xtwumt',1,0,'',2,0,0),(31402,6938,6,185,0,'200.87.81.37',1178655291,1,0,1,1,1,0,'','','Leon\n\nSi estas Utilizando la clase Tbar, no es posible sin modificarla\n\nla Otra es que utilizar la classe toolabr con rebar\n\nsaludos\n\narturo','',0,'AIA=','1cy063xt',1,0,'',185,0,0),(31403,6942,6,2,0,'87.218.146.91',1178655335,1,0,1,1,1,1,'','','Jairo,\n\nHarbour te permite compilar PRGs desde tu propia aplicación y ejecutarlos, usando ficheros HRB','',0,'AIA=','a021e1ti',1,0,'',2,0,0),(31404,6937,1,2,0,'87.218.146.91',1178655534,1,0,1,1,1,1,'','','Gino,\n\nPlease copy here the complete error.log that you get, thanks','',0,'AIA=','3jwywhfz',1,0,'',2,0,0),(31405,6944,6,73,0,'200.23.18.132',1178657251,1,0,1,1,1,0,'','ayuda con dbcombo &quot;alias&quot;','quiero actualizar un dbcombo dependiendo de otra variable en tiempo de ejecucion (el alias)\nasi tengo mi codigo\n\n   REDEFINE COMBOBOX oCbx VAR cCbx ITEMS aConc ID 103 OF oDlg UPDATE\n\n   REDEFINE DBCOMBO  oCbx2 VAR cCbx2           ID 104 OF oDlg ;\n               alias if(oCbx:nAt==3,oDCos,if(oCbx:nAt==4,oDCom,if(oCbx:nAt==5,oDGru,))) ;\n               itemfield \"CODIGO\" ;\n               listfield \"DESCRI\";\n               update WHEN oCbx:nAt &gt; 2 .AND. nRad == 2\n\npero no me carga nada de datos, como hacer para que seleccione el alias correcto dependiendo del valor del combobox?\nsalu2\npaco','',0,'AIA=','17ghd72w',1,0,'',73,0,0),(31406,6942,6,976,0,'165.98.139.66',1178657837,1,0,1,1,1,0,'','','Antonio, gracias por tu respuesta.\n\nPuedo escribir un programa con formato HRB y ejecutarlo sin necesidad de enlazarlo y compilarlo?\n\nQué funciones se utilizan para ello?\n\nEn xbscript hay que utilizar __peprocess(), pp_run(), pp_compile()\n\nSaludos,\n\nJairo Centeno','',0,'AIA=','13t9qdso',1,0,'',976,0,0),(31407,6945,6,694,0,'200.189.112.21',1178658887,1,0,1,1,1,1,'','Calculadora funcional alguem me ajuda ai!','Amigos, estou precisando da ajuda de voces! É possível alguem me arrumar uma função de calculadora, estou precisando muito !\n\n\nGrato\n\naoki','',0,'AIA=','tzbhxnfw',1,0,'',694,0,0),(31408,6861,7,840,0,'201.243.12.220',1178659948,1,0,1,1,1,0,'','','Compiling...\nHarbour Compiler Alpha build 46.2 (Flex)\n\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-\">http://www.harbour-</a><!-- m -->\nproject.org/\nCompiling \'tutor01.prg\' and generating p\nreprocessed output to \'tutor01.ppo\'...\nLines 12, Functions/Procedures 1\nGenerating C source output to \'tutor01.c\n\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler\nVersion 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002.\nAll rights reserved.\n\ntutor01.c\nLINK : fatal error LNK1181: cannot open\ninput file \'c:\\harbour_CE\\lib\\gtwin.lib\'\n\nNo se encuentra C:\\FWPPC\\SAMPLES\\tutor01\n.exp\nNo se encuentra C:\\FWPPC\\SAMPLES\\tutor01\n.lib\n* Application successfully built\n\nC:\\FWPPC\\SAMPLES&gt;\n\n\n*************************************************\n\nLAS LIBRERIAS TIENEN FECHA  \n\n            FIVECE.LIB   -----  19-09-2006\n\n            FIVECEC.LIB ------ 12-10-2006','',0,'AIA=','3hnxbkpq',1,0,'',840,0,0),(31410,6861,7,2,0,'87.218.146.91',1178661404,1,0,1,1,1,1,'','','Dario,\n\nTienes que enlazar gtgui.lib en vez de gtwin.lib, debido a un cambio en Harbour','',0,'AIA=','17rrj3jw',1,0,'',2,0,0),(31411,6946,6,36,0,'164.77.81.210',1178662197,1,0,1,1,1,1,'','Ads 7.1 a 8.1','Estimados \n\nTengo Ads 7.1 y me funciona perfectamente, estoy evaluando la version 8.1 por 30 dias, y me pregunta si hay que hacer algun cambio dentro de la aplicacion.\n\nhe copiado los archivos de destribucion en mi aplicacion\n\n[code:2cuuskaz]ace32&#46;dll    &#40; version 8&#46;10&#46;0&#46;15 &#41;\nadsloc32&#46;dll&#40; version 8&#46;10&#46;0&#46;15 &#41;\nadslocal&#46;cfg\nansi&#46;chr\naxcws32&#46;dll&#40; version 8&#46;10&#46;0&#46;15 &#41;\nextend&#46;chr\n[/code:2cuuskaz]\n\ndentro de las libreria de harbour 0.99.71\n[code:2cuuskaz]\n&#46;&#46;&#46;\nc&#58;\\harbour\\lib\\pp&#46;lib    +\nc&#58;\\harbour\\lib\\rddads&#46;lib+\nc&#58;\\harbour\\lib\\Ace32&#46;lib +[/code:2cuuskaz]\n\n\ndentro del programa\n[code:2cuuskaz]\nInit Procedure Inicio&#40;&#41;\n	local hConnection &#58;= 0, lConecte &#58;= &#46;f&#46;\n\n	SET MULTIPLE ON\n	SET EPOCH TO 1950                            // Admite los años desde el 1990 en adelante\n	SET CONFIRM ON\n	SET CENTURY ON                               // 4 d¡gitos a¤o\n	SET DATE FORMAT &quot;DD/MM/YYYY&quot;                 // formato dd-mm-yyyy\n	SET DELETED ON                               // Impedir ver registros marcados borrar\n	SetHandleCount&#40; 150 &#41;                        // M ximo n§ ficheros abiertos\n	SET _3DLOOK ON\n\n	oApp &#58;= MyApp&#40;&#41;&#58;Load&#40;&#41;\n\n	rddregister&#40; &quot;ADS&quot;, 1 &#41;\n	rddSetDefault&#40; &quot;ADS&quot; &#41;\n\n	AdsConnect&#40; oApp&#58;cPathDbf &#41;\n	AdsSetServerType&#40; oApp&#58;AdsConnect &#41;\n\n	MsgRun&#40; &quot;Espere un momento, Conectando con el Servidor&quot;, &quot;Win-Invent&quot;,;\n			 &#123; || lConecte &#58;= AdsConnect60&#40; oApp&#58;AdsServer, oApp&#58;AdsConnect, &quot;adssys&quot;, &quot;XXX&quot;,, @hConnection &#41; &#125; &#41;\n\n	if !lConecte \n		MsgInfo&#40; &quot;Hay problemas en el servidor&quot;+CRLF+&quot;intente mas tarde&quot;, &quot;usuario&quot; &#41;\n		MsgInfo&#40; &quot;Error&#58;&quot;+cValtochar&#40; AdsGetLastError&#40;&#41; &#41;+CRLF +;\n			&quot;Servidor&#58;&quot;+oApp&#58;AdsServer, &quot;Usuario&quot; &#41;\n		PostQuitMessage&#40;0&#41;\n		QUIT\n		return\n	endif\n\n	oApp&#58;hConnection &#58;= hConnection\n	hConnection &#58;= NIL\n\n	AdsSetFileType&#40; ADS_CDX &#41;\n	AdsLocking&#40; &#46;t&#46; &#41;\n	AdsRightsCheck&#40; &#46;f&#46; &#41;\n\nreturn\n//---------------------------------------------------------------------------\n[/code:2cuuskaz]\n\n\nLa verdad que me funciona igual, pero no noto la diferencia entre 7.1 y 8.1 en cuanto a velocidad?','',0,'AIA=','2cuuskaz',1,0,'',36,0,0),(31412,6815,6,743,0,'201.116.76.180',1178663719,1,0,1,1,1,0,'','','ya quedo antonio...\n\n\n\n  solo una pregunta porque cuando realizo un ejemplo con sql server me manda un error que es el siguiente:\n\n  Error occurred at: 05/08/07, 17:23:53\n   Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   Select Contact,Phone FROM Customer\n     [   2] = O   Object\n\nStack Calls\n===========\n   Called from TOLEAUTO:OPEN(0)\n   Called from ADO_OPEN(178)\n   Called from DBUSEAREA(0)\n   Called from MAIN(8)\n\ncon access me lo hace bien pero con sql server no que estoy haciendo mal\n\nsaludos','',0,'','2kg748qo',1,0,'',743,0,0),(31413,6947,6,987,0,'189.132.32.236',1178664020,1,0,1,1,1,0,'','no puedo crear ventanas con Harbour','<!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->  Tengo un Problema, estoy tratando de migrar mis aplicaciones a los 32 bits y estoy probando con:\n\nBorland C++ 5.5.1 for Win32 con sus archivos bcc32.cfg y ilink32.cfg en la carpeta BIN\n\nFiveWin for Harbour ( FWH 2.6 April 2005 )\n\nHarbour Beta build 0.99-1 Intl. \nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nVerce v.2.8 para [x]Harbour, incluso con el archivo Buildh.bat que se encuentra en la carpeta samples de FWH.\n\nY pues bien, despues de compilar y enlazar la aplicación TUTOR01.prg no hay Problema, aparece un mensaje indicando la version de fwh que estoy usando, pero al compilar el TUTOR02.prg, TUTOR03.prg, TUTOR04.prg, todo va muy bien hasta el momento de correr la aplicación, simplemente no pasa nada, no veo la ventana principal por ningun lado, solo se ve un pantallaso y es todo, quisiera saber en que estoy mal, o con que version de harbour o xHarbour usar y donde descargarlo ya que tengo una aplicacion para el control de una Muebleria y esta terminado, pero mecesito pasarlo a 32bits por las ventajas que todos sabemos...\n\nEsperando pronto auxilio.. \nUn abrazo para todos mis colegas programadores...','',0,'','enyf5xj3',1,0,'',987,0,0),(31414,6861,7,840,0,'190.76.8.193',1178665371,1,0,1,1,1,0,'','','antonio,\n\n\ndisculpa como hago para enlazar gtgui.lib en vez de gtwin.lib, debido a un cambio en Harbour\n_________________\n\n\n\n\nsaludos.\ndario ferreira','',0,'','18zk7901',1,0,'',840,0,0),(31415,6545,6,987,0,'189.132.32.236',1178665881,1,0,1,1,1,0,'','','<!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> Hola mi estimado colega, claro que te puedo ayudar, simplemente modifique el archivo ErrSysw.prg y con una aplicación freeware captura la pantella de error, es más crea una base de datos con toda la información acerca del error, como la imagen en jpg del mismo, si la necesitas comunicate conmigo <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  a mi correo  <!-- e --><a href=\"mailto:danyleon82@hotmail.com\">danyleon82@hotmail.com</a><!-- e -->','',0,'','2d6ir018',1,0,'',987,0,0),(31416,6948,6,935,0,'165.98.240.104',1178666999,1,0,1,1,1,0,'','Ayuda coa adordd y Mysql (Error de alias)','Saludes amigos del foro,\n\nGracias a la valiosa colaboracion de Fernando quien me envio las lib de adordd para xharbour compile sin problemas, pero al ejecutarse el browse no me reconoce el alias, yo tengo una BD en Mysql que se llama Personal1 y en ella una tabla que se llama maestro y el browse no la reconoce, alguna ayuda o aclaracion ?\n\nel codigo que compilo es :\n\n//===========================\nstatic function browRST()\n//===========================\n\nPublic oDlg,oBrw\n\nUSE \"Personal1\" VIA \"ADORDD\" TABLE \"MAESTRO\" MYSQL ;\n       FROM \"localhost\" USER \"root\" PASSWORD \"1234\"\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS MAESTRO-&gt;codigo, ;\n                                           MAESTRO-&gt;nombre, ;\n                                           MAESTRO-&gt;salario ;\n          HEADERS    \"Codigo\",\"Nombre \",\"Salario\" ;\n          FIELDSIZES 60,200,60 ;\n          SIZE 284, 137 OF oDlg\n\n   @154,08  BTNBMP LEFT PROMPT \" Agregar\"    SIZE 50,19 OF oDlg FILENAME \"NEW1.BMP\"       ACTION oDlg:End()\n   @154,67  BTNBMP LEFT PROMPT \" Modificar\"  SIZE 50,19 OF oDlg FILENAME \"CARDF00C.BMP\"   ACTION oDlg:End()\n   @154,125 BTNBMP LEFT PROMPT \" Borrar\"     SIZE 50,19 OF oDlg FILENAME \"BORRAR1.BMP\"    //ACTION BorraU(oLbx )\n   @154,184 BTNBMP LEFT PROMPT \" Buscar\"     SIZE 50,19 OF oDlg FILENAME \"FIND.BMP\"       //ACTION BuscaU(oLbx,3,\"Color\")\n   @154,242 BTNBMP LEFT PROMPT \" Salir\"      SIZE 50,19 OF oDlg FILENAME \"SALIR3.BMP\"     ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   CLOSE DATABASES\n\nRETURN NIL\n\ny el error que me manda es el siguiente :\n\nApplication\n===========\n   Path and name: C:\\sistemas\\RRHH_32\\personal.exe (32 bits)\n   Size: 1,460,224 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 08/05/2007, 17:24:01\n   Error description: Error BASE/1002  Alias does not exist: MAESTRO\n\nStack Calls\n===========\n   Called from: personal.prg =&gt; (b)BROWRST(547)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:DEFAULT(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:TWBROWSE(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; BROWRST(555)\n   Called from: personal.prg =&gt; (b)CREAMENU(121)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: personal.prg =&gt; PRINCIPAL(74)\n\nSystem\n======\n   CPU type: Intel(R) Celeron(R) M processor         1.60GHz 1600 Mhz\n   Hardware memory: 447 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n\nAgradezco como siempre la ayuda de todos los amigos del foro\n\n\nRamon Paredes \nManagua, Nicaragua','',0,'','32d6g5u9',1,0,'',935,0,0),(31417,6861,7,840,0,'190.76.8.193',1178667816,1,0,1,1,1,0,'','','antonio,\n\n\ncreo que consegui la intruccion en el b.bat para cambiar GTWIN.LIB\nPOR GTGUI.LIB.\n\nPERO NO FUNCIONO.\n\nCREO QUE USTEDES HICIERON CAMBIOS RADICALES EN EL FWPPC\nPOR LO CUAL NO ESTA COMPATIBLE.\n\nME TENDRIAS QUE ENVIAR\n\nEl cambio en el enlazador o.\n\nEl fwppc, el vce y harbour_ce o lo que tu creas que haga falta.\n\nporque ya no puedo compilar ningun programa ejemplo tutor01.\n\n\nsaludos.\n\ndario ferreira','',0,'','op1qmazi',1,0,'',840,0,0),(31418,6861,7,2,0,'87.218.146.91',1178668401,1,0,1,1,1,1,'','','Dario,\n\nLos cambios no han sido en FWPPC, sino en Harbour que ha pasado de modo C++ a modo C.\n\nSi le quitas el parámetro /TP al llamar al compilador clarm.exe deberías poder construir los ejemplos.\n\nInténtalo y si te da errores, ponlos aqui. Gracias,','',0,'','31c9ghkf',1,0,'',2,0,0),(31419,6948,6,2,0,'87.218.146.91',1178668509,1,0,1,1,1,1,'','','Te falta especificar la claúsula ALIAS:\n\nUSE \"Personal1\" VIA \"ADORDD\" TABLE \"MAESTRO\" MYSQL ;\nFROM \"localhost\" USER \"root\" PASSWORD \"1234\" ALIAS \"MAESTRO\"','',0,'','q8h71p4y',1,0,'',2,0,0),(31420,6861,7,840,0,'190.76.8.193',1178670247,1,0,1,1,1,0,'','','antonio,\nelimine el directorio harbour_ce, y lo instale de nuevo con el que me mandaste.\n\ny modifique el bb.bat de esta manera, como me recomendaste.\n\n\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for Pocket PC - September 2006           Harbour development power ³Ü\nECHO ³ (c) FiveTech, 1993-2006                    for Microsoft Windows Pocket PC ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\harbour_CE\nset vcdir=c:\\vce\nset include=%vcdir%\\include\\arm;%hdir%\\include;%include%\nset lib=%vcdir%\\lib;%hdir%\\lib;%lib%\n\n%hdir%\\bin\\harbour %1 /n /i..\\include;%hdir%\\include /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\nrem %vcdir%\\bin\\clarm -TP -W3 -c /DARM /DUNICODE /I%hdir%\\include /I..\\include %1.c\n\n[color=red:1oe0kz8u]hice el cambio aqui[/color:1oe0kz8u]\n\n%vcdir%\\bin\\clarm  -W3 -c /DARM /DUNICODE /I%hdir%\\include /I..\\include %1.c\n\n:ENDCOMPILE\n\nIF EXIST %1.rc %vcdir%\\bin\\rc -r -d_CE %1\n\necho %1.obj  &gt; msvc.tmp\n\necho C:\\FWPPC\\lib\\FiveCE.lib C:\\FWPPC\\lib\\FiveCEC.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\rtl.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\vm.lib  &gt;&gt; msvc.tmp\n\n[color=red:1oe0kz8u]hice el cambio aqui[/color:1oe0kz8u]\n\necho %hdir%\\lib\\gtgui.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\lang.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\macro.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\rdd.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\dbfntx.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\dbfcdx.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\dbffpt.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\hbsix.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\debug.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\common.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\pp.lib  &gt;&gt; msvc.tmp\necho %hdir%\\lib\\codepage.lib  &gt;&gt; msvc.tmp\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads.lib &gt;&gt; msvc.tmp\nrem echo %hdir%\\lib\\ace32.lib &gt;&gt; msvc.tmp\n\necho %vcdir%\\lib\\arm\\coredll.lib   &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\corelibc.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\aygshell.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\ws2.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\mfcce400.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\ole32.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\ceshell.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\commctrl.lib  &gt;&gt; msvc.tmp\necho %vcdir%\\lib\\arm\\wininet.lib  &gt;&gt; msvc.tmp\n\nIF EXIST %1.res echo %1.res &gt;&gt; msvc.tmp\n\n%vcdir%\\bin\\link @msvc.tmp /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM\n\nrem delete temporary files\n@del %1.c\n@del %1.obj\n@del %1.exp\n@del %1.lib\n@del %1.ppo\n@del msvc.tmp\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\nGOTO EXIT\nECHO\n\n:LINKERROR\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n\n\n\nl[color=red:1oe0kz8u]luego lo compile y me dio este error[/color:1oe0kz8u]\n \n\n**********************************************\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\' and generating preprocessed output to \'tutor01.ppo\'...\nLines 12, Functions/Procedures 1\nGenerating C source output to \'tutor01.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\ntutor01.c\n   Creating library tutor01.lib and object tutor01.exp\ntutor01.obj : error LNK2001: unresolved external symbol HB_FUN_MSGINFO\ncommon.lib(hbgete.obj) : error LNK2019: unresolved external symbol GetEnvironmen\ntVariable referenced in function hb_getenv\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol AnsiToWide\nrtl.lib(errorint.obj) : error LNK2019: unresolved external symbol AnsiToWide ref\nerenced in function hb_conOutErr\nrtl.lib(console.obj) : error LNK2001: unresolved external symbol AnsiToWide\nrtl.lib(filesys.obj) : error LNK2019: unresolved external symbol AnsiToWide refe\nrenced in function hb_fsOpen\nrtl.lib(fstemp.obj) : error LNK2001: unresolved external symbol AnsiToWide\nrtl.lib(filesys.obj) : error LNK2019: unresolved external symbol SetCurrentDirec\ntory referenced in function hb_fsChDir\nrtl.lib(filesys.obj) : error LNK2019: unresolved external symbol GetCurrentDirec\ntory referenced in function hb_fsCurDirBuff\nrtl.lib(seconds.obj) : error LNK2019: unresolved external symbol GetProcessTimes\n referenced in function hb_secondsCPU\nrtl.lib(fstemp.obj) : error LNK2019: unresolved external symbol WideToAnsi refer\nenced in function hb_fsTempName\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol WideToAnsi\nrtl.lib(hbffind.obj) : error LNK2019: unresolved external symbol GetVolumeInform\nation referenced in function hb_fsFindNextLow\nvm.lib(main.obj) : error LNK2019: unresolved external symbol GPFStack referenced\n in function WinMain\nrtl.lib(gttone.obj) : error LNK2019: unresolved external symbol _inp referenced\nin function hb_Inp9x\nrtl.lib(gttone.obj) : error LNK2019: unresolved external symbol _outp referenced\n in function hb_Outp9x\nrtl.lib(gttone.obj) : error LNK2019: unresolved external symbol Beep referenced\nin function hb_gt_wNtTone\ntutor01.exe : fatal error LNK1120: 12 unresolved externals\n* Application successfully built[color=red:1oe0kz8u][/color[color=red][/color:1oe0kz8u]','',0,'Bg==','1oe0kz8u',1,0,'',840,0,0),(31421,6861,7,2,0,'87.218.146.91',1178670928,1,0,1,1,1,1,'','','Dario,\n\nUsa las librerías que te vamos a enviar por email, gracias','',0,'Bg==','2no5bmmx',1,0,'',2,0,0),(31422,6815,6,1049,0,'69.19.14.43',1178671439,1,0,1,1,1,0,'','Probando ADORDD','Felicidades por este gran trabajo.\n\nya probe esta libreria,  mi pregunta es si solamente funciona compilando la aplicacion con FiveWin ?,  o sea, no es posible usar esta libreria solo con  (x)harbour nada mas?, o forzosamente hay que enlazar la libreroa FIveWin?\n\nSaludos\nAtte\n\nMauro S.\n\nsaludos desde Veracruz, Mexico','',0,'Bg==','2zqyocxv',1,0,'',1049,0,0),(31423,6949,6,53,0,'189.139.98.85',1178671748,1,0,1,1,1,1,'','oPrn:SETSIZE() no me funciona','Amigos:\n\nNecesito imprimir etiquetas con código de barras, el tamaño de la etiqueta es de 6.5 cms de ancho por 2.5 cms de alto.\n\nCómo puedo indicarle a la clase TPrinter este pequeño tamaño ????\n\nHe probado con oPrn:SetSize pero no funciona.\n\nSaludos, Armando','',0,'Bg==','1yaxma7b',1,0,'',53,0,0),(31424,6815,6,1049,0,'69.19.14.43',1178672331,1,0,1,1,1,0,'','Error al compilar con harbour','Hola Antonio, baje el harbour.exe de tu pagina, y copie en las carpetas  LIB e INCLUDE los archivos de ADORDD ( adordd.lib , usrrdd.lib y hboleaut.lib,  adordd.ch y usrrdd.ch \n\ny compile el ejemplo hello.prg  en el cual le agrege las lineas de :\n#include \"adordd.ch\"\n#include \"usrrdd.ch\"\nREQUEST ADORDD \n\nfunction main()\n   .\n   .\n  .\nreturn nil\n\ny al compilar con   build  hello, me da los siguientes errores\n\nCompiling...\nHarbour devel build 1.1-0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'hola2.prg\' and generating preprocessed output to \'hola2.ppo\'...\n\n100\n\n100\n\n200\n\n300\n\nLines 527, Functions/Procedures 1\nGenerating C source output to \'hola2.c\'... Done.\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nhola2.c:\n* \nLinking...\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from C:\\HARBOUR\\LIB\\RTL.LIB|gtsys\nError: Unresolved external \'_HB_FUN_TOLEAUTO\' referenced from C:\\HARBOUR\\LIB\\ADORDD.LIB|adordd\n\nSaludos\nMauro S.','',0,'Bg==','2s560yqo',1,0,'',1049,0,0),(31425,6861,7,840,0,'190.76.8.193',1178673370,1,0,1,1,1,0,'','','antonio.\n\n\ncopie las librerias que me mandaste al directorio FWPPC\\LIB\nY fueron reemplazadas por las nuevas.\n\ncompile de nuevo y me da error.\n\n******************************\nCompiling...\nHarbour Compiler Alpha build 46.2 (Flex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\' and generating preprocessed output to \'tutor01.ppo\'...\nLines 12, Functions/Procedures 1\nGenerating C source output to \'tutor01.c\'... Done.\nMicrosoft (R) C/C++ Optimizing Compiler Version 12.20.9615 for ARM\nCopyright (C) Microsoft Corp 1984-2002. All rights reserved.\n\ntutor01.c\n   Creating library tutor01.lib and object tutor01.exp\n* Application successfully built\n\nC:\\FWPPC\\SAMPLES&gt;\n\n********************************\n\n[color=orange:dknlv6w8]te recomendaria que me mandaras el B.BAT o toto el fwppc que este funcionando bien.[/color:dknlv6w8]\n\nsaludos \ndario ferreira','',0,'Ag==','dknlv6w8',1,0,'',840,0,0),(31426,6950,7,431,0,'190.142.49.2',1178688258,1,0,1,1,1,1,'','BROWSE DESDE FOLDER','Necesito crear un folder que algunos de los dialogos tengan listbox tomo el ejemplo testfld y le añado una pestaña mas con un listbox y me genera el siguiente error :\nCan´t create dialogbox y despues me dice que no esta Identificado el control \nNon defined Id No. 10\naqui esta el codigo fuente\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, cValue, cText := \"Hello world!\"\n\n   DEFINE WINDOW oWnd TITLE \"Folders\"\n\n   @ 0.5, 1 FOLDER oFld PROMPTS \"One\", \"Two\" , \"Three\" ;\n      DIALOGS \"sub1\", \"sub2\" , \"sub3\" ;\n      SIZE 225, 245\n\n   REDEFINE COMBOBOX cValue ID 100 OF oFld:aDialogs[ 1 ] ;\n      ITEMS { \"Red\", \"Green\", \"Blue\" }\n\n   REDEFINE BUTTON ID 110 OF oFld:aDialogs[ 1 ] ACTION MsgInfo( \"click\" )\n\n   REDEFINE BUTTON ID 120 OF oFld:aDialogs[ 1 ] ACTION MsgInfo( cValue )\n\n   REDEFINE BUTTON ID 104 OF oFld:aDialogs[ 2 ] ACTION MsgInfo( \"Second dialog\" )\n\n   REDEFINE GET cText ID 106 OF oFld:aDialogs[ 2 ] COLOR \"GR+/G\"\n\n\n   REDEFINE LISTBOX oLbx FIELDS First, Last ID 10 OF oFld:aDialogs[ 3 ]\n\n   REDEFINE BUTTON ID 130 OF oFld:aDialogs[ 3 ] ACTION MsgInfo( \"click\" )\n   REDEFINE BUTTON ID 140 OF oFld:aDialogs[ 3 ] ACTION MsgInfo( \"click\" )\n   REDEFINE BUTTON ID 150 OF oFld:aDialogs[ 3 ] ACTION MsgInfo( \"click\" )\n   REDEFINE BUTTON ID 160 OF oFld:aDialogs[ 3 ] ACTION MsgInfo( \"click\" )\n   REDEFINE BUTTON ID 170 OF oFld:aDialogs[ 3 ] ACTION MsgInfo( \"click\" )\n   REDEFINE BUTTON ID 180 OF oFld:aDialogs[ 3 ] ACTION MsgInfo( \"click\" )\n\n\n   oFld:InitDialogs() // required to initialize the resources dialogs !\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n\ny este el añadido al .rc\nsub3 DIALOG 18, 18, 129, 128\nSTYLE WS_CHILD | 4\n{\n CONTROL \"\", 10, \"TWBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 3, 5, 122, 64\n PUSHBUTTON \"&amp;Incl.\", 130, 2, 72, 17, 14\n PUSHBUTTON \"&amp;Borr.\", 140, 20, 72, 17, 14\n PUSHBUTTON \"&amp;Copia\", 150, 38, 72, 17, 14\n PUSHBUTTON \"&amp;Ver  \", 160, 56, 72, 17, 14\n PUSHBUTTON \"&amp;Total\", 170, 74, 72, 17, 14\n PUSHBUTTON \"&amp;Salir\", 180, 92, 72, 17, 14\n}\n\nsi comento el TWBrowse en el RC y el REDEFINE del mismo en el PRG si me muestra la pestaña los botones.\nen conclusion deseo mostrar en pestañas TWBrowse que debo hacer.\n\nde antemano muchas Gracias.','',0,'','os4t6ino',1,0,'',431,0,0),(31427,6899,3,31,0,'195.182.84.105',1178689434,1,0,1,1,1,1,'','Re: ActiveX for Word','[quote=&quot;Vikthor&quot;:cwx8x13h]Rimantas :\n\nI wrote TExcelS class and re-write TWord class using TOleAuto and xHarbour and works excelent.\n\nIf you wish can I send you.\n[/quote:cwx8x13h]\n\n   Vikthor , I\'ll be very thankfull for you . This solution isn\'t ActiveX , but it will be better than nothing ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . I\'m using Excels TOleAuto solution and that work very good , so it can change ActiveX . \n\n   With best regards ! Rimantas','',0,'gA==','cwx8x13h',1,0,'',31,0,0),(31428,6932,6,131,0,'194.179.55.36',1178690603,1,0,1,1,1,0,'','','Muchas gracias Alfredo, funciona perfecto.\nAprovecho para decirte que estoy usando tu clase TGraph y es una auténtica maravilla. Gracias otra vez.\n\nJosé Luis','',0,'gA==','2k730ff7',1,0,'',131,0,0),(31429,6949,6,838,0,'80.34.222.112',1178693947,1,0,1,1,1,0,'','','Hola Armando\n\n\nSi utilizas Barlib, por ejemplo para Ean13 es así\n	    @ nLIz, nCIz ean13 ccodigo width npix size nlongi of oPrn banner\n\ny los códigos de barra yo los he generado de 1 cm x 1 cm.\nmira éste programa que hice hace mucho tiempo y juega con las medidas:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029f9c3d56/BARRAS.ZIP.html\">http://hyperupload.com/download/029f9c3 ... S.ZIP.html</a><!-- m -->\n\nSaludos\n\nJose Luis','',0,'gA==','3op5kgnn',1,0,'',838,0,0),(31430,6861,7,2,0,'87.218.146.91',1178694784,1,0,1,1,1,1,'','','En el mensaje anterior no hay ningún error.\n\nCual es el error ?','',0,'gA==','2irzyiup',1,0,'',2,0,0),(31431,6950,7,2,0,'87.218.146.91',1178695047,1,0,1,1,1,1,'','','Mario,\n\nPrueba a incluir esta línea en el PRG:\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\nlocal oWnd, cValue, cText := \"Hello world!\"\n\nDEFINE WINDOW oWnd TITLE \"Folders\"\n\n[color=red:ubjqtnvw]TWBrowse()[/color:ubjqtnvw]\n\n@ 0.5, 1 FOLDER oFld PROMPTS \"One\", \"Two\" , \"Three\" ;\nDIALOGS \"sub1\", \"sub2\" , \"sub3\" ;\nSIZE 225, 245\n\n...','',0,'Ag==','ubjqtnvw',1,0,'',2,0,0),(31432,6859,3,130,0,'141.51.32.24',1178696685,1,0,1,1,1,0,'','','Charles,\n\nthe link gives an error 404-object not found','',0,'Ag==','3o7zb9t8',1,0,'',130,0,0),(31433,6814,3,2,0,'87.218.146.91',1178700293,1,0,1,1,1,1,'','','[code:2iuoutx0]\n2007-05-09 10&#58;41 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     + New functions HB_AdoRddGetConnection&#40; &#91;&lt;nWorkArea&gt;&#93; &#41; --&gt; oAdoConnection\n       and HB_AdoRddGetCatalog&#40; &#91;&lt;nWorkArea&gt;&#93; &#41; --&gt; oAdoCatalog\n[/code:2iuoutx0]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','2iuoutx0',1,0,'',2,0,0),(31434,6815,6,2,0,'87.218.146.91',1178700377,1,0,1,1,1,1,'','','[code:3nyvrqgf]\n2007-05-09 10&#58;41 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     + New functions HB_AdoRddGetConnection&#40; &#91;&lt;nWorkArea&gt;&#93; &#41; --&gt; oAdoConnection\n       and HB_AdoRddGetCatalog&#40; &#91;&lt;nWorkArea&gt;&#93; &#41; --&gt; oAdoCatalog\n[/code:3nyvrqgf]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','3nyvrqgf',1,0,'',2,0,0),(31435,6815,6,2,0,'87.218.146.91',1178700496,1,0,1,1,1,1,'','','Mauro,\n\nAdoRdd.lib no necesita FiveWin. Aunque puede usarse con FiveWin, si se desea.\n\nTienes que enlazar la librería hboleaut.lib que se incluye en el fichero ZIP, y has de enlazar hbgui.lib en vez de gtwin.lib si vas a usar FiveWin. Para modo texto, sin FiveWin, tienes que enlazar gtwin.lib','',0,'AIA=','3uo4p68d',1,0,'',2,0,0),(31436,6814,3,2,0,'87.218.146.91',1178701061,1,0,1,1,1,1,'','','[code:11s6zm1u]\n2007-05-09 10&#58;55 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     + Added function HB_AdoRddGetRecordSet&#40; &#91;&lt;nWorkArea&gt;&#93; &#41; --&gt; oAdoRecordset\n[/code:11s6zm1u]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','11s6zm1u',1,0,'',2,0,0),(31437,6815,6,2,0,'87.218.146.91',1178701079,1,0,1,1,1,1,'','','[code:27xe3ggd]\n2007-05-09 10&#58;55 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     + Added function HB_AdoRddGetRecordSet&#40; &#91;&lt;nWorkArea&gt;&#93; &#41; --&gt; oAdoRecordset\n[/code:27xe3ggd]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','27xe3ggd',1,0,'',2,0,0),(31438,6947,6,2,0,'87.218.146.91',1178702654,1,0,1,1,1,1,'','','&gt; solo se ve un pantallaso y es todo\n\nQue es lo que se ve ?','',0,'AIA=','pu6g027y',1,0,'',2,0,0),(31439,6951,7,600,0,'195.66.150.52',1178703634,1,0,1,1,1,0,'','Identificador del PPC','Buenas, sabría decirme alguien si existe alguna funcion que me de el nombre del PPC.\n\nMuchas gracias.\nJuan José','',0,'AIA=','mh8b4wgo',1,0,'',600,0,0),(31440,6952,3,972,0,'81.164.49.37',1178704202,1,0,1,1,1,0,'','Can not use resources with _ (Underscore)','Hello,\n\nWe have a very interesting problem with [b:3qhujscw]Microsoft Compatibe[/b:3qhujscw] DLL files build from resources. If we compile the resource file with Borland, the problem goes away.\n\nIf we use a _ (underscore) in a resource name, and there is another resource name that begins with the same letter as the one with the _ in it, the app crashes if the resource name is a dialog or does not show the bitmap if the resource is a bitmap.\nWe found out that this is because the app can not find the resource name without the _ in it if there is a resource that starts with the same letter.\n\nFor example:\n[u:3qhujscw]This does NOT work:[/u:3qhujscw]\nIN_DBFYES\nINSERT -&gt; Starts with IN\n\n[u:3qhujscw]This works:[/u:3qhujscw]\nIN_DBFYES\nNOINSERT -&gt; Works because this resource name does NOT start with IN\n\nThis is the source for a reduced sample:\n\nPRG:[code:3qhujscw]#include &quot;FiveWin&#46;ch&quot;\n\nFunction Test_Resource&#40;&#41;\n   LOCAL oDlg, oBmp\n   \n   SET RESOURCES TO &quot;Test&#46;dll&quot;\n\n   DEFINE DIALOG oDlg TITLE &quot;Dll problem&quot; FROM 0,0 TO 200,500 PIXEL\n\n   @ 10,10  IMAGE oBmp RESOURCE &quot;INSERT&quot;    SIZE 20, 20 PIXEL OF oDlg        \n   @ 10,40  IMAGE oBmp RESOURCE &quot;CHANGE&quot;    SIZE 20, 20 PIXEL OF oDlg      \n   @ 10,70  IMAGE oBmp RESOURCE &quot;IN_DBFNO&quot;  SIZE 20, 20 PIXEL OF oDlg      \n   @ 10,100 IMAGE oBmp RESOURCE &quot;IN_DBFYES&quot; SIZE 20, 20 PIXEL OF oDlg      \n                                     \n   ACTIVATE DIALOG oDlg CENTERED      \n   \nRETURN NIL\n[/code:3qhujscw]\n\nRC:\n[code:3qhujscw]IN_DBFYES     BITMAP             &quot;BITMAPS\\\\IN_DBF_YES&#46;BMP&quot;   \nIN_DBFNO      BITMAP             &quot;BITMAPS\\\\IN_DBF_NO&#46;BMP&quot;    \n\nINSERT        BITMAP             &quot;BITMAPS\\\\INSERT&#46;BMP&quot;       \nCHANGE        BITMAP             &quot;BITMAPS\\\\CHANGE&#46;BMP&quot;\n[/code:3qhujscw]\n\nTo download the source to build this test app, please download\n[url:3qhujscw]http&#58;//s194970364&#46;onlinehome&#46;us/Test_resource&#46;zip[/url:3qhujscw]\n\nWe are puzzled why this works with a Borland compiled DL, and NOT with a Microsoft build DLL.\n\nCan someone confirm, or even better, is there a solution or bugfix for this? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nThanks!\n\nPatrick Mast','',0,'UYA=','3qhujscw',1,0,'',972,0,0),(31441,6952,3,2,0,'87.218.146.91',1178704624,1,0,1,1,1,1,'','','Patrick,\n\nTry to write the resources this way:\n\nIN_DBFYES     BITMAP             \"BITMAPS/IN_DBF_YES.BMP\"    \nIN_DBFNO      BITMAP             \"BITMAPS/IN_DBF_NO.BMP\"    \n\nINSERT        BITMAP             \"BITMAPS/INSERT.BMP\"        \nCHANGE        BITMAP             \"BITMAPS/CHANGE.BMP\"','',0,'UYA=','246s0ke9',1,0,'',2,0,0),(31442,6952,3,2,0,'87.218.146.91',1178704847,1,0,1,1,1,1,'','','Patrick,\n\nYou may also (binary) compare the RES files from Borland and Microsoft to check what the differences are','',0,'UYA=','3kt3zevm',1,0,'',2,0,0),(31443,6953,3,29,0,'88.149.162.158',1178705826,1,0,1,1,1,0,'','xBrowse and current column','Hi,\nis there any way to know what is the absolute number of the column ?\n\nUsing the method oBrw:nColSel I can only know the number of the column based on the current display.\n\nThanks\n\nBest Regards,\n\nMarco Turco','',0,'UYA=','2hu4pyzh',1,0,'',29,0,0),(31444,6954,7,600,0,'195.66.150.52',1178705973,1,0,1,1,1,0,'','Abriendo ficheros','Es posible tener la aplicacion instalada en Archivosd de Programa y las dbf en Mis documentos del PPC ?\n\nCOmo tendria que poner el camino para poder abrir esos ficheros ?\n\nUn saludo\nJuan Jose','',0,'UYA=','qev9bb5g',1,0,'',600,0,0),(31445,6954,7,2,0,'87.218.146.91',1178707120,1,0,1,1,1,1,'','','\"\\My Documents\\Mi.dbf\"','',0,'UYA=','z129v2r3',1,1178707641,'',2,1,0),(31446,6954,7,456,0,'217.127.39.57',1178707544,1,0,1,1,1,1,'','','[code:3bq5bhs4]   SET&#40; _SET_DEFAULT, \'\\My Documents\\\'&#41;[/code:3bq5bhs4]','',0,'AIA=','3bq5bhs4',1,0,'',456,0,0),(31447,6954,7,600,0,'195.66.150.52',1178707732,1,0,1,1,1,0,'','','Antonio, me refiero a que los ficheros se encuentran en Mis Documentos del ppc.\n\nSaludos\nJuan Jose','',0,'AIA=','q30oxf8a',1,0,'',600,0,0),(31448,6954,7,600,0,'195.66.150.52',1178707959,1,0,1,1,1,0,'','','Vale, gracias\n\nUn saludo','',0,'AIA=','1yyh4bq9',1,0,'',600,0,0),(31449,6952,3,972,0,'81.164.49.37',1178708826,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1pdkelzg]Patrick,\n\nTry to write the resources this way:\nIN_DBFYES     BITMAP             \"BITMAPS/IN_DBF_YES.BMP\"    \nIN_DBFNO      BITMAP             \"BITMAPS/IN_DBF_NO.BMP\"    \nINSERT        BITMAP             \"BITMAPS/INSERT.BMP\"        \nCHANGE        BITMAP             \"BITMAPS/CHANGE.BMP\"[/quote:1pdkelzg]\nNo.. It does not fix it.\n\nPatrick','',0,'gA==','1pdkelzg',1,0,'',972,0,0),(31450,6952,3,2,0,'87.218.146.91',1178709364,1,0,1,1,1,1,'','','Patrick,\n\nHave you binary compared the two RES files ?','',0,'gA==','1lf5pork',1,0,'',2,0,0),(31451,6952,3,972,0,'81.164.49.37',1178709730,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:h7xbpedk]Have you binary compared the two RES files ?[/quote:h7xbpedk]Yes, and they have a few bytes difference. You can download both BCC and MSVC build DLL, MAP, RC and RES from here:\n<!-- m --><a class=\"postlink\" href=\"http://s194970364.onlinehome.us/Test_resource_.dll.zip\">http://s194970364.onlinehome.us/Test_resource_.dll.zip</a><!-- m --> (32KB)\n\nThose RES files are binary files, so, I only \"See\" differences, WHAT they are, I have no clue <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nI also tried to build the MSVC DLL with Resource Builder form <!-- m --><a class=\"postlink\" href=\"http://www.resource-builder.com\">http://www.resource-builder.com</a><!-- m --> but it has the same problem. So, it seems it\'s not the \"building\" itself that\'s the problem, but maybe the reading of the DLL by the EXE?\n\nPatrick','',0,'gA==','h7xbpedk',1,0,'',972,0,0),(31452,6952,3,2,0,'87.218.146.91',1178710691,1,0,1,1,1,1,'','','Patrick,\n\nHave you tried to place the Borland RES file into the Microsoft compatible DLL ?\n\nIf you open the RES files with PellesC, they look exactly the same except that Borland is using Dutch (Belgium) instead of English (United States)','',0,'gA==','aokd4ad3',1,0,'',2,0,0),(31453,6952,3,972,0,'81.164.49.37',1178711302,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2oe6s5g3]Have you tried to place the Borland RES file into the Microsoft compatible DLL ?[/quote:2oe6s5g3]Yes, but problem stays the same.\n\n[quote:2oe6s5g3]If you open the RES files with PellesC, they look exactly the same except that Borland is using Dutch (Belgium) instead of English (United States)[/quote:2oe6s5g3]Ok. But since it also does not work with the RES file from Borland, it seems that it\'s not the RES file.\n\nDo you think that\'s the bug is in BUILDING the DLL, or maybe in the EXE READING the DLL? I seem to be thinking its the READING? \n\nPatrick','',0,'gA==','2oe6s5g3',1,0,'',972,0,0),(31454,6952,3,2,0,'87.218.146.91',1178711595,1,0,1,1,1,1,'','','Patrick,\n\nI think the difference comes from building the DLL, as the DLL reading is performed by standard Windows API functions','',0,'gA==','3dnsbm4h',1,0,'',2,0,0),(31455,6952,3,2,0,'87.218.146.91',1178711750,1,0,1,1,1,1,'','','Patrick,\n\nPellesC IDE properly opens the Borland DLL, but fails opening the other DLL with error: \"user stopped resources enumeration\"','',0,'gA==','38opprem',1,0,'',2,0,0),(31456,6952,3,972,0,'81.164.49.37',1178711921,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3il5b73o]I think the difference comes from building the DLL, as the DLL reading is performed by standard Windows API functions[/quote:3il5b73o]Ok.\nNow, problem is, I build the MSVC Compatible Testdll with xHarbour Builder AND for test also with Resoure Builder, and they both show the same problem.\n\nAny more ideas?\n\nPatrick','',0,'gA==','3il5b73o',1,0,'',972,0,0),(31457,6952,3,2,0,'87.218.146.91',1178712010,1,0,1,1,1,1,'','','Have you tried to build the DLL using MSVC ?','',0,'gA==','1z17qm8x',1,0,'',2,0,0),(31458,6937,1,434,0,'207.35.2.80',1178713651,1,0,1,1,1,0,'','error.log','Hello Antonio, \n\nFollowing is the error.log that I get when using MsgLogo...\n\nIt\'s been a while since I have touched FiveWin... I had other duties. But I am back doing what I love. I will try not to bug you too much.  \n\nThank You for your fast reply...   \n\nBest Regards. \n\nGino Siviero \n\n<!-- e --><a href=\"mailto:GinoSiviero@kahnawake-edu.org\">GinoSiviero@kahnawake-edu.org</a><!-- e -->\n\n**************ERROR.LOG******************\nApplication\n===========\n   Path and name: C:\\FW28\\SAMPLES\\KEDKAP.EXE (16 bits)\n   Size: 1,056,512 bytes\n   Max files handles permited: ( SetHandleCount() ) 100\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 05/09/07, 08:13:41\n   Error description: Error BASE/1068  Argument error: array access\n   Args:\n     [   1] = N   1218989820\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from TBITMAP:LOADIMAGE(0)\n   Called from TBITMAP:NEW(0)\n   Called from MSGLOGO(0)\n   Called from MAIN(176)\n\nSystem\n======\n   CPU type: Pentium\n   Hardware memory: 2047 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Clipper (R) 5.3 Intl.\n   Windows and MsDos versions: 3.95, 5.0\n\n   Windows total applications running: 4\n      1 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      2 PRINTKEY.EXE\n      3 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      4 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   TBITMAP:LOADIMAGE\n     Param   1:    U    \n     Param   2:    C    \"Magic.bmp\"\n     Local   1:    O    Class: TBITMAP\n     Local   2:    L    .F.\n     Local   3:    N    0\n     Local   4:    N    0\n     Local   5:    N    1218989820\n     Local   6:    U    \n     Local   7:    O    Class: TBITMAP\n     Local   8:    N    1218989820\n   TBITMAP:NEW\n     Param   1:    N    0\n     Param   2:    N    0\n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    C    \"Magic.bmp\"\n     Param   7:    L    .F.\n     Param   8:    O    Class: TDIALOG\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    L    .F.\n     Param  12:    L    .F.\n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    L    .F.\n     Param  16:    U    \n     Param  17:    L    .F.\n     Param  18:    U    \n     Param  19:    L    .F.\n     Local   1:    O    Class: TBITMAP\n   MSGLOGO\n     Param   1:    C    \"Magic.bmp\"\n     Param   2:    N    6\n     Local   1:    O    Class: TDIALOG\n     Local   2:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    N    53\n     Local   6:    N    1024\n     Local   7:    N    768\n     Local   8:    C    \"1024\"\n     Local   9:    C    \"768\"\n     Local  10:    C    \"This SoftWare Is Optimized For A Resolution Of 800 X 600 Pixels...\"\n     Local  11:    C    \"   For Best Results, Please Adjust Your Display Settings Accordingly...\"\n     Local  12:    C    \"Optimization Detection       1024  X  768\"\n     Local  13:    C    \"Accounts Payable 2007\"\n     Local  14:    N    190\n     Local  15:    N    360\n\nLinked RDDs\n===========\n   _DBFCDX\n   DBF\n   DBFNTX\n   DBFCDX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 TWINDOW','',0,'','37kyezoi',1,0,'',434,0,0),(31459,6815,6,131,0,'194.179.55.36',1178713743,1,0,1,1,1,0,'','','Hola:\nAlguien podría poner unas directrices para usar adordd en xharbour. \nHe hecho esto:\n1.- Recompilar adordd.prg con xHarbour\n2.- Compilar el ejempli access1.prg con xHarbour\n3.- Enlazar access1.obj junto con adordd.obj y las demás librerías de xHarbour y FWH que uso normalmente, más la usrrdd.lib que viene con xHarbour. No enlazo hboleaut.lib pues pienso que no hace falta.\n\nY me  da este mensaje de error\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from:  =&gt; ADO_OPEN(244)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: access1.prg =&gt; MAIN(8)\n\n¿?\n\nSaludos,','',0,'','2kaep38c',1,0,'',131,0,0),(31460,6944,6,41,0,'200.105.194.235',1178714213,1,0,1,1,1,0,'','','Hola,\n\nañade oCbx:refill() luego de cambiar el alias\n\nsaludos\n\nMarcelo','',0,'','2eczz2v4',1,0,'',41,0,0),(31461,6815,6,2,0,'87.218.146.91',1178714225,1,0,1,1,1,1,'','','Jose Luis,\n\nLo estas haciendo bien, lo que ocurre es que se ha cambiado el contenido de Test.mdb, asi que tienes que cambiar esta línea en access1.prg:\n\n   USE Test.mdb VIA \"ADORDD\" TABLE \"Customers\"','',0,'','3fr6381x',1,0,'',2,0,0),(31462,6937,1,2,0,'87.218.146.91',1178714475,1,0,1,1,1,1,'','','Gino,\n\nPlease check that you have this source code in source\\classes\\bitmap.prg:\n[code:7q4acmey]\nMETHOD LoadImage&#40; cResName, cBmpFile &#41; CLASS TBitmap\n\n   local lChanged &#58;= &#46;f&#46;\n   local hBmpOld  &#58;= &#58;&#58;hBitmap\n   local hPalOld  &#58;= &#58;&#58;hPalette\n   local aBmpPal\n\n   DEFAULT cResName &#58;= &#58;&#58;cResName, cBmpFile &#58;= &#58;&#58;cBmpFile\n\n   if ! Empty&#40; cResName &#41;\n       aBmpPal    = PalBmpLoad&#40; cResName &#41;\n       &#58;&#58;hBitmap  = aBmpPal&#91; 1 &#93;\n       &#58;&#58;hPalette = aBmpPal&#91; 2 &#93;\n       lChanged  &#58;= &#46;t&#46;\n       cBmpFile  &#58;= nil\n\n   elseif File&#40; cBmpFile &#41;\n       aBmpPal = PalBmpRead&#40; &#58;&#58;GetDC&#40;&#41;, AllTrim&#40; cBmpFile &#41; &#41;\n       &#58;&#58;hBitmap = aBmpPal&#91; 1 &#93;\n       &#58;&#58;hPalette = aBmpPal&#91; 2 &#93;\n       &#58;&#58;ReleaseDC&#40;&#41;\n       lChanged  &#58;= &#46;t&#46;\n       cResName  &#58;= nil\n\n   endif\n\n   if lChanged\n\n      &#58;&#58;cResName = cResName\n      &#58;&#58;cBmpFile = cBmpFile\n\n      if ! Empty&#40; hBmpOld &#41;\n         PalBmpFree&#40; hBmpOld, hPalOld &#41;\n      endif\n\n      PalBmpNew&#40; &#58;&#58;hWnd, &#58;&#58;hBitmap, &#58;&#58;hPalette &#41;\n\n   endif\n\nreturn lChanged\n[/code:7q4acmey]\nIf not, please replace it and compile bitmap.prg as another PRG of your application','',0,'AIA=','7q4acmey',1,0,'',2,0,0),(31463,6859,3,909,0,'71.71.110.50',1178715516,1,0,1,1,1,1,'','','Sorry about that, Stefan.  I just edited the link to show the correct file name.\n\nCharles','',0,'AIA=','3kmccvr4',1,0,'',909,0,0),(31464,6952,3,972,0,'81.164.49.37',1178715800,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:32p5v3py]Have you tried to build the DLL using MSVC ?[/quote:32p5v3py]It works OK when I build the DLL with Visual Studio 2005.\n\nPatrick','',0,'gA==','32p5v3py',1,0,'',972,0,0),(31465,6861,7,840,0,'190.76.8.193',1178715917,1,0,1,1,1,0,'','','antonio,\n\n\ntienes razon no hay errores, me confundi porque antes cuando compilaba\nsalias warnist y ahora no.\n\nprove mi programa con 2003 2005 2006 y funciona la opcion shared.\n\nesto significa que las pruebas anteriores no eran error de windows \nmobile\n\nde todos modo me gustaria que me mandaras actualizacion de FWPCC\n\nmuchas gracias por tu ayuda, ahora que funciona la opcion shared\npuedo utilizar el FWPPC y empesar mi proyecto, que lo tenia parado\ndesde que compre el FWPPC.\n\nsaludos\n\nDARIO FERREIRA.','',0,'gA==','3ef6ynp5',1,0,'',840,0,0),(31466,6937,1,434,0,'207.35.2.80',1178716112,1,0,1,1,1,0,'','MsgLogo','Hello Antonio, \n\nI have the exact same code in bitmap.prg (C:FW28\\source\\classes). \n\nDo I still compile it as a program in my application ??? \n\nThank You. \n\nBest Regards. \n\nGino Siviero\n\n<!-- e --><a href=\"mailto:GinoSiviero@kahnawake-edu.org\">GinoSiviero@kahnawake-edu.org</a><!-- e -->','',0,'gA==','2247bwvi',1,0,'',434,0,0),(31467,6861,7,2,0,'87.218.146.91',1178716201,1,0,1,1,1,1,'','','El error era de Harbour no de FWPPC. Es Harbour quien se encarga del manejo de los ficheros, no FWPPC.\n\nComo te hemos explicado por email, Harbour es un compilador open source, libre, y que es desarrollado por una comunidad de programadores\n\nLas actualizaciones de FWPPC son gratuitas por dos meses, despues de ese tiempo hay que comprarlas desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> Esto se explica claramente en el email de compra de nuestros productos','',0,'gA==','3uomle6u',1,0,'',2,0,0),(31468,6937,1,2,0,'87.218.146.91',1178716508,1,0,1,1,1,1,'','','Gino,\n\nIf it is the same source code, then don\'t change or add anything.\n\nThe magic.bmp file is the one that is provided in FW\\bitmaps ? Whats the size of the BMP file ?','',0,'gA==','311bd28h',1,0,'',2,0,0),(31469,6949,6,53,0,'189.139.14.189',1178716750,1,0,1,1,1,1,'','','José Luis:\n\nMuy bonito programa, te agradezco el interes.\n\nEfectivamente estoy usando la excelente LIB de Cayetano y el problema que tengo no radica en especificar el tamaño del código de barras sino el tamaño de la etiqueta para que TPRinter salte al inicio de la siguiente despues de imprimir una, por cierto la impresora donde se usará es una ZEBRA que utiliza etiquetas en rollo.\n\n\nSaludos y nuevamente gracias por tu respuesta','',0,'gA==','vrpb86oa',1,0,'',53,0,0),(31470,6944,6,46,0,'195.8.27.49',1178718704,1,0,1,1,1,0,'','','tienes que evaluar en el onchange del combobox\n\n[code:3q3x0x08]\nREDEFINE COMBOBOX oCbx VAR cCbx ITEMS aConc ID 103 OF oDlg  UPDATE ;\n          ON CHANGE &#40; oCbx&#58;cAlias &#58;= if&#40;oCbx&#58;nAt==3,oDCos,if&#40;oCbx2&#58;nAt==4,oDCom,if&#40;oCbx&#58;nAt==5,oDGru,&#41;&#41;&#41;, ;\n                      oCbx2&#58;Update&#40;&#41; &#41;\n\nREDEFINE DBCOMBO oCbx2 VAR cCbx2 ID 104 OF oDlg ;\n               alias oDCos ; // el alias por defecto\n               itemfield &quot;CODIGO&quot; ;\n               listfield &quot;DESCRI&quot;;\n               WHEN oCbx&#58;nAt &gt; 2 &#46;AND&#46; nRad == 2 \n[/code:3q3x0x08]\n\nSalu2[/b]','',0,'AIA=','3q3x0x08',1,0,'',46,0,0),(31471,6937,1,434,0,'207.35.2.80',1178719146,1,0,1,1,1,0,'','MsgLogo','Hello Antonio, \n\nThe size is 320 X 200 Pixels... 63.5 KB...\n\nBest Regards. \n\nGino Siviero\n\n<!-- e --><a href=\"mailto:GinoSiviero@kahnawake-edu.org\">GinoSiviero@kahnawake-edu.org</a><!-- e -->','',0,'AIA=','91qix6ny',1,0,'',434,0,0),(31472,6815,6,1049,0,'69.19.14.29',1178720546,1,0,1,1,1,0,'','Aun tengo errores','Antonio, ya hice lo que me indicastes, ya se elimino un error enlzando Hboleaut.lib, pero sigue el de Gtwin.lib, aqui envio el ejemplo y el error al compilar.\n\n*  hola.prg\n\n#include \"adordd.ch\"\n\nREQUEST ADORDD\n\nfunction Main()\n\n   USE Test.mdb VIA \"ADORDD\" TABLE \"Tabla1\"\n\n   Browse()\n\n   USE\n\nreturn nil\n\n\n* build.bat\n* esto es parte del    BUILD.BAT\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\codepage.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\adordd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\usrrdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hboleaut.lib + &gt;&gt; b32.bc\n\n\n* Y ESTE ES EL RESULTADO\n\nCompiling...\nHarbour devel build 1.1-0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'hola.prg\' and generating preprocessed output to \'hola.ppo\'...\n\n100\n\nLines 168, Functions/Procedures 1\nGenerating C source output to \'hola.c\'... Done.\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nhola.c:\n* \nLinking...\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from C:\\HARBOUR\\LIB\\RTL.LIB|gtsys\n\nSaludos\n\nMauro S.','',0,'AIA=','2tbrarsh',1,0,'',1049,0,0),(31473,6929,1,173,0,'203.113.39.12',1178723778,1,0,1,1,1,0,'','Dear Antonio','Dear Antonio\n\nI do create MULTILINE of GET by Source Code. How I do ?\n\nBest Regard,\n\nPeter','',0,'AIA=','rhlvi088',1,0,'',173,0,0),(31474,6545,6,397,0,'200.204.85.226',1178724756,1,0,1,0,1,1,'','','Amigo mira:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pctoledo.com.br/forum/viewtopic.php?t=2501&amp;highlight=fivewin+errorsys\">http://www.pctoledo.com.br/forum/viewto ... n+errorsys</a><!-- m -->\n\nEs una modificacion de la original mas te serve.','',0,'AIA=','hxm03m8y',1,0,'',397,0,0),(31475,6905,6,397,0,'200.204.85.226',1178724983,1,0,1,0,1,1,'','','Arturo \n\nEstoi contente por tu aporte.\n\nmi correo es <!-- e --><a href=\"mailto:irochinha@itelefonica.com.br\">irochinha@itelefonica.com.br</a><!-- e -->\n\nSaludos de Brasil.','',0,'AIA=','2n1hmqxa',1,0,'',397,0,0),(31476,6938,6,963,0,'201.246.150.107',1178725106,1,0,0,0,1,0,'','','Arturo, lamentablemente no cuento con la clase toolbar ni rebar, y no tengo idea de cómo conseguirla, y por otra parte, estoy comenzando con esto, y no se mucho de modificar clases.\n\nSi tienes alguna sugerencia, agradecido estaré.','',0,'AIA=','1gth7m2z',1,0,'',963,0,0),(31477,6815,6,940,0,'189.157.76.253',1178725108,1,0,1,1,1,1,'','','Mauro,\n\nintenta cambiar  GtWin.lib   por GtGui.lib\n\n\nsaludos, cordiales.','',0,'AIA=','1w9xpq1d',1,0,'',940,0,0),(31478,6947,6,987,0,'189.132.8.11',1178725453,1,0,1,1,1,0,'','','Saludos Sr. Antonio Linares:\n\nVea pues en algunas versiones solo ve ve el pantallaso de una ventana DOS y en otras no, ayer presisamente me pase 4 horas haciendo puebas con varias versiones de FWH y Harbour sin tener ningun resultado, estas fueron las combinaciones que realize:\n\nHarbour Compiler Alpha build 45.0 (Flex)\nFWH 2.3c - October 2002\nResultado:= Sin Pantallaso DOS\n\nHarbour Compiler Alpha build 45.0 (Flex)\nFWH 2.5 - March 2005\nResultado:= Sin Pantallaso DOS\n\nHarbour Compiler Alpha build 45.0 (Flex)\nFWH 2.6 - April 2005\nResultado:= Sin Pantallaso DOS\n\nHarbour Compiler Alpha build 46.0 (Flex)\nFWH 2.3c - October 2002\nResultado:= Unresolved external \'_hb_objGetpMethod\' from FIVEHC.LIB | FFDLGPRC\n\nHarbour Compiler Alpha build 46.0 (Flex)\nFWH 2.5 - March 2005\nResultado:= Unresolved external \'_hb_objGetpMethod\' from FIVEHC.LIB | FFDLGPRC\n\nHarbour Compiler Alpha build 46.0 (Flex)\nFWH 2.6 - April 2005\nResultado:= Unresolved external \'_hb_objGetpMethod\' from FIVEHC.LIB | FFDLGPRC\n\nHarbour Compiler Beta build 0.99-1 Intl.\nFWH 2.3c - October 2002\nResultado:= Con Pantallaso DOS\n\nHarbour Compiler Beta build 0.99-1 Intl.\nFWH 2.5 - March 2005\nResultado:= Con Pantallaso DOS\n\nHarbour Compiler Beta build 0.99-1 Intl.\nFWH 2.6 - April 2005\nResultado:= Con Pantallaso DOS\n\nHarbour Compiler Beta build 0.99-2 Intl.\nFWH 2.3c - October 2002\nResultado:= Con Pantallaso DOS\n\nHarbour Compiler Beta build 0.99-2 Intl.\nFWH 2.5 - March 2005\nResultado:= Con Pantallaso DOS\n\nHarbour Compiler Beta build 0.99-2 Intl.\nFWH 2.6 - April 2005\nResultado:= Con Pantallaso DOS\n\nSolo de todos los ejemplos TUTOR**.PRG que vienen en la Carpeta \"SAMPLES\" de todas las versiones solo puedo correr TUTOR01.PRG el cual muestra la version ve FWH que estoy usando:\n\nMsgInfo( FWVERSION + CHR( 13 ) + FWCOPYRIGHT, FWDESCRIPTION )\n\npero todos los demas ejemplos, en los cuales se muestra una ventana principal no funcionan, que estare haciendo mal, o que falta configurar, estoy usando WinXP, ya lo intente con Win2000, WinMe y sigue sin funcionar, que más puedo hacer..? <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','37tl534q',1,0,'',987,0,0),(31479,6946,6,138,0,'80.37.11.90',1178726278,1,0,1,1,1,1,'','','Funciona exactamente igual.\n\nLas diferencias en la version 8.1 contra la version 7.1 estan en el manejo de SQL basicamente y en que el servidor ahora puede hacer los respaldos automaticamente mediante el ARC.\n\nNo hay cambios en el RDDADS ni en las funciones del ACE32.','',0,'AIA=','2j40ibyu',1,0,'',138,0,0),(31480,6955,6,935,0,'165.98.240.104',1178726968,1,0,1,1,1,0,'','Ayuda con ADORDD ( Problema con Toleauto)','Saludes amigos del foro, gracias a la valiosa ayuda de antonio, fernando william y otros he podido compilar una pequeña aplicacion sin problemas, ya reconoce el alias etc. pero ahora me presenta un error extráño, al ejecutar el siguiente codigo :\n\n//===========================\nstatic function browRST()\n//===========================\n\nPublic oDlg,oBrw\n\nUSE Personal1 VIA \"ADORDD\" TABLE \"MAESTRO\" MYSQL ;\n       FROM \"localhost\" USER \"root\" PASSWORD \"1234\"  ALIAS \"MAESTRO\"\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS MAESTRO-&gt;NUMERO, ;\n                                           MAESTRO-&gt;nombreS, ;\n                                           MAESTRO-&gt;APELLIDO1 ;\n          HEADERS    \"Codigo\",\"Nombre \",\"Salario\" ;\n          FIELDSIZES 60,200,60 ;\n          SIZE 284, 137 OF oDlg\n\n   @154,08  BTNBMP LEFT PROMPT \" Agregar\"    SIZE 50,19 OF oDlg FILENAME \"NEW1.BMP\"       ACTION oDlg:End()\n   @154,67  BTNBMP LEFT PROMPT \" Modificar\"  SIZE 50,19 OF oDlg FILENAME \"CARDF00C.BMP\"   ACTION oDlg:End()\n   @154,125 BTNBMP LEFT PROMPT \" Borrar\"     SIZE 50,19 OF oDlg FILENAME \"BORRAR1.BMP\"    //ACTION BorraU(oLbx )\n   @154,184 BTNBMP LEFT PROMPT \" Buscar\"     SIZE 50,19 OF oDlg FILENAME \"FIND.BMP\"       //ACTION BuscaU(oLbx,3,\"Color\")\n   @154,242 BTNBMP LEFT PROMPT \" Salir\"      SIZE 50,19 OF oDlg FILENAME \"SALIR3.BMP\"     ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   CLOSE DATABASES\n\nRETURN NIL\n\nme manda el siguiente error :\n\n==========\n   Path and name: C:\\sistemas\\RRHH_32\\personal.exe (32 bits)\n   Size: 1,460,224 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 09/05/2007, 10:02:06\n   Error description: Error ADODB.Recordset/16389  E_FAIL: STATUS\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:STATUS(0)\n   Called from:  =&gt; ADO_DELETED(414)\n   Called from:  =&gt; DBSKIPPER(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:SETFILTER(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:SKIP(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:PAINT(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:DISPLAY(0)\n   Called from: CONTROL.PRG =&gt; TWBROWSE:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; BROWRST(553)\n   Called from: personal.prg =&gt; (b)CREAMENU(121)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: personal.prg =&gt; PRINCIPAL(74)\n\nLa verdad ni dea que podria ser, y aprovechando la consulta tengo una duda existencial, si desde el browse activo las altas, bajas y cambios con el RDDADO cual seria la sintaxis, o tendre por cada funcion hacer lo normal con la conexion ado, addnew, etc, etc, y eliminar registros con sentencias sql,\n\nDesde siempre agradecido con toda su colaboracion, espero algun dia aportar algo al foro ( al menos a los nuevos ingresos )\n\nSaludes desde Nicaragua\nRamon Paredes','',0,'AIA=','yc5bfv59',1,0,'',935,0,0),(31481,6944,6,73,0,'200.23.18.132',1178727084,1,0,1,1,1,0,'','','gracias marcelo y renzo,\n\nya probe y no funciona, ahora me tira un error diferente, puede ser de la clase, aki pego el codigo de como lo hago:\n\nREDEFINE COMBOBOX oCbx VAR cCbx ITEMS aConc ID 103 OF oDlg      UPDATE ;\n               ON CHANGE (  oCbx2:cAlias := if(oCbx:nAt==3,oDCos,;\n                                            if(oCbx:nAt==4,oDCom,;\n                                            if(oCbx:nAt==5,oDGru,oDEqu))), ;\n                                            oCbx2:update() )\n\n   REDEFINE RADIO    oRad VAR nRad             ID 101,102 OF oDlg ;\n               WHEN oCbx:nAt &gt; 2 UPDATE\n\n   REDEFINE DBCOMBO  oCbx2 VAR cCbx2           ID 104 OF oDlg ;\n               alias oDEqu ;\n               itemfield \"CODIGO\" ;\n               listfield \"DESCRI\";\n               update WHEN oCbx:nAt &gt; 2 .AND. nRad == 2\n\ny este es el error:\n\nError description: Error BASE/2022  Argument error: ALLTRIM\n   Args:\n     [   1] = N   0\n\nStack Calls\n===========\n   Called from:  =&gt; ALLTRIM(0)\n   Called from:  =&gt; (b)SET(0)\n   Called from:  =&gt; ASCAN(0)\n   Called from:  =&gt; TDBCOMBO:SET(0)\n   Called from:  =&gt; TDBCOMBO:DEFAULT(0)\n   Called from:  =&gt; TDBCOMBO:UPDATE(0)\n   Called from: E:\\Proyectos\\Combustibles\\fuentes\\cb1500.prg =&gt; (b)IMP_CATALOGO(525)\n   Called from:  =&gt; TCOMBOBOX:CHANGE(0)\n\ngracias\npaco','',0,'','jbzciuhi',1,0,'',73,0,0),(31482,6949,6,838,0,'80.59.225.15',1178729799,1,0,1,1,1,0,'','','Armando\nComo podrás comprobar en el programa, hay unos get para el tamaño de la etiqueta y otros para el tamaño de las barras.\nBien, pues el tamaño que pudes poner es en cm. y admite cualquier tamaño, puedes poner por ejemplo tamaño de la etiqueta Alto 6.5 cm, Ancho 1.5 cm, le pones en grueso de la barra 0.02, y el alto de la barra 1, y te hace las etiquetas que le digas, o que tengas en una BD con esas dimensiones, indicándole los desplazamientos tras cada etiqueta y los margenes superior e inferior.\nEsto es para ccualquier impresora que utilize por ejemplo Din A4, ahora si me dices que es una zebra, pues ya me pierdo un poco, aunque buscando en el foro, encontré ésto\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6508&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=zebra\">http://fivetechsoft.com/forums/viewtopi ... ight=zebra</a><!-- m -->\n\nAhí viene un código compatible con ELTRON/ZEBRA\n\nA ver si te sirve\n\nSaludos\n\nJose Luis','',0,'','3tokfrnf',1,0,'',838,0,0),(31483,6783,6,975,0,'200.21.137.146',1178731731,1,0,1,1,1,0,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:1wh8kgmi]Jhon\n\nEdita el build.bat y quita los rem ads\n\n[code:1wh8kgmi]rem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\n[/code:1wh8kgmi]\n\nSaludos\nPatricio[/quote:1wh8kgmi]\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Gracias Por tu Aporte. Funciono correctamente.','',0,'gIA=','1wh8kgmi',1,0,'',975,0,0),(31484,6783,6,975,0,'200.21.137.146',1178731830,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:jemwu9cb]Jhon,\n\nHaz lo que te ha indicado Patricio, gracias[/quote:jemwu9cb]\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Gracias Antonio, Funciona Perfectamente\n\n\nJhon Jairo Valencia Diaz\nAracataca - Magdalena - Colombia \"Tierra Nobel\"','',0,'gA==','jemwu9cb',1,0,'',975,0,0),(31485,6538,6,975,0,'200.21.137.146',1178731964,1,0,1,1,1,0,'','','[quote=&quot;jacgsoft&quot;:2qn5gjf8]lo que yo hago siempre es adicionar varios registros en blancos y de alli todo normal,  Se supone que esa tabla es un temporal no?\n\n\n\nJaime[/quote:2qn5gjf8]\n\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Gracias Jaime Por Tu Aporte.','',0,'gA==','2qn5gjf8',1,0,'',975,0,0),(31486,6929,1,2,0,'87.218.146.91',1178733762,1,0,1,1,1,1,'','','Peter,\n\n@ ..., ... GET ... MEMO NO VSCROLL','',0,'gA==','3ga6leah',1,0,'',2,0,0),(31487,6956,3,34,0,'68.5.222.61',1178733784,1,0,1,1,1,1,'','FWH New PCode','The latest xHarbour uses a new PCode.  Have you released compatible libraries yet.  Apparently I updated last month just before the new xHarbour was released with the change.','',0,'gA==','1mq8m8jn',1,0,'',34,0,0),(31488,6956,3,2,0,'87.218.146.91',1178734072,1,0,1,1,1,1,'','','Tim,\n\nPlease check your email','',0,'gA==','3kk4571y',1,0,'',2,0,0),(31489,6545,6,785,0,'190.64.199.3',1178734808,1,0,1,1,1,0,'','','Gracias Rochinha\n\nYa lo descargué\n\nUn abrazo\n\nRuben Fernandez.','',0,'gA==','1m76dipv',1,0,'',785,0,0),(31490,6947,6,2,0,'87.218.146.91',1178734845,1,0,1,1,1,1,'','','Por favor envíanos por email tu código de licencia de usuario registrado de FWH, gracias','',0,'gA==','hsdejwcx',1,0,'',2,0,0),(31492,6944,6,73,0,'200.23.18.132',1178735156,1,0,1,1,1,0,'','','gracias, error detectado en el campo \"CODIGO\" en 2 dbf esta caracter y en otra esta numerico, veo como lo corrijo\ngracias\nsalu2\npaco','',0,'EA==','wx6uhee3',1,0,'',73,0,0);
INSERT INTO `phpbb_posts` VALUES (31493,6938,6,2,0,'87.218.146.91',1178735162,1,0,1,1,1,1,'','','Leon,\n\nPuedes, por favor, enviarnos por email tu código de licencia de usuario registrado de FWH ? gracias','',0,'EA==','2a8vpyhd',1,0,'',2,0,0),(31494,6815,6,1049,0,'66.82.9.110',1178736448,1,0,1,1,1,0,'','Pues ya hice algunas pruebas','ya cambie la libreria GTWIN.LIB por hbgui,lib y funciono, aunque con, aunque con el ejemplo de access3.prg  me da errores de \nDBSETRELATION(0), pero ahi lo checare con calma,,  todo esto lo hice con harbour bajado de la pagina de Antonio Linares\n\n\ntambien hice las pruebas con todos los ejemplos tanto con access y mysql que estan en el ZIP con FWH y XHarbour y funcionan muy bien, Creo que me tendre que pasar a FiveWin,  je je je,\n\nSaludos a todos\nMauro S.\nVeracruz, Mexico','',0,'EA==','1bi5co1k',1,0,'',1049,0,0),(31495,6957,6,1051,0,'200.161.177.50',1178736933,1,0,1,1,1,0,'','adordd + index = error','INDEX ON field TO XS\nError ADOX.Catalog:TABLES/16389  E_FAIL: INDEXES Arguments: ( [ 1] = Type: C Val\n: XS)\n\nError at ...: TOLEAUTO:INDEXES(0) in Module: win32ole.prg\nCalled from : ADO_ORDCREATE(734) in Module: ADORDD.PRG\nCalled from : ORDCREATE(0) in Module:\nCalled from : DBCREATEINDEX(61) in Module: rddord.prg\nCalled from : MAIN(595) in Module: CEI0.PRG\n\nThanks\nFernando\nBrazil','',0,'','1mldq5xx',1,0,'',1051,0,0),(31496,6957,6,2,0,'87.218.146.91',1178737049,1,0,1,1,1,1,'','','Fernando,\n\nQue base de datos estás usando ? Access ? MySQL ?','',0,'','2srev7qf',1,0,'',2,0,0),(31497,6955,6,935,0,'200.62.123.43',1178737135,1,0,1,1,1,0,'','PRUEBA DE LA VERSION CORREGIDA','Fernando, mil gracias, copiare las lib donde corresponde y hare la pruebas correspondientes,\n\nRamon Paredes\nManagua, Nicaagua','',0,'','pw4ae5ui',1,0,'',935,0,0),(31498,6815,6,940,0,'189.157.76.253',1178738626,1,0,1,1,1,1,'','','que ondas Mauro,\n\nsi en algo te puedo apoyar\n\n\naqui andamos,\n\nsaludos al puerto de veracruz y a sus buenas carnes,,,  jeje.\n\n\ndesde torreon coahila,,  saludos..','',0,'','2454vlf7',1,0,'',940,0,0),(31499,6815,6,1049,0,'69.19.14.24',1178739423,1,0,1,1,1,0,'','OK,','Hola Cesar, te agradesco de antemano tu disposicion,  esta muy ineteresante este RDD de Antonio, lo incorporare a mis aplicaciones, tengo muchas aplicaciones hechas con harbour, y con este nuevo RDD hay mucho futuros para todos los programadores Xbase.\n\ny por supuesto que las \"carnes\" jarochas estan muy buenas, solo que hay que tener cuidado, no te vaya a salir una con \"premio\", jeje,,,\n\nSaludos desde el Bello Puerto Jarocho\nMauro S,','',0,'','2b519ryc',1,0,'',1049,0,0),(31500,6815,6,54,0,'189.132.92.111',1178739753,1,0,1,1,1,1,'','Re: OK,','[quote=&quot;cometa855&quot;:1o1rsmf6]Hola Cesar, te agradesco de antemano tu disposicion,  esta muy ineteresante este RDD de Antonio, lo incorporare a mis aplicaciones, tengo muchas aplicaciones hechas con harbour, y con este nuevo RDD hay mucho futuros para todos los programadores Xbase.\n\ny por supuesto que las \"carnes\" jarochas estan muy buenas, solo que hay que tener cuidado, no te vaya a salir una con \"premio\", jeje,,,\n\nSaludos desde el Bello Puerto Jarocho\nMauro S,[/quote:1o1rsmf6]\n\nMauro, totalmente de acuerdo sobre las \"carnes\" jarochas\n\njjejjejjejje','',0,'gA==','1o1rsmf6',1,0,'',54,0,0),(31501,6957,6,1051,0,'200.161.177.50',1178741630,1,0,1,1,1,0,'','','MYSQL','',0,'gA==','2bukj12j',1,0,'',1051,0,0),(31502,6815,6,1049,0,'69.19.14.24',1178741800,1,0,1,1,1,0,'','CLARO que si','Claro que si, PERO las TABASQUEÑAS  no se qudan atras, creo cambiare a la Jarocha que tengo por una Tabasqueña   je je je je\n\nsaludos cordiales a todos, y regresemos al  tema del RDD , no creen? \n\nBye\n\nMauro S,','',0,'gA==','2vdc79j6',1,0,'',1049,0,0),(31503,6958,3,397,0,'201.92.246.218',1178747342,1,0,1,0,1,1,'','HotSpot with colored images','For all,\r\n\r\nCode sample illustrating this feature.\r\n\r\n[img:tv8jb8ek]http&#58;//www&#46;5volution&#46;com/forum/mapinha&#46;jpg[/img:tv8jb8ek]\r\n\r\nDownload in <!-- m --><a class=\"postlink\" href=\"http://www.5volution.com/forum/hotspot.zip\">http://www.5volution.com/forum/hotspot.zip</a><!-- m -->','',0,'CA==','tv8jb8ek',1,1226844549,'',397,1,0),(31504,6905,6,171,0,'71.233.232.238',1178748553,1,0,1,1,1,0,'','','Arturo,\n\nMe gustaria usar tu clase por favor enviamela a <!-- e --><a href=\"mailto:georgeabinader@comcast.net\">georgeabinader@comcast.net</a><!-- e -->.\n\nSaludos\n\ngeorge','',0,'CA==','2rgy1bgs',1,0,'',171,0,0),(31505,6958,3,785,0,'190.64.222.141',1178749698,1,0,1,1,1,0,'','','Rochinha:\n\nSe ve impresionante, pero no lo pude probar\nel prg del zip no es un prg es el bmp.\n\nSaludos y gracias.\n\nRuben Fernandez.','',0,'CA==','1uzh8xco',1,0,'',785,0,0),(31506,6815,6,940,0,'189.157.76.253',1178750809,1,0,1,1,1,1,'','','jeje,,\nsolo era un comentario,, \n\nmauro,  me ha ido mejor con xharbour.org\n\naunque de un inicio, tambien trabaje con harbour\n\n...\n\nsaludos..','',0,'CA==','2aqe8m8c',1,0,'',940,0,0),(31507,6959,6,492,0,'189.147.32.187',1178756216,1,0,1,1,1,1,'','Accesar a una DBF de Visual Fox Pro','Hola a tod@s\n\nPor favor alguien podria indicarme, como se puede accesar a una DBF creada con VFox con su respectivo indice ??\n\nIntente abrirlas con Prometheus y nada, tampoco desde una app.\n\nSolo necesito abrirla, realizar una busqueda y tomar un valor de un campo\n That\'s it !   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nSaludos','',0,'CA==','1k98p89j',1,0,'',492,0,0),(31508,6959,6,940,0,'189.157.76.253',1178756935,1,0,1,1,1,1,'','','use clientes new  shared VIA \"DBFCDX\"\n\n\nintentastes de esta forma?\n\n\nsaludos.','',0,'CA==','2buvb852',1,0,'',940,0,0),(31509,6959,6,935,0,'200.62.78.222',1178765153,1,0,1,1,1,0,'','otra forma de abrirla','Prueba con esto a mi me funciona,\n\n\ndesde visual foxpro la abres normal\n\nUSE MIBASE\nCOPY TO MIBASE2 FOXPLUS \n\nY RESUELTO DESPUES ACCESAS A ELLA CON DBASE CON PROMETEUS Y CON LO QUE QUIERAS Y LE PONES EL NOMBRE QUE QUIERAS,\n\n\nRamon Paredes\nManagua Nicaragua','',0,'CA==','39w84fdm',1,0,'',935,0,0),(31510,6959,6,492,0,'189.147.32.187',1178765980,1,0,1,1,1,1,'','','SysCtrl2 :\n\nNo lo he probado como comentas, pero uso por default indices CDX.\n\n\n\nRamon :\n\nComo comentas no dudo que no funcione, el problema es que no seria nada funcional o practico, ya que esa base esta con continuo uso.\n\n\nEn si, lo que pretendo es accesar a esa base desde una app mia para mostrar un solo dato, pero esa base pertenece a otra app que no es mia.\n\n\nDe todos modos, agradezco las sugerencias, vere que otras opciones puedo encontrar.    <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'CA==','176556ar',1,0,'',492,0,0),(31511,6950,7,431,0,'190.142.49.2',1178766171,1,0,1,1,1,1,'','Folder con Browse','Antonio \n\nGracias por responder pero Incluyo la Linea TWBrowse()\ny sigue generando el mismo error.','',0,'CA==','3lt20unn',1,0,'',431,0,0),(31512,6960,6,935,0,'200.62.78.222',1178767103,1,0,1,1,1,0,'','QUE SIGNIFICA ESTE ERROR EN CON ADORDD ???','Saludes a Todos los amigos del foro.\n\n\nCompile adordd.prg y enlaze el obj y no hay problema pero cuando lo ejecuto ahora sale ete extraño error :\n\nerror adox.catalog:tables:keys/16389 E_FAIL: COUNT from Errorsys, line: 0   ( lo digite por que no lo pude copiar )\n\nalguien podria decirme de que se trata\n\nAgradecido como siempre,\n\n\nRamon Paredes\nManagua Nicaragua','',0,'CA==','lp6ej1gc',1,0,'',935,0,0),(31513,6949,6,53,0,'189.139.14.189',1178768154,1,0,1,1,1,1,'','','José Luis:\n\nMuchas gracias por el apoyo, voy entendiendo.\n\nSolo un par de preguntas más, que clase usas para la impresión, TDosPrn, TPrinter, TReport ?, podrías mostrar tu código de impresión ?\n\nSaludos','',0,'CA==','3dfuiy49',1,0,'',53,0,0),(31514,6815,6,18,0,'200.77.175.162',1178769055,1,0,1,1,1,1,'','','Antonio :\n\nActualice la clase del CVS y al hacer un \"USE\" me muestra el siguiente error.\n\nError.ADOX.Catalog:Tables:KEYS/16389 E_FAIL: COUNT from Errorsys,line: 0\n\nEstoy usando mySQL y el ejemplo es muy sencillo :\n\n[code:1yrroate]\n   USE system VIA &quot;ADORDD&quot; TABLE &quot;producto&quot; MYSQL ;\n      FROM &quot;localhost&quot; USER &quot;root&quot; PASSWORD &quot;12345&quot;\n   Browse&#40;&#41;\n   USE\n[/code:1yrroate]\n\ndando una revisada rápida al código fuente, el error se produce en esta función \n[code:1yrroate]\nstatic function ADO_CLEARREL&#40; nWA &#41;\n\n   local nKeys &#58;= 0, cKeyName\n\n*   if s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys != nil\n*      nKeys = s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#58;Count\n*   endif\n\n*   if nKeys &gt; 0\n*      cKeyName = s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#40; nKeys - 1 &#41;&#58;Name\n*      if Upper&#40; cKeyName &#41; != &quot;PRIMARYKEY&quot;\n*         s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#58;Delete&#40; cKeyName &#41;\n*      endif\n*   endif\n\nreturn SUCCESS\n[/code:1yrroate]\n\nDe momento lo único que hice fue comentarla.\n\nEn cuanto tenga la solución la público o si ustedes la tienen antes favor de avisarme:','',0,'AIA=','1yrroate',1,0,'',18,0,0),(31515,6960,6,18,0,'200.77.175.162',1178770875,1,0,1,1,1,1,'','Re: QUE SIGNIFICA ESTE ERROR EN CON ADORDD ???','[quote=&quot;Ramon Paredes&quot;:2uh8aqpb]Saludes a Todos los amigos del foro.\n\n\nCompile adordd.prg y enlaze el obj y no hay problema pero cuando lo ejecuto ahora sale ete extraño error :\n\nerror adox.catalog:tables:keys/16389 E_FAIL: COUNT from Errorsys, line: 0   ( lo digite por que no lo pude copiar )\n\nalguien podria decirme de que se trata\n\nAgradecido como siempre,\n\n\nRamon Paredes\nManagua Nicaragua[/quote:2uh8aqpb]\n\nEs un detalle al usar \"USE\"\n\nDe momento lo puedes solucionar con esta modificacion:\n[code:2uh8aqpb]\n// Modificacion William Morales\nSTATIC FUNCTION ADO_CLOSE&#40; nWA &#41;\n   LOCAL oADO &#58;= USRRDD_AREADATA&#40; nWA &#41;&#91; 1 &#93;\n\n   oADO&#58;Close&#40;&#41;\n\nRETURN SUCCESS // UR_SUPER_CLOSE&#40; nWA &#41;\n[/code:2uh8aqpb]\n\no también con esta otra \n\n[code:2uh8aqpb]\nstatic function ADO_CLEARREL&#40; nWA &#41;\n\n   local nKeys &#58;= 0, cKeyName\n\n*   if s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys != nil\n*      nKeys = s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#58;Count\n*   endif\n\n*   if nKeys &gt; 0\n*      cKeyName = s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#40; nKeys - 1 &#41;&#58;Name\n*      if Upper&#40; cKeyName &#41; != &quot;PRIMARYKEY&quot;\n*         s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#58;Delete&#40; cKeyName &#41;\n*      endif\n*   endif\n\nreturn SUCCESS\n[/code:2uh8aqpb]','',0,'gIA=','2uh8aqpb',1,0,'',18,0,0),(31516,6815,6,2,0,'87.218.146.91',1178776554,1,0,1,1,1,1,'','','Vikthor,\n\nPrueba así:\n[code:1pmpp1ik]\nstatic function ADO_CLEARREL&#40; nWA &#41; \n\n   local nKeys &#58;= 0, cKeyName \n\n   if s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys != nil \n      TRY \n         nKeys = s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#58;Count \n      CATCH\n      END\n   endif \n\n   if nKeys &gt; 0 \n      cKeyName = s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#40; nKeys - 1 &#41;&#58;Name \n      if Upper&#40; cKeyName &#41; != &quot;PRIMARYKEY&quot; \n         s_aCatalogs&#91; nWA &#93;&#58;Tables&#40; s_aTableNames&#91; nWA &#93; &#41;&#58;Keys&#58;Delete&#40; cKeyName &#41; \n      endif \n   endif \n\nreturn SUCCESS\n[/code:1pmpp1ik]','',0,'AIA=','1pmpp1ik',1,0,'',2,0,0),(31517,6959,6,2,0,'87.218.146.91',1178776739,1,0,1,1,1,1,'','','Raymundo,\n\nPuedes usar el ADORDD, sólo tienes que incluirle la cadena de conexión para FoxPro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> (ficheros con extensión .DBF)\n\nAñade esta línea en ADORDD.prg:\n[code:1go2pn5s]\ncase Lower&#40; Right&#40; aOpenInfo&#91; UR_OI_NAME &#93;, 4 &#41; &#41; == &quot;&#46;dbf&quot;\n       s_aConnections&#91; nWA &#93;&#58;Open&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=&quot; + aOpenInfo&#91; UR_OI_NAME &#93; + &quot;;Extended Properties=dBASE IV;User ID=Admin;Password=;&quot; &#41;\n[/code:1go2pn5s]','',0,'AIA=','1go2pn5s',1,0,'',2,0,0),(31518,6949,6,838,0,'80.34.222.112',1178779703,1,0,1,1,1,0,'','','Voy a buscar...\n\nComo te dije es un programa muy antiguo, y hecho un poco para uso personal, por lo tanto sin florituras, y como funciona, pues no me preocupé de cambiar nada.\n\nSaludos\n\nJose Luis','',0,'AIA=','2xgxr23q',1,0,'',838,0,0),(31519,6958,3,303,0,'72.199.41.171',1178781171,1,0,1,1,1,0,'','','Rochinha,\n\nThe file in the zip, hotspot.prg seems to be a binary file not ASCII.\n\nJames','',0,'AIA=','1w6412ja',1,0,'',303,0,0),(31521,6961,3,159,0,'210.243.203.20',1178788165,1,0,1,1,1,0,'','SQLite3 for [x]Harbour(mdy:2007.06.22:upgrade to 3.4.0)','*2007.05.22: fix release.\n\nIf you use SQLite3, you don\'t need any .dll and can option your DB and use SQL statement.\n\nlike SELECT * from test...  INSERT INTO ... DELETE FROM ... UPDATE ...\nand only one file \'.db\'.\n\nreference [url:fnwf23or]http&#58;//www&#46;sqlite&#46;org[/url:fnwf23or]\n\nNow you can use it into your AP,\nDownload it from:[url:fnwf23or]http&#58;//www4&#46;zzz&#46;com&#46;tw/phpbb2/viewtopic&#46;php?t=38[/url:fnwf23or].\n\nThis is a SQLite3 for xHarbour/Harbour CLASS.\n\nSQLite speed can reference [url:fnwf23or]http&#58;//www&#46;sqlite&#46;org/cvstrac/search?s=SpeedComparison&amp;w=1[/url:fnwf23or]','',0,'EA==','fnwf23or',1,1182494885,'',159,2,0),(31523,6950,7,2,0,'87.218.146.91',1178791779,1,0,1,1,1,1,'','','Mario,\n\nAsi funciona bien:\n[code:31igu480]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, cValue, cText &#58;= &quot;Hello world!&quot;, oLbx\n   \n   DEFINE WINDOW oWnd TITLE &quot;Folders&quot;\n   \n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41;\n      \n   oLbx &#58;= TWBrowse&#40;&#41;&#58;New&#40; 100, 100 &#41;   \n   oLbx&#58;End&#40;&#41;\n      \n   @ 0&#46;5, 1 FOLDER oFld PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      DIALOGS &quot;sub1&quot;, &quot;sub2&quot;, &quot;sub3&quot; ;\n      SIZE 225, 245\n\n   REDEFINE COMBOBOX cValue ID 100 OF oFld&#58;aDialogs&#91; 1 &#93; ;\n      ITEMS &#123; &quot;Red&quot;, &quot;Green&quot;, &quot;Blue&quot; &#125;\n   \n   REDEFINE BUTTON ID 110 OF oFld&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;click&quot; &#41;\n\n   REDEFINE BUTTON ID 120 OF oFld&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; cValue &#41;\n\n   REDEFINE BUTTON ID 104 OF oFld&#58;aDialogs&#91; 2 &#93; ACTION MsgInfo&#40; &quot;Second dialog&quot; &#41;\n   \n   REDEFINE GET cText ID 106 OF oFld&#58;aDialogs&#91; 2 &#93; COLOR &quot;GR+/G&quot;\n\n   REDEFINE LISTBOX oLbx FIELDS First, Last ID 10 OF oFld&#58;aDialogs&#91; 3 &#93;    \n   \n   oFld&#58;InitDialogs&#40;&#41; // required to initialize the resources dialogs !\n   \n   ACTIVATE WINDOW oWnd\n   \nreturn nil   \n[/code:31igu480]\n[url=http&#58;//imageshack&#46;us:31igu480][img:31igu480]http&#58;//img149&#46;imageshack&#46;us/img149/6872/browsefx8&#46;png[/img:31igu480][/url:31igu480]','',0,'GIA=','31igu480',1,0,'',2,0,0),(31524,6962,6,945,0,'80.32.177.143',1178792120,1,0,1,1,1,0,'','Seleccionar un archivo','Muy buenas foro, ¿alguien me podría decir algún modo de seleccionar archivos del modo Examinar?\n\nUn Saludo.','',0,'GIA=','2wxfo8w2',1,0,'',945,0,0),(31525,6962,6,533,0,'80.32.177.143',1178799275,1,0,1,1,1,0,'','','Buenassss Softruz:\n\n   inténtalo asi:\ncFichero := cGetFile32(\"c:\\ficheros_excell\\*.xls\", \"Tarifas en Excell. . .\")\n\nSALUDOS,  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GIA=','l9b8699e',1,0,'',533,0,0),(31526,6905,6,533,0,'80.32.177.143',1178799415,1,0,1,1,1,0,'','','Arturo, con tu permiso me uno a la peticion:\n\n<!-- e --><a href=\"mailto:mserracat@terra.es\">mserracat@terra.es</a><!-- e -->\n\nMUCHAS GRACIAS','',0,'GIA=','17oag7vr',1,0,'',533,0,0),(31527,6962,6,2,0,'87.218.146.91',1178799774,1,0,1,1,1,1,'','','Mike,\n\nCon FWH es cGetFile(), cGetFile32() es sólo para 16 bits','',0,'GIA=','7sl83rox',1,0,'',2,0,0),(31528,6815,6,1051,0,'201.42.46.219',1178800215,1,0,1,1,1,0,'','','para corrigir isso do USE\nSTATIC FUNCTION ADO_CLOSE( nWA )\n   LOCAL oADO := USRRDD_AREADATA( nWA )[ 1 ]\n\n   oADO:Close()\n\nRETURN SUCCESS // UR_SUPER_CLOSE( nWA )','',0,'','3nxbba4d',1,0,'',1051,0,0),(31529,6815,6,1051,0,'201.42.46.219',1178800586,1,0,1,1,1,0,'','','i have 1 field char (5) in mysql, when consulting a field, return \"\" it would have return \"     \" ( spac(5) ) \nin another  case the field be with \"123\", and return \"123\"  it would have return \"123  \" ( \"123\"+spac(2) )\nbecause hte field is char and not varchar\n\nThanks\nFernando','',0,'','1jvdsvyh',1,0,'',1051,0,0),(31530,6949,6,838,0,'80.34.222.112',1178801186,1,0,1,1,1,0,'','','Aqui está\n[code:1rt6zoqg]*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±\n*+\n*+    Function codigo&#40;&#41;\n*+\n*+    Called from &#40; barras&#46;prg	 &#41;   1 - function main&#40;&#41;\n*+\n*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±\n*+\nfunction codigo&#40; tipo, lprime, cprime, nancho, nlargo, ncodigo, ncanti, nOpci1, nlongi, npix, lini, cini, nnufo, npre, nDespH, nDespV, lPvp, lRef, lDen, nDesPvp, nDesRef, nDesDen, lBanner, cRef, cDetalle,tipo128 &#41;\n// ************************************************************************************************************************************************\n\nlocal oPrn\nlocal ccodigo\nlocal llprime\nlocal ccprime\nlocal pasada  &#58;= 1\nlocal texto\nlocal textoc\nlocal textor\nlocal npvp\nlocal echo    &#58;= 1\nlocal nufo    &#58;= nnufo\nlocal oFont\nlocal oFont1\nlocal Conta   &#58;=0\nlocal nindice&#58;=tempo-&gt;&#40;Recno&#40;&#41;&#41;\nprivate nLIz\nprivate nCIz\nprivate nLIzpvp\nprivate nCIzpvp\nprivate nLIzRef\nprivate nCIzRef\nprivate nLIzDes\nprivate nCIzDes\n  if nOpci1=1\ntempo-&gt;&#40; dbSetfILTER&#40; &#123;|| tempo-&gt;selec=&#46;T&#46;&#125;,\'tempo-&gt;selec=&#46;T&#46;\'&#41; &#41;\ntempo-&gt;&#40;dbgotop&#40;&#41;&#41;\n  endif\nprinter oPrn from user preview\noPrn&#58;SetPage&#40;9&#41;\nif nufo != nil\n   DEFINE FONT oFont NAME&#40; nufo&#91; 14 &#93; &#41; ;\n			   SIZE 0, &#40; nufo&#91; 1 &#93; &#41; of oPrn\n   DEFINE FONT oFont1 NAME&#40; nufo&#91; 14 &#93; &#41; ;\n			    SIZE 0, &#40; nufo&#91; 1 &#93; &#41; of oPrn\nelse\n   DEFINE FONT oFont  NAME &quot;Arial&quot; SIZE 0,  8 OF oPrn\n   DEFINE FONT oFont1 NAME &quot;Arial&quot; SIZE 0, 10 OF oPrn\nendif\n  if nOpci1=2\n   npvp &#58;= alltrim&#40; transform&#40; npre, &quot;@E 9,999&#46;99&quot; &#41; &#41;\n     if tipo = 6\n        ncodigo &#58;= \'A\' + alltrim&#40; ncodigo &#41; + \'T\'\n     endif\n  endif\nccodigo&#58;=alltrim&#40;ncodigo&#41;\ndo while &#46;t&#46;\n   page\n   if pasada = 1\n      llprime &#58;= lini\n      ccprime &#58;= cini\n   else\n      llprime &#58;= lprime\n      ccprime &#58;= cprime\n   endif\n   texto   &#58;= llprime - &#46;27\n   textor  &#58;= llprime - &#46;6\n   textoc  &#58;= llprime + nlongi\n\n   do while llprime + nlargo &lt;= 29&#46;7\n     CmtToPixel&#40;llprime+nDespV,         ccprime+nDespH, oPrn &#41;\n     CmtToPvp  &#40;texto+nDespV,           ccprime+nDespH+nDespvp ,oPrn&#41;\n     CmtToRef  &#40;texto+nlongi+ndesPV+&#46;3, ccprime+nDespH+ndesRef, oPrn&#41;\n     CmtToDes  &#40;texto+nlongi+ndesPV+&#46;5, ccprime+nDespH+ndesDen, oPrn&#41;\n      if nOpci1=1\n          ccodigo &#58;= alltrim&#40;tempo-&gt;codigo&#41;\n          ncanti  &#58;= tempo-&gt;cant\n          npvp    &#58;= alltrim&#40; transform&#40; tempo-&gt;Pvp , &quot;@E 99,999&#46;99&quot; &#41; &#41;\n          cRef    &#58;= alltrim&#40;tempo-&gt;referencia&#41;\n	        cDetalle&#58;=tempo-&gt;articulo\n           if tipo = 6\n              ccodigo &#58;= \'A\' + alltrim&#40; ccodigo &#41; + \'T\'\n           endif\n       endif\n      do case\n	case tipo = 1\n	  if lBanner\n	    @ nLIz, nCIz ean13 ccodigo width npix size nlongi of oPrn banner\n	  else\n	    @ nLIz, nCIz ean13 ccodigo width npix size nlongi of oPrn\n	  endif\n	  if lPvp\n	    oPrn&#58;Say&#40; nLIzpvp, nCIzpvp,\'PVP \'+npvp+\' \'+ \' €&#46;\', ofont &#41;\n	  endif\n// como el codigo es lo mismo que la referencia, he quitado la referencia\n	  if lRef\n	    oPrn&#58;Say&#40; nLIzref, nCIzref,cRef, ofont &#41;\n	  endif\n	  if lDen\n	    oPrn&#58;Say&#40; nLIzdes, nCIzdes,OemToAnsi&#40;rtrim&#40;cDetalle&#41;&#41;, ofont &#41;\n	  endif\n	case tipo = 2\n	  if lBanner\n	    @ nLIz, nCIz ean8 ccodigo width npix size nlongi of oPrn BANNER\n	  else\n	    @ nLIz, nCIz ean8 ccodigo width npix size nlongi of oPrn\n	  endif\n	  if lPvp\n	    oPrn&#58;Say&#40; nLIzpvp, nCIzpvp,\'PVP \'+npvp+\' \'+ \' €&#46;\', ofont &#41;\n	  endif\n	  if lRef\n	    oPrn&#58;Say&#40; nLIzref, nCIzref,cRef, ofont &#41;\n	  endif\n	  if lDen\n	    oPrn&#58;Say&#40; nLIzdes, nCIzdes,OemToAnsi&#40;rtrim&#40;cDetalle&#41;&#41;, ofont &#41;\n	  endif\n	case tipo = 3\n	  @ nLIz, nCIz code128 ccodigo width npix size nlongi of oPrn mode tipo128\n	  if lPvp\n	    oPrn&#58;Say&#40; nLIzpvp, nCIzpvp,\'PVP \'+npvp+\' \'+ \' €&#46;\', ofont &#41;\n	  endif\n	  if lRef\n	    oPrn&#58;Say&#40; nLIzref, nCIzref,cRef, ofont &#41;\n	  endif\n	  if lDen\n	    oPrn&#58;Say&#40; nLIzdes, nCIzdes,OemToAnsi&#40;rtrim&#40;cDetalle&#41;&#41;, ofont &#41;\n	  endif\n	case tipo = 4\n	  @ nLIz, nCIz code3_9 ccodigo width npix size nlongi of oPrn\n	  if lPvp\n	    oPrn&#58;Say&#40; nLIzpvp, nCIzpvp,\'PVP \'+npvp+\' \'+ \' €&#46;\', ofont &#41;\n	  endif\n	  if lRef\n	    oPrn&#58;Say&#40; nLIzref, nCIzref,cRef, ofont &#41;\n	  endif\n	  if lDen\n	    oPrn&#58;Say&#40; nLIzdes, nCIzdes,OemToAnsi&#40;rtrim&#40;cDetalle&#41;&#41;, ofont &#41;\n	  endif\n	case tipo = 5\n	  if lBanner\n	    @ nLIz, nCIz upca ccodigo width npix size nlongi of oPrn banner\n	  else\n	    @ nLIz, nCIz upca ccodigo width npix size nlongi of oPrn\n	  endif\n	  if lPvp\n	    oPrn&#58;Say&#40; nLIzpvp, nCIzpvp,\'PVP \'+npvp+\' \'+ \' €&#46;\', ofont &#41;\n	  endif\n	  if lRef\n	    oPrn&#58;Say&#40; nLIzref, nCIzref,cRef, ofont &#41;\n	  endif\n	  if lDen\n	    oPrn&#58;Say&#40; nLIzdes, nCIzdes,OemToAnsi&#40;rtrim&#40;cDetalle&#41;&#41;, ofont &#41;\n	  endif\n	case tipo = 6\n	  @ nLIz, nCIz codabar ccodigo width npix size nlongi of oPrn\n	  if lPvp\n	    oPrn&#58;Say&#40; nLIzpvp, nCIzpvp,\'PVP \'+npvp+\' \'+  \' €&#46;\', ofont &#41;\n	  endif\n	  if lRef\n	    oPrn&#58;Say&#40; nLIzref, nCIzref,cRef, ofont &#41;\n	  endif\n	  if lDen\n	    oPrn&#58;Say&#40; nLIzdes, nCIzdes,OemToAnsi&#40;rtrim&#40;cDetalle&#41;&#41;, ofont &#41;\n	  endif\n	case tipo = 7\n	  if lBanner\n	    @ nLIz, nCIz sup5 ccodigo width npix size nlongi of oPrn banner\n	  else\n	    @ nLIz, nCIz sup5 ccodigo width npix size nlongi of oPrn\n	  endif\n	  if lPvp\n	    oPrn&#58;Say&#40; nLIzpvp, nCIzpvp,\'PVP \'+npvp+\' \'+ \' €&#46;\', ofont &#41;\n	  endif\n	  if lRef\n	    oPrn&#58;Say&#40; nLIzref, nCIzref,cRef, ofont &#41;\n	  endif\n	  if lDen\n	    oPrn&#58;Say&#40; nLIzdes, nCIzdes,OemToAnsi&#40;rtrim&#40;cDetalle&#41;&#41;, ofont &#41;\n	  endif\n      endcase\n\n      ccprime += nancho\n      if nOpci1 = 1\n	 if echo = ncanti\n	    tempo-&gt;&#40; dbskip&#40;&#41; &#41;\n	      if tempo-&gt;&#40; eof&#40;&#41; &#41;\n	         exit\n	      endif\n            do while &#46;t&#46;\n               if tempo-&gt;Selec=&#46;F&#46; &#46;or&#46; tempo-&gt;cant &lt;= 0\n	          tempo-&gt;&#40;dbskip&#40;&#41;&#41;\n                     if tempo-&gt;&#40; eof&#40;&#41; &#41;\n	                exit\n	             endif\n               else\n                  exit\n	       endif\n            enddo\n	       if tempo-&gt;&#40; eof&#40;&#41; &#41;\n	          exit\n	       endif\n	          echo &#58;= 0\n         endif\n      endif\n      if echo = ncanti\n	 exit\n      endif\n      echo += 1\n      if ccprime + nancho &gt; 21\n	 llprime += nlargo\n	 texto	 += nlargo\n	 textoc  += nlargo\n	 ccprime &#58;= cprime\n      endif\n      if llprime + nlargo &gt;= 29&#46;7\n	      pasada += 1\n	      exit\n      endif\n   enddo\n   endpage\n   SysRefresh&#40;&#41;\n do case\n  case nOpci1=1\n   if tempo-&gt;&#40;Eof&#40;&#41;&#41;\n *  if echo = ncanti\n      exit\n   endif\n  case nOpci1=2\n   if echo = ncanti\n      exit\n   endif\n  endcase\nenddo\nendprint\noFont&#58;end&#40;&#41;\noFont1&#58;end&#40;&#41;\ntempo-&gt;&#40;Dbsetfilter&#40;&#41;&#41;\ntempo-&gt;&#40;Dbgoto&#40;nindice&#41;&#41;\nreturn nil\n\nstatic function CmtToPixel&#40; nLi, nCi, oPrn &#41;\n\nlocal aPixel\naPixel	     &#58;= oPrn&#58;Cmtr2Pix&#40; nLi, nCi &#41;\nmemvar-&gt;nLIz &#58;= aPixel&#91; 1 &#93;\nmemvar-&gt;nCIz &#58;= aPixel&#91; 2 &#93;\nreturn NIL\n[/code:1rt6zoqg]\nA ver si te sirve de algo\n\nSaludos\n\nJose Luis','',0,'AIA=','1rt6zoqg',1,0,'',838,0,0),(31531,6951,7,68,0,'203.45.173.100',1178801496,1,0,1,1,1,1,'','','Juan,\n\nFacil...<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nserialnumber()\n\nhth','',0,'AIA=','1csvxmad',1,0,'',68,0,0),(31532,6951,7,2,0,'87.218.146.91',1178802243,1,0,1,1,1,1,'','','Jon,\n\nYes, good answer <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n(sí, buena respuesta)','',0,'AIA=','1k8xdw67',1,0,'',2,0,0),(31533,4828,6,435,0,'200.155.201.139',1178802790,1,0,1,1,1,0,'','','Antonio\n\nEstou testando o babuDLLl e pcodeDLL.\n\nComo passar Array ou Object como parametro para a DLL ?\n\n[code:2kcbpycz]\n\nFunction Main1&#40;&#41;\n\n  local hItem1 &#58;= ItemNew&#40; paSis  &#41;       &lt;&lt;&lt;- Array com 1032 elementos \n  local hItem2 &#58;= ItemNew&#40; &quot;Variavel do Config&quot; &#41;\n\n  HbDLLEntry2&#40; &quot;Test&quot;, hItem1, hItem2 &#41;\n\n  ItemRelease&#40; hItem1 &#41;\n  ItemRelease&#40; hItem2 &#41;\n  \nreturn nil\n\n[/code:2kcbpycz]\n\nNo babudll.prg eu pego a variavel, mas nao vem o conteudo de cada elemento ou nao estou sabendo acessar .. usando o ValType( cMsg1 )\n\n[code:2kcbpycz]\n\n// To build BabuDLL&#46;dll do&#58; buildhd&#46;bat babuDLL\n// To run this DLL, do buidh&#46;bat Babu&#46;prg\n\nFunction Test&#40; cMsg1, cMsg2 &#41;\n  local n\n\n  // result &quot;OBject&quot; e nao Array\n  MsgInfo&#40; ValType&#40; cMsg1 &#41; &#41;   // Object and not Array \n\n  For n &#58;= 1 TO Len&#40; cMsg1 &#41;       \n     MsgInfo&#40; cMsg1&#91;n&#93; , cMsg2 &#41; &lt;-- vejo somente 1,2,3,4&#46;&#46;6&#46;&#46;7&#46;&#46;8&#46;&#46;9\n  Next\n\nreturn nil\n\n\nAri\n[/code:2kcbpycz]','',0,'AIA=','2kcbpycz',1,0,'',435,0,0),(31534,6859,3,909,0,'71.71.110.50',1178803649,1,0,1,1,1,1,'','','To everybody who is following this thread - \n\nI have solved the problem with a simple fix. The modified tabctrl.c is no longer needed, and only one line of code needs to be added to folder.prg.  To have very nice multiline folders from resources:\n\n1.  Add TCS_MULTILINE to the Style in your RC file.\n2.  Add ::AdjustRect() to the Initiate() method of Tfolder\n3.  If you use the RESIZE16 Clause, you will need to say:\n     ON INIT oFld:AdjustRect() in your prg code.  \nA working example link is below:\n\n   <!-- w --><a class=\"postlink\" href=\"http://www.softraksystems.com/download/MULTFOLD.ZIP\">www.softraksystems.com/download/MULTFOLD.ZIP</a><!-- w -->\n\nBest regards,\nCharles','',0,'AIA=','2ni8oan0',1,0,'',909,0,0),(31535,4828,6,2,0,'87.218.146.91',1178803972,1,0,1,1,1,1,'','','Ari,\n\nPrueba esto:\n\n  MsgInfo( cMsg1:ClassName() )   // Object and not Array \n\npara ver a que clase pertenece ese objeto','',0,'AIA=','3lkpwjdh',1,0,'',2,0,0),(31536,6859,3,2,0,'87.218.146.91',1178804618,1,0,1,1,1,1,'','','Charles,\n\nExcellent, and thanks for sharing the solution with us <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1n7b61v5',1,0,'',2,0,0),(31537,6815,6,1051,0,'201.42.46.219',1178804999,1,0,1,1,1,0,'','','how do you clean locate?\nbecause i make a locate ex:\nLOCATE FOR \"codius LIKE \'01\'\"\nafter in another option in software make\nLOCATE FOR \"codiapl LIKE \'02\'\"\nwhen runs a second LOCATE appears a error:\nError ADODB.Recordset/16389  E_FAIL: FIND Arguments: ( [ 1] = Type: C Val: codius LIKE \'01\' [ 2] = Type: N Val:          0)\n\nError at ...: TOLEAUTO:FIND(0) in Module: win32ole.prg\nCalled from : ADO_LOCATE(657) in Module: ADORDD.PRG\nCalled from : __DBLOCATE(0) in Module:\n\nThanks','',0,'','1ytiq2sy',1,0,'',1051,0,0),(31538,6961,3,303,0,'72.199.41.171',1178808738,1,0,1,1,1,0,'','','Last time I looked at SQLite it only had one field type-character. Has that changed?\n\nJames','',0,'','2snlmr4e',1,0,'',303,0,0),(31539,6963,2,409,0,'201.246.67.116',1178809813,1,0,1,1,1,0,'','CONECTAR CAJA REGISTRADORA TEC MA1650','como puedo conectar la caja al Pcs. o si tienes algun ejemplo\nSaludos','',0,'','2owmn92l',1,0,'',409,0,0),(31540,6964,6,436,0,'201.253.22.31',1178810324,1,0,1,1,1,0,'','TWORD - Un par de consultas','Bueno, finalmente estoy pudiendo invocar un documento Word y cambiarle el valor de los campos, esto con el uso de la clase TWord modificada por Vikhtor.\nFinalmente lo único que me falta es solucionar que al final del documento deseo insertar textos (utilizo el método cmSay de esta clase) pero siempre me los agrega con un recuadro, cómo se lo puede quitar?\nY por otro lado, si lo pongo para poder visualizarlo (al documento), cómo se podría hacer para que no me ofrezca guardarlo.\n\nSaludos a Todos','',0,'','2oru0rsw',1,0,'',436,0,0),(31541,6815,6,2,0,'87.218.146.91',1178812222,1,0,1,1,1,1,'','','Athayde,\n\nUsa esta nueva versión del ADORDD:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'','xz9h03sn',1,0,'',2,0,0),(31542,6814,3,2,0,'87.218.146.91',1178812339,1,0,1,1,1,1,'','','New ADORDD version:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'','21txz2jo',1,0,'',2,0,0),(31543,6959,6,36,0,'164.77.81.210',1178815164,1,0,1,1,1,1,'','','Raymundo\n\nPuedes utilizar Advantage Data Arquitec\n\n[url:13o32zx7]http&#58;//devzone&#46;advantagedatabase&#46;com/[/url:13o32zx7]\n\n[b:13o32zx7]seccion download[/b:13o32zx7]\n\n','',0,'UQ==','13o32zx7',1,0,'',36,0,0),(31544,6949,6,53,0,'189.139.20.148',1178820573,1,0,1,1,1,1,'','','José Luis:\n\nMuchas gracias, por supuesto que sirve y de mucho.\n\nVoy a hincarle el diente\n\nSaludos','',0,'UQ==','13bancv3',1,0,'',53,0,0),(31545,6965,2,542,0,'83.42.232.124',1178820823,1,0,1,1,1,0,'','Quitar los Suma y Sigue de un reporte','Hola amigos:\n\nTengo una opcion en mi programa que hace unos listados determinados y son bloques (4 trimestres), en 4 columnas tengo un TOTAL para que sume y me lo ponga al final de cada bloque. El problema que tengo es que siempre al final de pagina me pone una linea de suma y sigue de las columnas que tienen TOTAL y no quisiera que apareciera, hay alguna forma de quitarlo.\n\nGracias\n\nCarlos','',0,'UQ==','zpangjar',1,0,'',542,0,0),(31546,6966,3,1023,0,'201.92.182.230',1178820951,1,0,1,1,1,0,'','Não concigo trocar o tamanho do XBrowse nos dialogs','Estou tendo problemas ao redimencionar um xbrowse em um dialog, eu tenho um outro montado em uma janela, e quando o usuario faz uma pesquisa, ele faz um select na tabela e coloca em um outro xBrowse em outra janela, mais eu mudo o nWidth e nHeight dele, mais não muda o tamanho, o nTop e nLeft funciona normal.\n\n[code:32mw941u]\noBrw &#58;= TXBROWSE&#40;&#41;&#58;New&#40; oDlg &#41;\noBrw&#58;CreateFromCode&#40;&#41;\noBrw&#58;nTop          &#58;= 1\noBrw&#58;nLeft         &#58;= 1\noBrw&#58;nHeight       &#58;= &#40;getSysMetrics&#40;1&#41; / 100&#41;  * 40\noBrw&#58;nWidth        &#58;= &#40;getSysMetrics&#40;0&#41;/100&#41; * 80\n[/code:32mw941u]\n\nEu ja tentei usar valores fixos e também não funciona.\nEstou usando a ve~rsão 2.6 do FiveWin, o problema é da versão que estou usando?','',0,'AIA=','32mw941u',1,0,'',1023,0,0),(31547,6967,3,439,0,'200.125.42.236',1178823173,1,0,1,1,1,1,'','Image from clipboard to JPG','How can I send an Image captured in clipboard to a jpg file with fwh?','',0,'AIA=','3aok6aqn',1,0,'',439,0,0),(31548,6968,6,439,0,'200.125.42.236',1178823275,1,0,1,1,1,1,'','Imagen capturada en portapapeles a archivo JPG','Es posible enviar una imagen capturada en el portapapeles  a un archivo JPG con FWH?','',0,'AIA=','3fkt8u9k',1,0,'',439,0,0),(31549,6815,6,1051,0,'201.42.46.219',1178823436,1,0,1,1,1,0,'','','thanks, resolve very problems\n\nbut this continue\ni have 1 field char (5) in mysql, when consulting a field, return \"\" it would have return \" \" ( spac(5) ) \nin another case the field be with \"123\", and return \"123\" it would have return \"123 \" ( \"123\"+spac(2) ) \nbecause hte field is char and not varchar \n\nand\nINDEX ON field TO X (not error, but not indexed)\n\nand change this alteration for querys:\n   IF EMPTY(SUBS(aWAData[ WA_QUERY ],AT(\"FROM \",aWAData[WA_QUERY ])+5))\n      oRecordSet:Open( aWAData[ WA_QUERY ] + aWAData[WA_TABLENAME ], aWAData[ WA_CONNECTION ] )\n   ELSE\n      oRecordSet:Open( aWAData[ WA_QUERY ], aWAData[WA_CONNECTION ] )\n   ENDIF\n\nbut have a problem, when use tables with query, shes don\'t close','',0,'','3ftkm33v',1,0,'',1051,0,0),(31550,6879,6,661,0,'189.155.48.45',1178823809,1,0,1,1,1,0,'','','Carlos, poniendo 5 te deberia funcionar sin problemas\n\nsaludos','',0,'','2pv351ru',1,0,'',661,0,0),(31551,6815,6,1051,0,'201.42.46.219',1178824314,1,0,1,1,1,0,'','','all SET ORDER now appears how \"not supported\"\n\nsorry, but i be testing this rdd','',0,'','3t0ztf0h',1,0,'',1051,0,0),(31552,6815,6,1051,0,'201.42.46.219',1178824378,1,0,1,1,1,0,'','','erro after COMMIT\nError ADODB.Recordset/16389  E_FAIL: UPDATE Arguments: ()\n\nError at ...: TOLEAUTO:UPDATE(0) in Module: win32ole.prg\nCalled from : ADO_FLUSH(488) in Module: ADORDD.PRG\nCalled from : DBCOMMITALL(0) in Module:','',0,'','1t0e1r1i',1,0,'',1051,0,0),(31553,6815,6,1051,0,'201.42.46.219',1178828713,1,0,1,1,1,0,'','','how i do a LOCATE\nLOCATE FOR \"field=variable .AND. field&lt;&gt;variable\"','',0,'','awgi8o0m',1,0,'',1051,0,0),(31554,6815,6,2,0,'87.218.146.91',1178829985,1,0,1,1,1,1,'','','LOCATE FOR \"field=\'\" + variable + \"\'.AND. field&lt;&gt;\'\" + variable +\"\'\"','',0,'','32sn10xb',1,0,'',2,0,0),(31555,6966,3,2,0,'87.218.146.91',1178830498,1,0,1,1,1,1,'','','[code:3flrx6by]\nACTIVATE DIALOG oDlg ;\n   ON INIT &#40; oBrw&#58;nHeight &#58;= &#40;getSysMetrics&#40;1&#41; / 100&#41;  * 40,;\n             oBrw&#58;nWidth  &#58;= &#40;getSysMetrics&#40;0&#41; / 100&#41;  * 80 &#41;\n[/code:3flrx6by]','',0,'AIA=','3flrx6by',1,0,'',2,0,0),(31556,6950,7,431,0,'190.142.49.2',1178830809,1,0,1,1,1,1,'','','Muy Agradecido \nahora si funciona Ok.','',0,'AIA=','1pycqi4l',1,0,'',431,0,0),(31557,6969,6,52,0,'200.127.194.88',1178832436,1,0,1,1,1,1,'','aEval{ || } tiene algun comando para terminar la evaluacion?','Estimados.\n\nAsi como existe el \"exit\" para el for, existe algun \"quiebre\" o \"corte\" de control para el aEval?\n\n[code:2jdv06v8]aEval&#123; | o, nItem | if &#40; o == 5, &quot;corte de control para terminal la ejecucion del aEval&quot;, nItem++ &#41; &#125;[/code:2jdv06v8]\n\n eso necesito, poder salir del aEval cuando o sea 5\n\nAlguna idea?\n\nGracias.','',0,'AIA=','2jdv06v8',1,0,'',52,0,0),(31558,6969,6,2,0,'87.218.146.91',1178832785,1,0,1,1,1,1,'','','AEVAL(&lt;aArray&gt;, &lt;bBlock&gt;,\n               [&lt;nStart&gt;], [&lt;nCount&gt;]) --&gt; aArray\n\nnCount te permite indicar cuantos elementos procesar a partir de nStart','',0,'','184aswn4',1,0,'',2,0,0),(31559,6969,6,36,0,'164.77.81.210',1178832802,1,0,1,1,1,1,'','','goosfancito\n\n[code:spmv42il]Aeval&#40; Array, &#123; |x,y| instrucciones &#125;, 1, 5 &#41;[/code:spmv42il]','',0,'AIA=','spmv42il',1,0,'',36,0,0),(31560,6969,6,52,0,'200.127.194.88',1178833286,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:128h0avi]goosfancito\n\n[code:128h0avi]Aeval&#40; Array, &#123; |x,y| instrucciones &#125;, 1, 5 &#41;[/code:128h0avi][/quote:128h0avi]\n\nAgradezco a ambos.\n\nPero lo que necesito hacer especificamente es esto:\n\ntengo 15 get en el cual necesito saber ( luego de haber leido datos desde una dbu ) cual es el primer get que quedó sin datos y hacer que el cursor quede en ese get, entonces pensé utilizar el aEval para recorrer esos get, ya que estan en un array.\n[code:128h0avi]\nlocal oDatos&#58;= array&#40; 15 &#41;\n       vDatos&#58;= array&#40; 15 &#41;\n\nlocal nParar&#58;= 0\n\n\n   define get oDatos&#91;1&#93; id 100 var vDatos&#91;1&#93; &#46;&#46;\n   &#46;&#46;&#46;\n\n\n   nParar&#58;= aEval&#40; vDatos, &#123; | o, nItem | nItem&#58;= 0, if&#40; empty&#40; o &#41;, &quot;aca salir, ya tengo en cual tiene que posicionarse el cursor&quot;, nItem++ &#41; &#125; &#41;\n\n\n&#46;&#46;&#46;\n[/code:128h0avi]\nMe explico?','',0,'gIA=','128h0avi',1,0,'',52,0,0),(31561,6969,6,36,0,'164.77.81.210',1178837835,1,0,1,1,1,1,'','','Puedes utilizar la funcion ASCAN\n\n\n[code:3020x1il]		 nParar &#58;= Ascan&#40; vDatos, &#123; |o| empty&#40; o &#41; &#125; &#41;\n\n		 if nParar &lt;&gt; 0\n			MsgInfo&#40; &quot;el elemento &quot;+str&#40;nparar&#41; +  &quot;esta vacio&quot; &#41;\n		 ndif\n[/code:3020x1il]','',0,'AIA=','3020x1il',1,0,'',36,0,0),(31562,6968,6,121,0,'189.138.32.16',1178840882,1,0,1,1,1,1,'','','En la clase Tscan de Rafa Carmona ( se encuentra en el foro de utilerias )\nse muestra precisamente como grabar del portapapeles a un JPG\n\nSaludos','',0,'AIA=','1lc4ya7e',1,0,'',121,0,0),(31563,6969,6,52,0,'200.127.194.88',1178841105,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:3tv09frz]Puedes utilizar la funcion ASCAN\n\n\n[code:3tv09frz]		 nParar &#58;= Ascan&#40; vDatos, &#123; |o| empty&#40; o &#41; &#125; &#41;\n\n		 if nParar &lt;&gt; 0\n			MsgInfo&#40; &quot;el elemento &quot;+str&#40;nparar&#41; +  &quot;esta vacio&quot; &#41;\n		 ndif\n[/code:3tv09frz][/quote:3tv09frz]\n\ngracias','',0,'gIA=','3tv09frz',1,0,'',52,0,0),(31564,6968,6,121,0,'189.138.32.16',1178841289,1,0,1,1,1,1,'','','utiliza la siguiente funcion:\n\n\ncfile=\'\\default.jpg\'\noScan:ClipBoardToFile( cFile )\n\n\ny se genera un jpg','',0,'gIA=','3c8i3l23',1,0,'',121,0,0),(31565,6970,6,661,0,'189.155.48.45',1178841874,1,0,1,1,1,0,'','Terminar proceso no funciona !!!','que tal pues ya lei los otros topics al respecto de terminar un proceso y me funciona lo del:\n   winexec(\'NXTAlma.exe\')\n   PostQuitMessage(0) \n   __Quit() \n\npero estoy utilizando la clase FTP e Internet y cuando las pongo en mi programa esto ya no funciona solicito su ayuda por favor gracias, les dejo mi programa:\n\n#INCLUDE \"FiveWin.ch\"\n\n\nfunction main()\n   LOCAL xlastupd,xpagina,xuser,xpass\n   LOCAL ointernet,oftp\n   *LEE LOS PARAMETROS DEL SISTEMA\n   INI oIni FILE \".\\NXTSIV.INI\"\n       GET xlastupd  SECTION \"FTP\"       ENTRY \'LastUpd\'    OF oini DEFAULT 0\n       GET xpagina   SECTION \"FTP\"       ENTRY \'pagina\'     OF oini DEFAULT \'www.mipagina.com\'\n       GET xuser     SECTION \"FTP\"       ENTRY \'usuario\'    OF oini DEFAULT \'usuario\'\n       GET xpass     SECTION \"FTP\"       ENTRY \'pass\'       OF oini DEFAULT \'pass\'\n   ENDINI\n\n   dbusearea(.t.,,xcontrol,\'CON\',.T.) \n   if xlastupd &lt; CON-&gt;lastupd\n      *BAJA EL EJECUTABLE DEL FTP\n      oInternet := TInternet():New()\n      oFTP      := TFTP():New(xpagina, oInternet,xuser,xpass)\n   \n      If Empty( oFTP:hFTP )\n         oInternet:End()\n         oFtp:end()\n      else\n         llocal := curdir()+\'\\NXTALMA.zip\'\n         lremoto:= \'NXTALMA.zip\'\n         FtpGetFile(oFTP:hFTP,lremoto,llocal)\n                 \n         oFtp:end()\n         oInternet:End()\n         *DECOMPACTA EL ARCHIVO RECIBIDO\n         IF HB_UNZIPFILE( llocal,,,,llocal)\n            INI oIni FILE \".\\NXTSIV.INI\"\n                SET SECTION \"FTP\" ENTRY \'LastUpd\' TO xlastudp OF oini\n            ENDINI\n            msginfo(\'Su sistema se ha actualizado con exito\')\n         EndIF\n      EndIf\n   endif\n   CON-&gt;(dbclosearea())\n\n   winexec(\'NXTAlma.exe\')\n   PostQuitMessage(0) \n   __Quit() \nreturn \n\n\n\nAgradezco su ayuda.\n\nAlex','',0,'gIA=','3rb789v9',1,0,'',661,0,0),(31566,6815,6,1051,0,'200.205.153.6',1178842792,1,0,1,1,1,0,'','','LOCATE FOR \"cfcfo=\'\"+c_cgcfo+\"\' .AND. codifo&lt;&gt;\'\"+mcodifo+\"\'\"\nerror LOCATE\nError ADODB.Recordset/16389  E_FAIL: FIND Arguments: ( [ 1] = Type: C Val: cgcfo\n=\'03.013.546/0006-80\' AND codifo&lt;&gt;\'000001\' [ 2] = Type: N Val:          0)\nError at ...: TOLEAUTO:FIND(0) in Module: win32ole.prg\nCalled from : ADO_LOCATE(586) in Module: ADORDD.PRG\nCalled from : __DBLOCATE(0) in Module:     \n\nsee anything about COMMIT\nand USE with Query\n\nThanks','',0,'','2h82hlgn',1,0,'',1051,0,0),(31567,6960,6,935,0,'200.62.80.178',1178848438,1,0,1,1,1,0,'','No funcionan ninguna de las dos,','Vicktor,\n\nAgradezco tu atencion pero probe con las dos modificaciones y ninguna me funciona, yo estoy trabajando con FWH 7.01, xHarbour 0.99.71 y Borland C++, no se si esto tenga que ver, lo cierto es que con las dos opciones emite el mismisimo error,\n\n\nAlguna ayuda sera bienvenida,\n\n\nRamon Paredes\nManagua Nicaragua','',0,'','slw8kad1',1,0,'',935,0,0),(31568,6905,6,935,0,'200.62.120.237',1178849980,1,0,1,1,1,0,'','sodlicitud de clase','Arturo,\n\nGracias por tu generosidad me uno a la solicitud de todos mi correo personal es <!-- e --><a href=\"mailto:rparedes88@hotmail.com\">rparedes88@hotmail.com</a><!-- e -->.\n\n\nSaludes \n\nRamon Paredes\nManagua, Nicaragua','',0,'','3sgr62t3',1,0,'',935,0,0),(31569,6961,3,159,0,'210.243.203.20',1178854732,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1453hg73]Last time I looked at SQLite it only had one field type-character. Has that changed?\n\nJames[/quote:1453hg73]\n\nWhat is \'one field type-character\' ?\nDO you say hbsqlite for sqlite2 ?\nNo, I\'m rewrite it and use OOP method control it,\nand up to sqlite3, so, You can use it like TMySQL ...','',0,'gA==','1453hg73',1,0,'',159,0,0),(31570,6815,6,2,0,'87.218.146.91',1178858569,1,0,1,1,1,1,'','','Is this ok for your table ?\n\ncgcfo=\'03.013.546/0006-80\' AND codifo&lt;&gt;\'000001\'','',0,'gA==','1g9i0whq',1,0,'',2,0,0),(31571,6960,6,2,0,'87.218.146.91',1178858729,1,0,1,1,1,1,'','','Ramón,\n\nPrueba con el ADORDD.lib más reciente que está aqui:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'gA==','lwdhg96p',1,0,'',2,0,0),(31572,6953,3,2,0,'87.218.146.91',1178864606,1,0,1,1,1,1,'','','Marco,\n\nTry this:\n\noBrw:ColAtPos( oBrw:nColSel ):nCreationOrder','',0,'gA==','2yeoywgb',1,0,'',2,0,0),(31573,6939,3,2,0,'87.218.146.91',1178865313,1,0,1,1,1,1,'','','Davide,\n\nYou may need to use unicode and Windows API DrawTextW()','',0,'gA==','2w7mymy5',1,0,'',2,0,0),(31574,6815,6,131,0,'194.179.55.36',1178867412,1,0,1,1,1,0,'','','Antonio: puedes incluir en el zip un bat para recompilar adordd.prg y crear la libreria. Estoy intentando usarlo con xharbour0.99.7 y no hay manera.\nGracias,','',0,'gA==','3bpb5dc1',1,0,'',131,0,0),(31575,6815,6,131,0,'194.179.55.36',1178869869,1,0,1,1,1,0,'','','Ya lo he hecho andar. Impresionante.\nGracias y enhorabuena a Antonio, Fernando y los demás por este trabajo.\n\nSaludos,','',0,'gA==','11b5mgvc',1,0,'',131,0,0),(31576,6961,3,233,0,'218.208.250.70',1178872118,1,0,1,1,1,0,'','','[quote=&quot;James&quot;:1evmndnq]Last time I looked at SQLite it only had one field type-character. Has that changed?[/quote:1evmndnq]\nYou can find the data types [url=http&#58;//www&#46;sqlite&#46;org/datatype3&#46;html:1evmndnq]here[/url:1evmndnq] James.\n\n\nFrom SQLite [url=http&#58;//www&#46;sqlite&#46;org/faq&#46;html#q7:1evmndnq]FAQ[/url:1evmndnq], [i:1evmndnq]\"Multiple processes can have the same database open at the same time. Multiple processes can be doing a SELECT at the same time. [b:1evmndnq]But only one process can be making changes to the database at any moment in time, however.\"[/b:1evmndnq][/i:1evmndnq]\n\nWouldn\'t this spell trouble for multi-user apps?\n\nI\'m interested in trying out [url=http&#58;//www&#46;firebirdsql&#46;org:1evmndnq]Firebird[/url:1evmndnq] though. Anyone already using Firebird willing to share their experience?','',0,'8A==','1evmndnq',1,0,'',233,0,0),(31577,6961,3,2,0,'87.218.146.91',1178872564,1,0,1,1,1,1,'','','Is those databases engines support ADO, then you can easily manage them using the free ADORDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'8A==','yt04fbvm',1,0,'',2,0,0),(31578,6961,3,24,0,'80.24.12.168',1178873983,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1ufbk1za]Is those databases engines support ADO, then you can easily manage them using the free ADORDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1ufbk1za]\n\nBut... ADORDD is only for Windows.\nSqliTe3 is multiplataform..\n\nRegards.\nRafa Carmona','',0,'gA==','1ufbk1za',1,0,'',24,0,0),(31579,6961,3,24,0,'80.24.12.168',1178874207,1,0,1,1,1,1,'','Re: SQLite3 for xHarbour/harbour','Please, you confirm type license ,it is GPL ?\n\nI\'m interesting, i begin convert hbsqlite , job Alejandro Garate, but \nversion is for SQlite 2.8, and i want job 3.0.','',0,'gA==','1lxkwtyh',1,0,'',24,0,0),(31580,6961,3,159,0,'210.243.203.20',1178874968,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3j7ooq8b]Is those databases engines support ADO, then you can easily manage them using the free ADORDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3j7ooq8b]\n\naboriginal ADO for SQLite3 is need money.\nIf use ADO -&gt; ODBC32 -&gt; SQLite3 is free','',0,'gA==','3j7ooq8b',1,0,'',159,0,0),(31581,6961,3,159,0,'210.243.203.20',1178875092,1,0,1,1,1,0,'','Re: SQLite3 for xHarbour/harbour','[quote=&quot;thefull&quot;:3cnt2w5q]I\'m interesting, i begin convert hbsqlite , job Alejandro Garate, but \nversion is for SQlite 2.8, and i want job 3.0.[/quote:3cnt2w5q]\n\nMy post is for SQLite 3.3.17 (lastnew).  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3cnt2w5q',1,0,'',159,0,0),(31582,6962,6,533,0,'80.32.177.143',1178875197,1,0,1,1,1,0,'','','Gracias Antonio! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1z3kgo1e',1,0,'',533,0,0),(31583,6961,3,24,0,'80.24.12.168',1178877547,1,0,1,1,1,1,'','Re: SQLite3 for xHarbour/harbour','[quote=&quot;ssbbs&quot;:1bef7srb][quote=&quot;thefull&quot;:1bef7srb]I\'m interesting, i begin convert hbsqlite , job Alejandro Garate, but \nversion is for SQlite 2.8, and i want job 3.0.[/quote:1bef7srb]\n\nMy post is for SQLite 3.3.17 (lastnew).  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:1bef7srb]\n\nWelll, i accept 3.X.X, but you not respond a my question....\nIs it FREE or NOT ?\n\nThank.','',0,'gA==','1bef7srb',1,0,'',24,0,0),(31584,6961,3,159,0,'210.243.203.20',1178883888,1,0,1,1,1,0,'','Re: SQLite3 for xHarbour/harbour','[quote=&quot;thefull&quot;:3iu232t0][quote=&quot;ssbbs&quot;:3iu232t0][quote=&quot;thefull&quot;:3iu232t0]I\'m interesting, i begin convert hbsqlite , job Alejandro Garate, but \nversion is for SQlite 2.8, and i want job 3.0.[/quote:3iu232t0]\n\nMy post is for SQLite 3.3.17 (lastnew).  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:3iu232t0]\n\nWelll, i accept 3.X.X, but you not respond a my question....\nIs it FREE or NOT ?\n\nThank.[/quote:3iu232t0]\n\nYes, it is freeware.\nYou can use it into your AP and don\'t pay money!!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','3iu232t0',1,0,'',159,0,0),(31585,6815,6,1051,0,'201.42.92.82',1178885327,1,0,1,1,1,0,'','','yes Antonio, cgcfo and codifo, exists in a table\n\nThanks\nFernando\nBrazil','',0,'gA==','u9ibfspe',1,0,'',1051,0,0),(31586,6815,6,1051,0,'201.42.92.82',1178888451,1,0,1,1,1,0,'','','i get now xharbour cvs, with new atualization for adordd usrrdd\ncongratulations for support to firebird\n\nnow bugs\n[b:578ma5hg]bug 1: COMMIT error continues[/b:578ma5hg]\n[b:578ma5hg]code:[/b:578ma5hg]\n      REPL nomeapl WITH c_nomeapl\n      UNLOCK\n      COMMIT\n[b:578ma5hg]error:[/b:578ma5hg]\nError ADODB.Recordset/16389  E_FAIL: UPDATE Arguments: ()\n\nError at ...: TOLEAUTO:UPDATE(0) in Module: win32ole.prg\nCalled from : ADO_FLUSH(574) in Module: ADORDD.PRG\nCalled from : DBCOMMITALL(0) in Module:\n\n[b:578ma5hg]bug 2: LOCATE CLAUSULE error[/b:578ma5hg]\n[b:578ma5hg]code:[/b:578ma5hg]\n     LOCATE FOR \"cgcfo=\'\"+c_cgcfo+\"\' .AND. codifo&lt;&gt;\'\"+mcodifo+\"\'\"\nin table exists the 2 fields\n[b:578ma5hg]error:[/b:578ma5hg]\nError ADODB.Recordset/16389  E_FAIL: FIND Arguments: ( [ 1] = Type: C Val: cgcfo=\'03.013.546/0006-80\' AND codifo&lt;&gt;\'000001\' [ 2] = Type: N Val:          0)\nError at ...: TOLEAUTO:FIND(0) in Module: win32ole.prg\nCalled from : ADO_LOCATE(769) in Module: ADORDD.PRG\nCalled from : __DBLOCATE(0) in Module: \n\n[b:578ma5hg]bug 3: after uptade and not change the field, when backs to dbedit, lost pointer[/b:578ma5hg]\nex: field in BD it is \"TESTE\"\n     code:\n         REPL field WITH \"TESTE\"   (error)\n     if changed:\n         REPL field WITH \"TEST2\"    (perfect)\n\nstranger no?\n[b:578ma5hg]error lines:[/b:578ma5hg]\nError ADODB.Recordset/16389  E_FAIL: MOVE Arguments: ( [ 1] = Type: N Val:    1)\nError at ...: TOLEAUTO:MOVE(0) in Module: win32ole.prg\nCalled from : ADO_SKIPRAW(476) in Module: ADORDD.PRG\nCalled from : DBSKIP(0) in Module:\nCalled from : DBE_SKIPPER(728) in Module: dbedit.prg\nCalled from : (b)DBEDIT(258) in Module: dbedit.prg\nCalled from : TDATACACHE:DBSKIP(263) in Module: tbrowse.prg\nCalled from : TDATACACHE:GETCELL(435) in Module: tbrowse.prg\nCalled from : TBROWSE:DRAWAROW(2671) in Module: tbrowse.prg\nCalled from : TBROWSE:PERFORMSTABILIZATION(2471) in Module: tbrowse.prg\nCalled from : TBROWSE:FORCESTABLE(2351) in Module: tbrowse.prg\nCalled from : _DOUSERFUNC(679) in Module: dbedit.prg\nCalled from : DBEDIT(449) in Module: dbedit.prg\n\n[b:578ma5hg]solicitation[/b:578ma5hg]\nchange query in USE command\n\nThanks\nFernando','',0,'QA==','578ma5hg',1,0,'',1051,0,0),(31587,6815,6,1051,0,'201.42.92.82',1178889746,1,0,1,1,1,0,'','','[b:2o1lm9u2]correction of bug COMMIT:[/b:2o1lm9u2]\nSTATIC FUNCTION ADO_FLUSH( nWA )\n\n   LOCAL oRecordSet := USRRDD_AREADATA( nWA )[ WA_RECORDSET ]\n\n   TRY\n      oRecordSet:Update()\n   CATCH\n   END\n\nRETURN SUCCESS','',0,'QA==','2o1lm9u2',1,0,'',1051,0,0),(31588,6859,3,154,0,'151.21.78.67',1178891605,1,0,1,1,1,1,'','','[quote=&quot;CharlesPratt&quot;:2utlo898]To everybody who is following this thread - \n\nI have solved the problem with a simple fix. The modified tabctrl.c is no longer needed, and only one line of code needs to be added to folder.prg.  To have very nice multiline folders from resources:\n\n1.  Add TCS_MULTILINE to the Style in your RC file.\n2.  Add ::AdjustRect() to the Initiate() method of Tfolder\n3.  If you use the RESIZE16 Clause, you will need to say:\n     ON INIT oFld:AdjustRect() in your prg code.  \nA working example link is below:\n\n   <!-- w --><a class=\"postlink\" href=\"http://www.softraksystems.com/download/MULTFOLD.ZIP\">www.softraksystems.com/download/MULTFOLD.ZIP</a><!-- w -->\n[/quote:2utlo898]\n\nCharles,\n\ncan I test your news?\ni compile and found an error at runtime:\n[code:2utlo898]   Descrizione&#58; Error BASE/1004  Message not found&#58; TCLIPGET&#58;TYPE\n\nStack Calls\n===========\n   Called from&#58; tobject&#46;prg =&gt; TCLIPGET&#58;ERROR&#40;172&#41;\n   Called from&#58; tobject&#46;prg =&gt; TCLIPGET&#58;MSGNOTFOUND&#40;205&#41;\n   Called from&#58; tobject&#46;prg =&gt; TCLIPGET&#58;TYPE&#40;0&#41;\n   Called from&#58; tget&#46;prg =&gt; TCLIPGET&#58;PARSEPICT&#40;367&#41;\n   Called from&#58; tget&#46;prg =&gt; TCLIPGET&#58;SETPICTURE&#40;2043&#41;\n   Called from&#58; tget&#46;prg =&gt; &#40;b&#41;GET&#58;GET&#40;122&#41;\n   Called from&#58; TCLIPGET&#46;prg =&gt; TCLIPGET&#58;TCLIPGET&#40;0&#41;\n   Called from&#58; tget&#46;prg =&gt; TCLIPGET&#58;NEW&#40;234&#41;\n   Called from&#58; TCLIPGET&#46;prg =&gt; GETNEW&#40;23&#41;\n   Called from&#58; TGET&#46;prg =&gt; TGET&#58;REDEFINE&#40;361&#41;\n   Called from&#58; FOLDONLY&#46;PRG =&gt; SNGLFOLD&#40;86&#41;\n   Called from&#58; FOLDONLY&#46;PRG =&gt; &#40;b&#41;BUILDMENU&#40;34&#41;\n   Called from&#58; MENU&#46;prg =&gt; TMENU&#58;COMMAND&#40;407&#41;\n   Called from&#58; WINDOW&#46;prg =&gt; TWINDOW&#58;COMMAND&#40;937&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;prg =&gt; _FWH&#40;3177&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;prg =&gt; TWINDOW&#58;ACTIVATE&#40;886&#41;\n   Called from&#58; FOLDONLY&#46;PRG =&gt; MAIN&#40;24&#41;\n[/code:2utlo898]\ncan you help me?','',0,'gIA=','2utlo898',1,0,'',154,0,0),(31589,6962,6,940,0,'189.157.76.253',1178898915,1,0,1,1,1,1,'','','local gcFile := cGetFile( \"Microsoft Excel (*.xls)| *.xls|\" +         ;\n      \"DBASE IV (*.DBF)| *.DBF|\"  +            ;\n      \"Todos los Archivos (*.*)| *.*\"             ;\n      ,\"Por favor selecciona el archivo \", 4 )\n\n\nmsginfo(  \'Archivo seleccionado \' + gcFile  ,   \'Confirmacion ...\' )','',0,'gIA=','35x3yy4l',1,0,'',940,0,0),(31590,6859,3,2,0,'87.218.146.91',1178899326,1,0,1,1,1,1,'','','Ugo,\n\nYou can\'t use Harbour from CVS as Class TGet has been modified and now it does not work fine with FWH.\n\nPlease use Harbour from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'gIA=','3en1wksa',1,0,'',2,0,0),(31591,6905,6,940,0,'189.157.76.253',1178899351,1,0,1,1,1,1,'','','Arturo, \"Siempre los hombres estaran por encima de las adversidades\",\n\n\nme uno a la peticion,  mi correo <!-- e --><a href=\"mailto:sysctrl@prodigy.net.mx\">sysctrl@prodigy.net.mx</a><!-- e -->\n                                               <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\n\nFelicidades,,\n\n\nsaludos cordiales.','',0,'gIA=','33exhon7',1,0,'',940,0,0),(31592,6815,6,2,0,'87.218.146.91',1178899624,1,0,1,1,1,1,'','','Athayde,\n\nThanks for the COMMIT fix','',0,'gIA=','2jt3hx1w',1,0,'',2,0,0),(31593,6971,3,53,0,'189.139.26.248',1178900142,1,0,1,1,1,1,'','oPrn:SetSize(nWidth,nHeigt)','Mr. Antonio Linares:\n\nWhy oPrn:SetSize(nWidth,nHeight) it does not work?\n\nI tried with oPrn:SETSIZE(650,250) but it does not change the size of the page\n\nPRINTER oPrt Preview\noPrn:SetSize(650,250) // I need 6.5cms  x  2.5cms\n\nBest regards and many thanks\n\nArmando','',0,'gIA=','24wmkm5t',1,0,'',53,0,0),(31594,6961,3,303,0,'72.199.41.171',1178900612,1,0,1,1,1,0,'','','ssbbs,\n\n&gt;From SQLite FAQ, \"Multiple processes can have the same database open at the same time. Multiple processes can be doing a SELECT at the same time. But only one process can be making changes to the database at any moment in time, however.\" \n\n&gt;Wouldn\'t this spell trouble for multi-user apps? \n\nIt is an issue, but it doesn\'t mean that it can\'t be used for a multiuser app. It does lock the entire database to make updates (more like makes it readonly). So, two users cannot make updates at exactly the same time, but this only takes a split second. For small numbers of users this may not be an issue at all.\n\nSo for smaller numbers of users it provides many advantages, some of which are (as you already mentioned) that all the data resides in one file and there is no separate setup or maintenance required. This makes it good for off-the-self applications for small companies that don\'t have full-time IT people.\n\nYou can use standard SQL syntax. And now that it supports numeric and blobs it looks even more interesting.\n\nAnd the price is right! Free and royalty-free.\n\nJames','',0,'gIA=','3dmwipmj',1,0,'',303,0,0),(31595,6971,3,2,0,'87.218.146.91',1178900669,1,0,1,1,1,1,'','','Armando,\n\nPlease do it this way:\n\nPrnSetSize( 650, 250 )\n\nPRINTER oPrt Preview \n  ...\nENDPRINT','',0,'gIA=','3vgsc1i7',1,0,'',2,0,0),(31596,6859,3,154,0,'151.21.78.67',1178901652,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ldc7odb]You can\'t use Harbour from CVS as Class TGet has been modified and now it does not work fine with FWH.\n\nPlease use Harbour from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->[/quote:1ldc7odb]\n\nI use xHarbour, do not work with this?','',0,'gA==','1ldc7odb',1,0,'',154,0,0),(31597,6961,3,159,0,'210.243.203.20',1178901997,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:27ez10mo]\nIt is an issue, but it doesn\'t mean that it can\'t be used for a multiuser app. It does lock the entire database to make updates (more like makes it readonly). So, two users cannot make updates at exactly the same time, but this only takes a split second. For small numbers of users this may not be an issue at all.\n[/quote:27ez10mo]\n\nfull reference:[url:27ez10mo]http&#58;//www&#46;sqlite&#46;org/faq&#46;html#q7[/url:27ez10mo]\n\nYES!! SQLite3 can be use on multi-user,\nBut have some limit you must to deference.\n\nSQLite3 have not server program to manage .DB,\nSo, it fix local .DB like \'DBF\' to lock/unlock.\n\nMay be you have listen firebird embed, it\'s only one people can access it.\nSQLite can let you access via multi-user but option like DBF.\n\nI think this is enough!!','',0,'kA==','27ez10mo',1,0,'',159,0,0),(31598,6971,3,53,0,'189.139.26.248',1178903014,1,0,1,1,1,1,'','','Mr. Antonio:\n\nNo way, this is my source code\n\nPrnSetSize( 650, 250 )\nPRINTER oPrt Preview\n\nDEFINE FONT oFnt1 NAME \"ARIAL\" SIZE 0,-6 OF oPrt BOLD\nDEFINE FONT oFnt2 NAME \"ARIAL\" SIZE 0,-8 OF oPrt BOLD\nDEFINE FONT oFnt3 NAME \"ARIAL\" SIZE 0,-9 OF oPrt BOLD\n\noTxtFile = TTxtFile():New(cFile,0)\noTxtFile:GOTOP()\n\nDO WHILE ! oTxtFile:lEOF()\n   cLinea	:= oTxtFile:ReadLine()\n   cCod		:= LEFT(cLinea,11)\n   cEst		:= SUBSTR(cLinea,013,10)\n   cSku		:= SUBSTR(cLinea,069,04)\n   cLin		:= SUBSTR(cLinea,073,02)\n   cSln		:= SUBSTR(cLinea,075,04)\n   cPre		:= SUBSTR(cLinea,113,07)\n   cTxt		:= SUBSTR(cLinea,123,12)\n\n   cSku	:= STRZERO(VAL(cSku),4)\n   cSku	+= \"-\" + STRZERO(VAL(cLin),4)\n   cSku	+= \"-\" + STRZERO(VAL(cSln),4)\n   cPre	:= \"$\" + ALLTRIM(TRANSFORM((VAL(cPre) / 100),\"99,999.99\"))\n\n   PAGE\n      nMrgSup	:= 00\n      nMrgIzq	:= 15\n      @ nMrgSup,nMrgIzq UPCA cCod OF oPrt BANNER SIZE .7\n      nMrgSup += 120\n      oPrt:SAY(nMrgSup,nMrgIzq+900,cPre,oFnt2)\n      nMrgSup += 70\n      @ nMrgSup,nMrgIzq + 750 UPCA cCod OF oPrt BANNER SIZE .5\n      nMrgSup += 60\n      oPrt:SAY(nMrgSup,nMrgIzq,cSku,oFnt1)\n      nMrgSup += 50\n      oPrt:SAY(nMrgSup,nMrgIzq,cEst,oFnt1)\n      nMrgSup += 15\n      oPrt:SAY(nMrgSup,nMrgIzq+300,cPre,oFnt2)\n      nMrgSup += 55\n      oPrt:SAY(nMrgSup,nMrgIzq,cTxt,oFnt1)\n      oPrt:SAY(nMrgSup,nMrgIzq+850,cTxt,oFnt1)\n   ENDPAGE\n   oTxtFile:Advance()\nENDDO\nENDPRINT\noTxtFile:END()\n\nRegards','',0,'kA==','7925udc9',1,0,'',53,0,0),(31599,6859,3,2,0,'87.218.146.91',1178903094,1,0,1,1,1,1,'','','Ugo,\n\nAre you using the most recent xHarbour from the CVS ?','',0,'kA==','3gmckfgd',1,0,'',2,0,0),(31600,6971,3,2,0,'87.218.146.91',1178903727,1,0,1,1,1,1,'','','Armando,\n\nAre you going to print labels ? If yes, then just calculate a new label position from your code','',0,'kA==','2sb7qwl9',1,0,'',2,0,0),(31601,6959,6,492,0,'189.147.32.187',1178903821,1,0,1,1,1,1,'','','Hola Patricio,Antonio :\n\nPatricio, muchas gracias por tu alternativa, esta muy interesante, el detalle es que es muy simple lo que pretendo hacer y si con la opcion que comenta Antonio es suficiente, tratare de hacerla de esa manera, ya que solo tendria que anexar esta nueva lib a la app.\n\nAgradezco a todos sus comentarios.\n\n\nSaludos','',0,'kA==','18ovytft',1,0,'',492,0,0),(31602,6959,6,2,0,'87.218.146.91',1178903941,1,0,1,1,1,1,'','','Raymundo,\n\nEl nuevo build de ADORDD ya lleva soporte automático para FoxPro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nNo tienes que modificar su código fuente','',0,'kA==','1u76o3rw',1,0,'',2,0,0),(31603,5900,6,987,0,'189.132.18.237',1178904765,1,0,1,1,1,0,'','problemas fivewin harbour','<!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  Hola estimada Aida:\n\nTe escribo desde México para molestarte, resulta que estoy empezando a migrar a los 32 bits y por ahora cuento con:\n\nFivewin for Harbour 2.6 - April 2005, y con varios compiladores de Harbour, pero con ninguno puedo generar una aplicacion con la cual se muestre una ventana principal  (TUTOR02.PRG), etc. \nPor lo que recurro a tí para preguntarte si te fue o no funcional esta versión de FWH con el compilador Harbour build 0.44 que mecionas, ya que he e intentado de todo sin poder lograr nada, ya busque por la red y dicho compilador ya no existe, sería posible que me pudieras pasar una copia del Harbour 0.44 a mi correro:\n\n<!-- e --><a href=\"mailto:danyleon82@hotmail.com\">danyleon82@hotmail.com</a><!-- e --> o en este..\n<!-- e --><a href=\"mailto:danyleon82@latinmail.com\">danyleon82@latinmail.com</a><!-- e -->\n\nte estare muy agradecido...\n\nSaludos..   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'kA==','3t1bprra',1,0,'',987,0,0),(31604,6959,6,492,0,'189.147.32.187',1178904856,1,0,1,1,1,1,'','','Super !!!!!!!\n\n\nMuchas Gracias MASTER.   <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'kA==','axuf9bfa',1,0,'',492,0,0),(31605,6859,3,154,0,'151.21.78.67',1178905042,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:l0h7lfeq]Are you using the most recent xHarbour from the CVS ?[/quote:l0h7lfeq]\nAntonio,\n\ni download from CVS today.','',0,'gA==','l0h7lfeq',1,0,'',154,0,0),(31606,6859,3,154,0,'151.21.78.67',1178905260,1,0,1,1,1,1,'','','Antonio,\nI do not receive the replies:\n\n[code:yfpcvowp]Always notify me of replies&#58;\nSends an e-mail when someone replies to a topic you have posted in&#46; This can be changed whenever you post&#46;[/code:yfpcvowp]\n\nin my profile is set to YES!','',0,'AIA=','yfpcvowp',1,0,'',154,0,0),(31607,6972,6,278,0,'164.77.105.87',1178905283,1,0,1,1,1,1,'','xBrowse - error en con los footer y font','Hola a todos:\n\nTengo un problema grave con los footer al usar la clase xbrowse.\n\n1) Lo que sucede es que no reconoce un font de diferente tamaño al que esta definido para el browse.\n\nParte del codigo es el siguiente:\n\n[code:1qhix76x]\nDEFINE FONT  aFont&#91;1&#93;  NAME &quot;Wingdings&quot;        SIZE 0, -32 BOLD\nDEFINE FONT  aFont&#91;2&#93;  NAME &quot;Times New Roman&quot;  SIZE 0, -16 BOLD\n\n&#46;&#46;&#46;&#46;\n\noBrw&#58;lFooter	   &#58;= &#46;T&#46;\noBrw&#58;nFooterLines         &#58;= 1\noBrw&#58;aCols&#91;1&#93;&#58;oFooterFont  	&#58;= aFont&#91; 2 &#93; \noBrw&#58;aCols&#91;9&#93;&#58;oFooterFont  	&#58;= aFont&#91; 2 &#93; \noBrw&#58;aCols&#91;1&#93;&#58;cFooter 	&#58;= &quot;TOTALES $&quot;\noBrw&#58;aCols&#91;9&#93;&#58;cFooter 	&#58;= Transform&#40; nSuma , &quot;@E $ 99,999,999,999&quot; &#41;\n[/code:1qhix76x]\n\nComo ven le asigno el font 2 , pero no lo reconoce.\n\nUna imagen de lo que pasa es la siguiente:\n\n[url:1qhix76x]http&#58;//img521&#46;imageshack&#46;us/my&#46;php?image=footer2xl9&#46;png[/url:1qhix76x]\n\nAntonio será un Bug ??\n\nLo raro, es que si funcionan los encabezados del xbrowse, con diferentes tipos de font, pero no los footer.\n\nAh, otro dato, estoy usando ventanas MDI, con los footer, no se si esl afectará ??\n\n\n2) Otro problema es como se puede evitar el espacio en blanco que queda antes del footer, cuando lo que muestra el browse es de menor tamaño al largo de la ventana.\n\nPienso que una solución sería asignar un color parecido, al de las filas,\npero no se como. Alguien me puede decir como le asigno el color de fondo ,  a la parte no utilizada ??, sin perder los 2 colores que diferencias las filas del browse.\n\n\nA la espera de alguna ayudita, \nSaludos,','',0,'EIA=','1qhix76x',1,0,'',278,0,0),(31608,6848,3,69,0,'206.210.100.104',1178905411,1,0,1,1,1,0,'','','I have done this in the past:\n\n[code:qhs9ad7b]\nSHELLEXECUTE&#40;0,0,&quot;DownloadFile&#46;exe&quot;,0,0,1 &#41;\ndbcloseall&#40;&#41;\nfreelibrary&#40; hBorland &#41;\nset resources to\nclear memory\nResAllFree&#40;&#41;\nif ! empty&#40; oWnd &#41;\n    oWnd&#58;end&#40;&#41;\nendif\nquit\n[/code:qhs9ad7b]\n\nHope this helps,\nJeff','',0,'AIA=','qhs9ad7b',1,0,'',69,0,0),(31609,6973,6,1056,0,'168.234.237.3',1178905796,1,0,1,1,1,0,'','imprimir con xHarbour','Saludos a todos lo integrantes de este grurpo\n\nReciente mente he iniciado a probar xharbour con un aplicación desarrollada en clipper, todo esta muy bien aun que he tenido unos problemas con los RDD drivers para usar CDX, ya pude hacer algo con #include \"apollo,ch\" pero aun tengo mis dudas, sin embargo todo a funcionado. Ahora les pido su   \n apoyo en lo que a impresiones se refiera.\n\n1 . Tiene xharbour funciones que manejen impresoras multifuncionales, USB  \n   y todas esas nuevas.\n\n2.  la configuración con apollo.ch es la ideal para manejar CDX o tengo otras \n   opciones\n\nPor sus comentario o Respuesta  muy agradecido.','',0,'AIA=','1jems1lj',1,0,'',1056,0,0),(31610,6971,3,53,0,'189.139.26.248',1178906378,1,0,1,1,1,1,'','','Mr. Antonio:\n\nYes, I have to print labels.\n\nThe labels are in roll, continuous form, then that is my problem.\n\nThe TPrinter class use letter size by default.\n\nCould you help me ?\n\nBest regards','',0,'AIA=','2i20yl81',1,0,'',53,0,0),(31611,6974,3,6,0,'87.17.213.179',1178907060,1,0,1,1,1,1,'','Bug in TMultiGet:bChange','This is the sample:\n\n[code:apri51yj]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    TEST&#40;&#41;\n\n    TEST&#40;&#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TEST&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 LISTBOX oBrw FIELDS\n\n    @ 4, 0 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:apri51yj]\n\nIf you press Enter you will not hear the beep. But you will hear it if you press Esc.\n\nEMG','',0,'AIA=','apri51yj',1,0,'',6,0,0),(31612,6974,3,6,0,'87.17.213.179',1178907158,1,0,1,1,1,1,'','Re: Bug in TMultiGet:bChange','This seems to solve the Enter problem. From KeyChar() method:\n\n[code:1slmo86g]   if nKey == VK_RETURN &#46;and&#46; ;\n      lAnd&#40; GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;, ES_WANTRETURN &#41;\n      &#58;&#58;oWnd&#58;nLastKey = 0\n      if &#58;&#58;bChange != nil\n         Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n      endif\n      return nil\n   endif[/code:1slmo86g]\n\nEMG','',0,'AIA=','1slmo86g',1,0,'',6,0,0),(31613,6971,3,303,0,'72.199.41.171',1178907274,1,0,1,1,1,0,'','','Armando,\n\nHave you looked at FWH\\SAMPLES\\LABELS? This may help.\n\nJames','',0,'AIA=','zqbn2h4h',1,0,'',303,0,0),(31614,6958,3,397,0,'201.93.215.72',1178909668,1,0,1,0,1,1,'','','Friends,\n\nExcuse-me for the mistake\n\nThis is the code sample:\n\n[code:8ctlnduq]\n#include &quot;fivewin&#46;ch&quot;\n\n// Ver exemplo TESTGRAF&#46;PRG tambem\n\nFunction main&#40;&#41; \n   Local oSay, oCursor\n   Local aMunicipios &#58;= &#123;&#125;\n   Local oDlg, oBmpColor , oBmpBlackWhite \n   Local cTitle &#58;= &quot;Testing&quot; \n   Local cDataDict &#58;= &quot;dentes&#46;bmp&quot; // &quot;e&#58;\\fontes\\nfw\\harbour\\recursos\\mapas\\mapazn&#46;bmp&quot;\n   Local cBmp &#58;= &quot;&quot;, cTitulo &#58;= &quot;Showing Map Color&quot;\n\n   DEFINE CURSOR oCursor HAND\n\n   cBmp &#58;= alltrim&#40; cGetFile&#40; &quot;*&#46;bmp&quot;, &quot;Please select a BMP file&quot; &#41; &#41;\n   if &#46;not&#46; &quot;&#46;&quot; $ cBmp\n      cBmp += &quot;&#46;BMP&quot;\n   endif\n\n   if file&#40; cBmp &#41;\n      if ! file&#40;&quot;ESTADOS&#46;DBF&quot;&#41;\n         ESTRU_DBF &#58;= &#123; &#123; &quot;IDMUNICIPI&quot;, &quot;N&quot;,10, 0 &#125; , ;\n                        &#123; &quot;MUNICIPIO&quot; , &quot;C&quot;,30, 0 &#125; &#125;\n                        DBCREATE&#40; &quot;ESTADOS&quot;, ESTRU_DBF &#41;\n      else\n         USE estados SHARED NEW\n      endif\n\n      DEFINE BITMAP oBmp FILE cBmp\n      DEFINE DIALOG oDlg TITLE cTitulo SIZE oBmp&#58;nWidth&#40;&#41;, oBmp&#58;nHeight PIXEL\n                                               //Size 276,185 \n             @ 0,000 Bitmap oBmp Filename cBmp Of oDlg Pixel // Adjust  // 100 High \n             oBmp&#58;bLClicked &#58;= &#123;|nRow,nCol|GetZone&#40;nRow,nCol,oBmp,aMunicipios,&#46;f&#46;&#41;&#125; \n             oBmp&#58;bRClicked &#58;= &#123;|nRow,nCol|GetZone&#40;nRow,nCol,oBmp,aMunicipios,&#46;t&#46;&#41;&#125; \n   \n      ACTIVATE DIALOG oDlg CENTERED //;\n         //ON PAINT PalBmpDraw&#40; hDC, 0, 0, oBmp&#58;hBitmap &#41;\n\n      oBmp&#58;End&#40;&#41;\n   endif\n   Return Nil\n\nFunction GetZone&#40;nRow,nCol,oBmpColor,aMunicipios,lModifica&#41; \n   Local nColor  &#58;= GetPixel&#40; oBmpColor&#58;GetDC&#40;&#41;, nCol,nRow&#41;\n\n   locate for estados-&gt;idmunicipi = ncolor\n   if lModifica = &#46;t&#46;\n      cName &#58;= estados-&gt;municipio\n      if MsgGet&#40; &quot;Informe o Continente&quot;,; // Title\n                 &quot;Continente&#58;&quot;,;          // Label\n                 @cName &#41;                // A variable by reference\n         rlock&#40;&#41;\n         estados-&gt;idmunicipi &#58;= nColor\n         estados-&gt;municipio  &#58;= cName\n         commit\n      endif\n   else\n      if ! found&#40;&#41;\n         cName &#58;= space&#40;30&#41;\n         if MsgGet&#40; &quot;Informe o Continente&quot;,; // Title\n                    &quot;Continente&#58;&quot;,;          // Label\n                    @cName &#41;                // A variable by reference\n            append blank\n            estados-&gt;idmunicipi &#58;= nColor\n            estados-&gt;municipio  &#58;= cName\n            commit\n         endif\n      else\n         ? estados-&gt;municipio, &quot;Cor &#58; &quot; + dec2rgb&#40; nColor &#41; , &quot;Col &#58; &quot; + AllTrim&#40;Str&#40;nCol&#41;&#41; , &quot;Row &#58; &quot; + AllTrim&#40;Str&#40;nRow&#41;&#41; \n      endif\n   endif\n   oBmpColor&#58;ReleaseDC&#40;&#41;\n   Return Nil \n\n***********************************************************************\n*\n* Dec2RGB function&#58; returns separate RGB values from object color value\n*\n* Usage&#58;\n*         nColor = RGB2Dec&#40;&lt;Red&gt;, &lt;Green&gt;, &lt;Blue&gt;&#41;\n*          ? nColor = 12345678\n*\nFUNCTION rgb2dec&#40; nRed, nGreen, nBlue &#41;\n   RETURN &#40; nRed + &#40; nGreen * 256 &#41; + &#40; nBlue * 65536 &#41; &#41;\n\n***********************************************************************\n*\n* Translate&#58; VB Code to xBase for Rochinha\n*\n* Dec2RGB function&#58; returns separate RGB values from object color value\n*\n* Usage&#58;\n*         RGB = Dec2RGB&#40;&lt;Decimal Color&gt;&#41; &amp;&amp; such as 10079487\n*          ? RGB = &quot;255, 204, 153&quot;       &amp;&amp; color result\n*\nFUNCTION dec2rgb&#40; tnDec &#41;\n   IF tnDec &lt; 0\n      ? \'Must be a positive value\'\n      RETURN &quot;&quot;\n   ENDIF\n\n   * Determine the hexadecimal equivalent of the decimal parameter passed\n   lcHex    &#58;= &quot;&quot;\n   lnFactor &#58;= 24 // set up factor value one exponent greater than used\n\n   FOR lnPos = 6 TO 1 STEP -1\n       lnFactor = lnFactor - 4     &amp;&amp; decrement factorial\n       lnExp = 2 ^ lnFactor        &amp;&amp; extrapolate next least power of two\n       FOR lnOrd = 15 TO 1 STEP -1\n           IF tnDec &lt; lnExp            &amp;&amp; no value greater than current one,\n              lcHex = lcHex + &quot;0&quot;    &amp;&amp; so store a zero in this position\n              EXIT                   &amp;&amp; go back for the next value\n           ENDIF\n           IF tnDec &gt;= lnExp * lnOrd  &amp;&amp; is value greater than or equal to?\n              * find the matching hex value from its ordinal position\n              lcHex = lcHex + SUBSTR&#40;\'123456789ABCDEF\', lnOrd, 1&#41;\n              EXIT\n           ENDIF\n       NEXT\n       tnDec = tnDec % lnExp     &amp;&amp; leave remainder of exponential division\n   NEXT\n\n   * reverse the order of the individual color indicators\n   lcHex = RIGHT&#40;lcHex, 2&#41; + SUBSTR&#40;lcHex, 3, 2&#41; + LEFT&#40;lcHex, 2&#41;\n\n   * convert the pairs into decimal values\n   lnPick = 2          &amp;&amp; offset to determine which pair to convert\n   lcRGB = &#91;&quot;&#93;     &amp;&amp; start of string delineator\n\n   * parse each color indicator and convert to decimal\n   FOR lnColor = 1 TO 3\n       lcHue = SUBSTR&#40;lcHex, &#40;lnPick * lnColor&#41; - 1, 2&#41; &amp;&amp; pull out color\n       lnMSB = ASC&#40;LEFT&#40;lcHue, 1&#41;&#41;     &amp;&amp; &quot;Most Significant Bit&quot;\n       lnLSB = ASC&#40;RIGHT&#40;lcHue, 1&#41;&#41;     &amp;&amp; &quot;Least Significant Bit&quot;\n\n       * subtract appropriate value from each to get decimal equivalent\n       lnMSB = lnMSB - IIF&#40;lnMSB &gt; 57, 55, 48&#41;\n       lnLSB = lnLSB - IIF&#40;lnLSB &gt; 57, 55, 48&#41;\n\n       * then add decimals together\n       lcRGB = lcRGB + TRANSFORM&#40; lnMSB * 16 + lnLSB, \'999\'&#41; + &quot;, &quot;\n   NEXT\n   lcRGB = LEFT&#40;lcRGB, LEN&#40;lcRGB&#41; - 2&#41; + &#91;&quot;&#93;  &amp;&amp; replace last comma with quote\n   RETURN lcRGB\n[/code:8ctlnduq]','',0,'AIA=','8ctlnduq',1,0,'',397,0,0),(31615,6815,6,1051,0,'201.42.92.82',1178909828,1,0,1,1,1,0,'','','Antonio,\n\nit obtained, to see some thing on bug2 and 3?','',0,'AIA=','3kx2gmjv',1,0,'',1051,0,0),(31616,6960,6,935,0,'200.62.80.154',1178910789,1,0,1,1,1,0,'','otro error imcomprensible','Antonio,\n\nBaje la ultima version del adordd y la instale, el programita compila pero al terminar en enlazado me envia el siguiente error :\n\n\"adordd.prg\" was compiled by older version , PCODE version 9 is no longer supported - Please recompile.\n\nProcedi a integrar el fuente a la compilacion a fin de enlazar el obj y me da el mismo error, alguna idea que puedo hacer .\n\nComo siempre muy agradecido\n\nRamon Paredes\nManagua Nicaragua','',0,'AIA=','10aijqfd',1,0,'',935,0,0),(31617,6971,3,53,0,'189.139.26.248',1178913480,1,0,1,1,1,1,'','','James:\n\nThanks for your reply.\n\nI have seen the examples but it seems that all are for printing labels in letter size pages and I have to print in a special size and the code oPrn:SETSIZE(nWidth,nHeigt) does not work.\n\n\nBest regards','',0,'AIA=','10vsruro',1,0,'',53,0,0),(31618,6815,6,1053,0,'189.174.207.84',1178915559,1,0,1,1,1,1,'','error','hola.\n\neste error no lo puedo solucionar\n\nundefined reference to `HB_FUN_HB_TOKENGET\'\n\nSaludos.\n\nPerdon es en harbour','',0,'AIA=','3slg4ib0',1,0,'',1053,0,0),(31619,6975,2,1054,0,'83.39.3.202',1178918974,1,0,1,1,1,0,'','Hola','Hola.\n\nAcabo de inscribirme en este foro y espero aprender mucho de vosotros y en lo que pueda (que es poco) os ayudaré.\n\nHace muchos años programaba en Clipper y ahora, tengo que rehacer algun programa para windows, aunque ya mi profesion esta orientada hacia otros derroteros.\n\nUn saludo a todos\n\nAntonio','',0,'AIA=','3q62whs6',1,0,'',1054,0,0),(31620,6815,6,1053,0,'189.174.207.84',1178919572,1,0,1,1,1,1,'','Re: error','[quote=&quot;jrendon&quot;:pvoyaa7d]hola.\n\neste error no lo puedo solucionar\n\nundefined reference to `HB_FUN_HB_TOKENGET\'\n\nSaludos.\n\nPerdon es en harbour[/quote:pvoyaa7d]\n\ncreo que es por esta Lib hboleaut\n\nal crear la lib  me sale esto.\n\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg: In function `HB_FUN_HB_INLINE_001\':\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: `IEnumVARIANT\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: (Each undeclared identifier is reported only once\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: for each function it appears in.)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: `pEnumVariant\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: syntax error before \')\' token\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:672: error: `RetVal\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:672: error: `S_OK\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:674: warning: implicit declaration of function `RetValue\'\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg: In function `HB_FUN_HB_INLINE_002\':\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:688: error: `IEnumVARIANT\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:688: error: `pEnumVariant\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:688: error: syntax error before \')\' token\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg: At top level:\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:668: warning: \'HB_FUN_HB_INLINE_001\' defined but not used\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:687: warning: \'HB_FUN_HB_INLINE_002\' defined but not used\n\nutilizo Mingw como compilador de C','',0,'gA==','pvoyaa7d',1,0,'',1053,0,0),(31621,6815,6,940,0,'189.157.76.253',1178919827,1,0,1,1,1,1,'','','la funcion HB_TOKENGET()\n\nEs una funcion nueva de harbour.\n\ncon xharbour no hay problema , \n\no como dice Antonio:\n\nEn vez de HB_TokenGet() puedes usar StrToken() de FWH.\n\nUsa los mismos parámetros.\n\n\nsaludos..','',0,'gA==','36kkie2m',1,0,'',940,0,0),(31622,6972,6,969,0,'83.165.99.149',1178922163,1,0,1,1,1,0,'','','Hola Juan:\n\nContestando a tus dos cuestiones:\n\n(1)  Sí, es un \'bug\', se corrige fácilmente en la clase xBrowse cambiando la línea  3610 del METHOD PaintFooter() donde pone:\n[code:kpd1hjnl]oFont   &#58;=  &#58;&#58;oHeaderFont[/code:kpd1hjnl]debe  poner:\n[code:kpd1hjnl]oFont   &#58;=  &#58;&#58;oFooterFont[/code:kpd1hjnl]\n(2) Como tú propones puedses asignar color  de pintado general al xBrowse  igual al de las filas de datos con el método heredado SetColor(), algo así:\n[code:kpd1hjnl]oBrw&#58;SetColor&#40; CLR_BLACK, nColorDeLasFilas &#41;[/code:kpd1hjnl]y te recomiendo completar el pintado de las líneas verticales poniendo:\n[code:kpd1hjnl]oBrw&#58; lColDividerComplete &#58;= &#46;t&#46;[/code:kpd1hjnl]\nTambién podrías hacer que se autoajustara el alto del xbrowse al necesario para no dejar el espacio que comentas mediante el uso de :: ReSize(), pero esto es un poco mas complicado y necesitaría de ver el código para darte una solución válida.\n\nUn saludo,\nRamón Avendaño.','',0,'AIA=','kpd1hjnl',1,0,'',969,0,0),(31623,6971,3,303,0,'72.199.41.171',1178923972,1,0,1,1,1,0,'','','Armando,\n\nI don\'t know if this will help, but here is a copy of an old message about label printing.\n\nYou might also try searching the forum for \"label.\"\n\nJames\n\n-------------------------------\n6/30/2006 11:36 AM\n\nI use the Dymo Turbo 330 and run it from within a program. Here is the code I use: \n\n\nFUNCTION ShipLabel \n// Declare variables \nLOCAL oDbf, nRow := 0 \n\nPRINT oPrn NAME \"Report Printing\" TO \"DYMO LabelWriter 330 Turbo\" // FROM USER \n\n// Define the fonts to be used \nDEFINE FONT oFnorm NAME \"Courier New\" SIZE 0, - 12 OF oPrn \nDEFINE FONT oFbold NAME \"Courier New\" SIZE 0, - 12 BOLD OF oPrn \nnRsp := oPrn:nVertRes() / 20 // Number of rows \nnCsp := oPrn:nHorzRes() / 40 // Number of columns \noPrn:SetLandscape( ) \nnRow := 2 * nRsp \n\nPAGE \noPrn:Say( nRow, 10 * nCsp, \"MasterLink Software\", oFbold ) \nnRow += nRsp \noPrn:Say( nRow, 15 * nCsp, \"PO Box 740\", oFbold ) \nnRow += nRsp \noPrn:Say( nRow, 5 * nCsp, \"Trabuco Canyon, CA 92678-0740\", oFbold) \nnRow += nRsp \noPrn:Say( nRow, 2 * nCsp, \"_________________________________\", oFnorm ) \nnRow += 2 * nRsp \noPrn:Say( nRow, 2 * nCsp, oCli:company, oFnorm ) \nnRow += nRsp \noPrn:Say( nRow, 2 * nCsp, oCli:street, oFnorm ) \nnRow += nRsp \noPrn:Say( nRow, 2 * nCsp, TRIM(oCli:city) + \", \" + oCli:state + \" \" + oCli:zipcode, oFnorm ) \nENDPAGE \nENDPRINT \noFnorm:end() \noFbold:end() \n\nRETURN NIL \n\nThe same, I suspect, would work with the 400. I hope this helps. \n\nTim\n_________________\nTim Stone \n<!-- w --><a class=\"postlink\" href=\"http://www.MasterLinkSoftware.com\">www.MasterLinkSoftware.com</a><!-- w -->','',0,'AIA=','2sya2krl',1,0,'',303,0,0),(31624,6815,6,1053,0,'189.174.207.84',1178924249,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:36ywiefj]la funcion HB_TOKENGET()\n\nEs una funcion nueva de harbour.\n\ncon xharbour no hay problema , \n\no como dice Antonio:\n\nEn vez de HB_TokenGet() puedes usar StrToken() de FWH.\n\nUsa los mismos parámetros.\n\n\nsaludos..[/quote:36ywiefj]\n\nel detalle es que no uso FWH unicamente harbour\n\nSaludos.','',0,'gA==','36ywiefj',1,0,'',1053,0,0),(31625,6815,6,1053,0,'189.174.207.84',1178927791,1,0,1,1,1,1,'','Re: error','[quote=&quot;jrendon&quot;:adw333ql][quote=&quot;jrendon&quot;:adw333ql]hola.\n\neste error no lo puedo solucionar\n\nundefined reference to `HB_FUN_HB_TOKENGET\'\n\nSaludos.\n\nPerdon es en harbour[/quote:adw333ql]\n\ncreo que es por esta Lib hboleaut\n\nal crear la lib  me sale esto.\n\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg: In function `HB_FUN_HB_INLINE_001\':\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: `IEnumVARIANT\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: (Each undeclared identifier is reported only once\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: for each function it appears in.)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: `pEnumVariant\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:669: error: syntax error before \')\' token\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:672: error: `RetVal\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:672: error: `S_OK\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:674: warning: implicit declaration of function `RetValue\'\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg: In function `HB_FUN_HB_INLINE_002\':\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:688: error: `IEnumVARIANT\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:688: error: `pEnumVariant\' undeclared (first use in this function)\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:688: error: syntax error before \')\' token\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg: At top level:\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:668: warning: \'HB_FUN_HB_INLINE_001\' defined but not used\nC:\\harbour\\harbour\\contrib\\ole2\\win32ole.prg:687: warning: \'HB_FUN_HB_INLINE_002\' defined but not used\n\nutilizo Mingw como compilador de C[/quote:adw333ql]\n\nResuelto este error solo me falta esto  HB_TokenGet()\n\nen que lib se encuentra ???','',0,'gA==','adw333ql',1,0,'',1053,0,0),(31626,6972,6,278,0,'164.77.105.87',1178929024,1,0,1,1,1,1,'','','Ramón, te agradezco MUCHISIMO tu AYUDA.\n\nEstaba bien complicado, con ese error. Y no sabía como hacerlo,\nmuchas gracias de nuevo.\n\nLas otras sugerencias, las voy a aaplicar tambien   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .\n\nSaludos,','',0,'gA==','7fhy3uo8',1,0,'',278,0,0),(31627,6976,6,278,0,'164.77.105.87',1178929784,1,0,1,1,1,1,'','xBrowse - una mejora a los encabezados','Hola a Todos.\n\nTengo una sugerencia para los \"maestros\", si es posible o como se puede hacer para cambiar el triangulito  de los encabezados ( header ) para ordenar los datos de una columan del xbrowse.\n\nLo que sucede es que muchos usuarios son cortos de vista, y el triangulo no lo ven, es muy pequeño y de color similar.\n\na) Se puede aumentar su tamaño.\n\n2) o Se puede poner un bmp para visualizarlo mejor.\n\nCualquier comentario es welcome.\n\nLes adjunto una imagen del porblema:\n\n[url:3fmxpa6u]http&#58;//img225&#46;imageshack&#46;us/my&#46;php?image=barra1dt2&#46;png[/url:3fmxpa6u]\n\n\nSaludos','',0,'EA==','3fmxpa6u',1,0,'',278,0,0),(31628,6977,3,171,0,'71.233.232.238',1178930644,1,0,1,1,1,0,'','Data Mining Graphics','Anybody with experience in graphic DLL can suggest me what graphics package can we use with xHarbour + FWH to display statitiscal trends and patterns (data mining). The graphics display that I need are the following:\nHierarchical, Network, Clustering\n\nRegards,\n\nGeorge','',0,'EA==','3bg39zdm',1,0,'',171,0,0),(31629,6978,6,171,0,'71.233.232.238',1178935306,1,0,1,1,1,0,'','Data Mining Graphics','Algun compañero del foro que tenga experiencia con graficos me podria indicar algun DLL que se pueda usar para hacer graficas estadisticas (data mining).\n\nSaludos,\n\nGeorge','',0,'EA==','1qcvzet0',1,0,'',171,0,0),(31630,6971,3,53,0,'189.139.94.32',1178936805,1,0,1,1,1,1,'','','Thanks James, I will\n\nRegards','',0,'EA==','3r7jn5zl',1,0,'',53,0,0),(31631,6848,3,239,0,'218.20.61.8',1178937438,1,0,1,1,1,0,'','','Jeff,\n  Working !\nThank you !\nShuming Wang','',0,'EA==','2zw933ao',1,0,'',239,0,0),(31632,6961,3,131,0,'81.39.18.243',1178950927,1,0,1,1,1,0,'','','Hello:\nDoes your lib manage sqlite without any DLL,or I have to download the DLL version of Sqlite ?\n\nRegards from Spain,','',0,'EA==','3au2fpca',1,0,'',131,0,0),(31633,6977,3,131,0,'81.39.18.243',1178951049,1,0,1,1,1,0,'','','Try Alfredo Artega\'s graphic class. It\'s included with FWH, look at samples/graphics\n\nRegards,','',0,'EA==','3uxtyul9',1,0,'',131,0,0),(31634,6960,6,2,0,'87.218.146.91',1178953426,1,0,1,1,1,1,'','','Ramón,\n\nNo enlaces ADORDD.lib, sólo el ADORDD.obj que tu creas','',0,'EA==','sj14u44a',1,0,'',2,0,0),(31635,6814,3,2,0,'87.218.146.91',1178960568,1,0,1,1,1,1,'','','[code:2g6c1gsd]\n2007-05-12 10&#58;48 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * OrdCreate&#40;&#41; fixed \n     * OrdDestroy&#40;&#41; implemented\n[/code:2g6c1gsd]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','2g6c1gsd',1,0,'',2,0,0),(31636,6815,6,2,0,'87.218.146.91',1178960648,1,0,1,1,1,1,'','','[code:1aaeihp4]\n2007-05-12 10&#58;48 UTC+0100 Antonio Linares &#40;alinares@fivetechsoft&#46;com&#41;\n   * contrib/adordd/adordd&#46;prg\n     * OrdCreate&#40;&#41; fixed \n     * OrdDestroy&#40;&#41; implemented\n[/code:1aaeihp4]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','1aaeihp4',1,0,'',2,0,0),(31637,6815,6,2,0,'87.218.146.91',1178960741,1,0,1,1,1,1,'','','HB_TokenGet() está implementado en ADORDD.prg especialmente para xharbour','',0,'AIA=','3mgx5uci',1,0,'',2,0,0),(31638,6815,6,2,0,'87.218.146.91',1178965052,1,0,1,1,1,1,'','','Athayde\n\n2. bug locate: ADORDD se limita a proporcionarle esa expresión al driver de ADO. Debe haber algo que no le parece bien.\n\n3. Modifica ADORDD para que no reemplace en ADO_PUTVALUE() el valor de un campo, si es el mismo valor que tiene','',0,'AIA=','2ziorw98',1,0,'',2,0,0),(31639,6961,3,159,0,'210.243.203.20',1178969570,1,0,1,1,1,0,'','','[quote=&quot;José Luis Sánchez&quot;:23qf8y9b]Hello:\nDoes your lib manage sqlite without any DLL,or I have to download the DLL version of Sqlite ?\n\n[/quote:23qf8y9b]\n\nNo!! Doesn\'t need any \'.DLL\'.\nIt\'s clean!!','',0,'gA==','23qf8y9b',1,0,'',159,0,0),(31640,6815,6,1051,0,'201.27.212.24',1178979345,1,0,1,1,1,0,'','','error in index:\nINDEX ON rd+nivelus+menu TO XNIV\n\nError ADORDD/1004  Create error (Operation not supported): XNIV\n\nError at ...: ADO_ORDCREATE(692) in Module: ADORDD.PRG\nCalled from : ADO_ORDCREATE(699) in Module: ADORDD.PRG\nCalled from : ORDCREATE(0) in Module:\nCalled from : DBCREATEINDEX(61) in Module: rddord.prg\n\nThanks\n\ni see about bug2 and 3 and post results','',0,'gA==','33ck0jth',1,0,'',1051,0,0),(31641,6815,6,2,0,'87.218.146.91',1178980308,1,0,1,1,1,1,'','','Try this:\n\nINDEX ON rd+nivelus+menu TO XNIV TAG RD_NIVELUS_MENU','',0,'gA==','1iuibqml',1,0,'',2,0,0),(31642,6960,6,935,0,'200.62.120.192',1178982629,1,0,1,1,1,0,'','error nuevamente','Antonio,\n\nGracias por tu atencion y la del foro, hice lo que me indicaste, compile el rddado.prg, lo enlace, la lib no solo el obj, y compilo y enlazo sin problemas se ejecuta pero al entrar en la aplicacion me manda este error :\n\n\nApplication\n===========\n   Path and name: C:\\sistemas\\RRHH_32\\personal.exe (32 bits)\n   Size: 1,466,368 bytes\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 12/05/2007, 08:58:38\n   Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   MAESTRO\n     [   2] = O   Object\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from:  =&gt; ADO_OPEN(264)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from:  =&gt; BROWRST(532)\n   Called from: personal.prg =&gt; (b)CREAMENU(117)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: personal.prg =&gt; PRINCIPAL(74)\n\nSystem\n======\n   CPU type: Intel(R) Celeron(R) M processor         1.60GHz 1600 Mhz\n   Hardware memory: 447 megs\n\nel build con el que estoy compilando es el siguiente :\n\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for xHarbour 7.01 - January 2007        xHarbour development power ³Ü\nECHO ³ (c) FiveTech, 1993-2006      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\xharbour\nset bcdir=c:\\BORLAND\\bcc55\nset fwdir=c:\\fwh\n\n%hdir%\\bin\\harbour %1 adordd /n /i%fwdir%\\include;%hdir%\\include /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c adordd.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj + &gt;&gt; b32.bc\necho adordd.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho %fwdir%\\lib\\Fivehx.lib %fwdir%\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\usrrdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtgui.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n\nrem uncomment this line to use the debugger and comment the following one\nrem %bcdir%\\bin\\ilink32 -Gn -Tpe -s -v @b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32.bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1.c\n\n:LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n\nY la peueña aplicacion que quiero ejecutar es :\n\n//===========================\nstatic function browRST()\n//===========================\n\nPublic oDlg,oBrw\n\nUSE Personal1 VIA \"ADORDD\" TABLE \"MAESTRO\" MYSQL ;\n       FROM \"localhost\" USER \"root\" PASSWORD \"1234\"  ALIAS \"MAESTRO\"\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS MAESTRO-&gt;NUMERO, ;\n                                           MAESTRO-&gt;nombreS, ;\n                                           MAESTRO-&gt;APELLIDO1 ;\n          HEADERS    \"Codigo\",\"Nombre \",\"Salario\" ;\n          FIELDSIZES 60,200,60 ;\n          SIZE 284, 137 OF oDlg\n\n   @154,08  BTNBMP LEFT PROMPT \" Agregar\"    SIZE 50,19 OF oDlg FILENAME \"NEW1.BMP\"       ACTION oDlg:End()\n   @154,67  BTNBMP LEFT PROMPT \" Modificar\"  SIZE 50,19 OF oDlg FILENAME \"CARDF00C.BMP\"   ACTION oDlg:End()\n   @154,125 BTNBMP LEFT PROMPT \" Borrar\"     SIZE 50,19 OF oDlg FILENAME \"BORRAR1.BMP\"    //ACTION BorraU(oLbx )\n   @154,184 BTNBMP LEFT PROMPT \" Buscar\"     SIZE 50,19 OF oDlg FILENAME \"FIND.BMP\"       //ACTION BuscaU(oLbx,3,\"Color\")\n   @154,242 BTNBMP LEFT PROMPT \" Salir\"      SIZE 50,19 OF oDlg FILENAME \"SALIR3.BMP\"     ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   CLOSE DATABASES\n\nRETURN NIL\n\nAgradeceria de sobremanera cualquier orientacion al  respecto\n\n\nRamon Paredes\nManagua Nicaragua','',0,'','1dc9lw8c',1,0,'',935,0,0),(31643,6815,6,1053,0,'189.174.207.84',1178983787,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3f1wmjs8]HB_TokenGet() está implementado en ADORDD.prg especialmente para xharbour[/quote:3f1wmjs8]\n\nAntonio:\n\nen harbour no sabes en que libreria se encuentra??\n\nen adordd.prg ya lo habilite para Harbour pero ahora me pide la Funcion HB_FUN_HB_ATOKENS.\n\nSaludos...','',0,'gA==','3f1wmjs8',1,0,'',1053,0,0),(31644,6979,6,171,0,'71.233.232.238',1178986152,1,0,1,1,1,0,'','Clase RMChart','Algun compañero que tenga la clase RmChart y los wrappers por favor envienmela a <!-- e --><a href=\"mailto:georgeabinader@msn.com\">georgeabinader@msn.com</a><!-- e -->\n\nGracias\n\nGeorge','',0,'gA==','2ihoxgsc',1,0,'',171,0,0),(31645,6815,6,940,0,'189.157.76.253',1178992150,1,0,1,1,1,1,'','','Sr. Antonio, \n\nse puede usar RDDADO con TXbrowse  en un dialogo con resource ?\n\n\npodria indicarme algun ejemplo,\n\n\ngracias por su generosidad,\n\n\nsaludos cordiales.','',0,'gA==','1ly7n6x5',1,0,'',940,0,0),(31646,6971,3,53,0,'189.139.19.72',1178992157,1,0,1,1,1,1,'','','Mr. Antonio:\n\nThis is a little sample of my problem\n[code=fw:2q7xa2ca]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"><ol><li style=\"\" class=\"li1\">&nbsp;</li><li style=\"\" class=\"li2\">#Include <span style=\"color: #ff0000;\">&quot;FiveWin.ch&quot;</span></li><li style=\"\" class=\"li1\"><span style=\"color: #008000;\">FUNCTION</span> AppLbl1a<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li2\">&nbsp; &nbsp; &nbsp;<span style=\"color: #008000;\">LOCAL</span> oPrt,oFont,nVez</li><li style=\"\" class=\"li1\">&nbsp;</li><li style=\"\" class=\"li2\">&nbsp; &nbsp; &nbsp;PrnSetSize<span style=\"color: #000000;\">&#40;</span> <span style=\"color: #000000;\">650</span>, <span style=\"color: #000000;\">250</span> <span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp;<span style=\"color: #0000ff;\">PRINTER</span> oPrt PREVIEW</li><li style=\"\" class=\"li2\">&nbsp;</li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp;<span style=\"color: #0000ff;\">DEFINE</span> <span style=\"color: #0000ff;\">FONT</span> oFont <span style=\"color: #0000ff;\">NAME</span> <span style=\"color: #ff0000;\">&quot;ARIAL&quot;</span> <span style=\"color: #0000ff;\">SIZE</span> <span style=\"color: #000000;\">0</span>,<span style=\"color: #000000;\">-14</span> <span style=\"color: #0000ff;\">OF</span> oPrt</li><li style=\"\" class=\"li2\">&nbsp;</li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgInfo<span style=\"color: #000000;\">&#40;</span>oPrt:<span style=\"\">nHorzSize</span><span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span><span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li2\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgInfo<span style=\"color: #000000;\">&#40;</span>oPrt:<span style=\"\">nVertSize</span><span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span><span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li1\">&nbsp;</li><li style=\"\" class=\"li2\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; oPrt:<span style=\"\">SetSize</span><span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">550</span>,<span style=\"color: #000000;\">150</span><span style=\"color: #000000;\">&#41;</span> &nbsp; <span style=\"color: #007f00;\">// This no modify the size, why ?</span></li><li style=\"\" class=\"li1\">&nbsp;</li><li style=\"\" class=\"li2\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgInfo<span style=\"color: #000000;\">&#40;</span>oPrt:<span style=\"\">nHorzSize</span><span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span><span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgInfo<span style=\"color: #000000;\">&#40;</span>oPrt:<span style=\"\">nVertSize</span><span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span><span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li2\">&nbsp;</li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span style=\"color: #008000;\">FOR</span> nVez := <span style=\"color: #000000;\">1</span> <span style=\"color: #0000ff;\">TO</span> <span style=\"color: #000000;\">10</span></li><li style=\"\" class=\"li2\">&nbsp; &nbsp; PAGE</li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;oPrt:<span style=\"\">SAY</span><span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">50</span>,<span style=\"color: #000000;\">40</span>,<span style=\"color: #ff0000;\">&quot;Printing ...&quot;</span> + <span style=\"color: #0000ff;\">STR</span><span style=\"color: #000000;\">&#40;</span>nVez<span style=\"color: #000000;\">&#41;</span>,oFont<span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li2\">&nbsp; &nbsp; ENDPAGE</li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <span style=\"color: #008000;\">NEXT</span></li><li style=\"\" class=\"li2\">&nbsp;</li><li style=\"\" class=\"li1\">&nbsp; &nbsp; &nbsp;<span style=\"color: #0000ff;\">ENDPRINTER</span></li><li style=\"\" class=\"li2\"><span style=\"color: #008000;\">RETURN</span><span style=\"color: #000000;\">&#40;</span>NIL<span style=\"color: #000000;\">&#41;</span></li><li style=\"\" class=\"li1\">&nbsp;</li></ol></div>[/code:2q7xa2ca]\nWhat is wrong ?, I hope you can help me pls.\n\nRegards','e4da11e732f5024af23d4f6730f21b8b',0,'AIA=','2q7xa2ca',1,0,'',53,0,0),(31647,6815,6,492,0,'189.147.32.187',1178992278,1,0,1,1,1,1,'','','Antonio y demas gurus en este tema :\n\nEs posible combinar diferentes RDDs en una app ?\n\nMe explico : Por default uso DBFs con CDXs y quisiera procesar ( abrir, buscar, modificar, agregar o borrar ) desde algun otro archivo ya sea de Access, MySql, FoxPro, etc. sin afectar la plataforma default que uso ?\n\nEn pocas palabras seria : Abrir-Usar-Cerrar.\n\n\nSaludos','',0,'gA==','255zs5za',1,0,'',492,0,0),(31648,6815,6,54,0,'189.132.89.140',1178994111,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:2ycju5kg]Antonio y demas gurus en este tema :\n\nEs posible combinar diferentes RDDs en una app ?\n\nMe explico : Por default uso DBFs con CDXs y quisiera procesar ( abrir, buscar, modificar, agregar o borrar ) desde algun otro archivo ya sea de Access, MySql, FoxPro, etc. sin afectar la plataforma default que uso ?\n\nEn pocas palabras seria : Abrir-Usar-Cerrar.\n\n\nSaludos[/quote:2ycju5kg]\n\nRay, se puede sin problema alguno\n\nsaludos','',0,'gA==','2ycju5kg',1,0,'',54,0,0),(31649,6815,6,644,0,'201.253.113.53',1178997343,1,0,1,1,1,0,'','','estoy compilando la clase con xharbour 0.99.60 y me aparecen estos errores al compilar\nobj\\adordd.c:\n        echo off\n        echo c:\\borland\\bcc55\\bin\\c0w32.obj + &gt; b32.bc\n        echo obj\\mysql1.obj obj\\adordd.obj, + &gt;&gt; b32.bc\n        echo mysql1.exe, + &gt;&gt; b32.bc\n        echo mysql1.map, + &gt;&gt; b32.bc\n        echo c:\\tsbrowse\\lib\\sbrowsex.lib + &gt;&gt; b32.bc\n        echo c:\\tsbutton\\lib\\sbuttonh.lib + &gt;&gt; b32.bc\n        echo c:\\fwh\\lib\\FiveHx.lib c:\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\rtl.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\rtl.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\vm.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\gtwin.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\lang.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\macro.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\rdd.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\hbsix.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\debug.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\common.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\pp.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\codepage.lib + &gt;&gt; b32.bc\n        echo c:\\adordd\\compila\\usrrdd.lib + &gt;&gt; b32.bc\n        rem Uncomment these two lines to use Advantage RDD\n        rem echo c:\\xharbour\\lib\\b32\\rddads.lib + &gt;&gt; b32.bc\n        rem echo c:\\xharbour\\lib\\b32\\Ace32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\cw32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\import32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n        IF EXIST mysql1.res echo mysql1.res &gt;&gt; b32.bc\n        c:\\borland\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'SBROWSEX.LIB\'\n\n** error 2 ** deleting mysql1.exe\n\nC:\\adordd\\compila&gt;edit *.rmk\n\nC:\\adordd\\compila&gt;i\n\nC:\\adordd\\compila&gt;if not exist obj md obj\n\nC:\\adordd\\compila&gt;c:\\borland\\bcc55\\bin\\make -ftest.rmk\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n        c:\\xharbour\\bin\\Harbour .\\mysql1.PRG /N /W /Oobj\\ /Ic:\\fwh\\include;c:\\xharbour\\i\nnclude\nxHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'.\\mysql1.PRG\'...\nLines 16, Functions/Procedures 1\nGenerating C source output to \'obj\\mysql1.c\'...\nDone.\n        c:\\borland\\bcc55\\bin\\bcc32 -c -tWM -Ic:\\xharbour\\include -oobj\\mysql1 obj\\mysql1\n.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nobj\\mysql1.c:\n        c:\\xharbour\\bin\\Harbour .\\adordd.PRG /N /W /Oobj\\ /Ic:\\fwh\\include;c:\\xharbour\\i\nnclude\nxHarbour Compiler build 0.99.60 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'.\\adordd.PRG\'...\nLines 943, Functions/Procedures 55\nGenerating C source output to \'obj\\adordd.c\'...\nDone.\n        c:\\borland\\bcc55\\bin\\bcc32 -c -tWM -Ic:\\xharbour\\include -oobj\\adordd obj\\adordd\n.c\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nobj\\adordd.c:\n        echo off\n        echo c:\\borland\\bcc55\\bin\\c0w32.obj + &gt; b32.bc\n        echo obj\\mysql1.obj obj\\adordd.obj, + &gt;&gt; b32.bc\n        echo mysql1.exe, + &gt;&gt; b32.bc\n        echo mysql1.map, + &gt;&gt; b32.bc\n        echo c:\\fwh\\lib\\FiveHx.lib c:\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\rtl.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\rtl.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\vm.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\gtwin.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\lang.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\macro.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\rdd.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\hbsix.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\debug.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\common.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\pp.lib + &gt;&gt; b32.bc\n        echo c:\\xHarbour\\lib\\codepage.lib + &gt;&gt; b32.bc\n        echo c:\\adordd\\compila\\usrrdd.lib + &gt;&gt; b32.bc\n        rem Uncomment these two lines to use Advantage RDD\n        rem echo c:\\xharbour\\lib\\b32\\rddads.lib + &gt;&gt; b32.bc\n        rem echo c:\\xharbour\\lib\\b32\\Ace32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\cw32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\import32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n        echo c:\\borland\\bcc55\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n        IF EXIST mysql1.res echo mysql1.res &gt;&gt; b32.bc\n        c:\\borland\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_itemGetSymbol\' referenced from C:\\ADORDD\\COMPILA\\USRRDD.\nLIB|usrrdd\nError: Unresolved external \'_hb_xvmPopLogical\' referenced from C:\\ADORDD\\COMPILA\\USRRDD.\nLIB|usrrdd\nError: Unresolved external \'_hb_xvmPushLocalByRef\' referenced from C:\\ADORDD\\COMPILA\\USR\nRDD.LIB|usrrdd\n\n** error 2 ** deleting mysql1.exe\n\nalguien sabe porque ?? muchas gracias por su atención','',0,'gA==','12c8q84i',1,0,'',644,0,0),(31650,6980,6,54,0,'189.132.89.140',1178997821,1,0,1,1,1,1,'','Combox . modificación de combobox','Hola amigos,\n\nHe modificado algo a la combobox nativa de FWH, para hacer algo de busqueda incremental.\n\nHasta el momento lo catalogo como semi-incremental.\n\ndejo el link de descarga.\n\nEl ejemplo es el 2 combo del ejemplo, viene un arreglo teniendo items del uno al quince.\n\nen el segundo combo, ustedes teclean \"cat\" por ejemplo y aparece la primera aparicion en la lista, es decir, \"catorce\"\n\nsaludos, falta hacer el salto en la lista desplergada para que fuese incremental totalmente, toda la ayuda y/o comentarios son bienvenidos.\n\n[url:3hfbw1gf]http&#58;//www&#46;uploading&#46;com/files/RVUHWP2J/combox&#46;rar&#46;html[/url:3hfbw1gf]\n\nwilliam morales','',0,'EA==','3hfbw1gf',1,0,'',54,0,0),(31651,6815,6,1051,0,'200.205.153.6',1179020268,1,0,1,1,1,0,'','','correction of fix after UPDATE\nstatic function ADO_PUTVALUE( nWA, nField, xValue )\n\n   local aWAData := USRRDD_AREADATA( nWA )\n   local oRecordSet := aWAData[ WA_RECORDSET ]\n\n   if ! aWAData[ WA_EOF ] .AND. oRecordSet:Fields( nField - 1 ):Value&lt;&gt;xValue\n      TRY\n         oRecordSet:Fields( nField - 1 ):Value := xValue\n         oRecordSet:Update()\n      CATCH\n      END\n   endif\n\nreturn SUCCESS\nThanks','',0,'','2lztqz4j',1,0,'',1051,0,0),(31652,6815,6,1051,0,'200.205.153.6',1179023445,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:uvx9hqy6]Try this:\n\nINDEX ON rd+nivelus+menu TO XNIV TAG RD_NIVELUS_MENU[/quote:uvx9hqy6]\n\ni try but error continues\nis anything on Index.Columns\nbut not find a solution\n\ni try a index more simple\nINDEX ON nivelus TO X_NIVELUS\nand the error cotinues\n\nThanks\nFernando','',0,'gA==','uvx9hqy6',1,0,'',1051,0,0),(31653,6971,3,2,0,'87.218.146.91',1179040353,1,0,1,1,1,1,'','','&gt; oPrt:SetSize(550,150) // This no modify the size, why ? \n\nWe don\'t know it. It should work','',0,'gA==','39rs0w72',1,0,'',2,0,0),(31654,6980,6,2,0,'87.218.146.91',1179040427,1,0,1,1,1,1,'','','William,\n\nLa actual clase TComboBox de FWH proporciona búsqueda incremental','',0,'gA==','1gehzz5o',1,0,'',2,0,0),(31655,6960,6,2,0,'87.218.146.91',1179040537,1,0,1,1,1,1,'','','Ramón,\n\nEl error viene de aqui:\n\nUSE Personal1 VIA \"ADORDD\" TABLE \"MAESTRO\" MYSQL ; \nFROM \"localhost\" USER \"root\" PASSWORD \"1234\" ALIAS \"MAESTRO\" \n\nTienes instalado el driver de ADO para MySQL ? Comprueba que esos datos usados sean los correctos','',0,'gA==','340rlmcy',1,0,'',2,0,0),(31656,6815,6,2,0,'87.218.146.91',1179040946,1,0,1,1,1,1,'','','Athayde,\n\nYes, that was the idea for ADO_PUTVALUE(), updated\n\nRegarding the indexes, are you using the most recent ADORDD source code ? Yesterday we fixed the indexes creation','',0,'gA==','1qk2rgdg',1,0,'',2,0,0),(31657,6975,2,2,0,'87.218.146.91',1179041028,1,0,1,1,1,1,'','','Bienvenido a los foros <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','81z199qq',1,0,'',2,0,0),(31658,6973,6,2,0,'87.218.146.91',1179041094,1,0,1,1,1,1,'','','FWH te proporciona acceso a todo tipo de impresoras','',0,'gA==','2mhhtgif',1,0,'',2,0,0),(31659,6971,3,53,0,'189.139.17.221',1179063098,1,0,1,1,1,1,'','','Mr. Antonio:\n\nDid you test my sample , works it fine to you\n\nCould you make an exe file from my sample and send it to me \n\nBest regards and tnks.','',0,'gA==','2dzbvkxv',1,0,'',53,0,0),(31660,6977,3,171,0,'71.233.232.238',1179067316,1,0,1,1,1,0,'','','Hi Jose,\n\nYes I am using Arteaga\'s tGraph, it is a very good and easy to use class\n\nRegards\n\nGeorge','',0,'gA==','hlpn39hd',1,0,'',171,0,0),(31661,6960,6,935,0,'200.62.120.55',1179072758,1,0,1,1,1,0,'','solicitud de aclaracion','Antonio:\n\nHay algun driver ado para Mysql, yo lo que instale es el ODBC 3.51 para conexiones MySql pero realmente no entiendo a que te refieres con el driver ado para MySql, te agradecria me aclares este punto para buscar la solucion ,\n\nCon relacion a los datos, son los correctos ya que con esos mismo datos acceso a la tabla maestro desde el admiistrador de Mysql o Navicat\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','29wzye3s',1,0,'',935,0,0),(31662,6814,3,6,0,'87.10.1.103',1179074073,1,0,1,1,1,1,'','','I have the following connection string that works fine in ASP:\n\n[code:28z83sm7]&quot;Provider=sqloledb;Data Source=xxx&#46;xxx&#46;xxx&#46;xxx;User Id=MyUserid;Password=MyPasswd&quot;[/code:28z83sm7]\n\nHow do I have to use it with ADORDD? I tried:\n\n[code:28z83sm7]USE &quot;MyTable&quot; VIA &quot;ADORDD&quot; TABLE &quot;MyTable&quot; FROM &quot;xxx&#46;xxx&#46;xxx&#46;xxx&quot; USER &quot;MyUserid&quot; PASSWORD &quot;MyPasswd&quot; SQL[/code:28z83sm7]\n\nand many other combinations without success (I get Open failed error).\n\nEMG','',0,'AIA=','28z83sm7',1,0,'',6,0,0),(31663,6960,6,935,0,'200.62.120.55',1179074730,1,0,1,1,1,0,'','baje el ado','Antonio,\n\nDesde la pagina oficial de Mysql baje el conector ADO.net para MySql y lo instale pero el problema persiste,\n\nGracias\n\nRamon Paredes\nManagua, Nicaragua','',0,'AIA=','y7qbgh8d',1,0,'',935,0,0),(31664,6981,6,694,0,'200.189.112.21',1179082475,1,0,1,1,1,1,'','Antonio, como fazer isso ?','Antonio neste link vc ensina a matar um processo pelo sistema, porém, não entendi como devo fazer. Você ´pode explicar melhor este código?\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1509&amp;highlight=matar\">http://fivetechsoft.com/forums/viewtopi ... ight=matar</a><!-- m -->\n\nDesde já agradeço\nAoki   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','3219je1f',1,0,'',694,0,0),(31665,6814,3,2,0,'87.218.146.91',1179086008,1,0,1,1,1,1,'','','Enrico,\n\nYou may modify adordd.ch and adordd.prg to accept a CONSTRING clause (or another name), and then from adordd.prg use your connection string as it is, i.e.:\n\nUSE \"MyTable\" VIA \"ADORDD\" CONSTRING \"Provider=sqloledb;Data Source=xxx.xxx.xxx.xxx;User Id=MyUserid;Password=MyPasswd\" ALIAS \"MyAlias\"','',0,'AIA=','80t049rs',1,0,'',2,0,0),(31666,6814,3,6,0,'79.3.210.140',1179086388,1,0,1,1,1,1,'','','Ok, but I think it would be better if MSSQL support were built-in in standard ADORDD version, isn\'t it?\n\nEMG','',0,'AIA=','g2xpxniv',1,0,'',6,0,0),(31667,6814,3,35,0,'65.188.6.143',1179086395,1,0,1,1,1,0,'','','Antonio \n\nI sent you a private message this morning on the SQL index issue .. no luck.\n\nI have been developing this app in parrallel using ado methods and adordd.. I think MS SQL and Oracle are a lot alike in that they really only use indexes if the execution plan will create a faster result .. I don\'t think MS SQL indexes are part of the SQL engine ADO can manipulate <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->.\n\nLet me know if I can help test further .. \n\nRick Lipkin','',0,'AIA=','1kssl6a3',1,0,'',35,0,0),(31668,6960,6,2,0,'87.218.146.91',1179086765,1,0,1,1,1,1,'','','Ramón,\n\nTienes que instalar esto:\n\n<!-- m --><a class=\"postlink\" href=\"http://dev.mysql.com/downloads/connector/odbc/3.51.html\">http://dev.mysql.com/downloads/connector/odbc/3.51.html</a><!-- m -->','',0,'AIA=','wlgro3v7',1,0,'',2,0,0),(31669,6814,3,35,0,'65.188.6.143',1179086894,1,0,1,1,1,0,'','','Enrico\n\nAs you may have seen from my last post .. I have been working in tandum with standard ADO and ADORDD for the MS SQL project.\n\nThis snipit of code works well for me .. indexes in MS SQL seem to be a bit \'sticky\' as of yet .. I am sure Antonio will find a solution.\n\nRick Lipkin\n\n\n#INCLUDE \"ADORDD.CH\"\nREQUEST ADORDD\n\n\ncFROM    := \"xxx\"\ncUSER    := \"xxxr\"\ncPSW     := \"xxx\"\ncDBF     := \"test\"\ncTABLE   := \"USERINFO\"\n\nTRY\n\n   SELECT 1\n   USE (AllTrim(cDbf)) VIA \"ADORDD\" TABLE AllTrim(cTable) SQL ;\n          FROM AllTrim(cFrom) USER AllTrim(cUser) PASSWORD AllTrim(cPsw)\n\n    SET INDEX to USERID // doesn\'t see\n\nCATCH oERR\n    MsgInfo( \"Error in Opening USERINFO table\" )\n    oDlg:End()\n    RETURN(.F.)\nEND TRY','',0,'AIA=','2otimtqa',1,0,'',35,0,0),(31670,6981,6,2,0,'87.218.146.91',1179087003,1,0,1,1,1,1,'','','Aoki,\n\nTerminateApp( GetModuleHandle( cAppName ) ) \n\n[code:2v8juzdc]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; TERMINATEAPP &#41;\n&#123;\n   TerminateProcess&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:2v8juzdc]','',0,'AIA=','2v8juzdc',1,0,'',2,0,0),(31671,6814,3,2,0,'87.218.146.91',1179087210,1,0,1,1,1,1,'','','Enrico,\n\nadordd.prg provides support for MSSQL:\n[code:l0y7yn4h]\n      case aWAData&#91; WA_ENGINE &#93; == &quot;SQL&quot; \n           aWAData&#91; WA_CONNECTION &#93;&#58;Open&#40; &quot;Provider=SQLOLEDB;&quot; + ; \n                                          &quot;server=&quot; + aWAData&#91; WA_SERVER &#93; + ; \n                                          &quot;;database=&quot; + aOpenInfo&#91; UR_OI_NAME &#93; + ; \n                                          &quot;;uid=&quot; + aWAData&#91; WA_USERNAME &#93; + ; \n                                          &quot;;pwd=&quot; + aWAData&#91; WA_PASSWORD &#93; &#41;\n[/code:l0y7yn4h]\nBut you have to provide the database name, server address, user and password, besides the table name too.\n\nIn your connection string there is no a database name','',0,'AIA=','l0y7yn4h',1,0,'',2,0,0),(31672,6814,3,2,0,'87.218.146.91',1179087539,1,0,1,1,1,1,'','','Rick,\n\nI got your emails. Its better if we discuss the ADORDD here, so others can participate too.\n\n&gt; I don\'t think MS SQL indexes are part of the SQL engine ADO can manipulate\n\nWe have only tested Access and MySQL, so you are our official MsSQL tester <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe assume that ADO provides a common interface for all databases engines, but there may be some differences between them (?)','',0,'AIA=','29tnp6qt',1,0,'',2,0,0),(31673,6976,6,456,0,'217.124.40.50',1179087550,1,0,1,1,1,1,'','','Hola Juan,\npuedes ponerle el BMP que tu desees en la cabecera, usando uno de los siguientes  metodos AddResource, AddBmpFile o AddBmpHandle.','',0,'AIA=','hpxz3dad',1,0,'',456,0,0),(31674,6814,3,2,0,'87.218.146.91',1179088053,1,0,1,1,1,1,'','','Rick,\n\nPlease try this, after the USE ...:\n\nMsgInfo( HB_AdoRddGetCatalog():Tables( cTableName ):Indexes:Count )','',0,'AIA=','15lgehvr',1,0,'',2,0,0),(31675,6814,3,6,0,'79.3.210.140',1179088237,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:24bvya3p]Enrico,\n\nadordd.prg provides support for MSSQL:\n[code:24bvya3p]\n      case aWAData&#91; WA_ENGINE &#93; == &quot;SQL&quot; \n           aWAData&#91; WA_CONNECTION &#93;&#58;Open&#40; &quot;Provider=SQLOLEDB;&quot; + ; \n                                          &quot;server=&quot; + aWAData&#91; WA_SERVER &#93; + ; \n                                          &quot;;database=&quot; + aOpenInfo&#91; UR_OI_NAME &#93; + ; \n                                          &quot;;uid=&quot; + aWAData&#91; WA_USERNAME &#93; + ; \n                                          &quot;;pwd=&quot; + aWAData&#91; WA_PASSWORD &#93; &#41;\n[/code:24bvya3p]\nBut you have to provide the database name, server address, user and password, besides the table name too.\n\nIn your connection string there is no a database name[/quote:24bvya3p]\n\nI just tried with\n\n[code:24bvya3p]USE &quot;DatabaseName&quot; VIA &quot;ADORDD&quot; TABLE &quot;TableName&quot; FROM &quot;IpAddress&quot; USER &quot;UserId&quot; PASSWORD &quot;Password&quot; SQL[/code:24bvya3p]\n\nand it won\'t work anyway.\n\nWhat am I missing?\n\nEMG','',0,'gIA=','24bvya3p',1,0,'',6,0,0),(31676,6970,6,2,0,'87.218.146.91',1179088292,1,0,1,1,1,1,'','','Alex,\n\nPruébalo así:\n\nwinexec(\'NXTAlma.exe\') \nPostQuitMessage(0) \nSysRefresh()\n__Quit() \nreturn','',0,'gIA=','i7a10v06',1,0,'',2,0,0),(31677,6814,3,2,0,'87.218.146.91',1179088576,1,0,1,1,1,1,'','','Enrico,\n\nPlease place some traces in adordd.prg to check where/why it is failing:\n\nThe connection is opened here:\n[code:1axk9bdh]\n      case aWAData&#91; WA_ENGINE &#93; == &quot;SQL&quot; \n           aWAData&#91; WA_CONNECTION &#93;&#58;Open&#40; &quot;Provider=SQLOLEDB;&quot; + ; \n                                          &quot;server=&quot; + aWAData&#91; WA_SERVER &#93; + ; \n                                          &quot;;database=&quot; + aOpenInfo&#91; UR_OI_NAME &#93; + ; \n                                          &quot;;uid=&quot; + aWAData&#91; WA_USERNAME &#93; + ; \n                                          &quot;;pwd=&quot; + aWAData&#91; WA_PASSWORD &#93; &#41;\n[/code:1axk9bdh]\nHow to check that the Open msg worked ?\nMsgInfo( aWAData[ WA_CONNECTION ]: ??? )\n\nThe table is opened here:\n[code:1axk9bdh]\n   oRecordSet&#58;Open&#40; aWAData&#91; WA_QUERY &#93; + aWAData&#91; WA_TABLENAME &#93;, aWAData&#91; WA_CONNECTION &#93; &#41;\n[/code:1axk9bdh]\nHow to check that the Open msg worked ?\nMsgInfo( oRecordSet: ??? )','',0,'AIA=','1axk9bdh',1,0,'',2,0,0),(31678,6814,3,35,0,'65.188.6.143',1179088764,1,0,1,1,1,0,'','','Enrico\n\nPay special attention to the database password .. My Database admin gave me a password that was mixed case .. however when I used it exactically as he gave it to me .. it failed .. I got lucky by putting the password all in lowercase and it worked ..\n\nRick Lipkin','',0,'AIA=','1tefpr7j',1,0,'',35,0,0),(31679,6814,3,6,0,'79.3.210.140',1179089475,1,0,1,1,1,1,'','','It won\'t work with ADO as well. It seems that I can\'t access that database from client side but only from a server side script.\n\nNow I will try using my local MSDE...\n\nEMG','',0,'AIA=','1mw6s4i5',1,0,'',6,0,0),(31680,6814,3,35,0,'65.188.6.143',1179089515,1,0,1,1,1,0,'','','Antonio\n\nGot a return value of 1  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRick Lipkin','',0,'AIA=','1psp9ctp',1,0,'',35,0,0),(31681,6814,3,6,0,'79.3.210.140',1179090231,1,0,1,1,1,1,'','','What is supposed to translate the following connection string?\n\n[code:1vwefbtz]oRs&#58;Open&#40; &quot;SELECT * FROM Contatti&quot;, &quot;Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Ecmp&quot;, adOpenForwardOnly, adLockOptimistic &#41;[/code:1vwefbtz]\n\nI tried\n\n[code:1vwefbtz]USE &quot;Ecmp&quot; VIA &quot;ADORDD&quot; TABLE &quot;CONTATTI&quot; FROM &quot;\\\\EMAG\\EMAG&quot; USER &quot;&quot; PASSWORD &quot;&quot; SQL[/code:1vwefbtz]\n\nbut getting\n\n[quote:1vwefbtz]Error description: Error ADODB.Connection/16389  E_FAIL: OPEN[/quote:1vwefbtz]\n\nat\n\n[quote:1vwefbtz]ADO_OPEN(248)[/quote:1vwefbtz]\n\nEMG','',0,'gIA=','1vwefbtz',1,0,'',6,0,0),(31682,6814,3,6,0,'79.3.210.140',1179091197,1,0,1,1,1,1,'','','If I omit\n\n[code:2zq2xqgr]USER &quot;&quot; PASSWORD &quot;&quot;[/code:2zq2xqgr]\n\nthen I get\n\n[quote:2zq2xqgr]Error description: Error BASE/1081  Argument error: +[/quote:2zq2xqgr]\n\nat\n\n[quote:2zq2xqgr]ADO_OPEN(248)[/quote:2zq2xqgr]\n\nEMG','',0,'gIA=','2zq2xqgr',1,0,'',6,0,0),(31683,6814,3,2,0,'87.218.146.91',1179091550,1,0,1,1,1,1,'','','Enrico,\n[quote:1yrbks9w]\nWhat is supposed to translate the following connection string?\n\n[code:1yrbks9w]oRs&#58;Open&#40; &quot;SELECT * FROM Contatti&quot;, &quot;Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Ecmp&quot;, adOpenForwardOnly, adLockOptimistic &#41;[/code:1yrbks9w][/quote:1yrbks9w]\nYou have to modify adordd.prg to use that connection string','',0,'gIA=','1yrbks9w',1,0,'',2,0,0),(31684,6814,3,2,0,'87.218.146.91',1179091763,1,0,1,1,1,1,'','','Enrico,\n\n&gt; USER \"\" PASSWORD \"\"\n\nWhat Args do you get at the error.log for the Argument error: + ?','',0,'gIA=','w1iayhzf',1,0,'',2,0,0),(31685,6814,3,6,0,'79.3.210.140',1179091850,1,0,1,1,1,1,'','','[quote:3f34c5fo]Application\n===========\n   Path and name: C:\\FWHARB\\ADOTEST.EXE (32 bits)\n   Size: 1,208,832 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 05/13/07, 23:29:50\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = C   Provider=SQLOLEDB;server=\\\\EMAG\\EMAG;database=Ecmp;uid=\n     [   2] = U   \n\nStack Calls\n===========\n   Called from: adordd.prg =&gt; ADO_OPEN(248)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: ADOTEST.prg =&gt; MAIN(12)\n\nSystem\n======\n   CPU type: AMD Sempron(TM) 2800+ 1983 Mhz\n   Hardware memory: 512 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour devel build 1.1-0 Intl.\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   ADO_OPEN\n     Param   1:    N    1\n     Param   2:    A    Len:    8\n     Local   1:    A    Len:   14\n     Local   2:    C    \"Ecmp\"\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    S    \n     Local  10:    O    Class: TOLEAUTO\n     Local  11:    C    \"Provider=SQLOLEDB;server=\\\\EMAG\\EMAG;database=Ecmp;uid=\"\n     Local  12:    U    \n     Local  13:    N    0\n   DBUSEAREA\n     Param   1:    L    .F.\n     Param   2:    C    \"ADORDD\"\n     Param   3:    C    \"Ecmp\"\n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    L    .F.\n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n   ADORDD\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 TOLEAUTO\n     3 ERROR\n     4 HBOBJECT\n     5 TREG32\n\nMemory Analysis\n===============\n      127 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes[/quote:3f34c5fo]\n\nEMG','',0,'gA==','3f34c5fo',1,0,'',6,0,0),(31686,6814,3,2,0,'87.218.146.91',1179091857,1,0,1,1,1,1,'','','Rick,\n\nOk, now try this, please:\n\nMsgInfo( HB_AdoRddGetCatalog():Tables( cTableName ):Indexes( 0 ):Name )','',0,'gA==','1od87223',1,0,'',2,0,0),(31687,6814,3,2,0,'87.218.146.91',1179091976,1,0,1,1,1,1,'','','Enrico,\n\nThe userid is nil. Please change this into adordd.prg:\n\nstatic bError, s_cTableName, s_cEngine, s_cServer, [color=red:30d1g3cf]s_cUserName := \"\", s_cPassword := \"\"[/color:30d1g3cf], s_cQuery := \"\"','',0,'Ag==','30d1g3cf',1,0,'',2,0,0),(31688,6982,6,376,0,'190.42.35.168',1179092253,1,0,1,1,1,1,'','Boton con 2 lineas de Prompt','Alguien ha puesto en un boton dos lineas de prompt?. Algo asi:\n-------------\n:   F1       :\n:  Help     :\n------------','',0,'Ag==','2wc7md61',1,0,'',376,0,0),(31689,6814,3,6,0,'79.3.210.140',1179092403,1,0,1,1,1,1,'','','Yes, now I get the usual\n\n[quote:2muyud9q]Error description: Error ADODB.Connection/16389 E_FAIL: OPEN[/quote:2muyud9q]\n\nBut I understood that trusted connection is not currently supported by ADORDD.\n\nEMG','',0,'gA==','2muyud9q',1,0,'',6,0,0),(31690,6982,6,2,0,'87.218.146.91',1179092419,1,0,1,1,1,1,'','','Armando,\n\nPrueba con \"F1\" + CRLF + \"Help\"','',0,'gA==','3ma97w9e',1,0,'',2,0,0),(31691,6814,3,2,0,'87.218.146.91',1179092572,1,0,1,1,1,1,'','','Enrico,\n\nHow do you use a trusted connection with standard ADO ?','',0,'gA==','3pxaubiu',1,0,'',2,0,0),(31692,6814,3,35,0,'65.188.6.143',1179092782,1,0,1,1,1,0,'','','Enrico\n\n//---\noRs:Open( \"SELECT * FROM Contatti\", \"Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Ecmp\", adOpenForwardOnly, adLockOptimistic )\n//---\n\nSource is the IP or DNS name of the server\n\ncFROM := \"EMAG\\Emag\"  // not a servername .. looks like a folder\ncUSER := \"???\"\ncPSW  := \" PASSWORD \" // will get alltrimmed \ncDBF   := \"ECMP\"\ncTable := \"Contatti\"\n\nTRY\n\n   SELECT 1\n   USE (AllTrim(cDbf)) VIA \"ADORDD\" TABLE AllTrim(cTable) SQL ;\n          FROM AllTrim(cFrom) USER AllTrim(cUser) PASSWORD AllTrim(cPsw)\n\n  CATCH oERR\n    MsgInfo( \"Error in Opening table\" )\n     RETURN(.F.)\nEND TRY\n\n//----------------\n\nPlug in the name of the Server or IP ..  select a user and password who have rights to the database. ( Security=SSPI .. need a user and password )\n\nHope this helps\n\nRick Lipkin','',0,'gA==','1ed7qlgh',1,0,'',35,0,0),(31693,6814,3,35,0,'65.188.6.143',1179093281,1,0,1,1,1,0,'','','Antonio\n\nThe string returns :\n\nuserid   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nwhich is the name of the index I have on the Userinfo table .. \n\nRick Lipkin','',0,'gA==','27d0i3m7',1,0,'',35,0,0),(31694,6814,3,2,0,'87.218.146.91',1179093569,1,0,1,1,1,1,'','','Rick,\n\nThen, this should work:\n\nHB_AdoRddGetRecordSet():Index = \"userid\"\n\nwhich it is the equivalent for:\n\nSET INDEX TO userid','',0,'gA==','13of6mrg',1,0,'',2,0,0),(31695,6814,3,35,0,'65.188.6.143',1179094078,1,0,1,1,1,0,'','','Antonio\n\nI inserted the index code and got a run-time error :\n\n\nTRY\n\n   SELECT 1 \n   USE (AllTrim(cDbf)) VIA \"ADORDD\" TABLE AllTrim(cTable) SQL ;\n          FROM AllTrim(cFrom) USER AllTrim(cUser) PASSWORD AllTrim(cPsw)\n            \n  *  SET INDEX to USERID \n            \nCATCH oERR  \n    MsgInfo( \"Error in Opening USERINFO table\" )\n    oDlg:End()\n    RETURN(.F.)\nEND TRY     \n            \n*MsgInfo( HB_AdoRddGetCatalog():Tables( cTable ):Indexes:Count )\n*MsgInfo( HB_AdoRddGetCatalog():Tables( cTable ):Indexes( 0 ):Name )\n            \nHB_AdoRddGetRecordSet():Index = \"userid\"\n            \nbrowse()\n\n\n\n\n\n//------------------\nApplication\n===========\n   Path and name: O:\\Ricks programming Backup\\FOX\\DRUGSQL-adordd\\DcSql32.Exe (32 bits)\n   Size: 1,480,192 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 05/13/2007, 18:04:32\n   Error description: Error ADODB.Recordset/16389  E_FAIL: _INDEX\n   Args:\n     [   1] = C   userid\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:_INDEX(0)\n   Called from: LOGIN.PRG =&gt; _LOGIN(45)\n   Called from: main.prg =&gt; (b)MAIN(204)\n   Called from: DIALOG.PRG =&gt; (b)TDIALOG:TDIALOG(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:DISPLAY(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: main.prg =&gt; MAIN(206)\n\nSystem\n======\n   CPU type: Intel Pentium III 733 Mhz\n   Hardware memory: 512 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.70 Intl. (SimpLex)\n   Windows version: 5.0, Build 2195 Service Pack 4\n\n   Windows total applications running: 18\n      1 \n      2 Fax Monitor\n      3 SysFader\n      4 NetDDE Agent\n      5 Logging In ...... Please be patient\n      6 DRUGSQL-adordd\n      7 ICA Administrator Toolbar\n      8 ccApp\n      9 NetWareProviderIcons\n     10 Power Meter\n     11 Connections Tray\n     12 MS_WebcheckMonitor\n     13 DDE Server Window\n     14 WFShell\n     15 ICA Seamless Host Agent\n     16 ICA Control Channel Support\n     17 WFShellWindow\n     18 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TOLEAUTO:_INDEX\n     Param   1:    C    \"userid\"\n     Local   1:    U    \n     Local   2:    N    0\n   _LOGIN\n     Param   1:    C    \"Y\"\n     Param   2:    O    Class: TDIALOG\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    L    .F.\n     Local   4:    C    \"drugcontroluser\"\n     Local   5:    C    \"WEBDB02\"\n     Local   6:    C    \"r2x6j3q4\"\n     Local   7:    C    \"DRUGCONTROLtest\"\n     Local   8:    C    \"USERINFO\"\n     Local   9:    U    \n     Local  10:    U    \n   (b)MAIN\n     Param   1:    U    \n   (b)TDIALOG:TDIALOG\n     Param   1:    O    Class: TDIALOG\n   TDIALOG:DISPLAY\n   TDIALOG:HANDLEEVENT\n     Param   1:    N    15\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOXINDIRECT\n     Param   1:    N    4194304\n     Param   2:    C    \"  &#256;      % \n\'     L o g g i n g   I n   . . . . . .   P l e a s e   b e   p a t i e n t        P    N  \\  f S T A T I C   V a l i d a t i n g   U s e r       \"\n     Param   3:    N    0\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    0\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   MAIN\n     Local   1:    C    \"O:\\Ricks programming Backup\\FOX\\DRUGSQL-adordd\"\n     Local   2:    U    \n     Local   3:    C    \"O:\\Ricks programming Backup\\FOX\\DRUGSQL-adordd\\DcSql32.Exe\"\n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    N    47\n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    D    05/13/2007\n     Local  16:    N    1977\n     Local  17:    N    1024\n     Local  18:    N    768\n     Local  19:    U    \n     Local  20:    U    \n     Local  21:    C    \"Y\"\n     Local  22:    C    \"Y\"\n     Local  23:    O    Class: TDIALOG\n     Local  24:    L    .F.\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n   ADORDD\n\nDataBases in use\n================\n\n  1: =&gt; DRUGCONTROLTEST                    RddName: ADORDD\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1         21      .F.   .F.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TDIALOG\n     5 TBRUSH\n     6 TCONTROL\n     7 TSAY\n     8 TFONT\n     9 TOLEAUTO\n    10 ERROR\n\nMemory Analysis\n===============\n      148 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes','',0,'','18hhmh09',1,0,'',35,0,0),(31696,6814,3,2,0,'87.218.146.91',1179097597,1,0,1,1,1,1,'','','Rick,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/prop_rs_index.asp\">http://www.w3schools.com/ado/prop_rs_index.asp</a><!-- m -->\n\n\"This property is used together with the Seek method to create an indexed display of records and to use the Seek method to search these indexed records, but few providers supports this property and method. Use the Supports method to determine whether the provider supports seek and indexes.\"\n\nPlease try this:\n\n#define adIndex 0x100000\n\nMsgInfo( HB_AdoRddGetRecordset():Supports( adIndex ) )','',0,'','8or3ww7u',1,0,'',2,0,0),(31697,6960,6,935,0,'200.62.80.231',1179100535,1,0,1,1,1,0,'','algo he hecho mal','Gracias antonio por tus oportunas orientaciones,\n\nYo ya tengo instalado el ODBC 3.51 que me indicas e inclusive tengo una pequeña aplicacion en ado puro que da altas y bajas, efectua la conexion sin problemas, esta es :\n\n\n//====================\nFUNCTION EMPLEA1()\n//====================\n\nPublic oDlg1,oNumero,oNomb1,oApelli1,oApelli2,oTipo,oTipoe,oCargo,oNomcar,oUnidad,oNomUni,oFecnac,oFecIng\nPublic oSup,oNomsup,oBaj1,oBaj2,oBaj3,oLinea,oImg\nPublic mNumero,mNomb1,mApelli1,mApelli2,mTipo,mTipoe,mCargo,mNomcar,mUnidad,mNomUni,mFecnac\nPublic mFecIng,mSup,mNomsup,mBaj1,mBaj2,mBaj3,mLinea\n\nmNumero   := space(5)\nmNomb1   := space(25)\nmApelli1  := space(15)\nmApelli2  := space(12)\nmTipo     := space(1)\nmTipoe    := space(10)\nmCargo    := space(4)\nmNomcar   := space(35)\nmUnidad   := space(4)\nmNomUni   := space(35)\nmFecnac   := ctod(\"\")\nmFecIng   := ctod(\"\")\nmSup      := space(5)\nmNomsup   := space(40)\nmBaj1     := space(60)\nmBaj2     := space(60)\nmBaj3     := space(60)\nmLinea    := space(2)\n\nDEFINE DIALOG oDlg1 RESOURCE 20\n\nREDEFINE IMAGE oImg    ID 160 OF oDlg1 FILE \"FOTO1332.JPG\" SIZE ADJUST UPDATE DESIGN\nREDEFINE GET oNumero   Var mNumero   ID 101 of oDlg1 PICTURE \"99999\"\nREDEFINE GET oNomb1    Var mNomb1    ID 102 of oDlg1\nREDEFINE GET oApelli1  Var mApelli1  ID 103 of oDlg1\nREDEFINE GET oApelli2  Var mApelli2  ID 104 of oDlg1\nREDEFINE GET oFecINg   Var mFecIng   ID 105 of oDlg1\nREDEFINE GET oTipo     Var mTipo     ID 108 of oDlg1\nREDEFINE GET oTipoe    Var mTipoe    ID 106 of oDlg1\nREDEFINE GET oLinea    Var mLinea    ID 107 of oDlg1\nREDEFINE GET oFecNac   Var mFecNac   ID 109 of oDlg1\nREDEFINE GET oCargo    Var mCargo    ID 110 of oDlg1\nREDEFINE GET oNomCar   Var mNomCar   ID 111 of oDlg1\nREDEFINE GET oUnidad   Var mUnidad   ID 112 of oDlg1\nREDEFINE GET oNomUni   Var mNomUni   ID 113 of oDlg1\nREDEFINE GET oSup      Var mSup      ID 140 of oDlg1\nREDEFINE GET oNomSup   Var mNomSup   ID 141 of oDlg1\nREDEFINE GET oBaj1     Var mBaj1     ID 129 of oDlg1\nREDEFINE GET oBaj2     Var mBaj2     ID 132 of oDlg1\nREDEFINE GET oBaj3     Var mBaj3     ID 134 of oDlg1\n\nREDEFINE BUTTON ID 130 of oDlg1 ACTION( AGREGO1())\nREDEFINE BUTTON ID 131 of oDlg1 ACTION( oDlg1:End())\n\nACTIVATE DIALOG oDlg1 CENTERED\nDBCLOSEALL()\n\nRETURN NIL\n\n//==========================\nSTATIC FUNCTION AGREGO1()\n//==========================\n\nPublic oCon2 := TOLEAUTO():New(\"adodb.connection\")\nPublic oRecordSet\nPublic oCommand := TOleAuto():New(\"adodb.command\")\noCon2:Open(\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1 ; DATABASE=Personal1; UID=root; PWD=1234\")\noRecordSet := TOleAuto():New(\"adodb.recordset\")\noRecordSet:ActiveConnection(oCon2)\noRecordSet:Source := \"SELECT * FROM MAESTRO\"\noRecordSet:LockType := adLockOptimistic\noRecordSet:CursorType := adOpenKeyset\n\noRecordSet:Open()\noRecordSet:AddNew()\noRecordSet:Fields(0):Value  := mNumero\noRecordSet:Fields(1):Value  := mNomb1\noRecordSet:Fields(2):Value  := mApelli1\noRecordSet:Fields(3):Value  := mApelli2\noRecordSet:Fields(4):Value  := mTipo\noRecordSet:Fields(5):Value  := mTipoe\noRecordSet:Fields(6):Value  := mCargo\noRecordSet:Fields(7):Value  := mNomCar\noRecordSet:Fields(8):Value  := mUnidad\noRecordSet:Fields(9):Value  := mNomUni\noRecordSet:Fields(10):Value := mFecNac\noRecordSet:Fields(11):Value := mFecIng\noRecordSet:Fields(12):Value := mSup\noRecordSet:Fields(13):Value := mNomSup\noRecordSet:Fields(14):Value := mBaj1\noRecordSet:Fields(15):Value := mBaj2\noRecordSet:Fields(16):Value := mBaj3\noRecordSet:Fields(17):Value := mLinea\noRecordSet:Update()\n\noCon2:Close()\nMsgAlert(\"La Informacion ha sido Registrada\")\n\nmNumero   := space(5)\nmNomb1    := space(25)\nmApelli1  := space(15)\nmApelli2  := space(12)\nmTipo     := space(1)\nmTipoe    := space(10)\nmCargo    := space(4)\nmNomcar   := space(35)\nmUnidad   := space(4)\nmNomUni   := space(35)\nmFecnac   := ctod(\"\")\nmFecIng   := ctod(\"\")\nmSup      := space(5)\nmNomsup   := space(40)\nmBaj1     := space(60)\nmBaj2     := space(60)\nmBaj3     := space(60)\nmLinea    := space(2)\n\noNumero:Refresh()\noNomb1:Refresh()\noApelli1:Refresh()\noApelli2:Refresh()\noTipo:Refresh()\noTipoe:Refresh()\noCargo:Refresh()\noNomcar:Refresh()\noUnidad:Refresh()\noNomUni:Refresh()\noFecnac:Refresh()\noFecIng:Refresh()\noSup:Refresh()\noNomsup:Refresh()\noBaj1:Refresh()\noBaj2:Refresh()\noBaj3:Refresh()\noLinea:Refresh()\n\noNumero:Setfocus()\n\nRETURN NIL\n\nesto registra perfectamente el registro, el problema es que no pude hacer el listbox desde el recordset, asi que estoy en el limbo, probe cambiar en la prueba de adordd localhost por 127.0.0.1 pero el error persiste.\n\nAgradeciendote,\n\n\nRamon Antonio Paredes\nManagua, Nicaragua','',0,'','3i0g3loh',1,0,'',935,0,0),(31698,6814,3,35,0,'65.188.6.143',1179100899,1,0,1,1,1,0,'','','Antonio\n\nReturned .f. ... <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  ... kinda thought that. From everything I have read .. MS SQL server uses the indexes in the execution plan if it is a faster way to get at the data .. but not truly to be used or manipulated by a program. In Oracle .. there is a \'hint\' clause that tells the query to use the index .. \n\nThis is not a \'deal buster\' for me .. perhaps you can add an optional &lt;order by&gt; to be used by the SQL query like .. \"Select * from userinfo order by userid\" .. will need some way to tap into the oRs:Find() method from your code.... here is what I was doing in ADO .. this is the \"find\" program .. where the cert table is ordered by reg_no .. so that is the sort of the table :\n\n//---------------------------------\nDO CASE\nCASE cITEM = \"Reg Number \"\n\n  cFIND := ALLTRIM(SUBSTR(cFIND,1,2)+SUBSTR(cFIND,4,5))\n  oRs:Find(\"reg_no = \'\"+cFIND+\"\'\" )\n\n  IF oRs:eof\n     oRs:MoveFirst()\n\n     xFIND := \"reg_no like \'\"+cFIND+\"%\'\"\n     oRs:Find( xFIND )\n\n     IF oRs:eof()\n        Msginfo( \"Reg Number \"+cFind+\" can not be found\" )\n        oRs:MoveFirst()\n     ENDIF\n  ENDIF\n\n  RETURN(.T.)\n\nCASE cITEM = \"Name       \"\n\n  oRs:Filter := \"name like \'\"+cFIND+\"%\'\"\n\n  IF oRs:eof\n     oRs:MoveFirst()\n\n     xFIND := \"name like \'\"+cFIND+\"%\'\"\n     oRs:Find( xFIND )\n\n     IF oRs:eof()\n        Msginfo( \"Name \"+cFind+\" can not be found\" )\n        oRs:MoveFirst()\n     ENDIF\n  ENDIF\n\n  RETURN(.T.)\nENDCASE\n\n\n//---------\n\nSince I would also have to locate on a name field .. there was no way to re-order the table unless closed and re-creaded the recordset ordered by name .. to at least make the program usable .. I used the \'filter\' method to give the user the opportunity to locate by a name out of the origional recordset .. and have a \'clear filter\' option to bring back all the records again .. \n\nA bit clumsy but it works .. \n\nWas hoping there was a \'magic wand\' you could wave to use ADO see and manipulate the MS SQL indexes .. it appears ADO can see the index and know it by name .. just not use it to find records or order or re-order a recordset.. as in SET INDEX to ..\n\nLooks like the best thing you can do is add an additional &lt;order by&gt; option for those databases that do not support indexing... and let our developers know that is just a limitation they will have to deal with ..\n\nJust my thoughts.\n\nRick Lipkin','',0,'','2elh2ekp',1,0,'',35,0,0),(31699,6814,3,35,0,'65.188.6.143',1179103833,1,0,1,1,1,0,'','','Antonio\n\nI just sent a message to our MS SQL DBA and asked him to review your link ( sent him the last two messages from this thread ) and asked him if the ( interactive ) use of indexes on our database is default or a configurable parameter .. We are using a SQL 2000 database .. also asked the DBA if SQL 2005 would give us the flexability to \'actively\' use indexing.\n\nRick Lipkin','',0,'','3gc21i6c',1,0,'',35,0,0),(31700,6815,6,1051,0,'200.205.153.6',1179107594,1,0,1,1,1,0,'','','Antonio,\n\nYes i\'m using this last version\n * $Id: adordd.prg,v 1.33 2007/05/12 08:47:49 antoniolinares Exp $\n\n\ni\'m using MYSQL\n\nplease correction OPEN for support others Querys not only DEFAULT\n\nThanks','',0,'','1nqdtuka',1,0,'',1051,0,0),(31701,6981,6,694,0,'200.189.112.21',1179110181,1,0,1,1,1,1,'','','gracias antonio !\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','12vzmf5r',1,0,'',694,0,0),(31702,6981,6,694,0,'200.189.112.21',1179110779,1,0,1,1,1,1,'','','Antonio fiz assim e não matou o processo, o que pode estar acontecendo ?\n\n   TerminateApp( GetModuleHandle( \'AcroRd32.exe\' ) ) \n\nTive o cuidado de dar um CTRL+ALT+DEL e ver o nome correto do processo, que neste caso é o ADOBE ACROBAT. \n\nNo meu PRG principal coloquei:\n\n#pragma BEGINDUMP \n\n#include &lt;windows.h&gt; \n#include &lt;hbapi.h&gt; \n\nHB_FUNC( TERMINATEAPP ) \n{ \n   TerminateProcess( ( HANDLE ) hb_parnl( 1 ), hb_parnl( 2 ) ); \n} \n\n#pragma ENDDUMP \n\n\n\nEstou precisando muito disso, porque consegui um jeito de gerar PDF com o PRG e visualizar com o ACTIVEX do FWH. porém o processo não é finalizado e em ceto momento o ADOBE da uma mensagem dizendo que já abriu o número maximo de arquivos.\n\nUm abraço\nAoki','',0,'','xhx9mqlo',1,0,'',694,0,0),(31703,6983,3,694,0,'200.189.112.21',1179112236,1,0,1,1,1,1,'','Kill process ADOBE PDF ?!','**************************\nfunction pdfMain(Nomerel)\n**************************\n   local poWnd, oActiveX,IDPDF:=\"\"\n \n   IF ! PDFActivex(@IDPDF)\n      RETURN(.F.)\n   ENDIF\n   \n   nomerel:=if(nomerel=nil,\"PDF Relatório\",nomerel)\n\n   DEFINE WINDOW poWnd TITLE  \".::\"+alltrim(sis_1nom)+\"::. \"+nomerel+\" - \"+IDPDF \n\n   oActiveX = TActiveX():New( poWnd, IDPDF )  \n\n   poWnd:oClient = oActiveX // To fill the entire window surface\n\n   oActiveX&#058;Do( \"LoadFile\", \"genesis.pdf\" )\n   oActiveX&#058;Do( \"SetCurrentPage\", 1 )\n\n   ACTIVATE WINDOW poWnd MAXIMIZED \n\nreturn nil\n\n\n\nusing the function above, when closing my system the process (it MARINATES PDF) it is still active. How do I can finish him/it?\n\n\nAoki  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'','zkhqtr3j',1,0,'',694,0,0),(31704,6983,3,6,0,'79.3.210.124',1179125274,1,0,1,1,1,1,'','Re: Kill process ADOBE PDF ?!','Did you already try\n\n[code:15qhdynu]oActiveX&#58;End&#40;&#41;[/code:15qhdynu]\n\n?\n\nEMG','',0,'AIA=','15qhdynu',1,0,'',6,0,0),(31705,6814,3,6,0,'79.3.210.124',1179125380,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1t215otd]Enrico,\n\nHow do you use a trusted connection with standard ADO ?[/quote:1t215otd]\n\nWith the connection string I already reported:\n\n[code:1t215otd]oRs&#58;Open&#40; &quot;SELECT * FROM Contatti&quot;, &quot;Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Ecmp&quot;, adOpenForwardOnly, adLockOptimistic &#41;[/code:1t215otd]\n\nEMG','',0,'gIA=','1t215otd',1,0,'',6,0,0),(31706,6814,3,6,0,'79.3.210.124',1179125555,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:1uw47xqu]Enrico\n\n//---\noRs:Open( \"SELECT * FROM Contatti\", \"Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Ecmp\", adOpenForwardOnly, adLockOptimistic )\n//---\n\nSource is the IP or DNS name of the server\n\ncFROM := \"EMAG\\Emag\"  // not a servername .. looks like a folder[/quote:1uw47xqu]\n\nNo, it is a server name. Please note that the above connection string works just fine with ADO.\n\n[quote=&quot;Rick Lipkin&quot;:1uw47xqu]( Security=SSPI .. need a user and password )[/quote:1uw47xqu]\n\nNo, trusted connection doesn\'t need user and password.\n\nEMG','',0,'gA==','1uw47xqu',1,0,'',6,0,0),(31707,6814,3,2,0,'87.218.146.3',1179125573,1,0,1,1,1,1,'','','Rick,\n\nYes, we also considered the use of ORDER BY if the Index property is not supported. We could issue an oAdoConnection:Execute() and get a new recorset, and replace the previous used one. \n\nAnyhow, lets see what your DBA says. ADO should provide all that functionality. Probably SQL 2005 is the way to go','',0,'gA==','3gzo3k0f',1,0,'',2,0,0),(31708,6814,3,2,0,'87.218.146.3',1179125706,1,0,1,1,1,1,'','','Enrico,\n\nThen you should modify adordd.prg for your needs and use the right connection string for you','',0,'gA==','1rqwhu1m',1,0,'',2,0,0),(31709,6814,3,6,0,'79.3.210.124',1179125900,1,0,1,1,1,1,'','','Ok, no problem. I was only doing some tests to try ADORDD.\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEMG','',0,'gA==','40j46tf5',1,0,'',6,0,0),(31710,6960,6,2,0,'87.218.146.3',1179126025,1,0,1,1,1,1,'','','Ramón,\n\nPrueba el ejemplo mysql1.prg que se proporciona con ADORDD y compáralo con tu código','',0,'gA==','2tm1q3z8',1,0,'',2,0,0),(31711,6981,6,2,0,'87.218.146.3',1179126122,1,0,1,1,1,1,'','','Aoki\n\nAlgunas veces un ActiveX puede necesitar algo de tiempo para terminar, es decir, no termina inmediatamente sino que lo hace tras un cierto tiempo','',0,'gA==','351ilxck',1,0,'',2,0,0),(31712,6814,3,2,0,'87.218.146.3',1179126310,1,0,1,1,1,1,'','','Enrico,\n\nWe are sure that your tests with ADORDD will greatly improve it, as you have a great ADO experience and surely you can contribute to enhance it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','xg5yqob3',1,0,'',2,0,0),(31713,6815,6,2,0,'87.218.146.3',1179126479,1,0,1,1,1,1,'','','Please try this: \n\n#define adIndex 0x100000 \n\nMsgInfo( HB_AdoRddGetRecordset():Supports( adIndex ) )\n\nor ? instead of MsgInfo() if you are not using FWH\n\n&gt; please correction OPEN for support others Querys not only DEFAULT\n\nWe plan to do it but using a different code','',0,'gA==','a2jo31cx',1,0,'',2,0,0),(31714,6905,6,130,0,'141.51.32.24',1179128266,1,0,1,1,1,0,'','','Arturo,\n\nI am also interessted in your class, could you please send it to [url]sthaupt@uni-kassel.de[/url].\n\nmany thanks\n\nkind regards\nStefan','',0,'EA==','273eob42',1,0,'',130,0,0),(31715,6979,6,130,0,'141.51.32.24',1179128525,1,0,1,1,1,0,'','','George,\n\njust sent to you\n\nStefan','',0,'EA==','34aq9f2c',1,0,'',130,0,0),(31716,6905,6,154,0,'151.21.76.174',1179129399,1,0,1,1,1,1,'','Re: el Tgantt esta disponible','Hi Mr. Arturo,\nthis is a great news!\n \nIt is working with xHarbour?\nIf yes, is possible to send to my mail:  \ngarombo @ tiscali . it\n \nMany compliments for your great work.','',0,'EA==','2gj4vipl',1,0,'',154,0,0),(31717,6984,7,488,0,'80.37.11.90',1179130283,1,0,1,1,1,0,'','CUANTO APRENDEMOS Y MAS ....','Hola Amigos.\n\nLlevamos ya una semana ya con los cursos en Donosti, donde ademas de aprender un monton de cosas de mano de nuestro querido maestro RF, nos sirve para fortalecer la relacion y amistada de todos los amigos del mundo XBase.\nTodavia nos quedan un par de cursos esta semana al cual se pueden apuntar.\nAqui tienen la pagina con toda la información de los mismos.\n\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/cursos-fivewin-mayo-2007.htm\">http://geroa-informatica.com/fivewin/cu ... o-2007.htm</a><!-- m -->','',0,'EA==','3qtt0chx',1,0,'',488,0,0),(31718,6985,6,488,0,'80.37.11.90',1179130493,1,0,1,1,1,0,'','CUANTO APRENDEMOS Y MAS ....','Hola Amigos.\n\nLlevamos ya una semana ya con los cursos en Donosti, donde ademas de aprender un monton de cosas de mano de nuestro querido maestro RF, nos sirve para fortalecer la relacion y amistada de todos los amigos del mundo XBase.\nTodavia nos quedan un par de cursos esta semana al cual se pueden apuntar.\nAqui tienen la pagina con toda la información de los mismos.\n\n<!-- m --><a class=\"postlink\" href=\"http://geroa-informatica.com/fivewin/cursos-fivewin-mayo-2007.htm\">http://geroa-informatica.com/fivewin/cu ... o-2007.htm</a><!-- m -->','',0,'EA==','1r0mtd5g',1,0,'',488,0,0),(31719,6905,6,2,0,'87.218.146.3',1179137815,1,0,1,1,1,1,'','','Arturo,\n\nNo sería preferible que lo alojases en rapidshare ó en un sitio similar ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','2z5jhld8',1,0,'',2,0,0),(31720,6950,7,2,0,'87.218.146.3',1179137920,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','2a4iiman',1,0,'',2,0,0),(31721,6986,3,130,0,'141.51.32.24',1179139078,1,0,1,1,1,0,'','Msgbar in dialogs','Hi,\n\nhow can I change the text of the msgbar I put in a dialog ?\n\n...\nON INIT oDlg:oMsgbar := TMsgbar():New(oDlg, \"Text1\", ....) shows the bar\n\nBut \n\noDlg:oMsgbar:SetMsg (\"Second\") does not change the text\n....\n\nStefan','',0,'EA==','m5pf6k5l',1,0,'',130,0,0),(31722,6986,3,2,0,'87.218.146.3',1179140536,1,0,1,1,1,1,'','','Stefan,\n\nTry this:\n\noDlg:oMsgbar:cMsg := \"Second\"\n\nor\n\noDlg:oMsgbar:cMsgDef := \"Second\"','',0,'EA==','3069lgl1',1,0,'',2,0,0),(31723,6987,3,1060,0,'87.245.169.50',1179140741,1,0,1,1,1,0,'','need sbrowseh.lib','hi all, \n\ndoes any one have sbrowseh.lib version 6.0 or over and sbuttonh.lib version 5 ? \n\nThanks.','',0,'EA==','1e8i703m',1,0,'',1060,0,0),(31724,6988,2,1059,0,'201.253.81.183',1179143084,1,0,1,1,1,0,'','TWBROWSE de Hernán e índices CDX','Aclaro que soy aficionado y la programación es mi hobby.\nTengo problemas con el scroll vertical cuando utilizo la clase TWBROWSE de Hernan Diego Ceccarelli. \nAl querer mover la \'perilla\' del scroll vertical para avanzar o retroceder en el browse no se mueve, es decir, la llevo hasta la mitad  pero no queda y vuelve al comienzo. si se mueve si \"clickeo\" en las flechitas de los extremos o en la vía de la perilla.\nEsto pasa solo si uso índices .CDX, con los .NTX no da ese problema.\n¿alguien puede darme una mano?. Gracias. \nRolando Cerella\nArgentina','',0,'EA==','35bfoq9n',1,0,'',1059,0,0),(31725,6815,6,1051,0,'201.27.31.129',1179143168,1,0,1,1,1,0,'','','Antonio,\nHB_AdoRddGetRecordset():Supports( adIndex )\nreturns .F.\nwhy?\ni\'m using MYSQL 4.1\n\nyou testing with what GDB?\n\nRegards','',0,'EA==','3gat80qx',1,0,'',1051,0,0),(31726,6815,6,2,0,'87.218.146.3',1179143433,1,0,1,1,1,1,'','','Athayde,\n\n&gt;\nHB_AdoRddGetRecordset():Supports( adIndex ) \nreturns .F. \nwhy? \ni\'m using MYSQL 4.1 \n&gt;\n\nWe don\'t know it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/met_rs_supports.asp\">http://www.w3schools.com/ado/met_rs_supports.asp</a><!-- m -->\n\n&gt; you testing with what GDB?\n\nAccess and MySQL (<!-- w --><a class=\"postlink\" href=\"http://www.freesql.org\">www.freesql.org</a><!-- w -->). Some users are testing with Microsoft SQL too','',0,'EA==','p2l5rs5p',1,0,'',2,0,0),(31727,6815,6,1051,0,'201.27.31.129',1179146540,1,0,1,1,1,0,'','','Antonio,\n\nWhy code the ADORDD.PRG in xharbour_cvs is different of your?\nin xharbour_cvs supports firebird\nare projects differents?\n\nRegards','',0,'EA==','20xrk9os',1,0,'',1051,0,0),(31728,6815,6,1051,0,'201.27.31.129',1179147143,1,0,1,1,1,0,'','','but which is your version of MYSQL?\n\nThanks','',0,'EA==','25kyjwub',1,0,'',1051,0,0),(31729,6815,6,1051,0,'201.27.31.129',1179147700,1,0,1,1,1,0,'','','use mysql1.prg\n   USE test00 VIA \"ADORDD\" TABLE \"ACCOUNTS\" MYSQL ;\n      FROM \"www.freesql.org\" USER \"myuser\" PASSWORD \"mypass\"\n   INDEX ON FIRST TO X_FIRST\n\n\n   Browse()\n\nnot error, but not ordened','',0,'EA==','945u8fub',1,0,'',1051,0,0),(31730,6989,6,237,0,'200.68.70.90',1179149182,1,0,1,1,1,0,'','Sobre outlook y blat','Tengo las siguientes dudas:\n\nNecesito ( como muchos otros ) enviar una pila de correos, probablemente mas de 1000 a distintas direcciones y cada uno con un pdf adjunto distinto para cada uno.\n\n1) \nProbé el envio de mail usando la clase tMail() con outlook express y funciona ok, pero.... hay alguna manera que se haga una cola de mensajes y los envie todos juntos ? por que cada vez que se hace el Activate() los envia uno por uno y el sistema te queda paralizado.\n\n2)\nProbé tambien la clase TFBlat() que anda por ahi, le hize unas pequeñas modificaciones y pude enviar exitosamente varios mails, todos llegaron y con su respectivo archivo adjunto, pero... veo que cuando uno hace el llamado a ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE  ), el control regresa instantáneamente al sistema y vuelve a enviar otro mail uno tras otro, tras otro... Si tengo que enviar 1000 o mas mails, tengo tres dudas: \na) no hay peligro o probabilidad que se sature la memoria/coneccion/pc  ??? \n\nb) La otra duda es saber cuando se supone que termine el proceso de envio, o sea, que deben hacer con la pc, dejarla encendida hasta cuando?\n\nc) Que hay con respecto al sistema que genero el llamado al Blat? una vez   que se ejecutó el llamado para enviar los mails, puedo cerrar el sistema? o esto hace que se caigan los procesos que llamé a ejecucion?\n\nTengo que entregar esta utilidad que si bien la terminé y funciona, no se a ciencia cierta si va funcionar con envios masivos o no.\n\nMuchos saludos!\nAlejandro Cebolido\nBuenos Aires, Argentina.','',0,'EA==','387nd98i',1,0,'',237,0,0),(31731,6815,6,1051,0,'201.27.31.129',1179149782,1,0,1,1,1,0,'','','stranger no?\nwith Mysql 4.1 functions perfectly\n   USE ceif VIA \"ADORDD\" TABLE \"aplica\" MYSQL ;\n      FROM \"localhost\" USER \"root\" PASSWORD \"masterkey\" ALIAS \"aplica\"\n\nwith Mysql 5.0.37 error:\nError ADODB.Recordset/16389  E_FAIL: OPEN Arguments: ( [ 1] = Type: C Val: aplic\na [ 2] = Type: O Val: { TOLEAUTO Object })\n\nError at ...: TOLEAUTO:OPEN(0) in Module: win32ole.prg\nCalled from : ADO_OPEN(273) in Module: ADORDD.PRG\nCalled from : DBUSEAREA(0) in Module:\n\nRegards','',0,'','1z4l65ut',1,0,'',1051,0,0),(31732,6976,6,278,0,'164.77.105.87',1179151340,1,0,1,1,1,1,'','','Gracias Biel por responder, lo voy a estudiar, para ver si es lo que necesito.\n\nYo deseo que el triangulito cambie por un bmp , y sea el mismo para todas las columnas. \n\nSi puedo hacerlo, les cuento.\n\nSaludos,','',0,'','3fq0kct7',1,0,'',278,0,0),(31733,6990,6,36,0,'200.113.56.235',1179153153,1,0,1,1,1,1,'','Ads busqueda campos memos VACIOS','Estimados\n\n    estoy utilizando Servidor Ads 8.1, y tablas ADT\n\nMi pregunta se alguien sabe buscar dentro de campos memos\n\nme resulta con esta instruccion, pero no se como buscar campos memos vacios\n\n[code:3psb8r0d]Libros-&gt;&#40; AdsSetAof&#40; \'CONTAINS&#40; AREA, &quot;LO QUE QUIERO BUSCAR&quot;\' &#41; &#41;[/code:3psb8r0d]\n\nCualquier Ayuda es bienvenida','',0,'AIA=','3psb8r0d',1,0,'',36,0,0),(31734,6983,3,694,0,'200.189.112.21',1179153564,1,0,1,1,1,1,'','','Enrico, not kill using oActivex&#058;end(), help-me ! <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n\n**************************\nfunction pdfMain(Nomerel)\n**************************\n   local poWnd, oActiveX,IDPDF:=\"\"\n \n   IF ! PDFActivex(@IDPDF)\n      RETURN(.F.)\n   ENDIF\n   \n   nomerel:=if(nomerel=nil,\"PDF Relatório\",nomerel)\n\n   DEFINE WINDOW poWnd TITLE  \".::\"+alltrim(sis_1nom)+\"::. \"+nomerel+\" - \"+IDPDF \n\n   oActiveX = TActiveX():New( poWnd, IDPDF )  \n\n   poWnd:oClient = oActiveX // To fill the entire window surface\n\n   oActiveX&#058;Do( \"LoadFile\", \"genesis.pdf\" )\n   oActiveX&#058;Do( \"SetCurrentPage\", 1 )\n\n   ACTIVATE WINDOW poWnd MAXIMIZED valid(oActiveX&#058;End(),.t.)\n\nreturn nil','',0,'AIA=','11qg7hic',1,0,'',694,0,0),(31735,6980,6,54,0,'189.132.112.11',1179153583,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1m3j99d0]William,\n\nLa actual clase TComboBox de FWH proporciona búsqueda incremental[/quote:1m3j99d0]\n\nAlgun ejemplito?\n\ngracias','',0,'gA==','1m3j99d0',1,0,'',54,0,0),(31736,6926,7,57,0,'80.58.205.34',1179154237,1,0,1,1,1,1,'','','Antonio\n\nAlguna solución al respecto??\n\nSaludos','',0,'gA==','1faj27om',1,0,'',57,0,0),(31737,6981,6,694,0,'200.189.112.21',1179154633,1,0,1,1,1,1,'','','Antonio, não funcionou ! Tem alguma outra idéia ? pois esperei um hora e processo não morreu, vou dar um tiro nele de pistola (heheheh) pra ver se o danado morre. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','369e3jka',1,0,'',694,0,0),(31738,6990,6,299,0,'24.233.172.101',1179157049,1,0,1,0,1,0,'','','SELECT * FROM libros WHERE area IS NULL\n\no algo asi:\n\nLibros-&gt;( AdsSetAof( Empty( area ) ) )','',0,'gA==','2ikvuqqb',1,0,'',299,0,0),(31739,6961,3,24,0,'80.24.12.168',1179157500,1,0,1,1,1,1,'','Re: SQLite3 for xHarbour/harbour','[quote=&quot;ssbbs&quot;:3uepiawa][quote=&quot;thefull&quot;:3uepiawa][quote=&quot;ssbbs&quot;:3uepiawa][quote=&quot;thefull&quot;:3uepiawa]I\'m interesting, i begin convert hbsqlite , job Alejandro Garate, but \nversion is for SQlite 2.8, and i want job 3.0.[/quote:3uepiawa]\n\nMy post is for SQLite 3.3.17 (lastnew).  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:3uepiawa]\n\nWelll, i accept 3.X.X, but you not respond a my question....\nIs it FREE or NOT ?\n\nThank.[/quote:3uepiawa]\n\nYes, it is freeware.\nYou can use it into your AP and don\'t pay money!!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->[/quote:3uepiawa]\nUmm.. please Free Software, not freeware...\n\nI\'m interestint in desenvoluped under Sqlite3, but if I not 100% code, i not\nhelp you for testing.\n\nI using compiler Minw32, gcc, for Windows , and compiler gcc for GNU/Linux.\n\nOk, thank for your job.','',0,'gA==','3uepiawa',1,0,'',24,0,0),(31740,6990,6,138,0,'80.37.11.90',1179158570,1,0,1,1,1,1,'','','Los AOFs() no funcionan sobre campos memo, tienes que utilizar SQL, como dice Reinaldo.','',0,'gA==','3i5fr6bm',1,0,'',138,0,0),(31741,6986,3,130,0,'84.138.56.63',1179159623,1,0,1,1,1,0,'','','Antonio,\n\n[quote=&quot;Antonio Linares&quot;:7reg5utk]Stefan,\n\nTry this:\n\noDlg:oMsgbar:cMsg := \"Second\"\n\nor\n\noDlg:oMsgbar:cMsgDef := \"Second\"[/quote:7reg5utk]\n\nit is working with oDlg:oMsgbar:cMsgDef := \"...\", but you have additionally to call oDLg:oMsgbar:Refresh().\n\nThanks\n\nStefan','',0,'gA==','7reg5utk',1,0,'',130,0,0),(31742,6815,6,1051,0,'200.205.153.6',1179160246,1,0,1,1,1,0,'','','the solution for this error is:\nstatic function ADO_OPEN( nWA, aOpenInfo )\n\n   local aWAData := USRRDD_AREADATA( nWA )\n   local cName, aField, oError, nResult\n   local oRecordSet, nTotalFields, n\n\n   // When there is no ALIAS we will create new one using file name\n   if aOpenInfo[ UR_OI_ALIAS ] == nil\n      HB_FNAMESPLIT( aOpenInfo[ UR_OI_NAME ], , @cName )\n      aOpenInfo[ UR_OI_ALIAS ] := cName\n   endif\n\n   aWAData[ WA_CONNECTION ] = TOleAuto():New( \"ADODB.Connection\" )\n   aWAData[ WA_TABLENAME ] = s_cTableName\n[b:3uims7m6]   IF EMPTY(s_cQuery)\n       s_cQuery = \"SELECT * FROM \"\n   ENDIF[/b:3uims7m6]\n\nRegards','',0,'QA==','3uims7m6',1,0,'',1051,0,0),(31743,6990,6,36,0,'200.113.56.235',1179160609,1,0,1,1,1,1,'','','Muchas gracias\n\nLa solucion fue la siguiente:\n\n   Si quiero buscar un texto en un campo memo:\n[code:2ehqc45d]AdsSetAof&#40; \'CONTAINS&#40; AREA, &quot;\'+xFilter+\'&quot;&#41;\' &#41;[/code:2ehqc45d]\n    [b:2ehqc45d]nota:CONTAINS es un funcion ADS[/b:2ehqc45d]\n\n  si quieren buscar un campo vacio\n[code:2ehqc45d]Libros-&gt;&#40; AdsSetAof&#40; \'empty&#40; AREA &#41;\' &#41; &#41;[/code:2ehqc45d]\n\n\nen realidad era mucho mas facil <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QIA=','2ehqc45d',1,0,'',36,0,0),(31744,6980,6,2,0,'87.218.146.3',1179162114,1,0,1,1,1,1,'','','William,\n\nDesde FWH 7.01 está disponible.\n\nPuedes usar cualquier combobox y comenzar a teclear los caracteres de un item, y la búsqueda incremental lo localiza','',0,'QIA=','1llp7drg',1,0,'',2,0,0),(31745,6814,3,35,0,'167.7.140.254',1179162785,1,0,1,1,1,0,'','','Antonio\n\nI loaded up a MS SQL 2005 box and I played around with the same tables as in my 2000 relm. A couple of noteworthy things .. \n\n1) There are no ( structural ) changes in indexing from 2000 to 2005\n2) If you set the indexing to Unique and clustered .. the table opens in index order without issueing an \'order by\' clause ( both in 2000 and 2005 )  .. however \n\n#define adIndex 0x100000\nMsgInfo( HB_AdoRddGetRecordset():Supports( adIndex ) )\n\nstill returns false in 2005  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nJust thought I would send you the feedback.\n\nRick Lipkin','',0,'QIA=','bvq1yosa',1,0,'',35,0,0),(31746,6979,6,171,0,'71.233.232.238',1179164137,1,0,1,1,1,0,'','','Stefan\n\nI just recieved, thanks\n\nGeorge','',0,'QIA=','3pgm9syo',1,0,'',171,0,0),(31747,6960,6,935,0,'200.62.120.154',1179164827,1,0,1,1,1,0,'','no se que hacer','Antonio,\n\nGracias por tua atencion, he hecho de todo y al final el error persiste no logra adordd establecer la apertura de la tabla, tome el ejemplo Mysql1.prg y lo compare con mi codigo y esta bien, e inclusive sustitui los valores con mis valores y compila sin problemas al ejecutarse da el mismo error, la verdad no se que tengo mal configurado,\n\nTngo una conexion ODBC hecha en Herramientas Administrativas de windows xp que apunta a la base de datos MySql \"Persona1\"\n\nTengo instalado MySql Version 5.0\n\nLos parametros de apertura que le proporciono son los utilizados en el ejemplo:\n\nUSE (BASE DE DATOS) VIA \"ADORDD\" TABLE (NOMBRE DE LA TABLA A USAR) MYSQL ;\nFROM (NOMBRE DEL SERVIDOR) USER (LOGIN DE USUARIO ) PASSWORD ( PASS DE LA BASE DE DATOS) ALIAS ( ALIAS A UTILIZAR)\n\nCon toda la amplia experiencia que tu tienes, necesito el norte donde buscar el problama para poder corregirlo.\n\nGracias\n\nRamon Paredes\nManagua, Nicaragua\n\n\n[quote][/quote]','',0,'','255ed3i5',1,0,'',935,0,0),(31748,6814,3,2,0,'87.218.146.3',1179165556,1,0,1,1,1,1,'','','Rick,\n\nThanks for the feedback. We may need to issue an oAdoConnection:Execute() using a ORDER BY statement and replace the resulting recorset into the ADORDD workarea','',0,'','3nkhzw5i',1,0,'',2,0,0),(31749,6960,6,2,0,'87.218.146.3',1179165675,1,0,1,1,1,1,'','','Ramón,\n\nmysql1.prg te funciona bien como está, usando <!-- w --><a class=\"postlink\" href=\"http://www.freesql.org\">www.freesql.org</a><!-- w --> ?','',0,'','w00qquxo',1,0,'',2,0,0),(31750,6991,6,959,0,'201.58.51.167',1179166217,1,0,1,1,1,0,'','Activex,  Bug ?','Ao alterar em duas Janelas com ALT + TAB me danifica a pantalha.\n\nPantalha com Problema :\n\n[img:35lamzwc]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem1&#46;jpg[/img:35lamzwc]\n\nPantalha correta :\n\n[img:35lamzwc]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem2&#46;jpg[/img:35lamzwc]\n\n\n   Código está assim :\n\n   DEFINE WINDOW oSistema:oWndMenu OF oTelaPrincipal MDICHILD PIXEL STYLE 1 SIZE FROM 0,0 TO nLinha,nColuna NOBORDER NOSYSMENU //oTelaPrincipal:nWidth-50,oTelaPrincipal:nHeight-150\n\n   oSistema:oActiveX = TActiveX():New( oSistema:oWndMenu, \"Shell.Explorer\" )\n\n   oSistema:oWndMenu:oClient := oSistema:oActiveX \n\n   aUrl := \"file:///\"\n   aUrl += CurDrive() + \":\\\" + ALLTRIM(CurDir())\n   aUrl += \"\\menusintegra.html\"\n   aUrl := strtran (aUrl,\"\\\",\"/\")\n\n   oSistema:oActivex&#058;Do(\"Navigate\",aUrl ) \n\n   ACTIVATE WINDOW oSistema:oWndMenu valid oSistema:Finalizou\n\n\n   DEFINE WINDOW oSistema:oWnd  OF oTelaPrincipal  MDICHILD STYLE 1 PIXEL SIZE FROM 0,nColuna + .1 TO nLinha,oTelaPrincipal:nWidth NOBORDER NOSYSMENU\n\n   oSistema:oActiveXWnd := TActiveX():New( oSistema:oWnd, \"Shell.Explorer\" )\n   oSistema:oWnd:oClient := oSistema:oActiveXWnd\n\n   aUrl := \"file:///\"\n   aUrl += CurDrive() + \":\\\" + ALLTRIM(CurDir())\n   aUrl += \"\\SintegraAuntentica.html\"\n   aUrl := strtran (aUrl,\"\\\",\"/\")\n\n   oSistema:oActiveXWnd:Do(\"Navigate\",aUrl )\n\n   ACTIVATE WINDOW oSistema:oWnd valid oSistema:Finalizou ON INIT oSistema:oWnd:Disable ()\n\n    \n  Seria um bug da classe Activex ? alguma solucion para resolver el problema ?\n\n Gracias\n\nMário\n   [/img]','',0,'CA==','35lamzwc',1,0,'',959,0,0),(31751,6991,6,2,0,'87.218.146.3',1179166777,1,0,1,1,1,1,'','','Mario,\n\nPrueba esto:\n\noSistema:bGotFocus = { || oSistema:oActiveXWnd:Refresh() }','',0,'CA==','l6zgz4yj',1,0,'',2,0,0),(31752,6991,6,959,0,'201.58.51.167',1179168450,1,0,1,1,1,0,'','','Antonio, \n\nGracias pela resposta, mas al colocar \n\noSistema:oWndMenu:bGotFocus = { || oSistema:oActiveX&#058;Refresh() }\n\nme salta este erro :\n\n\n[img:1a50kfwe]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem3&#46;jpg[/img:1a50kfwe]\n\n\nMário','',0,'CA==','1a50kfwe',1,0,'',959,0,0),(31753,6991,6,2,0,'87.218.146.3',1179169771,1,0,1,1,1,1,'','','Mario,\n\nPrueba así:\n\noSistema:oWndMenu:bGotFocus = { || InvalidateRect( oSistema:oActiveX&#058;hWnd, .T. ) }','',0,'CA==','gpr4ix4u',1,0,'',2,0,0),(31754,6815,6,1051,0,'200.205.153.6',1179171118,1,0,1,1,1,0,'','','Antonio,\n\nabout query, i see another thing\nin [b:32fpwwwd]ADO_OPEN[/b:32fpwwwd]\n   IF aWAData[ WA_QUERY ]==\"SELECT * FROM \"\n      oRecordSet:Open( aWAData[ WA_QUERY ] + aWAData[ WA_TABLENAME ], aWAData[ WA_CONNECTION ] )\n   ELSE\n      oRecordSet:Open( aWAData[ WA_QUERY ], aWAData[ WA_CONNECTION ] )\n   ENDIF\n\nbut, when USE command, not open HB_AdoSetQuery( &lt;cQuery&gt; ) function when not have a Query, only open function if Query exist, then forever push the last query\n\nEX:\n   SELE 0\n   USE ceif VIA \"ADORDD\" ALIAS \"S\" TABLE \"s\" MYSQL FROM \"localhost\" USER \"root\" PASSWORD \"masterkey\" \n&lt; the query is a SELECT * FROM S &gt;\n\nbut, if open with Query\n   SELE 0\n   USE ceif VIA \"ADORDD\" ALIAS \"ABC\" TABLE \"ABC\" MYSQL FROM \"localhost\" USER \"root\" PASSWORD \"masterkey\" QUERY \"SELECT * FROM ABC ORDER BY nomeus\"\n&lt; the query is a SELECT * FROM ABC ORDER BY nomeus &gt;\n\nbut if open without Query again\n   SELE 0\n   USE ceif VIA \"ADORDD\" ALIAS \"TTT\" TABLE \"TTT\" MYSQL FROM \"localhost\" USER \"root\" PASSWORD \"masterkey\" \n&lt; the query is a SELECT * FROM ABC ORDER BY nomeus &gt;\n\nnot cleaning query when open new alias\n\nRegards','',0,'QA==','32fpwwwd',1,0,'',1051,0,0),(31755,6989,6,92,0,'83.53.82.6',1179171157,1,0,1,1,1,0,'','Re: Sobre outlook y blat','[quote=&quot;TecniSoftware&quot;:xgj3h0iw]Tengo las siguientes dudas:\n\nNecesito ( como muchos otros ) enviar una pila de correos, probablemente mas de 1000 a distintas direcciones y cada uno con un pdf adjunto distinto para cada uno.\n\n2)\nProbé tambien la clase TFBlat() que anda por ahi, le hize unas pequeñas modificaciones y pude enviar exitosamente varios mails, todos llegaron y con su respectivo archivo adjunto, pero... veo que cuando uno hace el llamado a ShellExecute( GetWndApp(), 0, ::cFileBat, 0, 0, SW_HIDE  ), el control regresa instantáneamente al sistema y vuelve a enviar otro mail uno tras otro, tras otro... Si tengo que enviar 1000 o mas mails, tengo tres dudas: \na) no hay peligro o probabilidad que se sature la memoria/coneccion/pc  ??? \n\nb) La otra duda es saber cuando se supone que termine el proceso de envio, o sea, que deben hacer con la pc, dejarla encendida hasta cuando?\n\nc) Que hay con respecto al sistema que genero el llamado al Blat? una vez   que se ejecutó el llamado para enviar los mails, puedo cerrar el sistema? o esto hace que se caigan los procesos que llamé a ejecucion?\n\n.[/quote:xgj3h0iw]\n\nAlejandro,\n\nme alegra que puedas utilizar TFBlat, al final por causas varias, no pude ponerlo en práctica.\n\na) Creo que si, que es posible que se sature el PC.\nb) Una solución es que modificando TfBlat, al momento de ejecutar ::cFileBat, en él se cree un fichero \'semáforo\' que será eliminado por el propio .Bat al acabar el envío. Si el ficheo existe no se puede apagar el PC, sino ...\nc) Creo que puedes cerrar el sistema.\n\nSaludos\nCarlos G.','',0,'gA==','xgj3h0iw',1,0,'',92,0,0),(31756,6991,6,959,0,'201.58.51.167',1179171548,1,0,1,1,1,0,'','','Antonio,\n\nGracias, mas ainda não foi desta vez, já fiz várias tentativas :\n\n          nFocou := 0\n\n          oTelaPrincipal:bGotFocus  := {|| iif (oSistema:oActiveX != nil, (oTelaPrincipal:cTitle := \"focou \" + str(nfocou++,06) , oSistema:oWndMenu:Refresh (),InvalidateRect( oSistema:oActivex&#058;:hWnd,.t. ) ) , sysrefresh () ) }\n\nVeja :\n\n[img:2ieug4us]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem4&#46;jpg[/img:2ieug4us]\n\n\n\n[img:2ieug4us]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem5&#46;jpg[/img:2ieug4us]','',0,'CA==','2ieug4us',1,0,'',959,0,0),(31757,6815,6,1051,0,'200.205.153.6',1179172696,1,0,1,1,1,0,'','','about LOCATE with AND or \"OR\"\nADO limitation\nNote: This method does not support multi-column searches (AND or OR)\n\nRegards','',0,'CA==','1535fb8b',1,0,'',1051,0,0),(31758,6992,6,1023,0,'189.18.95.106',1179173152,1,0,1,1,1,0,'','Não consigo usar TGroup em Dialogs','Olá a todos.\n\nSempre que tento usar o TGroup em uma DIALOG tenho a seguinte msg de erro:\nMessage not found TGROUP:DEFCONTROL\n\nEu já tentei usar o msm código em um WINDOW comum e funcionou.\nSe tiver alguma forma de tirar o botão Maximize do Window, e fassa com que ele impessa o acesso a janela abaixo dele tb cerve, pois estou usando o dialog porque não achei um geito de fazer com que a janela que estivesse no topo impedisse o acess as janelas de baixo e que não seja redimencionavel.\n\nSe alguem poder ajudar, ficarei muito agradecido.\nUm abraço a todos, t+.','',0,'CA==','1ojxz92u',1,0,'',1023,0,0),(31759,6815,6,1051,0,'200.205.153.6',1179176004,1,0,1,1,1,0,'','','Antonio,\nfix for return size correct\n[code:24eu9sub]\nstatic function ADO_GETVALUE&#40; nWA, nField, xValue &#41;\n\n   local aWAData &#58;= USRRDD_AREADATA&#40; nWA &#41;\n   local oRecordSet &#58;= USRRDD_AREADATA&#40; nWA &#41;&#91; WA_RECORDSET &#93;\n   local lChar,nADOFieldType\n\n   if aWAData&#91; WA_EOF &#93; &#46;or&#46; oRecordSet&#58;RecordCount&#40;&#41; == 0\n      xValue &#58;= nil\n   else\n      xValue &#58;= oRecordSet&#58;Fields&#40; nField - 1 &#41;&#58;Value\n      nADOFieldType=oRecordSet&#58;Fields&#40; nField - 1 &#41;&#58;Type\n      lChar=&#46;F&#46;\n      IF nADOFieldType == adDBDate\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adDBTime\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adDBTimeStamp\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adBSTR\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adChar\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adVarChar\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adLongVarChar\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adWChar\n         lChar=&#46;T&#46;\n      ELSEIF nADOFieldType == adVarWChar\n         lChar=&#46;T&#46;\n      ENDIF\n      IF lChar\n         xValue &#58;= xValue+SPACE&#40; oRecordSet&#58;Fields&#40; nField - 1 &#41;&#58;DefinedSize - LEN&#40;xValue&#41; &#41;\n      ENDIF\n   endif\n\nreturn SUCCESS\n[/code:24eu9sub]\n\nfunction ADO_GETFIELDTYPE it stranger i can\'t compares with HB_FT_STRING\n\nRegards[/code]','',0,'AIA=','24eu9sub',1,0,'',1051,0,0),(31761,6814,3,35,0,'167.7.140.254',1179177120,1,0,1,1,1,0,'','','Antonio\n\nDon\'t forget .. since you can not \'seek\' on an index .. you will need some way of #translating the \"locate\" or \"seek\" command to something like :\n\ncSQL :=  \"reg_no like \'\"+cFIND+\"%\'\"\n\noRs:Find( cSQL ) .. \n\nThis seems to work universally with all SQL engines and ADO .. If you decide to go down this path .. RDD EOF() and not found()  will need to be #translated to oRs:eof\n\nSet scope can possibly be #translated like :  oRs:Filter := \"name like \'\"+cFIND+\"%\'\" .. and set scope to  oRs:Filter := \"\" to clear\n\nAlso .. you may have to re-consider a \'re-fetch\' for a recordset if the user needs to re-query on a different \"order by\"\n\nRick Lipkin','',0,'AIA=','1916lz4o',1,0,'',35,0,0),(31762,6981,6,397,0,'200.204.85.226',1179177275,1,0,1,0,1,1,'','','Amiguinho,\n\nAo fechar a janela em que seu activex foi acionado voce terminou com oActivex&#058;close() ou oActivex&#058;end()?','',0,'AIA=','1ru9t14l',1,0,'',397,0,0),(31764,6960,6,935,0,'200.62.120.153',1179184592,1,0,1,1,1,0,'','si funciona','Antonio,\n\nCopile Mysql1 con el build que estoy usando y a como esta usando <!-- w --><a class=\"postlink\" href=\"http://www.freesql.org\">www.freesql.org</a><!-- w --> y funciona a la perfeccion, presenta el browse sin mayores compli¡caciones, ni errores\n\nGracias como siempre a tu apoyo\n\nRamon Paredes\nManagua, Nicaragua','',0,'AIA=','2of7o8nz',1,0,'',935,0,0),(31765,6981,6,694,0,'200.189.112.21',1179187158,1,0,1,1,1,1,'','','SIM ROCHINHA! \noActivex&#058;end()','',0,'AIA=','34kr4796',1,0,'',694,0,0),(31766,6994,3,227,0,'201.28.39.223',1179187665,1,0,1,1,1,1,'','Travar Windows','Amigos....\n\nComo travar a execução do Windows totalmente até o termino da execução de meu programa ?\n\nExiste como ???\n\nObrigado....','',0,'AIA=','3c11pmbo',1,0,'',227,0,0),(31767,6995,6,227,0,'201.28.39.223',1179187793,1,0,1,1,1,1,'','Travar Windows','Amigos.... \n\nComo travar a execução do Windows totalmente até o termino da execução de meu programa ? \n\nExiste como ??? \n\nObrigado....','',0,'AIA=','1dhzgp14',1,0,'',227,0,0),(31768,6989,6,237,0,'201.213.105.202',1179188871,1,0,1,1,1,0,'','Re:','Gracias Carlos por tu respuesta.\n\nLa solucion del archivo de control en el .bat está muy interesante y no se me había ocurrido, estoy seguro que va funcionar 10 puntos.\n\nCon respecto a la saturación del pc, no se... se me ocurre poner un contador y largalos de a 20 por ejemplo...\n\nMaestro Linares, ud. que opina? \n\nAún quisiera saber si se puede usar el outlook express para enviar muchos mail pero ponerlos en cola y despues enviarlos todos juntos.\n\nMuchos saludos!\nAlejandro Cebolido\nBuenos Aires, Argentina','',0,'AIA=','b3pmfrv8',1,0,'',237,0,0),(31769,6989,6,264,0,'200.91.3.10',1179189216,1,0,1,1,1,1,'','','Me sumo a la peticion pues yo uso DEFINE MAIL blablabla... y detiene el envio, lo que hace inoperante el sistema...\nAlguna idea ?\nSaludos','',0,'AIA=','jl3wf527',1,0,'',264,0,0),(31770,6942,6,264,0,'200.91.3.10',1179189412,1,0,1,1,1,1,'','','Antonio.\nExiste en algun lado explicaciones o ejemplos de esto ?\nGracias de antemano.','',0,'AIA=','3khcwzw2',1,0,'',264,0,0),(31771,6859,3,492,0,'189.147.32.187',1179190226,1,0,1,1,1,1,'','','Antonio :\n\nCan you tell me how to apply these changes into my apps ??\n\nThanks a lot \n\n\nSaludos','',0,'AIA=','1yuarcli',1,0,'',492,0,0),(31772,6905,6,496,0,'200.107.36.176',1179191692,1,0,1,1,1,0,'','','Un saludo a todos\n\nAún no he recibido ninguna respuesta de Arturo, le escribí a su correo solicitando la clase, pero nada.\n\nPor si hay algún problema con mi correo,  aquí este otro: \n<!-- e --><a href=\"mailto:mjingo@hotmail.com\">mjingo@hotmail.com</a><!-- e -->\n\nAlguien ya ha recibido la clase?\n\nEspero que Arturo que comprenda mi insistencia; Gracias\n\nMarcelo Jingo','',0,'AIA=','38i8r7s0',1,0,'',496,0,0),(31773,6942,6,237,0,'201.213.105.202',1179192088,1,0,1,1,1,0,'','','Las funciones para correr archivos HRB\n/*\n__HRBRUN(  &lt;cFile&gt; [, xParam1 [, xParamN ] ]  ) -&gt; xReturn\n  Execute specified hrb file, passing optional paramaters.\n\n__HRBLOAD( &lt;cFile&gt; ) -&gt; nHandle\n  Load an hrb file and return a Handle.\n\n__HRBDO( &lt;nHandle&gt; )\n  Execute previously loaded hrb module specified by it\'s Handle.\n\n__HRBUNLOAD( &lt;nHandle&gt; )\n  Unload an hrb module.\n\n__HRBGETFU( &lt;nHandle&gt;, &lt;cFuncName&gt; ) -&gt; nHandle\n  Retrieve Handle to specified function in a given preloaded hrb module.\n\n__HRBDOFU( &lt;nHandle&gt;, [xParam1 [, xParamN] ] ) -&gt; xReturn\n  Execute specified function by its handle, passing optional paramaters.\n*/\n\nFunction Test( cMsg, cTitle )\nLocal cIn           := \"c:\\temp\\Test.prg\"\nLocal cOut         := cCurDrive() + \":\\\" + CurDir() + \"\\Test.hrb\" \nLocal cCompiler := \"c:\\Harbour\\bin\\Harbour.exe\"\nLocal cCommand\nLocal pHrb\nLocal u\n\nFErase( cOut )\n\ncCommand := cCompiler + \" \" + cIn + \" /gh /n\"\nnResult  := WaitRun( cCommand, 0 )\n\nIf nResult == 0\n   pHrb  := __hrbLoad( cOut )\n   u       := __hrbDo( pHrb, cMsg, cTitle ) // Llamo a la function que esta \n   __hrbUnload( pHrb )                            // test.prg y  le paso los param.\nElse\n   MsgStop( \"Error al compilar el archivo \" + cIn, \"Error!\" )\nEndIf\n  \nReturn u\n\n\n\n// test.prg\nfunction main( ctext, ctitle )\n\nreturn msginfo( ctext, ctitle )\n\n\nEspero que te sirva.\n\nSaludos!','',0,'','3gu6um5l',1,0,'',237,0,0),(31774,6982,6,376,0,'201.230.189.80',1179204406,1,0,1,1,1,1,'','','Antonio\n\nYa lo intenté y me da \"F1||Help\" (Dos líneas gráficas al medio) en una sola línea.','',0,'','1hnaopry',1,0,'',376,0,0),(31775,6859,3,2,0,'87.218.146.3',1179210526,1,0,1,1,1,1,'','','Raymundo,\n\nPlease follow Charles explanation:\n\n1. Add TCS_MULTILINE to the Style in your RC file. \n2. Add ::AdjustRect() to the Initiate() method of Tfolder \n3. If you use the RESIZE16 Clause, you will need to say: \nON INIT oFld:AdjustRect() in your prg code. \nA working example link is below: \n\n<!-- w --><a class=\"postlink\" href=\"http://www.softraksystems.com/download/MULTFOLD.ZIP\">www.softraksystems.com/download/MULTFOLD.ZIP</a><!-- w -->','',0,'','1tse00u4',1,0,'',2,0,0),(31776,6982,6,2,0,'87.218.146.3',1179210625,1,0,1,1,1,1,'','','Armando,\n\nEs un botón estandard (clase TButton) ?','',0,'','3ohkzy41',1,0,'',2,0,0),(31777,6989,6,838,0,'80.34.222.112',1179211583,1,0,1,1,1,0,'','','Hola a todos\nComo he explicado en varios post anteriores, yo vengo utilizando blat para el envio por correo a clientes de su factura mensual, de momento envío unos 200 que van creciendo según cada cliente vaya aceptando éste método de envío de su factura mensual.\nEn mi último post:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6897&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\ntambién comentaba que utilizando blat he observado que de los 200 envíos, siempre hay sobre unos 10 más o menos que reciben el correo, pero no el adjunto, y ésto observándolo desde Enero.\nDe todas las formas, como éste hecho sigue ocurriendo, me he decantado por probar con la clase tsmtp de Luis krause, que permite enviar adjunto y admite usuario y contraseña.\nHe probado enviando unas 20 facturas, y de momento me ha funcionado y recibo confirmación de recepción.\nLa pregunta que hice a éste foro fué que si tengo que utilizar siempre para cada correo el proceso completo de envío, es decir cargar la clase entera y realizar todo el proceso completo para cada envío y nadie me contestó sobre ésta cuestión.\nMe gustaría que algún maestro que esté enterado sobre éste asunto me indique si ésto es así o hubiera alguna forma de enviar los correos a cada cliente su adjunto, ya sea con blat o de otra forma\n\nSaludos\n\nJose Luis','',0,'','3td77ygj',1,0,'',838,0,0),(31778,6859,3,154,0,'151.21.76.174',1179213446,1,0,1,1,1,1,'','','Dear Antonio,\nSorry, I do not understud!\nwith xHarbour is possible to test MultiFolder?\nI receive the same error also with the standard lib![quote=&quot;Ugo&quot;:1bbdqr10]\ncan I test your news?\ni compile and found an error at runtime:\n[code:1bbdqr10]   Descrizione&#58; Error BASE/1004  Message not found&#58; TCLIPGET&#58;TYPE\n\nStack Calls\n===========\n   Called from&#58; tobject&#46;prg =&gt; TCLIPGET&#58;ERROR&#40;172&#41;\n   Called from&#58; tobject&#46;prg =&gt; TCLIPGET&#58;MSGNOTFOUND&#40;205&#41;\n   Called from&#58; tobject&#46;prg =&gt; TCLIPGET&#58;TYPE&#40;0&#41;\n   Called from&#58; tget&#46;prg =&gt; TCLIPGET&#58;PARSEPICT&#40;367&#41;\n   Called from&#58; tget&#46;prg =&gt; TCLIPGET&#58;SETPICTURE&#40;2043&#41;\n   Called from&#58; tget&#46;prg =&gt; &#40;b&#41;GET&#58;GET&#40;122&#41;\n   Called from&#58; TCLIPGET&#46;prg =&gt; TCLIPGET&#58;TCLIPGET&#40;0&#41;\n   Called from&#58; tget&#46;prg =&gt; TCLIPGET&#58;NEW&#40;234&#41;\n   Called from&#58; TCLIPGET&#46;prg =&gt; GETNEW&#40;23&#41;\n   Called from&#58; TGET&#46;prg =&gt; TGET&#58;REDEFINE&#40;361&#41;\n   Called from&#58; FOLDONLY&#46;PRG =&gt; SNGLFOLD&#40;86&#41;\n   Called from&#58; FOLDONLY&#46;PRG =&gt; &#40;b&#41;BUILDMENU&#40;34&#41;\n   Called from&#58; MENU&#46;prg =&gt; TMENU&#58;COMMAND&#40;407&#41;\n   Called from&#58; WINDOW&#46;prg =&gt; TWINDOW&#58;COMMAND&#40;937&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;prg =&gt; _FWH&#40;3177&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;prg =&gt; TWINDOW&#58;ACTIVATE&#40;886&#41;\n   Called from&#58; FOLDONLY&#46;PRG =&gt; MAIN&#40;24&#41;\n[/code:1bbdqr10]\ncan you help me?[/quote:1bbdqr10]','',0,'gIA=','1bbdqr10',1,0,'',154,0,0),(31779,6859,3,2,0,'87.218.146.3',1179213913,1,0,1,1,1,1,'','','Ugo,\n\nSomething may have changed in xHarbour CVS Class TGet. Please check Class TGet DATA Type','',0,'gIA=','xmhd9031',1,0,'',2,0,0),(31780,6926,7,2,0,'87.218.146.3',1179215055,1,0,1,1,1,1,'','','Toni,\n\nEn el recurso usas TCS_BOTTOM ?','',0,'gIA=','kg7nlpnf',1,0,'',2,0,0),(31781,2486,16,316,0,'213.97.245.163',1179218813,1,0,0,1,1,0,'','','Antonio,\n\nFileFactory dice que no está disponible el fichero del xharbour:\n\n\"Sorry, there are currently no free download slots available on this server.\n\nPlease try again later, or you can upgrade to FileFactory Premium for instant access.\"\n\nQuisiera bajarlo, tengo que recompilar un programa de consola pero que vamos a migrar a windows en breve con la FW nueva, y quisiera ir trabajando con la misma versión de xHarbour\n\nPodrías subirlo a boxnet?\n\n<!-- m --><a class=\"postlink\" href=\"http://BoxNet.com\">http://BoxNet.com</a><!-- m -->\n\n\nGracias','',0,'gIA=','31f3iwzb',1,0,'',316,0,0),(31782,2486,16,2,0,'87.218.146.3',1179219581,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/31404620/xharbour.exe.html\">http://rapidshare.com/files/31404620/xharbour.exe.html</a><!-- m -->','',0,'gIA=','3fxn0188',1,0,'',2,0,0),(31784,6996,6,533,0,'80.32.177.143',1179225097,1,0,1,1,1,0,'','Como incluyo codigo C','Buenas Foro, Mirad tengo la clase btnget que quiero usarla, pero me viene con un fichero C, que tiene una función que me pide al compilar. ¿Cómo hago para incluir este fichero .c en mi proyecto? muchas gracias\n\nFWH + xharbour\n\n[code:wrpoi7u4]\n/*\n * $Id&#58; getbtn&#46;c,v 1&#46;1 2001/09/05 17&#58;34&#58;44 RRamirez Exp $\n */\n\n#define STRICT\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n#ifdef __cplusplus\n extern &quot;C&quot; &#123;\n#endif\n\n#ifdef __cplusplus\n &#125;\n#endif\n\n#ifdef __HARBOUR__\n    HARBOUR HB_FUN_GETBTN&#40; PARAMS &#41;\n#else\n    CLIPPER GETBTN&#40; PARAMS &#41;  // &#40; hWnd, nLen &#41; --&gt; Nil\n#endif\n&#123;\n    HWND hWnd = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n\n    RECT rect;\n\n   GetClientRect&#40; hWnd, &amp;rect &#41;;\n   rect&#46;right -= &#40;short&#41;_parni&#40; 2 &#41; ;\n   SendMessage&#40; hWnd, EM_SETRECTNP, 0, &#40; LONG &#41; &amp;rect &#41;;\n&#125;\n[/code:wrpoi7u4]','',0,'AIA=','wrpoi7u4',1,0,'',533,0,0),(31785,6905,6,533,0,'80.32.177.143',1179225197,1,0,1,1,1,0,'','','Veo que no es problema de mi correo. (<!-- e --><a href=\"mailto:mserracat@terra.es\">mserracat@terra.es</a><!-- e -->).\n\nSALUDOS','',0,'AIA=','2wr8xzk3',1,0,'',533,0,0),(31786,6996,6,2,0,'87.218.146.3',1179226519,1,0,1,1,1,1,'','','Mike,\n\nAñade esto en el PRG de la clase BtnGet:\n[code:2v2lhs2j]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; GETBTN &#41;\n&#123;\n    HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;; \n    RECT rect; \n\n    GetClientRect&#40; hWnd, &amp;rect &#41;; \n    rect&#46;right -= &#40;short&#41; hb_parni&#40; 2 &#41; ; \n    SendMessage&#40; hWnd, EM_SETRECTNP, 0, &#40; LONG &#41; &amp;rect &#41;; \n&#125; \n\n#pragma ENDDUMP\n[/code:2v2lhs2j]','',0,'AIA=','2v2lhs2j',1,0,'',2,0,0),(31787,2486,16,316,0,'213.97.245.163',1179227406,1,0,0,1,1,0,'','','Obrigado! <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nCarlos','',0,'AIA=','1egt0wux',1,0,'',316,0,0),(31788,6815,6,1051,0,'200.205.153.6',1179227773,1,0,1,1,1,0,'','','Great,\nsee my modification for uses QUERYs differents, is possible?','',0,'AIA=','3po4i0d8',1,0,'',1051,0,0),(31789,6859,3,2,0,'87.218.146.3',1179227786,1,0,1,1,1,1,'','','Ugo,\n\nThis is the error that we get when the forums tries to send you a notification:\n\nHi. This is the qmail-send program at ...\nI\'m afraid I wasn\'t able to deliver your message to the following addresses.\nThis is a permanent error; I\'ve given up. Sorry it didn\'t work out.\n\n&lt;garombo@tiscali.it&gt;:\nConnected to 213.205.33.35 but sender was rejected.\nRemote host said: 550 mail not accepted from blacklisted IP address - see <!-- m --><a class=\"postlink\" href=\"http://assistenza.tiscali.it/supporto/sicurezza/abuse/\">http://assistenza.tiscali.it/supporto/sicurezza/abuse/</a><!-- m -->','',0,'AIA=','1fy2gdqn',1,0,'',2,0,0),(31790,2486,16,2,0,'87.218.146.3',1179227907,1,0,1,1,1,1,'','','estamos para ayudar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3js8ub2l',1,0,'',2,0,0),(31791,6942,6,264,0,'200.91.3.10',1179234973,1,0,1,1,1,1,'','','Mil gracias \nLo revisaré','',0,'AIA=','12w02f6n',1,0,'',264,0,0),(31792,6997,1,434,0,'207.35.2.80',1179236280,1,0,1,1,1,0,'','To Antonio... found problem with MsgLogo','Hello Antonio, \n\nI found the problem with MsgLogo... \n\nWhen you asked me for the size of the BMP file I started thinking...\n\nVery simply, I copied everything including the 2.8 version of Fivewin.ch into my compiling directory. I re-directed everything to my compiling directory,  tried it and it worked... \n\nSome other small problems have appeared so I will be busy fixing those. \n \nI thank you for the inspiration. \n\nBest Regards. \n\nGino Siviero\n\n<!-- e --><a href=\"mailto:GinoSiviero@kahnawake-edu.org\">GinoSiviero@kahnawake-edu.org</a><!-- e -->','',0,'AIA=','1bv5782e',1,0,'',434,0,0),(31793,6989,6,237,0,'190.12.99.34',1179237905,1,0,1,1,1,0,'','Jose Luis','He leido tus post y todos los que hay aqui publicados sobre este tema, siempre lo hago y la idea es simpre aprender de los que saben y antes de preguntar, ver si otro tuvo un problema similar y como lo pudo resolver.\n\nCarque la clase tsmtp modificada ( no recuerdo de quien era el autor ),  que descargue desde el link indicado en \"utilidades\" en este foro, la que está adaoptada para autenticacion de servidores... la clase me funciona perfectamente pero ocurre que debo variar el tiempo de Delay por que a veces me da error y los pdf que adjunto llegan partidos por la mitad y asi no me sirve, no se como solucionarlo, por que si amplio demasiado el tiempo de espera, me imagino que va a tardar 5 años en enviar 1000 mails.\nCon el Blat, funciona ok, las pruebas las hize con 3 mails distintos nada mas pero siempre llegan los mail y sus adjuntos, el aviso de respuestay todo.\n\nAhora voy a tratar de implementar el tema del control de cuantos mails van saliendo y cuantos se terminaron de enviar para darle un poco de aire a la pc por que me imagino que si largo 1000 de una vez, se revienta...\n\nMuchos saludos!\nAlejandro Cebolido\nBuenos Aires, Argentina.','',0,'AIA=','1mkd268g',1,0,'',237,0,0),(31794,6982,6,376,0,'201.230.41.76',1179238377,1,0,1,1,1,1,'','','Si. No utilizo ninguna librería fuera del FWH','',0,'AIA=','3gek5uo6',1,0,'',376,0,0),(31795,6815,6,1051,0,'201.27.29.207',1179238922,1,0,1,1,1,0,'','','a Question:\nDBRLOCK() only returns .T.?\n\nRegards','',0,'AIA=','zn83gotq',1,0,'',1051,0,0),(31796,6991,6,959,0,'201.58.51.167',1179239756,1,0,1,1,1,0,'','','Sr. Antonio\n\nComo corrigir el problema, não posso entregar a aplicação desta forma ?\n\nGracias.\n\nMário','',0,'AIA=','1azm5pup',1,0,'',959,0,0),(31797,6996,6,533,0,'80.32.177.143',1179241396,1,0,1,1,1,0,'','','Perfecto!! Gracias  Antonio  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1i1tf9cx',1,0,'',533,0,0),(31798,6998,6,1014,0,'201.240.200.41',1179241558,1,0,1,1,1,1,'','Help File','Hola Amigos\nCuando presione F1 para obtener ayuda en rutinas mi PRG me aparece el Msg NO HELP FILE AVAILABLE a pesar que he puesto\nSET KEY 28 To\nSET HELPFILE TO \"\"\nalguien tiene solución para esto ??\nGracias de antemano por la ayuda\nJorge Vargas','',0,'AIA=','2mguwfr1',1,0,'',1014,0,0),(31799,6989,6,92,0,'81.38.195.149',1179241666,1,0,1,1,1,0,'','Re: Jose Luis','[quote=&quot;TecniSoftware&quot;:2nvgiirc]\nAhora voy a tratar de implementar el tema del control de cuantos mails van saliendo y cuantos se terminaron de enviar para darle un poco de aire a la pc por que me imagino que si largo 1000 de una vez, se revienta...\n\nMuchos saludos!\nAlejandro Cebolido\nBuenos Aires, Argentina.[/quote:2nvgiirc]\n\nOtra idea que se me ocurre.\nVisto que la esencia de la clase TfFBlat es la ejecución de Blat mediante un fichero .Bat, creo que modificando la clase se podría conseguir que en el mismo fichero .Bat en vez de lanzar 1 sola vez a Blat.exe, lo hiciera \'x\' veces según convenga.\nDe esta manera no cargarías el PC hasta reventar y tendrías varios envíos (no todos a la vez sino tantos como ficheros .Bat) ejecutándose a la vez.\n\nLa cosa empezaría por que el método New() recibiera el nombre de un fichero .Bat (el del envío anterior aún no enviado) y a partir de ahí ver como lo debería gestionar la clase.\n\nSaludos\nCarlos G.','',0,'gA==','2nvgiirc',1,0,'',92,0,0),(31800,6989,6,75,0,'81.39.22.232',1179243181,1,0,1,1,1,0,'','','Yo lo que hago es:\n\n1º.- Desde mi programa y vía pdfcreator creo un fichero pdf para cada factura con nombre de fichero el de la factura.\n\n2º.- Después, desde mi programa, genero un fichero de procesamiento por lotes para usar en la línea de comados del propio Blat.EXE\n\n3º.- Para terminar y enviar los correos electrónicos, conecto con internet y arranco el proceso por lotes.\n\n4º.- Para confirmar que el Blat ha concluido me remito un mail con un resumen de los correos remitidos.\n\nDe esta forma no bloqueo mi programa y es el Blat el que se encarga de todo.\n\nSaludos.','',0,'gA==','1etm81ri',1,0,'',75,0,0),(31801,6905,6,308,0,'84.148.53.97',1179243266,1,0,1,1,1,0,'','Re: el Tgantt esta disponible','Arturo, \n\nI am also interessted in your class, could you please send it to [url]nk@alphasoft.de[/url]. \n\nmany thanks \n\nkind regards \nNorbert','',0,'EA==','3em7xw0o',1,0,'',308,0,0),(31802,6991,6,959,0,'201.58.51.167',1179245533,1,0,1,1,1,0,'','','Alguém poderia me ajudar com este problema, o projeto está pronto para\nentrega, dependendo apenas deste bug.\n\nGracias.\n\nMário','',0,'EA==','1sid88pe',1,0,'',959,0,0),(31803,6999,6,305,0,'201.230.149.201',1179248519,1,0,1,1,1,0,'','Nueva TdosPrn con Preview (tRichedit)','Estimados amigos del foro: \n\nPara los interesados (como yo) en seguir usando la clase TdosPrn modificada por Ednaldo Rolim que nos da la opcion de previsualizar los reportes he hecho una modificacion para que el Preview lo haga usando la clase Richedit (FWH 2.7 en adelante).  Con esto se elimina un problema que habia en 32 bits que hacia desaparecer el reporte cuando se desplazaba hacia la derecha.\n\nSi alguien quiere ayudar a mejorar esta clase es bienvenido (el metodo TxtToRTF() esta todavia incompleto).  Por ahora solo reconoce 2 tamaños de fuentes el modo \"normal\" y \"comprimido\" (que para mi es suficiente), pero no puedo mezclar (aun) distintos tamaños de font en la misma linea.\n\nSe puede hacer zoom con doble click o con el boton en la barra superior.\n\nPueden descargar los fuentes y un ejemplo desde <!-- w --><a class=\"postlink\" href=\"http://www.solupymes.com/fwin/testprev.zip\">www.solupymes.com/fwin/testprev.zip</a><!-- w -->\n\nSaludos \n\nRalph del Castillo','',0,'EA==','3f6rhwut',1,0,'',305,0,0),(31804,6997,1,2,0,'87.218.146.3',1179248748,1,0,1,1,1,1,'','','Gino,\n\nGlad to know you solved it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','qbh7m8wz',1,0,'',2,0,0),(31805,6991,6,2,0,'87.218.146.3',1179248924,1,0,1,1,1,1,'','','Mario,\n\nLa clase TActiveX usa pintado a doble buffer. Podrías probar a quitarle el pintado a doble buffer y ver si así se soluciona el problema.\n\nLa forma de quitar el doble buffer, es eliminar estas líneas:\n\n// METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0\n\n// METHOD EraseBkGnd( hDC ) INLINE 1','',0,'EA==','31tmix5m',1,0,'',2,0,0),(31806,7000,7,400,0,'200.205.49.10',1179249779,1,0,1,1,1,1,'','Sql Server e Palm OS...p/ Antonio','Boas Antonio.....\n\nGostaria de saber.....se é possivel ou tem algum projeto p/ o FWPPC rodar no Sistema Paml OS e usar com BD o Sql Server CE ???\n\nSaludos','',0,'EA==','1v5aixn6',1,0,'',400,0,0),(31807,6991,6,959,0,'201.58.51.167',1179251780,1,0,1,1,1,0,'','','Antonio,\n\nUtilizo xHB Comercial e tenho linkado com C:\\xHB\\lib\\ActiveX.lib se lo \nsaco, acontece el seguinte erro :\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_OLEGETPROPERTY\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_OLESETPROPERTY\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_OLEINVOKE\'.\nxLINK: error: Unresolved external symbol \'??2@YAPAXI@Z\'.\nxLINK: error: Unresolved external symbol \'??3@YAXPAX@Z\'.\nxLINK: fatal error: 5 unresolved external(s).\n\n\nSe coloco ACTIVEX.PRG de Fivewin dentro do projeto acontece el seguinte erro :\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_ACTXGETPROPERTY\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_ACTXSETPROPERTY\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_ACTXSTRING\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_ACTXINVOKE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_ACTXEVENTS\'.\nxLINK: error: Unresolved external symbol \'??2@YAPAXI@Z\'.\nxLINK: error: Unresolved external symbol \'??3@YAXPAX@Z\'.\nxLINK: fatal error: 7 unresolved external(s).\n\nParece que está havendo algum conflito em ACTIVEX de fivewin com ACTIVEX de xHB Comercial.\n\nPoderia verificar por favor,\n\nGracias.\n\nMário','',0,'EA==','25vghc5l',1,0,'',959,0,0),(31808,7000,7,2,0,'87.218.146.3',1179253000,1,0,1,1,1,1,'','','Alessandro,\n\nFWPPC usa Windows Mobile','',0,'EA==','9nciqnow',1,0,'',2,0,0),(31809,6991,6,2,0,'87.218.146.3',1179254323,1,0,1,1,1,1,'','','Mario,\n\nQue versión de FWH estás usando ?','',0,'EA==','38thi6cp',1,0,'',2,0,0),(31810,6998,6,180,0,'83.45.248.226',1179255242,1,0,1,1,1,0,'','Re: Help File','Hola Jorge:\n\nPrueba así:\n\nSetKey(VK_F1, {|nKey| WinHelp(\"Ayuda.Hlp\")})\n\nUn saludo,\nManuel\n\n[quote=&quot;jvargas&quot;:oqlavhuc]Hola Amigos\nCuando presione F1 para obtener ayuda en rutinas mi PRG me aparece el Msg NO HELP FILE AVAILABLE a pesar que he puesto\nSET KEY 28 To\nSET HELPFILE TO \"\"\nalguien tiene solución para esto ??\nGracias de antemano por la ayuda\nJorge Vargas[/quote:oqlavhuc]','',0,'gA==','oqlavhuc',1,0,'',180,0,0),(31811,7001,3,98,0,'70.71.111.92',1179259485,1,0,1,1,1,1,'','Outlook 2003 and TOleAuto... need some tips','I need to do the following actions with Outlook 2003\n\n1) When in the Composing a message window in Outlook, is there a way to intercept the To, CC, BBC buttons so that I can show the user a list of emails to pick from our own app instead of having Outlook show the address book?\n\n2) From within a FWH app, is there a way to obtain Outlooks address book to allow a user to pick email addresses? (sort of the opposite of item 1).\n\nAny useful links that have samples using Outlooks VBA coding?\n\nRegards,\n\nLuis Krause','',0,'gA==','g5z2eqfr',1,0,'',98,0,0),(31812,7002,3,27,0,'62.174.195.220',1179259490,1,0,1,1,1,1,'','Problems compiling after upgrading to latest FWH ver 2006','I get this error : Unable to open file \'DBFFTP.LIB\'\n\nAfter upgrading my old LNK file for  FWH 2006\n\nThe file is in the defined directory no other files give warnings. \n Directorio de c:\\harb2006\\lib\n\n27/06/2006  13:30            66.560 codepage.lib\n27/06/2006  13:30            66.560 common.lib\n28/06/2006  09:24           126.464 dbfcdx.lib\n28/06/2006  09:24            34.304 dbffpt.lib\n28/06/2006  09:24            51.712 dbfntx.lib\nEtc.\n\n\nMAKE FILE\n\n##############################################################################\n# Template make file for FWH and Borland Make tool                           #\n# Copyright FiveTech 2002                                                    #\n# Written by Ignacio Ortiz de Zuñiga                                         #\n# Use: testmake.bat &lt;your_make_file&gt;                                            #\n##############################################################################\n\n# Win2000 bug ################################################################\n# Uncomment next line if you receive any DEL error ###########################\n# set DEL=cmd /c del\n\n!if !$d(DEL)\n   DEL = del\n!endif\n\n# Make directives ############################################################\n\n.autodepend\n.swap\n.suffixes: .prg .hrb\n\n# Flags for modules to include: YES | NO (must be UPPERCASE)##################\n\nRES_FILE      = YES\nLNK_DBFNTX    = YES\nLNK_DBFFPT    = YES\nLNK_DBFCDX    = NO\nLNK_DEBUG     = NO\nLNK_ADVANTAGE = NO\nLNK_ODBC      = NO\nMAP_FILE      = NO\n\n# Application directories &amp; filenames ########################################\n\nAPP_NAME         = ..\\SCANWIN  # (Your EXE name without extension)\nAPP_PRG_DIR      = .\nAPP_OBJ_DIR      = obj  # (create the app\\obj directory first)\nAPP_INCLUDE_DIR  = .\nAPP_EXE_DIR      = $(APP_PRG_DIR)\nAPP_RES_DIR      = $(APP_PRG_DIR)\n\nAPP_EXE  = $(APP_EXE_DIR)\\$(APP_NAME).exe\nAPP_RC   = $(APP_RES_DIR)\\$(APP_NAME).rc\nAPP_RES  = $(APP_RES_DIR)\\$(APP_NAME).res\nAPP_MAP  = $(APP_RES_DIR)\\$(APP_NAME).map\n\n# Paths for dependent files ##################################################\n\n.path.prg = $(APP_PRG_DIR)\n.path.hrb = $(APP_OBJ_DIR)\n.path.obj = $(APP_OBJ_DIR)\n\n# Application PRG files (your PRG files go here) #############################\n\nAPP_PRG_LIST = \\\n   SCANWIN.OBJ \\\n   SCANWIN1.OBJ\\\n   ERRSYSW.OBJ\n\n# Contruction of the rest dependency lists ###################################\n\nAPP_PRGS = $(APP_PRG_LIST)\nAPP_HRBS = $(APP_PRG_LIST:.prg=.hrb)\nAPP_OBJS = $(APP_PRG_LIST:.prg=.obj)\n\n# Fivewin directories ########################################################\n\nFIVEWIN_INCLUDE_DIR = c:\\FW24\\include\nFIVEWIN_LIB_DIR     = c:\\FW24\\lib\n\n# Fivewin libraries ##########################################################\n\nFIVE_LIB  = C:\\FWH\\LIB\\fiveH.lib\nFIVEC_LIB = C:\\FWH\\LIB\\fiveHC.lib\n\n# Harbour directories &amp; flags ################################################\n\nHARBOUR_INCLUDE_DIR = c:\\harb2006\\include\nHARBOUR_EXE_DIR     = c:\\harb2006\\bin\nHARBOUR_LIB_DIR     = c:\\harb2006\\lib\nHARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -m -w -es2 -gc0\nHARBOUR_EXE         = $(HARBOUR_EXE_DIR)\\harbour.exe\n\n# Harbour libraries ##########################################################\n\nRTL_LIB    = $(HARBOUR_LIB_DIR)\\rtl.lib\nVM_LIB     = $(HARBOUR_LIB_DIR)\\vm.lib\nGTWIN_LIB  = $(HARBOUR_LIB_DIR)\\gtgui.lib\nLANG_LIB   = $(HARBOUR_LIB_DIR)\\lang.lib\nMACRO_LIB  = $(HARBOUR_LIB_DIR)\\macro.lib\nRDD_LIB    = $(HARBOUR_LIB_DIR)\\rdd.lib\nDBFNTX_LIB = $(HARBOUR_LIB_DIR)\\dbfntx.lib\nDBFCDX_LIB = $(HARBOUR_LIB_DIR)\\dbfcdx.lib\nDBFFTP_LIB = $(HARBOUR_LIB_DIR)\\dbfftp.lib\nDEBUG_LIB  = $(HARBOUR_LIB_DIR)\\debug.lib\nCOMMON_LIB = $(HARBOUR_LIB_DIR)\\common.lib\nPP_LIB     = $(HARBOUR_LIB_DIR)\\pp.lib\n\n# Advantage libraries ########################################################\n\nRDDADS_LIB = $(HARBOUR_LIB_DIR)\\rddads.lib\nACE32_LIB  = $(FIVEWIN_LIB_DIR)\\ace32.lib\n\n# Borlanc directories &amp; flags ################################################\n\nBORLANDC_INCLUDE_DIR = c:\\borland\\bcc55\\include\nBORLANDC_EXE_DIR     = c:\\borland\\bcc55\\bin\nBORLANDC_LIB_DIR     = c:\\borland\\bcc55\\lib\nBORLANDC_COMP_FLAGS  = -c -O2 -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)\nBORLANDC_COMP_EXE    = $(BORLANDC_EXE_DIR)\\bcc32.exe\nBORLANDC_LINK_FLAGS  = -Gn -aa -Tpe -s -I$(APP_OBJ_DIR)\nBORLANDC_LINK_FDEBUG = -Gn -Tpe -s -I$(APP_OBJ_DIR)\nBORLANDC_LINK_EXE    = $(BORLANDC_EXE_DIR)\\ilink32.exe\nBORLANDC_RES_EXE     = $(BORLANDC_EXE_DIR)\\brc32.exe\n\n!if $(MAP_FILE) != YES\n   BORLANDC_LINK_FLAGS = $(BORLANDC_LINK_FLAGS) -x\n!endif\n\n# Borland libraries &amp; files ##################################################\n\nSTARTUP_OBJ  = $(BORLANDC_LIB_DIR)\\c0w32.obj\nCW32_LIB     = $(BORLANDC_LIB_DIR)\\cw32.lib\nIMPORT32_LIB = $(BORLANDC_LIB_DIR)\\import32.lib\nODBC32_LIB   = $(BORLANDC_LIB_DIR)\\psdk\\odbc32.lib\n\n# Dependencies ###############################################################\n\nall: $(APP_OBJS) $(APP_HRBS) $(APP_EXE)\n\n!if $(RES_FILE) == YES\nall: $(APP_RES)\n!endif\n\n# Implicit Rules #############################################################\n\n.prg.hrb:\n   $(HARBOUR_EXE) $(HARBOUR_FLAGS) $** -o$@\n\n.hrb.obj:\n   $(BORLANDC_COMP_EXE) $(BORLANDC_COMP_FLAGS) -o$@ $**\n\n# Explicit Rules #############################################################\n\n!if $(RES_FILE) == YES\n$(APP_RES) : $(APP_RC)\n   $(BORLANDC_RES_EXE) -r $**\n\n$(APP_EXE) :: $(APP_RES)\n   @if exist $(APP_EXE) $(DEL) $(APP_EXE) &gt; nul\n!endif\n\n$(APP_EXE) :: $(APP_OBJS)\n!if $(LNK_DEBUG) == YES\n   $(BORLANDC_LINK_EXE) $(BORLANDC_LINK_FDEBUG) @&amp;&amp;|\n!else\n   $(BORLANDC_LINK_EXE) $(BORLANDC_LINK_FLAGS) @&amp;&amp;|\n!endif\n   $(STARTUP_OBJ) +\n   $(**), +\n   $(APP_EXE), +\n   $(APP_MAP), +\n   $(FIVE_LIB) +\n   $(FIVEC_LIB) +\n   $(RTL_LIB) +\n   $(VM_LIB) +\n   $(GTWIN_LIB) +\n   $(LANG_LIB) +\n   $(MACRO_LIB) +\n   $(RDD_LIB) +\n!if $(LNK_DBFFPT) == YES\n   $(DBFFTP_LIB) +\n!endif\n!if $(LNK_DBFNTX) == YES\n   $(DBFNTX_LIB) +\n!endif\n!if $(LNK_DBFCDX) == YES\n   $(DBFCDX_LIB) +\n!endif\n!if $(LNK_DEBUG) == YES\n   $(DEBUG_LIB) +\n!endif\n   $(COMMON_LIB) +\n   $(PP_LIB) +\n!if $(LNK_ADVANTAGE) == YES\n   $(RDDADS_LIB) +\n   $(ACE32_LIB) +\n!endif\n!if $(LNK_ODBC) == YES\n   $(ODBC32_LIB) +\n!endif\n   $(CW32_LIB) +\n   $(IMPORT32_LIB), +\n!if $(RES_FILE) == YES\n   ,$(APP_RES)\n!endif\n|\n   @$(DEL) $(APP_EXE_DIR)\\$(APP_NAME).tds','',0,'gA==','10cyofd4',1,0,'',27,0,0),(31813,7003,6,98,0,'70.71.111.92',1179259772,1,0,1,1,1,1,'','Outlook 2003, TOleAuto... solicito información','Requiero hacer lo siguiente con Outlook 2003\n\n1) Dentro de la ventana en Outlook desde donde compones un mensaje,\n¿hay forma de interceptar la acción que ejecutan los botones TO, CC, BCC para mostra una lista con correos electrónicos que extraigo desde mi programa en lugar la libreta de direcciones que muestra Outlook?\n\n2) Desde un programa en FWH, ¿hay forma de obtener la libreta de direcciones de Outllok para permitir a los usuarios seleccionar uno o \nmás correos electrónicos? (algo así como lo opuesto del anterior párrafo).\n\n\nLigas a sitios que muestren el uso de Outlook y VBA también será muy apreciado.\n\nSaludos,\n\nLuis Krause','',0,'gA==','1qyunhq0',1,0,'',98,0,0),(31814,6989,6,838,0,'80.59.225.15',1179260111,1,0,1,1,1,0,'','','Entiendo que en ese proceso por lotes haces una llamada a blat para cada dirección con su correspondiente adjunto.\nHaces la llamada al proceso por lotes con waitrun() desde el programa?, o mediante un bat.\nUtilizando la clase a la que aludimos, genera un blat.txt con los siguientes parametros[code:3iz6k0ay]  cBLAT &#58;= &quot;BLAT BLAT&#46;TXT &quot;    +;                           //Mensaje\n           AllTrim&#40;&#58;&#58;cPara&#41;    +;                           //Para &#40;lista de 1 a n destinatarios&#41;\n           &quot; -s &quot;+Chr&#40;34&#41;+AllTrim&#40;&#58;&#58;cAsunto&#41;+Chr&#40;34&#41;+;      //Asunto\n           &quot; -r &quot;+Chr&#40;34&#41;+AllTrim&#40;&#58;&#58;cDe&#41;+Chr&#40;34&#41;+;          //Solicitar aviso\n           IF&#40;Len&#40;&#58;&#58;cAttach&#41;&gt;0,&quot; &quot;+AllTrim&#40;&#58;&#58;cAttach&#41;,&quot;&quot;&#41;+; //De 0 a n adjuntos al mensaje\n           IF&#40;&#58;&#58;lSeguro,;\n             &quot; -u &quot;+AllTrim&#40;&#58;&#58;cUsuario&#41;+&quot; -pw &quot;+AllTrim&#40;&#58;&#58;cClave&#41;,;\n             &quot;&quot;&#41;+;                 //Solo para server seguro\n	   &quot; -log &quot;+Chr&#40;34&#41;+&quot;Enviados&#46;log&quot;\n[/code:3iz6k0ay]\ny luego hace la llamada[code:3iz6k0ay]WaitRun&#40;cBLAT,0&#41; [/code:3iz6k0ay]\n\nPodrías poner un ejemplo del archivo que generas para 4 o 5 envíos?\nY abusando un poquito podrías indicarme como conectas para realizar dicho envio?\n\nGracias y Saludos\n\nJose Luis','',0,'AIA=','3iz6k0ay',1,0,'',838,0,0),(31815,7000,7,400,0,'200.205.49.10',1179260726,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:223uo7xc]Alessandro,\n\nFWPPC usa Windows Mobile[/quote:223uo7xc]\n\nSí Antonio, mas.......\n\n¿Usted tiene algún proyecto para FwPPC trabajar con PalmOS?\n\n¿Y SQL Server CE es posible usar con FwPPC?\n\nSaludos','',0,'gA==','223uo7xc',1,0,'',400,0,0),(31816,6991,6,959,0,'201.58.51.167',1179261169,1,0,1,1,1,0,'','','FWH 2.6','',0,'gA==','5zfyxr22',1,0,'',959,0,0),(31817,7003,6,177,0,'82.130.230.113',1179261452,1,0,1,1,1,0,'','','Hola Luis,\n\npuedes visitar:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.outlookcode.com/Default.aspx\">http://www.outlookcode.com/Default.aspx</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=a1cead80-23e2-456f-8618-4da50cc2c38c&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/thankyou.aspx?familyId=a1cead80-23e2-456f-8618-4da50cc2c38c&amp;displayLang=en\">http://www.microsoft.com/downloads/than ... layLang=en</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/aa209967(office.11\">http://msdn2.microsoft.com/en-us/librar ... (office.11</a><!-- m -->).aspx\n\nSaludos,\n\nFelix','',0,'gA==','1zuzxnm1',1,0,'',177,0,0),(31818,7000,7,2,0,'87.218.146.3',1179263387,1,0,1,1,1,1,'','','Alessandro,\n\n&gt; ¿Usted tiene algún proyecto para FwPPC trabajar con PalmOS? \n\nNo, de momento.\n\n&gt; ¿Y SQL Server CE es posible usar con FwPPC? \n\nSí, debería poder usarse. No lo hemos probado, pero FWPPC ya soporta ActiveX.','',0,'gA==','29iyawz0',1,0,'',2,0,0),(31819,6991,6,2,0,'87.218.146.3',1179263523,1,0,1,1,1,1,'','','Mario,\n\nQue versión de xHB comercial usas ?','',0,'gA==','34qr6fs8',1,0,'',2,0,0),(31820,7002,3,2,0,'87.218.146.3',1179264056,1,0,1,1,1,1,'','','Paul,\n\nYou have a small typo:\n\nUnable to open file \'DBF[color=red:1j0m46u1]FTP[/color:1j0m46u1].LIB\' \n\nThe right name is: DBFFPT.lib','',0,'Ag==','1j0m46u1',1,0,'',2,0,0),(31821,7001,3,6,0,'79.3.217.18',1179264321,1,0,1,1,1,1,'','Re: Outlook 2003 and TOleAuto... need some tips','For the 2):\n\n[code:fvms4rvz]#define olFolderContacts 10\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n    LOCAL oNameSpace &#58;= oOutlook&#58;GetNameSpace&#40;&quot;MAPI&quot;&#41;\n    LOCAL oContacts &#58;= oNameSpace&#58;GetDefaultFolder&#40; olFolderContacts &#41;\n\n    LOCAL i\n\n    SET DATE BRITISH\n\n    FOR i = 1 TO oContacts&#58;Items&#58;Count\n        ? oContacts&#58;Items&#91; i &#93;&#58;FullName\n        ? oContacts&#58;Items&#91; i &#93;&#58;BusinessAddressStreet\n        ? oContacts&#58;Items&#91; i &#93;&#58;BusinessAddressPostalCode\n        ? oContacts&#58;Items&#91; i &#93;&#58;BusinessAddressCity\n        ? oContacts&#58;Items&#91; i &#93;&#58;BusinessAddressState\n        ? oContacts&#58;Items&#91; i &#93;&#58;BusinessAddressCountry\n        ? oContacts&#58;Items&#91; i &#93;&#58;BusinessTelephoneNumber\n        ? oContacts&#58;Items&#91; i &#93;&#58;Email1Address\n        ? oContacts&#58;Items&#91; i &#93;&#58;LastModificationTime\n        ?\n        ? oContacts&#58;Items&#91; i &#93;&#58;Categories\n        ?\n    NEXT\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:fvms4rvz]\n\nEMG','',0,'AIA=','fvms4rvz',1,0,'',6,0,0),(31822,6991,6,959,0,'201.58.51.167',1179265264,1,0,1,1,1,0,'','','xHarbour 0.99.51 Simplex ( Comercial )','',0,'AIA=','23yjqvc7',1,0,'',959,0,0),(31823,6991,6,2,0,'87.218.146.3',1179266096,1,0,1,1,1,1,'','','Mario,\n\nPor favor enlaza este OBJ en tu aplicación:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/31521032/xhb.obj.html\">http://rapidshare.com/files/31521032/xhb.obj.html</a><!-- m -->','',0,'AIA=','3vgkahas',1,0,'',2,0,0),(31824,6991,6,959,0,'201.58.51.167',1179267042,1,0,1,1,1,0,'','','Enlace el .obj e não solucionou el problema.\n\n  Tentei enlaçar xhb.obj + activex.prg e ocorre os mesmos erros arriba.\n\n  Notei que ocorre principalmente al Minimizar e Maximizar el window que   \n  contén el activex.\n\n  Gracias\n\n  Mário','',0,'AIA=','3ub5hltv',1,0,'',959,0,0),(31825,6999,6,100,0,'201.16.38.10',1179267340,1,0,1,1,1,1,'','','Ola amigo\n\nMuito boa a sua contribuição\n\nFuncionou muito BACANA MESMO','',0,'AIA=','3dpdan1d',1,0,'',100,0,0),(31826,6687,6,436,0,'190.31.83.153',1179268278,1,0,1,1,1,0,'','','Hola, nuevamente por este tema.\nSigo teniendo problemas para armar un listado en las terminales.\nLa sugerencia de Willy ya la verifiqué y la impresora está perfectamente definida y \"predeterminada\".\nNo se por donde buscar el problema, el sistema se sale solo antes de ir a la pantalla de selección de la impresora (oPrint:Setup()).\nPor favor si a alguno se le ocurre algo....','',0,'AIA=','1r7qmawx',1,0,'',436,0,0),(31827,6991,6,2,0,'87.218.146.3',1179268291,1,0,1,1,1,1,'','','Mario,\n\nCon ese OBJ deberían desaparecer estos errores:\nxLINK: error: Unresolved external symbol \'??2@YAPAXI@Z\'. \nxLINK: error: Unresolved external symbol \'??3@YAXPAX@Z\'.\n\nDe todas formas, la versión actual de FWH 7.04 es compatible con xHB, pero no podemos solucionarlo para la versión 2.6 (ya que hay cambios en el pcode y en la estructura interna de xharbour)','',0,'AIA=','dvlm5j25',1,0,'',2,0,0),(31828,6859,3,492,0,'189.147.32.187',1179268492,1,0,1,1,1,1,'','','Charles, Antonio :\n\nThanks, it works great !!!\n\nIt is possible doing something like this ?\n\n\n[img:t6ymmydq]http&#58;//img339&#46;imageshack&#46;us/img339/9012/mfolderax1&#46;jpg[/img:t6ymmydq]\n\n\nIt looks nice, right ? !!\n\n\nSaludos','',0,'CA==','t6ymmydq',1,0,'',492,0,0),(31829,6991,6,959,0,'201.58.51.167',1179268736,1,0,1,1,1,0,'','','Vou atualizar para FWH 7.04 e ver se el problema desaparece.\n\nGracias,\n\nMário','',0,'CA==','3jen33aw',1,0,'',959,0,0),(31830,6991,6,959,0,'201.58.51.167',1179269114,1,0,1,1,1,0,'','','Antonio,\n\nAcabo de efetuar a compra, se puderes enviar com urgência, ficarei grato.\n\nMário','',0,'CA==','c0dv48r9',1,0,'',959,0,0),(31831,6991,6,2,0,'87.218.146.3',1179270402,1,0,1,1,1,1,'','','Mario,\n\nTe hemos enviado un email,','',0,'CA==','335bu10f',1,0,'',2,0,0),(31832,7004,6,793,0,'201.225.210.59',1179273152,1,0,1,1,1,0,'','Errores Al compilar  con adordd.lib','Hola amigos del foro\n\nLe agradezco si me ayudan a resolver los siguientes errores\n\nunresolved external _hb_itemGetSymbol referenced usrrdd.lib\nunresolved external _hb_xvmpoplogical  referenced usrrdd.lib\nunresolved external _hb_xvmpushlocalbyref  referenced usrrdd.lib\n\n\nSaludos \n\nerick almanza \n<!-- e --><a href=\"mailto:dicoms@gmail.com\">dicoms@gmail.com</a><!-- e -->','',0,'CA==','2hfa9bfv',1,0,'',793,0,0),(31833,7004,6,940,0,'189.157.69.129',1179275798,1,0,1,1,1,1,'','','compilas con  HB o Xhb?\n\n\nsi es con xharbour necesitas recompilar el PRG.\n\n\nSaludos.','',0,'CA==','6xvycobt',1,0,'',940,0,0),(31834,7004,6,644,0,'200.82.86.254',1179277926,1,0,1,1,1,0,'','','a mi me sucede lo mismo y se me ocurre que puede ser la falta de alguna librería. He compilado adordd.prg y las lib\'s usrdd.lib y hboleaut.lib. incluso e buscado el fuente en .C y compilado con gran cantidad de errores. Alguna sugerencia. Muchas gracias por su atención','',0,'CA==','29wmed2w',1,0,'',644,0,0),(31835,6814,3,160,0,'59.95.211.2',1179295715,1,0,1,1,1,0,'','','Dear All,\n\nI am quite excited about the possibility of Using Access and MySql in my program. I have always resisted using the same as I needed to alter my programming style and it also required some other program to be installed on client machine. Hence now I can comfortable go ahead with using Access in my program.\n\nI will highly appreciate, if somebody can show me, how can I ?\n- Create a Table (in a Database)\n- Open the Table\n- Index the Table\n- Seek a particularly Value\n- Set the filter\n\nAny sample for the same will be highly appreciated.\n\nTIA\n\nMilan.','',0,'CA==','37giqcms',1,0,'',160,0,0),(31836,6989,6,75,0,'83.57.89.132',1179295767,1,0,1,1,1,0,'','','[color=blue:ys9hgcar]El envío lo hago externo al programa después de haber generado el fichero de proceso por lotes.\nLo puedes hacer metiendo un acceso directo en el escritorio que se corresponda con el fichero.bat que generes.\nEste es un ejemplo real(salvo por los datos de los clientes, mails y passwords inventados) fichero.bat de envío a través del BLAT.\nTe he marcado de rojo tres líneas de comandos que son las mínimas que debes poner. Todo esto lo puedes deducir de la documentación que viene con BLAT.\n\nSaludos y espero que te sea de ayuda.[/color:ys9hgcar]\n\n\nREM   LOTE DE FACTURAS POR MAIL DEL 31-03-07\nREM   Centro de Trabajo ES:009      \nREM   ---------------------------------------------------------\nREM     CONFIGURACION DE BLAT.EXE (<!-- w --><a class=\"postlink\" href=\"http://www.blat.net\">www.blat.net</a><!-- w -->)\n[color=darkred:ys9hgcar]C:\\GESTION\\BLAT -install smtp.correo.yahoo.es <!-- e --><a href=\"mailto:facturacion124@yahoo.es\">facturacion124@yahoo.es</a><!-- e -->[/color:ys9hgcar]REM   ---------------------------------------------------------\nREM CLIENTE 10052 - Nombre de cliente           \n[color=darkred:ys9hgcar]C:\\GESTION\\BLAT -to <!-- e --><a href=\"mailto:cgarcia@prueba.com\">cgarcia@prueba.com</a><!-- e --> -subject \"Factura    15-  -09 DEL 31-03-07\" -body \"Les adjuntamos la Factura    15-  -09 DEL 31-03-07. Reciban un cordial saludo.\" -u \"facturacion124\" -pw \"ejemplo\" -attach FR15ES09D20070331.pdf[/color:ys9hgcar]REM  CLIENTE 10053 - Nombre de cliente \nC:\\GESTION\\BLAT -to <!-- e --><a href=\"mailto:cgarcia@prueba.com\">cgarcia@prueba.com</a><!-- e --> -subject \"Factura    16-  -09 DEL 31-03-07\" -body \"Les adjuntamos la Factura    16-  -09 DEL 31-03-07. Reciban un cordial saludo.\" -u \"facturacion124\" -pw \"ejemplo\" -attach FR16ES09D20070331.pdf\nREM  CLIENTE 10952 - Nombre de cliente \nC:\\GESTION\\BLAT -to <!-- e --><a href=\"mailto:isidro@prueba.es\">isidro@prueba.es</a><!-- e --> -subject \"Factura    17-  -09 DEL 31-03-07\" -body \"Les adjuntamos la Factura    17-  -09 DEL 31-03-07. Reciban un cordial saludo.\" -u \"facturacion124\" -pw \"ejemplo\" -attach FR17ES09D20070331.pdf\nREM  CLIENTE 11052 - Nombre de cliente \nC:\\GESTION\\BLAT -to <!-- e --><a href=\"mailto:administracion@prueba.com\">administracion@prueba.com</a><!-- e --> -subject \"Factura    18-  -09 DEL 31-03-07\" -body \"Les adjuntamos la Factura    18-  -09 DEL 31-03-07. Reciban un cordial saludo.\" -u \"facturacion124\" -pw \"ejemplo\" -attach FR18ES09D20070331.pdf\nREM   ---------------------------------------------------------\n[color=darkred:ys9hgcar]C:\\GESTION\\BLAT -to <!-- e --><a href=\"mailto:facturacion124@yahoo.es\">facturacion124@yahoo.es</a><!-- e --> -subject \"Justificante envio Remesa Facturas del 20070331 - Numero de Facturas      4\" -body \"Justificante envio Remesa Facturas del 20070331 - Numero de Facturas      4\" -u \"facturacion124\" -pw \"ejemplo\"[/color:ys9hgcar]','',0,'Ag==','ys9hgcar',1,0,'',75,0,0),(31837,6814,3,6,0,'87.1.198.54',1179297593,1,0,1,1,1,1,'','','[quote=&quot;Milan Mehta&quot;:9xykw6xd]Dear All,\n\nI am quite excited about the possibility of Using Access and MySql in my program. I have always resisted using the same as I needed to alter my programming style and it also required some other program to be installed on client machine.[/quote:9xykw6xd]\n\nPlease note that ADORDD uses ADO and therefore nothing changes on the side of the required components.\n\nEMG','',0,'gA==','9xykw6xd',1,0,'',6,0,0),(31838,7004,6,2,0,'87.218.146.3',1179298624,1,0,1,1,1,1,'','','En unos dias vamos a publicar los nuevos builds de Harbour y xHarbour para Mayo, e incluyen todas las librerías ya construidas y probadas.','',0,'gA==','1crr2gfb',1,0,'',2,0,0),(31839,6814,3,2,0,'87.218.146.3',1179298839,1,0,1,1,1,1,'','','Milan,\n\n&gt;\nI will highly appreciate, if somebody can show me, how can I ? \n- Create a Table (in a Database) \n&gt;\n\nDbCreate(), please review the provided samples with ADORDD\n\n&gt; - Open the Table \n\nUSE ... please review ADORDD.ch\n\n&gt; - Index the Table \n\nINDEX ON ... TO ...\n\n&gt; - Seek a particularly Value \n\nSEEK ...\n\n&gt; - Set the filter \n\nSET FILTER TO ...\n\nADORDD is used as another Harbour RDD, using the Clipper language syntax <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3bkwcgel',1,0,'',2,0,0),(31840,6992,6,2,0,'87.218.146.3',1179299223,1,0,1,1,1,1,'','','Por favor revisa samples\\TestGrp.prg y TestGrp2.prg','',0,'gA==','12j2q0rt',1,0,'',2,0,0),(31841,6961,3,159,0,'210.243.203.20',1179308949,1,0,1,1,1,0,'','','If you want sqlitec.c, you can e-mail for me, I\'ll send source code for you!!\nssbbs_at_mail_zzz_com_tw\nchange _at_ to @\nchange _zzz to .zzz ...','',0,'gA==','152v4dk2',1,0,'',159,0,0),(31842,6961,3,24,0,'80.24.12.168',1179311768,1,0,1,1,1,1,'','','[quote=&quot;ssbbs&quot;:thkkdggy]If you want sqlitec.c, you can e-mail for me, I\'ll send source code for you!!\nssbbs_at_mail_zzz_com_tw\nchange _at_ to @\nchange _zzz to .zzz ...[/quote:thkkdggy]\n\nThank you, I´ll e-mail you.\nPlease, you send me 100% code source.\n\nRegards.','',0,'gA==','thkkdggy',1,0,'',24,0,0),(31843,6999,6,694,0,'200.189.112.21',1179315549,1,0,1,1,1,1,'','','gracias!','',0,'gA==','3p5cl60c',1,0,'',694,0,0),(31844,6989,6,838,0,'80.34.222.112',1179316564,1,0,1,1,1,0,'','','Gracias Verhoven\n\nHe construido de nuevo todo para hacerlo por proceso externo como lo haces tu.\n\nEn las pruebas que he hecho con unos cuantos va bien, así que éste mes, cuando genere las facturas las enviaré de ésta manera.\n\nPudiera ser que la causa de que algunos destinatarios no recibieran el adjunto fuera que se colapsara el envio mediante la clase tfblat. Quizá desde la línea de comandos no ocurra ésto.\n\nGracias y saludos\n\nJose Luis','',0,'gA==','x4647993',1,0,'',838,0,0),(31845,6815,6,1051,0,'201.43.202.96',1179317012,1,0,1,1,1,0,'','','the adordd in xharbour CVS is the some project?','',0,'gA==','d456mkeo',1,0,'',1051,0,0),(31847,6814,3,439,0,'200.125.45.95',1179318480,1,0,1,1,1,1,'','','Antonio,\n\nDoes ADORDD work with Postgre SQL?\n\nIs there any difference in sintax?','',0,'gA==','1o0t14s1',1,0,'',439,0,0),(31848,6815,6,105,0,'200.72.140.34',1179318911,1,0,1,1,1,1,'','','Fernando y/o Antonio\n\nEstoy inicando las pruebas con Mysql 5 y tengo lo siguiente:\n\nPoseo el nombre de usuario y clave del root\nMysql corriendo localmente ( en 127.0.0.1 localhost )\n\nQuisiera poder \n1.- Conectarme al Servidor Mysql\n2.- Crear una Base de datos\n3.- Crear las tablas \n\nCualquier ayuda bienvenida sera... y si me funciona mi \"invento\" lo compartire con UDS.\n\nDesde Chile\nAdolfo','',0,'gA==','2diafeyt',1,0,'',105,0,0),(31849,6815,6,439,0,'200.125.45.95',1179319180,1,0,1,1,1,1,'','','La versión que obtenemos aquí sirven tanto para Harbour como para xHarbour, verdad?\n\nFunciona con PostgreSQL?','',0,'gA==','2l5qu16r',1,0,'',439,0,0),(31850,6815,6,2,0,'87.218.146.3',1179319298,1,0,1,1,1,1,'','','Adolfo,\n\nPara comenzar es preferible que crees la base de datos con una utilidad como el Navicat. Luego prueba el ejemplo mysql1.prg que proporcionamos con ADORDD','',0,'gA==','28lzj1xe',1,0,'',2,0,0),(31851,6815,6,2,0,'87.218.146.3',1179319427,1,0,1,1,1,1,'','','José,\n\n&gt;\nLa versión que obtenemos aquí sirven tanto para Harbour como para xHarbour, verdad? \n&gt;\n\nSi <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; Funciona con PostgreSQL?\n\nSólo tienes que modificar adordd.prg para añadirle la cadena de conexión de PostgreSQL y modificar adordd.ch y añadirle POSTGRESQL como un tipo nuevo de base de datos a usar.\n\nLas cadenas de conexión más comunes estan en <!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->','',0,'gA==','2bx1j65k',1,0,'',2,0,0),(31852,6814,3,2,0,'87.218.146.3',1179319567,1,0,1,1,1,1,'','','José,\n\nWe have already answered you at the spanish forum <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','x7xf2oox',1,0,'',2,0,0),(31853,6999,6,300,0,'201.88.17.114',1179323843,1,0,1,1,1,0,'','','Gracias Ralph\nNo se puede imprimir en una impressora de rede? sem usar NET use?','',0,'gA==','1q2d1u3h',1,0,'',300,0,0),(31854,7005,6,131,0,'194.179.55.36',1179324050,1,0,1,1,1,0,'','cabeceras de browses con temas','Hola:\n¿ Es posible que las cabeceras de browses aparezcan con los temas de XP ? Yo uso una versión de XBrowse de OZS y no lo hace, desconozco si con FWH hay algún browse que lo soporte.\nSaludos,','',0,'gA==','3448wvot',1,0,'',131,0,0),(31855,6815,6,105,0,'200.72.140.34',1179324411,1,0,1,1,1,1,'','','Antonio... \n\nEstoy usando una Base de datos ya creada en Mysql 5.\n\nPERO No es posible crear las tablas con DBCREATE()\n\nSi hago lo Siguiente...\n\nServidor Local en (127.0.0.1 LocalHost)\nBase de datos mibase\n\nDbCreate( \"mibase;tablanueva\",{ { \"campo1\",\"C\",10,0} },\"ADORDD\")\n\nPrimero no veo donde poner el nombre de usuario, password, nombre del servidor para la conexion.\n\nSegundo al ejecutarlo obtengo este error\n\nError ADORDD/1004 Create Error ( Operation Not Suported) : mibase;tablanueva\n\nError at ....: ADO_CREATE(159)\n\nSegun yo entiendo, debo primero tener una conexion al server MYSQL antes de crear tablas, eso no sale en ningun ejemplo.\n\nDesde Chile\nAdolfo','',0,'gA==','7hinqhl5',1,0,'',105,0,0),(31856,7006,6,300,0,'201.88.17.114',1179325137,1,0,1,1,1,0,'','duvida con radio','me salta erro com oRadio1:SetFocus()\n\nSalu2','',0,'gA==','12cxyktk',1,0,'',300,0,0),(31857,7007,3,27,0,'212.145.65.52',1179326229,1,0,1,1,1,1,'','FUNCTION FILE() STOPED WORING AFTER UPGRADING HARBOUR 2006','I have just upgraded a program from Harbour2005 to Harbour 2006\nThe following function has stoped working properly.\n\nIF !FILE(\'albaran\') //directory albaran doese not exist\n   IF LMKDIR( \'albaran\' )\n   ELSE\n      msgstop(\'No se ha podido crear la siguiente carpeta: ALBARAN\',\'ERROR:\')\n   ENDIF\nENDIF\n\nAlthough the directory exists my latest harbour compilations do not detect the directory FILE(\'albaran\') RETURNS .F.','',0,'gA==','259bjnn6',1,0,'',27,0,0),(31858,6815,6,105,0,'200.72.140.34',1179328937,1,0,1,1,1,1,'','','Mis disculpas.. ya encontre la forma de indicar el User,Server,pass etc.\n\nPERO..\nSi utilizo  la siguiente Sintaxis.. ocurre el mismo error...\n\nDbCreate( \"mibase; mitabla; MYSQL; 127.0.0.1; root; mipass\",;\n                 { { \"campo1\", \"C\", 10, 0 } }, \"ADORDD\" )\n\nError ADORDD/1004 Create Error ( Operation Not Supported ): mibase;mitabla;MYSQL;127.0.0.1;root;mipass\n\nError at ...: ADO_CREATE(159)\n\n\nDesde Chile\n\nAdolfo','',0,'gA==','t7vz1srj',1,0,'',105,0,0),(31859,6989,6,92,0,'81.38.197.225',1179329315,1,0,1,1,1,0,'','','[quote=&quot;JoseLuis&quot;:2i839h88]Gracias Verhoven\n\nHe construido de nuevo todo para hacerlo por proceso externo como lo haces tu.\n\nEn las pruebas que he hecho con unos cuantos va bien, así que éste mes, cuando genere las facturas las enviaré de ésta manera.\n\nPudiera ser que la causa de que algunos destinatarios no recibieran el adjunto fuera que se colapsara el envio mediante la clase tfblat. Quizá desde la línea de comandos no ocurra ésto.\n\nGracias y saludos\n\nJose Luis[/quote:2i839h88]\n\nEn el comentario inicial de la clase escribí:\n\"   Inconvenientes:\n   - Si se desea enviar una batería de emails sería conveniente (pero no obligatorio)\n     realizar un Inkey(1) entre mensajes para evitar que los nombres de los ficheros\n     coincidan.\"\n\nEllo es debido a que en el Metodo Init(), los nombres de los ficheros se generan a partir de:\n::PathWork() + DToS( Date() ) + StrTran( Time(), \":\" )\n\nSe me ocurre que en la clase se podría definir una variable STATIC nContador (por ejemplo) que seria utilizada en el Metodo Init() de la siguiente manera:\n::PathWork() + DToS( Date() ) + StrTran( Time(), \":\" ) + AllTrim(Str(++nContador, 10, 0))\nevitando así la duplicidad de los nombres de los ficheros.\n\nSaludos\nCarlos G.','',0,'gA==','2i839h88',1,0,'',92,0,0),(31860,6961,3,303,0,'72.199.41.171',1179329558,1,0,1,1,1,0,'','','ssbbs,\n\nCan I get a copy of SQLITEC.C also? Is this a mofication of Alejandro Garate\'s work for the new version of SQLite, or a completely new program?\n\nJames','',0,'gA==','3tv3vwkq',1,0,'',303,0,0),(31861,7006,6,92,0,'81.38.197.225',1179329587,1,0,1,1,1,0,'','Re: duvida con radio','[quote=&quot;Wanderson&quot;:35ebdqi4]me salta erro com oRadio1:SetFocus()\n\nSalu2[/quote:35ebdqi4]\n\nPrueba con:\n\noRadio1:aItems[1]:SetFocus()\noRadio1:aItems[2]:SetFocus()\noRadio1:aItems[...n]:SetFocus()\n\nSaludos\nCarlos G.','',0,'gA==','35ebdqi4',1,0,'',92,0,0),(31862,7008,6,959,0,'201.58.51.167',1179332459,1,0,1,1,1,0,'','Error ao atualizar para FWH 7.04','Antonio, \n\nVeja,\n\nxLINK: error: Unresolved external symbol \'_hb_dynsymSymbol\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REGETZOOM\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REINSERTPICTURE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REPAGEBREAK\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REPASTESPECIAL\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETOLEINIT\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETOLEUNINIT\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETOLECALLBACK\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REGETOLEINTERFACE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETZOOM\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN___CLSCNTCLASSES\'.\nxLINK: error: Unresolved external symbol \'_hb_vmPushEvalSym\'.\nxLINK: error: Unresolved external symbol \'_hb_objHasMessage\'.\nxLINK: fatal error: 13 unresolved external(s).\n\nGracias,\n\nMário','',0,'gA==','18pxe0tc',1,0,'',959,0,0),(31863,7001,3,98,0,'70.71.111.92',1179333183,1,0,1,1,1,1,'','Re: Outlook 2003 and TOleAuto... need some tips','Enrico:\n\nExcellent.. that gives me some other ideas.\nAny clues for no 1)?\n\n[quote=&quot;EnricoMaria&quot;:1x79mvkk]For the 2):\n\nEMG[/quote:1x79mvkk]\n\n\nRegards,\n\nLuis Krause','',0,'gA==','1x79mvkk',1,0,'',98,0,0),(31864,7003,6,98,0,'70.71.111.92',1179333614,1,0,1,1,1,1,'','','Felix:\n\nGracias por las ligas.\nLa documentación de VBA ya la tenía... es tan solo que es algo\nconfusa por lo que estoy buscando otras referencias que no sean\nde MS.\n\n[quote=&quot;Baxajaun&quot;:uw8lpnnc]Hola Luis,\n\npuedes visitar:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.outlookcode.com/Default.aspx\">http://www.outlookcode.com/Default.aspx</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=a1cead80-23e2-456f-8618-4da50cc2c38c&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/thankyou.aspx?familyId=a1cead80-23e2-456f-8618-4da50cc2c38c&amp;displayLang=en\">http://www.microsoft.com/downloads/than ... layLang=en</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/aa209967(office.11\">http://msdn2.microsoft.com/en-us/librar ... (office.11</a><!-- m -->).aspx\n\nSaludos,\n\nFelix[/quote:uw8lpnnc]\n\n\nSaludos,\n\nLuis Krause','',0,'gA==','uw8lpnnc',1,0,'',98,0,0),(31865,7001,3,6,0,'87.10.2.60',1179335009,1,0,1,1,1,1,'','Re: Outlook 2003 and TOleAuto... need some tips','No, sorry. You may search for OLE event handler.\n\nEMG','',0,'gA==','avleov73',1,0,'',6,0,0),(31866,7009,20,924,0,'81.208.36.89',1179335548,1,0,1,1,1,0,'','come verificare se JRE (java) e\' installato','Salve, un amico mi ha dato una utility esterna scritta in Java x la gestione delle immagini, mi occorrerebbe sapere (prima di lanciare il .jar del java) se java e\' stato installato sul PC.\nSapete come posso fare ?\n\nGrazie','',0,'gA==','ne1mzeki',1,0,'',924,0,0),(31867,7007,3,2,0,'87.218.146.3',1179335779,1,0,1,1,1,1,'','','Paul,\n\nYou may use this function from FWH:\n\nfunction lIsDir( cDirName )   // Checks an existing directory\n\nreturn Len( Directory( cDirName, \"D\" ) ) == 1','',0,'gA==','1z50dttk',1,0,'',2,0,0),(31868,6815,6,2,0,'87.218.146.3',1179336146,1,0,1,1,1,1,'','','Adolfo,\n\nSi revisas el error.log verás que DbCreate() crea un objeto conexión de ADO y ejecuta una sentencia CREATE TABLE ... \n\nTienes permisos para crear tablas en tu instalación de MySQL ?','',0,'gA==','vs5g7mj5',1,0,'',2,0,0),(31869,7008,6,2,0,'87.218.146.3',1179336523,1,0,1,1,1,1,'','','Mario,\n\nPlease add this function to your PRG:\n[code:2tfx0fyv]\n#pragma BEGINDUMP\n\n#define _HB_API_INTERNAL_\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapiitm&#46;h&gt;\n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41;\n&#123;\n   return pDynSym-&gt;pSymbol;\n&#125;\n\n#pragma ENDDUMP\n[/code:2tfx0fyv]','',0,'AIA=','2tfx0fyv',1,0,'',2,0,0),(31870,7008,6,2,0,'87.218.146.3',1179336732,1,0,1,1,1,1,'','','[code:2xfpac2j]\n#pragma BEGINDUMP\n\n#define _HB_API_INTERNAL_\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapiitm&#46;h&gt;\n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41;\n&#123;\n   return pDynSym-&gt;pSymbol;\n&#125;\n\nextern HB_SYMB  hb_symEval;\n\nvoid hb_vmPushEvalSym&#40; void &#41;\n&#123;\n   hb_vmPushSymbol&#40; &amp;hb_symEval &#41;;\n&#125;\n\nBOOL hb_objHasMessage&#40; PHB_ITEM pObject, PHB_DYNS pMessage &#41;\n&#123;\n   BOOL bSymbol = FALSE;\n\n   PHB_FUNC pFunc = hb_objGetMthd&#40; pObject, pMessage-&gt;pSymbol, FALSE, NULL, FALSE, &amp;bSymbol &#41;;\n\n   if&#40; bSymbol &#41;\n   &#123;\n      return &#40;&#40;PHB_SYMB&#41; pFunc&#41;-&gt;value&#46;pFunPtr != NULL;\n   &#125;\n   else\n   &#123;\n      return pFunc != NULL;\n   &#125;\n&#125;\n\n#pragma ENDDUMP\n[/code:2xfpac2j]','',0,'AIA=','2xfpac2j',1,0,'',2,0,0),(31871,7008,6,2,0,'87.218.146.3',1179336937,1,0,1,1,1,1,'','','Mario,\n\nYou need an upgraded xHB for __CLSCNTCLASSES()','',0,'AIA=','2vppmibu',1,0,'',2,0,0),(31872,7005,6,2,0,'87.218.146.3',1179337115,1,0,1,1,1,1,'','','Jose Luis,\n\nLa clase TWBrowse de FWH dibuja la cabecera usando temas, aunque no es un control header real. \n\nEn breve esperamos disponer de una versión de TXBrowse que use un control header real con temas.','',0,'AIA=','1papxun7',1,0,'',2,0,0),(31873,7008,6,959,0,'201.58.51.167',1179337386,1,0,1,1,1,0,'','','E estas funções onde achar ?\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_REGETZOOM\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REINSERTPICTURE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REPAGEBREAK\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REPASTESPECIAL\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETOLEINIT\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETOLEUNINIT\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETOLECALLBACK\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_REGETOLEINTERFACE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESETZOOM\'. \n\nNão teria outra solucion para __CLSCNTCLASSES() ? Não estou podendo comprar um atualização agora.\n\nGracias\n\nMário','',0,'AIA=','pn0grlop',1,0,'',959,0,0),(31874,7008,6,2,0,'87.218.146.3',1179337836,1,0,1,1,1,1,'','','Mario,\n\nTry this one:\n\nUSHORT hb_clsMaxClasses( void );\n\nHB_FUNC( __CLSCNTCLASSES )\n{\n   hb_retnl( hb_clsMaxClasses() );\n}\n\nAre you using Class TRichEdit ?','',0,'AIA=','31qe9urz',1,0,'',2,0,0),(31875,7008,6,959,0,'201.58.51.167',1179338723,1,0,1,1,1,0,'','','Antonio,\n\nColoquei minha [trichedi.prg] para compilar junto com o projeto e não acusa os erros.\n\nMas agora a aplicação não se arranca mais :\n\n[img:3tcku9hq]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem6&#46;JPG[/img:3tcku9hq]','',0,'CA==','3tcku9hq',1,0,'',959,0,0),(31876,7008,6,2,0,'87.218.146.3',1179338792,1,0,1,1,1,1,'','','Mario,\n\nPrueba samples\\tutor01.prg y samples\\tutor02.prg','',0,'CA==','150941b5',1,0,'',2,0,0),(31877,7008,6,959,0,'201.58.51.167',1179339294,1,0,1,1,1,0,'','','Não me arranca :\n\n\n\n[img:1x3mqynf]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem7&#46;JPG[/img:1x3mqynf]','',0,'CA==','1x3mqynf',1,0,'',959,0,0),(31878,7008,6,2,0,'87.218.146.3',1179339431,1,0,1,1,1,1,'','','Mario,\n\nEntonces vas a tener que usar el build de xHarbour que proporcionamos con FWH, usando Borland ó Microsoft. \n\nTu versión de xHB no es compatible con el pcode más reciente','',0,'CA==','tchzwyws',1,0,'',2,0,0),(31879,6926,7,57,0,'80.58.205.34',1179339543,1,0,1,1,1,1,'','','Antonio\nSi.     CONTROL    \"Tab1\",500,\"SysTabControl32\",TCS_BOTTOM,1,78,116,16','',0,'CA==','2wza46kl',1,0,'',57,0,0),(31880,6815,6,1051,0,'201.43.10.31',1179339630,1,0,1,1,1,0,'','','donde estas o harbour cvs?\ncual el link para usar en TortoiseCVS?','',0,'CA==','qerakq4k',1,0,'',1051,0,0),(31881,6926,7,2,0,'87.218.146.3',1179339858,1,0,1,1,1,1,'','','Toni,\n\nHas probado a combinar el estilo TCS_BOTTOM con otros TCS_... ?','',0,'CA==','2ndat48a',1,0,'',2,0,0),(31882,6815,6,2,0,'87.218.146.3',1179339918,1,0,1,1,1,1,'','','cvs -z3 -d:pserver:anonymous@harbour-project.cvs.sourceforge.net:/cvsroot/harbour-project co harbour &gt; checkout.txt','',0,'CA==','2552jzk4',1,0,'',2,0,0),(31883,6815,6,1051,0,'201.43.10.31',1179340740,1,0,1,1,1,0,'','','i download harbour from cvs\nbut the adordd.prg is very old 13/05/2007\n\ni download from xharbour\nand i have modifications','',0,'CA==','1nulk0iu',1,0,'',1051,0,0),(31884,7010,7,832,0,'201.116.83.242',1179341778,1,0,1,1,1,0,'','AYUDA URGENTE!!! PARA SOLUCIONA UN GET','HOLA A TODOS....\n\n\nDE NUEVO MOLESTANDO......\n\nTENGO UN PROBLE DE UN GET... ESTOY LEYENDO UN CODIGO DE BARRAS DESDE ESCANER. Y QUIERO QUE CUANDO TERMINAR LA LECTURA DE ESTE ME MANDE A OTRO EVENTO...  Y ESTO LO ESTOY HACIENDO PORQUE SE SUPONE QUE LA LECTURA LA HECE EL CODIGO+UN ENTER, ENTONCES LO QUIERO ACER ASI PERO NO FUNCIONA...\n\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n      @ 35,20 GET nCodigo VAR mensa PIXEL SIZE 80,10\n      oDlg:bKeyDown = { | nKey,nFlags | KeyChar(nKey,nFlags)}\n\n\n\n FUNCTION KeyChar(nKey,nFlags)\n   local nColPos := 0, nColInit:= 0, nColGet := 0\n   IF nKey == 13//K_ENTER                                       // ENTER\n    // LO QUE DECEO HACER....\n   ENDIF\nRETURN NIL\n\n\n\nPERO ESTO FUNCIONA PARA CUALQUIER TECLA MENOS PARA EL ENTER....\n\n\nALGUINE ME PODRIA AYUDAR....-\n\n\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'CA==','2g64z6vc',1,0,'',832,0,0),(31885,6999,6,305,0,'201.230.149.201',1179342010,1,0,1,1,1,0,'','','Yo imprimo sin problemas en impresoras en red, sin hacer NET USE\n\nLa impresion es en modo grafico, por lo que no hay limitacion en la impresion.  \n\nRalph','',0,'CA==','2f6w8l6i',1,0,'',305,0,0),(31886,6815,6,2,0,'87.218.146.3',1179342151,1,0,1,1,1,1,'','','Athayde,\n\nToday is 16/05, do you think 13/05 is very old ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','1nl3513w',1,0,'',2,0,0),(31887,7010,7,2,0,'87.218.146.3',1179342348,1,0,1,1,1,1,'','','Prueba con bKeyChar en vez de bKeyDown,\n\nde todas formas, el código debiera ser:\n\n@ 35,20 GET oCodigo VAR mensa PIXEL SIZE 80,10 \n\noCodigo:bKeyDown = { | nKey,nFlags | KeyChar(nKey,nFlags)} \n\nó cambiando bKeyDown por bKeyChar','',0,'CA==','2zl79rwz',1,0,'',2,0,0),(31888,6815,6,1051,0,'189.18.98.177',1179343677,1,0,1,1,1,0,'','','i\'m blind lol','',0,'CA==','1ad4q399',1,0,'',1051,0,0),(31889,7011,3,177,0,'82.130.231.243',1179344495,1,0,1,1,1,0,'','Oracle XE connection string','Hi,\n\ndo you know Oracle XE connection string ?\n\nRegards,\n\nFelix','',0,'CA==','36r38k6v',1,0,'',177,0,0),(31890,7010,7,832,0,'201.116.83.242',1179344582,1,0,1,1,1,0,'','OK','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nGRACIAS .....','',0,'CA==','1wmgb2r1',1,0,'',832,0,0),(31891,7012,6,177,0,'82.130.231.243',1179344585,1,0,1,1,1,0,'','Cadena de conexión para Oracle XE','Hola,\n\nconocéis la cadena de conexión de Oracle XE ?\n\nSaludos,\n\nFelix','',0,'CA==','3u0y39uu',1,0,'',177,0,0),(31892,7013,7,832,0,'201.116.83.242',1179345058,1,0,1,1,1,0,'','COMO LEER Y ESCRIBIR EN UN ARCHIVO DE TEXO','HOLA ATODOS...\n\nDE NUEVO MOLESTANDO....\n\n\nALGUINE ME PODRIA AYUDAR PARA LEER Y ESCRIBIR EN UN ARCHVIO DE TEXTO... LO PUEDO HACER LINEA A LINEA CON ALGUN SEPARADOR ENTREA DATOS DE LA LINEA...\n\nEPERO Y ME PUEDAN AYUDAR...\n\n\nGRACIAS...\n\n\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'CA==','3le3fgdi',1,0,'',832,0,0),(31893,7013,7,2,0,'87.218.146.3',1179345207,1,0,1,1,1,1,'','','[code:3ie1dpll]\nlocal cTexto &#58;= MemoRead&#40; CurDir&#40;&#41; + &quot;\\nombre&#46;txt&quot; &#41;\n\nfor n = 1 to MLCount&#40; cTexto &#41;\n   MsgInfo&#40; MemoLine&#40; cTexto, n &#41; &#41;\nnext\n\nMemoWrit&#40; CurDir&#40;&#41; + &quot;nombre&#46;txt&quot;, &quot;texto a guardar en el fichero&quot; &#41;\n[/code:3ie1dpll]','',0,'AIA=','3ie1dpll',1,0,'',2,0,0),(31894,7014,6,875,0,'64.76.108.179',1179348286,1,0,1,1,1,0,'','GIF ANIMADO','que control puedo usar para mostrar una imagen GIF  ANIMADO, algun ejemplo?\n\n\nSe Agradece por anticipado.\n\n\nJaime','',0,'AIA=','10bgddn2',1,0,'',875,0,0),(31895,7013,7,832,0,'201.116.83.242',1179348753,1,0,1,1,1,0,'','ok','oye antonio...\n\n\ntengo un problema.... el archivo no me muestra todo el contenido al leerlo solo me mueestra la primera lina y me la repite por el el numero de renglones...\n\n\n\naprovechando... PUEDO ESBRIBIR LINEA A LINEA ES DECIR PUEDO HABRIR EL ARCHIVO Y ESCRIBIR EN EL SI BORRAR EL CONTENIDO\n\n\n\nESPERO Y ME PUEDAS AYUDAR\n\n\n\nOK <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','3pvwz3me',1,0,'',832,0,0),(31896,7012,6,278,0,'164.77.105.87',1179350490,1,0,1,1,1,1,'','','Baxajaun\n\nPuedes buscarla aquí, el sitio es muy completo.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->\n\nSaludos,','',0,'AIA=','1mm4dunj',1,0,'',278,0,0),(31897,7012,6,177,0,'82.130.231.243',1179350951,1,0,1,1,1,0,'','','Juan,\n\nno está, ya he mirado en dicha dirección antes de poner el mensaje en el foro.\n\nSaludos,\n\nFelix','',0,'AIA=','25anweb7',1,0,'',177,0,0),(31898,7013,7,2,0,'87.218.146.2',1179351299,1,0,1,1,1,1,'','','Cambia esta línea así:\n\nMsgInfo( MemoLine( cTexto,, n ) )\n\nPara añadir líneas posteriormente, puedes usar:\n\nMemoWrit( CurDir() + \"\\nombre.txt\", MemoRead( CurDir() + \"\\nombre.txt\" ) + CRLF + \"Nueva linea\" )\n\nó usar las funciones típicas de Clipper: FOpen(), FWrite(), FSeek(), FClose(). Revisa la documentación de Clipper de como usar esas funciones.','',0,'AIA=','2ezgzddz',1,0,'',2,0,0),(31899,7001,3,303,0,'72.199.41.171',1179354275,1,0,1,1,1,0,'','','Luis,\n\n&gt;1) When in the Composing a message window in Outlook, is there a way to intercept the To, CC, BBC buttons so that I can show the user a list of emails to pick from our own app instead of having Outlook show the address book? \n\nYou could do the whole message (including To, CC, BCC ) with a FWH dialog then just send the message via MAPI. This would give you complete control.\n\nYou could provide a list of contacts either from your own FW database or from the Outlook address book via the code Enrico provided.\n\nJames','',0,'AIA=','20niyb7j',1,0,'',303,0,0),(31900,7015,6,898,0,'200.232.247.224',1179354866,1,0,1,1,1,0,'','Duvida refresh wbrowse','e ae pessoal!\n\nseguinte...\nSempre quando eu tenho uma tela aberta com um wbrowse, e por exemplo, minimizo ela, qdo eu volto, ele da um refresh em todas as linhas (como se estivesse recriando).... oque eu faço para isto não acontecer?\n\n\n[]s!!!','',0,'','33wk1yjd',1,0,'',898,0,0),(31901,7016,11,2,0,'87.218.146.2',1179357593,1,0,1,1,1,1,'','FiveLinux on RedHat Fedora Core 6','In order to run FiveLinux on Fedora Core 6, you need to install these packages: \n\nsudo yum install gtk2-devel\nsudo yum install libgnomeprintui22-devel','',0,'','3vpoxz4a',1,0,'',2,0,0),(31902,7016,11,2,0,'87.218.146.2',1179357867,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:39blwa02][img:39blwa02]http&#58;//img379&#46;imageshack&#46;us/img379/8909/redhatgo8&#46;png[/img:39blwa02][/url:39blwa02]','',0,'GA==','39blwa02',1,0,'',2,0,0),(31903,7017,12,2,0,'87.218.146.2',1179357975,1,0,1,1,1,1,'','FiveLinux en RedHat Fedora Core 6','Para ejecutar FiveLinux en Fedora Core 6, teneis que instalar estos paquetes: \n\nsudo yum install gtk2-devel\nsudo yum install libgnomeprintui22-devel','',0,'GA==','1g4kzvs6',1,0,'',2,0,0),(31904,7017,12,2,0,'87.218.146.2',1179357993,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2esl79jz][img:2esl79jz]http&#58;//img379&#46;imageshack&#46;us/img379/8909/redhatgo8&#46;png[/img:2esl79jz][/url:2esl79jz]','',0,'GA==','2esl79jz',1,0,'',2,0,0),(31905,7015,6,2,0,'87.218.146.2',1179358130,1,0,1,1,1,1,'','','Rodrigo,\n\nEl browse tiene que volver a pintarse, línea a línea. Es algo normal','',0,'GA==','rynjfyio',1,0,'',2,0,0),(31906,6998,6,1014,0,'201.240.65.34',1179358510,1,0,1,1,1,1,'','','Hola Manuel.\nMuchas gracias por tu respuesta. Hice según tu sugerencia y sigue dando el mismo msg, aunque he creado un archivo “Ayuda.hlp” con solo una linea en blanco.\nPero lo que en realidad quiero es que cuando presione F1 el sistema no busque ningun archivo de ayuda, solo que haga las rutinas programadas por mi.\nAlguna otra sugerencia ¿??\nGracias amigos\nJorge Vargas','',0,'GA==','3atxc95f',1,0,'',1014,0,0),(31907,6998,6,2,0,'87.218.146.2',1179359487,1,0,1,1,1,1,'','','Jorge,\n\nPrueba a definir estas funciones en tu PRG principal:\n\nfunction HelpIndex() ; return nil\nfunction HelpTopic() ; return nil\nfunction HelpPopup() ; return nil','',0,'GA==','m218cn57',1,0,'',2,0,0),(31908,7016,11,100,0,'201.16.38.10',1179359837,1,0,1,1,1,1,'','','Ola amigos\n\nAntonio tem algum progresso para futuras versões de FiveLinux ??','',0,'GA==','7atcv475',1,0,'',100,0,0),(31909,7016,11,2,0,'87.218.146.2',1179360424,1,0,1,1,1,1,'','','Jackson,\n\nNuestro deseo es que más usuarios comiencen a usar Linux, ya que por ahora hay muy pocos programadores de aplicaciones de gestión en Linux <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','1lcqgzbp',1,0,'',2,0,0),(31910,7018,6,935,0,'200.62.120.199',1179366521,1,0,1,1,1,0,'','nuevamente sobre el RDDADO','Amigos del Foro:\n\nAun persiste el problema que anteriormente habia comentado, este pequeño programa :\n\n//===========================\nstatic function browRST()\n//===========================\n\nPublic oDlg,oBrw\n\nUSE Personal1 VIA \"ADORDD\" TABLE \"MAESTRO\" MYSQL ;\n       FROM \"Localhost\" USER \"root\" PASSWORD \"1234\"  ALIAS \"MAESTRO\"\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS MAESTRO-&gt;NUMERO, ;\n                                           MAESTRO-&gt;nombreS, ;\n                                           MAESTRO-&gt;APELLIDO1 ;\n          HEADERS    \"Codigo\",\"Nombre \",\"Salario\" ;\n          FIELDSIZES 60,200,60 ;\n          SIZE 284, 137 OF oDlg\n\n   @154,08  BTNBMP LEFT PROMPT \" Agregar\"    SIZE 50,19 OF oDlg FILENAME \"NEW1.BMP\"       ACTION oDlg:End()\n   @154,67  BTNBMP LEFT PROMPT \" Modificar\"  SIZE 50,19 OF oDlg FILENAME \"CARDF00C.BMP\"   ACTION oDlg:End()\n   @154,125 BTNBMP LEFT PROMPT \" Borrar\"     SIZE 50,19 OF oDlg FILENAME \"BORRAR1.BMP\"    //ACTION BorraU(oLbx )\n   @154,184 BTNBMP LEFT PROMPT \" Buscar\"     SIZE 50,19 OF oDlg FILENAME \"FIND.BMP\"       //ACTION BuscaU(oLbx,3,\"Color\")\n   @154,242 BTNBMP LEFT PROMPT \" Salir\"      SIZE 50,19 OF oDlg FILENAME \"SALIR3.BMP\"     ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   CLOSE DATABASES\n\nRETURN NIL\n\nme envia el siguiente error :\n\npplication\n===========\n   Path and name: C:\\sistemas\\RRHH_32\\PERSONAL.exe (32 bits)\n   Size: 1,476,096 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 16/05/2007, 19:43:36\n   Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   MAESTRO\n     [   2] = O   Object\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from:  =&gt; ADO_OPEN(263)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from:  =&gt; BROWRST(346)\n   Called from: personal.prg =&gt; (b)CREAMENU(118)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: personal.prg =&gt; PRINCIPAL(75)\n\nSystem\n======\n   CPU type: Intel(R) Celeron(R) M processor         1.60GHz 1600 Mhz\n   Hardware memory: 447 megs\n\n   Free System resources: 90 %\n\nAntonio me sugirio revisar mis datos de conexion y estan correctos, uso Mysql 5.0, xharbour 0.99.71, adordd, borland++, a sugerencia de antonio compiler con el buildx que estoy utilizando el ejemplo de Mysql1 que proporcionan, y corre perfectamente conectandose con el servidor \"www.freesql.org\"\n\nAgradezco cualquier orientacion al respecto, estoy en stand by.\n\n\nGracias de antemano,\n\n\nRamon Paredes\nManagua Nicaragua','',0,'','118t5mas',1,0,'',935,0,0),(31911,6961,3,159,0,'210.243.203.20',1179366830,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1es234zb]ssbbs,\n\nCan I get a copy of SQLITEC.C also? Is this a mofication of Alejandro Garate\'s work for the new version of SQLite, or a completely new program?\n\nJames[/quote:1es234zb]\n\nOK! Please e-mail for me!!','',0,'gA==','1es234zb',1,0,'',159,0,0),(31912,7016,11,100,0,'201.16.38.10',1179370479,1,0,1,1,1,1,'','','Antonio\n\nIsto por que falta uma LIGUAGEM de desenvolvimento voltada para LINUX, garanto a você, que se tivermos um FIVELINUX em pleno andamento como o FIVEWIN, muitos como EU mesmo já estariamos desenvolvendo TAMBEM EM LINUX.\n\nPense nisso, coloque pra funcionar o FIVELINUX que garando que você não se arrependerá\n\nIsto é claro é opnião minha e de muitos que frequentam o forum, esperando um FIVELINUX mais maduro','',0,'gA==','1vknhs9r',1,0,'',100,0,0),(31913,7018,6,54,0,'189.132.89.198',1179371054,1,0,1,1,1,1,'','Re: nuevamente sobre el RDDADO','Ramon,\n\nEs preferible que los nombres DNS sean en minusculas (en el caso linux deben de ser exactamente como se escriben, respetando minus y mayus).\n\n[code:xj8zkpvb]USE Personal1 VIA &quot;ADORDD&quot; TABLE &quot;MAESTRO&quot; MYSQL ;\n       FROM &quot;localhost&quot; USER &quot;root&quot; PASSWORD &quot;1234&quot;  ALIAS &quot;MAESTRO&quot;\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79\n\n@ 1, 1 LISTBOX oBrw FIELDS MAESTRO-&gt;NUMERO, ;\n                                           MAESTRO-&gt;NOMBRES, ;\n                                           MAESTRO-&gt;APELLIDO1 ;\n          HEADERS    &quot;Codigo&quot;,&quot;Nombre &quot;,&quot;Salario&quot; ;\n          FIELDSIZES 60,200,60 ;\n          SIZE 284, 137 OF oDlg\n[/code:xj8zkpvb]\n\nEspero te sirva...','',0,'AIA=','xj8zkpvb',1,0,'',54,0,0),(31914,7016,11,2,0,'87.218.146.2',1179383994,1,0,1,1,1,1,'','','Jackson,\n\nHoy por hoy, Windows está en el 95% de los ordenadores','',0,'AIA=','1hsv74tg',1,0,'',2,0,0),(31915,6926,7,57,0,'80.58.205.34',1179386646,1,0,1,1,1,1,'','','Antonio \nHe probado con todo lo que está disponible en el VC++ 6.0.\n\nCONTROL         \"Tab2\",500,\"SysTabControl32\",TCS_BOTTOM | TCS_BUTTONS | TCS_FIXEDWIDTH | TCS_FOCUSNEVER | WS_BORDER | 0x8,0,82, 119,14\n\nSaludos','',0,'AIA=','2kn526ol',1,0,'',57,0,0),(31916,6926,7,2,0,'87.218.146.2',1179387225,1,0,1,1,1,1,'','','Toni,\n\nHas probado a comparar los estilos en tiempo de ejecución ?\n\nMsgInfo( GetWindowLong( oFolder:hWnd, GWL_STYLE ) )\nó\nMsgInfo( GetWindowLong( oFolder:hWnd, GWL_EXSTYLE ) )','',0,'AIA=','3n1vbkze',1,0,'',2,0,0),(31917,2486,16,2,0,'87.218.146.2',1179389701,1,0,1,1,1,1,'','','May 2007 / Mayo 2007\n\nHarbour for Borland C\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/31765799/harbour.EXE.html\">http://rapidshare.com/files/31765799/harbour.EXE.html</a><!-- m -->\n\nHarbour for Microsoft C\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/31770644/harbourm.EXE.html\">http://rapidshare.com/files/31770644/harbourm.EXE.html</a><!-- m -->\n\nxHarbour for Borland C\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/31766264/xharbour.EXE.html\">http://rapidshare.com/files/31766264/xharbour.EXE.html</a><!-- m -->','',0,'AIA=','3ciiiiax',1,0,'',2,0,0),(31918,6815,6,177,0,'194.30.62.6',1179390525,1,0,1,1,1,0,'','Tipos de datos ADORDD','Buenos días Fernando,\n\ncuando tienes previsto publicar nuevamente ADORDD con los tipos de datos que comentaste ayer ? Estoy utilizando ADORDD con Oracle 9i y estoy teniendo algún problema con los tipos de datos.\n\nMuchas gracias por vuestro trabajo y dedicación.\n\nSaludos,\n\nFélix','',0,'AIA=','2v68q8mh',1,0,'',177,0,0),(31920,6815,6,177,0,'194.30.62.6',1179393001,1,0,1,1,1,0,'','','Fernando,\n\ngracias a vosotros por crear esta pequeña maravilla. Espero esa actualización  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos,\n\nFélix','',0,'AIA=','1fanl4us',1,0,'',177,0,0),(31921,7011,3,266,0,'60.50.60.131',1179393265,1,0,1,1,1,1,'','','this might help  :\n\n<!-- m --><a class=\"postlink\" href=\"http://forums.oracle.com/forums/thread.jspa?messageID=1452027\">http://forums.oracle.com/forums/thread. ... ID=1452027</a><!-- m -->','',0,'AIA=','3qzs6r1p',1,0,'',266,0,0),(31922,7019,3,162,0,'80.121.83.20',1179395411,1,0,1,1,1,0,'','FWH and xHB RC 12','Hi Antonio,\nI just upgraded to FWH 7.04 -\nbut it doesn\'t work with latest xHB RC 12\ncan you please send me the compatible FWH libs.\n\n(for some unsolved Vista-problems I cannot switch back to older\nversions of xBH... when I try I get the massage \"couldn\'t build\"...)\nMany thanks,\nDietmar','',0,'AIA=','28nu8bi5',1,0,'',162,0,0),(31923,7020,16,2,0,'87.218.146.2',1179396507,1,0,1,1,1,1,'','New FTDN May/Mayo 2007','May 2007 build\n===========\n\n* Fix: Class TXBrowse METHOD GoRight()\n\n* Enhancement: Improved CLASS TXBrwColumn Method PaintData(): It does not overwrite the vertical scrollbar.\n\n* Fix: REDEFINE MENUITEM ... ACCELERATOR ... is properly setting and using the specified accelerators.\n\n* New: FWPPC, samples\\TestFldW.prg shows how to use a browse on a folder, loaded from resources.\n\n* Enhancement: Class TFolder support for multilines tabs if TCS_MULTILINE style is used at the resources.\n\n* Enhancement: Added DEFAULT oWnd := GetWndDefault() in Method Redefine of these classes: TActiveX, TBitmap, TBtnBmp, TComboBox, TFGet, TFolder, TGroup, TIcon, TIGroup, TListBox, TMeter, TRadio, TScrollBar, TSelector, TSlider, TSplitter, TRichEdit, TTabControl, \n  TVbxControl, TVideo, TTabs, TAnimate, THeader, TListView, TPages, TProgress.\n\n* Fix: Class TComboBox incremental search does not change the type of the related variable.\n\n* Fix: Class TXBrowse Method KeyDown() was evaluating bKeyDown twice. Now it is ok.\n\n* Enhancement: function SetDatePick() accepts a fifth parameter to allow\n  empty dates when using Class TDtPicker objects. Class TDTPicker Method SetDate( dDate, lEmpty ) accepts a second logical parameter to specify an empty date\n\n* Fix: Class TFolder Method LoadPages() is properly setting the width and height of the loaded pages, and the pages brush.\n\n* Enhancement: FWH, FWPPC, function lIsDir() source code has been changed to make it FWPPC compatible. There should be no differences in FWH lIsDir() behavior.\n\n* Enhancement: FWH rasapi.c was not properly compiling in 32 bits. Now it is ok.\n\n* Fix: FiveMac, samples\\osxpro.prg was using a wrong path for PNG files. Now it is ok.\n\n* Fix: Class TWBrowse Method KeyChar has been removed as it is no longer needed. Minor fix on Method pageUp(). Thanks  to Enrico!\n\n* Enhancements: Class TXBrowse improved Methods IsDisplayPosVisible(), GoRight() and GoUp(). Thanks to Rossine!\n\n* New: FWH, xHarbour Class TOleAuto has been ported to Harbour, so from now on you can also use it from Harbour too. FiveTech Harbour build already includes it. You have to link HBOleAut.lib\n\n* New: FWH, UEStudio setup file to build FWH projects. Please copy \n   FWPPC\\UEStudio\\Application to C:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\Harbour\\ from FWH\\UEStudio folder. You may review this video to learn how to use it:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->\n\n* New: FWPPC, UEStudio setup file to build FWPPC projects. Please copy \n   FWPPC\\UEStudio\\Application to C:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\FWPPC\\ from FWPPC\\UEStudio folder. You may review this video to learn how to use it:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->\n\n* Fix: Class TGet Method KeyChar() minor fix.\n\n* New: FWH sample BtnTrans.prg: Testing a transparent TBtnBmp on a transparent DialogBox\n\n* New: New sample managing the Excel ActiveX. Please review samples\\excel2.prg \n\n* New: FWPPC, ActiveX support! Please review samples\\media.prg\n\n* Enhancement: FWH is fully compatible with the most recent Harbour and xHarbour builds, including xHB\n\n* New: FWPPC, Harbour for Pocket PC build with enhanced support for\nUSE ... SHARE','',0,'AIA=','3t6cfn4j',1,0,'',2,0,0),(31924,7019,3,2,0,'87.218.146.2',1179396845,1,0,1,1,1,1,'','','Dietmar,\n\nToday we have published FWH 7.05. Please download it again,','',0,'AIA=','w5nvocvn',1,0,'',2,0,0),(31925,7021,6,2,0,'87.218.146.2',1179396943,1,0,1,1,1,1,'','Nuevo FWH 7.05','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7020\">http://fivetechsoft.com/forums/viewtopic.php?t=7020</a><!-- m -->','',0,'AIA=','1xw7lj0u',1,0,'',2,0,0),(31926,7022,3,2,0,'87.218.146.2',1179396973,1,0,1,1,1,1,'','New FWH 7.05','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7020\">http://fivetechsoft.com/forums/viewtopic.php?t=7020</a><!-- m -->','',0,'AIA=','sr8gs821',1,0,'',2,0,0),(31927,7011,3,177,0,'194.30.62.6',1179398376,1,0,1,1,1,0,'','','Hi Hoe,\n\nthanks !!! I\'ll try it.\n\nRegards,\n\nFelix','',0,'AIA=','2eav04fh',1,0,'',177,0,0),(31928,6815,6,177,0,'194.30.62.6',1179398441,1,0,1,1,1,0,'','','Fernando,\n\nmás que pruebas es una necesidad  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos,\n\nFélix','',0,'AIA=','1072xabp',1,0,'',177,0,0),(31929,7023,6,138,0,'80.37.11.90',1179399175,1,0,1,1,1,1,'','Requiem para un amigo','Hoy he estado con Bingen y me ha dado una noticia que me ha dejado frio....\n\nNuestro buen amigo Jesús Diéz (ETi) como le conociamos entre los colegas, falleció hace algunos meses víctima de un cáncer terminal de esófago.\n\nYo tuve el privilegio de tenerle en los cursos en Donosti por lo menos 2 veces y muchos de usedes han utilizado sus trabajos como la clase TBlat, modificaciones de la clase FTP de FiveWin, etc.\n\nUfff.... no saben como me ha pegado, porque además era una persona super sencilla, super tranquila, y un estupendo amigo.\n\nDesde aqui, y donde quiera que estés, querido amigo, te envio un recuerdo, y así es como quiero recordarte:\n\n[img:2zakoa46]http&#58;//www&#46;google&#46;d2g&#46;com/fotos/donosti2005/sidreria5&#46;jpg[/img:2zakoa46]','',0,'CA==','2zakoa46',1,0,'',138,0,0),(31930,7006,6,300,0,'200.163.102.151',1179403160,1,0,1,1,1,0,'','','Gracias funciono perfecto.','',0,'CA==','28xm4ba8',1,0,'',300,0,0),(31931,6480,6,294,0,'201.250.193.64',1179403834,1,0,1,1,1,1,'','','Marco:\nQue interesante la clase. Podrias mandarmela a mi tambien a \n<!-- e --><a href=\"mailto:sistemas_mercedes@speedy.com.ar\">sistemas_mercedes@speedy.com.ar</a><!-- e -->\nMuchas gracias y disculpa las molestias','',0,'CA==','2i6hjjwo',1,0,'',294,0,0),(31932,6480,6,316,0,'213.97.245.163',1179408061,1,0,0,1,1,0,'','','Marco,\n\nPodrías subir la clase a algun sitio tipo box.net, así quien la quiera se la puede descargar directamente y tu te ahorras el tener que enviarla tantas veces.\n\nSaludos.','',0,'CA==','151i5gp8',1,0,'',316,0,0),(31933,6998,6,1014,0,'201.240.200.68',1179409710,1,0,1,1,1,1,'','','Hola Antonio.\nMuchas Gracias. funcionó.\nJorge Vargas','',0,'CA==','ytx6m9aw',1,0,'',1014,0,0),(31934,7024,6,449,0,'212.64.224.241',1179411619,1,0,1,1,1,1,'','Proceso en marcha...','Hola,\n\nAlguien sabe la manera de ver si hay un proceso en marcha (Ctrl+Alt+Supr, pestaña Procesos) ?  No quiero buscar una ventana, sino un programa que se esta ejecutando. He buscado y solo he visto como matar procesos, pero no encontrado nada sobre como buscarlos.\n\n\nGracias.','',0,'CA==','1qg844tu',1,0,'',449,0,0),(31935,7023,6,940,0,'189.157.69.129',1179412360,1,0,1,1,1,1,'','','Gracias por todo, ETi,\n\nSaludos Rene F.\n\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  <!-- s:arrow: --><img src=\"{SMILIES_PATH}/icon_arrow.gif\" alt=\":arrow:\" title=\"Arrow\" /><!-- s:arrow: -->','',0,'CA==','2qzbvsrq',1,0,'',940,0,0),(31936,7025,3,103,0,'201.8.79.233',1179414816,1,0,1,1,1,1,'','Printer\'s resolution X TPrinter/TReport','Hi All,\n\n    Maybe this is an old issue, but sometimes I have problems with it. If I create a normal report using TReport for example, I can see there are different previews in different printers with different resolutions. Even when I use TPrinter with CmSay() I see differences with this printers (i.e. Deskjet with different resolutions and Laserjet printers). Facing this fact, I ask if there is a final solution for this, specially because I use CmSay() extensively, to have the same result in all printers with all resolutions.\n\nTIA\n\nBest Regards,','',0,'CA==','vnfu3c6s',1,0,'',103,0,0),(31937,6989,6,838,0,'80.59.225.15',1179416751,1,0,1,1,1,0,'','','Hola amigos\n\nHe dejado las dos opciones puestas en el menú de envio de ficheros, una mediante blat, y otra mediante tsmtp.\n\nExiste alguna diferencia apreciable entre enviar los ficheros por una via o por otra?, ya que las pruebas que realizo a los email de prueba no encuentro ninguna.\n\nSaludos\n\nJose Luis','',0,'CA==','hxc9oksc',1,0,'',838,0,0),(31938,7026,6,264,0,'200.91.3.10',1179417387,1,0,1,1,1,1,'','Refresco de Footer en xbrowse','Como se hace ?\n\nLo despliego... pero no puedo actualizar el dato.\n\nSaludos y gracias de antemano.','',0,'CA==','3w70nd67',1,0,'',264,0,0),(31939,7027,6,492,0,'189.147.32.187',1179417574,1,0,1,1,1,1,'','Problema con Tactivex en Vista','Hola Antonio :\n\nSucede esto, en mi Lap tengo instalado Vista hace un par de meses instale para probar una aplicacion mia y funciono OK, hace unos dias un cliente hizo lo mismo pero me comenta que le sale un error, acabo de instalar Vista en una PC para verificar y me pasa lo mismo.\n\nAl parecer es al momento de querer ejecutar un control ActiveX, por lo que use el regsrv32 para aplicarlo, pero sigue con lo mismo, ya cheque los privilegios tanto del usuario como de la unidad para que lo permita y nada.\n\n\n\n\nAlguna otra sugerencia ??\n\n\n[img:202ta1jt]http&#58;//img502&#46;imageshack&#46;us/img502/5605/errorvistayx6&#46;jpg[/img:202ta1jt]\n\n\n\nSaludos','',0,'CA==','202ta1jt',1,0,'',492,0,0),(31941,7027,6,492,0,'189.147.32.187',1179419369,1,0,1,1,1,1,'','','Hola Fernando\n\nGracias por tan pronta respuesta  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEstoy usando XHarbour y FWH 2.7 Abril \'06 y los controles : uno que me muestra un archivo .swf y otro que es para graficos RMChart.\n\nLo curioso, es que en la Lap funcionan correctamente ambos.\n\n\nSaludos','',0,'CA==','30wxfrhk',1,0,'',492,0,0),(31942,7015,6,898,0,'200.232.247.226',1179419654,1,0,1,1,1,0,'','','Antonio, mas não tem como desativar isto?\n\nMeu problema é o seguinte, cada refresh do wbrowse eu envio uma informacão para um servidor, e ele me responde alguns dados, o problema é que se a cada foco que der no wbrowse, e ele fizer o refresh na tela, ira ficar muito lento...\n\nVc tem alguma idéia?\n\n\n[]s!!','',0,'','1oa6zhev',1,0,'',898,0,0),(31943,7028,6,1023,0,'201.92.182.67',1179419732,1,0,1,1,1,0,'','Valores não aparecem no xBrowse','Estou tendo problemas com o xBrowse.\n Eu alimento as colunas manualmente, porem nos campos com valores de moeda e de datas as colunas ficam em branco, e abrindo o conteudo dessas colunas em gets comum os valores aparecem.\n\nTentei usar um picture no cEditPicture nas colunas e o problema perssistiu.\n\nAlguém já teve esse problema? Já chequei o meu código diversas vezes e não encontrei erros, e nem na compilação ou uso é detectado erro.\n\nExiste alguma propriedade que deve ser mudada para os campos desse tipo?\n\nEu uso SQLRDD para conectar no banco de dados.\n\n\nUm abraço a todos, obrigado.\n\nUm exemplo do código\n\n[code:2pq167ge]#include &quot;FiveWin&#46;ch&quot;\n\nfunction main&#40;&#41;\nlocal oWnd, oBrw, oCol1, oCol2\n\n   use aMesa\n   DEFINE WINDOW oWnd FROM 1,1 to 500,500 PIXEL TITLE &quot;Teste&quot;\n      oBrw &#58;= TXbrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n      \n      wfname   &#58;= &quot;aMesa-&gt;mesa&quot;\n      oCol1                 &#58;= TXBrwColumn&#40;&#41;&#58;New&#40; oBrw &#41;\n      oCol1&#58;bStrData        &#58;= &#123;|| &amp;wfname &#125;\n      \n      wfname   &#58;= &quot;aMesa-&gt;sub_tot&quot;\n      oCol2                 &#58;= TXBrwColumn&#40;&#41;&#58;New&#40; oBrw &#41;\n      oCol2&#58;bStrData        &#58;= &#123;|| &amp;wfname &#125;\n      \n      oBrw&#58;CreateFromCode&#40;&#41;\n   ACTIVATE WINDOW oWnd NORMAL\nreturn[/code:2pq167ge]','',0,'AIA=','2pq167ge',1,0,'',1023,0,0),(31944,7028,6,1023,0,'201.92.182.67',1179420129,1,0,1,1,1,0,'','','Esqueci de comentar no código, o mesa é caracter e funciona\ne o sub_tot é numerico, com picture \"@ 999,999.99\" e é um dos que não aparece no browse','',0,'AIA=','2b8s6lwk',1,0,'',1023,0,0),(31945,6970,6,661,0,'189.155.23.223',1179420824,1,0,1,1,1,0,'','','<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  gracias antonio pero lamentablemente sigue sin terminarse el proceso  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','od61o4xs',1,0,'',661,0,0),(31946,7026,6,110,0,'148.168.40.4',1179420852,1,0,1,1,1,1,'','','Recuerdo que tuve ese inconveniente con esa, clase lo que habia que hacer es pintar nuevamente el dato. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->, lo que yo tenia era un proc que solo hacia el pintado del footer, por ello en cada cambio que ocurria, como eliminar o agregar una fila o editarla, llamaba a ese proc.\n\n\nsalu2\ncarlos vargas','',0,'AIA=','ym9bo7sv',1,0,'',110,0,0),(31947,7029,6,103,0,'201.8.79.233',1179421278,1,0,1,1,1,1,'','Resoluciones de las impresoras X TReport/TPrinter','Hola foro,\n\n    De vez en cuando me deparo con este problema: Mis reportes hechos con TReport o TPrinter (con este ultimo usando CmSay) cuando usados en impresoras con diferentes resoluciones me muestra resultados diferentes en el preview. Entonces pregunto: ¿No hay manera de hacer todos los reportes o con TReport o con TPrinter y que tengan el mismo resultado en cualquier impresora con resolucion diferente? ¿Cuales son sus experiencias en este tema?\n\nSaludos,','',0,'AIA=','2b6w5ols',1,0,'',103,0,0),(31948,7026,6,264,0,'200.91.3.10',1179421839,1,0,1,1,1,1,'','','Carlos\nLo hice asi, pero no me refresca, tienes algo de codigo para comparar ?\nGracias','',0,'AIA=','3umxy77e',1,0,'',264,0,0),(31949,7027,6,2,0,'87.218.146.2',1179424535,1,0,1,1,1,1,'','','Raymundo,\n\nPrueba esto:\n\nIsActiveX( cProgID ) --&gt; lYesNo \n\ni.e.: \n\nif IsActiveX( \"OWC.Spreadsheet\" )','',0,'AIA=','ceiurllq',1,0,'',2,0,0),(31950,7023,6,179,0,'200.63.227.229',1179425699,1,0,1,1,1,1,'','','Gracias ETI por todo..\nPaz en su tumba\n\nSaludos\n\nAtt','',0,'AIA=','a24mouk0',1,0,'',179,0,0),(31951,7030,6,975,0,'200.85.235.21',1179427642,1,0,1,1,1,0,'','Como Hacer La Busqueda de Un REgistro','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> Como hacer la busqueda de un registro; y si lo encuentra que lo muestre en el formulario. y si no que envíe un mensaje de que el registro no existe.\n\n\n\natentamente;\n\n\n\nJhonJVD','',0,'AIA=','1uode2nw',1,0,'',975,0,0),(31952,7008,6,959,0,'201.58.51.167',1179428233,1,0,1,1,1,0,'','','Antonio\n\nAcabo de ordenar e instalar xHB 99.70, el tutor01.prg já me arranca, agora o meu projeto apresenta estes erros :\n\nxLINK: error: Unresolved external symbol \'_HB_FUN_PEEKBYTE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN__LASTKEY\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_ISWIN64\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_ISAPPTHEMED\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_TSTATUSBAR\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_GETENHMETAFILE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_PLAYENHMETAFILE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_DELETEENHMETAFILE\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_FWRARROW\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_XBRWSCROLL\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_FWBMPASC\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_FWBMPDES\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_DRAWTEXTEX\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_FWDARROW\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_DRAWTHEMED\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_DRAWPBACK\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_FWDISPBEGIN\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_FWDISPEND\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_CREATETOOLTIP\'.\nxLINK: error: Unresolved external symbol \'_hb_stack\'.\nxLINK: error: Unresolved external symbol \'_hb_vmMessage\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RELOADASRTF\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_RESAVEASRTF\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_MAPILOGOFF\'.\nxLINK: error: Unresolved external symbol \'_HB_FUN_MAPISENDMAIL\'.\n\nPoderias me ajudar ?\n\nGracias\n\nMário','',0,'AIA=','2d03h2y4',1,0,'',959,0,0),(31953,7008,6,2,0,'87.218.146.2',1179428407,1,0,1,1,1,1,'','','Mario,\n\nHoy hemos publicado FWH 7.05, por favor descárgalo e instálalo y prueba con él, gracias','',0,'AIA=','acwi866k',1,0,'',2,0,0),(31954,7030,6,492,0,'189.147.32.187',1179430774,1,0,1,1,1,1,'','','Hola JJ\n\nDependera tanto del campo y el indice aplicados.\n\nLo basico seria algo como esto :\n\n-Teniendo un indice sobre el archivo CLIENTES.\n\nIF CLIENTES-&gt;( DbSeek( xVarible ) )\n  ? \"lo encontro\"\nELSE\n  ? \"no lo encontro\"\nENDIF\n\nDonde xVariable va de acuerdo al campo (Numerico, Character, etc )\n\n\nSaludos','',0,'AIA=','z67qj6c3',1,0,'',492,0,0),(31955,7027,6,492,0,'189.147.32.187',1179430843,1,0,1,1,1,1,'','','Ok Antonio, lo probare y te comento.\n\n\nGracias y Saludos','',0,'AIA=','1y0pdrb1',1,0,'',492,0,0),(31956,7026,6,2,0,'87.218.146.2',1179430887,1,0,1,1,1,1,'','','Julio,\n\nHas probado con oBrowse:Refresh() ?','',0,'AIA=','2wh4tn45',1,0,'',2,0,0),(31957,7015,6,2,0,'87.218.146.2',1179432151,1,0,1,1,1,1,'','','Rodrigo,\n\nSi haces oBrowse:cAlias := \"\" el browse no se repintará','',0,'AIA=','161whnif',1,0,'',2,0,0),(31958,7026,6,264,0,'200.91.3.10',1179432347,1,0,1,1,1,1,'','','Maestro.\nEso fue lo primero que hice.\nLuego vinieron los codigos de bloque, luego las funciones y luego EL FORO !!\n\nyo lo declare algo asi como\n\noCol[1]:cFooter := Tran( nTotal, \"9999,999,999\" )\n\nSaludos\n\nPD: vi por ahi un \"bStrFoot\" ..... pero en la clase no existia...','',0,'','p5h4uwr6',1,0,'',264,0,0),(31959,7026,6,2,0,'87.218.146.2',1179433492,1,0,1,1,1,1,'','','Julio,\n\nPrueba con:\n\noCol[1]:cFooter := Tran( nTotal, \"9999,999,999\" ) \n\noCol[1]:PaintFooter( oBrowse:nHeight - oBrowse:nFooterHeight, nil, oBrowse:nFooterHeight - 3 )','',0,'','hn9grw65',1,0,'',2,0,0),(31960,7026,6,694,0,'200.189.112.21',1179433579,1,0,1,1,1,1,'','','Julio, talvez te ajude!\n\n\nuBrw:aCols[03]:cHeader        := \"Valor\"\nuBrw:aCols[03]:nWidth         := 70 \nuBrw:aCols[03]:cEditPicture   := \"@E 999,999.99\"\nuBrw:aCols[03]:nDataStrAlign  := AL_RIGHT\nuBrw:aCols[03]:nHeadStrAlign  := AL_RIGHT\nuBrw:aCols[03]:nFootStrAlign  := AL_RIGHT\nuBrw:aCols[03]:bOnPostEdit    := {|o,x| bStruc[uBrw:nArrayAt, 3 ] := x }\nuBrw:aCols[03]:bStrData       := {|| TRANS(bStruc[uBrw:nArrayAt, 3 ] ,\"@E 999,999.99\")} \nuBrw:aCols[03]:bEditValue     := {|| bStruc[uBrw:nArrayAt, 3 ] }\nuBrw:aCols[03]:nEditType      := EDIT_GET\n[b:1befhhbt]uBrw:aCols[03]:bEditValid     := {|oGet| Validando( oGet,uBrw ) } [/b:1befhhbt]\n\n**************************************\nSTATIC FUNCTION Validando( oGet,uBrw ) \n**************************************\n    local lValRet:=.T.,X,valtota1:=0,valtota2:=0 \n    local bValid := oGet:bValid \n    local nVal   := oGet:Value() \n    oGet:bValid  := nil \n    oGet:bValid:=bValid \n    FOR X:=1 TO LEN(bStruc)\n        valtota1+=round(bStruc[x][3],2)\n        valtota2+=round(bStruc[x][6],2)\n    NEXT\n    uBrw:aCols[3]:cFooter:= trans(valtota1,\"@E 999,999.99\")\n    uBrw:aCols[6]:cFooter:= trans(valtota2,\"@E 999,999.99\")\n    uBrw:refresh()\nRETURN lValRet \n\nFique com Deus\nAoki','',0,'QA==','1befhhbt',1,0,'',694,0,0),(31961,6970,6,694,0,'200.189.112.21',1179434008,1,0,1,1,1,1,'','','Espero que de ajúde meu amigo !\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=681\">http://www.fivewin.com.br/exibedicas.asp?id=681</a><!-- m -->\n\nPara mim foi o que resolveu!\n\nUm abraço\nAoki <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'QA==','2qx239nq',1,0,'',694,0,0),(31962,7029,6,103,0,'201.8.79.233',1179437123,1,0,1,1,1,1,'','','¿No hay nadie que tenga alguna experiencia con esto?\n\nSaludos,','',0,'QA==','1t5s2l4u',1,0,'',103,0,0),(31963,7026,6,110,0,'165.98.223.30',1179438470,1,0,1,1,1,1,'','','[code:18pkcydi]\nprocedure Edit&#40;lNuevo&#41;\n   &#46;&#46;&#46;\n   BrwUpdFoot&#40;&#41;\n   oBrw&#58;refresh&#40;&#41;\nreturn\n[/code:18pkcydi]\n\n[code:18pkcydi]\nprocedure BrwUpdFoot&#40;&#41;\noBrw&#58;aCol3&#93;&#58;cFooter&#58;= transform&#40;nTotal,&quot;@E 999,999&#46;99&quot;&#41; \nreturn\n[/code:18pkcydi]\n\naca tanto oBrw, como nTotal son variables accesibles desde todos los proc.\n\nsalu2\ncarlos vargas','',0,'AIA=','18pkcydi',1,0,'',110,0,0),(31964,7026,6,264,0,'200.91.3.10',1179439045,1,0,1,1,1,1,'','','ok, gracias\nLo revisare\nSaludos','',0,'AIA=','104x0dnl',1,0,'',264,0,0),(31965,7029,6,110,0,'165.98.223.30',1179440049,1,0,1,1,1,1,'','','Kleyber\nLamentablemente parece que nop.\n\nYo mismo he sufrido este problema, aun cuando uso CmSay\nlas posiciones no son identicas. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nincluso ahora mismo tengo este problema y por mas que le he dado vuelta al asunto nada <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nmirate este codigo, aun cuando uso cmsay me sale en diferentes posiciones en diferentes impresoras.\n\nsalu2\ncarlos vargas\n\n[code:15mvq0rj]\nPROCEDURE Contratos_ImprimirFormato&#40;&#41;\n    LOCAL oPrn\n    LOCAL oFont1,oFont2,oFont3\n    LOCAL cCodCon,cNomSus,cDirSus,cTelSus,cFecNac,cEdaSus,cCedSus,cEstCiv,cProSus,cDirTra,cTelTra\n    LOCAL cJardin,cBloque,cLote,cPrecio\n    LOCAL cTotal,cPrima,cSaldo\n    LOCAL cCTotal,cCPrima,cCSaldo\n    LOCAL cNumCuo,cValCuo,cDiaPag\n    LOCAL cDia,cMes,cAno\n\n    /*pasa datos a variables de tipo caracter*/\n    cCodCon &#58;= oCont&#58;mc_codcon\n    cNomSus &#58;= ft_proper&#40;oCont&#58;mc_nomsus&#41;\n    cDirSus &#58;= ft_proper&#40;oCont&#58;mc_dirsus&#41;\n    cTelSus &#58;= oCont&#58;mc_teldom\n    cFecNac &#58;= DToC&#40;oCont&#58;mc_fecnac&#41;\n    cEdaSus &#58;= Transform&#40;nEdad,&quot;999&quot;&#41;\n    cCedSus &#58;= oCont&#58;mc_cedula\n    cEstCiv &#58;= IIf&#40;oCont&#58;mc_casado,&quot;Casado&quot;,&quot;Soltero&quot;&#41;\n    cProSus &#58;= ft_proper&#40;oCont&#58;mc_prosus&#41;\n    cDirTra &#58;= ft_proper&#40;oCont&#58;mc_dirtra&#41;\n    cTelTra &#58;= oCont&#58;mc_teltra\n\n    cTotal  &#58;= Transform&#40;oCont&#58;mc_totcon,&quot;999,999&#46;99&quot;&#41;\n    cPrima  &#58;= Transform&#40;oCont&#58;mc_pagpri,&quot;999,999&#46;99&quot;&#41;\n    cSaldo  &#58;= Transform&#40;oCont&#58;mc_salfin,&quot;999,999&#46;99&quot;&#41;\n\n    cCTotal &#58;= Transform&#40;oCont&#58;mc_totconc,&quot;999,999&#46;99&quot;&#41;\n    cCPrima &#58;= Transform&#40;oCont&#58;mc_pagpric,&quot;999,999&#46;99&quot;&#41;\n    cCSaldo &#58;= Transform&#40;oCont&#58;mc_salfinc,&quot;999,999&#46;99&quot;&#41;\n\n    cNumCuo &#58;= Transform&#40;oCont&#58;mc_numcuo,&quot;999&quot;&#41;\n    cValCuo &#58;= Transform&#40;oCont&#58;mc_valabo,&quot;999,999&#46;99&quot;&#41;\n    cDiaPag &#58;= Transform&#40;Day&#40;oCont&#58;mc_diapag&#41;,&quot;99&quot;&#41;\n    //cDiaPag &#58;= DToC&#40;oCont&#58;mc_diapag&#41;\n\n    cDia &#58;= Transform&#40;Day&#40;oCont&#58;mc_feccon&#41;,&quot;99&quot;&#41;\n    cMes &#58;= CMonth&#40;oCont&#58;mc_feccon&#41;\n    cAno &#58;= Transform&#40;Year&#40;oCont&#58;mc_feccon&#41;,&quot;9999&quot;&#41;\n\n    /*define objeto printer*/\n    PRINTER oPrn FROM USER\n\n        /*valida si selecciono una impresora*/\n        IF Empty&#40; oPrn&#58;hDC &#41;\n            RETURN\n        ENDIF\n\n        /*define fuentes a usar*/\n        DEFINE FONT oFont1 NAME &quot;Times New Roman&quot; SIZE 0,-12 OF oPrn\n        DEFINE FONT oFont2 NAME &quot;Times New Roman&quot; SIZE 0,-08 OF oPrn\n        DEFINE FONT oFont3 NAME &quot;Times New Roman&quot; SIZE 0,-14 OF oPrn BOLD\n\n        /*define tama¤o del papel*/\n        oPrn&#58;SetPage&#40;DMPAPER_LETTER&#41;\n\n        /*ajuste*/\n        //oPrn&#58;nXOffset&#58;=oPrn&#58;cm2Pix&#40;nXFix&#41;\n        //oPrn&#58;nYOffset&#58;=oPrn&#58;cm2Pix&#40;nYFix&#41;\n\n        /*inicia pagina*/\n        PAGE\n\n            /*inserta datos en pagina*/\n            /*generales del contratantes*/\n            oPrn&#58;CmSay&#40;03&#46;80,16&#46;80,cCodCon,oFont3,oPrn&#58;cm2Pix&#40;04&#46;50&#41;&#41;  // numero de contrato\n            oPrn&#58;CmSay&#40;04&#46;80,05&#46;50,cNomSus,oFont1,oPrn&#58;cm2Pix&#40;15&#46;00&#41;&#41;  // nombre del suscriptor\n            oPrn&#58;CmSay&#40;05&#46;60,03&#46;30,cDirSus,oFont1,oPrn&#58;cm2Pix&#40;12&#46;50&#41;&#41;  // direccion del suscriptor\n            oPrn&#58;CmSay&#40;05&#46;60,17&#46;60,cTelSus,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;&#41;  // telefono del suscriptor\n            oPrn&#58;CmSay&#40;06&#46;50,05&#46;50,cFecNac,oFont1,oPrn&#58;cm2Pix&#40;03&#46;20&#41;&#41;  // fecha de nacimiento\n            oPrn&#58;CmSay&#40;06&#46;50,10&#46;40,cEdaSus,oFont1,oPrn&#58;cm2Pix&#40;01&#46;00&#41;&#41;  // edad\n            oPrn&#58;CmSay&#40;06&#46;50,12&#46;70,cCedSus,oFont2,oPrn&#58;cm2Pix&#40;02&#46;80&#41;&#41;  // cedula\n            oPrn&#58;CmSay&#40;06&#46;50,17&#46;60,cEstCiv,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;&#41;  // estado civil\n            oPrn&#58;CmSay&#40;07&#46;30,03&#46;30,cProSus,oFont1,oPrn&#58;cm2Pix&#40;05&#46;50&#41;&#41;  // profesion\n            oPrn&#58;CmSay&#40;07&#46;30,11&#46;60,cDirTra,oFont2,oPrn&#58;cm2Pix&#40;03&#46;70&#41;&#41;  // trabajo\n            oPrn&#58;CmSay&#40;07&#46;30,17&#46;60,cTelTra,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;&#41;  // telefono\n\n            /*localizacion de lotes*/\n            DBSELECT &quot;LOTE&quot;\n            LOTE-&gt;&#40;DBGoTop&#40;&#41;&#41;\n\n            /*inicializa variable*/\n            nFila &#58;= 10\n\n            /*procesa cada lote*/\n            DO WHILE !LOTE-&gt;&#40;Eof&#40;&#41;&#41;\n\n                /*pasa valores a variables cadena*/\n                cJardin &#58;= ft_proper&#40;StrTran&#40;JARD-&gt;MJ_NOMJAR,&quot;JARDIN&quot;,&quot;&quot;&#41;&#41;\n                cBloque &#58;= StrToken&#40;LOTE-&gt;ML_CODLOT,2,&quot;-&quot;&#41;\n                cLote   &#58;= StrToken&#40;LOTE-&gt;ML_CODLOT,3,&quot;-&quot;&#41;\n                cPrecio &#58;= Transform&#40;LOTE-&gt;ML_PREVEN,&quot;999,999&#46;99&quot;&#41;\n\n                /*imprime datos*/\n                oPrn&#58;CmSay&#40;nFila,04&#46;50,cLote,  oFont1,oPrn&#58;cm2Pix&#40;01&#46;80&#41;&#41;             // lote\n                oPrn&#58;CmSay&#40;nFila,07&#46;20,cJardin,oFont1,oPrn&#58;cm2Pix&#40;04&#46;80&#41;&#41;             // jardin\n                oPrn&#58;CmSay&#40;nFila,14&#46;00,cBloque,oFont1,oPrn&#58;cm2Pix&#40;01&#46;30&#41;&#41;             // bloque\n                oPrn&#58;CmSay&#40;nFila,16&#46;60,cPrecio,oFont1,oPrn&#58;cm2Pix&#40;02&#46;40&#41;,,PAD_RIGHT&#41;  // precio\n\n                /*incrementa fila*/\n                nFila+=0&#46;5\n\n                /*salta hacia el proximo lote*/\n                LOTE-&gt;&#40;DBSkip&#40;&#41;&#41;\n\n            ENDDO\n\n            /*restaura area*/\n            LOTE-&gt;&#40;DBGoTop&#40;&#41;&#41;\n            DBSELECT &quot;CONT&quot;\n\n            /*total*/\n            oPrn&#58;CmSay&#40;12&#46;50,15&#46;50,cTotal,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;,,PAD_RIGHT&#41;   //  total\n\n            /**/\n            oPrn&#58;CmSay&#40;13&#46;70,07&#46;00,cTotal, oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;,,PAD_RIGHT&#41;  //  total U$\n            oPrn&#58;CmSay&#40;14&#46;20,07&#46;00,cPrima, oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;,,PAD_RIGHT&#41;  //  prima U$\n            oPrn&#58;CmSay&#40;14&#46;70,07&#46;00,cSaldo, oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;,,PAD_RIGHT&#41;  //  total U$\n\n            oPrn&#58;CmSay&#40;13&#46;70,15&#46;50,cCTotal,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;,,PAD_RIGHT&#41;  //  total C$\n            oPrn&#58;CmSay&#40;14&#46;20,15&#46;50,cCPrima,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;,,PAD_RIGHT&#41;  //  prima C$\n            oPrn&#58;CmSay&#40;14&#46;70,15&#46;50,cCSaldo,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;,,PAD_RIGHT&#41;  //  total C$\n\n            oPrn&#58;CmSay&#40;15&#46;20,06&#46;20,cNumCuo,oFont1,oPrn&#58;cm2Pix&#40;01&#46;00&#41;,,PAD_RIGHT&#41;  //  numero de cuotas\n            oPrn&#58;CmSay&#40;15&#46;20,13&#46;50,cDiaPag,oFont1,oPrn&#58;cm2Pix&#40;02&#46;20&#41;,,PAD_RIGHT&#41;  //  dias de pago\n\n            oPrn&#58;CmSay&#40;15&#46;70,03&#46;50,cValCuo,oFont1,oPrn&#58;cm2Pix&#40;03&#46;20&#41;,,PAD_RIGHT&#41;  //  valor de cuotas\n\n            oPrn&#58;CmSay&#40;16&#46;60,03&#46;00,cDia,oFont1,oPrn&#58;cm2Pix&#40;01&#46;00&#41;&#41;  //  dia\n            oPrn&#58;CmSay&#40;16&#46;60,05&#46;50,cMes,oFont1,oPrn&#58;cm2Pix&#40;03&#46;00&#41;&#41;  //  mes\n            oPrn&#58;CmSay&#40;16&#46;60,10&#46;50,cAno,oFont1,oPrn&#58;cm2Pix&#40;02&#46;00&#41;&#41;  //  a¤o\n\n        ENDPAGE\n\n   ENDPRINT\n\n   oFont1&#58;End&#40;&#41;\n   oFont2&#58;End&#40;&#41;\n   oFont3&#58;End&#40;&#41;\n\nRETURN\n\n[/code:15mvq0rj]','',0,'AIA=','15mvq0rj',1,0,'',110,0,0),(31966,7029,6,103,0,'201.8.79.233',1179440963,1,0,1,1,1,1,'','','Hola Carlos,\n\n   Gracias por contestar. Veo entonces que esto es malo, pues no me gusta mucho tener que usar herramientas de terceros, cuando tenemos el propio de FWH... Antonio, ¿puedes ayudarnos?\n\nSaludos,','',0,'AIA=','evb2dk9e',1,0,'',103,0,0),(31967,7031,2,1065,0,'201.116.83.242',1179442188,1,0,1,1,1,0,'','ayuda por favor','Hola \nGracias de Antemano por su ayuda\n \nestoy con un programa el clip53 y la librería iolib \ncompilo con \ncaso 1\nblinker myprog  fi iolib blinker exe dual search blxclp53\n \n \npero me marca un error \nBLX286 :1313 exception error 0D: general protection fault, code=000h\nactive host is vcpi (v7.00 i486 14920 kb)\n \ncaso 2 \nsi lo compilo simple \nblinker myprog  fi iolib \nsi trabaja\n \nel problema que al enlazar toda la aplicacion en  el segundo caso no alcanza la memoria\n \n \nque podrá ser\n \nde antemano muchas gracias.\n \nElías Oros','',0,'AIA=','eje9uzj0',1,0,'',1065,0,0),(31968,6963,2,228,0,'190.24.97.28',1179445120,1,0,1,1,1,1,'','Amigo...','Amigo hace unos años intente hacer lo mismo que tun estas haciendo... no se si fue por falta de empeño que no lo logre... pero lo maximo que pude hacer fue conseguir los driver para el manejo de la registradora... hive varios intentos pero no logre que diera respuesta...\n\ncontactame por el privado y vemos si te puedo ayudar..\n\nSALUDOS','',0,'AIA=','28bzl5tt',1,0,'',228,0,0),(31969,7032,1,819,0,'67.187.239.16',1179449248,1,0,1,1,1,0,'','Call a function periodically','Hi all,\n\nIs there a way to call a function periodically throughout the execution of an application.  Thank you !\n\nRegards,','',0,'AIA=','rvewx5ao',1,0,'',819,0,0),(31970,7029,6,376,0,'190.40.52.235',1179455167,1,0,1,1,1,1,'','','Hola Kleyber\n\nTiempo atrás en el foro dejé un codigo para impresiones para facturas. En el utilicé como medida de ajuste un factor referido a dimensiones del papel antes que a los píxels de la máquina.Voy a ubicarlo para que veas si te sirve el estilo.\n\nSaludos\n\n\n[quote=&quot;Kleyber&quot;:bdoq2t3f]¿No hay nadie que tenga alguna experiencia con esto?\n\nSaludos,[/quote:bdoq2t3f]','',0,'gA==','bdoq2t3f',1,0,'',376,0,0),(31971,7032,1,303,0,'72.199.41.171',1179455532,1,0,1,1,1,0,'','','Take a look at FW\\samples\\testtim4.prg','',0,'gA==','12wjjtmt',1,0,'',303,0,0),(31972,7029,6,376,0,'190.40.52.235',1179457105,1,0,1,1,1,1,'','','Encontré el codigo para la clase tprinter.\n\n/* Listar la base de datos del padron de productos\nAutor: Econ. Armando Picón S., Lima, Perú\n*/\n#include \"fivewin.ch\"\n#include \"report.ch\"\n\nPROCEDURE listar( oDlg )\nLOCAL nReg := 1\nLOCAL Fil := 0 // aqui estuvo el error\nLOCAL Col := 0\nLOCAL nCol := 115 // columnas que tiene el papel\nLOCAL nFil := 64 // filas que tiene el papel\nLOCAL LstCol := 112 // ultima columna a utilizar\nLOCAL LstFil := 59 // ultima fila para datos\nLOCAL nFil1 := 0\nLOCAL c, f, cMedio\nLOCAL oFnt1, oFnt2, oFnt3, oPen1\n*\nLOCAL nPag := 0\nLOCAL oPrn\nLOCAL cDate := STR( DAY( DATE() )) + \" de \" + ;\nsp_mes( MONTH( DATE() ) ) + \" del \" +;\nstr(Year(DATE()))\nLOCAL TITULO:=\"LISTADO GENERAL DE REPUESTOS\"\nLOCAL nLongTit, nMedio\n//LOCAL aPagos //:= {} // esto también fue error, no se utiliza\n\nDBSELECTAREA(\"STOCK\")\nnReg := RECNO()\n\nPRINTER oPrn PrEVIEW MODAL\n\noPrn:setup()\n\nIF EMPTY(oPrn:hDC)\nMsgStop(\"Impresora no lista\",\"ATENTO\")\nRETURN NIL\nENDIF\n\n* características del papel\noPrn:SetPage( 10 ) // Papel A4==&gt;10\noPrn:SetLandScape() // Orientacion echada\n\n* Factor de resolución para columnas y filas (para colocar los datos en su lugar)\nc:= oPrn:nHorzRes()/nCol\nf:= oPrn:nVertRes()/nFil\ncMedio := INT(LstCol / 2) + 1\n\nDEFINE FONT oFnt1 NAME \"Sans Serif\" SIZE 0,-16 OF oPrn\nDEFINE FONT oFnt2 NAME \"Sans Serif\" SIZE 0,-12 OF oPrn\nDEFINE FONT oFnt3 NAME \"Sans Serif\" SIZE 0,-9 OF oPrn\n\nDBGOTOP()\nDO WHILE !EOF()\n\nDO CASE\n\nCASE Fil == 0\n\noPrn:Startpage()\nFil++\nFil++\nFil++\nFil++\nnPag := oPrn:nPage\noPrn:Say(Fil*f, (cMedio - ( LEN(TITULO)/2 ))*c, TITULO, oFnt2)\nFil++\nFil++\noPrn:Say(Fil*f, (cMedio - ( LEN(oApp:membrete)/2 ))*c, oApp:membrete, oFnt2)\nFil++\nFil++\n* Linea separador de titulo - encabezados\noPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\nnFil1 := Fil\nFil++\n* cabecera de columnas\noPrn:Say(Fil*f, 001*c, \"ANDM\" , oFnt3 ) // ANDAMIO\noPrn:Say(Fil*f, 005*c, \"CASL\" , oFnt3 ) // CASILLA\noPrn:Say(Fil*f, 011*c, \"CODIGO\" , oFnt3 ) // CODIGO\noPrn:Say(Fil*f, 024*c, \"PROC\" , oFnt3 ) // PROCEDENCIA\noPrn:Say(Fil*f, 030*c, \"NOMBRE\" , oFnt3 ) // NOMBRE\noPrn:Say(Fil*f, 061*c, \"UNIDAD\" , oFnt3 ) // UNIDAD DE MEDIDA\noPrn:Say(Fil*f, 069*c, \"PREC.VTA\" , oFnt3 ) // PRECIO DE VENTA\noPrn:Say(Fil*f, 079*c, \"DSCTO\" , oFnt3 ) // DESCUENTO EN VALOR\noPrn:Say(Fil*f, 089*c, \"IGV\" , oFnt3 ) // IGV DE PRECIO-DCTO\noPrn:Say(Fil*f, 099*c, \"PREC.PUBLICO.\", oFnt3 ) // PRECIO FACTURADO\nFil++\noPrn:Say(Fil*f, 069*c, \" US$ \" , oFnt3 ) // PRECIO DE VENTA\noPrn:Say(Fil*f, 079*c, \" US$ \" , oFnt3 ) // DESCUENTO EN VALOR\noPrn:Say(Fil*f, 089*c, \"US$\" , oFnt3 ) // IGV DE PRECIO-DCTO\noPrn:Say(Fil*f, 099*c, \" US$ \", oFnt3 ) // PRECIO FACTURADO\nFil++\nFil++\n* Linea separadora entre encabezados e impresion de datos\noPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\nFil++\n\nCASE Fil &gt; LstFil\nFil++\n* Linea de cierre de impresion de datos\noPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n\n* Linea verticales de impresion de datos\noPrn:Line(nFil1*f,000*c, Fil*f,000*c)\noPrn:Line(nFil1*f,005*c, Fil*f,005*c)\noPrn:Line(nFil1*f,009*c, Fil*f,009*c)\noPrn:Line(nFil1*f,022*c, Fil*f,022*c)\noPrn:Line(nFil1*f,028*c, Fil*f,028*c)\noPrn:Line(nFil1*f,059*c, Fil*f,059*c)\noPrn:Line(nFil1*f,067*c, Fil*f,067*c)\noPrn:Line(nFil1*f,077*c, Fil*f,077*c)\noPrn:Line(nFil1*f,087*c, Fil*f,087*c)\noPrn:Line(nFil1*f,097*c, Fil*f,097*c)\noPrn:Line(nFil1*f,LstCol*c, Fil*f,LstCol*c)\n\n* Fin cuadro de impresion de datos\nFil++\noPrn:Say(Fil*f, 002*c, \"Pag. No. : \", oFnt3 )\noPrn:Say(Fil*f, 014*c, ALLTRIM(STR(nPag,10,0)), oFnt3 )\nFil++\noPrn:endpage()\nFil := 0\n\nOTHER\noPrn:Say(Fil*f, 002*c, STOCK-&gt;ANDAMIO, oFnt3 )\noPrn:Say(Fil*f, 006*c, STOCK-&gt;CASILLA, oFnt3 )\noPrn:Say(Fil*f, 010*c, STOCK-&gt;CODIGO , oFnt3 )\noPrn:Say(Fil*f, 023*c, STOCK-&gt;ORIG , oFnt3 )\noPrn:Say(Fil*f, 029*c, STOCK-&gt;NOMBRE , oFnt3 )\noPrn:Say(Fil*f, 060*c, STOCK-&gt;UNIDAD , oFnt3 )\noPrn:Say(Fil*f, 075*c, TRANSFORM(STOCK-&gt;XPRECIOV,\"@ 99,999.999\"), oFnt3,,,,1 ) // PRECIO DE VENTA\noPrn:Say(Fil*f, 085*c, TRANSFORM(STOCK-&gt;XDCTO ,\"@ 99,999.999\"), oFnt3,,,,1 ) // DESCUENTO EN VALOR\noPrn:Say(Fil*f, 095*c, TRANSFORM(STOCK-&gt;XIGV ,\"@ 99,999.999\"), oFnt3,,,,1 ) // IGV DE PRECIO-DCTO\noPrn:Say(Fil*f, 105*c, TRANSFORM(STOCK-&gt;XPRECIOF,\"@ 999,999.99\"), oFnt3,,,,1 ) // PRECIO FACTURADO\n\nFil++\nSKIP\n\nENDCASE\n\nENDDO\n*\nFil++\n* Linea de cierre de impresion de datos\noPrn:Line(Fil*f,000*c, Fil*f, LstCol*c)\n\n* Linea verticales de impresion de datos\noPrn:Line(nFil1*f,000*c, Fil*f,000*c)\noPrn:Line(nFil1*f,005*c, Fil*f,005*c)\noPrn:Line(nFil1*f,009*c, Fil*f,009*c)\noPrn:Line(nFil1*f,022*c, Fil*f,022*c)\noPrn:Line(nFil1*f,028*c, Fil*f,028*c)\noPrn:Line(nFil1*f,059*c, Fil*f,059*c)\noPrn:Line(nFil1*f,067*c, Fil*f,067*c)\noPrn:Line(nFil1*f,077*c, Fil*f,077*c)\noPrn:Line(nFil1*f,087*c, Fil*f,087*c)\noPrn:Line(nFil1*f,097*c, Fil*f,097*c)\noPrn:Line(nFil1*f,LstCol*c, Fil*f,LstCol*c)\n* Fin cuadro de impresion de datos\nFil++\noPrn:Say(Fil*f, 002*c, \"Pag. No. : \", oFnt3 )\noPrn:Say(Fil*f, 014*c, ALLTRIM(STR(nPag,10,0)), oFnt3 )\noPrn:endpage()\n\nENDPRINT\n\n\noFnt1:End()\noFnt2:End()\noFnt3:End()\noPrn:SetPortrait() // Orientacion parada\noPrn:End()\n\nDBGOTOP()\nDBGOTO( nReg )\n\nRETURN\n*\n\n/*\nFormulario de la lista Productos\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄ¿\n³ANDM CASL CODIGO PROC NOMBRE UNIDAD PREC.VTA DSCTO IGV PREC.FACT.³³\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÙ\n12 123 123456789012 12345 123456789012345678901234567890 1234567 12345.789 12345.789 12345.789 123457.89\n01234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012\n1 2 3 4 5 6 7 8 9 0 1\n\nCaracteristicas de la base de datos\n=======================\nCliente----: 12345678901 123456789012345678901234567890123456789012345\nDirección--: 123456789012345678901234567890123456789012345\n123456789012345678901234567890123456789012345\n123456789012345678901234567890123456789012345\nTeléfono---: 123456789012\n\nLoc.Entrega: 123456789012345678901234567890123456789012345\nDirección--: 123456789012345678901234567890123456789012345\nTeléfono---: 123456789012\n------------------------------------------------------------------------\nNOM_CLIENT\" ,\"C\", 45,0},; // nombre del cliente\nDIR_CLIENT\" ,\"C\", 45,0},; // direccion1 del cliente\nDIR_CLIEN2\" ,\"C\", 45,0},; // direccion2 del cliente\nDIR_CLIEN3\" ,\"C\", 45,0},; // direccion3 del cliente\nLOC_CLIENT\" ,\"C\", 45,0},; // local de entrega\nLOC_DIRCLI\" ,\"C\", 45,0},; // direc. local de entrega\nTF1_CLIENT\" ,\"C\", 12,0},; // telefono cliente\nTF2_CLIENT\" ,\"C\", 12,0} ; // telefono local de entrega\n\n*/','',0,'gA==','3d5uv3f2',1,0,'',376,0,0),(31973,7032,1,819,0,'67.187.239.16',1179457976,1,0,1,1,1,0,'','Calling function periodically','Thank you james!','',0,'gA==','3viydvty',1,0,'',819,0,0),(31974,7025,3,376,0,'190.40.52.235',1179458106,1,0,1,1,1,1,'','Re: Printer\'s resolution X TPrinter/TReport','Kleyber\n\nMira los aportes en el foro español\n\n[quote=&quot;Kleyber&quot;:2zo3exnv]Hi All,\n\n    Maybe this is an old issue, but sometimes I have problems with it. If I create a normal report using TReport for example, I can see there are different previews in different printers with different resolutions. Even when I use TPrinter with CmSay() I see differences with this printers (i.e. Deskjet with different resolutions and Laserjet printers). Facing this fact, I ask if there is a final solution for this, specially because I use CmSay() extensively, to have the same result in all printers with all resolutions.\n\nTIA\n\nBest Regards,[/quote:2zo3exnv]','',0,'gA==','2zo3exnv',1,0,'',376,0,0),(31975,7033,6,785,0,'190.64.204.10',1179458513,1,0,1,1,1,0,'','Antonio: El avi es para FWPPC, podria para Harbour y FWH ?','Saludos y Gracias\n\nRuben Fernandez','',0,'gA==','118apczp',1,0,'',785,0,0),(31976,7034,6,439,0,'200.125.37.77',1179462423,1,0,1,1,1,1,'','Dialog de recurso incrustada en una ventana','Amigos, \n\nYa se que está en la tapa del libro, pero arranqué el libro por la mitad y en mis aplicaciones siempre he usado Dialogs, con excepción de la ventana principal.\n\nPor alguna parte vi que puedo pasar todas mis dialogs a \"Child No Border\" y luego incrustarlas en ventanas para utilizar estos recursos que ya tengo hechos dentro de ventanas, y dar a los mismos nuevas ventajas.\n\nPero...., como no me acuerdo donde lo leí, podrían comentarme como incrusto las dialogs sin bordes en las ventanas ajustándolas al tamaño de la misma?\n\nGracias desde ya, y disculpen mi ignorancia. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gA==','qssgg5al',1,0,'',439,0,0),(31979,6815,6,177,0,'194.30.62.6',1179469134,1,0,1,1,1,0,'','','Hola Fernando,\n\nmuchas gracias  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos,\n\nFélix','',0,'AIA=','3ynejiv2',1,0,'',177,0,0),(31980,7031,2,2,0,'87.218.146.2',1179470706,1,0,1,1,1,1,'','','Elías,\n\nLa librería iolib es compatible con el modo protegido ?','',0,'AIA=','3g0925ew',1,0,'',2,0,0),(31981,7033,6,2,0,'87.218.146.2',1179470812,1,0,1,1,1,1,'','','Ruben,\n\nNo entiendo tu pregunta','',0,'AIA=','3dehugng',1,0,'',2,0,0),(31982,7034,6,2,0,'87.218.146.2',1179470980,1,0,1,1,1,1,'','','José,\n\nAqui tienes un ejemplo de una técnica mejor aún, que consiste en cambiar los controles del diálogo a la ventana, usando la función SetParent():\n[code:g6d8qc8w]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define COLOR_BTNFACE   15\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   USE Customer\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot; MDI\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT BuildChild&#40;&#41;\n\nreturn nil\n\nfunction BuildChild&#40;&#41;\n\n   local oChild\n   \n   DEFINE WINDOW oChild TITLE &quot;A Child Window&quot; MDICHILD ;\n      COLOR 0, GetSysColor&#40; COLOR_BTNFACE &#41;\n   \n   ACTIVATE WINDOW oChild ;\n      ON INIT BuildDialog&#40; oChild &#41;\n   \nreturn nil   \n\nfunction BuildDialog&#40; oChild &#41;\n\n   local oDlg, oBrw, oSay, cText &#58;= &quot;Hello World!&quot;\n \n   DEFINE DIALOG oDlg RESOURCE &quot;DE_HEADER_BROWSE&quot; OF oChild\n   \n   oBrw = TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;CreateFromResource&#40; 10 &#41;\n   oBrw&#58;SetRDD&#40;&#41;\n   \n   REDEFINE BUTTON ID 20 OF oDlg\n   REDEFINE BUTTON ID 30 OF oDlg\n   REDEFINE BUTTON ID 40 OF oDlg\n   REDEFINE BUTTON ID 50 OF oDlg\n   REDEFINE BUTTON ID 60 OF oDlg\n   REDEFINE BUTTON ID 70 OF oDlg\n   REDEFINE BUTTON ID 80 OF oDlg\n   REDEFINE BUTTON ID 100 OF oDlg\n   REDEFINE BUTTON ID   1 OF oDlg\n\n   REDEFINE SAY oSay VAR cText ID 90 OF oDlg\n\n   ACTIVATE DIALOG oDlg NOWAIT ;\n      ON INIT ChangeParent&#40; oDlg, oChild &#41;\n      \n   oDlg&#58;End&#40;&#41;   \n   oChild&#58;bResized = &#123; || oBrw&#58;SetSize&#40; oChild&#58;nWidth - 117, oChild&#58;nHeight - 60 &#41;,;\n                                     oSay&#58;nTop &#58;= oChild&#58;nHeight - 55, oSay&#58;nLeft &#58;= &#40; oChild&#58;nWidth / 2 &#41; - oSay&#58;nWidth / 2 &#125;\n   oChild&#58;SetSize&#40; 800, 400 &#41;\n   \nreturn nil   \n\nfunction ChangeParent&#40; oDlg, oChild &#41;\n\n   local n\n   \n   for n = 1 to Len&#40; oDlg&#58;aControls &#41;\n      SetParent&#40; oDlg&#58;aControls&#91; n &#93;&#58;hWnd, oChild&#58;hWnd &#41;\n      AAdd&#40; oChild&#58;aControls, oDlg&#58;aControls&#91; n &#93; &#41;\n   next\n   \nreturn nil \n[/code:g6d8qc8w]\n[url=http&#58;//imageshack&#46;us:g6d8qc8w][img:g6d8qc8w]http&#58;//img453&#46;imageshack&#46;us/img453/9528/browsees1&#46;jpg[/img:g6d8qc8w][/url:g6d8qc8w]','',0,'GIA=','g6d8qc8w',1,0,'',2,0,0),(31983,6926,7,57,0,'80.58.205.46',1179471072,1,0,1,1,1,1,'','','Antonio\nAmbos casos develven el mismo valor (-16). El valor correcto es GWL_STYLE.\n\nSaludos','',0,'GIA=','m8rctp6e',1,0,'',57,0,0),(31984,6926,7,2,0,'87.218.146.2',1179471719,1,0,1,1,1,1,'','','Toni,\n\nNo te habrás confundido al probarlo ? El valor -16 corresponde a GWL_STYLE','',0,'GIA=','1bn8orle',1,0,'',2,0,0),(31985,6926,7,57,0,'80.58.205.46',1179473758,1,0,1,1,1,1,'','','Antonio\nTiene usted toda la razón. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nValor desde Recursos = 1417740290\n\nValor creado con @,, = 1417708810\n\nSaludos','',0,'GIA=','2f142byb',1,0,'',57,0,0),(31986,6926,7,57,0,'80.58.205.46',1179474652,1,0,1,1,1,1,'','','Antonio\n\nHoy no tengo mi dia\n\nValor desde Recursos=1417708810\nValor utilzando @,,,  = 1417740290\n\n\nSaludos','',0,'GIA=','c5heih7d',1,0,'',57,0,0),(31987,6926,7,2,0,'87.218.146.2',1179475896,1,0,1,1,1,1,'','','Toni,\n\nNos pasa a todos de vez en cuando <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPrueba a usar 1417740290 como estilo en el recurso y no uses ningún valor TCS_','',0,'GIA=','1ulq5hpi',1,0,'',2,0,0),(31988,7035,6,316,0,'213.97.245.163',1179478344,1,0,0,1,1,0,'','Uso de la consola del debugger','Estoy pasando una aplicacion Clipper/FW a 32 bits usando FW 7.04 y el xharbour bajado conjuntamente del servidor ftp de Fivetech.\nIntento activar la consola del debugger, para lo que he añadido en el script de compilación la /b y añadí debug.lib como librería.\nHe añadido en el código un llamado a AltD(1) para habilitar el debugger y un llamado a AltD() para que lo active, pero al hacerlo la aplicación se detiene, como si no pudiese abrir la consola.\n\nComo eso me falla, me voy a los ejemplos y compilo altd.prg con el resutlado idéntico: la aplicación queda congelada en el llamado a altd()\n\nHay forma de habilitar el uso del debugger?\n\nUn saludo,\n\nCarlos.','',0,'GIA=','23igrwd7',1,0,'',316,0,0),(31989,7035,6,2,0,'87.218.146.2',1179479810,1,0,1,1,1,1,'','','Carlos,\n\nTienes que enlazar gtwin.lib en vez de gtgui.lib, para usar el debugger\n\nY no uses el flag -aa al llamar al ilink32.exe','',0,'GIA=','3al6o57g',1,0,'',2,0,0),(31990,7036,3,996,0,'65.102.185.182',1179479815,1,0,1,0,1,0,'','Does the DBFCDX driver provided with Harbour use TCP/IP?','Hello Everyone,\n\nI believe the old Commix driver we were using for our 16-bit Clipper application required IPX/SPX/Netbios-compatible network protocols for shared use on a LAN, so we used to tell our customers to load those network protocols in addition to the standard TCP/IP.  Does anyone know if the DBFCDX driver provided with Harbour still requires the old Novell LAN protocols, or does it simply need TCP/IP for multi-user DBFCDX access on a LAN?\n\nThanks!\n-Patrick','',0,'GIA=','16qd1249',1,0,'',996,0,0),(31991,7036,3,2,0,'87.218.146.2',1179480191,1,0,1,1,1,1,'','','Patrick,\n\nIt just needs TCP/IP','',0,'GIA=','30m0ynbn',1,0,'',2,0,0),(31992,7037,3,449,0,'212.64.224.241',1179480616,1,0,1,1,1,1,'','Task','Hi,\n\nDoes somebody know as having a list of task ?\n\nRegards.','',0,'GIA=','394z81pz',1,0,'',449,0,0),(31993,7035,6,316,0,'213.97.245.163',1179480969,1,0,0,1,1,0,'','','Hola Antonio,\ngracias por la pronta respuesta. \nUso -ap en lugar de -aa o directamente lo quito? \n\nvoy a probar nuevamente con gtwin. La primera vez que lo probé me aparecieron muchos externals no resuletos en la compilacion, pero pruebo de nuevo.\n\nYa te cuento como me fue.\n\nCarlos.','',0,'GIA=','1uq66tp8',1,0,'',316,0,0),(31994,7035,6,2,0,'87.218.146.2',1179481558,1,0,1,1,1,1,'','','No uses -aa ni nada más en su lugar','',0,'GIA=','wzonljbo',1,0,'',2,0,0),(31995,7037,3,2,0,'87.218.146.2',1179481917,1,0,1,1,1,1,'','','Carles,\n\nYou may review FWH\\source\\function\\gettasks.prg','',0,'GIA=','1mc57pje',1,0,'',2,0,0),(31996,7024,6,2,0,'87.218.146.2',1179481988,1,0,1,1,1,1,'','','Carles,\n\nEl proceso que buscas no usa una ventana ?','',0,'GIA=','3flslytw',1,0,'',2,0,0),(31997,7035,6,316,0,'213.97.245.163',1179482614,1,0,1,1,1,0,'','','Antonio,\n\n[code:3uedj3bd]\nMAKE Version 5&#46;0  Copyright &#40;c&#41; 1987, 1997 Borland International\n	c&#58;\\bcc55\\bin\\ilink32&#46;exe -Gn -Tpe -s -Iobj -x @make&#46;tmp\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_hb_gt_Init\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_GetScreenHeight\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_GetScreenWidth\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Exit\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_ExtendedKeySupport\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_ReadKey\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_AdjustPos\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Box\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_VertLine\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_HorizLine\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_PreExt\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_PostExt\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_SetPos\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_SetCursorStyle\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_IsColor\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_RectSize\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Replicate\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_GetBlink\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_SetBlink\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_SetMode\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Puts\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Scroll\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Tone\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Version\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_DispCount\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_DispEnd\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Suspend\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Resume\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Row\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_Col\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_DispBegin\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_SetClipboard\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_GetClipboardSize\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_ProcessMessages\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_GetClipboard\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_GetText\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_PutText\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_gt_SetAttribute\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|gtapi\nError&#58; Unresolved external \'_hb_mouse_IsPresent\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_Show\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_Hide\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_Col\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_Row\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_SetPos\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_IsButtonPressed\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_CountButton\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_SetBounds\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_mouse_GetBounds\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|mouseapi\nError&#58; Unresolved external \'_hb_gt_OutStd\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|console\nError&#58; Unresolved external \'_hb_gt_OutErr\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|console\nError&#58; Unresolved external \'_hb_gt_info\' referenced from C&#58;\\XHARBOURFW\\LIB\\RTL&#46;LIB|maxrow\n\n** error 2 ** deleting &#46;\\APGRA&#46;exe\n[/code:3uedj3bd]\n\nenlazando con \n[code:3uedj3bd]\n$&#40;BORLANDC_EXE_DIR&#41;\\ilink32&#46;exe -Gn -Tpe -s -I$&#40;APP_OBJ_DIR&#41;\n c&#58;\\bcc55\\lib\\c0w32&#46;obj + \nobj\\apgra&#46;obj obj\\nomivis&#46;obj obj\\imprnomi&#46;obj obj\\impre4&#46;obj obj\\contrat5&#46;obj obj\\rrhh&#46;obj obj\\calenda&#46;obj obj\\secur&#46;obj obj\\easyprev&#46;obj obj\\pdfprint&#46;obj obj\\vistas&#46;obj obj\\interfac&#46;obj obj\\tsbrowse&#46;obj obj\\TFileXLS&#46;obj obj\\XLSError&#46;obj obj\\XLSFunc&#46;obj  , + \n&#46;\\APGRA&#46;exe, + \n&#46;\\APGRA&#46;map, + \nc&#58;\\fwh704\\lib\\fiveHx&#46;lib + \nc&#58;\\fwh704\\lib\\fiveHC&#46;lib + \nc&#58;\\fwh704\\lib\\SBROWSEX&#46;lib + \nc&#58;\\xharbourFW\\lib\\rtl&#46;lib + \nc&#58;\\xharbourFW\\lib\\vm&#46;lib + \nc&#58;\\xharbourFW\\lib\\gtwin&#46;lib + \nc&#58;\\xharbourFW\\lib\\lang&#46;lib + \nc&#58;\\xharbourFW\\lib\\macro&#46;lib + \nc&#58;\\xharbourFW\\lib\\rdd&#46;lib + \nzlib1&#46;lib ziparchive&#46;lib + \nc&#58;\\xharbourFW\\lib\\dbfntx&#46;lib + \nc&#58;\\xharbourFW\\lib\\dbfcdx&#46;lib + \nc&#58;\\xharbourFW\\lib\\debug&#46;lib + \nc&#58;\\xharbourFW\\lib\\common&#46;lib + \nc&#58;\\xharbourFW\\lib\\pp&#46;lib + \nc&#58;\\xharbourFW\\lib\\hbsix&#46;lib + \nc&#58;\\xharbourFW\\lib\\dbffpt&#46;lib + \nc&#58;\\xharbourFW\\lib\\rddads&#46;lib + \nc&#58;\\xharbourFW\\lib\\ace32&#46;lib + \nc&#58;\\bcc55\\lib\\cw32&#46;lib + \nc&#58;\\bcc55\\lib\\import32&#46;lib + \nc&#58;\\bcc55\\lib\\ole2w32&#46;lib, + \n\n[/code:3uedj3bd]\nPodrías enviarme el gtwin.lib para el xharbour de la 704? el que uso es que había en rapidshare referida por un post acá en el foro, y probablemente sea ese el problema.\n\n\n[/code]','',0,'AIA=','3uedj3bd',1,0,'',316,0,0),(31998,7037,3,449,0,'212.64.224.241',1179483037,1,0,1,1,1,1,'','','Antonio,\n\nIt seems to be that returns the title of the windows of the applications, but not the name of the processes as if you made ctrl+alt+del (folder process)\n\nRegards.','',0,'AIA=','1ut5conb',1,0,'',449,0,0),(31999,7036,3,996,0,'65.102.185.182',1179483283,1,0,1,0,1,0,'','','Cool, thanks Antonio.','',0,'AIA=','1c7muknr',1,0,'',996,0,0),(32000,7033,6,177,0,'194.30.62.6',1179483680,1,0,1,1,1,0,'','','Antonio,\n\nimagino que Rubén se referirá al video avi que has puesto sobre la configuración de UEstudio para FWPPC. \n\nRubén, si es eso sí, se puede.\n\nSaludos,\n\nFelix','',0,'AIA=','3e1bqzum',1,0,'',177,0,0),(32001,6926,7,57,0,'80.58.205.46',1179484327,1,0,1,1,1,1,'','','Antonio\nSe vé diferente con los mismos valores. Mira el resultado. (Arriba recursos / abajo creando con @....)\n \n[url=http&#58;//img100&#46;imageshack&#46;us/my&#46;php?image=clipboardjh7&#46;jpg:3j4pfd5h][img:3j4pfd5h]http&#58;//img100&#46;imageshack&#46;us/img100/259/clipboardjh7&#46;th&#46;jpg[/img:3j4pfd5h][/url:3j4pfd5h]\n\n\nSaludos','',0,'GA==','3j4pfd5h',1,0,'',57,0,0),(32002,7035,6,2,0,'87.218.146.2',1179484497,1,0,1,1,1,1,'','','Carlos,\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/31970820/gtwin.lib.html\">http://rapidshare.com/files/31970820/gtwin.lib.html</a><!-- m -->','',0,'GA==','onuw4oo4',1,0,'',2,0,0),(32003,6926,7,2,0,'87.218.146.2',1179484678,1,0,1,1,1,1,'','','Toni,\n\nPor lo menos se ve mejor que antes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','14iyaple',1,0,'',2,0,0),(32004,7035,6,316,0,'213.97.245.163',1179485036,1,0,1,1,1,0,'','','Antonio,\n\nCreo que me enviaste la de MSVC y necesito la de BCC\n[code:2w1svc8d]\n	c&#58;\\bcc55\\bin\\ilink32&#46;exe -Gn -Tpe -s -Iobj -x @make&#46;tmp\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; \'C&#58;\\XHARBOURFW\\LIB\\GTWIN&#46;LIB\' contains invalid OMF record, type 0x21 &#40;possibly COFF&#41;\n\n[/code:2w1svc8d]\n\ngracias por tu atención,\n\nCarlos.','',0,'AIA=','2w1svc8d',1,0,'',316,0,0),(32005,6926,7,57,0,'80.58.205.46',1179485119,1,0,1,1,1,1,'','','Antonio\nSe te ocurre alguna forma de cambiarle el color a las opciones que no estan activas??. \n\nEl problema está en que no se aprecia prácticamente cual es la opción activa. \n\nSaludos','',0,'AIA=','168am8xt',1,0,'',57,0,0),(32006,7038,6,316,0,'213.97.245.163',1179485195,1,0,0,1,1,0,'','EasyPreview en 32bits','EL programa que migro de Clipper a xHarbour usa la EasyPreview. Al sacar cualquier previsualizacion con la nueva aplicación casca con un error en la EasyPreview.\n\nBajé la demo nueva pra ver si así se resuelve el problema pero sigue igual. Sé que el tema lo tengo que ver con Tim. pero por ahí algun compañero ya ha tenido experiencia y me ayuda a hacer el camino más corto.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','3fj0fdvs',1,0,'',316,0,0),(32007,6926,7,2,0,'87.218.146.2',1179485540,1,0,1,1,1,1,'','','Toni,\n\nSí, ese es el problema, que no se distingue la opción activa. Pero ambos están usando el mismo estilo ahora.\n\nHas considerado el crear el folder desde el ON INIT del diálogo ?','',0,'AIA=','224d1bw4',1,0,'',2,0,0),(32008,7033,6,2,0,'87.218.146.2',1179485661,1,0,1,1,1,1,'','','Felix,\n\nGracias. \n\nEl video es igual de util para usar Harbour y FWH ya que el proceso es el mismo','',0,'AIA=','1tmo7irx',1,0,'',2,0,0),(32009,7035,6,2,0,'87.218.146.2',1179485751,1,0,1,1,1,1,'','','Carlos,\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/31973822/gtwin.lib.html\">http://rapidshare.com/files/31973822/gtwin.lib.html</a><!-- m -->','',0,'AIA=','2pcw9nxy',1,0,'',2,0,0),(32010,7035,6,316,0,'213.97.245.163',1179487893,1,0,0,1,1,0,'','','Por fin funcionó! De todas maneras no toma los paths al inicio hasta la primera llamada a función, como si el prgname no estuviese configurado al inicio.\n\nTampoco se ejecuta hasta una linea determinada ni respeta breakpoint puestos con F9. Ya seguiremos probando a ver que novedades hay.\n\nMuchas gracias por la ayuda,\n\nCarlos.','',0,'AIA=','17pmpveu',1,0,'',316,0,0),(32011,7034,6,439,0,'200.125.36.152',1179489247,1,0,1,1,1,1,'','','Muchas gracias Antonio por tu rápida respuesta <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , lo voy a probar.','',0,'AIA=','640uey8z',1,0,'',439,0,0),(32012,7039,6,449,0,'212.64.224.241',1179489587,1,0,1,1,1,1,'','Debug','Hola, \n\nAl intentar probar el ejemplo del debugger me aparece este error:\n\n[code:3bva8w21]Turbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_HB_SYMBOL_UNUSED\' referenced from C&#58;\\HAL\\HARBOUR&#46;1\\LIB\\DEBUG&#46;LIB|dbgmenu[/code:3bva8w21]\n\nLa version q de Harbour es 1.1-0 de Fivetechsofth la q va con la FWH 7.04 \n\nGracias.','',0,'AIA=','3bva8w21',1,0,'',449,0,0),(32013,7015,6,898,0,'200.232.246.91',1179489629,1,0,1,1,1,0,'','','Antonio, nosso sistema possui algumas checagens com o wbrowse, impossibilitando deixar o cAlias dele em branco, existe alguma outra maneira?\n\n\n[]s!!','',0,'','1mx1hl28',1,0,'',898,0,0),(32014,7039,6,449,0,'212.64.224.241',1179490712,1,0,1,1,1,1,'','','Hola,\n\nLo he probado con una version antigua y me funciona y para hacer pruebas ya me vale. Ahora la pregunta es la siguiente. Me sale el debugger en modo consola, pero hay un codigo de ejemplo en .\\source\\fwdbgp.prg, q parece ser un debugger en windows. Como se puede invocar este ?\n\n\nGracias.','',0,'','2n6vnt38',1,0,'',449,0,0),(32015,7008,6,959,0,'201.58.51.167',1179491078,1,0,1,1,1,0,'','','Antonio,\n\nAtualizei para FWH 7.05  e agora TUTOR01.PRG e o meu projeto não se arranca mais :\n\n\n[img:2z89flox]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem7&#46;JPG[/img:2z89flox]\n\n\nNo meu projeto não consigo linkar MENUS.C que antes era linkado normalmente :\n\nc:\\fwh\\include\\ClipApi.h(71): error: Expecting an enumerator identifier.\n\nc:\\fwh\\include\\ClipApi.h(71): error: Syntax error; found \'0\' expecting \'}\'.\n\nc:\\fwh\\include\\ClipApi.h(463): error: Redeclaration of \'strlen\' previously declared at C:\\xHB\\c_include\\string.h(30): found \'unsigned short __cdecl function(char *)\' expected \'unsigned int __cdecl function(const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(464): error: Redeclaration of \'strcpy\' previously declared at C:\\xHB\\c_include\\string.h(27): found \'void __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(465): error: Redeclaration of \'strcmp\' previously declared at C:\\xHB\\c_include\\string.h(25): found \'int __cdecl function(char *, char *)\' expected \'int __cdecl function(const char *, const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(466): error: Redeclaration of \'strcat\' previously declared at C:\\xHB\\c_include\\string.h(23): found \'unsigned char * __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(511): warning: Missing type specifier.\n\nMENUS.C(23): warning: Missing type specifier.\n\nMENUS.C(23): error: Syntax error; found \'HB_FUN_CREATEMENU\' expecting \';\'.\n\nMENUS.C(23): warning: Missing type specifier.\n\nMENUS.C(26): warning: Missing return value.\n\nMENUS.C(30): warning: Missing type specifier.\n\nMENUS.C(30): error: Syntax error; found \'HB_FUN_CREATEPOPUPMENU\' expecting \';\'.\n\nMENUS.C(30): warning: Missing type specifier.\n\nMENUS.C(33): warning: Missing return value.\n\nMENUS.C(37): warning: Missing type specifier.\n\nMENUS.C(37): error: Syntax error; found \'HB_FUN_TRACKPOPUP\' expecting \';\'.\n\nMENUS.C(37): warning: Missing type specifier.\n\nMENUS.C(41): warning: Missing return value.\n\nMENUS.C(45): warning: Missing type specifier.\n\nMENUS.C(45): error: Syntax error; found \'HB_FUN_ENABLEMENUITEM\' expecting \';\'.\n\nMENUS.C(45): warning: Missing type specifier.\n\nMENUS.C(48): warning: Missing return value.\n\nMENUS.C(52): warning: Missing type specifier.\n\nMENUS.C(52): error: Syntax error; found \'HB_FUN_CHECKMENUITEM\' expecting \';\'.\n\nMENUS.C(52): warning: Missing type specifier.\n\nMENUS.C(55): warning: Missing return value.\n\nMENUS.C(59): warning: Missing type specifier.\n\nMENUS.C(59): error: Syntax error; found \'HB_FUN_GETMITEMCOUNT\' expecting \';\'.\n\nMENUS.C(59): warning: Missing type specifier.\n\nMENUS.C(62): warning: Missing return value.\n\nMENUS.C(66): warning: Missing type specifier.\n\nMENUS.C(66): error: Syntax error; found \'HB_FUN_GETMITEMID\' expecting \';\'.\n\nMENUS.C(66): warning: Missing type specifier.\n\nMENUS.C(69): warning: Missing return value.\n\nMENUS.C(73): warning: Missing type specifier.\n\nMENUS.C(73): error: Syntax error; found \'HB_FUN_GETSYSTEMMENU\' expecting \';\'.\n\nMENUS.C(73): warning: Missing type specifier.\n\nMENUS.C(76): warning: Missing return value.\n\nMENUS.C(80): warning: Missing type specifier.\n\nMENUS.C(80): error: Syntax error; found \'HB_FUN_DESTROYMENU\' expecting \';\'.\n\nMENUS.C(80): warning: Missing type specifier.\n\nMENUS.C(83): warning: Missing return value.\n\nMENUS.C(87): warning: Missing type specifier.\n\nMENUS.C(87): error: Syntax error; found \'HB_FUN_GETSUBMENU\' expecting \';\'.\n\nMENUS.C(87): warning: Missing type specifier.\n\nMENUS.C(90): warning: Missing return value.\n\nMENUS.C(94): warning: Missing type specifier.\n\nMENUS.C(94): error: Syntax error; found \'HB_FUN_GETMENUSTRING\' expecting \';\'.\n\nMENUS.C(94): warning: Missing type specifier.\n\nMENUS.C(101): warning: Missing return value.\n\nMENUS.C(105): warning: Missing type specifier.\n\nMENUS.C(105): error: Syntax error; found \'HB_FUN_GETMENUSTATE\' expecting \';\'.\n\nMENUS.C(105): warning: Missing type specifier.\n\nMENUS.C(108): warning: Missing return value.\n\nMENUS.C(112): warning: Missing type specifier.\n\nMENUS.C(112): error: Syntax error; found \'HB_FUN_DRAWMENUBAR\' expecting \';\'.\n\nMENUS.C(112): warning: Missing type specifier.\n\nMENUS.C(115): warning: Missing return value.\n\nMENUS.C(119): warning: Missing type specifier.\n\nMENUS.C(119): error: Syntax error; found \'HB_FUN_HILITEMENUITEM\' expecting \';\'.\n\nMENUS.C(119): warning: Missing type specifier.\n\nMENUS.C(123): warning: Missing return value.\n\nMENUS.C(127): warning: Missing type specifier.\n\nMENUS.C(127): error: Syntax error; found \'HB_FUN_LOADMENU\' expecting \';\'.\n\nMENUS.C(127): warning: Missing type specifier.\n\nMENUS.C(132): warning: Missing return value.\n\nMENUS.C(136): warning: Missing type specifier.\n\nMENUS.C(136): error: Syntax error; found \'HB_FUN_APPENDMENU\' expecting \';\'.\n\nMENUS.C(136): warning: Missing type specifier.\n\nMENUS.C(140): warning: Missing return value.\n\nMENUS.C(144): warning: Missing type specifier.\n\nMENUS.C(144): error: Syntax error; found \'HB_FUN_SETMENU\' expecting \';\'.\n\nMENUS.C(144): warning: Missing type specifier.\n\nMENUS.C(147): warning: Missing return value.\n\nMENUS.C(151): warning: Missing type specifier.\n\nMENUS.C(151): error: Syntax error; found \'HB_FUN_MODIFYMENU\' expecting \';\'.\n\nMENUS.C(151): warning: Missing type specifier.\n\nMENUS.C(156): warning: Missing return value.\n\nMENUS.C(160): warning: Missing type specifier.\n\nMENUS.C(160): error: Syntax error; found \'HB_FUN_INSERTMENU\' expecting \';\'.\n\nMENUS.C(160): warning: Missing type specifier.\n\nMENUS.C(164): warning: Missing return value.\n\nMENUS.C(168): warning: Missing type specifier.\n\nMENUS.C(168): error: Syntax error; found \'HB_FUN_REMOVEMENU\' expecting \';\'.\n\nMENUS.C(168): warning: Missing type specifier.\n\nMENUS.C(173): warning: Missing return value.\n\nMENUS.C(177): warning: Missing type specifier.\n\nMENUS.C(177): error: Syntax error; found \'HB_FUN_ATMENUDRAWITEM\' expecting \';\'.\n\nMENUS.C(177): warning: Missing type specifier.\n\nMENUS.C(400): warning: Missing return value.\n\nMENUS.C(417): warning: Missing type specifier.\n\nMENUS.C(417): error: Syntax error; found \'HB_FUN_GETMEAITEM\' expecting \';\'.\n\nMENUS.C(417): warning: Missing type specifier.\n\nMENUS.C(422): warning: Missing return value.\n\nMENUS.C(426): warning: Missing type specifier.\n\nMENUS.C(426): error: Syntax error; found \'HB_FUN_GETDRAWITEM\' expecting \';\'.\n\nMENUS.C(426): warning: Missing type specifier.\n\nMENUS.C(431): warning: Missing return value.\n\nMENUS.C(435): warning: Missing type specifier.\n\nMENUS.C(435): error: Syntax error; found \'HB_FUN_GETDRAWMENU\' expecting \';\'.\n\nMENUS.C(435): warning: Missing type specifier.\n\nMENUS.C(440): warning: Missing return value.\n\nMENUS.C(444): warning: Missing type specifier.\n\nMENUS.C(444): error: Syntax error; found \'HB_FUN_ISMENU\' expecting \';\'.\n\nMENUS.C(444): warning: Missing type specifier.\n\nMENUS.C(447): warning: Missing return value.\n\nMENUS.C(451): warning: Missing type specifier.\n\nMENUS.C(452): warning: Missing prototype for \'HB_FUNC\'.\n\nMENUS.C(454): warning: Missing return value.\n\nMENUS.C(458): warning: Missing type specifier.\n\nMENUS.C(459): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(451).\n\nMENUS.C(462): warning: Missing prototype for \'hb_parnl\'.\n\nMENUS.C(463): warning: Missing prototype for \'hb_parl\'.\n\nMENUS.C(468): warning: Missing prototype for \'hb_parc\'.\n\nMENUS.C(468): warning: Conversion from \'const char *\' to \'int\' is undefined.\n\nMENUS.C(473): warning: Conversion from \'const char *\' to \'int\' is undefined.\n\nMENUS.C(501): warning: Missing return value.\n\nMENUS.C(504): warning: Missing type specifier.\n\nMENUS.C(505): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(458).\n\nMENUS.C(516): warning: Missing return value.\n\nMENUS.C(519): warning: Missing type specifier.\n\nMENUS.C(520): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(504).\n\nMENUS.C(524): warning: Missing return value.\n\nMENUS.C(526): warning: Missing type specifier.\n\nMENUS.C(527): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(519).\n\nMENUS.C(532): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(533): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(534): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(535): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(536): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(537): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(538): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(539): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(540): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(541): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(542): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(543): warning: Missing prototype for \'_stornd\'.\n\nMENUS.C(545): warning: Missing return value.\n\nMENUS.C(547): warning: Missing type specifier.\n\nMENUS.C(548): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(526).\n\nMENUS.C(553): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(554): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(555): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(556): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(557): warning: Overflow in converting constant expression from \'unsigned int\' to \'unsigned short\'.\n\nMENUS.C(558): warning: Missing prototype for \'_stornd\'.\n\nMENUS.C(560): warning: Missing return value.\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: MENUS.obj&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\n\n\nPoderia me ajudar por favor.\n\nGracias\n\nMário','',0,'CA==','2z89flox',1,0,'',959,0,0),(32016,7038,6,316,0,'213.97.245.163',1179492289,1,0,0,1,1,0,'','','He descubierto cual es el problema. EasyPreview necesita de los WMF, y la nueva versión de TPrinter usa EMF.\n\nHe incluido como parte del proyecto la version antigua de TPrinter (FW2.5) y el programa ahora funciona.\nAntonio: Ves algun inconveniente en hacer eso?\n\nCon tiempo veré si puedo cambiar algo en la TPrinter, de modo que se pueda optar por seguir generarndo WMF en lugar de EMF.\n\nSaludos,\n\nCarlos.','',0,'CA==','3ctr8o17',1,0,'',316,0,0),(32017,7031,2,1065,0,'201.116.83.242',1179492377,1,0,1,1,1,0,'','gracias','BLX286 :1313 exception error 0D: general protection fault, code=000h \npero el blx286 de que es .\n\nya compile con blinker  exe compress 5 y parece que ya no de ma el error\n\nGracias.','',0,'CA==','dwb9uw7o',1,0,'',1065,0,0),(32018,7040,7,596,0,'80.37.11.90',1179493150,1,0,1,1,1,1,'','Error al compilar con FWPPC de Mayo-2007','Al compilar el programa MEDIA.PRG que trae de ejemplo la FWPPC0705 me da estos errores:\n\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IUnknown referenced in function \"public: void __cdecl TActiveX&#058;:Add(char *)\" (?Add@TActiveX@@QAAXPAD@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IDispatch referenced in function HB_FUN_ACTXPDISP\nFiveCEC.lib(OLE.obj) : error LNK2019: unresolved external symbol IID_IDispatch referenced in function HB_FUN_OLEINVOKE\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleWindow referenced in function \"public: virtual long __cdecl TActiveX&#058;:QueryInterface(struct _GUID const &amp;,void * *)\" (?QueryInterface@TActiveX@@UAAJABU_GUID@@PAPAX@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleControlSite referenced in function \"public: virtual long __cdecl TActiveX&#058;:QueryInterface(struct _GUID const &amp;,void * *)\" (?QueryInterface@TActiveX@@UAAJABU_GUID@@PAPAX@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleInPlaceUIWindow referenced in function \"public: virtual long __cdecl TActiveX&#058;:QueryInterface(struct _GUID const &amp;,void * *)\" (?QueryInterface@TActiveX@@UAAJABU_GUID@@PAPAX@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleInPlaceFrame referenced in function \"public: virtual long __cdecl TActiveX&#058;:QueryInterface(struct _GUID const &amp;,void * *)\" (?QueryInterface@TActiveX@@UAAJABU_GUID@@PAPAX@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleInPlaceSite referenced in function \"public: virtual long __cdecl TActiveX&#058;:QueryInterface(struct _GUID const &amp;,void * *)\" (?QueryInterface@TActiveX@@UAAJABU_GUID@@PAPAX@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleClientSite referenced in function \"public: virtual long __cdecl TActiveX&#058;:QueryInterface(struct _GUID const &amp;,void * *)\" (?QueryInterface@TActiveX@@UAAJABU_GUID@@PAPAX@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IPersistStreamInit referenced in function \"public: void __cdecl TActiveX&#058;:Add(char *)\" (?Add@TActiveX@@QAAXPAD@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleObject referenced in function \"public: void __cdecl TActiveX&#058;:Add(char *)\" (?Add@TActiveX@@QAAXPAD@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IOleInPlaceObject referenced in function \"public: void __cdecl TActiveX&#058;:remove(void)\" (?remove@TActiveX@@QAAXXZ)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IProvideClassInfo2 referenced in function \"private: void __cdecl TActiveX&#058;:ConnectEvents(void)\" (?ConnectEvents@TActiveX@@AAAXXZ)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol DIID_DWebBrowserEvents2 referenced in function \"private: void __cdecl TActiveX&#058;:DisconnectEvents(void)\" (?DisconnectEvents@TActiveX@@AAAXXZ)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol IID_IConnectionPointContainer referenced in function \"private: struct IConnectionPoint * __cdecl TActiveX&#058;:GetConnectionPoint(struct _GUID const &amp;)\" (?GetConnectionPoint@TActiveX@@AAAPAUIConnectionPoint@@ABU_GUID@@@Z)\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol VarR8FromDec referenced in function InvokeEvent\nFiveCEC.lib(OLE.obj) : error LNK2001: unresolved external symbol VarR8FromDec\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol VarR8FromCy referenced in function InvokeEvent\nFiveCEC.lib(OLE.obj) : error LNK2001: unresolved external symbol VarR8FromCy\nFiveCEC.lib(ACTX.obj) : error LNK2019: unresolved external symbol LoadTypeLib referenced in function HB_FUN_ACTXEVENTS\nFiveCEC.lib(OLE.obj) : error LNK2019: unresolved external symbol GUID_NULL referenced in function HB_FUN_OLEINVOKE\nFiveCEC.lib(OLE.obj) : error LNK2019: unresolved external symbol VariantInit referenced in function HB_FUN_OLEINVOKE\nFiveCEC.lib(OLE.obj) : error LNK2019: unresolved external symbol SysAllocString referenced in function GetParams\nFiveCEC.lib(OLE.obj) : error LNK2019: unresolved external symbol VariantClear referenced in function FreeParams\nmedia.exe : fatal error LNK1120: 21 unresolved externals\n\nes al linkar... creo.\n\nAlguna pista.','',0,'CA==','26czi088',1,0,'',596,0,0),(32019,6647,7,596,0,'80.37.11.90',1179493298,1,0,1,1,1,1,'','Re: Soporte de ActiveX!','[quote=&quot;Antonio Linares&quot;:2yjpvo2e]Aalgunos ejemplos y publicaremos un nuevo build cuanto antes[/quote:2yjpvo2e]\nAl compilar me da un error...\nHe creado un tema [b:2yjpvo2e]Error al compilar con FWPPC de Mayo-2007[/b:2yjpvo2e]\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7040\">http://fivetechsoft.com/forums/viewtopic.php?t=7040</a><!-- m -->\n\nA ver que solucion hay...','',0,'wA==','2yjpvo2e',1,0,'',596,0,0),(32020,7041,6,294,0,'201.250.209.79',1179493348,1,0,1,1,1,1,'','Impresores fiscales','Estimados Foristas:\nEstoy tratando de utilizar la DLL WINFIS32.DLL que provee Casio Hasar para manejar los controladores fiscales en Argentina, y me encuentro con un error. La funcion de la dll OpenComFiscal, me abre el puerto y luego me lo cierra, por lo que no me permite ejecutar ningun otro comando, ya que el Handler de la funcion no se encuentra activo. Esto lo veo en el archivo de seguimiento de la dll (seteado con FILELOG) donde me queda así:\nDLL 32 bits Versión 301\nOpenComFiscal COM1.\nOpen port COM1...\nOpenPort OK, PortNumber 0\nOK: Handler 0 Mode ANSI\nA BusyWaitingMode\nBusyWaitingMode ON\nLlamo a CleanUp\nCloseComFiscal: Cierro Handler 0\nCierro el puerto 1\nDLL 32 bits Versión 301\nError: Handler 0 no inicializado\n\n[b:1yy7svn4]Las funciones de la DLL la declaro asi:[/b:1yy7svn4]\nDLL32 FUNCTION OPENCOMFIS( Com AS LONG, Mode AS LONG) AS LONG PASCAL FROM \"OpenComFiscal\" LIB \"WiNFis32.DLL\"\nDLL32 FUNCTION MANDAPAQUE( Handle AS LONG, Buffer AS STRING) AS LONG PASCAL FROM \"MandaPaqueteFiscal\" LIB \"WiNFis32.DLL\"\nDLL32 FUNCTION ULTIMOSTAT( Handle AS LONG, FStatus AS WORD, PStatus AS WORD) AS LONG PASCAL  FROM \"UltimoStatus\" LIB \"WiNFis32.DLL\"\nDLL32 FUNCTION ULTIMARESP( Handle AS LONG, Buffer AS STRING) AS LONG PASCAL FROM \"UltimaRespuesta\" LIB \"WiNFis32.DLL\"\nDLL32 FUNCTION CLOSECOMFI( Handle AS LONG )  AS LONG PASCAL     FROM \"CloseComFiscal\" LIB \"WiNFis32.DLL\"\nDLL32 FUNCTION INITFISCAL( Handle AS LONG )  AS LONG PASCAL        FROM \"InitFiscal\" LIB \"WiNFis32.DLL\"\nDLL32 FUNCTION SearchPrn( Handler AS LONG) AS LONG PASCAL      LIB \"WiNFis32.DLL\"\n\nSi alguien ya tuvo este problema, o solucionó el tema de controladores fiscales, agradecería su ayuda.\nAtte\nCesar','',0,'QA==','1yy7svn4',1,0,'',294,0,0),(32021,7029,6,103,0,'201.8.91.134',1179497166,1,0,1,1,1,1,'','','Armando,\n\n     Gracias por la contestación y ejemplo, pero lo que deseo es que fuera algo propio de la clase TPrinter para que se quede mas facil la previsualización en cualquier impresora con resolución diferente. Si hago reportes con TReport, el problema me aparece nuevamente y no hay nada que se pueda hacer.\n\nSaludos,','',0,'QA==','32ifyh32',1,0,'',103,0,0),(32022,7042,3,1023,0,'201.92.184.200',1179497593,1,0,1,1,1,0,'','Duvida sobre os #defines','Eu adicionei uma linha no \"FiveWin.ch\" com um #define de uma variavel que uso em varios documentos, como fasso para redefinir esse valor em outras partes do código de forma que a modificação seja vista por todos os documento que usam o include fo FiveWin?\n\nUm abraço a todos, obrigado.','',0,'QA==','1j9g2dkj',1,0,'',1023,0,0),(32023,7040,7,2,0,'87.218.146.2',1179497641,1,0,1,1,1,1,'','','Tienes que enlazar estas librerías de Microsoft VCE:\n\nole32.lib\noleaut32.lib\nolece400.lib\nuuid.lib','',0,'QA==','2jmh2de7',1,0,'',2,0,0),(32024,7029,6,376,0,'201.230.184.40',1179497650,1,0,1,1,1,1,'','','Tienes razón... Habría que modificar la clase para darle las características que indicas.','',0,'QA==','1fmjizkc',1,0,'',376,0,0),(32025,6647,7,2,0,'87.218.146.2',1179497666,1,0,1,1,1,1,'','','Contestado en ese tema','',0,'QA==','1p9sncwg',1,0,'',2,0,0),(32026,7043,1,266,0,'60.53.92.186',1179498063,1,0,1,1,1,1,'','scroll wheel mouse','I use FWv1.95, and can\'t find a mousewheel function.\n \nHow to code the scroll wheel with Listbox or wbrowse ?','',0,'QA==','1psowdv5',1,0,'',266,0,0),(32027,7008,6,2,0,'87.218.146.2',1179498238,1,0,1,1,1,1,'','','Mario,\n\nAqui funciona correctamente FWH 7.05 y xHB. Por favor elimina los ficheros temporales C y OBJ que puedas tener de una versión anterior:\n[url=http&#58;//imageshack&#46;us:1i168ws3][img:1i168ws3]http&#58;//img524&#46;imageshack&#46;us/img524/3264/tutor01gi4&#46;png[/img:1i168ws3][/url:1i168ws3]','',0,'GA==','1i168ws3',1,0,'',2,0,0),(32028,7008,6,2,0,'87.218.146.2',1179498289,1,0,1,1,1,1,'','','Mario,\n\nEl módulos menus.c que intentas compilar es el de FWH ?','',0,'GA==','8nsobrzl',1,0,'',2,0,0),(32029,7039,6,2,0,'87.218.146.2',1179498373,1,0,1,1,1,1,'','','Carles,\n\nEse código de debugger es sólo para FiveWin con Clipper 16 bits','',0,'GA==','1rseu4r3',1,0,'',2,0,0),(32030,7035,6,2,0,'87.218.146.2',1179498443,1,0,1,1,1,1,'','','Carlos,\n\nEsos errores tendrás que reportarlos en la lista de desarrollo de xharbour, para que puedan ayudarte, ya que es algo propio de xharbour. Gracias,','',0,'GA==','1y6dv0cx',1,0,'',2,0,0),(32031,7008,6,959,0,'201.58.51.167',1179498672,1,0,1,1,1,0,'','','Antonio,\n\n  Na verdade não está compilando nenhum arquivo .C todos estes estão provocando o mesmo erro :\n\n[MENUS.C]\nMYC_FLAGS =\nMYDEFINES =\n\n[GRADFILL.C]\nMYC_FLAGS =\nMYDEFINES =\n\n[TABCTRL.C]\nMYC_FLAGS =\nMYDEFINES =\n\n[POINT.C]\nMYC_FLAGS =\nMYDEFINES =\n\n[SETMASK.C]\nMYC_FLAGS =\nMYDEFINES =\n\n[TREEDRAW.C]\nMYC_FLAGS =\nMYDEFINES =\n\nEste é o arquivo MENU.C\n\n#define OEMRESOURCE\n\n#include &lt;WinTen.h&gt;\n#include &lt;Windows.h&gt;\n#include &lt;ClipApi.h&gt;\n\nBOOL bStrAt( BYTE bChar, LPSTR szText );\nLPSTR StrToken( LPSTR szText, WORD wOcurrence, BYTE bSeparator, LPWORD pwLen );\n\nvoid WindowBoxIn( HDC hDC, RECT * pRect );\nvoid WndDrawBox( HDC hDC, RECT * rct, HPEN hPUpLeft, HPEN hPBotRit );\nvoid WindowInset( HDC hDC, RECT * pRect );\nvoid WindowRaised( HDC hDC, RECT * pRect );\nvoid DrawBitmap( HDC, HBITMAP, WORD, WORD, WORD, WORD, DWORD );\nvoid DrawMasked( HDC, HBITMAP, WORD, WORD );\nvoid DrawGrayed( HDC, HBITMAP, int, int );\nvoid RectDisable( HDC, LPRECT);\nvoid DegardeFill( HDC hDC, RECT * rori, COLORREF cFrom, COLORREF cTo, int nDegType ) ;\nvoid DegradColor( HDC hDC, RECT * rori, COLORREF cFrom, COLORREF cTo, int nDegType, int iRound ) ;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_CREATEMENU( PARAMS )\n{\n   _retnl( ( LONG ) CreateMenu() );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_CREATEPOPUPMENU( PARAMS )\n{\n   _retnl( ( LONG ) CreatePopupMenu() );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_TRACKPOPUP( PARAMS )\n{\n  _retl( TrackPopupMenu( ( HMENU ) _parnl( 1 ), _parni( 2 ), _parni( 4 ),\n         _parni( 3 ), _parni( 5 ), ( HWND ) _parni( 6 ), NULL ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_ENABLEMENUITEM( PARAMS )\n{\n   _retl( EnableMenuItem( ( HMENU ) _parnl( 1 ), _parni( 2 ), _parni( 3 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_CHECKMENUITEM( PARAMS )   // ()\n{\n   _retl( CheckMenuItem( ( HMENU ) _parnl( 1 ), _parni( 2 ), _parni( 3 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMITEMCOUNT( PARAMS )   // ()\n{\n   _retni( GetMenuItemCount( ( HMENU ) _parnl( 1 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMITEMID( PARAMS )    // hMenu, nPos\n{\n   _retni( GetMenuItemID( ( HMENU ) _parnl( 1 ), _parni( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETSYSTEMMENU( PARAMS )    // ()\n{\n   _retnl( ( LONG ) GetSystemMenu( ( HWND ) _parnl( 1 ), _parl( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_DESTROYMENU( PARAMS )   //  ()   hMenu\n{\n   _retl( DestroyMenu( ( HMENU ) _parnl( 1 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETSUBMENU( PARAMS )    // hMenu, nPos\n{\n   _retnl( ( LONG ) GetSubMenu( ( HMENU ) _parnl( 1 ), _parni( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMENUSTRING( PARAMS )    // ()   hMenu, nId, nPosOrValue\n{\n   BYTE bBuffer[ 200 ];\n   WORD wLen = GetMenuString( ( HMENU ) _parnl( 1 ), _parni( 2 ), ( char * ) bBuffer,\n                              199, _parni( 3 ) );\n\n   _retclen( ( char * ) bBuffer, wLen );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMENUSTATE( PARAMS )    // ()   hMenu, nId, nFlags\n{\n   _retni( GetMenuState( ( HMENU ) _parnl( 1 ), _parni( 2 ), _parni( 3 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_DRAWMENUBAR( PARAMS )    // ()    hWnd\n{\n   DrawMenuBar( ( HWND ) _parnl( 1 ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_HILITEMENUITEM( PARAMS )  // ()  hWnd, hMenu, idItem, nHiliteFlags\n{\n   _retl( HiliteMenuItem( ( HWND ) _parnl( 1 ), ( HMENU ) _parnl( 2 ),\n                          _parni( 3 ), _parni( 4 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_LOADMENU( PARAMS )\n{\n   _retnl( ( LONG ) LoadMenu( ( HINSTANCE ) _parnl( 1 ),\n                     ( LPSTR ) IF( ISCHAR( 2 ), _parc( 2 ),\n                                   MAKEINTRESOURCE( _parni( 2 ) ) ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_APPENDMENU( PARAMS )\n{\n   _retl( AppendMenu( ( HMENU ) _parnl( 1 ), ( UINT ) _parnl( 2 ), _parnl( 3 ),\n                       IF( ISCHAR( 4 ), _parc( 4 ), ( LPSTR ) _parnl( 4 ) ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_SETMENU( PARAMS )\n{\n   _retl( SetMenu( ( HWND ) _parnl( 1 ), ( HMENU ) _parnl( 2 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_MODIFYMENU( PARAMS )\n{\n   _retl( ModifyMenu( ( HMENU ) _parnl( 1 ), ( UINT ) _parni( 2 ),\n          _parni( 3 ), ( UINT ) _parni( 4 ),\n          IF( ISCHAR( 5 ), _parc( 5 ), ( LPSTR ) _parnl( 5 ) ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_INSERTMENU( PARAMS ) // ( hMenu, nIdItem, nFlags, nNewItem, cPrompt ) --&gt; lSuccess\n{\n   _retl( InsertMenu( ( HMENU ) _parnl( 1 ), _parni( 2 ), _parni( 3 ),\n                      _parni( 4 ), _parc( 5 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_REMOVEMENU( PARAMS ) // ( hMenu, nItem, nFlags ) --&gt; lSuccess\n{\n   _retl( RemoveMenu( ( HMENU ) _parnl( 1 ),\n                      ( UINT ) _parni( 2 ),\n                      ( UINT ) _parni( 3 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_ATMENUDRAWITEM( PARAMS ) // ( pDrawItemStruct, cPrompt, lTop, hBitmap,lSeparator,acolor,lbar )\n{\n   LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) _parnl( 1 );\n   LPSTR szPrompt = _parc( 2 );\n   BOOL bTab = bStrAt( 9, szPrompt );\n   WORD wLen;\n   BOOL lSeparator = _parl( 5 );\n   BOOL lBar       = _parl( 7 );\n   HPEN hNormal,hOldPen;\n   HBRUSH hBrush;\n   LOGBRUSH lb;\n   RECT rct;\n   RECT rctdg;\n   RECT rctsep;\n   RECT rctshd;\n   COLORREF nClrMenu     =  _parnl(6,1);\n   COLORREF nClrMenuTxt  =  _parnl(6,2);\n   COLORREF nClrBack     =  _parnl(6,3);\n   COLORREF nClrTo       =  _parnl(6,4);\n   COLORREF nClrHighBai  =  _parnl(6,5);\n   COLORREF nClrHighBaf  =  _parnl(6,6);\n   COLORREF nClrHighTxt  =  _parnl(6,7);\n   COLORREF nClrHighBar  =  _parnl(6,8);\n\n   HBITMAP hBmp = ( HBITMAP ) _parnl( 4 );\n   switch( lpdis-&gt;itemAction )\n   {\n      case ODA_DRAWENTIRE:\n      case ODA_SELECT:\n           lb.lbStyle = BS_SOLID;\n           lb.lbColor = nClrMenu;\n           hBrush = CreateBrushIndirect( &amp;lb );\n           FillRect( lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem, hBrush );\n           DeleteObject( hBrush );\n\n           SetBkColor( lpdis-&gt;hDC, nClrMenu );\n           SetBkMode( lpdis-&gt;hDC, TRANSPARENT );\n           SetTextColor( lpdis-&gt;hDC, nClrMenuTxt);\n\n\n           if( lpdis-&gt;itemState &amp; ODS_SELECTED &amp;&amp;\n               ! ( lpdis-&gt;itemState &amp; ODS_GRAYED ) &amp;&amp; !lSeparator )\n           {\n              lb.lbColor = nClrHighBai;\n              SetBkColor( lpdis-&gt;hDC, nClrHighBai );\n              SetTextColor( lpdis-&gt;hDC, nClrHighTxt );\n              if( !lBar )\n                lpdis-&gt;rcItem.left += 22;\n           }\n           else\n              lb.lbColor = nClrMenu;\n\n\n           hBrush = CreateBrushIndirect( &amp;lb );\n           FillRect( lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem, hBrush );\n           DeleteObject( hBrush );\n           if( lpdis-&gt;itemState &amp; ODS_SELECTED &amp;&amp;\n              ! ( lpdis-&gt;itemState &amp; ODS_GRAYED ) )\n           {\n             if( !lBar )\n                 lpdis-&gt;rcItem.left -= 22;\n           }\n\n           if(!lBar)\n           {\n             rct.top    = lpdis-&gt;rcItem.top+1;\n             rct.left   = lpdis-&gt;rcItem.left+1;\n             rct.right  = lpdis-&gt;rcItem.right-1; //22;\n             rct.bottom = lpdis-&gt;rcItem.bottom - 2;\n           }\n           else\n           {\n             rct.top    = lpdis-&gt;rcItem.top+1;\n             rct.left   = lpdis-&gt;rcItem.left+1;\n             rct.right  = lpdis-&gt;rcItem.right-4;\n             rct.bottom = lpdis-&gt;rcItem.bottom - 1;\n\n             rctshd.top    = lpdis-&gt;rcItem.top+3;\n             rctshd.left   = lpdis-&gt;rcItem.right-3;\n             rctshd.right  = lpdis-&gt;rcItem.right;\n             rctshd.bottom = lpdis-&gt;rcItem.bottom;\n\n           }\n\n           rctdg.top    = lpdis-&gt;rcItem.top-1; //-4\n           rctdg.left   = lpdis-&gt;rcItem.left;\n           rctdg.right  = 22;\n           rctdg.bottom = lpdis-&gt;rcItem.bottom+1; // - 1;\n\n           if( !lBar )\n              DegradColor( lpdis-&gt;hDC, &amp;rctdg, nClrBack, nClrTo, 2, 1 ) ;\n\n           if( lpdis-&gt;itemState &amp; ODS_SELECTED )\n              if( ! ( lpdis-&gt;itemState &amp; ODS_GRAYED ) ) //&amp;&amp;\n                {\n                     hNormal = CreatePen(PS_SOLID,0,nClrHighBar);\n                     hOldPen = SelectObject(lpdis-&gt;hDC,hNormal);\n                     Rectangle(lpdis-&gt;hDC,rct.left-1,rct.top-1,rct.right+1,rct.bottom+1);\n                     SelectObject(lpdis-&gt;hDC,hOldPen);\n                     DeleteObject( hNormal );\n                     DegradColor( lpdis-&gt;hDC, &amp;rct, nClrHighBai, nClrHighBaf, 1, 1 ) ;\n                     if(lBar)\n                     {\n                       lb.lbColor = GetSysColor(16);\n                       hBrush = CreateBrushIndirect( &amp;lb );\n                       FillRect( lpdis-&gt;hDC, &amp;rctshd, hBrush );\n                       DeleteObject( hBrush );\n                       rctshd.top    = lpdis-&gt;rcItem.top;\n                       rctshd.left   = lpdis-&gt;rcItem.right-3;\n                       rctshd.right  = lpdis-&gt;rcItem.right;\n                       rctshd.bottom = lpdis-&gt;rcItem.top+3;\n                       lb.lbColor = nClrMenu;\n                       hBrush = CreateBrushIndirect( &amp;lb );\n                       FillRect( lpdis-&gt;hDC, &amp;rctshd, hBrush );\n                       DeleteObject( hBrush );\n\n                     }\n                }\nif(!lBar)\n{\n\n           if( lpdis-&gt;itemState &amp; ODS_CHECKED )\n           {\n              HBITMAP hBmp = LoadBitmap( 0, MAKEINTRESOURCE( OBM_CHECK ) );\n\n              if( ! ( lpdis-&gt;itemState &amp; ODS_SELECTED ) )\n                 DrawMasked( lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem.top + 3,\n                             lpdis-&gt;rcItem.left + 4 );\n              else\n                 DrawMasked( lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem.top + 3,\n                             lpdis-&gt;rcItem.left + 4 );\n              DeleteObject( hBmp );\n           }\n\n\n           if( hBmp  &amp;&amp; !( (int) hBmp == 1 )  )\n           {\n              if( ! ( lpdis-&gt;itemState &amp; ODS_CHECKED ) )\n                 DrawMasked( lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem.top + 3, //ojo\n                            lpdis-&gt;rcItem.left + 2 );\n              else\n                 if( ! ( lpdis-&gt;itemState &amp; ODS_SELECTED ) )\n                    DrawGrayed( lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem.top + 3,\n                                lpdis-&gt;rcItem.left + 2 );\n                 else\n                    DrawMasked( lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem.top + 3,\n                                lpdis-&gt;rcItem.left + 2 );\n           }\n}\n           if(!lBar)\n           {\n             lpdis-&gt;rcItem.top  += 4;\n             lpdis-&gt;rcItem.left += 26;\n           }\n           else\n           {\n             lpdis-&gt;rcItem.top  += 2;\n             lpdis-&gt;rcItem.left += 3;\n           }\n           if( !bTab )\n           {\n              if( lSeparator )\n              {\n                 rctsep.top    = lpdis-&gt;rcItem.top-1;\n                 rctsep.left   = lpdis-&gt;rcItem.left;\n                 rctsep.right  = lpdis-&gt;rcItem.right+5;\n                 rctsep.bottom = lpdis-&gt;rcItem.bottom - 4;\n                 lb.lbStyle = BS_SOLID;\n                 lb.lbColor = nClrHighBar ;\n                 hBrush = CreateBrushIndirect( &amp;lb );\n                 FillRect( lpdis-&gt;hDC, &amp;rctsep, hBrush );\n                 DeleteObject( hBrush );\n              }\n              else\n              {\n              if(!lBar)\n                {\n                   DrawText( lpdis-&gt;hDC, szPrompt, -1, &amp;lpdis-&gt;rcItem, DT_LEFT );\n                }\n                else\n                {\n                   lpdis-&gt;rcItem.left -= 5;\n                   DrawText( lpdis-&gt;hDC, szPrompt, -1, &amp;lpdis-&gt;rcItem, DT_CENTER );\n                   lpdis-&gt;rcItem.left += 5;\n                }\n              }\n           }\n           else\n           {\n              lpdis-&gt;rcItem.right -= 26;\n              StrToken( szPrompt, 1, 9, &amp;wLen ); // 32 bits does not fill wLen before\n              DrawText( lpdis-&gt;hDC, StrToken(szPrompt, 1, 9, &amp;wLen), wLen, &amp;lpdis-&gt;rcItem, DT_LEFT );\n              StrToken( szPrompt, 2, 9, &amp;wLen ); // 32 bits does not fill wLen before\n              DrawText( lpdis-&gt;hDC, StrToken(szPrompt, 2, 9, &amp;wLen), wLen, &amp;lpdis-&gt;rcItem, DT_RIGHT );\n              lpdis-&gt;rcItem.right += 26;\n           }\n           if(!lBar)\n           {\n             /*\n              if( !lSeparator )\n                {\n                if( lpdis-&gt;itemState &amp; ODS_GRAYED )\n                   RectDisable( lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem );\n                }\n             */\n             lpdis-&gt;rcItem.top  -= 4;\n             lpdis-&gt;rcItem.left -= 26;\n           }\n           else\n           {\n             lpdis-&gt;rcItem.top  -= 2;\n             lpdis-&gt;rcItem.left -= 4;\n           }\n\n\n\n           _retl( TRUE );\n           break;\n\n      case ODA_FOCUS:\n           _retl( FALSE );\n           break;\n   }\n}\n\n//----------------------------------------------------------------------------//\n/*\n#ifdef __HARBOUR__\n   CLIPPER MENUMEASUREITEM( PARAMS ) // ( pMeasureItemStruct, nLen )\n#else\n   CLIPPER MENUMEASUR( PARAMS ) // EITEM( pMeasureItemStruct, nLen )\n#endif\n{\n   LPMEASUREITEMSTRUCT lp = ( LPMEASUREITEMSTRUCT ) _parnl( 1 );\n   lp-&gt;itemWidth  = _parni( 2 );\n   lp-&gt;itemHeight = GetSystemMetrics( SM_CYMENU ); //18\n}\n*/\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMEAITEM( PARAMS ) // ( pMeasureItemStruct ) --&gt; nMenuItemID\n{\n   LPMEASUREITEMSTRUCT lp = ( LPMEASUREITEMSTRUCT ) _parnl( 1 );\n\n   _retnl( lp-&gt;itemID );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETDRAWITEM( PARAMS ) // ( pDrawItemStruct ) --&gt; nMenuItemID\n{\n   LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) _parnl( 1 );\n\n   _retnl( lpdis-&gt;itemID );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETDRAWMENU( PARAMS ) // ( pDrawItemStruct ) --&gt; hMenu\n{\n   LPDRAWITEMSTRUCT lpdis = ( LPDRAWITEMSTRUCT ) _parnl( 1 );\n\n   _retnl( ( LONG ) lpdis-&gt;hwndItem );\n}\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_ISMENU( PARAMS )\n{\n   _retl( IsMenu( ( HMENU ) _parnl( 1 ) ) );\n}\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC( _GETMENUID)\n{\n    _retnl((LONG)GetMenu((HWND)_parnl(1)));\n}\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC ( _COLORMENU )\n{\n   HMENU      iMenu;\n   MENUINFO   iMenuInfo ;\n   COLORREF lColor = hb_parnl(2);\n   BOOL  lSubMenu = hb_parl(3);\n   HBITMAP himage ;\n// HWND  himage ;\n\n// himage = (HWND)LoadImage(0,hb_parc(4),IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT );\n   himage = (HBITMAP)LoadImage(0,hb_parc(4),IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT );\n\n   if (himage==NULL)\n     {\n//     himage = (HWND)LoadImage(GetModuleHandle(NULL),hb_parc(4),IMAGE_BITMAP ,0,0, LR_LOADMAP3DCOLORS   | LR_LOADTRANSPARENT );\n       himage = (HBITMAP)LoadImage(GetModuleHandle(NULL),hb_parc(4),IMAGE_BITMAP ,0,0, LR_LOADMAP3DCOLORS   | LR_LOADTRANSPARENT );\n     }\n\n   iMenu              = GetMenu((HWND) _parnl(1));\n   GetMenuInfo(iMenu, &amp;iMenuInfo);\n   iMenuInfo.cbSize   = sizeof(MENUINFO);\n\n   if (lSubMenu)\n    {\n      iMenuInfo.fMask    = MIM_BACKGROUND | MIM_APPLYTOSUBMENUS ;\n    }\n   else\n    {\n      iMenuInfo.fMask    = MIM_BACKGROUND;\n    }\n\n   if (himage==NULL)\n    {\n       iMenuInfo.hbrBack = CreateSolidBrush(lColor);\n    }\n   else\n    {\n       iMenuInfo.hbrBack = CreatePatternBrush(himage);\n    }\n\n   SetMenuInfo(iMenu, &amp;iMenuInfo);\n   DrawMenuBar((HWND) _parnl(1));\n\n}\n//----------------------------------------------------------------------------//\n\nHB_FUNC ( _COLORSUBMENU )\n{\n   HMENU      iMenu;\n   MENUINFO   iMenuInfo ;\n   COLORREF lColor = _parnl(2);\n   iMenu              = GetMenu((HWND) _parnl(1));\n   GetMenuInfo(iMenu, &amp;iMenuInfo);\n   iMenuInfo.cbSize   = sizeof(MENUINFO);\n   iMenuInfo.fMask    = MIM_BACKGROUND | MIM_APPLYTOSUBMENUS;\n   iMenuInfo.hbrBack  = CreateSolidBrush(lColor);\n   SetMenuInfo(iMenu, &amp;iMenuInfo);\n//   DrawMenuBar((HWND) _parnl(1));\n}\n\n//----------------------------------------------------------------------------//\nHB_FUNC( CHGMENUMEA ) // pMeasureItemStruct, nWidth, nHeight\n{\n   LPMEASUREITEMSTRUCT lp = ( LPMEASUREITEMSTRUCT ) _parnl( 1 );\n   lp-&gt;itemWidth  = _parni( 2 ) ;\n   lp-&gt;itemHeight = _parni( 3 ) ;\n}\n\nHB_FUNC( GETDRAWISR ) // ( pDrawitemstruct )\n{\n   LPDRAWITEMSTRUCT lp = ( LPDRAWITEMSTRUCT ) _parnl( 1 );\n\n   _reta( 12 );\n\n   _storni( lp-&gt;CtlType      ,    -1, 1  );\n   _storni( lp-&gt;CtlID        ,    -1, 2  );\n   _storni( lp-&gt;itemID       ,    -1, 3  );\n   _storni( lp-&gt;itemAction   ,    -1, 4  );\n   _storni( lp-&gt;itemState    ,    -1, 5  );\n   _storni( ( LONG ) lp-&gt;hwndItem     ,    -1, 6  );\n   _storni( ( LONG ) lp-&gt;hDC          ,    -1, 7  );\n   _storni( lp-&gt;rcItem.top   ,    -1, 8  );\n   _storni( lp-&gt;rcItem.left  ,    -1, 9  );\n   _storni( lp-&gt;rcItem.bottom,    -1, 10 );\n   _storni( lp-&gt;rcItem.right ,    -1, 11 );\n   _stornd( lp-&gt;itemData     ,    -1, 12 );\n\n}\n\nHB_FUNC( GETMEAUSUR ) // ( pMeasureItemStruct )\n{\n   LPMEASUREITEMSTRUCT lp = ( LPMEASUREITEMSTRUCT ) _parnl( 1 );\n\n   _reta( 6 );\n\n   _storni( lp-&gt;CtlType      ,    -1, 1  );\n   _storni( lp-&gt;CtlID        ,    -1, 2  );\n   _storni( lp-&gt;itemID       ,    -1, 3  );\n   _storni( lp-&gt;itemWidth    ,    -1, 4  );\n   _storni( lp-&gt;itemHeight   ,    -1, 5  );\n   _stornd( lp-&gt;itemData     ,    -1, 12 );\n\n}\n\n//----------------------------------------------------------------------------//','',0,'','3tiw8h8r',1,0,'',959,0,0),(32032,7038,6,2,0,'87.218.146.2',1179498739,1,0,1,1,1,1,'','','Carlos,\n\nLo idóneo sería comentárselo a Timm de EasyPreview y pedirle que lo actualice','',0,'','369n5xrp',1,0,'',2,0,0),(32033,7008,6,959,0,'201.58.51.167',1179498841,1,0,1,1,1,0,'','','Antonio,\n\n   Para não ter conflito de arquivos, deletei minhas pastas c:\\fwh e c:\\xHB e instalei novamente.\n\nCompilei FIVEHX.LIB com FIVEMAK.MAK conforme abaixo :\n\nMAKE5HX.BAT\n\n@ECHO OFF\nSET FWHDIR=c:\\FWH_1\nSET HDIR=c:\\XHB\nSET BCDIR=c:\\BCC55\ndel *.obj /s\ndel *.c /s\nDEL FIVEHX.LIB\nc:\\bcc55\\BIN\\MAKE -f FiveHX.mak\n\n\nFIVEHX.MAK\n\n!if !$d(FWHDIR)\n!error FWHDIR isn\'t defined\n!endif\n!if !$d(HDIR)\n!error HDIR isn\'t defined\n!endif\n!if !$d(BCDIR)\n!error BCDIR isn\'t defined\n!endif\n\n.path.obj = obj\n.path.res = obj\n.path.c   = c\n.path.prg = prg\n\n\nBCC_OPT =  -d $(CFLAGS)\n.SUFFIXES: .exe .obj .c\n\nFiveHX_LIB_OBJS = \\\nactivex.prg \\\nalert.obj \\\nbar.obj \\\nbitmap.obj \\\nblock.obj \\\nbrowse.obj \\\nbrush.obj \\\nbtnbmp.obj \\\nbutton.obj \\\nbuttonb.obj \\\nc3.obj \\\ncheckbox.obj \\\nclipbrd.obj \\\nclipmore.obj \\\ncombobox.obj \\\ncontrol.obj \\\ncursor.obj \\\ndatabase.obj \\\ndb10.obj \\\ndbcombo.obj \\\ndbm.obj \\\ndbms.obj \\\ndbtools.obj \\\ndde.obj \\\nddeclien.obj \\\nddeserv.obj \\\ndialog.obj \\\ndlgfind.obj \\\ndlgs32.obj \\\nedit.obj \\\neditcell.obj \\\nerrsysw.obj \\\nfget.obj \\\nfield.obj \\\nfilename.obj \\\nfline.obj \\\nfolder.obj \\\nfont.obj \\\nfwdbgp.obj \\\nfwerror.obj \\\ngetsysin.obj \\\ngettasks.obj \\\ngroup.obj \\\ngtf.obj \\\nharbour.obj \\\nhelp32.obj \\\nicon.obj \\\niget.obj \\\nigroup.obj \\\nimage.obj \\\nini.obj \\\ninternet.obj \\\nkeys.obj \\\nlinklist.obj \\\nlistbox.obj \\\nloadval.obj \\\nlongnam2.obj \\\nmath.obj \\\nmdichild.obj \\\nmdiclien.obj \\\nmdiframe.obj \\\nmdirec.obj \\\nmemoedit.obj \\\nmemstat.obj \\\nmenu.obj \\\nmenuitem.obj \\\nmeter.obj \\\nmget.obj \\\nmimeclip.obj \\\nmru.obj \\\nmsgbar.obj \\\nmsgcalc.obj \\\nmsgget.obj \\\nmsglist.obj \\\nmsglogo.obj \\\nmsgmeter.obj \\\nmsgrun.obj \\\nmsgtbar.obj \\\nnetapi32.obj \\\nng.obj \\\nobjects.obj \\\nobjfile.obj \\\nodata.obj \\\nodbc.obj \\\nodbc32.obj \\\noutlook.obj \\\npdmenu.obj \\\npdreport.obj \\\npen.obj \\\nprinter.obj \\\nradio.obj \\\nradmenu.obj \\\nrandom.obj \\\nras32.obj \\\nrcolumn.obj \\\nrebar.obj \\\nrect.obj \\\nreg32.obj \\\nregistry.obj \\\nreport.obj \\\nrfile.obj \\\nrgroup.obj \\\nrline.obj \\\nrpreview.obj \\\nrrw.obj \\\nrtffile.obj \\\nsay.obj \\\nscrllbar.obj \\\nselector.obj \\\nshellapi.obj \\\nslider.obj \\\nsplitter.obj \\\nsqlerror.obj \\\nstatics.obj \\\nstatusba.obj \\\ntabs.obj \\\ntacctbl.obj \\\ntanimate.obj \\\ntcbrowse.obj \\\ntccolumn.obj \\\ntclipget.obj \\\ntcomm.obj \\\ntcomobj.obj \\\ntcompone.obj \\\ntctrsock.obj \\\ntdbase.obj \\\ntdbfcomp.obj \\\ntdbodbc.obj \\\ntdbodbcd.obj \\\ntddemlcl.obj \\\ntddemlsv.obj \\\ntdict.obj \\\ntdosprn.obj \\\ntdtpicke.obj \\\ntenhmeta.obj \\\ntexstruc.obj \\\ntfield.obj \\\ntfile.obj \\\ntfilegtf.obj \\\ntform.obj \\\ntftp.obj \\\ntftpcli.obj \\\ntftpfile.obj \\\ntftpserv.obj \\\ntftpsess.obj \\\ntget.obj \\\ntgraph.obj \\\ntheader.obj \\\nthtmlpag.obj \\\ntimaglst.obj \\\ntime.obj \\\ntimer.obj \\\ntindex.obj \\\ntlex.obj \\\ntlib.obj \\\ntlistvie.obj \\\ntlocks.obj \\\ntmail.obj \\\ntmci.obj \\\ntmetafil.obj \\\ntmnucomp.obj \\\ntmsgitem.obj \\\ntnewsins.obj \\\ntnewssrv.obj \\\ntodbc.obj \\\ntoolbar.obj \\\ntordinfo.obj \\\ntpages.obj \\\ntpanel.obj \\\ntparser.obj \\\ntpop3.obj \\\ntprogres.obj \\\ntproxy.obj \\\ntrackbar.obj \\\ntras.obj \\\ntrdd.obj \\\ntrddodbc.obj \\\ntreeitem.obj \\\ntrees.obj \\\ntresourc.obj \\\ntrichedi.obj \\\ntsmtp.obj \\\ntsocket.obj \\\ntstring.obj \\\ntstruct.obj \\\ntsymbol.obj \\\ntsymtabl.obj \\\nttabctrl.obj \\\nttable.obj \\\nttmpicke.obj \\\nttray.obj \\\nttreevie.obj \\\nttvitem.obj \\\nttxtedit.obj \\\nttxtfile.obj \\\ntview.obj \\\ntwebclie.obj \\\ntwebserv.obj \\\ntyacc.obj \\\nurllink.obj \\\nvalblank.obj \\\nvbxarray.obj \\\nvideo.obj \\\nwbrowse.obj \\\nwindow.obj \\\nwininet.obj \\\nwqout.obj \\\nxbrowse.obj \\\nxpad.obj \\\n\n#_index.obj \\\n# vbxctrl.obj \\\n# EXPBUILD.obj \\\n# DbgItem.obj \\\n# DbgStack.obj \\\n# DbgVar.obj\n\n.prg.c:\n  C:\\XHB\\bin\\XHB.exe $&lt; /a/n/v/w/m  /i$(FWHDIR)\\include;C:\\XHB\\include /o$@\n#  &gt;&gt; FiveHX.log\n\n.c.obj:\n  $(BCDIR)\\bin\\bcc32.exe $(BCC_OPT) -P- -c -tW -o$@ -I$(FWHDIR)\\include;C:\\XHB\\include -DHARBOUR_USE_WIN_GTAPI -DHB_COMPAT_C53 $&lt;\n  $(BCDIR)\\bin\\tlib.exe FiveHX.lib /P32 + $@ &gt;&gt;FiveHX.log\n\nFiveHX.lib : $(FiveHX_LIB_OBJS)\n   echo Harbour dir: C:\\XHB','',0,'','16wxpe2x',1,0,'',959,0,0),(32034,7008,6,2,0,'87.218.146.2',1179498868,1,0,1,1,1,1,'','','Mario,\n\nPor favor, envíame ese fichero C como un archivo ZIP por email. Gracias,','',0,'','jl62dk00',1,0,'',2,0,0),(32035,7015,6,2,0,'87.218.146.2',1179498947,1,0,1,1,1,1,'','','Rodrigo,\n\nTienes que modificar el método Paint() de la clase TWBrowse para que no pinte, según el valor de una nueva DATA lPaint, ó similar, que implementes en la clase','',0,'','1wiqinlr',1,0,'',2,0,0),(32036,7042,3,2,0,'87.218.146.2',1179499044,1,0,1,1,1,1,'','','Si la modificación la haces en FiveWin.ch entonces tendrás que recompilar todos los PRGs que usen FiveWin.ch\n\nSi es un valor variable, entonces no podrás usar un define sino una variable pública ó llamar a una función que devuelva un valor que puede cambiar','',0,'','243dmtyv',1,0,'',2,0,0),(32037,7033,6,785,0,'190.64.227.52',1179499092,1,0,1,1,1,0,'','','Gracias Felix, Gracias Antonio.\n\nA eso me refería.\n\nSaludos\n\nRuben Fernandez','',0,'','1qp8h6nw',1,0,'',785,0,0),(32038,7031,2,2,0,'87.218.146.2',1179499189,1,0,1,1,1,1,'','','El general protection fault es un error de protección general que indica que iolib posiblemente no sea compatible con el modo protegido.\n\nTienes el código fuente de iolib ?','',0,'','2cv9crop',1,0,'',2,0,0),(32039,7008,6,959,0,'201.58.51.167',1179499212,1,0,1,1,1,0,'','','Arquivo já enviado para o seu email,  Antônio verifique por favor, se o problema não é na geração da FIVEHX.LIB conforme enviei na mensagem anterior.\n\nGracias.\n\nMário','',0,'','387nhv37',1,0,'',959,0,0),(32040,7008,6,2,0,'87.218.146.2',1179499454,1,0,1,1,1,1,'','','Mario,\n\nLa librería FiveHX.lib NO tienes que generarla. Usa la que viene con FWH. No hay que compilarla.\n\nEn cuanto al fichero menus.c, tienes que cambiar los nombres de las funciones:\n\nHARBOUR HB_FUN_CREATEMENU( PARAMS )\n\npor \n\nHB_FUNC( CREATEMENU )\n\nasí para todas las funciones.\n\ny las funciones del sistema extendido que empiezar por _..., has de cambiarlas a hb_...','',0,'','1hr3l886',1,0,'',2,0,0),(32041,7008,6,2,0,'87.218.146.2',1179499569,1,0,1,1,1,1,'','','Mario,\n\nSi vas a usar xHarbour builder, entonces tienes que usar la librería FIVEHMX.lib en vez de FIVEHX.lib','',0,'','11ayq24h',1,0,'',2,0,0),(32042,7039,6,449,0,'212.64.224.241',1179499654,1,0,1,1,1,1,'','','Antonio,\n\nGracias.','',0,'','31ior4e0',1,0,'',449,0,0),(32043,7043,1,2,0,'87.218.146.2',1179499698,1,0,1,1,1,1,'','','Hoe,\n\nIn 16 bits you can only manage mousewheel scroll down event. There is no support for scroll up. \n\nYou should consider to migrate your application to FWH and Harbour/xHarbour in 32 bits','',0,'','bcx3nul0',1,0,'',2,0,0),(32044,7029,6,103,0,'201.8.91.134',1179500257,1,0,1,1,1,1,'','','Por eso pregunto: Antonio, ¿Puedes ayudarnos?\n\nsaludos,','',0,'','r2xsoaxn',1,0,'',103,0,0),(32045,7018,6,935,0,'165.98.240.104',1179500539,1,0,1,1,1,0,'','AUN PERSISTE','William, \n\nAgradezco tu ayuda pero no funciona ni aun siguiendo la convencion de minusculas que me recomeindas, \n\nCualquier otra sugerencia la agradeceria, estoy por tirar la toalla,\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'','rf1kt940',1,0,'',935,0,0),(32046,7044,6,785,0,'190.64.207.234',1179501762,1,0,1,1,1,0,'','Error en Combo de 7.04 a 7.05','Antonio:\n\nMe da este error.\n\n   Ruta y nombre          : C:\\FUENTES32\\MASTERFORM\\MASTERFORM.Exe\n   Path de datos          : \n   Tipo de aplicación     : 32 bits\n   Versión del Compilador : Harbour devel build 1.1-0 Intl.\n   FWH 7.05 (c) FiveTech Software, 1993-2007\n\n   Tamaño del ejecutable  : 6,612,992 bytes\n   Fecha y Hora del error : 18/05/2007,  12:18:26\n\nDescripción del error producido\n________________________________________________________________________________\n\n   Error BASE/1005  Message not found: TCLIPGET:_TYPE\n   Argumentos   :\n     [   1] = O   Object\n\nLlamadas al Stack\n________________________________________________________________________________\n\nAntes me funcionaba sin problemas esto:\n\n  REDEFINE COMBOBOX EmpEST ITEMS ESTS  ID 180 OF oDlgEmpMod \n\nGracias\n\nRuben Fernandez','',0,'','27f3sb7n',1,0,'',785,0,0),(32047,7034,6,492,0,'189.147.32.187',1179502235,1,0,1,1,1,1,'','','Hola Antonio\n\nEstaba tambien buscando algo como esto, pero tal y como lo comenta Jose, es posible quitarle el borde al dialogo que salga sin el caption ?\n\nLo que busco, es que al momento de presentar las hijas, estas salgan en una posicion determinada y sin caption ni bordes.\n\nSaludos','',0,'','ctmaaau6',1,0,'',492,0,0),(32048,7045,6,350,0,'80.32.243.219',1179503388,1,0,1,1,1,0,'','Index on str','Hola a todos.\n\nTengo un problema de locos que quizás ya se haya comentado en este foro, pero que no lo veo por ningún lado.\n\nUso una dbf con indices cdx y le hago:\nindex on str(numero,8) TAG usuwebnu\n\nEl caso es que al utilizarla y hacerle un go bottom, se me va a un registro con número 10043 cuando existe otro registro con numero 99999000\n\nSi el indice lo creo con FoxPro con el mismo formato va bien.\n\n¿ Que me he perdido de pasar de 16 a 32 bits ?\n\nSaludos','',0,'','1ufww553',1,0,'',350,0,0),(32049,7045,6,350,0,'80.32.243.219',1179503512,1,0,1,1,1,0,'','','Bueno el simbolo ese tan mono es coma ocho cierraparentesis.','',0,'','fisc5trd',1,0,'',350,0,0),(32050,7018,6,850,0,'201.255.112.166',1179503760,1,0,1,1,1,0,'','','Hola Ramon, estas usando XP?, otra pregunta tenes instalado algun firewall?.\nAndres','',0,'','ykx70c8p',1,0,'',850,0,0),(32051,7008,6,959,0,'201.58.51.167',1179503886,1,0,1,1,1,0,'','','Antonio,\n \n Coloquei FIVEHX.LIB que vem com FWH e TUTOR01.PRG já me arranca.\n \n Agora o meu projeto não consigo fazé-lo funcionar.\n \n Veja, lo problema continua, mesmo renomeando a função :\n \nc:\\fwh\\include\\ClipApi.h(71): error: Expecting an enumerator identifier. ( QUAL ERRO É ESTE )    \nc:\\fwh\\include\\ClipApi.h(71): error: Syntax error; found \'0\' expecting \'}\'.\nc:\\fwh\\include\\ClipApi.h(463): error: Redeclaration of \'strlen\' previously declared at C:\\xHB\\c_include\\string.h(30): found \'unsigned short __cdecl function(char *)\' expected \'unsigned int __cdecl function(const char *)\'.\nc:\\fwh\\include\\ClipApi.h(464): error: Redeclaration of \'strcpy\' previously declared at C:\\xHB\\c_include\\string.h(27): found \'void __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\nc:\\fwh\\include\\ClipApi.h(465): error: Redeclaration of \'strcmp\' previously declared at C:\\xHB\\c_include\\string.h(25): found \'int __cdecl function(char *, char *)\' expected \'int __cdecl function(const char *, const char *)\'.\nc:\\fwh\\include\\ClipApi.h(466): error: Redeclaration of \'strcat\' previously declared at C:\\xHB\\c_include\\string.h(23): found \'unsigned char * __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\nc:\\fwh\\include\\ClipApi.h(511): warning: Missing type specifier.\n \nMENUS.C(23): warning: Missing type specifier.                       ( VEJA LO ERRO CONTINUA )\nMENUS.C(24): warning: Missing prototype for \'HB_FUNC\'.\n \n//----------------------------------------------------------------------------//\nHB_FUNC( CREATEMENU )\n{\n   _retnl( ( LONG ) CreateMenu() );\n}\n//----------------------------------------------------------------------------//\n\nGracias,\n \nMário','',0,'','1awhuom0',1,0,'',959,0,0),(32052,7046,6,1024,0,'201.228.131.58',1179504441,1,0,1,1,1,1,'','Error en Ejemplo testfldm.prg Con Xharbour en 7.05','Antonio,\n\nCuando compilo el ejemplo de testfldm.prg con Xharbour(el que viene con la version 7.05) Genera el Siguiente Error. \n\n\nPD. Ojo no Sucede con Harbour.\n\n\nApplication\n===========\n   Path and name: c:\\FWH2007\\samples\\testfldm.exe (32 bits)\n   Size: 1,284,608 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 05/18/07, 11:00:33\n   Error description: Error BASE/1004  Message not found: TGET:TCONTROL\n\nStack Calls\n===========\n   Called from: tobject.prg =&gt; TGET:ERROR(311)\n   Called from: tobject.prg =&gt; TGET:MSGNOTFOUND(340)\n   Called from: tobject.prg =&gt; TGET:TCONTROL(0)\n   Called from: TGET.PRG =&gt; TGET:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; CREATEDLG(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: folder.PRG =&gt; TFOLDER:DEFAULT(0)\n   Called from: folder.PRG =&gt; TFOLDER:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: testfldm.prg =&gt; SNGLFOLD(87)\n   Called from: testfldm.prg =&gt; (b)BUILDMENU(22)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: testfldm.prg =&gt; MAIN(12)\n\nSystem\n======\n   CPU type:         Intel(R) Pentium(R) M processor 1.86GHz 800 Mhz\n   Hardware memory: 1015 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 26\n      1 \n      2 M\n      3 Default IME\n      4 CiceroUIWndFrame\n      5 TF_FloatingLangBar_WndTitle\n      6 Menú Inicio\n      7 Create MSDS \n      8 Folders Test\n      9 C:\\WINDOWS\\system32\\cmd.exe - buildx testfldm\n     10 MED CX - unregistered - [c:\\FWH2007\\samples\\Buildx.bat]\n     11 Total Commander 7.0 release candidate 4 - José David Angulo Urzola\n     12 Lister - [c:\\FWH2007\\samples\\Buildx.bat]\n     13 Folder loading pages test \n     14 Launcher 1.5.5\n     15 560CEE382FE04EEE8EE428712CD776BE\n     16 launcher\n     17 Available Networks\n     18 Connections Tray\n     19 Medidor de energía\n     20 MS_WebcheckMonitor\n     21 Intel(R) PROSet/Wireless - TF - Intel(R) PROSet/Wireless\n     22 Progreso de descarga de eTrust ITM\n     23 Realmon\n     24 WLKeeperWindow\n     25 IWMSWindow\n     26 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TGET:ERROR\n     Param   1:    C    \"Message not found\"\n     Param   2:    C    \"TGET\"\n     Param   3:    C    \"TCONTROL\"\n     Param   4:    N    1004\n     Local   1:    U    \n     Local   2:    O    Class: TGET\n     Local   3:    N    13\n   TGET:MSGNOTFOUND\n     Param   1:    C    \"TCONTROL\"\n     Local   1:    O    Class: TGET\n   TGET:TCONTROL\n   TGET:INITIATE\n     Param   1:    N    525022\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n   __OBJSENDMSG\n     Param   1:    O    Class: TGET\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    525022\n   OSEND\n     Param   1:    O    Class: TGET\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    525022\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    U    \n   ASEND\n     Param   1:    A    Len:    1\n     Param   2:    C    \"INITIATE()\"\n     Param   3:    N    525022\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    N    1\n   TDIALOG:INITIATE\n     Param   1:    N    590552\n     Param   2:    N    525022\n     Local   1:    O    Class: TDIALOG\n     Local   2:    L    .T.\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    L    .F.\n     Local   6:    U    \n   TDIALOG:HANDLEEVENT\n     Param   1:    N    272\n     Param   2:    N    590552\n     Param   3:    N    525022\n     Local   1:    O    Class: TDIALOG\n   CREATEDLG\n     Param   1:    N    4194304\n     Param   2:    C    \"dialog_1\"\n     Param   3:    N    262940\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .F.\n     Param   5:    B    {|| ... }\n     Param   6:    L    .F.\n     Param   7:    B    {|| ... }\n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .T.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    262940\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   TFOLDER:DEFAULT\n     Local   1:    O    Class: TFOLDER\n     Local   2:    N    1\n     Local   3:    N    7\n     Local   4:    O    Class: TDIALOG\n     Local   5:    N    0\n   TFOLDER:INITIATE\n     Param   1:    N    525012\n     Local   1:    O    Class: TFOLDER\n     Local   2:    N    8\n   __OBJSENDMSG\n     Param   1:    O    Class: TFOLDER\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    525012\n   OSEND\n     Param   1:    O    Class: TFOLDER\n     Param   2:    C    \"INITIATE\"\n     Param   3:    N    525012\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    U    \n   ASEND\n     Param   1:    A    Len:    4\n     Param   2:    C    \"INITIATE()\"\n     Param   3:    N    525012\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    N    1\n   TDIALOG:INITIATE\n     Param   1:    N    394016\n     Param   2:    N    525012\n     Local   1:    O    Class: TDIALOG\n     Local   2:    L    .T.\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    L    .F.\n     Local   6:    U    \n   TDIALOG:HANDLEEVENT\n     Param   1:    N    272\n     Param   2:    N    394016\n     Param   3:    N    525012\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"shel_ent\"\n     Param   3:    N    2293932\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .T.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2293932\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   SNGLFOLD\n     Local   1:    O    Class: TDIALOG\n     Local   2:    O    Class: TFOLDER\n     Local   3:    O    Class: TGET\n     Local   4:    C    \"                              \"\n   (b)BUILDMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20001\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20001\n     Param   2:    N    0\n     Local   1:    O    Class: TWINDOW\n     Local   2:    N    0\n     Local   3:    N    20001\n     Local   4:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20001\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20001\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TWINDOW\n   WINRUN\n     Param   1:    N    2293932\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"NORMAL\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TWINDOW\n     5 TMENU\n     6 TMENUITEM\n     7 TBRUSH\n     8 TFONT\n     9 TDIALOG\n    10 TCONTROL\n    11 TFOLDER\n    12 TGET\n    13 GET\n    14 TCLIPGET\n    15 TBUTTON\n    16 ERROR\n    17 TREG32\n\nMemory Analysis\n===============\n      106 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes','',0,'','1hjbufdq',1,0,'',1024,0,0),(32053,7047,3,972,0,'81.164.117.233',1179505645,1,0,1,1,1,0,'','Treeview with checkbox ?','Hello,\n\nHow can we make a treeview with checkboxes in FWH so it looks something like this:\n[img:17lejgqb]http&#58;//s194970364&#46;onlinehome&#46;us/Treeview-Checkbox&#46;jpg[/img:17lejgqb]\n\nPatrick','',0,'CA==','17lejgqb',1,0,'',972,0,0),(32054,7042,3,1023,0,'201.92.184.200',1179505668,1,0,1,1,1,0,'','','Desculpe, mais eu não entendi muito bem.\n\nEu não posso usar um define no fivewin e sim uma variavel public?\nOu uma função queretorna o valor?\n\nPoderia me mostrar um exemplo?\n\nPor que eu defini os valores padrões no fivewin, e sempre que o programa inicia ele carrega um arquivo de configuração com os valores que os defines devem ficar, mais isso só funciona em 1 documento, queria que todos os outros que usassem o include do fivewin tivessem acesso a essas variaveis cm o valor já atualizado.','',0,'CA==','2v69epjh',1,0,'',1023,0,0),(32055,7047,3,89,0,'213.21.136.60',1179507537,1,0,1,1,1,0,'','','You have to modify the resource of the TREEVIEW control  (RC or  DLL) \ncheckboxes = Yes\n\nMaurizio','',0,'CA==','2enqmfy3',1,0,'',89,0,0),(32056,7029,6,110,0,'148.168.40.4',1179508223,1,0,1,1,1,1,'','','Bueno algo habia hecho similar, agregandolo a la clase tprinter unas datas y metodos mediante las extenciones de xharbour.\n\nTal vez habria que darle una revisada a este codigo y modificarlo para que haga lo que nos indica Armando. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nModificacion de clase tprinter\n[code:2ffofqr2]\n    &#46;&#46;&#46;\n    EXTEND CLASS TPRINTER WITH METHOD Cm2Pix\n    EXTEND CLASS TPRINTER WITH METHOD OSay\n    EXTEND CLASS TPRINTER WITH DATA      nPxL\n    EXTEND CLASS TPRINTER WITH DATA      nPxC\n    &#46;&#46;&#46;\n[/code:2ffofqr2]\n\n[code:2ffofqr2]\n/*-------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION Cm2Pix&#40;nCm&#41;\n    LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n\n    IF ValType&#40; &#58;&#58;nXOffset &#41; == &quot;U&quot;\n        &#58;&#58;nXoffset &#58;= 0\n    ENDIF\n\n    nPix &#58;= Max&#40; 0, &#40; nCm * 10 * &#58;&#58;nHorzRes&#40;&#41; / &#58;&#58;nHorzSize&#40;&#41; &#41; - &#58;&#58;nXoffset &#41;\n\nRETURN nPix\n\n/*-------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION OSay&#40;nRow,nCol,cText,oFont,nWidth,nClrText,nBkMode,nPad&#41;\n    LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n    LOCAL nRowT &#58;= &#58;&#58;nPxL * nRow\n    LOCAL nColT  &#58;= &#58;&#58;nPxC * nCol\n    LOCAL nWidT\n\n    DEFAULT nWidth &#58;= 0\n\n    nWidT &#58;= &#58;&#58;nPxC * nWidth\n\n    &#58;&#58;Say&#40;nRowT,nColT,OemToAnsi&#40;cText&#41;,oFont,nWidT,nClrText,nBkMode,nPad&#41;\n\nRETURN NIL\n\n/*-------------------------------------------------------------------------------*/\n[/code:2ffofqr2]\n\nImplementacion de las data y methodos agregados.\n[code:2ffofqr2]\n/*-------------------------------------------------------------------------------*/\n/*OK*/\nPROCEDURE Contratos_ImprimirEstado&#40;&#41;\n    LOCAL nLin &#58;= 0\n    LOCAL oPrn\n    LOCAL nPxL  //pixel por linea\n    LOCAL nPxC  //pixel por columna\n    LOCAL nRec &#58;= LOTE-&gt;&#40;RecNo&#40;&#41;&#41;\n    LOCAL nTamLin,nLineas,x\n\n\n    /*objeto print*/\n    PRINT oPrn NAME &quot;Estado actual de contrato&quot; PREVIEW MODAL\n\n        /*fuentes a usar*/\n        DEFINE FONT oFntNor NAME &quot;Courier New&quot; SIZE 0, -10 OF oPrn\n        DEFINE FONT oFntTit NAME &quot;Courier New&quot; SIZE 0, -10 OF oPrn BOLD\n\n        oPrn&#58;setpage&#40;1&#41;\n\n        /*obtiene resolucion de impresora*/\n        nVer &#58;= oPrn&#58;nVertRes&#40;&#41;\n        nHor &#58;= oPrn&#58;nHorzRes&#40;&#41;\n\n        /*establece numero de lineas y columnas*/\n        nPxL &#58;= &#40;nVer/66&#41;\n        nPxC &#58;= &#40;nHor/82&#41;\n\n        /*pasa calculo a objeto tprinter*/\n        oPrn&#58;nPxL &#58;= nPxL\n        oPrn&#58;nPxC &#58;= nPxC\n\n        PAGE\n            oPrn&#58;osay&#40;01,02,&quot;Fecha y Hora &#58; &quot;+DToC&#40;Date&#40;&#41;&#41;+&quot;/&quot;+Time&#40;&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;03,02,NOM_EMPRESA,oFntTit&#41;\n            oPrn&#58;osay&#40;04,02,&quot;ESTADO ACTUAL DE CONTRATO&quot;,oFntTit&#41;\n\n            oPrn&#58;osay&#40;06,02,Replicate&#40;&quot;=&quot;,91&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;07,02,&quot;Contrato    &#58; &quot;+CONT-&gt;MC_CODCON,oFntNor&#41;\n            oPrn&#58;osay&#40;07,40,&quot;Estado      &#58; &quot;+Upper&#40;CONT-&gt;MC_ESTADO&#41;,oFntTit&#41;\n\n            oPrn&#58;osay&#40;08,02,&quot;Suscriptor  &#58; &quot;+CONT-&gt;MC_NOMSUS,oFntNor&#41;\n\n            oPrn&#58;osay&#40;09,02,&quot;Domicilio   &#58; &quot;+CONT-&gt;MC_DIRSUS,oFntNor&#41;\n            oPrn&#58;osay&#40;10,02,&quot;Trabajo     &#58; &quot;+CONT-&gt;MC_DIRTRA,oFntNor&#41;\n            oPrn&#58;osay&#40;11,02,&quot;Tel‚fonos   &#58; &quot;+RTrim&#40;CONT-&gt;MC_TELDOM&#41;+&quot;/&quot;+RTrim&#40;CONT-&gt;MC_TELTRA&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;12,02,&quot;C‚dula      &#58; &quot;+CONT-&gt;MC_CEDULA,oFntNor&#41;\n            oPrn&#58;osay&#40;12,40,&quot;Profesi¢n   &#58; &quot;+CONT-&gt;MC_PROSUS,oFntNor&#41;\n\n            oPrn&#58;osay&#40;13,02,&quot;Fecha venta &#58; &quot;+DToC&#40;CONT-&gt;MC_FECCON&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;13,40,&quot;Tasa cambio &#58; &quot;+Tran&#40;CONT-&gt;MC_TASCAM,&quot;C$99&#46;9999&quot;&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;14,02,&quot;Fecha naci&#46; &#58; &quot;+DToC&#40;CONT-&gt;MC_FECNAC&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;14,40,&quot;Edad        &#58; &quot;+Tran&#40;nEdad,&quot;99 A¤os&quot;&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;15,02,&quot;Estado civil&#58; &quot;+IIf&#40;CONT-&gt;MC_CASADO,&quot;CASADO&#40;A&#41;&quot;,&quot;SOLTERO&#40;A&#41;&quot;&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;15,40,&quot;Tasa Interes&#58; &quot;+Tran&#40;CONT-&gt;MC_PORINT,&quot;99%&quot;&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;16,02,Replicate&#40;&quot;=&quot;,91&#41;,oFntNor&#41;\n\n            /*titulo de lotes*/\n            oPrn&#58;osay&#40;17,02,&quot;LOTE NO&#46;&quot;, oFntTit&#41;\n            oPrn&#58;osay&#40;17,14,&quot;JARDIN&quot;,   oFntTit&#41;\n            oPrn&#58;osay&#40;17,50,&quot;BLOQUE&quot;,   oFntTit&#41;\n            oPrn&#58;osay&#40;17,60,&quot;PRECIO U$&quot;,oFntTit&#41;\n\n            nLin &#58;= 17\n\n            /*cambia puntero a tabla LOTES*/\n            DBSELECT &quot;LOTE&quot;\n            LOTE-&gt;&#40;DBGoTop&#40;&#41;&#41;\n\n            /*procesa cada lote del contrato*/\n            DO WHILE !LOTE-&gt;&#40;Eof&#40;&#41;&#41;\n\n                /*imprime datos de lotes*/\n                oPrn&#58;osay&#40;++nLin, 02, StrToken&#40;LOTE-&gt;ML_CODLOT,3,&quot;-&quot;&#41;,  oFntNor&#41;\n                oPrn&#58;osay&#40;  nLin, 14, JARD-&gt;MJ_NOMJAR,                  oFntNor&#41;\n                oPrn&#58;osay&#40;  nLin, 50, StrToken&#40;LOTE-&gt;ML_CODLOT,2,&quot;-&quot;&#41;,  oFntNor&#41;\n                oPrn&#58;osay&#40;  nLin, 60, Tran&#40;LOTE-&gt;ML_PREVEN,&quot;$99,999&#46;99&quot;&#41;,oFntNor&#41;\n\n                LOTE-&gt;&#40;DBSkip&#40;&#41;&#41;\n\n            ENDDO\n\n            /*restaura puntero a tabla CONTRATOS*/\n            LOTE-&gt;&#40;DBGoTop&#40;nRec&#41;&#41;\n            DBSELECT &quot;CONT&quot;\n\n            oPrn&#58;osay&#40;++nLin,02,Replicate&#40;&quot;=&quot;,91&#41;,oFntNor&#41;\n\n            /*imprime datos de valores*/\n            oPrn&#58;osay&#40;++nLin,02,&quot;Valor de contrato U$&#58;&quot; + tran&#40;CONT-&gt;MC_TOTCON, &quot;999,999&#46;99&quot;&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,40,&quot;Valor de contrato C$&#58;&quot; + tran&#40;CONT-&gt;MC_TOTCONC,&quot;999,999&#46;99&quot;&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;Valor de prima    U$&#58;&quot; + tran&#40;CONT-&gt;MC_PAGPRI, &quot;999,999&#46;99&quot;&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,40,&quot;Valor de prima    C$&#58;&quot; + tran&#40;CONT-&gt;MC_PAGPRIC,&quot;999,999&#46;99&quot;&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;Saldo a pagar     U$&#58;&quot; + tran&#40;CONT-&gt;MC_SALFIN, &quot;999,999&#46;99&quot;&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,40,&quot;Saldo a pagar     C$&#58;&quot; + tran&#40;CONT-&gt;MC_SALFINC,&quot;999,999&#46;99&quot;&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,Replicate&#40;&quot;-&quot;,91&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;N£mero de cuotas&#58; &quot; + tran&#40;CONT-&gt;MC_NUMCUO, &quot;999&quot;&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,29,&quot;Fecha 1er&#46; pago&#58; &quot; + DToC&#40;CONT-&gt;MC_DIAPAG&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,55,&quot;Valor abono U$&#58;&quot; + tran&#40;CONT-&gt;MC_VALABO, &quot;99,999&#46;99&quot;&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,Replicate&#40;&quot;-&quot;,91&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;Vendedor&#58; &quot; + VEND-&gt;MV_NOMVEN,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,40,&quot;Colector&#58; &quot; + COLE-&gt;MC_NOMCOL,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,Replicate&#40;&quot;-&quot;,91&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;Beneficiario #1&#58; &quot; + CONT-&gt;MC_BENSE1,oFntNor&#41;\n            oPrn&#58;osay&#40;++nLin,02,&quot;C‚dula       #1&#58; &quot; + CONT-&gt;MC_BENCE1,oFntNor&#41;\n            oPrn&#58;osay&#40;++nLin,02,&quot;Beneficiario #2&#58; &quot; + CONT-&gt;MC_BENSE2,oFntNor&#41;\n            oPrn&#58;osay&#40;++nLin,02,&quot;C‚dula       #2&#58; &quot; + CONT-&gt;MC_BENCE2,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,Replicate&#40;&quot;-&quot;,91&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;Titulo Numero&#58; &quot; + CONT-&gt;MC_NUMTIT,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,40,&quot;Fecha Emici¢n&#58; &quot; + DToC&#40;CONT-&gt;MC_FECTIT&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,Replicate&#40;&quot;=&quot;,91&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;Esta Asegurado  &#58; &quot; + IIf&#40;CONT-&gt;MC_INISER,&quot;SI&quot;,&quot;NO&quot;&#41;,oFntNor&#41;\n            oPrn&#58;osay&#40;++nLin,02,&quot;Nombre de fiador&#58; &quot; + CONT-&gt;MC_NOMFIA,oFntNor&#41;\n            oPrn&#58;osay&#40;++nLin,02,&quot;Direccion       &#58; &quot; + CONT-&gt;MC_DIRFIA,oFntNor&#41;\n            oPrn&#58;osay&#40;++nLin,02,&quot;Tel‚fono        &#58; &quot; + CONT-&gt;MC_TELFIA,oFntNor&#41;\n            oPrn&#58;osay&#40;  nLin,40,&quot;C‚dula&#58; &quot; + CONT-&gt;MC_CEDFIA,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,Replicate&#40;&quot;=&quot;,91&#41;,oFntNor&#41;\n\n            oPrn&#58;osay&#40;++nLin,02,&quot;NOTAS&#58;&quot;,oFntTit&#41;\n\n            /*imeprime lineas de anotaci¢n*/\n            IF !Empty&#40;CONT-&gt;MC_NOTAS&#41;\n                nTamLin &#58;= 65\n                nLineas &#58;= MLCount&#40;CONT-&gt;MC_NOTAS,nTamLin&#41;\n                FOR x&#58;=1 TO nLineas\n                    oPrn&#58;oSay&#40;nLin+x,02,MemoLine&#40;CONT-&gt;MC_NOTAS,nTamLin,x,,TRUE&#41;,oFntNor&#41;\n                NEXT\n            ENDIF\n\n        ENDPAGE\n\n    ENDPRINT\n\nRETURN\n\n/*-------------------------------------------------------------------------------*/\n[/code:2ffofqr2]\n\nsalu2\ncarlos vargas','',0,'AIA=','2ffofqr2',1,0,'',110,0,0),(32057,7008,6,2,0,'87.218.146.2',1179508665,1,0,1,1,1,1,'','','Mario,\n\nComo te he comentado por email, comenta la línea 71 de ClipApi.h que no debe ser compilada, ya que no es para 32 bits','',0,'AIA=','1ckgjy4t',1,0,'',2,0,0),(32058,7046,6,2,0,'87.218.146.2',1179509185,1,0,1,1,1,1,'','','José David,\n\nParece un bug de xHarbour. Vamos a probar con el código más reciente del CVS de xHarbour por si ya estuviese arreglado. Gracias,','',0,'AIA=','1nyiicb4',1,0,'',2,0,0),(32059,7026,6,264,0,'200.91.3.10',1179509526,1,0,1,1,1,1,'','','Funcionó como me señalaste.\nGracias.','',0,'AIA=','axlmmkxk',1,0,'',264,0,0),(32060,7034,6,72,0,'189.146.240.23',1179509733,1,0,1,1,1,0,'','','Ray, lo uso de esta forma:\n\n   DEFINE ICON oIcon RESOURCE \"IconSys\"\n   DEFINE WINDOW oWChld MDIChild FROM 1,2 TO 2,2 OF oWnd TITLE cTitle NOZOOM ICON oIcon\n   DEFINE DIALOG oDlg RESOURCE \"Dialogo\" FONT oWnd:oFont OF oWChld\n   ...\n   ACTIVATE DIALOG oDlg NOWAIT VALID (oWChld:End(),.T.)\n   ACTIVATE WINDOW oWChld ;\n      ON INIT   (oDlg:Move(0,0)) ;\n      ON RESIZE (oWChld:SetSize(oDlg:nWidth+nW,oDlg:nHeight+nH)) ;\n      VALID     (oWChld:=Nil,Close_Dlg(),.T.)\n\nPuedes quitara el caption y bordes con tu editor de recursos.','',0,'AIA=','50rw08d5',1,0,'',72,0,0),(32061,7044,6,2,0,'87.218.146.2',1179509749,1,0,1,1,1,1,'','','Ruben,\n\nPor favor vuelve a descargar e instalar Harbour desde:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n\ngracias','',0,'AIA=','1hitbhnm',1,0,'',2,0,0),(32062,6480,6,264,0,'200.91.3.10',1179509768,1,0,1,1,1,1,'','','Mi correo <!-- e --><a href=\"mailto:jgv@random.cl\">jgv@random.cl</a><!-- e -->\nY gracias de antemano.','',0,'AIA=','1heai8m6',1,0,'',264,0,0),(32063,7034,6,2,0,'87.218.146.2',1179509894,1,0,1,1,1,1,'','','Raymundo,\n\nCon esta nueva forma de hacerlo (SetParent()) no se llega a mostrar el diálogo. Solo se crea, se pasan sus controles a la ventana de destino y luego se destruye el diálogo','',0,'AIA=','34vudqwz',1,0,'',2,0,0),(32064,7008,6,959,0,'201.58.51.167',1179509949,1,0,1,1,1,0,'','','Antonio,\n\nA comentado e seguem  el erros :\n\nc:\\fwh\\include\\ClipApi.h(463): error: Redeclaration of \'strlen\' previously declared at C:\\xHB\\c_include\\string.h(30): found \'unsigned short __cdecl function(char *)\' expected \'unsigned int __cdecl function(const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(464): error: Redeclaration of \'strcpy\' previously declared at C:\\xHB\\c_include\\string.h(27): found \'void __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(465): error: Redeclaration of \'strcmp\' previously declared at C:\\xHB\\c_include\\string.h(25): found \'int __cdecl function(char *, char *)\' expected \'int __cdecl function(const char *, const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(466): error: Redeclaration of \'strcat\' previously declared at C:\\xHB\\c_include\\string.h(23): found \'unsigned char * __cdecl function(unsigned char *, unsigned char *)\' expected \'char * __cdecl function(restrict char *, restrict const char *)\'.\n\nc:\\fwh\\include\\ClipApi.h(511): warning: Missing type specifier.\n\nMENUS.C(23): warning: Missing type specifier.\n\nMENUS.C(24): warning: Missing prototype for \'HB_FUNC\'.\n\nMENUS.C(26): warning: Missing return value.\n\nMENUS.C(30): warning: Missing type specifier.\n\nMENUS.C(33): warning: Missing return value.\n\nMENUS.C(37): warning: Missing type specifier.\n\nMENUS.C(41): warning: Missing return value.\n\nMENUS.C(45): warning: Missing type specifier.\n\nMENUS.C(48): warning: Missing return value.\n\nMENUS.C(52): warning: Missing type specifier.\n\nMENUS.C(55): warning: Missing return value.\n\nMENUS.C(59): warning: Missing type specifier.\n\nMENUS.C(62): warning: Missing return value.\n\nMENUS.C(66): warning: Missing type specifier.\n\nMENUS.C(69): warning: Missing return value.\n\nMENUS.C(73): warning: Missing type specifier.\n\nMENUS.C(76): warning: Missing return value.\n\nMENUS.C(80): warning: Missing type specifier.\n\nMENUS.C(83): warning: Missing return value.\n\nMENUS.C(87): warning: Missing type specifier.\n\nMENUS.C(90): warning: Missing return value.\n\nMENUS.C(94): warning: Missing type specifier.\n\nMENUS.C(101): warning: Missing return value.\n\nMENUS.C(105): warning: Missing type specifier.\n\nMENUS.C(108): warning: Missing return value.\n\nMENUS.C(112): warning: Missing type specifier.\n\nMENUS.C(115): warning: Missing return value.\n\nMENUS.C(119): warning: Missing type specifier.\n\nMENUS.C(123): warning: Missing return value.\n\nMENUS.C(127): warning: Missing type specifier.\n\nMENUS.C(132): warning: Missing return value.\n\nMENUS.C(136): warning: Missing type specifier.\n\nMENUS.C(140): warning: Missing return value.\n\nMENUS.C(144): warning: Missing type specifier.\n\nMENUS.C(147): warning: Missing return value.\n\nMENUS.C(151): warning: Missing type specifier.\n\nMENUS.C(156): warning: Missing return value.\n\nMENUS.C(160): warning: Missing type specifier.\n\nMENUS.C(164): warning: Missing return value.\n\nMENUS.C(168): warning: Missing type specifier.\n\nMENUS.C(173): warning: Missing return value.\n\nMENUS.C(177): warning: Missing type specifier.\n\nMENUS.C(400): warning: Missing return value.\n\nMENUS.C(417): warning: Missing type specifier.\n\nMENUS.C(422): warning: Missing return value.','',0,'AIA=','aa6xghar',1,0,'',959,0,0),(32065,7018,6,2,0,'87.218.146.2',1179510028,1,0,1,1,1,1,'','','Ramón,\n\nPrueba a conectarte a tu base de datos local con un programa como el Navicat (<!-- w --><a class=\"postlink\" href=\"http://www.navicat.com\">www.navicat.com</a><!-- w -->)','',0,'AIA=','271ydgw3',1,0,'',2,0,0),(32066,7048,6,1066,0,'80.34.9.135',1179510109,1,0,1,1,1,0,'','Huella Digital. Lector Microsoft Reader. GRFinger ActiveX','Con alguno de los ejemplos sobre huella digital de este foro y el control activeX GRFinger he conseguido que llegue hasta devolver el evento ImageAdquired, el problema es que no devuelve en el array 4 la imagen de la huella (\"The raw grayscale fingerprint image\")  y luego ya no se puede recuperar como bitmap.\n\n¿ Es el activeX de Fivewin el que no recoge el valor de ese dato ? \nEn el manual dice: rawImage As Variant\n\nEs posible si se recoge el dato, hacer luego la llamada con 6 parametros o con 9 con la otra llamada a biometricdisplay:\n\noFingerX:Do(\"CapRawImageToHandle\", raw:img, raw:width, raw:height, oWnd:hDC, @handle )\n\nTiene alguien una solución para lectura de huella digital con algun lector similar.\n\nSaludos\n\n[code:3bm908ia]#include &quot;FiveWin&#46;ch&quot;\n\nSTATIC oWnd\nSTATIC oFingerX\n\nFUNCTION Main&#40;&#41;\n\nIF IsActiveX&#40;&quot;GrFingerX&#46;GrFingerXCtrl&quot;&#41;\n\n  DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n  @ 10 , 10 BITMAP oFoto RESOURCE &quot;LOGOIPG&quot; OF oWnd SIZE 100,50 PIXEL NOBORDER\n\n  oFingerX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;GrFingerX&#46;GrFingerXCtrl&quot;, 1,1,10,10&#41;\n\n *oWnd&#58;oClient = oFingerX\n\n  oFingerX&#58;Do&#40;&quot;Initialize&quot;&#41;\n\n  contextId&#58;= 0\n  oFingerX&#58;Do&#40;&quot;CreateContext&quot;,contextId&#41;\n\n  oFingerX&#58;Do&#40;&quot;CapInitialize&quot;&#41;\n\n  oFingerX&#58;bOnEvent = &#123; | event, aParams, pParams | EventInfo&#40; event, aParams, pParams, oFingerX &#41; &#125;\n\n  ACTIVATE WINDOW oWnd\n\n  oFingerX&#58;Do&#40;&quot;CapFinalize&quot;&#41;\n  oFingerX&#58;Do&#40;&quot;Finalize&quot;&#41;\n\nELSE\n\n  MsgStop&#40;&quot;TIENE QUE ESTAR INSTALADO GRFINGER&quot;,&quot;ATENCION&quot;&#41;\n\nENDIF\n\nRETURN nil\n\n***\n\nFUNCTION EventInfo&#40; event, aParams, pParams, oFingerX &#41;\nLocal cEvent &#58;= cValToChar&#40; event &#41;\nLocal cMsg &#58;= &quot;Event&#58; &quot; + cValToChar&#40; event &#41; + CRLF\nLocal n\n\ncMsg += &quot;Params&#58; &quot; + CRLF\n\nFOR n = 1 to Len&#40; aParams &#41;\n   cMsg += cValToChar&#40; aParams&#91; n &#93; &#41; + CRLF\nNEXT\n\nIF cEvent == &quot;SensorPlug&quot; &#46;or&#46; cEvent == &quot;1&quot;\n  IF aParams&#91;1&#93; != &quot;File&quot;\n    oFingerX&#58;Do&#40;&quot;CapStartCapture&quot;,&quot;DPMSA077A3&quot;&#41;\n  ENDIF\nELSE\n  IF cEvent == &quot;SensorUnplug&quot;\n    oFingerX&#58;Do&#40;&quot;CapStopCapture&quot;,&quot;DPMSA077A3&quot;&#41;\n  ELSE\n    IF cEvent == &quot;FingerDown&quot; &#46;or&#46; cEvent = &quot;4&quot;\n    ELSE\n      IF cEvent == &quot;FingerUp&quot; &#46;or&#46; cEvent = &quot;3&quot;\n      ELSE\n        IF cEvent == &quot;ImageAcquired&quot; &#46;or&#46; cEvent = &quot;5&quot;\n          MsgInfo&#40;Valtype&#40;aParams&#91;4&#93;&#41;&#41;\n          *raw&#58;img    = aParams&#91; 4&#93; //rawImage\n          *raw&#58;height = aParams&#91; 3&#93; //height\n          *raw&#58;width  = aParams&#91; 2&#93; //width\n          *raw&#58;res    = aParams&#91; 5&#93; //res\n          *PrintBiometricDisplay&#40; &#46;F&#46; , 0 &#41;\n        ENDIF\n      ENDIF\n    ENDIF\n  ENDIF\nENDIF\n\nRETURN NIL\n\n***\n\nSTATIC FUNCTION PrintBiometricDisplay&#40;biometricDisplay, context &#41;\nLocal nRet, Handle\n\nIf biometricDisplay\n  *oFingerX&#58;Do&#40;&quot;biometricdisplay&quot;, template&#58;tpt, raw&#58;img, raw&#58;width, raw&#58;height, raw&#58;res, oWnd&#58;hDC, @handle, context&#41;\nElse\n   oFingerX&#58;Do&#40;&quot;CapRawImageToHandle&quot;, raw&#58;img, raw&#58;width, raw&#58;height, oWnd&#58;hDC, @handle &#41;\nEnd If\n\nMsgInfo&#40;handle&#41;\n\n*IF !&#40;handle ==NIL&#41;\n*  oFoto&#58;Picture = handle\n*  oFoto&#58;Update&#40;&#41;\n*ENDIF\n\nRETURN NIL[/code:3bm908ia]','',0,'AIA=','3bm908ia',1,0,'',1066,0,0),(32067,7008,6,2,0,'87.218.146.2',1179510134,1,0,1,1,1,1,'','','Mario,\n\nAl llamar al compilador de C pásale este parámetro:\n\n-D__FLAT__','',0,'AIA=','352c9vfq',1,0,'',2,0,0),(32068,7029,6,103,0,'201.8.91.134',1179510206,1,0,1,1,1,1,'','','Hola Carlos,\n\nMuy interesante tu ejemplo. Solo dos preguntas: \n1 - ¿Como se quedaria con un ejemplo usando TReport? \n2 - ¿No seria un poco mas sencillo cambiar el metodo CmSay() en la TPrinter para que funcione con todas las resoluciones?\n\nGracias y saludos,','',0,'AIA=','2petsczu',1,0,'',103,0,0),(32069,7048,6,2,0,'87.218.146.2',1179510401,1,0,1,1,1,1,'','','Daniel,\n\nQue valores tienes en ?\n\nMsgInfo(Valtype(aParams[4]))\ny \nMsgInfo(Valtype(aParams[3]))','',0,'','26n7w0tw',1,0,'',2,0,0),(32070,7042,3,2,0,'87.218.146.2',1179510620,1,0,1,1,1,1,'','','&gt;\nEu adicionei uma linha no \"FiveWin.ch\" com um #define de uma variavel que uso em varios documentos\n&gt;\n\nPuedes mostrarnos como es esa línea ? Y cómo la usas ?','',0,'','3aff4u4l',1,0,'',2,0,0),(32071,7008,6,959,0,'201.58.51.167',1179510950,1,0,1,1,1,0,'','','Antonio,\n\n Gracias a tua ajuda estou caminhando mas ainda me consta erros :\n\n\nType: C &gt;&gt;&gt;xcc.exe -Fo\"obj\\MENUS.obj\" -D__FLAT__  -I\"c:\\fwh\\include\" -I\"C:\\xHB\\include\" -I\"C:\\xHB\\c_include\" -I\"C:\\xHB\\c_include\\win\" -I\"C:\\xHB\\c_include\\msvc\" \"MENUS.C\"&lt;&lt;&lt;\n\nc:\\fwh\\include\\ClipApi.h(511): warning: Missing type specifier.\n\nMENUS.C(23): warning: Missing type specifier.\n\nMENUS.C(24): warning: Missing prototype for \'HB_FUNC\'.\n\nMENUS.C(26): warning: Missing return value.\n\nMENUS.C(30): warning: Missing type specifier.\n\nMENUS.C(33): warning: Missing return value.\n\nMENUS.C(37): warning: Missing type specifier.\n\nMENUS.C(41): warning: Missing return value.\n\nMENUS.C(45): warning: Missing type specifier.\n\nMENUS.C(48): warning: Missing return value.\n\nMENUS.C(52): warning: Missing type specifier.\n\nMENUS.C(55): warning: Missing return value.\n\nMENUS.C(59): warning: Missing type specifier.\n\nMENUS.C(62): warning: Missing return value.\n\nMENUS.C(66): warning: Missing type specifier.\n\nMENUS.C(69): warning: Missing return value.\n\nMENUS.C(73): warning: Missing type specifier.\n\nMENUS.C(76): warning: Missing return value.\n\nMENUS.C(80): warning: Missing type specifier.\n\nMENUS.C(83): warning: Missing return value.\n\nMENUS.C(87): warning: Missing type specifier.\n\nMENUS.C(90): warning: Missing return value.\n\nMENUS.C(94): warning: Missing type specifier.\n\nMENUS.C(101): warning: Missing return value.\n\nMENUS.C(105): warning: Missing type specifier.\n\nMENUS.C(108): warning: Missing return value.\n\nMENUS.C(112): warning: Missing type specifier.\n\nMENUS.C(115): warning: Missing return value.\n\nMENUS.C(119): warning: Missing type specifier.\n\nMENUS.C(123): warning: Missing return value.\n\nMENUS.C(127): warning: Missing type specifier.\n\nMENUS.C(132): warning: Missing return value.\n\nMENUS.C(136): warning: Missing type specifier.\n\nMENUS.C(140): warning: Missing return value.\n\nMENUS.C(144): warning: Missing type specifier.\n\nMENUS.C(147): warning: Missing return value.\n\nMENUS.C(151): warning: Missing type specifier.\n\nMENUS.C(156): warning: Missing return value.\n\nMENUS.C(160): warning: Missing type specifier.\n\nMENUS.C(164): warning: Missing return value.\n\nMENUS.C(168): warning: Missing type specifier.\n\nMENUS.C(173): warning: Missing return value.\n\nMENUS.C(177): warning: Missing type specifier.\n\nMENUS.C(400): warning: Missing return value.\n\nMENUS.C(417): warning: Missing type specifier.\n\nMENUS.C(422): warning: Missing return value.\n\nMENUS.C(426): warning: Missing type specifier.\n\nMENUS.C(431): warning: Missing return value.\n\nMENUS.C(435): warning: Missing type specifier.\n\nMENUS.C(440): warning: Missing return value.\n\nMENUS.C(444): warning: Missing type specifier.\n\nMENUS.C(447): warning: Missing return value.\n\nMENUS.C(451): warning: Missing type specifier.\n\nMENUS.C(452): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(23).\n\nMENUS.C(454): warning: Missing return value.\n\nMENUS.C(458): warning: Missing type specifier.\n\nMENUS.C(459): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(451).\n\nMENUS.C(462): warning: Missing prototype for \'hb_parnl\'.\n\nMENUS.C(463): warning: Missing prototype for \'hb_parl\'.\n\nMENUS.C(468): warning: Missing prototype for \'hb_parc\'.\n\nMENUS.C(468): warning: Conversion from \'const char *\' to \'int\' is undefined.\n\nMENUS.C(473): warning: Conversion from \'const char *\' to \'int\' is undefined.\n\nMENUS.C(501): warning: Missing return value.\n\nMENUS.C(504): warning: Missing type specifier.\n\nMENUS.C(505): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(458).\n\nMENUS.C(516): warning: Missing return value.\n\nMENUS.C(519): warning: Missing type specifier.\n\nMENUS.C(520): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(504).\n\nMENUS.C(524): warning: Missing return value.\n\nMENUS.C(526): warning: Missing type specifier.\n\nMENUS.C(527): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(519).\n\nMENUS.C(545): warning: Missing return value.\n\nMENUS.C(547): warning: Missing type specifier.\n\nMENUS.C(548): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(526).\n\nMENUS.C(560): warning: Missing return value.\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: MENUS.obj&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1278&lt;&lt;&lt;','',0,'','1pxe0s7o',1,0,'',959,0,0),(32072,7029,6,2,0,'87.218.146.2',1179511065,1,0,1,1,1,1,'','','Kleyber,\n\nCmSay() debería imprimir en la misma posición exactamente. De no hacerlo es un bug que hay que corregir','',0,'','qfnk2xnd',1,0,'',2,0,0),(32073,7008,6,2,0,'87.218.146.2',1179511166,1,0,1,1,1,1,'','','Mario,\n\n&gt; MENUS.C(452): error: Redefinition of \'HB_FUNC\' previously defined at MENUS.C(23). \n\nPuedes mostrarnos el código de las líneas 452 y 23 ? gracias','',0,'','2sseycyy',1,0,'',2,0,0),(32074,7034,6,54,0,'189.132.94.231',1179511382,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:20jng29d]Raymundo,\n\nCon esta nueva forma de hacerlo (SetParent()) no se llega a mostrar el diálogo. Solo se crea, se pasan sus controles a la ventana de destino y luego se destruye el diálogo[/quote:20jng29d]\n\nAntonio,\n\nfunciona con cualquier versión de FWH?\n\nsaludos','',0,'gA==','20jng29d',1,0,'',54,0,0),(32075,7034,6,2,0,'87.218.146.2',1179511470,1,0,1,1,1,1,'','','William,\n\nSi <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3o65qqom',1,0,'',2,0,0),(32076,7008,6,959,0,'201.58.51.167',1179511510,1,0,1,1,1,0,'','','Linha 23\n\nHB_FUNC( CREATEMENU )\n{\n   _retnl( ( LONG ) CreateMenu() );\n}\n\n\n  Linha 452\n\nHB_FUNC( _GETMENUID)\n{\n    _retnl((LONG)GetMenu((HWND)_parnl(1)));\n}','',0,'gA==','1icdw2n9',1,0,'',959,0,0),(32077,7034,6,54,0,'189.132.94.231',1179511571,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:yvvqnfri]William,\n\nSi <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:yvvqnfri]\n\nGracias antonio','',0,'gA==','yvvqnfri',1,0,'',54,0,0),(32078,7008,6,2,0,'87.218.146.2',1179511618,1,0,1,1,1,1,'','','Mario,\n\nQue compilador de C estás usando ?\n\nPor favor envíame de nuevo menus.c modificado como lo tienes ahora en un fichero ZIP, gracias','',0,'gA==','3o82qj8u',1,0,'',2,0,0),(32079,7045,6,2,0,'87.218.146.2',1179511843,1,0,1,1,1,1,'','','Sebastián,\n\nEstás usando Harbour ó xHarbour ?\n\nPodrias proporcionar un ejemplo pequeño y autocontenido que reproduzca el comportamiento erróneo sin usar FWH ? gracias','',0,'gA==','1odmst7x',1,0,'',2,0,0),(32080,7049,3,924,0,'81.208.36.89',1179511902,1,0,1,1,1,0,'','how detect if is installed JAVA JRE','Hi,\nI installed the:\njre-6u1-windows-i586-p-s.exe\n\nto run a myprogram.jar  esternal  to fwh\n\nNow how to detect if  the jre-6u1-windows-i586-p-s.exe is installed or not  on pc ! (for my customer)\n\nIs possible to check same resister key ? \n\ntks\nRomeo','',0,'gA==','3n06g22i',1,0,'',924,0,0),(32081,7008,6,2,0,'87.218.146.2',1179512370,1,0,1,1,1,1,'','','Mario,\n\nAqui tienes menus.c arreglado y compilando correctamente:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32042330/MENUS.C.html\">http://rapidshare.com/files/32042330/MENUS.C.html</a><!-- m -->','',0,'gA==','mf1h7g0o',1,0,'',2,0,0),(32082,7029,6,103,0,'201.8.91.134',1179512587,1,0,1,1,1,1,'','','Antonio\n\n[quote:260wre51]CmSay() debería imprimir en la misma posición exactamente. De no hacerlo es un bug que hay que corregir[/quote:260wre51]\n\nGracias por tu contestación. Entonces me quedo aguardando la solución para esto y para cuando for usar la TReport también, pues no me gusta tener que usar herramientas de terceros.\n\nSaludos,','',0,'gA==','260wre51',1,0,'',103,0,0),(32083,7048,6,1066,0,'80.34.9.135',1179512706,1,0,1,1,1,0,'','','MsgInfo(aParams[3])\n390\nMsgInfo(Valtype(aParams[3]))\nN\nMsgInfo(aParams[4])\nnil\nMsgInfo(Valtype(aParams[4]))\nU\n\nMsgInfo(cMsg)\n\nEvent: ImageAcquired\nParams:\nDPMSA077A3\n355\n390\n(aqui iria el 4 y sale en blanco)\n500\n\nSaludos','',0,'','3swtq8qm',1,0,'',1066,0,0),(32084,7046,6,1024,0,'200.6.186.133',1179513440,1,0,1,1,1,1,'','','Antonio,\n\nEspero cualquier cambio.\n\nMil Gracias','',0,'','1bjxnorw',1,0,'',1024,0,0),(32085,7044,6,785,0,'190.64.193.129',1179515334,1,0,1,1,1,0,'','','Gracias Antonio:\n\nDescargado, instalado y funcionando bien.\n\nSaludos\n\nRuben Fernandez','',0,'','1y01k3lc',1,0,'',785,0,0),(32086,7048,6,2,0,'87.218.146.2',1179515737,1,0,1,1,1,1,'','','Daniel,\n\n&gt; En el manual dice: rawImage As Variant\n\nEs un handle a un bitmap lo que debe ir ahí ?','',0,'','wdfx4359',1,0,'',2,0,0),(32087,7034,6,492,0,'189.147.32.187',1179516875,1,0,1,1,1,1,'','','Hola Alfredo y Antonio :\n\nGracias Masters  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n\nEmpezare a probar con estas opciones antes mencionadas por uds.\n\n\nSaludos','',0,'','1cg0mpta',1,0,'',492,0,0),(32088,7050,6,141,0,'200.88.94.205',1179517274,1,0,1,1,1,1,'','MsgItem para registro borrado/no borrado','Hola,\n\nA ver si alguien dió ya en el clavo:\n\nNecesito saber como defino un msgitem que dentro de un msgbar me aparezca o desaparezca la palabra \"borrado\" si es que el registro por el cual me muevo está en ese estatus.  Lo hice asi, pero no me funciona (uso en twbrowse):\n\n[code:z0swql5z]\nDEFINE MSGBAR oBarMsg OF oDlg PROMPT &quot;Edicion de Registros&quot; NOINSET\nDEFINE MSGITEM oDelMsg OF oBarMsg PROMPT IIF&#40;DELETED&#40;&#41;,&quot;Borrado&quot;,space&#40;14&#41;&#41; SIZE 75\noDelMsg&#58;lTimer &#58;= &#46;T&#46;\n\noBarMsg&#58;DateOn&#40;&#41;\noBarMsg&#58;ClockOn&#40;&#41;\n[/code:z0swql5z]\n\nGracias anticipadas,','',0,'AIA=','z0swql5z',1,0,'',141,0,0),(32089,7034,6,492,0,'189.147.32.187',1179520399,1,0,1,1,1,1,'','','Alfredo :\n\nNo se hice o como lo hice ( todo seguramente mal  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  ) pero me salen 2 childs entrelazadas.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  , seguire probando.\n\n\nAntonio :\n\nHay forma de \"pasar\" los controles del dialogo a la child que no sean \"necesarios\" de REDEFINIR ? i.e.  los say con -1 yo uso algunos groups solo como \"separadores\".\n\nPor que me paso solo los controles que estan Redefinidos.\n\n\nSaludos','',0,'AIA=','3tgxy2h3',1,0,'',492,0,0),(32090,7051,1,418,0,'91.168.144.236',1179520963,1,0,1,1,1,0,'','on change for get','Hi\nI HAVE A PROBLEM WITH THE  CHANGE  IN GET\nI use a twbrose in which the database is indexed on the name\nI want use a get  which  will change the  scope of the browse\n\nWhen i GET  \"M\" it must scope the data beginning by \"M\"\nand if if enter \"A\" after it must scope the data beginning by \"MA\"  etc etc..\n\nI use \"redefine get..   on change (newscope, refresh)\" and it didn\'t work\nwhen i  enter \"M\" the buffer is empty and the scope didn\'t change\ni must enter the second letter and the the scope is working on the first letter\n\nThe change is always one letter  late\n\nAny idea? Thanks\n\nSorry for my bad english','',0,'AIA=','3sjd76p1',1,0,'',418,0,0),(32091,7052,4,266,0,'60.53.92.186',1179522919,1,0,1,1,1,1,'','FWPPC, LAN and MySQL','If a pocket pc connected via bluetooth to LAN, can FWPPC application read/update MySQL database in server ?','',0,'AIA=','3r7p2tf6',1,0,'',266,0,0),(32092,7018,6,935,0,'200.62.120.128',1179524043,1,0,1,1,1,0,'','no hay problema con otros programas','Antonio, \n\nTengo Instalado el NAVICAT desde ahi modifico las tablas, el administrador de MySql corre sin problemas, etsoy con XP y no tengo Firewall de windows activado tengo de proteccion el Norton y sus Utilidades\n\nSiempre agradecido,\n\n\nRamon Antonio Paredes\nManagua, Nicaragua','',0,'AIA=','ocrsdp5k',1,0,'',935,0,0),(32093,7048,6,1066,0,'88.1.248.108',1179524559,1,0,1,1,1,1,'','','Creo que contiene caracteres hasta 10000 que luego se pasan como parametros a otra funcion que los convierte en bitmap en la variable handle.\n\nHay muchos ejemplos de uso en varios lenguajes de programación C#, C++.NET, Delphi, Java, Visual Basic, VB.Net y Visual FoxPro 8, pero no se como adaptar las llamadas a Harbour.\n\nSaludos\n\nGrCapRawImageToHandle(unsigned char* rawImage, unsigned int width, unsigned int height, HDC hdc, HBITMAP &amp;handle);\n\nEste es un fichero de cabecera.\n\n[code:m5zlzfjc]/******************************************************\n *                                                    *\n *                  GrFinger 4&#46;2 SDK                  *\n *       GrFinger Biometric Fingerprint Library       *\n *                                                    *\n * GrFinger&#46;h                                         *\n * C++ Header file for GrFinger Library               *\n *                                                    *\n * Copyright &#40;c&#41; 2004-2006 Griaule Tecnologia LTDA&#46;   *\n *                                                    *\n * Last Modified&#58; 2006-05-23 Revision&#58; 3              *\n *                                                    *\n ******************************************************/\n\n#ifndef IMPORTDLL_H\n#define IMPORTDLL_H\n#include &quot;windows&#46;h&quot;\n\n//*****************************************************\n//RETURN CODES\n//*****************************************************\n//success\n#define GR_OK                                         0\n#define GR_BAD_QUALITY                                0\n#define GR_MEDIUM_QUALITY                             1\n#define GR_HIGH_QUALITY                               2\n#define GR_MATCH                                      1\n#define GR_NOT_MATCH                                  0\n#define GR_DEFAULT_USED                               3\n//initialization errors codes\n#define GR_ERROR_INITIALIZE_FAIL                     -1\n#define GR_ERROR_NOT_INITIALIZED                     -2\n#define GR_ERROR_FAIL_LICENSE_READ                   -3\n#define GR_ERROR_NO_VALID_LICENSE                    -4\n#define GR_ERROR_NULL_ARGUMENT                       -5\n#define GR_ERROR_FAIL                                -6\n#define GR_ERROR_ALLOC                               -7\n#define GR_ERROR_PARAMETERS                          -8\n//extract and match errors codes\n#define GR_ERROR_WRONG_USE                         -107\n#define GR_ERROR_EXTRACT                           -108\n#define GR_ERROR_SIZE_OFF_RANGE                    -109\n#define GR_ERROR_RES_OFF_RANGE                     -110\n#define GR_ERROR_CONTEXT_NOT_CREATED               -111\n#define GR_ERROR_INVALID_CONTEXT                   -112\n#define GR_ERROR_ERROR                             -113\n#define GR_ERROR_NOT_ENOUGH_SPACE                  -114\n//capture error codes\n#define GR_ERROR_CONNECT_SENSOR                    -201\n#define GR_ERROR_CAPTURING                         -202\n#define GR_ERROR_CANCEL_CAPTURING                  -203\n#define GR_ERROR_INVALID_ID_SENSOR                 -204\n#define GR_ERROR_SENSOR_NOT_CAPTURING              -205\n#define GR_ERROR_INVALID_EXT                       -206\n#define GR_ERROR_INVALID_FILENAME                  -207\n#define GR_ERROR_INVALID_FILETYPE                  -208\n#define GR_ERROR_SENSOR                            -209\n\n//*****************************************************\n//CONSTS\n//*****************************************************\n//file format codes\n#define GRCAP_IMAGE_FORMAT_BMP                      501\n//event values codes\n#define GR_PLUG                                      21\n#define GR_UNPLUG                                    20\n#define GR_FINGER_DOWN                               11\n#define GR_FINGER_UP                                 10\n#define GR_IMAGE                                     30\n//image consts \n#define GR_DEFAULT_RES                              500\n#define GR_DEFAULT_DIM                              500\n#define GR_MAX_SIZE_TEMPLATE                      10000\n#define GR_MAX_IMAGE_WIDTH                         1280\n#define GR_MAX_IMAGE_HEIGHT                        1280\n#define GR_MAX_RESOLUTION                          1000 /*DPI*/\n#define GR_MIN_IMAGE_WIDTH                           50\n#define GR_MIN_IMAGE_HEIGHT                          50\n#define GR_MIN_RESOLUTION                           125 /*DPI*/\n//match const\n#define GR_MAX_THRESHOLD                            200\n#define GR_MIN_THRESHOLD                             10\n#define GR_VERYLOW_FRR                               30 /*FAR 1 IN 1000*/\n#define GR_LOW_FRR                                   45 /*FAR 1 IN 10000*/\n#define GR_LOW_FAR                                   60 /*FAR 1 IN 30000*/\n#define GR_VERYLOW_FAR                               80 /*FAR 1 IN 300000*/\n#define GR_ROT_MIN                                    0\n#define GR_ROT_MAX                                  180\n//context const\n#define GR_DEFAULT_CONTEXT                            0\n#define GR_NO_CONTEXT                                -1\n//colors for BiometricDisplay\n#define GR_IMAGE_NO_COLOR                    0x1FFFFFFF\n//version constants\n#define GRFINGER_FULL                                 1\n#define GRFINGER_LIGHT                                2\n#define GRFINGER_FREE                                 3\n\n//*****************************************************\n//TYPE DEFINITIONS\n//*****************************************************\n#define DLLIMPORT extern &quot;C&quot; __declspec&#40;dllimport&#41; int __stdcall\n#define CALLBACK __stdcall\ntypedef int GRCAP_STATUS_EVENTS;\ntypedef int GRCAP_FINGER_EVENTS;\ntypedef int GRCAP_IMAGE_FORMAT;\ntypedef long BITMAP_HANDLE;\n//CALLBACK functions\ntypedef void CALLBACK GRCAP_STATUS_EVENT_PROC&#40;char* idSensor, GRCAP_STATUS_EVENTS event&#41;;\ntypedef void CALLBACK GRCAP_FINGER_EVENT_PROC&#40;char* idSensor, GRCAP_FINGER_EVENTS event&#41;;\ntypedef void CALLBACK GRCAP_IMAGE_EVENT_PROC&#40;char* idSensor, unsigned int width, unsigned int height, unsigned char* rawImage, int res&#41;;\n\n//*****************************************************\n// Functions - CAPTURE\n//*****************************************************\nDLLIMPORT\nGrCapInitialize&#40;GRCAP_STATUS_EVENT_PROC *StatusEventHandler&#41;;\n\nDLLIMPORT\nGrCapFinalize&#40;&#41;;\n\nDLLIMPORT\nGrCapStartCapture&#40;char* idSensor, GRCAP_FINGER_EVENT_PROC *FingerEventHandler, GRCAP_IMAGE_EVENT_PROC *ImageEventHandler&#41;;\n\nDLLIMPORT\nGrCapStopCapture&#40;char* idSensor&#41;;\n\nDLLIMPORT\nGrCapSaveRawImageToFile&#40;unsigned char* rawImage, unsigned int width, unsigned int height, char* fileName, GRCAP_IMAGE_FORMAT imageFormat&#41;;\n\nDLLIMPORT\nGrCapLoadImageFromFile&#40;char* fileName, int res&#41;;\n\nDLLIMPORT\nGrCapRawImageToHandle&#40;unsigned char* rawImage, unsigned int width, unsigned int height, HDC hdc, HBITMAP &amp;handle&#41;;\n\nDLLIMPORT\nGrBiometricDisplay&#40;char* tptQuery, unsigned char* rawImage, int width, int height, int res, HDC hdc, HBITMAP &amp;handle, int matchContext&#41;;\n\n//*****************************************************\n// Functions - EXTRACT\n//*****************************************************\nDLLIMPORT\nGrExtract&#40;unsigned char *rawimage, int width, int height, int res, char *tpt, int *tptSize, int context&#41;;\n\n//*****************************************************\n// Functions - MATCH\n//*****************************************************\nDLLIMPORT\nGrInitialize&#40;&#41;;\n\nDLLIMPORT\nGrFinalize&#40;&#41;;\n\nDLLIMPORT\nGrCreateContext &#40;int *contextId&#41;;\n\nDLLIMPORT\nGrDestroyContext &#40;int contextId&#41;;\n\nDLLIMPORT\nGrVerify &#40;char *queryTemplate, char *referenceTemplate, int *verifyScore, int context&#41;;\n\nDLLIMPORT\nGrIdentifyPrepare &#40;char *templateQuery, int context&#41;;\n\nDLLIMPORT\nGrIdentify &#40;char *templateReference, int *identifyScore, int context&#41;;\n\n//*****************************************************\n// Functions - CONFIG\n//*****************************************************\nDLLIMPORT\nGrSetIdentifyParameters &#40;int identifyThreshold, int identifyRotationTolerance, int context&#41;;\n\nDLLIMPORT\nGrSetVerifyParameters &#40;int verifyThreshold, int verifyRotationTolerance, int context&#41;;\n\nDLLIMPORT\nGrGetIdentifyParameters&#40;int &amp;identifyThreshold, int &amp;identifyRotationTolerance, int context&#41;;\n\nDLLIMPORT\nGrGetVerifyParameters&#40;int &amp;verifyThreshold, int &amp;verifyRotationTolerance, int context&#41;;\n\nDLLIMPORT\nGrSetBiometricDisplayColors&#40;int minutiaeColor, int minutiaeMatchedColor, int segmentColor, int segmentMatchedColor, int directionColor, int directionMatchedColor&#41;;\n\nDLLIMPORT\nGrGetGrFingerVersion&#40;unsigned char *majorRelease, unsigned char *minorRelease&#41;;\n\n#endif[/code:m5zlzfjc]','',0,'AIA=','m5zlzfjc',1,0,'',1066,0,0),(32094,7018,6,54,0,'189.132.94.231',1179524888,1,0,1,1,1,1,'','Re: no hay problema con otros programas','[quote=&quot;Ramon Paredes&quot;:33bbor7y]Antonio, \n\nTengo Instalado el NAVICAT desde ahi modifico las tablas, el administrador de MySql corre sin problemas, etsoy con XP y no tengo Firewall de windows activado tengo de proteccion el Norton y sus Utilidades\n\nSiempre agradecido,\n\n\nRamon Antonio Paredes\nManagua, Nicaragua[/quote:33bbor7y]\n\nRamon,\n\npostea un ZIP con el test y lo pruebo con gusto.\n\nsaludos','',0,'gA==','33bbor7y',1,0,'',54,0,0),(32095,7051,1,303,0,'72.199.41.171',1179528059,1,0,1,1,1,0,'','','Instead of bChange, use bPostKey. It is called like this in TGet.\n\nEval( ::bPostKey, Self, ::oGet:Buffer )\n\nbChange is for use when you want to test the keystroke and either accept or reject it. If you return .t. from the codeblock the lastkey is accepted into the buffer, if you return .f. then the lastkey is not accepted.\n\nbPostKey is eval\'d after bChange so the lastkey will already be in the buffer.\n\nJames','',0,'gA==','1rmr28dg',1,0,'',303,0,0),(32096,7047,3,303,0,'72.199.41.171',1179528430,1,0,1,1,1,0,'','','Patrick,\n\nIf you will send me your email address, I will send you some sample code that I got from somewhere. I haven\'t tried it myself.\n\nIt is several files in a zip file or I would just post it here.\n\nJames','',0,'gA==','3jwnspkg',1,0,'',303,0,0),(32097,7020,16,2,0,'87.218.146.2',1179529233,1,0,1,1,1,1,'','','Construcción Mayo 2007\n=================\n\n* Corrección: El método GoRight() de la clase TXBrowse. \n\n* Mejora: Mejora en el método PaintData() de la clase TXBrwColumn: No sobreescribe la barra de desplazamiento vertical.\n\n* Corrección: REDEFINE MENUITEM ... ACCELERATOR ... está poniendo y usando apropiadamente los aceleradores. \n\n* Nuevo: En FWPPC, el ejemplo samples\\TestFldW.prg muestra como usar un \"browse\" en un folder, cargado desde recursos.   \n\n* Mejora: Soporte para \"pestañas\" multilínea en la clase TFolder si el estilo TCS_MULTILINE es usado en recursos. \n\n* Mejora: Añadido DEFAULT oWnd := GetWndDefault() en el método Redefine de las clases: TActiveX, TBitmap, TBtnBmp, TComboBox, \n  TFGet, TFolder, TGroup, TIcon, TIGroup, TListBox, TMeter, TRadio, TScrollBar, TSelector, TSlider, TSplitter, TRichEdit, TTabControl,\n  TVbxControl, TVideo, TTabs, TAnimate, THeader, TListView, TPages, TProgress. \n\n* Corrección: La busqueda incremental en la clase TComboBox  no cambia el tipo de la variable asociada. \n\n* Corrección: El método KeyDown() de la clase TXBrowse estaba evaluando bkeyDown dos veces. Ahora está bien. \n\n* Mejora: La función SetDatePick() acepta un quinto parámetro para permitir fechas vacias cuando se usa objetos de la clase TDtPicker().\n  El método SetDate( dDate, lEmpty ) de la clase TDTPicker acepta un segundo parámetro lógico para especificar una fecha vacia. \n\n* Corrección: El método LoadPages() de la clase TFolder está poniendo correctamente el ancho y la altura de las páginas cargadas, y los brushes\nde las páginas. \n\n* Mejora: En FWH y FWPPC, el código fuente de la función lIsDir() ha sido modificado para hacerla compatible con FWPPC. No debiera haber diferencias en el comportamiento de la función lIsDir() en FWH. \n\n* Mejora: En FWH el fuente rasapi.c no se estaba construyendo correctamente en 32 bits. Ahora está correcto. \n\n* Corrección: En FiveMac, el ejemplo samples\\osxpro.prg estaba usando un camino erróneo para los ficheros PNG. Ahora está correcto. \n\n* Correcto: En la clase TWBrowse el método keyChar ha sido eliminado y ya no se necesita. Pequeña corrección en el método pageUp(). Gracias a Enrico! \n\n* Mejora: Mejoras en los métodos IsDisplayPosVisible(), GoRight() y GoUp() de la clase TXBrowse. Gracias a Rossine! \n\n* Nuevo: En FWH, la clase TOleAuto de xHarbour se ha portado a Harbour, así que ahora puedes usarla también en Harbour. La construcción de Harbour de FiveTech ya la incluye. Tienes que enlazar HBOleAut.lib. \n\n* Nuevo: En FWH, fichero de configuración para construir proyectos FWH de UEStudio. Por favor, copie el fichero FWPPC\\UEStudio\\Application a\n  C:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\Harbour\\ desde la carpeta FWH\\UEStudio. Debes revisar el video para aprender como usarlo: <!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->.   \n\n* Nuevo: En FWPPC, fichero de configuración para construir proyectos FWPPC de UEStudio. Por favor, copie el fichero FWPPC\\UEStudio\\Application a\n  C:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\FWPPC\\ desde la carpeta FWPPC\\UEStudio. Debes revisar el video para aprender\n  como usarlo: <!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->.\n\n* Corrección: Pequeña corrección en el método keyChar() de la clase TGet. \n\n* Nuevo: En FWH, ejemplo BtnTrans.prg: Probando un botón TBtnBmp trasparente sobre una Caja de diálogo transparente. \n\n* Nuevo: Nuevo ejemplo manejando Excel desde controles ActiveX. Por favor revise el ejemplo samples\\excel2.prg. \n\n* Nuevo: En FWPPC, soporte de ActiveX ! Por favor revise el ejemplo samples\\media.prg. \n\n* Mejora: FWH es completamente compatible con las construcciones más recientes de Harbour y xHarbour, incluyendo XHB.\n\n* Nuevo: En FWPPC, la construcción de Harbour para Pocket PC soporta USE ... SHARE','',0,'gA==','2cuj5d4s',1,0,'',2,0,0),(32098,7048,6,2,0,'87.218.146.2',1179530154,1,0,1,1,1,1,'','','Daniel,\n\nTe envio por email una librería. Por favor construye el EXE con esa nueva librería y te aparecerá un MsgInfo() con un valor que necesito me digas cual es, gracias','',0,'gA==','38611jaz',1,0,'',2,0,0),(32099,7052,4,2,0,'87.218.146.2',1179530571,1,0,1,1,1,1,'','','Hoe,\n\nIf you need to use MySQL then it may be a better choice to use a CGI and access a HTML page from the Pocket PC','',0,'gA==','ovdlul8v',1,0,'',2,0,0),(32100,7018,6,935,0,'200.62.78.181',1179531693,1,0,1,1,1,0,'','gracias por tu colaboracion','William, \n\nTe envie un archivo zip con el codigo fuente de la prueba, te lo mande a tu correo porque la verdad no pude postearlo, no se como,\n\nAgradezco lo que puedas recomendarme,\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','2tjqfdsu',1,0,'',935,0,0),(32101,7053,6,987,0,'189.133.7.59',1179531824,1,0,1,1,1,0,'','Cannot create Dialog Box con Resource Workshop','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  Hola, de nuevo aqui molestando a todos ustedes..\n\nEstoy empezando con los 32 bits y tengo problemas al mostrar una dialogo en el cual pido contraseña para entrar, ya estuve investigando en la red y supe que los controles de borland no son para 32 bits por los cual ya quite el unico que tenia, pero sigo sin poder mostrar el dialogo poruqe marca error:\n\nApplication\n===========\n   Path and name: C:\\SISA2007\\SISA2007.Exe (32 bits)\n   Size: 2,083,840 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 18/05/2007, 18:26:41\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: Acceso\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; LGETPASSWORD(222)\n   Called from: sisa2007.prg =&gt; MAIN(40)\n\neste el el código que uso:\n\nSTATIC FUNCTION lGetPassword()\n\nLOCAL oDlg,oBmp,oCbx,oGet,oBtn1,oBtn2,oBit,oIco,oBmpx,oFnt,oCur\nLOCAL lSalir    := .F.\nLOCAL nTries    := 0\nLOCAL tPassword := SPACE (15)\nLOCAL hDC       := oDlg\n\n\n         DEFINE  CURSOR    oCur  RESOURCE \"Mano\"\n         DEFINE  FONT        oFnt  NAME     \"Arial\"  WEIGHT 8 \n         DEFINE  DIALOG    oDlg  RESOURCE \"Acceso\" TITLE \"Control de Acceso al Sistema\" FONT oFnt\n       REDEFINE  BITMAP    oBmp  ID 052 FILENAME \".\\SUPPORT\\ENGINE\\IMAGHAND.SUP\" OF oDlg \n       REDEFINE  BITMAP    oBmpx ID 600 FILENAME \".\\SUPPORT\\ENGINE\\IMAINTRO.SUP\" OF oDlg Adjust\n       REDEFINE COMBOBOX   oCbx  VAR nItem     ID 101 Of oDlg  UPDATE ITEMS oApp:cUsuario STYLE CBS_DROPDOWN  \n       REDEFINE GET        oGet  VAR tPassword ID 102 OF oDlg  PICTURE \"@!\" \n       REDEFINE BUTTON     oBtn1               ID 400 OF oDlg  ACTION (lSalir:=.T. , nTries++                                         , ;\n                                                                      lSi := ALLTRIM( tPassword ) == ALLTRIM( oApp:cPassword[nItem] ), ;\n                                                                      IF( nTries &gt; 3 .OR. lSi , oDlg:END(),                                   ;\n                                                                      ( MsgStop( \"¿ OLVIDO SU CONTRASEÑA..?\"+CRLF+CRLF+;\n                                                                                 \"Haga click en el botón &lt; RECORDAR &gt; para ver    \"+CRLF+;\n                                                                                 \"su recordatorio según el Nombre de Usuario...   \", \"¡ Acceso Denegado !\" ), lSalir:=.F., oGet:SetFocus(.T.) ) ) )\n\n\n       REDEFINE BUTTON    oBtn2               ID 415 OF oDlg  ACTION (lSalir:=.T., oDlg:END())\n       REDEFINE BTNBMP    oBit                ID 104 OF oDlg  RESOURCE \"RECORDAR\" ACTION ( MsgInfo(\"Palabra o frase para Recordar su Clave de Acceso: \"+CRLF+CRLF+ ALLTRIM( oApp:cRecordar[nItem] ),\"Recordar Clave se Acceso\"), oGet:SetFocus(.T.) )      \n\noDlg:lHelpIcon    := .F.\noBit:cToolTip     := \"Recordar\"+CRLF+\"Contaseña\"                                \noBmp:lTransparent := .T.\noBtn1:oCursor     := oCur\noBtn2:oCursor     := oCur\n oBit:oCursor     := oCur\n  \n      ACTIVATE DIALOG oDlg CENTERED VALID (lSalir) ON INIT( SetWindowPos( oDlg:hWnd, -1, 0, 0, 0, 0, 3 ) )\n\n oFnt:END()\n oBmp:END()\noBmpX:END() \n oCur:END()    \n\nRETURN (lSi)\n\nel díalogo estaba en una dll de 16 bits y la tengo en un rc para incrustarlo en el exe.\n\neste es el rc del dialogo\n\nACCESO DIALOG 241, 76, 174, 253\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_CAPTION\nFONT 8, \"MS Sans Serif\"\n{\n COMBOBOX 101, 85, 177, 79, 76, CBS_DROPDOWNLIST | CBS_NOINTEGRALHEIGHT | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP\n EDITTEXT 102, 85, 195, 78, 12, ES_UPPERCASE | ES_PASSWORD | WS_BORDER | WS_TABSTOP\n CONTROL \"Button\", 400, \"BorBtn\", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 18, 225, 51, 17\n CONTROL \"TBtnBmp\", 104, \"TBtnBmp\", WS_CHILD | WS_VISIBLE | WS_BORDER, 131, 222, 25, 23\n LTEXT \"Usuario:\", 29, 58, 180, 26, 8, SS_NOPREFIX | WS_GROUP\n LTEXT \"Contraseña:\", 30, 46, 196, 38, 8\n CONTROL \"TBitmap\", 52, \"TBitmap\", WS_CHILD | WS_VISIBLE, 11, 169, 34, 44\n CONTROL \"Button\", 415, \"BorBtn\", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE, 75, 225, 51, 17\n CONTROL \"TBitMap\", 600, \"TBitMap\", WS_CHILD | WS_VISIBLE | WS_BORDER, 17, 15, 140, 148\n}\n\nNo se si es recomendable usar el Resource Workshop pra trabajar con rc, ayer baje el Pelles C pero no entiendo ni \"j\" es algo confunso y en ocaciones te muestra el rc con texto codificado y a veces los recursos incrustados, porfa  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  digamne  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> con que editor de recursos podría trabajar..?  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'','by2d533c',1,0,'',987,0,0),(32102,7054,3,35,0,'65.188.6.143',1179533844,1,0,1,1,1,0,'','ADO .. how to write ctod(\'00/00/00\') to MS Sql Server','To All\n\nI have done several Google searches and not been able to find how to write a blank or null date to a datetime field in MS Sql server using ADO recordset update. Consider this example:\n\n|DATE  |\n|  null   |\n\n\n dDATE  := oRs:Fields(\"DATE\"):Value    // xHarbour sees a NULL date as NIL\n\nwriting back a blank date\n\noRs:Fields( \"DATE\" ):Value := IF( EMPTY( dDATE ), NIL, dDATE )\n\nThis works .. however it puts a DEFAULT date of 12/30/1899 in for the NIL parameter and writes that to the table. I need to be able to let a user blank out a date and store it as BLANK or NULL in the SQL table .. ctod(\"\") gives an ADO run-time if you try to write that value to the MS SQL table.\n\nAny ideas ??\n\nRick Lipkin\nSC Dept of Health, USA','',0,'','1tsx8x65',1,0,'',35,0,0),(32103,7053,6,940,0,'189.157.69.129',1179537978,1,0,1,1,1,1,'','','Cuate,,  este es mis msg.  <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\nyo te puedo apoyar,\n\n\nyo usaba worshop,\n\npero lo cambie ya por pelles C\n\npor la simple razon de que pelles  C es un sistema a 32 bits\n\ny workshop 16 bits.\n\nsaludos..','',0,'','1pj8l499',1,0,'',940,0,0),(32104,7029,6,376,0,'201.230.151.199',1179538367,1,0,1,1,1,1,'','','Carlos\n\nEs interesante la adaptación que señalas. ¿Puedo considerarlo en el futuro para mis desarrollos personales?\n\nSaludos\n\nArmando','',0,'','ptg6ns9p',1,0,'',376,0,0),(32105,7053,6,54,0,'189.132.94.231',1179543044,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:p4hqg9ed]Cuate,,  este es mis msg.  <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\nyo te puedo apoyar,\n\n\nyo usaba worshop,\n\npero lo cambie ya por pelles C\n\npor la simple razon de que pelles  C es un sistema a 32 bits\n\ny workshop 16 bits.\n\nsaludos..[/quote:p4hqg9ed]\n\nEl workshop es a 16 bits, pero t genera recursos a 32 bits de igual manera que PellesC.\n\nCreo que es cuestión de gustos.','',0,'gA==','p4hqg9ed',1,0,'',54,0,0),(32106,7055,6,1028,0,'189.158.101.204',1179554928,1,0,1,1,1,0,'','xbrowse error','Que tal, escribo este post, como novato de este excelente lenguaje de desarrollo\n\nestoy practicando con el x browse con el siguiente codigo:\n\n[code:5xse0xhu]    DBUSEAREA&#40;&#46;T&#46;,  , &quot;DEMO&quot;, &quot;DEMO&quot; ,&#46;T&#46;, &#46;F&#46;&#41;\n    SET INDEX TO &quot;DEMO&quot;\n    ORDSETFOCUS&#40;&quot;ID&quot;&#41;\n    DBGOTOP&#40;&#41;\n\n    DEFINE WINDOW oWndP TITLE &quot;Módulo&quot; OF oWnd MDICHILD\n\n    oBrwP             &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWndP &#41;\n    oBrwP&#58;cAlias      &#58;= &quot;DEMO&quot;\n\n    oCol               &#58;= oBrwP&#58;AddCol&#40;&#41;\n    oCol&#58;bStrData      &#58;=&#123; ||PASIENTE-&gt;ID &#125;\n    oCol&#58;cHeader       &#58;= &quot;Id&quot;\n    oCol&#58;nDataStrAlign &#58;= AL_CENTER\n    oCol&#58;nHeadStrAlign &#58;= AL_CENTER\n    oCol&#58;lAllowSizing  &#58;= &#46;f&#46;\n    oCol&#58;oDataFont     &#58;= oFontP\n    oCol&#58;oHeaderFont   &#58;= oFntBrP\n    oCol&#58;nWidth        &#58;= 50\n    oCol&#58;nHeadBmpAlign &#58;= AL_LEFT\n    oCol&#58;nHeadBmpNo    &#58;= 2\n    oCol&#58;bClrHeader    &#58;= &#123;|| &#123;CLR_WHITE, CLR_BLUE&#125; &#125;\n    oCol&#58;bLClickHeader &#58;= &#123; || MSGAlert&#40;&quot;Tavo&quot;&#41; &#125;\n    oCol&#58;AddBmpHandle&#40; FwBmpAsc&#40;&#41; &#41;\n    oCol&#58;AddBmpHandle&#40; FwBmpDes&#40;&#41; &#41;\n    oCol&#58;bLDClickData  &#58;= &#123;|| MSGAlert&#40;&quot;Tavo&quot;&#41; &#125;\n\n\n    oBrwPacientes&#58;SetRDD&#40;&#41;\n    oBrwPacientes&#58;CreateFromCode&#40;&#41;\n    oBrwPacientes&#58;oClient &#58;= oWndP\n\n    ACTIVATE WINDOW oWndP VALID SaleP&#40;&quot;DEMO&quot;&#41;;\n[/code:5xse0xhu]\npero al pasar el mouse por ensima del grid me marca el siguiente error\n\n[code:5xse0xhu]Error description&#58; Error BASE/41  Scope violation &#40;hidden&#41;&#58; TXBROWSE&#58;CHECKTOOLTIP\n[/code:5xse0xhu]\neste es la pila de llamados\n\n[code:5xse0xhu]Stack Calls\n===========\n   Called from&#58;  =&gt; TXBROWSE&#58;CHECKTOOLTIP&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;MOUSEMOVE&#40;0&#41;\n   Called from&#58;  =&gt; TCONTROL&#58;MOUSEMOVE&#40;0&#41;\n   Called from&#58;  =&gt; TXBROWSE&#58;MOUSEMOVE&#40;2684&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58;  =&gt; TXBROWSE&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; &#46;\\source\\classes\\WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58;  =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; D&#58;\\fivewin\\Proy\\Dentista\\Prg\\dent&#46;prg =&gt; MAIN&#40;36&#41;\n[/code:5xse0xhu]\nle he buscado pero no encuentro el problema\n\ncualquier ayuda le agradeceria.\n\nSaludos.','',0,'AIA=','5xse0xhu',1,0,'',1028,0,0),(32109,7055,6,2,0,'87.218.146.2',1179559996,1,0,1,1,1,1,'','','Estás usando Harbour ó xHarbour ? Que versión de FWH ?','',0,'AIA=','15ry7r8o',1,0,'',2,0,0),(32110,7040,7,596,0,'80.37.11.90',1179561591,1,0,1,1,1,1,'','','Pues ya compila... gracias Antonio.\nAhora me da un error en un ventana con caption \"Windows Media\" y el contenido de la ventanita es \"Hay una entrada de registro dañada\".\nDespues al salir da un error \"Event: 5002 Params:\"\nCon el emulador me da lo mismo pero en ingles.\n\nOtro ejemplo que he hecho con el Internet Explorer y Activex no sale la pagina llamada y/o en fichero htm llamado.','',0,'AIA=','2aef109c',1,0,'',596,0,0),(32111,7047,3,972,0,'81.164.117.233',1179562125,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1m3wtney]If you will send me your email address, I will send you some sample code that I got from somewhere. I haven\'t tried it myself.\nIt is several files in a zip file or I would just post it here.[/quote:1m3wtney]It\'s \"patrick . mast @ winfakt . com\"\n\nThank you James.\n\nPatrick','',0,'gA==','1m3wtney',1,0,'',972,0,0),(32112,7040,7,2,0,'87.218.146.2',1179562223,1,0,1,1,1,1,'','','Si, hemos visto lo que comentas, lo que ocurre es que no hemos encontrado otros activex con los que probar, pero esos se crean bien, aunque dan esos errores que es algo propio de ellos','',0,'gA==','gs44wefk',1,0,'',2,0,0),(32113,7048,6,1066,0,'80.34.9.135',1179570965,1,0,1,1,1,1,'','','Me dice:\n\ntipo 8209\n\nGracias','',0,'gA==','1vkbzl5x',1,0,'',1066,0,0),(32114,7048,6,2,0,'87.218.146.2',1179572406,1,0,1,1,1,1,'','','Daniel,\n\nTe hemos enviado una librería modificada que ya debería devolver un número (puntero) en la posición cuarta del array','',0,'gA==','15d1k1bz',1,0,'',2,0,0),(32115,7051,1,418,0,'83.153.47.233',1179575662,1,0,1,1,1,0,'','','Thanks\nbut in my FW 2.1 i don\'t have this bpostkey method\n\nIt always return\n Error description: Error Objects/6  No Exp. Method: TGET:_BPOSTKEY\n\nHow can i do?','',0,'gA==','31u1a0un',1,0,'',418,0,0),(32116,7054,3,35,0,'65.188.6.143',1179577533,1,0,1,1,1,0,'','','Fernando\n\nI am writing the same program in pure ADO and in ADORDD .. I have not tested the capability of writing rdd back to the table .. and I will do that .. MS SQL seems to be different in quite a few many ways as Access or MySql .. I have put my adordd program on hold for the time being because adordd uses indexes for seeks .. and MS Sql does not support seeks on indexes .. \n\nI will test rdd on writing back ctod(\"00/00/00\") to the table and report back here.\n\nThanks\nRick Lipkin','',0,'gA==','3l1sfut2',1,0,'',35,0,0),(32117,7047,3,439,0,'200.125.39.206',1179581777,1,0,1,1,1,1,'','','James,\n\nCould you please send this samples to me too?\n\n<!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->\n\nThanks','',0,'gA==','2ditsg7m',1,0,'',439,0,0),(32118,7018,6,935,0,'200.62.78.253',1179585388,1,0,1,1,1,0,'','gracias','Gracias Fernando por tu orientacion.','',0,'gA==','35qqicf9',1,0,'',935,0,0),(32119,7056,3,996,0,'65.102.185.182',1179590583,1,0,1,0,1,0,'','Insert/Overstrike Cursors in GETS','Our customers are used to seeing the thin vertical cursor (|) for both insert and overstrike mode (this is the behavior in Word, Quickbooks, and even the very text box I\'m typing in right now on this forum).  Does anyone know if there a way to either have the thin (|) cursor always appear in a GET, or at least reverse them and have the | cursor be for insert mode and the wider cursor for overstrike?  \n\nThanks!','',0,'gA==','22fugsrs',1,0,'',996,0,0),(32120,7018,6,940,0,'189.157.69.129',1179593007,1,0,1,1,1,1,'','','Ramon, checa si en la estructura de tu base de datos,  tienes,\n\nNOT NULL\n\nDe ser asi cambiale por NULL\n\nsaludos..','',0,'gA==','202x4222',1,0,'',940,0,0),(32121,7056,3,2,0,'87.218.146.215',1179593338,1,0,1,1,1,1,'','','Patrick,\n\nIn Class TGet comment out this code:\n[code:z29mzza9]\n           DestroyCaret&#40;&#41;\n           if Set&#40; _SET_INSERT &#41;\n              CreateCaret&#40; &#58;&#58;hWnd, 0, 6, &#58;&#58;nGetChrHeight&#40;&#41; &#41;\n           else\n              CreateCaret&#40; &#58;&#58;hWnd, 0, 2, &#58;&#58;nGetChrHeight&#40;&#41; &#41;\n           endif\n           ShowCaret&#40; &#58;&#58;hWnd &#41;\n[/code:z29mzza9]\nand\n[code:z29mzza9]\n          DestroyCaret&#40;&#41;\n          CreateCaret&#40; &#58;&#58;hWnd, 0, 6, &#58;&#58;nGetChrHeight&#40;&#41; &#41;\n          ShowCaret&#40; &#58;&#58;hWnd &#41;\n[/code:z29mzza9]','',0,'AIA=','z29mzza9',1,0,'',2,0,0),(32122,3047,6,428,0,'200.55.19.126',1179593496,1,0,1,1,1,0,'','descarga de WINDLL.TXT','Antonio, no puedo bajar el archivo, no lo encuentra, de que otro lado puedo conseguirlo ?\nGracias Miguel','',0,'AIA=','qg9xkgre',1,0,'',428,0,0),(32123,3047,6,2,0,'87.218.146.215',1179593653,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32208291/windll.txt.html\">http://rapidshare.com/files/32208291/windll.txt.html</a><!-- m -->','',0,'AIA=','6gob0iuo',1,0,'',2,0,0),(32124,7057,6,428,0,'200.55.19.126',1179594107,1,0,1,1,1,0,'','CREAR CODIGO EN DLL PARA USAR CON VBA EXCEL','Estoy necesitando crar un archivo dll con codigo ejecutable, que luego pueda abrir en VBA de Excel, la idea es que esa dll me permita leer y grabar registros en un archivo DBFNTX (para que actualice los indices, ppalmente). \nEsto es Posible ?, y si lo es, como armo la dll ?','',0,'AIA=','1ulf4vdy',1,0,'',428,0,0),(32125,7051,1,303,0,'72.199.41.171',1179598538,1,0,1,1,1,0,'','','Try this example.\n\nJames\n\n--------------------\nIn order to use last char typed, let me suggest:\n\n     oGet:bChange:={|nKey| MyEval(oGet,nKey) }\n\n\nFunction MyEval(oGet,nKey)\n   Local cBuffer := oGet:oGet:Buffer\n\n   if nKey&lt;&gt;VK_RETURN\n      cBuffer := Stuff(cBuffer, ;\n                oGet:nPos,1,if(nKey=VK_BACK,\'\',chr(nKey))\n\n     // Now cBuffer contains the last char typed\n\n     // Do whatever here\n\nreturn nil','',0,'AIA=','3aulq16i',1,0,'',303,0,0),(32126,7027,6,492,0,'189.147.32.187',1179600186,1,0,1,1,1,1,'','','Solucionado, fue un error mio ya que no habia instalado un controlador.\n\nSorry  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nSaludos','',0,'AIA=','1x1wg7yf',1,0,'',492,0,0),(32127,7047,3,972,0,'81.164.117.233',1179602776,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:2pufabpn]If you will send me your email address, I will send you some sample code that I got from somewhere. I haven\'t tried it myself.\nIt is several files in a zip file or I would just post it here.[/quote:2pufabpn]Got the files. Thank you. But.. This is exactly how we did it for the printscreen I posted in this 1st message. But this is not NATIVE. It\'s tricking the class <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nI was hoping we could do it natively with the standard FWH Tree class.\n\nAntonio?\n\nPatrick','',0,'gA==','2pufabpn',1,0,'',972,0,0),(32128,7058,6,53,0,'189.139.27.90',1179604943,1,0,1,1,1,1,'','Algo especial con TReport','Saludos a todo el foro:\n\nVeran, tengo un fichero que contiene campos del mes y campos acumulados al mes, por ejemplo VENTAS DEL MES  y ACUMULADO DE VENTAS AL MES, necesito crear un reporte usando la clase TReport donde primero se impriman los campos del mes (VENTAS DEL MES) y posteriormente saltar de página y ahora imprimir los campos del acumulado (ACUMULADO DE VENTAS), quedaría algo como esto\n\nEl fichero esta así\nSUCURSAL           VTS. MES            VTS. ACUMULADAS\nNORTE               1450354.54                   130480354.54\nSUR                    950324.87                     10950324.87\nESTE                    25548.10                       3025548.10\nOESTE                790578.00                       2790578.00\n\nY el reporte sería así:\n\n                                        Página 1\n=======     ==============\nSUCURSAL           VENTAS DEL MES\n=======     ==============\nNORTE                    $ 1,450,354.54\nSUR                           $ 950,324.87\nESTE                            $ 25,548.10\nOESTE                        $ 790,578.00\n\n\n                                        Página 2\n=======    ===============\nSUCURSAL    VENTAS ACUMULADAS\n=======    ===============\nNORTE                  $ 130,480,354.54\nSUR                         $10,950,324.87\nESTE                         $3,025,548.10\nOESTE                      $ 2,790,578.00\n\nRecuerden que ambos campos (Ventas del mes y las ventas acumuladas) vienen en un solo registro lo que me obliga a leer dos veces el mismo fichero, primero para imprimir las ventas del mes y despues para imprimir las ventas acumuladas.\n\nOjala me haya explicado.\n\nAlguna idea ?','',0,'gA==','3hnjzizy',1,0,'',53,0,0),(32129,7034,6,2,0,'87.218.146.215',1179613563,1,0,1,1,1,1,'','','Esta función cambia de padre a todos los controles, incluyendo los que no estén redefinidos:\n\n[code:1drpxwm4]\n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2 \n\nfunction ChangeParent&#40; oDlg, oChild &#41; \n\n   local hCtrl &#58;= GetWindow&#40; oDlg&#58;hWnd, GW_CHILD &#41; \n   local n \n\n   while hCtrl != 0 \n      SetParent&#40; hCtrl, oChild&#58;hWnd &#41;\n      hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41; \n   end \n\n   for n = 1 to Len&#40; oDlg&#58;aControls &#41; \n      AAdd&#40; oChild&#58;aControls, oDlg&#58;aControls&#91; n &#93; &#41; \n   next \n\nreturn nil \n[/code:1drpxwm4]','',0,'AIA=','1drpxwm4',1,0,'',2,0,0),(32130,7047,3,2,0,'87.218.146.215',1179614631,1,0,1,1,1,1,'','','In the resources, this treeview style has to be used:\n#define TVS_CHECKBOXES          0x0100\n\n[code:1fltuj21]\n#include &lt;windows&#46;h&gt;\n#include &lt;commctrl&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; TVSETCHECK &#41;\n&#123;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   HTREEITEM hItem = &#40; HTREEITEM &#41; hb_parnl&#40; 2 &#41;;\n\n   TreeView_SetItemState&#40; hWnd, hItem, hb_parl&#40; 3 &#41; &#41;;\n&#125;\n \nHB_FUNC&#40; TVGETCHECK &#41;\n&#123;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   HTREEITEM hItem = &#40; HTREEITEM &#41; hb_parnl&#40; 2 &#41;;\n\n   hb_retl&#40; TreeView_GetCheckState&#40; hWnd, hItem &#41; &#41;;\n&#125;\n[/code:1fltuj21]\n[code:1fltuj21]\n   METHOD GetCheck&#40; oItem &#41; INLINE ; \n      If&#40; oItem == nil, oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, nil &#41;, ; \n      TVGetCheck&#40; &#58;&#58;hWnd, oItem&#58;hWnd &#41;\n\n   METHOD SetCheck&#40; oItem, lOnOff &#41; INLINE ; \n      If&#40; oItem == nil, oItem &#58;= &#58;&#58;GetSelected&#40;&#41;, nil &#41;, ; \n      TVSetCheck&#40; &#58;&#58;hWnd, oItem&#58;hWnd, lOnOff &#41;\n[/code:1fltuj21]','',0,'AIA=','1fltuj21',1,0,'',2,0,0),(32131,7053,6,987,0,'189.132.1.4',1179617052,1,0,1,1,1,0,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Gracias a los dos por haberme contestado, por suerte estuve revisando y compilando ejemplos de la carpeta samples y ahi encontre la respuesta:\n\nhabia que cambiar en el RC la líne que hacia referencia a los bitmaps:\n\nCONTROL \"TBitmap\", 100, \"TBitmap\", 0 | WS_CHILD | WS_VISIBLE, 11, 9, 92, 87\n\npor esto:\n\nCONTROL \"\", 100, \"TBitmap\", WS_CHILD | WS_VISIBLE, 7, 8, 106, 120\n\nY esto poruqe el control Bitmap es de Borland  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> y no es para 32bits.  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> \n\n <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->  Las cosas que hay que aprender para migrar, pero vale la pena interntar de todo, no lo creen..?  <!-- s:arrow: --><img src=\"{SMILIES_PATH}/icon_arrow.gif\" alt=\":arrow:\" title=\"Arrow\" /><!-- s:arrow: -->\n\nSaludos desde Chiapas, México','',0,'AIA=','3aq5s9z5',1,0,'',987,0,0),(32132,7034,6,492,0,'189.147.32.187',1179626151,1,0,1,1,1,1,'','','Antonio :\n\nAl aplicar la nueva funcion que comentas, muestra solo el 1er control.\n\nSaludos','',0,'AIA=','1u5yxcj3',1,0,'',492,0,0),(32133,7045,6,940,0,'189.157.69.129',1179628420,1,0,1,1,1,1,'','','use clientes new shared\ncAlias := alias()\nindex on strzero( field-&gt;numero, 7 ) tag 1 TO (cAlias)\n\ndbselectArea(cAlias)\ndbgobottom()\nbrowse()\n\nnNnumero := 1950\n\ndbseek( strzero(nNumero, 7)  )\nbrowse()\n\n\n\n\n\nsaludos.','',0,'AIA=','2st90eov',1,0,'',940,0,0),(32134,7034,6,2,0,'87.218.146.215',1179648439,1,0,1,1,1,1,'','','Raymundo,\n\nPrueba así:\n[code:izw2ynpd]\n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2 \n\nfunction ChangeParent&#40; oDlg, oWnd &#41; \n\n   local hCtrl &#58;= GetWindow&#40; oDlg&#58;hWnd, GW_CHILD &#41; \n   local n, aChilds &#58;= &#123;&#125; \n\n   while hCtrl != 0 \n      AAdd&#40; aChilds, hCtrl &#41;\n      hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41; \n   end \n\n   AEval&#40; aChilds, &#123; | hCtrl | SetParent&#40; hCtrl, oWnd&#58;hWnd &#41; &#125; &#41;\n\n   for n = 1 to Len&#40; oDlg&#58;aControls &#41; \n      AAdd&#40; oWnd&#58;aControls, oDlg&#58;aControls&#91; n &#93; &#41; \n   next \n\nreturn nil \n[/code:izw2ynpd]','',0,'AIA=','izw2ynpd',1,0,'',2,0,0),(32135,7045,6,2,0,'87.218.146.215',1179649203,1,0,1,1,1,1,'','','César,\n\nEse ejemplo no es el caso que comenta Sebastián.\n\nAqui hay un ejemplo completo, pero funciona bien:\n[code:3t0gu5zx]\nfunction Main&#40;&#41;\n\n   DBCreate&#40; &quot;test&#46;dbf&quot;, &#123; &#123; &quot;code&quot;, &quot;N&quot;, 8, 0 &#125; &#125; &#41;\n\n   USE test\n   INDEX ON Str&#40; field-&gt;code, 8 &#41; TO test\n\n   APPEND BLANK\n   field-&gt;code = 99999000\n\n   APPEND BLANK\n   field-&gt;code = 5555\n\n   APPEND BLANK\n   field-&gt;code = 10043\n\n   GO TOP\n   MsgInfo&#40; field-&gt;code &#41;\n\n   GO BOTTOM\n   MsgInfo&#40; field-&gt;code &#41;\n\n   USE\n\nreturn nil\n[/code:3t0gu5zx]','',0,'AIA=','3t0gu5zx',1,0,'',2,0,0),(32136,7051,1,418,0,'83.156.145.116',1179655439,1,0,1,1,1,0,'','','Many thanks James\nThe stuff function generate allways a fatal error on my computer, but\nwith your help i\'ve found everything that  work well\n\nlocal nkey:=lastkey()\nlocal filtre:=\"\"\n.\n.\n.\nredefine get g1 var nm id 105 picture \"!A\" of rep \ng1:bChange:={|nkey| MyEval(g1,nkey,oBrowse,@filtre) }\n.\n.\n.\n.\nFunction MyEval(oGet,nKey,oBrowse,filtre)\n\nLocal cBuffer := oGet:oGet:Buffer\n\n cbuffer:=if(nkey=19,\"\",upper(chr(nkey)))  // all fields are uppercase\n filtre:=filtre+cbuffer\n re-&gt;(sx_setscope(0,filtre))  // I use hypersix\n re-&gt;(dbgotop())\n oBrowse:refresh()\n\n\nreturn nil\n\n\nThanks','',0,'AIA=','3k8h9vl6',1,0,'',418,0,0),(32137,5923,4,6,0,'82.57.161.63',1179661106,1,0,1,1,1,1,'','Re: TGet RIGHT clause is not working','I\'m still waiting... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','3ayemyef',1,0,'',6,0,0),(32138,1233,4,6,0,'82.57.161.63',1179661290,1,0,1,1,1,1,'','Re: Bug in TMultiGet:Append() method','Any news? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','127pv25u',1,0,'',6,0,0),(32139,7059,4,6,0,'82.57.161.63',1179661887,1,0,1,1,1,1,'','Bug in PACK command','This is the sample:\n\n[code:2l2r2rep]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    DBCREATE&#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 1&quot;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 2&quot;\n\n    DELETE\n\n    PACK\n\n    CLOSE\n\n    MSGINFO&#40; &quot;Done!&quot; &#41;\n\n    RETURN NIL[/code:2l2r2rep]\n\nIt seems that PACK recovers deleted flag instead of to remove the deleted record.\n\nProbably it is a bug in Harbour_CE. It is working fine with current Harbour from CVS.\n\nEMG','',0,'AIA=','2l2r2rep',1,0,'',6,0,0),(32140,7060,4,6,0,'82.57.161.63',1179661999,1,0,1,1,1,1,'','Bug in INDEX command','This is the sample:\n\n[code:384kxwjd]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    DBCREATE&#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 1&quot;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 2&quot;\n\n    INDEX ON FIELD -&gt; test TO &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    CLOSE\n\n    MSGINFO&#40; &quot;Done!&quot; &#41;\n\n    RETURN NIL[/code:384kxwjd]\n\nIt gives \"Corruption detected\" error.\n\nEMG','',0,'AIA=','384kxwjd',1,0,'',6,0,0),(32141,7061,3,162,0,'80.121.87.99',1179673587,1,0,1,1,1,0,'','nSerialHD with UNC-Notation?','Hi everybody,\n\nWe are using the HD serial number for copy protection.\nIt works fine with mapped network drives.\n\nNow we have a potential customer who requires to start the programm without a mapped drive using the UNC-Notation.\n\nIs there a way to retrieve the serial number of the network drive with for example \"\\\\OURPC\\TEST\" instead of \"E:\" or similar?\n\nThank for any hints and help!\nDietmar','',0,'AIA=','xl5px4kp',1,0,'',162,0,0),(32142,7059,4,3,0,'80.81.159.19',1179675748,1,0,1,1,1,1,'','Re: Bug in PACK command','Enrico\n\nPack works OK you have to add \n\nSET DELETE ON\n\nRegards \n\nRichard <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','lucgrvef',1,0,'',3,0,0),(32143,7059,4,6,0,'87.13.209.37',1179678006,1,0,1,1,1,1,'','Re: Bug in PACK command','No, SET DELETED ON is not required for PACK to work. Anyway, I just tried with SET DELETED ON and found the same result.\n\nI\'m using FWPPC 7.02.\n\nEMG','',0,'AIA=','1fdjtvzv',1,0,'',6,0,0),(32144,7055,6,1028,0,'189.158.96.166',1179679310,1,0,1,1,1,0,'','','uso Harbour y la versión de FWH es la de April 7.04 2007 build','',0,'AIA=','19p14532',1,0,'',1028,0,0),(32145,7058,6,935,0,'200.62.78.190',1179680956,1,0,1,1,1,0,'','estaria mejor con Tprinter','Armando;\n\nTe resultaria mejor usar la clase Tprinter con oPrn:CmSay, con dos bucles o do while !eof(). uno para el mes y otro para el acumulado,\n\nalgo asi como : \n\nPRINT oPrn preview\n\nSELECT A\nUSE MIBASE\nINDEX ON (MICAMPO) TO (MI_INIDCE)\n\nSELECT A\nDO WHILE !EOF()\n     PAGE\n     oPrn:CmSay( 1,1,\"SUCURSAL \" ,ofont)\n     oPrn:CmSay( 1,5,\"VENTAS DEL MES \" ,ofont)\n     mSuc = MIBASE-&gt;SUCURSAL\n     mLinea = 3\n     DO WHILE MIBASE-&gt;SUCURSAL = mSuc\n           oPrn:CmSay(mLinea,1,+mSuc,oFont)\n           oPrn:CmSay(mLinea,2,+transform(MIBASE-&gt;ventas del mes,oFont)\n     skip\n     enddo\n     mLinea = mLInea + 0.5 (separacion entre registros)\nenddo\nlos totales aqui\nendpage\n\nselect a\ny aqui repites el mismo procedimiento para el acumulado, antes del endprint\n\nOjala te de alguna idea\n\nRamon Paredes\nManagua, Nicaragua','',0,'AIA=','21lm3lhr',1,0,'',935,0,0),(32146,7059,4,2,0,'87.218.146.215',1179680973,1,0,1,1,1,1,'','','Enrico,\n\nChanging your code this way:\n\n    PACK \n\n    MsgInfo( RecCount() )\n\nIt shows 1, which it seems correct','',0,'AIA=','2forrggb',1,0,'',2,0,0),(32147,7055,6,2,0,'87.218.146.215',1179681273,1,0,1,1,1,1,'','','Gustavo,\n\nHas modificado alguna clase de FWH ?\n\nPor favor construye samples\\testxbrw.prg y prueba si te da el mismo error. Aqui funciona bien','',0,'AIA=','3ndimr9b',1,0,'',2,0,0),(32148,7059,4,6,0,'87.13.209.37',1179683521,1,0,1,1,1,1,'','','Yes, but now try to open TMPTEST.DBF and you will see that there are two records.\n\nEMG','',0,'AIA=','8yoluisg',1,0,'',6,0,0),(32149,7059,4,6,0,'87.13.209.37',1179686036,1,0,1,1,1,1,'','','This is the modified sample showing that the record is not removed:\n\n[code:3qgt03dr]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    SET DELETED ON\n\n    DBCREATE&#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 1&quot;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 2&quot;\n\n    DELETE\n\n    PACK\n\n    CLOSE\n\n    USE &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    MSGINFO&#40; RECCOUNT&#40;&#41; &#41;\n\n    CLOSE\n\n    MSGINFO&#40; &quot;Done!&quot; &#41;\n\n    RETURN NIL[/code:3qgt03dr]\n\nEMG','',0,'AIA=','3qgt03dr',1,0,'',6,0,0),(32150,7059,4,2,0,'87.218.146.215',1179687012,1,0,1,1,1,1,'','','Enrico,\n\nIt is related to the SD memory card. Copy the EXE to the Pocket PC root path and it works fine there','',0,'AIA=','mj3twtox',1,0,'',2,0,0),(32151,7059,4,6,0,'87.13.209.37',1179687362,1,0,1,1,1,1,'','','Sorry, I haven\'t a pocket PC. How can I do the same using the emulator?\n\nEMG','',0,'AIA=','172lbjlb',1,0,'',6,0,0),(32152,7059,4,2,0,'87.218.146.215',1179688531,1,0,1,1,1,1,'','','Enrico,\n\nKeep the mouse pressed on top of the EXE until a popup is shown, then select copy. Then select \"My Device\" from the top menu of the file explorer and right click and select paste. Then run it there.\n[url=http&#58;//imageshack&#46;us:2nakd7nh][img:2nakd7nh]http&#58;//img399&#46;imageshack&#46;us/img399/6691/copydm3&#46;png[/img:2nakd7nh][/url:2nakd7nh]\n[url=http&#58;//imageshack&#46;us:2nakd7nh][img:2nakd7nh]http&#58;//img399&#46;imageshack&#46;us/img399/4901/pastekh9&#46;png[/img:2nakd7nh][/url:2nakd7nh]','',0,'GA==','2nakd7nh',1,0,'',2,0,0),(32153,7051,1,418,0,'83.156.145.116',1179691536,1,0,1,1,1,0,'','','And now it work in the two directions\n\nFunction MyEval(oGet,nKey,l1,filtre)\nLocal cBuffer := oGet:oGet:Buffer\n\n\nif nkey=8\n    filtre:=substr(filtre,1,len(filtre)-1)\n else\n cbuffer:=upper(chr(nkey))\n  filtre:=filtre+cbuffer\nendif\n\n  re-&gt;(sx_setscope(0,filtre))\n re-&gt;(dbgotop())\n l1:refresh()\n\n\nreturn nil\n\n\n\n\nThank Thank  James','',0,'GA==','2dv9xjjm',1,0,'',418,0,0),(32154,7059,4,6,0,'82.59.51.123',1179700311,1,0,1,1,1,1,'','','Yes, this way it works. Unfortunately, this makes the emulator much less useful. I wonder if there is a way to get the program to run correctly on the storage card...\n\nEMG','',0,'GA==','3p7ai74c',1,0,'',6,0,0),(32155,7060,4,6,0,'82.59.51.123',1179700477,1,0,1,1,1,1,'','Re: Bug in INDEX command','This sample works fine in MyDevice.\n\nEMG','',0,'GA==','1ln7o8sv',1,0,'',6,0,0),(32156,7054,3,35,0,'65.188.6.143',1179705432,1,0,1,1,1,0,'','','To All .. the FIX \n\nHere is some \'snipits\' of my xHarbour thread with Jose Gimenez who has fixed the problem and is available in binary from his site or on CVS.\n\nRick Lipkin\nSC Dept of Health, USA\n\n//----------------------------\n\nRick,\n\n&gt; This works .. however it puts a DEFAULT date of 12/30/1899 in for the NIL \n&gt; parameter and writes that to the table. I need to be able to let a user \n&gt; blank out a date and store it as BLANK or NULL in the SQL table .. \n&gt; ctod(\"\") gives an ADO run-time if you try to write that value to the MS \n&gt; SQL table.\n\nThis was fixed last Feb, 16th, but last official binaries from xHarbour are \nolder, so you have to update from CVS. Now, writing a ctod(\"\") value results in a real NULL date.\n\n//--------------------------------------------\n\nThe change is very simple:\n\n- search the function hb_oleItemToVariant() in \n\\xharbour\\source\\rtl\\win32ole.prg\n- search the case HB_IT_DATE: in the switch sentence\n- change the first line:\n\n          if( bByRef )\n    into:\n          if( pItem-&gt;item.asDate.value == 0 )\n          {\n             pVariant-&gt;n1.n2.vt = VT_NULL;\n          }\n          else if( bByRef )\n\nThat\'s all  <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'GA==','2x7ug3of',1,0,'',35,0,0),(32157,7062,3,666,0,'211.28.125.58',1179710753,1,0,1,1,1,0,'','ActiveX: How to check/update version','I\'ve been using RMChart OCX successfully and a new version has just come out.  Here is the pseudo code of what I want to do:-\n\n......\nIf the OCX is already registered\n   If the OCX registered is an outdated version\n       Unregister the old version\n       Register the new version\n   Endif\nEndif\n......\n\nAny suggestions re how I can do this?  Thanks in advance.\nColin Wisbey','',0,'GA==','2i7smg9h',1,0,'',666,0,0),(32158,7063,3,666,0,'211.28.125.58',1179712640,1,0,1,1,1,0,'','RMChart: Anyone have wrappers for the DLL?','I\'ve been using RMChart successfully for some months and I highly recommend it.  I\'ve been using the OCX version (which works fine) but I would much prefer to use the DLL version.\n\nIs there anyone who can provide me with FWH/xHarbour wrapper functions for the DLL version?  (I just don\'t have the skills for doing such wrapper functions).\n\nTIA.\nColin Wisbey','',0,'GA==','2p3dxtnm',1,0,'',666,0,0),(32159,6480,6,348,0,'201.230.133.218',1179715580,1,0,1,1,1,0,'','Re: TACTIVEX - modificar propriedades e metodos ????','Holas, \n\nMe imagino que adivinas mi solicitud, me adiciono a la lista !!!  podrias hacerme el favor de enviarme esta clase y quizas algun ejemplo como usarla  si no es molestia.\n\nGracias \n\nLubin\n\nMi correo es <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->','',0,'GA==','3aokx5mc',1,0,'',348,0,0),(32160,7064,6,936,0,'190.56.84.170',1179725472,1,0,1,1,1,0,'','Conexión a Paradox 7.x con ADO','Hola a todos.\nQuiero preguntar si alguien sabe la cadena de conexión para accesar tablas de Paradox 7.x\nHe logrado accesar las de la versión 5.x con esta cadena sin problemas:\n\n[code:28ghw43y]\nLOCAL oConexionAdo &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41; \nLOCAL oRecordset &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;recordset&quot;&#41;\nLOCAL oCommand &#58;= TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;command&quot;&#41;\n\noConexionAdo&#58;Open&#40;&quot;Provider= Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=C&#58;\\TempEI4;Extended Properties=Paradox 5&#46;x;&quot;&#41; \n[/code:28ghw43y]\n\nPero ahora necesito accesar a las de la versión 7.x y no encuentro por ningun lado como hacer la conexión con ADO, o con ODBC.\n\nSaludos.\n\nCarlos Sincuir','',0,'AIA=','28ghw43y',1,0,'',936,0,0),(32161,7059,4,2,0,'87.218.146.215',1179725474,1,0,1,1,1,1,'','','Enrico,\n\nHarbour uses the same functions to manage files when it runs on the memory card, so its a difference on the Windows Mobile OS','',0,'AIA=','1e7kfpep',1,0,'',2,0,0),(32162,7060,4,2,0,'87.218.146.215',1179725601,1,0,1,1,1,1,'','','Enrico,\n\nIt looks as the same behavior. Applications should be tested on the Pocket PC memory, not on the memory card','',0,'AIA=','2wzbugmz',1,0,'',2,0,0),(32163,7062,3,2,0,'87.218.146.215',1179725757,1,0,1,1,1,1,'','','Colin,\n\n&gt; If the OCX is already registered \n\nif IsActiveX( &lt;cProgID&gt; )\n\n&gt; If the OCX registered is an outdated version \n\nThere should be a method to know the version. We need to know which one it is','',0,'AIA=','1iyek1m8',1,0,'',2,0,0),(32164,7060,4,6,0,'87.1.198.167',1179729834,1,0,1,1,1,1,'','','The problem is that apparently the memory card can\'t be mapped to a directory of the PC and this forces to do a manual copy/paste on the device at each execution. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nAre there other solutions?\n\nEMG','',0,'AIA=','3dwz4zhv',1,0,'',6,0,0),(32165,7060,4,2,0,'87.218.146.215',1179730660,1,0,1,1,1,1,'','','Enrico,\n\nYou can use Microsoft\'s device emulator manager:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32491820/dvcemumanager.zip.html\">http://rapidshare.com/files/32491820/dv ... r.zip.html</a><!-- m -->\nto manage the emulator from your PC and then move the files to the desired location','',0,'AIA=','2emkur45',1,0,'',2,0,0),(32166,7060,4,6,0,'87.1.198.167',1179733658,1,0,1,1,1,1,'','','Thank you, but all I get is \"Cannot start the emulator\" error message. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','364ilz3y',1,0,'',6,0,0),(32167,7060,4,2,0,'87.218.146.215',1179734609,1,0,1,1,1,1,'','','Enrico,\n\nYou need to have the emulator running before using it','',0,'AIA=','352jrudg',1,0,'',2,0,0),(32168,7060,4,6,0,'87.1.198.167',1179734956,1,0,1,1,1,1,'','','Just tried. Same result. Perhaps some other components is required? Or my emulator is not the right one? It already has a device manager but I get nothing when I run it.\n\nEMG','',0,'AIA=','1g6yh761',1,0,'',6,0,0),(32169,6191,6,456,0,'217.127.39.57',1179735180,1,0,1,1,1,1,'','','[quote:1fqlib1i]inclusive se prodria pensar en colocar a [x]Harbour como lenguaje para sus funciones y procedimientos almancenados, por otra parte su api es muy sencilla y por ello tienes conexion con una variedad de lenguajes, [x]Harbour esta en la lista.[/quote:1fqlib1i]\n\nComo podria incluirse funciones almacenadas en [x]harbour en procedimientos almacenados? \n\nAlguna referencia o documentacion tanto para procesos almacenados como conexion con el API via harbour. \n\nGracias anticipadas.','',0,'gA==','1fqlib1i',1,0,'',456,0,0),(32170,7060,4,2,0,'87.218.146.215',1179737219,1,0,1,1,1,1,'','','Enrico,\n\nDo you have ActiveSync installed on your computer ? It is required for the dvcemumanager.exe to properly work','',0,'gA==','1nkrxodx',1,0,'',2,0,0),(32171,7060,4,6,0,'87.1.198.167',1179737869,1,0,1,1,1,1,'','','No, from where can I download it?\n\nThank you!\n\nEMG','',0,'gA==','259752rp',1,0,'',6,0,0),(32172,7056,3,996,0,'65.102.185.182',1179738249,1,0,1,0,1,0,'','','Thanks Antonio, that worked perfectly.  I actually used:\n\nCreateCaret( ::hWnd, 0, 2, ::nGetChrHeight() )\n\n...to get the smaller vertical bar cursor.   I also made a change to the KeyChar() method in TGet.prg so that the GET text control will stop accepting characters in insert mode when the control is full, instead of having existing characters \"fall off\" on the right.  This is more in keeping with the behavior of our current application I am porting.  For consistency, I also changed the WM_PASTE case in HandleEvent() so that only as many characters as there is space remaining for in the control will be pasted, again preventing existing text in the control from being truncated on the right if the paste string is too big.\n\nI think it\'s wonderful that you have opened up many of the FiveWin classes to user inspection and customization.  For me personally they are a great learning tool since I have not done much object oriented programming as of yet.  And having some of the FiveWin source code also gives us a glimpse at how very well designed and elegant FiveWin is internally.  \n\n-Patrick','',0,'gA==','2xfxdfbd',1,0,'',996,0,0),(32173,7045,6,350,0,'80.32.243.219',1179739718,1,0,1,1,1,0,'','','Hola Antonio.\n\nYa está solucionado. \nEl problema estaba en que se me había olvidado borrar antes el indice CDX.\n\nGracias y perdón por las molestias.','',0,'gA==','2yzuyytw',1,0,'',350,0,0),(32174,7060,4,2,0,'87.218.146.215',1179739966,1,0,1,1,1,1,'','','Enrico,\n\nGoogle for it. Its a Microsoft download\n\nIf you are using Windows Vista then it is no longer needed, as it is part of Vista','',0,'gA==','2t5g2ikp',1,0,'',2,0,0),(32175,7056,3,2,0,'87.218.146.215',1179740172,1,0,1,1,1,1,'','','Patrick,\n\nglad to know you are moving forward and enjoying FiveWin <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3k6vptpe',1,0,'',2,0,0),(32176,7045,6,2,0,'87.218.146.215',1179740286,1,0,1,1,1,1,'','','Sebastián,\n\nme alegro de que esté solucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2a9kxdkc',1,0,'',2,0,0),(32177,7060,4,6,0,'87.3.232.118',1179740622,1,0,1,1,1,1,'','','Ok, I already downloaded and installed ActiveSync 4.5 but it won\'t connect to my device emulator.\n\nAny hint?\n\nEMG','',0,'gA==','2levb6fo',1,0,'',6,0,0),(32178,7060,4,2,0,'87.218.146.215',1179740777,1,0,1,1,1,1,'','','Enrico,\n\nOnce the emulator is running, then you execute dvcemumanager.exe and what screen do you get ?','',0,'gA==','6i0siar0',1,0,'',2,0,0),(32179,7060,4,6,0,'87.3.232.118',1179740963,1,0,1,1,1,1,'','','As previously: nothing at all with the version provided with the emulator and \"Cannot start the emulator\" with the version you sent me.\n\nEMG','',0,'gA==','2yq626ub',1,0,'',6,0,0),(32180,7060,4,2,0,'87.218.146.215',1179742424,1,0,1,1,1,1,'','','Enrico,\n\nAre you using XP ?','',0,'gA==','1daegprt',1,0,'',2,0,0),(32181,7060,4,6,0,'87.3.232.118',1179743135,1,0,1,1,1,1,'','','Yes. Anyway, now the Device Manager starts (it was not registered). I already get the emulator connected with ActiveSync and I can use Explorer on the PC to see My Device.\n\nBut what I would want to find is a way to automatically copy updated files from mapped storage card to My Device.\n\nIs it possible?\n\nEMG','',0,'gA==','3nbcck1c',1,0,'',6,0,0),(32182,7060,4,2,0,'87.218.146.215',1179743487,1,0,1,1,1,1,'','','Enrico,\n\nWe could use FWPPC to build an application that does it (using a timer) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','a0y7bxub',1,0,'',2,0,0),(32183,7060,4,6,0,'87.3.232.118',1179743896,1,0,1,1,1,1,'','','I just need to automatically copy a file from Storage Card to My Device but I don\'t know how to access to My Device from a copy command or similar.\n\nEMG','',0,'gA==','2o7tsgwo',1,0,'',6,0,0),(32184,7060,4,2,0,'87.218.146.215',1179744722,1,0,1,1,1,1,'','','Enrico,\n\nMy Device is the root path \"\\\"','',0,'gA==','3mz2v8mj',1,0,'',2,0,0),(32185,7034,6,21,0,'83.41.150.208',1179744818,1,0,1,1,1,1,'','','Hola Antonio,\n\nGracias por esta nueva aportación\n\nTengo unos problemas con esta función:\n\n1º Desde un get no funciona ni el tabulador ni el intro para cambiar a otro.\n\n2º Uso groupbox sin redifinir en el programa (-1) para mostrar datos agrupados y con esta función no refrescan el fondo.\n[url=http&#58;//img516&#46;imageshack&#46;us/my&#46;php?image=aplicacinqu3&#46;jpg:26mp3i07][img:26mp3i07]http&#58;//img516&#46;imageshack&#46;us/img516/2485/aplicacinqu3&#46;th&#46;jpg[/img:26mp3i07][/url:26mp3i07]','',0,'GA==','26mp3i07',1,0,'',21,0,0),(32186,7058,6,41,0,'200.105.194.235',1179750955,1,0,1,1,1,0,'','','Hola,\nse me imagina que podrias utilizar GRUPOS y en el ON START GROUP o en alguno de los bloques que se ejecutan cuando hay cambio de grupo, regresar al registro inicial y claro guardar datos y banderas para que no quede en un ciclo infinito.\n\nOtra solucion, pasarlo todo a un array y todo lineal\n\nsolo son ideas\n\nsaludos\n\nMarcelo','',0,'GA==','2da4bvyn',1,0,'',41,0,0),(32187,7065,3,58,0,'84.149.107.218',1179752380,1,0,1,1,1,0,'','problem after update','Hi Antonio,\n\ni updated this morning to FWH version 7.05.\nWhen trying to compile and run your sample winpop3.prg i get the following error window:[quote:1fp3gkg2]---------------------------\nUnrecoverable error 9000: \n---------------------------\n\'ACTIVEX.PRG\' was compiled by older version, PCODE version 9 is no longer supported - Please recompile.[/quote:1fp3gkg2]\n\nI use xHarbour 0.99.70 and i\'m not aware of any ActiveX call in this sample.\nWhat could be wrong?\n\nBest regards,\nDetlef','',0,'gA==','1fp3gkg2',1,0,'',58,0,0),(32188,7066,6,41,0,'200.105.194.235',1179752802,1,0,1,1,1,0,'','Columnas en RichText (RTF)','Hola,\n\nqueria saber si era posible tener columnas con diferentes justificaciones en un RichTextEdit, talvez, en otras palabras tener tablas con justificaciones distintas por columna, si tienen alguna idea, podrian compartirla?\n\nsaludos\n\nMarcelo','',0,'gA==','nfyrlexw',1,0,'',41,0,0),(32189,6191,6,316,0,'213.97.245.163',1179753781,1,0,0,1,1,0,'','','Hola compañeros,\n\nun punto que siempre me ha gustado de mysql es la replicación, que si bien no es imprescindible hay muchos casos que me parece útil, y en mysql es realmente fácil, no así con postgress, que esta fuera del servidor y es bastante complejo.\n\nHay que decir que postgresql es orientado a objetos, no se de otro motor que lo sea.\n\nSaludos,\n\nCarlos.\n\nPD: Oracle, al revés, se lee ElCaro. Será una casualidad?','',0,'gA==','2684ihnn',1,0,'',316,0,0),(32190,7034,6,131,0,'194.179.55.36',1179755479,1,0,1,1,1,0,'','','Busca la clase TFsdi2006 en <!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com\">http://www.avemundi.com</a><!-- m --> que hace algo parecido a lo que quieres.\n\nSaludos,','',0,'gA==','200zig91',1,0,'',131,0,0),(32191,7067,3,190,0,'124.7.26.152',1179755942,1,0,1,1,1,0,'','Is there any way to send / receive SMS using FWH','Hi friends\n\nHas anybody tried sending/receiving SMS using FWH ?\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','1odp4wi4',1,0,'',190,0,0),(32192,7060,4,6,0,'79.3.210.184',1179760126,1,0,1,1,1,1,'','','Sorry, I meant to do a copy from the PC to My Device. I think it is not possible, right?\n\nEMG','',0,'gA==','1bam9tv8',1,0,'',6,0,0),(32193,7042,3,1023,0,'201.92.182.243',1179760756,1,0,1,1,1,0,'','','Claro, aqui vai.\n\n[code:r6bsijjo]\n#DEFINE nXP GetSysMetrics&#40;0&#41;/100   //Pega a porcentagem da tela\n#DEFINE nYP GetSysMetrics&#40;1&#41;/100\n#Define nBorda &#40;&#40;nXP + nYP&#41; / 4&#41;     //O tamanho da borda de alguns objs\n\n#define wBackClr        RGB&#40;235,233,237&#41;    //as cores usadas pelas classes\n#define wTxtClr         RGB&#40;  0,  0,  0&#41;\n#define wTxtClrSel      RGB&#40;230,230,255&#41;\n#define wClrSelFocus    RGB&#40; 70,110,200&#41;\n#define wClrSel         RGB&#40;170,180,200&#41;\n#define wClrNormal      RGB&#40;220,230,240&#41;\n#define wClrHeader      RGB&#40; 55, 70,125&#41;\n\n#define oFontP          TFont&#40;&#41;&#58;New&#40;&quot;Courier New&quot;,,15&#41;\n\n//Uma classe que monta diversos botões em uma janela\n&#58;&#58;nBtnWidth    &#58;= &#40;&#40;&#58;&#58;nWidth - &#40;nBorda * 2&#41;&#41; - &#40;&#40;nBorda / 2&#41; * &#40;nCols - 1&#41;&#41;&#41; / nCols   \n   &#58;&#58;nBtnHeight   &#58;= &#40;&#58;&#58;nHeight - &#40;nBorda * 2&#41; - &#40;&#40;nRows - 1&#41; * &#40;nBorda / 2&#41;&#41;&#41; / nRows\n\n//Aqui um exemplo das cores sendo usada em outra classe\n\n   if &#58;&#58;aClrSelFocus&#91;1&#93; == nil ; &#58;&#58;aClrSelFocus&#91;1&#93; &#58;= wTxtClrSel        ; endif\n   if &#58;&#58;aClrSelFocus&#91;2&#93; == nil ; &#58;&#58;aClrSelFocus&#91;2&#93; &#58;= wClrSelFocus      ; endif\n\n// e aqui como uso o nXP e nYP &#40; as porcentagens&#41;\n\nif nWidth   == nil ; &#58;&#58;nWidth    &#58;= 60 * nXP ; else ; &#58;&#58;nWidth  &#58;= nWidth   * nXP ; endif\n      if nHeight  == nil ; &#58;&#58;nHeight   &#58;= 60 * nYP ; else ; &#58;&#58;nHeight &#58;= nHeight  * nYP ; endif\n[/code:r6bsijjo]\n\nA coisa é que estou passando um sistema em tela texto em harbour para fivewin, e na versão texto, o usuario escolhe as fontes e cores que preferem.\nE o sistema tem que se ajustar de acordo com o tamanho da janela sem perder nenhuma informação, por isso que preciso redefinir as cores e a fonte no inicio da aplicação, que é quando ela carrega as configurações do usuario, e que os valores redefinidos tenhão efeito em toda a aplicação\n\nSe poder me ajudar, ficarei muito agradecido.\nUm abraço, t+.','',0,'AIA=','r6bsijjo',1,0,'',1023,0,0),(32194,7068,7,840,0,'201.243.12.220',1179761492,1,0,1,1,1,0,'','usar toda la pantalla y ocultar la barra de inicio y tecldo','saludo a todos\n\nquien me pofria dar un ejemplo de como usar la patalla \ncompleta o full screen.\n\no no mostar la barra de inicio superior y la barra de teclado inferior\n\n\ndario ferreira\n\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'AIA=','1ydymodo',1,0,'',840,0,0),(32195,7069,3,529,0,'200.159.199.104',1179763539,1,0,1,1,1,0,'','date/time limit (trial)','HI, someone has an sample of time/date limit of use, like trial version? thanks','',0,'AIA=','1fli7pey',1,0,'',529,0,0),(32196,7058,6,53,0,'189.139.24.209',1179766636,1,0,1,1,1,1,'','','Gracias Ramón, Gracias Marcelo:\n\nTodoas las ideas y sugerencia son bien recibidas, voy a esperar un poco a ver si alguien más del foro se anima a dar su comentario.\n\nSaludos','',0,'AIA=','zecoo7p0',1,0,'',53,0,0),(32197,7048,6,215,0,'189.136.228.184',1179766638,1,0,1,1,1,1,'','Licencia','Daniel,\n¿Tu entiendes el asunto de las licencias de Griaule?\n\nSegún yo.\nLa licencia integrador Ligt o Full se compra una sola vez. La puedes instalar en ilimitado número de PCs.\nEl programa que tu creas. El EXE cuando se instala en otra pc deberás pagar una licencia. Desde los 37 dolares.\nEntonces, es pagar por el SDK y pagar por cada instalación que se realize.\nAhora, la licencia del Microsoft Fingerprint prohibe usar el lector como producto integrador. Es decir, solo podrá ser usado para los propositos señalados en la licencia de aceptación del producto. Como llave para ingresar a una pc. No podrá ser usado como parte de otro producto.\nLa buena noticia es que el mismo driver sirve para el Digital Persona y ese es lo contrario. Es un producto para integradores. \nPor último solo el mensaje de alguien que envio un mensaje a Microsoft y en respuesta le dicen que tienen pensando sacar un fix para evitar que los lectores de su marca funcionen con la libreria de Griaule por que violan la licencia de uso.\n\nAsi pues yo he descartado el usar Griaule y revisar otro como el de Kimaldi o el mismo Digital Persona.\n\nGracias \nFernando Leal','',0,'AIA=','seuuog6e',1,0,'',215,0,0),(32198,6664,1,569,0,'190.72.189.150',1179768169,1,0,1,1,1,0,'','Saludos de SilData','Hola MARC:\nSegun mi experiencia, puedes utilizar un utility llamado \"WINDOW COMMANDER\" o como lo llaman ahora \"TOTAL COMMANDER\", te resuelve el problema de las busquedas sobre cualquier tipo de archivo con cualquier tipo de texto, te lo recomiendo.\nOtro que te puede servir es el DANALYST, tambien muy util, si te interesan escribeme a mi correo.\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','139he1q4',1,0,'',569,0,0),(32199,7069,3,6,0,'79.3.210.184',1179768742,1,0,1,1,1,1,'','Re: date/time limit (trial)','Something like this?\n\n[code:j9mstoty]IF DATE&#40;&#41; &gt; CTOD&#40; &quot;XX/YY/ZZZZ&quot; &#41;\n    // Expired\n    RETURN NIL\nENDIF[/code:j9mstoty]\n\nEMG','',0,'AIA=','j9mstoty',1,0,'',6,0,0),(32200,7069,3,529,0,'200.159.199.104',1179769113,1,0,1,1,1,0,'','','Enrico, yes, but after expired, write in windows registry or create an file , to not execute again.','',0,'AIA=','2sw19u4o',1,0,'',529,0,0),(32201,7069,3,6,0,'79.3.210.184',1179769382,1,0,1,1,1,1,'','','What is the problem?\n\nEMG','',0,'AIA=','1hw7fdt8',1,0,'',6,0,0),(32202,7065,3,58,0,'84.149.107.218',1179769781,1,0,1,1,1,0,'','','btw,\nthis error appears withe every sample i try to build and start.','',0,'AIA=','25m7la65',1,0,'',58,0,0),(32203,7060,4,6,0,'79.3.210.184',1179769862,1,0,1,1,1,1,'','','I rethink to the subject. What makes PACK or INDEX ON command so special that they can\'t execute in Storage Card while, as an example, REPLACE command or DBCREATE() function aren\'t?\n\nEMG','',0,'AIA=','22o256ua',1,0,'',6,0,0),(32204,7069,3,529,0,'200.159.199.104',1179770312,1,0,1,1,1,0,'','','Enrico, after expired date, i need save it , using windows registry or an file... i need an sample, you have?','',0,'AIA=','fhja95fk',1,0,'',529,0,0),(32205,7069,3,6,0,'79.3.210.184',1179770471,1,0,1,1,1,1,'','','You can use MEMOWRIT() or FCREATE() to create files. I don\'t recommend to write in the registry.\n\nEMG','',0,'AIA=','3emsb6gu',1,0,'',6,0,0),(32206,7060,4,6,0,'79.3.210.184',1179771221,1,0,1,1,1,1,'','','And why the following sample works?\n\n[code:1v8djvn5]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    SET DELETED ON\n\n    DBCREATE&#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 1&quot;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 2&quot;\n\n    DELETE\n\n//    PACK\n\n    CLOSE\n\n    MYPACK&#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&#46;DBF&quot; &#41;\n\n    USE &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    MSGINFO&#40; RECCOUNT&#40;&#41; &#41;\n\n    CLOSE\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MYPACK&#40; cDbf &#41;\n\n    LOCAL cTmp &#58;= &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST_&#46;DBF&quot; &#41;\n\n    USE &#40; cDbf &#41;\n\n    COPY TO &#40; cTmp &#41;\n\n    CLOSE\n\n    FERASE&#40; cDbf &#41;\n\n    COPY FILE &#40; cTmp &#41; TO &#40; cDbf &#41;\n\n    FERASE &#40; cTmp &#41;\n\n    RETURN NIL[/code:1v8djvn5]\n\nEMG','',0,'AIA=','1v8djvn5',1,0,'',6,0,0),(32207,7060,4,6,0,'79.3.210.184',1179771571,1,0,1,1,1,1,'','','And why this other works too (please note that I only add REQUEST DBFNTX)?\n\n[code:3b7y3wqi]#include &quot;Fwce&#46;ch&quot;\n\n\nREQUEST DBFNTX\n\n\nFUNCTION MAIN&#40;&#41;\n\n    DBCREATE&#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\n    USE &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 1&quot;\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test 2&quot;\n\n    INDEX ON FIELD -&gt; test TO &#40; CURDIR&#40;&#41; + &quot;\\TMPTEST&quot; &#41;\n\n    CLOSE\n\n    MSGINFO&#40; &quot;Done!&quot; &#41;\n\n    RETURN NIL[/code:3b7y3wqi]','',0,'AIA=','3b7y3wqi',1,0,'',6,0,0),(32208,7048,6,1066,0,'88.0.203.11',1179772085,1,0,1,1,1,1,'','','Fernando,\n\nEl utilizar ese modelo de lector para las pruebas es porque lo tenia a mano, lo compre hace un año para probar y hasta ahora no lo habia usado.\n\nEn caso de venta a clientes no seria ese modelo, parece demasiado sencillo para utlizarlo de continuo en fichajes.\n\nPense en GrFinger, porque permite hasta 5 modelos diferentes de lectores y desarrollando una sola vez puedo luego elegir entre varios aparatos. No estoy limitado a un modelo concreto.\n\nTampoco me parece excesivo el precio por instalación. En principio son para pocas instalaciones.\n\nDe todas formas mirare esas otras alternativas.\n\nGracias','',0,'AIA=','1spln0xn',1,0,'',1066,0,0),(32209,7031,2,1065,0,'201.116.83.242',1179773818,1,0,1,1,1,0,'','no solo la libreria.','No solo la libreria.','',0,'AIA=','hz84s33q',1,0,'',1065,0,0),(32210,7048,6,1066,0,'88.0.203.11',1179776927,1,0,1,1,1,1,'','','Fernando,\n\nSobre las licencias de GrFinger si que esta un poco liado:\n\nEn su pagina de precios en el SDK LIGHT hay un [?] que acercando el raton enseña este texto:\n\n[code:2m7fqtwa]\nSi compra Licencias de Integrador, usted paga solo una vez y puede desarrollar la aplicación basada en GrFinger en un numero ilimitado de computadoras&#46; Tome en cuenta que usted también puede desarrollarlo usando nuestra licencia de prueba, ubicada en la página de Descargas&#46;\n[/code:2m7fqtwa]\n\nLuego para desarrollarlo no necesitas el SDK, basta con la licencia de prueba y 37 Dolares por instalación del EXE\n\n¿ Y si la compras puedes instalarla ilimitadas veces ? O tambien hace falta 37 Dolares por EXE. No esta claro. Pero se supone que no hara falta pagar por instalación.\n\nNo lo he consultado todavia con ellos, primero tengo que saber que podre usarla desde Fivewin, que parece que si.','',0,'AIA=','2m7fqtwa',1,0,'',1066,0,0),(32211,7065,3,110,0,'165.98.223.33',1179777749,1,0,1,1,1,1,'','','this is: the pcode of the .prg library is diferent of pcode of your source application.\n\nyou have two option:\n\n1.-You have recompile all source (.prg) of fivewin for harbour library with the current xharbour compiler. (recreate the fwh library)\n\nor\n\n2.-You have use the xharbour compiler version with building the fivewin harbour library. (change the xharbour compiler what use)\n\nsorry for my very terrible english\n\nthe spanish is my native language.\n\nsalu2\ncarlos vargas','',0,'AIA=','230n3s3y',1,0,'',110,0,0),(32212,6991,6,959,0,'201.58.51.167',1179778736,1,0,1,1,1,0,'','','Antonio,\n\n Já consegui efetuar a migração para FWH 7.05 + xHB 99.70,  graças a teu suporte, agora continuo com o erro el Activex que não me refresca la pantalha como demonstrado arriba.\n\n  Já quitei estas linhas em activex.prg e não resolveu \n\n//  METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0\n //  METHOD EraseBkGnd( hDC ) INLINE 1\n\n  Poderia me ajudar a resolver isto por favor.\n\n  Gracias.\n\n  Mário','',0,'AIA=','3f0l839j',1,0,'',959,0,0),(32213,6191,6,103,0,'201.8.91.11',1179780296,1,0,1,1,1,1,'','','Maestro Rene,\n\n[quote:1lzypvam]Se puede acceder a el por ADO sin ningun problema, pero ojo: no hay ADO provider para MySQL directo, hay que pasar por ODBC[/quote:1lzypvam]\n\nNo entendi esto, porque yo utilizaba MyOLEDB que tiene en el sitio de MySQL y que funciona directamente... ¿o hay algun engano?\n\nSaludos','',0,'gA==','1lzypvam',1,0,'',103,0,0),(32214,7051,1,303,0,'72.199.41.171',1179782248,1,0,1,1,1,0,'','','I am glad to hear you got it working.\n\nRegards,\nJames','',0,'gA==','2147k8j8',1,0,'',303,0,0),(32215,7056,3,303,0,'72.199.41.171',1179782943,1,0,1,1,1,0,'','','Patrick,\n\n&gt;For me personally they are a great learning tool since I have not done much object oriented programming as of yet.\n\nHave you read the articles about programming with OOP and Fivewin on my website? They may help.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nRegards,\nJames','',0,'gA==','555j5sa3',1,0,'',303,0,0),(32216,7070,6,110,0,'165.98.223.33',1179783210,1,0,1,1,1,1,'','Parametros de compilacion de fwh y xharbour','Buen dia antonio, aca molestandote, podrias indicarme por favor cuales son los parametros de compilacion que utilizas tu para la contruccion de fwh, y de xharbour usando en ambos el compilador borland.\n\npara cuando sea necesario la recompilacion de los prg por los constantes cambios del pcode xharbour.\n\notra cosa es que la mayoria de las veces, la libreria hbzip que incluyes en tu distribucion de xharbour al momento de usarla genera un gpf, yo lo soluciono utilizando una hbzip compilada aca y el problema desaparece, parece que algun parametro de compilacion que utilizas le afecta.\n\nsalu2\ncarlos vargas','',0,'gA==','1rph0420',1,0,'',110,0,0),(32217,7040,7,596,0,'80.28.12.107',1179783605,1,0,1,1,1,1,'','','Entonces que soñucion hay...\n\nEste es el codigo que he probado en un ACTION de un Menu:\n\n[code:2fbb7mw4]oActiveX&#58;=TActiveX&#40;&#41;&#58;New&#40;oWnd,&quot;Shell&#46;Explorer&#46;2&quot;&#41;\noWnd&#58;oClient&#58;=oActiveX\noActiveX&#58;Do&#40;&quot;Navigate2&quot;,&quot;www&#46;google&#46;com&quot;&#41;[/code:2fbb7mw4]\n\n¿ Podrias ponerme un ejemplo de navegador web ?','',0,'AIA=','2fbb7mw4',1,0,'',596,0,0),(32218,7061,3,303,0,'72.199.41.171',1179783747,1,0,1,1,1,0,'','','Dietmar,\n\nBelow is an old message that may help. I haven\'t tried it.\n\nRegards,\nJames\n\n-------------------------\nFrom: \"GNR\" &lt;gnr@hyderabadwater.gov.in&gt;\nSubject: Re: nSerialHd() to work with all drives \nDate: Saturday, February 15, 2003 10:04 AM\n\nnSerialID() works well on all drives, mapped and physical.\nI have tested this with FiveWin 2.0D and it works perfectly on mapped drives also.\n\nI am reproducing the test program below:\n\n#include \"fivewin.ch\"\n\n////////////////////////\nFUNCTION Main( cDrive )\n\nLOCAL nSerial\nlocal   cHex\n\nDEFAULT cDrive := \"C:\"\n\nnSerial := nSerialHD(cDrive)\n\ncHex := L2HEX(nSerial)\ncHex := LEFT(cHex,4) + \"-\" +RIGHT(cHex,4)\n\nMSGINFO(cHex)\n\nRETURN (0)\n/////////////////////////\nSTATIC FUNCTION L2HEX(nDeciNum)\n\nLOCAL cHex  := \"\"\n\nIF nDeciNum &lt; 0\n nDeciNum += ( 16 * 256 * 256 * 256 * 256 )\nENDIF\n\nDO WHILE LEN(cHex) &lt; 8\n cHex   := N16H(nDeciNum % 16) + cHex\n nDeciNum  := INT(nDeciNum/16)\nENDDO\n\n\nRETURN ( PADL(cHex,8,\"0\") )\n////////////////////////////\nSTATIC FUNCTION N16H(N)\n\nIF N &lt; 10\n RETURN STR(N,1)\nELSEIF N &lt; 16\n N -= 9\n RETURN CHR(64+N)\nENDIF\n\n// ERROR\n\nRETURN \"*\"\n//////////////////////////////\n\nThis program returns the same result as VOL dos command returns.\nAlso It gives the same result from any PC in the net work or sthe same PC\nThe builtin L2HEX function is not good.\nI have replaced this function.\nI have tested this with FW 2.0d. I do not know how other versions behave.','',0,'AIA=','2vl0gs7x',1,0,'',303,0,0),(32219,7046,6,1024,0,'200.6.173.80',1179783885,1,0,1,1,1,1,'','','Antonio,\n\nEn que quedo la revison del xHarbour, con el error anterior. \n\nSigo a la espera\n\nMil gracias','',0,'AIA=','y5zdj09a',1,0,'',1024,0,0),(32220,7048,6,215,0,'189.136.225.185',1179785270,1,0,1,1,1,1,'','Suerte','Daniel,\nEste es el post con la info.\nA ver que le entiendes tu.  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  Yo la verdad estoy confundido, pero ya ando viendo otros SDK mientras tanto.\n<!-- m --><a class=\"postlink\" href=\"http://forum.griaule.com/viewtopic.php?t=3948\">http://forum.griaule.com/viewtopic.php?t=3948</a><!-- m -->\n\n¿Cómo lo he solucionado?\nBueno, tengo una aplicación en VB 6.0 y tengo otra aplicación en FWH o si, seguramente pensarás entonces que ya uso el lector de huella con FWH. Pues si y no.\nVerás yo uso el Desktop Identity tambien de Griaule. Ese programa registra la huella de los usuarios... El truco está en que el programa se queda residente y cuando pones el dedo en lector este envia el ID asociado  de la huella a cualquier aplicación abierta. Pruebalo, verás que funciona como un lector de Códigos de Barras. El resultado lo muestra en cualquier programa.  Asi pues, mi programa está en un get y cuando recibe algo lo busca en mis base de usuarios, encuentra el ID y marco la entrada o salida... según sea el caso.\nEspero haberme explicado. Es una solución muy trucha.\nPero de momento me vale.','',0,'AIA=','l4otucwt',1,0,'',215,0,0),(32221,6518,3,41,0,'200.105.194.235',1179785959,1,0,1,1,1,0,'','','Hello,\n\nit\'s possible to create a table in a RTF document from FiveWin? somebody have the solution? \n\nRegards\n\nMarcelo','',0,'AIA=','9j3jtzaw',1,0,'',41,0,0),(32222,7071,6,785,0,'190.64.197.175',1179786456,1,0,1,1,1,0,'','Excel, FWH 7.05 y Harbour','Amigos:\n\nTenía una rutina para leer un archivo xls y guardar\nsu contenido en una DBF (estaba en 16 bits), pero\nahora en 32 no lo he podido hacer funcionar.\n\nNo se ni cual LIB incluir.\n  \n\nHarbour, FWH 7.05 y BCC\n\nMuchas gracias y saludos.\n\nRuben Fernmandez','',0,'AIA=','1wc3c6qy',1,0,'',785,0,0),(32223,7072,6,215,0,'189.136.225.185',1179786593,1,0,1,1,1,1,'','FWH Da la batalla','Hola a todos,\npues aquí compartiendo un par de exitos.\n\nLa empresa donde estoy participó en una licitación para la captura de varios miles de documentos... la sorpresa ha sido ésta belleza de programa que se ha llevado los honores. Por supuesto yo lo hize. Modestia aparte.\nMade in FWH + un control de C5. Un poco de diseño gráfico y Olé.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.captura-digital.com/files/dibujo1.jpg\">http://www.captura-digital.com/files/dibujo1.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.captura-digital.com/files/dibujo2.jpg\">http://www.captura-digital.com/files/dibujo2.jpg</a><!-- m -->\n\nEl programa fué levantado en tiempo record de dos dias... \n\nAhora, lo mejor de todo donde FWH ha arrasado con los competidores fué hace 6 meses cuando varias empresas de Digitalización de acercaron a nuestro principal cliente para ofrecer sus servicios usando tecnología de punta. (Si como no). Mediante OCR, ICR y otras chunches ofrecieron bajar costos, hacer más rápido el proceso, etc, etc.\nBien, viendo que nos podíamos quedar fuera del mercado me hize el propósito de trabajar con las imagenes escaneadas de los documentos.\nPara eso pasé las de Caín tratando de resolver como manejar las imagenes usando la freeimage. Viendo que el ejemplo que viene en los samples muestra las imagens tiff pero con un desplazamiento muuuuuy lento intente cambiar por primera vez a otro lenguaje xbase para hacer frente a este proyecto. Hay que recordar que estaba de por medio nuestro más grande cliente y eso representa miles de euros para la empresa... pues nomás no, asi de perderlo tan a la ligera pues no. Había que presentar pelea. \nAl final fué un amiguete quien me dijo que no había necesidad de cambiar de lenguaje ni nada de eso que FWH lo podía hacer. Tras unas clases rápidas del manejo de clases... me mostro como se puede incrementar el desplazamiento de las imagenes... y pues a darle.\nAl final, se hizo una presentación ante el Subdirector y otros funcionarios y quedaron encantados con el programa que maneja las imaganes, superando con creces a las empresas de digitalización.  Pero otorgando el beneficio de la duda, nuestro cliente decidió hacer una prueba con la empresa de digitalización... bueno, tras 6 meses de pruebas y arranque al final la empresa de digitalización desistió de usar el ICR para reconocer la letra manuscrita y comenzó a capturar los datos al 100%. Eso justamente ya lo veniamos haciendo nosotros.\nMientras la competencia desistía, de este lado combinamos FWH+freeimage+Controles de C5+ catalogos de ortografía.\nAl final. Nuesto programa pateo los traseros de la competencia de una manera muuuuuy sublime. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLarga vida a FWH\n\nFernando Leal\nMéxico, DF','',0,'AIA=','17vliupv',1,0,'',215,0,0),(32224,7072,6,785,0,'190.64.228.65',1179787761,1,0,1,1,1,0,'','','Felicitaciones Fernando:\n\nMe alegro mucho por ti y tambien por mi que uso FWH\n\nSaludos desde Uruguay\n\nRuben Fernandez','',0,'AIA=','2suvgj47',1,0,'',785,0,0),(32225,7067,3,80,0,'202.72.164.124',1179791252,1,0,1,1,1,0,'','SMS','Hi RAMESHBABU\n\nYou can use skype to send SMS\'s - you have to set up an account and purchase some credit - \n\n\n smsskype(cPhone,cNotes)\n MsgWait(\'Sending Message \' + str(i,3),\'Sending SMS\',2)\n//-------------------------------------------------------------------------//\nfunction smsskype(t_sms,t_mess)\n// send an SMS (if enough credit on skype account)\n// return 1 : SMS delivered, 0 : SMS failed\n// Skype Version 3 installation required on local machine (2.5 ?) or Skype4com DLL\n\n// t_sms : mobile number format +(country code)(mobilenumber)  e.g. \'+32691348192\' no spaces or other caracters allowed\nLocal oSkype,oSMS,nRet := 1,i := 0,lRunning := TRUE\n\n\n\nTry\n   oSkype := CreateObject(\"SKYPE4COM.Skype\", \"Skype_\")\nCatch\n   MsgInfo(\"No Skype4Com installed\")\n   nRet := 0\nEnd\nIf empty(t_sms)\n   nRet := 0  // empty phone number\nendif\nIf ! oSkype:Client:IsRunning()\n   oSkype:Client:Start()\n   lRunning := FALSE\nelse\n\nEndif\n\nif lRunning\n   //if MsgYesNo(\'Send Message\')\n      Try\n        oSMS := oSkype:SendSms(t_sms, t_mess)  // generic\n      Catch\n         MsgInfo(\'fail\')\n         nRet := 0\n       End\n\n       //? oSms:Id() // actual ID of SMS\n\n       For i := 1 to 30  // try for max. 30 seconds for sending 1 SMS and waiting for answer from operator\n\n          //  MsgWait(,oSkype:Convert:SmsMessageStatusToText(oSms:Status),2)\n   \n          If oSms:Status()=2  // delivered\n             Exit\n          Endif\n\n          inkey(1)\n\n       next\n    //endif\n\n   If oSms:Status()&lt;&gt;2  // not delivered\n      MsgAlert(\'SMS probably failed !\')\n      nRet := 0  // erreur SMS\n   Else\n      //MsgAlert(\"Message delivered successfully !\",,,3)\n   Endif\nendif\n\n// =&gt; List all SMS \n// For Each oSms In oSkype:Smss()\n// ? oSms:Id() //Sms Id\n// ? oSms:Timestamp() // time (date)\n// ? oSms:Type() // type\n// ? oSkype:Convert:SmsMessageTypeToText(oSms:Type) // p. ex. originated\n//  ? oSms:Status() //status\n// ? oSkype:Convert:SmsMessageStatusToText(oSms:Status)  // p.ex. delivered\n// ? oSms:FailureReason()  //failure reason\n// ? oSms:IsFailedUnseen() //failed unseen\n// ? oSms:Price() //price\n// ? oSms:PricePrecision()  //price precision\n// ? oSms:PriceCurrency() //price currency\n// ? oSms:ReplyToNumber() //reply to number\n//Next \n\n//inkey(0)\n\noSkype := Nil\nreturn(nRet)\n\n//-----------------------------------------------------------------------------//\n\nHope this helps\n\nColin','',0,'AIA=','2unjp739',1,0,'',80,0,0),(32226,7071,6,940,0,'189.157.69.129',1179791331,1,0,1,1,1,1,'','','con la clace TEXCEL de Victor puedes hacerlo,\n\n\nEs bastante sencillo,\n\n\nsaludos.','',0,'AIA=','jzkcl9rt',1,0,'',940,0,0),(32227,7071,6,785,0,'190.64.210.70',1179792488,1,0,1,1,1,0,'','','Gracias, lo pruebo.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','1i031yk9',1,0,'',785,0,0),(32228,7056,3,233,0,'218.208.250.70',1179796728,1,0,1,1,1,0,'','','Using testmem3.prg in the FWH\'s SAMPLES directory, I find pressing Insert button doesn\'t toggle between the 2 mode (insert/overstrike).  How to solve this?\n\nTIA\n\n--\nFWH 2.8','',0,'AIA=','13fdfvg3',1,0,'',233,0,0),(32229,7073,3,267,0,'201.9.154.94',1179798302,1,0,1,1,1,1,'','How to calculate a Hash MD5 from one string?','Antonio,\n\nHow to calculate a Hash MD5 from one string?','',0,'AIA=','3i6oc352',1,0,'',267,0,0),(32230,7074,3,121,0,'189.138.190.44',1179800254,1,0,1,1,1,1,'','IMPRESION CON TIMAGE','SALUDOS\nTENGO PROBLEMAS AL IMPRIMIR POR SEGUNDA VEZ \nUNA IMAGEN, UTILIZO EL SIGUIENTE CODIGO\n*\nFUNCTION REPORTE\n PRINT oPrn   NAME \'MANTENIMIENTO\'  PREVIEW\n  oprn:SETportrait()\n  oIMG:=TIMAGE():NEW()\n  oImg:LoadBmp(\'IMAGEN.BMP\' )\n  PAGE\n   aTam := oPrn:Cmtr2Pix(21.25,27.5) \n   oPrn:SayImage(0,0,oIMG,aTam[1],aTam[2])\n  ENDPAGE\n ENDPRINT\n oIMG:END()\n oFONT1:END()\n oFONT2:END()\n oFONT3:END()\nRETURN NIL\n\n\nFUNCIONA PERFECTO, PERO CUANDO UTILIZO LA RUTINA\nPOR SEGUNDA VEZ ME ENVIA EL SIGUIENTE MENSAJE DE ERROR\n\n Error description: Error BASE/1004  Class: \'NIL\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:NEW(0)\n   Called from: IMAGE.PRG =&gt; TIMAGE:NEW(0)\n   Called from: cmov.prg =&gt; REPORTE(796)\n   Called from: cmov.prg =&gt; (b)MANTENIMIENTO(80)\n   Called from: TOOLBAR.PRG =&gt; TTOOLBAR:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDICHILD:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: WMANTE.prg =&gt; MAIN(97)\n\nALGUIEN ME PODRIA AYUDAR?\n\nGRACIAS','',0,'','50uhdtlc',1,0,'',121,0,0),(32231,7075,6,121,0,'189.138.190.44',1179800541,1,0,1,1,1,1,'','PROBLEMAS CON TIMAGE','SALUDOS\nTENGO PROBLEMAS AL IMPRIMIR POR SEGUNDA VEZ \nUNA IMAGEN, UTILIZO EL SIGUIENTE CODIGO\n*\nFUNCTION REPORTE\n PRINT oPrn   NAME \'MANTENIMIENTO\'  PREVIEW\n  oprn:SETportrait()\n  oIMG:=TIMAGE():NEW()\n  oIMG:LoadBmp(\'IMAGEN.BMP\' )\n  PAGE\n   aTam := oPrn:Cmtr2Pix(21.25,27.5) \n   oPrn:SayImage(0,0,oIMG,aTam[1],aTam[2])\n  ENDPAGE\n ENDPRINT\n oIMG:END()\nRETURN NIL\n\n\nFUNCIONA PERFECTO, PERO CUANDO UTILIZO LA RUTINA\nPOR SEGUNDA VEZ ME ENVIA EL SIGUIENTE MENSAJE DE ERROR\n\n Error description: Error BASE/1004  Class: \'NIL\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:NEW(0)\n   Called from: IMAGE.PRG =&gt; TIMAGE:NEW(0)\n   Called from: cmov.prg =&gt; REPORTE(796)\n   Called from: cmov.prg =&gt; (b)MANTENIMIENTO(80)\n   Called from: TOOLBAR.PRG =&gt; TTOOLBAR:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDICHILD:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: WMANTE.prg =&gt; MAIN(97)\n\nALGUIEN ME PODRIA AYUDAR?\n\nGRACIAS','',0,'','g30ujokw',1,0,'',121,0,0),(32232,7073,3,177,0,'82.130.229.82',1179800845,1,0,1,1,1,0,'','','Hi Vilian,\n\nlook at:\n\n<!-- m --><a class=\"postlink\" href=\"http://dollar.ecom.cmu.edu/sec/cryptosource.htm\">http://dollar.ecom.cmu.edu/sec/cryptosource.htm</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://xyssl.org/code/source/md5/\">http://xyssl.org/code/source/md5/</a><!-- m -->\n\nRegards,\n\nFelix','',0,'','2yxlfxif',1,0,'',177,0,0),(32233,7055,6,1028,0,'189.158.96.166',1179802693,1,0,1,1,1,0,'','','No he modificado clase alguna de FWH,\n\ny este ejemplo si corre correctamente, voy a copiar y pasar a la aplicacion que estoy haciendo.\n\na ver que pasa\n\nmuchisimas gracias, una cosa mas es un excelente trabajo el tuyo, felicidades y lo mejor de los mejor en el futuro.','',0,'','1fx0lwqc',1,0,'',1028,0,0),(32234,7064,6,177,0,'194.30.62.6',1179806601,1,0,1,1,1,0,'','','Hola Carlos,\n\nhas probado con <!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/?carrier=paradox\">http://www.connectionstrings.com/?carrier=paradox</a><!-- m -->\n\nSaludos,\n\nFelix','',0,'','lnyfnizj',1,0,'',177,0,0),(32235,7048,6,95,0,'189.155.103.28',1179809319,1,0,1,1,1,0,'','','Daniel\n\nA lo mejor el problema esta en el ActiveX,\n\nTe comento que inicie a hacer pruebas con el ActiveX de Xbase++ pero no di con bola.\n\nEntonces me anime a usar DLL, y claro con la Ayuda de Pablo Botella, lo echamos a jalar, en mis pruebas ya se visualiza la huella, la grabo y despues comparo con mi DBF. \n\nTe recomiendo que te inclines por DLL, la libreria o ejemplos que realizamos estan sencillos y con toda confianza mandame un correo privado.\n\nSaludos\nOsvaldo Ramirez','',0,'','9fioaxrq',1,0,'',95,0,0),(32236,7068,7,456,0,'217.127.39.57',1179817579,1,0,1,1,1,1,'','','[code:3v58ge15]\n#define SHFS_SHOWTASKBAR    1 // 0x0001\n#define SHFS_HIDETASKBAR    2 // 0x0002 //2\n#define SHFS_SHOWSIPBUTTON  4 // 0x0004\n#define SHFS_HIDESIPBUTTON  8 // 0x0008 //8\n#define SHFS_SHOWSTARTICON 16 // 0x0010\n#define SHFS_HIDESTARTICON 20 // 0x0020 //32\n\nShFullScreen&#40;oWnd&#58;hwnd,SHFS_HIDESTARTICON &#41;  //Con el parmetro q desees&#46;\n[/code:3v58ge15]','',0,'AIA=','3v58ge15',1,0,'',456,0,0),(32237,7060,4,2,0,'87.218.146.126',1179818621,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Sorry, I meant to do a copy from the PC to My Device. I think it is not possible, right? \n\nTotal Commander allows to map a Pocket PC path','',0,'AIA=','ij0oan4z',1,0,'',2,0,0),(32238,7060,4,2,0,'87.218.146.126',1179818798,1,0,1,1,1,1,'','','Enrico,\n\nHarbour is the one that manages the files, so I can\'t tell what the difference may it be. The curious thing is that they work fine on the My Device path.\n\nWe have faced similar situations when using SHARED. It works on My Device or subdirs, but not on the memory card','',0,'AIA=','3co2zo3s',1,0,'',2,0,0),(32239,7065,3,2,0,'87.218.146.126',1179818884,1,0,1,1,1,1,'','','Detlef,\n\nPlease use the xHarbour build that we provide with FWH, thanks','',0,'AIA=','2vjhwzkk',1,0,'',2,0,0),(32240,7040,7,2,0,'87.218.146.126',1179819024,1,0,1,1,1,1,'','','Parece que no se puede hacer. De hecho, buscando en google hemos encontrado que no se puede usar ni el explorer ni el word como activex en el Pocket PC','',0,'AIA=','3ed9fkef',1,0,'',2,0,0),(32241,7040,7,596,0,'194.224.177.206',1179819188,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:9mjz8n6a]Parece que no se puede hacer. De hecho, buscando en google hemos encontrado que no se puede usar ni el explorer ni el word como activex en el Pocket PC[/quote:9mjz8n6a]\n¿ Entonces que ActiveX se puden usar en PocketPC ?\n\n¿ Algun ejemplo que podamos probar... que funcione ?\nGracias por todo.','',0,'gA==','9mjz8n6a',1,0,'',596,0,0),(32242,7040,7,2,0,'87.218.146.126',1179819432,1,0,1,1,1,1,'','','&gt; ¿ Entonces que ActiveX se puden usar en PocketPC ?\n¿ Algun ejemplo que podamos probar... que funcione ? \n\nNo lo sabemos. De hecho en el ejemplo que hemos proporcionado el ActiveX se crea correctamente, pero luego da un error relativo a su configuración (pero el handle creado del ActiveX es correcto).\n\nDe momento es una opción para usar ActiveX comerciales para Pocket PC, hasta que consigamos encontrar (si es que los hay) alguno propio del Pocket PC que se pueda usar','',0,'gA==','3bqfx8jb',1,0,'',2,0,0),(32243,7046,6,2,0,'87.218.146.126',1179819738,1,0,1,1,1,1,'','','José David,\n\nEs un error confirmado de xHarbour y han comentado que están próximos a arreglarlo. Estamos a la espera','',0,'gA==','25322wjx',1,0,'',2,0,0),(32244,7070,6,2,0,'87.218.146.126',1179819902,1,0,1,1,1,1,'','','Carlos,\n\nSólo usamos -c y nada más, asi que dejamos que el compilador use la configuración por defecto','',0,'gA==','2gzugafi',1,0,'',2,0,0),(32245,7031,2,2,0,'87.218.146.126',1179819988,1,0,1,1,1,1,'','','Necesitas conseguir una versión de esa librería compatible con el modo protegido.\n\nO indícanos que hace esa librería y veremos si hay otra que te pueda servir','',0,'gA==','20kvu9jc',1,0,'',2,0,0),(32246,6991,6,2,0,'87.218.146.126',1179820062,1,0,1,1,1,1,'','','Mário,\n\nSi haces un oActiveX&#058;Refresh() se repinta todo el control correctamente ?','',0,'gA==','3g33ie7x',1,0,'',2,0,0),(32247,7065,3,58,0,'84.149.122.119',1179820090,1,0,1,1,1,0,'','','Carlos,\n\nthank you very much for your advices.\nI understand you well and i\'ll try them.\n\nBest regards,\nDetlef','',0,'gA==','34ycb6pu',1,0,'',58,0,0),(32248,7065,3,58,0,'84.149.122.119',1179820313,1,0,1,1,1,0,'','','Antonio,\n\n\n[quote=&quot;Antonio Linares&quot;:23m795y2]Detlef,\n\nPlease use the xHarbour build that we provide with FWH, thanks[/quote:23m795y2]\n\nAfter purchasing the FWH upgrade i downloaded first the FWH from your site and after i downloaded the xHarbour binaries by using the link at your site.\n\nDid i make something wrong?\n\nRegards,\nDetlef','',0,'gA==','23m795y2',1,0,'',58,0,0),(32249,7065,3,3,0,'80.81.159.19',1179822376,1,0,1,1,1,1,'','','Detlef\n\nIf you are using borland compiler, the downloads are ok\n\nIf you are using xharbour.com (xbuild), you need to download the RC12 from xharbour.com web site\n\nHth\n\nRichard','',0,'gA==','of08m8m8',1,0,'',3,0,0),(32250,7049,3,924,0,'81.208.36.89',1179826638,1,0,1,1,1,0,'','','ok, i solved the problem using:\n    LOCAL HKEY_LOCAL_MACHINE:= 2147483650\n    LOCAL HKEY_CURRENT_USER := 2147483649\n    LOCAL KEY_ALL_ACCESS    := 983103\n\n\n    LOCAL hKey := 0\n\n    LOCAL nType := 0\n\n    LOCAL cData := SPACE( 256 )\n\n    LOCAL nSize := LEN( cData )\n\n    REGOPENKEY( HKEY_LOCAL_MACHINE,\"Software\\JavaSoft\\Java Runtime Environment\", 0,KEY_ALL_ACCESS, @hKey )\n    REGQUERYVALUE( hKey, \"CurrentVersion\", 0, @nType, cData, @nSize)\n    REGCLOSEKEY( hKey )\n\n    _versione:=LEFT( cData, AT( CHR( 0 ), cData ) - 1 )\n\ntks anyway\nromeo','',0,'gA==','2m33on6e',1,0,'',924,0,0),(32251,7067,3,190,0,'124.7.24.44',1179826870,1,0,1,1,1,0,'','','Mr.Colin\n\nThanks for your reply.  I will try Skype.\nDo you have any idea whether we can send bulk SMS with Skype ?\n\nregards\n\n- Ramesh Babu P','',0,'gA==','6prxz1rn',1,0,'',190,0,0),(32252,7073,3,159,0,'210.243.203.20',1179829295,1,0,1,1,1,0,'','Re: How to calculate a Hash MD5 from one string?','[quote=&quot;vilian&quot;:7d2rdjrn]Antonio,\n\nHow to calculate a Hash MD5 from one string?[/quote:7d2rdjrn]\n\nxHarbour support it, like:\n  MD5(\"\") = d41d8cd98f00b204e9800998ecf8427e\n  MD5(\"a\") = 0cc175b9c0f1b6a831c399e269772661\n  MD5(\"abc\") = 900150983cd24fb0d6963f7d28e17f72\n  MD5(\"message digest\") = f96b697d7cb7938d525a2f31aaf161d0\n  MD5(\"abcdefghijklmnopqrstuvwxyz\") = c3fcd3d76192e4007dfb496cca67e13b\n  MD5(\"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\") = d174ab98d277d9f5a5611c2c9f419d9f\n  MD5(\"12345678901234567890123456789012345678901234567890123456789012345678901234567890\") = 57edf4a22be3c955ac49da2e2107b67a\n\n\nsupport file:\n? HB_MD5FILE ( cInFile )','',0,'gA==','7d2rdjrn',1,0,'',159,0,0),(32253,7064,6,936,0,'190.56.84.170',1179834017,1,0,1,1,1,0,'','','Hola Felix, gracias por contestar.\nPues si, ya revise esa pagina, pero la cadena de conección que ahi aparace para utilizarla con ADO, solo funciona con la versión 5.x de Paradox, y no para la 7.X\nSegún estoy viendo, necesito accesar esta versión 7.x con ODBC, para luego utilizar ADO, pero no encuentro un Driver ODBC de Paradox 7.x por ningún lado.\n\nPor lo que ahora pregunto, si sabes tu o  alguien mas, donde puedo conseguir un driver ODBC para Paradox 7.x, agradecería mucho me lo hicieran saber.\n\nSaludos.\n\nCarlos Sincuir','',0,'gA==','7i76x74d',1,0,'',936,0,0),(32254,7073,3,267,0,'200.208.238.2',1179834165,1,0,1,1,1,1,'','','Ssbbs,\n\nThanks.','',0,'gA==','1ud6eo49',1,0,'',267,0,0),(32255,7061,3,162,0,'141.201.51.83',1179834452,1,0,1,1,1,0,'','','Thanks James,\n\nbut this one does not help, cause it requires the drive letter.\nWe need the serial number of a file-server-HD using the UNC-notation\n\nAnybody?','',0,'gA==','16v2bwjh',1,0,'',162,0,0),(32256,7064,6,177,0,'194.30.62.6',1179837254,1,0,1,1,1,0,'','','Carlos,\n\nsegún <!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/aa155774(office.10\">http://msdn2.microsoft.com/en-us/librar ... (office.10</a><!-- m -->).aspx es necesario disponer de Borland Database Engine (BDE 4.x o superior) para poder acceder a Paradox 7 a través de Microsoft Jet.\n\nHas probado a instalar BDE 4.x o superior ?\n\nSaludos,\n\nFelix','',0,'gA==','503uc000',1,0,'',177,0,0),(32257,7076,17,26,0,'193.77.157.131',1179838809,1,0,1,1,1,1,'','Harbour with Apache HTTP server','Hello!\n\nIs is possible to use Harbour to generate HTML files \nfor Apache HTTP server ?\n\nThanks, Roman','',0,'gA==','127w77wn',1,0,'',26,0,0),(32258,7072,6,106,0,'85.34.123.173',1179839431,1,0,1,1,1,1,'','','Felicidades Fernando!!!','',0,'gA==','kd4uja95',1,0,'',106,0,0),(32259,7031,2,1065,0,'201.116.83.242',1179839705,1,0,1,1,1,0,'','activa los puerto serial','activa los puertos seriales para leer y escribir \nlos uso en una aplicacion de lector con trajetas de credito y debito.\nGracias.\n\n                        Functions For IOLib\n              Values for INIT_PORT can be seen in IOLib.ch\n                              Version 1.2r1\n*******************************************************************************\n\nINIT_PORT(Nx_port,Nbaud,Ndata,Nparity,Nstop,Nirq,@cIn_buffer) =&gt; log\nInitializes the communication port and sets up the input bufferd stream\nPass:\nNx_port= base port value see IOLib.ch\nNbaud= The baud rate divisor see IOLib.ch for standard bauds\nNdata=data bits 5 to 8\nNparity= Parity value see IOLib.ch\nNstop=number of stop bits\nNirq=Interrupt number\ncIn_buffer= a public String variable 512 bytes or larger, no more\nthan 32k, ie &lt;Public cIn_buffer:=SPACE(4000) &gt; This option may change\nin the future to a numeric value for buffer size.\n******************************************************************\n\nOUTC(nVar,[nPort])\nSends a value out the communication port, default port is\nthe one used by INIT_PORT(), optional any port.\nThis function will wait a short time for the port to become\navailable.\n\nnVar= a numeric value 0 to 255\nnPort=hardware Port number to send the value\nNOTE: nPort not available in BETA version.\n\n******************************************************************\n\nOUTCHR(@cString) =log\nSpools a string out the Initialized port cString must not be larger\nthan 32k, and no smaller than 1 byte, it may contain imbeded null\nbytes. The cString must remain public and can not be cleared until\nthe buffer is clear see OUTBUFSIZE()\n\nReturns False if another stream is still spooling.\n\n*******************************************************************\n\nINCHR(nVar) =&gt; cVar\nReturns one or more bytes communication port input buffer.\nMaximum is INITSIZE-1\nNote: Returns NIL if no byte available do not mistake with chr(0)\n\nExample:\ncVar:=INCHR(1)\ndo case\ncase cVAR=NIL\n * do nothing\ncase cVar=chr(0)\n * received break\notherwise\n ?? cVar\nendcase\n\n***************************************************************\n\nUNINT_PORT()\nreturns NIL\nUninitializes the communication port, this MUST be done before\nexiting program. Best use the following function.\n\nEXIT PROCEDURE cleanup()\n  CLS\n  UNINT_PORT()\n  ? \"Port Uninitialized, program terminating.............\"\nRETURN\n\n*********************************************************\n\nISWORKING() =&gt;Log\nReturns TRUE if IRQ is working, the byte is set by the input/ouput\nspooler.\n********************************************************\n\nISONLINE() =&gt; log\nReturns True if modem online\n*********************************************************\n\nIOLIB_VER() =&gt;cString\nReturns character string of IO version\n**********************************************************\n\n SETDTR([lVar]) =&gt;log\nreturns .t. if DTR has been set, otherwise false optional lVar\nwill set the DTR .\nEXAMPLE:\nLOCAL l_DTR\nl_DTR:=SETDTR(.T.)\n*************************************************************************\n\nSETRTS([lvar]) =&gt; log\nreturns .t. if RTS has been set, otherwise false optional lVar\nwill set the RTS .\nEXAMPLE:\nLOCAL l_RTS\nl_DTR:=SETRTS(.T.)\n**************************************************************************\n\nDSR() =&gt; log Returns .T. if DSR set better than Xon/Xoff\n**************************************************************************\n\nCTS() =&gt; log Returns .T. if CTS set better than Xon/Xoff\n**************************************************************************\nNote: You may use DTR/DSR as a Hardware version of Xon/Xoff\n      or  you may use RTS/CTS. Or none.\n\n\nIf changing the IRQ, you must use UNINT_PORT() before\nusing INIT_PORT()\n**************************************************************************\nINBUFSIZE() =&gt; Num\nReturns a numeric value of how many characters remain in the inbuffer.\nInput buffer can hold up to one less than the init size.\n\n**************************************************************************\nOUTBUFSIZE() =&gt; Num\nReturns a numeric value of how many characters remain in the ouput stream.\n\n**************************************************************************\nINBUFCLR()\nclears the input buffer, all waiting characters are lost.\n\n**************************************************************************\nOUTBUFCLR()\nclears the output buffer, all waiting characters are lost.\n\n**************************************************************************\nCHKCRC(cString)=&gt; cCrc\n\nReturns a 3 byte string pertaining to passed string.\nFirst byte is the checksum\nSecond and third are a 16 bit CRC\n**************************************************************************\n\nMicrosoft (R) Library Manager  Version 3.10\nCopyright (C) Microsoft Corp 1983-1988.  All rights reserved.\n\nCHKCRC............io                CTS...............io\nDSR...............io                INBUFCLR..........io\nINBUFSIZE.........io                INCHR.............io\nINIT_PORT.........io                INPORT............io\nIOLIB_VER.........io                ISONLINE..........io\nISWORKING.........io                OUTBUFCLR.........io\nOUTBUFSIZE........io                OUTC..............io\nOUTCHR............io                OUTPORT...........io\nSETDTR............io                SETRTS............io\nSIZEO.............io                UNINT_PORT........io\n\n\nio                Offset: 00000010H  Code and data size: 7ceH\n  CHKCRC            CTS               DSR               INBUFCLR\n  INBUFSIZE         INCHR             INIT_PORT         INPORT\n  IOLIB_VER         ISONLINE          ISWORKING         OUTBUFCLR\n  OUTBUFSIZE        OUTC              OUTCHR            OUTPORT\n  SETDTR            SETRTS            SIZEO             UNINT_PORT\n\Z','',0,'','3eix0c52',1,0,'',1065,0,0),(32260,7072,6,439,0,'200.125.48.9',1179840457,1,0,1,1,1,1,'','','Felicitaciones, \n\nBuena herramienta y buen programador <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMás saludos desde Uruguay <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','5eoo0flc',1,0,'',439,0,0),(32261,7073,3,190,0,'124.7.25.37',1179840903,1,0,1,1,1,0,'','','Hi ssbbs,\n\n[quote:2arn86ev]HB_MD5(\"abc\") = 900150983cd24fb0d6963f7d28e17f72 \n[/quote:2arn86ev]\n\nHow to get the actual value i.e. \"abc\" from \"900150983cd24fb0d6963f7d28e17f72\" ?\n\nRegards\n\n- Ramesh Babu P','',0,'gA==','2arn86ev',1,0,'',190,0,0),(32262,7077,6,596,0,'85.62.69.206',1179841415,1,0,1,1,1,1,'','Problema con estructuras de datos y sockets','Tengo esta estructura de datos\n\n[code:15vsq8pj]\n#define WSADESCRIPTION_LEN 256+1\n#define WSASYS_STATUS_LEN  128+1\n\nC STRUCTURE _WSAData ALIGN 4\n  MEMBER wVersion                      IS CTYPE_SHORT\n  MEMBER wHighVer                      IS CTYPE_SHORT\n  MEMBER szDescrip&#91;WSADESCRIPTION_LEN&#93; IS CTYPE_CHAR\n  MEMBER szSystem&#91;WSASYS_STATUS_LEN&#93;   IS CTYPE_CHAR\n  MEMBER iMaxSock                      IS CTYPE_SHORT\n  MEMBER iMaxUdpDg                     IS CTYPE_SHORT\n  MEMBER lpVendor                      IS CTYPE_LONG\nEND C STRUCTURE\n\nWSAData&#58;=&#40;struct _WSAData&#41;[/code:15vsq8pj]\n\nAdemas wrapeada la funcion del API de windows, de esta forma\n\n[code:15vsq8pj]DLL32 FUNCTION WSAStartup&#40;n AS LONG, pStruct AS LPSTR&#41; AS LONG PASCAL FROM &quot;WSAStartup&quot; LIB &quot;wsock32&#46;dll&quot;[/code:15vsq8pj]\n\nSe llama a dicha funcion pasandole el \"buffer\" de la estructura\n\n[code:15vsq8pj]cTemp&#58;=WSAData&#58;InternalBuffer\nrc&#58;=WSAStartup&#40;bin2i&#40;chr&#40;1&#41;+chr&#40;1&#41;&#41;,@cTemp&#41;[/code:15vsq8pj]\n\nPero NO se como devolver el contenido del buffer de nuevo a la estructura.\nLa data :InternalBuffer solo es de lectura...\n\n¿ Como se hace ?','',0,'AIA=','15vsq8pj',1,0,'',596,0,0),(32263,7078,6,785,0,'190.64.217.169',1179842087,1,0,1,1,1,0,'','Filexls','Amigos:\nTrato de pasar de una hoja de excel a dbf y\nobtengo este error... alguna idea\n\nHarbour, FWH7.05, Borland\n\nMuchas gracias.\nRuben Fernandez.\n\nEste es el código  y debajo ele rror.\n\n  oExcel := TOleAuto():New( \"Excel.Application\" )\n\n   oExcel:WorkBooks:Open(cFilePath(GetModuleFileName(GetInstance()))+\"eventos.xls\")\n\n   oHoja := oExcel:Get( \"ActiveSheet\" )\n     \n\n   nRows := oHoja:UsedRange:Rows:Count()\n   nCols := oHoja:UsedRange:Columns:Count()\n\n   FOR nCol := 1 TO nCols\n\n      IF ValType( oHoja:Cells( 2, nCol ):Value ) = \"C\"\n         AADD( aCampos, { oHoja:Cells( 1, nCol ):Value, \"C\", 25, 0 } )\n\n      ELSEIF ValType( oHoja:Cells( 2, nCol ):Value ) = \"N\"\n         AADD( aCampos, { oHoja:Cells( 1, nCol ):Value, \"N\", 6, 0 } )\n\n      ELSEIF ValType( oHoja:Cells( 2, nCol ):Value ) = \"L\"\n         AADD( aCampos, { oHoja:Cells( 1, nCol ):Value, \"L\", 1, 0 } )\n\n      ELSEIF ValType( oHoja:Cells( 2, nCol ):Value ) = \"D\"\n         AADD( aCampos, { oHoja:Cells( 1, nCol ):Value, \"D\", 8, 0 } )\n      ENDIF\n\n   NEXT\n\n\nAqui comienza el error.\n\n\n   Error Excel.Application/16389  E_FAIL: ACTIVESHEET\n   Argumentos   :\n     [   1] = U   \n\nLlamadas al Stack\n________________________________________________________________________________\n\n   Called from TOLEAUTO:ACTIVESHEET(0)\n   Called from HB_EXECFROMARRAY(0)\n   Called from TOLEAUTO:GET(349)\n   Called from READEXEL(859)\n   Called from (b)LEEREVENTO(829)\n   Called from (b)MSGRUN(0)\n   Called from (b)TDIALOG(0)\n   Called from TDIALOG:DISPLAY(0)\n   Called from TDIALOG:HANDLEEVENT(0)\n   Called from DIALOGBOXINDIRECT(0)\n   Called from TDIALOG:ACTIVATE(0)','',0,'','2jw9m2fo',1,0,'',785,0,0),(32264,3047,6,264,0,'200.91.3.10',1179842095,1,0,1,1,1,1,'','','Ok, lo revisaremos\nLo unico raro es que quizas el tiempo que tomaste fue algo excesivo.\nSaludos','',0,'','3sjg0umx',1,0,'',264,0,0),(32265,7072,6,264,0,'200.91.3.10',1179842767,1,0,1,1,1,1,'','','Primero felicitaciones\nSegundo, con freeimage puedes escanear ? o mal interpreto tu trabajo ?\nAgradeceria mas informacion\nSaludos','',0,'','wlo8vnof',1,0,'',264,0,0),(32266,7079,3,160,0,'59.95.235.73',1179842789,1,0,1,1,1,0,'','Mar-2006 build and New xHarbour (Pcode Revision)','Dear Antonio,\n\nI am using March-2006 build. Any chance I can use new xHarbour with PCODE revision with it ? I use the compiled lib given by you. Can you supply me the newly compiled lib of March-2006 build ?\n\nTIA\nMilan.','',0,'','23hefl5l',1,0,'',160,0,0),(32267,7080,6,300,0,'201.88.101.150',1179843981,1,0,1,1,1,0,'','Saltar checkbox con enter','es possivel saltar un checkbox con enter?\n\nSalu2','',0,'','32gagrly',1,0,'',300,0,0),(32268,6807,6,456,0,'217.127.39.57',1179845776,1,0,1,1,1,1,'','','Hola Antonio, \nen el ejemplo de codigo que has puesto, para que sirven las variables  hOldBmb1, y hOldBmp2. Estoy intentando pasar la funcion a c, y estas variables parece que no las usamos, o no alcanzo a ver en que se usan. \n\nGracias anticipadas.','',0,'','2ufnj1yz',1,0,'',456,0,0),(32269,7072,6,215,0,'189.136.230.54',1179848886,1,0,1,1,1,1,'','no','DbZap,\nFreeImage no scanea imagenes. Eso lo hace el software que acompaña al scanner de alta velocidad.\n\nFernando','',0,'','1mgx5qpu',1,0,'',215,0,0),(32270,7080,6,785,0,'190.64.225.52',1179849813,1,0,1,1,1,0,'','','Wanderson:\n\nQuizas esto te ayude.\n\n\noCheck:bKeyDown:={|nKey| If(nKey=VK_RETURN                                                   ,oGetQUEVIENE:SetFocus(),)}\n\n\nSaludos\n\nRuben Fernandez','',0,'','12uobmm1',1,0,'',785,0,0),(32271,7061,3,303,0,'72.199.41.171',1179851542,1,0,1,1,1,0,'','','Dietmar,\n\n&gt;but this one does not help, cause it requires the drive letter. \n&gt;We need the serial number of a file-server-HD using the UNC-notation \n\nDid you try it? It works for me using \"\\\\compaq\\c\"\n\nRegards,\nJames','',0,'','1c0e86gu',1,0,'',303,0,0),(32272,6991,6,959,0,'201.58.51.167',1179851857,1,0,1,1,1,0,'','','Antonio,\n\n   Já utilizei e não funciona :\n\n   oTelaPrincipal:bGotFocus  := {||  oSistema:oActivex&#058;Refresh () } \n\n   oTelaPrincipal:bGotFocus  := {||  oSistema:oActivex&#058;Paint () } \n\n   oTelaPrincipal:bGotFocus  := {||  oSistema:oActivex&#058;Display () } \n\n \n  O Unico que realmente refaz a tela é :\n\n   oTelaPrincipal:bGotFocus  := {||  Do(\"Navigate\",oSistema:aUrl )  } \n\n   Mas não me serve.\n\n   Tem outra saida ?\n\n   Gracias,\n\n  Mário','',0,'','p65yr4hp',1,0,'',959,0,0),(32273,7073,3,267,0,'200.208.238.2',1179852680,1,0,1,1,1,1,'','','Ramesh,\n\nUntil where I know, one of the great advantages of the MD5 is that this is not possible.','',0,'','1rt9ary6',1,0,'',267,0,0),(32274,7073,3,190,0,'124.7.27.11',1179854187,1,0,1,1,1,0,'','','Mr.Vilian\n\n[quote:1ifc167q]\none of the great advantages of the MD5 is that this is not possible.\n[/quote:1ifc167q]\n\nExcellent answer.\n\nI was in need of such function.\n\nRegards \n\n- Ramesh Babu P','',0,'gA==','1ifc167q',1,0,'',190,0,0),(32275,7078,6,940,0,'189.157.69.129',1179854343,1,0,1,1,1,1,'','','Ruben comenta una linea.\n\n oExcel := TOleAuto():New( \"Excel.Application\" )\n\noExcel:WorkBooks:Open(cFilePath(GetModuleFileName(GetInstance()))+\"eventos.xls\")\n\noHoja := oExcel:Get( \"ActiveSheet\" ) \n\n nRows := oHoja:UsedRange:Rows:Count() \n\nfor nFor := 1 to nRows\n     msginfo( oExcel:oHoja:Cells( nFor, nCol ):Value   ) //prueba asi.\nnex\n\n\nsaludos..','',0,'gA==','1gi646m2',1,0,'',940,0,0),(32276,7068,7,840,0,'201.243.12.220',1179856096,1,0,1,1,1,0,'','a medias.. je','hola BIEL gracia !!!   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nlogre esconder la barra del teclado inferior pero no consigo esconder la barra superior del windows mobile es decir toda la barra de inicio que no se muestre para nada asi tener mas espacio de pantalla para mi aplicacion  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'gA==','2qobn9n8',1,0,'',840,0,0),(32277,7081,3,130,0,'84.138.11.247',1179860357,1,0,1,1,1,0,'','TPages from source','Hi, \n\nis anyone using the tpages-class creating pages from source ?\n\nI have great problems creating a page control and placing controls on the page. The coordinates (nTop,nLeft,nBottom,nRight) does not seem to be pixel coordinates nor text coordinates.  \n\n[code:3cwcbtk9]\nDEFINE DIALOG oDlg FROM  0, 0 TO 690,910 TITLE \'Event\' PIXEL ;\n          FONT oFnt1 COLOR CLR_BLACK,CLR_HGRAY\n\noPage &#58;= TPages&#40;&#41;&#58;New&#40;0,0, oDlg&#58;nHeight-20,oDlg&#58;nWidth, oDlg&#41;\n[/code:3cwcbtk9]\n\nthe sample above creates a page which is greater than the dialog itself. Why ?\n\nDo I miss something ?\n\nStefan','',0,'AIA=','3cwcbtk9',1,0,'',130,0,0),(32278,7081,3,6,0,'87.19.208.177',1179862368,1,0,1,1,1,1,'','Re: TPages from source','Try adding\n\n[code:3jfq92xg]ACTIVATE DIALOG oDlg;\n         ON INIT oPage&#58;Move&#40; 0, 0, oDlg&#58;nHeight-20, oDlg&#58;nWidth &#41;[/code:3jfq92xg]\n\nEMG','',0,'AIA=','3jfq92xg',1,0,'',6,0,0),(32279,7064,6,936,0,'190.56.100.57',1179862751,1,0,1,1,1,0,'','','Felix,\nAhora comprendo porque solo funcionaba la conexion de el Microsoft Jet con la versión 5.x y ya no la 7.x de Paradox.\nVoy a buscar entonces el BDE 4.x y te cuento como me va, ya que me interesa mucho hacer la conexión, ya que un cliente me esta pidiendo que pueda hacerle uno reportes por separada para un ASPEL-SAE 4.0, y este trabaja con Paradox 7.x\n\nSaludos.\n\nCarlos Sincuir','',0,'AIA=','26b9b6g9',1,0,'',936,0,0),(32280,7065,3,2,0,'87.218.146.99',1179863994,1,0,1,1,1,1,'','','Detlef,\n\nPlease check that you don\'t have another xharbour build on your computer and that you are using the right one. Check your used paths','',0,'AIA=','gtpln146',1,0,'',2,0,0),(32281,6991,6,2,0,'87.218.146.99',1179864114,1,0,1,1,1,1,'','','Mario,\n\nLLama directamente a oSistema:oActivex&#058;Refresh() desde la acción de un botón, ó desde un menuitem y comprueba si repinta el activex','',0,'AIA=','3jgv06du',1,0,'',2,0,0),(32282,7031,2,2,0,'87.218.146.99',1179864242,1,0,1,1,1,1,'','','Intenta contactar con el fabricante de esa librería para que te proporciones una versión compatible con el modo protegido.\n\nSi no puedes conseguirla tendras que usar las funciones propias de comunicación del API de Windows y tendrás que modificar tu código fuente','',0,'AIA=','3ra50f08',1,0,'',2,0,0),(32283,7082,6,1023,0,'189.18.13.196',1179865135,1,0,1,1,1,0,'','Uma duvida no TImage','Ola. Estou usando o TImage para carregar imagens do disco. Porem sempre que ele começa a carregar a imagem aparece um progress bar na tela e não encontri nenhuma opção que fassa com que ele deixe de aparecer.\n\nTentei olhar no exemplo \"Testimg.prg\" mais o meu está fazendo a mesma coisa e continua aparecendo a barra de progresso na tela.\n\nJá tentei carregar a imagem dessas formas\n\noBmp := TImage():New( ::nPicTop, ::nPicLeft, ::nPicWidth, ::nPicHeight, , imgFile, .t., ::oWnd, ::bClick,,,.t.,,,,,.t.)\n\n@ ::nPicTop, ::nPicLeft IMAGE oBmp oBrw OF ::oWnd SIZE ::nPicWidth, ::nPicHeight PIXEL SCROLL ON CLICK ::bClick   \n   oBmp:LoadBmp(  imgFile )\n\n@ ::nPicTop, ::nPicLeft IMAGE oBmp oBrw FILENAME imgFile OF ::oWnd SIZE ::nPicWidth, ::nPicHeight PIXEL SCROLL ON CLICK ::bClick\n\nTem como impedir que ela aparece? Se alguem souber, ficarei agradecido.\n\nUm abraço a todos, e obrigado.','',0,'AIA=','msjswiia',1,0,'',1023,0,0),(32284,7029,6,875,0,'64.76.108.179',1179865768,1,0,1,1,1,0,'','','Lo que yo hago es simple,  tengo una funcion simplemente para PREVISUALIZAR  y otra para imprimir.\n\nPara el Preview uso: TPrint(Asi me olvido del modelo de la impresora)\n-----------------------\n\nDefine Font oFont Name \'Arial\' Size 16,25\n\nPrint oPrn Preview\nPage\n\noprn:Say(10,10,\'ejemplo\',oFont)\n\nEndPage\n\n\n\npara Impresion directamente a Impresora uso:   TdosPrn()\n------------------------------------------------------','',0,'AIA=','2p68z2ox',1,0,'',875,0,0),(32285,7083,6,596,0,'80.28.12.107',1179867033,1,0,1,1,1,1,'','Error en ejecucion con la version 7.5 de FWH','Compilando un programa con xharbour 0.99.70 y la version 7.4 de FWH todo bien.\nAl cambiar a FWH 7.5 y el mismo xharbour me casca.\n\nDa este error al ejecutar el programa:\n[code:3pxtyyzy]&quot;ACTIVE&#46;PRG&quot; was compiled by older version, PCODE version 9 is no longer supported - Please recompile[/code:3pxtyyzy]','',0,'AIA=','3pxtyyzy',1,0,'',596,0,0),(32286,7083,6,36,0,'200.113.56.235',1179869488,1,0,1,1,1,1,'','','debes compilar con la nueva version de x[harbour] \n\nxHarbour Compiler build 0.99.71 (SimpLex)','',0,'','2divv2pk',1,0,'',36,0,0),(32287,7084,3,34,0,'68.5.222.61',1179873066,1,0,1,1,1,1,'','FTP / Microsoft Server 2003','When trying to download a file, if the routine is run with a direct internet connection, the following code segment is OK ... but if it is run through Windows Server 2003 ( Microsoft ), it will not upload the file successfully.\n\nOn the same computer, with IPSwitch, the FTP connection is fine.\n\nDoes anyone have any thoughts on this ?\n\n    hInternet = InternetOpen( \"ASW\", 1,0,0,0 )\n      hconnect := InterNetConnect( hInternet, mCLinkFt, 0, mCLinkUn, mCLinkPw, 1, 0, 0 )\n      IF hconnect == 0\n         MsgAlert( \"Your connection was not established - there will be no file transfer\" )\n      ELSE\n         IF FTPPutFile( hConnect, cUpFile, cUpFile, 0, 0 )\n          ELSE\n           MsgAlert( \"Upload was unsuccessful )\n       ENDIF\n\nThe problem occurs on XP Pro and Vista computers.\n\nWe get to this point, and then the message is returned that the transfer was not successful ...','',0,'','1gej31bm',1,0,'',34,0,0),(32288,7085,2,235,0,'189.145.40.224',1179877926,1,0,1,1,1,0,'','alguien sabe porque al incorporarle .....','un icono al ejecutable, este excede su tamaño, ejemplo si el ejecutable tiene 1.6 mb sube a 7.6 mb\n\no que estoy haciendo mal, ya que con workshop genero el archivo rc y este se lo agrego a mi exe\n\nde antemano muchas gracias','',0,'','2v67x323',1,0,'',235,0,0),(32289,7086,2,890,0,'200.24.110.196',1179878189,1,0,1,1,1,0,'','Ayuda para un novato','Hola a todos en el foro\n\nComo puedo hacer un arreglo de código para que en un campo me muestre el numero del registro actual, y cuando introduzca el siguiente registro este campo se refresque y cuente automáticamente mas el nuevo registro.\n\nCordialmente\n\nJAIRO E  BARBOSA','',0,'','i5cxsvkj',1,0,'',890,0,0),(32290,7076,17,138,0,'194.213.38.210',1179878986,1,0,1,1,1,1,'','','Yes, use the CGI class, but first, be sure to install the APACHE CGI Support option','',0,'','2x8pkxfc',1,0,'',138,0,0),(32291,3945,3,233,0,'218.208.250.70',1179887523,1,0,1,1,1,0,'','','Is there an official solution to this issue?\n\n--\nxHb 0.96\nFWH 2.8','',0,'','2irio260',1,0,'',233,0,0),(32292,7073,3,159,0,'210.243.203.20',1179890147,1,0,1,1,1,0,'','','[quote=&quot;RAMESHBABU&quot;:13snzjlr]Hi ssbbs,\n\n[quote:13snzjlr]HB_MD5(\"abc\") = 900150983cd24fb0d6963f7d28e17f72 \n[/quote:13snzjlr]\n\nHow to get the actual value i.e. \"abc\" from \"900150983cd24fb0d6963f7d28e17f72\" ?\n\nRegards\n\n- Ramesh Babu P[/quote:13snzjlr]\n\nreference : [url:13snzjlr]http&#58;//www&#46;md5decrypter&#46;com/[/url:13snzjlr]','',0,'kA==','13snzjlr',1,0,'',159,0,0),(32293,7029,6,376,0,'200.106.20.246',1179890624,1,0,1,1,1,1,'','','El inconveniente es que no siempre sale lo impreso según se espera en todas las impresoras. \n\nLa mayor parte de nosotros utilizamos preview en forma general, excepto cuando se trata de impresión de boletas y facturas o registros contables como en Perú que tienen requisitos de copias al carbón que exigen las autoridades tributarias y para lo cual utilizamos las clase TdosPrn.\n\nPor ello es que cada uno, en su afán de conseguir la estandarización de la salida, sin importar la marca o modelo de la impresora, establecimos factores para corregir las salidas. Ese es el motivo de las rutinas que mostramos en el foro y que de alguna manera podrían ayudar a los copartícipes. \n\nSaludos\n\n[quote=&quot;jacgsoft&quot;:1yto4hp0]Lo que yo hago es simple,  tengo una funcion simplemente para PREVISUALIZAR  y otra para imprimir.\n\nPara el Preview uso: TPrint(Asi me olvido del modelo de la impresora)\n-----------------------\n\nDefine Font oFont Name \'Arial\' Size 16,25\n\nPrint oPrn Preview\nPage\n\noprn:Say(10,10,\'ejemplo\',oFont)\n\nEndPage\n\n\n\npara Impresion directamente a Impresora uso:   TdosPrn()\n------------------------------------------------------[/quote:1yto4hp0]','',0,'gA==','1yto4hp0',1,0,'',376,0,0),(32294,7064,6,177,0,'194.30.62.6',1179894185,1,0,1,1,1,0,'','','Carlos,\n\nmira en <!-- m --><a class=\"postlink\" href=\"http://info.borland.com/devsupport/bde/utilities.html\">http://info.borland.com/devsupport/bde/utilities.html</a><!-- m -->\n\nSaludos,\n\nFélix','',0,'gA==','3tuia4q3',1,0,'',177,0,0),(32295,7087,3,705,0,'61.0.136.44',1179895754,1,0,1,1,1,0,'','Scroll Text Area','Hi everybody,\n\nIf display area is less then the test length, how can I scroll to view or enter the entire text length?\n\nFor example, due to the insufficient space I can provide maximum 25 char to display the Name field. But length of the name field is 35 char. In such case,  if I can provide scroll option, the entire 35 char of the name field can be entered by the user.\n\nIs there any option like \"@!S25\"?\n\nWith regards\nArindam','',0,'gA==','3v08lo04',1,0,'',705,0,0),(32296,7087,3,233,0,'218.208.250.70',1179896796,1,0,1,1,1,0,'','','Yes there is. Just remember that at the edit control properties, you will also need to checked \"Auto Horz Scroll\"','',0,'gA==','1xccro63',1,0,'',233,0,0),(32297,6689,3,1017,0,'70.55.72.57',1179899426,1,0,1,1,1,0,'','','Hi,\n\nI have come back to this issue, and I have modified CONSTANT.CH\n\nHow do I safely recompile the FWH libs for xHarbour (my install uses  the xcc compiler)? I couldn\'t find anything obvious in the documentation.\n\nCarlo','',0,'gA==','2ksqxs2s',1,0,'',1017,0,0),(32298,7073,3,190,0,'124.7.25.222',1179901250,1,0,1,1,1,0,'','','Hi Ssbbs,\n\nOh! Md5 hash dicryption is avalable:o \n\nIs there any way to get its code ?\n\nThanks\n\n- Ramesh  Babu P','',0,'gA==','2f2am3n9',1,0,'',190,0,0),(32299,7065,3,58,0,'84.149.89.158',1179902057,1,0,1,1,1,0,'','','Dear friends,\n\ni finally got everything working.\nAfter rebuilding the FiveWin lib the job was done.\n\nIs there a make script or batch file somewhere to build the fwh libraries?\nFor the moment i\'m using a xMate project.\nBut with every new FWH version new files have to be added to the library.\n\nThanks for all your help.\nDetlef','',0,'gA==','2e5r6s3u',1,0,'',58,0,0),(32300,7088,3,699,0,'59.125.100.114',1179902237,1,0,1,1,1,1,'','Help for DBFDBT.LIB','Hi All,\n\nThis is my first time trying to build an .EXE file using Harbour, Borland C++ compiler and FWH. When I do buildh tutor01, I got an error message:\nFatal: Unable to open file ‘DBFDBT.LIB’\nThen I check my harbour\\lib folder, I am sure I do not have DBFDBT.LIB file. Does someone can help and provide me the DBFDBT.LIB file? \n\nMy email: <!-- e --><a href=\"mailto:tsai8839@yahoo.com\">tsai8839@yahoo.com</a><!-- e --> \n\nThanks in advance.','',0,'gA==','3dsn6sw3',1,0,'',699,0,0),(32301,7068,7,456,0,'217.127.39.57',1179904689,1,0,1,1,1,1,'','','Preuba a añadir el siguiente codigo en el ACTIVATE WINDOW\n[code:26kn3bve]\nON INIT &#40;MoveWindow&#40;oWnd&#58;hWnd,0,0,240,320&#41;&#41;\n[/code:26kn3bve]','',0,'AIA=','26kn3bve',1,0,'',456,0,0),(32302,7088,3,130,0,'141.51.32.24',1179906603,1,0,1,1,1,0,'','','You don´t need dfbdbt.lib anymore, link dbffpt.lib and hbsix.lib\n\nStefan','',0,'AIA=','327mxu1c',1,0,'',130,0,0),(32303,7083,6,596,0,'85.62.69.206',1179906621,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:w5hgdnij]debes compilar con la nueva version de x[harbour] \nxHarbour Compiler build 0.99.71 (SimpLex)[/quote:w5hgdnij]\nQuiere esto decir que tras una version de FWH tengo que \"perseguir\" la siguiente de xHarbour...\nPues vaya.\n\nAl ejecutar la aplicacion me abre antes una de MS-DOS y no he tocado nada...\nMe pasa con la version 7.4 y 7.5 siempre que use el xharbour que trae la distribucion de FTDN.\nSi uso la 7.4 con el xharbour del .ORG la 0.99.70 va bien.\n\nQue alguien me lo explique...','',0,'gA==','w5hgdnij',1,0,'',596,0,0),(32304,7079,3,2,0,'87.218.146.99',1179907527,1,0,1,1,1,1,'','','Milan,\n\nWe are sorry, you have to recompile it yourself as we use the most recent files from CVS and a complex make','',0,'gA==','3tkzey3o',1,0,'',2,0,0),(32305,7065,3,2,0,'87.218.146.99',1179907657,1,0,1,1,1,1,'','','Detlef,\n\nFWH works ok with the FiveTech provided xHarbour build.\n\nWere you using a most recent xHarbour CVS files ?','',0,'gA==','11u7tuzh',1,0,'',2,0,0),(32306,7081,3,130,0,'141.51.32.24',1179908015,1,0,1,1,1,0,'','','Enrico,\n\nthanks for your tip, but it does not work.\n\nThe result is, that the height of the page is greater  than the height of the dialog and the width is smaller than the dialog width\n\nI tried to insert a picture here, but I did not succeed. How can insert picture from the local disk ?\n\nWhat now?\n\nStefan','',0,'gA==','29jhyhjd',1,0,'',130,0,0),(32307,7081,3,2,0,'87.218.146.99',1179908234,1,0,1,1,1,1,'','','Stefan,\n\nThere is a small typo in Enrico\'s code:\n[code:10kbcedd]ACTIVATE DIALOG oDlg;\n         ON INIT oPage&#58;Move&#40; 0, 0, oDlg&#58;nWidth, oDlg&#58;nHeight-20 &#41;[/code:10kbcedd]','',0,'AIA=','10kbcedd',1,0,'',2,0,0),(32308,7065,3,58,0,'84.149.117.247',1179908798,1,0,1,1,1,0,'','','Antonio,\n\ni don\'t use any CSV files.\n\nI only downloaded the recent FWH and followed the link:\nXHARBOUR (Borland) - [url:shpcee2a]http&#58;//fivetechsoft&#46;com/files/xharbour&#46;exe[/url:shpcee2a]\non your download page.\n\nRegards,\nDetlef','',0,'EA==','shpcee2a',1,0,'',58,0,0),(32309,7065,3,2,0,'87.218.146.99',1179910265,1,0,1,1,1,1,'','','Detlef,\n\nWe just downloaded FWH and xHarbour from our FTP, installed it a on a computer and it properly built the samples without any error\n\nPlease try to build samples\\tutor02.prg or samples\\webexp.prg\n\nAre you using any library that may be compiled with a previous xHarbour build ?','',0,'EA==','2rie9nuc',1,0,'',2,0,0),(32310,7078,6,106,0,'85.34.123.173',1179910355,1,0,1,1,1,1,'','','Ruben, \n\nestás seguro que lograste abrir el archivo .xls?\n\nporque por lo que parece el error viene al seleccionar la hoja de trabajo.\n\nprueba esto:\n\nTRY\n\n oHoja := oExcel:Get( \"ActiveSheet\" ) \n\n  CATCH oError\n    MsgStop( oError:Operation+CRLF+oError:Description )\n    RETURN NIL\n\nEND TRY\n\n\nP.D. no se si ahora con harbour puedes usar TRY, END TRY...\n\n\nSaludos','',0,'EA==','35bqnq9c',1,0,'',106,0,0),(32311,7083,6,2,0,'87.218.146.99',1179910423,1,0,1,1,1,1,'','','JmGarcia,\n\nComprueba que no tengas una versión anterior de xharbour ó FWH en tu ordenador y que la estes usando por error\n\nAcabamos de descargar e instalar FWH y xHarbour desde nuestro FTP y funciona correctamente sin errores\n\nEstas usando alguna librería que esté construida con una versión anterior de xHarbour ?','',0,'EA==','3q5kplzq',1,0,'',2,0,0),(32312,7088,3,699,0,'59.125.100.114',1179910844,1,0,1,1,1,1,'','','Stefan,\n\nThank you very much for your quick reply. I try your way and link again, then I got the follow message:\n\nError: Unresolved external \'_hb_objGetpMethod\' referenced from: c:\\fwh\\lib\\fivehc.lib|ffdlgprc\n\nAny solution?','',0,'EA==','2u6sjxu7',1,1179911905,'',699,1,0),(32313,7088,3,2,0,'87.218.146.99',1179910971,1,0,1,1,1,1,'','','You have to use the Harbour build that you got with your FWH build from FiveTech','',0,'EA==','2hxxcgc8',1,0,'',2,0,0),(32314,7081,3,130,0,'141.51.32.24',1179911553,1,0,1,1,1,0,'','','Antonio,\n\nIt´s working now\n\nthanks\n\n\nkind regards\nStefan','',0,'EA==','2tpn7vxr',1,0,'',130,0,0),(32315,7088,3,130,0,'141.51.32.24',1179911833,1,0,1,1,1,0,'','','Andy,\n\nI didn´t notice, you are using harbour. My solution was for xHarbour. Maybe for harbour it´s similar, but I don´t know\n\nStefan','',0,'EA==','3i5ngt24',1,0,'',130,0,0),(32316,7088,3,699,0,'59.125.100.114',1179912205,1,0,1,1,1,1,'','','Antonio and Stefan,\n\nThank you for your help.  I\'ll try them.','',0,'EA==','lz8z7lpr',1,0,'',699,0,0),(32317,7083,6,596,0,'85.62.69.206',1179914922,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3uaoi8hn]Estas usando alguna librería que esté construida con una versión anterior de xHarbour ?[/quote:3uaoi8hn]\nSi, uso la FileXLS pero ya la ha recompilado y no me da el error del PCODE, ya funciona.\nAhora lo unico esque me saca una ventana de MS-DOS detras...','',0,'gA==','3uaoi8hn',1,0,'',596,0,0),(32318,7089,3,578,0,'218.214.35.132',1179914951,1,0,1,0,1,0,'','Help Please with OLE Microsoft Word','I want to control Word to open Word documents and convert to text format. \n\nI can get the Application object\n\nhWordOle := CreateOleObject(\"Word.Application\")\n\nI can get a ?handle? to the Documents Property\n\nhWordDocs := OleGetProprty( hWordOle, \"Documents\" )\n\nI can use this to open a file\n\nOleInvoke( hWordDocs, \"Open\", \"d:\\pretend\\MyDoc.doc\" )\n\nI can get  a ?handle? to the FileConverters property ( a collection )\n\nahFileCons := OleGetProperty( hWordOle, \"FileConverters\" )\n\nbut I need to access the mebers of that collection somehow.  I don\'t know how to proceed.  I need something like an OleGetPropertyCollection() function.\n\nI need to set the required file converter and then invoke the Save method.\n\nCan anyone help please?\n\nBy the way are these Ole functions documented anywhere?\n\nThanks','',0,'gA==','140jx0n6',1,0,'',578,0,0),(32319,7081,3,6,0,'87.1.232.48',1179915370,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1r0r18x3]There is a small typo in Enrico\'s code:[/quote:1r0r18x3]\n\nSorry.\n\nEMG','',0,'gA==','1r0r18x3',1,0,'',6,0,0),(32320,7083,6,2,0,'87.218.146.99',1179915700,1,0,1,1,1,1,'','','Asegurate de que estás enlazando gtgui.lib y no gtwin.lib y que al llamar al ilink32 usas la opción -aa','',0,'gA==','i9t92b74',1,0,'',2,0,0),(32321,7065,3,58,0,'84.149.73.137',1179916439,1,0,1,1,1,0,'','','Antonio,\n\ni did not download xHarbour and FWH from your FTP server.\n\nAnyhow, now it\'s working after rebuilding my FWH libs.\nI\'d just like to know if there is a link script or make file for building the FWH libraries.\n\nRegards,\nDetlef','',0,'gA==','27lypg8o',1,0,'',58,0,0),(32322,7064,6,936,0,'190.56.124.102',1179917029,1,0,1,1,1,0,'','','Felix,\nlo voy a revisar, luego te comento.\nTe llego el zip con un tabla pequeña de clientes de Paradox 7.x?\n\nSaludos.\n\nCarlos','',0,'gA==','1mhwdmkk',1,0,'',936,0,0),(32323,7064,6,177,0,'194.30.62.6',1179917195,1,0,1,1,1,0,'','','Carlos,\n\nsí, me ha llegado. En cuanto saque algo de tiempo lo miro, estoy liado con ADO y Oracle.\n\nSaludos,\n\nFelix','',0,'gA==','1hnv865r',1,0,'',177,0,0),(32324,7065,3,2,0,'87.218.146.99',1179918664,1,0,1,1,1,1,'','','Detlef,\n\nThe download address that we provided you is our FTP server\n\nYou may use this batch file to rebuild the library (PRGs):\n\nfor %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include\nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fiveh.lib -+ %%f /0 /P32,,','',0,'gA==','373h204w',1,0,'',2,0,0),(32325,7082,6,2,0,'87.218.146.99',1179919525,1,0,1,1,1,1,'','','Que versión de FWH estás usando ?','',0,'gA==','2jfwg884',1,0,'',2,0,0),(32326,7064,6,936,0,'190.56.124.102',1179920181,1,0,1,1,1,0,'','','Felix,\nya logre hacer la conexión con ADO sin necesidad del BDE de borland, con este string de conexión:\n\n[code:1sy2nxk3]\nstrConecta &#58;= &quot;Driver=&#123;Microsoft Paradox Driver &#40;*&#46;db &#41;&#125;;&quot;+;\n              &quot;collatingsequence=ASCII;&quot;+;\n              &quot;dbq=C&#58;\\Datos;&quot;+;\n              &quot;defaultdir=C&#58;\\Datos;&quot;+;\n              &quot;driverid=538;&quot;+;\n              &quot;fil=Paradox 7&#46;X;&quot;+;\n              &quot;paradoxnetpath=c&#58;\\temp;&quot;+;\n              &quot;paradoxnetstyle=4&#46;x;&quot;+;\n              &quot;paradoxusername=admin;&quot;+;\n              &quot;safetransactions=0;&quot;+;\n              &quot;threads=3;&quot;+;\n              &quot;uid=admin;&quot;+;\n              &quot;usercommitsync=Yes&quot;\n[/code:1sy2nxk3]\n\nGracias por tu apoyo en buscar como conectarme con el Paradox 7.x\n\nSaludos.\n\nCarlos.','',0,'AIA=','1sy2nxk3',1,0,'',936,0,0),(32327,7064,6,177,0,'194.30.62.6',1179921823,1,0,1,1,1,0,'','','Carlos,\n\nestas usando el ADORDD ?\n\nSaludos,\n\nFelix','',0,'AIA=','1p0t4kfu',1,0,'',177,0,0),(32328,7065,3,58,0,'84.149.73.137',1179921914,1,0,1,1,1,0,'','','Thanks, Antonio','',0,'AIA=','1v8c1hhs',1,0,'',58,0,0),(32329,7082,6,1023,0,'201.92.181.128',1179922276,1,0,1,1,1,0,'','','Estou usando a versão de Junho de 2005.','',0,'AIA=','27jri31x',1,0,'',1023,0,0),(32330,7042,3,1023,0,'201.92.181.128',1179922570,1,0,1,1,1,0,'','','<!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->   Pocha, alguém poderia me dar uma dica ai de como fazer isso <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nAgradecido <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->','',0,'AIA=','hn2arlyy',1,0,'',1023,0,0),(32331,7089,3,578,0,'218.214.35.132',1179922599,1,0,1,0,1,0,'','Making Progress','I am making progress using\n\noWord := CREATEOBJECT( \"Word.Application\" )\n\nthen I can find\n\nLEN( oWord:FileConverters )\n\nAnd iterate through\n\noWord:FileConverters[liCount]:FormatName\n\nCREATEOBJECT() is undocumented in latest xHarbour documentation as is ToleAuto which might be another approach.\n\nIs there any info out there?\n\nAny opinions as to the best approach?\n\nI am both excited by what xHarbour / Five Win can do and frustrated by the lag of documentation (understandable though it probably is given relatively small user base).','',0,'','h2xq4zjw',1,0,'',578,0,0),(32332,7064,6,936,0,'190.56.124.102',1179924908,1,0,1,1,1,0,'','','Felix,\nno, no estoy usando el ADORDD, solo ADO. Realmente solo quiero leer los datos de las tablas, no hacer modificaciones a ellas.\nPor otro lado estoy viendo la posibilidad de usar Condor1 de Manu Exposito.\nCuando tenga el sistema que genera los nuevos reportes te lo envío para que lo pruebes.\n\nSaludos.\n\nCarlos.','',0,'','3l598h9b',1,0,'',936,0,0),(32333,7068,7,840,0,'201.243.12.220',1179926032,1,0,1,1,1,1,'','=( nada...!','hola Biel...\n\nese comando lo que hace es mover la pantalla a cierta posicion pero no hace sobreponerc a la barra superior  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  debe haber una manera de hacer esto en FWPPC !!!  No se te ocurre otra forma ?\n\nGraciasss Biel!!','',0,'','2onao9qa',1,0,'',840,0,0),(32334,7078,6,492,0,'189.147.32.187',1179927841,1,0,1,1,1,1,'','','Hola Ruben\n\nAsi tengo el proceso para pasar de Excell a Dbf :\n\n[code:3fo6pojc]\nStatic Function ABESHWXLSDTS&#40;&#41;\nLOCAL oExcel, oHoja, nRows, nCols, aXRowVals, nRow, nCol, lVal2Ret &#58;= &#46;F&#46;, aKurXFabXPrd, cXItm2Vrf\nLOCAL aColsErr &#58;= &#123;0,0,0&#125;, cErrStrUpd &#58;= &quot;&quot;\nLOCAL cFlXls2Prc &#58;= cGetFile&#40; &quot;*&#46;XLS&quot;, &quot;Seleccione Archivo De Datos&quot; &#41;\n\nIF DckMBox&#40; 2, &quot;PARAMETROS PARA EXTRACCION DE DATOS DEL ARCHIVO&quot; + CRLF + ;\n		&quot;DE EXCEL HACIA EL SISTEMA MASTER SON CORRECTOS ?&quot;,,,, &#41;\n	IF DckMBox&#40; 3,,,,, &#41;\n		DTSMDF-&gt;&#40; OrdSetFocus&#40;1&#41;, DbGoTop&#40;&#41; &#41;\n\n		oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41; \n		*oExcel&#58;Visible &#58;= &#46;T&#46;					// por si quieres ver la hoja abierta \n		oExcel&#58;WorkBooks&#58;Open&#40; cFlXls2Prc &#41;\n\n		oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41; \n		nRows &#58;= oHoja&#58;UsedRange&#58;Rows&#58;Count&#40;&#41; \n		nCols &#58;= oHoja&#58;UsedRange&#58;Columns&#58;Count&#40;&#41; \n\n			FOR nRow &#58;= 1 TO nRows \n				IF oHoja&#58;Cells&#40; nRow, 1 &#41;&#58;Value == NIL\n					EXIT\n				ENDIF\n				aXRowVals &#58;= &#123;&#125;\n				AaDd&#40; aXRowVals, oHoja&#58;Cells&#40; nRow, 1 &#41;&#58;Value  &#41;\n				AaDd&#40; aXRowVals, oHoja&#58;Cells&#40; nRow, 2 &#41;&#58;Value  &#41;\n				AaDd&#40; aXRowVals, oHoja&#58;Cells&#40; nRow, 3 &#41;&#58;Value  &#41;\n				AaDd&#40; aXRowVals, oHoja&#58;Cells&#40; nRow, 4 &#41;&#58;Value  &#41;\n				cXItm2Vrf &#58;= aXRowVals&#91;1&#93;\n				cXItm2Vrf &#58;= IIF&#40; ValType&#40; cXItm2Vrf &#41; == &quot;N&quot;, ;\n					AllTrim&#40; TransForm&#40; cXItm2Vrf, &quot;9999999999999999&quot; &#41; &#41;, cXItm2Vrf &#41;\n				IF DTSMDF-&gt;&#40; DbSeek&#40; AllTrim&#40; Upper&#40; cXItm2Vrf &#41; &#41; &#41; &#41;\n					IF AllTrim&#40; DTSMDF-&gt;PPART &#41; == AllTrim&#40; Upper&#40; cXItm2Vrf &#41; &#41;\n						DTSMDF-&gt;PIIU   &#58;= aXRowVals&#91;2&#93;\n						DTSMDF-&gt;PEXSM  &#58;= aXRowVals&#91;3&#93;\n						DTSMDF-&gt;PEXSN  &#58;= aXRowVals&#91;4&#93;\n						DTSMDF-&gt;PSLD   &#58;= 1\n						DTSMDF-&gt;PMDFLG &#58;= 1\n					ENDIF\n				ENDIF\n			NEXT\n		DTSMDF-&gt;&#40; DbGoTop&#40;&#41; &#41;\n		lbCatMdf&#58;REFRESH&#40;&#41;\n		oExcel&#58;ActiveWorkbook&#40;&#41;&#58;Close&#40; &#46;F&#46; &#41;\n		oExcel&#58;Quit&#40;&#41; \n		lVal2Ret &#58;= &#46;T&#46;\n	ENDIF\nENDIF\nReturn NIL\n*-----*\n[/code:3fo6pojc]\n\nEspero te sirva\n\n\nSaludos','',0,'AIA=','3fo6pojc',1,0,'',492,0,0),(32335,7083,6,316,0,'213.97.245.163',1179927962,1,0,0,1,1,0,'','','Antonio,\n\nla xHarbour que hay en el ftp de que fecha es? De que fecha es el Harbour.exe?\nTe pregunto porque bajamos la 7.05 y el xHarbour correspondiente, hicimos el rebuild de todo y compila y enlaza sin errores, pero da unos fallos extrañísimos en la evaluación de macros y cosas por el estilo, que con la xHarbour que bajamos con la 7.04 funciona perfectamente.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','1zn2hxf1',1,0,'',316,0,0),(32336,7090,6,73,0,'200.23.18.132',1179929259,1,0,1,1,1,0,'','columnas xbrowse','Estoy probando la clase xbrowse, pero tengo una pregunta, he podido congelar columnas con  nFreeze, pero ahora lo que quiero es poder bloquear la columna uno, que no me permita posicionarme en esa columna, alguna forma de hacerlo?\ngracias\nsalu2\npaco','',0,'AIA=','p913q3j4',1,0,'',73,0,0),(32337,7089,3,190,0,'124.7.26.156',1179930264,1,0,1,1,1,0,'','','Follow this link.  You will get some help\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2503\">http://fivetechsoft.com/forums/viewtopic.php?t=2503</a><!-- m -->\n\n\n- Ramesh Babu P','',0,'AIA=','1khyb144',1,0,'',190,0,0),(32338,6807,6,78,0,'190.40.224.180',1179931240,1,0,1,1,1,0,'','','Hola Biel,\nInteresante el tema, usar una web cam para vigilancia y otras cosillas mas,,, pregunto, si por compraracion de imagenes, se activa el modo grabacion video, como se cancela la grabacion??, es decir en forma automatica?\n\nSalu2','',0,'AIA=','27hhv2h3',1,0,'',78,0,0),(32339,7064,6,177,0,'194.30.62.6',1179932916,1,0,1,1,1,0,'','','Carlos,\n\nCondor1 de mi buen amigo Manu, también funciona maravillosamente.\n\nTe preguntaba si usas ADORDD, ya que con la cadena de conexión que has descubierto tendrías que modificar adordd.prg\n\nSaludos,\n\nFélix','',0,'AIA=','ahmuzk43',1,0,'',177,0,0),(32340,7087,3,705,0,'61.0.136.121',1179933262,1,0,1,1,1,0,'','','Thanks HUA.\n\nCan you provide a small code for the same ?\n\nWith regards,\n\nArindam','',0,'AIA=','1uezkk1n',1,0,'',705,0,0),(32341,7091,6,41,0,'200.105.194.235',1179933657,1,0,1,1,1,0,'','Sigo con el tema de RTF y tablas','Holas,\n\nViendo que no hay solucion por el momento de manejar tablas en archivos RTF desde fivewin me puse a buscar\nen internet la especificacion de los archivos RTF,  con la idea de quien sabe se pueda extender la clase TRichtext de FW, sin embargo, creo que no tenemos todo el fuente de dicha clase o me equivoco Antonio?.\n\nBueno sigo frustrado en este tema, espero que este en los TODO de FiveTech, la extension de esta hermosa clase.\n\nun coordial saludo\n\nMarcelo','',0,'AIA=','3d5y3pk0',1,0,'',41,0,0),(32342,7042,3,2,0,'87.218.146.99',1179937405,1,0,1,1,1,1,'','','Si quieres que esos defines funcionen en cualquier PRG entonces debes incluirlo en un fichero CH que se incluya siempre, como FiveWin.ch\n\nEn caso contrario, debes usar funciones, en vez de defines, para que esten accesibles desde toda la aplicación','',0,'AIA=','307xsrie',1,0,'',2,0,0),(32343,6807,6,456,0,'217.127.39.57',1179937444,1,0,1,1,1,1,'','','Hola Willi\n pues de la misma manera que se activa. Cada x segundos capturo una imagen, la comparo con la anterior, y me devuelve un porcentaje de cambio. Si la grabacion esta activa, y el porcentaje de moviento es inferior al humbral que tengo definido para activar la grabación, se detiene la grabacion.\n[url=http&#58;//imageshack&#46;us:32arjeu5][img:32arjeu5]http&#58;//img69&#46;imageshack&#46;us/img69/6168/tveoyu6&#46;jpg[/img:32arjeu5][/url:32arjeu5]','',0,'GA==','32arjeu5',1,1179938291,'',456,1,0),(32344,6689,3,2,0,'87.218.146.99',1179937916,1,0,1,1,1,1,'','','Carlo,\n\nWe don\'t recommend our users to rebuild the library from PRGs to avoid possible errors, anyhow here you have a xHarbour builder project to rebuild it:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32956835/Fivehmx.lib.zip.html\">http://rapidshare.com/files/32956835/Fi ... b.zip.html</a><!-- m -->','',0,'GA==','1g7srviq',1,0,'',2,0,0),(32345,6807,6,2,0,'87.218.146.99',1179938256,1,0,1,1,1,1,'','','Biel,\n\nSiempre que se usa SelectObject() hay que guardar el valor que devuelve que es el objeto GDI previamente seleccionado, para restaurarlo como estaba, al final','',0,'GA==','dbgtbfkz',1,0,'',2,0,0),(32346,7083,6,2,0,'87.218.146.99',1179938364,1,0,1,1,1,1,'','','Carlos,\n\nxHarbour tiene problemas actualmente que estamos a la espera de que los solucione el equipo de desarrollo de xHarbour. \n\nPondremos un mensaje para avisar cuando confirmen que está arreglado y un nuevo build','',0,'GA==','2tft5xmv',1,0,'',2,0,0),(32347,3047,6,2,0,'87.218.146.99',1179938535,1,0,1,1,1,1,'','','Julio,\n\nEse documento, junto a otros, estan disponibles en el CVS de Harbour\n\nTe contestamos el 16 de Mayo del año pasado, quizá no vistes nuestro post','',0,'GA==','3txogaa3',1,0,'',2,0,0),(32348,6807,6,456,0,'217.127.39.57',1179938618,1,0,1,1,1,1,'','','Antonio, \ngracias maestro. No me habia percatado de las ultimas lineas de la función. Tendre que estudiarme mas profundamente el funcionamiento de GDI.','',0,'GA==','nb9e0hky',1,0,'',456,0,0),(32349,7092,3,35,0,'167.7.140.254',1179939561,1,0,1,1,1,0,'','Valid DATE function','To All\n\nDoes anyone have a function that will test for valid dates .. .DBF is rather forgiving when you write back a date like \"01/01/0200\" .. but ADO will give you a run-time error on a date like I just mentioned.\n\nDoes anyone have a routine or function that will test for a valid date for a date field \'mm/dd/yyyy ??\n\nThanks\nRick Lipkin\nSC Dept of Health','',0,'GA==','32frkz1q',1,0,'',35,0,0),(32350,7068,7,456,0,'217.127.39.57',1179940099,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2t8msojd][img:2t8msojd]http&#58;//img171&#46;imageshack&#46;us/img171/6255/ppcbz6&#46;jpg[/img:2t8msojd][/url:2t8msojd]\nAunque no lo uso en mi aplicacón lo he probado, y este es el resultado obtenido.','',0,'GA==','2t8msojd',1,0,'',456,0,0),(32351,6991,6,959,0,'201.58.62.230',1179940116,1,0,1,1,1,0,'','','Antonio,\n\n  Coloquei um botão para refresh e não repinta, então linkey junto com a aplicação C:\\XBH\\LIB\\ACTIVEX.LIB e já repinta, mas o refresh () carrega todo Activex novamente, perdendo lá posição del menu, pois o mesmo é feito em Flex, sabe se teria outro evento que não recarregue o componente e sim mostre como estava.\n\n Gracias,\n\n  Mário','',0,'GA==','1akgckrz',1,0,'',959,0,0),(32352,7083,6,2,0,'87.218.146.99',1179941585,1,0,1,1,1,1,'','','Ya lo han solucionado, podeis descargar el nuevo build desde aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32968747/xharbour.exe.html\">http://rapidshare.com/files/32968747/xharbour.exe.html</a><!-- m -->','',0,'GA==','2v7mqi5m',1,0,'',2,0,0),(32353,7093,3,2,0,'87.218.146.99',1179941701,1,0,1,1,1,1,'','New xHarbour build','For those using May 07 FWH and xHarbour from FiveTech, here you have a new xHarbour build as previous one was bad:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32968747/xharbour.exe.html\">http://rapidshare.com/files/32968747/xharbour.exe.html</a><!-- m -->','',0,'GA==','on16m284',1,0,'',2,0,0),(32354,7094,6,2,0,'87.218.146.99',1179941767,1,0,1,1,1,1,'','Nuevo build xHarbour','Para quienes esteis usando FWH y xHarbour versión de Mayo 07, por favor descargad este nuevo build de xHarbour que corrige un error importante:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32968747/xharbour.exe.html\">http://rapidshare.com/files/32968747/xharbour.exe.html</a><!-- m -->','',0,'GA==','1ws8w7wz',1,0,'',2,0,0),(32355,2486,16,2,0,'87.218.146.99',1179941839,1,0,1,1,1,1,'','','May 2007:\n\nxHarbour for Borland (it fixes an important error from previous build):\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32968747/xharbour.exe.html\">http://rapidshare.com/files/32968747/xharbour.exe.html</a><!-- m -->','',0,'GA==','2btsqqbs',1,0,'',2,0,0),(32356,6807,6,2,0,'87.218.146.99',1179942021,1,0,1,1,1,1,'','','Biel,\n\nEnhorabuena por tu aplicación de captura de imágenes, está espectacular <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','31k1shki',1,0,'',2,0,0),(32357,7083,6,596,0,'80.28.12.107',1179944267,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:13g001fx]Asegurate de que estás enlazando gtgui.lib y no gtwin.lib y que al llamar al ilink32 usas la opción -aa[/quote:13g001fx]\n\nEl fichero [b:13g001fx]bc[/b:13g001fx] que me genera el AJMAKE es este:\n[code:13g001fx]&quot;E&#58;\\Bases\\Pruebas\\LeePOI&#46;obj&quot; +\n&quot;E&#58;\\Lenguas\\BCC551\\Lib\\c0w32&#46;obj&quot;, +\n&quot;E&#58;\\Bases\\Pruebas\\LeePOI&#46;exe&quot;,&quot;e&#58;\\bases\\pruebas\\leepoi&#46;map&quot;, +\n&quot;E&#58;\\Bases\\FWH0705\\LIB\\Fivehc&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\LIB\\Fivehx&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\dbffpt&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\hbsix&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\contribuciones\\FileXLS\\lib\\FILEXLS&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\rtl&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\vm&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\rdd&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\dbfcdx&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\dbfntx&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\lang&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\macro&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\debug&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\common&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\pp&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\gtstd&#46;lib&quot; +\n&quot;E&#58;\\Lenguas\\BCC551\\Lib\\cw32&#46;lib&quot; +\n&quot;E&#58;\\Lenguas\\BCC551\\Lib\\import32&#46;lib&quot;, \n&quot;E&#58;\\Bases\\Pruebas\\LeePOI&#46;res&quot;[/code:13g001fx]\n\nQuite todas las LIB y fui anadiendo hasta que funciono.\n\nLos parametros del BCCP que tengo son [b:13g001fx]-O2 -OS -tW -5 -c -w3[/b:13g001fx]\n¿ Que hace el [b:13g001fx]-aa[/b:13g001fx] ?','',0,'wIA=','13g001fx',1,0,'',596,0,0),(32358,7040,7,596,0,'80.28.12.107',1179944753,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2lzlgd5b]De momento es una opción para usar ActiveX comerciales para Pocket PC, hasta que consigamos encontrar (si es que los hay) alguno propio del Pocket PC que se pueda usar[/quote:2lzlgd5b]\n\nGracias... de todos modos.','',0,'gA==','2lzlgd5b',1,0,'',596,0,0),(32359,7092,3,303,0,'72.199.41.171',1179946154,1,0,1,1,1,0,'','','Rick,\n\nHmm, isn\'t 01/01/0200 a valid date?\n\nDon\'t you just want to test for some defined date range? Perhaps something like:\n\nfunction checkDate( dDate )\nreturn if(year (dDate) &gt; 1980, .t., .f. )\n\nIf hard-coding the minimum date is an issue, then you could just keep track of the oldest date ever entered, and then question the user when they enter one older than that.\n\n\"Did you really mean the year 200?\"\n\nThis way then can still enter a date outside the known range, if indeed it is what they wanted.\n\nIf your users are entering dates, and if you provide them with a popup calendar and/or default dates, then you are much less likely to get typos.\n\nJames','',0,'gA==','3e9qf7sr',1,0,'',303,0,0),(32360,7083,6,2,0,'87.218.146.99',1179950405,1,0,1,1,1,1,'','','El -aa hace que no te salga una pantalla MsDos de fondo.\n\nTienes que usar gtgui.lib en vez de gtstd.lib','',0,'gA==','21p4zljm',1,0,'',2,0,0),(32361,7094,6,1024,0,'201.228.131.58',1179950819,1,0,1,1,1,1,'','','Antonio,\n\nAhora si, todo Ok.','',0,'gA==','17l52omd',1,0,'',1024,0,0),(32362,7068,7,840,0,'201.243.12.220',1179951544,1,0,1,1,1,1,'','mmm','eh Biel pobrias ser tan amable y m facilitarias un codigo de ejemplo completo ya que no consigo hacerlo bien noc que falla tengo.... te lo agradeceria !!! GRACIAS !!','',0,'gA==','vy88yj9u',1,0,'',840,0,0),(32363,7090,6,969,0,'83.165.99.149',1179953270,1,0,1,1,1,0,'','','Paco:\n\nEn principio no se puede evitar el posicionarse en cualquier celda cuando tienes una selección por celda, aunque hayas hecho un nFreeze de una o varias columnas. Yo he estado pensando de dotar a la clase  “TXBrwColumn” de una propiedad algo así como “::lMarqueeCell” que ha valores  ‘.F.’ no permitiera moverse por las celdas de esa columna, pero la verdad es que hay que retocar el código en bastantes sitios para que funcione adecuadamente  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> .\n\nUn saludo, \nRamón Avendaño.','',0,'gA==','2gc6nzry',1,0,'',969,0,0),(32364,7095,6,898,0,'200.232.246.225',1179955342,1,0,1,1,1,0,'','Problema com impressao em paisagem','Pessoal, um cliente meu esta imprimindo um relatorio em paisagem, em uma impressora HP Laser 1160, e esta cortando o canto direito da impressao, alguem tem uma ideia doque seja?\n\n\n[]s!!','',0,'','2ee93pr7',1,0,'',898,0,0),(32365,7094,6,959,0,'201.58.62.230',1179956575,1,0,1,1,1,0,'','','Antônio,\n\n  Para quem utiliza xHB comercial também ?\n\n  Gracias\n\n  Mário','',0,'','262ra5nn',1,0,'',959,0,0),(32366,7092,3,343,0,'24.173.70.29',1179956628,1,0,1,1,1,0,'','','How about\n\nfunction checkDate( dDate ) \nreturn if(year (dDate) &gt; date()-200 .or. empty( dDate ), .t., .f. )','',0,'','fwtky9kl',1,0,'',343,0,0),(32367,7083,6,596,0,'80.28.12.107',1179957517,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1xld12do]El -aa hace que no te salga una pantalla MsDos de fondo.\nTienes que usar gtgui.lib en vez de gtstd.lib[/quote:1xld12do]\n\nBueno... pues con esto, esta todo aclarado.\nMuchas gracias, Antonio.\n\nDe todas formas estas librerias me las pone a capon el AjMake, entre ellas [b:1xld12do]gtstd.lib[/b:1xld12do]:\n\n[code:1xld12do]&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\rtl&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\vm&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\rdd&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\dbfcdx&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\dbfntx&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\lang&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\macro&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\debug&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\common&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\pp&#46;lib&quot; +\n&quot;E&#58;\\Bases\\FWH0705\\xHarbour\\lib\\gtstd&#46;lib&quot; + [/code:1xld12do]','',0,'wIA=','1xld12do',1,0,'',596,0,0),(32368,7078,6,785,0,'190.64.229.177',1179960986,1,0,1,1,1,0,'','','Gracias Raymundo:\n\nLo tengo funcionando...\nAunque tengo alguna cosas diferentes a las tuyas, \nquizas sea por Harbour y xHarbour\n\n   oExcel := TOleAuto():New( \"Excel.Application\" )\n\n   oExcel:WorkBooks:Open(cFilePath(GetModuleFileName(GetInstance()))+\"eventos.xls\")\n\n\n[b:2chlaok7] oHoja := oExcel:ActiveSheet()[/b:2chlaok7]\n     \n\n   nRows := oHoja:UsedRange:Rows:Count()\n   nCols := oHoja:UsedRange:Columns:Count()\n\nSaludos y muchas gracias a todos\n\nRuben Fernandez.','',0,'QA==','2chlaok7',1,0,'',785,0,0),(32369,7096,6,959,0,'201.58.62.230',1179962095,1,0,1,1,1,0,'','Captura de la Pantalha já não funciona mais','Isto me ia bem, agora salva o arquivo, mas o mesmo não é reconhecido\n   como um BITMAP\n\n    DibWrite( aOrigem , DibFromBitmap( WndBitmap( GETDESKTOPWINDOW() ) ) )\n\n     DibWrite( aOrigem , DibFromBitmap( WndBitmap( GETWINDOW(GETDESKTOPWINDOW(), 5 ) ) ) )\n\n\n[img:3iah06mz]http&#58;//www&#46;bytesoftware&#46;com&#46;br/teste/imagem9&#46;jpg[/img:3iah06mz]\n\n Gracias,\n\nMário Saviotti Junior\nxHb 99.80 ,  FWH 7.05','',0,'CA==','3iah06mz',1,0,'',959,0,0),(32370,7092,3,35,0,'65.188.6.143',1179963040,1,0,1,1,1,0,'','','James and Gale\n\n\n&gt; Hmm, isn\'t 01/01/0200 a valid date? \n\nYES it is ... but not in the realm of ( xHarbour ) ADO ( above date gives a run-time when you write to a table with ADO ) .. and on the way home from work this evening I kinda thought about a (year ) comparison between date() and varDate.. much like you both suggest and throw up an alert for +- maybe 20 years or so ....\n\nHave to consider this a bit more ..\n\nThank you both.\n\nRick','',0,'CA==','1feonaj0',1,0,'',35,0,0),(32371,7096,6,2,0,'87.218.146.99',1179963784,1,0,1,1,1,1,'','','Mario,\n\nAqui funciona bien:\n[code:1kws65t9]\nfunction Main&#40;&#41;\n\n   DibWrite&#40; &quot;test&#46;bmp&quot;, DibFromBitmap&#40; WndBitmap&#40; GETDESKTOPWINDOW&#40;&#41; &#41; &#41; &#41; \n\nreturn nil\n[/code:1kws65t9]\n[url=http&#58;//imageshack&#46;us:1kws65t9][img:1kws65t9]http&#58;//img460&#46;imageshack&#46;us/img460/4326/testuu6&#46;png[/img:1kws65t9][/url:1kws65t9]','',0,'GIA=','1kws65t9',1,0,'',2,0,0),(32372,7094,6,2,0,'87.218.146.99',1179964095,1,0,1,1,1,1,'','','Mário,\n\nSolicita que te envien un nuevo build de xharbour comercial, con la corrección al bug que se hizo ayer mismo','',0,'GIA=','1otcw2af',1,0,'',2,0,0),(32373,7097,6,1063,0,'164.77.154.34',1179967173,1,0,1,1,1,0,'','Impresion de nota de venta','Porque cuando imprimo en una impresora FX o LX, la impresion sale correcta, pero al imprimir en una LQ que son graficas me salen desplazados las impresiones, en D.O.S, utilizo Fivewin 2.4 Harbour y la clase tdosprn, necesito ayuda porque ya he realizado todos los cambios necesario y nada si cuadro en la LQ, en la LX o FX me sale todo mal, que puede ser.','',0,'GIA=','19rsck8h',1,0,'',1063,0,0),(32374,7097,6,940,0,'189.157.69.129',1179967481,1,0,1,1,1,1,'','','Elemo,\n\nla class tDosPrn,  solo es para impresoras matrizales,\n\nsin embargo en este foro alguien por ahi posteo\n\nuna adaptacion de un preview para que los \n\nreportes generados con tdosprn,  se puedan imprimir \n\nen cualquier impresora.\n\nen lo personal, yo uso tprinter para impresoras graficas.\n\nsaludos...','',0,'GIA=','wh2iccwb',1,0,'',940,0,0),(32375,7098,6,439,0,'200.125.40.76',1179968196,1,0,1,1,1,1,'','Font en menu','Existe alguna manera de cambiar el FONT al menu de la ventana principal de una aplicación?','',0,'GIA=','3k14x7j2',1,0,'',439,0,0),(32376,7092,3,303,0,'72.199.41.171',1179969884,1,0,1,1,1,0,'','','Rick,\n\nAnother thing I use is background color. You could color the background of the GET yellow when the date is questionable. I have one like this that turns yellow when questionable and even puts up a tooltip with a message. The tooltip then vanishes as any tooltip does. This way the user doesn\'t have to stop everything to deal with it (no buttons to push). In this instance it is not critical that it be fixed.\n\nThe tooltip also appears when the data is questionable, and the cursor hovers over the field.  \n\nYou may have to force the user to fix the date or at least leave it blank. I suggest not forcing the user to enter a date, since the user will often just fudge and enter any valid date so they can close the dialog. This is worse than no date since it appears to be correct. At least an empty date is easy to find. I would color the GET background pink if no date is entered and the field is critical.\n\nJames','',0,'GIA=','1dbmbddx',1,0,'',303,0,0),(32377,7087,3,233,0,'218.208.250.70',1179973289,1,0,1,1,1,0,'','','Just do a grep or text search for \"@S\" in FWH\'s SAMPLES directory. There are quite a few there','',0,'GIA=','1vstp3v1',1,0,'',233,0,0),(32378,7098,6,2,0,'87.218.146.99',1179982737,1,0,1,1,1,1,'','','Jose,\n\nEl font del menu se establece desde \"propiedades de pantalla\", \"apariencia\", \"opciones avanzadas\" y es global para todo Windows, salvo que tus menus sean enteramente \"owner-draw\" (dibujados por la aplicación) en cuyo caso si podrías usar el font que deseases.\n\nEl menu tipo office que se ha publicado en estos foros, es tipo \"owner-draw\"','',0,'GIA=','2f8bzopr',1,0,'',2,0,0),(32379,7086,2,228,0,'201.244.219.233',1179983325,1,0,1,1,1,1,'','Puede ser asi....','Amigo mira lo puedes hacer asi...\n\n[code:2zqeev5a]\n\nDEFINE DIALOG ventana RESOURCE &quot;OBCAT21&quot; \n&#46;&#46;&#46;&#46;&#46;\n\nREDEFINE SAY oSay1 VAR sayrec ID 20 OF ventana\nREDEFINE SAY oSay2 VAR saytre  ID 21 OF ventana\n\n&#46;&#46;&#46;&#46;\n\n*Para ir actualizando a medida que te desplazas sobre el browse\n*haces lo siguiente&#58;\n\nREDEFINE LISTBOX lisbasAM VAR este;\n		 FIELDS HFPRO-&gt;HTcodigo,HFPRO-&gt;HTdigive,HFPRO-&gt;HTnombre;\n                 FIELDSIZES 78,25,320;\n	 ID 110 OF ventana;\n	 HEADERS &quot;Código&quot;,&quot;D/V&quot;,&quot;Nombre&quot;;\n                 ON CHANGE &#40;oSay2&#58;SetText&#40;RecCount&#40;&#41;&#41;,oSay1&#58;SetText&#40;RecNo&#40;&#41;&#41;&#41;\n\n\nACTIVATR DIALOG&#46;&#46;&#46;&#46;&#46;&#46;\n\n[/code:2zqeev5a]\n\nTambien puedes colocar estas clausulas en una funcion y llamarla despues de grabar el registro en la base de datos\n\n\n[code:2zqeev5a]\nFUNCTION refrescar&#40;&#41;\noSay2&#58;SetText&#40;RecCount&#40;&#41;&#41;\noSay1&#58;SetText&#40;RecNo&#40;&#41;&#41;\n\n[/code:2zqeev5a]\nEspero te sirva..\n\nPtda: Que pena la demora  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','2zqeev5a',1,0,'',228,0,0),(32380,7099,3,31,0,'195.182.84.105',1179989345,1,0,1,1,1,1,'','TWord class i tables ...','Hi ,\n\n  Yesterday I downloaded TWord class - it seems that this is amazing class ... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> . I have a request - can you send some samples where will be source to create tables in Word document with this class ?\n\n   With best regards ! Rimantas','',0,'AIA=','mtn8l40a',1,0,'',31,0,0),(32381,7100,6,596,0,'85.62.69.206',1179991153,1,0,1,1,1,1,'','Sincronizar por NTP el PC con FWH+xHarbour','Pues eso:\nQuisiera sincronizar por NTP el PC con FWH+xHarbour.\nNo quiero ningun cliente NTP (los hay a montones).\nQuisiera hacerlo por codigo xBase.\nLa idea es recibir la hora y volver a retrasmitir la hora recibida pero con errores y desfasada a voluntad.\nCosas necesarias para pruebas de sistemas...  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nGracias.','',0,'AIA=','2wqibgqn',1,0,'',596,0,0),(32382,7077,6,596,0,'85.62.69.206',1179991443,1,0,1,1,1,1,'','','Pues sigo parado sin saber como devolver el buffer a la esctructura...  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'AIA=','3n0b6zkg',1,0,'',596,0,0),(32383,7100,6,2,0,'87.218.146.99',1179991581,1,0,1,1,1,1,'','','Tienes que buscar las especificaciones del protocolo NTP e implementar una clase, similar a la TPop3, TFtpServer, etc. (basadas en sockets) de FWH','',0,'AIA=','zptm9ary',1,0,'',2,0,0),(32384,7077,6,2,0,'87.218.146.99',1179992209,1,0,1,1,1,1,'','','Los objetos estan basados en arrays por lo que puedes \"saltarte\" el control del motor de classes y acceder a los datos directamente, sólo has de saber donde está la posición del dato:\n[code:3rwhh0ur]\nfor n = 1 to Len&#40; WSAData &#41;\n   if WSAData&#91; n &#93; == WSAData&#58;InternalBuffer\n      WSAData&#91; n &#93; &#58;= &#46;&#46;&#46; // asígnale el nuevo valor\n   endif\nnext  \n[/code:3rwhh0ur]\nPor otra parte revisa las funciones contenidas en FWH source/winapi/winsock.c ya que están ya implementadas muchas de las funciones que vayas a usar','',0,'AIA=','3rwhh0ur',1,0,'',2,0,0),(32385,7094,6,449,0,'212.64.224.241',1179992955,1,0,1,1,1,1,'','','Antonio,\n\nSirve para la 7.04 ?','',0,'AIA=','38ogskj7',1,0,'',449,0,0),(32386,7094,6,2,0,'87.218.146.99',1179993101,1,0,1,1,1,1,'','','Carles,\n\nDe la 7.04 a la 7.05 hay cambio de pcode, luego tendrías que reconstruir la librería de PRGs','',0,'AIA=','2wsjsayi',1,0,'',2,0,0),(32387,7068,7,456,0,'217.127.39.57',1179996290,1,0,1,1,1,1,'','','[code:2pxdwphk]\n# INCLUDE &quot;FwCE&#46;ch&quot;\n#define SHFS_SHOWTASKBAR    1 // 0x0001\n#define SHFS_HIDETASKBAR    2 // 0x0002 //2\n#define SHFS_SHOWSIPBUTTON  4 // 0x0004\n#define SHFS_HIDESIPBUTTON  8 // 0x0008 //8\n#define SHFS_SHOWSTARTICON 16 // 0x0010\n#define SHFS_HIDESTARTICON 20 // 0x0020 //32\n\n\nFUNCTION MAIN&#40;&#41;\n   LOCAL oWnd\n   DEFINE WINDOW oWnd \n   ShFullScreen&#40;oWnd&#58;hwnd,SHFS_HIDESTARTICON &#41;\n   ShFullScreen&#40;oWnd&#58;hwnd,SHFS_HIDETASKBAR &#41;\n   \n   ACTIVATE WINDOW oWnd;\n           ON INIT &#40;MoveWindow&#40;oWnd&#58;hWnd,0,0,240,320&#41;,Test&#40;oWnd&#41;&#41;\nRETURN NIL\n\nSTATIC FUNCTION Test&#40;oWnd&#41;\n   @0,0 SAY \'Text\'\nRETURN NIL      \n[/code:2pxdwphk]\n[url=http&#58;//imageshack&#46;us:2pxdwphk][img:2pxdwphk]http&#58;//img407&#46;imageshack&#46;us/img407/1310/ppcfn4&#46;jpg[/img:2pxdwphk][/url:2pxdwphk]','',0,'GIA=','2pxdwphk',1,0,'',456,0,0),(32388,7101,3,904,0,'196.25.255.214',1179998715,1,0,1,1,1,1,'','Button Bar dissapears','When my program does some functions like envoke an email message, when I return to my program, one of my toolbars has dissappeared.\n\nIf I minimise and maximise the program it reappears.  Where is my problem?','',0,'GIA=','fecseb03',1,0,'',904,0,0),(32389,6858,3,904,0,'196.25.255.250',1180000767,1,0,1,1,1,1,'','','Nope.\n\nIt puts:\n\n<!-- e --><a href=\"mailto:ollie@theoasis.co.za\">ollie@theoasis.co.za</a><!-- e -->, <!-- e --><a href=\"mailto:support@theoasis.co.za\">support@theoasis.co.za</a><!-- e -->\n\nin the email address, but outlook does not recognise it - it thinks its one address.','',0,'GIA=','buimh4ay',1,0,'',904,0,0),(32390,6072,3,904,0,'198.54.202.250',1180001260,1,0,1,1,1,1,'','','This works with Outlook, (Pics embedded in the HTML to arrive at user) but same problem occurs when lFromUser=.F., the HTML file isn\'t the body anymore, but an attachment. \n\nUsage example: \n\nSendEmail(\"ollie@theoasis.co.za\",\"Email Subject\",\"\",{DEFPATH()+\"test.htm\"},{\"test.htm\"},.T.)\n\nBut I haven\'t figured out how to send to multiple recipients - any ideas?\n\n[code:2ivimj66]PROCEDURE SendEmail&#40; cTo, cSubject, cBody, aFiles_with_path, aFiles_only_name, lPause  &#41;\n   LOCAL i, oMail, aFiles\n   DEFAULT lPause&#58;=&#46;T&#46;\n   //Second SendEmail option&#46;\n\n//   local cSubject, cBody, aTo, aFiles\n\n      DEFINE MAIL oMail SUBJECT cSubject ;\n             TEXT cBody ;\n             TO cTo ;\n             FROM USER\n\n      aFiles&#58;=&#123;&#125;\n   FOR i&#58;= 1 TO Len&#40;aFiles_with_path&#41;\n      IF FILE&#40;aFiles_with_path&#91;i&#93;&#41;\n         AADD&#40;aFiles,&#123;aFiles_with_path&#91;i&#93;,aFiles_only_name&#91;i&#93;&#125;&#41;\n      ELSE\n         MSGINFO&#40;aFiles_only_name&#91;i&#93;+&quot; File not found&#58; &quot;+aFiles_with_path&#91;i&#93;,&quot;Email&quot;&#41;\n      ENDIF\n   NEXT\n   IF LEN&#40;aFiles&#41;&gt;0\n         oMail&#58;aFiles &#58;= aFiles //&#123;&#123;DEFPATH&#40;&#41; + &quot;&#46;&#46;\\Error&#46;log&quot;,&quot;testError&#46;txt&quot;&#125;,&#123;DEFPATH&#40;&#41; + &quot;&#46;&#46;\\Error&#46;log&quot;,&quot;t2estError&#46;log&quot;&#125;&#125;//aFilenames\n      ENDIF\n\n      oMail&#58;lFromUser &#58;= lPause\n\n   ACTIVATE MAIL oMail\n\n   IF oMail&#58;nRetCode!=0\n      IF oMail&#58;nRetCode=1\n         MSGALERT&#40;&quot;Email Cancelled&quot;,&quot;Email&quot;&#41;\n         ELSE\n   MsgAlert&#40;&quot;The message was not sent&#46;&quot;+CRLF+CRLF+;\n   &quot;MAPI Error code&#58; &quot;+ltrim&#40;str&#40;oMail&#58;nRetCode&#41;&#41;+&quot; &#58; &quot;+MAPI_ERROR&#40;oMail&#58;nRetCode&#41;,&quot;Error&quot;&#41;\n   ENDIF\nENDIF\n\nRETURN\n\nSTATIC FUNCTION MAPI_ERROR&#40;nErrorCode&#41;\n   LOCAL cResult\n   LOCAL aError&#58;=&#123;&quot;MAPI_USER_ABORT&quot;,; //1\n   &quot;MAPI_E_FAILURE&quot;,; //2\n   &quot;MAPI_E_LOGIN_FAILURE&quot;,; //3\n   &quot;MAPI_E_DISK_FULL&quot;,; //4\n   &quot;MAPI_E_INSUFFICIENT_MEMORY&quot;,; //5\n   &quot;MAPI_E_ACCESS_DENIED&quot;,; //6\n   &quot;UNKNOWN ERROR&quot;,; //7\n   &quot;MAPI_E_TOO_MANY_SESSIONS&quot;,; //8\n   &quot;MAPI_E_TOO_MANY_FILES&quot;,; //                   9\n   &quot;MAPI_E_TOO_MANY_RECIPIENTS&quot;,; //             10\n   &quot;MAPI_E_ATTACHMENT_NOT_FOUND&quot;,; //            11\n   &quot;MAPI_E_ATTACHMENT_OPEN_FAILURE&quot;,; //         12\n   &quot;MAPI_E_ATTACHMENT_WRITE_FAILURE&quot;,; //        13\n   &quot;MAPI_E_UNKNOWN_RECIPIENT&quot;,; //               14\n   &quot;MAPI_E_BAD_RECIPTYPE&quot;,; //                   15\n   &quot;MAPI_E_NO_MESSAGES&quot;,; //                     16\n   &quot;MAPI_E_INVALID_MESSAGE&quot;,; //                 17\n   &quot;MAPI_E_TEXT_TOO_LARGE&quot;,; //                  18\n   &quot;MAPI_E_INVALID_SESSION&quot;,; //                 19\n   &quot;MAPI_E_TYPE_NOT_SUPPORTED&quot;,; //              20\n   &quot;MAPI_E_AMBIGUOUS_RECIPIENT&quot;,; //             21\n   &quot;MAPI_E_MESSAGE_IN_USE&quot;,; //                  22\n   &quot;MAPI_E_NETWORK_FAILURE&quot;,; //                 23\n   &quot;MAPI_E_INVALID_EDITFIELDS&quot;,; //              24\n   &quot;MAPI_E_INVALID_RECIPS&quot;,; //                  25\n   &quot;MAPI_E_NOT_SUPPORTED&quot;&#125; //                   26\n   IF nErrorCode&gt;26&#46;OR&#46;nErrorCode&lt;1\n      cResult&#58;= &quot;UNKNOWN ERROR&quot;\n   ELSE\n      cResult&#58;=aError&#91;nErrorCode&#93;\n   ENDIF\n   RETURN &#40;cResult&#41;[/code:2ivimj66]','',0,'AIA=','2ivimj66',1,0,'',904,0,0),(32391,7098,6,439,0,'200.125.40.237',1180003447,1,0,1,1,1,1,'','','Gracias Antonio.','',0,'AIA=','269qqjlf',1,0,'',439,0,0),(32392,7093,3,529,0,'200.159.199.104',1180004630,1,0,1,1,1,0,'','fwh 704','hi, with 7.04 i use this ???','',0,'AIA=','1ec3tlf2',1,0,'',529,0,0),(32393,7102,3,529,0,'200.159.199.104',1180004817,1,0,1,1,1,0,'','OZS (wdbu) is dead?','Hi, i am an registered user of wdbu 3.4 (ozs soft), i change my workstation, and try to get an new serial, send an emal, but dont have any response..,\nozs is dead? someone has an wdbu like, to open dbfcdxax files (ads server)??\n\nthanks','',0,'AIA=','5jckubov',1,0,'',529,0,0),(32394,7093,3,2,0,'87.218.146.99',1180007909,1,0,1,1,1,1,'','','Norberto,\n\nNo, as it is just for FWH 7.05 (there is a pcode change)','',0,'AIA=','wttqmqef',1,0,'',2,0,0),(32395,7101,3,2,0,'87.218.146.99',1180009327,1,0,1,1,1,1,'','','Ollie,\n\nAre you using a MDI window ? is it a toolbar or a buttonbar ?','',0,'AIA=','1s40f7og',1,0,'',2,0,0),(32396,7042,3,1068,0,'200.153.245.50',1180009611,1,0,1,1,1,1,'','','olá,\n\npelo q entendi vc criou um define no FiveWin.ch e depois está querendo alterar o valor deste define via código em tempo de execução, de acordo com as preferências do usuário. É isso, não é ?\n\nbem se for isso, pelo que eu entendo os defines devem ser utilizados para valores CONSTANTES e não VARIÁVEIS...\n\nneste seu caso, vc deve criar variáveis públicas, que poderão ser alteradas em tempo de execução. Elas pode até estarem atreladas a um define, mas somente como identificadores constantes. Na minha aplicação utilizo alguma coisa assim:\n\n[code:a92g30xh]\n#define COR_TELA   1\n#define COR_GET    2\n#define COR_SAY    3\n\n// neste caso os defines somente para facilitar a identificação da posição\n// dos elementos na tabela\n\nPUBLIC aCores&#58;=&#123; RGB&#40;255,255,255&#41;, RGB&#40;255,255,255&#41;, RGB&#40;0,0,0&#41; &#125;\n\n// quando vc quiser alterar, vc recarrega os valores na variável pública\n\naCores&#91; COR_TELA &#93; &#58;= RGB&#40;   0, 255,   0 &#41;\naCores&#91; COR_GET  &#93; &#58;= RGB&#40;   0, 255, 255 &#41;\naCores&#91; COR_SAY  &#93; &#58;= RGB&#40; 255,   0, 255 &#41;\n[/code:a92g30xh]\n\nespero ter ajudado\n\num abraço','',0,'AIA=','a92g30xh',1,0,'',1068,0,0),(32397,7101,3,904,0,'198.54.202.250',1180010524,1,0,1,1,1,1,'','','MDICHILD\nButtonbar','',0,'AIA=','2pgrqhxd',1,0,'',904,0,0),(32399,7101,3,2,0,'87.218.146.99',1180010745,1,0,1,1,1,1,'','','Ollie,\n\nCould you take a screenshot and upload it to <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the URL to review it ? thanks,','',0,'EA==','rw7asxuo',1,0,'',2,0,0),(32400,7103,2,1065,0,'201.116.83.242',1180010963,1,0,1,1,1,0,'','gracias','voy a internar contacatr al fabricante.\n\nGracias','',0,'EA==','sg7lmb10',1,0,'',1065,0,0),(32401,7101,3,904,0,'198.54.202.226',1180013022,1,0,1,1,1,1,'','','done.\n\nI send a mail using TMAIL\n\nThen when the program returns, buttonbar is gone.\n\n<!-- m --><a class=\"postlink\" href=\"http://img474.imageshack.us/my.php?image=screenshotrg8.jpg\">http://img474.imageshack.us/my.php?imag ... hotrg8.jpg</a><!-- m -->','',0,'EA==','39164ixz',1,0,'',904,0,0),(32402,7090,6,73,0,'200.23.18.132',1180013450,1,0,1,1,1,0,'','','entendido ramon,\nseria una gran labor lograr ese proposito, éxito!!\ngracias\nPaco','',0,'EA==','24b0twza',1,0,'',73,0,0),(32403,6093,3,904,0,'196.25.255.246',1180014747,1,0,1,1,1,1,'','','Hi Roberto \n\nAre you able to send HTML messages with TSMTP?','',0,'EA==','1krt3smp',1,0,'',904,0,0),(32404,7061,3,879,0,'67.70.61.250',1180014799,1,0,1,1,1,0,'','','James,\n\nI tested the code and found that it does not work using UNC and it also has another quirk.\n\nThe quirk is if the drive is \"C:\" it does not work but if I use \"C:\\\" it works. Using either  \"D:\" or \"D:\\\" or higher, both operations work. Why it does not work with the \"C\" drive may be because I am running the app also from the \"C\" drive.\n\nI added code to the routine to see just what  is happening as well as using the xHarbour function for reading the serial number as well. The comments on the right of the code shows the returned results; first using a UNC (which doesn\'t exist on my system) as well as a drive letter from my local system.\n\n[code:3ssq86vn]                                    Bogus UNC         Valid local drive\nmsginfo&#40;cDrive&#41;                  // \\\\compaq\\C&#58;    -- C&#58;\\\n\nmsginfo&#40;nSerialHD&#40;cDrive&#41;&#41;       // 4524474        -- 1479837593\n\ncHex &#58;= L2HEX&#40;nSerialHD&#40;cDrive&#41;&#41;\ncHex &#58;= LEFT&#40;cHex,4&#41; + &quot;-&quot; + RIGHT&#40;cHex,4&#41;\nMSGINFO&#40;cHex&#41;                    //0045-09BA       -- 5834-8799\n\nmsginfo&#40;VolSerial&#40;cDrive&#41;&#41;       // -1             -- 1479837593&#46;000000\ncHex &#58;= L2HEX&#40;VolSerial&#40;cDrive&#41;&#41;\ncHex &#58;= LEFT&#40;cHex,4&#41; + &quot;-&quot; + RIGHT&#40;cHex,4&#41;\nmsginfo&#40;cHex&#41;                    // FFFF-FFFF      -- 5834-8799\n[/code:3ssq86vn]\n\nI also tried using a valid UNC which gave the same result. \n\nIn case my understanding is wrong,  let me say that I was trying to go from an XP Pro system through a Netgrear router to an XP Home system. I tried all possibilities. \"\\\\Aopen\\boot\" (the vol name of that particular drive), \"\\\\Aopen\\C\", \"\\\\Aopen\\C:\", \"\\\\Aopen\\C:\\\" etc. Every time the same codes were returned. It seems that the FiveWin function  returns a bogus value while the xHarbour function retruns -1 if it cannot read the serial number.\n\nSince the VOL command cannot read the serial using UNC notation may be the reason why these 2 functions can\'t do it either.','',0,'AIA=','3ssq86vn',1,0,'',879,0,0),(32405,7097,6,1063,0,'164.77.154.183',1180015086,1,0,1,1,1,0,'','','Las impresoras que utilizo son matriciales de epson, pero no se porque razon entre el modelo lx y fx son compatible pero en el modelo lq-2080 lq-2090 nome cuadran las impresiones, al principio pense que era mala configuracionde la impresora, pero no es asi, porque en CLipper DOS imprime sin problemas, entonces cuando lo visualizo por el preview ya lo muestra mal.\nTambien probe la clase que indican que en cualquier impresora se puede imprimir, pero siempre tengo el mismo resultado en el que sea.\n\nhabra otra forma como en WORD, al seleccionar la impresora te imprime en los mismo y no se corren los margenes','',0,'AIA=','1fstatnr',1,0,'',1063,0,0),(32406,7077,6,596,0,'85.62.69.206',1180017948,1,0,1,1,1,1,'','','Ya pero Len(WSAData) no me da el numero de elementos de la estructura, me da la longitud del string que tiene el InternalBuffer (el SizeOf), 398 en el caso que nos ocupa (cada SHORT 2 bytes, LONG 4 bytes...)\n\nEntonces en la classe \"C STRUCTURE\" de harbour tiene que haber la forma de asignar la variable cTemp de nuevo al buffer.\n\nEn 16 bits lo hago asi:\n[code:2xbuy4kv]cTemp&#58;=WSAData&#58;Buffer \nrc&#58;=WSAStartup&#40;bin2i&#40;chr&#40;1&#41;+chr&#40;1&#41;&#41;,@cTemp&#41;\nWSAData&#58;Buffer&#58;=cTemp[/code:2xbuy4kv]\nYa que la data BUFFER es asignable (3ª línea), en 32 bits la data InternalBuffer es solo de lectura.\n\nPor lo que la solucion que me das no me puede solucionar el tema de la asignacion del buffer devuelto por la funcion....\n\nY eso que esta de \"WSAStartup\" es la primera de las muchas que uso para el tema de las comunicaciones multicast, en cuanto comienze a complicarse la cosa con estructuras dentro de estructuras no puedo andas con arrays de datos las tengo que manejar puras.\n\nMe quedan todavia WSACleanup, MemCopy, socket, setsockopt, getsockopt, htonl, htons, bind, inet_addr, WSAAsyncSelect, recv, recvfrom, send, sendto, etc...\n\nSupongo que si pudiera disponer de la clase de harbour que maneja las estructuras podriamos sacar algo....\n\nExiste un documento \"cstruct.txt\" en la distribucion de harbour 0.99.70 pero mi ingles no pasa de unos pocos vocablos.\nIndica que la clase tiene estas datas: acTypes, SizeOf, nId, InternalBuffer\nY estos métodos: Buffer([New],[lAdopt]), Value, DeValue([lAdopt]), Array, SayMembers(cPad), Init(aValues), Pointer([nNew],[lAdopt])\n\nRespecto al metodo Buffer([New],[lAdopt]) dice asi:\n[code:2xbuy4kv]Optionally SET the InternalBuffer to a new image, which will automatically\ncall the DeValue&#40;&#41; Method to reflect the change in Member Properties&#46; The\nlAdopt flag indicates memory pointed by nested pointers should be assigned\nto the resulting members, or should remain the responsability of caller&#46;[/code:2xbuy4kv]\n\n¿ Alguna idea ?','',0,'AIA=','2xbuy4kv',1,0,'',596,0,0),(32407,860,6,294,0,'201.250.193.107',1180018555,1,0,1,1,1,1,'','','Ricardo:\nSolucionaste el tema, ya que yo tengo el mismo problema, estoy tratando de migrar mi programa para facturacion con controladores fiscales y tengo un problemita con la libreria.\nDesde ya muchas gracias','',0,'AIA=','2dtgyq79',1,0,'',294,0,0),(32408,7104,6,73,0,'200.23.18.132',1180020737,1,0,1,1,1,0,'','slippter ajuste controles','tengo un dialogo con 2 folder, dentro de cada folder tengo un browse y entre los 2 folder tengo un splitter horizontal, al mover el splitter los folder se mueven bien, pero los browse dentro de los folders no se ajustan al tamaño deja un espacio en blanco, como puedo ajustar esos browse dentro de los folder si se mueve el splitter?\ntodo lo tengo definido desde recursos.\ngracias\nsalu2\npaco','',0,'AIA=','2bras24g',1,0,'',73,0,0),(32409,7068,7,840,0,'201.243.12.220',1180021063,1,0,1,1,1,1,'','SI !','Aja Biel asi Si m funciona con las ventanas m as sacado de apuros coneti un error tonto jeje <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  MUCHAS GRACIAS... pero esto funcionara para dialogos ?? trat de probarlo sin exito  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->  sabras si funciona  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'AIA=','2ixi40s1',1,0,'',840,0,0),(32410,6858,3,303,0,'72.199.41.171',1180022727,1,0,1,1,1,0,'','','Ollie,\n\nTry it without the comma.\n\nJames','',0,'AIA=','1w5hypnw',1,0,'',303,0,0),(32411,7101,3,2,0,'87.218.146.99',1180022796,1,0,1,1,1,1,'','','Ollie,\n\nHow are you placing the controls on the MdiChild ? Are you using a dialog on top of it ?','',0,'AIA=','3cdtay5p',1,0,'',2,0,0),(32412,7077,6,2,0,'87.218.146.99',1180023077,1,0,1,1,1,1,'','','Es una clase propia de xHarbour y lo idóneo sería que preguntases en el foro de soporte de xharbour, ya que no es algo que hallamos implementado en FiveTech\n\nDe todas formas vamos a revisarlo para ver si podemos ayudarte','',0,'AIA=','3491cdy8',1,0,'',2,0,0),(32413,7101,3,904,0,'196.25.255.250',1180023105,1,0,1,1,1,1,'','','Yes I am.','',0,'AIA=','11k6fvyg',1,0,'',904,0,0),(32414,6858,3,904,0,'196.25.255.210',1180023176,1,0,1,1,1,1,'','','nope.\n\nBut I overcame it by using an array:  {\"bill@ms.com\",\"help@ms.com\"}\n\nThanks for the guidance.','',0,'AIA=','1xkhryct',1,0,'',904,0,0),(32415,7077,6,2,0,'87.218.146.99',1180023634,1,0,1,1,1,1,'','','Prueba a llamar a:\n\nWSAData:Buffer( cNuevoBuffer )\n\nó\n\nWSAData:Buffer( cNuevoBuffer, .T. )\n\npero lo dicho, lo idóneo es que preguntes en xharbour, ya que si revisas el código de esa clase verás que no es \"estandard\"','',0,'AIA=','zmrmyhmr',1,0,'',2,0,0),(32416,7101,3,2,0,'87.218.146.99',1180023716,1,0,1,1,1,1,'','','Ollie,\n\nWhen you create the buttonbar, does it belong to the mdichild or to the dialog ? ( CLAUSE \"OF ...\" )','',0,'AIA=','hcr1gv03',1,0,'',2,0,0),(32417,7093,3,868,0,'219.64.121.60',1180023787,1,0,1,1,1,1,'','','i am using the binaries of xharbour  (not cvs) downloaded from xharbour.org.  (version 99.70).  Is fwh 7.5 compatible with these old binaries?','',0,'AIA=','2a1o8qc8',1,0,'',868,0,0),(32418,7093,3,2,0,'87.218.146.99',1180023913,1,0,1,1,1,1,'','','If those binaries are old, probably not','',0,'AIA=','31o2m71z',1,0,'',2,0,0),(32419,7105,6,36,0,'200.113.56.235',1180024786,1,0,1,1,1,1,'','compilar archivos C','Estimados\n\nEstoy tratando de modificar el menus.c que se encuentra en \nc:\\fwh\\source\\winapi, pero al anexarlo al la libreria \nfivehC.lib me arroja que no existen varias funciones\n\n[code:1z74mj5f]Compiling&#46;&#46;&#46;\nc&#58;\\borland\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32&#46;bc\nRMAKE 1&#46;5  Copyright &#40;c&#41; 1989-1995 Computer Associates International, Inc&#46;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_GETSUBMENU\' referenced from C&#58;\\FWH\\LIB\\FIVEH\nX&#46;LIB|MDICLIEN\nError&#58; Unresolved external \'_HB_FUN_DRAWMENUBAR\' referenced from C&#58;\\FWH\\LIB\\FIVE\nHX&#46;LIB|MDICLIEN[/code:1z74mj5f]\n\nlo estoy haciendo asi\n\nprimero saque el original menus.obj de fivehc.lib y lo respalde en un carpeta diferente\n\ntlib fivehc.lib *menus.c\n\nluego compile menus.c que se encuentra en c:\\fwh\\source\\winapi\\menus.c\n\n[code:1z74mj5f]bcc32&#46;exe -tWM -DHB_GUI -DHB_API_MACROS -DHB_STACK_MACROS -DHB_FM_STATISTICS_OFF -d -a8 -OS -O2 -5 -c MENUS&#46;C\n\nTLIB FIVEHC +- &#46;&#46;\\SOURCE\\WINAPI\\MENUS&#46;OBJ\n[/code:1z74mj5f]\n\ny si vuelvo anexar el menus.obj del original funciona sin ningun problema\n\n\nAl parecer le faltan funciones o algo estoy haciendo mal','',0,'AIA=','1z74mj5f',1,0,'',36,0,0),(32420,7106,3,103,0,'201.8.90.218',1180024972,1,0,1,1,1,1,'','COMBROWSE in FWH','Hi All,\n\n   Has anyone used COMBROWSE with the new versions of FWH? I have a version which does not work with the new versions of FWH. If any of you have this, please tell me.\n\nBest Regards,\n\nKleyber Derick','',0,'AIA=','a6tslnkw',1,0,'',103,0,0),(32421,7107,2,518,0,'189.170.73.165',1180025034,1,0,1,1,1,0,'','browse con arreglos','Hola,\n\nAlguien me pudiera decir como manipular un browse con un arreglo en lugar de dbf ? \n\nGracias','',0,'AIA=','2xdarslc',1,0,'',518,0,0),(32422,7105,6,2,0,'87.218.146.99',1180025221,1,0,1,1,1,1,'','','Patricio,\n\nComprueba si está la función GetSubMenu() en el fichero menus.c que has modificado','',0,'AIA=','fxdymoo2',1,0,'',2,0,0),(32423,7107,2,2,0,'87.218.146.99',1180025451,1,0,1,1,1,1,'','','Si te refieres a un array, puedes revisar samples/TestArr.prg','',0,'AIA=','2q48pfle',1,0,'',2,0,0),(32424,7105,6,36,0,'200.113.56.235',1180025638,1,0,1,1,1,1,'','','Gracias antonio por responder \n\nsi existe la funcion GetSubMenu\n\n[code:2cjy19br]CLIPPER GETSUBMENU&#40; PARAMS &#41;    // hMenu, nPos\n&#123;\n   _retnl&#40; &#40; LONG &#41; GetSubMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41; &#41; &#41;;\n&#125;\n[/code:2cjy19br]\n\na lo mejor son los parametros de la compilacion\n\nlo unico que agregue a este archivo(menus.c)\n[code:2cjy19br]\n#ifdef __HARBOUR__\n   CLIPPER MENUDRAWITEM&#40; PARAMS &#41; // &#40; pDrawItemStruct, cPrompt, lTop, hBitmap &#41;\n#else\n   CLIPPER MENUDRAWIT&#40; PARAMS &#41; // EM&#40; pDrawItemStruct, cPrompt, lTop, hBitmap &#41;\n#endif\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n   LPSTR szPrompt = _parc&#40; 2 &#41;;\n   BOOL bTab = bStrAt&#40; 9, szPrompt &#41;;\n   WORD wLen;\n   //BOOL bTop = _parl&#40; 3 &#41;;\n   HPEN hNormal;\n   HBRUSH hBrush;\n   LOGBRUSH lb;\n   RECT rct;\n   HBITMAP hBmp = &#40; HBITMAP &#41; _parnl&#40; 4 &#41;;\n\n   switch&#40; lpdis-&gt;itemAction &#41;\n   &#123;\n      case ODA_DRAWENTIRE&#58;\n      case ODA_SELECT&#58;\n           lb&#46;lbStyle = BS_SOLID;\n\n           lb&#46;lbColor = GetSysColor&#40; COLOR_MENU &#41;;\n           hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n           FillRect&#40; lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem, hBrush &#41;;\n           DeleteObject&#40; hBrush &#41;;\n\n		   //PATRICK\n		   SetBkColor&#40; lpdis-&gt;hDC, 8421504 &#41;;\n		   //FIN PATRICK\n[/code:2cjy19br]\n\nestoy probando de colocar un color al menu','',0,'AIA=','2cjy19br',1,0,'',36,0,0),(32425,7104,6,2,0,'87.218.146.99',1180025691,1,0,1,1,1,1,'','','Paco,\n\nLos browses estan en un diálogo cada uno, si ?\n\nLo que tendrías que hacer es cambiar las dimensiones del browse cuando el folder se redimensione. Prueba a usar oFolder:bResized = { || oBrowse:nWidth := oFolder:nWidth, oBrowse:nHeight := oFolder:nHeight - oFolder:nFdHeight }','',0,'AIA=','22g6s8wf',1,0,'',2,0,0),(32426,7105,6,2,0,'87.218.146.99',1180025867,1,0,1,1,1,1,'','','Patricio,\n\nCompila simplemente asi: \n\nbcc32 -c -Ipath_a_includes menus.c','',0,'AIA=','1w61ui7g',1,0,'',2,0,0),(32427,7097,6,2,0,'87.218.146.99',1180026014,1,0,1,1,1,1,'','','Usa oPrinter:CmSay( nRow, nCol,  cText ) para posicionar lo escrito por centímetros, así te funcionará igual en distintas impresoras (con distintas resoluciones)','',0,'AIA=','1mph9doc',1,0,'',2,0,0),(32428,7101,3,904,0,'198.54.202.194',1180026912,1,0,1,1,1,1,'','','[code:1wgedl5m]//Main application window&#58;\nDEFINE WINDOW Win_Main FROM 0, 0 TO 600, 800 PIXEL TITLE \'SubsPro\' MDI ICON oIcon MENU mainmenu&#40;&#41; //ICON FILENAME &quot;&#46;&#46;\\RESOURCE\\SUBSPRO&#46;BMP&quot; //BACKCOLOR aBackcolor ON RELEASE quitprog&#40;&#41;\n\n//Button Bar at top&#58;   \nDEFINE BUTTONBAR oMain_Toolbar OF Win_Main SIZE 70, 50 3D //  Microsoft Standard&#58; 24,26 3D bitmaps to be 18pix high by 19pix wide\n   DEFINE BUTTON of oMain_Toolbar PROMPT &quot;Subscribers&quot; TOP ACTION DBMAIN&#40;&#41; TOOLTIP &quot;Current / Active Subscribers&quot; RESOURCE &quot;LED_GREEN&quot;\n   DEFINE BUTTON of oMain_Toolbar PROMPT &quot;Prospective&quot; TOP ACTION DBPROS&#40;&#41; TOOLTIP &quot;Prospective Subscribers&quot; RESOURCE &quot;LED_YELLOW&quot;\n   DEFINE BUTTON of oMain_Toolbar PROMPT &quot;Free&quot;  TOP ACTION DBFREE&#40;&#41; TOOLTIP &quot;Voucher/Free Copies&quot; RESOURCE &quot;LED_RED&quot;\n   //  DEFINE BUTTON of oMain_Toolbar PROMPT &quot;Report&quot;  TOP ACTION makertf&#40;&#41; RESOURCE &quot;LETTER&quot; //report2&#40;&#41;  GROUP //puts a little space before this button\n   //  DEFINE BUTTON of oMain_Toolbar PROMPT &quot;Open DBFs&quot;  TOP ACTION opendbfs&#40;&#41; RESOURCE &quot;tools&quot;\n   DEFINE BUTTON of oMain_Toolbar PROMPT &quot;Exit&quot;  TOP ACTION quitprog&#40;&#41; TOOLTIP &quot;Exit&quot; RESOURCE &quot;exit&quot;\n   \n//MDICHILD\nDEFINE WINDOW Win_Dbmain TITLE &quot;Subscribers Database&quot; MDICHILD ICON oIcon //NOMINIMIZE NOMAXIMIZE //VSCROLL HSCROLL\n\n//Button bar of MDICHILD\nDEFINE BUTTONBAR oButton_Bar OF Win_Dbmain SIZE 40, 40 3D\n[/code:1wgedl5m]\n\nIs this what you need to know?','',0,'AIA=','1wgedl5m',1,0,'',904,0,0),(32429,7101,3,2,0,'87.218.146.99',1180027132,1,0,1,1,1,1,'','','Ollie,\n\nThe buttonbar should belong to the dialog:\n\n//MDICHILD\nDEFINE WINDOW Win_Dbmain TITLE \"Subscribers Database\" MDICHILD ICON oIcon //NOMINIMIZE NOMAXIMIZE //VSCROLL HSCROLL\n\n... create the dialog oDlg ...\n\n//Button bar\nDEFINE BUTTONBAR oButton_Bar [color=red:2i2j3e1s]OF oDlg[/color:2i2j3e1s] SIZE 40, 40 3D','',0,'Ag==','2i2j3e1s',1,0,'',2,0,0),(32430,7105,6,36,0,'200.113.56.235',1180027813,1,0,1,1,1,1,'','','igual el error\n\nestoy viendo la libreria fivehc.lib\n\ntlib fivehc,fivehc.prg\n\n[code:qxyzttda]__WNDPRO	size = 149\n	_HB_FUN_WININSPECT                __DbgWndProc\n	__WndProc                         _bDbgActive\n	_bDbgBreak                      \n\nmenus   	size = 1874\n	APPENDMENU                        CHECKMENUI\n	CREATEMENU                        CREATEPOPU\n	DESTROYMEN                        DRAWMENUBA\n	ENABLEMENU                        GETDRAWITE\n	GETDRAWMEN                        GETMEAITEM\n	GETMENUSTA                        GETMENUSTR\n	GETMITEMCO                        GETMITEMID\n	GETSUBMENU                        GETSYSTEMM\n	HILITEMENU                        INSERTMENU\n	ISMENU                            LOADMENU\n	MENUDRAWIT                        MENUMEASUR\n	MODIFYMENU                        REMOVEMENU\n	SETMENU                           TRACKPOPUP\n[/code:qxyzttda]\n\n\ny esta es de la original, hay diferencia??\n\n[code:qxyzttda]MENUS   	size = 1801\n	_HB_FUN_APPENDMENU                _HB_FUN_CHECKMENUITEM\n	_HB_FUN_CREATEMENU                _HB_FUN_CREATEPOPUPMENU\n	_HB_FUN_DESTROYMENU               _HB_FUN_DRAWMENUBAR\n	_HB_FUN_ENABLEMENUITEM            _HB_FUN_GETDRAWITEM\n	_HB_FUN_GETDRAWMENU               _HB_FUN_GETMEAITEM\n	_HB_FUN_GETMENUSTATE              _HB_FUN_GETMENUSTRING\n	_HB_FUN_GETMITEMCOUNT             _HB_FUN_GETMITEMID\n	_HB_FUN_GETSUBMENU                _HB_FUN_GETSYSTEMMENU\n	_HB_FUN_HILITEMENUITEM            _HB_FUN_INSERTMENU\n	_HB_FUN_ISMENU                    _HB_FUN_LOADMENU\n	_HB_FUN_MENUDRAWITEM              _HB_FUN_MENUMEASUREITEM\n	_HB_FUN_MODIFYMENU                _HB_FUN_REMOVEMENU\n	_HB_FUN_SETMENU                   _HB_FUN_TRACKPOPUP\n[/code:qxyzttda]\n\ny existe, que raro.. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'AIA=','qxyzttda',1,0,'',36,0,0),(32431,7105,6,2,0,'87.218.146.99',1180028131,1,0,1,1,1,1,'','','Patricio,\n\nFaltan los prefijos (_HB_FUN_) de todas las funciones <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nTienes que llamar a fwh/tools/clp2harb.exe menus.c menus2.c y luego compilar menus2.c','',0,'AIA=','2bt1xf71',1,0,'',2,0,0),(32432,7101,3,904,0,'198.54.202.250',1180029277,1,0,1,1,1,1,'','','I get :  System Error: Cannot create a top-level child window.\n\nLets recap:\n//Application\'s main window - Win_main\nDEFINE WINDOW Win_Main FROM 0, 0 TO 600, 800 PIXEL TITLE \'SubsPro\' MDI ICON oIcon MENU mainmenu() ON RELEASE quitprog()\n\n//Buttonbar of Win_main\nDEFINE BUTTONBAR oMain_Toolbar OF Win_Main SIZE 70, 50 3D \n\n//One of the buttons creates a MDI Child window:  Win_Dbmain\nDEFINE WINDOW Win_Dbmain TITLE \"Subscribers Database\" MDICHILD ICON oIcon\n\n//I define its button bar\nDEFINE BUTTONBAR oButton_Bar OF Win_Dbmain SIZE 40, 40 3D\n\n//I then define the Dlg - Dlg_Dbmain (it has folders/Tabs)\nDEFINE DIALOG Dlg_Dbmain RESOURCE \"DBMAIN\" OF Win_Dbmain  ICON oIcon\n*****\n//These dlgs and windows are activated as follows (so that they behave \"as one\"\n\nACTIVATE DIALOG Dlg_Dbmain NOWAIT ;  // It has to be NonModal \n            ON INIT ( Dlg_Dbmain:Move( 0, 0 ) ) ;\n            VALID  ( Win_Dbmain:End(), .T. )\n\n   ACTIVATE WINDOW Win_Dbmain MAXIMIZED ;\n            ON RESIZE ( WNDSETSIZE( Dlg_Dbmain, WNDHEIGHT( Win_Dbmain ), WNDWIDTH( Win_Dbmain ) ) ) ;\n            VALID ( IF( save_MAIN_data(), ( close_tables(), Win_Dbmain := NIL, .T. ), .F. ) )\n\n\nIf I remove the line:\nDEFINE BUTTONBAR oButton_Bar OF Win_Dbmain SIZE 40, 40 3D\nand move it to the line ***** above \nDEFINE BUTTONBAR oButton_Bar OF Dlg_Dbmain SIZE 40, 40 3D\nI get :  System Error: Cannot create a top-level child window.\n\nI have a better screen shot with annotations that explains it nicely:\n\n<!-- m --><a class=\"postlink\" href=\"http://img120.imageshack.us/my.php?image=screenshotsr5.jpg\">http://img120.imageshack.us/my.php?imag ... hotsr5.jpg</a><!-- m -->','',0,'AIA=','1xiluam8',1,0,'',904,0,0),(32433,7086,2,890,0,'200.24.110.196',1180029999,1,0,1,1,1,0,'','Re: Puede ser asi....','[quote=&quot;leandro&quot;:2chx72l1]Amigo mira lo puedes hacer asi...\n\n[code:2chx72l1]\n\nDEFINE DIALOG ventana RESOURCE &quot;OBCAT21&quot; \n&#46;&#46;&#46;&#46;&#46;\n\nREDEFINE SAY oSay1 VAR sayrec ID 20 OF ventana\nREDEFINE SAY oSay2 VAR saytre  ID 21 OF ventana\n\n&#46;&#46;&#46;&#46;\n\n*Para ir actualizando a medida que te desplazas sobre el browse\n*haces lo siguiente&#58;\n\nREDEFINE LISTBOX lisbasAM VAR este;\n		 FIELDS HFPRO-&gt;HTcodigo,HFPRO-&gt;HTdigive,HFPRO-&gt;HTnombre;\n                 FIELDSIZES 78,25,320;\n	 ID 110 OF ventana;\n	 HEADERS &quot;Código&quot;,&quot;D/V&quot;,&quot;Nombre&quot;;\n                 ON CHANGE &#40;oSay2&#58;SetText&#40;RecCount&#40;&#41;&#41;,oSay1&#58;SetText&#40;RecNo&#40;&#41;&#41;&#41;\n\n\nACTIVATR DIALOG&#46;&#46;&#46;&#46;&#46;&#46;\n\n[/code:2chx72l1]\n\nTambien puedes colocar estas clausulas en una funcion y llamarla despues de grabar el registro en la base de datos\n\n\n[code:2chx72l1]\nFUNCTION refrescar&#40;&#41;\noSay2&#58;SetText&#40;RecCount&#40;&#41;&#41;\noSay1&#58;SetText&#40;RecNo&#40;&#41;&#41;\n\n[/code:2chx72l1]\nEspero te sirva..\n\nPtda: Que pena la demora  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->[/quote:2chx72l1]\n\nAmigo \nSin pena, gracias por tu enseñanza lo pondre en practica y te respondere por este medio.\n\nCordialmente\n\nJairo Barbosa','',0,'gIA=','2chx72l1',1,0,'',890,0,0),(32434,6858,3,904,0,'198.54.202.250',1180030233,1,0,1,1,1,1,'','','Actually, it didn\'t work.  I used:\n\noMail:aRecipients := {\"ollie@theoasis.co.za\",\"support@theoasis.co.za\"}\n\nAnd it lets me click Send in Outlook (lFromUser = .T.)\n\nbut it immediatley reports this message in my Inbox:\n\n\n[quote:29ncqgrs]Undeliverable: \nYour message did not reach some or all of the intended recipients.\n\n      Subject:	SendEmail Test \n      Sent:	2007/05/24 20:09\n\nThe following recipient(s) could not be reached:\n\n      <!-- e --><a href=\"mailto:\'ollie@theoasis.co.za\">\'ollie@theoasis.co.za</a><!-- e -->\' on 2007/05/24 20:09\n            None of your e-mail accounts could send to this recipient.\n\n      <!-- e --><a href=\"mailto:\'support@theoasis.co.za\">\'support@theoasis.co.za</a><!-- e -->\' on 2007/05/24 20:09\n            None of your e-mail accounts could send to this recipient.[/quote:29ncqgrs]\n\nso I\'m back where I started - please help.','',0,'gA==','29ncqgrs',1,0,'',904,0,0),(32435,7108,3,303,0,'72.199.41.171',1180031270,1,0,1,1,1,0,'','Index problem with ver 7.05','I am getting an undefined function error when the function is in an index definition. Here is the index definition:\n\nref + strzero( recno(), 7)\n\n\"ref\" is a fieldname.\n\nWhen using TDatabase\'s addIndex() method I get this error:\n\n[code:iaj4hc5x]Application\n===========\n   Path and name&#58; C&#58;\\Program Files\\TP7a\\tp7&#46;exe &#40;32 bits&#41;\n   Size&#58; 4,122,112 bytes\n   Time from start&#58; 0 hours 0 mins 9 secs \n   Error occurred at&#58; 05/24/2007, 10&#58;10&#58;03\n   Error description&#58; Error BASE/1001  Undefined function&#58; RECNO\n\nStack Calls\n===========\n   Called from&#58;  =&gt; RECNO&#40;0&#41;\n   Called from&#58;  =&gt; ORDLISTADD&#40;0&#41;\n   Called from&#58; DATABASE&#46;PRG =&gt; &#40;b&#41;TDATABASE&#58;TDATABASE&#40;0&#41;[/code:iaj4hc5x]\nThis index was working in previous versions without problems.\n\nHere is the sample test program I am using:\n\n[code:iaj4hc5x]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local words\n\n   use words new shared\n   database words\n   words&#58;addIndex&#40;&quot;words&quot;&#41;  // crashes here\n\n   msgInfo&#40; &quot;OK&quot; &#41;\n\nreturn nil[/code:iaj4hc5x]\n\nI am using FWH and xHarbour with the Borland compiler and NTX indexes. I don\'t know if this is a FWH or a xHarbour issue.\n\nAnyone else having a similar problem?\n\nJames','',0,'AIA=','iaj4hc5x',1,0,'',303,0,0),(32436,3995,3,904,0,'196.25.255.218',1180033141,1,0,1,1,1,1,'','','Hi Evans,\n\nDoes the SEE32 library support sending HTML as well?','',0,'AIA=','3s120vdg',1,0,'',904,0,0),(32437,6858,3,303,0,'72.199.41.171',1180033208,1,0,1,1,1,0,'','','Ollie,\n\nThere seems to be a bug in the MAPI mail.ch include file (ver 7.05 anyway) with the TO clause preprocessing. Instead try it this way. The first address shows up in the TO field and the rest in the CC field.\n\nNote that you need to have a window defined for MAPI to work. Note also that each recipient\'s address must be in it\'s own array.\n\nJames\n\n[code:1pdjej6e]// Purpose&#58; test multiple recipients\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;mail&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd\n   define window oWnd\n   activate window oWnd on init mailit&#40;&#41;\nreturn nil\n\nfunction mailit&#40;&#41;\n   local oMail\n\n        define mail oMail ;\n           ;//to &quot;jbott@compuserve&#46;com&quot;,&quot;john@hotmail&#46;com&quot;,&quot;sharon@hotmail&#46;com&quot; ;\n           subject &quot;Test Message&quot;;\n           from user\n\n        oMail&#58;aRecipients&#58;=&#123;&#123;&quot;jbott@compuserve&#46;com&quot;&#125;,&#123;&quot;john@hotmail&#46;com&quot;&#125;,&#123;&quot;sharon@hotmail&#46;com&quot;&#125;&#125;\n\n         activate mail oMail\nreturn nil[/code:1pdjej6e]','',0,'AIA=','1pdjej6e',1,0,'',303,0,0),(32438,7109,6,774,0,'164.77.54.153',1180033215,1,0,1,1,1,1,'','ADS v/s  ADO.. cuales son sus diferencias ????','Alguien me podria orientar sobre el uso de ADS o ADO \ncual es mejor&lt;...::::\n\nGRACIAS','',0,'AIA=','11puzuxh',1,0,'',774,0,0),(32439,7099,3,868,0,'219.64.121.60',1180033461,1,0,1,1,1,1,'','','Where from can I download the TWord class please?','',0,'AIA=','33pwmokg',1,0,'',868,0,0),(32440,6858,3,904,0,'196.25.255.214',1180034849,1,0,1,1,1,1,'','','Excellent - Thanks.','',0,'AIA=','2zoyxdyf',1,0,'',904,0,0),(32441,7110,3,308,0,'84.148.17.111',1180037949,1,0,1,1,1,0,'','Error on Program as Service with ODBC Connection','Dear Fivewinners,\n\nI installed a program with ODBC connection as a service.  \n\nThe program normally is started, all functions.  I start comes it as a service the error message\n\nFiveODBC Error Message\nSQLDriverConnect error from TODbc:New() [#-1]\n\nI have testet with and without   ServiceProcess(1)\n\nAny Ideas ?\n\nRegards, Norbert','',0,'','339v9l1f',1,0,'',308,0,0),(32442,7101,3,2,0,'87.218.146.99',1180037957,1,0,1,1,1,1,'','','Ollie,\n\nDo it this way:\n[code:3lggr7ga]\nACTIVATE DIALOG Dlg_Dbmain NOWAIT ; // It has to be NonModal\nON INIT &#40; Dlg_Dbmain&#58;Move&#40; 0, 0 &#41;, BuildButtonBar&#40; Dlg_Dbmain &#41; &#41; ;\nVALID &#40; Win_Dbmain&#58;End&#40;&#41;, &#46;T&#46; &#41;\n\nACTIVATE WINDOW Win_Dbmain MAXIMIZED ;\nON RESIZE &#40; WNDSETSIZE&#40; Dlg_Dbmain, WNDHEIGHT&#40; Win_Dbmain &#41;, WNDWIDTH&#40; Win_Dbmain &#41; &#41; &#41; ;\nVALID &#40; IF&#40; save_MAIN_data&#40;&#41;, &#40; close_tables&#40;&#41;, Win_Dbmain &#58;= NIL, &#46;T&#46; &#41;, &#46;F&#46; &#41; &#41;\n\n&#46;&#46;&#46;\n\nfunction BuildButtonBar&#40; oDlg &#41;\n\n   local oButton_Bar\n\n   DEFINE BUTTONBAR oButton_Bar OF oDlg SIZE 40, 40 3D\n\n   &#46;&#46;&#46; add the buttons here\n\nreturn nil\n[/code:3lggr7ga]','',0,'AIA=','3lggr7ga',1,0,'',2,0,0),(32443,7108,3,2,0,'87.218.146.99',1180038095,1,0,1,1,1,1,'','','James,\n\nPlease download xharbour again as it had an important error that has been fixed two days ago:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'AIA=','2ydlg9su',1,0,'',2,0,0),(32444,7105,6,36,0,'200.113.56.235',1180038191,1,0,1,1,1,1,'','','No quiere nada con migo el menus.c <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\n[code:2usabd0o]C&#58;\\FWH\\SOURCE\\WINAPI&gt;\\fwh\\tools\\clp2harb menus&#46;c menus2&#46;c\n\nC&#58;\\FWH\\SOURCE\\WINAPI&gt;bcc32 -c -IC&#58;\\Borland\\BCC55\\Include;c&#58;\\harbour\\include menu\ns2&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nmenus2&#46;c&#58;\nWarning W8070 menus2&#46;c 24&#58; Function should return a value in function HB_FUNC\nWarning W8057 menus2&#46;c 24&#58; Parameter \'CREATEMENU\' is never used in function HB_F\nUNC\nError E2238 menus2&#46;c 33&#58; Multiple declaration for \'HB_FUNC\'\nError E2344 menus2&#46;c 21&#58; Earlier declaration of \'HB_FUNC\'\nWarning W8070 menus2&#46;c 35&#58; Function should return a value in function HB_FUNC\nWarning W8057 menus2&#46;c 35&#58; Parameter \'CREATEPOPU\' is never used in function HB_F\nUNC\nError E2238 menus2&#46;c 40&#58; Multiple declaration for \'HB_FUNC\'\nError E2344 menus2&#46;c 31&#58; Earlier declaration of \'HB_FUNC\'\nWarning W8070 menus2&#46;c 43&#58; Function should return a value in function HB_FUNC\nWarning W8057 menus2&#46;c 43&#58; Parameter \'TRACKPOPUP\' is never used in function HB_F\nUNC\nError E2238 menus2&#46;c 52&#58; Multiple declaration for \'HB_FUNC\'\nError E2344 menus2&#46;c 39&#58; Earlier declaration of \'HB_FUNC\'\nWarning W8070 menus2&#46;c 54&#58; Function should return a value in function HB_FUNC\nWarning W8057 menus2&#46;c 54&#58; Parameter \'ENABLEMENU\' is never used in function HB_F[/code:2usabd0o]','',0,'AIA=','2usabd0o',1,0,'',36,0,0),(32445,7105,6,2,0,'87.218.146.99',1180038412,1,0,1,1,1,1,'','','Patricio,\n\nHas modificado los includes que lleva menus.c al principio ?','',0,'AIA=','35xmcayv',1,0,'',2,0,0),(32446,7111,3,904,0,'196.25.255.195',1180038974,1,0,1,1,1,1,'','HTML with TMAIL','I am attaching an HTML file with TMAIL and no body text. \n\nThis allows me to send an HTML formatted email.\n\nIf I put set oMail:lFromUser = .T.  I can \'preview\' and hit send and it looks great.\n\nIf I put set oMail:lFromUser = .F.   The HTML file shows as an attachment and not in the body.\n\nHow can I fix this?','',0,'AIA=','v2q47aom',1,0,'',904,0,0),(32447,7109,6,138,0,'194.213.38.210',1180039475,1,0,1,1,1,1,'','','Pues seria el precio, por cierto, ADS tambien puede ser accesado por ADO, porque es un servidor de base de datos cliente / servidor, como puede ser un MySQL, SQL Server, etc.\n\nBasicamente nosotros recomendamos ADS cuando el usuario ya tiene un programa hecho en Clipper o Harbour, y tiene problemas por el volumne de informacion que maneja. ADS tiene la ventaja en que la implementacion es super rapida, usualmente en 2 dias estas funcionando, y funciona como un SQL comun y corriente, con la ventaja que al soportar los 2 modos de acceso, por XBASE o por SQL, puede convivir con otros desarrollos \n\nCon ADO requieres re hacer todo el acceso a datos, cosa que por lo menos te lleva 6 meses, si lo pones sobre la balanza, puedes tener la solucion cara pero inmediata (ADS), o la menos cara, pero que se tomara su tiempo en rehacer el programa.\n\nTengo casos de clientes que se han llevado 2 años en pasar un programa hecho en DBFs a un SQL, el que menos tiempo se ha llevado se como como 8 meses en hacerlo.','',0,'AIA=','9bbgt5ha',1,0,'',138,0,0),(32448,3995,3,138,0,'194.213.38.210',1180040107,1,0,1,1,1,1,'','','Funcky is the way to go, support everything, authentication, htm support, and e-mail existing routines.\n\nA little pricy, but worth the price. \n\n<!-- w --><a class=\"postlink\" href=\"http://www.funcky.com\">www.funcky.com</a><!-- w -->','',0,'AIA=','1f1knxp9',1,0,'',138,0,0),(32449,7101,3,904,0,'198.54.202.250',1180041043,1,0,1,1,1,1,'','','Excellent !!\n\nThank you.','',0,'AIA=','1i6pqun2',1,0,'',904,0,0),(32450,3995,3,904,0,'198.54.202.214',1180041748,1,0,1,1,1,1,'','','Ok, dumb question - which one?  for C++ for Xbase++ ?','',0,'AIA=','26pr0cr9',1,0,'',904,0,0),(32451,7105,6,36,0,'200.113.56.235',1180047059,1,0,1,1,1,1,'','','Antonio, para nada, es primera vez que le hecho una mirada al la carpeta winapi, siempre he metido mano a las carpeta clases','',0,'AIA=','1l6w9j48',1,0,'',36,0,0),(32452,7108,3,303,0,'72.199.41.171',1180048867,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Please download xharbour again as it had an important error that has been fixed two days ago: \n\nYou are a lifesaver! This was giving me fits, and I am on a tight deadline. That fixed the problem.\n\nThanks so much,\nJames','',0,'AIA=','xpnj62mq',1,0,'',303,0,0),(32453,7070,6,376,0,'190.42.34.108',1180051765,1,0,1,1,1,1,'','','Antonio\n\n¿Cual es la configuraciòn por defecto?\n\n[quote=&quot;Antonio Linares&quot;:2mrii4qv]Carlos,\n\nSólo usamos -c y nada más, asi que dejamos que el compilador use la configuración por defecto[/quote:2mrii4qv]','',0,'gA==','2mrii4qv',1,0,'',376,0,0),(32454,7070,6,2,0,'87.218.146.99',1180074465,1,0,1,1,1,1,'','','Armando,\n\nbcc32 -c -Ic:\\xharbour\\include;c:\\FWH\\include modulo.c','',0,'gA==','3npr3z3i',1,0,'',2,0,0),(32455,7105,6,2,0,'87.218.146.99',1180074529,1,0,1,1,1,1,'','','Patricio,\n\nDinos exactamente que código quieres incluir en menus.c y lo compilamos aqui y te enviamos el OBJ','',0,'gA==','1tgguvxc',1,0,'',2,0,0),(32456,7068,7,456,0,'217.127.39.57',1180079523,1,0,1,1,1,1,'','','Pues no se si para dialogos funciona, aunque supongo que si defines el dialogo sin caption debiera funcionar.\n\nSTYLE WS_POPUP|DS_MODALFRAME|WS_SYSMENU|WS_VISIBLE\n\nNo lo he probado.','',0,'gA==','2t8jvfw9',1,0,'',456,0,0),(32457,6093,3,446,0,'151.32.160.105',1180081321,1,0,1,1,1,0,'','SMTP session aborting','Yes, I\'m able to send HTML, but I modified another little piece of code here\nin OnRead() method\n\n[code:1bcdrc60]\nIf ! Empty&#40; &#58;&#58;cHTML &#41;  // RRG 29&#46;05&#46;2002 Send as HTML sytle email &#40;Cambios para enviar correo como html&#41;\n    oSocket&#58;SendData&#40; CRLF + &quot;--NextPart&quot; + CRLF + ;\n                  &quot;Content-Type&#58; text/html; &quot; +;\n                  \'charset=&quot;iso-8859-1&quot;\' + CRLF + ;\n                  /* &quot;Content-Transfer-Encoding&#58; quoted-printable&quot; + CRLF +*/ CRLF + ;\n                  FormHtml&#40; &#58;&#58;cHTML, &#58;&#58;cSubject, &#58;&#58;cMailer &#41; + CRLF &#41;\n                  // r&#46;c&#46; rem&#58; &quot;quoted-printable&quot; above - 28/03/2007\n            Endif\n[/code:1bcdrc60]\n\nregards\nRoberto Chiaiese','',0,'AIA=','1bcdrc60',1,0,'',446,0,0),(32458,3995,3,138,0,'194.213.38.210',1180081884,1,0,1,1,1,1,'','','Ollie:\n\nLook for the COM component (Delphi, VB, BC++) works via OLE,  here a sample:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/funckydemo.zip\">http://www.google.d2g.com/funckydemo.zip</a><!-- m -->\n\nRegards\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'AIA=','14tqqurj',1,0,'',138,0,0),(32459,7112,6,838,0,'80.34.222.112',1180082965,1,0,1,1,1,0,'','Diferencias Tsmtp y blat','Hola amigos\n\nEstoy enviando email mediante tsmtp, y mediante blat, con adjuntos y con autentificación.\n\nExtiste alguna diferencia entre una forma y otra?, ya sea de seguridad, de rapidez, etc. ya que aparentemente yo no noto nada entre una y otra\n\nSaludos\n\nJose Luis','',0,'AIA=','12fi1p7f',1,0,'',838,0,0),(32460,7113,3,20,0,'82.49.177.251',1180083349,1,0,1,1,1,0,'','Combobox in toolbar','I would want to insert a combobox in the toolbar between the buttons.\nHow I can make?\n\nThanks in advance.\nPier Luigi','',0,'AIA=','2w3wlaja',1,0,'',20,0,0),(32461,7113,3,6,0,'82.59.188.169',1180089901,1,0,1,1,1,1,'','Re: Combobox in toolbar','Try\n\n[code:167busgc]@ row, col COMBOBOX &#46;&#46;&#46; OF oBar[/code:167busgc]\n\nEMG','',0,'AIA=','167busgc',1,0,'',6,0,0),(32462,7114,6,533,0,'83.55.212.42',1180090486,1,0,1,1,1,0,'','Una de XBrowse ( menus )','Buenas Foro!, ¿teneis un ejemplo de como asignarle un menu flotante al xbrowse cuando pulsamos con el boton derecho del raton sobre el?\n\nHe estado probando a hacerlo como en la propia clase, el menu que sale en las cabeceras, pero no lo consigo.\n\nMuchas gracias.','',0,'AIA=','rzn48atk',1,0,'',533,0,0),(32463,7115,6,596,0,'194.224.177.206',1180091261,1,0,1,1,1,1,'','Salvar a disco graficos de un RC/EXE en tiempo de ejecucion','Es decir:\nTengo graficos en un RC, compilo con su pertinente PRGs y una vez todo ello cuando ejecute el programa salvar a disco algunos graficos.\n\nEl activex con internet explorer solo admite una URL o un fichero en disco.\nQue yo sepa no puedo darle de parametro una variable string de memoria con el contenido del HTML.\n\nEntonces para no tener el directorio de la aplicacion lleno de jpgs, bmps o gifs quiero tenerlos en el RC (es decir en el EXE).\nCuando quiera salvo a disco un HTML y los graficos que le hagan falta, presento la \"pagina web\" y borro todos esos temporales.\n\n¿ Me he explicado o no ?\n\nGracias a todos...','',0,'AIA=','3qwovu91',1,0,'',596,0,0),(32464,6093,3,904,0,'198.54.202.194',1180091540,1,0,1,1,1,1,'','','Would you mind emailing me the TMAIL class with all the changes you have made?\n\n<!-- e --><a href=\"mailto:ollie@theoasis.co.za\">ollie@theoasis.co.za</a><!-- e -->','',0,'AIA=','3l14wj9o',1,0,'',904,0,0),(32465,3995,3,904,0,'198.54.202.210',1180091568,1,0,1,1,1,1,'','','ok','',0,'AIA=','fngwynbp',1,0,'',904,0,0),(32466,7072,6,63,0,'83.49.110.35',1180092194,1,0,1,1,1,0,'','','Fernando:\nCuando escaneas un documento, ¿le asignas el nombre manualmente o lo hace el propio programa?.  Quiero decir: Si escaneas un documento como \"Img0001.jpg\", luego tienes que asignar ese nombre manualmente a la base de datos, o lo hace el propio programa?  \nLo pregunto porque para muchos cientos de documentos, la asignación manual puede ser engorrosa y sujeta a errores.  Y por otra parte, no sé si el programa de captura que viene con el escanner te permite ajustar el nombre del documento desde una aplicación externa.\nRafael','',0,'AIA=','2c4uiou3',1,0,'',63,0,0),(32467,7115,6,456,0,'217.127.39.57',1180092377,1,0,1,1,1,1,'','','Hola Jose Mª, \n quizas te seria mas facil grabar los graficos en un campo memo de una tabla, y recuperarlos cuando te hagan falta. \n\n[code:2o1rzy4m]\n//Grabar\nCampoMemo&#58;=MemoRead&#40;&quot;grafico&#46;jpg&quot;&#41;\n//Recuperar\nMemoWrit&#40;&quot;grafico&#46;jpg&quot;,CampoMemo&#41;\n\n[/code:2o1rzy4m]\nEspero que te valga  como idea.','',0,'AIA=','2o1rzy4m',1,0,'',456,0,0),(32468,7116,3,300,0,'201.67.95.95',1180093991,1,0,1,1,1,0,'','Copy File','Hi,\nHow i can copy files to another folder like a dos COPY *.DBF C:\\BACKUP?\n\nThanks.','',0,'AIA=','2koutw1m',1,0,'',300,0,0),(32469,7115,6,596,0,'194.224.177.206',1180095059,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:285166fy]...quizas te seria mas facil grabar los graficos en un campo memo de una tabla, y recuperarlos cuando te hagan falta...[/quote:285166fy]\nYa pero entonces tengo un EXE y un DBF... si me lo borran ya esta el lio.\nEs para una pequeña utilidad que pretendo que solo sea un fichero EXE aunque pese 2 o 3 megas.\n\nSaludos.','',0,'gA==','285166fy',1,0,'',596,0,0),(32470,7072,6,596,0,'194.224.177.206',1180095490,1,0,1,1,1,1,'','','Felicidades... que chulo. \nLa presentacion simple, elegante y muy bien dimensionada. \nMi problema es ese, que tengo el gusto en el cul... y las ventanitas NO las diseño bien.\n\nPues en mi oficina estan alucinados con las cosas que hago con FW/FWH...\n\nY eso que lo que hago NO son altas, bajas, modi..... etc. Son programas (herramientas) de pruebas de sistemas de navegacion aerea.\n\nSabez que volais mas seguros gracias a xBase  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','23y1u3ix',1,0,'',596,0,0),(32471,7116,3,308,0,'84.148.9.217',1180097881,1,0,1,1,1,0,'','Re: Copy File','[quote=&quot;Wanderson&quot;:k8k069uc]Hi,\nHow i can copy files to another folder like a dos COPY *.DBF C:\\BACKUP?\n\nThanks.[/quote:k8k069uc]\n\nuse copyfile(cfrom, cto, lShowDialog)\n\nRegards, Norbert','',0,'gA==','k8k069uc',1,0,'',308,0,0),(32472,7099,3,31,0,'195.182.84.105',1180098134,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:37f2gkjm]Where from can I download the TWord class please?[/quote:37f2gkjm]\n\n  <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2503&amp;highlight=tword\">http://fivetechsoft.com/forums/viewtopi ... ight=tword</a><!-- m -->','',0,'gA==','37f2gkjm',1,0,'',31,0,0),(32473,7115,6,456,0,'217.127.39.57',1180102698,1,0,1,1,1,1,'','','Pues entonces prueba con la clase tImage.\nLos siguientes metodos te permiten recuperar desde recurso, y grabara a disco.\n\nLoadImage( cResName, cBmpFile )\nSaveImage( cFile, nFormat )\n\nEsto con BMPs en recursos te va a funcionar, para JPG lo dudo.\n\nSi te a servido de ayuda, apuntate q debes un  pintxo.  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Un abrazo.','',0,'gA==','12yo5rl5',1,0,'',456,0,0),(32474,7086,2,890,0,'200.24.110.196',1180103098,1,0,1,1,1,0,'','Re: Puede ser asi....','[quote=&quot;jaba&quot;:1gdoency][quote=&quot;leandro&quot;:1gdoency]Amigo mira lo puedes hacer asi...\n\n[code:1gdoency]\n\nDEFINE DIALOG ventana RESOURCE &quot;OBCAT21&quot; \n&#46;&#46;&#46;&#46;&#46;\n\nREDEFINE SAY oSay1 VAR sayrec ID 20 OF ventana\nREDEFINE SAY oSay2 VAR saytre  ID 21 OF ventana\n\n&#46;&#46;&#46;&#46;\n\n*Para ir actualizando a medida que te desplazas sobre el browse\n*haces lo siguiente&#58;\n\nREDEFINE LISTBOX lisbasAM VAR este;\n		 FIELDS HFPRO-&gt;HTcodigo,HFPRO-&gt;HTdigive,HFPRO-&gt;HTnombre;\n                 FIELDSIZES 78,25,320;\n	 ID 110 OF ventana;\n	 HEADERS &quot;Código&quot;,&quot;D/V&quot;,&quot;Nombre&quot;;\n                 ON CHANGE &#40;oSay2&#58;SetText&#40;RecCount&#40;&#41;&#41;,oSay1&#58;SetText&#40;RecNo&#40;&#41;&#41;&#41;\n\n\nACTIVATR DIALOG&#46;&#46;&#46;&#46;&#46;&#46;\n\n[/code:1gdoency]\n\nTambien puedes colocar estas clausulas en una funcion y llamarla despues de grabar el registro en la base de datos\n\n\n[code:1gdoency]\nFUNCTION refrescar&#40;&#41;\noSay2&#58;SetText&#40;RecCount&#40;&#41;&#41;\noSay1&#58;SetText&#40;RecNo&#40;&#41;&#41;\n\n[/code:1gdoency]\nEspero te sirva..\n\nPtda: Que pena la demora  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->[/quote:1gdoency]\n\nAmigo \nSin pena, gracias por tu enseñanza lo pondre en practica y te respondere por este medio.\n\nCordialmente\n\nJairo Barbosa[/quote:1gdoency]\n\nLeandro\n\nFunciona perfectamente Ok Agradecido\n\nJairo Barbosa','',0,'gIA=','1gdoency',1,0,'',890,0,0),(32475,7105,6,36,0,'200.113.56.235',1180104144,1,0,1,1,1,1,'','','Gracias antonio por tu interes en ayudarme \n\npero he solucionado el problema\n\nresulta que en c:\\fwh\\source\\winapi\\menus.c tiene estos include\n\n[code:1upl0zk0]#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n[/code:1upl0zk0]\n\nlo he solucionado anteponiendo esto\n[code:1upl0zk0]\n#include &quot;hbapi&#46;h&quot;\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;[/code:1upl0zk0]\n\na lo mejor era obvio colocarlo este include, pero como sabes estoy iniciandome en esto de C\n\nmuchas gracias por la ayuda...\n\npd. siempre se aprende algo nuevo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1upl0zk0',1,0,'',36,0,0),(32476,7113,3,20,0,'82.49.177.251',1180104190,1,0,1,1,1,0,'','Re: Combobox in toolbar','I write\n\n[code:32hfblte]\n&#46;&#46;&#46;\n\noToolBar&#58;AddButton&#40; &#123; || MsgInfo&#40;&#41; &#125;, nil, nil &#41;   // 1\noToolBar&#58;AddButton&#40; &#123; || MsgInfo&#40;&#41; &#125;, nil, nil &#41;   // 2\n\n@ row, col COMBOBOX &#46;&#46;&#46; OF oToolBar\n\noToolBar&#58;AddButton&#40; &#123; || MsgInfo&#40;&#41; &#125;, nil, nil &#41;  // 3\noToolBar&#58;AddButton&#40; &#123; || MsgInfo&#40;&#41; &#125;, nil, nil &#41;  // 4\n\n&#46;&#46;&#46;\n[/code:32hfblte]\n\nThe combobox is inserted at row/col, but over the buttons 3 and 4.\nHow I can distance the buttons?\n\nPier Luigi','',0,'AIA=','32hfblte',1,0,'',20,0,0),(32477,7086,2,228,0,'200.58.193.219',1180104250,1,0,1,1,1,1,'','Por nada...','Por nada amigo...\n\ny de nuevo que pena la demora...  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos','',0,'AIA=','m2o0er3n',1,0,'',228,0,0),(32478,7104,6,73,0,'200.23.18.132',1180104289,1,0,1,1,1,0,'','','entendido,\ngracias\npaco','',0,'AIA=','2u5qbcj0',1,0,'',73,0,0),(32479,6093,3,446,0,'151.32.160.105',1180106446,1,0,1,1,1,1,'','','I did not make any change to the TMail class, but only to TSmtp and only those I\'ve mentioned above\nNow it works for me with authentication and text .OR. html body\n\n\nRoberto Chiaiese','',0,'AIA=','1v9fu380',1,0,'',446,0,0),(32480,7094,6,959,0,'201.58.62.230',1180108109,1,0,1,1,1,0,'','','Antonio,\n\n    Antonio xHB para xHarbour Builder May 2007 BETA-RC12, e agora já não me arranca mais TUTOR01.PRG tem que recompilar los prg´s ?\n \n    Gracias,\n\n    Mário','',0,'AIA=','30uo9tvh',1,0,'',959,0,0),(32481,7096,6,959,0,'201.58.62.230',1180108180,1,0,1,1,1,0,'','','Antonio,\n\n  O mesmo código, e aqui NÃO funciona, alguma pista ?\n\n  Gracias.\n\n  Mário','',0,'AIA=','1c3ahpsp',1,0,'',959,0,0),(32482,7113,3,6,0,'87.20.218.94',1180109147,1,0,1,1,1,1,'','Re: Combobox in toolbar','You may try using oBtn:Move() method.\n\nEMG','',0,'AIA=','cytc45dt',1,0,'',6,0,0),(32483,7096,6,2,0,'87.218.146.99',1180110752,1,0,1,1,1,1,'','','Mário,\n\nFalla con xharbour, y funciona bien con Harbour.\n\nPor lo visto hay nuevas funciones en xharbour que se llaman igual a las de FWH, y se estan enlazando las de xharbour en el EXE.\n\nCambia en FWH\\source\\winapi\\dib.c la función DIBWRITE por FWDIBWRITE() y vuelve a compilar dib.c','',0,'AIA=','10jlcsbc',1,0,'',2,0,0),(32484,7094,6,2,0,'87.218.146.99',1180110936,1,0,1,1,1,1,'','','Mário,\n\nEstás usando FWH 7.05 ? Descárgalo y vuelve a instalarlo.','',0,'AIA=','3cx72hxi',1,0,'',2,0,0),(32485,7072,6,215,0,'189.136.229.56',1180112959,1,0,1,1,1,1,'','no','Rafael,\nEl software que acompaña al scanner permite guardar la salida en varios formatos, directorio destino, númeración de las images... esto es que comienze a guardar imagenes desde el número por ejemplo 10001.tiff en adelante. La siguiente imagen se guardará como 10002.tiff , siguiente como 10003.tiff y asi sucesivamente hasta terminar de escanear los documentos que están puestos en la charola, las imagenes serán guardadas en el directorio que indiques. A continuación solo basta con leer las imagenes y hacer lo que quieras con ella.','',0,'AIA=','q337xq1x',1,0,'',215,0,0),(32486,7072,6,63,0,'83.49.110.35',1180113936,1,0,1,1,1,0,'','','Fernando:\nEse es precisamente mi recelo:  Si el escanner captura de golpe -por ejemplo- cien imágenes 00100.tif, 00101.tif, 00102.tif... y las deposita en una carpeta , (p. ej: C:\\MisDocs).  Todavía tenemos el problema de cómo relacionar cada Tif com su correspondiente registro en la base de datos.\n\nA ver si me explico:  Si tenemos una tabla de Clientes (Juan Perez, Luis Lopez, etc...) y escaneamos -por ejemplo- sus pasaportes, ¿cómo sabemos que Juan Perez es la imagen 1004.tif y luis Lopez, la 1006.tif...?\n\nLa única forma que se me ocurre es vincular las imágenes a mano, y eso es una fuente de posibles errores.  ¿O es que no utilizas tabla y te limitas a escanear las imágenes y depositarlas en una carpeta?\n\nPerdona mis dudas, pero es que es un tema que he venido pensando desde hace mucho tiempo sin verle solución fácil, salvo la de controlar el escaner por completo directamente desde programa\n\nSaludos,\n\nRafael','',0,'AIA=','2vwfyt8s',1,0,'',63,0,0),(32487,7070,6,376,0,'190.42.12.14',1180115512,1,0,1,1,1,1,'','','Antonio\n\nMuy agradecido por la respuesta.\n\n[quote=&quot;Antonio Linares&quot;:fagi32he]Armando,\n\nbcc32 -c -Ic:\\xharbour\\include;c:\\FWH\\include modulo.c[/quote:fagi32he]','',0,'gA==','fagi32he',1,0,'',376,0,0),(32488,7117,6,1014,0,'200.106.25.59',1180119497,1,0,1,1,1,1,'','TcBrowse','Hola Amigos\nEstoy peleándome con una copia del TestTcb2.prg, hice algunas pequeñas  modificaciones, compila bien pero sale este msg.\n  \"Este programa ha efectuado una operacion no admitida y sera      interrumpido.\n   Si el problema persiste, consulte al proveedor del programa\"\n\nno encuentro la diferencia, ni el error\n///////\nFunction main()    // Mantenimiento al Maestro de Presupuestos\npriv oDlg,oFnt\npriv oBrw //oLbx\npriv oBtnEsc,oBtnF1,oBtnF2\npriv tPre:={{\" \",0,0}}\n\nDEFINE FONT oFnt NAME \"Ms Sans Serif\" SIZE 0, -12\n\nDEFINE DIALOG oDlg TITLE \"CO130 Archivo de Presupuestos\" ;\n              FONT oFnt FROM 3,25 to 30,75\n\n@ 4, 5 COLUMN BROWSE oBrw  OF oDlg ;\n      SIZE 120, 100 ;               // \\fwh\\samples\\testTCB3.prg\n      ON LEFT DBLCLICK EditCell( oBrw, nRow, nCol )\n\n   oBrw:SetArray( tPre )\n\n   oBrw:lLogicDrop := .t.  // use crazy logic dropbox\n   oBrw:lNoHScroll := .t.  // don\'t use that pesky horiz scroll bar NO Func\n   oBrw:nAdjColumn :=  2   // expand this column to flush table right\n   oBrw:nFreeze    :=  1   // This will freeze all &amp; prevent horiz scrolling\n                           // NOTE can\'t resize/drag on frozen columns\n\n ADD COLUMN TO oBrw DATA ARRAY ELEM 1  HEADER \"Periodo\" ;\n         SIZE 45 RIGHT\n\n ADD COLUMN TO oBrw DATA ARRAY ELEM 2  HEADER  \"Monto Mensual\" ;\n          EDITABLE SIZE 90 RIGHT PICTURE \"99999,999,999.99\" \n\n ADD COLUMN TO oBrw DATA ARRAY ELEM 3  HEADER  \"   Acumulado\"  ;\n         SIZE 90 RIGHT PICTURE \"99999,999,999.99\"\n\n@10,03 BUTTON oBtnEsc PROMPT \"Esc - Salir\" SIZE 40,16 OF oDlg ;\n         Action (oDlg:End())\n\n   ACTIVATE DIALOG oDlg\n\noFnt:end()\nreturn nil\n//////\n <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \nlo peor de todo es que el testtcb2.prg sí funciona.\ncualquier ayuda será bienvenida\nmuchas gracias de antemano\nJorge Vargas\n\n[/b]','',0,'','1qwqqhwz',1,0,'',1014,0,0),(32489,7118,6,492,0,'189.147.32.187',1180121530,1,0,1,1,1,1,'','Un ComboBox en el Menu de una Window','Hola a todos\n\nEstuve buscando en los posts, y solo encuentro mensajes para poner un combobox en una ToolBar, es posible meterlo en la misma linea donde se encuentra el menu de la ventana principal ??\n\n[code:30selgqq]\n&#91;Opciones&#93;  &#91;Herramientas&#93;  &#91;Otros&#93;          Seleccione algo &#58; &#91;poner aqui el combobox&#93;[/code:30selgqq]\n\n\nSaludos','',0,'AIA=','30selgqq',1,0,'',492,0,0),(32490,7119,6,1023,0,'201.92.184.86',1180122819,1,0,1,1,1,0,'','How to recompile Libs of fivewin?','Hi , for all.\n\nI need recompile my fivewin 7.05 in the xharbour .961 (March 2006), but i tried to tell in the suport( i\'m in brasil ) but they onli will respond me in the monday (segunda-feira) and i cant wait so long.\n\nI have here the version of January of 2007 and don\'t work with fivewin too, and i wold like to recompile with that version too, just for test.\n\n--&gt; I use xHarbour Corporative\n\ncan anyone help me plz? <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nThanks for all.','',0,'AIA=','3jiclt6j',1,0,'',1023,0,0),(32491,7119,6,2,0,'87.218.146.99',1180123450,1,0,1,1,1,1,'','','for %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fiveh.lib -+ %%f /0 /P32,,','',0,'AIA=','qfof0rij',1,0,'',2,0,0),(32492,7120,6,959,0,'201.58.62.230',1180124116,1,0,1,1,1,0,'','Busca combobox em 7.05, não funciona mais','Já não me funciona mais busca em combobox, antes quando se digitava uma letra o combo já posicionava na primeira letra encontrada, agora não busca mais.\n\n\nGracias\n\nMário\n\nFWH 7.05 ( Ultimo Build ) xHB ( 99.70 ) Ultimo RC.','',0,'AIA=','37cdf95k',1,0,'',959,0,0),(32493,7114,6,969,0,'83.165.99.149',1180124749,1,0,1,1,1,0,'','','Hola Mike:\n\nTe pongo un ejemplo para un menú Popup sobre las líneas de datos del xBrowse, (sobre la cabecera, sobre el píe o zona donde no aparecen datos, habría que hacer otra cosa):\n\nSuponiendo que estas definiendo un XBrouse llamado oBrw, pon cuando lo estas creando:\n [code:18zlaed1]  oBrw&#58;bRClicked &#58;= &#123;| nRow, nCol | PopupMenu&#40; nRow, nCol, oBrw &#41; &#125;[/code:18zlaed1]\ny define la función PopupMenu() mas o menos como:\n[code:18zlaed1]FUNCTION PopupMenu&#40; nRow, nCol, oBrw &#41;\n\n  LOCAL oMenu\n\n  MENU oMenu POPUP\n       MENUITEM &quot;&amp;Uno&quot; ACTION MsgInfo&#40; &quot;Uno&quot; &#41;\n       MENUITEM &quot;&amp;Dos&quot; ACTION MsgInfo&#40; &quot;Dos&quot; &#41;\n       MENUITEM &quot;&amp;Tres&quot; ACTION MsgInfo&#40; &quot;Tres&quot; &#41;\n  ENDMENU\n\n ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw\n\nRETURN NIL[/code:18zlaed1]\n\nUn saludo,\nRamón Avendaño.','',0,'AIA=','18zlaed1',1,0,'',969,0,0),(32494,7072,6,215,0,'189.136.229.56',1180124812,1,0,1,1,1,1,'','asi es','Rafael,\nNo hay de otra,\nla vinculación se hace a mano. Es mi primer proyecto y voy a continuar trabajando en el tema. Seguro más adelante lo voy a ir mejorando.','',0,'AIA=','1e37vbp7',1,0,'',215,0,0),(32495,7119,6,1023,0,'201.92.187.107',1180126493,1,0,1,1,1,0,'','','But i use the Core Builder to compile, how can i do with then?','',0,'AIA=','3m4g4cg9',1,0,'',1023,0,0),(32496,7119,6,2,0,'87.218.146.99',1180128741,1,0,1,1,1,1,'','','Usa este make file para xHB:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32956835/Fivehmx.lib.zip.html\">http://rapidshare.com/files/32956835/Fi ... b.zip.html</a><!-- m -->','',0,'AIA=','34mvs6ln',1,0,'',2,0,0),(32497,7120,6,2,0,'87.218.146.99',1180129665,1,0,1,1,1,1,'','','Mario,\n\nfwh\\samples\\combos.prg is working fine (see pressing T):\n[url=http&#58;//imageshack&#46;us:nzljxaqr][img:nzljxaqr]http&#58;//img408&#46;imageshack&#46;us/img408/4453/combosbv4&#46;png[/img:nzljxaqr][/url:nzljxaqr]','',0,'GA==','nzljxaqr',1,0,'',2,0,0),(32499,7117,6,1014,0,'200.106.25.59',1180131067,1,0,1,1,1,1,'','','Hola Amigos\nsolucionado el asunto:\nsolo descargué el nuevo build de xHarbour anunciado el 23 de mayo y se solucionó solito.\ncosas de Orinoco\nmuchas gracias de todas maneras\nsaludos\nJorge Vargas <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','245n76pf',1,0,'',1014,0,0),(32500,7122,6,940,0,'189.157.69.129',1180139879,1,0,1,1,1,1,'','ADORDD','Donde esta la ultima version de adordd?\n\ncomo se le hace para entrar al CVS y bajarlo ?\n\nla ultima version que tengo es la del 12 de mayo,\n\n\nsaludos, Cordiales. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'GA==','z4o3vwyj',1,0,'',940,0,0),(32501,7122,6,54,0,'189.132.99.238',1180151563,1,0,1,1,1,1,'','Re: ADORDD','[quote=&quot;sysctrl2&quot;:1c0be2qo]Donde esta la ultima version de adordd?\n\ncomo se le hace para entrar al CVS y bajarlo ?\n\nla ultima version que tengo es la del 12 de mayo,\n\n\nsaludos, Cordiales. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->[/quote:1c0be2qo]\n\nCesar,\n\naquí lo bajas\n\n[url:1c0be2qo]http&#58;//harbour-project&#46;cvs&#46;sourceforge&#46;net/harbour-project/harbour/contrib/adordd/[/url:1c0be2qo]','',0,'kA==','1c0be2qo',1,0,'',54,0,0),(32502,7102,3,131,0,'88.9.226.210',1180163306,1,0,1,1,1,0,'','','Hola:\nRecuerdo que con este programa hubo hace un tiempo una discusión sobre si enviaba información del usuario al servidor de Advantage. ¿ Alguien lo puede confirmar o desmentir ?\nSaludos,','',0,'kA==','3sryziyn',1,0,'',131,0,0),(32503,7056,3,1058,0,'60.51.63.171',1180171324,1,0,1,1,1,1,'','Do you have to recompile fivewin libaries','Hi Antonio Linares,\n\nI have marked out the lines you mentioned in  \"/SOURCE/CLASSES/TGET.PRG\"\n\nFollowing which I recompiled a test app with a get object. \n\nThe change in \"TGET.PRG\" does not take place. The get object still changes to a thick line as before making the change.\n\nWhat am I not doing ? Do you have to recompile fivewin libraries ? If so, can you tell me how?\n\nThank you.(hope if its not too much trouble.!)','',0,'kA==','2o7gpxxw',1,0,'',1058,0,0),(32504,7056,3,2,0,'87.218.146.99',1180172430,1,0,1,1,1,1,'','','You have to link the resulting GET.obj into your app','',0,'kA==','31od0uql',1,0,'',2,0,0),(32505,7115,6,596,0,'80.28.12.107',1180179034,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:1ypwnxw6]LoadImage( cResName, cBmpFile )\nSaveImage( cFile, nFormat )[/quote:1ypwnxw6]\nPues he hecho esto:\n[code:1ypwnxw6]oBmp&#58;=TImage&#40;&#41;&#58;Define&#40;&quot;Logo&quot;,,&#41;\noBmp&#58;SaveImage&#40;&quot;pepe&#46;bmp&quot;&#41;\noBmp&#58;End&#40;&#41;[/code:1ypwnxw6]\n\n¿ Pero hay forma de quitarse del medio la DLL freeimage.dll ?','',0,'gIA=','1ypwnxw6',1,0,'',596,0,0),(32506,7115,6,2,0,'87.218.146.99',1180179919,1,0,1,1,1,1,'','','No se puede porque la Clase TImage necesita FreeImage.dll','',0,'gIA=','1f6l93ov',1,0,'',2,0,0),(32507,7056,3,1058,0,'60.51.63.171',1180180722,1,0,1,1,1,1,'','It works!','Hi Antonio,\n\nThanks for the reply. It works!. \nIt comes to me now that this is the same way things were done in clipper 5.2. Sorry but I am a bit rusty in clipper programming. I an including two working BAT scripts to convert the TGET.PRG into an OBJ. Could you just comment if its OK by you.\n\nFILENAME: C.BAT\n-------------------------------------------------------\nECHO Compiling from .PRG to .C\n\nset hdir=\\zz\\xh\nset fwhdir=\\zz\\fwxh\nset bcdir=\\zz\\bcc55\n\n%hdir%\\bin\\harbour /n /w /p /oOBJ\\  /i%fwhdir%\\include;%hdir%\\include;%bcdir%\\include %1 %2 %3 &gt; clip.log\n@TYPE clip.log\n\n\nFILENAME: L.BAT\n-------------------------------------------------------\n@ECHO OFF\nECHO Compiling...From .C TO .OBJ\n\nSET hdir=\\zz\\xh\nSET fwh=\\zz\\fwxh\nSET bcdir=\\zz\\bcc55\n\nECHO  -oOBJ\\%1 -I%fwh%\\include;%hdir%\\include;%bcdir%\\include -L%fwh%\\lib;%hdir%\\lib;%bcdir%\\lib OBJ\\%1.c &gt; l.bc\n\n%bcdir%\\bin\\bcc32 -M -c -v @l.bc\n\n\n\nThanks a lot.','',0,'gIA=','37bg9gio',1,0,'',1058,0,0),(32508,6093,3,879,0,'67.70.61.250',1180188281,1,0,1,1,1,0,'','','I have 2 questions.\n\nFirst, I assume ST_AUTH0, ST_USER and ST_AUTH are defiined variables but you make no mention as to their values? As these values do not appear to be set anywhere, testing them would always return a false result. A further question is whether they get set in a class other than TSMTP.prg?\n\nSecond, after what existing code are these pieces added? You mention the second piece of code modifies existing code but I am thinking it is in fact added.\n\nCould you please clarify these 2 points for me?\n\nRegards,\n\nKen','',0,'gIA=','314qwg3w',1,0,'',879,0,0),(32509,7056,3,2,0,'87.218.146.99',1180194170,1,0,1,1,1,1,'','','Yes, it seems ok','',0,'gIA=','1d17konx',1,0,'',2,0,0),(32510,7122,6,940,0,'189.157.90.44',1180198416,1,0,1,1,1,1,'','','W.M.\n\nGracias,,\n\nsaludos.','',0,'gIA=','jlc9ewmw',1,0,'',940,0,0),(32511,6815,6,1049,0,'66.82.9.79',1180204998,1,0,1,1,1,0,'','Es posible conectar a una base de datos PROJECT ?','Hola a todos, una pregunta, es posible abrir una base de datos de un proyecto de microsoft project?,  nos acaban de dar un curso de project, pero veo que la operacion sera un poco complicada para mis usuarios que tiene un nivel bajo en el manejo de la pc, y se me ocurrio implementar una aplicacion en FHW,, para que capturen ahi los datos y asu vez poderlos actualizar en project.. y pues tambien por que no, poder generar reportes, sera posible utilzando ADORDD o de que otra forma lo puedo hacer, claro si es que es posible..\n\nsaludos\nMauro S.','',0,'gIA=','3vjaxdwg',1,0,'',1049,0,0),(32512,6093,3,303,0,'72.199.41.171',1180205718,1,0,1,1,1,0,'','','Roberto,\n\nI think you must be using a non-standard FW TSMTP class. I have the latest class (FWH ver 7.05) and there is no line:\n\nCase ::nStatus == ST_AUTH0 \n\nAnd ST_AUTHO and ST_USER are not defined. Also it seems that you have a typo in ST_AUTH0 - the last character is a zero not a letter O.\n\nJames','',0,'gIA=','2s8uc922',1,0,'',303,0,0),(32513,7115,6,596,0,'80.28.12.107',1180219479,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ovqrqjt]No se puede porque la Clase TImage necesita FreeImage.dll[/quote:1ovqrqjt]\nY cuando el objeto oBmp tiene el grafico BMP en memoria (desùes de un load, new o redefine) no habria posibilidad de \"leer\" esa parte de la memoria.\n\nAlgo asi como poder hacer cGraficoBmp:=???????? y despues\nMemowrit(cGraficoBmp,\"pepe.bmp\")\no\nh:=fcreate(\"pepe.bmp\",0)\nfwrite(h,cGraficoBmp)\nfclose(h)\n\nSeria ideal...\n\n¿ La clase TBitmap donde guarda el BMP ?','',0,'gA==','1ovqrqjt',1,0,'',596,0,0),(32514,7123,6,596,0,'80.28.12.107',1180221254,1,0,1,1,1,1,'','TRACE.LOG ¿ Que es y para que sirve ?','¿ Que informacion lleva ?\n¿ Hay forma de configurar que NO se grabe ?\n\nA mi me sale esto:\n[code:2wcjet8r]*** WARNING! Function&#58; MOVEFILE in Module&#58; FILENAME&#46;PRG is hidden by previously registered Module&#58; LeePOI&#46;prg\n*** WARNING! Function&#58; ALERT in Module&#58; alert&#46;prg is hidden by previously registered Module&#58; ALERT&#46;PRG\n*** WARNING! Function&#58; GETNEW in Module&#58; tgetint&#46;prg is hidden by previously registered Module&#58; TCLIPGET&#46;PRG[/code:2wcjet8r]\n\nOtro:\n[code:2wcjet8r]*** WARNING! Function&#58; GETNEW in Module&#58; tgetint&#46;prg is hidden by previously registered Module&#58; TCLIPGET&#46;PRG[/code:2wcjet8r]','',0,'AIA=','2wcjet8r',1,0,'',596,0,0),(32515,7123,6,2,0,'87.218.146.44',1180247949,1,0,1,1,1,1,'','','Es una información que genera xharbour automaticamente para avisarte de funciones que estas repetidas (mismo nombre) en distintos módulos.\n\nEn tu caso te avisa de que:\n\nMOVEFILE está en FILENAME.PRG y en LeePOI.prg y que se está usando la que está en LeePOI.prg\n\nALERT está en alert.prg y en ALERT.PRG y se está usando la que está en ALERT.PRG \n\nGETNEW está en tgetint.prg y en TCLIPGET.PRG y se está usando la que está en TCLIPGET.PRG \n\nNo conocemos la forma de indicarle a xharbour que no lo genere. Tendrías que preguntarlo en el foro de soporte de xharbour','',0,'AIA=','2ezue12o',1,0,'',2,0,0),(32516,7123,6,54,0,'189.132.104.44',1180281364,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2f3dgpwv]Es una información que genera xharbour automaticamente para avisarte de funciones que estas repetidas (mismo nombre) en distintos módulos.\n\nEn tu caso te avisa de que:\n\nMOVEFILE está en FILENAME.PRG y en LeePOI.prg y que se está usando la que está en LeePOI.prg\n\nALERT está en alert.prg y en ALERT.PRG y se está usando la que está en ALERT.PRG \n\nGETNEW está en tgetint.prg y en TCLIPGET.PRG y se está usando la que está en TCLIPGET.PRG \n\nNo conocemos la forma de indicarle a xharbour que no lo genere. Tendrías que preguntarlo en el foro de soporte de xharbour[/quote:2f3dgpwv]\n\nAntonio,\n\nPrimero que nada, espero explicarme.\n\nPasa que hay funciones que toma de los dos archivos, esto quiere decir, que toma funciones en el caso de MOVEFILE de FILENAME.PRG y en LeePOI.prg y en alguno de los archivos tienes que eliminarlo o en uno de ellos ponerla como static.\n\nHay un archivo .c de xharbour que se tiene que modificar y se recompilan las LIBS y ya no se creara dicho archivo. en un POST de Enrico puse las lineas que se tienen que modificar para no crear el .LOG.\n\nBueno, espero que me haya explicado.\n\nsino encuentran dichas lineas, pues por aqui ando.\n\njjejjejjejje','',0,'gA==','2f3dgpwv',1,0,'',54,0,0),(32517,7124,6,739,0,'189.134.43.40',1180282210,1,0,1,1,1,0,'','Bitmap en código fuente','¿como puedo crear un bitmap en código fuente?\n\nLo que necesito es poder crearlo de manera parecida al logo de fivewin en la ventana de error, sin llamarlo de recurso o de archivo, no importa que tenga que meter el contenido del archivo que usaría si fuera llamado desde archivo dentro del código fuente.\n\nSaludos\nQuique','',0,'gA==','3kw1f4ez',1,0,'',739,0,0),(32518,7123,6,596,0,'80.28.12.107',1180288953,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2e68fzx1]MOVEFILE está en FILENAME.PRG y en LeePOI.prg y que se está usando la que está en [b:2e68fzx1]LeePOI.prg[/b:2e68fzx1]\nALERT está en alert.prg y en ALERT.PRG y se está usando la que está en ALERT.PRG \nGETNEW está en tgetint.prg y en TCLIPGET.PRG y se está usando la que está en TCLIPGET.PRG [/quote:2e68fzx1]\n\nEl programa LeePOI.prg es mio, por hay puedo controlar que esa linea no salga, pero las demas ni idea.\nEsperaremos a que wmormar nos cuente lgo.\n\nGracias.','',0,'wA==','2e68fzx1',1,0,'',596,0,0),(32519,7124,6,2,0,'87.218.146.176',1180289413,1,0,1,1,1,1,'','','Tienes que usar un array en C (ó una cadena en PRG) con el contenido del bitmap, que lo puedes obtener usando el resources workshop:\n\nBYTE Test[] = {\n0x42, 0x4D, 0xF6, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x76, 0x00, 0x00, 0x00, 0x28, 0x00,\n0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x01, 0x00, 0x04, 0x00, 0x00, 0x00,\n0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,\n0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xBF, 0x00, 0x00, 0xBF,\n0x00, 0x00, 0x00, 0xBF, 0xBF, 0x00, 0xBF, 0x00, 0x00, 0x00, 0xBF, 0x00, 0xBF, 0x00, 0xBF, 0xBF,\n0x00, 0x00, 0xC0, 0xC0, 0xC0, 0x00, 0x80, 0x80, 0x80, 0x00, 0x00, 0x00, 0xFF, 0x00, 0x00, 0xFF,\n0x00, 0x00, 0x00, 0xFF, 0xFF, 0x00, 0xFF, 0x00, 0x00, 0x00, 0xFF, 0x00, 0xFF, 0x00, 0xFF, 0xFF,\n0x00, 0x00, 0xFF, 0xFF, 0xFF, 0x00, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77,\n0x77, 0x70, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x78,\n0x88, 0x88, 0x88, 0x88, 0x77, 0x77, 0x77, 0x7F, 0x77, 0x77, 0x77, 0x78, 0x77, 0x77, 0x77, 0x7F,\n0x77, 0x70, 0x77, 0x78, 0x77, 0x77, 0x77, 0x7F, 0x77, 0x70, 0x77, 0x78, 0x77, 0x77, 0x77, 0x7F,\n0x70, 0x00, 0x00, 0x78, 0x70, 0x70, 0x77, 0x7F, 0x77, 0x70, 0x77, 0x78, 0x77, 0x77, 0x77, 0x7F,\n0x77, 0x70, 0x77, 0x78, 0x77, 0x77, 0x77, 0x7F, 0x77, 0x77, 0x77, 0x78, 0x77, 0x77, 0x77, 0x7F,\n0xFF, 0xFF, 0xFF, 0xF8, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77,\n0x77, 0x70, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77, 0x77,\n0x77, 0x70, 0x77, 0x77, 0x77, 0x77 };\n\ny luego llamando a esta función:\n\nhb_retnl( ( LONG ) CreateMemBitmap( ( HDC ) hb_parnl( 1 ), Test ) );\n\nque te devuelve el handle del bitmap, pasándole el hDC de donde lo vayas a usar','',0,'','3ld4htbp',1,0,'',2,0,0),(32520,7125,6,66,0,'201.213.68.241',1180291259,1,0,1,0,1,0,'','Ayuda  Actualizar Browse en Dos Aplicaciones en Red','Estimado Colegas\n\nTengo dos aplicaciones corriendo en red que utilizan la misma\ndbf una que ingresan datos de diferentes terminales  aplicacion A\ny otra en el sector de pagos  aplicacion B, Lo que quiero hacer es que se actualice el browse de la aplicacion B  con los datos que son ingresados\nen la aplicacion A\nHe probado con timers y olbx:refresh() pero no me funciona, de\nla unica manera que me esta funcionando es cerrando la aplicacion B\ny volviendola  a abrir\n\ndesde ya muchisimimas gracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e --> \nFabian','',0,'','2n5ot706',1,0,'',66,0,0),(32521,7124,6,92,0,'81.44.82.43',1180291408,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:lcgp6c9n]Tienes que usar un array en C (ó una cadena en PRG) con el contenido del bitmap, que lo puedes obtener usando el resources workshop: ...\n[/quote:lcgp6c9n]\n\nAntonio,\n\nno hace sol en Málaga? Y además, hoy no es domingo?\n\nSaludos  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nCarlos G.','',0,'gA==','lcgp6c9n',1,0,'',92,0,0),(32522,7126,6,66,0,'201.213.68.241',1180291441,1,0,1,0,1,0,'','Como puedo centrar Dialogo creado desde codigo','Estimados Colegas\n\nTengo un dialogo creado desde codigo como puedo hacer para centrarlo\nen las diferentes resoluciones\n\ndesde ya  muchisimas gracias\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->\nFabian','',0,'gA==','3bql0ni4',1,0,'',66,0,0),(32523,7107,2,518,0,'189.171.51.27',1180297684,1,0,1,1,1,0,'','','Gracias Antonio','',0,'gA==','2be1fkid',1,0,'',518,0,0),(32524,7126,6,2,0,'87.218.146.56',1180305641,1,0,1,1,1,1,'','','ACTIVATE DIALOG oDlg CENTERED','',0,'gA==','9bvkt2su',1,0,'',2,0,0),(32525,7124,6,2,0,'87.218.146.56',1180305713,1,0,1,1,1,1,'','','Tienes mucha razón, pero es deformación profesional <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3pin8hm1',1,0,'',2,0,0),(32526,7125,6,2,0,'87.218.146.56',1180305919,1,0,1,1,1,1,'','','Usando un timer y un refresh del browse, debe funcionar','',0,'gA==','evykjnr6',1,0,'',2,0,0),(32527,7123,6,54,0,'189.132.104.44',1180314370,1,0,1,1,1,1,'','','[quote=&quot;JmGarcia&quot;:2g6pba9r][quote=&quot;Antonio Linares&quot;:2g6pba9r]MOVEFILE está en FILENAME.PRG y en LeePOI.prg y que se está usando la que está en [b:2g6pba9r]LeePOI.prg[/b:2g6pba9r]\nALERT está en alert.prg y en ALERT.PRG y se está usando la que está en ALERT.PRG \nGETNEW está en tgetint.prg y en TCLIPGET.PRG y se está usando la que está en TCLIPGET.PRG [/quote:2g6pba9r]\n\nEl programa LeePOI.prg es mio, por hay puedo controlar que esa linea no salga, pero las demas ni idea.\nEsperaremos a que wmormar nos cuente lgo.\n\nGracias.[/quote:2g6pba9r]\n\nCambiaras las lineas 9410 a la 9412 en el archivo hvm.c de la carpeta source\\vm por estas\n[code:2g6pba9r]\n/* NOTE&#58; hb_traceInit&#40;&#41; is not yet executed, but it uses s_bEmpty to not override output preceding hb_vmInit&#40;&#41; \n                  TraceLog&#40; NULL, &quot;*** WARNING! Function&#58; %s in Module&#58; %s is hidden by previously registered Module&#58; %s\\n&quot;, \n                            pSymbol-&gt;szName, szModuleName, pDynSym-&gt;pModuleSymbols ? pDynSym-&gt;pModuleSymbols-&gt;szModuleName &#58; &quot;&lt;unspecified&gt;&quot; &#41;; */ [/code:2g6pba9r]\n\nsaludos\n\npd. recompila xharbour y listo, adios al trace.log, comentan en el foro de desarrolladores de xharbour que es preferible no quitarla, aunque la he modificado y no he tenido problemas alguno.','',0,'wIA=','2g6pba9r',1,0,'',54,0,0),(32528,6093,3,32,0,'216.6.55.242',1180333998,1,0,1,1,1,0,'','SMTP class','Hi,\n\nNot having seen your full source, I\'d just like to point out that an smtp server can send multiple lines of replies, but the last line always has a space as the fourth character, while the rest have a dash, e.g.\n\nBelow from a telnet to our mail server\n\n[code:305hge5p]220 mail&#46;quicksoftware&#46;co&#46;za ESMTP\nehlo alexlt\n250-quicksoftware&#46;co&#46;za Hi pc-00174&#46;quicksoftware&#46;co&#46;za &#91;10&#46;1&#46;1&#46;174&#93;\n250-PIPELINING\n250-8BITMIME\n250 SIZE 10000000\n[/code:305hge5p]\n\nWe have this modification:\n\n[code:305hge5p]\nMETHOD OnRead&#40; oSocket &#41; CLASS qSmtp\n\n  // Buffer received data, as you do not necessarily receive all the server data in one go e&#46;g&#46;\n  &#58;&#58;cReceived                += cData  // cReceived is built up until it is a complete server response\n\n  // Pull out full lines received\n  Do While at&#40;CRLF, &#58;&#58;cReceived&#41; &gt; 0\n    nPos                     &#58;= at&#40;CRLF, &#58;&#58;cReceived&#41;\n\n    // Build up an array of all the server replies\n    AAdd&#40;&#58;&#58;acReply, Left&#40;&#58;&#58;cReceived, nPos - 1&#41;&#41;\n\n    &#58;&#58;cReceived              &#58;= Substr&#40;&#58;&#58;cReceived, nPos + 2&#41;\n  Enddo\n\n  // Has closing line been received i&#46;e&#46; full reply from server &#40;may come in dribs and drabs&#41;\n  if Substr&#40;ATail&#40;&#58;&#58;acReply&#41;, 4, 1&#41; == &quot; &quot;\n    // We now have the full server response, now process it&#46;\n    // AS 08/09/2005\n    cReply                   &#58;= Substr&#40;ATail&#40;&#58;&#58;acReply&#41;, 1, 3&#41;\n\n    if &#58;&#58;lLog\n      // AS 08/09/2005\n      aeval&#40;&#58;&#58;acReply, &#123;|pcReply| LogFile&#40;&#58;&#58;cLogFile, &#123;&quot;SERVER&#58; &quot; + pcReply&#125;&#41;&#125;&#41;\n//      LogFile&#40;&#58;&#58;cLogFile, &#123;&quot;MAILSERVER &#40;Status = &quot; + NTRIM&#40;&#58;&#58;nStatus&#41;+&quot;&#41;&#58; &quot; + cReply&#125;&#41;\n    endif\n\n    do case\n      case &#58;&#58;nStatus == ST_INIT\n        if cReply == &quot;220&quot; // Server asknowleges connection\n\n          // Send helo and hop to next status\n          &#58;&#58;nStatus          &#58;= ST_CONNECTED\n[/code:305hge5p]','',0,'AIA=','305hge5p',1,0,'',32,0,0),(32529,6093,3,446,0,'151.32.161.184',1180341547,1,0,1,1,1,1,'','SMTP Class','Hi all,\nfirst of all, sorry for my bad english.\nyes I\'m using a non-standard class, I wrote it on my first message in this topic.\nI\'m using LKM version dated 02 june 2005.\nI don\'t know if I can post entire code here because the source is not mine and (sorry) I don\'t remember where I downloaded it from.\nAnyway here is the header of the class:\n\n[code:mdqa19kk]\n// FiveWin Internet outgoing mail Class\n// Modified by Luis Krause July 5, 2001; February 26, 2002; October 7, 2002; November 5, 2002;\n//                         October 9, 2003; June 1, 2005\n//    with code from Alex Shaft, Byron Hopp, Andrew Ross &#40;PipleLine Solutions&#41;,\n//    Frank Demont, Peter Kohler, Rafael Gaona, Joaquim Ferrer,\n//    Jos‚ Lal¡n, Ray Alich &#40;IBTC&#41;, Ignacio Vizca¡no Tapia and others\n// Special thanks to Jorge Mason for the fix to GetHostByAddress&#40;&#41; that was GPFing on some servers\n\n// Simple Authentication and Security Layer &#91;SASL&#93;\n// This class only supports LOGIN type for authentication&#46;\n// TODO&#58; Add PLAIN and MD5 methods&#46;\n//       PLAIN is the same as LOGIN but it doesn\'t use base64, i&#46;e&#46;&#58;\n//       AUTH LOGIN -&gt; USER cMimeEnc&#40; &#58;&#58;cUser &#41;\n//       AUTH PLAIN -&gt; USER &#58;&#58;cUser\n// See rfc2554&#46;txt for more details about ESMTP\n// &#91;jlalin&#93;\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#ifndef __CLIPPER__\n#xtranslate Memory&#40;&lt;n&gt;&#41; =&gt;                       // only needed with Clipper, not &#91;x&#93;Harbour\n#endif\n\n// different session status\n#define ST_INIT       0\n#define ST_CONNECTED  1\n#define ST_RESET      2\n#define ST_MAILFROM   3\n#define ST_RCPTTO     4\n#define ST_DATA       5\n#define ST_SENT       6\n#define ST_QUIT       7\n#define ST_DONE       8\n#define ST_ERROR      9\n\n// Authentication states\n#define ST_AUTH0      10        // IBTC\n#define ST_AUTH       11        // &#91;jlalin&#93;\n#define ST_USER       12        // &#91;jlalin&#93;\n#define ST_PASS       13        // &#91;jlalin&#93;\n// Last defined state\n#define ST_LAST       ST_PASS   // &#91;jlalin&#93;\n\n#define MSG_CAPTION   &quot;SMTP Services&quot;\n[/code:mdqa19kk]\n\nas yu can see the constants are defined for this class only and there is no typo here as ST_AUTH0 ends with a \'zero\'.\n\nIn the first piece of code in my previous messages, I added the code between the lines beginning with the remarks \"add\" ending with \"end r.c.\"\n\nIn the second piece I just removed:\n/* \"Content-Transfer-Encoding: quoted-printable\" + CRLF +*/','',0,'AIA=','mdqa19kk',1,0,'',446,0,0),(32530,7127,6,596,0,'85.62.69.206',1180347164,1,0,1,1,1,1,'','Funciones de 32 bits omonimas de 16 bits (Funcky-2)','Estoy tratando de pasar programas de 16 bits a 32 bits, y me encuentro con algunos problemas.\nEntre ellos estas funciones de FUNCKY-II (16 bits):\n      \n  Name:     [b:ikxq34qs]dec2hex[/b:ikxq34qs]() - convert decimal value to hexadecimal string\n  Usage:    &lt;string&gt; = dec2hex(&lt;integer&gt;)\n  Params:   an integer in the range 0 - 65535\n  Returns:  a string containing the hexadecimal representation of\n            the integer passed.\n\n  Name:     [b:ikxq34qs]shr[/b:ikxq34qs]() - bitwise shift right of a number\n  Usage:    shr(&lt;int&gt;,&lt;number&gt;)\n  Params:   integer &lt;int&gt; - number to shift, not greater then 65535\n            integer &lt;number&gt; number of shifts, not greater than 255\n  Returns:  integer equal to the bitwise shr of &lt;int&gt; and &lt;number&gt;\n\n  Name:     [b:ikxq34qs]feof[/b:ikxq34qs]() - see if the file pointer is at the end of file\n  Usage:    &lt;logical&gt; = feof(&lt;handle&gt;)\n  Params:   integer &lt;handle&gt; - handle from a previous fopen()\n  Returns:  logical .T. if file pointer is at the beginning of the\n            file, .F. if it is not\n\n  Name:     [b:ikxq34qs]bin2num[/b:ikxq34qs]() - convert 16/8 bit binary string to integer\n  Usage:    &lt;integer&gt; = bin2num(&lt;binstr&gt;)\n  Params:   string &lt;binstr&gt; - a string of 16 or 8 ones and zeros\n            that form a binary byte or word.\n            A binary string has the format where a \"1\" signifies\n            that the bit is on, and \"0\" signifies bit is off:\n                 \"0001110000111100\" or \"00111001\"\n  Returns:  An integer equal to the decimal value of the binary\n            string that was sent.\n\n  Name:     [b:ikxq34qs]byte2bin[/b:ikxq34qs]() - convert byte value to 8 bit binary string\n  Usage:    &lt;string&gt; = byte2bin(&lt;integer&gt;)\n  Params:   an integer in the range of 0 - 255\n  Returns:  a string filled with ones and zeros representing the\n            the bit settings that form the binary equivalent of the\n            integer sent\n\n  Name:     [b:ikxq34qs]and[/b:ikxq34qs]() - bitwise and of two numbers\n  Usage:    &lt;integer&gt; = and(&lt;int&gt;,&lt;number&gt;)\n  Params:   integer &lt;int&gt; - number to and, not greater then 65535\n            integer &lt;number&gt; number to and &lt;int&gt; with\n  Returns:  integer equal to the bitwise and of &lt;int&gt; and &lt;number&gt;\n\nTeniendo en cuenta que las Funcky 6.0 NO traen librerias \".LIB\" (o no las he encontrado), como lo hago.\nEs decir busco las omonimas en FW+xHARBOUR pero de 32 bits.\nGracias.','',0,'QA==','ikxq34qs',1,0,'',596,0,0),(32531,7127,6,2,0,'87.218.146.56',1180351092,1,0,1,1,1,1,'','','&gt;\nName: dec2hex() - convert decimal value to hexadecimal string \nUsage: &lt;string&gt; = dec2hex(&lt;integer&gt;) \n&gt;\n\nPuedes usar DecToHex() de FWH. Funciona igual.\n\n&gt;\nName: shr() - bitwise shift right of a number \nUsage: shr(&lt;int&gt;,&lt;number&gt;) \nParams: integer &lt;int&gt; - number to shift, not greater then 65535 \ninteger &lt;number&gt; number of shifts, not greater than 255 \nReturns: integer equal to the bitwise shr of &lt;int&gt; and &lt;number&gt; \n&gt;\n[code:1ue7owqw]\nHB_FUNC&#40; SHR &#41;\n&#123;\n   unsigned int ui = hb_parnl&#40; 1 &#41;;\n   unsigned char uc = hb_parnl&#40; 2 &#41;;\n\n   hb_retnl&#40; ui &gt;&gt;= uc &#41;;\n&#125;\n[/code:1ue7owqw]\n&gt;\nName: feof() - see if the file pointer is at the end of file \nUsage: &lt;logical&gt; = feof(&lt;handle&gt;) \n&gt;\n[code:1ue7owqw]\nfunction feof&#40; nHandle &#41;\n   local lEof &#58;= &#40; fseek&#40; nHandle, 1, FS_RELATIVE &#41; == fseek&#40; nHandle, 0, FS_RELATIVE &#41; &#41;\n\n   if ! lEof\n      fseek&#40; nHandle, -1, FS_RELATIVE &#41;\n   endif\n\nreturn lEof\n[/code:1ue7owqw]\n&gt;\nName: bin2num() - convert 16/8 bit binary string to integer \nUsage: &lt;integer&gt; = bin2num(&lt;binstr&gt;) \n&gt;\n[code:1ue7owqw]\nfunction bin2num&#40; cBinStr &#41;\n\n   local n &#58;= 1, nResult &#58;= 0\n\n   for n = 1 to Len&#40; cBinStr &#41;\n      if SubStr&#40; cBinStr, Len&#40; cBinStr &#41; - n + 1, 1 &#41; == &quot;1&quot;\n         nResult += &#40; 2 ^ &#40; n - 1 &#41; &#41;\n      endif\n   next\n\nreturn Int&#40; nResult &#41;\n[/code:1ue7owqw]\n&gt;\nName: byte2bin() - convert byte value to 8 bit binary string \nUsage: &lt;string&gt; = byte2bin(&lt;integer&gt;) \n&gt;\n[code:1ue7owqw]\nfunction Byte2Bin&#40; nValue &#41; \n\n   local cResult &#58;= &quot;&quot;, n &#58;= 7 \n\n   while n &gt;= 0 \n      if Int&#40; nValue / &#40; 2 ^ n &#41; &#41; != 0 \n         cResult += &quot;1&quot; \n         nValue -= Int&#40; nValue / &#40; 2 ^ n &#41; &#41; * &#40; 2 ^ n &#41; \n      else \n         cResult += &quot;0&quot; \n      endif \n      n-- \n   end \n\nreturn cResult\n[/code:1ue7owqw]   \n&gt;\nName: and() - bitwise and of two numbers \nUsage: &lt;integer&gt; = and(&lt;int&gt;,&lt;number&gt;) \n&gt;\nPuedes usar nAnd() de FWH. Funciona igual.\n\nOJO: No he probado estas funciones, las he escrito sobre la marcha, pruébalas y asegúrate de que funcionen bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ue7owqw',1,0,'',2,0,0),(32533,7128,2,890,0,'200.24.110.196',1180357001,1,0,1,1,1,0,'','EMPLEO DE CHECKBOX','Hola foro \nNuevamente solicitando una explicación\n\nEs la primer vez que huso un checkbox quisiera saber como arreglo el código para que grabe un SI o un NO o un UNO o un CERO en los respectivas condiciones del checkbox.\n\nMuy agradecido\n\nCordialmente\nJairo Barbosa','',0,'AIA=','2049xae5',1,0,'',890,0,0),(32534,7129,7,850,0,'201.255.68.233',1180357543,1,0,1,1,1,0,'','Asesoramiento Para compra de Hard','Hola, vamos a comprar FiveWin para Pocket PC para hacer desarrollos en nuestra empresa, queria saber cual es el  mejor equipo para comprar. Muchas Gracias\nAndres','',0,'AIA=','1a8fb8yv',1,0,'',850,0,0),(32535,7130,6,649,0,'201.3.223.175',1180357688,1,0,1,1,1,1,'','TwBrowse X  Xharbour Demo Beta Maio/2007 RC12','Ola pessoal.\nBaixei o  Xharbour Demo Beta Maio/2007 RC12\nda pagina da xharbour.com e estou tentando usar com a Twbrowse com Footers(feita pelo Hernam Cecarelli).\nTentei com varias LIBs e nenhuma funionou.\nInclui os dois prgs Wbrowse.prg, Tmultise.prg e o wbrwline.c\nporem o me problema é com este wbrwline.c que nao compila\nda a mensagem\n\"Couldn\'t build\" e nao mostra linha nada.\nNo FWH 7.01, FW 2.8, Xharbour 0.99.71 funciona perfeitamente.\no Meu problema é com o xHarbour professional que baixei na xharbour.com.\nAlguem pode me enviar a versão desta LIB para este xHarbour.\nLembro que usao a TWBrowse do Hernam Cecarelli.','',0,'AIA=','22f32d92',1,0,'',649,0,0),(32536,7131,2,1072,0,'200.83.125.118',1180361953,1,0,1,1,1,0,'','Ayuda URGENTE Soy Nuevo en esto','Hola Amigos del Foro: \n\nTengo un problema, estoy pasando de clipper a Five Win y ya me he encontrado con el primer problema. \n\nTengo una pantalla de ingreso, en la que pido algunos datos como codigo, nombre, direccion, fecha de nacimiento y numero de cargas. Pero debo tener un browse en la misma pantalla que me permita ingresar los hijos. \n\nLo mismo debe hacer cuando ingrese un codigo existente, debe mostrar los datos, incluyendo los hijos ingresados en el browse. \n\nSe puede hacer de esta forma? \n\nFavor Ayuda. \nAntonio Ferrada \n\n\nMuestro el codigo que tengo. \n*** \nDefine Cursor oCurDedo Resource \"Dedo\" \nDefine Font oFont1 Name \"Arial Black\" Size 0,19 \n\nDefine Dialog oDlgEdit Resname \"Clientes\" \n\nRedefine Get oEnti1 Var Enti1 Id 30 Of oDlgEdit Update Picture \"@!\" Color \"w+/b*\"; \nValid (Existe_ent(Enti1),oEnti1:Refresh(),.t.) \nRedefine Get oNombre1 Var Nombre1 Id 33 Of oDlgEdit Update Picture \"@!\" Color \"w+/b*\" \nRedefine Get oDirec1 Var Direc1 Id 40 Of oDlgEdit Update Picture \"@!\" Color \"w+/b*\" \nRedefine Get ofecnac1 Var fecnac1 Id 43 Of oDlgEdit Update Picture \"@d\" Color \"w+/b*\" \nRedefine Get onumcar1 Var numcar1 Id 46 Of oDlgEdit Update Picture \"99\" Color \"w+/b*\" \nREDEFINE LISTBOX oBrw ; \nFIELDS Declu-&gt;Nom_hij ,Declu-&gt;Fec_nac; \nHEADERS \"Nombre del Hijo\", \"Fecha Nacimien\"; \nID 100 OF oDlgEdit ; \nFIELDSIZES 100, 80; \nALIAS \"Declu\" ; \nSELECT Declu-&gt;koen FOR Enti1; \nUPDATE; \nON DBLCLICK (Mues_cot1(),oBrw:Refresh(), oBrw:SetFocus()) \n\n\nRedefine Button Id 150 Of oDlgEdit ; \nAction (lPara:=.F.,oDlgEdit:END()) \n\nActivate Dialog oDlgEdit Centered \n\noFont1:End() \nReturn','',0,'AIA=','28tjuvkp',1,0,'',1072,0,0),(32537,7132,6,596,0,'85.62.69.206',1180364576,1,0,1,1,1,1,'','RtlMoveMemory de Kernel32.dll (MemCopy) casca a lo bestia','Este codigo fuente en 16 bits funciona perfectamente, en 32 bits cuando ejecuta el MemCopy (RtlMoveMemory de Kernel32.dll) da un casque bestial y me dice:\n\n[b:mul932l3]Programa.exe a generado errores y sera cerrado por Windows\nDebe reiniciar el programa\nSe creara un registro de error[/b:mul932l3]\n\n¿ Que puede ser ?\n\n[code:mul932l3]function Main&#40;&#41;\n\npublic OneOpt&#58;=space&#40;4&#41;\npublic OneOptL&#58;=1\n\nSTRUCT WSAData\n  MEMBER wVersion  AS WORD\n  MEMBER wHighVer  AS WORD\n  MEMBER szDescrip AS STRING LEN WSADESCRIPTION_LEN\n  MEMBER szSystem  AS STRING LEN WSASYS_STATUS_LEN\n  MEMBER iMaxSock  AS WORD\n  MEMBER iMaxUdpDg AS WORD\n  MEMBER lpVendor  AS LONG\nENDSTRUCT\n\ncTemp&#58;=WSAData&#58;cBuffer\nrc&#58;=WSAStartup&#40;0x101,@cTemp&#41; \nWSAData&#58;cBuffer&#58;=cTemp\nif rc != 0\n   MsgAlert&#40;&quot;Error en WSASTARTUP&quot;+chr&#40;13&#41;+;\n            &quot;NO SE PUEDE CONTINUAR&quot;+chr&#40;13&#41;+;\n            &quot;Error numero &quot;+alltrim&#40;str&#40;rc&#41;&#41;&#41;\n   return nil\nendif\n\nSocketNum&#58;=socket&#40;AF_INET,SOCK_DGRAM,IPPROTO_IP&#41;\nif SocketNum&lt;0\n   MsgAlert&#40;&quot;Error en SOCKET&quot;&#41;\n   SocketNum&#58;=-1\n   return nil\nendif\n\nMemCopy&#40;OneOpt,OneOptL,Len&#40;OneOpt&#41;&#41; // Casque bestial\n\nrc&#58;=setsockopt&#40;SocketNum,SOL_SOCKET,SO_REUSEADDR,OneOpt,Len&#40;OneOpt&#41;&#41;\nif rc&lt;&gt;0\n   MsgAlert&#40;&quot;Fallo en SERSOCKOPT-1&quot;&#41;\n   SocketNum&#58;=-1\n   return nil\nendif\n\netc&#46;&#46;&#46;\n\nreturn nil\n\nDLL32 FUNCTION MemCopy&#40;dest AS LPSTR, src AS LPSTR, cb AS LONG &#41; AS VOID PASCAL FROM &quot;RtlMoveMemory&quot; LIB &quot;Kernel32&#46;dll&quot;[/code:mul932l3]\n\nFWH 7.5 y su correspondiente xHarbour.','',0,'QIA=','mul932l3',1,0,'',596,0,0),(32538,7123,6,596,0,'85.62.69.206',1180364872,1,0,1,1,1,1,'','','[quote=&quot;wmormar&quot;:1lmbrqjr]...comentan en el foro de desarrolladores de xharbour que es preferible no quitarla, aunque la he modificado y no he tenido problemas alguno.[/quote:1lmbrqjr]\nY no podian poner una especie de flag del tipo SET TRACELOG &lt;ON | OFF&gt; para que cada uno escoja lo que desee...\nAsi mientras desarrollas escojes ON y al distribuir escoges OFF.\nProbare.\nGracias wmormar por las molestias.','',0,'gA==','1lmbrqjr',1,0,'',596,0,0),(32539,4708,6,716,0,'201.13.150.111',1180365867,1,0,1,1,1,0,'','','Hola Rene, \n\nUsted puede enviar este manual? \n\n<!-- e --><a href=\"mailto:pauloperes@exatus.net\">pauloperes@exatus.net</a><!-- e -->\n\nGracias','',0,'gA==','1q5ahpat',1,0,'',716,0,0),(32540,7133,7,100,0,'201.16.38.10',1180366993,1,0,1,1,1,1,'','Instalando o FWPPC','Ola amigos\n\nEstou tentando instalar o EMULADOR e esta me retornando esta mensagem\n\n<!-- m --><a class=\"postlink\" href=\"http://www.technet.com.br/~jackson/imagem.JPG\">http://www.technet.com.br/~jackson/imagem.JPG</a><!-- m -->\n\nFWPPC 17 May 2007\n\nJá testei em 2 maquinas com Windows XP','',0,'gA==','9n6vvvzn',1,0,'',100,0,0),(32541,7133,7,2,0,'87.218.146.182',1180370242,1,0,1,1,1,1,'','','Jackson,\n\nInténtalo de esta forma:\n\nmsiexec /a emulator.msi','',0,'gA==','3fsfvsdm',1,0,'',2,0,0),(32542,7129,7,138,0,'212.145.203.73',1180370324,1,0,1,1,1,1,'','','El mejor equipo a comprar depende, como siempre del dinero que tienes para hacerlo.\n\nAunque en realidad depende para que lo quieres usar:\n\nPara uso diario, como mi PDA personal yo me compraria un HP iPAQ hw6945 Mobile Messenger, cuesta alrededor de 900 usd.\n\nSi lo quieres para captura de datos, no hay quien le gane a la serie MC de Symbol, esos pueden estar ente 1,500 a 1,800 usd.','',0,'gA==','3od7dh5y',1,0,'',138,0,0),(32543,7129,7,2,0,'87.218.146.182',1180370382,1,0,1,1,1,1,'','','Andrés,\n\nLo importante es que use Windows Mobile 2003 ó 2005, y que tenga 128 megas de memoria, a ser posible, aunque también funciona con sólo 64.\n\nEl micro debe ser Intel PXA ó compatible','',0,'gA==','3t4r1yk9',1,0,'',2,0,0),(32544,7123,6,2,0,'87.218.146.182',1180370487,1,0,1,1,1,1,'','','JmGarcia,\n\nDe momento es preferible que no lo quites, ya que la información que proporciona es valiosa y puede solucionar errores','',0,'gA==','tvqmjo4h',1,0,'',2,0,0),(32545,7133,7,100,0,'201.16.38.10',1180371678,1,0,1,1,1,1,'','','Amigo Antonio\n\nAcontece o mesmo erro  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','6e4bu7jp',1,0,'',100,0,0),(32546,7132,6,2,0,'87.218.146.182',1180372105,1,0,1,1,1,1,'','','Tienes declarado OneOptL:=1 como número y no como cadena.\n\nAdemás cambia AS WORD por AS LONG, ya que estamos en 32 bits','',0,'gA==','3cw6ywj0',1,0,'',2,0,0),(32547,7102,3,2,0,'87.218.146.182',1180372253,1,0,1,1,1,1,'','','José Luis,\n\nSi usas la versión local de ADS y no tienes un servidor de ADS en red, que información podría enviarle ? Y de que les valdría ?','',0,'gA==','3jdefvw9',1,0,'',2,0,0),(32548,7133,7,2,0,'87.218.146.182',1180372346,1,0,1,1,1,1,'','','Puedes buscar en Microsoft por una versión más reciente del emulador que quizá se instale bien','',0,'gA==','g7i0zor6',1,0,'',2,0,0),(32549,7128,2,2,0,'87.218.146.182',1180372478,1,0,1,1,1,1,'','','Jairo,\n\nUn checkbox usa una variable lógica (por ejemplo: lValor), que valdrá .T. ó .F., luego a la hora de guardar la información has de hacer:\n\nIf( lValor, guarda \"SI\", guarda \"NO\" )\n\nó\n\nIf( lValor, guarda 1, guarda 0 )','',0,'gA==','30f2d7pr',1,0,'',2,0,0),(32550,7131,2,2,0,'87.218.146.182',1180372718,1,0,1,1,1,1,'','','Puedes publicar aqui el RC del diálogo ? gracias','',0,'gA==','gej81ynv',1,0,'',2,0,0),(32551,7133,7,100,0,'201.16.38.10',1180373109,1,0,1,1,1,1,'','','Antonio\n\nPode me passar o LINK pra mim fazer o download ??','',0,'gA==','r2h2guja',1,0,'',100,0,0),(32552,7042,3,1023,0,'189.18.142.70',1180373783,1,0,1,1,1,0,'','','Ajudou sim, muito aobrigado.\n\nÉ exatamente oque estava tentando fazer, só não sabia como declarar uma variavel que fosse acessivel de outros documentos, achava que os defines servião para isso...\n\nMutio obrigado de novo, um abraço.','',0,'gA==','1w9wpbl2',1,0,'',1023,0,0),(32553,7128,2,890,0,'200.24.110.196',1180375219,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3rrr89dr]Jairo,\n\nUn checkbox usa una variable lógica (por ejemplo: lValor), que valdrá .T. ó .F., luego a la hora de guardar la información has de hacer:\n\nIf( lValor, guarda \"SI\", guarda \"NO\" )\n\nó\n\nIf( lValor, guarda 1, guarda 0 )[/quote:3rrr89dr]\n\nHola Antonio Muchas gracias lo intentare \n\nCordialmente\nJairo Barbosa','',0,'gA==','3rrr89dr',1,0,'',890,0,0),(32554,7123,6,54,0,'189.132.101.139',1180375536,1,0,1,1,1,1,'','','[quote=&quot;JmGarcia&quot;:21zt1b5f][quote=&quot;wmormar&quot;:21zt1b5f]...comentan en el foro de desarrolladores de xharbour que es preferible no quitarla, aunque la he modificado y no he tenido problemas alguno.[/quote:21zt1b5f]\nY no podian poner una especie de flag del tipo SET TRACELOG &lt;ON | OFF&gt; para que cada uno escoja lo que desee...\nAsi mientras desarrollas escojes ON y al distribuir escoges OFF.\nProbare.\nGracias wmormar por las molestias.[/quote:21zt1b5f]\n\nBueno, se podria hacer de esta manera.\n\n[code:21zt1b5f]\n#ifdef __TRACEOFF__\n  /* NOTE&#58; hb_traceInit&#40;&#41; is not yet executed, but it uses s_bEmpty to not override output preceding hb_vmInit&#40;&#41; \n                  TraceLog&#40; NULL, &quot;*** WARNING! Function&#58; %s in Module&#58; %s is hidden by previously registered Module&#58; %s\\n&quot;, \n                            pSymbol-&gt;szName, szModuleName, pDynSym-&gt;pModuleSymbols ? pDynSym-&gt;pModuleSymbols-&gt;szModuleName &#58; &quot;&lt;unspecified&gt;&quot; &#41;; */ \n#else\n  /* NOTE&#58; hb_traceInit&#40;&#41; is not yet executed, but it uses s_bEmpty to not override output preceding hb_vmInit&#40;&#41; */\n                  TraceLog&#40; NULL, &quot;*** WARNING! Function&#58; %s in Module&#58; %s is hidden by previously registered Module&#58; %s\\n&quot;, \n                            pSymbol-&gt;szName, szModuleName, pDynSym-&gt;pModuleSymbols ? pDynSym-&gt;pModuleSymbols-&gt;szModuleName &#58; &quot;&lt;unspecified&gt;&quot; &#41;;\n#endif[/code:21zt1b5f]\n\nPasarle la variable desde el Borland o lo que uses de esta manera:\nBCC32 -c -D__HARBOUR__;HB_API_MACROS;__TRACEOFF__ -I.;%INCLUDE% -L%LIB% tBTNGET\\getbtn.c\n\nespero haberme explicado','',0,'goA=','21zt1b5f',1,0,'',54,0,0),(32555,7119,6,1023,0,'189.18.142.70',1180375558,1,0,1,1,1,0,'','','Funcionou direitinho, eu tentei fazer isso aqui e deu varios erros.\n\nMuito obrigado pela ajuda, você é o Kra VLW.','',0,'goA=','2aae4bn8',1,0,'',1023,0,0),(32556,7134,6,264,0,'200.91.3.10',1180378940,1,0,1,1,1,1,'','Nueva Hoja o Utilizar Hoja Nro.2 (FileXLS)','Hola \nMe gustaria pasar un segundo dbf a la segunda hoja de la planilla abierta ( y quizas un tercero y asi... )\nAqui esta el codigo que utilizo y no se como se hace.\nagradeceria una poca de ayuda.\nSaludos a todos.\n\n[code:375k7a0e]\nStatic Function IniciarXLS&#40; oPadre, cFile, oProgress, cDestino, cTitInforme, lMostrar, aNombres &#41;\nLocal oFileXLS, i\nLocal cDestinoFinal\nLocal lIni &#58;= &#46;t&#46;\nLocal nReg &#58;= &#40;cFile&#41;-&gt;&#40; RecNo&#40;&#41; &#41;\nLocal cActividad &#58;= &quot;&quot;\nLocal nFormat1, nFormat2\nLocal nFont1, nFont2, nFont3, nFont4\nLocal aRowActividad &#58;= &#123;&#125;\nLocal nTotReg &#58;= &#40;cFile&#41;-&gt;&#40; LastRec&#40;&#41; &#41;\nLocal aCamposInforme &#58;= &#40;cFile&#41;-&gt;&#40; dbStruct&#40;&#41; &#41;\nLocal cRazon &#58;= SacaNombre&#40;&#41;\n\nMEMVAR nRow, nCol  // estas variables tienen que ser declaradas publicas\n                   // para poder ser procesadas en las formulas de Excel\n\nDEFAULT aNombres &#58;= &#123;&#125;\n\nIf !Empty&#40; cDestino &#41;\n\n   cDestinoFinal &#58;= AllTrim&#40; cDestino &#41; + &quot;&#46;xls&quot;\n\n   DEFINE XLS FORMAT nFormat1 PICTURE \'#,##0&#46;00\'\n   DEFINE XLS FORMAT nFormat2 PICTURE \'dd/mm/yyyy\'\n\n   DEFINE XLS FONT nFont1 NAME &quot;Arial&quot; HEIGHT 16 BOLD\n   DEFINE XLS FONT nFont2 NAME &quot;Arial&quot; UNDERLINE BOLD\n   DEFINE XLS FONT nFont3 NAME &quot;Arial&quot; HEIGHT 8\n   DEFINE XLS FONT nFont4 NAME &quot;Arial&quot; HEIGHT 8 BOLD\n\n   XLS oFileXLS FILE &#40;cDestinoFinal&#41; AUTOEXEC\n\n      XLS COL 1 WIDTH 1 OF oFileXLS\n\n      nRow &#58;= 2\n      @ nRow,2 XLS SAY cTitInforme FONT nfont1 OF oFileXLS\n      nRow++\n      @ nRow,2 XLS SAY cRazon FONT nfont2 OF oFileXLS\n      nRow += 2\n\n      For i &#58;= 1 To Len&#40; aCamposInforme &#41;\n          XLS COL i+1 WIDTH aCamposInforme&#91;i,3&#93; OF oFileXLS\n      Next\n\n      If lMostrar\n         oProgress&#58;SetRange&#40; 1, nTotReg &#41;\n      EndIf\n\n      For i &#58;= 1 To Len&#40; aCamposInforme &#41;\n          @ nRow,i+1 XLS SAY AllTrim&#40; aCamposInforme&#91;i,1&#93; &#41; FONT nFont4 OF oFileXLS BORDER BORDER_ALL\n      Next\n      ++nRow\n\n      &#40;cFile&#41;-&gt;&#40; dbGoTop&#40;&#41; &#41;\n      WHILE &#40;cFile&#41;-&gt;&#40; !Eof&#40;&#41; &#41;\n\n         For i &#58;= 1 To Len&#40; aCamposInforme &#41;\n             If     aCamposInforme&#91;i,2&#93; == &quot;D&quot;\n                    @ nRow,i+1 XLS SAY &#40;cFile&#41;-&gt;&#40; FieldGet&#40;i&#41; &#41; FONT nFont3 OF oFileXLS FORMAT nFormat2\n             ElseIf aCamposInforme&#91;i,2&#93; == &quot;N&quot;\n                    @ nRow,i+1 XLS SAY &#40;cFile&#41;-&gt;&#40; FieldGet&#40;i&#41; &#41; FONT nFont3 OF oFileXLS FORMAT nFormat1\n             ElseIf aCamposInforme&#91;i,2&#93; == &quot;L&quot;\n                    @ nRow,i+1 XLS SAY &#40;cFile&#41;-&gt;&#40; FieldGet&#40;i&#41; &#41; FONT nFont3 OF oFileXLS\n             ElseIf aCamposInforme&#91;i,2&#93; == &quot;C&quot;\n                    @ nRow,i+1 XLS SAY &#40;cFile&#41;-&gt;&#40; FieldGet&#40;i&#41; &#41; FONT nFont3 OF oFileXLS\n             Else\n                    @ nRow,i+1 XLS SAY &#40;cFile&#41;-&gt;&#40; FieldGet&#40;i&#41; &#41; FONT nFont3 OF oFileXLS\n             EndIf\n         Next\n         ++nRow\n\n         If lMostrar\n            oProgress&#58;SetPos&#40; &#40;cFile&#41;-&gt;&#40;RecNo&#40;&#41;&#41; &#41; //  * 100 / nTotReg &#41;\n         EndIf\n\n         &#40;cFile&#41;-&gt;&#40; dbSkip&#40;&#41; &#41;\n\n      ENDDO\n      &#40;cFile&#41;-&gt;&#40; dbGoTop&#40;&#41; &#41;\n\n      SET XLS TO DISPLAY ;\n          OF oFileXLS\n\n      SET XLS TO PRINTER ;\n          HEADER &quot;&amp;ZFecha&#58; &amp;F&amp;CSISTEMICA S&#46;A&#46;&amp;DPágina Nº &amp;P&quot; ;\n          FOOTER &quot;RANDOM &#40;2006&#41;&quot; ;\n          TOP MARGIN 0&#46;6 ;\n          BOTTOM MARGIN 0&#46;8 ;\n          LEFT MARGIN 0 ;\n          OF oFileXLS\n\n   ENDXLS oFileXLS\n\nEndIf\n\nReturn NIL\n[/code:375k7a0e]','',0,'AIA=','375k7a0e',1,0,'',264,0,0),(32557,7132,6,596,0,'80.28.12.107',1180379354,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1wy1oip9]Tienes declarado OneOptL:=1 como número y no como cadena.[/quote:1wy1oip9]Pues en 16 bits si funciona... lo podre CHAR/STRING.\n\n[quote=&quot;Antonio Linares&quot;:1wy1oip9]Además cambia AS WORD por AS LONG, ya que estamos en 32 bits[/quote:1wy1oip9]Precisamente el LONG es el que no puedo usar.\nLos _INT en la aplicaciones de 16 bits son de 2 bytes.\nSu omonimo para 32 bits ha de ser de 2 bytes y ese es el WORD.\nA las funciones de DLLs del API hay que mandarle el cBuffer con el mismo tamaño que en 32 bits. Las DLLs son las mismas.\n\nPor cierto, ¿ cuales son los tipos de datos de las estructuras ?\nSolo he visto WORD, STRING, LONG y no se mas (en 32 bits claro)\nNecesito datos numericos con signo y sin signo.','',0,'gA==','1wy1oip9',1,0,'',596,0,0),(32558,860,6,264,0,'200.91.3.10',1180379574,1,0,1,1,1,1,'','','Al hablar de controlador fiscal hablan de \"una impresora que guarda en su propia memoria documentos fiscales como boletas\"... si ?\nSeran EPSON esas impresoras ?','',0,'gA==','115dbhm3',1,0,'',264,0,0),(32559,7133,7,2,0,'87.218.146.182',1180381770,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=57265402-47A8-4CE4-9AA7-5FE85B95DE72&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->','',0,'gA==','2i39o0nf',1,0,'',2,0,0),(32560,7132,6,2,0,'87.218.146.182',1180382153,1,0,1,1,1,1,'','','&gt; Su omonimo para 32 bits ha de ser de 2 bytes y ese es el WORD. \n\nSi, es cierto. Esa estructura en 32 bits sigue usando shorts (2 bytes).\n\nBYTE -&gt; 1 byte\n_INT -&gt; 2 bytes\nLONG -&gt; 4 bytes\n\nEn cuanto a signo ó no, depende de como se interprete el bit más alto. Es algo que se puede calcular a posteriori','',0,'gA==','4bqzaxzb',1,0,'',2,0,0),(32561,7102,3,131,0,'81.36.141.46',1180383802,1,0,1,1,1,0,'','','Tienes razón, pero recuerdo que hubo cierta controversia con esto y queria aclararlo.\nSi os sirve, yo uso dbfdesktop\n\nSaludos,','',0,'gA==','2h4m3td0',1,0,'',131,0,0),(32562,7135,6,36,0,'200.113.56.235',1180384715,1,0,1,1,1,1,'','Cantidad de objetos?','Estimados \n\ntengo este archivo .bc que si le agrego un nuevo objeto me deja de funcionar la clase twbrowse, me arroja que no existe el metodo :Set3DStyle(), y si le saco el objeto me funciona, hay alguna forma de decirle que asume mas objetos, recuerdo que en versiones mas antigua de xharbour habia una libreria llamada lib640 o algo parecido\n\n\n\n[code:1x4bx7s0]c&#58;\\borland\\bcc55\\lib\\c0w32&#46;obj +\nWcta&#46;Obj Datetime&#46;obj +\nClientes&#46;Obj  General&#46;Obj  Red&#46;Obj  Ayuda&#46;obj  Indexar&#46;Obj  BaseDato&#46;Obj  +\ntxtprev&#46;obj  tDosPrn&#46;obj +\ntxls&#46;obj Proveedo&#46;Obj  Articu&#46;obj  Salidas&#46;Obj  SaliBole&#46;Obj  Maestros&#46;Obj  +\nListado&#46;Obj  FactGuia&#46;Obj  RutaBan&#46;Obj + Monetari&#46;obj + sTrabajo&#46;obj +\noCompra&#46;Obj  EntraFac&#46;obj  EntraFa2&#46;Obj  SSBodega&#46;Obj  SalidaBo&#46;Obj  +\nLibroCmp&#46;Obj  LibroVta&#46;Obj  CartProd&#46;Obj  CartCli&#46;obj VtaDepto&#46;Obj  Cotiza&#46;Obj  NCrCli&#46;Obj  OtMant&#46;Obj  +\nOleauto&#46;obj ttmpicke&#46;OBJ tdtpicke&#46;OBJ timepick&#46;OBJ datepick&#46;OBJ +\ncartpeso&#46;obj +\ncajadia&#46;obj Centrali&#46;Obj  IngreOt&#46;Obj  Acceso&#46;Obj  tDbfSave&#46;obj Fpago&#46;Obj SaldoCli&#46;obj, +\nwcta&#46;exe, +\nwcta&#46;map, +\nTWBRW32 +\nHbTDbf +\nc&#58;\\Fwh\\lib\\FiveHX&#46;LIB +\nc&#58;\\Fwh\\lib\\FiveHc&#46;LIB +\nFunlib32 +\nFileXls +\nvBarH +\nvBoxH +\nSBrowseH  +\nTBtnGet32 +\nc&#58;\\harbour\\lib\\rtl&#46;lib	 +\nc&#58;\\harbour\\lib\\vm&#46;lib    +\nc&#58;\\harbour\\lib\\gtGui&#46;lib +\nc&#58;\\harbour\\lib\\lang&#46;lib  +\nc&#58;\\harbour\\lib\\macro&#46;lib +\nc&#58;\\harbour\\lib\\rdd&#46;lib   +\nc&#58;\\harbour\\lib\\dbfcdx&#46;lib+\nc&#58;\\harbour\\lib\\dbffpt&#46;lib+\nc&#58;\\harbour\\lib\\hbsix&#46;lib +\nc&#58;\\harbour\\lib\\common&#46;lib+\nc&#58;\\harbour\\lib\\pp&#46;lib    +\nc&#58;\\harbour\\lib\\rddads&#46;lib+\nc&#58;\\harbour\\lib\\Ace32&#46;lib +\nc&#58;\\borland\\bcc55\\lib\\cw32&#46;lib +\nc&#58;\\borland\\bcc55\\lib\\import32&#46;lib,, +\nrecurso\\wcta&#46;res recurso\\toolbar1&#46;res Classes\\dt\\ejemplo&#46;res\n[/code:1x4bx7s0][quote][/quote]','',0,'AIA=','1x4bx7s0',1,0,'',36,0,0),(32563,7132,6,596,0,'80.28.12.107',1180387053,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:r07j3kj1]_INT -&gt; 2 bytes[/quote:r07j3kj1]\n\nA mi _INT me sale de 4 octetos.\nWORD es de 2 octetos.\nDWORD son 4 octetos.\nBOOL es de 2 octetos.\n\nEn xHarbour son:\n[code:r07j3kj1]   #define CTYPE_CHAR 1\n   #define CTYPE_UNSIGNED_CHAR -1\n   #define CTYPE_CHAR_PTR 10\n   #define CTYPE_UNSIGNED_CHAR_PTR -10\n\n   #define CTYPE_SHORT 2\n   #define CTYPE_UNSIGNED_SHORT -2\n   #define CTYPE_SHORT_PTR 20\n   #define CTYPE_UNSIGNED_SHORT_PTR -20\n\n   #define CTYPE_INT 3\n   #define CTYPE_UNSIGNED_INT -3\n   #define CTYPE_INT_PTR 30\n   #define CTYPE_UNSIGNED_INT_PTR -30\n\n   #define CTYPE_LONG 4\n   #define CTYPE_UNSIGNED_LONG -4\n   #define CTYPE_LONG_PTR 40\n   #define CTYPE_UNSIGNED_LONG_PTR -40\n\n   #define CTYPE_FLOAT 5\n   #define CTYPE_FLOAT_PTR 50\n\n   #define CTYPE_DOUBLE 6\n   #define CTYPE_DOUBLE_PTR 60\n\n   #define CTYPE_VOID_PTR 7\n\netc&#46;&#46;&#46;[/code:r07j3kj1]\n\nEn FWH ¿ donde estan esas constantes ?','',0,'gIA=','r07j3kj1',1,0,'',596,0,0),(32564,7131,2,1072,0,'190.82.32.119',1180389103,1,0,1,1,1,0,'','Antonio te envio el RC del Dialogo','Antonio:\n\nGracias por responder, aqui te publico el rc del dialogo.\n\nFw 2.4, Clipper 5.3 y Workshop \n\ntarje.rc\n\nproduced by Borland Resource Workshop\n\n\n*****************************************************************************/\n\n\nCLIENTES DIALOG LOADONCALL MOVEABLE DISCARDABLE 52, 22, 473, 236\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Maestro Ficha de Clientes\"\nFONT 8, \"Ms Sans Serif\"\n{\n EDITTEXT 30, 57, 6, 54, 11\n EDITTEXT 158, 58, 24, 54, 11\n EDITTEXT 152, 58, 43, 181, 11\n EDITTEXT 153, 58, 59, 181, 11\n COMBOBOX 154, 57, 74, 110, 78, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_GROUP | WS_TABSTOP\n COMBOBOX 155, 57, 91, 111, 88, CBS_DROPDOWNLIST | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_GROUP | WS_TABSTOP\n EDITTEXT 156, 58, 110, 92, 11\n EDITTEXT 149, 58, 128, 94, 11\n EDITTEXT 159, 58, 145, 181, 11\n EDITTEXT 32, 276, 15, 54, 11\n EDITTEXT 39, 393, 15, 54, 11\n CONTROL \"\", 100, \"TcBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 249, 42, 222, 186\n CONTROL \"\", 150, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 30, 207, 23, 21\n CONTROL \"\", 180, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 68, 207, 23, 21\n CONTROL \"\", 220, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 113, 207, 23, 21\n RTEXT \"R.u.t. :\", 148, 23, 26, 28, 8\n RTEXT \"Dirección :\", -1, 16, 60, 36, 8\n RTEXT \"Ciudad :\", -1, 23, 94, 29, 8\n RTEXT \"Comuna :\", -1, 19, 76, 32, 8\n RTEXT \"Teléfono :\", -1, 19, 110, 33, 9\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 15, 203, 145, 30\n RTEXT \"Celular :\", -1, 25, 128, 28, 8\n RTEXT \"E-mail :\", -1, 27, 146, 26, 8\n RTEXT \"Nombre :\", -1, 19, 44, 33, 8\n RTEXT \"Entidad :\", 157, 20, 9, 31, 8\n RTEXT \"Eje. 11111111-1\", 34, 118, 26, 54, 8\n RTEXT \"Número\", 31, 245, 7, 24, 8\n CONTROL \"\", -1, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 241, 3, 224, 31\n RTEXT \"Tarjeta \", 33, 242, 22, 28, 8\n CTEXT \"de\", 35, 246, 15, 23, 8\n RTEXT \"Número\", 36, 357, 7, 24, 8\n CTEXT \"de\", 37, 355, 14, 28, 8\n RTEXT \"Hijos\", 38, 360, 22, 17, 8\n}','',0,'gIA=','oj4ijn58',1,0,'',1072,0,0),(32565,7136,7,264,0,'200.91.3.10',1180390933,1,0,1,1,1,1,'','Que se requiere para iniciar ?','Antonio.\nCuales son los sw necesarios para inciarse en FWPPC ( ademas de fw )\nY si estos son pagados o free.\nAgradezco tu ayuda.\nSaludos','',0,'gIA=','2fcr1njy',1,0,'',264,0,0),(32566,7136,7,2,0,'87.218.146.182',1180391927,1,0,1,1,1,1,'','','Julio,\n\nSólo hace falta FWPPC, ya que todas las demas herramientas son gratuitas: compilador de C para Pocket PC, emulador de Pocket PC y editor de recursos. Todas esas herramientas, a excepción del editor de recursos, las proporcionamos con FWPPC, para facilitar su localización','',0,'gIA=','rh4ikgk6',1,0,'',2,0,0),(32567,7132,6,2,0,'87.218.146.182',1180392101,1,0,1,1,1,1,'','','&gt; A mi _INT me sale de 4 octetos. \n\nSi, cierto\n\nLas constantes estan en include\\dll.ch','',0,'gIA=','2bj7oiln',1,0,'',2,0,0),(32568,7135,6,2,0,'87.218.146.182',1180392217,1,0,1,1,1,1,'','','Patricio,\n\nSi te refieres a archivos OBJ, no tiene porque existir ninguna limitación.\n\nTe recomiendo que te actualices a la versión más reciente de xharbour (<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->) ya que hace poco se ha corregido un error que puede estar relacionado con lo que comentas','',0,'gIA=','1fkd0ep1',1,0,'',2,0,0),(32569,7136,7,264,0,'200.91.3.10',1180392921,1,0,1,1,1,1,'','','Antonio\nY existen por ahi los links al compilador C, al emulador y eso, para bajarlo.\nPara comenzar a preguntar mas cosas\nPues nosotros hace algun tiempo atras desarrollamos para PALM y todas las herramientas tenian un ambiente de desarrollo complijo, ademas debias tener el VB instalado, era super complejo.\nPor eso te pido la ayuda.\nSaludos','',0,'gIA=','x66rz156',1,0,'',264,0,0),(32570,7136,7,138,0,'212.145.203.73',1180393824,1,0,1,1,1,1,'','','FWPPC viene con todo y utiliza la misma filosofia de desarrollo que FW.\n\nNo hay entonro grafico, te lo construyes con un editor de recursos, igual que FW, si tienes xMate puedes compilar tus proyectos tal como lo harias con VerCE, o bien utilizar el archivo .BAT que viene incluido para compilar.\n\nPara probar los programas no necesitas ni un pocket PC, FWPPC viene con un emulador que te sirve perfectamente para hacer las pruebas.\n\nPara compilar utilizas HARBOUR en su version para procesador ARM (no hay xHB para FWPPC) y el compilador de C es el VCE de Microsoft.','',0,'gIA=','3qw2ftyi',1,0,'',138,0,0),(32571,7134,6,138,0,'212.145.203.73',1180393996,1,0,1,1,1,1,'','','No es posible hacerlo con FileXLS porque esta clase no maneja libros.\n\nTendiras que hacerlo usando la clase XLScript o bien por OLE puro y duro.\n\nSucede que Microsoft cambio la arquitectura interna del archivo XLS y por lo tanto en las versiones de Excel que soportan libros, no es posible crear el archivo XLS directamente a bajo nivel como lo hace la FileXLS.','',0,'gIA=','3r2n1zyq',1,0,'',138,0,0),(32572,7136,7,264,0,'200.91.3.10',1180394191,1,0,1,1,1,1,'','','Maestros \nPero eso es la teoria, como comienzo con la practica\nPueden darme algunos links para comenzar a descargar para trabajar\nPretendo dentro de pocos dias actualizar mi el FTDN e incluir el FWPPC\nAgradecido de antemano','',0,'gIA=','n8431jfs',1,0,'',264,0,0),(32573,7137,2,393,0,'200.47.185.10',1180395481,1,0,1,1,1,0,'','Impresion en FiveWin','Amigos una consulta , cuando realizo una impresion , me sale primero el previo antes de imprimir, pero los datos mostrados no se visualizan bien, hay forma de mejorar esto, es decir asi como el Word ó Excel tiene para mostrar los reportes a un determinado porcentaje y sale todo el reporte bien cuadrado, a mi en el previo me sale inclusive datos sobreescritos, y solo cuando amplio se muestra un poco mejor, pero cuando realizo la impresion si sale todo normal. Pero esto me dificulta el cuadrar el reporte ya que tengo que estar imprimiendo para ver como sale.\nEspero que me puedan ayudar\nDaniel.\nFW2.5+Blinker6+Clipper5.3','',0,'gIA=','3frhnaqt',1,0,'',393,0,0),(32574,7138,6,785,0,'190.64.215.55',1180399784,1,0,1,1,1,0,'','www.reportdesigner.info ?','Amigos:\n\nAlguien sabe porque no funciona el link.\n\nSaludos y gracias.\n\nRuben Fernandez.','',0,'gIA=','2x0l78ao',1,0,'',785,0,0),(32575,7134,6,264,0,'200.91.3.10',1180400258,1,0,1,1,1,1,'','','Gracias maestro','',0,'gIA=','3oyckh6s',1,0,'',264,0,0),(32576,7136,7,2,0,'87.218.146.182',1180419950,1,0,1,1,1,1,'','','Julio,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=57265402-47A8-4CE4-9AA7-5FE85B95DE72&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\nPero es mucho más sencillo si usas los ficheros que te proporcionamos nosotros. No te obligan a instalar muchas cosas de las que Microsoft te obliga a instalar','',0,'gIA=','3azusg00',1,0,'',2,0,0),(32577,7137,2,2,0,'87.218.146.182',1180420099,1,0,1,1,1,1,'','','Necesitas una versión más actualizada de FW que use EMF (32 bits) en vez de WMF (16 bits), con lo que se consigue una mejor visualización en el preview','',0,'gIA=','38cny6xa',1,0,'',2,0,0),(32578,7110,3,2,0,'87.218.146.182',1180421498,1,0,1,1,1,1,'','','Norbert,\n\nWe have no ideas about it, sorry <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nI may only suggest you to search on google for some info about it,','',0,'gIA=','3rqqep49',1,0,'',2,0,0),(32579,7138,6,316,0,'213.97.245.163',1180423407,1,0,0,1,1,0,'','','Debe haber sido un problema temporal. Ya funciona.','',0,'gIA=','1rc7kp78',1,0,'',316,0,0),(32580,7129,7,456,0,'217.127.39.57',1180423487,1,0,1,1,1,1,'','','Lo mas importante es el sistema operativo y el micro, como te ha comentado Antonio.\n\nDe los terminales que yo he utilizado, sin duda por su robustez y funcionalidad coincido con Rene, los Symbol (ahora motorola) son de lo mejorcito.\n\nY lo que actualmente sale mejor de precio (en España) es con el programa de puntos de vodafone o orange, ya que puedes conseguir PDA HTC (antes QTEC) a un precio muy economico (29 € en el mejor de los casos, pero siempre mas economicas que el precio de mercado).','',0,'gIA=','2bfb7gkf',1,0,'',456,0,0),(32581,7139,6,316,0,'213.97.245.163',1180423699,1,0,0,1,1,0,'','EasyPreview en 32bits','Hemos actualizado una aplicación al último build de FW y todo funciona bien excepto EasyPreview. De momento hemos resuelto el problema reemplazando la clase TPrinter con una de una versión antigua basada en WMF.\nHemos tratado de contactar a Tim para una solución pero no hemos obtenido respuesta. \nAlguien tiene o tuvo el mismo problema?\n\nSaludos,\n\nCarlos.','',0,'gIA=','1sgl9r89',1,0,'',316,0,0),(32582,7097,6,316,0,'213.97.245.163',1180425210,1,0,0,1,1,0,'','','Antonio,\n\nEstoy tratando de imprimir un formulario y rellenar los campos. El formulario lo tengo como Bitmap, de tamaño A4, monocromo, y los campos los imprimo usando CmSay()\nEmproblema es que segun la impresora la posición de impresión varía, tanto del bitmap como de los textos.\nHay forma de controlar eso? Tal vez sea cuestión de márgenes, pero no he encontrado nada al respecto, y aun así me deberían coincidir.\n\nUn saludo,\n\nCarlos.','',0,'gIA=','2lh88j7y',1,0,'',316,0,0),(32583,7129,7,106,0,'85.34.123.173',1180425887,1,0,1,1,1,1,'','','[quote:jyxyn11l]Lo importante es que use Windows Mobile 2003 ó 2005, y que tenga 128 megas de memoria, a ser posible, aunque también funciona con sólo 64. \n[/quote:jyxyn11l]\n\no que tenga Windows CE, que funciona correctamente. (todos los modelos con los que trabajamos nosotros vienen con Windows CE), con 64 Mb. de memoria.\n\n\nSaludos','',0,'gA==','jyxyn11l',1,0,'',106,0,0),(32584,7110,3,177,0,'194.30.62.6',1180425933,1,0,1,1,1,0,'','','Hi Norbert,\n\nif you use the program without service, do you have the error ?\n\nBest regards,\n\nFelix','',0,'gA==','3ivo2qfc',1,0,'',177,0,0),(32585,7029,6,316,0,'213.97.245.163',1180432656,1,0,0,1,1,0,'','','Muy buena la solución de Carlos Vargas. Un solo detalle: no se puede tener una única Cm2Pix porque las resoluciones verticales y horizontales son diferentes. Cero que debe estar diferenciada Cm2PixH y Cm2PixV.\n\nSaludos,\n\nCarlos','',0,'gA==','1srv23y4',1,0,'',316,0,0),(32586,7029,6,316,0,'213.97.245.163',1180434017,1,0,0,1,1,0,'','','Antonio,\n\nHe aplicado la correción de Carlos Vargas a todas las impresiones y salen *perfectas*. Eso incluye a 3 impresoras laser y un Pdf generado con PdfCreator.\n\nMi recomendación para el parche al método Cmtr2Pix.\n\nSaludos,\n\nCarlos.','',0,'gA==','5gmk6bx2',1,0,'',316,0,0),(32587,860,6,294,0,'201.250.192.147',1180434843,1,0,1,1,1,1,'','','Hola dbzap:\nSi. Las impresoras fiscales tienen una ROM que guarda todos los documentos emitidos. Hay que comunicarse con ella a travez del puerto serial y tiene un protocolo especial. La que yo quiero utilizar en particular es una CASIO HASAR 715f. Viene con una libreria .DLL pero me da un error al querer comunicarme con ella. La DLL es WINFIS32.DLL. Alguna pista???','',0,'gA==','hhas8sqp',1,0,'',294,0,0),(32588,7140,3,904,0,'196.25.255.194',1180435311,1,0,1,1,1,1,'','TCBROWSE vs TWBROWSE','I am using TCBROWSE as follows:\n\n[code:34tw7vci]REDEFINE COLUMN BROWSE oListBox ID 40 OF oDlg_Search UPDATE ON DblClick &#40; lResult &#58;= &#46;T&#46;, oDlg_Search&#58;End&#40;&#41; &#41;\n   oListBox&#58;lLogicDrop &#58;= &#46;T&#46;\n   oListBox&#58;lMChange &#58;= &#46;F&#46;\n   oListBox&#58;nFreeze &#58;= 2\n   oListBox&#58;hBmpCursor &#58;= LoadBitmap&#40; GetResources&#40;&#41;, &quot;Finger&quot; &#41;\n     oListBox&#58;cAlias = cAlias\n     ADD COLUMN TO BROWSE oListBox DATA RECNO&#40;&#41; SIZE 30 NOBAR CENTER HEADER &quot;Rec&quot; \n     ADD TO BROWSE oListBox DATA COMPANY HEADER &quot;Company&quot; OEM ALIGN LEFT WIDTH 100 PIXELS\n   ADD TO BROWSE oListBox DATA SURNAME HEADER &quot;Contact&quot; OEM ALIGN LEFT WIDTH 100 PIXELS\n   ADD TO BROWSE oListBox DATA TEL1 HEADER &quot;Tel&quot; OEM ALIGN LEFT WIDTH 100 PIXELS[/code:34tw7vci]\n\nI am unable to resize the columns.  Should I be using TWBROWSE class? Is it better?','',0,'AIA=','34tw7vci',1,0,'',904,0,0),(32589,7110,3,308,0,'84.148.18.233',1180436305,1,0,1,1,1,0,'','','[quote=&quot;Baxajaun&quot;:1ss2kat1]Hi Norbert,\n\nif you use the program without service, do you have the error ?\n\nBest regards,\n\nFelix[/quote:1ss2kat1]\n\nDear Felix,\n\nno, the Program works many years without errors. Now i will switch it to an service, and the todbc:new brings an error -1\n ???\n\ni have read antonios mail about \".. prg to an service..\". it works fine.\nbut only the odbc brings an error. now i will test ADO.\n\nRegards, Norbert','',0,'gA==','1ss2kat1',1,0,'',308,0,0),(32590,7140,3,2,0,'87.218.146.182',1180437281,1,0,1,1,1,1,'','','Ollie,\n\n&gt; oListBox:nFreeze := 2\n\nAren\'t you able to resize from column 3 on ?','',0,'gA==','2q9ntbxa',1,0,'',2,0,0),(32591,6386,6,596,0,'85.62.69.206',1180438109,1,0,1,1,1,1,'','','Resulta que las FuncKyFTP tiene un metodo llamado GET (en el protocolo FTP es para coger ficheros).\nResulta que al compilar con FWH 7.5 y su xHarbour 0.99.71 pues me da el error tipico de PCODE...\nEntonces tengo que renombrar el metodo GET de TOleAuto a _GET para que no \"moleste\" y recompilar la LIB.\n\nAlgun fichero BAT para recompilar win32ole.prg (TOleAuto) con el xHarbour de la FWH 7.5\n\nGracias.','',0,'gA==','1fw0phfp',1,0,'',596,0,0),(32592,860,6,264,0,'200.91.3.10',1180441627,1,0,1,1,1,1,'','','ni una pista, el drama nuestro es una EPSON\nY tendremos que darle con VB contra un OCX...\nSerá !!','',0,'gA==','2njhjpl9',1,0,'',264,0,0),(32593,6386,6,2,0,'87.218.146.182',1180444943,1,0,1,1,1,1,'','','Solo tienes que llamar a harbour.exe /n /Ic:\\xharbour\\include win32ole.prg\n\ny bcc32 -c -Ic:\\xharbour\\include win32ole.c','',0,'gA==','3ln0xozw',1,0,'',2,0,0),(32594,6386,6,596,0,'85.62.69.206',1180447250,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:29njlbpc]Solo tienes que llamar a harbour.exe /n /Ic:\\xharbour\\include win32ole.prg\ny bcc32 -c -Ic:\\xharbour\\include win32ole.c[/quote:29njlbpc]\nEn cuantas el codigo fuente pasa por el [b:29njlbpc]#pragma ENDDUMP[/b:29njlbpc] a partir de la linea 153... con  errores de este tipo:\n\n[code:29njlbpc]win32ole&#46;prg&#40;153&#41; Error E0030  Syntax error&#58; &quot;parse error at \'S_PSYM_NEW\'&quot;\nwin32ole&#46;prg&#40;158&#41; Error E0030  Syntax error&#58; &quot;parse error at \'S_PSYM_VTARRAYWRAPPER\'&quot;\nwin32ole&#46;prg&#40;163&#41; Error E0061  Illegal character \'&#46;\'&#46;\nwin32ole&#46;prg&#40;166&#41; Error E0030  Syntax error&#58; &quot;parse error at \'VARIANTINIT\'&quot;\nwin32ole&#46;prg&#40;167&#41; Error E0030  Syntax error&#58; &quot;parse error at \'&#125;\'&quot;\nwin32ole&#46;prg&#40;172&#41; Error E0030  Syntax error&#58; &quot;parse error at \'FUNCTION\'&quot;\nwin32ole&#46;prg&#40;180&#41; Error E0030  Syntax error&#58; &quot;parse error at \'FUNCTION\'&quot;\nwin32ole&#46;prg&#40;190&#41; Error E0030  Syntax error&#58; &quot;parse error at \'FUNCTION\'&quot;\netc&#46;&#46;&#46;[/code:29njlbpc]\n\nSin embargo compilando con xharbour 0.99.70 compila perfectamente con el AjMake.','',0,'wIA=','29njlbpc',1,0,'',596,0,0),(32595,7140,3,904,0,'198.54.202.214',1180452174,1,0,1,1,1,1,'','','Correct, I cannot resize any.  (Even if I remove the line:\n\noListBox:nFreeze := 2 \n\naltogether.','',0,'wIA=','2daxqa6y',1,0,'',904,0,0),(32596,7140,3,6,0,'87.16.223.74',1180452742,1,0,1,1,1,1,'','Re: TCBROWSE vs TWBROWSE','[quote=&quot;Ollie&quot;:394a5uz5]oListBox:lMChange := .F.[/quote:394a5uz5]\n\noListBox:lMChange := .T.\n\nor just remove that line (lMChange is .T. by default).\n\nEMG','',0,'gA==','394a5uz5',1,0,'',6,0,0),(32597,6011,6,596,0,'85.62.69.206',1180453070,1,0,1,1,1,1,'','','¿ Alguna clase TELNET ?','',0,'gA==','1xafhyue',1,0,'',596,0,0),(32598,7140,3,904,0,'198.54.202.214',1180454791,1,0,1,1,1,1,'','','Thanks, I can re-size the columns now.\n\nBut now I have a \'finger\' cursor when I pause the mouse over the column headers. \n\nCan I remove it, or \'do something\' useful with it - what was it intended for?','',0,'gA==','3sz7hvlb',1,0,'',904,0,0),(32599,7029,6,110,0,'165.98.142.250',1180456247,1,0,1,1,1,1,'','','Carlos me alegro de que te sirviera, me podria explicar con mas detalle\nlos de la resolucion <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nes que ando un poco atontado estos dias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'gA==','2vechi4b',1,0,'',110,0,0),(32600,7140,3,2,0,'87.218.146.20',1180456605,1,0,1,1,1,1,'','','Ollie,\n\nYou can have an \"Action\" to be executed for each column when the column header is clicked. Use the clause ... ACTION &lt;uAction1,...&gt;','',0,'gA==','1neuwk35',1,0,'',2,0,0),(32601,7029,6,110,0,'165.98.142.250',1180457470,1,0,1,1,1,1,'','','Carlos \nYa, entendi <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPodrias mostrar la modificacion que has hecho?','',0,'gA==','1k7211kh',1,0,'',110,0,0),(32602,7140,3,904,0,'196.25.255.246',1180457828,1,0,1,1,1,1,'','','And if I don\'t want to use the ACTION, can I \'remove\' the \'finger\' cursor?','',0,'gA==','15fbxa22',1,0,'',904,0,0),(32603,7140,3,2,0,'87.218.146.20',1180458793,1,0,1,1,1,1,'','','Ollie,\n\nIn Class TCBrowse Method MouseMove() comment out this CursorHand() call:\n[code:341q2ywj]\n                  if AScan&#40; &#58;&#58;GetColSizes&#40;&#41;,;\n                       &#123; | nColumn | nColPixPos += nColumn,;\n                       nColPix &gt;= nColPixPos - 2 &#46;and&#46; ;\n                       nColPix &lt;= nColPixPos + 2 &#125;, &#58;&#58;nColPos &#41; != 0\n                     CursorWE&#40;&#41;\n                  else\n                     CursorHand&#40;&#41;\n                  endif\n[/code:341q2ywj]','',0,'AIA=','341q2ywj',1,0,'',2,0,0),(32604,7141,6,959,0,'201.58.62.230',1180464756,1,0,1,1,1,0,'','Utilização de visual debugger','Ao compilar meu programa com xbuildw -b -all, me sai el seguinte error :\n\nxLINK: fatal error: Internal error: write_executable_image.\n\n   Qualquer ajuda é bem vinda.\n\n   Gracias\n\n\n   Mário Saviotti\n\n   xHB 99.70  FWH 7.4','',0,'AIA=','1vdzb04r',1,0,'',959,0,0),(32605,7142,3,904,0,'198.54.202.250',1180465070,1,0,1,1,1,1,'','Assigning columns to listbox programmatically','Is there anything wrong with the way I have created the columns at runtime?\n\nAnd how do I remove these columns and replace them with others?  I want to change the columns in the listbox when the user changes the database order for example.\n\n[code:4dwuqteh]     DEFINE COLUMN BROWSE oListBox ID 40 OF oDlg_Search UPDATE ON DblClick &#40; lResult &#58;= &#46;T&#46;, oDlg_Search&#58;End&#40;&#41; &#41;\n         oListBox&#58;cALIAS = cALIAS\n         aFlds &#58;= &#123;&quot;COMPANY&quot;,&quot;SURNAME&quot;,&quot;FIRSTNAME&quot;,&quot;TEL1&quot;&#125;\n         aTitles &#58;= &#123;&quot;Company&quot;,&quot;Surname&quot;,&quot;FIRSTNAME&quot;,&quot;Telephone&quot;&#125;\n         aWidths &#58;= &#123;90,100,90,100&#125;\n\n      FOR i &#58;= 1 TO LEN&#40; aFlds &#41;\n         cTemp &#58;= aFlds&#91; i &#93;\n         ADD TO BROWSE oListBox DATA &amp;cTemp HEADER aTitles&#91; i &#93; OEM ALIGN LEFT WIDTH aWidths&#91; i &#93; PIXELS\n      NEXT\n[/code:4dwuqteh]','',0,'AIA=','4dwuqteh',1,0,'',904,0,0),(32606,7143,19,959,0,'201.58.62.230',1180465398,1,0,1,1,1,0,'','Parcerias - Off Topic','Pessoal, desculpe pelo off topic :\n\n    Com a concorrência atual e no mundo competitivo em que vivemos, aqui no Brasil as empresas estão se fortalecendo realizando parcerias.   \n    Diante disto venho através deste tópico, colocar uma idéia para realizarmos parcerias entre os nossos produtos entre Brasil x Espanha x México, etc..., \n    Minha empresa com 11 Anos de mercado, produz software de Gestão, se alguém interessar em comercializar os softwares em seu Pais ou tiver softwares, não concorrentes para comercializar no Brasil, estamos abertos a parcerias.\n\n   Gracias.\n \n    Mário Saviotti Junior\n    Byte Software e Cons. Ltda\n    <!-- w --><a class=\"postlink\" href=\"http://www.bytesoftware.com.br\">www.bytesoftware.com.br</a><!-- w -->\n    <!-- e --><a href=\"mailto:byte@bytesoftware.com.br\">byte@bytesoftware.com.br</a><!-- e -->','',0,'AIA=','24aik835',1,0,'',959,0,0),(32607,7144,6,103,0,'201.8.73.79',1180467273,1,0,1,1,1,1,'','TIMER en dialogs','Hola a todos,\n\n\n     Estoy con una duda: ¿Un timer puede funcionar solamente con una DIALOG sin tener una WINDOW de fondo? Es que necesito hacer funcionar un TIMER en una DIALOG solamente y no esta funcionando. ¿Si no funciona que debo hacer?\n\nGracias por adelantado','',0,'AIA=','1aqi52eh',1,0,'',103,0,0),(32608,7144,6,103,0,'201.8.73.79',1180468396,1,0,1,1,1,1,'','','Esta arreglado, gracias.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Me olvidaba de crear el timer y activarlo en el on init. Yo estaba poniendo solamente la activación.\n\nSaludos,','',0,'AIA=','1my799r1',1,0,'',103,0,0),(32609,7141,6,2,0,'87.218.146.20',1180468425,1,0,1,1,1,1,'','','Mário,\n\nParece un error específico de xharbour comercial. Lo idóneo es que lo consultes en el soporte técnico de xharbour comercial','',0,'AIA=','1g42ogmr',1,0,'',2,0,0),(32610,7141,6,959,0,'201.58.62.230',1180470696,1,0,1,1,1,0,'','','Antonio,\n\n  Gracias,\n\n\n  Mário','',0,'AIA=','1p79kla4',1,0,'',959,0,0),(32611,7097,6,1063,0,'200.111.3.104',1180473670,1,0,1,1,1,0,'','','Gracias por la pronta respuesta, el cmsay no funciona con el tdosprn, ademas el nuevo tdosprn si funciona bien pero es para impresoras graficas, lo que se utiliza aca son impresoras matriciales para imprimir facturas en tamaño normal y condensado, todo va bien en la tabulacionde estas impresora por ejemplo la LX-300+, LX-880, FX-1180, FX-1190 estas son impresoras normales de matriz pero el problema se sucita cuando imprimo en la LQ-2080 LQ 2090 que tambien son de matriz pero son graficas, no se porque motivos si en Clipper en D.o.s.  no hay diferencia pero aca si, los margenes son distintos entre una impresora de matriz normal y una matriz grafica, para solucionar este problema tuve que hacer dos programas iguales para cuadrarlas.\n\nEsto no es lo normal pero no he podido encontrar la solucion a esto, espero que alguien me pueda ayudar','',0,'AIA=','bp9f93za',1,0,'',1063,0,0),(32612,7142,3,36,0,'200.113.56.235',1180473766,1,0,1,1,1,1,'','','Prueba con esto?\n\n[code:11d95pce]FOR i &#58;= 1 TO LEN&#40; aFlds &#41;\n      MakeBrow&#40; aFld, oListBox, aTitle, aWidths, i &#41;\nNEXT i\n\n//BLABLA\n\nfunction MakeBrow&#40; aFld, oLisBox, aTitle, aWidths, i &#41;\nlocal cTemp &#58;= aFlds&#91; i &#93;\n\n        ADD TO BROWSE oListBox DATA &amp;cTemp HEADER aTitles&#91; i &#93; OEM ALIGN LEFT WIDTH aWidths&#91; i &#93; PIXELS\n\nreturn  nil\n\n[/code:11d95pce]','',0,'AIA=','11d95pce',1,0,'',36,0,0),(32613,7136,7,264,0,'200.91.3.10',1180475399,1,0,1,1,1,1,'','','Antonio.\nY cuales serian los programas suministrados ?\n( que conste que yo creo en FW [+ de 7 años como usuario registrado ], no es desconfianza... solo que se ve demasiado ....como decirlo..... oculto.... )\n\nSaludos','',0,'','vc9n35al',1,0,'',264,0,0),(32614,7136,7,2,0,'87.218.146.20',1180476004,1,0,1,1,1,1,'','','Julio,\n\nFWPPC es la librería FW para Pocket PC. Además proporcionamos Harbour para Pocket PC, el compilador de C para Pocket PC, y el emulador para Pocket PC. Estos tres últimos son gratuitos y los proporcionamos para comodidad en localizarlos','',0,'','1m7mcs2b',1,0,'',2,0,0),(32615,7145,6,64,0,'201.72.124.2',1180477126,1,0,1,0,1,1,'','Manual ADS - Rene Flores','Amigo, cuál el precio su manual? \n\ncual la forma del pago?\n\nGracias.\n\n<!-- e --><a href=\"mailto:adm@polynorte.com.br\">adm@polynorte.com.br</a><!-- e -->','',0,'','3u6bptws',1,0,'',64,0,0),(32616,7136,7,264,0,'200.91.3.10',1180478163,1,0,1,1,1,1,'','','Ok Maestro.\nEsperaré la actualizacion de nuestro FTDN y pediré le incorporen FWPPC\nGracias de antemano.\nSaludos','',0,'','1tdpdzvq',1,0,'',264,0,0),(32618,7029,6,376,0,'201.230.199.44',1180480542,1,0,1,1,1,1,'','','Carlos\n\n¿Cómo aplicaste las correcciones de Carlos Vargas? ¿Puedes compartir tu código con estos \"informáticos\"?\n\nSaludos\n\n[quote=&quot;Carlos Mora&quot;:3qe8l3og]Antonio,\n\nHe aplicado la correción de Carlos Vargas a todas las impresiones y salen *perfectas*. Eso incluye a 3 impresoras laser y un Pdf generado con PdfCreator.\n\nMi recomendación para el parche al método Cmtr2Pix.\n\nSaludos,\n\nCarlos.[/quote:3qe8l3og]','',0,'gA==','3qe8l3og',1,0,'',376,0,0),(32620,6736,6,1035,0,'201.228.115.67',1180501925,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!\n\nJose Luis me puedes pasar los stx o lo que utilices en EditPlus yo estoy muy famirializado con ese programa y me gustaria usarlo para FiveWin\n\nPara los demas! bueno yo utilizo algo parecido al Total Commander que ustedes llaman !! pero se llama Text Search y es del Norton Utilities 6.0 de 1991! Trabaja bajo consola! pero es lo mejor!!!','',0,'gA==','2rky6ygy',1,0,'',1035,0,0),(32621,860,6,1035,0,'201.228.115.67',1180503397,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!!\n\nNosotros aqui en Venezuela tubimos un gran drama con la Epson!!\n\nYa que habiamos hecho una interfase y al cambiar la placa base de la impresora con un nuevo rom lo tuvimos que hacer todo de nuevo!!!\n\nEl hecho es que supuestamente esta nueva placa basa iba para toda latinoamerica!!!\n\nSi es asi amigo chileno nosotros hicimos una nueva interfas con ayuda de epson en donde un ejecutable de consola interpreta un sencillo lenguaje de marcado tipo HTML que pasa los parametros a la impresora fiscal sin ningun problema!!!\n\nY nos fue muy bien!! bueno ya saben que al ejecutar un programa en la consola  WAITRUN(\"Ejecutable.EXE\",0) lo hace totalmente transparente al usuario!! asi que si quieres averigua cual es el rom que usas alla para ver si te podemos ayudar','',0,'gA==','lf2tflz8',1,0,'',1035,0,0),(32622,7112,6,1035,0,'201.228.115.67',1180503808,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!!\n\nBueno yo en particular uso Febotti emal Commander hace todo lo necesario y puedes utilizar formato rtf o html para enviar el contetido del correo \n\nPero es solo POP3 y trabaja bajo consola! me gustaria saber si hay algo igual pero SMTP y que tal es!!!','',0,'gA==','2ylgck2k',1,0,'',1035,0,0),(32623,7142,3,904,0,'196.25.255.246',1180505761,1,0,1,1,1,1,'','','Hi, maybe I was misunderstood.  The code DOES WORK, I am just not sure if it is \'good\' programming practice to use a &amp;macro like this.  If its ok, I will leave it as it is because it works.\n\nWhat I still do need to know is how to change the columns that are displayed.  E.g. When the user changes the Database order from SURNAME to COMPANY, I want the columns shown to be different.','',0,'gA==','2rf1jgz2',1,0,'',904,0,0),(32624,6715,6,1035,0,'201.228.115.67',1180506219,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!!\n\n\nBueno realmente por lo que mas o menos te entiendo creo que te refieres a algo como esto!!\n\n[code:31j59rzx]\n#INCLUDE &quot;FIVEWIN&#46;CH&quot;\n\nPROCE MAIN&#40;&#41;\n   LOCAL oDlg,oAdj,cAdj&#58;=SPACE&#40;30&#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Abrir Imagen&quot; \n\n   @ 1,1 SAY &quot;Ubicación del Archivo &#58;&quot;\n\n   @ 2,1 BMPGET oAdj VAR cAdj NAME &quot;BITMAPS\\IMPORTAR&#46;BMP&quot;;\n			  ACTION &#40;cFile&#58;=cGetFile32&#40;&quot;Todos los Archivos de Imagen &#40;*&#46;*&#41; |*&#46;*|Mapa de Bits &#40;*&#46;BMP&#41; |*&#46;bmp|;\n			  JPGE &#40;*&#46;JPG,*&#46;JPGE,*&#46;JPE,*&#46;JFIF&#41;|*&#46;JPG;*&#46;JPGE;*&#46;JPE;*&#46;JFIF|GIF &#40;*&#46;GIF&#41;|*&#46;gif|PNG &#40;*&#46;PNG&#41;|*&#46;png&quot;,;\n                    &quot; Seleccionar Archivo para Abrir&quot;,1,cFilePath&#40;cAdj&#41;,&#46;f&#46;,&#46;t&#46;&#41;,;\n			  cAdj&#58;=IIF&#40;!EMPTY&#40;cFile&#41;,cFile,cAdj&#41;,;\n			  oAdj   &#58;Refresh&#40;&#41;&#41;\n\n   @ 3,1 BUTTON &quot;Abrir&quot; ACTION ShellExecute&#40; 0, &quot;open&quot;, cAdj&#41;\n   @ 3,8 BUTTON &quot;Cerrar&quot; ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n  \n\nRETURN\n[/code:31j59rzx]\n\nNecesitas una imagen para el BMPGET!!!','',0,'AIA=','31j59rzx',1,0,'',1035,0,0),(32625,6736,6,838,0,'80.34.222.112',1180507952,1,0,1,1,1,0,'','','Hola Daniel,\nHe intentado enviarte lo que me pides, pero si intento utilizar mensajes privados, pone que estan desactivados en éste foro, y no se tu dirección de correo.\nPon tu direccion de correo y te los envío\n\nSaludos\n\nJose Luis','',0,'AIA=','3p63ov3h',1,0,'',838,0,0),(32626,7142,3,2,0,'87.218.146.20',1180508171,1,0,1,1,1,1,'','','Ollie,\n\n&gt; I want the columns shown to be different\n\nYou just need to refresh the browse oBrowse:Refresh()','',0,'AIA=','hd4uahox',1,0,'',2,0,0),(32627,7142,3,904,0,'198.54.202.210',1180509055,1,0,1,1,1,1,'','','Ok, I get that, but how do I REMOVE the columns I don\'t want, so I can add new columns?','',0,'AIA=','3iylc8v3',1,0,'',904,0,0),(32628,6011,6,456,0,'217.127.39.57',1180509888,1,0,1,1,1,1,'','','Hola JM, tengo una implementacion muy basica para Telnet, si no necesitas emulacion de terminal VT100 ,VTxxx puede valerte, sino tendrias que desarrollar el modulo para interpretar las secuencias de escape. \nMandame un privado si te interesa lo que tengo hecho, soy Gabriel de Mallorca.\n\nUn saludo','',0,'AIA=','2ytjmzaf',1,0,'',456,0,0),(32629,7145,6,138,0,'212.145.203.73',1180510423,1,0,1,1,1,1,'','','Nosotros tenemos un acuerdo con Extended Systems con respecto al manual, ya que es un trabajo de nosotros para apoyar el producto.\n\nEl manual es gratuito, pero solo es para las personas que han comprado servidores ADS remotos.\n\nsi tienes un server ADS remoto, ponten en contacto conmigo y te indico como conseguir el manual sin costo.','',0,'AIA=','31owoejb',1,0,'',138,0,0),(32630,6736,6,1035,0,'201.228.115.67',1180510531,1,0,1,1,1,1,'','','Muchas Gracias Jose Luis\n\nSi mi correo es <!-- e --><a href=\"mailto:Danielr.venezuela@gmail.com\">Danielr.venezuela@gmail.com</a><!-- e -->\n\nTe lo agradesco de verdad!!\n\nYa vi a total commander! jejeje lo de Text Search solo busca texto en Ficheros, unidades de disco o espacio de ficheros borrados!! Total commader es igualito a Norton Commander! jeje!!\n\nGracias por todo!!','',0,'AIA=','3w3w6yoh',1,0,'',1035,0,0),(32631,7147,7,57,0,'80.58.205.34',1180512006,1,0,1,1,1,1,'','Error con TPages','Antonio\nEjecuto el ejemplo testpages y genera el siguiente error:\n\nSymbol item expected from hb_vmDo()\n\nHa cambiado algo??\n\nSaludos','',0,'AIA=','3oj51lbh',1,0,'',57,0,0),(32632,7029,6,316,0,'213.97.245.163',1180512699,1,0,1,1,1,0,'','','Hola gente,\n\nno he modificado la clase tprinter, sino que he calculado las constantes necesarias para transformar centímetros a pixeles, he cambiado los :CmSay por :Says y en el cálculo de dimensiones de los bitmaps que están en centímetros, multiplico todo por las constantes.\n[code:2xg8xjr6]\n      nKY&#58;= Cm2PixY&#40;oPrint, 1&#46;0&#41;\n      nKX&#58;= Cm2PixX&#40;oPrint, 1&#46;0&#41;\n      oPrint&#58;SayBitmap&#40; 0, 0, &quot;fondo&#46;bmp&quot;, nKX * 21, nKY * 29&#46;7 &#41;\n      oPrint&#58;Say&#40; nKY* 7&#46;4, nKX* 4&#46;0, cNombre, oFont &#41;\n      oPrint&#58;Say&#40; nKY*10&#46;1, nKX* 4&#46;0, cDatReg, oFont &#41;\n      oPrint&#58;Say&#40; nKY*12&#46;7, nKX* 5&#46;0, Empresas-&gt;CIF, oFont &#41;\n      oPrint&#58;Say&#40; nKY*12&#46;7, nKX*13&#46;7, Str&#40; Year&#40; Empresas-&gt;Fecha &#41;, 4 &#41;, oFont &#41;\n\nSTATIC FUNCTION Cm2PixX&#40; Self, nCm &#41;\nRETURN nCm * 10 * &#58;&#58;nHorzRes&#40;&#41; / &#58;&#58;nHorzSize&#40;&#41;\n\nSTATIC FUNCTION Cm2PixY&#40; Self, nCm &#41;\nRETURN nCm * 10 * &#58;&#58;nVertRes&#40;&#41; / &#58;&#58;nVertSize&#40;&#41;\n\n[/code:2xg8xjr6]\n\nCreo que el código es bastante claro y sencillo. Si se analiza los valores de resolucion y tamaño para varias impresoras se ven diferencias sutiles, pero por lo visto son significativas.\n\nSi alguien hace experiencias con el tema sería importante que las comparta, a ver si podemos dar una solucion definitiva del tema.\n\nCarlos.','',0,'AIA=','2xg8xjr6',1,1180533525,'',316,1,0),(32633,7147,7,2,0,'87.218.146.20',1180513234,1,0,1,1,1,1,'','','Toni,\n\nSólo hay que quitar esta línea del ejemplo:\n\n            ON INIT oPags:InitDialogs() ;\n\ny ya funciona bien','',0,'AIA=','1kpwcsn8',1,0,'',2,0,0),(32634,7142,3,2,0,'87.218.146.20',1180513618,1,0,1,1,1,1,'','','Ollie,\n\noBrowse:aColumns := {}\n\n... add columns','',0,'AIA=','3kogdoy4',1,0,'',2,0,0),(32635,6011,6,596,0,'85.62.69.206',1180514396,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:3sh8en08]...tengo una implementacion muy basica para Telnet...[/quote:3sh8en08]\nIgual me sirve.\n\nNo quiero un cliente telnet a lo bestia sino que me permita utilizar comandos.\nPor ejemplo quiero entrar en una maquina Sun con Solaris 8 y pedirle cuales son sus interfaces de red.\nPara ello me basta con ejecutar el comando [b:3sh8en08]ifconfig -a &gt; /tmp/Interfaces.txt[/b:3sh8en08]\nPosteriormente con FTP me traigo el fichero \"/tmp/Interfaces.txt\".\nQuien dice ese comando pues cualquier comando de Unix-Solaris 8.\nLas posibilidades se me antojan infinitas... tirar procesos, arrancar servicios... etc ...\n\nMuchas gracias por tu ofrecimiento.','',0,'wA==','3sh8en08',1,0,'',596,0,0),(32636,7148,20,29,0,'88.149.162.200',1180516745,1,0,1,1,1,0,'','Cancellare il buffer di tastiera','Salve,\nesiste una funzione per cancellare il buffer di tastiera ?\n\nIn pratica sto gestendo l\'inserimento automatico tramite codice a barre: il cliente passa il lettore sul codice quando si trova su una get e si apre automaticamente un\'altra finestra con i dati collegati a quel codice.\n\nIl problema è che alcuni lettori (a seconda di come configurati) aggiungono un invio al termine della stringa del codice a barre, così facendo il tasto di invio mi chiude immediatamente la finestra che apro leggendo il codice a barre perché il focus è direttamente sul pulsante \"Ok\".\n\nQualche idea ?\n\nGrazie\n\nMarco','',0,'wA==','2yxbhhuy',1,0,'',29,0,0),(32637,7147,7,57,0,'80.58.205.34',1180518676,1,0,1,1,1,1,'','','Ok\nGracias Antonio <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'wA==','1bj956ot',1,0,'',57,0,0),(32638,7149,3,29,0,'88.149.162.200',1180519374,1,0,1,1,1,0,'','Error using the &quot;ON CHANGE&quot; clause','Hi,\nI have the following error using the \"ON CHANGE\" in a GET.\nThis appairs only with the FWH April 2007 build,\nwith the 2006\'s FWH versions all runs fine.\n\nAny ideas ?\n\nThanks\n\nMarco Turco\n\n-------------------\n\nApplication\n===========\n   Path and name: K:\\pigc\\PIGC.Exe (32 bits)\n   Size: 7,340,072 bytes\n   Time from start: 0 hours 0 mins 15 secs \n   Error occurred at: 30/05/07, 11:59:01\n   Error description: Error BASE/1004  Message not found: TDIALOG:GONEXTCONTROL\n\nStack Calls\n===========\n   Called from:  =&gt; TDIALOG:ERROR(179)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TDIALOG:MSGNOTFOUND(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:GONEXTCONTROL(167)\n   Called from: TGET.PRG =&gt; TGET:KEYCHAR(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: TGET.PRG =&gt; TGET:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: MODSCR13.PRG =&gt; DLLSCR15(1500)\n   Called from: MODSCR01.PRG =&gt; DLLSCR(50)\n   Called from: MOD403I.PRG =&gt; MOD403I(142)\n   Called from: MOD0.PRG =&gt; (b)MOD0(201)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: MOD0.PRG =&gt; MOD0(268)\n   Called from: PIGC.PRG =&gt; START(774)\n\nSystem\n======\n   CPU type:         Intel(R) Pentium(R) M processor 1400MHz 600 Mhz\n   Hardware memory: 2031 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 77\n      1 \n      2 Menu Avvio\n      3 CiceroUIWndFrame\n      4 VolumeMeter\n      5 SysFader\n      6 PCSuite Preferences\n      7 PCSuite Tray\n      8 TF_FloatingLangBar_WndTitle\n      9 OSD Bitmap\n     10 Gestione convocazioni e verbali (ORD.03/05/06)\n     11 PROCEDURA INTEGRATA GESTIONE CONDOMINIO 7.00\n     12 xMate - K:\\pigc\\PIGC.xhp\n     13 START2 (2)\n     14 sm - Blocco note\n     15 USB Media Module\n     16 Update\n     17 NOD32 - On-demand scanner\n     18 Event Log\n     19 Threat Log\n     20 NOD32 Scanner Logs\n     21 Quarantine\n     22 Scheduled tasks\n     23 Information\n     24 Settings\n     25 NOD32 Kernel\n     26 AMON - File system monitor\n     27 DMON - Microsoft Office document monitor\n     28 EMON - Microsoft Outlook email monitor\n     29 IMON - Internet monitor\n     30 NOD32 2.7 Control Center\n     31 Notification Wnd for RNAdmin\n     32 syntax\n     33 Editor [K:\\pigc\\CNDFLS\\FILE16.PRG]\n     34 WOWExec\n     35 Debug window K:\\pigc\\\\PIGC.Exe (0 errors, 0 warnings)\n     36 Connections Tray\n     37 MCI command handling window\n     38 Skype™ - softwarexp\n     39 Actions\n     40 {878390AD-434B-41EE-9110-49B69E4398F9}\n     41 Skype™ Extras Manager\n     42 {A3533AC8-A133-43D6-A112-361167D254CC}\n     43 ChatFormatter\n     44 ChatManager\n     45 HiddenFaxWindow\n     46 TrayIconManager\n     47 IHW2\n     48 NOD32KrnSvcWindow\n     49 C:\\Documents and Settings\\Marco Turco\\Dati applicazioni\\Skype\n     50 SkyLibEx\n     51 DDE Server Window\n     52 MPAPI\n     53 HkWndName\n     54 DataLayer\n     55 Nokia PC Suite\n     56 SerLa\n     57 Nokia PC Sync - Non connesso\n     58 AcrobatTrayIcon\n     59 PNPNOTIFICATIONRECEIVER_993B40\n     60 Misuratore alimentazione\n     61 UPnP Notification Monitor\n     62 MS_WebcheckMonitor\n     63 InCD_GUI_MAINFRAME__1A6E0D67_3515_471D_8D7D_C8E76EC0DA2A\n     64 TrayIconHandler\n     65 LaunchAp - LaunchAp\n     66 Wireless Button Status\n     67 TouchPad object helper window\n     68 Touchpad driver tray icon window\n     69 HPWU\n     70 MagiKey\n     71 Touchpad driver backward compatibility window\n     72 Touchpad driver helper window\n     73 Programma di lancio TrueSync\n     74 PictureProject Monitor\n     75 Volume State\n     76 HotkeyApp\n     77 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TDIALOG:ERROR\n     Param   1:    C    \"Message not found\"\n     Param   2:    C    \"TDIALOG\"\n     Param   3:    C    \"GONEXTCONTROL\"\n     Param   4:    N    1004\n     Local   1:    U    \n   (b)HBOBJECT:HBOBJECT\n     Param   1:    O    Class: TDIALOG\n     Param   2:    C    \"GONEXTCONTROL\"\n   TDIALOG:MSGNOTFOUND\n     Param   1:    C    \"GONEXTCONTROL\"\n   TDIALOG:GONEXTCONTROL\n     Param   1:    N    34342340\n   TGET:KEYCHAR\n     Param   1:    N    13\n     Param   2:    N    1835009\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n   TWINDOW:HANDLEEVENT\n     Param   1:    N    258\n     Param   2:    N    13\n     Param   3:    N    1835009\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    258\n     Param   2:    N    13\n     Param   3:    N    1835009\n     Local   1:    O    Class: TGET\n   TGET:HANDLEEVENT\n     Param   1:    N    258\n     Param   2:    N    13\n     Param   3:    N    1835009\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n   _FWH\n     Param   1:    N    1835009\n     Param   2:    N    258\n     Param   3:    N    13\n     Param   4:    N    1835009\n     Param   5:    N    62\n     Local   1:    O    Class: TGET\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"DIALOG_555\"\n     Param   3:    N    22611562\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .T.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    22611562\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   DLLSCR15\n   DLLSCR\n     Param   1:    N    432\n   MOD403I\n     Param   1:    N    0\n   (b)MOD0\n     Param   1:    O    Class: TBTNBMP\n   TBTNBMP:CLICK\n     Local   1:    O    Class: TBTNBMP\n   TBTNBMP:LBUTTONUP\n     Param   1:    N    15\n     Param   2:    N    19\n     Param   3:    O    Class: TBTNBMP\n     Local   1:    U    \n     Local   2:    L    .T.\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    514\n     Param   2:    N    0\n     Param   3:    N    983059\n   TBTNBMP:HANDLEEVENT\n     Param   1:    N    514\n     Param   2:    N    0\n     Param   3:    N    983059\n     Local   1:    O    Class: TBTNBMP\n   _FWH\n     Param   1:    N    983059\n     Param   2:    N    514\n     Param   3:    N    0\n     Param   4:    N    983059\n     Param   5:    N    20\n     Local   1:    O    Class: TBTNBMP\n   WINRUN\n     Param   1:    N    22611562\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    B    {|| ... }\n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MOD0\n     Local   1:    C    \"PROCEDURA INTEGRATA GESTIONE CONDOMINIO 7.00\"\n   START\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    N    5\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TMUTEX\n     5 TPRINTER\n     6 TSYSTEMINFO\n     7 TSTRUCT\n     8 TREG32\n     9 TFONT\n    10 TWINDOW\n    11 TMDIFRAME\n    12 TMENU\n    13 TMENUITEM\n    14 TCONTROL\n    15 TICON\n    16 TBRUSH\n    17 TMDICLIENT\n    18 TBAR\n    19 TRECT\n    20 TBTNBMP\n    21 TMSGBAR\n    22 TMSGITEM\n    23 TDIALOG\n    24 TBITMAP\n    25 TSAY\n    26 TURLLINK\n    27 TCURSOR\n    28 TBUTTON\n    29 TMULTIGET\n    30 TCHECKBOX\n    31 TRADMENU\n    32 TRADIO\n    33 TCOMBOBOX\n    34 TGET\n    35 GET\n    36 TCLIPGET\n    37 TSCROLLBAR\n    38 TWBROWSE\n    39 TCBROWSE\n    40 TCCOLUMN\n    41 TFOLDER\n    42 ERROR\n\nMemory Analysis\n===============\n      491 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','1pf8u18x',1,0,'',29,0,0),(32639,7149,3,2,0,'87.218.146.20',1180519608,1,0,1,1,1,1,'','','Marco,\n\nPlease download xharbour from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> and try it again','',0,'','1x26uxln',1,0,'',2,0,0),(32640,7150,6,596,0,'194.224.177.206',1180520206,1,0,1,1,1,1,'','Libreria de comunicaciones WinPcap','<!-- w --><a class=\"postlink\" href=\"http://www.WinPcap.org\">www.WinPcap.org</a><!-- w -->\n\n¿ Pues eso, alguien la ha utilizado ?\n¿ Como \"conecto\" estas DLLs ?\n¿ Algun manual en \"cristiano\" de su uso ?\netc, etc, etc...\n\nGracias.','',0,'','2hz6i812',1,0,'',596,0,0),(32641,7148,20,6,0,'87.20.230.50',1180522064,1,0,1,1,1,1,'','Re: Cancellare il buffer di tastiera','Attivare il SET CONFIRM ON?\n\nEMG','',0,'','2ualgt7x',1,0,'',6,0,0),(32642,6715,6,450,0,'200.245.0.8',1180527884,1,0,1,1,1,1,'','','Olá Daniel\n\nÉ exatamente oque estava precisando...\n\nFuncionou perfeitamente.\n\nGracias.\n\nSaludos','',0,'','17jq68jb',1,0,'',450,0,0),(32643,7029,6,103,0,'201.8.73.79',1180532607,1,0,1,1,1,1,'','','Hola Carlos Mora,\n\n    Una luz en el fin del tunel!!! Gracias por compartir tus experiencias. Voy a hacer algunos testes cambiando la TPrinter con lo que pusiste aca y si tengo algo positivo, les comento. Creo que esto es MUY importante para nosotros que tenemos clientes con distinctas impresoras, usando nuestros reportes hechos en TReport o Tprinter.\n\nSaludos','',0,'','16nqg0bo',1,0,'',103,0,0),(32644,7131,2,1072,0,'200.83.125.118',1180532952,1,0,1,1,1,0,'','','Antonio:\n\nNo he tenido respuesta al rc del dialogo que me solicitastes.\n\nFavor, por si por por no, indicame el camino a seguir.\n\nAntonio Ferrada','',0,'','1abvfsrd',1,0,'',1072,0,0),(32645,7148,20,89,0,'213.21.136.60',1180533726,1,0,1,1,1,0,'','','Puoi riconfigurare il lettore eliminando il comando invio  alla lettura .\n\nCiao MAurizio','',0,'','kcnpsavl',1,0,'',89,0,0),(32646,7151,6,456,0,'217.127.39.57',1180534047,1,0,1,1,1,1,'','Combobox con array de opc. visualizar y array valor a grabar','Existe alguna manera usando un combobox, poderle definir un array de los valores que queremos grabar.\n\nDel estilo \n[code:139wbxfa]\nREDEFINE COMBOBOX oCbx VAR cVar ITEMS &#123;\'Mensual\',\'Semanal\',\'Diaria\'&#125; VALUES &#123;\'M\',\'S\',\'D\'&#125;\n[/code:139wbxfa]\nEs decir que se grabase el contenido del segundo array. \nMirando la clase, vi que si el campo o la variable es numerica, se graba la poscion del elemento seleccionado. Eso me puede servir para desarrollos propios, pero ahora estoy usando tablas ya desñadas, donde no puedo tocar las estructuras.\n\nGracias anticipadas.','',0,'AIA=','139wbxfa',1,0,'',456,0,0),(32647,7152,3,904,0,'196.25.255.250',1180535818,1,0,1,1,1,1,'','Drop down buttons?','Can I create a \'drop down\' button - I\'m not sure if this is the correct terminology.\n\nI want the user to either add a COMPANY or CONTACT PERSON, I can do this with 2 buttons :\n\n[code:1e55wrde]DEFINE BUTTON oButton1 OF oButton_Bar PROMPT &quot;Add1&quot; ACTION add_COMPANY&#40;&#41; TOOLTIP &quot;Add a new COMPANY&quot;\n\n   DEFINE BUTTON oButton2 OF oButton_Bar PROMPT &quot;Add2&quot; ACTION add_CONTACT&#40;&#41; TOOLTIP &quot;Add a new CONTACT PERSON&quot;[/code:1e55wrde]\n\n...but it would be slicker if the user could click the \'Add\' button and then get a choice of \'Add Company\' or \'Add Contact\'  (Like you can do with MENUITEM)','',0,'AIA=','1e55wrde',1,0,'',904,0,0),(32648,7153,6,73,0,'200.23.18.132',1180536605,1,0,1,1,1,0,'','error sin salir','Pues quiero, que cuando me salga un error en el sistema poder capturarlo, pero que no me aborte del sistema, sino seguir trabajando en él, existe alguna forma de poder hacerlo?\nfwh+harbour\ngracias\npaco','',0,'AIA=','1g8nx7fc',1,0,'',73,0,0),(32649,7154,6,78,0,'190.40.224.180',1180536959,1,0,1,1,1,0,'','Imagene en DBF','Hola Amigos,\nEs posible almacenar una imagen JPG en una DBF?? o en una tabla MySQL ?\n\nSalu2','',0,'AIA=','1vfn19hj',1,0,'',78,0,0),(32650,7154,6,456,0,'217.127.39.57',1180537300,1,0,1,1,1,1,'','','En un campo memo de un Dbf puedes hacerlo de la siguiente manera.\n [code:dpbymusx]//Grabar \nCampoMemo&#58;=MemoRead&#40;&quot;grafico&#46;jpg&quot;&#41; \n//Recuperar \nMemoWrit&#40;&quot;grafico&#46;jpg&quot;,CampoMemo&#41; [/code:dpbymusx]','',0,'AIA=','dpbymusx',1,0,'',456,0,0),(32651,7029,6,376,0,'190.42.35.88',1180538300,1,0,1,1,1,1,'','','Hola Kleyber\n\nSi las pruebas te salieran bien, sugiero que los compartas con el foro para ver si todos efectúan los ajustes a la clase tprinter y no tengamos que estar haciendo pruebas según las impresoras de los usuarios.\n\nSaludos\n\n[quote=&quot;Kleyber&quot;:1hvzjhex]Hola Carlos Mora,\n\n    Una luz en el fin del tunel!!! Gracias por compartir tus experiencias. Voy a hacer algunos testes cambiando la TPrinter con lo que pusiste aca y si tengo algo positivo, les comento. Creo que esto es MUY importante para nosotros que tenemos clientes con distinctas impresoras, usando nuestros reportes hechos en TReport o Tprinter.\n\nSaludos[/quote:1hvzjhex]','',0,'gA==','1hvzjhex',1,0,'',376,0,0),(32652,7129,7,850,0,'201.255.73.144',1180538683,1,0,1,1,1,0,'','','Gracias a todos por los aportes\n\nAndres','',0,'gA==','l6n2h5j1',1,0,'',850,0,0),(32653,7145,6,529,0,'200.159.199.104',1180539776,1,0,1,1,1,0,'','','Rene, i am registered user of ads 5.7 5 users, how to get the manual??\n\nthanks','',0,'gA==','2ll94wqu',1,0,'',529,0,0),(32654,7153,6,2,0,'87.218.146.20',1180539861,1,0,1,1,1,1,'','','Depende del error que sea. Algunos son recuperables y otros no.','',0,'gA==','1cixuws9',1,0,'',2,0,0),(32655,7152,3,2,0,'87.218.146.20',1180540091,1,0,1,1,1,1,'','','Ollie,\n[code:1j5uskhc]\n   MENU oMenuNew POPUP\n      MENUITEM &quot;New &amp;Company&quot; RESOURCE &quot;Company&quot;\n      MENUITEM &quot;New Contact &amp;Person&quot; RESOURCE &quot;Person&quot;\n   ENDMENU\n\n   DEFINE BUTTON OF oBar  ;\n      TOOLTIP &quot;New&quot; NOBORDER RESOURCE &quot;New&quot; MENU oMenuNew\n[/code:1j5uskhc]\nThe RESOURCEs \"Company\", \"Person\" and \"New\" are 16x16 bitmaps','',0,'AIA=','1j5uskhc',1,0,'',2,0,0),(32656,7131,2,2,0,'87.218.146.20',1180540342,1,0,1,1,1,1,'','','Una solución es que añadas un botón más \"Añadir\" y que al pulsarlo salga un nuevo dialogo para escribir los datos de un hijo, que al cerrarlo, repintas el browse con oBrowse:Refresh() y muestra esos datos.','',0,'AIA=','2on1gwat',1,0,'',2,0,0),(32657,7151,6,2,0,'87.218.146.20',1180540732,1,0,1,1,1,1,'','','Biel,\n\nPodrías usar SubStr( cVar, 1, 1 ) ó tambien, en el caso de un valor numérico SubStr( oCbx:aItems[ nVar ], 1, 1 )','',0,'','i58sk67n',1,0,'',2,0,0),(32658,7155,19,2,0,'87.218.146.20',1180542178,1,0,1,1,1,1,'','Microsoft Surface','<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/surface/\">http://www.microsoft.com/surface/</a><!-- m -->','',0,'','ki578ckg',1,0,'',2,0,0),(32659,7153,6,73,0,'200.23.18.132',1180542916,1,0,1,1,1,0,'','','aok, entiendo que si hay algunos no recuperables, pero los recuperables, como le pudiera hacer?\ngracias\npaco','',0,'','2ql5nz8a',1,0,'',73,0,0),(32660,7153,6,2,0,'87.218.146.20',1180543170,1,0,1,1,1,1,'','','Lo más simple sería usar:\n\nTRY\nCATCH\nEND\n\nRevisa en ADORDD como lo usamos\n\nLo que ocurre es que muchas veces no tiene sentido permitir que continue la ejecucíón del programa despues de determinados errores, por ejemplo, que no se pueda abrir una determinada DBF','',0,'','1cc53qq1',1,0,'',2,0,0),(32661,7131,2,1072,0,'200.83.125.118',1180544370,1,0,1,1,1,0,'','','Gracias Antonio:\n\nPense que existia una solucion directa, lo de ayadir un boton o al modificar en Nº de cargas me cargue el browse lo tenia en consideracion.\n\nPor tu ayuda, muchas gracias.\n\nAntonio Ferrada.','',0,'','1q12ws99',1,0,'',1072,0,0),(32662,7152,3,904,0,'198.54.202.250',1180544439,1,0,1,1,1,1,'','','Cool !!  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'','3bhufjfp',1,0,'',904,0,0),(32663,7029,6,110,0,'148.168.40.4',1180545728,1,0,1,1,1,1,'','','companeros \n\nHoy mismo en la tarde le doy una miradita para ver que se pude hacer.\n\nsalu2\ncarlos vargas','',0,'','2hhx59pz',1,0,'',110,0,0),(32664,860,6,264,0,'200.91.3.10',1180545884,1,0,1,1,1,1,'','','Gracias compañero\nLo revisaremos y estaremos en contacto\nSaludos','',0,'','2nqscrr4',1,0,'',264,0,0),(32665,7156,7,100,0,'201.16.38.9',1180546766,1,0,1,1,1,1,'','SET DATE TO...','Ola Amigos\n\nOs comandos SET DATE TO BRITI naum funciona em FWPPC ??\n\ntentei colocalos mais me dá erros','',0,'','1s6kxsm6',1,0,'',100,0,0),(32666,7156,7,2,0,'87.218.146.20',1180547058,1,0,1,1,1,1,'','','Que errores te da ?','',0,'','27qfyfev',1,0,'',2,0,0),(32667,7156,7,100,0,'201.16.38.9',1180548031,1,0,1,1,1,1,'','','Ola Antonio\n\nDesculpe estava colocanto assim\n\nSET DATE TO BRITI\n\nLocal xyz &lt;&lt;--- e tava dando o erro pois estava antes da declaração LOCAL\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\ncoisa de principiante  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','2jwv3n2d',1,0,'',100,0,0),(32668,7048,6,1066,0,'80.34.9.135',1180552066,1,0,1,1,1,1,'','','Despues de muchas pruebas he conseguido que funcione leer la huella, guardarla y luego compararla y saber si es o no correcta. Con una mezcla entre activex y llamadas a la libreria.\n\nEl problema es que aleatoriamente se produce un GPF.\n\nTambien sucede el GPF si cargo la DLL al principio y la descargo al finalizar. Y tambien si comento el bloque del ImageAdquired.\n\nTiene alguien otra forma de hacerlo.\n\n[code:r8bgyd6j]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nSTATIC oWnd\n\nSTATIC ttptSize\nSTATIC ttpt\n\nSTATIC lProcesandoHuella\n\nFUNCTION Main&#40;&#41;\nLocal oFingerX\n\ncStatus&#58;= Space&#40;1000&#41;\n\nlProcesandoHuella&#58;= &#46;F&#46;\n\ncAntes&#58;= Memoread&#40;&quot;LECTURA1&#46;DAT&quot;&#41;\n\nIF IsActiveX&#40;&quot;GrFingerX&#46;GrFingerXCtrl&quot;&#41;\n\n  DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n  oFingerX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;GrFingerX&#46;GrFingerXCtrl&#46;1&quot;&#41;\n\n  oWnd&#58;oClient = oFingerX\n\n  oFingerX&#58;Do&#40;&quot;Initialize&quot;&#41;\n\n  oFingerX&#58;Do&#40;&quot;CapInitialize&quot;&#41;\n\n  oFingerX&#58;bOnEvent = &#123; | event, aParams, pParams | EventInfo&#40; event, aParams, pParams, oFingerX&#41; &#125;\n\n  ACTIVATE WINDOW oWnd ON INIT IniciaHuella&#40;oFingerX&#41; VALID SalirHuella&#40;oFingerX&#41;\n\nELSE\n\n  MsgStop&#40;&quot;TIENE QUE ESTAR INSTALADO GRFINGER&quot;,&quot;ATENCION&quot;&#41;\n\nENDIF\n\nRETURN NIL\n\n***\n\nFUNCTION IniciaHuella&#40;oFingerX&#41;\n\nRETURN NIL\n\n***\n\nFUNCTION SalirHuella&#40;oFingerX&#41;\n\noFingerX&#58;Do&#40;&quot;CapStopCapture&quot;,&quot;DPMSA077A3&quot;&#41;\n\noFingerX&#58;Do&#40;&quot;CapFinalize&quot;&#41;\noFingerX&#58;Do&#40;&quot;Finalize&quot;&#41;\n\nRETURN &#40; &#46;T&#46; &#41;\n\n***\n\nFUNCTION EventInfo&#40; event, aParams, pParams, oFingerX &#41;\nLocal cEvent\n\nIF &#46;not&#46; lProcesandoHuella\n\n  cEvent &#58;= cValToChar&#40; event &#41;\n\n  IF cEvent == &quot;SensorPlug&quot; &#46;or&#46; cEvent == &quot;1&quot;\n    IF aParams&#91;1&#93; != &quot;File&quot;\n      oFingerX&#58;Do&#40;&quot;CapStartCapture&quot;,&quot;DPMSA077A3&quot;&#41;\n    ENDIF\n  ELSE\n    IF cEvent == &quot;SensorUnplug&quot;\n      oFingerX&#58;Do&#40;&quot;CapStopCapture&quot;,&quot;DPMSA077A3&quot;&#41;\n    ELSE\n      IF cEvent == &quot;FingerDown&quot; &#46;or&#46; cEvent = &quot;4&quot;\n      ELSE\n        IF cEvent == &quot;FingerUp&quot; &#46;or&#46; cEvent = &quot;3&quot;\n        ELSE\n          IF cEvent == &quot;ImageAcquired&quot; &#46;or&#46; cEvent = &quot;5&quot;\n\n            lProcesandoHuella&#58;= &#46;T&#46;\n\n            xLib&#58;= LoadLibrary&#40;&quot;GrFinger&#46;dll&quot;&#41;\n\n            GrInitialize&#40;&#41;\n\n            ttptSize = 10000\n            ttpt = SPACE&#40;10000&#41;\n\n            ret&#58;= GrExtract&#40; aParams&#91; 4&#93;, aParams&#91; 2&#93;, aParams&#91; 3&#93;, aParams&#91; 5&#93;, @ttpt, @ttptSize, 0 &#41;\n\n           * Forma 1\n           *\n           *GrIdentifyPrepare&#40; ttpt, 0 &#41;\n           *nIdScore&#58;= 0\n           *nId&#58;= GrIdentify&#40; cAntes, @nIdScore , 0 &#41;\n\n           * Forma 2\n\n            nIdScore&#58;= 0\n            nId&#58;= GrVerify&#40; ttpt , cAntes, @nIdScore , 0 &#41;\n\n            *Memowrit&#40;&quot;PRUEBA&quot;,Subs&#40;ttpt,1,ttptSize&#41;&#41;\n\n            ttpt&#58;= &quot;&quot;\n\n            oWnd&#58;cTitle&#40;Time&#40;&#41;+&quot; &quot;+Str&#40;ret&#41;+&quot; &quot;+Str&#40;nId&#41;+&quot; &quot;+Str&#40;nIdScore&#41;&#41;\n\n            SysWait&#40;1&#41;\n\n            GrFinalize&#40;&#41;\n\n            FreeLibrary&#40;xLib&#41;\n\n            lProcesandoHuella&#58;= &#46;F&#46;\n\n          ENDIF\n\n        ENDIF\n      ENDIF\n    ENDIF\n  ENDIF\n\nENDIF\n\nRETURN NIL\n\n***\n\n\nDLL32 FUNCTION GrInitialize&#40;&#41; AS LONG PASCAL FROM &quot;_GrInitialize@0&quot; LIB xLib\nDLL32 FUNCTION GrFinalize&#40;&#41; AS LONG PASCAL FROM &quot;_GrFinalize@0&quot; LIB xLib\n\n*DLL32 FUNCTION GrCapInitialize&#40;status AS LPSTR&#41; AS LONG PASCAL FROM &quot;_GrCapInitialize@4&quot; LIB xLib\n\nDLL32 FUNCTION GrExtract&#40; rawImage AS LONG, width AS LONG, height AS LONG, res AS LONG, ttpt AS LPSTR, @ttptSize AS LONG , context AS LONG &#41; AS LONG PASCAL FROM &quot;_GrExtract@28&quot; LIB xLib\n\nDLL32 FUNCTION GrIdentifyPrepare&#40; ttpt AS LPSTR, context AS LONG &#41; AS LONG PASCAL FROM &quot;_GrIdentifyPrepare@8&quot; LIB xLib\nDLL32 FUNCTION GrIdentify&#40; ttpt AS LPSTR, @Idscore AS LONG, context AS LONG &#41; AS LONG PASCAL FROM &quot;_GrIdentify@12&quot; LIB xLib\n\nDLL32 FUNCTION GrVerify&#40; ttpt AS LPSTR, qtpt AS LPSTR, @Idscore AS LONG, context AS LONG &#41; AS LONG PASCAL FROM &quot;_GrVerify@16&quot; LIB xLib\n\n[/code:r8bgyd6j]','',0,'AIA=','r8bgyd6j',1,0,'',1066,0,0),(32669,7145,6,138,0,'212.145.203.73',1180558270,1,0,1,1,1,1,'','','Sorry, due to politics of Extended ¨Systems, versions prior to 7.x are not longer supported, so we cannot deliver the manual if you don\'t have a version 7.x or 8.x','',0,'AIA=','32zwrsy8',1,0,'',138,0,0),(32670,7157,7,264,0,'200.91.3.10',1180560229,1,0,1,1,1,1,'','Comunicarse con un server o una base de datos...','En un Pc uso ODBC y en FWPPC que se usa ?\nExiste ODBC ?\nO se realiza la comunicacion por otro medio ?\nLes agradeceria ( si existen ) ejemplos y explicaciones \nSaludos a todos','',0,'AIA=','9znu2g5q',1,0,'',264,0,0),(32671,7158,2,890,0,'200.24.110.196',1180567973,1,0,1,1,1,0,'','ACERCA DEL BACKUP','Antonio\n\nUn saludo cordial para ti y para el foro\n\nEncontré en el foro Carioca un ejemplo para hacer backup y me parece bien interesante integrarlo al proyecto de aprendizaje en mi programa, de hecho lo integre y no he podido hacerlo funcionar, debo incluir alguna librería para este fin?\n\nAnexo el código:\n\nFunction Backup()\n \n   local nActual := 0,  oDlg, oMeter\n\n  	aFiles := {\"Client.DBF\"}\n	nLen   := Len(afiles)\n\n    cArchivo:=cGetFile(\'*.zip\',;\n    \"Seleccione un lugar para grabar el Backup\",,\'.\\\\\',.t.)\n\n	If Empty(AllTrim(cArchivo))\n		Return nil\n	EndIf\n\n\n	IF File(cArchivo)\n		FErase(cArchivo)\n	EndIf\n\n	DEFINE DIALOG oDlg FROM 1, 1 TO 12, 44 ;\n      TITLE \"Espere ejecutando La copia de seguridad...\"\n\n   	@ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 135, 12\n\n    ACTIVATE DIALOG oDlg CENTERED on Paint;\n    (If(Hb_ZIPFILE(cArchivo,aFiles,8,;\n    {|cFile,nPos|nActual:=nPos/nLen*100,;\n    oMeter:Set( nActual  ) }),MsgInfo(\"Realizando copia de seguridad\"),;\n    MsgInfo(\"La copia no se puede realizar\")),oDlg:End())\n\nReturn Nil\n\nO bien existe otra manera para lograrlo\n\nCordialmente \n\nJAIRO BARBOSA','',0,'AIA=','ufs291lv',1,0,'',890,0,0),(32672,493,7,264,0,'200.91.3.10',1180570317,1,0,1,1,1,1,'','','ArturSoft.\nY al final como resolviste el problema ?\nSockets , mail, o ftp ?\nYo estoy recien comenzando en frio antes de comprar maquinas y eso.\nCual es tu experiencia ? podrias comentarme o establecer alguna comunicacion si se puede via correo ( <!-- e --><a href=\"mailto:jgv@random.cl\">jgv@random.cl</a><!-- e --> ) o msn ( <!-- e --><a href=\"mailto:talquipen@hotmail.com\">talquipen@hotmail.com</a><!-- e --> )\nAgradeceria desde ya tu ayuda.\nSaludos y gracias','',0,'AIA=','3vpfy473',1,0,'',264,0,0),(32673,7159,6,78,0,'190.40.224.180',1180571033,1,0,1,1,1,0,'','JPG en codigo binario','Hola amigos.\nComo convertir un archivo jpg a binario??\n\nSalu2','',0,'AIA=','s5xbyo5f',1,0,'',78,0,0),(32674,7160,7,100,0,'201.16.38.9',1180577030,1,0,1,1,1,1,'','Pintando FOLDER','Ola amigos\n\nestou tentando colocar DEGRADE no folder mais só funciona com o ON PAINT, num funciona no ON INIT, e outra coisa é possivel o LABEL ficar TRANSPARENTE\n\n[code:yio5enne]\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, cValue, cText &#58;= &quot;Hello world!&quot;, oLbx\n\n   DEFINE WINDOW oWnd TITLE &quot;Folders&quot;\n\n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41;\n\n   oLbx &#58;= TWBrowse&#40;&#41;&#58;New&#40; 100, 100 &#41;\n   oLbx&#58;End&#40;&#41;\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      DIALOGS &quot;sub1&quot;, &quot;sub2&quot;, &quot;sub3&quot; ;\n      SIZE 225, 245\n\n   REDEFINE COMBOBOX cValue ID 100 OF oFld&#58;aDialogs&#91; 1 &#93; ;\n      ITEMS &#123; &quot;Red&quot;, &quot;Green&quot;, &quot;Blue&quot; &#125;\n\n   REDEFINE BUTTON ID 110 OF oFld&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;click&quot; &#41;\n\n   REDEFINE BUTTON ID 120 OF oFld&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; cValue &#41;\n\n   REDEFINE BUTTON ID 104 OF oFld&#58;aDialogs&#91; 2 &#93; ACTION MsgInfo&#40; &quot;Second dialog&quot; &#41;\n\n   REDEFINE GET cText ID 106 OF oFld&#58;aDialogs&#91; 2 &#93; COLOR &quot;GR+/G&quot;\n\n   REDEFINE LISTBOX oLbx FIELDS First, Last ID 10 OF oFld&#58;aDialogs&#91; 3 &#93;\n\n   oFld&#58;InitDialogs&#40;&#41; // required to initialize the resources dialogs !\n\n   ACTIVATE WINDOW oWnd ON PAINT &#40;oFld&#58;aDialogs&#91;03&#93;&#58;bPainted&#58;=&#123;||PintaTela&#40; oFld&#58;aDialogs&#91;03&#93;,CLR_GREEN , CLR_RED&#41; &#125;,;\n   										oFld&#58;aDialogs&#91;01&#93;&#58;bPainted&#58;=&#123;||PintaTela&#40; oFld&#58;aDialogs&#91;01&#93;,CLR_HBLUE   , CLR_BLACK&#41; &#125; &#41;\n\nreturn nil\n\n**-----------------------------------------------------------------------------------------------------------**\n**    Pintar o fundo de uma tela&#40; Dlg,Folder,Wnd&#41;                                                            **\n**-----------------------------------------------------------------------------------------------------------**\n**    Parametros    &#58; oDlg &#58; Onde vai pintar                                                                     **\n**                &#58; Cor1 &#58; Cor incial na parte de cima da tela                                                 **\n**                &#58; Cor2 &#58; Cor Final  na parte de baixo da tela                                                **\n**    Exemplo        &#58; oDlg&#91;1&#93;&#58;bPainted&#58;=&#123;|| PintaTela&#40;oDlg&#91;1&#93;,GetSysColor&#40;15&#41;,GetSysColor&#40;16&#41; &#41;&#125;                 **\n**-----------------------------------------------------------------------------------------------------------**\n    FUNCTION PintaTela&#40;oDlgTxt,aCor1,aCor2&#41;\n    LOCAL hWnd&#58;=oDlgTxt&#58;hWnd\n    LOCAL aRec&#58;=GetClientRect&#40;hWnd&#41;\n    LOCAL oBrush,nX,nStp&#58;=&#40;aRec&#91;3&#93;-aRec&#91;1&#93;&#41;/2\n    LOCAL nColor1&#58;=IF&#40;Empty&#40;aCor1&#41;,GetSysColor&#40;15&#41;,aCor1&#41;\n    LOCAL nColor2&#58;=IF&#40;Empty&#40;aCor2&#41;,GetSysColor&#40;15&#41;,aCor2&#41;\n    LOCAL nColorR1&#58;=nRgbRed&#40;nColor1&#41;,nColorG1&#58;=nRgbGreen&#40;nColor1&#41;,nColorB1&#58;=nRgbBlue&#40;nColor1&#41;\n    LOCAL nColorR2&#58;=nRgbRed&#40;nColor2&#41;,nColorG2&#58;=nRgbGreen&#40;nColor2&#41;,nColorB2&#58;=nRgbBlue&#40;nColor2&#41;\n    LOCAL nSomaR&#58;=ABS&#40;nColorR2-nColorR1&#41;,nSomaG&#58;=ABS&#40;nColorG2-nColorG1&#41;,nSomaB&#58;=ABS&#40;nColorB2-nColorB1&#41;\n    nSomaR&#58;=IIF&#40;nSomaR&lt;0,0,&#40;nSomaR/&#40;&#40;aRec&#91;3&#93;&#41;/2&#41;&#41;&#41;\n    nSomaG&#58;=IIF&#40;nSomaG&lt;0,0,&#40;nSomaG/&#40;&#40;aRec&#91;3&#93;&#41;/2&#41;&#41;&#41;\n    nSomaB&#58;=IIF&#40;nSomaB&lt;0,0,&#40;nSomaB/&#40;&#40;aRec&#91;3&#93;&#41;/2&#41;&#41;&#41;\n    oDlgTxt&#58;GetDC&#40;&#41;\n    aRec&#91;3&#93;&#58;=0\n    FOR nX&#58;=1 TO nStp\n        aRec&#91;3&#93;+=2\n        DEFINE BRUSH oBrush COLOR nRgb&#40;nColorR1,nColorG1,nColorB1&#41;\n        FillRect&#40;oDlgTxt&#58;hDC,aRec,oBrush&#58;hBrush&#41;\n        RELEASE BRUSH oBrush\n        aRec&#91;1&#93;+=2\n        nColorR1&#58;=IIF&#40;nColorR2&gt;=nColorR1,nColorR1+nSomaR,nColorR1-nSomaR&#41;\n        nColorG1&#58;=IIF&#40;nColorG2&gt;=nColorG1,nColorG1+nSomaG,nColorG1-nSomaG&#41;\n        nColorB1&#58;=IIF&#40;nColorB2&gt;=nColorB1,nColorB1+nSomaB,nColorB1-nSomaB&#41;\n    NEXT\n    oDlgTxt&#58;ReleaseDC&#40;&#41;\n    RETURN&#40;NIL&#41;\n\n[/code:yio5enne]\n\nveja este codigo só funciona se eu ir e voltar pro folder\n\nFico no aguardo','',0,'AIA=','yio5enne',1,0,'',100,0,0),(32676,6736,6,1035,0,'190.70.19.0',1180588110,1,0,1,1,1,1,'','','Jose Luis!!\n\nCuando puedas me lo mandas! no te vayas a olvidad de mi! jejeje!!\n\n<!-- e --><a href=\"mailto:danielr.venezuela@gmail.com\">danielr.venezuela@gmail.com</a><!-- e -->\n\nGracias!!','',0,'AIA=','14zbs7gb',1,0,'',1035,0,0),(32677,7162,3,1074,0,'82.212.61.78',1180592987,1,0,1,1,1,0,'','BTNBMP transparent','Hi,\ni have some btnbmp on folder with xp style.\nHave anyone a solution to get Btnbmp transparent.\n\ni use FWH 7.01 and Harbour alpha build 1.0\n\nThanks in advance. \nUwe','',0,'AIA=','29h2kihi',1,0,'',1074,0,0),(32678,7162,3,2,0,'87.218.146.20',1180593567,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6632\">http://fivetechsoft.com/forums/viewtopic.php?t=6632</a><!-- m -->','',0,'AIA=','z2cjd9v3',1,0,'',2,0,0),(32679,7159,6,2,0,'87.218.146.20',1180593667,1,0,1,1,1,1,'','','Willi,\n\nExplica un poco más lo que quieres hacer y para que, gracias','',0,'AIA=','23m66mmr',1,0,'',2,0,0),(32680,7158,2,2,0,'87.218.146.20',1180593830,1,0,1,1,1,1,'','','Jairo,\n\nEse código usa la función Hb_ZIPFILE() que es propia de xharbour.\n\nCon FW 16 bits puedes usar otras, revisa los ejemplos: samples\\TestZip.prg y TestUZip.prg','',0,'AIA=','fopwjz65',1,0,'',2,0,0),(32681,7163,6,102,0,'87.217.67.5',1180598141,1,0,1,1,1,1,'','Problemas en red domestica','Hola foro.\nTengo una pequeña red domestica con varios PC\'s compartidos\nMi problema es el siguiente:\nEn un PC tengo la aplicacion que funciona perfectamente.\nAl entrar en la aplicacion lo primero que hago es comprobar si existen los directorios\nIN y OUT\nHago lo siguiente:\n\nMeto en una variable el directorio actual\n\nLocal OldDir := Curdir()\nIf !lIsdir(\'IN\')\n   lMkDir(\'IN\')\nEndif\nIf !lIsdir(\'OUT\')\n   lMkDir(\'OUT\')\nEndif\n\n//Si Compruebo donde estoy desde otro PC me dice: \\JMUA-01 me dice:   \\programas(E)\\Turiguiprograma\\IN\\OUT. Incorrecto \n\n//Si Compruebo donde estoy desde el PC que tiene la aplicacion me dice: TURIGUIPROGRAMA. Esto es correcto \n\nCambio al anterior directorio\nDirChange(OldDir)\n\n//Luego voy a abrir las tablas que estan en otro directorio llamado TABLAS\nDbusearea(.t.,,\'tablas\\Clientes\',\'Cli\',.f.)\nIf !Neterr()\n   ? \"Tablas abiertas....\"\nElse\n   ? \"Error....\"\nEndif   \n\nSi ejecuto la aplicacion desde otro PC me da el error OPEN ERROR DOS 3 o sea que los ficheros no existen\nSi elimino la comprobacion y creacion de los directorios IN y OUT funciona bien\n\n\nAlguien puede decirme el porque de esto\n\nGracias de antemano','',0,'AIA=','apar4cyi',1,0,'',102,0,0),(32682,7151,6,456,0,'217.127.39.57',1180598732,1,0,1,1,1,1,'','','Antonio\n\nel problema es que luego al editar la ficha el combo no se posicionaria, porque los string no coinciden, aunque el valor si estaria bien grabado.\nDe hecho no hace falta hacer substr, ya que si coincide que lo que quiero grabar es la primera poscion, al truncar, ya queda grabada directamente.','',0,'AIA=','2v24otq0',1,0,'',456,0,0),(32683,7148,20,29,0,'88.149.162.200',1180599288,1,0,1,1,1,0,'','','Per gestire l\'acquisizione di un codice tramite barcode, devo necessariamente utilizzare una get con clausola ON CHANGE e verificare se il dato inserito è congruo, questo perché non conosco a priori se il lettore di barcode del cliente è preconfigurato per la trasmissione del codice di invio a fine scansione o meno.\nSarebbe piuttosto complicato richiedere di settare questo parametro nella configurazione del lettore a causa dell\'elevato numero di clienti e del fatto che la maggioranza dei barcode ha un manuale di configurazione in inglese.\n\nIl problema è che la finestra che apro dopo aver letto il codice è già precompilata con valori di default che nella maggioranza delle situazioni vanno bene e non richiedono modifiche da parte dell\'utente, pertanto per velocizzare l\'input dei dati ho posizionato il focus di questa finestra direttamente sul pulsante \"ok\", questo ovviamente mi crea però il problema che se il barcode mi trasmette anche il codice di invio allora la finestra mi si richiuderà all\'istante in quanto il focus è proprio sul pulsante di chiusura. Per il momento ho spostato il focus sul campo precedente l\'Ok in modo che anche se venisse trasmesso il codice di invio il focus andrebbe solo allora su Ok e la finestra non verrebbe chiusa, tuttavia in questo modo costringo tutti gli altri clienti che non hanno il lettore che trasmette l\'invio a spostarsi di un campo per confermare la finestra rallentando l\'input.','',0,'AIA=','17hzwg9l',1,0,'',29,0,0),(32684,7155,19,106,0,'82.52.134.146',1180599956,1,0,1,1,1,1,'','','Impresionante!!!!','',0,'AIA=','d8xmw8e6',1,0,'',106,0,0),(32685,6736,6,838,0,'80.59.225.15',1180600519,1,0,1,1,1,0,'','','Hola Daniel,\n\nTe los he enviado, si necesitas saber como instalarlos, me lo comentas\n\nSaludos\n\nJose Luis','',0,'AIA=','vysf4wr8',1,0,'',838,0,0),(32686,7162,3,1074,0,'82.212.61.78',1180601130,1,0,1,1,1,0,'','','Antonio,\n\nyour sample do not work.\n\nfor example my sourcecode:\nThe oBtn is not transparent now.\n\nDEFINE DIALOG oAuf:oDlgAuf RESOURCE \"Aufmsk0\" ICON oIauf\n\nREDEFINE FOLDER oAuf:oFauf ID 100 OF oAuf:oDlgauf ;\n    ITEMS   \" Auftrags&amp;kopf \", \" Auftrags&amp;positionen \" ;\n    DIALOGS \"Aufmsk1\", \"Aufmsk2\";\n\n   REDEFINE BTNBMP oBtn ID 123  noborder;\n            RESOURCE \"suchen1\",\"\",\"suchen11\" OF ::oFauf:aDialogs[1] \n            WHEN ::lNeu .AND. ! ::lNeuAppend ;\n            ACTION (Msgstop())\n\n[img:3vxvzbdx]http&#58;//www&#46;ziwu-soft&#46;de/img/image&#46;jpg[/img:3vxvzbdx]\n\nregards\nUwe','',0,'CA==','3vxvzbdx',1,0,'',1074,0,0),(32687,7029,6,316,0,'213.97.245.163',1180601576,1,0,1,1,1,0,'','','Carlos,\n\nHay un detalle que tu sí aplicas, que es la corrección con nXOffset, y que yo no la apliqué.\nLa función, tal como la puse, transforma de manera correcta cm. a pixels, pero no a coordenadas, que es diferente. Por ejemplo tu función no la podría usar para calcular el tamaño en pixels de una imagen, porque en ese caso las dimensiones no deberían verse afectadas por el nXOffset. No sé si he sido claro, pero creo que con esto vamos a poder homogeneizar las impresiones.\nTe reitero que consideres diferenciar en el cálculo cuando las coordenadas son verticales u horizontales, ya que si tenemos diferente resolución en cada dirección saldría mal en sentido vertical.\n\nPor cierto, el usar pixels para diseñar no parece muy apropiado dado que esas unidades son relativas, cambian de impresora a impresora. Lo que he visto en muchas librerías es el uso del [b:2y2fry30]twip[/b:2y2fry30]  como unidad de medida. En la clase hay un método para seleccionar twip como unidad de medida.\nEs la unidad de medida por defecto en VB y Delphi.\n\n[url:2y2fry30]http&#58;//en&#46;wikipedia&#46;org/wiki/Twip[/url:2y2fry30]','',0,'UA==','2y2fry30',1,0,'',316,0,0),(32688,7148,20,6,0,'87.18.215.129',1180607155,1,0,1,1,1,1,'','','Torno alla mia proposta: attiva il SET CONFIRM ON ma rendi la cosa opzionale così l\'utente può attivarlo o disattivarlo a seconda di come è configurato il suo lettore.\n\nEMG','',0,'UA==','gt6rc9l6',1,0,'',6,0,0),(32689,7164,6,971,0,'150.214.19.91',1180610877,1,0,1,1,1,0,'','problemilla con la ñ','¿Como podriamos capturar la letra ñ en mayúscula?\nCon el picture \"@!\" ingreso todas las letras en mayúscula (independientemente si tengo activado ó no el Bloq-Mayús).\nMenos la ñ.\nGracias.','',0,'UA==','2jfht1zq',1,0,'',971,0,0),(32690,5070,6,1076,0,'200.198.192.194',1180616933,1,0,1,1,1,0,'','Re: Fwh 2.8 - erro com DLL','Alguem tem uma resposta para isto?\nEstou tendo o mesmo problema com FWH26 roda porem com o FWH27 ja nao roda?!?!?!!?\n\n[quote=&quot;toya&quot;:27r165oi]Antonio, anteriormente esta rotina funcionava corretamente com a versão FWH 2.6 + xHarbour 0.99.5\n\nPorém, não esta funcionando com a versão FHW 2.8 (outubro/2006) + xHarbour 0.99.61\n\n[code:27r165oi]\n#include &quot;FiveWin&#46;ch&quot;\nSTATIC DLLDATAREGIS\n***********\nfunction main&#40;&#41;\n***********\n\n  ABREDATAREGIS&#40;&#41;\n\n  IF &#40;  nRet  &#58;= IF_Abre_Serial&#40;&quot;COM1&quot;&#41;  &#41; #  0    // &lt;---- Antonio O ERRO ESTA DANDO AQUI !!!!!!!!!\n      MsgStop&#40;&quot;Nenhuma impressora fiscal foi detectada !&quot;,&quot;Atenção&quot;&#41;\n     RETURN &#46;F&#46;\n  ENDIF\n\n  CLOSEDATAREGIS&#40;&#41;\nreturn nil\n\n\n********************\nFUNCTION ABREDATAREGIS&#40;&#41;\n********************\nDLLDATAREGIS  &#58;= LOADLIB32&#40; &quot;DTIF32&#46;DLL&quot; &#41;\n? DLLDATAREGIS\n\nRETURN NIL\n\n**********************\nFUNCTION CLOSEDATAREGIS&#40;&#41;\n*************************\nIF_Fecha_Serial&#40;&#41;\nRETURN NIL\n\n\n\nDLL32 function IF_ParamIni&#40;&#41;                                         AS LONG PASCAL LIB DLLDATAREGIS\nDLL32 function IF_Abre_Serial&#40;Porta AS STRING&#41;                       AS LONG PASCAL LIB DLLDATAREGIS\n\n\n\n[/code:27r165oi]\n\nSe puderes me ajudar, desde já agradeço...[/quote:27r165oi]','',0,'gIA=','27r165oi',1,0,'',1076,0,0),(32691,7165,3,868,0,'219.64.121.60',1180619724,1,0,1,1,1,1,'','program idle time','i want that my program should be closed if the user has not used it for say one hour.  how do i know for how much time my program is idle. (without any event).','',0,'gIA=','2xoaho65',1,0,'',868,0,0),(32692,7164,6,78,0,'190.40.224.180',1180621192,1,0,1,1,1,0,'','','Holas,,\nLuego de la captura (ouede ser en el valid) podrias usar esto:\n\nFunction RevisaLetras(cDat)\nlocal nLen, nCont\nIf VALTYPE(cDat) = \"A\"    //  es un array\n  nLen := LEN(cDat)\n  FOR nCont := 1 TO nLen\n   IF VALTYPE(cDat[nCont]) = \"C\"\n     cDat[nCont] := STRTRAN(cDat[nCont],\"\'\",\"´\")\n     cDat[nCont] := STRTRAN(cDat[nCont],\"\'\",\"´\")\n     cDat[nCont] := STRTRAN(cDat[nCont],\"ñ\",\"Ñ\")\n   ENDIF\n  NEXT nCont\n Else\n   cDat := STRTRAN(cDat,\"\'\",\"´\")\n   cDat := STRTRAN(cDat,\"`\",\"´\")\n   cDat := STRTRAN(cDat,\"ñ\",\"Ñ\")\nEndIF\nReturn(cDat)','',0,'','3ltnfccb',1,0,'',78,0,0),(32693,7159,6,78,0,'190.40.224.180',1180621509,1,0,1,1,1,0,'','','La idea es almacenar un jpg en una tabla de mysql, convirtiendo el archivo en caracteres hexdecimales para que se guarde sin problemas, por el tema de los caracteres, y luego recuperarlos y volver a armar la imagen..\nSalu2','',0,'','3fddv1u2',1,0,'',78,0,0),(32694,7151,6,41,0,'200.87.67.10',1180622396,1,0,1,1,1,0,'','','Biel,\n\nte mande a tu correo privado una modificacion del DBCOMBO que hace lo que deseas, por lo que entendi.\n\nsaludos\n\nMarcelo\n\n[quote=&quot;Biel EA6DD&quot;:2msr89fd]Antonio\n\nel problema es que luego al editar la ficha el combo no se posicionaria, porque los string no coinciden, aunque el valor si estaria bien grabado.\nDe hecho no hace falta hacer substr, ya que si coincide que lo que quiero grabar es la primera poscion, al truncar, ya queda grabada directamente.[/quote:2msr89fd]','',0,'gA==','2msr89fd',1,0,'',41,0,0),(32695,7164,6,36,0,'200.113.56.235',1180624430,1,0,1,1,1,1,'','','Uri\n\nmodifica la clase tget en la METHOD KeyChar\n\nyo la modifique asi\n\n[code:gdkszf14]   if ! Empty&#40; &#58;&#58;cPicture &#41; &#46;and&#46; \'@!\' $ &#58;&#58;cPicture\n      nKey = Asc&#40; Upper&#40; Chr&#40; nKey &#41; &#41; &#41;\n		//patricio\n		if nKey = 241 // ñ\n			nKey &#58;= 209 // Ñ\n		endif\n		//fin patricio\n   endif\n[/code:gdkszf14]','',0,'AIA=','gdkszf14',1,0,'',36,0,0),(32696,7163,6,36,0,'200.113.56.235',1180626864,1,0,1,1,1,1,'','','jmau\n\nprimero antes debes de compartir los datos del servidor de archivo\n\nde cualquier computador abres asi los datos\n[code:sps2j7mg]\nsele 0\nuse \\\\servidor\\carpeta\\datos index \\\\servidor\\carpeta\\indice NEW\n[/code:sps2j7mg]\nY ASI SUCESIVAMENTE\n\nespero que te sirva..','',0,'AIA=','sps2j7mg',1,0,'',36,0,0),(32697,7166,3,281,0,'203.226.204.21',1180627585,1,0,1,1,1,1,'','hi buildhm comfile error...','Hi all.\n\nbuildhm comfile error help me....\n\n[code:26suww8r]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;RichEdit&#46;ch&quot;\n\nFUNC main&#40;&#41;\npubl oGet, aGet\nDEFINE WINDOW oWndC  OF oWnd PIXEL TITLE &quot;&quot; \n\n       oGet &#58;= TRichEdit&#40;&#41;&#58;New&#40; 10, 550, &#123; || &quot;&quot; &#125;, oWndC, 464, 674, , &#46;t&#46;, , , &#46;t&#46; &#41;\n       oGet&#58;lHighLight = &#46;f&#46;\n\nACTIVATE WINDOW oWndC MAXIMIZED \n\nRETU NIL\n[/code:26suww8r]\n\n/*\nCompiling...\nHarbour devel build 1.1-0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'main.prg\' and generating preprocessed output to \'main.ppo\'...\nGenerating C source output to \'main.c\'... Done.\nmain.c\n   Creating library main.lib and object main.exp\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_RESETZOOM\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_REGETOLEINTERFACE\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_RESETOLECALLBACK\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_RESETOLEUNINIT\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_RESETOLEINIT\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_REPASTESPECIAL\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_REPAGEBREAK\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_REINSERTPICTURE\nFiveHm.lib(TRICHEDI.obj) : error LNK2001: unresolved external symbol _HB_FUN_REGETZOOM\nmain.exe : fatal error LNK1120: 9 unresolved externals\n* Application successfully built\n*/[code:26suww8r][/code:26suww8r]','',0,'AIA=','26suww8r',1,0,'',281,0,0),(32698,5070,6,104,0,'201.58.120.118',1180627708,1,0,1,1,1,0,'','','Olá Pessoal,\n\nTentem usar assim para ver se resolve:\n\nDLLDATAREGIS  := LoadLibrary( \"DTIF32.DLL\" )\n\ne para descarregar: \n\nFreeLibrary( DLLDATAREGIS  )\n\nTalvez possa ser isto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAbraços,\n\nRossine.','',0,'AIA=','3rbz6fkr',1,0,'',104,0,0),(32699,6736,6,1055,0,'84.125.133.194',1180627989,1,0,1,1,1,0,'','','Como el Total Comander, para mi gusto, ninguno...\nPara programar, para copiar, comparar, comprimir, acceso a redes, etc, etc, etc...\nEl mejón','',0,'AIA=','1qhpeovu',1,0,'',1055,0,0),(32700,7159,6,596,0,'85.62.69.206',1180628358,1,0,1,1,1,1,'','','[quote=&quot;Willi Quintana&quot;:aqlua33j]La idea es almacenar un jpg en una tabla de mysql, convirtiendo el archivo en caracteres hexdecimales para que se guarde sin problemas, por el tema de los caracteres, y luego recuperarlos y volver a armar la imagen..\nSalu2[/quote:aqlua33j]\nPodias convertirlo a MIME como hacen los e-mail cuando mandan ficheros adjuntos.\nEs una forma de convertir ficheros binarios a texto...','',0,'gA==','aqlua33j',1,0,'',596,0,0),(32701,6011,6,596,0,'85.62.69.206',1180628806,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:17sa1lza]...si no necesitas emulacion de terminal VT100 ,VTxxx puede valerte...[/quote:17sa1lza]\nPues precisamente necesito VT100.\nPor lo que he podido comprobar con un cliente telnet (el de windows) y un sniffer Ethereal y Analyzer que desde que se establece la conexion TCPIP hasta que aparece la peticion de login pues hay como unos 4 o 5 mensajes de intercambio entre el cliente y el servidor con valores no ASCII y que entre ellos he visto la palabra VT100 pero el resto de cosas son indescifrables...\nLo tengo crudo... hare con el FTP lo que pueda y del TELNET pues eso... socooorrrroooooooooo...  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nGracias a todos.\nSeguire dando la coña  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','17sa1lza',1,0,'',596,0,0),(32702,7155,19,163,0,'87.5.235.112',1180629172,1,0,1,1,1,0,'','','Great !!!\nAnd for resetting the PC you can hammer on the monitor.','',0,'gA==','2victxsq',1,0,'',163,0,0),(32703,7167,6,596,0,'85.62.69.206',1180629660,1,0,1,1,1,1,'','La clase TProxy','¿ Como se maneja ?\nNo encuentro ejemplos en \\samples\\...','',0,'gA==','vvkomh1c',1,0,'',596,0,0),(32704,7125,6,39,0,'201.220.111.64',1180631966,1,0,1,1,1,0,'','','No te olvides de hacer el commit en el terminal que graba los datos, ya que si no, los archivos no se actualizan hasta que el programa termina.\n\n\nAtte,\nLautaro','',0,'gA==','fscstjyi',1,0,'',39,0,0),(32705,7168,6,264,0,'200.91.3.10',1180632831,1,0,1,1,1,1,'','Ocultar fondo BMP cuando ventana está sobre el....','Hola a todos\nComo se podra hacer esto ?\nEs decir, el tipo tiene un fondo de aplicacion con un logo y cuando abre una ventana quiere que se oculte dicho logo.....obviamente quiere tb que re-aperezca el logo una vez que se cierren las ventanas.\nAlguna idea ?\nGracias','',0,'gA==','2jqndiv0',1,0,'',264,0,0),(32706,7169,6,694,0,'200.189.112.21',1180633268,1,0,1,1,1,1,'','pergunta sobre Tword','Utilizando a classe TWord, é possivel prender a execução do sistema ao fechamento do arquivo aberto ?\n\n\nprivate hWord\n\nhWord :=TWord():New()                      // inicia o objeto OLE Word\nif hWord:IsVisible()\n   hWord:Hide()\nendif\nhWord:OpenDoc( cModelo )                   // abre o documento modelo\nfor x:=1 to len( aCampos )\n    hWord:Replace( \'[\'+aCampos[x,1]+\']\' , aCampos[x,2] )\nnext\nhWord:Save(CAMIFO)\nhWord:visualizar()\nsó continuar a execução do sistema se                         \ndocumento word for fechado.\n\n\n\nAoki','',0,'','tuiz0gis',1,0,'',694,0,0),(32707,7170,3,86,0,'81.83.185.118',1180634775,1,0,1,1,1,1,'','Problem with TPrinter class','Hello,\n\nI have made a report using the TPRINTER class with PREVIEW.\n\nJust before the preview is shown, the following error is dsplayes :\n\n[quote:x7rc8m0q]Error (6) deleting enhanced metafile\n\nError description[/quote:x7rc8m0q]\n\nI put MsgInfo() in the PRINTER.PRG and I found out that the error occurs in the next procedure :\n\n[code:x7rc8m0q]METHOD _EndPage&#40;&#41; CLASS TPrinter\n\n   if &#58;&#58;hDC = 0\n      return nil\n   endif\n\n   if &#58;&#58;lMeta\n      if Len&#40; &#58;&#58;aMeta &#41; == 0\n         MsgAlert&#40; &quot;The temporal metafile could not be created&quot;,;\n                   &quot;Printer object Error&quot; &#41;\n      else\n       #ifndef __CLIPPER__\n       \n*         In the next line, the error occurs !!!\n\n          DeleteEnhMetaFile&#40; CloseEnhMetaFile&#40; &#58;&#58;hDCOut &#41; &#41;\n\n       #ELSE\n	        DeleteMetaFile&#40; CloseMetaFile&#40; &#58;&#58;hDCOut &#41; &#41;\n       #ENDIF\n\n         if ! File&#40; Atail&#40; &#58;&#58;aMeta &#41; &#41;\n           MsgAlert&#40;&quot;Could not create temporary file&#58; &quot;+Atail&#40;&#58;&#58;aMeta&#41;+CRLF+CRLF+;\n             &quot;Please check your free space on your hard drive &quot;+CRLF+;\n             &quot;and the amount of files handles available&#46;&quot; ,;\n             &quot;Print preview error&quot; &#41;\n         endif\n      endif\n   else\n      EndPage&#40; &#58;&#58;hDC &#41;\n   endif\n\nreturn nil\n[/code:x7rc8m0q]\n\nDoes anyone know what the reason is for this problem ?\n\nThanks.','',0,'gIA=','x7rc8m0q',1,0,'',86,0,0),(32708,7171,3,98,0,'70.71.111.92',1180637155,1,0,1,1,1,1,'','MAPISendMail forcing calling FWH app MODAL','Hello all.\n\nWe have a rather ugly situation.  We have an application that uses MAPISendMail() to open the composer window from the default email client on a users PC (for now lets assume this email client is Outlook).\n\nAs soon as Outlook\'s \"composer\" window (or whatever it\'s called) is up if I can\'t return to my FWH app because this window has made it in effect MODAL.  I have to either finish entering the mail and send it, or cancel it to be able to return to my FWH app.\n\nYou can imagine this isn\'t going well with users who don\'t expect to be forced to send the email before being able to get back to our app.  Usually the might want to look up additional info they might want to add to the email.\n\nSo the million dollar question is: can MAPISendMail() be instructed to behave MODLESS instead of forcing the calling app to remain MODAL till it\'s done?\n\nI noticed (in mapi.c) that the call to mapisendmail uses GetActiveWindow() as one of it\'s parameters.  From our app I tried doing a SetActiveWindow() to Outlook\'s hWnd (which I already know and I\'m positive is the right one) but either SetActiveWindow() is broken and doesn\'t actually set the current active window (a subsecuent call to GetActiveWindow() shows that my FWH app remains the current active window, not Outlook).\n\nI tried calling SetForegroundWindow() and BringWindowToFront() but that makes no difference either.\n\nAny help in how to make MAPISendMail() behave nicely is very much appreciated!\n\nLuis Krause.','',0,'gIA=','1av038ww',1,0,'',98,0,0),(32709,7171,3,2,0,'87.218.146.20',1180638031,1,0,1,1,1,1,'','','Luis,\n\nFrom the Windows API docs:\n\nulUIParam\n[in] Parent window handle or zero, indicating that if a dialog box is displayed, it is application modal. If the ulUIParam parameter contains a parent window handle, it is of type HWND (cast to a ULONG). If no dialog box is displayed during the call, ulUIParam is ignored.\n\nIts explained at:\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms527908.aspx\">http://msdn2.microsoft.com/en-us/library/ms527908.aspx</a><!-- m -->\n\nMaybe its as simple as provide it a zero <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1oh69ti3',1,0,'',2,0,0),(32710,7163,6,940,0,'189.157.163.234',1180638578,1,0,1,1,1,1,'','','JMAU \nno necesitas mover nada a tu aplicacion ..\n\nAsi como lo realizas es correcto,\n\npara hechar andar el sistema desde otra pcs,\n\ncomparte la unidad C del servidor\n\nY en las demas pcs. creas una unidad logica  K:\n\ny despues  creas un acceso directo que\n\nllame a tu aplicacion   K:\\miapp\\app.exe\n\nsalu2. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','1zkh99gz',1,0,'',940,0,0),(32711,7159,6,78,0,'190.40.224.180',1180638578,1,0,1,1,1,0,'','','Y como se come eso??\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) --> \nSalu2','',0,'','1zkh99gz',1,0,'',78,0,0),(32712,7168,6,41,0,'200.87.162.67',1180638677,1,0,1,1,1,0,'','','Hola,\n\nsuponiendo que el oBmp es el objeto del fondo de la ventana, entonces al entrar a la nueva ventana carga un grafico en blanco o por ultimo uno que no existe con oBmp:LoadImage(\"\"), luego para restaurar el anterior fondo oBmp:LoadImage(\"resname\")\ncon eso deberia funcionar\n\nsaludos\n\nMarcelo','',0,'','qbhdruuq',1,0,'',41,0,0),(32713,7171,3,98,0,'70.71.111.92',1180639117,1,0,1,1,1,1,'','','Antonio:\n\nDon\'t know if those docs refer to a MAPI logon dlg or similar, because\npassing a 0 instead of GetActiveWindow() (or even passing Outlook\'s hWnd) makes no difference.\n\nOr the docs are wrong, or MS is screwing us up!\n\nThanks!\n\nLuis','',0,'','2n0yvrfe',1,0,'',98,0,0),(32714,7171,3,98,0,'70.71.111.92',1180639469,1,0,1,1,1,1,'','','Antonio:\n\nGuess what?\n\nIf I change the default email client to Netscape Mail (without changing anything to mapi.c), it works as expected: I can go back and forth between Netscape\'s composer window and my FWH app!\n\nGuess the answer is MS is screwing us up  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nLuis','',0,'','qakaa1jm',1,0,'',98,0,0),(32715,7162,3,426,0,'87.218.187.189',1180639524,1,0,1,1,1,0,'','','Read again the code that Antonio refered you, detailed. Your code does not reflects the Antonio advice. Pay attention and read it again, I´m sure the answer is there.\n\nRegards,\n\nCarlos','',0,'','1f5tfuo1',1,0,'',426,0,0),(32716,7170,3,995,0,'81.11.210.149',1180640020,1,0,1,1,1,0,'','','probably a pageend() is executed twice\n\nFrank','',0,'','2ukb9su8',1,0,'',995,0,0),(32717,7159,6,596,0,'80.28.12.107',1180640712,1,0,1,1,1,1,'','','[quote=&quot;Willi Quintana&quot;:2cruzl22]Y como se come eso??\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) --> \nSalu2[/quote:2cruzl22]\nJeje... esa es una buena pregunta.\nCreo que hay una clase/funcion que pasa a MIME y al reves...\n\nEn FWH\\source\\function tienes dos programas mimeclip.prg y mime64.c que te aclararan el tema.\nTiene dos funciones fMimeEnc(cIn,cOut) y fMimeDec(cIn,cOut)','',0,'gA==','2cruzl22',1,0,'',596,0,0),(32718,7162,3,2,0,'87.218.146.20',1180641252,1,0,1,1,1,1,'','','You are missing this:\n\n   DEFINE DIALOG oDlg ... [color=red:1w4zc8zx]TRANSPARENT [/color:1w4zc8zx]\n\n   ...\n\n   [color=red:1w4zc8zx]oBtn:lTransparent = .T.  [/color:1w4zc8zx]','',0,'Ag==','1w4zc8zx',1,0,'',2,0,0),(32719,7170,3,2,0,'87.218.146.20',1180641317,1,0,1,1,1,1,'','','Look for a duplicated ENDPAGE','',0,'Ag==','99dwo2lg',1,0,'',2,0,0),(32720,5070,6,2,0,'87.218.146.20',1180642163,1,0,1,1,1,1,'','','Es preciso hacer lo que indica Rossine, ya que algunas DLLs lo requieren y en versiones anteriores de FWH no hacia falta ya que habia un error y las DLLs no se descargaban de memoria','',0,'Ag==','f166gh6f',1,0,'',2,0,0),(32721,7168,6,2,0,'87.218.146.20',1180642516,1,0,1,1,1,1,'','','Otra solución es hacer oBmp:Hide() y posteriormente oBmp:Show()','',0,'Ag==','2cq9zmv5',1,0,'',2,0,0),(32722,7155,19,2,0,'87.218.146.20',1180642723,1,0,1,1,1,1,'','','<!-- s:-D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":-D\" title=\"Very Happy\" /><!-- s:-D -->','',0,'Ag==','1pbk6t23',1,0,'',2,0,0),(32723,7170,3,86,0,'81.83.185.118',1180643961,1,0,1,1,1,1,'','','Thank you very much, guys.\n\nIndeed I used ENDPAGE twice.\n\nProblem solved.','',0,'Ag==','2flqnahi',1,0,'',86,0,0),(32724,6194,3,904,0,'198.54.202.234',1180644343,1,0,1,1,1,1,'','','Please give me more detail on this...\n\nI have all my BitMAPS, DIALOGS, ICONS stored in a DLL (CS.DLL)\n\nI have a line in my code: \nSET RESOURCES TO \"CS.DLL\"\n\nAnd I am able to use the BITMAPS etc. in other parts of the program.\n\nWhat do I need to show my icon CS.ICO in the taskbar of windows and title bar of my app.  I don\'t know how to use .RC or .RES files.\n\nUsing FWxH, xHb 99.60 BCC5.51  iLink32.EXE XMate 1.15','',0,'Ag==','33wbl2vp',1,0,'',904,0,0),(32725,6194,3,1068,0,'200.153.245.50',1180645133,1,0,1,1,1,1,'','','hello,\n\nin title of window application: \n\nif you have a icon file:\n\n[code:s9v22hr6]\nDEFINE ICON oICON FILENAME &quot;yourIcon&#46;ico&quot;\n\nDEFINE WINDOW oWINDOW FROM 1,1 TO 20,70 MDI;\n           COLORS CLR_BLACK,CLR_WHITE;\n           MENU BUILDMENU&#40;&#41; ;\n           ICON oICON ;\n           TITLE &quot;YourTitleAplication&quot;\n[/code:s9v22hr6]\n\nif you have a icon in resource or dll file:\n\n[code:s9v22hr6]\nDEFINE ICON oICON RESOURCE &quot;yourIcon&quot;\n\nDEFINE WINDOW oWINDOW FROM 1,1 TO 20,70 MDI;\n           COLORS CLR_BLACK,CLR_WHITE;\n           MENU BUILDMENU&#40;&#41; ;\n           ICON oICON ;\n           TITLE &quot;YourTitleAplication&quot;\n[/code:s9v22hr6]\n\n\nregards','',0,'AIA=','s9v22hr6',1,0,'',1068,0,0),(32726,7172,6,1063,0,'164.77.154.6',1180645293,1,0,1,1,1,0,'','comprimir el ejecutable','hay alguna instruccion en xharbor/fivewin que al momento de compilar el ejecutable se comprima de tamaño, con en el fivewin se utilizaba el BLINKER EXECUTABLE COMPRESS','',0,'AIA=','10igrd1z',1,0,'',1063,0,0),(32727,7172,6,376,0,'201.230.184.48',1180645827,1,0,1,1,1,1,'','','Creo que no. Pero puedes comprimir el ejecutable utilizando UPX que es gratuito.','',0,'AIA=','3i0azt13',1,0,'',376,0,0),(32728,7168,6,264,0,'200.91.3.10',1180646666,1,0,1,1,1,1,'','','Ok, lo revisare\nGracias.','',0,'AIA=','24pxbjte',1,0,'',264,0,0),(32729,6194,3,904,0,'198.54.202.250',1180649479,1,0,1,1,1,1,'','','PERFECT - Thanks!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3dnn91qh',1,0,'',904,0,0),(32730,7172,6,138,0,'212.145.203.73',1180649725,1,0,1,1,1,1,'','','Pero la pregunta es.... ¿ para quieres comprimir un EXE ?\n\nNo tiene ningun efecto mas que para distribucion. \n\nUn EXE comprimido no es mas rapido, solo ocupa menos espacio en el disco. \n\nEl EXE debe descomprimirse al momento de ejecutarse con lo cual el tiempo de carga del EXE es mayor que el de un EXE sin comprimir.\n\nOtra razon seria para ocultar los recursos, cuando estos estas incrustados en el EXE.','',0,'AIA=','15tgsy1n',1,0,'',138,0,0),(32731,6194,3,904,0,'196.25.255.250',1180649828,1,0,1,1,1,1,'','','Its interesting that the ICON doesn\'t appear next to the EXE in Windows Explorer - its the blank unknown application icon.  (It appears in my application though.) Why is that?','',0,'AIA=','27c86s1f',1,0,'',904,0,0),(32732,6194,3,2,0,'87.218.146.213',1180650700,1,0,1,1,1,1,'','','Create a RC file and add this line:\n\n1  ICON   \"your_icon.ico\"\n\nThen compile it and place it into the EXE, as samples\\buildx.bat does\n\nThen your EXE will be shown in the explorer with its icon','',0,'AIA=','2kof98ke',1,0,'',2,0,0),(32733,5070,6,2,0,'87.218.146.213',1180652575,1,0,1,1,1,1,'','','Julio,\n\nEn tu caso NO hay que usar PASCAL','',0,'AIA=','29i03uhf',1,0,'',2,0,0),(32734,7135,6,36,0,'200.113.56.235',1180652688,1,0,1,1,1,1,'','','Recompile todo fivehx + todas las librerias de terceros con la nueva xharbour .99.71 pero igual no funciona incluyendo un objeto mas\n\nA lo mejor el problema es el rmake de clipper 5.3 que utilizo\n\nahora quiero cambiarme a hbmake que se encuantra en c:\\xharbour\\bin\\hbmake.exe\n\nMi peticion es si alguien tiene un pequeño ejemplo de unos ( 2 o 3 obj) de como utilizar esta herramienta\n\ndesde ya muchas gracias','',0,'AIA=','251jiqp3',1,0,'',36,0,0),(32735,7135,6,2,0,'87.218.146.213',1180653374,1,0,1,1,1,1,'','','Patricio,\n\nNuestro consejo es que uses el make de Borland ó el de Microsoft\n\nTienes ejemplos de su uso en FWH\\makes','',0,'AIA=','uvmyctc8',1,0,'',2,0,0),(32736,7158,2,890,0,'200.24.110.196',1180654471,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:28di2hq4]Jairo,\n\nEse código usa la función Hb_ZIPFILE() que es propia de xharbour.\n\nCon FW 16 bits puedes usar otras, revisa los ejemplos: samples\\TestZip.prg y TestUZip.prg[/quote:28di2hq4]\n\nAntonio\n\nGracias lo revisare he intentare poner en practica\n\nGracias\n\nCordialmente\n\nJAIRO BARBOSA','',0,'gA==','28di2hq4',1,0,'',890,0,0),(32737,7173,6,215,0,'189.137.187.239',1180661069,1,0,1,1,1,1,'','Necesito un programador','Hola gente,\nPara la Ciudad de México. DF.\nTengo una vacante para programador FWH. De 8 mil a 10 mil mensuales. Según conocimientos. La empresa está saliendo de la estación del Tren Ligero de la Virgen.\nSi a alguien le interesa o sabe de alguien.\n<!-- e --><a href=\"mailto:visitante32@hotmail.com\">visitante32@hotmail.com</a><!-- e -->\n\nGracias\nFernando','',0,'gA==','93e2w1m9',1,0,'',215,0,0),(32738,7163,6,102,0,'87.217.67.19',1180676153,1,0,1,1,1,1,'','','Gracias a ambos, les dire que en mi caso no hay ningun servidor, simplemente son PC\'s compartidos y la aplicacion esta en uno cualquiera \nAsi que probare con las dos respuestas a ver que resulta.\nMuchas gracias\n\nJosé Martin Uriarte','',0,'gA==','2qqc0c8e',1,0,'',102,0,0),(32739,7174,6,945,0,'80.32.177.143',1180683507,1,0,1,1,1,0,'','Duda sobre HBClass','Muy buenas, tengo una duda para acceder a los datos que me crea AddMultiData, recorriendo el array que me crea pero no me introduce los valores de las variables, os mando el código y así lo vemos mejor:\n\nCon esta funcion me creo el objeto para crearme las variables del modo, por ejemplo:\n\n::v:=varTOclass()\nobjeto:v:codigo\n\n* y el código que me lo crea es:\n_HB_CLASS tAux\nmethod varTOclass() class CDIt\n    local nScope\n    nScope := 1\n    ::s_oClass := IIF(.F.,,HBClass():new(\"tAux\",__CLS_PARAM ( \"TControl\" ) ) )\n    for i = 1 to len(::aVars)\n		::s_oClass:AddMultiData(,::aVars[i,2] ,iif(.F.,1,iif(.F.,2,iif(.F.,4,nScope) ) ) + iif(.F.,16,0 ),{::aVars[i,1]},.F.,.F. )            	\n    next\n    ::s_oClass:Create()\nreturn ::s_oClass:Instance() AS CLASS tAux\n\n\n* Y lo que quiero es pasar todos los valores del array a un array mio, pero es que los campos si están pero los valores no, mirar este es mi código:\n\nmethod KnockDatas(c) class CDIt\n   local i\n   for i=1 to len(::s_oClass:aDatas)\n      msginfo(::s_oClass:aDatas[i][HB_OO_DATA_VALUE],::aVars[i,1])\n      ::aVars[i,2]:=::s_oClass:aDatas[i][HB_OO_DATA_VALUE]\n   next \nreturn\n\n¿ ESTOY HACIENDO LAS COSAS BIEN ?\n¿ COMO PODRÍA HACERLO ?\n\nUn Saludo. y Mil Gracias.','',0,'','2ais68d9',1,0,'',945,0,0),(32740,7174,6,2,0,'87.218.146.151',1180684500,1,0,1,1,1,1,'','','Puedes explicarnos que es lo que deseas hacer ? La idea general','',0,'','tczzmubq',1,0,'',2,0,0),(32741,6011,6,596,0,'194.224.177.206',1180684922,1,0,1,1,1,1,'','','Pues investigando podria salir del apuro con el RemoteShell (rsh.exe)\nPuedo poner en un ventana de MS-DOS esto: [b:3dm8jbqt]rsh &lt;host&gt; -l &lt;usuario&gt; ifconfig -a[/b:3dm8jbqt] y me contesta con el resultado del comando.\nPero esto es en una ventana MS-DOS.\nNo puedo redireccionar (&gt;) ya que eso supondria que es parte del comando unix.\n¿ Hay alguna forma de hacerse con el TEXTO que hay en una ventana MS-DOS ?\n¿ Tenemos alguna clase RSH (Remote Shell) ?\n\nGracias.','',0,'QA==','3dm8jbqt',1,0,'',596,0,0),(32742,7174,6,945,0,'80.32.177.143',1180684922,1,0,1,1,1,0,'','','Tengo un array (aVars) que contiene (campo,valor,tipo) de un tabla de mysql\nque sus valores depende del nombre de la tabla que le pasemos, entonces mi idea es, si por ejemplo, la tabla tiene los campos:\n\nid,idEmpresa,codigo,descripcion\n\nlo que quiero es crear un objeto (v) para acceder a sus datos de la forma\nPor ejemplo: v:codigo\n\ny la finalidad es pasar el contenido de todas las variables v:id,v:idEmpresa,v:codigo,v:descripcion al array aVars del principio, pero todo esto sin saber a priori cuantos campos tiene.\n\nentonces creo que tenemos que acceder atraves del array aDatas pero no me devuelve el valor.\n\n¿Que puedo hacer?. Gracias.','',0,'QA==','3dm8jbqt',1,0,'',945,0,0),(32743,7174,6,2,0,'87.218.146.151',1180685306,1,0,1,1,1,1,'','','Puedes crear una clase genérica que use:\n\n       ERROR HANDLER OnError( uParam1 )\n\ny ahí resolver los mensajes que te llegan. Revisa la clase TDataBase de FWH, funciona así. No se sabe a priori el nombre de los campos que va a usar, y desde el METHOD OnError( uParam1 ) CLASS TDataBase se resuelven dinamicamente.\n\nDe esta forma no tienes que crear una clase para cada caso. Una sola clase, genérica, te permite solucionar todos los casos posibles','',0,'QA==','1f11vlaw',1,0,'',2,0,0),(32744,7162,3,1074,0,'82.212.61.78',1180686132,1,0,1,1,1,0,'','','Hi,\n\nI have changed my code to the following, but it takes no effect. The BTNBMP are not transparent. Is the problem maybe in the resourceeditor,i use Visual c++ 6.0 or must i have a specially backround color for the bitmap that is in the resourceeditor?\n\nDEFINE DIALOG oDlgAuf RESOURCE \"Aufmsk0\" ICON oIauf TRANSPARENT\n\nREDEFINE FOLDER oFauf ID 100 OF oDlgauf  ;\n    ITEMS   \" Auftrags&amp;kopf \", \" Auftrags&amp;positionen \" ;\n    DIALOGS \"Aufmsk1\", \"Aufmsk2\";\n\n   REDEFINE BTNBMP oBtn ID 156  noborder;\n            RESOURCE \"AKONTO1\",\"\",\"AKONTO11\" OF ::oFauf:aDialogs[1] ;\n            ACTION (Msgstop());\n            TOOLTIP \"A-Kontobetrag\" 		   ;\n      	   MESSAGE \"A-Kontobetrag bearbeiten\"\n\n             oBtn:ltransparent = .T.\n\nThanks in advance.\nUwe','',0,'','11myubb9',1,0,'',1074,0,0),(32745,7162,3,2,0,'87.218.146.151',1180686914,1,0,1,1,1,1,'','','Please test this sample:\n[code:30cgmqvg]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oBtn\n\n   DEFINE DIALOG oDlg TRANSPARENT\n\n   @ 10, 10 BTNBMP oBtn FILENAME &quot;About&#46;bmp&quot; NOBORDER \n   \n   oBtn&#58;lTransparent = &#46;T&#46;\n\n   ACTIVATE DIALOG oDlg\n\nreturn nil\n[/code:30cgmqvg]','',0,'AIA=','30cgmqvg',1,0,'',2,0,0),(32746,7174,6,945,0,'80.32.177.143',1180687414,1,0,1,1,1,0,'','','La cuestion es que cuando mete el valor en v:codigo por ejemplo si lo coge bien pero se supone que lo debería meter en aDatas de la clase HBClass pero no lo mete ahi, es decir, donde puede encontrar el valor de v:codigo dentro de la clase HBClass.\n\nGracias','',0,'AIA=','ub0ed8cr',1,0,'',945,0,0),(32747,7172,6,106,0,'85.34.123.173',1180687622,1,0,1,1,1,1,'','','O para descargar las actualizaciones de un FTP\n\n\nsaludos','',0,'AIA=','17q1uwg4',1,0,'',106,0,0),(32748,7175,3,995,0,'81.11.210.149',1180687925,1,0,1,1,1,0,'','Oemtoansi ERROR ??????','Hello,\n\nUsing code page \"FR\" , i try to convert characters as à , é , ç , è to uppercase\n\ni.e.\n\n# include \"fivewin.ch\"\n\ni := 233\n? STR(i,3) + \" : \" + CHR(i) + \"   \" + CHR(i-32)+\"/\"+UPPER(CHR(i))\nResult : \n233 : é   É/é , Upper doesn\'t convert ,  É exists ! , but E should be better\n\ni := 130\n?  OemToAnsi(STR(i,3) + \" : \" + CHR(i) + \"   \" + CHR(i-32)+\"/\"+UPPER(CHR(i)))\nResult : \n130 : é   b/E , i like this conversion to E  but, In upper() is chr(i) not set to ansi !!!\n\n  MsgInfo( OemToAnsi(CHR(130)) , ASC(OemToAnsi(CHR(130))) , UPPER(OemToAnsi(CHR(130))) ,  UPPER(CHR(130)))\n\nSo to convert \"é\" , we have to do :\n\nUPPER(AnsiToOem(\"é\"))\n\n        \nFrank','',0,'AIA=','l6f2wwgl',1,0,'',995,0,0),(32749,6653,3,1012,0,'203.160.185.132',1180688953,1,0,1,1,1,0,'','Reply to Toyet','So, Everything is fine?','',0,'AIA=','37g5wsut',1,0,'',1012,0,0),(32750,7162,3,1074,0,'82.212.61.78',1180689071,1,0,1,1,1,0,'','','Antonio,\n\nyour sample works fine,but my BTNBMP is not not on a dialog but also on a Folder. \n\nregards\nUwe','',0,'AIA=','hwgfey1q',1,0,'',1074,0,0),(32751,7164,6,971,0,'150.214.19.91',1180690369,1,0,1,1,1,0,'','','Gracias, voy a intentarlo.','',0,'AIA=','2rdj67i7',1,0,'',971,0,0),(32752,7176,6,102,0,'87.217.67.19',1180690459,1,0,1,1,1,1,'','Modo insertar/sobrescribir y tecla insert','Buenos dias.\nTengo un dialogo con unos cuantos gets.\nComo puedo hacer para que cuando entre en cada get se active o descative, (dependiendo de lo que yo quiera hacer), el modo insertar o sobreescribir y que la tecla insert se active o desactive a la misma vez.\n\nMuchas gracias','',0,'AIA=','1x76dqj6',1,0,'',102,0,0),(32753,7162,3,2,0,'87.218.146.151',1180690838,1,0,1,1,1,1,'','','Then try this:\n\noFolder:aDialogs[ n ]:lTransparent = .T.','',0,'','2qyh77p9',1,0,'',2,0,0),(32754,7174,6,2,0,'87.218.146.151',1180691010,1,0,1,1,1,1,'','','Prueba esto:\n[code:f7atg6yk]\nfor n = 1 to Len&#40; v &#41;\n   if v&#91; n &#93; == v&#58;codigo\n      MsgInfo&#40; n &#41;\n   endif\nnext\n[/code:f7atg6yk]','',0,'AIA=','f7atg6yk',1,0,'',2,0,0),(32755,7175,3,2,0,'87.218.146.151',1180691123,1,0,1,1,1,1,'','','Frank,\n\nOemToAnsi() makes a call to a Windows API built-in function.\n\nYou can always implement your own OemToAnsi() function and make it work as you may need','',0,'AIA=','zpvsdoca',1,0,'',2,0,0),(32756,7176,6,2,0,'87.218.146.151',1180691463,1,0,1,1,1,1,'','','Llama a KeyToggle( VK_INSERT )','',0,'AIA=','n4ft794o',1,0,'',2,0,0),(32757,7175,3,995,0,'81.11.210.149',1180692158,1,0,1,1,1,0,'','Upper()','Antonio,\n\nMaybe it is not oemtoansi , but upper() that must be changed !!\n\nFrank','',0,'AIA=','1nxcbkfr',1,0,'',995,0,0),(32758,7175,3,2,0,'87.218.146.151',1180693497,1,0,1,1,1,1,'','','Frank,\n\nYou can always make a proposal to the Harbour developers mailing list, as Upper() belongs to harbour runtime libraries (RTL), and be sure it will be reviewed','',0,'AIA=','1v2zm2pc',1,0,'',2,0,0),(32759,6814,3,6,0,'79.3.210.65',1180694088,1,0,1,1,1,1,'','','Is SEEK implemented. It seems not. If not, will it be? I think that ADORDD is not so useful without SEEK.\n\nSame for locking. RLOCK() seems to always return .T.\n\nEMG','',0,'AIA=','bctqynwi',1,0,'',6,0,0),(32760,7162,3,1074,0,'82.212.61.78',1180695861,1,0,1,1,1,0,'','','Antonio,\n\nsorry, but no effect.\nThe Folder is in the Resourceeditor declared as SysTabControl32. \nThe BTNBMP on the Dialog are OK.\nDo you have an other idea.\n\nregards,\nUwe','',0,'AIA=','15upl26q',1,0,'',1074,0,0),(32761,7166,3,2,0,'87.218.146.151',1180695929,1,0,1,1,1,1,'','','We email you a modified FiveHCM.lib, thanks','',0,'AIA=','naxjqs9v',1,0,'',2,0,0),(32762,7177,1,1077,0,'80.77.147.50',1180696094,1,0,1,1,1,0,'','ARRAY over 4096 elements','I need to use array longer than 4096 elements (multidimensional if possible), and it is verry important to be used in LISTBOX.\n\nSome sugestions ?[/b]','',0,'','6yi2arsn',1,0,'',1077,0,0),(32763,6814,3,2,0,'87.218.146.151',1180696561,1,0,1,1,1,1,'','','Enrico,\n\nPlease test this:\n\n#define adSeek 0x200000\n\nMsgInfo( HB_AdoRddGetRecordset():Supports( adSeek ) )\n\nIf the recordset does not support such functionality then there is no way to use SEEK using ADO. Its an ADO feature/limitation issue\n\nRegarding the RLock(): \nActually ADORDD returns true,  because in fact the locking is handled by the server and depends on the open mode of the ADO Recordset','',0,'','10dj8el7',1,0,'',2,0,0),(32764,7162,3,2,0,'87.218.146.151',1180696741,1,0,1,1,1,1,'','','Uwe,\n\nYou may use a Class TButtonBmp object instead of a TBtnBmp one, as TButtonBmp uses the XP themes and will look better\n\nPlease review samples\\TestBuBm.prg','',0,'','o0j1gku1',1,0,'',2,0,0),(32765,7177,1,2,0,'87.218.146.151',1180696919,1,0,1,1,1,1,'','','Clipper arrays are limited to 4096 elements. There is a workaround that consists on using the latest element to point to another array:\n\naTest[ 4096 ] = Array( 4096 )\n\nAnyhow we do recommend you to port your Clipper application to Harbour/xHarbour where these limitations no longer exist','',0,'','1043wjfg',1,0,'',2,0,0),(32766,6011,6,41,0,'200.87.162.67',1180701030,1,0,1,1,1,0,'','','Hola,\n\nsi lo que deseas es tener simplemente informacion del equipo con UNIX, crea un servidor\ncon PERL en el unix en un determinado puerto y los dejas como servicio del unix, luego desde tu programa en FW con socket te conectas con el y te pasa la informacion que necesitas.\n\nClaro lo complicado aqui es que tendrias que poner este servicio en cada equipo unix\n\nSolor es una idea\n\nSaludos\n\nMarcelo','',0,'','2cmvru4l',1,0,'',41,0,0),(32767,7177,1,1077,0,'80.77.147.50',1180701082,1,0,1,1,1,0,'','','Hi Antonio and thanks for fast answer.\n\n-&gt; aTest[ 4096 ] = Array( 4096 )\n\n\n         I will try to use this ....but how to use it in LISTBOX and view that 9191 elements ?\n\nBest regards,\n        Pande.','',0,'','3ihcgwwp',1,0,'',1077,0,0),(32768,6814,3,6,0,'79.3.210.65',1180701218,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:30q3mh3e]Enrico,\n\nPlease test this:\n\n#define adSeek 0x200000\n\nMsgInfo( HB_AdoRddGetRecordset():Supports( adSeek ) )\n\nIf the recordset does not support such functionality then there is no way to use SEEK using ADO. Its an ADO feature/limitation issue[/quote:30q3mh3e]\n\nIt returns .F. with MDB. Can you or anybody else test it under MySQL or MS SQL Server, please?\n\nAnyway my question was if SEEK is currently implemented or will be in future.\n\n[quote=&quot;Antonio Linares&quot;:30q3mh3e]Regarding the RLock(): \nActually ADORDD returns true,  because in fact the locking is handled by the server and depends on the open mode of the ADO Recordset[/quote:30q3mh3e]\n\nI know. Do you have any ideas on how to prevent two users working on the same record (ie. opening the same dialog) at the same time?\n\nEMG','',0,'gA==','30q3mh3e',1,0,'',6,0,0),(32769,7177,1,6,0,'79.3.210.65',1180701464,1,0,1,1,1,1,'','','You can use a TWBrowse and calculate the correct position of the item to show for each index. For example (not tested):\n\n[code:2lx88l1k]FUNCTION GETITEM&#40; aArray, i &#41;\n\n    IF i &lt; 4096; RETURN aArray&#91; i &#93;; ENDIF\n\n    RETURN aArray&#91; 4096, i - 4095 &#93;[/code:2lx88l1k]\n\nEMG','',0,'AIA=','2lx88l1k',1,0,'',6,0,0),(32770,7016,11,284,0,'201.93.204.137',1180704179,1,0,1,0,1,0,'','','Antonio, I am very interested in FiveLinux too.\nWhat you said is true, 95% of my customers do not care and will use Windows.\nBut the last 5% are asking about a Linux version of our systems for a long time, and seems it is growing.\nI have a question here:\nCan you list what functionalities FiveWin have that FiveLinux do not have ?\n \n[[]] Maurício Faria\nConcentra Informática','',0,'','1um0fe8s',1,0,'',284,0,0),(32771,7178,6,1014,0,'201.230.241.219',1180706617,1,0,1,1,1,1,'','FW en Win xp','Hola Amigos\nCasi he ternimado de convertir mis Prg de DOS a Windows en Win98 y me funciona bien, en mi máquina, pero... al instalar el EXE en mi cliente que tiene Win XP no funciona NINGUN módulo que tenga Dialogos de Recursos, solo funcionan los módulos que tienen Dialogos hechos con código.\nEl mensaje que aparece es \"FiveWin /3 can not create Dialog Box\"\nAlguien sabe la razón??\nHe buscado en el foro y no encuentro nada parecido.\nmuchas gracias de antemano\nJorge Vargas','',0,'','2roo19vo',1,0,'',1014,0,0),(32772,7029,6,110,0,'148.168.40.4',1180708363,1,0,1,1,1,1,'','','Ok, \nCarlos, Kleyber \n\nlamentablemente se me ha complicado la semana <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> pero este fin de semana tendre que trabajar sobre esto, ya que me es urgente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\ntomare en cuenta sus puntos.\n\nok, incluso tengo un metodo par ala impresion de bitmap, que como tu indicas tendre que revisar, lo del offset lo checare tambien.\n\nuna pregunta que es offset?\nya que lo estaba intentando aplicarlo, pero no estoy muy seguro sobre lo que hace.\n(lo que comprendo es que es una especie de correccion)\n \nsalu2\ncarlos vargas','',0,'','4vohakbj',1,0,'',110,0,0),(32773,7135,6,36,0,'200.113.56.235',1180709496,1,0,1,1,1,1,'','','Gracias Antonio\n\nAhora funciona perfecto con mas objetos(obj) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, en conclusion era el rmake de clipper 5.3, era lo único que me quedaba de recuerdo...','',0,'','1d9dh104',1,0,'',36,0,0),(32774,7178,6,492,0,'189.147.21.252',1180711232,1,0,1,1,1,1,'','','Hola Jorge\n\nPosiblemente usaste algunos controles Borland en tus dialogos, y te hace falta copiar el archivo bwcc.dll junto con tu aplicacion.\n\nSaludos','',0,'','3a03qfmk',1,0,'',492,0,0),(32775,7016,11,2,0,'87.218.146.151',1180711611,1,0,1,1,1,1,'','','&gt; Can you list what functionalities FiveWin have that FiveLinux do not have ?\n\nMDI windows, printing preview, and many functions that are specific to Windows API\n\nWith current FiveLinux you can build a complete professional application','',0,'','17jyxuaq',1,0,'',2,0,0),(32776,6814,3,2,0,'87.218.146.151',1180712147,1,0,1,1,1,1,'','','Enrico,\n\n&gt;\nIt returns .F. with MDB. Can you or anybody else test it under MySQL or MS SQL Server, please? \n&gt;\n\nRick Lipkin tested Supports( adIndex ) with MS SQL Server and returned false too. Rick, could you test Supports( adSeek ) ? Thanks,\n\n&gt;\nAnyway my question was if SEEK is currently implemented or will be in future. \n&gt;\n\nIts not currently implemented, but its very easy, just one line source code:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/met_rs_seek.asp\">http://www.w3schools.com/ado/met_rs_seek.asp</a><!-- m -->\n\n&gt; Do you have any ideas on how to prevent two users working on the same record (ie. opening the same dialog) at the same time? \n\nProbably the easiest way is to add a field \"Locked\" and turn it true or false','',0,'','3pk3fwxl',1,0,'',2,0,0),(32777,6814,3,6,0,'79.3.210.65',1180713234,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3jyevzho]Rick Lipkin tested Supports( adIndex ) with MS SQL Server and returned false too. Rick, could you test Supports( adSeek ) ?[/quote:3jyevzho]\n\nI\'m interested in MySQL support. Anybody that is using it?\n\n[quote=&quot;Antonio Linares&quot;:3jyevzho]Its not currently implemented, but its very easy, just one line source code:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/met_rs_seek.asp\">http://www.w3schools.com/ado/met_rs_seek.asp</a><!-- m -->[/quote:3jyevzho]\n\nI wonder how can SEEK work if SET INDEX doesn\'t. Maybe both are working with MySQL?\n\n[quote=&quot;Antonio Linares&quot;:3jyevzho]Probably the easiest way is to add a field \"Locked\" and turn it true or false[/quote:3jyevzho]\n\nI know. But there is a problem: if a terminal crash then the lock is stucked to true.\n\nEMG','',0,'gA==','3jyevzho',1,0,'',6,0,0),(32778,7179,6,533,0,'80.32.177.143',1180713363,1,0,1,1,1,0,'','Solucion group en report','Buenas foro, mirad, tengo un report tal cual asi (agrupado por serie y totalizado por importe):\n\nserie   nº    importe\n\n01   00001     40.00\n01   00002     30.00\n01   00003     40.00\n01   00004     21.32\n         total   xxx.xx\n\ncuando termina esta serie (on endgroup) le pongo un salto de pagina y comienza otra asi\n\n02   00001     54.30\n02   00002     43.00\n02   00003     43.00\n         total   xxx.xx\n\nHasta aqui todo correcto pero el problema es que cuando termina el report me pone otro salto de pagina con el total general. Quitandole la clausula TOTAL en la columna importe y totalizando yo puedo solucionar el problema, pero es más tedioso. ¿Hay alguna manera de solucionar el problema sin tener que hacerlo manualmente?\n\nGRACIAS','',0,'gA==','3pqs6mmw',1,0,'',533,0,0),(32779,7029,6,103,0,'201.8.73.79',1180713640,1,0,1,1,1,1,'','','Armando,\n[quote:3ebknqwb]Si las pruebas te salieran bien, sugiero que los compartas con el foro para ver si todos efectúan los ajustes a la clase tprinter y no tengamos que estar haciendo pruebas según las impresoras de los usuarios. [/quote:3ebknqwb]\n\nClaro que si. Asi que tengas los resultados, envio para ustedes lo que tengo y tambien para Antonio Linares, para que se pueda arreglar en las nuevas versiones de FWH.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nCarlos Vargas,\n[quote:3ebknqwb]lamentablemente se me ha complicado la semana  pero este fin de semana tendre que trabajar sobre esto, ya que me es urgente [/quote:3ebknqwb]\n\nSin problemas, mi amigo. Si te puedo ayudar, estoy en el MSN.\n\nSaludos,','',0,'gA==','3ebknqwb',1,0,'',103,0,0),(32780,6814,3,2,0,'87.218.146.151',1180713669,1,0,1,1,1,1,'','','Enrico,\n\n&gt; I know. But there is a problem: if a terminal crash then the lock is stucked to true. \n\nA remote procedure may help on that circunstance','',0,'gA==','2wx5npja',1,0,'',2,0,0),(32781,7176,6,102,0,'87.217.67.19',1180713771,1,0,1,1,1,1,'','','antonio esto no me funciona.\nSe activa el mensaje \"INS\" de la status bar pero en el get no funciona\nPuedes darme un ejemplo.','',0,'gA==','23kr5zzx',1,0,'',102,0,0),(32782,6814,3,6,0,'79.3.210.65',1180713810,1,0,1,1,1,1,'','','Interesting. Can you be more explicit?\n\nEMG','',0,'gA==','1shhibp7',1,0,'',6,0,0),(32783,6814,3,2,0,'87.218.146.151',1180713998,1,0,1,1,1,1,'','','Enrico,\n\nIts just an idea, I have not tried it and don\'t know if it may be a valid solution','',0,'gA==','12f6hu0r',1,0,'',2,0,0),(32784,7176,6,2,0,'87.218.146.151',1180714105,1,0,1,1,1,1,'','','Has probado si el GET cambia de normal a modo insertar y viceversa ?','',0,'gA==','wl1k64g7',1,0,'',2,0,0),(32785,6814,3,6,0,'79.3.210.65',1180714357,1,0,1,1,1,1,'','','Ah, ok. Thanks anyway.\n\nEMG','',0,'gA==','3k4ri24j',1,0,'',6,0,0),(32786,7151,6,456,0,'217.127.39.57',1180714659,1,0,1,1,1,1,'','','Hola Marcelo,\n\nno he recibido nada en el correo, te agradeceria nuevo envio a <!-- e --><a href=\"mailto:bmaimo@piema.info\">bmaimo@piema.info</a><!-- e -->\n\ngracaias','',0,'gA==','9eoeu551',1,0,'',456,0,0),(32787,7176,6,102,0,'87.217.67.19',1180716808,1,0,1,1,1,1,'','','Antonio\nem principo te dire que los get los tengo desactivados y cuando pulso boton añadir o modificar es cuando se activan, y es cuando llamo a keyToggle(VK_INSERT) pero no funciona.\nHe probado como dices pero no va \nsaludos','',0,'gA==','1fjcj43h',1,0,'',102,0,0),(32788,7178,6,1014,0,'201.230.241.219',1180716870,1,0,1,1,1,1,'','','Hola Raymundo\nMuchas gracias por tu respuesta.\nen ningun momento llamo al BWCC.DLL y el Bwcc.dll que tengo no está en una ruta donde pueda ser accesado por el Exe que funciona en mi Win 98, solo uso controles de Resource WorkShop que es de Borland, o te refieres a algun control especial de Borland. Por favor una explicadita sobre el asunto.\ngracias otra vez.\nSaludos \nJorge Vargas','',0,'gA==','2q21s4wh',1,0,'',1014,0,0),(32789,7180,6,1078,0,'201.13.42.57',1180717660,1,0,1,1,1,0,'','ADS + ADI - SCOPE - DATA VAZIA','Alguem poderia me ajudar com  ADS e ADT \n \nTenho um arquivo indexado desta FORMA\n//-----------------------------------------------------------------------------------------\n   IF ! File( DIRDBF + \"SLBDPLOJ\"+EXT )\n      IF !myUSE(DIRDBF+\"SLBDPLOJ\" , \"LOJAS\" ,.T. ,3,,xRdd )\n         RETURN .F.\n      ENDIF\n      oText:SetText( \"Indexando Arquivo \" + Alias() )\n      oMeter2:Setpos( LastRec() * 4)\n      NREG := 0\n      index on LOJAS-&gt;PRODUTO + LOJAS-&gt;LOJA                TAG SLBDPLO1 \n      index on LOJAS-&gt;LOJA + LOJAS-&gt;PRODUTO                TAG SLBDPLO2 \n      index on (DToS( LOJAS-&gt;DT_ENTRA ))                          TAG SLBDPLO3 \n      index on (DToS( LOJAS-&gt;DT_MOVIM ))                          TAG SLBDPLO4 \n   ENDIF\n\n//-----------------------------------------------------------------------------------------\n \ne possuo um SCOPO\n \ndbselectarea( \"LOJAS\" )\ndbsetorder(3)\nLOJAS-&gt;(ordscope(0, SPACE( 8 ) ))\nLOJAS-&gt;(ordscope(1, SPACE( 8 ) ))\nLOJAS-&gt;(dbgotop())\n\nEM ADSCDX  / funciona perfeitamente mostrando  os registro que não possuem DATA\n\nMAS COM ADT ELES NAO APARECEM !!!!','',0,'gA==','1u1sd1kq',1,0,'',1078,0,0),(32790,7176,6,2,0,'87.218.146.151',1180718573,1,0,1,1,1,1,'','','Podrías probar lo siguiente despues de llamar a KeyToggle():\n\noGet:KeyDown( VK_INSERT )','',0,'gA==','1d3ku9pw',1,0,'',2,0,0),(32791,7176,6,36,0,'200.113.56.235',1180718707,1,0,1,1,1,1,'','','jmu\n\nhas probado con oget:Enable() == &gt;  oGet:Disable()','',0,'gA==','h4pvaiv5',1,0,'',36,0,0),(32792,6011,6,596,0,'80.28.12.107',1180719790,1,0,1,1,1,1,'','','[quote=&quot;Marcelo Via Giglio&quot;:36l2fi18]...Claro lo complicado aqui es que tendrias que poner este servicio en cada equipo unix...[/quote:36l2fi18]\nNo solo eso, sino que no soy el \"amo\" de los equipos y tienen lo que tiene y solo me dan login y pass...\nCon \"Remote Shell\" seria feliz  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  (remote shel de FW, jejeje)','',0,'gA==','36l2fi18',1,0,'',596,0,0),(32793,7181,6,945,0,'80.32.177.143',1180720856,1,0,1,1,1,0,'','ActiveX con El Explorador Web por defecto','Muy buenas, estoy utilizando el activex que abre el explorador web, este es el codigo: oActiveX = TActiveX():New( oWnd, \"Shell.Explorer\" ),pero me interesaría saber si se puede utilizar el explorador web que se tenga por defecto, es decir, si tengo firefox pues que utilice este. Lo hago esto por que a veces me dá error el explorer.\n\n¿Que puede hacer?\nGracias.','',0,'gA==','26x6hdpl',1,0,'',945,0,0),(32794,7155,19,123,0,'80.58.205.40',1180721337,1,0,1,1,1,0,'','','Antonio,\n\n¿Qué se supone que se tiene que ver?\n\nA mi solo me aparece una ventana en negro.\n\nSaludos,\nJosé Luis Capel','',0,'gA==','1ekls33s',1,0,'',123,0,0),(32795,7182,6,319,0,'201.42.19.124',1180723708,1,0,1,1,1,0,'','ADORDD no Site','Como posso fazer para usar o adordd para buscar a tabela em meu site: onde estou errando?\n\ncFROM := \"www.bazevani.com.br/dados/\"\ncUSER := \"bazevani\"\ncPSW := \"karol139700\"\ncDBF := \"oferta\"\ncTABLE := \"ofertas\"\n\n\nSELECT 1\nUSE (AllTrim(cDbf)) VIA \"ADORDD\" TABLE AllTrim(cTable)  ;\nFROM AllTrim(cFrom) USER AllTrim(cUser) PASSWORD AllTrim(cPsw) SQL','',0,'gA==','1wasd57k',1,0,'',319,0,0),(32796,7155,19,54,0,'189.132.101.139',1180724629,1,0,1,1,1,1,'','','[quote=&quot;jlcapel&quot;:11n7h48c]Antonio,\n\n¿Qué se supone que se tiene que ver?\n\nA mi solo me aparece una ventana en negro.\n\nSaludos,\nJosé Luis Capel[/quote:11n7h48c]\n\nYa somos dos con la misma duda\n\njjejjejje','',0,'gA==','11n7h48c',1,0,'',54,0,0),(32797,7178,6,376,0,'190.42.40.150',1180725019,1,0,1,1,1,1,'','','Con Fwh + (x)Harbour se utiliza bwcc32.dll. Bwcc.dll es para 16 bits (clipper)','',0,'gA==','rsg8d29e',1,0,'',376,0,0),(32798,7183,6,519,0,'88.14.202.169',1180730029,1,0,1,1,1,0,'','Version de Windows','Hola \n\n   Existe en fivewin alguna funcion que me devuelva  la version  de windows donde corre el exe  ?\n\n  \n\n   Un saludo','',0,'gA==','z0faxsdo',1,0,'',519,0,0),(32799,7182,6,2,0,'87.218.146.151',1180732097,1,0,1,1,1,1,'','','Que error da ?','',0,'gA==','3tagu42n',1,0,'',2,0,0),(32800,7183,6,2,0,'87.218.146.151',1180732259,1,0,1,1,1,1,'','','En source\\function\\errsysw.prg tienes un ejemplo de uso:\n[code:spt9h54z]\n   local aVersions &#58;= GetVersion&#40;&#41;\n   &#46;&#46;&#46;\n      cErrorLog += &quot;   Windows version&#58; &quot; + ;\n                   AllTrim&#40; Str&#40; aVersions&#91; 1 &#93; &#41; &#41; + &quot;&#46;&quot; + ;\n                   AllTrim&#40; Str&#40; aVersions&#91; 2 &#93; &#41; &#41; + &quot;, Build &quot; + ;\n                   AllTrim&#40; Str&#40; aVersions&#91; 3 &#93; &#41; &#41; + ;\n                   &quot; &quot; + aVersions&#91; 5 &#93; + CRLF + CRLF\n[/code:spt9h54z]','',0,'AIA=','spt9h54z',1,0,'',2,0,0),(32801,7178,6,2,0,'87.218.146.151',1180732343,1,0,1,1,1,1,'','','Jorge,\n\nBusca en tus recursos las letras \"BOR\"','',0,'AIA=','1lgwnj5d',1,0,'',2,0,0),(32802,7183,6,519,0,'88.14.202.169',1180733154,1,0,1,1,1,0,'','','Gracias Antonio , pero lo que yo quiero que me devuelva es si  la version es win98 ,win95, winxp','',0,'AIA=','1t3abnyz',1,0,'',519,0,0),(32803,7166,3,281,0,'203.226.213.38',1180735258,1,0,1,1,1,1,'','email you a modified FiveHCM.lib,  compile error..','[quote=&quot;Antonio Linares&quot;:21c1ke7v]We email you a modified FiveHCM.lib, thanks[/quote:21c1ke7v]\n\nthank you. Antonio...\n\nMail Download file is Compiling... Error.  (fivehcm.lib)\n\nCompiling...\nHarbour devel build 1.1-0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'main.prg\' and generating preprocessed output to \'main.ppo\'...\nLines 5870, Functions/Procedures 32\nGenerating C source output to \'main.c\'... Done.\nmain.c\n\n   Creating library main.lib and object main.exp\nFiveHcm.lib(RICHEDIT.obj) : error LNK2001: unresolved external symbol _OleUIPasteSpecialA@4\nmain.exe : fatal error LNK1120: 1 unresolved externals\n* Application successfully built\n\nBest regards,','',0,'gA==','21c1ke7v',1,0,'',281,0,0),(32804,6814,3,35,0,'65.188.6.143',1180735831,1,0,1,1,1,0,'','','Antonio and Enrico\n\nTo the best of my knowledge MS SQL ( for a fact ) and Oracle databases do not use indexes in a traditional way and ADO can not access them for a seek .. \n\nI have found that the plain old oRs:Find( cSQL ) works just fine and is VERY fast !! ( 30k records running over a T1 wan ) .. something like this code snipit Enrico helped me with :\n\noRs:MoveFirst()\noRs:Find(\"reg_no = \'\"+cFIND+\"\'\" )\n\nIF oRs:eof\n    oRs:MoveFirst()\n\n    xFIND := \"reg_no like \'\"+cFIND+\"%\'\"\n    oRs:Find( xFIND )\n\n    IF oRs:eof()\n       Msginfo( \"Reg Number \"+cFind+\" can not be found\" )\n       oRs:MoveFirst()\n    ENDIF\nENDIF\n\nThis code seems to work on .mdb and SQL Server and I venture to guess all ADO databases .. and to me would be the best common denominator for wrapping ( seek ) into Ado RDD ..\n\nJust my thoughts\nRick Lipkin','',0,'gA==','2f4on40q',1,0,'',35,0,0),(32805,7151,6,264,0,'200.91.3.10',1180736367,1,0,1,1,1,1,'','','Biel.\ndisculpa la indiscresion, pero cuando te \"metas\" al mundo SQL el truncado SI será un problema. \nLa sugerencia que te da Antonio es buena\nNosotros tb tenemos campos de 1 Byte y coincidencias varias para ese caracter.\nSaludos','',0,'gA==','189uyvdj',1,0,'',264,0,0),(32806,6814,3,6,0,'87.9.34.115',1180737197,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:3e7xbbvt]oRs:MoveFirst()\noRs:Find(\"reg_no = \'\"+cFIND+\"\'\" )[/quote:3e7xbbvt]\n\nGreat! Then it seems that SEEK can be implemented via Find() method without the need of SET INDEX. One could eventually add indexes to database to speed up the search.\n\nAntonio?\n\nEMG','',0,'gA==','3e7xbbvt',1,0,'',6,0,0),(32808,6814,3,35,0,'65.188.6.143',1180739840,1,0,1,1,1,0,'','','Enrico\n\nThis could be a complicated issue for Antonio and the ADO rdd developers .. RDD is so engrained with the concept of indexes .. for me ( with your help ) .. I have been able to leverage my rdd knowledge in substituting the ADO methods and have almost finished my complete re-write of a very complicated and robust application in MS SQL.\n\nI see where the current ADO rdd builds on indexes for relations .. to me .. going into this ADO project .. I have totally abandoned indexes and sharpened my SQL to to just query what I want and not ( never, never ) do a SELECT * from TABLE unless I have to do an APPEND addnew() and that cursor is a bit UGLY 25k worth of records with a complete field recorset.\n\nFor the most part .. ( day to day ) data entry is limited to editing existing records and adding or editing related records spun off with a seperate recordset SELECT * ( or fields ) from &lt;relational table&gt; where &lt;condition&gt; = &lt;primary key&gt; .. returns only a cursor with limited records and I might add with no INDEXES... very fast.\n\nI have noticed a \'severe\' limitation to the SQL part of the ( open ) connection string in that if you list fields to limit your query .. if you add more than 6 or 7 ..  xHarbours ADO will lock up .. apparently there is a limit on the length of the charactor string you can pass .. \n\nI have taken a fresh approach to ADO and have totally wiped indexes off my radar scope. Now .. with that said .. I think the FIND method could be wrapped up into seek .. however if you use .dbf and ADO in combination you are going to have a translation problem .. what perhaps could happen is leave traditional seek in the ADO rdd for those developers that can use  those databases that support indexes .. but spin off a new command like SeekAdo ( cSQL ) that one could use the oRs:Find() wrapper.\n\nAlso needed is the &lt;order by&gt; clause in the USE command which I have found to have very little overhead in presenting a records fetch.. plus I think it helps if the &lt;order by&gt; is your primary key  .. \n\nLots of potential here .. could open up the whole RDMS world to xBase !!\n\nRick Lipkin','',0,'gA==','2kir4sqq',1,0,'',35,0,0),(32809,7178,6,1014,0,'190.42.176.106',1180740547,1,0,1,1,1,1,'','','Hola amigos \ngracias a todos por la atención\nLas unicas cadenas \"bor\" que tengo son de WS_BORDER.\nPor el solo hecho de usar el Workshop imagino que no tengo que adjuntar el Bwcc.dll ni el Bwcc32.dll.  De hecho en ningun momento hago el SET RESOURCES TO ninguno de ellos y el prog. funciona en mi maquina\nsaludos\nJorge Vargas','',0,'gA==','1clvyl15',1,0,'',1014,0,0),(32810,7126,6,66,0,'200.127.74.82',1180752700,1,0,1,0,1,0,'','','Estimado Antonio \n\nEn 800 x 600 me lo centra perfecto pero si cambio la resolucion\na 1024 no qque puedo hacer\n\n\n\nDEFINE DIALOG oDlg1 from 10,35 to 20,70  STYLE nStyle  COLOR CLR_BLUE,CLR_6 of oDlg\n\n   @ 0 ,06 say  ofecha Prompt \"CLAVE DE ACCESO \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n	  \n   @ 1.5 ,04 say  ofecha Prompt \"Usuario \"  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n\n   @ 2.8 ,04 say  ofecha Prompt oemtoansi(\"Contrase¤a \")  FONT OFONT of  oDlg1  COLOR CLR_BLACK,CLR_6\n   \n   @ 1.7 ,8 get  user of  odlg1\n   @ 3.0 ,8 get  pass  password of  odlg1\n\n\n\n   @ 5 ,07 sbutton  b   resource \"ok\" PROMPT  \"Continuar\" size 40,10  OF oDlg1  LOOK W97 TEXT ON_RIGHT action (Chkpass(user,pass), ODLG1:END)\n\n\nACTIVATE DIALOG oDlg1 CENTERED\n\nreturn nil\n\nDesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','2b13v9za',1,0,'',66,0,0),(32811,7159,6,78,0,'190.40.224.180',1180754321,1,0,1,1,1,0,'','Solucionado','Hola a todos\nVeamos,,  capturo un imagen por la webcam( clase tscanner de rafa ) luego la grabo en el disco en formato jpg, , la \"leo\" con el memoread, luego la convierto a hexadecimal, y el resultado lo cargo un una tabla mysql (campo tipo blob),\n\nuso las funciones STRTOHEX  y HEXTOSTR\n\nSalu2','',0,'gA==','1y9yoesl',1,0,'',78,0,0),(32812,7126,6,2,0,'87.218.146.151',1180758556,1,0,1,1,1,1,'','','La función WndCenter() en source\\winapi\\wndcente.c es la encargada de hacer el centrado. Podrías modificarla un poco para que se ajuste a tus necesidades.','',0,'gA==','37oblka9',1,0,'',2,0,0),(32813,7183,6,2,0,'87.218.146.151',1180758830,1,0,1,1,1,1,'','','Solo tienes que comprobar los valores que te devuelven aVersions[ 1 ] y aVersions[ 2 ] para saber si es Win95, Win98, WinXP, Vista, etc.\n\nEl siguiente código:\n[code:3429ya4s]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; AllTrim&#40; Str&#40; GetVersion&#40;&#41;&#91; 1 &#93; &#41; &#41; + &quot;&#46;&quot; + ;\n            AllTrim&#40; Str&#40; GetVersion&#40;&#41;&#91; 2 &#93; &#41; &#41; &#41;\n\nreturn nil\n[/code:3429ya4s]\nDevuelve: \n6.0 para Vista, 5.2 para XP, 4.10 para Win98 y 4.0 para Win95','',0,'AIA=','3429ya4s',1,0,'',2,0,0),(32814,7181,6,1035,0,'201.228.115.146',1180762274,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!\n\nBueno pieso yo que si usas ShellExecute el archivo se abrira en la Capa del Sistema Operativo y en esa capa tomara en cuenta cual es el Explorardor por defecto que tengas en uso\n\n[code:jbcbiazm]LOCAL cHtml&#58;=&quot;Archivo&#46;html&quot;\n\nShellExecute&#40;0,&quot;open&quot;,cHtml&#41;&#125;\n\n[/code:jbcbiazm]','',0,'AIA=','jbcbiazm',1,0,'',1035,0,0),(32815,7176,6,102,0,'87.217.67.19',1180772511,1,0,1,1,1,1,'','','Anotonio\nCon oGet:Keydown(VK_INSERT) funciona.\nComo te dije al entrar los Gets estan Disable y cuando voy a añadir o modificar los pongo enable. Asi que que al  activarlos y desactivarlos es cuando pongo oGet:Keydown(VK_INSERT) y funciona\nUna pregunta\nComo se cuando el insertar esta activo\nGracias','',0,'AIA=','1nfx2eok',1,0,'',102,0,0),(32816,7183,6,519,0,'88.24.59.166',1180779146,1,0,1,1,1,0,'','','Gracias Antonio , funciona perfectamente.','',0,'AIA=','7kqeydua',1,0,'',519,0,0),(32817,7159,6,596,0,'80.28.12.107',1180781751,1,0,1,1,1,1,'','Re: Solucionado','[quote=&quot;Willi Quintana&quot;:3789g0ov]...uso las funciones STRTOHEX  y HEXTOSTR...[/quote:3789g0ov]\nNo hace falta... usa fMimeEnc(cIn,cOut) y fMimeDec(cIn,cOut) que son MIME y es un estandar en conversion de binario a texto y viceversa.\nNo creo que las funciones que comentas \"tragen\" con variables de megas...\nSi se fijas con el MIME te fabrica lineas con CRLF para poderlas leer mejor.\n\nAlgo asi:\n[code:3789g0ov]gAUAA1pJUIWWzQAABE1BSU4EQ09ERQdDX0VURVhUB0VORENPREUJX1NZTVNUQVJUCFNZTVNUQVJU\nB1NZTUJPTFMHU1lNQk9MUwdfU1lNRU5EBlNZTUVORAROVUxMB0JFR0RBVEEFX0RBVEEEREFUQQZf\nU1lNUEIEREFUQQVfU1lNUAREQVRBBl9TWU1QRQREQVRBBl9DT05TVAVDT05TVARfTVNHA01TRwdf\nQkVHQlNTBkJFR0JTUwRfQlNTA0JTUwdfRU5EQlNTBkVOREJTUwZER1JPVVAQmAcAQE4AAgMBzZgH\nAEgAAAQFAQ+YBwBoAAAGBwHrmAcAYFAACAkBn5gHAGgAAAoLAeOYBwBoAAAMDQHfmAcASAAADg8B\n+5gHAEgAABARAfeYBwBICAASEwHrmAcASAAAFBUB75gHAEgAABYXAeuYBwAoAAAYGQEHmAcASAAA\nGhsB45gHAEgAABwdAd+YBwBIAAAeHwHbiAcAwMpQAAAAl5oIACD/CP8J/womjFQACEVSUk9SU1lT\nAAVJU1pJUAAHTVNHU1RPUAAIX19sdGFibGUACl9fUExBTktUT04ACl9fYWNydHVzZWQACURJU1BC\nRUdJTgAKQ0xJUFBFUjUzMADsiAoAgJ9DTElQUEVSQIgJAICfRVhURU5EiIgLAICfVEVSTUlOQUzy\niAkAgJ9EQkZOVFiKoFIAAQAAuBYAuwAAU7sAAFMOUJoAAAAAg8QIyyoAACoIABMDAAELUHJ1ZWJh\ncy56aXAAKQEAGxIAKgkAEwQAAQZFcyB6aXAAJwEAKgwAe3keAABgnZwFAMQBVAFFnAUAyARUBDuc\nBQDECFQEO5wFAMwOVgUqoFQABAAAAAAAAAAAAAAAAAAAAAAAAE1BSU4AAAAAAAAAAAAAAABFUlJP\nUlNZUwAAAAAAAAAASVNaSVAAAAAAAAAAAAAAAE1TR1NUT1AAAAAAAAAAAACenAcAzBxQAQAAJJwF\nAMwsVgEQnAUAzDxWAv+cBQDMTFYD7qAMAAkAAAAAAABQAAAA+5wFAMwAVAQ7kAsAAAEETUFJTgAA\nADuKAgAAdA==[/code:3789g0ov]','',0,'gIA=','3789g0ov',1,0,'',596,0,0),(32818,7176,6,2,0,'87.218.146.151',1180785080,1,0,1,1,1,1,'','','&gt; Como se cuando el insertar esta activo\n\nEl tamaño del cursor (\"caret\") cambia de tamaño. Tambien si usas una MsgBar en tu ventana principal, creada con la cláusula KEYBOARD, te muestra el estado de \"Ins\"\n[url=http&#58;//imageshack&#46;us:p496hmnh][img:p496hmnh]http&#58;//img359&#46;imageshack&#46;us/img359/9070/inskb7&#46;png[/img:p496hmnh][/url:p496hmnh]','',0,'GA==','p496hmnh',1,0,'',2,0,0),(32819,1820,3,267,0,'200.208.238.2',1180792364,1,0,1,1,1,1,'','','Hi,\n\nYou it obtained to use with FWh/xHarbour? I use this lib with FW/Clipper.','',0,'GA==','3c3s82bb',1,0,'',267,0,0),(32820,7184,2,785,0,'190.64.226.69',1180792958,1,0,1,1,1,0,'','programa FW en pendrive ?','Amigos:\n\nEs posible hacer funcionar un programa en FW 16 bits\nen un pendrive?\n\nSaludos.\n\nGracias\n\nRuben Fernandez.','',0,'GA==','2rxxa5py',1,0,'',785,0,0),(32821,7185,6,785,0,'190.64.226.69',1180793027,1,0,1,1,1,0,'','Programa FWH en pendrive?','Amigos:\n\nEs posible hacer funcionar un programa FW o FWH en un pendrive?\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'GA==','1h6l7avd',1,0,'',785,0,0),(32822,7182,6,319,0,'201.1.211.112',1180794721,1,0,1,1,1,0,'','','o servidor é access','',0,'GA==','11d4pgde',1,0,'',319,0,0),(32823,7185,6,78,0,'190.40.224.180',1180800353,1,0,1,1,1,0,'','','Hola Sr.\nSi, yo uso un memoria kingston de 1G, alli llevo mis exes y dll para hecer mis demos...\nSalu2','',0,'GA==','2y96tjm7',1,0,'',78,0,0),(32824,7159,6,78,0,'190.40.224.180',1180800377,1,0,1,1,1,0,'','','lo pruebo,\nSalu2','',0,'GA==','2cq7xrxz',1,0,'',78,0,0),(32825,7184,2,2,0,'87.218.146.151',1180803932,1,0,1,1,1,1,'','','Si, perfectamente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','1khbv2qu',1,0,'',2,0,0),(32826,7186,1,47,0,'58.8.99.19',1180804052,1,0,1,1,1,0,'','How can we get the record like &quot;Multi scope&quot;?','I\'ve used Clipper5.2/FW2.5/Comix.\n\nI would like to scope the databse by cmxSetScope(..,..) but some records is not the continue records.\n\nexample\n-----------\nIndex on type+upper(name) tag ....\nType  Name\n-----   --------------------\n  A     John\n  A     Jim\n  B     Jonatan\n  B     Sim\n  C     Jane\n\nHow can I use scope to get all name with \"J\" from above index by do not use array, because the record is greater than 100,000 records.\n\nRegards,\nDutch','',0,'GA==','238p7k1e',1,0,'',47,0,0),(32827,7186,1,6,0,'87.3.232.106',1180804329,1,0,1,1,1,1,'','Re: How can we get the record like &quot;Multi scope&quot;?','You can\'t. Just create an index on upper(name) and use it to set a scope on \"J\".\n\nEMG','',0,'GA==','8tayhw7u',1,0,'',6,0,0),(32828,7155,19,2,0,'87.218.146.151',1180804376,1,0,1,1,1,1,'','','Desde XP tambien se ve negro aqui, y funciona correctamente en Vista:\n[url=http&#58;//imageshack&#46;us:3uesm8pq][img:3uesm8pq]http&#58;//img398&#46;imageshack&#46;us/img398/8130/surfacehk1&#46;png[/img:3uesm8pq][/url:3uesm8pq]','',0,'GA==','3uesm8pq',1,0,'',2,0,0),(32829,7186,1,47,0,'58.8.99.19',1180804723,1,0,1,1,1,0,'','','Dear Enrico,\n\nI have 12 index tags with starting by \"Type\".  If I create new set of index it means 24 index tags.  I try to use cmFilter() but it is a little bit slow.  Can I have another solutions.\n\nRegards,\nDutch','',0,'GA==','2q16f5td',1,0,'',47,0,0),(32830,7166,3,2,0,'87.218.146.151',1180804781,1,0,1,1,1,1,'','','You have to link Microsoft oledlg.lib too','',0,'GA==','1z16di44',1,0,'',2,0,0),(32831,7186,1,6,0,'87.3.232.106',1180805052,1,0,1,1,1,1,'','','No, sorry.\n\nEMG','',0,'GA==','1aieuuj1',1,0,'',6,0,0),(32832,7155,19,6,0,'87.3.232.106',1180805122,1,0,1,1,1,1,'','','Works fine here with XP Pro SP2.\n\nEMG','',0,'GA==','sn204pfo',1,0,'',6,0,0),(32833,7184,2,785,0,'190.64.238.1',1180806950,1,0,1,1,1,0,'','','Gracias Antonio\n\nSaludos\n\nRuben Fernandez.','',0,'GA==','1scnzbjw',1,0,'',785,0,0),(32834,7185,6,785,0,'190.64.238.1',1180807073,1,0,1,1,1,0,'','','Gracias Willi...\n\nSaludos\n\nRuben Fernandez.','',0,'GA==','3j94v4ap',1,0,'',785,0,0),(32835,7178,6,376,0,'190.42.12.38',1180809299,1,0,1,1,1,1,'','','99.9% que en tu máquina está accesible el BWCC.DLL o el BWCC32.DLL. Verificalo.\n\nMucho antes yo tenia ese inconveniente hasta que por sugerencias del foro indicaban que se podría renombrar estas DLL con el nombre que quieras  y que luego lo adicionas como otro archivo más en la carpeta donde instalas el exe par no estar a que ya existan estas DLL en los equipos de tus clientes. Por supuesto que debes poner en tu rutina principal la sentencia que te permite reconocer tu DLL renombrada pr ti.\n\n \n[quote=&quot;jvargas&quot;:4angjbs0]Hola amigos \ngracias a todos por la atención\nLas unicas cadenas \"bor\" que tengo son de WS_BORDER.\nPor el solo hecho de usar el Workshop imagino que no tengo que adjuntar el Bwcc.dll ni el Bwcc32.dll.  De hecho en ningun momento hago el SET RESOURCES TO ninguno de ellos y el prog. funciona en mi maquina\nsaludos\nJorge Vargas[/quote:4angjbs0]','',0,'gA==','4angjbs0',1,0,'',376,0,0),(32836,7176,6,102,0,'87.217.67.19',1180810077,1,0,1,1,1,1,'','','Antonio me refiero saber cuando esta activo por software independientemente de que se vea en la Msgbar y el cursor tenga otro tamaño.\n\nGracias','',0,'gA==','1g55ii5t',1,0,'',102,0,0),(32837,7176,6,2,0,'87.218.146.151',1180813137,1,0,1,1,1,1,'','','#include \"set.ch\"\n\nMsgInfo( Set( _SET_INSERT ) )','',0,'gA==','29dvnnl7',1,0,'',2,0,0),(32838,7178,6,2,0,'87.218.146.151',1180813255,1,0,1,1,1,1,'','','Jorge,\n\nMuéstranos aqui la parte del RC correspondiente a un diálogo que te dé ese error, gracias','',0,'gA==','3p8kixxp',1,0,'',2,0,0),(32839,7029,6,426,0,'87.218.186.158',1180817002,1,0,1,1,1,0,'','','[quote=&quot;carlos vargas&quot;:2j6wvdec]Ok, \nuna pregunta que es offset?\nya que lo estaba intentando aplicarlo, pero no estoy muy seguro sobre lo que hace. (lo que comprendo es que es una especie de correccion)\n[/quote:2j6wvdec]\n\nExacto. xXOffset y nYOffset son valores de ajuste de coordenadas, indicando la posición de inicio del \"viewport\", es decir del area imprimible. Si revisas los valores que te devuelven los distintos parámetros de la impresora verás que, por ejemplo, teniendo configurada una hoja A4 te dice que el ancho es 198 o 202 o algo parecido. Eso es porque el viewport tiene el tamaño *realmente* disponible. Por ello, como nosotros siempre indicamos las coordenadas referidas al borde de la hoja debemos corregir el cálculo restando ese valor, ya que las coordenadas 0,0 no se refieren a la esquina superior izq. sino a ese punto en particular.\nDicho esto ahora resultan obvias las correciones de coordenadas: se calcula la relación o proporcion pixels-cm, y se les aplica la corrección por el offset siempre y cuando sean coordenadas. Si son dimensiones el nXOffset y nYOffset no deben aplicarse.\n\nEspero que les haya resultado útil el tema. Cuenten como les fue.\n\nUn saludo desde los Madriles, \n\nCarlos.','',0,'gA==','2j6wvdec',1,0,'',426,0,0),(32840,7151,6,456,0,'217.124.41.116',1180819831,1,0,1,1,1,1,'','','Hola Julio,\ngracias por el comentario, no habia caido en el posible problema con SQL, efectivamente es mejor ya programarlo con el SubStr, para evitarse futuros problemas.','',0,'gA==','2yr5tttb',1,0,'',456,0,0),(32841,7178,6,1014,0,'190.42.173.144',1180821238,1,0,1,1,1,1,'','','Gracias Armando por tu respuesta.\nlo voy a probar el lunes en el cliente.\npero por si acaso pongo mi RC\n//////////////////////\nCO101 DIALOG 110, 1, 318, 170\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION \"CO101 Maestro de Cuentas\"\nFONT 8, \"MS Sans Serif\"\n{\n LTEXT \"\", 117, 72, 4, 142, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n LTEXT \"Cuenta\", -1, 12, 16, 24, 8\n EDITTEXT 101, 42, 14, 27, 10, ES_LEFT | ES_OEMCONVERT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n EDITTEXT 102, 71, 14, 162, 10, ES_LEFT | ES_UPPERCASE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n LTEXT \"Cuentas Corrientes............\", 103, 45, 32, 90, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n EDITTEXT 104, 130, 30, 10, 10, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n LTEXT \"\", 105, 145, 32, 56, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n LTEXT \"Fec.Cancelación en C/A....\", 106, 45, 46, 90, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n EDITTEXT 107, 130, 44, 10, 10, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n LTEXT \"Ajust Inflasión (N)................\", 108, 45, 60, 92, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n EDITTEXT 109, 130, 58, 10, 10, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n LTEXT \"Cuentas Puente\", 110, 45, 78, 58, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n LTEXT \"Cargo:\", 111, 85, 88, 24, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n EDITTEXT 112, 114, 86, 28, 10, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n LTEXT \"\", 113, 146, 88, 158, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n LTEXT \"Abono:\", 114, 85, 105, 22, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n EDITTEXT 115, 114, 104, 28, 10, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n LTEXT \"\", 116, 148, 106, 156, 8, WS_CHILD | WS_VISIBLE | WS_GROUP\n PUSHBUTTON \"F2 - Grabar\", 902, 132, 146, 44, 14, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON \"F1 - Buscar\", 901, 74, 146, 44, 14, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE\n PUSHBUTTON \"Esc - Salir\", 900, 12, 146, 48, 14, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE\n}\n\nUna pregunta mas.\nsi uso Workshop de Borland no etengo que poner el\n SET RESOURCES TO BWCC32.dll para que funcione en XP?? o Si\nGracias Antonio.','',0,'gA==','3dh03qro',1,0,'',1014,0,0),(32842,7155,19,439,0,'200.125.33.174',1180821594,1,0,1,1,1,1,'','','Impresionante,\n\nLo he visto perfectamente con Windows XP SP2 Pro','',0,'gA==','1p87jxc0',1,0,'',439,0,0),(32843,7178,6,439,0,'200.125.33.174',1180822780,1,0,1,1,1,1,'','','&gt;si uso Workshop de Borland no etengo que poner el \n  SET RESOURCES TO BWCC32.dll para que funcione en XP?? o Si \n\n[url=http&#58;//img110&#46;imageshack&#46;us/my&#46;php?image=dibujouu8&#46;jpg:2hx7lv9r][img:2hx7lv9r]http&#58;//img110&#46;imageshack&#46;us/img110/1613/dibujouu8&#46;th&#46;jpg[/img:2hx7lv9r][/url:2hx7lv9r]\n\nLos controles de Borland son los que aparecen en la cuarta columna señalada con la flecha, [b:2hx7lv9r]si no usas estos y si no le das a la dialog Style BorDlg o BorDlg_Gray no necesitas el archivo BWCC32.dll en tus aplicaciones[/b:2hx7lv9r].\n\nLas dos siguientes filas a la derecha se agregan utilizando la librería de control: FWCtrls.dll (Gratuita, si no la tienes creo que esta en utilidades, sino, escribeme y te la mando)\n\nYo uso Resource Workshop desde que comencé a trabajar con Fivewin y me resulta muy cómodo, no dudo de que hayan mejores, pero no he podido de momento adaptarme a otro editor de recursos.','',0,'WA==','2hx7lv9r',1,0,'',439,0,0),(32845,7177,1,92,0,'83.41.221.80',1180823633,1,0,1,1,1,0,'','Re: ARRAY over 4096 elements','[quote=&quot;avista&quot;:md0duoe3]I need to use array longer than 4096 elements (multidimensional if possible), and it is verry important to be used in LISTBOX.\n\nSome sugestions ?[/b][/quote:md0duoe3]\n\nFirts, Antonio is right.\n\nSecond, try something like this with your code:\n\nArPrgElem[6] = TArray():New( your length array )\n\n@ 1,1 LISTBOX ArPrgElem[3] ;\n      FIELDS \"\" ;\n      UPDATE ;\n      OF IdeArra4[5][NumPrg][1] ;\n      ON LEFT DBLCLICK TeclaFWD( VK_RETURN, nFlags, IdeArra)\n\n// ArPrgElem[6] es el objeto de las array de arrays\n//\nArPrgElem[3]:nAt       = 1\nArPrgElem[3]:bLine     = { || { ArPrgElem[6]:xGet(ArPrgElem[3]:nAt) } }\nArPrgElem[3]:bGoTop    = { || ArPrgElem[3]:nAt := 1 }\nArPrgElem[3]:bGoBottom = { || ArPrgElem[3]:nAt := Eval( ArPrgElem[3]:bLogicLen ) }\nArPrgElem[3]:bSkip     = { | nWant, nOld | nOld := ArPrgElem[3]:nAt, ArPrgElem[3]:nAt += nWant, ;\n                                           ArPrgElem[3]:nAt := Max( 1, Min( ArPrgElem[3]:nAt, ;\n                                           Eval(ArPrgElem[3]:bLogicLen) ) ), ArPrgElem[3]:nAt - nOld  }\nArPrgElem[3]:bLogicLen = { || ArPrgElem[6]:nIndMax }\nArPrgElem[3]:cAlias    = \"ARRAY\"\n\nArPrgElem[3]:GoTop()\nArPrgElem[3]:nClrText := {|| ColorBloqueo( ArPrgElem[6]:xGet(ArPrgElem[3]:nAt) )}\nArPrgElem[3]:bRClicked := { |nRow,nCol,nKeyFlags| PasaMenu(nRow, nCol, nKeyFlags, IdeArra ) }\nArPrgElem[3]:nLineStyle := 0\n\n...\n\n\nThe class TARRAY:\n\n*****************************************************************************\n********************** Funciones £tiles s¢lo en FiveWin *********************\n********************** 66¦ parte ********************************************\n/* A tener en cuenta:\n        -Se trata de una matriz de 4096 * 4096 elementos.\n        -Se van a¤adiendo o borrando ROW\'s de 4096 a la vez y en esos\n         casos de realiza un RESIZE() de la matriz.\n\nSe trata de un clase muy interesante a la hora de tratar array\'s de\ngrandes dimensiones (superiores a 4096 elementos).\n*/\n\n\n#include \"FiveWin.ch\"\n\n#define CR  Chr( 13 )\n\n/*\n{ { ::a2[    1, 1 ], ::a2[    1, 2 ], ..., ::a2[    1, Len( ::a2[ 2 ] ) ] }, ;\n  { ::a2[    2, 1 ], ::a2[    2, 2 ], ..., ::a2[    2, Len( ::a2[ 2 ] ) ] }, ;\n  .......\n  { ::a2[ 4096, 1 ], ::a2[ 4096, 2 ], ..., ::a2[ 4096, Len( ::a2[ 2 ] ) ] }  ;\n}\n*/\n\n/*\n   Con  oArray:nIndMax = 500000 .-\n   Para nI = 245741, se produce un \"Clipper internal error\":\n   \"Error no recuperable 332:\n    Desbordamiento de la memoria para matrices/cadenas\"\n\n   He comprobado que funciona con oArray:nIndMax = 300000 .-\n*/\n\nCLASS TArray\n\n   DATA a2\n   DATA nIndMax, nIndRow, nIndCol\n\n   METHOD New( nIndMax )  CONSTRUCTOR // 0 &lt;= nIndMax &lt;= 4096^2\n   METHOD End()  INLINE ::a2 := nil, ;\n                        Memory( -1 )\n\n   METHOD xSet( nInd, xValor )\n   METHOD xGet( nInd )\n   METHOD uAdd( xValor )       //incluye resizing\n   METHOD uIns( nInd, xValor ) //incluye resizing\n   METHOD uDel( nInd )         //incluye resizing\n\n   METHOD uIncrSize() //m‚todo auxiliar\n   METHOD uDecrSize() //m‚todo auxiliar\n\nENDCLASS\n\n\nMETHOD New( nIndMax ) CLASS TArray\n\n   If nIndMax &lt; 0 .or. nIndMax &gt; 16777216\n      /*MsgStop( \"Clase  TArray()\" + CR +                     ;\n               \"nIndMax =\" + Str( nIndMax ) + CR +          ;\n               OemToAnsi( \"Indice máximo fuera de rango.\" ),;\n               \"0 &lt;= nIndMax &lt;= 4096^2 (16777216)\"          ;\n             )*/\n      MsgStop( \"Clase  TArray()\" + CR +                     ;\n               \"nIndMax =\" + Str( nIndMax ) + CR +          ;\n               \"Indice máximo fuera de rango.\", ;\n               \"0 &lt;= nIndMax &lt;= 4096^2 (16777216)\"          ;\n             )\n   End\n      ::nIndMax := nIndMax\n      ::nIndRow := 4096\n   If ::nIndMax &gt;  4096\n      ::nIndCol := 1 + Int( ::nIndMax / 4096 ) // ::nIndCol &gt;= 2\n   Else\n      ::nIndCol := 1\n   End\n   ::a2 := Array( ::nIndRow, ::nIndCol )\n   Memory( -1 )\n\nRETURN Self\n\n\nMETHOD xSet( nInd, xValor ) CLASS TArray\n\n  *No lo pongo, para no retardar...\n  *If nInd &lt; 1 .or. nInd &gt; ::nIndMax\n  *   MsgStop( \"Clase  TArray()\" + CR +   ;\n  *            \"::xSet( nInd, xValor )\",  ;\n  *            \"Indice fuera de rango:  nInd = \" + LTrim( Str( nInd ) ) ;\n  *          )\n  *End\n      ::nIndCol := Int( nInd / 4096 )      // ::nIndCol &gt;= 0\n      ::nIndRow := nInd - ::nIndCol * 4096 // ::nIndRow &gt;= 0\n   If ::nIndRow = 0\n     *( ::nIndCol &gt; 0 )\n      ::nIndRow :=                    4096\n   Else\n      ::nIndCol++\n   End\n   ::a2[ ::nIndRow, ::nIndCol ] := xValor\n\nRETURN xValor\n\n\nMETHOD xGet( nInd ) CLASS TArray\n\n  *No lo pongo, para no retardar...\n  *If nInd &lt; 1 .or. nInd &gt; ::nIndMax\n  *   MsgStop( \"Clase  TArray()\" + CR +   ;\n  *            \"::xGet( nInd )\",          ;\n  *            \"Indice fuera de rango:  nInd = \" + LTrim( Str( nInd ) ) ;\n  *          )\n  *End\n      ::nIndCol := Int( nInd / 4096 )      // ::nIndCol &gt;= 0\n      ::nIndRow := nInd - ::nIndCol * 4096 // ::nIndRow &gt;= 0\n   If ::nIndRow = 0\n     *( ::nIndCol &gt; 0 )\n      ::nIndRow :=                    4096\n   Else\n      ::nIndCol++\n   End\n\nRETURN ::a2[ ::nIndRow, ::nIndCol ]\n\n\nMETHOD uIncrSize()          CLASS TArray\n\n   local nIndCol, nI\n\n   If ::nIndMax &gt;  4096\n        nIndCol := 1 + Int( ::nIndMax / 4096 ) //   nIndCol &gt;= 2\n   Else\n        nIndCol := 1\n   End\n      ::nIndMax++ ///////\n      ::nIndRow := 4096\n   If ::nIndMax &gt;  4096\n      ::nIndCol := 1 + Int( ::nIndMax / 4096 ) // ::nIndCol &gt;= 2\n   Else\n      ::nIndCol := 1\n   End\n   If   nIndCol != ::nIndCol\n     *Resizeado de las columnas.-\n      For nI := 1 To 4096\n         aSize( ::a2[ nI ], ::nIndCol )\n      Next\n      Memory( -1 )\n   End\n   SysRefresh() //necesario para que funcione la pr¢xima ejecuci¢n\n                // de funciones del tipo  Msg...()\n\nRETURN nil\n\n\nMETHOD uDecrSize()          CLASS TArray\n\n   local nIndCol, nI\n\n   IF ::nIndMax = 1\n      ::nIndMax-- // ::nIndMax := 0\n         ::nIndRow := 4096\n         ::nIndCol :=    1\n      ::a2 := Array(  4096, 1 )\n      Memory( -1 )\n   ELSE\n      If ::nIndMax &gt;  4096\n           nIndCol := 1 + Int( ::nIndMax / 4096 ) //   nIndCol &gt;= 2\n      Else\n           nIndCol := 1\n      End\n         ::nIndMax-- ///////\n         ::nIndRow := 4096\n      If ::nIndMax &gt;  4096\n         ::nIndCol := 1 + Int( ::nIndMax / 4096 ) // ::nIndCol &gt;= 2\n      Else\n         ::nIndCol := 1\n      End\n      If   nIndCol != ::nIndCol\n        *Resizeado de las columnas.-\n         For nI := 1 To 4096\n            aSize( ::a2[ nI ], ::nIndCol )\n         Next\n         Memory( -1 )\n      End\n   END\n   SysRefresh() //necesario para que funcione la pr¢xima ejecuci¢n\n                // de funciones del tipo  Msg...()\n\nRETURN nil\n\n\nMETHOD uAdd( xValor ) CLASS TArray\n\n   ::uIncrSize()\n   ::xSet( ::nIndMax, xValor )\n\nRETURN nil\n\n\nMETHOD uIns( nInd, xValor ) CLASS TArray\n\n   local x\n   local nI\n\n   IF ::nIndMax = 0\n      ::uIncrSize()\n      nInd := 1 //\"pasamos de\" lo que valga  nInd\n   ELSE\n      If nInd &gt; ::nIndMax\n         MsgStop( \"Clase  TArray()\" + CR +   ;\n                  \"::uIns( nInd, xValor )\",  ;\n                  \"Indice fuera de rango:  nInd = \" + LTrim( Str( nInd ) ) ;\n                )\n      End\n      ::uIncrSize()\n     *Desplazamiento hacia abajo.-\n      For nI := ::nIndMax To nInd + 1 Step -1\n         x := ::xGet( nI - 1 )\n         ::xSet( nI, x )\n      Next\n   END\n   ::xSet( nInd, xValor )\n\nRETURN nil\n\n\nMETHOD uDel( nInd )         CLASS TArray\n\n   local x\n   local nI\n\n   IF ::nIndMax = 0\n      MsgStop( \"Clase  TArray()\" + CR +                  ;\n               \"Intento de borrar siendo  ::nIndMax = 0\",;\n               \"::uDel( \" + LTrim( Str( nInd ) ) + \" )\"  ;\n             )\n   ELSE\n      If nInd &gt; ::nIndMax\n         MsgStop( \"Clase  TArray()\" + CR +;\n                  \"::uDel( nInd )\",       ;\n                  \"Indice fuera de rango:  nInd = \" + LTrim( Str( nInd ) ) ;\n                )\n      End\n      If ::nIndMax &gt; 1 //de lo contrario,  ::nIndMax = 1\n         if nInd &lt; ::nIndMax //de lo contrario,  nInd = ::nIndMax\n           *Desplazamiento hacia arriba.-\n            For nI := nInd To ::nIndMax - 1\n               x := ::xGet( nI + 1 )\n               ::xSet( nI, x )\n            Next\n         end\n      End\n     *(Despreciamos el actual elemento  ::nIndMax -‚simo)\n      ::uDecrSize()\n   END\n\nRETURN nil\n\n\nRegards\nCarlos G.\n\nNote: Que alguién le traduzca mi mal ingles.','',0,'gA==','md0duoe3',1,0,'',92,0,0),(32846,7166,3,281,0,'211.234.208.147',1180827035,1,0,1,1,1,1,'','','Thank you\nAntonio Linares\n\nBest Regard\'s','',0,'gA==','5tjwo148',1,0,'',281,0,0),(32847,7178,6,2,0,'87.218.146.151',1180851013,1,0,1,1,1,1,'','','Jorge,\n\nAsegúrate de que el fichero RES se construye a partir del fichero RC y que se \"incrusta\" dentro del EXE.\n\nTe faltan dos defines en tu RC:\n#define ES_OEMCONVERT       0x0400L\n#define ES_UPPERCASE        0x0008L\n\nSi los añades al principio, ahora debería construirse el RES correctamente y será incrustado dentro del EXE. Para asegurarte de que el RES está dentro del EXE, abre el EXE con el resources workshop y debes ver tus recursos dentro de él.\n[url=http&#58;//imageshack&#46;us:2p22xyj2][img:2p22xyj2]http&#58;//img380&#46;imageshack&#46;us/img380/5176/testkc2&#46;png[/img:2p22xyj2][/url:2p22xyj2]','',0,'GA==','2p22xyj2',1,0,'',2,0,0),(32848,7188,3,2,0,'87.218.146.151',1180851899,1,0,1,1,1,1,'','FiveTech website &amp; forums activity for May 2007','[url=http&#58;//imageshack&#46;us:2g3oufvf][img:2g3oufvf]http&#58;//img488&#46;imageshack&#46;us/img488/659/activityvy6&#46;png[/img:2g3oufvf][/url:2g3oufvf]','',0,'GA==','2g3oufvf',1,0,'',2,0,0),(32849,7189,6,2,0,'87.218.146.151',1180852103,1,0,1,1,1,1,'','Actividad del website y foros de FiveTech en Mayo 2007','[url=http&#58;//imageshack&#46;us:1docy6h3][img:1docy6h3]http&#58;//img488&#46;imageshack&#46;us/img488/659/activityvy6&#46;png[/img:1docy6h3][/url:1docy6h3]','',0,'GA==','1docy6h3',1,0,'',2,0,0),(32850,7178,6,1014,0,'201.240.24.15',1180878263,1,0,1,1,1,1,'','','Hola Amigos\nArmando: las únicas Bwcc que tengo son las de FW y Bcc55, las renombré y mi Exe sigue funcionando perfecto. estas dll no estan en la ruta del Path.\n\nJosé Murugosa:\nmuchas gracias por tu explicación, la estaba necesitando y me gustaria que me convides tu FWCtrls.dll en <!-- e --><a href=\"mailto:vcjorge@yahoo.com\">vcjorge@yahoo.com</a><!-- e -->\n\nArmando:\nmuchas gracias por tu ayuda. probaré con los defines\n \ngracias a todos, amigos\nJorge Vargas','',0,'GA==','stgbttso',1,0,'',1014,0,0),(32851,7190,6,838,0,'80.59.225.15',1180880284,1,0,1,1,1,0,'','Ajuste de ventana','Hola a migos\n\nEn una aplicación arranco una ventana con un degradado como el siguiente:\n[url=http&#58;//img264&#46;imageshack&#46;us/my&#46;php?image=subidas1ue9&#46;jpg:d2kpyqcd][img:d2kpyqcd]http&#58;//img264&#46;imageshack&#46;us/img264/5916/subidas1ue9&#46;th&#46;jpg[/img:d2kpyqcd][/url:d2kpyqcd]\nY me presenta los dialogos bien, etc, pero quiero que me presente en la ventana, el Explorer, y me lo presenta de la siguiente imagen:\n[url=http&#58;//img392&#46;imageshack&#46;us/my&#46;php?image=subidas2lr9&#46;jpg:d2kpyqcd][img:d2kpyqcd]http&#58;//img392&#46;imageshack&#46;us/img392/1001/subidas2lr9&#46;th&#46;jpg[/img:d2kpyqcd][/url:d2kpyqcd]\n\nY todo esto a pesar de que le digo lo siguiente:\n  oActiveX = TActiveX():New( oWnd, \"Shell.Explorer.2\" ) \n  oWnd:oClient = oActiveX // To fill the entire window surface \nSin embargo, si no arranco con el degradado, me funciona perfectamente llenando el explore toda la pantalla\n\nSaludos\n\nJose luis','',0,'GA==','d2kpyqcd',1,0,'',838,0,0),(32852,7190,6,2,0,'87.218.146.44',1180880482,1,0,1,1,1,1,'','','Cómo haces el degradado ?\n\nY si quieres que el explorer ocupe toda la ventana, ¿ para que quieres el degradado ?','',0,'GA==','33q9svxg',1,0,'',2,0,0),(32853,7190,6,838,0,'80.59.225.15',1180882270,1,0,1,1,1,0,'','','Hola Antonio\nEl degradado lo hago con un fuente que vi en éste foro, así\n[code:3p68ql79]STAT FUNC Refr_Wnd&#40;hDC,oWnd&#41;\n\n   LOCAL hWnd, nColor&#58;=255\n   LOCAL aRect, nSteps\n   LOCAL oBrush, nI\n   Local lInit&#58;=&#46;T&#46;\n   LOCAL  aCoor,letras,longi\n   hWnd  &#58;=oWnd&#58;hWnd\n   aRect &#58;=GetClientRect&#40;hWnd&#41;\n   nSteps&#58;=&#40;aRect&#91;3&#93;-aRect&#91;1&#93;&#41;/3\n   aRect&#91;3&#93;=0\n   FOR nI=1 to nSteps\n      aRect&#91;3&#93;+=3\n      DEFINE BRUSH oBrush COLOR RGB&#40;nColor,nColor,nColor&#41;\n      FillRect&#40;hDC,aRect,oBrush&#58;hBrush&#41;\n      RELEASE BRUSH oBrush\n      aRect&#91;1&#93;+=3\n      nColor-=1\n   NEXT nI\n\n   SetBkMode&#40;hDC,1&#41;\n   SetTextColor&#40;hDC,CLR_WHITE&#41;\n   letras&#58;=&quot;Modulo de Subida de ficheros a Web&quot;\n   longi&#58;=len&#40;letras&#41;\n   DrawText&#40;hDC,letras,&#123;oWnd&#58;nHeight-105,1,oWnd&#58;nHeight-10,oWnd&#58;nWidth&#125;,1&#41;\nRETURN &#40;NIL&#41;\n[/code:3p68ql79]\n\nQuiero que el explorer ocupe toda la ventana, después de mostrar en ella otros Dialogos, ya que es un proceso que concluye ejecutando un archivo php en internet, pero antes me va mostrando en la ventana algunos dialogos, y en blanco me parece feo.\nDe todas las maneras, no se que me pasa que he quitado la rutina que hace el degradado, y me sigue con el mismo problema, cuando antes si me funcionaba. No se que habré tocado.\n\nSaludos\n\nJose Luis','',0,'AIA=','3p68ql79',1,0,'',838,0,0),(32854,7190,6,838,0,'80.59.225.15',1180883947,1,0,1,1,1,0,'','','Bueno, para salir del atasco, lo que he hecho ha sido que el explorer lo muestre en otra ventana que se crea en ése momento.\n\nSaludos\n\nJose Luis','',0,'AIA=','1ijmx12j',1,0,'',838,0,0),(32855,7191,6,935,0,'200.62.78.160',1180885562,1,0,1,1,1,0,'','consulta sobre checkbox','Saludes a Todos en el Foro,\n\nTengo una aplicacion que he migrado a 32 bits FWH+xHarbour 0.99.71 la compilacion y enlazado no hubo problemas, el hecho es que al correrla todos los dialogos que tiene checkbox me generan error y los folders no me los presenta, estos recursos los hice en Workshop de borland,\n\nQue puedo hacer, cualquier recomendacion es valida\n\nGracias y felicidades antonio por el nivel de actividad de fivetechsoft.com \n\n\nRamon Paredes\nManagua, Nicaragua','',0,'AIA=','pkdkqmdd',1,0,'',935,0,0),(32856,7191,6,54,0,'189.132.101.139',1180886061,1,0,1,1,1,1,'','Re: consulta sobre checkbox','[quote=&quot;Ramon Paredes&quot;:3pw8qgaz]Saludes a Todos en el Foro,\n\nTengo una aplicacion que he migrado a 32 bits FWH+xHarbour 0.99.71 la compilacion y enlazado no hubo problemas, el hecho es que al correrla todos los dialogos que tiene checkbox me generan error y los folders no me los presenta, estos recursos los hice en Workshop de borland,\n\nQue puedo hacer, cualquier recomendacion es valida\n\nGracias y felicidades antonio por el nivel de actividad de fivetechsoft.com \n\n\nRamon Paredes\nManagua, Nicaragua[/quote:3pw8qgaz]\n\nRamón,\n\nseria necesario ver como redefines los checkbox o el codigo de como creas el dialogo.','',0,'gA==','3pw8qgaz',1,0,'',54,0,0),(32857,7191,6,935,0,'200.62.78.160',1180889695,1,0,1,1,1,1,'','Lo uso desde Recursos','William,\n\nLo uso desde recursos del broland, y en el programa lo defino asi\n\nlocal oCk1,mCk1,oDlg,oNumero,mNumero\n\nmCk1 = .f.\nmNumero = space(5)\n\nDEFINE DIALOG oDlg RESOURCE 20\n\nREDEFINE GET oNumero Var mNumero ID 109 of oDlg\nREDEFINE CHECKBOX oCk1 Var mCk1 ID 110 of oDlg\n\nACTIVATE DIALOG oDlg CENTERED \n\nRETURN NIL\n\nasi cada uno de ellos','',0,'gA==','25dsd3no',1,0,'',935,0,0),(32858,7191,6,2,0,'87.218.146.44',1180894174,1,0,1,1,1,1,'','','Ramón,\n\nMuéstranos como tienes definidos los checkboxes en el RC','',0,'gA==','1ip12ycs',1,0,'',2,0,0),(32859,7190,6,1035,0,'190.70.19.0',1180894599,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!!\n\nPoque no nos muestra tu fuente completa para poder ver y probar la falla!!!\nEso seria bueno!!!','',0,'gA==','36hccdck',1,0,'',1035,0,0),(32860,7180,6,138,0,'212.145.203.73',1180902957,1,0,1,1,1,1,'','','1. Don\'t use the \"alias\" into the index\n\nLojas-&gt;producto is not a valid index expresion, use only the field name.\n\n2. Set Order is not a valid command for ADT tables, you need to use the OrdSetfocus() function instead of dbsetorder().','',0,'gA==','1uelb8a8',1,0,'',138,0,0),(32861,7181,6,138,0,'212.145.203.73',1180904255,1,0,1,1,1,1,'','','Hasta donde tengo entendido, FireFox no es proveedor ActiveX, por lo tanto no se puede utilizar con la clase ActiveX de Fw.','',0,'gA==','1iaj5250',1,0,'',138,0,0),(32862,7180,6,1078,0,'201.27.70.58',1180913816,1,0,1,1,1,0,'','','thanks Rene...\n\nalready I made the changes… but exactly thus, it continues not accepting empty date in scope using ADT \n\n\nUSE \"LCTO\" ALIAS LANC \nindex on TIPO+DTOS(DATA_PAG) TAG DTPAG \n\n// TIPO          = D-debit OR C-Credit\n\nLANC-&gt;(ordsetfocus(1))\nLANC-&gt;(ordscope(0, \"C\" + SPACE(8) ))\nLANC-&gt;(ordscope(1, \"C\" + SPACE(8) ))\nLANC-&gt;(DBGOTOP())\n 	\nit makes a test with the ARC!!!','',0,'gA==','t9ygvuvz',1,0,'',1078,0,0),(32863,7191,6,935,0,'200.62.80.113',1180925960,1,0,1,1,1,1,'','asi esta en el rc','Antonio ,\n\nEn el RC esta definido asi :\n\nDIALOG_21 DIALOG 64, 89, 305, 175\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Grabación del Catalogo de Cuentas\"\nFONT 8, \"Microsoft Sans Serif\"\n{\n EDITTEXT IDC_EDIT70, 77, 25, 60, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT IDC_EDIT32, 77, 41, 196, 12, WS_BORDER | WS_TABSTOP\n COMBOBOX IDC_COMBOBOX2, 77, 56, 81, 22, CBS_DROPDOWNLIST | WS_TABSTOP\n COMBOBOX IDC_COMBOBOX5, 77, 73, 193, 26, CBS_DROPDOWNLIST | WS_TABSTOP\n CONTROL \"Codigo:\", -1, \"BorStatic\", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 26, 39, 11\n CONTROL \"Nombre:\", -1, \"BorStatic\", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 42, 36, 11\n CONTROL \"Naturaleza:\", -1, \"BorStatic\", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 57, 42, 12\n CONTROL \"Rubro\", -1, \"BorStatic\", SS_LEFT | WS_CHILD | WS_VISIBLE | WS_GROUP, 29, 76, 36, 10\n PUSHBUTTON \"&amp;Aceptar\", IDC_PUSHBUTTON23, 96, 137, 51, 15\n PUSHBUTTON \"&amp;Cancelar\", IDC_PUSHBUTTON24, 169, 137, 51, 15\n CHECKBOX \"  Afectar Via Comprobante\", IDC_CHECKBOX2, 33, 105, 105, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n}\n\ntengo cerca de 60 recursos en el RC, algunos como este usan Checkbox y en algunos uso los controles de FwControl ( la lib ), lo raro es que la compilacion y el enlazado no dan problemas, el problema que me da es de error de excepcion de harbour\n\n Lo mismo sucede con los folders no me los presenta\n\nAgradeciendote,\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','3aoak04x',1,0,'',935,0,0),(32864,7191,6,935,0,'200.62.80.113',1180926696,1,0,1,1,1,1,'','es aqui','Antonio,\n\nRevisando, es exactamente donde activo el dialogo (Activate dialog) donde se ubica el error de excepcion de harbour y no crea ningun log ni nada con el error.\n\nGracias de nuevo\n\nRamon Paredes','',0,'gA==','3aowpwx6',1,0,'',935,0,0),(32865,7191,6,2,0,'87.218.146.44',1180937565,1,0,1,1,1,1,'','','Estás usando controles de Borland en tu RC, tienes que usar este código en tu programa, y usar la BWCC32.DLL:\n[code:1s8c1fxo]\n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;código de tu aplicación&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot; \n[/code:1s8c1fxo]','',0,'AIA=','1s8c1fxo',1,0,'',2,0,0),(32866,7192,3,995,0,'81.11.210.149',1180945851,1,0,1,1,1,0,'','xbrowse : SeekOnArray','Hello,\n\nWhen in a array autosort is on (incrimental search !) and two colums(search column) are swapped \n\nnAt    := Ascan( aData, {|v| Upper( cValToChar( v[ nFor ] ) ) = cSeek } )\n\nmust be changed in :\n\nnAt    := Ascan( aData, {|v| Upper( cValToChar( v[ aCols[ nFor ]:nCreationOrder  ] ) ) = cSeek } )\n\nFrank','',0,'','3aj6v02j',1,0,'',995,0,0),(32867,7193,3,86,0,'81.83.185.118',1180949055,1,0,1,1,1,1,'','Problem on error handling','Hello,\n\nSometimes I got an error like this :\n\n[quote:u0jl1bcl]Unrecoverable error 9003:\nToo many recursive error handler calls[/quote:u0jl1bcl]\n\nIt is not clear to me when this error occurs. Usually it is a small error which results to this message.\n\nHow can such errors be avoided ?\n\nThanks.','',0,'gA==','u0jl1bcl',1,0,'',86,0,0),(32868,7193,3,2,0,'87.218.146.44',1180952197,1,0,1,1,1,1,'','','Michel,\n\nThat error occurs when an error is generated from the error handler itself. \n\nFWH implements its error handler in source\\function\\errsysw.prg. If an error happens inside errsysw.prg, then the error handler is called recursively and then you get that 9003 error.','',0,'gA==','1dyqr549',1,0,'',2,0,0),(32869,4551,6,52,0,'200.117.219.70',1180953620,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:3a1p0u7n]Tu pide por esa boca....\n\nEnviado a tu privado[/quote:3a1p0u7n]\n\nPodrias enviarme ese ejemplo? estoy confundido con una app que estoy haciendo.\n\nGracias.\nMail: <!-- e --><a href=\"mailto:goosfancito@gmail.com\">goosfancito@gmail.com</a><!-- e -->','',0,'gA==','3a1p0u7n',1,0,'',52,0,0),(32870,7175,3,217,0,'200.159.120.34',1180962099,1,0,1,1,1,0,'','','Frank, AnsiUpper convert accented characters to upper case.\n i.e: AnsiUpper(\"éáç AEI aei\")    ------&gt; Result: \"ÉÁÇ AEI AEI\"\n\n(But it don\'t work with comercial xHarbour. Generate a GPF...)\n\nOr you can create your own OemToAnsi / Upper function. I created my own Upper function (UpperPT_BR) to capitalize brazilian portuguese characters correctly. \n\nRegards,\nMaurilio','',0,'gA==','22ii3s5g',1,0,'',217,0,0),(32871,7182,6,319,0,'201.42.19.124',1180962373,1,0,1,1,1,0,'','','Path and name: C:\\FWH29\\rddado\\access1.exe (32 bits)\n   Size: 1,562,112 bytes\n   Time from start: 0 hours 1 mins 35 secs \n   Error occurred at: 06/04/07, 10:04:19\n   Error description: Error ADODB.Recordset/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   SELECT * FROM ofertas\n     [   2] = C   Provider=SQLOLEDB;server=www.bazevani.com.br;database=oferta;uid=bazevani;pwd=karol139700\n     [   3] = N   1\n     [   4] = N   3','',0,'','2z4szw3i',1,0,'',319,0,0),(32872,7194,17,785,0,'190.64.140.90',1180962720,1,0,1,1,1,0,'','www.reportdesigner.info ?','Amigos:\n\nSigo sin poder conectarme a la página de de Timm\nAlguien sabe algo ?\n\nSaludos\n\nRuben Fernandez','',0,'','30lx9jvg',1,0,'',785,0,0),(32873,7181,6,316,0,'213.97.245.163',1180963134,1,0,0,1,1,0,'','','Hola gente,\n\nNo es muy nuevo, pero se puede.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.iol.ie/~locka/mozilla/control.htm\">http://www.iol.ie/~locka/mozilla/control.htm</a><!-- m -->\n\nSaludos,\n\nCarlos.','',0,'','puxfhwo9',1,0,'',316,0,0),(32874,7191,6,935,0,'200.62.120.245',1180963175,1,0,1,1,1,1,'','si funciona','Antonio,\n\nGracias por tu ayuda, se soluciono el problema de los checkbox como indicaste, me podrias orientar como hago con los folder que no me los presenta, (aun con la modificacion que me indicaste) el rc donde tengo folder es :\n\nDIALOG_38 DIALOG 17, 56, 375, 204\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Tablas y Catalogos de Contabilidad\"\nFONT 8, \"MS Sans Serif\"\n{\n CONTROL \"TFolder\", 121, \"TFolder\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 8, 9, 362, 188\n}\n\ny desde el programa lo invoco normal :\n\nDEFINE DIALOG oDlg RESOURCE 38 FONT oFont1\n\nREDEFINE FOLDER oFolder ID 121 OF oDlg ;\n         PROMPTS \"Catalogo\",\"Cuentas\",\"Documentos\",\"Tasa/Cambio\",\"Tabla EEFF\",\"Firmas Aut.\" DIALOGS 25, 25, 25, 25, 25,25\n\nSELECT CATALOGO\nREDEFINE BROWSE oBrw ID 120 of oFolder:aDialogs[1]\n\n        ADD COLUMN TO BROWSE oBrw ;\n            DATA CATALOGO-&gt;CODIGO  ;\n            HEAD \"Codigo\" ;\n            OEM WIDTH 120 ;\n            COLOR CLR_GREEN;\n            PICTURE \"@R 999-99-99999999\"\n\n        ADD COLUMN TO BROWSE oBrw ;\n            DATA OemToAnsi(CATALOGO-&gt;NOMBRE)  ;\n            HEAD \"Descripcion \" ;\n            OEM WIDTH 300 ;\n            COLOR CLR_RED\n\n        ADD COLUMN TO BROWSE oBrw ;\n            DATA CATALOGO-&gt;NATURAL ;\n            HEAD \"Naturaleza \" ;\n            OEM WIDTH 100 ;\n            COLOR CLR_BLUE\n\n        ADD COLUMN TO BROWSE oBrw ;\n            DATA CATALOGO-&gt;EEFF ;\n            HEAD \"EEFF\" ;\n            OEM WIDTH 100 ;\n            COLOR CLR_RED\n\n\nREDEFINE BUTTON ID 102 of oFolder:aDialogs[1] ACTION EditC1(.T.)\nREDEFINE BUTTON ID 103 of oFolder:aDialogs[1] ACTION EditC1(.F.)\nREDEFINE BUTTON ID 104 of oFolder:aDialogs[1] ACTION BorraC1()\nREDEFINE BUTTON ID 105 of oFolder:aDialogs[1] ACTION Busca1()\nREDEFINE BUTTON ID 106 of oFolder:aDialogs[1] ACTION oDlg:End() CANCEL\n\ntengo seis pestañas que de inicio presentan un browse, y despues con los botones de la derecha ( Agregar, Modificar etc.) invoca sus dialogos respectivos, el folder no se ve y no hay errores en la compilacion y enlazado \n\nSaludes, y nuevamente gracias\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'','rltgv0bq',1,0,'',935,0,0),(32875,7182,6,177,0,'194.30.62.6',1180964467,1,0,1,1,1,0,'','','Hola Ronaldo,\n\nasegurate que el nombre de la base de datos es correcta. Yo he probado lo siguiente y me ha funcionado:\n\nUSE Nomina VIA \"ADORDD\" TABLE \"PROFESION\" SQL FROM \"MyServer\" USER \"myuser\" PASSWORD \"mypass\" ALIAS NominaTables\n\nsiendo \n\nNomina - nombre de la base de datos\nPROFESION - tabla de la base de datos\nMyServer - mi servidor\nmyuser - mi usuario\nmypass - mi password\n\nProbado contra SQL Server 2000\n\nSaludos,\n\nFelix','',0,'','3usyapj4',1,0,'',177,0,0),(32876,7194,17,217,0,'200.159.120.34',1180967209,1,0,1,1,1,0,'','Re: www.reportdesigner.info ?','Ruben,\n\nAhi estoy conectando la pagina de Timm en <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w --> \n\nSalu2 de Brasil\nMaurilio','',0,'','3ob5005z',1,0,'',217,0,0),(32877,7193,3,86,0,'81.83.185.118',1180968527,1,0,1,1,1,1,'','','Antonio,\n\nThanks a lot for your answer.\n\nIt is clear to me now. I changed the errsysw.prg and there must be an error somewhere. I added a utility that the error.log file is automatically mailed to me if an error occurs on the PC of my customers.\n\nSo, I have some work to do.\n\nThanks.','',0,'','41e4um94',1,0,'',86,0,0),(32878,7195,3,86,0,'81.83.185.118',1180968598,1,0,1,1,1,1,'','Filtering in TwBrowse','Hello,\n\nI need to filter my data and show them in a TwBrowse.\n\nWhich is the best to do the filtering very fast ?\n\nThanks.','',0,'','1i9pi8fq',1,0,'',86,0,0),(32879,7191,6,940,0,'189.157.163.234',1180971543,1,0,1,1,1,1,'','','Ramon,\n\nmodificar el control, en tu rc,  en lugar de tfolder utiliza\n\n\"SYSTABCONTROL32\"\n\nestoy hay que hacerlo en todos tus dialogos donde usar el control \n\ntfolder\n\n\nsaludos..','',0,'','2f5nzb19',1,0,'',940,0,0),(32880,7191,6,940,0,'189.157.163.234',1180971623,1,0,1,1,1,1,'','','CONTROL \"\", 110, \"SYSTABCONTROL32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 4, 480, 235\n USERBUTTON \"&amp;Guardar\", 201, 237, 245, 81, 24\n USERBUTTON \"&amp;Cancelar\", 202, 321, 245, 83, 24','',0,'','2b5wqs85',1,0,'',940,0,0),(32881,4551,6,940,0,'189.157.163.234',1180972173,1,0,1,1,1,1,'','','con txbrowse lo hacemos de esta forma:\n\n   oCol := oBrw3:aCols[ 1 ]\n   oCol:nEditType := 1\n   oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, _saveCol1( o:nCreationOrder, v ), ) }\n\n\nstatic function _saveCol1( nCol, cValor  )\n   local nRecno := (cAli)-&gt;( recno() )\n   dbselectArea(cAli)\n\n   if nCol = 1\n      rlock()\n      field-&gt;fecha := ctod(cValor)\n      dbunlock()\n  endif\n  oBrw3:refresh()\n  dbgoto( nRecno )\nreturn\n\n\nsaludos...','',0,'','ll10n1gg',1,0,'',940,0,0),(32882,7151,6,456,0,'217.127.39.57',1180973938,1,0,1,1,1,1,'','','Ya tengo el tema resuelto, con la clase dbCombo de fivewin se puede hacer exactamente lo que yo queria.\n[code:3vkm40v4]\nREDEFINE DBCOMBO oDbf&#58;TipoFra ID 4001 OF oDlg ITEMS &#123;\'D\',\'S\',\'M\'&#125; PROMPTS &#123;\'Diaria\',\'Semanal\',\'Mensual\'&#125;\n[/code:3vkm40v4]\n\nGracias a Marcelo que me puso sobre la pista buena, y revisando el funcionamiento de dbCombo, vi que lo que queria ya estaba implementado, simplemente no se le pasa alias, y se envian dos arrays uno con los datos a visualizar, y otro con los datos a grabar.','',0,'AIA=','3vkm40v4',1,0,'',456,0,0),(32883,4551,6,52,0,'201.213.38.181',1180977544,1,0,1,1,1,1,'','','Gracias.-\n\n[quote=&quot;sysctrl2&quot;:jyjks3sb]con txbrowse lo hacemos de esta forma:\n\n   oCol := oBrw3:aCols[ 1 ]\n   oCol:nEditType := 1\n   oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, _saveCol1( o:nCreationOrder, v ), ) }\n\n\nstatic function _saveCol1( nCol, cValor  )\n   local nRecno := (cAli)-&gt;( recno() )\n   dbselectArea(cAli)\n\n   if nCol = 1\n      rlock()\n      field-&gt;fecha := ctod(cValor)\n      dbunlock()\n  endif\n  oBrw3:refresh()\n  dbgoto( nRecno )\nreturn\n\n\nsaludos...[/quote:jyjks3sb]','',0,'gA==','jyjks3sb',1,0,'',52,0,0),(32884,7196,6,1078,0,'201.27.70.58',1180981402,1,0,1,1,1,0,'','desabafo - relief','Sorry ... ( translate for google)\n\nEstou tentando usar o ADS com ADT ja faz um bom tempo \npois percebo que é uma ferramenta rapida e que facilita o trabalho.\n\nMas sinceramente não acho que vale apena continuar \npois ninguem sabe nada a respeito, e não existe suporte algum,\ncomo vou comprar um produto, se não o conheço, e sei da suas\nvantagens ??... como posso fazer um marketing falando bem do produto\nse não existe ninguem usando ???\nFaz duas semanas que estou tentando usar um INDICE com \nDATA VAZIA EM ADS + ADT  usando o DTOS e ninguem sabe \ncomo fazer isso... \n\nInfelizmente a politica que o ADS \npratica joga seus consumidores para outras ferramentas... \n\nPor isso desisto... \n\n-----------------------------------------------------------------------\n	\nI am trying to use the ADS with ADT ja makes a good time therefore I perceive that it is a fast tool and that it facilitates the work. But sincerely I do not find that valley imposes a fine on to continue therefore nobody knows nothing the respect, and does not exist support some, as I go to buy a product, if I do not know it, and I know of its advantages? … as I can make a marketing speaking well of the product if does not exist nobody using? It makes two weeks that I am trying to use a INDICE with EMPTY DATE IN ADS + ADT using the DTOS and nobody knows as to make this… Unhappyly the politica that the ADS practises plays its consumers for other tools… Therefore I give up…','',0,'gA==','1psjs9gx',1,0,'',1078,0,0),(32886,7196,6,529,0,'200.159.199.104',1180982582,1,0,1,1,1,0,'','','Amigo, uso ads local e remoto por mais de 5 anos, sem problemas, vc quer usar arquivos dbf ou adt nativo?','',0,'AIA=','8nlhc17k',1,0,'',529,0,0),(32887,7196,6,1078,0,'201.27.70.58',1180982962,1,0,1,1,1,0,'','','adt \njah uso ads + DBF  tb a MAIS DE 5 ANOS\nmas minha base de dados esta ficando ENORME \ncom mais de 3.000.000 de registros...\npor isso PENSEI NO ADT \nPOIS NOS TESTE QUE FIZ ELE É 20 % MENOS QUE OS \nDBF E 30 % MAIS RAPIDO.... NESTA MESMA BASE ....\nMAS NAO ESTOU CONSEGUINDO RESOLVER O PROBLEMA\nDE DATA VAZIA  \n\nindex ON CODIGO+DTOS(DATA_PAG) TAG \"IDX1\"\n\nordsetfocus(1)\nordSCOPE(0,\"00001\"+SPACE(8))\nordSCOPE(1,\"00001\"+SPACE(8))\ngotop','',0,'AIA=','mesyfh8b',1,0,'',1078,0,0),(32888,7196,6,36,0,'200.113.56.235',1180986748,1,0,1,1,1,1,'','','luiz\n\n[code:175s9bmb]\n\n//borrar indece primero antes de indexar\n\nindex ON CODIGO+DTOS&#40;DATA_PAG&#41; TAG &quot;IDX1&quot;\n\nordsetfocus&#40;1&#41;\n\nordSCOPE&#40;0,&quot;00001&quot; &#41;\nordSCOPE&#40;1,&quot;00001&quot; &#41;\nbrowse&#40;&#41;\n\n\nordSCOPE&#40;0,&quot;00001&quot;+space&#40;08&#41; &#41;\nordSCOPE&#40;1,&quot;00001&quot;+space&#40;08&#41; &#41;\nbrowse&#40;&#41;\n\n\n\n\n[/code:175s9bmb]','',0,'AIA=','175s9bmb',1,0,'',36,0,0),(32889,7195,3,6,0,'87.17.226.135',1180989750,1,0,1,1,1,1,'','Re: Filtering in TwBrowse','Scopes and conditional indexes.\n\nEMG','',0,'AIA=','up8u2ty3',1,0,'',6,0,0),(32890,7197,2,235,0,'189.145.40.224',1180990951,1,0,1,1,1,0,'','pregunta algo tonta','como le cambio el color a un font??? <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nde antemano muchas gracias','',0,'AIA=','3gg0hxda',1,0,'',235,0,0),(32891,7197,2,54,0,'189.132.101.139',1180991235,1,0,1,1,1,1,'','Re: pregunta algo tonta','[quote=&quot;Gerardo Farfan&quot;:2ek8hmgc]como le cambio el color a un font??? <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nde antemano muchas gracias[/quote:2ek8hmgc]\n\nGerardo,\n\nTengo entendido que a los FONTS no se les cambia el color, sino cuando mandas a imprimir, por ejemplo con un SAY.','',0,'gA==','2ek8hmgc',1,0,'',54,0,0),(32892,7191,6,935,0,'200.62.80.208',1180991884,1,0,1,1,1,1,'','resuelto','Cesar,\n\nGracias por tu recomendacion, lo probe y funciona sin problemas,\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','3ueyp2il',1,0,'',935,0,0),(32893,7178,6,1014,0,'190.42.183.112',1180995165,1,0,1,1,1,1,'','','Hola Amigos\nya funcionó mi exec en xp\nparece que era la falta de los DEFINEs que mostró Don Antonio Linares.\nAhora me falta el tema de xBrowse, que es para otra consulta.\nmuchas gracias a todos\nJorge Vargas','',0,'gA==','ersvjmij',1,0,'',1014,0,0),(32894,7195,3,86,0,'81.83.185.118',1181002498,1,0,1,1,1,1,'','','EnricoMaria, Thanks for you answer.\n\nCan you give me an example of filtering by scopes ?\n\nThanks.','',0,'gA==','25zcctb0',1,0,'',86,0,0),(32895,5339,6,52,0,'201.213.38.181',1181009702,1,0,1,1,1,1,'','','[quote=&quot;JoseLuis&quot;:2x4leho9]Gracias por contestar Armando.\nLo que hace el no leer atentamente todo, en fin he puesto una altura suficiente y así me puedo apañar\n[url=http&#58;//imageshack&#46;us:2x4leho9][img:2x4leho9]http&#58;//img378&#46;imageshack&#46;us/img378/5503/combo1iw2&#46;jpg[/img:2x4leho9][/url:2x4leho9]\n\nPero como verás sigue quedando un poco desplazado el combo hacia abajo. No habría alguna manera de centrarlo totalmente en la línea?.\nPor pura éstética.\n\nGracias y saludos\n\nJose Luis[/quote:2x4leho9]\n\nContinuando con el tema, estoy haciendo un combobox, y cuando se desplega la lista de items, selecciono uno y ya sale de edicion, o sea, sigue con la siguiente linea de codigo.\n\nPregunta- como hago para que solo siga al seleccionar uno y dar ENTER.\n\nGracias.\n\n  [code:2x4leho9]          uBuffer       &#58;= aDatos&#91;nAt,1&#93;\n\n            oBrw&#58;lEditCol&#40; 1, @uBuffer, , , CLR_YELLOW, CLR_CYAN, CargarOrigenes&#40;&#41; &#41;\n\n            // Verifico que no exista previamente&#46;\n           // Quiero seguir por estas lineas cuando se presione ENTER\n[/code:2x4leho9]','',0,'mIA=','2x4leho9',1,0,'',52,0,0),(32896,7198,6,439,0,'200.125.38.25',1181013502,1,0,1,1,1,1,'','Botón de ayuda en barra de título de window','Una pregunta probablemente sencilla, pero les aseguro que busqué en los manuales antes de molestar y no encontré el como.\n\nComo se suprime este botón de ayuda?\n\n[url=http&#58;//img78&#46;imageshack&#46;us/my&#46;php?image=dibujomz1&#46;jpg:3p3rytri][img:3p3rytri]http&#58;//img78&#46;imageshack&#46;us/img78/2739/dibujomz1&#46;th&#46;jpg[/img:3p3rytri][/url:3p3rytri]\n\nGracias desde ya por su ayuda!!','',0,'GA==','3p3rytri',1,0,'',439,0,0),(32897,7198,6,73,0,'189.157.184.89',1181016717,1,0,1,1,1,0,'','','en un dialogo lo suprimo con oDlg:lHelpicon := .F.\nsalu2\nPaco','',0,'GA==','37hibuu1',1,0,'',73,0,0),(32898,7195,3,6,0,'79.9.233.223',1181026614,1,0,1,1,1,1,'','','You must have an index on the key you want to scope:\n\n[code:2b79yb57]USE TEST\n\nINDEX ON FIELD -&gt; last + FIELD -&gt; first TO TEST\n\nCLOSE[/code:2b79yb57]\n\nAnd then you can use it:\n\n[code:2b79yb57]USE TEST INDEX TEST\n\nSET SCOPE TO &quot;F&quot;, &quot;L &quot;\n\nGO TOP\n\nBROWSE&#40;&#41;\n\nCLOSE[/code:2b79yb57]\n\nEMG','',0,'AIA=','2b79yb57',1,0,'',6,0,0),(32899,6011,6,596,0,'85.62.69.206',1181028579,1,0,1,1,1,1,'','','Bueno, pues al final lo he solucionado con el REMOTE SHELL.\nLas maquinas Unix a las que \"ataco\" para pedir datos lo tiene activado.\nEntonces con el comando [b:yfxz9e2e]rsh[/b:yfxz9e2e] de windows (el MS-DOS nunca muere) y la consola [b:yfxz9e2e]cmd[/b:yfxz9e2e] hago lo siguiente.\n\n[code:yfxz9e2e]function main&#40;&#41;\nlocal oShell&#58;=TOleAuto&#40;&#41;&#58;New&#40;&quot;WScript&#46;Shell&quot;&#41;\noShell&#58;Run&#40;&quot;cmd /K rsh 99&#46;99&#46;99&#46;99 -l usuario ifconfig -a &gt; tmp&#46;txt &amp; exit&quot;,0,&#46;F&#46;&#41;\nMagInfo&#40;Memoread&#40;&quot;tmp&#46;txt&quot;&#41;&#41; // Visualiza las IPs de las tarjetas de red de la maquina Unix\nreturn nil[/code:yfxz9e2e]\n\nPara que la pantalla de MS-DOS no aparezca al metodo :Run se le pasa los parametros \"0,.T.\".','',0,'QIA=','yfxz9e2e',1,0,'',596,0,0),(32900,7199,6,945,0,'80.32.177.143',1181035849,1,0,1,1,1,0,'','Estructura tabla en Access','Muy buenas, ¿alguien me podría decir como puedo coger la estructura de una tabla en .mdb?, con el código este ya accedo a los datos:\nFUNCTION prueba()\n\n    LOCAL oRs, oErr\n\n    oRs = CREATEOBJECT( \"ADODB.Recordset\" )\n\n        oRs:Open( \"SELECT * FROM FACTURAS1\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bbdd.mdb\", 1, 3 )\n    \n   // WBROWSERECORDSET( oRs )\n   // TCBROWSERECORDSET( oRs )\n   while !oRs:eof()\n       msginfo(oRs:fields(\"CIF\"):value)\n       oRs:Movenext()\n   end while\n    oRs:Close()\n\nRETURN NIL\n\n\nGracias.','',0,'QIA=','1fozlfcy',1,0,'',945,0,0),(32901,7199,6,2,0,'87.218.146.44',1181036803,1,0,1,1,1,1,'','','Puedes usar el ADORDD y usar FCount() y FieldName(), etc.','',0,'QIA=','26v9aitj',1,0,'',2,0,0),(32902,4551,6,1035,0,'201.228.115.96',1181037184,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!!\n\nBueno para un Objeto oBrw yo lo he utilizado asi!\n\n[code:15fnuvvk]\n  // Lista\n  oCol&#58;=oBrw&#58;AddCol&#40;&quot;VAL_TIPO&quot;&#41;\n  oCol&#58;cTitle    &#58;=&quot;Tipo&quot;\n  oCol&#58;nWidth    &#58;=200\n  oCol&#58;aItems    &#58;=&#123;&quot;EFECTIVO&quot;,&quot;CHEQUE&quot;,&quot;TARJETA CR&quot;,&quot;TARJETA DB&quot;,&quot;CESTA TIK&quot;,&quot;EGRESO&quot;&#125;\n  oCol&#58;aItemsData&#58;=&#123;&quot;EFE&quot;,&quot;CHQ&quot;,&quot;TAR&quot;,&quot;TDB&quot;,&quot;CTK&quot;,&quot;EGR&quot;&#125;\n  oCol&#58;lPrimary  &#58;=&#46;T&#46; // No puede Repetirse\n  oCol&#58;lRepeat   &#58;=&#46;F&#46;\n  oCol&#58;nEditType &#58;=EDIT_GET_BUTTON\n[/code:15fnuvvk]\n\nCuando utilizas la propiedad oCol:aItems y la llenas con un arreglo esta se convierte en un combobox\n\nCreo que es mas estupido que cualquiera de las anteriores!!\n\nAvisenos como les fue!!!','',0,'AIA=','15fnuvvk',1,0,'',1035,0,0),(32903,7199,6,945,0,'80.32.177.143',1181037649,1,0,1,1,1,0,'','Gracias','¿ Tienes algún ejemplo de como usar adordd ? gracias.','',0,'AIA=','2224dy6r',1,0,'',945,0,0),(32904,7195,3,86,0,'81.83.185.118',1181038695,1,0,1,1,1,1,'','','EnricoMaria,\n\nThanks for your example.\n\nUnfortunately, I got a syntax error on \"SCOPE\".\n\nIs it standard procedure in xHarbour ?\n\nThanks.','',0,'AIA=','3h00pivd',1,0,'',86,0,0),(32905,7195,3,6,0,'79.9.233.223',1181039314,1,0,1,1,1,1,'','','Try using\n\n#include \"Ord.ch\"\n\nor use the function instead of the command:\n\nORDSCOPE( 0, \"F\" )\nORDSCOPE( 1, \"L \" )\n\nEMG','',0,'AIA=','2k083tbv',1,0,'',6,0,0),(32906,7196,6,1078,0,'201.27.70.58',1181040651,1,0,1,1,1,0,'','','Patricio Muito Obrigado...\n\nCom ADSCDX funciona perfeitamente !!!\n\nMas com ADSADT nao Funciona :\nADSCDX :  dtos(ctdo(\"   /   /     \")) = SPACE( 8 )\nADSADT :  dtos(ctdo(\"   /   /     \")) = NULL\n\nJá tentei isso e nao funciona usando o scope\n\n--------------------------------------------------------------------------------\n[code:v5ixwncu]\n\n   REQUEST ADS,ADSKeyno,ADSKeyCount // TWBrowse&#40;&#41; **\n   REQUEST DBFCDX\n   RddRegister&#40; &quot;ADS&quot;, 1 &#41;   \n   rddsetdefault&#40; &quot;ADS&quot; &#41;     \n   AdsSetServerType&#40;1&#41;      \n   AdsSetFileType&#40;3&#41;          \n                              \n   AdsLocking&#40;&#46;T&#46;&#41;\n   AdsRightsCheck&#40;&#46;F&#46;&#41;\n   AdsTestRecLocks&#40;&#46;T&#46;&#41;\n   AdsSetDateFormat&#40;&quot;DD/MM/YYYY&quot;&#41;\n   AdsSetEpoch&#40;&quot;01/01/2000&quot;&#41;\n\nindex ON CODIGO+DTOS&#40;DATA_PAG&#41; TAG &quot;IDX1&quot;\nindex ON CODIGO+DTOS&#40;DATA_VEN&#41; TAG &quot;IDX2&quot;\n\nordsetfocus&#40;1&#41;\nordSCOPE&#40;0,&quot;00001&quot;+SPACE&#40;08&#41;&#41;\nordSCOPE&#40;1,&quot;00001&quot;+SPACE&#40;08&#41;&#41;\ngotop\n[/code:v5ixwncu]','',0,'AIA=','v5ixwncu',1,0,'',1078,0,0),(32907,7198,6,439,0,'200.125.41.50',1181042737,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:2ia360t0]en un dialogo lo suprimo con oDlg:lHelpicon := .F.\nsalu2\nPaco[/quote:2ia360t0]\n\nGracias Francisco, me anduvo perfecto.','',0,'gA==','2ia360t0',1,0,'',439,0,0),(32908,7200,1,161,0,'213.119.247.34',1181047965,1,0,1,1,1,0,'','OPC-server','Hi,\n\nDoes anyone allready made a connection to an OPC-server with FW?\nIf so, can you give me an example how to do this?\n\nThanks,\nMarc','',0,'gA==','2msmb3vt',1,0,'',161,0,0),(32909,5339,6,53,0,'189.139.18.148',1181050100,1,0,1,1,1,1,'','','Jose Luis:\n\nSi de estética se trata, yo reduciría la altura del renglón para ajustarlo al combo y ampliaría la altura del Header a la misma altura que el renglón, cuando menos y cambiaría el color del Header a blanco sobre negro.\n\nOjalá te guste como se ve.\n\nSaludos','',0,'gA==','2154p452',1,0,'',53,0,0),(32910,7196,6,529,0,'200.159.199.104',1181053996,1,0,1,1,1,0,'','','Amigo, talvez esse trecho de \"RF\" possa ajuda-lo:\n\nOtras cosas a tomar en cuenta:\n\nNULL no es lo mismo que vacío.... NULL es un valor que manejan muchas tablas SQL, un campo vacío en un archivo ADT no tiene un valor \"vacío\", sino que tiene un valor NULL, que es un valor neutro (como NIL) pero que a fin de cuentas es un \"valor\", esto nos complico un poco la vida al momento de hacer filtros o índices utilizando EMPTY(campo), sucede que los campos vacíos no respentan esta condición, porque en realidad no estan vacíos, tienen NULL, luego entonces la solución fue llenar estos campos vacíos con cadenas de caracteres vacías, o bien ceros en el caso de los campos numéricos.\n\nNorberto','',0,'gA==','hfobi2d2',1,0,'',529,0,0),(32911,7196,6,36,0,'190.82.221.91',1181053999,1,0,1,1,1,1,'','','LUIZ\n\nCon bases ADT debes tener cuidado con esto\n\n[code:2i7yubp0]\nincorrecto &#58;-&#40;\nbase-&gt;&#40; dbAppend&#40;&#41; &#41;\nbase-&gt;codigo &#58;= cCod\n\n\ncorrecto &#58;-&#41;\n\nbase-&gt;Codigo &#58;= cCod\nbase-&gt;Fecha   &#58;= dtos&#40; dFec &#41;\nbase-&gt;x1       &#58;= x1\nbase-&gt;x2       &#58;= x2\n&#46;\n&#46;\nbase-&gt;xN     &#58;= xN\n\n[/code:2i7yubp0]\n\ny asi sucesivamente, ya que con archivos ADT existe los \ndatos NULL','',0,'AIA=','2i7yubp0',1,0,'',36,0,0),(32912,7199,6,2,0,'87.218.146.44',1181062993,1,0,1,1,1,1,'','','Puedes descargarlo desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->\n\ndentro vienen ejemplos de uso. Es muy fácil','',0,'AIA=','2flloi03',1,0,'',2,0,0),(32913,7199,6,168,0,'200.44.49.54',1181066728,1,0,1,1,1,0,'','','Puedes hacer :\n\n oRs:Open( \"SELECT * FROM FACTURAS1 WHERE 1=2\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=bbdd.mdb\", 1, 3 ) \n\nAsi solo de llena la definicion de los campos y no te trae ningun registro','',0,'AIA=','c9jce80k',1,0,'',168,0,0),(32914,7201,6,1035,0,'190.70.19.0',1181068632,1,0,1,1,1,1,'','Propiedades de un Objeto!!','Saludos Cordiales Colegas!!!\n\nEs posible saber las propiedades de un objeto? o por lo menos sus variables contenidas!!\n\nEj: oObj:cCadena:=\"Hola\"\n     oObj:nValor   :=\"1234\"\n     oObj:aData    :={\"BRASIL\",\"ALEMANIA\",\"PORTUGAL\"}\n     oObj:lTrue     :=.F.\n     oObj:dFecha  :=DATE()\n\nY entonces alguna funcion que me muestre lo que tiene contenido oObj\n\nEj: View(oObj) o algo asi???\n\nSe podra???','',0,'AIA=','3fdjws2a',1,0,'',1035,0,0),(32915,7201,6,1035,0,'190.70.19.0',1181069659,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!! \n\nJejejeje ya consegui algo!!\n\n[code:37owvjfw]\nPROCE MAIN&#40;&#41;\nlocal aObj &#58;= aOData&#40;oObj&#41;\n\nViewArray&#40;aObj&#41;\n\n \nRETURN[/code:37owvjfw]\n\nPero hay una propiedad de aOData que se llama eho! pero no se que hace ni como funciona! si saben algo me avisa!! en el arreglo solo aparencen las variables! me gustaria que mostraran  sus valores!! si saben algo!! me avisan!!!\n\nLa sentencia es aOData.eho: !!!','',0,'AIA=','37owvjfw',1,0,'',1035,0,0),(32916,7201,6,2,0,'87.218.146.44',1181070366,1,0,1,1,1,1,'','','Daniel,\n\nTanto en Clipper como en Harbour, los objetos estan contenidos en arrays (son arrays con sus datos, más un puntero a su clase, para localizar los métodos), por lo que puedes inspeccionar un objeto así:\n[code:3lg9xn0b]\nfor n = 1 to Len&#40; oObjeto &#41;\n   MsgInfo&#40; oObjeto&#91; n &#93; &#41;\nnext\n[/code:3lg9xn0b]','',0,'AIA=','3lg9xn0b',1,0,'',2,0,0),(32917,7201,6,1035,0,'190.70.19.0',1181074800,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!\n\nAntono! Muchas Gracias por tu atención\n\nMe parece bien lo que planteas! pero asi solo me muestra los valores de las variables! sin decirme a quien pertenece esos valores! y el otro metodo solo me trae las variables que al parecer no esten vacias o nulas!\n\nImaginate entonces que hice lo siguiente\n\n[code:1es6qsc6]\nPROCE MAIN&#40;&#41;\nLOCAL aObj&#58;=aOData&#40;oDp&#41;,I,aData&#58;=&#123;&#125;\n\n\nFOR I=1 TO LEN&#40;aObj&#41;\n\nAADD&#40;aData,&#123;aObj&#91;I&#93;,oDp&#91;I&#93;&#125;&#41;\n\nNEXT I\n\nViewArray&#40;aData&#41;\n\n\nRETURN[/code:1es6qsc6]\n\nPero asi hay disparidad entre la cantidad de LEN(aObj) con LEN(oDp) porq   aObj esta contenidad de variables que al parecer no esten vacias o nulas y oDp cuanta a todas! Creo que es eso!! jeje!\n\nDe todas maneras lo que debo hacer es un listado de las variables con sus valores que esten contenidas en el objeto! como se hara eso?!\n\nGracias por Todo!!!!','',0,'AIA=','1es6qsc6',1,0,'',1035,0,0),(32918,7201,6,2,0,'87.218.146.44',1181075920,1,0,1,1,1,1,'','','Daniel,\n\nSe hace así:\n[code:1gcwovgi]\nfunction Main&#40;&#41;\n\n   local oError &#58;= ErrorNew&#40;&#41;\n   local aInfo &#58;= __ClassSel&#40; __ClassH&#40; oError &#41; &#41;\n   local n\n\n   for n = 1 to Len&#40; aInfo &#41;\n      MsgInfo&#40; aInfo&#91; n &#93; &#41;\n   next\n\nreturn nil\n[/code:1gcwovgi]\nLos nombres que empiezan por \"_\" son datos asignables, así para diferenciar una DATA de un método se sabe porque existe el mensaje que empieza por \"_\". El siguiente paso es enviar el mensaje al objeto dado el nombre del mensaje.','',0,'AIA=','1gcwovgi',1,0,'',2,0,0),(32919,7202,7,598,0,'200.75.105.42',1181080801,1,0,1,1,1,1,'','Guia de Comunicaciones en fwppc, Preambulo.','Hola que tal amigos del foro, este documento esta dirigido a principiantes y personas interesadas en tener una vision general acerca de las opciones mas populares de comucación en fwppc, yo ya estoy trabajando con esto desde mayo del año pasado cuando hice el curso introductorio en Donosti con geroa (muy bueno, porcierto) y en principio tuve las mismas inquietudes que uds. y bueno encontre lo siguiente:\n(mas o menos en orden de popularidad)\n\n- FTP: es la opcion mas usada (creo); consiste en la colocacion y/o subida de archivos bien sea dbf, txt, binarios etcetera, en un servidor ftp desde y hacia el dispositivo móvil; este archivo contendra la informacion de intercambio utilizada por el sistema. la ventaja es la sencillez en su utilizacion solo hay que tener un servidor FTP una cuenta válida, se transfieren los archivos y listo, sin muchas complicaciones,ademas de que la API de windows mobile ya lo implementa, la comunicación es asincrónica, es decir, el dispositivo se conecta al servidor, transfiere y se desconecta, la principal desventaja estriba en que el sistema debera esperar a la completar la transferencia para poder procesar la info y emitir una respuesta (para lo cual debera hacer una nueva conexion).  En la carpeta SAMPLES puede conseguir un ejemplo de su implementación. FTP.PRG\n\n- NetBios: Se obtiene una conexion a traves del servicio compartir archivos e impresoras de windows, el archivo de intercambio se utililiza directamente en la red, la manera mas facil, es abrir un archivo dbf en modo compartido para depositar en el todas las transacciones del sistema; ventaja, la simplicidad de su uso y que la comunicacion es totalmente sincronica o en linea como decimos algunos, el archivo de datos se actualiza de manera inmediata, siendo su unica limitacion el alcance y fiabilidad de la infraestructura de red que lo soporta, ya que este protocolo requiere una conexion permanente en su implementacion. Para acceder a un archivo de red solo debe incluirse en la ruta del archivo el \"\\\\\" ej. \"\\\\servidor\\datos\\miarchivo.dbf\" y porsupuesto estar dentro de una red netbios, se recomienda su uso en aplicaciones tales como restaurantes, tomas de inventario fisico y cosas por el estilo donde se puede instalar una topologia de red basado en Wifi, y se desaconseja su uso (opinion muy personal, cada quien escoje la solucion que mejor se adapta a la necesidad) en aplicaciones donde el uso de la infraestructura de red supone un costo por unidad o paquete de transmisión, ya que este protocolo consume una cantidad de ancho de banda muy superior a FTP y otras tecnologias que veremos a continuacion.\n\n- Email: Su uso esta poco difundido. Se basa principalmente en el envio de la informacion de intercambio del sistema en un formato de email, estableciendo una conexion directamente a un servidor SMTP y dejandole a este, el trabajito de almacenar/distribuir la informacion. La conexion es asincronica, muy util en aplicaciones donde existen múltiples destinatarios de la misma información, asi como tambien donde la capacidad de combinar datos tanto en texto plano como informacion binaria en formato MIME, es apreciada. Se puede enviar texto, fotos, datos en XML, archivos de datos binarios, etc; las aplicaciones son realmente casi ilimitadas, su principal desventaja es que se debe esperar a que el/los destinatarios de la información la reciban y la procesen para poder emitir una respuesta, otra desventaja es que se debe crear una clase fivewin para manejar el protocolo SMTP. No existen ejemplos actualmente para esto (que yo sepa).\n\n- HTTP: Esto tampoco se usa mucho. Sin embargo, una ventaja muy buena es la capacidad de interactuar con un servidor web. Este protocolo lo implementa el API de Windows Mobile. No existe un ejemplo de uso de este protocolo aunque estoy seguro de que se puede facilmente modificar el de FTP para este fin.\n\n- Modelo Cliente/Servidor (la que yo uso): Consiste en el establecimiento de una conexion TCP en la cual se pueden compartir datos de manera bidireccional, bien sea en formato de texto, o binario, claro que al ser binario supone un cierto grado de complejidad, la comunicacion puede ser tanto sincronica como asincronica, durante la conexion se pueden obtener respuesta inmediata desde el servidor ya que la información se procesa de manera simultanea, el intercambio supone una cantidad minima de datos, muy util en donde el costo por uso de la infraestructura de red es muy tomado en cuenta. Este modelo es realmente muy versatil ya que el desarrollador puede decidir el modo que mas le conviene: sincronica (conexion permanente), asincronica (conexion ocasional). La desventaja estriba en que se debe crear desde cero tanto una clase servidor como una clase cliente que implentente un control eficaz de errores a fin de operar correctamente sobre los datos.\n\nBueno amigos espero haber sido util, este documento solo es una pequeña introducción a fin de exponer las opciones mas populares, pronto estaremos profundizando en detalle acerca de cada una de las opciones presentadas, espero sus criticas, dudas, comentarios y sugerencias...\n\nSaludos','',0,'AIA=','1q3gicee',1,0,'',598,0,0),(32920,7157,7,598,0,'200.75.105.42',1181081156,1,0,1,1,1,1,'','','aqui escribi algo que podria serle de utilidad..\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7202\">http://fivetechsoft.com/forums/viewtopic.php?t=7202</a><!-- m -->','',0,'AIA=','jcjr3119',1,0,'',598,0,0),(32921,493,7,598,0,'200.75.105.42',1181081205,1,0,1,1,1,1,'','','Aqui escribi algo que podria serle de utilidad..\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7202\">http://fivetechsoft.com/forums/viewtopic.php?t=7202</a><!-- m -->','',0,'AIA=','2mfiy3aq',1,0,'',598,0,0),(32922,7040,7,598,0,'200.75.105.42',1181082443,1,0,1,1,1,1,'','','Que tal jose maria! tiempo sin verte, una pregunta... solucionaste lo del multicast??? \n\nsaludos','',0,'AIA=','34e2lu8r',1,0,'',598,0,0),(32923,7203,6,237,0,'201.213.111.219',1181085300,1,0,1,1,1,0,'','Problema con impresion en TGraph','Amigos:\n\nEstuve usando con éxito la clase TGraph de Alfredo Arteaga ( la descargue de su web), todo excelente, es una joyita.\nEl tema es que las impresiones por preview salen perfectamente, pero cuando lo mando a la impresora, el texto en vertical de la izquierda, en vez de salir en vertical, sale inclinado como a 45 grados.\nLe paso a alguien????\n\nFwh + xHrb\n\nSaludos!\nAlejandro Cebolido\nBuenos Aires, Argentina','',0,'AIA=','13d2ivz6',1,0,'',237,0,0),(32924,7202,7,2,0,'87.218.146.44',1181111971,1,0,1,1,1,1,'','','Luis,\n\nEs un cuestionario interesante, gracias!','',0,'AIA=','3ros76ue',1,0,'',2,0,0),(32925,7204,20,29,0,'88.149.163.143',1181114997,1,0,1,1,1,0,'','Visualizzare una bitmat su oWnd:oWndClient','Salve,\nho qualche problema a visualizzare una bitmap su una finestra MDI.\nSbaglio forse qualcosa nell\'utilizzare la funzione drawbitmap ?\n\nGrazie\n\nMarco\n----\n\n#include \"FiveWin.ch\"\n\n#define SRCPAINT   15597702   // 0xEE0086\n#define SRCAND      8913094\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   DEFINE WINDOW oWnd TITLE \"Testing bitmaps\";\n   MDI\n\n\n   @ 2, 2 BUTTON \"&amp;Display bitmap\" SIZE 120, 25 ACTION SHOWBMP(OWND) OF OWND:OWNDCLIENT\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction ShowBmp( oDlg )\n\n   local oBmp1\n\n   DEFINE BITMAP oBmp1 FILENAME \"..\\bitmaps\\Cartoon.bmp\"\n\n   DrawBitmap( oWnd:oWndClient, oBmp1:hBitmap, 0, 0, 0, 0, SRCPAINT )\n\n   oBmp1:End()\n\nreturn nil','',0,'AIA=','13acduzo',1,0,'',29,0,0),(32926,7205,3,130,0,'141.51.32.24',1181115889,1,0,1,1,1,0,'','Errror compiling xBrowse sample','Hi,\n\nI get an unresolved external, when I build the xBrwose sample (TestxBrw.prg) from latest FWH.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'AdsCloseCachedTables\' referenced from C:\\XHARBOUR71\\LIB\\RDDADS.LIB|adsfunc\n\nDo I miss somthing ?\n\nStefan','',0,'AIA=','3la3ywku',1,0,'',130,0,0),(32927,7206,3,130,0,'141.51.32.24',1181116200,1,0,1,1,1,0,'','Preview problem','Hi,\n\nI just updated to the latest FWH and now the cursor disappeared in the preview if I move over the white sheet. And the hand-cursor isn´t shown if I move over the bar.\n\nAny solutions ?\n\nThe preview-sample is working as exspectetd, it only happens in my program.\n\n\nStefan','',0,'AIA=','105su5m9',1,0,'',130,0,0),(32928,7207,6,316,0,'213.97.245.163',1181116740,1,0,0,1,1,0,'','Firmas en formato PKCS#7','Fivewinners,\nNecesito generar firmas digitales en el formato PKCS#7 para hacer presentaciónes telemáticas en la Agencia Tributaria (España). Alguien puede orientarme en el tema?\nGoogle me ha dicho poco y nada al respecto, y solo encontré algún trozo de código en Java pero no he terminado de aclararme, por lo que cualquier referencia que me oriente me vendría muy bien.\n\nSaludos,\n\nCarlos','',0,'AIA=','g8s8ssqt',1,0,'',316,0,0),(32929,7204,20,106,0,'85.34.123.173',1181119028,1,0,1,1,1,1,'','','A me funziona in questo modo:\n\n\n[code:2ko58ja4]\n\nSTATIC oBitmap, MainWnd\n\n\n********\nFUNCTION Main&#40;&#41;\n********\n\n   DEFINE WINDOW MainWnd FROM 0,0 to 28,80 ;\n    TITLE &quot;&quot;;\n      ICON oIcon;\n      COLOR CLR_WHITE, oV&#58;nRGBSfondo; \n      MENU oMenu;\n      MENUINFO 5;\n      MDI               // Finestra MDI\n\n   @MainWnd&#58;nBottom,MainWnd&#58;nRight BITMAP oBitMap  NAME &quot;LOGO2_WP50&quot; OF MainWnd&#58;oWndClient PIXEL\n\n   ACTIVATE WINDOW MainWnd MAXIMIZED ;\n      ON RESIZE &#40; Muevo&#40;&#41;, oBitMap&#58;refresh&#40;&#41; &#41;\n\nRETURN NIL\n*\n** eof Main\n\n***************\nSTATIC FUNCTION Muevo&#40;&#41;\n***************\n\n   local aRect &#58;= MainWnd&#58;GetCliRect&#40;&#41;\n   local oRect &#58;= TRect&#40;&#41;&#58;New&#40; aRect&#58;nTop, aRect&#58;nLeft, aRect&#58;nBottom,;\n                               aRect&#58;nRight &#41;\n\n   oRect&#58;nTop    &#58;= Max&#40; 0, Int&#40; &#40; aRect&#58;nBottom - oBitMap&#58;nHeight * 2 - 10 &#41; &#41; &#41;\n   oRect&#58;nBottom &#58;= oRect&#58;nTop  + oBitMap&#58;nHeight - 1\n   oRect&#58;nLeft   &#58;= Max&#40; 0, Int&#40; &#40; aRect&#58;nRight - oBitMap&#58;nWidth - 10  &#41; &#41; &#41;\n   oRect&#58;nRight  &#58;= oRect&#58;nLeft + oBitmap&#58;nWidth - 1\n\n   oBitMap&#58;SetCoors&#40; oRect &#41;\n\nreturn nil\n*\n** eof Muevo&#40;&#41;\n\n[/code:2ko58ja4]\n\n\nciao','',0,'AIA=','2ko58ja4',1,0,'',106,0,0),(32930,7207,6,177,0,'194.30.62.6',1181119134,1,0,1,1,1,0,'','','Carlos,\n\nhas pasado por\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/vb/net/PKSCStandard.asp\">http://www.codeproject.com/vb/net/PKSCStandard.asp</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://support.adobe.com/devsup/devsup.nsf/docs/50752.htm\">http://support.adobe.com/devsup/devsup. ... /50752.htm</a><!-- m -->\n\nSaludos,\n\nFelix','',0,'AIA=','1na2frlo',1,0,'',177,0,0),(32931,7204,20,29,0,'88.149.163.143',1181120627,1,0,1,1,1,0,'','','Si, anche a me funziona così però vorrei visualizzare la bitmap senza creare un oggetto.\n\nMarco','',0,'AIA=','1opx1c7w',1,0,'',29,0,0),(32932,7208,3,904,0,'196.25.255.246',1181121278,1,0,1,1,1,1,'','Software Copyright Protection','I apologise up front, because I realise this may not be the right forum to ask this question, but you guys are the only programmers/developers I know.\n\nWhat methods can one employ to protect your software from being copied to people that haven\'t bought it. Eg. serial numbers or activation codes etc.?','',0,'AIA=','2xtw9qmx',1,0,'',904,0,0),(32933,7205,3,2,0,'87.218.146.44',1181122680,1,0,1,1,1,1,'','','Stefan,\n\nAre you using the most recent ADS libraries ?','',0,'AIA=','1camqk9l',1,0,'',2,0,0),(32934,7206,3,2,0,'87.218.146.44',1181123202,1,0,1,1,1,1,'','','Stefan,\n\nDo you have defined any cursors in your application ?','',0,'AIA=','1xhz3et2',1,0,'',2,0,0),(32935,7208,3,2,0,'87.218.146.44',1181123473,1,0,1,1,1,1,'','','Ollie,\n\nThere are software and hardware solutions.\n\nThere are many choices if you use a software based protection. You can check the harddisk serial number, the network card serial number, and create a small key file, so if the application is copied to another computer it will not work. You can store the info on a file, on the registry, on a hidden (somewhere) fake DLL, etc.','',0,'AIA=','3u8avefx',1,0,'',2,0,0),(32936,7207,6,316,0,'213.97.245.163',1181123751,1,0,0,1,1,0,'','','Ahora mismo lo chequeo. Gracias por el dato.\n\nUna más, que estoy buscando ahora mismo: Como valido un NRC ingresado por el usuario?\n\nGracias,\n\nCarlos','',0,'AIA=','11m0jgmc',1,0,'',316,0,0),(32937,7208,3,904,0,'196.25.255.250',1181124101,1,0,1,1,1,1,'','','Can you guide me how to check the harddisk serial number, the network card serial number etc.?','',0,'AIA=','13c2ee3y',1,0,'',904,0,0),(32938,7208,3,6,0,'82.58.168.74',1181125337,1,0,1,1,1,1,'','','NSERIALHD()\nGETNETCARDID()\n\nEMG','',0,'AIA=','1ivx0m2h',1,0,'',6,0,0),(32939,7204,20,6,0,'82.58.168.74',1181125786,1,0,1,1,1,1,'','Re: Visualizzare una bitmat su oWnd:oWndClient','[code:1trhbqht]function ShowBmp&#40; oDlg &#41; \n\nlocal oBmp1 \n\nDEFINE BITMAP oBmp1 FILENAME &quot;\\fwharbour\\bitmaps\\Cartoon&#46;bmp&quot; \n\nDrawBitmap&#40; oWnd&#58;oWndClient&#58;GetDC&#40;&#41;, oBmp1&#58;hBitmap, 0, 0, 0, 0, SRCPAINT &#41; \noWnd&#58;oWndClient&#58;ReleaseDC&#40;&#41;\noBmp1&#58;End&#40;&#41; \n\nreturn nil[/code:1trhbqht]\n\nEMG','',0,'AIA=','1trhbqht',1,0,'',6,0,0),(32940,7205,3,130,0,'141.51.32.24',1181130388,1,0,1,1,1,0,'','','I don´t know, rddads is from latest xharbour, ace32.lib is from 12.04.2006. Are there newer libs ?\n\nStefan','',0,'AIA=','me3gyhhb',1,0,'',130,0,0),(32941,7206,3,130,0,'141.51.32.24',1181130637,1,0,1,1,1,0,'','','No, not in the printing module. I only changed the cursor while indexing and restore it afterwards.\n\nStefan','',0,'AIA=','3ipyxfgm',1,0,'',130,0,0),(32942,7209,3,130,0,'141.51.32.24',1181131299,1,0,1,1,1,0,'','File Trace.log','Hi,\n\nrunning new compiled apps I always get a file named trace.log.\n\nIt contains these lines:\n*** WARNING! Function: GETSYSFONT in Module: GETSYSIN.PRG is hidden by previously registered Module: ZR.PRG\n*** WARNING! Function: ALERT in Module: alert.prg is hidden by previously registered Module: ALERT.PRG\n*** WARNING! Function: GETNEW in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG\n\nWhat does that mean ? Is it an error in my app ?\n\nStefan','',0,'AIA=','20rab7vp',1,0,'',130,0,0),(32943,7177,1,1077,0,'80.77.147.50',1181132699,1,0,1,1,1,0,'','','I solved the problem thanaks to your sugestions ....\nnot using the classes but this working great.\n\nBest regards\n\np.s\n\nHere is the program\n=============\n\n\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\nLOCAL oDlg\n\n// Put in aSample array 40963\naSample={}\nfor i=1 to 10\n    aSampleTemp = {}\n    for j=1 to 4096\n        aadd(aSampleTemp,str(j))\n    next\n    aadd(aSample,aSampleTemp)\nnext\naadd(aSample,{\"1\",\"2\",\"3\"})\n\n\nDEFINE DIALOG oDlg FROM   0,  0 TO 500,300 PIXEL ;\n       TITLE \"Big Array\"\n\n// aSample = {{\"\",\"\"}}\n   @  35,  5 LISTBOX oList FIELDS \"\" UPDATE  OF oDlg SIZE 130,200 PIXEL\n\n   oList:nAt = 1\n   oList:bLine = { || { MyArrItem(aSample,oList:nAt) } }\n   oList:bGoTop = { || oList:nAt := 1 }\n   oList:bGoBottom = { || oList:nAt := Eval( oList:bLogicLen ) }\n   oList:bSkip = { | nWant, nOld | nOld := oList:nAt, oList:nAt += nWant, ;\n   oList:nAt := Max( 1, Min( oList:nAt, ;\n   Eval(oList:bLogicLen) ) ), oList:nAt - nOld }\n   oList:bLogicLen = { || MyArrLen(aSample) } // len(aSample) }\n   oList:cAlias = \"ARRAY\"\n\n   oList:GoTop()\n\nACTIVATE DIALOG oDlg CENTERED\n\nreturn NIL\n\n//--------------------------------------------------//\n\nFUNCTION MyArrItem( aArray, nPozicija )\n         nRow    = INT(nPozicija/4096) + 1\n         nCol = nPozicija - (nRow - 1) * 4096\n\n         IF nCol=0\n            nRow   = nRow -1\n            nCol=4096\n         ENDIF\n\nRETURN   aArray[nRow, nCol]\n\n//--------------------------------------------------//\n\nFUNCTION MyArrLen( aArray )\n         nLen    = ( LEN(aArray) -1 ) * 4096\n         nLen    = nLen + LEN(aArray[LEN(aArray)])\n\nRETURN nLen','',0,'','2ii607s9',1,0,'',1077,0,0),(32944,7207,6,177,0,'194.30.62.6',1181133655,1,0,1,1,1,0,'','','Carlos,\n\nmira en <!-- m --><a class=\"postlink\" href=\"http://www.aeat.org/normlegi/otros/ord281200-2.htm\">http://www.aeat.org/normlegi/otros/ord281200-2.htm</a><!-- m -->\n\nen el Anexo I quizás de aquí puedas sacar algo.Mira también en el BOE.\n\nSaludos,\n\nFélix','',0,'','eumagyxp',1,0,'',177,0,0),(32945,7209,3,6,0,'87.18.239.152',1181133693,1,0,1,1,1,1,'','Re: File Trace.log','No, it is an xHarbour problem that will be probably fixed shortly.\n\nEMG','',0,'','yafqt2jw',1,0,'',6,0,0),(32946,7203,6,237,0,'190.12.99.34',1181139001,1,0,1,1,1,0,'','Solucionado','Aparentemente se solucionó cambiando el el método Print() de la clase TGraph(), en el ::aFont[6] reemplacé el NESCAPEMENT 898 por 900 y con eso la impresión salió vertical perfectamente.\n\n\nSaludos\nAlejandro Cebolido\nBuenos Aires, Argentina','',0,'','1cjcx0xu',1,0,'',237,0,0),(32947,6444,6,106,0,'85.34.123.173',1181142737,1,0,1,1,1,1,'','','Me encontrè con el mismo problema, pero lo resolví asi:\n\n[code:occrqvvd]\n    REDEFINE GET oG&#91;4&#93; VAR cPosiz  ID 103 OF oDlg PICTURE &quot;@!&quot;  VALID &#40; IIF&#40; oG&#91;4&#93;&#58;oGet&#58;changed, msginfo&#40;&quot;modificado&quot;&#41;,  msginfo&#40;&quot;no modificado&quot;&#41; &#41;, &#46;T&#46; &#41;\n[/code:occrqvvd]\n\nSaludos.','',0,'AIA=','occrqvvd',1,0,'',106,0,0),(32948,7210,20,1082,0,'85.43.122.34',1181143683,1,0,1,1,1,0,'','da dove ricomincio?','Salve, sono un vecchio utilizzatore di fivewin, ho sviluppato delle procedure con la versione 1.9.2 più 6/7 anni fà. Ora mi riaffaccio nel settore e sto cercando di capire da dove ricominciare. Cosa mi consigliate di fare?\nRiparto da Fivewin?\nImparo l\'utilizzo di xharbour?\n\ngrazie','',0,'AIA=','3ceb0ljk',1,0,'',1082,0,0),(32949,7209,3,130,0,'84.138.56.117',1181143981,1,0,1,1,1,0,'','','Ok, thanks','',0,'AIA=','vu095z7j',1,0,'',130,0,0),(32950,7177,1,2,0,'87.218.146.44',1181145512,1,0,1,1,1,1,'','','Very good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','y2vnv5zu',1,0,'',2,0,0),(32951,7209,3,2,0,'87.218.146.44',1181145743,1,0,1,1,1,1,'','','Enrico,\n\nI don\'t think its an error. It looks as a quite usefull log to warn you for duplicated symbols, so you can know which ones you are using. It can certainly help to fix potential errors','',0,'AIA=','1u2z9dn1',1,0,'',2,0,0),(32952,7206,3,2,0,'87.218.146.44',1181145859,1,0,1,1,1,1,'','','Do you have prev32.dll at the same place where your app is ? Please check that it is the most recent one','',0,'AIA=','2r6014um',1,0,'',2,0,0),(32953,7210,20,6,0,'87.18.239.152',1181145896,1,0,1,1,1,1,'','Re: da dove ricomincio?','[quote=&quot;damianodec&quot;:3ppsqbe0]Salve, sono un vecchio utilizzatore di fivewin, ho sviluppato delle procedure con la versione 1.9.2 più 6/7 anni fà. Ora mi riaffaccio nel settore e sto cercando di capire da dove ricominciare. Cosa mi consigliate di fare?\nRiparto da Fivewin?[/quote:3ppsqbe0]\n\nSe già hai utilizzato queste librerie e ti ci sei trovato bene, perché no?\n\n[quote=&quot;damianodec&quot;:3ppsqbe0]Imparo l\'utilizzo di xharbour?[/quote:3ppsqbe0]\n\nxHarbour ti serve al posto di Clipper e quindi sei obbligato ad utilizzarlo se vuoi sviluppare programmi a 32 bit. Non c\'è molto da imparare, comunque. Puoi utilizzarlo come il vecchio Clipper. Ha delle estensioni e la compilazione avviene in due fasi (PRG -&gt; C e C -&gt; OBJ) ma il tutto può essere reso trasparente con un semplice batch.\n\nEMG','',0,'gA==','3ppsqbe0',1,0,'',6,0,0),(32954,7209,3,6,0,'87.18.239.152',1181146012,1,0,1,1,1,1,'','','It\'s only annoying for me. At least it should be optional.\n\nEMG','',0,'gA==','2t1hqclp',1,0,'',6,0,0),(32955,6444,6,2,0,'87.218.146.44',1181146064,1,0,1,1,1,1,'','','Como indican Patricio y Pedro, se puede sencillamente consultar &lt;Get&gt;:oGet:changed','',0,'gA==','x9mud9lf',1,0,'',2,0,0),(32956,7209,3,2,0,'87.218.146.44',1181146277,1,0,1,1,1,1,'','','&gt; At least it should be optional. \n\nYes, I agree. Though I would set it activated by default','',0,'gA==','15wi2jhl',1,0,'',2,0,0),(32957,7209,3,6,0,'87.18.239.152',1181146397,1,0,1,1,1,1,'','','Yes. The problem is that I have redefined some FWH functions and found that trace.log everywhere in my hard disk... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','272k8wzj',1,0,'',6,0,0),(32958,7207,6,316,0,'213.97.245.163',1181146713,1,0,0,1,1,0,'','','Gracias Felix por los enlaces. Los había visto, en todos te dá cuestiones de forma pero no algoritmos para poder validarlos como se puede hacer con el CIF.\n\nDe cualquier manera iremos haciendo experiencia en el rubro.\n\nMuchas gracias por tu tiempo,\n\nCarlos.','',0,'gA==','1adltsqy',1,0,'',316,0,0),(32959,7208,3,138,0,'189.141.73.45',1181147198,1,0,1,1,1,1,'','','What goes in by software, goes out by software.\n\nFor me, the only realiable method for copy protection are hardlock keys to be attached in the USB or in the pararell port.\n\nMy choice would be the Sentinel Super Pro hard keys, they also have a native driver for (x)Harbour.','',0,'gA==','1bccgp06',1,0,'',138,0,0),(32960,7208,3,6,0,'87.18.239.152',1181148619,1,0,1,1,1,1,'','','I don\'t think that solves the problem. Even an hardware protection key must be read by the software and therefore... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1bu1dozq',1,0,'',6,0,0),(32961,7209,3,2,0,'87.218.146.44',1181148917,1,0,1,1,1,1,'','','ops <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','294skljk',1,0,'',2,0,0),(32962,7207,6,177,0,'82.130.231.150',1181149536,1,0,1,1,1,0,'','','Carlos,\n\nepero que con este enlace tengamos mejor suerte\n\n<!-- m --><a class=\"postlink\" href=\"http://pago.red.es/descargas/entidades_financieras.pdf\">http://pago.red.es/descargas/entidades_financieras.pdf</a><!-- m -->\n\nSaludos,\n\nFélix','',0,'gA==','37dx693s',1,0,'',177,0,0),(32963,7207,6,177,0,'82.130.231.150',1181152328,1,0,1,1,1,0,'','','Carlos,\n\npásate por estos enlaces:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.bitopus.es/fitax/bitopus/bofestad/Vf/HA/ccaa/Andaluci/O_100605/O_10060529.html\">http://www.bitopus.es/fitax/bitopus/bof ... 60529.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"https://www.juntadeandalucia.es/economiayhacienda/servicios/normativa/d-consejeria/2005/orden10-06-05_2.pdf\">https://www.juntadeandalucia.es/economi ... 6-05_2.pdf</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.cert.fnmt.es/legsoporte/20en99.PDF\">http://www.cert.fnmt.es/legsoporte/20en99.PDF</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.boe.es/g/es/bases_datos/doc.php?coleccion=iberlex&amp;id=1998/15525&amp;codmap=\">http://www.boe.es/g/es/bases_datos/doc. ... 25&amp;codmap=</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://montilla.indra.es/editran/pdf/nr10usug.pdf\">http://montilla.indra.es/editran/pdf/nr10usug.pdf</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.boe.es/g/es/bases_datos/doc.php?coleccion=iberlex&amp;id=2001/07871\">http://www.boe.es/g/es/bases_datos/doc. ... 2001/07871</a><!-- m -->\n\nSigo buscando.\n\nSaludos,\n\nFélix','',0,'gA==','scgrwm75',1,0,'',177,0,0),(32964,7211,3,904,0,'196.25.255.246',1181152505,1,0,1,1,1,1,'','Multithreading','Is it possible to have a procedure that typicaly takes a while to run in the background while the user carries on with something else?','',0,'gA==','2tdu2k30',1,0,'',904,0,0),(32965,7207,6,177,0,'82.130.231.150',1181153272,1,0,1,1,1,0,'','','Carlos,\n\nalgunos más\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mityc.es/NR/rdonlyres/B407FC1F-95D6-4FF4-9618-27AC3D496085/0/50om729_03MH.pdf\">http://www.mityc.es/NR/rdonlyres/B407FC ... 9_03MH.pdf</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.revistalegal.com/estatico/boletines/boe/boe19990122/boe19990122_40-41.pdf\">http://www.revistalegal.com/estatico/bo ... _40-41.pdf</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.revistalegal.com/revistalegal.php?contenido=estatico/boletines/boe/boe19990122/boe19990122_3.html\">http://www.revistalegal.com/revistalega ... 122_3.html</a><!-- m -->\n\nSaludos,\n\nFélix','',0,'gA==','12l9vcrw',1,0,'',177,0,0),(32966,7212,7,57,0,'80.58.205.40',1181154606,1,0,1,1,1,1,'','Redefine BtnBmp, no refresca correctamente,','Antonio\nUtilizando desde recursos el control Btnbmp y pulsar repetidas veces el botón, ocurre lo que vas a ver:\n\n[url=http&#58;//img512&#46;imageshack&#46;us/my&#46;php?image=dibujohv7&#46;png:30f5jwzr][img:30f5jwzr]http&#58;//img512&#46;imageshack&#46;us/img512/5892/dibujohv7&#46;th&#46;png[/img:30f5jwzr][/url:30f5jwzr]\n\nHe probado forzando un refresh pero no consigo que se vea correctamente.\n\nSaludos\nToni Sales','',0,'GA==','30f5jwzr',1,0,'',57,0,0),(32967,7212,7,57,0,'80.58.205.40',1181154852,1,0,1,1,1,1,'','','Antonio\nTe adjunto el codigo que utilizando el bitmap de la carpeta samples\\Clients del ejemplo de Carles.:\n\n\n#include \"FWCE.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg, obj\n\n   DEFINE DIALOG oDlg RESOURCE \"PROBA\"\n\n   REDEFINE BTNBMP obj ID 100 OF oDlg ACTION obj:Refresh() RESOURCE \"SAVE\"\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n  102, 2,\n  I_IMAGENONE, 202, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 202, 0, 0,  \n  I_IMAGENONE, 203, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 203, 0, 1,  \nEND\nLANGUAGE LANG_SPANISH,SUBLANG_SPANISH_MODERN\n#endif\n\nSave BITMAP \"Clients/savedisk.bmp\"\n\nPROBA DIALOG 10, 27, 134, 90\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Clientes\"\nFONT 8, \"System\"\n{\n CONTROL \"Cancelar\", 100, \"BUTTON\", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 16, 16, 56, 44\n}','',0,'GA==','3gio48en',1,0,'',57,0,0),(32968,7211,3,2,0,'87.218.146.44',1181155051,1,0,1,1,1,1,'','','Ollie,\n\nUse a timer. Please review samples\\TestTime.prg','',0,'GA==','2zemy1mf',1,0,'',2,0,0),(32969,7213,2,304,0,'201.155.7.216',1181158456,1,0,1,1,1,0,'','Apertura de Dbf con Nombres largos','Hola:\nRequiero abrir bases de datos de un sistema el cual tiene mas de 8 caracteres, por ejemplo:\ntb15050701.dbf\n\nhay alguna forma de abrirla sin necesidad de renombrarla o copiarla a 8 caracteres ?????\n\nuse fw23,blinker 6.0, clip53\n\ngracias x su ayuda\nsalu2\nveracruz, mexico','',0,'GA==','23zez1fy',1,0,'',304,0,0),(32970,7213,2,596,0,'80.28.12.107',1181160732,1,0,1,1,1,1,'','Re: Apertura de Dbf con Nombres largos','Yo tengo esta funcion que convierte nombres largos en cortos...\n[code:1r3hszi9]function cShortName&#40; cLong &#41;\nlocal cShort &#58;=space&#40;164&#41;+Chr&#40;0&#41;\nlocal nBuffer&#58;=164\nlocal nLen\nnLen  &#58;=GetSPName&#40;cLong,@cShort,nBuffer&#41;\ncShort&#58;=left&#40;cShort,nLen&#41;\nreturn cShort\nDLL32 STATIC FUNCTION GetSPName&#40;lpszLongPath AS STRING,;\n                                lpszShortPath AS STRING,;\n                                lBuffer AS LONG &#41; ;\n                      AS LONG PASCAL FROM &quot;GetShortPathNameA&quot; LIB &quot;kernel32&quot;[/code:1r3hszi9]\n\nHaz algo asi [b:1r3hszi9]dbUseArea(.T.,\"\",cShortName(cNombreLargo),\"DBF\")[/b:1r3hszi9], en tu caso dbUseArea(.T.,\"\",cShortName(\"tb15050701.dbf\"),\"DBF\")\n\nPor si quieres te doy la funcion inversa:\n[code:1r3hszi9]function cLongName&#40;cShort&#41;\nlocal cLong&#58;=space&#40;164&#41;+chr&#40;0&#41;\nlocal nBuffer&#58;=164\nlocal nLen\nnLen&#58;=GetLPName&#40;cShort,@cLong,nBuffer&#41;\ncLong&#58;=left&#40;cLong,nLen&#41; &amp;&amp; Quitar para Windows NT\nreturn cLong\nDLL32 STATIC FUNCTION GetLPName&#40;lpszShortPath AS STRING,;\n                                lpszLongPath AS STRING,;\n                                lBuffer AS LONG&#41; ;\n                      AS LONG PASCAL FROM &quot;GetLongPathNameA&quot; LIB &quot;kernel32&quot;[/code:1r3hszi9]','',0,'QIA=','1r3hszi9',1,0,'',596,0,0),(32971,7206,3,130,0,'84.138.56.117',1181174788,1,0,1,1,1,0,'','','Yes, the prev32.dll is in the same dir where the app is and it´s the from the latest FWH. \n\nThe needed resource (lupa) is inside, so it should work. All the bitmaps are shown, only the cursor disappeared moving over the white sheet.\n\nEvery sample or smaller app is working fine, it happens only in bigger apps.\n\nStefan','',0,'QIA=','2g594u1z',1,0,'',130,0,0),(32972,7208,3,239,0,'59.40.64.113',1181182885,1,0,1,1,1,0,'','','Encrypt customer\'s name into a key string , save to somewhere as a file or in databse, for much more bills must printer customer\'s name .\n  On login time, compare stored customer name and  encrypt key string . \n\nShuming Wang','',0,'QIA=','2yyt4zoi',1,0,'',239,0,0),(32973,7208,3,904,0,'198.54.202.250',1181194157,1,0,1,1,1,1,'','','Please exlain this part further: \n[quote:1831gv5t]for much more bills must printer customer\'s name . \n[/quote:1831gv5t]','',0,'gA==','1831gv5t',1,0,'',904,0,0),(32974,7208,3,2,0,'87.218.146.44',1181198627,1,0,1,1,1,1,'','','Ollie,\n\nI guess he means that when the application prints invoices, then it uses the customer name, and they can not use someone else name.','',0,'gA==','3f1uamx8',1,0,'',2,0,0),(32975,7214,4,137,0,'151.38.8.195',1181198654,1,0,1,1,1,0,'','xHarbour x FWPPC','Antonio,\ndo you planned an xharbour build for FWPPC?\n\nThx,\nRoberto Parisi','',0,'gA==','2b6q3ljl',1,0,'',137,0,0),(32976,7206,3,2,0,'87.218.146.44',1181198710,1,0,1,1,1,1,'','','Stefan,\n\nAre you using xharbour ? If so, please check if you get a trace.log file','',0,'gA==','3lpqxs00',1,0,'',2,0,0),(32977,7214,4,2,0,'87.218.146.44',1181198861,1,0,1,1,1,1,'','','Roberto,\n\nActually its not on our plans as xharbour is more complex and heavier than harbour and it will be quite difficult to port it to Pocket PC. Harbour already was complex enough to get ported','',0,'gA==','1rvn4q8c',1,0,'',2,0,0),(32978,7214,4,6,0,'87.18.239.11',1181199636,1,0,1,1,1,1,'','','But you made the miracle either. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2rylshzb',1,0,'',6,0,0),(32979,7214,4,2,0,'87.218.146.44',1181200591,1,0,1,1,1,1,'','','Enrico,\n\nThe main difficulty is that Windows Mobile and Windows PC have many differences and there are many missing functions, so we had to build an intermediate layer to emulate the missing Windows API functions. Besides that, Pocket PC uses unicode, meanwhile Windows PC does not need it.\n\nAs xharbour has more code on it, it requires more Windows API functions, so the intermediate compatibility layer gets more complex.\n\nAlso the Harbour resulting EXEs are smaller, something that it is quite desirable for the Pocket PC which has limited resources.','',0,'gA==','8xtq8vsx',1,0,'',2,0,0),(32980,77,3,32,0,'216.6.55.242',1181200699,1,0,1,1,1,0,'','GetNetCardID under xhb Commercial','Hi,\n\nI\'m getting a unresolved external __chkstk when I try to use this','',0,'gA==','171gc2jq',1,0,'',32,0,0),(32981,77,3,2,0,'87.218.146.44',1181200860,1,0,1,1,1,1,'','','Alex,\n\nTry linking Borland cw32.lib','',0,'gA==','1g4vk16c',1,0,'',2,0,0),(32982,77,3,32,0,'216.6.55.242',1181201113,1,0,1,1,1,0,'','','A borland library with commercial xharbour?','',0,'gA==','sapyglgi',1,0,'',32,0,0),(32983,77,3,2,0,'87.218.146.44',1181201505,1,0,1,1,1,1,'','','ops, my mistake <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThen you should require it to xHB guys. \n\nIf I am not wrong, __chkstk stands for check stack, so you could safely create a dummy C function with such name\n\nvoid _chkstk( void ) { }','',0,'gA==','2xv8kgu8',1,0,'',2,0,0),(32984,77,3,32,0,'216.6.55.242',1181201959,1,0,1,1,1,0,'','GetNetCardID','If I add that dummy function, GetNetCardID kills my app.\n\nWill ask on xhb newsgroup\n\nAlex','',0,'gA==','19o8bhuh',1,0,'',32,0,0),(32985,77,3,2,0,'87.218.146.44',1181204361,1,0,1,1,1,1,'','','Alex,\n\n&gt; Will ask on xhb newsgroup\n\nYes, its the right way <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','15azlmzb',1,0,'',2,0,0),(32986,77,3,2,0,'87.218.146.44',1181205153,1,0,1,1,1,1,'','','Alex,\n\nJust out of curiosity, please try it this way:\n\nBOOL _chkstk( void ) { return TRUE; }','',0,'gA==','23zt10i8',1,0,'',2,0,0),(32987,77,3,32,0,'216.6.55.242',1181207182,1,0,1,1,1,0,'','','No luck <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->\n\nBusy trying to get following code to work. It compiles. I just need to figure out how to return an array of adapter names and addresses\n\n[code:58gsfl3g]\n#include &lt;iphlpapi&#46;h&gt;\n\n// Fetches the MAC address and prints it\nstatic void GetMACaddress&#40;void&#41;\n&#123;\n  IP_ADAPTER_INFO AdapterInfo&#91;16&#93;;       // Allocate information\n                                         // for up to 16 NICs\n  DWORD dwBufLen = sizeof&#40;AdapterInfo&#41;;  // Save memory size of buffer\n\n  DWORD dwStatus = GetAdaptersInfo&#40;      // Call GetAdapterInfo\n    AdapterInfo,                 // &#91;out&#93; buffer to receive data\n    &amp;dwBufLen&#41;;                  // &#91;in&#93; size of receive data buffer\n//  assert&#40;dwStatus == ERROR_SUCCESS&#41;;  // Verify return value is\n                                      // valid, no buffer overflow\n\n  PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo; // Contains pointer to\n                                               // current adapter info\n  do &#123;\n//    PrintMACaddress&#40;pAdapterInfo-&gt;Address&#41;; // Print MAC address\n\n    pAdapterInfo = pAdapterInfo-&gt;Next;    // Progress through\n                                          // linked list\n  &#125;\n  while&#40;pAdapterInfo&#41;;                    // Terminate if last adapter\n&#125;\n[/code:58gsfl3g]','',0,'AIA=','58gsfl3g',1,0,'',32,0,0),(32988,7215,6,52,0,'201.213.38.181',1181207414,1,0,1,1,1,1,'','Twbrowse y el font','Gente.\n\nEstoy intentando cambiar el tipo de fuente de la TW modificada por Hernan y no me da un tronco de bola.\n\n[code:3q6obxeo]      case aItems != nil\n           @  aPos&#91; 1 &#93;, aPos&#91; 2 &#93; COMBOBOX &#58;&#58;oGet VAR uVar ITEMS aItems ;\n              SIZE nWidth, Max&#40; 200, Len&#40; aItems &#41; * 25 &#41; OF Self ;\n              FONT oFont COLOR nClrFore, nClrBack ;\n              ON CHANGE &#58;&#58;End&#40;&#41; ;\n              PIXEL[/code:3q6obxeo]\n\nEntiendo que es en ese tramo del fuente, pero no me deja, me hace un font muy chico al momento de editar.\n\n[url=http&#58;//img261&#46;imageshack&#46;us/my&#46;php?image=dibujowo2&#46;jpg:3q6obxeo][img:3q6obxeo]http&#58;//img261&#46;imageshack&#46;us/img261/289/dibujowo2&#46;th&#46;jpg[/img:3q6obxeo][/url:3q6obxeo]','',0,'GIA=','3q6obxeo',1,0,'',52,0,0),(32989,77,3,2,0,'87.218.146.44',1181212359,1,0,1,1,1,1,'','','Alex,\n\nCheck the source code of Harbour\'s Directory() function. It shows how to create, fill and return a multidimensional array.','',0,'GIA=','1ckjegzo',1,0,'',2,0,0),(32990,77,3,32,0,'216.6.55.242',1181213308,1,0,1,1,1,0,'','','Found that code thanks. All working now. I couldn\'t format the hex numbers nicely in c using sprintf, so thats why I\'ve got the extra code, and returning each byte separately\n\n[code:20nr8361]\nFunction Dec2x&#40;pnNo, pnBase&#41;\n\n  Local cRetVal              &#58;= &quot;&quot;\n  Local nCount               &#58;= 0\n  Local acDigits             &#58;= &#123;&quot;0&quot;, &quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;, &quot;7&quot;, &quot;8&quot;, &quot;9&quot;&#125;\n  Local nNo                  &#58;= 0\n\n  For nCount &#58;= 65 to 65 + pnBase - 11\n    aadd&#40;acDigits, chr&#40;nCount&#41;&#41;\n  Next\n\n  For nCount &#58;= 7 to 0 step - 1\n    nNo                      &#58;= int&#40;pnNo / &#40;pnBase**nCount&#41;&#41;\n    If nNo &gt; 0 &#46;or&#46; !empty&#40;cRetVal&#41;\n      cRetVal                += acDigits&#91;nNo + 1&#93;\n\n      pnNo                   -= nNo * pnBase**nCount\n    Endif\n  Next\n\nReturn cRetval\n\n\nFunction GetMacAddresses&#40;&#41;\n\n  local aaTemp &#58;= &#123;&#125;\n  local axTemp\n  local aaRetval\n  local cMac &#58;= &quot;&quot;\n  aaTemp &#58;= _GETMACADDRESSES&#40;&#41;\n\n  aaRetval &#58;= &#123;&#125;\n\n  For each axTemp in aaTemp\n    cMac &#58;= &quot;&quot;\n\n    cMac += padl&#40;Dec2x&#40;axTemp&#91;3&#93;, 16&#41;, 2, &quot;0&quot;&#41; + &quot;-&quot;\n    cMac += padl&#40;Dec2x&#40;axTemp&#91;4&#93;, 16&#41;, 2, &quot;0&quot;&#41; + &quot;-&quot;\n    cMac += padl&#40;Dec2x&#40;axTemp&#91;5&#93;, 16&#41;, 2, &quot;0&quot;&#41; + &quot;-&quot;\n    cMac += padl&#40;Dec2x&#40;axTemp&#91;6&#93;, 16&#41;, 2, &quot;0&quot;&#41; + &quot;-&quot;\n    cMac += padl&#40;Dec2x&#40;axTemp&#91;7&#93;, 16&#41;, 2, &quot;0&quot;&#41; + &quot;-&quot;\n    cMac += padl&#40;Dec2x&#40;axTemp&#91;8&#93;, 16&#41;, 2, &quot;0&quot;&#41;\n\n    aadd&#40;aaRetval, &#123;axTemp&#91;2&#93;, cMac&#125;&#41;\n  Next\n\nreturn aaRetval\n//---------------------------------------------------------------------------------------------//\n#pragma begindump\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n#ifdef __FLAT__\n   #include &lt;ShellApi&#46;h&gt;\n#endif\n\n#ifdef __HARBOUR__\n   #include &lt;hbapiitm&#46;h&gt;\n   #include &lt;hbdate&#46;h&gt;\n   #include &lt;hbset&#46;h&gt;\n#endif\n\n#include &lt;iphlpapi&#46;h&gt;\n\n// Fetches the MAC address and prints it\nHB_FUNC&#40; _GETMACADDRESSES &#41;\n\n&#123;\n\n  PHB_ITEM paAddress = hb_itemArrayNew&#40; 0 &#41;;\n\n  IP_ADAPTER_INFO AdapterInfo&#91;16&#93;;       // Allocate information\n                                         // for up to 16 NICs\n  DWORD dwBufLen = sizeof&#40;AdapterInfo&#41;;  // Save memory size of buffer\n\n  DWORD dwStatus = GetAdaptersInfo&#40;      // Call GetAdapterInfo\n    AdapterInfo,                 // &#91;out&#93; buffer to receive data\n    &amp;dwBufLen&#41;;                  // &#91;in&#93; size of receive data buffer\n//  assert&#40;dwStatus == ERROR_SUCCESS&#41;;  // Verify return value is\n                                      // valid, no buffer overflow\n\n  PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo; // Contains pointer to\n                                               // current adapter info\n  PHB_ITEM pName = hb_itemNew&#40;NULL&#41;;\n  PHB_ITEM pDesc = hb_itemNew&#40;NULL&#41;;\n  PHB_ITEM pAddress = hb_itemNew&#40;NULL&#41;;\n\n  char cMacAddress&#91;17&#93;;\n\n  do &#123;\n//    PrintMACaddress&#40;pAdapterInfo-&gt;Address&#41;; // Print MAC address\n\n    PHB_ITEM pSubArray = hb_itemArrayNew&#40;8&#41;;\n\n    hb_arraySet&#40;pSubArray, 1, hb_itemPutC&#40;pName, pAdapterInfo-&gt;AdapterName&#41;&#41;;\n    hb_arraySet&#40;pSubArray, 2, hb_itemPutC&#40;pDesc, pAdapterInfo-&gt;Description&#41;&#41;;\n\n//    sprintf&#40; cMacAddress, &quot;%x-%x-%x-%x-%x-%x&quot;, pAdapterInfo-&gt;Address&#91;0&#93;, pAdapterInfo-&gt;Address&#91;1&#93;, pAdapterInfo-&gt;Address&#91;2&#93;\n    hb_arraySet&#40;pSubArray, 3, hb_itemPutNL&#40;pDesc, pAdapterInfo-&gt;Address&#91;0&#93;&#41;&#41;;\n    hb_arraySet&#40;pSubArray, 4, hb_itemPutNL&#40;pDesc, pAdapterInfo-&gt;Address&#91;1&#93;&#41;&#41;;\n    hb_arraySet&#40;pSubArray, 5, hb_itemPutNL&#40;pDesc, pAdapterInfo-&gt;Address&#91;2&#93;&#41;&#41;;\n    hb_arraySet&#40;pSubArray, 6, hb_itemPutNL&#40;pDesc, pAdapterInfo-&gt;Address&#91;3&#93;&#41;&#41;;\n    hb_arraySet&#40;pSubArray, 7, hb_itemPutNL&#40;pDesc, pAdapterInfo-&gt;Address&#91;4&#93;&#41;&#41;;\n    hb_arraySet&#40;pSubArray, 8, hb_itemPutNL&#40;pDesc, pAdapterInfo-&gt;Address&#91;5&#93;&#41;&#41;;\n\n\n    hb_arrayAdd&#40;paAddress, pSubArray&#41;;\n\n    hb_itemRelease&#40;pSubArray&#41;;\n    pAdapterInfo = pAdapterInfo-&gt;Next;    // Progress through\n                                          // linked list\n  &#125;\n  while&#40;pAdapterInfo&#41;;                    // Terminate if last adapter\n\n  hb_itemRelease&#40;pName&#41;;\n  hb_itemRelease&#40;pDesc&#41;;\n  hb_itemRelease&#40;pAddress&#41;;\n\n  hb_itemRelease&#40;hb_itemReturn&#40;paAddress&#41;&#41;;\n&#125;\n\n\n#pragma enddump\n\n[/code:20nr8361]','',0,'AIA=','20nr8361',1,0,'',32,0,0),(32991,7216,1,161,0,'213.119.247.166',1181215468,1,0,1,1,1,0,'','Overlapping problem','Hi,\n\nI have a problem when I use a LISTBOX from resource and group around that listbox.\nIf I want to change the text of the group, the listbox disappears behind the box.\nTill now there was no need in changing the text of the group.\nNow I want to change it, but the listbox disappears If I add the \'REDEFINE\nSAY\' line.\n\nThis is the code I use\n[code:h33dliin]REDEFINE SAY sGetlist&#91;16&#93; VAR \'CL\'  ID 111 OF oDlg\nREDEFINE LISTBOX  sGetlist&#91;13&#93; FIELDS CL_INFO-&gt;FILENAME,CL_INFO-&gt;SEQUENCE ;\nALIAS \'CL_INFO\' HEADER \'Program\',\'Sequence\' ID 108 OF oDlg ;\nCOLOR \'N/W*\'[/code:h33dliin]\n\nThe resource :\n[code:h33dliin] GROUPBOX &quot;CL&quot;, 111, 174, 341, 135, 70, BS_GROUPBOX\n CONTROL &quot;&quot;, 108, &quot;TWBrowse&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 181, 360, 122, 46[/code:h33dliin]\n\nI already change the order, without result.\n\nMarc','',0,'AIA=','h33dliin',1,0,'',161,0,0),(32992,7217,6,75,0,'83.45.230.96',1181217396,1,0,1,1,1,0,'','Manual de Programacion Orientada a Objetos POO','Alguien me puede recomendar algún manual de programación orientada a objetos (POO) para xHarbour y FW.\n\nSaludos.','',0,'AIA=','1ll79h43',1,0,'',75,0,0),(32993,7217,6,456,0,'217.127.39.57',1181218813,1,0,1,1,1,1,'','','Existe un libro publicado por la editorial Paraninfo, Programacion orientada al objeto en Clipper 5.01 escrito por Fracisco J. Morero. Aunque data del 93, y no es para harbour, aun asi me parece muy bueno, y toda la teoria de OOP sigue vigente. \nYo lo lei en su dia, y no hace mucho lo he vuelto a reeler, si lo puedes conseguir, para mi es lo mejor que he leido de OOP para xBase.','',0,'AIA=','1qp25ap5',1,0,'',456,0,0),(32994,7216,1,2,0,'87.218.146.44',1181219220,1,0,1,1,1,1,'','','Marc,\n\nYou should use a REDEFINE GROUP instead of a REDEFINE SAY','',0,'AIA=','1dip1neg',1,0,'',2,0,0),(32995,7217,6,2,0,'87.218.146.44',1181219334,1,0,1,1,1,1,'','','Biel,\n\nTe habrá sonado quien escribe el prologo de ese libro, y el autor de muchas clases en C++ contenidas en él <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPersonalmente recomiendo la guia Norton de Class(y), es muy completa:\n<!-- m --><a class=\"postlink\" href=\"http://www.appsolutions.com/Classy/\">http://www.appsolutions.com/Classy/</a><!-- m -->','',0,'AIA=','2ui5i10b',1,1181220047,'',2,2,0),(32996,7217,6,177,0,'194.30.62.6',1181219360,1,0,1,1,1,0,'','','Verhoven,\n\n...\n\nAntonio creo que sería interesante ponerlo en el area de utilidades.\n\nSaludos,\n\nFélix','',0,'AIA=','2ghqdvtc',1,0,'',177,0,0),(32997,7217,6,2,0,'87.218.146.44',1181219514,1,0,1,1,1,1,'','','Felix,\n\nHabría que comprobar primero su licencia y ver si es legal distribuirlo','',0,'AIA=','3mo73gy6',1,0,'',2,0,0),(32998,7217,6,177,0,'194.30.62.6',1181219707,1,0,1,1,1,0,'','','Antonio,\n\ntienes razón. No me he parado a mirarlo, perdón. Simplemente me he preocupado  en ayudar.\n\nSaludos,\n\nFélix','',0,'AIA=','vugfc0bo',1,1181222081,'',177,1,0),(32999,77,3,392,0,'200.161.115.119',1181219738,1,0,1,1,1,1,'','','I made some changes in the function above to getting more information about the NIC. This is the code:\n\n[code:1246xj41]#include &quot;fivewin&#46;ch&quot;\n/*\n * Retrieves adapter information for the local computer&#46;\n * Original code by AlexSchaft\n * http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=77&amp;postdays=0&amp;postorder=asc&amp;start=15\n *\n * Changed by Vailton Renato @ 07/06/2007 - 09&#58;24&#58;03\n */ \nfunction main&#40;&#41;\n   local NICs &#58;= GetMacAddresses&#40;&#41;\n   local crlf,i,s\n   \n   crlf &#58;= chr&#40;13&#41;+chr&#40;10&#41;\n   \n   FOR i &#58;= 1 TO len&#40; NICs &#41;\n     \n     * An ANSI character string of the description for the adapter&#46;  \n       s &#58;= &quot;Description&#58; &quot;   + NICs&#91;i,1&#93; + crlf\n     * MAC Address  \n       s += &quot;MAC Address&#58; &quot;   + NICs&#91;i,2&#93; + crlf\n     * An ANSI character string of the name of the adapter&#46;  \n       s += &quot;Adapter Name&#58; &quot;  + NICs&#91;i,3&#93; + crlf\n       s += crlf\n\n     * IP info  \n       s += &quot;IP&#58; &quot; + NICs&#91;i,4&#93; + crlf\n       s += &quot;Mask&#58; &quot; + NICs&#91;i,5&#93; + &quot; / &quot; \n       s += &quot;Gateway&#58; &quot; + NICs&#91;i,6&#93; + crlf \n       s += crlf\n\n     * DHCP Sever IP or empty string &quot;&quot;\n       if !Empty&#40; NICs&#91;i,7&#93; &#41;  \n          s += &quot;DHCP&#58; &quot; + NICs&#91;i,7&#93; + &quot; / &quot;\n        * The time when the current DHCP lease was obtained&#46;  \n          s += &quot;Lease Obtained&#58; &quot; + alltrim&#40; str&#40; NICs&#91;i,8&#93; &#41;&#41;+ crlf \n       else\n          s += \'DHCP disabled\'\n       end\n\n     * Primary WINS server  \n       if !Empty&#40; NICs&#91;i,9&#93; &#41;  \n          s += &quot;Pimary WINS&#58; &quot; + NICs&#91;i,9&#93; + crlf\n       end\n     * Secondary WINS server    \n       if !Empty&#40; NICs&#91;i,9&#93; &#41;  \n          s += &quot;Secondary WINS&#58; &quot; + NICs&#91;i,10&#93; + crlf \n       end\n       \n      ? s         \n   End\n   \n   return nil\n   \n//---------------------------------------------------------------------------------------------//\n#pragma begindump\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\n#ifdef __FLAT__\n   #include &lt;ShellApi&#46;h&gt;\n#endif\n\n#ifdef __HARBOUR__\n   #include &lt;hbapiitm&#46;h&gt;\n   #include &lt;hbdate&#46;h&gt;\n   #include &lt;hbset&#46;h&gt;\n#endif\n\n#include &lt;iphlpapi&#46;h&gt;\n\n// Fetches the MAC address and prints it\nHB_FUNC&#40; GETMACADDRESSES &#41;\n\n&#123;\n IP_ADAPTER_INFO AdapterInfo&#91;16&#93;;       // Allocate information\n                                         // for up to 16 NICs\n                                         // http&#58;//msdn2&#46;microsoft&#46;com/En-US/library/aa366062&#46;aspx\n                                         \n  DWORD dwBufLen = sizeof&#40;AdapterInfo&#41;;  // Save memory size of buffer\n\n  DWORD dwStatus = GetAdaptersInfo&#40;      // Call GetAdapterInfo\n            AdapterInfo,                 // &#91;out&#93; buffer to receive data\n            &amp;dwBufLen&#41;;                  // &#91;in&#93; size of receive data buffer\n\n  PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo; // Contains pointer to\n                                               // current adapter info\n  char cMacAddress&#91;17&#93;;\n\n  PHB_ITEM pItem;\n  PHB_ITEM paAddress = hb_itemArrayNew&#40; 0 &#41;;\n  \n  // Verify return value is valid, no buffer overflow&#46;&#46;&#46; \n  if &#40;dwStatus != ERROR_SUCCESS&#41;\n  &#123;\n      hb_itemRelease&#40;hb_itemReturn&#40;paAddress&#41;&#41;;\n      return;\n  &#125;\n  \n  pItem = hb_itemNew&#40;NULL&#41;;\n\n  do &#123;\n    PHB_ITEM pSubArray = hb_itemArrayNew&#40;10&#41;;\n\n  // Description of NIC  \n    hb_arraySet&#40;pSubArray, 1, hb_itemPutC&#40;pItem, pAdapterInfo-&gt;Description&#41;&#41;;\n\n  // MAC address\n    sprintf&#40; cMacAddress, &quot;%&#46;2x-%&#46;2x-%&#46;2x-%&#46;2x-%&#46;2x-%&#46;2x&quot;, pAdapterInfo-&gt;Address&#91;0&#93;, pAdapterInfo-&gt;Address&#91;1&#93;, pAdapterInfo-&gt;Address&#91;2&#93;,\n                                                pAdapterInfo-&gt;Address&#91;3&#93;, pAdapterInfo-&gt;Address&#91;4&#93;, pAdapterInfo-&gt;Address&#91;5&#93; &#41;;\n                                                \n    hb_strUpper&#40; cMacAddress, strlen&#40;cMacAddress&#41;&#41;;\n    hb_arraySet&#40;pSubArray, 2, hb_itemPutC&#40;pItem, cMacAddress &#41;&#41;;\n  // GUID of NIC\n    hb_arraySet&#40;pSubArray, 3, hb_itemPutC&#40;pItem, pAdapterInfo-&gt;AdapterName&#41;&#41;;\n    \n  // IP Address\n    hb_arraySet&#40;pSubArray, 4, hb_itemPutC&#40;pItem, pAdapterInfo-&gt;IpAddressList&#46;IpAddress&#46;String &#41;&#41;;\n\n  // IP Mask \n    hb_arraySet&#40;pSubArray, 5, hb_itemPutC&#40;pItem, pAdapterInfo-&gt;IpAddressList&#46;IpMask&#46;String &#41;&#41;;\n\n  // IP Gateway\n    hb_arraySet&#40;pSubArray, 6, hb_itemPutC&#40;pItem, pAdapterInfo-&gt;GatewayList&#46;IpAddress&#46;String &#41;&#41;;\n\n  // DHCP server IP &amp; Lease Obtained     \n    if &#40;pAdapterInfo-&gt;DhcpEnabled&#41;\n    &#123;\n       hb_arraySet&#40;pSubArray, 7, hb_itemPutC&#40; pItem, pAdapterInfo-&gt;DhcpServer&#46;IpAddress&#46;String &#41;&#41;;\n       hb_arraySet&#40;pSubArray, 8, hb_itemPutNL&#40;pItem, pAdapterInfo-&gt;LeaseObtained &#41;&#41;;\n    &#125; else &#123;\n       hb_arraySet&#40;pSubArray, 7, hb_itemPutC&#40; pItem, &quot;&quot; &#41;&#41;;\n       hb_arraySet&#40;pSubArray, 8, hb_itemPutNI&#40;pItem, 0 &#41;&#41;;\n    &#125;\n    \n // WINS server info - Primary &amp; Secondary ip address\n    if &#40;pAdapterInfo-&gt;HaveWins&#41;\n    &#123;\n       hb_arraySet&#40;pSubArray,  9, hb_itemPutC&#40; pItem, pAdapterInfo-&gt;PrimaryWinsServer&#46;IpAddress&#46;String &#41;&#41;;\n       hb_arraySet&#40;pSubArray, 10, hb_itemPutC&#40; pItem, pAdapterInfo-&gt;SecondaryWinsServer&#46;IpAddress&#46;String &#41;&#41;;\n    &#125; else &#123;\n       hb_arraySet&#40;pSubArray,  9, hb_itemPutC&#40; pItem, &quot;&quot; &#41;&#41;;\n       hb_arraySet&#40;pSubArray, 10, hb_itemPutC&#40; pItem, &quot;&quot; &#41;&#41;;\n    &#125;\n  \n    hb_arrayAdd&#40;paAddress, pSubArray&#41;;\n    \n    hb_itemRelease&#40;pSubArray&#41;;\n    pAdapterInfo = pAdapterInfo-&gt;Next;    // Progress through\n                                          // linked list\n  &#125;\n  while&#40;pAdapterInfo&#41;;                    // Terminate if last adapter\n\n  hb_itemRelease&#40;pItem&#41;;\n  hb_itemRelease&#40;hb_itemReturn&#40;paAddress&#41;&#41;;\n&#125;\n\n#pragma enddump[/code:1246xj41]\n\nSorry, my english is very bad.\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','1246xj41',1,0,'',392,0,0),(33000,7217,6,2,0,'87.218.146.44',1181219912,1,0,1,1,1,1,'','','Felix,\n\nGracias','',0,'AIA=','7zyo0izy',1,0,'',2,0,0),(33001,7218,6,694,0,'200.189.112.21',1181225787,1,0,1,1,1,1,'','Francisco Horta','Amigo Francisco Horta,\n\nEstou enfrentando alguns problemas com a classe TGRAPH, mais especificamente com gráficos do tipo PIZZA, em um POST seu, pude observar que você alterou a classe, sera que você poderia me enviar a classe TGRAPH alterada ?\n\nUm abraço\n\nAoki','',0,'AIA=','1xhvhuwf',1,0,'',694,0,0),(33002,7217,6,24,0,'80.24.12.168',1181227014,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1nv23o4l]Felix,\n\nGracias[/quote:1nv23o4l]\nAntonio , mira aqui, te dice que licencia es:\n<!-- m --><a class=\"postlink\" href=\"http://www.appsolutions.com/Classy/docs/ClassyIntro.htm\">http://www.appsolutions.com/Classy/docs/ClassyIntro.htm</a><!-- m -->\n\nY adivina, a sido liberada como:\nGNU Free Documentation License\n\nEntonces creo que no deberia haber ningun tipo de problema.','',0,'gA==','1nv23o4l',1,0,'',24,0,0),(33003,6378,7,106,0,'85.34.123.173',1181228574,1,0,1,1,1,1,'','','Antonio, \n\nde repente ya lo lograste, de todos modos escribo como hice para conectarlo.\n\nToda la magia la hace el ActiveSync, si no se conecta a él, no funciona nada.\nUso ActiveSync version 4.2.0\nActivar el emulador de SmartPhone, uso el MS device emulator version 8.0.50727.42 (Windows Mobile 5.0)\nLuego en el Device Emulator Manager, hacer click en Actions, Cradle y ahi se deberia conectar con ActiveSync, luego de eso, ya se puede navegar.\n\n\n\n[url=http&#58;//img402&#46;imageshack&#46;us/my&#46;php?image=smartphoneinternetwk4&#46;jpg:2tl29kl7][img:2tl29kl7]http&#58;//img402&#46;imageshack&#46;us/img402/3514/smartphoneinternetwk4&#46;th&#46;jpg[/img:2tl29kl7][/url:2tl29kl7]\n\n\n\nSaludos\n\n\n\nP.D. El mismo procedimiento para conectar a internet el emulador de pocket pc.','',0,'GA==','2tl29kl7',1,0,'',106,0,0),(33004,7218,6,73,0,'200.23.18.132',1181229848,1,0,1,1,1,0,'','','listo\nenviado a tu correo\nsalu2\npaco','',0,'GA==','322rjhcy',1,0,'',73,0,0),(33006,7215,6,73,0,'200.23.18.132',1181230468,1,0,1,1,1,0,'','','goos,\nme imagino que estas cambiando la font en el modo de edicion de browse, porque no cambias la font desde el browse, no en la edicion, le puedes indicar en que columna y listo, creo es mas facil...\nprueba a hacer esto:\n\noBrw:bFont  := {|nRow,nCol,nStyleLine| CambiaFuente( nRow, nCol, nStyleLine, oFont[1], oFont[2], oFont[3] ) }\n\nFunction CambiaFuente( nRow, nCol, nStyle, oF1, oF2, oF3 )\n  local cFont\n\n    if nStyle = 0 .AND. nCol = 1\n        cFont := oF1:hFont  // celda standard normal\n    elseif nStyle = 3 .AND. nCol = 1\n        cFont := oF3:hFont  // celda standard normal seleccionada\n    endif\nReturn( cFont )\n\nsalu2\npaco','',0,'','2xf5l409',1,0,'',73,0,0),(33007,7216,1,161,0,'81.164.212.146',1181230591,1,0,1,1,1,0,'','','Antonio,\n\nI have tested it with REDEFINE GROUP, but the result was the same.\nThen I changed the order in the RC-file and now it\'s working (both with REDEFINE SAY and REDEFINE GROUP)\nIs there a difference between both commands?\n\nMarc','',0,'','1bp735ko',1,0,'',161,0,0),(33008,7212,7,57,0,'80.58.205.40',1181231166,1,0,1,1,1,1,'','','Antonio\nAlguna solucion al respectoo??\n\nSaludos\nToni Sales','',0,'','1ra9rjbs',1,0,'',57,0,0),(33009,7217,6,456,0,'217.127.39.57',1181232539,1,0,1,1,1,1,'','','Antonio,\n\nSi de algo me suena  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','376b4w40',1,0,'',456,0,0),(33010,7216,1,2,0,'87.218.146.44',1181234142,1,0,1,1,1,1,'','','Marc,\n\n&gt; I changed the order in the RC-file\n\nYes, thats the right way\n\nBoth REDEFINEs are working fine because they both use Windows API SetWindowText() to change the caption','',0,'','d2z8aipl',1,0,'',2,0,0),(33011,7217,6,2,0,'87.218.146.44',1181234209,1,0,1,1,1,1,'','','Rafa,\n\nSí, con la documentación de Class(y) no hay problema','',0,'','25js4ety',1,0,'',2,0,0),(33012,7207,6,316,0,'213.97.245.163',1181234379,1,0,0,1,1,0,'','','Felix,\n\nla verdad es que TE HAS LUCIDO.\n\nMuchas gracias,\n\nCarlos.','',0,'','2cko4jr5',1,0,'',316,0,0),(33013,7212,7,2,0,'87.218.146.44',1181236221,1,0,1,1,1,1,'','','Toni,\n\nEn el recurso estas usando un \"BUTTON\" cuando debiera ser un \"TBTNBMP\". Por favor pruébalo con ese cambio, gracias','',0,'','1jc4cgvt',1,0,'',2,0,0),(33014,7215,6,52,0,'201.213.38.181',1181239724,1,0,1,1,1,1,'','','Andubo Gracias.\n\n\n[quote=&quot;Francisco Horta&quot;:229ttq5w]goos,\nme imagino que estas cambiando la font en el modo de edicion de browse, porque no cambias la font desde el browse, no en la edicion, le puedes indicar en que columna y listo, creo es mas facil...\nprueba a hacer esto:\n\noBrw:bFont  := {|nRow,nCol,nStyleLine| CambiaFuente( nRow, nCol, nStyleLine, oFont[1], oFont[2], oFont[3] ) }\n\nFunction CambiaFuente( nRow, nCol, nStyle, oF1, oF2, oF3 )\n  local cFont\n\n    if nStyle = 0 .AND. nCol = 1\n        cFont := oF1:hFont  // celda standard normal\n    elseif nStyle = 3 .AND. nCol = 1\n        cFont := oF3:hFont  // celda standard normal seleccionada\n    endif\nReturn( cFont )\n\nsalu2\npaco[/quote:229ttq5w]','',0,'gA==','229ttq5w',1,0,'',52,0,0),(33015,7217,6,75,0,'83.45.230.96',1181245392,1,0,1,1,1,0,'','','Antonio, no funciona la página para bajar la clase.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.appsolutions.com/Classy/Csy24b.zip\">http://www.appsolutions.com/Classy/Csy24b.zip</a><!-- m -->\n\nAdemás la guía Norton tampoco la localizo con las referencias aportadas. Solo encuentro el manual.','',0,'gA==','1q79segq',1,0,'',75,0,0),(33016,7220,3,904,0,'198.54.202.234',1181247480,1,0,1,1,1,1,'','DblClick or Enter','[code:2077rf3r]      REDEFINE COLUMN BROWSE oListBox ID 40 OF oDlg_Search UPDATE ON DblClick somefunc&#40;&#41;[/code:2077rf3r]\n\nWhen the user Double Clicks on a row somefunc() executes.\nI want to execute somefunc() when the users presses ENTER (also)\n\nHow do I do it?','',0,'AIA=','2077rf3r',1,0,'',904,0,0),(33017,7218,6,694,0,'200.189.112.21',1181247771,1,0,1,1,1,1,'','','gracias Francisco...\n\n\nAoki <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1ahjnhwf',1,0,'',694,0,0),(33018,7221,6,694,0,'200.189.112.21',1181249702,1,0,1,1,1,1,'','TGRAPH problemas com gráfico tipo PIZZA','Amigos, estou com problemas com gráficos do tipo pizza:\n\n\nVisualizando como BARRAS,  LINHAS e PONTOS, esta OK:\n<!-- m --><a class=\"postlink\" href=\"http://img78.imageshack.us/img78/5715/gra2mw6.jpg\">http://img78.imageshack.us/img78/5715/gra2mw6.jpg</a><!-- m -->\n\n\nMais ao tentar visualizar como PIZZA, mostra valores totalmente errados:\n<!-- m --><a class=\"postlink\" href=\"http://img130.imageshack.us/img130/7369/gra1ge2.jpg\">http://img130.imageshack.us/img130/7369/gra1ge2.jpg</a><!-- m -->\n\n\n\n\n\n\nfonte:\n\noGraph:=TGraph():ReDefine(120,goDlD)\noGraph:SetYVals(aMes)\noGraph:nBarD    := emp_gra3 // da mayor profundidad en 3D\noGraph:lSelView := .T.      // deshabilita la opción \'Ver\' del menú\noGraph:lSelBack := .T.      // permite colocar una imagen de fondo (Bmp)\noGraph:nType    := tigra    // tipo do gráfico\noGraph:nBarSep  := emp_gra2 // Separador entre barras                    1\noGraph:l3D      := .T.      // Efecto 3D                                .T.\noGraph:lxGrid   := .T.      // Rejilla en X                             .T.\noGraph:lyGrid   := .T.      // Rejilla en Y                             .T.\noGraph:lDotted  := .T.      // Línea de rejilla separada o continua     .T.\noGraph:lxVal    := .T.      // Mostrar etiquetas en X                   .T.\noGraph:lyVal    := .T.      // Mostrar etiquetas en Y                   .T.\noGraph:lTitle   := .T.      // Mostrar títulos                          .T.\noGraph:lLegends := .T.      // Mostrar leyendas                         .T.\noGraph:cTitle   :=\"EVOLUÇÃO DE PROCEDIMENTOS - \"+alltrim(ascart)\noGraph:cSubTit  :=ALLTRIM(EMP_RAZA)+\" - \"+nast \noGraph:cTitX    :=\"Procedimentos\"\noGraph:cTitY    :=\"Meses\"\noGraph:cPicture :=\"999999\"\noGraph:nXRanges :=emp_gra4  // Rangos en X                               4\n[b:9du33y2s]oGraph:nValues  := 2        // Tipo de valores en gráfico de torta      1-series,2-períodos[/b:9du33y2s]\noGraph:lViewVal :=.T.       // Mostrar valores de las series            .F.\noGraph:lBorders :=.T.       // Bordes en gráfico de barras              .F.\noGraph:lcTitle  :=.T.       // Centrar título                           .T.\noGraph:lPopUp   :=.T.       // Activar menu (PopUp)                     .F.\noGraph:lSelView :=.T.       // Seleccionar opción \'Ver\'                 .T.\noGraph:lSelBack :=.T.       // Seleccionar opción \'Fondo\'               .T.\noGraph:nClrPane :=EMP_GRA5  // Color da janela\noGraph:nClrGrid :=EMP_GRA7 \noGraph:nClrBack :=EMP_GRA6 \noGraph:nClrBLeg :=CLR_CREME\n\noGraph:AddSerie(cm1,str(year(date()),4)  +\" = \"+alltrim(trans(tota,\"999999\")),RGB(50,205,153))\noGraph:AddSerie(cm2,str(year(date())-1,4)+\" = \"+alltrim(trans(tot2,\"999999\")),RGB(128,128,255))\noGraph:AddSerie(cm3,str(year(date())-2,4)+\" = \"+alltrim(trans(tot3,\"999999\")),RGB(165,42,42))\n\n\nAoki','',0,'QA==','9du33y2s',1,0,'',694,0,0),(33019,7220,3,203,0,'190.10.204.116',1181251113,1,0,1,1,1,1,'','','oBrwp:bKeyDown := { | nKey | If( nKey == VK_RETURN .or. nKey == VK_ESCAPE, ;\n                   oDlgperb:End(), Nil ), lOk := nKey != VK_ESCAPE }\n\n\n\nTest This\n\nRegards\n\n Oscar','',0,'QA==','27tbho9c',1,0,'',203,0,0),(33020,7212,7,57,0,'88.22.100.189',1181253385,1,0,1,1,1,1,'','','Antonio\nTiene usted toda la razón. Ahora funciona correctamente.\n\nSaludos\nToni Sales <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'QA==','ibfua2o0',1,0,'',57,0,0),(33021,7212,7,2,0,'87.218.146.44',1181254993,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','70gx06mh',1,0,'',2,0,0),(33022,2582,6,52,0,'201.213.38.181',1181255819,1,0,1,1,1,1,'','Re: Ajustar font en edicion con TWBROWSE de Hernan','Gente.\nNo puedo hacer editar bien la wbrowse, Raimundo veo que tenes uno, podrias indicarme como hacer para editar una wbrowse, que tengo con 5 columnas.\n\nGracias.\n\n[quote=&quot;Raymundo Islas M.&quot;:101f8ddn]Hola a todos\n\nAl momento de estar editando una celda en el Browse, el font se muestra mas pequeño que los demas, aparte de lo \"feito\" que se ve, no se aprecia el dato correctamente al momento de introducirlo, hay alguna manera de corregirlo ?\n\n[img:101f8ddn]http&#58;//img142&#46;imageshack&#46;us/img142/9500/brwfntx0zv&#46;jpg[/img:101f8ddn]\n\n\nEstuve viendo el codigo de la clase, pero no le encuentro el lugar exacto para tal correccion.\n\nAlguien que lo haya hecho, le agradeceria mucho la ayuda\n\n\nGracias por anticipado[/quote:101f8ddn]','',0,'iA==','101f8ddn',1,0,'',52,0,0),(33023,2582,6,492,0,'189.147.21.252',1181257220,1,0,1,1,1,1,'','','Goos :\n\nCuando defines tu Browse :[code:29ygfrhc]\nlbCapVta&#58;bKeyDown   &#58;= &#123; | nKey | CAPVTSKEY&#40; nKey &#41; &#125;\n[/code:29ygfrhc]\n\nEn la Funcion CAPVTSKEY(), procesas las teclas presionadas :[code:29ygfrhc]\nIF nKey == VK_RETURN\n     EdAllColVta&#40;&#41;\nENDIF\n[/code:29ygfrhc]\n\nY en la funcion asignada :\n[code:29ygfrhc]Static Function EdAllColVta&#40;&#41;\nLOCAL nQ, xVal, aPicArr &#58;= &#123; &quot;9&quot;,&quot;@!&quot;,&quot;99,999&#46;99&quot;,&quot;999&#46;99&quot;,&quot;99&#46;99&quot;,&quot;999&#46;99&quot;, ;\n	&quot;99,999&#46;99&quot;, &quot;99,999&#46;99&quot;, &quot;@!&quot; &#125;\nLOCAL aEleAr &#58;= &#123; 4,5,6,7 &#125;, aColAr &#58;= &#123;3,4,5,6&#125;\nFOR nQ &#58;= 1 TO Len&#40; aEleAr &#41;\n	xVal &#58;= aCapVta&#91;pCV,aEleAr&#91;nQ&#93;&#93;\n	IF lbCapVta&#58;lEditCol&#40; aColAr&#91;nQ&#93;, @xVal, aPicArr&#91;aEleAr&#91;nQ&#93;&#93;, , CLR_YELLOW, CLR_CYAN &#41;\n		IF nQ == 2\n			// Tus validaciones segun la columna\n		ENDIF\n	ENDIF\nNEXT\nlbCapVta&#58;REFRESH&#40;&#41;\nReturn NIL\n*-----*\n[/code:29ygfrhc]\n\n\nAsi es como lo manejo, espero te sirva.\n\nSaludos','',0,'AIA=','29ygfrhc',1,0,'',492,0,0),(33024,2582,6,52,0,'201.213.38.181',1181259279,1,0,1,1,1,1,'','','Muchísimas gracias.\n\n\n[quote=&quot;Raymundo Islas M.&quot;:40tbm96j]Goos :\n\nCuando defines tu Browse :[code:40tbm96j]\nlbCapVta&#58;bKeyDown   &#58;= &#123; | nKey | CAPVTSKEY&#40; nKey &#41; &#125;\n[/code:40tbm96j]\n\nEn la Funcion CAPVTSKEY(), procesas las teclas presionadas :[code:40tbm96j]\nIF nKey == VK_RETURN\n     EdAllColVta&#40;&#41;\nENDIF\n[/code:40tbm96j]\n\nY en la funcion asignada :\n[code:40tbm96j]Static Function EdAllColVta&#40;&#41;\nLOCAL nQ, xVal, aPicArr &#58;= &#123; &quot;9&quot;,&quot;@!&quot;,&quot;99,999&#46;99&quot;,&quot;999&#46;99&quot;,&quot;99&#46;99&quot;,&quot;999&#46;99&quot;, ;\n	&quot;99,999&#46;99&quot;, &quot;99,999&#46;99&quot;, &quot;@!&quot; &#125;\nLOCAL aEleAr &#58;= &#123; 4,5,6,7 &#125;, aColAr &#58;= &#123;3,4,5,6&#125;\nFOR nQ &#58;= 1 TO Len&#40; aEleAr &#41;\n	xVal &#58;= aCapVta&#91;pCV,aEleAr&#91;nQ&#93;&#93;\n	IF lbCapVta&#58;lEditCol&#40; aColAr&#91;nQ&#93;, @xVal, aPicArr&#91;aEleAr&#91;nQ&#93;&#93;, , CLR_YELLOW, CLR_CYAN &#41;\n		IF nQ == 2\n			// Tus validaciones segun la columna\n		ENDIF\n	ENDIF\nNEXT\nlbCapVta&#58;REFRESH&#40;&#41;\nReturn NIL\n*-----*\n[/code:40tbm96j]\n\n\nAsi es como lo manejo, espero te sirva.\n\nSaludos[/quote:40tbm96j]','',0,'gIA=','40tbm96j',1,0,'',52,0,0),(33025,77,3,32,0,'216.6.55.242',1181275125,1,0,1,1,1,0,'','','Thanks for that.\n\nThe %.2x syntax seems to crash under commercial xhb.\n\nAlex','',0,'gIA=','2hilsc9s',1,0,'',32,0,0),(33026,7217,6,177,0,'194.30.62.6',1181279849,1,0,1,1,1,0,'','','Verhoven,\n\nen:\n\nourworld.compuserve.com/homepages/jbott/oop1sp.pdf\nourworld.compuserve.com/homepages/jbott/oop2sp.pdf\n\ntienes dos artículos sobre POO de James Bott, traducidos, si no recuerdo mal por José Murugosa.\n\nSaludos,\n\nFélix','',0,'gIA=','3s52efy5',1,0,'',177,0,0),(33027,7204,20,29,0,'88.149.163.143',1181284666,1,0,1,1,1,0,'','','Si, è quello che volevo. Grazie.\nUn chiarimento però:\nconsiderato che devo visualizzare diverse bitmap, inserisco oWnd:oWndClient:GetDC() in una variabile, lo utilizzo per tutte le bitmap richieste e quindi faccio un ReleaseDC alla fine. E\' corretto o agendo così creo perdite di risorse ?\n\n\nEsempio:\n\nfunction ShowBmp( oDlg ) \n\nlocal oBmp1,oDc\n\noDc:=oWnd:oWndClient:GetDC()\n\nDEFINE BITMAP oBmp1 RESOURCE \"IMAGE1\" \nDrawBitmap( oDC, oBmp1:hBitmap, 0, 0, 0, 0, SRCPAINT ) \noBmp1:End() \n\nDEFINE BITMAP oBmp1 RESOURCE \"IMAGE2\" \nDrawBitmap( oDC, oBmp1:hBitmap, 0, 0, 0, 0, SRCPAINT ) \noBmp1:End() \n\nDEFINE BITMAP oBmp1 RESOURCE \"IMAGE3\" \nDrawBitmap( oDC, oBmp1:hBitmap, 0, 0, 0, 0, SRCPAINT ) \noBmp1:End() \n\noWnd:oWndClient:ReleaseDC() \nreturn nil','',0,'gIA=','102zob7j',1,0,'',29,0,0),(33028,7222,6,596,0,'85.62.69.206',1181286494,1,0,1,1,1,1,'','Error al linkar un programa con ODBC','Compilado con FW 2.4 + Clipper 5.3 y linkado con Blinker 5 perfecto.\nCon FWH 7.05 y xHarbour 0.99.71 me da estos errores:\n \n[code:2pdrltpa]Error&#58; Unresolved external \'_HB_FUN_INIODBC32\' referenced from FIVEHX&#46;LIB|TRDDODBC\nError&#58; Unresolved external \'_HB_FUN_ENDODBC32\' referenced from FIVEHX&#46;LIB|TRDDODBC\nError&#58; Unresolved external \'_HB_FUN__TRDD\' referenced from FIVEHX&#46;LIB|TRDDODBC\nError&#58; Unresolved external \'_HB_FUN_RDDSETFIELDEXTENT\' referenced from FIVEHX&#46;LIB|TRDD\nError&#58; Unresolved external \'_HB_FUN_RDDADDFIELD\' referenced from FIVEHX&#46;LIB|TRDD[/code:2pdrltpa]\n\nQue libreria me falta por linkar.\n\n¿ Por cierto como copio una base de datos Oracle a un DBF temporal usando ODBC ?','',0,'AIA=','2pdrltpa',1,0,'',596,0,0),(33029,7204,20,6,0,'79.9.233.43',1181286565,1,0,1,1,1,1,'','','Corretto. Hai considerato però che con questa tecnica i bitmap spariscono se la finestra viene coperta e poi scoperta? Per evitare questo devi mettere il disegno nell\'evento ON PAINT.\n\nEMG','',0,'AIA=','3a6zjha8',1,0,'',6,0,0),(33030,77,3,6,0,'79.9.233.43',1181286669,1,0,1,1,1,1,'','','Try without the dot (%2x).\n\nEMG','',0,'AIA=','pb5isfel',1,0,'',6,0,0),(33031,77,3,32,0,'216.6.55.242',1181287889,1,0,1,1,1,0,'','','I found my problem  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> A mac address is 17 characters, so in xbase a 17 character string is enough, but you need another character for \\0 in C.\n\nSo initializing cMacAddress as\n\n[code:1z7gw74x]\nchar cMacAddress&#91;18&#93;\n[/code:1z7gw74x] \n\nand using\n\n[code:1z7gw74x]\n    sprintf&#40; cMacAddress, &quot;%02X-%02X-%02X-%02X-%02X-%02X&quot;, pAdapterInfo-&gt;Address&#91;0&#93;, pAdapterInfo-&gt;Address&#91;1&#93;, pAdapterInfo-&gt;Address&#91;2&#93;,\n      pAdapterInfo-&gt;Address&#91;3&#93;, pAdapterInfo-&gt;Address&#91;4&#93;, pAdapterInfo-&gt;Address&#91;5&#93;&#41;;\n[/code:1z7gw74x]\n\nsolves my problem <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','1z7gw74x',1,0,'',32,0,0),(33032,77,3,6,0,'79.9.233.43',1181288426,1,0,1,1,1,1,'','','Obvious. Great!\n\nEMG','',0,'AIA=','2rr0sxvo',1,0,'',6,0,0),(33033,7204,20,29,0,'88.149.162.183',1181288610,1,0,1,1,1,0,'','','Ok. Si naturalmente ad ogni evento ON  PAINT faccio un refresh delle bitmap.\n\nAvevo la necessità di questa soluzione perché in alcuni casi ho la necessità di lasciare lo sfondo senza bitmap. Gestendo le bitmap come oggetto verrebbero ridisegnate automaticamente.\n\nGrazie\n\nMarco','',0,'AIA=','1qrl5tt9',1,0,'',29,0,0),(33034,7222,6,2,0,'87.218.146.44',1181289979,1,0,1,1,1,1,'','','La clase TRdd de FW es sólo para 16 bits.\n\nCon FWH y Harbour, puedes usar ADORDD para acceder a cualquier motor de base de datos que soporte ADO, como por ejemplo Oracle.\n\nPuedes descargar ADORDD desde:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->\n\nLleva incluidos ejemplos de uso. Es muy fácil de usar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1w2owo4w',1,0,'',2,0,0),(33035,7206,3,130,0,'84.138.45.205',1181290363,1,0,1,1,1,0,'','','Antonio,\n\nyes  i´m using xHarbour, the version from your website.\n\nI get this trace.log, but i don´t see any connection between this message and the preview  :\n*** WARNING! Function: GETNEW in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG\n\nTGetInt.prg is not in my project, it´s very curious.\n\n\nkind regards\nStefan','',0,'AIA=','1puxie0i',1,0,'',130,0,0),(33036,7205,3,130,0,'84.138.45.205',1181290464,1,0,1,1,1,0,'','','Antonio,\n\nare these files the latest libs ?\n\nMaybe i miss a lib in buildx.bat, i have no experience with Ads\n\n\nkind regards\nStefan','',0,'AIA=','1238xowp',1,0,'',130,0,0),(33037,7222,6,596,0,'85.62.69.206',1181291066,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:11421xxh]...Con FWH y Harbour, puedes usar ADORDD para acceder a cualquier motor de base de datos que soporte ADO, como por ejemplo Oracle...[/quote:11421xxh]\n\nGracias.\n\nCon ADO me esta dando muchos problemas la instalación el PROVIDER de Oracle (y no lo he conseguido), sin embargo el driver de ODBC de Oracle lo he instalado sim problemas y, aunque con algunos problemas de configuracion, esta funcionando.\n\nY solo es para [b:11421xxh]hacer consultas[/b:11421xxh] sobre una base de datos Oracle, asi que me bastaria con ODBC pero para FWH+xHarbour.\n\n¿ Algun ejemplo en FWH+xHarbour para ODBC ?\n\nPor otro lado quisiera que cuando no pueda acceder a la base de datos Oracle (en casa o fuera de la oficina) tener copia de las tablas de esa base de datos en ficheros dbf.\nY despues se me plantea como usar el \"mismo\" codigo fuente y con solo un \"flag\" de esos de #ifdefine recompilar par una u otra fuente.\n\nEntonces se me plantean dos dudas:\n¿ Como copio una tabla de una DB de Oracle a un DBF ?\n¿ Como \"desarrollo\" la parte de codigo que sea comun a dos fuentes de datos distintas ?','',0,'wA==','11421xxh',1,0,'',596,0,0),(33038,7223,3,162,0,'141.201.51.83',1181292698,1,0,1,1,1,0,'','HTMLHelp problem','I still get an GPF when I try the following (FWH 7.01):\n\nMENUITEM ....\nACTION HTMLHelp( 0, \"RIDA.CHM\", 15, IDH_DATEN)\n\nAny solution for Vista-PCs?\n\nDietmar','',0,'wA==','y03agsy3',1,0,'',162,0,0),(33039,7205,3,2,0,'87.218.146.44',1181295100,1,0,1,1,1,1,'','','Stefan,\n\nWe can\'t tell you for sure as we don\'t use ADS. Anyhow, if you don\'t need it too, you can remove rddads.lib and ace32.lib from the buildh.bat file (or buildx.bat)','',0,'wA==','nbojz1mz',1,1181550798,'',2,1,0),(33040,7222,6,596,0,'85.62.69.206',1181296140,1,0,1,1,1,1,'','','Compilado el ejemplo de ADORDD (algo modificado) con FWH+xHarbour:\n\n[code:3na0fg5s]#INCLUDE &quot;FIVEWIN&#46;CH&quot;\n#include &quot;adordd&#46;ch&quot;\nREQUEST ADORDD\nfunction Main&#40;&#41;\nmsginfo&#40;&quot;que voy&quot;&#41;\n   USE &quot;geo&quot; VIA &quot;ADORDD&quot; TABLE &quot;estados&quot; ;\n       USER &quot;user&quot; PASSWORD &quot;nada&quot; \n   Browse&#40;&#41;\n   USE\nreturn nil[/code:3na0fg5s]\n\nMe da error de apertura (OPEN):\n[code:3na0fg5s]Application\n===========\n   Path and name&#58; C&#58;\\Bases\\FWH0705\\contribuciones\\ADORDD\\_Practicas\\access1&#46;exe &#40;32 bits&#41;\n   Size&#58; 1,469,440 bytes\n   Time from start&#58; 0 hours 0 mins 1 secs \n   Error occurred at&#58; 06/08/07, 11&#58;45&#58;39\n   Error description&#58; Error ADODB&#46;Recordset/16389  E_FAIL&#58; OPEN\n   Args&#58;\n     &#91;   1&#93; = C   esta_radar\n     &#91;   2&#93; = O   Object\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;OPEN&#40;0&#41;\n   Called from&#58; adordd&#46;prg =&gt; ADO_OPEN&#40;264&#41;\n   Called from&#58;  =&gt; DBUSEAREA&#40;0&#41;\n   Called from&#58; access1&#46;prg =&gt; MAIN&#40;12&#41;[/code:3na0fg5s]','',0,'AIA=','3na0fg5s',1,0,'',596,0,0),(33041,7223,3,51,0,'80.122.88.242',1181296273,1,0,1,1,1,0,'','','Search the internet for:\n\nWindows6.0-KB917607-x86.msu\n\nRegards\nOtto','',0,'AIA=','3p0zlk9d',1,0,'',51,0,0),(33042,7222,6,2,0,'87.218.146.44',1181299394,1,0,1,1,1,1,'','','Si quieres usar ODBC, revisa los ejemplos de FWH samples\\odbc...prg y TestSQL3.prg','',0,'AIA=','k2sgvvjw',1,0,'',2,0,0),(33043,7222,6,177,0,'194.30.62.6',1181300671,1,0,1,1,1,0,'','','Hola Jose María,\n\ncon que versión de Oracle trabajas ? Yo trabajo con la 9i, y no he tenido ningún problema con el PROVIDER. Tienes que instalar el cliente Oracle en el PC.\n\nSaludos,\n\nFélix','',0,'AIA=','uzh8oqq9',1,0,'',177,0,0),(33044,7222,6,596,0,'85.62.69.206',1181303138,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:9zo3eh0q]Si quieres usar ODBC, revisa los ejemplos de FWH samples\\odbc...prg y TestSQL3.prg[/quote:9zo3eh0q]Bueno... pues los probare.\nSi como solo es para consultas, como ya he comentado, me vale con ODBC.\n\n[quote=&quot;Baxajaun&quot;:9zo3eh0q]...con que versión de Oracle trabajas ? Yo trabajo con la 9i, y no he tenido ningún problema con el PROVIDER. Tienes que instalar el cliente Oracle en el PC.[/quote:9zo3eh0q]Con Oracle 9i release 2.\nClaro, el puto cliente. No lo instale ya que no me hace falta para desarrollar. \nSolo quiero el Provider pero, por lo que dices, necesita el cliente.\nPues me quedare con ODBC ya que si lo que desarrollo se lo instalo a alguien mas no quisiera \"llenarle\" el PC de mas cosas.\n\nGracias.','',0,'gA==','9zo3eh0q',1,0,'',596,0,0),(33045,6815,6,917,0,'213.96.167.92',1181305147,1,0,1,1,1,0,'','error','Hola amigos,\n\nestoy probando el ADORDD pero me da el siguiente error:\n\nError: Unresolved external \'_hb_rddGetWorkAreaPointer\' referenced from C:\\HARBOUR\\LIB\\USRRDD.LIB|usrrdd\n\nComo se puede solucionar\n\n\nGRACIAS','',0,'gA==','2rtmqfda',1,0,'',917,0,0),(33046,7224,3,29,0,'88.149.162.183',1181307256,1,0,1,1,1,0,'','oFld:LoadPages and RESIZE16','Hi,\nis there any way to apply the RESIZE16 clause to folder pages loaded from resources ?\n\nThanks in advance.\n\nBest Regards,\n\nMarco Turco','',0,'gA==','289l3jhv',1,0,'',29,0,0),(33047,7225,6,850,0,'201.255.107.38',1181311699,1,0,1,1,1,0,'','Flash en ActiveX Transparente','Hola, necesitaria hacer transparente un objeto ActiveX definido en una ventana que contiene un flash, asi se puede ver el fondo de la ventana.\n\noAcxJugar = TActiveX():New( oWnd,  \"ShockwaveFlash.ShockwaveFlash.1\", 600,385,208,64)\noAcxJugar:Do( \"LoadMovie\", 0, CurDrive() + \":\\\" + CurDir() + \"\\comenzar.swf\" )\n\n\nACTIVATE WINDOW oWnd ;\n         on Init (oAcxJugar:do(\"Play\"))\n\n\n\nUso FiveWin 7.01 + xHarbour 0.9971\n\nGracias\nAndres','',0,'gA==','2ft1m1kk',1,0,'',850,0,0),(33048,7224,3,2,0,'87.218.146.44',1181314681,1,0,1,1,1,1,'','','Marco,\n\nYou have to modify Class TFolder Method LoadPages to admit a third parameter:\n\nMETHOD LoadPages( aResNames, bRedefineControls, lResize16 ) CLASS TFolder\n\nand then issue an ACTIVATE DIALOG oDlg ... RESIZE16 if lResize16 is true','',0,'gA==','3dbvnw59',1,0,'',2,0,0),(33049,6815,6,2,0,'87.218.146.44',1181314915,1,0,1,1,1,1,'','','Arturo,\n\nPrueba con este build de Harbour:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'gA==','11ql3n7q',1,0,'',2,0,0),(33050,6815,6,917,0,'213.96.167.92',1181315001,1,0,1,1,1,0,'','SOLUCIONADO','SOLUCIONADO\n\n\nGRACIAS ANTONIO','',0,'gA==','uvrprh37',1,0,'',917,0,0),(33051,7222,6,177,0,'82.130.229.114',1181329412,1,0,1,1,1,0,'','','José María,\n\nsi quieres trabajar con ODBC, yo te recomiendo la librería Condor1 de nuestro amigo Manu Expósito.\n\nSaludos,\n\nFélix','',0,'gA==','2fhpg1iv',1,0,'',177,0,0),(33052,7222,6,596,0,'80.28.12.107',1181330293,1,0,1,1,1,1,'','','[quote=&quot;Baxajaun&quot;:1aij0cmk]...yo te recomiendo la librería Condor1 de nuestro amigo Manu Expósito...[/quote:1aij0cmk]\n¿ Aunque solo sea para consultas ?','',0,'gA==','1aij0cmk',1,0,'',596,0,0),(33053,7145,6,64,0,'201.72.124.2',1181330328,1,0,1,1,1,1,'','','Rene,\n\nSou usuária registrada da Extended Systems, tenho licença do ADS 8.1, como faço para obter o manual?\n\nGracias.\n\n[img:3rupx6q0]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/Tela_ADS&#46;bmp[/img:3rupx6q0]\n\n[url:3rupx6q0]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/Tela_ADS&#46;bmp[/url:3rupx6q0]','',0,'GA==','3rupx6q0',1,0,'',64,0,0),(33054,7222,6,177,0,'82.130.229.114',1181332463,1,0,1,1,1,0,'','','José María,\n\nyo te animo a probarla.\n\nSaludos,\n\nFélix','',0,'GA==','21qgaifi',1,0,'',177,0,0),(33055,7226,3,716,0,'201.13.150.188',1181332723,1,0,1,1,1,0,'','APPEND FROM ... SDF','Atualizei minhas versão tanto do Fivewin quanto Xharbour para FHW7.05 e Xharb99.71 e me deparei com dois problemas até o momento:\n\n1- @ 0.35,8.5 SAY \" \" RAISED BOX COLOR CLR_BLACK,CLR_WHITE SIZE 95,50 OF oDlg\nVersões anteriores fazia um box de linha preta e findo branco, agora fax somente o box com a linha preta e não aceito o fundo que defino não importa a cor\n\n2- Dou um APPEND FROM TEXTO.TXT SDF e não funciona nesta nova versão\n\nO que posso fazer?','',0,'GA==','5db0l4jx',1,0,'',716,0,0),(33056,7226,3,2,0,'87.218.146.44',1181345957,1,0,1,1,1,1,'','','Paulo,\n\nEstas usando este xharbour ? \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'GA==','r1f95kyr',1,0,'',2,0,0),(33057,7227,6,552,0,'200.193.149.113',1181346916,1,0,1,1,1,1,'','VK_ESCAPE em Button','Buenas Noites, \n\nAntonio, estou com o seguinte problema em um BUTTON\n\n   REDEFINE BUTTON oBtn[ 1] ID 635 OF oMap30;\n      ACTION( pPR_A_COD := TMP1,;\n              TESTE2( oWnd, oAgen, oMap30, pPR_A_COD ) )\n\n   oBtn[ 1]:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( Ver_Tecla1() ), nil ) }\n\nGostaria de usar a TECLA ESCAPE, mas não FUNCIONA de jeito nenhum, estou compilado com FWH2.7 + harbour46.\nPoderia me ajudar me dizendo como posso fazer o ESCAPE funcionar ?\n\nGracias de Antemano,\n\nLuiz Augusto\nSão José dos Pinhais - PR\nBrasil','',0,'','1e7jxsqj',1,0,'',552,0,0),(33058,7226,3,716,0,'201.1.109.42',1181346989,1,0,1,1,1,0,'','','Sim estou usando esse versão, baixei novamente para ter certeza.\nMas continua sem funcionar o APPEND FROM TEXTO.TXT SDF e as cores do SAY.\nEstou usando FWH7.05 + Xharbour 0.99.71 (simplex)','',0,'','vad85no5',1,0,'',716,0,0),(33059,7228,6,66,0,'201.212.77.221',1181358747,1,0,1,0,1,0,'','Ayuda Browse + timer  en red  no actualiza','Estimado Colegas\n\nTengo que actualizar un browse en red con los datos que ingresan\nen las demas terminales, utilizo un timer  me hace el refresh del\nbrowse, pero no me lo  actualiza, si alguien me pudiera orientar\nque estoy haciendo mal\n\nDesde ya muchas gracios\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e --> \n\n\nDEFINE DIALOG oDlg RESOURCE \"CLIBROW6\" TITLE  \"IMPRESION DE GARANTIAS\" FONT oFont COLOR CLR_NBLUE,CLR_5\n\n  REDEFINE BROWSE oLbx OF oDlg ID 101  GRID ON DBLCLICK(XFACTURA(OLBX)) Update\n\n  ADD COLUMN TO olbx;\n	  HEADER \"CONTRATO\" ;\n	  SIZE 95 ;\n	  DATA FieldWBlock( \"NSOLICITUD\", Select() ) ;\n	  MOVE DT_MOVE_RIGHT\n\n   ADD COLUMN TO olbx;\n	  HEADER \"IMPRESION\" ;\n	  SIZE 77 ;\n	  DATA FieldWBlock( \"IMPRESIONC\", Select() ) ;\n	  MOVE DT_MOVE_RIGHT\n\nACTIVATE Dialog oDlg on init timerS(otimer,olbx,ODLG)  CENTER\n\n\n\n\nfunction Timers(otimer,olbx,ODLG)\n\n      DEFINE TIMER oTimer INTERVAL 15000 ACTION CheckFile(OLBX,ODLG)\n      ACTIVATE TIMER oTimer\n\nreturn nil\n\n\n\n\nfunction CheckFile(OLBX,ODLG)\n\nSELE 24\nUSE TEMP SHARED\nSET INDEX TO NTEMP,CTEMP,XTEMP\nSET FILTER TO TEMP-&gt;FECHAEMISI=DATE()\n\nolbx:upstable()\n\nolbx:GOTOP()\nolbx:REFRESH()','',0,'','1c9gy3wz',1,0,'',66,0,0),(33060,7229,7,439,0,'200.125.37.76',1181359377,1,0,1,1,1,1,'','Información sobre FWPPC','Necesito desarrollar un programa para pocket PC que debe mantener comunicacion con una balanza de camiones y efectuar las pesadas, guardándolas en una base de datos.\n\nLa pregunta es:\nEllos comprarán las Pocket PC, yo compro por supuesto FWPPC pero..... \n\n1) Que requerimientos necesita la Pocket PC para poder colocar una aplicación de este estilo desarrollada en FWPPC\n\n2)Si alguien en el foro tiene experiencia y me puede orientar en el como establecer coneccion con dispositivos del estilo con FWPPC.\n\nPOR FAVOR, Cualquier ayuda será apreciada para la compra de los equipos y FWPPC.','',0,'','27qtt9ya',1,0,'',439,0,0),(33061,7229,7,2,0,'87.218.146.24',1181371389,1,0,1,1,1,1,'','','José,\n\n&gt;\n1) Que requerimientos necesita la Pocket PC para poder colocar una aplicación de este estilo desarrollada en FWPPC \n&gt;\n\nEs necesario que use Windows Mobile 2003 ó 2005 (la versión 2006 salió hace poco y no es probable que esté instalada). El procesador debe ser un Intel XScale ó compatible. A ser posible 128 megas de memoria aunque con 64 tambien funciona. En principio necesitarías que tenga puerto serie para poder conectar con la balanza.\n\n&gt;\n2)Si alguien en el foro tiene experiencia y me puede orientar en el como establecer coneccion con dispositivos del estilo con FWPPC. \n&gt;\n\nLas funciones de comunicación por puerto serie son basicamente las mismas que en un PC normal, por lo que podrás hacerlo.','',0,'','2knl7y74',1,0,'',2,0,0),(33062,7228,6,2,0,'87.218.146.24',1181371669,1,0,1,1,1,1,'','','Fabian,\n\nTe falta la claúsula OF al crear el timer:\n\nDEFINE TIMER oTimer INTERVAL 15000 ACTION CheckFile(OLBX,ODLG) [color=red:z4y47119]OF oDlg[/color:z4y47119]\n\nY en la función CheckFile() no tiene mucho sentido que estés constantemente abriendo la base de datos, solo es necesario que repintes el browse:\n\nfunction CheckFile(OLBX,ODLG) \n\nolbx:upstable() \nolbx:GOTOP() \nolbx:REFRESH()','',0,'Ag==','z4y47119',1,0,'',2,0,0),(33063,7230,6,600,0,'84.123.222.86',1181378356,1,0,1,1,1,0,'','Numero de Semana a lo largo del año','Buenas, necesitaria una rutina o funcion que me calcule el numero de semana del año al que pertenece una fecha.\n\nTiene alguien hecho algo asi o sabe como extraerlo?\n\nUn saludo\nJuan Jose','',0,'Ag==','3fpoqt1w',1,0,'',600,0,0),(33064,7226,3,2,0,'87.218.146.44',1181382308,1,0,1,1,1,1,'','','Paulo,\n\n&gt; APPEND FROM TEXTO.TXT SDF\n\nPor favor envíame por email en un fichero ZIP incluyendo Texto.txt y la DBF en donde vas a añadirlo\n\nVamos a revisar el tema de los colores que nos comentas','',0,'Ag==','31yha4d1',1,0,'',2,0,0),(33065,7231,6,519,0,'83.60.230.239',1181384673,1,0,1,1,1,0,'','coordenadas de una window','Hola \n\n   Como puedo saber  las  coordenadas de una window ?, quiero pintar cualquier cosa  justo en el mismo  centro de la window.\n\n\n  Un saludo y gracias','',0,'Ag==','3qenyzwe',1,0,'',519,0,0),(33066,7222,6,596,0,'80.28.12.107',1181384963,1,0,1,1,1,1,'','','[quote=&quot;Baxajaun&quot;:39qw6ooo]...yo te animo a probarla...[/quote:39qw6ooo]\n¿ Donde se compra ? o ¿ Donde la puedo conseguir ?','',0,'gA==','39qw6ooo',1,0,'',596,0,0),(33067,7230,6,596,0,'80.28.12.107',1181385299,1,0,1,1,1,1,'','','Sacado de <!-- w --><a class=\"postlink\" href=\"http://www.q3.nu/trucomania\">www.q3.nu/trucomania</a><!-- w --> (lenguaje Delphi)\n\nPrueba este código:\n\n\n[code:kmj6up07] 	  procedure TForm1&#46;Button1Click&#40;Sender&#58; TObject&#41;;\n 	   var\n 	       frstDay,toDay &#58; TDateTime;\n 	       week &#58; Integer;\n 	   begin\n 	      frstDay &#58;= StrToDate&#40;\'1/1/96\'&#41;;\n 	      toDay &#58;= StrToDate&#40;Edit1&#46;Text&#41;;\n 	      week &#58;= Trunc&#40;&#40;toDay - frstDay&#41; / 7&#41; + 1;\n 	      Label1&#46;Caption &#58;= IntToStr&#40;week&#41;;\n 	   end;[/code:kmj6up07]\n\nBien, efectivamente, el código anterior es erróneo. Sólo funciona para años que comiencen en lunes.\nA ver si esta otra funciona bien...:\n\n[code:kmj6up07] function NumSemana&#40;Fecha&#58;string&#41;&#58;integer;\n var\n    PrimerDia&#58;TDate;\n begin\n     &#123;Calculamos primer dia del año&#125;\n     &#123;First day of year&#125;\n     PrimerDia&#58;=StrToDate&#40;\'01/01/\'+Copy&#40;Fecha,7,2&#41;&#41;;\n\n     &#123;Calculamos el numero de semana del año&#125;\n     &#123;Calculate the week of year number&#125;\n     Result&#58;=Trunc&#40;\n                  &#40;StrToDate&#40;Fecha&#41;-\n                  PrimerDia+\n                  DayOfWeek&#40;PrimerDia&#41;-1\n                  &#41; /7&#41;+1;\n end;[/code:kmj6up07]\n\nEsta función supone que el primer dia de la semana es el Domingo (tal como hace la Función DayOfWeek de Delphi). Para mí, de toda la vida, la semana comienza en Lunes (en España es así, y supongo que en otros paises pasará lo mismo), así que tendremos que adecuar la función para que cuente las semanas a nuestro gusto:\n\n\n[code:kmj6up07] function NumSemana&#40;Fecha&#58;string&#41;&#58;integer;\n var\n    PrimerDia&#58;TDate;\n    DiaDelPrimerDia&#58;integer;\n begin\n     &#123;Calculamos primer dia del año&#125;\n     &#123;First day of year&#125;\n     PrimerDia&#58;=StrToDate&#40;\'01/01/\'+Copy&#40;Fecha,7,2&#41;&#41;;\n\n     &#123;Calculamos dia de la semana que empieza por lunes&#125;\n     &#123;Calculate the day of week, begining by monday instead of Sunday&#125;\n     If DayOfWeek&#40;PrimerDia&#41;-1 =0\n       then DiaDelPrimerDia&#58;=7\n       else DiaDelPrimerDia&#58;=DayOfWeek&#40;PrimerDia&#41;-1;\n\n     &#123;Calculamos el numero de semana del año&#125;\n     &#123;Calculate the week of year number&#125;\n     Result&#58;=Trunc&#40;\n                  &#40;StrToDate&#40;Fecha&#41;-\n                  PrimerDia+\n                  DiaDelPrimerDia-1\n                  &#41; /7&#41;+1;\n end;\n[/code:kmj6up07]','',0,'AIA=','kmj6up07',1,0,'',596,0,0),(33068,7232,6,517,0,'200.216.236.198',1181387926,1,0,1,1,1,0,'','Problemas com a FWH (TBTNBMP:PAINT(0))','Quando Coloco o Código Abaixo, apresenta o erro \n\n[code:2g0g8eoh]\n\nDEFINE BUTTONBAR oBar 3DLOOK SIZE 32,32 OF oWnd DEFINE BUTTON OF oBar RESOURCE &quot;BAR_CLIEN&quot; NOBORDER          TOOLTIP &quot;Cadastro&quot;; ACTION ALERT&#40;&quot;Cadastro&quot;&#41;\nApplication===========   Path and name&#58; C&#58;\\MESTOQ_H\\MESTOQ&#46;EXE &#40;32 bits&#41;   \nSize&#58; 1,276,416 bytes   \nTime from start&#58; 0 hours 0 mins 0 secs    \nError occurred at&#58; 05/06/2007, 21&#58;50&#58;11   \nError description&#58; Error BASE/1066  Erro nos parƒmetros&#58; condicional   Args&#58;     &#91;   1&#93; = U   Stack Calls===========   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;PAINT&#40;0&#41;   \nCalled from&#58; BTNBMP&#46;PRG =&gt; &#40;b&#41;TBTNBMP&#58;TBTNBMP&#40;0&#41;   \nCalled from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;DISPLAY&#40;0&#41;   \nCalled from&#58; CONTROL&#46;PRG =&gt; TBTNBMP&#58;HANDLEEVENT&#40;0&#41;   \nCalled from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;   Called from&#58;  =&gt; UPDATEWINDOW&#40;0&#41;   \nCalled from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;   Called from&#58; SISTEMA&#46;PRG =&gt; MAIN&#40;102&#41; \n\n[/code:2g0g8eoh]\nDesde já Agradeço','',0,'AIA=','2g0g8eoh',1,0,'',517,0,0),(33069,7231,6,2,0,'87.218.146.44',1181389320,1,0,1,1,1,1,'','','oWnd:nTop\noWnd:nLeft\noWnd:nWidth\noWnd:nHeight','',0,'AIA=','2visocu3',1,0,'',2,0,0),(33070,7232,6,2,0,'87.218.146.44',1181389626,1,0,1,1,1,1,'','','Estas usando Harbour ó xharbour ? Y que versión/build de FWH ?','',0,'AIA=','3fbdz7ge',1,0,'',2,0,0),(33071,7227,6,552,0,'200.193.149.113',1181391115,1,0,1,1,1,1,'','VK_ESCAPE em Button','Disculpa si no es mui bueno mi espanhol, necesito de capturar el \nVK_ESCAPE en um button, vea abajo el ejemplo:\n\nREDEFINE BUTTON oBtn[ 1] ID 635 OF oMap30; \nACTION( pPR_A_COD := TMP1,; \nTESTE2( oWnd, oAgen, oMap30, pPR_A_COD ) ) \n\noBtn[ 1]:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( Ver_Tecla1() ), nil ) } \n\nno logro exito, podem me ajudar?\n\nGracias de Antemano,\n\n[]´s','',0,'','2lgy8r2i',1,0,'',552,0,0),(33072,7229,7,439,0,'200.125.46.29',1181393060,1,0,1,1,1,1,'','','Antonio, \n\nGracias por la información y la rapidez de la respuesta.\n\nEn unos días tendré información detallada de la balanza sus formas de comunicación con otros dispositivos, etc, seguramente tenga alguna pregunta adicional.','',0,'','geu9hby2',1,0,'',439,0,0),(33073,7230,6,78,0,'190.40.224.180',1181395675,1,0,1,1,1,0,'','','Hola,, ve este codigo:\n\nFUNCTION Semana(dFecha)\nlocal nSemanas, nrestoDias, nDiaslSem, nDias, dFechaAux\nDEAFULT dFecha := DATE()\nIF VALTYPE(dFecha) &lt;&gt; \"D\"\n  Retrun(-1)\nENDIF\ndFechaAux := CTOD(\"01/01/\" + ALLTRIM(STR(YEAR(dFecha))))\nnDias := dFecha - dFechaAux + 1\nnSemanas := INT(nDias / 7 )\nnRestoDias := nDias % 7\nnDiaslSem := 8 - IF(DOW(dFechaAux) - 1 = 0, 7, DOW(dFechaAux) - 1 )\nRETURN nSemanas + IF(nDiaslSem &gt;= nRestoDias, 1, 2 )\n\n(Extraido de Librerias en Clipper 5.01 Grupo EIDOS)\n\nSalu2','',0,'','2e0je4ql',1,0,'',78,0,0),(33074,7233,3,851,0,'212.160.69.103',1181397240,1,0,1,1,1,0,'','pixles or mm','Could You tell me , if x1,x2,x3,x4 are in pixles or mm ?\n\nDEFINE DIALOG oDlg FROM x1, x2 TO x3, x4 ;\n      TITLE If( lAppend, \"New Customer\", \"Customer Update\" )\n\n   @ x1,  x2 SAY \"&amp;Name:\" OF oDlg\n   @ x1,  x2 GET cName OF oDlg','',0,'','39dmg4g4',1,0,'',851,0,0),(33075,7234,6,552,0,'200.193.149.113',1181400420,1,0,1,1,1,1,'','ANTONIO, AYUDAME COM VK_ESCAPE + BUTTON NO LOGRO EXITO.','Antonio, estou com o seguinte problema em um BUTTON \n\nREDEFINE BUTTON oBtn[ 1] ID 635 OF oMap30; \nACTION( pPR_A_COD := TMP1,; \nTESTE2( oWnd, oAgen, oMap30, pPR_A_COD ) ) \n\noBtn[ 1]:bKeyDown := { |nKey| IF( nKey = VK_ESCAPE,( Ver_Tecla1() ), nil ) } \n\nGostaria de usar a TECLA ESCAPE, mas não FUNCIONA de jeito nenhum, estou compilado com FWH2.7 + harbour46. \nPoderia me ajudar me dizendo como posso fazer o ESCAPE funcionar ? \n\nGracias de Antemano,','',0,'','33mavu7f',1,0,'',552,0,0),(33076,7233,3,6,0,'87.17.226.212',1181400771,1,0,1,1,1,1,'','Re: pixles or mm','Neither. They are dialog units. If you want pixels then resize the dialog in the ON INIT clause. Example:\n\n[code:4dmjl7cf]ACTIVATE DIALOG oDlg;\n         ON INIT oDlg&#58;Move&#40; 0, 0, 1280, 1024 &#41;[/code:4dmjl7cf]\n\nEMG','',0,'AIA=','4dmjl7cf',1,0,'',6,0,0),(33077,7235,3,851,0,'212.160.69.103',1181403237,1,0,1,1,1,0,'','say and get on the screen','while say and get aren\'t in the same line on the screen ?\n\n @ 1,  1 SAY \"&amp;Dzie&#324;:\" OF oDlg\n   @ 1,  6 GET tDZIEN OF oDlg\n   @ 2,  1 SAY \"&amp;Godziny:\" OF oDlg\n   @ 2,  6 GET tGODZINY OF oDlg SIZE 40, 10 PICTURE \"999.99\"','',0,'AIA=','2ts3o3sm',1,0,'',851,0,0),(33078,7226,3,716,0,'201.1.77.197',1181403417,1,0,1,1,1,0,'','','Enviei para seu e-mail.','',0,'AIA=','2rk724hw',1,0,'',716,0,0),(33079,7232,6,517,0,'200.216.236.198',1181408707,1,0,1,1,1,0,'','','Estou usando o \nFWH 2.8 xh. + xDev + dbf Cdx + rpv','',0,'AIA=','2z6dxf4h',1,0,'',517,0,0),(33080,7226,3,2,0,'87.218.146.44',1181413619,1,0,1,1,1,1,'','','Paulo,\n\nAñade el texto de esta forma:\n[code:qeio6e7i]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local cText &#58;= MemoRead&#40; &quot;texto&#46;txt&quot; &#41;, n\n\n   DBCREATE&#40; &quot;NOTICW&#46;DBF&quot;, &#123;&#123; &quot;LINHA&quot;,&quot;C&quot;,255,0 &#125;&#125; &#41;\n\n   USE NOTICW&#46;DBF\n\n   for n = 1 to MLCount&#40; cText &#41;\n      APPEND BLANK\n      field-&gt;Linha &#58;= MemoLine&#40; cText,, n &#41;\n   next   \n\n   GO TOP\n   Browse&#40;&#41;\n\nreturn nil\n[/code:qeio6e7i]','',0,'AIA=','qeio6e7i',1,0,'',2,0,0),(33081,7226,3,2,0,'87.218.146.44',1181414067,1,0,1,1,1,1,'','','El color del SAY funciona bien aqui. Estás usando temas de XP ?\n[url=http&#58;//imageshack&#46;us:3icgcgwa][img:3icgcgwa]http&#58;//img354&#46;imageshack&#46;us/img354/6334/colorfp9&#46;png[/img:3icgcgwa][/url:3icgcgwa]','',0,'GA==','3icgcgwa',1,0,'',2,0,0),(33082,7234,6,2,0,'87.218.146.44',1181414602,1,0,1,1,1,1,'','','#define DLGC_WANTALLKEYS   4\n\noBtn[ 1 ]:nDlgCode := DLGC_WANTALLKEYS','',0,'','2f191v0t',1,0,'',2,0,0),(33083,7227,6,2,0,'87.218.146.44',1181414674,1,0,1,1,1,1,'','','#define DLGC_WANTALLKEYS 4 \n\noBtn[ 1 ]:nDlgCode := DLGC_WANTALLKEYS','',0,'','1et5tbds',1,0,'',2,0,0),(33084,7232,6,2,0,'87.218.146.44',1181414757,1,0,1,1,1,1,'','','Usa esta versión de xharbour:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'','386we2uw',1,0,'',2,0,0),(33085,7235,3,2,0,'87.218.146.44',1181415001,1,0,1,1,1,1,'','','Because FWH calculates virtual coordinates on the screen based on the height of each different type of control. Please try it this way:\n\n@ 1, 1 SAY \"&amp;Dzien:\" OF oDlg \n@ 1.2, 6 GET tDZIEN OF oDlg \n@ 2, 1 SAY \"&amp;Godziny:\" OF oDlg \n@ 2.4, 6 GET tGODZINY OF oDlg SIZE 40, 10 PICTURE \"999.99\"','',0,'','3psq3p56',1,0,'',2,0,0),(33086,7225,6,2,0,'87.218.146.44',1181415184,1,0,1,1,1,1,'','','Andrés,\n\nSupongo que tendrás que establecer el fondo transparente en el código flash. El ActiveX se limita a reproducir lo que tengas en el archivo flash.','',0,'','3ure2rl7',1,0,'',2,0,0),(33087,7222,6,177,0,'82.130.229.176',1181418483,1,0,1,1,1,0,'','','José María,\n\nenvia un mensaje a Manu a la siguiente dirección:\n\n<!-- e --><a href=\"mailto:manuexposito@gmail.com\">manuexposito@gmail.com</a><!-- e -->\n\nSaludos,\n\nFélix','',0,'','vtmttsx9',1,0,'',177,0,0),(33088,7226,3,716,0,'201.1.77.197',1181421943,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:14c6msfy]Paulo,\n\nAñade el texto de esta forma:\n[code:14c6msfy]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local cText &#58;= MemoRead&#40; &quot;texto&#46;txt&quot; &#41;, n\n\n   DBCREATE&#40; &quot;NOTICW&#46;DBF&quot;, &#123;&#123; &quot;LINHA&quot;,&quot;C&quot;,255,0 &#125;&#125; &#41;\n\n   USE NOTICW&#46;DBF\n\n   for n = 1 to MLCount&#40; cText &#41;\n      APPEND BLANK\n      field-&gt;Linha &#58;= MemoLine&#40; cText,, n &#41;\n   next   \n\n   GO TOP\n   Browse&#40;&#41;\n\nreturn nil\n[/code:14c6msfy][/quote:14c6msfy]\n\nFuncionou, mas não é igual a Função APPEND FROM TEXTO.TXT SDF, o arquivo gerado pela Função acima gerou um DBF diferente do DBF do APPEND FROM SDF.\nPreciso que seja igual a APPEND FROM SDF','',0,'gIA=','14c6msfy',1,0,'',716,0,0),(33089,7226,3,716,0,'201.1.77.197',1181422226,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:rqvinfd4]El color del SAY funciona bien aqui. Estás usando temas de XP ?\n[url=http&#58;//imageshack&#46;us:rqvinfd4][img:rqvinfd4]http&#58;//img354&#46;imageshack&#46;us/img354/6334/colorfp9&#46;png[/img:rqvinfd4][/url:rqvinfd4][/quote:rqvinfd4]\nSim uso tema do WINDOWS num arquivo .manifest, tirei o arquivo .manifest e funcionou corretamente.\nPorém em versões anteriores ele funcionava independente do arquivo .Manisfest.','',0,'mA==','rqvinfd4',1,0,'',716,0,0),(33090,7234,6,552,0,'200.193.149.113',1181431248,1,0,1,1,1,1,'','vk_escape + button','Gracias Antonio, \n\nFuncionou de pronto!\n\nSaludos,','',0,'mA==','2nkrmbge',1,0,'',552,0,0),(33091,7226,3,2,0,'87.218.146.44',1181433995,1,0,1,1,1,1,'','','Paulo,\n\n&gt; Preciso que seja igual a APPEND FROM SDF\n\nEs un comportamiento propio de xharbour que tendrás que reportar en el foro de xharbour, gracias','',0,'mA==','2u3czyr5',1,0,'',2,0,0),(33092,5708,2,779,0,'189.141.80.163',1181442967,1,0,1,1,1,0,'','Si es posible!!','<!-- w --><a class=\"postlink\" href=\"http://www.jikama.com\">www.jikama.com</a><!-- w -->','',0,'mA==','357y2k1s',1,0,'',779,0,0),(33093,7223,3,162,0,'62.47.187.210',1181466660,1,0,1,1,1,0,'','','Thanks Otto,\n\nFor now it is a possible solution.\nBut I think in the near fututre we will need a working HTMLHelp in FWH.\n\nAntonio, your opinion on this topic?\n\nDietmar','',0,'mA==','2ohsuehi',1,0,'',162,0,0),(33094,7223,3,2,0,'87.218.146.44',1181473845,1,0,1,1,1,1,'','','Dietmar,\n\nThe problem is related to \"hhctrl.ocx\" itself. We have tested it this way to avoid a possible error from DLL FUNCTION command, and it keeps GPFing:\n[code:xrc7hn7x]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot;\n   \n   @ 2, 2 BUTTON &quot;Help&quot; SIZE 80, 20 ACTION HTMLHelp&#40; 0, &quot;fwclass&#46;chm&quot;, 2, 1 &#41; \n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\ntypedef LONG &#40; * PHTMLHELP &#41; &#40; HWND, LPSTR, LONG, LONG &#41;;\n\nHB_FUNC&#40; HTMLHELP &#41;\n&#123;\n   HINSTANCE hDLL = LoadLibrary&#40; &quot;hhctrl&#46;ocx&quot; &#41;;\n   PHTMLHELP pHTMLHelp = &#40; PHTMLHELP &#41; GetProcAddress&#40; hDLL, &quot;HtmlHelpA&quot; &#41;;\n   \n   pHTMLHelp&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41; &#41;;\n      \n   FreeLibrary&#40; hDLL &#41;;   \n&#125;\n\n#pragma ENDDUMP\n[/code:xrc7hn7x]','',0,'AIA=','xrc7hn7x',1,0,'',2,0,0),(33095,7223,3,2,0,'87.218.146.44',1181474751,1,0,1,1,1,1,'','','Maybe the GPF is coming from here:\n[quote:16qzstm8]\nDeclare Function HtmlHelp Lib \"HHCtrl.ocx\" Alias \"HtmlHelpA\" _\n   (ByVal hwndCaller As Long, _\n   ByVal pszFile As String, _\n   ByVal uCommand As Long, _\n   dwData As Any) As Long\n...\ndwData Specifies additional data depending on the value of uCommand. Note that in this declaration this argument is declared As Any, because this argument accepts several different data types. You must be careful to pass the correct data type or risk an invalid page fault (also known as general protection fault [GPF]). \n[/quote:16qzstm8]\nSome samples:\n[quote:16qzstm8]\nCall HtmlHelp(0, \"c:\\help\\Sample.chm\", HH_DISPLAY_TOPIC, By Val \"Topic1.htm\")\nCall HtmlHelp(0, \"c:\\help\\Sample.chm&gt;mso_small\", HH_DISPLAY_TOPIC, By Val 2001&amp;)\n[/quote:16qzstm8]','',0,'gA==','16qzstm8',1,0,'',2,0,0),(33096,7223,3,2,0,'87.218.146.44',1181475340,1,0,1,1,1,1,'','','SOLVED! No GPFs! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEffectively the key is to use the right parameters and also a PASCAL declaration was missing:\n[code:13vwdiji]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot;\n   \n   @ 2, 2 BUTTON &quot;Help&quot; SIZE 80, 20 ACTION HTMLHelp&#40; 0, &quot;fwclass&#46;chm&quot;, 0, &quot;class_todbc&#46;htm&quot; &#41; \n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\ntypedef LONG PASCAL &#40; * PHTMLHELP &#41; &#40; HWND, LPSTR, LONG, LPSTR &#41;;\n\nHB_FUNC&#40; HTMLHELP &#41;\n&#123;\n   HINSTANCE hDLL = LoadLibrary&#40; &quot;hhctrl&#46;ocx&quot; &#41;;\n   PHTMLHELP pHTMLHelp = &#40; PHTMLHELP &#41; GetProcAddress&#40; hDLL, &quot;HtmlHelpA&quot; &#41;;\n   \n   pHTMLHelp&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41; &#41;;\n      \n   FreeLibrary&#40; hDLL &#41;;   \n&#125;\n\n#pragma ENDDUMP\n[/code:13vwdiji]','',0,'AIA=','13vwdiji',1,0,'',2,0,0),(33097,7230,6,600,0,'84.123.222.86',1181476115,1,0,1,1,1,0,'','','Gracias, lo pruebo.\n\nUn saludo\nJuan José','',0,'AIA=','jeqlnfzh',1,0,'',600,0,0),(33098,7226,3,716,0,'201.1.78.240',1181476939,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:32c9ex2z]Paulo,\n\n&gt; Preciso que seja igual a APPEND FROM SDF\n\nEs un comportamiento propio de xharbour que tendrás que reportar en el foro de xharbour, gracias[/quote:32c9ex2z]\n\nO que fazer neste caso, eu uso a versão FWH7.05, qual outro build do xHarbour posso utilizar e como recomplicar as LIBs do FWH?','',0,'gA==','32c9ex2z',1,0,'',716,0,0),(33099,7226,3,2,0,'87.218.146.44',1181477246,1,0,1,1,1,1,'','','Paulo,\n\nLa mejor solución es que comentes el problema en comp.lang.xharbour (puedes registrarte y escribir en él desde Google, groups). Seguramente lo arreglaran en sólo unos dias','',0,'gA==','lf3azjbk',1,0,'',2,0,0),(33100,5708,2,92,0,'81.44.81.242',1181477726,1,0,1,1,1,0,'','Re: Si es posible!!','[quote=&quot;creswinman&quot;:1al5i93t]www.jikama.com[/quote:1al5i93t]\n\nAntes de registrame me gustaría saber las tarifas.\n\nSaludos\nCarlos G.','',0,'gA==','1al5i93t',1,0,'',92,0,0),(33101,5708,2,779,0,'189.141.80.163',1181478449,1,0,1,1,1,0,'','los primeros 10 son gratis','Al registrarse se te regalan 10 mensajes para pruebas\nLa Interfase Web solo manda mensajes para Mexico\n\nPero el ejemplo para mandar por URL manda internacionales, solo pones codigo de paisy el telefono movil\n\nLas tarifas estan en pesos mexicanos y dependen del volumen, pero estan entre 5 y 10 centavos de Euro\n\nEntre 1 y 2 pesos mexicanos dependiendo el volumen','',0,'gA==','36nq07tw',1,0,'',779,0,0),(33102,7236,6,694,0,'200.189.112.21',1181479393,1,0,1,1,1,1,'','WEB (ACTIVEX) window Principal - Mouse não funciona !','Amigos, usando controle activex, estou tentando abrir o navegador na window principal, \n\nestou fazendo assim:\n\n\nfunction main()\n\nlocal ownd, oactivex\n\n\n DEFINE WINDOW oWnd MDI;\n          TITLE \"window principal\";\n          MENU Menu()\n\n DEFINE BUTTONBAR oBar \n\n DEFINE BUTTON d1[1] OF oBar RESOURCE \"USER\" NOBORDER    ;\n             ACTION PRO125()  TOOLTIP \"Procedimentos\"                      ;\n             MESSAGE \"Controle de procedimentos\"\n\n   oActiveX = TActiveX():New( oWnd, \"Shell.Explorer\" )\n   oWnd:oClient = oActiveX \n   oActiveX&#058;Do( \"GoHome\" )\n\nACTIVATE WINDOW oWnd MAXIMIZED\n\nO navegador abriu, mais não consigo interagir com a pagina, não consigo clicar em nem um link do site:\n[url=http&#58;//imageshack&#46;us:8fcqo6fl][img:8fcqo6fl]http&#58;//img337&#46;imageshack&#46;us/img337/196/ima1lv6&#46;jpg[/img:8fcqo6fl][/url:8fcqo6fl]\n\nAgora se eu abrir em uma segunda window, ai funciona:\n[url=http&#58;//img341&#46;imageshack&#46;us/my&#46;php?image=ima2pc9&#46;jpg:8fcqo6fl][img:8fcqo6fl]http&#58;//img341&#46;imageshack&#46;us/img341/7961/ima2pc9&#46;th&#46;jpg[/img:8fcqo6fl][/url:8fcqo6fl]\n\n\nConto com a ajúda de voceis\n\nAoki','',0,'GA==','8fcqo6fl',1,0,'',694,0,0),(33103,7237,3,289,0,'212.62.97.20',1181495510,1,0,1,1,1,0,'','windows vista API','Antonio.\nIs our current work with windows vista 100%\n Please answer quickly. \nregards,\nhathal.','',0,'GA==','1ojoed73',1,0,'',289,0,0),(33105,7237,3,35,0,'65.188.6.143',1181502062,1,0,1,1,1,0,'','','Hathal\n\nUsing Vista Business FWH2.7, xHarbour 99.70, Borland C++ 5.5 and xMate as my project manager ...not any problems in developing or in deploying and running.\n\nRick Lipkin','',0,'GA==','3ntz6og5',1,0,'',35,0,0),(33106,7237,3,2,0,'87.218.146.44',1181503304,1,0,1,1,1,1,'','','Hathal,\n\nNo problems at all with Vista.\n\nWe use Vista Ultimate 64 bits','',0,'GA==','8z0h8i6y',1,0,'',2,0,0),(33107,7237,3,289,0,'212.62.97.20',1181504312,1,0,1,1,1,0,'','','This is excellent news, I was looking for it,\n thank you for all','',0,'GA==','1mgfvvvh',1,0,'',289,0,0),(33108,7226,3,716,0,'201.13.68.110',1181515182,1,0,1,1,1,0,'','','Como conseguir outro build compativel com a versão 7.05 para fazer testes, a versão do xHarbour 99.70 é compativel? Onde consegui-la?','',0,'GA==','13tap1za',1,0,'',716,0,0),(33109,7226,3,2,0,'87.218.146.3',1181517343,1,0,1,1,1,1,'','','Paulo,\n\nEl pcode de otras versiones de xharbour no es compatible con FWH 7.05. Lo más fácil es que pidas ayuda en comp.lang.xharbour\n\nOtra solución sería reconstruir FiveHX.lib con el build de xharbour que te funciona bien con el APPEND FROM ... SDF','',0,'GA==','1422y3cn',1,0,'',2,0,0),(33110,7226,3,716,0,'201.13.68.110',1181518630,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:vmgfc2af]Paulo,\n\nEl pcode de otras versiones de xharbour no es compatible con FWH 7.05. Lo más fácil es que pidas ayuda en comp.lang.xharbour\n\nOtra solución sería reconstruir FiveHX.lib con el build de xharbour que te funciona bien con el APPEND FROM ... SDF[/quote:vmgfc2af]\n\nComo fazer para reconstruir a FiveHx.Lib? pretento testar com o build 99.70','',0,'gA==','vmgfc2af',1,0,'',716,0,0),(33111,7226,3,2,0,'87.218.146.3',1181520594,1,0,1,1,1,1,'','','for %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fivehx.lib -+ %%f /0 /P32,,','',0,'gA==','2ofm6dyq',1,0,'',2,0,0),(33112,7226,3,716,0,'201.13.68.110',1181524828,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2qinkj2f]for %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fivehx.lib -+ %%f /0 /P32,,[/quote:2qinkj2f]\n\nEm qual diretório do FWH devo executar os comandos acima?','',0,'gA==','2qinkj2f',1,0,'',716,0,0),(33113,7205,3,130,0,'141.51.32.24',1181547152,1,0,1,1,1,0,'','','Ok, thanks, I removed the calls to ADS and now its´s working\n\nkind regrads\nStefan','',0,'gA==','hwletycz',1,0,'',130,0,0),(33114,7226,3,2,0,'87.218.146.3',1181550751,1,0,1,1,1,1,'','','Es preferible que crees un directorio nuevo en donde copies todos los PRGs de source\\classes y source\\function','',0,'gA==','2b8ocggz',1,0,'',2,0,0),(33115,7236,6,2,0,'87.218.146.3',1181550929,1,0,1,1,1,1,'','','Es debido a que estás usando una ventana MDI como la principal.\n\nCambia esta línea:\n\noActiveX = TActiveX():New( [color=red:1pv69e1x]oWnd:oWndClient[/color:1pv69e1x], \"Shell.Explorer\" )','',0,'Ag==','1pv69e1x',1,0,'',2,0,0),(33116,7238,3,995,0,'81.11.210.149',1181553659,1,0,1,1,1,0,'','clipwks , xhb rc14','Who is using ClipWks , i can not build it anymore with xhb rc14\n\nFrank Demont','',0,'Ag==','3n2t8gk1',1,0,'',995,0,0),(33117,7239,20,1082,0,'85.43.122.34',1181555288,1,0,1,1,1,0,'','preview su fivewin','ho ricominciato a riusare le librerie fivewin, ma mi succede una cosa strana con la creazione stampe:\nuso questa istruzione:\nPRINT oPrn NAME \"Clienti 30 60 90\" PREVIEW\n    DEFINE FONT oFont NAME \"Courier new\" SIZE 0, -8 OF oPrn\noPrn:SetLandscape()\ne poi apro le varie pagine con PAGE e la finisco con ENDPAGE\nma il problema è che su 32 pagine le prime due sono bianche e le altre sono normali stampandomi però dalla pagina 3, per ovviare a questo metto le seguenti istruzioni\nPAGE\nENDPAGE\nPAGE\nENDPAGE\ne così la stampa inizia si con due pagine bianche ma alla terza finalmente mi esce la pagina 1....\n\nperchè?','',0,'Ag==','2aabnp9q',1,0,'',1082,0,0),(33118,7239,20,6,0,'79.9.234.134',1181555845,1,0,1,1,1,1,'','Re: preview su fivewin','Fammi vedere un piccolo ma compilabile esempio del problema così lo provo qui e ti dico se lo fa anche a me. Comunque mi sento di escludere a priori che ci sia un problema del genere nelle Fivewin.\n\nEMG','',0,'Ag==','1vzj4fo1',1,0,'',6,0,0),(33119,7240,2,517,0,'200.216.236.198',1181557141,1,0,1,1,1,0,'','lentidao quando usado em XP E WIN98','Tenho uma aplicação Funcioando em FW 16 Bits, que está assim distribuido\n\nServidor winxp Pro\n01 Terminal com Winxp Pro\n02 Terminais com Win98 Se\n\nO problema é que em determinadas Situaçoes o Sistema Fica Lento Demais, quase parando.\nDemora para gravar, para Abrir, etc...\n\nSe For Tudo em WIN 98 Roda Normal !\nPorem as máquinas que estão com winXP nao Roda Win98\n\nDesde já Obrigado\n\nFW2.6 clipper + CDX + BLINKER','',0,'Ag==','2fghjfmv',1,0,'',517,0,0),(33120,7239,20,1082,0,'85.43.122.34',1181557319,1,0,1,1,1,0,'','','ok, per esempio questo foglio mi esce in bianco\n\n#include \"FiveWin.ch\"\n\nFUNCTION stclient()\nlocal oPrn, oFont\nlocal nRowStep, nColStep\nlocal nRow := 0\nlocal nCol := 0\nlocal oPen1 := 0\nlocal m_pagina := 0\nDEFINE PEN oPen1 WIDTH 1 COLOR CLR_BLACK\n\nPRINT oPrn NAME \"Clienti\" PREVIEW\n    DEFINE FONT oFont NAME \"Courier new\" SIZE 0, -8 OF oPrn\n\noPrn:SetLandscape()\n\nnRowStep = oPrn:nVertRes() / 56     // 56  righe  \nnColStep = oPrn:nHorzRes() / 190    // 170 colonne\n\nPAGE\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*1,\"PROVA\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*01,\"CONTO\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Line(nRow,nColStep*0,nRow,nColStep*190,oPen1)\n\nENDPAGE\nENDPRINT\noFont:End()\noPen1:End()\nRETURN NIL','',0,'Ag==','leyjt0jj',1,0,'',1082,0,0),(33121,7239,20,6,0,'79.9.234.134',1181557464,1,0,1,1,1,1,'','','A me esce un unico foglio in anteprima con scritto\n\nPROVA\nCONTO\n\ne una lunga linea.\n\nVuoi il mio EXE per verificare?\n\nEMG','',0,'Ag==','167z2e9a',1,0,'',6,0,0),(33122,7239,20,1082,0,'85.43.122.34',1181557591,1,0,1,1,1,0,'','','no, mi fido....\na sto punto quale potrebbe essere l\'errore?\n\nio compilo con clipper 5.2e\ne blinker','',0,'Ag==','3r3u89og',1,0,'',1082,0,0),(33123,7239,20,1082,0,'85.43.122.34',1181557913,1,0,1,1,1,0,'','','se aggindo queste istruzioni\n*-----------\nPAGE\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*1,\"PROVA\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*01,\"CONTO\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Line(nRow,nColStep*0,nRow,nColStep*190,oPen1)\n\nENDPAGE\nPAGE\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*1,\"PROVA\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*01,\"CONTO\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Line(nRow,nColStep*0,nRow,nColStep*190,oPen1)\n\nENDPAGE\nPAGE\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*1,\"PROVA\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Say(nRow,nColStep*01,\"CONTO\",oFont)\n    nRow += nRowStep * 1\n    oPrn:Line(nRow,nColStep*0,nRow,nColStep*190,oPen1)\n\nENDPAGE\n\ncioe aggiungendo tre volte altre gli stessi comandi di stampa, mi stampa dalla seconda pagina','',0,'Ag==','gk4y3tlr',1,0,'',1082,0,0),(33124,7239,20,6,0,'79.9.234.134',1181558288,1,0,1,1,1,1,'','','Ah, be\', io l\'ho provato con FWH e xHarbour ultime versioni. Purtroppo non ho modo di verificare che non ci siano stati dei problemi in qualche momento della storia delle Fivewin.\n\nEMG','',0,'Ag==','1jxzi8al',1,0,'',6,0,0),(33125,7240,2,2,0,'87.218.146.3',1181558540,1,0,1,1,1,1,'','','No deberías usar Windows 98 con XP en la misma red. Procura usar todos con XP.','',0,'Ag==','9vpmop91',1,0,'',2,0,0),(33126,7239,20,1082,0,'85.43.122.34',1181558928,1,0,1,1,1,0,'','','ho anch\'io FWH e xharbour, ma per non incappare in cose che non conosco non lo sto utilizzando....\nla conversione da FW 192 a FWH e xharbour è poco traumatica ?','',0,'Ag==','3ghllh61',1,0,'',1082,0,0),(33127,7240,2,517,0,'200.216.236.198',1181559141,1,0,1,1,1,0,'','','Já Fiz o Teste, mesmo assim Ficou lento demais !\nColoquei emprestado uma máquina Minha, com Win xp.\nMesmo assim Fica Lento Demais !\n\nMe indicaram Usar o FWxH, mas estou apanhando dele !\n\nPor Exemplo a BTNGET, nao funciona o FWxH\n\nDesde já Agradeço !','',0,'Ag==','222tr0no',1,0,'',517,0,0),(33128,7239,20,6,0,'79.9.234.134',1181559197,1,0,1,1,1,1,'','','In ogni caso non ti conviene perdere altro tempo con i 16 bit ora che anche i 32 sono in fase di declino.\n\nIl passaggio potrebbe essere indolore ma ci sono alcune cose da tenere presente:\n\n1. [b:1io5gqvr]Tutti[/b:1io5gqvr] i sorgenti vanno ricompilati e ovviamente non si possono utilizzare librerie a 16 bit.\n\n2. Le risorse (RES o RC) vanno convertite a 32 bit.\n\n3. Ci sono alcune piccole differenze sintattiche su alcune funzioni ma niente di non facilmente sistemabile.\n\nEMG','',0,'QA==','1io5gqvr',1,0,'',6,0,0),(33129,7241,3,130,0,'141.51.32.24',1181560976,1,0,1,1,1,0,'','xBrowse - Headers are not painted','Hi all,\n\nin an empty xBrowse-object (that means, the data did not meet the scope condition and no data lines are shown) the header is not painted or it´s hidden.\n\nOnly if i leftclick on the header, i can see it.\n\nWhat can i do to get all headers always visible ?\n\nkind regards\nStefan','',0,'QA==','rwv12agh',1,0,'',130,0,0),(33130,7222,6,596,0,'194.224.177.206',1181561684,1,0,1,1,1,1,'','','Unas preguntillas...\n\nDefinicion de las clases y diferencias entre ellas (todas de ODBC):\n\nTRddOdbc\nTOdbc\nTDbOdbc\nTDbOdbcDirect\n\nA ver si me aclaro...','',0,'QA==','4wzxjrbp',1,0,'',596,0,0),(33131,7242,6,492,0,'189.147.21.232',1181567586,1,0,1,1,1,1,'','Un proceso usando mismos archivos en dif. carpetas','Hola a todos \n\nLo cosa esta asi :\n\nDigamos que en las carpetas Datos1, Datos2 y Datos3 existe un grupo de archivos con sus respectivos indices ( archivos con mismos nombres ).\n\nSi quisiera que algun Proceso X pueda tomar los datos de la Carpeta Datos1, pero un poco mas tarde, sin tener que cerrar los archivos, el mismo Proceso ahora abra los archivos de la Carpeta Datos2 y posiblemente se haga mismo con archivos de la 3a carpeta.\n\nEn resumen, seria un mismo proceso con un mismo grupo de archivos, solo que estos estan en diferentes carpetas, y puedan ser usados simultaneamente por tal proceso sin necesidad de cerrar unos para abrir otros, todo esto, estando en una MDI.\n\nLa apertura de los archivos, no me queda duda, seria con un alias diferente para cada grupo.\n\nLo que me causa dudas, es :\n\n- Lei en un post que tendria que quitar el XDBF-&gt; al momento de generar los indices.\n\n- Busque algo de informacion sobre Dynamic Alias y no encontre gran cosa y vi que lo comentaban algunos colegas en ambientes MDI.\n\nAlgun guru en MDI que quisiera aclarerme algo al respecto, le estare muy agradecido  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'QA==','2f0z2hlb',1,0,'',492,0,0),(33132,7242,6,53,0,'189.139.21.206',1181568071,1,0,1,1,1,1,'','','Raymundo:\n\nEn principio no creo que tengas problemas para hacer lo que requieres, solo creo que debes incluir el PATH al momento de abrir los archivos especificando la carpeta donde estan ubicados y desde luego usando alias dinamicos que tampoco debes tener problemas con su uso.\n\nRecuerdo el post sobre quitar el xDbf-&gt; de los índices pero me parece que era usando ADS.\n\nSaludos','',0,'QA==','m1kv6ew1',1,0,'',53,0,0),(33133,7226,3,716,0,'201.13.150.188',1181568533,1,0,1,1,1,0,'','','Resolvido\n\nmat_stru={}\nAadd(mat_stru,{\"LINHA\",\"C\",255,0})\nDBCREATE(\"NOTICW.DBF\",mat_stru)\nUSE NOTICW.DBF\nSET(_SET_EOL,CHR(10)) // Muda o caracter de finalização APPEND de CHR(10)+CHR(13) para CHR(10)\nAPPEND FROM NOTIC.DAT SDF\nGO TOP\nSET(_SET_EOL,cSvSetEOL) //Retorno o caracter de finalização default do APPEND CHR(10)+CHR(13)\n\nResolvido por Flavio: <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10067\">http://www.fivewin.com.br/forum/topic.a ... C_ID=10067</a><!-- m -->','',0,'QA==','4u9mnocx',1,0,'',716,0,0),(33134,7226,3,2,0,'87.218.146.3',1181569111,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','28zl1r55',1,0,'',2,0,0),(33135,7240,2,2,0,'87.218.146.3',1181569206,1,0,1,1,1,1,'','','El problema no es de Harbour/xharbour ó FWH, el problema es que no se deben usar ordenadores con Windows 98 y Windows XP en la misma red de Windows\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/Dicas/459BTNGET.ZIP\">http://www.fivewin.com.br/Dicas/459BTNGET.ZIP</a><!-- m -->','',0,'QA==','2pae7isa',1,0,'',2,0,0),(33136,7222,6,2,0,'87.218.146.3',1181569910,1,0,1,1,1,1,'','','TRddOdbc : Sólo para 16 bits. Deriva de TRdd e implementa un RDD para usar ODBC\n\nTOdbc : Uso general de ODBC\n\nTDbOdbc : Uso de ODBC simulando la funcionalidad de una DBF\n\nTDbOdbcDirect : Uso optimizado de ODBC simulando parcialmente la funcionalidad de una DBF\n\nNo es fácil de explicarlo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','21om0t4b',1,0,'',2,0,0),(33137,6999,6,176,0,'201.255.132.189',1181571733,1,0,1,1,1,0,'','Nueva TdosPrn con Preview (tRichedit)','Bajé y utlizé esta nueva versión, me genera bien el preview, pero no puedo avanzar hoja por hoja en el mismo, si selecciono en la hoja a imprimir ahí sí se refresca y me lo imprime perfectamente. Otro problema que me genera es que no me respeta los margenes, por ejemplo:\n\n              oPrn:Saycmp(nrow,72,transform(iif(aVariable[z,12]  # \"C\",aVariable[z,10],-aVariable[z,10]),\"@ze) 9,999,999.99\"))              //importe\n\n cuando imprimo el total:\n\n	   oPrn:Saycmp(nrow,72,transform(ttotal  ,\"@e) 9,999,999.99\"))\n\nlo hace en otro lado y no en el indicado, en el listado la letra sale muy comprimida.\n\nEstoy utilizando fwh2.6 y xharbour 0.99.61\n\nSi uso la clase txtpreview anterior a la modificación me muestra todo correctamente pero no imprime.\n\nEn fivewin para clipper lo hace correctamente.\n\nMe es necesaria esta clase por que la utilizamos para imprimir los listados de iva que son muy extensos.\n\nGracias por su atención','',0,'','1eanih6f',1,0,'',176,0,0),(33138,6999,6,176,0,'201.255.132.189',1181571812,1,0,1,1,1,0,'','Nueva TdosPrn con Preview (tRichedit)','El ejemplo funciona perfectamente, no sé en la impresión pero en lo demas expuesto si.\n\nGracias nuevamente','',0,'','w20i6abt',1,0,'',176,0,0),(33139,7236,6,694,0,'200.189.112.21',1181573249,1,0,1,1,1,1,'','','Gracias Antonio, funcionou certinho... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','3copjmtu',1,0,'',694,0,0),(33140,7243,22,456,0,'217.127.39.57',1181575221,1,0,1,1,1,1,'','Metodo  Seek tDatabase','En el metodo Seek de tDatabase, solo cargar el buffer si se ha econtrado el registro.\n[code:2lkd2kuc]\nif &#58;&#58;lBuffer &#46;AND&#46; lFound \n    &#58;&#58;Load&#40;&#41;\nendif\n[/code:2lkd2kuc]\nAñadir .AND. lFound','',0,'AIA=','2lkd2kuc',1,0,'',456,0,0),(33141,7244,20,1082,0,'85.43.122.34',1181575855,1,0,1,1,1,0,'','Istruzioni per utilizzo xharbour','da qualche parte c\'era un thread dove si descriveva passo passo quello che bisognava fare per ricompilare tutto con xharbour....\ndove sta?\ngrazie','',0,'AIA=','1u5nib45',1,0,'',1082,0,0),(33142,7245,3,309,0,'194.204.28.27',1181576823,1,0,1,1,1,0,'','Directory() problem with 7.05','Hi,\n  in our tests  with FWH 7.05  Directory( cDirName, \"D\" ) returns not only directory names but all filenames in this dir. Therefore\n\nfunction lIsDir( cDirName ) \nreturn Len( Directory( cDirName, \"D\" ) ) == 1\n\nReturns always .f. with 7.05\n\nSomebody with the same problem here?\n\nThanks,\nTaavi','',0,'AIA=','b08mxkzj',1,0,'',309,0,0),(33143,7245,3,6,0,'87.1.198.39',1181577247,1,0,1,1,1,1,'','Re: Directory() problem with 7.05','That\'s the normal DIRECTORY() behavior. If you want to filter out the files you have to scan the array for \"D\" attribute (F_ATTR).\n\nPlease consult Clipper/Harbour/xHarbour docs.\n\nEMG','',0,'AIA=','3b6i5lds',1,0,'',6,0,0),(33144,7244,20,6,0,'87.1.198.39',1181577340,1,0,1,1,1,1,'','Re: Istruzioni per utilizzo xharbour','Il thread di cui parli non me lo ricordo. Prova con la funzione Search di questo forum.\n\nEMG','',0,'AIA=','3ufpkkqr',1,0,'',6,0,0),(33145,7242,6,36,0,'200.113.56.235',1181579651,1,0,1,1,1,1,'','','hola raymundo\n\nyo lo utilizo asi\n\n[code:24wpbt3x]\nuse ruta1\\clientes index ruta1\\clientes new alias clientes1\nuse ruta2\\clientes index ruta2\\clientes new alias clientes2\n\ny asi sucesivamente\n\nclientes1-&gt;&#40; dbseek&#46;&#46;&#46;\n\nclientes2-&gt;&#40; dbSeek&#46;&#46;\n[/code:24wpbt3x]\n\n\nahora si utilizas ads, es otra historia\n[url:24wpbt3x]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5563&amp;highlight=hconnection[/url:24wpbt3x]','',0,'EIA=','24wpbt3x',1,0,'',36,0,0),(33146,7222,6,596,0,'80.28.12.107',1181579928,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:11vg7775]TRddOdbc : Sólo para 16 bits. Deriva de TRdd e implementa un RDD para usar ODBC\nTOdbc : Uso general de ODBC\nTDbOdbc : Uso de ODBC simulando la funcionalidad de una DBF\nTDbOdbcDirect : Uso optimizado de ODBC simulando parcialmente la funcionalidad de una DBF\nNo es fácil de explicarlo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:11vg7775]\n\nVamos que con TOdbc y TDbOdbc (y esporadicamente TDbOdbcDirect) para FWH 7.5 + xHarbour iria sobrao ¿ no ?','',0,'gA==','11vg7775',1,0,'',596,0,0),(33147,7244,20,1082,0,'85.43.122.34',1181580316,1,0,1,1,1,0,'','','aiuto....\ndimmi dove sbaglio.\nsto provando a compilare test.prg\nma mi escono una serie di errori...\noltre a FWH e xharbour ho bisogno di altro?','',0,'gA==','2q538xbf',1,0,'',1082,0,0),(33148,7238,3,138,0,'189.141.73.45',1181581241,1,0,1,1,1,1,'','','ClipWKS requieres some functions in C not longer supported by xHarbour.\n\nYou\'d better use FileXLS class works the same way and it\'s pure OOP code, pure (x)Harbour code.','',0,'gA==','2aedt1uz',1,0,'',138,0,0),(33149,7242,6,138,0,'189.141.73.45',1181581947,1,0,1,1,1,1,'','','Raymundo:\n\nEfectivamtne, abrir las tablas con alias dinamicos, incluyendo la ruta soluciona el problema perfectamente.\n\nLa razon por la que NUNCA se deben usar alias para los indices es la siguiente:\n\n1) es valido utilizar field-&gt;campo o bien alias-&gt;campo para hacer un índice SIEMPRE Y CUANDO \"alias\" SEA EL MISMO NOMBRE DE LA BASE DE DATOS, ejemplo:\n\nUSE CLIENTES\nINDEX ON clientes-&gt;nombre TAG nombre\n\nUSE CLIENTES \nINDEX ON field-&gt;nombre TAG nombre\n\nLas dos anterioes son correctas, lo que es incorrecto, en todo los casos es hacer:\n\nUSE CLIENTES ALIAS CLI1\nINDEX ON cli1-&gt;nombre TAG nombre \n\n¿ Porqué ?, pues porque SIEMPRE tendrias que abrir la tabla con el mismo alias para que el indice fuera valido, de lo contrario te marcaria un error de incorrect key expression dentro del indice, lo cual es logico, si despues de hacer lo anterior haces:\n\nUSE CLIENTE \n\nEntonces no tienes formas de direccionar ese \"cli1\", razon por la cual no es valido incluir el alias de la tabla cuando este no es el mismo que el nombre de la tabla.\n\nComo sugerencia, indexa solo por el nombre de los campos, evita usar alias.','',0,'gA==','11iqknt5',1,0,'',138,0,0),(33150,7242,6,492,0,'189.147.21.232',1181582495,1,0,1,1,1,1,'','','Ok, enterado y apuntado  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nMuchas Gracias Masters !!!\n\nHare mis pruebas aplicando sus anotaciones.\n\n\nSaludos','',0,'gA==','36i9ayyj',1,0,'',492,0,0),(33151,7246,6,694,0,'200.189.112.21',1181589086,1,0,1,1,1,1,'','WEB(ACTIVEX) COMO NAVEGAR ?','Antonio, muito grato por você ter me ajudar a conseguir funcionar o navegador na window principal.\nAntonio, pode me dar uma ideia de como navegar por outros sites na situação baixo, haja vista, que não aparece a barra de navegação!\n\n[url=http&#58;//imageshack&#46;us:vsffqcg3][img:vsffqcg3]http&#58;//img337&#46;imageshack&#46;us/img337/196/ima1lv6&#46;jpg[/img:vsffqcg3][/url:vsffqcg3]\n\ngrato\n\nAoki <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'GA==','vsffqcg3',1,0,'',694,0,0),(33152,7238,3,343,0,'24.173.70.29',1181591553,1,0,1,1,1,0,'','','The advantage of Clipwks was the speed and the ability to create worksheet without the need for Excel.\n\nOn a web application I am creating spreadsheet.xml files but saving them with an extension of xls.\n\nThis works very fast and does not need Excel. Excel treats them just like normal spreadsheet files.','',0,'GA==','vzh2k59r',1,0,'',343,0,0),(33153,7246,6,2,0,'87.218.146.190',1181591840,1,0,1,1,1,1,'','','Aoki,\n\nLa barra de navegación la tienes que hacer tu. Con botones, ó un menú, que llame a los métodos del Internet explorer activex','',0,'GA==','2rcp6yhb',1,0,'',2,0,0),(33154,6444,6,217,0,'200.159.120.34',1181592697,1,0,1,1,1,0,'','','Como lo dice Patricio, pero yo solo cambiaria el nomble del metodo:\n\n[code:6hepi4wf]\nMETHOD Ischange&#40;&#41; INLINE &#58;&#58;oGet&#58;Changed&#40;&#41;\n[/code:6hepi4wf]\n\na\n\n[code:6hepi4wf]\nMETHOD lChanged&#40;&#41; INLINE &#58;&#58;oGet&#58;Changed&#40;&#41;\n[/code:6hepi4wf]\n\nJejeje, de IsChange a lChanged...\n\nSaludos!\nMaurilio','',0,'AIA=','6hepi4wf',1,0,'',217,0,0),(33155,7244,20,6,0,'87.18.239.135',1181593395,1,0,1,1,1,1,'','','[quote=&quot;damianodec&quot;:1chzmace]aiuto....\ndimmi dove sbaglio.\nsto provando a compilare test.prg\nma mi escono una serie di errori...[/quote:1chzmace]\n\nMagari se mi riporti qui gli errori esatti è più facile che ti possa dare una mano, non ti pare? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[quote=&quot;damianodec&quot;:1chzmace]oltre a FWH e xharbour ho bisogno di altro?[/quote:1chzmace]\n\nBe\', ti serve il compilatore C, no?\n\nEMG','',0,'gA==','1chzmace',1,0,'',6,0,0),(33156,7246,6,694,0,'200.189.112.21',1181595176,1,0,1,1,1,1,'','','Antonio, e quais são os metodos, para VOLTAR e AVANÇAR do navegador?\n\n\nGrato\n\nAoki <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3hxzmivg',1,0,'',694,0,0),(33157,7246,6,2,0,'87.218.146.190',1181604346,1,0,1,1,1,1,'','','\"GoBack\" y \"GoForward\"','',0,'gA==','1uqttilo',1,0,'',2,0,0),(33158,7247,3,529,0,'200.159.199.104',1181616098,1,0,1,1,1,0,'','Med configuration to fwh xharbour','HI, someone has an updated language configuration file to Med editor, i am using clipper configuration, and like an with commands of fwh and xharbour.\nthanks','',0,'gA==','fc5y6zsa',1,0,'',529,0,0),(33159,7238,3,995,0,'81.11.210.149',1181624768,1,0,1,1,1,0,'','Clipwks','I agree with Gale : it is extemely fast and no need to exel\n\nI could build it with xhb januari 2007 release , not anymore with rc14\n\nTrying to compile with BCC55 gives a external :\n\niLink32.Exe -ap -Tpe /IDebug /LD:\\XHARBOUR\\Lib @READWKS.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from\nC:\\FWH\\CHANGED\\CLIPWKS\\XHB\\BCCLIPWKS.LIB|IEEREAL\n\nFrank Demont','',0,'gA==','u58n6ya7',1,0,'',995,0,0),(33160,7244,20,1082,0,'85.43.122.34',1181631921,1,0,1,1,1,0,'','','scusami... ho anche Borland (bcc55)\nprovo a compilare il file test4.prg\nse uso il file buildx di FWH mi da st\'errori:\n FiveWin for xHarbour 2.6 - April 2005 xHarbour development power &#9474;&#9604;\n(c) FiveTech, 1993-2005 for Microsoft Windows 95/98/NT/2000/ME and XP \nCompiling...\nxHarbour Compiler build 0.73.0 (SimpLex)\nCopyright 1999-2003, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'test4.prg\' and generating preprocessed output to \'test4.ppo\'...\nLines 36, Functions/Procedures 2\nGenerating C source output to \'test4.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntest4.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_DBG_VMSTKLCOUNT\' referenced from C:\\FWH\\L\nIB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMPARLLIST\' referenced from C:\\FWH\\LI\nB\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMVARLGET\' referenced from C:\\FWH\\LIB\n\\FIVEHX.LIB|HARBOUR\nError: Unresolved external \'_HB_FUN_HB_DBG_VMVARSLEN\' referenced from C:\\FWH\\LIB\n\\FIVEHX.LIB|HARBOUR\nImpossibile trovare c:\\FWH\\SAMPLES\\test4.il?\n* Application successfully built\n\"test4\" non è riconosciuto come comando interno o esterno,\n un programma eseguibile o un file batch.\n\nc:\\FWH\\SAMPLES&gt;','',0,'gA==','1hxn2b6x',1,0,'',1082,0,0),(33161,7245,3,309,0,'194.204.28.27',1181633803,1,0,1,1,1,0,'','','IF so, then FWH function lIsdir() is not working any more (worked ok with xHarbour/FWH January builds. Had to replace it with Harbour IsDirectory() in our code\n\nTaavi','',0,'gA==','3gvn5r5w',1,0,'',309,0,0),(33162,7245,3,6,0,'79.3.216.212',1181637383,1,0,1,1,1,1,'','','Yes, I confirm the problem with lIsDir().\n\nEMG','',0,'gA==','3aia0sey',1,0,'',6,0,0),(33163,7244,20,6,0,'79.3.216.212',1181637734,1,0,1,1,1,1,'','','Prova a definire vuote quelle quattro funzioni:\n\nFUNCTION HB_DBG_VMSTKLCOUNT(); RETURN NIL\nFUNCTION HB_DBG_VMPARLLIST; RETURN NIL\nFUNCTION HB_DBG_VMVARLGET; RETURN NIL\nFUNCTION HB_DBG_VMVARSLEN; RETURN NIL\n\nPurtroppo è difficile dare supporto su versioni così vecchie di FWH.\n\nEMG','',0,'gA==','jncz2yzj',1,0,'',6,0,0),(33164,7241,3,130,0,'141.51.32.24',1181637882,1,0,1,1,1,0,'','','Nobody who noticed this behavior ?','',0,'gA==','lpvdfcns',1,0,'',130,0,0),(33165,7241,3,6,0,'79.3.216.212',1181638082,1,0,1,1,1,1,'','','Yes, I noticed it in little samples but it doesn\'t seem to be easely reproduceable.\n\nEMG','',0,'gA==','3r9175ym',1,0,'',6,0,0),(33166,7245,3,6,0,'79.3.216.212',1181638171,1,0,1,1,1,1,'','','It has been changed in the last FWH version. This is from the previous one:\n\n[code:3p0vzjj4]function lIsDir&#40; cNewDir &#41;   // Checks an existing directory\n\n   local cDir   &#58;= CurDrive&#40;&#41; + &quot;&#58;\\&quot; + CurDir&#40;&#41;\n   local lIsDir &#58;= lChDir&#40; cNewDir &#41;\n\n   if lIsDir\n      lChDir&#40; cDir &#41;\n   endif\n\nreturn lIsDir[/code:3p0vzjj4]\n\nEMG','',0,'AIA=','3p0vzjj4',1,0,'',6,0,0),(33167,7248,23,130,0,'141.51.32.24',1181638320,1,0,1,1,1,0,'','xBrowse headers','Hallo zusammen,\n\nbenutzt irgend jemand xBrowse ?\n\nIch hab folgendes Problem, der Header wird nicht angezeigt, wenn keine Daten vorhanden sind. \n\nIch habe eine Scope gesetzt und manchmal sind halt keine Daten da, die diese Bedingung erfüllen. Somit sind die Datenzeilen leer. Dann wird aber auch der Header nicht angezeigt, erst wenn ich mit der linken Maustaste auf einen Header klicke, wird er sichtbar.\n\nHat jemand eine Lösung ?\n\nGruß\nStefan','',0,'AIA=','37brhhwd',1,0,'',130,0,0),(33168,7249,3,998,0,'217.21.255.129',1181638961,1,0,1,1,1,0,'','Inkey() result','We are converting a huge Clipper application into FWH and ran into following problem with the INKEY() function.\n\nThe present situation is that INKEY() returns most of the standard keys,\n1-9, a-z, A-Z and more, but it does NOT return ANYTHING on any cursor\nmovement keys. This means, it does not react on any of these keys:\narrow-up/down/left/right, Home, End, Page Up, Page Down.\n\nIs this a known problem and if yes, what should we do?','',0,'AIA=','2onascan',1,0,'',998,0,0),(33169,7244,20,1082,0,'85.43.122.34',1181638984,1,0,1,1,1,0,'','','ok. ho sistemato il link non trovava alcune librerie.\nora riesco a compilare con il file buildx.bat un .prg alla volta,\nper compilare più di un file .prg insieme, come modifico il file buildx.bat?','',0,'AIA=','vewl43ww',1,0,'',1082,0,0),(33170,7241,3,130,0,'141.51.32.24',1181639285,1,0,1,1,1,0,'','','Enrico,\n\nI can reproduce it all the time, every time the datalines are empty.  I have searched in the class, but i did not find anything what stops the painting of the header. \n\nI will try to build a little sample\n\nStefan','',0,'AIA=','1qew6igj',1,0,'',130,0,0),(33171,7244,20,6,0,'79.3.216.212',1181639340,1,0,1,1,1,1,'','','Devi semplicemente compilare tutti i .PRG uno per uno, poi compilare tutti i .C uno per uno e poi linkare tutti gli .OBJ all\'unico .EXE.\n\nOppure usi uno degli strumenti che trovi in giro (ma non te ne so consigliare nessuno perché non li uso).\n\nEMG','',0,'AIA=','10t175en',1,0,'',6,0,0),(33172,7241,3,2,0,'87.218.146.190',1181639355,1,0,1,1,1,1,'','','Stefan,\n\nIn Class TXBrowse Method Paint() comment out this line and please try it again:\n[code:1m35x3m7]\n   if &#58;&#58;nLen == 0\n      // &#58;&#58;EraseData&#40; nFirstRow  &#41;\n      return nil\n   endif\n[/code:1m35x3m7]','',0,'AIA=','1m35x3m7',1,0,'',2,0,0),(33173,7250,6,533,0,'80.32.177.143',1181639375,1,0,1,1,1,0,'','Raro Raro Raro','Buenas foro, se me ha dado un caso muy curioso, que me gustaría saber si a alguien le ha pasado alguna vez. Tengo un report con unas lineas con valores por ejemplo:\n\nfecha  descripcion importe\nxxxx   xxxxxxxxx  xxxxx\nxxxx   xxxxxxxxx  xxxxx\n\n                  total   xxxxxx\n\nEn pantalla todo es correcto, pero a la hora de imprimir las lineas salen bien pero el total  no es el mismo al de pantalla <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , ¿sabéis de que puede ser?\n\nmUchisimas gracias','',0,'AIA=','1eb80zu5',1,0,'',533,0,0),(33174,7248,23,2,0,'87.218.146.190',1181639410,1,0,1,1,1,1,'','','Stefan,\n\nIn Class TXBrowse Method Paint() comment out this line and please try it again:\n[code:2go51l6t]\n   if &#58;&#58;nLen == 0\n      // &#58;&#58;EraseData&#40; nFirstRow  &#41;\n      return nil\n   endif\n[/code:2go51l6t]','',0,'AIA=','2go51l6t',1,0,'',2,0,0),(33175,7241,3,6,0,'79.3.216.212',1181639634,1,0,1,1,1,1,'','','Antonio, please note that I saw the problem in some situations also when records were present.\n\nEMG','',0,'AIA=','2hlqvbec',1,0,'',6,0,0),(33176,7245,3,2,0,'87.218.146.190',1181639648,1,0,1,1,1,1,'','','Here it is working fine:\n\n   MsgInfo( lIsDir( \"c:\\windows\" ) )','',0,'AIA=','2lgs9sw4',1,0,'',2,0,0),(33177,7241,3,2,0,'87.218.146.190',1181639720,1,0,1,1,1,1,'','','Enrico,\n\nThat may be another problem. In this case is when there are no records to show','',0,'AIA=','1u4u2cfs',1,0,'',2,0,0),(33178,7241,3,6,0,'79.3.216.212',1181639935,1,0,1,1,1,1,'','','Ok.\n\nEMG','',0,'AIA=','fh39h5s0',1,0,'',6,0,0),(33179,7249,3,2,0,'87.218.146.190',1181639989,1,0,1,1,1,1,'','','Rob,\n\nThose keys are probably routed using WM_KEYDOWN messages, and no WM_CHAR ones. \n\nTry to change WM_CHAR into WM_KEYDOWN in HB_FUNC( __INKEY ) in your FWPPC.prg module','',0,'AIA=','3t0revs6',1,0,'',2,0,0),(33180,7245,3,6,0,'79.3.216.212',1181640077,1,0,1,1,1,1,'','','Yes, but it returns .T. even if a file is specified:\n\n[code:3pjwyfto]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    ? LISDIR&#40; &quot;c&#58;\\windows\\regedit&#46;exe&quot; &#41;\n\n    RETURN NIL[/code:3pjwyfto]\n\nEMG','',0,'AIA=','3pjwyfto',1,0,'',6,0,0),(33181,7245,3,2,0,'87.218.146.190',1181640442,1,0,1,1,1,1,'','','This seems to be the right code:\n[code:217e5b1v]\nfunction lIsDir&#40; cDirName &#41; \n\n   local aResult &#58;= Directory&#40; cDirName, &quot;D&quot; &#41;\n\nreturn Len&#40; aResult &#41; == 1 &#46;and&#46; aResult&#91; 1 &#93;&#91; 5 &#93; == &quot;D&quot;\n[/code:217e5b1v]','',0,'AIA=','217e5b1v',1,0,'',2,0,0),(33182,7241,3,130,0,'141.51.32.24',1181640452,1,0,1,1,1,0,'','','Antonio,\n\nif i only comment out ::EraseData (...), it´s not working, but if i comment out return nil, than it´s working as exspected, all headers are shown.\n\n[code:1g16w73o]if &#58;&#58;nLen == 0\n      // &#58;&#58;EraseData&#40; nFirstRow  &#41;\n      // return nil\n   endif [/code:1g16w73o]\n\nBut i don´t know, if this has side effects in other situations.\n\nmany thanks\n\nkind regards\nStefan','',0,'AIA=','1g16w73o',1,0,'',130,0,0),(33183,7241,3,2,0,'87.218.146.190',1181640829,1,0,1,1,1,1,'','','Stefan,\n\nIt looks ok. Lets change it this way:\n[code:3ryvw2zk]\n   /* To paint headers when there are no records to show\n   if &#58;&#58;nLen == 0\n      &#58;&#58;EraseData&#40; nFirstRow  &#41;\n      return nil\n   endif\n   */\n[/code:3ryvw2zk]','',0,'AIA=','3ryvw2zk',1,0,'',2,0,0),(33184,7244,20,1082,0,'85.43.122.34',1181641000,1,0,1,1,1,0,'','','se ti è possibile puoi darmi un esempio in un file .bat?\ngrazie','',0,'AIA=','20qxc709',1,0,'',1082,0,0),(33185,7238,3,2,0,'87.218.146.190',1181641029,1,0,1,1,1,1,'','','Frank,\n\nTry to add this code to your main PRG:\n[code:29r8rd2j]\n#pragma BEGINDUMP \n\n#include &quot;hbstack&#46;h&quot; \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\n#pragma ENDDUMP \n[/code:29r8rd2j]','',0,'AIA=','29r8rd2j',1,0,'',2,0,0),(33186,7247,3,2,0,'87.218.146.190',1181641228,1,0,1,1,1,1,'','','Norberto,\n\nWe do recommend UEStudio. Please try it and you wont use any other <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe have the config files to properly build FWH apps automatically, it has a built-in resources editor, etc.','',0,'AIA=','1i94ci1j',1,0,'',2,0,0),(33187,7245,3,6,0,'79.3.216.212',1181641258,1,0,1,1,1,1,'','','Maybe it\'s better\n\n[code:1y2jz38l]return Len&#40; aResult &#41; == 1 &#46;and&#46; &quot;D&quot; $ aResult&#91; 1 &#93;&#91; 5 &#93;[/code:1y2jz38l]\n\n?\n\nEMG','',0,'AIA=','1y2jz38l',1,0,'',6,0,0),(33188,7250,6,2,0,'87.218.146.190',1181641311,1,0,1,1,1,1,'','','Mike,\n\nHas comprobado si la diferencia entre uno y otro se corresponde a algún valor en concreto de algún campo, etc ?','',0,'AIA=','vdfvt1lq',1,0,'',2,0,0),(33189,7245,3,2,0,'87.218.146.190',1181641398,1,0,1,1,1,1,'','','Enrico,\n\naResult[ 1 ][ 5 ] may contain some other values besides the \"D\", at the same time ?','',0,'','c781x4jc',1,0,'',2,0,0),(33190,7244,20,6,0,'79.3.216.212',1181641491,1,0,1,1,1,1,'','','Questo è per xHarbour puro (per FWH basta che aggiungi i relativi percorsi e librerie). Controlla i percorsi:\n\nC.BAT:\n\n[code:snwegncj]@ ECHO OFF\nSET HARBOURCMD=/a /es2 /gc0 /m /n /q /w2\nSET INCLUDE=c&#58;\\xharbour\\include;c&#58;\\bcc55\\include\nFOR %%i IN &#40;*&#46;prg&#41; DO c&#58;\\xharbour\\harbour %%i\nSET HARBOURCMD=\nSET INCLUDE=\nIF NOT ERRORLEVEL 1 IF EXIST *&#46;c FOR %%i IN &#40;*&#46;c&#41; DO c&#58;\\bcc55\\bin\\bcc32 +c&#58;\\xharbour\\xharbour&#46;cfg -c %%i\nIF NOT ERRORLEVEL 1 IF EXIST *&#46;obj c&#58;\\bcc55\\bin\\ilink32 c0x32 @link&#46;rsp @c&#58;\\xharbour\\xharbour&#46;rsp\nIF ERRORLEVEL 1 PAUSE\nIF NOT ERRORLEVEL 1 IF EXIST *&#46;exe FOR %%i IN &#40;*&#46;exe&#41; DO %%i\nIF EXIST *&#46;c DEL *&#46;c\nIF EXIST *&#46;obj DEL *&#46;obj\nIF EXIST *&#46;tds DEL *&#46;tds[/code:snwegncj]\n\nXHARBOUR.CFG:\n\n[code:snwegncj]-5\n-DHB_FM_STATISTICS_OFF\n-DHB_GUI\n-DHB_NO_PROFILER\n-DHB_NO_TRACE\n-DHB_WIN32_IO\n-g50\n-Ic&#58;\\xharbour\\include;c&#58;\\bcc55\\include\n-j5\n-k-\n-O1\n-O2\n-OS\n-Ov\n-v-\n-WC\n-w\n-w-inl-[/code:snwegncj]\n\nXHARBOUR.RSP\n\n[code:snwegncj]/ap +\n/Gn +\n/Lc&#58;\\xharbour\\lib;c&#58;\\bcc55\\lib;c&#58;\\bcc55\\lib\\psdk +\n/x\n\nrtl&#46;lib +\nvm&#46;lib +\ncommon&#46;lib +\nlang&#46;lib +\ngtwin&#46;lib +\nrdd&#46;lib +\nusrrdd +\ndbffpt&#46;lib +\ndbfntx&#46;lib +\ndbfcdx&#46;lib +\nhbsix&#46;lib +\nmacro&#46;lib +\npcrepos&#46;lib +\nhbodbc&#46;lib +\nhbzip&#46;lib +\nct&#46;lib +\ntip&#46;lib +\nimport32&#46;lib +\ncw32&#46;lib +\nodbc32&#46;lib +\nwininet&#46;lib[/code:snwegncj]\n\nEMG','',0,'AIA=','snwegncj',1,0,'',6,0,0),(33191,7245,3,6,0,'79.3.216.212',1181641780,1,0,1,1,1,1,'','','Yes, a directory can have attributes other than \"D\".\n\nEMG','',0,'AIA=','3tf2ju87',1,0,'',6,0,0),(33192,7245,3,2,0,'87.218.146.190',1181641824,1,0,1,1,1,1,'','','ok, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2d7otman',1,0,'',2,0,0),(33193,7251,3,32,0,'216.6.55.242',1181642523,1,0,1,1,1,0,'','Some modifications to tget/tcontrol/twindow','Hi,\n\nI\'ve got some child dialogs that have single controls on them, in which case vk_tab does not do anything, but the class doesn\'t return it either.\n\nI made these modifications:\n\ntget.prg\n[code:2xvwngw6]\nMethod KeyChar\n\n&#46;&#46;&#46;\n      case nKey == VK_TAB &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41;\n           // AS 23/07/2007 Changes as per 2007/01 FWH\n           if &#58;&#58;bChange != nil &#46;and&#46; &#40; &#58;&#58;oGet&#58;Changed &#46;or&#46; &#40; &#58;&#58;oGet&#58;buffer != nil &#46;and&#46; &#58;&#58;oGet&#58;UnTransform&#40;&#41; != &#58;&#58;oGet&#58;Original &#41; &#41;\n//           if &#58;&#58;bChange != nil\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; lAccept\n                 if Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TCOMBOBOX&quot;\n                    &#58;&#58;oWnd&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n                 else\n                    IF !&#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n                      return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n                    endif\n                 endif\n              endif\n           else\n              if Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TCOMBOBOX&quot;\n                 &#58;&#58;oWnd&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n              else\n                 IF !&#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n                  return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n                endif\n              endif\n           endif\n           return 0\n\n      case nKey == VK_TAB &#46;or&#46; nKey == VK_RETURN\n					 \n           if &#58;&#58;bChange != nil &#46;and&#46; &#40; &#58;&#58;oGet&#58;Changed &#46;or&#46; &#40; &#58;&#58;oGet&#58;buffer != nil &#46;and&#46; &#58;&#58;oGet&#58;UnTransform&#40;&#41; != &#58;&#58;oGet&#58;Original &#41; &#41;\n//           if &#58;&#58;bChange != nil\n              lAccept = Eval&#40; &#58;&#58;bChange, nKey, nFlags, Self &#41;\n              if ValType&#40; lAccept &#41; == &quot;L&quot; &#46;and&#46; lAccept\n                 IF !&#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n                  return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n                endif\n              endif\n           else\n              if !&#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n                return Super&#58;KeyChar&#40; nKey, nFlags &#41;\n              endif\n\n           endif\n\n           #ifndef __CLIPPER__\n               if nKey == VK_RETURN  // Execute DEFPUSHBUTTON Action\n                  Super&#58;KeyChar&#40; nKey, nFlags &#41;\n               endif\n           #endif\n\n           return 0\n\n[/code:2xvwngw6]\n\ncontrol.prg\n[code:2xvwngw6]\nMethod KeyChar\n\n&#46;\n&#46;\n&#46;\n      case nKey == VK_TAB  &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41; &#46;and&#46; &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n           return 0    // We don\'t want API default behavior\n\n      case nKey == VK_TAB &#46;and&#46; len&#40;&#58;&#58;oWnd&#58;aControls&#41; &gt; 1 &#46;and&#46; &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n           return 0    // We don\'t want API default behavior\n\n[/code:2xvwngw6]\n\nwindow.prg\n[code:2xvwngw6]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWindow\n\n   local bKeyAction &#58;= SetKey&#40; nKey &#41;\n   local nRetval &#58;= 0\n\n   // AS 12/06/2007 Only process tab if there are controls to do it for\n   // if nKey == VK_TAB &#46;and&#46; &#58;&#58;oWnd != nil &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41;\n   if nKey == VK_TAB &#46;and&#46; &#58;&#58;oWnd != nil &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41; &#46;and&#46; &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n      return 0\n   endif\n\n   // AS 12/06/2007 Only process tab if there are controls to do it for\n//   if nKey == VK_TAB &#46;and&#46; &#58;&#58;oWnd != nil\n   if nKey == VK_TAB &#46;and&#46; &#58;&#58;oWnd != nil &#46;and&#46; &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n      return 0\n   endif\n\nMETHOD GoNextCtrl&#40; hCtrl &#41; CLASS TWindow\n\n   local hCtlNext &#58;= NextDlgTab&#40; &#58;&#58;hWnd, hCtrl &#41;\n   local lRetval &#58;= &#46;f&#46;\n   &#58;&#58;hCtlFocus = hCtlNext\n\n\n   if ! Empty&#40; &#58;&#58;aControls &#41; &#46;and&#46; hCtrl == &#58;&#58;LastActiveCtrl&#40;&#41;&#58;hWnd //ATail&#40; &#58;&#58;aControls &#41;&#58;hWnd\n      if ! Empty&#40; &#58;&#58;oWnd &#41; &#46;and&#46; ;\n         &#40; Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TFOLDER&quot; &#46;or&#46; ;\n           Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TPAGES&quot; &#41;\n         hCtlNext = NextDlgTab&#40; &#58;&#58;oWnd&#58;oWnd&#58;hWnd, &#58;&#58;oWnd&#58;hWnd &#41;\n         &#58;&#58;hCtlFocus = hCtrl\n      endif\n   endif\n\n   // Fix for Combobox with Dropdown by IOZ 12/06/00\n   if hCtlNext == hCtrl &#46;and&#46; Upper&#40;getclassname&#40;hCtrl&#41;&#41; == &quot;EDIT&quot;\n      hCtlNext &#58;= NextDlgTab&#40; GetParent&#40;&#58;&#58;hWnd&#41;, hCtrl &#41;\n   endif\n\n   if hCtlNext != hCtrl &#46;and&#46; hCtlNext != 0\n      SetFocus&#40; hCtlNext &#41;\n      lRetval &#58;= &#46;t&#46;\n   endif\n\nreturn lRetval\n\n//----------------------------------------------------------------------------//\n\nMETHOD GoPrevCtrl&#40; hCtrl &#41; CLASS TWindow\n\n   local hCtlPrev &#58;= NextDlgTab&#40; &#58;&#58;hWnd, hCtrl, &#46;t&#46; &#41;\n   local n, cFoldName\n   local lRetval &#58;= &#46;f&#46;\n\n   #ifdef __CLIPPER__\n      cFoldName = &quot;TFOLDER&quot;\n   #else\n      cFoldName = &quot;SYSTABCONTROL32&quot;\n   #endif\n\n   &#58;&#58;hCtlFocus = hCtlPrev\n\n   if ! Empty&#40; &#58;&#58;aControls &#41; &#46;and&#46; hCtrl == &#58;&#58;FirstActiveCtrl&#40;&#41;&#58;hWnd //&#58;&#58;aControls&#91; 1 &#93;&#58;hWnd\n      if ! Empty&#40; &#58;&#58;oWnd &#41; &#46;and&#46; ;\n         &#40; Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TFOLDER&quot; &#46;or&#46; ;\n           Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TPAGES&quot; &#41;\n         hCtlPrev = NextDlgTab&#40; &#58;&#58;oWnd&#58;oWnd&#58;hWnd, &#58;&#58;oWnd&#58;hWnd, &#46;t&#46; &#41;\n         &#58;&#58;hCtlFocus = hCtrl\n      endif\n   endif\n\n   If hCtlPrev != hCtrl &#46;and&#46; hCtlPrev != 0\n      If Upper&#40; GetClassName&#40; hCtlPrev &#41; &#41; == cFoldName &#46;or&#46; ;\n         Upper&#40; GetClassName&#40; hCtlPrev &#41; &#41; == &quot;TPAGES&quot;\n         n = AScan&#40; &#58;&#58;aControls, &#123; | o | o&#58;hWnd == hCtlPrev &#125; &#41;\n         if n &gt; 0\n            &#58;&#58;aControls&#91; n &#93;&#58;aDialogs&#91; &#58;&#58;aControls&#91; n &#93;&#58;nOption &#93;&#58;LastActiveCtrl&#40;&#41;&#58;SetFocus&#40;&#41;\n            lRetval &#58;= &#46;t&#46;\n         endif\n      else\n         SetFocus&#40; hCtlPrev &#41;\n         lRetval &#58;= &#46;t&#46;\n      endif\n   endif\n\nreturn lRetval\n\n[/code:2xvwngw6]','',0,'AIA=','2xvwngw6',1,0,'',32,0,0),(33194,7251,3,2,0,'87.218.146.190',1181642747,1,0,1,1,1,1,'','','Alex,\n\nDo you mean child windows instead of child dialogs ?','',0,'AIA=','2lzzrmxp',1,0,'',2,0,0),(33195,7251,3,32,0,'216.6.55.242',1181642981,1,0,1,1,1,0,'','','No, child dialogs, as in\n\n  DEFINE DIALOG ::oDlg ;\n    OF ::oBrwMgr:oBrw ;\n    Color ::oBrwMgr:oBrw:nClrText, rgb(224,224,224) ;\n    FONT oApp():oFnt ;\n    PIXEL FROM anDim[1], anDim[2] TO anDim[1] + nHeight, anDim[2] + nWidth;\n[b:vgls6bnp]    STYLE nor(WS_POPUP, WS_VISIBLE)\n[/b:vgls6bnp]','',0,'QA==','vgls6bnp',1,0,'',32,0,0),(33196,7241,3,22,0,'88.41.18.74',1181643413,1,0,1,1,1,0,'','','I think it should be like this:\n[code:190effpy]\n   if &#58;&#58;nLen == 0\n      &#58;&#58;EraseData&#40; nFirstRow  &#41;\n      &#58;&#58;DispEnd&#40; aInfo &#41;   // gs\n      return nil\n   endif\n[/code:190effpy]\nIn this way it don\'t paint an empty row.\n\nLet me know if it works\n\nRegards\nGianni','',0,'AIA=','190effpy',1,0,'',22,0,0),(33197,7241,3,2,0,'87.218.146.190',1181643579,1,0,1,1,1,1,'','','Gianni,\n\nYes, you are right. many thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','25kuqp3i',1,0,'',2,0,0),(33198,7251,3,2,0,'87.218.146.190',1181643674,1,0,1,1,1,1,'','','Alex,\n\nModal or Non modal ones ?','',0,'AIA=','tntu89s3',1,0,'',2,0,0),(33199,7251,3,32,0,'216.6.55.242',1181643821,1,0,1,1,1,0,'','','Modal.\n\nI\'m busy building a line edit of custom controls on top of a browse with each control in a modal dialog. When the user presses up/down/tab/enter, etc in the control in the single control dialog, I need to catch it. That\'s why I made GoNextCtrl/GoPrevCtrl return a logical indicating focus was changed.\n\nAlex','',0,'AIA=','3hyn5de1',1,0,'',32,0,0),(33200,7244,20,1082,0,'85.43.122.34',1181645240,1,0,1,1,1,0,'','','ok.... scusami ancora, purtroppo sto imparando passo passo.... non avendo dimestichezza con il linker di bcc52\nho usato i tuoi file ma ora si blocca in questo modo quando compilo i due file .prg:\n\nc:\\stclient&gt;buildst\ncompilato\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nstcliage.c:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nstclient.c:\nok\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'link.rsp\'\nPremere un tasto per continuare . . .\n\n\npresumo che ci vuole un file link.rsp......','',0,'AIA=','15ghtfrq',1,0,'',1082,0,0),(33201,7252,6,1086,0,'200.5.242.53',1181647196,1,0,1,1,1,0,'','Soy nuevo..ayuda por favor','Hola, estoy dando mis primeros pasos con FiveWin, tengo varias dudas utilizando FW segun lo que lei se compila con Blinker 6.0 o 7.0 genera aplicaciones en 16 Bits es asi?, se puede compilar con el compilador Harbour si es asi genera aplicaciones en 32 Bits?, ademas que es xHarbour, otra, estas aplicaciones pueden correr en Windows XP?, gracias por todo.','',0,'AIA=','n98wmuo4',1,0,'',1086,0,0),(33202,7244,20,6,0,'79.3.216.212',1181647277,1,0,1,1,1,1,'','','Sì, scusa. Il file LINK.RSP deve essere fatto così:\n\n[code:2sfivvfm]mioprg1 +\nmioprg2 +\n&#46;&#46;&#46; +\nmioprgn\nMIOEXE&#46;EXE[/code:2sfivvfm]\n\nEMG','',0,'AIA=','2sfivvfm',1,0,'',6,0,0),(33203,5709,6,779,0,'189.141.80.163',1181648706,1,0,1,1,1,0,'','Programa para enviar con sockets por jikama.com','* ivizcaino 2007\n* smsSock(\'000001\',\'PASSWD\',\'5532324028\',\'Hola AMigos\')\n* Poner en System\\smsSock.bwp\nFUNCTION SMSSock()\nPARAM cCliente,cPassword,cTelefono,cMensaje\ncDominio:=\'www.jikama.com\'\noSMS := TWebClient():New(6207)\nCargo := .f.\ncTexto:=\'\'\noSMS:bOnConnect := {|oWClient| Cargo := .t.}\noSMS:bOnRead    := {|cData| if(valtype(cData) == \"C\", cTexto := cTexto+cData,  )}\noSMSSock:=oSMS:oSocket\noSMS:Connect(\'www.jikama.com\')\nwhile ! Cargo\n      syswait(.1)\n      SysRefresh()\nendw\noSMSSock:SendData( [:BACK cw:Jsms(\"]+ccliente+[\",\"]+cPassword+[\",\"]+cTelefono+[\",\"]+cMensaje+[\")])\nWhile Empty(cTexto)\n      syswait(.1)\n      m6(time())\nEndw\noSMSSock:end()\nMensaje(1,cTexto)\nreturn (cTexto)\n\n \nEste ejemplo es con Sockets!\n \nsmsSock(\'000001\',\'eureka\',\'5532324028\',\'Hola Amigos por sockets 6207 !\'+Time())','',0,'','2e48ph9r',1,0,'',779,0,0),(33204,7252,6,2,0,'87.218.146.190',1181649078,1,0,1,1,1,1,'','','Fernando,\n\nFiveWin para Clipper, usa Blinker y genera aplicaciones en 16 bits.\n\nPara crear aplicaciones en 32 bits se necesita FiveWin para Harbour/xHarbour, que es otro producto, aunque es totalmente compatible con FiveWin para Clipper. Se enlaza usando el enlazador ilink32 de Borland, que es gratuito.\n\nAmbas aplicaciones, las de 16 bits y las de 32 bits, funcionan perfectamente en Windows 98, XP y el nuevo Vista. Aunque las de 32 bits se integran mejor con el sistema operativo que es 32 bits.','',0,'','vh9x20rj',1,0,'',2,0,0),(33205,7249,3,998,0,'217.21.255.129',1181651398,1,0,1,1,1,0,'','','OK Antonio, that works fine, although the return values differ from the ones we\'re used to in Clipper. i.e. left-arrow value 5 is now value 38 etc.\nThis is no problem so far. \nWhat about changing these values in the Fivewin INKEY.CH ?\n\nRegards,\nRob','',0,'','6q6gsyh0',1,0,'',998,0,0),(33206,7252,6,1086,0,'200.5.242.53',1181656720,1,0,1,1,1,0,'','Novato','Hola, muchas gracias Antonio por la respuesta, muy claro todo, seguire estudiando mas, si es asi es extraordinario este sistema, pues me sirve la experiencia en clipper y no perdere tiempo en aprender otro lenguaje, gracias nuevamente, buenismo el Forum y todos dispuestos a ayudar.\nSaludos cordiales\nFernando','',0,'','1lt58621',1,0,'',1086,0,0);
INSERT INTO `phpbb_posts` VALUES (33207,7177,1,1077,0,'80.77.147.50',1181657406,1,0,1,1,1,0,'','','Better sample ...\nIf someone have better solution about sorting please reply\n\nBest regards,\n        Pande.\n\nProgram ...\n//---------------------------------//\n\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\nLOCAL oDlg\nLOCAL oBtn\n\n// Put in aSample array 12291 elements\naSample={}\nfor i=1 to 3\n    aSampleTemp = {}\n    for j=4096 to 1 step -1\n        aadd(aSampleTemp,str(j))\n    next\n    aadd(aSample,aSampleTemp)\nnext\naadd(aSample,{str(1),str(2),str(3)})\n\nDEFINE DIALOG oDlg FROM   0,  0 TO 500,300 PIXEL ;\n       TITLE \"Big Array\"\n\n   @  35,  5 LISTBOX oList FIELDS \"\" UPDATE  OF oDlg SIZE 130,200 PIXEL\n\n   oList:nAt = 1\n   oList:bLine = { || { MyArrItem(aSample,oList:nAt) } }\n   oList:bGoTop = { || oList:nAt := 1 }\n   oList:bGoBottom = { || oList:nAt := Eval( oList:bLogicLen ) }\n   oList:bSkip = { | nWant, nOld | nOld := oList:nAt, oList:nAt += nWant, ;\n   oList:nAt := Max( 1, Min( oList:nAt, ;\n   Eval(oList:bLogicLen) ) ), oList:nAt - nOld }\n   oList:bLogicLen = { || MyArrLen(aSample) } // len(aSample) }\n   oList:cAlias = \"ARRAY\"\n\n   oList:GoTop()\n   oList:Refresh()\n\n// Sort aSample array if need\n   @  20,  5 BUTTON oBtn PROMPT \"&amp;Sort Array\" OF oDlg SIZE 130,10 PIXEL ;\n             ACTION ( oBtn:Disable() ,;\n                      aSample := MyArrSort( aSample ) ,;\n                      oBtn:Enable() ,;\n                      oList:GoTop() ,;\n                      oList:Refresh() ;\n                    )\n\nACTIVATE DIALOG oDlg CENTERED\n\nreturn NIL\n\n//--------------------------------------------------//\n// cData = aArray[ nPosition ]\n// solution for big array: cData = MyArrItem( aArray, nPosition )\n\nFUNCTION MyArrItem( aArray, nPosition )\n         nRow    = INT(nPosition/4096) + 1\n         nCol = nPosition - (nRow - 1) * 4096\n\n         IF nCol=0\n            nRow   = nRow -1\n            nCol=4096\n         ENDIF\n\nRETURN   aArray[nRow, nCol]\n\n//--------------------------------------------------//\n// nLen = LEN( aArray )\n// solution for big array: nLen = MyArrLen( aArray )\n\nFUNCTION MyArrLen( aArray )\n         nLen    = ( LEN(aArray) -1 ) * 4096\n         nLen    = nLen + LEN(aArray[LEN(aArray)])\n\nRETURN nLen\n\n//--------------------------------------------------//\n// AADD( aArray, cData )\n// solution for big array: MyArrAdd( aArray, cData )\n\nFUNCTION MyArrAdd( aArray, cData )\n\n         nLen = LEN(aArray)\n\n         if nLen = 0 .or. LEN( aArray[nLen] ) = 4096\n            aadd( aArray, {} )\n            nLen = nLen +1\n         endif\n\n         aadd( aArray[nLen], cData )\n\nRETURN NIL\n\n//--------------------------------------------------//\n// ASORT( aArray )\n// solution for big array: MyArrSort( aArray )\n// May be someone know better way to sort ?\n\nFUNCTION MyArrSort( aArray )\n\nfor i=1 to len(aArray)      // Sorting ARRAY in every element\n    asort(aArray[i])\nnext\n\nif len(aArray) &gt; 1          // MERGE sorted ARRAYS in every element in one big array\n   aNewArray = {aArray[1]}\n\n   for i=2 to len(aArray)\n       aTempArr1 = aNewArray\n       aTempArr2 = aArray[i]\n       aNewArray = {}\n       nBrojac1 = 1\n       nBrojac2 = 1\n       lIzlez = .f.\n       do while !lIzlez\n\n          cPodatok1 = MyArrItem( aTempArr1, nBrojac1 )  // Item from bigarray\n          cPodatok2 = aTempArr2[ nBrojac2 ]             // Item from onedimensional array\n\n          if cPodatok1 &lt;= cPodatok2\n             MyArrAdd( aNewArray, cPodatok1 )\n             nBrojac1 = nBrojac1 +1\n           else\n             MyArrAdd( aNewArray, cPodatok2 )\n             nBrojac2 = nBrojac2 +1\n          endif\n\n          if      nBrojac1 &gt; MyArrLen( aTempArr1 )\n             for j = nBrojac2 to LEN( aTempArr2 )\n                 MyArrAdd( aNewArray, aTempArr2[j] )\n             next\n             lIzlez = .t.\n           elseif nBrojac2 &gt; LEN( aTempArr2 )\n             for j = nBrojac1 to MyArrLen( aTempArr1 )\n                 MyArrAdd( aNewArray, MyArrItem( aTempArr1, j ) )\n             next\n             lIzlez = .t.\n          endif\n\n       enddo\n\n   next\n\nendif\n\nRETURN aNewArray','',0,'','1yghvsu8',1,0,'',1077,0,0),(33208,7253,6,1014,0,'201.240.200.221',1181658179,1,0,1,1,1,1,'','xBrowse','Hola Amigos.\nEstoy peleándome desde hace algún tiempo con el xBrowse\nTengo un ejemplo bastante sencillo de una entrada de datos común para hacer mantenimiento a un archivo de Presupuestos mensuales con total acumulado.\nPara el ejemplo, tipeo en la cuenta cualquier dígito y en la rutina de “Co130ChCta” lleno el array “tPre” con el último dígito de la cuenta para el 1er mes y lo incremento para los sucesivos, pero ya el Refresh() de la línea 100 no la hace. Y todo aparece en cero.\n\nLuego digito un”2” en row 1 col 2 y entra a la rutina “Co130ChMen” de validación mensual con el “2” digitado y tampoco hace el Refresh() de la línea 121 y luego entra otra vez (solito) a la misma rutina “Co130ChMen” pero con el dato “1” original. Como que no actualiza el array tPre con lo digitado????\n\nY después de esto entra otra vez (solito) a la función “Co130ChCta” donde carga los datos iniciales... \n\nNo sé qué me falta o lo que hago mal \nPongo la rutina por si acaso alguien me ayuda\n///////////////////////////////////////////////////////////////\n\nextern DbfCdx\n#include \"FiveWin.ch\"\n#include \"XBrowse.ch\"\n\nFunction Main()  //CO130()    // Mantenimiento al Maestro de Presupuestos\n\nPROG1=\"CO130\"\n\npriv oDlg,oFnt\npriv oCta,oSCta\npriv wCta:=0\npriv oBrw,oBtnEsc,oBtnF1,oBtnF2\npriv tPre:={}\nfor x=1 to 12\n    aadd(tpre,{str(x,2),0,0})\nnext\n\nDEFINE FONT oFnt NAME \"Ms Sans Serif\" SIZE 0, -12\n\nDEFINE DIALOG oDlg TITLE \"CO130 Archivo de Presupuestos\" ;\n              FONT oFnt FROM 3,25 to 30,75\n\n@01,02 SAY oSCta VAR \"Cuenta\" OF oDlg\n@01.3,05 GET oCta      VAR wCta     OF oDlg PICTURE \"@R 999-99\" SIZE 22,8 ;\n         VALID CO130ChCta (wCta)\n         oCta:bGotFocus={||oCta:SelectAll()}\n\n   WITH OBJECT (oBrw := TXBrowse():New( oDlg ) )\n        :SetArray(tPre)\n\n        WITH OBJECT :aCols[1]\n             :cHeader:=  \"Periodo\"\n             :nWidth:=  50\n        END\n\n        WITH OBJECT :aCols[2]\n             :cHeader:=\"Presupuesto\"\n             :nHeadStrAlign:=AL_RIGHT\n             :cEditPicture:=\"99999,999,999.99\"\n             :bClrEdit:=oBrw:bClrStd\n             :bOnPostEdit:={|o,x| tPre[oBrw:nArrayAt,2]:=x }\n             :nEditType:=EDIT_GET\n             :bEditValid:={|| Co130ChMen()}\n             :nWidth:=  65\n             :nDataStrAlign:=AL_RIGHT\n        END\n\n        WITH OBJECT :aCols[3]\n             :cHeader:=\"Total\"\n             :nHeadStrAlign:=AL_RIGHT\n             :cEditPicture:=\"99999,999,999.99\"\n             :nEditType:=EDIT_NONE\n             :nWidth:=  65\n             :nDataStrAlign:=AL_RIGHT\n        END\n\n        :nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n        :nColDividerStyle    := LINESTYLE_BLACK\n        :nRowDividerStyle    := LINESTYLE_BLACK\n        :nTop:=55\n        :nLeft:=50\n        :nBottom:=175  //nWidth=150\n        :nRight:=160    //nHeight=200\n        :nFreeze:=1\n        :lHScroll:=.f.\n        :lVScroll:=.f.\n        :lFastEdit:=.t.\n\n        :CreateFromCode()\n   END\n   oDlg:oClient:=oBrw\n\n@10,21 BUTTON oBtnF2  PROMPT \"F2 - GRABAR\" SIZE 40,12 OF oDlg ;\n              Action (CO130Bor(),oCta:setfocus())\n@10,03 BUTTON oBtnEsc PROMPT \"Esc - Salir\" SIZE 40,12 OF oDlg ;\n              Action (oDlg:End())\n\n   ACTIVATE DIALOG oDlg ;\n              ON INIT ( Co130Bor())\n\noFnt:end()\nreturn nil\n//\n///////////////////////////////\n//\nFUNCTION Co130ChCta(wCta)    // validar Cuenta\n?\"ChCta 88\"\npriv res:=val(substr(str(wCTA,5),5,1))  // toma el ultimo digito de wCta\npriv TotPres:=0\ntPre:={}\nfor x=1 to 12\n    TOTPRES:=TOTPRES+(Res*x)  // ultimo digito * mes\n    Aadd(tPre,{str(x,2),Res*x,  TotPres})\nnext  //        mes     mensual acumulado\n?\"ChCta 96\",tPre[12,1],tPre[12,2],tPre[12,3]  // tPre con datos correctos\n\noBrw:show()\nsysRefresh()\noBrw:refresh() // linea 100: no hace Refresh(), cols 2 y 3 aparecen en Cero\n\noBrw:goTop()\noBrw:nRowSel:=1\noBrw:nColSel:=2\noBrw:setfocus()\noCta:oJump():=oBrw\nRETURN .t.\n//\n/////////////////\n//\nFunction CO130ChMen()  &amp;&amp; Val Mensual  -  actualizar 3ra col - Acumulados\npriv lin:=oBrw:nArrayAt\n?\"113 ChMen\",\"Lin\",oBrw:nArrayAt,\"Col\",tPre[oBrw:nArrayAt,2],\"Dato\",tPre[lin,2]\npriv TotPres:= x:= 0\nfor x=1 to 12\n    TOTPRES:=TOTPRES+tPre[x,2]\n    tPre[x,3]:=TOTPRES\n?\"118\",x,tpre[x,2],tPre[x,3]\nnext\n\noBrw:refresh()      // Linea 121.  tampoco hace este Refresh()\noBrw:goTop()\noBrw:nRowSel:=oBrw:nArrayAt+1  // ir a sgte linea\n*oBrw:goDown()\noBrw:nColSel:=2\n?\"126 ChMen\",\"Lin\",oBrw:nArrayAt,\"Col\",tPre[oBrw:nArrayAt,2]\n*oBrw:oJump:=oBrw\noBrw:setfocus()\nreturn .t.\n//\n//////////////////////////////////////\n//\nfunction CO130Bor()    // Borrar\nwCta:=0\noCta:refresh()\n*tPre:={}\noBrw:refresh()\noBrw:hide()\nreturn .t.\n*\n////////////////////////////////////\n\no tal vez alguien tenga alguna rutina básica similar a lo que deseo hacer\n\nMuchas gracias de antemano\nJorge Vargas','',0,'','2dl49t15',1,0,'',1014,0,0),(33209,7244,20,1082,0,'85.43.122.34',1181659264,1,0,1,1,1,0,'','','ok Enrico ce l\'ho fatta!!!!\ngrazie mille per i suggerimenti\nanche se con calma dovrò capire cosa significano tutte quelle estensioni del link (-aa /Gn etc)','',0,'','4i8jugey',1,0,'',1082,0,0),(33210,7254,3,473,0,'81.82.10.56',1181660678,1,0,1,1,1,0,'','Harbour 99-2 and FWH2.7','I\'ve just reinstalled harbour\'s latest version with my latest version of FWH. This is 2.7\n\nWith the (edited) buildh.bat in the samples map i\'ve compiled achoice.prg as the first example.\n\nThe exe is build properly but nothing happens executing it. The same problem with other samples.\n\nIs there a version problem.\n\nAny idea.\n\nThanks,\n\nWilly Hermans','',0,'','3o5ysp3t',1,0,'',473,0,0),(33211,7254,3,2,0,'87.218.146.190',1181662254,1,0,1,1,1,1,'','','Willy,\n\nYou need to upgrade FWH as there have been internal changes in Harbour','',0,'','15x8r0bp',1,1181666673,'',2,1,0),(33212,7246,6,694,0,'200.189.112.21',1181662275,1,0,1,1,1,1,'','','Gracias Antonio, você é show !!!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1er12sw4',1,0,'',694,0,0),(33213,7247,3,529,0,'200.159.199.104',1181663760,1,0,1,1,1,0,'','','Antonio, i will try... how to import projects? i see only to make new projects and more: my paths to xharbour, fwh, is customized, how to change this? thanks','',0,'','3qav47ex',1,0,'',529,0,0),(33214,7247,3,2,0,'87.218.146.190',1181663894,1,0,1,1,1,1,'','','Norberto,\n\nWe do provide UEStudio config files for FWH and FWPPC. Simply change your paths into them. Do you have the config files ?','',0,'','2cgs6dei',1,0,'',2,0,0),(33215,7255,3,529,0,'200.159.199.104',1181664221,1,0,1,1,1,0,'','Uestudio','HI, i am try use uestudio, but i see only tutorial to make new projects, how to import an project using make, i have customized paths to fwh, xharbour, 3rd part libs, etc...\nmy aplication uses several modules (prg), how to make this?\n\nthanks','',0,'','20qxtryj',1,0,'',529,0,0),(33216,7247,3,529,0,'200.159.199.104',1181664296,1,0,1,1,1,0,'','','Antonio, yes, they come with fwh 705, i have to create an directory under uestudio? how name? fwh? xharbour? thanks','',0,'','2ikw2meu',1,0,'',529,0,0),(33217,7247,3,529,0,'200.159.199.104',1181664378,1,0,1,1,1,0,'','','antonio, and more: how to disable icons to others languages, (html) etc...','',0,'','174giyw1',1,0,'',529,0,0),(33218,7247,3,2,0,'87.218.146.190',1181664629,1,0,1,1,1,1,'','','Create a folder, name it Harbour or FWH, under UEStudio \'06/Configs/\n\nWe have also published several videos to learn how to use it:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://video.google.es/videoplay?docid=9088858141713451295&amp;hl=es\">http://video.google.es/videoplay?docid= ... 1295&amp;hl=es</a><!-- m --> \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/025743b836/uestudio1.zip.html\">http://hyperupload.com/download/025743b ... 1.zip.html</a><!-- m -->','',0,'','2k6xz4ft',1,0,'',2,0,0),(33219,7254,3,473,0,'81.82.10.56',1181666196,1,0,1,1,1,0,'','','Ok Antonio\nI\'ll order the upgrade\nGreetings\n\nWilly Hermans','',0,'','fqzozc0s',1,0,'',473,0,0),(33220,7256,19,376,0,'190.42.34.138',1181669689,1,0,1,1,1,1,'','Microsoft Surface','Amigos..\n \nEsto es interesante quizas algunos ya lo vieron pero estoy seguro que muchos no..\n \n<!-- m --><a class=\"postlink\" href=\"http://www.youtube.com/watch?v=ttgx9ygMXz8\">http://www.youtube.com/watch?v=ttgx9ygMXz8</a><!-- m -->','',0,'','c121u4i5',1,0,'',376,0,0),(33221,7244,20,6,0,'79.3.216.212',1181669728,1,0,1,1,1,1,'','','Le trovi sulla documentazione del BCC55.\n\nEMG','',0,'','3j20k15h',1,0,'',6,0,0),(33222,7257,6,300,0,'200.103.35.140',1181675124,1,0,1,1,1,0,'','To Antonio Linares','Olá Antonio,\n\nVendo uno exemplo de José Luis Capel sobre activex e google earth es possivel refrescar lo objeto activex con uno novo dado de latitude e logitude sen carregar lo mapa novamente? Explico:\nTengo uno sistema de rastreador de veículo, de tiempo em tiempo tengo los dados de latitude e logitude gostaria de passar los valores ao objeto activex para refrescar en lo mapa dando impression de movimento do veiculo. \n\n<!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=83\">http://www.capelblog.com/?p=83</a><!-- m -->\nSite con lo exemplo de Luis\n\nGracias\nWanderson.','',0,'','m4zmqawn',1,0,'',300,0,0),(33223,7257,6,2,0,'87.218.146.190',1181676254,1,0,1,1,1,1,'','','Wanderson,\n\nSólo tienes que volver a crear MiHtml.htm y llamar de nuevo a:\n\n   oActiveX&#058;Do(\"Navigate2\",(CurDrive() + \":\\\"+CurDir()+\"\\MiHtml.htm\"))','',0,'','25jh95z7',1,0,'',2,0,0),(33224,7257,6,300,0,'200.103.35.140',1181677324,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:31gwhzjg]Wanderson,\n\nSólo tienes que volver a crear MiHtml.htm y llamar de nuevo a:\n\n   oActiveX&#058;Do(\"Navigate2\",(CurDrive() + \":&quot;+CurDir()+\"\\MiHtml.htm\"))[/quote:31gwhzjg]\n\nSi Antonio, mas o efeito no es o mesmo quando se passa solamente latitude e longitude ao google earth no quiero que me pinta todo lo mapa novamente asi no tengo la idea de movimento do ponto. Revisando la api del google existe una propriedade:\n\nmap.panTo(new GLatLng(37.4569, -122.1569))\n\nIsto movimenta lo mapa ao ponto sen repintalo.\n\nes possivel?\n\nGracias.\nWanderson.','',0,'gA==','31gwhzjg',1,0,'',300,0,0),(33225,7257,6,2,0,'87.218.146.190',1181693386,1,0,1,1,1,1,'','','No lo se, no lo hemos probado. Inténtalo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3pmi1g4s',1,0,'',2,0,0),(33226,7145,6,267,0,'201.8.32.244',1181699266,1,0,1,1,1,1,'','','Olá Rene,\n\nTambém sou usuário registrado do ADS 8.1. Como conseguir o manual ?','',0,'gA==','12u1mvae',1,0,'',267,0,0),(33227,7258,6,1035,0,'201.243.12.219',1181705282,1,0,1,1,1,1,'','Teclado en Pantalla!!','Saludos Cordiales Colegas!!\n\nAlguien que haya trabajado con monitores TouchScreen a tenido la necesidad de usar algun teclado en pantalla!!\n\nRealmente nosotros tenemos esa necesidad!! pero usar el teclado en pantalla de windows es bastante engorroso y poco modificable! ya que su tamaño se vuelve engorroso a la hora de usar cuando se tiene una resolucion de pantalla elevado\n\nAlguien a intentado hacer algo parecido en FiveWin??\n\nAlguna idea singular de como hacerlo??\n\nMuchas Gracias por su tiempo!!','',0,'gA==','305btw5w',1,0,'',1035,0,0),(33228,7258,6,2,0,'87.218.146.190',1181721983,1,0,1,1,1,1,'','','Tienes un ejemplo operativo en samples\\KeybSim.prg','',0,'gA==','mfz6f94d',1,0,'',2,0,0),(33229,7249,3,2,0,'87.218.146.190',1181722183,1,0,1,1,1,1,'','','Rob,\n\nFiveWin does not provide an inkey.ch file. That one belongs to Harbour.','',0,'gA==','1cxkol5z',1,0,'',2,0,0),(33230,7254,3,473,0,'81.82.10.56',1181723858,1,0,1,1,1,0,'','','Hello again,\n\nThe new version is installed.\n\nCompiling goes fine.\n\nLinking gives an error \nace32 contains an invalid omf record, type 0x21 possibly coff\n\nSo I think the ADS version is also not compatible.\n\nI\'ve tried ads 6 and i\'ve downloaded the last version.\n\nBoth dont work.\n\nWhere can I find the good working ADS\n\nThanks,\n\nWilly Hermans','',0,'gA==','k4mrd4ez',1,0,'',473,0,0),(33231,7259,3,32,0,'216.6.55.242',1181724415,1,0,1,1,1,0,'','Activate first item on popup menu','Hi,\n\nWhen a popup menu is activated, the highlight is not show, and the user must first press up or down to see the highlight. Is there a way to automatically highlight the first item?\n\nAlex','',0,'gA==','3tla2s7p',1,0,'',32,0,0),(33232,7254,3,2,0,'87.218.146.190',1181724649,1,0,1,1,1,1,'','','Willy,\n\nYou can create ADS32.lib from your used ADS32.dll this way:\n\nimplib.exe ADS32.lib ADS32.dll','',0,'gA==','3pv8znxp',1,0,'',2,0,0),(33233,7259,3,2,0,'87.218.146.190',1181725177,1,0,1,1,1,1,'','','Alex,\n\nIn samples\\TestPop.prg please insert this line:\n[code:2w8dm0ty]\nfunction ShowPopup&#40; nRow, nCol &#41;\n\n   oMenu &#58;= BuildPopup&#40;&#41;\n\n   // This one!\n   oMenu&#58;aItems&#91; 1 &#93;&#58;bWhen = &#123; || oMenu&#58;oWnd &#58;= oWnd, oMenu&#58;Hilite&#40; 1 &#41;, oMenu&#58;aItems&#91; 1 &#93;&#58;bWhen &#58;= nil &#125;\n\n   ACTIVATE POPUP oMenu WINDOW oWnd AT nRow, nCol\n\nreturn nil\n[/code:2w8dm0ty]','',0,'AIA=','2w8dm0ty',1,0,'',2,0,0),(33234,7260,6,917,0,'213.96.167.92',1181731607,1,0,1,1,1,0,'','ERROR CON TCOMBOBOX','HOLA A TODOS,\n\nUTILIZANDO EL CONTROL COMBOBOX CON LA ULTIMA VERSION DE FIVEWIN (MAYO 2007) ME DEVUELVE EL SIGUENTE ERROR EN EJECUCIÓN:\n\nError description: Error BASE/1005  Message not found: TCLIPGET:_TYPE\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TCLIPGET:ERROR(169)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(103)\n   Called from:  =&gt; TCLIPGET:MSGNOTFOUND(0)\n   Called from:  =&gt; TCLIPGET:_TYPE(162)\n   Called from: .\\source\\classes\\TGET.PRG =&gt; (b)TGET(0)\n   Called from:  =&gt; TGET:VARPUT(0)\n   Called from:  =&gt; TCOMBOBOX:CHANGE(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TCOMBOBOX:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\INCIMAN.prg =&gt; FVIEW_INC(775)\n   Called from: .\\INCIMAN.prg =&gt; (b)SETBAR(356)\n   Called from:  =&gt; TBTNBMP:CLICK(0)\n   Called from:  =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: .\\INCIDEN.prg =&gt; MENUPAL(116)\n   Called from: .\\INCIDEN.prg =&gt; MAIN(54)\n\n\nCON LA ANTERIOR VERSION NO OCURRIA.\nALGUNA AYUDA\n\nGRACIAS\n\nFWH 7.05 + Harbour devel build 1.1-0 Intl.','',0,'AIA=','3lb4kvz4',1,0,'',917,0,0),(33235,3833,7,986,0,'200.162.80.159',1181736390,1,0,1,1,1,1,'','Imprimir via IRDA ( Infrared )','SEnhores,\n\nAlguem tem um exemplo de impressao via  IRDA ?\n\nObrigado!\n\nAte','',0,'AIA=','2pg0ens3',1,0,'',986,0,0),(33236,7260,6,2,0,'87.218.146.190',1181736642,1,0,1,1,1,1,'','','Arturo,\n\nTienes que volver a descargar e instalar Harbour desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'AIA=','1aky3kxd',1,0,'',2,0,0),(33237,7261,3,86,0,'81.83.185.118',1181742169,1,0,1,1,1,1,'','Question about using LOOP','Hello,\n\nIn my application, I use OLE to work together with MS-Word.\n\nWhile working in Word, my application needs to wait until a button is pushed which end Word.\n\nFor waiting, I use this code :\n\n[code:11hb3i1m]      DO WHILE &#46;T&#46;\n         IF VActive\n            SYSREFRESH&#40;&#41;\n            LOOP\n         ENDIF\n         EXIT\n      ENDDO\n[/code:11hb3i1m]\n\nWhen VActive = .F., the loop is ended and my application continues.\n\nWhile my application is waiting, I often notice that the processor is used 100 %. This is eventually slowing down other running applications.\n\nIs there a possibility to prevent that the processor is used for 100 % ?\n\nI use Windows XP Professional and Microsoft Office 2003. My PC has 1 GB RAM.\n\nThanks a lot for any help.','',0,'AIA=','11hb3i1m',1,0,'',86,0,0),(33238,7253,6,217,0,'200.159.120.34',1181744834,1,0,1,1,1,0,'','Re: xBrowse','Jorge, cuando cambia el array tPre no cambia el contenido del xBrowse. El buffer de array de xBrowse es oBrw:aArrayData, tienes que hacer 1 de estas 2 cosas:\n- Asigne el buffer del campo editado a oBrw:aArrayData \n- Atualice el contenido de oBrw:aArrayData despues de edicion de las celdas\n\nPuedes hacer:\n[code:1vkgkqtf]\n &#58;bOnPostEdit&#58;=&#123;|o,x| oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,2&#93;&#58;=x &#125; \n[/code:1vkgkqtf]\n\nO:\n[code:1vkgkqtf]\n &#58;bOnPostEdit&#58;=&#123;|o,x| tPre&#91;oBrw&#58;nArrayAt,2&#93;&#58;=x, oBrw&#58;aArrayData &#58;= aClone&#40;tPre&#41; &#125; \n[/code:1vkgkqtf]\n\nEn estos ejemplos yo he passado directamente en el codeblock de bOnPostEdit, pero puedes añadir la atualizacion de oBrw:aArrayData en mejores locales de las functions Co130ChCta, Co130ChMen etc\nTal vez tenga que refrescar la celda con oBrw:Refresh() despues de la edicion...\n\nEspero que te sirva (e compreendas mi \"portuñol\")\n\nSaludos de Brasil\nMaurilio','',0,'AIA=','1vkgkqtf',1,0,'',217,0,0),(33239,7261,3,6,0,'82.59.51.191',1181745884,1,0,1,1,1,1,'','Re: Question about using LOOP','Try replacing SYSREFRESH() with\n\n[code:1qtqzr4p]HB_IDLESLEEP&#40; 1 &#41;[/code:1qtqzr4p]\n\nEMG','',0,'AIA=','1qtqzr4p',1,0,'',6,0,0),(33240,7254,3,473,0,'81.82.10.56',1181747783,1,0,1,1,1,0,'','','Thanks Antonio','',0,'AIA=','2oehgzpb',1,0,'',473,0,0),(33241,7261,3,86,0,'81.83.185.118',1181748792,1,0,1,1,1,1,'','','EnricoMaria,\n\nThanks for you help.\n\nI tried it, but if I push the button after having worked in Word, my application hangs completely.','',0,'AIA=','2twkz5uz',1,0,'',86,0,0),(33242,7261,3,6,0,'82.59.51.191',1181749285,1,0,1,1,1,1,'','Re: Question about using LOOP','Then try using SLEEP() instead of HB_IDLESLEEP():\n\n[code:2i7wajgw]#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; SLEEP &#41;\n&#123;\n    Sleep&#40; hb_parnl&#40; 1 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:2i7wajgw]\n\nEMG','',0,'AIA=','2i7wajgw',1,0,'',6,0,0),(33243,6750,6,492,0,'189.147.21.232',1181754859,1,0,1,1,1,1,'','','Hola Antonio :\n\nIntento aplicar el mismo metodo a mi menu pero no se deja :\n\n\naCatEmps := ObtAllSysEmps()\naEmpsIds := {1,2,3,4}\n\n[code:167yx7ai]	MENUITEM &quot;Empresas&quot;\n	MENU\n		MENUITEM &quot;Empresa Demo&quot; ACTION OpnXEmp2Wrk&#40; 0 &#41;\n		FOR nQ &#58;= 1 TO Len&#40; aCatEmps &#41;\n			bAction &#58;= GenCodeBlock&#40; aEmpsIds, nQ &#41;\n			MENUITEM aCatEmps&#91;nQ&#93; ACTION BLOCK bAction\n		NEXT\n	ENDMENU\n[/code:167yx7ai]\n[code:167yx7ai]Static Function GenCodeBlock&#40; aEmpsIds, nQ &#41; \nreturn &#123; || OpnXEmp2Wrk&#40; aEmpsIds&#91;nQ&#93; &#41; &#125;[/code:167yx7ai]\n\nLo que necesito es que las opciones del menu se generen en forma dinamica, segun existan en un Archivo, y que todas manden llamar la misma funcion \"OpnXEmp2Wrk()\" solo con el parametro diferente.\n\nAl momento de compilar, me manda el mensaje :\n\n Error E0030  Syntax error: \"parse error at \'ACATEMPS\'\"\n\n\n\nMuchas Gracias\n\nSaludos','',0,'AIA=','167yx7ai',1,0,'',492,0,0),(33244,7257,6,300,0,'200.140.58.180',1181755278,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3csv4euc]No lo se, no lo hemos probado. Inténtalo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3csv4euc]\n\nComo passar estes parâmetros ao objeto activex?\n\nGracias.','',0,'gA==','3csv4euc',1,0,'',300,0,0),(33245,6750,6,2,0,'87.218.146.190',1181756898,1,0,1,1,1,1,'','','Raymundo,\n\nAqui sobra la cláusula ACTION:\n\n         MENUITEM aCatEmps[nQ] [color=red:3l4hczhn]ACTION[/color:3l4hczhn] BLOCK bAction','',0,'Ag==','3l4hczhn',1,0,'',2,0,0),(33246,6750,6,492,0,'189.147.21.232',1181761764,1,0,1,1,1,1,'','','Antonio :\n\nFunciona perfecto !!!!\n\n\nMuchas Gracias Master  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'Ag==','ml42iv5b',1,0,'',492,0,0),(33247,7261,3,86,0,'81.83.185.118',1181769198,1,0,1,1,1,1,'','','EnricoMaria,\n\nThanks a lot. Your suggestion just works fine.\n\nProblem solved.','',0,'Ag==','3gw08vqn',1,0,'',86,0,0),(33248,7262,7,840,0,'201.243.12.220',1181776930,1,0,1,1,1,1,'','Problema con indices en un listbox','Hola a Todos...\n\nTengo un problema que no eh podido resolver.. Cuando habro 2 indices de un archivo .DBF me toma el 2º indice a que le hic referencia.... como haria  con esto ¿¿?? \n\n\n\n\n*------------------------*\nFUNCTION lista_productos()\n*------------------------*\nlocal oDlg7\n\nDEFINE DIALOG oDlg7 TITLE \"Folders\" SIZE 240, 350 PIXEL STYLE nOr( WS_POPUP, WS_VISIBLE )\n\n	@ 2  , 40  SAY \"Productos\" OF oDlg7 SIZE 60, 13 PIXEL FONT oFont\n\n  @ 15 , -3  FOLDER oFld PROMPTS \"    X Tipos    \",\"  Favoritos  \",\"     Todos     \" SIZE 249, 300 PIXEL\n\n  // 1 = Pagina listado por tipo de productos //////////////////////////////////////////////////////////////////////////////////\n\n	Select MTIPO\n\n 	@ 3  , 2   LISTBOX oBrw71 FIELDS MTIPO-&gt;NOMBRE;\n 		         COLSIZES 35 PIXEL OF oFld:aDialogs[ 1 ] HEADERS \" Tipos \";\n 	 				   SIZE 120,115; //FONT oFont\n						 ON DBLCLICK tipo_producto()\n\n 	@ 124, 1   BUTTON    \"Volver\"    ACTION oDlg7:End() OF oFld:aDialogs[ 1 ] SIZE 60 , 12 PIXEL FONT oFont\n\n   // 2 = Pagina listado de productos Favoritos ////////////////////////////////////////////////////////////////////////////////\n\n\n	 Select MINVEN\n	 MINVEN-&gt;(ORDSETFOCUS(\"FAVORITO\"))\n	 MINVEN-&gt;(DBGOTOP())\n\n  @ 3  , 2   LISTBOX oBrw72 FIELDS MINVEN-&gt;CODIGO,MINVEN-&gt;DESCRIP,STR(MINVEN-&gt;PRECIO,8,2);\n 		         COLSIZES 35,135,30 PIXEL OF oFld:aDialogs[ 2 ] HEADERS \" Cod\",\" Productos Favoritos\",\"  Precio\" SIZE 120,115;\n						 ON DBLCLICK cantidad()\n\n	@ 124, 1   BUTTON    \"Volver\"    ACTION oDlg7:End() OF oFld:aDialogs[ 2 ] SIZE 60 , 12 PIXEL FONT oFont\n\n   // 3 = Paagina listado de todos los productos ///////////////////////////////////////////////////////////////////////////////\n\n  MINVEN-&gt;(ORDSETFOCUS(\"CODIGO\"))\n	MINVEN-&gt;(DBGOTOP())\n\n  @ 3  , 2   redefine LISTBOX oBrw73 FIELDS MINVEN-&gt;CODIGO,MINVEN-&gt;DESCRIP,STR(MINVEN-&gt;PRECIO,8,2);\n 		         COLSIZES 35,135,30 PIXEL OF oFld:aDialogs[ 3 ] HEADERS \" Cod\",\" Producto\",\"  Precio\";\n 					   SIZE 120,115;\n						 ON DBLCLICK cantidad()\n\n  @ 124, 1   BUTTON    \"Volver\"    ACTION oDlg7:End() OF oFld:aDialogs[ 3 ] SIZE 60 , 12 PIXEL FONT oFont\n\n	 /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////\n\nACTIVATE DIALOG oDlg7 CENTERED\n\nreturn ni','',0,'','z1da4ec1',1,0,'',840,0,0),(33249,7263,3,303,0,'72.199.41.171',1181786446,1,0,1,1,1,0,'','The case of the vanishing dialogs','This is a strange one. I have an application compiled in FW Aug 2006/xHarbour. It has a main screen that is a browse. All works fine under XP, but under Win98 it gets strange. When it is first run (the browse is filtered) all the dialogs work. But if you change the filter, then none of the dialogs will appear--not the FW ones nor the Win API ones like File-Save As or Printer setup. The menu works and the toolbar works but nothing happens after you make a selection. I have never seen anything like this before--I don\'t even know where to begin looking.\n\nHas anyone else seen anything like this? Any ideas?\n\nJames','',0,'','37r1w08m',1,0,'',303,0,0),(33250,7263,3,2,0,'87.218.146.190',1181801757,1,0,1,1,1,1,'','','James,\n\nI suggest you to place a MsgInfo( nWParam, nLParam ) at Class TWindow Method Command(), just before the \"do case\", and see what values arrive there when you click on a menuitem','',0,'','3pmpeh69',1,0,'',2,0,0),(33251,7257,6,2,0,'87.218.146.190',1181802688,1,0,1,1,1,1,'','','Habría que intentar acceder al objeto \"document\" desde el objeto oActiveX, y desde él acceder a getElementById(\"map\"). \n\nTe recomiendo revisar todas las propiedades y métodos de \"Shell.Explorer.2\" y ver si hay alguna para acceder al documento y desde él, a un objeto contenido en el documento.','',0,'','3gwi2sb9',1,0,'',2,0,0),(33252,7264,3,473,0,'81.82.10.56',1181805992,1,0,1,1,1,0,'','Upgrading to latest HB and FWH','I am updrading from a very old version to the latest version.\n\nFirst problems are already solved and I have a working exe.\n\nBut the result is not good.\n\nFirst there is starting a empty dos screen. Then the windows screen starts.\n\nClosing the dos screen means that the windows application also closes.\n\nMust be something simple but what ?\n\nSomeone an idea.\n\nI am working with the latest FiveWin and Harbour. \n\nThanks,\n\nWilly Hermans','',0,'','23kdnoc3',1,0,'',473,0,0),(33253,7264,3,130,0,'141.51.32.24',1181806136,1,0,1,1,1,0,'','','Willy,\n\nto get rid of the dos screen you have to link gtgui.lib instead of gtwin.lib\n\nStefan','',0,'','sk8u4eyf',1,0,'',130,0,0),(33254,7248,23,130,0,'141.51.32.24',1181806285,1,0,1,1,1,0,'','','Die Lösung gibts hier\n\n[url:2hz4ecfm]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=7241[/url:2hz4ecfm]\n\nStefan','',0,'EA==','2hz4ecfm',1,0,'',130,0,0),(33255,7264,3,473,0,'81.82.10.56',1181806406,1,0,1,1,1,0,'','','Thanks Stefan\n\nSolved and working\n\nWilly Hermans','',0,'EA==','21g70fwf',1,0,'',473,0,0),(33256,7265,6,23,0,'213.96.85.49',1181806865,1,0,1,1,1,1,'','Averiguar SetRelation','Buenasss, ¿sabeis algun método para averiguar el DbSetRelation() existente en un alias? mi intención es guardar el relation existente, quitarlo hacer unos procesos y volver a restaurarlo.\nQuiero incluirlo en una función que tengo que guarda el filtro, la posición y el índice de un alias para luego restaurarlos.\n\nGracias.','',0,'EA==','3ehxoi1k',1,0,'',23,0,0),(33257,7266,3,487,0,'151.82.7.198',1181808053,1,0,1,1,1,0,'','multiple preview windows','Hello all,\n\nI\'d like to open 2 previews simultaneously, with 2 different print jobs inside.\n\nNow you cannot do it, because of the statics in rpreview.prg I guess.\nYou receive the message: A_WINDOW_PREVIEW_IS_ALREADY_RUNNING \n\nHow could Rpreview be modified to allow this?\nMaybe someone already twicked it?\n\nThanks,\nDavide','',0,'EA==','2ntfio9a',1,0,'',487,0,0),(33258,7265,6,2,0,'87.218.146.190',1181810121,1,0,1,1,1,1,'','','Angel,\n\nRevisa el código de function\\ErrSysW.prg\n\nEs el error system de FWH y ahi se analizan lon índices, relaciones, etc. para mostrarlas en el error.log','',0,'EA==','2x2zooui',1,0,'',2,0,0),(33259,7266,3,2,0,'87.218.146.190',1181810363,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=13081#13081\">http://fivetechsoft.com/forums/viewtopi ... 3081#13081</a><!-- m -->','',0,'EA==','5h4fo4lm',1,0,'',2,0,0),(33260,7262,7,2,0,'87.218.146.190',1181810871,1,0,1,1,1,1,'','','Prueba así:\n[code:2t05wgsb]\n@ 3 , 2 LISTBOX oBrw72 FIELDS &#40; MINVEN-&gt;&#40;ORDSETFOCUS&#40;&quot;FAVORITO&quot;&#41;&#41;, MINVEN-&gt;CODIGO &#41;,MINVEN-&gt;DESCRIP,STR&#40;MINVEN-&gt;PRECIO,8,2&#41;; \nCOLSIZES 35,135,30 PIXEL OF oFld&#58;aDialogs&#91; 2 &#93; HEADERS &quot; Cod&quot;,&quot; Productos Favoritos&quot;,&quot; Precio&quot; SIZE 120,115; \nON DBLCLICK cantidad&#40;&#41; \n\n&#46;&#46;&#46;\n\n@ 3 , 2 redefine LISTBOX oBrw73 FIELDS &#40; MINVEN-&gt;&#40;ORDSETFOCUS&#40;&quot;CODIGO&quot;&#41;&#41;, MINVEN-&gt;CODIGO &#41;,MINVEN-&gt;DESCRIP,STR&#40;MINVEN-&gt;PRECIO,8,2&#41;; \nCOLSIZES 35,135,30 PIXEL OF oFld&#58;aDialogs&#91; 3 &#93; HEADERS &quot; Cod&quot;,&quot; Producto&quot;,&quot; Precio&quot;; \nSIZE 120,115; \nON DBLCLICK cantidad&#40;&#41; \n[/code:2t05wgsb]','',0,'AIA=','2t05wgsb',1,0,'',2,0,0),(33261,7266,3,487,0,'151.38.75.177',1181811901,1,0,1,1,1,0,'','','Antonio, \nthat\'s not exactly what I\'d like to do.\n\nI\'d like to open multiple preview windows, not to preview different jobs all together as a single job.\n\nAny idea ?\n\nThanks,\nDavide','',0,'AIA=','3p65ia64',1,0,'',487,0,0),(33262,7265,6,316,0,'213.97.245.163',1181814267,1,0,0,1,1,0,'','','Te sirve dBRelation()? del NG del Clipper:\n\n Syntax\n\n     DBRELATION(&lt;nRelation&gt;) --&gt; cLinkExp\n\n Arguments\n\n     &lt;nRelation&gt; is the position of the desired relation in the list of\n     current work area relations.  The relations are numbered according to\n     the order in which they were defined with SET RELATION.\n\n Returns\n\n     DBRELATION() returns a character string containing the linking\n     expression of the relation specified by &lt;nRelation&gt;.  If there is no\n     RELATION SET for &lt;nRelation&gt;, DBRELATION() returns a null string (\"\").\n\n\nObviamente si en la expresion hay referencias a variables locales, creo que se va a complicar un poco.\nLo ideal sería tener una funcion que retorne una referencia al codeblock que se especifica en el momento de hacer la set relation, no se si en Harbour existe.\n\nSaludos.','',0,'AIA=','1tizvz17',1,0,'',316,0,0),(33263,7267,3,473,0,'81.82.10.56',1181816955,1,0,1,1,1,0,'','Upgrading problem (again)','I still have a problem while upgrading to the latest version of HB and FWH.\n\nI am using Borland Resource Workshop.\n\nThe simple buttons are working. When I use a Graphical Borland button the program closes without any error.\n\nAgain I think it is someting simple I forgot.\n\nAny idea.\n\nGreetings.\n\nWilly Hermans','',0,'AIA=','1gc1t1r0',1,0,'',473,0,0),(33264,7268,6,147,0,'200.45.54.134',1181821158,1,0,1,0,1,1,'','Error al compilar con .rc','Este viejo problema me ocurre con un archivo .rc que solo tiene unas lineas como la siguiente:\n\nRUTA BITMAP \"ruta.bmp\"\nSOLAPA BITMAP \"solapa.bmp\"\n\nal compilar me arroja el siguiente mensaje de error:\nvtaskbar\\libxharbour\\c5taskxh.lib\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: \'D:\\VTASKBAR\\SAMPLES\\XHARBOUR\\PRUEBA14\\PRUEBA.RES\' contains [b:10p5cka3]invalid OMF record, type 0x00[/b:10p5cka3]\n\nSi paso el .rc a .dll y luego de compilado, la app se ejecuta sin problemas\nCual es el problema?\n\ngracias','',0,'QA==','10p5cka3',1,0,'',147,0,0),(33265,7269,6,400,0,'189.19.9.20',1181821703,1,0,1,1,1,1,'','Att Silvio Falconi.......FSDI','Buenas Silvio....\n\nI was seeing this his/her Dialog, and I repaired, that the bottom of the dialog where this the vtaskbar, this with color.    \nHow póssivel is to color Fund of the dialog, where does he/she meet Vtaskbar?    \n\n<!-- m --><a class=\"postlink\" href=\"http://img409.imageshack.us/my.php?image=wbrowsese8.jpg\">http://img409.imageshack.us/my.php?image=wbrowsese8.jpg</a><!-- m -->\n\nGracias\n\n@braços Ale','',0,'QA==','23lq5cyu',1,0,'',400,0,0),(33266,7257,6,300,0,'201.10.166.80',1181823383,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:zsnuca8l]Habría que intentar acceder al objeto \"document\" desde el objeto oActiveX, y desde él acceder a getElementById(\"map\"). \n\nTe recomiendo revisar todas las propiedades y métodos de \"Shell.Explorer.2\" y ver si hay alguna para acceder al documento y desde él, a un objeto contenido en el documento.[/quote:zsnuca8l]\n\nAntônio onde posso revisar las propriedades y métodos de Shell.Explorer.2?\n\nGracias.','',0,'gA==','zsnuca8l',1,0,'',300,0,0),(33267,7267,3,2,0,'87.218.146.138',1181825030,1,0,1,1,1,1,'','','Willy,\n\nPlease check that you have this code in your app:\n[code:7i34ga2m]\n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;your app code&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot; \n[/code:7i34ga2m]','',0,'AIA=','7i34ga2m',1,0,'',2,0,0),(33268,7257,6,2,0,'87.218.146.138',1181825127,1,0,1,1,1,1,'','','google','',0,'AIA=','3fnd6osq',1,0,'',2,0,0),(33269,7270,6,104,0,'200.222.152.225',1181825149,1,0,1,1,1,0,'','tabindex','Olá, \n\nÉ possível mudar a ordem do foco dos objetos (tabindex)  em tempo de execução ?\n\nObrigado,\n\nRossine.','',0,'AIA=','3vglvn42',1,0,'',104,0,0),(33270,7270,6,2,0,'87.218.146.138',1181825550,1,0,1,1,1,1,'','','Rossine,\n\nYou have to use Windows API SetWindowPos() (review \"z order\"):\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms633545.aspx\">http://msdn2.microsoft.com/en-us/library/ms633545.aspx</a><!-- m -->','',0,'AIA=','1qy3cjlj',1,0,'',2,0,0),(33271,7268,6,2,0,'87.218.146.188',1181826701,1,0,1,1,1,1,'','','Mario,\n\nAl enlazar tienes una coma mal puesta y el RES se está usando como si fuese un OBJ. Revisa la línea en la que llamas a ilink32.exe','',0,'AIA=','26rop81r',1,0,'',2,0,0),(33272,7271,6,694,0,'200.189.112.21',1181827832,1,0,1,1,1,1,'','Atualizar menu POPUP','Amigos, como fazer para atualizar os itens de um MENU POPUP, acrescentando novos itens ?\n\nCódigo:\n\n     MENU oPopup POPUP\n          MENUITEM \"&amp;1  Procedimentos\" ACTION(PRO112())\n          MENUITEM \"&amp;2  Veículos\"      ACTION(PRO111())\n          MENUITEM \"&amp;3  Partes\"        ACTION(PRO110()) \n     ENDMENU\n\n     DEFINE BUTTON d1[2] OF oBar RESOURCE \"PES32\" NOBORDER ;\n             ACTION pro112() ;\n             menu oPopup\n\n\nAoki','',0,'','3h07wkgt',1,0,'',694,0,0),(33273,7269,6,492,0,'189.147.21.232',1181829063,1,0,1,1,1,1,'','','Hola Ale\n\nSi te refieres al color que tiene de fondo la vTaskBar :\n\nREDEFINE VMENU oVMCatEmps ID 101 OF oDlg ;\nBORDER ;\n[color=red:2wmbg234]COLOR       0, RGB(220,250,110) ;[/color:2wmbg234]	\nCOLORBORDE  RGB( 54, 54, 54 ) HEIGHT ITEM 32 ;\nCOLORSELECT 0, RGB(255,255,220), RGB(238,152, 21)   ;\nCOLOROVER   0, RGB(238,152, 21), RGB(255,255,220) ;\nSOLID FILLED\n\n\nCon eso puedes establecer el color que gustes.\n\nSaludos','',0,'Ag==','2wmbg234',1,0,'',492,0,0),(33274,7272,20,1082,0,'85.43.122.34',1181830954,1,0,1,1,1,0,'','Errore in fase di link','Questo è l\'errore:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFW\nNDRUN\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.L\nIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|\ndbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\XHARBOUR\\LIB\\RDD.LIB|\ndbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\XHARBOUR\\LIB\\RDD.L\nIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from C:\\XHARBOUR\\LIB\\RDD.\nLIB|rddsys\nPremere un tasto per continuare . . .\n\nperchè?','',0,'Ag==','2f8xokmr',1,0,'',1082,0,0),(33275,7273,6,492,0,'189.147.21.232',1181831524,1,0,1,1,1,1,'','No aplica correctamente degradados de color en TPages','Hola Antonio\n\nAplicando el metodo de usar un bitmap como Brush, estando este guardado en el archivo RC\n( Comentado por Ruben )\n\nDEFINE BRUSH oBrsh RESOURCE \"DEGCLR1\"\n\nsi lo hago con un dialogo PopUp si lo hace relativamente bien\n[img:3eeooe1h]http&#58;//i10&#46;tinypic&#46;com/63kexr9&#46;jpg[/img:3eeooe1h]\n\n\npero si trato de hacer en un dialogo Child ( Pages ) no lo hace para nada bien.\n[img:3eeooe1h]http&#58;//i19&#46;tinypic&#46;com/66cx0cy&#46;jpg[/img:3eeooe1h]\n\n\nREDEFINE PAGES oPgsCatEmp ID 102 OF oDlg ;\nDIALOGS \"DTSGRLEMPS\",\"CFGPRNPOS\",\"OTHDTSEMPS\"\n\noPgsCatEmp:aDialogs[2]:SetBrush( oBrsh )\n\nLos textos y grupos los tengo como -1, e inclusive poniendoles un Id y redefiniendolos en el codigo, pasa lo mismo.\n\nAlguna sugerencia ?\n\n\nSaludos','',0,'CA==','3eeooe1h',1,0,'',492,0,0),(33276,7253,6,1014,0,'201.240.196.250',1181832652,1,0,1,1,1,1,'','','Hola Maurilio\nMuchas gracias por tu ayuda. Tu Portuñol es igualito a mi Español.\nActualicé el oBrw:aArrayData antes de hacer los Refresh() y funciona perfecto cuando hago el seguimiento. \nPero todavía tengo el problema que después de entrar a la rutina Co130ChMen por el bEditValid, entra otra vez a esta misma rutina aunque le he quitado las líneas que mueven el cursor un Row mas abajo del oBrw y después de esto (lo que es peor) hace automáticamente la rutina Co130ChCta donde carga los datos iniciales.\nGracias otra vez por tu ayuda\nJorge Vargas','',0,'CA==','3lpsz4bu',1,0,'',1014,0,0),(33277,7272,20,138,0,'189.141.72.112',1181832987,1,0,1,1,1,1,'','','hb_stack per che la versione de xHarbour non e compatibile con la versione de FiveWin.\n\nhb_sx* per che non ha inclusso la lib hbsix.lib di xHarbour\\lib\n\nhb_fun_dbffpt, per che non ha inclusso la lib DBFFPT.LIB di xharbour\\lib\n\nSalutti','',0,'CA==','3e1x2q3b',1,0,'',138,0,0),(33278,7265,6,138,0,'189.141.72.112',1181833380,1,0,1,1,1,1,'','','Sacto !, dbrelation() es lo que necesitas','',0,'CA==','16pc0e1u',1,0,'',138,0,0),(33279,7266,3,138,0,'189.141.72.112',1181834012,1,0,1,1,1,1,'','','Davide:\n\nThere\'s a multipreview class, originally written by Jose Lalin for FW 16 bits, the full source code is included so you only need to compile it under xHarbour and thats all.\n\nDownload from here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/objeto/multipreview.zip\">http://www.google.d2g.com/objeto/multipreview.zip</a><!-- m -->','',0,'CA==','2qlkpxe8',1,0,'',138,0,0),(33280,7267,3,473,0,'81.82.10.56',1181834291,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI started from a working copy.\n\nThese lines must have been deleted by mistake.\n\nGreetings\nWilly Hermans','',0,'CA==','d40929dw',1,0,'',473,0,0),(33281,7272,20,1082,0,'85.43.122.34',1181834683,1,0,1,1,1,0,'','','ok, a sto punto mi accorgo di avere delle versioni forse non allineate. Per avere l\'ultima versione disponibile di FWH compatibile con xharbour c\'è la possibilità di scaricare degli aggiornamenti ?','',0,'CA==','2m7l2c5e',1,0,'',1082,0,0),(33282,7273,6,2,0,'87.218.146.188',1181835310,1,0,1,1,1,1,'','','Los radiobuttons estan redefinidos ?','',0,'CA==','2tg36kky',1,0,'',2,0,0),(33283,7274,20,1082,0,'85.43.122.34',1181836395,1,0,1,1,1,0,'','Microsoft SQL Server','Qualcuno può darmi qualche esempio (se è possibile) di interrogazione tabelle con FWH e xharobur per Microsoft SQL server 8.0?','',0,'CA==','3ow6ugxr',1,0,'',1082,0,0),(33284,7274,20,6,0,'87.20.219.111',1181836535,1,0,1,1,1,1,'','Re: Microsoft SQL Server','Devi cercare la stringa di connessione giusta (su <!-- w --><a class=\"postlink\" href=\"http://www.connectionstrings.com\">www.connectionstrings.com</a><!-- w -->) ed usare qualcosa del genere:\n\n[code:2xkavwwo]#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n#define adUseNone   1\n#define adUseServer 2\n#define adUseClient 3\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRs&#58;Open&#40; &quot;SELECT * FROM Clienti ORDER BY Cliente&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=clienti&#46;mdb&quot;, adOpenForwardOnly, adLockReadOnly &#41;\n\n    WHILE !oRs&#58;EOF\n        ? oRs&#58;Fields&#40; &quot;Cliente&quot; &#41;&#58;Value\n        oRs&#58;MoveNext&#40;&#41;\n    ENDDO\n\n    oRs&#58;Close&#40;&#41;\n\n    RETURN NIL[/code:2xkavwwo]\n\nEMG','',0,'AIA=','2xkavwwo',1,0,'',6,0,0),(33285,7266,3,487,0,'151.38.46.83',1181836618,1,0,1,1,1,0,'','','Rene: Thank you, it seems exactly what I was searching for.','',0,'AIA=','1r3hsxr1',1,0,'',487,0,0),(33286,7272,20,6,0,'87.20.219.111',1181836711,1,0,1,1,1,1,'','','Non puoi usare la versione di xHarbour che è in dotazione alla tua FWH?\n\nEMG','',0,'AIA=','17z1ib8g',1,0,'',6,0,0),(33287,7269,6,400,0,'189.19.9.20',1181837839,1,0,1,1,1,1,'','','Gracias Raymundo...mas, no seria color na Tkasbar............\n\ne sí........color em dialog.....mas, no nela toda....yo queria por cor só onde estas a taskbar.\n\n\nSaludos','',0,'AIA=','393yzq7z',1,0,'',400,0,0),(33288,7272,20,1082,0,'85.43.122.34',1181838744,1,0,1,1,1,0,'','','è quello che sto facendo....\nma, naturamente, se voglio usare l\'ultima versione di xharbour con il mio FWH non posso farlo no?','',0,'AIA=','3033bd74',1,0,'',1082,0,0),(33289,7273,6,492,0,'189.147.21.232',1181840532,1,0,1,1,1,1,'','','Asi es Antonio.\n\nREDEFINE RADIO oXRad ID 174,175,176,177 OF oPgsCatEmp:aDialogs[2]\n\n\nSaludos','',0,'','8fzlc2gg',1,0,'',492,0,0),(33290,7275,3,103,0,'201.8.73.18',1181844242,1,0,1,1,1,1,'','Error (6) deleting enhanced metafile.  Error Description','Hi All,\n\n    Suddenly this message appears when I try to create a report using TReport. What can causes this? How to solve it?\n\nTIA,','',0,'','3dlxq99v',1,0,'',103,0,0),(33291,7276,2,890,0,'200.24.110.196',1181844899,1,0,1,1,1,0,'','CUESTION DE REPORTE','Hola foro\n\nNuevamente pasando la novatada, estoy terminando mi primer programa “Proyecto” y no tengo idea de como hacer o preparar los reportes por impresora, he tomado los ejemplos de samples report y no me funcionan algo me hace falta por lo que requiero de un buen consejo.............. Claro es que agradezco públicamente el apoyo que hasta aquí he recibido de muchos integrantes de este foro\n\nCordialmente\nJairo Barbosa  \n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'','37vak69y',1,0,'',890,0,0),(33292,7277,6,694,0,'200.189.112.21',1181845333,1,0,1,1,1,1,'','TWORD, evitando possiveis erros na abertura !','Amigos, utilizo a classe TWORD, e ela funciona muito bem, porém, em casos aleatórios ela causa um erro na abertura do documento. Minha pergunta é, como eu uso o comando, TRY...CATCH, para evitar a finalização do sistema por estes erros? \n\nfonte:\n\n*************************************************\nstatic function fiancaWord(aCampos,camifo)\n*************************************************\nlocal x, cModelo:=CurDrive()+\':\\\'+Curdir()+\'\\fiançamo.dot\'\n\nprivate oWord\n\n\n\noWord := TWord():New() // inicia o objeto OLE Word\nif oWord:IsVisible()\n   oWord:Hide()\nendif\noWord:OpenDoc( cModelo )  // abre o documento modelo\nfor x=1 to len( aCampos )\n    oWord:Replace( \'[\'+aCampos[x,1]+\']\' , aCampos[x,2] )\nnext\noWord:Save(CAMIFO)\noWord:visualizar()\nreturn(.t.)\n\n\n****\n\nAgradeço\n\nAoki','',0,'','3k46bh5w',1,0,'',694,0,0),(33293,7278,2,304,0,'201.155.7.216',1181845787,1,0,1,1,1,0,'','Ejemplo de ODBC','Hola:\nAlguien tiene un ejemplo de como usar ODBC ??\', revise el ejemplo testodbc.prg pero no quedo muy claro, gracias por su atencion\nsalu2\nveracruz, mex.','',0,'','2pk45gld',1,0,'',304,0,0),(33294,7273,6,940,0,'189.157.95.90',1181846283,1,0,1,1,1,1,'','','DEFINE DIALOG ..........  TRANSPARENT','',0,'','2tzirav4',1,0,'',940,0,0),(33295,7262,7,840,0,'201.243.12.220',1181849068,1,0,1,1,1,1,'','gracias.. pero','Antonio muchas gracias funciono correctamente...!!!\n\npero ahora tengo otro problema como hago para que en el listbox una vez haciendo el SEEK TIPO el CODIGO sea IGUAL a PEPE y solo salgan los registros los CODIGOS igual a PEPE y no salgan en el LISTBOX los demas registros !!!\n\n\n\n   MINVEN-&gt;(DBSEEK(\"01\"+cCODTIPO+cNOMBRE))\n\n\n  @ 40 , 2   LISTBOX oBrw72 FIELDS (MINVEN-&gt;(ORDSETFOCUS(\"TIPODES\")),  MINVEN-&gt;TIPO = ccodtipo,	MINVEN-&gt;CODIGO),MINVEN-&gt;DESCRIP,STR(MINVEN-&gt;PRECIO,8,2);\n 		         COLSIZES 35,135,30 PIXEL OF oDlg9 HEADERS \" Cod\",\" Producto\",\"  Precio\";\n             SIZE 120,100;\n						 ON DBLCLICK cantidad()','',0,'','12u3vlkm',1,0,'',840,0,0),(33296,7266,3,138,0,'189.141.72.112',1181849492,1,0,1,1,1,1,'','','Forgot to mention, this Multipreview class works only with MDI applications, so you will need to add the \"MDI\" clause to your main Window.','',0,'','2ga9rvd4',1,0,'',138,0,0),(33297,7278,2,138,0,'189.141.72.112',1181849652,1,0,1,1,1,1,'','','ODBC es tecnologia obsoleta, lo mejor es utilizar ADO.','',0,'','26yh7gyd',1,0,'',138,0,0),(33298,7276,2,138,0,'189.141.72.112',1181849747,1,0,1,1,1,1,'','','Lo ejemplos de \\samples\\report funcionan perfectamente, solo que necesitas tener una impresora instalada y configurada como predeterminada para que funcionen correctamente.','',0,'','3cjtsyun',1,0,'',138,0,0),(33299,7262,7,2,0,'87.218.146.188',1181850162,1,0,1,1,1,1,'','','En vez de hacer:\n\nMINVEN-&gt;(DBSEEK(\"01\"+cCODTIPO+cNOMBRE))\n\nhaz:\n\nMINVEN-&gt;( OrdScope( 0, \"01\"+cCODTIPO+cNOMBRE ) ) \nMINVEN-&gt;( OrdScope( 1, \"01\"+cCODTIPO+cNOMBRE ) )\noBrw72:GoTop()','',0,'','34lu84tw',1,0,'',2,0,0),(33300,7275,3,234,0,'75.34.217.174',1181850198,1,0,1,1,1,1,'','','I am getting the same erroir using PRINT...ENDPRINT','',0,'','332rhrw8',1,0,'',234,0,0),(33301,7273,6,785,0,'190.64.221.207',1181850257,1,0,1,1,1,0,'','','Raymundo:\n\nTe falta la clausula Transparent al final del Define Dialog...Brush oBrush TRANSPARENT\n\nSaludos\n\nRuben Fernandez.','',0,'','3ivwdn84',1,0,'',785,0,0),(33302,7273,6,2,0,'87.218.146.188',1181850446,1,0,1,1,1,1,'','','Prueba a hacer:\n\noPgsCatEmp:aDialogs[2]:lTransparent := .T.','',0,'','ktij29o9',1,0,'',2,0,0),(33303,7275,3,86,0,'81.83.185.118',1181850574,1,0,1,1,1,1,'','','Hello,\n\nI had the same problem a few weeks ago.\n\nReason : I used ENDPAGE twice, the one just after the other.\n\nAfter deleting one ENDPAGE, the problem was solved.\n\nGood luck.','',0,'','1pea3mi1',1,0,'',86,0,0),(33304,7275,3,234,0,'75.34.217.174',1181850582,1,0,1,1,1,1,'','','Sorry, I found my problem... duplicate ENDPAGE','',0,'','2yr8eacf',1,0,'',234,0,0),(33305,7275,3,2,0,'87.218.146.188',1181850595,1,0,1,1,1,1,'','','Look for a duplicated ENDPAGE in your code','',0,'','30zbszra',1,0,'',2,0,0),(33306,7279,3,86,0,'81.83.185.118',1181850664,1,0,1,1,1,1,'','Error on OLEINVOKE()','Hello,\n\nI use OLE to make a connection between my application and Word.\n\nIf the connection is broken, I got an error when using OLEINVOKE().\n\nIs there a way to prevent this error to happen ?\n\nIf yes, how ?\n\nThanks a lot in advance.','',0,'','gaawkp3n',1,0,'',86,0,0),(33307,7279,3,2,0,'87.218.146.188',1181851300,1,0,1,1,1,1,'','','Michel,\n\nYou could use a:\n[code:2mahk63s]\nTRY\n   OleInvoke&#40; &#46;&#46;&#46; &#41;\nCATCH\n   MsgAlert&#40; &quot;there is an error&quot; &#41;\nEND\n[/code:2mahk63s]','',0,'AIA=','2mahk63s',1,0,'',2,0,0),(33308,7277,6,644,0,'200.45.244.132',1181851760,1,0,1,1,1,0,'','','Pon así\nTry\noWord := TWord():New() // inicia o objeto OLE Word \nif oWord:IsVisible() \noWord:Hide() \nendif \noWord:OpenDoc( cModelo ) // abre o documento modelo \nfor x=1 to len( aCampos ) \noWord:Replace( \'[\'+aCampos[x,1]+\']\' , aCampos[x,2] ) \nnext \noWord:Save(CAMIFO) \noWord:visualizar() \nCatch oErr\nMsgStop( ¨imposible abrir. Error : ¨ + oErr : description )\nend\nreturn(.t.)','',0,'','dvq5qbcw',1,0,'',644,0,0),(33309,7272,20,6,0,'82.59.188.132',1181851974,1,0,1,1,1,1,'','','No, non puoi farlo.\n\nEMG','',0,'','ucm0gokm',1,0,'',6,0,0),(33310,7277,6,694,0,'200.189.112.21',1181852307,1,0,1,1,1,1,'','gracias horacio','gracias Horacio...\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','25ztsbgy',1,0,'',694,0,0),(33311,7278,2,596,0,'80.28.12.107',1181854266,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:36f3szxq]ODBC es tecnologia obsoleta, lo mejor es utilizar [b:36f3szxq]ADO[/b:36f3szxq].[/quote:36f3szxq]\nSi encuentras el puñetero [b:36f3szxq]connectionstring[/b:36f3szxq]  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nPero no uno cualquiera, si no el apropiado...','',0,'wA==','36f3szxq',1,0,'',596,0,0),(33312,7278,2,304,0,'201.155.7.216',1181856336,1,0,1,1,1,0,'','','Ok, entonces algun ejemplo de ADO ??','',0,'wA==','3e5qv5na',1,0,'',304,0,0),(33313,7278,2,2,0,'87.218.146.188',1181856601,1,0,1,1,1,1,'','','Lo idóneo es que construyas la aplicación en 32 bits con Harbour/xHarbour y FWH y que uses el ADORDD que es libre y que te permite acceder a los datos como si fuesen DBFs','',0,'wA==','2a0qin73',1,0,'',2,0,0),(33314,7273,6,492,0,'189.147.21.232',1181856721,1,0,1,1,1,1,'','','Amigos Antonio, Cesar y Ruben :\n\nSi tenia la clausula TRANSPARENT al definir el dialogo, sin embargo, ahora que le agregue lo que comenta Antonio ya lo pone correctamente  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nSupongo a que los Pages son en si otro dialogo y que al momento que se crean, no \"heredan\" la transparencia del contenedor primario.\n\nMuchas Gracias de nuevo a todos !!\n\nSaludos','',0,'wA==','1j7u9i0r',1,0,'',492,0,0),(33315,7280,6,875,0,'64.76.108.179',1181857795,1,0,1,1,1,0,'','Problema con Nueva Verision de FWH  7.05','Antonio acabo de instalar la nueva version de FWH 7.05 (Antes tenia FWH abril 2005) y me sale el siguiente error:\n\n*Mini_prg.Prg(783) Error E0030  Syntax error: \"syntax error at \',\'\"\n*1 error\n\n*osea error en la linea 783  la cual es:\n\nSelect 19\nIndex On &amp;Llave To &amp;Nombr ;\n         Eval(oMtr:Set(Avanc+Recno()),,SysRefresh(),.T.)\n\nCosa que hasta ayer, todo compilaba Sin Errores.\n\nQue puede ser?','',0,'wA==','1nac81bz',1,0,'',875,0,0),(33316,7280,6,36,0,'200.113.56.235',1181858722,1,0,1,1,1,1,'','','hola\n\npuede ser problema del commando\n\n[code:3gvoa3hn]INDEX ON &lt;expClave&gt; &#91;TAG &lt;cNombreOrden&gt;&#93; &#91;TO &lt;cNombreContOrden&gt;&#93;\n&#91;FOR &lt;lCondici¢n&gt;&#93; &#91;ALL&#93;\n&#91;WHILE &lt;lCondici¢n&gt;&#93; &#91;NEXT &lt;nN£mero&gt;&#93;\n&#91;RECORD &lt;nRegistro&gt;&#93; &#91;REST&#93;\n&#91;EVAL &lt;bBloque&gt;&#93; &#91;EVERY &lt;nIntervalo&gt;&#93;\n&#91;UNIQUE&#93; &#91;ASCENDING|DESCENDING&#93;\n&#91;USECURRENT&#93; &#91;ADDITIVE&#93;\n&#91;CUSTOM&#93; &#91;NOOPTIMIZE&#93;\n[/code:3gvoa3hn]\n\nespero que te sirva','',0,'AIA=','3gvoa3hn',1,0,'',36,0,0),(33317,7280,6,875,0,'64.76.108.179',1181859294,1,0,1,1,1,0,'','','Gracias Patricio Por la respuesta, pero la solucion era quitarle solo una COMA \",\"  pero con la version de Abril del 2005 no hay problema\n\n\nAntes asi funcionaba bien :\n\nSelect 19 \nIndex On &amp;Llave To &amp;Nombr ; \nEval(oMtr:Set(Avanc+Recno()),,SysRefresh(),.T.) \n\n\nAhora :\n\nSelect 19 \nIndex On &amp;Llave To &amp;Nombr ; \nEval(oMtr:Set(Avanc+Recno()),SysRefresh(),.T.) \n\n* le quite una coma antes del SysRefresh()  y funciono   <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->','',0,'AIA=','6s6k38rd',1,0,'',875,0,0),(33318,7276,2,890,0,'200.24.110.196',1181860208,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:21s6vep8]Lo ejemplos de \\samples\\report funcionan perfectamente, solo que necesitas tener una impresora instalada y configurada como predeterminada para que funcionen correctamente.[/quote:21s6vep8]\n\nRene\n\nGracias por tu respuesta\n\nAunque debo confesarle que me siento un poco tonto al estar solicitando esta aclaración pero Rene sino pregunto no aprendo, esto por que el ejercicio no parece difícil coloco al principio del prg, junto con #Include “fivewin.ch” el #Include “report.ch”, en el  menú armo el llamado a la función Reporte() y al final armo la función  Function Reporte()  y a continuación cualquiera de los ejemplos de los que se encuentran en samples cambiando obviamente los correspondientes valores con los nombres de las bases y de los campos respectivamente, compila bien y cuando ejecuto la operación desde el menú  no se ejecuta la función reporte() y sale un aviso que dice “ Cannot create dialog box: Resource:PREVIEW_PROC.” Y se colapsa el programa.\n\nRene que puedo esta haciendo mal?\n\nGracias\nJairo Barbosa','',0,'gA==','21s6vep8',1,0,'',890,0,0),(33319,7276,2,138,0,'189.141.72.112',1181860911,1,0,1,1,1,1,'','','Regla No. 1:\n\nSiempre tienes que tneer el PREVIEW.DLL en la misma carpeta donde esta el programa exe o bien si estas con (x)Harbour, el PREV32.DLL','',0,'gA==','3khl0vrf',1,0,'',138,0,0),(33320,7278,2,138,0,'189.141.72.112',1181861018,1,0,1,1,1,1,'','','[quote=&quot;servicomver&quot;:3939jvir]Ok, entonces algun ejemplo de ADO ??[/quote:3939jvir]\n\nPerdón, no habia visto que estas con Clipper FW16.\n\nA 32 bits hay montones de ejemplos, como churros, incluso, como dice Antonio, hasta un RDDADO para que trabajes las tablas SQL como si fueran DBFs (de eso ese el objetivo de ADO)','',0,'gA==','3939jvir',1,0,'',138,0,0),(33321,7280,6,2,0,'87.218.146.188',1181862079,1,0,1,1,1,1,'','','Se debe a cambios que se van implementando en el compilador para detectar errores que antes no se detectaban, mejorarlo, etc','',0,'gA==','11wwscbw',1,0,'',2,0,0),(33322,7266,3,487,0,'151.38.74.1',1181862427,1,0,1,1,1,0,'','','well, I don\'t plan to use it as is (I\'m already using a custom Rpreview), but it\'s a good way to study which solution has been implemented for this purpose.\nThank you for pointing this out anyway.\nDavide','',0,'gA==','2rk34t6m',1,0,'',487,0,0),(33323,7276,2,890,0,'200.24.110.196',1181863059,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:bb1mfwzi]Regla No. 1:\n\nSiempre tienes que tneer el PREVIEW.DLL en la misma carpeta donde esta el programa exe o bien si estas con (x)Harbour, el PREV32.DLL[/quote:bb1mfwzi]\n\nRene \n\nFunciona perfectamente.  Es sencillamente emocionante \nMuchas gracias\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','bb1mfwzi',1,0,'',890,0,0),(33324,7270,6,104,0,'200.141.38.29',1181866521,1,0,1,1,1,0,'','','Gracias Maestro\n\nRossine.','',0,'gA==','2hwjjjrp',1,0,'',104,0,0),(33325,7262,7,840,0,'190.76.0.150',1181879906,1,0,1,1,1,1,'','','Antonio muchas gracias funciono correctamente...!!! \nl\npero en dos codigos que establesco la busqueda me da un error\nde :\n\nargumet error \n+\n     Args:\n               1 = c 01\n               2  = u\n        stack calls.\nen la primerra instruccion ordscope pareciera que la data tubiera un error.\nque opinas tu que puede ser.\n\nMINVEN-&gt;( OrdScope( 0, \"01\"+cCODTIPO+cNOMBRE ) )   / error de argument\nMINVEN-&gt;( OrdScope( 1, \"01\"+cCODTIPO+cNOMBRE ) ) \noBrw72:GoTop()\n_________________\n\n\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'gA==','1epsa9m8',1,0,'',840,0,0),(33326,7281,3,86,0,'81.83.185.118',1181895389,1,0,1,1,1,1,'','Problem in Windows Vista','Hello,\n\nIf I start my application on a PC with Windows Vista for the very first time after booting my PC, I always got an error like :\n\n[quote:idim1h3q]Description from .def file here doesn\'t work anymore.[/quote:idim1h3q]\n\nIf OLE is not active, the error doesn\'t appear.\n\nThe strange thing is the fact that the error only occurs when OLE is active AND it only happens the first time I start my application after just having booted my PC.\n\nAnyone any idea ?\n\nThanks.','',0,'gA==','idim1h3q',1,0,'',86,0,0),(33327,7282,4,13,0,'213.76.252.200',1181899362,1,0,1,1,1,0,'','Combobox and database','Antonio,\n\nIs this possible to use combobox control with database alias (one or more character fields) where items are read from database ?\n\nThanks\nPawel','',0,'gA==','vhd0ot1i',1,0,'',13,0,0),(33328,7283,3,130,0,'141.51.32.24',1181899623,1,0,1,1,1,0,'','looking for Richedit enhancement','Hi all,\n\nfor a new project i need some additional functions for the richedit class. These are to subscript / superscript a char and to to insert numbers and bullets.\n\nI don´t speak C, so i can´t code them myself.\n\nI would be happy, if anyone wants to share these functions.\n\nMany thanks\n\nkind regards\nStefan','',0,'gA==','2166zl87',1,0,'',130,0,0),(33329,7282,4,2,0,'87.218.146.188',1181899701,1,0,1,1,1,1,'','','Pawel,\n\nIn FWH there is a Class TDbCombo where items are read from a DBF.\n\nIf you want it, we can email it to you, so you can test it with FWPPC. It should work','',0,'gA==','3vq4ma48',1,0,'',2,0,0),(33330,7281,3,2,0,'87.218.146.188',1181899814,1,0,1,1,1,1,'','','Michel,\n\nPlease google for the exact error description and see if you find some info about it','',0,'gA==','28y25nok',1,0,'',2,0,0),(33331,7262,7,2,0,'87.218.146.188',1181899936,1,0,1,1,1,1,'','','cCODTIPO es nil y por eso te da el error. \n\nComprueba el valor de cCODTIPO','',0,'gA==','hp2ijlon',1,0,'',2,0,0),(33332,7282,4,13,0,'213.76.252.200',1181902493,1,0,1,1,1,0,'','','Antonio,\n\nYes, please.\n\nThanks\nPawel','',0,'gA==','opw6dkw9',1,0,'',13,0,0),(33333,7267,3,473,0,'81.82.10.56',1181903178,1,0,1,1,1,0,'','Folders does not work anymore','I have a working application now. \n\nThere are still some problems.\n\nThe screens with folders do\'nt work anymore.\n\nOnly the content of the first folder is shown.\n\nMy syntax = \n[code:2vlii88f]Redefine Folder oFold1 id 135 of oDlg prompt &quot;1&quot;, &quot;2&quot; Dialogs &quot;SubFrm1&quot; , &quot;SubFrm2&quot;[/code:2vlii88f]\n\nIs there something changed\n\nThanks\n\nWilly Hermans','',0,'AIA=','2vlii88f',1,0,'',473,0,0),(33334,7284,6,979,0,'195.53.199.6',1181903466,1,0,1,1,1,0,'','Problemas con FHW 2.6 Abril 2.005','Hola,\n\nHe probado a compilar el ejemplo combo3d.prg y se genera el ejecutable correctamente,  estoy usando FWH/2.6 Abril 2.005 y Harbour devel build 1.1-0 Intl., pero cuando lo ejecuto me devuelve el siguiente error:\n\nEl programa es un ejemplo de \\FWH\\SAMPLES\\combo3d.prg\n\nApplication\n===========\n   Path and name: D:\\apcivilf\\combo3d.exe (32 bits)\n   Size: 1,068,032 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 06/15/07, 12:14:24\n   Error description: Error BASE/3003  Cannot find super class: __CLSINSTSUPER\n\nStack Calls\n===========\n   Called from __CLSINSTSUPER(0)\n   Called from HBCLASS:CREATE(214)\n   Called from TDIALOG(0)\n   Called from MAIN(9)\n\nSystem\n======\n   CPU type: GetCPU() failed! 2383 Mhz\n   Hardware memory: 510 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour devel build 1.1-0 Intl.\n   Windows version: 5.1, Build 2600 Service Pack 1\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   __CLSINSTSUPER\n     Param   1:    S    \n     Local   1:    N    0\n   HBCLASS:CREATE\n     Local   1:    O    Class: HBCLASS\n     Local   2:    N    1\n     Local   3:    N    1\n     Local   4:    N    9\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    A    Len:    0\n   TDIALOG\n     Local   1:    N    1\n   MAIN\n     Local   1:    U    \n     Local   2:    C    \"2\"\n     Local   3:    A    Len:    3\n     Local   4:    S    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 ERROR\n\nMemory Analysis\n===============\n      91 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\n¿Puede alguien decirme cual es el problema?\n\nGracias por anticipado.\n\nSaludos,','',0,'AIA=','3m6p4fu4',1,0,'',979,0,0),(33335,7267,3,86,0,'81.83.185.118',1181905031,1,0,1,1,1,1,'','','Willy,\n\nThe problem is probably caused by your resources.\n\nI had a similar problem a few months ago. In my resource file I had a rectangle arround the folder. In FW16 that was no problem. In FW for xHarbour, in fact the folder was behind the rectangle, so the folder was invisible.\n\nDeleting the rectangle solved the problem.\n\nHope to have helped you.','',0,'AIA=','1i0oxhkk',1,0,'',86,0,0),(33336,7285,1,509,0,'80.34.248.50',1181905126,1,0,1,1,1,0,'','El TIMER se para si entramos 6 veces a pantalla de creacion','Hola:\n   Estoy creando un programa para presentar los kilos de una báscula cuando se seleccione la opción. Para ello he creado un TIMER y si entro la pantalla, salgo y lo elimino con oTimer:End() si repito esta operación de 6 a 8 veces a partir de ahí no se activa el timer. Hay que salir de la aplicación y ya vuelve a funcionar refrescando los kilos pero otras 6 veces.\n     ¿Qué puedo estar haciendo mal? Adjunto ejemplo:\n\n\nFUNCTION LanzaAuto()\n   LOCAL oDlg\n	 LOCAL oVisor,oTexto\n	 LOCAL nKilos:=0\n	 LOCAL oKilos\n\n   cAMatricula:=space(20)\n   \n	 DEFINE FONT oVisor  NAME \"Arial\" SIZE 0,-180 BOLD\n	 DEFINE FONT oTexto  NAME \"Arial\" SIZE 0,-30 BOLD\n\n   DEFINE DIALOG oDlg RESOURCE \"ENTAUTO\" TITLE \"Registro de Tickets\"\n\n   REDEFINE SAY oKilos VAR nKilos FONT oVisor ID 200 OF oDlg UPDATE\n	 \n	 REDEFINE GET cAMatricula   ID 100 OF oDlg UPDATE \n	 \n\n	 DEFINE TIMER oTimor OF oWndMain INTERVAL 500 ;\n	     ACTION ( nKilos:=Visor(),;\n			          oKilos:Refresh() ) \n										\n	 ACTIVATE TIMER oTimor\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n	     ON INIT oGet8:Hide() \n			 VALID ( oTimor:End(),.T. )\n\n\n   DEACTIVATE FONT oVisor\n   DEACTIVATE FONT oTexto\n\n\nRETURN																	\n	   \nFUNCTION Visor()\n\nRETURN 25000  // Consulta los kilos de la bascula para el ejemplo pongo 25000','',0,'AIA=','3r794rx2',1,0,'',509,0,0),(33337,7282,4,2,0,'87.218.146.188',1181905998,1,0,1,1,1,1,'','','Already sent <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1uz3rfty',1,0,'',2,0,0),(33338,7267,3,2,0,'87.218.146.188',1181906080,1,0,1,1,1,1,'','','Willy,\n\nYou have to change \"TFolder\" into \"SysTabControl32\" in your resources file','',0,'AIA=','5j4ro66a',1,0,'',2,0,0),(33339,7267,3,473,0,'81.82.10.56',1181906465,1,0,1,1,1,0,'','','Thanks for the reply Michel.\nThose setteing were already ok.\n\nChanging it to \"SysTabControl32\" made the difference.\n\nAgain a step further.\n\nThanks Antonio','',0,'AIA=','2p4dy09h',1,0,'',473,0,0),(33340,7286,3,58,0,'84.149.89.83',1181913669,1,0,1,1,1,0,'','xbrowse strange painting?','Dear friends,\n\ni just try the sample textxbrw.prg.\nWhen running the multisel feature or incremental search i have a strange painting of the browse.\nHere a picture how it looks like:\n\n[img:w0awgagj]http&#58;//www&#46;d-hoefner&#46;de/files/fw_xbrw&#46;gif[/img:w0awgagj]\n\nIs there an update or workaround to avoid this?\n\nThanks and regards,\nDetlef','',0,'CA==','w0awgagj',1,0,'',58,0,0),(33341,7274,20,1082,0,'85.43.122.34',1181914648,1,0,1,1,1,0,'','','Sto provando l\'esempio che mi hai segnalato, naturalmente tieni presente che sto riprendendo a ragionare in Fivewin dopo un pò di anni. La stringa che ricavo in quale riga la inserisco?\n\nattualmente il programmino mi da quest\'errore...\n\nError description: Error ADODB.Recordset/3  DISP_E_MEMBERNOTFOUND: OPEN\n\nrelativamente alla riga\n    oRs:Open( \"SELECT * FROM Clienti ORDER BY Cliente\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=clienti.mdb\", adOpenForwardOnly, a','',0,'CA==','3oa14btw',1,0,'',1082,0,0),(33342,7287,6,228,0,'201.245.222.86',1181914756,1,0,1,1,1,1,'','Combo box  doble columna?','Amigos del foro.. como dice el encabezado, puedo hacer un combo box conb doble columna?\n\nDe antemano Gracias\n\nSaludos','',0,'CA==','3qh4bjw3',1,0,'',228,0,0),(33343,7287,6,278,0,'200.72.195.66',1181915301,1,0,1,1,1,1,'','','Hola Leandro:\n\nLo único que se me ocurre es juntar ( concatenar) las 2 columnas y separarlas por algun caracter tipo linea, para simularlas.\n\nAsi lo utilizo yo por lo menos.\n\nSaludos,','',0,'CA==','1d6t2sy5',1,0,'',278,0,0),(33344,7288,20,1082,0,'85.43.122.34',1181917673,1,0,1,1,1,0,'','Utilizzo di ADORDD','ho scaricato il file adordd.zip e sto provando a compilare il file access1.prg ma mi da il seguente errore:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\XHARBOUR\\\nLIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_hb_itemGetSymbol\' referenced from C:\\XHARBOUR\\LIB\\USRRDD.LIB|usrrdd\nError: Unresolved external \'_hb_xvmPopLogical\' referenced from C:\\XHARBOUR\\LIB\\USRRDD.LIB|usrrdd\nError: Unresolved external \'_hb_xvmPushLocalByRef\' referenced from C:\\XHARBOUR\\LIB\\USRRDD.LIB|usrrdd\nError: Unresolved external \'_hb_rddGetNode\' referenced from C:\\XHARBOUR\\LIB\\USRR\nDD.LIB|usrrdd\n\nperchè?\n\neppure la libreria','',0,'CA==','16yvm1sx',1,0,'',1082,0,0),(33345,7283,3,130,0,'84.138.56.8',1181919505,1,0,1,1,1,0,'','','I tried the following method, but it does not work\n\n[code:ll959x92]#define CFE_SUBSCRIPT      0x00010000     /* Superscript and subscript are */\n#define CFE_SUPERSCRIPT    0x00020000     /*  mutually exclusive         */\n\n#define CFM_SUBSCRIPT      CFE_SUBSCRIPT + CFE_SUPERSCRIPT\n#define CFM_SUPERSCRIPT    CFM_SUBSCRIPT\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetAttribute2&#40; lBold, lItalic, lUnderline, lStrikeOut, lSub, lSup, lOnOff &#41; CLASS TRichEdit\n\n   local nMask, nEffects\n\n   DEFAULT lBold      &#58;= &#46;f&#46;, ;\n           lItalic    &#58;= &#46;f&#46;, ;\n           lUnderline &#58;= &#46;f&#46;, ;\n           lStrikeOut &#58;= &#46;f&#46;, ;\n           lSub       &#58;= &#46;f&#46;,;\n           lSup       &#58;= &#46;f&#46;,;\n           lOnOff     &#58;= &#46;t&#46;\n\n   nMask &#58;= nOR&#40; If&#40; lBold, CFM_BOLD, 0 &#41;, If&#40; lItalic, CFM_ITALIC, 0 &#41;, ;\n                 If&#40; lUnderline, CFM_UNDERLINE, 0 &#41;, ;\n                 If&#40; lStrikeOut, CFM_STRIKEOUT, 0 &#41;,;\n                 If&#40; lSub, CFM_SUBSCRIPT,0&#41;,;\n                 If&#40; lSup, CFM_SUPERSCRIPT,0&#41; &#41;\n\n   nEffects &#58;= nOR&#40; If&#40; lBold, CFE_BOLD, 0 &#41;, If&#40; lItalic, CFE_ITALIC, 0 &#41;, ;\n                    If&#40; lUnderline, CFE_UNDERLINE, 0 &#41;, ;\n                    If&#40; lStrikeOut, CFE_STRIKEOUT, 0 &#41;,;\n                    If&#40; lSub, CFE_SUBSCRIPT,0&#41;,;\n                    If&#40; lSup, CFE_SUPERSCRIPT,0&#41; &#41;\n\n   RESetAttribute&#40; &#58;&#58;hWnd, nMask, nEffects, lOnOff &#41;\n\n   &#58;&#58;Change&#40;&#41;\n\nreturn nil\n[/code:ll959x92]\n\nAny hints ?\n\nStefan','',0,'AIA=','ll959x92',1,0,'',130,0,0),(33346,7288,20,6,0,'82.61.69.80',1181919895,1,0,1,1,1,1,'','Re: Utilizzo di ADORDD','Non stai utilizzando una versione di xHarbour adatta.\n\nTieni presente che ADORDD è uscito molto dopo l\'ultima release ufficiale di xHarbour.\n\nEMG','',0,'AIA=','1uyo5krr',1,0,'',6,0,0),(33347,7274,20,6,0,'82.61.69.80',1181920028,1,0,1,1,1,1,'','','[quote=&quot;damianodec&quot;:x0obnir3]La stringa che ricavo in quale riga la inserisco?[/quote:x0obnir3]\n\nAl secondo parametro del metodo Open().\n\nEMG','',0,'gA==','x0obnir3',1,0,'',6,0,0),(33348,7286,3,6,0,'82.61.69.80',1181920076,1,0,1,1,1,1,'','Re: xbrowse strange painting?','I noticed the same problem.\n\nEMG','',0,'gA==','2p1m8y6h',1,0,'',6,0,0),(33349,7286,3,995,0,'81.11.210.149',1181920316,1,0,1,1,1,0,'','','Also in other circumstances the browse titles are missing\n\nFrank','',0,'gA==','1bypnio9',1,0,'',995,0,0),(33350,7288,20,1082,0,'85.43.122.34',1181920785,1,0,1,1,1,0,'','','la versione che uso di fivewin for xharbour è 2.6 (xharbour  0.99.3). Se scarico l\'ultima versione di xharbour non va bene con FWH, cosa posso fare?','',0,'gA==','7txehvrk',1,0,'',1082,0,0),(33351,7288,20,6,0,'82.61.69.80',1181920933,1,0,1,1,1,1,'','','Aggiornare le FWH. Non ci sono alternative, temo.\n\nEMG','',0,'gA==','kujyfd5j',1,0,'',6,0,0),(33352,7286,3,456,0,'217.127.39.57',1181923861,1,0,1,1,1,1,'','','In metthod seek, try to remove the following line\n[code:34zffrbl]\n&#58;&#58;lRefreshOnlyData &#58;= &#46;T&#46;\n[/code:34zffrbl]\nappear 2 times.','',0,'AIA=','34zffrbl',1,0,'',456,0,0),(33353,7289,6,694,0,'200.189.112.21',1181925109,1,0,1,1,1,1,'','Metodos e propriedades do WINDOWS MEDIA PLAYER','Antonio, aonde consigo todos os métodos e propriedades do windows media player ?\n\n\nGrato\n\nAoki\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3uhygy2w',1,0,'',694,0,0),(33354,7286,3,58,0,'84.149.89.83',1181925693,1,0,1,1,1,0,'','','[quote=&quot;Biel EA6DD&quot;:sl517duj]In metthod seek, try to remove the following line\n[code:sl517duj]\n&#58;&#58;lRefreshOnlyData &#58;= &#46;T&#46;\n[/code:sl517duj]\nappear 2 times.[/quote:sl517duj]\n\nThanks Biel,\n\nincremental search paints ok now. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nBut the multiselect feature still paints bad when only clicking with the mouse into the browse window <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nMaybe some one could help?\n\nThanks and regards,\nDetlef','',0,'gIA=','sl517duj',1,0,'',58,0,0),(33355,7290,3,34,0,'68.5.217.82',1181931727,1,0,1,1,1,1,'','FAX and Rpreview','A while back we discussed the ability to send emails from RPREVIEW.  Now I would like to attack the issue of sending a FAX from RPREVIEW using the native windows fax printer.  Obviously printing to that fax device is no problem, but I\'d like to have the program pass the phone number which is stored in the database.  Making it available to RPREVIEW is no problem, but how about passing it to the FAX routine ?\n\nYour ideas would be appreciated.','',0,'gIA=','2u7vdvhh',1,0,'',34,0,0),(33356,7291,6,222,0,'201.243.176.78',1181933835,1,0,1,1,1,0,'','Falta carpeta Harbour en projects','Hola, Antonio. Descargué e instalé uestudio 6.30 esp, tu video y el archivo Application. Pero en la projects no está la carpeta Harbour. ¿Dónde puedo conseguirla?. Mil gracias.','',0,'gIA=','1xjf7pfg',1,0,'',222,0,0),(33357,7292,6,171,0,'71.233.232.238',1181934478,1,0,1,1,1,0,'','Clase tGraph','Alfredo o algun compañero del foro:\n\nEstoy usando la clase tGraph de Alfredo Arteaga. Todo esta muy bien con excepcion del metodo oGraph:Save2BMP(); este solo me graba un cuadro pequeño blanco con una x en el medio. \n\nIntente con la ultima clase modificada, pero me sigue saliendo igual. \nEstou usando FWH 2.7 Sep 06 + xHarbour builder Jan 07. Estaria por aqui el problema?\n\nAlguna sugerencia?\n\nSaludos,\n\n\nGeorge','',0,'gIA=','3jkfy7ps',1,0,'',171,0,0),(33358,7289,6,138,0,'189.141.72.112',1181935498,1,0,1,1,1,1,'','','MSDN : <!-- m --><a class=\"postlink\" href=\"http://mdsn.microsoft.com\">http://mdsn.microsoft.com</a><!-- m -->','',0,'gIA=','3vgwii6a',1,0,'',138,0,0),(33359,7284,6,2,0,'87.218.146.188',1181937154,1,0,1,1,1,1,'','','Si no estás usando la versión de Harbour correspondiente a esa versión de FWH, entonces tienes que recompilar todos los PRGs de FWH y volver a construir FiveH.lib','',0,'gIA=','39nejtou',1,0,'',2,0,0),(33360,7292,6,73,0,'200.23.18.132',1181939121,1,0,1,1,1,0,'','','George,\nyo he probado asi y me funciona\n\n  cFile := cTempFile()+\"bmp\"\n  IF oGraph:nType == 3 .OR. ( oGraph:nType == 2 .AND. !oGraph:l3D )\n      oGraph:Save2Bmp(cFile,0)\n      nOpt := 0\n   ENDIF\n\nprobe con barras,lineas,puntos y pie\nsalu2\npaco','',0,'gIA=','11zayfbk',1,0,'',73,0,0),(33361,7291,6,2,0,'87.218.146.188',1181939386,1,0,1,1,1,1,'','','César,\n\nCrea la carpeta Harbour en el directorio projects del UEStudio y añade estos dos ficheros:\n\nwindow.wiz\n[code:3g7isygv]\n##############################################################################\n#                                                                            #\n#             UEStudio\'s User Defined Project Template                       #\n#                                                                            #\n# The following template is to be modified by the user&#46;  It describes        #\n# individual preferences for new project creation&#46;                           #\n#                                                                            #\n# The first and most important section is &#91;UDT&#93; which contains a &quot;Compiler&quot;  #\n# variable and a list of seed files to be inserted in the newly created      #\n# project&#46;  The Compiler variable specifies the name of the compiler\'s       #\n# configuration directory, and the compiler configuration file&#46;              #\n# For example&#58;                                                               #\n# Compiler = Microsoft Visual C++ Compiler\\Win32 Console Application         #\n#                                                                            #\n# The list of project files may be any combination of source, header,        #\n# resource, and data files&#46;  An example follows&#58;                             #\n#  File0=MyApp&#46;h                                                             #\n#  File1=MyApp&#46;c, Source Files                                               #\n#  File2=MyApp&#46;ico                                                           #\n# and so forth&#46;&#46;&#46;&#46;                                                           #\n#                                                                            #\n# All subsequent section&#40;s&#41; of this template describe the contents of one    #\n# or more of the project files defined above&#46;  An optional group name may    #\n# be specified after the file name&#46;  In the above example, the group         #\n# &quot;Source Files&quot; will automatically be created and MyApp&#46;c will be included  #\n# in the group folder&#46;                                                       #\n#                                                                            #\n# For binary file contents such as Resource, Icon, or any other data file,   #\n# where it is inconvenient to describe the contents in a script, the         #\n# following format may be used&#58;                                              #\n# &#91;File2&#93;                                                                    #\n# INCLUDEBINARY=c&#58;\\my_data_files\\ico_data&#46;raw                                #\n# This will create &#91;File2&#93;, in this case &quot;MyApp&#46;ico&quot;, with the content       #\n# ico_data&#46;raw                                                               #\n#                                                                            #\n# Alternately, binary file contents may be defined in this template using    #\n# the &quot;&#58;HEX&quot; directive&#46;  This specifies that all data is represented as      #\n# hexadecimal values&#46;  For example&#58;                                          #\n# &#91;File3&#58;HEX&#93;                                                                #\n# 0065 66 F0, 0FF0, 0F0F0F0F                                                 #\n# 12, FF, 20; 0F 40                                                          #\n#                                                                            #\n# where all numbers above are interpreted based on data length, as follows&#58;  #\n#  1-2 = bytes, 3-4 = words, 5-8 = dwords, &gt;8 = an array of bytes&#46;           #\n#                                                                            #\n# Predefined variables may be used to specify the names of files as well as  #\n# the content of the files, e&#46;g&#46;&#58;                                            #\n# USER &#40;user name&#41;, COMPUTER &#40;computer name&#41;, TIME, DATE, PRJPATH &#40;project   #\n# path&#41;, PRJNAME &#40;project name&#41;, PRJDIR &#40;project directory&#41;                  #\n# Example&#58; File0=$&#40;PRJNAME&#41;&#46;cpp                                              #\n#                                                                            #\n##############################################################################\n\n&#91;UDT&#93;\n\nCompiler = Harbour\\Application\n\nFile0 = $&#40;PRJNAME&#41;&#46;prg\nFile1 = $&#40;PRJNAME&#41;&#46;rc \n\n&#91;File0&#93;\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n   \n   DEFINE WINDOW oWnd TITLE &quot;Test&quot;\n   \n   ACTIVATE WINDOW oWnd\n   \nreturn nil\n\n&#91;File1&#93;\n#include &lt;winapi&#46;ch&gt;\n[/code:3g7isygv]\n\ndialog.wiz\n[code:3g7isygv]\n##############################################################################\n#                                                                            #\n#             UEStudio\'s User Defined Project Template                       #\n#                                                                            #\n# The following template is to be modified by the user&#46;  It describes        #\n# individual preferences for new project creation&#46;                           #\n#                                                                            #\n# The first and most important section is &#91;UDT&#93; which contains a &quot;Compiler&quot;  #\n# variable and a list of seed files to be inserted in the newly created      #\n# project&#46;  The Compiler variable specifies the name of the compiler\'s       #\n# configuration directory, and the compiler configuration file&#46;              #\n# For example&#58;                                                               #\n# Compiler = Microsoft Visual C++ Compiler\\Win32 Console Application         #\n#                                                                            #\n# The list of project files may be any combination of source, header,        #\n# resource, and data files&#46;  An example follows&#58;                             #\n#  File0=MyApp&#46;h                                                             #\n#  File1=MyApp&#46;c, Source Files                                               #\n#  File2=MyApp&#46;ico                                                           #\n# and so forth&#46;&#46;&#46;&#46;                                                           #\n#                                                                            #\n# All subsequent section&#40;s&#41; of this template describe the contents of one    #\n# or more of the project files defined above&#46;  An optional group name may    #\n# be specified after the file name&#46;  In the above example, the group         #\n# &quot;Source Files&quot; will automatically be created and MyApp&#46;c will be included  #\n# in the group folder&#46;                                                       #\n#                                                                            #\n# For binary file contents such as Resource, Icon, or any other data file,   #\n# where it is inconvenient to describe the contents in a script, the         #\n# following format may be used&#58;                                              #\n# &#91;File2&#93;                                                                    #\n# INCLUDEBINARY=c&#58;\\my_data_files\\ico_data&#46;raw                                #\n# This will create &#91;File2&#93;, in this case &quot;MyApp&#46;ico&quot;, with the content       #\n# ico_data&#46;raw                                                               #\n#                                                                            #\n# Alternately, binary file contents may be defined in this template using    #\n# the &quot;&#58;HEX&quot; directive&#46;  This specifies that all data is represented as      #\n# hexadecimal values&#46;  For example&#58;                                          #\n# &#91;File3&#58;HEX&#93;                                                                #\n# 0065 66 F0, 0FF0, 0F0F0F0F                                                 #\n# 12, FF, 20; 0F 40                                                          #\n#                                                                            #\n# where all numbers above are interpreted based on data length, as follows&#58;  #\n#  1-2 = bytes, 3-4 = words, 5-8 = dwords, &gt;8 = an array of bytes&#46;           #\n#                                                                            #\n# Predefined variables may be used to specify the names of files as well as  #\n# the content of the files, e&#46;g&#46;&#58;                                            #\n# USER &#40;user name&#41;, COMPUTER &#40;computer name&#41;, TIME, DATE, PRJPATH &#40;project   #\n# path&#41;, PRJNAME &#40;project name&#41;, PRJDIR &#40;project directory&#41;                  #\n# Example&#58; File0=$&#40;PRJNAME&#41;&#46;cpp                                              #\n#                                                                            #\n##############################################################################\n\n&#91;UDT&#93;\n\nCompiler = Harbour\\Application\n\nFile0 = $&#40;PRJNAME&#41;&#46;prg\nFile1 = $&#40;PRJNAME&#41;&#46;rc \n\n&#91;File0&#93;\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil\n\n&#91;File1&#93;\n#include &lt;winapi&#46;ch&gt;\n\ntest DIALOG DISCARDABLE  0, 0, 186, 94\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\nBEGIN\n    DEFPUSHBUTTON   &quot;OK&quot;,IDOK,129,7,50,14\n    PUSHBUTTON      &quot;Cancel&quot;,IDCANCEL,129,24,50,14\nEND\n[/code:3g7isygv]\nComo ves es muy sencillo y puedes crearte tantas plantillas como quieras <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3g7isygv',1,0,'',2,0,0),(33362,7291,6,222,0,'201.243.176.78',1181940252,1,0,1,1,1,0,'','Gracias','Gracias, Antonio\nSaludos','',0,'AIA=','3miwyhzr',1,0,'',222,0,0),(33363,7292,6,171,0,'71.233.232.238',1181941622,1,0,1,1,1,0,'','','Francisco,\n\nGracias por responder.\nYo tambien lo hice de esa manera, usando la misma clase modificada que tu usas, y me sigue dando el problema. No se por donde anda la solucion. \n\nPero creo que el problema debe estar en que uso xHarbour builder y no harbour.\n\nPor otro lado si me funciona perfectamente la opcion de copiar la grafica al clipboard.\n[b:3ausvh8c]Mi pregunta a ti, a Antonio y a cualquier compañero de foro que sepa la respuesta es:\nComo Salvar Una Imagen, Tipo BMP, Que Esta En El ClipBoard?[/b:3ausvh8c]\n\nSaludos,\n\n\nGeorge','',0,'QA==','3ausvh8c',1,0,'',171,0,0),(33364,7289,6,694,0,'200.189.112.21',1181942548,1,0,1,1,1,1,'','','O site não funciona Rene!\n\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'QA==','1lgmbx0c',1,0,'',694,0,0),(33365,7286,3,2,0,'87.218.146.188',1181943126,1,0,1,1,1,1,'','','Detlef,\n\nPlease comment all:\n\n      // ::lRefreshOnlyData := .t.\n\nin METHOD Select( nOperation ) CLASS TXBrowse','',0,'QA==','58142t9z',1,0,'',2,0,0),(33366,7289,6,36,0,'200.113.56.235',1181943450,1,0,1,1,1,1,'','','[url:19my58p8]http&#58;//msdn&#46;microsoft&#46;com[/url:19my58p8]','',0,'EA==','19my58p8',1,0,'',36,0,0),(33367,7285,1,2,0,'87.218.146.188',1181945449,1,0,1,1,1,1,'','','En vez de crearlos y destruirlos, podrías usar siempre el mismo y usar una variable que te indique si tiene ó no que hacer algo:\n\nDEFINE TIMER oTimor OF oWndMain INTERVAL 500 ; \nACTION If( lActivo, ( nKilos:=Visor(), oKilos:Refresh() ),)\n\nen donde lActivo, nKilos y oKilos serían variables públicas ó static\n\nCambiando lActivo a .F. dejaría de hacer su trabajo','',0,'EA==','2bg42blc',1,0,'',2,0,0),(33368,7292,6,2,0,'87.218.146.188',1181945817,1,0,1,1,1,1,'','','George,\n\nPrueba así:\n[code:3i9ov8f0]\n   DEFINE CLIPBOARD oClp OF oWnd\n   DibWrite&#40; &quot;screen&#46;bmp&quot;, DibFromBitmap&#40; oClp&#58;GetBitmap&#40;&#41; &#41; &#41;\n[/code:3i9ov8f0]','',0,'AIA=','3i9ov8f0',1,0,'',2,0,0),(33369,7286,3,58,0,'84.149.89.83',1181945949,1,0,1,1,1,0,'','','Antonio,\n\nnow xBrowse is painting fine also with multiselect clause.\n\nThanks a lot for your advice. \n\nRegards,\nDetlef','',0,'AIA=','nq9bmcqp',1,0,'',58,0,0),(33370,7243,22,2,0,'87.218.146.188',1181946061,1,0,1,1,1,1,'','','Biel,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2z0hsnbk',1,0,'',2,0,0),(33371,7286,3,2,0,'87.218.146.188',1181946156,1,0,1,1,1,1,'','','Thanks a lot for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','19qgdvxv',1,0,'',2,0,0),(33372,7293,3,58,0,'84.149.89.83',1181946533,1,0,1,1,1,0,'','xBrowse bValid','Dear friends,\n\ni\'m still busy to learn all aspects of the xBrowse class and found a new problem.\n\nTo see how a valid clause may be used with a xBrowse cell edit I built the sample mallorca.\n\nIn this example the valid block gives a message if the entered value is bigger than 6 and returns false. \nBut after showing the message a wrong value is assigned to the cell.\n\nIs there an other way to get a valid clause working as expected?\n\nRegards,\nDetlef','',0,'AIA=','2q5wmfu9',1,0,'',58,0,0),(33373,7293,3,2,0,'87.218.146.188',1181948145,1,0,1,1,1,1,'','','Detlef,\n\nIf you comment out this line in mallorca.prg:\n[code:iia4xhk6]\n    IF nVal&gt;6 \n        // MsgAlert&#40;\'No puede ser mayor que 6\'&#41; \n        lValRet&#58;=&#46;f&#46; \n    ENDIF \n[/code:iia4xhk6]\nthen it works fine. The problem is that the MsgAlert() causes the GET to loose the focus and then its current value its assigned\n\nWe should find a way to accept Msg...() (or similar) calls.','',0,'AIA=','iia4xhk6',1,0,'',2,0,0),(33374,7292,6,171,0,'71.233.232.238',1181950913,1,0,1,1,1,0,'','','Hola Antonio,\n\nTrate tu sugerencia y me salva un fichero igual, solo presenta un pequeño cuadrado con una X roja en el centro.\n\nQue podra ser? Me tiene vuelto loco.\n\nSaludos\n\nGeorge','',0,'AIA=','3d1h0evu',1,0,'',171,0,0),(33375,7292,6,2,0,'87.218.146.188',1181953468,1,0,1,1,1,1,'','','El fichero screen.bmp que se crea, que tamaño tiene ?','',0,'AIA=','26ar487b',1,0,'',2,0,0),(33376,7289,6,694,0,'200.189.112.21',1181953960,1,0,1,1,1,1,'','','Gracias Patricio! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','2vvguld1',1,0,'',694,0,0),(33377,7294,6,743,0,'201.116.76.180',1181956191,1,0,1,1,1,0,'','tengo la siguiente duda TTxtFile ayuda','Utilizo esta clase, pero alquerer modificar un archivo XML, me pone espacios en blanco o tabuladores, lo presento de la siguiente forma...\n\n   archivo original \n\n   &lt;?xml version=\'1.0\'?&gt;\n	&lt;person dataSource=\"144\" dataSourceNbr=\"144\"&gt;\n		&lt;active&gt;Y&lt;/active&gt;\n		&lt;faces&gt;\n			&lt;face&gt;\n				&lt;missing&gt;N&lt;/missing&gt;\n				&lt;sample&gt;Face_Ambient_Gallery/fm09351732.jpg&lt;/sample&gt;\n			&lt;/face&gt;\n		&lt;/faces&gt;\n	&lt;/person&gt;\n\n  archivo modificado con la clase TTxtFile\n\n  me pone espacion en datasource y por consiguiente me modifica la estructura, y tambien Face_Ambient_Gallery\n\n&lt;?xml version=\'1.0\'?&gt;\n	&lt;person 		dataSource=\"115\" dataSourceNbr=\"115\"&gt;\n&lt;active&gt;Y&lt;/active&gt;\n		&lt;faces&gt;\n			&lt;face&gt;\n				&lt;missing&gt;N&lt;/missing&gt;\n				&lt;sample&gt;		Face_Ambient_Gallery/amo6709f.jpg&lt;/sample&gt;\n	&lt;/face&gt;\n		&lt;/faces&gt;\n	&lt;/person&gt;\n\n\n si alguien tiene una solucion por favor ayudame es algo urgente tengo que modificar 10,000 archivos para subir a un servidor','',0,'AIA=','2z6zc4ie',1,0,'',743,0,0),(33378,7295,3,27,0,'62.174.195.220',1181978558,1,0,1,1,1,1,'','Images in a dialog shows in button with frre Image  xHarbour','A function that displays an image in a dialog gives a duplicate ID 109 error\nif I remove the REDEFINE line the program runs but displays the image in the area where the button was. If I click on the image it disapears and the button shows \n\n@ 1.0,1.0 IMAGE ofoto FILE cDirNoPicado+afich[iii,1] SIZE 680,430 OF oDlgAlba ;\n  ADJUST UPDATE\n\n//REDEFINE BUTTON ID 109 ACTION IMPRIMG(ofoto)   //Imprimir\n\nBefore\n[img:3enwummr]http&#58;//www&#46;pes-systems&#46;net/TEMP/before&#46;bmp[/img:3enwummr]\n\nAfter\n[img:3enwummr]http&#58;//www&#46;pes-systems&#46;net/TEMP/after&#46;bmp[/img:3enwummr]\n\nCorrect\n[img:3enwummr]http&#58;//www&#46;pes-systems&#46;net/TEMP/correct&#46;bmp[/img:3enwummr]\n\n\nAny ideas','',0,'CA==','3enwummr',1,0,'',27,0,0),(33379,7296,3,27,0,'62.174.195.220',1181978998,1,0,1,1,1,1,'','Listbox missing horizontal lines after upgrading to xHarbour','The horizontal lines seperating records have disapeared after upgrading from FW to FWH with xHarbour (No problem with Harbour)\n\n     REDEFINE LISTBOX oBrw;\n              FIELDS Str(MENSAJER-&gt;MENS_COD),OA(MENSAJER-&gt;COMPANIA),;\n                     DTOC(MENSAJER-&gt;RENO_CONT),OA(MENSAJER-&gt;DIR1),;\n                     OA(MENSAJER-&gt;DP),OA(MENSAJER-&gt;CIUDAD),OA(MENSAJER-&gt;TEL);\n              ALIAS \"MENSAJER\";\n              HEADERS OA(\"N§ Conductor\"),OA(\"Nombre\"),OA(\"Fecha Renovaci¢n\"),;\n                      OA(\"Direcci¢n\"),;\n                      OA(\"C¢digo Postal\"),OA(\"Ciudad\"),OA(\"Tel‚fono\");\n              ID 300;\n              SIZES 96,250,288,288,112,248,128;\n              ON CHANGE Veo_Mensa(@oGets,Recno(),@lFoto,oBitmap);\n              OF oDlgMensa','',0,'CA==','4vf5c1kx',1,0,'',27,0,0),(33380,7297,3,473,0,'81.82.10.56',1181982258,1,0,1,1,1,0,'','Strange behaviour in For Next','This is a part of code that works already for years in an old Harbour FWH application[code:10qxqpte]\nFunction RadFrm\nParameters aVelden,cDbf\n\nLocal Open1 , Open2, i&#58;=0 , j &#58;=0\nPrivat aTabs&#58;=&#123;&#125;, anReg&#58;=&#123;5&#125;,Ptr&#58;=0,lFolders &#58;= &#46;F&#46;,nPos &#58;= 100,;\n       nButNr &#58;= 45\n\nDstk_Push&#40;&#41;\n\nOpen2 &#58;= Is_Open_Dbf&#40;&quot;Objekten&quot;,1&#41;\nSelect Velden\n\n* Bepaal of er folders voorkomen\nFor i &#58;= 1 To Len&#40;aVelden&#41;\n   Goto aVelden&#91;i&#93;\n   If !Empty&#40;Velden-&gt;Folder&#41;\n      lFolders &#58;= &#46;T&#46;\n      Ptr &#58;= aScan&#40;aTabs,Velden-&gt;Folder&#41;\n      If Ptr = 0 &amp;&amp; Niks gevonden\n         Aadd&#40;aTabs,Velden-&gt;Folder&#41;\n         Aadd&#40;anReg,5&#41;\n      EndIf\n      Ptr &#58;= Len&#40;anReg&#41;\n   EndIf\nNext\n\n\n&#46;&#46;&#46;\n[/code:10qxqpte]\n\nNow in the new HB and FWH it gives an error after executing the next line.\n\nThe error = Error Base 1086 Argument Error ++\n\nIn a small function that only consists of a for next, it works fine.\n\nAfter rewriting the code with a do while structure incrementing i with the ++ operator the problem was still there.\n\nChanging i++ in\ni := i +1 gives a working solution.\n\nBut changing every for next in a do while is not the solution I think.\n\nAny ideas ?\n\nGreetings,\n\nWilly Hermans','',0,'AIA=','10qxqpte',1,0,'',473,0,0),(33381,7296,3,2,0,'87.218.146.188',1181984470,1,0,1,1,1,1,'','','Paul,\n\nWhat FWH and Harbour/xHarbour versions ?','',0,'AIA=','3ly7slzk',1,0,'',2,0,0),(33382,7297,3,2,0,'87.218.146.188',1181984575,1,0,1,1,1,1,'','','Willy,\n\nAre you using xHarbour ? If yes, then please download it again from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> as there was an error that got fixed by late May','',0,'AIA=','3foutosp',1,0,'',2,0,0),(33383,7295,3,2,0,'87.218.146.188',1181984739,1,0,1,1,1,1,'','','Paul,\n\nPlease post the RC dialog portion here so we can review it','',0,'AIA=','2hdzw10q',1,0,'',2,0,0),(33384,7297,3,473,0,'81.82.10.56',1181984772,1,0,1,1,1,0,'','','No Antonio,\nIt was Harbour not xHarbour\nGreetings,\n\nWilly Hermans','',0,'AIA=','cqtk3jmm',1,0,'',473,0,0),(33385,7294,6,2,0,'87.218.146.188',1181984998,1,0,1,1,1,1,'','','Que modificaciones tienes que hacer en los ficheros ? Quizá sea más simple  hacer los cambios sobre los archivos en memoria usando MemoRead(), StrTran() y MemoWrit()\n\nAl estar en 32 bits puedes manejar archivos muy grandes en memoria (hasta de 4 gigas)','',0,'AIA=','3hqwbctn',1,0,'',2,0,0),(33386,7297,3,2,0,'87.218.146.188',1181985166,1,0,1,1,1,1,'','','Is it a very large PRG ? Whats its size ?','',0,'AIA=','wq76f0bf',1,0,'',2,0,0),(33388,7297,3,473,0,'81.82.10.56',1181987755,1,0,1,1,1,0,'','','The whole PRG is about 15 KB\n\nThe whole function = 2902 bytes long\n\nGreetings\n\nWilly Hermans','',0,'AIA=','7e6482hb',1,0,'',473,0,0),(33389,7297,3,2,0,'87.218.146.188',1181988777,1,0,1,1,1,1,'','','Its quite strange and unusual. Are you sure that the error comes from the \"next\" line ?','',0,'AIA=','3ba6fnu6',1,0,'',2,0,0),(33390,7293,3,58,0,'84.149.93.89',1181992081,1,0,1,1,1,0,'','','Antonio,\n\nthanks for your advice. But it still doesn\'t work for me.\nI removed the MsgAlert so that the validating function returns .f. for values &gt; 6 and .t. for all others.\n\nBut the example mallorca shows a very strange editing/validating of TxBrowse.\n\nExample:\ni enter a \'7\' and press return.\nNothing happens, the 7 is shown but not accepted. This is ok.\nBut when now pressing Esc, the 7 is accepted and i can move to an other cell.\n\nI now go back to the cell with the 7 and enter a \'2\' and press return.\nThe 2 disappears, the 7 shows up again and after leaving the cell, the 2 is properly displayed.\n\nThis is a very confusing kind of editing.\n\nPerhaps its only on my environment or can someone confirm this behaviour?\n\nThanks and regards,\nDetlef','',0,'AIA=','2q7n8agn',1,0,'',58,0,0),(33391,7285,1,1055,0,'84.125.133.194',1181992761,1,0,1,1,1,0,'','','Utiliza oTimer:Activate() y oTimer:DeActivate().\nCrea y activa el Timer antes de entrar en la funcion, y siempre que salgas lo desactivas.\nA lo mejor te va bien','',0,'AIA=','15vse4gb',1,0,'',1055,0,0),(33392,6444,6,1055,0,'84.125.133.194',1181993708,1,0,1,1,1,0,'','','Yo lo que hago lo tomé de un buen amigo mio:\n\nDATA OldDat\nDATA lCambio 	AS LOGICAL INIT .F.\n\nMETHOD GotFocus( hCtlLost ) CLASS TGet\n...\n::OldDat 	    := ::VarGet()\n...\n\n\nMETHOD lValid() CLASS  TGet\n...\n::lCambio := !(::OldDat==::VarGet()) .OR. ::lCambio\n...\n\nTiene el inconveniente de una variable más (::OldDat) pero si tras cambiar el contenido del GET, te arrepientes y vuelves a escribir lo que había, tu ::lCambio seguirá estando en .T. cuando debería volver a .F. como el contenido del Get.\n\nComo sugerencia, además de esto utilizo (en el mismo método lValid()):\n\nlocal xGet := ::VarGet()\n::lBlank  := (xGet = NIL .OR. Empty(xGet))\n\n(un nuevo DATA booleano = 1 bit  -&gt; ::lBlank )\n\nSaludos','',0,'AIA=','2c57bm9n',1,0,'',1055,0,0),(33393,7299,6,1055,0,'84.125.133.194',1181994889,1,0,1,1,1,0,'','O mucho o poco','Hola amigos del foro. Soy nuevo en este foro, y espero seros util.\nPor lo pronto tengo un problemilla, a ver si alguien puede ayudarme.\nResulta que estoy haciendo un browse propio para listar arrays multidimensiones, todo va bien. Ahora estoy creando el método de edicion de celdas, y me surge un problema del que no tengo ni idea de como solucionarlo. Resulta que para editar la ceda creo un DIALOGO del tamaño de la celda para poner un GET dentro. El problema es que si pongo un tamaño, el DIALOGO es 1 pixel demasiado grande y sobresale de la celda. Pero si le quito un pixel, se dibuja un pixel más pequeño que la celda y se queda corto (resulta feo). ¿Os lo podeis creer? He intentado de todo, cambiar el ::nWidth o el ::nRight, hacer un Move durante la inicialización, redimensionarla, etc, pero no hay solución.\n¿Alguna sugerencia?\nGracias de antemano.','',0,'AIA=','vbuqb9sy',1,0,'',1055,0,0),(33394,6444,6,1055,0,'84.125.133.194',1181995674,1,0,1,1,1,0,'','','Se me olvidaba. Hay que reponer ::lCambio a .F.\nEso lo hago en el mismo método lValid\n\nELSEIF ValType( ::bValid ) == \"B\" .AND. ( ::lCambio .OR. ::lValida )\nlRet := Eval( ::bValid, Self  )\n[b:6wcsg08q]::lCambio := .F.[/b:6wcsg08q]\n\nComo verá, solo se evalúa el VALID si hubo ::lCambio.\n\nPerdon por el lapsus.','',0,'QA==','6wcsg08q',1,0,'',1055,0,0),(33395,7300,3,868,0,'219.64.121.60',1181998183,1,0,1,1,1,1,'','hb_inline()  not working in xharbour from fivewin','I have installed fwh705 and xharbour provided by fivewin (99.71).  After upgrading, the hb_inline() is giving compliation error. ( used to work earlier with xharbour 99.70 binaries downloaded from xharbour.org).  We can try compiling inline_c.prg in the samples folder.\n\nerror E0020 : Incomplete statement or unbalanced delimiters.\n\ncan you pl suggest the solution Mr.Antanio?','',0,'QA==','4z3niw1v',1,0,'',868,0,0),(33396,7301,6,774,0,'164.77.169.170',1181998907,1,0,1,1,1,1,'','GPS','estimado foro:: he leido el material sobre GPS en el foro pero me nacen algunas dudas::\n\ncomo se podria capturar la informacion del GPS atravez del PC\nalguien ha dasarrollado algo asi,, o maneja el tema\n\nGRACIAS','',0,'QA==','3ku7oig3',1,0,'',774,0,0),(33397,7297,3,473,0,'81.82.10.56',1182003433,1,0,1,1,1,0,'','','Antonio,\n\nI see no other explanation.\n\nI made another for next loop in a separated module in the same application. There it works fine.\n\nBefore the next statement I placed\n[code:2b2hkpur]? i , Valtype&#40;i&#41;[/code:2b2hkpur]\nThe return was correct. Then after the first execution of next statement the error occurs.\n\nSo I changed the code to Do While ... EndDo\nWhen I use the i:= i+1 the code works.\n\nWhen I change it to i++\nthe same error occurs.\n\nSo in fact it is in the i++.\n\nAs far as I know the next statement is also translated  tot &lt;LoopVariabele&gt;++\n\nIn other modules I have not found such an error. I shall see in the coming days how it evoluate.\n\nIn this module I have changed the code in Do While ... and i:=i+1\n\n... and this works fine.\n\nThanks for the time you spended to this \n\nWilly Hermans','',0,'AIA=','2b2hkpur',1,0,'',473,0,0),(33398,7292,6,171,0,'71.233.232.238',1182004105,1,0,1,1,1,0,'','','Antonio,\n\nEl tamaño del fichero creado es de 689,990 Bytes\n\nTe estoy enviando a tu correo personal el fichero generado, quizas tu puedas ver algo que yo no estoy viendo.\n\nSaludos,\n\n\nGeorge[/url]','',0,'','3jsxh623',1,0,'',171,0,0),(33399,7297,3,6,0,'79.3.216.229',1182005798,1,0,1,1,1,1,'','','Can you build a reduced and complete sample showing the problem?\n\nEMG','',0,'','1e0817v1',1,0,'',6,0,0),(33400,7297,3,473,0,'81.82.10.56',1182006218,1,0,1,1,1,0,'','','Enrico,\n\nI try to build an example and I shal post it. \n\nHowever it is not possible for today anymore.\n\nThanks\n\nWilly','',0,'','g9s2hhsw',1,0,'',473,0,0),(33401,7300,3,6,0,'79.3.216.229',1182006245,1,0,1,1,1,1,'','Re: hb_inline()  not working in xharbour from fivewin','Try the following sample:\n\n[code:1qg18pmm]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL n &#58;= 5\n\n    ? n\n\n    HB_INLINE&#40; @n &#41;;\n    &#123;\n        int n = hb_parni&#40; 1 &#41; ;\n        n++;\n        hb_storni&#40; n, 1 &#41;;\n    &#125;\n\n    ? n\n\n    RETURN NIL[/code:1qg18pmm]\n\nEMG','',0,'AIA=','1qg18pmm',1,0,'',6,0,0),(33402,7302,2,235,0,'189.145.40.224',1182009277,1,0,1,1,1,0,'','como cambio a fivewin for harbour','ya que tengo la version 2.3 o cual me recomiendan ya que poseo lo siguiente:\n\nfivewin++ 2.3\nharbour (borland build)\nharbour (microsoft build)\nestos dos no se que o para que sirven\nfivescript 2.5\nfivemap 1.0\n\ntengo una aplicacion que deseo cambia a 32 bit, actualmente uso fivewin 2.2. blinker 6 y workshop\n\notra pregunta la migracion en facil?, se compila igual?\n\ndesde ya muchas gracias','',0,'AIA=','2okj90ym',1,0,'',235,0,0),(33403,7302,2,2,0,'87.218.146.188',1182010949,1,0,1,1,1,1,'','','Gerardo,\n\nNecesitas FiveWin para Harbour (FWH). Consulta <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> \n\nFiveWin++ es un producto distinto, es para Alaska Xbase++','',0,'AIA=','1zlocrq5',1,0,'',2,0,0),(33404,7299,6,2,0,'87.218.146.188',1182011262,1,0,1,1,1,1,'','','Prueba a cambiarle el tamaño al diálogo desde la claúsula ON INIT del diálogo:\n\nACTIVATE DIALOG oDlg ON INIT oDlg:nWidth := ...\n\nOtra opción que puedes considerar es crear un GET directamente en vez de un diálogo','',0,'AIA=','w6sjqd0q',1,0,'',2,0,0),(33405,7300,3,868,0,'219.64.121.60',1182012369,1,0,1,1,1,1,'','','Thanks. This is working now.\nThe difference is semicolon is _now_ required between hb_inline( .. ) and the following curly braces ( { )\n\nEarlier it used to work without this semicolon.\n\nThank you very much Mr. Enrico.','',0,'AIA=','1u2c7zhh',1,0,'',868,0,0),(33406,7292,6,2,0,'87.218.146.188',1182012715,1,0,1,1,1,1,'','','El fichero lo estas creando así ?\n[code:2eatatjy]\n   DEFINE CLIPBOARD oClp OF oWnd \n   DibWrite&#40; &quot;screen&#46;bmp&quot;, DibFromBitmap&#40; oClp&#58;GetBitmap&#40;&#41; &#41; &#41;\n[/code:2eatatjy]\ny previamente has puesto la imagen en el clipboard ?','',0,'AIA=','2eatatjy',1,0,'',2,0,0),(33407,7300,3,868,0,'219.64.121.60',1182015024,1,0,1,1,1,1,'','','Sorry. I understand now.\nThe syntax is hb_inline ( ... ) {\nor \nhb_inline( .. ) ;   (semicolon is for continuation of { on the next line.\n{\n\nthis solved the issue.','',0,'AIA=','16utzlco',1,0,'',868,0,0),(33408,7303,3,851,0,'80.48.221.90',1182016651,1,0,1,1,1,0,'','error run application','error after run application\n\n---------------------------\nxsetow6.exe - B&#322;&#261;d aplikacji\n---------------------------\nInstrukcja spod \"0x00000000\" odwo&#322;uje si&#281; do pami&#281;ci pod adresem \"0x00000000\". Pami&#281;&#263; nie mo&#380;e by&#263; \"read\".\n\n\nKliknij przycisk OK, aby przerwa&#263; dzia&#322;anie aplikacji\nKliknij przycisk Anuluj, aby rozpocz&#261;&#263; debugowanie programu\n---------------------------\nOK   Anuluj   \n---------------------------','',0,'AIA=','3s91di4h',1,0,'',851,0,0),(33409,7295,3,27,0,'62.174.195.220',1182017700,1,0,1,1,1,1,'','RC CODE ERROR IMAGE AND COMPLETE .RC','I\'am using a 32 bit DLL created from <!-- m --><a class=\"postlink\" href=\"http://www.pes-systems.net/TEMP/SCREEN32.RC\">http://www.pes-systems.net/TEMP/SCREEN32.RC</a><!-- m --> \n\nAWBVISUAL DIALOG 10, 26, 509, 314\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Imágenes de albaranes...\"\nFONT 8, \"MS Sans Serif\"\n{\n CONTROL \"106\", 106, \"EDIT\", WS_BORDER | WS_TABSTOP, 16, 30, 55, 12\n CONTROL \"101\", 101, \"EDIT\", WS_BORDER | WS_TABSTOP, 96, 30, 12, 12\n CONTROL \"102\", 102, \"EDIT\", WS_BORDER | WS_TABSTOP, 125, 30, 56, 12\n CONTROL \"103\", 103, \"EDIT\", WS_BORDER | WS_TABSTOP, 189, 30, 39, 12\n CONTROL \"104\", 104, \"EDIT\", WS_BORDER | WS_TABSTOP, 237, 30, 45, 12\n CONTROL \"105\", 105, \"EDIT\", WS_BORDER | WS_TABSTOP, 290, 30, 56, 12\n CONTROL \"621\", 621, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 53, 21, 12\n CONTROL \"624\", 624, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 67, 21, 12\n CONTROL \"627\", 627, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 82, 21, 12\n CONTROL \"630\", 630, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 98, 21, 12\n CONTROL \"633\", 633, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 113, 21, 12\n CONTROL \"636\", 636, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 128, 21, 12\n CONTROL \"639\", 639, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 143, 21, 12\n CONTROL \"642\", 642, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 158, 21, 12\n CONTROL \"645\", 645, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 173, 21, 12\n CONTROL \"648\", 648, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 188, 21, 12\n CONTROL \"620\", 620, \"EDIT\", WS_BORDER | WS_TABSTOP, 450, 203, 21, 12\n EDITTEXT 654, 428, 217, 70, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n CONTROL \"659\", 659, \"EDIT\", WS_BORDER | WS_TABSTOP, 455, 231, 42, 12\n CONTROL \"660\", 660, \"EDIT\", WS_BORDER | WS_TABSTOP, 456, 245, 42, 12\n CONTROL \"110\", 110, \"EDIT\", WS_BORDER | WS_TABSTOP, 456, 260, 42, 12\n CONTROL \"1111\", 1111, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 55, 21, 12\n CONTROL \"1112\", 1112, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 69, 21, 12\n CONTROL \"1113\", 1113, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 84, 21, 12\n CONTROL \"1114\", 1114, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 99, 21, 12\n CONTROL \"1115\", 1115, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 114, 21, 12\n CONTROL \"1116\", 1116, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 129, 21, 12\n CONTROL \"1117\", 1117, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 144, 21, 12\n CONTROL \"1118\", 1118, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 159, 21, 12\n CONTROL \"1119\", 1119, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 174, 21, 12\n CONTROL \"1120\", 1120, \"EDIT\", WS_BORDER | WS_TABSTOP, 477, 189, 21, 12\n PUSHBUTTON \"Gr&amp;abar\", 107, 28, 294, 50, 14\n PUSHBUTTON \"A&amp;tras\", 401, 85, 294, 50, 14\n PUSHBUTTON \"A&amp;delante\", 402, 142, 294, 50, 14\n PUSHBUTTON \"&amp;Borrar imagen\", 108, 199, 294, 50, 14\n PUSHBUTTON \"&amp;Imprimir\", 109, 20, 51, 395, 235\n PUSHBUTTON \"&amp;Cancelar\", 407, 313, 294, 50, 14\n PUSHBUTTON \"&amp;Salir\", 403, 370, 294, 50, 14\n PUSHBUTTON \"S&amp;ervicio\", 404, 84, 13, 33, 14\n PUSHBUTTON \"C&amp;onductor\", 405, 187, 13, 41, 14\n PUSHBUTTON \"C&amp;liente\", 406, 237, 13, 45, 14\n LTEXT \"201\", 201, 425, 56, 20, 8\n LTEXT \"202\", 202, 425, 70, 20, 8\n LTEXT \"203\", 203, 425, 85, 20, 8\n LTEXT \"204\", 204, 425, 100, 20, 8\n LTEXT \"205\", 205, 425, 115, 20, 8\n LTEXT \"206\", 206, 425, 130, 20, 8\n LTEXT \"207\", 207, 425, 145, 20, 8\n LTEXT \"208\", 208, 425, 160, 20, 8\n LTEXT \"209\", 209, 425, 175, 20, 8\n LTEXT \"210\", 210, 425, 190, 20, 8\n LTEXT \"Fecha\", 1400, 307, 18, 22, 8\n CTEXT \"7777\", 7777, 8, 2, 331, 8\n LTEXT \"Desemb\", 2313, 423, 233, 29, 8\n LTEXT \"OT\", 2312, 425, 205, 20, 8\n LTEXT \"Barras:\", -1, 31, 16, 26, 8\n LTEXT \"Llamada:\", -1, 137, 16, 31, 8\n LTEXT \"\", 114, 12, 53, 402, 233\n CTEXT \"Cliente\", -1, 448, 45, 26, 8\n LTEXT \"Cond\", -1, 476, 45, 22, 8\n LTEXT \"Factura\", 1407, 423, 248, 28, 8\n LTEXT \"Re&amp;f.\", 2340, 434, 260, 17, 8\n}','',0,'AIA=','3ot5typm',1,0,'',27,0,0),(33410,7295,3,2,0,'87.218.146.188',1182020344,1,0,1,1,1,1,'','','Paul,\n\nWhy do you use ?\n\n@ 1.0,1.0 IMAGE ofoto FILE ... OF ...\n\ninstead of\n\nREDEFINE IMAGE ofoto ID ... FILE ... OF ...\n\nIn this case, you have to declare it as a custom control it in the RC as \"TImage\"','',0,'AIA=','jaftr765',1,0,'',2,0,0),(33411,7296,3,27,0,'62.174.195.220',1182020520,1,0,1,1,1,1,'','fwh and xharbour versions','#define FWVERSION     \"FWHX 2.7 June 2006\"\n\nxHarbour Compiler build 0.99.61 (SimpLex)','',0,'AIA=','2yd3ydjg',1,0,'',27,0,0),(33412,7303,3,2,0,'87.218.146.188',1182020972,1,0,1,1,1,1,'','','Are you using Harbour or xharbour ? What FWH version ?\n\nDo you get the error when you exit from the application ? Please place a MsgInfo() before the end of your application and check it it properly shows','',0,'AIA=','10xi5ht6',1,0,'',2,0,0),(33413,7296,3,2,0,'87.218.146.188',1182021136,1,0,1,1,1,1,'','','Paul,\n\nCould you please test samples/fwbrow.prg and check if you have the same problem ? Thanks','',0,'AIA=','3cl55wx6',1,0,'',2,0,0),(33414,7296,3,27,0,'62.174.195.220',1182022838,1,0,1,1,1,1,'','LISTBOX WITH NO HORIZONTAL LINES','No problem with FWH FWBROW.PRG compiled with BUILD\n\nI\'ll check my versions.','',0,'AIA=','3pjtmqz7',1,0,'',27,0,0),(33415,7292,6,171,0,'71.233.232.238',1182024111,1,0,1,1,1,0,'','','La imagen se copia al clipboard con la siguiente funcion:\n WndCopy( Self:hWnd, .F., .T. )\nque esta en el metodo tGraph\nYo verifique lo anterior  y mediante un paste puedo poner la imagen en Ms-Word. Esta parte trabaja 100% OK\n\n\nEsta son las intrucciones, tal cual como tu me indicaste, que estoy usando para grabar el fichero en el Hard Disk:\nDEFINE CLIPBOARD oClp OF oWnd\n   DibWrite( \"screen.bmp\", DibFromBitmap( oClp:GetBitmap() ) )\n\nPero solamente se salva un pequeño cuadrado blanco con una X roja en el medio <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nSaludos\n\nGeorge','',0,'AIA=','1ud9wjiv',1,0,'',171,0,0),(33416,7295,3,27,0,'62.174.195.220',1182025456,1,0,1,1,1,1,'','Problems with Images','Thanks and Gracias Antonio ya funciona con Custom Contorl','',0,'AIA=','2hzuozn7',1,0,'',27,0,0),(33417,7303,3,851,0,'80.48.221.90',1182027012,1,0,1,1,1,0,'','error run application','I am using xHarbour Compiler build 0.99.70 (SimpLex)\nand FWH 7.05 ( operation system Windows XP)','',0,'AIA=','zu3xxnc7',1,0,'',851,0,0),(33418,7303,3,2,0,'87.218.146.199',1182033842,1,0,1,1,1,1,'','','Do you get the error when you exit from the application ? Please place a MsgInfo() before the end of your application and check it it properly shows','',0,'AIA=','2lpbtl0g',1,0,'',2,0,0),(33419,7304,6,511,0,'200.35.215.227',1182040886,1,0,1,0,1,1,'','Como crear una carpeta con Tftp','Hola amigos del foro,\n\nEstoy utilizando el ejemplo icopyfil.prg para cargar y descargar archivos de un sitio web y funciona bien pero no encuentro el metodo para crear una nueva carpeta. Podria alguien indicarme la manera de hacer esto (Harbour), gracias.\n\nSaludos\n\nAlvaro Urdaneta\n[/url]','',0,'','1vsw199j',1,0,'',511,0,0),(33420,7292,6,73,0,'189.157.182.105',1182056368,1,0,1,1,1,0,'','','george, puede ser por cuestion del compilador, yo uso harbour y me va bien, si que es un caso para la araña.\nintentare probando con xharbour a ver que tal, luego te comento\nsalu2\npaco','',0,'','31odotuh',1,0,'',73,0,0),(33421,7303,3,851,0,'212.160.69.100',1182061008,1,0,1,1,1,0,'','error after run application','when I run application','',0,'','1e9g55bc',1,0,'',851,0,0),(33422,7303,3,2,0,'87.218.146.199',1182068175,1,0,1,1,1,1,'','','Could you please provide a small PRG sample to reproduce the error ? Thanks','',0,'','3rmpu6cg',1,0,'',2,0,0),(33423,7303,3,851,0,'212.160.69.100',1182070499,1,0,1,1,1,0,'','error after run application','#include \"FiveWin.ch\"\nstatic oWnd\n//----------------------------------------------------------------------------//\n\nfunction Main()\n   local oBar\n\n   SET _3DLOOK ON  \n\n\n   DEFINE WINDOW oWnd FROM 0,0 to 200,800 pixel TITLE \"Karta pracy\" ;\n      MENU BuildMenu() \n  \n\n   SET MESSAGE OF oWnd TO \"(c) Inkom\"\n\n   ACTIVATE WINDOW oWnd \n//      VALID MsgYesNo( \"Czy koniec ?\" )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\nfunction BuildMenu()\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM \"&amp;Karta\"\n      MENU\n         MENUITEM \"&amp;Pracownicy\" //Action bro01()\n         MENUITEM \"&amp;Zleceniobiocy\"\n      ENDMENU\n      MENUITEM \"&amp;Raporty\"\n      MENU\n       MENUITEM \"&amp;Karta pracy\" //Action rep01()\n      ENDMENU\n      MENUITEM \"&amp;Koniec\"\n      MENU\n         MENUITEM \"&amp;Koniec\" ACTION oWnd:End()\n      ENDMENU\n\n   ENDMENU\n\nreturn oMenu\n//----------------------------------------------------------------------------//\nprocedure AppSys   //  XBase++ requirement\n\nreturn\n// -------------------','',0,'','2l0dq8bv',1,0,'',851,0,0),(33424,7305,3,419,0,'196.25.255.250',1182075638,1,0,1,1,1,0,'','Function to determine the number of decimal places?','Hello everyone,\n\nLong time - no post!\n\nI have been pulling my hair out to work this one out and I just do not seem to be able to get it right:\n\nIs there a function that will return the number of decimal places that a number has?\n\nExamples:\n\n1.9873 has 4 decimal places\n13.15 has 2 decimal places\n9780 has 0 decimal places\n655.39 has 2 decimal places\n\nand so on and so forth.\n\nRegards,\n\nDale.','',0,'','23lrif2t',1,0,'',419,0,0),(33425,7305,3,6,0,'82.55.208.130',1182076076,1,0,1,1,1,1,'','Re: Function to determine the number of decimal places?','[code:8bvvn9vs]FUNCTION MAIN&#40;&#41;\n\n    ? NDEC&#40; 1&#46;9873 &#41;\n    ? NDEC&#40; 13&#46;15 &#41;\n    ? NDEC&#40; 9780 &#41;\n    ? NDEC&#40; 655&#46;39 &#41;\n\n    RETURN NIL\n\n\nFUNCTION NDEC&#40; nVal &#41;\n\n    LOCAL cVal &#58;= STR&#40; nVal &#41;\n\n    LOCAL nDec &#58;= AT&#40; &quot;&#46;&quot;, cVal &#41;\n\n    IF nDec &gt; 0; nDec = LEN&#40; cVal &#41; - nDec; ENDIF\n\n    RETURN nDec[/code:8bvvn9vs]\n\nEMG','',0,'AIA=','8bvvn9vs',1,0,'',6,0,0),(33426,7303,3,6,0,'82.55.208.130',1182076216,1,0,1,1,1,1,'','Re: error after run application','Your sample seems to work fine here.\n\nEMG','',0,'AIA=','3a38a684',1,0,'',6,0,0),(33427,7303,3,2,0,'87.218.146.199',1182076347,1,0,1,1,1,1,'','','Are you using the xharbour build that we provide with FWH 7.05 ?\n\nPlease try your code with the FiveTech provided xharbour build, thanks','',0,'AIA=','2s2ylvb2',1,0,'',2,0,0),(33428,7301,6,596,0,'80.28.12.107',1182078813,1,0,1,1,1,1,'','Re: GPS','Se captura por el puetto serie que te haya dado el blueto...\nO si el GPS se conecta directamente por USB el puerto que te diga el driver.\n\nAl fin y al cabo son comunicaciones serie RS-232.\n\nP.D.: Puesde probar primero con el HYPERTERMINAL.\n\nYo hice una pequeña aplicacion para capturar datos GPS\n\n[img:9ygyu8cl]http&#58;//www&#46;jmgarcia&#46;org/SoftwareGPS1&#46;jpg[/img:9ygyu8cl]\n\n[img:9ygyu8cl]http&#58;//www&#46;jmgarcia&#46;org/SoftwareGPS2&#46;jpg[/img:9ygyu8cl]','',0,'CA==','9ygyu8cl',1,0,'',596,0,0),(33429,7285,1,509,0,'83.33.159.215',1182079334,1,0,1,0,1,0,'','Solucion TIMER','Siguiendo vuestros consejos he sacado el TIMER fuera de la funcion LanzaAuto() y lo he activado y desactivado al entrar y salir. He declarado Publicas las variables de dentro del TIMER y he activado a .T. o .F. la variable oApp:lTimer para que se ejecutara cuando yo le dijera.\n\nAhora así todo funciona.\n\nGracias.\n\nRicardo Patón','',0,'CA==','222twtoa',1,0,'',509,0,0),(33430,7306,7,400,0,'200.161.177.79',1182083081,1,0,1,1,1,1,'','Configurar UEStudio e Build para abrir o Emulador ???','Hola.....\n\nComo eu configuro o UEStudio para testar o projeto no emulador após a compilaçao ?\n\nComo eu configuro o Buld.bat para testar o projeto no emulador após a compilaçao ?\n\nSaludos','',0,'CA==','28bsw760',1,0,'',400,0,0),(33431,7299,6,1014,0,'190.40.164.139',1182098635,1,0,1,1,1,1,'','','Hola Amigos\nAntonio: \n\"Otra opción que puedes considerar es crear un GET directamente en vez de un diálogo\"   \nPregunta: Cómo se crea un Get sin Dialogo, Qué se pone en Clausula \"OF\"\nGracias.\nSaludos\nJorge Vargas','',0,'CA==','3imef3bi',1,0,'',1014,0,0),(33432,7306,7,100,0,'200.174.91.66',1182100040,1,0,1,1,1,1,'','','Ola amigos\n\nTambem gostaria de saber como fazer \n\né possivel configurar o XMARTE para criar a minha APP e ela chamar o EMULADOR ??\n\nGracias a todos','',0,'CA==','1x9qrwny',1,0,'',100,0,0),(33433,7306,7,2,0,'87.218.146.199',1182111931,1,0,1,1,1,1,'','','Hay que tener el emulador funcionando y usar el directorio donde esta el EXE resultante como directorio compartido para el emulador:\n\n..\\deviceemulator ppc_2003_se_wwe_armv4.bin /skin Pocketpc_2003_skin.xml /memsize 128 /sharedfolder c:\\proyecto\n\nc:\\proyecto es el directorio en donde estamos construyendo el EXE. Desde el emulador será la tarjeta de memoria y solo tenemos que hacer click sobre el EXE','',0,'CA==','xyhi71wl',1,0,'',2,0,0),(33434,7299,6,2,0,'87.218.146.199',1182112019,1,0,1,1,1,1,'','','&gt; Qué se pone en Clausula \"OF\" \n\nel browse sobre el que queremos mostrarlo:\n\n... OF oBrowse','',0,'CA==','2vv0kv65',1,0,'',2,0,0),(33435,7307,1,1087,0,'85.49.205.152',1182118673,1,0,1,1,1,0,'','rundlg32.exe','Hi,\n\nI am looking for the file rundlg32.exe. I can not find it in my computer and I don\'t know if it is part a a program.\n\nThank you for your help.\n\nAlvaro','',0,'CA==','94dctfqn',1,1182120133,'',1087,1,0),(33437,7308,2,1087,0,'85.49.205.152',1182120056,1,0,1,1,1,0,'','rundlg32.exe','Hola a todos,\n\n¿alguien me puede decir donde puedo encontrar el fichero rundlg.exe? no está en mi ordenador y no se como conseguirlo o si es parte de algun programa. Gracias. \n\nAlvaro','',0,'CA==','1r1290jl',1,0,'',1087,0,0),(33438,7307,1,2,0,'87.218.146.199',1182120520,1,0,1,1,1,1,'','','Alvaro,\n\nit is provided with FiveWin','',0,'CA==','1ttspj0w',1,0,'',2,0,0),(33439,7308,2,2,0,'87.218.146.199',1182120555,1,0,1,1,1,1,'','','Alvaro,\n\nva incluido en la instalación de FiveWin','',0,'CA==','xo3a5m0g',1,0,'',2,0,0),(33440,6815,6,989,0,'201.245.243.7',1182148953,1,0,1,1,1,0,'','HB_FUN_HB_SYMBOL_UNUSED error','Al compilar el ejemplo Mysql1 con xharbour da el siguiente error\nHB_FUN_HB_SYMBOL_UNUSED','',0,'CA==','94ccbjwm',1,0,'',989,0,0),(33441,6815,6,2,0,'87.218.146.199',1182150464,1,0,1,1,1,1,'','','Incluye este define en common.ch\n\n#define HB_SYMBOL_UNUSED( symbol )  ( symbol := ( symbol ) )\n\ny vuelve a compilar los PRGs','',0,'CA==','2qa2u6ab',1,0,'',2,0,0),(33442,7308,2,1087,0,'85.49.202.200',1182150830,1,0,1,1,1,0,'','','Muchas gracias. \n\nAlvaro','',0,'CA==','27ki555o',1,0,'',1087,0,0),(33443,7309,1,47,0,'58.8.109.77',1182152529,1,0,1,1,1,0,'','What the best DBF utility','Dear All,\n\nWhat is the best DBF Utility (easy &amp; powerful)?\nI\'ve found \n- DBFViewer 2000\n- DbfUtils\n\n\nRegards,\nDutch','',0,'CA==','27k8b8ki',1,0,'',47,0,0),(33444,7309,1,130,0,'141.51.32.24',1182153760,1,0,1,1,1,0,'','','Hi Dutch,\n\nyou can try OurXDbu. \n\nYou can download it at [url:3p0mg5g5]http&#58;//www&#46;xharbour&#46;com/xhc/[/url:3p0mg5g5]\n\nStefan','',0,'EA==','3p0mg5g5',1,0,'',130,0,0),(33445,7310,6,413,0,'80.24.187.29',1182155794,1,0,1,1,1,1,'','Donde Consigo la Clase de Open Office.','Con una reciente instalacion del sistema ahora solo permiten la utilizacion en mi empresa del open office 2.2.0. Tengo todo implementado en word y necesito cambiarlo, por lo tanto tengo que empezar desde cero. Alguien sabe donde localizar la clase de Open Öffice, y donde localizo informacion al respecto para manejar el tema de plantillas y resto de imformacion para producir la combinacion. Alguien esta trabajando ya desde fivewin.  He visto un mensaje de ronaldo pero que el link que figura ya esta muerto. Si alguien me puede guiar se lo agradecere.\n\nGracias','',0,'EA==','s65qxqpn',1,0,'',413,0,0),(33446,7311,6,1055,0,'84.125.133.194',1182156434,1,0,1,1,1,0,'','Necesito Manual xHarbour','Alguien puede recomendarme un manual donde se listen todas  las funciones de Harbour/xHarbour.\nGracias','',0,'EA==','27j2q9co',1,0,'',1055,0,0),(33447,7299,6,1055,0,'84.125.133.194',1182157646,1,0,1,1,1,0,'','','Gracias de todas formas, pero eso no me sirve de mucha ayuda.\nEl problema es que ya está todo diseñado para un DIALOGO. Principalmente la funcion que evalua el resultado del GET. El caso es que ese mismo método lo tenía hecho en FW Clipper y no teníe es probema.\nAdemás, el WBrowse de FW utiliza un DIALOGO y no tiene ese inconveniente. \nSi alguien conociera cúal es el origen Windows/Harbour del Problema, a lo mejor se podía solucionar.\nTanto este como otros. Por ejemplo porqué RECTANGLE y MOVETO/LINETO producen resultados diferentes.\nLo miemso ocurre con EXTTEXTOUT y DRAWTEXT que varian de DOS a CUATRO pixels tanto en ancho como en alto con respecto a las coordenadas LINETO. El origen de todos estos pequeños \"bugs\" debe de tener alguna relacion. A lo mejor quitar/añadir uno de cada x pixel o algo así, o poner algún SET a ON u OFF.\nPensaba que los Gurus del FW sabrían algo al respecto. Pero me conformaré. Tampoco es demasiado inconveniente.\nUn saludo y gracias.','',0,'EA==','2gl10qat',1,0,'',1055,0,0),(33448,7299,6,2,0,'87.218.146.199',1182158280,1,0,1,1,1,1,'','','Las funciones que comentas tan sólo hacen llamadas directas al API de Windows, por lo que esas diferencias son propias de Windows, no de FW.\n\nPor otra parte, las dimensiones de un diálogo son en unidades lógicas y no en pixeles, de ahí que la modifiación tenga que hacerse desde la claúsula ON INIT para que sea en pixeles','',0,'EA==','iibkatxo',1,0,'',2,0,0),(33449,7311,6,2,0,'87.218.146.199',1182158579,1,0,1,1,1,1,'','','Aunque Harbour y xHarbour son compatibles con Clipper (con lo que podrías usar la documentación de Clipper) cada uno de ellos añade nuevas funciones y comandos que no siempre están soportadas en ambos. \n\nExiste una documentación de pago para xharbour. En cuanto a Harbour, muchas veces lo más práctico es descargar su código fuente y revisarlo.','',0,'EA==','17pwdbag',1,0,'',2,0,0),(33450,7312,6,945,0,'80.32.177.143',1182159029,1,0,1,1,1,0,'','Conectar con SQL Server Express Edition','Muy buenas foro, ¿Como podría conectarme con una bbdd en un SQL Server express edition seleccionando la bbdd, usuario, clave y direccion IP del servidor?\n\nHaber si tenéis con código para que le ver su función.\n\nUn Saludo.','',0,'EA==','2dzbr0ks',1,0,'',945,0,0),(33451,7313,3,995,0,'81.11.205.59',1182159801,1,0,1,1,1,0,'','xbrowse : Keydown()','Hello,\n\nIn mine aplication , i have :\n\noBrw:bkeyDown := {||....}\n\nSo , i try to trigger an action for nkey 32 or 13\n\nThe problem is that in method keydown , this action is executed twice :\n\n[code:17rxjvyv]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TXBrowse\n\n   if &#58;&#58;bKeyDown != nil\n      Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41;\n   endif   \n\n   do case\n   case nKey == VK_UP // and other keys\n       &#46;&#46;&#46;&#46;&#46;&#46;&#46;\n   otherwise\n        return Super&#58;KeyDown&#40; nKey, nFlags &#41;\n   endcase\n\nreturn 0\n\n[/code:17rxjvyv]\n\nSuper:Keydown() executes also ::bKeydown\n\nI had to change it\n   \n   if ::bKeyDown = nil\n        return Super:KeyDown( nKey, nFlags )\n   end\n\nAm i missing something ?\n\nFrank','',0,'AIA=','17rxjvyv',1,0,'',995,0,0),(33452,7312,6,2,0,'87.218.146.199',1182161424,1,0,1,1,1,1,'','','Puedes usar el ADORDD para hacerlo facilmente','',0,'AIA=','3vvpa92t',1,0,'',2,0,0),(33453,7312,6,945,0,'80.32.177.143',1182161534,1,0,1,1,1,0,'','','Me podrías decir donde puede bajarme adordd y como instalarlo + un ejemplo de como se usa la conexion con SQL Server.\n\nGracias.','',0,'AIA=','35xgmhec',1,0,'',945,0,0),(33454,7312,6,177,0,'194.30.62.6',1182161603,1,0,1,1,1,0,'','','Hola,\n\nusando ADORDD <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> y <!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/?carrier=sqlserver2005ce\">http://www.connectionstrings.com/?carri ... rver2005ce</a><!-- m -->\n\nSaludos,\n\nFélix','',0,'AIA=','3cyewoci',1,0,'',177,0,0),(33455,7313,3,995,0,'81.11.205.59',1182162819,1,0,1,1,1,0,'','','I am sorry , but i saw :\n\n* Fix: Class TXBrowse Method KeyDown() was evaluating bKeyDown twice. Now it is ok. \n\nHow is the method changed ? \n\nFrank','',0,'AIA=','2gss7kx4',1,0,'',995,0,0),(33456,7312,6,2,0,'87.218.146.199',1182163381,1,0,1,1,1,1,'','','Puedes descargarlo desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','3449w1uz',1,0,'',2,0,0),(33457,7313,3,2,0,'87.218.146.199',1182164661,1,0,1,1,1,1,'','','Frank,\n\nPlease remove these three lines:\n[code:30szy9kr]\n   if &#58;&#58;bKeyDown != nil \n      Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41; \n   endif \n[/code:30szy9kr]','',0,'AIA=','30szy9kr',1,0,'',2,0,0),(33458,7310,6,936,0,'190.56.120.60',1182171323,1,0,1,1,1,0,'','','Andrés, puedes buscarcala en esta direccion:\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/lck9effuyn\">http://www.box.net/shared/lck9effuyn</a><!-- m -->\n\nSaludos.\n\nCarlos Sincuir','',0,'AIA=','26umtat5',1,0,'',936,0,0),(33459,7301,6,774,0,'200.72.190.22',1182173811,1,0,1,1,1,1,'','','muchas gracias por responder amigo\n\nsi pudieras ayudarme ,,, la verdad no manejo mucho el tema de GPS ,,si pudieras mandarme algun ejemplo de como se capturan los datos seria tu eterno agradecido..\n\nde atte. mano muchas gracias \n\nojala hubiera mas gente como tu amigo','',0,'AIA=','erwkw8a0',1,0,'',774,0,0),(33460,7311,6,138,0,'189.141.72.112',1182174131,1,0,1,1,1,1,'','','El 85% de (x)Harbour es el mismo manual de Clipper.\n\nxHarbour.com tiene a la venta la documentación de la versión comercial del mismo por 49.00 dolares:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/xhdn/referenceguide/index.asp?page=buyonline\">http://www.xharbour.com/xhdn/referenceg ... =buyonline</a><!-- m -->\n\nEsta documentación es valida tanto para la versión comercial como para la Open source (xHarbour.org).','',0,'AIA=','1seckqpt',1,0,'',138,0,0),(33461,7309,1,138,0,'189.141.72.112',1182174271,1,0,1,1,1,1,'','','In my opinion:\n\nAdvantage Data Architech, supports NTX, CDX and ADS native format, the only disadvantage I found in it is that complex operations such masive data update, delete and other stuff should be done using SQL.\n\nOn the other hand, you will find that SQL can be a good way for retrieving data and create complex reports.','',0,'AIA=','3paucvul',1,0,'',138,0,0),(33462,7301,6,596,0,'194.224.177.206',1182175181,1,0,1,1,1,1,'','','[quote=&quot;A&amp;C&quot;:3a9v46kl]si pudieras ayudarme ,,, la verdad no manejo mucho el tema de GPS...[/quote:3a9v46kl]\n\nPara empezar tienes que ir \"aprendiendo\" el contenido de las sentencias NMEA (National Marine Electronics Association)\n\nAqui te dejo unos enlaces sobre las sentencias NMEA.\n<!-- m --><a class=\"postlink\" href=\"http://celia.mehaffey.com/dale/nmea.htm\">http://celia.mehaffey.com/dale/nmea.htm</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.lightninggps.com/\">http://www.lightninggps.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://home.mira.net/%7Egnb/gps/nmea.html\">http://home.mira.net/%7Egnb/gps/nmea.html</a><!-- m -->\n\nY un enlace mas (en castellano) sobre GPSs <!-- m --><a class=\"postlink\" href=\"http://www.elgps.com/documentos.html\">http://www.elgps.com/documentos.html</a><!-- m -->\n\nLas de interes son las $GPGGA, $GPGSA, $GPGSV, $GPRMC y $GPVTG\nY en realidad la sentencia que te da la posicion es la $GPRMC (Recommended Minimum Specific GPS/TRANSIT Data) que la dan todos los GPSs por muy malos que sean.\n\n[code:3a9v46kl]$GPRMC,220516,A,5133&#46;82,N,00042&#46;24,W,173&#46;8,231&#46;8,130694,004&#46;2,W*70\n         1    2    3    4    5     6    7    8      9     10  11 12\n\n      1   220516     Time Stamp\n      2   A          validity - A-ok, V-invalid\n      3   5133&#46;82    current Latitude\n      4   N          North/South\n      5   00042&#46;24   current Longitude\n      6   W          East/West\n      7   173&#46;8      Speed in knots\n      8   231&#46;8      True course\n      9   130694     Date Stamp\n      10  004&#46;2      Variation\n      11  W          East/West\n      12  *70        checksum[/code:3a9v46kl]\n\nSeguiremos informando...','',0,'gIA=','3a9v46kl',1,0,'',596,0,0),(33463,7314,3,425,0,'81.84.76.56',1182178774,1,0,1,1,1,0,'','XML','Hi \n\nI need to create a xml File and someone as changed the xml.prg to work with xh.\n\nIn my code I have this sample:\n\nFunction TesteXML()\n\nLocal oXml\n\nXML oXml FILE \"TESTE.XML\" FORMATED     \n\n\nonly with this line it returns:\n\n Descrição do erro: Error BASE/1004  Class: \'ARRAY\' has no exported method: NEW\n   Args:\n     [   1] = C   TESTE.XML\n     [   2] = U   TESTE.XML\n     [   3] = U   TESTE.XML\n     [   4] = U   TESTE.XML\n     [   5] = L   TESTE.XML\n\nStack Calls\n===========\n   Called from NEW(0)\n   Called from TESTEXML(5296)\n\nCan anybody help me about this error.\n\nbest regards\n                         Pedro','',0,'','311gaoo1',1,0,'',425,0,0),(33464,7314,3,2,0,'87.218.146.199',1182180286,1,0,1,1,1,1,'','','Pedro,\n\nAre you using xHarbour and its Class TXml ?','',0,'','28ladtec',1,0,'',2,0,0),(33465,7315,6,278,0,'164.77.219.233',1182180306,1,0,1,1,1,1,'','Problema con oReport','Hola Foro:\n\nAlguien por favor me puede decir como puede tener abierto varios preview ( previsualizar) un reporte con el comando REPORT.\n\nPorque cuando lo intento, me aviza que ya existe uno abierto y no permite tener otro o mas en forma simultanea.\n\nHay alguna solución - Gracias anticipadas,','',0,'','1pux6jvm',1,0,'',278,0,0),(33466,7315,6,2,0,'87.218.146.199',1182180556,1,0,1,1,1,1,'','','Puedes usar el multipreview de Jose Lalín:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/37944604/multipreview.zip.html\">http://rapidshare.com/files/37944604/mu ... w.zip.html</a><!-- m -->','',0,'','2tpyvmxx',1,0,'',2,0,0),(33467,7315,6,278,0,'164.77.219.233',1182181056,1,0,1,1,1,1,'','','GRACIAS Antonio, lo voy a probar .\n\nNo sabía de su existencia.\n\nSaludos,','',0,'','3jvkhn1z',1,0,'',278,0,0),(33468,7314,3,425,0,'81.84.76.56',1182184821,1,0,1,1,1,0,'','','Hi Antonio\n\nI use:\n\nxHarbour build 0.99.41\n\nFWHX 2.6 May 2005\n\nuse also class xml.prg  with a xml.ch (example below..)\n\n*******************************************************************************\n*            Pruebas para la creacion de fichero xml desde fivewin            *\n*                             01 - 05 - 2002                                  *\n*           Enviarme vuestras dudas y sugerencias a <!-- e --><a href=\"mailto:fredy@airtel.net\">fredy@airtel.net</a><!-- e -->          *\n*******************************************************************************\n\n#include \"hbclass.ch\"\n#include \"fileio.ch\"\n#include \"common.ch \" \n\nCLASS TXMLWRITE\n\n   DATA  hFile, lFormated, CRLF, aMark\n\n   METHOD New( cOut, cVer, cEncode, cSheet, lFormated ) CONSTRUCTOR\n\n   METHOD Open( cMark, cType, aAttrib, cTag, lClose, cExt )\n   METHOD End() INLINE FClose( ::hFile ) \n   METHOD Procesar( cText )\n   METHOD Close()\n\nEND\n\nThis class works great in FW (without the modifications of default ..) \n\nbest regards\n                         Pedro','',0,'','29pxegnz',1,0,'',425,0,0),(33469,7301,6,63,0,'88.11.29.132',1182185338,1,0,1,1,1,0,'','','JM:\n¿Qué clase de GPS utilizas? ¿Un receptor independiente o un GPS integrado en una PDA?.  En el primer caso, supongo que el enlace lo haces por Bluetooth y ahí no hay problema porque se maneja como un COM. Pero ¿cómo puedes acceder a la cadena NMEA si el GPS está integrado en el propio ordenador? ¿De dónde y cómo la lees (quiero decir: desde un port específico, un COM o qué)?\nGracias\nRafael','',0,'','fyeeyhok',1,0,'',63,0,0),(33470,7253,6,1014,0,'201.240.196.30',1182185444,1,0,1,1,1,1,'','','Hola Amigos.\nnadie tiene un ejemplo sencillo de entrada de datos en xBrowse cambiando de casilla por programa?\nGracias\nJ. vargas','',0,'','1gkjton9',1,0,'',1014,0,0),(33471,7294,6,743,0,'201.116.76.180',1182185719,1,0,1,1,1,0,'','','gracias port contestar\n\n         en primera hice un proceso que me generara XML dependiendo de una ruta, en donde tengo fotos,\n\n         quise crear el archivo XML pero al subirlo al servidor no me lo permitio, este archivo tiene los elementos que me pedine para poder subir informacion a una base de datos, lo cuiroso es que el arcihovo de ejemplo que viene acompañado de esta aplicacion me lo sube, la verdad cuando me mando el error el servisor al subir mi informacion no me sice nada solo n procesos fallados.\n\n         la alternativa que tuve fue modificar este archivo lo cual si me lo sube pero el incomveniente que tengo es que me archivo original me lo modifica, por ejemplo cuando modifico algun valor del archivo este me pone un tabulador y queda asi\n\n  &lt;?xml version=\'1.0\'?&gt;\n	&lt;person                                                  dataSource=\"215\" dataSourceNbr=\"215\"&gt;\n		&lt;active&gt;Y&lt;/active&gt;\n		&lt;faces&gt;\n			&lt;face&gt;\n				&lt;missing&gt;N&lt;/missing&gt;                			&lt;sample&gt;\nFace_Ambient_Gallery/AAAA591121GAA.jpg&lt;/sample&gt;\n			&lt;/face&gt;\n		&lt;/faces&gt;\n	&lt;/person&gt;\n\n       el problema no es si fuera uno, eso depende de las fotos que me den, que pueden ser mas  100,000 de imagenes tendria que modificar 100,000 archivos\n   \n   estos son los tag que tengo que modificar \n          &lt;person dataSource=\"215\" dataSourceNbr=\"215\"&gt;\n          &lt;sample&gt;Face_Ambient_Gallery/AAAA591121GAA.jpg&lt;/sample&gt;\n\n   utilizo la clasee TTxtFile(),\n\n       que me estara haciendo falta para que los campos me los respete\n\nnruta  := \"Face_Ambient_Gallery/\" + ltrim( aNam[nFoto] )  \n      nxml   := TTxtFile():New( \".\\XML_1Face_2Fingers_Gallery\\\" + LTRIM(str(nCou))+ \".xml\" )\n      \n      IF nxml:Seek   ( \"dataSource\" )\n         nxml:RepLine( \'dataSource=\"\' +  LTRIM(str(nJjjj)) + \'\" dataSourceNbr=\"\' + LTRIM(str(nJjjj)) + \'\"&gt;\' )\n      END IF\n      \n      IF nxml:Seek   ( \"Face_Ambient_Gallery/\" )\n                nxml:RepLine( \"Face_Ambient_Gallery/\" + alltrim(aNam[i]) + \"&lt;/sample&gt;\" )\n      END IF\n   \n  este es parte del codigo que utilizo para replazar estas lineas, hay alguna forma mejor\n\nsaludos','',0,'','3te5kr77',1,0,'',743,0,0),(33472,7316,6,36,0,'200.113.56.235',1182185758,1,0,1,1,1,1,'','Problemas con NetErr()','Estimados\n\nDesde que inicié clipper he utilizado este funcion de red, pero me he dado cuenta que no me esta funcionando con ADS LOCAL\n\n[code:37g24t2x]USE &#40;cDbf&#41; NEW ALIAS &#40;cAlias&#41; VIA &quot;ADS&quot; EXCLUSIVE\n\nif !NetErr&#40;&#41;\n   dbSetIndex&#40; cIndex &#41;\n   OrdSetFocus&#40; 1 &#41;\n   dbGotop&#40;&#41;\n   return&#40; &#46;t&#46; &#41;\nendif\n\nMSgInfo&#40; &quot;Error al abrir &quot;+cDbf &#41;\nreturn&#40; &#46;f&#46; &#41;\n[/code:37g24t2x]\n\nEsto funcionaba un día,que version no lo se, pero funcionaba\n\nsi la base cDbf esta abierta igualmente trata de abrirla y al ejecutar\ndbgotop se cae, diciendo que no existe alias...\n\nlo he solucionado momentaneamente asi\n\n[code:37g24t2x]if !NetErr&#40;&#41; &#46;and&#46; !empty&#40; alias&#40;&#41; &#41;\n   dbSetIndex&#40; cIndex &#41;\n   OrdSetFocus&#40; 1 &#41;\n   dbGotop&#40;&#41;\n   return&#40; &#46;t&#46; &#41;\nendif\n[/code:37g24t2x]\n\nPero no es la idea, ya que la funcion Neterr() debiera controlar las funciones de red\n\nAlguien le ha pasado \n\natentos a sus comentarios...','',0,'AIA=','37g24t2x',1,0,'',36,0,0),(33473,7314,3,2,0,'87.218.146.199',1182186265,1,0,1,1,1,1,'','','Pedro,\n\nPlease post the source code of METHOD New( cOut, cVer, cEncode, cSheet, lFormated ) CONSTRUCTOR','',0,'AIA=','36155c3w',1,0,'',2,0,0),(33474,7317,6,875,0,'64.76.108.179',1182186313,1,0,1,1,1,0,'','Para Antonio - Problema con las fechas Fwh 7.05','Antonio antes con la version de Abril de 2005 las fechas funcionaba ok, pero ahora aparece la fecha bien pero cuando quiero modificar se corre, osea desaparecen los slash\"/\"  y no reconoce el formato de la fecha.\n\nProbe el ejemplo TESTGET_ de Samples  y cuando por ejemplo ingreso 20/20/2007 me sale el siguiente error, cuando antes lo validaba y no me dejaba pasar.\n\n\n Error description: Error BASE/42 Scope Violation\n    (protectec): TCLIPGET:_TYPEOUT\n\nStack_list\n---------------------------------------\nCalled From: =&gt; TCLIPGET:_TYPEOUT(0) \nCalled From: =&gt; TGET:LOSTFOCUS(0) \nCalled From: =&gt; TGET:KILLFOCUS(0) \nCalled From: =&gt; TCONTROL:HANDLEEVENT(0)\nCalled From: =&gt; TGET:HANDLEEVENT(0)\nCalled From: .\\source\\classes\\WINDOW.PRG =&gt; _FW\nCalled From: =&gt; CALLWINDOWPROC(0)\nCalled From: =&gt; TGET:LBUTTONDOWN(0)\nCalled From: =&gt; TWINDOW:HANDLEEVENT(0)\nCalled From: =&gt; TCONTROL:HANDLEEVENT(0)\nCalled From: =&gt; TGET:HANDLEEVENT(0)\nCalled From: .\\source\\classes\\WINDOW.PRG =&gt; _FW\nCalled From =&gt; DIALOGBOXINDIRECT(0)\nCalled From =&gt; TDIALOG:ACTIVATE(0)\nCalled From: testget_.prg =&gt; MAIN(27)','',0,'AIA=','34ikugf6',1,0,'',875,0,0),(33475,7301,6,596,0,'80.28.12.107',1182186586,1,0,1,1,1,1,'','','Vayamos por partes dijo Jack el destripador:\n\n[quote=&quot;Rafael Clemente&quot;:81ojudb1]¿Qué clase de GPS utilizas? ¿Un receptor independiente o un GPS integrado en una PDA?[/quote:81ojudb1]Tengo 3.\nUn ALTINA, un HOLUX Slim y HAICON-CF\nLos 3 los accedo por bluetooth y, ademas, con un cable USB en directo a un COM, a escoger.\nAdemas el Haicon-CF, que es compac-flas, lo accedo por el puerto de comunicaciones que me da.\n\n[quote=&quot;Rafael Clemente&quot;:81ojudb1]¿cómo puedes acceder a la cadena NMEA si el GPS está integrado en el propio ordenador? ¿De dónde y cómo la lees (quiero decir: desde un port específico, un COM o qué)?[/quote:81ojudb1]Tanto por bluetooth como puerto COM directo la comunicacion es a traves de un puerto serie. Es decir siempre es un COM.\nPartiendo de esta premisa, las comunicaciones son RS-232.\n\n[quote=&quot;Rafael Clemente&quot;:81ojudb1]¿cómo puedes acceder a la cadena NMEA...[/quote:81ojudb1]El acceso es estar siempre a la \"escucha\".\nEl GPS manda cada segundo una sentencia NMEA del tipo $GPRMC.\nCada 5 segundos una de $GPGSA y $GPGSV que son del estado de los satelites.\nSiempre has de estar a la escucha del puerto serie y cuando recibas un &lt;CRLF&gt; es el final de linea y lmandas la cadena al proceso pertinente.\nTe sobra tiempo para procesar.\n\nP.D.: Con el hyperterminal podras ver como actua al GPS. Pruebalo con el hyperterminal y veras como van saliendo las sentencias...\n\nUna captura con el hyperterminal:\n[code:81ojudb1]$GPGGA,124049&#46;960,4026&#46;9348,N,00338&#46;6065,W,1,06,1&#46;4,766&#46;7,M,51&#46;7,M,0&#46;0,0000*6E\n$GPGSA,A,3,18,25,06,21,16,03,,,,,,,2&#46;5,1&#46;4,2&#46;1*3C\n$GPRMC,124049&#46;960,A,4026&#46;9348,N,00338&#46;6065,W,0&#46;13,10&#46;96,130105,,*25\n$GPGGA,124050&#46;960,4026&#46;9351,N,00338&#46;6066,W,1,07,1&#46;2,768&#46;5,M,51&#46;7,M,0&#46;0,0000*66\n$GPGSA,A,3,18,15,25,06,21,16,03,,,,,,2&#46;1,1&#46;2,1&#46;8*30\n$GPRMC,124050&#46;960,A,4026&#46;9351,N,00338&#46;6066,W,0&#46;15,33&#46;62,130105,,*2A\n$GPGGA,124051&#46;960,4026&#46;9353,N,00338&#46;6066,W,1,07,1&#46;2,769&#46;6,M,51&#46;7,M,0&#46;0,0000*67\n$GPGSA,A,3,18,15,25,06,21,16,03,,,,,,2&#46;1,1&#46;2,1&#46;8*30\n$GPRMC,124051&#46;960,A,4026&#46;9353,N,00338&#46;6066,W,0&#46;15,30&#46;94,130105,,*23\n$GPGGA,124052&#46;960,4026&#46;9356,N,00338&#46;6066,W,1,07,1&#46;2,769&#46;3,M,51&#46;7,M,0&#46;0,0000*64\n$GPGSA,A,3,18,15,25,06,21,16,03,,,,,,2&#46;1,1&#46;2,1&#46;8*30\n$GPGSV,3,1,09,16,71,320,34,21,61,071,35,15,57,184,33,03,31,274,33*7A\n$GPGSV,3,2,09,25,28,203,30,06,23,071,41,18,19,122,46,22,07,151,37*7E\n$GPGSV,3,3,09,19,06,261,00*4B\n$GPRMC,124052&#46;960,A,4026&#46;9356,N,00338&#46;6066,W,0&#46;18,340&#46;03,130105,,*12\n$GPGGA,124053&#46;960,4026&#46;9359,N,00338&#46;6067,W,1,07,1&#46;2,767&#46;9,M,51&#46;7,M,0&#46;0,0000*6F\n$GPGSA,A,3,18,15,25,06,21,16,03,,,,,,2&#46;1,1&#46;2,1&#46;8*30\n$GPRMC,124053&#46;960,A,4026&#46;9359,N,00338&#46;6067,W,0&#46;08,355&#46;42,130105,,*1D\n$GPGGA,124054&#46;960,4026&#46;9363,N,00338&#46;6068,W,1,07,1&#46;2,765&#46;6,M,51&#46;7,M,0&#46;0,0000*63\n$GPGSA,A,3,18,15,25,06,21,16,03,,,,,,2&#46;1,1&#46;2,1&#46;8*30\n$GPRMC,124054&#46;960,A,4026&#46;9363,N,00338&#46;6068,W,0&#46;18,17&#46;15,130105,,*2A\n$GPGGA,124055&#46;960,4026&#46;9365,N,00338&#46;6069,W,1,06,1&#46;4,762&#46;9,M,51&#46;7,M,0&#46;0,0000*6A\n$GPGSA,A,3,18,15,06,21,16,03,,,,,,,2&#46;3,1&#46;4,1&#46;8*33\n$GPRMC,124055&#46;960,A,4026&#46;9365,N,00338&#46;6069,W,0&#46;06,16&#46;10,130105,,*27\n$GPGGA,124056&#46;959,4026&#46;9368,N,00338&#46;6072,W,1,06,1&#46;4,760&#46;0,M,51&#46;7,M,0&#46;0,0000*6F\n$GPGSA,A,3,18,15,06,21,16,03,,,,,,,2&#46;3,1&#46;4,1&#46;8*33\n$GPRMC,124056&#46;959,A,4026&#46;9368,N,00338&#46;6072,W,0&#46;18,344&#46;17,130105,,*15\n$GPGGA,124057&#46;959,4026&#46;9371,N,00338&#46;6077,W,1,06,1&#46;4,757&#46;3,M,51&#46;7,M,0&#46;0,0000*64\n$GPGSA,A,3,18,15,06,21,16,03,,,,,,,2&#46;3,1&#46;4,1&#46;8*33\n$GPGSV,3,1,09,16,71,320,32,21,61,071,34,15,57,184,32,03,31,274,32*7D\n$GPGSV,3,2,09,25,28,203,25,06,23,071,39,18,19,122,46,22,07,151,37*75\n$GPGSV,3,3,09,19,06,261,00*4B\n$GPRMC,124057&#46;959,A,4026&#46;9371,N,00338&#46;6077,W,0&#46;16,357&#46;85,130105,,*1E\n$GPGGA,124058&#46;959,4026&#46;9373,N,00338&#46;6081,W,1,06,1&#46;4,755&#46;1,M,51&#46;7,M,0&#46;0,0000*60\n$GPGSA,A,3,18,15,06,21,16,03,,,,,,,2&#46;3,1&#46;4,1&#46;8*33\n$GPRMC,124058&#46;959,A,4026&#46;9373,N,00338&#46;6081,W,0&#46;14,5&#46;12,130105,,*12\n$GPGGA,124059&#46;959,4026&#46;9376,N,00338&#46;6085,W,1,06,1&#46;4,753&#46;4,M,51&#46;7,M,0&#46;0,0000*63\n$GPGSA,A,3,18,15,06,21,16,03,,,,,,,2&#46;3,1&#46;4,1&#46;8*33\n$GPRMC,124059&#46;959,A,4026&#46;9376,N,00338&#46;6085,W,0&#46;17,11&#46;41,130105,,*22\n$GPGGA,124100&#46;959,4026&#46;9378,N,00338&#46;6089,W,1,06,1&#46;4,752&#46;1,M,51&#46;7,M,0&#46;0,0000*68\n$GPGSA,A,3,18,15,06,21,16,03,,,,,,,2&#46;3,1&#46;4,1&#46;8*33\n$GPRMC,124100&#46;959,A,4026&#46;9378,N,00338&#46;6089,W,0&#46;14,5&#46;75,130105,,*1C\n$GPGGA,124101&#46;959,4026&#46;9381,N,00338&#46;6092,W,1,05,2&#46;0,750&#46;8,M,51&#46;7,M,0&#46;0,0000*6A\n$GPGSA,A,3,18,06,21,16,03,,,,,,,,2&#46;9,2&#46;0,2&#46;1*30[/code:81ojudb1]','',0,'gIA=','81ojudb1',1,0,'',596,0,0),(33476,7294,6,2,0,'87.218.146.199',1182186656,1,0,1,1,1,1,'','','Donde pone el tabulador ?\n\nNo se ve en el código que has puesto. Márcalo de alguna forma para que se vea, gracias\n\nHas probado a hacer StrTran( cTexto, Chr( 9 ), \"\" ) ?','',0,'gIA=','d1m7ye7f',1,0,'',2,0,0),(33477,7301,6,63,0,'88.11.29.132',1182187291,1,0,1,1,1,0,'','','Muchísimas gracias por tu explicación.  Yo tengo un receptor Keomo al que accedo por Bluetooth, básicamente como tú dices.  Mi programa de tratamiento de GPS corre en un PDA Compaq iPaq muy antiguo, para el que hice un programa mediante FWPPC. De momento va muy bien.\n\nPero mi pregunta era sobre todo para saber qué pasaría si utilizese un PDA HP de esos nuevos que llevan GPS incorporado (y que suelen incorporar software de navegación).  Al tener el receptor incorporado en la propia PDA, supongo que debe haber alguna forma de leer sus cadenas NMEA pero no tengo ni idea de por donde empezar.\n\nAclaremos que no tengo ningun PDA con GPS incorporado, pero que antes de hacer el gasto me gustaría estar seguro de que puedo utilizarlo como te digo.\n\nGracias otra vez, JM.\n\nRafael','',0,'gIA=','1dh3l74b',1,0,'',63,0,0),(33478,7314,3,425,0,'81.84.76.56',1182188053,1,0,1,1,1,0,'','','Antonio\n\nbelow the xml.prg and the xml.ch.\nAs i said, someone adapted the FW to Xh/FWH class that i got in this newsgroup.\n\n\nregards\n                 Pedro\n\n\n\nxml.prg:\n\n#include \"hbclass.ch\"\n#include \"fileio.ch\"\n#include \"common.ch \" \n\nCLASS TXMLWRITE\n\n   DATA  hFile, lFormated, CRLF, aMark\n\n   METHOD New( cOut, cVer, cEncode, cSheet, lFormated ) CONSTRUCTOR\n\n   METHOD Open( cMark, cType, aAttrib, cTag, lClose, cExt )\n   METHOD End() INLINE FClose( ::hFile ) \n   METHOD Procesar( cText )\n   METHOD Close()\n\nEND\n\n//----------------------------------------------------------------------------//\n\nMETHOD New( cOut, cVer, cEncode, cSheet, lFormated ) CLASS TXMLWRITE\n\n    DEFAULT cVer TO \"1.0\"\n    DEFAULT cEncode TO \"ISO-8859-1\"\n\n    //BYNAME lFormated\n\n    ::CRLF  := If( lFormated, Chr(13)+Chr(10), \"\" )\n    ::aMark := {}\n\n    ::hFile := FCreate( AllTrim( cOut ), 0 )\n    ::Procesar( \'&lt;?xml version=\"\' + cVer + \'\"  encoding=\"\' + cEncode + \'\"?&gt;\'  )\n\n    IF !Empty( cSheet )\n       ::Procesar( \'&lt;?xml-stylesheet href=\"\'+ AllTrim( cSheet ) + \'\" Type=\"text/xsl\"?&gt;\'  )\n    END IF\n\nRETURN Self\n\n\nMETHOD Open ( cMark, cType, aAttrib, cTag, lClose, cExt ) CLASS TXMLWRITE\n   Local n, cBuffer\n\n   DEFAULT cTag  TO \"\"\n   DEFAULT cType TO \"\"\n   DEFAULT cExt  TO \"\"\n\n   aAdd( ::aMark, cMark )\n\n   cBuffer := \'&lt;\' + cMark\n\n   IF Len( ::aMark ) == 1\n      cBuffer += \' xmlns:dt=\"urn:schemas-microsoft-com:datatypes\"\'\n   END IF\n\n   IF !Empty( cType )\n      cBuffer += \' dt:dt= \"\' + cType + \'\"\'\n   END IF\n\n   IF Len( aAttrib ) &gt; 0\n      FOR n := 1 TO Len( aAttrib )\n          cBuffer += \' \'+ aAttrib[n,1] + \' = \"\' + aAttrib[n,2] + \'\" \'\n      NEXT\n   END IF\n\n   cBuffer += \'&gt;\' + cTag + If( lClose, \'&lt;/\' + cMark + \'&gt;\' , \"\" )\n   ::Procesar( cBuffer )\n\n   IF lClose\n      aSize( ::aMark, Len( ::aMark ) -1 )\n   END IF\n\nRETURN NIL \n\nMETHOD Close CLASS TXMLWRITE\n\n  ::Procesar( \"&lt;/\" + ::aMark[ Len( ::aMark ) ] + \"&gt;\" )\n  aSize( ::aMark, Len( ::aMark ) -1 )\n\nRETURN NIL \n \nMETHOD  Procesar( cBuffer )  CLASS TXMLWRITE\n\n   Local nSpaces := If( ::lFormated, Len( ::aMark ), 0 )\n\n   cBuffer := Space( nSpaces )+ cBuffer + ::CRLF\n   FWrite( ::hFile, cBuffer, Len( cBuffer ) )\n\nRETURN NIL\n\nxml.ch:\n\n#xcommand XML  &lt;oXml&gt;  FILE &lt;cOut&gt; ;\n                       [ VERSION  &lt;cVer&gt; ] ;\n                       [ ENCODING &lt;cEncode&gt; ] ;\n                       [ STYLESHEET &lt;cSheet&gt; ] ;\n                       [ &lt;lFormated:FORMATED&gt; ];\n       =&gt; ;\n          &lt;oXml&gt; := TXmlWrite():New( &lt;cOut&gt;, &lt;cVer&gt;, &lt;cEncode&gt;, &lt;cSheet&gt;, &lt;.lFormated.&gt; )\n\n#xcommand XML OPEN MARK &lt;cMark&gt; [ TYPE  &lt;cType&gt; ] ;\n                       [ ATTRIB &lt;cAttrib1&gt; VALUE &lt;uVal1&gt;  ;\n                       [ ATTRIB &lt;cAttrib2&gt; VALUE &lt;uValN&gt; ]] ;\n                       [ EXTENDED &lt;uExt&gt; ] ;\n                       [ TAG &lt;cTag&gt; ] ;\n                       [ &lt;lAutoClose:AUTOCLOSE&gt; ];\n                        &lt;of: OF&gt; &lt;oXml&gt;  ;\n       =&gt; ;\n           &lt;oXml&gt;:Open( &lt;cMark&gt;, &lt;cType&gt;,;\n            {   [  { &lt;cAttrib1&gt; ,&lt;uVal1&gt; } ]  [, { &lt;(cAttrib2)&gt; ,&lt;(uValN)&gt;} ]  },;\n            &lt;cTag&gt;, &lt;.lAutoClose.&gt;, &lt;uExt&gt;)\n\n#xcommand XML CLOSE MARK  &lt;of: OF&gt; &lt;oXml&gt;  ;\n       =&gt; ;\n           &lt;oXml&gt;:Close(  )\n\n#xcommand XML END &lt;oXml&gt; ;\n       =&gt; ;\n           &lt;oXml&gt;:End()','',0,'','2s00bzwa',1,0,'',425,0,0),(33479,7317,6,2,0,'87.218.146.199',1182188069,1,0,1,1,1,1,'','','Por favor vuelve a descargar e instalar Harbour desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'','1mff0c3z',1,0,'',2,0,0),(33480,7262,7,840,0,'201.243.2.60',1182188799,1,0,1,1,1,1,'','','ANTONIO\n\nMINVEN-&gt;( OrdScope( 0, \"01\"+cCODTIPO+cNOMBRE ) ) \nMINVEN-&gt;( OrdScope( 1, \"01\"+cCODTIPO+cNOMBRE ) ) \n\noBrw72:GoTop()\n_________________\n\n\nLA OPCION OBRW72:GOTOP() ME DA ERROR DE :\n\nNO EXPORTED METHOD\nGOTOP      \n                   ARGS: 1  = U\n\nANTES NO LO HABIA PUESTO EN EL PROGRAMA PERO PROBANDOLO\nEL LISTBOX ALGUNAS VECES NO SE POSICIONA EN EL PRIMER REGISTRO\nENTIENDO QUE ESA INTRUCION ES PARA POSICIONAR EL LISTBOX\n\n\nSALUDOS DARIO\nHASTA QUE UNO NO OPRIMA LA BARRA DE DESPLAZAMIENTO\n\n\n\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'','7g9zwaf7',1,0,'',840,0,0),(33481,7314,3,2,0,'87.218.146.199',1182189576,1,0,1,1,1,1,'','','Pedro,\n\nYour code is working fine here using FWH 7.05 and Harbour/xharbour. \n\nWe just changed END into ENDCLASS and added ::lFormated := lFormated to Method New()','',0,'','11q0hz5l',1,0,'',2,0,0),(33482,7262,7,2,0,'87.218.146.199',1182189728,1,0,1,1,1,1,'','','Tienes que crear el browse antes de llamar a oBrw72:GoTop()','',0,'','17q26d5k',1,0,'',2,0,0),(33483,7318,6,867,0,'148.243.37.162',1182190283,1,0,1,1,1,0,'','Hola Antonio sobre actualizacion de xHarbour a FiveWin 2.7','Hola Antonio Linares, como esta pues, pregunta, tengo fivewin 2.7 y xharbour 0.99.71, y mi duda pues, afectaria mucho si cada nueva actualizacion de xharbour yo lo actualizara igual a fivewin 2.7¿? aunque es una version inferior o dejarlo con la version que corresponda a Fivewin 2.7, y por otro lado, lei nuevamente las novedades de nueva version de 7.05, pero hasta la fecha mi peticion no ha sido aprobada de incluir la clase BTNGET32, o sera porque no es muy necesaria, es por eso que aun no me decido adquirir el producto de la nueva version\nY por ultimo felicidades a todos los PAPAS en su dia y estuve desconectada por un tiempo de internet, y felicidades Antonio por ser papá....besos y abrazos a todos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nSusy \n<!-- e --><a href=\"mailto:Susan_mx@hotmail.com\">Susan_mx@hotmail.com</a><!-- e -->','',0,'','3p7lni9g',1,0,'',867,0,0),(33484,7318,6,2,0,'87.218.146.199',1182191491,1,0,1,1,1,1,'','','Puedes ir reconstruyendo la librería FiveHX.lib con el xHarbour que estés usando, usando este BAT:\n\nfor %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fivehx.lib -+ %%f /0 /P32,,\n\nEn cuanto a BTNGET32, te pedimos disculpas, pero no nos ha dado tiempo de incluirlo en la versión 7.05','',0,'','23m4gibm',1,0,'',2,0,0),(33485,7317,6,875,0,'64.76.108.179',1182192222,1,0,1,1,1,0,'','','Gracias antonio funciono perfecto    <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','3lio0slc',1,0,'',875,0,0),(33486,7318,6,867,0,'148.243.37.162',1182192534,1,0,1,1,1,0,'','Gracias por responder','[quote=&quot;Antonio Linares&quot;:1oey7j15]Puedes ir reconstruyendo la librería FiveHX.lib con el xHarbour que estés usando, usando este BAT:\n\nfor %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fivehx.lib -+ %%f /0 /P32,,\n\nEn cuanto a BTNGET32, te pedimos disculpas, pero no nos ha dado tiempo de incluirlo en la versión 7.05[/quote:1oey7j15]\n\nHola Gracias por responder Antonio L., yo uso VeRCE 4.3 y creo que no me explique bien, mira ya vi que hay nueva version de fivewin 7.05 y nueva version de xharbour, mi pregunta era, que si esa nueva version de xHarbour, podria yo igual actualizar a la version fivewin 2.7? o es exclusivamente para fivewin 7.05 , por los cambios que se hace, gracias \nSusy','',0,'gA==','1oey7j15',1,0,'',867,0,0),(33487,7318,6,2,0,'87.218.146.199',1182193892,1,0,1,1,1,1,'','','Cada vez que xharbour cambia internamente su \"pcode\", hay que recompilar los PRGs de FWH para poder usarlos juntos.\n\nPuedes usar la nueva versión de xharbour, siempre que recompiles los PRGs que se incluyen en FiveHX.lib con el BAT que te hemos proporcionado','',0,'gA==','svnsvoas',1,0,'',2,0,0),(33488,7314,3,425,0,'81.84.76.56',1182193911,1,0,1,1,1,0,'','','Antonio\n\nThanks very much\n\nI never guess that it was so easyer.\n\nbest regards\n\n                        Pedro Faro','',0,'gA==','2hqt4tt0',1,0,'',425,0,0),(33489,7293,3,58,0,'84.149.91.242',1182197284,1,0,1,1,1,0,'','','Dear friends,\n\nis there no one who could confirm or try this strange validating of xBrowse?\n\nI\'d be glad for any statement.\nRegards,\nDetlef','',0,'gA==','1hiiw33r',1,0,'',58,0,0),(33490,3674,6,1063,0,'164.77.154.66',1182198370,1,0,1,1,1,0,'','','yo igual tenia el mismo problema no me funcionaba el arreglo que llenaba con datos, solo devolvia en blanco, pero al mover la libreria pcrepos a otra posicion mas arriba, funciono sin problemas, ahora el motivode la posicon de esta no lo se, pero me funciona','',0,'gA==','3p0n2m8i',1,0,'',1063,0,0),(33491,7301,6,596,0,'80.28.12.107',1182198905,1,0,1,1,1,1,'','','[quote=&quot;Rafael Clemente&quot;:2f32gppj]...Pero mi pregunta era sobre todo para saber qué pasaría si utilizese un PDA HP de esos nuevos que llevan GPS incorporado (y que suelen incorporar software de navegación).  Al tener el receptor incorporado en la propia PDA, supongo que debe haber alguna forma de leer sus cadenas NMEA pero no tengo ni idea de por donde empezar...[/quote:2f32gppj]\n\nInsisto... el receptor GPS incorporado es como un puerto COM.\nPor ejemplo en la PDA+GPS Acer 510 es el COM6.\nEso si no ejecutes ningun otro software (como el navegador que traiga) ya que si te captura el puerto COM no lo podras usar.\nEl puerto COM solo puede estar usado por un software.\nSi quieres que mas softwares utilicen los datos del mismo GPS (incorporado o no) utiliza GPSgate que duplica las entrada por un COM a varios COM.','',0,'gA==','2f32gppj',1,0,'',596,0,0),(33492,7319,6,52,0,'201.213.38.181',1182199425,1,0,1,1,1,1,'','necesito hacer un footer en twbrowse de hernan','Algun ejemplo?\n\nTengo que ados/zarle a este código un footer.\n\n[code:3orroncx]      REDEFINE LISTBOX oBrw&#91;1&#93; ;\n         FIELDS  &quot;&quot;;\n         HEADERS &quot;Origen&quot;,       ;\n                 &quot;Proveedor&quot;,    ;\n                 &quot;Actual&quot;,       ;\n                 &quot;En curso&quot;,     ;\n                 &quot;Comprom&quot;, ;\n                 &quot;Crítico&quot;       ;\n         sizes 100, 60, ;\n               60, 60, ;\n               60, 60  ;\n         ID 203;\n         OF oFolder&#58;aDialogs&#91;2&#93;;\n         UPDATE;\n         colors CLR_BLACK, rgb&#40; 210, 230, 250 &#41;   // lindo celestito que hace juego con el cursor\n\n         //----------&#40; Configuracion de la TW &#41;----------\n\n         oBrw&#91;1&#93;&#58;cAlias&#58;= &quot;array&quot;\n         oBrw&#91;1&#93;&#58;setarray&#40; vDatosOrigen &#41;\n\n         oBrw&#91;1&#93;&#58;nHeaderHeight &#58;= 21\n         oBrw&#91;1&#93;&#58;nFooterHeight &#58;= 16\n         oBrw&#91;1&#93;&#58;nLineHeight   &#58;= 19\n\n         oBrw&#91;1&#93;&#58;ladjlastcol   &#58;= &#46;t&#46;\n         oBrw&#91;1&#93;&#58;oFont         &#58;= GetFont&#40;&#41;&#58;CELDA\n         oBrw&#91;1&#93;&#58;aHJustify     &#58;= &#123; 2, 2, 2, 2, 2, 2 &#125;\n         oBrw&#91;1&#93;&#58;aJustify      &#58;= &#123; 2, 2, &#46;T&#46;, &#46;T&#46;, &#46;T&#46;, &#46;T&#46; &#125;\n\n         oBrw&#91;1&#93;&#58;lAutoEdit     &#58;= &#46;F&#46;\n         oBrw&#91;1&#93;&#58;lAutoSkip     &#58;= &#46;T&#46;\n         oBrw&#91;1&#93;&#58;lCellStyle    &#58;= &#46;F&#46;\n         oBrw&#91;1&#93;&#58;oHScroll      &#58;= NIL\n\n         oBrw&#91;1&#93;&#58;nLineStyle    &#58;= 10\n\n         // Ajustes del browser\n         oBrw&#91;1&#93;&#58;nAt        &#58;= 1\n\n         oBrw&#91;1&#93;&#58;lAutoEdit  &#58;= &#46;T&#46;\n         oBrw&#91;1&#93;&#58;lAutoSkip  &#58;= &#46;T&#46;\n         oBrw&#91;1&#93;&#58;lCellStyle &#58;= &#46;T&#46;\n         oBrw&#91;1&#93;&#58;nColAct    &#58;= 1\n\n         oBrw&#91;1&#93;&#58;bGotop     &#58;= &#123; || oBrw&#91;1&#93;&#58;nAt&#58;= 1 &#125;\n\n         obrw&#91;1&#93;&#58;bLine      &#58;= &#123; | nAt | nat&#58;= oBrw&#91;1&#93;&#58;nat, ;\n                                             &#123; vDatosOrigen&#91;nat, 1&#93;, vDatosOrigen&#91;nat, 2&#93;, ;\n                                             Transform&#40; vDatosOrigen&#91;nAt, 3&#93;, &quot;@E 9,999&quot; &#41;, ;\n                                             Transform&#40; vDatosOrigen&#91;nat, 4&#93;, &quot;@E 9,999&quot; &#41;, ;\n                                             Transform&#40; vDatosOrigen&#91;nat, 5&#93;, &quot;@E 9,999&quot; &#41;, ;\n                                             Transform&#40; vDatosOrigen&#91;nAt, 6&#93;, &quot;@E 9,999&quot; &#41; &#125; &#125;\n[/code:3orroncx]\n\nGracias.','',0,'AIA=','3orroncx',1,0,'',52,0,0),(33493,6815,6,989,0,'201.245.214.119',1182199468,1,0,1,1,1,0,'','','Solucionado\n\nGracias','',0,'AIA=','3ki1zkkp',1,0,'',989,0,0),(33494,6029,3,284,0,'201.43.156.14',1182202293,1,0,1,0,1,0,'','','[quote:1ycdeh6q]So I got rid of the box and the folders reappeared again[/quote:1ycdeh6q]\n\nSeems to be the order the controls are defined in RC.\nTry to put the box at the begining of the dialog, before the other controls.','',0,'gA==','1ycdeh6q',1,0,'',284,0,0),(33495,7301,6,63,0,'88.11.29.132',1182205056,1,0,1,1,1,0,'','','No creí que fuera tan sencillo...  Le daré unas cuentas vueltas.  Muchas gracias por la info.\nRafael','',0,'gA==','34seagg1',1,0,'',63,0,0),(33496,7320,3,267,0,'200.165.6.112',1182205186,1,0,1,1,1,1,'','What necessary to use archives MS Access with ADORDD?','Hi,\n\nI have an archive MDB that would like to use with the ADORDD. Necessary to install or he configures something to obtain to use?\n\nIf I only include libs appears the following message of error:\n\nerror adox.catalog:tables:keys/16389 E_FAIL: COUNT from Errorsys, line: 0','',0,'gA==','34jx64rv',1,0,'',267,0,0),(33497,7319,6,36,0,'200.113.56.235',1182205210,1,0,1,1,1,1,'','','[code:dsoq22pi]oBrw&#58;lDrawFooters &#58;= &#46;t&#46;\noBrw&#58;aFooters    &#58;= &#123; &quot;&quot;, &quot;&quot;, trans&#40;ntot, &quot;@E 9,999,999,999&quot; &#41; &#125;\n[/code:dsoq22pi]\nla cantidad de columnas....','',0,'AIA=','dsoq22pi',1,0,'',36,0,0),(33498,7321,3,178,0,'71.29.201.239',1182207585,1,0,1,1,1,1,'','Generate image with text','Hello all,\n\nI need to get Ascii text data into any image file format. Any suggestions?\n\nThanks','',0,'AIA=','2cycpea4',1,0,'',178,0,0),(33499,7320,3,2,0,'87.218.146.199',1182208160,1,0,1,1,1,1,'','','Vilian,\n\nAre you using the most recent ADORDD from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w --> ?','',0,'AIA=','3fug3v1g',1,0,'',2,0,0),(33500,7321,3,2,0,'87.218.146.199',1182208292,1,0,1,1,1,1,'','','You can write text on top of an image:\n\noImage:Say( nRow, nCol, cText, ... )\n\nPlease review Class TWindow Method Say(). As Class TImage inherits from TControl and TControl from TWindow, then you can use Method Say() on a TImage object too','',0,'AIA=','dzsvje2z',1,0,'',2,0,0),(33501,7293,3,2,0,'87.218.146.199',1182208471,1,0,1,1,1,1,'','','Detlef,\n\nIn mallorca.prg sample, this line seems not to be needed:\n\n   oBrw:aCols[1]:bOnPostEdit  := {|o,x| aLin[ oBrw:nArrayAt,1] := x } \n\nas such assignment should be done by the GET itself','',0,'','3gv60nmj',1,0,'',2,0,0),(33502,7319,6,52,0,'201.213.38.181',1182209767,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:3ojrrebh][code:3ojrrebh]oBrw&#58;lDrawFooters &#58;= &#46;t&#46;\noBrw&#58;aFooters    &#58;= &#123; &quot;&quot;, &quot;&quot;, trans&#40;ntot, &quot;@E 9,999,999,999&quot; &#41; &#125;\n[/code:3ojrrebh]\nla cantidad de columnas....[/quote:3ojrrebh]\n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> gracias.','',0,'gIA=','3ojrrebh',1,0,'',52,0,0),(33503,7322,3,35,0,'65.188.6.143',1182210238,1,0,1,1,1,0,'','ADO Absoluteposition','To All\n\nI am running a roadblock and need to be able to store a recno to an array of 10 records. The only way I know how to update a record was to store the record number of the table in an element. WHen I go update the rows .. I just goto nRecno and Update my variables.\n\nI do not have a problem getting a \"suedo\" record number with :\n\n nRec := oRs:AbsolutePosition  // -- get recno()\n oRs:AbsolutePosition := nRec  // -- goto nRecno\n\nHowever since a recordset is not exactically a static commodity .. what are the pros and cons of using the above logic in moving between ( suedo ) records ??\n\nUnforunitly .. creating a unique sequence id per record is not an option.\n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'gIA=','kt7zet05',1,0,'',35,0,0),(33504,7321,3,178,0,'71.29.201.239',1182210647,1,0,1,1,1,1,'','','Antonio,\n\nThanks for the quick response.\n\nMy problem my be more complicated. I am looking to use freeimage \nto create a tif.\n\nI need to make the final image file contain the text.\n\nThe Image:say() does not modify the image object  before I save it in freeimage.\n\nThanks','',0,'gIA=','25wwoc3j',1,0,'',178,0,0),(33505,7320,3,267,0,'201.9.190.219',1182220641,1,0,1,1,1,1,'','','Antonio,\n\nThanks.','',0,'gIA=','2fliornv',1,0,'',267,0,0),(33506,7323,6,439,0,'200.125.44.112',1182224783,1,0,1,1,1,1,'','BtnBmp y XP','Los btnbmp no se ven igual a los button con los temas XP, eso puede corregirse o hay algún otro control nativo que permita un botón con imagen y se vea mejor?\n\nUso FWH 7.01 y xHarbour distribuído con él.','',0,'gIA=','2v9wl2he',1,0,'',439,0,0),(33507,7310,6,413,0,'195.55.176.112',1182231113,1,0,1,1,1,1,'','','Gracias no conocia esta web...\n\nSaludos desde Mallorca','',0,'gIA=','3mh20s7m',1,0,'',413,0,0),(33508,7293,3,58,0,'84.149.74.171',1182236163,1,0,1,1,1,0,'','','Antonio,\n\nsorry, but it still doesn\'t work.\n\nIf i remove the line\n[code:1wr69vbv]oBrw&#58;aCols&#91;1&#93;&#58;bOnPostEdit &#58;= &#123;|o,x| aLin&#91; oBrw&#58;nArrayAt,1&#93; &#58;= x &#125;[/code:1wr69vbv]\nthe program complains at runtime that onPostEdit is not defined.\n\nIf i set it to NIL, i can not enter new values because they are not assigned.\n\nRegards,\nDetlef','',0,'AIA=','1wr69vbv',1,0,'',58,0,0),(33511,7323,6,2,0,'87.218.146.199',1182240944,1,0,1,1,1,1,'','','Jose,\n\nTienes que usar la Clase TButtonBmp. \n\nRevisa el ejemplo samples\\TestBuBm.prg','',0,'EA==','1dglv9vh',1,0,'',2,0,0),(33512,7321,3,2,0,'87.218.146.199',1182241196,1,0,1,1,1,1,'','','Dave,\n\nOnce you write on top of the image then you can do this:\n\n   DibWrite( \"screen.bmp\", DibFromBitmap( WndBitmap( oImage:hWnd ) ) )','',0,'EA==','2ng0jn9l',1,0,'',2,0,0),(33513,7321,3,2,0,'87.218.146.199',1182241460,1,0,1,1,1,1,'','','If you need to save it in a different format from BMP, please review Class TImage Method SaveImage(), and modify it based on the previous msg source code','',0,'EA==','185fdrxp',1,0,'',2,0,0),(33514,7293,3,2,0,'87.218.146.199',1182241538,1,0,1,1,1,1,'','','Detlef,\n\nI didn\'t meant to remove it. My point is that it does not seems to be the right code','',0,'EA==','1nwyvgzr',1,0,'',2,0,0),(33515,7293,3,58,0,'84.149.91.122',1182242221,1,0,1,1,1,0,'','','Antonio,\n\ni know, you didn\'t say to remove this line.\nBut you said [quote:fj4r35d0]... as such assignment should be done by the GET itself[/quote:fj4r35d0]\n\nBut the get doesn\'t assign the value as expected. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nRegards,\nDetlef','',0,'gA==','fj4r35d0',1,0,'',58,0,0),(33516,7321,3,178,0,'71.29.201.239',1182254266,1,0,1,1,1,1,'','','Antonio,\n\nIt is looking good!\n\nThanks for the help','',0,'gA==','2t9o3g1f',1,0,'',178,0,0),(33517,7322,3,6,0,'87.3.228.125',1182254372,1,0,1,1,1,1,'','Re: ADO Absoluteposition','You can\'t use AbsolutePosition property across different recordset. The right solution is using an Id field (that you should have anyway).\n\nEMG','',0,'gA==','3eqmkmas',1,0,'',6,0,0),(33518,7259,3,32,0,'216.6.55.242',1182255082,1,0,1,1,1,0,'','Highlighting','Hi,\n\nThe highlight seems to work, but the menu still \"thinks\" it is not highlighted, as you must press down twice to get off the first row. Is there a way around this?\n\nAlex','',0,'gA==','2up4m2r1',1,0,'',32,0,0),(33519,7324,6,41,0,'167.157.3.124',1182257907,1,0,1,1,1,0,'','Cosas con Excel','Hola Foro,\n\nTengo que solucionar un problema con Excel, aqui en la oficina, crearon un documento excel para calcular algunas cosas de costos, hay dos hojas de datos de entrada y cinco de resultados en funcion a las hojas de entrada.\n\nLo que desean hacer es no mostrar el Excel de manera directa, es decir (1) alimentar las hojas de entrada de alguna manera y (2) obtener las de salida de otra, pregunto para:\n\n(1) Podria utilizar para ello la clase de Viktor TexcelScript? supongo que si, pregunta donde bajo la ultima version\n\n(2) Es posible con ActiveX mostrar una sola hoja de un documento excel en una ventana o dialogo sin la barra de herramientas o menus de Excel, ademas, sera posible llamar a la impresion desde un boton hecho en FW y claro a demas funcionanlidades como configuracion de pagina.\n\nSi tienen algun ejemplo se los agradecere infinitamente.\n\nsaludos\n\nMarcelo','',0,'gA==','18n5vcoo',1,0,'',41,0,0),(33520,7284,6,979,0,'195.53.199.6',1182259398,1,0,1,1,1,0,'','Problemas con FWH 2.6 (abril 2.005) y Harbour','Hola Antonio,\n\nCompilé todos los prg como comentabas para construir de nuevo fiveh.\nPero me encuentro con el siguiente problema cuando pretendo linkar algun programa como el ejemplo com3d.prg.\n¿Puedes orientarme como solventar el problema?\n\nSaludos,\n\nTe adjunto el error de linkage.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_CLASSCREATE\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN_CLASSOBJECT\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN_DBCREATEEXTSTRUCT\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN_DBCREATEFROM\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN_FIELDINFO\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN_DBESETDEFAULT\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN_DBELOAD\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN_DBEBUILD\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN__EARLYBOUNDCODEBLOCK\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10\nError: Unresolved external \'_HB_FUN__SYMRELEASE\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10','',0,'gA==','ac5yt3f3',1,0,'',979,0,0),(33521,7292,6,171,0,'71.233.232.238',1182259446,1,0,1,1,1,0,'','','Francisco te agradezco tu ayuda en este asunto.\n\nEspero encontrar una solucion a este problema sin tener que abandonar xHarbour por Harbour. \nYo pienso que, si el problema es debido a que uso xHarbour, quizas Alfredo Arteaga pudiera encontrar una solucion al mismo.\n\nSaludos,\n\nGeorge','',0,'gA==','3mvl7kxg',1,0,'',171,0,0),(33522,7268,6,147,0,'200.45.54.134',1182259636,1,0,1,0,1,1,'','','Antonio; muchas gracias por responder\nPosiblemente 4 ojos ven mejor que dos; no encuentro el error\n\nLa linea que ejecuta el  ilink es:\n[code:3uzx1zsq]%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v -L%bcdir%\\lib @b32&#46;bc[/code:3uzx1zsq]\n\ny el contenido del b32.bc es:\n[code:3uzx1zsq]\nc0w32&#46;obj + \nprueba&#46;obj, + \nprueba&#46;exe, + \nprueba&#46;map, + \nd&#58;\\Xharbour\\fwh\\lib\\fiveHC&#46;lib d&#58;\\Xharbour\\fwh\\lib\\Fivehx&#46;lib  + \nd&#58;\\vtaskbar\\libxharbour\\c5taskxh&#46;lib + \nd&#58;\\vtaskbar\\vC5Func\\libxhb\\c5xh&#46;lib + \nd&#58;\\Xharbour\\lib\\rtl&#46;lib + \nd&#58;\\Xharbour\\lib\\vm&#46;lib + \nd&#58;\\Xharbour\\lib\\gtwin&#46;lib + \nd&#58;\\Xharbour\\lib\\lang&#46;lib + \nd&#58;\\Xharbour\\lib\\macro&#46;lib + \nd&#58;\\Xharbour\\lib\\rdd&#46;lib + \nd&#58;\\Xharbour\\lib\\dbfntx&#46;lib + \nd&#58;\\Xharbour\\lib\\dbfcdx&#46;lib + \nd&#58;\\Xharbour\\lib\\dbffpt&#46;lib + \nd&#58;\\Xharbour\\lib\\hbsix&#46;lib + \nd&#58;\\Xharbour\\lib\\debug&#46;lib + \nd&#58;\\Xharbour\\lib\\common&#46;lib + \nd&#58;\\Xharbour\\lib\\pp&#46;lib + \nd&#58;\\bcc55\\lib\\cw32&#46;lib + \nd&#58;\\bcc55\\lib\\import32&#46;lib + \nd&#58;\\bcc55\\lib\\psdk\\odbc32&#46;lib + \nd&#58;\\bcc55\\lib\\psdk\\rasapi32&#46;lib + \nprueba&#46;res\n[/code:3uzx1zsq]\n\nEstá por ahí el error?','',0,'AIA=','3uzx1zsq',1,0,'',147,0,0),(33523,7325,6,875,0,'64.76.108.179',1182269503,1,0,1,1,1,0,'','Desactivar Barra Vertical del TwBrowse()','Es posible desactivar la barra Vertical de desplazamiento del Twbrowse() \npara que no me permita moverme en Grupos de registros, Solo quiero moverme de 1 en 1 nada mas.\n\nGracias de antemano\n\n\nJaime','',0,'AIA=','3p0d5lka',1,0,'',875,0,0),(33524,7326,20,1082,0,'85.43.122.34',1182270544,1,0,1,1,1,0,'','Utilizzo DLL','Con Fivewin 1.9.2 nella mia applicazione avevo il file \"miofile.dll\" nel quale tramite resource workshop avevo inseriro le mie dialgo le mie icone e i mie button, quindi per recuperarli all\'inizio della procedura mettevo un bel\nSET RESOURCES TO \"miofile.DLL\"\ne la cosa funzionava,\nora invece con FWH &amp; xharbour mettendo questa istruzione al lancio dell\'exe mi da l\'errore:\n\n\"L\'applicazione o DLL ........ non è un\'immagine valida di windows. verificare con il dischetto di installazione\"\n\nperchè?','',0,'AIA=','1a1f45bx',1,0,'',1082,0,0),(33525,7327,6,979,0,'88.23.32.1',1182271669,1,0,1,1,1,0,'','Problemas Fwh 2.6 (abril 2.005) con Harbour','Hola Antonio, \n\nCompilé todos los prg como comentabas para construir de nuevo fiveh. \nPero me encuentro con el siguiente problema cuando pretendo linkar algun programa como el ejemplo com3d.prg. \n¿Puedes orientarme como solventar el problema? \n\nSaludos, \n\nTe adjunto el error de linkage. \n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland \nError: Unresolved external \'_HB_FUN_CLASSCREATE\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN_CLASSOBJECT\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN_DBCREATEEXTSTRUCT\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN_DBCREATEFROM\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN_FIELDINFO\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN_DBESETDEFAULT\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN_DBELOAD\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN_DBEBUILD\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN__EARLYBOUNDCODEBLOCK\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10 \nError: Unresolved external \'_HB_FUN__SYMRELEASE\' referenced from D:\\FWH\\LIB\\FIVEH.LIB|db10','',0,'AIA=','2c5lxx8v',1,0,'',979,0,0),(33526,7284,6,2,0,'87.218.146.199',1182275290,1,0,1,1,1,1,'','','El PRG db10.prg no debes incluirlo, ya que pertenece a FW++ y no a FWH','',0,'AIA=','5idclo9g',1,0,'',2,0,0),(33527,7327,6,2,0,'87.218.146.199',1182275310,1,0,1,1,1,1,'','','El PRG db10.prg no debes incluirlo, ya que pertenece a FW++ y no a FWH','',0,'AIA=','1mkkfxfh',1,0,'',2,0,0),(33528,7268,6,2,0,'87.218.146.199',1182275450,1,0,1,1,1,1,'','','te falta una coma en la penúltima línea:\n\nd:\\bcc55\\lib\\psdk\\rasapi32.lib[color=red:2yd4pddg],[/color:2yd4pddg] + \nprueba.res','',0,'Ag==','2yd4pddg',1,0,'',2,0,0),(33529,7325,6,2,0,'87.218.146.199',1182275572,1,0,1,1,1,1,'','','Jaime,\n\nSi estás creando el browse desde recursos, no uses el estilo WS_VSCROLL en el recurso\n\nSi lo estas creando desde código fuente, prueba a hacer:\n\noBrowse:oVScroll:SetRange( 0, 0 )','',0,'Ag==','324lxulx',1,0,'',2,0,0),(33530,7259,3,2,0,'87.218.146.199',1182275669,1,0,1,1,1,1,'','','Alex,\n\nYou could try to send a WM_KEYDOWN to the popup:\n\nSendMessage( oPopup:hMenu, WM_KEYDOWN, VK_DOWN )','',0,'Ag==','24bw3yp3',1,0,'',2,0,0),(33531,7328,1,47,0,'58.8.104.226',1182275774,1,0,1,1,1,0,'','How to change Bitmap on the fly for SBTN?','Dear All,\n\nHow to change BitMap (Resource) in TSBUTTON after Dialog ACTIVATE?\n\nExample  ( not work )\n======\n[code:1c4o2uu4]\nDEFINE DIALOG RESOURCE \'TEST\'\n\nREDEFINE SBUTTON oBtn PROMPT \'TEST\' ID 11 OF oDlg ;\n                ACTION ChangeBitMap&#40; oBtn &#41; \n\nACTIVATE DIALOG oDlg\n\nFunction ChangeBitMap&#40; oBtn &#41;\noBtn&#58;hBitMap1 &#58;= LoadBitmap&#40; GetResources&#40;&#41;, \'SMILE\' &#41;\noBtn&#58;Refresh&#40;&#41;\nreturn nil\n[/code:1c4o2uu4]\n\nBest Regards,\nDutch','',0,'AIA=','1c4o2uu4',1,0,'',47,0,0),(33532,7328,1,2,0,'87.218.146.199',1182276811,1,0,1,1,1,1,'','','Dutch,\n\nTry it this way:\n\n[code:2cmblzr9]\nREDEFINE SBUTTON oBtn PROMPT \'TEST\' ID 11 OF oDlg ; \n                ACTION &#40; oBtn&#58;LoadBitmaps&#40; &quot;smile&quot; &#41;, oBtn&#58;Refresh&#40;&#41; &#41;\n[/code:2cmblzr9]','',0,'AIA=','2cmblzr9',1,0,'',2,0,0),(33533,7325,6,875,0,'64.76.108.179',1182277937,1,0,1,1,1,0,'','','@ 01,01 ListBox oBrwb Fields H1-&gt;Fh01_his,H1-&gt;Fh01_pap, ;\n                       H1-&gt;Fh01_pam,H1-&gt;Fh01_pnm,Str(H1-&gt;Fh01_carne,10) ;\n         Header \'Historia\',\'Apellido Paterno\',\'Apellido Materno\', ;\n                \'Nombre\',\'Nro.Multicl\' ;\n         Size 292,130 On DblClick Get_data(oDlgb,@_Jhis,@_Sva_)\n\n       oBrwb:oVScroll:SetRange(0,0)\n\n\nLo probe y salio error:\n\nError description: Error BASE/1004 No exported \n   method: SETRANGE\n\nCalled from: =&gt; SETRANGE(0)     <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'AIA=','2z5fum7o',1,0,'',875,0,0),(33534,7329,6,41,0,'200.105.194.234',1182278675,1,0,1,1,1,0,'','Clase TExcelScript de Viktor','Holas,\n\nen lo que vengo viendo de mi problema con Excel, he bajado la clase de Viktor de las utilizadades del foro, del encabezado del PRG\n\n\n * Clase TExcelScript v1.14  06-Feb-2004\n *\n * Esta Clase usa la Libreria Ole2 de José F. Giménez\n *\n * Autor: Víctor Manuel Tomas Díaz [Vikthor]\n\nEspero que sea la ultima. Tengo los siguientes problemas, al inicial me da el error :\n\n     No está Excel Instalado en está PC\n\nTengo instalado el office 2003, pero igual pasa el mensaje y se puede trabajar.\n\nNo me funcionan los metodos :save() ni :saveas(), del error.log\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:SAVE(0)\n   Called from: Texcels.prg =&gt; (b)TEXCELSCRIPT&#058;TEXCELSCRIPT(132)\n   Called from:  =&gt; TEXCELSCRIPT&#058;SAVE(0)\n   Called from: test2.prg =&gt; MAIN(30)\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:SAVEAS(0)\n   Called from: Texcels.prg =&gt; (b)TEXCELSCRIPT&#058;TEXCELSCRIPT(133)\n   Called from:  =&gt; TEXCELSCRIPT&#058;SAVEAS(0)\n   Called from: test2.prg =&gt; MAIN(32)\n\nEl ejemplo es simplie\n\n[quote:jwo2e3uj] \n#include \"FiveWin.ch\"\n\nstatic oExcel\n\nFUNCTION main()\n   LOCAL cOrigen := cFilePath( GetModuleFileName( GetInstance() )) + \"Test.xls\", n,;\n         destino := cFilePath( GetModuleFileName( GetInstance() )) + \"Test1.xls\"\n\n  oExcel := TExcelScript():New()\n\n  oExcel:Open( cOrigen )\n\n  oExcel:Visualizar(.F.)\n\n  oExcel:Say( 1, 1, 10, \"ARIAL\", 10, .T., .T. )\n  oExcel:Say( 2, 1, 20, \"ARIAL\", 12, .T., .T. )\n  oExcel:Say( 3, 1, 30, \"ARIAL\", 14, .T., .T. )\n\n//  oExcel:Save()\n  oExcel:SaveAs( destino )\n\n  oExcel:End(.F.)\n  \nRETURN ( .T. )\n\n[/quote:jwo2e3uj]\n\nAlguna ayuda,\n\nsaludos\n\nMarcelo','',0,'gA==','jwo2e3uj',1,0,'',41,0,0),(33535,7325,6,2,0,'87.218.146.199',1182278709,1,0,1,1,1,1,'','','Comprueba que no sea nil:\n[code:1mxtvjk7]\nif oBrwb&#58;oVScroll != nil \n   oBrwb&#58;oVScroll&#58;SetRange&#40;0,0&#41; \nendif\n[/code:1mxtvjk7]','',0,'AIA=','1mxtvjk7',1,0,'',2,0,0),(33536,7329,6,940,0,'189.157.95.90',1182279976,1,0,1,1,1,1,'','','Marcelo, \n\nque compilador usas?  xhb o Hb.\n\nsaludos.','',0,'AIA=','2jg11qtd',1,0,'',940,0,0),(33537,7329,6,41,0,'200.105.194.234',1182280246,1,0,1,1,1,0,'','','Hola,\n\nutilizo xHarbour\n\nsaludos\n\nMarcelo','',0,'AIA=','3cb59l0j',1,0,'',41,0,0),(33538,7330,6,75,0,'83.39.112.168',1182280791,1,0,1,1,1,0,'','Calculadora Calculator','Les remito esta calculadora con rollo de papel virtual (listbox para los amigos) que a alguno le puede ser de utilidad.\n\n[color=blue:xqqgg0vm]http://hyperupload.com/download/026d3ca211/Calculadora.rar.html [/color:xqqgg0vm]\n\nComo es la primera clase que escribo espero que sean lo suficientemente severos con sus críticas como para que me sirvan para ver que debí o no haber hecho.\n\nEn cualquier caso, la calculadora funciona.\n\nEspero sus constructivos comentarios.\n\nSaludos.','',0,'Ag==','xqqgg0vm',1,0,'',75,0,0),(33539,7311,6,1055,0,'84.125.133.194',1182280972,1,0,1,1,1,0,'','','Muchas Gracias René','',0,'Ag==','2lsxmtfk',1,0,'',1055,0,0),(33540,7299,6,1055,0,'84.125.133.194',1182281071,1,0,1,1,1,0,'','','Desde ON INIT tampoco va. Pero Gracias de todas formas','',0,'Ag==','d2ud4ulq',1,0,'',1055,0,0),(33541,7329,6,940,0,'189.157.95.90',1182281416,1,0,1,1,1,1,'','','Marcelo yo tuve un problema parecedio ,  \n\nhice un cambio en el metodo NEW de la class\n\naqui un pedazo de codigo\n\n\nMETHOD NEW()  CLASS TExcelScript\n   ::lExcel  := .T.\n   #IFDEF __XHARBOUR__\n      TRY\n      //::oExcel := TOleAuto():New(\"Excel.Application\")   //funciona bien.\n        // getactiveOb marca error si el archivo esta abierto ..\n        // ::oExcel := GetActiveObject( \"Excel.Application\" )\n        ::oExcel := CreateObject( \"Excel.Application\" ) //este funciona bien\n      CATCH\n         TRY\n            ::oExcel := CreateObject( \"Excel.Application\" ) //no trabaja\n         CATCH\n            Alert( \"No está Excel Instalado en está Pc.\" )\n            ::lExcel  := .F.\n         END\n      END\n   #ELSE\n     ::oExcel := TOleAuto():New( Excel.Application ) //no trabaja\n     IF ::oExcel:hObj == 0\n         Alert( \"No está Excel Instalado en está Pc.\" )\n        ::lExcel := .F.\n      ENDIF\n\n   #ENDIF\n   ::oClip:=TClipBoard():New()\n   ::oClip:Clear()\n   ::aExcelCols := {}\nRETURN( Self )\n\nsaludos...','',0,'Ag==','uxdr08iq',1,0,'',940,0,0),(33542,7275,3,103,0,'201.8.37.162',1182281602,1,0,1,1,1,1,'','','After a few days without accessing internet, I am back to tell you that the problem was solved, but it was not a duplicated ENDPAGE. In fact the problem was more complex that I was supposing to.\nIn my routine, I put in the ON END clause a function that makes a DO WHILE... !EOF() over an other DBF and the TReport:lFinish was (logically) setted TRUE and when the function reaches the end of the page, the problem occurs. But now it\'s ok, I just put ::lFinish:=.F. and after the DO WHILE setted again to .T.\n\nThanks for all opinions and help,\n\nBest Regards,','',0,'Ag==','3njfwi8c',1,0,'',103,0,0),(33543,7330,6,75,0,'83.39.112.168',1182281652,1,0,1,1,1,0,'','','A ver si en esta direcciónlo descarga porque es la priemra vez que uso hyperupload y no se si lo hago bien:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/026d3ca233/Calculadora.rar.html\">http://hyperupload.com/download/026d3ca ... a.rar.html</a><!-- m -->','',0,'Ag==','3vfrcvna',1,0,'',75,0,0),(33544,7330,6,75,0,'83.39.112.168',1182281757,1,0,1,1,1,0,'','','Definitivamente no lo se subir a hiperupload porque me da un tamaño de 0kb. Si alguien me dice como subirlo lo podré enviar.\n\nSaludos.','',0,'Ag==','1pwt4gr0',1,0,'',75,0,0),(33545,7326,20,6,0,'87.19.210.141',1182283022,1,0,1,1,1,1,'','Re: Utilizzo DLL','Perché una DLL di risorse a 16 bit non può ovviamente funzionare con un programma a 32 bit. Devi convertirla a 32 bit. Per prima cosa caricala nel Borland Resource Workshop (o in qualunque editor di risorse tu usi) e salva le risorse come .RC. Poi usa il batch rc2dll32.bat che trovi nella cartella DLL delle FWH.\n\nEMG','',0,'Ag==','7h7k9zbc',1,0,'',6,0,0),(33546,7331,6,1024,0,'201.228.131.58',1182283112,1,0,1,1,1,1,'','combinar correspondencia','Alguien tiene un ejemplo de como combinar correspondencia con\nRichEdit o con Word.\n\nMil Gracias','',0,'Ag==','2q498u1o',1,0,'',1024,0,0),(33547,7299,6,2,0,'87.218.146.199',1182285479,1,0,1,1,1,1,'','','Este codigo funciona correctamente:\n[code:f2j9jmez]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT &#40; oDlg&#58;nWidth &#58;= 50, oDlg&#58;nHeight &#58;= 50 &#41;\n\nreturn nil\n[/code:f2j9jmez]','',0,'AIA=','f2j9jmez',1,0,'',2,0,0),(33548,7332,6,435,0,'200.155.202.240',1182285980,1,0,1,1,1,0,'','Mudar aparencia da TDialog','E possivel mudar a aparencia de uma DIALOG como o Nero ?\no contorno da Janela \n\nAri','',0,'AIA=','tqzdjhg6',1,0,'',435,0,0),(33549,7329,6,41,0,'200.105.194.234',1182287030,1,0,1,1,1,0,'','','Hola,\n\nsi, efectivamente con eso se soluciono la creacion de la clase, pero no asi, los metodos save() y saveas(), tienes idea que puede ser.\n\nGracias\n\nMarcelo','',0,'AIA=','1vi9fa4n',1,0,'',41,0,0),(33550,7268,6,147,0,'201.253.41.115',1182292822,1,0,1,0,1,1,'','','muchas gracias!','',0,'AIA=','ltviqylm',1,0,'',147,0,0),(33551,7333,6,743,0,'201.116.76.180',1182292881,1,0,1,1,1,0,'','ayuda error DBFCDX/1025 write not allwolled','alguien sabe como colucionar este error.\n\n\ngracias','',0,'AIA=','fn1lqwhp',1,0,'',743,0,0),(33552,7334,4,529,0,'200.159.199.104',1182302342,1,0,1,1,1,0,'','siemens sx45 pocket pc win ce 3..0','hi, i am trying the tutors of fivetech in pocket pc siemens sx45 windows ce 3.0.9348 processor mips vr4122, but dont work... theres any way to work?\nthanks','',0,'AIA=','1jst84ml',1,0,'',529,0,0),(33553,7335,6,78,0,'190.40.238.223',1182307347,1,0,1,1,1,0,'','Para Rafa...','Hola, es posible controlar una filmacion con una webcam con FW ?\nSalu2','',0,'AIA=','jr59k3lb',1,0,'',78,0,0),(33554,7328,1,47,0,'58.8.104.226',1182310385,1,0,1,1,1,0,'','','Dear Antonio,\n\nThanks for your prompt reply.  I\'ve got it.\n\n[code:23z90q40]\nDEFINE DIALOG RESOURCE \'TEST\' \n\nREDEFINE SBUTTON oBtn PROMPT \'TEST\' ID 11 OF oDlg ; \n                ACTION ChangeBitMap&#40; oBtn &#41; \n\nACTIVATE DIALOG oDlg \n\nFunction ChangeBitMap&#40; oBtn &#41; \noBtn&#58;LoadBitmaps&#40; &#123; \'SMILE\' &#125;, &#123;&#125; &#41;   // &#40; aResource, aBmpFile &#41;\noBtn&#58;Refresh&#40;&#41; \nreturn nil \n[/code:23z90q40]\n\nBest regards,\nDutch','',0,'AIA=','23z90q40',1,0,'',47,0,0),(33555,7336,1,705,0,'61.0.136.30',1182312485,1,0,1,1,1,0,'','How to use Enter key on Combobox','Hi Everybody,   \n\n   While I am pressing ENTER on Combobox, Cursor do not move in next   get field. If I press Tab bottom, then only Cursor move to next field.  \n\n   How Can I use Enter, to move Cursor to next field. My code is as    follows. \n[code:3n2skyhc]\n     REDEFINE COMBOBOX oCbx VAR cCuTy ITEMS  &#123; &quot;URBAN &quot;, &quot;RURAL &quot;, &quot;DEEPAM&quot;, &quot;COMMON&quot; &#125;               ;\n      ID 2 OF oDlg1                                                                                   ;\n      ON CHANGE MsgBeep&#40;&#41;                                                                             ;\n      Valid If&#40;cCuTy = oCbx&#58;aItems&#91;1&#93;,  &#40;oArea&#58;AreaType &#58;= &quot;U&quot;, &#46;T&#46;&#41;, If&#40;cCuTy = oCbx&#58;aItems&#91;2&#93;,      ;\n                                        &#40;oArea&#58;AreaType &#58;= &quot;R&quot;, &#46;T&#46;&#41;, If&#40;cCuTy = oCbx&#58;aItems&#91;3&#93;,      ;\n                                        &#40;oArea&#58;AreaType &#58;= &quot;D&quot;, &#46;T&#46;&#41;, &#40;oArea&#58;AreaType &#58;= &quot;C&quot;, &#46;T&#46;&#41;&#41;&#41;&#41; ;\n      Picture &quot;@!&quot; Color RGB&#40;0, 0, 0&#41;, RGB&#40;255, 255, 255&#41;\n[/code:3n2skyhc]\n\n   With regads,\n\n   Arindam','',0,'AIA=','3n2skyhc',1,0,'',705,0,0),(33556,7334,4,2,0,'87.218.146.199',1182320838,1,0,1,1,1,1,'','','If I am not wrong, processor mips is not ARM compatible\n\nDo you get any error message ?','',0,'AIA=','1l3m3p61',1,0,'',2,0,0),(33557,7326,20,1082,0,'85.43.122.34',1182324576,1,0,1,1,1,0,'','','Grazie Enrico... devoto!','',0,'AIA=','32fj9tea',1,0,'',1082,0,0),(33558,7337,6,92,0,'80.33.140.85',1182324605,1,0,1,1,1,0,'','miexe.exe con argumento','Buenos días,\n\nNo recuerdo como se hace para poder captruar dentro de un EXE el argumento con el que se ha llamado.\n\np.e.   \"miapliacion.exe candela\"\n\ndentro de miaplicción.exe quisiera asociar el valor \"candela\" a una variable.\n\nQue función permite obtener el valor de \"candela\"?\n\nSaludos y gracias\nCarlos G.','',0,'AIA=','1ixobfg4',1,0,'',92,0,0),(33559,7319,6,52,0,'201.213.38.181',1182326053,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:3j92se3v][code:3j92se3v]oBrw&#58;lDrawFooters &#58;= &#46;t&#46;\noBrw&#58;aFooters    &#58;= &#123; &quot;&quot;, &quot;&quot;, trans&#40;ntot, &quot;@E 9,999,999,999&quot; &#41; &#125;\n[/code:3j92se3v]\nla cantidad de columnas....[/quote:3j92se3v]\n\nEstimado.\n\nEs necesario refrescar los footers en la twbrowse? como?\n\nYo refresco el browser, pero no veo reflejado los valores de los footers.\n\nGracias.','',0,'gIA=','3j92se3v',1,0,'',52,0,0),(33560,7319,6,106,0,'85.34.123.173',1182326360,1,0,1,1,1,1,'','','Hola, \n\n\nyo lo hago asi:\n\n\noBrw:aFooters := {|| TotxCespite( aElenco ) }\n\ny en la funcion, devuelvo un array con los resultados.\n\n\nFUNCTION TotxCespite( aElenco )\n\naArray := { \"Totale ammortizzato: \"+TRANSFORM( nTotAmm, \"@e 999,999,999.99\" ), \"\", \"\", \"\", \"\", \"\"}\n\nRETURN aArray\n\n\n\nSaludos','',0,'gIA=','3ffq8x7s',1,0,'',106,0,0),(33561,7337,6,2,0,'87.218.146.199',1182327203,1,0,1,1,1,1,'','','Carlos,\n\nEn tu función principal sólo tienes que declarar el parámetro:\n\nfunction Main( cParam )\n\ncParam contendrá lo que le pases a la aplicación.\n\nOtra forma es llamar a MsgInfo( HB_ArgV( 1 ) )','',0,'gIA=','273lih82',1,1182351321,'',2,1,0),(33562,7337,6,92,0,'213.96.45.9',1182328554,1,0,1,1,1,0,'','','Gracias,\n\nMás simple no podía ser.\n\nSaludos\nCarlso G.\n\n[quote=&quot;Antonio Linares&quot;:243n89zd]Carlos,\n\nEn tu función principal sólo tienes que declarar el parámetro:\n\nfunction Main( cParam )\n\ncParam contendrá lo que le pases a la aplicación.\n\nOtra forma es llamar a MsgInfo( HB_ArgV[ 1 ] )[/quote:243n89zd]','',0,'gA==','243n89zd',1,0,'',92,0,0),(33563,7336,1,1077,0,'80.77.147.50',1182329252,1,0,1,1,1,0,'','','-&gt;    ON CHANGE MsgBeep() \n\nTry this ...\n\n    ON CHANGE ( MsgBeep() ,;\n                         oNextGet:SetFocus() ;\n                       )\n\nRegards.','',0,'gA==','27d1xa3n',1,0,'',1077,0,0),(33564,7335,6,24,0,'80.24.12.168',1182329860,1,0,1,1,1,1,'','Re: Para Rafa...','[quote=&quot;Willi Quintana&quot;:2ty2cpsx]Hola, es posible controlar una filmacion con una webcam con FW ?\nSalu2[/quote:2ty2cpsx]\n\nCreo que ya contesté , pero .. per no veo el mensaje....\nTe cuento, que yo hice funcionar 2 webcams, grabando, etc.. sin mayores problemas...','',0,'gA==','2ty2cpsx',1,0,'',24,0,0),(33565,7338,3,130,0,'141.51.32.24',1182332097,1,0,1,1,1,0,'','Enhanced groups in report','Hello,\n\nI enhanced the class rgoup to have the possibility to get  groupheaders with a shadow. Maybe somebody needs it.\n\nWhen defining a group, just write oGroup:lShadow := .t., then it´s working.\n\nHere are the changes in rgroup.prg:\n\n[code:2bte29tl]&#46;&#46;&#46;&#46;&#46;\n DATA lShadow, oShdBrush             // sh, 20&#46;06&#46;2007\n&#46;&#46;&#46;&#46;&#46;\n\n\nMethod New&#40;&#41;\n&#46;&#46;&#46;\nDEFAULT &#58;&#58;lShadow &#58;= &#46;f&#46;\n&#46;&#46;&#46;\n\nMethod Header &#40;nRow&#41;\n     IF !&#58;&#58;lHeader\n          RETU &#46;F&#46;\n     ENDIF\n\n     IF &#58;&#58;lShadow                             // sh, 20&#46;06&#46;2007\n       IF &#58;&#58;oShdBrush == nil\n          DEFINE BRUSH &#58;&#58;oShdBrush COLOR &#58;&#58;oReport&#58;nClrShadow\n       ENDIF\n\n      // SetbkMode&#40; &#58;&#58;oReport&#58;oDevice&#58;hDCOut, 1 &#41;\n       &#58;&#58;oReport&#58;oDevice&#58;FillRect&#40; &#123; nRow,;\n                                     &#58;&#58;oReport&#58;nMargin,;\n                                      nRow +      &#58;&#58;oReport&#58;aFont&#91;eval&#40;&#58;&#58;bHeadFont&#41;&#93;&#58;nHeight,;\n                                     &#58;&#58;oReport&#58;nWidth - &#58;&#58;oReport&#58;nMargin&#125;,;\n                                     &#58;&#58;oShdBrush &#41;\n     ENDIF\n&#46;&#46;&#46;&#46;\n[/code:2bte29tl]\n\nMaybe this is a suggestion for future versions.\n\n\nkind regards\nStefan','',0,'AIA=','2bte29tl',1,0,'',130,0,0),(33566,7339,6,41,0,'200.105.194.234',1182343342,1,0,1,1,1,0,'','clipboard','Holas,\n\nviendo la clase TexcelScript de Viktor esta definida una variable quie instancia un objeto de la clase tClipBoard, pero dicha clase no esta.\n\nEn referencia a ello, alguien tiene esa clase? por otra parte hay la posibilidad de guardar el clipboard en un archivo y luego recuperarlo nuevamente, el problema es que ti por ejemplo con la clase TExcel... copio una pagina grande, luego de cerrar el Excel sale un mensaje molestoso si se desea o no conservar la informacion en el clipboard, quiero ver la posibilidad de que ese mensaje no salga, si tienen alguna solucion? la podrian compartir.\n\nsaludos\n\nMarcelo','',0,'AIA=','2trp6hfw',1,0,'',41,0,0),(33567,7293,3,104,0,'201.58.128.117',1182343866,1,0,1,1,1,0,'','','Hello Detlef,\n\nDo these changes in xbrowse.prg and see functions correctly.  Case does not function an example citing problem sends me. \n\n[code:3w3vlcjm]\nMETHOD PostEdit&#40; xValue, lButton &#41; CLASS TXBrwColumn\n\n   local lGoNext &#58;= &#46;f&#46;\n\n   If &#58;&#58;lOnPostEdit\n      return nil\n   Endif\n\n   &#58;&#58;lOnPostEdit &#58;= &#46;t&#46;\n\n   DEFAULT lButton &#58;= &#46;f&#46;\n\n   if !getkeystate&#40; VK_ESCAPE &#41;\n      if     &#58;&#58;oEditGet != nil  &amp;&amp; By Rossine 09/06/07\n             if valtype&#40; &#58;&#58;oEditGet &#41; = &quot;O&quot; &#46;and&#46; &#58;&#58;oEditGet&#58;bValid != NIL\n                if !Eval&#40; &#58;&#58;bEditValid, &#58;&#58;oEditGet &#41;\n                   Eval&#40; &#58;&#58;bOnPostEdit, Self, &#58;&#58;oEditTmp &#41;\n                   &#58;&#58;oEditGet&#58;varput&#40;&#58;&#58;oEditTmp&#41;\n                   &#58;&#58;oEditGet&#58;refresh&#40;&#41;\n                   &#58;&#58;lOnPostEdit &#58;= &#46;f&#46;\n                   return &#46;F&#46;\n                endif\n             endif \n      elseif &#58;&#58;oEditLbx != nil  &amp;&amp; By Rossine 09/06/07\n             if valtype&#40; &#58;&#58;oEditLbx &#41; = &quot;O&quot; &#46;and&#46; &#58;&#58;oEditLbx&#58;bValid != NIL\n                if !Eval&#40; &#58;&#58;bEditValid, &#58;&#58;oEditLbx &#41;\n                   Eval&#40; &#58;&#58;bOnPostEdit, Self, &#58;&#58;oEditTmp &#41;\n                   &#58;&#58;oEditLbx&#58;varput&#40;&#58;&#58;oEditTmp&#41;\n                   &#58;&#58;oEditLbx&#58;refresh&#40;&#41;\n                   &#58;&#58;lOnPostEdit &#58;= &#46;f&#46;\n                   return &#46;F&#46;\n                endif\n             endif \n      endif\n   endif\n[/code:3w3vlcjm]\n\nRegards,\n\nRossine.','',0,'AIA=','3w3vlcjm',1,0,'',104,0,0),(33568,7340,6,41,0,'200.105.194.234',1182345551,1,0,1,1,1,0,'','Sigo con Excel (abrir un libro con password)','Hola,\n\nhe aumentado el 5 parametro en el metodo open de la clase TExcelScript\n\n     ::oExcel:WorkBooks:Open( ::cFile , , , , cPassword )\n\nPero me da error, segun busco en internet esto deberia funcionar, inclusive en el codigo fuente de la clase hay referencia a ello.\n\nAlguien pudo abrir documentos con clave de proteccion?\n\nSiento en molestar tanto, lo que pasa es que me urge mucho\n\nsaludos\n\nMarcelo','',0,'AIA=','31hsvynl',1,0,'',41,0,0),(33569,7341,3,41,0,'200.105.194.234',1182345924,1,0,1,1,1,0,'','Many question about OLE and Excel','Hello,\n\nI am  using the Viktor\'s TExcelScript class, but I have some problems.\n\n1.- How can I copy a sheet without the message of the clipboard after close the Excel, maybe I need an extra class? \n\n2.- How can I open an Excel Book with password, the 5th parameter in the open method not work, I get an Error\n\n  ::oExcel:WorkBooks:Open( ::cFile , , , , cPassword ) \n\nRegards and thank you for your time\n\nMarcelo','',0,'AIA=','2nfgpiwr',1,0,'',41,0,0),(33570,7342,6,106,0,'85.34.123.173',1182347574,1,0,1,1,1,1,'','TwBrowse Hernán','Alguien tiene esta clase funcionando con FWH Mayo/2007?\n\n\nGracias','',0,'AIA=','27sxbagb',1,0,'',106,0,0),(33571,7343,3,705,0,'61.0.137.12',1182348276,1,0,1,1,1,0,'','How can I use Return key to move next get','Hi Everybody, \n\nWhile I am pressing ENTER on Combobox, Cursor do not move in next get field. If I press Tab bottom, then only Cursor move to next field. \n\nHow Can I use Enter, to move Cursor to next field. My code is as follows. \n \n[code:1vtk6464]\n     REDEFINE COMBOBOX oCbx VAR cCuTy ITEMS  &#123; &quot;URBAN &quot;, &quot;RURAL &quot;, &quot;DEEPAM&quot;, &quot;COMMON&quot; &#125;               ; \n      ID 2 OF oDlg1                                                                                   ; \n      ON CHANGE MsgBeep&#40;&#41;                                                                             ; \n      Valid If&#40;cCuTy = oCbx&#58;aItems&#91;1&#93;,  &#40;oArea&#58;AreaType &#58;= &quot;U&quot;, &#46;T&#46;&#41;, If&#40;cCuTy = oCbx&#58;aItems&#91;2&#93;,      ; \n                                        &#40;oArea&#58;AreaType &#58;= &quot;R&quot;, &#46;T&#46;&#41;, If&#40;cCuTy = oCbx&#58;aItems&#91;3&#93;,      ; \n                                        &#40;oArea&#58;AreaType &#58;= &quot;D&quot;, &#46;T&#46;&#41;, &#40;oArea&#58;AreaType &#58;= &quot;C&quot;, &#46;T&#46;&#41;&#41;&#41;&#41; ; \n      Picture &quot;@!&quot; Color RGB&#40;0, 0, 0&#41;, RGB&#40;255, 255, 255&#41; \n[/code:1vtk6464]\n\n\nWith regads, \n\nArindam','',0,'AIA=','1vtk6464',1,0,'',705,0,0),(33572,7336,1,705,0,'61.0.137.12',1182348567,1,0,1,1,1,0,'','','Avista\n\nThank you for your reply. Actualy I am user of xHarbour and FWH. By mistake I had post this in this forum.\n\nWith regards,\n\nArindam','',0,'AIA=','2aff9jxr',1,0,'',705,0,0),(33573,7340,6,18,0,'200.67.188.236',1182351588,1,0,1,1,1,1,'','Re: Sigo con Excel (abrir un libro con password)','Que error es ?\n\n\n[quote=&quot;Marcelo Via Giglio&quot;:2avcrr2r]Hola,\n\nhe aumentado el 5 parametro en el metodo open de la clase TExcelScript\n\n     ::oExcel:WorkBooks:Open( ::cFile , , , , cPassword )\n\nPero me da error, segun busco en internet esto deberia funcionar, inclusive en el codigo fuente de la clase hay referencia a ello.\n\nAlguien pudo abrir documentos con clave de proteccion?\n\nSiento en molestar tanto, lo que pasa es que me urge mucho\n\nsaludos\n\nMarcelo[/quote:2avcrr2r]','',0,'gA==','2avcrr2r',1,0,'',18,0,0),(33574,7329,6,18,0,'200.67.188.236',1182351898,1,0,1,1,1,1,'','','Si tienen abierta una sesión de Excel el método New() la detecta y la usa , adémas si usan solo Harbour , tienen que hacer algo parecido a esto :\n[code:2oho1i30]\nMETHOD NEW&#40;&#41;  CLASS TExcelScript\n   &#58;&#58;lExcel  &#58;= &#46;T&#46;\n   #IFDEF __XHARBOUR__\n      TRY\n        &#58;&#58;oExcel &#58;= GetActiveObject&#40; &quot;Excel&#46;Application&quot; &#41;\n      CATCH\n         TRY\n            &#58;&#58;oExcel &#58;= CreateObject&#40; &quot;Excel&#46;Application&quot; &#41;\n         CATCH\n            Alert&#40; &quot;No está Excel Instalado en está Pc&#46;&quot; &#41;\n            &#58;&#58;lExcel  &#58;= &#46;F&#46;\n         END\n      END\n   #ELSE\n     &#58;&#58;oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; Excel&#46;Application &#41;\n     IF &#58;&#58;oExcel&#58;hObj == 0\n         Alert&#40; &quot;No está Excel Instalado en está Pc&#46;&quot; &#41;\n        &#58;&#58;lExcel &#58;= &#46;F&#46;\n      ENDIF\n\n   #ENDIF\n   &#58;&#58;oClip&#58;=TClipBoard&#40;&#41;&#58;New&#40;&#41;\n*   &#58;&#58;oClip&#58;Clear&#40;&#41;\n   &#58;&#58;aExcelCols &#58;= &#123;&#125;\nRETURN&#40; Self &#41;\n[/code:2oho1i30]\n\n\n[quote=&quot;sysctrl2&quot;:2oho1i30]Marcelo yo tuve un problema parecedio ,  \n\nhice un cambio en el metodo NEW de la class\n\naqui un pedazo de codigo\n\n\nMETHOD NEW()  CLASS TExcelScript\n   ::lExcel  := .T.\n   #IFDEF __XHARBOUR__\n      TRY\n      //::oExcel := TOleAuto():New(\"Excel.Application\")   //funciona bien.\n        // getactiveOb marca error si el archivo esta abierto ..\n        // ::oExcel := GetActiveObject( \"Excel.Application\" )\n        ::oExcel := CreateObject( \"Excel.Application\" ) //este funciona bien\n      CATCH\n         TRY\n            ::oExcel := CreateObject( \"Excel.Application\" ) //no trabaja\n         CATCH\n            Alert( \"No está Excel Instalado en está Pc.\" )\n            ::lExcel  := .F.\n         END\n      END\n   #ELSE\n     ::oExcel := TOleAuto():New( Excel.Application ) //no trabaja\n     IF ::oExcel:hObj == 0\n         Alert( \"No está Excel Instalado en está Pc.\" )\n        ::lExcel := .F.\n      ENDIF\n\n   #ENDIF\n   ::oClip:=TClipBoard():New()\n   ::oClip:Clear()\n   ::aExcelCols := {}\nRETURN( Self )\n\nsaludos...[/quote:2oho1i30]','',0,'gIA=','2oho1i30',1,0,'',18,0,0),(33575,7331,6,18,0,'200.67.188.236',1182352010,1,0,1,1,1,1,'','Re: combinar correspondencia','La clase Tword soporta mailmerge y tiene un ejemplo incluido.\n\n[quote=&quot;audisys&quot;:ndf1pk3z]Alguien tiene un ejemplo de como combinar correspondencia con\nRichEdit o con Word.\n\nMil Gracias[/quote:ndf1pk3z]','',0,'gA==','ndf1pk3z',1,0,'',18,0,0),(33576,7344,6,348,0,'201.240.151.101',1182352171,1,0,1,1,1,0,'','Como vamos con el avance del ADORDD','Buenos Dias\n\nHe estado siguiendo atentamente las implementaciones de esta nueva clase  para el manejo de bases de datos,  me gustaria saber cual es el grado de avence.  Pues es importante para decidir si la podemos usarla nuestros sistemas con la confianza que nos brinda el Fivewin y Harbour, ya que seria triste quedarnos  trancados a mitad de camino...\n\nPodriamos decir que esta operativa para  implementar un sistema basado en esta Clase .? \n\nQue cosas podemos hacer ???\nQue cosas no podremos Hacer ??? \n\nTe agradesco tus comentarios por adelantado \n\nLubin','',0,'gA==','3edhziw5',1,0,'',348,0,0),(33577,7345,19,2,0,'87.218.146.199',1182352526,1,0,1,1,1,1,'','The future ?','<!-- m --><a class=\"postlink\" href=\"http://www.youtube.com/v/aD4XtZqJu-U\">http://www.youtube.com/v/aD4XtZqJu-U</a><!-- m -->','',0,'gA==','x5kvbozs',1,0,'',2,0,0),(33578,7325,6,875,0,'64.76.108.179',1182352920,1,0,1,1,1,0,'','','Pues probe \n\n@ 01,01 ListBox oBrwb Fields H1-&gt;Fh01_his,H1-&gt;Fh01_pap, ; \nH1-&gt;Fh01_pam,H1-&gt;Fh01_pnm,Str(H1-&gt;Fh01_carne,10) ; \nHeader \'Historia\',\'Apellido Paterno\',\'Apellido Materno\', ; \n\'Nombre\',\'Nro.Multicl\' ; \nSize 292,130 On DblClick Get_data(oDlgb,@_Jhis,@_Sva_)\n\nif oBrwb:oVScroll != nil \n   oBrwb:oVScroll:SetRange(0,0) \nendif \n\n\n\ny oBrwb:oVscroll   retorna  NIL','',0,'gA==','3p14mt0j',1,0,'',875,0,0),(33579,7340,6,41,0,'200.105.194.234',1182355460,1,0,1,1,1,0,'','','Vikthor,\n\ngracias por responder, del error.log\n\nApplication\n===========\n   Path and name: D:\\b\\test\\Untitled.Exe (32 bits)\n   Size: 1,312,768 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 06/20/07, 11:50:32\n   Error description: Error Excel.Application:WORKBOOKS/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   D:\\B\\test\\test.xls\n     [   2] = U   \n     [   3] = U   \n     [   4] = U   \n     [   5] = C   abc123\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: Texcels.prg =&gt; TEXCELSCRIPT&#058;OPEN(324)\n   Called from: test2.prg =&gt; MAIN(21)\n\n\n\nUtilizo xHarbour, sera ese el problema.\n\nSaludos y mil gracias por tu tiempo\n\nMarcelo','',0,'','1hplxh0p',1,0,'',41,0,0),(33580,7345,19,2,0,'87.218.146.199',1182355645,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.youtube.com/v/T72fvkMv66g\">http://www.youtube.com/v/T72fvkMv66g</a><!-- m -->','',0,'','2idc4827',1,0,'',2,0,0),(33581,7344,6,177,0,'194.30.62.6',1182355757,1,0,1,1,1,0,'','','Hola Lubin,\n\nyo lo estoy probando con Oracle 9i en dos entornos totalmente diferentes, uno en AIX 5.2 (64 bits) y otro en Windows 2003 Server (32 bits). El gran problema que me estoy encontrando es con los tipos de datos. Pero también puede ser debido a que soy un poco torpe  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos,\n\nFélix','',0,'','3p6v1e68',1,0,'',177,0,0),(33582,7340,6,18,0,'200.67.188.236',1182355841,1,0,1,1,1,1,'','','Marcelo :\n\nPuedes poner el método New() completo por favor.\n\n[quote=&quot;Marcelo Via Giglio&quot;:1p93ho22]Vikthor,\n\ngracias por responder, del error.log\n\nApplication\n===========\n   Path and name: D:\\b\\test\\Untitled.Exe (32 bits)\n   Size: 1,312,768 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 06/20/07, 11:50:32\n   Error description: Error Excel.Application:WORKBOOKS/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   D:\\B\\test\\test.xls\n     [   2] = U   \n     [   3] = U   \n     [   4] = U   \n     [   5] = C   abc123\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: Texcels.prg =&gt; TEXCELSCRIPT&#058;OPEN(324)\n   Called from: test2.prg =&gt; MAIN(21)\n\n\n\nUtilizo xHarbour, sera ese el problema.\n\nSaludos y mil gracias por tu tiempo\n\nMarcelo[/quote:1p93ho22]','',0,'gA==','1p93ho22',1,0,'',18,0,0),(33583,7339,6,18,0,'200.67.188.236',1182356548,1,0,1,1,1,1,'','Re: clipboard','La clase TClipBoard() viene incluida en FW y para eliminar el mensajito usa lo siguiente ::oExcel:Set(\"DisplayAlerts\", .F. )\n\n[quote=&quot;Marcelo Via Giglio&quot;:1wsro5j6]Holas,\n\nviendo la clase TexcelScript de Viktor esta definida una variable quie instancia un objeto de la clase tClipBoard, pero dicha clase no esta.\n\nEn referencia a ello, alguien tiene esa clase? por otra parte hay la posibilidad de guardar el clipboard en un archivo y luego recuperarlo nuevamente, el problema es que ti por ejemplo con la clase TExcel... copio una pagina grande, luego de cerrar el Excel sale un mensaje molestoso si se desea o no conservar la informacion en el clipboard, quiero ver la posibilidad de que ese mensaje no salga, si tienen alguna solucion? la podrian compartir.\n\nsaludos\n\nMarcelo[/quote:1wsro5j6]','',0,'gA==','1wsro5j6',1,0,'',18,0,0),(33584,7340,6,41,0,'200.105.194.234',1182356595,1,0,1,1,1,0,'','','Vikthor,\n\nhe probado con varios, incluso con el que dejaste en el foro momentos atras,\nme da el mismo error.\n\nLa ultima version de tu clase es la 1.14 ?\n\nGracias, espero que puedas ayudarme\n\nsaludos\n\nMarcelo','',0,'gA==','3bamvlzz',1,0,'',41,0,0),(33585,7346,4,529,0,'200.159.199.104',1182356641,1,0,1,1,1,0,'','treo','antonio, i am want buy an smartphone to use and test fwppc, treo 750 is an good choice?? \nthanks','',0,'gA==','1z02o7y1',1,0,'',529,0,0),(33586,7340,6,18,0,'200.67.188.236',1182356712,1,0,1,1,1,1,'','','mmm , tienes messenger ?\n\n\n\n[quote=&quot;Marcelo Via Giglio&quot;:2mspltxu]Vikthor,\n\nhe probado con varios, incluso con el que dejaste en el foro momentos atras,\nme da el mismo error.\n\nLa ultima version de tu clase es la 1.14 ?\n\nGracias, espero que puedas ayudarme\n\nsaludos\n\nMarcelo[/quote:2mspltxu]','',0,'gA==','2mspltxu',1,0,'',18,0,0),(33587,7340,6,41,0,'200.105.194.234',1182357028,1,0,1,1,1,0,'','','Vikthor,\n\naunque no creas no lo utilizo, pero dejame ver, no se donde estas ahora te lo pregunto por la hora, en este momento debo ir a recoger a los niños a la escuela.\n\nDejame tu email para que te contacte por messanger\n\nMuchas gracias por tu ayuda.\n\nSaludos\n\nMarcelo','',0,'gA==','3ewb5v4a',1,0,'',41,0,0),(33588,7340,6,18,0,'200.67.188.236',1182357087,1,0,1,1,1,1,'','','mi usuario de messenger es \"vykthor\"\n\n\n[quote=&quot;Marcelo Via Giglio&quot;:2ga6h2w9]Vikthor,\n\naunque no creas no lo utilizo, pero dejame ver, no se donde estas ahora te lo pregunto por la hora, en este momento debo ir a recoger a los niños a la escuela.\n\nDejame tu email para que te contacte por messanger\n\nMuchas gracias por tu ayuda.\n\nSaludos\n\nMarcelo[/quote:2ga6h2w9]','',0,'gA==','2ga6h2w9',1,0,'',18,0,0),(33589,7262,7,840,0,'201.243.2.60',1182358336,1,0,1,1,1,1,'','','ANTONIO\n\nDIME SI ES COMO LO ESTOY COLOCANDO\n\nMINVEN-&gt;( OrdScope( 0, \"01\"+cCODTIPO+cNOMBRE ) ) \nMINVEN-&gt;( OrdScope( 1, \"01\"+cCODTIPO+cNOMBRE ) ) \n\n*****  oBrw72:GoTop()  ESTABA QUI ANTERIORMENTE\n\n@ 3 , 2 LISTBOX oBrw72 FIELDS MINVEN-&gt;CODIGO,MINVEN-&gt;DESCRIP,STR(MINVEN-&gt;PRECIO,8,2); \nCOLSIZES 35,135,30 PIXEL OF oFld:aDialogs[ 2 ] HEADERS \" Cod\",\" Productos Favoritos\",\" Precio\" SIZE 120,115; \nON DBLCLICK cantidad() \n \n\noBrw72:GoTop()\n\n\n\n**** LO COLOCO AQUI NO ME DA ERROR PERO NO SE POCIONA \nAVECES EN EL BRIMER REGISTRO TENGO QUE MOVER LA BARRA DE DESPLAZAMIENTO\n\nCOMO HAGO PARA QUE LA BARRA DE DESPLAZAMIENTO DEL LISTBOX\nSE PARA EN EL PRIMER REGISTRI, O LA BARRA SE PARE EN LA PRIMERA \nPOSION,\n\n\n** TAMBIEN TENGO PROBLEMA PARA ELIMINAR UN REGISTRO DEL LISTBOX .\n\nME PODRIAS MANDAR UN EJEMPLO DE LISTBOX QUE LE DE MANTENIMENTO COMO ELIMINACION , AGREGAR Y MODIFICAR.\n\n\nSALUDOS.\n\nDARIO FERREIRA\n\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'','2floyv7w',1,0,'',840,0,0),(33590,7346,4,2,0,'87.218.146.199',1182358564,1,0,1,1,1,1,'','','Norbert,\n\nYes, it seems fine. It has a samsung processor, that we should check if it is Intel XScale compatible.\n\nCould you run FWPPC tutor01, tutor02, on it ? You may copy them to a memory card, insert it and test the apps','',0,'','2q3bhjex',1,0,'',2,0,0),(33591,7347,2,1088,0,'201.155.7.216',1182359527,1,0,1,1,1,0,'','Colores en un LIstBox','Como puedo hacer para que un Listbox (con o sin datos) se pongan de colores verde y blanco como las antiguas hojas pautadas de impresion,\nes decir un renglon verde, uno blanco, uno verde uno blanco, sin importar que este vacia la base de datos.\ngracias y saludos a todos','',0,'','ni7g2yiv',1,0,'',1088,0,0),(33592,7339,6,41,0,'200.105.194.234',1182364223,1,0,1,1,1,0,'','','Vikthor,\n\ntienes razon de la clase es de FW, y si con \n\n::oExcel:Set(\"DisplayAlerts\", .F. ) \n\ndeja de molestarme el mensaje, pero al copiar la hoja no pasa los atributos de la misma, compia solo el texto, sin tipos, sin colores ni marcos ni nada, habra otra forma?\n\nGracias Marcelo\n\nP.D. te busque en el msn','',0,'','1c5ngse2',1,0,'',41,0,0),(33593,7343,3,303,0,'72.199.41.171',1182365658,1,0,1,1,1,0,'','','Arindam,\n\nUsing the Enter key is DOS behavior not Windows behavior so I don\'t recommend using it. Under Windows the Enter key should trigger the OK button on the dialog. The Tab key is what users expect to use to move from field to field. This way the user can press the Enter key anytime to close the dialog without using the mouse.\n\nIf you still want to use it, then check the \"Want Return\" checkbox for the control using Workshop.\n\nJames','',0,'','142liube',1,0,'',303,0,0),(33594,7339,6,18,0,'200.67.188.236',1182366834,1,0,1,1,1,1,'','','tuobjeto: oSheet: PasteEspecial( xlPasteFormats )\n\n[quote=&quot;Marcelo Via Giglio&quot;:1mrphq33]Vikthor,\n\ntienes razon de la clase es de FW, y si con \n\n::oExcel:Set(\"DisplayAlerts\", .F. ) \n\ndeja de molestarme el mensaje, pero al copiar la hoja no pasa los atributos de la misma, compia solo el texto, sin tipos, sin colores ni marcos ni nada, habra otra forma?\n\nGracias Marcelo\n\nP.D. te busque en el msn[/quote:1mrphq33]','',0,'gA==','1mrphq33',1,0,'',18,0,0),(33595,7348,6,989,0,'190.66.89.15',1182367398,1,0,1,1,1,0,'','Function TransparentBlt','Por favor en que libreria esta la funcion TransparentBlt\n\n\nGracias por la ayuda','',0,'gA==','3o49f6xi',1,0,'',989,0,0),(33596,7349,3,35,0,'167.7.140.254',1182370163,1,0,1,1,1,0,'','ADO Datetime field','To All\n\nHow do I concantonate date()+time() into a datetime field to SQL server with ADO ??  \n\nThe reason to add the time stamp is because SQl server does not respect \'natural order\'. When I have multiple entry\'s on the same date() ..  SQL will order them randomly within the same date and not as they were added to the table by date .. however if I add the Time() aspect to the datetime field .. the records sort in order of actual sequence.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','2wm44s7u',1,0,'',35,0,0),(33597,7334,4,529,0,'200.159.199.104',1182371018,1,0,1,1,1,0,'','','antonio, \"fwce5 is not a valid windows ce aplication\", error message.','',0,'gA==','3mhpbzwt',1,0,'',529,0,0),(33598,7334,4,2,0,'87.218.146.199',1182373520,1,0,1,1,1,1,'','','FWPPC is ARM architecture compatible which it is the mainstream for Pocket PCs','',0,'gA==','1e8b3tz6',1,0,'',2,0,0),(33599,6815,6,1089,0,'190.82.32.230',1182375749,1,0,1,1,1,0,'','','He compilado el ejemplo de adordd y cuando ejecuto me arroja el siguiente error\n\nError BASE/1004 No Exported method: NEW from Errorsys, line: 0\n\nAlguien sabe porqué?\n\narroja ese error cuando compilo con fivewin.','',0,'gA==','73aknmfj',1,0,'',1089,0,0),(33600,6815,6,2,0,'87.218.146.199',1182376884,1,0,1,1,1,1,'','','Leonel,\n\nQue versión de FWH estás usando ? Harbour ó xHarbour ?','',0,'gA==','fsz32ptt',1,0,'',2,0,0),(33601,7343,3,53,0,'189.139.98.183',1182377198,1,0,1,1,1,1,'','','Arindam:\n\nPerhaps the problem is in the VALID code, pls remove that code and\ntest it again.\n\nBTW, you do not need that code, if your field is one character length then only the capital letter will saved.\n\nRegards','',0,'gA==','38tmv7c6',1,0,'',53,0,0),(33602,7350,3,171,0,'71.233.232.238',1182377489,1,0,1,1,1,0,'','Alfredo Arteaga tGraph Class','Hi forum,\n\nI am using the excellent Arteaga\'s tGraph class. But I have a problem when I try to save the BMP image (save2bmp). I get only a file with an small blank square with and a red X inside.\n\nMy tools are: xHarbour Jan 07 + FWH Sep 06.\n\nAnybody using tGraph with xHarbour?\n\nAnybody with this same problem?\n\nAny suggestion?\n\n\nRegards,\n\n\nGeorge','',0,'gA==','2r7w3t0t',1,0,'',171,0,0),(33603,7351,3,35,0,'167.7.140.254',1182378363,1,0,1,1,1,0,'','ADO update visability between workstations','To All\n\nI have completed a major SQL ADO application and am finding that workstation recordsets are not being updated as other workstations make changes.\n\nI am caching the recordsets to the local client ..\n\nIn looking on MSDN I see a ReSync method ??  has anyone used this to just resync a specific record in a recodset ??  The documentation seems to support the single table record refresh .. I would think the syntax would be :\n\noRs:ReSync()\n\nIssue that and the object record will be refreshed from the table and included in the client cache ??\n\nRick Lipkin\nSC Dept of Health, USA\n\n\ncSQL := \"SELECT * FROM CERT order by reg_no\"\n\noRs := TOleAuto():New( \"ADODB.Recordset\" )\noRs:CursorType     := 1        // opendkeyset\noRs:CursorLocation := 3        // local cache\noRs:LockType         := 3        // lockoportunistic\n\nTRY\n   oRs:Open( cSQL,\'Provider=\'+xPROVIDER+\';Data Source=\'+xSOURCE+\';Initial Catalog=\'+xCATALOG+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD )\nCATCH oErr\n   MsgInfo( \"Error in Opening CERT table\" )\n   oDlg:End()\n   RETURN(.F.)\nEND TRY','',0,'gA==','31wi2yod',1,1182390263,'',35,1,0),(33604,7352,3,904,0,'196.25.255.210',1182380222,1,0,1,1,1,1,'','HTML Editor','I want the user to setup an email template (using basic Bold, Underline, Colour functions, even imbed pics as a \"nice to have\") so that I can merge it with data from the database.\n\nMy thinking is that the email template will look like this:\n\nDear &lt;&lt;firstname&gt;&gt;\n\nYou have &lt;&lt;qty&gt;&gt; items on back order. These items will be ready on &lt;&lt;date&gt;&gt;.\n\nWhich when \'filled in\' becomes:\n\nDear Johnny\n\nYou have 8 items on back order. These items will be ready on 2007/05/05.\n\nWhere I am stuck is giving the user a basic, easy HTML editor. Does anyone know of something I can use? I don\'t want to have to write an HTML editor - (I don\'t think I could anyway), but I feel its \'reinventing the wheel\'. \n\nAll comments / advice appreciated.','',0,'gA==','2bmmlb3z',1,0,'',904,0,0),(33605,7123,6,987,0,'189.133.8.111',1182380625,1,0,1,1,1,0,'','Borrar Trace.log','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  No se compliquen la existencia amigos del foro, la mejor y más facil forma de eliminarlo es poniendo esto al inicio de su aplicacion:\n\nFERASE(\".\\TRACE.LOG\")\n\nEsto no evita que lo genere, sino que una vez generado el archivo, el mismo programa se encarga de eliminarlo para no verlo, digo no sirve para gran cosa  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> , pero evita dolores de cabeza.. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nComo comentario muy personal <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> , no le veo mucha utilidad la información que genera el archivo, pero puede ayudarte a no escribir funciones repetidas en tu aplicacion\n\nSaludos desde Chiapas MéxicoRCHIVO TRACE.LOG','',0,'gA==','3ko5sm6y',1,0,'',987,0,0),(33606,7351,3,138,0,'189.141.72.112',1182390245,1,0,1,1,1,1,'','','Rick:\n\nYour cursor type is wrong, you must use adOpenDynamic (2) in order to see changes others make in the recordset.\n\nHowever not all the databases support the dynamic update of the recordset.','',0,'gA==','2otoidb4',1,0,'',138,0,0),(33607,7351,3,35,0,'65.188.6.143',1182390818,1,0,1,1,1,0,'','','Rene\n\nAccording to the doccumentation I found :\n\n(1)adOpenKeyset: A static snap-shot of the primary key values of the records that match your search criteria are put into the recordset. As you scroll backwards and forwards, the primary key value in the recordset is used to fetch the current data for that record from the database. This cursor thus  allows you to see updates to the data made by other users, but it doesn\'t let you see new records that have been added by other users   (because the primary key values for those records are not in your recordset).\n\n(2)adOpenDynamic: A dynamic snapshot of the database is maintained by OLEDB/ADO. All changes by other users to the underlying database are visible. Obviously this is the most sophisticated cursor, and thus is usually the most expensive. Because the data in the recordset is dynamic,\n attributes like AbsolutePosition and AbsolutePage can not be set. The adOpenDynamic cursor is not  supported by the Jet OLEDB Provider.\n\n\nAbsolutePosition I need for the skipper in the listbox .. that is why I chose OpenKeyset .. I have not tried OpenDynamic .. I can easily try it .. I did find a Resync method which seems to be my answer ... I am in \'un-charted\' territory .. just curious if you have used Resync()  .. and what the syntax would look like ??  oRs:ReSync() ??  when I open a record to view or edit ??\n\nRick Lipkin\n\n\noRs := TOleAuto():New( \"ADODB.Recordset\" )\noRs:CursorType     := 1        // opendkeyset\noRs:CursorLocation := 3        // local cache\noRs:LockType       := 3        // lockoportunistic\n\ncSQL := \"SELECT * FROM USERINFO order by USERID\"\n\nTRY\n\n   oRs:Open( cSQL,\'Provider=\'+xPROVIDER+\';Data Source=\'+xSOURCE+\';Initial Catalog=\'+xCATALOG+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD )\n\nCATCH oErr\n   MsgInfo( \"Error in Opening USERINFO table\" )\n   RETURN(.F.)\nEND TRY\n\noRs:Find(\"USERID = \'\"+xLOGIN+\"\'\" )\nIF oRs:eof\n   oRs:MoveFirst()\nENDIF\n\nDEFINE WINDOW oUser                        ;\n      FROM 2,2 to 25,65                    ;\n      of oWndMDI                           ;\n      TITLE \"USERINFO Records Browse\"      ;\n      MENU BuildMenu(oRs)                  ;\n      NOMINIMIZE                           ;\n      NOZOOM                               ;\n      MDICHILD\n\n@ 0, 0 LISTBOX oBrow FIELDS                ;\n       oRs:Fields(\"USERID\"):Value,         ;\n       oRs:Fields(\"READ\"):Value,           ;\n       oRs:Fields(\"WRITE\"):Value,          ;\n       oRs:Fields(\"INSP\"):Value,           ;\n       oRs:Fields(\"SUPER\"):Value,          ;\n       oRs:Fields(\"DISTRICT\"):Value        ;\n       SIZES 90,60,60,60,60,100            ;\n       HEADERS \"Userid\",                   ;\n               \"Read\",                     ;\n               \"Write\",                    ;\n               \"Insp\",                     ;\n               \"Super\",                    ;\n               \"Dist\"                      ;\n       ON DBLCLICK _userview( \"V\" )        ;\n       of oUser                            ;\n       UPDATE\n\n      oBrow:bLogicLen := { || oRs:RecordCount }\n      oBrow:bGoTop    := { || oRs:MoveFirst() }\n      oBrow:bGoBottom := { || oRs:MoveLast() }\n      oBrow:bSkip     := { | nSkip | Skipper( oRs, nSkip ) }\n      oBrow:cAlias    := \"ARRAY\"\n\n      oUSER:oClient := oBROW\n      oUSER:SetControl( oBROW )\n\n    ACTIVATE WINDOW oUser           ;\n    VALID ( IIF( !lOK, UserClose(.T., oRs), .F. ))\n\nRETURN( NIL )\n\n//-------------------------------\nSTATIC FUNCTION SKIPPER( oRsx, nSkip )\n\nLOCAL nRec := oRsx:AbsolutePosition\n\noRsx:Move( nSkip )\n\nIF oRsx:EOF; oRsx:MoveLast(); ENDIF\nIF oRsx:BOF; oRsx:MoveFirst(); ENDIF\n\nRETURN( oRsx:AbsolutePosition - nRec )\n\n\n//-------------------------','',0,'gA==','3ecj25fb',1,0,'',35,0,0),(33608,7353,6,78,0,'190.40.249.129',1182402678,1,0,1,1,1,0,'','Una de TWBrowse','Hola Amigos.\nIntento \"detectar\" el movimiento del cursor a la derecha e izquierza en un TWBrowse, bKeyDown  no detecta cuando presionas las teclas de navegacion derecha e izquierza,  hay alguna manera de detectar que estas teclas fueron presionadas?    &lt;-  -&gt;\n\nSalu2','',0,'gA==','1j4xq4av',1,0,'',78,0,0),(33609,7335,6,78,0,'190.40.249.129',1182402729,1,0,1,1,1,0,'','','Gracias señor... lo halle....\nSalu2','',0,'gA==','qtnnt9j8',1,0,'',78,0,0),(33610,7293,3,58,0,'84.149.94.189',1182410046,1,0,1,1,1,0,'','','Hello Rossine,\n\nthanks a lot for your advice.\nNow invalid entries combined with Esc key are properly processed.\nBut unfortunately i can\'t input valid values.\n\nThe sample i\'m speaking about is mallorca.prg in the samples folder of FWH.\n\nMy intention was to find a replacement for Manuel Mercado\'s TsBrowse because it has some strange behaviours.\nBut now i see that xBrowse isn\' much more mature  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .\n\nAnyhow thanks again for your help.\nI think i\'ll try Hernan\'s TwBrowse instead.\n\nRegards,\nDetlef','',0,'gA==','irtqfk76',1,0,'',58,0,0),(33611,7354,3,247,0,'83.171.242.103',1182411160,1,0,1,1,1,0,'','Debugger XHabrour','When i compile xbuild &lt;program&gt; /b I get the following error \n\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = C   ,\n\nStack Calls\n===========\n   Called from: tbrowse.prg =&gt; COLOR2ARRAY(3585)\n   Called from: tbrowse.prg =&gt; (b)TBROWSE:TBROWSE(534)\n   Called from: tbrowse.prg =&gt; TBROWSE:TBROWSE(0)\n   Called from: debugger.prg =&gt; TDEBUGGER:BUILDBROWSESTACK(547)\n   Called from: debugger.prg =&gt; TDEBUGGER:NEW(438)\n   Called from: debugger.prg =&gt; __DBGENTRY(165)\n\n\nPlease tell me if i can do something to fix it\n\nThanks in advance\nA.S.K','',0,'','2xvk5rn3',1,0,'',247,0,0),(33612,7354,3,2,0,'87.218.146.4',1182414947,1,0,1,1,1,1,'','','You may review the source code at such line:\n\nCalled from: tbrowse.prg =&gt; COLOR2ARRAY(3585)','',0,'','l2smx4qf',1,0,'',2,0,0),(33613,7354,3,247,0,'83.171.242.103',1182415219,1,0,1,1,1,0,'','','The problem is that i cannot use debugger at XHarbour .Is there someone using it with Xharbour?\n\nThanks \nA.S.K','',0,'','8nhseows',1,0,'',247,0,0),(33614,7353,6,2,0,'87.218.146.4',1182415610,1,0,1,1,1,1,'','','Willi,\n\nTienes que modificar la clase y añadirle esto antes del do case:\n[code:1kkbcw7f]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   if &#58;&#58;bKeyDown != nil\n      Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41;\n   endif\n\n   do case\n      case nKey == VK_UP\n           &#58;&#58;GoUp&#40;&#41;\n[/code:1kkbcw7f]','',0,'AIA=','1kkbcw7f',1,0,'',2,0,0),(33615,7354,3,2,0,'87.218.146.4',1182415765,1,0,1,1,1,1,'','','Please post here the source code that it is at:\n\ntbrowse.prg =&gt; COLOR2ARRAY(3585)','',0,'AIA=','3g5o4wzb',1,0,'',2,0,0),(33616,7354,3,247,0,'83.171.242.103',1182416072,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:19ka7ap4]Please post here the source code that it is at:\n\ntbrowse.prg =&gt; COLOR2ARRAY(3585)[/quote:19ka7ap4]\n\nI don\'t have any source code .The program crashes at the beginning with the above error.I just compile with buildx myprg /b\n\nThanks \nA.S.K','',0,'gA==','19ka7ap4',1,0,'',247,0,0),(33617,7355,3,130,0,'141.51.32.24',1182417306,1,0,1,1,1,0,'','Microsoft compiler','Hi all,\n\nwhich compiler must i use if i switch to microsoft ? \n\nIs the MS Visual C Express edition working with xHarbour ?\n\nkiond regrads\nStefan','',0,'gA==','jdrr9dsm',1,0,'',130,0,0),(33618,7354,3,247,0,'83.171.242.103',1182417525,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:hsaesgpt]Please post here the source code that it is at:\n\ntbrowse.prg =&gt; COLOR2ARRAY(3585)[/quote:hsaesgpt]\n\nTry using buildx altd /b from samples to see that is not working .I use Fivewin 7.05 and XHarbour 0.99.71\n\nThanks \nA.S.K','',0,'gA==','hsaesgpt',1,0,'',247,0,0),(33619,7354,3,2,0,'87.218.146.19',1182417530,1,0,1,1,1,1,'','','Color2Array() is a static function inside tbrowse.prg, so if you don\'t have tbrowse.prg source code there is no way to fix it and then you need to require a new xharbour build\n\nAre you using FiveTech xHarbour build ?','',0,'gA==','2k535bby',1,0,'',2,0,0),(33620,7355,3,2,0,'87.218.146.19',1182417704,1,0,1,1,1,1,'','','Stefan,\n\nWe use VC98 version (quite old) to get OBJs compatibles with PellesC (used by xHB commercial)','',0,'gA==','n9jrwffo',1,1182421778,'',2,1,0),(33621,7356,3,130,0,'141.51.32.24',1182417993,1,0,1,1,1,0,'','Compiling under Vista','Dear friends,\n\nI did my first steps compiling a project with xHarbour and BCC under Vista. If i use only the standard lib of FWH, everything works fine, but if i try to link in third party libs (like TWbrowse of Hernan), these lib are not propely linked in and i get a runtime error using the replaced functions.\n\nI´m using xMate for compiling.\n\nDid anyone notice this behavior ?\n\nI compile as administrator, so there should be no problems with rights.\n\nkind regrads\nStefan','',0,'gA==','3rwex4tb',1,0,'',130,0,0),(33622,7355,3,130,0,'141.51.32.24',1182418662,1,0,1,1,1,0,'','','Antonio,\n\nok, thanks\n\n\nkind regards\nStefan','',0,'gA==','1lpol2em',1,0,'',130,0,0),(33623,7330,6,413,0,'195.55.176.112',1182421030,1,0,1,1,1,1,'','','Parece interesante puedes enviarmelo a mi correo: <!-- e --><a href=\"mailto:zalezalon@gmail.com\">zalezalon@gmail.com</a><!-- e -->','',0,'gA==','vikvbftr',1,0,'',413,0,0),(33624,7356,3,2,0,'87.218.146.19',1182421996,1,0,1,1,1,1,'','','Stefan,\n\n&gt; these lib are not propely linked\n\nwhy ? what errors or warnings do you get ?\n\n&gt; in and i get a runtime error using the replaced functions.\n\nwhat runtime error ?','',0,'gA==','vpi2e2rq',1,0,'',2,0,0),(33625,7330,6,2,0,'87.218.146.19',1182422666,1,0,1,1,1,1,'','','Prueba a subirla a <!-- w --><a class=\"postlink\" href=\"http://www.mediafire.com\">www.mediafire.com</a><!-- w --> ó a <!-- w --><a class=\"postlink\" href=\"http://www.rapidshare.com\">www.rapidshare.com</a><!-- w -->, gracias','',0,'gA==','13vxauji',1,0,'',2,0,0),(33626,7342,6,106,0,'85.34.123.173',1182423183,1,0,1,1,1,1,'','','Ahora funcionando. Errores mios en la compilación de la clase, y un par de warnings y 1 error en la clase, ya corregidos.\n\n[code:2wgvlfam]\n&#46;&#46;\n&#46;&#46;\nMETHOD New&#40; nRow, nCol, nWidth, nHeigth, bLine, aHeaders, aColSizes, oWnd,;\n            cField, uVal1, uVal2, bChange, bLDblClick, bRClick,;\n            oFont, oCursor, nClrFore, nClrBack, cMsg, lUpdate, cAlias,;\n            lPixel, bWhen, lDesign, bValid, bLClick, aActions &#41; CLASS TWBrowse\n\n\nLOCAL n, nElements // no estaban declaradas estas variables, y daba warning\n&#46;&#46;\n&#46;&#46;\n   DEFAULT nElements &#58;= Len&#40; Eval&#40; &#58;&#58;bLine &#41; &#41; // no estaba definido nElements en ninguna parte, por lo que daba error&#46;\n\n   if Len&#40; &#58;&#58;aHeaders &#41; &lt; nElements\n      if &#58;&#58;Cargo == nil\n         &#58;&#58;aHeaders = Array&#40; nElements &#41;\n&#46;&#46;\n&#46;&#46;\n[/code:2wgvlfam]\n\n\nSaludos.\n[/code]','',0,'AIA=','2wgvlfam',1,0,'',106,0,0),(33627,7357,6,596,0,'85.62.69.206',1182424761,1,0,1,1,1,1,'','La parte derecha de un SPLITTER vertical','Quisiera poner en una ventana (MDICHILD) un splitter y a la izquierda un arbol (tree) y a la derecha un browse.\nLa parte del tree ya es mas o menos dominada, pero en el hueco de la derecha quisiera poner un browse (listbox).\n\nTengo este codigo:\n[code:1eapoyg3]DEFINE WINDOW owVerTree TITLE &quot;Prueba&quot;  MDICHILD OF owPrincipal\nHacerArbol&#40;@oTree,@oItem&#41;\n@ 29, 200 SPLITTER oSplit VERTICAL _3DLOOK PREVIOUS CONTROLS oTree SIZE 4, 200 PIXEL OF owVerTree\n\n/******************************************\nESTE ES EL BROWSE, ¿ Como lo pongo a la derecha ?\n@ 0,0 LISTBOX obFichero FIELDS NOMBRE,APELLIDOS OF  ¿ owVerTree ? SIZE 600,400\n******************************************/\n\nACTIVATE WINDOW owVerTree ON RESIZE oSplit&#58;AdjClient&#40;&#41;[/code:1eapoyg3]\n\nGracias.','',0,'AIA=','1eapoyg3',1,0,'',596,0,0),(33628,7358,6,24,0,'80.24.12.168',1182425513,1,0,1,1,1,1,'','SQLITE3 Libre para Harbour','Amigos en el blog , <!-- w --><a class=\"postlink\" href=\"http://www.zonalibre.org/blog/thefull\">www.zonalibre.org/blog/thefull</a><!-- w -->, teneis una entrada sobre una implementación LIBRE de Sqlite3 para [x]Harbour.\n\nActualmente esta bajo desarrollo, pero ha es capaz de abrir, crear, insertar y recuperar las consultas.\n\nComo ya digo en el blog, esta en desarrollo la parte de más bajo nivel, todo funciona a base funciones, ya llegará el dia de los objetos, o quien sabe del SQLITE3RDD.\n\nComo siempre espero que les guste, y les animo que lo prueben, es la unica manera de hacer crecer esta herramienta tan maravillosa como es Harbour.','',0,'','2js6iso3',1,0,'',24,0,0),(33629,7347,2,228,0,'201.245.222.86',1182426884,1,0,1,1,1,1,'','pues....','Amigo...\nAsi se cambian los colores... lo que no se es cuando la base de datos esta vacia..\n\noBrw:NCLRPANE:={||IIF((ORDKEYNO())%2==0,RGB(230,230,230),RGB(190,215,190))}\n\nEspero te sirva','',0,'','2j47bbkz',1,0,'',228,0,0),(33630,7359,3,267,0,'200.208.238.2',1182428515,1,0,1,1,1,1,'','To open archives rtf with figure in heading','Antonio,\n\n have some archives rtf where in the heading of the archive he counts a figure. When I open the archive with FWH the figure does not appear!\n\nYou have as to solve this?','',0,'','3piafoh0',1,0,'',267,0,0),(33631,7360,6,435,0,'200.155.192.86',1182429196,1,0,1,1,1,0,'','Mudar oDlg:nStyle','Tem como mudar o oDlg:nStyle em run-time ?\n[code:1per33ag]\n\nDEFINE DIALOG oDlg RESOURCE &quot;dialog_1&quot;\n\n  &#46;&#46;BUTTON\n  &#46;&#46; GET\n\nACTIVATE DIALOG oDlg CENTERED\n\nmudar de&#58;\n\n   DEFAULT nStyle &#58;= nOR&#40; DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU &#41;\n\npara&#58;\n\nnStyle &#58;= nOR&#40; WS_CHILD &#41;\n\ntentei colocar no INIT¨da Dialog &#46;&#46;mas nao tem efeito\n\n\n[/code:1per33ag]\n\n eu vou colocar varias dialogs dentro de MDICHILD e para evitar editar cada imagem.\n\n\nAri\n\n[/code]','',0,'AIA=','1per33ag',1,0,'',435,0,0),(33633,7120,6,106,0,'85.34.123.173',1182432969,1,0,1,1,1,1,'','','Es verdad, no funciona mas... Antes, aunque estuvieran desordenados los elementos del combobox, bastaba presionar la letra varias veces, hasta encontrar el elemento justo, ahora no funciona mas, busca solo el primero.\n\n\nSaludos.','',0,'AIA=','2r2rwxs2',1,0,'',106,0,0),(33634,7120,6,106,0,'85.34.123.173',1182433364,1,0,1,1,1,1,'','','Pero ahora en vez, funciona la busqueda incremental, al presionar la segunda letra... Mucho mejor.\n\n\nSaludos.','',0,'AIA=','3ovdpyae',1,0,'',106,0,0),(33635,7358,6,389,0,'189.132.7.134',1182436182,1,0,1,1,1,0,'','','Rafa, la linea de comandos que indicas para el cvs, pide contraseña \nsaludos','',0,'AIA=','hwqrq3jl',1,0,'',389,0,0),(33636,7358,6,24,0,'80.24.12.168',1182436457,1,0,1,1,1,1,'','','[quote=&quot;gabo&quot;:2wiswe0t]Rafa, la linea de comandos que indicas para el cvs, pide contraseña \nsaludos[/quote:2wiswe0t]\n\nDale intro, en teoria no necesitas password para nada, ten en cuenta que es como el CVS de Harbour, no necesitas password para nada.\n\nYo lo baje ayer sin problemas con GNU/Linux y no me pidio nada,\ny bajo Windows, con el tortuiseCVS, lo mismo.','',0,'gA==','2wiswe0t',1,0,'',24,0,0),(33637,7361,6,511,0,'200.35.215.227',1182437873,1,0,1,0,1,1,'','Pcode dll','Hola amigos del foro, desde hace bastante tiempo utilizo una dll (pcode-dll con Harbour) para imprimir la factura del cliente y funciona bien, pero ahora estoy cambiando a xHarbour y no funciona, inclusive el ejemplo testdll/pcodedll no funcionan con xHarbour y si funcionan con harbour. Lo unico que hago es modificar el build para indicar xHarbour y cambiar la libreria FiveH por FiveHx. podria alguien ayudarme con esto y decirme que esta faltando o que estoy haciendo mal ?, gracias!','',0,'gA==','195uxidw',1,0,'',511,0,0),(33638,7362,6,1053,0,'189.174.209.183',1182440097,1,0,1,1,1,1,'','Error en use','Hola esta instruccion me marca error.\n\nwdatabase:=\'sii\'\nwserver:=\'192.168.10.1\'\nwuser_db:=\'root\'\nwpassword:=\'12345\'\n\nUSE (&amp;(wdatabase)) VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER  WUSER_DB PASSWORD WPASSWORD\n\nError BASE/1003 Variable does not exist: SII\n\ny si pongo directo el nombre de base de datos si trabaja \n\nUSE sii VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER  WUSER_DB PASSWORD WPASSWORD\n\nSaludos.','',0,'gA==','8z9remy4',1,0,'',1053,0,0),(33639,6815,6,1053,0,'189.174.209.183',1182440268,1,0,1,1,1,1,'','Error en use','Perdon lo puse en otro Post. aqui va de nuevo.\n\nHola esta instruccion me marca error. \n\nwdatabase:=\'sii\' \nwserver:=\'192.168.10.1\' \nwuser_db:=\'root\' \nwpassword:=\'12345\' \n\nUSE (&amp;(wdatabase)) VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER WUSER_DB PASSWORD WPASSWORD \n\nError BASE/1003 Variable does not exist: SII \n\ny si pongo directo el nombre de base de datos si trabaja \n\nUSE sii VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER WUSER_DB PASSWORD WPASSWORD','',0,'gA==','hkdc97km',1,0,'',1053,0,0),(33640,7352,3,308,0,'84.148.51.76',1182440351,1,0,1,1,1,0,'','Re: HTML Editor','[quote=&quot;Ollie&quot;:3ged3xl7]I want the user to setup an email template (using basic Bold, Underline, Colour functions, even imbed pics as a \"nice to have\") so that I can merge it with data from the database.\n\nMy thinking is that the email template will look like this:\n\nDear &lt;&lt;firstname&gt;&gt;\n\nYou have &lt;&lt;qty&gt;&gt; items on back order. These items will be ready on &lt;&lt;date&gt;&gt;.\n\nWhich when \'filled in\' becomes:\n\nDear Johnny\n\nYou have 8 items on back order. These items will be ready on 2007/05/05.\n\nWhere I am stuck is giving the user a basic, easy HTML editor. Does anyone know of something I can use? I don\'t want to have to write an HTML editor - (I don\'t think I could anyway), but I feel its \'reinventing the wheel\'. \n\nAll comments / advice appreciated.[/quote:3ged3xl7]\n\nDear Johnny,\n\nyou can write your mails with RTF and with IRUN.DLL convert to html.\n1. Download irun.dll from <!-- m --><a class=\"postlink\" href=\"http://www.pilotltd.com/\">http://www.pilotltd.com/</a><!-- m -->\n2. regsvr32 irun.dll /s\n3. Insert this function to sour source:\n\n   DLL32 FUNCTION EXRTF2WEB( cSource AS LPSTR, ;\n                             cDest AS LPSTR, ;\n                             nOption AS LONG, ;\n                             cBG AS LPSTR, ;\n                             cTitel AS LPSTR, ;\n                             nDPI AS LONG ) AS LONG ;\n   PASCAL FROM \"EXRTF2WEB\" LIB \"IRUN.DLL\"\n\n4. Write your mail in rtf with TRichEdit() and save it to an file.\n5. Convert your Mailtext from rtf to html with:\n    cRTFfile := \"Test.rtf\"             // Sample\n    cHTMfile := \"Test.htm\"          // Sample\n    EXRTF2WEB( cRTFfile, cHTMfile, 16, \"FFFFFF\", \"Title\", 72 )\n\nit works fine and converts all fonts, bolds, understikes .....\n\nRegards, Norbert','',0,'gA==','3ged3xl7',1,0,'',308,0,0),(33641,7356,3,130,0,'84.138.57.19',1182441735,1,0,1,1,1,0,'','','Antonio,\n\nit´s very curious. I don´t get any errors or warning messages during link.\n\nExample:\n\nIf i link the version of hernan´s twbrowse and i´m using a variable declared in this new class i get this error:\n error/BASE 1005: message not found: TWBROWSE_LHSCROLL\n\nlHScroll cannot be found in the original TwBrowse class, so the new lib is not linked in. Every new lib, which is replacing functions from the original libs (with the same names) does not seem to work.\n\nThis is the trace.log:\n*** WARNING! Function: TGRAPH in Module: TGRAPH.PRG is hidden by previously registered Module: TGRAPH.PRG\n*** WARNING! Function: TSMTP in Module: tsmtp.prg is hidden by previously registered Module: TSMTP.PRG\n*** WARNING! Function: TPOP3 in Module: tpop3.prg is hidden by previously registered Module: TPop3.PRG\n*** WARNING! Function: TSOCKET in Module: tsocket.prg is hidden by previously registered Module: TSOCKET.PRG\n*** WARNING! Function: MENUBEGIN in Module: PDMENU.PRG is hidden by previously registered Module: PDMENU.PRG\n*** WARNING! Function: MENUADDITEM in Module: PDMENU.PRG is hidden by previously registered Module: PDMENU.PRG\n*** WARNING! Function: MENUEND in Module: PDMENU.PRG is hidden by previously registered Module: PDMENU.PRG\n*** WARNING! Function: LASTMENU in Module: PDMENU.PRG is hidden by previously registered Module: PDMENU.PRG\n*** WARNING! Function: LASTITEMPOS in Module: PDMENU.PRG is hidden by previously registered Module: PDMENU.PRG\n*** WARNING! Function: TMENU in Module: MENU.PRG is hidden by previously registered Module: MENU.PRG\n*** WARNING! Function: MEMOEDIT in Module: memoedit.prg is hidden by previously registered Module: MemoEdit.PRG\n*** WARNING! Function: GETNEW in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG\n\n\n\nThe link order should be ok\n.....\nd:\\Borland\\BCC55\\Lib\\C0W32.OBJ, +\nD:\\Projekte\\WIN\\WT\\bin\\Wt32.Exe, +\nD:\\Projekte\\WIN\\WT\\Debug\\Wt32.Map, +\nD:\\FwH\\LIBx\\XP_Menu.Lib +\nD:\\FWH\\Libx\\TwBrw32x.LIB +\nD:\\FwH\\LIBx\\Tsbrw613.LIB +\nD:\\FwH\\LIBx\\FwTools32.Lib +\nD:\\FwH\\LIBx\\SButtonX.LIB +\nD:\\FWH\\lib\\Fivehx.lib +\nD:\\FWH\\lib\\Fivehc.lib +\nd:\\xHARBOUR71\\Lib\\rtl.lib +\n....\n\n\n\nkind regards\nStefan','',0,'gA==','3c9kosdd',1,0,'',130,0,0),(33642,7352,3,904,0,'196.25.255.250',1182442531,1,0,1,1,1,1,'','','Sounds promising, thanks.  Would it also handle imbedded pics?','',0,'gA==','2sxj21mx',1,0,'',904,0,0),(33643,7356,3,130,0,'84.138.57.19',1182443434,1,0,1,1,1,0,'','','It´s seems this behavior does only occur in projects with more than 20 or 25 source files. Smaller projects or little samples are working fine.\n\nMaybe the linker of bcc has problems under vista with to many files.\n\nBTW, i made these tests on two different pc´s with vista business to exclude  problems with the pc or vista installation.\n\nkind regards\nStefan','',0,'gA==','3c7jx10i',1,0,'',130,0,0),(33644,7362,6,940,0,'189.157.95.90',1182445636,1,0,1,1,1,1,'','','USE (wdatabase) VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER WUSER_DB PASSWORD WPASSWORD','',0,'gA==','320xrfx3',1,0,'',940,0,0),(33645,7358,6,940,0,'189.157.95.90',1182445982,1,0,1,1,1,1,'','','gracias Rafa,\n\npero no entra la liga que pusistes,\n\n\nsaludos. cesar.','',0,'gA==','31yg1czg',1,0,'',940,0,0),(33646,7363,2,1088,0,'189.129.128.128',1182447070,1,0,1,1,1,0,'','campos memo','Hola nuevamente:\nEstoy tratando de pasar mis programas de clipper a fivewin, pero me tope con un problema, ¿como controlo los campos memo ?, es decir edicion y grabar ??, es posible cambiar el color de las letras de un campo memo ?, espero no desesperarlos, gracias\nsaludos','',0,'gA==','22o6ks84',1,0,'',1088,0,0),(33647,7364,6,1090,0,'201.254.19.24',1182448176,1,0,1,1,1,0,'','No puedo usar dlls','Hola; acabo de adquirir FWH; quiero migrar una aplicacion que corria perfectamente en clipper con FW28/Blinker con una DLL externa y no puedo; probe con el programa rc2dll32 y escribiendo SET RESOURCES TO y el nombre de la nueva dll y nada, probe linkeando directamente con el .RC y con el .RES y tampoco. En los ultimos 2 casos el .exe se genera correctamente, pero al ejecutar, el programa no abre el dialogo; si uso la dll supuestamente de 32 bits (porque una vez convertida no puedo abrirla con el Resource Workshop), me da un error al ejecutar. \nProbe tambien abriendo el Screen32.dll que ustedes incluyen en el FWH, y abriendo la DLL 16 bits, le fui pasando los dialogos que necesito, y guarde, como DLL, como RC y como RES, y tampoco obtengo resultados. Ademas, no se en cual de los samples puedo encontrar un ejemplo de uso de DLL\'s. \nUno de los samples que parece usar DLL\'s es el TestRes, cuando le corro el buildh, sale el siguiente error: TESTRES.EXE imagen Incorrecta; La aplicacion o Dll C:\\FHW\\samples\\TestRes.dll no es una imagen válida de Windows. Compruebe esto contra su disquette de instalación.\nEse mismo cartel era uno de los que me arrojaba mi aplicacion si usaba el Set Resources to \"mydllpasadaa32\".\n\n¿me podrían dar una mano? Gracias. Atte\n\nDiego','',0,'gA==','3iyloqpc',1,0,'',1090,0,0),(33648,7365,3,879,0,'65.94.132.233',1182448268,1,0,1,1,1,0,'','Input using the UEStudio Resource Editor','Hello All,\n\nI am looking for feedback regarding the UltraEdit Studio Resource Editor. According to the folks at UltraEdit, no one is reported problems with the Resource Editor. I am the one exception. I find it strange since I have uncovered a lot of problems and most were able to be duplicated by tech support. In the latest 6.3 release, UES does not list any updates or fixes to the Resource Editor. As a result, I am asking the following questions.\n\n1. Are there any members currently using the UES Resource Editor?\n\n2. If so, have you encountered any problems?\n\n3. Do you prefer using another Resource Editor other than the one included in UES?\n\nI am aware Borland Workshop Resource Editor was a favourite for many prior to Vista’s introduction. However, being a 16 bit application, I believe some maybe thinking about switching or have already switched.\n\nWhile I do not have Borland Workshop, I have tested Pelles IDE. While it wasn’t great, I had a lot less trouble using the various building tools.\n\nAny additional input you might wish to share would be appreciated.\n\nThanks in advance,\n\nKen','',0,'gA==','b79fytcw',1,0,'',879,0,0),(33649,7366,6,207,0,'189.158.83.98',1182448695,1,0,1,1,1,0,'','no me reconoce el RC con Resource Builder','estoy tratando de generer mis recursos con Resource builder, solo que me marca que no existe el dialog_1,  que ya tengo creado, alguien puede decirme si me falta configurar algo?\n\ngracias','',0,'gA==','o8y8fadm',1,0,'',207,0,0),(33650,6815,6,54,0,'189.132.101.218',1182449914,1,0,1,1,1,1,'','Re: Error en use','[quote=&quot;jrendon&quot;:1mtgmfup]Perdon lo puse en otro Post. aqui va de nuevo.\n\nHola esta instruccion me marca error. \n\nwdatabase:=\'sii\' \nwserver:=\'192.168.10.1\' \nwuser_db:=\'root\' \nwpassword:=\'12345\' \n\nUSE (&amp;(wdatabase)) VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER WUSER_DB PASSWORD WPASSWORD \n\nError BASE/1003 Variable does not exist: SII \n\ny si pongo directo el nombre de base de datos si trabaja \n\nUSE sii VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER WUSER_DB PASSWORD WPASSWORD[/quote:1mtgmfup]\n\nhazlo asi,\n\nwdatabase:=\'sii\' \nwserver:=\'192.168.10.1\' \nwuser_db:=\'root\' \nwpassword:=\'12345\' \n\nUSE (wdatabase) VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM (WSERVER) USER (WUSER_DB) PASSWORD (WPASSWORD)\n\nsi le antepones el ampersand, lo toma como que la variable es sii y no el nombre de la base de datos.\n\nespero te ayude','',0,'gA==','1mtgmfup',1,0,'',54,0,0),(33651,7358,6,24,0,'83.33.39.100',1182451956,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:235eqcve]gracias Rafa,\n\npero no entra la liga que pusistes,\n\n\nsaludos. cesar.[/quote:235eqcve]\npues debería de ir lo acabo de probar.\nSi sigues las mismas instrucciones que harbour, cambia harbour por t-gk y en\nnombre del modulo pon , sqlite3\n\nUsas tortuisecvs o desde la linea de comandos ?','',0,'gA==','235eqcve',1,0,'',24,0,0),(33652,7364,6,2,0,'87.218.146.151',1182452264,1,0,1,1,1,1,'','','Diego,\n\nUsas controles propios de Borland en tus dialogos ? \n\nQue error te aparece al intentar abrir un diálogo ?','',0,'gA==','ir08hm4c',1,0,'',2,0,0),(33653,7356,3,2,0,'87.218.146.151',1182452576,1,0,1,1,1,1,'','','Stefan,\n\nYou may rename Hernan browse as Class THBrowse, so there are no conflicts with FWH Class TWBrowse','',0,'gA==','2fkv4gfo',1,0,'',2,0,0),(33654,7363,2,2,0,'87.218.146.151',1182452724,1,0,1,1,1,1,'','','Los campos memos los editas como una variable tipo texto. Revisa el ejemplo samples/TestMemo.prg\n\nSi necesitas colores, lo idóneo es que portes tu aplicación a 32 bits usando FWH y Harbour/xharbour y asi poder usar la Clase TRichEdit que te permite colores, distintos tipos de fonts, imágenes, etc.','',0,'gA==','2bsguq04',1,0,'',2,0,0),(33655,7365,3,34,0,'68.5.217.82',1182453510,1,0,1,1,1,1,'','Editor','I have been using the Resource Editor with Pelles C but I find it has problems also.\n\n1)  It keeps reintroducing old data into the RC file after it has been changed.\n\n2)  It can lose controls that are installed\n\n3)  It doesn\'t correctly apply the fonts selected so the display is not correct.  ( I use a 12 font in the source code, set it as the default in Pelles, but it still displays an 8 font so all text has to be resized blindly ).\n\n4)  It can be erratic\n\n5)  It can suddenly die !\n\nI am also looking for a viable RC tool.','',0,'gA==','4drt0s36',1,0,'',34,0,0),(33656,7365,3,2,0,'87.218.146.151',1182453525,1,0,1,1,1,1,'','','Ken,\n\nThe UES resources editor lacks several important features like alignment, resizing, undo, etc. We thought that the new UES version was going to include them, but it looks as they are not getting many feedback about it so they are not improving it.\n\nYou can use Borland Resources Workshop in Vista, unless you use Vista 64 bits (it does not run 16 bits apps).\n\nPellesC is a good choice too, more modern than Borland one. Anyhow, we keep using Borland Resources Workshop as we are quite used to it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','25f47omo',1,0,'',2,0,0),(33657,7367,6,838,0,'80.59.225.15',1182453530,1,0,1,1,1,0,'','Error con adordd al añadir funcion','Hola amigos\nHe comenzado con el tema de adordd mas MySQL, y funciona bien con un listbox, pero al añadir una funcion que me copia el contenido de la tabla a una dbf me da el siguiente error[url][URL=http://imageshack.us][img:24gczpv8]http&#58;//img516&#46;imageshack&#46;us/img516/4530/errorev1&#46;jpg[/img:24gczpv8][/url][/url]\nel codigo de la funcion que he añadido es el siguiente\n[code:24gczpv8]Function descarga&#40;aAlias&#41;\nrecogidas-&gt;&#40;Dbgotop&#40;&#41;&#41;\nDo while !recogidas-&gt;&#40;Eof&#40;&#41;&#41;\n &#40;aAlias&#91;30&#93;&#41;-&gt;&#40; dbappend&#40;&#41;&#41;\n While &#46;not&#46; &#40;&#40;aAlias&#91;30&#93;&#41;-&gt;&#40;Rlock&#40;&#41;&#41;&#41;; end\n &#40;aAlias&#91;30&#93;&#41;-&gt;Fecha    &#58;= recogidas-&gt;Fecha\n &#40;aAlias&#91;30&#93;&#41;-&gt;Fecha1   &#58;= recogidas-&gt;Fecha\n &#40;aAlias&#91;30&#93;&#41;-&gt;Pro      &#58;= recogidas-&gt;compania\n &#40;aAlias&#91;30&#93;&#41;-&gt;Pro1     &#58;= recogidas-&gt;nombrer\n &#40;aAlias&#91;30&#93;&#41;-&gt;domi     &#58;= recogidas-&gt;calle\n &#40;aAlias&#91;30&#93;&#41;-&gt;domi1    &#58;= recogidas-&gt;caller\n &#40;aAlias&#91;30&#93;&#41;-&gt;tel      &#58;= &quot;&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;tel1     &#58;= &quot;&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;pobla    &#58;= recogidas-&gt;Pobla\n &#40;aAlias&#91;30&#93;&#41;-&gt;pobla1   &#58;= recogidas-&gt;Poblar\n &#40;aAlias&#91;30&#93;&#41;-&gt;conductor&#58;= &quot;00006&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;nconductor&#58;=&quot; &quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;hora     &#58;= recogidas-&gt;hora\n &#40;aAlias&#91;30&#93;&#41;-&gt;notas    &#58;= recogidas-&gt;comentario\n &#40;aAlias&#91;30&#93;&#41;-&gt;codpobla &#58;= &quot; &quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;rutar    &#58;= &quot;60&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;turno    &#58;= &quot;T&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;operador &#58;= &quot;INTERNET&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;&#40; dbUnlock&#40;&#41; &#41;\n recogidas-&gt;&#40;Dbskip&#40;&#41;&#41;\n enddo\n Recogidas-&gt;&#40;Dbzap&#40;&#41;&#41;\nreturn nil\n[/code:24gczpv8]\n\nEsta claro que estoy manejando mal la tabla que se llama \"recogidas\", yo pensaba se se utiliza igual que una dbf.\nAlgunas veces al aceptar en el mensaje de error, se dispara la cantidad de mensajes, me salen un monton en cascada y acaban con uno que habla algo de recursividad.\n\nA ver si alguien me aclara algo\n\nSaludos','',0,'GIA=','24gczpv8',1,0,'',838,0,0),(33658,7367,6,2,0,'87.218.146.151',1182453929,1,0,1,1,1,1,'','','Prueba a comentar esta línea y comprueba si sigue dando el error:\n\n// Recogidas-&gt;(Dbzap())','',0,'GIA=','2wh17hvg',1,0,'',2,0,0),(33659,7364,6,1090,0,'201.254.19.24',1182454260,1,0,1,1,1,0,'','','CREO QUE SI; ESO ES DEFINIR BOTONES DONDE 1 ES OK, 2 ES CANCELL, ETC??? SI ES ESO USO; Y ERRORES SON VARIOS, SEGUN COMO TRATE DE LEVANTAR LA DLL; IGUAL, FIJATE EN EL DEL SAMPLES (EL ERROR QUE TE COMENTO EN EL PRIMER MENSAJE QUE ME DA AL COMPILAR UNO DE LOS PRG\'S DE LA CARPETA SAMPLES); ESE ERROR QUE TIRA DE LA DLL, SI PUEDO HACER ANDAR ESE EJEMPLO, DESPUES TRATO DE PASAR MI DLL A ALGO COMO ESO, O BIEN PARTO DE ESA Y VOY AGREGANDO LO QUE NECESITO.','',0,'GIA=','260ixtwp',1,0,'',1090,0,0),(33660,7364,6,2,0,'87.218.146.151',1182454495,1,0,1,1,1,1,'','','Diego,\n\nEn caso de usar controles de Borland tienes que incluir estas líneas en tu programa:\n[code:5m8rn2a3]\n   &#46;&#46;&#46; \n   local hBorland &#58;= LoadLibrary&#40; &quot;BWCC32&#46;DLL&quot; &#41; \n    \n   BWCCRegister&#40; GetResources&#40;&#41; &#41; \n\n   &#46;&#46;&#46; &#40;el código de tu aplicación&#41; \n\n   FreeLibrary&#40; hBorland &#41; \n\nreturn nil \n\nDLL32 FUNCTION BWCCRegister&#40; hInst AS LONG &#41; AS WORD PASCAL LIB &quot;BWCC32&#46;DLL&quot;\n[/code:5m8rn2a3]\ny tener BWCC32.DLL en donde esté tu aplicación','',0,'AIA=','5m8rn2a3',1,0,'',2,0,0),(33661,7364,6,1090,0,'201.254.19.24',1182454845,1,0,1,1,1,0,'','','ESA FUNCION LA TENGO; LA ENCONTRE INVESTIGANDO PAGINAS DE HARBOUR/FVH; \n\n\nLOCAL HDLL1:=LOADLIBRARY(\"BWCC32.DLL\")\n\nBWCCREGISTER(GETRESOURCES())\n\n// -------------------------------------------------\nDLL32 FUNCTION BWCCREGISTER(HINST AS LONG) AS WORD PASCAL LIB \"BWCC32.DLL\"\nPROCEDURE APPSYS\nRETURN\n\nES LO MISMO...','',0,'AIA=','s3ksmqi3',1,0,'',1090,0,0),(33662,7368,6,785,0,'190.64.230.100',1182455541,1,0,1,1,1,0,'','Instalando MSDE','Amigos:\n\nMe solicitaron algo en SQL y me dijeron que instalara para hacer las\npruebas MSDE.\n\nMe dice que use SAPW o algo parecido, pero no se que es y no se que hacer.\n\nTambién vi que podía instalarse con un archivo ini.\n\nMe podrían mostrar un ejemplo con archivo ini.\no algún lugar donde bajar un manual de instalación en español.\nDebe ser con MSDE.\n\nMuchas gracias y veremos el ADORDD  aver como anda.\n\nSaludos\n\nuben Fernandez.','',0,'AIA=','t4cil2px',1,0,'',785,0,0),(33663,7364,6,2,0,'87.218.146.151',1182457625,1,0,1,1,1,1,'','','Diego,\n\nRevisa el ejemplo samples\\FwBorl.prg que está diseñado para 16 y 32 bits. Puedes encontrar la DLL de 32 bits y el fichero RC usado para crearla.\n\nEl ejemplo TestRes.prg no está adaptado a 32 bits','',0,'AIA=','1aljppuu',1,0,'',2,0,0),(33664,7357,6,73,0,'200.23.18.132',1182458006,1,0,1,1,1,0,'','','Jim,\nen el splitter usa HINDS CONTROLS oMiObjeto \nesta se usa para los controles a la derecha del splitter o por abajo \nsalu2\npaco','',0,'AIA=','j8yfflsi',1,0,'',73,0,0),(33665,7357,6,596,0,'80.28.12.107',1182458784,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:1tuyuor6]en el splitter usa HINDS CONTROLS oMiObjeto \nesta se usa para los controles a la derecha del splitter o por abajo [/quote:1tuyuor6]\n\nEntonces pogo esto:\n\n@ 29, 200 SPLITTER oSplit VERTICAL _3DLOOK PREVIOUS CONTROLS oTree [b:1tuyuor6]HINDS CONTROLS obFichero[/b:1tuyuor6] SIZE 4, 200 PIXEL OF owVerTree \n\n¿ Es correcto ?','',0,'wA==','1tuyuor6',1,0,'',596,0,0),(33666,7368,6,785,0,'190.64.210.184',1182460782,1,0,1,1,1,0,'','','Amigos:\n\nYa lo instalé usando un .ini.\nAlguien sabe de algún programa gráfico para mantenimiento de las bases\nde datos.\n\nSaludos\n\nMuchas gracias.','',0,'wA==','3hv6z0kt',1,0,'',785,0,0),(33667,7367,6,838,0,'80.59.225.15',1182463131,1,0,1,1,1,0,'','','La he comentado y sigue igual, solo me admite el do while si en éste pongo sólo mensajes informativos, si pongo alguna referencia al alias de la dbf casca, aunque sólamente sea bloquearla, simplemente con poner (aAlias[30])-&gt;(rlock()), ya sale el error, y después de éste error, por si sirve de pista, sale siempre este error\n[url][URL=http://imageshack.us][img:12sc7325]http&#58;//img470&#46;imageshack&#46;us/img470/4959/error1jo0&#46;jpg[/img:12sc7325][/url][/url]\n\nque parece que hace referencia a llenado de memoria.\nSi quito cualquier referencia a la dbf, no da el error, pero no puedo grabar los datos en la dbf.\n\nSaludos\n\nJose Luis','',0,'GA==','12sc7325',1,0,'',838,0,0),(33668,7351,3,35,0,'65.188.6.143',1182463367,1,0,1,1,1,0,'','','Rene\n\nChanging the open dynamic did not seem to work .. the recordset opened and I had a top and bottom to my listbox .. however .. there was no visability of updates .. don\'t think SQL server supports dynamic and it just opened it like it was static.\n\nThe Resync() option gave a run-time error unfortunitly .. I have implemented a signature field so I can stop a stale recordset from writing over updated records .. I may have to abandon the local caching of the recordset in favor of just pointing to the server .. going to take a hit in performance .. I may have to re-think how I am presenting the data to the users and force them to query a record each time for get a fresh recordset.\n\nAntonio .. I am using the same mechanism you are using in the ADO RDD with the same open methods .. have you tested multiple workstation visability ??\n\nRick Lipkin','',0,'GA==','18nplhoz',1,0,'',35,0,0),(33669,6815,6,1053,0,'189.174.209.183',1182463646,1,0,1,1,1,1,'','Re: Error en use','[quote=&quot;wmormar&quot;:nknunm7d][quote=&quot;jrendon&quot;:nknunm7d]Perdon lo puse en otro Post. aqui va de nuevo.\n\nHola esta instruccion me marca error. \n\nwdatabase:=\'sii\' \nwserver:=\'192.168.10.1\' \nwuser_db:=\'root\' \nwpassword:=\'12345\' \n\nUSE (&amp;(wdatabase)) VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER WUSER_DB PASSWORD WPASSWORD \n\nError BASE/1003 Variable does not exist: SII \n\ny si pongo directo el nombre de base de datos si trabaja \n\nUSE sii VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM WSERVER USER WUSER_DB PASSWORD WPASSWORD[/quote:nknunm7d]\n\nhazlo asi,\n\nwdatabase:=\'sii\' \nwserver:=\'192.168.10.1\' \nwuser_db:=\'root\' \nwpassword:=\'12345\' \n\nUSE (wdatabase) VIA \"ADORDD\" ALIAS USUARIOS TABLE \"USUARIOS\" MYSQL FROM (WSERVER) USER (WUSER_DB) PASSWORD (WPASSWORD)\n\nsi le antepones el ampersand, lo toma como que la variable es sii y no el nombre de la base de datos.\n\nespero te ayude[/quote:nknunm7d]\n\nSolucionado\n\nGracias.','',0,'gA==','nknunm7d',1,0,'',1053,0,0),(33670,7367,6,2,0,'87.218.146.151',1182464065,1,0,1,1,1,1,'','','Prueba a revisar los campos:\n[code:11hdvswv]\nfor n = 1 to recogidas-&gt;&#40; FCount&#40;&#41; &#41;\n   MsgInfo&#40; recogidas-&gt;&#40; FieldName&#40; n &#41; &#41; &#41;\nnext\n[/code:11hdvswv]','',0,'AIA=','11hdvswv',1,0,'',2,0,0),(33671,7367,6,838,0,'80.59.225.15',1182465075,1,0,1,1,1,0,'','','Me va informando de los nombres de los campos de la tabla, y cuando acaba, si al mover el raton, me aparece un mensaje de error que ya me salio en tiempos y lo solucioné poniendo al comienzo de la aplicacion EXTERNAL ORDKEYCOUNT, pero aun así me ha vuelto a salir\n[url][URL=http://imageshack.us][img:1bpzi2ie]http&#58;//img516&#46;imageshack&#46;us/img516/4887/error2pn2&#46;jpg[/img:1bpzi2ie][/url][/url]\n\nSaludos\n\nJose Luis','',0,'GA==','1bpzi2ie',1,0,'',838,0,0),(33672,7369,2,1072,0,'190.82.36.89',1182467656,1,0,1,1,1,0,'','Ayuda Urgente','Hola Foro:\n\nNecesito solucionar un problema, tengo un Combox, el cual debe ser llenado con una varible CIUDAD, que trae al ingresar el codigo de Cliente, pero este dato no logro que se actualice y muestre la ciudad que corresponde al cliente ingresado.\n\nMuestros el codigo.\n\nIngreso el codigo del cliente:\n\nRedefine Get oEnti1 Var Enti1 Id 30 Of oDlgEdit Update Picture \"@!\"  Color \"w+/g\";\n           Valid (Existe_ent(Enti1),oRut1:Refresh(),oNokoen1:Refresh(),oDien1:Refresh(),oFoen1:Refresh(),.t.)\n\n** Muestro Nombre y Direccion\n  Redefine Get oNoko1 Var Noko1 Id 152 Of oDlgEdit Picture \"@!\"  Color \"w+/g\" Readonly\n  Redefine Get oDir1 Var Dir1 Id 153 Of oDlgEdit  Picture \"@!\"  Color \"w+/g\"  Readonly\n\n** Aqui tengo el problema, Debe mostrar la Ciudad del Cliente\n\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n Redefine ComboBox oCien1 Var nCiudad Items aNomCiudad Id 155 Of oDlgEdit Update Picture \"@!\"  Color \"w+/g\"\n\nUso Fw 2.4, Clipper 5.3, Blinker 5.1\n\nFavor, necesito con suma urgencia.\n\nSaludos,\nAntonio.','',0,'GA==','2mpqw4lk',1,0,'',1072,0,0),(33673,7370,6,121,0,'189.138.167.65',1182470584,1,0,1,1,1,1,'','FREEIMAGE','Alguien tendria la clase Timage que utiliza la dll. de Freeimage ?\nO que cambios le debo hacer a la clase\n\nLa que tengo actualmente solicita el archiv Nviewlib.dll\n\nGracias','',0,'GA==','22t290ic',1,0,'',121,0,0),(33674,7370,6,138,0,'200.65.243.69',1182473079,1,0,1,1,1,1,'','','Desde la version 2.5 de FiveWin, la clase TImage utiliza la Freeimage.DLL en vez de la Nviewlib, seguramente estas utilizando una clase TIMAGE que no es la nativa de FiveWin.','',0,'GA==','1i1gn359',1,0,'',138,0,0),(33675,7358,6,940,0,'189.157.95.90',1182473452,1,0,1,1,1,1,'','','Rafa estoy usando TortoiseCvs,\n\nme podrias porner una imagen de como debe de quedar\n\nla configuracion ?\n\n\nsaludos,, y gracias.','',0,'GA==','34buldlr',1,0,'',940,0,0),(33676,7370,6,121,0,'189.138.167.65',1182475879,1,0,1,1,1,1,'','','QUE EXTRAÑO, PORQUE UTILIZO FIVEWIN 2.7 DE NOV 2005\nY CONSULTANDO EN SOURCE\\CLASSES\\IMAGE.PRG\n\nSOLO VIENE ACCESO A NVIEWLIB.DLL\nINCLUSO LA FECHA DEL ARCHIVO ES MUY ANTIGUA ( 2002 )\n\nME PRODRIAS ENVIAR EL ARCHIVO IMAGE.PRG ACTUALIZADO ?\n\nGRACIAS','',0,'GA==','2u3gk0rk',1,0,'',121,0,0),(33677,7344,6,348,0,'201.230.5.98',1182479928,1,0,1,1,1,0,'','','Hola Fernando\n\nBueno, Yo vengo del Fivewin16, desarrollando  decidi pasarme al de 32bits  con Harbour..  y estoy aqui usando  Harbour , FWH,  y con  las Dbf sin problemas por el momento...  el punto esta en que aun no he usado  otros tipos de Bases de datos,, como  MySql,  o MSSQL  u otra base de datos.... \n\nCual seria mas recomendable y menos costo$a  en tu opinion y en la opinion de todos los amigos del Foro  usando nuestra AdoRDD y sea esta ble como para iniciar las pruebas que me suguieres?? \n\nLubin \n\n\n[quote=&quot;Fernando Mancera&quot;:fkazf161]Hola Lubin,\n\nTe recomiendo que  pruebes  el ADORDD, para saber si realmente cumple tus requisitos.[/quote:fkazf161]','',0,'gA==','fkazf161',1,0,'',348,0,0),(33678,7344,6,348,0,'201.230.5.98',1182480782,1,0,1,1,1,0,'','','Gracias Felix\nPor lo menos por el momento,, Oracle nunca he tenido oportunidad de verlo, y su fama es indudable, pero seguro encontraras la solucion en este foro, asi que esperamos tus noticias cuando nos anuncies  la noticia de  la Estabilidad de esta Clase con Fivewin y Oracle..\n\nsigue adelante !!\n\nLubin \n\n[quote=&quot;Baxajaun&quot;:d97vig1h]Hola Lubin,\n\nyo lo estoy probando con Oracle 9i en dos entornos totalmente diferentes, uno en AIX 5.2 (64 bits) y otro en Windows 2003 Server (32 bits). El gran problema que me estoy encontrando es con los tipos de datos. Pero también puede ser debido a que soy un poco torpe  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos,\n\nFélix[/quote:d97vig1h]','',0,'gA==','d97vig1h',1,0,'',348,0,0),(33679,7349,3,868,0,'219.64.121.60',1182480936,1,0,1,1,1,1,'','','Convert date and seconds into a double value like this and assign the value. Date field in OLE can be assigned a value as date or double\n\n[code:8hhsglu6]\nnDateTime &#58;= &#40; dDate - CTOD&#40;&quot;&quot;&#41;&#41; + &#40;nSeconds/&#40;24*3600&#41;&#41;\noRs&#58;Fields&#40;&quot;datetimefield&quot;&#41;&#58;Value &#58;= nDateTime\n[/code:8hhsglu6]\n\nThis works for all OLE applns, with win32ole.prg of xHarbour. Thiis is working me for Excel and Oracle. Should work for MSSql also.\n\nRegards','',0,'AIA=','8hhsglu6',1,0,'',868,0,0),(33680,7371,6,215,0,'189.136.47.141',1182481841,1,0,1,1,1,1,'','La imagen se desaparece con FreeImage.dll','Algo raro está pasando.\nEn forma aleatoria... a veces mi dialogo no muestra la imagen.\nMe he dado cuenta que cuando no muestra la imagen la\nDATA   hBitmap  es 0   \nSi es un valor negativo o positivo todo bien.\nLo curioso es que salgo del programa... regreso y en la mayoria de las veces regresa a la normalidad. \nEn una ocasión simplemente no funcionó. Tuve que resetear el PC.\nEso mismo hacen mis usuarios cuando no funciona. Tienen que resetar la PC.','',0,'AIA=','rkzf5k4h',1,0,'',215,0,0),(33681,6961,3,159,0,'210.243.203.20',1182482796,1,0,1,1,1,0,'','Upgrade from 3.3.17 to 3.4.0','Now SQLite3 upgrade from 3.3.17 to 3.4.0 and test ok,\nNow can download from:[url:mmvkitf5]http&#58;//www4&#46;zzz&#46;com&#46;tw/phpbb2/viewtopic&#46;php?t=38[/url:mmvkitf5]\n\nand fix some bug about tsqlite.prg.\n\nps:Include full source code.','',0,'EA==','mmvkitf5',1,0,'',159,0,0),(33682,7353,6,78,0,'190.40.249.129',1182485601,1,0,1,1,1,0,'','','Gracias,,,  funciona\nSalu2','',0,'EA==','2hmnhq97',1,0,'',78,0,0),(33683,7330,6,75,0,'83.34.43.218',1182492752,1,0,1,1,1,0,'','Calculadora','Me ha dado la siguiente dirección con mediafire:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?2zxj9ik3tnx\">http://www.mediafire.com/?2zxj9ik3tnx</a><!-- m -->\n\nEspero funcione y os sea de utlidad.','',0,'EA==','1x1fv22x',1,0,'',75,0,0),(33685,7344,6,439,0,'200.125.42.54',1182493682,1,0,1,1,1,1,'','','[quote=&quot;Fernando Mancera&quot;:3ag2dgfz]Lubin,\n\nHay diferentes productos, basicamente todos tiene la misma funcionalidad. Puedes comenzar por MYSQL, es gratis y podrás\nprobar sin problemas. Nosotros lo usamos cuando estabamos\ndesarrollando ADORDD. Luego, como comenta Felix existe ORACLE, además de MSSQL, POSTGRESQL, etc... todos ellos soluciones de pago.[/quote:3ag2dgfz]\n\nPostgreSQL es una solución gratuita.','',0,'gA==','3ag2dgfz',1,0,'',439,0,0),(33686,7354,3,247,0,'83.171.242.103',1182495018,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3qlokewt]Color2Array() is a static function inside tbrowse.prg, so if you don\'t have tbrowse.prg source code there is no way to fix it and then you need to require a new xharbour build\n\nAre you using FiveTech xHarbour build ?[/quote:3qlokewt]\n\nIf I am not mistaken the last fivetech xharbour build is 0.99.71 which I have . If I am wrong please tell me\n\nThank you\nA.S.K','',0,'gA==','3qlokewt',1,0,'',247,0,0),(33687,7367,6,838,0,'80.34.222.112',1182497069,1,0,1,1,1,0,'','','Cuando acaba el bucle, y llega al último campo da el error, no sale del bucle, ya que le pongo un msginfo fuera del bucle y no llega a éste\n\nSaludos\n\nJose Luis','',0,'gA==','11y73r4m',1,0,'',838,0,0),(33688,7356,3,130,0,'141.51.32.24',1182497810,1,0,1,1,1,0,'','','Antonio,\n\nyes, that would be a workaround, but would not solve the problem. And, besides a lot work (i´m replacing the menu system,too, and some other functions), this would cancel the possibility of replacing functions just by linking the changed modul.\n\nAnother point is that it´s working under XP and though it´s a 1:1 copy there are errors under Vista.\n\nI will do some further investigations and report the results here.\n\nkind regards\nStefan','',0,'gA==','1hvi19w3',1,0,'',130,0,0),(33689,7367,6,838,0,'80.34.222.112',1182498610,1,0,1,1,1,0,'','','Si hago lo siguiente:\n[code:2zb6icu9]recogidas-&gt;&#40;Dbgotop&#40;&#41;&#41;\nDo while !recogidas-&gt;&#40;Eof&#40;&#41;&#41;\nmsginfo&#40;recogidas-&gt;compania&#41;\nenddo[/code:2zb6icu9]\n\nMe va informando del contenido del campo compania.\n\nPero si dentro del do while incluyo algo referente a la dbf a la que quiero descargar, aunque sólo sea una llamada al bloqueo no fuencina:\n[code:2zb6icu9]recogidas-&gt;&#40;Dbgotop&#40;&#41;&#41;\nDo while !recogidas-&gt;&#40;Eof&#40;&#41;&#41;\nmsginfo&#40;recogidas-&gt;compania&#41;\nWhile &#46;not&#46; &#40;&#40;aAlias&#91;30&#93;&#41;-&gt;&#40;Rlock&#40;&#41;&#41;&#41;; end\nenddo[/code:2zb6icu9]\n\nMe tiene frito ésto.\n\nSaludos\n\nJose Luis','',0,'AIA=','2zb6icu9',1,0,'',838,0,0),(33690,7367,6,2,0,'87.218.146.151',1182500207,1,0,1,1,1,1,'','','Que RDD usa aAlias[30] ?\n\nQue nombre contiene aAlias[30] ?\n\nPor curiosidad, haz: MsgInfo( aAlias[30] )','',0,'','t9d6hrvh',1,0,'',2,0,0),(33691,7367,6,838,0,'80.34.222.112',1182500541,1,0,1,1,1,0,'','','(aAlias[30]) es un alias de la DBF \"Avisos\", y la abro así\n[code:28tp7qvj]  dbUseArea&#40;&#46;T&#46;,,Publicas&#58;cUnidad+Publicas&#58;cSubd+&quot;\\Avisos&quot;,aAlias&#91;30&#93;,&#46;T&#46;&#41;[/code:28tp7qvj]\n\nCon indices CDX, y en el resto de a aplicación funciona bien.\n\nEs un entorno MDI, por lo que para cada usario es un valor distinto.\n\nNo se que mas decirte\nSeguro que es alqo que se me escapa\n\n\nSaludos\n\nJose Luis','',0,'AIA=','28tp7qvj',1,0,'',838,0,0),(33692,7354,3,2,0,'87.218.146.151',1182500966,1,0,1,1,1,1,'','','We have tested samples\\altd.prg :\n\nbuildx.bat altd /b\n\nand it works fine (using gtwin.lib instead of gtgui.lib)\n\nHave you modified xHarbour ?','',0,'AIA=','o26x8181',1,0,'',2,0,0),(33693,7367,6,838,0,'80.34.222.112',1182501892,1,0,1,1,1,0,'','','Creo que la cuestión va a estar en el envío de los parámetros de una función a otra, me explico\nAntes de abrir la dbf Avisos, hago una comprobación del nombre del alias para éste usuario.\n[code:2atbe8ef]aAlias&#58;= cargaAlias&#40;&#41;\n\nFunction CargaAlias \n*******************\n\nreturn &#123; ;\n         cGetNewAlias&#40; &quot;ARTICULO&quot; &#41;,;   // 1\n         cGetNewAlias&#40; &quot;MUNICI&quot; &#41;  ,;   // 2\n         cGetNewAlias&#40; &quot;PROVIN&quot; &#41;  ,;   // 3\n         cGetNewAlias&#40; &quot;PROPIE&quot; &#41;  ,;   // 4\n	 cGetNewAlias&#40; &quot;SEAT1&quot;  &#41;  ,;	// 5 \n         cGetNewAlias&#40; &quot;RAPPEL&quot; &#41;  ,;	// 6\n         cGetNewAlias&#40; &quot;EQUIPO&quot; &#41;  ,;   // 7\n         cGetNewAlias&#40; &quot;REFEREN&quot; &#41; ,;   // 8\n	 cGetNewAlias&#40; &quot;MATERIAL&quot; &#41;,;	// 9 \n         cGetNewAlias&#40; &quot;VEHICULO&quot; &#41;,;	// 10\n	 cGetNewAlias&#40; &quot;TIPOS&quot; &#41;   ,;	// 11\n	 cGetNewAlias&#40; &quot;CANON&quot; &#41;   ,;	// 12\n	 cGetNewAlias&#40; &quot;TEXTOS&quot; &#41;  ,;	// 13\n	 cGetNewAlias&#40; &quot;IMAGEN&quot; &#41;  ,;	// 14\n				   ,;	// 15\n				   ,;	// 16\n				   ,;	// 17\n	 cGetNewAlias&#40; &quot;PARTE&quot; &#41;   ,;	// 18\n	 cGetNewAlias&#40; &quot;FIESTAS&quot; &#41; ,;	// 19\n	 cGetNewAlias&#40; &quot;VACAS&quot; &#41;   ,;	// 20\n	 cGetNewAlias&#40; &quot;PROVE&quot; &#41;   ,;   // 21\n	 cGetNewAlias&#40; &quot;FACTURA&quot; &#41; ,;   // 22\n	 cGetNewAlias&#40; &quot;ALMACEN&quot; &#41; ,;   // 23\n	 cGetNewAlias&#40; &quot;ALBARAN&quot; &#41; ,;   // 24\n	 cGetNewAlias&#40; &quot;EXTRAS&quot; &#41;  ,;   // 25\n	 cGetNewAlias&#40; &quot;CONDUC&quot; &#41;  ,;   // 26\n	 cGetNewAlias&#40; &quot;GASTOS&quot; &#41;  ,;   // 27\n	 cGetNewAlias&#40; &quot;REEMBOL&quot; &#41; ,;   // 28\n         cGetNewAlias&#40; &quot;RUTA&quot; &#41;    ,;   // 29\n         cGetNewAlias&#40; &quot;AVISOS&quot; &#41;  ,;   // 30\n         cGetNewAlias&#40; &quot;NALBARAN&quot; &#41; ;   // 31\n	&#125;\n[/code:2atbe8ef]\n\nLuego abro la dbf:\n[code:2atbe8ef]  dbUseArea&#40;&#46;T&#46;,,Publicas&#58;cUnidad+Publicas&#58;cSubd+&quot;\\Avisos&quot;,aAlias&#91;30&#93;,&#46;T&#46;&#41;\n  &#40;aAlias&#91;30&#93;&#41;-&gt;&#40;OrdSetFocus&#40;&quot;Fecha1&quot;&#41;&#41;[/code:2atbe8ef]\n\nY luego cuando paso de una funcion a otra que va a utilizar el alias, lo paso por referencia:\n[code:2atbe8ef]  DEFINE BUTTON RESOURCE &quot;MUNDO&quot;	OF oBar NOBORDER MESSAGE &quot;Visualizar Los Avisos en Internet&quot;  ACTION &#40;cTitulo&#58;=&quot;Visualización de Avisos en Internet&quot;,mirasql&#40;cTitulo,aAlias&#41;&#41;;\n			WHEN Publicas&#58;cAccesoC;\n			TOOLTIP &quot;Visualizar Los Avisos en Internet&quot;[/code:2atbe8ef]\n\nLuego la funcion que recibe esto está así:\n[code:2atbe8ef]static function mirasql&#40;titulo,aAlias&#41; \nlocal oDlg, oLbx,n\n\nUSE mi_base VIA &quot;ADORDD&quot; TABLE &quot;recogidas&quot; MYSQL ; \nFROM &quot;mi_sitio&quot; USER &quot;usuario&quot; PASSWORD &quot;contraseña&quot; alias &quot;recogidas&quot;\n\nDEFINE DIALOG oDlg FROM 1, 1 TO 25, 79 \noDlg&#58;cTitle&#58;=titulo\n@ 1, 1 LISTBOX oLbx FIELDS recogidas-&gt;fecha, ; \nrecogidas-&gt;compania, ; \nrecogidas-&gt;Nombrer, ;\nrecogidas-&gt;Caller, ; \nrecogidas-&gt;Poblar, ;\nrecogidas-&gt;Comentario ;\nHEADERS &quot;Fecha &quot;,&quot;Avisado por&#58;&quot;,&quot;Recoger en&#58;&quot;,&quot;Domicilio&quot;,&quot;Poblacion&quot;,&quot;Observaciones&quot; ; \nFIELDSIZES 45,100,100,100,60,100 ; \nSIZE 284, 137 OF oDlg \n\noLbx&#58;nLineStyle &#58;= 1\noLbx&#58;nClrBackHead &#58;= RGB&#40;248,191,36&#41;\noLbx&#58;bTextColor&#58;= &#123;|nRow,nCol,nStyle| If&#40; nStyle==0 &#46;and&#46; nCol==8,CLR_HRED, &#41; &#125;\noLbx&#58;nClrPane&#58;=&#123;||iIF&#40;&#40;oLbx&#58;cAlias&#41;-&gt;&#40;OrdKeyNo&#40;&#41;&#41;%2==0,nRGB&#40;242,247,252&#41;,nRGB&#40;226,226,208&#41;&#41;&#125;\n\n@154,08 BTNBMP LEFT PROMPT &quot; Agregar&quot; SIZE 50,19 OF oDlg RESOURCE &quot;grabasql&quot; ACTION oDlg&#58;End&#40;&#41;\n@154,67 BTNBMP LEFT PROMPT &quot; Modificar&quot; SIZE 50,19 OF oDlg RESOURCE &quot;modifisql&quot; ACTION oDlg&#58;End&#40;&#41; \n@154,125 BTNBMP LEFT PROMPT &quot; Borrar&quot; SIZE 50,19 OF oDlg RESOURCE &quot;borrasql&quot; //ACTION BorraU&#40;oLbx &#41; \n@154,184 BTNBMP LEFT PROMPT &quot; Buscar&quot; SIZE 50,19 OF oDlg RESOURCE &quot;buscasql&quot; //ACTION BuscaU&#40;oLbx,3,&quot;Color&quot;&#41; \n@154,242 BTNBMP LEFT PROMPT &quot; Salir&quot; SIZE 50,19 OF oDlg RESOURCE &quot;salirsql&quot; ACTION &#40;oDlg&#58;End&#40;&#41;&#41;\n\nACTIVATE DIALOG oDlg CENTERED \n// esto lo he puesto aqui de momento para probar\nrecogidas-&gt;&#40;Dbgotop&#40;&#41;&#41;\nDo while !recogidas-&gt;&#40;Eof&#40;&#41;&#41;\nWhile &#46;not&#46; &#40;&#40;aAlias&#91;30&#93;&#41;-&gt;&#40;Rlock&#40;&#41;&#41;&#41;; end\n &#40;aAlias&#91;30&#93;&#41;-&gt;&#40; dbappend&#40;&#41;&#41;\n &#40;aAlias&#91;30&#93;&#41;-&gt;Fecha    &#58;= recogidas-&gt;Fecha\n &#40;aAlias&#91;30&#93;&#41;-&gt;Fecha1   &#58;= recogidas-&gt;Fecha\n &#40;aAlias&#91;30&#93;&#41;-&gt;Pro      &#58;= recogidas-&gt;compania\n &#40;aAlias&#91;30&#93;&#41;-&gt;Pro1     &#58;= recogidas-&gt;nombrer\n &#40;aAlias&#91;30&#93;&#41;-&gt;domi     &#58;= recogidas-&gt;calle\n &#40;aAlias&#91;30&#93;&#41;-&gt;domi1    &#58;= recogidas-&gt;caller\n &#40;aAlias&#91;30&#93;&#41;-&gt;tel      &#58;= &quot;&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;tel1     &#58;= &quot;&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;pobla    &#58;= recogidas-&gt;Pobla\n &#40;aAlias&#91;30&#93;&#41;-&gt;pobla1   &#58;= recogidas-&gt;Poblar\n &#40;aAlias&#91;30&#93;&#41;-&gt;conductor&#58;= &quot;00006&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;nconductor&#58;=&quot; &quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;hora     &#58;= recogidas-&gt;hora\n &#40;aAlias&#91;30&#93;&#41;-&gt;notas    &#58;= recogidas-&gt;comentario\n &#40;aAlias&#91;30&#93;&#41;-&gt;codpobla &#58;= &quot; &quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;rutar    &#58;= &quot;60&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;turno    &#58;= &quot;T&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;operador &#58;= &quot;INTERNET&quot;\n &#40;aAlias&#91;30&#93;&#41;-&gt;&#40; dbUnlock&#40;&#41; &#41;\n recogidas-&gt;&#40;Dbskip&#40;&#41;&#41;\n enddo\n// Recogidas-&gt;&#40;Dbzap&#40;&#41;&#41;\nrecogidas-&gt;&#40;Dbclosearea&#40;&#41;&#41;\n\nRETURN NIL [/code:2atbe8ef]\n\nLo que he observado es que con ésta estructura, que funciona perfectamente sólo con dbf, cuando meto por medio el tema de adordd, me da error en la dbf.\n\nSaludos\n\nJose Luis','',0,'AIA=','2atbe8ef',1,0,'',838,0,0),(33694,7367,6,2,0,'87.218.146.151',1182502390,1,0,1,1,1,1,'','','Pon un MsgInfo() justo aqui:\n\nACTIVATE DIALOG oDlg CENTERED \n// esto lo he puesto aqui de momento para probar \n[color=red:2irng0qa]MsgInfo( aAlias[30] )[/color:2irng0qa]\nrecogidas-&gt;(Dbgotop())','',0,'Ag==','2irng0qa',1,0,'',2,0,0),(33695,7262,7,2,0,'87.218.146.151',1182502569,1,0,1,1,1,1,'','','Dario,\n\nEn este ejemplo se muestra como hacer mantenimientos usando browses, etc:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/clients.zip\">http://www.fivetechsoft.com/files/clients.zip</a><!-- m -->','',0,'Ag==','2witsxqp',1,0,'',2,0,0),(33696,7367,6,838,0,'80.34.222.112',1182502748,1,0,1,1,1,0,'','','\"AVISOS\"\n\nSaludos\n\nJose Luis','',0,'Ag==','177507gg',1,0,'',838,0,0),(33697,7354,3,247,0,'83.171.242.103',1182503168,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2waymgbh]We have tested samples\\altd.prg :\n\nbuildx.bat altd /b\n\nand it works fine (using gtwin.lib instead of gtgui.lib)\n\nHave you modified xHarbour ?[/quote:2waymgbh]\n\n\nBellow is my buildx.bat is it wrong?\n\nThanks\nA.S.K\n\n\n\n[b:2waymgbh]\n@ECHO OFF\nCLS\nECHO &#938;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#911;\nECHO ³ FiveWin for xHarbour 7.05 - May 2007           xHarbour development power ³&#940;\nECHO ³ (c) FiveTech, 1993-2007      for Microsoft Windows 95/98/NT/2000/ME and XP ³&#939;\nECHO &#912;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#916;&#937;&#939;\nECHO &#63739; &#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;&#943;\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\xharbour\nset bcdir=c:\\bcc55\n\n%hdir%\\bin\\harbour %1 /n  /i..\\include;%hdir%\\include  /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho ..\\lib\\Fivehx.lib ..\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n\nrem uncomment this line to use the debugger and comment the following one\nrem %bcdir%\\bin\\ilink32 -Gn -Tpe -s -v @b32.bc\n%bcdir%\\bin\\ilink32 -Gn  -Tpe -s -v @b32.bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1.c\n\n:LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi&#902;n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n[/b:2waymgbh]','',0,'wA==','2waymgbh',1,0,'',247,0,0),(33698,7372,2,509,0,'80.34.248.50',1182503638,1,0,1,1,1,0,'','Infracción de acceso en WOW32.dll','Hola:\n     Pasado un tiempo que el programa está funcionando aparece el siguiente error:\n\n     VISOR ha causado una infracción de acceso en WOW32.dll en 0x0ffd4d50\n\n     Este programa está consultando los kilos de un visor cada medio segundo mediante un TIMER que hace la llamada a consultar los kilos solo si la variable oApp:lTimer es .T.\n\n     Saludos.\n     Ricardo Patón','',0,'wA==','3kmqq7jc',1,0,'',509,0,0),(33699,7351,3,6,0,'87.16.223.247',1182504642,1,0,1,1,1,1,'','','Rick, I want to thank you for sharing these valuable informations.\n\nEMG','',0,'wA==','hp21kgz6',1,0,'',6,0,0),(33700,7354,3,247,0,'83.171.242.103',1182504831,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1c52uw99]We have tested samples\\altd.prg :\n\nbuildx.bat altd /b\n\nand it works fine (using gtwin.lib instead of gtgui.lib)\n\nHave you modified xHarbour ?[/quote:1c52uw99]\n\nAntonio thank you very much for your patience . I just downloaded the last Fivetech XHarbour from your site and fixes the problem\n\nAGAIN THANK YOU VERY MUCH\n\nA.S.K','',0,'gA==','1c52uw99',1,0,'',247,0,0),(33701,7365,3,316,0,'83.175.212.82',1182504862,1,0,0,1,1,0,'','','I should recommend Resource Builder from sicomponents.com\n\nIt has a lot of features including User Control Libraries like BWCC32.dll\nAllow bitmap edition with aplha channel\nand lots of features.\n\nDeserves to look the demo.\n\nRegards,\n\nCarlos.','',0,'gA==','17imdtpb',1,0,'',316,0,0),(33702,7358,6,24,0,'80.24.12.168',1182505305,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:1ztvg3nv]Rafa estoy usando TortoiseCvs,\n\nme podrias porner una imagen de como debe de quedar\n\nla configuracion ?\n\n\nsaludos,, y gracias.[/quote:1ztvg3nv]\n\nComo no puede mandar imagen, te pongo aqui los paramentros exactos.\nProtocol:              :pserver:\nServer:                t-gtk.cvs.sourceforge.net\nRepository folder: /cvsroot/t-gtk\nUser name:          anonymous\nModule:                sqlite3\n\nEn definitiva tienes que tener una linea CVSROOT como;\n:pserver:anonymous@t-gtk.cvs.sourceforge.net:/cvsroot/t-gtk \n\nPero el modulo tienes que poner el sqlite3, de lo contrario, te vas\na bajar T-Gtk.\n\nConfirmamé si funcionó. ¿ Alguien le funcionó ?','',0,'gA==','1ztvg3nv',1,0,'',24,0,0),(33703,7344,6,24,0,'80.24.12.168',1182505449,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:2xb0qmxp][quote=&quot;Fernando Mancera&quot;:2xb0qmxp]Lubin,\n\nHay diferentes productos, basicamente todos tiene la misma funcionalidad. Puedes comenzar por MYSQL, es gratis y podrás\nprobar sin problemas. Nosotros lo usamos cuando estabamos\ndesarrollando ADORDD. Luego, como comenta Felix existe ORACLE, además de MSSQL, POSTGRESQL, etc... todos ellos soluciones de pago.[/quote:2xb0qmxp]\n\nPostgreSQL es una solución gratuita.[/quote:2xb0qmxp]\n\nSiento corregirte, PostgreSQL es una solución LIBRE, haber si ha aprendes las diferencias entre libre y gratuito.\n\nI\'m sorry, no pude resistirme.... ( Lo libre no implica que sea gratis )','',0,'gA==','2xb0qmxp',1,0,'',24,0,0),(33704,7330,6,106,0,'85.34.123.173',1182505959,1,0,1,1,1,1,'','','Verhoven, \n\n\nBuenisima la calculadora, y muy util.\n\n\n\n\nSaludos.','',0,'gA==','3u7in0g8',1,0,'',106,0,0),(33705,7369,2,106,0,'85.34.123.173',1182506306,1,0,1,1,1,1,'','','Antonio,\n\n\nprueba con esto:\n\n\nSetItems        	Changes the items shown in the combobox\n\nO sea, cuando validas que exista el cliente, actualizas el combobox.\n\noCien1:SetItems( aNomCiudad )\noCien1:refresh()\n\n\n\nSaludos.','',0,'gA==','1ysjd03z',1,0,'',106,0,0),(33706,7372,2,2,0,'87.218.146.151',1182507122,1,0,1,1,1,1,'','','Ricardo,\n\nDeberías pasar la aplicación a 32 bits usando FWH y harbour/xharbour, así no se usaría la capa WOW (\"Windows on Windows\") de emulación de 16 bits sobre 32 bits','',0,'gA==','2bycs1jv',1,0,'',2,0,0),(33707,7367,6,2,0,'87.218.146.151',1182507312,1,0,1,1,1,1,'','','Jose Luis,\n\nEstás usando el ADORDD más reciente descargado desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w --> ?\n\nEl mismo que está en <!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'gA==','ip2qw4ro',1,0,'',2,0,0),(33708,7351,3,106,0,'85.34.123.173',1182507362,1,0,1,1,1,1,'','','Only a test, but seems work:\n\n[code:29d4yjr4]\n\n  oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n  cSQL &#58;= &quot;SELECT * FROM Articoli ORDER BY codice ASC&quot;\n\n  TRY\n    oRs&#58;Open&#40; cSQL, oConnection, adOpenStatic, adLockOptimistic &#41; // 3, 3 \n\n  CATCH oError\n    MsgStop&#40;oError&#58;Operation+CRLF+oError&#58;Description,&quot;Ado Connection&quot;&#41;\n    RETURN NIL\n\n  END TRY\n\n    DEFINE TIMER oTimer;\n           INTERVAL 1000;\n           ACTION &#40; nTimer++, IIF&#40; nTimer &gt; 10, RefreshSQL&#40; @nTimer, oTimer, oRs, oBrw &#41;, &quot;&quot; &#41; &#41; OF oDlg\n    ACTIVATE TIMER oTimer\n    oTimer&#58;deActivate&#40;&#41;\n\n  DEFINE DIALOG oDlg ;\n    FROM 7,7 to 35,104 ;\n    TITLE &quot;Articoli&quot;\n  \n  @ 0, 0 LISTBOX oBrw;\n      FIELDS &quot;&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;;\n      HEADERS &quot;Codice&quot;, &quot;Descrizione&quot;, &quot;Desc&#46; Aggiuntiva&quot;, &quot;Nota 1&quot;, &quot;Nota 2&quot;;\n      OF oDlg\n\n      oBrw&#58;bLine     &#58;= &#123; || &#123; oRs&#58;Fields&#40; &quot;codice&quot; &#41;&#58;Value, oRs&#58;Fields&#40; &quot;descrizione&quot; &#41;&#58;Value, oRs&#58;Fields&#40; &quot;descrizione_aggiuntiva&quot; &#41;&#58;Value, oRs&#58;Fields&#40; &quot;nota1&quot; &#41;&#58;Value, oRs&#58;Fields&#40; &quot;nota2&quot; &#41;&#58;Value &#125; &#125;\n      oBrw&#58;bLogicLen &#58;= &#123; || oRs&#58;RecordCount &#125;\n      oBrw&#58;bGoTop    &#58;= &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n      oBrw&#58;bGoBottom &#58;= &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n      oBrw&#58;bSkip     &#58;= &#123; | nSkip | SkipperAdo&#40; oRs, nSkip &#41; &#125;\n      oBrw&#58;cAlias    &#58;= &quot;&quot;\n  \n  ACTIVATE DIALOG oDlg;\n    ON INIT &#40; oDlg&#58;SetControl&#40; oBrw &#41;, nSecFine&#58;= SECONDS&#40;&#41;, InfStat&#40; NTRIM&#40; nSecFine-nSecIni &#41; + &quot; secondi&#46;&#46;&#46; - &quot; + NTRIM&#40; oRs&#58;RecordCount &#41; + &quot; records&#46;&#46;&#46;&quot; &#41;, oTimer&#58;activate&#40;&#41; &#41;\n\n    oTimer&#58;end&#40;&#41;\n\n  TRY\n    oRs&#58;Close&#40;&#41;\n  CATCH\n  END TRY\n\n\n  TRY\n    oConnection&#58;Close&#40;&#41;\n  CATCH\n  END TRY\n\n\nRETURN NIL\n\n\nFUNCTION RefreshSQL&#40; nTimer, oTimer, oRs, oBrw &#41;\nLOCAL nRec &#58;= oRs&#58;AbsolutePosition\n\n  nTimer &#58;= 0\n  oTimer&#58;deActivate&#40;&#41;\n  CursorWait&#40;&#41;\n\n  TRY\n    oRs&#58;Requery&#40;&#41;\n  CATCH\n  END TRY\n\n\n  TRY\n    oRs&#58;Move&#40; nRec-1 &#41;\n  CATCH\n  END TRY\n\n  oBrw&#58;refresh&#40;&#41;\n  CursorArrow&#40;&#41;\n  oTimer&#58;Activate&#40;&#41;\n\nRETURN NIL\n\n[/code:29d4yjr4]','',0,'AIA=','29d4yjr4',1,0,'',106,0,0),(33709,7369,2,2,0,'87.218.146.151',1182507442,1,0,1,1,1,1,'','','aNomCiudad contiene palabras ó números ?','',0,'AIA=','1jl4fr0h',1,0,'',2,0,0),(33710,7354,3,2,0,'87.218.146.151',1182507497,1,0,1,1,1,1,'','','you are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3pus9682',1,0,'',2,0,0),(33711,7372,2,509,0,'80.34.248.50',1182507574,1,0,1,0,1,0,'','','Voy a probar con FWH.\n\nGracias.\n\nSaludos.\nRicardo Patón','',0,'AIA=','3ej1cil4',1,0,'',509,0,0),(33712,7351,3,2,0,'87.218.146.151',1182507668,1,0,1,1,1,1,'','','Rick,\n\n&gt;\nAntonio .. I am using the same mechanism you are using in the ADO RDD with the same open methods .. have you tested multiple workstation visability ?? \n&gt;\n\nNo, sorry, we have just done local tests with it','',0,'AIA=','1ea9j7jz',1,0,'',2,0,0),(33713,6814,3,473,0,'81.82.10.56',1182507937,1,0,1,1,1,0,'','How to connect to MS SQL server','I have installed a free MS SQL 2005 server on a server.\n\nI\'ve build a database with some tables.\n\nHow can I connect to it. Do I have to use a path or an ip adress.\n\nDo I need a client dll ??\n\nI think the examples in the adordd are working for a local file.\n\nThanks,\n\nWilly Hermans.','',0,'AIA=','2t1bprfx',1,0,'',473,0,0),(33714,7367,6,838,0,'80.34.222.112',1182508521,1,0,1,1,1,0,'','','Estoy utilizando esa versión\nIncluyo adordd.prg en la compilación, así como las dos librerias que vienen para xharbour.\nYo utilizo FWH 2.9 la de octubre de 2006.\n\nSaludos\n\nJose Luis','',0,'AIA=','2psuckpk',1,0,'',838,0,0),(33715,6814,3,177,0,'194.30.62.6',1182510080,1,0,1,1,1,0,'','','Hi Willy,\n\ntry <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7312\">http://fivetechsoft.com/forums/viewtopic.php?t=7312</a><!-- m -->\n\nYou can use Server Name if you use DNS Server or hosts file with names and ips.\n\nNo, you don\'t need a client.\n\nBest regards,\n\nFelix','',0,'AIA=','3n2dz9zj',1,0,'',177,0,0),(33716,7367,6,2,0,'87.218.146.151',1182510297,1,0,1,1,1,1,'','','Parece que el problema viene de que se produce un error y desde el errorsys vuelve a crearse otro error, asi que prueba a cambiar el ErrorBlock():\n\nErrorBlock( { | oError | MsgInfo( oError:Description ) } )\n\ny prueba de nuevo tu aplicación a ver que mensaje te aparece','',0,'AIA=','1963j2a9',1,0,'',2,0,0),(33717,7367,6,838,0,'80.34.222.112',1182514198,1,0,1,1,1,0,'','','Esta linea la incorporo en el prg justo justo donde se atasca?\n\nSaludos\n\nJose Luis','',0,'AIA=','ftc8gn2l',1,0,'',838,0,0),(33718,6814,3,473,0,'81.82.10.56',1182516161,1,0,1,1,1,0,'','','[quote:1m6irk0l]Use \"MediBank\" Via \"ADORDD\" Table \"Provider\" FROM \"Server\\SQLEXPRESS\" User \"sa\" PASSWORD \"\" SQL[/quote:1m6irk0l]\n\nIf I run this I have an error code 16389 E_Fail:Open\n\nThe User is sa and there  is no password\n\nIt works in visual studio\n\nAny idea\n\nThanks,\n\nWilly Hermans','',0,'gA==','1m6irk0l',1,0,'',473,0,0),(33719,7367,6,838,0,'80.34.222.112',1182516884,1,0,1,1,1,0,'','','Tendrá ésto algo que ver con el comando USE que se utiliza para abrir MysQL, que afecte también a las dbfs.?\nDe todas formas, he probado a crear una DBF temporal después del activate dialog, y me sigue dando el error.\nSin embargo, si compilo exclusivamente la parte que afecta sólo a MySQL sin intervenir ninguna dbf funciona perfectamente, pero no puedo interacturar con DBFS\n\nSaludos\n\nJose Luis','',0,'gA==','2f41s0xu',1,0,'',838,0,0),(33720,7367,6,2,0,'87.218.146.151',1182517335,1,0,1,1,1,1,'','','Genera el PPO a partir del PRG y comprueba si esta traduciendo bien los USE ...\n\nPon la línea que te he comentado antes del error','',0,'gA==','3lkwrovu',1,0,'',2,0,0),(33721,7373,3,511,0,'200.35.215.227',1182519208,1,0,1,0,1,1,'','Dll for print invoices in xHarbour','Hi Everybody,\n\nI use pcode dll for print invoices with Harbour, but the same prg not working with xHarbour.  The sample program testdll/pcode (fwh\\samples) with Harbour is ok but compiling with xHarbour dont. I change the build \"BUILDHDP.BAT\" for xHarbour.exe and FiveHx.lib. Somebody would help me with this ?, Thanks in advance.','',0,'gA==','3lq2tiwi',1,0,'',511,0,0),(33722,7373,3,2,0,'87.218.146.151',1182519473,1,0,1,1,1,1,'','','Alvaro,\n\nxharbour may have broken Harbour compatibility on this issue. \n\nYou may ask it at comp.lang.xharbour','',0,'gA==','286juo9c',1,0,'',2,0,0),(33723,7368,6,308,0,'84.148.28.213',1182520656,1,0,1,1,1,0,'','Re: Instalando MSDE','[quote=&quot;Ruben Fernandez&quot;:1l4m74wc]Amigos:\n\nMe solicitaron algo en SQL y me dijeron que instalara para hacer las\npruebas MSDE.\n\nMe dice que use SAPW o algo parecido, pero no se que es y no se que hacer.\n\nTambién vi que podía instalarse con un archivo ini.\n\nMe podrían mostrar un ejemplo con archivo ini.\no algún lugar donde bajar un manual de instalación en español.\nDebe ser con MSDE.\n\nMuchas gracias y veremos el ADORDD  aver como anda.\n\nSaludos\n\nuben Fernandez.[/quote:1l4m74wc]\n\nsetup /L*v c:\\msde_install.log TARGETDIR=\"C:\\programme\\Microsoft SQL Server\\MSSQLSERVER\" DATADIR=\"C:\\programme\\Microsoft SQL Server\\MSSQLSERVER\" SECURITYMODE=SQL BLANKSAPWD=1','',0,'gA==','1l4m74wc',1,0,'',308,0,0),(33725,7351,3,35,0,'167.7.140.254',1182522815,1,0,1,1,1,0,'','','Pedro\n\nI did see the ReQuery method .. however I would prefer not to re-query a full recordset .. Have you tried the ReSync method ?? Any ideas the syntax ??\n\nRick Lipkin','',0,'gA==','1g37wn1i',1,0,'',35,0,0),(33726,7344,6,439,0,'200.125.40.116',1182523114,1,0,1,1,1,1,'','','[quote=&quot;thefull&quot;:1eu92pbu] Siento corregirte, PostgreSQL es una solución LIBRE, haber si ha aprendes las diferencias entre libre y gratuito.\n\nI\'m sorry, no pude resistirme....( Lo libre no implica que sea gratis )[/quote:1eu92pbu]\n\nRafa, no tienes porque disculparte por correjir errores, y en cuanto a tu forma de hacerlo.... pues ya nos es familiar y privilegio de los que saben <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->, lo cual respeto.\n\nEntendía yo que PostgreSQL además de ser libre no era de pago (no es que no conozca la diferencia, y si bien lo libre no implica gratis algo puede ser libre y además gratuito sin ser de dominio público) y lo había considerado como mi alternativa de futuro en base de datos, de manera que [b:1eu92pbu]sería importante para mí entender si este software es de pago o gratuito[/b:1eu92pbu] y en que condiciones, en la página web de PostgreSQL invita a hacer contribuciones pero por ninguna parte encontré que el producto tuviera un precio de venta, lo que me hizo pensar que además de libre no era de pago, pero si no es así, por favor [b:1eu92pbu]apreciaré me indiquen donde ver el valor de este producto, licencias, etc[/b:1eu92pbu].\n\nGracias desde ya.','',0,'wA==','1eu92pbu',1,1182524323,'',439,3,0),(33727,7344,6,348,0,'201.240.151.101',1182523810,1,0,1,1,1,0,'','','Buen dia TheFull\n\nSi bien los terminos LIBRE y GRATUITO son diferentes pero pueden llevar a confusion, no se si seria mucho pedirte nos  ilustres las diferencias aplicadas a estos gestores de bases  de datos, pues seguro  muchos del Foro desean aclarar la idea. es muy importante para tomar la desicion sobre que Gestor de bases de datos escoger , tener claro entre la Funcionalidad, Calidad y las Condiciones comerciales determinan como desarrollas tu sistema... \n\nquizas para lanzar el tema ....  como es con MySql  o cualquier otro que tu conozcas\n\nGracias\nlubin\n\n\n\n[quote=&quot;thefull&quot;:2lfum78k][quote=&quot;jose_murugosa&quot;:2lfum78k][quote=&quot;Fernando Mancera&quot;:2lfum78k]Lubin,\n\nHay diferentes productos, basicamente todos tiene la misma funcionalidad. Puedes comenzar por MYSQL, es gratis y podrás\nprobar sin problemas. Nosotros lo usamos cuando estabamos\ndesarrollando ADORDD. Luego, como comenta Felix existe ORACLE, además de MSSQL, POSTGRESQL, etc... todos ellos soluciones de pago.[/quote:2lfum78k]\n\nPostgreSQL es una solución gratuita.[/quote:2lfum78k]\n\nSiento corregirte, PostgreSQL es una solución LIBRE, haber si ha aprendes las diferencias entre libre y gratuito.\n\nI\'m sorry, no pude resistirme.... ( Lo libre no implica que sea gratis )\n\n\n\n\n[/quote:2lfum78k]','',0,'gA==','2lfum78k',1,0,'',348,0,0),(33728,7368,6,785,0,'190.64.203.194',1182524547,1,0,1,1,1,0,'','','Muchas gracias NK\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','341o62y0',1,0,'',785,0,0),(33729,7344,6,348,0,'201.240.151.101',1182524850,1,0,1,1,1,0,'','','Hola Fernando,  gracias por el comentario,  \n\nQuzas podriamos decir que con MySql, la implementacion del la Clase AdoRDD esta culminada ??  que podemos hacer??  y que NO podemos hacer aun  usando ese entorno.  ??\ncon que version del MySql fue probada ??? \nhay alguna restriccion con el nro de conexiones simultaneas en la Red ??\nLa seguridad en las Bases de datos, corrupcion. etc.  es optima??\n\nGracias. \n\nLubin\n \n\n\n[quote=&quot;Fernando Mancera&quot;:3udp24z6]Lubin,\n\nHay diferentes productos, basicamente todos tiene la misma funcionalidad. Puedes comenzar por MYSQL, es gratis y podrás\nprobar sin problemas. Nosotros lo usamos cuando estabamos\ndesarrollando ADORDD. Luego, como comenta Felix existe ORACLE, además de MSSQL, POSTGRESQL, etc... todos ellos soluciones de pago.[/quote:3udp24z6]','',0,'gA==','3udp24z6',1,0,'',348,0,0),(33730,7374,6,875,0,'64.76.108.179',1182525241,1,0,1,1,1,0,'','Dibujar cuadrado y linea','Alguien sabe la funcion que me permita dibujar un cuadrado o rectangulo dentro de un Dialog  o Window,  y tambien como dibujar una linea o separador?\n\nAlguien tiene un ejemplo?\n\n\nAtt.\n\nJaime','',0,'gA==','27ng0cdl',1,0,'',875,0,0),(33731,7373,3,511,0,'200.35.215.227',1182525355,1,0,1,0,1,1,'','','Antonio,\n\nDo you have some example of pcode-dll in xHarbour\n\nThanks','',0,'gA==','249s1lfo',1,0,'',511,0,0),(33732,7375,3,529,0,'200.159.199.104',1182525542,1,0,1,1,1,0,'','gradient with bitmap transparent or text (urgent)','HI, i need an sample to put an gradient (degrade) gray in main window (mdi) and an transparente bitmap or with an text raised, someone has an sample??\nvery thanks','',0,'gA==','2njknt3w',1,0,'',529,0,0),(33733,7376,1,47,0,'58.8.109.190',1182526009,1,0,1,1,1,0,'','To Antonio, How to DEFINE FONT with Script Thai?','Dear Antonio,\n\nI\'ve got the problem with some Thai Font.  I can use \"Ms Sans Serif\" in Thai within my program.  But there are some Thai Font is not support as follow sample:\n- Tahoma\n- Arial\nIn MS Office both Font can type and display in Thai.  \n\nIf I use following command and select Script with Thai, it work fine.\nDEFINE FONT \'Tahoma\' SIZE 0, -12 FROM USER\n\nHow I can DEFINE FONT with [b:ajy6n1sl]Script Thai[/b:ajy6n1sl] as following\n\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=thaifontwd1&#46;png:ajy6n1sl][img:ajy6n1sl]http&#58;//img224&#46;imageshack&#46;us/img224/2414/thaifontwd1&#46;th&#46;png[/img:ajy6n1sl][/url:ajy6n1sl]\n\nBest regards,\nDutch','',0,'WA==','ajy6n1sl',1,0,'',47,0,0),(33734,7377,6,171,0,'71.233.232.238',1182528630,1,0,1,1,1,0,'','Harbour Problem?','Hola,\n\nEstoy tratando de recompilar mi aplicacion con HARBOUR, ya que  al usar la clase tGraph.prg con xHarbour  no me funciona Save2Bmp().\n\nUsando Verce v4.3 y Harbour (Alpha build 45.0) con la version de FWH Sep 06, obtengo lo siguiente:\n\n[code:3j0ufvq7]\nError&#58; Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C&#58;\\FWHSEP06\\LIB\\FIVEH&#46;LIB|ERRSYSW\n\nError&#58; Unresolved external \'_hb_objHasMessage\' referenced from C&#58;\\FWHSEP06\\LIB\\FIVEHC&#46;LIB|FFDLGPRC\n\nError&#58; Unresolved external \'_HB_FUN_HB_ISSTRING\' referenced from C&#58;\\_AML_H\\CT&#46;LIB|spread\n\nError&#58; Unresolved external \'_HB_FUN_HB_ISNUMERIC\' referenced from C&#58;\\_AML_H\\CT&#46;LIB|spread\n[/code:3j0ufvq7]\n\nEstas ultimas dos funciones, ISSTRING e ISNUMERIC la integre dentro de uno de mis PRG, pero aun asi sale saliendo este error.\n\nAlguna sugerencia(s)?\n\nSaludos\n\nGeorge','',0,'AIA=','3j0ufvq7',1,0,'',171,0,0),(33735,7369,2,1072,0,'200.83.125.140',1182530602,1,0,1,1,1,0,'','','Antonio:\n\nLa variable \"aNomciudad\", es un arreglo cargado con el nombre de la ciudad, es chequeado los  sus valores, pero no puedo refrescar su valor, para ser mostrado.\n\nGracias por responder,\n\nAntonio\n\n[quote=&quot;Antonio Linares&quot;:767oi9u3]aNomCiudad contiene palabras ó números ?[/quote:767oi9u3]','',0,'gA==','767oi9u3',1,0,'',1072,0,0),(33736,7344,6,24,0,'80.24.12.168',1182531581,1,0,1,1,1,1,'','','Es tu propia definición, ya contestas a tu pregunta.\nCreo recordad que PostgreSQL es BSD, por lo tanto, no tienes que pagar nada por el ni no tienes que pagar nada por usarlo, y aunque fuese GPL, tampoco.\n\nMySql tiene su propia licencia de uso, que si bien es libre para desarrollos libres, no lo es tanto, tienes que pagar, cuando vendes tu programa con software propietario y conectandose contra un servidor MySql., o es libre tambien si lo usas dentro de tu empresa para uso de la empresa.\n\nLa verdad que del tema de la licencia de MySql, más bien se poco, Jose A. puso en su dia los términos sobre los cual se regian dichas licencias, pero si te digo la verdad, NO ME ENTERE DE NADA!, demasiadas situaciones absurdas para mi gusto...','',0,'gA==','1qgrsjwk',1,0,'',24,0,0),(33737,6815,6,1089,0,'201.246.31.221',1182532842,1,0,1,1,1,0,'','','Antonio, gracias por responder rápidamente,\n\nel compilador harbour que tengo es el siguiente, estoy en mis inicios, así que preferí copiar la línea que lanza después de la ejecución.\n\nHarbour devel build 1.1-0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->','',0,'gA==','3tjcrnkg',1,0,'',1089,0,0),(33738,7374,6,53,0,'189.139.20.210',1182535984,1,0,1,1,1,1,'','','Jaime:\n\nDale una mirada a estas funciones\n\nRectangle( oDlg:hDC, nTop,nLeft,nBottom,nRight)\nMoveTo(oDlg:hDC, nLeft, nTop - 6)\nLineTo(oDlg:hDC, nLeft + nWidth, nTop - 6)\n\nSaludos','',0,'gA==','vi0g7fz2',1,0,'',53,0,0),(33739,7374,6,53,0,'189.139.20.210',1182536355,1,0,1,1,1,1,'','','Jaime:\n\nAquí tienes una imagen para ver si es lo que necesitas\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/imageview.php?quickkey=4iy3qbyvkgu&amp;thumb=4\">http://www.mediafire.com/imageview.php? ... gu&amp;thumb=4</a><!-- m -->\n\nSaludos','',0,'gA==','1zro40ya',1,0,'',53,0,0),(33740,7145,6,64,0,'201.72.124.2',1182536483,1,0,1,0,1,1,'','','UP.\n\nSou usuária registrada da Extended Systems, tenho licença do ADS 8.1, como faço para obter o manual? \n\nGracias. \n\n[img:2pv8dcro]http&#58;//br&#46;geocities&#46;com/shirleydalmeida/Tela_ADS&#46;bmp[/img:2pv8dcro] \n\n<!-- m --><a class=\"postlink\" href=\"http://br.geocities.com/shirleydalmeida/Tela_ADS.bmp\">http://br.geocities.com/shirleydalmeida/Tela_ADS.bmp</a><!-- m -->','',0,'CA==','2pv8dcro',1,0,'',64,0,0),(33742,7358,6,940,0,'189.157.72.130',1182542079,1,0,1,1,1,1,'','','Gracias Rafa,\n\nvoy a provar tus comando,\n\nsaludos.','',0,'EA==','2q915vyx',1,0,'',940,0,0),(33743,7358,6,940,0,'189.157.72.130',1182542506,1,0,1,1,1,1,'','','Rafa, funciono perfecto con la linea CVSROOT que indicastes\n\n:pserver:anonymous@t-gtk.cvs.sourceforge.net:/cvsroot/t-gtk \n\n\nmuchas gracias ahora vamos a mirar el folder SQLITE3\n\nsalu2.','',0,'EA==','cb2adh78',1,0,'',940,0,0),(33744,7378,6,960,0,'84.125.196.99',1182542923,1,0,1,1,1,0,'','error en  twbrowse al enlazar','Compañeros:\n\nEstoy intentando enlazar la clase de Hernan TWbrowse v17, conseguida en las utilidades de este foro, pero al enlazarlo me genera un error:\n\n@c:\\programacion\\cee\\cee.mak.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_dynsymSymbol\' referenced from C:\\TWBROWSE\\TWBROWSE 17-[X]HARBOUR\\LIB\\TWBRW32.LIB|wbrwline\n\nIntento que funcione la rueda del ratón para hacer scroll en los listbox.\nUtilizo FW 2.4 y AJMaker para compilar.\n\nMil gracias.\nUn saludo a todos!\nLORENZO','',0,'','1k31nrqo',1,0,'',960,0,0),(33745,7375,3,529,0,'200.159.199.104',1182544317,1,0,1,1,1,0,'','','i need only an degrade in main windows...','',0,'','2xpkelmt',1,0,'',529,0,0),(33746,7330,6,362,0,'200.148.67.196',1182544715,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:2wce6ed4]Verhoven, \n\n\nBuenisima la calculadora, y muy util.\n\n\n\n\nSaludos.[/quote:2wce6ed4]\n\nEXCELENTE! PARABIÉNS!','',0,'gA==','2wce6ed4',1,0,'',362,0,0),(33747,7367,6,838,0,'80.59.225.15',1182544880,1,0,1,1,1,0,'','','Efectivamente es problema de los USE.\nAl poner el errorblock delante de la primera referencia a la DBF, me da el error Workarea not in use, eso significa que el USE de MySQL ha cerrado el area de trabajo de la DBF. Yo pensaba que no tenian nada que ver uno con otro.\nLo que me confundía a mi era el error que me daba, hasta que he puesto el codeblock que me has mandado.\nEntonces no se puede abrir MySQL como area de trabajo distinta para poder trabajar con alias como dbf?.\n\nGracias por tu ayuda\n\nSaludos\n\nJose Luis','',0,'gA==','3166iy7e',1,0,'',838,0,0),(33748,7379,3,6,0,'82.57.160.103',1182546593,1,0,1,1,1,1,'','A question regarding TCombobox','The following sample doesn\'t show the string \"Other\" on the combobox. Is it expected?\n\n[code:3s6goopj]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= &quot;Other&quot;\n\n    LOCAL aItems &#58;= &#123; &quot;Test 1&quot;, &quot;Test 2&quot;, &quot;Test 3&quot; &#125;\n\n    DEFINE DIALOG oDlg\n \n    @ 1 , 1 COMBOBOX cVar;\n            ITEMS aItems\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:3s6goopj]\n\nEMG','',0,'AIA=','3s6goopj',1,0,'',6,0,0),(33749,7378,6,940,0,'189.157.72.130',1182561204,1,0,1,1,1,1,'','','Loren,\n\nno has intentado agregar a tu proyecto, \n\nwbrowse.prg\ntmultise.prg  y wbrwline.c\n\nen lugar de tu libreria,,?\n\nsaludos..','',0,'AIA=','8623e3jg',1,0,'',940,0,0),(33750,7262,7,840,0,'190.76.40.138',1182561886,1,0,0,0,1,1,'','','antonio\n\n\nel ejemplo que me diste ya lo habia visto.\n\nrealmente lo que necesito es hacer un mantenimento dentro de un listbox\n\nuna ves visualisado el listbox al oprimir doble clik dentro del lixbox\neliminar el registro del listbox y la barra de desplazamiento se posione\nen el primer registro y resfrescar el listbox, he hecho varias pruebas \npero no he logrado que el listbox se refresque la pantalla.\n\nsi nienes un ejemplo que sea de five win me serveria.\n\nsaludos \ndario ferreira\n\npos data no pongo mi foto en el foro porque me paresco mucho\na ti.\n\ncuando vi la foto en el foro me parecio verme.\n\n\nsaludos dario ferreira.\n.  \n\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'AIA=','3vqrr0ni',1,0,'',840,0,0),(33751,7344,6,439,0,'200.125.36.69',1182564600,1,0,1,1,1,1,'','','[quote=&quot;thefull&quot;:2x5bpe4f]Es tu propia definición, ya contestas a tu pregunta.\nCreo recordad que PostgreSQL es BSD, por lo tanto, no tienes que pagar nada por el ni no tienes que pagar nada por usarlo, y aunque fuese GPL, tampoco[/quote:2x5bpe4f]\n\nBueno, en fin, me tranquiliza saber que aunque no es gratuito, no tengo que pagar por él  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> .\nDisculpen si cada vez entiendo menos los términos adecuados para definir el software, pero volviendo al mensaje que originó todo esto POSTGRESQL NO ES UNA SOLUCION DE PAGO.','',0,'gA==','2x5bpe4f',1,0,'',439,0,0),(33752,7380,6,442,0,'190.41.59.208',1182575886,1,0,1,1,1,0,'','Quien usa SQL-RDD de xHarbour.com ?','Tengo mi aplicativo funcionando muy bien con MySQL, pero mis clientes me están pidiendo que funcione con ORACLE. Quisiera saber comentarios de los que usan el SQL-RDD de xHarbour.com u otra librería comercial que exista en el mercado, que se conecte directamente a la base de datos. (no ODBC). \n\nGracias de antemano.\n\nCarlos Ladrón de Guevara \nLima - Perú','',0,'gA==','1t857cyj',1,0,'',442,0,0),(33753,7299,6,1055,0,'84.125.133.194',1182591654,1,0,1,1,1,0,'','','Lo intenté en su momento, pero me cambia el dialogo de sitio. Necesitaría calcular un nuevo nTop/nLeft, pero no me asegura que esas coordenadas se mantengan en otros ordenadores con otros Windows/resolucion.\n\nDéjalo, me aguantaré así. Lo estraño es que con CLIPPER no me pasaba.\n\nGracias de todas formas.\n\nSaludos','',0,'gA==','3lx5gzsc',1,0,'',1055,0,0),(33754,7375,3,6,0,'87.20.214.83',1182591702,1,0,1,1,1,1,'','Re: gradient with bitmap transparent or text (urgent)','[code:3s3vvxo6]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd MDI\n\n    ACTIVATE WINDOW oWnd;\n             ON PAINT GRADIENT&#40; oWnd, hDC &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION GRADIENT&#40; oWnd, hDC &#41;\n\n    LOCAL aRect &#58;= GETCLIENTRECT&#40; oWnd&#58;hWnd &#41;\n    LOCAL nStep &#58;= &#40; aRect&#91; 3 &#93; - aRect&#91; 1 &#93; &#41; / 256\n\n    LOCAL oBrush\n\n    LOCAL i\n\n    aRect&#91; 3 &#93; = nStep\n\n    FOR i = 255 TO 0 STEP -1\n       DEFINE BRUSH oBrush;\n              COLOR RGB&#40; i, i, i &#41;\n\n       FILLRECT&#40; hDC, aRect, oBrush&#58;hBrush &#41;\n\n       RELEASE BRUSH oBrush\n\n       aRect&#91; 1 &#93; += nStep\n       aRect&#91; 3 &#93; += nStep\n    NEXT\n\n    RETURN NIL[/code:3s3vvxo6]\n\nEMG','',0,'AIA=','3s3vvxo6',1,0,'',6,0,0),(33755,7374,6,1055,0,'84.125.133.194',1182591926,1,0,1,1,1,0,'','','Para dibujar lineas, rectángulos, etc. Lo mejor es meterlos en una function a la que llames con oDlg:bPainted := { |hDc| MiFuncion(hDc,...) }\nEl hDc es fundamental, si no lo llamas desde el bPainted debes activarlo/desactivarlo con oDlG:GetDc() / oDlg:ReleaseDc().\nEspero te sea de ayuda.\nSaludos','',0,'AIA=','8khudptf',1,0,'',1055,0,0),(33756,7381,22,1055,0,'84.125.133.194',1182593256,1,0,1,1,1,0,'','TImage y Freeimage','La clase TImage a mejorado mucho con la incorporacion de Freeimage. No obstante he detectado un pequeño Bug (si se puede llamar así) y tengo además una sugerencia.\n\n[u:1kos5uln][b:1kos5uln]EL BUG:[/b:1kos5uln][/u:1kos5uln]\nCon Clipper 5.3 y BLINKER 4.0 (no se si con superiores tambien) no se puede abrir FREEIMAGE.DLL porque el nombre mide más de 8 caracteres. No hay más que cambiarle el nombre por  otro nás corto y funciona. A lo mejor hay amigos del foro a los que le ha pasado y [b:1kos5uln]no han caido en esa solución[/b:1kos5uln]. Con lo cualquier a lo mejor se podía hablar con el creador de la DLL para que permita cambiarle el nombre por otro más corto.\n\n[u:1kos5uln][b:1kos5uln]La sugerencia:[/b:1kos5uln][/u:1kos5uln]\nResulta que si en un dialogo hay que abrir muchas fotos (en un album por ejemplo), FREEIMAGE se abre y se cerra por cada foto con lo cual el programa se enlentece [b:1kos5uln]mucho[/b:1kos5uln]. A mi ha pasado con un album de 15 fotos de diversas extensioes y tamaños en un mismo dialogo. Opté por prescindir de TImage y crear una funcion derivada de esa clase donde sólo abro FREEIMAGE al principio, y lo cierro cuando he leido la ultima foto. Mucho más rapido.\n[u:1kos5uln]Mi sugerencia es[/u:1kos5uln]: Sería posible crear una especie de IMAGELIST para TImage de forma que Freeimage sólo se abriese una vez por cada lista. Pienso sinceramente que se ganaría en rapidez y descarga de la memoria.\n\nGracias. Saludos','',0,'QQ==','1kos5uln',1,0,'',1055,0,0),(33757,7382,19,1055,0,'84.125.133.194',1182593397,1,0,1,1,1,0,'','Insertar Imagen en Foro','¿Como puede insertar una imagen/grafico en un post del foro?\nGracias. Saludos','',0,'QQ==','hreo6pkf',1,0,'',1055,0,0),(33758,7375,3,6,0,'87.20.214.83',1182598485,1,0,1,1,1,1,'','Re: gradient with bitmap transparent or text (urgent)','[code:2dh7wqov]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, hBmp, oFnt\n\n    DEFINE WINDOW oWnd MDI\n\n    hBmp = READBITMAP&#40; 0, &quot;\\FWH\\BITMAPS\\INSTALL&#46;BMP&quot; &#41;\n\n    DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -20\n\n    ACTIVATE WINDOW oWnd;\n             ON PAINT &#40; GRADIENT&#40; oWnd, hDC &#41;,;\n                        IF&#40; hBmp != 0, DRAWMASKED&#40; hDC, hBmp, 200, 200 &#41;, &#41;,;\n                        oWnd&#58;oWndClient&#58;Say&#40; 20, 10, &quot;This is a test&quot;, CLR_HRED, , oFnt, , &#46;T&#46; &#41; &#41;\n\n    IF hBmp != 0; DELETEOBJECT&#40; hBmp &#41;; ENDIF\n\n    RELEASE FONT oFnt\n\n    RETURN NIL\n\n\nSTATIC FUNCTION GRADIENT&#40; oWnd, hDC &#41;\n\n    LOCAL aRect &#58;= GETCLIENTRECT&#40; oWnd&#58;hWnd &#41;\n    LOCAL nStep &#58;= &#40; aRect&#91; 3 &#93; - aRect&#91; 1 &#93; &#41; / 256\n\n    LOCAL oBrush\n\n    LOCAL i\n\n    aRect&#91; 3 &#93; = nStep\n\n    FOR i = 255 TO 0 STEP -1\n       DEFINE BRUSH oBrush;\n              COLOR RGB&#40; i, i, i &#41;\n\n       FILLRECT&#40; hDC, aRect, oBrush&#58;hBrush &#41;\n\n       RELEASE BRUSH oBrush\n\n       aRect&#91; 1 &#93; += nStep\n       aRect&#91; 3 &#93; += nStep\n    NEXT\n\n    RETURN NIL[/code:2dh7wqov]\n\nEMG','',0,'AIA=','2dh7wqov',1,0,'',6,0,0),(33759,7375,3,529,0,'200.159.199.104',1182605106,1,0,1,1,1,0,'','','works fine, very thanks Enrico.','',0,'AIA=','328m1qvx',1,0,'',529,0,0),(33760,7383,6,1055,0,'84.125.133.194',1182614537,1,0,1,1,1,0,'','C++ y DLL','Supongamos que creo una function en Borland C++ llamada MIFUNC() y que para ello empleo una function CFUNC() de una DLL externa, por ejemplo ICM32.DLL.\nSupongamos que todo va bien y se crea el OBJ correctamente.\nCuando utilizo MIFUNC() en un PRG ¿necesito utilizar ICM32.DLL para compilar/linkar, o el algoritmo CFUNC() ya va embebido en el OBJ?\nGracias. Saludos','',0,'AIA=','19hk8z5a',1,0,'',1055,0,0),(33761,7384,3,47,0,'58.8.98.37',1182615754,1,0,1,1,1,0,'','How to DEFINE FONT with Script Thai?','Dear Antonio,\n\nI\'ve got the problem with some Thai Font.  I can use \"Ms Sans Serif\" in Thai within my program.  But there are some Thai Font is not support as follow sample:\n- Tahoma\n- Arial\nIn MS Office both Font can type and display in Thai.  \n\nIf I use following command and select Script with Thai, it work fine.\nDEFINE FONT \'Tahoma\' SIZE 0, -12 FROM USER\n\nHow I can DEFINE FONT with [b:ycqhlro2]Script Thai[/b:ycqhlro2] as following\n\n[url=http&#58;//img224&#46;imageshack&#46;us/my&#46;php?image=thaifontwd1&#46;png:ycqhlro2][img:ycqhlro2]http&#58;//img224&#46;imageshack&#46;us/img224/2414/thaifontwd1&#46;th&#46;png[/img:ycqhlro2][/url:ycqhlro2]\n\nBest regards,\nDutch','',0,'WA==','ycqhlro2',1,0,'',47,0,0),(33762,7330,6,940,0,'189.157.72.130',1182617264,1,0,1,1,1,1,'','','Muy buen trabajo,\n\nfelicidades,\n\ngracias..','',0,'WA==','324igd5u',1,0,'',940,0,0),(33763,7383,6,138,0,'189.141.72.112',1182626721,1,0,1,1,1,1,'','','Necesitas la DLL tambien.\n\nTal como ocurre con el RDDADS.\n\nEl RDDADS son un monton de wrappers a funciones que estan almacenadas en el ACE32.DLL, estas funciones utilizan a su vez otros DLLs como el ADSLOC32 y el AXWCS32.DLL, razon por lo cual aunque tengas que crear un ACE32.LIB a partir del ACE32.DLL, es necesrio incluir los DLLs que tienen dichas fucnions.','',0,'WA==','1po07mdu',1,0,'',138,0,0),(33764,7381,22,138,0,'189.141.72.112',1182626850,1,0,1,1,1,1,'','','Antolin:\n\nAunque Freeimage funcione a 16 bits con la clase TIMAGE, el trabajo originalmente fue hecho para Harbour a 32 bits.\n\nA 32 bits no presenta los errores ni bugs que mencionas....\n\nSugerencia: cambiate a 32 bits.','',0,'WA==','3jrum2ro',1,0,'',138,0,0),(33765,7380,6,138,0,'189.141.72.112',1182627009,1,0,1,1,1,1,'','','Carlos:\n\n\nSea cual fuere el motor de base de datos al que te quieras conectar SIEMPRE tienes un intermediario de pormedio, llamese ADO, ODBC, Eagle o Falcon, SIEMPRE dependes de un tercero para realiza la conexion.\n\nMi sugerencia: Utiliza ADO, funciona solo con cambiar la cadena de conexión.','',0,'WA==','syetqler',1,0,'',138,0,0),(33766,7344,6,138,0,'189.141.72.112',1182627333,1,0,1,1,1,1,'','','Jose:\n\nEsa es \"la pequeña diferencia\", el uso LIBRE hoy, no quiere decir que el dia de mañana no se les suba la mosca a la cabeza y comiencen a cobrar.\n\nEn cuanto a MySQL la cosa esta clara, si tu utilizas la base de datos para actividades NO LUCRATIVAS por ejemplo llevar el censo de las ballenas de baja california, y almacenar los datos de calentamiento global, entonces su uso no tiene costo.\n\nPeeero, si tu utilizas MySQL PARA CUALQUIER COSA que genere un beneficio economico a ti, a tu cliente o a un tercero, entonces debes de pagar la licencia de uso, si lo usas para llevar la contabilidad, la facturacion, etc. todo lo que tenga que ver con ganar o gastar dinero, tiene que pagar licencia, aun si lo utilizas internamente en tu empresa para tu administracion.','',0,'WA==','2n89i4hc',1,0,'',138,0,0),(33767,7344,6,24,0,'88.19.129.43',1182632428,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:11t2cail]Jose:\n\nEsa es \"la pequeña diferencia\", el uso LIBRE hoy, no quiere decir que el dia de mañana no se les suba la mosca a la cabeza y comiencen a cobrar.\n[/quote:11t2cail]\n\nBueno, bueno, eso es una idea demasiado rebuscada....\nNo tiene efectos retroactivos.... asi, que ya pueden ir cobrando a partir de mañana si quieren.\nEs como si a mi me da por cerrar T-Gtk, y digo de cobrar a partir de mañana, claro que lo puedo hacer, pero lo que esta libre, sigue siendo libre.\n\n[quote=&quot;RF&quot;:11t2cail]\nEn cuanto a MySQL la cosa esta clara, si tu utilizas la base de datos para actividades NO LUCRATIVAS por ejemplo llevar el censo de las ballenas de baja california, y almacenar los datos de calentamiento global, entonces su uso no tiene costo.\n\nPeeero, si tu utilizas MySQL PARA CUALQUIER COSA que genere un beneficio economico a ti, a tu cliente o a un tercero, entonces debes de pagar la licencia de uso, si lo usas para llevar la contabilidad, la facturacion, etc. todo lo que tenga que ver con ganar o gastar dinero, tiene que pagar licencia, aun si lo utilizas internamente en tu empresa para tu administracion.[/quote:11t2cail]\nSiento decirte Rene, amigo mio, que si lo usas para tu empresa NO TIENES QUE PAGAR, es decir, para uso interno propio de la empresa, no debes de tener licencia.\nPero ya te digo , que MySql tiene unas condiciones que vete a saber tu mismo qe narices significa.','',0,'gA==','11t2cail',1,0,'',24,0,0),(33768,7379,3,303,0,'72.199.41.171',1182641449,1,0,1,1,1,0,'','','Enrico,\n\n&gt;The following sample doesn\'t show the string \"Other\" on the combobox. Is it expected? \n\nI would not expect it. A combobox is supposed to be limited to those choices in the array.\n\nJames','',0,'gA==','zo6ap65r',1,0,'',303,0,0),(33769,7344,6,348,0,'201.230.5.98',1182643649,1,0,1,1,1,0,'','','Hola Rene\n\nUna consulta,  por lo que comentas, por ejemplo si  desarrollo un sistema para el Xcliente, usando MySql,  y vendo el sistema (ojo cobro por el sistema) ,  Para cada cliente debe comprar su licencia de MySql?  independientemente a la actividad que se dedique el Cliente??\n\nLubin\n\n[quote=&quot;RF&quot;:2wxz4w6r]Jose:\n\nEsa es \"la pequeña diferencia\", el uso LIBRE hoy, no quiere decir que el dia de mañana no se les suba la mosca a la cabeza y comiencen a cobrar.\n\nEn cuanto a MySQL la cosa esta clara, si tu utilizas la base de datos para actividades NO LUCRATIVAS por ejemplo llevar el censo de las ballenas de baja california, y almacenar los datos de calentamiento global, entonces su uso no tiene costo.\n\nPeeero, si tu utilizas MySQL PARA CUALQUIER COSA que genere un beneficio economico a ti, a tu cliente o a un tercero, entonces debes de pagar la licencia de uso, si lo usas para llevar la contabilidad, la facturacion, etc. todo lo que tenga que ver con ganar o gastar dinero, tiene que pagar licencia, aun si lo utilizas internamente en tu empresa para tu administracion.[/quote:2wxz4w6r]','',0,'gA==','2wxz4w6r',1,0,'',348,0,0),(33770,7344,6,439,0,'200.125.45.120',1182647938,1,0,1,1,1,1,'','','AHORA SI AGARRE EL CONCEPTO!!!!!!!!\n\nMuchas gracias TheFull y René, me han sido de mucha ayuda para entender mejor estas cosillas de las licencias y el software.\n\nGRACIAS!!!!!!!!','',0,'gA==','38fa2436',1,0,'',439,0,0),(33771,5990,3,487,0,'151.38.50.91',1182654360,1,0,1,1,1,0,'','Re: Strange dialog problem','[quote=&quot;Jeff Barnes&quot;:1upn6vd9]When I click on a radio or a checkbox the text for the control will disappear until I click into another field.[/quote:1upn6vd9]\nI have a similar problem in the sample below, but only if XP themes are disabled (or if I run the EXE on a non-themed OS).\n\nBy enabling themes via the RC, it works correctly (on XP and Vista only).\n\nThe problem disappears by removing the transparent brush.\n\nThanks,\nDavide\n\n[code:1upn6vd9]#include &quot;Fivewin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\nlocal oDlg, oBmp, oFont2, oBtn, oObj, nRad&#58;=1\n\n  DEFINE FONT oFont2 NAME &quot;MS Sans Serif&quot; SIZE 0,-8\n  DEFINE BRUSH oBmp FILE &quot;WizDlg&#46;bmp&quot; // RESOURCE &quot;WizDlg&quot; \n\n  DEFINE DIALOG oDlg FROM 0,0 TO 256,400 PIXEL ;\n         FONT oFont2 ;\n         BRUSH oBmp TRANSPARENT ;\n         TITLE &quot;Test&quot; ;\n         STYLE nOr&#40; DS_SYSMODAL, WS_POPUP &#41;\n\n  @ 55,5 RADIO oObj VAR nRad ITEMS &quot;First&quot; SIZE 45,10 PIXEL OF oDlg\n  @ 55,55 RADIOITEM &quot;Second&quot; RADIOMENU oObj SIZE 90,10 PIXEL OF oDlg\n\n  @ 108,149 BUTTON oBtn PROMPT &quot;Close&quot;  ACTION  oDlg&#58;End&#40;&#41; SIZE 43,11 PIXEL FONT oFont2 OF oDLG\n\n  ACTIVATE DIALOG oDlg CENTERED \n\n  oFont2&#58;End&#40;&#41;\n  RELEASE BRUSH oBmp\n\nreturn nil[/code:1upn6vd9]','',0,'gIA=','1upn6vd9',1,0,'',487,0,0),(33773,7385,6,53,0,'189.139.98.155',1182692532,1,0,1,1,1,1,'','Abrir archivos  .DAT   y   .SRT','Amigos del foro:\n\nUn cliente tiene una aplicación que utiliza archivos .DAT  y  .SRT, por ejemplo:\n\nKDA1.DAT    y\nKDA1.SRT    (Supongo son índices)\n\nEl punto es que necesito tomar información de esos archivos y la pregunta es... con qué puedo abrir esos archivos ?\n\nSaludos','',0,'EA==','29onc932',1,0,'',53,0,0),(33774,7386,6,279,0,'201.130.252.61',1182693331,1,0,1,1,1,0,'','WS_HSCROL No aparece en REDEFINE LISTBOX','Antonio:\n\nTengo la versión FWH7.4 no me esta apareciendo el WS_HSCROL  tengo dos editores de recursos Pelles C IDE y Resource Builder, en cualquiera de los dos agrego la opción de que este habilitado el WS_HSCROL y WS_VSCROL  y solo me aparece el vertical.\n\nSolo utilizo el REDEFINE LISTBOX origina de la FWH este es el código no se si tengo que modificar algo.\n\nGracias por tu apoyo\n\n   REDEFINE LISTBOX oBCliente FIELDS \"\" ID 110 OF oDlg ON CHANGE (oSay[1]:Refresh(), ActCli((oGenOno)-&gt;Cliente,nCli),oSay[3]:Refresh(),oSay[4]:Refresh(),oSay[5]:Refresh(),oSay[6]:Refresh(),oSay[7]:Refresh(),oSay[8]:Refresh())\n   oBCliente:nColAct:=1\n   oBCliente:nLineStyle:=6\n   oBCliente:lCellStyle:=.T.\n   oBCliente:nClrForeHead:=CLR_BLUE\n   oBCliente:aColSizes    := {80,260}\n   oBCliente:bLDblClick:={|| Sol_Datos(.F.)}\n   oBCliente:bKeyDown:={|nKey| Val_nKey(nKey,oBCliente)}\n   oBCliente:aHeaders     := cHCli\n   oBCliente:bLine        := cLCli\n   oBCliente:SetFocus()\n   oDlg:lHelpIcon := .f.\n\n\n\nSACS_ONOMASTICO_REL DIALOG DISCARDABLE -4, 9, 315, 218\nSTYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU\nCAPTION \"Control de Usuarios\"\nFONT 8, \"MS Sans Serif\"\nBEGIN\n  CONTROL \"TBtnBmp\", 201, \"TBtnBmp\", 0x00000000, 4, 8, 14, 12\n  CONTROL \"TBtnBmp\", 202, \"TBtnBmp\", 0x00000000, 20, 8, 14, 12\n  CONTROL \"TBtnBmp\", 203, \"TBtnBmp\", 0x00000000, 36, 8, 14, 12\n  CONTROL \"TBtnBmp\", 204, \"TBtnBmp\", 0x00000000, 76, 8, 14, 12\n  CONTROL \"TBtnBmp\", 205, \"TBtnBmp\", 0x00000000, 92, 8, 13, 12\n  CONTROL \"\", 210, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 224, 8, 88, 50\n CONTROL \"\", 110, \"ListBox\", LBS_NOTIFY|WS_HSCROLL|WS_VSCROLL|WS_BORDER, 4, 28, 308, 136\nEND','',0,'','1ygv8q8u',1,0,'',279,0,0),(33775,6687,6,838,0,'80.59.225.15',1182693747,1,0,1,1,1,0,'','','Mira el siguiente codigo:\n[code:35ymhy68]static function cReport&#40;aini,afin,nOpcion,nOpcion1,nOpcion2,aAlias&#41;\n********************************\n     local oFont1, oFont2\n     local oPrinter\n     local ctitle\n     local atipo&#58;=iif&#40;nOpcion=1,\'de Credito\',\'de Contado\'&#41;\n     local nindex&#58;=&#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Ordsetfocus&#40;&#41;&#41;\n        &#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Ordsetfocus&#40;\'Fecha\'&#41;&#41;\n        &#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Ordscope&#40;0,dtos&#40;aIni&#41;&#41;&#41;\n        &#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Ordscope&#40;1,dtos&#40;aFin&#41;&#41;&#41;\n        &#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Dbgotop&#40;&#41;&#41;\n     DEFINE FONT oFont1 NAME &quot;ARIAL&quot; SIZE 0,-10 BOLD ITALIC\n     DEFINE FONT oFont2 NAME &quot;ARIAL&quot; SIZE 0,-8      ITALIC\n       REPORT oReport ;\n            TITLE  ctitle,  ;\n		        &quot;&quot;,;\n		        &quot;&quot; ;\n	    FONT   oFont1,;\n		 oFont2 ;\n	    FOOTER &quot;Página&#58; &quot;+str&#40;oReport&#58;nPage,3&#41; ;\n		 CENTERED ;\n	    PREVIEW\n        COLUMN TITLE &quot;Num&#46;&quot;      DATA &#40;aAlias&#91;31&#93;&#41;-&gt;Albaran SIZE 5 \n        COLUMN TITLE &quot;Fecha&quot;     DATA &#40;aAlias&#91;31&#93;&#41;-&gt;Fecha\n        COLUMN TITLE &quot;Codigo&quot;    DATA &#40;aAlias&#91;31&#93;&#41;-&gt;Codpro\n        COLUMN TITLE &quot;Nombre&quot;    DATA oemtoansi&#40;&#40;aAlias&#91;31&#93;&#41;-&gt;Pro&#41; Picture &quot;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX&quot;\n        COLUMN TITLE &quot;Conductor&quot; DATA oemtoansi&#40;&#40;aAlias&#91;31&#93;&#41;-&gt;nconductor&#41; Picture &quot;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX&quot;\n        COLUMN TITLE &quot;Importe&quot;   DATA &#40;aAlias&#91;31&#93;&#41;-&gt;Baseimpo;\n            TOTAL              ;\n            RIGHT              ;\n            PICTURE &quot;@Z 99,999&#46;99&quot;;\n            SIZE 9\n        COLUMN TITLE &quot;Factura&quot; DATA &#40;aAlias&#91;31&#93;&#41;-&gt;Factura SIZE 5\n    if nOpcion1=1 &#46;and&#46; nOpcion=1\n       GROUP ON &#40;aAlias&#91;31&#93;&#41;-&gt;codpro ;\n       HEADER &quot;Cliente &quot;+&#40;aAlias&#91;31&#93;&#41;-&gt;codpro+\' \'+alltrim&#40;&#40;aAlias&#91;31&#93;&#41;-&gt;pro&#41;;           \n       FOOTER &quot;Total Albaranes &quot;+ltrim&#40;str&#40;oReport&#58;aGroups&#91;1&#93;&#58;nCounter&#41;&#41; \n    endif\n     END REPORT\n     IF oReport&#58;lCreated\n	oReport&#58;aColumns&#91;1&#93;&#58;bDataFont &#58;= &#123;|| 2 &#125;\n	oReport&#58;aColumns&#91;2&#93;&#58;bDataFont &#58;= &#123;|| 2 &#125;\n        oReport&#58;aColumns&#91;3&#93;&#58;bDataFont &#58;= &#123;|| 2 &#125;\n        oReport&#58;aColumns&#91;4&#93;&#58;bDataFont &#58;= &#123;|| 2 &#125;\n        oReport&#58;aColumns&#91;5&#93;&#58;bDataFont &#58;= &#123;|| 2 &#125;\n        oReport&#58;aColumns&#91;6&#93;&#58;bDataFont &#58;= &#123;|| 2 &#125;\n        oReport&#58;aColumns&#91;7&#93;&#58;bDataFont &#58;= &#123;|| 2 &#125;\n     ENDIF\n   do case \n      case nopcion2=1\n  	IF nOpcion=1\n          ACTIVATE REPORT oReport for &#40;aAlias&#91;31&#93;&#41;-&gt;estado=&quot;1&quot; &#46;and&#46; &#40;aAlias&#91;31&#93;&#41;-&gt;tipo=1\n  	ELSE \n          ACTIVATE REPORT oReport for &#40;aAlias&#91;31&#93;&#41;-&gt;tipo=2\n	ENDIF\n          case nopcion2=2\n	if nOpcion=1\n	  ACTIVATE REPORT oReport for &#40;aAlias&#91;31&#93;&#41;-&gt;tipo=1\n	else\n          ACTIVATE REPORT oReport\n	endif\n   end case\n     oFont1&#58;End&#40;&#41;\n     oFont2&#58;End&#40;&#41;\n&#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Ordscope&#40;0,Nil&#41;&#41;\n&#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Ordscope&#40;1,Nil&#41;&#41;\n&#40;aAlias&#91;31&#93;&#41;-&gt;&#40;Ordsetfocus&#40;nindex&#41;&#41;\nRETURN NIL\n\n  //-----------------------------------[/code:35ymhy68]\n\nPues bien, éste código que me muestra albaranes con condicionantes, me pasa lo que tu dices, que me sale la pantallita de que está generando el preview, y se corta, y además el programa finaliza sin ningún tipo de error ,y no hay error.log ni nada.\nSin embargo, éste mismo código con la base de datos de clientes, con los mismos condicionanes, me funciona perfectamente.\nNo he sido capaz de averiguar por qué, ni quitando los scopes ni nada.\n\nSaludos\n\nJose Luis','',0,'AIA=','35ymhy68',1,0,'',838,0,0),(33776,7379,3,6,0,'82.57.162.42',1182698582,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'AIA=','xo9xa3ks',1,0,'',6,0,0),(33777,7034,6,435,0,'200.155.204.225',1182707416,1,0,1,1,1,0,'','E como ficaria ?','e como fazer para colocar uma Folder dentro da MDICHILD e depois colocar a DIALOG dentro do Folder ?\n\ndialog de resources\n\nAri','',0,'AIA=','1wf8q6ln',1,0,'',435,0,0),(33778,7387,6,53,0,'189.139.98.155',1182709345,1,0,1,1,1,1,'','Ejemplo Drag &amp; Drop','Amigos:\n\nSi alguien quiere compartir un ejemplo de la forma correcta de usar Drag &amp; Drop estaré muy agradecido o donde puedo encontrar información para párvulo.\n\nHe visto los ejemplos que hay en la carpeta Samples pero no me queda muy claro.\n\nSaludos','',0,'AIA=','1touga1i',1,0,'',53,0,0),(33779,7376,1,2,0,'87.218.146.227',1182711053,1,0,1,1,1,1,'','','Dutch,\n\nI really don\'t know it. You should google for some info about it. \n\nMaybe CreateFont() supports a parameter for \"scripts\"','',0,'AIA=','3mrjx9dt',1,0,'',2,0,0),(33780,7382,19,2,0,'87.218.146.227',1182711274,1,0,1,1,1,1,'','','En <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> subes la imagen y el te proporciona la url que tienes que copiar en el mensaje. \n\nSuele ser la que te aparece debajo de la imagen, una vez subida','',0,'AIA=','316cpbil',1,0,'',2,0,0),(33781,6815,6,785,0,'190.64.228.16',1182712099,1,0,1,1,1,0,'','Antonio y/o Fernando','Amigos:\n\nSería posible un zip con la lib y los fuentes de adordd nuevos,\nen el zip que esta para bajar la lib es del 10 de mayo y los fuentes que\nestan en Harbour son del 28 de mayo.\n\nOtra cosa : Es posible usar comandos SQL para accesar una BD\ncon SQL server.?\n\nMuchas gracias y slaudos\n\nRuben Fernandez.','',0,'AIA=','11iylvij',1,0,'',785,0,0),(33782,7388,6,24,0,'88.19.129.43',1182715184,1,0,1,1,1,1,'','SQLITE3 Libre para Harbour','Amigos, tenéis ya disponible una nueva versión de Sqlite en el CVS, la 3.4\n\nTambién he portado más funciones a parte de adaptarme a la nueva versión.\n\nMás información: <!-- m --><a class=\"postlink\" href=\"http://www.zonalibre.org/blog/thefull\">http://www.zonalibre.org/blog/thefull</a><!-- m -->\n\nComo siempre, espero que os sea útil.','',0,'AIA=','2p4otn5k',1,0,'',24,0,0),(33783,7389,6,785,0,'190.64.202.151',1182721013,1,0,1,1,1,0,'','Antonio y/ Fernando','Amigos:\n\nSería posible un zip con la lib y los fuentes de adordd nuevos,\nen el zip que esta para bajar la lib es del 10 de mayo y los fuentes que\nestan en Harbour son del 28 de mayo.\n\nEs posible usar los comandos nativos de SQL\npara accesar una BD con SQL server.?\n\n\nMuchas gracias y slaudos\n\nRuben Fernandez.','',0,'AIA=','1ets50d7',1,0,'',785,0,0),(33784,7376,1,47,0,'58.8.103.143',1182743422,1,0,1,1,1,0,'','','Dear Antonio,\n\nI use CreateFont() and it works perfectly now.\n\nRegards,\nDutch','',0,'AIA=','3ufikx09',1,0,'',47,0,0),(33785,7351,3,868,0,'210.212.216.67',1182757140,1,0,1,1,1,1,'','','Resync for current record only:\n\n  oRs:Resync( adAffectCurrent, adResyncAllValues )\n\nThere are times when Resync fails. (Discussion on this topic is too lengthy) Better put it in TRY CACH END construct and use ReQuery as alternative','',0,'AIA=','24gwaybl',1,0,'',868,0,0),(33786,7356,3,130,0,'141.51.32.24',1182757270,1,0,1,1,1,0,'','','Ok, I did some tests over the weekend. \n\nIt really seemes to depend on the number of prg files you use. The magical number is in my case 24. With more than 24 prg files linking does not work correctly. No matter what size the files have, only the number of files is important.\n\nPlease, can anyone confirm this behaviour ?\n\nI´m using the bcc55 compiler\n\nkind regards\nStefan','',0,'AIA=','3gjz9zun',1,0,'',130,0,0),(33787,7390,20,29,0,'88.149.165.190',1182759512,1,0,1,1,1,0,'','Ftp di Internet explorer','Salve,\nfino ad ora ho utilizzato la classe ftp di Fivewin leggermente modificata in modo da avere una barra di progressione dello stato di avanzamento trasmissione e non ho mai avuto problemi.\n\nAd un cliente mi si presenta però un problema di crash nella trasmissione di files piuttosto grandi (circa 15MB). Credo il problema dipenda dalla qualità dell\'Adsl visto che lo stesso file da me viene trasmesso.\n\nVorrei sapere se è possibile utilizzare un ftp alternativo per fare una prova e pensavo all\'ftp di explorer.\n\nCome faccio a chiamare da fivewin il classico ftp di explorer (\"ftp://.....\") e passargli i file di origine, destinazione, userid e password ?\n\nGrazie in anticipo\n\nSaluti\n\nMarco','',0,'AIA=','1rtxbewx',1,0,'',29,0,0),(33788,7351,3,106,0,'85.34.123.173',1182759709,1,0,1,1,1,1,'','','Rick, \n\nResync method don\'t work to me. (in my tests allways fails, I\'m a begginer with ADO)\nRequery seems to be fast (in a local net)\n\n\nRegards','',0,'AIA=','a4uz329s',1,0,'',106,0,0),(33789,7390,20,106,0,'85.34.123.173',1182760252,1,0,1,1,1,1,'','','Marco,\n\npenso che puoi fare tutto, meno indicare la destinazione (io non so come farlo)\n\n\n<!-- m --><a class=\"postlink\" href=\"ftp://utente:password@iltuoip/iltuofile\">ftp://utente:password@iltuoip/iltuofile</a><!-- m -->\n\n\nSaluti','',0,'AIA=','ju1rsk1l',1,0,'',106,0,0),(33790,7391,6,52,0,'201.213.38.181',1182762542,1,0,1,1,1,1,'','TsBrowse y Combobox, no me devuelve el dato...','Estimados.\n\nTengo este codigo:\n\n[code:1i8ugtis]      REDEFINE BROWSE oBrw ID 203 OF oFolder&#58;aDialogs&#91;2&#93; grid FONT GetFont&#40;&#41;&#58;celda\n\n         oBrw&#58;SetArray&#40; vDatosOrigenes &#41;\n\n         // Origen\n         ADD COLUMN TO oBrw ;\n            DATA Array element 1;\n            Header &quot;Origen&quot; ;\n            ALIGN DT_CENTER, DT_CENTER ;\n            PICTURE &quot;@KX&quot; ;\n            WIDTH 100 PIXELS\n\n         oBrw&#58;SetData&#40; 1, ,&#123;&quot;uno&quot;, &quot;dos&quot;, &quot;tres&quot; &#125;  &#41;\n\n         // Aca tengo el error!!!\n         oBrw&#58;aColumns&#91;1&#93;&#58;bPostEdit&#58;= &#123; || MsgInfo&#40;vDatosorigenes&#91;obrw&#58;nat,1&#93;&#41; &#125;\n\n&#46;&#46;&#46;\n\n[/code:1i8ugtis]\n\nPorque siempre me devuelve el valor \"uno\" si selecciono cualquier otro.\n\nGracias.','',0,'AIA=','1i8ugtis',1,0,'',52,0,0),(33791,7390,20,446,0,'151.32.162.159',1182763928,1,0,1,1,1,1,'','','Ciao,\npuoi creare un file .bat e lanciarlo da riga comando con winexec() o waitrun()\nad es:\n\n[code:2x8oa7c7]\nftp -s&#58;myftpjob -i -d myftpserver&#46;it\npause\n[/code:2x8oa7c7]\n\ndove myftpjob contiene:\n\n[code:2x8oa7c7]\nmyusername\nmypassword\nsend myfile&#46;zip\nquit\n[/code:2x8oa7c7]\n\nsaluti a tutti\nRoberto Chiaiese','',0,'AIA=','2x8oa7c7',1,0,'',446,0,0),(33792,7390,20,6,0,'87.19.15.175',1182763941,1,0,1,1,1,1,'','Re: Ftp di Internet explorer','Per prima cosa prova con Filezilla e vedi se lo stesso file viene trasmesso regolarmente dal tuo cliente.\n\nEMG','',0,'AIA=','6ivbwzk7',1,0,'',6,0,0),(33793,7390,20,6,0,'87.19.15.175',1182764039,1,0,1,1,1,1,'','','Sì, anche con il comando FTP puoi testare se dal tuo cliente va tutto bene. Se riesci ad inviare regolarmente con FTP o con Filezilla (magari prova con entrambi per sicurezza) allora il problema dev\'essere nel programma.\n\nEMG','',0,'AIA=','jj42il1x',1,0,'',6,0,0),(33794,7376,1,2,0,'87.218.146.227',1182764979,1,0,1,1,1,1,'','','Very good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3oyjbmxs',1,0,'',2,0,0),(33795,7384,3,2,0,'87.218.146.227',1182765045,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7376\">http://fivetechsoft.com/forums/viewtopic.php?t=7376</a><!-- m -->','',0,'AIA=','2eut0dee',1,0,'',2,0,0),(33796,7373,3,2,0,'87.218.146.227',1182765221,1,0,1,1,1,1,'','','Alvaro,\n\nNo, sorry. We just tested it with Harbour','',0,'AIA=','3pevyqop',1,0,'',2,0,0),(33797,7354,3,247,0,'83.171.242.103',1182766647,1,0,1,1,1,0,'','','[quote=&quot;ask&quot;:2prg4otb][quote=&quot;Antonio Linares&quot;:2prg4otb]We have tested samples\\altd.prg :\n\nbuildx.bat altd /b\n\nand it works fine (using gtwin.lib instead of gtgui.lib)\n\nHave you modified xHarbour ?[/quote:2prg4otb]\n\nAntonio thank you very much for your patience . I just downloaded the last Fivetech XHarbour from your site and fixes the problem\n\nAGAIN THANK YOU VERY MUCH\n\nA.S.K[/quote:2prg4otb]\n\nThe latest Fivetech XHarbour works with altd.prg but not with my program. Maybe the size of my prg is too large . When i try to compile with /b parameter gives me a harbour error (windows crashes ) and it does not give a ppo output (it stops somewhere is the middle of prg).There is no problem when i don\'t use /b parameter. I tried to compile it from 3 different PCs and I recently formatted mine in case of bad windows installation BUT nothing happens.   \nIs there something I can do a bout it?\n\nThanks\nA.S.K','',0,'gA==','2prg4otb',1,0,'',247,0,0),(33798,7354,3,2,0,'87.218.146.227',1182768046,1,0,1,1,1,1,'','','As a workaround you may consider to split your PRG into several smaller ones.\n\nAlso you your report it to comp.lang.xharbour so they may fix it, thanks','',0,'gA==','1jzt2ay6',1,0,'',2,0,0),(33799,7392,6,223,0,'189.19.76.64',1182772982,1,0,1,1,1,1,'','Recursos 90%','Olá Pessoal,\nComo eu posso pegar os recursos corretos ?, pois sempre me aparece 90% e não é o correto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNa MsgAbout() me aparece a quantidade correta.\n[img:3rz4ult0]http&#58;//www&#46;transwells&#46;com&#46;br/vagner/imagem&#46;jpg[/img:3rz4ult0]\n\nAbraços\nVagner Wirts','',0,'CA==','3rz4ult0',1,0,'',223,0,0),(33800,7354,3,247,0,'83.171.242.103',1182772995,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2s3lzbyw]As a workaround you may consider to split your PRG into several smaller ones.\n\nAlso you your report it to comp.lang.xharbour so they may fix it, thanks[/quote:2s3lzbyw]\n\nIs that a newsgroup or something? \n\nThanks \nA.S.K','',0,'gA==','2s3lzbyw',1,0,'',247,0,0),(33801,7393,20,1082,0,'85.43.122.34',1182772997,1,0,1,1,1,0,'','uso dialog in prg','ho delle mie dialog in una DLL che ho creato con Resource Workshop in un file .RC e poi convertito in DLL con rc2dll32.bat ma quando lancio l\'apertura della dialog mi da l\'errore...\n\nError description: Error FiveWin/3  Cannot create Dialog Box: \nResource: SAPAGG\n\nStack Calls\n===========\n   Called from CREATEDLGERROR(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from DIALOGV1(50)\n   Called from DIALOG(17)\n\nperchè?','',0,'gA==','2y7q58ig',1,0,'',1082,0,0),(33802,7354,3,2,0,'87.218.146.227',1182773770,1,0,1,1,1,1,'','','Its a usenet group. You can access it from google, and if you login then you can write in it:\n\n<!-- m --><a class=\"postlink\" href=\"http://groups.google.com/group/comp.lang.xharbour/topics\">http://groups.google.com/group/comp.lan ... our/topics</a><!-- m -->','',0,'gA==','139r3000',1,0,'',2,0,0),(33803,7389,6,2,0,'87.218.146.227',1182774116,1,0,1,1,1,1,'','','Ruben,\n\nEn estos dias se está migrando de CVS a un nuevo sistema SVN, por lo que hasta dentro de unos dias no podremos proporcionarte lo que pides.\n\nUsando ADO puedes usar comandos nativos de SQL. ADORDD es un RDD que usa ADO.','',0,'gA==','3k3wm3h1',1,0,'',2,0,0),(33804,7392,6,2,0,'87.218.146.227',1182774226,1,0,1,1,1,1,'','','Vagner,\n\nEl API de Windows de 32 bits no proporciona una función que devuelva el consumo de recursos correcto de la aplicación. O por lo menos, nosotros la desconocemos.','',0,'gA==','6qtuzsc0',1,0,'',2,0,0),(33805,7369,2,2,0,'87.218.146.227',1182774315,1,0,1,1,1,1,'','','La versión de FW que usas es bastante antigua. En versiones recientes, el combobox usa correctamente los items según sean números ó cadenas.\n\nLo idóneo es que te actualices a una versión más reciente desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'gA==','2yy4d74z',1,0,'',2,0,0),(33806,7354,3,247,0,'83.171.242.103',1182775423,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3opyfesq]Its a usenet group. You can access it from google, and if you login then you can write in it:\n\n<!-- m --><a class=\"postlink\" href=\"http://groups.google.com/group/comp.lang.xharbour/topics\">http://groups.google.com/group/comp.lan ... our/topics</a><!-- m -->[/quote:3opyfesq]\n\nThank you Antonio','',0,'gA==','3opyfesq',1,0,'',247,0,0),(33807,7393,20,6,0,'87.19.15.175',1182775532,1,0,1,1,1,1,'','Re: uso dialog in prg','Hai attivato la DLL con il comando SET RESOURCES TO \"tuadll.dll\"?\n\nEMG','',0,'gA==','10kof1bq',1,0,'',6,0,0),(33808,7393,20,1082,0,'85.43.122.34',1182775681,1,0,1,1,1,0,'','','si... fatto!','',0,'gA==','edfh1m02',1,0,'',1082,0,0),(33809,7351,3,868,0,'219.64.121.60',1182776331,1,0,1,1,1,1,'','','There was a discussion above to use adOpenDynamic or adOpenKeyset for opening a recordset.  But when a recordset is opened on clientside (with cursorlocation as adUseClient) the provider ignores what we speicfy as CursorType (adOpenDynamic or Keyset), and returns a recordset with cursortype as adOpenStatic only.\n\nadOpenDynamic or adOpenKeyset cursortype is useful only for recorsets opened with cursor location adUseSever. Often this is not what we do.','',0,'gA==','6plu6oio',1,0,'',868,0,0),(33810,7364,6,1090,0,'201.254.9.240',1182777628,1,0,1,1,1,0,'','','Espectacular. Con ese ejemplo ya hice funcionar mi programa; Mil gracias. Lo que deberían indicar en el manual, como sugerencia, cuando tocan el tema de uso de dlls propias, es ese ejemplo que me pasaste (el fwborl.prg), dado que con el registo de la dll no alcanza, sino que por lo que veo tenes que hacer el set resource debajo apuntando a la dll que tenes armada. Gracias. Atte. \n\n\n[quote=&quot;Antonio Linares&quot;:1dq1xe4g]Diego,\n\nRevisa el ejemplo samples\\FwBorl.prg que está diseñado para 16 y 32 bits. Puedes encontrar la DLL de 32 bits y el fichero RC usado para crearla.\n\nEl ejemplo TestRes.prg no está adaptado a 32 bits[/quote:1dq1xe4g]','',0,'gA==','1dq1xe4g',1,0,'',1090,0,0),(33811,7389,6,785,0,'190.64.203.27',1182777785,1,0,1,1,1,0,'','','Antonio:\n\nQue necesito para usar ADO con comando nativos SQL\n\nFWH y Harbour y Borland\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','2e566ifg',1,0,'',785,0,0),(33812,7394,6,1072,0,'200.83.124.200',1182778852,1,0,1,1,1,0,'','Me pueden orientar ? URGENTE','Hola Foro:\n\nA poco andar, me he dado cuenta que es mejor pasar directamente de clipper a FW 32 Bits, de lo contrario me quedo pegado en los 16. Segun Antonio debo actualizar Fw, prefiero subir de plataforma.\n\nQue programas debo tener para programar mis aplicaciones directamente en 32 bits.\n\nActualmente uso: Fw 2.4, Clipper 5.3 Blinker 5.1 y 7.0, Workshop\n\nSaludos,\nAntonio.','',0,'gA==','1daxl9db',1,0,'',1072,0,0),(33813,7357,6,596,0,'194.224.177.206',1182779345,1,0,1,1,1,1,'','','Me tapa toda la ventana.\nPues no consigo poner un ListBox (browse) en la parte derecha... y que ocupe tada esa parte, claro.','',0,'gA==','7fmw6u55',1,0,'',596,0,0),(33814,7351,3,35,0,'167.7.140.254',1182780275,1,0,1,1,1,0,'','','1                       2\noRs:Resync( adAffectCurrent, adResyncAllValues ) \n\nExcellant .. that is what I was looking for .. I will definitly surround it with Try\\Catch .. and I will report back my success ..\n\nadAffectCurrent = 1\nadResyncAllValues = 2\n\nI have tried the above and it fails each time .. does it matter if the data has changed or not ??\n\nRick Lipkin','',0,'gA==','1s6dbzk1',1,0,'',35,0,0),(33815,7394,6,785,0,'190.64.219.81',1182780644,1,0,1,1,1,0,'','','Antonio:\n\nDeberías usar FWH 7.05 , Harbour o xHarbour , Borland BCC5.5 y\nPellesC como editor de recursos\n\nHarbour o xHarbour, PellesC y BCC5.5 gratis.\n\nSaludos\nRuben Fernandez.','',0,'gA==','3tdcg21y',1,0,'',785,0,0),(33816,7395,6,73,0,'200.23.18.132',1182780791,1,0,1,1,1,0,'','salida abrupta...','resulta que el programa a la hora de genrar un reporte este lo hace bien, pero cuando cierro la ventana del reporte, este me cierra todo el programa, ya estuve buscando y nada, el reporte lo tome de otro del mismo sistema y unicamente cambie la informacion que imprime, la unica diferencia es que en uno lo mando llamara desde una toolbar y el que me cierra el sistema lo mando llamar desde la vtaskbar, alguna idea por donde buscarle?\nsalu2\npaco','',0,'gA==','1xvw0qyy',1,0,'',73,0,0),(33817,7396,6,785,0,'190.64.219.81',1182780937,1,0,1,1,1,0,'','ADO con SQL comando nativos.','Amigos:\n\nQue necesito y donde lo consigo..\npara usar ADO con SQL Server y usar lo comandos nativos SQL.\n\nDespués de saber un poco mas de SQL probare el ADORDD.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','36ie221z',1,0,'',785,0,0),(33818,7393,20,1082,0,'85.43.122.34',1182784141,1,0,1,1,1,0,'','','nessun consiglio.... ?','',0,'gA==','3h3sembq',1,0,'',1082,0,0),(33819,7397,3,529,0,'200.159.199.104',1182784779,1,0,1,1,1,0,'','Fwh 7.05 and win98 buttombar error','hi, someone test fwh 705 , xharbour last cvs and windows 98? buttombar show images and word \"btn\" behind...','',0,'gA==','2ii5fb1e',1,0,'',529,0,0),(33820,7398,3,529,0,'200.159.199.104',1182785265,1,0,1,1,1,0,'','easyreport error in number of copies','HI, i am using easyreport suplied with fwh, when in number of copies is only 1, works fine, but if put more ( 2, 3 copies), print the first page fine, and anothers with trash.\ntheres any solution for this? \n\nthanks','',0,'gA==','3ie8ya9y',1,0,'',529,0,0),(33821,7364,6,1090,0,'201.254.9.240',1182785398,1,0,1,1,1,0,'','','Hola. Yo de nuevo; sabes que probé todo, y creo que lo único que no me funciona con respecto a la dll vieja que usaba en 16 bits es el tema de los folders; yo tengo un dialogo con un folder, y despues en el .prg hago un redefine de ese folder, y le meto en prompts 2 titulos, por ej, y en DIALOGS otros 2 dialogos de mi dll; cuando compilo funciona todo OK, pero al ejecutar, donde tendria que estar la carpeta me muestra un cuadro sin solapas, donde solamente figura el 1er dialogo que defini en la lista de DIALOGS; ese funciona perfecto, le funcionan los botones, cuadros de texto, etc. pero al no tener las solapas, no puedo acceder al 2° dialogo. Me fije en el folder.prg del SAMPLES, pero no usa folders de un recurso externo (dll). ¿tenes idea que puede estar pasando? o si no, ¿hay alguno de los prg\'s de la carpeta SAMPLES que tenga un ejemplo de como usar folders definidas desde una DLL? Gracias de nuevo. Atte.\n\n\n\n\n[quote=&quot;diegopolverelli&quot;:1zekssw2]Espectacular. Con ese ejemplo ya hice funcionar mi programa; Mil gracias. Lo que deberían indicar en el manual, como sugerencia, cuando tocan el tema de uso de dlls propias, es ese ejemplo que me pasaste (el fwborl.prg), dado que con el registo de la dll no alcanza, sino que por lo que veo tenes que hacer el set resource debajo apuntando a la dll que tenes armada. Gracias. Atte. \n\n\n[quote=&quot;Antonio Linares&quot;:1zekssw2]Diego,\n\nRevisa el ejemplo samples\\FwBorl.prg que está diseñado para 16 y 32 bits. Puedes encontrar la DLL de 32 bits y el fichero RC usado para crearla.\n\nEl ejemplo TestRes.prg no está adaptado a 32 bits[/quote:1zekssw2][/quote:1zekssw2]','',0,'gA==','1zekssw2',1,0,'',1090,0,0),(33822,7393,20,6,0,'87.19.15.83',1182785576,1,0,1,1,1,1,'','','Prova a mandarmi la DLL.\n\nEMG','',0,'gA==','1r0rb7xb',1,0,'',6,0,0),(33823,7351,3,868,0,'210.212.216.67',1182785829,1,0,1,1,1,1,'','','I work extensively with very large applications ADO and Oracle. My experience with MSSQL is limitted to smaller applications. Resync generally works even when the other users update the same row but occassionally fails.  Better we keep in mind how Resync command internally works:\n\nRecordSet object has Properities collection.\noRs:Properties(\"Resync Command\"):Value is what ADO internally uses to retrieve the values of the current row.  This value can be set by our program but i am not able to change this property through xharbour. (works in vbasic)\n\nADO has to know the primary key or some unique id of the row to internally construct this command. For example a table has two columns \"custid\", \"custname\" with custid as primary key and if ado can know this, it will internelly construct the resync command as \"select * from customers where custid = ?\" and calls this command with custid as the parameter each time it refreshes.  For oracle it uses rowid instead of primary key unless we configure ado differently. This has its own side effects.\n\nThis should give you some idea about the limiations of Resync command.\n\nSo we can use Resync, keeping in mind that it can fail at times and for some recordsets.  Solution is to programitically assign right values to the two properties oRs:Properties(\"Root Table\") and oRs:Properties(\"Resync Command\")','',0,'gA==','i82eiw38',1,0,'',868,0,0),(33824,7364,6,2,0,'87.218.146.227',1182785973,1,0,1,1,1,1,'','','En 32 bits tienes que usar \"SysTabControl32\" en vez de \"TFolder\" en tus recursos','',0,'gA==','2ys4ttms',1,0,'',2,0,0),(33825,7393,20,1082,0,'85.43.122.34',1182786369,1,0,1,1,1,0,'','','ti ho inviato il tutto sulla tua email....','',0,'gA==','3v5gpvf2',1,0,'',1082,0,0),(33826,7351,3,35,0,'167.7.140.254',1182786607,1,0,1,1,1,0,'','','RecordSet object has Properities collection. \noRs:Properties(\"Resync Command\"):Value is what ADO internally uses to retrieve the values of the current row. This value can be set by our program but i am not able to change this property through xharbour. (works in vbasic) \n\nADO has to know the primary key or some unique id of the row to internally construct this command. For example a table has two columns \"custid\", \"custname\" with custid as primary key and if ado can know this, it will internelly construct the resync command as \"select * from customers where custid = ?\" and calls this command with custid as the parameter each time it refreshes. For oracle it uses rowid instead of primary key unless we configure ado differently. This has its own side effects. \n\nOk .. let me see here .. I have a table called CERT and a unique ID assigned to each row called EID\n\nProgramatically, how would you assign the above properties for the Resync method to work ??\n\ncEid := oRs:Fields(\"eid\"):Value\noRs:Properties(\"Resync Command\"):Value := cEID\noRs:ReSync( 1, 2 )\n\nRick Lipkin','',0,'gA==','212sn7aa',1,0,'',35,0,0),(33827,7351,3,868,0,'210.212.216.67',1182788013,1,0,1,1,1,1,'','','It should be like this.\n\n[code:xfhf3qbh]\noRs&#58;Properties&#40;&quot;Resync Command&quot;&#41;&#58;Value &#58;= &quot;SELECT * FROM CERT WHERE EID = ?&quot;\n[/code:xfhf3qbh]\n\nBut as I said earlier, assignment is not working through xHarbour.\n\nPlease read this topc on msn\n\n[url:xfhf3qbh]http&#58;//msdn2&#46;microsoft&#46;com/en-us/library/ms676094&#46;aspx[/url:xfhf3qbh]\n\nHowever in most cases resync is working for me usually with some exceptions.','',0,'EIA=','xfhf3qbh',1,0,'',868,0,0),(33828,7351,3,868,0,'210.212.216.67',1182790058,1,0,1,1,1,1,'','','I just checked on MSSQL server with a two column table. Resync of current row is working fine, after a different usr from a different workstation modifed the data through other frontend.  No need to touch properties.  ( do not modify the uniquely indexed column values).  Please try again with some other simple table with atleast one unique index.','',0,'EIA=','drnxlzar',1,0,'',868,0,0),(33829,7395,6,940,0,'189.157.72.130',1182790273,1,0,1,1,1,1,'','','Paco, \n\nel reporte lo lanzas desde un boton de un dialogo ?\n\nusas el metodo transparent en el dialogo ?\n\nusas tsay dentro del dialogo ?\n\n\na mi me paso este problema,  tuve que debugear linea a linea \n\npara dar con el error, \n\ny resulta que cuando uso el metodo TRANSPARENT y say,\n\nes cuando sale el error\n\nintenta quitarle el metodo transparent al dialogo\n\ny los says  hay que agregar la Data,\n\noSay:lTransParent := .t.\n\n\nlas propiedades TRANSPARENT le duele a la tprinter,,\n\n\nSaludos,,,','',0,'EIA=','2pxgz5bj',1,0,'',940,0,0),(33830,7399,6,435,0,'200.155.194.218',1182790878,1,0,1,1,1,0,'','Text na Buttonbar','é possivel colocar texto em buttonbar, o botao mais um texto\n\nBUTTONBAR OF oBar OF oWnd\n\n// em uma MDICHILD\n\nsei que tem Trebar(), mas eu teria que modificar muita coisa.\n\nAri','',0,'EIA=','2wg91zdj',1,0,'',435,0,0),(33831,7395,6,838,0,'80.59.225.15',1182792582,1,0,1,1,1,0,'','','Increible!\nMientras probaba ésto que dices, me decía \"a ver si va a ser cierto\", después de la cantidad de pruebas que he hecho, y nada, me ocurría lo mismo, se cerraba el programa.\nY no sólo me ocurría a mi, mira éste último post:\n[url:ls9vzi79]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6687&amp;highlight=[/url:ls9vzi79]\n\nSera posible, !pues es cierto!, y la cantidad de horas y comidas de coco que he echado al tema.\n\nMuchas gracias amigo!\n\nSaludos\n\nJose Luis','',0,'EA==','ls9vzi79',1,0,'',838,0,0),(33832,7400,1,161,0,'81.164.212.146',1182793295,1,0,1,1,1,0,'','Local Settings\\Application Data directory','Hello,\n\nHow can I retrieve the %USERPROFILE%\\Local Settings\\Application Data directory?\n\nThanks,\nMarc','',0,'EA==','2ex9fmnc',1,0,'',161,0,0),(33833,7375,3,190,0,'124.7.25.158',1182793312,1,0,1,1,1,0,'','','Hi Enrico\n\nSome more stress on you <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nIt was an long pending un-resolved problem <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nOn the Gradient Dialogs, the Checkboxes or Radiobuttons are not painted\ntransparent in both themed and non-themed.\n\nCan you please find out a solution for this.\n\nI am enclosing the modified program here for your solution.\n\n\n[code:p98e6f72]\n#include &quot;Fivewin&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oDlg, hBmp, oFnt, oRadio, oCheck, nValue &#58;= 1, lCheck &#58;= &#46;F&#46;, oCheck1, lCheck1 &#58;= &#46;F&#46;, oGet, cGet &#58;= SPACE&#40;50&#41;\n\n    DEFINE DIALOG oDlg SIZE 250, 250 TRANSPARENT\n\n    hBmp = READBITMAP&#40; 0, &quot;\\FWH\\BITMAPS\\INSTALL&#46;BMP&quot; &#41; \n    DEFINE FONT oFnt NAME &quot;Arial&quot; SIZE 0, -20 \n\n    @ 1&#46;75,0 RADIO oRadio VAR nValue ITEMS &quot;Radio&amp;1 not OK&quot;, &quot;&amp;Rado&amp;2 not OK&quot; OF oDlg SIZE 60, 12\n\n    @ 1&#46;65,09 CHECKBOX oCheck  VAR lCheck  PROMPT &quot;CheckBox&amp;1 not OK&quot;  OF oDlg SIZE 80,12\n    @ 2&#46;50,09 CHECKBOX oCheck1 VAR lCheck1 PROMPT &quot;CheckBox&amp;2 not OK&quot;  OF oDlg SIZE 80,12\n\n    ACTIVATE DIALOG oDlg CENTERED ; \n             ON PAINT &#40; GRADIENT&#40; oDlg, hDC &#41;,; \n                        IF&#40; hBmp != 0, DRAWMASKED&#40; hDC, hBmp, 65, 65 &#41;, &#41;,;  //,; \n                        oDlg&#58;Say&#40; 1, 1, &quot;This Say is OK&quot;, CLR_HRED, , oFnt, , &#46;T&#46; &#41;, SysRefresh&#40;&#41; &#41; \n\n    IF hBmp != 0; DELETEOBJECT&#40; hBmp &#41;; ENDIF \n\n    RELEASE FONT oFnt \n\n    RETURN NIL \n\n\nSTATIC FUNCTION GRADIENT&#40; oDlg, hDC &#41; \n\n    LOCAL aRect &#58;= GETCLIENTRECT&#40; oDlg&#58;hWnd &#41; \n    LOCAL nStep &#58;= &#40; aRect&#91; 3 &#93; - aRect&#91; 1 &#93; &#41; / 256 \n\n    LOCAL oBrush \n\n    LOCAL i \n\n    aRect&#91; 3 &#93; = nStep \n\n    FOR i = 255 TO 0 STEP -1 \n       DEFINE BRUSH oBrush; \n              COLOR RGB&#40; i, i, i &#41; \n\n       FILLRECT&#40; hDC, aRect, oBrush&#58;hBrush &#41; \n\n       RELEASE BRUSH oBrush \n\n       aRect&#91; 1 &#93; += nStep \n       aRect&#91; 3 &#93; += nStep \n    NEXT \n\n    RETURN NIL \n[/code:p98e6f72]\n\nRegards to you\n\n- Ramesh Babu P','',0,'AIA=','p98e6f72',1,0,'',190,0,0),(33834,7395,6,2,0,'87.218.146.227',1182793436,1,0,1,1,1,1,'','','Francisco,\n\nSi no lo llamas desde la vtaskbar no cierra el programa ?\n\nPor favor comprueba si en disco se genera un fichero error.log','',0,'AIA=','26vumzmw',1,0,'',2,0,0),(33835,7401,2,1088,0,'201.155.7.216',1182794191,1,0,1,1,1,0,'','Programacion de eventos','ALguien conoce un programa para controlar eventos de la pc ??? como por ejemplo, el apagado, que a determinada ejecute un programa (puede ser un batch), seleccionando hora, dia y mes\nen una ocacion alguien me regalo un programa free que hacia todo esto pero ya no lo encuentro, alguien sabe de uno ??????\n\nojala no los desespere, pero no se mucho de esto','',0,'AIA=','hllib98b',1,0,'',1088,0,0),(33836,7351,3,35,0,'167.7.140.254',1182794305,1,0,1,1,1,0,'','','Please try again with some other simple table with atleast one unique index\n\nPer your previous post .. as you suspected .. asigning the resync properties did not work ..\n\nInteresting .. I do not have any indexes .. none at all .. perhaps this is the reason it is failing.\n\nRick Lipkin','',0,'AIA=','24l5vfk1',1,0,'',35,0,0),(33837,7401,2,237,0,'190.12.99.34',1182794418,1,0,1,1,1,0,'','En el mismo xp, comando AT','El comando at al que podés llamar por linea de comandos y está en el xp:\n\nEl comando AT programa la ejecuci¢n de comandos y programas en un equipo a\nuna hora y fecha especificadas. El servicio de programaci¢n debe estar en\nejecuci¢n para utilizar el comando AT.\n                                                           \nAT [\\\\equipo] [ [id] [/DELETE] | /DELETE [/YES]]                    \nAT [\\\\equipo] hora [/INTERACTIVE]\n    [ /EVERY:fecha[,...] | /NEXT:fecha[,...]] \"comando\"\n\n\\\\equipo         Especifica un equipo remoto. Si se omite este\n                   par metro, los comandos se programan en el equipo\n                   local.             \nid                 Es un n£mero de identificaci¢n asignado al comando\n                   programado.                                                 \n/delete            Cancela un comando programado. Si se omite id, se\n                   cancelar n todos los comandos programados en el equipo.\n/yes               Se usa con el comando de cancelaci¢n de todos los\n                   trabajos cuando no se desea ninguna confirmaci¢n.\n/interactive       Permite a la tarea interactuar con el escritorio del\n                   usuario cuya sesi¢n coincide con el momento de\n                   ejecuci¢n de la tarea.\n/every:fecha[,...] Ejecuta el comando cada d¡a de la semana o mes\n                   especificado. Si se omite la fecha, se asume que es el\n                   d¡a actual del mes.                                              \n/next:fecha[,...]  Ejecuta el comando especificado la pr¢xima vez que\n                   aparezca ese d¡a (por ejemplo, el pr¢ximo jueves). Si\n                   se omite la fecha, se asume que es el d¡a actual del\n                   mes.\n\"comando\"          Es el comando de Windows NT o programa por lotes que se\n                   va a ejecutar.\n\n\nSaludos!','',0,'','3oducl09',1,0,'',237,0,0),(33838,7383,6,1055,0,'84.125.133.194',1182794572,1,0,1,1,1,0,'','','Muchas Gracias','',0,'','3g58q231',1,0,'',1055,0,0),(33839,7385,6,1055,0,'84.125.133.194',1182795232,1,0,1,1,1,0,'','','Puedes abrirlos con MEMOREAD o con FOPEN, pero si no sabes que contienen y como está estructurada la información contenida poco puedes hacer.\n\nLo más facil es cTxt = MEMOREAD(KDA1.DAT). Así metes toda la informacion en la varible cTxt como un STRING. Pero cuidado que no mida más de 65365b (64kb)\n\nSaludos','',0,'','29c5cabp',1,0,'',1055,0,0),(33840,7393,20,6,0,'87.21.213.230',1182795299,1,0,1,1,1,1,'','','Allora, all\'inizio devi mettere\n\n[code:hclswvv1]local hBwcc32 &#58;= LoadLibrary&#40; &quot;BWCC32&#46;dll&quot; &#41;\n\nSET RESOURCES TO &quot;SAPAGG&#46;DLL&quot;\n\nBWCCRegister&#40; GetResources&#40;&#41; &#41;[/code:hclswvv1]\n\ne alla fine\n\n[code:hclswvv1]FreeLibrary&#40; hBwcc32 &#41;[/code:hclswvv1]\n\nE così funziona. Se hai dei dubbi al riguardo cerca anche negli esempi.\n\nEMG','',0,'AIA=','hclswvv1',1,0,'',6,0,0),(33841,7381,22,1055,0,'84.125.133.194',1182795713,1,0,1,1,1,0,'','','Ya trabajo con xHarbour Rene, Gracias. Mi sufgerencia principal es para lo de la IMAGELIST y comentar lo que me pasó con 16 bits por si a alguien le servía de algo.','',0,'AIA=','3eltqi54',1,0,'',1055,0,0),(33842,7381,22,1055,0,'84.125.133.194',1182795794,1,0,1,1,1,0,'','','Trabajes a 16 o a 32 bits, la librería se abre una vez por cada imagen, y si tienes muchas imagenes, pienso que no es práctico. Nada más','',0,'AIA=','1mojtpgy',1,0,'',1055,0,0),(33843,7382,19,1055,0,'84.125.133.194',1182795889,1,0,1,1,1,0,'','','Gracias Antonio','',0,'AIA=','uknzy84x',1,0,'',1055,0,0),(33844,7396,6,138,0,'189.141.72.112',1182796111,1,0,1,1,1,1,'','','No necesitas nada, Windows trae instalado todo, el proveedor ADO para SQL Server.\n\nSolo necesitarias un SQL Servers instalado y listo, ha claro y la cadena de conexion.\n\nDe ahi en fuera, tienes todo puesto para comenzar a utilizar ADO directamente desde tu programa FW.','',0,'AIA=','3ska5976',1,0,'',138,0,0),(33845,7375,3,6,0,'87.21.213.230',1182796239,1,0,1,1,1,1,'','','Sorry, you have to ask Antonio for this.\n\nEMG','',0,'AIA=','3t8t3trn',1,0,'',6,0,0),(33846,7381,22,1055,0,'84.125.133.194',1182796755,1,0,1,1,1,0,'','','Esto es a lo que me refiero:\n\n[url=http&#58;//img48&#46;imageshack&#46;us/my&#46;php?image=albumyt6&#46;jpg:3fn8u1n1][img:3fn8u1n1]http&#58;//img48&#46;imageshack&#46;us/img48/4116/albumyt6&#46;th&#46;jpg[/img:3fn8u1n1][/url:3fn8u1n1]','',0,'GA==','3fn8u1n1',1,0,'',1055,0,0),(33847,7402,6,1055,0,'84.125.133.194',1182797821,1,0,1,1,1,0,'','CLIP2HARB','¿Es obligatorio utilizar CLIP2HARB para crear funciones C para xHarbour?\n\nResulta que tengo alguna utilidad en C a 16 bit que quiero pasar a 32 bits pero tras pasar el CLIP2HARB y compilar con BCC32 me dice que HB_FUNC está repetida y no compila. ¿que tengo que hacer, una funcion por fichero? o hay otra solucion. Con una sola funcion por fichero compila, pero me advierte de que el parámetro que paso a la funcion HB_FUNC ( nombre de la antigua funcion 16 bits) no se está utilizando.\n\nPor ultimo. Tras hacer el OBJ. Como lo utilizo con VERCE, ¿Metiendolo donde los demas OBJ (no me funciona)?¿Creando una LIB primero?¿o hay otra solucion?\n\nGracias de antemano\n\nUn saludo','',0,'GA==','8cmz2clb',1,0,'',1055,0,0),(33848,7395,6,940,0,'189.157.72.130',1182798956,1,0,1,1,1,1,'','','Jose Luis,\n\nefectivamente es un dolor de cabeza, \n\npero no necesitas un gran codigo para darte cuenta \n\ndel problema,,\n\nsimplemente  crea un dialogo desde resource, \n\nponle un say y un boton\n\nagregale el metodo TRANSPARENT al momento de programas,\n\ny manda llamar esta funcion.  y veras que el sistema se sale \n\nsin de decir nada.\n\nstatic function _cuadricula()\n   local nFor\n   local nCol\n   Local oPrn\n   local oFnt1\n\n   PRINT oPrn TITLE \'Cuadricula\' PREVIEW \n\n   DEFINE FONT oFnt1 NAME \"TAHOMA\" SIZE 0,-08 OF oPrn bold\n   oPrn:lPrvModal := .t.\n\n   page\n   for nFor := 1 to 26\n       oPrn:cmsay( nFor, 1, strzero(nFor,02), oFnt1 )\n       for nFor2 := 2 to 20\n         oPrn:cmsay( nFor, nFor2, strzero(nFor2,02), oFnt1 )\n       next\n   next\n   endPage\n   endPrint\nreturn (.T.)\n\nComo veras  el metodo transparent le duele a la tprinter o al preview.\n\nSaludos... Cordiales','',0,'GA==','3o6np7i9',1,0,'',940,0,0),(33849,7403,6,1055,0,'84.125.133.194',1182799139,1,0,1,1,1,0,'','Problema con un memo','Tengo un registro con fichero memo FTP corrompido. Siempre que accedo a ese registro se corta el programa porque no puede acceder al MEMO. Utilizo CDX de CLIPPER5.3. El caso es que con PROMETHEUS 2000 puedo acceder a ese registro y borrarlo. ¿que diferencia hay entre el CDX del CLIPPER y el que utiliza PROMETHEUS?¿alguien lo sabe?\n\nOtra solucion sería intentar recuperar el FTP, con COPY STRU y APPE FROM no funciona. ¿alguna sugeremcia?\n\nMil Gracias.\n\nSaludos','',0,'GA==','3grpscsr',1,0,'',1055,0,0),(33850,7385,6,53,0,'189.139.11.174',1182799970,1,0,1,1,1,1,'','','Antolin:\n\nMuchas gracias, lo voy a intentar y ya te contaré\n\nSaludos','',0,'GA==','176vy2rp',1,0,'',53,0,0),(33851,7375,3,2,0,'87.218.146.227',1182801374,1,0,1,1,1,1,'','','Ramesh,\n\nIts not easy to implement it. The controls paint themselves, but when using themes we use a themes API function to copy the parent background image, so they look fine. \n\nThe problem is that such API function does not work with the gradient, as it is not a themed gradient.\n\nProbably there may be a solution, but we have not found it yet.','',0,'GA==','2rasubau',1,0,'',2,0,0),(33852,7351,3,35,0,'167.7.140.254',1182801548,1,0,1,1,1,0,'','','SUCCESS!!!!!!!!!!!!!!\n\nFor the oRs:ReSync( 1,2 ) option to work .. you MUST have a PRIMARY KEY set and NOT NULL checked. No other changes to the syntax need to be made.\n\nReSync() works perfectically and will update the visability of a changed record to a local cached recordset !\n\nThank you !!\n\nRick Lipkin','',0,'GA==','2ut0av99',1,0,'',35,0,0),(33853,7402,6,2,0,'87.218.146.227',1182801608,1,0,1,1,1,1,'','','&gt; ¿Es obligatorio utilizar CLIP2HARB para crear funciones C para xHarbour? \n\nNo es obligatorio. FWH lo usa para asi poder usar los mismos ficheros C desde 16 (con Clipper) ó 32 bits (con Harbour).','',0,'GA==','3z1famkn',1,0,'',2,0,0),(33854,7395,6,73,0,'200.23.18.132',1182805843,1,0,1,1,1,0,'','','gracias a todos,\nefectivamente cesar, omiti la clausula TRANSPARENT en mi dialogo creado desde recuros y ya no aborto el programa \"FUNCIONO\", por cierto Antonio esa salida del sistema no generea ningun archivo .log, me cerciore que no existiera para ver si lo generaba hice la prueba y no lo genero. Buen caso para la araña...\nSalu2\nPaco','',0,'GA==','19gag0ih',1,0,'',73,0,0),(33855,7394,6,1072,0,'201.236.156.120',1182809358,1,0,1,1,1,0,'','','Ruben:\n\nMuchas gracias por tu respuesta, me ha servido de mucho.\n\nSaludos,\nAntonio\n\n[quote=&quot;Ruben Fernandez&quot;:2owmyi7k]Antonio:\n\nDeberías usar FWH 7.05 , Harbour o xHarbour , Borland BCC5.5 y\nPellesC como editor de recursos\n\nHarbour o xHarbour, PellesC y BCC5.5 gratis.\n\nSaludos\nRuben Fernandez.[/quote:2owmyi7k]','',0,'gA==','2owmyi7k',1,0,'',1072,0,0),(33856,7385,6,110,0,'165.98.223.31',1182810370,1,0,1,1,1,1,'','','Podrias probar a renombra las extencions a dbf, cdx e intar abri el programa\nmuchas app cambia las extenciones por defecto para ocultar a usuario noveles los tipos de archivos que utiliza la app para evitar que los abran manualmente.\n\nsalu2\ncarlos vargas','',0,'gA==','1tv5u3d7',1,0,'',110,0,0),(33857,7385,6,53,0,'189.139.11.174',1182811957,1,0,1,1,1,1,'','','Carlos:\n\nMuchas gracias, nada pierdo con probar.\n\nSaludos','',0,'gA==','227i3q6w',1,0,'',53,0,0),(33858,7376,1,487,0,'151.42.228.152',1182814479,1,0,1,1,1,0,'','','Dear Dutch,\n[quote=&quot;dutch&quot;:2ccsgiq8]I use CreateFont() and it works perfectly now.[/quote:2ccsgiq8]\nI\'m interested on this topic for other nonlatin languages, like Arabic which has the additional problem that mixes left-to-right with right-to-left text in a single row.\nCould you please show me a small sample about how you solved your Thai problem with CreateFont() ?\nThanks,\nDavide.','',0,'gA==','2ccsgiq8',1,0,'',487,0,0),(33859,7396,6,785,0,'190.64.218.139',1182819487,1,0,1,1,1,0,'','','Gracias Rene.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','2f15ulce',1,0,'',785,0,0),(33860,6275,17,53,0,'189.139.11.174',1182821414,1,0,1,1,1,1,'','','Y que opinión les merece DBDesigner ?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fabforce.net/index.php\">http://www.fabforce.net/index.php</a><!-- m -->\n\nSaludos','',0,'gA==','2bfq84ow',1,0,'',53,0,0),(33861,7396,6,53,0,'189.139.11.174',1182821498,1,0,1,1,1,1,'','','Master:\n\nY donde hayar DOC para empezar a tomarle el hilo ?\n\nSaludos','',0,'gA==','1z132089',1,0,'',53,0,0),(33862,7404,3,529,0,'200.159.199.104',1182822651,1,0,1,1,1,0,'','Menus office like alfredo arteaga','hi, someone has the class to make like this? or to sell?','',0,'gA==','25p4bqfs',1,0,'',529,0,0),(33863,7351,3,868,0,'219.64.121.60',1182832020,1,0,1,1,1,1,'','','In future, if you get any ADO feature not working, put a standard routine to show the last ADO Error after CATCH.  ADO Connection object contains an Errors collection. Last item of the Errors collection is the recent Error Object. Error object has these properties: Description, NativeError, Number, Source, SQL State, HelpContext, HelpFile.\n\nIf we write a generic routine to show ADO last error and put it after each CATCH statement, we know what to do without losing much time.','',0,'gA==','zt30sbm0',1,0,'',868,0,0),(33864,7404,3,130,0,'141.51.32.24',1182844005,1,0,1,1,1,0,'','','Hi,\n\nyou can look here:\n\n[url:8cr0mgvy]http&#58;//www&#46;quark-costos&#46;com/index&#46;php[/url:8cr0mgvy]\n\nStefan','',0,'EA==','8cr0mgvy',1,0,'',130,0,0),(33865,7393,20,1082,0,'82.187.120.133',1182844416,1,0,1,1,1,0,'','','ok... proverò a fare così, e comunque ho da porre delle domanda a riguardo:\n1 - Queste istruzioni (local hBwcc32 := LoadLibrary  \"BWCC32.dll\" ) ...etc...   ) bisogna metterle perchè ci sono incompatibilità tra Resource Workshop e FHW ? (con FW 1.9.2 non bisognava metterle...)\n\n2 - Invece di utilizzare Borland Resource Workshop per creare DLL a 16 bit con DIALOG ICON etc... c\'è qualche altro software che può farlo direttamente per l\'utilizzo di FWH ?','',0,'EA==','3man5sff',1,0,'',1082,0,0),(33866,7391,6,52,0,'201.213.38.181',1182847150,1,0,1,1,1,1,'','Re: TsBrowse y Combobox, no me devuelve el dato...','Nadie tiene idea?\n\nGracias.\n\n[quote=&quot;goosfancito&quot;:3lir67cv]Estimados.\n\nTengo este codigo:\n\n[code:3lir67cv]      REDEFINE BROWSE oBrw ID 203 OF oFolder&#58;aDialogs&#91;2&#93; grid FONT GetFont&#40;&#41;&#58;celda\n\n         oBrw&#58;SetArray&#40; vDatosOrigenes &#41;\n\n         // Origen\n         ADD COLUMN TO oBrw ;\n            DATA Array element 1;\n            Header &quot;Origen&quot; ;\n            ALIGN DT_CENTER, DT_CENTER ;\n            PICTURE &quot;@KX&quot; ;\n            WIDTH 100 PIXELS\n\n         oBrw&#58;SetData&#40; 1, ,&#123;&quot;uno&quot;, &quot;dos&quot;, &quot;tres&quot; &#125;  &#41;\n\n         // Aca tengo el error!!!\n         oBrw&#58;aColumns&#91;1&#93;&#58;bPostEdit&#58;= &#123; || MsgInfo&#40;vDatosorigenes&#91;obrw&#58;nat,1&#93;&#41; &#125;\n\n&#46;&#46;&#46;\n\n[/code:3lir67cv]\n\nPorque siempre me devuelve el valor \"uno\" si selecciono cualquier otro.\n\nGracias.[/quote:3lir67cv]','',0,'gIA=','3lir67cv',1,0,'',52,0,0),(33867,7393,20,6,0,'82.57.162.139',1182848583,1,0,1,1,1,1,'','','[quote=&quot;damianodec&quot;:ssevgduh]1 - Queste istruzioni (local hBwcc32 := LoadLibrary  \"BWCC32.dll\" ) ...etc...   ) bisogna metterle perchè ci sono incompatibilità tra Resource Workshop e FHW ?[/quote:ssevgduh]\n\nNo, si devono mettere quando si usano dei controlli Borland (e tu stai utilizzando appunto due pulsanti Borland) e ti devi anche portare appresso la bwcc32.dll. Ti consiglio di sostituirli con due normali pulsanti (TButton) oppure con dei TBtnBmp (pulsanti bitmap) così non hai più bisogno di quella DLL.\n\nEMG','',0,'gA==','ssevgduh',1,0,'',6,0,0),(33868,7405,3,130,0,'141.51.32.24',1182850570,1,0,1,1,1,0,'','TBtnBmp problem','Dear friends,\n\nthere is a little problem using tbtnbmp with a brush. If i set ::ltransparent = .t., the focus-rect is not shown moving the mouse over the button. If ::lTransparent is .f., it´s working fine.\n\nThe following sample shows this issue.\n\n[code:1m3g54y3]#Include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\nstatic oWnd, oBar,oB1, oBrush, oB2\n\nFunc Main&#40;&#41;\n\n   Define Window oWnd From 0, 0 To 15, 65 ;\n       Title &quot;Bar-Test &quot; \n\n   define BRUSH oBrush FILE &quot;Xp&#46;bmp&quot;\n\n   define BUTTONBAR oBar OF oWnd 3DLOOK SIZE 26,26\n   oBar&#58;oBrush&#58;= oBrush\n\n   define BUTTON oB1 OF oBar FILE &quot;Calc&#46;bmp&quot; ACTION MsgInfo &#40;&quot;B1&quot;&#41; NOBORDER\n   define BUTTON oB2 OF oBar FILE &quot;Calendar&#46;bmp&quot; ACTION MsgInfo &#40;&quot;B2&quot;&#41; NOBORDER\n   oB1&#58;lTransparent &#58;= &#46;t&#46;\n   oB1&#58;oBrush &#58;= oBrush\n   //oB2&#58;lTransparent &#58;= &#46;t&#46;\n   oB2&#58;oBrush &#58;= oBrush\n   oB1&#58;Refresh&#40;&#41;\n\n   Activate Window oWnd\n\nRetu nil[/code:1m3g54y3]\n\nCan anyone confirm this behavior ?\n\nIs there a solution for this ?\n\n\nkind regards\nStefan','',0,'AIA=','1m3g54y3',1,0,'',130,0,0),(33869,7402,6,1055,0,'84.125.133.194',1182851085,1,0,1,1,1,0,'','','¿Entonces compilando los de 16 bit con BCC32 sin modificarlos me servirían para Harbour?','',0,'AIA=','3sbgz969',1,0,'',1055,0,0),(33870,7402,6,1055,0,'84.125.133.194',1182851141,1,0,1,1,1,0,'','','Por cierto, que hago con el OBJ desde Verce. ¿O monto una LIB? ¿Que es mejor?\n\nMuchas Gracias','',0,'AIA=','2q6ki0e1',1,0,'',1055,0,0),(33871,7405,3,2,0,'87.218.146.227',1182851850,1,0,1,1,1,1,'','','Stefan,\n\nIf transparent is used, then thats the expected behavior, just to see the image and be able to push it','',0,'AIA=','23ydg5mv',1,0,'',2,0,0),(33872,7402,6,2,0,'87.218.146.227',1182851964,1,0,1,1,1,1,'','','Si usas los ficheros de cabecera correctos, puedes usarlos perfectamente con Harbour.\n\nNosotros no usamos Verce. Usamos y recomendamos UEStudio','',0,'AIA=','8kbl6psu',1,0,'',2,0,0),(33873,7034,6,400,0,'201.68.32.224',1182853976,1,0,1,1,1,1,'','','Erro ao compilar...o exemplo do Antonio.\nErro.log\n Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Resource: DE_HEADER_BROWSE\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: TestDlg.prg =&gt; BUILDDIALOG(53)\n   Called from: TestDlg.prg =&gt; (b)BUILDCHILD(26)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:ACTIVATE(0)\n   Called from: TestDlg.prg =&gt; BUILDCHILD(26)\n   Called from: TestDlg.prg =&gt; (b)MAIN(14)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: TestDlg.prg =&gt; MAIN(14)\n\nO estas faltando ?','',0,'AIA=','1rtwhp67',1,0,'',400,0,0),(33874,7405,3,130,0,'141.51.32.24',1182856021,1,0,1,1,1,0,'','','Antonio,\n\nok, thanks for the info.\n\nIs there a way, to change this behavior ?\n\nkind regards\nStefan','',0,'AIA=','2861pm2q',1,0,'',130,0,0),(33875,7101,3,904,0,'196.25.255.194',1182863465,1,0,1,1,1,1,'','','I have noticed a new glitch in the code above. (repeated here for convenience)\n[code:2aa3rmf9]ACTIVATE DIALOG Dlg_Dbmain NOWAIT ; // It has to be NonModal \nON INIT &#40; Dlg_Dbmain&#58;Move&#40; 0, 0 &#41;, BuildButtonBar&#40; Dlg_Dbmain &#41; &#41; ; \nVALID &#40; Win_Dbmain&#58;End&#40;&#41;, &#46;T&#46; &#41; \n\nACTIVATE WINDOW Win_Dbmain MAXIMIZED ; \nON RESIZE &#40; WNDSETSIZE&#40; Dlg_Dbmain, WNDHEIGHT&#40; Win_Dbmain &#41;, WNDWIDTH&#40; Win_Dbmain &#41; &#41; &#41; ; \nVALID &#40; IF&#40; save_MAIN_data&#40;&#41;, &#40; close_tables&#40;&#41;, Win_Dbmain &#58;= NIL, &#46;T&#46; &#41;, &#46;F&#46; &#41; &#41; \n[/code:2aa3rmf9]\n\nWhen the Window (a child) is closed (with the \'X\' or with win_dbmain:END() ) there are no problems.\n\nWhen the user presses ESC - it seems to close the Dlg_DBMAIN first, which then ENDs the Win_DBMAIN.   This works as long as no data is changed, otherwise an error occurs. Something like : Error description: Error BASE/1004  Class: \'NIL\' has no exported method: END\n\nPlease tell me what needs to be ENDed or made :=NIL for this to be resolved. (or is that not the problem)','',0,'AIA=','2aa3rmf9',1,0,'',904,0,0),(33876,7405,3,2,0,'87.218.146.227',1182864301,1,0,1,1,1,1,'','','Stefan,\n\nYes, you can easily modify the Class source code','',0,'AIA=','3vrjymkc',1,0,'',2,0,0),(33877,7357,6,46,0,'195.8.11.37',1182866623,1,0,1,1,1,0,'','','[code:2hiu00jd]\nowVerTree&#58;oClient&#40; oSplit &#41;\n\nACTIVATE WINDOW owVerTree ON RESIZE &#58;&#58;oClient&#58;AdjClient&#40;&#41;\n[/code:2hiu00jd]\n\nSaludos  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->','',0,'AIA=','2hiu00jd',1,0,'',46,0,0),(33878,7406,3,904,0,'196.25.255.214',1182867236,1,0,1,1,1,1,'','Catering for Different User Screen Resolutions','How does one cater for different screen resolutions?\n\nI have designed my screens for 800x600, assuming that it would suite most people, even those with large screens and finer resolutions.  Typical data input screens e.g.:\nCompany: XXX   Acc no. XXXX\nSurname: XXXX       Firstname: XXXX    etc.\n\nSome users that run 1024 x 768 and better have asked if the screen can be made large for them.   How does one cater for this?','',0,'AIA=','2ef09sp0',1,0,'',904,0,0),(33879,7407,3,904,0,'196.25.255.250',1182867456,1,0,1,1,1,1,'','Problem with Search on this forum','I try to search this forum for similar problems to mine before I add a new topic, but I have a problem with that.\n\nIf the search results goes to more than one page, when you click on Page 2 or 3 or 4 or next etc. It says \"no topics found to display\".\n\nCan this be resolved?\n\n(Apologies for using the Forum itself for reporting this.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> )','',0,'AIA=','16kz52k7',1,0,'',904,0,0),(33880,5832,3,89,0,'213.21.136.60',1182870192,1,0,1,1,1,0,'','','Ken is possible to have the recent config file for xHarbur .\n\nRegards Maurizio','',0,'AIA=','3ri5is55',1,0,'',89,0,0),(33881,7408,3,1017,0,'70.55.136.241',1182870705,1,0,1,1,1,0,'','Ideas for creating a server?','I would like to help my client integrate his xHarbour-based business logic with other (non-xHarbour) applications. To do this, I would like to create a server that would receive messages from client apps to trigger object methods, wrap the replies in XML and return them to the client.\n\nI would like to receive and send the messages via TCP/IP. Can anyone provide ideas on what xHarbour/FiveWin functions I can use, and does anyone know of any sample code with similar functionality?\n\nCarlo','',0,'AIA=','2ya9iubu',1,0,'',1017,0,0),(33882,6275,17,138,0,'189.141.72.112',1182870752,1,0,1,1,1,1,'','','El problema de DBDesigner es que se quedo en la version 4 de MySQL.\n\nEn su momento fue estupendo, pero no lo han actualizado para las nuevas versiones de MySQL lo que hace imposible trabajar con el.','',0,'AIA=','ak4ywwtl',1,0,'',138,0,0),(33883,7404,3,138,0,'189.141.72.112',1182871263,1,0,1,1,1,1,'','','Contac me by private email.','',0,'AIA=','a4g7gu4u',1,0,'',138,0,0),(33884,5832,3,89,0,'213.21.136.60',1182871557,1,0,1,1,1,0,'','','This is a sample  programm for create the cTags file , so is it possible find any function in a  disk or in folder .\n[code:2w5k1ss9]\n#include &quot;FiveWin&#46;ch&quot;\nstatic oMeter2 \n\n//-----------------------------------------------------------------------------------------\nfunction Main&#40;&#41;\nLOcal bAction &#58;= &#123; | oMeter, oText, oDlg, lEnd |  CreaTag&#40; oMeter, oText, oDlg, @lEnd &#41; &#125;\n   \n  MyMsgMeter&#40; bAction,,&quot;Wait&quot; &#41; \n\nreturn nil\n\nStatic function CreaTag&#40;oMeter, oText, oDlg, lEnd&#41;\n   Local aDir &#58;= &#123;&#125;\n   Local aFile &#58;= &#123;&#125;\n   Local cSubDir &#58;= &quot;&quot;\n   Local cFile &#58;= &quot;&quot;\n   Local cString &#58;= &quot;&quot;\n   Local nX ,nY &#58;= 1\n   local nT &#58;= 1\n   Local aDAti &#58;= &#123;&#125;\n   Local lOk &#58;= &#46;F&#46;\n   Local cFileExt &#58;= &quot;&quot;\n   Local cRiga &#58;= &quot;&quot;\n   Local cText &#58;= + ;\n						   \'!_TAG_FILE_FORMAT	1	/extended format; --format=1 will not append ; to lines/\' + CRLF + ;\n   						\'!_TAG_FILE_SORTED	1	/0=unsorted, 1=sorted, 2=foldcase/\' + CRLF + ;\n   						\'!_TAG_PROGRAM_AUTHOR	Darren Hiebert	/dhiebert@users&#46;sourceforge&#46;net/\'+ CRLF + ;\n   						\'!_TAG_PROGRAM_NAME	Exuberant Ctags	//\'+ CRLF + ;\n   						\'!_TAG_PROGRAM_URL	http&#58;//ctags&#46;sourceforge&#46;net	/official site/\'+ CRLF + ;\n   						\'!_TAG_PROGRAM_VERSION	5&#46;6	//\' + CRLF\n   Local cDati &#58;= cText\n\n   Local cFileDat &#58;=  &quot;c&#58;\\temp\\list&#46;tag&quot;\n   Local cDir &#58;= &quot;c&#58;\\fwh\\&quot;\n\n   \n   Local nOutFile &#58;= 0\n   Local nTot &#58;= 0    \n   \n   MsgGet&#40;&quot;&quot;, &quot;Name file cTags &quot;, @cFileDat &#41; \n   \n   MsgGet&#40;&quot;&quot;, &quot;Folder to scan &#40;include subdirectoris&#41; &quot;, @cDir &#41; \n      \n   aDir &#58;=  DIRECTORY&#40;cDir,&quot;D&quot;&#41;\n   nOutfile &#58;= FCREATE&#40;cFileDat, 0&#41;\n\n   FWRITE&#40;nOutfile, cText, len&#40;cText&#41;&#41;\n   \n   FOR nX &#58;= 1 to len&#40;aDir&#41;\n       IF aDir&#91;nX,5&#93; == &quot;D&quot;\n	       cSubDir &#58;= cDir + aDir&#91;nX,1&#93; + &quot;\\&quot;    \n	       aFile &#58;= DIRECTORY&#40;cSubdir&#41;\n	       FOR nY &#58;= 1 to len&#40;aFile&#41;\n	           cFile &#58;=  aFile&#91;nY,1&#93;\n	          IF cFileExt&#40;cFile&#41; == &quot;PRG&quot;\n		          nTot++	\n	          ENDIF	\n	       NEXT   \n	    ENDIF\n   NEXT\n   oMeter2&#58;nTotal&#58;= nTot   \n   nTot &#58;= 1\n  	   \n   For nX &#58;= 1 to len&#40;aDir&#41;\n       IF aDir&#91;nX,5&#93; == &quot;D&quot;\n	       cSubDir &#58;= cDir + aDir&#91;nX,1&#93; + &quot;\\&quot;    \n	       aFile &#58;= DIRECTORY&#40;cSubdir&#41;\n	       for nY &#58;= 1 to len&#40;aFile&#41;\n	          \n	       	 cFile &#58;=  aFile&#91;nY,1&#93;\n	          IF cFileExt&#40;cFile&#41; == &quot;PRG&quot;\n	          	oMeter&#58;cText &#58;=  cSubDir + &quot;\\&quot; + cFile + &quot;   &quot; + str&#40;nX&#41;  +   str&#40;len&#40;aDir&#41;&#41;\n               cDati &#58;=  ScriviFile&#40;cSubdir + cFile,oMeter&#41;\n               FWRITE&#40;nOutfile, cDati, len&#40;cDati&#41;&#41;\n               nTot++\n               oMeter2&#58;Set&#40;nTot &#41;\n 	   		   oMeter2&#58;cText &#58;= str&#40;nTot&#41;+ &quot;/&quot; + str&#40;oMeter2&#58;nTotal&#41;\n              endif    \n           	  IF lEnd\n           	  	  return nil\n           	  endIF\n           NEXT\n     	   endif		      \n	   \n	NEXT\n	\n	\n  FCLOSE&#40;nOutfile&#41;\n\n	\nreturn &#46;t&#46;\n//---------------------------------------------------------------------------------------------\nStatic function ScriviFile&#40;cFileExt,oMeter&#41;\nLocal cFile &#58;= &quot;&quot;\nLocal nX &#58;= 0\nLocal nT &#58;= 1\nLocal cString &#58;= &quot;&quot;\nLocal lOk &#58;= &#46;F&#46;\nLocal cDati &#58;= &quot;&quot;   \n   cString &#58;= MEMOREAD&#40;cFileExt&#41;\n   nT &#58;=  MLCOUNT&#40;cString,254&#41;\n   oMeter&#58;nTotal &#58;= nT\n\n   for nX &#58;= 1 TO nT\n   	 lOk &#58;= &#46;F&#46;\n       cFile &#58;=  UPPER&#40;memoline&#40;cString,254,nX&#41;&#41;\n      \n       IF at&#40;&quot;FUNCTION&quot;,cFile&#41; &gt; 0 \n       	 cFile &#58;= STRTRAN&#40;cFile, &quot;FUNCTION&quot;, &quot;&quot;&#41;\n          cFile &#58;= STRTRAN&#40;cFile, &quot;STATIC&quot;, &quot;&quot;&#41;\n          lOk &#58;= &#46;T&#46;    \n       ENDIF	\n       if Lok ==&#46;f&#46;\n       	\n       	IF at&#40;&quot;METHOD&quot;,cFile&#41; &gt; 0 \n       	   IF at&#40;&quot;CLASS&quot;,cFile&#41; &gt; 0 \n               cFile &#58;= STRTRAN&#40;cFile, &quot;METHOD&quot;, &quot;&quot;&#41;\n               lOk &#58;= &#46;T&#46;    \n               \n            endIF   \n       	ENDIF	\n       ENDIF\n       IF lOk \n       	 cFile &#58;= STRTRAN&#40;cFile, &quot; &quot;, &quot;&quot;&#41;\n          cFile &#58;= SUBSTR&#40;cFile,1,AT&#40;&quot;&#40;&quot;,cFile&#41;-1&#41;\n          cFile += chr&#40;9&#41; +  cFileExt     + chr&#40;9&#41; + alltrim&#40;str&#40;nX&#41;&#41;\n          cDati += cFile + CRLF 	\n     	 endif\n       oMeter&#58;Set&#40;nX &#41;\n    next\n\nReturn cDati\n//======================================================================================================\nfunction MyMsgMeter&#40; bAction, cMsg, cTitle &#41;\n\n   local oDlg, oMeter, oText, oBtn, oFont\n   local lEnd &#58;= &#46;f&#46;, lCancel &#58;= &#46;f&#46;\n   local nVal,nVal2 &#58;= 0\n\n   DEFAULT bAction &#58;= &#123; || nil &#125;,;\n           cMsg &#58;= &quot;Processing&#46;&#46;&#46;&quot;, cTitle &#58;= &quot;Please, wait&quot;\n\n   DEFINE FONT oFont NAME GetSysFont&#40;&#41; SIZE 0, -8\n\n   DEFINE DIALOG oDlg FROM 5, 5 TO 13, 45 TITLE cTitle FONT oFont\n\n   @ 0&#46;2, 0&#46;5  SAY oText VAR cMsg SIZE 130, 10 OF oDlg\n\n   @ 1,   0&#46;5  METER oMeter  VAR nVal TOTAL 10 SIZE 150, 10 OF oDlg\n   \n   @ 2,   0&#46;5  METER oMeter2 VAR nVal2 TOTAL 10 SIZE 150, 10 OF oDlg\n   \n   \n\n   @  2&#46;2,  10&#46;4  BUTTON oBtn PROMPT &quot;&amp;Cancel&quot; OF oDlg ;\n      ACTION &#40; lEnd&#58;= &#46;t&#46;, lCancel&#58;= &#46;t&#46; &#41; SIZE 32, 11\n\n   oDlg&#58;bStart = &#123; || Eval&#40; bAction, oMeter, oText, oDlg, @lEnd, oBtn &#41;,;\n                      lEnd &#58;= &#46;t&#46;, oDlg&#58;End&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID lEnd\n\n   oFont&#58;End&#40;&#41;\n\nreturn lCancel[/code:2w5k1ss9]','',0,'AIA=','2w5k1ss9',1,0,'',89,0,0),(33885,7364,6,1090,0,'201.254.8.194',1182872983,1,0,1,1,1,0,'','','Fantastico; funciono perfecto; tengo otra duda; esta es medio rara; ejecuto un programa, me abre un dialogo con un browse, le doy 2 clic al browse y me tira un error: cannont create dialog_box y el nombre del dialogo \"art_alt\" (que esta dentro de una dll al igual que el dialogo inicial con el browse); ahora, si antes de dar 2 click toco un boton que dispara un MSGGET (\"algo\",\"algo\",@nombre,\"lupa.bmp\"), y despues de cerrar el cuadrito que aparece hago los 2 click, ahi si me muestra perfecto el 2° dialogo; es rarisimo. ¿me explico? abro un dialogo que esta dentro de una dll, abro otro dialogo que se dispara desde esta ventana, y funciona solamente si antes ejecuto el MSGGET, si no da el error de que no puede crear el recurso. ¿tenes idea que puede ser? Gracias.\n\n\notro mas, me di cuenta que las fechas andan mal: es asi; yo definia una variable, por ej xfecha, la inicializab xfecha=date() y despues hacia un Redefine GET var xfecha... etc... ahora si bien parece estar todo OK, cuando escribo la fecha no me respeta los \"-\" que separan dia de mes, etc;  ¿hay algun picture para agregar o algo asi? si no decime donde hay algun ejemplo de get donde se pida una variable de tipo fecha. Gracias. \n\n[quote=&quot;Antonio Linares&quot;:16mf3ipl]En 32 bits tienes que usar \"SysTabControl32\" en vez de \"TFolder\" en tus recursos[/quote:16mf3ipl]','',0,'gA==','16mf3ipl',1,0,'',1090,0,0),(33886,7407,3,303,0,'72.199.41.171',1182873277,1,0,1,1,1,0,'','','Ollie,\n\nI have never had this problem. I just did a search for \"button\" in the FWH section and it worked fine.\n\nDid this only happen to you once, or many times? If once, then maybe it was a temporary Internet problem.\n\nJames','',0,'gA==','17a17nzo',1,0,'',303,0,0),(33887,7364,6,2,0,'87.218.146.227',1182879665,1,0,1,1,1,1,'','','&gt; dialogo \"art_alt\"\n\nQue controles tiene ese diálogo ? Copia aqui la porción del RC correspodiente a ese diálogo','',0,'gA==','2qzz6x2l',1,0,'',2,0,0),(33888,5832,3,2,0,'87.218.146.227',1182879813,1,0,1,1,1,1,'','','Maurizio,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1x9fgsn4',1,0,'',2,0,0),(33889,7409,6,1089,0,'201.236.158.201',1182880065,1,0,1,1,1,0,'','¿Es posible poner un menú Popup con un Rebar?','Amigos, necesito poner un menú con Rebar, y me arroja error, si alguien sabe como agregarlo, se lo agradeceré.','',0,'gA==','6warm5t8',1,0,'',1089,0,0),(33890,7364,6,1090,0,'201.254.8.194',1182880128,1,0,1,1,1,0,'','','aca va el codigo:\n\nART_ALT DIALOG LOADONCALL MOVEABLE DISCARDABLE -38, 16, 400, 308\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Pantalla de alta de articulo\"\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT 109, 41, 5, 88, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n EDITTEXT 111, 204, 5, 189, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 113, -131, 65, 37, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 119, -131, 81, 37, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 115, -131, 97, 37, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 116, -121, 131, 42, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 117, -121, 147, 42, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 1, \"BorBtn\", 1 | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 158, 281, 37, 25\n CONTROL \"\", 2, \"BorBtn\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 281, 37, 25\n LTEXT \"Número:\", -1, 8, 6, 34, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Descripcion:\", -1, 160, 6, 43, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Linea:\", -1, 8, 25, 30, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Proveedor:\", -1, 160, 44, 38, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Valor Unitario:\", -1, -194, 66, 49, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"% Margen:\", -1, -193, 82, 36, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Precio Venta:\", -1, -196, 98, 46, 9, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"STATIC\", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, -203, 61, 191, 52\n LTEXT \"Fecha de Vigencia:\", -1, -194, 132, 70, 9, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"STATIC\", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, -200, 127, 134, 52\n LTEXT \"Embalado:\", -1, -194, 148, 70, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Iva 21 o 10,5\", -1, -194, 164, 70, 9, SS_SIMPLE | WS_GROUP\n PUSHBUTTON \"Aplicar\", 120, -89, 80, 42, 14\n EDITTEXT 114, 478, 132, 29, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n LTEXT \"Cant. Stock:\", -1, 436, 134, 38, 9, SS_SIMPLE | WS_GROUP\n COMBOBOX 112, 204, 40, 188, 124, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"Cuenta de Compras:\", -1, 211, 85, 68, 9, SS_SIMPLE | WS_GROUP\n EDITTEXT 121, 279, 83, 41, 12\n CONTROL \"\", 107, \"TBitMap\", 0 | WS_CHILD | WS_VISIBLE, 435, 352, 11, 12\n CONTROL \"\", -1, \"STATIC\", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 207, 78, 188, 22\n LTEXT \"Cuenta de Ventas:\", -1, 12, 85, 62, 9, SS_SIMPLE | WS_GROUP\n EDITTEXT 122, 75, 83, 41, 12\n CONTROL \"\", 123, \"TBitMap\", 0 | WS_CHILD | WS_VISIBLE, 411, 353, 11, 12\n CONTROL \"\", -1, \"STATIC\", SS_BLACKFRAME | WS_CHILD | WS_VISIBLE, 8, 78, 189, 22\n EDITTEXT 129, -216, 205, 51, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 130, -120, 205, 35, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n LTEXT \"Moneda:\", -1, -151, 207, 30, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Precio:\", -1, -247, 207, 33, 9, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 11, 108, 379, 3\n LTEXT \"Precios de listas:\", -1, -420, 193, 135, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Lista:\", -1, -419, 207, 22, 9, SS_SIMPLE | WS_GROUP\n EDITTEXT 124, -121, 163, 42, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n COMBOBOX 108, -395, 205, 137, 86, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 12, 145, 378, 1\n LTEXT \"Unidad de medida (Stock)\", -1, 11, 115, 91, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Unidad de Facturacion\", -1, 22, 132, 81, 9, SS_SIMPLE | WS_GROUP\n COMBOBOX 125, 101, 129, 57, 50, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n COMBOBOX 126, 101, 112, 57, 50, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, -384, 395, 377, 3\n LTEXT \"Control de Stock:\", -1, -387, 344, 65, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Stock Minimo:\", -1, -386, 365, 47, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Stock Maximo:\", -1, -294, 365, 54, 9, SS_SIMPLE | WS_GROUP\n LTEXT \"Punto de Pedido:\", -1, -191, 364, 54, 9, SS_SIMPLE | WS_GROUP\n EDITTEXT 127, -240, 361, 30, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 128, -133, 361, 30, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 131, -336, 362, 30, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n CHECKBOX \"Habilitado para Ventas\", 132, 9, 62, 86, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Materia Prima\", 133, 240, 62, 57, 11, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Habilitado para Compras\", 134, 306, 61, 90, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n COMBOBOX 110, -358, 42, 114, 125, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n PUSHBUTTON \"Graba\", 118, -81, 204, 44, 14\n CHECKBOX \"Producto stockeable\", 135, -318, 343, 79, 11, BS_AUTOCHECKBOX | WS_TABSTOP\n COMBOBOX 136, -89, 97, 59, 57, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n PUSHBUTTON \"...\", 137, 119, 82, 15, 13\n PUSHBUTTON \"...\", 138, 323, 82, 15, 13\n EDITTEXT 139, 138, 83, 54, 12\n EDITTEXT 140, 342, 83, 50, 12\n CHECKBOX \"Edita la descripcion al operar\", 141, -231, 342, 108, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n LTEXT \"Rubro:\", -1, 8, 43, 30, 9, SS_SIMPLE | WS_GROUP\n COMBOBOX 142, 41, 40, 114, 125, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"Unidad de secundaria\", -1, 163, 115, 72, 9, SS_SIMPLE | WS_GROUP\n COMBOBOX 143, 239, 112, 57, 50, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"Factor Conversion\", -1, 300, 115, 60, 9, SS_SIMPLE | WS_GROUP\n EDITTEXT 144, 363, 112, 30, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 145, 41, 22, 37, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"...\", 146, 83, 22, 15, 13\n EDITTEXT 147, 103, 22, 177, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n CHECKBOX \"Producción\", 148, 113, 62, 48, 11, BS_AUTOCHECKBOX | WS_TABSTOP\n PUSHBUTTON \"Formula\", 149, 165, 61, 44, 14\n LTEXT \"Dias Entrega:\", -1, -85, 364, 46, 9, SS_SIMPLE | WS_GROUP\n EDITTEXT 150, -35, 361, 30, 13, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 154, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 8, 157, 384, 114\n}\n\n\n\n\nUsing keyboard-interactive authenticat\n\n\n[quote=&quot;Antonio Linares&quot;:hrt3su23]&gt; dialogo \"art_alt\"\n\nQue controles tiene ese diálogo ? Copia aqui la porción del RC correspodiente a ese diálogo[/quote:hrt3su23]','',0,'gA==','hrt3su23',1,0,'',1090,0,0),(33891,7410,6,237,0,'190.12.99.34',1182881446,1,0,1,1,1,0,'','Antonio please! problemas de bloqueo','Antonio es urgentisimo que solucione este tema, se te ocurre que podrá ser????\n\nEstoy usando xHarbour build 0.99.71 el que descargo habitualmente desde el cvs.\n\nEstoy experimentando problemas de bloqueo en una red con XP SP2, lo extraño es que con esta función debería funcionar ok, devuelve .T. como que el registro fué bloqueado pero depues termina dando error dbfcdx/1022 \"SE REQUIERE BLOQUEO\", a alguien le ocurrió esto? revisé el foro pero no encontré información relevante acerca de este problema.\n\n[b:sksu6v85]Antes que me preguntes, el problema ocurre en dos redes distintas con el mismo error asi que descarto problemas de placas, cables, etc. y obviamente cuando hago el REPLACE, viene un COMMIT - DBUNLOCK\n[/b:sksu6v85]\n\nLa funcion de bloqueo es:\n\n///////////////////////////////////////////////////////////////////////////////////\n\n#Define MODE_FILE   1\n#Define MODE_RECORD 2\n#Define MODE_APPEND 3\n\nFunction Bloquea( cAlias, lAppend )\nLocal nMode\nLocal nCnt      := 0\n\nDEFAULT lAppend := .F.\n\nDbSelectArea( cAlias )\n\nIf lAppend\n   nMode := MODE_APPEND\nElse\n   nMode := MODE_RECORD\nEndIf\n\nDo While .T.\n\n    Do Case\n\n      Case nMode == MODE_APPEND\n            DbAppend()\n            If !NetErr()\n               Return .T.\n            Endif\n\n      Case nMode == MODE_RECORD\n           If RLock()\n              Return .T.\n           EndIf\n\n   EndCase\n\n   nCnt := nCnt + 1\n   SysWait(1)\n\n   If nCnt &gt; 5\n      If !MsgYesNo( \"No fué posible bloquear el registro \" + StrZero( RecNo(),  8 ) + \" del archivo \" + cAlias + CRLF +;\n                    \"Reintenta?\", \"Atención!\" )\n         Exit\n      Endif\n   Endif\n\nEndDo\n\nReturn .F.\n\n///////////////////////////////////////////////////////////////////////////////////\n\n\nNecesito alguna ayudita urgente !!!!!!!!!!!!\n\n\nMuchos saludos\nAlejandro Cebolido, Buenos Aires, Argentina.','',0,'QA==','sksu6v85',1,0,'',237,0,0),(33892,7410,6,875,0,'64.76.108.182',1182882630,1,0,1,1,1,0,'','','Este problema te pasa cuando quieres modificar un registro o cuando quieres adicionar?  pareciera que esto pasa cuando quieres adicionar\n\nAtt.\n\n\nJaime','',0,'QA==','2evw1c78',1,0,'',875,0,0),(33893,7410,6,237,0,'190.12.99.34',1182882975,1,0,1,1,1,0,'','!!!!!!','Me ocurre al querer modificar, inclusive usando la clase TDBF, me dice que el registro nnn está bloqueado cuando se perfectamente que nadie lo ha bloqueado por que tengo las dos pc una al lado de la otra....\n\nCada vez entiendo menos... Help!!!!\n\nSaludos!','',0,'QA==','2ts6e7tk',1,0,'',237,0,0),(33894,7411,6,279,0,'201.130.252.61',1182884531,1,0,1,1,1,0,'','Problemas con Tword y Campos Memo','Todo me funciona correctamente mientras no utilice un campo Memo.\n\nMi problema es al querer incluir un campo memo a la clase de Tword pero cuando creo una base con campos memos me marca error al querer abrir la base.\n\nAlguien esta utilizando Tword y campos memos.\n\nSTAT FUNC Imp_Carta(vCar)\nlocal cArchivo\nlocal cModelo, oWord, nCarta\n\noDTab:=Open_Dbf(\"BONOCAR\" )\nIF (oDTab)-&gt;(DbSeek(vCar))\n nCarta :=ALLTRIM((oDTab)-&gt;nCarta)\nEndIf\nClose_Dbf(\"BONOCAR\",oDTab)\ncModelo  := ALLTRIM(cruta+\'CARTAS\\\'+nCarta)\ncArchivo := ALLTRIM(cruta+\"GENONO.DBF\")\n\n// inicia OLE com Word\noWord := TWord():New()       // inicia o objeto OLE Word\noWord:OpenDoc( cModelo )     // abre o documento modelo\noWord:OpenDataSource( cArchivo )   // abre o data source (contrato.dbf)\noWord:oMailMerge:Invoke( \"Execute\" )   // executa a funcao do Word de mala direta\noWord:Visualizar()    // visualiza o documento\n\nRETURN (NIL)\n\n¿alguna sugeremcia? \n\nMil Gracias. \n\nSaludos','',0,'QA==','3br5mx76',1,0,'',279,0,0),(33895,7410,6,36,0,'200.113.56.235',1182887680,1,0,1,1,1,1,'','','Hola tecnisoftware\n\na mi me esta pasando lo mismo, pero al parecer es la funcion\nneterr()\n\n[url:lpbviabq]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=7316[/url:lpbviabq]','',0,'EA==','lpbviabq',1,0,'',36,0,0),(33896,7410,6,237,0,'190.12.99.34',1182888107,1,0,1,1,1,0,'','no es el caso...','A NetErr la llama para el caso de Append() y el problema lo tengo cuando quiero modificar.\n\nSaludos!','',0,'EA==','7yod5bum',1,0,'',237,0,0),(33897,7409,6,511,0,'200.35.215.227',1182893467,1,0,1,0,1,1,'','Re: ¿Es posible poner un menú Popup con un Rebar?','Leonel,\n\nYo lo hago asi:\n\nFUNCTION MiFuncion()\n    LOCAL oMenu, nRow, nCol, aPos := GetCursorPos()\n\n    nRow := aPos[1]\n    nCol := aPos[2]\n\n    MENU oMenu POPUP\n        MENUITEM OemToAnsi( \"Opcion 1\" ) ACTION Funcion1()\n        MENUITEM OemToAnsi( \"Opcion 2\" ) ACTION Funcion2()\n    ENDMENU\n\n    ACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd\n\n    oMainWnd:Refresh()\nRETURN NIL','',0,'','r72tw3mj',1,0,'',511,0,0),(33898,7410,6,875,0,'64.76.108.182',1182893863,1,0,1,1,1,0,'','','porque no haces algo simple en vez de llamar a la funcion BLOQUEA\n\nusa de frente RLOCK()\n\nRLOCK()\n Replace  campo with dato    etc,  etc,  etc\n\nUNLOCK','',0,'','2gdsd6wp',1,0,'',875,0,0),(33899,7409,6,1089,0,'201.236.154.48',1182894500,1,0,1,1,1,0,'','','Alvaro, gracias, me di cuenta que sólo tenía que activar el menú.','',0,'','2qksj1nm',1,0,'',1089,0,0),(33900,7404,3,529,0,'200.159.199.104',1182895822,1,0,1,1,1,0,'','','hi, i already try this, but alfredo´s menus has more things...','',0,'','3hiqd92x',1,0,'',529,0,0),(33901,7410,6,2,0,'87.218.146.227',1182899649,1,0,1,1,1,1,'','','Te sugiero dos ideas:\n\nDescarga el build de xHarbour desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> y prueba con él\n\nDe continuar el error, construye un ejemplo en modo consola, sin FWH, y repórtalo en comp.lang.xharbour accesible desde google grupos','',0,'','1kyctzgg',1,0,'',2,0,0),(33902,7404,3,72,0,'189.146.240.23',1182901288,1,0,1,1,1,0,'','','Contact me, i use clase changes from Arturo.','',0,'','3ve56wsp',1,0,'',72,0,0),(33903,7412,6,435,0,'200.155.192.245',1182904472,1,0,1,1,1,0,'','Es posible MDIChild MODAL ?','Gostaria de criar MDIChild em Modal\n\nAri','',0,'','2v3n0rx7',1,0,'',435,0,0),(33904,7413,2,235,0,'201.140.41.167',1182905962,1,0,1,1,1,0,'','acerca de combobox','como se llena un combo en tiempo de ejecucion???, el combo se requiere que lleve 2 columnas una alfabetica y otra numerica.\n\nesto se requiere para hacer una factura.\n\npor ejemplo una vez que se introdujo x clave, una vez validada que exista traiga cinco campos de la bd los cuales son numericos, una vez que se haya elejido uno de los cinco de un total.\n\nlo que se requiere es un combo con la sig. informacion\n\nmenudeo     50.00\nmayoreo      45.00\nprecio3        40.00\nprecio4        38.50\noferta          37.00\n\ny que una vez seleccionado el precio multiplicarlo por la cantidad de articulos a comprar y que de un total\n\nuso fw 2.2 clipper 53b y blinker\n\nde antemano muchas gracias','',0,'','11lewjkg',1,0,'',235,0,0),(33905,6815,6,1053,0,'189.174.209.183',1182906439,1,0,1,1,1,1,'','Documentacion','Hola \n\nla documentacion de adordd de donde se puede conseguir o la unica es la que se encuentra publicada aqui en el foro ??\n\notro detalle para manejar campo fecha en mysql con cual se podria ya que con date me marca error. los campos logicos los remplaze por los tinyint de longitud 1 con 0 y 1.\n\nSaludos...','',0,'','2q2i3zhk',1,0,'',1053,0,0),(33906,7406,3,239,0,'218.20.60.139',1182906864,1,0,1,1,1,0,'','','Hi,\n1.Modify dialog.prg:\n\nadd\n\nMETHOD Autoresize(ntop,nleft)\nlocal i,rsl0,rsl1,oCtrol,aRect\nDEFAULT ntop:=0\nDEFAULT nleft:=0\n\n \n   rsl0:=getsysmetrics(0)/800\n   if rsl0&lt;=1; return ; end  //&lt;=800*600, not needed   \n   rsl1:=getsysmetrics(1)/600\n   for  i:=1 TO LEN(::acontrols)\n       oCtrol = ::aControls[i]\n       aRect = GetCoors( oCtrol:hWnd )\n       if oCtrol:classname()==\"TCOMBOBOX\"\n           oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1)\n         else  \n           oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1, (aRect[4] - aRect[2])*rsl0, (aRect[3] - aRect[1])*rsl1, .t. )        \n       end\n   next\n  \n    aRect = GetWndRect( ::hWnd )\n  \n    ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. )\n    \n    if ::lCentered\n      WndCenter( ::hWnd )\n   else\n      if Empty( ::cResName )\n         ::Move( ::nTop, ::nLeft )\n      endif\n   endif\n       \n\nreturn \n\n2. on app\n\n   activate dialog mydialog on init  mydialog:autoresize()\n\n3. need enhance , on 1280*800 wider screen , it\'s not work fine,it must set to normail, like 1280*1024, 1024*768, 800*600.\n\nRegards\n\nShuming Wang','',0,'','7ay7ywyj',1,0,'',239,0,0),(33907,7375,3,239,0,'218.20.60.139',1182907376,1,0,1,1,1,0,'','','Fernando Mancera,\n   viaopen button  support  paint disabled button  as the dialog background color?\n for example:\n  redefine viaopenbutton obtton id 101 of dialog when .f.\n   \n  this hide the obutton .\n\nRegards\nShuming Wang','',0,'','37kjwjq6',1,0,'',239,0,0),(33908,7406,3,529,0,'200.159.199.104',1182908228,1,0,1,1,1,0,'','','hi, works in windows (mdi) too?? thanks','',0,'','2xbu86g9',1,0,'',529,0,0),(33909,7376,1,47,0,'203.144.160.247',1182915517,1,0,1,1,1,0,'','','Dear Davide,\n\nThis sample will be some useful, I hope.\nDutch\n\n[code:fio3bnvr]\n// More fonts samples\n\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd, aFonts\n\nfunction Main&#40;&#41;\n\nlocal oBtn, oFont, oTxtFile, nLines, cLines, n, cFont, nSize\n\ncFont &#58;= \'Courier\'\nnSize &#58;= -10\naFonts &#58;= &#123;&#125;\n\nif file&#40;\'FONT&#46;INI\'&#41;\n   oTxtFile &#58;= TTxtFile&#40;&#41;&#58;New&#40;\'FONT&#46;INI\'&#41;\n   nLines   &#58;= oTxtFile&#58;RecCount&#40;&#41;\n\n	for n &#58;= 1 to nlines\n	 cLines &#58;= oTxtFile&#58;ReadLine&#40;&#41;\n	 if n = 6 &#46;or&#46; n = 7 &#46;or&#46; n = 8\n		 aadd&#40; aFonts , if&#40;cLines=\'&#46;T&#46;\',&#46;T&#46;,&#46;F&#46;&#41; &#41;\n	 elseif n = 14\n		 aadd&#40; aFonts , cLines &#41;\n	 else\n		 aadd&#40; aFonts , val&#40;cLines&#41; &#41;\n	 end\n	    oTxtFile&#58;Skip&#40;&#41;\n	next\n	oTxtFile&#58;Close&#40;&#41;\n\nend\n\n  // This is default for no Font&#46;ini file\nDEFINE FONT oFont NAME cFont SIZE 0,nSize\n\nif !empty&#40; aFonts &#41;\n  oFont&#58;hFont &#58;= CreateFont&#40; aFonts &#41;\nend\n\n   DEFINE WINDOW oWnd TITLE &quot;Testing ChooseFont&quot;\n\n	oWnd&#58;SetFont&#40; oFont &#41;\n\n   @ 2, 2 BUTTON oBtn PROMPT &quot;&amp;Choose&quot; OF oWnd ;\n		      ACTION &#40;ChooseSysFont&#40;@aFonts&#41;&#41; ;\n		SIZE 80, 25\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n*--------------------*\nFunction uTrim&#40; uVar &#41;\nlocal cVar\nif valtype&#40; uVar &#41; = \'N\'\n	cVar &#58;= ltrim&#40;str&#40;uVar&#41;&#41;\nelseif valtype&#40; uVar &#41; = \'L\'\n	cVar &#58;= if&#40;uVar,\'&#46;T&#46;\',\'&#46;F&#46;\'&#41;\nelse\n	cVar &#58;= alltrim&#40;uVar&#41;\nend\nreturn cVar\n\n*-------------------------------*\nFunction ChooseSysFont&#40; aFonts &#41;\nlocal hText, n\naFonts &#58;= ChooseFont&#40;&#41;\nif !empty&#40;aFonts&#91;14&#93;&#41;\n      hText &#58;= Fcreate&#40;\'FONT&#46;INI\'&#41;\n      for n &#58;= 1 to len&#40;aFonts&#41;\n	 Fwrite&#40;hText,utrim&#40;aFonts&#91;n&#93;&#41;+CRLF&#41;\n      next\n      Fclose&#40;hText&#41;\nend\nreturn nil\n[/code:fio3bnvr]','',0,'AIA=','fio3bnvr',1,0,'',47,0,0),(33910,7400,1,47,0,'203.144.160.247',1182915807,1,0,1,1,1,0,'','','Dear Marc,\n\nYou can use GetEnv() as in Clipper function.\n\n[code:crgfjkpv]\nGETENV&#40;&quot;USERPROFILE&quot;&#41;\n\n*------------------------*\nFunction GetEnv&#40;VarString&#41;\n  Local OutBuf&#58;=space&#40;200&#41;,VarLen&#58;=0\n\n  VarLen&#58;=GetEnv2&#40;ALLTRIM&#40;VarString&#41;,Outbuf,200&#41;\n  * If the value return is greater than the initial buffer we have to increase\n  * it to receive the value but I limit the length to 3000\n  if VarLen &gt; 200 &#46;and&#46; VarLen &lt;=3000\n    Outbuf&#58;=SPACE&#40;VarLen&#41;\n    GetEnv2&#40;ALLTRIM&#40;VarString&#41;,Outbuf,Varlen&#41;\n  elseif VarLen &gt; 3000\n    MSGINFO&#40;&quot;Can\'t retrieve, the value is too long&quot;&#41;\n    VarLen&#58;=0\n  endif\nReturn Left&#40;OutBuf,Varlen&#41;\n\nDLL32 FUNCTION GetEnv2&#40; lpName AS LPSTR, lpBuffer AS LPSTR, nSize AS DWORD&#41; ;\n               AS DWORD PASCAL FROM &quot;GetEnvironmentVariableA&quot; LIB &quot;Kernel32&#46;DLL&quot;\n[/code:crgfjkpv]','',0,'AIA=','crgfjkpv',1,0,'',47,0,0),(33911,7414,6,78,0,'190.42.115.157',1182920952,1,0,1,1,1,0,'','Modificar Graficos','Hola a todos.\nSera posible hacer graficos y modificarlos con el movimiento del mouse??\nalgo asi como en las imagenes\nSalu2\n\n\n<!-- m --><a class=\"postlink\" href=\"http://img204.imageshack.us/my.php?image=imagen1gz3.png\">http://img204.imageshack.us/my.php?image=imagen1gz3.png</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img142.imageshack.us/my.php?image=imagen2mh9.png\">http://img142.imageshack.us/my.php?image=imagen2mh9.png</a><!-- m -->','',0,'AIA=','6zbbnzdm',1,0,'',78,0,0),(33912,7400,1,161,0,'81.164.212.146',1182921060,1,0,1,1,1,0,'','','Thanks Dutch,\n\nIts\'s working!!\n\nRegards,\nMarc','',0,'AIA=','24vva6cp',1,0,'',161,0,0),(33913,7413,2,2,0,'87.218.146.227',1182921425,1,0,1,1,1,1,'','','Un combobox sólo puede tener una columna, salvo que ambos valores los pases a cadena y los concatenes en una sola.\n\nSi necesitas más de una columna entonces tienes que usar un browse','',0,'AIA=','k1tcsoej',1,0,'',2,0,0),(33914,6815,6,2,0,'87.218.146.227',1182921936,1,0,1,1,1,1,'','','Juan,\n\nRevisa el código fuente del ADORDD, es la mejor documentación disponible. Es simple y fácil de entender.\n\nY revisa los ejemplos que se proporcionan','',0,'AIA=','fmoikiwp',1,0,'',2,0,0),(33915,7412,6,2,0,'87.218.146.227',1182922043,1,0,1,1,1,1,'','','Ari,\n\nDeshabilita todas las demas ventanas con &lt;oWnd&gt;:Disable() por lo que la tuya se volverá modal. Luego habilítalas de nuevo con &lt;oWnd&gt;:Enable()','',0,'AIA=','2y995fzs',1,0,'',2,0,0),(33916,7407,3,904,0,'198.54.202.250',1182925238,1,0,1,1,1,1,'','','It happens all the time.  Can never see beyond the first page of results.  (I usually use the show as POSTS option)\n\nI have cleared temp files and cookies - still same.\n\nPlease test your side with \"show as POSTS\" option on','',0,'AIA=','lg4rs729',1,0,'',904,0,0),(33917,5832,3,89,0,'213.21.136.60',1182926078,1,0,1,1,1,0,'','','Antonio \nis it possible to have the recent config file (Application) for xHarbur . \n\nRegards Maurizio','',0,'AIA=','2t3krqta',1,0,'',89,0,0),(33918,5832,3,2,0,'87.218.146.227',1182927664,1,0,1,1,1,1,'','','Maurizio,\n\nUEStudio provides it though we find it too complex and messy, so we built one for Harbour, simpler, that can be easily modified for xharbour','',0,'AIA=','2m5sf1rw',1,0,'',2,0,0),(33919,7405,3,130,0,'141.51.32.24',1182929772,1,0,1,1,1,0,'','','Antonio,\n\nin the class btnbmp are many occurences of DrawFocusRect(), but no call depends on ::ltransparent. \n\nIn  my opinion the method MouseMove is responsible for showing the focus-rect.\n\nI don´t understand what i have to change. Could you please help me ?\n\nMany thanks\n\nkind regards\nStefan','',0,'AIA=','welmh57k',1,0,'',130,0,0),(33920,7390,20,29,0,'88.149.165.190',1182933974,1,0,1,1,1,0,'','','Grazie, entrambe i sistemi non permettono però di avere una barra di progressione che mostra lo stato di avanzamento dell\'upload o sbaglio ?','',0,'AIA=','3vdp9lcb',1,0,'',29,0,0),(33921,7415,20,29,0,'88.149.165.190',1182934211,1,0,1,1,1,0,'','Problemi con Loadlib32','Salve, \nho installato l\'ultima versione di FWH e xHB.\n\nAlcuni clienti mi segnalano questo messaggio di errore all\'avvio del mio applicativo:\n\nError code 0\nLoading 0\n\nL\'errore si verifica specialmente su windows 9x quando eseguo:\n\nhRtfLib:=LoadLib32(\"cdintf.dll\")\n\nE\' corretto utilizzare LoadLib32 o devo utilizzare LoadLibrary o ancora registrare la dll ? A riguardo c\'è un pò di confusione sul forum.\nQualcuno di voi ha qualce idea a riguardo ?\n\nGrazie\n\nMarco','',0,'AIA=','df22hr9y',1,0,'',29,0,0),(33922,7390,20,446,0,'151.32.162.77',1182935901,1,0,1,1,1,1,'','','Con il comando FTP sicuramente no, ma avevo capito che ti servisse qualcosa per fare dei test.\nIn ogni caso io uso questo metodo anche in applicazioni reali perchè (per ora) è quello che mi ha dato maggiore affidabilità trasferendo senza problemi file anche da 30-40MB, i file batch che mi servono li creo al volo da FW e poi eseguo il comando.\nForse meno elegante ma più sicuro   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->\n\nciao\nRoberto','',0,'AIA=','1xkjh6n0',1,0,'',446,0,0),(33923,7391,6,308,0,'84.148.31.39',1182936140,1,0,1,1,1,0,'','Re: TsBrowse y Combobox, no me devuelve el dato...','Here is an sample from my code, it works fine\n\nRegards, Norbert\n\n[code:3b0b535m]\n            ADD COLUMN TO Browse oLbx2 DATA Array ELEMENT 2 TITLE &quot;Eingabe&quot; ; \n            ALIGN DT_LEFT, DT_LEFT, DT_LEFT ;\n            SIZE nSpa2  EDITABLE ;\n            COLORS CLR_BLACK, CLR_WHITE ;\n            3DLOOK FALSE, FALSE, FALSE ; \n            MOVE DT_MOVE_NEXT ;\n            PREEDIT &#123; | uVar | IF&#40; ValType&#40; aUserFld1&#91; oLbx2&#58;nAt, 4 &#93; &#41; = &quot;A&quot;, ;\n                                   &#40; oLbx2&#58;aColumns&#91; 2 &#93;&#58;lComboBox &#58;= &#46;T&#46;, oLbx2&#58;aColumns&#91; 2 &#93;&#58;aItems &#58;= aUserFld1&#91; oLbx2&#58;nAt, 4 &#93; &#41;, ;\n                                   &#40; oLbx2&#58;aColumns&#91; 2 &#93;&#58;lComboBox &#58;= &#46;F&#46;, oLbx2&#58;aColumns&#91; 2 &#93;&#58;aItems &#58;= NIL &#41; &#41;, nPreVal &#58;= uVar &#125; ; \n            POSTEDIT &#123; || oLbx2&#58;Refresh&#40; &#46;T&#46; &#41; &#125;\n[/code:3b0b535m]','',0,'AIA=','3b0b535m',1,0,'',308,0,0),(33925,7390,20,29,0,'88.149.165.190',1182937166,1,0,1,1,1,0,'','','&gt;Forse meno elegante ma più sicuro\n\nSu questo hai ragione, utilizzavo anch\'io il tuo sistema e non ho mai avuto problemi, tuttavia la banda di progressione mi serve assolutamente.','',0,'AIA=','bd7z8lbi',1,0,'',29,0,0),(33927,7417,3,86,0,'81.83.185.118',1182938576,1,0,1,1,1,1,'','Problem with uppercase','Hello,\n\nI have a problem in the TGET-class with uppercase.\n\nIf I define a picture like \"!!!!!!\", I can\'t input characters like ä, ï, ö, Ä, Ï, Ö, which are often used in German names and words. These characters are replaced by characters like ­õ, Ì, Ó, µ, ...\n\nIn FW for Clipper, that wasn\'t the case. Although picture \"!!!!!!\" was defined, I was able to input these character. They weren\'t replaced by other characters.\n\nDoes anyone have a solution for this problem ?\n\nThanks a lot in advance.','',0,'AIA=','1ddot4eh',1,0,'',86,0,0),(33928,7418,20,1082,0,'85.43.122.34',1182938761,1,0,1,1,1,0,'','Icona per file EXE','Ho il mio miofile.ICO con all\'interno l\'icona che vorrei mettere sul miofile.EXE da visualizzare quando si è sull\'elenco dei file, non ricordo più come si fa......','',0,'AIA=','2vhdzxia',1,0,'',1082,0,0),(33929,7391,6,52,0,'190.30.142.212',1182939561,1,0,1,1,1,1,'','Re: TsBrowse y Combobox, no me devuelve el dato...','Viele Danke.\n\n\n[quote=&quot;NK&quot;:1dfia1hs]Here is an sample from my code, it works fine\n\nRegards, Norbert\n\n[code:1dfia1hs]\n            ADD COLUMN TO Browse oLbx2 DATA Array ELEMENT 2 TITLE &quot;Eingabe&quot; ; \n            ALIGN DT_LEFT, DT_LEFT, DT_LEFT ;\n            SIZE nSpa2  EDITABLE ;\n            COLORS CLR_BLACK, CLR_WHITE ;\n            3DLOOK FALSE, FALSE, FALSE ; \n            MOVE DT_MOVE_NEXT ;\n            PREEDIT &#123; | uVar | IF&#40; ValType&#40; aUserFld1&#91; oLbx2&#58;nAt, 4 &#93; &#41; = &quot;A&quot;, ;\n                                   &#40; oLbx2&#58;aColumns&#91; 2 &#93;&#58;lComboBox &#58;= &#46;T&#46;, oLbx2&#58;aColumns&#91; 2 &#93;&#58;aItems &#58;= aUserFld1&#91; oLbx2&#58;nAt, 4 &#93; &#41;, ;\n                                   &#40; oLbx2&#58;aColumns&#91; 2 &#93;&#58;lComboBox &#58;= &#46;F&#46;, oLbx2&#58;aColumns&#91; 2 &#93;&#58;aItems &#58;= NIL &#41; &#41;, nPreVal &#58;= uVar &#125; ; \n            POSTEDIT &#123; || oLbx2&#58;Refresh&#40; &#46;T&#46; &#41; &#125;\n[/code:1dfia1hs][/quote:1dfia1hs]','',0,'gIA=','1dfia1hs',1,0,'',52,0,0),(33930,7417,3,130,0,'141.51.32.24',1182942001,1,0,1,1,1,0,'','','Michel,\n\nit´s working fine here with  xHarbour 0.9971 and FWH 7.05.\n\nkind regards\nStefan','',0,'gIA=','js9z3ii1',1,0,'',130,0,0),(33931,7376,1,487,0,'151.42.230.184',1182944098,1,0,1,1,1,0,'','','[quote=&quot;dutch&quot;:15rzn6jp]This sample will be some useful, I hope.[/quote:15rzn6jp]\nThank you Dutch, I\'ll study it.\nHi,\nDavide','',0,'gA==','15rzn6jp',1,0,'',487,0,0),(33932,7405,3,2,0,'87.218.146.103',1182945994,1,0,1,1,1,1,'','','Stefan,\n\nDo you mean this border around the button ? \n[url=http&#58;//imageshack&#46;us:nxgolj3i][img:nxgolj3i]http&#58;//img245&#46;imageshack&#46;us/img245/1484/barvy2&#46;png[/img:nxgolj3i][/url:nxgolj3i]','',0,'GA==','nxgolj3i',1,0,'',2,0,0),(33933,7410,6,237,0,'190.12.99.34',1182948068,1,0,1,1,1,0,'','Gracias Antonio','Gracias Antonio, ya descargué ese xHarbour, recompilo todo y me pongo a probar.\n\nCon respecto a esto:\n\n[quote=&quot;jacgsoft&quot;:3r4yxr1u]porque no haces algo simple en vez de llamar a la funcion BLOQUEA\n\nusa de frente RLOCK()\n\nRLOCK()\n Replace  campo with dato    etc,  etc,  etc\n\nUNLOCK[/quote:3r4yxr1u]\n\nNo es correcto ya que si RLock() devuelve .F. la actualización no se realiza.\n\nGracias de todos modos.\n\nSaludos!\nAlejandro Cebolido.','',0,'gA==','3r4yxr1u',1,0,'',237,0,0),(33934,7417,3,995,0,'81.11.202.208',1182948263,1,0,1,1,1,0,'','UPPER(*)','Michel\n\nI believe that upper only works as :\n\n? Upper(AnsiToOem(é)) --&gt; Gives E\n\nSee also :\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7175\">http://fivetechsoft.com/forums/viewtopic.php?t=7175</a><!-- m -->\n\nFrank','',0,'gA==','3rkrnowy',1,0,'',995,0,0),(33935,7359,3,267,0,'200.208.238.2',1182949072,1,0,1,1,1,1,'','','Antonio,\n\nIs possible ?','',0,'gA==','1hde9zis',1,0,'',267,0,0),(33936,7419,3,511,0,'200.35.215.227',1182949129,1,0,1,0,1,1,'','Create folders to upload files','Hi Everybody, \n\nI use icopyfil.prg (fwh\\samples) to upload/download files from web but i don\'t know how to create folders. \n\nSomeone has an sample?\n\n\nThanks in advance.','',0,'gA==','2vfwh7i8',1,0,'',511,0,0),(33937,7390,20,89,0,'213.21.136.60',1182949407,1,0,1,1,1,0,'','','Io uso [code:3kxzhnjp]   for n = 1 to Len&#40; aSource &#41;\n      hSource = FOpen&#40; aSource&#91; n &#93; &#41;\n      oFile = TFtpFile&#40;&#41;&#58;New&#40; aTarget&#91; n &#93;, oFTP &#41;\n      oFile&#58;OpenWrite&#40;&#41;\n	   oSay&#58;SetText&#40;&quot;Copia&#58;&quot; + aSource&#91; n &#93; +  &quot; in  &quot;  + aTarget&#91; n &#93;&#41;\n      oProg3&#58;SetRange&#40; 0,  FSeek&#40; hSource, 0, 2 &#41;&#41;\n      oProg3&#58;SetPos&#40; 0 &#41;\n      FSeek&#40; hSource, 0, 0 &#41;\n      nFile &#58;= 0\n      SysRefresh&#40;&#41;\n      while &#40; nBytes &#58;= FRead&#40; hSource, @cBuffer, nBufSize &#41; &#41; &gt; 0  &#46;and&#46; ! lEnd\n         oFile&#58;Write&#40; SubStr&#40; cBuffer, 1, nBytes &#41; &#41;\n         oProg3&#58;SetPos&#40; nFile += nBytes &#41;\n			nTotal += nBytes\n         SysRefresh&#40;&#41;\n      end\n      FClose&#40; hSource &#41;\n      oFile&#58;End&#40;&#41;\n      if lEnd\n        exit\n      endif\n\n		AddoLbx&#40;&quot;Trasferimento file&#58;&quot; + aSource&#91; n &#93; + &quot; completata &quot; &#41;\n   next\n[/code:3kxzhnjp]','',0,'AIA=','3kxzhnjp',1,0,'',89,0,0),(33938,7418,20,6,0,'79.2.214.41',1182949698,1,0,1,1,1,1,'','Re: Icona per file EXE','Devi metterlo all\'interno del file di risorse (DLL, RC o RES che sia).\n\nEMG','',0,'AIA=','374yty3b',1,0,'',6,0,0),(33939,7415,20,6,0,'79.2.214.41',1182949837,1,0,1,1,1,1,'','Re: Problemi con Loadlib32','Prova con LoadLibrary()/FreeLibrary(). La DLL la devi registrare solo se è specificato nelle istruzioni della DLL stessa. Ad esempio, FreeImage.dll non richiede registrazione.\n\nEMG','',0,'AIA=','ltqdkh17',1,0,'',6,0,0),(33940,7407,3,303,0,'72.199.41.171',1182950222,1,0,1,1,1,0,'','','Ollie,\n\n&gt;Please test your side with \"show as POSTS\" option on\n\nWorks for me that way also.\n\nI am using IE 7.0. What browser are you using? The error you are getting sounds like a server error, but I am just wondering if it might be the browser creating the problem.\n\nJames','',0,'AIA=','3cexj7su',1,0,'',303,0,0),(33941,7410,6,36,0,'200.113.56.235',1182950514,1,0,1,1,1,1,'','','para bloquear registro yo utilizo\n\n[code:m58yi9mv]	if dbRLock&#40; &#41;\n		lRet &#58;= &#46;T&#46;\n	 	exit\n	endif[/code:m58yi9mv]\n\n[list:m58yi9mv] DBRLOCK()\n Bloquea el registro que coincide con la identidad especificada o con\n la actual\n\n Sintaxis\n\n     DBRLOCK(&lt;xIdentidad&gt;) --&gt; lExito\n\n Argumentos\n\n     &lt;xIdentidad&gt; es un valor £nico en la estructura del fichero de\n     datos que identifica de forma un¡voca a uno de sus elementos (de base\n     de datos). En ficheros con estructura de datos .dbf, &lt;xIdentidad&gt; es\n     el n£mero de registro. En otros formatos de datos, &lt;xIdentidad&gt; es el\n     valor de la clave principal.\n\n Devuelve\n\n     DBRLOCK() devuelve un valor l¢gico que es verdadero (.T.) si no hay\n     error en el bloqueo y falso (.F.) en caso contrario.\n[/list:u:m58yi9mv]','',0,'AMA=','m58yi9mv',1,0,'',36,0,0),(33942,7407,3,904,0,'196.25.255.210',1182950547,1,0,1,1,1,1,'','','Also IE 7.\n\nVersion: 7.0.5730.11','',0,'AMA=','12y76z45',1,0,'',904,0,0),(33943,7407,3,904,0,'198.54.202.214',1182950673,1,0,1,1,1,1,'','','Searching for button, and leaving all defaults,\n\nI could see page 2, but the other pages failed.\n\nHere is the link I get (that fails): \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/search.php?search_id=1785087687&amp;start=550\">http://fivetechsoft.com/forums/search.p ... &amp;start=550</a><!-- m -->','',0,'AMA=','3nu36jhw',1,0,'',904,0,0),(33944,7418,20,1082,0,'85.43.122.34',1182950877,1,0,1,1,1,0,'','','macchè... se vedi nella DLL che ti ho mandato c\'è la risorsa ICON e nonostante tutto non va...','',0,'AMA=','1t1e2w4y',1,0,'',1082,0,0),(33945,7407,3,303,0,'72.199.41.171',1182955460,1,0,1,1,1,0,'','','Ollie,\n\nThis is the problem:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/search.php?search_id=1785087687&amp;start=550\">http://fivetechsoft.com/forums/search.p ... &amp;start=550</a><!-- m -->\n\nAt the end see where it says \"start=550\"? 550 is the number of the first message for the page. When I search for \"button\" and I click on \"2\" the URL is shown like this:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/search.php?search_id=1102806135&amp;start=30\">http://fivetechsoft.com/forums/search.p ... 5&amp;start=30</a><!-- m -->\n\nI get the same thing when clicking on \"Next\" instead of the page number.\n\nI don\'t know how you are getting to the point where you get 550?\n\nCan you tell me eactly the steps you are taking to get to this point?\n\nJames','',0,'AMA=','2fhpgeyf',1,0,'',303,0,0),(33946,7410,6,237,0,'190.12.99.34',1182955805,1,0,1,1,1,0,'','?','Que diferencia existe entre RLock() y DBRlock() y/o en el caso que funcionen  distinto, cual es mas conveniente de usar ??\n\nMuchos saludos!\nAlejandro Cebolido\nBuenos Aires, Argentina.','',0,'AMA=','16cdj06b',1,0,'',237,0,0),(33947,7405,3,130,0,'84.138.43.159',1182957916,1,0,1,1,1,0,'','','Antonio,\n\nyes, i mean the border that comes up if i move the mouse over the button. It does not appear, if ltransparent is true.\n\nkind regards\nStefan','',0,'AMA=','lytyu2dx',1,0,'',130,0,0),(33948,7407,3,904,0,'198.54.202.226',1182958217,1,0,1,1,1,1,'','','Search\nenter:  Button in first field\n\nClick Search\n\n(695 matches)\n\nPage 12 link is : <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/search.php?search_id=1937353137&amp;start=550\">http://fivetechsoft.com/forums/search.p ... &amp;start=550</a><!-- m -->\n\nPage 2 Link is: <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/search.php?search_id=1937353137&amp;start=50\">http://fivetechsoft.com/forums/search.p ... 7&amp;start=50</a><!-- m -->\n\nBoth fail with : No topics or posts met your search criteria','',0,'AMA=','30o3gmu4',1,0,'',904,0,0),(33949,7419,3,130,0,'84.138.43.159',1182958591,1,0,1,1,1,1,'','','Alvaro,\n\ndo you mean directories or a folder control ?\n\nDirectories can be created with lMkDir (cDir) -&gt; lSuccess.','',0,'AMA=','35xzkbq8',1,0,'',130,0,0),(33950,7419,3,511,0,'200.35.215.227',1182959417,1,0,1,0,1,1,'','','Stefan,\n\nI want to create directories in my web site, not in a local disk. I want to upload files from local disk to www. I use tftp.\n\nRegards','',0,'AMA=','3g84em9s',1,0,'',511,0,0),(33951,7420,6,24,0,'80.24.12.168',1182959836,1,0,1,1,1,1,'','Bug in clausula WHEN','Miren te comportamiento:\n\nDEFINE DIALOG oWnd SIZE 300,300\n\n@1,1 BUTTON oBtn ACTION \"HOLA\" OF oDlg\n\noBtn:Disable()\n\nACTIVATE DIALOG oDlg\n\nSe puede observar que el boton es desactivado.\nAhora, si le añadimos la clausula WHEN al boton, ya NO ESTA DISABLE()\n\nNo me digas que lo meta en el ACTIVATE , porque es ya ilegible de la cantidad de cosas que hay que hacer antes del activate...\n\n¿ Alguna solución ?','',0,'AMA=','3gh1tiet',1,0,'',24,0,0),(33952,7420,6,2,0,'87.218.146.103',1182960083,1,0,1,1,1,1,'','','Rafa,\n\nAntes del ACTIVATE el botón no tiene un handle válido de control, por lo que no se puede disable','',0,'AMA=','rhxdmcec',1,0,'',2,0,0),(33953,7407,3,303,0,'72.199.41.171',1182960310,1,0,1,1,1,0,'','','Ollie,\n\nOK, I get the same links as you (except for the search_id), but everything works.\n\nThe only other thing I can think of is to try it using a different PC if you have one available.\n\nJames','',0,'AMA=','ov4q5bbi',1,0,'',303,0,0),(33954,7405,3,2,0,'87.218.146.103',1182960382,1,0,1,1,1,1,'','','In my screenshot lTransparent is used. \n\nDon\'t use a bitmap whose image is too close to the left edge','',0,'AMA=','1t3t1yqm',1,0,'',2,0,0),(33955,7034,6,400,0,'189.19.9.20',1182960658,1,0,1,1,1,1,'','','Alguien sabe o que es esse erro, acima ???','',0,'AMA=','3hh4wpmn',1,0,'',400,0,0),(33956,7419,3,2,0,'87.218.146.103',1182960772,1,0,1,1,1,1,'','','Alvaro,\n\nAdd this method to Class TFtp:\n[code:jllel70w]\n   METHOD CreateDirectory&#40; cDirName &#41; INLINE ;\n            FtpCreateDirectory&#40; &#58;&#58;hFTP, cDirName &#41;\n[/code:jllel70w]','',0,'AIA=','jllel70w',1,0,'',2,0,0),(33957,7421,7,840,0,'201.243.2.60',1182960979,1,0,1,1,1,1,'','PROBLEMA CON INDEX','ANTONIO.\n\n\nCUANDO DECLARO EL INDEX DE ESTA MANERA\n\nINDEX ON COMPA+STR(CODIGO) TAG FAVORITO FOR CODIGO &gt; 0  TO MINVEN\n\nEL PROGRAMA NO SE EJECUTA Y DA EL SIGUIENTE ERROR\n\n       FIX  GPF STACK() !\n\nSI LE QUITO EL FOR &gt; 0 , SI SE EJECUTA EL PROGRAMA, O EL FOR \nLO FILTRO CON .T. CON OTRO CAMPO TAMBIEN FUNCIONA.\n\nCUANDO LO REFIERO A UN CAMPO NUMERICO NO.\n\n\nQUE PUEDE SER.\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'AIA=','2ko51kb2',1,0,'',840,0,0),(33958,7034,6,2,0,'87.218.146.103',1182961066,1,0,1,1,1,1,'','','Que controles tiene Resource: DE_HEADER_BROWSE ?','',0,'AIA=','1z9nach1',1,0,'',2,0,0),(33959,7421,7,2,0,'87.218.146.103',1182961209,1,0,1,1,1,1,'','','Parece un error del RDD al indexar con la condición','',0,'AIA=','3suqd75b',1,0,'',2,0,0),(33960,7413,2,1063,0,'200.27.109.129',1182961272,1,0,1,1,1,0,'','','Antonio\n\nCon respecto a la pregunta anterior, como puedo llenar un combobox en tiempo real, para que me vaya mostrando los datos ingresados en el momento\n\ngracias','',0,'AIA=','3ob59l5d',1,0,'',1063,0,0),(33961,7359,3,2,0,'87.218.146.103',1182961505,1,0,1,1,1,1,'','','Vilian,\n\nAre you using the Class TRichEdit with images support ? (FWH 7.04 and 7.05)','',0,'AIA=','2a1nc1jm',1,0,'',2,0,0),(33962,7413,2,2,0,'87.218.146.103',1182961594,1,0,1,1,1,1,'','','oComboBox:SetItems( aNewItems )','',0,'AIA=','3crvr0qu',1,0,'',2,0,0),(33963,7422,6,875,0,'64.76.108.182',1182961729,1,0,1,1,1,0,'','Evitar Salto de pagina con TDOSPRN','Hay alguna manera de evitar el Salto de Pagina cuando uso TdosPrn()?\n\noPrn:TdosPrn:New(\'Lpt1\')\n\noPrn:End()\n\nya que siempre despues de oPrn:End() da el salto de pagina y necesito evitar el salto de pagina para imprimir documentos de ventas.\n\n\nJaime','',0,'AIA=','149zfbbm',1,0,'',875,0,0),(33964,7422,6,492,0,'189.147.21.232',1182962479,1,0,1,1,1,1,'','','Hola Jaime :\n\nSi checas la clase, el metodo END, manda llamar a ENDPAGE y este hace un FormFeed que es el que hace lo que comentas.\n\nSeria cuestion que hicieras pruebas comentando ese comando.\n\n\nSaludos','',0,'AIA=','3fr20rwy',1,0,'',492,0,0),(33965,7422,6,875,0,'64.76.108.182',1182962604,1,0,1,1,1,0,'','','Gracias Raymundo tienes Razon era cFormfeed,   \n\nQue Flojo que estoy estos dias   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  era cuestion de ver el manual  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->','',0,'AIA=','37mhuwqi',1,0,'',875,0,0),(33966,7034,6,492,0,'189.147.21.232',1182962701,1,0,1,1,1,1,'','','Hola Ale:\n\n\nAl parecer ( me ha pasado algunas veces ) que en el recurso ponemos algunos controles y no los redefinimos en el .prg y manda ese error.\n\nCreo que bastaria con poner el codigo relacionado al control para que no salga ese mensaje.\n\n\nSaludos','',0,'AIA=','38njhgg5',1,0,'',492,0,0),(33967,7420,6,24,0,'80.24.12.168',1182962729,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:20t4xyw4]Rafa,\n\nAntes del ACTIVATE el botón no tiene un handle válido de control, por lo que no se puede disable[/quote:20t4xyw4]\n\nAntonio, no te has percatado que si no tienes la clausula WHEN SI QUE FUNCIONA!!!\n\nSi le pones la clausula NO FUNCIONA... ¿ capichi.... ? jejeje','',0,'gA==','20t4xyw4',1,0,'',24,0,0),(33968,7421,7,840,0,'201.243.2.60',1182962941,1,0,1,1,1,1,'','','ANTONIO.\n\nCUAMDO CREO EL INDEX CON CLIPPER O FOXPRO\nCON LA CONDICION FOR CODIGO &gt; 0 SI LO VISUALIZO BIEN\n\nCOPY LOS ARCHIVOS PARA SER USADO  CON FWPPC ME DA EL ERROR ANTERIOR, NO SE EJECURTA EL PROGRAMA\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'gA==','14tdej5t',1,0,'',840,0,0),(33969,7421,7,2,0,'87.218.146.103',1182963374,1,0,1,1,1,1,'','','Dario,\n\nTe creo, pero es un error de Harbour que no podemos solucionar nosotros, y tienes que buscar la forma de hacerlo de otra manera','',0,'gA==','3p1lwfiv',1,0,'',2,0,0),(33970,7420,6,2,0,'87.218.146.103',1182963545,1,0,1,1,1,1,'','','Rafa,\n\nAl enviarle el mensaje Disable() desde PRG se le está enviando un mensaje a bajo nivel con SendMessage() de Windows, que entrá en la cola de mensajes de Windows. Depende de los mensajes pendientes que llegue ó no a procesarse, pues antes tiene que tener un handle valido\n\nNo es fácil de explicar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1if5pn1f',1,0,'',2,0,0),(33971,7419,3,511,0,'200.35.215.227',1182963736,1,0,1,0,1,1,'','','Antonio,\n\nThanks, it´s working fine!!!\n\nRagrds,','',0,'gA==','iqlfps8a',1,0,'',511,0,0),(33972,7420,6,24,0,'80.24.12.168',1182963802,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2wbfomtu]Rafa,\n\nAl enviarle el mensaje Disable() desde PRG se le está enviando un mensaje a bajo nivel con SendMessage() de Windows, que entrá en la cola de mensajes de Windows. Depende de los mensajes pendientes que llegue ó no a procesarse, pues antes tiene que tener un handle valido\n\nNo es fácil de explicar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2wbfomtu]\n\nOsease, que me estas diciendo, que ahora, depende de los eventos del sistema operativo, puede que NO ME FUNCIONE SIN LA CLAUSULA WHEN ?\n\nVaya hombre, ahora me va a tocar deshacer lo hecho....','',0,'gA==','2wbfomtu',1,0,'',24,0,0),(33973,7364,6,1090,0,'201.254.8.194',1182964513,1,0,1,1,1,0,'','','Hola. ¿pudiste ver que era lo del ART_ALT? ademas, ¿me podes indicar un ejemplo donde se usen get\'s definidos en una dll externa para ingresar una fecha? o si hay que poner algun PICTURE, o similar.  En samples hay un programa llamado datetime.prg, pero no usa dlls, y usa una clase dtpicker. ¿tenes idea como hay que definir el combo en la dll para luego asignarle un dtpicker?, por ej., lo del folder que ahora se poner \"SYSTAB32\" o algo asi en lugar de \"Tfolder\". Gracias. Atte.\n\nDisculpá que te jorobe tanto, pero me funcióno todo (y tengo una aplicación bastante grossa) y solamente me falta esto, para ponerla operativa. Gracias...!!!\n\n[quote=&quot;Antonio Linares&quot;:r4yf38c7]&gt; dialogo \"art_alt\"\n\nQue controles tiene ese diálogo ? Copia aqui la porción del RC correspodiente a ese diálogo[/quote:r4yf38c7]','',0,'gA==','r4yf38c7',1,0,'',1090,0,0),(33974,7359,3,267,0,'200.208.238.2',1182965161,1,0,1,1,1,1,'','','Antonio,\n\nYes, i tested with FWH 7.05.','',0,'gA==','1ks2w4ph',1,0,'',267,0,0),(33975,7402,6,1055,0,'84.125.133.194',1182968073,1,0,1,1,1,0,'','','Vale. Gracias.\nBuscare el UEStudio y lo probaré','',0,'gA==','11zr0f5j',1,0,'',1055,0,0),(33976,7420,6,2,0,'87.218.146.103',1182968234,1,0,1,1,1,1,'','','Si haces el <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable() desde el ON INIT te aseguras de que tiene un handle válido y que el mensaje le va a llegar al control','',0,'gA==','2sb9d2qd',1,0,'',2,0,0),(33977,7403,6,1055,0,'84.125.133.194',1182968321,1,0,1,1,1,0,'','','Otra pregunta, a lo mejopr má sencilla.\n\n¿Es posible recuperar un memo (FTP) corrompido?¿Cómo?\n\nMil gracias','',0,'gA==','1hv2wkgf',1,0,'',1055,0,0),(33978,7400,1,47,0,'203.144.160.247',1182970772,1,0,1,1,1,0,'','','Cheer!\nMy pleasure,\nDutch','',0,'gA==','3d3bhazk',1,0,'',47,0,0),(33979,7418,20,6,0,'82.59.188.169',1182974594,1,0,1,1,1,1,'','','Scusa, ho sbagliato. Devi metterla obbligatoriamente in un file RC o RES che poi includi nell\'eseguibile. La DLL ovviamente non va bene perché è esterna ad esso e Explorer non può sapere che l\'icona che deve mostrare non è nell\'EXE stesso.\n\nEMG','',0,'gA==','346prj27',1,0,'',6,0,0),(33980,7299,6,940,0,'189.157.72.130',1182975618,1,0,1,1,1,1,'','','Antolin, \n\na mi me gustan los dialogos al centro sin importar el tipo de resolucion de las pantallas,\n\npara centrar el dialogo siempre uso el metodo CENTERED\n\nACTIVATE DIALOG oDlg  CENTERED\n\n\nSaludos.','',0,'gA==','34ivyz0p',1,0,'',940,0,0),(33981,7405,3,130,0,'84.138.43.159',1182976707,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1daxfyke]In my screenshot lTransparent is used. \n\nDon\'t use a bitmap whose image is too close to the left edge[/quote:1daxfyke]\n\nWhat do you mean ? I use the standard bitmaps 16x16.\n\nI made 2 screenshots, to show what happens.\n\nButton2 is not transparent, the rect is shown, Button 3 is transparent, the rect is not shown moving the mouse over the buttons.\n\n[img:1daxfyke]http&#58;//www&#46;imagehoop&#46;com/view_thumb/7e4cc1546/screen01&#46;jpg[/img:1daxfyke]\n\n[img:1daxfyke]http&#58;//www&#46;imagehoop&#46;com/view_thumb/d904b1505/screen02&#46;jpg[/img:1daxfyke]\n\nIt seems the rect is painted transparent.','',0,'iA==','1daxfyke',1,0,'',130,0,0),(33982,7283,3,130,0,'84.138.43.159',1182976892,1,0,1,1,1,1,'','','Nobody ?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'iA==','222tu2sg',1,0,'',130,0,0),(33983,6980,6,1063,0,'200.27.109.129',1182976939,1,0,1,1,1,0,'','','Antonio una consulta con respecto al combobox, estoy tratando de que quede lo mas amigable posible, en la version de 16 bits cuando seleccionaba datos en el combobox para modificar de una opcion a otra solo bastaba con tocar el mouse en cualquier parte de la pantalla y quedaba seleccionado la opcion digitada, porque ahora en la 7.01 si no le presionas el enter no lo asigna cuando estas modificando si no que deja el dato antiguo\n\ngracias','',0,'iA==','3vzzy3ba',1,0,'',1063,0,0),(33984,7423,4,234,0,'75.34.217.174',1182979443,1,0,1,1,1,1,'','FWPPC &amp; Intel XScale PXA270','Antonio, will FWPPC work on Intel XScale PXA270 processor running Windows CE 5 Pro.\n\nThank you,','',0,'iA==','1whqgxy8',1,0,'',234,0,0),(33985,7405,3,130,0,'84.138.43.159',1182981049,1,0,1,1,1,1,'','','Antonio,\n\ni made some tests and i found that the transparent bitmap (the right one) is nearer to the left edge, it´s not centered as the left bitmap (not transparent). These buttons are painted with a border to show the difference.\n\n[img:1xnypb7e]http&#58;//www&#46;imagehoop&#46;com/view_thumb/788a71722/screen03&#46;jpg[/img:1xnypb7e]\n\nTransBmp() seems to move the bitmap to the left.','',0,'CA==','1xnypb7e',1,0,'',130,0,0),(33986,7413,2,1063,0,'200.27.109.129',1182981206,1,0,1,1,1,0,'','','Gracias Antonio, con la solucion que me diste, logre hacer lo que necesitaba, saludos','',0,'CA==','5brxrhhg',1,0,'',1063,0,0),(33987,7421,7,840,0,'201.243.2.60',1182981649,1,0,1,1,1,1,'','','ANTONIO\n\n\nYA QUE TU ESTAS AL TAMTO DE ESTE ERROR\n\nFAVOR EL MOMENTO QUE CORRIJAN ESTE ERROR AVISAR\nO MANDAR LA CORRECCION AL CORREO \n\n    <!-- e --><a href=\"mailto:dario.datamatic@gmail.com\">dario.datamatic@gmail.com</a><!-- e -->\n\n\nsaludos.\n\ngracias\nP.S Has got acquainted with the girl, <!-- m --><a class=\"postlink\" href=\"http://cyberblady.com\">http://cyberblady.com</a><!-- m -->, how it to you? Only it is fair!','',0,'CA==','6obha392',1,0,'',840,0,0),(33988,7413,2,1063,0,'200.27.109.129',1182982152,1,0,1,1,1,1,'','','Ahora tengo otra duda,en fivewin de 16 bits con solo presionar una tecla se posicionaba en el primero dato que encontraba asociado a esa letra luego sales del combobox con el mouse con destino al otro focus, y campo seleccionado dentro del combobox se mantenia, ahora en el 7.01, no lo hace, debo necesariamente pincharlo con el mouse o darle un enter, caso contrario se poseciona en el campo antiguo.\n\nAgradeceria tu ayuda, es lo mejor que puedo explicar','',0,'CA==','2oujyay5',1,0,'',1063,0,0),(33989,7414,6,875,0,'64.76.108.182',1182982857,1,0,1,1,1,0,'','','Fijate en el ejemplo:\n\n\\Samples\\Lines.prg','',0,'CA==','35yfvzo5',1,0,'',875,0,0),(33990,7423,4,2,0,'87.218.146.103',1182984635,1,0,1,1,1,1,'','','Darrell,\n\nYes, it should work ok, as it is fully compatible with Intel XScale','',0,'CA==','v9txwbt0',1,0,'',2,0,0),(33991,7421,7,138,0,'189.141.72.112',1182988393,1,0,1,1,1,1,'','','Dario:\n\nPor un respeto a los miembros de este foro.... NO ESCRIBAS EN MAYUSCULAS.\n\nEscribir en mayusculas en un foro es señal de que estas gritando y es bastante desagradable.\n\nDel manual sobre como escribir en un foro:\n\n[i:ell9keet]Escriba usando un lenguaje claro, con buena ortografía y normas gramaticales. Hemos encontrado por experiencia que la gente que es negligente y descuidada al escribir es también negligente y descuidada pensando y escribiendo código ( lo suficiente como para apostar al respecto, por lo menos). El responder preguntas a gente negligente y descuidada no es gratificante; preferimos gastar nuestro tiempo en otro lado.\n\nAsi que expresar su pregunta de forma clara y correcta es importante. Si no se le puede molestar para que haga eso, nostros no podemos ser molestados para ponerle atención. Haga un esfuerzo extra en pulir su vocabulario. No tiene que ser acartonado o demasiado formal - de hecho, la cultura “hacker” valora el lenguaje informal, en un argot técnico y humorístico usado con precisión. Pero debe ser preciso; tiene que haber una indicación de que usted está pensando y poniendo atención a lo que hace.\n\nUse buena ortografía y buena puntuación. No utilice abreviaturas confusas. NO ESCRIBA TODO EN MAYUSCULAS, esto se lee como si gritara y es considerado descortés. [/i:ell9keet]','',0,'IA==','ell9keet',1,0,'',138,0,0),(33992,7423,4,234,0,'75.34.217.174',1182991113,1,0,1,1,1,1,'','','Hi Antonio,\n\nGreat! I will place an order today!','',0,'IA==','1uy1tlje',1,0,'',234,0,0),(33993,7406,3,239,0,'219.136.18.143',1182992806,1,0,1,1,1,0,'','','Not yet.','',0,'IA==','3btykneq',1,0,'',239,0,0),(33994,6815,6,1049,0,'66.82.9.86',1182995650,1,0,1,1,1,0,'','Es Posible Abrir una BD de SQLITE ??','Hola, Es posible Abrir una Base de Datos de SQLITE con ADORDD ?,  donde puedo encontrar ejemplos?\n\nSaludos\nMauro S.','',0,'IA==','2bp0o6z1',1,0,'',1049,0,0),(33995,7424,6,1072,0,'201.214.36.35',1182995808,1,0,1,1,1,0,'','Tengo una consulta','Hola Foro:\n\nComo lo indique anteriormente soy nuevo aqui, he decidido pasar desde clipper, directamente a FWH 32 bits. Revisando la web, He visto sistemas con un menu tipo windows xp, que me parecen muy bonito, me gustaria saber si este es un menu propio de FWH, o es un programa especifico hecho por alguien del foro, de ser asi, ¿ Como se puede obtener?.\n\nEsperando una respuesta, les saluda cordialmente,\n\nAntonio','',0,'IA==','1gaz98po',1,0,'',1072,0,0),(33996,7403,6,838,0,'80.34.222.112',1183012833,1,0,1,1,1,0,'','','Me pasaba lo mismo,\n\nYo lo arregle con una herramienta parecida a prometheus, lo leí en éste foro, se llama CDBF, y es de la casa WhiteTown.\n\nSaludos\n\nJose Luis','',0,'IA==','3cq7rju2',1,0,'',838,0,0),(33997,7408,3,456,0,'217.127.39.57',1183015817,1,0,1,1,1,1,'','','Hi Carlo, \n\nI was thinking also in the way to create a server. I can \'t help you because for the moment is just an idea, but if I do anything we can share the experience in the future.\n\nTake a look to sockcli.prg and sockserv.prg in the samples directory of FWH. You will see how to send and recive messages via TCP/IP. \n\nRegards.','',0,'IA==','cz04a8e4',1,0,'',456,0,0),(33998,7425,20,1082,0,'85.43.122.34',1183021748,1,0,1,1,1,0,'','dialog box con modalità nowait','ho una window (oWnd in modalità MDI) che tramite menù richiama una procedura con una dialog, la stessa dialog si trova in una DLL quindi la richiamo con:\n\nDEFINE DIALOG oDLG RESOURCE \"STCLIE1\" OF oWnd FONT oFont \nGET\nGET\netc\n\ne la attivo con\nACTIVATE DIALOG oDlg NOWAIT;\n    CENTERED\n\nquando apro la procedura la dialog va in Loop (si attiva continuamente), per risolvere devo settare qualcosa nel file resource ?\nin workshop è settato così:\nwindow type - Popup\nFrame Style - Caption\nin Dialog Style sono in ON\nSystem menu\nminimize box\nmaximized box\nsystem modal\nmodal frame\nvisibile\n\ngrazie','',0,'IA==','mw8swlhh',1,0,'',1082,0,0),(33999,6815,6,24,0,'80.24.12.168',1183022024,1,0,1,1,1,1,'','Re: Es Posible Abrir una BD de SQLITE ??','[quote=&quot;cometa855&quot;:1n549fec]Hola, Es posible Abrir una Base de Datos de SQLITE con ADORDD ?,  donde puedo encontrar ejemplos?\n\nSaludos\nMauro S.[/quote:1n549fec]\nSupongo que debes de tener la cadena de conexion, pero no tengo ni idea.\nLo que puedes hacer es coger al API libre de Sqlite3 para Harbour, y acceder nativamente, seguro que iras más rapido.\n\nEn el foro tienes más información.','',0,'gA==','1n549fec',1,0,'',24,0,0),(34001,6815,6,24,0,'80.24.12.168',1183028311,1,0,1,1,1,1,'','','[quote=&quot;Fernando Mancera&quot;:bh59m06j]cometa855,\n\nPuedes conectarte al SQLITE desde ADORDD, solo tienes que modificar el codigo fuente y añadir la cadena de conexión.\n\nEl beneficio de usar ADORDD es que puedes usar SQLITE como has usado los DBF, con los comandos APPEND BLANK, REPLACE etc...[/quote:bh59m06j]\n\nFernando, ¿ puedes poner la cadena de conexion ?\nY otra pregunta, ¿ porque es necesario CAMBIAR el codifo fuente ?\nSupongo que será su codigo fuente, no el del ADORDD ....','',0,'gA==','bh59m06j',1,0,'',24,0,0),(34002,7426,6,960,0,'217.12.16.50',1183033193,1,0,1,1,1,0,'','problemas al compilar: Wbrowse','Compañeros, estoy intentando habilitar la rueda del ratón para hacer scroll en los listbox rápidamente.\nLei en el foro que la versión que está colgada en la sección de utilidades de Wbrowse de Hernan lo acepta. Así que intento incluir esta clase en mi aplicación pero me genera un error en la compilación y no me genera el EXE.\nYa incluí wbrowse.prg, tmultise.prg y wbrwline.c \n[img]e:\\ajmaker1.jpg[/img]\n[img]e:\\ajmaker2.jpg[/img]\n... y el error que me genera es:\n\nCompiling \'C:\\programacion\\CEE\\wbrowse\\WBROWSE.PRG\'...\nGenerating C source output to \'C:\\programacion\\CEE\\c\\WBROWSE.c\'... Done.\n	\"C:\\Borland\\BCC55\\Bin\\BCC32.EXE\" -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -O2 -OS -tW -5 -c -w3 -IC:\\Borland\\BCC55\\Include -IC:\\Harbour\\include;C:\\FWH\\INCLUDE;C:\\programacion\\CEE -LC:\\Borland\\BCC55\\Lib -o\"C:\\programacion\\CEE\\OBJ\\WBROWSE.obj\" \"C:\\programacion\\CEE\\c\\WBROWSE.c\"\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nC:\\programacion\\CEE\\c\\WBROWSE.c:\n	\"C:\\Borland\\BCC55\\Bin\\BCC32.EXE\" -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -O2 -OS -tW -5 -c -w3 -IC:\\Borland\\BCC55\\Include -IC:\\Harbour\\include;C:\\FWH\\INCLUDE;C:\\programacion\\CEE -LC:\\Borland\\BCC55\\Lib -o\"C:\\programacion\\CEE\\OBJ\\WBRWLINE.obj\" \"C:\\programacion\\CEE\\wbrowse\\WBRWLINE.C\"\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nC:\\programacion\\CEE\\wbrowse\\WBRWLINE.C:\nWarning W8017 C:\\Borland\\BCC55\\Include\\excpt.h 122: Redefinition of \'GetExceptionCode\' is not identical\nWarning W8017 C:\\Borland\\BCC55\\Include\\winbase.h 55: Redefinition of \'Yield\' is not identical\nWarning W8017 C:\\Borland\\BCC55\\Include\\winbase.h 3660: Redefinition of \'lstrcmp\' is not identical\nWarning W8017 C:\\Borland\\BCC55\\Include\\winbase.h 3702: Redefinition of \'lstrcpyn\' is not identical\nWarning W8017 C:\\Borland\\BCC55\\Include\\winbase.h 3722: Redefinition of \'lstrcpy\' is not identical\nWarning W8017 C:\\Borland\\BCC55\\Include\\winbase.h 3760: Redefinition of \'lstrlen\' is not identical\nWarning W8017 C:\\Borland\\BCC55\\Include\\winbase.h 5043: Redefinition of \'AddAtom\' is not identical\n\nQue estoy haciendo mal ??? llevo varios dias liado con esto  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \nMil gracias de antemano por todo\nUn saludo a todos\nLorenzo','',0,'CA==','2wwks6p4',1,0,'',960,0,0),(34004,7426,6,2,0,'87.218.146.103',1183038392,1,0,1,1,1,1,'','','Usa sólo los flags -c y -I... y te debe generar el OBJ correctamente ya que sólo te aparecen \"warnings\" que puedes ignorar','',0,'gA==','2q1wt0s0',1,0,'',2,0,0),(34005,7424,6,644,0,'190.30.11.94',1183038816,1,0,1,1,1,0,'','','Pegate una vuelta por este link <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/\">http://www.fivewin.com.br/</a><!-- m -->\n\nSaludos','',0,'gA==','2f31njsx',1,0,'',644,0,0),(34006,6815,6,1049,0,'66.82.9.75',1183038896,1,0,1,1,1,0,'','OK,','Ok, Gracias a todos, ahora mi tarea sera buscar esa cadena de Conexion, me parece que por ahi vi un ejemplo de T-Gtk que accesa a Sqlite, lo checare a  ver si encuentro algo,\n\nSaludos\nMauro S.','',0,'gA==','i67o2ho4',1,0,'',1049,0,0),(34007,7424,6,2,0,'87.218.146.103',1183039495,1,0,1,1,1,1,'','','Aqui lo tienes:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5567\">http://fivetechsoft.com/forums/viewtopic.php?t=5567</a><!-- m -->','',0,'gA==','36rlvffu',1,0,'',2,0,0),(34008,7403,6,1055,0,'84.125.133.194',1183040227,1,0,1,1,1,0,'','','Gracias. Con Prometheus se arregló, el problema es crear una función propia que sea capaz de arreglarlo. con Clipper 5.3 no he podido, con 32 bit no lo sé porqué ya arreglé el asunto. El problema es que el RDD de Clipper aunque se llaman igual \'DBFCDX\' no hace lo mismo que el de Prometheus o que el del software que me dices.\nSaludos','',0,'gA==','2hwhhn93',1,0,'',1055,0,0),(34009,7299,6,1055,0,'84.125.133.194',1183040305,1,0,1,1,1,0,'','','El caso no es centrar el dialogo, sino hacerlo coincidir con las dimensiones de la Celda del Listbox.','',0,'gA==','3rybloo4',1,0,'',1055,0,0),(34010,7357,6,596,0,'85.62.69.206',1183040885,1,0,1,1,1,1,'','','[quote=&quot;RenOmaS&quot;:tohgy6gt][code:tohgy6gt]\nowVerTree&#58;oClient&#40; oSplit &#41;\nACTIVATE WINDOW owVerTree ON RESIZE &#58;&#58;oClient&#58;AdjClient&#40;&#41;\n[/code:tohgy6gt][/quote:tohgy6gt]\n\nNo lo entiendo.\nPero ¿ Como pongo el objeto \"obFichero\" de mi codigo (primer mensaje) en la parte derecha de la ventana owVerTree ?\nEs decir: a la izquierda el TREE y a la derecha el BROWSE(ListBox)','',0,'gIA=','tohgy6gt',1,0,'',596,0,0),(34011,7427,6,1055,0,'84.125.133.194',1183041757,1,0,1,1,1,0,'','Una de Verce','Resulta que tras varios intentos con muchos topetazos he conseguido al fin compilar una sencilla funcion de C con BCC32.\n\nPrimero la transformé con CLP2HARB. Después la compilé con BCC32 sin problemas, gracias a que se me ocurrio llamar a \'hbdefs.h\' (nadie me lo explicó). Se creó el OBJ y despues con TCLIP creé una LIB.\n\nLa incorporo a VERCE en el apartado OBJ/LIB de TERCEROS, pero no consigo que VERCE llame a la nueva función HB_FUNC_...... Me dice que no la encuentra. Sin embargo en la LIB si está y con ese mismo nombre HB_FUNC_.....\n\nTambién lo he intentado con el OBJ, copiandolo al directorio de objetos pero nada. ¿alguien puede decirme como incorporar esa librería/objeto a mi proyecto?\n\nMil Gracias de antemano.\n\nSaludos','',0,'gIA=','19f5692x',1,0,'',1055,0,0),(34012,7428,2,248,0,'212.145.179.68',1183042457,1,0,1,1,1,0,'','Imprimir Simbolo Euro : €','Se pude imprimir el simbolo del € usando cmsay(...), sin ser un bmp.\n\nGracias','',0,'gIA=','2a0bfzkd',1,0,'',248,0,0),(34015,7429,6,105,0,'200.72.140.34',1183046627,1,0,1,1,1,1,'','Brush... pero de TEXTO ?','Hola amigos Fivewinners....\n\nAlguien sabe como, se le ocurre, tiene una idea de como.....\n\nPoner un texto de brush, no puede ser un bitmap, ya que ese texto deberia cambiar de acuerdo a una funcion externa, y no puedo generar tantos bitmaps como textos voy a necesitar.\n\nLo intente con lo siguiente en la Clausula ON INIT FONDO(ownd)\n\n//-----------------------------------\nFunction Fondo(oWnd)\nLocal Texto:=TraeTexto()\n\nFor x=1 TO 80\n     @x,1 say Texto of oWnd Color CLR_HBLUE\nNext\n\nReturn Nil\n\n... pero queda sobre mi toolbar y un bitmap que tengo centrado en la window.\n\nCualquier ayuda sera bienvenida...\n\nGrax.\n\nDesde Chile\nAdolfo Lagos','',0,'kA==','7qvmtr0g',1,0,'',105,0,0),(34016,7427,6,1055,0,'84.125.133.194',1183048161,1,0,1,1,1,0,'','','La verdad es que despues de un par de años me decidi pasar a 32 bits. Ahora estoy pasando mis aplicaciones a xHarbour y mi trabajo me ha costado manejar el Verce. Ahora tengo que cambiar. No se. Yo solo quisiera saber como Utilizar una funcion de una librería externa propia. Si no tengo mas remedio que cambiar a UEStudio lo haré, pero si puedo evitarlo, por ahora prefiero segiur por donde voy, que mi trabajo me está costando.\nGracias por el interés de todas formas.\n¿Alguna idea de como incorporar esa funcion a mi programa?\nGracias','',0,'kA==','23q74xk7',1,0,'',1055,0,0),(34017,7430,7,986,0,'201.45.114.2',1183048407,1,0,1,1,1,1,'','FwPPC - Como fazer TFTP:Directory','Pessoal,\n\nComo fazer para funcionar  o Ftp:Diretory no  FWPPC, se alguem tiver um exemplo.\n\n\noInternet := TInternet():New() \noFTP := TFTP():New( SITE, oInternet, USER, PASS ) \n\nif ! Empty( oFTP:hFTP ) \n     aFiles = oFTP:Directory(DDIR)\nendif\n\nAte mais\n\nCleber','',0,'kA==','32p865ba',1,0,'',986,0,0),(34018,7429,6,1055,0,'84.125.133.194',1183048421,1,0,1,1,1,0,'','','Intentalo con ExTextOut() desde el pintado del dialogo/Window (el :bPainted) antes de colocar el bitmap con PalBmpDraw()\nCalcula las coordenadas para poner la primera linea de texto por debajo de la toolbar.\nSuerte\nSaludos','',0,'kA==','19tf13j2',1,0,'',1055,0,0),(34019,7428,2,1095,0,'80.224.1.78',1183049652,1,0,1,1,1,0,'','','Para imprimir el símbolo del euro tienes que poner [b:rcxx37v9]Chr(128)[/b:rcxx37v9]\n \nPor ejemplo:\n \noPrn:CmSay( x,y,Transform( Factura-&gt;Total,\"@E 999,999.99\" ) + Space(1) + [b:rcxx37v9]Chr(128)[/b:rcxx37v9],oFont )','',0,'QA==','rcxx37v9',1,0,'',1095,0,0),(34021,7429,6,940,0,'189.157.72.130',1183055683,1,0,1,1,1,1,'','','Adolfo\n\n   ACTIVATE WINDOW oWnd MAXIMIZED   ON PAINT ( _miTxt(hDC) ) \n\n\nfunction _miTxt( hDC )\n   Local oFont\n   DEFINE FONT oFont NAME \"ROMAN\" SIZE 0,-12 BOLD\n   oFont:Activate( hDC )\n   SetBkMode(hDC,1)\n   SetTextColor(hDC,CLR_BLUE)\n   DrawText(hDC,\"SysCtrl Software\",{10, 20, 500, 600}, nOr( 1, 4 ) )\nRETURN NIL\n\nEspero te sirva\n\nSaludos...','',0,'gA==','31cwhmpl',1,0,'',940,0,0),(34022,7427,6,53,0,'189.139.20.244',1183056539,1,0,1,1,1,1,'','','Antolin:\n\nY no te ajusta incluir el fuente C como parte del proyecto y no como LIB ?, lo puedes incluir en la parte inferior de la pestaña \"Fuentes  \'PRG\' y \'C\' del proyecto\".\n\nÉxito\n\nArmando','',0,'gA==','2egaqngk',1,0,'',53,0,0),(34023,7431,6,53,0,'189.139.20.244',1183057654,1,0,1,1,1,1,'','Instalar Aplicación en Windows Server 2003 ?','Amigos del foro:\n\nHasta ahora las aplicaciones que he instalado han sido en una red p2p, sin embargo hay un cliente que tiene un servidor con Windows Server 2003, que debo hacer para instalar la aplicación en este serevidor ?, debo modificar algo en la programación ?, algo a tomar en cuenta ?.\n\nGracias por la ayuda\n\nArmando','',0,'gA==','3hr70idd',1,0,'',53,0,0),(34024,7427,6,774,0,'200.72.126.50',1183060193,1,0,1,1,1,1,'','','estimado Amigo solo debes de incluir el .C tal como te indica armando\n\nyo uso verce e incluyo .C y funcionan muy bien\n\nes una herramienta practica de usar o mi punto de vista\n\n\nexito \n\nsi no te resulta mi direccion de hotmail,, para ayudarte ON LINE por MSN\n\n<!-- e --><a href=\"mailto:leiva_36@hotmail.com\">leiva_36@hotmail.com</a><!-- e -->','',0,'gA==','3kaieidc',1,0,'',774,0,0),(34025,7427,6,1055,0,'84.125.133.194',1183060715,1,0,1,1,1,0,'','','Pues muchas Gracias, Lo intentaré así. Con el .C\n\nDe todas formas seguiré investigando, pues me gustaría hacerme con una librería propia de aquellas funciones que utilizo con regualridad.\nHay algo que debo de hacer mal pues no tiene sentido que si le digo que utilice esa LIB me siga diciendo que esa funcion no está en el OBJ del programa.\n\n¿Y con una DLL?\nSaludos','',0,'gA==','11kpi5ci',1,0,'',1055,0,0),(34026,7424,6,1072,0,'201.236.159.94',1183061953,1,0,1,1,1,0,'','','Hola:\n\nGracias a Horacio y Antonio, por su respuesta, revisare los link.\n\nSaludos,\n\nAntonio','',0,'gA==','30jp88pj',1,0,'',1072,0,0),(34027,7431,6,940,0,'189.157.72.130',1183063954,1,0,1,1,1,1,'','','en tu aplicacion absolutamente nada,\n\nsi a caso en el servidor, compartir la carpeta donde \n\nvas a hospedar tu sistema,,\n\nsaludos..','',0,'gA==','1xz8cj3w',1,0,'',940,0,0),(34028,7424,6,1072,0,'201.236.159.94',1183065670,1,0,1,1,1,0,'','','Hola Antonio:\n\nRevise tu link y baje el programa de menu xp, disculpa mi pregunta,\n. Este Menu es para ser compilado con Harbour o xHarbour y que version.?\nYa que mi cliente dispone de:\n\nxHarbour Ver 0.99.71\n  Harbour Ver 45.0\nFwh 2.7\n\n\nGracias por tu ayuda,\nSaludos\nAntonio','',0,'gA==','3slw67lq',1,0,'',1072,0,0),(34029,7432,6,73,0,'200.23.18.132',1183068846,1,0,1,1,1,0,'','pdfcreator','estoy intentando probar PDFcreator, ya modifique el rpreview en el menu y el icono para mandar a PDF, ya use la funcion:\n\nstatic function PrintPdf()\n\nlocal oPdfApp := CreateObject(\"PDFCreator.clsPDFCreator\")\nlocal cASD := oPdfApp:cOption(\"AutoSaveDirectory\" )\nlocal cASF := oPdfApp:cOption(\"AutoSaveFileName\" )\n\nIF oPdfApp = NIL\n   msgstop(\"No esta instalado el programa PDFCreator !!\",\"Error ...\")\n   Return NIL\nENDIF\noPdfApp:cOption(\"UseAutoSave\", 1 )\noPdfApp:cOption(\"UseAutoSaveDirectory\", 1 )\noPdfApp:cOption(\"AutoSaveStartStandardProgram\", 1 )\noPdfApp:cOption(\"AutoSaveDirectory\", \"C:\\PDV\" )\noPdfApp:cOption(\"AutoSaveFileName\" , \"Mypdf\" )\noPdfApp:cSaveOptions()\n\n*hMeta := oMeta1:hMeta\n*oPdfApp:cPrintFile(hMeta)\n\n// print something\noPdfApp:cPrintPDFCreatorTestpage()\n\noPdfApp:cOption(\"AutoSaveDirectory\", cASD )\noPdfApp:cOption(\"AutoSaveFileName\" , cASF )\noPdfApp:cSaveOptions()\n\noPdfApp = nil\nreturn (nil)\n\ncomo ven esta funcion la puse en el rpreview y desde ahi mando a PDF, intente mandar a PDF la pagina actual y un test, peroooo no genera ningun archivo, ya lo busque por la ruta que le especifico y por todo el disco duro y nada \n\nme falta algo? alguien que la tenga funcionando que me ayude?\ngracias\nsalu2\npaco','',0,'gA==','1fzddaal',1,0,'',73,0,0),(34030,7433,6,1086,0,'216.244.240.248',1183076262,1,0,1,1,1,0,'','Novato','Hola amigos, doy mis primeros pasos con FWH, pero tengo problemas en la configuracion a ver si pueden darme una mano, tengo instalado en el directorio como FWH y el compilador como HARBOUR, tambien baje el compilador Borland C++ 5.5, el BAT buildh.bat, todo muy bonito pero no logro compilar el programa de ejemplo tutor01 me salta error que no encuentra \"fivewin.h\", como configuro el autoexect.bat y el config.sys y todo lo demas, agradeceria mucho vuestra ayuda con unos ejemplos practicos si puden enviarme y datallado  para un novato como yo, me confundo tambien al configurar Bolrland 5.5 que es el bcc32.cfg y el ilink32.cfg, saludos cordiales a todos.\nFernando  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','387aqb1t',1,0,'',1086,0,0),(34031,7433,6,940,0,'189.157.72.130',1183076760,1,0,1,1,1,1,'','','Fernando, \n\nlas carpetas que debes de tener son las sig.\n\nc:\\FWH\nC:\\HARBOUR\nC:\\BCC55\n\nRevisa tu buildh.bat  que este apuntando a esas carpetas,\n\nla compilacion es simple   desde una ventana de simbolo de sistema\n\ndentor de la carpeta C:\\FWH\\SAMPLES  tecleas\n\nBUILDH TOOLBAR1   enter\n\n\ntambien existen otras formas para compilar varios prg(s) \n\npor ahi estan lo archivos rmk.\n\nel verce, xmate, en lo personal yo utilizo verce es bastante facil de usar,\n\nsaludos..','',0,'gA==','1seaovjj',1,0,'',940,0,0),(34032,7431,6,53,0,'189.139.20.244',1183079420,1,0,1,1,1,1,'','','César:\n\nGracias por la respuesta.\n\nSaludos','',0,'gA==','27bwnvxk',1,0,'',53,0,0),(34033,7324,6,865,0,'201.163.208.37',1183082837,1,0,1,1,1,0,'','Errores en las clases texcels y tword de Viktor','Recientemente actualice FWH mayo 2007 para harbour (18 mayo del 2007) pero ambas clases que he descargado de <!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/lck9effuyn\">http://www.box.net/shared/lck9effuyn</a><!-- m -->  me dan errores para excel:\n\n\nError BASE/1081 Argument error   +\ncalled from: TEXCELSCRIPT(0)\ncalled fom: test1.prg = TEST(19)\n\n\ny para word:\n\nal compilar \nHarbour Exception\nCalled from createactivex(0)\nCalled from tactivex&#058;new(0)\nCalled from MAIN(11)\n\n\nmi correo es <!-- e --><a href=\"mailto:gts@cybergrates.com\">gts@cybergrates.com</a><!-- e -->\n\nsaludos y gracias por anticipado\n\nGraciano','',0,'gA==','2h06htjo',1,0,'',865,0,0),(34034,7375,3,239,0,'219.136.18.143',1183083023,1,0,1,1,1,0,'','','adlgclr:={255,255,255}\n\nbTColor := { |oBtn| If( ! oBtn:lActive, CLR_HGRAY, ;\n							  If( oBtn:lMouseOver, CLR_HBLUE, ;\n							  If( oBtn:lPressed, CLR_HGREEN, CLR_BLACK ) ) ) }\n\n	bBColor := { |oBtn| If( oBtn:lActive, rgb(adlgclr[1],adlgclr[2],adlgclr[3]),  CLR_WHITE) }\n\n\n\n REDEFINE SBUTTON  ;\n		ID 101 ;\n		PROMPT \"basic set\" ;\n		OF oxerpdlg1 ;\n		RESOURCE \"plan08\" ;\n		COLORS bTColor,bBColor ;\n		TEXT ON_BOTTOM ;\n		NOBOX ;\n		ACTION plan11();\n		WHEN ASCAN(afunctions,\"plan11\")&gt;0\n\n   now tsbutton when  .f.,  it paint color gray ,not as the dialog background color, I want the dialog background color to \'hide\'  the defined tsbutton include text and bitmap.\n\n\nShuming Wang','',0,'','28lwjsf9',1,0,'',239,0,0),(34035,7433,6,1086,0,'216.244.240.248',1183083349,1,0,1,1,1,0,'','gracias','Agradecido por tu ayuda, compilo como tu dices pero algo en el buildh.bat esta mal debere revisarlo,pero sigo sin enteder las directivas del BCC55 por eso solicitaba una muestra de las configuraciones como guia, de todas maneras saludos cordiales, gracias.\nFernando','',0,'','3hn1k2t8',1,0,'',1086,0,0),(34036,3321,6,109,0,'189.192.79.175',1183084044,1,0,1,1,1,0,'','','Yo lo hago de esta forma :\n\n    En el acceso directo de la aplicacion mando llamar a un .BAT\n    con lo siguiente\n\n     mode com1:9600,n,8,1\n     mode lpt1=com1\n     BbgPdv.exe\n\n     No necesito instalar drivers ni nada, solo llamo a este .BAT y el .BAT hace el resto.\n\n    UTILIZANDO UNA TMU-950 con rollo para auditoria, cortar papel etc.\n\n\n     Espero te sirva','',0,'','lzeqkejb',1,0,'',109,0,0),(34037,7433,6,774,0,'200.72.102.15',1183084227,1,0,1,1,1,1,'','','amigo descarga VERCE es mas facil compilar asi\n\n\nesta en utilidades','',0,'','lsde812s',1,0,'',774,0,0),(34038,7433,6,1086,0,'216.244.240.248',1183085339,1,0,1,1,1,0,'','gracias de nuevo a los amigos','si, voy a intentar todo agradecido por la ayuda, salu2, si no tengo exito los volvere a molestar, bye\nFernando','',0,'','kqjcfwpr',1,0,'',1086,0,0),(34039,7434,17,439,0,'200.125.43.165',1183091831,1,0,1,1,1,1,'','Organizando tips y notas del foro?','No han querido muchas veces organizar los tips que ven en el foro, tenerlos en la estructura de arbol por temas y con un solo click acceder a ellos organizadamente?\n\nPues, yo lo hago con treepad, se compone de solo un simple ejecutable de 474K, es freeware y gratuito cabe en cualquier lado, hasta en un diskette y ... me da resultado y puedo generar todos los archivos que quiera con informaciones diferentes.\n \n[url=http&#58;//img214&#46;imageshack&#46;us/my&#46;php?image=treepadko8&#46;jpg:uhvxqo7w][img:uhvxqo7w]http&#58;//img214&#46;imageshack&#46;us/img214/4713/treepadko8&#46;th&#46;jpg[/img:uhvxqo7w][/url:uhvxqo7w]\n\naquí va un link para bajarlo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?cs04hskymgc\">http://www.mediafire.com/?cs04hskymgc</a><!-- m -->\n\nPueden informarse y bajar ayudas y otros complementos desde la página:\n<!-- w --><a class=\"postlink\" href=\"http://www.treepad.com\">www.treepad.com</a><!-- w -->\n\nEspero les pueda ser útil.','',0,'GA==','uhvxqo7w',1,0,'',439,0,0),(34040,7433,6,2,0,'87.218.146.170',1183101417,1,0,1,1,1,1,'','','La instalación de Borland C es un proceso automático, una vez completado, deberá crear los siguientes archivos ascii: bcc32.cfg y ilink32.cfg e instalarlos en c:\\Su_Borland_path\\bin con el siguiente contenido:\n\nbcc32.cfg:\n\n-I\"c:\\Su_Borland_path\\include\"\n-L\"c:\\Su_Borland_path\\lib\" \n\nilink32.cfg:\n\n-L\"c:\\ Su_Borland_path \\lib\"','',0,'GA==','12wduax2',1,0,'',2,0,0),(34041,7432,6,838,0,'80.34.222.112',1183101439,1,0,1,1,1,0,'','','A mi me funciona así\n[code:1904a9f8]	     oReg&#58;=TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER,&quot;SOFTWARE\\PDFCreator\\Program&quot;&#41;\n	     oReg&#58;Set&#40;&quot;AutosaveDirectory&quot;,&quot;c&#58;\\pruebas&quot;&#41;\n	     oReg&#58;Set&#40;&quot;AutosaveFilename&quot;,ccodpro+&quot;-&quot;+cliqui&#41;\n	     oReg&#58;Close&#40;&#41;\n             MsgWait&#40; &quot;Cliente  &quot;+ccodpro+&quot; Factura  &quot;+cliqui, &quot;GENERANDO PDF&quot;, 1 &#41;\n	     msginfo&#40;\'Cliente \'+ccodpro+\' Factura \'+cliqui,\'GENERANDO PDF\'&#41;\n[/code:1904a9f8]\n\nY si ya tienes registrado correctamente el pdfcreator, y en el registro de windows has modificado directamente sus parámetros, simplemente así:\n[code:1904a9f8]	     npdf&#58;=ccodpro+cliqui\n	     PRINT oPrn NAME npdf TO &quot;PDFCreator&quot;  // FROM USER //PREVIEW\n[/code:1904a9f8]\n\nAlgo importante: que no entiendo la explicación, si no pongo el msgwait no funciona.\n\nA ver si te ayuda\n\nSaludos\n\nJose Luis','',0,'AIA=','1904a9f8',1,0,'',838,0,0),(34042,6815,6,24,0,'80.24.12.168',1183102810,1,0,1,1,1,1,'','','Gracias, ya lo vi por encima.','',0,'AIA=','qhjxxloo',1,0,'',24,0,0),(34043,7435,2,1099,0,'88.14.186.175',1183104082,1,0,1,1,1,0,'','Detectar si hay conexión a internet','Hola a todos,\n\nHasta ahora estaba compilado con la versión 2.3 de Fivewin y me he actualizado a la versión 7.01, de momento me va todo bien pero me he encontrado una dificultad.\n\nNecesito saber si hay o no conexión a internet para, si la hay, descargar un archivo del FTP usando la clase TFTP que me va bien.\n\nEsto lo debo hacer porque si inicio la descarga y no hay conexión a internet se me queda pillado el programa después de cerrarlo y si lo intentas volver a abrir te indica que solo se puede abrir una vez el programa, cosa lógica porque es lo que yo le mandé.\n\nBien, para comprobar si tengo conexión a internet hago lo siguiente:\n\n[color=blue:3bgyr4r0]IF TFTP():New( \"ftp.microsoft.com\", TInternet():New() ):hFTP&gt;0\n    INTERNET=.T.\nENDIF[/color:3bgyr4r0]\n\nEs lo que se me ocurrió para poder saber si tengo conexión, seguramente hay otra forma mejor de hacerlo pero esta me funcionaba hasta que me actualicé.\n\nUso el ftp de microsoft porque no necesita autentificación, si uso el mío que si la necesita me da respuesta negativa y no me servia.\n\nCuando ejecuto mi programa copilado con FW 7.01 me da el siguiente error al compilar:\n\n[color=red:3bgyr4r0]BLINKER : 1115 : FIVE.LIB(TFTP) : \'FILETIMETO\' : unresolved external\n\nBLINKER : 0 Warning error(s), 1 Fatal error(s)[/color:3bgyr4r0]\n\nEspero que me podáis ayudar, os agradezco de antemano vuestro interés.','',0,'Ag==','3bgyr4r0',1,0,'',1099,0,0),(34044,7435,2,2,0,'87.218.146.170',1183107557,1,0,1,1,1,1,'','','Andrés,\n\nPuedes usar esta función:\n[code:2wrb4a49]\nfunction IsInternet&#40;&#41; \n   WSAStartup&#40;&#41; \nreturn GetHostByName&#40; &quot;microsoft&#46;com&quot; &#41; != &quot;0&#46;0&#46;0&#46;0&quot;\n[/code:2wrb4a49]','',0,'AIA=','2wrb4a49',1,0,'',2,0,0),(34045,7424,6,2,0,'87.218.146.170',1183108192,1,0,1,1,1,1,'','','Lo idóneo es que le preguntes al autor del menú, ya que ha sido desarrollado por un usuario de FWH','',0,'AIA=','2o1ot80f',1,0,'',2,0,0),(34046,7435,2,1099,0,'88.14.186.175',1183109394,1,0,1,1,1,0,'','','Grácias Antonio,\n\nFunciona a las mil maravillas.\n\nRespecto al error que me sale con el sistema anterior, ¿sabes a que es debido?','',0,'AIA=','11ezaazp',1,0,'',1099,0,0),(34047,7436,3,130,0,'141.51.32.24',1183112277,1,0,1,1,1,1,'','Change behavior of minimize button','Hi all,\n\nis it possible to change the standard behavior of the minimize and close button of a window ?\n\nA click on minimize should hide the windows','',0,'AIA=','26qykk55',1,0,'',130,0,0),(34048,7424,6,644,0,'200.82.37.220',1183112694,1,0,1,1,1,0,'','','Yo lo uso con FWH 2.7 y xHarbour 0.99.60 y funciona perfectamente','',0,'AIA=','df7fckvy',1,0,'',644,0,0),(34049,7436,3,2,0,'87.218.146.170',1183120533,1,0,1,1,1,1,'','','[code:2v4zu7f8]\n#define SIZE_MINIMIZED 1\n\nACTIVATE WINDOW oWnd ;\n   ON RESIZE If&#40; nSizeType == SIZE_MINIMIZED, oWnd&#58;Hide&#40;&#41;, oWnd&#58;Show&#40;&#41; &#41;\n[/code:2v4zu7f8]','',0,'AIA=','2v4zu7f8',1,0,'',2,0,0),(34050,7433,6,1086,0,'216.244.240.248',1183120594,1,0,1,1,1,0,'','gracias por la respuesta','Hola, no doy en la tecla, me salen los siguientes mensajes:\n\nCompiling...\nSin espacio de entorno\nHarbour Compiler Alpha.....etc..\nCompiling \'tutor02.prg\' and.........etc...\nLines 30, Function/Procedures 2\nGenerating C source output to \'tutor02\'....done\nComando o nombre de archivo no valido\nNo se encuentra el archivo\n*Aplication successfully built\nComando o nombre de archivo no valido\n\nSaludos cordiales,','',0,'AIA=','2acyvy6h',1,0,'',1086,0,0),(34051,7433,6,2,0,'87.218.146.170',1183121077,1,0,1,1,1,1,'','','No está localizando c:/bcc55/bin/bcc32.exe y ilink32.exe \n\nModifica buildh.bat para que use el path correcto a bcc32.exe y ilink32.exe','',0,'AIA=','10dmhwiv',1,0,'',2,0,0),(34052,7357,6,46,0,'195.8.11.8',1183124564,1,0,1,1,1,0,'','','Lo pones igual..\nEl que va a controlar la posicion es el Spliter\n\nMira este trozo de programa y obser la construccion del objeto splitter\n[code:3j1gk07c]\n\n\nCLASS MDITree FROM TMdiChild\n\n   CLASSDATA oApp\n\n   DATA oDbf, oDbfSlave\n   DATA oTree, oBrw\n   DATA nPosition\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n   METHOD New&#40;&#41; CONSTRUCTOR\n   METHOD Activate&#40;&#41;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nENDCLASS\n\nMETHOD New&#40; oApp, nId, nTop, nLeft, nBottom, nRight, oDbf, oDbfSlave &#41; CLASS MDITree\n\n&#46;&#46;&#46;&#46;&#46;&#46;\n\n   Super&#58;New&#40; &#58;&#58;nTop, &#58;&#58;nLeft, &#58;&#58;nBottom, &#58;&#58;nRight, , Nil, Nil, oApp&#58;oWnd, ;\n                oApp&#58;oWnd&#58;oIcon, &#46;F&#46;, &#58;&#58;nClrText, &#58;&#58;nClrPane, Nil, Nil, &#46;T&#46;, &#46;F&#46;, Nil, Nil, &#46;T&#46;, ;\n                &#46;T&#46;, &#46;T&#46;, &#46;T&#46; &#41;\n\n   &#58;&#58;oTree &#58;= TTreeView&#40;&#41;&#58;New&#40; 0, 0, Self, &#58;&#58;nClrtext, &#58;&#58;nClrPane, , , &#58;&#58;nPosition - 1 &#41;\n   &#58;&#58;oTree&#58;SetFont&#40; &#58;&#58;oFont &#41;\n\n   If oDbfSlave != Nil\n      &#58;&#58;oDbfSlave &#58;= oDbfSlave\n      &#58;&#58;lSplitter &#58;= &#46;T&#46;\n      &#58;&#58;oBrw &#58;= tsBrowse&#40;&#41;&#58;New&#40; 0, &#58;&#58;nPosition + 4, Nil, Nil, Nil, Nil, , Self, Nil, Nil, Nil, ;\n                                Nil, Nil, Nil, &#58;&#58;oFont, Nil, &#123; &#58;&#58;nClrText &#125;, Nil, &#46;T&#46;, ;\n                                oDbfSlave&#58;cAlias, &#46;T&#46;, Nil, Nil, Nil, Nil &#41;\n      &#58;&#58;oBrw&#58;SetoDbf&#40; oDbfSlave &#41;\n\n      &#58;&#58;oBrw&#58;bLDblClick&#58;= &#123; || &#58;&#58;Edition&#40;&#41; &#125;\n\n\n      &#58;&#58;oClient &#58;= TSplitter&#40;&#41;&#58;New&#40; 0, &#58;&#58;nPosition, &#46;T&#46;, &#123; &#58;&#58;oTree &#125;, &#46;T&#46;, &#123; &#58;&#58;oBrw &#125;, &#46;T&#46;, ;\n                                   Nil, Nil, Self, Nil, , , &#46;T&#46;, &#46;T&#46;, Nil, &#46;F&#46;, &#46;F&#46; &#41;\n\n      &#58;&#58;oTree&#58;bChanged &#58;= &#123; |o,i| i &#58;= o&#58;GetSelected&#40;&#41;, ;\n                                  If&#40; !Empty&#40; i&#58;Cargo &#41; &#46;and&#46; &#58;&#58;oDbf&#58;nArea &gt; 0, ;\n                                      &#40; &#58;&#58;oDbfSlave&#58;SetScope&#40; i&#58;Cargo &#41;, ;\n                                        &#58;&#58;oBrw&#58;Reset&#40;&#41; &#41;, &#41; &#125;\n   EndIf\n\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n \n   Return Self\n\nMETHOD Activate&#40; bEnd &#41; CLASS MDITree\n   &#58;&#58;bEnd       &#58;= bEnd\n\n   If &#58;&#58;lDefault\n      &#58;&#58;ToolBar&#40;&#41;\n   Endif\n\n   &#58;&#58;MakeTree&#40;&#41;\n\n\n   Super&#58;Activate&#40; , , , , ;\n                   &#123; || If&#40; &#58;&#58;lSplitter, &#58;&#58;oClient&#58;adjClient&#40;&#41;, &#41; &#125; &#41;\n\n   &#58;&#58;oTree&#58;SetFocus&#40;&#41;\n\n   Return Self[/code:3j1gk07c]','',0,'AIA=','3j1gk07c',1,0,'',46,0,0),(34053,7427,6,255,0,'201.122.36.212',1183126312,1,0,1,1,1,1,'','','Hola... es agradable saber que todavia hay alguien usando mi aplicacion....\nLa solucion a tu problema te la esta comentando A&amp;C\n\n\nSaludos cordiales','',0,'AIA=','3luuqvrt',1,0,'',255,0,0),(34054,7437,6,1100,0,'201.14.31.6',1183127013,1,0,1,1,1,0,'','Problemas con Report','quiero hacer un simple report para ver como funciona, pero me dá un error que es el siguiente:\n------------------------------------------------------------------------\nError occurred at: 06/29/07, 11:20:05\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Resource: PRINT_PROC\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: REPORT.PRG =&gt; TREPORT:ACTIVATE(0)\n   Called from: RelEstado.prg =&gt; RELESTADO(18)\n------------------------------------------------------------------------\nmi .prg es asi:\n-----------------------------------------------------------------------\n#include \"fivewin.ch\"\n#include \"report.ch\"\n\nFunction RelEstado()\nLOCAL oRpt\n\n        USE D:\\Marizete\\cadastros\\banco\\ESTADO\n\n        REPORT oRpt TITLE \"Lista de departamentos\" PREVIEW\n\n                COLUMN DATA ESTADO-&gt;UF ;\n                        TITLE \"UF\"\n                COLUMN DATA ESTADO-&gt;DESCRICAO;\n                        TITLE \"DESCRICAO\"   \n     ENDREPORT\n//        oRpt:CellView()\n\n        ACTIVATE REPORT oRpt\n\nRETURN NIL\n\nya hice otros .prg para usar Report, pero todos sin suceso','',0,'AIA=','lbxo2xmt',1,0,'',1100,0,0),(34055,7432,6,73,0,'200.23.18.132',1183127015,1,0,1,1,1,0,'','','jose luis gracias por la ayuda, de hecho no quiero tener fijo en el registro la ruta, esta quiero que sea aleatoria en cada pc y que el usuario tenga la oportunidad de elegir el nombre y la ruta, de hecho existe esa pantalla en el mismo sistema del PDFCreator, yo no uso la opcion PRINT... TO PDFCreator yo uso oPrn:setup() y en esta opcion cuando elijo la PDFCreator el sistema me dice que no tengo ninguna impresora seleccionada y no imprime, pero en esta opcion como lo tengo\n\noPdfApp:cOption(\"AutoSaveDirectory\", \"C:\\PDV\" ) \noPdfApp:cOption(\"AutoSaveFileName\" , \"Mypdf\" ) \noPdfApp:cSaveOptions() \n\nmsginfo()  -&gt; aqui me voy al registro de windows a ver si me hizo el cambio que le puse arriba y el registro no esta cambiado, entonces quiere decir que las lineas de arriba no estan funcionando...\ny lo que no quiero es dejar la ruta fija en el registro,,\nsalu2\npaco','',0,'AIA=','6rj8b99a',1,0,'',73,0,0),(34056,7433,6,1086,0,'216.244.197.251',1183127539,1,0,1,1,1,0,'','gracias por la ayuda','Antonio, como modifico el buildh.bat, el encabezamiento es \n\nset hdir=c:\\harbour\nset bcdir=c:\\bcc55\n\ncomo sigue la modificacion despues, antes intente de todo pero no hay caso\nseguro que hay algo que paso de lado y no me doy cuenta.\nGracias por tu paciencia.\nFer','',0,'AIA=','3k44c7hh',1,0,'',1086,0,0),(34057,7427,6,53,0,'189.139.96.151',1183128582,1,0,1,1,1,1,'','','Master:\n\nPero como chin.....aos no se va a usar si esta de poca m..\n\nAlguna vez intente con \"otros\" pero no pude invertirle mucho tiempo para aprender como hacerlo funcionar, tiempo que prefiero invertir en desarrollar aplicaciones, y con VERCE en dos patadas estaba compilando.\n\nGracias por el aporte, y no te desaparezcas\n\nUn Abrazo','',0,'AIA=','2uvbzlgq',1,0,'',53,0,0),(34058,7438,6,435,0,'200.155.206.31',1183129554,1,0,1,1,1,0,'','Splitter in Folder','é possivel criar Splitter em @ Folder \n\nMDI  -&gt; MDICHILD -&gt; FOLDER \n\ndentro da Folder um Toobar, abaixo um TCBrowse e gostaria de colocar uma Splitter entre a Toolbar e o Tcbrowse\n\nAri','',0,'AIA=','12i5uo8q',1,0,'',435,0,0),(34059,7431,6,73,0,'200.23.18.132',1183129713,1,0,1,1,1,0,'','','Armadno,\ncomo comenta cesar, en la aplicacion no necesitas modificar nada, en cuanto al servidor compartes la carpeta y agregas los permisos y listo..\nsalu2\npaco','',0,'AIA=','ucwktjye',1,0,'',73,0,0),(34060,7432,6,73,0,'200.23.18.132',1183130134,1,0,1,1,1,0,'','','Desintale y volvi a instalar el PDFCreator y cuando selecciono la impresora en el oPrn:Setup() ya me la reconoce, pero si selecciono la impresora normal y luego desde mi preview lo mando guardar a PDF no me lo genera\nAdjunto la imagen del preview\n<!-- m --><a class=\"postlink\" href=\"http://img80.imageshack.us/img80/2184/pdfdn9.jpg\">http://img80.imageshack.us/img80/2184/pdfdn9.jpg</a><!-- m -->\nsalu2\npaco','',0,'AIA=','1adnal9n',1,0,'',73,0,0),(34061,6815,6,1053,0,'189.174.209.183',1183130862,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3haa60vb]Juan,\n\nRevisa el código fuente del ADORDD, es la mejor documentación disponible. Es simple y fácil de entender.\n\nY revisa los ejemplos que se proporcionan[/quote:3haa60vb]\n\nGracias Antonio Revisare el fuente..\n\nSaludos\nJuan Antonio Rendón','',0,'gA==','3haa60vb',1,0,'',1053,0,0),(34062,6303,4,106,0,'85.34.123.173',1183131362,1,0,1,1,1,1,'','','Any news?\n\n\nRegards','',0,'gA==','3brm78xm',1,0,'',106,0,0),(34063,7431,6,53,0,'189.139.96.151',1183131388,1,0,1,1,1,1,'','','Gracias Paco:\n\nVoy con mi hacha.\n\nUn abrazo','',0,'gA==','mk9zn0vd',1,0,'',53,0,0),(34064,7439,6,960,0,'84.125.196.99',1183131764,1,0,1,1,1,0,'','Informe a Microsoft de este problema','Estimados compañeros:\n\nDe siempre he compilado utilizando FWH 2.4 + harbour build 02/October/2003, dandome como resultado EXE\'s solidos.\nAhora pase a FWH 2.7 + xHarbour 0.99.60. Compilo con AJMAKER y todo perfecto!! pero cuando estoy corriendo el EXE, de forma aleatoria y sin previo aviso me genera el error típico de Windows del tipo:\n\n\"MIPROGRAMA.EXE ha detectado un problema y debe cerrarse. Informe a Microsoft de este problema\" con las opciones \"Enviar informes de errores\" y \"No enviar\"\n\n¿ Que puede pasar? no son estables estas versiones de FWH y xHarbour ?\n\nMil gracias\nLORENZO','',0,'gA==','2lskb9za',1,0,'',960,0,0),(34065,5603,7,106,0,'85.34.123.173',1183132074,1,0,1,1,1,1,'','','Alguna novedad?\n\n\nSaludos','',0,'gA==','14xjq8re',1,0,'',106,0,0),(34066,7440,7,1030,0,'190.55.46.116',1183133552,1,0,1,1,1,0,'','Elnlace para pocket PC','Hola a todos estoy intentando generar una aplicacion para Pocket Pc y logre compilar pero tengo un problema para enlazar. El codigo que utilizo para enlazar es el siguiente: \n\n\\BCC55\\LIB\\C0W32.OBJ + \nOBJ\\CLIENT , +\n..\\CLIEN.EXE, + \nCLIEN.MAP, + \nFiveH.lib    + \nFiveHC.lib   +\nGtGui.lib    + \nHbSix.lib    +\nDbfFpt.lib   +\nRddads.lib   + \nrtl.lib      + \nvm.lib       + \nlang.lib     + \nmacro.lib    + \nrdd.lib      + \ndbfntx.lib   + \ndebug.lib    + \ncommon.lib   + \npp.lib       + \nAce32.lib    + \nSButtonH.lib + \ngtwin.lib    + \nct.lib       + \ncw32.lib     + \nole32.lib    +\noleaut32.lib +\nolece400.lib +\nuuid.lib     +\nimport32.lib,  \nRESOURCE\\CLIENT.RES\n\nY genera un error y no genera el .exe\nEl error es el siguiente:\n\n\\BCC55\\LIB\\C032.OBJ : Fatal error link1123: Failure during conversion to COFF: file invalid or corrupt\n\nSi alguien me puede ayudar estaria agradecida.\nSaludos Natalia','',0,'gA==','134095lz',1,0,'',1030,0,0),(34067,7439,6,644,0,'190.30.11.94',1183134002,1,0,1,1,1,0,'','','Compilo con las mismas versiones que utilizas y no he tenido ningún problema en ninguna de las versiones de Windows. \nSaludos','',0,'gA==','3iftf415',1,0,'',644,0,0),(34068,7439,6,940,0,'189.157.72.130',1183134815,1,0,1,1,1,1,'','','Lorenzo,\n\nyo tengo proyecto compilados con fwh 2.7. no he tenido ningun problema,\n\ny cuando hay ese tipo de problemas, las causas posibles suelen ser las sig.\n\n1.  no estas utilizando el compilador correcto para la ver. fwh2.7 me refiero al xhb / hb.\n2. es posible que estes compilando una libreria que no fue creada con el \n   compilador que estas utilizando (hb/xh)\n3. es posible que estes utilizando un archivo prg  que no es compatible\n    con los compilador que estas usando\n\n   a mi me paso con algunas class que tuve que modificar para poderlos\n   usar con xharbour,\n\n\n\nsaludos,, cordiales.','',0,'gA==','3ngpr1ai',1,0,'',940,0,0),(34069,7441,2,248,0,'212.145.179.68',1183134954,1,0,1,1,1,0,'','Punto millar y coma decimal','Hola estoy usando por ejemplo el picture \"@E99.999,99\" y tengo lo siguiente problemas:\n\n- Si no establezco lo decimales, aunque le digo dos en el picture me muestra todos los que tiene definido el campo.\n- Si establezco dos decimales, me los saca aunque el campo no tengo decimales.\n- Y ademas no me sale el punto de millar, si la coma como decimal.\n\n¿Alguna idea? \n\nGracias','',0,'gA==','i47tqv4b',1,0,'',248,0,0),(34070,7440,7,2,0,'87.218.146.170',1183134994,1,0,1,1,1,1,'','','Natalia,\n\nFiveWin para Pocket PC (FWPPC) usas sus propias librerías. No puedes usar las de FWH (FiveWin para Harbour), ya que no no son compatibles e internamente son distintas.','',0,'gA==','1nfjqpdy',1,0,'',2,0,0),(34071,7432,6,940,0,'189.157.72.130',1183135258,1,0,1,1,1,1,'','','Paco q ondas, \n\nhas probado PAPERLES printer ?\n\ntambien con el setup elijes la impresora virtual,\n\ny tambien te pide el nombre y en que carpeta quieres los resultados,\n\ny no necesitas modificar nada a los reportes de tu sistema.\n\n\nsaludos..','',0,'gA==','19ovr506',1,0,'',940,0,0),(34072,7429,6,105,0,'200.72.140.34',1183135539,1,0,1,1,1,1,'','','Antolin, Syscrtl\n\nGracias por sus respuestas, \n\nprimero... ala funcion mitxt es llamada cada vez que paso por encima de un icono, menu etc.\nSegundo, desgraciadamente no veo nada, trate de cambiar parametros como  las 4 coordenadas, color, tipo y tamaño de la letra y nada.. asi que no pude hacerlo funcionar.\n\nSobre el ExtTextOut(), estoy rcien viendo como implementarlo.. les comunco si tuve exito\n\nDesde Chile\nAdolfo','',0,'gA==','y1x6j1l7',1,0,'',105,0,0),(34073,7437,6,105,0,'200.72.140.34',1183135907,1,0,1,1,1,1,'','','Marizete, \n\nTienes las dll de los report en la misma carpeta/directorio del ejecutable ?\nMe refiero a la Preview.dll\n\nSegundo lo haces son Clipper, HArbour, xHarbour,.. porque dependiendo de eso debes usar la preview32.dll\n\nEso....','',0,'gA==','1frp8nzk',1,0,'',105,0,0),(34074,7433,6,940,0,'189.157.72.130',1183135931,1,0,1,1,1,1,'','','Fernando,\n\ninstala nuevamente tu borland\n\npero al instalar cambia la ruta a C:\\BCC55\n\nya que por default lo instala en c:\\borland\\bcc55\n\nY tu build esta llamando a c:\\bcc55\n\n\nsaludos..','',0,'gA==','1tqfsoee',1,0,'',940,0,0),(34075,7415,20,29,0,'88.149.165.190',1183136130,1,0,1,1,1,0,'','','Grazie. Come posso registrare la dll ?','',0,'gA==','11r7crdg',1,0,'',29,0,0),(34076,7440,7,1030,0,'200.115.250.238',1183136407,1,0,1,1,1,0,'','Gracias por la ayuda.','Antonio, entiendo que debo sacar las librerias que no son de FWPPC.\nAhora, porque me tira el error del C0W32.obj, que tengo que usar para reemplazarlo?\n\nahora el enlace me quedo de esta manera (me faltarian agregar la librerias q necesito):\n\nC0W32.OBJ + \nOBJ\\CLIENT , +\n..\\CLIEN.EXE, + \nCLIEN.MAP, + \nRESOURCE\\CLIENT.RES\n\nMuchas gracias!\nNatalia.','',0,'gA==','38j9nd48',1,0,'',1030,0,0),(34077,4604,6,569,0,'201.248.129.135',1183139564,1,0,1,1,1,0,'','manuel aranda','recien leo tu inquietud por el problema, de programacion que te aflige, yo lo solucione modificando los flags del ILINK32 en el build*.bat\nsaludos rodolfo\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','145erwj5',1,0,'',569,0,0),(34078,1314,6,774,0,'164.77.167.233',1183143731,1,0,1,1,1,1,'','','Y en que quedo el TEMA PACO o ANTONIO\n\nme interesaria saber','',0,'gA==','1hsbwjz7',1,0,'',774,0,0),(34079,6303,4,267,0,'200.208.238.2',1183144674,1,0,1,1,1,1,'','','Unhappyly nothing.\n\nThe FiveTech does not give importance for this and without the treatment of archives zip I do not have as to send given for the salesmen.\n\nAlready I lost the customer and I am looking another option to continue the development with Pocket.','',0,'gA==','140pk7b4',1,0,'',267,0,0),(34080,3391,6,362,0,'201.26.157.76',1183147671,1,0,1,1,1,1,'','','Manu...\n\nExcelente Aportacione... Fantastico.\n\nMuchas gracias por enviarme este nuevo release.\n\nManu hay necesidad de si usar MISFUNC.CH?\n\nSe si, podrias enviarme por favor?\n\nFelicitaciones e parabiéns! És mui inteligente!\n\nMejor que SSAY.PRG Bién mejor.  Congratulations.\n\nRegards,  saludos.','',0,'gA==','3huuogic',1,0,'',362,0,0),(34081,3391,6,439,0,'200.125.47.253',1183148878,1,0,1,1,1,1,'','TGSAY','Esta clase originalmente era para Clipper.\n\nTraté de bajar el link de arriba y no anduvo.\n\nEn los foros de Brasil encontré la misma clase funcionando perfectamente en [x]Harbour, pongo a disposición el link, esperando no ofender a nadie YO NO HICE EL LINK SOLO LO DIFUNDO.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=791\">http://www.fivewin.com.br/exibedicas.asp?id=791</a><!-- m -->\n\nSi a alguien ofendo o algo no está bien, pues, a escribir a la gente de <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.com.br\">www.fivewin.com.br</a><!-- w -->, no a mí.\n\nPara que funcione yo personalmente suprimí la mención a MisFunc.ch y reemplace en todo el código de el ejemplo CLR_OBLUE  por CLR_BLUE y funcionó al toque.\n\nPues si sirve sirve y si no me avisan y pues al cabo lo saco.\n\nESTA CLASE ES DE MANURAMOS.\n\nSaludos, espero sea de ayuda.','',0,'','1e5e94st',1,0,'',439,0,0),(34082,7442,6,1090,0,'201.254.8.194',1183149173,1,0,1,1,1,0,'','cannot create dialog box','Hola; tengo un problema muy extraño. Quisiera saber si a alguien le paso:\n\ntengo una aplicacion que corre prefectamente con FW y Blinker; la pasé a FWH c/ Harbour; si bien tube que cambiar algunas cosas, en general funciona bien: ahora, hay una ventana con un Browse, al hacer 2 click sobre este browse, debería abrirse una 2° ventana. Si le doy 2 click al browse aparece el cuadro \"cannot create Dialog Box\", lo extraño es que si primero ejecuto un boton que hay en la 1° pantalla que tiene un MSGGET (que hace que se abra el cartel tipico de esta instruccion) y despues le doy 2 click al browse, entonces la segunda pantalla si aparece de manera correcta (y hasta me deja trabajar perfectamente sin problemas). \n¿tienen idea que puede llegar a estar pasando? Gracias.','',0,'','4wuyuj84',1,0,'',1090,0,0),(34083,7442,6,362,0,'201.26.157.76',1183150422,1,0,1,1,1,1,'','','mira si no estais usando una TSBROWSE en vez de una TWBROWSE O UN CONTOLE BORLAND EN EL DIALOGO.','',0,'','2jpx65fx',1,0,'',362,0,0),(34084,7441,2,1055,0,'84.125.133.194',1183150704,1,0,1,1,1,0,'','','Lo tienes al revés. Es : [b:11lxm9ug]\"@E 99,999.99\"[/b:11lxm9ug]\n[i:11lxm9ug](Observa el espacio tras la \'E\')[/i:11lxm9ug]\nEsa \'E\' es para que los puntos se vuelvan comas y las comas puntos. Por eso hay que poner la coma para miles (se convertirá a punto) y el punto para los decimales (se comvierte en coma gracias a la \'E\')\nSirve tanto para PICTURE como paras TRANSFORM()\nCuando hagas cVar = oGet:cText() o similar. Obtienes un string con comas para decimales y punto para miles, con lo cual, no puedes pasarlo a numero con STR(). Para ello tendras que volver a transformarlo a notación anglosajona. Yo utilizo un precompilado de mi cosecha:\n\n#TRANSLATE SPPICT( &lt;cVar&gt; )  =&gt; STRTRAN(STRTRAN(STRTRAN( &lt;cVar&gt; ,\",\",\"#\"),\".\",\",\"),\"#\",\".\")\n\nAsí:  SPPICT(\"99.999,99\") se transforma en \"99,999.99\" que [b:11lxm9ug]sí[/b:11lxm9ug] puedes convertir a numero con STR()\n\nEspero te sea de ayuda.\nSaludos','',0,'YA==','11lxm9ug',1,0,'',1055,0,0),(34085,3391,6,1055,0,'84.125.133.194',1183151064,1,0,1,1,1,0,'','','Yo también conseguí la clase TGSAY donde falta el MISFUNC.CH. Tras investigar un poco, si no me equivoco sólo hay que añadir a la TGSAY.CH lo siguiente:\n\n#DEFINE ACCION 	ON CLICK\n\nO cambiar ACCION por ON CLICK','',0,'YA==','2l18mbyd',1,0,'',1055,0,0),(34086,7429,6,1055,0,'84.125.133.194',1183152383,1,0,1,1,1,0,'','','Supongo que sería algo asi:\n\nDEFINE FONTO oFont ...\nDEFINE Bmp ....\nDEFINE DIALOG oDlg ...\n...\noDlg:bPainted := { |hDc| MiPaintBrush(hDc,oFont,Bmp) }\n...\nACTIVATE DIALOG oDlg ...\n\n[b:38l5wlz1]FUNCTION MiPaintBrsuh(hDc,oFont,Bmp)[/b:38l5wlz1]\nLOCAL nX,nY\nLOCAL OldFont := SelectObject(hDC,oFont:hFont)\n\nFOR nX = ... TO ... STEP ...  // FOR nHorzDesde to nHorzHasta STEP AnchoTexto + Separcion Horizontal entre Textos\nFOR nY = ... TO ... STEP ...  // FOR nVertDesde to nVertHasta STEP AltoTexto +Separacion Vertical entre Lineas\nExTextOut(hDc,nX,nY,{nX,nY,nX+AnchoTexto,nY+AltoText},\"TEXTO A DESPLEGAR\")\nNEXT\nNEXT\nSelectObject(hDC,OldFont)\nPalDrawText(hDc,X..,Y..,Bmp:hBitmap, Bmp:hPalette,[AnchoBmp,AltoBmp] )\nRETURN NIL\n\nLo más tedioso es calcular las coordenadas. Paciencia.\nSaludos','',0,'QA==','38l5wlz1',1,0,'',1055,0,0),(34087,7429,6,1055,0,'84.125.133.194',1183152675,1,0,1,1,1,0,'','','Tambien puedes probar con DrawText() o WSay() en lugar de ExTextOut() son muy similares. Con fondo transparente u Opaco, Etc... Consulta las ayudas del FWH para ver el uso de esas functiones.','',0,'QA==','j0dr1fop',1,0,'',1055,0,0),(34088,7427,6,838,0,'80.59.225.15',1183152909,1,0,1,1,1,0,'','','No digas ni en broma que \"todavia hay alguien usando mi aplicación\", yo no sabría hacer nada fuera de VerCe. Yo estuve a punto de tirar la toalla con xharbour, y me topé con tu aplicación, y me enganché al maravilloso mundo de Fivewin+xharbour+verce.\n\nAsí que gracias mil\n\nSaludos\n\nJose Luis','',0,'QA==','2wi6ikgl',1,0,'',838,0,0),(34089,7427,6,1055,0,'84.125.133.194',1183153294,1,0,1,1,1,0,'','','Ya solucioné el asunto. Resulta que VeRCE no cogía la función porque estaba mal compilada (aun cuando no me dio errores de compilacion) pero si que ve las LIB de terceros.\n\nAntonio Linares tenía razón era cuestion de utilizar las cabeceras adecuadas, pero no me dijo cuales eran y hasta que dí con ellas me he tirado tres días  partiendome los cuernos (como se dice en España) con las 2000 cabeceras que hay entre xHarbour, FWH y Borland. \nAl fin dí con la siolución correcta, por si a alguien le interesa, a mi me va bien esto:\n\n#include &lt;fwharb.h&gt;\n#include &lt;clipapi.h&gt;\n#include &lt;winten.h&gt;\n#include &lt;windows.h&gt;\n\nUna vez compilada la funcion en C, creé la LIB con TLIB y la agregé al Verce ne el apartado correspondiente a librerias/objetos de terceros y va de maravilla.\n\nhora espero poder crear algunas funciones de interés sin mayores problemas. Me interesan especialmente las gráficas.\n\nVeRCE es estupenda. Por ahora no necesito nada más. Además la aprendí en cuatro días. Mi enhorabuena a sus creadores.','',0,'QA==','2xj0jkgs',1,0,'',1055,0,0),(34090,7429,6,940,0,'189.157.72.130',1183153605,1,0,1,1,1,1,'','','Adolfo,\n\nla funcion _MiTxt()  solo puedes llarme una vez,\n\nutilizando una variable publica,,\n\npublic  lMiTxt := .t. \n\n\nif lMiTxt\n   _miTxt()\n    lMiTxt := .f.\nendif','',0,'QA==','yqdbhof1',1,0,'',940,0,0),(34091,7432,6,838,0,'80.59.225.15',1183153746,1,0,1,1,1,0,'','','Francisco,\nYo utilizo el primer ejemplo que te puse, dentro de un bucle, y los valores no son fijos en el registro, sino que cada impresión, graba en el registro una ruta y unos valores.\nCon ese ejemplo, si estoy imprimiendo facturas, enruto el pdf a \\facturas, y si estoy con albaranes a \\albaranes, es decir cada documento, con\n[code:1hn4732g]       oReg&#58;=TReg32&#40;&#41;&#58;New&#40;HKEY_CURRENT_USER,&quot;SOFTWARE\\PDFCreator\\Program&quot;&#41; \n[/code:1hn4732g]\nLo que hace es grabar en el registro cómo va a ser esa impresion, y después la imprime.\n\nSaludos\n\nJose Luis','',0,'AIA=','1hn4732g',1,0,'',838,0,0),(34092,7429,6,1055,0,'84.125.133.194',1183153995,1,0,1,1,1,0,'','','Adolfo, en mi posta anterior, con las prisas,  he puesto [b:1bn86cu2]PalDrawText[/b:1bn86cu2](hDc,X..,Y..,Bmp:hBitmap, Bmp:hPalette,[AnchoBmp,AltoBmp] ) \nen lugar de [b:1bn86cu2]PalBmpDraw[/b:1bn86cu2](hDc,X..,Y..,Bmp:hBitmap, Bmp:hPalette,[AnchoBmp,AltoBmp] ) \n\nMil perdones','',0,'QA==','1bn86cu2',1,0,'',1055,0,0),(34093,7432,6,940,0,'189.157.72.130',1183154074,1,0,1,1,1,1,'','','Jose Luis,\n\nalgun ejemplo mas full para probar ?\n\nclaro si es que se puede,\n\nsaludos..','',0,'QA==','1o1oz3pu',1,0,'',940,0,0),(34094,7440,7,2,0,'87.218.146.170',1183156246,1,0,1,1,1,1,'','','Natalia,\n\nFWPPC se enlaza con el enlazador de Microsoft, no con el de Borland.\n\nEl fichero samples/buildce.bat muestra claramente que modulos se usan y la forma correcta de usarlos','',0,'QA==','ft0g1itc',1,0,'',2,0,0),(34095,6303,4,2,0,'87.218.146.170',1183156542,1,0,1,1,1,1,'','','Vilian,\n\nZIP files management is important but please understand that FWPPC is mainly a GUI library. You can locate a ZIP management library or DLL and implement the wrappers yourself.\n\nWe want to help on this issue, once such library or DLL is located','',0,'QA==','3tjb2swb',1,0,'',2,0,0),(34096,7433,6,1086,0,'216.244.240.248',1183160867,1,0,1,1,1,0,'','gracias de nuevo a todos','si, ya lo hice, intentare de nuevo todo, lo que no me explico hago todo paso por paso como se debe pero no puedo compilar nada me saltan errores desearia saber como se configura el buildh.bat, intente cambiar como dice Antonio pero no hay caso, vere de nuevo sino, me doy por vencido, gracias nuevamente a todos por su paciencia y ayuda, saludos cordiales\nFernando','',0,'QA==','3tdgcbl1',1,0,'',1086,0,0),(34097,7433,6,940,0,'189.157.72.130',1183161092,1,0,1,1,1,1,'','','Fernando,\n\nsi gustas te puedo apoyar,  en linea,  <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\nyo uso verce es muy facil\n\nseguro que con una leve explicacion agarraras el modo,\n\n\nsaludos..','',0,'QA==','ndv100cs',1,0,'',940,0,0),(34098,7443,3,34,0,'68.5.217.82',1183163483,1,0,1,1,1,1,'','Combo box with data object','The following code:\n\n\n   REDEFINE COMBOBOX oMake VAR cvMake ITEMS aMake ;\n      ON CHANGE ( aModel := SetVehModel( aModel, cvMake ), oModel:setItems( aModel ), oDvm:update( ), .T.  );\n      ID 893 OF oDvm  MESSAGE \"Enter the make of the vehicle\" UPDATE\n\n   REDEFINE COMBOBOX oModel VAR oUnt:vehmod ITEMS aModel ;\n          ID 442 OF oDvm MESSAGE \"Select the proper model\" UPDATE\n\nnow has a problem.  The idea is when a make is selected in the first combobox, the array of models specific to that make is reset.  That all works fine.  However, the variable from the database, oUnt:vehmod, does not display.  Essentially, browsing dow a file should display both the make and model in the dialog box, but only the make is shown.  This is a relatively new behavior ( latest FWH update ).  If I remove the oModel VAR it will show but then the aModel array does not get updated properly.\n\nYour ideas would be appreciated.','',0,'QA==','3jrbi413',1,0,'',34,0,0),(34099,7444,3,473,0,'81.82.10.56',1183202167,1,0,1,1,1,0,'','ADO RDD connection error 16389','I have this error testing MS SQL and MySQL.\n\nIs there a way to get more information of the error.\n\nI have used this code with MySQL\n\n[code:1h7oj8pj]#Include &quot;FiveWin&#46;Ch&quot;\n#include &quot;adordd&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction TstMySql&#40;&#41;\n\n   USE test1 VIA &quot;ADORDD&quot; TABLE &quot;tabel1&quot; MYSQL ;\n      FROM &quot;LOCALHOST&quot; USER &quot;ROOT&quot; PASSWORD &quot;&quot;\n\n   Browse&#40;&#41;\n\n   USE\n\nreturn nil\n[/code:1h7oj8pj]\n\nAny idea\n\nThanks,\n\nWilly Hermans','',0,'AIA=','1h7oj8pj',1,0,'',473,0,0),(34100,7437,6,1100,0,'201.14.31.6',1183203582,1,0,1,1,1,0,'','','Adolfo\n\nLo que tengo es C:\\FWH27\\DLL y en él prev32sp.dll y prev32.dll, seria una de estas?.\nen C:\\xHarbour\\dll tengo muchos .dll  pero tampoco la preview.dll\ny en C:\\BCC55 no tengo nada de .dll\n\ndonde consigo la preview.dll y que qué carpeta debo tirarla? es que estoy haciendo mi pasantia con xHarbour... y estoy un poco perdida\n\nDesde ya muchas gracias por la ayuda.','',0,'AIA=','qjgqo6f8',1,0,'',1100,0,0),(34101,7437,6,1100,0,'201.14.31.6',1183205305,1,0,1,1,1,0,'','','Otra vez yo, pero ya solo para decir que ahora funcionó muy bien, lo que hice fue tirar las dos .dll \"prev32sp.dll\" y \"prev32.dll\" al directorio C:\\xHarbour\\bin donde está mi executable. Essas dll solo estaban en C:\\FWH27\\DLL\\\n\nAhora ya puedo ver mi documento en pantalha, archivo o imprimir. Esto esta muy bueno...\n\nMuchas gracias por la ayuda Adolfo.','',0,'AIA=','1sub20ta',1,0,'',1100,0,0),(34102,7445,6,987,0,'189.133.6.128',1183213019,1,0,1,1,1,0,'','Bug en la Funcion SetDate() 32bits','Hola estimados colegas del foro, tengo el siguiente problema ojala y alguno de ustedes lo haya resuelto, y es un tema del cual ya se hablo pero del que todavia nadie a dado respuesta\n\nResulta que uso la funcion SETDATE() para el cambio de fecha de Windows el cual lo uso así:\n\nSTATIC dInicial          ----------&gt;&gt;Al inicio de la aplicacion lo he probado tambien como PUBLIC.\n\nSET DATE TO BRITISH ----------&gt;&gt;Dentro de la Funcion Main\nSET CENTURY ON\nSET EPOCH TO 2000\ndInicial:= Date()\n\nDentro del sistema cambio la fecha de windows con la misma funcion esto lo hago para revisar la informacion de meses pasados, ya que mi sistema usa una carpeta de informacion por mes de trabajo... aki funciona bien y sin problemas con esta funcion..\n\nFUNCTION CambiaFecha()\n\nLOCAL dVar1:= DATE()\nLOCAL oDlg,oGet,oBtn1,oBtn2\nLOCAL lSal:= .F.\n\nDEFINE  DIALOG    oDlg     RESOURCE \"SELFECHA\" TITLE \"Cambiar Fecha de Trabajo\" OF oWndMain \nREDEFINE  BTNGET    oGet   VAR dVar1 ID 102 OF oDlg RESOURCE \"B_CALE\" SPINNER;\n                                                      ON UP (++dVar1,oGet:REFRESH()) ON DOWN (--dVar1,oGet:REFRESH());\n                                                      ACTION (aRect := GetCoors(oGet:hWnd),;\n                                                      dVar1 := FwCalendar(dVar1,aRect[1],aRect[4],oDlg),;\n                                                      oGet:REFRESH())\nREDEFINE BUTTON    oBtn1           ID 107 OF oDlg  ACTION (SetDate( DAY( dVar1 ), MONTH( dVar1 ), YEAR( dVar1 ) ), SYSREFRESH(), CambMes(dVar1), CreArchi(), Indexa(), lSal:= .T., oDlg:END())\n        REDEFINE BUTTON    oBtn2           ID 108 OF oDlg  ACTION (lSal:= .T., oDlg:END()) CANCEL	  \n\n                    ACTIVATE DIALOG    oDlg CENTERED  VALID (lSal)\nReturn nil\n\nHasta aki todo bien..\n\nSetDate( DAY(dInicial), MONTH(dInicial), YEAR(dInicial) )  ----------&gt;&gt; Esto lo hago al salir la aplicacion por si el usuario se olvida de regresar la fecha de windows a la fecha inicial, la cual la tome al principio.\n\nPor una extraña razon al momento de hacer el cambio de fecha la atrasa un dia, y lo hace por cada vez que salgo del programa entre las 9 y 11 de la noche, y en horarios diferentes durante el día, cosa que no pasaba con 16bits, ya revise el código fuente de esta funcion y son exactamente iguales, si hago esto:\n\nSetDate( DAY(dInicial)+1, MONTH(dInicial), YEAR(dInicial) )\n\nle sumo 1 día más pa que no regrese y que es una de las soluciones posteadas en este foro,  tambien lo hace, en algunas ocaciones regresa hasta 2 días atras..\n\nAlguien puede explicar porque con xharbour y fivewin falla y porque no con clipper y fivewin no..?\n\nMaestraso Antonio Linares... Ahi le dejo esta carta al aire..\n\nNo creo sel el único con este problema....\n\nFHW 2.6 + xHarbour 0.45 Flex','',0,'','265o8jo3',1,0,'',987,0,0),(34103,7433,6,1086,0,'200.5.242.53',1183215380,1,0,1,1,1,0,'','gracias nuevamente','Hola, creo haber encontrado el problema al parecer despues de investigar hay una incompatibilidad entre FHW 2.6 por ejemplo y Harbour segun que version, si es asi, los distintos amigos si pueden confirmar esto, o mostrar una tabla con las compatibilidades y si hay parche para solucionar esto, quedo atento alguna respuesta  o sugerencia.\nCordiales saludos a todos, gracias.\nFernando','',0,'','2tisn0ah',1,0,'',1086,0,0),(34104,7446,6,987,0,'189.133.6.128',1183216466,1,0,1,1,1,0,'','TGraph 2.0 de Alfredo Arteaga','Uso la excelente Clase TGraph 2.0 y tengo la siguiente duda, \ntengo una funcion en mi sistema que se encarga de mostrar una\ngrafica en la cual despliego el importe de ventas de cada uno\nde los días del més, mi duda es..\n\nComo puedo optimizar el uso del espacio a los lados de la grafica \npara poder ver las barras un poco más amplias, es decir, al dibujar\ntodas las barras que representan la grafica quedan espacios vacios a\nla izquierda y ala derecha, con lo cual, entre más barras se agregen,\nmás delgadas y más amontonadas se ven...\n\n<!-- m --><a class=\"postlink\" href=\"http://img525.imageshack.us/img525/152/tgraphmc8.jpg\">http://img525.imageshack.us/img525/152/tgraphmc8.jpg</a><!-- m -->\n\n\nLa función pera las graficas es la siguiente..\n\n\n#Include \"FIVEWIN.CH\"\n#Include \"TGRAPH.CH\"\n\nSTATIC oGraph, oGlfGraph, aSerie, nTotal\nSTATIC aSers, aPers, nGraph, aValues, aVals\nSTATIC cFile, aItem, lInit, nRangoG\n\n//----------------------------------------------------------------------------//\nFUNCTION GrafVent()\n\nnRangoG:= DAY(UltimoDia(DATE())) -&gt; Para saber cuantos días tiene el mes\n  aVals:= ARRAY(nRangoG)\n     AFILL(aVals,0)\n   \n    DEFINE    DIALOG    oGlfGraph    RESOURCE \"GRAFICA\"  TITLE \"Estadisticas de Ventas del Mes\"    \n  REDEFINE    GRAPH     oGraph       ID 100   OF oGlfGraph \n    \n    oGraph:aYVals   := {}\n    \n    oGraph:cPicture := \"$ 999\"\n    oGraph:cTitX    := \"Importe de Ventas\"\n    oGraph:cTitY    := \"Procesos\"    \n    oGraph:cTitle   := \"GRAFICA DE PRUEBA\"\n    oGraph:cSubTit  := \"Subtitulo\"\n    \n    oGraph:lLegends := .T.   \n    oGraph:lViewVal := .T.\n    oGraph:l3D      := .T.\n    oGraph:lXVal    := .T.\n    oGraph:lYVal    := .T.\n    oGraph:lXGrid   := .T.\n    oGraph:lYGrid   := .T.    \n    oGraph:lPopUp   := .T.\n    oGraph:lDotted  := .T.\n    oGraph:lTitle   := .T. \n    oGraph:lcTitle  := .T.\n    oGraph:lBorders := .T.\n    oGraph:lBordLeg := .T.\n    \n    nGraph:= 1\n    oGraph:nPenWidth:= 2\n    oGraph:nXRanges := 25  \n    oGraph:nBarD    := 15  \n    oGraph:nBarSep  := 1\n    oGraph:nClrPane := CLR_WHITE\n    oGraph:nClrBack := CLR_HGRAY\n    oGraph:nClrGrid := CLR_BLUE\n    oGraph:nType    := GRAPH_TYPE_BAR  \n    oGraph:nTRight  := 2\n\n\nFOR N:= 1 TO nRangoG\n    aVals[N] :=  ImpoVenta(STR(N)) \n    oGraph:AddSerie({aVals[N]}, \"Día \"+ALLTRIM(STR(N)), RandomRGB())   \nNEXT \n          \n    oGlfGraph:lHelpIcon:= .F.\n    \n    ACTIVATE  DIALOG  oGlfGraph    CENTERED ON PAINT (oGraph:Refresh(.T.))\n\nRETURN nil\n\nAgradeciendo por su pronta respuesta...\n\nxharbour + Fivewin 2.6[/img]','',0,'','np30k5og',1,0,'',987,0,0),(34105,6814,3,148,0,'196.205.112.247',1183220514,1,0,1,1,1,0,'','','How can I change my buildh.bat . I did some chnages with some errors :\n[code:1mxyvfwr]\necho c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho %fwhdir%\\lib\\FiveH&#46;lib %fwhdir%\\lib\\FiveHC&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtgui&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\codepage&#46;lib + &gt;&gt; b32&#46;bc\n\nrem Uncomment these two lines to use Advantage RDD\necho %fwhdir%\\lib\\adordd&#46;lib + &gt;&gt; b32&#46;bc\n^^^^^^^^^^^^^^^^^^^^^^^^^^^^\necho %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\Ads32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\iphlpapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\rasapi32&#46;lib + &gt;&gt; b32&#46;bc\necho %fwhdir%\\lib\\hboleaut&#46;lib, &gt;&gt; b32&#46;bc\n^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n[/code:1mxyvfwr]\n\nerrors :\nCompiling...\nHarbour Alpha build 1.0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'access1.prg\' and generating preprocessed output to \'access1.ppo\'...\nLines 3712, Functions/Procedures 1\nGenerating C source output to \'access1.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\naccess1.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_USRRDD_RDDDATA\' referenced from E:\\COMPILER\nCLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_AREADATA\' referenced from E:\\COMPILE\n\\CLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_ID\' referenced from E:\\COMPILER\\CLIP\nER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_ERROR\' referenced from E:\\COMPILER\nCLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_HB_ISLOGICAL\' referenced from E:\\COMPILER\\C\nIPPER\\FWH\\LIB\\HBOLEAUT.LIB|win32ole\nError: Unresolved external \'_HB_FUN_UR_SUPER_SETFIELDEXTENT\' referenced from E:\nCOMPILER\\CLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_ADDFIELD\' referenced from E:\\COMPI\nER\\CLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_OPEN\' referenced from E:\\COMPILER\\\nLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_CLOSE\' referenced from E:\\COMPILER\nCLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_GETFUNCTABLE\' referenced from E:\\COM\nILER\\CLIPPER\\FWH\\LIB\\ADORDD.LIB|adordd\n* There are errors\n\nE:\\programs\\Database\\clipper\\FWH\\adordd&gt;','',0,'AIA=','1mxyvfwr',1,0,'',148,0,0),(34106,7447,6,935,0,'200.62.78.198',1183230111,1,0,1,1,1,1,'','Anonio...una pregunta....','Hola a todos en el foro,\n\nUna pequeña inquietud es relacionda a Fivelinux, esta listo para desarrollar o migrar aplicaciones windows de fw/fwh, si es asi, que tan dramatico es el salto a esa plataforma,\n\nGracias por las sugerencias\n\nRamon Paredes\nManagua, Nicaragua','',0,'AIA=','3lnnq2g4',1,0,'',935,0,0),(34107,7447,6,2,0,'87.218.146.170',1183231739,1,0,1,1,1,1,'','','Ramón,\n\nFiveLinux te permite desarrollar una aplicación para Linux usando la típica sintaxis de FiveWin, pero hoy por hoy no ofrece toda la funcionalidad de FiveWin, por lo que no se puede \"portar\" una aplicación completa de FiveWin tal como está.','',0,'AIA=','2oentbzf',1,0,'',2,0,0),(34108,6814,3,2,0,'87.218.146.170',1183231837,1,0,1,1,1,1,'','','Ehab,\n\nYou have to link usrrdd.lib too','',0,'AIA=','61pz4mff',1,0,'',2,0,0),(34109,7263,3,303,0,'72.199.41.171',1183235869,1,0,1,1,1,0,'','','Antonio,\n\nI get 0,0 under both XP and Win98. I guess this isn\'t very helpful.\n\nI also recompiled it with FWH 7.05 and it still isn\'t working.\n\nAny more ideas?\n\nJames','',0,'AIA=','2okryn7q',1,0,'',303,0,0),(34110,7439,6,376,0,'200.48.229.83',1183242661,1,0,1,1,1,1,'','Re: Informe a Microsoft de este problema','Tal parece que hay incompatibilidades entre Fwh24, 25, 26 y 27 con xHarbour debido a las modificaciones que hizo el equipo creador de xHarbour (Ron Pinkas y Cia.) lo cual ha motivado que exista esas cosas raras. \n\nHasta el presente, solamente se ha podido establecer la compatibilidad total entre Fwh24 y xHarbour 99.60. Respecto a las versiones Fwh28 hasta el 07.05 no se si sean 100% por 100% compatibles con el original de xHarbour (Antonio hace sus propias versiones de xharbour adecuadas a la versiòn de Fwh que libera)\n\n[quote=&quot;Loren&quot;:g1tttdqy]Estimados compañeros:\n\nDe siempre he compilado utilizando FWH 2.4 + harbour build 02/October/2003, dandome como resultado EXE\'s solidos.\nAhora pase a FWH 2.7 + xHarbour 0.99.60. Compilo con AJMAKER y todo perfecto!! pero cuando estoy corriendo el EXE, de forma aleatoria y sin previo aviso me genera el error típico de Windows del tipo:\n\n\"MIPROGRAMA.EXE ha detectado un problema y debe cerrarse. Informe a Microsoft de este problema\" con las opciones \"Enviar informes de errores\" y \"No enviar\"\n\n¿ Que puede pasar? no son estables estas versiones de FWH y xHarbour ?\n\nMil gracias\nLORENZO[/quote:g1tttdqy]','',0,'gA==','g1tttdqy',1,0,'',376,0,0),(34111,7448,6,774,0,'164.77.54.16',1183247539,1,0,1,1,1,1,'','MUY URGENTEEEEEEEE C++','Amigos del FORO::\n\ntengo este codigo en C++ creo ?? alguien lo aclare\n\nCOMO SE PUEDE INCLUIR CODIGO DE C++ EN FWH\n\nmiren::\n\n//*********************************************************************\\ \n*                                                                     *\n*  Create24BPPDIBSection(HDC, int, int);                              *\n*                                                                     *\n*  Purpose:                                                           *\n*      Creates a 24 bit-per-pixel DIB section with the specified      *\n*      width and height.                                              *\n*                                                                     *\n\\*********************************************************************/ \n\nHBITMAP Create24BPPDIBSection(HDC hDC, int iWidth, int iHeight)\n{\n    BITMAPINFO bmi;\n    HBITMAP hbm;\n    LPBYTE pBits;\n\n    // Initialize header to 0s.\n    ZeroMemory(&amp;bmi, sizeof(bmi));\n\n    // Fill out the fields you care about.\n    bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);\n    bmi.bmiHeader.biWidth = iWidth;\n    bmi.bmiHeader.biHeight = iHeight;\n    bmi.bmiHeader.biPlanes = 1;\n    bmi.bmiHeader.biBitCount = 24;\n    bmi.bmiHeader.biCompression = BI_RGB;\n\n    // Create the surface.\n    hbm = CreateDIBSection(hDC, &amp;bmi, DIB_RGB_COLORS, &amp;pBits, NULL, 0);\n      \n    return(hbm);\n}\n\n/*********************************************************************\\ \n*                                                                     *\n*  BitmapsCompatible(LPBITMAP, LPBITMAP)                              *\n*                                                                     *\n*  Purpose:                                                           *\n*      Compares two bitmap structures to see if the surfaces are      *\n*      the same width, height, and pixel format.                       *\n*                                                                     *\n\\*********************************************************************/ \n\nBOOL BitmapsCompatible(LPBITMAP lpbm1, LPBITMAP lpbm2)\n\n{\n    if (lpbm1-&gt;bmBitsPixel != lpbm2-&gt;bmBitsPixel) return FALSE;\n    if (lpbm1-&gt;bmPlanes    != lpbm2-&gt;bmPlanes)    return FALSE;\n    if (lpbm1-&gt;bmWidth     != lpbm2-&gt;bmWidth)     return FALSE;\n    if (lpbm1-&gt;bmHeight    != lpbm2-&gt;bmHeight)    return FALSE;\n\n    return TRUE;\n}\n\n/*********************************************************************\\ \n*                                                                     *\n*  BOOL BlendImages(HBITMAP, HBITMAP, HBITMAP, DWORD);                *\n*                                                                     *\n*  Purpose:                                                           *\n*      Blends two source images into a destination image              *\n*      using a specified weighting value for the first source         *\n*      image.                                                         *\n*                                                                     *\n*  Notes:                                                             *\n*      All HBITMAP parameters must be 24 bit-per-pixel DIB sections.   *\n*      All HBITMAP parameters must have the same widths and heights.   *\n*      Weighting values must be in the range of 0 .. 255.              *\n*                                                                     *\n\\*********************************************************************/ \nBOOL BlendImages(HBITMAP hbmSrc1, HBITMAP hbmSrc2, HBITMAP hbmDst, DWORD dwWeight1)\n{\n    BITMAP bmSrc1, bmSrc2, bmDst;\n    RGBTRIPLE *lprgbSrc1, *lprgbSrc2, *lprgbDst;\n    DWORD dwWidthBytes, dwWeight2;\n    int x, y;\n    \n    // Only values between 0 and 255 are valid.\n    if (dwWeight1 &gt; 255) return FALSE;\n    \n    // Get weighting value for second source image.\n    dwWeight2 = 255-dwWeight1;\n    \n    // Get information about the surfaces you were passed.\n    if (!GetObject(hbmSrc1, sizeof(BITMAP), &amp;bmSrc1)) return FALSE;\n    if (!GetObject(hbmSrc2, sizeof(BITMAP), &amp;bmSrc2)) return FALSE;\n    if (!GetObject(hbmDst,  sizeof(BITMAP), &amp;bmDst))  return FALSE;\n\n    // Make sure you have data that meets your requirements.\n    if (!BitmapsCompatible(&amp;bmSrc1, &amp;bmSrc2)) return FALSE;\n    if (!BitmapsCompatible(&amp;bmSrc1, &amp;bmDst))  return FALSE;\n    if (bmSrc1.bmBitsPixel != 24) return FALSE;\n    if (bmSrc1.bmPlanes != 1) return FALSE;\n    if (!bmSrc1.bmBits || !bmSrc2.bmBits || !bmDst.bmBits) return FALSE;\n\n    dwWidthBytes = bmDst.bmWidthBytes;\n    \n    // Initialize the surface pointers.\n    lprgbSrc1 = bmSrc1.bmBits; \n    lprgbSrc2 = bmSrc2.bmBits;  \n    lprgbDst  = bmDst.bmBits;\n\n    for (y=0; y&lt;bmDst.bmHeight; y++) {\n        for (x=0; x&lt;bmDst.bmWidth; x++) {\n            lprgbDst[x].rgbtRed   = (BYTE)((((DWORD)lprgbSrc1[x].rgbtRed * dwWeight1) + \n                                            ((DWORD)lprgbSrc2[x].rgbtRed * dwWeight2)) &gt;&gt; <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->;\n            lprgbDst[x].rgbtGreen = (BYTE)((((DWORD)lprgbSrc1[x].rgbtGreen * dwWeight1) + \n                                            ((DWORD)lprgbSrc2[x].rgbtGreen * dwWeight2)) &gt;&gt; <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->;\n            lprgbDst[x].rgbtBlue  = (BYTE)((((DWORD)lprgbSrc1[x].rgbtBlue * dwWeight1) + \n                                            ((DWORD)lprgbSrc2[x].rgbtBlue * dwWeight2)) &gt;&gt; <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->;\n        }\n\n        // Move to next scan line.\n        lprgbSrc1 = (RGBTRIPLE *)((LPBYTE)lprgbSrc1 + dwWidthBytes);\n        lprgbSrc2 = (RGBTRIPLE *)((LPBYTE)lprgbSrc2 + dwWidthBytes);\n        lprgbDst  = (RGBTRIPLE *)((LPBYTE)lprgbDst  + dwWidthBytes);\n    }\n\n    return TRUE;\n}\n\n\nnecesito poder usarle en FWH\n\nGRACIAS POR LA AYUDA','',0,'','2syzzaxs',1,0,'',774,0,0),(34112,7449,3,80,0,'202.72.164.124',1183251787,1,0,1,1,1,0,'','File Transfer','Hi All\n\nI have a project that requires me to to get database from a know server using https - the client has a very secure network that wont allow FTP or allow their users to remote desktop out of their network.\n\nCheers\n\nColin','',0,'','2ttkwqr2',1,0,'',80,0,0),(34113,7446,6,73,0,'189.157.176.235',1183258463,1,0,1,1,1,0,'','','creo que ahi tienes que modificar la clase directamente, no he visto alguna variable para modificar eso,\nsalu2\npaco','',0,'','8k0pw6v0',1,0,'',73,0,0),(34114,7444,3,2,0,'87.218.146.57',1183271907,1,0,1,1,1,1,'','','Willy,\n\nTry to connect to your database and table using an application like Navicat (<!-- w --><a class=\"postlink\" href=\"http://www.navicat.com\">www.navicat.com</a><!-- w -->) and check if it works fine','',0,'','1x3ibkod',1,0,'',2,0,0),(34115,7449,3,2,0,'87.218.146.57',1183272093,1,0,1,1,1,1,'','','Colin,\n\nYou may send an email to Evans Bartzokas <!-- e --><a href=\"mailto:ebartzok@hol.gr\">ebartzok@hol.gr</a><!-- e --> as he commented on these forums that he has https working. Please make a search for https on these forums','',0,'','6nz7edmo',1,0,'',2,0,0),(34116,7448,6,2,0,'87.218.146.57',1183272239,1,0,1,1,1,1,'','','Eso no parece ser C++ sino estandard C.\n\nRevisa el directorio source/winapi de FWH en donde tienes montones de ejemplos de como implementar funciones en C <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nO sino busca en estos foros por BEGINDUMP','',0,'','1t205c6u',1,0,'',2,0,0),(34117,7444,3,473,0,'81.82.10.56',1183277432,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI\'ll try it asap.\n\nThe MySQL that I use is a version with PHP. It has already a management system.\n\nIs it possible that not all versions (i.e. version 5) are supported\n\nThanks\n\nWilly Hermans','',0,'','b4q8ge50',1,0,'',473,0,0),(34118,7444,3,473,0,'81.82.10.56',1183278439,1,0,1,1,1,0,'','','I\'ve just tested it with Navicat.\n\nThe connection works fine.\n\nGreetings\nWilly','',0,'','3e8ak45r',1,0,'',473,0,0),(34119,7444,3,2,0,'87.218.146.57',1183280429,1,0,1,1,1,1,'','','Willy,\n\n&gt; TABLE \"tabel1\"\n\nIsn\'t there a typo ? \"table1\" ?','',0,'','21xrwz6y',1,0,'',2,0,0),(34120,7444,3,473,0,'81.82.10.56',1183281572,1,0,1,1,1,0,'','','No tabel is just the dutch word for table\n\nGreetings\n\nWilly','',0,'','mu7lmiql',1,0,'',473,0,0),(34121,7427,6,1055,0,'84.125.133.194',1183282227,1,0,1,1,1,0,'','','Se me olvidaba, el nombre de la funcion debe escribirse en mayusculas. ¿Porqué? ni idea, pero:\n\nHB_FUNC( MiFuncion ) --&gt; [b:2n6y24t9]NO[/b:2n6y24t9] SE COMPILA ADECUADAMENTE\nHB_FUNC( MIFUNCION ) --&gt; [b:2n6y24t9]SI[/b:2n6y24t9] SE COMPILA ADECUADAMENTE\n\nAl menos eso me ha ocurrido a mi.\n\nPor cierto el CLP2HARB lo unico que hace es cambiar (con STRTRAN) \"[b:2n6y24t9]CLIPPER MiFunc( PARAMS )[/b:2n6y24t9]\" por \"[b:2n6y24t9]HB_FUNC( MiFunc )[/b:2n6y24t9]\", por eso, recuerda pasar a mayusculas el nombre de tu funcion C++.','',0,'QA==','2n6y24t9',1,0,'',1055,0,0),(34122,7448,6,1055,0,'84.125.133.194',1183282602,1,0,1,1,1,0,'','','A&amp;C, porque no te lees mi post de este mismo foro llamado \"[u:140oacc3]una de Verce[/u:140oacc3]\", especialmente los ultimos mensajes donde explico como conseguí compilar una funcion en C++ adaptada de Clipper a Harbour. Por cierto las funciones que expones creo que pueden servir como C++ para Clipper\nSuerte.\nSaludos','',0,'AQ==','140oacc3',1,0,'',1055,0,0),(34123,7450,6,838,0,'80.59.225.15',1183284672,1,0,1,1,1,0,'','Otra de Verce','Hola amigos\nHabeis intentado compilar con Verce desde Windows Vista?\nA mi se me queda colgado en el dialogo inicial, y ya no se ven las carpetitas moviendose, y tengo que aplicar la fuerza bruta para cerrar.\nSi es problema de configuración, a ver si alguien la sabe, y si es problema de compatibilidad, pues a utilizar XP de nuevo.\n\nSaludos\n\nGracias','',0,'AQ==','3ggaku13',1,0,'',838,0,0),(34124,7444,3,2,0,'87.218.146.57',1183285271,1,0,1,1,1,1,'','','ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease try using \"localhost\" in lower case or 127.0.0.1','',0,'AQ==','iptrnbya',1,0,'',2,0,0),(34125,7451,2,542,0,'83.42.233.246',1183287852,1,0,1,1,1,0,'','Problema con PRINT','Hola amigos:\n\nTengo que imprimir un impreso y debe ajustarse perfectamente, lo defino con oPrn:SetSize(2970,210) para ue tenga el tamaño que deseo, pero a la hora de probar si selecciono diferentes impresoras no todas me ponen estas dimensiones. alguen me puede ayudar.\n\nLa fuente que utilizo es \n\nPRINT oPrn PREVIEW\nDEFINE FONT oFont2 NAME \"LUCIDA CONSOLE\" SIZE 10, 9 OF oPrn\noPrn:Setup()\noPrn:nLogPixelX(tc101)\noPrn:nLogPixelY(tc102)\noPrn:SetPage(256)\noPrn:SetSize(2970,2100)\nstore oPrn:nVertRes()/70  to col\nstore oPrn:nHorzRes()/tc103 to fiz1\n\nTc101, tc102 y tc103 son variables para ver diferentes resoluciones.\n\nUn saludo\n\nCarlos','',0,'AQ==','3j1pnuup',1,0,'',542,0,0),(34126,7444,3,473,0,'81.82.10.56',1183290577,1,0,1,1,1,0,'','','After reinstalling MySQL and ODBC drivers the connection works\n\nThanks.\n\nWilly','',0,'AQ==','6p6q63jq',1,0,'',473,0,0),(34127,7449,3,159,0,'210.243.203.20',1183300814,1,0,1,1,1,0,'','Re: File Transfer','[quote=&quot;Colin Haig&quot;:2d65s11r]Hi All\n\nI have a project that requires me to to get database from a know server using https - the client has a very secure network that wont allow FTP or allow their users to remote desktop out of their network.\nColin[/quote:2d65s11r]\n\nYou can reference wininet.','',0,'gA==','2d65s11r',1,0,'',159,0,0),(34128,7444,3,473,0,'81.82.10.56',1183301996,1,0,1,1,1,0,'','','Now I\'ve tried to connect from another pc.\n\nThis does still not work.\n\nI\'ve tried with the ip adres of the pc that holds the mysql server software.\n\nI\'ve tried with the networkname of the pc...\n\nI\'ve tried with \"\\\\pcname\\localhost\" and so on.\n\nWhat are exacly the possibilities for adressing the connection.\n\nThanks,\n\nWilly Hermans\n\nMS-SQL works already from a network pc','',0,'gA==','lsifk5ba',1,0,'',473,0,0),(34129,7433,6,1086,0,'200.5.242.52',1183305861,1,0,1,1,1,0,'','para sysctrl2','para sysctrl2\n\nHola, te envie un correo,confirmame si llego, salu2\nFernando','',0,'gA==','1kx5mo9s',1,0,'',1086,0,0),(34130,7444,3,2,0,'87.218.146.57',1183306633,1,0,1,1,1,1,'','','Willy,\n\n&gt; What are exacly the possibilities for adressing the connection\n\nWe don\'t know it for sure. ADORDD is just a layer that uses ADO. If ADO works then the ADORDD should work too.','',0,'gA==','2djuqlbr',1,0,'',2,0,0),(34133,7451,2,1095,0,'80.35.166.25',1183307803,1,0,1,1,1,0,'','','Hola Carlos:\n\nSi trabajas en cm no tendrás ese problema.\n\nEjemplo:\n\nPRINT oPrn PREVIEW\n\n... Defines tus fonts ...\n\noPrn:StartPage()     // Inicio de página\n\noPrn:CmSay( nCmLin,nCmCol,cVar,oFont )\n... imprimes todos  tus campos, variables, etc..\n\noPrn:EndPage()      // Fin de página\n\n... si tienes mas páginas repites los pasos anteriores.\n\nENDPRINT','',0,'EA==','3fgikgmj',1,0,'',1095,0,0),(34134,7436,3,130,0,'84.138.15.96',1183313345,1,0,1,1,1,1,'','','Antonio,\n\nmany thanks, it´s working.\n\nBut when i try to show the window again (oWnd:Show() ), it´s only shown in the taskbar. Do i miss something to restore it completely ?','',0,'EA==','2mg721oy',1,0,'',130,0,0),(34135,6814,3,148,0,'196.205.112.247',1183316193,1,0,1,1,1,0,'','','I got that error :\n\nCompiling...\nHarbour Alpha build 1.0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'access1.prg\' and generating preprocessed output to \'access1.ppo\'...\nLines 3712, Functions/Procedures 1\nGenerating C source output to \'access1.c\'... Done.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\naccess1.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_rddGetWorkAreaPointer\' referenced from E:\\COMPIL\nER\\CLIPPER\\FWH\\LIB\\USRRDD.LIB|usrrdd\nError: Unresolved external \'_HB_FUN_HB_ISLOGICAL\' referenced from E:\\COMPILER\\CL\nIPPER\\FWH\\LIB\\HBOLEAUT.LIB|win32ole\n* There are errors\n\n\n[code:3abv03mp]\nrem Uncomment these two lines to use Advantage RDD\necho %fwhdir%\\lib\\adordd&#46;lib + &gt;&gt; b32&#46;bc\necho %fwhdir%\\lib\\usrrdd&#46;lib + &gt;&gt; b32&#46;bc\necho %fwhdir%\\lib\\hboleaut&#46;lib + &gt;&gt; b32&#46;bc\n\necho %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\Ads32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\odbc32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\nddeapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\iphlpapi&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\psdk\\rasapi32&#46;lib , &gt;&gt; b32&#46;bc\n\n[/code:3abv03mp]','',0,'AIA=','3abv03mp',1,0,'',148,0,0),(34136,7436,3,2,0,'87.218.146.57',1183321519,1,0,1,1,1,1,'','','Stefan,\n\nTry:\n\noWnd:Restore(), oWnd:Show()','',0,'AIA=','3cwqji34',1,0,'',2,0,0),(34137,6814,3,2,0,'87.218.146.57',1183321671,1,0,1,1,1,1,'','','Ehab,\n\nDownload the most recent Harbour build for FWH from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'AIA=','3ayztdmo',1,0,'',2,0,0),(34138,7452,6,533,0,'88.8.19.193',1183331529,1,0,1,1,1,0,'','Otra inclusión en C','Buenas Noches foro!!\n\nestoy intentando incluir la clase de los menus xp, y me viene con 2 ficheros en c\n\ngradfill.c\n\n[code:1m6mkbjb]\n#include &lt;WinTen&#46;h&gt;   \n#include &lt;Windows&#46;h&gt;\n#include &lt;hbApi&#46;h&gt;  \n#include &lt;commctrl&#46;h&gt;\n#include &lt;StdLib&#46;h&gt;\n\nvoid DegradColor&#40; HDC hDC, RECT * rori, COLORREF cFrom, COLORREF cTo, int iType, int iRound &#41;\n&#123;\n   int clr1r, clr1g, clr1b, clr2r, clr2g, clr2b ;\n   signed int iEle, iRed, iGreen, iBlue, iTot, iHalf ;\n   BOOL bHorz = &#40; iType == 2 || iType == 4 &#41; ;\n   BOOL bDir ;\n   RECT rct ;\n   HPEN hOldPen, hPen ;\n   LOGBRUSH lb ;\n   HBRUSH hOldBrush, hBrush, hNull ;\n\n   rct&#46;top = rori-&gt;top ;\n   rct&#46;left = rori-&gt;left ;\n   rct&#46;bottom = rori-&gt;bottom ;\n   rct&#46;right = rori-&gt;right ;\n\n 	iTot   = &#40; ! bHorz ? &#40; rct&#46;bottom  - rct&#46;top + 1 &#41; &#58; &#40; rct&#46;right - rct&#46;left + 1 &#41; &#41; ;\n\n   iHalf  = iTot / 2 ;\n	lb&#46;lbStyle = BS_NULL ;\n	hNull  = CreateBrushIndirect&#40;&amp;lb&#41; ;\n\n   clr1r = GetRValue&#40; cFrom &#41; ;\n   clr1g = GetGValue&#40; cFrom &#41; ;\n   clr1b = GetBValue&#40; cFrom &#41; ;\n\n   clr2r = GetRValue&#40; cTo &#41; ;\n   clr2g = GetGValue&#40; cTo &#41; ;\n   clr2b = GetBValue&#40; cTo &#41; ;\n\n   iRed   =  abs&#40; clr2r - clr1r &#41; ;\n   iGreen =  abs&#40; clr2g - clr1g &#41; ;\n   iBlue  =  abs&#40; clr2b - clr1b &#41; ;\n\n   iRed   = &#40; iRed &lt;= 0 ? 0 &#58; &#40; iRed / iTot &#41; &#41;;\n   iGreen = &#40; iGreen &lt;= 0 ? 0 &#58; &#40; iGreen / iTot &#41; &#41; ;\n   iBlue  = &#40; iBlue &lt;= 0 ? 0 &#58; &#40; iBlue / iTot &#41; &#41; ;\n\n   if&#40; iType == 3 || iType == 4 &#41;\n   &#123;\n   	iRed   *= 2 ;\n      iGreen *= 2 ;\n      iBlue  *= 2 ;\n   &#125;\n\n   if&#40; iType == 5 &#41;\n   &#123;\n      rct&#46;top  += &#40; &#40; rct&#46;bottom - rct&#46;top &#41; / 2 &#41; ;\n      rct&#46;left += &#40; &#40; rct&#46;right - rct&#46;left &#41; / 2 &#41; ;\n      rct&#46;top  -= &#40; &#40; rct&#46;bottom - rct&#46;top &#41; / 3 &#41; ;\n      rct&#46;bottom = rct&#46;top + 2 ;\n      rct&#46;right  = rct&#46;left + 2 ;\n   &#125;\n   else\n   &#123;\n   	if&#40; ! bHorz &#41;\n	   	rct&#46;bottom = rct&#46;top + 1 ;\n	   else\n   		rct&#46;right = rct&#46;left + 1 ;\n   &#125;\n\n\n   if&#40; iType == 5 &#41;\n   &#123;\n	   hPen      = CreatePen&#40; PS_SOLID, 1, RGB&#40; clr2r, clr2g, clr2b &#41; &#41; ;\n   	hOldPen   = SelectObject&#40; hDC, hPen &#41; ;\n		hBrush    = CreateSolidBrush&#40; RGB&#40; clr2r, clr2g, clr2b &#41; &#41; ;\n   	hOldBrush = SelectObject&#40; hDC, hBrush &#41; ;\n      if&#40; iRound == 1 &#41;\n	  		Ellipse&#40; hDC, rori-&gt;left, rori-&gt;top, rori-&gt;right, rori-&gt;bottom &#41; ;\n      else\n	  		RoundRect&#40; hDC, rori-&gt;left, rori-&gt;top, rori-&gt;right, rori-&gt;bottom, 16, 16 &#41; ;\n\n   	SelectObject&#40; hDC, hOldBrush &#41; ;\n  	   DeleteObject&#40; hBrush &#41; ;\n   	SelectObject&#40; hDC, hOldPen &#41; ;\n  	   DeleteObject&#40; hPen &#41; ;\n	   hPen    = CreatePen&#40; PS_SOLID, 2, RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n   	hOldPen = SelectObject&#40; hDC, hPen &#41; ;\n   	SelectObject&#40; hDC, hNull &#41; ;\n      if&#40; iRound == 1 &#41;\n	  		Ellipse&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right, rct&#46;bottom &#41; ;\n      else\n	  		RoundRect&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right, rct&#46;bottom, 16, 16 &#41; ;\n\n   &#125;\n   else\n   &#123;\n	   hPen      = CreatePen&#40; PS_SOLID, 1, RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n   	hOldPen   = SelectObject&#40; hDC, hPen &#41; ;\n		hBrush    = CreateSolidBrush&#40; RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n   	hOldBrush = SelectObject&#40; hDC, hBrush &#41; ;\n   &#125;\n\n   for&#40; iEle = 1; iEle &lt; iTot; iEle++ &#41;\n   &#123;\n\n		if&#40; iType &gt; 2 &amp;&amp; iType &lt; 5 &amp;&amp; iEle &gt; iHalf &#41;\n      &#123;\n      	clr2r = GetRValue&#40; cFrom &#41; ;\n   		clr2g = GetGValue&#40; cFrom &#41; ;\n   		clr2b = GetBValue&#40; cFrom &#41; ;\n      &#125;\n\n      bDir = &#40; clr2r &gt; clr1r ? TRUE &#58; FALSE &#41; ;\n      if&#40; bDir &#41;\n      	clr1r += iRed ;\n      else\n      	clr1r -= iRed ;\n\n      clr1r = &#40; clr1r &lt; 0 ? 0 &#58; clr1r &gt; 255 ? 255 &#58; clr1r &#41; ;\n\n      bDir = &#40; clr2g &gt; clr1g ? TRUE &#58; FALSE  &#41; ;\n      if&#40; bDir &#41;\n      	clr1g += iGreen ;\n      else\n      	clr1g -= iGreen ;\n\n      clr1g = &#40; clr1g &lt; 0 ? 0 &#58; clr1g &gt; 255 ? 255 &#58; clr1g &#41; ;\n\n      bDir = &#40; clr2b &gt; clr1b ? TRUE &#58; FALSE  &#41; ;\n\n      if&#40; bDir &#41;\n      	clr1b += iBlue ;\n      else\n      	clr1b -= iBlue ;\n\n      clr1b = &#40; clr1b &lt; 0 ? 0 &#58; clr1b &gt; 255 ? 255 &#58; clr1b &#41; ;\n\n      if&#40; iType == 5 &#41;\n      &#123;\n		      SelectObject&#40; hDC, hOldBrush &#41; ;\n   		   DeleteObject&#40; hNull &#41; ;\n				hNull  = CreateBrushIndirect&#40;&amp;lb&#41; ;\n		      SelectObject&#40; hDC, hNull &#41; ;\n   	      SelectObject&#40; hDC, hOldPen &#41; ;\n      		DeleteObject&#40; hPen &#41; ;\n   			hPen = CreatePen&#40; PS_SOLID, 2, RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n	      	SelectObject&#40; hDC, hPen &#41; ;\n   	   if&#40; iRound == 1 &#41;\n   			Ellipse&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1 &#41; ;\n	      else\n   			RoundRect&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1, 16, 16 &#41; ;\n\n	      if&#40; iRound == 1 &#41;\n   			Ellipse&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1 &#41; ;\n      	else\n   			RoundRect&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1, 16, 16 &#41; ;\n\n	       	rct&#46;top    -= &#40; rct&#46;top &lt;= rori-&gt;top ? 0 &#58; 1 &#41; ;\n   	    	rct&#46;left   -= &#40; rct&#46;left &lt;= rori-&gt;left ? 0 &#58; 1 &#41;;\n      	 	rct&#46;bottom +=  &#40; rct&#46;bottom &gt;= rori-&gt;bottom ? 0 &#58; 1 &#41; ;\n       		rct&#46;right  +=  &#40; rct&#46;right &gt;= rori-&gt;right ? 0 &#58; 1 &#41; ;\n	   &#125;\n      else\n      &#123;\n	      SelectObject&#40; hDC, hOldBrush &#41; ;\n   	   DeleteObject&#40; hBrush &#41; ;\n      	hBrush = CreateSolidBrush&#40; RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n	      SelectObject&#40; hDC, hBrush &#41; ;\n\n      	FillRect&#40; hDC, &amp;rct, hBrush &#41; ;\n\n      	if&#40; ! bHorz &#41;\n      	&#123;\n	 			rct&#46;top++ ;\n   	   	rct&#46;bottom++ ;\n      	&#125;\n      	else\n      	&#123;\n      		rct&#46;left++ ;\n         	rct&#46;right++ ;\n      	&#125;\n      &#125;\n   &#125;\n	SelectObject&#40; hDC, hOldBrush &#41; ;\n	SelectObject&#40; hDC, hOldPen &#41; ;\n   DeleteObject&#40; hBrush &#41; ;\n   DeleteObject&#40; hPen &#41; ;\n   DeleteObject&#40; hNull &#41; ;\n&#125;\n\n//---------------------------------------------------------------------------//\n\nvoid DegardeFill&#40; HDC hDC, RECT* rct, COLORREF crStart, COLORREF crEnd, int bVertical &#41;\n    &#123;\n       int nSegments = 100;\n       COLORREF cr;\n       int nR      = GetRValue&#40;crStart&#41;;\n       int nG      = GetGValue&#40;crStart&#41;;\n       int nB      = GetBValue&#40;crStart&#41;;\n       int neB     = GetBValue&#40;crEnd&#41;;\n       int neG     = GetGValue&#40;crEnd&#41;;\n       int neR     = GetRValue&#40;crEnd&#41;;\n       int nDiffR  = &#40;neR - nR&#41;;\n       int nDiffG  = &#40;neG - nG&#41;;\n       int nDiffB  = &#40;neB - nB&#41;;\n       int ndR ;\n       int ndG ;\n       int ndB ;\n       int nCX ;\n       int nCY ;\n       int nTop    = rct-&gt;top;\n       int nBottom = rct-&gt;bottom;\n       int nLeft   = rct-&gt;left;\n       int nRight  = rct-&gt;right;\n       HBRUSH hBrush;\n       RECT rc;\n\n       int i;\n\n       if&#40; !bVertical &#41;\n       &#123;\n          if&#40; nSegments &gt; &#40; rct-&gt;right - rct-&gt;left &#41; &#41;\n          &#123;\n            nSegments = &#40; rct-&gt;right - rct-&gt;left &#41;;\n          &#125;\n       &#125;\n       else\n       &#123;\n          if&#40; nSegments &gt; &#40; rct-&gt;bottom - rct-&gt;top &#41; &#41;\n          &#123;\n            nSegments = &#40; rct-&gt;bottom - rct-&gt;top &#41;;\n          &#125;\n       &#125;\n\n       ndR = 256 * &#40;nDiffR&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       ndG = 256 * &#40;nDiffG&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       ndB = 256 * &#40;nDiffB&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       nCX = &#40;rct-&gt;right-rct-&gt;left&#41; / max&#40;nSegments,1&#41;;\n       nCY = &#40;rct-&gt;bottom-rct-&gt;top&#41; / max&#40;nSegments,1&#41;;\n\n       nR *= 256;\n       nG *= 256;\n       nB *= 256;\n\n       for &#40;i = 0; i &lt; nSegments; i++, nR += ndR, nG += ndG, nB += ndB&#41;\n       &#123;\n\n               if&#40;i == &#40;nSegments - 1&#41;&#41;\n               &#123;\n                  nRight  = rct-&gt;right;\n                  nBottom = rct-&gt;bottom;\n               &#125;\n               else\n               &#123;\n                  nBottom = nTop + nCY;\n                  nRight = nLeft + nCX;\n               &#125;\n\n               cr = RGB&#40;nR / 256, nG / 256, nB / 256&#41;;\n\n               &#123;\n                  hBrush = CreateSolidBrush&#40; cr &#41;;\n                  if&#40; bVertical &#41;\n                  &#123;\n                     rc&#46;top    = nTop;\n                     rc&#46;left   = rct-&gt;left;\n                     rc&#46;bottom = nBottom + 1;\n                     rc&#46;right  = rct-&gt;right;\n                  &#125;\n                  else\n                  &#123;\n                     rc&#46;top    = rct-&gt;top;\n                     rc&#46;left   = nLeft;\n                     rc&#46;bottom = rct-&gt;bottom;\n                     rc&#46;right  = nRight+1;\n                  &#125;\n                  FillRect&#40;hDC, &amp;rc, hBrush &#41;;\n                  DeleteObject&#40; hBrush &#41;;\n               &#125;\n\n               nLeft = nRight;\n               nTop = nBottom;\n       &#125;\n    &#125;\n\nCOLORREF MixedColor&#40;COLORREF colorA,COLORREF colorB&#41;\n&#123;\n  // &#40; 86a + 14b &#41; / 100\n  int red   = MulDiv&#40;86,GetRValue&#40;colorA&#41;,100&#41; + MulDiv&#40;14,GetRValue&#40;colorB&#41;,100&#41;;\n  int green = MulDiv&#40;86,GetGValue&#40;colorA&#41;,100&#41; + MulDiv&#40;14,GetGValue&#40;colorB&#41;,100&#41;;\n  int blue  = MulDiv&#40;86,GetBValue&#40;colorA&#41;,100&#41; + MulDiv&#40;14,GetBValue&#40;colorB&#41;,100&#41;;\n\n  return RGB&#40; min&#40;red,0xff&#41;,min&#40;green,0xff&#41;, min&#40;blue,0xff&#41;&#41;;\n&#125;\n\nCOLORREF MidColor&#40;COLORREF colorA,COLORREF colorB&#41;\n&#123;\n  // &#40;7a + 3b&#41;/10\n  int red   = MulDiv&#40;7,GetRValue&#40;colorA&#41;,10&#41; + MulDiv&#40;3,GetRValue&#40;colorB&#41;,10&#41;;\n  int green = MulDiv&#40;7,GetGValue&#40;colorA&#41;,10&#41; + MulDiv&#40;3,GetGValue&#40;colorB&#41;,10&#41;;\n  int blue  = MulDiv&#40;7,GetBValue&#40;colorA&#41;,10&#41; + MulDiv&#40;3,GetBValue&#40;colorB&#41;,10&#41;;\n\n  return RGB&#40; min&#40;red,0xff&#41;,min&#40;green,0xff&#41;, min&#40;blue,0xff&#41;&#41;;\n&#125;\n\nCOLORREF GrayColor&#40;COLORREF crColor&#41;\n&#123;\n  int Gray  = &#40;&#40;&#40;int&#41;GetRValue&#40;crColor&#41;&#41; + GetGValue&#40;crColor&#41; + GetBValue&#40;crColor&#41;&#41;/3;\n\n  return RGB&#40; Gray,Gray,Gray&#41;;\n&#125;\n\nBOOL IsLightColor&#40;COLORREF crColor&#41;\n&#123;\n  return &#40;&#40;&#40;int&#41;GetRValue&#40;crColor&#41;&#41; + GetGValue&#40;crColor&#41; + GetBValue&#40;crColor&#41;&#41;&gt;&#40;3*128&#41;;\n&#125;\n\nCOLORREF BleachColor&#40;int Add, COLORREF color&#41;\n&#123;\n  return RGB&#40; min &#40;GetRValue&#40;color&#41;+Add, 255&#41;,\n              min &#40;GetGValue&#40;color&#41;+Add, 255&#41;,\n              min &#40;GetBValue&#40;color&#41;+Add, 255&#41;&#41;;\n&#125;\n//------------------------------------------------------//\nHARBOUR HB_FUN_DARKENCOLORXP&#40;&#41; //COLORREF lcolor&#41;\n&#123;\n  COLORREF lcolor = hb_parnl&#40;1&#41;;\n  hb_retnl&#40; RGB&#40; MulDiv&#40;GetRValue&#40;lcolor&#41;,7,10&#41;,\n                 MulDiv&#40;GetGValue&#40;lcolor&#41;,7,10&#41;,\n                 MulDiv&#40;GetBValue&#40;lcolor&#41;+55,7,10&#41;&#41; &#41;;\n&#125;\n//------------------------------------------------------//\nHARBOUR HB_FUN_DARKENCOLOR&#40;&#41; // long lScale, COLORREF lColor&#41;\n&#123;\n  COLORREF lColor = hb_parnl&#40;2&#41;;\n  LONG lScale = hb_parni&#40;1&#41;;\n\n  long red   = MulDiv&#40;GetRValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long green = MulDiv&#40;GetGValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long blue  = MulDiv&#40;GetBValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n\n  hb_retnl&#40; RGB&#40;red, green, blue&#41;&#41;;\n&#125;\n\nCOLORREF DarkenColor&#40;long lScale, COLORREF lColor&#41;\n&#123;\n\n  long red   = MulDiv&#40;GetRValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long green = MulDiv&#40;GetGValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long blue  = MulDiv&#40;GetBValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n\n  return&#40; RGB&#40;red, green, blue&#41;&#41;;\n&#125;\n\n//-------------------------------------------------------//\nHARBOUR HB_FUN_LIGHTCOLOR&#40; &#41; //long lScale, COLORREF lColor&#41;\n&#123;\n  COLORREF lColor = hb_parnl&#40;2&#41;;\n  LONG lScale = hb_parni&#40;1&#41;;\n\n  long R = MulDiv&#40;255-GetRValue&#40;lColor&#41;,lScale,255&#41;+GetRValue&#40;lColor&#41;;\n  long G = MulDiv&#40;255-GetGValue&#40;lColor&#41;,lScale,255&#41;+GetGValue&#40;lColor&#41;;\n  long B = MulDiv&#40;255-GetBValue&#40;lColor&#41;,lScale,255&#41;+GetBValue&#40;lColor&#41;;\n\n  hb_retnl&#40; RGB&#40;R, G, B&#41; &#41;;\n&#125;\n\nCOLORREF LightenColor&#40; long lScale, COLORREF lColor&#41;\n&#123;\n  long R = MulDiv&#40;255-GetRValue&#40;lColor&#41;,lScale,255&#41;+GetRValue&#40;lColor&#41;;\n  long G = MulDiv&#40;255-GetGValue&#40;lColor&#41;,lScale,255&#41;+GetGValue&#40;lColor&#41;;\n  long B = MulDiv&#40;255-GetBValue&#40;lColor&#41;,lScale,255&#41;+GetBValue&#40;lColor&#41;;\n\n  return&#40; RGB&#40;R, G, B&#41; &#41;;\n&#125;\n\n//-------------------------------------//\n\nHARBOUR HB_FUN_DEGRADADO&#40;&#41;\n   &#123;\n           RECT rct;\n\n           rct&#46;top      = hb_parni&#40; 2, 1 &#41;;\n           rct&#46;left     = hb_parni&#40; 2, 2 &#41;;\n           rct&#46;bottom   = hb_parni&#40; 2, 3 &#41;;\n           rct&#46;right    = hb_parni&#40; 2, 4 &#41;;\n\n           DegardeFill&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; , &amp;rct, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parl&#40;5&#41; &#41;;\n   &#125;\n\n\n\n[/code:1m6mkbjb]\n\ny despues de las soluciones correcta de Antonio en otra clase que me indico, se me ocurrió escribir esto:\n\n[code:1m6mkbjb]\n\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt; \n#include &lt;hbapi&#46;h&gt; \n\nHB_FUNC&#40; DEGRADADO &#41; \n&#123; \n    RECT rct;\n    rct&#46;top      = hb_parni&#40; 2, 1 &#41;;\n    rct&#46;left     = hb_parni&#40; 2, 2 &#41;;\n    rct&#46;bottom   = hb_parni&#40; 2, 3 &#41;;\n    rct&#46;right    = hb_parni&#40; 2, 4 &#41;;\n    DegardeFill&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; , &amp;rct, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parl&#40;5&#41; &#41;;\n&#125; \n#pragma ENDDUMP [/code:1m6mkbjb]\n\npero me dice que no encuentra la función degardefill, me podeis ayudar GRACIAS!!.','',0,'AIA=','1m6mkbjb',1,0,'',533,0,0),(34139,7447,6,935,0,'200.62.78.249',1183335825,1,0,1,1,1,1,'','hay que redefinir....','Antonio,\n\nGracias por tu contesatcion segun te entiendo, si puedo desarrollar mi aplicacion en fivelinux con sintaxis fivewin aunque no puedo recompilar el codigo fwh y migrarlo tan literal como de fw16 a fwh.\n\nPregunto, que parte de la programacion tocaria que redefinir o replantear  , browses ?, menues, dialogos ? reportes ?  quisiera una breve orientacion al respecto,\n\nGracias,\n\nRamon Antonio Paredes\nManagua, Nicaragua','',0,'AIA=','2w46mraz',1,0,'',935,0,0),(34140,7446,6,72,0,'189.136.200.4',1183346724,1,0,1,1,1,0,'','','Esa situación se presenta cuando las series solo tienen un valor, he aqui el ajuste:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/TGraph.Prg\">http://www.despachoarteaga.com.mx/TGraph.Prg</a><!-- m -->','',0,'AIA=','1bw2c583',1,0,'',72,0,0),(34141,7446,6,171,0,'71.233.232.238',1183350705,1,0,1,1,1,0,'','','Alfredo,\n\nTu has podido duplicar el problema que se me presenta al usar tGraph + xHarbour de que no funciona Save2Bmp() ?\n\nSaludos,\n\nGeorge','',0,'AIA=','2t73u9p7',1,0,'',171,0,0),(34142,7452,6,2,0,'87.218.146.57',1183353565,1,0,1,1,1,1,'','','Te falta especificar su declaración para que el compilador de C sepa de que se trata:\n[code:233x1rc9]\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt; \n#include &lt;hbapi&#46;h&gt; \n\nvoid DegardeFill&#40; HDC hDC, RECT* rct, COLORREF crStart, COLORREF crEnd, int bVertical &#41;;\n\nHB_FUNC&#40; DEGRADADO &#41; \n&#123; \n    RECT rct; \n    rct&#46;top      = hb_parni&#40; 2, 1 &#41;; \n    rct&#46;left     = hb_parni&#40; 2, 2 &#41;; \n    rct&#46;bottom   = hb_parni&#40; 2, 3 &#41;; \n    rct&#46;right    = hb_parni&#40; 2, 4 &#41;; \n    DegardeFill&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; , &amp;rct, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parl&#40;5&#41; &#41;; \n&#125; \n#pragma ENDDUMP\n[/code:233x1rc9]','',0,'AIA=','233x1rc9',1,0,'',2,0,0),(34143,7447,6,2,0,'87.218.146.57',1183353770,1,0,1,1,1,1,'','','Ramón,\n\n&gt;\nGracias por tu contestacion segun te entiendo, si puedo desarrollar mi aplicacion en fivelinux con sintaxis fivewin aunque no puedo recompilar el codigo fwh y migrarlo tan literal como de fw16 a fwh. \n&gt;\n\nSi, así es\n\n&gt;\nPregunto, que parte de la programacion tocaria que redefinir o replantear , browses ?, menues, dialogos ? reportes ? quisiera una breve orientacion al respecto,\n&gt;\n\nImagina que estuvieses usando una versión de FiveWin 1.x, no la actual muchísimo más completa','',0,'AIA=','1nwrob8d',1,0,'',2,0,0),(34144,6303,4,106,0,'85.34.123.173',1183361830,1,0,1,1,1,1,'','','Vilian,\n\nA solution (not the best, but a solution):\n\nUse pocket rar in your pocket for create a file rar (command line --&gt; rar a \\your dir\\yourfile.rar \\another dir\\your file.dbf) \n\nIn your PC, use for example 7 Zip, to unrar the file (command line --&gt; 7z.exe yourfile.rar)\n\n\nPocketRar and 7Zip are free.\n\n\nRegards','',0,'AIA=','3aq4m7jf',1,0,'',106,0,0),(34145,7436,3,130,0,'141.51.32.24',1183361843,1,0,1,1,1,1,'','','Antonio,\n\nworks perfectly <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\n\nmany thanks','',0,'AIA=','15lfzir1',1,0,'',130,0,0),(34146,7444,3,473,0,'81.82.10.56',1183370240,1,0,1,1,1,0,'','','Thanks Fernando,\n\nI\'ve done some tests.\n\nThere seems to be something wrong with the MySQL server.\n\nI have reinstalled the server several times.\n\nWhen I use EasyPhp 1.7 or 1.8  (This includes MySQL 5) the program works local but the server is not detected at another PC in the network.\n\nI have used navicat and MySQL Administrator.\n\nMaybe the MySQL server is automatically installed as a local server.\nI can not find a setting to change that.\n\nWhen I do\'nt use EasyPHP but the usual MySQL 5 the program does not work on any pc. In that case I have a connection error but the server is detected on other pc\'s.\n\nI think I have to search a forum for MySQL beginners.\n\nSomeone any idea ?\n\nThanks.\n\nWilly.','',0,'AIA=','ffeg0wl3',1,0,'',473,0,0),(34147,7439,6,960,0,'217.12.16.50',1183372170,1,0,1,1,1,0,'','','Estimados compañeros:\n\nPartiendo de la base de que FWH 2.7 + xHarbour 0.99.60 son totalmente compatibles, me dediqué a revisar todo el codigo fuente (trabajo de chino) con más de 65 PRG\'s y gracias al metodo de \"prueba y error\" descubrí que lo que me generaba este error eran algunos \"Olistbox:UpStable()\" insertados en determinados PRG (OJO: no en todos!!)\n\nTodavía, despues de varios días, no consigo una explicación lógica al problema. Eliminé estos olistbox:upstable() y ahora mi EXE es totalmente solido y estable. Con FWH 2.4 estaban todos los upstable() y con FWH 2.7 he tenido que quitar algunos.\n¿Alguien se lo explica?\nMil gracias.\nLORENZO.','',0,'AIA=','39fmtx12',1,0,'',960,0,0),(34148,7453,7,720,0,'80.36.244.134',1183377304,1,0,1,1,1,0,'','como sincronizar la fecha y la hora al conectar a un equipo.','Hola a todos....\n\nAntes que nada saludar a todos ya que llevo un tiempo si aparecer por aqui...He estado un poco perdido con otros proyectos y ahora estoy metido en otra encrucijada y se me presenta un problema...os cuento:\n\nResulta que cuando realizo una conexión con un equipo desde el dispositivo PDA necesitaria saber, si se puede y de que manera, sincronizar exactamente la misma fecha y hora del equipo para dejar la PDA con los mismos datos....\n\nEs decir, que cuando enganche con el servidor, la PDA sea capaz de leer la fecha y hora que tiene el servidor y automáticamente actualizarse a la misma fecha y hora..\n\n\nSaludos y gracias a todos.\n\nElías Torres.','',0,'AIA=','13fzuuid',1,0,'',720,0,0),(34149,7454,6,509,0,'80.34.248.50',1183377782,1,0,1,1,1,0,'','hbcomm Adnormal Termination Program','Hola:\n\n     Tengo la siguiente rutina para consultar los Kilos de un visor de báscula me aparece el error \"Adnormal Termination Program\" cuando ejecuta la instrucción:\n    Init_Port(\"COM1\",9600,0,8,1,1024)\n\n\n\n    Utilizo Harbour Compiler Alpha build 45.0 (Flex), FWH 2.7  y enlazo elHBCOMM.LIB y HBCOMM.C \n\n   ¿Qué hago mal?\n\nSaludos.\nRicardo Patón\n<!-- e --><a href=\"mailto:rpaton@teleline.es\">rpaton@teleline.es</a><!-- e -->\n\n\n\n\n\n\nFUNCTION VisorEPEL()             // Visor EPEL Rojo\n   LOCAL cOld:=select()\n   LOCAL cInput:=space(visor-&gt;buff_size)\n\n   IF ! Init_Port(\"COM1\",9600,0,8,1,1024)\n       MsgStop(OemToAnsi(\"No se ha podido establecer comunicaci¢n con el Visor\"))\n      RETURN 0\n   ENDIF\n\n   OutBufClr()\n   OutChr(\"$\")\n   SysWait(visor-&gt;timeout)\n   SysRefresh()\n\n   InChr(visor-&gt;buff_size)\n\n   cInput := substr(cInput, visor-&gt;byteini, visor-&gt;bytefin)\n\n   UnInt_Port()\n\n   dbSelectArea(cOld)\nRETURN val(cInput)','',0,'AIA=','1oori8b6',1,0,'',509,0,0),(34150,7454,6,2,0,'87.218.146.80',1183381053,1,0,1,1,1,1,'','','Ricardo,\n\n&gt; Utilizo Harbour Compiler Alpha build 45.0 (Flex), FWH 2.7 y enlazo el HBCOMM.LIB\n\nLa versión de HBCOMM.lib que usas está compilada con esa misma versión de Harbour ?','',0,'AIA=','2r95218i',1,0,'',2,0,0),(34151,7442,6,1090,0,'201.254.29.99',1183381897,1,0,1,1,1,0,'','','Hola; gracias, ya encontre lo que era; tenia un recurso definido como \"tbitmap\"; encima lo tenia y no lo estaba usando; lo saque y funciono perfecto. Gracias. \n\n[quote=&quot;karinha&quot;:28wd9rzb]mira si no estais usando una TSBROWSE en vez de una TWBROWSE O UN CONTOLE BORLAND EN EL DIALOGO.[/quote:28wd9rzb]','',0,'gA==','28wd9rzb',1,0,'',1090,0,0),(34152,7364,6,1090,0,'201.254.29.99',1183381975,1,0,1,1,1,0,'','','Hola; gracias, ya encontre lo que era; tenia un recurso definido como \"tbitmap\"; encima lo tenia y no lo estaba usando; lo saque y funciono perfecto. Gracias. \n\n\n\n[quote=&quot;diegopolverelli&quot;:26in7x3y]Hola. ¿pudiste ver que era lo del ART_ALT? ademas, ¿me podes indicar un ejemplo donde se usen get\'s definidos en una dll externa para ingresar una fecha? o si hay que poner algun PICTURE, o similar.  En samples hay un programa llamado datetime.prg, pero no usa dlls, y usa una clase dtpicker. ¿tenes idea como hay que definir el combo en la dll para luego asignarle un dtpicker?, por ej., lo del folder que ahora se poner \"SYSTAB32\" o algo asi en lugar de \"Tfolder\". Gracias. Atte.\n\nDisculpá que te jorobe tanto, pero me funcióno todo (y tengo una aplicación bastante grossa) y solamente me falta esto, para ponerla operativa. Gracias...!!!\n\n[quote=&quot;Antonio Linares&quot;:26in7x3y]&gt; dialogo \"art_alt\"\n\nQue controles tiene ese diálogo ? Copia aqui la porción del RC correspodiente a ese diálogo[/quote:26in7x3y][/quote:26in7x3y]','',0,'gA==','26in7x3y',1,0,'',1090,0,0),(34153,7455,6,644,0,'190.136.250.102',1183381980,1,0,1,1,1,0,'','button con temas xp','Quiero implemetar este tipo de botones y he visto el prg \\samples\\testbubm.prg. Miré el rc y está el archivo de  cabecera winapi.ch. Modifiqué los button por buttonbmp. Incluí el archivo de cabecera en el rc que poseo y al compilar me tira una cantidad de warnings y algún error. Si no incluyo este archivo los botones se ven normales ( No XP ). Uso PellesC. Alguna Idea. Muchas gracias por adelantado','',0,'gA==','2w12uwn8',1,0,'',644,0,0),(34154,7437,6,147,0,'190.31.87.30',1183383841,1,0,1,0,1,1,'','','Marizete\nSi observas tu sample vas a ver, con preview, que el menu textual está en ingles. Para que este en castellano debés renombrar prevsp32.dll a prev32.dll. O sea que solo prev32.dll necestiás que esté presente\n\nsaludos','',0,'gA==','2znp02q2',1,0,'',147,0,0),(34155,7456,6,1100,0,'201.14.31.6',1183384508,1,0,1,1,1,0,'','Cómo usar banco de datos?','Estoy persistiendo mis datos en un archivo .dbf, para salvar, consultar, excluir lo hago asi:\n[code:kxraxrpc]dbUseArea&#40;&#46;T&#46;, &quot;DBFCDX&quot;, &quot;D&#58;\\Marizete\\cadastros\\banco\\CLIENTE&quot;, \n&quot;Cliente&quot;, &#46;T&#46;, &#46;F&#46;&#41;\nINDEX ON NOME TO D&#58;\\Marizete\\cadastros\\banco\\CLIENTE\n&#46;&#46;&#46;&#46;\nM-&gt;cNome   &#58;= NOME;\n&#46;&#46;&#46;&#46;\ndbCloseArea&#40;&#41;[/code:kxraxrpc]\ncomo lo haria para salvar en un MySQL o Postgres? para eso necesito sql? <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nAtentos saludos','',0,'AIA=','kxraxrpc',1,0,'',1100,0,0),(34156,7454,6,509,0,'80.34.248.50',1183384887,1,0,1,0,1,0,'','HBCOMM Harbour','[quote=&quot;Antonio Linares&quot;:1tylpe3s]Ricardo,\n\n&gt; Utilizo Harbour Compiler Alpha build 45.0 (Flex), FWH 2.7 y enlazo el HBCOMM.LIB\n\nLa versión de HBCOMM.lib que usas está compilada con esa misma versión de Harbour ?[/quote:1tylpe3s]\nHola:\n\n    La HBCOMM.LIB que utilizo es la que está en este forum en el apartado UTILIDADES.\n\n    Los ficheros que tengo son estos:\n19/05/2002  10:54            21.422 comm.cpp\n19/05/2002  10:54             4.527 comm.h\n26/05/2002  10:02               946 hbcomm.c\n25/05/2002  13:47               573 hbcomm.h\n27/05/2002  12:43            26.112 hbcomm.lib\n26/05/2002  10:47             1.963 hblcomm.cpp\n26/05/2002  10:50             5.580 Porta.prg\n\n    Saludos.\n    Ricardo Patón','',0,'gA==','1tylpe3s',1,0,'',509,0,0),(34157,7437,6,1100,0,'201.14.31.6',1183385023,1,0,1,1,1,0,'','','Gracias por la atención Mario\n\nes cierto, le saqué la prevsp32.dll y funciona igual de bien.\n\nsaludos','',0,'gA==','okzsryyp',1,0,'',1100,0,0),(34158,7453,7,106,0,'85.34.123.173',1183386674,1,0,1,1,1,1,'','','En las opciones de sincronizacion de ActiveSync, puedes indicarle que actualice el reloj en el momento de la conexión.\n\nSaludos','',0,'gA==','9jt2t3iq',1,0,'',106,0,0),(34159,7444,3,473,0,'81.82.10.56',1183387725,1,0,1,1,1,0,'','','I have just finished some tests.\n\n1) Format C\n2) Reinstall XP service pack 2\n3) disable firewall\n4) Install MySQL 5\n\nrun this code\n\n[code:fc8lfcxk]#Include &quot;FiveWin&#46;Ch&quot;\n\n#include &quot;adordd&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction TstMySql&#40;&#41;\n\n   USE test VIA &quot;ADORDD&quot; TABLE &quot;tabel1&quot; MYSQL ;\n      FROM &quot;localhost&quot; USER &quot;root&quot; password &quot;ikke&quot;\n\n*  USE test00 VIA &quot;ADORDD&quot; TABLE &quot;ACCOUNTS&quot; MYSQL ;\n*     FROM &quot;www&#46;freesql&#46;org&quot; USER &quot;myuser&quot; PASSWORD &quot;mypass&quot;\n\n   Browse&#40;&#41;\n\n   USE\n\nreturn nil[/code:fc8lfcxk]\n\nThis works fine on the pc were MySQL is installed. It does not work on any other pc.\n\nSo I changed \"localhost\" into \"192.168.0.101\" and \"testpc\" and \"TESTPC\"\n\nThis did not work on any pc. But the error is different\nNow it is not a [b:fc8lfcxk]ADODB/Connection[/b:fc8lfcxk] error but it is a \n[b:fc8lfcxk]ADODB Recordset[/b:fc8lfcxk] error.\n\nWith Navicat it was easy to open as \"testpc\" , \"TESTPC\" , \"192.168.0.101\"\n\nIs it possible that this is not yet supported in ADORDD\n\nThanks,\n\nWilly Hermans[/code]','',0,'QIA=','fc8lfcxk',1,0,'',473,0,0),(34160,7457,3,148,0,'196.205.112.247',1183388234,1,0,1,1,1,0,'','RDD filter or ADO','I need to ask this again which is faster in filtering huge database ADO or RDD ?','',0,'QIA=','286xyt8g',1,0,'',148,0,0),(34161,7456,6,743,0,'201.116.76.180',1183389418,1,0,1,1,1,0,'','','saludos,\n \n   por que no pruebas con esta libreria, y utilizas los comandos de clipper\n\n  ADORDD','',0,'QIA=','a48j2gom',1,0,'',743,0,0),(34162,7457,3,138,0,'189.141.72.112',1183391737,1,0,1,1,1,1,'','','What kind of Database ?\n\nIf you mean DBF, ADS local or remote server is a bullet filtering.\n\nIF you mean an SQL Based database, your choice is ADO.\n\nADORDD simplyfies the model, letting you to work SQL tables with simple XBase commands, but believe me, SQL tables are yet powerful working directly with SQL.','',0,'QIA=','1oqowb5e',1,0,'',138,0,0),(34163,7453,7,720,0,'80.36.244.134',1183392868,1,0,1,1,1,0,'','','Gracias Pedro...pero si quisiera sincronizar con algún otro equipo (este equipo no tiene el ActiveSync) existe alguna posibilidad de hacer lo que pregunto??\n\nEs decir, yo conecto el dispositivo PDA mediante wifi con otra máquina para hacer una regularización de mercancia (se ha hecho previamente un inventario). Entonces necesito tener sincronizada la pda exactamente con la hora y fecha que tiene el equipo remoto para que ambos estén trabajando con el mismo rango de fecha-hora.... (La misma opción que dispone el ActiveSync pero hacerlo desde código cuando conecto con cualquier máquina)....\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'QIA=','1ju51ofa',1,0,'',720,0,0),(34164,7444,3,2,0,'87.218.146.80',1183395577,1,0,1,1,1,1,'','','Willy,\n\nPlease show us your code using \"testpc\"','',0,'QIA=','g5igultn',1,0,'',2,0,0),(34165,7364,6,2,0,'87.218.146.80',1183395747,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QIA=','10hl6b2o',1,0,'',2,0,0),(34166,7454,6,2,0,'87.218.146.80',1183395859,1,0,1,1,1,1,'','','Ricardo,\n\nDeberías reconstruir la librería con la versión de Harbour que estés usando para asegurarte de que no haya incompatibilidades','',0,'QIA=','21h2gghg',1,0,'',2,0,0),(34167,7439,6,875,0,'64.76.108.182',1183395935,1,0,1,1,1,0,'','','yo tambien tuve algunos problemas cuando pase de fwh 2.4 a fwh 7.05, y hay algunas pequeñas variaciones a modificar en los programas. Como lo que te paso. En mi caso fue al momento de generar Indices.\n\n\n\nJaime','',0,'QIA=','1ga6mliq',1,0,'',875,0,0),(34168,7263,3,303,0,'72.199.41.171',1183396136,1,0,1,1,1,0,'','','I have discovered that this problem is related to my use of a drop-down menu button on a TSBar class toolbar (third-party, ver 5.0, written by Manuel Mercado). As a workaround I moved this menu to the main menu and it works fine. I have not yet found a solution for the original problem.\n\nJames','',0,'QIA=','kt3tanl4',1,0,'',303,0,0),(34169,7444,3,473,0,'81.82.10.56',1183396269,1,0,1,1,1,0,'','','Hello Antonio,\n\nHere it is.\n\n\n[code:1g8211a0]#include &quot;adordd&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction TstMySql&#40;&#41;\n\n   USE test VIA &quot;ADORDD&quot; TABLE &quot;tabel1&quot; MYSQL ;\n      FROM &quot;testpc&quot; USER &quot;root&quot; password &quot;pas&quot;\n\n*  USE test00 VIA &quot;ADORDD&quot; TABLE &quot;ACCOUNTS&quot; MYSQL ;\n*      FROM &quot;www&#46;freesql&#46;org&quot; USER &quot;myuser&quot; PASSWORD &quot;mypass&quot;\n\n   Browse&#40;&#41;\n\n   USE\n\nreturn nil[/code:1g8211a0]\n\nGreetings\n\nWilly Hermans','',0,'AIA=','1g8211a0',1,0,'',473,0,0),(34170,7443,3,303,0,'72.199.41.171',1183396668,1,0,1,1,1,0,'','','Tim,\n\nI suggest comparing the combobox classes from the two versions using a file compare utility. This should help you find the changes and thus narrow down the problem.\n\nI use WinMerge (<!-- w --><a class=\"postlink\" href=\"http://www.winmerge.org\">www.winmerge.org</a><!-- w -->). It is freeware.\n\nJames','',0,'AIA=','1vz2xb8i',1,0,'',303,0,0),(34171,6947,6,569,0,'201.248.129.135',1183397194,1,0,1,1,1,0,'','saludos de sildata','amigo, con cualquier buscador, valga la redundancia, busca la pagina de \nPatrick Mast, verifica el nombre correcto, y en esa pagina encontraras los parches gratuitos para las versiones x/harbour y los parches o librerias adicionales para obtener compatibilidad con las diferentes versiones.\nSaludos.\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','qmm3dysc',1,0,'',569,0,0),(34172,7450,6,838,0,'80.59.225.15',1183398114,1,0,1,1,1,0,'','','Osea, que no se puede\n\nSaludos\n\nJose lUIS','',0,'AIA=','1bewre9v',1,0,'',838,0,0),(34173,7450,6,255,0,'201.122.36.212',1183402239,1,0,1,1,1,1,'','','Hace siglos que no toco una computadora con windows..... en teoria deberia funcionar.. no tiene absolutamente nada de componentes activex que pudieran depender de versiones anteriores de windows, pero... mmmmmm intenta instalando el VERCE en C:\\VERCE\n\nSi aun asi no funciona me echare un clavado en el codigo de nuevo y buscare un Windows Vista para probar.\n\n\nSaludos','',0,'AIA=','176pqcy7',1,0,'',255,0,0),(34174,7427,6,255,0,'201.122.36.212',1183402368,1,0,1,1,1,1,'','','caray pues muchas gracias por sus comentarios...\nvere si me doy un tiempecito para poder agregarle un par de\ncosillas mas... la cosa es que ya no uso windows  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> JEJE..\n\nBueno... saludos cordiales a todos.','',0,'AIA=','3q3he2ob',1,0,'',255,0,0),(34175,7427,6,940,0,'189.157.72.130',1183403626,1,0,1,1,1,1,'','','J.C. \n\nte dije que aqui se te sigue extrañando o mas bien \n\n\' se te sigue Verce-ando\'\n\n\n\nsaludos amigo..','',0,'AIA=','147tk076',1,0,'',940,0,0),(34176,7456,6,940,0,'189.157.72.130',1183404174,1,0,1,1,1,1,'','','TMySql, potente class para conectar a mysql server,\n\nviene en las contribuciones de xh.\n\nsaludos..','',0,'AIA=','kje9087v',1,0,'',940,0,0),(34177,7243,22,46,0,'195.8.11.245',1183406187,1,0,1,1,1,0,'','','Que pasa cuando es SoftSeek?\n\ncreo que el found devuelve .F.\n\nSaludos','',0,'AIA=','1fci3onw',1,0,'',46,0,0),(34178,7458,6,533,0,'88.8.19.193',1183406510,1,0,1,1,1,0,'','Me he liado!!','Buenas foro!!. Necesito de vuestra ayuda, ya me he liado y no se como incluir los 2 ficheros .c que vienen con la nueva clase de menus xp que me ha bajado del foro. Algun alma caritativa que me indique como llamar a las funciones, MUCHISIMAS GRACIAS, fw 2.8 + xharbour\n\n1º GRADFILL (Este creo que lo he conseguido)\n[code:37rzt9di]\n#include &lt;WinTen&#46;h&gt;   \n#include &lt;Windows&#46;h&gt;\n#include &lt;hbApi&#46;h&gt;  \n#include &lt;commctrl&#46;h&gt;\n#include &lt;StdLib&#46;h&gt;\n\nvoid DegradColor&#40; HDC hDC, RECT * rori, COLORREF cFrom, COLORREF cTo, int iType, int iRound &#41;\n&#123;\n   int clr1r, clr1g, clr1b, clr2r, clr2g, clr2b ;\n   signed int iEle, iRed, iGreen, iBlue, iTot, iHalf ;\n   BOOL bHorz = &#40; iType == 2 || iType == 4 &#41; ;\n   BOOL bDir ;\n   RECT rct ;\n   HPEN hOldPen, hPen ;\n   LOGBRUSH lb ;\n   HBRUSH hOldBrush, hBrush, hNull ;\n\n   rct&#46;top = rori-&gt;top ;\n   rct&#46;left = rori-&gt;left ;\n   rct&#46;bottom = rori-&gt;bottom ;\n   rct&#46;right = rori-&gt;right ;\n\n 	iTot   = &#40; ! bHorz ? &#40; rct&#46;bottom  - rct&#46;top + 1 &#41; &#58; &#40; rct&#46;right - rct&#46;left + 1 &#41; &#41; ;\n\n   iHalf  = iTot / 2 ;\n	lb&#46;lbStyle = BS_NULL ;\n	hNull  = CreateBrushIndirect&#40;&amp;lb&#41; ;\n\n   clr1r = GetRValue&#40; cFrom &#41; ;\n   clr1g = GetGValue&#40; cFrom &#41; ;\n   clr1b = GetBValue&#40; cFrom &#41; ;\n\n   clr2r = GetRValue&#40; cTo &#41; ;\n   clr2g = GetGValue&#40; cTo &#41; ;\n   clr2b = GetBValue&#40; cTo &#41; ;\n\n   iRed   =  abs&#40; clr2r - clr1r &#41; ;\n   iGreen =  abs&#40; clr2g - clr1g &#41; ;\n   iBlue  =  abs&#40; clr2b - clr1b &#41; ;\n\n   iRed   = &#40; iRed &lt;= 0 ? 0 &#58; &#40; iRed / iTot &#41; &#41;;\n   iGreen = &#40; iGreen &lt;= 0 ? 0 &#58; &#40; iGreen / iTot &#41; &#41; ;\n   iBlue  = &#40; iBlue &lt;= 0 ? 0 &#58; &#40; iBlue / iTot &#41; &#41; ;\n\n   if&#40; iType == 3 || iType == 4 &#41;\n   &#123;\n   	iRed   *= 2 ;\n      iGreen *= 2 ;\n      iBlue  *= 2 ;\n   &#125;\n\n   if&#40; iType == 5 &#41;\n   &#123;\n      rct&#46;top  += &#40; &#40; rct&#46;bottom - rct&#46;top &#41; / 2 &#41; ;\n      rct&#46;left += &#40; &#40; rct&#46;right - rct&#46;left &#41; / 2 &#41; ;\n      rct&#46;top  -= &#40; &#40; rct&#46;bottom - rct&#46;top &#41; / 3 &#41; ;\n      rct&#46;bottom = rct&#46;top + 2 ;\n      rct&#46;right  = rct&#46;left + 2 ;\n   &#125;\n   else\n   &#123;\n   	if&#40; ! bHorz &#41;\n	   	rct&#46;bottom = rct&#46;top + 1 ;\n	   else\n   		rct&#46;right = rct&#46;left + 1 ;\n   &#125;\n\n\n   if&#40; iType == 5 &#41;\n   &#123;\n	   hPen      = CreatePen&#40; PS_SOLID, 1, RGB&#40; clr2r, clr2g, clr2b &#41; &#41; ;\n   	hOldPen   = SelectObject&#40; hDC, hPen &#41; ;\n		hBrush    = CreateSolidBrush&#40; RGB&#40; clr2r, clr2g, clr2b &#41; &#41; ;\n   	hOldBrush = SelectObject&#40; hDC, hBrush &#41; ;\n      if&#40; iRound == 1 &#41;\n	  		Ellipse&#40; hDC, rori-&gt;left, rori-&gt;top, rori-&gt;right, rori-&gt;bottom &#41; ;\n      else\n	  		RoundRect&#40; hDC, rori-&gt;left, rori-&gt;top, rori-&gt;right, rori-&gt;bottom, 16, 16 &#41; ;\n\n   	SelectObject&#40; hDC, hOldBrush &#41; ;\n  	   DeleteObject&#40; hBrush &#41; ;\n   	SelectObject&#40; hDC, hOldPen &#41; ;\n  	   DeleteObject&#40; hPen &#41; ;\n	   hPen    = CreatePen&#40; PS_SOLID, 2, RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n   	hOldPen = SelectObject&#40; hDC, hPen &#41; ;\n   	SelectObject&#40; hDC, hNull &#41; ;\n      if&#40; iRound == 1 &#41;\n	  		Ellipse&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right, rct&#46;bottom &#41; ;\n      else\n	  		RoundRect&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right, rct&#46;bottom, 16, 16 &#41; ;\n\n   &#125;\n   else\n   &#123;\n	   hPen      = CreatePen&#40; PS_SOLID, 1, RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n   	hOldPen   = SelectObject&#40; hDC, hPen &#41; ;\n		hBrush    = CreateSolidBrush&#40; RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n   	hOldBrush = SelectObject&#40; hDC, hBrush &#41; ;\n   &#125;\n\n   for&#40; iEle = 1; iEle &lt; iTot; iEle++ &#41;\n   &#123;\n\n		if&#40; iType &gt; 2 &amp;&amp; iType &lt; 5 &amp;&amp; iEle &gt; iHalf &#41;\n      &#123;\n      	clr2r = GetRValue&#40; cFrom &#41; ;\n   		clr2g = GetGValue&#40; cFrom &#41; ;\n   		clr2b = GetBValue&#40; cFrom &#41; ;\n      &#125;\n\n      bDir = &#40; clr2r &gt; clr1r ? TRUE &#58; FALSE &#41; ;\n      if&#40; bDir &#41;\n      	clr1r += iRed ;\n      else\n      	clr1r -= iRed ;\n\n      clr1r = &#40; clr1r &lt; 0 ? 0 &#58; clr1r &gt; 255 ? 255 &#58; clr1r &#41; ;\n\n      bDir = &#40; clr2g &gt; clr1g ? TRUE &#58; FALSE  &#41; ;\n      if&#40; bDir &#41;\n      	clr1g += iGreen ;\n      else\n      	clr1g -= iGreen ;\n\n      clr1g = &#40; clr1g &lt; 0 ? 0 &#58; clr1g &gt; 255 ? 255 &#58; clr1g &#41; ;\n\n      bDir = &#40; clr2b &gt; clr1b ? TRUE &#58; FALSE  &#41; ;\n\n      if&#40; bDir &#41;\n      	clr1b += iBlue ;\n      else\n      	clr1b -= iBlue ;\n\n      clr1b = &#40; clr1b &lt; 0 ? 0 &#58; clr1b &gt; 255 ? 255 &#58; clr1b &#41; ;\n\n      if&#40; iType == 5 &#41;\n      &#123;\n		      SelectObject&#40; hDC, hOldBrush &#41; ;\n   		   DeleteObject&#40; hNull &#41; ;\n				hNull  = CreateBrushIndirect&#40;&amp;lb&#41; ;\n		      SelectObject&#40; hDC, hNull &#41; ;\n   	      SelectObject&#40; hDC, hOldPen &#41; ;\n      		DeleteObject&#40; hPen &#41; ;\n   			hPen = CreatePen&#40; PS_SOLID, 2, RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n	      	SelectObject&#40; hDC, hPen &#41; ;\n   	   if&#40; iRound == 1 &#41;\n   			Ellipse&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1 &#41; ;\n	      else\n   			RoundRect&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1, 16, 16 &#41; ;\n\n	      if&#40; iRound == 1 &#41;\n   			Ellipse&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1 &#41; ;\n      	else\n   			RoundRect&#40; hDC, rct&#46;left, rct&#46;top, rct&#46;right + 1, rct&#46;bottom + 1, 16, 16 &#41; ;\n\n	       	rct&#46;top    -= &#40; rct&#46;top &lt;= rori-&gt;top ? 0 &#58; 1 &#41; ;\n   	    	rct&#46;left   -= &#40; rct&#46;left &lt;= rori-&gt;left ? 0 &#58; 1 &#41;;\n      	 	rct&#46;bottom +=  &#40; rct&#46;bottom &gt;= rori-&gt;bottom ? 0 &#58; 1 &#41; ;\n       		rct&#46;right  +=  &#40; rct&#46;right &gt;= rori-&gt;right ? 0 &#58; 1 &#41; ;\n	   &#125;\n      else\n      &#123;\n	      SelectObject&#40; hDC, hOldBrush &#41; ;\n   	   DeleteObject&#40; hBrush &#41; ;\n      	hBrush = CreateSolidBrush&#40; RGB&#40; clr1r, clr1g, clr1b &#41; &#41; ;\n	      SelectObject&#40; hDC, hBrush &#41; ;\n\n      	FillRect&#40; hDC, &amp;rct, hBrush &#41; ;\n\n      	if&#40; ! bHorz &#41;\n      	&#123;\n	 			rct&#46;top++ ;\n   	   	rct&#46;bottom++ ;\n      	&#125;\n      	else\n      	&#123;\n      		rct&#46;left++ ;\n         	rct&#46;right++ ;\n      	&#125;\n      &#125;\n   &#125;\n	SelectObject&#40; hDC, hOldBrush &#41; ;\n	SelectObject&#40; hDC, hOldPen &#41; ;\n   DeleteObject&#40; hBrush &#41; ;\n   DeleteObject&#40; hPen &#41; ;\n   DeleteObject&#40; hNull &#41; ;\n&#125;\n\n//---------------------------------------------------------------------------//\n\nvoid DegardeFill&#40; HDC hDC, RECT* rct, COLORREF crStart, COLORREF crEnd, int bVertical &#41;\n    &#123;\n       int nSegments = 100;\n       COLORREF cr;\n       int nR      = GetRValue&#40;crStart&#41;;\n       int nG      = GetGValue&#40;crStart&#41;;\n       int nB      = GetBValue&#40;crStart&#41;;\n       int neB     = GetBValue&#40;crEnd&#41;;\n       int neG     = GetGValue&#40;crEnd&#41;;\n       int neR     = GetRValue&#40;crEnd&#41;;\n       int nDiffR  = &#40;neR - nR&#41;;\n       int nDiffG  = &#40;neG - nG&#41;;\n       int nDiffB  = &#40;neB - nB&#41;;\n       int ndR ;\n       int ndG ;\n       int ndB ;\n       int nCX ;\n       int nCY ;\n       int nTop    = rct-&gt;top;\n       int nBottom ; //= rct-&gt;bottom;\n       int nLeft   = rct-&gt;left;\n       int nRight ; // = rct-&gt;right;\n       HBRUSH hBrush;\n       RECT rc;\n\n       int i;\n\n       if&#40; !bVertical &#41;\n       &#123;\n          if&#40; nSegments &gt; &#40; rct-&gt;right - rct-&gt;left &#41; &#41;\n          &#123;\n            nSegments = &#40; rct-&gt;right - rct-&gt;left &#41;;\n          &#125;\n       &#125;\n       else\n       &#123;\n          if&#40; nSegments &gt; &#40; rct-&gt;bottom - rct-&gt;top &#41; &#41;\n          &#123;\n            nSegments = &#40; rct-&gt;bottom - rct-&gt;top &#41;;\n          &#125;\n       &#125;\n\n       ndR = 256 * &#40;nDiffR&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       ndG = 256 * &#40;nDiffG&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       ndB = 256 * &#40;nDiffB&#41; / &#40;max&#40;nSegments,1&#41;&#41;;\n       nCX = &#40;rct-&gt;right-rct-&gt;left&#41; / max&#40;nSegments,1&#41;;\n       nCY = &#40;rct-&gt;bottom-rct-&gt;top&#41; / max&#40;nSegments,1&#41;;\n\n       nR *= 256;\n       nG *= 256;\n       nB *= 256;\n\n       for &#40;i = 0; i &lt; nSegments; i++, nR += ndR, nG += ndG, nB += ndB&#41;\n       &#123;\n\n               if&#40;i == &#40;nSegments - 1&#41;&#41;\n               &#123;\n                  nRight  = rct-&gt;right;\n                  nBottom = rct-&gt;bottom;\n               &#125;\n               else\n               &#123;\n                  nBottom = nTop + nCY;\n                  nRight = nLeft + nCX;\n               &#125;\n\n               cr = RGB&#40;nR / 256, nG / 256, nB / 256&#41;;\n\n               &#123;\n                  hBrush = CreateSolidBrush&#40; cr &#41;;\n                  if&#40; bVertical &#41;\n                  &#123;\n                     rc&#46;top    = nTop;\n                     rc&#46;left   = rct-&gt;left;\n                     rc&#46;bottom = nBottom + 1;\n                     rc&#46;right  = rct-&gt;right;\n                  &#125;\n                  else\n                  &#123;\n                     rc&#46;top    = rct-&gt;top;\n                     rc&#46;left   = nLeft;\n                     rc&#46;bottom = rct-&gt;bottom;\n                     rc&#46;right  = nRight+1;\n                  &#125;\n                  FillRect&#40;hDC, &amp;rc, hBrush &#41;;\n                  DeleteObject&#40; hBrush &#41;;\n               &#125;\n\n               nLeft = nRight;\n               nTop = nBottom;\n       &#125;\n    &#125;\n\nCOLORREF MixedColor&#40;COLORREF colorA,COLORREF colorB&#41;\n&#123;\n  // &#40; 86a + 14b &#41; / 100\n  int red   = MulDiv&#40;86,GetRValue&#40;colorA&#41;,100&#41; + MulDiv&#40;14,GetRValue&#40;colorB&#41;,100&#41;;\n  int green = MulDiv&#40;86,GetGValue&#40;colorA&#41;,100&#41; + MulDiv&#40;14,GetGValue&#40;colorB&#41;,100&#41;;\n  int blue  = MulDiv&#40;86,GetBValue&#40;colorA&#41;,100&#41; + MulDiv&#40;14,GetBValue&#40;colorB&#41;,100&#41;;\n\n  return RGB&#40; min&#40;red,0xff&#41;,min&#40;green,0xff&#41;, min&#40;blue,0xff&#41;&#41;;\n&#125;\n\nCOLORREF MidColor&#40;COLORREF colorA,COLORREF colorB&#41;\n&#123;\n  // &#40;7a + 3b&#41;/10\n  int red   = MulDiv&#40;7,GetRValue&#40;colorA&#41;,10&#41; + MulDiv&#40;3,GetRValue&#40;colorB&#41;,10&#41;;\n  int green = MulDiv&#40;7,GetGValue&#40;colorA&#41;,10&#41; + MulDiv&#40;3,GetGValue&#40;colorB&#41;,10&#41;;\n  int blue  = MulDiv&#40;7,GetBValue&#40;colorA&#41;,10&#41; + MulDiv&#40;3,GetBValue&#40;colorB&#41;,10&#41;;\n\n  return RGB&#40; min&#40;red,0xff&#41;,min&#40;green,0xff&#41;, min&#40;blue,0xff&#41;&#41;;\n&#125;\n\nCOLORREF GrayColor&#40;COLORREF crColor&#41;\n&#123;\n  int Gray  = &#40;&#40;&#40;int&#41;GetRValue&#40;crColor&#41;&#41; + GetGValue&#40;crColor&#41; + GetBValue&#40;crColor&#41;&#41;/3;\n\n  return RGB&#40; Gray,Gray,Gray&#41;;\n&#125;\n\nBOOL IsLightColor&#40;COLORREF crColor&#41;\n&#123;\n  return &#40;&#40;&#40;int&#41;GetRValue&#40;crColor&#41;&#41; + GetGValue&#40;crColor&#41; + GetBValue&#40;crColor&#41;&#41;&gt;&#40;3*128&#41;;\n&#125;\n\nCOLORREF BleachColor&#40;int Add, COLORREF color&#41;\n&#123;\n  return RGB&#40; min &#40;GetRValue&#40;color&#41;+Add, 255&#41;,\n              min &#40;GetGValue&#40;color&#41;+Add, 255&#41;,\n              min &#40;GetBValue&#40;color&#41;+Add, 255&#41;&#41;;\n&#125;\n//------------------------------------------------------//\nHARBOUR HB_FUN_DARKENCOLORXP&#40;&#41; //COLORREF lcolor&#41;\n&#123;\n  COLORREF lcolor = hb_parnl&#40;1&#41;;\n  hb_retnl&#40; RGB&#40; MulDiv&#40;GetRValue&#40;lcolor&#41;,7,10&#41;,\n                 MulDiv&#40;GetGValue&#40;lcolor&#41;,7,10&#41;,\n                 MulDiv&#40;GetBValue&#40;lcolor&#41;+55,7,10&#41;&#41; &#41;;\n&#125;\n//------------------------------------------------------//\nHARBOUR HB_FUN_DARKENCOLOR&#40;&#41; // long lScale, COLORREF lColor&#41;\n&#123;\n  COLORREF lColor = hb_parnl&#40;2&#41;;\n  LONG lScale = hb_parni&#40;1&#41;;\n\n  long red   = MulDiv&#40;GetRValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long green = MulDiv&#40;GetGValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long blue  = MulDiv&#40;GetBValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n\n  hb_retnl&#40; RGB&#40;red, green, blue&#41;&#41;;\n&#125;\n\nCOLORREF DarkenColor&#40;long lScale, COLORREF lColor&#41;\n&#123;\n\n  long red   = MulDiv&#40;GetRValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long green = MulDiv&#40;GetGValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n  long blue  = MulDiv&#40;GetBValue&#40;lColor&#41;,&#40;255-lScale&#41;,255&#41;;\n\n  return&#40; RGB&#40;red, green, blue&#41;&#41;;\n&#125;\n\n//-------------------------------------------------------//\nHARBOUR HB_FUN_LIGHTCOLOR&#40; &#41; //long lScale, COLORREF lColor&#41;\n&#123;\n  COLORREF lColor = hb_parnl&#40;2&#41;;\n  LONG lScale = hb_parni&#40;1&#41;;\n\n  long R = MulDiv&#40;255-GetRValue&#40;lColor&#41;,lScale,255&#41;+GetRValue&#40;lColor&#41;;\n  long G = MulDiv&#40;255-GetGValue&#40;lColor&#41;,lScale,255&#41;+GetGValue&#40;lColor&#41;;\n  long B = MulDiv&#40;255-GetBValue&#40;lColor&#41;,lScale,255&#41;+GetBValue&#40;lColor&#41;;\n\n  hb_retnl&#40; RGB&#40;R, G, B&#41; &#41;;\n&#125;\n\nCOLORREF LightenColor&#40; long lScale, COLORREF lColor&#41;\n&#123;\n  long R = MulDiv&#40;255-GetRValue&#40;lColor&#41;,lScale,255&#41;+GetRValue&#40;lColor&#41;;\n  long G = MulDiv&#40;255-GetGValue&#40;lColor&#41;,lScale,255&#41;+GetGValue&#40;lColor&#41;;\n  long B = MulDiv&#40;255-GetBValue&#40;lColor&#41;,lScale,255&#41;+GetBValue&#40;lColor&#41;;\n\n  return&#40; RGB&#40;R, G, B&#41; &#41;;\n&#125;\n\n//-------------------------------------//\n\nHARBOUR HB_FUN_DEGRADADO&#40;&#41;\n   &#123;\n           RECT rct;\n\n           rct&#46;top      = hb_parni&#40; 2, 1 &#41;;\n           rct&#46;left     = hb_parni&#40; 2, 2 &#41;;\n           rct&#46;bottom   = hb_parni&#40; 2, 3 &#41;;\n           rct&#46;right    = hb_parni&#40; 2, 4 &#41;;\n\n           DegardeFill&#40; &#40; HDC &#41; hb_parnl&#40; 1 &#41; , &amp;rct, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parl&#40;5&#41; &#41;;\n   &#125;\n\n\n\n[/code:37rzt9di]\n\ny el otro es MENUS.c (este me está volviendo loco)\n\n[code:37rzt9di]\n\n#define OEMRESOURCE\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\nBOOL bStrAt&#40; BYTE bChar, LPSTR szText &#41;;\nLPSTR StrToken&#40; LPSTR szText, WORD wOcurrence, BYTE bSeparator, LPWORD pwLen &#41;;\n\nvoid WindowBoxIn&#40; HDC hDC, RECT * pRect &#41;;\nvoid WndDrawBox&#40; HDC hDC, RECT * rct, HPEN hPUpLeft, HPEN hPBotRit &#41;;\nvoid WindowInset&#40; HDC hDC, RECT * pRect &#41;;\nvoid WindowRaised&#40; HDC hDC, RECT * pRect &#41;;\nvoid DrawBitmap&#40; HDC, HBITMAP, WORD, WORD, WORD, WORD, DWORD &#41;;\nvoid DrawMasked&#40; HDC, HBITMAP, WORD, WORD &#41;;\nvoid DrawGrayed&#40; HDC, HBITMAP, int, int &#41;;\nvoid RectDisable&#40; HDC, LPRECT&#41;;\nvoid DegardeFill&#40; HDC hDC, RECT * rori, COLORREF cFrom, COLORREF cTo, int nDegType &#41; ;\nvoid DegradColor&#40; HDC hDC, RECT * rori, COLORREF cFrom, COLORREF cTo, int nDegType, int iRound &#41; ;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_CREATEMENU&#40; PARAMS &#41;\n&#123;\n   _retnl&#40; &#40; LONG &#41; CreateMenu&#40;&#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_CREATEPOPUPMENU&#40; PARAMS &#41;\n&#123;\n   _retnl&#40; &#40; LONG &#41; CreatePopupMenu&#40;&#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_TRACKPOPUP&#40; PARAMS &#41;\n&#123;\n  _retl&#40; TrackPopupMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 4 &#41;,\n         _parni&#40; 3 &#41;, _parni&#40; 5 &#41;, &#40; HWND &#41; _parni&#40; 6 &#41;, NULL &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_ENABLEMENUITEM&#40; PARAMS &#41;\n&#123;\n   _retl&#40; EnableMenuItem&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_CHECKMENUITEM&#40; PARAMS &#41;   // &#40;&#41;\n&#123;\n   _retl&#40; CheckMenuItem&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMITEMCOUNT&#40; PARAMS &#41;   // &#40;&#41;\n&#123;\n   _retni&#40; GetMenuItemCount&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMITEMID&#40; PARAMS &#41;    // hMenu, nPos\n&#123;\n   _retni&#40; GetMenuItemID&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETSYSTEMMENU&#40; PARAMS &#41;    // &#40;&#41;\n&#123;\n   _retnl&#40; &#40; LONG &#41; GetSystemMenu&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, _parl&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_DESTROYMENU&#40; PARAMS &#41;   //  &#40;&#41;   hMenu\n&#123;\n   _retl&#40; DestroyMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETSUBMENU&#40; PARAMS &#41;    // hMenu, nPos\n&#123;\n   _retnl&#40; &#40; LONG &#41; GetSubMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMENUSTRING&#40; PARAMS &#41;    // &#40;&#41;   hMenu, nId, nPosOrValue\n&#123;\n   BYTE bBuffer&#91; 200 &#93;;\n   WORD wLen = GetMenuString&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, &#40; char * &#41; bBuffer,\n                              199, _parni&#40; 3 &#41; &#41;;\n\n   _retclen&#40; &#40; char * &#41; bBuffer, wLen &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMENUSTATE&#40; PARAMS &#41;    // &#40;&#41;   hMenu, nId, nFlags\n&#123;\n   _retni&#40; GetMenuState&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_DRAWMENUBAR&#40; PARAMS &#41;    // &#40;&#41;    hWnd\n&#123;\n   DrawMenuBar&#40; &#40; HWND &#41; _parnl&#40; 1 &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_HILITEMENUITEM&#40; PARAMS &#41;  // &#40;&#41;  hWnd, hMenu, idItem, nHiliteFlags\n&#123;\n   _retl&#40; HiliteMenuItem&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; HMENU &#41; _parnl&#40; 2 &#41;,\n                          _parni&#40; 3 &#41;, _parni&#40; 4 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_LOADMENU&#40; PARAMS &#41;\n&#123;\n   _retnl&#40; &#40; LONG &#41; LoadMenu&#40; &#40; HINSTANCE &#41; _parnl&#40; 1 &#41;,\n                     &#40; LPSTR &#41; IF&#40; ISCHAR&#40; 2 &#41;, _parc&#40; 2 &#41;,\n                                   MAKEINTRESOURCE&#40; _parni&#40; 2 &#41; &#41; &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_APPENDMENU&#40; PARAMS &#41;\n&#123;\n   _retl&#40; AppendMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, &#40; UINT &#41; _parnl&#40; 2 &#41;, _parnl&#40; 3 &#41;,\n                       IF&#40; ISCHAR&#40; 4 &#41;, _parc&#40; 4 &#41;, &#40; LPSTR &#41; _parnl&#40; 4 &#41; &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_SETMENU&#40; PARAMS &#41;\n&#123;\n   _retl&#40; SetMenu&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, &#40; HMENU &#41; _parnl&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_MODIFYMENU&#40; PARAMS &#41;\n&#123;\n   _retl&#40; ModifyMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, &#40; UINT &#41; _parni&#40; 2 &#41;,\n          _parni&#40; 3 &#41;, &#40; UINT &#41; _parni&#40; 4 &#41;,\n          IF&#40; ISCHAR&#40; 5 &#41;, _parc&#40; 5 &#41;, &#40; LPSTR &#41; _parnl&#40; 5 &#41; &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_INSERTMENU&#40; PARAMS &#41; // &#40; hMenu, nIdItem, nFlags, nNewItem, cPrompt &#41; --&gt; lSuccess\n&#123;\n   _retl&#40; InsertMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;, _parni&#40; 2 &#41;, _parni&#40; 3 &#41;,\n                      _parni&#40; 4 &#41;, _parc&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_REMOVEMENU&#40; PARAMS &#41; // &#40; hMenu, nItem, nFlags &#41; --&gt; lSuccess\n&#123;\n   _retl&#40; RemoveMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41;,\n                      &#40; UINT &#41; _parni&#40; 2 &#41;,\n                      &#40; UINT &#41; _parni&#40; 3 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_ATMENUDRAWITEM&#40; PARAMS &#41; // &#40; pDrawItemStruct, cPrompt, lTop, hBitmap,lSeparator,acolor,lbar &#41;\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n   LPSTR szPrompt = _parc&#40; 2 &#41;;\n   BOOL bTab = bStrAt&#40; 9, szPrompt &#41;;\n   WORD wLen;\n   BOOL lSeparator = _parl&#40; 5 &#41;;\n   BOOL lBar       = _parl&#40; 7 &#41;;\n   HPEN hNormal,hOldPen;\n   HBRUSH hBrush;\n   LOGBRUSH lb;\n   RECT rct;\n   RECT rctdg;\n   RECT rctsep;\n   RECT rctshd;\n   COLORREF nClrMenu     =  _parnl&#40;6,1&#41;; \n   COLORREF nClrMenuTxt  =  _parnl&#40;6,2&#41;; \n   COLORREF nClrBack     =  _parnl&#40;6,3&#41;; \n   COLORREF nClrTo       =  _parnl&#40;6,4&#41;; \n   COLORREF nClrHighBai  =  _parnl&#40;6,5&#41;; \n   COLORREF nClrHighBaf  =  _parnl&#40;6,6&#41;; \n   COLORREF nClrHighTxt  =  _parnl&#40;6,7&#41;;\n   COLORREF nClrHighBar  =  _parnl&#40;6,8&#41;;\n\n   HBITMAP hBmp = &#40; HBITMAP &#41; _parnl&#40; 4 &#41;;\n   switch&#40; lpdis-&gt;itemAction &#41;\n   &#123;\n      case ODA_DRAWENTIRE&#58;\n      case ODA_SELECT&#58;\n           lb&#46;lbStyle = BS_SOLID;\n           lb&#46;lbColor = nClrMenu;\n           hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n           FillRect&#40; lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem, hBrush &#41;;\n           DeleteObject&#40; hBrush &#41;;\n\n           SetBkColor&#40; lpdis-&gt;hDC, nClrMenu &#41;; \n           SetBkMode&#40; lpdis-&gt;hDC, TRANSPARENT &#41;; \n           SetTextColor&#40; lpdis-&gt;hDC, nClrMenuTxt&#41;; \n\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_SELECTED &amp;&amp;\n               ! &#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41; &amp;&amp; !lSeparator &#41;\n           &#123;\n              lb&#46;lbColor = nClrHighBai; \n              SetBkColor&#40; lpdis-&gt;hDC, nClrHighBai &#41;; \n              SetTextColor&#40; lpdis-&gt;hDC, nClrHighTxt &#41;; \n              if&#40; !lBar &#41;\n                lpdis-&gt;rcItem&#46;left += 22; \n           &#125;\n           else\n              lb&#46;lbColor = nClrMenu;\n\n\n           hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n           FillRect&#40; lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem, hBrush &#41;;\n           DeleteObject&#40; hBrush &#41;;\n           if&#40; lpdis-&gt;itemState &amp; ODS_SELECTED &amp;&amp;\n              ! &#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41; &#41;\n           &#123;\n             if&#40; !lBar &#41;\n                 lpdis-&gt;rcItem&#46;left -= 22;\n           &#125;\n\n           if&#40;!lBar&#41;\n           &#123;\n             rct&#46;top    = lpdis-&gt;rcItem&#46;top+1;\n             rct&#46;left   = lpdis-&gt;rcItem&#46;left+1;\n             rct&#46;right  = lpdis-&gt;rcItem&#46;right-1; //22;\n             rct&#46;bottom = lpdis-&gt;rcItem&#46;bottom - 2;\n           &#125;\n           else\n           &#123;\n             rct&#46;top    = lpdis-&gt;rcItem&#46;top+1;\n             rct&#46;left   = lpdis-&gt;rcItem&#46;left+1;\n             rct&#46;right  = lpdis-&gt;rcItem&#46;right-4; \n             rct&#46;bottom = lpdis-&gt;rcItem&#46;bottom - 1;\n\n             rctshd&#46;top    = lpdis-&gt;rcItem&#46;top+3;\n             rctshd&#46;left   = lpdis-&gt;rcItem&#46;right-3;\n             rctshd&#46;right  = lpdis-&gt;rcItem&#46;right; \n             rctshd&#46;bottom = lpdis-&gt;rcItem&#46;bottom;\n\n           &#125;\n\n           rctdg&#46;top    = lpdis-&gt;rcItem&#46;top-1; //-4\n           rctdg&#46;left   = lpdis-&gt;rcItem&#46;left;\n           rctdg&#46;right  = 22;\n           rctdg&#46;bottom = lpdis-&gt;rcItem&#46;bottom+1; // - 1;\n\n           if&#40; !lBar &#41;\n              DegradColor&#40; lpdis-&gt;hDC, &amp;rctdg, nClrBack, nClrTo, 2, 1 &#41; ;\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_SELECTED &#41;\n              if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41; &#41; //&amp;&amp;\n                &#123;\n                     hNormal = CreatePen&#40;PS_SOLID,0,nClrHighBar&#41;; \n                     hOldPen = SelectObject&#40;lpdis-&gt;hDC,hNormal&#41;;\n                     Rectangle&#40;lpdis-&gt;hDC,rct&#46;left-1,rct&#46;top-1,rct&#46;right+1,rct&#46;bottom+1&#41;;\n                     SelectObject&#40;lpdis-&gt;hDC,hOldPen&#41;;\n                     DeleteObject&#40; hNormal &#41;;\n                     DegradColor&#40; lpdis-&gt;hDC, &amp;rct, nClrHighBai, nClrHighBaf, 1, 1 &#41; ;\n                     if&#40;lBar&#41;\n                     &#123;\n                       lb&#46;lbColor = GetSysColor&#40;16&#41;;\n                       hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n                       FillRect&#40; lpdis-&gt;hDC, &amp;rctshd, hBrush &#41;;\n                       DeleteObject&#40; hBrush &#41;;\n                       rctshd&#46;top    = lpdis-&gt;rcItem&#46;top;\n                       rctshd&#46;left   = lpdis-&gt;rcItem&#46;right-3;\n                       rctshd&#46;right  = lpdis-&gt;rcItem&#46;right; \n                       rctshd&#46;bottom = lpdis-&gt;rcItem&#46;top+3;\n                       lb&#46;lbColor = nClrMenu;\n                       hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n                       FillRect&#40; lpdis-&gt;hDC, &amp;rctshd, hBrush &#41;;\n                       DeleteObject&#40; hBrush &#41;;\n\n                     &#125;\n                &#125;\nif&#40;!lBar&#41;\n&#123;\n\n           if&#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41;\n           &#123;\n              HBITMAP hBmp = LoadBitmap&#40; 0, MAKEINTRESOURCE&#40; OBM_CHECK &#41; &#41;;\n\n              if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_SELECTED &#41; &#41;\n                 DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 3,\n                             lpdis-&gt;rcItem&#46;left + 4 &#41;;\n              else\n                 DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 3,\n                             lpdis-&gt;rcItem&#46;left + 4 &#41;;\n              DeleteObject&#40; hBmp &#41;;\n           &#125;\n\n\n           if&#40; hBmp  &amp;&amp; !&#40; &#40;int&#41; hBmp == 1 &#41;  &#41; \n           &#123;\n              if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41; &#41;\n                 DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 3, //ojo\n                            lpdis-&gt;rcItem&#46;left + 2 &#41;;\n              else\n                 if&#40; ! &#40; lpdis-&gt;itemState &amp; ODS_SELECTED &#41; &#41;\n                    DrawGrayed&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 3,\n                                lpdis-&gt;rcItem&#46;left + 2 &#41;;\n                 else\n                    DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 3,\n                                lpdis-&gt;rcItem&#46;left + 2 &#41;;\n           &#125;\n&#125;\n           if&#40;!lBar&#41;\n           &#123;\n             lpdis-&gt;rcItem&#46;top  += 4;\n             lpdis-&gt;rcItem&#46;left += 26;\n           &#125;\n           else\n           &#123;\n             lpdis-&gt;rcItem&#46;top  += 2;\n             lpdis-&gt;rcItem&#46;left += 3;\n           &#125;            \n           if&#40; !bTab &#41;\n           &#123; \n              if&#40; lSeparator &#41;\n              &#123;\n                 rctsep&#46;top    = lpdis-&gt;rcItem&#46;top-1;\n                 rctsep&#46;left   = lpdis-&gt;rcItem&#46;left;\n                 rctsep&#46;right  = lpdis-&gt;rcItem&#46;right+5;\n                 rctsep&#46;bottom = lpdis-&gt;rcItem&#46;bottom - 4;\n                 lb&#46;lbStyle = BS_SOLID;\n                 lb&#46;lbColor = nClrHighBar ; \n                 hBrush = CreateBrushIndirect&#40; &amp;lb &#41;;\n                 FillRect&#40; lpdis-&gt;hDC, &amp;rctsep, hBrush &#41;;\n                 DeleteObject&#40; hBrush &#41;;\n              &#125;\n              else\n              &#123;\n              if&#40;!lBar&#41;\n                &#123;\n                   DrawText&#40; lpdis-&gt;hDC, szPrompt, -1, &amp;lpdis-&gt;rcItem, DT_LEFT &#41;;\n                &#125;\n                else\n                &#123;\n                   lpdis-&gt;rcItem&#46;left -= 5;\n                   DrawText&#40; lpdis-&gt;hDC, szPrompt, -1, &amp;lpdis-&gt;rcItem, DT_CENTER &#41;;\n                   lpdis-&gt;rcItem&#46;left += 5;\n                &#125;\n              &#125;\n           &#125;\n           else\n           &#123;\n              lpdis-&gt;rcItem&#46;right -= 26;\n              StrToken&#40; szPrompt, 1, 9, &amp;wLen &#41;; // 32 bits does not fill wLen before\n              DrawText&#40; lpdis-&gt;hDC, StrToken&#40;szPrompt, 1, 9, &amp;wLen&#41;, wLen, &amp;lpdis-&gt;rcItem, DT_LEFT &#41;;\n              StrToken&#40; szPrompt, 2, 9, &amp;wLen &#41;; // 32 bits does not fill wLen before\n              DrawText&#40; lpdis-&gt;hDC, StrToken&#40;szPrompt, 2, 9, &amp;wLen&#41;, wLen, &amp;lpdis-&gt;rcItem, DT_RIGHT &#41;;\n              lpdis-&gt;rcItem&#46;right += 26;\n           &#125;\n           if&#40;!lBar&#41;\n           &#123;\n             /*\n              if&#40; !lSeparator &#41;\n                &#123;\n                if&#40; lpdis-&gt;itemState &amp; ODS_GRAYED &#41;\n                   RectDisable&#40; lpdis-&gt;hDC, &amp;lpdis-&gt;rcItem &#41;;\n                &#125;\n             */\n             lpdis-&gt;rcItem&#46;top  -= 4;\n             lpdis-&gt;rcItem&#46;left -= 26;\n           &#125;\n           else\n           &#123;\n             lpdis-&gt;rcItem&#46;top  -= 2;\n             lpdis-&gt;rcItem&#46;left -= 4;\n           &#125;\n\n\n\n           _retl&#40; TRUE &#41;;\n           break;\n\n      case ODA_FOCUS&#58;\n           _retl&#40; FALSE &#41;;\n           break;\n   &#125;\n&#125;\n\n//----------------------------------------------------------------------------//\n/*\n#ifdef __HARBOUR__\n   CLIPPER MENUMEASUREITEM&#40; PARAMS &#41; // &#40; pMeasureItemStruct, nLen &#41;\n#else\n   CLIPPER MENUMEASUR&#40; PARAMS &#41; // EITEM&#40; pMeasureItemStruct, nLen &#41;\n#endif\n&#123;\n   LPMEASUREITEMSTRUCT lp = &#40; LPMEASUREITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n   lp-&gt;itemWidth  = _parni&#40; 2 &#41;;\n   lp-&gt;itemHeight = GetSystemMetrics&#40; SM_CYMENU &#41;; //18\n&#125;\n*/\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETMEAITEM&#40; PARAMS &#41; // &#40; pMeasureItemStruct &#41; --&gt; nMenuItemID\n&#123;\n   LPMEASUREITEMSTRUCT lp = &#40; LPMEASUREITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _retnl&#40; lp-&gt;itemID &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETDRAWITEM&#40; PARAMS &#41; // &#40; pDrawItemStruct &#41; --&gt; nMenuItemID\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _retnl&#40; lpdis-&gt;itemID &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_GETDRAWMENU&#40; PARAMS &#41; // &#40; pDrawItemStruct &#41; --&gt; hMenu\n&#123;\n   LPDRAWITEMSTRUCT lpdis = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _retnl&#40; &#40; LONG &#41; lpdis-&gt;hwndItem &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHARBOUR HB_FUN_ISMENU&#40; PARAMS &#41;\n&#123;\n   _retl&#40; IsMenu&#40; &#40; HMENU &#41; _parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC&#40; _GETMENUID&#41;\n&#123;\n    _retnl&#40;&#40;LONG&#41;GetMenu&#40;&#40;HWND&#41;_parnl&#40;1&#41;&#41;&#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC &#40; _COLORMENU &#41;\n&#123;\n   HMENU      iMenu;\n   MENUINFO   iMenuInfo ;\n   COLORREF lColor = _parnl&#40;2&#41;;\n   BOOL  lSubMenu = _parl&#40;3&#41;;\n   HWND  himage ;\n\n   himage = &#40;HWND&#41;LoadImage&#40;0,_parc&#40;4&#41;,IMAGE_BITMAP ,0,0,LR_LOADFROMFILE | LR_LOADMAP3DCOLORS | LR_LOADTRANSPARENT &#41;;\n\n   if &#40;himage==NULL&#41;\n     &#123;\n       himage = &#40;HWND&#41;LoadImage&#40;GetModuleHandle&#40;NULL&#41;,_parc&#40;4&#41;,IMAGE_BITMAP ,0,0, LR_LOADMAP3DCOLORS	| LR_LOADTRANSPARENT &#41;;\n     &#125;\n   iMenu              = GetMenu&#40;&#40;HWND&#41; _parnl&#40;1&#41;&#41;;\n   GetMenuInfo&#40;iMenu, &amp;iMenuInfo&#41;;\n   iMenuInfo&#46;cbSize   = sizeof&#40;MENUINFO&#41;;\n   iMenuInfo&#46;dwStyle  = GetWindowLongPtr&#40; &#40;HWND&#41; _parnl&#40;1&#41;, GWL_STYLE &#41;;\n\n   if &#40;lSubMenu&#41;\n    &#123;\n      iMenuInfo&#46;fMask    = MIM_BACKGROUND | MIM_APPLYTOSUBMENUS ;\n    &#125;\n   else\n    &#123;\n      iMenuInfo&#46;fMask    = MIM_BACKGROUND;\n    &#125;\n\n   if &#40;himage==NULL&#41;\n    &#123;\n       iMenuInfo&#46;hbrBack = CreateSolidBrush&#40;lColor&#41;;\n    &#125;\n   else\n    &#123;\n       iMenuInfo&#46;hbrBack = CreatePatternBrush&#40; &#40;HBITMAP&#41; himage&#41;;\n    &#125;\n\n   SetMenuInfo&#40;iMenu, &amp;iMenuInfo&#41;;\n   DrawMenuBar&#40;&#40;HWND&#41; _parnl&#40;1&#41;&#41;;\n\n&#125;\n\n//----------------------------------------------------------------------------//\n\nHB_FUNC &#40; _COLORSUBMENU &#41;\n&#123;\n   HMENU      iMenu;\n   MENUINFO   iMenuInfo ;\n   COLORREF lColor = _parnl&#40;2&#41;;\n   iMenu              = GetMenu&#40;&#40;HWND&#41; _parnl&#40;1&#41;&#41;;\n   GetMenuInfo&#40;iMenu, &amp;iMenuInfo&#41;;\n   iMenuInfo&#46;cbSize   = sizeof&#40;MENUINFO&#41;;\n   iMenuInfo&#46;fMask    = MIM_BACKGROUND | MIM_APPLYTOSUBMENUS;\n   iMenuInfo&#46;hbrBack  = CreateSolidBrush&#40;lColor&#41;;\n   SetMenuInfo&#40;iMenu, &amp;iMenuInfo&#41;;\n//   DrawMenuBar&#40;&#40;HWND&#41; _parnl&#40;1&#41;&#41;;\n&#125;\n\n//----------------------------------------------------------------------------//\nHB_FUNC&#40; CHGMENUMEA &#41; // pMeasureItemStruct, nWidth, nHeight\n&#123;\n   LPMEASUREITEMSTRUCT lp = &#40; LPMEASUREITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n   lp-&gt;itemWidth  = _parni&#40; 2 &#41; ;\n   lp-&gt;itemHeight = _parni&#40; 3 &#41; ;\n&#125;\n\nHB_FUNC&#40; GETDRAWISR &#41; // &#40; pDrawitemstruct &#41;\n&#123;\n   LPDRAWITEMSTRUCT lp = &#40; LPDRAWITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _reta&#40; 12 &#41;;\n\n   _storni&#40; lp-&gt;CtlType      ,    -1, 1  &#41;;\n   _storni&#40; lp-&gt;CtlID        ,    -1, 2  &#41;;\n   _storni&#40; lp-&gt;itemID       ,    -1, 3  &#41;;\n   _storni&#40; lp-&gt;itemAction   ,    -1, 4  &#41;;\n   _storni&#40; lp-&gt;itemState    ,    -1, 5  &#41;;\n   _storni&#40; &#40; LONG &#41; lp-&gt;hwndItem     ,    -1, 6  &#41;;\n   _storni&#40; &#40; LONG &#41; lp-&gt;hDC          ,    -1, 7  &#41;;\n   _storni&#40; lp-&gt;rcItem&#46;top   ,    -1, 8  &#41;;\n   _storni&#40; lp-&gt;rcItem&#46;left  ,    -1, 9  &#41;;\n   _storni&#40; lp-&gt;rcItem&#46;bottom,    -1, 10 &#41;;\n   _storni&#40; lp-&gt;rcItem&#46;right ,    -1, 11 &#41;;\n   _stornd&#40; lp-&gt;itemData     ,    -1, 12 &#41;;\n\n&#125;\n\nHB_FUNC&#40; GETMEAUSUR &#41; // &#40; pMeasureItemStruct &#41;\n&#123;\n   LPMEASUREITEMSTRUCT lp = &#40; LPMEASUREITEMSTRUCT &#41; _parnl&#40; 1 &#41;;\n\n   _reta&#40; 6 &#41;;\n\n   _storni&#40; lp-&gt;CtlType      ,    -1, 1  &#41;;\n   _storni&#40; lp-&gt;CtlID        ,    -1, 2  &#41;;\n   _storni&#40; lp-&gt;itemID       ,    -1, 3  &#41;;\n   _storni&#40; lp-&gt;itemWidth    ,    -1, 4  &#41;;\n   _storni&#40; lp-&gt;itemHeight   ,    -1, 5  &#41;;\n   _stornd&#40; lp-&gt;itemData     ,    -1, 12 &#41;;\n\n&#125;\n\n//----------------------------------------------------------------------------//\n\n[/code:37rzt9di]\n\ndisculpad el tamaño del mensaje. <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nMUCHAS GRACIAS DE ANTEMANO a todos.','',0,'AIA=','37rzt9di',1,0,'',533,0,0),(34179,7450,6,838,0,'80.59.225.15',1183413609,1,0,1,1,1,0,'','','He instalado VERCE en C:\\Verce, y compila todo perfecto excepto los fuentes en C, que no genera los OBJ, de momento y como sólo utilizo una función en C y ya tenía generado su obj, pues me apaño.\nVaya lio en que me he metido con Vista, ya que tengo que usar un portátil que acabo de adquirir toshiba y no hay manera de meterle el XP, me dice que no reconoce el disco duro, debido a que es SATA y no encuentro los drivers ni el toshiba ni el fujitsu que es el HD.\n\nMuchas gracias Juan Carlos\n\nJose Luis','',0,'AIA=','2zz0rf0o',1,0,'',838,0,0),(34180,7145,6,64,0,'201.72.124.2',1183416282,1,0,1,0,1,1,'','','up.','',0,'AIA=','bij79dtt',1,0,'',64,0,0),(34181,7458,6,2,0,'87.218.146.80',1183416668,1,0,1,1,1,1,'','','Mike,\n\nTe da error al compilar ?','',0,'AIA=','d4kbvbr6',1,0,'',2,0,0),(34182,7447,6,935,0,'200.62.80.44',1183418805,1,0,1,1,1,1,'','Gracias','Antonio,\n\nGracias, esperare mejores tiempos de fivelinux\n\nRamon Paredes','',0,'AIA=','z79a952j',1,0,'',935,0,0),(34183,7427,6,439,0,'200.125.45.80',1183420841,1,0,1,1,1,1,'','','No niego que pueda necesitar mejoras, pero si bien a veces debo manejarme con un batch para compilar clases de terceros, para mis aplicaciones, siempre uso VERCE y me ha resultado sencillo y cómodo, he tratado con otro, pero me ha resultado demasiado complejo, y no me gusta invertir demasiado tiempo en algo si tengo algo que funciona, me pasa lo mismo con Resource Workshop, no dudo que  hayan mejores, pero cuando intento cambiar, renuncio por falta de tiempo con la misma sensación de frustración.','',0,'AIA=','1yhmc933',1,0,'',439,0,0),(34184,7359,3,267,0,'201.9.190.99',1183425152,1,0,1,1,1,1,'','','Antonio, \n\nIs possible ?','',0,'AIA=','1in0nzuc',1,0,'',267,0,0),(34185,7459,3,529,0,'200.159.198.22',1183442116,1,0,1,1,1,0,'','tortoise cvs to harbour','hi, someone has the parameters? i lost.....','',0,'AIA=','18vtuyzr',1,0,'',529,0,0),(34188,7460,3,904,0,'196.25.255.250',1183443607,1,0,1,1,1,1,'','Radio buttons with a scroll','I want to populate a group of radio buttons from a database (unknown length) so I need to place it in a scrollable box.  Is there a sample of something like this?','',0,'EA==','25xjgk1u',1,0,'',904,0,0),(34189,7458,6,533,0,'88.8.19.193',1183447627,1,0,1,1,1,0,'','','De todo, el problema es que realmente no se las funciones que tengo que declarar con BENGINDUMP, por eso muestro el codigo fuente de las 2 programas en c,  para que alguien me diga realmente cuales son las funciones que tengo que incluir y si sale cualquier otro tipo de error, voy un poco mejor encaminado. \n\nGRACIAS ANTONIO','',0,'EA==','3imkpqjn',1,0,'',533,0,0),(34190,7243,22,456,0,'217.127.39.57',1183447811,1,0,1,1,1,1,'','','Si con softseek devuelve falso, se podria cambiar la linea de la siguinete manera.\n[code:1akfdbeh]\nif &#58;&#58;lBuffer &#46;AND&#46; &#40; lSoft &#46;OR&#46; lFound &#41;\n    &#58;&#58;Load&#40;&#41; \nendif \n[/code:1akfdbeh]\no tambien \n[code:1akfdbeh]\nif &#58;&#58;lBuffer &#46;AND&#46; ! &#40; &#58;&#58;nArea &#41;-&gt;&#40;Eof&#40;&#41;&#41; &#41;\n    &#58;&#58;Load&#40;&#41; \nendif \n[/code:1akfdbeh]','',0,'AIA=','1akfdbeh',1,0,'',456,0,0),(34191,7447,6,456,0,'217.127.39.57',1183449054,1,0,1,1,1,1,'','','Por lo que entiendo, esos mejores tiempos no vendran, salvo que realmente haya usuarios interesados en usar y evolucionar FiveLinux. Presupongo la disponibilidad de Fivetech para evolucionar FiveLinux, pero partiendo de un interes real de los usuarios.\n\nYo ahora mismo no tengo licenccia de Fivelinux, pero tengo pensado en un futuro no muy lejano el probar de hacer algo.','',0,'AIA=','1prttfoh',1,0,'',456,0,0),(34192,7461,3,233,0,'218.111.61.71',1183449714,1,0,1,1,1,0,'','Latest BtnGet','Anyone knows where to get the latest BtnGet (for [x]Harbour)?\n\nTIA','',0,'','tigqoh1v',1,0,'',233,0,0),(34193,7462,3,233,0,'218.111.61.71',1183450331,1,0,1,1,1,0,'','Passing keystrokes to main window','I\'ve defined a menu at the main window which uses accelerators in a MDI environment. Initial test was ok and I was quite happy. Later I tried using dialog box in the child window so I can use the resource editor to place my controls. This however caused the accelerators to stop working which I suspect because all the keystrokes are sent only to the dialog box. How do I get the keystrokes to be sent to the main window as well?\n\nTIA','',0,'','1uz448ed',1,0,'',233,0,0),(34194,7463,3,86,0,'81.83.185.118',1183453597,1,0,1,1,1,1,'','Question about minimize and maximize button','Hello,\n\nIn my resources (through workshop), I activated \"Minimize box\" and \"Maximize box\" in the Dialog Style.\n\nIn FW16, these buttons were shown, so I was able to use them.\n\nIn FW for xHarbour, the buttons aren\'t shown at all, although I activated them.\n\nHow can the minimize and maximize be shown ?\n\nThanks.','',0,'','3e5fk93x',1,0,'',86,0,0),(34195,7455,6,960,0,'217.12.16.50',1183454308,1,0,1,1,1,0,'','','Saludos,\n\nEn tu RC, lo editas (con el bloc de notas de Windows, por ejemplo) y escribe al final del fichero el siguiente comando:\n\n1 24 Windowsxp.Manifest\n\nlo guardas y listo.\nPor supuesto deberás tener el archivo Windowsxp.Manifest en la carpeta donde compiles.\n\nCompilas y tu EXE adquirirá aspecto Wxp.\n\nSaludos.LORENZO','',0,'','33uc2nz1',1,0,'',960,0,0),(34196,7464,20,1082,0,'85.43.122.34',1183455298,1,0,1,1,1,0,'','la dialog va in loop','Considerando il file esempio TESTMDI4.PRG nella cartella SAMPLES e che mi funziona perfettamente, ho creato questa procedura:\nnel file a.prg ho\n\nstatic oWnd\n.....\n    DEFINE WINDOW oWnd ;\n      TITLE \"Procedure A\" ;\n      MDI  ;\n      MENU BuildMenu() ;\n      ICON  oIcon\n....\n   ACTIVATE WINDOW oWnd  ;\n       VALID MsgYesNo( \"Vuoi Uscire ?\",\"Seleziona un opzione\" )\n....\nfunction BuildMenu()\n   local oMenu\n   MENU oMenu\n      MENUITEM \"&amp;Stampe\"\n      MENU\n         MENUITEM \"Stampa A\" ACTION dialog0(\"1\",@oWnd) ;\n            MESSAGE \"Elaborazione\"\n.....\n\n\nNEL file b.prg ho invece:\n\nle varie definizioni di variabili tra cui un array chiamato m_get\nquindi richiamo dialog1\n\nFUNCTION dialog1(sw,                                          ;\n                  m_get,oWnd                                   ;\n                 )\nlocal BtnOk\nlocal BtnEsc\nlocal oFont\nlocal oWndChild\n\nDEFINE WINDOW oWndChild MDICHILD OF oWnd\noWndChild:bGotFocus  = { || m_get[02]:SetFocus() }\n\nDEFINE DIALOG m_get[02] RESOURCE \"STASSI\" OF oWndChild\n\nREDEFINE GET m_get[03] ID 101 OF m_get[02]  ;\n    PICTURE \"@ 99/99/9999\"\n\nREDEFINE METER m_get[4] VAR m_get[5] ID 501 TOTAL 1000 OF m_get[02]\n\nREDEFINE BTNBMP BtnOk ID 1 OF m_get[02] RESOURCE \"CONFERMA\"                           ;\n    ACTION (stassiv11(@sw,@m_get))\n\nREDEFINE BTNBMP BtnEsc ID 2 OF m_get[02] RESOURCE \"ESCI\"                        ;\n    ACTION (sw:=0, oWndChild:End())\n\nACTIVATE DIALOG m_get[2] NOWAIT ;\n      ON INIT m_get[02]:Move( 0, 0 ) ;\n      VALID  ( oWndChild:End(), .t. ) CENTERED\n\nACTIVATE WINDOW oWndChild ;\n    ON INIT oWndChild:SetSize( m_get[02]:nWidth, m_get[02]:nHeight )\n\nReturn NIL\n\n\nQuando lancio l\'exe la dialog va in loop\nqualcuno può aiutarmi?','',0,'','dhuzanik',1,0,'',1082,0,0),(34197,7465,3,344,0,'80.18.221.53',1183461107,1,0,1,1,1,0,'','TReport &amp; Barcode','Is possible to print a barcode in a column with TReport?\nThank you.\nRiccardo','',0,'','1rcq5krx',1,0,'',344,0,0),(34198,7466,3,904,0,'198.54.202.214',1183461450,1,0,1,1,1,1,'','2 Listboxes browsing different parts of the same Database','I remember seeing a SAMPLE that used 2 listboxes to display different parts of the same database.\n\nI can\'t find it. Can anyone tell me what its called?\n\nWould one use oDATABASE objects for this?\n\n[code:2b3w0img]Select DEFECTS\nDATABASE oDBF_DEFECTS\noDBF_DEFECTS&#58;GoTop&#40;&#41;\noListBoxSection&#58;SetoDbf&#40; oDBF_DEFECTS &#41;\noListBoxSection&#58;cAlias = oDBF_DEFECTS&#58;cAlias\n   #xtranslate oDBF_DEFECTS&#58;DEFECTS&#58; =&gt; oDBF_DEFECTS&#58;\n   ADD COLUMN TO BROWSE oListBoxSection DATA oDBF_DEFECTS&#58;DEFECTS&#58;SECTION HEADER &quot;Section&quot; OEM ALIGN LEFT\n\nDATABASE oDBF_DEFECTS2\noDBF_DEFECTS&#58;GoTop&#40;&#41;\noListBoxSection2&#58;SetoDbf&#40; oDBF_DEFECTS2 &#41;\noListBoxSection2&#58;cAlias = oDBF_DEFECTS2&#58;cAlias\n   #xtranslate oDBF_DEFECTS2&#58;DEFECTS&#58; =&gt; oDBF_DEFECTS2&#58;\n   ADD COLUMN TO BROWSE oListBoxSection2 DATA oDBF_DEFECTS2&#58;DEFECTS&#58;SECTION HEADER &quot;Section&quot; OEM ALIGN LEFT[/code:2b3w0img]','',0,'AIA=','2b3w0img',1,0,'',904,0,0),(34199,7466,3,456,0,'217.127.39.57',1183462025,1,0,1,1,1,1,'','','To display diferent records from same dbf, you must open the DBF two times with dferent alias.','',0,'AIA=','2bx8paao',1,0,'',456,0,0),(34200,7454,6,509,0,'80.34.248.50',1183464207,1,0,1,1,1,0,'','Resuelto HBCOMM Adnormal Termination Program','[quote=&quot;Antonio Linares&quot;:1m82k353]Ricardo,\n\nDeberías reconstruir la librería con la versión de Harbour que estés usando para asegurarte de que no haya incompatibilidades[/quote:1m82k353]\n\nHola:\n\n     Finalmente el problema estaba en el orden de los parámetros pasados. Yo enviaba: Init_Port(\"COM1\",9600,0,8,1,1024) \ny debería enviar Init_Port(\"COM1\",9600,8,0,1,1024), es decir, intercambié la Paridad con los Bits de Datos.\n\n     Gracias por la atención. \n\n     Saludos.\n     Ricardo Patón','',0,'gA==','1m82k353',1,0,'',509,0,0),(34201,7447,6,2,0,'87.218.146.80',1183465224,1,0,1,1,1,1,'','','Biel,\n\nLo has entendido perfectamente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','qyp1up67',1,0,'',2,0,0),(34202,7462,3,2,0,'87.218.146.80',1183465662,1,0,1,1,1,1,'','','Please review and use this new way to place the dialog controls on a MDI child window:\n[code:3c2ao2my]\n#include &quot;FiveWin&#46;ch&quot; \n\n#define COLOR_BTNFACE   15 \n\nfunction Main&#40;&#41; \n\n   local oWnd \n\n   USE Customer \n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot; MDI \n\n   ACTIVATE WINDOW oWnd ; \n      ON INIT BuildChild&#40;&#41; \n\nreturn nil \n\nfunction BuildChild&#40;&#41; \n\n   local oChild \n    \n   DEFINE WINDOW oChild TITLE &quot;A Child Window&quot; MDICHILD ; \n      COLOR 0, GetSysColor&#40; COLOR_BTNFACE &#41; \n    \n   ACTIVATE WINDOW oChild ; \n      ON INIT BuildDialog&#40; oChild &#41; \n    \nreturn nil    \n\nfunction BuildDialog&#40; oChild &#41; \n\n   local oDlg, oBrw, oSay, cText &#58;= &quot;Hello World!&quot; \n  \n   DEFINE DIALOG oDlg RESOURCE &quot;DE_HEADER_BROWSE&quot; OF oChild \n    \n   oBrw = TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41; \n   oBrw&#58;CreateFromResource&#40; 10 &#41; \n   oBrw&#58;SetRDD&#40;&#41; \n    \n   REDEFINE BUTTON ID 20 OF oDlg \n   REDEFINE BUTTON ID 30 OF oDlg \n   REDEFINE BUTTON ID 40 OF oDlg \n   REDEFINE BUTTON ID 50 OF oDlg \n   REDEFINE BUTTON ID 60 OF oDlg \n   REDEFINE BUTTON ID 70 OF oDlg \n   REDEFINE BUTTON ID 80 OF oDlg \n   REDEFINE BUTTON ID 100 OF oDlg \n   REDEFINE BUTTON ID   1 OF oDlg \n\n   REDEFINE SAY oSay VAR cText ID 90 OF oDlg \n\n   ACTIVATE DIALOG oDlg NOWAIT ; \n      ON INIT ChangeParent&#40; oDlg, oChild &#41; \n      \n   oDlg&#58;End&#40;&#41;    \n   oChild&#58;bResized = &#123; || oBrw&#58;SetSize&#40; oChild&#58;nWidth - 117, oChild&#58;nHeight - 60 &#41;,; \n                                     oSay&#58;nTop &#58;= oChild&#58;nHeight - 55, oSay&#58;nLeft &#58;= &#40; oChild&#58;nWidth / 2 &#41; - oSay&#58;nWidth / 2 &#125; \n   oChild&#58;SetSize&#40; 800, 400 &#41; \n    \nreturn nil    \n\n#define GW_CHILD      5 \n#define GW_HWNDNEXT   2 \n\nfunction ChangeParent&#40; oDlg, oWnd &#41; \n\n   local hCtrl &#58;= GetWindow&#40; oDlg&#58;hWnd, GW_CHILD &#41; \n   local n, aChilds &#58;= &#123;&#125; \n\n   while hCtrl != 0 \n      AAdd&#40; aChilds, hCtrl &#41; \n      hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT &#41; \n   end \n\n   AEval&#40; aChilds, &#123; | hCtrl | SetParent&#40; hCtrl, oWnd&#58;hWnd &#41; &#125; &#41; \n\n   for n = 1 to Len&#40; oDlg&#58;aControls &#41; \n      AAdd&#40; oWnd&#58;aControls, oDlg&#58;aControls&#91; n &#93; &#41; \n   next \n\nreturn nil \n[/code:3c2ao2my]','',0,'AIA=','3c2ao2my',1,0,'',2,0,0),(34203,7467,6,1086,0,'216.244.197.251',1183467179,1,0,1,1,1,0,'','error al compilar..ayuda','Hola amigos,estoy dando mis primeros pasos en FiveWin logre instalar porfin y entender los distintos pasos, me saltan dos errores al compilar el primer programa TUTOR01.PRG son:\n\nERROR E2193 tutor01.c 56: Too few parameters in call to \'hb_vmExecute\' in function HB_FUN_MAIN\n\nERROR E2193 tutor01.c 68: Too few parameters in call to \'hb_vnExecute \'in function HB_FUN_APPSYS\n\n***2 errors n Compile***\nTurbo incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'TUTOR01.OBJ\'\nNo se encuentra el archivo\n\nComo siempre necesito ayuda porfa...\n\nFWH 2.6 + BCC55 + Harbour build Abril 2006','',0,'AIA=','3u02hkfp',1,0,'',1086,0,0),(34204,7455,6,644,0,'200.82.29.206',1183467450,1,0,1,1,1,0,'','','Muchas gracias Lorenzo. Funcionó perfectamente','',0,'AIA=','35vzq30x',1,0,'',644,0,0),(34205,7468,4,529,0,'200.233.185.181',1183467966,1,0,1,1,1,0,'','processor TI\'s OMAP? 850, 201 MHZ','hi, fwppc works with processor above?? whats device is good for fwppc? some smartphone works?? thanks','',0,'AIA=','vqryt107',1,0,'',529,0,0),(34206,7469,3,904,0,'196.25.255.218',1183468294,1,0,1,1,1,1,'','TDATABASE Help','I came across something in the TDATABASE Class help:\n\nlBuffer          To use or not a buffer. It is a must for NetWorking!  \n\nCan someone explain this to me?  Does it activate releated to aBuffer?\n\naBuffer       An editing buffer holding fields temporary data           The big benefit of using a TDataBase object is the editing where we may drastically reduced our source code size. aBuffer keeps an array with the same number of elements as fields are on the workarea. This buffer may be loaded from the record or saved to the record. So there is no need to work with local variables (normally used with this same purpose,   to work as a field buffer), and just one TDataBase object will be enough and perfect to hold all temporary fields values','',0,'AIA=','3dw0y6sz',1,0,'',904,0,0),(34207,7465,3,308,0,'84.148.8.161',1183469332,1,0,1,1,1,0,'','Re: TReport &amp; Barcode','[quote=&quot;Riccardo&quot;:1mvkrgj6]Is possible to print a barcode in a column with TReport?\nThank you.\nRiccardo[/quote:1mvkrgj6]\n\nlook here\n[url:1mvkrgj6]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3929[/url:1mvkrgj6]\n\nRegards, Norbert','',0,'kA==','1mvkrgj6',1,0,'',308,0,0),(34208,7470,6,92,0,'217.125.171.10',1183471324,1,0,1,1,1,0,'','SET RELATION y LOCATE','Buenas,\n\nEl otro día leí un post sobre SET RELATION.\n\nEché en falta algún ejemplo de como realizar un LOCATE sobre dos DBFs relacionadas.\n\nAlguien podría instruirme un poco sobre ello?\n\nLa verdad, por lo que entendí sogbre SET RELATION no me pareció una panacea para acceder a diferentes DBFs de una manera simple.\n\nSaludos y gracias\nCarlos G.','',0,'kA==','3d76iv4p',1,0,'',92,0,0),(34209,7427,6,228,0,'190.24.251.27',1183471623,1,0,1,1,1,1,'','Felicidades..','Comparto la idea de Jose Luis....\n\nSi no fuera por verce, no se que hubiera hecho para poder compilar mis aplicaciones, de verdad que es la manera mas facil de crear el ejecutable. \n\nAmigo gracias por tu aporte se nota que nos a sacado a apuros a varios de nosotros.','',0,'kA==','qigyllfk',1,0,'',228,0,0),(34210,7427,6,255,0,'201.122.36.212',1183472126,1,0,1,1,1,1,'','','Bien.... pues me he decidido a hacerle algunos ajustes...\nAsi que si tienen alguna recomendacion y/o sugerencia\npor favor haganla llegar a   salinasj @ geainternacional.com\n\nGracias de nuevo por sus comentarios','',0,'kA==','pqu9u5en',1,0,'',255,0,0),(34211,7465,3,41,0,'200.105.194.234',1183472988,1,0,1,1,1,0,'','','Hello,\n\nI think the better way is using True Type Fonts for the barcode column\n\nregards\n\nMarcelo','',0,'kA==','zl3qvgse',1,0,'',41,0,0),(34212,7372,2,509,0,'80.34.248.50',1183473128,1,0,1,1,1,0,'','Solucionado &quot;Infracción de acceso en WOW32.dll&quot;','[quote=&quot;RPATON&quot;:26f5adrm]Voy a probar con FWH.\n\nGracias.\n\nSaludos.\nRicardo Patón[/quote:26f5adrm]\n\nHola:\n     Efectivamente pasando a FWH y utilizando HBCOMM.LIB todo ha quedado solucionado.\n     Saludos.\n     Ricardo Patón','',0,'gA==','26f5adrm',1,0,'',509,0,0),(34213,1314,6,24,0,'80.24.12.168',1183473138,1,0,1,1,1,1,'','','[quote=&quot;A&amp;C&quot;:17gv9el0]Y en que quedo el TEMA PACO o ANTONIO\n\nme interesaria saber[/quote:17gv9el0]\n\nEn nada... como acostumbra a pasar.... por desgracia...','',0,'gA==','17gv9el0',1,0,'',24,0,0),(34214,7469,3,303,0,'72.199.41.171',1183475999,1,0,1,1,1,0,'','','Ollie,\n\nGo to my website and read the articles on OOP programming and the information about TData (an enhanced database class). Then if you still have questions, let me know.\n\nAnd, yes, using a database class will reduce your code requirements a lot. But that is the least of the advantages.\n\nYou will find the articles here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nJames','',0,'gA==','3sdanw5w',1,0,'',303,0,0),(34215,7429,6,105,0,'200.72.140.34',1183476598,1,0,1,1,1,1,'','','Gracias a Todos\n\nLo he podido hacer mezclando ambas partes de las soluciones que me han enviado, pero en vez de usar ExtTextOut() he utilizado WSay() ya que me permite cambio de color de letra y fondo, y si la deseo transparente o no.\n\nGracias','',0,'gA==','3b36m4bp',1,0,'',105,0,0),(34216,7466,3,303,0,'72.199.41.171',1183476871,1,0,1,1,1,0,'','','Ollie,\n\n&gt;To display diferent records from same dbf, you must open the DBF two times with dferent alias.\n\nAnd with my TData class you don\'t have to deal with aliases. You would just create two database objects and use them. No dealing with SELECT statements either.\n\nBest is to create a defects class.\n\n[code:2wih376c]class TDefects\n   method new&#40;&#41;\nendclass\n\nmethod new&#40;&#41; class TDefects\n      super&#58;new&#40;,&quot;defects&quot;&#41;\n      &#58;&#58;use&#40;&#41;\n      if &#58;&#58;used&#40;&#41;\n         addIndex&#40;&quot;defect1&quot;&#41;\n         addIndex&#40;&quot;defect2&quot;&#41;\n         &#58;&#58;setOrder&#40;1&#41;\n         &#58;&#58;gotop&#40;&#41;\n      endif\nreturn self[/code:2wih376c]\n\nOK, now you can just open two copies of the database:\n\n[code:2wih376c]oDefects1&#58;= TDefects&#40;&#41;&#58;new&#40;&#41;\noDefects2&#58;= TDefects&#40;&#41;&#58;new&#40;&#41;[/code:2wih376c]\n\nAnd then build the browses:\n\n[code:2wih376c]@ 0,0 oLbx1 fields oDefects1&#58;date, oDefects1&#58;descrip;\n      headers &quot;Date&quot;,&quot;Description&quot;;\n      alias oDefects1&#58;cAlias\n      \n@0,0 oLbx2 fields oDefects2&#58;date, oDefects2&#58;descrip;\n      headers &quot;Date&quot;,&quot;Description&quot;;\n      alias oDefects2&#58;cAlias[/code:2wih376c]  \n    \nSimple!\n\nJames','',0,'AIA=','2wih376c',1,0,'',303,0,0),(34217,7471,3,29,0,'88.149.165.190',1183477585,1,0,1,1,1,0,'','LoadLibrary/LoadLIB32 doesn\'t run on Windows 98','Hi,\nI checked that always return 0 on Windows 98.\n\nPls. take a look at this self-contained sample\navailable at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/dlltest.zip\">www.softwarexp.co.uk/beta/dlltest.zip</a><!-- w -->\n\nIt return a positive value on WinXP/Vista and return 0 on Windows 98.\n\nAll runs fine with FWH 2006.\n\nAny ideas ?\n\nThanks in advance.\n\nMarco Turco','',0,'AIA=','jfk5logn',1,0,'',29,0,0),(34218,7465,3,138,0,'189.141.72.112',1183478078,1,0,1,1,1,1,'','','Agree with you.\n\nBarcode lib is pretty good when printing full sheets of barcodes.\n\nHowever if you need a simple column of a report object with the barcode printed, the fastest way is to use a BarCode Truetype font.\n\nThere are plenty free bar code fonts over the internet just google \"barcode fonts\" and you will find them.','',0,'AIA=','tc19qggv',1,0,'',138,0,0),(34219,7465,3,344,0,'80.18.221.53',1183478327,1,0,1,1,1,0,'','','Marcelo,\ncould you tell me where id possible found the fonts and the conversion in string.\nThank you','',0,'AIA=','n5jlb3ht',1,0,'',344,0,0),(34220,7470,6,138,0,'189.141.72.112',1183478459,1,0,1,1,1,1,'','','Es muy simple:\n\nUna vez establecida la relacion, haces un LOCATE sobre la tabla \"padre\" y el puntero de la tabla \"hija\" se mueve utomaticamente.\n\nY ahora yo me pregunto.... para realizar una relacion las dos tablas deben de estar indexadas, ¿ porqué querrias hacer un LOCATE en vez de un SEEK ?','',0,'AIA=','sj0f1zb0',1,0,'',138,0,0),(34221,7465,3,41,0,'200.105.194.234',1183478614,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://www.google.com.bo/search?hl=es&amp;q=true+type+font+barcode&amp;btnG=Buscar&amp;meta=\">http://www.google.com.bo/search?hl=es&amp;q ... scar&amp;meta=</a><!-- m -->','',0,'AIA=','3czv2vr5',1,0,'',41,0,0),(34222,7447,6,138,0,'189.141.72.112',1183478663,1,0,1,1,1,1,'','','Precisamente acabo de escribir un post al respecto en mi blog\n\nY ahi explico un poco de que va el tema Linux y porqué Borland abandonó el Kylix.','',0,'AIA=','1mnou5r9',1,0,'',138,0,0),(34223,6814,3,529,0,'200.159.198.22',1183480688,1,0,1,1,1,0,'','','hi, when i down last code of adordd? thanks','',0,'AIA=','1apb7yag',1,0,'',529,0,0),(34224,7470,6,92,0,'217.125.171.10',1183480703,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:105i6qf0]Es muy simple:\n\nUna vez establecida la relacion, haces un LOCATE sobre la tabla \"padre\" y el puntero de la tabla \"hija\" se mueve utomaticamente.\n\nY ahora yo me pregunto.... para realizar una relacion las dos tablas deben de estar indexadas, ¿ porqué querrias hacer un LOCATE en vez de un SEEK ?[/quote:105i6qf0]\n\nHola Rene,\n\nPara buscar una factura de una fecha concreta de un cliente (de la cual no se el número); cabe la posibilidad de que la primera que se encuentre con el seek \'automático\' no sea la buscada.\nDe ahí que quiera realizar un LOCATE sobre un campo de cada DBF.\n\nSaludos y gracias\nCarlos G.','',0,'gA==','105i6qf0',1,0,'',92,0,0),(34225,7443,3,34,0,'68.5.217.82',1183480865,1,0,1,1,1,1,'','Combobox','The error was unrelated to the combobox code.  On the On Change, it had to do with the sequence the data was applied.  When I changed the sequence of the steps in the process it worked.  I\'m not exactly sure why because logically the original order seemed correct, but it works now.','',0,'gA==','382edyqn',1,0,'',34,0,0),(34226,6947,6,987,0,'189.132.3.253',1183481705,1,0,1,1,1,0,'','Saludos amigos','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Gracias por tu post amigo sildata, ya encontre el parche y solucione el problema, ya avance algo, con pequeñas modificaciones y con el apoyo de un colega.. Mil gracias por tu respuesta..\n\nSaludos desde  <!-- s:arrow: --><img src=\"{SMILIES_PATH}/icon_arrow.gif\" alt=\":arrow:\" title=\"Arrow\" /><!-- s:arrow: --> San Cristóbal de las Casas, Chiapas, México','',0,'gA==','1jw1idue',1,0,'',987,0,0),(34227,7472,3,34,0,'68.5.217.82',1183481723,1,0,1,1,1,1,'','Button in Dialog not themed 7.05','On the latest FWH release, with the latest xHarbour, running in Vista.  On a dialog, my buttons are the old boxy type although the rest of the dialog box sets to the Windows Vista theme.  These are regular dialog buttons not bitmap buttons.  Why not the rounded theme buttons ?\n\nExample:\n\nIn the program code:\n   REDEFINE BUTTON ID 710 of oDiw ACTION ( oInv:save( ), oDiw:update( ), oLbxin:setfocus( ) );\n      MESSAGE \"Save any changes made to the current inventory item\"\n\nAnd in the RC:\n\n  CONTROL \"&amp;Save\", 710, \"Button\", WS_TABSTOP, 580, 96, 50, 12\n\nPreviously we had themed buttons ...\n\nTim <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->\n\nNOW THAT I LOOK MORE CLOSELY I also see that the edit fields are also the boxy squared off version.  Didn\'t we have all of these working cleanly with themes in the past ( rounded like in all the other programs ) or am I just imagining that ?','',0,'gA==','270zewoi',1,0,'',34,0,0),(34228,7471,3,2,0,'87.218.146.80',1183482392,1,0,1,1,1,1,'','','Marco,\n\nIts not a FWH issue. It looks as cdintf.dll is not compatible with Win98.\n\nThis C standalone EXE can\'t load it. You can build it doing bcc32 test.c:\n[code:1oyw7wfn]#include &lt;windows&#46;h&gt;\n\nint main&#40; int argc, char * argv&#91;&#93; &#41;\n&#123;\n   HANDLE hDLL = LoadLibrary&#40; &quot;cdintf&#46;dll&quot; &#41;;\n\n   if&#40; hDLL &#41;\n      MessageBox&#40; 0, &quot;ok&quot;, &quot;ok&quot;, 0 &#41;;\n   else\n      MessageBox&#40; 0, &quot;can\'t load it&quot;, &quot;ok&quot;, 0 &#41;;\n\n   FreeLibrary&#40; hDLL &#41;;\n\n   return 0;\n&#125;\n[/code:1oyw7wfn]','',0,'AIA=','1oyw7wfn',1,0,'',2,0,0),(34229,7446,6,987,0,'189.132.3.253',1183482540,1,0,1,1,1,0,'','Probando nueva fuente..','Este es un 2 X 1\n\n[b:qztvz8no][u:qztvz8no]Estimado Fransico Horta:[/u:qztvz8no][/b:qztvz8no]\nTe comento que intente mover algunas cosas dentro del codigo fuente logrando solo descomponer el diseño de las graficas, así que opte por comentarle al autor y dicha modificacion que mando es la que deseaba.. pruebala... quedo excelente.. muy buen trabajo..\n\n[b:qztvz8no][u:qztvz8no]Estimado Alfredo Arteaga:[/u:qztvz8no][/b:qztvz8no]\nExcelente ajuste, ahora si ya quedo.. de ante mano muy adradecido, seria buena idea agregar esta modificacion a las libs de fivewin de esta fabulosa clase ya que se aprovecha al máximo todo el espacio en pantalla para ver multiples barras..\n\nMuchas gracias a los por sus mensajes y por tomar un ratito de su tiempo \npara resolver mi duda..\n\nSaludos desde San cristobal de las Casas, Chiapas','',0,'QQ==','qztvz8no',1,0,'',987,0,0),(34230,7446,6,987,0,'189.132.3.253',1183483533,1,0,1,1,1,0,'','Se me olvidaba..','Para Alfredo Arteaga..\n\nSería mucho pedir que nos pudieras regalar un manual completo de como poder explotar al máximo su clase. me refiero a algo un poco más avanzado, de como interactuar las funciones internas, como agregar mas series desde arreglos, diferentes colores para cada uno de las barras (esto me costo un poco), dibuar lineas y puntos desde varios valores (todavia no me sale)... en fin hay mucho por descubrir y que nos cuesta como programadores tratar de encontrar si no tenemos algo que nos guie..\n\nDe ante mano muchas gracias.. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QQ==','bgcycfa2',1,0,'',987,0,0),(34231,7472,3,2,0,'87.218.146.80',1183485167,1,0,1,1,1,1,'','','Tim,\n\nPlease check that you are including WindowsXP.Manifest file in your resources, to get themes support','',0,'QQ==','3qrs0zze',1,0,'',2,0,0),(34232,7446,6,940,0,'189.157.72.130',1183485881,1,0,1,1,1,1,'','','Yo creo que no hay mejor manual que el codigo fuente,,\n\nsaludos.','',0,'QQ==','3ro5obsb',1,0,'',940,0,0),(34233,7473,6,435,0,'200.155.192.178',1183486851,1,0,1,1,1,0,'','Porque MDIChild como MODAL','Estou passando todas as janelas para MDI com MDICHILD, e uma desta MDICHILD deve retornar um registro. Mas nao fica esperando a minha escolha passa reto e continua, porque a MDI nao fica esperando..\n\nem Dialog MODAL nao tem isso.\n\nalguem tem alguma ideia.\n\nAri','',0,'QQ==','2vaom6cr',1,0,'',435,0,0),(34234,7473,6,2,0,'87.218.146.80',1183487466,1,0,1,1,1,1,'','','Ari,\n\nPuedes deshabilitar todas las demas ventanas, para que no puedan seleccionarse ( &lt;oWnd&gt;:Disable() ) e implementar un bucle modal de este modo:\n[code:3g2ofq7t]\ndesactivar otras ventanas&#46;&#46;&#46;\n\nlExit = &#46;T&#46;\n\nACTIVATE WINDOW oWndChild VALID &#40; lExit &#58;= &#46;T&#46; &#41;\n\nwhile ! lExit\n   Sleep&#40;&#41;  // ó SysRefresh&#40;&#41;\nend\n\nactivar otras ventanas &#46;&#46;&#46; &#40;&lt;oWnd&gt;&#58;Enable&#40;&#41; &#41;\n[/code:3g2ofq7t]','',0,'AIA=','3g2ofq7t',1,0,'',2,0,0),(34235,7446,6,171,0,'71.233.232.238',1183487625,1,0,1,1,1,0,'','','Hola Foro,\n\nPrimeramente gracias a Alfredo Arteaga por facilitarnos esta clase.\n\nAhora mi pregunta:\nAlgun Compañero que este usando tGraph con xHarbour favor de verifcar si el metodo Save2BMP() le esta funcionando. A mi lo que me graba es un pequeño cuadrado blanco con una X roja en el medio.\n\nSaludos,\n\n\nGeorge','',0,'AIA=','29k1eyv6',1,0,'',171,0,0),(34236,7473,6,435,0,'200.155.192.178',1183487803,1,0,1,1,1,0,'','','ok. obrigado\n\nfuncionou perfeito !\n\nAri','',0,'AIA=','sm9hucq2',1,0,'',435,0,0),(34237,7443,3,303,0,'72.199.41.171',1183488816,1,0,1,1,1,0,'','','Tim,\n\nOK, glad to hear you have solved it.\n\nJames','',0,'AIA=','r1p94cn1',1,0,'',303,0,0),(34238,7460,3,303,0,'72.199.41.171',1183489066,1,0,1,1,1,0,'','','Ollie,\n\nWhy not use a combobox for this? A combobox seems like a better choice.\n\nJames','',0,'AIA=','1gs5rtx4',1,0,'',303,0,0),(34239,7461,3,303,0,'72.199.41.171',1183489262,1,0,1,1,1,0,'','','Are you having a problem with BtnGet? Are you referring to the one written by Ricardo Ramirez?\n\nI am using the version dated 9/30/2002 and it seems to be working fine with the version of xHarbour that came with FWH 7.05.\n\nJames','',0,'AIA=','7a1y2g0i',1,0,'',303,0,0),(34240,1314,6,2,0,'87.218.146.80',1183489450,1,0,1,1,1,1,'','','El GDI+ require instalar unas librerías de Windows, bastante voluminosas y que además no estan disponibles para todas las versiones de Windows, y nuestra preferencia es que nuestras aplicaciones requieran las menos DLLs posibles','',0,'AIA=','14qrqncv',1,0,'',2,0,0),(34241,7463,3,2,0,'87.218.146.80',1183490536,1,0,1,1,1,1,'','','Michel,\n\nIt looks as a Win32 API restriction','',0,'AIA=','1hoqgksz',1,0,'',2,0,0),(34242,1314,6,110,0,'165.98.223.31',1183491187,1,0,1,1,1,1,'','','paco existe un proyecto que pretende actualizar .h y lib para el compilador borland a las versiones mas actuales de los de MS.\n\nes llamado\n\nbccsdk\n\nprueba buscarlo en google.\n\nsalu2\ncarlos vargas','',0,'AIA=','359vqehx',1,0,'',110,0,0),(34243,7472,3,34,0,'68.5.217.82',1183491887,1,0,1,1,1,1,'','Manifest','Thats the first thing I checked ... and it is there.  The Dialog box and background is fine.  The edit fields are dark boxes and the buttons are square boxes ...','',0,'AIA=','3k2a5pog',1,0,'',34,0,0),(34244,7472,3,34,0,'68.5.217.82',1183492833,1,0,1,1,1,1,'','I found the problem','OK ... in the .RC file there is also a reference to the manifest ... or their should be.  However, I had updated the file using the Pelles resource compiler, and it eliminated that reference.  \n\nI added it in with a text editor and got my themes back.\n\nIts a shame we don\'t have a stable resource compiler, 32 bit, Vista compatible.','',0,'AIA=','1128r9zy',1,0,'',34,0,0),(34245,7474,6,73,0,'200.23.18.132',1183493215,1,0,1,1,1,0,'','xbrowse AYUDA perdida de foco y escape...','hola foro,\naqui probando por 1a vez la xbrowse nativa, y me topo con 2 cosas que no he sabido por donde buscarle...\nla uso con array\n1. tengo 5 botones y un xbrowse, el browse tengo 3 columnas editables,1 con get y dos con listbox, cuando en los listbox slecciono con ENTER se pirde el foco del xbrowse y me pasa al siguiente control, como hacer para que se quede el foco en el xbrowse? si selecciono del listbox con raton no sucede eso\n2. cuando estoy editando la primer columna si presiono ESCAPE no me devuelve al valor anterior, me acepta la captura, de hecho en mi dialogo tuve que poner un VALID porque si presionaba ESCAPE estando editando en el xbrowse me cerraba el dialogo completo.\n\nasi tengo mi columna para el ESCAPE\noBrw:aCols[1]:bOnPostEdit   := {|o,xVal,nKey| IF(nKey!=VK_ESCAPE,aDetalle[ oBrw:nArrayAt, 1 ] := xVal,) }\n\nalguna sugerencia?\nuso fwh705 y harbour\ngracias\npaco','',0,'','2eprchzx',1,0,'',73,0,0),(34246,7472,3,35,0,'167.7.140.254',1183493397,1,0,1,1,1,0,'','','Tim\n\nThere was an earlier post on a resource ( free ) editor from Resedit .. I have not used it in production .. here is the link if you would like to download and try.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.resedit.net/\">http://www.resedit.net/</a><!-- m -->\n\nRick Lipkin\nSC Dept of Health, USA','',0,'','3hli44xl',1,0,'',35,0,0),(34247,1314,6,228,0,'190.24.16.118',1183497431,1,0,1,1,1,1,'','THE FULL','Oye the full...\n\nYo siempre me he preguntado por que siempre estas en esa actitud contra Antonio, es que en el pasado sucedio algo?.\n\nPor que para mi en este foro hay buen soporte.','',0,'','1kskfiqv',1,0,'',228,0,0),(34248,7456,6,103,0,'201.8.37.102',1183497538,1,0,1,1,1,1,'','','Hola Marizete,\n\n    Una buena opción es la SQLLIB (<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->). Es un RDD que premite usar los comandos de (x)Harbour normalmente.\n\nSaludos,','',0,'','3kg7j6zv',1,0,'',103,0,0),(34249,7468,4,2,0,'87.218.146.80',1183497872,1,0,1,1,1,1,'','','We don\'t know it for sure. If they are Intel XScale compatible then FWPPC will work fine on them.\n\nThe same applies for SmartPhones. If they are Intel XScale compatible (ARM architecture) then they are ok for FWPPC','',0,'','3nmtfqnq',1,0,'',2,0,0),(34250,7467,6,1086,0,'216.244.197.251',1183501361,1,0,1,1,1,0,'','ya esta...pero...','ya logre solucionarlo, pero al compilar me salta un error \"Unable to open file \'DBFDBT\', segun un comentario de Antonio ya no se usa mas o algo asi se debera colocar DBFFPT.LIB y HBSIX.LIB que estan el directorio de HARBOUR/LIB, la pregunta si alguien puede ayudarme como logro para eliminar el archivo que me pide DBFDBT.LIB.\nSaludos','',0,'','2bauqqkr',1,0,'',1086,0,0),(34252,7467,6,1086,0,'216.244.197.251',1183502552,1,0,1,1,1,0,'','ya esta..','Ya lo solucione,error mio, no haber leido la pagina 57 una buena explicacion de Antonio.','',0,'','296ml2r6',1,0,'',1086,0,0),(34253,7476,6,1089,0,'190.82.45.204',1183506138,1,0,1,1,1,0,'','¿Cómo puedo dejar disable un botón de una toolbar?','La pregunta es, ¿Cómo puedo dejar disable un botón de una toolbar?\n\nEl código:\n\nDEFINE TBBUTTON OF oToolBar2 ACTION (C_GD(oWnd,oMenuIt[26])) TOOLTIP \"Emisión de Guías de Despacho a Clientes\" \n\nLa función:\n\nFunction C_GD(oWnd,oMenuIt)\n\noMenuIt:Disable()\n\nCon eso dejo disable el item del menú, pero no tengo idea qué parámetro debo usar o bien, qué when debo usar para dejar en el mismo estado el botón asociado a esa opción.\n\nAgradeceré cualquier colaboración.\n\nSaludos, Leonel.','',0,'','2dgw0r2p',1,0,'',1089,0,0),(34254,7461,3,233,0,'218.111.207.185',1183514282,1,0,1,1,1,0,'','','[quote:1zl2ib67]Are you having a problem with BtnGet?[/quote:1zl2ib67]\nThat remains to be seen <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> It\'s just that for the time being I have yet to get the 32-bit compatible version of BtnGet.\n\n[quote:1zl2ib67]Are you referring to the one written by Ricardo Ramirez?[/quote:1zl2ib67]\nYeap. That\'s the one.\n\n[quote:1zl2ib67]I am using the version dated 9/30/2002 and it seems to be working fine with the version of xHarbour that came with FWH 7.05.[/quote:1zl2ib67]\nThe one that I found on my hard disk is the 16-bit version dated somewhere around 2001, hence me asking whether anyone has a copy of the latest 32-bit version of BtnGet <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1zl2ib67',1,0,'',233,0,0),(34255,7476,6,53,0,'189.139.17.93',1183517118,1,0,1,1,1,1,'','','Leonel:\n\nA ver si te sirve este pequeño ejemplo\n\nDEFINE BUTTON aBotones[ 4] OF oBarra RESOURCE \"Btn04\";\n     ACTION (aSubM1[ 4]:Disable(),;    // Desactivamos la opción del menu\n     aBotones[ 4]:Disable(),;    // Desactivamos el botón\n     WinNom1D(oWindow,cAplicacion),;  // Llamamos a un PRG\n     aSubM1[ 4]:Enable(),;   // Activamos la opción del menú\n     aBotones[ 4]:Enable());  // Activamos el botón\n     TOOLTIP \"Crea archivo de nómina (CTRL+N)\";\n     MESSAGE \"Crea archivo de nómina mezclando conceptos fijos y excepciones\";\n     GROUP\n\nSaludos','',0,'','308saqjl',1,0,'',53,0,0),(34256,7468,4,529,0,'200.159.198.22',1183517438,1,0,1,1,1,0,'','','Antonio, where i found an list of compatible devices, i am buying an smartphone and i dont know an compatible, someone user has one?','',0,'','3bl05120',1,0,'',529,0,0),(34257,1314,6,24,0,'88.18.32.211',1183528881,1,0,1,1,1,1,'','Re: THE FULL','[quote=&quot;leandro&quot;:3qi71mo5]Oye the full...\n\nYo siempre me he preguntado por que siempre estas en esa actitud contra Antonio, es que en el pasado sucedio algo?.\n\nPor que para mi en este foro hay buen soporte.[/quote:3qi71mo5]\n\nNo se de donde llevas a sacar dicha conclusión.\n\nJamás he dicho nada en contra de Antonio, y si he dicho alguna palabra mas o menos fuera de tono, siempre a sido con espiritu constructivo.\n\nSupongo que si le molesta a Antonio, será él mismo quien me diga algo, \ny aun así, no creo que sea de tu interés.\n\nSi les mi respuesta, verás que yo no diga; \nJODER ANTONIO; Es que no se hace nada.\n\nMis palabras van dirigidas a la COMUNIDAD de Fivewin, NADA MAS.\n\nAntonio bastante tiene con dejarme cojonudo Fivewin, con eso, yo estoy contento, que de lo otro ya me encargaré yo mismo.','',0,'gA==','3qi71mo5',1,0,'',24,0,0),(34258,7476,6,2,0,'87.218.146.80',1183533403,1,0,1,1,1,1,'','','Leonel,\n\noToolBar2:EnableButton( 2, .F. ) // Deshabilita el segundo botón','',0,'gA==','24zioa1f',1,0,'',2,0,0),(34259,7453,7,106,0,'85.34.123.173',1183534516,1,0,1,1,1,1,'','','Elias,\n\nEn ese caso no sabría como hacerlo.\nHabría que ver si existe alguna funcion que devuelva la fecha y hora de la pc a la que estas conectado, o si creando un archivo en el pc, te lo crea con la fecha y hora del pc o del pocket, y en ese caso, tomar la fecha y hora y cambiarla en el pocket.\n\nSaludos.','',0,'gA==','31rrkln5',1,0,'',106,0,0),(34260,7477,3,159,0,'210.243.203.20',1183543669,1,0,1,1,1,0,'','AutoComplete','Hello All!\n\nWindows API have one function \"SHAutoComplete\" from \"shlwapi.dll\"\nBut I do try fail, somebody can help me ? I hope have like IE address URL autocomplete function.\n[code:h5r2qkks]\n// harbour&#58; AutoComplete&#40; hWnd &#41;\nHRESULT &#40;CALLBACK* lpSHAutoComplete&#41;&#40;HWND ,DWORD&#41;;\nHB_FUNC&#40; AUTOCOMPLETE &#41;\n&#123;\n    // LONG nRet;\n    LONG nRet;\n    HWND hWnd = &#40;HWND&#41; hb_parnl&#40;1&#41;;  // Dialog hWnd\n    HINSTANCE hIns = LoadLibrary&#40;&quot;shlwapi&#46;dll&quot;&#41;;\n    if &#40;hIns != NULL&#41; &#123;\n       &#40;FARPROC *&#41; lpSHAutoComplete = GetProcAddress&#40;hIns, &quot;SHAutoComplete&quot;&#41;;\n       if &#40;lpSHAutoComplete != NULL&#41; &#123;\n          nRet = lpSHAutoComplete&#40; hWnd, 0&#41;;\n          hb_retnl&#40; nRet &#41;;\n       &#125;\n       else\n          hb_retnl&#40;-2&#41;;\n       FreeLibrary&#40;hIns&#41;;\n    &#125;\n    else\n       hb_retnl&#40;-1&#41;;\n    return;\n&#125;\n\n[/code:h5r2qkks]','',0,'AIA=','h5r2qkks',1,0,'',159,0,0),(34261,7478,3,904,0,'196.25.255.250',1183544573,1,0,1,1,1,1,'','Problem with Updating a LISTBOX','Please can someone tell me what I am doing wrong.\n\nI want the 2nd Listbox items to change based on the selection of the first.\n\nI have also tried oLbx2:REFRESH(),oDlg:UPDATE(),sysrefresh()  in the ON CHANGE for oLbx1 - the second listbox just won\'t change.\n\nThe code below is a complete selfcontained example.\n\n\n[code:3aug41sv]PROCEDURE LISTBOXTEST&#40;&#41;\n   LOCAL oDlg\n   LOCAL aitems1,aitems2,aitems3, cValue1, cValue2, cValue3\n\n   aItems1&#58;=&#123;&quot;1&quot;,&quot;2&quot;&#125;\n   cValue1&#58;=aItems1&#91;2&#93;\n\n   aItems2&#58;=&#123;&quot;3&quot;,&quot;4&quot;,&quot;5&quot;&#125;\n   cValue2&#58;=aItems2&#91;2&#93;\n\n   DEFINE DIALOG oDlg FROM 5,10 TO 24, 55 TITLE &quot;ListBoxTest&quot;\n\n   @  1, 2 LISTBOX oLbx1 VAR cValue1 ITEMS aItems1 SIZE 45, 95 OF oDlg UPDATE ;\n   ON CHANGE &#40;IF&#40;cValue1=&quot;1&quot;,aItems2&#58;=&#123;&quot;a&quot;,&quot;b&quot;,&quot;c&quot;&#125;,aItems2&#58;=&#123;&quot;X&quot;,&quot;Y&quot;,&quot;Z&quot;&#125;&#41;,oDlg&#58;UPDATE&#40;&#41;&#41;\n\n    @  1, 14 LISTBOX oLbx2 VAR cValue2 ITEMS aItems2 SIZE 45, 95 OF oDlg UPDATE\n\n   @ 7, 7 BUTTON &quot;&amp;OK&quot; OF oDlg SIZE 40, 12 ;\n     ACTION oDlg&#58;End&#40;&#41; DEFAULT\n\n   @ 7, 17 BUTTON &quot;&amp;Cancel&quot; OF oDlg SIZE 40, 12 ;\n     ACTION &#40; cValue1 &#58;= nil, oDlg&#58;End&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n   RETURN[/code:3aug41sv]','',0,'AIA=','3aug41sv',1,0,'',904,0,0),(34262,7478,3,2,0,'87.218.146.80',1183547336,1,0,1,1,1,1,'','','[code:yn1ites4]\n   @  1, 2 LISTBOX oLbx1 VAR cValue1 ITEMS aItems1 SIZE 45, 95 OF oDlg UPDATE ; \n   ON CHANGE &#40;IF&#40;cValue1=&quot;1&quot;,aItems2&#58;=&#123;&quot;a&quot;,&quot;b&quot;,&quot;c&quot;&#125;,aItems2&#58;=&#123;&quot;X&quot;,&quot;Y&quot;,&quot;Z&quot;&#125;&#41;,oLbx2&#58;SetItems&#40; aItems2 &#41;, oDlg&#58;UPDATE&#40;&#41;&#41;\n[/code:yn1ites4]','',0,'AIA=','yn1ites4',1,0,'',2,0,0),(34263,7477,3,2,0,'87.218.146.80',1183547488,1,0,1,1,1,1,'','','What return value do you get ?','',0,'AIA=','1xvljw9n',1,0,'',2,0,0),(34264,7468,4,2,0,'87.218.146.80',1183547756,1,0,1,1,1,1,'','','Norberto,\n\nSorry, we don\'t have a hardware compatibility list yet. Try to locate an Intel XScale processor compatible one.','',0,'AIA=','13jfjsym',1,0,'',2,0,0),(34265,7468,4,529,0,'200.233.185.181',1183548862,1,0,1,1,1,0,'','','Antonio, this:\n<!-- m --><a class=\"postlink\" href=\"http://www.directinsight.co.uk/microcontroller/arm-devices.html\">http://www.directinsight.co.uk/microcon ... vices.html</a><!-- m -->\n\nis right?\ni guess this list very important to us... fwppc developers.\n\nNorberto','',0,'AIA=','34vo06k3',1,0,'',529,0,0),(34266,7468,4,529,0,'200.233.185.181',1183549319,1,0,1,1,1,0,'','','or <!-- m --><a class=\"postlink\" href=\"http://www.calculator.org/devices.html\">http://www.calculator.org/devices.html</a><!-- m -->   is best??\n\n\nnorberto','',0,'AIA=','kwo32lg8',1,0,'',529,0,0),(34267,7477,3,159,0,'210.243.203.20',1183549972,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:26if0rc6]What return value do you get ?[/quote:26if0rc6]\n\nZero(0), It\'s OK, no error,\nBut, EditBox or Combobox have not \'AutoComplete\' function.','',0,'gA==','26if0rc6',1,0,'',159,0,0),(34268,7478,3,904,0,'198.54.202.250',1183550196,1,0,1,1,1,1,'','','Thank you. That did it.','',0,'gA==','3rey7vkt',1,0,'',904,0,0),(34269,7479,7,986,0,'200.162.80.159',1183550471,1,0,1,1,1,1,'','FWPPC - Como deletar um arquivo em FTP','Colegas,\n\n\nComo faco para deletar um arquivo em um diretorio FTP, atraves do FWPPC.\n\n\nAbracos\n\nOBrigado!','',0,'gA==','3s345rs3',1,0,'',986,0,0),(34270,7480,3,1068,0,'200.153.245.50',1183553915,1,0,1,1,1,1,'','TMail with html body and attachment','hi everyone,\n\nI´m using a TMail class to send mails, it´s work fine, but i have one question:\n\nwhen i want send email with html body i do this:\n\n[code:rux3c5kx]\ncSubject = &quot;Testing Html Body&quot;\n\ncNoteText = nil\n\ncMsgType = nil\n\ncConversationID = nil\n\ndDate = Date&#40;&#41;\n\ncTime = Time&#40;&#41;\n\nlReceipt = &#46;F&#46;\n\nlFromUser = &#46;T&#46;\n\naOrigin = &#123;mymail@mymail&#46;com&#125;\n\naRecipients = &#123;yourmail@yourmail&#46;com&#125;\n\naFiles = &#123;&#123;&quot;c&#58;\\MyDocuments\\MyHtml&#46;htm&quot;,&quot;MyHtml&#46;htm&quot;&#125;&#125;\n\noMail&#58;=TMail&#40;&#41;&#58;New&#40;cSubject ,;\n                             cNoteText ,;\n                             cMsgType ,;\n                             cConversationID ,;\n                             dDate,;\n                             cTime,;\n                             lReceipt,;\n                             lFromUser,;\n                             aOrigin,;\n                             aRecipients,;\n                             aFiles&#41;\n[/code:rux3c5kx]\n\nit´s works great...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nbut if i need attach other file (a pdf file, for example), the html body is not created, and the mail has now 2 attach files, a html file and a pdf file...\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[code:rux3c5kx]\naFiles = &#123;&#123;&quot;c&#58;\\MyDocuments\\MyHtml&#46;htm&quot;,&quot;MyHtml&#46;htm&quot;&#125;,&#123;&quot;c&#58;\\MyDocuments\\MyPdf&#46;pdf&quot;,&quot;MyPdf&#46;pdf&quot;&#125;&#125;\n[/code:rux3c5kx]\n\ni need an email with a html body and other file attached...\n\nMany thanks <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','rux3c5kx',1,0,'',1068,0,0),(34271,7481,6,300,0,'201.67.93.242',1183554333,1,0,1,1,1,0,'','Duda cGetFile','Olá,\n\ncGetFile me retorna el path completo + nome del arquivo\n\nExiste una função para retornar separado?\n\ncGetFile retorna C:\\DADOS\\ARQCTO.DBF\n\nLo necessito en separado\n\nC:\\DADOS\nARQCTO.DBF\n\nSaludos.','',0,'AIA=','1z5ogoe0',1,0,'',300,0,0),(34272,7481,6,300,0,'201.67.93.242',1183554634,1,0,1,1,1,0,'','Re: Duda cGetFile','[quote=&quot;Wanderson&quot;:mtzcz38z]Olá,\n\ncGetFile me retorna el path completo + nome del arquivo\n\nExiste una função para retornar separado?\n\ncGetFile retorna C:\\DADOS\\ARQCTO.DBF\n\nLo necessito en separado\n\nC:\\DADOS\nARQCTO.DBF\n\nSaludos.[/quote:mtzcz38z]\n\n\njejejeje ya encontrei\n\ncFileNoPath','',0,'gA==','mtzcz38z',1,0,'',300,0,0),(34273,7468,4,2,0,'87.218.146.80',1183555390,1,0,1,1,1,1,'','','Norberto,\n\nYes, both are fine, as FWPPC uses ARM architecture. Please notice that on the second list there are some that aren\'t ARM','',0,'gA==','11h6swpo',1,0,'',2,0,0),(34274,7479,7,2,0,'87.218.146.80',1183555591,1,0,1,1,1,1,'','','oFTP:DeleteFile( cFileName )','',0,'gA==','32jvaeck',1,0,'',2,0,0),(34275,6303,4,267,0,'200.208.238.2',1183556763,1,0,1,1,1,1,'','','pymsoft,\n\nWhat it needs is to create file in the PC and to unrar in the Pocket.','',0,'gA==','3o88r2v5',1,0,'',267,0,0),(34276,7482,19,12,0,'201.229.227.74',1183561105,1,0,1,1,1,1,'','xharbour en modo consola...','Saludos,\n\nEstoy tratando de hacer una aplicacion para que me corra en modo consola, pero no he encontrado la forma de hacerlo.\n\nOsea, los scripts necesarios.\n\nuso los que trae el xharbour y me dan un monton de erros.\n\nsi me pueden ayudar les agradecere...\n\nGracias','',0,'gA==','3nzd7n1z',1,0,'',12,0,0),(34278,7476,6,1089,0,'190.82.45.204',1183563809,1,0,1,1,1,0,'','','Antonio, nuevamente gracias, creo que era justamente el método que me faltaba aprender a usar.\n\nPor cierto, tengo otra duda, se que las toolbars no tienen el método Menu, por lo tanto, hay que colgar menús desde una función, la pregunta es, cómo puedo dejar disable la opción de un popup que cuelga del botón de una toolbar, ya que al activar el menú, vuelve a activar los items.\n\nCódigo:\n\nFunction MCCC(oMainWnd )\nLOCAL oMenu, nRow:=63, nCol:=44, aPos := GetCursorPos()\nMENU oMenu POPUP ;\n     MenuItem oMIt[1] Prompt \"Cuenta Corriente Individual\";\n          ACTION (Rec_Com(oWnd,oMenuIt[23],oMIt[1]))\n     Separator\n     MenuItem oMIt[2] Prompt \"Cuenta Corriente General\";\n          ACTION    (ConsCom(oWnd,oMenuIt[24],oMIt[2]))\nENDMENU\nACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd\noMainWnd:Refresh()\nRETURN NIL\n\n\nSe supone que con oMIt:Disable() debería dejar en ese estado la opción del menú desactivada, pero al activar el menú, la mantiene activa.','',0,'','ylhcrbnm',1,0,'',1089,0,0),(34279,7482,19,138,0,'189.141.72.112',1183564382,1,0,1,1,1,1,'','','No necesitas absolutamente nada. Solo linkear la lib GTGUI y listo.\n\nSi manejas tu proyecto con XEdit, XMate, AJMake, o incluso con el mismo HBMake puedes generar el exe en modo consola sin ningun problema.\n\nNo utilices VerCE porque siempre linkea las libs de FW y no puedes generar un exe para modo consola.','',0,'','1elh6y0h',1,0,'',138,0,0),(34280,7477,3,217,0,'200.159.120.34',1183566990,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6726&amp;highlight=tautoget\">http://fivetechsoft.com/forums/viewtopi ... t=tautoget</a><!-- m -->\n\nRegards,\nMaurilio','',0,'','trq94wj5',1,0,'',217,0,0),(34281,7484,6,227,0,'201.28.39.223',1183567060,1,0,1,1,1,1,'','ToolBar','Olá amigos...\n\nComo adicionar e eliminar um botao na toolbar em execução ?\n\nObrigado','',0,'','3ap9e3dy',1,0,'',227,0,0),(34282,6303,4,106,0,'85.34.123.173',1183567420,1,0,1,1,1,1,'','','Vilian, to unrar in the pocket use pocketrar (it\'s free), to rar a files in the pc... with winrar (command line)\n\n\nRegards','',0,'','lmeffrst',1,0,'',106,0,0),(34283,7484,6,2,0,'87.218.146.80',1183567468,1,0,1,1,1,1,'','','METHOD AddButton( bAction, cToolTip, cText, bWhen, cMsg )\n\nMETHOD DelButton( nButton )','',0,'','1qnkt9mq',1,0,'',2,0,0),(34284,7482,19,2,0,'87.218.146.80',1183567569,1,0,1,1,1,1,'','','René,\n\nPara modo consola necesita GTWIN.lib en vez de GTGUI.lib','',0,'','1558tl8g',1,0,'',2,0,0),(34285,7477,3,159,0,'210.243.203.20',1183567964,1,0,1,1,1,0,'','','[quote=&quot;Maurilio Viana&quot;:2h1fyeab]http://fivetechsoft.com/forums/viewtopic.php?t=6726&amp;highlight=tautoget\n\nRegards,\nMaurilio[/quote:2h1fyeab]\n\nI know it, But that is not my request.','',0,'gA==','2h1fyeab',1,0,'',159,0,0),(34286,7484,6,227,0,'201.28.39.223',1183568265,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1tg8l31n]METHOD AddButton( bAction, cToolTip, cText, bWhen, cMsg )\n\nMETHOD DelButton( nButton )[/quote:1tg8l31n]\n\nGracias','',0,'gA==','1tg8l31n',1,0,'',227,0,0),(34287,7440,7,1030,0,'190.55.46.116',1183569620,1,0,1,1,1,0,'','Gracias','Antonio, mil gracias por las ayudas.\n\nNatalia Olgiati','',0,'gA==','36e9py31',1,0,'',1030,0,0),(34288,7485,7,1104,0,'200.115.250.238',1183569971,1,0,1,1,1,0,'','Problemas con los indices.','Tengo un problema con los Indices al abrir las DBFs\nEstoy probando lo siguiente:\n\nUse (\"C:\\Datos\\Stock\") VIA \"DBFNTX\"\n\nComo debo hacer para levantar indices ya creados anteriormente ya que debo grabar unos campos de la base, y actualizarlos.\n\nCon FiveWin yo hacia lo siguiente\n\n//////////////////////////////////////////////////////////////////\nLocal oDbf\n\nUSE Stock Index Stock01,Stock02 NEW\nDATABASE oDbf\n\n//////////////////////////////////////////////////////////////////\n\nEl tema es que me genera un error si utilizo DATABASE para generar el objeto.\nEn FWPPC hay alguna forma de reemplazar esto?\nY hay alguna ayuda escrita de como programar con FWPPC?','',0,'gA==','2lvar3ua',1,0,'',1104,0,0),(34289,7446,6,987,0,'189.132.24.142',1183570462,1,0,1,1,1,0,'','La Funcion de Guardar imagenes..','Esrtimado George:\n\nTe comento que uso xHarbour build 0.45 flex con fivewin 2.6 y funciona bien, es más, la propia clase tiene una opcion que dice copiar al portapapeles o clipboard, le das click  y puedes pegar la imagen en Word, Excell y hasta dentro del propio paint y funciona bien. sin  problemas.. garantizado....\n\nQue versión de xharbour y de fivewin usas, talvez tenga que ver que uses una version ya resagada, me han comentado que con las ultimas actualizaciones tambien funciona sin problemas..\n\n\nSi tienes dudas comunicate conmigo\neste es mi cuenta de msn <!-- e --><a href=\"mailto:danyleon82@hotmail.com\">danyleon82@hotmail.com</a><!-- e -->\n\nSaludos desde Chiapas','',0,'gA==','18qbctu0',1,0,'',987,0,0),(34290,7482,19,138,0,'189.141.72.112',1183571169,1,0,1,1,1,1,'','','Cierto, confusión de GTs, es GTWIN como bien dices.','',0,'gA==','3j4wol49',1,0,'',138,0,0),(34291,7486,2,146,0,'190.136.167.81',1183571252,1,0,1,1,1,0,'','error 332','Buenas Tardes: \nHace un par de días tengo algunos clientes que me estan llamando con el siguiente error\n\nFWDISPBEGI (0)  Error no recuperable 332: Desbordamiento de la memoria para matrices/cadenas\n\nFWDISPBEGI 0000\nTGETL:DISPBEGIN 0000\nTGETL:PAINT 0000\n(b)TGET 0000\nTGETL:HANDLEEVEN 0000\nDIALOGBOXI 0000\nTDIALOGL:ACTIVATE 0000\n\nAlguien tiene idea de que puede ser.\nGracias.\nLeonor','',0,'gA==','3t57ggxq',1,0,'',146,0,0),(34292,7485,7,2,0,'87.218.146.80',1183574434,1,0,1,1,1,1,'','','En el Pocket PC no existe la unidad C:, etc. tienes que usar CurDir():\n\nUSE ( CurDir() + \"\\Stock\" ) VIA \"DBFNTX\" \n\nQue error te dá al usar DATABASE oDbf ?','',0,'gA==','knvxu7em',1,0,'',2,0,0),(34293,7486,2,2,0,'87.218.146.80',1183574632,1,0,1,1,1,1,'','','Leonor,\n\nTienes que plantearte pasar la aplicación a 32 bits usando FWH y Harbour/xHarbour, ya que el error 332 que te aparece es que no tiene suficiente memoria disponible para cadenas/arrays en 16 bits.\n\nTen en cuenta que una aplicación de 16 bits en Clipper sólo dispone de 64 Ks para arrays y cadenas y rapidamente puedes agotar ese tamaño','',0,'gA==','2e4hha61',1,0,'',2,0,0),(34294,7485,7,1104,0,'200.115.250.238',1183575576,1,0,1,1,1,0,'','','Antonio Gracias por la respuesta probé lo siguiente:\n\nUSE (\"\\\\NOMBRE_DE_PC_DE_RED\\Datos\\Stock.dbf\") VIA \"DBFNTX\" NEW\nDATABASE oDBf\n\nEl error que me tira es el siguiente:\n//////////////////////////////////////////////////////////////////////////\nFiveCe.lib (DATABASE.OBJ): Error LNK2001 unresolved external simbol \"void__cdecl HB_FUN_unsitooem(void)\" (?HB_FUN_oemtoansi@@yaxxz)\n/////////////////////////////////////////////////////////////////////////\n\nEn el foro encontré que para los .ntx proponías usar lo siguiente:\n\nUSE (Curdir()+\'\\Bases\\\'+(\"Clientes.dbf\") INDEX \"Index1.ntx\" NEW\n\nen el caso de que los índices ya están creados, como yo ya tengo creados los indices ntx, lo probé, pero me tira un error de apertura.\n\nLa base de datos logré abrirla correctamente, el problema surge cuando quiero manejarla como objeto (DATABASE oDbf) o asociarle indices ya creados.\nTambien logré crear índices pero de todas maneras no puedo usarlos.\nDesde ya muchas gracias.','',0,'gA==','157fimlj',1,0,'',1104,0,0),(34295,7485,7,1104,0,'200.115.250.238',1183575747,1,0,1,1,1,0,'','','Antonio te molesto de nuevo...necesito incluir algun REQUEST??\nVi en algun lado que para los .cdx incluian REQUEST DBFCDX.\n\nO necesito indicarle en algun lado del programa que voy a utilizar indices .NTX??\n\nGracias nuevamente, Esteban.','',0,'gA==','2pw42hxe',1,0,'',1104,0,0),(34296,7487,7,1030,0,'190.55.46.116',1183580501,1,0,1,1,1,0,'','Girar la ventana de la pocket','Hola a todos...molesto nuevamente con otra pregunta.\n\nVi por ahi que existe una manera de indicarle a la pocket desde el codigo que esconda o muetre su teclado.\n\nMi pregunta es si existe algo similar pero que al ingresar a mi aplicacion corriendo en la pocket automaticamente me gire la pantalla de la misma, o sea, me muestre la pantalla en forma horizontal y no vertical.\n\nGracias a todos!\nNatalia Olgiati.','',0,'gA==','31lrc6gd',1,0,'',1030,0,0),(34297,7485,7,2,0,'87.218.146.80',1183581381,1,0,1,1,1,1,'','','Esteban,\n\nEste ejemplo está funcionando correctamente aqui:\n[code:p6av2ze5]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDbf\n\n   USE &#40; CurDir&#40;&#41; + &quot;\\customer&quot; &#41; VIA &quot;DBFNTX&quot;\n\n   DATABASE oDbf\n\n   MsgInfo&#40; Alias&#40;&#41; + &quot;, &quot; + RddName&#40;&#41; &#41;\n\nreturn nil\n[/code:p6av2ze5]\nDe que fecha es el FWPPC que estás usando ?','',0,'AIA=','p6av2ze5',1,0,'',2,0,0),(34298,7487,7,2,0,'87.218.146.80',1183581487,1,0,1,1,1,1,'','','Natalia,\n\nusa las funciones LandScape() para horizontal y Portrait() para vertical','',0,'AIA=','3es2ep4d',1,0,'',2,0,0),(34299,7485,7,1104,0,'200.115.250.238',1183582080,1,0,1,1,1,0,'','','Ok, la versión que estoy utilizando te la compró Jorge Jaurena, yo estoy trabajando para el, y no se si hubo alguna actualizacón, Jorge Jaurena te compró el FWPPC hace mas o menos un año, pero recien hace poco tiempo empezamos a intentar desarrollar aplicaciones.\nSi hay alguna actualización de FWPPC disponible como hay que hacer para bajarla?\nDesde ya muchas gracias.\nSaludos Esteban Ojeda','',0,'AIA=','229apr1u',1,0,'',1104,0,0),(34300,7485,7,2,0,'87.218.146.80',1183583037,1,0,1,1,1,1,'','','Esteban,\n\nTe enviamos un email','',0,'AIA=','34y7hqkv',1,0,'',2,0,0),(34301,7485,7,1104,0,'200.115.250.238',1183583051,1,0,1,1,1,0,'','','Me olvidé de aclararte que el error que me está tirando es cuando quiero elnlazar.\nEl ejemplo q me enviaste también me tira el mismo error.\nPuede ser que me esté faltando algo?\n\nEstoy complilando de la siguiente manera:\n\n@ECHO OFF\nCLS\nDEL Compilar.log\n\nECHO Compiling...\n\nECHO ** COMPILO DE PRG A C *********************************\nHARBOUR INICIO     /n /i /p %2 %3    &gt;&gt;COMPILAR.LOG\necho --------------------------------------------------------------------------- &gt;&gt;COMPILAR.LOG\necho . &gt;&gt;COMPILAR.LOG\necho . &gt;&gt;COMPILAR.LOG\nECHO ************************************************************\nECHO ********** COMPILO DE C A OBJ *************************\n\nCLARM -TP -W3 -c /DARM /DUNICODE /I C:\\HARBOUR_ce\\include /I..\\include INICIO.c &gt;&gt;COMPILAR.LOG\necho --------------------------------------------------------------------------- &gt;&gt;COMPILAR.LOG\nECHO ************************************************************\nPAUSE\n\nComplila bien si errores.\n\nY enlazo de la siguiente manera:\n\nDEL LIN.TMP\n\necho C:\\WPSIngresoStock\\RESOURCE\\INGRESO.res         &gt;&gt; LIN.TMP\necho C:\\WPSIngresoStock\\OBJ\\INICIO.obj                       &gt;&gt; LIN.TMP\n\necho C:\\FWPPC\\lib\\FiveCE.lib C:\\FWPPC\\lib\\FiveCEC.lib     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\rtl.lib                                           &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\vm.lib                                         &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\gtwin.lib                                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\lang.lib                                        &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\macro.lib                                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\rdd.lib                                         &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbfntx.lib                                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbfcdx.lib                                    &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbffpt.lib                                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\hbsix.lib                                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\debug.lib                                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\common.lib                                 &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\pp.lib                                          &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\codepage.lib                                &gt;&gt; LIN.TMP\n\necho C:\\VCE\\lib\\arm\\coredll.lib                                        &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\corelibc.lib                                       &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\aygshell.lib                                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ws2.lib                                            &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\mfcce400.lib                                    &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ole32.lib                                          &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ceshell.lib                                        &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\commctrl.lib                                    &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\wininet.lib                                       &gt;&gt; LIN.TMP\n\nC:\\VCE\\bin\\link @LIN.TMP /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM\n\nPAUSE\n\nEl error del que te hablaba en mensajes anteriores se produce cuando enlazo.\n\nGracias y disculpame las molestias ocasionadas\nSaludos Esteban','',0,'AIA=','1ssv9212',1,0,'',1104,0,0),(34302,7487,7,1030,0,'190.55.46.116',1183583253,1,0,1,1,1,0,'','','Antonio gracias lo voy a probar.','',0,'AIA=','2plgt2x9',1,0,'',1030,0,0),(34303,7485,7,2,0,'87.218.146.80',1183587063,1,0,1,1,1,1,'','','&gt;\nFiveCe.lib (DATABASE.OBJ): Error LNK2001 unresolved external simbol \"void__cdecl HB_FUN_unsitooem(void)\" (?HB_FUN_oemtoansi@@yaxxz) \n&gt;\n\nEl error no será HB_FUN_ANSITOOEM(void) ? En mayúsculas','',0,'AIA=','3tgaj8d2',1,0,'',2,0,0),(34305,7489,6,1072,0,'190.82.35.1',1183588020,1,0,1,1,1,0,'','Ayuda Version xHarbour','Hola Amigos:\nCual es la version de xHarbour compatible 100% con Fwh7.01, he compilado con xHarbour 0.99.71 y verce 4.3, el programa toolbar1.prg de samples de Fwh7.01 y me arroja el siguiente error al ejecutarlo.\n\n Unrecoverable Error 9000\n\"Activex.prg\" was compiled by older version, PCODE version 7 is longer supported, please recompile.\n\nSaludos,\nAntonio','',0,'AIA=','1lemk6al',1,0,'',1072,0,0),(34306,7490,6,73,0,'200.23.18.132',1183588134,1,0,1,1,1,0,'','wbrowse edicion de columnas','pues viendo el fracaso del xbrowse, decidi volver al wbrowse, en este caso para la edicion de columnas con arreglos,\n\n1. cuando se le especifica una font al browse y luego editas, el tamaño de la font te la hace mas pequeña, pero si no le especificas font, respeta el tamaño, al menos paso en mi caso. Estuve viendo la clase y en el metodo lEditCol encontre donde elije la fuente para el dialogo:\n   if ::oFont != nil\n      oFont = TFont():New( ::oFont:cFaceName, ::oFont:nWidth,;\n                           ::oFont:nHeight, .f., ::oFont:lBold )\n   endif\naqui el valor se cambia cambio aun cuando yo le especifique la font al browse, la hace mas pequeña, ej:\nyo defini \"arial\" 0,-12 y el sistema me arroja \"arial\" 5.78,-12 por eso se ve mas pequeña, aki ya no supe como hacerle, pero cada control se le especifica la FONT definida mas no en el dialogo\n\n2. para la edicion en combobox cambie unos datos a la clase para que se viera mas estetico cupiera el control en la celda, pero importante hay que definirle la altura de 20 a la fila que creo es la estandar para el control combobox, aki tengo un problema que no supe como arreglar, al abrir el combobox y tratar de usar las flechas arriba y/o abajo me saca del combobox y me envia a la siguiente columna, entonces lo malo es que hay que usar siempre el raton o la primer letra del combo\n\nanexo imagenes de las pruebas que hice con xbrowse y wbrowse\n\n<!-- m --><a class=\"postlink\" href=\"http://img503.imageshack.us/my.php?image=browseoh0.jpg\">http://img503.imageshack.us/my.php?image=browseoh0.jpg</a><!-- m -->\n\nespero me haya explicado.\nsalu2\npaco\n\n\n','',0,'CA==','2wmknnkk',1,0,'',73,0,0),(34307,7491,6,760,0,'200.37.76.86',1183594292,1,0,1,1,1,0,'','compra de fwh','Hola a todos del foro <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \n\nQuiesiera contactarme con personas que viven en la ciudad de Lima, y que tengan a la venta fwh la ultima version o una version estable, que pueda trabajar con TDBf, TSbrowse, WBrowse, MenusXP.\n\nPor favor dejar sus correos....\n\nYo vivo en la ciudad de Iquitos, y ninguna casa comercial tiene a la venta este Software.\n\nAdemas quiero actualizar mis sistemas a 32 bits, ya que los tengo en Clipper5.3....\n\nSalu2 <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nFrancis Reyna Avalos','',0,'CA==','amxdx9q2',1,0,'',760,0,0),(34308,7491,6,376,0,'201.230.95.149',1183596677,1,0,1,1,1,1,'','Re: venta de fwh','La ultima versiòn la puedes adquirir directamente del fabricante Fivetechsoft via internet. Es posible que haya en Lima pero solo conseguiràs como copia (con lo cual estarìas en el filo de la ilegalidad, por el tema del copyright).\n\nUbícame en mi email a ver que se puede hacer.\n\n[quote=&quot;Francis&quot;:2rnnwjpu]Hola a todos del foro <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \n\nQuiesiera contactarme con personas que viven en la ciudad de Lima, y que tengan a la venta fwh la ultima version o una version estable, que pueda trabajar con TDBf, TSbrowse, WBrowse, MenusXP.\n\nPor favor dejar sus correos....\n\nYo vivo en la ciudad de Iquitos, y ninguna casa comercial tiene a la venta este Software.\n\nAdemas quiero actualizar mis sistemas a 32 bits, ya que los tengo en Clipper5.3....\n\nSalu2 <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nFrancis Reyna Avalos[/quote:2rnnwjpu]','',0,'gA==','2rnnwjpu',1,0,'',376,0,0),(34309,7446,6,171,0,'71.233.232.238',1183599146,1,0,1,1,1,0,'','','Hola Cuate,\n\nEstoy usando xHarbour Builder Version Jan 2007 (esta es la version profesional de paga) + FWH Sep 2006 y no tengo ningun otro problema.\n\nLo del clipboard y Tgraph me funciona perfecto.\n\nEl *PROBLEMA* viene cuando salvo el grafico al Hard Drive. Aqui lo unico que se salva es un pequeño cuadrado blanco con un X rooja en el medio.\n\nPienso que talvez el problema esta en la funcion C dibwrite() de FWH. Quizas esta funcion tambien existe en xHarbour Builder y ahi se genera el problema. Solo Antonio Linares  y los del Tem Xharbour me pueden aclarar esto.\n\nLe he preguntado en varios emails a Alfredo Arteaga pero nunca he recibido respuesta de parte de el. \n\nEs lo unico que me falta por resolver de Tgraph.\n\n\nSaludos,\n\nGeorge','',0,'gA==','1leqmi0u',1,0,'',171,0,0),(34310,7491,6,383,0,'201.240.94.24',1183606059,1,0,1,1,1,0,'','Comprar al Fabricante','Que tal, yo tambien soy usuario de xharbour y fivewin y va muy bien. Recomiendo comprar al fabricante Fivetech via internet. Actualmente trabajo a 32 bits y usando ADO para conectarme con base de datos relacionales.\n\nSaludos','',0,'gA==','3ok26hqw',1,0,'',383,0,0),(34311,7446,6,72,0,'189.136.200.4',1183617581,1,0,1,1,1,0,'','','No he recibido tus emails George, solo he visto los mensajes que haz publicado en este foro. \n\nNo tengo una respuesta satisfactoria por no contar con los elementos para hacer las pruebas, sé que la clase funciona en 16 y 32 bits, parece que eres elúnico a quien se le está presentando esta situación, espero que alguien más pueda apoyarte.','',0,'gA==','ndav20ln',1,0,'',72,0,0),(34312,7492,3,1082,0,'85.43.122.34',1183618160,1,0,1,1,1,0,'','Dialog in NOWAIT modal goes in LOOP','I try the PRG TESTMDI4.PRG in folder SAMPLES, when I run it is ok, then i try my prg: \n\nin the file a.prg there\'s\nstatic oWnd \n..... \nDEFINE WINDOW oWnd ; \nTITLE \"Proc A\" ; \nMDI ; \nMENU BuildMenu() ; \nICON oIcon \n.... \nACTIVATE WINDOW oWnd ; \nVALID MsgYesNo( \"exit?\",\"Select\" ) \n.... \nfunction BuildMenu() \nlocal oMenu \nMENU oMenu \nMENUITEM \"&amp;Print\" \nMENU \nMENUITEM \"Apps A\" ACTION dialog0(\"1\",@oWnd) ; \nMESSAGE \"Elaborazione\" \n..... \n\n\n\nin the  file b.prg there\'s: \nlocal m_get[20]\n.....\ndialog1(@sw,@m_get,@oWnd)\n.....\n\nFUNCTION dialog1(sw, ; \nm_get,oWnd ; \n) \nlocal BtnOk \nlocal BtnEsc \nlocal oFont \nlocal oWndChild \n\nDEFINE WINDOW oWndChild MDICHILD OF oWnd \noWndChild:bGotFocus = { || m_get[02]:SetFocus() } \n\nDEFINE DIALOG m_get[02] RESOURCE \"mydialog\" OF oWndChild \n\nREDEFINE GET m_get[03] ID 101 OF m_get[02] ; \nPICTURE \"@ 99/99/9999\" \n\nREDEFINE METER m_get[4] VAR m_get[5] ID 501 TOTAL 1000 OF m_get[02] \n\nREDEFINE BTNBMP BtnOk ID 1 OF m_get[02] RESOURCE \"CONFERMA\" ; \nACTION (stassiv11(@sw,@m_get)) \n\nREDEFINE BTNBMP BtnEsc ID 2 OF m_get[02] RESOURCE \"ESCI\" ; \nACTION (sw:=0, oWndChild:End()) \n\nACTIVATE DIALOG m_get[2] NOWAIT ; \nON INIT m_get[02]:Move( 0, 0 ) ; \nVALID ( oWndChild:End(), .t. ) CENTERED \n\nACTIVATE WINDOW oWndChild ; \nON INIT oWndChild:SetSize( m_get[02]:nWidth, m_get[02]:nHeight ) \n\nReturn NIL \n\nwhen I run my apps the dialog MYDIALOG goes in LOOP...\nwhy?','',0,'','2zadjf6i',1,0,'',1082,0,0),(34313,7243,22,2,0,'87.218.146.80',1183622691,1,0,1,1,1,1,'','','Biel,\n\ngracias!','',0,'','28mhqzqf',1,0,'',2,0,0),(34314,7492,3,2,0,'87.218.146.80',1183633043,1,0,1,1,1,1,'','','Try it commenting out this line:\n\n// oWndChild:bGotFocus = { || m_get[02]:SetFocus() }','',0,'','9u4kp2qk',1,0,'',2,0,0),(34315,7492,3,1082,0,'85.43.122.34',1183634923,1,0,1,1,1,0,'','','It\'s the same','',0,'','16p63uz9',1,0,'',1082,0,0),(34316,7493,6,1100,0,'201.14.31.6',1183639060,1,0,1,1,1,0,'','Listbox','En la ventana de compras tengo un listbox donde voy a detallar los items de la compra, pero al definir Fields y Headers me da el siguiente error:\nInforme este problema à Microsoft. Enviar Relatório - Nao Enviar Relatório.\nSi le saco los Fields y Headers, entoces funciona, aparece con una columna, pero necesito várias columnas.\nmi código es:\n[code:3sjxxc97]\n      DEFINE DIALOG oDlgCompra RESOURCE &quot;#1008&quot; OF oWnd\n        \n       REDEFINE LISTBOX oLbx;\n       FIELDS &quot;&quot;,&quot;&quot;,&quot;&quot;,&quot;&quot;;\n       HEADERS &quot;Codigo&quot;,&quot;Produto&quot;,&quot;Quantidade&quot;,&quot;Preco&quot;, &quot;Total&quot;;\n       ID 4011;\n       OF oDlgCompra[/code:3sjxxc97]\nQue puedo estar haciendo mal? ya revisé muchos ejemplos, todos son parecidos a este. Sin muchos secretos. También ya prové hacer con @ 4,4 Listbox por ej. y me da el mismo error.\nSi alguien me puede ayudar, estaré muy agradecida','',0,'AIA=','3sjxxc97',1,0,'',1100,0,0),(34317,7493,6,106,0,'85.34.123.173',1183640621,1,0,1,1,1,1,'','','En el ejemplo tienes 4 fields y 5 headers, de repente es ese el problema.\n\n\nSaludos','',0,'AIA=','3nb5gr40',1,0,'',106,0,0),(34318,7482,19,12,0,'201.229.238.150',1183640946,1,0,1,1,1,1,'','','Gracias por todo, lo voy a probar y luego les cuento...','',0,'AIA=','fcsdvscv',1,0,'',12,0,0),(34319,7493,6,1100,0,'201.14.31.6',1183641179,1,0,1,1,1,0,'','','Ya lo complete, pero el problema no era ese.','',0,'AIA=','357oirne',1,0,'',1100,0,0),(34320,7461,3,303,0,'72.199.41.171',1183641972,1,0,1,1,1,0,'','','I sent a copy to your email address.\n\nJames','',0,'AIA=','aafhi1gg',1,0,'',303,0,0),(34321,4437,6,106,0,'85.34.123.173',1183642673,1,0,1,1,1,1,'','','Alguna novedad sobre SetFTime() ?\n\n\nSaludos','',0,'AIA=','3qlfzzb9',1,0,'',106,0,0),(34322,4437,6,106,0,'85.34.123.173',1183643330,1,0,1,1,1,1,'','','Ya resuelto:\n\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=205\">http://fivetechsoft.com/forums/viewtopic.php?t=205</a><!-- m -->\n\n\nSaludos','',0,'AIA=','1fjxvwir',1,0,'',106,0,0),(34323,7485,7,1104,0,'200.115.250.238',1183645507,1,0,1,1,1,0,'','','Si si ese es el error. Porque puede ser? <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'AIA=','2p2ovid0',1,0,'',1104,0,0),(34324,7494,6,294,0,'201.250.253.97',1183646506,1,0,1,1,1,1,'','Totales en REPDOS','Hago una consulta.\nLos totales en la con REPDOS no me salen. Alguien tuvo ese problema?\nDesde ya gracias.','',0,'AIA=','684uf13j',1,0,'',294,0,0),(34325,7485,7,2,0,'87.218.146.80',1183647073,1,0,1,1,1,1,'','','Añade esta función a tu PRG principal:\n[code:3g4ca70z]\nfunction AnsiToOem&#40; cTexto &#41;\n\nreturn cTexto\n[/code:3g4ca70z]','',0,'AIA=','3g4ca70z',1,0,'',2,0,0),(34326,7495,6,435,0,'200.155.207.95',1183648040,1,0,1,1,1,0,'','Footer no TCBrowse','Eu uso 100% dos browses com a TCBrowse, [b:3oyd1z3y]preciso criar um Footer [/b:3oyd1z3y].. sei que a TXbrowse faz isso. Mas para usar TXbrowse precisa ficar mudando as coisas. O Ideal seria acrescentar o Footer no TCBrowse.\n\npergunto alguem tem e pode disponibilizar esta modificação \n\nObrigado \nAri','',0,'QA==','3oyd1z3y',1,0,'',435,0,0),(34327,7461,3,233,0,'218.111.18.69',1183648975,1,0,1,1,1,0,'','','Received. Thanks James','',0,'QA==','3cnn2r0z',1,0,'',233,0,0),(34328,7446,6,171,0,'71.233.232.238',1183650884,1,0,1,1,1,0,'','','Alfredo,\n\nAlgunas veces el anti-spam se comen los email  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nLa verdad es que tu clase Tgraph es excelente y facil de usar. Gracias de nuevo por tu aporte.\n\nNo se porque me pasa ese problema al salvar el grafico, pero estoy casi seguro que no tiene nada que ver con tu clase sino con alguna funcion en C, talvez  con la funcion Dibwrite. Quizas Antonio nos pueda aclarar un poco mas este asunto.\n\nSaludos,\n\n\nGeorge','',0,'QA==','1cnitr65',1,0,'',171,0,0),(34329,7485,7,1030,0,'190.55.46.116',1183651543,1,0,1,1,1,0,'','','Antonio no se que estoy haciendo mal porque sigue tirando el mismo error, esta es la manera en que agregue la funcion en mi main():\n\n***************************************************\n#include \"FWCE.ch\"\n\nREQUEST HB_LANG_ESWIN\n\n// DEFINICION DE COLORES /////////////////////////////////////////////////////////////\n#Define Negro    0\n#Define Azul     8388608\n#Define AzulB    16711680\n#Define Verde    32768\n#Define VerdeB   65280\n#Define Celeste  8421376\n#Define CelesteB 16776960\n#Define Rojo     128\n#Define RojoB    255\n#Define Magenta  8388736\n#Define MagentaB 16711935\n#Define Marron   32896\n#Define Gris     8421504\n#Define GrisB    12632256\n#Define Amarillo 65535\n#Define Blanco   16777215\n//\n\nSTATIC oWnd\n\n// FUNCION MAIN /////////////////////////////////////////////////////////////////////\nFunction Main()\nLocal oBmp,oCursor1,oBar,[color=darkred:2z3wx2im]cTexto[/color:2z3wx2im],oDbf\nLocal Datos:=\"\\\\PIII\\C\\WPSDatos\\\"\n\nLandScape()\nHB_LANGSELECT(\"ESWIN\")\nSET DELETED ON\nSET DATE TO FREN\n*SET SOFTSEEK ON\nSET CENTURY ON\nSET EPOCH TO 2000\n*SET DEFAULT TO &amp;Datos\n\n[color=darkred:2z3wx2im]AnsiToOem(cTexto)\nUSE (Datos+\"STOCK.DBF\") VIA \"DBFNTX\" NEW\nDATABASE oDbf[/color:2z3wx2im]\nStock-&gt;(DbGoTop())\n\nDEFINE BITMAP oBmp NAME \'Five\'\n\nDEFINE WINDOW oWnd TITLE \"Inventario\"\n\nACTIVATE WINDOW oWnd ;\n   ON PAINT oWnd:SayBitmap(60,10,oBmp);\n   ON INIT Control()\n\nPortrait()\nDBCLOSEALL()\noBmp:End()\nReturn Nil\n//\n\n[color=darkred:2z3wx2im]// FUNCION ANSI //\nFunction AnsiToOem(cTexto)\n\nReturn cTexto\n//[/color:2z3wx2im]\n\nGracias de nuevo.','',0,'Ag==','2z3wx2im',1,0,'',1030,0,0),(34330,7485,7,1030,0,'190.55.46.116',1183651561,1,0,1,1,1,0,'','','Antonio no se que estoy haciendo mal porque sigue tirando el mismo error, esta es la manera en que agregue la funcion en mi main():\n\n***************************************************\n#include \"FWCE.ch\"\n\nREQUEST HB_LANG_ESWIN\n\n// DEFINICION DE COLORES /////////////////////////////////////////////////////////////\n#Define Negro    0\n#Define Azul     8388608\n#Define AzulB    16711680\n#Define Verde    32768\n#Define VerdeB   65280\n#Define Celeste  8421376\n#Define CelesteB 16776960\n#Define Rojo     128\n#Define RojoB    255\n#Define Magenta  8388736\n#Define MagentaB 16711935\n#Define Marron   32896\n#Define Gris     8421504\n#Define GrisB    12632256\n#Define Amarillo 65535\n#Define Blanco   16777215\n//\n\nSTATIC oWnd\n\n// FUNCION MAIN /////////////////////////////////////////////////////////////////////\nFunction Main()\nLocal oBmp,oCursor1,oBar,[color=darkred:1b2cxl14]cTexto[/color:1b2cxl14],oDbf\nLocal Datos:=\"\\\\PIII\\C\\WPSDatos\\\"\n\nLandScape()\nHB_LANGSELECT(\"ESWIN\")\nSET DELETED ON\nSET DATE TO FREN\n*SET SOFTSEEK ON\nSET CENTURY ON\nSET EPOCH TO 2000\n*SET DEFAULT TO &amp;Datos\n\n[color=darkred:1b2cxl14]AnsiToOem(cTexto)\nUSE (Datos+\"STOCK.DBF\") VIA \"DBFNTX\" NEW\nDATABASE oDbf[/color:1b2cxl14]\nStock-&gt;(DbGoTop())\n\nDEFINE BITMAP oBmp NAME \'Five\'\n\nDEFINE WINDOW oWnd TITLE \"Inventario\"\n\nACTIVATE WINDOW oWnd ;\n   ON PAINT oWnd:SayBitmap(60,10,oBmp);\n   ON INIT Control()\n\nPortrait()\nDBCLOSEALL()\noBmp:End()\nReturn Nil\n//\n\n[color=darkred:1b2cxl14]// FUNCION ANSI //\nFunction AnsiToOem(cTexto)\n\nReturn cTexto\n//[/color:1b2cxl14]\n\nGracias de nuevo.','',0,'Ag==','1b2cxl14',1,0,'',1030,0,0),(34331,7485,7,2,0,'87.218.146.80',1183653995,1,0,1,1,1,1,'','','Que error exactamente te da ?','',0,'Ag==','2vc4j7p2',1,0,'',2,0,0),(34332,7446,6,2,0,'87.218.146.80',1183654284,1,0,1,1,1,1,'','','George,\n\nLa solución ante la duda de que se pueda estar usando una función DibWrite() distinta a la de FWH es renombrar la de FWH por FWDibWrite(), por ejemplo.\n\nEl código fuente de DibWrite() está en source/winapi/dib.c','',0,'Ag==','25ha3icg',1,0,'',2,0,0),(34333,7493,6,2,0,'87.218.146.80',1183654450,1,0,1,1,1,1,'','','Marizete,\n\nTienes definido el listbox en el recurso como \"TWBrowse\" ?','',0,'Ag==','2i8cwqoa',1,0,'',2,0,0),(34334,7496,19,1055,0,'84.125.133.194',1183654627,1,0,1,1,1,0,'','De que va ese fichero','Navegando por la red encontré esta página:\n<!-- m --><a class=\"postlink\" href=\"http://www.whatisthatfile.com/\">http://www.whatisthatfile.com/</a><!-- m -->\nEn ella puedes someter a examen cualquier fichero dudoso e intentaran decirte si es peligroso o no.\nLa lastiima es que no esta en castellano, pero bueno algo es algo.','',0,'Ag==','jjt1qkxa',1,0,'',1055,0,0),(34335,7492,3,2,0,'87.218.146.80',1183654694,1,0,1,1,1,1,'','','Is you comment out all these lines, do the MDICHILD appear and work fine ?\n\nDEFINE WINDOW oWndChild MDICHILD OF oWnd \n\n/*\noWndChild:bGotFocus = { || m_get[02]:SetFocus() } \n\nDEFINE DIALOG m_get[02] RESOURCE \"mydialog\" OF oWndChild \n\nREDEFINE GET m_get[03] ID 101 OF m_get[02] ; \nPICTURE \"@ 99/99/9999\" \n\nREDEFINE METER m_get[4] VAR m_get[5] ID 501 TOTAL 1000 OF m_get[02] \n\nREDEFINE BTNBMP BtnOk ID 1 OF m_get[02] RESOURCE \"CONFERMA\" ; \nACTION (stassiv11(@sw,@m_get)) \n\nREDEFINE BTNBMP BtnEsc ID 2 OF m_get[02] RESOURCE \"ESCI\" ; \nACTION (sw:=0, oWndChild:End()) \n\nACTIVATE DIALOG m_get[2] NOWAIT ; \nON INIT m_get[02]:Move( 0, 0 ) ; \nVALID ( oWndChild:End(), .t. ) CENTERED \n\n*/\n\nACTIVATE WINDOW oWndChild ; \n// ON INIT oWndChild:SetSize( m_get[02]:nWidth, m_get[02]:nHeight ) \n\nReturn NIL','',0,'','sv8jdxvy',1,0,'',2,0,0),(34336,7497,6,389,0,'189.132.33.96',1183655247,1,0,1,1,1,0,'','Posible bug en bInit de dialogos','Hola Antonio..\nLa variable bInit en dialogos no se ejecuta..\n\nSi se usa de esta manera funciona bien\n  DEFINE DIALOG oDlg NAME \"Test\"\n  ACTIVATE DIALOG oDlg ON INIT CreateToolBar\n\nPero de esta no se ejecuta el proceso bInit\n  DEFINE DIALOG oDlg NAME \"Test\"\n  oDlg:bInit:= { || CreateToolBar }\n  ACTIVATE DIALOG oDlg  \n\nSaludos\nGABO','',0,'','39oqmf33',1,0,'',389,0,0),(34337,7485,7,1030,0,'190.55.46.116',1183655351,1,0,1,1,1,0,'','','El error es el siguiente:\n\nFiveCE.lib(DATABASE.obj) : error LNK2001: unresolved external symbol \"void __cdecl HB_FUN_EOMTOANSI(void)\" (?HB_FUN_EOMTOANSI@@YAXXZ)\nINVENTARIO.exe : fatal errorLNK1120: 1 unresolved externals\n\nSlds!','',0,'','2lynmgh2',1,0,'',1030,0,0),(34338,7381,22,1055,0,'84.125.133.194',1183655418,1,0,1,1,1,0,'','','Antonio, tu que piensas?\nSería posible un ImageList para TImage?\nGracias','',0,'','r06ohi3y',1,0,'',1055,0,0),(34339,7485,7,2,0,'87.218.146.80',1183656247,1,0,1,1,1,1,'','','Añade esta función tambien:\n\nfunction OemToAnsi( cTexto )\n\nreturn cTexto','',0,'','1m8uztp3',1,0,'',2,0,0),(34340,7498,6,1072,0,'200.83.124.41',1183656459,1,0,1,1,1,0,'','veo que nadie ha tenido este error en xharbour','Hola Amigos: \nCual es la version de xHarbour compatible 100% con Fwh7.01, he compilado con xHarbour 0.99.71 y verce 4.3, el programa toolbar1.prg de samples de Fwh7.01 y me arroja el siguiente error al ejecutarlo. \n\nUnrecoverable Error 9000 \n\"Activex.prg\" was compiled by older version, PCODE version 7 is longer supported, please recompile. \n\nUSO WINDOWS 98\n\nSaludos, \nAntonio','',0,'','2fpkd15y',1,0,'',1072,0,0),(34341,7486,2,124,0,'190.31.19.93',1183656919,1,0,1,1,1,0,'','','Antonio:\n\nEstamos en proceso de migración a Harbour, mientras tanto, qué pista nos podés dar para que \"salvemos las papas\" por ahora, en pocos meses ya estamos en 32bits.\n\n¿Vos decís que un array determinado se quedó sin espacio para crecer? o el espacio total de arrays es 64k ?\n\nYa que no tenemos ( o no sabemos como hacer andar bien ) debugger con fivewin, cómo podríamos pescar que array da el error para ver si podemos cambiar algo la lógica?\n\nMil gracias.\nRicardo Bécares.-','',0,'','10epzvky',1,0,'',124,0,0),(34342,7498,6,2,0,'87.218.146.80',1183657189,1,0,1,1,1,1,'','','Antonio,\n\nTienes que usar el build de xHarbour que propocionamos con FWH 7.01, y asegurarte de que todas las librerías de terceros que uses estén compiladas con ese mismo build de xHarbour','',0,'','2c4cytvb',1,0,'',2,0,0),(34343,7446,6,73,0,'200.23.18.132',1183657441,1,0,1,1,1,0,'','','George,\nyo estoy usando sin problemas el guardar las graficas, ya sea de barras,pie,lineas y puntos, acabo de hacer mis pruebas en estos momentos y si me genera bien los archivos, asi lo tengo:\n\ncFile:=\"Cmp\"+oVarSys:Ano+\".Bmp\"\noGra:Save2Bmp(cFile)\ny me va bien, adjunto el metodo de como lo uso\n\nMETHOD Save2Bmp( cFile ) CLASS TGraph\n\n   LOCAL hBmp, hDib, cDir := \"\\\"+CurDir()\n   DEFAULT cFile := \"TGraph.Bmp\"\n\n   IF !lIsDir(\"\\\"+CurDir()+\"\\Graficas\")\n      lMkDir(\"\\\"+CurDir()+\"\\Graficas\")\n   ENDIF\n   lChDir(\"\\\"+CurDir()+\"\\Graficas\")\n\n   hBmp := WndBitmap( Self:hWnd )\n   hDib := DibFromBitmap( hBmp )\n   DibWrite( cFile, hDib )\n   GloBalFree( hDib )\n   DeleteObject( hBmp )\n   IF ::nLanguage=2\n      MsgInfo(\"La imagen ha sido grabada.\",\"Información\")\n   ELSE\n      MsgInfo(\"Graph image save.\",\"Info\")\n   ENDIF\n   lChDir(cDir)\n\nRETURN ( FILE( cFile ) )\n\nsalu2\npaco','',0,'','1s0in6ng',1,0,'',73,0,0),(34344,7498,6,1072,0,'200.83.124.41',1183657675,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias por tu respuesta, lo pruebo y te aviso\nSaludos\nAntonio\n\n\n\n[quote=&quot;Antonio Linares&quot;:3w4yhk4p]Antonio,\n\nTienes que usar el build de xHarbour que propocionamos con FWH 7.01, y asegurarte de que todas las librerías de terceros que uses estén compiladas con ese mismo build de xHarbour[/quote:3w4yhk4p]','',0,'gA==','3w4yhk4p',1,0,'',1072,0,0),(34345,7497,6,2,0,'87.218.146.80',1183657831,1,0,1,1,1,1,'','','Gabo,\n\nAl hacer ACTIVATE DIALOG ... el dato bInit se vuelve a asignar, por eso se pierde el anterior valor.\n\nLa solución es modificar el Método Activate() de esta forma:\n[code:xnt4wo1g]\n   if bInit != nil\n      &#58;&#58;bInit = bInit\n   endif\n[/code:xnt4wo1g]','',0,'AIA=','xnt4wo1g',1,0,'',2,0,0),(34346,7486,2,2,0,'87.218.146.80',1183658111,1,0,1,1,1,1,'','','Ricardo,\n\nSi usais muchas variables públicas, una solución es cambiarlas por una única (ó varias) variables tipo array:\n\npublic uno, dos, tres, cuatro, cinco, seis\n\nse cambiaría a:\n\npublic aVars \n\ny aVars se haría igual a { &lt;valor de uno&gt;, &lt;valor de dos&gt;, ..., etc }\n\nSi generas un error en la aplicación (por ejemplo, escribe x++) se creará un fichero error.log y al final ves el consumo de variables que tiene la aplicación','',0,'AIA=','1b5cw0m0',1,0,'',2,0,0),(34347,7381,22,2,0,'87.218.146.60',1183661116,1,0,1,1,1,1,'','','La clase TImage usa la DLL FreeImage y estamos limitados a las opciones que ofrece FreeImage. \n\nTal vez podrías crear una sóla imagen con ese imágenes pequeñas y asi solo cargarías una.','',0,'AIA=','8c4mg3cd',1,0,'',2,0,0),(34348,7497,6,389,0,'189.132.3.55',1183663693,1,0,1,1,1,0,'','','Ok. solucionado.. gracias !','',0,'AIA=','179im7rw',1,0,'',389,0,0),(34349,7498,6,1072,0,'190.82.34.205',1183664879,1,0,1,1,1,0,'','','Antonio:\n\nSabes, tome el Buildh.bat de Fwh701, cambie los path de xHarbour 0.99.71 y Bcc55 y compile TOOLBAR1:PRG. El error que tengo es el siguiente.\n\nEn espera de una orientacion, te saluda,\nAntonio\n\n**** ERROR\n+----------------------------------------------------------------------------+\n¦ FiveWin for Harbour 7.01 - January 2007              Harbour development power\n  ¦_\n¦ (c) FiveTech, 1993-2006           for Microsoft Windows 95/98/NT/2000/ME and X\nP ¦_\n+----------------------------------------------------------------------------+_\n  _____________________________________________________________________________\nCompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'toolbar1.prg\' and generating preprocessed output to \'toolbar1.ppo\'...\n\nLines 130, Functions/Procedures 4\nGenerating C source output to \'toolbar1.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntoolbar1.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\UTIL\\DESA\n32\\FWH701\\LIB\\FIVEH.LIB|ERRSYSW\n* There are errors','',0,'AIA=','esrbbutj',1,0,'',1072,0,0),(34350,7485,7,1030,0,'190.55.46.116',1183666105,1,0,1,1,1,0,'','','Primero me presento, soy Natalia, porque me inclui en la charla de mi compañero \"jrestojeda\", esteban sin avisar. \nAntonio gracias, las funciones hicieron que no tire error. Ahora voy a probar aplicarle metodos, pero no creo q tenga problemas.\n\nEl problema que se me sigue presentando es con los indices ya creados .ntx. a continuacion te copio el codigo para que veas como los estoy usando (El ejemplo es en el caso de la base de \"stock\"):\n\n#include \"FWCE.ch\"\n\nREQUEST HB_LANG_ESWIN\n\n// DEFINICION DE COLORES /////////////////////////////////////////////////////////////\n#Define Negro    0\n#Define Azul     8388608\n#Define AzulB    16711680\n#Define Verde    32768\n#Define VerdeB   65280\n#Define Celeste  8421376\n#Define CelesteB 16776960\n#Define Rojo     128\n#Define RojoB    255\n#Define Magenta  8388736\n#Define MagentaB 16711935\n#Define Marron   32896\n#Define Gris     8421504\n#Define GrisB    12632256\n#Define Amarillo 65535\n#Define Blanco   16777215\n//\n\n#define O_LON           50\n#define O_DLG            1\n#define O_LOAD           2\n#define O_RECNO          3\n\nStatic oFec,oNum,oDe,oSa,oP1,oP2,oLu,oRub,oDes\nStatic vFec,vNum,vDe,vSa,vP1,vP2,vLu,vRub,vDes\n\n// CONTROL DE INVENTARIO //\nFunction Articulo()\nLocal oDlg,oBrw,oDbf,Vec1,Vec2,Vec3\nLocal Datos:=\"\\\\PIII\\C\\WPSDatos\\\"\n\nUSE (Datos+\"RUBROS.DBF\") VIA \"DBFNTX\" NEW\nRubros-&gt;(DbGoTop())\n\nUSE (Datos+\"STOCK.DBF\") [color=red:2svx6o0u]INDEX \"STOCK01.NTX\" [/color:2svx6o0u]NEW\nDATABASE oDbf\n*Stock-&gt;(DbGoTop())\n\nUSE (Datos+\"INVENTA.DBF\") VIA \"DBFNTX\" NEW\nInventa-&gt;(DbGoTop())\n\nIniVar()\n\nDEFINE DIALOG oDlg RESOURCE \"Inventario\"\n\n   REDEFINE GET      oFec VAR vFec ID 100 OF oDlg PICTURE \'@D\' WHEN(EMPTY(vRub))\n   REDEFINE GET      oNum VAR vNum ID 101 OF oDlg PICTURE \'999999\' WHEN(EMPTY(vRub))\n\n   REDEFINE CHECKBOX oDe  VAR vDe  ID 102 OF oDlg;\n      WHEN(!vSa .AND. !vP1 .AND. !vP2 .AND. !vLu)\n   REDEFINE CHECKBOX oSa  VAR vSa  ID 103 OF oDlg;\n      WHEN(!vDe .AND. !vP1 .AND. !vP2 .AND. !vLu)\n   REDEFINE CHECKBOX oP1  VAR vP1  ID 104 OF oDlg;\n      WHEN(!vSa .AND. !vDe .AND. !vP2 .AND. !vLu)\n   REDEFINE CHECKBOX oP2  VAR vP2  ID 105 OF oDlg;\n      WHEN(!vSa .AND. !vP1 .AND. !vDe .AND. !vLu)\n   REDEFINE CHECKBOX oLu  VAR vLu  ID 106 OF oDlg;\n      WHEN(!vSa .AND. !vP1 .AND. !vP2 .AND. !vDe)\n\n   REDEFINE LISTBOX oBrw;\n      FIELDS STOCK-&gt;DESCRIP,STR(STOCK-&gt;EXISTENCIA),STOCK-&gt;CODIGO;\n      SIZES 65,65,65;\n      HEADERS \"Desc\",\"Exist\",\"Cod\";\n      ID 110 OF oDlg;\n      ON DBLCLICK ModExi(oDlg)\n\n   oBrw:lCellStyle:=.t.\n   oBrw:SetColor(CLR_HRED,CLR_YELLOW)\n\n   REDEFINE GET      oRub VAR vRub ID 107 OF oDlg PICTURE \'@!\';\n      VALID{||Valcheck()};\n      WHEN{||VerRubro()}\n\n   REDEFINE BUTTON                 ID 108 OF oDlg;\n      ACTION BrowRub(oDlg)\n\n   REDEFINE GET      oDes VAR vDes ID 109 OF oDlg READONLY COLOR AzulB,GrisB\n\n   REDEFINE BUTTON                 ID 200 OF oDlg;\n      ACTION ModExi(oDlg);\n      PROMPT \"Modif\"\n   REDEFINE BUTTON                 ID 201 OF oDlg;\n      ACTION oDlg:End();\n      PROMPT \"Salir\"\n   REDEFINE BUTTON                 ID 202 OF oDlg;\n      ACTION Procesar();\n      PROMPT \"Procesar\"\n\nACTIVATE DIALOG oDlg CENTERED //ON INIT (Cli_Bar(),.f.)\n\nDBCLOSEALL()\nReturn nil\n//\n\nMuchas Gracias, Natalia.','',0,'Ag==','2svx6o0u',1,0,'',1030,0,0),(34351,7485,7,2,0,'87.218.146.60',1183666613,1,0,1,1,1,1,'','','Natalia,\n\nPrueba a hacerlo así:\n\nUSE (Datos+\"STOCK.DBF\") INDEX (Datos+\"STOCK01.NTX\") NEW','',0,'Ag==','3kmwpglh',1,0,'',2,0,0),(34352,7498,6,2,0,'87.218.146.60',1183666829,1,0,1,1,1,1,'','','Con xHarbour hay que usar FiveHX.lib en vez de FiveH.lib','',0,'Ag==','2op5phwo',1,0,'',2,0,0),(34353,7499,3,367,0,'201.67.51.100',1183666907,1,0,1,1,1,1,'','Tword to OpenOffice','I am needing from the class tword for its OpenOffice. Somebody it can myself say where AND as a with oneself?','',0,'Ag==','37m5d4ob',1,0,'',367,0,0),(34354,7485,7,1030,0,'190.55.46.116',1183667342,1,0,1,1,1,0,'','','Antonio Funciono todo perfectamente!!!\n\nEstamos muy agradecidos por la pronta ayuda, saludos,\nEsteban y Natalia.','',0,'Ag==','1wxoxl5g',1,0,'',1030,0,0),(34355,7498,6,1072,0,'190.82.34.205',1183668291,1,0,1,1,1,0,'','','Antonio:\n\nPor lo que veo, estaba usando el Buildh.bat en ves de Buildx.bat, probare y te aviso.\n\nGracias por tu ayuda.\n\nSaludos,\nAntonio\n\n[quote=&quot;Antonio Linares&quot;:a2w4qanz]Con xHarbour hay que usar FiveHX.lib en vez de FiveH.lib[/quote:a2w4qanz]','',0,'gA==','a2w4qanz',1,0,'',1072,0,0),(34356,7498,6,1072,0,'190.82.34.205',1183669506,1,0,1,1,1,0,'','','Antonio:\n\nProbre con buildx.bat, pero me pide la Lib ACE32.LIB, la busque en los directorios, pero en Fwh701 y Xharbour 0.99.71, no la encuentro. Para que sirve y de donde puedo bajarla.\n\nEn el Buildx.bat elimine la linea en que esta ACE32.Dll, pero sigue arrojando el error, indicado al comienzo del mensaje. Error 9000 Activex.prg.\n\nQue puede ser?, uso Windows 98\n\nSaludos,\nAntonio.','',0,'gA==','18dcj1cw',1,0,'',1072,0,0),(34357,7499,3,138,0,'189.141.72.112',1183669549,1,0,1,1,1,1,'','','There\'s no compatibility between TWORD and Open Office since OLE methods are different form one to the other.\n\nI remember I saw a TOpenOffice class somewhere around here.','',0,'gA==','3j1mj0vs',1,0,'',138,0,0),(34358,7500,6,147,0,'190.136.184.177',1183679017,1,0,1,0,1,1,'','Inhibir el redimensionado de una ventana','Hola gente\nSe puede?. Lo que pretendo es que no se redimensione mediante el mouse (lo que normalmente se usa). La ventana es Main\n\nmuchas gracias\nSaludos','',0,'gA==','3vg1b93t',1,0,'',147,0,0),(34359,7501,6,53,0,'189.139.95.1',1183687182,1,0,1,1,1,1,'','Ejemplo de MonthCalendar','Buenas noches amigos del foro:\n\nSi alguien pudiera mostrarme un ejemplo para manejar el control MonthCalendar estaré sumamente agradecido.\n\nNecesito algo así como la imagen.\n\n<!-- m --><a class=\"postlink\" href=\"http://img80.imageshack.us/img80/2184/pdfdn9.jpg\">http://img80.imageshack.us/img80/2184/pdfdn9.jpg</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://img292.imageshack.us/img292/1360/clip1ki8.jpg\">http://img292.imageshack.us/img292/1360/clip1ki8.jpg</a><!-- m -->\n\nSaludos','',0,'gA==','eqgtqyam',1,0,'',53,0,0),(34360,7501,6,53,0,'189.139.95.1',1183687318,1,0,1,1,1,1,'','','Whoopss, es la imágen del segundo link  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nGracias','',0,'gA==','2pq467ly',1,0,'',53,0,0),(34361,7502,3,53,0,'189.139.95.1',1183688909,1,0,1,1,1,1,'','Sample using MonthCalendar control ?','Dear friends:\n\nI\'m looking for a sample using the MonthCalendar Control, if you have one, would you send it to me ?.\n\nBest regards','',0,'gA==','o7g1ek0k',1,0,'',53,0,0),(34362,7503,3,281,0,'211.234.189.246',1183689773,1,0,1,1,1,1,'','alt+tab key board stop.....','Hi all. \n\nWindow key, alt+tab, window+L, Ctrl+Alt+Del ......... \n\nIf i use those Keys , How do i that the keys are stoping ?','',0,'gA==','1bli7kpx',1,0,'',281,0,0),(34363,7500,6,2,0,'87.218.146.60',1183692257,1,0,1,1,1,1,'','','Mario,\n\nRevisa samples\\TestSize.prg','',0,'gA==','qnmqyswz',1,0,'',2,0,0),(34364,7503,3,2,0,'87.218.146.60',1183692622,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.thescarms.com/vbasic/StopReBoot.aspx\">http://www.thescarms.com/vbasic/StopReBoot.aspx</a><!-- m -->','',0,'gA==','32fxl533',1,0,'',2,0,0),(34365,7498,6,2,0,'87.218.146.60',1183692923,1,0,1,1,1,1,'','','Usas alguna librería adicional de terceros ? Está recompilada con la misma versión de xharbour ?','',0,'gA==','3i1mkp61',1,0,'',2,0,0),(34366,7500,6,73,0,'189.157.174.25',1183699274,1,0,1,1,1,0,'','','MarioG,\nsi tienes un dialogo desde recurso, con el editor de recursos en el window style pon el THICKFRAME en NO y con eso\nsalu2\npaco','',0,'gA==','1z9dm7bz',1,0,'',73,0,0),(34367,7504,6,785,0,'190.64.206.113',1183703101,1,0,1,1,1,0,'','Antonio : Harbour-project de Junio','Antonio:\n \nBaje de la página de Harbour el build de Junio\ny me da el siguiente error.\n\nError BASE/1005 Message not found: TCLIPGET:_TYPE\n\nNo lo hace el build de mayo \n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','qodzz8xm',1,0,'',785,0,0),(34368,7501,6,106,0,'85.34.123.173',1183707126,1,0,1,1,1,1,'','','Armando, \n\nuna pregunta:\n\ncomo haces para enviar a imprimir un pdf desde la preview de impresion?\n\n\nGracias\n\n\nSaludos','',0,'gA==','2fxmhqjn',1,0,'',106,0,0),(34369,7505,2,542,0,'88.23.158.40',1183707283,1,0,1,1,1,0,'','Relacion de impresoras','Hola amigos:\n\nDesearia saber si hay alguna forma de saber las impresoas que hay conectadas a un ordenador y cual de ellas es la predeterminada.\n\nEn concreto si se puede saber el PrinterName de ellas.\n\nUn saludo\n\nCarlos\n\nNOTA. Gracias a \"vlmsoft\" contestarme en mi anterior post.','',0,'gA==','3h1y9u89',1,0,'',542,0,0),(34370,7499,3,130,0,'141.51.32.24',1183707458,1,0,1,1,1,1,'','','Kleyton,\n\nhere you can download the TOpenOffice class Rene mentioned\n\n[url:1waoq7kr]http&#58;//rapidshare&#46;com/files/41305296/TOpenOffice&#46;zip&#46;html[/url:1waoq7kr]','',0,'EA==','1waoq7kr',1,0,'',130,0,0),(34371,7492,3,1082,0,'85.43.122.34',1183713087,1,0,1,1,1,0,'','','I put comments.... but the MDICHILD goes loop !','',0,'EA==','3j3aown3',1,0,'',1082,0,0),(34372,7506,3,904,0,'198.54.202.250',1183713180,1,0,1,1,1,1,'','Creating a Report from a ListBox','This code gives a MsgYesNo Box with nothing in it.\n\n\"YES\" - gives an error\n\"NO\" - does nothing\n\nWhere is the problem?\n\n[code:19qpl1pi]\n#include \'FiveWin&#46;ch\'\n#include &quot;dbcombo&#46;ch&quot; //for DBCOMBO\n#include &quot;TCBrowse&#46;ch&quot; //TCBROWSE\n#include &quot;report&#46;ch&quot;\nPROCEDURE search_print&#40; oLbx &#41;\n   local oRpt\n   local n\n   Local nRecnum &#58;= RECNO&#40;&#41;\n   local cAlias &#58;= If&#40; oLbx != nil, oLbx&#58;cAlias, Alias&#40;&#41; &#41;\n   REPORT oRpt TITLE &quot;Report&#58; &quot; + cAlias ;\n   HEADER &quot;Date&#58; &quot; + DToC&#40; Date&#40;&#41; &#41; + &quot;, Time&#58; &quot; + Time&#40;&#41; ;\n   FOOTER &quot;Page&#58; &quot; + Str&#40; oRpt&#58;nPage, 3 &#41; PREVIEW\n\n   if Empty&#40; oRpt &#41; &#46;or&#46; oRpt&#58;oDevice&#58;hDC == 0\n      return nil\n   endif\n\n   for n = 1 to FCount&#40;&#41;\n      oRpt&#58;AddColumn&#40; TrColumn&#40;&#41;&#58;New&#40; &#123; FInfo1&#40; cAlias, n &#41; &#125;,, ;\n                                      &#123; FInfo2&#40; cAlias, n &#41; &#125;,,,,,,,,,, oRpt &#41; &#41;\n   next\n\n   ENDREPORT\n\n   ACTIVATE REPORT oRpt\n\n   DBGOTO&#40; nRecnum &#41;\n\n   return nil\n\n// ******************************************************************************************************\nstatic function FInfo1&#40; cAlias, n &#41;\n   return &#123; || &#40; cAlias &#41; -&gt;&#40; FieldName&#40; n &#41; &#41; &#125;\n// ******************************************************************************************************\nstatic function FInfo2&#40; cAlias, n &#41;\n   return &#123; || &#40; cAlias &#41; -&gt;&#40; FieldGet&#40; n &#41; &#41; &#125;[/code:19qpl1pi]','',0,'AIA=','19qpl1pi',1,0,'',904,0,0),(34373,7507,3,239,0,'219.137.207.44',1183717473,1,0,1,1,1,0,'','FWH 2.5 support harbour beta-3  ?','Hi,\n  For the old xharbour 99.61/ last year version  memoline() with some bugs and  could split 2 bytes word in Chinese.\n\n  Thanks !\nShuming Wang','',0,'AIA=','3cgpmn7z',1,0,'',239,0,0),(34374,7506,3,1068,0,'200.153.245.50',1183718430,1,0,1,1,1,1,'','','hi Ollie,\n\nthe message box is empty because your app don\'t find prev32.dll ...\n\nregards','',0,'AIA=','vu2m3s4l',1,0,'',1068,0,0),(34375,7506,3,904,0,'198.54.202.250',1183718946,1,0,1,1,1,1,'','','Ah. Thanks!','',0,'AIA=','28nrul15',1,0,'',904,0,0),(34376,7508,6,57,0,'80.58.205.36',1183720177,1,0,1,1,1,1,'','Existe lo contrario a nStrCrc()?','Antonio\nEs posible, conociendo un CRC conocer la cadena que lo originó??\n\nSaludos\nToni Sales','',0,'AIA=','2cr1haw1',1,0,'',57,0,0),(34377,7508,6,2,0,'87.218.146.155',1183722658,1,0,1,1,1,1,'','','Toni,\n\nNo. Lo único que puedes hacer es comparar los resultados del CRC:\n\nnTuCRC == nStrCRC( cOtroTexto )','',0,'AIA=','2vbj5s2l',1,0,'',2,0,0),(34378,7504,6,2,0,'87.218.146.155',1183722772,1,0,1,1,1,1,'','','Ruben,\n\nTienes que volver a descargarlo desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'AIA=','1rq3dq9y',1,0,'',2,0,0),(34379,7499,3,367,0,'201.34.214.98',1183722895,1,0,1,1,1,1,'','','Necessary what it works as if it were into the word.','',0,'AIA=','3hvuxiq1',1,0,'',367,0,0),(34380,7507,3,2,0,'87.218.146.155',1183722909,1,0,1,1,1,1,'','','Shuming,\n\nWe can\'t tell you for sure and FWH 2.5 is an old version. You may try to recompile all its PRGs and test it.','',0,'AIA=','1kny8nik',1,0,'',2,0,0),(34381,7508,6,57,0,'80.58.205.36',1183722976,1,0,1,1,1,1,'','','Antonio\nMe lo imaginaba. \nGracias de todas formas..\nSaludos','',0,'AIA=','1i4ofapx',1,0,'',57,0,0),(34382,7492,3,2,0,'87.218.146.155',1183723046,1,0,1,1,1,1,'','','Comment out this line too:\n\n// ACTIVATE WINDOW oWndChild','',0,'AIA=','2cyy1t82',1,0,'',2,0,0),(34383,7508,6,2,0,'87.218.146.155',1183723226,1,0,1,1,1,1,'','','De hecho es la técnica que se usa en los servidores en internet para no guardar los passwords. \n\nSe guarda el MD5 del password y luego se compara con el MD5 del password introducido, asi no hay peligro de que roben los passwords <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAunque con un diccionario, fuerza bruta y paciencia, pueden ir comparando MD5s hasta localizar el password original','',0,'AIA=','1s9emn28',1,0,'',2,0,0),(34384,7492,3,1082,0,'85.43.122.34',1183724842,1,0,1,1,1,0,'','','no changes....  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','39u7jrap',1,0,'',1082,0,0),(34385,7501,6,53,0,'189.139.9.254',1183724843,1,0,1,1,1,1,'','','Pedro:\n\nLa imágen del reporte en preview no es mia, tenia el link en el portapapeles y cometi el error de pegarla en mi post, me di cuenta demasiado tarde  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nSin embargo, por si te ayuda,  para una de mis aplicaciones utilizo PdfFactory es un Driver de terceros pero esta excelente, te crea el archivo PDF y te da la posibilidad de enviarlo por e-mail.\n\n<!-- m --><a class=\"postlink\" href=\"http://pdffactory-pro.softonic.com/\">http://pdffactory-pro.softonic.com/</a><!-- m -->\n\nSaludos','',0,'AIA=','1b2a3zzy',1,0,'',53,0,0),(34386,7498,6,1072,0,'200.83.124.41',1183728397,1,0,1,1,1,0,'','','Antonio:\nHola, no uso ninguna libreria que no sea la que enlaza en buildx.bat, ya que solo he tratado de compilar TOOLBAR1.PRG y TEST.PRG del directorio de FWH701 y me lanza este error, es mas hoy lo he ejecutado en Win Xp y pasa lo mismo. Me tiene super complicado, ya que necesito comensar a desarrollar una aplicacion en 32 bits, si no puedo generar este ejemplo, menos podre hacerlo con una aplicacion de mas programas.\n\nEn espera de una pronta ayuda, te saluda atte.,\n\nAntonio.','',0,'AIA=','2ldn6rmx',1,0,'',1072,0,0),(34387,7498,6,1072,0,'200.83.124.41',1183728799,1,0,1,1,1,0,'','','Antonio:\n\nMe nacio una duda, las librerias que trae FWH701, debo recompilarlas para usarlas con xHarbour  0.99.71, o son universales, solo enlasarlas.\n\nSaludos,\nAntonio','',0,'AIA=','3hhob1f9',1,0,'',1072,0,0),(34388,7509,6,104,0,'201.58.174.37',1183729002,1,0,1,1,1,0,'','Travar teclas especiais e mais...','Olá,\n\nNeste exemplo que fiz associado a dll que é encontrada no endereço:\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/win32/AntonioWinLock.asp\">http://www.codeproject.com/win32/AntonioWinLock.asp</a><!-- m -->\n\n...é possível fazer o seguinte em FWH:\n\n- Ativa/Desativar alt+tab\n- Ativa/Desativar alt+esc\n- Ativa/Desativar ctrl+alt+del\n- Mostrar/Esconder a barra de tarefas\n- Mostrar/Esconder o desktop\n- Mostrar/Esconder o Start Button\n- Mostrar/Esconder o System Clock\n- Rodar um processo em outro desktop\n\nO link para baixar o exemplo: <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=795\">http://www.fivewin.com.br/exibedicas.asp?id=795</a><!-- m -->\n\nEspero que gostem <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAbraços,\n\nRossine.','',0,'AIA=','34x7fr5c',1,0,'',104,0,0),(34389,7503,3,104,0,'201.58.174.37',1183729217,1,0,1,1,1,0,'','','Hello,\n\nSee <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=795\">http://www.fivewin.com.br/exibedicas.asp?id=795</a><!-- m -->\n\nRegards\n\nRossine.','',0,'AIA=','2nto3toh',1,0,'',104,0,0),(34390,7480,3,1068,0,'200.153.245.50',1183729717,1,0,1,1,1,1,'','','nothing ????','',0,'AIA=','1awmefwv',1,0,'',1068,0,0),(34391,7500,6,147,0,'201.253.12.184',1183729970,1,0,1,0,1,1,'','','gracias Antonio, lo haré\nFrancisco, es un DEFINE WINDOW... (gracias igualmente)','',0,'AIA=','2pdj3ldx',1,0,'',147,0,0),(34392,7480,3,58,0,'84.149.78.82',1183732536,1,0,1,1,1,0,'','','[quote=&quot;yury&quot;:2gdqk2a0]nothing ????[/quote:2gdqk2a0]\n\nYuri,\n\nyou must understand that emails with a html body are normal emails where the email text is formatted via html tags.\n\nThe fact that you see a html body is depending on your email client program. This has nothing to do with any attachment.\n\nSome email clients show you attachments as if they belong to the body in case it\'s a jpg-picture or if it\'s a html file.\nBut this is dangerous and not standard.\n\nSo if you want to send an email with html appearance you have to format your normal body text with the necessary html tags.\nAs attachments you may whatever you want.\n\nI hope my explanation was not to complicated.\nIf yes, ask me again.\n\nRegards,\nDetlef','',0,'gA==','2gdqk2a0',1,0,'',58,0,0),(34394,7501,6,106,0,'85.34.123.173',1183738186,1,0,1,1,1,1,'','','Armando,\n\nYo uso pdfCreator para los pdf\'s, y luego lo mando por mail con las clases internas de FWH.\nMe llamó la atención que la creación del pdf se hiciera a partir del preview.\n\n\n\nSaludos','',0,'gA==','ngvt7mqx',1,0,'',106,0,0),(34395,7511,6,348,0,'201.240.165.4',1183739529,1,0,1,1,1,0,'','Consultas remotas por internet ??  es posible o no ??','Buenos dias\n\nMe podrian ayudar con esta consulta??\nQue se requiere para que un cliente de una Fabrica pueda visualizar el estado de un pedido la cual se encuentra en una Tabla (base de datos) que pudede ser MySql por ejemplo ... en forma remota Via Internet:\n\n\nImaginando, pensando quiza en algunas opciones: \n1 Opcion . Colgar en un Hosting de Pag. Web una base de datos,  que eccedan por ahi,   y  desde la fabrica actualizamos ese Hosting cada vez que sea necesario?? \n\n2.Opcion : tener en Fabrica una Maquina Servidora para que tengan acceso remoto los Clientes con una Clave, a su informaciin??\n\n\nLa pregunta es que necesitaria y como hacerlo ,  que es mas SBS  (Seguro,Barato,Sencillo) ???\nSe podria usar la nueva Clase ADORDD para esta aplicacion ??\n\n\nGracias por sus futuros comentarios.\nLubin','',0,'gA==','2pf9dymj',1,0,'',348,0,0),(34396,7512,3,284,0,'201.43.154.74',1183740243,1,0,1,0,1,0,'','TsBrowse users ?','Hi TsBrowse users !\n \nI use TsBrowse in my application and I like it very much.\nGreat job Manuel Mercado !\n \nBut, sometimes some bugs appear and I have to handle them.\nAnd seems that many people here does the same !\n \nWhat about join our efforts and maintain a \"extra-official\" version of TsBrowse with the bugs fixed and new features added ?\n \nMaybe Manuel Mercado´s permission is  needed...\nIs Manuel here ?\n \nIs anyone interested in it ?\n \nMaurício Faria','',0,'gA==','ec8qi26t',1,0,'',284,0,0),(34397,7513,6,73,0,'200.23.18.132',1183740395,1,0,1,1,1,0,'','Antonio ...','Hola Antonio,\nEstoy haciendo un browse con wbrowse de hernan, y hago edicion de columnas con combobox,  entonces estoy modificando la clase para en el metodo lEditCol poer una variable logica para definir desde ahi si quiero que se abra automaticamente el combobox, pero estuve viendo la clase del combobox y me encontre con el Open() INLINE CB_SHOWDROPDOWN\nentonces hice modifique esto en la wbrowse\n\n    bOpenCombo:= {|| if(cType=\"L\" .OR. aItems!=nil,if(lAutoOpen=.t.,oGet:Open(),),)}\n\n   ACTIVATE DIALOG oDlg ON INIT ( Eval( bInit ), Eval( bOnInit, oGet, oDlg ), Eval( bOpenCombo ) )\n\ncuando se posiciona en la columan del combobox, el control me lo abre y me lo cierra automaticamente,\n\ncomo hacer para que al tener el foco el combobox este se abra en automatico?\nespero haberme explicado..\nsalu2\nPaco','',0,'gA==','1avksrlw',1,0,'',73,0,0),(34398,6773,3,284,0,'201.43.154.74',1183741104,1,0,1,0,1,0,'','','Can it be used with xHarbour.com xHarbour ?','',0,'gA==','1oeknwu6',1,0,'',284,0,0),(34399,7480,3,1068,0,'200.153.245.50',1183742404,1,0,1,1,1,1,'','','Hi Detlef,\n\nthank you for explanation, very usefull...\n\ndo you have any example about message text formated with html tags what works with MS OutLook Express (TMail class invoke OE) ?\n\nbest regards and thank you again','',0,'gA==','1938c8ui',1,0,'',1068,0,0),(34400,7501,6,644,0,'190.30.11.94',1183742890,1,0,1,1,1,0,'','','PymSoft\nDebes modificar la clase rpreview para colocar un botón y seleccionar una impresora pdf.','',0,'gA==','2md87lzv',1,0,'',644,0,0),(34401,7514,6,73,0,'200.23.18.132',1183744131,1,0,1,1,1,0,'','radios en folder, sera bug?','el enter en el radio button dentro de folder no funciona, no cambia de controla, alguna solucion?\ngracias\nPaco','',0,'gA==','3vieqah9',1,0,'',73,0,0),(34402,7490,6,875,0,'64.76.108.182',1183745372,1,0,1,1,1,0,'','','A mi me paso lo mismo con un ComboBox dentro de un Wbrowse,  asi que lo tuve que dejar asi no mas, osea funciona solo con el Mouse y no con Teclas, porque si uso teclas se pasa  al siguiente columna  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n\nJaime','',0,'gA==','12m2eru1',1,0,'',875,0,0),(34403,7515,3,299,0,'24.233.172.101',1183746350,1,0,1,0,1,0,'','jpg resolution','Hi.\n\nI keep jpg images stored a dbf/fpt file pair.  It works well.  Just to give an example leading to my point; at a given customer site 350k jpg images are kept on an 80GB .fpt file. \n\nI just noticed that at a more recent installation, 26k images occupy an .fpt file of 115GB.  I\'m suspecting that the resolution at which the jpgs were created was very high.\n\nUsing BlobExport() I can extract and re-create any single jpg image file from the .fpt.  My question is:  is there any way to change the resolution on an already existing jpg so that it creates a smaller jpg?\n\nThank you,\n\n\n\nReinaldo.','',0,'gA==','c5qo2uvp',1,0,'',299,0,0),(34404,7480,3,58,0,'84.149.73.78',1183748355,1,0,1,1,1,0,'','','Hi Yuri,\n\ni don\'t have Outlook.\nBut you should use something like the following example:\n[code:3o828qld]LOCAL cMessage &#58;= &quot;&lt;HTML&gt;&quot;                                                                   + CRLF +;\n                  &quot;&lt;HEAD&gt;&quot;                                                                   + CRLF +;\n                  \'&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=iso-8859-1&quot;&gt;\' + CRLF +;\n                  &quot;&lt;/HEAD&gt;&quot;                                                                  + CRLF +;\n                  &quot;&lt;BODY&gt;&quot;                                                                   + CRLF +;\n                  &quot;&lt;p&gt;Here a paragraph&lt;/p&gt;&quot;                                                  + CRLF +;\n                  &quot;&lt;p&gt;&quot;                                                                      + CRLF +;                 \n                  \'  &lt;table border=&quot;1&quot; cellpadding=&quot;2&quot; cellspacing=&quot;2&quot;&gt;\'                     + CRLF +;\n                  &quot;    &lt;tr&gt;&quot;                                                                 + CRLF +;\n                  &quot;      &lt;th&gt;Val&lt;/th&gt;&quot;                                                       + CRLF +;\n                  &quot;      &lt;th&gt;Val * 100&lt;/th&gt;&quot;                                                 + CRLF +;\n                  &quot;    &lt;/tr&gt;&quot;                                                                + CRLF \n\n            for n &#58;= 1 to 12\n               cMessage += &quot;    &lt;tr&gt;&quot; + CRLF +;\n                           &quot;      &lt;td&gt; &quot; + str&#40; n      , 2, 0 &#41; + &quot;&lt;/td&gt;&quot;+ CRLF +;\n                           &quot;      &lt;td&gt; &quot; + str&#40; n * 100, 4, 0 &#41; + &quot;&lt;/td&gt;&quot;+ CRLF +;\n                           &quot;    &lt;/tr&gt;&quot;                                   + CRLF\n            next\n\n            cMessage += &quot;  &lt;/table&gt;&quot;        + CRLF +;\n                        &quot;&lt;br&gt;&lt;br&gt;  &quot;        + CRLF +;\n                        &quot;Normal Text here&quot;  + CRLF +;\n                        &quot;&lt;/BODY&gt;&quot;           + CRLF +;\n                        &quot;&lt;/HTML&gt;&quot;\n\n\n   DEFINE MAIL oMail;\n      SUBJECT  cSubject;\n      TEXT     cMessage\n\n   oMail&#58;aRecipients &#58;= aRecip\n   oMail&#58;aFiles      &#58;= aAttach\n\n   ACTIVATE MAIL oMail\n\n   oMail&#58;End&#40;&#41;\n[/code:3o828qld]\n\nBut it may be the recipient doesn\'t see the mail as html-formatted.\nThis depends on the settings of his email reader.\n\nI hope this helps, otherwise ask me again.\n\nRegards,\nDetlef','',0,'AIA=','3o828qld',1,0,'',58,0,0),(34405,5118,6,54,0,'189.132.86.156',1183749462,1,0,1,1,1,1,'','','Antonio, he hecho la prueba como comentas y funciona muy bien.\n\nprecisamente necesitaba algo como ello\n\ngracias','',0,'AIA=','18zoohu2',1,0,'',54,0,0),(34406,7492,3,2,0,'87.218.146.155',1183750007,1,0,1,1,1,1,'','','Damiano,\n\nPlease use TestMdi4.prg as a template and modify it for your own needs. Or please provide a self contained sample to reproduce the error, thanks','',0,'AIA=','1nifuuzq',1,0,'',2,0,0),(34407,6773,3,2,0,'87.218.146.155',1183750080,1,0,1,1,1,1,'','','Yes, you just need to modify the UEStudio config files, but its quite easy','',0,'AIA=','37lcr1rk',1,0,'',2,0,0),(34408,7513,6,2,0,'87.218.146.155',1183750200,1,0,1,1,1,1,'','','Si lo cierra será porque está perdiendo el foco. Dale el foco con &lt;o&gt;:SetFocus()','',0,'AIA=','113oheqt',1,0,'',2,0,0),(34409,7445,6,300,0,'201.88.20.172',1183750792,1,0,1,1,1,0,'','Re: Bug en la Funcion SetDate() 32bits','[quote=&quot;cuatecatl82&quot;:3vgdwl2n]Hola estimados colegas del foro, tengo el siguiente problema ojala y alguno de ustedes lo haya resuelto, y es un tema del cual ya se hablo pero del que todavia nadie a dado respuesta\n\nResulta que uso la funcion SETDATE() para el cambio de fecha de Windows el cual lo uso así:\n\nSTATIC dInicial          ----------&gt;&gt;Al inicio de la aplicacion lo he probado tambien como PUBLIC.\n\nSET DATE TO BRITISH ----------&gt;&gt;Dentro de la Funcion Main\nSET CENTURY ON\nSET EPOCH TO 2000\ndInicial:= Date()\n\nDentro del sistema cambio la fecha de windows con la misma funcion esto lo hago para revisar la informacion de meses pasados, ya que mi sistema usa una carpeta de informacion por mes de trabajo... aki funciona bien y sin problemas con esta funcion..\n\nFUNCTION CambiaFecha()\n\nLOCAL dVar1:= DATE()\nLOCAL oDlg,oGet,oBtn1,oBtn2\nLOCAL lSal:= .F.\n\nDEFINE  DIALOG    oDlg     RESOURCE \"SELFECHA\" TITLE \"Cambiar Fecha de Trabajo\" OF oWndMain \nREDEFINE  BTNGET    oGet   VAR dVar1 ID 102 OF oDlg RESOURCE \"B_CALE\" SPINNER;\n                                                      ON UP (++dVar1,oGet:REFRESH()) ON DOWN (--dVar1,oGet:REFRESH());\n                                                      ACTION (aRect := GetCoors(oGet:hWnd),;\n                                                      dVar1 := FwCalendar(dVar1,aRect[1],aRect[4],oDlg),;\n                                                      oGet:REFRESH())\nREDEFINE BUTTON    oBtn1           ID 107 OF oDlg  ACTION (SetDate( DAY( dVar1 ), MONTH( dVar1 ), YEAR( dVar1 ) ), SYSREFRESH(), CambMes(dVar1), CreArchi(), Indexa(), lSal:= .T., oDlg:END())\n        REDEFINE BUTTON    oBtn2           ID 108 OF oDlg  ACTION (lSal:= .T., oDlg:END()) CANCEL	  \n\n                    ACTIVATE DIALOG    oDlg CENTERED  VALID (lSal)\nReturn nil\n\nHasta aki todo bien..\n\nSetDate( DAY(dInicial), MONTH(dInicial), YEAR(dInicial) )  ----------&gt;&gt; Esto lo hago al salir la aplicacion por si el usuario se olvida de regresar la fecha de windows a la fecha inicial, la cual la tome al principio.\n\nPor una extraña razon al momento de hacer el cambio de fecha la atrasa un dia, y lo hace por cada vez que salgo del programa entre las 9 y 11 de la noche, y en horarios diferentes durante el día, cosa que no pasaba con 16bits, ya revise el código fuente de esta funcion y son exactamente iguales, si hago esto:\n\nSetDate( DAY(dInicial)+1, MONTH(dInicial), YEAR(dInicial) )\n\nle sumo 1 día más pa que no regrese y que es una de las soluciones posteadas en este foro,  tambien lo hace, en algunas ocaciones regresa hasta 2 días atras..\n\nAlguien puede explicar porque con xharbour y fivewin falla y porque no con clipper y fivewin no..?\n\nMaestraso Antonio Linares... Ahi le dejo esta carta al aire..\n\nNo creo sel el único con este problema....\n\nFHW 2.6 + xHarbour 0.45 Flex[/quote:3vgdwl2n]\n\nA mi me da lo mesmo bug, \nSolução: no uso mas SetDate()\n\n<!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nSalud2','',0,'gA==','3vgdwl2n',1,0,'',300,0,0),(34410,7498,6,2,0,'87.218.146.155',1183750795,1,0,1,1,1,1,'','','No tienes que recompilarlas si usas el xHarbour que proporcionamos con esa versión de FWH','',0,'gA==','23aeyvq7',1,0,'',2,0,0),(34411,7480,3,1068,0,'200.153.245.50',1183752267,1,0,1,1,1,1,'','','Hi Detlef,\n\nI will test your example and post results here...\n\nThanks you for help and attention\n\nBest Regards','',0,'gA==','11ojufla',1,0,'',1068,0,0),(34412,7513,6,73,0,'200.23.18.132',1183752911,1,0,1,1,1,0,'','','Antonio ya probe a poner despues del oGet:Open() un oGet:Setfocus() y me sigue cerrando el combobox nomas lanza el destello de la apertura de los datos y se cierra, pero el foco lo sigue teniendo el combobox,  hay alguna forma de enviarle un clic de raton sobre el boton del combobox para ver si asi lo despliega, como seria?\nporque este es el codigo donde se crea el control en la clase:\n           @  0, 0 COMBOBOX oGet VAR uVar ITEMS aItems ;\n              SIZE ( aDim[ 4 ] - aDim[ 2 ] ) * 0.50, 50 OF oDlg ;\n              ON CHANGE ( oDlg:End(), lOk := .t. ) ;\n              FONT oFont COLOR nClrFore, nClrBack STYLE CBS_DROPDOWNLIST\n\ngracias\npaco','',0,'','168j24b2',1,0,'',73,0,0),(34413,7516,6,774,0,'200.72.70.106',1183753187,1,0,1,1,1,1,'','TENGO EL SIGUIENTE PROBLEMA COLEGAS','Defino asI:::\n\nDEFINE BITMAP oBmp FILE cFilePath( hb_argv(0))+\"Brush\\MiBrush2.bmp\" \nDEFINE WINDOW oWndHija FROM 0,0 TO 0,0; \n       TITLE \"Mantención de Clientes\";\n       ICON \"ico\\simbolo.ico\";\n       COLORS nRGB(0,0,0),nRGB(50,128,128);\n       MDICHILD BORDER NONE; \n       NOMAXIMIZE;\n       OF oWnd\n\nDEFINE DIALOG oDlg RESOURCE 1 FONT oFontHijaDos OF oWndHija TRANSPARENT\n\nACTIVATE DIALOG oDlg NOWAIT ON PAINT(PalBmpDraw( hDC,0,0,oBmp:hBitmap,oBmp:hPalette,oDlg:nWidth,oDlg:nHeight,,));\n			    VALID (oWndHija:end(),.T.);\n			    ON INIT(oBrowse:move(30,265),oGet:move(415,350))\n\n@ 370,20 IMAGE oBtnPNG[1] FILE cFilePath( hb_argv(0))+\"Png\\Boton1.png\";\n         NOBORDER PIXEL;\n         OF oDlg \n         oBtnPNG[1]:ltransparent:=.T.\n\nACTIVATE WINDOW oWndHija;\nON INIT(oDlg:Move(0,0)); \nON RESIZE (oWndHija:SetSize(oDlg:nWidth,oDlg:nHeight));\nVALID ( if(aoMenuItem # NIL,( AEval(aoMenuItem,{|n| (n:Enable(),n:Refresh()) })),),;\n           oFontHijaUno:End(), oFontHijaDos:End(),oFontVmenu,oBmp:End(),.T.)\n\n\n\n/////////////////////////////////////////////////////////////////////////////////\n\n\nel problema es que  IMAGE oBtnPNG[1] se muestra con el fondo rosado y no se hace transparente\n\nSI ALGUIEN SABE COMO SOLUCIONARLO \n\nGRACIAS','',0,'','3t9bvnaw',1,0,'',774,0,0),(34414,7504,6,785,0,'190.64.212.190',1183754613,1,0,1,1,1,0,'','','Gracias Maestro.\n\nSaludos\n\nRuben Fernandez','',0,'','3brtg687',1,0,'',785,0,0),(34415,7490,6,73,0,'200.23.18.132',1183754709,1,0,1,1,1,0,'','','ya esta arreglado lo del combobox con las flechas ya no se brinca al siguiente control..\nahorita me estoy dando un tiro para que me abra el combobox en automatico...\n\nsalu2\npaco','',0,'','3rqeoui6',1,0,'',73,0,0),(34416,7516,6,2,0,'87.218.146.155',1183754855,1,0,1,1,1,1,'','','Al usar la claúsula TRANSPARENT en el diálogo debes asignarle un brush.\n\nRevisa el ejemplo samples\\BtnTrans.prg','',0,'','2yfsn461',1,0,'',2,0,0),(34417,7513,6,2,0,'87.218.146.155',1183754962,1,0,1,1,1,1,'','','Paco,\n\n&gt; poner despues del oGet:Open() un oGet:Setfocus() \n\nPrueba a hacer oGet:SetFocus() antes de oGet:Open()','',0,'','3lk2gqog',1,0,'',2,0,0),(34418,7502,3,308,0,'84.148.10.53',1183758710,1,0,1,1,1,0,'','Re: Sample using MonthCalendar control ?','[quote=&quot;Armando&quot;:35a1d7as]Dear friends:\n\nI\'m looking for a sample using the MonthCalendar Control, if you have one, would you send it to me ?.\n\nBest regards[/quote:35a1d7as]\n\nLook at your eMail.\n\nRegards, Norbert','',0,'gA==','35a1d7as',1,0,'',308,0,0),(34419,7502,3,53,0,'189.139.9.254',1183759515,1,0,1,1,1,1,'','','Norbert:\n\nThanks a lot !.\n\nIt\'s very appreciated\n\nBest regards','',0,'gA==','27v7g9bg',1,0,'',53,0,0),(34420,7513,6,73,0,'200.23.18.132',1183760926,1,0,1,1,1,0,'','','gracias antonio, ya lo probe asi y tampoco funciona me lo cierra, hice la prueba con un combobox sin browse desde recurso en un dialogo y si lo abre bien.\nesto lo pense hacer porque en el browse estando editando un combobox no me permitia desplazarme con las flechas arriba y abajo, pero una vez solucionado, ahi dejo en RIP lo del AutoOpen del combobox,\nmil gracias por tu ayuda.\nsalu2\npaco','',0,'gA==','1p9jxc5w',1,0,'',73,0,0),(34421,7517,6,73,0,'200.23.18.132',1183762439,1,0,1,1,1,0,'','Altura combox y Font en wbrowse','Bueno por ahi lei que a Jose Luis no le daba el alto del combobox en la edicion del wbrowse y a Jose Murugosa no le respetaba el tamaño de la Font, espero no equivocarme con los nombres, y por ahi a algunos otros colegas que editan con wbrowse.\n\nunicamente unas observaciones:\n1. ahi seria ajustar el alto de la fila cuando no quepa el combobox\n2. en la edicion con nStyleLine=2\n  2.1 con font el dato se posiciona 1 pixel abajo\n  2.2 sin font el dato se posiciona 1 pixel arriba\n   es casi imperceptible (fue lo mejor que pude hacer)\n3. con nLineStyle=3 funciona perfecto\n\nBueno pues le meti manita a la clase y\n1. ya respeta el tamaño de las font en la edicion\n2. arreglado lo del combobox\nsi alguien necesita la clase por aqui la subo\n\ndejo una imagen de como quedo.\n<!-- m --><a class=\"postlink\" href=\"http://img263.imageshack.us/my.php?image=wbrowsecbxzh0.jpg\">http://img263.imageshack.us/my.php?imag ... cbxzh0.jpg</a><!-- m -->\n\nsalu2\npaco','',0,'gA==','1uwatdfl',1,0,'',73,0,0),(34422,7515,3,299,0,'24.233.172.101',1183771965,1,0,1,0,1,0,'','','What I need to know is if there is a utility to convert a jpg to another jpg with less (different) resolution.  Or if perhaps freeimage could be used for this purpose.\n\n\nReinaldo.','',0,'gA==','pbfevnu3',1,0,'',299,0,0),(34423,7492,3,159,0,'210.243.203.20',1183773489,1,0,1,1,1,0,'','Re: Dialog in NOWAIT modal goes in LOOP','[quote=&quot;damianodec&quot;:26xi60dz]\nwhen I run my apps the dialog MYDIALOG goes in LOOP...\nwhy?[/quote:26xi60dz]\n\ndo you have modify file .rc ?','',0,'gA==','26xi60dz',1,0,'',159,0,0),(34424,7518,22,239,0,'219.136.101.180',1183775288,1,0,1,1,1,0,'','Unicode support','Hi,\n   More and more customers require unicode datas. GUI gtk+ for harbour support unicode .\n  When could fwh support unicode ? or fwh limited under harbour\' unicode?\n\nRegards!\n\nShuming Wang','',0,'gA==','1ji8p1ht',1,0,'',239,0,0),(34425,7507,3,239,0,'219.136.101.180',1183775359,1,0,1,1,1,0,'','','Nothing display  except ?\'aaa\' msgstop() api call.\n\nShuming Wang','',0,'gA==','31jh34bn',1,0,'',239,0,0),(34426,7461,3,868,0,'219.64.121.60',1183784398,1,0,1,1,1,1,'','','Mr. James\n\nCan you please send me too?\n\nRegards','',0,'gA==','1yed9u5n',1,0,'',868,0,0),(34427,7492,3,1082,0,'85.43.122.34',1183785716,1,0,1,1,1,0,'','','sgrunt....\nif I use my apps and I run my personal antivirus on my pc the dialog goes loop. If I close antivirus.... dialog it\'s OK....','',0,'gA==','1blyyr97',1,0,'',1082,0,0),(34428,7500,6,78,0,'190.40.250.56',1183787315,1,0,1,1,1,0,'','','Hola, yo lo hago asi: ( observa el ON RESIZE)\n\nACTIVATE DIALOG oDlg CENTER NOWAIT ;\n                ON INIT ( oDlg:Move( 0, 0 ), oLbx:GoTop()) ;\n                VALID  (oWndK:End(), lSalir )\n                oWndK:bGotFocus  = { || oDlg:SetFocus() }\nACTIVATE WINDOW oWndK ;\n         ON INIT (oWndK:Move(0,0), oWndK:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ;   //         MAXIMIZED ;\n         ON RESIZE (oWndK:SetSize( oDlg:nWidth, oDlg:nHeight ) ) ;\n         VALID (oApp:aVentana[2]:=.f.,tActual:End(), lSalir)\n\n\nSalu2','',0,'','30sliety',1,0,'',78,0,0),(34429,7492,3,2,0,'87.218.146.155',1183787420,1,0,1,1,1,1,'','','What antivirus do you use ?','',0,'','1cnc8p1x',1,0,'',2,0,0),(34430,7492,3,1082,0,'85.43.122.34',1183790307,1,0,1,1,1,0,'','','Norton Internet security, but I thinks that problem is on my PC, because I use my apps another PC with norton and it\'s OK.','',0,'','t2vfoolj',1,0,'',1082,0,0),(34431,7461,3,47,0,'203.144.160.246',1183791229,1,0,1,1,1,0,'','','May I have too?\n\nRegards,\nDutch\n<!-- e --><a href=\"mailto:dutch@easyfo.com\">dutch@easyfo.com</a><!-- e -->','',0,'','2ah6r777',1,0,'',47,0,0),(34432,7517,6,838,0,'80.59.225.15',1183797706,1,0,1,1,1,0,'','','Francisco\n\nSi la pones por aquí te lo agraceceria mucho.\n\nSaludos\n\nJose Luis','',0,'','1akqh35q',1,0,'',838,0,0),(34433,7461,3,936,0,'190.56.107.20',1183807751,1,0,1,1,1,0,'','','Hi James.\n\nCan you send to me too? please.\n\nBest Regards.\n\nCarlos.','',0,'','2ht736j4',1,0,'',936,0,0),(34434,7517,6,936,0,'190.56.107.20',1183808032,1,0,1,1,1,0,'','','Francisco.\nYo tambien te agradecería si puedes compartir tus modificaciones a la TwBrowse. Y si tuvieras un ejemplo de la edición sería excelente!!\nGracias.\n\nSaludos.\n\nCarlos.','',0,'','1gou3flo',1,0,'',936,0,0),(34435,7500,6,147,0,'201.253.1.72',1183812401,1,0,1,0,1,1,'','','Gracias Willy\nLo voy a probar, para tener una opcion más. Ya que la que me recomendó Antonio tambien funciona...y como no, viniendo del Jefe :-)\n\n[code:1zm5ovwp]\ntestsize&#46;prg\n   oWnd&#58;aMinMaxInfo = &#123; 200, 200, ;  // xMaxSize,      yMaxSize\n                        50,  50,;      // xMaxPosition,  yMaxPosition\n                        80,  80,;      // xMinTrackSize, yMinTrackSize\n                        150, 150 &#125;   // xMaxTrackSize, yMaxTrackSize\n[/code:1zm5ovwp]\n\nyo lo hice así\n[code:1zm5ovwp]\n   oWnd&#58;aMinMaxInfo = &#123; WND_MAX, WND_HEIGHT, ;  // xMaxSize,      yMaxSize\n                        50,  50,;               // xMaxPosition,  yMaxPosition\n                        80,  80,;               // xMinTrackSize, yMinTrackSize\n                        WND_MAX, WND_HEIGHT &#125;   // xMaxTrackSize, yMaxTrackSize\n[/code:1zm5ovwp]\nobviamente los WND_ son valores numericos #define\nAcá voy a apelar a que Antonio me aclare sobre mi ignorancia; ya que primero solo reemplacé los valores de xMaxSize e yMaxSize y el tamaño no se ajsutaba como pretendía. Luego, reemplacé en xMaxTrackSize e yMax... y obtuve lo deseado\nO sea el último par de valores a que o como afectan?\n\nnuevamente gracias a todos\nsaludos','',0,'AIA=','1zm5ovwp',1,0,'',147,0,0),(34436,7519,6,435,0,'200.155.201.64',1183816679,1,0,1,1,1,0,'','HotKey on ButtonBar','Não funciona o HotKey na buttonbar ?\n\nTem que criar um method keydown na Buttonbar ?\n\nAri\n\nisso pode funcionar ? ..vou tentar\n\n[code:3i0z2sf6]\n\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TBar\n\n   &#58;&#58;oWnd&#58;nLastKey &#58;= nKey\n\n   do case\n      case nKey == VK_UP &#46;or&#46; nKey == VK_LEFT\n           &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n           return 0\n\n      case nKey == VK_DOWN &#46;or&#46; nKey == VK_RIGHT\n           &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n           return 0\n\n      case nKey == VK_RETURN\n           PostMessage&#40; &#58;&#58;hWnd, FM_CLICK &#41;    // fire the button\'s action\n           return 0\n   endcase\n\nreturn Super&#58;KeyDown&#40; nKey, nFlags &#41;\n[/code:3i0z2sf6]','',0,'AIA=','3i0z2sf6',1,0,'',435,0,0),(34437,7515,3,35,0,'65.188.6.143',1183821122,1,0,1,1,1,0,'','','I use Infranview ( free ) .. It is a viewer conversion ( re-sampling ) image program . .stand alone.\n\nYou can download it from here :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.irfanview.com/\">http://www.irfanview.com/</a><!-- m -->\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','kk743504',1,0,'',35,0,0),(34438,7516,6,774,0,'200.72.70.106',1183823190,1,0,1,1,1,1,'','','antonio;; despues de mucho darle vuelta al asunto,, he podido establecer cual es el problema::\n\nte lo comento quizas tenga una solucion...\n\nSi se usa asi funcionan muy bien la transparencia::\n\n\n#include \"FiveWin.ch\" \n\nfunction Main() \n   local oBru, oDlg, oBtn \n   DEFINE BRUSH oBru FILENAME \"Brush\\MiBrush2.bmp\"\n   DEFINE DIALOG oDlg RESOURCE 2 BRUSH oBru TRANSPARENT \n\n   @ 70, 80 BTNBMP oBtn FILENAME \"Png\\boton1.BMP\";\n      SIZE 50, 30 OF oDlg NOBORDER ACTION MsgInfo( \"click\" ) \n   oBtn:lTransparent = .T.    \n\n   ACTIVATE DIALOG  oDlg NOWAIT\n\nreturn nil \n\n\nel problema es que yo uso asi...\nprimero un definde window  MDI como pantalla principal... luego en cada ventana hija asi.. definde window MDICHILD y dentro de ese mdichild incorporo un dialog todo asi mira el codigo::\n\n\nFunction Man_Clientes(oWnd,aoMenuItem)                      \nLocal oWndHija\nLocal oDlg\nLocal oBrush\nLocal oBmp\nLocal oBtn\n\nDEFINE BRUSH oBrush  FILENAME \"Brush\\MiBrush2.bmp\"\n\nDEFINE WINDOW oWndHija FROM 0,0 TO 0,0; \n       TITLE \"Mantención de Clientes\";\n       ICON \"ico\\simbolo.ico\";\n       COLORS nRGB(0,0,0),nRGB(50,128,128);\n       MDICHILD BORDER NONE; \n       NOMAXIMIZE;\n       OF oWnd\n\nDEFINE DIALOG oDlg  RESOURCE 1 OF oWndHija BRUSH oBrush TRANSPARENT\n\n@ 70, 80 BTNBMP oBtn FILENAME \"Png\\boton1.BMP\";\n      SIZE 50, 30 OF oDlg NOBORDER ACTION MsgInfo( \"click\" ) \n   oBtn:lTransparent = .T.    \n\nACTIVATE DIALOG oDlg NOWAIT  VALID (oWndHija:end(),.T.)\nACTIVATE WINDOW oWndHija;\nON INIT(oDlg:Move(0,0)) \nReturn nil\n\ncreo segun lo analizado que el problema se genera al inscruptar el DIALOG dentro del window MDICHILD la transparencia no se realiza\n\n\n\nTENDRA ALGUNA SOLUCION ESTE INCONVENIENTE \n\n\nGRACIAS','',0,'AIA=','1aph50rx',1,0,'',774,0,0),(34439,7520,6,1086,0,'216.244.197.251',1183824100,1,0,1,1,1,0,'','FWH/FWHX 2.6','Hola, tengo la version FWH/FWHX 2.6 Abril 2005 si alguno de los amigos pueden dercirme que vesion de Harbour o xHarbour es compatible con esta version, soy nuevo en esto, saludos.','',0,'AIA=','2087dbmx',1,0,'',1086,0,0),(34440,7498,6,1072,0,'201.214.53.161',1183828911,1,0,1,1,1,0,'','','Antonio:\n\nHola, no logro solucionar el problema, hable con mi cliente y la informacion que tengo es la siguiente:\n\n. Tiene FWH701\n. XHARBOUR   0.99.71\n\nMi pregunta es la siguiente:\n  Desde que version de XHARBOUR es compatible con FWH701, o hasta que mes de actualizacion. Quizas de esta forma logre hacer que me funcione. Ya que limpie mi equipo, he instale Ambos software de nuevo.\n\nEn espera de tu respuesta, se despide,\n\nAntonio','',0,'AIA=','324b1823',1,0,'',1072,0,0),(34441,7461,3,303,0,'72.199.41.171',1183835213,1,0,1,1,1,0,'','','Everyone can get a copy of BtnGet by downloading a copy of TSBrowse v6.13 from my website. The TBtnGet class is included in the source directory.\n\nGet it here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nIf you already have TSBrowse, then you already have TBtnget.\n\nJames','',0,'AIA=','8pnwznsn',1,0,'',303,0,0),(34442,7512,3,303,0,'72.199.41.171',1183835580,1,0,1,1,1,0,'','','Maurício,\n\nI have also fixed some bugs and made the fix available on my website. I think the fixes are documented in the download. If you wish to add your modifications to this version I will put it up on my website so everyone has access.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nJames','',0,'AIA=','11syjxr2',1,0,'',303,0,0),(34443,7521,6,66,0,'201.213.88.204',1183859740,1,0,1,0,1,0,'','Indices CDX en red','Estimados Colegas\n\nTengo una aplicacion en un servidor, a la cual accedo desde otras\nterminales via acceso directo, cuando accedo de dos terminales\nal modulo me tira DOS32  sharing violation , alguien me podria\norientar como solucionarlo\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e --> \n\n\nSele 21\nUse Clientet alias clientet shared\n\nIF .NOT. NETERR()\nINDEX ON UPPER(CLIENTEt-&gt;DENOMI) TO CLIENTE1\nINDEX ON UPPER(CLIENTEt-&gt;DIRECC) TO CLIENTE2\nElse\nalert(\"Archivo Bloqueado por otro usuario\",,\"Archivo\")\nendif\nsET INDEX TO CLIENTE1,CLIENTE2\n\n\n\n**twbrowse*********','',0,'AIA=','2kee0v3g',1,0,'',66,0,0),(34444,7522,6,66,0,'201.213.88.204',1183860440,1,0,1,0,1,0,'','Ayuda Numeracion de Facturas en Red','Estimados Colegas\n\nTengo un aplicacion en servidor a la que accedo via acceso directo desde otras terminales, El numero de factura lo tomo de un dbf, el problema\nque estoy teniendo es que cuando acceden dos terminales al mismo\ntiempo les asigna el mismo numero , Lo que quiero hacer es que le asigne\notro numero o mantener en espera al otro usuario , alguien me puede orientar como solucionarlo\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e --> \n\n\n SELE 15\nUSE CONTRATO shared\n\nSTORE CONTRATO-&gt;NTICKET TO XNCON\nNT=0\nSTORE NTICKET TO NT\nXNCON=XNCON+1\n\nif rlock()\n\nREPLACE CONTRATO-&gt;NTICKET WITH XNCON\nelse\nalert(\"Archivo Bloqueado por otro usuario\",,\"Red\")\nendif','',0,'AIA=','22qcdeys',1,0,'',66,0,0),(34445,7522,6,73,0,'189.157.175.135',1183864549,1,0,1,1,1,0,'','','fabian,\nlo que yo te puedo recomendar es asignar el numero de factura hasta el momento de grabar la factura, si quieres saber que numero le toco de factura muestraselo en una ventana y listo !!,\nsalu2\npaco','',0,'AIA=','2m8x85c5',1,0,'',73,0,0),(34446,7521,6,92,0,'83.53.81.237',1183891765,1,0,1,1,1,0,'','Re: Indices CDX en red','Si no me equivoco, para indexar debes tener abierta la DBF como EXCLUSIVE en vez de shared.\n\nSaludos\nCarlos G.\n\n\n[quote=&quot;Databaselab2002&quot;:2nrb0j11]Estimados Colegas\n\nTengo una aplicacion en un servidor, a la cual accedo desde otras\nterminales via acceso directo, cuando accedo de dos terminales\nal modulo me tira DOS32  sharing violation , alguien me podria\norientar como solucionarlo\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e --> \n\n\nSele 21\nUse Clientet alias clientet shared\n\nIF .NOT. NETERR()\nINDEX ON UPPER(CLIENTEt-&gt;DENOMI) TO CLIENTE1\nINDEX ON UPPER(CLIENTEt-&gt;DIRECC) TO CLIENTE2\nElse\nalert(\"Archivo Bloqueado por otro usuario\",,\"Archivo\")\nendif\nsET INDEX TO CLIENTE1,CLIENTE2\n\n\n\n**twbrowse*********[/quote:2nrb0j11]','',0,'gA==','2nrb0j11',1,0,'',92,0,0),(34447,7522,6,92,0,'83.53.81.237',1183892871,1,0,1,1,1,0,'','Re: Ayuda Numeracion de Facturas en Red','Si cuando accedes a la DBF que contiene el número de factura le sumas 1, seguidamente debes realizar un DBCommit() para que en el resto de puestos que acceden por red vean que se ha incrementado en 1 ese valor.\n\nRecuerda, en red si no realizas un DBCommit() cuando alteras el valor de los campos de la dBF, el resto de puestos de la red no ven los cambios.\nY en los puestos que estan \'mirando\' la pantalla debe existir la posibilidad de realizar un Goto( Recno() ) para que se refresquen los valores que estan \'mirando\'.\n\nAdemás yo haría lo siguiente aun sin saber para que sirven XNCON ni NT:\n\nSELE 15\nUSE CONTRATO shared\nif rlock()\nNTICKET = NTICKET + 1\nXNCON = NTICKET\nDBCommit()\nDBUnlock()\nNT=0\nNT = NTICKET\nelse\nalert(\"Archivo Bloqueado por otro usuario\",,\"Red\")\nendif\n\nSaludos\nCarlos G.\n\n\n[quote=&quot;Databaselab2002&quot;:3u9nm6mb]Estimados Colegas\n\nTengo un aplicacion en servidor a la que accedo via acceso directo desde otras terminales, El numero de factura lo tomo de un dbf, el problema\nque estoy teniendo es que cuando acceden dos terminales al mismo\ntiempo les asigna el mismo numero , Lo que quiero hacer es que le asigne\notro numero o mantener en espera al otro usuario , alguien me puede orientar como solucionarlo\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e --> \n\n\n SELE 15\nUSE CONTRATO shared\n\nSTORE CONTRATO-&gt;NTICKET TO XNCON\nNT=0\nSTORE NTICKET TO NT\nXNCON=XNCON+1\n\nif rlock()\n\nREPLACE CONTRATO-&gt;NTICKET WITH XNCON\nelse\nalert(\"Archivo Bloqueado por otro usuario\",,\"Red\")\nendif[/quote:3u9nm6mb]','',0,'gA==','3u9nm6mb',1,0,'',92,0,0),(34448,7523,6,1105,0,'217.127.105.137',1183893987,1,0,1,1,1,0,'','hasp4 bajo harbour','Hola:\n\n¿Es posible usar las mochilas Hasp4 de Aladdin bajo Harbour?. ¿Cómo?. Muchas gracias.\n\nSalu2,\n\nEduardo','',0,'gA==','2bkntakc',1,0,'',1105,0,0),(34449,7524,3,1105,0,'217.127.105.137',1183894091,1,0,1,1,1,0,'','hasp4 under harbour','Hi,\n\nI would like to know if it´s possible to use hasp4 dongles under harbour?. Thank you.\n\nRegards,\n\nEduardo','',0,'gA==','lpe1xl13',1,0,'',1105,0,0),(34450,7522,6,141,0,'200.88.94.215',1183907678,1,0,1,1,1,1,'','','Hola,\n\nTal y como explica Francisco, los numeradores de documentos en cualquier sistema deben utilizarse cuando terminaste de capturar la factura, o sea, al final.  \n\nSi deseas algo \"bonito\", puedes mostrarlo desde el principio en la ventana de la factura, pero SIEMPRE antes de grabar la factura, debes verificar que no estas generando el mismo numero que ya fue utilizado por otra factura.\n\nAsumí que estas utilizando DBCOMMIT(), así que de otra manera todo esto no funciona.\n\nSuerte...','',0,'gA==','16p1fhc1',1,0,'',141,0,0),(34451,7522,6,138,0,'189.158.83.98',1183909598,1,0,1,1,1,1,'','','Asi es, los numeros consecutivos de documentos se asignan AL FINAL, una vez que hayas terminado la captura, bloqueas los archivos, asignas el numero consecutivo, guardas la informacion y le avisas al usuario:\n\nSe captuardo la factura No. TAL\n\ny listo','',0,'gA==','10eidhv6',1,0,'',138,0,0),(34452,7521,6,138,0,'189.158.83.98',1183909785,1,0,1,1,1,1,'','','Efectivamente, no puedes abrir una base de datos como SHARED cuando vas a generar un indice, tienes que abrirla como exclusiva.','',0,'gA==','3fjfw1xh',1,0,'',138,0,0),(34453,7524,3,138,0,'189.158.83.98',1183910302,1,0,1,1,1,1,'','','We developed a full API for xHarbour for the Sentinel SuperPro dongles.\n\nThis api wraps all the functions availalbe for the Surper Pro into a single easy to use function library.\n\nYou can ask your Sentinel provider to give you the full Api (.C, .PRG is available)','',0,'gA==','2a4z576l',1,0,'',138,0,0),(34455,7498,6,2,0,'87.218.146.130',1183919537,1,0,1,1,1,1,'','','Dile que se ponga en contacto con nosotros, que nos proporcione su código de licencia y le ayudaremos con mucho gusto','',0,'gA==','8ftc4hv6',1,0,'',2,0,0),(34456,7525,3,190,0,'124.7.26.34',1183919584,1,0,1,1,1,0,'','A Request to all &quot;FiveWin&quot;ners','It is my humble request to you all FIVEWINNERS,\n\nI was thinking to share this view with you all since a long time.\n\nAll erstwhile Clipper programmers who wanted to come into Windows\nenvironment have started using FIVEWIN + *HARBOUR alongwith some\nknown tools developed either using FIVEWIN + *HARBOUR or some \nthirdpartys.  Thanks to our Guru Mr.Antonio and *Harbour Team.\n\nUsually every developer has his own reqirement  to develop his \napplication for his clients. While developing such application, he might be \nin need of various tools/functions/classes/methods which are not covered \ndirectly in eigher FIVEWIN or even *HARBOUR.  \n\nIn such situations, every developer is best enough to find a wayout to \nprovide a suitable solution to his clients, using some third party \ntools or some new technics within our own FIVEWIN + *HARBOUR or \nthrough some third party tools.\n\nWhat I feel is, when ever any fivewinner comes across such situation \nand find a solution to a particular problem, which could not be solved within\nour native FIVEWIN + *HARBOUR, he is requested to share it with our \nguru/master Mr.Antonio or directly put it in our forum.  So that every \nFIVEWINNERS will take advantage out of it and more over it cultivates a \nhabit of passing such new developments among all FIVEWINNERS.  And \nalso it will enable Mr.Antonio to take note of it and guide the developers\nin future.  \n\nThe example is :\n\nAgainst the subject : \"alt+tab key board stop..... \" \nvide <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7503\">http://fivetechsoft.com/forums/viewtopic.php?t=7503</a><!-- m -->\nMr.Antonio has given his solution to refer:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.thescarms.com/vbasic/StopReBoot.aspx\">http://www.thescarms.com/vbasic/StopReBoot.aspx</a><!-- m -->\n\nBut there was a direct solution within our FIVEWIN/*HARBOUR from\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=795\">http://www.fivewin.com.br/exibedicas.asp?id=795</a><!-- m -->\n\nI am surprised that our Brasilian forum has a solution for such problem\nand othe FIVEWINNERS are deprived of such benefit!\n\nHad he (Mr.Antonio) been informed about this, he would not have \nadvised to go for an indirect solution from <!-- m --><a class=\"postlink\" href=\"http://www.thescarms.com/vbasic/StopReBoot.aspx\">http://www.thescarms.com/vbasic/StopReBoot.aspx</a><!-- m -->\nand every FIVEWINNER could have taken benefit out of it.\n\nOne more thing I found is : Our  non-english speaking members\npost their problems in this: \"English Forums of `FiveWin for \nHarbour/xHarbour\'.  And they do get their solutions in their own language, \nwhich is not understood by english speaking members like me for whom\nthis \"English Forums of `FiveWin for  Harbour/xHarbour\' is meant for.\n\nI not blaming anybody for such cross/direct postings.  But my \nworry is that I am not able to understand the valuable solutions to the \nproblems posted by non-enlglish speaking members in English Forum and answered properly in their own  language viz. Spanish or any other non-english  language.\n\nI request Mr.Antonio to take a note of this. Because now, FIVEWN is reaching all parts of the world whare ever clipper programmers are existing. \n\nWe are growing and FIVEWIN will grow to its peaks.\n\nRegards to all FIVEWINNERS.\n\n- Ramesh Babu P','',0,'gA==','1dz1gfsy',1,0,'',190,0,0),(34457,7515,3,190,0,'124.7.26.34',1183920362,1,0,1,1,1,0,'','','Mr.Reinaldo\n\nI am using BMP2JPG.EXE, a file which converts a BMP file to  JPG file\nwith the require percentage of quality.  The Syntax is :\n\nLOCAL cExec     := \'BMP2JPG.EXE\'\n\nWaitRun(cExec+\' -q\'+LTRIM(STR(::nJpgQuality,3,0))+\' -c\' +  ;\n              cOutputFile+\' -o -s\',0)\n\nPlease check your inbox for \'BMP2JPG.EXE\'\n\n- Ramesh Babu P','',0,'gA==','z6mbfucf',1,0,'',190,0,0),(34458,7526,22,1014,0,'190.40.178.172',1183920647,1,0,1,1,1,1,'','Nombre del Objeto en oDlg:aControls','En \\fwh\\samples\\testfoc2.prg    hay una rutina Cntllsearch donde se puede indagar qué control tiene el foco. En el array de oDlg:aControls se podria incluir el nombre del Objeto?. ademas de su Id.  seria de gran ayuda al momento de hacer el debug.\nMuchas gracias\nJorge Vargas','',0,'gA==','2itdrwmo',1,0,'',1014,0,0),(34459,7515,3,999,0,'201.42.189.20',1183926068,1,0,1,1,1,0,'','','Hi Reinaldo,\nIn IrfanView, on the \"Save\"  or \"Save as\" dialog, below there is a \"Show options checkbox\". \nWhen clicked, shows the \"JPEG/GIF Save Options\" dialog.\nIn the JPG group there is a \"Save quality\"  scroll bar.\nAround 55 to 60 saves with a good quality and a good compression (1/10).\nHTH\nRegards, Euclides','',0,'gA==','3quduj0w',1,0,'',999,0,0),(34460,7525,3,86,0,'81.83.185.118',1183932740,1,0,1,1,1,1,'','','If I do understand you well, you are afraid that some solutions, proposed by certain fivewinners, aren\'t shared with other fivewinners which results into a repetition of some questions.\n\nI agree with that, but ...\n\nThe example that you mentioned, you spoke about a direct solution within FiveWin/*Harbour. But if I click on the link you gave us, I am directed to the website of FiveWin Brasil ..... which is in Spanish.\n\nAnd since I don\'t understand one single word of Spanish ....\n\nA small thing which is bothering me, is the fact that several people on this forum, keep asking their question in Spanish, although they pose it in the English forum.\n\nBut on the other hand : all credit to many Fivewinners who are offering solutions to many problems. I am very greatful to them.\n\nFiveWin/*Harbour is a splendid product and I hope that we can use it for many, many years.','',0,'gA==','tvb6hegd',1,0,'',86,0,0),(34461,7515,3,190,0,'124.7.24.161',1183947710,1,0,1,1,1,0,'','','You can have a look at \"FastStone Image Viewer\". It is free and having\nlots of features.\n\n[url:1lz57ywn]http&#58;//www&#46;FastStone&#46;org[/url:1lz57ywn]\n\n- Ramesh Babu P','',0,'EA==','1lz57ywn',1,0,'',190,0,0),(34462,7527,6,1086,0,'216.244.197.251',1183953730,1,0,1,1,1,0,'','error','Hola, al terminar de compilar y correr la aplicacion me sale un letrero \"Unrecoverable erro 9000\'  \'Prgram with 1st fun \"ALERT\" was compiled by older version, PCODE Version 0 is no longer supported \nPlease recompile\'\nDesearia saber como puedo solucionar esto, si pueden ayudarme\n\nFWH 2.6 + Harbour 0.99.61 + BCC 5.5','',0,'EA==','1j4it995',1,0,'',1086,0,0),(34463,7522,6,348,0,'201.230.80.141',1183957575,1,0,1,1,1,0,'','Re: Ayuda Numeracion de Facturas en Red','Hola Fabian\n\nLa idea es que cuando uno de los usuarios acceda al Registtro Contador donde controlas el nro de la factura, lo bloqueas temporalmente, generas el nuevo numero ..haces el N+1 y lo grabas en tu factura (al comienzo)  y luego desbloqueas el registro contador para que el otro usuario acceda,  el oro usuario lo mantienes en un \"Wait\" o \"En Espera\"  que creo que es lo que  te falta.. lo pones en un Do While... Enddo  hasta que se libere el registro... ..  normamente es inmediato...\n\nojala te ayude..\nLubin\n\n\n[quote=&quot;Databaselab2002&quot;:2oa3ymxk]Estimados Colegas\n\nTengo un aplicacion en servidor a la que accedo via acceso directo desde otras terminales, El numero de factura lo tomo de un dbf, el problema\nque estoy teniendo es que cuando acceden dos terminales al mismo\ntiempo les asigna el mismo numero , Lo que quiero hacer es que le asigne\notro numero o mantener en espera al otro usuario , alguien me puede orientar como solucionarlo\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e --> \n\n\n SELE 15\nUSE CONTRATO shared\n\nSTORE CONTRATO-&gt;NTICKET TO XNCON\nNT=0\nSTORE NTICKET TO NT\nXNCON=XNCON+1\n\nif rlock()\n\nREPLACE CONTRATO-&gt;NTICKET WITH XNCON\nelse\nalert(\"Archivo Bloqueado por otro usuario\",,\"Red\")\nendif[/quote:2oa3ymxk]','',0,'gA==','2oa3ymxk',1,0,'',348,0,0),(34464,7527,6,2,0,'87.218.146.130',1183962249,1,0,1,1,1,1,'','','Todos los PRGs tienen que estar compilados con el mismo build de xHarbour, incluyendo los que estan dentro de librerías','',0,'gA==','3dm40fu9',1,0,'',2,0,0),(34465,7528,6,967,0,'84.127.225.17',1183966744,1,0,1,1,1,0,'','Winspool','Para poder utilizar funciones del API de Windows que hacen referencia a la libería Winspool, ¿que es necesario que incluya en la aplicación? ¿Ha de incluirse alguna libreria o DLL \"adaptada\" a fivewin/xharbour?','',0,'gA==','1snbe1tl',1,0,'',967,0,0),(34466,7522,6,106,0,'85.34.123.173',1183969630,1,0,1,1,1,1,'','','Fabian,\n\nPuedes usar un archivo de contadores y abrirlo en modo esclusivo, tomar el numero aumentarle 1, salvarlo y cerrar el archivo.\nSi no puedes abrir el archivo de contadores (quiere decir que alguien esta aumentando los contadores), reintentas varias veces.\nEs inmediato, aunque esten trabajando varios terminales haciendo facturas.\n\nSaludos.','',0,'gA==','3f40g4or',1,0,'',106,0,0),(34467,7501,6,106,0,'85.34.123.173',1183970627,1,0,1,1,1,1,'','','Horacio, pero todo esto luego de haber hecho el preview?\n\nLo miraré\n\nGracias','',0,'gA==','16bffwe3',1,0,'',106,0,0),(34468,7529,6,316,0,'213.97.245.163',1183972023,1,0,0,1,1,0,'','dll 16 bits a 32 bits.','Estoy pasando un programa inicialmente desarrollado en Clipper, con los recursos en una DLL.\nPara exportar los recursos a 32 bits, abro la dll con WorkShop, y le doy a \'Grabar como...\' y elijo el tipo \'rc\' \n\nLuego importo ese \'rc\' a una dll de 32 bits, peeeeero...\nlos dialogos se distorsionan, como si les hubiese cambiado la fuente, todos los controles quedan desplazados y, como uso un bitmap de fondo, todo se vé fatalmente horrible.\n\nAlguna sugerencia?\n\nSaludos,\n\nCarlos.','',0,'gA==','djkq94vr',1,0,'',316,0,0),(34469,7530,7,720,0,'80.36.244.134',1183972434,1,0,1,1,1,0,'','como saber la ruta de la tarjeta de memoria...','Hola a todos. \n\nAlguien sabe cual es la ruta que coge por defecto la sd card?...\n\nSaludos.\n\nElías Torres.','',0,'gA==','35468qmo',1,0,'',720,0,0),(34470,7525,3,106,0,'85.34.123.173',1183974009,1,0,1,1,1,1,'','','driessen,\n\n\nFivewin Brasil is in portuguese, not in spanish.\n\n\nRegards','',0,'gA==','2eqn6lpd',1,0,'',106,0,0),(34471,7530,7,720,0,'80.36.244.134',1183974189,1,0,1,1,1,0,'','','solucionado....simplemente es quitar el curdir() y poner en su lugar el nombre de la tarjeta de memoria..\n\n\nSaludos \nElías Torres.','',0,'gA==','13s6hxx2',1,0,'',720,0,0),(34472,7531,3,995,0,'81.11.202.208',1183976406,1,0,1,1,1,0,'','Setting focus on an object in bLostfocus','Hello,\n\nTrying To use msginfo() after the user leaves a get , i tryed with :\n\noGet:bLostfocus := {||msginfo(\"some text\')}\n\nThe problem is that the next get seems to have focus , BUT NOT VISIBLE\n\nI tryed everithing mentioned in this forum, you can test with \n[code:ora70rpg]\n#include &quot;FiveWin&#46;ch&quot;\nfunction Main&#40;&#41;\n   LOCAL oDlg, oGet&#91;4&#93; \n   LOCAL cCad &#58;= &quot;Testing    &quot;   LOCAL nNum &#58;= 0\n   LOCAL dDat &#58;= Date&#40;&#41;\n	 LOCAL n &#58;= 0\n\n   Set century On\n   Set Date Ansi\n   Set Date format &quot;mm/dd/yyyy&quot;\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg TITLE &quot;TGet from &quot; + FWDESCRIPTION\n   @ 1,    2 SAY &quot;Text&#46;&#46;&#58;&quot; OF oDlg\n   @ 1,    6 GET oGet&#91;1&#93; VAR cCad OF oDlg SIZE 60, 10 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;\n   @ 1&#46;8,  2 SAY &quot;Number&#58;&quot; OF oDlg\n   @ 2,    6 GET oGet&#91;2&#93; VAR nNum OF oDlg SIZE 60, 10 PICTURE &quot;9999999&#46;99&quot;\n	 oGet&#91;2&#93;&#58;bLostFocus &#58;= &#123;||MsgInfo&#40;&quot;Focus not visible on oGet&#91;3&#93;&quot;&#41; , Test&#40;oGet , nNum&#41; &#125; // , oGet&#91;2&#93;&#58;Setfocus&#40;&#41;&#125;\n   @ 2&#46;6,  2 SAY &quot;Date&#58;&quot; OF oDlg\n   @ 3,    6 GET oGet&#91;3&#93; VAR dDat PICTURE &quot;@E&quot; OF oDlg SIZE 60, 10 //WHEN &#46;f&#46; // &quot;@D&quot;\n   oGet&#91;3&#93;&#58;lDisColors = &#46;f&#46; // don\'t use standard disabled colors\n   @ 3,    7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3,   16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      //VALID MsgYesNo&#40; &quot;Want to end ?&quot; &#41;\n\nreturn nil\n\n//------------------------------------------------------------------------//\n*****************************************************************************************\nPROC Test&#40;oGet , n&#41;\n*******************\nIF n == 0\n	// Nothing , no code\nELSEIF n == 1\n	oGet&#91;3&#93;&#58;SetFocus&#40;&#41;\nELSEIF n == 2\n	xSetfocus&#40;oGet&#91;3&#93;&#41; ; xSetfocus&#40;oGet&#91;3&#93;&#41; ; xSetfocus&#40;oGet&#91;3&#93;&#41;       // repeating , Maurilio Viana 23/2/2007\nELSEIF n == 3\n	PostMessage&#40; oGet&#91;2&#93;&#58;hWnd ,FM_CHANGEFOCUS&#41;                         // Manuramos 26/2/2007\nELSEIF n == 4\n	SendMessage&#40; oGet&#91;2&#93;&#58;hWnd , FM_CHANGEFOCUS&#41; \nELSEIF n == 5\n	PostMessage&#40; oGet&#91;2&#93;&#58;hWnd , FW_SETFOCUS&#41; \nELSEIF n == 6\n	SendMessage&#40; oGet&#91;2&#93;&#58;hWnd , FW_SETFOCUS&#41; 	\nEND		 \nRETURN\nfunction xSetFocus&#40; oObx &#41;\n**************************\n// function from local&#46;fivewin&#46;english 4/1/2003 Kleyber Derick\nlocal oTempo&#58;=&quot;&quot;\nlocal lGet &#58;= oObx&#58;ClassName $ &quot;TGET TMULTIGET&quot;\ndefine timer oTempo interval 10 of oObx&#58;oWnd ;\n  action &#40;oObx&#58;SetFocus&#40;&#41;, IIF&#40;lGet , oObx&#58;SetPos&#40;0&#41; , &#41;, oTempo&#58;Deactivate&#40;&#41; &#41;\nactivate timer oTempo\n\nreturn nil\n\nprocedure appsys\nreturn\n\n[/code:ora70rpg]\n\nFrank','',0,'AIA=','ora70rpg',1,0,'',995,0,0),(34473,7529,6,316,0,'213.97.245.163',1183976458,1,0,0,1,1,0,'','','Para más detalles, la distorsión es solo horizontal, reduciendo en 7/6 tanto las coordenadas como los anchos.\nCon un programita corregiré los RCs, pero me gustaría saber el porqué de la cuestión.','',0,'AIA=','30srr37y',1,0,'',316,0,0),(34474,7522,6,439,0,'190.64.100.89',1183977580,1,0,1,1,1,1,'','','La soluciòn propuesta es correcta, si tu grabas el correlativo primero, y luego cancelas la factura (no la haces), el correlativo ya se grabò y el usuario siguiente obtuvo uno superior salteandose el previo.\n\nLa mejor soluciòn como todos han dicho es grabar al final, puedes leer el archivo de correlativo en forma compartida y mostrar un correlativo (el disponible) luego en el momento de grabar ver si se ha modificado y modificar el correlativo al ùltimo AL FINAL y corregir la vista en pantalla o no desplegar el correlativo y hacerlo al final luego de grabado.\n\nSea como sea, que muestres el correlativo al final o al principio y luego lo actualices el correlativo SIEMPRE serà el que estè disponible al momento de grabar, y por lo tanto se guarda al final.\n\nPROCEDIMIENTO:\n1)Ingreso los datos de la factura\n2)Al guardar la factura:\n   a) abro el correlativo en forma exclusiva\n   b) tomo el correlativo correspondiente\n   c) incremento el correlativo\n   d) cierro la base dejàndola disponible para otro usuario\n   e)grabo la factura con el correlativo obtenido\n   f)regreso a ingreso de facturas\n\nComo se dijo, la rutina de toma de correlativo deberà intentar abrir el correlativo hasta que tenga èxito (previendo que otro usuario de la red estè en ese momento grabando su correlativo).\n\nej.\nDO WHILE .T.\n  USE CORRELAT EXCLUSIVE\n  IF .NOT. NETERR()\n    EXIT\n  ENDIF\nENDDO\n.....\n\n(o cualquier cosa  parecida)','',0,'AIA=','2zxi2twm',1,0,'',439,0,0),(34475,7529,6,2,0,'87.218.146.117',1183978236,1,0,1,1,1,1,'','','Carlos,\n\nWindows no mantiene una total compatibilidad en las dimensiones de los diálogos al mostrarlos en 16 ó en 32 bits, como has comprobado.\n\nPuedes usar la claúsula RESIZE16 de FWH para que se vean un poco más parecidos:\n\nACTIVATE DIALOG oDlg RESIZE16','',0,'AIA=','n47z8eec',1,0,'',2,0,0),(34476,7528,6,967,0,'84.127.225.17',1183978399,1,0,1,1,1,0,'','','Librerias y archivos relacionados:\n\nWinspool.lib\nWinspool.dll\nWinspool.h\n\nComo aclaración, Winspool es el servicio de windows que controla las impresoras, la cola de impresión, etc.','',0,'AIA=','1jpvvdx5',1,0,'',967,0,0),(34477,7528,6,2,0,'87.218.146.117',1183978682,1,0,1,1,1,1,'','','Haz impdef.exe winspool.def winspool.dll y asi obtendrás el fichero ascii DEF que contiene los nombres de las funciones que exporta esa DLL, luego puedes buscar documentación acerca de ellas sabiendo sus nombres','',0,'AIA=','3loqff1t',1,0,'',2,0,0),(34478,7531,3,2,0,'87.218.146.117',1183979380,1,0,1,1,1,1,'','','Frank,\n\nIf you call MsgInfo() from a lost focus operation then you are modifying the normal focus sequence. Try to use a MsgBeep() or another call that do not affect the focus:\n\noGet:bLostfocus := {|| MsgBeep() }\n\nor\n\noGet:bLostfocus := {|| oDlg:SetText(\"some text\') } \nThis one changes the dialog caption','',0,'AIA=','3tas8zyl',1,0,'',2,0,0),(34479,7528,6,967,0,'84.127.225.17',1183981712,1,0,1,1,1,0,'','','Gracias Antonio.\n\nCreo que antes no me explique bien. La documentación en sí, dispongo de ella, y para poder tener acceso a las funciones de la misma (muy utiles por cierto, pues permiten obtener el numero de impresoras conectadas al equipo, los drivers que utilizan, información sobre la cola de impresión,etcétera)\ndeclaro las funciones de ésta manera.\n\n[code:36ox5eep] DLL32 FUNCTION EnumPrintA; \n      &#40; flags AS LONG, ;\n        name AS STRING, ;\n        Level AS LONG, ;\n        @pPrinterEnum AS BYTE, ;\n        cdBuf AS LONG, ;\n        @pcbNeeded AS LONG, ;\n        @pcReturned AS LONG &#41; ;\n   AS LONG PASCAL;\n   FROM &quot;EnumPrintersA&quot; LIB &quot;WINSPOOL&quot;[/code:36ox5eep]\n\nEsta función del API de Win que aquí muestro, te enumera la lista de impresoras de las que dispone el equipo. Otras funciones del API que también utilizo, no me dan ningún tipo de problema. El problema es que con ésta en particular, parece ser que no es capaz de cargar la libreria WINSPOOL, entonces aquí surje mi duda. Ya no se si ésto está dentro del ámbito de FiveWin, o se sale de lo que a éste foro concierne. Si es así, disculpas.\n\nMe explique mal al formular la pregunta del post. Mas bién debería haber preguntado cual es el procedimiento para cargar una librería, y poder hacer uso de sus funciones en FiveWin. A continuacíon, muestro la ruta de las librerias y del archivo de extensión .h, los cuales desearía utilizar.\n\nAl compilar el programa me muestra éste error en tiempo de ejecución:\n\"Error code: 0 Loading Winspool\". Dicho error, parece ser que se produce cuando se intenta cargar una librería, y esta, no existe (hace referencia a la última línea de código de este post). De hecho, si se cambia el nombre de librería por una no existente, muestra el mismo error.\n\nP.D. En el Borland BCC5, estos archivos están en la ruta:\nBorland\\BCC55\\include\\winspool.h\nBorland\\BCC55\\LIB\\PSDK\\winspool.lib\n\nSaludos y gracias!','',0,'AIA=','36ox5eep',1,0,'',967,0,0),(34480,7529,6,316,0,'213.97.245.163',1183983232,1,0,0,1,1,0,'','','Antonio,\n\nsabía que lo había visto en algún lado y no recordaba donde. Gracias por la ayuda, de todas maneras prefiero rectificar el rc y la dll ya que el programa de 16 bits pasará a retiro en breve. Además en el editor de recursos se ve fatal!\n\nCuando termine el programita lo paso para cuando alguien más tenga que corregir el mismo problema.\n\nSaludos,\n\nCarlos','',0,'AIA=','23yvap6u',1,0,'',316,0,0),(34481,7516,6,774,0,'200.72.190.9',1183984792,1,0,1,1,1,1,'','','..','',0,'AIA=','fk2aglhb',1,0,'',774,0,0),(34482,7528,6,2,0,'87.218.146.130',1183987026,1,0,1,1,1,1,'','','Cambia winspool.dll por winspool.exe','',0,'AIA=','3u701zgm',1,0,'',2,0,0),(34483,7532,6,41,0,'200.105.194.234',1183987442,1,0,1,1,1,0,'','Error con xHarbour','Holas,\n\ntengo el siguiente error con xHarbour, si defino un string que ocupe mas de una linea el compilador me da error, ejemplo\n\n    consulta := \" SELECT * FROM cuentas ;\n                                        WHERE codigo = \'0001\' and ;\n                                                          mes = 12 \"\nesto funciona con las versiones previas de xHarbour, alguien mas tiene estos errores.\n\nEstoy probando con el xHarbour que facilita FIveTech\n\nsaludos\n\nMarcelo','',0,'AIA=','2e8kf9zz',1,0,'',41,0,0),(34484,7516,6,2,0,'87.218.146.130',1183987854,1,0,1,1,1,1,'','','El diálogo se ve con el brush ?','',0,'AIA=','3mgptos5',1,0,'',2,0,0),(34485,7532,6,2,0,'87.218.146.130',1183987988,1,0,1,1,1,1,'','','Marcelo,\n\nDebe tratarse de un cambio en el compilador. Hazlo asi:\n\nconsulta := \" SELECT * FROM cuentas \" + ; \n\"WHERE codigo = \'0001\' and \" + ; \n\"mes = 12 \"','',0,'AIA=','2ktlgczh',1,0,'',2,0,0),(34486,7505,2,2,0,'87.218.146.130',1183988108,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2041\">http://fivetechsoft.com/forums/viewtopic.php?t=2041</a><!-- m -->','',0,'AIA=','1wz8batc',1,0,'',2,0,0),(34487,7532,6,41,0,'200.105.194.234',1183988282,1,0,1,1,1,0,'','','Antonio,\n\ngracias por la respuesta, no se si harbour es igual, ni modo tengo algun trabajo que hacer entonces.\n\nsaludos\n\nMarcelo','',0,'AIA=','3cypnulz',1,0,'',41,0,0),(34488,7526,22,2,0,'87.218.146.130',1183989647,1,0,1,1,1,1,'','','Jorge,\n\nPuedes saber el nombre de la clase del objeto:\n\noDlg:aControls[ n ]:ClassName()','',0,'','v7idk6iq',1,0,'',2,0,0),(34489,7516,6,774,0,'200.72.190.9',1183990844,1,0,1,1,1,1,'','','si antonio el dialogo se ve con el brush de fondo\n\nel problema es que como yo inscrupto el dialogo el un MDICHILS\ncomo te detalle anteriormente ,, por alguna razon el BTNBMP se se hace transparente\n\n\nQUE SERA ??\n\nGRACIAS','',0,'','31d5pzwe',1,0,'',774,0,0),(34490,7522,6,138,0,'189.158.83.98',1183991870,1,0,1,1,1,1,'','','Efectivamente, las soluciones de bloqueos durante la captura no son eficientes, por una simple y sencilla razon:\n\nEl usuario se puede marchar (pasa muuuuy frecuentemente) y dejar bloqueado los archivos, me ha pasado que hay gente que deja todo el fin de semana corriendo un programa con las tablas bloqueadas.\n\nTampoco es valido asignar el numero antes porque si el usuario cancela la captura, pues ese numero ya se calculo y los siguientes usuarios tiene ya un numero desplazado.\n\nOtra forma mas inteligente aún de hacerlo, es darle el numero manualmente, si, leyeron bien, manualmente, de acuerdo al documento que se va a imprimir.\n\nUsualmente las facturas vienen un folio pre-impresio desde la imprenta (por lo menos en Mexico asi es), entonces capturas tu \"pre-factura\" con el numero que tu quieras, y cuando la mandas a imprimir le asignas manualmente el numero de factura de acuerdo al documento que este en la impresora listo para imprimirse.','',0,'','20e4g2mg',1,0,'',138,0,0),(34491,7527,6,1086,0,'216.244.240.248',1183991949,1,0,1,1,1,0,'','gracias','Muchas gracias, Antonio.','',0,'','2gsa90fv',1,0,'',1086,0,0),(34492,7505,2,138,0,'189.158.83.98',1183992352,1,0,1,1,1,1,'','','Si utilizas Funcky, este es el codigo:\n\n[code:vqin8nkl]aPrinters &#58;= &#123;&#125;\noFunckyPrinters &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;FUNCkyFindPrinter&quot;&#41;\noFunckyPrinters&#58;FindFirst&#40;&#41;\nDO WHILE oFunckyPrinters&#58;Found&#40;&#41;\n      AADD&#40;aPrinters,oFunckyPrinters&#58;Name&#40;&#41;&#41;\n      oFunckyPrinters&#58;FindNext&#40;&#41;\nENDDO\nMsgList&#40;aPrinters&#41;\n\nMsgInfo&#40;oFuncky&#58;DefaultPrinter&#40;&#41;,&quot;Default Printer&quot;&#41;\n[/code:vqin8nkl]','',0,'AIA=','vqin8nkl',1,0,'',138,0,0),(34493,7529,6,138,0,'189.158.83.98',1183992492,1,0,1,1,1,1,'','','Carlos:\n\nY si mejor le pegas el .RC directo al EXE ?, digo, por ahorrarte un archivo .DLL de mas, ¿ necesitas ese DLL para algo mas que recursos ?.','',0,'AIA=','opf35my9',1,0,'',138,0,0),(34494,7522,6,36,0,'200.113.56.235',1183995703,1,0,1,1,1,1,'','','A mi me ha funcionado muy bien esta rutina que paso a explicar\n\ndentro del sistema tengo un modulo de facturas directa, este automaticamente le asigna el numero siguiente\ncon una tabla de parametros que tiene un solo registro y estan todos los correlativos de los documentos\n\n[code:2qgf4wt2]\n	REDEFINE GET aGet&#91;id_numdocu-20,1&#93;;\n		VAR _numdocu																				;\n		ID id_numdocu OF oDlg UPDATE															;\n		COLOR CLR_BLACK, RGB&#40;255,255,200&#41;													;\n		PICTURE &quot;9999999999&quot;																		;\n		VALID vDocument&#40; aGet, oLbx, aButton, oSay, lOt &#41;                       ;\n		WHEN cOpcion &lt;&gt; &quot;I&quot;\n\n	DEFINE TIMER oTmr INTERVAL 5000 ACTION ;\n					&#40; Parame-&gt;&#40; dbSkip&#40;0&#41; &#41;, ;\n					  _numdocu &#58;= Parame-&gt;Fact+1,;\n					  aGet&#91;id_numdocu-20,1&#93;&#58;Refresh&#40;&#41; &#41;\n\n   ACTIVATE TIMER oTmr\n	Eval&#40; oTmr&#58;bAction &#41;\n\n	REDEFINE BUTTON aButton&#91;_btnsave&#93; ID 719 OF oDlg	;\n	         ACTION ;\n						iif&#40; SaveInfo&#40; oLbx, aGet, lOt, oTmr, lArriendo &#41;,;\n							Limpiar&#40; oLbx, aGet, aButton, lOt &#41;, NIL &#41;\n\n//FUNCION GRABAR\nStatic function SaveInfo&#40; oLbx, aGet, lOt, oTmr, lArriendo &#41;\n\n//bla&#46; validaciones&#46;&#46;&#46;\n\nif Parame-&gt;&#40; !NetRlock&#40;&#41; &#41;  //bloqueo de tabla parametros\n	return&#40; &#46;f&#46; &#41;\nendif\n\nEval&#40; oTmr&#58;bAction &#41;  //sacamos el ultimo numero\noTmr&#58;DeActivate&#40;&#41;    //desactivamos el timer\nnDocu &#58;= _numdocu    //traspaso el numero de factura a una variable temporal\n\nif Docu_BF-&gt;&#40; dbSeek&#40; upper&#40;left&#40;_tipdocu,3&#41;&#41; + str&#40; nDocu,10 &#41; &#41; &#41; \n//validamos el numero no exista en la base de dato\n	nOldFactu &#58;= nDocu\n	while Docu_BF-&gt;&#40; dbSeek&#40;upper&#40;left&#40;_tipdocu,3&#41;&#41; + Str&#40;++nDocu, 10 &#41; &#41; &#41;\n	enddo\n	if !MsgNoYes&#40; &quot;La &quot;+_tipdocu +&quot; nº &quot;+ltrim&#40;str&#40;nOldFactu&#41;&#41;+&quot; ya existe, desea reemplazarla&quot;+CRLF+;\n					&quot;por esta nueva &quot;+_tipdocu + &quot; nº &quot;+ltrim&#40;str&#40;nDocu&#41;&#41; &#41;\n		dbUnlockAll&#40;&#41;\n		aGet&#91;id_numdocu-20,1&#93;&#58;Refresh&#40;&#41;\n		oTmr&#58;Activate&#40;&#41;\n		return&#40; &#46;f&#46; &#41;\n	endif\nendif\n\n//grabamos&#46;&#46;&#46;\n\nparame-&gt;Fact &#58;= nDocu\n//guardamos el numero de factura el la tabla parametros\n\ndbCommitAll&#40;&#41;\ndbUnlockAll&#40;&#41;\n\noTmr&#58;Activate&#40;&#41; //activamos nuevamante el timer\n\n//imprime la factura&#46;&#46;&#46;\n\nreturn&#40; &#46;t&#46; &#41;\n[/code:2qgf4wt2]\n\n\n\nEspero que le sirva a alguien','',0,'AIA=','2qgf4wt2',1,0,'',36,0,0),(34495,7517,6,73,0,'200.23.18.132',1183997464,1,0,1,1,1,0,'','','aqui dejo el link para su descarga:\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c8787323/TWBrowse.rar.html\">http://hyperupload.com/download/02c8787 ... e.rar.html</a><!-- m -->\n\nsalu2\npaco','',0,'AIA=','2ttr0ewr',1,0,'',73,0,0),(34496,7522,6,583,0,'189.164.134.230',1183998107,1,0,1,1,1,1,'','','Estas dos funciones me han quitado ese problema en mis aplicaciones en red:\n\n[b:hy61mxbt]GetNewFolio()[/b:hy61mxbt] -&gt; lo usas para mostrarle al usuario que folio se va a imprimir, si abres al mismo tiempo un dialogo en pantalla con los datos de la factura en 3 máquinas diferentes va aparecerá el mismo número\n\nnFolio:=GetNewFolio(cRed+\"\\folios.dbf\", \"FOLIO\")\nREDEFINE SAY oSay PROMPT nFolio ID 101 OF oDlg\n\n[b:hy61mxbt]PutNewFolio() [/b:hy61mxbt]-&gt; Lo usas cuando el usuario manda a imprimir, esta función va a escoger el folio que este disponible\n\nnFolio:=PutNewFolio(cRed+\"\\folios.dbf\", \"FOLIO\")\noSay:settext(nFolio)\n\nDe modo que si las llamadas no son en gran cantidad, en una sola base de datos puedes guardar varios folios\n\n[b:hy61mxbt][FOLIOS.DBF][/b:hy61mxbt]\nBOLETA,     N, 10, 0\nNOTA,       N, 10, 0\nPRENDA,     N, 10, 0\nVEHICULO,   N, 10, 0\nFACTURA,    N, 10, 0\n\n/************************************************************************************/\n/*  Devuelve el próximo número de folio  \n/************************************************************************************/\nfunction GetNewFolio(cDbf, cField)\nLocal nFolio:= 0, cAlias:=alias()\n\n   if file(cDbf)\n      dbusearea(.t.,, cDbf, \"FOL\", .t.)\n      If NetErr(); msgalert(\"Error al intentar abrir: \"+CRLF+cDbf, \"Abortando!\"); return(nil); endif\n      FOL-&gt;( nFolio:= &amp;(cField) + 1, dbclosearea() )\n      if( !empty(cAlias), dbselectarea(cAlias), )\n   else\n      msgstop(\"No se encontró la base de datos:\"+CRLF+cDbf, \"Abortando!\")\n   endif\n\nreturn(nFolio)\n\n/************************************************************************************/\n/*  Aumenta el número de folio y lo devuelve\n/************************************************************************************/\nfunction PutNewFolio(cDbf, cField, nFolio)\nLocal lOk:=.t., cAlias:=alias()\n\n   if file(cDbf)\n      dbusearea(.t.,, cDbf, \"FOL\", .t.)\n      If NetErr(); msgalert(\"Error al intentar abrir: \"+CRLF+cDbf, \"Abortando!\"); return(nil); endif\n      FOL-&gt;( if( lastrec() = 0, dbappend(), ) )\n      do\n         FOL-&gt;( if( flock(),;\n                  ( if( nFolio = NIL, nFolio := &amp;(cField) + 1, ),;\n                    dbfield(cField, nFolio), lOk:=.t. ),;\n                  ( lOk:=.f. ) ) )\n      until lOk\n      FOL-&gt;( dbcommit(), dbunlock(), dbclosearea() )\n      if( !empty(cAlias), dbselectarea(cAlias), )\n   else\n      msgstop(\"No se encontró la base de datos:\"+CRLF+cDbf, \"Abortando!\")\n   endif\n\nreturn(nFolio)\n\nSaludos\nMichel Carvajal','',0,'QA==','hy61mxbt',1,0,'',583,0,0),(34497,7522,6,940,0,'189.157.91.25',1184000846,1,0,1,1,1,1,'','','Fabian yo lo hago asi:\n\n// HASLO HASTA QUE EL FOLIO NO EXISTA\n\ndo while .t.\n    nFactura := _miFolio(\'FACTURAS\')\n    dbselectArea(\'facturas\')\n    ordsetofucus(1)\n    if !dbseek( nFactura )\n       dbappend()\n       rlock()\n       field-&gt;folio := nFolio\n       dbcommit()\n      dbunlock()\n      exit    //EXITO AL GRABAR .\n    endif\nend\n\nfunction _mifolio( cCampo )\n   local nValor := 0\n   local cFolio := \"\"\n   local cAli := _creaFolios() // ponemos en uso la tabla de consecutivos\n   dbselectArea(cAli)\n   nValor := val( &amp;( cCampo)  ) + 1\n   if rlock()\n      replace &amp;(cCampo) with str( nValor,7 )\n      dbunlock()\n   endif\n   cFolio := &amp;(cCampo)\n   (cAli)-&gt;( dbcloseArea() )   //cerramos la tabla de consecutivos\nreturn ( _LLENA(cFolio,7) )\n\n\nEsto no falla,  saludos..','',0,'QA==','kwvwdlat',1,0,'',940,0,0),(34498,7517,6,53,0,'189.139.98.157',1184001612,1,0,1,1,1,1,'','','Paco:\n\nSe agradece la contribución, peroooooo  el archivo tiene 0kb   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSaludos','',0,'QA==','3ffj1spk',1,0,'',53,0,0),(34499,7512,3,53,0,'189.139.98.157',1184002770,1,0,1,1,1,1,'','','James:\n\nI\'m a TSbrowse user since the first release (16Bits) but now in 32bits I have a little problem.\n\nCould you test your TSBrowse lib CELLED with a COMBOBOX and let me know if you have no problem ?\n\nI use TSbrowse in this way\n\nLOCAL aTipo := {\"AC = Oil   \",\"LL = Tires  \",\"RE = Spare parts\"}\n....\n....\nADD COLUMN TO oBrw;\n    HEADER \"AC,LL,RE\";\n    SIZE 106 PIXELS ;\n    DATA FIELDWBLOCK(\"NOT_ALR\",SELECT(cNotDCaja));\n    ALIGN DT_LEFT,DT_LEFT,DT_RIGHT;\n    EDITABLE;   // The NOT_ALR field is  2 Characters lenght\n    PICTURE \"@!K\";\n    MOVE DT_MOVE_NEXT\n...\n...\n...\n    oBrw:SetData( 4,FieldWBlock(\"NOT_ALR\",Select(cNotDCaja)),aTipo)\n\nThank you very much\n\nBest regards','',0,'QA==','1rjlsqcf',1,0,'',53,0,0),(34500,7512,3,303,0,'72.199.41.171',1184003188,1,0,1,1,1,0,'','','Armando,\n\n&gt;Could you test your TSBrowse lib CELLED with a COMBOBOX and let me know if you have no problem ? \n\nI have never used editable cells with TSBrowse so I exepect I won\'t be of much help. And the fixes I made were for scrolling and key functions only.\n\nI do remember some discussions by others of problems with Comboboxes awhile back. Perhaps you can search the messages and/or someone else remembers the problem and solution.\n\nAlso, you didn\'t tell us exactly what problem you are having.\n\nJames','',0,'QA==','2bjy9dac',1,0,'',303,0,0),(34501,7533,1,320,0,'189.146.132.187',1184006506,1,0,1,1,1,0,'','TEMP variable','I have an application that has 3 big modules (3 diferent exes) that share several files on a LAN. It has been running for a couple of years now. I upgraded to FW 7.01 about 6 months ago.  About a month ago we began to get an error when trying to issue rerport previews:\n\nCould not create temporary file C:\\TEMP696322880.wmf\nPlease check your free space.......\nFollowed for: check your enviromental variables.....\n\nDrive C has several gbs free.  SET CLIPPER is set to 90, HandleCount is set to 90 (I just increased them).\nIt began on 1 pc, but now the error is on 3 of them.\nI get no errors on my PC.\n\nDoes anyone know how to solve this problem?\n\nThanks','',0,'QA==','2e53qi78',1,0,'',320,0,0),(34502,7529,6,316,0,'87.218.186.125',1184008210,1,0,0,1,1,0,'','','Hola René,\n\nGracias por la recomendación. El incluir los recursos en el exe no mejora la situación, las coordenadas horizontales siguen deformadas. La dll es un paquete de recursos bastante pesado, ya que incluye bitmaps de fondo de numerosos diálogos que en la dll ya estarían compilados y no tengo que esperar al linker que incluya los recursos en el exe cada vez que recompilo.\nAdemás es decisión ya  adoptada hace bastante en el departamento que los recursos van en dlls, no ha dado mayores problemas y eventualmente tenemos aplicaciónes con sets de gráficas para diferentes resoluciones. Según la resolución el programa selecciona una u otra dll para mejorar la imagen.\n\nUn saludo,\n\nCarlos.','',0,'QA==','1t6gvsyq',1,0,'',316,0,0),(34503,7512,3,53,0,'189.139.98.157',1184008495,1,0,1,1,1,1,'','','James:\n\nOk, no problem !.\n\nThanks','',0,'QA==','3es92bcy',1,0,'',53,0,0),(34504,7534,6,121,0,'189.138.165.146',1184013820,1,0,1,1,1,1,'','EDICION POR COLUMNA','COMO PUEDO SIMULAR EL KEYBOARD DE CLIPPER\nALGO ASI COMO KEYBOARD K_ENTER+KEY \n\nLO QUE NECESITO ES PODER EDITAR UNA COLUMNA DE LISTBOX UTILIZANDO LA FUNCION EDITCOL\nDE TAL FORMA QUE AL ESCRIBIR SOBRE LA COLUMNA EL NUMERO 85\nAPAREZCA DIRECTAMENTE\nSIN TENER QUE DAR \"ENTER\" PRIMERO, DESPUES \"85\" Y \"ENTER\" AL FINAL\n\nALGO ASI\n\noBrw:bkeydown={| nkey |iif(nkey&gt;47 .and. nkey&lt;58,modifica(nkey),nil)}\n\nfunction modifica(nkey)\n xvalor:=cantidad\n if oBrw:editcol(3,@xvalor,\'99,999\',,,,,)\n   cantidad:=valor\n endif\nreturn nil\n\nNo se como hacer para que al escribir 8, aparezca el 8 en la columna y el cursor se quede despues del 8,  y posteriormente solo escriba el 5 y asi quede grabado el 85\n\nSaludos','',0,'QA==','17gzlbpe',1,0,'',121,0,0),(34505,7516,6,774,0,'200.72.190.9',1184015825,1,0,1,1,1,1,'','','..','',0,'QA==','90i3tmdu',1,0,'',774,0,0),(34506,7516,6,774,0,'200.72.190.9',1184015871,1,0,1,1,1,1,'','','.....','',0,'QA==','q6dygvsh',1,0,'',774,0,0),(34507,7463,3,6,0,'87.20.217.1',1184015914,1,0,1,1,1,1,'','Re: Question about minimize and maximize button','[quote=&quot;driessen&quot;:3d3znxti]How can the minimize and maximize be shown ?[/quote:3d3znxti]\n\nYou have to activate System menu and Modal frame too.\n\nEMG','',0,'gA==','3d3znxti',1,0,'',6,0,0),(34508,7415,20,6,0,'87.20.217.1',1184017498,1,0,1,1,1,1,'','','Io non penso che tu la debba registrare se poi la carichi con LoadLibrary(). Comunque, di solito si usa regsvr32.exe.\n\nEMG','',0,'gA==','1pjj8zhd',1,0,'',6,0,0),(34509,7534,6,41,0,'200.87.167.162',1184017601,1,0,1,1,1,0,'','','Hola,\n\naumente\n\nuna data \n\nDATA nkey\n\nluego en el metodo\n \nMETHOD KeyChar( nKey, nFlags ) CLASS TWBrowse\n      \n      :  \n      CASE ::LAutoedit                     \n           ::edit( :::nColAct,, nKey ) \n\n      otherwise\n      :\n\nLuego el metodo  queda asi\n\nMETHOD Edit( nCol, lModal, nkey ) CLASS TWBrowse\n      :\n      ::nKey := nKey\n      :\n\ny por ultimo en el metodo\n\nSTATIC Function __Edit(Self, nCol, lModal )\n      :\n      :\n   despues de la linea\n   oGet:bValid:= {|| ValidlEditCol( Self, oGet, oDlg, bOldValid, bValid, bAction, @lOk ) }\n\n    añadi\n \n   oGet:bGotFocus := {|| IF( ::nKey != NIL .AND. ::nKey != 13, __keyboard(CHR(::nKey)), ) }   \n      \nPor ahora no podria publicar la clase ya que hay algunas cosas mas que la hacen dependiente, espero darme tiempo para poder hacerla\n\nTienes que hacer lo mismo de siempre para asignar los datos a la columna, como lo muestras en tu ejemplo\n\nEspero te sirva\n\nsaludos\n\nMarcelo','',0,'gA==','112hpwaw',1,0,'',41,0,0),(34510,7425,20,6,0,'87.20.217.1',1184017635,1,0,1,1,1,1,'','Re: dialog box con modalità nowait','Tieni presente che una DIALOG non modale non blocca l\'esecuzione la quale continua invece allegramente ad eseguire ciò che si trova appresso all\'ACTIVATE DIALOG senza attendere la chiusura della stessa.\n\nEMG','',0,'gA==','1ex199kq',1,0,'',6,0,0),(34511,7535,3,6,0,'87.20.217.1',1184017904,1,0,1,1,1,1,'','GET SPINNER height','Is it possible to reduce the height of a GET with SPINNER? This is a sample:\n\n[code:j4kgtkx4]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n   LOCAL oDlg\n\n   LOCAL oGet, nVar &#58;= 10\n\n   DEFINE DIALOG oDlg \n\n   @ 1, 1 GET oGet VAR nVar;\n          PICTURE &quot;99&quot;;\n          SPINNER MIN 6 MAX 99;\n          SIZE 100, 10\n\n   @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n          ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg; \n            CENTER\n\n   RETURN NIL[/code:j4kgtkx4]\n\nEMG','',0,'AIA=','j4kgtkx4',1,0,'',6,0,0),(34512,7534,6,36,0,'200.113.56.235',1184018304,1,0,1,1,1,1,'','','[code:237yzy4a]How can mimic CA-Clipper\'s Keyboard command?\n\nUse this function&#58;\n\nFunction fwKeyboard&#40;oWnd,nKey&#41;\n\noWnd&#58;SetFocus&#40;&#41;\noWnd&#58;PostMsg&#40; WM_KEYDOWN, nKey, 0&#41;\n\nReturn NIL\n\n[/code:237yzy4a]\nsacado de los tip de CD-Utilidades','',0,'AIA=','237yzy4a',1,0,'',36,0,0),(34513,7515,3,299,0,'24.233.172.101',1184018611,1,0,1,0,1,0,'','','Thank you very much for all the responses.\n\nI\'m going to try with IrfanView.  It looks like it will do the job.\n\nMy plan is to use source code to extract all the images from the .fpt file creating a single .jpg for each image.  Then use the IrfanView\'s batch convert option to convert each jpg to a lower resolution jpg in one single command.  \n\nIn the meanwhile I changed my scanning routines to make sure scanning happens at a standarized resolution declared on an .ini file to avoid this **unnecesary** huge files from happening in the future.\n\n\n\nReinaldo.','',0,'AIA=','16ynx01m',1,0,'',299,0,0),(34514,7517,6,73,0,'200.23.18.132',1184020098,1,0,1,1,1,0,'','','armando,\nno me habia percatado, lo raro es que si me marco que lo subio los 722kb, pero aparece en cero, intente subrilo otras 3 veces y me lo sube en cero, alguien sabe de algun otro site para subir el archivo?\ngracias\npaco','',0,'AIA=','t2tvfp6c',1,0,'',73,0,0),(34515,7517,6,73,0,'200.23.18.132',1184020698,1,0,1,1,1,0,'','','a ver dejo este link:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.savefile.com/files/875681\">http://www.savefile.com/files/875681</a><!-- m -->\ndisculpas\nsalu2\npaco','',0,'AIA=','3hr94epn',1,0,'',73,0,0),(34516,7536,19,73,0,'200.23.18.132',1184020813,1,0,1,1,1,0,'','link para subir archivos','despues de batallar aqui dejo algunos\n\n<!-- m --><a class=\"postlink\" href=\"http://www.zshare.net/\">http://www.zshare.net/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.speedyshare.com/\">http://www.speedyshare.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://d.turboupload.com/d/\">http://d.turboupload.com/d/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.savefile.com/\">http://www.savefile.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.4shared.com/\">http://www.4shared.com/</a><!-- m --> \n<!-- m --><a class=\"postlink\" href=\"http://www.filelodge.com/\">http://www.filelodge.com/</a><!-- m --> \n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/\">http://hyperupload.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.mooload.com/\">http://www.mooload.com/</a><!-- m -->\n\n 70MB      -      300MB\n<!-- m --><a class=\"postlink\" href=\"http://www.mooload.com/\">http://www.mooload.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.uploading.com/\">http://www.uploading.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://storeandserve.com/\">http://storeandserve.com/</a><!-- m --> \n\nsalu2\npaco','',0,'AIA=','2dho0yii',1,0,'',73,0,0),(34517,7525,3,86,0,'81.83.185.118',1184021560,1,0,1,1,1,1,'','','Sorry, but indeed. In Brazil, they speak Portuguese.\n\nBut the problem is still the same since I don\'t speak that language.\n\nThanks.','',0,'AIA=','16j5194v',1,0,'',86,0,0),(34518,7536,19,2,0,'87.218.146.27',1184022671,1,0,1,1,1,1,'','','Paco,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.mediafire.com\">www.mediafire.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.megaupload.com\">www.megaupload.com</a><!-- w -->','',0,'AIA=','lt1d5pu7',1,0,'',2,0,0),(34519,7534,6,121,0,'189.138.165.146',1184028600,1,0,1,1,1,1,'','','gracias\n\nla funcion __keyboard fue la solucion','',0,'AIA=','hf5c11eg',1,0,'',121,0,0),(34520,7537,3,239,0,'202.104.50.82',1184036465,1,0,1,1,1,0,'','drawtext() can do with 2 bytes word,memoline() can\'t','Hi, \n Fivewin function drawtext() can do with 2 bytes word, but memoline() will split a 2 byte word ,like Chinese word.\n What function could split a cstring as  drawtext() do ?\nThanks !\nShuming Wang','',0,'AIA=','1tizzvb6',1,0,'',239,0,0),(34521,7538,3,239,0,'202.104.50.82',1184036976,1,0,1,1,1,0,'','txbrowse/twbrowse support 2 bytes language word /char ?','Hi,\n  How could xbrowse/twbrowse suport 2 bytes language word as 1 char ?\n  I know lfastedit:=.t., method keychar() can  transmit a 1 byte char as 0-9,a-Z into tget . How could transmit 2 bytes word input into tget?\n\nThanks !\nShuming Wang','',0,'AIA=','3ej88pun',1,0,'',239,0,0),(34522,7539,3,281,0,'203.226.204.127',1184038708,1,0,1,1,1,1,'','How about that, IP -&gt; Mac Address','Hi all.\n\nWhen i know the other person\'s IP,\nWhat method how do i know the other person\'s Mac address.','',0,'AIA=','1bwmdnh3',1,0,'',281,0,0),(34523,7534,6,73,0,'189.157.186.69',1184043157,1,0,1,1,1,0,'','','Marco,\nme pudieras poner un ejemplo de como usas la funcion _keyboard, ya que me gustaria implementarlo en mi edicion con wbrowse.\ngracias\nsalu2\npaco','',0,'AIA=','2hvgop49',1,0,'',73,0,0),(34524,7539,3,2,0,'87.218.146.27',1184046276,1,0,1,1,1,1,'','','afaik, you can\'t','',0,'AIA=','1yidwsyt',1,0,'',2,0,0),(34525,7540,3,27,0,'62.174.195.220',1184051772,1,0,1,1,1,1,'','Missing Seperator lines Listbox and report','After upgrading to xHarbour from Fivewin 16 bits I\'ve lost the horizontal separator lines in Listboxes and reports with oReport:CellView().\n\nIf I compile the samples no problem. Any ideas?','',0,'AIA=','2lxz8eft',1,0,'',27,0,0),(34526,7540,3,27,0,'62.174.195.220',1184055456,1,0,1,1,1,1,'','Missing seperators Listbox solved','I was linking unnecesarally TWBRW32X.LIB this caused the missing horizontal lines in the listboxes. \n\nStill strugling with missing horizontal lines in reports.','',0,'AIA=','1xap719a',1,0,'',27,0,0),(34527,7540,3,27,0,'62.174.195.220',1184058361,1,0,1,1,1,1,'','Solved missing grid reports','the problem was the REPEXCEL.LIB I\'ve found your work around\n\noReport:CellView() \noReport:lSeparator := .T. \n\nACTIVATE REPORT oReport ; \nON CHANGE oReport:Separator() \n\nThanks','',0,'AIA=','3lh1gwjp',1,0,'',27,0,0),(34528,7541,6,316,0,'213.97.245.163',1184060589,1,0,1,1,1,0,'','Problemas con el xHarbour que se baja con la versión 7.05','Antonio,\n\nestoy trabajando en el programa de transformación de los recursos de 16 a 32 bits, y me he encontrado con un error que evidencia un bug en el xHarbour que está disponible en la página de FiveTech.\nEl error es absolutamente incoherente.\n\nSi recompilo el programa con xHarbour de la versión de FW 7.04 funciona perfectamente, por lo que deduzco que el bug es probablemente de xHarbour.\n\nTe adjunto el prg a ver si el fallo es algo que no me doy cuenta o qué, de paso seguro les servirá a todos para el tema de la transformación de 16 a 32 bits.\n\n[code:o7q2vv8p]\n/*********************************************\nConversión de recursos de 16 a 32 bits\n&#40;c&#41; Carlos Mora\n**********************************************/\n\n\n#define CRLF Chr&#40;13&#41;+Chr&#40;10&#41;\n\nFunction Main&#40; cFichero &#41;\n   Local i, j, cText, cOut, cNew, nAt, cLine, aTokens\n\n   If !File&#40; cFichero &#41;\n      If !Empty&#40; cFichero &#41;\n         cFichero+=\'&#46;rc\'\n      EndIf\n   EndIf\n   If !File&#40; cFichero &#41;\n      ? \'Usage&#58;\'\n      ? \'rc16to32 &lt;rc2export&gt;\'\n   Else\n      cText&#58;= MemoRead&#40; cFichero &#41;\n      nAt&#58;= At&#40; \' DIALOG\', cText &#41; - 1\n      While nAt &gt; 0\n         nAsc&#58;= Asc&#40; SubStr&#40; cText, nAt, 1 &#41; &#41;\n         If nAsc == 13 &#46;Or&#46; nAsc == 10\n            Exit\n         EndIf\n         nAt--\n      EndDo\n      If nAsc &gt; 0\n         cOut&#58;= Left&#40; cText, nAt &#41;\n         cText&#58;= SubStr&#40; cText, nAt + 1 &#41;\n      Else\n         cOut&#58;= \'\'\n      EndIF\n\n      nLines&#58;= MLCount&#40; cText, 200 &#41;\n\n      ? nLines\n\n      i&#58;= 1\n      While i &lt;= nLines\n         ? i\n         cLine&#58;= MemoLine&#40; cText, 200, i &#41;\n         If Left&#40; cLine, 2 &#41; == \'/*\' // Comienza un comentario\n            While i &lt;= nLines\n               cOut+= cLine + CRLF\n               ? cLine\n               If \'*/\' $ cLine  // Termina el comentario\n                  Exit\n               EndIf\n               i++\n               cLine&#58;= MemoLine&#40; cText, 200, i &#41;\n            EndDo\n\n         ElseIf Empty&#40; cLine &#41;\n            cOut+= cLine + CRLF\n            ? cLine\n            i++\n         Else\n            If Len&#40; aTokens&#58;= ListAsArray&#40; AllTrim&#40;cLine&#41;, &quot; &quot; &#41; &#41; &gt; 1 // Lista de palabras\n\n               If aTokens&#91;2&#93; == \'DIALOG\'\n                  cNew&#58;= \'\'\n                  For j&#58;= 1 To Len&#40; aTokens &#41;\n                     If j == Len&#40; aTokens &#41; - 3 &#46;Or&#46; j == Len&#40; aTokens &#41; - 1\n                        cNew+= Str&#40; Val&#40; aTokens&#91;j&#93; &#41; * 7 / 6, 4 &#41;+ \', \'\n                     Else\n                        cNew+= aTokens&#91;j&#93;+\' \'\n                     EndIf\n                  EndFor\n                  cOut+= cNew + CRLF\n                  ? cNew\n                  i++\n                  // Avanzar hasta la apertura de la llave\n                  While i &lt;= nLines\n                     cLine&#58;= MemoLine&#40; cText, 200, i &#41;\n                     i++\n                     cOut+= cLine + CRLF\n                     ? cLine\n                     If \'&#123;\' $ cLine\n                     // If At&#40; Chr&#40;123&#41;, cLine &#41; &gt; 0\n                     // If Left&#40; cLine, 1 &#41; ==  // \'&#123;\'\n                        Exit\n                     EndIf\n                  EndDo\n\n                  // Procesar el formulario\n                  While i &lt;= nLines\n                     cLine&#58;= MemoLine&#40; cText, 200, i &#41;\n                     ? cLine\n                     i++\n                     If \'&#125;\' $ cLine\n                        cOut+= cLine + CRLF\n                        Exit\n                     EndIf\n\n                     // Ver que control es y como se traduce\n                     If Len&#40; aTokens&#58;= ListAsArray&#40; cLine, &quot;,&quot; &#41; &#41; &lt; 5 // Lista de palabras\n                        cOut+= cLine + CRLF\n                     Else // Las ultimas 4 son las coordenadas\n                        cNew&#58;= \'\'\n                        cType&#58;= AllTrim&#40; aTokens&#91;1&#93; &#41;\n                        cType&#58;= Left&#40; cType, At&#40; \' \', cType &#41; - 1 &#41;\n\n                        If cType == \'CONTROL\'\n                           // Ajustar tokens\n                           aTokens&#91;5&#93;&#58;= Str&#40; Val&#40; aTokens&#91;5&#93; &#41; * 7 / 6, 4 &#41;\n                           aTokens&#91;7&#93;&#58;= Str&#40; Val&#40; aTokens&#91;7&#93; &#41; * 7 / 6, 4 &#41;\n                        Else //\n                           aTokens&#91;2&#93;&#58;= Str&#40; Val&#40; aTokens&#91;2&#93; &#41; * 7 / 6, 4 &#41;\n                           aTokens&#91;4&#93;&#58;= Str&#40; Val&#40; aTokens&#91;4&#93; &#41; * 7 / 6, 4 &#41;\n                        EndIF\n\n                        For j&#58;= 1 To Len&#40; aTokens &#41;\n                           cNew+= aTokens&#91;j&#93;\n                           If j != Len&#40; aTokens &#41;\n                              cNew+= \',\'\n                           EndIf\n                        EndFor\n                        cOut+= cNew + CRLF\n                     EndIf\n                  EndDo\n\n               Else\n                  cOut+= cLine + CRLF\n                  i++\n               EndIf\n            EndIf\n         EndIf\n      EndDo\n      ?\n      ? \'test1&#46;rc\', Len&#40;cOut&#41;\n      MemoWrit&#40; \'test1&#46;rc\' , cOut &#41;\n   EndIf\n\nReturn NIL\n\nFUNCTION ListAsArray&#40; cList, cDelimiter &#41;\n\n   LOCAL nPos              // Position of cDelimiter in cList\n   LOCAL aList &#58;= &#123;&#125;       // Define an empty array\n\n   If cDelimiter == NIL\n      cDelimiter &#58;= &quot;,&quot;\n   EndIf\n\n   // Loop while there are more items to extract\n   DO WHILE &#40; nPos &#58;= AT&#40; cDelimiter, cList &#41;&#41; != 0\n\n      // Add the item to aList and remove it from cList\n      AADD&#40; aList, SUBSTR&#40; cList, 1, nPos - 1 &#41;&#41;\n      cList &#58;= SUBSTR&#40; cList, nPos + 1 &#41;\n\n   ENDDO\n   AADD&#40; aList, cList &#41;                         // Add final element\n\n   RETURN &#40; aList &#41;                             // Return the array\n[/code:o7q2vv8p]\n\nMakefile:\n\n[code:o7q2vv8p]\n\n# Make directives ############################################################\n\n&#46;autodepend\n&#46;swap\n&#46;suffixes&#58; &#46;prg &#46;hrb\n\n# Flags for modules to include&#58; YES | NO &#40;must be UPPERCASE&#41;##################\n\nRES_FILE      = NO\nLNK_DBFNTX    = YES\nLNK_DBFCDX    = YES\nLNK_FIVEWIN   = NO\nLNK_DEBUG     = NO\nLNK_ADVANTAGE = NO\nLNK_ODBC      = NO\nLNK_XLS       = NO\nMAP_FILE      = NO\nUSE_XHARBOUR  = YES\n\n# Application directories &amp; filenames ########################################\n\nAPP_NAME         = rc16to32 # &#40;Your EXE name without extension&#41;\nAPP_PRG_DIR      = &#46;\nAPP_OBJ_DIR      = obj  # &#40;create the app\\obj directory first&#41;\nAPP_INCLUDE_DIR  = &#46;\nAPP_EXE_DIR      = $&#40;APP_PRG_DIR&#41;\nAPP_RES_DIR      = $&#40;APP_PRG_DIR&#41;\n\nAPP_EXE  = $&#40;APP_EXE_DIR&#41;\\$&#40;APP_NAME&#41;&#46;exe\nAPP_RC   = $&#40;APP_RES_DIR&#41;\\$&#40;APP_NAME&#41;&#46;rc\nAPP_RES  = $&#40;APP_RES_DIR&#41;\\$&#40;APP_NAME&#41;&#46;res\nAPP_MAP  = $&#40;APP_RES_DIR&#41;\\$&#40;APP_NAME&#41;&#46;map\n\n# Paths for dependent files ##################################################\n\n&#46;path&#46;prg = $&#40;APP_PRG_DIR&#41;\n&#46;path&#46;hrb = $&#40;APP_OBJ_DIR&#41;\n&#46;path&#46;obj = $&#40;APP_OBJ_DIR&#41;\n\n# Application PRG files &#40;your PRG files go here&#41; #############################\n\nAPP_PRG_LIST = rc16to32&#46;prg\n\n# Contruction of the rest dependency lists ###################################\n\nAPP_PRGS = $&#40;APP_PRG_LIST&#41;\nAPP_HRBS = $&#40;APP_PRG_LIST&#58;&#46;prg=&#46;hrb&#41;\nAPP_OBJS = $&#40;APP_PRG_LIST&#58;&#46;prg=&#46;obj&#41;\n\n# Fivewin directories ########################################################\n\nFIVEWIN_DIR         = c&#58;\\fwh704\nFIVEWIN_INCLUDE_DIR = $&#40;FIVEWIN_DIR&#41;\\include\nFIVEWIN_LIB_DIR     = $&#40;FIVEWIN_DIR&#41;\\lib\n\n# Fivewin libraries ##########################################################\n\n!if $&#40;USE_XHARBOUR&#41; == YES\nFIVE_LIB  = $&#40;FIVEWIN_LIB_DIR&#41;\\fiveHx&#46;lib\n!else\nFIVE_LIB  = $&#40;FIVEWIN_LIB_DIR&#41;\\fiveH&#46;lib\n!endif\n\nFIVEC_LIB = $&#40;FIVEWIN_LIB_DIR&#41;\\fiveHC&#46;lib\n\n# Harbour directories &amp; flags ################################################\n\n!if $&#40;USE_XHARBOUR&#41; == YES\nHARBOUR_DIR         = c&#58;\\xharbour705\n!else\nHARBOUR_DIR         = c&#58;\\harbour\n!endif\nHARBOUR_INCLUDE_DIR = $&#40;HARBOUR_DIR&#41;\\include\nHARBOUR_EXE_DIR     = $&#40;HARBOUR_DIR&#41;\\bin\nHARBOUR_LIB_DIR     = $&#40;HARBOUR_DIR&#41;\\lib\nHARBOUR_FLAGS       = -i$&#40;APP_INCLUDE_DIR&#41;;$&#40;FIVEWIN_INCLUDE_DIR&#41;;$&#40;HARBOUR_INCLUDE_DIR&#41; -p -n -m -q -es2 -gc0\n#HARBOUR_FLAGS      = -i$&#40;APP_INCLUDE_DIR&#41;;$&#40;HARBOUR_INCLUDE_DIR&#41; -n\nHARBOUR_EXE         = $&#40;HARBOUR_EXE_DIR&#41;\\harbour&#46;exe\n\n# Harbour libraries ##########################################################\n\nRTL_LIB    = $&#40;HARBOUR_LIB_DIR&#41;\\rtl&#46;lib\nVM_LIB     = $&#40;HARBOUR_LIB_DIR&#41;\\vm&#46;lib\n!if $&#40;LNK_FIVEWIN&#41; == YES\nGT_LIB     = $&#40;HARBOUR_LIB_DIR&#41;\\gtgui&#46;lib\n!else\nGT_LIB     = $&#40;HARBOUR_LIB_DIR&#41;\\gtwin&#46;lib\n!endif\nLANG_LIB   = $&#40;HARBOUR_LIB_DIR&#41;\\lang&#46;lib\nMACRO_LIB  = $&#40;HARBOUR_LIB_DIR&#41;\\macro&#46;lib\nRDD_LIB    = $&#40;HARBOUR_LIB_DIR&#41;\\rdd&#46;lib\nDBFNTX_LIB = $&#40;HARBOUR_LIB_DIR&#41;\\dbfntx&#46;lib\nDBFDBT_LIB = $&#40;HARBOUR_LIB_DIR&#41;\\dbfdbt&#46;lib\nDBFCDX_LIB = $&#40;HARBOUR_LIB_DIR&#41;\\dbfcdx&#46;lib\nDEBUG_LIB  = $&#40;HARBOUR_LIB_DIR&#41;\\debug&#46;lib\nCOMMON_LIB = $&#40;HARBOUR_LIB_DIR&#41;\\common&#46;lib\nPP_LIB     = $&#40;HARBOUR_LIB_DIR&#41;\\pp&#46;lib\nHBSIX_LIB  = $&#40;HARBOUR_LIB_DIR&#41;\\hbsix&#46;lib\nDBFFPT_LIB = $&#40;HARBOUR_LIB_DIR&#41;\\dbffpt&#46;lib\n\n# Advantage libraries ########################################################\n\nRDDADS_LIB = $&#40;HARBOUR_LIB_DIR&#41;\\rddads&#46;lib\nACE32_LIB  = $&#40;HARBOUR_LIB_DIR&#41;\\ace32&#46;lib\n\n# Borlanc directories &amp; flags ################################################\n\nBORLANDC_DIR         = c&#58;\\bcc55\nBORLANDC_INCLUDE_DIR = $&#40;BORLANDC_DIR&#41;\\include\nBORLANDC_EXE_DIR     = $&#40;BORLANDC_DIR&#41;\\bin\nBORLANDC_LIB_DIR     = $&#40;BORLANDC_DIR&#41;\\lib\nBORLANDC_COMP_FLAGS  = -c -O2 -I$&#40;HARBOUR_INCLUDE_DIR&#41;;$&#40;BORLANDC_INCLUDE_DIR&#41;\nBORLANDC_COMP_EXE    = $&#40;BORLANDC_EXE_DIR&#41;\\bcc32&#46;exe\n!if $&#40;LNK_FIVEWIN&#41; == YES\nBORLANDC_LINK_FLAGS  = -Gn -aa -Tpe -s -I$&#40;APP_OBJ_DIR&#41;\n!else\n//BORLANDC_LINK_FLAGS  = -Gn -ap -Tpe -s -I$&#40;APP_OBJ_DIR&#41;\nBORLANDC_LINK_FLAGS  = -Gn -ap -Tpe -s -I$&#40;APP_OBJ_DIR&#41;\n!endif\nBORLANDC_LINK_EXE    = $&#40;BORLANDC_EXE_DIR&#41;\\ilink32&#46;exe\nBORLANDC_RES_EXE     = $&#40;BORLANDC_EXE_DIR&#41;\\brc32&#46;exe\n\n!if $&#40;MAP_FILE&#41; != YES\n   BORLANDC_LINK_FLAGS = $&#40;BORLANDC_LINK_FLAGS&#41; -x\n!endif\n\n# Borland libraries &amp; files ##################################################\n\n!if $&#40;LNK_FIVEWIN&#41; == YES\n   STARTUP_OBJ  = $&#40;BORLANDC_LIB_DIR&#41;\\c0w32&#46;obj\n!else\n   STARTUP_OBJ  = $&#40;BORLANDC_LIB_DIR&#41;\\c0w32&#46;obj\n!endif\nCW32_LIB     = $&#40;BORLANDC_LIB_DIR&#41;\\cw32&#46;lib\nIMPORT32_LIB = $&#40;BORLANDC_LIB_DIR&#41;\\import32&#46;lib\nODBC32_LIB   = $&#40;BORLANDC_LIB_DIR&#41;\\psdk\\odbc32&#46;lib\n\n# Dependencies ###############################################################\n\nall&#58; $&#40;APP_OBJS&#41; $&#40;APP_HRBS&#41; $&#40;APP_EXE&#41;\n\n!if $&#40;RES_FILE&#41; == YES\nall&#58; $&#40;APP_RES&#41;\n!endif\n\n# Implicit Rules #############################################################\n\n&#46;prg&#46;hrb&#58;\n   $&#40;HARBOUR_EXE&#41; $&#40;HARBOUR_FLAGS&#41; $** -o$@\n\n&#46;hrb&#46;obj&#58;\n   $&#40;BORLANDC_COMP_EXE&#41; $&#40;BORLANDC_COMP_FLAGS&#41; -o$@ $**\n\n# Explicit Rules #############################################################\n\n!if $&#40;RES_FILE&#41; == YES\n$&#40;APP_RES&#41; &#58; $&#40;APP_RC&#41;\n   $&#40;BORLANDC_RES_EXE&#41; -r $**\n\n$&#40;APP_EXE&#41; &#58;&#58; $&#40;APP_RES&#41;\n   @if exist $&#40;APP_EXE&#41; del $&#40;APP_EXE&#41; &gt; nul\n!endif\n\n$&#40;APP_EXE&#41; &#58;&#58; $&#40;APP_OBJS&#41;\n   @echo $&#40;STARTUP_OBJ&#41; + &gt; make&#46;tmp\n   @echo $&#40;**&#41;, + &gt;&gt; make&#46;tmp\n   @echo $&#40;APP_EXE&#41;, + &gt;&gt; make&#46;tmp\n   @echo $&#40;APP_MAP&#41;, + &gt;&gt; make&#46;tmp\n!if $&#40;LNK_FIVEWIN&#41; == YES\n   @echo $&#40;FIVE_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;FIVEC_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;FIVEWIN_LIB_DIR&#41;\\SBROWSEH&#46;lib + &gt;&gt; make&#46;tmp\n   @echo $&#40;FIVEWIN_LIB_DIR&#41;\\BTNGET&#46;lib + &gt;&gt; make&#46;tmp\n#   @echo HBOLE&#46;lib + &gt;&gt; make&#46;tmp\n!endif\n   @echo $&#40;RTL_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;VM_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;GT_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;LANG_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;MACRO_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;RDD_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo zlib1&#46;lib ziparchive&#46;lib + &gt;&gt; make&#46;tmp\n!if $&#40;LNK_XLS&#41; == YES\n   @echo FileXLS&#46;lib + &gt;&gt; make&#46;tmp\n!endif\n!if $&#40;LNK_DBFNTX&#41; == YES\n   @echo $&#40;DBFNTX_LIB&#41; + &gt;&gt; make&#46;tmp\n#   @echo $&#40;DBFDBT_LIB&#41; + &gt;&gt; make&#46;tmp\n!endif\n!if $&#40;LNK_DBFCDX&#41; == YES\n   @echo $&#40;DBFCDX_LIB&#41; + &gt;&gt; make&#46;tmp\n!endif\n!if $&#40;LNK_DEBUG&#41; == YES\n   @echo $&#40;DEBUG_LIB&#41; + &gt;&gt; make&#46;tmp\n!endif\n   @echo $&#40;COMMON_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;PP_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;HBSIX_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;DBFFPT_LIB&#41; + &gt;&gt; make&#46;tmp\n!if $&#40;LNK_ADVANTAGE&#41; == YES\n   @echo $&#40;RDDADS_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;ACE32_LIB&#41; + &gt;&gt; make&#46;tmp\n!endif\n!if $&#40;LNK_ODBC&#41; == YES\n   @echo $&#40;ODBC32_LIB&#41; + &gt;&gt; make&#46;tmp\n!endif\n   @echo $&#40;CW32_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;IMPORT32_LIB&#41; + &gt;&gt; make&#46;tmp\n   @echo $&#40;BORLANDC_LIB_DIR&#41;\\ole2w32&#46;lib, + &gt;&gt; make&#46;tmp\n!if $&#40;RES_FILE&#41; == YES\n   @echo ,$&#40;APP_RES&#41; &gt;&gt; make&#46;tmp\n!endif\n   $&#40;BORLANDC_LINK_EXE&#41; $&#40;BORLANDC_LINK_FLAGS&#41; @make&#46;tmp\n   @del $&#40;APP_EXE_DIR&#41;\\$&#40;APP_NAME&#41;&#46;tds\n   @rem del make&#46;tmp\n[/code:o7q2vv8p]','',0,'AIA=','o7q2vv8p',1,0,'',316,0,0),(34529,7499,3,904,0,'198.54.202.234',1184066183,1,0,1,1,1,1,'','','TWORD class?  Where can I find out more about it?','',0,'AIA=','2jg8p9dp',1,0,'',904,0,0),(34530,6899,3,904,0,'196.25.255.214',1184067011,1,0,1,1,1,1,'','','Vikthor,\n\nCould you send to me too please. (do you have any documentation or samples)\n\n<!-- e --><a href=\"mailto:ollie1@theoasis.co.za\">ollie1@theoasis.co.za</a><!-- e -->\n\nThanks in advance.','',0,'AIA=','3euyiebo',1,0,'',904,0,0),(34531,7516,6,774,0,'200.72.190.9',1184070502,1,0,1,1,1,1,'','','.. AUN NADA,,, YA ME HE DADO VUELTAS DE CARNERO CON ESTE TEMITA AMIGOS','',0,'AIA=','24eh3950',1,0,'',774,0,0),(34532,7499,3,367,0,'201.67.14.112',1184072383,1,0,1,1,1,1,'','','The class TWORD is to do integration with WORD , in other words , doing suitcase direta. link: <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp\">http://www.fivewin.com.br/exibedicas.asp</a><!-- m -->? id=717','',0,'AIA=','2guvw9uw',1,0,'',367,0,0),(34533,7499,3,904,0,'196.25.255.250',1184073500,1,0,1,1,1,1,'','','Thanks. It looks promising? How is it different from \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2503&amp;highlight=tword\">http://fivetechsoft.com/forums/viewtopi ... ight=tword</a><!-- m -->\n\nI see on this forum people mention using OLE?  \n\nI want to create a Word doc from my app, insert a table, text and pics.\n\nPlease give me advice where to go.','',0,'AIA=','xsnet0oo',1,0,'',904,0,0),(34534,7499,3,904,0,'196.25.255.250',1184073553,1,0,1,1,1,1,'','','(Something with Docs in English would be preferable.)','',0,'AIA=','2drh2rcc',1,0,'',904,0,0),(34535,6008,3,904,0,'198.54.202.250',1184073663,1,0,1,1,1,1,'','','Is this better than using TWORD?\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2503&amp;highlight=tword\">http://fivetechsoft.com/forums/viewtopi ... ight=tword</a><!-- m -->\n\nWhat do I need to INCLUDE to try the code you have included here?','',0,'AIA=','25yuk3hp',1,0,'',904,0,0),(34536,7519,6,435,0,'200.155.195.49',1184077288,1,0,1,1,1,0,'','','Não funciona, o \"prompt\" não fica sublinhado \"&amp;\"\n\npreciso colocar HOTKEY nos botões da barra, tem cliente muito antigo que tá viciado nos ALT-B..etc.\n\nAri','',0,'AIA=','3c82fhv0',1,0,'',435,0,0),(34537,7525,3,217,0,'200.159.120.34',1184077707,1,0,1,1,1,0,'','','Friends,\n\nI\'m brazilian and I can explain some points...\n\nIn Brazil our language is Portuguese (or \"Brazilian Portuguese\") a variant of Portuguese from Portugal.\nI think Portuguese is a complicated language. Any persons says that it is a \"secret code\" and I agree <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nThis \"language frontier\" is a great problem. My English/Spanish language is bad, but I ever try to answer question posted in English in English, and posted in Spanish in Spanish.\n\nMany times I saw Antonio trying to understand us brazilians and I think he is a hero for it.\nAnd many times I said to brazilian friends that the chances to have a question answered if he put a message in Portuguese in an English forum is very low...\n\nI\'m speaking about brazilians difficulties because I feel free to say about us, but we have the same problem with Spanish/Italian/Chinese etc speakers.\n\nI think each one of us (brazilian or not) must try post in English and try to make us be understood. I think this is the only way to enlarge our knowledgement.\n\nBut each one think in different ways and have his own language difficulties. Unfortunatelly.\n\nLike I said, my English is bad then I hope you all understand me.\n\nBest regards,\nMaurilio','',0,'AIA=','3i9z48rc',1,1184089714,'',217,1,0),(34538,7542,6,1105,0,'87.223.170.113',1184078789,1,0,1,1,1,0,'','¿alguna mochila que funcione bajo Harbour?','Hola a todos:\n\nBusco una mochila que funcione bajo Harbour. He visto que Sentinel tiene soporte, pero sus mochilas son demasiado caras. ¿Alguna ayuda?.\n\nMil gracias. Salu2,\n\nEduardo Parada','',0,'AIA=','zypwsi0g',1,0,'',1105,0,0),(34539,7543,20,154,0,'151.21.77.10',1184078980,1,0,1,1,1,1,'','Controllo pulsante (non so il nome!)   :-(','Ciao a tutti,\n\nscrivo per chiederVi se esiste un controllo tipo btnbmp ma che rimane schiacciato.\n\nMi spiego meglio, in pratica tipo il pulsante qui sotto:\n\n[url=http&#58;//img444&#46;imageshack&#46;us/my&#46;php?image=immagineff9&#46;jpg:157x9vmy][img:157x9vmy]http&#58;//img444&#46;imageshack&#46;us/img444/7636/immagineff9&#46;th&#46;jpg[/img:157x9vmy][/url:157x9vmy]\n\n[url=http&#58;//img444&#46;imageshack&#46;us/my&#46;php?image=immagineff9&#46;jpg:157x9vmy][img=http://img444.imageshack.us/img444/7636/immagineff9.th.jpg][/url:157x9vmy]\n\ndovrei fare questo lavoro:\ndalla posizione 1 se lo premo, in posizione 2 apre una dialog, se lo ripremo ritorna alla posizione 1 e chiude la dialog!\n\nMagari c\'è un altro controllo ma non saprei, avete un suggerimento?\n\nGrazie.','',0,'GA==','157x9vmy',1,0,'',154,0,0),(34540,7099,3,904,0,'196.25.255.250',1184079532,1,0,1,1,1,1,'','','Hi Rimantas\n\nI see you got no reponse?  Any luck with getting samples of using TABLES with TWORD class?','',0,'GA==','fof5vozn',1,0,'',904,0,0),(34541,5582,3,904,0,'198.54.202.234',1184079730,1,0,1,1,1,1,'','','Hi Silvio\n\nHave you got samples for including TABLES and IMAGES in OLE?\n\nThanks in advance','',0,'GA==','2ffztcpi',1,0,'',904,0,0),(34542,7525,3,86,0,'81.83.185.118',1184082804,1,0,1,1,1,1,'','','Maurilio,\n\nAs far as I can say, your English is very good and surely very understandable.','',0,'GA==','18syeb6b',1,0,'',86,0,0),(34543,7516,6,2,0,'87.218.146.252',1184083738,1,0,1,1,1,1,'','','Tenemos que hacer pruebas','',0,'GA==','3bnef82k',1,0,'',2,0,0),(34544,7516,6,774,0,'200.72.65.87',1184084655,1,0,1,1,1,1,'','','Ok Antonio..\n\nEso quiere decir que no esta soportado para MDICHILD y dialog inscruptados de la forma que lo manejo...\n\ny esas pruebas cuento tiempo tomaran amigo...\n\nGRACIAS','',0,'GA==','3fvqgk9r',1,0,'',774,0,0),(34545,7543,20,6,0,'87.1.225.219',1184085226,1,0,1,1,1,1,'','Re: Controllo pulsante (non so il nome!)   :-(','TBtnBmp metodi GoUp() e GoDown()\n\nEMG','',0,'GA==','3iwzyola',1,0,'',6,0,0),(34546,7544,6,519,0,'88.6.99.81',1184085541,1,0,1,1,1,0,'','Campo memo','Hola amigos\n\n    Existe alguna forma de limitar el número de  caracteres en un Get en un campo del tipo  memo   ?\n\n\n  El get esta creado como Memo , no le puedo poner un picture.\n\n\n   un saludo','',0,'GA==','3hs6oq03',1,0,'',519,0,0),(34547,7543,20,154,0,'151.21.77.10',1184085592,1,0,1,1,1,1,'','Re: Controllo pulsante (non so il nome!)   :-(','[quote=&quot;EnricoMaria&quot;:3re6nx81]TBtnBmp metodi GoUp() e GoDown()[/quote:3re6nx81]\n\nCiao Enrico,\nmai usati  <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nho provato a guardare tra i samples senza trovare nulla...\nhai un esempio da inviarmi?\n\nGrazie.','',0,'gA==','3re6nx81',1,0,'',154,0,0),(34548,7511,6,24,0,'80.24.12.168',1184086442,1,0,1,1,1,1,'','Re: Consultas remotas por internet ??  es posible o no ??','[quote=&quot;lubin&quot;:3b3iwrkx]Buenos dias\n\nMe podrian ayudar con esta consulta??\nQue se requiere para que un cliente de una Fabrica pueda visualizar el estado de un pedido la cual se encuentra en una Tabla (base de datos) que pudede ser MySql por ejemplo ... en forma remota Via Internet:\n\n\nImaginando, pensando quiza en algunas opciones: \n1 Opcion . Colgar en un Hosting de Pag. Web una base de datos,  que eccedan por ahi,   y  desde la fabrica actualizamos ese Hosting cada vez que sea necesario?? \n\n2.Opcion : tener en Fabrica una Maquina Servidora para que tengan acceso remoto los Clientes con una Clave, a su informaciin??\n\n\nLa pregunta es que necesitaria y como hacerlo ,  que es mas SBS  (Seguro,Barato,Sencillo) ???\nSe podria usar la nueva Clase ADORDD para esta aplicacion ??\n\n\nGracias por sus futuros comentarios.\nLubin[/quote:3b3iwrkx]\n\nLa implementación de lo que quieres hacer, depende en gran medida de como lo quieras hacer.\n\nMe explico, si usas un RDD como ADORDD o demas para un sistema de motores de SQL, puede ser lo optimo si lo que deseas hacer consultas, desplazarte, etcc... vamos igual a las funciones tipicas de los RDD.\nSi el codigo fuente ya lo tienes , quizas para no complicarte, te sería mas facil.\nOtra, es usar clases como la Eagle1, o similar, que estas tienes un poco más el control de lo que quieres hacer, me explico, aqui tienes que saber realmente como funciona el motor de Sql, es decir, para que lo entiendas;\n\n1. Modo RDD\n    // Conectar primero al servidor; Supongo que a traves de una cadena \n    // de conexion.\n    USE \"CLIENTES\" DATABASE \"TEST\" FROM \"MySQL\" CONEXION \"....\"\n    Do While !Eof()\n    end While\n\n2.- Modo Eagle1 o similar\n     1.- Estableces conexion , oConnect:New( host, user, pass )\n     2.- Realizas consulta, oQuery:New( \"Select * from clientes\", oConnect)\n     Do while oQuery:Eof()\n     end While\n\nEl metodo uno es más sencillo si no tiene conocimientos de SQL, el 2 es mucho más potente y versatil, bajo mi punto de vista.\n\nCon respecto al servidor, depende mucho de que necesitas.\nPara hacer pruebas, puedes montarte tu propio servidor, y despues, mirar el hosting, al menos, las pruebas no te costarán dinero <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nEspero haberlo explicado \'facil\'','',0,'gA==','3b3iwrkx',1,0,'',24,0,0),(34549,7545,2,518,0,'189.170.61.192',1184087124,1,0,1,1,1,0,'','Cambiar titulo de ventana principal','Hola,\n\nComo puedo cambiar el titulo de al ventana proncipal en tiempo de ejecucion ?\n\nGracias','',0,'gA==','hozwptxa',1,0,'',518,0,0),(34550,7544,6,1055,0,'84.125.133.194',1184087260,1,0,1,1,1,0,'','','Tengo hecho lo siguiente y no me va mal, aunque tiene sus limitaciones. He modificado la clase [b:2wvo1ei9]TMultiGet[/b:2wvo1ei9] de la siguiente forma:\n\n[u:2wvo1ei9]1º He añadidio tres datas:[/u:2wvo1ei9]\n   DATA MaxLong 		AS NUMERIC INIT 0\n   DATA nChars  		AS NUMERIC INIT 0\n   DATA bPassMax\n\n[u:2wvo1ei9]2º He modificado el METHOD KeyChar:[/u:2wvo1ei9]\nAñadiendo, despues de las líneas:  if nKey == VK_TAB ... endif, lo siguiente:\n\n   IF ::MaxLong &gt; 0 .AND. nKey &gt; 31 .AND. LEN( ::cText ) &gt;= ::MaxLong \n      ++::nChars\n      MsgBeep()\n      IF ::nChars = 4\n	 IF ::bPassMax # NIL\n	    EVAL(::bPassMax,::MaxLong)\n	 ELSE\n	    MSGSTOP( \"ESTE CAMPO NO ADMITE MÁS DE \"+ALLTRIM(STR(::MaxLong))+\" CARACTERES\", ;\n		      \"  SE INTENTÓ EXCEDER LONGITUD MÁXIMA\" )\n	 ENDIF\n	 ::nChars := 2\n      ENDIF\n      RETURN 0\n   ENDIF\n   ::nChars := 0\n\nSi te fijas, tan sólo es necesario el DATA [b:2wvo1ei9]MaxLong[/b:2wvo1ei9], los demás son accesorios. [b:2wvo1ei9]nChar[/b:2wvo1ei9] es para que el mensaje sólo salga una vez de cada dos, después del cuarto intento y no esté dando la lata a cada instante. En cuanto a [b:2wvo1ei9]bPassMax[/b:2wvo1ei9], es para poder ejecutar una accion alternativa al MSGSTOP.\n\nPruebalo a ver si te sirve.\n\nSaludos.','',0,'QQ==','2wvo1ei9',1,0,'',1055,0,0),(34551,7522,6,1055,0,'84.125.133.194',1184087981,1,0,1,1,1,0,'','','Yo lo que hago es crear la factura en variables temporales con el ultimo numero calculado. Cuando le doy a guardar lo almaceno en la DBF correspondiente, pero si el numero de factura ya existia (porque otro usuario estaba creando otra con el mismo numero), calculo uno nuevo y advierto al usuario de tal echo. Si tuviera que imprimir la factura, primero la guardo (como acabo de explicar) y después la imprimo. Lo de las variables es para no editar los FIELDS del DBF directamente, por si lo que estoy creando no me sirve y no hay que guardarlo.\n\n¿Imprfimir y arrepentirse? No es muy normal, pues una vez impresa la factura, si está en mano del Cliente, mejor no arrepentirse. En tal caso, si se da la situacion de que hay que romperla, pues se implementa una opción BORRAR FACTURA y ya está (-Hay gente reacia a incluir esa opcion, pero ya verá que a veces es el propio cliente quien lo solicita. Yo, en ese caso suelo no añadirla al MENU sino camuflarla como combinación de teclas en un GET concreto-).','',0,'QQ==','3jfyvks2',1,0,'',1055,0,0),(34552,7545,2,1055,0,'84.125.133.194',1184088146,1,0,1,1,1,0,'','','Lo más rápido es:\n[b:1d64bfra]oWin:cTitle( \"NUEVO TITULO\" )[/b:1d64bfra]','',0,'QA==','1d64bfra',1,0,'',1055,0,0),(34553,7546,3,190,0,'124.7.24.141',1184089979,1,0,1,1,1,0,'','Is there any solution to convert clipboard contents to .BMP','Hi friends\n\nI have an image copied into clipboard.  Is there any way to save the \ncontents of the clipboad to .BMP file using FWH ?\n\nThanks in advance\n\n- Ramesh Babu P','',0,'QA==','1khqyc7j',1,0,'',190,0,0),(34554,7511,6,348,0,'201.240.180.165',1184090289,1,0,1,1,1,0,'','Re: Consultas remotas por internet ??  es posible o no ??','Gracias Rafa Carmona l,,   \n\nEstuvo muy claro tu cometario, me das un punto de partida, pues mi experiancia con SQL es muy primitiva y mas teorica que practica.\npor lo que pensaria en la primera opcion, \n\n\n\nDe lo que me comentas de usar el EAgle1, me imagino por lo leido que implica un cambio mas estricto de codigo y logica,  tendras alguna direccion para solicitar informacion de este  Eagle1,  pues la idea seria manejarlo para futuras aplicaciones en todo caso,\n\nGracias por la respuesta\nLubin','',0,'QA==','2xs5ye9t',1,0,'',348,0,0),(34555,7516,6,2,0,'87.218.146.252',1184090842,1,0,1,1,1,1,'','','Debería estar soportado. Lo vamos a revisar cuanto antes','',0,'QA==','1rlq0yfk',1,0,'',2,0,0),(34556,7547,7,57,0,'83.56.59.101',1184091009,1,0,1,1,1,1,'','Encrypt y Decrypt, es posible implementarlas??','Antonio\nEs posible incorporar estas funciones de FWH a FWPPC??\n\nSaludos','',0,'QA==','25j099x7',1,0,'',57,0,0),(34557,7543,20,6,0,'87.1.225.219',1184091479,1,0,1,1,1,1,'','Re: Controllo pulsante (non so il nome!)   :-(','No, ma è molto semplice: oBtn:GoDown() mette il pulsante nello stato premuto e oBtn:GoUp() nello stato non premuto.\n\nEMG','',0,'QA==','2lt2bbrb',1,0,'',6,0,0),(34558,7511,6,940,0,'189.157.91.25',1184092247,1,0,1,1,1,1,'','','tambien esta tmysql de las contribuciones,\n\nen tu misma pc puedes instalar el mysql y ahi hacer tus pruebas,\n\nyo tengo un cliente que tiene un servidor win server y mysql\n\nlocalmente lo accesamos con LOCALHOST o por medio de la IP de red\n\nde area local, remotamente lo accesamos con tuneles VPN esto es\n\npara una mejor seguridad del servidor, \n\nesto ultimo claro con un iternet de banda ancha,  512 minimo \n\notra situacion con tmysql no necesitas un conector y con ADO\n\nnecesitas odbc conector,\n\n\nsaludos..','',0,'QA==','2bjj8tti',1,0,'',940,0,0),(34559,7544,6,519,0,'88.16.8.161',1184097250,1,0,1,1,1,0,'','','Muchas Gracias  amigo funciona  perfecto era lo que estaba buscando.\n\n   un saludo','',0,'QA==','1mca7zpm',1,0,'',519,0,0),(34560,7535,3,104,0,'201.58.145.123',1184099623,1,0,1,1,1,0,'','','Hi Enrico,\n\nTry this:\n\n[code:22jgge9k]\n   ACTIVATE DIALOG oDlg; \n            CENTER on init oGet&#58;nHeight &#58;= 10\n\n[/code:22jgge9k]\n\nRegards\n\nRossine.','',0,'AIA=','22jgge9k',1,0,'',104,0,0),(34561,7535,3,6,0,'87.1.225.219',1184100412,1,0,1,1,1,1,'','','Thank you, it works!\n\nEMG','',0,'AIA=','2i7kejik',1,0,'',6,0,0),(34562,7548,6,73,0,'200.23.18.132',1184101286,1,0,1,1,1,0,'','fwcalendar pequeñas modificaciones','hola foro,\naqui dejo una imagen de la clase fwcalendar que modifique un poco para su presentacion, al rato subo la clase para los interesados\n\n<!-- m --><a class=\"postlink\" href=\"http://img112.imageshack.us/my.php?image=fwcalendaraw4.jpg\">http://img112.imageshack.us/my.php?imag ... daraw4.jpg</a><!-- m -->\n\nsalu2\npaco','',0,'AIA=','2k0hx1m3',1,0,'',73,0,0),(34563,7548,6,73,0,'200.23.18.132',1184104081,1,0,1,1,1,0,'','','aqui dejo otra imagen, en esta ultima version los colores cambiaron, dejo la posibilidad de poder establecer a criterio de cada uno los colores que mas les gusten, ej:\n\nFwCalendar(dVar1,aRect[1],aRect[4],oDlg,cColorDialogo,cColorFecha,cColorDias,aColorTituloSemana)\n\n                 dVar1 := FwCalendar(dVar1,aRect[1],aRect[4],oDlg,nRGB(200,200,200),nRGB(100,100,100),nRGB(168,45,69),{CLR_BLUE,CLR_HBLUE})\n\n<!-- m --><a class=\"postlink\" href=\"http://img523.imageshack.us/my.php?image=fwcalendar2iu2.jpg\">http://img523.imageshack.us/my.php?imag ... ar2iu2.jpg</a><!-- m -->\n\nsalu2\npaco','',0,'','1mu08q51',1,0,'',73,0,0),(34564,1182,6,574,0,'201.230.22.125',1184105962,1,0,1,1,1,0,'','FTP','Esto me funciona siempre bien.\nPruebalo\n\n\n#include \"fivewin.ch\"\nstatic cServer//:=\"204.233.245.140\",\nstatic odlg,ownd\nstatic cDirIp1,cNomZipLo1,CNomZipRe1,cDirRemot1,cUser1,cPasswd1\nfunction main()\nset date to british\nSET CENTURY ON\ndbcloseall()\nuse tablaftp exclusive new\nTablaFtp-&gt;(dbgotop())\ncDirIP1:=alltrim(TablaFtp-&gt;DirIp)//Direccion IP\ncDirLocal1:=alltrim(TablaFtp-&gt;DirLocal)//Direccion Local\ncDirRemot1:=alltrim(TablaFtp-&gt;DirRemot)//Direccion Remota\ncNomZipLo1:=alltrim(TablaFtp-&gt;NomZipLo)//Nombre Zip Local\ncNomZipRe1:=alltrim(TablaFtp-&gt;NomZipRe)//Nombre Zip Remoto\ncUser1:=alltrim(TablaFtp-&gt;User)//Usuario\nCPasswd1:=alltrim(TablaFtp-&gt;Passwd)//Contraseña\nlchdir(cdirlocal1)\ndbcloseall()\nFtpEnvio()\nreturn nil\n\nFunction FtpEnvio()\nlocal cuser,cpass,cremote,clocal,cfecha\ncserver:=cdirip1//direccion IP del Server FTP\ncuser:=cuser1//\"usuario\"\ncpass:=cpasswd1//\"contraseña\"\ncremote:=cdirremot1  // \"directorio/publico/\"  directorio dentro del ftp\ncnombre:=dtoc(date())//nombre del archivo \nlchdir(\"envioftp\") //ingreso a un directorio dentro de windows\n//cremote=cremote+\"/\"+\"prueba4\"+\".zip\"\ncfecha:=substr(dtoc(date()),7,4)+substr(dtoc(date()),4,2)+substr(dtoc(date()),1,2)\nclocal:=cfecha+cNomZipLo1\nif file(clocal)\nftpsend(cserver,cdirremot1,cuser,cpass,clocal)\nendif\nlchdir(\"..\")\nreturn nil\n\nFUNCTION FtpSend(cFTPServer,cFTPDir,cFTPUser,cFTPPwd,cFile)\n//--------------------------------------------------------//\nLOCAL oFtp, oInt, hMon, lRet\nif !Empty(cFTPDir) .AND. !Right(cFTPDir,1)==\"/\"\ncFTPDir := cFTPDir+\"/\"\nend\nFtpInit(@oInt,@oFtp,cFTPServer,cFTPUser,cFTPPwd)\n//hMon := fCreate(\"info.txt\")\nhmon:=\"ftp.txt\"\nif oFtp:hFtp &gt; 0\n   SendFile(cFTPDir,cFile,oFtp,hMon,oInt)\nelse\n//msginfo(\"HAY PROBLEMAS EN SU CONEXIÒN A INTERNET, DATOS NO PUDIERON SER ENVIADOS\",\"IMPORTANTE\")\nend\noInt:End()\noFtp:end()\nRETUrn NIL\n\nFUNCTION FtpInit(oInt,oFtp,cFTPServer,cFTPUser,cFTPPwd)\n//--------------------------------------------------------//\noInt := tInternet():New()\noFtp := TFtp():New(cFTPServer, oInt, cFTPUser,cFTPPwd)\nRETU NIL\n\nSTATIC FUNCTION SendFile(cFTPDir,cFile,oFtp,hMon,oInt)\n//--------------------------------------------------------//\nLOCAL oFile, h, cBuff, nSize, nRead, nWrite\nLOCAL lRet := .F.\noFile := TFtpFile():New(cFTPDir+cFile,oFtp)\noFile:OpenWrite()\nif oFile:hFile &gt; 0\n   h := fOpen(cFile)\n   nSize := fSeek(h,0,2)\n   fSeek(h,0,0)\n   cBuff := Space(nSize)\n   nRead := fRead(h,@cBuff,nSize)\n   fClose(h)\n   nWrite:= oFile:Write( cBuff )\n   If nWrite==nRead\n      lRet := .T.\n      //msginfo(\"DATOS FUERON ENVIADOS CORRECTAMENTE\",\"INFORMACIÒN\")\n   Else\n   //Msginfo(\"NO SE PUDO ENVIAR, ARCHIVO ESTÀ ABIERTO POR OTRO PROCESO, REVISELO\",\"IMPORTANTE\")\n   oInt:end()\n   oFtp:end()\n   End\nelse\n//Msginfo(\"HAY PROBLEMAS EN ABRIR EL ARCHIVO PARA SER ENVIADO\",\"IMPORTANTE\")\noInt:end()\noFtp:end()\nendif\nRETURN lRet','',0,'','2ny5wpiv',1,0,'',574,0,0),(34565,1182,6,574,0,'201.230.22.125',1184106159,1,0,1,1,1,0,'','ftp','El ejemplo que puse soporta archivos grandes, yo probe con archivos de 5MB y sin problemas.','',0,'','1l8idym0',1,0,'',574,0,0),(34566,7548,6,73,0,'200.23.18.132',1184107008,1,0,1,1,1,0,'','','esta arreglado para que salga con doble-click ó enter de acuerdo al dia posicionado.\n\naqui dejo el link para su descarga:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.savefile.com/files/878186\">http://www.savefile.com/files/878186</a><!-- m -->\n\nsalu2\npaco','',0,'','39l63uky',1,0,'',73,0,0),(34567,7549,3,578,0,'218.214.35.132',1184107479,1,0,1,0,1,0,'','Says that don\'t say, Problem upodating Button cCaptions etc','I am writing a program to control the workflow of Word Documents.  I am just using a single (main) window (oWnd).  I have a timer set to check if there are any files to be edited by that user.  I wanted to alert the user, preferably by changing the caption and color of a button - or at least changing the text of a SAY.  I looked at testime.prg annd thought it would be straight forward but no.  In fact testtime as in the samples doesn\'t work!  The timer fires no doubt but the oWnd:Say(.......) doesn\'t do anything.  In fact I can\'t even get a SAY to work on the main window at all - let alone change its caption.  Is this normal?  I can get a Button to work and the timer can alter its caption (I think) because oMyButton:cCaption:=  doesn\'t giva an error but the caption as displayed doesn\'t alter and calling oMyButton:Paint() also doesn\'t help and calling oMyButton:Initiate(oWnd) crashes.  The timer is firing (alerts work fine). The timer can successfully SET MESSAGE which is my solution of last resort, but can anyone help with either updating the caption on the button or explaining why Says don\'t seem to work on the main window at all.  Should testtime.prg compile and ruin as suggested or is it a sample that noone checked?\n\nThanks\n\nxProgrammer','',0,'','2na8e5r4',1,0,'',578,0,0),(34568,7533,1,320,0,'189.146.132.187',1184108143,1,0,1,1,1,0,'','','I solved the problem increasing CLIPPER=F120 (for now).\nThe weird thing is that the application had run for a couple of years with F60.  There were no changes on the client side, same NT os.\nThe only thing that changed was the compiler and some minor modifications to the app, but it gave no problems for 4 or 5 months.','',0,'','1nvi63l6',1,0,'',320,0,0),(34569,7206,3,574,0,'201.230.22.125',1184109280,1,0,1,1,1,0,'','A MI ME SALE ALGO PARECIDO','[img]201.238.210.140/impresion.JPG[/img]\na mi me sale algo parecido, antonio que solucion se le puede dar, la diferencia radica en el archivo res, que es de pellesC, con otro res que viene de workshop, lo paso a pelles C, y con ese la impresion es normal.[/img]','',0,'CA==','12wbo9ny',1,0,'',574,0,0),(34570,7206,3,574,0,'201.230.22.125',1184109340,1,0,1,1,1,0,'','Respuesta','[img:10a7l94x]http&#58;//201&#46;238&#46;210&#46;140/impresion&#46;JPG[/img:10a7l94x]','',0,'CA==','10a7l94x',1,0,'',574,0,0),(34571,7550,6,574,0,'201.230.22.125',1184109425,1,0,1,1,1,0,'','Problemas con el Preview','Tengo el siguiente problemita, no se si a alguno le ha pasado antes, mando la imagen que habla mas que mil palabras.\n[img:tklxl7ab]http&#58;//201&#46;238&#46;210&#46;140/impresion&#46;JPG[/img:tklxl7ab]','',0,'CA==','tklxl7ab',1,0,'',574,0,0),(34572,7550,6,574,0,'201.230.22.125',1184109561,1,0,1,1,1,0,'','','Estoy con fivewin 2.8, por que razon desaparecio el button bar??????\nEl archivo res lo trabajo con pellesC, si trabajo con un res que viene de workshop DLL convertido a RES no pasa ningun problema. pero con un RES que empezé en pelles C surge el problema de la figura.','',0,'CA==','hi1dk3oo',1,0,'',574,0,0),(34573,7534,6,121,0,'189.135.92.126',1184115313,1,0,1,1,1,1,'','','FRANCISCO, TE ENVIO EL EJEMPLO, OJALA TE SIRVA\n\nEL PROCEDIMIENTO ES UN POCO ARCAICO, PERO ME FUNCIONO PARA\nRESOLVER ESTA NECESIDAD DE EDICION DE UN CAMPO NUMERICO\n( SEGURAMENTE SE PUEDE MEJORAR )\n\n\n1. MODIFIQUE EL METODO LEDITCOL DE LA CLASE WBROWSE.PRG\n   AÑADIENDO EL ULTIMO RENGLON\n\n\n         @  0, 0 GET oGet VAR uVar ; // we have to use here uVar to use VALID !!!\n         SIZE aDim[ 4 ] - aDim[ 2 ] - If( bAction != nil, 12, 0 ),;\n         aDim[ 3 ] - aDim[ 1 ]  OF oDlg ;\n         FONT aFONT[1] COLOR nClrFore, nClrBack\n         oGet:oGet:Picture = cPicture\n OJO=&gt;  oGet:bGotFocus = { || oGet:SetSel( 0, 0 ),__Keyboard( STR(uVar,1) ) }\n \n \n2. EN MI PROGRAMA LO LLAMO DE LA SIGUIENTE MANERA\n\n REDEFINE LISTBOX oBRW .....\n .......ETC\n \n oBRW:bKeyDOWN={ | NKEY | IIF(NKEY&gt;47.AND.NKEY&lt;58,MODRESURM(oBRW,NKEY),NIL) }\n\n \nFUNCTION MODRESUR(oOBJ,NKEY)\n XVALOR1=NKEY-48\n IF oOBJ:LEDITCOL(5,@XVALOR1,\'99,999\',,RGB(0,0,0),RGB(0,250,0),,)\n  CANTIDADE:=XVALOR1\n ENDIF\n oOBJ:REFRESH()\nRETURN NIL','',0,'','1k02998r',1,0,'',121,0,0),(34574,7534,6,73,0,'189.157.183.112',1184117894,1,0,1,1,1,0,'','','gracias marco,\nlo configuro y pruebo\nsalu2\npaco','',0,'','papdlwa9',1,0,'',73,0,0),(34575,7511,6,348,0,'201.230.80.141',1184121763,1,0,1,1,1,0,'','','hola Cesar\n\nLa opcion del TMySql es una clase ??  o libreria externa,  podrias darme un camino donde documentarme o consegiirla para probarla ..\nGracias \n\nLubin','',0,'','1q3uoq1q',1,0,'',348,0,0),(34576,7541,6,316,0,'213.97.245.163',1184138432,1,0,0,1,1,0,'','','Podría alguien confirmar el post anterior? Si es necesario alterar el make y hace falta ayuda solo avisar.\n\nEs importante para mi porque se me acaban las actualizaciones de FW el 15 del Julio, y todavía no puedo hacer funcionar el FW 7.05 de manera apropiada.\n\nGracias','',0,'','3p9jod73',1,0,'',316,0,0),(34577,7533,1,2,0,'87.218.146.121',1184139542,1,0,1,1,1,1,'','','You should consider to upgrade your application to 32 bits using FWH and Harbour/xharbour as such problem does not exist on 32 bits','',0,'','bfc7erjc',1,0,'',2,0,0),(34578,7547,7,2,0,'87.218.146.121',1184139914,1,0,1,1,1,1,'','','Toni,\n\nAñadidas. En el próximo build de FWPPC que publicaremos dentro de sólo unos dias, estan incluidas.\n\nEl problema de incluirlas era que el compilador clarm.exe no admite assembler inline y esas funciones usan unas rutinas en ensamblador, pero hemos podido solucionarlo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1kh1b911',1,0,'',2,0,0),(34579,7541,6,2,0,'87.218.146.121',1184140095,1,0,1,1,1,1,'','','Carlos,\n\nPor favor vuelve a descargar xHarbour desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> ya que el equipo de xharbour corrijió un bug importante que generaba errores incoherentes y nosotros publicamos una actualización.','',0,'','1srb06y7',1,0,'',2,0,0),(34580,7545,2,2,0,'87.218.146.121',1184140164,1,0,1,1,1,1,'','','También puedes hacer:\n\noWnd:SetText( \"Nuevo Titulo\" )','',0,'','17fxx1nj',1,0,'',2,0,0),(34581,7549,3,2,0,'87.218.146.203',1184141153,1,0,1,1,1,1,'','','samples\\TestTime.prg is properly working, the problem is that uses white color so you can\'t see it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSimply change the color of the window:\n\n   DEFINE WINDOW oWnd FROM 3, 3 TO 20, 50 ;\n      TITLE OemToAnsi( \"Testing timers\" ) ;\n      MENU  BuildMenu() [color=red:72fh0lnv]COLOR \"W+/B\"[/color:72fh0lnv]','',0,'Ag==','72fh0lnv',1,0,'',2,0,0),(34582,7551,3,47,0,'203.144.160.246',1184143576,1,0,1,1,1,0,'','Is Resource Builder compatible with FWH?','Dear Antonio,\n\nI heard someone said Resource Builder from [url:1x3cj0s0]http&#58;//www&#46;resource-builder&#46;com[/url:1x3cj0s0] is good Resource Editor.  Is it compatible with FWH?  Because I can do real 32bit RC file.  If so, it can use instead of BRW.\n\nBest regards,\nDutch','',0,'EA==','1x3cj0s0',1,0,'',47,0,0),(34584,7547,7,57,0,'80.58.205.43',1184146869,1,0,1,1,1,1,'','','Antonio\nPerfecto. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMil Gracias','',0,'EA==','od8ahhy2',1,0,'',57,0,0),(34585,7549,3,578,0,'218.214.35.132',1184153636,1,0,1,0,1,0,'','','Thanks Antonio for your prompt answer.  Will try.  Buttons must have different color defaults because they show up.  This certasinly looks like a solution,  but is there a way to \n\n1&gt; Change the caption of a Button\n\n2&gt; Change the (background) color of a button\n\nwhich I would like to do.\n\nAlso is there a simple way to change gets from read only to normal when you want to put an enquiry dialog into edit mode.  Currently I am redefining the dialog.\n\nThanking you\n\nxProgrammer','',0,'EA==','38fmtbb9',1,0,'',578,0,0),(34586,7551,3,35,0,'65.188.6.143',1184156997,1,0,1,1,1,0,'','','Dutch\n\nI have downloaded and played with it .. and YES .. you have to configure the builder for for the correct .rc layout .. \'curly brackets {}\' if I recall.\n\nFor all the resource editors I have looked for .. Resource builder would be my choice .. and I think you can purchase it for around 50 usd.\n\nAs a side note .. you might look at UE Studio 6 .. I think Antonio is using it and there are configuration links in this forum for xHarbour and Harbour. The IDE is a project manager, builder and resource editor all in one.\n\nI use xMate myself as a project manager and builder .. like you.. I just need a good 32 bit resource editor to replace Borland Workshop .. just ole fashoned here .. I would rather \'keep it simple\' and not have an IDE ( UE6 )  that has all kinds of \'gadgets\' bells and whistles on it ( sorta overwhelming like Visual studio ) .. maybe I am wrong about UE 6 .. you will have to test drive it for yourself.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ultraedit.com/index.php?name=Content&amp;pa=showpage&amp;pid=150\">http://www.ultraedit.com/index.php?name ... ge&amp;pid=150</a><!-- m -->\n\nJust give me a ( simple efficient ) project manager and ( stand alone ) resource editor and I am happy!!\n\nRick Lipkin\nSC Dept of Health, USA','',0,'EA==','2rl5826s',1,0,'',35,0,0),(34587,7553,3,904,0,'196.25.255.246',1184158386,1,0,1,1,1,1,'','How to clear an oImage','When I hit the \"Clear\" button I still see the image - I want it to be blank.\n\n[code:jng0rt7p]   REDEFINE IMAGE oImage ID 4010 OF oDlg_Edit_Line FILE cImage WHEN FILE&#40;cImage&#41; ADJUST UPDATE\n   //Load image button below\n   REDEFINE BUTTON ID 4011 OF oDlg_Edit_Line ACTION ;\n   &#40; cImage &#58;= cGetFile32&#40;&quot;Images &#40;*&#46;jpg&#41; | *&#46;jpg |&quot; + &quot;All files &#40;*&#46;*&#41; | *&#46;* |&quot;, &quot;Select an image file&quot; &#41;,;\n   IF&#40;FILE&#40;cImage&#41;,&#40;oImage&#58;cBmpFile&#58;=cImage,oImage&#58;Reload&#40;&#41;,oImage&#58;Refresh&#40;&#41;&#41;,NIL&#41;&#41;\n   //CLear image button below\n   REDEFINE BUTTON ID 4026 OF oDlg_Edit_Line ACTION &#40;cImage&#58;=&quot;&quot;,oImage&#58;cBmpFile&#58;=cImage,oImage&#58;Destroy&#40;&#41;,oImage&#58;Refresh&#40;&#41;&#41;\n[/code:jng0rt7p]','',0,'AIA=','jng0rt7p',1,0,'',904,0,0),(34588,7554,6,904,0,'196.25.255.250',1184159403,1,0,1,1,1,1,'','Press Enter in a Memo Field','How can I use Enter (to get a new line) in a memo field?  \n\nWhen I press Enter, it presses my (DEFAULT) \"OK\" button. (Which is fine, but can I use Shift-Enter or something to get a new line? How?)\n\nThanks in advance.','',0,'AIA=','2vd68lk2',1,0,'',904,0,0),(34589,7541,6,316,0,'213.97.245.163',1184160103,1,0,0,1,1,0,'','','Gracias Antonio, pero es que es exactamente el mismo que hay para descargar y es el que provoca el error. Acabo de hacerle un FC y son idénticos. Creo que las correcciones de la gente de harbour no han sido suficientes. Tampoco puedo notificar del error porque no sé a ciencia cierta a que build corresponde ni tengo detalles de compilación.\nDe todas maneras voy a volver a probarlo.\n\nSaludos,\n\nCarlos.','',0,'AIA=','3nlaofur',1,0,'',316,0,0),(34590,7550,6,36,0,'164.77.81.210',1184160298,1,0,1,1,1,1,'','','omarelunico:\n\nEsa es un report de fivewin, debes incluir la prev32.dll y si la quieres en español sacala de \\fwh\\dll\\prev32sp.dll y le cambias el nombre a prev32.dll','',0,'AIA=','xvfb3k6n',1,0,'',36,0,0),(34591,7555,6,774,0,'200.72.190.19',1184160920,1,0,1,1,1,1,'','GET TIPO MEMO','Hola amigos \n\ntengo un get creado como Memo asi:\n\nREDEFINE GET oGet VAR vGetDetalle MEMO ID 1001 COLORS RGB(0,0,255),RGB(255,255,220) OF oDlg\n\nhay alguna forma de : a la variable vGetDetalle ir llenandola con salto de linea,, no se si me explico,, esto es para que en el get cuando se visualice se vea algo asi.\n\nGiro Comercial :          XXXXXXXXXXXXXX\nDomicilio Comercial :   XXXXXXXXXXXXXX\nEtc.\n\n\nyo tengo una rutina  asi:\n\nFunction DatosClientes(oClientes,oBrowse,oGet,vGetDetalle)\nvGetDetalle:=\"\"\nvGetDetalle+=\"Giro Comercial :\"+Upper(oClientes:Giro)   // &lt;--- Aqui como le aplico en salto de linea\n\nvGetDetalle+=\"Giro Comercial :\"\nvGetDetalle+=\"Giro Comercial :\"\nvGetDetalle+=\"Giro Comercial :\"\nvGetDetalle+=\"Giro Comercial :\"\nvGetDetalle+=\"Giro Comercial :\"\nvGetDetalle+=\"Giro Comercial :\"\n\noGet:refresh()\nReturn nil\n\n\nno se si se entiende lo que quiero hacer\n\nFAVOR AYUDA:::\n\nGRACIAS','',0,'AIA=','3gijmzkf',1,0,'',774,0,0),(34592,7555,6,36,0,'164.77.81.210',1184165840,1,0,1,1,1,1,'','','Hola\n[code:2eftbyk9]\nvGetDetalle+=&quot;Giro Comercial &#58;&quot;+Upper&#40;oClientes&#58;Giro&#41; // &lt;--- Aqui como le aplico en salto de linea \n\n\n\nvGetDetalle+=&quot;Giro Comercial &#58;&quot;+Upper&#40;oClientes&#58;Giro&#41;  + CRLF //salto linea\n[/code:2eftbyk9]','',0,'AIA=','2eftbyk9',1,0,'',36,0,0),(34593,7511,6,138,0,'189.141.69.200',1184170595,1,0,1,1,1,1,'','','Yo creo que si tienes todo en hosting, es decir, si no tienes tu el servidor de la base de datos en tus instalaciones, lo mas facil es utilizar el PHP que te dan en casi todos los sitios que hospedan sitios.\n\nLa carga de datos a la base de datos remota podria hacerse via ADO, mas rapido y economico, no se puede.\n\nSi por el contrario, tienes la base de datos en tu instalacion, pues es miles de veces mas facil hacer las cosas tienes cientos de opciones:\n\nsi lo tienes montado con Linux, pues directo, Apache, PHP y my SQL\n\nSi lo tienes montado en Windows hay mas opciones todavia:\n\nWinASP de Jorge Mason\nCGIs puros y duros con xHarbour puro y duro\nASP con el xBScript e Internet information server.\n\nEn fin, opciones hay un monton.','',0,'AIA=','33e7s4oy',1,0,'',138,0,0),(34594,7554,6,138,0,'189.141.69.200',1184171140,1,0,1,1,1,1,'','','Ollie:\n\nIf you are creating the memo from resources, double click on it, open properties window and select WANT RETURN to activate de feature.','',0,'AIA=','8hpv3lbd',1,0,'',138,0,0),(34595,7522,6,875,0,'64.76.108.182',1184171368,1,0,1,1,1,0,'','','Disculpen amigos, Pero hay veces en que por un tema simple, crean toda un Tormenta Ja Ja Ja.  Como la mayoria dijo Los Numeros de Documentos se graban al final y no hay vuelta que darle.\n\nJaime \n\nP.D.: Cuidemonos de un Derrame Cerebral','',0,'AIA=','37c23bi8',1,0,'',875,0,0),(34596,7556,6,73,0,'200.23.18.132',1184172595,1,0,1,1,1,0,'','modificar una estructura dbf','hola foro,\ndesde programa creo una dbf con los campos en un arreglo, modifico el arreglo agregandole campos, obviamente hay campos que no existen que estan en el arreglo, como hago para que la estructura de la dbf tome los campos nuevos agregados?\nsalu2\npaco','',0,'AIA=','fq6ytm2j',1,0,'',73,0,0),(34597,7557,7,1104,0,'200.115.248.234',1184172650,1,0,1,1,1,0,'','Problemas con Advantage','He agregado estas dos lineas en mi enlazador pero no se encuentran en mi Harbour_ce.\nDonde deberían estar estas librerías?\n\necho %hdir%\\lib\\rddads.lib &gt;&gt; msvc.tmp\necho %hdir%\\lib\\ace32.lib &gt;&gt; msvc.tmp\n\nTambien he agregado estás lineas en mi prg principal\n\n#include \"ADS.ch\"\n\nFunction main()\n\nRddRegister(\"ADS\",1)\nRddSetDefault(\"ADS\")\nSET SERVER LOCAL\nSET FILETYPE TO NTX\n\nReturn nil\n\nEl error se produce cuando quiero enlazar.\n\nSaludos Esteban','',0,'AIA=','2fnvhzoj',1,0,'',1104,0,0),(34598,7543,20,154,0,'151.21.77.10',1184173423,1,0,1,1,1,1,'','Re: Controllo pulsante (non so il nome!)   :-(','[quote=&quot;EnricoMaria&quot;:2rhrg19t]No, ma è molto semplice: oBtn:GoDown() mette il pulsante nello stato premuto e oBtn:GoUp() nello stato non premuto.[/quote:2rhrg19t]\n\nGrazie Enrico,\nho capito.','',0,'gA==','2rhrg19t',1,0,'',154,0,0),(34599,7551,3,879,0,'67.70.62.254',1184175598,1,0,1,1,1,0,'','','Hello Dutch and Rick,\n\nI recently wrote a post regarding the UES RE to get any feedback since the folks at UE said they had no reported problems, except a number from myself. I forwarded what I received from that post including user interest numbers for the for the first week.\n\nOn June 22, I got a response back from UE saying they were looking into the items I reported and were planning to release an updated version to me the week of June 25. As of yet I have not received any update.\n\nI also suggested to them that the Resource Builder had a number of features missing from UES. While I consider my input only drop in the bucket, they are willing to consider any options and opinions. I hope they are putting 100% effort into improving the resource editor portion of the program. If they do, I believe it could be a very good programming solution.\n\nRegards,\n\nKen','',0,'gA==','23gr2b4i',1,0,'',879,0,0),(34600,7556,6,53,0,'189.139.96.160',1184175598,1,0,1,1,1,1,'','','Paco:\n\nSi tu pregunta es para saber si hay alguna función o clase que te ayude a modificar la estructura, ummmm pues creo que no.\n\nSi lo que necesitas es una idea de cómo hacerlo, se me ocurre lo siguiente:\n\n1.- Tienes una nueva estructura en un arreglo, como dices\n2.- Debes leer la estructura de la DBF existente y la metes en otro arreglo, me parece que la función DIRECTORY() puede ayudarte con eso\n3.- Comparas ambos arreglos\n4.- Si hay diferencia(s) creas una DBF temporal con la nueva estructura\n5.- Copias los registros de la DBF existente a la nueva DBF, con APPEND FROM ....  puedes hacerlo\n6.- Borras la DBF anterior y\n7.- Renombras la nueva DBF al nombre de la DBF anterior, obviamente debes abrirlas DBF en forma exclusiva.\n\nEs solo una idea, espero te sirva\n\nSaludos','',0,'gA==','23gr2b4i',1,0,'',53,0,0),(34601,7556,6,53,0,'189.139.96.160',1184176292,1,0,1,1,1,1,'','','Paco:\n\nEn el punto 2 de mi anterior respuesta no es la función DIRECTORY() es la función DBSTRUCT(), las prisas son malas consejeras  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nUn abrazo','',0,'gA==','3207p5jt',1,0,'',53,0,0),(34602,7553,3,1055,0,'84.125.133.194',1184178263,1,0,1,1,1,0,'','','[u:fp7xm9kz]Try this: [/u:fp7xm9kz]  oImage:Hide() + oImage:End() + oImage := NIL + SysRefresh()\n\nRegards','',0,'AQ==','fp7xm9kz',1,0,'',1055,0,0),(34603,7557,7,2,0,'87.218.146.119',1184180693,1,0,1,1,1,1,'','','Esteban,\n\nPor el momento, que sepamos, no existe un cliente de ADS para Pocket PC. No lo fabrican.','',0,'AQ==','10u6xp0k',1,0,'',2,0,0),(34604,7557,7,138,0,'189.141.69.200',1184181173,1,0,1,1,1,1,'','','No puedes usar ADS con Pocket PC, no existe cliente, ni libreria de funciones para usar ADS desde un PPC.','',0,'AQ==','2izh0dmt',1,0,'',138,0,0),(34605,7556,6,138,0,'189.141.69.200',1184181362,1,0,1,1,1,1,'','','Exactamente como indica Armando es como se hace.\n\nCreas una estrutrua vacia en un archivo temporal.\nAbres el archivo temporal\nHaces un append from\nrenombras el archivo original por ejemplo como .OLD\ny renombras el temporal con el nombre del original\n\ny listo.','',0,'AQ==','1l29ilv1',1,0,'',138,0,0),(34606,7556,6,73,0,'200.23.18.132',1184183573,1,0,1,1,1,0,'','','enterado, gracias\npaco','',0,'AQ==','28jf9rr8',1,0,'',73,0,0),(34607,7545,2,518,0,'189.170.61.192',1184183897,1,0,1,1,1,0,'','','graicas','',0,'AQ==','g79mceds',1,0,'',518,0,0),(34608,7556,6,36,0,'164.77.81.210',1184184460,1,0,1,1,1,1,'','','Hola Fancisco, \n\nYo hice esta rutina, pruebala y hazle ajuste para tus necesidades\n\nespero que te sirva\n\n[code:mg3l395t]function checkBaseDato&#40;&#41;\nlocal cPath, aDir, cDbf, aStruc1, aStruc2, i, j, cInfo, nHandle, lPaso, aBase &#58;= &#123;&#125;, lIndex &#58;= &#46;f&#46;\n\nif DirMake&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\chkDbf&quot; &#41; &lt;&gt; 0\n	MsgInfo&#40; &quot;imposible crear directorio&quot; + CRLF + ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\chkDbf&quot;+ CRLF + CRLF + &quot;Borrelo manualmente&quot;, &quot;Usuario&quot; &#41;\n	return&#40; nil &#41;\nendif\n\ncPath &#58;= ViewUsu&#40;&#41;&#58;cPathDbf //guardamos la ubicacion original\nViewUsu&#40;&#41;&#58;cPathDbf &#58;= ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\chkDbf&quot;\n\nAdsSetSearchPath&#40; ViewUsu&#40;&#41;&#58;cPathDbf &#41;\n\nCreaDbf&#40;&#41; //creamos los dbf en el directorio creado\n\naDir &#58;= Directory&#40; ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\*&#46;DBF&quot; &#41;\n\nIF &#40;nHandle &#58;= FCREATE&#40; \'Informe&#46;log\', 0 &#41;&#41; == -1\n	msginfo&#40; &quot;Hubo un Error;;al crear Archivo&quot; &#41;\n	return&#40; nil &#41;\nendif\n\ncInfo &#58;= &quot;Informe de structura&quot; + CRLF\ncInfo += repli&#40;&quot;=&quot;,80&#41; + CRLF\n\nfor i &#58;= 1 to len&#40; aDir &#41;\n\n	cDbf &#58;= strtran&#40; upper&#40;aDir&#91;i,1&#93;&#41;,&quot;&#46;DBF&quot;, &quot;&quot; &#41;\n\n	cInfo += &quot;Archivo&#58;&quot;+PADR&#40;cDbf,10&#41;\n\n	aStruc1 &#58;= &#123;&#125;\n	aStruc2 &#58;= &#123;&#125;\n\n	use &#40;ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot; + cDbf &#41;exclusive VIA &quot;DBFCDX&quot;\n	if !NetErr&#40;&#41;\n		aStruc1 &#58;= dbStruct&#40;&#41;\n		if file&#40; cPath + &quot;\\&quot; + cDbf + &quot;&#46;dbf&quot; &#41;\n			USE &#40;cPath + &quot;\\&quot; + cDbf&#41; EXCLUSIVE VIA &quot;DBFCDX&quot;\n			if !NetErr&#40;&#41;\n				aStruc2 &#58;= dbStruct&#40;&#41;\n			else\n				cInfo += CRLF + &quot;Imposible abrir de la ruta &quot;+cPath\n			endif\n		else\n			aStruc2 &#58;= &#123;&#123; &quot;NO EXISTE FILE&quot;, &quot;C&quot;, 0, 0 &#125;&#125;\n		endif\n	else\n		cInfo &#58;= &quot;Error abrir archivo&#58;&quot;+ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot;+cDbf\n	endif\n	lPaso &#58;= &#46;f&#46;\n	if !empty&#40;aStruc1&#41; &#46;and&#46; !empty&#40;aStruc2&#41;\n		if len&#40; aStruc1 &#41; = len&#40; aStruc2 &#41;\n			for j &#58;= 1 to len&#40; aStruc1 &#41;\n				if aStruc1&#91;j,1&#93; &lt;&gt; aStruc2&#91;j,1&#93; &#46;or&#46; ;\n					aStruc1&#91;j,2&#93; &lt;&gt; aStruc2&#91;j,2&#93; &#46;or&#46; ;\n					aStruc1&#91;j,3&#93; &lt;&gt; aStruc2&#91;j,3&#93; &#46;or&#46; ;\n					aStruc1&#91;j,4&#93; &lt;&gt; aStruc2&#91;j,4&#93;\n					cInfo += CRLF + ;\n								aStruc1&#91;j,1&#93; + aStruc1&#91;j,2&#93; + str&#40;aStruc1&#91;j,3&#93;,3&#41; + str&#40;aStruc1&#91;j,4&#93;,2&#41;+ &quot;  &quot; +;\n								aStruc2&#91;j,1&#93; + aStruc2&#91;j,2&#93; + str&#40;aStruc2&#91;j,3&#93;,3&#41; + str&#40;aStruc2&#91;j,4&#93;,2&#41;\n					lPaso&#58;=&#46;t&#46;\n				endif\n			next j\n\n			if !lPaso\n				cInfo += chr&#40;9&#41;+ chr&#40;9&#41; + &quot;OK&quot; + CRLF\n			endif\n		else\n			lPaso &#58;= &#46;t&#46;\n		endif\n	endif\n\n	if lpaso\n		if len&#40;aStruc1&#41; &lt;= len&#40; aStruc2 &#41;\n			cInfo += CRLF + chr&#40;9&#41; + &quot;Estructuras de &quot; + padr&#40;cPath,50&#41;+ chr&#40;9&#41;+ViewUsu&#40;&#41;&#58;cPathDbf+CRLF\n			for j &#58;= 1 to len&#40; aStruc1 &#41;\n				cInfo += chr&#40;9&#41; + ;\n								PadR&#40;aStruc1&#91;j,1&#93;,10&#41;+chr&#40;9&#41; + aStruc1&#91;j,2&#93; + chr&#40;9&#41; + str&#40;aStruc1&#91;j,3&#93;,3&#41; + chr&#40;9&#41;+str&#40;aStruc1&#91;j,4&#93;,2&#41; + chr&#40;9&#41;+chr&#40;9&#41;\n\n				cInfo += chr&#40;9&#41; + ;\n							PadR&#40;aStruc2&#91;j,1&#93;,10&#41; + chr&#40;9&#41; + aStruc2&#91;j,2&#93; + chr&#40;9&#41; + str&#40;aStruc2&#91;j,3&#93;,3&#41; + chr&#40;9&#41;+str&#40;aStruc2&#91;j,4&#93;,2&#41; + CRLF\n			next j\n\n			while j &lt;= len&#40; aStruc2 &#41;\n				cInfo += chr&#40;9&#41; + ;\n							PadR&#40;aStruc2&#91;j,1&#93;,10&#41; + chr&#40;9&#41;+aStruc2&#91;j,2&#93; + chr&#40;9&#41;+str&#40;aStruc2&#91;j,3&#93;,3&#41; + chr&#40;9&#41;+str&#40;aStruc2&#91;j,4&#93;,2&#41; + CRLF\n				j++\n			enddo\n\n		else\n		   cInfo += CRLF + chr&#40;9&#41; + &quot;Estructuras de &quot; + PadR&#40;ViewUsu&#40;&#41;&#58;cPathDbf,50&#41;+ chr&#40;9&#41;+cPath+CRLF+CRLF\n			for j &#58;= 1 to len&#40; aStruc2 &#41;\n				cInfo += chr&#40;9&#41; + ;\n								PadR&#40;aStruc2&#91;j,1&#93;,10&#41;+chr&#40;9&#41; + aStruc2&#91;j,2&#93; + chr&#40;9&#41; + str&#40;aStruc2&#91;j,3&#93;,3&#41; + chr&#40;9&#41;+str&#40;aStruc2&#91;j,4&#93;,2&#41; + chr&#40;9&#41;+chr&#40;9&#41;\n\n				cInfo += chr&#40;9&#41; + ;\n							PadR&#40;aStruc1&#91;j,1&#93;,10&#41; + chr&#40;9&#41; + aStruc1&#91;j,2&#93; + chr&#40;9&#41; + str&#40;aStruc1&#91;j,3&#93;,3&#41; + chr&#40;9&#41;+str&#40;aStruc1&#91;j,4&#93;,2&#41; + CRLF\n			next j\n\n			while j &lt;= len&#40; aStruc1 &#41;\n				cInfo += chr&#40;9&#41; + ;\n							PadR&#40;aStruc1&#91;j,1&#93;,10&#41; + chr&#40;9&#41;+aStruc1&#91;j,2&#93; + chr&#40;9&#41;+str&#40;aStruc1&#91;j,3&#93;,3&#41; + chr&#40;9&#41;+str&#40;aStruc1&#91;j,4&#93;,2&#41; + CRLF\n				j++\n			enddo\n		endif\n		aadd&#40; aBase, cDbf &#41;\n	endif\n	USE\n	FWRITE&#40; nHandle, cInfo+CRLF &#41;\n	cInfo&#58;=&quot;&quot;\nnext i\n\nFCLOSE&#40; nHandle &#41;\ndbCloseAll&#40;&#41;\nWAITRUN&#40;&quot;NOTEPAD informe&#46;LOG&quot;&#41;\n\nif len&#40; aBase &#41; &gt; 0 &#46;AND&#46; MsgNoYes&#40; &quot;Desea reparar las bases!!&quot; + CRLF + &quot;antes de prodeder hacer una copia de respaldo&quot;, &quot;usuario&quot; &#41;\n	lIndex &#58;= &#46;t&#46;\n	for i &#58;= 1 to len&#40; aBase &#41;\n\n		cDbf &#58;= aBase&#91;i&#93;\n\n		use &#40;ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot; + cDbf &#41;exclusive VIA &quot;DBFCDX&quot;\n\n		if !NetErr&#40;&#41;\n\n			if file&#40; cPath + &quot;\\&quot; + cDbf + &quot;&#46;dbf&quot; &#41;\n				MsgRun&#40; &quot;Espere, importando &quot; +cDbf+&quot;&#91;&quot;+str&#40;i,2&#41;+&quot;/&quot;+str&#40;len&#40;abase&#41;,2&#41;+&quot;&#93;&quot;, &quot;Usuario&quot;,;\n							 &#123; || __dbApp&#40; cPath + &quot;\\&quot;+cDbf,&#123; &#125;,,,,,&#46;F&#46;,&quot;DBFCDX&quot;&#41; &#125; &#41;\n\n				USE\n				if fErase&#40; cPath + &quot;\\&quot; + cDbf + &quot;&#46;DBF&quot; &#41; = 0\n					if file&#40; cPath + &quot;\\&quot; + cDbf + &quot;&#46;fpt&quot; &#41;\n						fErase&#40; cPath + &quot;\\&quot; + cDbf + &quot;&#46;fpt&quot; &#41;\n						FileCopy&#40; ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot; + cDbf + &quot;&#46;fpt&quot;, cPath + &quot;\\&quot; + cDbf + &quot;&#46;fpt&quot; &#41;\n					endif\n					FileCopy&#40; ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot; + cDbf + &quot;&#46;DBF&quot;, cPath + &quot;\\&quot; + cDbf + &quot;&#46;DBF&quot; &#41;\n				else\n					MsgInfo&#40; &quot;Error al borrar &quot;+ cPath + &quot;\\&quot; + cDbf + &quot;&#46;DBF&quot; &#41;\n				endif\n			else\n				USE\n				FileCopy&#40; ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot; + cDbf + &quot;&#46;DBF&quot;, cPath + &quot;\\&quot; + cDbf + &quot;&#46;DBF&quot; &#41;\n				if file&#40; ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot; + cDbf + &quot;&#46;FPT&quot; &#41;\n					FileCopy&#40; ViewUsu&#40;&#41;&#58;cPathDbf + &quot;\\&quot; + cDbf + &quot;&#46;fpt&quot;, cPath + &quot;\\&quot; + cDbf + &quot;&#46;fpt&quot; &#41;\n				endif\n			endif\n		else\n			msginfo&#40; &quot;imposible abrir base&quot; + cDbf &#41;\n		endif\n		USE\n	next i\nendif\n\naDir &#58;= Directory&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\chkDbf\\*&#46;*&quot; &#41;\naEval&#40; aDir, &#123; |x| cDbf &#58;= X&#91;1&#93;, fErase&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\chkDbf\\&quot;+ cDbf &#41; &#125; &#41;\n\nViewUsu&#40;&#41;&#58;cPathDbf &#58;= cPath  //restauramos el original\nAdsSetSearchPath&#40; ViewUsu&#40;&#41;&#58;cPathDbf &#41;\nDirRemove&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\chkDbf&quot; &#41;\n\nif lIndex\n	Indexar&#40; &#46;f&#46; &#41;\n	dbCloseAll&#40;&#41;\nendif\nreturn&#40; nil &#41;\n//---------------------------------------------------------------------------------------------------------------\n[/code:mg3l395t]','',0,'AIA=','mg3l395t',1,0,'',36,0,0),(34609,7558,2,1088,0,'201.155.7.216',1184185272,1,0,1,1,1,0,'','Envio de Correo','Alguien puede ayudarme con algun ejemplo de como enviar, recibir correos y verificar si se envio, tengo fw2.3, por ahi estuve leyendo que se hace con blat y sendmail, pero no encuentro donde bajarlo, me pueden auxiliar ????\' aahhh, se me olvidaba, es posible hacerlo con servidores que requieran autenticacion ???? , perdon pero recuerden que soy nueva en esto... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nsaludos a todos','',0,'AIA=','1ao6qc98',1,0,'',1088,0,0),(34610,7557,7,527,0,'88.24.25.223',1184190000,1,0,1,1,1,0,'','Una pregunta tonta, que es ADS','Que es ADS','',0,'AIA=','3iyre8pu',1,0,'',527,0,0),(34611,7556,6,73,0,'200.23.18.132',1184191032,1,0,1,1,1,0,'','','gracias patricio, la probare\nsalu2\npaco','',0,'AIA=','2dhhmlrl',1,0,'',73,0,0),(34612,7526,22,1014,0,'190.42.181.4',1184192506,1,0,1,1,1,1,'','','Hola Antonio.\nGracias por tu respuesta\nEsta bien el Nombre de la Clase del Objeto, pero lo que necesito es el Nombre del Objeto.  Imagínate que hay muchos Gets o Botones y deseo saber cuál de todos ellos tiene el foco.\nSaludos\nJorge Vargas','',0,'AIA=','2g4dqzga',1,0,'',1014,0,0),(34613,7559,3,578,0,'218.214.35.132',1184194233,1,0,1,0,1,0,'','Question: How do I change a button\'s label','oMyButton:cCaption := \"New label\" executes without error but the display is not affected.  What else do I need to do?\n\nThanks\n\nxProgrammer','',0,'AIA=','2zkshc24',1,0,'',578,0,0),(34614,7559,3,435,0,'200.155.193.235',1184194317,1,0,1,1,1,0,'','',':REFRESH()\n\nAri','',0,'AIA=','2mt2szdg',1,0,'',435,0,0),(34615,7559,3,578,0,'218.214.35.132',1184199375,1,0,1,0,1,0,'','Thanks - and the solution','Thanks for the suggestion Ari - but the problem was deeper.  Although cCaption contains the text that appears on the button, changing cCaption doesn\'t filter up to the parent classes - it just changes the value in the button object.  After a fair bit of searching source code and experimentation I found that oMyButton:SetText(\"New Caption\") works - which in hindsight is logical but I didn\'t see it because it is inherited back from the Window class and I was just looking at button class and control class.\n\nxProgrammer','',0,'AIA=','2nkjlbfm',1,0,'',578,0,0),(34616,7538,3,239,0,'219.137.195.62',1184208560,1,0,1,1,1,0,'','','On DOS,we can use :\n\n  while nextkey()&gt;0\n       cstr+=char(nextkey())\n       inkey()\n  end\n\n  keyboard  cstr \n\n  To get the keyboard buffer, and transport into current  oget.\n\nNow,  on windows , nextkey() not work.\n\nIs there any function to  get  the keyboard buffer ?\n\n<!-- m --><a class=\"postlink\" href=\"http://docs.mandragor.org/files/Common_libs_documentation/allegro/index006.html\">http://docs.mandragor.org/files/Common_ ... ex006.html</a><!-- m -->\n\nMight offer a way.\n\nThanks !\n\nShuming Wang','',0,'AIA=','2uep3skt',1,0,'',239,0,0),(34617,7554,6,904,0,'196.25.255.195',1184221841,1,0,1,1,1,1,'','','Super. Thank you very much.','',0,'AIA=','1okrgt42',1,0,'',904,0,0),(34618,7553,3,904,0,'198.54.202.250',1184222066,1,0,1,1,1,1,'','','Thank you. oImage:Hide() gave me what I was looking for.','',0,'AIA=','259udjy8',1,0,'',904,0,0),(34619,7554,6,838,0,'80.34.222.112',1184223145,1,0,1,1,1,0,'','','También puedes hacer:\nEl get del campo memo es el siguiente:\n[code:3hxgl9if]    REDEFINE GET ocomen VAR ccomentario MEMO ID 113 OF oDlg[/code:3hxgl9if]\n\nY ahora le dices que cuando pulses Enter, que salte al objeto siguiente:\n[code:3hxgl9if]    ocomen&#58;bKeyDown &#58;= &#123; | nKey, nFlags | iif&#40;nkey==13,ocodcon&#58;Setfocus&#40;&#41;,&#41;&#125;[/code:3hxgl9if]\n\nSaludos\n\nJose Luis','',0,'AIA=','3hxgl9if',1,0,'',838,0,0),(34620,7557,7,2,0,'87.218.146.119',1184224073,1,0,1,1,1,1,'','','&gt; Que es ADS ?\n\nAdvantage DataBase Server. Para los usuarios de Clipper/Harbour es un RDD que permite usar las bases de datos de nuestras aplicaciones en modo cliente/servidor.','',0,'AIA=','2v64i1yl',1,0,'',2,0,0),(34621,7549,3,130,0,'141.51.32.24',1184225166,1,0,1,1,1,1,'','','1: oBtn:Settext(...)\n\n2: AFAIK you can´t change the color of standard buttons. You can try to use the TsButton-class\n\nREDEFINE oGet VAR ...\noGet:Enable() or oGet:Disable()','',0,'AIA=','1qo66ltm',1,0,'',130,0,0),(34622,7560,3,904,0,'198.54.202.246',1184225710,1,0,1,1,1,1,'','Distorting oImage','I have an Image defined, but if the image chosen doesn\'t match the width to height ratio, the image gets distorted.  How can I shrink the image to fit the image box without distorting it?','',0,'AIA=','oz2g290b',1,0,'',904,0,0),(34623,7549,3,578,0,'218.214.35.132',1184227360,1,0,1,0,1,0,'','','Thanks for your help Stefan.  Prgressing well today.\n\nRegards\n\nxProgrammer','',0,'AIA=','26myvw2y',1,0,'',578,0,0),(34624,7561,3,904,0,'196.25.255.250',1184234518,1,0,1,1,1,1,'','Change Directory to where the EXE is','I cannot rely on the users\' shortcut to ensure I have the right \"working directory\"\n\nHow can I find the name of the directory of the EXE that is being run so I can change to the directory where the EXE is with \n\nDirChange(ALLTRIM( CurDrive() + \":\\\" + EXEDIR????()))','',0,'AIA=','lnmj8ae6',1,0,'',904,0,0),(34625,7561,3,6,0,'82.59.197.184',1184235603,1,0,1,1,1,1,'','Re: Change Directory to where the EXE is','[code:2mu51gkp]CFILEPATH&#40; GETMODULEFILENAME&#40; GETINSTANCE&#40;&#41; &#41; &#41; + &quot;YOUREXE&#46;EXE&quot;[/code:2mu51gkp]\n\nEMG','',0,'AIA=','2mu51gkp',1,0,'',6,0,0),(34626,7562,22,239,0,'219.136.110.237',1184235918,1,0,1,1,1,0,'','tget to support 2 bytes word winxp themes','As title,\nSupport 2 byte words /languages and winxp themes, it seems call win32 api TEdit .\n  Could convert the gets into fivewin ?\n  tget needs support: \n   1. 2 bytes word/ languages as Chinse .\n   2. winXP themes languages as Chinse .\n   3. unicode \nRegards\nshuming Wang','',0,'AIA=','hcuanfif',1,0,'',239,0,0),(34627,7563,22,239,0,'219.136.110.237',1184237178,1,0,1,1,1,0,'','enhance button and button interface /paint more beautiful','Mysqlbrowser,mysqltools, VC, firefox,miniGUI  button and button bar looks (shape ,style) better than  fivewin.\n  skinbutton  Vast,offce97,OSX looks more better.\n  Viabutton with  transporant colors.\n\nRegards!\n\nShuming Wang','',0,'AIA=','1nuxqupi',1,0,'',239,0,0),(34628,7564,6,907,0,'200.45.177.128',1184238058,1,0,1,1,1,0,'','Picture de Gests','Hola gente del foro.\n    Estoy cambiando un sistema de 16 bits a 32 bits, y estoy utilizando xHarbour + fwh. \n    Tengo un inconveniente en la inicialización de las variables y es este:\n\nTengo definido un get así:\n\n     REDEFINE BTNGET oGets[1] VAR vGets[1] ;            // Razón Social\n              ID 101 OF oDlg PICTURE \"@S100\"\n\ncomo puede verse el picture es un string de 100 caracteres,\n\ndespués de que se hace esto:\n\n     vGets[1]:= oRs:Fields(\"razon_social\"):Value\n\nya no puedo escribir más 100 caracteres, solo puedo escribir la cantidad de caracterres que contiene el valor del campo \"razon_social\". \nEj. si el campo \"razon_social\" contiene PRUEBA, solo me deja escribir 6 caracteres.\nQue estoy haciendo mal?\n\nFernando Monteporzi.\nSanto Tomé - Santa Fe - Argentina.\n<!-- e --><a href=\"mailto:fmontepo@yahoo.com.ar\">fmontepo@yahoo.com.ar</a><!-- e -->\n[/b]','',0,'','oorn5l19',1,0,'',907,0,0),(34629,7564,6,2,0,'87.218.146.209',1184238628,1,0,1,1,1,1,'','','Fernando,\n\nHazlo así:\n\nvGets[1]:= PadR( oRs:Fields(\"razon_social\"):Value, 100 )','',0,'','1nwvh9fs',1,0,'',2,0,0),(34630,7558,2,2,0,'87.218.146.209',1184238690,1,0,1,1,1,1,'','','Revisa el ejemplo de FiveWin samples\\TestMail.prg','',0,'','2e6qoxqq',1,0,'',2,0,0),(34631,7563,22,2,0,'87.218.146.209',1184238810,1,0,1,1,1,1,'','','Shuming,\n\nFiveWin uses Windows API standard buttons','',0,'','ex9vn8me',1,0,'',2,0,0),(34632,7562,22,2,0,'87.218.146.209',1184238874,1,0,1,1,1,1,'','','Do they support PICTUREs in Gets ?','',0,'','14dkujkx',1,0,'',2,0,0),(34633,7565,3,232,0,'62.48.206.147',1184239927,1,0,1,1,1,0,'','Antonio: Migration from FWH 2.5 to 7.5','My first problem is when I start the program allways appears a DOS window how can I hide it?\n\nThanks,\n  RCaridade','',0,'','3ga0rowb',1,0,'',232,0,0),(34634,7565,3,2,0,'87.218.146.185',1184245036,1,0,1,1,1,1,'','','Rui,\n\nYou have to use GTGUI.lib instead of GTWIN.lib','',0,'','3r8u54zp',1,0,'',2,0,0),(34635,7564,6,907,0,'200.45.225.61',1184245770,1,0,1,1,1,0,'','','Antonio, \n   Gracias.','',0,'','34leur0b',1,0,'',907,0,0),(34636,7565,3,232,0,'62.48.206.147',1184246925,1,0,1,1,1,0,'','','Thanks.','',0,'','7heqjt5s',1,0,'',232,0,0),(34637,7561,3,904,0,'198.54.202.250',1184249592,1,0,1,1,1,1,'','','Thank you very much.','',0,'','34708lf9',1,0,'',904,0,0),(34638,7566,20,154,0,'151.21.34.185',1184250053,1,0,1,1,1,1,'','Report','Ciao a tutti,\n\nè possibile preparare dei report (con la classe TReport) in orizzontale?\nnon sono riuscito a trovare comandi o esempi a riguardo.\n\nGrazie per i suggerimenti.','',0,'','3pcpfet5',1,0,'',154,0,0),(34639,7557,7,527,0,'88.24.25.223',1184250132,1,0,1,1,1,0,'','Gracias','Gracias.','',0,'','x6w4ax8m',1,0,'',527,0,0),(34640,7566,20,6,0,'87.21.213.106',1184250995,1,0,1,1,1,1,'','Re: Report','[code:3o4whf9l]PRNLANDSCAPE&#40;&#41;[/code:3o4whf9l]\n\nprima del comando\n\n[code:3o4whf9l]REPORT oRpt[/code:3o4whf9l]\n\ne\n\n[code:3o4whf9l]PRNPORTRAIT&#40;&#41;[/code:3o4whf9l]\n\nalla fine, dopo\n\n[code:3o4whf9l]ACTIVATE REPORT oRpt[/code:3o4whf9l]\n\nEMG','',0,'AIA=','3o4whf9l',1,0,'',6,0,0),(34641,7566,20,154,0,'151.21.34.185',1184252910,1,0,1,1,1,1,'','','Enrico,\ngrazie ma ora mi accade che stampa solo in orizzontale <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nCertamente sbaglio qualcosa ...\nQuesto è il pezzo di codice:\n[code:17esxxqz] \n   IF &#58;&#58;lPrinter\n      // imposto la stampante!\n      PrinterSetup&#40;&#41;\n   ENDIF\n\n   PrnLandscape&#40;&#41;\n\n   REPORT oRpt PREVIEW TITLE &#58;&#58;cTitolo\n\n   IF &#58;&#58;nPrnOrien == 1\n      PrnPortrait&#40;&#41;\n      MsgInfo&#40; &quot;Impostato Portrait&quot; &#41;\n   ELSE\n      PrnLandscape&#40;&#41;\n      MsgInfo&#40; &quot;Impostato Landscape&quot; &#41;\n      // Anche quando passa di qui stampa orizzontale\n   ENDIF\n\n[/code:17esxxqz]','',0,'AIA=','17esxxqz',1,0,'',154,0,0),(34642,7567,3,1112,0,'84.222.108.158',1184254868,1,0,1,1,1,0,'','A little big problem with command SORT on DBT files','HARBOUR 7.01 2007 build.\nI have a problem with command SORT on DBT files.\nAfter execution of command SORT, the file DBT loose data.\nIs it my fault or is this a real BUG ?\n\nCiao and thanks\nMassimo\n\n\n[code:2rxwybk1]\n#include &quot;Fivewin&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n        LOCAL   cNameD &#58;= &quot;BEGSORT&#46;DBF&quot;\n        LOCAL   cNameM &#58;= &quot;BEGSORT&#46;DBT&quot;\n        LOCAL   cNameDS &#58;= &quot;ENDSORT&#46;DBF&quot;\n        LOCAL   cNameMS &#58;= &quot;ENDSORT&#46;DBT&quot;\n        LOCAL   aStr &#58;= &#123; &#123; &quot;FLDDESCR&quot;, &quot;C&quot;, 40, 0 &#125;, ;\n                          &#123; &quot;FLDMEMO&quot;,  &quot;M&quot;, 10, 0 &#125; &#125;\n\n        IF FILE&#40; cNameD &#41;\n                FERASE&#40; cNameD &#41;\n        ENDIF\n        IF FILE&#40; cNameM &#41;\n                FERASE&#40; cNameM &#41;\n        ENDIF\n\n        IF FILE&#40; cNameDS &#41;\n                FERASE&#40; cNameDS &#41;\n        ENDIF\n        IF FILE&#40; cNameMS &#41;\n                FERASE&#40; cNameMS &#41;\n        ENDIF\n\n\n        DBCREATE&#40; cNameD, aStr &#41;\n\n        USE &amp;cNameD\n\n        APPEND BLANK\n        REPLACE FLDDESCR WITH &quot;First record&quot;\n        REPLACE FLDMEMO  WITH &quot;First memo record&quot;\n\n        APPEND BLANK\n        REPLACE FLDDESCR WITH &quot;Second record&quot;\n        REPLACE FLDMEMO  WITH &quot;Second memo record&quot;\n\n        SORT ON FLDDESCR TO &amp;cNameDS\n\n        USE\n        \n        MessErr&#40; &quot;After sort the file memo ENDSORT is empty ?????&quot; &#41;\n        \n        USE ENDSORT\n        MessErr&#40; ALLTRIM&#40; FIELD-&gt;FLDDESCR &#41; + &quot; &lt;&quot; + FIELD-&gt;FLDMEMO + &quot;&gt;&quot; &#41;\n        SKIP\n        MessErr&#40; ALLTRIM&#40; FIELD-&gt;FLDDESCR &#41; + &quot; &lt;&quot; + FIELD-&gt;FLDMEMO + &quot;&gt;&quot; &#41;\n        USE\nRETURN NIL\n\nFUNCTION MessErr&#40; Mess &#41;\n        MsgBeep&#40;&#41;\n        MsgAlert&#40; Mess, &quot;ATTENZIONE&quot; &#41;\nRETURN NIL\n[/code:2rxwybk1][/code]','',0,'AIA=','2rxwybk1',1,0,'',1112,0,0),(34643,3321,6,907,0,'200.45.225.61',1184255449,1,0,1,1,1,0,'','','Carlos,\nen este link:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c580ac72/EFiscal.prg.rar.html\">http://hyperupload.com/download/02c580a ... g.rar.html</a><!-- m -->\npodés bajar un .PRG originalmente realizado por Triñanez con algunas modificaciones nuestras y ejemplos para que realices la impresión en un controlador fiscal. Lo probamos con una TM200AF+ y con una TMU y funciona perfectamente.\nSaludos.\nFernando.','',0,'AIA=','itc5r929',1,0,'',907,0,0),(34644,7557,7,138,0,'189.141.69.200',1184255849,1,0,1,1,1,1,'','Re: Una pregunta tonta, que es ADS','[quote=&quot;mjcc&quot;:aw2b294p]Que es ADS[/quote:aw2b294p]\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com/ads.htm\">http://www.google.com/ads.htm</a><!-- m -->','',0,'gA==','aw2b294p',1,0,'',138,0,0),(34645,7567,3,6,0,'87.21.213.106',1184255983,1,0,1,1,1,1,'','Re: A little big problem with command SORT on DBT files','I confirm the bug and I\'m going to report it to the Harbour and xHarbour developers list.\n\nThank you!\n\nEMG','',0,'gA==','1hlt5qb0',1,0,'',6,0,0),(34646,7566,20,6,0,'87.21.213.106',1184256194,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:2wtje5by][code:2wtje5by]      PrnLandscape&#40;&#41;\n      MsgInfo&#40; &quot;Impostato Landscape&quot; &#41;\n      // Anche quando passa di qui stampa orizzontale\n   ENDIF\n\n[/code:2wtje5by][/quote:2wtje5by]\n\nCerto, landscape è la stampa orizzontale.\n\nEMG','',0,'gIA=','2wtje5by',1,0,'',6,0,0),(34647,7558,2,1088,0,'201.155.7.216',1184256497,1,0,1,1,1,0,'','','gracias antonio, ya revise el programa, pero aun tengo algunas dudas:\n-necesito enviar correos en un servidor que requiere autenticacion\n-saber el status del mensaje (si fue enviado o no)\n-si lo puedo hacer con fw23 \n\nte agradeceria mucho si me puedes mandar un ejemplo mas preciso o como hacerlo con BLAT o algo que me aconsejes....\nun abrazo de su amiga yadira, no se desesperen conmiga por fa <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n<!-- e --><a href=\"mailto:yadira_lcastro@hotmail.com\">yadira_lcastro@hotmail.com</a><!-- e -->','',0,'gIA=','2h1x3vkt',1,0,'',1088,0,0),(34648,7566,20,154,0,'151.21.34.185',1184256863,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:collh1w3]\n\nCerto, landscape è la stampa orizzontale.\n\n[/quote:collh1w3]\n\nSi, scusa ho sbagliato a mettere il commento  <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nanche dal Portrait stampa orizzontale!!!!!','',0,'gA==','collh1w3',1,0,'',154,0,0),(34649,7566,20,154,0,'151.21.34.185',1184257836,1,0,1,1,1,1,'','','Enrico,\nho risolto!\n\nL\'impostazione deve essere fatta prima della dichiarazione del report.','',0,'gA==','vfbwsj9o',1,0,'',154,0,0),(34650,7568,7,720,0,'80.36.244.134',1184258282,1,0,1,1,1,0,'','Como usar los datos de una tabla en un combobox...','Hola a todos...\n\nNecesito vuestra ayuda. Tengo un combo en el que cada elemento debe ser un campo de una tabla, pero me da error....\n\nYo lo estoy usando de la siguiente manera:\n\n....\n\nredefine combobox oCombo var cItems ITEMS alltrim(almacenes-&gt;nombre) id 200 of odlg30\n\n....\n\nPero al intentar ejecutarlo me da un error que pone:\n\n\nArgument error\nAEVAL\n   Args:\n     [   1] = C   Almacen uno\n     [   2] = B   {|| ... }\n\nstack calls:\nTCOMBOBOX:DEFAULT(0)\nTCOMBOBOX:INITIATE(0)\n__OBJSENDMSG(0)\nOSEND(0)\nASEND(0)\nTDIALOG:INITIATE(0)\nTDIALOG:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nSELECCION_ALMACEN(252)\n(b)BOTONERA(211)\nTBTNBMP:CLICK(0)\nTBTNBMP:LBUTTONUP(0)\nTWINDOW:HANDLEEVENT(0)\nTBTNBMP:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nINVENTARIO(487)\n(b)MAIN(38)\nTBITMAP:LBUTTONDOWN(0)\nTWINDOW:HANDLEEVENT(0)\nTCONTROL:HANDLEEVENT(0)\nTBITMAP:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nMAIN(45)\n\Z\n\nUn saludo a todos...\n\nElías Torres.','',0,'','3vg7oqbv',1,0,'',720,0,0),(34651,7538,3,303,0,'72.199.41.171',1184259616,1,0,1,1,1,0,'','','Shuming,\n\nRE: keyboard buffer\n\nThere are lots of answers to your question. What exactly are you trying to do?\n\nJames','',0,'','13tp6nsw',1,0,'',303,0,0),(34652,7566,20,6,0,'87.21.213.106',1184263764,1,0,1,1,1,1,'','','Come, appunto ti avevo detto. Comunque potrebbe dipendere anche dall\'opzione oRpt:lAutoLand che fa stampare in orizzontale quando necessario e che è attivata di default.\n\nEMG','',0,'','3m7c82wa',1,0,'',6,0,0),(34653,7569,3,904,0,'198.54.202.210',1184272477,1,0,1,1,1,1,'','How can I CENTRE my main application window ?','How can I CENTRE my main application window ?  \n\nCENTER is not allowed in the command\n\nDEFINE WINDOW Win_Main FROM 0, 0 TO 600, 800 PIXEL TITLE \'Hello World\' MDI ICON oIcon MENU mainmenu() \n   DEFINE BUTTONBAR oMain_Toolbar OF Win_Main SIZE 70, 50 3D \n   DEFINE BUTTON of oMain_Toolbar PROMPT \"New Report\" TOP ACTION newreport( ) \n   DEFINE BUTTON of oMain_Toolbar PROMPT \"Search\" TOP ACTION searchreport( )\n   DEFINE BUTTON of oMain_Toolbar PROMPT \"Exit\"  TOP ACTION quitprog() \n   ACTIVATE WINDOW Win_Main ON INIT LOGON() VALID lExitAllowed CENTER ???','',0,'','sqsw7psa',1,0,'',904,0,0),(34654,3321,6,940,0,'189.157.91.25',1184273876,1,0,1,1,1,1,'','','hola yo lo hago con la tdosprn,\n\npero es importante conocer otras opciones,,\n\nFernando ,\n\nel archivo que comentas en el link esta en 0K.\n\nSALUDOS..','',0,'','2vr3hqvm',1,0,'',940,0,0),(34655,7570,6,774,0,'200.72.65.144',1184274684,1,0,1,1,1,1,'','IMPRIMIR UN ARCHIVO PLANO .TXT','Amigos cual es la forma mas rapida y facil de imprimir un archivo plano un .txt,, desde codigo,, y que dicha impresion se haga en la impresora por defecto del pc de dnd se imprima\n\nrecuerdo que en DOS era PRINT LTP1 archivo.txt,,, pero la limitante era que solo se podia en la LPT1,, creo\n\nalguien sabe\n\nGRACIAS','',0,'','2f8ttgvq',1,0,'',774,0,0),(34656,7569,3,6,0,'87.21.213.106',1184276685,1,0,1,1,1,1,'','Re: How can I CENTRE my main application window ?','[code:1r625msa]WNDCENTER&#40; oWnd&#58;hWnd &#41;[/code:1r625msa]\n\nEMG','',0,'AIA=','1r625msa',1,0,'',6,0,0),(34657,7569,3,904,0,'196.25.255.210',1184278153,1,0,1,1,1,1,'','','Thanks for the response.\n\nPlease excuse my ignorance.\n\nWhere do I put this?\n\nI put \n\nWNDCENTER( Win_Main:hWnd )\n\nAfter my ACTIVATE WINDOW statement and it seems to have no effect.','',0,'AIA=','2ypct5rv',1,0,'',904,0,0),(34658,7569,3,6,0,'87.21.213.106',1184278242,1,0,1,1,1,1,'','','Not after, before.\n\nEMG','',0,'AIA=','39mjwt5t',1,0,'',6,0,0),(34659,7569,3,904,0,'198.54.202.250',1184278628,1,0,1,1,1,1,'','','Super.  Thank you very much.','',0,'AIA=','3mig2269',1,0,'',904,0,0),(34660,7571,2,890,0,'200.24.110.196',1184283532,1,0,1,1,1,0,'','Acerca de las ayudas','Hola a todos en el foro\n\nAntonio \nAdemás de presentar mi agradecimiento por todas tus enseñanzas que a lo largo del desarrollo del programa recibí de ti y de algunos integrantes del foro del que quedo muy impresionado quiero pedirte otra enseñanza. Como hago para crear ayudas o explicaciones del programa  con el botón derecho del Mouse o creando un botón help en cada dialogo, recuerda que   dispongo solo de 16 bit. Se manejar el HelpWorkShop de Windows en tu explicación dime si esa herramienta me sirve pero como te explico no se como se “conecta” con fiveWin.\n\nCordialmente\n\nJairo Barbosa','',0,'AIA=','36ouon3i',1,0,'',890,0,0),(34661,7572,3,98,0,'70.71.111.92',1184285377,1,0,1,1,1,1,'','TOLEAuto, Outlook and Attachments','Hello:\n\nAnyone working with TOLEAuto and Outlook?\n\nI\'m would like to know if anyone has a way to identify\nthose pesky little attachments added by different\nanti-virus software regarding the state of the email.\n\nWe have an Outlook plugin which allows user to select\nan email and link and save attachments back to our app.\nInstead of having the user weed out unneeded attachments\nlike the one mentioned, it would be nice to simple\nskip/ignore this kind of attachments (same would go for\nthat pesky winmail.dat that sometimes you get from someone\nusing Outlook with custom fields but your email client isn\'t\noutlook, you end up with the infamous winmail.dat).\n\nAny clues, ideas, snippets are appreciated.\n\nRegards,\n\nLuis Krause','',0,'AIA=','2zbzvtff',1,0,'',98,0,0),(34662,7538,3,239,0,'219.136.110.237',1184291346,1,0,1,1,1,0,'','','James \n  I want xbrowse/wbrowse/txbrowse edit as excel and support Chinese 2 bytes word.\n  browse--keychar()--col:edit()\n  For example:\n   browse as \n    name  descrip        tel\n    Bob     computer   920888888\n    &#24352;&#19977;     [color=blue:3ilzkmyr]&#31243;&#24207;&#21592; [/color:3ilzkmyr]     023999999\n    &#26446;&#22235;     &#31995;&#32479;&#20998;&#26512;&#24072;   139999999\n\n\n  When browse cursor at row 2,col3 , and type 9, then browse call keychar() method ,then call  oCol:Edit( nKey ) and create tget and the pre typed  chr(9) will become the first char on  the get as  9\n   when  browser cursor at  row 2 ,col2, and type  Chinese words &#31243;&#24207;&#21592;,then oget  should  display  &#31243;&#24207;&#21592;,but oCol:Edit( nKey ) only transport the first char, a Chinse word contianed  2 bytes, sometimes many bytes.\n  If we can get the keyboard buffer and  do a keybord command , then transport all the words into the oget .\n\nRegards !\nShuming Wang','',0,'Ag==','3ilzkmyr',1,0,'',239,0,0),(34663,7538,3,303,0,'72.199.41.171',1184292119,1,0,1,1,1,0,'','','Shuming,\n\n&gt;If we can get the keyboard buffer and do a keybord command , then transport all the words into the oget .\n\nI am guessing that it is a whole lot more complicated than that.\n\nI have no experience with Chinese (or any language other than English) so I can\'t offer much help. There is a data, nLastKey, that contains the last keystroke typed, but I don\'t know if that will help. nLastkey is part of the TWindow class so all controls inherit it.\n\nI don\'t quite understand when you say a Chinese word 3 characters long is entered, but only the first character ends up in the Get. Do you mean that three keystrokes are used to create this word, or?\n\nPerhaps someone with other language experience can help.\n\nJames','',0,'Ag==','3mwb1x25',1,0,'',303,0,0),(34664,7562,22,239,0,'219.136.110.237',1184298681,1,0,1,1,1,0,'','','Yes!\n\nShuming Wang','',0,'Ag==','fx9fm82y',1,0,'',239,0,0),(34665,7568,7,456,0,'217.127.39.57',1184305229,1,0,1,1,1,1,'','','Hola Elias,\nel parametro ITEMS del combobox debe ser un array, prueba de la siguiente manera.\n[code:r9qwa8ld]\n&#46;&#46;&#46;\naNombre&#58;=&#123;&#125;\nAlmacenes-&gt;&#40;dbEval&#40;&#123;||aAdd&#40;aNombre,AllTrim&#40;Nombre&#41;&#41;&#125;&#41;&#41;\n\nredefine combobox oCombo var cItems ITEMS aNombre id 200 of odlg30 \n&#46;&#46;&#46;\n[/code:r9qwa8ld]','',0,'AIA=','r9qwa8ld',1,0,'',456,0,0),(34666,7566,20,154,0,'151.21.77.10',1184311326,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2qguv4y1]Come, appunto ti avevo detto. [/quote:2qguv4y1]\nSi in effetti, subito non avevo capito bene!  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n[quote=&quot;EnricoMaria&quot;:2qguv4y1]Comunque potrebbe dipendere anche dall\'opzione oRpt:lAutoLand che fa stampare in orizzontale quando necessario e che è attivata di default[/quote:2qguv4y1]\n\nNon capisco, la stampa è sempre verticale anche quando definisco più colonne rispetto a quelle stampabili...\nIn questo caso mi ritorna un messaggio che avverte che la stampa non sta nel foglio, con 2 bottoni \"SI\" e \"NO\", se premi no non stampa ed esce altrimenti esegue la stampa in verticale facendo vedere solo le colonne visibili.','',0,'gA==','2qguv4y1',1,0,'',154,0,0),(34667,7560,3,130,0,'141.51.32.24',1184312144,1,0,1,1,1,1,'','','You can use the clause ADJUST','',0,'gA==','120dfmhf',1,0,'',130,0,0),(34668,7558,2,2,0,'87.218.146.83',1184312340,1,0,1,1,1,1,'','','Yadira,\n\nHaz una búsqueda en estos foros por mail ó por correo. Encontrarás bastantes mensajes','',0,'gA==','15zqeoht',1,0,'',2,0,0),(34669,7562,22,2,0,'87.218.146.83',1184313012,1,0,1,1,1,1,'','','Shuming,\n\nThen, why don\'t you review their source code and modify FWH Class TGet for your needs ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1cl0n58e',1,0,'',2,0,0),(34670,7538,3,154,0,'151.21.77.10',1184313579,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:6072ds56]I don\'t quite understand when you say a Chinese word 3 characters long is entered, but only the first character ends up in the Get. Do you mean that three keystrokes are used to create this word, or?[/quote:6072ds56]\nJames,\nI have the same problem!  \nsee:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=28186#28186\">http://fivetechsoft.com/forums/viewtopi ... 8186#28186</a><!-- m -->  \ndo you remember?  \n\nShuming, \ncan you test the sample and report here?  \nIs the same problem?  \n\nSorry for my bad english!','',0,'gA==','6072ds56',1,0,'',154,0,0),(34671,6251,3,154,0,'151.21.77.10',1184313619,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:2fqflrjs][quote=&quot;James Bott&quot;:2fqflrjs]What I see is that if you use Ctrl-V to paste it, it appears as a regular S, but if you use the right-click menu and select Paste, you get the special character, which then reverts to the regular S when you leave the field, or when you type anything else in the same field.\n\nI am using FWH 2.7 Aug 2006 build/xHarbour, XP Pro SP2.[/quote:2fqflrjs]\nJames,\nyes this is for the standard get, in the memo-get appears the special character with Ctrl+V and with Right click and Paste option, and is not possible to save.\n\nI am using FWH 7.01, xHarbour and BCC on XP-Pro Sp2[/quote:2fqflrjs]\n\nAny suggestion?','',0,'gA==','2fqflrjs',1,0,'',154,0,0),(34672,7538,3,239,0,'219.136.110.237',1184316458,1,0,1,1,1,0,'','','Ugo,James,\n Yes! the click, copy,paste,Ctrl+V of tget now works well. \n  Chinse input might be some words at the same time , can take as some chars at the same time .\nThanks!\nShuming Wang','',0,'gA==','1lydsezk',1,0,'',239,0,0),(34673,7562,22,239,0,'219.136.110.237',1184316866,1,0,1,1,1,0,'','','Antonio,\n  Sorry the last version \'tget not support Chinese word either, The cusor jump and display disorder code, the early versions &lt;2.06 works well.\n  I have no ability to enhance tget  . <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nShuming Wang[/img]','',0,'','11kt3aph',1,0,'',239,0,0),(34674,7563,22,239,0,'219.136.110.237',1184317928,1,0,1,1,1,0,'','','Antonio,\n  The 3d  shape might be refered to \n    WndBox( hDC, nTop - 1, nLeft - 1, nBottom, nRight )\n    WndBoxRaised( hDC, nTop, nLeft, nBottom - 1, nRight - 1 )\n\n    \\source\\functions\\wndboxes.c  \n   There are no the functions in MniGUI.    \n                                           \n   This is important for me, before ,I met some cusomers questioned our programs not real windows GUI, not as goods enough as ohter  windows GUI inter face,some even asked if we programming  under DOS GTK graphic library.\n  Vast API will be taken out,if we not invest to enhance, in the market ,what we will face to . \n Shuming Wang','',0,'','21jnpvoa',1,0,'',239,0,0),(34675,3321,6,294,0,'201.250.228.29',1184324050,1,0,1,1,1,1,'','','Fernando:\nEl archivo del link está vacio.\nMe interesaria bajar este archivo ya que necesito comunicarme con los impresores fiscales CASIO HASAR y EPSON.\nDesde ya muchas gracias.\nCesar','',0,'','3benndcu',1,0,'',294,0,0),(34676,7558,2,838,0,'80.34.222.112',1184324223,1,0,1,1,1,0,'','','Yadira\n\nTengo una aplicación que utiliza el envio como quieras, o via smtp, o mediante blat.\n\nLos dos admiten autenticación.\n\nsi me dices un correo, te mando lo que tengo hecho\n\nSaludos\n\nJose Luis','',0,'','2fqmy74a',1,0,'',838,0,0),(34677,7566,20,6,0,'87.18.210.32',1184324514,1,0,1,1,1,1,'','','Forse non hai una versione aggiornata di FWH? In quella che ho io (l\'ultima) lo switch da portrait a landscape avviene automaticamente.\n\nEMG','',0,'','2jq22o6f',1,0,'',6,0,0),(34678,7573,6,1105,0,'87.223.170.113',1184325957,1,0,1,1,1,0,'','actualización de Harbour y Fivewin','Hola:\n\nEstoy usando Harbour 0.45 y Fivewin 2.5 y me gustaría actualizarme. Tengo dos dudas:\n\n- ¿En la Harbour 0.45 los filtros con índices NTX siguen sin ir bien?. ¿Está ya solucionado en la 0.99?. Antonio, ¿qué versión de HArbour recomiendas?.\n\n- ¿La actualización exige algún cambio?.\n\nMuchas gracias. Salu2,','',0,'','3szabk4p',1,0,'',1105,0,0),(34679,7573,6,2,0,'87.218.146.114',1184327605,1,0,1,1,1,1,'','','Eduardo,\n\n&gt; ¿En la Harbour 0.45 los filtros con índices NTX siguen sin ir bien?. ¿Está ya solucionado en la 0.99?. \n\nYa van perfectamente bien, tanto los NTXs como los CDXs.\n\n&gt; ¿qué versión de HArbour recomiendas?. \n\nLa más reciente que nosotros distribuimos con FWH 7.05\n\n&gt; ¿La actualización exige algún cambio?. \n\nNo, solo usar GTGUI.lib en vez de GTWIN.lib. Por otra parte ya no se construye la aplicación en modo C++ sino en C. Revisando el buildh.bat suministrado con FWH 7.05 se ven los flags que hay que usar al llamar al bcc32.exe','',0,'','2nxo9x5s',1,0,'',2,0,0),(34680,7574,3,86,0,'81.83.185.118',1184332096,1,0,1,1,1,1,'','How to check OLE ?','Hello,\n\nI use OLE to build a connection between my appliction and MS-Word.\n\nI make the OLE-connection when my application is started. The Word-window becomes active when necessary. If I quit my application, the OLE-connection is broken en Word is closed.\n\nSo far so good, except when the use closes Word manually.\n\nHow can I check if the OLE-connetion is still OK ? Be careful : just checking if Word is opened, is not good enough. Word can be opened by the user manually which doesn\'t repair the OLE-connection.\n\nThanks a lot in advance','',0,'','1w9ov5nn',1,0,'',86,0,0),(34681,7538,3,154,0,'151.21.77.10',1184332698,1,0,1,1,1,1,'','','[quote=&quot;ShumingWang&quot;:2dt55din]Yes! the click, copy,paste,Ctrl+V of tget now works well. [/quote:2dt55din]\n\nShuming,\nhave you tested my sample?  \nYou can find the sample at \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6251&amp;start=0\">http://fivetechsoft.com/forums/viewtopi ... 51&amp;start=0</a><!-- m --> \nI Tested now and do not work!!    \nI can see the special characters after Ctrl+V but when exit from the control the char change in \"?\" \nin the case of use the clipboard the paste button, insert directly the \"?\" char(s).    \n\nNow I use FWHX 7.04, xHarbour 0.99.71 from CVS and Vista Business.  \n\nThe new version of FWH change this situation?','',0,'gA==','2dt55din',1,0,'',154,0,0),(34682,7574,3,6,0,'87.18.210.32',1184335110,1,0,1,1,1,1,'','Re: How to check OLE ?','I think you should follow one of two ways:\n\n1. is your app that creates, fills, prints and closes the document.\n\n2. as point 1 but your app doesn\'t close the document but shows it and leaves the rest to the user.\n\nEMG','',0,'gA==','30hxovpa',1,0,'',6,0,0),(34683,3571,6,147,0,'200.45.54.134',1184336071,1,0,1,0,1,1,'','','Retomo este antiguo hilo debido a que si bien todo funciona ok, en el siguiente excenario, se produce un error con el metodo :End():\n[code:wyxzhju8]\n   oExcel &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot;, &#46;F&#46; &#41;\n   oExcel&#58;WorkBooks&#58;Open&#40; cFilePath &#41;\n   oExcel&#58;Sheets&#40; 1 &#41;&#58;Select&#40;&#41;\n\n   oHoja &#58;= oExcel&#58;Get&#40; &quot;ActiveSheet&quot; &#41;\n   nTotalRows &#58;= oHoja&#58;UsedRange&#58;Rows&#58;Count&#40;&#41;\n\n   for nRow &#58;= 8 to nTotalRows\n        &#46;&#46;&#46;\n   next\n\n   oExcel&#58;WorkBooks&#58;Close&#40;&#41;\n   oExcel&#58;Quit&#40;&#41;\n   oExcel&#58;End&#40;&#41;     &#91;b&#93;me devuelve error&#91;/b&#93;\n   oExcel &#58;= NIL\n[/code:wyxzhju8]\n\nLo puedo comentar?; es suficiente con oExcel:Quit() ?\nTengo instalado la versión 2003 de Office, aunque obviamente no todos los clientes pueden tenerla instalada.\n\ngracias','',0,'AIA=','wyxzhju8',1,0,'',147,0,0),(34684,7560,3,904,0,'196.25.255.250',1184336405,1,0,1,1,1,1,'','','Thank you. (I actually had the ADJUST clause, the problem was solved when I removed it.)\n\nThanks again.','',0,'AIA=','3ezdmg8k',1,0,'',904,0,0),(34685,7575,20,154,0,'151.21.77.10',1184338104,1,0,1,1,1,1,'','DbCombo','Ciao a tutti,\n\nè possibile impostare via software a runtime un item in un DbCombo?\n\nL\'area è aperta, indicizzata sul campo visualizzato, ho fatto varie prove ma non ci riesco!\n\nGrazie per i suggerimenti.','',0,'AIA=','1i16qg8h',1,0,'',154,0,0),(34686,7566,20,154,0,'151.21.77.10',1184338152,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2lp7i9bm]Forse non hai una versione aggiornata di FWH? In quella che ho io (l\'ultima) lo switch da portrait a landscape avviene automaticamente.[/quote:2lp7i9bm]\n\nUso la FWHX 7.04 con xHb CVS 0.99.71 e Vista Business.\nNon è poi così vecchia!','',0,'gA==','2lp7i9bm',1,0,'',154,0,0),(34687,7576,3,904,0,'198.54.202.234',1184338272,1,0,1,1,1,1,'','Portrait vs Landscape Image','If a picture was taken Portrait, can I rotate it to display correctly with FiveWin?','',0,'gA==','3alorjbm',1,0,'',904,0,0),(34688,7566,20,6,0,'87.18.210.32',1184338508,1,0,1,1,1,1,'','','No, direi di no. Allora deve funzionare così anche a te. Praticamente, se la stampa non entra in verticale allora la TReport passa automaticamente in orizzontale. Se poi non entra neanche in orizzontale allora ti dà il messaggio ma comunque stampa in orizzontale pur troncando il testo che non entra nel foglio.\n\nControlla che la variabile oRpt:lAutoLand non sia impostata a .F.\n\nEMG','',0,'gA==','mgtqroim',1,0,'',6,0,0),(34689,7576,3,6,0,'87.18.210.32',1184338914,1,0,1,1,1,1,'','Re: Portrait vs Landscape Image','This is a sample using FreeImage.dll or LibGfl.dll:\n\n[code:3rjdvs3y]#include &quot;Fivewin&#46;ch&quot;\n\n\nSTATIC hLib, hLibGFL\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, hBmp\n\n    DEFINE WINDOW oWnd\n\n//    hBmp = GFLLOADIMG&#40; &quot;IMAGE&#46;JPG&quot;, 80, 50, 90 &#41;\n    hBmp = FILOADIMG&#40; &quot;IMAGE&#46;JPG&quot;, 90 &#41;\n\n    ACTIVATE WINDOW oWnd;\n             ON PAINT MYBKGRND&#40; oWnd, hDC, hBmp &#41;;\n             MAXIMIZED\n\n    IF hBmp != 0; DELETEOBJECT&#40; hBmp &#41;; ENDIF\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MYBKGRND&#40; oWnd, hDC, hBmp &#41;\n\n    LOCAL nTop    &#58;= &#40; oWnd&#58;nHeight&#40;&#41; - NBMPHEIGHT&#40; hBmp &#41; &#41; / 2\n    LOCAL nLeft   &#58;= &#40; oWnd&#58;nWidth&#40;&#41; - NBMPWIDTH&#40; hBmp &#41; &#41; / 2\n    LOCAL nWidth  &#58;= NBMPWIDTH&#40; hBmp &#41;\n    LOCAL nHeight &#58;= NBMPHEIGHT&#40; hBmp &#41;\n\n    IF hBmp = 0; RETURN NIL; ENDIF\n\n    PALBMPDRAW&#40; hDC, nTop, nLeft, hBmp, , nWidth, nHeight &#41;\n\n    RETURN NIL\n\n\n#define CBM_INIT 4\n\n#define DIB_RGB_COLORS 0\n\n\nFUNCTION FILOADIMG&#40; cFile, nAngle &#41;\n\n    LOCAL nFormat, hDib, hDibR, hInfoH, hInfo, hBits, hWnd, hDC, hBmp\n\n    DEFAULT nAngle &#58;= 0\n\n    IF UPPER&#40; CFILEEXT&#40; cFile &#41; &#41; = &quot;BMP&quot;\n        RETURN READBITMAP&#40; 0, cFile &#41;\n    ENDIF\n\n#ifdef __CLIPPER__\n    hLib = LOADLIB32&#40; &quot;freeimage&#46;dll&quot; &#41;\n#else\n    hLib = LOADLIBRARY&#40; &quot;freeimage&#46;dll&quot; &#41;\n#endif\n\n    if hLib &lt;= 32\n        MsgStop&#40; &quot;Cannot load FreeImage&#46;dll&quot; &#41;\n        return 0\n    endif\n\n    nFormat = FIGETFILETYPE&#40; cFile, 0 &#41;\n\n    hDib    = FILOAD&#40; nFormat, cFile, 0 &#41;\n    hDibR   = FIROTATE&#40; hDib, nAngle &#41;\n    hInfoH  = FIGETINFOHEADER&#40; hDibR &#41;\n    hInfo   = FIGETINFO&#40; hDibR &#41;\n    hBits   = FIGETBITS&#40; hDibR &#41;\n    hWnd    = GETDESKTOPWINDOW&#40;&#41;\n\n#ifdef __CLIPPER__\n    hDC = GETDC32&#40; hWnd &#41;\n#else\n    hDC = GETDC&#40; hWnd &#41;\n#endif\n\n    hBmp = CREATEDIBITMAP&#40; hDC, hInfoH, CBM_INIT, hBits, hInfo, DIB_RGB_COLORS &#41;\n\n#ifdef __CLIPPER__\n    RELEASEDC32&#40; hWnd, hDC &#41;\n#else\n    RELEASEDC&#40; hWnd, hDC &#41;\n#endif\n\n    FIUNLOAD&#40; hDib &#41;\n    FIUNLOAD&#40; hDibR &#41;\n\n#ifdef __CLIPPER__\n    FREELIB32&#40; hLib &#41;\n#else\n    FREELIBRARY&#40; hLib &#41;\n#endif\n\n#ifdef __CLIPPER__\n    hBmp = NLOWORD&#40; WOWHANDLE16&#40; hBmp, 8 &#41; &#41;\n#endif\n\n    RETURN hBmp\n\n\nDLL32 STATIC FUNCTION FIGETFILETYPE&#40; cFileName AS LPSTR, nSize AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetFileType@8&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FILOAD&#40; nFormat AS LONG, cFileName AS LPSTR, nFlags AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_Load@12&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIUNLOAD&#40; hDib AS LONG &#41; AS VOID;\n      PASCAL FROM &quot;_FreeImage_Unload@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETINFOHEADER&#40; hDib AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetInfoHeader@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETINFO&#40; hDib AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetInfo@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIGETBITS&#40; hDib AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_GetBits@4&quot; LIB hLib\n\nDLL32 STATIC FUNCTION FIROTATE&#40; hDib AS LONG, nAngle AS _DOUBLE &#41; AS LONG;\n      PASCAL FROM &quot;_FreeImage_RotateClassic@12&quot; LIB hLib\n\nDLL32 STATIC FUNCTION GETDC32&#40; hWnd AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;GetDC&quot; LIB &quot;user32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION RELEASEDC32&#40; hWnd AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;ReleaseDC&quot; LIB &quot;user32&#46;dll&quot;\n\nDLL32 STATIC FUNCTION CREATEDIBITMAP&#40; hDC AS LONG, hInfoH AS LONG, nFlags AS LONG, hBits AS LONG, hInfo AS LONG, nUsage AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;CreateDIBitmap&quot; LIB &quot;gdi32&#46;dll&quot;\n\nDLL32 FUNCTION WOWHANDLE16&#40; nHandle AS LONG, nHandleType AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;WOWHandle16&quot; LIB &quot;wow32&#46;dll&quot;\n\n\n#include &quot;Struct&#46;ch&quot;\n\n\nSTATIC FUNCTION GFLLOADIMG&#40; cFile, nWidth, nHeight, nAngle &#41;\n\n    LOCAL oGflLoadParams &#58;= OGFLLOADPARAMS&#40;&#41;\n\n    LOCAL cBuffer\n\n    LOCAL hBitmap &#58;= 0, hBitmapR &#58;= 0, hBmp &#58;= 0\n\n    hLibGFL = LOADLIB32&#40; &quot;libgfl254&#46;dll&quot; &#41;\n\n    GFLLIBINIT&#40;&#41;\n\n    GFLENABLELZW&#40; 1 &#41;\n\n    cBuffer = oGflLoadParams&#58;cBuffer\n\n    GFLGETDEFPARAMS&#40; @cBuffer &#41;\n\n    oGflLoadParams&#58;cBuffer = cBuffer\n\n    GFLLOADTHUMBNAIL&#40; cFile, nWidth, nHeight, @hBitmap, oGflLoadParams&#58;cBuffer, 0 &#41;\n\n    IF hBitmap = 0; RETURN 0; ENDIF\n\n    GFLROTATE&#40; hBitmap, @hBitmapR, nAngle, 0 &#41;\n\n    IF hBitmapR = 0; RETURN 0; ENDIF\n\n    GFLCONVERTBITMAPINTODDB&#40; hBitmapR, @hBmp &#41;\n\n    GFLFREEBITMAPDATA&#40; hBitmap &#41;\n    GFLFREEBITMAPDATA&#40; hBitmapR &#41;\n\n    GFLLIBEXIT&#40;&#41;\n\n    FREELIB32&#40; hLibGFL &#41;\n\n    RETURN hBmp\n\n\nSTATIC FUNCTION OGFLLOADPARAMS&#40;&#41;\n\n    LOCAL oGflLoadParams\n\n    STRUCT oGflLoadParams\n        MEMBER nFlags     AS DWORD\n        MEMBER nFormatInd AS LONG\n        MEMBER nImageWant AS LONG\n        MEMBER nOrigin    AS WORD\n        MEMBER nClrModel  AS WORD\n        MEMBER nLinePad   AS DWORD\n        MEMBER nDefAlpha  AS BYTE\n        MEMBER nNoAlpha   AS BYTE\n        MEMBER nPngComp   AS BYTE\n        MEMBER nWMFHiRes  AS BYTE\n        MEMBER nWidth     AS LONG\n        MEMBER nHeight    AS LONG\n        MEMBER nOffset    AS DWORD\n        MEMBER nChanOrder AS WORD\n        MEMBER nChanType  AS WORD\n        MEMBER nPcdBase   AS WORD\n        MEMBER nEpsDpi    AS WORD\n        MEMBER nEpsWidth  AS LONG\n        MEMBER nEpsHeight AS LONG\n        MEMBER nLutType   AS WORD\n        MEMBER nReserved3 AS WORD\n        MEMBER nLutData   AS DWORD\n        MEMBER nLutFName  AS DWORD\n        MEMBER nAutoBal   AS BYTE\n        MEMBER nCameraBal AS BYTE\n        MEMBER nReserved4 AS WORD\n        MEMBER nRowGamma  AS DWORD\n        MEMBER nRowBright AS DWORD\n        MEMBER nRowRedSca AS DWORD\n        MEMBER nRowBluSca AS DWORD\n        MEMBER nRowFltDom AS DWORD\n        MEMBER nRowFltRng AS DWORD\n        MEMBER nRead      AS DWORD\n        MEMBER nTell      AS DWORD\n        MEMBER nSeek      AS DWORD\n        MEMBER nAllocBmp  AS DWORD\n        MEMBER nAllocPrm  AS DWORD\n        MEMBER nProgress  AS DWORD\n        MEMBER nProgPrm   AS DWORD\n        MEMBER nWantCan   AS DWORD\n        MEMBER nWantPrm   AS DWORD\n        MEMBER nUserPrm   AS DWORD\n    ENDSTRUCT\n\n    RETURN oGflLoadParams\n\n\nDLL32 STATIC FUNCTION GFLLIBINIT&#40;&#41; AS LONG;\n      PASCAL FROM &quot;gflLibraryInit&quot; LIB hLibGFL\n\nDLL32 STATIC FUNCTION GFLLIBEXIT&#40;&#41; AS VOID;\n      PASCAL FROM &quot;gflLibraryExit&quot; LIB hLibGFL\n\nDLL32 STATIC FUNCTION GFLENABLELZW&#40; nEnable AS LONG &#41; AS VOID;\n      PASCAL FROM &quot;gflEnableLZW&quot; LIB hLibGFL\n\nDLL32 STATIC FUNCTION GFLGETDEFPARAMS&#40; @cLoadParams AS LPSTR &#41; AS VOID;\n      PASCAL FROM &quot;gflGetDefaultLoadParams&quot; LIB hLibGFL\n\nDLL32 STATIC FUNCTION GFLLOADTHUMBNAIL&#40; cFileName AS LPSTR, nWidth AS LONG, ;\n                       nHeight AS LONG, @hBitmap AS PTR, cLoadParams AS LPSTR, cInformation AS LPSTR &#41; AS LONG;\n      PASCAL FROM &quot;gflLoadThumbnail&quot; LIB hLibGFL\n\nDLL32 STATIC FUNCTION GFLROTATE&#40; hBitmapSource AS PTR, @hBitmapDest AS PTR, nAngle AS LONG, nColor AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;gflRotate&quot; LIB hLibGFL\n\nDLL32 STATIC FUNCTION GFLFREEBITMAPDATA&#40; hBitmap AS PTR &#41; AS VOID;\n      PASCAL FROM &quot;gflFreeBitmapData&quot; LIB hLibGFL\n\nDLL32 STATIC FUNCTION GFLCONVERTBITMAPINTODDB&#40; hBitmap AS PTR, @hBmp AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;gflConvertBitmapIntoDDB&quot; LIB &quot;libgfle254&#46;dll&quot;[/code:3rjdvs3y]\n\nEMG','',0,'AIA=','3rjdvs3y',1,0,'',6,0,0),(34690,7558,2,1088,0,'201.155.7.216',1184339095,1,0,1,1,1,0,'','','muy amable jose luis\nmi correo es:\n<!-- e --><a href=\"mailto:yadira_lcastro@hotmail.com\">yadira_lcastro@hotmail.com</a><!-- e -->  (con guion bajo \"_\" yadira_lcastro)\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->  gracias','',0,'AIA=','cqzh0ohw',1,0,'',1088,0,0),(34691,7574,3,86,0,'81.83.185.118',1184339159,1,0,1,1,1,1,'','','Enrico,\n\nMy application creates, fills, prints and closes the document.\n\nThanks.','',0,'AIA=','2nsrcogm',1,0,'',86,0,0),(34692,7574,3,6,0,'87.18.210.32',1184339540,1,0,1,1,1,1,'','','Then what is the problem? Your user will not see the document at all and will cannot close it.\n\nEMG','',0,'AIA=','1qhexk19',1,0,'',6,0,0),(34693,7566,20,154,0,'151.21.77.10',1184340092,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:1yzxtkzd]No, direi di no. Allora deve funzionare così anche a te. Praticamente, se la stampa non entra in verticale allora la TReport passa automaticamente in orizzontale. Se poi non entra neanche in orizzontale allora ti dà il messaggio ma comunque stampa in orizzontale pur troncando il testo che non entra nel foglio.\n\nControlla che la variabile oRpt:lAutoLand non sia impostata a .F.\n[/quote:1yzxtkzd]\n\nSi, adesso funziona anche a me così! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nCerto che è molto meglio che doverlo forzare prima!!!\n\nMa la misura della larghezza del campo è possibile impostarla a mm? \n... e adesso cosa sono caratteri?','',0,'gA==','1yzxtkzd',1,0,'',154,0,0),(34694,7566,20,6,0,'87.18.210.32',1184340442,1,0,1,1,1,1,'','','Dovrebbe essere pari alla lunghezza di tante \"B\" quanti sono i caratteri del primo dato visualizzato. Potresti impostarlo in millimetri utilizzando il metodo Cmtr2Pix().\n\nEMG','',0,'gA==','1g4319ff',1,0,'',6,0,0),(34695,7566,20,154,0,'151.21.77.10',1184340789,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:1rmw2btk]Dovrebbe essere pari alla lunghezza di tante \"B\" quanti sono i caratteri del primo dato visualizzato. Potresti impostarlo in millimetri utilizzando il metodo Cmtr2Pix().[/quote:1rmw2btk]\n\nQuindi, data la larghezza che voglio, devo trovare quante \"B\" ci stanno per ottenere la larghezza del campo, giusto?','',0,'gA==','1rmw2btk',1,0,'',154,0,0),(34696,7566,20,6,0,'87.18.210.32',1184341033,1,0,1,1,1,1,'','','No, quello è il sistema con cui la TReport calcola le larghezze di default. Se tu le vuoi impostare diversamente devi dare la dimensione in punti di stampa che puoi ottenere dai centimetri utilizzando il metodo citato.\n\nEMG','',0,'gA==','yxyxyf97',1,0,'',6,0,0),(34697,7570,6,2,0,'87.218.146.114',1184344133,1,0,1,1,1,1,'','','test.prg\n\n[code:1n2p4jbd]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oPrn, cText &#58;= MemoRead&#40; &quot;test&#46;prg&quot; &#41;, n &#58;= 0\n   local nRowStep, oFont\n   \n   PRINTER oPrn PREVIEW\n   \n      DEFINE FONT oFont NAME &quot;Courier New&quot; SIZE 0, -10 OF oPrn\n      nRowStep = oPrn&#58;nVertRes&#40;&#41; / 40\n      \n      PAGE\n         while n &lt; 40\n            oPrn&#58;Say&#40; n * nRowStep, 1, MemoLine&#40; cText,, n + 1 &#41;, oFont &#41;\n            n++ \n         end   \n      ENDPAGE\n      \n   ENDPRINTER\n   \n   oFont&#58;End&#40;&#41;\n\nreturn nil\n[/code:1n2p4jbd]\n[url=http&#58;//imageshack&#46;us:1n2p4jbd][img:1n2p4jbd]http&#58;//img258&#46;imageshack&#46;us/img258/6875/printernm1&#46;png[/img:1n2p4jbd][/url:1n2p4jbd]','',0,'GIA=','1n2p4jbd',1,0,'',2,0,0),(34698,3571,6,138,0,'189.141.69.200',1184344307,1,0,1,1,1,1,'','','Quita el END(), con el solo Quit() es mas que suficiente.','',0,'GIA=','19iarcpa',1,0,'',138,0,0),(34699,7557,7,1104,0,'200.115.248.234',1184346286,1,0,1,1,1,0,'','','Ok gracias a todos por las respuestas.\nCreí que existía algo ya hecho para ADS debido a las líneas que están en el ejemplo que viene en FWPPC\\SAMPLE\\Buildce.bat\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads.lib &gt;&gt; msvc.tmp\nrem echo %hdir%\\lib\\ace32.lib &gt;&gt; msvc.tmp\n\nSaludos Esteban.','',0,'GIA=','2sbi9fhl',1,0,'',1104,0,0),(34700,2582,6,73,0,'200.23.18.132',1184351694,1,0,1,1,1,0,'','','Raymundo y Goosfancito,\nya modifique la wbrowse para que no pase eso de la font en la edicion, por aqui publique la clase y unas imagenes\nsalu2\npaco','',0,'GIA=','2spd466f',1,0,'',73,0,0),(34701,7577,6,760,0,'200.62.254.143',1184352791,1,0,1,1,1,0,'','build fwh7.01','Hola a todos del foro\n\nMi pregunta es, baje el build de este foro para usar con FWH7.01, y mi pregunta es si esta version del fwh7.01, es compatbile con versiones como la 2.7, 2.8 hasta la 2.4....\n\nSalu2\n\nFrancis','',0,'GIA=','1a78me8b',1,0,'',760,0,0),(34702,7489,6,760,0,'200.62.254.143',1184353459,1,0,1,1,1,0,'','Ayuda version xharbour','Creo que se baja de este mismo foro.... en la seccion novedades\n\nEs algo confuso esto de los builds...\n\nSalu2 \n\nFrancis','',0,'GIA=','8zzijqmd',1,0,'',760,0,0),(34703,7578,6,935,0,'200.62.120.217',1184354025,1,0,1,1,1,1,'','Probablemente, sea sencillo..ayuda!','Hola amigos del foro,\n\nEstoy probando los menues tipo xp que arturo amablemente puso a la disposicion, todo compila y al final me manda un error asi :\n\nHarbour exception\n\nLIGHTCOLOR(0) \n\nY aborta la ejecucion, \n\nAlguien podria orientarme que hacer ?\n\nAgradezco cualquier ayuda,\n\n\nRamon paredes\nManagua, Nuicaragua','',0,'GIA=','6mnra4gv',1,0,'',935,0,0),(34704,7578,6,935,0,'200.62.120.217',1184354107,1,0,1,1,1,1,'','se me olvidaba','Utilizo fwh 7.01 + xharbour 0.99.71 + bcc++ + WORKSHOP','',0,'GIA=','2h0nt9vu',1,0,'',935,0,0),(34705,5448,3,234,0,'75.34.217.174',1184357608,1,0,1,1,1,1,'','','Hi James,\n\nI need to get the response from the website. Is it possible to retrieve the information in the response?','',0,'GIA=','1g6rvxdd',1,0,'',234,0,0),(34706,5448,3,303,0,'72.199.41.171',1184358178,1,0,1,1,1,0,'','','Darrell,\n\nI don\'t know. I have never used this site.\n\nThe difficulty is that the response will have a different URL each time. Possibly you could use OLE to get the url from IE, then read the page and strip out the data. Just an idea...\n\nJames','',0,'GIA=','19x15t8e',1,0,'',303,0,0),(34707,7557,7,2,0,'87.218.146.114',1184358410,1,0,1,1,1,1,'','','Esteban,\n\nCierto, tienes razón, esas líneas no deberían estar ahí. Esas líneas son para nuestro producto FWH.','',0,'GIA=','2gq4h9sc',1,0,'',2,0,0),(34708,7577,6,2,0,'87.218.146.114',1184359193,1,0,1,1,1,1,'','','Todas las versiones de FWH mantienen compatibilidad con versiones anteriores. La única limitación es cuando hay cambios en Harbour ó en xHarbour que obligan a cambios internos en FWH.','',0,'GIA=','nn4w10dj',1,0,'',2,0,0),(34709,7489,6,2,0,'87.218.146.114',1184359253,1,0,1,1,1,1,'','','Todos los PRGs tienen que estar recompilados con la versión de Harbour ó xHarbour que se use','',0,'GIA=','1rxy93b3',1,0,'',2,0,0),(34710,7578,6,2,0,'87.218.146.114',1184359415,1,0,1,1,1,1,'','','Prueba a poner varias trazas en LIGHTCOLOR() para ver en que línea se genera el error. Las trazas en C las puedes poner así:\n\nMessageBox( 0, \"aqui\", \"1\", 0 );\n...\nMessageBox( 0, \"aqui\", \"2\", 0 );\n...\n\ny así hasta que localices la línea que provoca el GPF','',0,'GIA=','8lqjzg44',1,0,'',2,0,0),(34711,3571,6,940,0,'189.157.69.164',1184360731,1,0,1,1,1,1,'','','un Voto mas por texcel, \n\nno solamente hace eso ,,  hace mucho mas,,,\n\nayer presisamente me tope con que tenia que leer un archivo de\n\ncodigos postales en excel, \n\nel libro, tenia 21 pestañas,  y en cada hoja habian entre 500 y 3 mil renglones\n\n\nestudiando un poquito la texcel,  \n\nsolucione el problema,\n\n\n\nsaludos..','',0,'GIA=','ti41titt',1,0,'',940,0,0),(34712,7511,6,940,0,'189.157.69.164',1184361703,1,0,1,1,1,1,'','','Lubin,,\n\ntmysql es una class contribuida por :\n\nMaurilio Longo,  \n\nespero no equivocarme en el nombre,\n\ny esta en las contibuciones de xharbour ..\n\nThis program is free software:\n\n\n\nsaludos..','',0,'GIA=','2n5kwho5',1,0,'',940,0,0),(34713,7550,6,987,0,'189.133.5.169',1184363045,1,0,1,1,1,0,'','','Estimado omarelunico:\n\nLo que describio Patricio Avalos Aguirre es correcto, si trabajas con fivewin y clipper debes poner en la carpeta en donde esta tu aplicacion un dll llamado PREVIEW.DLL que es para 16bits y si trabajas con harbour o xharbour + fivewin debes usar PREV32.DLL que obiamente es pa 32bits, si modificas la dll de 32bits con Pelles C por alguna razon se corompen los graficos y los cursores, y al mostrar el reporte aparece como lo tienes en la imagen, si deceas modificar los bitmaps y cursores de la libreria, te recomiento que lo hagas con ResHacker que es poco parecido al Pelles C o al Borland Resource Workshop, ya que este no te corrompe nada y trabaja bien..... COMPROBADISIMO ¡PAPÁ!, te comento esto por experiencia propia, hace una semana me puse a trastear y modificar la clase treport y al recompilar todo y hecharloa volar pues todo trono, me llevo un buen rato entender que paso y hasta ahorita todo bien..\n\nSi tienes dudas comunicate conmigo y te ayudo.. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos desde Chiapas Mexico...\n\nI.S.C. Víctor Daniel Cuatecatl Leon','',0,'GIA=','2fxrqcgh',1,0,'',987,0,0),(34714,3571,6,147,0,'190.31.195.146',1184367958,1,0,1,0,1,1,'','','muchas gracias','',0,'GIA=','jizt2icq',1,0,'',147,0,0),(34715,3321,6,907,0,'200.45.177.128',1184369702,1,0,1,1,1,1,'','','Perdón, no se que pasó, lo subí nuevamente y acá está el link.\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c580ac15/EFiscal.prg.rar.html\">http://hyperupload.com/download/02c580a ... g.rar.html</a><!-- m -->\nSaludos.','',0,'GIA=','9afu1jiu',1,0,'',907,0,0),(34716,3321,6,907,0,'200.45.177.128',1184369938,1,0,1,1,1,1,'','','No se que pasa, recién probé el link nuevamente y no funciona.','',0,'GIA=','2urpi6ug',1,0,'',907,0,0),(34717,3321,6,907,0,'200.45.177.128',1184370109,1,0,1,1,1,1,'','','A ver ahora...\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e9679770/EFiscal.rar.html\">http://hyperupload.com/download/02e9679 ... l.rar.html</a><!-- m -->\nSaludos.','',0,'GIA=','jd0g19uc',1,0,'',907,0,0),(34718,3321,6,907,0,'200.45.177.128',1184370282,1,0,1,1,1,1,'','','Gente del foro, disculpen, olvidé tomar las pastillas el link es este:\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02e9679787/EFiscal.rar.html\">http://hyperupload.com/download/02e9679 ... l.rar.html</a><!-- m -->\nMil disculpas.\nSaludos.','',0,'GIA=','2nvl4we9',1,0,'',907,0,0),(34719,5448,3,138,0,'189.141.69.200',1184371751,1,0,1,1,1,1,'','','You guys are getting crazy for a thing that can be easly resolved !!!!! don\'t kill pigeons with cannon balls.\n\nHave you ever heard about TURL class? (comes along with xHarbour), it\'s very simple to use:\n\n[code:3fkri1n2]oUrl &#58;= tURL&#40;&#41;&#58;New&#40;&lt;here comes the call to the web page&gt;&#41;\noClient &#58;= tIPClient&#40;&#41;&#58;New&#40; oUrl &#41;\noClient&#58;nConnTimeout &#58;= 20000\n\nIF oClient&#58;Open&#40; oUrl &#41;\n    oClient&#58;ReadToFile&#40; &quot;&#46;\\file_name_with_result_here&#46;whatever&quot; &#41;\n    oClient&#58;Close&#40;&#41;\nENDIF\n[/code:3fkri1n2]\n\nand then you just have to replace &lt;here comes the call to the web page&gt; with the URL encoded form of the webpage, that is this:\n\n[quote:3fkri1n2]\n<!-- m --><a class=\"postlink\" href=\"https://www.aesdirect.gov/weblink/weblink.cgi?wl_app_ident=APP001&amp;wl_nologin_url=http://www.weblinktestapp.com/nologin.html&amp;wl_nosed_url=\">https://www.aesdirect.gov/weblink/webli ... nosed_url=</a><!-- m -->\"http://www.weblinktestapp.com/nosed.html&amp;wl_success_url=http://www.weblinktestapp.com/success.html&amp;SRN=WEBLINKEXAMPLE&amp;AD1_3=TEST+CONSIGNEE&amp;isLine1\"=Y&amp;IT1_1=OS&amp;IT1_2=100000&amp;IT1_3=KG&amp;IT1_4=100&amp;IT1_7=150&amp;IT1_8E=C33&amp;IT1_12=ELECTRONIC&amp;EQUIPMENT&amp;IT1_13=3505100092&amp;IT1_15=N&amp;IT1_21=D\n[/quote:3fkri1n2]\n\nSo the final code is this:\n\n[code:3fkri1n2]oUrl &#58;= tURL&#40;&#41;&#58;New&#40;&quot;https&#58;//www&#46;aesdirect&#46;gov/weblink/weblink&#46;cgi?wl_app_ident=APP001&amp;wl_nologin_url=http&#58;//www&#46;weblinktestapp&#46;com/nologin&#46;html&amp;wl_nosed_url=&quot;http&#58;//www&#46;weblinktestapp&#46;com/nosed&#46;html&amp;wl_success_url=http&#58;//www&#46;weblinktestapp&#46;com/success&#46;html&amp;SRN=WEBLINKEXAMPLE&amp;AD1_3=TEST+CONSIGNEE&amp;isLine1&quot;=Y&amp;IT1_1=OS&amp;IT1_2=100000&amp;IT1_3=KG&amp;IT1_4=100&amp;IT1_7=150&amp;IT1_8E=C33&amp;IT1_12=ELECTRONIC&amp;EQUIPMENT&amp;IT1_13=3505100092&amp;IT1_15=N&amp;IT1_21=D&quot;&#41;\noClient &#58;= tIPClient&#40;&#41;&#58;New&#40; oUrl &#41;\noClient&#58;nConnTimeout &#58;= 20000\n\nIF oClient&#58;Open&#40; oUrl &#41;\n    oClient&#58;ReadToFile&#40; &quot;&#46;\\result&#46;txt&quot; &#41;\n    oClient&#58;Close&#40;&#41;\nENDIF\n[/code:3fkri1n2]\n\nI think there\'s something missing in the URL code (the post method in deed) you have to check the Open Method of the TIPClient class in order to know how to call the POST method','',0,'gIA=','3fkri1n2',1,0,'',138,0,0),(34720,7579,6,760,0,'200.106.115.232',1184376209,1,0,1,1,1,0,'','ayuda version xharbour','No entiendo, que se recompilan, los prgs de nuestros sistemas o los prgs del fwh y como?\n\nExplicarlo por favor....si no es molestia\n\nSalu2\n\nFrancis','',0,'gIA=','3cne4mji',1,0,'',760,0,0),(34721,7538,3,239,0,'219.136.110.237',1184376559,1,0,1,1,1,0,'','','Ugo,\n  Mine\'s is fwh2.5 .\nShuming Wang','',0,'gIA=','16p2fouy',1,0,'',239,0,0),(34722,7578,6,935,0,'200.62.120.73',1184377867,1,0,1,1,1,1,'','gracias,','Gracias Antonio, Probare a localizar el  GPF como indicas\n\nRamon Paredes\nManagua, Nicaragua','',0,'gIA=','2yhurdif',1,0,'',935,0,0),(34723,5448,3,234,0,'75.34.217.174',1184381263,1,0,1,1,1,1,'','','Hi Rene,\n\nThank you for your help. I am getting a harbour exception when trying to run this function. I am linking TIP.LIB dated 01-13-07; is there a new version or do I need to link a different library?\n\nThank you,','',0,'gIA=','2fif2b25',1,0,'',234,0,0),(34724,7580,2,501,0,'190.30.178.104',1184386790,1,0,1,1,1,0,'','Problema al abrir una dll...','Que tal, estoy teniendo problemas con un par de aplicaciones separadas las cuales tienen una dll cada una donde tengo los recursos, ambas DLL han sido creadas de una en blanco que venia con fivewin screen.dll si mal no recuerdo, y les cambie el nombre una se llama launcher.dll que esta corriendo junto con su exe launcher.exe y la otra es de otro programa tambien en fivewin que se llama ventas.exe con su ventas.dll.\n\nAmbos ejecutables y dll estan en carpetas diferentes, el tema es que cuando tengo el launcher abierto no puedo abrir ningun dialogo del ventas.exe y sale el Cannot create dialog box y pregunto como lo puedo resolver.\n\nDesde ya muchas gracias y salu2.','',0,'gIA=','2xhv05gz',1,0,'',501,0,0),(34725,7580,2,2,0,'87.218.146.7',1184394804,1,0,1,1,1,1,'','','Usas controles de Borland en tus cajas de diálogo ?','',0,'gIA=','39m57y05',1,0,'',2,0,0),(34726,7579,6,2,0,'87.218.146.7',1184394901,1,0,1,1,1,1,'','','Todos los PRGs, los de tu aplicación y librerías de terceros que uses, y los de FWH, siempre y cuando vayas a usar un build de Harbour/xHarbour que sea distinto al que nosotros distribuimos con esa versión de FWH.\n\nCon este BAT puedes recompilar los PRGs de FWH:\n\nfor %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fiveh.lib -+ %%f /0 /P32,,','',0,'gIA=','1fvbt2qx',1,0,'',2,0,0),(34727,7581,22,239,0,'219.136.109.57',1184403012,1,0,1,1,1,0,'','Anyone could convert Crystal button C#  into prg?','<!-- m --><a class=\"postlink\" href=\"http://www.programfan.com/article/showarticle.asp?id=2456\">http://www.programfan.com/article/showa ... sp?id=2456</a><!-- m -->\nopen source :\n\nusing System;\nusing System.Collections;\nusing System.ComponentModel;\nusing System.Drawing;\nusing System.Data;\nusing System.Windows.Forms;\nusing System.Drawing.Drawing2D;\nusing System.Drawing.Text;\n\nnamespace WindowsControlLibrary1\n{\n/// &lt;summary&gt;\n/// UserControl1 &#30340;&#25688;&#35201;&#35828;&#26126;&#12290;descrip\n/// &lt;/summary&gt;\npublic class UserControl1 : Button\n{\n  /// &lt;summary&gt;\n  /// &#24517;&#38656;&#30340;&#35774;&#35745;&#22120;&#21464;&#37327;&#12290;counter var\n  /// &lt;/summary&gt;\n  private System.ComponentModel.Container components = null;\n  private bool XiaCen=false;\n  private bool mouseMove=false;\n  private Color backColor;\n  public UserControl1()\n  {\n   // &#35813;&#35843;&#29992;&#26159; Windows.Forms &#31383;&#20307;&#35774;&#35745;&#22120;&#25152;&#24517;&#38656;&#30340;&#12290;\n   InitializeComponent();\n\n   // TODO: &#22312; InitComponent &#35843;&#29992;&#21518;&#28155;&#21152;&#20219;&#20309;&#21021;&#22987;&#21270;\n   backColor=this.backColor;\n   //this.Text=this.ShowFocusCues.ToString();\n  }\n\n  /// &lt;summary&gt;\n  /// &#28165;&#29702;&#25152;&#26377;&#27491;&#22312;&#20351;&#29992;&#30340;&#36164;&#28304;&#12290;\n  /// &lt;/summary&gt;\n  protected override void Dispose( bool disposing )\n  {\n   if( disposing )\n   {\n    if( components != null )\n     components.Dispose();\n   }\n   base.Dispose( disposing );\n  }\n\n  #region &#32452;&#20214;&#35774;&#35745;&#22120;&#29983;&#25104;&#30340;&#20195;&#30721;\n  /// &lt;summary&gt;\n  /// &#35774;&#35745;&#22120;&#25903;&#25345;&#25152;&#38656;&#30340;&#26041;&#27861; - &#19981;&#35201;&#20351;&#29992;&#20195;&#30721;&#32534;&#36753;&#22120;\n  /// &#20462;&#25913;&#27492;&#26041;&#27861;&#30340;&#20869;&#23481;&#12290;\n  /// &lt;/summary&gt;\n  private void InitializeComponent()\n  {\n   //\n   // UserControl1\n   //\n   this.MouseUp += new System.Windows.Forms.MouseEventHandler(this.UserControl1_MouseUp);\n   this.Paint += new System.Windows.Forms.PaintEventHandler(this.UserControl1_Paint);\n   this.MouseEnter += new System.EventHandler(this.UserControl1_MouseEnter);\n   this.KeyUp += new System.Windows.Forms.KeyEventHandler(this.UserControl1_KeyUp);\n   this.KeyDown += new System.Windows.Forms.KeyEventHandler(this.UserControl1_KeyDown);\n   this.BackColorChanged += new System.EventHandler(this.UserControl1_BackColorChanged);\n   this.MouseLeave += new System.EventHandler(this.UserControl1_MouseLeave);\n   this.MouseDown += new System.Windows.Forms.MouseEventHandler(this.UserControl1_MouseDown);\n\n  }\n  #endregion\n\n  \n  \n  protected GraphicsPath GetGraphicsPath(Rectangle rect)\n  {\n   GraphicsPath ClientPath = new System.Drawing.Drawing2D.GraphicsPath();\n   if(rect.Width&lt;=0)\n   {\n    rect.Width=1;\n   }\n   if(rect.Height&lt;=0)\n   {\n    rect.Height=1;\n   }\n      \n   ClientPath.AddArc(rect.Left,rect.Top,rect.Height,rect.Height,90f,180f);\n   ClientPath.AddArc(rect.Right-rect.Height,rect.Top,rect.Height,rect.Height,270f,180f);\n   ClientPath.CloseFigure();\n   return ClientPath;\n  }\n   \n  protected GraphicsPath GetGraphicsPath1(Rectangle rect)\n  {\n   GraphicsPath ClientPath = new System.Drawing.Drawing2D.GraphicsPath();\n   if(rect.Width&lt;=0)\n   {\n    rect.Width=1;\n   }\n   if(rect.Height&lt;=0)\n   {\n    rect.Height=1;\n   }\n      \n   ClientPath.AddArc(rect.Left,rect.Top,rect.Height,rect.Height,190f,80f);\n   ClientPath.AddArc(rect.Right-rect.Height,rect.Top,rect.Height,rect.Height,270f,80f);\n   ClientPath.CloseFigure();\n   return ClientPath;\n  }\n  \n  private void DrawYinYing(Graphics gr,bool xiacen)\n  {\n   Rectangle rect= this.ClientRectangle;\n   rect.Inflate(-(rect.Width/10),-(rect.Height)/4);\n   float bf1=rect.Width/100f;\n   float bf2=rect.Height/100f;\n   \n   rect.Y=rect.Y+this.ClientRectangle.Height/4;\n   if(xiacen)\n   {\n    rect.Y=rect.Y+4;\n   }\n   GraphicsPath path;\n   \n   for(int a=1;a&lt;33;a++)\n   {\n    float bf3=bf1*a;\n    float bf4=bf2*a;\n    Rectangle rect1=rect;\n    rect1.Inflate(-(int)bf3,-(int)bf4);\n    path=GetGraphicsPath(rect1);\n        \n    int r=backColor.R;\n    int g=backColor.G;\n    int b=backColor.B;\n    r=r+3*a;\n    g=g+3*a;\n    b=b+3*a;\n    if(r&gt;255) r=255;\n    if(g&gt;255) g=255;\n    if(b&gt;255) b=255;\n    gr.FillPath(new SolidBrush(Color.FromArgb(r,g,b)),path);\n   }\n  }\n  \n  private void DrawGaoLiang(Graphics g,bool xiacen)\n  {\n   Rectangle rect= this.ClientRectangle;\n   rect.Inflate(-4,-4);\n   \n   if(xiacen)\n   {\n    rect.Y=rect.Y+4;\n   }\n   GraphicsPath path=GetGraphicsPath1(rect);\n   RectangleF rect1=path.GetBounds();\n   rect1.Height=rect1.Height+1;\n   g.FillPath(new LinearGradientBrush(rect1,\n    Color.FromArgb(0xff,0xff,0xff,0xff),\n    Color.FromArgb(0xff,backColor),LinearGradientMode.Vertical),path);\n  }\n  \n  private void DrawText(Graphics g,bool xiacen)\n  {\n   Rectangle rect= this.ClientRectangle;\n   Rectangle rect1= this.ClientRectangle;\n   StringFormat stringFormat=new StringFormat();\n   stringFormat.Alignment=StringAlignment.Center;\n   stringFormat.LineAlignment=StringAlignment.Center;\n   rect.Y=this.ClientRectangle.Height/5;\n   if(xiacen)\n   {\n    rect.Y=rect.Y+4;\n    rect1.Y=rect1.Y+4;\n   }\n   \n   Font font=this.Font;\n   \n   \n   if(mouseMove)\n   {\n    font=new Font(this.Font,FontStyle.Underline);\n   }\n   \n   g.DrawString(this.Text,font,\n    new SolidBrush(Color.FromArgb(0x66,backColor)),rect,stringFormat);\n   g.DrawString(this.Text,font,new SolidBrush(this.ForeColor),rect1,stringFormat);\n  }\n\n  private void UserControl1_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)\n  {\n   if(XiaCen==false)\n   {\n    XiaCen=true;\n    this.Refresh();\n   }\n  }\n  \n  private void UserControl1_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)\n  {\n   if(XiaCen==true)\n   {\n    XiaCen=false;\n    this.Refresh();\n   }\n  }\n\n  private void UserControl1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)\n  {\n   \n   \n  }\n  \n  protected override void OnPaint(PaintEventArgs e)\n  {\n   \n   base.OnPaint(e);\n   e.Graphics.FillRectangle(new SolidBrush(backColor),0,0,this.Width,this.Height);\n   e.Graphics.SmoothingMode=SmoothingMode.HighQuality;\n   e.Graphics.TextRenderingHint=TextRenderingHint.AntiAliasGridFit;\n   Rectangle rect=new Rectangle(0,0,this.Width,this.Height);\n   GraphicsPath ClientPath=GetGraphicsPath(rect);\n   e.Graphics.FillPath(new SolidBrush(backColor),ClientPath);\n   this.Region=new System.Drawing.Region(ClientPath);\n   DrawYinYing(e.Graphics,XiaCen);\n   DrawGaoLiang(e.Graphics,XiaCen);\n   DrawText(e.Graphics,XiaCen);\n   \n   if(this.Focused)\n   {\n    e.Graphics.DrawPath(new Pen(Color.FromArgb(0x22,0xff,0xff,0xff), 3), ClientPath);\n   }\n   \n  }\n\n  \n\n\n\n  private void UserControl1_BackColorChanged(object sender, System.EventArgs e)\n  {\n   int r=BackColor.R;\n   int g=BackColor.G;\n   int b=BackColor.B;\n   r=r+0x22;\n   g=g+0x22;\n   b=b+0x22;\n   if(r&gt;255) r=255;\n   if(g&gt;255) g=255;\n   if(b&gt;255) b=255;\n   backColor=Color.FromArgb(r,g,b);\n  }\n\n  private void UserControl1_KeyDown(object sender, System.Windows.Forms.KeyEventArgs e)\n  {\n   if(XiaCen==false &amp;&amp; e.KeyCode==Keys.Space)\n   {\n    XiaCen=true;\n    this.Refresh();\n   }\n  }\n\n  private void UserControl1_KeyUp(object sender, System.Windows.Forms.KeyEventArgs e)\n  {\n   if(XiaCen==true &amp;&amp; e.KeyCode==Keys.Space)\n   {\n    XiaCen=false;\n    this.Refresh();\n   }\n  }\n\n  private void UserControl1_MouseEnter(object sender, System.EventArgs e)\n  {\n   if(mouseMove==false)\n   {\n    mouseMove=true;\n    this.Refresh();\n   }\n  }\n\n  private void UserControl1_MouseLeave(object sender, System.EventArgs e)\n  {\n   if(mouseMove==true)\n   {\n    mouseMove=false;\n    this.Refresh();\n   }\n  }\n  \n}\n}','',0,'gIA=','1j91as9p',1,0,'',239,0,0),(34728,7582,3,473,0,'81.82.10.56',1184417001,1,0,1,1,1,0,'','xBrowse color','Hello,\n\nI am converting to xBrowse.\n\nHow can I change the color of the place below the rows if there are less rows than fit in the browse.\n\nThanks,\n\nWilly','',0,'gIA=','2uby79ji',1,0,'',473,0,0),(34729,7583,6,483,0,'201.252.164.37',1184425819,1,0,1,1,1,0,'','Eror con CDX','Cuando quiero habrir una dbf me tira el siguiente error\nhb_cdxIndexfree : index file still locked\ncualquier pista les agradecere.\nSaludos\nCarlos Ducca','',0,'gIA=','2btpjsys',1,0,'',483,0,0),(34730,7579,6,760,0,'200.62.254.137',1184431094,1,0,1,1,1,0,'','Ayuda Version xharbour','Gracias Master Antonio <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPero en vez de fiveh.lib lo cambio a fivexh.lib, porque yo trabajo con xharbour, aunque no se si el harbour sera mejor porque no he trabajado con ello. En gustos y colores ......\n\nA proposito del xharbour, logre compilar un sistema hecho en clipper y sin librerias graficas, en modo consola a 32 bits, no fue nada dificil pero habia que darle en el clavo al asunto, y tengo sistema para rato, solo que los clientes quieren ver graficos, uso del raton, etc.\n\nSalu2\n\nFrancis <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gIA=','386lppub',1,0,'',760,0,0),(34731,5448,3,234,0,'75.34.217.174',1184434715,1,0,1,1,1,1,'','','Hi Rene,\n\nHere is the error I am getting.\n\nHARBOUR EXCEPTION\nHB_REGEXCOMP(0)\nTURL(85)\n_AESSEND(332)\nEDITOCN(1470)\nEVAL(356)\n.\n.\n.\n\nCan you help? Do you have a new version of TIP.LIB?[/img]','',0,'','28nw3s4w',1,0,'',234,0,0),(34732,7584,2,1107,0,'189.192.246.25',1184442104,1,0,1,1,1,0,'','Puedo actualizar mi FW 2.6b a FWH','Antonio:\n\nQue requiero hacer para actualizarlo, Gracias','',0,'','2vfjcovj',1,0,'',1107,0,0),(34733,7580,2,501,0,'200.117.140.74',1184442866,1,0,1,1,1,0,'','','No no solo botones fivewin y puede llegar a tener algun tsbutton, nunca utilizo los de borland para evitar problemas.\n\nGracias Antonio.','',0,'','2vx9aax4',1,0,'',501,0,0),(34734,7584,2,2,0,'87.218.146.218',1184455242,1,0,1,1,1,1,'','','No ofrecemos una actualización desde FW a FWH ya que son productos distintos, aunque compatibles.\n\nPuedes adquirir FWH desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos, gracias','',0,'','rp8astzz',1,0,'',2,0,0),(34735,7585,6,78,0,'190.40.250.56',1184456108,1,0,1,1,1,0,'','Para Rafa Carmona','Hola Rafa.\nEstoy utilizando tu clase TSCAN32, va de perlas, pero (siempre el pero) resulta  que se tuvo que cambiar de webcam, se instalo una de esas camaritas con luces y todo (CAM 106 EVA) y zas, la aplicaion no va, revisando, si que no trabaja con TWAIN, al menos eso me parece, sera que ahora ese driver esta en desuso??\n\nSalu2','',0,'','10f8r49h',1,0,'',78,0,0),(34736,7586,6,52,0,'201.213.38.181',1184468840,1,0,1,1,1,1,'','timer y Folder','Estimados, tengo un dialogo con un folder y necesito refrescar cada cierto tiempo el browser.\n\nProblema.\nSolo se lanza la accion del timer cuando cierro el dialogo.\n\nAlguna Idea?\n[code:fmw8v3f1]\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;folder&#46;ch&quot;\n#include &quot;tsbrowse&#46;ch&quot;\n#include &quot;debug&#46;ch&quot;\n#include &quot;colores&#46;ch&quot;\n\n//------------------------------------------------------------------------------\n\nFUNCTION PantallaPrincipal&#40;&#41;\n\n   LOCAL oDlg, ;\n         oIcono, ;\n         oFolder, ;\n         oBrw, ;\n         oTimer\n\n   LOCAL oQuery\n\n   DEFINE ICON oIcono RESOURCE &quot;ICON_DIPAI&quot;\n\n   oQuery&#58;= GetApp&#40;&#41;&#58;LeerTabla&#40; &#123; &quot;guia&#46;*&quot; &#125;, , , &quot;idguia&quot; &#41;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;DLG_MENU&quot; TITLE &quot;prueba Direcciones útiles &#58;&#58;&#46; &quot; ICON oIcono\n\n      //----------&#40; Folder &#41;----------\n\n      REDEFINE FOLDER oFolder ID 114 OF oDlg ;\n               PROMPTS &quot; &amp;Padrón de datos existentes &quot;, &quot;&amp;Alta, Bajas, Modificaciones&quot;,;\n                       &quot; Mensaje a otro usuario &quot;, &quot;&amp;Datos del Usuario Actual&quot; ;\n               DIALOGS &quot;FLD_BROWSER&quot;, &quot;FLD_ABM&quot;,;\n                       &quot;FLD_MENSAJES&quot;, &quot;FLD_USUARIOS&quot;;\n               UPDATE\n\n      //----------&#40; Browser &#41;----------\n\n      REDEFINE BROWSE oBrw ID 101 OF oFolder&#58;aDialogs&#91;1&#93; FONT GetFont&#40;&#41;&#58;celda\n\n         // Identificacion\n         ADD COLUMN TO oBrw ;\n            Header &quot;Nombre o Entidad&quot; ;\n            DATA SetearColumna&#40; oQuery, 1 &#41;;\n            ALIGN DT_CENTER, DT_CENTER WIDTH 200 PIXELS\n\n         ADD COLUMN TO oBrw ;\n            Header &quot;Domicilio&quot; ;\n            DATA SetearColumna&#40; oQuery, 2 &#41;;\n            ALIGN DT_CENTER, DT_CENTER WIDTH 200 PIXELS\n\n         ADD COLUMN TO oBrw ;\n            Header &quot;Teléfono&quot; ;\n            DATA SetearColumna&#40; oQuery, 3 &#41;;\n            ALIGN DT_CENTER, DT_CENTER WIDTH 200 PIXELS\n\n         MySetBrowse&#40; oBrw, oQuery &#41;\n\n         oBrw&#58;ChangeFont&#40; GetFont&#40;&#41;&#58;ENCABEZADO, , 2 &#41;\n\n         oBrw&#58;aColumns&#91;1&#93;&#58;lEdit &#58;= &#46;F&#46;\n         oBrw&#58;aColumns&#91;2&#93;&#58;lEdit &#58;= &#46;F&#46;\n         oBrw&#58;aColumns&#91;3&#93;&#58;lEdit &#58;= &#46;F&#46;\n\n         oBrw&#58;nAdjColumn        &#58;= 3\n         oBrw&#58;lAutoEdit         &#58;= &#46;F&#46;\n         oBrw&#58;nHeightHead       += 15\n         oBrw&#58;nHeightCell       += 8\n         oBrw&#58;lNoHScroll        &#58;= &#46;T&#46;\n         oBrw&#58;lNovScroll        &#58;= &#46;F&#46;\n\n         oBrw&#58;Look3d&#40; &#46;T&#46;, , , &#46;T&#46; &#41;\n         oBrw&#58;SetColor&#40; &#123; 2, 5, 6, 15, 8 &#125;,;\n                               &#123; &#123; ||  If&#40; oBrw&#58;nLogicPos&#40;&#41; % 2 =  0,CLR_1, CLR_2 &#41; &#125;,;\n                                 CLR_WHITE,;\n                                 CLR_BLUE ,;\n                                 CLR_GRAY ,;\n                                 &#123; | | If&#40; oBrw&#58;nLogicPos&#40;&#41; % 2 =  0,CLR_1, CLR_2 &#41; &#125; &#125; &#41;\n\n\n         oDlg&#58;bStart&#58;= &#123; || Timer&#40; oTimer, oBrw, oQuery, oDlg &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   RETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\nFUNCTION timer&#40; oTimer, oBrw, oQuery, oDlg &#41;\n\n   DEFINE timer oTimer interval 1000 of oDlg action &#40; RecargarBrowser&#40; @oBrw, @oQuery &#41; &#41;\n   ACTIVATE timer oTimer\n\nRETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\n// Esta accion solo se ejecuta cuando se cierra el dialogo, mientras\n// el dialogo esta en pantalla no pasa nada&#46;\n\nFUNCTION RecargarBrowser&#40; oBrw, oQuery &#41;\n\n   oQuery&#58;= GetApp&#40;&#41;&#58;LeerTabla&#40; &#123; &quot;guia&#46;*&quot; &#125;, , , &quot;idguia&quot; &#41;\n   MySetBrowse&#40; oBrw, oQuery &#41;\n   oBrw&#58;refresh&#40;&#41;\n\n   ? &quot;paso por aca&quot;\n\n\n   RETURN &#40; NIL &#41;\n\n//------------------------------------------------------------------------------\n\n\n[/code:fmw8v3f1]','',0,'AIA=','fmw8v3f1',1,0,'',52,0,0),(34737,7587,3,154,0,'151.21.34.185',1184479695,1,0,1,1,1,1,'','DbCombo','Hi at all,\n\nis possible to set an item at runtime?\nHow?\n\nThanks in advance.','',0,'AIA=','2q6it2dm',1,0,'',154,0,0),(34738,7588,19,2,0,'87.218.146.100',1184486356,1,0,1,1,1,1,'','Reflexión','<!-- m --><a class=\"postlink\" href=\"http://alternaria.blogspot.com/2007/07/si-existen-virus-que-afectan-linux-pero.html\">http://alternaria.blogspot.com/2007/07/ ... -pero.html</a><!-- m -->\n\nAutomatic english translation:\n<!-- m --><a class=\"postlink\" href=\"http://translate.google.com/translate?u=http%3A%2F%2Falternaria.blogspot.com%2F2007%2F07%2Fsi-existen-virus-que-afectan-linux-pero.html&amp;langpair=es%7Cen&amp;hl=es&amp;ie=UTF8\">http://translate.google.com/translate?u ... es&amp;ie=UTF8</a><!-- m -->','',0,'AIA=','2np6r8o6',1,0,'',2,0,0),(34739,7585,6,24,0,'88.19.133.216',1184488974,1,0,1,1,1,1,'','Re: Para Rafa Carmona','[quote=&quot;Willi Quintana&quot;:avr83aaq]Hola Rafa.\nEstoy utilizando tu clase TSCAN32, va de perlas, pero (siempre el pero) resulta  que se tuvo que cambiar de webcam, se instalo una de esas camaritas con luces y todo (CAM 106 EVA) y zas, la aplicaion no va, revisando, si que no trabaja con TWAIN, al menos eso me parece, sera que ahora ese driver esta en desuso??\n\nSalu2[/quote:avr83aaq]\nTWAIN no es ningun driver, es una norma internacional, algo asi como la norma VESA para las targetas gráficas pero para los scanners.\nSi la webcam nueva no soporta TWAIN, mucho me temo que no vas a hacerla funcionar.','',0,'gA==','avr83aaq',1,0,'',24,0,0),(34740,2486,16,2,0,'87.218.146.100',1184498871,1,0,1,1,1,1,'','','July 2007\n======\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43028051/harbour.exe.html\">http://rapidshare.com/files/43028051/harbour.exe.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43088118/xharbour.exe.html\">http://rapidshare.com/files/43088118/xharbour.exe.html</a><!-- m -->\n\nxHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43091267/xharbourm.exe.html\">http://rapidshare.com/files/43091267/xharbourm.exe.html</a><!-- m -->','',0,'gA==','3lkp0i5t',1,0,'',2,0,0),(34741,7446,6,171,0,'71.233.232.238',1184521864,1,0,1,1,1,0,'','','Continuando con el problema......\n\nHe renombrado la funcion \"dibwrite\" en \"dib.c\", pero ahora este fichero no compila. Recibo los siguientes errores.\n\n[code:3bqw7550]\nxHarbour Compiler build 0&#46;99&#46;70 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nGenerating object output to \'FUNC2&#46;obj\'&#46;&#46;&#46;\n\nType&#58; C &gt;&gt;&gt;xcc&#46;exe -Fo&quot;dib&#46;obj&quot; -Ot   -I&quot;C&#58;\\xHBJan07\\include&quot; -I&quot;C&#58;\\xHBJan07\\c_include&quot; -I&quot;C&#58;\\xHBJan07\\c_include\\win&quot; -I&quot;C&#58;\\xHBJan07\\c_include\\msvc&quot; &quot;C&#58;\\_AML_SOFT\\dib&#46;c&quot;&lt;&lt;&lt;\n\nC&#58;\\xHBJan07\\include\\ClipApi&#46;h&#40;71&#41;&#58; error&#58; Expecting an enumerator identifier&#46;\n\nC&#58;\\xHBJan07\\include\\ClipApi&#46;h&#40;71&#41;&#58; error&#58; Syntax error; found \'0\' expecting \'&#125;\'&#46;\n\nC&#58;\\xHBJan07\\include\\ClipApi&#46;h&#40;463&#41;&#58; error&#58; Redeclaration of \'strlen\' previously declared at C&#58;\\xHBJan07\\c_include\\string&#46;h&#40;30&#41;&#58; found \'unsigned short __cdecl function&#40;char *&#41;\' expected \'unsigned int __cdecl function&#40;const char *&#41;\'&#46;\n\nC&#58;\\xHBJan07\\include\\ClipApi&#46;h&#40;464&#41;&#58; error&#58; Redeclaration of \'strcpy\' previously declared at C&#58;\\xHBJan07\\c_include\\string&#46;h&#40;27&#41;&#58; found \'void __cdecl function&#40;unsigned char *, unsigned char *&#41;\' expected \'char * __cdecl function&#40;restrict char *, restrict const char *&#41;\'&#46;\n\nC&#58;\\xHBJan07\\include\\ClipApi&#46;h&#40;465&#41;&#58; error&#58; Redeclaration of \'strcmp\' previously declared at C&#58;\\xHBJan07\\c_include\\string&#46;h&#40;25&#41;&#58; found \'int __cdecl function&#40;char *, char *&#41;\' expected \'int __cdecl function&#40;const char *, const char *&#41;\'&#46;\n\nC&#58;\\xHBJan07\\include\\ClipApi&#46;h&#40;466&#41;&#58; error&#58; Redeclaration of \'strcat\' previously declared at C&#58;\\xHBJan07\\c_include\\string&#46;h&#40;23&#41;&#58; found \'unsigned char * __cdecl function&#40;unsigned char *, unsigned char *&#41;\' expected \'char * __cdecl function&#40;restrict char *, restrict const char *&#41;\'&#46;\n\nC&#58;\\xHBJan07\\include\\ClipApi&#46;h&#40;511&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;18&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;68&#41;&#58; error&#58; Undeclared identifier \'READ\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;90&#41;&#58; warning&#58; Local \'dwClrUsed\' is not referenced&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;198&#41;&#58; warning&#58; Local \'hBmpOld\' is not referenced&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;261&#41;&#58; warning&#58; Conversion from \'void *\' to \'unsigned int\' is undefined&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Undefined size for \'huge\' with type \'void\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Syntax error; found \'*\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Undeclared identifier \'Bits\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Type error&#58; pointer expected&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Syntax error; found \'huge\' expecting \'&#41;\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Illegal expression&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Found \'int\' expected a function&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;298&#41;&#58; error&#58; Operands of * have illegal types \'void\' and \'void\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;303&#41;&#58; warning&#58; Excess characters in multibyte character literal ignored&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;338&#41;&#58; error&#58; Redefinition of \'FWHdibwrite\' previously defined at C&#58;\\_AML_SOFT\\dib&#46;c&#40;294&#41;&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;338&#41;&#58; error&#58; Redeclaration of \'FWHdibwrite\' previously declared at C&#58;\\_AML_SOFT\\dib&#46;c&#40;294&#41;&#58; found \'void __stdcall function&#40;void&#41;\' expected \'int __cdecl function&#40;char *, void *&#41;\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;339&#41;&#58; error&#58; Too many arguments to \'FWHdibwrite\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;339&#41;&#58; error&#58; Too many arguments to \'FWHdibwrite\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;339&#41;&#58; error&#58; Type error in argument 1 to \'_retl\'; found \'void\' expected \'int\'&#46;\n\n\nType&#58; C &gt;&gt;&gt;Couldn\'t build&#58; dib&#46;obj&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEOBJECT&#58;REFRESH&lt;&lt;&lt;\nType&#58; N &gt;&gt;&gt;      1278&lt;&lt;&lt;\n\n[/code:3bqw7550]\n\nParece el que el fichero \"clipapi.h\" no es compatible con xHarbour Builder\n\nAlgun comentario al respecto?\n\nSaludos,\n\nGeorge','',0,'AIA=','3bqw7550',1,0,'',171,0,0),(34742,7446,6,2,0,'87.218.146.100',1184524400,1,0,1,1,1,1,'','','George,\n\nUsa hbapi.h en vez de clipapi.h','',0,'AIA=','bf5b49v7',1,0,'',2,0,0),(34743,7589,16,2,0,'87.218.146.100',1184529756,1,0,1,1,1,1,'','New FTDN July/Julio 2007','July 2007 build\n===========\n\n* New: Class TTreeView Methods GetCheck( [ oItem ] ) --&gt; lOnOff and \n  Method SetCheck( [ oItem ], lOnOff ) to get or set the checkbox state of an item when TVS_CHECKBOXES style is used in the (treeview) resources.\n  \n* Enhancement: Class TXBrowse() Methods SaveState() and RestoreState() now save the headers values too. Thanks to Marco Turco!\n    \n* Fix: FWPPC, samples\\TestPage.prg required change. Now it works ok.    \n\n* Enhancement: FWH FiveHCM.lib includes the recent richedit new added functions.\n\n* Fix: Recent changes in function lIsDir() where not working right. Now it is ok.\n\n* Fix: Class TXBrowse Method Paint(), now it properly paints the columns headers when there are no records to show.\n  \n* Enhancement: New config templates to use FWH with UEStudio. Please review UEStudio\\FWH.zip  \n  \n* Fix: Class TXBrowse Method Seek() minor fix related to painting. Improved painting when using MultiSelection in METHOD Select( nOperation ) CLASS TXBrowse.\n   \n* Enhancement: Class TDataBase Method Seek() only reloads the buffer if the seek was successfull. Thanks to Biel!\n\n* New: Class TFTP Method CreateDirectory( cDirName )  \n\n* Enhancement: FWPPC, Class TDataBase clauses AS ... have been removed to avoid compatibility problems with Harbour classes engine.\n\n* Enhancement: Class TGet Method HandleEvent() WM_PASTE checks if the Get has the focus before pasting into it.\n  \n* FWH: Has been rebuilt using the most recent Harbour and xHarbour builds.\n\n* FWPPC: Harbour for Pocket PC has been updated with the most recent build and FWPPC has been recompiled and adapted to the new Harbour build.\n    \n* FWPPC: functions Encrypt() and Decrypt() are already availables for FWPPC.\n    \n* FWH: New samples\\TestPrn5.prg shows how to quick print an ascii file on the default printer.','',0,'','1yv1ktdf',1,0,'',2,0,0),(34744,7590,2,393,0,'190.42.194.140',1184549334,1,0,1,1,1,0,'','Problemas al imprimir y ver previo','Amigos, una consulta no se si les a pasado que cuando falla algo a la hora de imprimir y despues se corrige el error y vuelvo a imprimir  el previo sale en blanco, ojala me puedan dar alguna solucion rapida, ya que hasta ahora lo unico que hago es resetear la maquina y todo vuelve a ser normal.\nSaludos\nDaniel \nFW2.5 +Clip53+Blinker6','',0,'','1u3xymos',1,0,'',393,0,0),(34745,7590,2,644,0,'200.45.244.109',1184554597,1,0,1,1,1,0,'','','Si estás usando una base de datos fijate si está en el primer registro. Acordate que al imprimirla va recorriendo los registros y queda en el último. Por ese lado podrías mirar. Saludos','',0,'','vrqr4rnh',1,0,'',644,0,0),(34746,7446,6,171,0,'71.233.232.238',1184554753,1,0,1,1,1,0,'','','Antonio,\n\nHice la sustitucion del clipapi.h por hbapi.h pero sigue dando errores.\nEs posible que el problema viene porque xHarbour builder usa el compilador PellesC.\n\nPor otro lado te informo que compile el ejemplo test.prg de FWH\\samples\\tgraph con xHarbour y me dio el mismo problema de que solo me salva un BMP con un cuadrado blanco y una X roja en el medio. \n\n[b:1ov41x4c]Cuando compile el ejemplo con Harbour me funciono perfecto. Asi que pude comprobar que el problema viene dado con xHarbour builder.[/b:1ov41x4c]\n\nMas abajo te muestro los errores al tratar de compliar dib.c sustituyendo clipapi.h por hbapi.h.\n\n[code:1ov41x4c]\nType&#58; C &gt;&gt;&gt;xcc&#46;exe -Fo&quot;dib&#46;obj&quot; -Ot   -I&quot;C&#58;\\xHBJan07\\include&quot; -I&quot;C&#58;\\xHBJan07\\c_include&quot; -I&quot;C&#58;\\xHBJan07\\c_include\\win&quot; -I&quot;C&#58;\\xHBJan07\\c_include\\msvc&quot; &quot;C&#58;\\_AML_SOFT\\dib&#46;c&quot;&lt;&lt;&lt;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;18&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;68&#41;&#58; error&#58; Undeclared identifier \'READ\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;90&#41;&#58; warning&#58; Local \'dwClrUsed\' is not referenced&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;198&#41;&#58; warning&#58; Local \'hBmpOld\' is not referenced&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;238&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;238&#41;&#58; error&#58; Syntax error; found \'DIBREAD\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;238&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;239&#41;&#58; warning&#58; Missing prototype for \'DIBREAD\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;240&#41;&#58; warning&#58; Missing prototype for \'_retnl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;240&#41;&#58; warning&#58; Missing prototype for \'_parc\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;240&#41;&#58; warning&#58; Conversion from \'char *\' to \'int\' is undefined&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;241&#41;&#58; warning&#58; Missing return value&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;245&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;245&#41;&#58; error&#58; Syntax error; found \'DIBPALETTE\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;245&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;246&#41;&#58; warning&#58; Missing prototype for \'DIBPALETTE\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;247&#41;&#58; warning&#58; Missing prototype for \'_retnl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;247&#41;&#58; warning&#58; Missing prototype for \'_parnl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;248&#41;&#58; warning&#58; Missing return value&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;252&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;252&#41;&#58; error&#58; Syntax error; found \'DIBDRAW\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;252&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;253&#41;&#58; warning&#58; Missing prototype for \'DIBDRAW\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;254&#41;&#58; warning&#58; Missing prototype for \'_parnl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;259&#41;&#58; warning&#58; Missing prototype for \'_retl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;259&#41;&#58; warning&#58; Missing prototype for \'_parni\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;261&#41;&#58; warning&#58; Conversion from \'void *\' to \'unsigned int\' is undefined&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;262&#41;&#58; warning&#58; Missing return value&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;266&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;266&#41;&#58; error&#58; Syntax error; found \'DIBWIDTH\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;266&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;267&#41;&#58; warning&#58; Missing prototype for \'DIBWIDTH\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;268&#41;&#58; warning&#58; Missing prototype for \'_parnl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;273&#41;&#58; warning&#58; Missing prototype for \'_retni\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;276&#41;&#58; warning&#58; Missing return value&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;280&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;280&#41;&#58; error&#58; Syntax error; found \'DIBHEIGHT\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;280&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;281&#41;&#58; warning&#58; Missing prototype for \'DIBHEIGHT\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;282&#41;&#58; warning&#58; Missing prototype for \'_parnl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;287&#41;&#58; warning&#58; Missing prototype for \'_retni\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;290&#41;&#58; warning&#58; Missing return value&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Undefined size for \'huge\' with type \'void\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Syntax error; found \'*\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Undeclared identifier \'Bits\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Type error&#58; pointer expected&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Syntax error; found \'huge\' expecting \'&#41;\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Illegal expression&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;297&#41;&#58; error&#58; Found \'int\' expected a function&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;298&#41;&#58; error&#58; Operands of * have illegal types \'void\' and \'void\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;303&#41;&#58; warning&#58; Excess characters in multibyte character literal ignored&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;337&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;337&#41;&#58; error&#58; Syntax error; found \'FWHdibwrite\' expecting \';\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;337&#41;&#58; warning&#58; Missing type specifier&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;338&#41;&#58; error&#58; Conflicting argument declarations for function \'FWHdibwrite\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;338&#41;&#58; error&#58; Redefinition of \'FWHdibwrite\' previously defined at C&#58;\\_AML_SOFT\\dib&#46;c&#40;294&#41;&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;339&#41;&#58; warning&#58; Missing prototype for \'_retl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;339&#41;&#58; warning&#58; Missing prototype for \'_parc\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;339&#41;&#58; warning&#58; Conversion from \'char *\' to \'int\' is undefined&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;339&#41;&#58; warning&#58; Missing prototype for \'_parnl\'&#46;\n\nC&#58;\\_AML_SOFT\\dib&#46;c&#40;340&#41;&#58; warning&#58; Missing return value&#46;\n\n\nType&#58; C &gt;&gt;&gt;Couldn\'t build&#58; dib&#46;obj&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEOBJECT&#58;REFRESH&lt;&lt;&lt;\nType&#58; N &gt;&gt;&gt;      1278&lt;&lt;&lt;\n\n[/code:1ov41x4c]\n\nSaludos,\n\n\nGeorge','',0,'QIA=','1ov41x4c',1,0,'',171,0,0),(34747,7586,6,138,0,'200.65.139.173',1184555626,1,0,1,1,1,1,'','','Arranca el timer en el ON INIT del dialogo.','',0,'QIA=','290e8yil',1,0,'',138,0,0),(34749,7591,6,1072,0,'201.214.53.161',1184560963,1,0,1,1,1,0,'','Una Mano con Menu xp','Hola Foro:\n\nNecesito que me echen una manito con el Menu xp que baje de utilidades (Menusat), trato de compilarlo pero no logro poner en funcionamiento.\n\nCompile Menu.prg y no muestra nada.\n\nUso Fwh 7.01, Xharbour 0.99.71 Bcc55.\n\nEstoy tratando de hacerlo con Verce.\nCual es el programa que se compila, Menu, Testmenu u otro?\n\nEn espera de una respuesta,\nLes saluda atte.\n\nAntonio.','',0,'QIA=','2tntlgum',1,0,'',1072,0,0),(34750,7590,2,838,0,'80.34.222.112',1184567098,1,0,1,1,1,0,'','','Es un error tipico, que se corrige haciendo lo siguiente\n\nEn el administrador de taresas (CTRL+ALT+SUPR)-&gt;proceseos, hay un proceso que se llama ntvdm, finalízalo y ya está.\n\nTambién se corrige cuando reinicias el ordenador\n\nSaludos\n\nJose Luis','',0,'QIA=','3c6eq9zg',1,0,'',838,0,0),(34751,7589,16,2,0,'87.218.146.100',1184568183,1,0,1,1,1,1,'','','Construcción Julio 2007 \n=================\n\n* Nuevo: Nuevos métodos en la clase TTreeView, GetCheck( [ oItem ] ) --&gt; lOnOff y SetCheck( [oItem ], lOnOff ) para obtener o poner el estado de un artículo en un \"chekbox\" cuando se utiliza el estilo \"TVS_CHECKBOXES\" en un \"treeview\" desde recursos. \n\n* Mejora: En la clase TXBrowse(), los métodos SaveState() y RestoreState() ahora guardan también los valores de las cabeceras.\n  Gracias a Marco Turco! \n\n* Corrección: En FWPPC, el ejemplo samples\\TestPage.prg requería cambio. Ahora funciona perfectamente.\n\n* Mejora: En FWH, la libreria FiveHCM.lib incluye las recientes nuevas funciones richedit. \n\n* Corrección: Recientes cambios en la función lIsDir() no estaban funcionando correctamente. Ahora funcionan correctamente. \n\n* Corrección: En la clase TXBrowse, el método Paint(), ahora pinta correctamente la cabeceras incluso cuando no hay registros que mostrar. \n\n* Mejora: Nuevas plantillas de configuración para usar FWH con UEStudio. Por favor revisa UEStudio\\FWH.zip. \n\n* Corrección: En la clase TXBrowse , en el método Seek(), pequeña corrección relacionada con el pintado.Pintado mejorado cuando se usa\n  multiselección en el método Select( nOperation ) en la clase TXBrowse.\n\n* Mejora: En la clase TDataBase, el método Seek() sólo recarga el \"buffer\" si la búsqueda resultó satisfactoria. Gracias a Biel! \n\n* Nuevo: En la clase TFTP, nuevo método CreateDirectory( cDirName ) \n\n* Mejora: En FWPPC, en la clase TDataBase se ha eliminado la clausula AS ... para evitar problemas de compatibilidad con el motor de clases de Harbour.  \n\n* Mejora: En la clase TGet, en el método HandleEvent() WM_PASTE comprueba si el Get tiene el foco antes de pegarlo. \n\n* FWH: ha sido reconstruido con las contrucciones más recientes de Harbour y xHarbour. \n\n* FWPPC: Harbour para Pocket PC ha sido actualizado con las construcciones más recientes y FWPPC ha sido reconstruido y adaptado con la más reciente construcción de Harbour. \n\n* FWPPC: Ya están disponibles las funciones Encrypt() y Decrypt() para FWPPC. \n\n* FWH: Nuevo ejemplo samples\\TestPrn5.prg. Muestra como imprimir rápidamente un fichero ascii en la impresora por defecto.','',0,'','1c4g6hoh',1,0,'',2,0,0),(34752,7582,3,130,0,'141.51.32.24',1184573442,1,0,1,1,1,1,'','','Willi,\n\n try oBrw:SetColor (&lt;nFore&gt;,&lt;nBack&gt;)','',0,'','31xvcgfr',1,0,'',130,0,0),(34753,7586,6,52,0,'201.213.38.181',1184573758,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2iuxwzgh]Arranca el timer en el ON INIT del dialogo.[/quote:2iuxwzgh]\n\nEn mi caso que hago esto:\n\n[code:2iuxwzgh]   oDlg&#58;bStart&#58;= &#123; || Timer&#40; oTimer, oBrw, oQuery, oDlg &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED [/code:2iuxwzgh]\n\nel bloque bStart no estaría haciendo el on init? o son cosas diferentes el ON INIT y el bStart?\n\nGracias.','',0,'gIA=','2iuxwzgh',1,0,'',52,0,0),(34754,7582,3,473,0,'81.82.10.56',1184578559,1,0,1,1,1,0,'','','Sorry but this does not work.\n\nOnly the background of the lines is set.\n\nI want the whole panel colored if there are few lines in the browse.\n\nExample. The brwose has place for 25 lines.\n\nIn the beginning there are only 2 records added.\n\nI want that the place below those lines is also colored.\n\nThanks for the reply Stefan.\n\nWilly','',0,'gIA=','1k477fsm',1,0,'',473,0,0),(34755,7586,6,24,0,'80.24.12.168',1184578990,1,0,1,1,1,1,'','','[quote=&quot;goosfancito&quot;:j09697wk][quote=&quot;RF&quot;:j09697wk]Arranca el timer en el ON INIT del dialogo.[/quote:j09697wk]\n\nEn mi caso que hago esto:\n\n[code:j09697wk]   oDlg&#58;bStart&#58;= &#123; || Timer&#40; oTimer, oBrw, oQuery, oDlg &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED [/code:j09697wk]\n\nel bloque bStart no estaría haciendo el on init? o son cosas diferentes el ON INIT y el bStart?\n\nGracias.[/quote:j09697wk]\nNo.\nbStart es un codeblock que se lanza cuando el dialogo ya a sido creado, el bInit es ANTES de que se cree.','',0,'gIA=','j09697wk',1,0,'',24,0,0),(34756,7582,3,2,0,'87.218.146.100',1184581432,1,0,1,1,1,1,'','','Willy,\n\nClass TXBrowse Method Paint() makes this call:\n\n   FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )\n\nso it should fill all its entire surface','',0,'gIA=','vvehf1gy',1,0,'',2,0,0),(34757,3321,6,294,0,'201.250.192.200',1184584958,1,0,1,1,1,1,'','','Sigue estando en 0 kb. \nSi no te es mucha molestia, me lo podrias mandar a mi mail?\nGracias de antemano','',0,'gIA=','4ubax0n9',1,0,'',294,0,0),(34758,7587,3,303,0,'72.199.41.171',1184587569,1,0,1,1,1,0,'','','Ugo,\n\nIf you mean default to a value, then yes, just set the variable to the value. It works just the same as a combobox.\n\nJames','',0,'gIA=','2lvn56vg',1,0,'',303,0,0),(34759,7586,6,138,0,'189.141.69.200',1184600858,1,0,1,1,1,1,'','','Son 2 cosas distintas.\n\nSucede que los timers unicamente pueden utilizarse desde ventanas, y no desde dialogos.\n\nDebes utilizar el evento ON INIT ya que es en este evento en el que el dialogo tiene atributos de ventana y puede aceptar el arranque del timer, y que este a su vez se pueda \"colgar\" al sistema de envios de mensajes.\n\nEl bSTart no te sirve, porque como bien menciona Rafa, ese evento se ejecuta una vez que el dialogo ya tiene atributos de dialogo, es decir, ya es modal y no esta \"bombeando\" los mensajes de Windows.','',0,'gIA=','118jd5lz',1,0,'',138,0,0),(34760,7551,3,34,0,'68.5.217.82',1184601688,1,0,1,1,1,1,'','RC Frustrations','I, too, have been looking for a better resource editor.  Since I use xHarbour, with its (Pelles) C compiler, I used the resource editor in Pelles.  However it has problems.  I tried to post to their forum and it was dead.  Finally I posted a note there Saturday when it was revived, but no response.\n\nI use Multi-Edit for development and I am so used to it that making a change to UE is not desirable, especially if their resource editor has problems.\n\nI tried Resource Builder and when it created a mess with the tab pages ( not aligned on the master page ), I removed it.  I got a survey asking why I removed it and replied.  Then I received an email saying they wanted to work with me to earn my business, so I sent them details of the problem.  They never replied.\n\nMy needs are simple.  I want a resource editor that will show me the same dialog as what will display with the program.  So far, getting that result is not happening.  I have to do a lot of manual editing to get things into the proper sizes ... which is most frustrating.\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gIA=','4oldkdzl',1,0,'',34,0,0),(34761,7551,3,2,0,'87.218.146.100',1184602043,1,0,1,1,1,1,'','','Tim,\n\nHave you tried with the Borland Resources Workshop ? It keeps working very nicely.','',0,'gIA=','1eal6rtc',1,0,'',2,0,0),(34762,7583,6,2,0,'87.218.146.100',1184602534,1,0,1,1,1,1,'','','Carlos,\n\nQue versión de Harbour ó xHarbour estás usando ?\n\nPrueba a reproducir el error en un ejemplo pequeño, autocontenido y que no use FWH.','',0,'gIA=','2ixzh1ct',1,0,'',2,0,0),(34763,7591,6,1072,0,'201.214.53.161',1184602613,1,0,1,1,1,0,'','','Veo que el Menu estilo X`, no estan comun dentro del foro, o mi problema es muy complejo.\n\nIgual espero tener alguna orientacion, de si me olvido de el o persisto en ponerlo en marcha.\n\nSaludos\nAntonio','',0,'gIA=','3chkut7v',1,0,'',1072,0,0),(34764,7580,2,2,0,'87.218.146.100',1184602639,1,0,1,1,1,1,'','','Desde cada PRG prueba a hacer:\n\nMsgInfo( LoadLibrary( &lt;nombre_de _la_DLL&gt; ) )\n\ny dinos que valor te aparece en cada uno','',0,'gIA=','2c3mr9ds',1,0,'',2,0,0),(34765,7591,6,2,0,'87.218.146.100',1184602731,1,0,1,1,1,1,'','','Tienes que saber compilar unos PRGs y unos ficheros en C. Es algo básico y necesario para poder usarlo.','',0,'gIA=','otytk1xn',1,0,'',2,0,0),(34766,7591,6,774,0,'200.72.202.35',1184603374,1,0,1,1,1,1,'','','Amigo mio.. pongase en contacto a mi mail.. yo uso menusat,, y va de lujo\n\n<!-- e --><a href=\"mailto:LEIVA_36@HOTMAIL.COM\">LEIVA_36@HOTMAIL.COM</a><!-- e -->\n\nsi tienes u MSN,,, te puedo ayudar  ON LINE\n\nnos vemos','',0,'gIA=','krt768uv',1,0,'',774,0,0),(34767,7592,6,349,0,'189.165.14.15',1184605354,1,0,1,1,1,0,'','Modificando KeyDown de TwBrowse. Antonio Linares','Buen Día \nSaludos a Todos.\n\nAgregando. Las siguientes Líneas a la Clase Twbrowse;\nDe acuerdo a las recomendaciones de Antonio Linares,\nPara capturar las Teclas de Movimiento.\n\n[code:2t6n8w3r]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   local lRefresh\n\n   if &#58;&#58;bKeyDown != nil\n       Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41;\n   endif\n[/code:2t6n8w3r]\n\n\nAl hacer esto si captura las teclas de Movimiento,  eso esta bien.\n\nPero Oprimir digamos un Enter o un Supr,  lo captura DOS VECES.\n\nHelp.....','',0,'AIA=','2t6n8w3r',1,0,'',349,0,0),(34768,7592,6,2,0,'87.218.146.100',1184606335,1,0,1,1,1,1,'','','[code:17a7ausc]\n   if &#58;&#58;bKeyDown != nil \n       Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41; \n       return nil\n   endif\n[/code:17a7ausc]','',0,'AIA=','17a7ausc',1,0,'',2,0,0),(34769,7593,6,743,0,'201.116.76.180',1184608205,1,0,1,1,1,0,'','duda  Antonio !!!','Quiero utilizar la version 2.7 de FWH, pero la quiero con xharbour que tengo que utilizar, veo que la carpeta de lib solo viene five.lib, fivec.lib y otras, espero que me puedas orientar por favor. \n\n\n   tambien cuando utilizo verce me pide para xharbour Fivehx.lib, esta libreria la tengo en la version fw2.6 que debo hacer para generar mi ambiente de trabajo...\n\n\n\nsaludos','',0,'AIA=','2vix0b8z',1,0,'',743,0,0),(34770,7551,3,47,0,'203.144.160.247',1184611698,1,0,1,1,1,0,'','','Dear Antonio,\n\nI\'ve used BRW but when I convert to 32bit the size is not exactly the same in 16bit and grahic is only support 256 colors.  Now it has a lot of nice icons but it\'s more than 256 colors.\n\nBest regards,\nDutch','',0,'AIA=','1vtf25li',1,0,'',47,0,0),(34771,7551,3,35,0,'167.7.140.254',1184612128,1,0,1,1,1,0,'','','Antonio\n\nYou are correct ( sorta ) on Borland Resorce Workshop .. With Vista you have to associate the .rc with Resource workshop and then double click on the .rc to open BRW. If you try to Open BRW and navigate to your folder .. you will get an un-recoverable error.\n\nFor new .rc files .. I just copy one .rc to another and then go in and change it the way I want..\n\nYou have to work in .rc and use rc2dll32.bat to create your 32 bit .dll if you use .dll with your program.\n\nHope that helps .. Only with Vista 32 bit does the above apply.\n\nRick Lipkin','',0,'AIA=','1qldywam',1,0,'',35,0,0),(34772,7592,6,349,0,'189.165.14.15',1184612210,1,0,1,1,1,0,'','','Gracias Antonio Linares.  \n\nCon eso ya no se captura el Enter o el Supr dos veces, Pero ahora ya no captura las teclas como INICIO, FIN, AVPAG, y demás Teclas de movimiento.','',0,'AIA=','v5cwqbt8',1,0,'',349,0,0),(34773,7594,3,35,0,'167.7.140.254',1184612628,1,0,1,1,1,0,'','Update the Message bar','To All\n\nI have a message bar :\n\nxMESSAGE :=  \"User  \"+xLOGIN+\"    Rights  \"+cRIGHTS+        ;\n      \"     Default= \"+cDEFA+\"      Rdd= \"+cRDD+            ;\n      \"     Revision  \"+DTOC(dEXE)+;\n      \"  -r\"+str(nSCR1,4)+\" x \"+STR(nSCR2,4)\n\n\nSET MESSAGE OF oWind                                          ;\n   to xMESSAGE CLOCK\n\nHow can I update the message bar when one of my variables change ?\n\nRick Lipkin','',0,'AIA=','1f8ndm8w',1,0,'',35,0,0),(34774,7495,6,435,0,'200.155.195.202',1184616191,1,0,1,1,1,0,'','','TCBrowse: alguem tem esta classe modificada com Footer','',0,'AIA=','2gl2qq2h',1,0,'',435,0,0),(34775,7495,6,435,0,'200.155.195.202',1184616838,1,0,1,1,1,0,'','','é possivel copiar code \"paint()\" footer do xBrowse para TcBrowse ?\n\nAri','',0,'AIA=','3lcamosa',1,0,'',435,0,0),(34776,7594,3,53,0,'189.139.97.237',1184617477,1,0,1,1,1,1,'','','Rick:\n\nJust redraw the message bar after your vars are updated.\n\nSET MESSAGE OF oWind to xMESSAGE CLOCK \n\nRegards','',0,'AIA=','3avwfele',1,0,'',53,0,0),(34777,7533,1,320,0,'189.146.132.187',1184619080,1,0,1,1,1,0,'','','Gracias Antonio,\n\nI will consider changing to FWH, but I can\'t do it right now because I\'m developing 5 other applications and the change would impact me severely on the delivery time (I don´t have any problems with the other applications).\n\nIt worked fine for several days with CLIPPER=F120 but today it gave the error again, any other suggestion in the meantime?\n\nSaludos\nAndres','',0,'AIA=','kfeaq9tq',1,0,'',320,0,0),(34778,7594,3,35,0,'167.7.140.254',1184619296,1,0,1,1,1,0,'','','Armondo\n\nYou got me in the right direction .. I had to look at the .ppo and then I inserted the native code in my button :\n\noWind:oMsgBar := TMsgBar():New(oWind,xMESSAGE,.F.,.T.,.F.,.F.,,,,)\n\nand the above worked !!\n\nThanks\nRick Lipkin','',0,'AIA=','ek7t64nk',1,0,'',35,0,0),(34779,7594,3,343,0,'24.173.70.29',1184620050,1,0,1,1,1,0,'','','How about\n\nSET MESSAGE OF oWnd TO \"First Text\"\n\noWnd:oMsgBar:KeybOn()\noWnd:oMsgBar:ClockOn()\noWnd:oMsgBar:DateOn()\ncText := \'Second Text\'\noWnd:oMsgBar:SetText( cText )','',0,'AIA=','26swtttu',1,0,'',343,0,0),(34780,7533,1,343,0,'24.173.70.29',1184621098,1,0,1,1,1,0,'','','Isn\'t there a limit to the length of the filename in clipper?','',0,'AIA=','mtqen4i9',1,0,'',343,0,0),(34781,7592,6,2,0,'87.218.146.100',1184621690,1,0,1,1,1,1,'','','Ponlo al final del método','',0,'AIA=','3dfhtij7',1,0,'',2,0,0),(34782,7593,6,2,0,'87.218.146.100',1184621769,1,0,1,1,1,1,'','','Five.lib y FiveC.lib son las librerías de FiveWin para Clipper 16 bits, no para Harbour 32 bits.','',0,'AIA=','wuljprys',1,0,'',2,0,0),(34783,7533,1,303,0,'72.199.41.171',1184622367,1,0,1,1,1,0,'','','Do all the users have the rights to create files in the root directory?\n\nJames','',0,'AIA=','2rsckq9k',1,0,'',303,0,0),(34784,7593,6,787,0,'201.116.76.180',1184623498,1,0,1,1,1,0,'','','Tengo que crear las ibrerias para harbour o xharbour,','',0,'AIA=','3t3rxwik',1,0,'',787,0,0),(34785,7593,6,2,0,'87.218.146.100',1184624543,1,0,1,1,1,1,'','','FWH (FiveWin para Harbour/xharbour) es un producto distinto a FW (FiveWin para Clipper), aunque son compatibles.\n\nNo puedes crear las librerías de FWH a partir de las de FW. Tienes que adquirir FWH desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos','',0,'AIA=','2370721a',1,0,'',2,0,0),(34786,7551,3,6,0,'87.10.1.129',1184625114,1,0,1,1,1,1,'','','[quote=&quot;dutch&quot;:219bg9yx]I\'ve used BRW but when I convert to 32bit the size is not exactly the same in 16bit[/quote:219bg9yx]\n\nThis is not a resource editor problem but a well known difference between Win16 and Win32 platform.\n\n[quote=&quot;dutch&quot;:219bg9yx]and grahic is only support 256 colors.[/quote:219bg9yx]\n\nYes, you can\'t use the internal editor but you can import any bitmap without problems.\n\nEMG','',0,'gA==','219bg9yx',1,0,'',6,0,0),(34787,7594,3,35,0,'167.7.140.254',1184625189,1,0,1,1,1,0,'','','Gale\n\nSorry .. could not get you code to work  <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> .. However I am happy with re-issuing the native code.\n\nRick Lipkin','',0,'gA==','y0ppfp4z',1,0,'',35,0,0),(34788,7593,6,743,0,'201.116.76.180',1184625725,1,0,1,1,1,0,'','','una pregunta la version de fw 27 es solo para 16 bits o es para 32 bits.\n\n\n   tabien por decir quiero compilar las classes de fwh que flags debo utilizar tanto para harbour como para bcc55, \n\n\nsaludos','',0,'gA==','3rmxkbdl',1,0,'',743,0,0),(34789,7593,6,2,0,'87.218.146.100',1184626040,1,0,1,1,1,1,'','','FW es para Clipper. FWH es para Harbour/xharbour.\n\nLos flags de compilación se indican en samples\\build.bat y buildh.bat','',0,'gA==','1yc02ko0',1,0,'',2,0,0),(34790,7594,3,343,0,'24.173.70.29',1184626494,1,0,1,1,1,0,'','','Sorry your window var was oWind not oWnd.\n\nAnyway glad you are ok.','',0,'gA==','2z9ntywh',1,0,'',343,0,0),(34791,7533,1,320,0,'189.146.132.187',1184630622,1,0,1,1,1,0,'','','Hi James,\n\nYes.  The program is trying to create a temp file in C:\\TEMP.  They have administrator rights on their pc\'s.  \nLast week was running fine with the same configuration.\n\nRegards\nAndres\n\nGale\nYes there is the same limit as in DOS 8 chars.  But what does it have to do with it?','',0,'gA==','2utibybp',1,0,'',320,0,0),(34792,7593,6,743,0,'201.116.76.180',1184631846,1,0,1,1,1,0,'','','una pregunta Antonio: busque aqui un error que es este\n   \n\n  cuando recompilas la libreria de fiveh.lib \n\n  me manda un error en BYNAME','',0,'gA==','2umpjr6q',1,0,'',743,0,0),(34793,7595,6,743,0,'201.116.76.180',1184632198,1,0,1,1,1,0,'','error BYNAME una solucion Antonio!!!!!','me aparece este error al querer recompilar la libreria de fivewin harbour \n\n\n    dbms.prg(36) Error E0030  Syntax error: \"parse error at \'CFILE\'\"\n\n   como lo soluciono','',0,'gA==','3c3imquw',1,0,'',743,0,0),(34794,7596,3,35,0,'65.188.6.143',1184636498,1,0,1,1,1,0,'','Message Bar CLOCK ( format )','To All\n\nJust curious on the SET MESSAGE ..  CLOCK ( clause ) if the clock can be viewed as other than military time ??   Like 1:39 pm  verses 13:39\n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','5ac2lu24',1,0,'',35,0,0),(34795,5783,3,234,0,'75.34.217.174',1184638615,1,0,1,1,1,1,'','','Hello,\n\nHow can I make the window visible? When activate the window, it runs minimized and I have to click on application on taskbar for window to appear and allow user to continue.\n\nDEFINE WINDOW oWnd2 FROM 0, 0 TO 40, 85 MENU oMenu \noActiveX = TActiveX():New( oWnd2, \"Shell.Explorer\" )\noWnd2:oClient = oActiveX \noActiveX&#058;Do( \"Navigate2\", cAesdd + cHan )\nACTIVATE WINDOW oWnd2 VALID ( oActiveX&#058;End(), .T. )\n\nThank You,','',0,'gA==','m2fp4v2t',1,0,'',234,0,0),(34796,7597,6,496,0,'200.107.36.176',1184642003,1,0,1,1,1,0,'','Sobre DTPICKER','Saludos a los amigos del foro.\n\nHay la posibilidad de que el DTPICKER muestre valores vacíos de fecha?\n\nMe explico: Tengo campos de tipo fecha en la base de datos cuyo valor en muchos registros es \"  /  /    \" . Resulta que al momento de cargarlos a un DTPICKER muestran la fecha actual, pero yo quiero que me muestre el valor real tomada de la base de datos. Se puede hacer?.\n\nEsto hará que el usuario pueda percatarse de que debe colocar una fecha correcta, porque caso contrario podría pasar desapercibido.\n\nO tendré que usar un get común y corriente?\n\nGracias de antemano \n\n\nMarcelo Jingo','',0,'gA==','15rddjoe',1,0,'',496,0,0),(34797,7598,3,32,0,'41.206.160.2',1184646560,1,0,1,1,1,0,'','Printer properties config','Hi,\n\nIn our applications, we have our own printer selection dialog box, due to the fact that we have to add a couple of custom destinations in our applications.\n\nThe file-&gt;print, preferences button in ie and the properties button in acrobat reader both bring up a full properties box, while the firefox one is limited\n\nHow would I call up this printer properties button for a specific printer name, and specify how much data to ask for?','',0,'gA==','2347poa4',1,0,'',32,0,0),(34798,7533,1,303,0,'72.199.41.171',1184651388,1,0,1,1,1,0,'','','Andres,\n\n&gt;Yes there is the same limit as in DOS 8 chars. But what does it have to do with it?\n\n&gt;Could not create temporary file C:\\TEMP696322880.wmf \n\nAs you can see the filename you showed is greater than 8 chars, so perhaps there is already a file with the same first 8 characters. This may be a FW/Clipper bug--I don\'t know. When FW is running as 16bit it should only be generating temp filenames that are 8 characters long.\n\nJames','',0,'gA==','1sjylz7b',1,0,'',303,0,0),(34799,5783,3,303,0,'72.199.41.171',1184651646,1,0,1,1,1,0,'','','You could try:\n\nACTIVATE WINDOW oWnd2 VALID ( oActiveX&#058;End(), .T. ) ;\n  on init BringWindowToTop( oWnd2:hWnd )\n\nJames','',0,'gA==','2gcp65gi',1,0,'',303,0,0),(34800,7596,3,303,0,'72.199.41.171',1184651897,1,0,1,1,1,0,'','','Rick,\n\nYou could write your own function to display it. Look at the method ClockOn to see how it is done.\n\nOr, you could subclass TMsgbar and create your own ClockOn method.\n\nJames','',0,'gA==','xaew773o',1,0,'',303,0,0),(34801,7597,6,92,0,'213.96.45.9',1184652743,1,0,1,1,1,0,'','Re: Sobre DTPICKER','Supongo que si que la hay:\n\nMay 2007 build\n=========== \n\n* Enhancement: function SetDatePick() accepts a fifth parameter to allow \nempty dates when using Class TDtPicker objects. Class TDTPicker Method SetDate( dDate, lEmpty ) accepts a second logical parameter to specify an empty date.\n\nSaludos\nCarlos G.\n\n\n[quote=&quot;sjingo&quot;:3bfp6sks]Saludos a los amigos del foro.\n\nHay la posibilidad de que el DTPICKER muestre valores vacíos de fecha?\n\nMe explico: Tengo campos de tipo fecha en la base de datos cuyo valor en muchos registros es \"  /  /    \" . Resulta que al momento de cargarlos a un DTPICKER muestran la fecha actual, pero yo quiero que me muestre el valor real tomada de la base de datos. Se puede hacer?.\n\nEsto hará que el usuario pueda percatarse de que debe colocar una fecha correcta, porque caso contrario podría pasar desapercibido.\n\nO tendré que usar un get común y corriente?\n\nGracias de antemano \n\n\nMarcelo Jingo[/quote:3bfp6sks]','',0,'gA==','3bfp6sks',1,0,'',92,0,0),(34802,7595,6,2,0,'87.218.146.162',1184653918,1,0,1,1,1,1,'','','Añade estas líneas al comienzo de ese PRG:\n[code:3us1uuzs]\n#xtranslate BYNAME &lt;V&gt; &#91;, &lt;VN&gt; &#93;     =&gt; &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; &#91;; &#58;&#58;&lt;VN&gt; &#58;= &lt;VN&gt; &#93;\n#xtranslate BYNAME &lt;V&gt; DEFAULT &lt;Val&gt; =&gt; &#58;&#58;&lt;V&gt; &#58;= BYDEFAULT &lt;V&gt;, &lt;Val&gt;\n#xtranslate BYNAME &lt;V&gt; IFNONIL       =&gt; ;\n                            if &lt;V&gt; != NIL ;;\n                                &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; ;;\n                            end\n#xtranslate BYDEFAULT &lt;V&gt;, &lt;Val&gt;     =&gt; if&#40; &lt;V&gt; == NIL, &lt;Val&gt;, &lt;V&gt; &#41;\n[/code:3us1uuzs]','',0,'AIA=','3us1uuzs',1,0,'',2,0,0),(34803,7593,6,2,0,'87.218.146.162',1184654012,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7595\">http://fivetechsoft.com/forums/viewtopic.php?t=7595</a><!-- m -->','',0,'AIA=','894rt2cc',1,0,'',2,0,0),(34804,7533,1,2,0,'87.218.146.162',1184654314,1,0,1,1,1,1,'','','In source\\function\\filename.prg change function cTempFile() to return this:\n\nreturn LFN2SFN( cFileName )','',0,'AIA=','1mzx4i9m',1,0,'',2,0,0),(34805,7599,20,1082,0,'85.43.122.34',1184654518,1,0,1,1,1,0,'','TS o TC browse','trovo in rete diverse librerie TSbrowse TCbrowse con versioni varie, che differenza c\'è tra TC e TS e qual\'è l\'ultima versione?','',0,'AIA=','1rwhia6y',1,0,'',1082,0,0),(34806,7598,3,2,0,'87.218.146.162',1184654601,1,0,1,1,1,1,'','','Alex,\n\nThis may be of help:\n<!-- m --><a class=\"postlink\" href=\"http://www.devx.com/vb2themax/Tip/18895\">http://www.devx.com/vb2themax/Tip/18895</a><!-- m -->\n\nyou can easily port it to FWH','',0,'AIA=','1qq8x9vq',1,0,'',2,0,0),(34807,7598,3,2,0,'87.218.146.162',1184655461,1,0,1,1,1,1,'','','The PrinterProperties function displays a printer-properties dialog box for the specified printer. \n\nBOOL PrinterProperties(\n\n    HWND hWnd,	// handle of parent window\n    HANDLE hPrinter 	// handle of printer object \n   );	\n\nParameters\n\nhWnd\nIdentifies the parent window of the dialog box. \n\nhPrinter\nIdentifies a printer object. \n\nReturn Values\n\nIf the function succeeds, the return value is nonzero.\nIf the function fails, the return value is zero. To get extended error information, call GetLastError. \n\nSee Also\n\nOpenPrinter','',0,'AIA=','2aw1lvg1',1,0,'',2,0,0),(34808,7551,3,3,0,'80.81.159.19',1184658115,1,0,1,1,1,1,'','','Rick\n\nI use BRW with Vista without problems, i open brw direct\n\nMy vista is 32\n\nHth\n\nRichard','',0,'AIA=','2nrf32nv',1,0,'',3,0,0),(34809,7599,20,6,0,'87.13.209.157',1184661356,1,0,1,1,1,1,'','Re: TS o TC browse','TCBrowse è una di quelle standard Fivewin e non conviene utilizzarne una versione esterna. TSBrowse è quella originariamente sviluppata da Manuel Mercado ma mai portata a termine. Molti la usano ma secondo me non è sufficientemente stabile né, come hai notato, decentemente supportata.\n\nEMG','',0,'AIA=','qvjebclf',1,0,'',6,0,0),(34810,7598,3,32,0,'41.206.160.2',1184664600,1,0,1,1,1,0,'','','I\'ll check those out, thanks.\n\nAlex','',0,'AIA=','2wraqov5',1,0,'',32,0,0),(34811,7600,6,413,0,'195.55.176.112',1184669368,1,0,1,1,1,1,'','Parece que el Turbo de Borland tambien ha sido liberado.','Antonio parece por lo que ponen en el Foro de xHarbour que se ha liberado la version Borland Turbo C++ ver 5.8.2, puedes confirmarlo. Parece que esta ya viene completa con el editor de recursos y mas cosas. Te importaria confirmarlo... y si es conveniente usarla con fivewin.','',0,'AIA=','xabegof8',1,0,'',413,0,0),(34812,7601,6,1100,0,'201.14.31.6',1184674655,1,0,1,1,1,1,'','Hacer insert en mysql via sqlrdd','Estoy teniendo problemas para hacer un insert(y todo lo demas) en una tabla, mi codigo esta a seguir, la conexion funciona bien, pero necesito una ayuda pa poder seguir\n[code:1as0v0y2]\nAbreConn&#40;&quot;3&quot;,&quot;localhost&quot;,&quot;root&quot;,&quot;1234&quot;,&quot;sistema&quot;&#41;//chama funcao, tudo OK\n\n// 1ra forma\nsqlexecute&#40; &quot;insert into estado &#40; uf, descricao &#41; values &#40;cUF, Desc &#41;&quot; &#41;//nao da erro, mas nao faz nada na tabela estado\n\n// 2da forma\ndbUseArea&#40;&#46;T&#46;, &quot;SQLRDD&quot;, &quot;ESTADO&quot;, &quot;Estado&quot;, &#46;F&#46;, &#46;F&#46;&#41;//aqui dá erro\n&#46;&#46;&#46;\n&#46;&#46;&#46;[/code:1as0v0y2]','',0,'AIA=','1as0v0y2',1,0,'',1100,0,0),(34813,7551,3,35,0,'167.7.140.254',1184677297,1,0,1,1,1,0,'','','Richard\n\nWOW .. something has changed .. must be a recent Microsoft patch .. I will have to try it at home as well.\n\nWhen I would open BRW from File and drill to the folder I want .. it would give me a NVTM .. something error.\n\nSeems to be working fine now\n\nRick','',0,'AIA=','29o6qs2x',1,0,'',35,0,0),(34814,7583,6,483,0,'201.252.150.172',1184677710,1,0,1,1,1,0,'','Error en CDX','Solucionado, era un error mio al mandar unos parametros a una funcion de indexación. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nGracias','',0,'AIA=','1nc8vtuu',1,0,'',483,0,0),(34815,7602,6,1023,0,'201.92.183.254',1184678755,1,0,1,1,1,1,'','Debbuger-xHarbour','Hi.\n\nI\'m trying to use the debbuger in xHarbour, but i don\'t know how.\n\nI mark the options to include Debug in the xBuilt, but it don\'t work.\n\nI need add something more in the code? \nCan someone explain me how to use the debugger?\n\nThanks, advanced.','',0,'AIA=','342uyols',1,0,'',1023,0,0),(34816,5783,3,234,0,'75.34.217.174',1184680434,1,0,1,1,1,1,'','','Hi James,\n\nThank you for your response. Unfortunately that did not work. Can I try something else?','',0,'AIA=','10pgnqi0',1,0,'',234,0,0),(34817,7603,3,234,0,'75.34.217.174',1184685022,1,0,1,1,1,1,'','Copy with original date and time stamp','Hello,\n\nI would like to use FWH to copy programs from the server to the workstation and keep the date and time stamp of the program on the server. In the past I used the copy command in a MS-DOS batch file to copy from the server to the workstation. I would like to accomplish in FWH, is it possible?\n\nThank you,','',0,'AIA=','28pzbmeu',1,0,'',234,0,0),(34818,5783,3,303,0,'72.199.41.171',1184686330,1,0,1,1,1,0,'','','Darrell,\n\nCan you provide us with a working example that we can test?\n\nJames','',0,'AIA=','1u7sltmi',1,0,'',303,0,0),(34819,7603,3,303,0,'72.199.41.171',1184686490,1,0,1,1,1,0,'','','Darrell,\n\nTry this:\n\nCopyFile( cSource, cTarget )\n\nDLL32 FUNCTION CopyFile( cExFile AS LPSTR, cNewFile AS LPSTR, lFailIfEx AS LONG );\nAS BOOL PASCAL FROM \"CopyFileA\" LIB \"Kernel32.dll\"\n\nJames','',0,'AIA=','1uz3ik9n',1,0,'',303,0,0),(34820,7551,3,303,0,'72.199.41.171',1184686903,1,0,1,1,1,0,'','','&gt;Yes, you can\'t use the internal editor but you can import any bitmap without problems. \n\nGlady this is true. \n\nI am not sure if it is a FWH or RW issue, but it seems we cannot use 32bit icons (XP style with alpha channel). Those are the ones with the transparent shadows. They are either converted 24 bit when they are imported or FWH cannot display them--I don\'t know which.\n\nJames','',0,'AIA=','1o8srunm',1,0,'',303,0,0),(34821,7600,6,2,0,'87.218.146.162',1184688385,1,0,1,1,1,1,'','','Andrés,\n\n&gt; Borland Turbo C++ ver 5.8.2\n\nSabes cual es la dirección de descarga ? O la página web en donde describen sus características ? gracias','',0,'AIA=','2v8xjjl3',1,0,'',2,0,0),(34822,7602,6,2,0,'87.218.146.162',1184688508,1,0,1,1,1,1,'','','Carlson,\n\nYou may ask it at usenet comp.lang.xharbour as it is a specific xharbour issue.\n\nWith Harbour you can make it work using FWH\\samples\\AltD.prg and linking GTWIN.lib instead of GTGUI.lib','',0,'AIA=','2x4h6frf',1,0,'',2,0,0),(34823,7601,6,2,0,'87.218.146.162',1184688637,1,0,1,1,1,1,'','','Marizete,\n\nEl SQLRDD es un RDD propio de xharbour comercial, por lo que lo idóneo sería que hicieses la pregunta en usenet en comp.lang.xharbour','',0,'AIA=','1in066t3',1,0,'',2,0,0),(34824,5783,3,234,0,'75.34.217.174',1184688651,1,0,1,1,1,1,'','','Hi James,\n\nHere is my source.  Thanks for your help.\n\n// Write HTML...\ncText := \'&lt;FORM ACTION=\"https://www.aesdirect.gov/weblink/weblink.cgi\" METHOD=\"POST\"&gt;\' + cEol\n\ncText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_app_ident\" VALUE=\"wlcdm01\"&gt;\' + cEol\ncText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nologin_url\" VALUE=\"window.close()\"&gt;\' + cEol\ncText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nosed_url\" VALUE=\"window.close()\"&gt;\' + cEol\ncText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_success_url\" VALUE=\"window.close()\"&gt;\' + cEol\n\ncText += \'&lt;input type=\"submit\" name=\"B1\" value=\"Send to AES\" style=\"background-color: #B8092C; font-weight: normal; font-size: 10px; font-face: tahoma; color: #ffffff; border-style: solid; border-width: 4px; border-color: #B8092C;\"&gt;\'\n\ncText += \'&lt;/FORM&gt;\'\n\n// Create file\nhHan = FCREATE( cAesdd + cHan, 0)\nIF (hHan == -1)\n     MsgAlert( \"CDM WinFrt cannot create \"+ cAesdd + cHan, \"Process Aborted\" )\n     RETURN nil\nENDIF\nFWRITE( hHan, cText )\nFCLOSE( hHan )\n\nDEFINE WINDOW oWnd2 FROM 0, 0 TO 40, 85 ;\nMENU oMenu TITLE PA[04] + \" - AES Direct Submission - \" + ALLTRIM( cFile ) ICON oIcon\n\noActiveX = TActiveX():New( oWnd2, \"Shell.Explorer\" )\n\noWnd2:oClient = oActiveX // To fill the entire window surface\n\noActiveX&#058;Do( \"Navigate2\", cAesdd + cHan )\n\nACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd )','',0,'','2ikat9hp',1,0,'',234,0,0),(34825,5783,3,303,0,'72.199.41.171',1184689831,1,0,1,1,1,0,'','','This does not seem to be a complete example. Just from looking at it, there is no function main() and the vars cAesdd and cHan are not defined. Please provide a complete, compilable example.\n\nJames','',0,'','1byfjg9b',1,0,'',303,0,0),(34826,5783,3,234,0,'75.34.217.174',1184689967,1,0,1,1,1,1,'','','Hi James,\n\nHere is complete source.\n\n#include \"fivewin.ch\"\n\n//-----------------------------------------------------------------------------\nfunction _AesSend( cDb, cMode, cFile )\n\n  local hHan                                                            , ;\n        oWnd2                                                           , ;\n        oIcon                                                           , ;\n        cAesdd  := ALLTRIM( frsys( \"aesout\" ) )                         , ;\n        cHan    := ALLTRIM( _Strip( cFile, .F., .F., .T. ) ) + \".HTM\"   , ;\n        cAesem  := ALLTRIM( frsys( \"aesemail\" ) )                       , ;\n        cText   := \"\"                                                   , ;\n        cSRN    := ALLTRIM( cFile )                                     , ;\n        cBN     := \"\"                                                   , ;\n        cST     := \"\"                                                   , ;\n        cPOE    := \"\"                                                   , ;\n        cCOD    := \"\"                                                   , ;\n        cEDA    := \"\"                                                   , ;\n        cPOU    := \"\"                                                   , ;\n        cMOT    := \"\"                                                   , ;\n        cSCAC   := \"\"                                                   , ;\n        cVN     := \"\"                                                   , ;\n        cRCC    := \"\"                                                   , ;\n        cHAZ    := \"\"                                                   , ;\n        cRT     := \"\"                                                   , ;\n        cAD0_1  := \"\"                                                   , ;\n        cAD0_2  := \"\"                                                   , ;\n        cAD0_3  := \"\"                                                   , ;\n        cAD0_4  := \"\"                                                   , ;\n        cAD0_5  := \"\"                                                   , ;\n        cAD0_6  := \"\"                                                   , ;\n        cAD0_7  := \"\"                                                   , ;\n        cAD0_8  := \"\"                                                   , ;\n        cAD0_9  := \"\"                                                   , ;\n        cAD0_11 := \"\"                                                   , ;\n        cAD0_12 := \"\"                                                   , ;\n        cAD1_3  := \"\"                                                   , ;\n        cAD1_8  := \"\"                                                   , ;\n        cAD1_9  := \"\"                                                   , ;\n        cAD1_10 := \"\"                                                   , ;\n        cAD1_12 := \"\"                                                   , ;\n        cAD3_2  := \"E\"                                                  , ;\n        cAD3_3  := ALLTRIM( PA[11] )                                    , ;\n        cAD3_4  := ALLTRIM( frsys( \"ein\" ) )                            , ;\n        cAD3_5  := ALLTRIM( _UserId( \"N\" ) )                            , ;\n        cAD3_7  := ALLTRIM( PA[16] )                                    , ;\n        cAD3_8  := ALLTRIM( PA[12] )                                    , ;\n        cAD3_9  := ALLTRIM( PA[13] )                                    , ;\n        cAD3_10 := ALLTRIM( PA[15] )                                    , ;\n        cAD3_11 := ALLTRIM( frsys( \"state\" ) )                          , ;\n        cAD3_12 := ALLTRIM( PA[22] )                                    , ;\n        cAD3_13 := ALLTRIM( frsys( \"zip\" ) )                            , ;\n        cTmp    := \"\"                                                   , ;\n        lTmp    := .F.                                                  , ;\n        cChar   := \"\"                                                   , ;\n        cFirst  := \"\"                                                   , ;\n        cLast   := \"\"                                                   , ;\n        nLine   := 0\n\n  // Validate...\n  IF EMPTY( cAesdd )\n     MsgAlert( \"Cannot continue, Please configure AES folder\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cAesem )\n     MsgAlert( \"Cannot continue, Please configure AES email\", PA[04] )\n     RETURN nil\n  ENDIF\n\n  // Init...\n  DO CASE\n     CASE cMode=\"O\"\n          cTmp    := ALLTRIM( cShipcont )\n          FOR nX=1 TO LEN( cTmp )\n              cChar := SUBSTR( cTmp, nX, 1 )\n              IF cChar=\' \'\n                 lTmp := .T.\n              ENDIF\n              IF lTmp\n                 cFirst += cChar\n               ELSE\n                 cLast  += cChar\n              ENDIF\n          NEXT nX\n\n          cBN     := ALLTRIM( cBooking )\n          cST     := ALLTRIM( cAesOrigin )\n          cPOE    := ALLTRIM( cPol )\n          cCOD    := ALLTRIM( cUlcode )\n          cEDA    := RIGHT( DTOS( dDepart ), 6 )\n          cPOU    := ALLTRIM( cPoul )\n          cMOT    := \"11\"\n          cSCAC   := ALLTRIM( cCarrier )\n          cVN     := ALLTRIM( cVessel )\n          cRCC    := IF( lRelated, \'Y\', \'N\' )\n          cHAZ    := \'N\'\n          cRT     := IF( lRouted , \'Y\', \'N\' )\n          cAD0_1  := ALLTRIM( LEFT( cShipname, 30 ) )\n          cAD0_2  := ALLTRIM( _Strip( cEin ) )\n          cAD0_3  := \'E\'\n          cAD0_4  := ALLTRIM( LEFT( cShipadd1, 32 ) )\n          cAD0_5  := ALLTRIM( LEFT( cShipadd2, 32 ) )\n          cAD0_6  := ALLTRIM( LEFT( cShipcity, 25 ) )\n          cAD0_7  := ALLTRIM( cShipst )\n          cAD0_8  := ALLTRIM( LEFT( cShipzip, 9 ) )\n          cAD0_9  := ALLTRIM( LEFT( cFirst, 13 ) )\n          cAD0_11 := ALLTRIM( LEFT( cLast, 20 ) )\n          cAD0_12 := ALLTRIM( _Strip( LEFT( cShipph, 11 ) ) )\n          cAD1_3  := ALLTRIM( LEFT( cConsname, 30 ) )\n          cAD1_8  := ALLTRIM( LEFT( cConsadd1, 32 ) )\n          cAD1_9  := ALLTRIM( LEFT( cConsadd2, 32 ) )\n          cAD1_10 := ALLTRIM( LEFT( cConscity, 25 ) )\n          cAD1_12 := ALLTRIM( cConsiso )\n\n     CASE cMode=\"A\"\n          cTmp    := ALLTRIM( cShipcont )\n          FOR nX=1 TO LEN( cTmp )\n              cChar := SUBSTR( cTmp, nX, 1 )\n              IF cChar=\' \'\n                 lTmp := .T.\n              ENDIF\n              IF lTmp\n                 cFirst += cChar\n               ELSE\n                 cLast  += cChar\n              ENDIF\n          NEXT nX\n\n          cST     := ALLTRIM( cAesOrigin )\n          cPOE    := ALLTRIM( cPol )\n          cCOD    := ALLTRIM( cUlcode )\n          cEDA    := RIGHT( DTOS( dDte01 ), 6 )\n          cPOU    := \'\'\n          cMOT    := \"40\"\n          cSCAC   := ALLTRIM( cPfx )\n          cVN     := \'\'\n          cRCC    := IF( lRelated, \'Y\', \'N\' )\n          cHAZ    := \'N\'\n          cRT     := IF( lRouted , \'Y\', \'N\' )\n          cAD0_1  := ALLTRIM( LEFT( cShipname, 30 ) )\n          cAD0_2  := ALLTRIM( _Strip( cEin ) )\n          cAD0_3  := \'E\'\n          cAD0_4  := ALLTRIM( LEFT( cShipadd1, 32 ) )\n          cAD0_5  := ALLTRIM( LEFT( cShipadd2, 32 ) )\n          cAD0_6  := ALLTRIM( LEFT( cShipcity, 25 ) )\n          cAD0_7  := ALLTRIM( cShipst )\n          cAD0_8  := ALLTRIM( LEFT( cShipzip, 9 ) )\n          cAD0_9  := ALLTRIM( LEFT( cFirst, 13 ) )\n          cAD0_11 := ALLTRIM( LEFT( cLast, 20 ) )\n          cAD0_12 := ALLTRIM( _Strip( LEFT( cShipph, 11 ) ) )\n          cAD1_3  := ALLTRIM( LEFT( cConsname, 30 ) )\n          cAD1_8  := ALLTRIM( LEFT( cConsadd1, 32 ) )\n          cAD1_9  := ALLTRIM( LEFT( cConsadd2, 32 ) )\n          cAD1_10 := ALLTRIM( LEFT( cConscity, 25 ) )\n          cAD1_12 := ALLTRIM( cConsiso )\n\n          // Carrier...\n          _db( PA[03], \"contacts\" )\n          SET ORDER TO TAG S7\n          SEEK cSCAC\n          IF FOUND()\n             cSCAC := ALLTRIM( contacts-&gt;custid )\n             cVN   := ALLTRIM( LEFT( contacts-&gt;custname, 23 ) )\n          ENDIF\n          _dbClose( \"contacts\" )\n\n  ENDCASE\n\n  // AES codes...\n  IF ! EMPTY( cPOE )\n     _dbExpand( \"ports\", cPOE, @cPOE, \"SCHD\" )\n  ENDIF\n  IF ! EMPTY( cPOU )\n     _dbExpand( \"ports\", cPOU, @cPOU, \"SCHK\" )\n  ENDIF\n\n  // Write HTML...\n  cText := \'&lt;FORM ACTION=\"https://www.aesdirect.gov/weblink/weblink.cgi\" METHOD=\"POST\"&gt;\' + cEol\n\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_app_ident\" VALUE=\"wlcdm01\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nologin_url\" VALUE=\"window.close()\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nosed_url\" VALUE=\"window.close()\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_success_url\" VALUE=\"window.close()\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"EMAIL\" VALUE=\"\' + cAesEm + \'\"&gt;\' + cEol\n\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"SRN\" VALUE=\"\'    + cSRN               + \'\"&gt;\' + cEol\n  IF ! EMPTY( cBN )\n     cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"BN\" VALUE=\"\'  + cBN                + \'\"&gt;\' + cEol\n  ENDIF\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"ST\" VALUE=\"\'     + cST                + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"POE\" VALUE=\"\'    + cPOE               + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"COD\" VALUE=\"\'    + cCOD               + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"EDA\" VALUE=\"\'    + cEDA               + \'\"&gt;\' + cEol\n  IF ! EMPTY( cPOU )\n     cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"POU\" VALUE=\"\' + cPOU               + \'\"&gt;\' + cEol\n  ENDIF\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"MOT\" VALUE=\"\'    + cMOT               + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"SCAC\" VALUE=\"\'   + cSCAC              + \'\"&gt;\' + cEol\n\n  IF ! EMPTY( cVN )\n     cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"VN\" VALUE=\"\'  + cVN                + \'\"&gt;\' + cEol\n  ENDIF\n\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"RCC\" VALUE=\"\'    + cRCC               + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"HAZ\" VALUE=\"\'    + cHAZ               + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"RT\" VALUE=\"\'     + cRT                + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_1\" VALUE=\"\'  + cAD0_1             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_2\" VALUE=\"\'  + cAD0_2             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_3\" VALUE=\"\'  + cAD0_3             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_4\" VALUE=\"\'  + cAD0_4             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_5\" VALUE=\"\'  + cAD0_5             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_6\" VALUE=\"\'  + cAD0_6             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_7\" VALUE=\"\'  + cAD0_7             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_8\" VALUE=\"\'  + cAD0_8             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_9\" VALUE=\"\'  + cAD0_9             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_11\" VALUE=\"\' + cAD0_11            + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD0_12\" VALUE=\"\' + cAD0_12            + \'\"&gt;\' + cEol\n\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD1_3\" VALUE=\"\'  + cAD1_3             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD1_8\" VALUE=\"\'  + cAD1_8             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD1_9\" VALUE=\"\'  + cAD1_9             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD1_10\" VALUE=\"\' + cAD1_10            + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD1_12\" VALUE=\"\' + cAD1_12            + \'\"&gt;\' + cEol\n\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_2\" VALUE=\"\'  + cAD3_2             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_3\" VALUE=\"\'  + cAD3_3             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_4\" VALUE=\"\'  + cAD3_4             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_5\" VALUE=\"\'  + cAD3_5             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_7\" VALUE=\"\'  + cAD3_7             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_8\" VALUE=\"\'  + cAD3_8             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_9\" VALUE=\"\'  + cAD3_9             + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_10\" VALUE=\"\' + cAD3_10            + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_11\" VALUE=\"\' + cAD3_11            + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_12\" VALUE=\"\' + cAD3_12            + \'\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"AD3_13\" VALUE=\"\' + cAD3_13            + \'\"&gt;\' + cEol\n\n  // AES detail...\n  SELECT seddet\n  SET ORDER TO TAG S1\n  GO TOP\n  SEEK cAesserial\n  IF FOUND()\n     DO WHILE ! EOF() .AND. ( cAesserial == seddet-&gt;serial )\n\n        // Init...\n        IF ! EMPTY( seddet-&gt;code )\n           nLine++\n           cLine := LTRIM( STR( nLine, 9 ) )\n           cIT1  := ALLTRIM( seddet-&gt;eic )\n           cIT2  := LTRIM( STR( seddet-&gt;value, 10 ) )\n           cIT3  := ALLTRIM( seddet-&gt;unit )\n           cIT4  := LTRIM( STR( seddet-&gt;qty, 10 ) )\n           cIT5  := ALLTRIM( seddet-&gt;unit2 )\n           cIT6  := LTRIM( STR( seddet-&gt;qty2, 10 ) )\n           cIT7  := LTRIM( STR( seddet-&gt;wt, 10 ) )\n           cIT8  := ALLTRIM( seddet-&gt;liccode )\n           cIT9  := ALLTRIM( seddet-&gt;license )\n           cIT12 := ALLTRIM( LEFT( seddet-&gt;comm, 45 ) )\n           cIT13 := ALLTRIM( seddet-&gt;code )\n           cIT14 := \'\'\n           cIT15 := IF( seddet-&gt;veh, \'Y\', \'N\' )\n           cIT16 := \'V\'\n           cIT17 := ALLTRIM( seddet-&gt;vin )\n           cIT18 := ALLTRIM( seddet-&gt;title )\n           cIT19 := ALLTRIM( seddet-&gt;state )\n           cIT20 := ALLTRIM( seddet-&gt;eccn )\n           cIT21 := ALLTRIM( seddet-&gt;df )\n           cOD1  := \'\'\n           cOD2  := \'\'\n           cOD3  := \'\'\n           cOD4  := \'\'\n           cOD5  := \'\'\n           cOD6  := \'\'\n           cOD7  := \'\'\n\n           // AES...\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"isLine\' + cLine + \'\" VALUE=\"Y\"&gt;\' + cEol\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_1\" VALUE=\"\'  + cIT1  + \'\"&gt;\' + cEol\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_2\" VALUE=\"\'  + cIT2  + \'\"&gt;\' + cEol\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_3\" VALUE=\"\'  + cIT3  + \'\"&gt;\' + cEol\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_4\" VALUE=\"\'  + cIT4  + \'\"&gt;\' + cEol\n\n           IF ! EMPTY( cIT5 ) .AND. ( VAL( cIT6 ) &gt; 0 )\n              cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_5\" VALUE=\"\'  + cIT5  + \'\"&gt;\' + cEol\n              cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_6\" VALUE=\"\'  + cIT6  + \'\"&gt;\' + cEol\n           ENDIF\n\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_7\" VALUE=\"\'  + cIT7  + \'\"&gt;\' + cEol\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_8\" VALUE=\"\'  + cIT8  + \'\"&gt;\' + cEol\n\n           IF ! EMPTY( cIT9 )\n              cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_9\" VALUE=\"\'  + cIT9  + \'\"&gt;\' + cEol\n           ENDIF\n\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_12\" VALUE=\"\' + cIT12 + \'\"&gt;\' + cEol\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_13\" VALUE=\"\' + cIT13 + \'\"&gt;\' + cEol\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_15\" VALUE=\"\' + cIT15 + \'\"&gt;\' + cEol\n\n           IF ( cIT15=\'Y\' ) .AND. ( ! EMPTY( cIT16 ) )\n              cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_16\" VALUE=\"\'  + cIT16  + \'\"&gt;\' + cEol\n           ENDIF\n           IF ( cIT15=\'Y\' ) .AND. ( ! EMPTY( cIT17 ) )\n              cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_17\" VALUE=\"\'  + cIT17  + \'\"&gt;\' + cEol\n           ENDIF\n           IF ( cIT15=\'Y\' ) .AND. ( ! EMPTY( cIT18 ) )\n              cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_18\" VALUE=\"\'  + cIT18  + \'\"&gt;\' + cEol\n           ENDIF\n           IF ( cIT15=\'Y\' ) .AND. ( ! EMPTY( cIT19 ) )\n              cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_19\" VALUE=\"\'  + cIT19  + \'\"&gt;\' + cEol\n           ENDIF\n\n           cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"IT\' + cLine + \'_21\" VALUE=\"\' + cIT21 + \'\"&gt;\' + cEol\n\n           // DDTC vars here -----------------------------------------------------\n\n        ENDIF\n\n\n        SELECT seddet\n        SKIP\n\n     ENDDO\n  ENDIF\n\n  // Validation...\n  IF EMPTY( cSRN )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"File Number is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cBN ) .AND. ( cMode=\'O\' )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Booking Number is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cST )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"State of Origin is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF ( LEN( ALLTRIM( cPOE ) ) &lt; 4 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Port of Export \" + ALLTRIM( cPOE ) + \" is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF ( LEN( ALLTRIM( cCOD ) ) != 2 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Country of Destination \" + ALLTRIM( cCOD ) + \" is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF ( LEN( ALLTRIM( cPOU ) ) &lt; 4 ) .AND. ( cMode=\'O\' )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Port of Unloading \" + ALLTRIM( cPOU ) + \" is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF ( LEN( ALLTRIM( cEDA ) ) != 6 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"E.T.D. \" + ALLTRIM( cEDA ) + \" is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF ( ( LEN( ALLTRIM( cSCAC ) ) != 2 ) .AND. ( cMode=\'A\' ) ) .OR. ( ( LEN( ALLTRIM( cSCAC ) ) != 4 ) .AND. ( cMode=\'O\' ) )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Carrier \" + ALLTRIM( cSCAC ) + \" is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cVN ) .AND. ( cMode=\'O\' )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Vessel Name \" + ALLTRIM( cVN ) + \" is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n\n  IF EMPTY( cAD0_1 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Shipper Name is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cAD0_2 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Shipper EIN is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cAD0_4 + cAD0_5 + cAD0_6 + cAD0_7 + cAD0_8 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Shipper Address is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cAD0_9 + cAD0_11 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Shipper Contact is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cAD0_12 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Shipper Telephone is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n\n  IF EMPTY( cAD1_3 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Consignee Name is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n  IF EMPTY( cAD1_8 + cAD1_9 + cAD1_10 + cAD1_12 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Consignee Address is not valid\", PA[04] )\n     RETURN nil\n  ENDIF\n\n  IF ( nLine &lt; 1 )\n     MsgAlert( \"Process cannot be completed\" + cEol + \"Please enter AES Schedule B details\", PA[04] )\n     RETURN nil\n  ENDIF\n\n  cText += \'&lt;input type=\"submit\" name=\"B1\" value=\"Send to AES\" style=\"background-color: #B8092C; font-weight: normal; font-size: 10px; font-face: tahoma; color: #ffffff; border-style: solid; border-width: 4px; border-color: #B8092C;\"&gt;\'\n\n  cText += \'&lt;/FORM&gt;\'\n\n  // Create file\n  hHan = FCREATE( cAesdd + cHan, 0)\n  IF (hHan == -1)\n     MsgAlert( \"CDM WinFrt cannot create \"+ cAesdd + cHan, \"Process Aborted\" )\n     RETURN nil\n  ENDIF\n  FWRITE( hHan, cText )\n  FCLOSE( hHan )\n\n  // Log...\n  CdmLog( cFile, \'AESDIRECT\', cText )\n\n  DEFINE ICON oIcon RESOURCE \"CDMLOGO\"\n\n  MENU oMenu\n       MENUITEM \"&amp;Close\"                        ACTION ( oWnd2:End() )\n  ENDMENU\n\n  DEFINE WINDOW oWnd2 FROM 0, 0 TO 40, 85 ;\n    MENU oMenu TITLE PA[04] + \" - AES Direct Submission - \" + ALLTRIM( cFile ) ICON oIcon\n\n  oActiveX = TActiveX():New( oWnd2, \"Shell.Explorer\" )\n\n  oWnd2:oClient = oActiveX // To fill the entire window surface\n\n  oActiveX&#058;Do( \"Navigate2\", cAesdd + cHan )\n\n  ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd )\n\n  // Init...\n  dProcdate := DATE()\n  cProctime := TIME()\n  cProcuser := _UserId( \"N\" )\n\n  RETURN nil','',0,'','1r9dt6i5',1,0,'',234,0,0),(34827,7604,6,36,0,'164.77.81.210',1184690041,1,0,1,1,1,1,'','GROUP y RADIO','Estimados\n\nEstoy utilizando group pero este desaparece, pero cuando paso el mouse vuelve aparecer, hay alguna formula para utilizar GROUP, si le saco el \nREDEFINE GROUP funciona sin ningun problema?, pero necesito el REDEFINE GROUP ya que en ocasiones necesito ocultarlo...\n\n[code:1xhmdi60]aGet&#91;7,2&#93; &#58;= 2\nREDEFINE RADIO aGet&#91;7,1&#93; ;\n			VAR   aGet&#91;7,2&#93; ;\n			ID 54, 55 OF oDlg\n\n\nREDEFINE GROUP oGroup ID 110 OF oDlg PROMPT &quot;Elija item&quot;\n[/code:1xhmdi60]\n\ncualquier pista es bienvenida','',0,'AIA=','1xhmdi60',1,0,'',36,0,0),(34828,5783,3,303,0,'72.199.41.171',1184690884,1,0,1,1,1,0,'','','Darrell,\n\nThe last source you provided errors out with a bunch of undefined functions.\n\nI was hoping to get a very small example that shows the problem. You should be able to do this in ten lines or less. It appears that your problem has something to do with the activeX so you just need to define the window and provide the data to navigate the activex.\n\nJames','',0,'AIA=','1ia72dt3',1,0,'',303,0,0),(34829,5783,3,303,0,'72.199.41.171',1184691096,1,0,1,1,1,0,'','','Darrell,\n\nHere is a simple example. All we need is the vars defined.\n\n#include \"fivewin.ch\"\n  function main()\n\n   cAesdd := ...\n   cHan := ...\n\n   DEFINE WINDOW oWnd2 \n   \n   oActiveX = TActiveX():New( oWnd2, \"Shell.Explorer\" )\n   \n   oWnd2:oClient = oActiveX\n   \n   oActiveX&#058;Do( \"Navigate2\", cAesdd + cHan )\n   \n   ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd )\n   \n   return nil\n\n---------------\nJames','',0,'AIA=','32at8oq8',1,0,'',303,0,0),(34830,5783,3,303,0,'72.199.41.171',1184691808,1,0,1,1,1,0,'','','Darrell,\n\nThis works for me with or without the ON INIT. The screen is displayed. So something else in your code is causing the problem. Or maybe you are using a different OS--I am using XP Pro SP2. Also I am using FWH 7.05 with xHarbour.\n\nJames\n\n--------------------------\n  #include \"fivewin.ch\"\n  function main()\n\n   cAesdd := \"www.microsoft.com\"\n   cHan := \"\"\n\n   DEFINE WINDOW oWnd2\n\n   oActiveX = TActiveX():New( oWnd2, \"Shell.Explorer\" )\n\n   oWnd2:oClient = oActiveX\n\n   oActiveX&#058;Do( \"Navigate2\", cAesdd + cHan )\n\n   ACTIVATE WINDOW oWnd2 //ON INIT BringWindowToTop( oWnd2:hWnd )\n\n   return nil\n\n// eof','',0,'AIA=','30bh52jy',1,0,'',303,0,0),(34832,6815,6,23,0,'213.96.85.49',1184691935,1,0,1,1,1,1,'','No consigo compilar','Lamento la pregunta tonta, pero no consigo compilar para realizar las pruebas : \n\nObtengo : \n[code:2iwv89us]\nCompiling&#46;&#46;&#46;\nHarbour Compiler Alpha build 45&#46;0 &#40;Flex&#41;\nCopyright 1999-2005, http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'mysql1&#46;prg\' and generating preprocessed output to \'mysql1&#46;ppo\'&#46;&#46;&#46;\n\nLines 16, Functions/Procedures 1\nGenerating C source output to \'mysql1&#46;c\'&#46;&#46;&#46; Done&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nmysql1&#46;c&#58;\n* \nLinking&#46;&#46;&#46;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_hb_itemGetSymbol\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\USRRDD&#46;LIB|usrrdd\nError&#58; Unresolved external \'_hb_rddGetWorkAreaPointer\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\USRRDD&#46;LIB|usrrdd\nError&#58; Unresolved external \'_hb_xvmPopLogical\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\USRRDD&#46;LIB|usrrdd\nError&#58; Unresolved external \'_hb_xvmPushLocalByRef\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\USRRDD&#46;LIB|usrrdd\nError&#58; Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_HB_FUN_HB_TOKENGET\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\ADORDD&#46;LIB|adordd\nError&#58; Unresolved external \'_hb_itemReSizeString\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\HBOLEAUT&#46;LIB|w32ole\nError&#58; Unresolved external \'_HB_FUN_HB_EXECFROMARRAY\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\HBOLEAUT&#46;LIB|win32ole\nError&#58; Unresolved external \'_HB_FUN_HB_ISLOGICAL\' referenced from C&#58;\\SI\\TRABAJO\\FWH\\SICLASES\\ADORDD\\SAMPLES\\HBOLEAUT&#46;LIB|win32ole\n[/code:2iwv89us]\n\nEl build.bat :\n\n[code:2iwv89us]\n@ECHO OFF\nCLS\n\nif A%1 == A GOTO &#58;SINTAX\nif NOT EXIST %1&#46;prg GOTO &#58;NOEXIST\n\nECHO Compiling&#46;&#46;&#46;\n\nset hdir=c&#58;\\si\\len\\harbour\nset bcdir=c&#58;\\si\\len\\bcc55\n\n%hdir%\\bin\\harbour %1 /n /i&#46;&#46;\\include;%hdir%\\include /p %2 %3 &gt; clip&#46;log\n@type clip&#46;log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1&#46;exe -I%c&#58;\\si\\len\\harbour\\include;c&#58;\\si\\len\\bcc55\\include %1&#46;c &gt; b32&#46;bc\n%bcdir%\\bin\\bcc32 -M -c @b32&#46;bc\n&#58;ENDCOMPILE\n\necho c&#58;\\si\\len\\bcc55\\lib\\c0w32&#46;obj + &gt; b32&#46;bc\necho %1&#46;obj, + &gt;&gt; b32&#46;bc\necho %1&#46;exe, + &gt;&gt; b32&#46;bc\necho %1&#46;map, + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtwin&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\debug&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\codepage&#46;lib + &gt;&gt; b32&#46;bc\necho adordd&#46;lib +  &gt;&gt; b32&#46;bc\necho usrrdd&#46;lib +  &gt;&gt; b32&#46;bc\necho hboleaut&#46;lib +  &gt;&gt; b32&#46;bc\n\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc  \nrem echo %hdir%\\lib\\ace32&#46;lib + &gt;&gt; b32&#46;bc\n\necho %bcdir%\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho %bcdir%\\lib\\import32&#46;lib, &gt;&gt; b32&#46;bc\n\nECHO * \nECHO Linking&#46;&#46;&#46;\n%bcdir%\\bin\\ilink32  -Gn -Tpe -s @b32&#46;bc\n\nrem delete temporary files\nrem @del %1&#46;c\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\n&#58;LINKERROR\nrem PAUSE * Linking errors *\nGOTO EXIT\n\n&#58;SINTAX\nECHO    SYNTAX&#58; Build &#91;Program&#93;     &#123;-- No especifiques la extensi¢n PRG\nECHO                                &#123;-- Don\'t specify &#46;PRG extension\nGOTO EXIT\n\n&#58;NOEXIST\nECHO The specified PRG %1 does not exist\n\n&#58;EXIT\n[/code:2iwv89us]\n\nGracias anticipadas','',0,'AIA=','2iwv89us',1,0,'',23,0,0),(34833,5783,3,234,0,'75.34.217.174',1184692580,1,0,1,1,1,1,'','','James,\n\nHere is a cleaned up version. It will create file C:\\TEST.HTM with minimal variables. My applications works fine except that I have to click on the application on the taskbar \n\n#include \"fivewin.ch\"\n\n//-----------------------------------------------------------------------------\nfunction _AesSend()\n\n  local hHan                                                            , ;\n        oWnd2                                                           , ;\n        oIcon                                                           , ;\n        cAesdd  := \"c:\\\"                                               , ;\n        cHan    := \"TEST.HTM\"   , ;\n        cAesem  := <!-- e --><a href=\"mailto:\'darrell.ortiz@cdmsoft.com\">\'darrell.ortiz@cdmsoft.com</a><!-- e -->\'            , ;\n        cText   := \"\"                                                   , ;\n        cSRN    := \'TEST\'                                     , ;\n        cTmp    := \"\"                                                   , ;\n        lTmp    := .F.                                                  , ;\n        cChar   := \"\"                                                   , ;\n        cFirst  := \"\"                                                   , ;\n        cLast   := \"\"                                                   , ;\n        nLine   := 0\n\n// Init...\ncMode := \'O\'\ncDb    := \'ocean\'\ncFile   := \'AESTEST\'\n\n  // Write HTML...\n  cText := \'&lt;FORM ACTION=\"https://www.aesdirect.gov/weblink/weblink.cgi\" METHOD=\"POST\"&gt;\' + cEol\n\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_app_ident\" VALUE=\"wlcdm01\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nologin_url\" VALUE=\"window.close()\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_nosed_url\" VALUE=\"window.close()\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"wl_success_url\" VALUE=\"window.close()\"&gt;\' + cEol\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"EMAIL\" VALUE=\"\' + cAesEm + \'\"&gt;\' + cEol\n\n  cText += \'&lt;INPUT TYPE=\"HIDDEN\" NAME=\"SRN\" VALUE=\"\'    + cSRN               + \'\"&gt;\' + cEol\n\n  cText += \'&lt;input type=\"submit\" name=\"B1\" value=\"Send to AES\" style=\"background-color: #B8092C; font-weight: normal; font-size: 10px; font-face: tahoma; color: #ffffff; border-style: solid; border-width: 4px; border-color: #B8092C;\"&gt;\'\n\n  cText += \'&lt;/FORM&gt;\'\n\n  // Create file\n  hHan = FCREATE( cAesdd + cHan, 0)\n  IF (hHan == -1)\n     MsgAlert( \"CDM WinFrt cannot create \"+ cAesdd + cHan, \"Process Aborted\" )\n     RETURN nil\n  ENDIF\n  FWRITE( hHan, cText )\n  FCLOSE( hHan )\n\n  DEFINE ICON oIcon RESOURCE \"CDMLOGO\"\n\n  MENU oMenu\n       MENUITEM \"&amp;Close\"                        ACTION ( oWnd2:End() )\n  ENDMENU\n\n  DEFINE WINDOW oWnd2 FROM 0, 0 TO 40, 85 ;\n    MENU oMenu TITLE \"AES Direct Submission - \" + ALLTRIM( cFile ) ICON oIcon\n\n  oActiveX = TActiveX():New( oWnd2, \"Shell.Explorer\" )\n\n  oWnd2:oClient = oActiveX // To fill the entire window surface\n\n  oActiveX&#058;Do( \"Navigate2\", cAesdd + cHan )\n\n  ACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd )\n\n  RETURN nil','',0,'AIA=','17oi5m6x',1,0,'',234,0,0),(34834,7600,6,138,0,'189.141.69.200',1184692867,1,0,1,1,1,1,'','','A ver a ver...\n\n1) El Turbo C++ Explorer se puede descargar de la pagina de Borland:\n\n<!-- m --><a class=\"postlink\" href=\"http://cc.codegear.com/Free.aspx?id=24724\">http://cc.codegear.com/Free.aspx?id=24724</a><!-- m -->\n\nNecesitas registarte y Borland te va a enviar un numero de serie que va a activar por 3000 y algo dias la version \"demo\".\n\n2) Para descargar el C++ que viene completito, vamos, que trae de todo, el IDE, las librerias, todo todo, vas a necesitar descargar primero los \"pre requisitos\" que son un monton de archivo y run times de .NET, algo así como poco menos de 120 megas de programas que tienes que instalar ANTES de descargar el software de instalacion del C++.\n\n3) La licencia indica muy claramente que la parte \"no visual\" es gratis, vamos, que es igual que el otro C++, las command line utilities son gratis, lo que no es gratis y esta en forma de \"demo\" son las herramientas visuales. Pero la licencia tambien es muy clara en que puedes desarrollar aplicaciones comerciales con todo el producto aunque sea un DEMO.\n\n4) Y si, funciona con FW, y con otras GUIS sin problema, ya lo hemos probado aqui.','',0,'AIA=','ffohqjhn',1,0,'',138,0,0),(34835,7606,6,474,0,'189.141.102.165',1184692899,1,0,1,1,1,1,'','saber si existe tabla desde ads remoto con  diccionario','pues mi cuestion es la siguiente.\n\nTengo una un diccionario ADS mediante el cual acceso a las tablas, pero quiero saber si existe una en especifico, pero a traves de funciones del ADS, debido a que el directorio esta oculto y los programas no accesan directamente a el sino a travez del servidor ADS (osea no tienen derechos ni de escritura ni de lectura a ese directorio, ni sikiera pueden visualizar el directorio) esto lo tengo montado en un Netware 6.0\n\nno me sirve el file() puesto que este no solicita al servidor ADS que verifique la existencia de una tabla, sino que lo hace a travez del APi.\n\nGracias por su atencion, y si estoy mal en algo corrijanme.\n\nSalu2','',0,'AIA=','14m6mvnh',1,0,'',474,0,0),(34836,6815,6,2,0,'87.218.146.162',1184693051,1,0,1,1,1,1,'','','Angel,\n\nNecesitas usar una versión más reciente de Harbour.','',0,'AIA=','2179lg7h',1,0,'',2,0,0),(34837,5783,3,303,0,'72.199.41.171',1184693078,1,0,1,1,1,0,'','','Darrell,\n\n&gt;Here is a cleaned up version. It will create file C:\\TEST.HTM with minimal variables. My applications works fine except that I have to click on the application on the taskbar \n\nIt was missing a definition for cEol which I defined as CRLF and the program is working fine for me even without the ON INIT. The window is displayed on top.\n\nWhat OS and version of FWH are you using?\n\nJames','',0,'AIA=','26k82cbt',1,0,'',303,0,0),(34838,7604,6,2,0,'87.218.146.162',1184693103,1,0,1,1,1,1,'','','Prueba a cambiar el orden del radio y del group en el RC','',0,'AIA=','2buyjk8n',1,0,'',2,0,0),(34839,5783,3,303,0,'72.199.41.171',1184693250,1,0,1,1,1,0,'','','Darrell,\n\nIf you will email me your email address I will send you a working EXE for you to test there.\n\nJames','',0,'AIA=','1cjip2rp',1,0,'',303,0,0),(34840,5783,3,303,0,'72.199.41.171',1184693947,1,0,1,1,1,0,'','','Darrell,\n\nI found your email address and sent you the working example EXE.\n\nJames','',0,'AIA=','24wu1xtw',1,0,'',303,0,0),(34841,7607,19,2,0,'87.218.146.162',1184694592,1,0,1,1,1,1,'','Linus Torvalds Interview','Very interesting:\n<!-- m --><a class=\"postlink\" href=\"http://www.oneopensource.it/interview-linus-torvalds/\">http://www.oneopensource.it/interview-linus-torvalds/</a><!-- m -->','',0,'AIA=','32woo4vb',1,0,'',2,0,0),(34842,7582,3,473,0,'81.82.10.56',1184695108,1,0,1,1,1,0,'','','Thanks Antonio,\n\nIndeed that line paints the area but when the rows are painted it is overwritten in a blank area.\n\nI Think this is done in the dispend method of the Windows Class.\n\nIs this browse painted correctly in your screens.\n\nI use the xbrowse in a dialog and nog in a window. Could that make a difference.\n\nI do some more tests.\n\nThanks,\n\nWilly.','',0,'AIA=','6hyg8s0e',1,0,'',473,0,0),(34843,7608,7,57,0,'80.58.205.33',1184696737,1,0,1,1,1,1,'','Color en GET ReadOnly','Antonio\nEn FWH existe la posibilidad de darle color a un Get con la cláusula READONLY. ¿Sería posible incluir esta posibilidad en FWPPC?\n\nSaludos','',0,'AIA=','2zipzozu',1,0,'',57,0,0),(34844,7608,7,2,0,'87.218.146.162',1184697130,1,0,1,1,1,1,'','','Toni,\n\nEn Windows cuando un Get está deshabilitado el propio Windows lo pinta de una forma diferente. En Pocket PC, si no me equivoco, no hay diferencia.\n\nHas probado a hacer oGet:SetColor( ..., ... ) al Get que quieras cambiarle el color ?','',0,'AIA=','2pzvg3hp',1,0,'',2,0,0),(34845,7604,6,36,0,'164.77.81.210',1184701429,1,0,1,1,1,1,'','','Perfecto antonio, \n\nLe habia dado vuelta pero nunca pense que podria ser orden <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nmuchas gracias...','',0,'AIA=','3fv8ihuv',1,0,'',36,0,0),(34846,7606,6,36,0,'164.77.81.210',1184701896,1,0,1,1,1,1,'','','Hola\n\nPrueba con AdsDirectory\n[code:1ein7acg]\n	aRay &#58;= AdsDirectory&#40;&#41;\n\n	for i &#58;= 1 to len&#40; aRay &#41;\n\n		cDbf &#58;= Left&#40; aRay&#91;i&#93;, len&#40; aRay&#91;i&#93; &#41;-1 &#41;\n\n          // prueba ya que al parecer siempre tiene un caracter de mas&#46;&#46;&#46;\n         // blablabla\n	next i[/code:1ein7acg]','',0,'AIA=','1ein7acg',1,0,'',36,0,0),(34847,7606,6,474,0,'189.141.102.165',1184703224,1,0,1,1,1,1,'','no encuentro','pues no me funciono, la funcion no existe y no la encuentro en ningun lugar, ni el la documentacion de advantage\n\nsi es otra, porfavor, ya que esa es precisamente lo que requyiero, poder leer todas las tablas del diccionario y ver si existe las  que requiero\n\nSalu2 y gracias','',0,'AIA=','py1eeh6d',1,0,'',474,0,0),(34848,7609,6,53,0,'189.139.11.181',1184705612,1,0,1,1,1,1,'','Problemas de versión','Hola a todos:\n\nEstoy tratando de probar AdoRdd con uno de los PRG de ejemplo, he compilado AdoRdd.Prg para crear la LIB con la versión de xHarbour que uso.\n\nxHarbour build 0.99.71 Intl. (SimpLex)\n\nAl incluir la LIB UsrRdd me tira el siguiente error\n\n...was compiled by older version. PCODE version 0 is no longer supported, please recompile.\n\n¿ donde puedo obtener una LIB actualizada o los fuente para crearla con la versión de xHarbour que yo utilizo ?\n\nSaludos','',0,'AIA=','2vvy2t4l',1,0,'',53,0,0),(34849,7610,6,474,0,'189.141.102.165',1184706131,1,0,1,1,1,1,'','como implementar funcion de ADS en xharbour','Necesito utilizar la funcion AdsDDFindFirstObject () de ADS pero no se encuentra implementada, lo que quiero hacer es buscar si existe una tabla determinada dentro del diccionario\n\nGracias de antemano por su ayuda e interes\n\nSalu2','',0,'AIA=','2ifg8owz',1,0,'',474,0,0),(34850,7611,2,124,0,'190.31.17.185',1184708051,1,0,1,1,1,0,'','PROBLEMA DE COMUNICACION A TRAVES DEL PUERTO SERIE','Amigos:\n\nTenemos un soft clipper que bajo 2003 server comunica bien a traves de un puerto serie. \nEl mismo soft migrado a fivewin comunica bien bajo W98. \nEl mismo exe fivewin que anda bien bajo 98 NO COMUNICA bajo 2003.\n\nYa que bajo fivewin/W98 anda bien no creo que sea la logica del soft.\nYa que bajo Clipper/2003 anda bien no creo que sea tema de permisos (incluso hicimos todas las pruebas como administradores )\n\nMe queda la idea que alguna dll que se utiliza bajo fivewin esta estorbando la comunicacion a traves del puerto serie, pero no se para adonde continuar.\n\n¿Alguien tiene alguna idea que aportar? ¿por donde comenzar a buscar?\n\nMil gracias desde ya.\n\nSaludos.\nRicardo.-','',0,'AIA=','1u1t97lx',1,0,'',124,0,0),(34851,7606,6,36,0,'164.77.81.210',1184709074,1,0,1,1,1,1,'','','Meskamas\n\nEsta funcion me funciona muy bien..\n\npuede ser que te actualizes a la version xharbour mas reciente\n\n[code:h2c3f878]function test&#40;&#41;\n	local aRay &#58;= AdsDirectory&#40;&#41;, i, cDbf\n\n	for i &#58;= 1 to len&#40; aRay &#41;\n\n		cDbf &#58;= Left&#40; aRay&#91;i&#93;, len&#40; aRay&#91;i&#93; &#41;-1 &#41;\n\n		alert&#40; cDbf &#41;\n	next i\n\n	return &#46;t&#46;\n[/code:h2c3f878]','',0,'AIA=','h2c3f878',1,0,'',36,0,0),(34852,7612,3,689,0,'200.146.101.217',1184709635,1,0,1,1,1,0,'','Erro irrecuperavel 9015','Hello, compiling code with fwh 7.5 and xHarbour 0.99.71 simplex produce error :\n\nErro irrecuperavel 9015 \nItem de simbolo esperado de hb_vmDo()\n\nCode:\n\n#include \"FiveWin.ch\"\n\n\n    FUNCTION Main()\n\n    LOCAL oFile\n\n    cTxtFile := \"error.log\"\n\n    oFile := TTxtFile():New( cTxtFile )  // ERROR HERE \n\n    IF ! oFile:Open( 0 )\n       MsgInfo( \"O Arquivo \" + cTxtFile + \", não pode ser aberto.\" )\n       return nil\n   ENDIF\n\n    oFile:Close()\n\n\nreturn Nil\n\nBefore I used Fhw 2.6 and xHarbour 0.99.5 and all ok.\n\nAny idea?\n\nRegards\nEroni','',0,'AIA=','smvfw256',1,0,'',689,0,0),(34853,7606,6,138,0,'189.141.69.200',1184709856,1,0,1,1,1,1,'','','Confirmado, la funcion existe y trabaja perfectamente.\n\nSupongo que estas trabajando con una version vieja de xHarbour.\n\nEl RDDADS sufrio numerosos cambios en la version 99.x que soporta varias funciones adicionales, entre ellas las del diccionario de datos.','',0,'AIA=','1148uwru',1,0,'',138,0,0),(34854,7610,6,138,0,'189.141.69.200',1184710060,1,0,1,1,1,1,'','','Si que esta implementada, se llama ADSDirectory() y esta en el RDDADS mas reciente.\n\nTienes que actualizar tu xHarobour, o de otra forma tener que hacer los wrappers en el codigo fuente ADSFUNC.C.','',0,'AIA=','d4dc3uzu',1,0,'',138,0,0),(34855,7597,6,496,0,'200.107.36.176',1184710240,1,0,1,1,1,0,'','','Carlos\n\nEstoy trabajando con el build de Marzo 2006, y por lo que veo ese es un cambio hecho en el build de Mayo 2007.\n\nSin embargo he realizado los cambios que se sugiere en estos tópicos:\n\n[url:1h9arrdp]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6869[/url:1h9arrdp]\n[url:1h9arrdp]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3181[/url:1h9arrdp]\n\nPero al final no obtengo lo que quisiera, es decir que me muestre el campo vacío (\"  / /    \") cuando la variable tenga una fecha vacía. \n\nLo que obtuve haciendo los cambios es que el campo muestre un check box adicional, que cuando la variable tiene una fecha vacía el campo se muestra como deshabilitado y el check box sin el visto.  Y si tiene una fecha, el campo se muestra normal y el check box con un visto.\n\nNo es lo que realmente buscaba pero en algo ayuda. Espero que en mi próxima actualización de FW se pueda hacer.\n\nGracias de todas formas\n\n\nMarcelo Jingo','',0,'EA==','1h9arrdp',1,0,'',496,0,0),(34856,7551,3,34,0,'68.5.217.82',1184710323,1,0,1,1,1,1,'','Resource Workshop','I gave up Borland awhile ago.  As I upgraded computers it became harder to install, and I really didn\'t want to play games.  I also wanted a realistic 32 bit resource editor.  I never thought it would be so hard, but apparently it is !\n\nThe Pelles editor doesn\'t display the dialog in the same way that the program does so I have to do a lot of playing around.  I haven\'t found a way to set the label font in an RC to be the same as the windows font.  Also, some of the \"snap to\" is automated and thus I have to type in coordinates to get them there.\n\nThe siComponents Resource Editor which is supposed to be a 32 bit replacement for Borland\'s has problems and they can\'t give me any guidance on why.  The major one is that an .rc file modified with it will not align dialogs onto a folder.  The folder centers in the window, but the dialogs display in the upper left corner of the screen !  They don\'t know why !','',0,'EA==','x19fao9u',1,0,'',34,0,0),(34857,7613,3,34,0,'68.5.217.82',1184711827,1,0,1,1,1,1,'','tBmpGet mouseover problem','I\'m using the tBmpGet class that was written back several years ago.  It has been very good to display a small calendar bitmap and allow for date lookups.  \n\nWith the latest release of FWH when someone mouses over the date which is shown in the field, it disappears.  ( July release ).  I cannot replicate this on my Vista computer, but clients using XP indicate its happening for them.\n\nI can\'t find a later version of this class.  Is anyone using it, and if so, have you seen this behavior ?  \n\nSuggestions would be appreciated.  Thanks.','',0,'EA==','21d8i8rn',1,0,'',34,0,0),(34858,7610,6,474,0,'189.141.102.165',1184711901,1,0,1,1,1,1,'','gracias maestro','Te agradezco el comentario Maestro, por cierto, espero me puedas facilitar el manual de ADS en Español.\n\nDeja me doy una vuelta por xharbour\n\nSalu2','',0,'EA==','pyff2tkp',1,0,'',474,0,0),(34859,7612,3,2,0,'87.218.146.162',1184712096,1,0,1,1,1,1,'','','Eroni,\n\nPlease download this xHarbour build and test it again:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/32968747/xharbour.exe.html\">http://rapidshare.com/files/32968747/xharbour.exe.html</a><!-- m -->','',0,'EA==','2osci93t',1,0,'',2,0,0),(34860,7611,2,2,0,'87.218.146.162',1184712202,1,0,1,1,1,1,'','','Ricardo,\n\nRevisa el ejemplo samples\\phone.prg Es un ejemplo de como usar las comunicaciones en Windows.\n\nTambien tienes el ejemplo samples\\Terminal.prg','',0,'EA==','3oo26p8f',1,0,'',2,0,0),(34861,7610,6,474,0,'189.141.102.165',1184712505,1,0,1,1,1,1,'','por cierto....','Tiene muchos problemas la version de xharbor nueva con el fwh 2.4???','',0,'EA==','13bpqe1q',1,0,'',474,0,0),(34862,7614,3,1017,0,'70.52.73.122',1184713510,1,0,1,1,1,0,'','Document xHarbour Compile/Linking','Can you please update the documentation for those of us who are using xHarbour for Windows? For those of us who have paid subscriptions to xharbour, we are using the default compiler (xcc?) and settings - your definitions appear to be aimed at those using borland or vcc. I know that you will answer questions on how to do this on request (I can\'t find your reply to me on this from before), but it would be nice if this was included on-line with the other FWH docs.\n\nThanks,\n\nCarlo','',0,'EA==','1hzxuj6f',1,0,'',1017,0,0),(34863,7615,3,1017,0,'70.52.73.122',1184713653,1,0,1,1,1,0,'','sockcli sockserv demos','Perhaps this is related to the issue of how to properly compile with xHarbour for Windows, but the sockserv demo compiles/links with the following mysterious error (see below):\n\nHow are these demos supposed to be compiled? I am using the Jan 2007 build.\n\nCarlo\n\nType: C &gt;&gt;&gt;xhb.exe -o\"sockserv.c\" -m -n -p -q -gc0   -I\"C:\\DEVELO~1\\DevTools\\xHB\\include\" -I\"C:\\DEVELO~1\\DevTools\\xHB\\include\\w32\" \"sockserv.prg\"&lt;&lt;&lt;\n\n\nType: C &gt;&gt;&gt;Couldn\'t build: sockserv.obj&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1278&lt;&lt;&lt;','',0,'EA==','10olmua2',1,0,'',1017,0,0),(34864,7614,3,2,0,'87.218.146.162',1184713819,1,0,1,1,1,1,'','','Carlo,\n\nIf you are using xHarbour commercial, then simply use the xHarbour builder to build your FWH apps. Its the easiest way','',0,'EA==','o6q5gcfu',1,0,'',2,0,0),(34865,7615,3,2,0,'87.218.146.162',1184714546,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3ny6lj47][img:3ny6lj47]http&#58;//img385&#46;imageshack&#46;us/img385/6639/pict1zr6&#46;jpg[/img:3ny6lj47][/url:3ny6lj47]\n[url=http&#58;//imageshack&#46;us:3ny6lj47][img:3ny6lj47]http&#58;//img385&#46;imageshack&#46;us/img385/2830/pict2zx6&#46;jpg[/img:3ny6lj47][/url:3ny6lj47]\n[url=http&#58;//imageshack&#46;us:3ny6lj47][img:3ny6lj47]http&#58;//img463&#46;imageshack&#46;us/img463/6862/pict3fk6&#46;jpg[/img:3ny6lj47][/url:3ny6lj47]','',0,'GA==','3ny6lj47',1,0,'',2,0,0),(34866,7609,6,2,0,'87.218.146.162',1184714939,1,0,1,1,1,1,'','','Armando,\n\nPrueba con esta usrrdd.lib:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43515109/usrrdd.lib.html\">http://rapidshare.com/files/43515109/usrrdd.lib.html</a><!-- m -->','',0,'GA==','1hcwzdgm',1,0,'',2,0,0),(34867,7609,6,53,0,'189.139.11.181',1184716925,1,0,1,1,1,1,'','','D. Antonio:\n\nMuchas gracias por la lib, pero (siempre el pero) me tira el siguiente error:\n\nUSRRDD.LIB Contains invalid OMF record, type 0X21 (possibly COFF)\n\nSaludos','',0,'GA==','1k3wlxiw',1,0,'',53,0,0),(34868,7551,3,303,0,'72.199.41.171',1184718162,1,0,1,1,1,0,'','','Tim,\n\n&gt;The major one is that an .rc file modified with it will not align dialogs onto a folder. The folder centers in the window, but the dialogs display in the upper left corner of the screen ! They don\'t know why !\n\nDid you know that a RC file is just text? Can\'t you just create a Workshop one that is working and then copy it and edit it with the other resource editor and then compare the new RC with the old looking for differences?\n\nJames','',0,'GA==','hmmhe6y1',1,0,'',303,0,0),(34869,7551,3,34,0,'68.5.217.82',1184719375,1,0,1,1,1,1,'','RC File','Yes, the RC file is text, and yes I do edit it with Multi-Edit.  However, the Pelles RC Editor saves values in a file somewhere and I can\'t get an answer from them about what file and where.  As a result, if I make changes in the text, I have to put it in a new directory and open a new file, or it will revert to the old file and delete my changes !\n\nI can edit everything manually, but thats not exactly easy to do.  I have been doing it to get alignments right, etc.\n\nHere is an example.  If I select MS Sans Serif, -12  BOLD  in the program for the window font, it will override the font in the .RC.  However, if I set the font in the .RC to the same thing so I can edit the display, then it changes the size of the dialog and I end up with problems getting it to fit correctly.  If I create the dialog in the .RC, and then set it in the program to a different value, then labels may be cut off, edit boxes may not be long enough for the fields, etc.\n\nI simply want to set the editor and the program to the same values and get it to work.\n\nOh ... Pelles Resource Editor has fits if you try to change the font within it !\n\nMaybe I\'ll go get a Margarita and forget it for awhile.','',0,'GA==','2qm9qhdc',1,0,'',34,0,0),(34870,7616,19,34,0,'68.5.217.82',1184719532,1,0,1,1,1,1,'','Family visit','Hi Antonio,\n\nMy daughter, son-in-law, and one of their daughters will be in Barcelona on Friday from which they take a cruise on Saturday.  They return a week later and will be there for a couple more days.\n\nThey are on an \"art\" trip, to explore artworks.  They will be at museums in each port.\n\nThey are looking forward to the trip.  Maybe one day my wife and I can get over there also.   \n\nTim','',0,'GA==','30mdafif',1,0,'',34,0,0),(34871,7551,3,35,0,'65.188.6.143',1184719849,1,0,1,1,1,0,'','','Just a thought .. I wonder ( if you asked nicely ) if Borland would release the 16 bit BRW code into public domain and one of our Experts here could re-compile it in 32 bit  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRick Lipkin','',0,'GA==','1vowxp64',1,0,'',35,0,0),(34872,7551,3,303,0,'72.199.41.171',1184720587,1,0,1,1,1,0,'','','Tim,\n\nDon\'t the Pelles and the siComponents Resource Editor\'s both save the RC files as text?\n\n&gt;Yes, the RC file is text, and yes I do edit it with Multi-Edit.\n\nI was not suggesting manual editing. You mentioned that the siComponents Resource Editor showed the folder in a different position and they don\'t know why. My suggestion is to look at the working Borland RC file and compare it to the siComponents RE looking for differences. Have you done that? That should enable you to show them what the differences are.\n\n&gt;Maybe I\'ll go get a Margarita and forget it for awhile.\n\nNow that sounds like a good idea! Everything looks better after a Margarita.\n\nJames','',0,'GA==','x99qdh3j',1,0,'',303,0,0),(34873,7359,3,267,0,'201.9.154.52',1184720771,1,0,1,1,1,1,'','','Antonio, \n\nIs possible ?','',0,'GA==','mfrd9354',1,0,'',267,0,0),(34874,7617,1,186,0,'66.130.50.142',1184725038,1,0,1,1,1,1,'','Bunch of bug in TGet','Hi All,\n\n\nAgain it`s been a long time since I was on this forum. I`m picking up where I left a few months ago.\n\nFor a while I thought I was crazy, but I went into heavy testing the TGet of FiveWin and found a few exasperating bugs.\n\nFisrt bug occurs when the text of a get object occupies all the positions and the cursor is positionned at the end of the text. In this case if I use the BackSpace key the character deleted is the previous to the last.\n  \nex.:   This is the text in the get object¦     -&gt;   original text \n         This is the text in the get obje¦t      -&gt;   once backspace pressed\n            \nSecond bug occurs if the text has the same lenght than the get object and the cursor is positioned anywhere in the get object. In this case if I use the right arrow key to reach the end of the text, the cursor wont go any further than the last character. Same situation occurs if I use the end key.\n\nex.:    ¦This is the text in the get object     -&gt;   original text\n           This is the text in the get objec¦t    -&gt;   right arrow to the end\n\n\nThird bug concerns the oGet:SelectAll() METHOD. Using the ON INIT clause of the activate dialog command to call the method should result in the get object text beeing selected and hilight in the control. This is not the case.\n\n\nFourth bug is even worst. Trying to use Copy, Cut and Paste METHOD to try to transport data from one get object to another one is absolutely desastrous. This is the case using either the keyboard shortcuts or the contextual menu.\n\n\nDoes anyone has an idea on how to fix these problem  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\n\nRegards\n\nGilbert  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'GA==','e0cx41ed',1,0,'',186,0,0),(34875,7617,1,186,0,'66.130.50.142',1184725426,1,0,1,1,1,1,'','','Hi,\n\n\nIf anyone is interested in trying out these scenario, I have created 4 small test program that demonstrates the problems.\n\n\nRegards\n\nGilbert','',0,'GA==','1tlypcji',1,0,'',186,0,0),(34876,7615,3,1017,0,'70.55.133.36',1184725809,1,0,1,1,1,0,'','','This doesn\'t work for me. I now realise that I am trying to buold projects from a VIsta station, and perhaps xHarbour and Vista don\'t like each other. Sorry fo the wasted time.','',0,'GA==','21k55fne',1,0,'',1017,0,0),(34877,7614,3,1017,0,'70.55.133.36',1184726159,1,0,1,1,1,0,'','','Thanks - I already am; but does it say anywhere which FWH libs should be used? I already know, only because I found some projects and because I asked you. I just don\'t see where the linking instructions for xHarbour Builder are.','',0,'GA==','1nq6ltzj',1,0,'',1017,0,0),(34878,7533,1,233,0,'218.208.248.156',1184731746,1,0,1,1,1,0,'','','[quote:35tq8z1a]In source\\function\\filename.prg change function cTempFile() to return this: \n\nreturn LFN2SFN( cFileName )[/quote:35tq8z1a]\n\nPardon me if I make the wrong conclusion here, but wouldn\'t placing [b:35tq8z1a]lfn2sfn()[/b:35tq8z1a] here would result in [b:35tq8z1a]cTempfile()[/b:35tq8z1a] to always return a null string since [b:35tq8z1a]cFileName[/b:35tq8z1a] is yet to be created?','',0,'wA==','35tq8z1a',1,0,'',233,0,0),(34879,5812,3,233,0,'218.208.248.156',1184735279,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3rn7nvxu]\nAt( cText, MemoRead( \"file.dbf\" ) )\n\nonce found, substract the DBF header size, and divide it by the record size[/quote:3rn7nvxu]\n\nThis is a neat trick! What further modification need to be done to take into account contents of memo fields also?','',0,'gA==','3rn7nvxu',1,0,'',233,0,0),(34880,7616,19,2,0,'87.218.146.162',1184740337,1,0,1,1,1,1,'','','Tim,\n\nI am sure they will have a great time. \n\nHopefully you may also come to Spain soon,\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3jbr8p1p',1,0,'',2,0,0),(34881,7614,3,2,0,'87.218.146.162',1184740455,1,0,1,1,1,1,'','','xHarbour builder automatically selects the FWH required libraries. You just have to provide it the FWH path','',0,'gA==','1qwslfr9',1,0,'',2,0,0),(34882,7615,3,2,0,'87.218.146.162',1184740533,1,0,1,1,1,1,'','','Carlo,\n\nMy screenshots are taken on Vista 32 Ultimate','',0,'gA==','29tio927',1,0,'',2,0,0),(34883,5812,3,2,0,'87.218.146.162',1184740716,1,0,1,1,1,1,'','','memo fields require a different approach as they are not stored in the DBF, but on an external file. You can search in such external file, and then you should search its offset into the DBF. \n\nYou may ask Przemek how to get the memo offset from the DBF','',0,'gA==','23inytb9',1,0,'',2,0,0),(34884,7359,3,2,0,'87.218.146.162',1184741067,1,0,1,1,1,1,'','','Vilian,\n\nyes, of course, its working since FWH 7.04. \n\nPlease test it with samples\\TestRtf.prg. Here it works fine (inserted image, saved and loaded):\n[url=http&#58;//imageshack&#46;us:3slljn6n][img:3slljn6n]http&#58;//img471&#46;imageshack&#46;us/img471/7816/richuy1&#46;jpg[/img:3slljn6n][/url:3slljn6n]','',0,'GA==','3slljn6n',1,0,'',2,0,0),(34885,7617,1,2,0,'87.218.146.162',1184741281,1,0,1,1,1,1,'','','Gilbert,\n\nAre you using FW for Clipper ? What version ?\n\n&gt; If anyone is interested in trying out these scenario, I have created 4 small test program that demonstrates the problems. \n\nYes, please','',0,'GA==','2meqv9cm',1,0,'',2,0,0),(34886,7533,1,2,0,'87.218.146.162',1184741379,1,0,1,1,1,1,'','','cFileName is already created and the function returns it.\n\nIf we return LFN2SFN() then we use it in 8.3 name format','',0,'GA==','1jd7lubn',1,0,'',2,0,0),(34887,7600,6,89,0,'213.21.136.60',1184741426,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://groups.google.com/group/comp.lang.xharbour/browse_thread/thread/72a7ecf2c2432f21/0a54940a2c471d7e?lnk=raot#0a54940a2c471d7e\">http://groups.google.com/group/comp.lan ... 0a2c471d7e</a><!-- m -->','',0,'GA==','1hx90eei',1,0,'',89,0,0),(34888,7609,6,2,0,'87.218.146.162',1184741509,1,0,1,1,1,1,'','','Armando,\n\nSi, cierto, te proporcioné un fichero equivocado.\n\nDescarga xHarbour desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w --> e instálalo, y en el directorio LIB tendrás la usrrdd.lib correcta','',0,'GA==','1tkzhifg',1,0,'',2,0,0),(34889,7600,6,2,0,'87.218.146.162',1184741658,1,0,1,1,1,1,'','','Maurizio,\n\nThanks','',0,'GA==','2ks1qhul',1,0,'',2,0,0),(34890,7600,6,413,0,'195.55.176.112',1184742122,1,0,1,1,1,1,'','','Mira por donde no sabia que el grupo xharbour se recibia tambien en web. Gracias Rene, por tu explicacion.','',0,'GA==','wf7gk0ok',1,0,'',413,0,0),(34891,7608,7,92,0,'80.33.140.85',1184744570,1,0,1,1,1,0,'','Re: Color en GET ReadOnly','[quote=&quot;tsales&quot;:3fuzw3mm]Antonio\nEn FWH existe la posibilidad de darle color a un Get con la cláusula READONLY. ¿Sería posible incluir esta posibilidad en FWPPC?\n\nSaludos[/quote:3fuzw3mm]\n\nBuenas,\n\nDefínelo SIN utilizar la cláusula READONLY, le aplicas el color que quieras, después realizas un oTuGet:lReadOnly := .T. y como dicen por aquí \'listo el pollo\' (supongo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> ).\n\nSaludos\nCarlos G.','',0,'gA==','3fuzw3mm',1,0,'',92,0,0),(34892,5812,3,130,0,'141.51.32.24',1184745519,1,0,1,1,1,1,'','Re: Full text Search','Otto,\n\n[quote=&quot;Otto&quot;:37mj3534]How could I manage a full text search in the whole database like LOCATE but in all fields?\nRegards\nOtto[/quote:37mj3534]\n\nyou can try the Hiper-Seek functions of xHarbour. That´s a very fast seek over all fields in dbf. But I don´t know, if it supports memo too.\n\nHere is an example:\n\n\n\n\n[code:37mj3534]#INCLUDE &quot;Fivewin&#46;ch&quot;\n#include &quot;dbinfo&#46;ch&quot;\n\n//REQUEST RMDBFCDX\nREQUEST DBFCDX\n//REQUEST BMDBFCDX\n\nPROCEDURE Main&#40;&#41;\n   FIELD FIRST, LAST, STREET, CITY\n   LOCAL n, hs\n\n   rddSetDefault&#40; &quot;DBFCDX&quot; &#41;\n//   rddSetDefault&#40; &quot;BMDBFCDX&quot; &#41;\n//   if ascan&#40; rddList&#40;1&#41;, &quot;RMDBFCDX&quot; &#41; != 0\n//      rddSetDefault&#40; &quot;RMDBFCDX&quot; &#41;\n//   endif\n//   ? RddSetDefault &#40;&#41;\n   use test\n   hs &#58;= HS_INDEX&#40; &quot;test&quot;, &quot;FIRST+LAST+STREET+CITY&quot;, 2, 0, , &#46;T&#46;, 3 &#41;\n\n   /* Look for all records which have \'SHERMAN\' string inside */\n   HS_SET&#40; hs, &quot;SHERMAN&quot; &#41;\n   while &#40; n &#58;= HS_NEXT&#40; hs &#41; &#41; &gt; 0\n      dbgoto&#40; n &#41;\n      if HS_VERIFY&#40; hs &#41; &gt; 0\n         ? rtrim&#40; FIRST+LAST+STREET+CITY &#41;\n      endif\n   enddo\n//   wait\n\n   /* Does RDD support Record Map Filters? */\n//   if dbinfo&#40; DBI_RM_SUPPORTED &#41;\n      /* if yest then let set filter for all records with \'SHERMAN\'\n         word and look at them in browser */\n      HS_FILTER&#40; hs, &quot;SHERMAN&quot; &#41;\n      DbSetFilter&#40; &#123;|| &quot;SHERMAN&quot;&#125;,  &quot;SHERMAN&quot; &#41;\n      dbgotop&#40;&#41;\n      browse&#40;&#41;\n//   endif\n\n   HS_CLOSE&#40; hs &#41;\n   CLOSE ALL\n   QUIT\n\nRETURN\n[/code:37mj3534]','',0,'gIA=','37mj3534',1,0,'',130,0,0),(34893,7618,6,102,0,'87.217.67.91',1184746888,1,0,1,1,1,1,'','Borrado directorios','Buenos dias foro.\nAlguien tiene hecha o puede decirme donde encontrar una funcion para eliminar un directorio completo, incluidos ficheros y subdirectorios dentro de el.\nDe antemano muchas gracias','',0,'gIA=','28iecjsa',1,0,'',102,0,0),(34894,7615,3,1017,0,'70.52.67.155',1184747848,1,0,1,1,1,0,'','','That\'s what I am using too. I was using the latest July Beta, but it complained that PCode 7 was no longer supported. I assumed this had something to do with FWH compatability, so I rolled back to Jan 07. My understanding from reading the xharbour builder newsgroup is that the official releases aren\'t Vista compatible (but I could have misunderstood).\n\nI tried again on my XP Pro machine, and everything worked as you explained. Thanks for your patience!\n\n1) Is there a way for me to use the TSocket class and use console output instead of Windows? Although I eventually intend to get into Windows programming with FWH, I don\'t have the time (right now) to learn how to program an FWH Windows interface. I just need scrolling output to the console showing the events that the messages the server is acting on and the status of each action.\n\n2) The client for the server will actually be a web service coded in VB.NET - the service will read and parse the SOAP message, format it and then pass it to my server through a socket write using System.Net.Sockets.TcpClient(). Do you have any experience with this particular .NET class? Do you think this will work?\n\nThanks again.','',0,'gIA=','339s1n28',1,0,'',1017,0,0),(34895,7608,7,57,0,'80.58.205.33',1184749289,1,0,1,1,1,1,'','','Ok\nGracias a los dos\nSaludos','',0,'gIA=','3s1zj325',1,0,'',57,0,0),(34896,7614,3,1017,0,'70.52.67.155',1184749989,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:4u64het7]xHarbour builder automatically selects the FWH required libraries. You just have to provide it the FWH path[/quote:4u64het7]\n\nCool - that\'s a neat trick. Is THAT documented? I just want to figure out how to find these things out quickly.','',0,'gA==','4u64het7',1,0,'',1017,0,0),(34897,7608,7,57,0,'80.58.205.33',1184752051,1,0,1,1,1,1,'','','Carlos\nLa asignacion de colores funciona pero recibe el foco y por tanto no nos sirve.\n\nHe realizado pruebas utilizando el metodo Disable() y te permite cambiar el color de Fondo pero no el color del Texto. \n\nEl problema que me encuentro es que con el reducido tamaño de la pantalla en una PDA cuando un Get está con el estado disable o readonly el texto prácticamente no se vé.\n\nSaludos','',0,'gA==','2681uxgh',1,0,'',57,0,0),(34898,7614,3,2,0,'87.218.146.162',1184753112,1,0,1,1,1,1,'','','Carlo,\n\nIt is not documented in FWH docs, mainly because xHarbour builder provides a FiveWin samples folder','',0,'gA==','1bsehpjk',1,0,'',2,0,0),(34899,7615,3,2,0,'87.218.146.162',1184753488,1,0,1,1,1,1,'','','Carlo,\n\n&gt;\n1) Is there a way for me to use the TSocket class and use console output instead of Windows?\n&gt;\n\nNo, sorry, FWH Class TSocket requires to use a window\n\nYou may review xHarbour contrib\\tip folder as it provides classes for sockets management with console support\n\n&gt;\n2) The client for the server will actually be a web service coded in VB.NET - the service will read and parse the SOAP message, format it and then pass it to my server through a socket write using System.Net.Sockets.TcpClient(). Do you have any experience with this particular .NET class? Do you think this will work? \n&gt;\n\nWe don\'t have experience with that particular .NET class. Anyhow, yes, I think it will work. You may ask about it in usenet comp.lang.xharbour accessible from Google groups, as surely there are xharbour users with experience about it','',0,'gA==','11iuxaaq',1,0,'',2,0,0),(34900,7614,3,1017,0,'70.52.67.155',1184753507,1,0,1,1,1,0,'','','Oh, good. That means I\'m not going blind  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','3cv5die3',1,0,'',1017,0,0),(34901,7617,1,186,0,'66.130.50.142',1184753740,1,0,1,1,1,1,'','','Hi Antonio,\n\nI`m using Clipper 5.3 and FiveWin 2.5\n\nFor the sample program I will send them to your personal email.\n\n\nRegards\n\nGilbert','',0,'gA==','30zws4rv',1,0,'',186,0,0),(34902,7618,6,2,0,'87.218.146.162',1184753773,1,0,1,1,1,1,'','','José,\n\nEsta debería servirte:\n\nDLL32 FUNCTION RemoveDir(cPathName AS LPSTR) AS BOOL PASCAL ; \nFROM \"RemoveDirectoryA\" LIB \"Kernel32.Dll\"','',0,'gA==','lz6lfrjr',1,0,'',2,0,0),(34903,7609,6,53,0,'189.139.17.209',1184756167,1,0,1,1,1,1,'','','D. Antonio:\n\nAhora sí, todo funciona excelente muchas gracias.\n\nPor cierto y solo para salir de la ignorancia, ¿ Que función tiene la LIB UsrRdd ?\n\nSaludos','',0,'gA==','lnxn75nv',1,0,'',53,0,0),(34904,7551,3,6,0,'82.59.188.166',1184756457,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:1kdhx2oe]Just a thought .. I wonder ( if you asked nicely ) if Borland would release the 16 bit BRW code into public domain and one of our Experts here could re-compile it in 32 bit  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRick Lipkin[/quote:1kdhx2oe]\n\nIt would be great!\n\nEMG','',0,'gA==','1kdhx2oe',1,0,'',6,0,0),(34905,7609,6,2,0,'87.218.146.162',1184757462,1,0,1,1,1,1,'','','&gt; ¿ Que función tiene la LIB UsrRdd ? \n\nImplementa un RDD (Usr=User RDD) que hace de enlace desde bajo nivel (lenguaje C) a alto nivel (lenguaje PRG) por lo que las funciones del RDD pueden implementarse en PRG, que es como lo hace el ADORDD','',0,'gA==','2gttw2hf',1,0,'',2,0,0),(34906,7609,6,53,0,'189.139.17.209',1184757808,1,0,1,1,1,1,'','','Muchas Gracias Maestro\n\nSaludos','',0,'gA==','2ghr6ygf',1,0,'',53,0,0),(34907,7359,3,267,0,'200.208.238.2',1184758392,1,0,1,1,1,1,'','','Antonio,\n\nIn the body of the text I know that it is possible, but what necessary it is to deal with [b:2cl6vbvs]archives with figures heading[/b:2cl6vbvs].\n\n Already I tested with samples\\TestRtf.prg and did not function','',0,'QA==','2cl6vbvs',1,0,'',267,0,0),(34908,7619,7,413,0,'195.55.176.112',1184759013,1,0,1,1,1,1,'','Leer GPS','Tengo una HP6515 la cual consta de un GPS interno, he intentado leer el puerto de comunicaciones y me ocurre que en todos los puertos que me da comunicacion me sale el mensaje con unos cuadrados sin ninguna informacion (puertos 1 y 3) y los puertos que no existe ya me dice que no tiene comunicacion.\nHe cogido el ejemplo del foro ingles: [code:16t3gy2v]#include &quot;FWCE&#46;ch&quot;\n\n#define GENERIC_READ 0x80000000\n#define GENERIC_WRITE 0x40000000\n#define GENERIC_REWRITE 0xC0000000\n#define OPEN_EXISTING 3\n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n\nfunction Main&#40;&#41;\n\nlocal oWnd, oTimer, oChk\nlocal hPort\nlocal nPollTime &#58;= 1000\nlocal lOnOff &#58;= &#46;T&#46;\n\nhPort &#58;= CreateFile&#40; &quot;COM4&#58;&quot;,GENERIC_REWRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL &#41;\n\nif hPort == -1\n	MSGALERT&#40;&quot;No Puedo abrir el puerto&#46;&#46;&#46;&quot;&#41;\n	return -1\nelse\n	 MSGALERT&#40;hPort&#41;\nendif\n\n\nDEFINE WINDOW oWnd TITLE &quot;BlueTime&quot;\n\n@ 2, 2 BUTTON &quot;GPS On/Off&quot; SIZE 80, 30 ACTION &#40;lOnOff &#58;= OnOff&#40; hPort, oTimer, lOnOff &#41;, oChk&#58;refresh&#41;\n\n@ 10, 2 CHECKBOX oChk VAR lOnOff PROMPT &quot;On/Off&quot; OF oWnd SIZE 80, 20\n\nif hPort != -1\n   DEFINE TIMER oTimer OF oWnd;\n          INTERVAL nPollTime;\n          ACTION ReadGPS&#40;hPort, oTimer&#41;\nendif\n\nACTIVATE WINDOW oWnd\n\nCloseHandle&#40; hPort &#41;\n\nreturn nil\n\nfunction ReadGPS&#40; hPort, oTimer &#41;\n\nlocal nChr &#58;= 1\nlocal cText &#58;= &quot;&quot;\nlocal n &#58;= 1\n\noTimer&#58;DeActivate&#40;&#41; // stops timer - waits for data\n\ndo while nChr &gt; 0 &#46;and&#46; n &lt; 21\n			nChr &#58;= ReadByte&#40; hPort &#41;\n			cText &#58;= cText + Chr&#40; nChr &#41;\n			n++\nend do\n\nmsginfo&#40; cText &#41;\n\noTimer&#58;Activate&#40;&#41; // restarts timer\n\nreturn nil\n\nfunction OnOff&#40; hPort, oTimer, lOnOff &#41;\nif hPort != -1\n	if lOnOff\n		oTimer&#58;DeActivate&#40;&#41; // stops timer\n	else\n		oTimer&#58;Activate&#40;&#41; // starts timer\n	endif\nendif\nreturn !&#40;lOnOff&#41;\n[/code:16t3gy2v]\n\nPreguntas:\n1) Tengo que hacer algo en la pda para que me lea la informacion del gps, por ejemplo hay que iniciarlo. He leido que si otra aplicacion utiliza el puerto ya no puedo leer la informacion. Pero lo raro es que veo que con el TomTom tarda en leer la informacion del GPS, y con el programa me la da inmediatamente pero mal por lo que se ve.\n2) Existe en la pda algo similar a los dispositivos de hardware de windows donde te informa que puertos de comunicaciones tienes.\n3) Alguien ha hecho algo similar, solo quiero obtener las coordenadas del GPS, para integrarlas en mi aplicacion.','',0,'AIA=','16t3gy2v',1,0,'',413,0,0),(34909,7359,3,2,0,'87.218.146.162',1184759350,1,0,1,1,1,1,'','','Vilian,\n\n&gt; is to deal with archives with figures heading\n\nCould you provide a RTF file sample ?','',0,'AIA=','68jdshqf',1,0,'',2,0,0),(34910,7620,3,1017,0,'70.52.67.155',1184759702,1,0,1,1,1,0,'','Future FWH with xHarbour','My client\'s development environment is the xHarbour June BETA. As far as I know, xHarbour is planning a release in July.\n\nwhen trying to link with FWH libs, I get the following error when running the app: \n\n[code:px5rw4ux]\'WINDOW&#46;PRG\' was compiled by older version, PCODE version 7 is no longer supported - Please recompile&#46;[/code:px5rw4ux]\n\nI believe this is a compatability problem.\n\n1) Is the new release compatible with whatever PCODE version the new xHarbour will support?\n\n2) Can I use the xharbour BETA builder to temporarily rebuild the FWH libs so that I can continue to develop? If so, is this process documented?\n\n3) Although I\'ve had FWH for a few months, I haven\'t had much occasion to use it yet so I\'m still pretty new to the way things work here (please forgive the stupid questions). A new release was announced, but I can\'t see how I can download it. Can you explain?\n\nThanks,\n\nCarlo','',0,'AIA=','px5rw4ux',1,0,'',1017,0,0),(34911,7359,3,267,0,'200.208.238.2',1184759906,1,0,1,1,1,1,'','','Antonio,\n\nI sent for its email an archive example.','',0,'AIA=','5wyodsyi',1,0,'',267,0,0),(34912,7359,3,2,0,'87.218.146.162',1184760026,1,0,1,1,1,1,'','','Vilian,\n\nTry to open your file with wordpad...','',0,'AIA=','1dgi79e4',1,0,'',2,0,0),(34913,7359,3,267,0,'200.208.238.2',1184760290,1,0,1,1,1,1,'','','Antonio,\n\nWith wordpad also it does not appear the figure, but with word you can visualize the figure in heading.','',0,'AIA=','1nc1lnzc',1,0,'',267,0,0),(34914,7620,3,2,0,'87.218.146.162',1184760932,1,0,1,1,1,1,'','','Carlo,\n\nxHarbour changes its pcode from time to time, and its not backwards compatible.\n\nSo you should use the xHarbour build that we provide with a specific FWH build. In case that you want to use a different xHarbour build then you have to recompile all FWH PRGs yourself. We don\'t recommend doing this as it may be a source of potential problems if its not properly done.\n\nIn case you want to do it at your own risk then you may contact xHarbour.com and they will provide you a Harbour builder project to rebuild FWH FiveHX.lib\n\nWhen you buy a product or an upgrade from us, you get two months free upgrades. Simply use the login and password that we provided you by email','',0,'AIA=','1m2v8s7r',1,0,'',2,0,0),(34915,7359,3,2,0,'87.218.146.162',1184761059,1,0,1,1,1,1,'','','Vilian,\n\nBecause its a Word own feature. Thats why Wordpad can\'t show it, as Wordpad uses a standard RichEdit control as FWH does','',0,'AIA=','33q1g3kr',1,0,'',2,0,0),(34916,7612,3,689,0,'200.146.101.51',1184762365,1,0,1,1,1,0,'','','Antonio,\n\nNow work fine, many thanks !\n\nRegards,\n\nEroni','',0,'AIA=','18gikls1',1,0,'',689,0,0),(34917,7621,3,89,0,'213.21.136.60',1184766179,1,0,1,1,1,0,'','Debug with FW 7.07','Antonio \n\nI try the debug (ALTD.PRG)  with FW 7.07 and xHarbour  but it does\'n work .\n( with FW2.5 it works very  well ) \n\nRegards MAurizio','',0,'AIA=','3btwgyg6',1,0,'',89,0,0),(34918,7608,7,92,0,'81.44.79.30',1184766697,1,0,1,1,1,0,'','','[quote=&quot;tsales&quot;:1r8p12kz]Carlos\nLa asignacion de colores funciona pero recibe el foco y por tanto no nos sirve.\n\nHe realizado pruebas utilizando el metodo Disable() y te permite cambiar el color de Fondo pero no el color del Texto. \n\nEl problema que me encuentro es que con el reducido tamaño de la pantalla en una PDA cuando un Get está con el estado disable o readonly el texto prácticamente no se vé.\n\nSaludos[/quote:1r8p12kz]\n\nPrueba esto:\n\noGet:bGotFocus := {|| ::oWnd:GoNextCtrl( ::hWnd ) }\n\no esto:\n\noGet:bGotFocus := {|| oGet:oWnd:GoNextCtrl( oGet:hWnd ) }\n\no esto:\n\noGet:bGotFocus := {|| Self:oWnd:GoNextCtrl( Self:hWnd ) }\n\nen fin, creo que la idea es fácil, su lógica ...\n\nMejor aún:\n\noGet:bGotFocus := {|| If(::lReadonly, ::oWnd:GoNextCtrl( ::hWnd ), Nil)  }\n\n\nSaludos\nCarlos G.','',0,'gA==','1r8p12kz',1,0,'',92,0,0),(34919,7622,3,86,0,'81.83.185.118',1184766815,1,0,1,1,1,1,'','Question on WINEXEC','Hello,\n\nWhat is the easiest way to start Outlook from a FWH-application, using WINEXEC() ?\n\nThanks.','',0,'gA==','2znwexjs',1,0,'',86,0,0),(34920,7623,3,86,0,'81.83.185.118',1184767292,1,0,1,1,1,1,'','Question on CGETFILE','Hello,\n\nI use CGETFILE() to select a file on my disk.\n\nBut how can I select a folder on my disk ? Using CGETFILE() results in opening the folder.\n\nThanks.','',0,'gA==','2nk26sj1',1,0,'',86,0,0),(34921,7608,7,57,0,'80.58.205.33',1184768095,1,0,1,1,1,1,'','','Carlos\nNo sirve. \nGracias de todas formas.\nSaludos','',0,'gA==','7ry6wqwh',1,0,'',57,0,0),(34922,7624,6,106,0,'85.34.123.173',1184769531,1,0,1,1,1,1,'','Cantidad de veces que se llama a un metodo o funcion','Existe la posibilidad de saber, en determinada clase, cuantas veces se llamó a determinado metodo? (sin poner un contador en cada metodo...)\nY cuantas veces se llamó a determinada funcion?\n\n\nGracias','',0,'gA==','34mhj4nz',1,0,'',106,0,0),(34923,7623,3,303,0,'72.199.41.171',1184770193,1,0,1,1,1,0,'','','cGetDir()','',0,'gA==','sxvgqedo',1,0,'',303,0,0),(34924,7622,3,6,0,'82.59.188.166',1184770310,1,0,1,1,1,1,'','Re: Question on WINEXEC','You better use OLE Automation to start Office Outlook.\n\nEMG','',0,'gA==','634rinj4',1,0,'',6,0,0),(34925,7625,6,940,0,'189.157.69.164',1184771470,1,0,1,1,1,1,'','tPrinter urgente','Colegas, necesito urgentemente de su apoyo,\n\nla cuestion es la siguiiente,\n\nsiempre he usado tdosprn para imprimir tickets en impresoras termicas\n\no las que comunmente les dicen impresoras fiscales,\n\nla todosprn, trabaja exelentemente, corta papel, abre el cajon,  etc.etc.\n\npero me han pedido que en el ticket salga el logo de la empresa\n\nde inmediato vino a mi mente, TPRINTER, \n\nYa tengo programado el ticket con la tprinter incluyendo el Logo, \n\npero no veo la forma de decirle a la tprinter que la pagina \n\ndebe de terminar en la linea !!! GRACIAS POR SU COMPRA !!!\n\nme saca la tira como si el papel fuera tamaño carta,,,\n\ncomo decirle a la tprinter que es papel de rollo, que la pagina debe\n\nde terminar en el momento que se imprima el ultimo caracter,\n\nexiste algo como SETPAGE( 0 )   o tendre que decirle al cliente\n\nque no se puede !!! \n\nsaludos y disculpen la lata.','',0,'gA==','2gc1uf1o',1,0,'',940,0,0);
INSERT INTO `phpbb_posts` VALUES (34926,7624,6,106,0,'85.34.123.173',1184772030,1,0,1,1,1,1,'','','Me contesto yo mismo, lo encontre en el blog de Walter Negro.\n\n<!-- m --><a class=\"postlink\" href=\"http://cosadenegro.blogspot.com/2005_08_01_archive.html\">http://cosadenegro.blogspot.com/2005_08_01_archive.html</a><!-- m -->\n\n\n\nSaludos','',0,'gA==','2i609xrz',1,0,'',106,0,0),(34927,7622,3,86,0,'81.83.185.118',1184772062,1,0,1,1,1,1,'','','I agree.\n\nI use OLE automation to start Office Outlook.\n\nIt works fine with Outlook 2000, XP or 2003.\n\nBut in Outlook 2007 the problems begin.\n\nUsing the same source, I got an error when sending emails from my FWH-appliction when Outlook is not started manually.\n\nThis error says :\n\n[quote:ozx1vata]E_FAIL: RECEPIENTS[/quote:ozx1vata]\n\nThis error happens in :\n\n[quote:ozx1vata]win32ole =&gt; TOLEAUTO:RECEPIENTS(0)[/quote:ozx1vata]\n\nIf I start Outlook manually before sending my email, everything works fine.\n\nThat\'s why I was looking for starting Outlook automatically in my FWH application.\n\nThanks for your answer.','',0,'gA==','ozx1vata',1,0,'',86,0,0),(34928,7623,3,86,0,'81.83.185.118',1184772083,1,0,1,1,1,1,'','','James,\n\nThanks.','',0,'gA==','10cqsor0',1,0,'',86,0,0),(34929,7608,7,1104,0,'200.115.248.234',1184772121,1,0,1,1,1,0,'','','#Define AzulB    16711680\n#Define GrisB    12632256\n\nFunction Mifuncion()\n\n...\n\n...\n\nREDEFINE GET oGet VAR vGet ID 100 OF oDlg READONLY COLOR AzulB,GrisB\n...\n...\n\nReturn nil\n//\n\nAzulB será el color de la letra dentro del get.\nGrisB será el color del get propiamente dicho.\n\nYo lo hago de esta forma y funciona perfecto\nSolo debes definir los colores que quieres utilizar en la cabecera de tu PRG como se muestra arriba y en el caso de no utilizar generador de recursos solo debes cambiar REDEFINE por DEFINE.\n\nSaludos, Esteban','',0,'gA==','2vfuzl00',1,0,'',1104,0,0),(34930,7621,3,2,0,'87.218.146.162',1184773277,1,0,1,1,1,1,'','','Maurizio,\n\nAre you using GTWIN.lib instead of GTGUI.lib ? (just for debugging)','',0,'gA==','1y5jdxye',1,0,'',2,0,0),(34931,7625,6,2,0,'87.218.146.162',1184773560,1,0,1,1,1,1,'','','César,\n\nPrueba a usar oPrinter:SetSize( nWidth, nHeight )','',0,'gA==','3mr7flsc',1,0,'',2,0,0),(34932,7610,6,138,0,'189.141.69.200',1184774236,1,0,1,1,1,1,'','','Problemas, problemas, lo que se dice problemas, no tiene.\n\nPero si tiene un BUG del tamaño del mundo sobre todo cuando trabajas con diccionarios de datos y hay otro bug no tan grave en cuanto a seguridad, pero eso se debe a que en esa version del RDDADS, solo esta contemplado una conexion al servidor.\n\nLa nueva version te permite un programa con varias conexiones multiples y que puedes usar distintos formatos de tablas dentro del mismo programa.','',0,'gA==','c4njavgc',1,0,'',138,0,0),(34933,7533,1,320,0,'189.146.132.187',1184774707,1,0,1,1,1,0,'','','Hola Antonio,\n\nI tried LFN2SFN() and I began to get the same error on my stand alone pc (it worked fine there before).\nWhat I did and seems to work fine is:\n\nwhile File( cFileName := ( cPath + LTrim( Str( GetTickCount(),[color=red:2r7bb5q8]8[/color:2r7bb5q8] ) ) + cExtension ) )\n\nI have to test it some more on my client\'s lan and will let you all know\n\nThanks\n\nI changed the while to verify that the file does not exist before returning the name. It seems to work fine too, but I don\'t know if it can have consecuenses on other funtcions.\n\n   lTkt := .t.\n   while lTkt\n       cFileName := ( cPath + LTrim( Str( GetTickCount(),8 ) ) + cExtension)\n       if .not. File( cFileName ) \n          lTkt := .f.\n       endif\n   end','',0,'Ag==','2r7bb5q8',1,0,'',320,0,0),(34934,7621,3,89,0,'213.21.136.60',1184774805,1,0,1,1,1,0,'','','Antonio , \n\ndebug works with GTWIN.lib  \n\nbut I have to change always the LIb or there are a better solution  ?\n\nRegards Maurizio','',0,'Ag==','2lk21kbt',1,0,'',89,0,0),(34935,7626,6,106,0,'85.34.123.173',1184775271,1,0,1,1,1,1,'','wbrowse de FWH','Hay algun motivo por el cual la funcion wbrwline usada por la clase twbrowse no sea la escrita en lenguaje C?\nPorque en el caso de Clipper se usa esa funcion en C.\nLuego de hacer varias pruebas, vi que es la funcion que demora mas tiempo cuando se hace uso intensivo de wbrowse, y usando el mismo programa, pero compilado con clipper, la visualizacion del browse es muchisimo mas rapida, sobretodo cuando se usa con varios terminales trabajando en red.\n\nSaludos','',0,'Ag==','3ipwr6et',1,0,'',106,0,0),(34936,7551,3,34,0,'68.5.217.82',1184775560,1,0,1,1,1,1,'','Resource','Actually, the phrase \"been there done that\" is good.  I did a compare and originally saw no difference, but if I select Microsoft compatible it adds a lot of stuff.  I\'m going to send them the files ( they asked ) that work, and let them tell me what they think.','',0,'Ag==','3dp2mtvs',1,0,'',34,0,0),(34937,7625,6,940,0,'189.157.69.164',1184776099,1,0,1,1,1,1,'','','Gracias Antonio,\n\nresulta que el ticket no es de una medida estandard,\n\ncomo en los supermercados, \n\nla tira de papel es infinita,  en algunos casos,,\n\na lo mejor calculando los renglones antes de mandar\n\nimprimir,,\n\nalguien mas tiene alguna idea ??','',0,'Ag==','umjsu68n',1,0,'',940,0,0),(34938,7621,3,2,0,'87.218.146.162',1184776349,1,0,1,1,1,1,'','','You have to change the lib as the debugger output goes to a text console','',0,'Ag==','2km92su4',1,0,'',2,0,0),(34939,7627,3,904,0,'198.54.202.250',1184776364,1,0,1,1,1,1,'','How can I change the focus to a certain folder?','How can I change the focus to a certain folder?\n\nI have 2 tabs and I want to bring focus to the one under certain circumstances (without the user having to click the folder/tab)','',0,'Ag==','14xzv5t4',1,0,'',904,0,0),(34940,7627,3,2,0,'87.218.146.162',1184776464,1,0,1,1,1,1,'','','oFolder:SetOption( nOption )','',0,'Ag==','1nzzuhje',1,0,'',2,0,0),(34941,7533,1,2,0,'87.218.146.162',1184776552,1,0,1,1,1,1,'','','Yes, you are right, because if a not valid filename is used then File() will not properly work','',0,'Ag==','3knbennc',1,0,'',2,0,0),(34942,7626,6,2,0,'87.218.146.162',1184776705,1,0,1,1,1,1,'','','Pedro,\n\nCuando se diseñó wbrwline() los ordenadores que había en uso eran mucho menos potentes que ahora y necesitabamos el código más rápido.\n\nHoy en día podemos usar esa función implementada en PRG. De todas formas si necesitas la máxima velocidad, entonces si podrías usar la versión en lenguaje C','',0,'Ag==','3pjuibb5',1,0,'',2,0,0),(34943,7610,6,36,0,'164.77.81.210',1184779857,1,0,1,1,1,1,'','','En conclusion para que puedas usar la mejoras de xharbour y ADS deberas actualizarte la version xharbour 0.99.71 y fwh 7.xx\n\n\nSaludos','',0,'Ag==','n2wljd9h',1,0,'',36,0,0),(34944,7606,6,474,0,'189.141.100.245',1184784149,1,0,1,1,1,1,'','confirmado','Efectivamente es mi version de xharbour\n\nahh y si me funciono de perlas la funcion, obvio adecuandola para lo ke rekiero\n\nGracias','',0,'Ag==','2r173is4',1,0,'',474,0,0),(34945,7610,6,474,0,'189.141.100.245',1184784358,1,0,1,1,1,1,'','gracias nuevamente','gracias por contestar las preguntas que realice\n\nSalu2','',0,'Ag==','2a5w1e1f',1,0,'',474,0,0),(34946,3321,6,124,0,'190.31.20.74',1184785652,1,0,1,1,1,0,'','','A cualquiera de los participantes de este topico:\n\nEstoy justamente pataleando con lo mismo, pueden incluirme con lo de los fuentes a mi mail?\n\nDe donde saco la fiscal.lib ultima ( la mejorcita ) ?\n\nMuchas Gracias.','',0,'Ag==','1a2szymh',1,0,'',124,0,0),(34947,7625,6,940,0,'189.157.69.164',1184786910,1,0,1,1,1,1,'','PrnSetSize()  no funciona','Señores,\n\nsegun lo que en este foro se ha dicho el siguiente codigo\n\nen teoria tendria que hacer lo siguiente:\n\n   PrnSetSize( 800, 1400  )   // 8cm x 14cm\n\n   PRINT oPrn TITLE cTitulo TO alltrim( (cImpresor)-&gt;printer1 )\n\n   oPrn:SetSize( 800, 1400 )  //no funciona \n\n   PAGE\n  \n   oPrn:cmsay(1,1, \'TEXTO\' , oFnt1 )\n  ENDPAGE\n  ENDPRINT\n\nNo respeta las medidas que se especifica en la funcion SetSize\n\nni antes de la definicion del objeto ni despues,,\n\n\nsaludos...','',0,'Ag==','d3zawjdo',1,0,'',940,0,0),(34948,7628,7,1030,0,'200.115.248.234',1184789380,1,0,1,1,1,0,'','Uso de Shared','Hola a todos\nTengo un problema con la apertura de una DBF en modo Shared, cuando lo ejecuto se cuelga la iPaq.\nNo hay errores de compilación ni cuando enlazo. Tampoco tira error cuando ejecuto el programa. Solo se queda colgada y no responde.\nPorque puede ser?\n\nEste es el ejemplo:\n\nFunction Mifuncion()\nLocal D:=\"\\\\PIII\\C\\WPSDatos\\\"\n\nUSE (D+\"STOCK.DBF\") INDEX (D+\"STOCK01.NTX\") NEW SHARED ALIAS STOCK\nDATABASE oDbfSto\noDbfSto:bEoF:=nil\noDbfSto:GoTop()\n\nTambien probé \n\nUSE (D+\"STOCK.DBF\") INDEX (D+\"STOCK01.NTX\") NEW ALIAS STOCK SHARED\nDATABASE oDbfSto\noDbfSto:bEoF:=nil\noDbfSto:GoTop()\n\nReturn nil\n\nSi la abro sin poner shared funciona perfectamente\n\nSaludos, Natalia','',0,'Ag==','2t9g1l87',1,0,'',1030,0,0),(34949,7628,7,2,0,'87.218.146.162',1184790705,1,0,1,1,1,1,'','','Natalia,\n\nQue versión de Windows Mobile usas ? \n\nLa opción shared solo esta soportada desde Windows Mobile 2005 en adelante. Es una limitación de Windows Mobile, no de FWPPC','',0,'Ag==','ggfm6n8l',1,0,'',2,0,0),(34950,7629,4,6,0,'87.17.218.193',1184791203,1,0,1,1,1,1,'','Error in latest FWPPC/Harbour_CE','Message not found\nTCLIPGET:_TYPE\n   Args:\n     [   1] = O   Object\n\nstack calls:\n__ERRRT_SBASE(0)\nTCLIPGET:ERROR(169)\n(b)HBOBJECT(103)\nTCLIPGET:MSGNOTFOUND(0)\nTCLIPGET:_TYPE(162)\n(b)TGET(0)\nTGET:VARPUT(0)\n\nEMG','',0,'','27ve496w',1,0,'',6,0,0),(34951,7628,7,1030,0,'200.115.248.234',1184791459,1,0,1,1,1,0,'','','Antonio:\nEstoy usando Windows Mibile 5.0 y tengo una HP iPaq RX1950 Series.\nPorque puede ser que de todas maneras no funcione?\nNecesito abrir y usar una DBF con Indices NTX pero que en el servidor donde se encuentra la DBF, la puedan seguir usando.\nGracias, Natalia.','',0,'','2lg6h47v',1,0,'',1030,0,0),(34952,7628,7,2,0,'87.218.146.162',1184792753,1,0,1,1,1,1,'','','Natalia,\n\nPuedes decirme que mide el fichero FWPPC.exe que en su día descargasteis de nuestro FTP ? gracias','',0,'','3o61fmbr',1,0,'',2,0,0),(34953,7629,4,2,0,'87.218.146.162',1184792964,1,0,1,1,1,1,'','','Enrico,\n\nPlease download Harbour again and try it again, thanks','',0,'','u0idxtxs',1,0,'',2,0,0),(34954,7597,6,73,0,'200.23.18.132',1184793365,1,0,1,1,1,0,'','','sjingo,\n\nprueba con esta clase\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7548\">http://fivetechsoft.com/forums/viewtopic.php?t=7548</a><!-- m -->\n\nsalu2\npaco','',0,'','7hi961do',1,0,'',73,0,0),(34955,7625,6,53,0,'189.139.17.209',1184793519,1,0,1,1,1,1,'','','César:\n\nAlguna vez pasé por el mismo problema y resulta ser que yo esperaba ver el tamaño en la vista previa y con una impresora laser como impresora pre asignada, y nunca vi el resultado.\n\nHasta que puse como impresora pre asignada una impresora matriz de punto y mande a imprimir, hasta entonces vi que sí respetaba el tamaño que yo queria.\n\nSera que te pasa algo igual ?\n\nSaludos','',0,'','28ue3igr',1,0,'',53,0,0),(34956,7611,2,124,0,'190.31.20.74',1184794302,1,0,1,1,1,0,'','','Antonio:\n\nPrimero gracias por tu respuesta.\n\nPor las pruebas que hicimos:\nuna funcion clipper compilada bajo dos anda ok\nla misma funcion compilada con los lib de fivewin ( agregandole un msginfo para que lo linkee ) ya no anda.\n\nSospechamos que el problema viene por el commctrl.dll (que obviamente no lo necesita en dos y lo solicita en nuestra compilacion de fivewin ), viendo los foros, entre algo que escribiste y te pido que si podés me aclares esto a ver si me tira alguna pista:\n\nTextual tuyo:\n\"\nFebruary 2006 build \n============= \n\nIMPORTANT: FWH has been build with the most recent Harbour/xHarbour CVS code. This FWH will not work with previous January Harbour/xHarbour builds! \n\n* Enhancement: GetCPU() function is properly working on new computers. \n\n* Enhancement: FiveWin for CA-Clipper (16 bits) no longer needs COMMCTRL.DLL. If you plan to use ImageLists, then you should have it available, though the EXE will start normally even if it is not present. \n \n\"\n\nNo entiendo bien a que se refiere y por que mi programa en fivewin esta requiriendo este dll que sospechamos es el problema.\n\nSaludos.','',0,'','2qitf9sb',1,0,'',124,0,0),(34957,7629,4,6,0,'82.61.68.183',1184794350,1,0,1,1,1,1,'','','It seems ok now. Thank you!\n\nEMG','',0,'','2ggqs5c4',1,0,'',6,0,0),(34958,7625,6,940,0,'189.157.69.164',1184795025,1,0,1,1,1,1,'','','quetal Armando,\n\ngracias por participar,\n\nlo que comentas es cierto uno quisiera ver el resultado \n\nen el preview\n\npero en mi caso, tambien ya probe directo a impresora,\n\ny nada de nada ,  voy a seguir checando\n\ndebe de existir alguna forma\n\nsaludos.','',0,'','1yjvblzy',1,0,'',940,0,0),(34959,7630,2,1107,0,'189.192.23.108',1184799703,1,0,1,1,1,0,'','Información de cursos de FWH (Para Rene)','Estmado Rene:\n\nEstoy en México especificamente Guadalajara, podrías enviarme información de cursos, me es Urgente\n\nGuillermo Guevara C.','',0,'','zwpv37gq',1,0,'',1107,0,0),(34960,2502,17,1014,0,'190.40.164.36',1184799777,1,0,1,1,1,1,'','','Hola Antonio\nNo puedo abrir este archivo con el winzip\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27920493/TWBrowse_Hernan.zip.html\">http://rapidshare.com/files/27920493/TW ... n.zip.html</a><!-- m -->\nhay algun otro archivo?\nSaludos y Gracias\nJorge Vargas','',0,'','2f3y2ts1',1,0,'',1014,0,0),(34961,7631,3,308,0,'84.148.54.240',1184800629,1,0,1,1,1,0,'','ADORDD and SE FILTER','Dear Anthonio,\n\nis it not possible to use an UPPER() in SET FILTER\n\nSET FILTER TO \"UPPER(FIELD) = \'AAA\'\"\n\nif i use this command:\n\n  Error description: Error ADODB.Recordset/16389  E_FAIL: _FILTER\n\nAny Ideas ? In ODBC it works fine...\n\nRegards, Norbert','',0,'','10ju91l6',1,0,'',308,0,0),(34962,7632,6,987,0,'189.132.35.195',1184805723,1,0,1,1,1,0,'','Reportes con sombra y cajas','Estimados colegas del foro:  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nTengo una duda  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  acerca del generador de reportes de Fivewin, necesito saber si es posible crear sombras a los titulos de las columnas y tambien si se puede poner una caja con sombra al usar totales, esto lo hacia en 16bits con un archivo .obj que alguien modifico y que solo se agregaba para compilarlo con Clipper, dichos reportes tenias esta apariencia:\n\n<!-- m --><a class=\"postlink\" href=\"http://img528.imageshack.us/my.php?image=kardex2cu9.jpg\">http://img528.imageshack.us/my.php?image=kardex2cu9.jpg</a><!-- m -->\n\nActualmente no encuentro como solucionarlo a 32bits y esta es la forma en que me ha quedado:\n\n<!-- m --><a class=\"postlink\" href=\"http://img65.imageshack.us/my.php?image=kardexdd3.jpg\">http://img65.imageshack.us/my.php?image=kardexdd3.jpg</a><!-- m -->\n\nOjala y alguien tenga una solucion efectiva\n\nAgradecimientos de antemano','',0,'','l5o08x8s',1,0,'',987,0,0),(34963,7632,6,138,0,'189.141.69.200',1184806987,1,0,1,1,1,1,'','','Tiene pinta de ser la clase TImprime de Rafa (TheFull).\n\nLa tenemos disponble con código fuente en el CD de utilidades de FiveWin que puedes descargar sin costo desde nuestra pagina.','',0,'','19xwkjdt',1,0,'',138,0,0),(34964,7592,6,349,0,'189.165.14.15',1184809231,1,0,1,1,1,0,'','','Antonio Linares.\n\nSi Funciono.\n\nSaludos y Gracias ...','',0,'','2yu1gogb',1,0,'',349,0,0),(34965,2582,6,349,0,'189.165.14.15',1184812757,1,0,1,1,1,0,'','','[quote=&quot;Francisco Horta&quot;:1sxm6d7v]Raymundo y Goosfancito,\nya modifique la wbrowse para que no pase eso de la font en la edicion, por aqui publique la clase y unas imagenes\nsalu2\npaco[/quote:1sxm6d7v]\n\n\nHola Paco\n\nEn donde publicaste la wbrowse y como acceso, para bajar la wbrowse.\n\nSaludos y Gracias ...\nHugo Navarro','',0,'gA==','1sxm6d7v',1,0,'',349,0,0),(34966,7597,6,496,0,'200.107.36.176',1184815759,1,0,1,1,1,0,'','','Gracias Paco por la sugerencia, creo que debe funcionar porque al final es un get con efectos especiales, y allí no hay problemas.\n\nLa probaré este fin de semana y te cometo\n\nDe nuevo Gracias\n\n\nMarcelo Jingo','',0,'gA==','312dvv7q',1,0,'',496,0,0),(34967,6814,3,439,0,'200.125.40.87',1184821630,1,0,1,1,1,1,'','','Antonio, \nEstá en este foro la última versión de AdoRDD?\n\nCual es el link para bajarla?\n\nGracias de antemano.','',0,'gA==','2umsujlj',1,0,'',439,0,0),(34968,7618,6,102,0,'87.217.67.91',1184823329,1,0,1,1,1,1,'','','Gracias Antonio probare y veremos si funciona','',0,'gA==','75uo6lle',1,0,'',102,0,0),(34969,7618,6,102,0,'87.217.67.91',1184828014,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2b0srry9]José,\n\nEsta debería servirte:\n\nDLL32 FUNCTION RemoveDir(cPathName AS LPSTR) AS BOOL PASCAL ; \nFROM \"RemoveDirectoryA\" LIB \"Kernel32.Dll\"[/quote:2b0srry9]\n\nAntonio he probado y solo funciona si el directorio esta vacio.\nsi tiene algun fichero no funciona.\n\nTendre que hacer una funcion que compruebe lo que tiene y borrar primero el contenido.\n\nNo la tendra hecha alguien por hay?\n\nGracias','',0,'gA==','2b0srry9',1,0,'',102,0,0),(34970,2502,17,2,0,'87.218.146.162',1184829235,1,0,1,1,1,1,'','','Jorge,\n\nLo acabo de descargar y se abre perfectamente. Prueba a volver a descargarlo, gracias','',0,'gA==','20qq8eaq',1,0,'',2,0,0),(34971,6814,3,2,0,'87.218.146.162',1184829277,1,0,1,1,1,1,'','','José,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'gA==','25sp6gax',1,0,'',2,0,0),(34972,7631,3,2,0,'87.218.146.162',1184829420,1,0,1,1,1,1,'','','Norbert,\n\nTry to use UCASE() instead of UPPER()','',0,'gA==','33g41nfc',1,0,'',2,0,0),(34973,7626,6,106,0,'85.34.123.173',1184830200,1,0,1,1,1,1,'','','Antonio,\n\nhay alguna diferencia aparte de la velocidad?\nEn mi caso la velocidad es importante, porque como dije antes, cuando uso las bases de datos, sea en un servidor windows o linux, si accedo desde un unico pc, el browse vuela, pero cuando accedo desde 2 o mas pc\'s, se enlentece muchisimo, es posible que sea un problema en la dbfcdx...\nHasta hace un par de semanas usaba el browse de Hernán, lo cambié por el browse de FW porque el de FW es mas rapido, y lo unico que puedo hacer son los footers, y la multiseleccion, pero lo demas sin problemas.\nNoté que el browse a 16 bits funciona mas rapido que el de 32, pero como dije antes, podría ser un problema de la DBFCDX.\n\nProbaré entonces la wbrwline en C a ver que resultados obtengo.\n\nSaludos y gracias.','',0,'gA==','2g5yov92',1,0,'',106,0,0),(34974,7631,3,308,0,'84.148.54.240',1184831323,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2b3kvnut]Norbert,\n\nTry to use UCASE() instead of UPPER()[/quote:2b3kvnut]\n\nAntonio,\n\nsame problem.\n\n[code:2b3kvnut]\n   Error description&#58; Error ADODB&#46;Recordset/16389  E_FAIL&#58; _FILTER\n\n   Args&#58;\n     &#91;   1&#93; = C   UCASE&#40;A_EMAIL&#41; LIKE \'%MICROSOFT%\'\n\nStack Calls\n===========\n   Called from TOLEAUTO&#58;_FILTER&#40;0&#41;\n   Called from ADO_SETFILTER&#40;537&#41;\n   Called from DBSETFILTER&#40;0&#41;\n[/code:2b3kvnut]','',0,'gIA=','2b3kvnut',1,0,'',308,0,0),(34975,7587,3,154,0,'151.21.34.185',1184832883,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1wkp64i1]If you mean default to a value, then yes, just set the variable to the value. It works just the same as a combobox.[/quote:1wkp64i1]\n\nJames,\n\nI solved,  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nthank you.','',0,'gA==','1wkp64i1',1,0,'',154,0,0),(34976,7631,3,2,0,'87.218.146.162',1184836298,1,0,1,1,1,1,'','','Norbert,\n\nADORDD just routes your request to the ADO driver. \n\nLets google to see how to use upper() or similar on an ADO filter','',0,'gA==','20blcjer',1,0,'',2,0,0),(34977,7631,3,2,0,'87.218.146.162',1184836378,1,0,1,1,1,1,'','','Norbert,\n\nIs FIELD a valid fieldname on your table ?','',0,'gA==','11x24f1z',1,0,'',2,0,0),(34978,7633,3,154,0,'151.21.34.185',1184836874,1,0,1,1,1,1,'','Tone','Hi all,\nOn my VISTA Business do not work the tone function \nTest this:\n[code:3r7l97pl]FUNCTION Main&#40;&#41;\n\n   MsgInfo&#40; &quot;START&quot; &#41;\n   Tone&#40; 1000 &#41;\n   Tone&#40; 500 &#41;\n   Tone&#40; 1000 &#41;\n   Tone&#40; 500, 3 &#41;\n   Tone&#40; 1000, 2 &#41;\n   Tone&#40; 500, 2 &#41;\n   MsgInfo&#40; &quot;END&quot; &#41;\n\n   Quit\n[/code:3r7l97pl]\nI do not feel nothing <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','3r7l97pl',1,0,'',154,0,0),(34979,7626,6,106,0,'85.34.123.173',1184839612,1,0,1,1,1,1,'','','Antonio, \n\n\nNo me resultó tan facil usar la wbrwline contenida en wbrwline.c\n\nPensé que bastaba poner #ifndef __CLIPPER__ donde tiene #ifdef\ny en wbrowse.prg al reves... pero al compilar me da estos errores:\n\n[code:3nydjuzg]\n\nProgetto&#58; WP32, Ambiente&#58; BorlandWin&#58;\n&#91;1&#93;&#58;Harbour&#46;Exe wbrowse&#46;prg  /m /n0 /w1 /es2 /ic&#58;\\ut\\fwh0705\\include /iC&#58;\\XHXFW0~1\\Include /p /oObj\\wbrowse&#46;c\nxHarbour Compiler build 0&#46;99&#46;71 &#40;SimpLex&#41;\nCopyright 1999-2007, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'wbrowse&#46;prg\' and generating preprocessed output to \'wbrowse&#46;ppo\'&#46;&#46;&#46;\nLines 2565, Functions/Procedures 52\nGenerating C source output to \'Obj\\wbrowse&#46;c\'&#46;&#46;&#46;\nDone&#46;\n&#91;1&#93;&#58;Bcc32&#46;Exe -M -c -O2  -tW -v- -X  -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -Ic&#58;\\ut\\fwh0705\\include -IC&#58;\\BCC55\\Include;C&#58;\\XHXFW0~1\\Include  -nObj Obj\\wbrowse&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nObj\\WBROWSE&#46;c&#58;\n&#91;1&#93;&#58;Bcc32&#46;Exe -M -c -O2  -tW -v- -X  -DHB_FM_STATISTICS_OFF -DHB_NO_DEFAULT_API_MACROS -DHB_NO_DEFAULT_STACK_MACROS -DHB_OS_WIN_32 -Ic&#58;\\ut\\fwh0705\\include -IC&#58;\\BCC55\\Include;C&#58;\\XHXFW0~1\\Include  -nObj -D__HARBOUR__ wbrwline&#46;c\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nwbrwline&#46;c&#58;\nWarning W8065 wbrwline&#46;c 181&#58; Call to function \'_VARRAYLEN\' with no prototype in function PaintTheLine\nError E2451 wbrwline&#46;c 183&#58; Undefined symbol \'CLV_WORD\' in function PaintTheLine\nError E2379 wbrwline&#46;c 183&#58; Statement missing ; in function PaintTheLine\nError E2140 wbrwline&#46;c 184&#58; Declaration is not allowed here in function PaintTheLine\nError E2140 wbrwline&#46;c 185&#58; Declaration is not allowed here in function PaintTheLine\nError E2140 wbrwline&#46;c 186&#58; Declaration is not allowed here in function PaintTheLine\nError E2140 wbrwline&#46;c 187&#58; Declaration is not allowed here in function PaintTheLine\nError E2451 wbrwline&#46;c 204&#58; Undefined symbol \'_tos\' in function PaintTheLine\nWarning W8065 wbrwline&#46;c 204&#58; Call to function \'_cAt\' with no prototype in function PaintTheLine\nError E2451 wbrwline&#46;c 219&#58; Undefined symbol \'S_ANYNUM\' in function PaintTheLine\nWarning W8065 wbrwline&#46;c 255&#58; Call to function \'_VARRAYLEN\' with no prototype in function PaintTheLine\nError E2451 wbrwline&#46;c 257&#58; Undefined symbol \'lJustify\' in function PaintTheLine\nWarning W8065 wbrwline&#46;c 257&#58; Call to function \'_cAt\' with no prototype in function PaintTheLine\nError E2451 wbrwline&#46;c 262&#58; Undefined symbol \'S_CHAR\' in function PaintTheLine\nWarning W8065 wbrwline&#46;c 262&#58; Call to function \'_VSTR\' with no prototype in function PaintTheLine\nWarning W8069 wbrwline&#46;c 262&#58; Nonportable pointer conversion in function PaintTheLine\nWarning W8065 wbrwline&#46;c 269&#58; Call to function \'_VSTR\' with no prototype in function PaintTheLine\nWarning W8069 wbrwline&#46;c 269&#58; Nonportable pointer conversion in function PaintTheLine\nWarning W8065 wbrwline&#46;c 277&#58; Call to function \'_VSTR\' with no prototype in function PaintTheLine\nWarning W8069 wbrwline&#46;c 277&#58; Nonportable pointer conversion in function PaintTheLine\nWarning W8065 wbrwline&#46;c 282&#58; Call to function \'_VSTR\' with no prototype in function PaintTheLine\nWarning W8069 wbrwline&#46;c 282&#58; Nonportable pointer conversion in function PaintTheLine\nWarning W8065 wbrwline&#46;c 491&#58; Call to function \'_cEval0\' with no prototype in function WBRWLINE\nWarning W8065 wbrwline&#46;c 503&#58; Call to function \'_cEval0\' with no prototype in function WBRWLINE\nWarning W8004 wbrwline&#46;c 685&#58; \'paSizes\' is assigned a value that is never used in function ABRWPOSRECT\n*** 10 errors in Compile ***\n[/code:3nydjuzg]\n\nque me falta hacer?\n\nGracias','',0,'AIA=','3nydjuzg',1,0,'',106,0,0),(34980,7631,3,308,0,'84.148.54.240',1184842212,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:324w9f7p]Norbert,\n\nIs FIELD a valid fieldname on your table ?[/quote:324w9f7p]\n\nyes. i have testet, and i think, i don´t need any UPPER\n\nit works with A_EMAIL LIKE \'%MICOROSOFT%\'\nand              A_EMAIL LIKE \'%microsoft%\'\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nRegards, Norbert','',0,'gA==','324w9f7p',1,0,'',308,0,0),(34981,7626,6,2,0,'87.218.146.162',1184843960,1,0,1,1,1,1,'','','Pedro,\n\nNo es tan simple ya que ese código está diseñado para Clipper y no para Harbour\n\nSe podría adaptar para Harbour pero no son cambios inmediatos y sencillos','',0,'gA==','25jenrmw',1,0,'',2,0,0),(34982,7631,3,2,0,'87.218.146.162',1184844015,1,0,1,1,1,1,'','','Norbert,\n\nGlad to know you got it working <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','18vnojnh',1,0,'',2,0,0),(34983,7631,3,6,0,'87.16.223.148',1184844033,1,0,1,1,1,1,'','Re: ADORDD and SE FILTER','[quote=&quot;NK&quot;:2pi90glv]Dear Anthonio,\n\nis it not possible to use an UPPER() in SET FILTER\n\nSET FILTER TO \"UPPER(FIELD) = \'AAA\'\"\n\nif i use this command:\n\n  Error description: Error ADODB.Recordset/16389  E_FAIL: _FILTER\n\nAny Ideas ? In ODBC it works fine...\n\nRegards, Norbert[/quote:2pi90glv]\n\nTry\n\nSET FILTER TO UCASE(FIELD) = \'AAA\'\n\nEMG','',0,'gA==','2pi90glv',1,0,'',6,0,0),(34984,7634,6,316,0,'213.97.245.163',1184844079,1,0,1,1,1,0,'','Cambios en lIsDir','Hola Antonio\nEn las novedades leo\n[quote:1w7qwjhv] Corrección: Recientes cambios en la función lIsDir() no estaban funcionando correctamente. Ahora funcionan correctamente. [/quote:1w7qwjhv]\n\nCual era el comportamiento anómalo? Porque antes me funcionaba bien y ahora me fallan todos los lIsDir en la aplicación! \n\nSaludos,\n\nCarlos.','',0,'gA==','1w7qwjhv',1,0,'',316,0,0),(34985,7634,6,2,0,'87.218.146.162',1184845448,1,0,1,1,1,1,'','','Carlos,\n\nEstas usando FWH 7.07 ?','',0,'gA==','33sb9vda',1,0,'',2,0,0),(34986,6814,3,439,0,'200.125.35.67',1184847019,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:200oj4vh]José,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->[/quote:200oj4vh]\n\nMuchas gracias Antonio.','',0,'gA==','200oj4vh',1,0,'',439,0,0),(34987,7626,6,106,0,'85.34.123.173',1184847069,1,0,1,1,1,1,'','','Antonio,\n\nEntiendo.','',0,'gA==','3enpidln',1,0,'',106,0,0),(34988,7628,7,1030,0,'200.115.248.234',1184853202,1,0,1,1,1,0,'','','Hola Anotino mi fichero fwppc.exe mide 7,57 Mb.\nSaludos, Natalia','',0,'gA==','26ak321o',1,0,'',1030,0,0),(34989,7628,7,2,0,'87.218.146.162',1184858817,1,0,1,1,1,1,'','','Natalia,\n\nAl arrancar FWPPC.exe, que fecha muestra arriba a la izquierda ?','',0,'gA==','1xfccdv7',1,0,'',2,0,0),(34990,7635,1,161,0,'81.164.212.146',1184858997,1,0,1,1,1,0,'','No selector at OVM object','Hello,\n\nI have al FW195 application that works file on every PC accept for 1 client.\nHe get sometimes this error. \n\n[img:19xsh3ke]http&#58;//www&#46;vms&#46;be/FWTest/NoSelector&#46;JPG[/img:19xsh3ke] \n\nDoes anyone know a solution for this?\n\nThanks,\nMarc[/img]','',0,'CA==','19xsh3ke',1,0,'',161,0,0),(34991,2582,6,73,0,'200.23.18.132',1184859298,1,0,1,1,1,0,'','','que onda hugoooo!! \n\naqui te dejo el link y ahi esta de donde descargarlo y una imagen de ejemplo ...\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7517\">http://fivetechsoft.com/forums/viewtopic.php?t=7517</a><!-- m -->\n\ngusto en volverte a saludar, existen los milagros!!!\n\nsalu2\npaco','',0,'CA==','3ugg76vl',1,0,'',73,0,0),(34992,7635,1,2,0,'87.218.146.26',1184859908,1,0,1,1,1,1,'','','Marc,\n\nAre you using Clipper 5.3 B ?','',0,'CA==','3fhvww8d',1,0,'',2,0,0),(34993,7628,7,1030,0,'200.115.248.234',1184860380,1,0,1,1,1,0,'','','Hola Antonio\nLa fecha que muestra es 25 de Abril de 2006\nSaludos, Natalia','',0,'CA==','1yz5d2cv',1,0,'',1030,0,0),(34994,7582,3,473,0,'81.82.10.56',1184860661,1,0,1,1,1,0,'','','Antonio,\n\nIs this still a problem everywhere.\n\nIs it possible to paint the whole area in a specified color or am I the first who want to try it.\n\nThanks,\n\nWilly','',0,'CA==','14j4cra5',1,0,'',473,0,0),(34995,7632,6,41,0,'200.87.167.162',1184862312,1,0,1,1,1,0,'','','Hola,\n\ntienes el codigo fuente de como generas ese reporte con sonbras y cajones redondeados,\nes te digo para saber si tengo el codigo fuente de la clase report que hace eso\n\nsaludos\n\nMarcelo','',0,'CA==','2i12quuj',1,0,'',41,0,0),(34996,7628,7,2,0,'87.218.146.23',1184862733,1,0,1,1,1,1,'','','Natalia,\n\nEnvíame un email y comprobamos hasta que fecha teneis actualizaciones gratuitas','',0,'CA==','1i788qmh',1,0,'',2,0,0),(34997,7582,3,2,0,'87.218.146.23',1184862825,1,0,1,1,1,1,'','','Willy,\n\nAre you able to reproduce the bug using samples\\TestXBrw.prg ?','',0,'CA==','2z11vsfv',1,0,'',2,0,0),(34998,7636,3,178,0,'71.29.204.123',1184863710,1,0,1,1,1,1,'','oActiveX:bOnEvent','Hello,\n\n\nI have been doing some test wit IE and activex\nand have had problem using\n\noActiveX&#058;bOnEvent \n\nI get\n\nMessage not found: TACTIVEX&#058;_BONEVENT\n\n\nAny suggestions?\n\nThanks\n\n[/code]','',0,'','k4c2yr8q',1,0,'',178,0,0),(34999,7632,6,987,0,'189.132.28.53',1184864078,1,0,1,1,1,0,'','','[b:1gn0uggo]RF: [/b:1gn0uggo]  Gracias por contestar mi post, ya tengo los 2 cds de fivewin con clases y ejemplos, en ella encontre la clase TImprime y TUtil de Rafa Carmona (THE FULL), pase a compilarlas con xHarbour pero da un buen de errores al generar la lib, voy a ver si la encuentro en algun lugar para 32bits, yo pensaba que talvez se podia realizar sobras y cajas sin librerias de terceros, el problema es que mi sistema maneja muchos reportes y tendre que volver a modificarlos, pero haber como le hago de todas maneras muchas gracias..\n\n\n[b:1gn0uggo]Marcelo Via Giglio:[/b:1gn0uggo] Te comento que el archivo .obj (del cual no se cuenta con codigo fuente) que hacia la funcion de poner sobras y cajas a los reportes solo funciona con clipper y fivewin,  y no con harbour o xharbour, si gustas puedo darte el archivo obj para que lo pruebes en tus aplicaciones.\n Si cuentas con alguna modificacion de la clase Treport para hacer sombras y cajas te agradeceria si fueras tan amable de pasarme el fuente para agregarlo a mi aplicación..\n\nGracias a los dos por sus respuetas y seguire intentando..\n\nSaludos desde Chiapas, Mexico','',0,'QA==','1gn0uggo',1,0,'',987,0,0),(35000,7637,6,1089,0,'201.236.157.234',1184864214,1,0,1,1,1,0,'','Tamaño especifico de papel','Amigos del foro, hay existe alguna forma de definir un nuevo tipo de papel desde el programa?\n\nEn la clase tPrinter, he visto que hay una serie de papeles definidos, cómo puedo indicarle a mi programa que debe usar uno específico de 21.59cms por 14.4cms?\n\nacepto todo tipo de ayuda, ya que setsize no me ha dado resultados.\n\nSaludos, Leonel.','',0,'QA==','1to75jxp',1,0,'',1089,0,0),(35001,7638,1,51,0,'80.122.88.242',1184864793,1,0,1,1,1,0,'','Windows 95 help icon on the caption of dialogs','How to hide?\nThanks in advance\nOtto','',0,'QA==','3871118k',1,0,'',51,0,0),(35002,7632,6,644,0,'201.252.62.190',1184865127,1,0,1,1,1,0,'','','En este mismo sitio se encuentran las clases que necesitas de The Full y funcionando en 32 bits ( utilidades ). Saludos','',0,'QA==','2jbs9cuk',1,0,'',644,0,0),(35003,7628,7,1030,0,'200.115.248.234',1184865619,1,0,1,1,1,0,'','','Antonio que necesitas que te envíe por mail?','',0,'QA==','2jhk2b0a',1,0,'',1030,0,0),(35004,7613,3,2,0,'87.218.146.23',1184866872,1,0,1,1,1,1,'','','Tim,\n\nSolved. Please place these lines at the bottom of Class TBmpGet Method Default:\n[code:1jeabhn4]\nMETHOD Default&#40;&#41; CLASS TBmpGet\n\n   &#46;&#46;&#46;\n\n   #include &quot;wcolors&#46;ch&quot;\n\n   &#58;&#58;SetColor&#40; GetSysColor&#40; COLOR_WINDOWTEXT &#41;, GetSysColor&#40; COLOR_WINDOW &#41; &#41;\n\nRETURN NIL\n[/code:1jeabhn4]','',0,'AIA=','1jeabhn4',1,0,'',2,0,0),(35005,7636,3,2,0,'87.218.146.23',1184866999,1,0,1,1,1,1,'','','Dave,\n\nYou are probably linking Class TActiveX from xharbour commercial, instead of FWH Class TActiveX','',0,'AIA=','2f5irv0c',1,0,'',2,0,0),(35006,7638,1,2,0,'87.218.146.23',1184867091,1,0,1,1,1,1,'','','Otto,\n\noDlg:lHelpicon := .F.','',0,'AIA=','1hebasn0',1,0,'',2,0,0),(35007,7632,6,41,0,'200.87.167.162',1184868654,1,0,1,1,1,0,'','','[b:2e7xyyu8]Marcelo Via Giglio:[/b:2e7xyyu8] Te comento que el archivo .obj (del cual no se cuenta con codigo fuente) que hacia la funcion de poner sobras y cajas a los reportes solo funciona con clipper y fivewin,  y no con harbour o xharbour, si gustas puedo darte el archivo obj para que lo pruebes en tus aplicaciones.\n Si cuentas con alguna modificacion de la clase Treport para hacer sombras y cajas te agradeceria si fueras tan amable de pasarme el fuente para agregarlo a mi aplicación..\n\nTe entendi bien, lo que te pedi es como haces para utilizar el obj, como defines para las cabeceras sean con sombra, te pregunto esto para saber si yo fui el quien dejo el obj y es el que estas utilizando, si es asi te doy el fuente, pero quiero saber si lo que utilizas es las modificaciones que alguna vez hice al treport.\n\nsaludos\n\nMarcelo','',0,'QA==','2e7xyyu8',1,0,'',41,0,0),(35008,7636,3,178,0,'71.29.204.123',1184868972,1,0,1,1,1,1,'','','Antonio,\n\nIs it possible that the cause is due to being on an older version?\n\nMine looks like November 2004.\n\nThanks','',0,'QA==','3a8dkk48',1,0,'',178,0,0),(35009,7636,3,2,0,'87.218.146.23',1184869641,1,0,1,1,1,1,'','','Dave,\n\n&gt; Mine looks like November 2004\n\nxharbour and FWH ? If so, yes, its quite old','',0,'QA==','3n2795bz',1,0,'',2,0,0),(35010,7628,7,2,0,'87.218.146.23',1184870708,1,0,1,1,1,1,'','','Natalia,\n\nla fecha de compra de FWPPC y a nombre de quien se compró','',0,'QA==','2qahgcp5',1,0,'',2,0,0),(35011,7639,3,234,0,'75.34.217.174',1184874579,1,0,1,1,1,1,'','Help converting VB to FWH','Hello,\n\nCan anyone help me convert the following VB code to FWH? I would appreciate the help.\n\n\nDim qbXMLRP As New QBXMLRP2Lib.RequestProcessor2\n    \nDim ticket  As String\n    \nqbXMLRP.OpenConnection cAppID, cAppName\n\nticket = qbXMLRP.BeginSession(\"\", QBXMLRP2Lib.qbFileOpenDoNotCare)\n           \nDim builder As New DOMDocument40\n    \nDim QBXML As IXMLDOMNode\nSet QBXML = builder.createElement(\"QBXML\")\nbuilder.appendChild QBXML\nDim msgsRq As IXMLDOMElement\nSet msgsRq = QBXML.appendChild(builder.createElement(\"QBXMLMsgsRq\"))\n\nmsgsRq.setAttribute \"onError\", \"continueOnError\"\nDim CustomerAddRq As IXMLDOMElement\nDim CustomerAdd As IXMLDOMElement\nSet CustomerAddRq = msgsRq.appendChild(builder.createElement(\"CustomerAddRq\"))\n\nSet CustomerAdd = CustomerAddRq.appendChild(builder.createElement(\"CustomerAdd\"))\n\nDim dataElement As IXMLDOMElement\n\nSet dataElement = CustomerAdd.appendChild(builder.createElement(\"Name\"))\ndataElement.appendChild builder.createTextNode(custName)\n\nDim supportedVersion As String\n\nsupportedVersion = qbXMLLatestVersion(qbXMLRP, ticket)\n\nrequestXML = qbXMLAddProlog(supportedVersion, builder.xml)\n    \nresponseXML = qbXMLRP.ProcessRequest(ticket, requestXML)\n    \n    \nqbXMLRP.EndSession ticket\n\nqbXMLRP.CloseConnection','',0,'QA==','wuf57vwp',1,0,'',234,0,0),(35012,7635,1,161,0,'81.164.212.146',1184874903,1,0,1,1,1,0,'','','No Antonio, I\'am using 5.2e\n\nMarc','',0,'QA==','3oopklq2',1,0,'',161,0,0),(35013,7640,3,267,0,'200.208.238.2',1184875207,1,0,1,1,1,1,'','ADORDD/MS Access and decimal numbers','Antonio,\n\nI am creating table in a data base Access with the following command:\n\n[code:2oj665w3]DbCreate&#40; &quot;test2&#46;mdb;table1&quot;, &#123; &#123; &quot;NPEDIDO&quot;, &quot;C&quot;,  6, 0 &#125;,;\n                                             &#123; &quot;QTE&quot;,     &quot;N&quot;, 10, 0 &#125;,;\n                                             &#123; &quot;VALOR&quot;,   &quot;N&quot;,  8, 2 &#125; &#125;, &quot;ADORDD&quot; &#41;\n             [/code:2oj665w3]\n\nThe problem is that I record 2,5 in the field \"value\" and in the Access alone I see 2,0. What I am making made a mistake?','',0,'AIA=','2oj665w3',1,0,'',267,0,0),(35014,7627,3,904,0,'198.54.202.246',1184875866,1,0,1,1,1,1,'','','Excellent. Thank you.','',0,'AIA=','2tyjka23',1,0,'',904,0,0),(35015,7637,6,940,0,'189.157.83.84',1184881062,1,0,1,1,1,1,'','','Leonel,\n\nde este tema se ha hablado bastante,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7625\">http://fivetechsoft.com/forums/viewtopic.php?t=7625</a><!-- m -->\n\nlamentablemente no hay nada claro ,\n\nla tprinter funciona en base a windows,\n\ny depende mucho del tipo de impresora\n\n\nsaludos...','',0,'AIA=','39o3krg5',1,0,'',940,0,0),(35016,7641,3,234,0,'75.34.217.174',1184882333,1,0,1,1,1,1,'','TComObj unresolved external','Hello,\n\nI am getting the following error when trying to build the sample comobj.prg using buildx.bat\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_OLEGETRESULT\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|TComObj','',0,'AIA=','2oauk30a',1,0,'',234,0,0),(35017,7635,1,2,0,'87.218.146.23',1184883155,1,0,1,1,1,1,'','','Marc,\n\nTry to build the application using Clipper 5.3 B','',0,'AIA=','2az0g8u8',1,0,'',2,0,0),(35018,7632,6,73,0,'200.23.18.132',1184884532,1,0,1,1,1,0,'','','cuatecatl,\nadjunto imagen, yo lo hago con la tprinter, es muy facil\n\n<!-- m --><a class=\"postlink\" href=\"http://img233.imageshack.us/my.php?image=sombrasmv7.jpg\">http://img233.imageshack.us/my.php?image=sombrasmv7.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img233.imageshack.us/my.php?image=sombras2sh9.jpg\">http://img233.imageshack.us/my.php?imag ... as2sh9.jpg</a><!-- m -->\n\nsalu2\npaco','',0,'AIA=','3hr2xg18',1,0,'',73,0,0),(35019,7582,3,473,0,'81.82.10.56',1184884594,1,0,1,1,1,0,'','','Antonio,\n\nI tried the testxBrowse program.\n\nI think I found something.\n\nThe whole panel is not colored when you use a dialog with resources.\n\nThat is exactly what I do in my tests.\n\nIn the other screens the screen is paited correctly.\n\nI use Workshop for all my screens. So it is important for me.\n\nGreetings,\n\nWilly','',0,'AIA=','2qodd1v8',1,0,'',473,0,0),(35020,7632,6,987,0,'189.132.28.53',1184884752,1,0,1,1,1,0,'','','[b:1oasg4vj]Marcelo Via Giglio: [/b:1oasg4vj]\n\nMil Disculpas Marcelo, te dejo parte del código el cual hacia que se vieran las sombras y las cajas en los tútulos de las columnas y los totales del Reporte, de hecho el archivo obj, y el codigo de ejemplo lo daje de la difunta página de Prometheus (<!-- w --><a class=\"postlink\" href=\"http://www.dbwide.com.ar\">www.dbwide.com.ar</a><!-- w -->)\n\nEl Archivo obj se incluia en el script para crear la aplicación y se agregaban las siguientes lineas al reporte:\n\nSTATIC FUNCTION Kardex()\n\nLOCAL oReport\n\n lCellView    := .F.\n lSeparator   := .T.\n lJoin        := .T.\n lGrid        := .T.     \n nTitleUpLine :=  2    /*\"Sombra\",\"RoundRect\",\"Box\"*/\n nTitleDnLine :=  2    /*\"Sombra\",\"RoundRect\",\"Box\"*/\n nTotalLine   :=  2    /*\"Sombra\",\"RoundRect\",\"Box\"*/ \n lTitleShadow := .T.\n lTitleJoin   := .F. \n lTotalShadow := .T.\n lTotalJoin   := .F.\n lShdwTtEmpty := .F.\n nTotalShadow :=  2    /*\"Sombra\",\"RoundRect\",\"Box\"*/   \n nTitleShadow :=  2    /*\"Sombra\",\"RoundRect\",\"Box\"*/\n \n \nUSE Kardex\n  \n  REPORT oReporte TITLE \"Reporte del Kardex del Inventario \"\n         PREVIEW;    \n         CAPTION \"SISA® 2007 Kardex.\"\n\n\n  COLUMN TITLE \"Entrada x\",\"Compras\"              DATA Kardex-&gt;Compra                                             \n  COLUMN TITLE \"Cant.\"                            DATA Kardex-&gt;Pzs                                                \n  COLUMN TITLE \"Entradas x Traspasos\"             DATA ALLTRIM(Kardex-&gt;OrigenE)\n  COLUMN TITLE \"Factura\"                          DATA Kardex-&gt;FolioE  \n  COLUMN TITLE \"Cant.\"                            DATA Kardex-&gt;CantidadE \n  COLUMN TITLE \"Salidas x Traspasos\"              DATA ALLTRIM(Kardex-&gt;OrigenS)   \n  COLUMN TITLE \"Folio\"                            DATA Kardex-&gt;FolioS                                             \n  COLUMN TITLE \"Cant.\"                            DATA Kardex-&gt;CantidadS                                          \n  COLUMN TITLE \"Salida x Ventas\",\"Factura\"        DATA Kardex-&gt;Facturas                                           \n  COLUMN TITLE \"Cant.\"                            DATA Kardex-&gt;Vendido                                           \n  COLUMN TITLE \"Entradas\",\"x Ajuste\"              DATA Kardex-&gt;DevoCli                                            \n  COLUMN TITLE \"Cant.\"                            DATA Kardex-&gt;CantidadC                                         \n  COLUMN TITLE \"Salidas\",\"x Ajuste\"               DATA Kardex-&gt;DevoPro                                            \n  COLUMN TITLE \"Cant.\"                            DATA Kardex-&gt;CantidadP                                          \n                  \n  END REPORT\n  \noReporte:lSeparator       := lSeparator\noReporte:lJoin            := lJoin\n\n       IF lGrid\n          AEVAL ( oReporte:aColumns, {|c| c:lGrid := .T. } )\n       ENDIF  \n       \noReporte:nTotalLine        := nTotalLine - 1   \noReporte:nTitleUpLine      := nTitleUpLine - 1 \noReporte:nTitleDnLine      := nTitleDnLine - 1\noReporte:lTitleShadow      := lTitleShadow  \noReporte:lTitleJoin        := lTitleJoin  \noReporte:nTitleShadow      := nTitleShadow\noReporte:nTotalShadow      := nTotalShadow\noReporte:lTotalShadow      := lTotalShadow\noReporte:lTotalJoin        := lTotalJoin\noReporte:lShdwTtEmpty      := lShdwTtEmpty\noReporte:cGrandTotal       := \"Total:\"\noReporte:oDevice:lPrvModal := .T.\n\nIF lCellView = .T.\n   oReporte:CellView()\nENDIF\n           \n  ACTIVATE REPORT oReporte\n\n RETURN NIL\n\nDe todas maneras en cuanto llege a casa reviso el cd en el que descargue todo el sitio web de  DBWIDE y busco el nombre del autor al cual  pertenece dicho archivo.\n\nSaludos..','',0,'QA==','1oasg4vj',1,0,'',987,0,0),(35021,7533,1,320,0,'189.146.132.187',1184886071,1,0,1,1,1,0,'','','Hi again,\n\nI finally got it working.  The problem was that 2 old Pentium II pcs running NT had problems with the GetTickCount function.  I replaced it with nRandom and now is working fine.\nThe XP\'s pcs had no problems.\n\nThanks a lot','',0,'QA==','3w2gqgjn',1,0,'',320,0,0),(35022,7642,3,239,0,'219.137.37.120',1184895650,1,0,1,1,1,0,'','Is there a function convert $100.01 into amount in words?','Hi,\n  As title,convert amount in number into amount in words? \n  convert1(100.01,\"US\")--&gt; Say US dollars one hunderd and one cent only ***\n\nThanks!\n\nShuming Wang','',0,'QA==','2405s7j5',1,0,'',239,0,0),(35023,7597,6,496,0,'200.107.36.176',1184904707,1,0,1,1,1,0,'','','Funcionó OK!!!\n\nGracias Paco \n\nUn saludo\n\n\nMarcelo jingo','',0,'QA==','3g1zau14',1,0,'',496,0,0),(35024,2582,6,396,0,'200.71.186.240',1184905008,1,0,1,1,1,1,'','','Francisco he tratado de bajar la clase pero el link no me funciona, sera que alguien tendra un ejemplo basico de edicion de columnas con el browse o xbrowse o el que sea, lo necesito para un sistema de facturacion, gracias de antemano.','',0,'QA==','ms4ak1jm',1,0,'',396,0,0),(35025,7635,1,161,0,'81.164.212.146',1184908018,1,0,1,1,1,0,'','','Antonio,\n\nI only have 5.2e. And since a couple of years, I link the vmw.obj- file, because if I remember well, this was a fix for this error.\n\nRegards,\nMarc','',0,'QA==','3v6us8eu',1,0,'',161,0,0),(35026,7638,1,51,0,'80.122.88.242',1184910347,1,0,1,1,1,0,'','','Hello Antonio,\nis it possible to disable the helpIcon for the whole project. In this case I still use  1.95 and there the HelpIcon made problems.\nThanks in advance\nOtto','',0,'QA==','1yg2vero',1,0,'',51,0,0),(35027,7638,1,2,0,'87.218.146.189',1184915728,1,0,1,1,1,1,'','','Otto,\n\nModify the Class TDialog and make ::lHelpicon := .F. by default','',0,'QA==','ipfcwoby',1,0,'',2,0,0),(35028,7635,1,2,0,'87.218.146.189',1184915923,1,0,1,1,1,1,'','','Marc,\n\nCould you port your application to FWH ? Usually it takes a week or so. And its the right solution.\n\nThe error you describe is a randomly generated error almost impossible to fix. With Clipper 5.3 B you may get a better behavior.','',0,'QA==','1t0uwehv',1,0,'',2,0,0),(35029,7625,6,75,0,'80.31.149.187',1184916571,1,0,1,1,1,0,'','Impresora de Tikets','Me he encontrado con el mismo problema y al final he desistido. He tenido que utilizar la clase tdosprint y configurando la impresora como Generic/Text Only para poder mandar los códigos de apertura de cajon, etc. Tratando la impresora de otra forma no funciona como se espera y hace saltos de pagina donde no debe, etc...\n\nSi das con la solución te ruego nos lo hagas saber.','',0,'QA==','2tsb5h3g',1,0,'',75,0,0),(35030,7642,3,130,0,'141.51.32.24',1184917627,1,0,1,1,1,1,'','','Hi\n\nhere is a function from the old nanfor library, that does the job\n\n[code:3b4u8tpp]/*\n * File&#46;&#46;&#46;&#46;&#46;&#46;&#58; NTOW&#46;PRG\n * Author&#46;&#46;&#46;&#46;&#58; Gary Baren\n * CIS ID&#46;&#46;&#46;&#46;&#58; 75470,1027\n *\n * This is an original work by Gary Baren and is hereby placed in the\n * public domain&#46;\n *\n * Modification history&#58;\n * ---------------------\n *\n *    Rev 1&#46;1   15 Aug 1991 23&#58;05&#58;54   GLENN\n * Forest Belt proofread/edited/cleaned up doc\n *\n *    Rev 1&#46;0   09 Jun 1991 00&#58;26&#58;56   GLENN\n * Initial revision&#46;\n *\n */\n\n\n\n\n/*  $DOC$\n *  $FUNCNAME$\n *     FT_NTOW&#40;&#41;\n *  $CATEGORY$\n *     Conversion\n *  $ONELINER$\n *     Translate numeric value to words\n *  $SYNTAX$\n *     FT_NTOW&#40; &lt;nNumber&gt; &#41; -&gt; cWords\n *  $ARGUMENTS$\n *     &lt;nNumber&gt;  An integer to translate\n *  $RETURNS$\n *     A text string representing &lt;nNumber&gt;\n *  $DESCRIPTION$\n *      Translates numeric input to a text string&#46;\n *\n *      FT_NTOW is intended to be used with integers only&#46;  Since I don\'t\n *      know what your application will be, I can\'t assume the type of\n *      fraction you want returned &#40;ninety nine cents, 99/100, &#46;99, etc&#41;&#46;\n *      If you want the fraction in words, just pass it as an integer&#46;\n *\n *      Do not pass a negative number!  Handle negative numbers any way\n *      you need to in your code&#46;  &#40;ie&#58; CR, DB, Negative, Minus, etc&#46;&#41;\n *\n *      Also, numeric 0 is returned as a null string&#46;  You will need to\n *      make a decision how to output it &#40;zero dollars, no dollars, etc&#41;&#46;\n *  $EXAMPLES$\n *		? FT_NTOW&#40; 999 &#41;		-&gt; Nine Hundred Ninety Nine\n *\n *		? FT_NTOW&#40; 1000 &#41;		-&gt; One Thousand\n *\n *		? FT_NTOW&#40; 23 &#41; + &quot; Dollars and &quot; + FT_NTOW&#40; 99 &#41; + &quot; Cents&quot;\n *			-&gt; Twenty Three Dollars and Ninety Nine Cents\n *\n *		? FT_NTOW&#40; 23 &#41; + &quot; Dollars and &quot; + &quot;99/100&quot;\n *			-&gt; Twenty Three Dollars and 99/100\n *\n *    x      &#58;= -23&#46;99\n *    cents  &#58;= str&#40; &#40;x - int&#40; x &#41;&#41; * 100, 2, 0 &#41; + &quot;/100&quot;\n *		x      &#58;= int&#40; x &#41;\n *    string &#58;= iif&#40; x &lt; 0, &quot;Credit of &quot;, &quot;Debit of &quot; &#41;\n *		? string + FT_NTOW&#40; abs&#40;x&#41; &#41; + &quot; Dollars and &quot; + &quot;99/100&quot;\n *		     -&gt; Credit of Twenty Three Dollars and 99/100\n *  $END$\n */\n\n\n\nstatic ones  &#58;= &#123; &quot;&quot;,     &quot; One&quot;,   &quot; Two&quot;,   &quot; Three&quot;, &quot; Four&quot;, &quot; Five&quot;,  ;\n                  &quot; Six&quot;, &quot; Seven&quot;, &quot; Eight&quot;, &quot; Nine&quot;                      ;\n                &#125;\n\nstatic teens &#58;= &#123; &quot; Ten&quot;,      &quot; Eleven&quot;,    &quot; Twelve&quot;,   ;\n                  &quot; Thirteen&quot;, &quot; Fourteen&quot;,  &quot; Fifteen&quot;,  ;\n                  &quot; Sixteen&quot;,  &quot; Seventeen&quot;, &quot; Eighteen&quot;, ;\n                  &quot; Nineteen&quot;                             ;\n                &#125;\n\nstatic tens  &#58;=  &#123; &quot;&quot;, &quot;&quot;, &quot; Twenty&quot;, &quot; Thirty&quot;, &quot; Forty&quot;, &quot; Fifty&quot;, ;\n                   &quot; Sixty&quot;, &quot; Seventy&quot;, &quot; Eighty&quot;, &quot; Ninety&quot;  &#125;\n\nstatic qualifiers &#58;= &#123; &quot;&quot;, &quot; Thousand&quot;, &quot; Million&quot;, &quot; Billion&quot;, &quot; Trillion&quot; &#125;\n\n\n#ifdef FT_TEST\n  function main&#40; cNum &#41;\n     return qout&#40; ft_ntow&#40; val&#40; cNum &#41; &#41; &#41;\n#endif\n\n\n\nfunction ft_ntow&#40;nAmount&#41;\n  local nTemp, sResult &#58;= &quot; &quot;, nQualNo\n  local nDiv &#58;= 10 ^ &#40; int&#40; sol10&#40;nAmount&#41; / 3 &#41; * 3 &#41;\n\n  nTemp   &#58;= int&#40;nAmount % nDiv&#41;\n  nAmount &#58;= int&#40;nAmount / nDiv&#41;\n  nQualNo &#58;= int&#40; sol10&#40; nDiv &#41; / 3 &#41; + 1\n  sResult += grp_to_words&#40;nAmount, qualifiers&#91; nQualNo &#93; &#41;\n\n  if nTemp &gt; &#40;nDiv /= 1000&#41; &#46;and&#46; &#40;nDiv &gt; 1&#41;\n     sResult += ft_ntow&#40; nTemp, nDiv &#41;\n  else\n	   sResult += grp_to_words&#40;nTemp, &quot;&quot;&#41;\n  endif\n  return&#40; ltrim&#40;sResult&#41; &#41;\n\n\nstatic function grp_to_words&#40;nGrp, sQual&#41;\n  local sResult &#58;= &quot;&quot;, nTemp\n\n  nTemp   &#58;= int&#40;nGrp % 100&#41;\n  nGrp    &#58;= int&#40;nGrp / 100&#41;\n  sResult += ones&#91; nGrp + 1 &#93; + iif&#40; nGrp &gt; 0, &quot; Hundred&quot;, &quot;&quot;&#41;\n\n  do case\n	   case nTemp &gt; 19\n		   sResult += tens&#91; int&#40; nTemp / 10 &#41; + 1 &#93;\n  		sResult += ones&#91; int&#40; nTemp % 10 &#41; + 1 &#93;\n     case nTemp &lt; 20 &#46;and&#46; nTemp &gt; 9\n		   sResult += teens&#91; int&#40; nTemp % 10 &#41; + 1 &#93;\n     case nTemp &lt; 10 &#46;and&#46; nTemp &gt; 0\n		   sResult += ones&#91; int&#40; nTemp&#41; + 1 &#93;\n  endcase\n  return&#40;sResult + sQual&#41;\n\n\nstatic function sol10&#40; nNumber &#41;\n  local sTemp\n\n  sTemp &#58;= ltrim&#40; str&#40; int&#40;nNumber&#41;, 0&#41; &#41;\n  return&#40; len&#40;sTemp&#41; - 1 &#41;[/code:3b4u8tpp]','',0,'AIA=','3b4u8tpp',1,0,'',130,0,0),(35031,7638,1,51,0,'80.122.88.242',1184920749,1,0,1,1,1,0,'','','Thank you.\nOtto','',0,'AIA=','2kpmca26',1,0,'',51,0,0),(35032,7638,1,51,0,'80.122.88.242',1184922083,1,0,1,1,1,0,'','','Hello Antonio,\nI tried your suggestion but with no effect.\nIs there another way.\nOtto\n\n\nPS:\nIf I use a higher FW-version the controls on the screens are moved and I don’t have time to control all the screens right now.  Therefore I have to disable the HelpIcon at the moment.','',0,'AIA=','1ip50iwc',1,0,'',51,0,0),(35033,7643,7,106,0,'85.34.123.173',1184924080,1,0,1,1,1,1,'','Standby','Alguien sabe como hacer para no dejar que el terminal vaya en standby?\nDesde programa (como hace por ejemplo TomTom)\n\n\nGracias','',0,'AIA=','3kq8a26z',1,0,'',106,0,0),(35034,7638,1,2,0,'87.218.146.189',1184927753,1,0,1,1,1,1,'','','Otto,\n\nTry this:\n\nSetWindowLong( oDlg:hWnd, GWL_EXSTYLE,;\n                    nXor( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_CONTEXTHELP ) )','',0,'AIA=','9l461b2s',1,0,'',2,0,0),(35035,7644,3,805,0,'88.36.233.74',1184928488,1,0,1,1,1,0,'','ERROR IN ADS with long alias name','Hi to all FW users. \n\nI\'m using FWH + xHarbour\n\nTRY to open a ADT Table with this command:\n\nUSE TEST ALIAS Test_tablename SHARED NEW\n\nIf you use the alias name long more then 10 chars you receive\nERROR 5050 from ADVANTAGE.\n\nIs it an error of xharbour or I can\'t use alias name long more then 10 chars in ADT Tables?\n\nThanks','',0,'AIA=','1zlq6zkt',1,0,'',805,0,0),(35036,7645,3,473,0,'81.82.10.56',1184935050,1,0,1,1,1,0,'','xBrowse Left double click','I see this is defined \n\n[code:1ro73kqm]oBrw1&#58;aCols&#91;1&#93;&#58;blDClickData  &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Left double click on column data &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;[/code:1ro73kqm]\n\nIs it also possible to make ONE statement for a left double click on a row.\nSo I do not have add that line for every column\n\nThanks,\n\nWilly','',0,'AIA=','1ro73kqm',1,0,'',473,0,0),(35037,7645,3,53,0,'189.139.95.97',1184937086,1,0,1,1,1,1,'','','Willy:\n\nPls try this way:\n\noBrw1:blDblClick := { | nRow, nCol, nKey | YourFunction()}\n\nRegards','',0,'AIA=','utinejn9',1,0,'',53,0,0),(35038,7632,6,41,0,'200.87.167.162',1184937896,1,0,1,1,1,0,'','','Hola,\n\ncreo que yo hice eso, aqui va mas un ejemlo, es de muchos años atras, haber si lo continuo\n\n	<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43996871/Report.zip.html\">http://rapidshare.com/files/43996871/Report.zip.html</a><!-- m -->\n\nnos cuentas si era lo que necesitabas\n\nsaludos\n\nMarcelo','',0,'AIA=','sxvq10tb',1,0,'',41,0,0),(35039,7646,6,694,0,'201.22.89.175',1184938229,1,0,1,1,1,1,'','Como testar OBJETO para saber se esta ativo/desativado ?','Amigos, tenho um botão (BUTTONBMP), que desativo com o obtn:disable()\n\nComo testar para saber se o OBJETO esta ativo ou não ?\n\nobrigado','',0,'AIA=','17rv22he',1,0,'',694,0,0),(35040,7645,3,473,0,'81.82.10.56',1184940937,1,0,1,1,1,0,'','','HelloArmando,\n\nI\'ve tried this (I thought) and it did\'nt work. Now it does. I must have forgotten someting simple.\n\nThanks,\n\nWilly','',0,'AIA=','1plw6l72',1,0,'',473,0,0),(35041,7638,1,51,0,'80.122.88.242',1184942263,1,0,1,1,1,0,'','','Hello Antonio,\nI commanded out\n   //::Help95()  // activates the help icon on the caption\nIt works. Do you think if I don\'t need Help95 this is ok?\nThanks in advance\nOtto','',0,'AIA=','f4utx8h7',1,0,'',51,0,0),(35042,7647,6,569,0,'201.210.138.189',1184943615,1,0,1,1,1,0,'','ayuda con print screen','Saludos amigos y colegas del Foro:\nAlquien tiene alguna funcion o comando para poder implementar un PRINT SCREEN desde dentro de una aplicacion con solo apretar una tecla\nAnticipadamente GRACIAS\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'AIA=','39h4v6yv',1,0,'',569,0,0),(35043,7646,6,36,0,'164.77.81.210',1184944900,1,0,1,1,1,1,'','','Aokisantos\n\nprueba con \n\n[code:fqlub0ep]if aButton&#91;_btnsave&#93;&#58;lActive\n  bla&#46;&#46;&#46;&#46;\nendif\n[/code:fqlub0ep]','',0,'AIA=','fqlub0ep',1,0,'',36,0,0),(35044,7648,3,89,0,'213.21.136.60',1184946343,1,0,1,1,1,0,'','Different color in Ttreeview  with 7.07','Antonio \n\nI have this diffent color with  tTreeview in a folder FW 7.07 \n\n[url=http&#58;//img520&#46;imageshack&#46;us/my&#46;php?image=fw707ih5&#46;jpg:140ppadc][img:140ppadc]http&#58;//img520&#46;imageshack&#46;us/img520/3109/fw707ih5&#46;th&#46;jpg[/img:140ppadc][/url:140ppadc]\n\nThis is with FW 27\n\n[url=http&#58;//img128&#46;imageshack&#46;us/my&#46;php?image=fw27kv4&#46;jpg:140ppadc][img:140ppadc]http&#58;//img128&#46;imageshack&#46;us/img128/6127/fw27kv4&#46;th&#46;jpg[/img:140ppadc][/url:140ppadc]\n\nRegards MAurizio','',0,'GA==','140ppadc',1,0,'',89,0,0),(35045,7632,6,987,0,'189.132.2.7',1184947458,1,0,1,1,1,0,'','','[b:2jzt73z6]Marcelo Via Giglio:[/b:2jzt73z6]\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Es correcto, ayer verifique el archivo y correstponde a una donacion que realizaste, gracias por el fuente, lo reviso y te cuento.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .','',0,'QA==','2jzt73z6',1,0,'',987,0,0),(35046,7638,1,2,0,'87.218.146.189',1184948272,1,0,1,1,1,1,'','','Otto,\n\nYes, yours is a valid solution <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','27mcfpre',1,0,'',2,0,0),(35047,7648,3,2,0,'87.218.146.189',1184948673,1,0,1,1,1,1,'','','Maurizio,\n\nPlease try to change the color of the tree doing:\n\noTreeView:SetColor( GetSysColor( COLOR_WINDOWTEXT ), GetSysColor( COLOR_WINDOW ) )','',0,'QA==','1pzsah4a',1,0,'',2,0,0),(35048,7646,6,2,0,'87.218.146.189',1184948872,1,0,1,1,1,1,'','','Tambien puedes usar:\n\nIsWindowEnabled( oBtn:hWnd )','',0,'QA==','2ftbkhgc',1,0,'',2,0,0),(35049,7647,6,2,0,'87.218.146.189',1184949073,1,0,1,1,1,1,'','','Rodolfo,\n\nPuedes hacer un hardcopy de cualquier ventana ó control haciendo:\n\noWnd:HardCopy()\n\nClass TWindow METHOD HardCopy( nScale, lFromUser )','',0,'QA==','nlqteg9h',1,0,'',2,0,0),(35050,7644,3,138,0,'189.141.69.200',1184949102,1,0,1,1,1,1,'','','You are right, ALIAS names have limitations in both, ADS and DBFCDX, they cannot be more than 10 chars long.','',0,'QA==','23rissyt',1,0,'',138,0,0),(35051,7649,7,1104,0,'200.115.248.234',1184949460,1,0,1,1,1,0,'','MsgRun?','Hola a todos\nHay alguna función análoga o similar a MsgRun ya que la he probado y no funciona en FWPPC?\nSaludos, Esteban','',0,'QA==','15k4b5m2',1,0,'',1104,0,0),(35052,7625,6,940,0,'189.157.70.111',1184949561,1,0,1,1,1,1,'','','VerhOven\n\ncomo bien comentas, hay que instalar el driver Generic/Tex Only,\n\na mi me funciono con el papel \n\nFull Width 72mm * Receipt\n\ny en la tprinter no necesite poner nada adicional.\n\nprint oPrn\npage\noPrn:cmsay( 1,1,cVar, oFnt1  )\nendpage\nendprint\n\n\nDejad que Microsoft controle todo jajaj,\n\ndesgraciadamente es poco profesional la solucion \n\npero solucion al fin,,  \n\nSaludos cordiales..','',0,'QA==','zt4w17n3',1,0,'',940,0,0),(35053,7649,7,2,0,'87.218.146.189',1184949653,1,0,1,1,1,1,'','','Esteban,\n\nLa idea es llamar a otra aplicación y esperar hasta que termine ?','',0,'QA==','3qp53kz8',1,0,'',2,0,0),(35054,7646,6,694,0,'201.22.89.175',1184950003,1,0,1,1,1,1,'','','gracias....','',0,'QA==','375l7sjb',1,0,'',694,0,0),(35055,7649,7,1104,0,'200.115.248.234',1184950497,1,0,1,1,1,0,'','','La idea es informar al usuario que el sistema está procesando algo o cargando datos. Y debido a que el procesamiento es grande, el usuario no crea que se le ha colgado la iPaq.\nSaludos, Esteban','',0,'QA==','2mfhokpg',1,0,'',1104,0,0),(35056,7647,6,569,0,'201.210.138.189',1184950651,1,0,1,1,1,0,'','Antonio olvide comentar','Gracias por la respuesta pero estoy trabajando por ahora, con solo y puro legitimo XHARBOUR y el FIVEWIN, solo comandos y funciones que no tienen nada que ver con salida por pantalla o graficos, por eso es que necesito implementar en mi antigua aplicacion tipo CONSOLA, una opcion para hacer un PRINT SCREEN, desde una opcion del menu.\nGracias.','',0,'QA==','2vpuzzeq',1,0,'',569,0,0),(35057,7649,7,2,0,'87.218.146.189',1184950741,1,0,1,1,1,1,'','','Puedes usar un control \"progress_bar\" que vaya avanzando conforme se realiza la tarea. Revisa samples\\TestProg.prg','',0,'QA==','36dwaxg9',1,0,'',2,0,0),(35058,7647,6,2,0,'87.218.146.189',1184950894,1,0,1,1,1,1,'','','Puedes hacer un SAVE SCREEN TO ... y luego imprimir el contenido de la variable entendiendo que usa un byte para el caracter y otro para el color','',0,'QA==','3lo02m5n',1,0,'',2,0,0),(35059,7632,6,987,0,'189.132.2.7',1184952357,1,0,1,1,1,0,'','','[b:2rbh6wj2]Marcelo Via Giglio:[/b:2rbh6wj2]\n\nTe confirmo que esta misma es la funcion que necesitaba,  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  mil gracias Marcelo, excelente modificación a la clase TReport y 100% funcional para xharbour.\n\nUff, si que me ahorraste un buen de trabajo cuate  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , te devo una, ya estas en el area de creditos y agradecimientos de mi Sistema...\n\nMuy pronto  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  estara tambien disponible mi portal electronico:\n\n                <!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->\n\nSaludos desde Mexico...  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->','',0,'QA==','2rbh6wj2',1,0,'',987,0,0),(35060,7632,6,987,0,'189.132.2.7',1184953762,1,0,1,1,1,0,'','','de Regreso en el foro-\n\n  Funciona bien solo que tiene un problema, en reportes en donde no hay columnas numericas para hacer totales genera el siguiente error:\n\nDescripción del Error: \n___________________________________________________\n\nError BASE/1004  \nMessage not found: TREPORT:LTOTALDASH\n\n\nLlamadas al Stack:\n___________________________________________________\n\nLlamado desde TREPORT:ERROR(172)\nLlamado desde TREPORT:MSGNOTFOUND(205)\nLlamado desde TREPORT:LTOTALDASH(0)\nLlamado desde TREPORT:PAGETOTAL(1613)\nLlamado desde TREPORT:ENDPAGE(1436)\nLlamado desde TREPORT:END(1348)\nLlamado desde TREPORT:PLAY(1044)\nLlamado desde (b)TREPORT:ACTIVATE(861)\n\n\n¿Cual será el origen del error..?\n\nMuy pronto estara tambien disponible mi portal electronico: \n\n       <!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w --> \n\n\nSaludos desde Mexico...','',0,'QA==','1oqzzdrj',1,0,'',987,0,0),(35061,6303,4,3,0,'80.81.159.19',1184959299,1,0,1,1,1,1,'','','Pedro\n\nWhere did you download the pocket rar \"line utility\" from ? i googled and the files i have downloaded do not seem to have the line command utility.\n\nCan you share your version of rar.exe ?\n\nIf yes please send it to me by mail   <!-- e --><a href=\"mailto:richard@cbati.com\">richard@cbati.com</a><!-- e -->\n\nThank you in advance','',0,'QA==','37ghvr5e',1,0,'',3,0,0),(35062,7568,7,110,0,'165.98.223.31',1184961828,1,0,1,1,1,1,'','','N es mejor usar un dbcombo?\n\nsalu2\ncarlos vargas','',0,'QA==','rw045ono',1,0,'',110,0,0),(35063,2582,6,73,0,'200.23.18.132',1184964851,1,0,1,1,1,0,'','','disculpas a todos,\n\nno la habia subido, aqui esta a su disposicion la wbrowse de HDC con las adaptaciones que hice, yo la uso con harbour, no la he probado con xharbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.savefile.com/files/904332\">http://www.savefile.com/files/904332</a><!-- m -->\n\nsalu2\npaco','',0,'QA==','b6r3pprv',1,0,'',73,0,0),(35064,7650,6,73,0,'200.23.18.132',1184968041,1,0,1,1,1,0,'','clase wcapture','Hola foro,\n\n1.alguien que me pudiera facilitar esta clase twcapture,\n2. hace tiempo vi una funcion (creo en superlib) que me permitia de un texto dividirlo con algun caracter especifico, por ej:\n\"francisco\" y me lo ponia \"f.r.a.n.c.i.s.c.o.\" o alguna idea\nsalu2\npaco','',0,'QA==','1hqf3wqq',1,0,'',73,0,0),(35065,7641,3,2,0,'87.218.146.189',1184968372,1,0,1,1,1,1,'','','Darrell,\n\nPlease discard that example. It should not be there, thanks','',0,'QA==','3uer9ezv',1,0,'',2,0,0),(35066,7651,3,299,0,'24.233.172.101',1184976650,1,0,1,0,1,0,'','MciSendStr()','Hi.\n\nI\'m trying to implement voice recording and playback.  Using something like this:\n\n[code:2rxcjjil]\n&#58;&#58;cCmnd &#58;= &quot;Record RecWavFile&quot;\n\nif &#40; nResult &#58;= MciSendStr&#40; &#58;&#58;cCmnd, @&#58;&#58;cResult &#41; &#41; &gt; 0\n	MsgStop&#40; &quot;MCI Error &quot; + &#58;&#58;cResult, cValToChar&#40; nResult &#41; &#41;\nEndif\n[/code:2rxcjjil]\n\nI get error 263 on nResult every single time for all MCI commands.  \n\nCan someone help?  \n\nIs there some fw + xharbour implementation or class available for voice recording and playback?\n\nThank you,\n\n\nReinaldo.','',0,'AIA=','2rxcjjil',1,0,'',299,0,0),(35067,7607,19,26,0,'84.52.130.249',1184978541,1,0,1,1,1,1,'','','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.oneopensource.it/interview-linus-torvalds/\">http://www.oneopensource.it/interview-linus-torvalds/</a><!-- m -->\n[quote:dfp3sctf]I think the real issue about adoption of open source \nis that nobody can really ever “design” a complex system. \nThat’s simply not how things work: people aren’t that \nsmart - nobody is. [/quote:dfp3sctf]\n\nI don\'t agree ...  <!-- s:mrgreen: --><img src=\"{SMILIES_PATH}/icon_mrgreen.gif\" alt=\":mrgreen:\" title=\"Mr. Green\" /><!-- s:mrgreen: --> \n\nCheers, Roman','',0,'gA==','dfp3sctf',1,0,'',26,0,0),(35068,7642,3,239,0,'219.136.103.170',1184982526,1,0,1,1,1,0,'','','Stefan,\nThank you !\nShuming Wang','',0,'gA==','1gwver07',1,0,'',239,0,0),(35069,7650,6,1106,0,'190.64.208.137',1184986321,1,0,1,1,1,0,'','','Paco:\n\nAquí en utilidades esta la clase tCapture de Rafa Carmona\nquizás sea la que buscas.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','2cbx7dk1',1,0,'',1106,0,0),(35070,2582,6,439,0,'200.125.47.69',1184989763,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:24zo6uua]disculpas a todos,\n\nno la habia subido, aqui esta a su disposicion la wbrowse de HDC con las adaptaciones que hice, yo la uso con harbour, no la he probado con xharbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.savefile.com/files/904332\">http://www.savefile.com/files/904332</a><!-- m -->\n\nsalu2\npaco[/quote:24zo6uua]\n\nFrancisco,\n\nGracias por tu espléndido aporte, te confirmo que funciona de maravillas con xHarbour y que los comboboxes se ven muy bien.','',0,'gA==','24zo6uua',1,0,'',439,0,0),(35071,2582,6,73,0,'189.157.189.95',1184994769,1,0,1,1,1,0,'','','gracias jose, mi aportacion es minima y con gusto lo hago\n\npor ahi trae la opcion para bloquear (si quieres) las columnas cuando usas el freeze y tambien puedes usar o no el apuntador (esa fue aportacion creo de alfredo arteaga si mal no recuerdo). luego en un rato de tranquilidad voy a ver si puedo bloquear columnas especificadas en arreglo, no unicamente las del freeze.\n\nsalu2\npaco','',0,'gA==','qp2zddx0',1,0,'',73,0,0),(35072,7625,6,75,0,'80.31.150.213',1184995527,1,0,1,1,1,0,'','','Y para abrir el cajon de monedas, ¿cómo envías el código correspondiente a la impresora?.\n\nAl ser Text Only, ¿Te imprime los tipos de letra de windows o solo caracter de texto?. ¿Cómo imprimes los gráficos (logos)?\n\nSaludos.','',0,'gA==','1eczozfx',1,0,'',75,0,0),(35073,7602,6,569,0,'201.210.138.189',1185003580,1,0,1,1,1,0,'','saludos CARLSON','En la linea donde se encuentra ILINK32, solo deja los siguientes switches \"-tpe -s\" y te vas ha llevar una sorpresa muy agradable, yo estuve meses parado por esa tonteria, hasta que consegui la solucion.\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','3apvbeif',1,0,'',569,0,0),(35074,7542,6,569,0,'201.210.138.189',1185017089,1,0,1,1,1,0,'','Saludos','Amigo perdona mi ignorancia pero que es MOCHILA?','',0,'gA==','oj7ukcy2',1,0,'',569,0,0),(35075,7520,6,569,0,'201.210.138.189',1185017490,1,0,1,1,1,0,'','Saludos','Amigo y colega, to trabajo con esa version y con el xharbour 9961, busca en la pagina de PATRICK MAST, (verifica el apelledo), y alli encontraras loa parches y actualizaciones para tu versio, si eso te falla, puedes escribirme.\nRodolfo Silva\n<!-- e --><a href=\"mailto:sildata@cantv.net\">sildata@cantv.net</a><!-- e -->','',0,'gA==','2ann9vzv',1,0,'',569,0,0),(35076,7636,3,178,0,'69.40.194.38',1185018095,1,0,1,1,1,1,'','','Antonio,\n\nThanks, I will be looking to upgrade soon.','',0,'gA==','3f1oey9g',1,0,'',178,0,0),(35077,7445,6,569,0,'201.210.138.189',1185018180,1,0,1,1,1,0,'','Saludos','Amigo y colega, tomalo como una simple sugerencia, trata en lo posible de independizar los manejos de las fechas, es decir maneja dentro de tu sistema tu propia fecha que sea independiente de la del WINDOWS, con alguna variable PUBLIC, o cualquier otro medio, tienes mucha mas libertad y muchos menos peligros; anteriormente yo lo hacia como tu a travez de la fecha de la computadora y en alguna ocacion se le olvido al operador REPONER la fecha original y recien nos vinimos a dar cuenta al fin de mes, como te podras imaginar; el arroz con mango que se armo en la facturacion era de padre y señor mio. Ademas hay algunos programas como por ejemplo los antivirus que monitorean los cambios de fecha de la computadora y como respuesta te salen algunos mensajes y pueden llegar ha colgarte la maquina.\nEspero haberte ayudado.\nRodolfo Silva\nsildata@cantv','',0,'gA==','3b55eo58',1,0,'',569,0,0),(35079,7652,3,178,0,'69.40.194.38',1185019341,1,0,1,1,1,1,'','ActiveX program','Hello All,\n\nI was wondering if it is possible to make FWH program listen and respond to another programs activex calls to it?\n\nThanks','',0,'gA==','r8sf34i2',1,0,'',178,0,0),(35081,7652,3,2,0,'87.218.146.168',1185029545,1,0,1,1,1,1,'','','Dave,\n\nWithout having further details about what you need to do, you may review Windows msg WM_COPYDATA. There is a working sample at samples\\copydata_16_32\n\nthe WM_COPYDATA message is sent when an application passes data to another application\n\nWM_COPYDATA  \nwParam = (WPARAM) (HWND) hwnd;            // handle of sending window \nlParam = (LPARAM) (PCOPYDATASTRUCT) pcds; // pointer to structure with data \n\nParameters\n\nhwnd\nIdentifies the window passing the data. \n\npcds\nPoints to a COPYDATASTRUCT structure that contains the data to be passed. \n\nReturn Values\n\nIf the receiving application processes this message, it should return TRUE; otherwise, it should return FALSE. \n\nRemarks\n\nAn application must use the SendMessage function to send this message, not the PostMessage function. \nThe data being passed must not contain pointers or other references to objects not accessible to the application receiving the data. \nWhile this message is being sent, the referenced data must not be changed by another thread of the sending process. \nThe receiving application should consider the data read-only. The pcds parameter is valid only during the processing of the message. The receiving application should not free the memory referenced by pcds. If the receiving application must access the data after SendMessage returns, it must copy the data into a local buffer. \n\nSee Also\n\nPostMessage, SendMessage, COPYDATASTRUCT','',0,'gA==','1m6slw6o',1,0,'',2,0,0),(35082,7652,3,2,0,'87.218.146.168',1185029627,1,0,1,1,1,1,'','','Also, you can use sockets.\n\nPlease review samples\\sockserv.prg and sockcli.prg','',0,'gA==','1pjxyoiz',1,0,'',2,0,0),(35083,7445,6,987,0,'189.132.10.59',1185030536,1,0,1,1,1,0,'','','Estimado Rodolfo Silva:\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Agradesco tu humilde opinión y coincido contigo, ya decidi dejar esa función SETDATE() para el cambio de fecha, ya que no hay una solución para este  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> ENORME BUG <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> , creo que como nosotros muchos han pasado por este pequeñisimo inconveniente y han tenido que elegir otras opciones puesto que no nos dan una solución eficaz o en su defecto una corrección o codigo fuente que funcione, te comento que ya trabajo sobre esto y espero en estos días poder corregirlo,  <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: --> tengo pensado escribir algo de codigo para crea una nueva función para todos aquellos que necesitamos esta valiosa función <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> .\n\nEn cuento lo tenga la subo al foro para todos los que la necesiten.\n\nSaludos desde Chiapas, México','',0,'gA==','pzdi4std',1,0,'',987,0,0),(35084,7653,1,1117,0,'125.24.50.57',1185032049,1,0,1,1,1,0,'','Error WOW32.DLL','How to solve the problem when found WOW32.DLL error whitch communication command.','',0,'gA==','3cg6ekrn',1,0,'',1117,0,0),(35085,7650,6,73,0,'189.157.177.246',1185040861,1,0,1,1,1,0,'','','gracias ruben,\npero esta no es la clase, esta es tcapcapture, y yo busco twcapture, para capturar las ventanas abiertas\nsalu2\npaco','',0,'gA==','1mr3j9dz',1,0,'',73,0,0),(35086,7653,1,2,0,'87.218.146.27',1185041173,1,0,1,1,1,1,'','','Migrate your application to FWH and Harbour/xHarbour 32 bits','',0,'gA==','202wzu70',1,0,'',2,0,0),(35087,7650,6,1106,0,'190.64.236.206',1185041589,1,0,1,1,1,0,'','','Paco:\n\nAqui en el foro hay un link para una clase wcapture\n\nEspero te sirva, no se si es para 32 bits.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/012fe51f35/wcapture.zip.html\">http://hyperupload.com/download/012fe51 ... e.zip.html</a><!-- m -->\n\nSaludos.\n\nRuben Fernandez','',0,'gA==','vd79w8be',1,0,'',1106,0,0),(35088,7542,6,940,0,'189.157.70.111',1185042766,1,0,1,1,1,1,'','','bueno, en tiendas escolares, las encuentras de todo tipo,,\n\n\nbueno yo solo conozco las que usan los chiquillos y chiquillas \n\npara llevar sus pertenencias a la escuela,\n\n\nsaludos..','',0,'gA==','2ui5if71',1,0,'',940,0,0),(35089,7625,6,940,0,'189.157.70.111',1185043238,1,0,1,1,1,1,'','','Te respeta todos los font y graficos,\n\nel corte de papel y apertura del cajon tambien lo puede controlar windows,, \n\npero una idea que me dio el buen Francisco Horta ,\n\npuedes conbinar tprinter y tdosprn.\n\n\n_abrecajon()\n\nprint oPRN\nPAGE\n* ......\nENDPAGE\nENDPRINT\n\n_cortapeL()\n\n\nfunction _abreCajon()\n   local oPrn\n   oPrn := TDosPrn():New(\'LPT1\')\n   oPrn:Command( alltrim( (cAli)-&gt;abrecajon   )  )\n   oPrn:end(, .f.  )\nreturn nil\n\n\nfunction _CortarPapel( cAli)\n   local oPrn\n   oPrn := TDosPrn():New(\'LPT1\')\n   oPrn:Command( alltrim( (cAli)-&gt;Cortar ) )\n   oPrn:end( .f., .f.  )\nreturn (.t.)\n\nPoco sintetico pero solucion al fin !!!!!!!!!!!! jejeje..','',0,'gA==','2d2z334w',1,0,'',940,0,0),(35090,7653,1,35,0,'65.188.6.143',1185052243,1,0,1,1,1,0,'','','Surasak\n\nWow32.dll, .exe is the 16 bit subsystem runing under a 32 bit Windows operating system... hense the name WOW .. windows on windows\n\nIf you are having Wow32.xxx problems .. your Windows operating system is probably corrupt and if you wish to continue developing with clipper and FW .. you need to ( probably ) re-format your pc.\n\nOr you can migrate to FWH as Antonio suggests .. if you are having Wow problems .. your system prob has other issues as well .. I would backup your files and run your Windows recovery cd or re-load XP from the MS OEM CD.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','37ajq4rl',1,0,'',35,0,0),(35091,7650,6,73,0,'189.157.177.246',1185057595,1,0,1,1,1,0,'','','perfecto ruben,,\ngracias\npaco','',0,'gA==','1qfs9ltc',1,0,'',73,0,0),(35092,7653,1,138,0,'148.221.197.45',1185094615,1,0,1,1,1,1,'','','16 bits applications under \"true 32\" Operating Systems (Win NT / 2000 / 2003/ XP / Vista) need a 16 bits emulator, this is the job of the WOW (as Rick Stated: WOW = Windows On Windows) so your 16 bits applications are running under an emulator, not under the control of the operating system.\n\nWOWEXEC and NTDVM (NT DOS Virtual Machine) are needed to run 16 bits applications and in some cases these two programs causes problems.\n\nThe real and only solution to get the rid of these problems is to move to FiveWin Harbour 32 bits.','',0,'gA==','1x9a0rru',1,0,'',138,0,0),(35093,7542,6,138,0,'148.221.197.45',1185094866,1,0,1,1,1,1,'','','mochila = llave de seguridad o proteccion = dongle = hardware lock.\n\nEn pocas palabras, esa \"llave\" que debe ir conectada al puerto paralelo o al USB para que tu programa funciona y en donde guardas cosas como el numero de serie, el numero de usuarios.','',0,'gA==','1o50olgx',1,0,'',138,0,0),(35094,7445,6,138,0,'148.221.197.45',1185095447,1,0,1,1,1,1,'','','Yo tenia el mismo problema y lo solucioné con la librería funcky:\n\n[code:2fv238yb]\noFuncky &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;funcky&quot;&#41;\noDate &#58;= oFuncky&#58;CreateDate&#40;&#41;\n\noDate&#58;Set&#40;&quot;mm/dd/aa&quot;&#41; // siempre en formato mm/dd/aa\n[/code:2fv238yb]\n\ny listo, la función devuelve .t. si la fecha del sistema se cambió con éxito, .f. si hubo algún problema','',0,'AIA=','2fv238yb',1,0,'',138,0,0),(35095,7652,3,178,0,'69.40.194.38',1185101557,1,0,1,1,1,1,'','','Antonio,\n\nI will give a good look at the program you mentioned.\n\nIt may be what I am looking for.\n\nThanks','',0,'AIA=','16m8hzg3',1,0,'',178,0,0),(35096,7330,6,701,0,'83.34.25.221',1185102495,1,0,1,1,1,0,'','','Alguien puede tirarme una mano para implementar esta calculadora pulsando una tecla, p.ejemplo F5 desde cualquier parte del programa. ?\nNo logro hacerla funcionar de ninguna manera. (Es que estoy bastante verde en esto de PPO).\nUn saludo y gracias anticipadas\nFenix','',0,'AIA=','1izjxha3',1,0,'',701,0,0),(35097,7652,3,178,0,'69.40.194.38',1185107175,1,0,1,1,1,1,'','','OK \n\nI think I can pose my question better.\n\n\nI looked at the fwcopy16 program and it may be a part of the answer to my question.\n\nIf I have an application (A) that is residing on the C drive as an exe and I wanted to make an activex call to that application from another application (B) that I am running.\n\n Two questions.\n\n  Does  application (A)  need to be running or registered with operating system in any way?\n\n And in application (B) what syntax would I use to call it?\n\n\nexample like:\n\n   oActiveX1 = TActiveX():New( oWnd, \"Shell.Explorer\" )\n\n   oPdf = TActiveX():New( oWnd, \"AcroPDF.PDF\" ) \n\n\n\nLet me know if I am way off.\n\nThanks','',0,'AIA=','3czy07t4',1,0,'',178,0,0),(35098,7330,6,78,0,'190.40.250.56',1185156264,1,0,1,1,1,0,'','','Al inicio de tu aplicacion colocas algo asi:\nSetKey(VK_F5,{||Calculadora()})   \n\ny Listo,,,\n\nSalu2','',0,'AIA=','q6f49hij',1,0,'',78,0,0),(35099,7654,6,98,0,'70.71.111.92',1185158843,1,0,1,1,1,1,'','México -&gt; CURP','Esta es pregunta para compatriotas de México:\n\n¿Alguien tiene el algoritimo para calcular el CURP?\n\nGracias,\n\nLuis Krause','',0,'AIA=','15ouhdgr',1,0,'',98,0,0),(35100,7653,1,47,0,'203.144.160.247',1185160618,1,0,1,1,1,0,'','','Dear Surasak,\n\nI\'m Dutch from Thailand.  Are you Thai?  If so, we can give some help each other, contact me.\n\nRegards,\nDutch\n<!-- e --><a href=\"mailto:dutchez4@gmail.com\">dutchez4@gmail.com</a><!-- e -->','',0,'AIA=','po9n7x8r',1,0,'',47,0,0),(35101,7568,7,456,0,'217.127.39.57',1185169728,1,0,1,1,1,1,'','','Hola Carlos, \n    si, dbCombo seria mas comodo, pero creo que dicha clase no esta disponible en FWPPC.','',0,'AIA=','3ud3513f',1,0,'',456,0,0),(35102,7644,3,805,0,'88.36.233.74',1185172152,1,0,1,1,1,0,'','','Thanks Rene !\n\nBut i\'m using now DBFCDX and i have no error with long alias name!\n\nI\'m converting all my sources from DBFCDX TO ADS and I \'ve found this error.\nI use long alias name only in 1 or 2 points . I have sostitute this long name with another one\n\nBye','',0,'AIA=','2pti969c',1,0,'',805,0,0),(35103,7330,6,701,0,'194.179.55.34',1185173452,1,0,1,1,1,0,'','','Gracias Willi, así es como lo tengo para otra calculadora. Pero con esta no logro hacerla funcionar.\n\nUn saludo,\nFenix','',0,'AIA=','1sqytmbf',1,0,'',701,0,0),(35104,7655,6,316,0,'213.97.245.163',1185188700,1,0,0,1,1,0,'','Recompilando una aplicación con 7.07 genera trace.log...','que cuando miras dentro dice\n\n\"*** WARNING! Function: GETNEW in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG\"\n\nRefleja algun problema en particular o puede ignorarse? De ser asi, hay alguna forma de evitar que este archivo se genere??\n\nSaludos,\n\nCarlos','',0,'AIA=','16dm4irs',1,0,'',316,0,0),(35105,7634,6,316,0,'213.97.245.163',1185188876,1,0,0,1,1,0,'','','Si Antonio, 7.07 con xHarbour 7.07. \nEl cambio de comportamiento respecto de 7.04 parece ser que no acepta nombre de directorio terminados en \'\\\', Por ejemplo:\n\n? lIsDir( \"C:\\Windows\" ) =&gt; .T. \n? lIsDir( \"C:\\Windows\\\" ) =&gt; .T. en 7.04, .F. en 7.07\n\nSaludos,\n\nCarlos.','',0,'AIA=','116oyvwe',1,0,'',316,0,0),(35106,7656,3,130,0,'141.51.32.24',1185189200,1,0,1,1,1,1,'','Description of REPrintBox ()','Dear friends,\n\ndid anyone has a description of the function REPrintBox () used in the class TRichEdit ?\n\nREPrintBox return an array with two elements, with the first one i get the position of the last printed char, is that right ?\n\nHow can I get the exact position in cm of this position, so I´m able to print some other text afterwards ?','',0,'AIA=','35uw0l57',1,0,'',130,0,0),(35107,6303,4,106,0,'85.34.123.173',1185191439,1,0,1,1,1,1,'','','Richard,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.winrar.it/prelievo.php4\">http://www.winrar.it/prelievo.php4</a><!-- m -->\n\n\n\nRegards.','',0,'AIA=','23cst3mg',1,0,'',106,0,0),(35108,7632,6,41,0,'200.87.167.162',1185197418,1,0,1,1,1,0,'','','Hola,\n\nte cuento que LTOTALDASH no es parte las modificaciones que hice, te sugiero que modifiques el ejemplo que te envie y pruebes alli los atributos y ver las combinaciones de ellos para que obtengas lo que necesitas.\n\nSobre el error puede que sea una error antiguo de la clase report, podrias pasar todo lo que esta marcado MVG a un fuente mas actual de la clase report, espero darme tiempo y retomar esto que deje tiempo atras \n\nsaludos\n\nMarcelo','',0,'AIA=','d2ohq8d0',1,0,'',41,0,0),(35109,7654,6,660,0,'189.149.122.175',1185201301,1,0,1,1,1,0,'','Cálculo CURP México','Espero te sirva...\n\nSaludos!!\n\n[code:xcgpmtaj]\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n* FUNCION    &#58; CURP&#40;&#91;cCURP&#93; &#91;, cPaterno&#93; &#91;, cMaterno&#93; &#91;, cNombre&#93;;\n*                   &#91;, fNacimiento&#93; &#91;, nSexo&#93; &#91;, cLugarNacim&#93;&#41; -&gt; cCURP\n* DESCRIPCION&#58; La Clave Unica de Registro de Población &#40;CURP&#41; es un instrumento de registro e identificación\n*              que se asigna a todas las personas que viven en el territorio nacional, así como a los\n*              mexicanos que residen en el extranjero&#46;\n*              El Registro Nacional de Población &#40;RENAPO&#41; es la instancia responsable de asignar la\n*              CURP y de expedir la constancia respectiva&#46;\n*              La CURP se integra de dieciocho elementos, representados por letras y números, que se\n*              generan a partir de los datos contenidos en el docuemento probatorio de entidad &#40;acta de\n*              nacimiento, carta de naturalización o docuemento migratorio&#41;, y que se refieren a&#58;\n* PARAMETROS &#58; &lt;cCURP&gt;       = Si ya tiene formado parte de la CURP, se deberá pasar en este parámetro y\n*                              así sólo anexar la parte faltante&#46;\n*              &lt;cPaterno&gt;    = Apellido Paterno                &lt;cMaterno&gt;   = Apellido Materno\n*              &lt;cNombre&gt;     = Nombre de Pila                  &lt;fNacimiento&gt;= Fecha de Nacimiento\n*              &lt;nSexo&gt;       = Sexo&#58; 1 para Femenino, 2 para Masculino\n*              &lt;cLugarNacim&gt; = Clave de la Entidad Federativa de nacimiento&#46;\n* REGRESA    &#58; Una cadena de 18 caracteres que contiene parte ó toda la CURP, según los parámetros enviados&#46;\n* EJEMPLO    &#58; ? CURP&#40;, &quot;Alamán&quot;, &quot;Pérez&quot;, &quot;Ricardo&quot;, CTOD&#40;&quot;21/03/63&quot;&#41;, 2, &quot;DF&quot;&#41;\n*              -&gt; &quot;AAPR630321HDFLRC09&quot;   // Se forma la CURP Completa&#46;\n*              ? CURP&#40;, &quot;Alamán&quot;, &quot;Pérez&quot;, &quot;Ricardo&quot;&#41;\n*              -&gt; &quot;AAPR         LRC  &quot;   // Se forma sólo la parte de la CURP donde intervienen los apellidos y el nombre&#46;\n* EJEMPLO    &#58; ? CURP&#40;, , , , CTOD&#40;&quot;21/03/63&quot;&#41;, 2, &quot;DF&quot;&#41;\n*              -&gt; &quot;    630321HDF     &quot;   // Se forma sólo la parte de la CURP donde intervienen la fecha de Nacimiento, el Sexo y Lugar de Nacimiento&#46;\n* REQUIERE   &#58; EsVocal&#40;&#41;, EsConsonante&#40;&#41;, SinAcento&#40;&#41; y FormFec&#40;&#41; -&gt; Sanroms&#46;Prg\n*\nFUNCTION CURP&#40;cCURP, cPaterno, cMaterno, cNombre, fNacimiento, nSexo, cLugarNacim, lVerif&#41;\n  LOCAL cConsonante, cElement, cLetra, cPalabra, cVerif, cVocal\n  LOCAL nLetra\n  LOCAL aAntiSonantes &#58;= &#123;&quot;BUEI&quot;,;\n                          &quot;BUEY&quot;,;\n                          &quot;CACA&quot;,;\n                          &quot;CACO&quot;,;\n                          &quot;CAGA&quot;,;\n                          &quot;CAGO&quot;,;\n                          &quot;CAKA&quot;,;\n                          &quot;CAKO&quot;,;\n                          &quot;COGE&quot;,;\n                          &quot;COJA&quot;,;\n                          &quot;COJE&quot;,;\n                          &quot;COJI&quot;,;\n                          &quot;COJO&quot;,;\n                          &quot;CULO&quot;,;\n                          &quot;FETO&quot;,;\n                          &quot;GUEY&quot;,;\n                          &quot;JOTO&quot;,;\n                          &quot;KACA&quot;,;\n                          &quot;KACO&quot;,;\n                          &quot;KAGA&quot;,;\n                          &quot;KAGO&quot;,;\n                          &quot;KAKA&quot;,;\n                          &quot;KOGE&quot;,;\n                          &quot;KOJO&quot;,;\n                          &quot;KULO&quot;,;\n                          &quot;LOCA&quot;,;\n                          &quot;LOCO&quot;,;\n                          &quot;LOKA&quot;,;\n                          &quot;LOKO&quot;,;\n                          &quot;MAME&quot;,;\n                          &quot;MAMO&quot;,;\n                          &quot;MEAR&quot;,;\n                          &quot;MEAS&quot;,;\n                          &quot;MEON&quot;,;\n                          &quot;MION&quot;,;\n                          &quot;MOCO&quot;,;\n                          &quot;MULA&quot;,;\n                          &quot;PEDA&quot;,;\n                          &quot;PEDO&quot;,;\n                          &quot;PENE&quot;,;\n                          &quot;PUTA&quot;,;\n                          &quot;PUTO&quot;,;\n                          &quot;QULO&quot;,;\n                          &quot;RATA&quot;,;\n                          &quot;ROBE&quot;,;\n                          &quot;RUIN&quot;,;\n                          &quot;VAGA&quot;,;\n                          &quot;VAGO&quot;&#125;\n\n  DEFAULT cCURP &#58;= SPACE&#40;18&#41;\n  DEFAULT lVerif&#58;= &#46;F&#46;\n\n  IF !EMPTY&#40;cPaterno&#41;\n     cPaterno &#58;= AnsiUpper&#40; ALLTRIM&#40;cPaterno&#41; &#41;\n     // 1&#46;- Inicial del primer apellido&#46;&#46;&#46;\n     cLetra&#58;= SinAcento&#40; SUBSTR&#40;cPaterno, 1, 1&#41; &#41;\n     cCURP &#58;= STUFF&#40;cCURP, 1, 1, IIF&#40;cLetra = &quot;Ñ&quot;, &quot;X&quot;, cLetra&#41;&#41; // Las &quot;Ñ&quot; no son permitidas, en lugar de ésta una &quot;X&quot;&#46;\n\n     // 2&#46;- Primera vocal interna del primer apellido&#46;&#46;&#46;\n     // ** Si el primer apellido NO tiene Vocal Interna&#58; Se deberá anotar una &quot;X&quot; **\n     cVocal &#58;= &quot;X&quot;\n     FOR nLetra &#58;= 2 TO LEN&#40;cPaterno&#41;\n         cLetra &#58;= SUBSTR&#40;cPaterno, nLetra, 1&#41;\n         IF EsVocal&#40;cLetra&#41;\n            cVocal &#58;= SinAcento&#40;cLetra&#41;\n            EXIT\n         ENDIF\n     NEXT\n     cCURP &#58;= STUFF&#40;cCURP, 2, 1, cVocal&#41;\n  ENDIF\n\n\n  IF cMaterno &lt;&gt; NIL\n     cMaterno &#58;= AnsiUpper&#40; ALLTRIM&#40;cMaterno&#41; &#41;\n     // 3&#46;- Inicial del segundo apellido&#46;&#46;&#46;\n     IF !EMPTY&#40;cMaterno&#41;\n        cLetra&#58;= SinAcento&#40; SUBSTR&#40;cMaterno, 1, 1&#41; &#41;\n     ELSE\n        cLetra &#58;= &quot;X&quot; // ** Si NO Existe segundo apellido&#58; Se deberá anotar una &quot;X&quot;&#46;\n     ENDIF\n     cCURP &#58;= STUFF&#40;cCURP, 3, 1, IIF&#40;cLetra = &quot;Ñ&quot;, &quot;X&quot;, cLetra&#41;&#41;\n  ENDIF\n\n\n  IF !EMPTY&#40;cNombre&#41;\n     cNombre &#58;= SinAcento&#40;AnsiUpper&#40; ALLTRIM&#40;cNombre&#41; &#41;&#41;\n     IF StrWord&#40;cNombre&#41; &gt; 1    // Se verifica si el nombre está formado por más de una palabra&#46;&#46;&#46;\n        DO CASE\n           CASE &quot;JOSE&quot; IN cNombre\n                cNombre &#58;= StrTran&#40;cNombre, &quot;JOSE&quot;&#41;\n           CASE &quot;MARIA&quot; IN cNombre\n                cNombre &#58;= StrTran&#40;cNombre, &quot;MARIA&quot;&#41;\n        ENDCASE\n     ENDIF\n     cNombre &#58;= ALLTRIM&#40;cNombre&#41;\n     // 4&#46;- Inicial del nombre de pila&#46;\n     cLetra&#58;= LEFT&#40;cNombre, 1&#41;\n     cCURP &#58;= STUFF&#40;cCURP, 4, 1, IIF&#40;cLetra = &quot;Ñ&quot;, &quot;X&quot;, cLetra&#41;&#41; // Las &quot;Ñ&quot; no son permitidas, en lugar de ésta una &quot;X&quot;&#46;\n  ENDIF\n\n\n  // Se verifica que no se haya formado una palabra Anti-sonante&#46;&#46;&#46;\n  cPalabra &#58;= SUBSTR&#40;cCURP, 1, 4&#41;\n  FOR EACH cElement IN aAntiSonantes\n      IF cPalabra == cElement\n         cCURP &#58;= STUFF&#40;cCURP, 2, 1, &quot;X&quot;&#41;   // Se pone una &quot;X&quot; en la posición 2 de la palabra Anti-sonante&#46;\n         EXIT\n      ENDIF\n  NEXT\n\n\n  IF !EMPTY&#40;fNacimiento&#41;\n     // 5&#46;- Fecha de nacimiento&#58; año, mes y día&#46;\n     cCURP &#58;= STUFF&#40;cCURP, 5, 6, FormFec&#40;&quot;&#91;A&#93;&#91;M&#93;&#91;DDD&#93;&quot;, fNacimiento&#41;&#41;\n  ENDIF\n\n\n  IF !EMPTY&#40;nSexo&#41;\n     // 6&#46;- Sexo&#58; &#40;H&#41; para hombre y &#40;M&#41; para mujer&#46;\n     cCURP &#58;= STUFF&#40;cCURP, 11, 1, IIF&#40;nSexo = 1, &quot;M&quot;, &quot;H&quot;&#41;&#41;\n  ENDIF\n\n\n  IF !EMPTY&#40;cLugarNacim&#41;\n     cLugarNacim &#58;= UPPER&#40;cLugarNacim&#41;\n     // 7&#46;- Entidad federativa de nacimiento&#46;\n     cCURP &#58;= STUFF&#40;cCURP, 12, 2, cLugarNacim&#41;\n  ENDIF\n\n\n  IF !EMPTY&#40;cPaterno&#41;\n     // 8&#46;- Primera consonante interna del primer apellido&#46;\n     // ** En caso de NO existir Consonantes Internas en el primer apellido&#58; Se colocará una &quot;X&quot; **\n     cConsonante &#58;= &quot;X&quot;\n     FOR nLetra &#58;= 2 TO LEN&#40;cPaterno&#41;\n         cLetra &#58;= SUBSTR&#40;cPaterno, nLetra, 1&#41;\n         IF EsConsonante&#40;cLetra&#41;\n            cConsonante &#58;= cLetra\n            EXIT\n         ENDIF\n     NEXT\n     cCURP &#58;= STUFF&#40;cCURP, 14, 1, IIF&#40;cConsonante = &quot;Ñ&quot;, &quot;X&quot;, cConsonante&#41;&#41;\n  ENDIF\n\n\n  IF cMaterno &lt;&gt; NIL\n     // 9&#46;- Primera consonante interna del segundo apellido&#46;\n     cConsonante &#58;= &quot;X&quot;\n     IF !EMPTY&#40;cMaterno&#41;\n        FOR nLetra &#58;= 2 TO LEN&#40;cMaterno&#41;\n            cLetra &#58;= SUBSTR&#40;cMaterno, nLetra, 1&#41;\n            IF EsConsonante&#40;cLetra&#41;\n               cConsonante &#58;= cLetra\n               EXIT\n            ENDIF\n        NEXT\n     ENDIF\n     cCURP &#58;= STUFF&#40;cCURP, 15, 1, IIF&#40;cConsonante = &quot;Ñ&quot;, &quot;X&quot;, cConsonante&#41;&#41;\n  ENDIF\n\n\n  IF !EMPTY&#40;cNombre&#41;\n     // 10&#46;- Primera consonante interna del nombre de pila&#46;\n     cConsonante &#58;= &quot;X&quot;\n     FOR nLetra &#58;= 2 TO LEN&#40;cNombre&#41;\n         cLetra &#58;= SUBSTR&#40;cNombre, nLetra, 1&#41;\n         IF EsConsonante&#40;cLetra&#41; &#46;AND&#46; cLetra &lt;&gt; &quot;Ñ&quot;\n            cConsonante &#58;= cLetra\n            EXIT\n         ENDIF\n     NEXT\n     cCURP &#58;= STUFF&#40;cCURP, 16, 1, cConsonante&#41;\n  ENDIF\n\n\n  IF lVerif // Cálculo de dígitos verificadores&#46;&#46;&#46;\n     cCURP &#58;= SUBSTR&#40;cCURP, 1, 16&#41;\n     cVerif&#58;= CURPVerif&#40;cCURP + &quot;0&quot;&#41;\n     cCURP &#58;= STUFF&#40;cCURP, 17, 2, cVerif&#41;\n  ENDIF\nRETURN &#40;cCURP&#41;\n*\n* FIN CURP&#40;&#41;\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n[/code:xcgpmtaj]','',0,'AIA=','xcgpmtaj',1,0,'',660,0,0),(35110,7654,6,73,0,'200.23.18.132',1185202909,1,0,1,1,1,0,'','','por aqui dejo un link que habia encontrado\n\n<!-- m --><a class=\"postlink\" href=\"http://mx.geocities.com/fjgm07/rfc.txt\">http://mx.geocities.com/fjgm07/rfc.txt</a><!-- m -->\n\nsalu2\npaco','',0,'AIA=','1mls4hta',1,0,'',73,0,0),(35111,7632,6,987,0,'189.133.10.96',1185204148,1,0,1,1,1,0,'','','Que tal Marcelo:\n\nCorrecto, probare a probar tus modificaciones en la clase TReport de la version que tengo trabajando pa hecharla a volar bien <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , y si, seria bueno que retomaras estas fabulosas modificaciones ya que no solo lucen bien los reportes sino que podrías darle más potencia y robustes a esta clase que buena falta le hace.  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nAbrazos y gracias de nuevo..\n\n I.S.C. Víctor Daniel Cuatécatl León','',0,'AIA=','oilzg1ta',1,0,'',987,0,0),(35112,7656,3,2,0,'87.218.146.27',1185204249,1,0,1,1,1,1,'','','Stefan,\n\nPlease search for REPrintBox at FWH\\whatsnew.txt','',0,'AIA=','2bpwf3d3',1,0,'',2,0,0),(35113,7600,6,110,0,'148.168.40.4',1185204276,1,0,1,1,1,1,'','','Estimados, he logrado obtener el borland 5.8.xx desde el turbo borland c++ he eliminado lo innecesario, y finalmente tengo un archivo de aprox 10 mb. comprimido con 7zip.\n\nya he construido xharbour desde el cvs, recompilado fwh y las librerias de terceros sin problemas.\n \nestoy buscando donde subirlo. o si alguien tiene un ftp mejor aun.\n\n\nsalu2\ncarlos vargas','',0,'AIA=','2zwk8e0a',1,0,'',110,0,0),(35114,7655,6,987,0,'189.133.10.96',1185205227,1,0,1,1,1,0,'','','La mejor y más facil forma de eliminarlo es poniendo esto al inicio de su aplicacion: \n\nFERASE(\".\\TRACE.LOG\") \n\nEsto no evita que lo genere, sino que una vez generado el archivo, el mismo programa se encarga de eliminarlo para no verlo, digo no sirve para gran cosa, pero evita dolores de cabeza..   \n\nSi gustas más información revisa este enlace:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7123\">http://fivetechsoft.com/forums/viewtopic.php?t=7123</a><!-- m -->\n\nEspero te ayude en algo..\n\nSaludos desde Chiapas México','',0,'AIA=','1b49s0mk',1,0,'',987,0,0),(35115,7657,6,431,0,'190.76.17.102',1185208858,1,0,1,1,1,1,'','Problema con 7.07','Estoy recompilando una aplicacion existente que en la version 7.05 no generaba ningun problema al compilar la clase TSysInfo me genera los siguientes errores :\nHarbour devel build 1.1-1 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'c:\\VENDELOT\\tsysinfo.prg\'...\nc:\\VENDELOT\\tsysinfo.prg(721) Error E0020  Incomplete statement or unbalanced delimiters\nc:\\VENDELOT\\tsysinfo.prg(726) Error E0030  Syntax error: \"syntax error at \'MST\'\"\nc:\\VENDELOT\\tsysinfo.prg(727) Error E0020  Incomplete statement or unbalanced delimiters\nc:\\VENDELOT\\tsysinfo.prg(735) Error E0046  CASE or OTHERWISE does not match DO CASE\nc:\\VENDELOT\\tsysinfo.prg(736) Error E0030  Syntax error: \"syntax error at \'}\'\"\n5 errors\n\n\nen el siguiente metodo\nMETHOD Memory( nMem ) Class TSystemInfo\nLocal nRetu\n\n#ifdef __HARBOUR__\n   #pragma BEGINDUMP\n      #include \"windows.h\"\n   #pragma ENDDUMP\n\n   nRetu := HB_INLINE( nMem )\n   {\n      MEMORYSTATUS mst;\n      long nMem = hb_parnl(1);\n      mst.dwLength = sizeof( MEMORYSTATUS );\n      GlobalMemoryStatus( &amp;mst );\n      switch( nMem )\n      {\n         case 1:  hb_retnl( mst.dwTotalPhys     / (1024*1024) ) ; break;\n         case 2:  hb_retnl( mst.dwAvailPhys     / (1024*1024) ) ; break;\n         case 3:  hb_retnl( mst.dwTotalPageFile / (1024*1024) ) ; break;\n         case 4:  hb_retnl( mst.dwAvailPageFile / (1024*1024) ) ; break;\n         case 5:  hb_retnl( mst.dwTotalVirtual  / (1024*1024) ) ; break;\n         case 6:  hb_retnl( mst.dwAvailVirtual  / (1024*1024) ) ; break;\n         default: hb_retnl( 0 ) ;\n      }\n   }\n\n#else\n\n   Local oMemory\n\n   Struct oMemory\n      Member m1 As LONG                          // nSize\n      Member m2 As LONG                          // Memory Load\n      Member m3 As LONG                          // Total Physical\n      Member m4 As LONG                          // Available Physical\n      Member m5 As LONG                          // Total Page File\n      Member m6 As LONG                          // Available Page File\n      Member m7 As LONG                          // Total Virtual\n      Member m8 As LONG                          // Available Virtual\n   EndStruct\n\n   oMemory:m1 := oMemory:sizeOf()\n   MemStat( oMemory:cBuffer )\n\n   Do Case\n      Case nMem == 1 ; nRetu := Round( oMemory:m3 / ( 1024 * 1024 ), 0 )\n      Case nMem == 2 ; nRetu := Round( oMemory:m4 / ( 1024 * 1024 ), 0 )\n      Case nMem == 3 ; nRetu := Round( oMemory:m5 / ( 1024 * 1024 ), 0 )\n      Case nMem == 4 ; nRetu := Round( oMemory:m6 / ( 1024 * 1024 ), 0 )\n      Case nMem == 5 ; nRetu := Round( oMemory:m7 / ( 1024 * 1024 ), 0 )\n      Case nMem == 6 ; nRetu := Round( oMemory:m8 / ( 1024 * 1024 ), 0 )\n      Otherwise      ; nRetu := 0\n   EndCase\n\n   If nRetu # 0 .and. ::nPlatform == 1           // added by lkm\n      nRetu += 1                                 // calc error under Win95/98/ME\n   Endif\n\n#endif\n\nReturn nRetu\n\nAgradezco cualquier Informacion al respecto para solucionar el problema.\n\nMuchas Gracias.','',0,'AIA=','3h4xr8ry',1,0,'',431,0,0),(35116,7658,2,1107,0,'200.77.36.146',1185209080,1,0,1,1,1,0,'','Listbox con fields referidos a variables','Para Antonio Linares\n\nEstoy solicitando tu ayuda ya que el valor de FIELDS del LISTBOX es en variables y no logro que considere el valor adecuado, dichas variables son: l_cCamp[1] y l_cCamp[2]\n\nGracias\n\nDesarrollo con Clipper 5.20, FiveWin 2.3b y Blinker 3.30\n\nEl código es el siguiente:\n\nlocal l_cNomb[2]\nlocal l_cCamp[2]\nlocal l_oDlg\nlocal l_oBrw\nlocal l_oCurs\nl_cNomb[1]  :=O2A(\'Descripci¢n art¡culo\')\nl_cNomb[2]  :=O2A(\'Precio venta\')\nl_cCamp[1]  :=articulo-&gt;descrip\ndo case\ncase l_nNumP==1\n    l_cCamp[2] :=transform(pcio_vta *(1+(iva/100)),\"9999999.99\")\ncase l_nNumP==2\n    l_cCamp[2] :=transform(pcio_vta2*(1+(iva/100)),\"9999999.99\")\ncase l_nNumP==3\n    l_cCamp[2] :=transform(pcio_vta3*(1+(iva/100)),\"9999999.99\")\ncase l_nNumP==4\n    l_cCamp[2] :=transform(pcio_vta4*(1+(iva/100)),\"9999999.99\")\nendcase\nDEFINE DIALOG l_oDlg RESOURCE \'DCON_BAR\' FONT g_oFont\n    DEFINE CURSOR l_oCurs RESOURCE \'CUR_DEDO\'\n    REDEFINE LISTBOX l_oBrw;\n        FIELDS  l_cCamp[1],;\n                l_cCamp[2],;\n        HEADERS l_cNomb[1],;\n                l_cNomb[2],;\n    ALIAS \'articulo\';\n    CURSOR l_oCurs;\n    FONT g_oFont;\n    ID 102;\n    OF l_oDlg;\n    ON CLICK .t.\n    l_oBrw:bLogicLen :={||cmKeyCount()}\n    l_oBrw:NCLRPANE  :={||IF(IsPar(cmKeyNo()),RGB(255,255,255),RGB(190,215,190))}\nACTIVATE DIALOG l_oDlg CENTER','',0,'','kzplrdq6',1,0,'',1107,0,0),(35117,7542,6,492,0,'189.147.62.100',1185209768,1,0,1,1,1,1,'','','Hola Eduardo\n\nHe estado usando unas llaves usb de la compania Aladdin y sin ningun problema.\n\nSaludos','',0,'','2o6h0drp',1,0,'',492,0,0),(35118,7659,6,665,0,'201.237.35.102',1185211340,1,0,1,1,1,0,'','Windows 2003 server enterprice RS  SP 1 cuelga una aplicacio','Esimados Amigos.\n\nRengo una prgunta del millon, Tengo una aplicaoin desarrolada en Xharbour esta corre de mil maravillas pues accesa  aun server  sql via internet  y lo ke hace es monitorear unas tablas y  mostrarlas en un listbox y unas  cuantro sumas por ahi  esta se cuelga.\n\n ES DECIR CUANDO ejecuto la aplicacion  esta muestra   los acceso de coneccion  y todo listo , cuando debe de mostra el dialogo ahi muere,   viendo el visor de sucesos  dice que hay un error de aplicacion  ID 1000,.\n\nSi alguno le ha pasao esto  pues dejen saber como reolvieron el problema.\n\nUso clave de  Administrador esto sucede solo con aplicaciones  que accesa  un servirdor via internet\nCon cuakier aplicacion   sin coneccion  a internet trabaja al 100%\n\nSera probelmas de Acceso, com podria resolver el problema,,  \n\nGracias \nBusmtic de Costa Rica-','',0,'','9w32s8gf',1,0,'',665,0,0),(35119,7660,6,743,0,'201.116.76.180',1185212129,1,0,1,1,1,0,'','duda !!!  activex','saludos si alguien me pudiera apoyar\n   \n\n   tengo fw 27, lo curiosa es que cuenta con activex pero no he podido compilar ningun ejemplos de samples me manda este error\n\n\n   ACTIVEX.OBJ(ACTIVEX) : \'ACTXGETPRO\' : unresolved external\n\n  y otras que me hace falta o no la soporta.','',0,'','1kc2hjys',1,0,'',743,0,0),(35120,7661,3,27,0,'62.174.195.220',1185212616,1,0,1,1,1,1,'','FORGROUND BACK GROUND COLORS GETS','In the old TGET.PRG we allowed the cliente to choose general foreground and background colors and applied the choice with these two lines.\nCOLOR_S is a public containing the clientes choice DEFAULT value \nCOLOR_S:= 16777215\n\n::bGotFocus := {|| ::SetColor(nClrFore,COLOR_S)}\n ::bLostFocus := {|| ::SetColor(nClrFore, RGB(255,255,255))}\n\nHow can  I apply the same system in the new TGET.PRG for FWH','',0,'','2iozev93',1,0,'',27,0,0),(35122,7600,6,2,0,'87.218.146.27',1185216600,1,0,1,1,1,1,'','','Carlos,\n\nDeberías comprobar si la licencia de Borland permite hacer eso.','',0,'','3odquaev',1,0,'',2,0,0),(35123,7655,6,2,0,'87.218.146.27',1185216936,1,0,1,1,1,1,'','','&gt;\n\"*** WARNING! Function: GETNEW in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG\" \n\nRefleja algun problema en particular o puede ignorarse?\n&gt;\n\nEn este caso puede ignorarse ya que indica qye la función GetNew() que se esta enlazando es la que esta en TClipGet.prg de FWH, y es lo correcto','',0,'','3nahirw1',1,0,'',2,0,0),(35124,7658,2,78,0,'190.40.250.56',1185218070,1,0,1,1,1,0,'','','Creo que te falta:\n\n l_oBrw:SetArray( l_cCamp )\n\nSalu2','',0,'','23kg88yy',1,0,'',78,0,0),(35125,7654,6,98,0,'70.71.111.92',1185218406,1,0,1,1,1,1,'','Re: Cálculo CURP México','Israel,\n\nMil gracias, ya lo pruebo.\n\nAunque las tres primeras son fáciles de inferir... ¿podrás compartir?\n\nEsVocal(), EsConsonante(), SinAcento(), FormFec() y CURPVerif()\n\nGracias.\n\n[quote=&quot;isolis&quot;:2gty2dpd]Espero te sirva...\n\nSaludos!!\n\n[/quote:2gty2dpd]','',0,'gA==','2gty2dpd',1,1185219148,'',98,2,0),(35126,7654,6,98,0,'70.71.111.92',1185218452,1,0,1,1,1,1,'','','Paco:\n\nGracias por la liga.\n\n[quote=&quot;Francisco Horta&quot;:1jrjpfa9]por aqui dejo un link que habia encontrado\n\n<!-- m --><a class=\"postlink\" href=\"http://mx.geocities.com/fjgm07/rfc.txt\">http://mx.geocities.com/fjgm07/rfc.txt</a><!-- m -->\n\nsalu2\npaco[/quote:1jrjpfa9]','',0,'gA==','1jrjpfa9',1,0,'',98,0,0),(35127,7611,2,2,0,'87.218.146.27',1185219794,1,0,1,1,1,1,'','','Ricardo,\n\nLa commctrl.dll es una DLL para el uso de los \"common controls\" y no está relacionada con las comunicaciones\n\nHabeis revisado el código de los ejemplos que os hemos comentado ?','',0,'gA==','1pfvdwr3',1,0,'',2,0,0),(35128,7662,6,1030,0,'200.115.229.29',1185221822,1,0,1,1,1,0,'','Desactivar teclado','Hola a todos!!\nSe que es una pregunta que debe contener una respuesta muy simple, pero la verdad no logro descubrirla.\nAlguien sabe como desactivar el teclado? Necesito hacerlo mientras estoy ejecutando un proceso.\n\nGracias a todos!!\nSaludos, Natalia.','',0,'gA==','3ncrv24h',1,0,'',1030,0,0),(35129,7656,3,130,0,'84.138.43.205',1185222456,1,0,1,1,1,1,'','','Antonio,\n\nthanks, I found it, but i have still some questions.\n\nHow can i control, if the rtf-text fits in the defined box ?\n\nWhat happens, if there is pagebreak in the printbox ? Is the printbox automatically continued on the next page ?','',0,'gA==','24f8krjt',1,0,'',130,0,0),(35130,7662,6,362,0,'200.158.19.112',1185222864,1,0,1,1,1,1,'','Re: Desactivar teclado','[quote=&quot;nolgiati&quot;:2uj1pasn]Hola a todos!!\nSe que es una pregunta que debe contener una respuesta muy simple, pero la verdad no logro descubrirla.\nAlguien sabe como desactivar el teclado? Necesito hacerlo mientras estoy ejecutando un proceso.\n\nGracias a todos!!\nSaludos, Natalia.[/quote:2uj1pasn]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=540\">http://www.fivewin.com.br/exibedicas.asp?id=540</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=477\">http://www.fivewin.com.br/exibedicas.asp?id=477</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=461\">http://www.fivewin.com.br/exibedicas.asp?id=461</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=369\">http://www.fivewin.com.br/exibedicas.asp?id=369</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=367\">http://www.fivewin.com.br/exibedicas.asp?id=367</a><!-- m -->\n\nRegards, saludos.','',0,'gA==','2uj1pasn',1,0,'',362,0,0),(35131,7662,6,1030,0,'200.115.229.29',1185223472,1,0,1,1,1,0,'','','Muchisimas Gracias Karinha!!','',0,'gA==','1layiv9c',1,0,'',1030,0,0),(35132,7656,3,2,0,'87.218.146.27',1185230525,1,0,1,1,1,1,'','','Stefan,\n\nWe can\'t tell you for sure, we need to do some tests. We appreciate if you also test it there, thanks','',0,'gA==','sfqaufi8',1,0,'',2,0,0),(35133,7657,6,2,0,'87.218.146.27',1185230681,1,0,1,1,1,1,'','','Mario Antonio,\n\nMezclar PRG y C de esa manera no es muy aconsejable. Ya ves lo que ha pasado, algo ha debido de cambiar en el compilador y ya no funciona como antes. \n\nPasa el código en C a una función en C usando #pragma BEGINDUMP ENDDUMP y llama a esa función desde tu método\n\nSería aconsejable que reportes el error en la lista de correo de Harbour para que revisen lo que ha cambiado y lo puedan arreglar','',0,'gA==','2d40844i',1,0,'',2,0,0),(35134,7600,6,110,0,'165.98.223.31',1185231155,1,0,1,1,1,1,'','','leere la licencia....\n\nsalu2\ncarlos vargas','',0,'gA==','31qwkas4',1,0,'',110,0,0),(35135,7445,6,987,0,'189.132.31.209',1185232540,1,0,1,1,1,0,'','','Saludos RF:\n\nGracias por aportar ideas a la causa, pero tengo dudas sobre la libreria funcky..\n\n 1.- Es una libreria de terceros pagada..?\n\n 2.- En donde puedo adquirirla..?\n\nHe buscao en la red pero no la encuentro..\n\nAbrazos..','',0,'gA==','3f2ad3f2',1,0,'',987,0,0),(35136,7445,6,940,0,'189.157.70.111',1185238676,1,0,1,1,1,1,'','','es de pago,\n\naqui hay informacion, \n\n<!-- m --><a class=\"postlink\" href=\"http://www.abox.com/productos.asp?pid=295\">http://www.abox.com/productos.asp?pid=295</a><!-- m -->\n\n\nsaludos.','',0,'gA==','1ng5by7e',1,0,'',940,0,0),(35137,7661,3,303,0,'72.199.41.171',1185246879,1,0,1,1,1,0,'','','Paul,\n\nWhat do you mean by the \"old\" and the \"new\" -- can you provide us with versions?\n\nI assume it isn\'t working in the \"new\" FWH? What exactly is happening? What happens if you replace the codeblocks with msgBeep(); do you hear the beep?\n\nCan you provide us with a small example that shows the problem?\n\nJames','',0,'gA==','x00iocph',1,0,'',303,0,0),(35138,7600,6,37,0,'201.230.208.207',1185247972,1,0,1,1,1,1,'','','Colegas, lo baje e instale, pero salvo que esta haciendo algo mal, el editor de recursos ResEdit.exe no me permite abrir un .RC creado con el Resource Workshop, alguien sabe porque ??\nSaludos','',0,'gA==','33d5ee3v',1,0,'',37,0,0),(35139,7661,3,154,0,'151.21.77.10',1185261478,1,0,1,1,1,1,'','Re: FORGROUND BACK GROUND COLORS GETS','[quote=&quot;PAUL SIMM&quot;:bo27yo32]In the old TGET.PRG we allowed the cliente to choose general foreground and background colors and applied the choice with these two lines.\nCOLOR_S is a public containing the clientes choice DEFAULT value \nCOLOR_S:= 16777215\n\n::bGotFocus := {|| ::SetColor(nClrFore,COLOR_S)}\n ::bLostFocus := {|| ::SetColor(nClrFore, RGB(255,255,255))}\n\nHow can  I apply the same system in the new TGET.PRG for FWH[/quote:bo27yo32]\nPaul,\n\nin tget.prg add this method:[code:bo27yo32] \n   METHOD SetIniClr&#40;&#41; [/code:bo27yo32] \n\nadd at the end of define:\n[code:bo27yo32]   &#46;&#46;&#46;\n   endif\n   &#58;&#58;SetIniClr&#40;&#41;\nreturn Self[/code:bo27yo32]\n\nadd at the end of redefine:\n[code:bo27yo32]   &#46;&#46;&#46;\n   endif\n   &#58;&#58;SetIniClr&#40;&#41;\n   oWnd&#58;DefControl&#40; Self &#41;\nreturn Self[/code:bo27yo32]\n\nadd the method:\n[code:bo27yo32]METHOD SetIniClr&#40;&#41; CLASS TGet\n\n   // This is my standard set&#58;\n   &#58;&#58;nClrFocusText &#58;= nRGB&#40;0,0,0&#41;           // CLR_BLACK  //\n   &#58;&#58;nClrFocusPane &#58;= nRGB&#40; 213, 230, 255 &#41; // nRGB&#40;243,250,200&#41;     // CLR_HBLUE  //\n   &#58;&#58;nClrPFoText   &#58;= &#58;&#58;nClrText\n   &#58;&#58;nClrPFoPane   &#58;= &#58;&#58;nClrPane\n   //\n   &#58;&#58;bGotFocus  &#58;= &#123;|| &#58;&#58;SetColor&#40; &#58;&#58;nClrFocusText, &#58;&#58;nClrFocusPane&#41; &#125;\n   &#58;&#58;bLostFocus &#58;= &#123;|| &#58;&#58;SetColor&#40; &#58;&#58;nClrPFoText  , &#58;&#58;nClrPFoPane  &#41; &#125;\n\nReturn Self[/code:bo27yo32]\nRecompile the fwhx.lib.','',0,'gIA=','bo27yo32',1,0,'',154,0,0),(35140,7656,3,130,0,'141.51.32.24',1185261613,1,0,1,1,1,1,'','','Antonio,\n\nok, i will try to build a small sample next days.','',0,'gIA=','37eqvc0w',1,0,'',130,0,0),(35141,7663,4,106,0,'85.34.123.173',1185263729,1,0,1,1,1,1,'','Standby','Somebody knows like making not to leave the terminal goes in standby? From program (since TomTom does for example)\n\nRegards','',0,'gIA=','3snsfgi0',1,0,'',106,0,0),(35142,7655,6,316,0,'213.97.245.163',1185275920,1,0,1,1,1,0,'','','[quote=&quot;cuatecatl82&quot;:33o2gqiu]La mejor y más facil forma de eliminarlo es poniendo esto al inicio de su aplicacion: \n\nFERASE(\".\\TRACE.LOG\") \n\nEsto no evita que lo genere, sino que una vez generado el archivo, el mismo programa se encarga de eliminarlo para no verlo, digo no sirve para gran cosa, pero evita dolores de cabeza..   \n\nSi gustas más información revisa este enlace:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7123\">http://fivetechsoft.com/forums/viewtopic.php?t=7123</a><!-- m -->\n\nEspero te ayude en algo..\n\nSaludos desde Chiapas México[/quote:33o2gqiu]\n\nLo soluciona... vamos, lo oculta que no es lo mismo. Creo que seguiré esperando una solución. \n\nGracias por responder. Un saludo,\n\nCarlos','',0,'gA==','33o2gqiu',1,0,'',316,0,0),(35143,7655,6,316,0,'213.97.245.163',1185276193,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3kgguf4p]&gt;\n\"*** WARNING! Function: GETNEW in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG\" \n\nRefleja algun problema en particular o puede ignorarse?\n&gt;\n\nEn este caso puede ignorarse ya que indica qye la función GetNew() que se esta enlazando es la que esta en TClipGet.prg de FWH, y es lo correcto[/quote:3kgguf4p]\n\nEse warning no debería aparecer en tiempo de enlazado? Creo que es lo que corresponde, para mí esta mal. El traceLog debería ser opcional.  Porque antes no aparecía?\n\nPor otro lado, es dificil pedir soporte en las listas de xHarbour porque lo que pregunten respecto de como está compilado el xHarbour no lo sé, es por eso que te hago la consulta. Los usuarios de FW no nos podemos mover libremente con las versiones del compilador porque dependemos de la versión para la que fue construida la librería.\n\nSaludos,\n\nCarlos.','',0,'gA==','3kgguf4p',1,0,'',316,0,0),(35144,7656,3,130,0,'141.51.32.24',1185276614,1,0,1,1,1,1,'','','First tests show, that REPrintBox() does nor continue the print on the next page neither respects the margin on the bottom of the page.\n\nI also did not find a way, to adjust the printbox to the selected text, so the text is always clipped, if the box is to small.','',0,'gA==','pz1x05k9',1,0,'',130,0,0),(35145,7655,6,2,0,'87.218.146.158',1185281836,1,0,1,1,1,1,'','','Carlos,\n\n&gt;\nEse warning no debería aparecer en tiempo de enlazado? Creo que es lo que corresponde, para mí esta mal. El traceLog debería ser opcional. Porque antes no aparecía? \n&gt;\n\nEse warning se detecta al construir la tabla dinámica de símbolos que usa la máquina virtual de xHarbour, es decir, en tiempo de ejecución. Concretamente en la inicialización. \n\nEl hecho de que se genere ha sido una decisión del equipo de desarrollo de xHarbour.\n\n&gt;\nPor otro lado, es dificil pedir soporte en las listas de xHarbour porque lo que pregunten respecto de como está compilado el xHarbour no lo sé, es por eso que te hago la consulta. Los usuarios de FW no nos podemos mover libremente con las versiones del compilador porque dependemos de la versión para la que fue construida la librería.\n&gt;\n\nLos usuarios de FWH pueden perfectamente usar versiones más recientes de xHarbour, siempre y cuando no haya cambios de \"pcode\", y aún en ese caso, se puede recompilar FiveHX.lib. Nosotros proporcionamos los builds de Harbour y xHarbour para comodidad y seguridad de nuestros usuarios, pero cualquiera es libre de descargar xHarbour y construirlo por si mismo','',0,'gA==','2a5nb8y4',1,0,'',2,0,0),(35146,7652,3,2,0,'87.218.146.158',1185281983,1,0,1,1,1,1,'','','Dave,\n\nWhat you describe seems possible to be implemented. \n\nIf you provide us some more exact details then we may be able to provide you more help','',0,'gA==','259d9zaj',1,0,'',2,0,0),(35147,7664,3,267,0,'200.208.238.2',1185283051,1,0,1,1,1,1,'','As I can define this function to use in the FWH/xHarbour ?','Antonio,\n\nAs I can define this function to use in the FWH/xHarbour ?\n\n[code:2hp6kag5]CreateTerWindow\n \n Open a TER Window&#58;\n\nHWND CreateTerWindow&#40;ptr&#41;\n \n \n struct arg_list far *ptr;\n The ptr argument points to a structure that provides the initial parameters to open a window&#46; This structure includes the following parameters&#58;\n \n\n\n    \nstruct arg_list &#123;\n \n \n int x\n Initial X position of the editing window&#46; You may specify CW_USEDEFAULT here to use the default value&#46; The CW_USEDEFAULT constant is defined by Windows as hex 8000 for 16 bit and hex 80000000 for 32 bit&#46;\n \n \n int y\n Initial Y position of the editing window&#46; You may specify CW_USEDEFAULT here to use the default value&#46;\n \n \n int width\n Window width&#46; You may specify CW_USEDEFAULT here to use the default value\n \n \n int height\n Window Height&#46; You may specify CW_USEDEFAULT here to use the default value&#46;\n \n \n int LineLimit\n Maximum number of lines allowed for text editing&#46; Set this field to 0 to allow unlimited number of lines&#46;\n \n \n BOOL WordWrap\n If set to TRUE, this flag enables the word wrapping feature&#46;\n \n \n BOOL PrintView\n Normally &#40;PrintView = FALSE&#41; the text lines are wrapped at the right edge of the window&#46; This is a convenient editing mode with better performance&#46; In the print view edit mode, however, the text lines are wrapped as they would be wrapped when printed at the current printer&#46;\n \n \n BOOL PageMode\n Set to TRUE to facilitate editing of documents one page at a time&#46; This feature is useful when editing multiple column documents&#46; The text is displayed in side-by-side columns&#46; This mode also implies the PrintView mode&#46;\n \n \n BOOL FittedView\n Special case of the page mode in which the text wraps to the window width and the soft page breaks are not displayed\n \n \n BOOL ShowStatus\n If set to TRUE, the editor will display a status line describing the current cursor location, and the insert/overtype indicator&#46;\n \n \n BOOL ShowMenu\n If set to TRUE, the editor displays the editor menu under the caption bar&#46; When set to FALSE, the editor commands must be selected using only the accelerator keys&#46;\n \n \n BOOL ShowHorBar\n If set to TRUE, the editor displays the horizontal scroll bar&#46;\n \n \n BOOL ShowVerBar\n If set to TRUE, the editor displays the vertical scroll bar&#46;\n \n \n BOOL ruler\n Set this variable to TRUE to show a ruler with tab stops&#46;\n \n \n BOOL ToolBar\n Set this variable to TRUE to show the tool bar&#46;\n \n \n BOOL UserCanClose\n Set this variable to TRUE if you want your user to be able to close the TER window by selecting the exit option from the TER menu&#46; Otherwise, your application will need to close the window by using the CloseTer function&#46;\n \n \n BOOL BorderMargins\n Set this field to TRUE to create a thin margin around the text area within the TER window&#46; This margin area is for cosmetic purpose only&#46;\n \n \n BOOL ReadOnly\n This is a browser mode which does not allow text modifications&#46;\n \n \n int InitLine\n The first line number to position on when the TER routine is called&#46;\n \n \n char InputType\n This field specifies the input type to the editor&#46; If you wish to pass a text file name to the editor, set this flag to \'F\'&#46; However, if the text input will be passed in a global memory buffer, set this flag to \'B\'&#46;\n \n \n char file&#91;129&#93;\n If the InputType field is set to \'F\', this field specifies the full path of the input file&#46;\n \n \n HANDLE hBuffer\n If the InputType field is set to \'B\', this field specifies the handle to the global memory containing the input text data&#46; To specify an empty buffer, allocate a buffer for 1 byte, place the \'delim\' character in the first byte and set the \'BufferLen\' field to 1&#46; The input memory handle must be unlocked before calling the editor routine&#46; You can get the updated text by using the GetTerBuffer prior to closing the TER window&#46;\n \n \n long BufferLen\n When the InputType field is set to \'B\', the BufferLen field specifies the length of the input buffer&#46;\n \n \n char delim\n This character should be be set to 13 &#40;carriage return character&#41;&#46;\n \n \n int SaveFormat\n This field determines the format of the output file or buffer&#58;\n \n \n  \n SAVE_DEFAULT&#58;\n Save in the format of the input file&#46;\n \n \n  \n SAVE_TER&#58;\n Save in the native TER format&#46;\n \n \n  \n SAVE_RTF&#58;\n Save in the Rich Text Format&#46;\n \n \n  \n SAVE_TEXT&#58;\n Save in ASCII format&#46;\n \n \n  \n SAVE_TEXT_LINES&#58;\n Save in ASCII format with line breaks&#46;\n \n \n  \n SAVE_UTEXT\n Save in the Unicode text format &#40;not available in 16 bit&#41;\n \n \n HANDLE hInst\n Handle for the current instance of the application&#46;\n \n \n HWND hParentWnd\n Handle of the parent window&#46; The DLL sends the TER_CLOSE message to this function before closing a TER window &#40;see the CloseTer API function&#41;&#46;\n \n \n HWND hTextWnd\n The editor fills in this field with the window handle of the editor window&#46; The editor does this as soon as the window is created&#46; You will need this handle to use other TER API functions&#46;\n \n \n DWORD style\n The window style that you provide here is simply passed to the CreateWindow function&#46;\n \n \n char FontTypeFace&#91;30&#93;\n Default font typeface for the document&#46; Example&#58; &quot;Helv&quot;, &quot;Courier&quot;, &quot;System&quot; etc&#46; A menu option in the TER window provides multiple selections of typeface and point sizes to choose from&#46;\n \n \n int PointSize\n Point size of the default font&#46; Please remember that 72 points are equal to one inch&#46; Most written correspondences use a letter size of 10 or 12 points&#46;\n \n \n BOOL open\n The editor set this variable to a TRUE value after initializing a TER window&#46;\n \n \n BOOL modified\n This variable is reserved for internal use&#46;\n \n&#125;\n  \n \n \n Description&#58; This function opens a TER window&#46;\n\nReturn Value&#58; If successful, the function returns the window handle of the new window&#46; Otherwise it returns a NULL value&#46; The handle to the newly opened window is also returned to you using the hTextWnd variable within the arg_list structure&#46; If your application provides the data using a global buffer, the handle to the specified global buffer becomes the property of the DLL&#46; Your application MUST not try to lock or free this handle&#46; To get the updated text data, you should use the GetTerBuffer function&#46;\n\nComments&#58; This function is not available as an ActiveX control method&#46; It must be used as a DLL function&#46;\n\n [/code:2hp6kag5]','',0,'AIA=','2hp6kag5',1,0,'',267,0,0),(35148,7665,3,689,0,'200.146.36.21',1185283303,1,0,1,1,1,0,'','Scroll Window Problem','Dears\n\nI thinked that this problem was fixed in fwh 7.5, but no, any suggestions?\n\nEroni\n\nCode:\n#include \"FiveWin.ch\"\n\n#define D_WIDTH           4\n#define D_HEIGHT          13\n\nFUNCTION Main()\n\nLOCAL oWnd,oScrWnd, oBar\n   define window oWnd from 0, 0 TO 25, 70 ;\n         title \"Scroll Window\"            ;\n         vscroll hscroll ;\n         MENU BuildMenu()\n\n   @ 001,001 BUTTONBAR oBar 3D SIZE oWnd:nRight-oWnd:nLeft,50 BUTTONSIZE 48 ,48 OF oWnd   // here button bar\n\n   ACTIVATE WINDOW oWnd  ;\n      ON INIT ( TScrWnd():New(oWnd,1,40,1,70) ) ;\n   \nRETURN( NIL )\n\nfunction BuildMenu()\nLOCAL oMenu\n\nMENU oMenu\n  MENUITEM \"&amp;File\"\n    MENU\n      MENUITEM \"&amp;Open\" \n      MENUITEM \"&amp;Close\" \n      MENUITEM \"&amp;Save\" \n      MENUITEM \"&amp;End\" \n   ENDMENU\nENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\n	 \n//============================================================================\n// FileName : SCROLL.PRG\n// Purpose  :  Windows Scroll Class\n// Author   : Eric Yang\n// Update History :\n//      Date     Contents\n//    ---------- ---------------------------------------------------------------\n//    1997.02.01\n//\n//============================================================================\n#include \"FiveWin.ch\"\n\n#ifndef TRUE\n   #define TRUE              .T.\n   #define FALSE             .F.\n#endif\n\nCLASS TScrWnd\n\n   DATA oWnd\n   DATA nVPos,nHPos\n\n   METHOD New( oWnd,nV1,nV2,nH1,nH2 ) CONSTRUCTOR\n   METHOD SetScroll( nV1,nV2,nH1,nH2 )\n   //-*------------------------------------------------------------\n   METHOD VScroll()\n   METHOD VScrollThumb()\n   METHOD VScrollTrack()\n   METHOD VScrollPgDown()\n   METHOD VScrollPgUp()\n   //-*-----------------------------\n   METHOD HScroll()\n   METHOD HScrollThumb()\n   METHOD HScrollTrack()\n   METHOD HScrollPgDown()\n   METHOD HScrollPgUp()\n\nENDCLASS\n\nMETHOD New( oWnd,nV1,nV2,nH1,nH2 ) CLASS TScrWnd\n   ::nVPos := 0\n   ::nHPos := 0\n   ::oWnd := oWnd\n   ::SetScroll( nV1,nV2,nH1,nH2 )\nRETURN Self\n\n\nMETHOD SetScroll( nV1,nV2,nH1,nH2 ) CLASS TScrWnd\nLOCAL aCoors1:={},aCoors2:={}\n   //--------------------------------------------------\n   //-* Vertical Scroll Bar\n//   ? ::oWnd:oVSCroll=NIL\n   if ::oWnd:oVScroll != NIL\n//    ? nV1,nV2\n      ::oWnd:oVScroll:SetRange( nV1,nV2 )\n      ::nVPos := ::oWnd:oVScroll:GetPos()\n      ::oWnd:oVScroll:bGoDown   := {|| ::VScroll() }\n      ::oWnd:oVScroll:bGoUp     := {|| ::VScroll() }\n      ::oWnd:oVScroll:bPageUp   := {|| ::VScrollPgUp() }\n      ::oWnd:oVScroll:bPageDown := {|| ::VScrollPgDown() }\n      ::oWnd:oVScroll:bGoTop    := {|| ::VScroll() }\n      ::oWnd:oVScroll:bGoBottom := {|| ::VScroll() }\n      ::oWnd:oVScroll:nPgStep   := 10\n      //::oWnd:oVScroll:lReDraw := TRUE\n      ::oWnd:oVScroll:bPos      := {|nPos| ::VScrollThumb(nPos) }\n      ::oWnd:oVScroll:bTrack    := {|nPos| ::VScrollTrack(nPos) }\n   endif\n   //--------------------------------------------------\n   //-* Horizontal Scroll Bar\n   if ::oWnd:oHScroll != NIL\n      ::oWnd:oHScroll:SetRange( nH1,nH2 )\n      ::nHPos := ::oWnd:oHScroll:GetPos()\n      ::oWnd:oHScroll:bGoDown   := {|| ::HScroll() }\n      ::oWnd:oHScroll:bGoUp     := {|| ::HScroll() }\n      ::oWnd:oHScroll:bPageUp   := {|| ::HScrollPgUp() }\n      ::oWnd:oHScroll:bPageDown := {|| ::HScrollPgDown() }\n      ::oWnd:oHScroll:bGoTop    := {|| ::HScroll() }\n      ::oWnd:oHScroll:bGoBottom := {|| ::HScroll() }\n      ::oWnd:oHScroll:nPgStep   := 10\n      //::oWnd:oHScroll:lReDraw := TRUE\n      ::oWnd:oHScroll:bPos      := {|nPos| ::HScrollThumb(nPos) }\n      ::oWnd:oHScroll:bTrack    := {|nPos| ::HScrollTrack(nPos) }\n   endif\n   //::oWnd:bKeyChar := {|nKey,nFlags| ScrollKey(nKey) }\n   //--------------------------------------------------\nRETURN( NIL )\n\n//STATIC FUNCTION ScrollKey(nKey)\n   //MsgInfo( \"Key : \"+str(nKey,10) )\n   //if nKey == K_ENTER\n   //   goMainDlg:End()\n   //   lRetVal := TRUE\n   //endif\n//RETURN( NIL )\n\n//=================================================================\n//-* Vertical Scroll Bar\nMETHOD VScroll() CLASS TScrWnd\nLOCAL nNewPos\n   if ::nVPos &gt;= ::oWnd:oVScroll:nMin   ;\n      .and. ::nVPos &lt;= ::oWnd:oVScroll:nMax\n      nNewPos := ::oWnd:oVScroll:GetPos()\n      SysRefresh()\n\n      ScrollWindow( ::oWnd:hWnd, 0,  ;\n         (  ::nVPos-nNewPos )*D_HEIGHT,    ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nVPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD VScrollThumb(nNewPos) CLASS TScrWnd\n   if ::nVPos &gt;= ::oWnd:oVScroll:nMin   ;\n      .and. ::nVPos &lt;= ::oWnd:oVScroll:nMax\n      ::oWnd:oVScroll:SetPos(nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd, 0,  ;\n         (::nVPos - nNewPos )*D_HEIGHT,    ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nVPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD VScrollTrack(nNewPos) CLASS TScrWnd\n   if ::nVPos &gt;= ::oWnd:oVScroll:nMin   ;\n      .and. ::nVPos &lt;= ::oWnd:oVScroll:nMax\n      ::oWnd:oVScroll:SetPos(nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd, 0,  ;\n         (::nVPos - nNewPos )*D_HEIGHT,    ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nVPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD VScrollPgDown() CLASS TScrWnd\nLOCAL nNewPos\n   if ::nVPos &lt; ::oWnd:oVScroll:nMax\n      nNewPos := ::nVPos + ::oWnd:oVScroll:nPgStep\n      nNewPos := iif(nNewPos &gt; ::oWnd:oVScroll:nMax, ::oWnd:oVScroll:nMax, nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd, 0,  ;\n         ( ::nVPos - nNewPos )*D_HEIGHT,    ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nVPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD VScrollPgUp() CLASS TScrWnd\nLOCAL nNewPos\n   if ::nVPos &gt; ::oWnd:oVScroll:nMin\n      nNewPos := ::nVPos - ::oWnd:oVScroll:nPgStep\n      nNewPos := iif(nNewPos &lt; ::oWnd:oVScroll:nMin,::oWnd:oVScroll:nMin,nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd, 0,  ;\n         ( ::nVPos - nNewPos )*D_HEIGHT,    ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nVPos := nNewPos\n   endif\nRETURN( NIL )\n\n//=================================================================\n//-* Horizontal Scroll Bar\nMETHOD HScroll() CLASS TScrWnd\nLOCAL nNewPos\n   if ::nHPos &gt;= ::oWnd:oHScroll:nMin   ;\n      .and. ::nHPos &lt;= ::oWnd:oHScroll:nMax\n      nNewPos := ::oWnd:oHScroll:GetPos()\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd,           ;\n         (::nHPos - nNewPos )*D_WIDTH,0,   ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nHPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD HScrollThumb(nNewPos) CLASS TScrWnd\n   if ::nHPos &gt;= ::oWnd:oHScroll:nMin   ;\n      .and. ::nHPos &lt;= ::oWnd:oHScroll:nMax\n      ::oWnd:oHScroll:SetPos(nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd,           ;\n         (::nHPos - nNewPos )*D_WIDTH,0,   ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nHPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD HScrollTrack(nNewPos) CLASS TScrWnd\n   if ::nHPos &gt;= ::oWnd:oHScroll:nMin   ;\n      .and. ::nHPos &lt;= ::oWnd:oHScroll:nMax\n      ::oWnd:oHScroll:SetPos(nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd,           ;\n         (::nHPos - nNewPos )*D_WIDTH,0,   ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nHPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD HScrollPgDown() CLASS TScrWnd\nLOCAL nNewPos\n   if ::nHPos &lt; ::oWnd:oHScroll:nMax\n      nNewPos := ::nHPos + ::oWnd:oHScroll:nPgStep\n      nNewPos := iif(nNewPos &gt; ::oWnd:oHScroll:nMax, ::oWnd:oHScroll:nMax, nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd,           ;\n         ( ::nHPos - nNewPos )*D_WIDTH,0,  ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nHPos := nNewPos\n   endif\nRETURN( NIL )\n\nMETHOD HScrollPgUp() CLASS TScrWnd\nLOCAL nNewPos\n   if ::nHPos &gt; ::oWnd:oHScroll:nMin\n      nNewPos := ::nHPos - ::oWnd:oHScroll:nPgStep\n      nNewPos := iif(nNewPos &lt; ::oWnd:oHScroll:nMin,::oWnd:oHScroll:nMin,nNewPos)\n      SysRefresh()\n      ScrollWindow( ::oWnd:hWnd,           ;\n         ( ::nHPos - nNewPos )*D_WIDTH,0,  ;\n         0 , GetClientRect(::oWnd:hWnd) )\n      ::nHPos := nNewPos\n   endif\nRETURN( NIL )\n\n//=* End of File =================================================\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn','',0,'AIA=','1berqqh5',1,0,'',689,0,0),(35149,7445,6,987,0,'189.133.8.13',1185286446,1,0,1,1,1,0,'','','Gracias por su respuesta:\n\nHe Revisado la pagina y no es nada barata la lib. ( <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> Aprox. $4000.00 Mex.), \ncreo que seguiré con mi proyecto de escribir alguna función para toda la comunidad que la necesite..\n\nSaludos..','',0,'AIA=','14ptfv29',1,0,'',987,0,0),(35150,7666,3,297,0,'217.57.213.130',1185286579,1,0,1,1,1,0,'','Best regards and anomalous performance','Hi Antonio,\n   You may note that this two little program are different in only one thing. The second one make use of WINDOW instead of DIALOG\n======slow.prg=========\n#include \"fivewin.ch\"\n\nFUNCTION MAIN()\n\nLOCAL oDlg\nLOCAL oBrw\nLOCAL lPaint := .F.\n\nSELECT 0\nUSE customer\n\n\nDEFINE DIALOG oDlg FROM 10 , 10 TO 600 , 800 PIXEL\n\n@ 0, 0 LISTBOX oBrw FIELDS SIZE 600 , 800\n\nACTIVATE DIALOG oDlg\n\nRETURN NIL\n\n=====fast.prg====================\n#include \"fivewin.ch\"\n\nFUNCTION MAIN()\n\nLOCAL oWnd\nLOCAL oBrw\nLOCAL lPaint := .F.\n\nSELECT 0\nUSE customer\n\n\nDEFINE WINDOW oDlg FROM 10 , 10 TO 600 , 800 PIXEL\n\n@ 0, 0 LISTBOX oBrw FIELDS SIZE 600 , 800\n\nACTIVATE DIALOG Wnd\n\nRETURN NIL\n \nIf I put in background listbox of slow.exe program and I catch a dialog of another program such as cmd in window mode or any other program and I move quickly (like a shaker)  this dialog over listbox of slow.exe program cells listbox repaint is too slow, I note something like a slime.\nOn the contrary fast.exe works fine like all other windows program I tested: Excel, Groupwise, Outlook and other software compiled in Visual Objects or Fox Pro.\nIn my opinion it is very probably that thar is a bug somewhere.\nHave a good day\nMarco','',0,'AIA=','2kfryfe7',1,0,'',297,0,0),(35151,7618,6,987,0,'189.133.8.13',1185287908,1,0,1,1,1,0,'','','Saludos jmua:\n\nTe paso una función que borra los archivos mediante mascara (*.*, *.CDX, etc), haz esto antes de borrar tu directorio, en este ejemplo borro los archivos .CDX de la carpeta COBRANZA de mi Sistema:\n\nOJO (Verás que tengo implementado un meter para ver el progreso de borrado según el número de Archivos que existan en el directorio, si gustas lo puedes omitir)\n\n---------------------------------------------------------------------\nFUNCTION Borrar()   //Esto lo Puedes Omitir, es solo pa darle Look\n\nLOCAL oMeter1, oDlg\n\nbDialogTask  := { || BorraCDX(oMeter1) }\n\nDEFINE DIALOG oDlg RESOURCE \"OPTIMIZA\" Title \"Borrando Archivos\"\noMeter1 = TProgress():Redefine( 200, oDlg )\nACTIVATE DIALOG oDlg CENTERED ON PAINT EVAL(bDialogTask)\n\nReturn nil\n\n--------------------------------------------------\nSTATIC FUNCTION BorraCDX(oMeter)  //Esto es lo que borra los Archivos\n\nLOCAL aIndexFiles := {}\nLOCAL aFil            := {}\nLOCAL nI              := 0\n\n//--&gt; En el Directorio de Cobranza\n\n   aFil:= DIRECTORY( ( \".\\COBRANZA\\*.CDX\" ) )\n   AEVAL( aFil, { | uFile | AADD( aIndexFiles, uFile ) } )\n\n   oMeter:SetRange(0, LEN(aIndexFiles))\n\n   FOR nI:= 1 TO LEN(aIndexFiles)\n       SYSREFRESH()\n       FERASE(\".\\COBRANZA\\\"+aIndexFiles[nI][1])      \n       oMeter:SETPOS(nI)\n   NEXT nI\n   \nRETURN nil\n\nUna vez eliminado todos los archivos de la carpeta, ya puedes proceder a borrarla con cualquier función que tengas.\n\nEspero te sirva..  Saludos desde Chiapas México\n\nMuy pronto mi portal electronico:  <!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'','3pujujl7',1,0,'',987,0,0),(35152,7666,3,2,0,'87.218.146.158',1185288228,1,0,1,1,1,1,'','','Marco,\n\nThe speed delay probably is caused for the \"double buffer\" technique used on dialogs. The \"double buffer\" technique avoids \"flickering\" but the painting speed is slower\n\nYou can disable the \"double buffer\" technique in FWH modifying these two methods in Class TWindow:\n\nMETHOD DispBegin() VIRTUAL\nMETHOD DispEnd() VIRTUAL','',0,'','1qsgn4mi',1,0,'',2,0,0),(35153,7664,3,2,0,'87.218.146.158',1185288585,1,0,1,1,1,1,'','','Vilian,\n\nThe easiest way is to fill the C structure from C code:\n[code:2hxidul6]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; CREATETERWINDOW &#41;\n&#123;\n    struct arg_list ptr;\n\n    &#46;&#46;&#46; fill the ptr &#46;&#46;&#46; members using hb_par&#46;&#46;&#46;&#40; x &#41;, i&#46;e&#46;&#58;\n    ptr&#46;width = hb_parnl&#40; 3 &#41;;\n\n    hb_retnl&#40; &#40; ULONG &#41; CreateTerWindow&#40; &amp;ptr &#41; &#41;;   \n&#125;\n\n#pragma ENDDUMP\n[/code:2hxidul6]','',0,'AIA=','2hxidul6',1,0,'',2,0,0),(35154,7666,3,297,0,'217.57.213.130',1185289618,1,0,1,1,1,0,'','','Ok thanks <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3h55l08p',1,0,'',297,0,0),(35155,7600,6,138,0,'189.141.69.200',1185290126,1,0,1,1,1,1,'','','Porque las definiciones de los archivos de cabecera que utiliza el Workshop no son compatibles con las del ResEdit.\n\nTendras que crear un RC nuevo y posteriormente ir añadiendo los recursos uno a uno.','',0,'AIA=','1nivl6g1',1,0,'',138,0,0),(35156,7445,6,138,0,'189.141.69.200',1185290346,1,0,1,1,1,1,'','','Efectivamente, no es barata, pero las mas de 2,000 funciones que tiene y que hacen practicamente de todo (correo con autenticacion, FTP, scaneo de red, operaciones con bits, etc etc etc) ademas se pueden usar no solo con Fivewin sino con xHarbour en modo consola o bien con cual otra GUI.','',0,'AIA=','13gxqq4x',1,0,'',138,0,0),(35157,7652,3,138,0,'189.141.69.200',1185290516,1,0,1,1,1,1,'','','PMJI, I remember I saw in xHarbour.com website that the commercial version of xHarbour support ActiveX server, I mean, that you can turn your xHabour application into an ActiveX server, not only an ActiveX client.\n\nTake a look into <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.com\">www.xharbour.com</a><!-- w -->','',0,'AIA=','1ae5oqty',1,0,'',138,0,0),(35158,7654,6,660,0,'189.149.61.162',1185293136,1,0,1,1,1,0,'','','Luis:\n\nEsVocal(), EsConsonante() y SinAcento()\n\nSALUDOS!!\n\n\n[code:2p4r84et]\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n* FUNCION    &#58; EsVocal&#40;cLetra&#41; -&gt; lVocal\n* DESCRIPCION&#58; Investiga si un caracter es Vocal, aún cuando se encuentre acentuada&#46;\n* REGRESA    &#58; &#46;T&#46; si el caracter es Vocal, en caso contrario devuelve &#46;F&#46;\n* PARAMETROS &#58; &lt;cLetra&gt; = Caracter a investigar si se trata de una vocal&#46;\n* EJEMPLO    &#58; ? EsVocal&#40;&quot;a&quot;&#41; -&gt; &#46;T&#46;            ? EsVocal&#40;&quot;8&quot;&#41; -&gt; &#46;F&#46;\n*              ? EsVocal&#40;&quot;ú&quot;&#41; -&gt; &#46;T&#46;            ? EsVocal&#40;&quot;P&quot;&#41; -&gt; &#46;F&#46;\n*              ? EsVocal&#40;&quot;E&quot;&#41; -&gt; &#46;T&#46;            ? EsVocal&#40;&quot;=&quot;&#41; -&gt; &#46;F&#46;\n* REQUIERE   &#58; SinAcento&#40;&#41; -&gt; Sanroms&#46;Prg\n*\nFUNCTION EsVocal&#40;cLetra&#41;\n  DEFAULT cLetra &#58;= SPACE&#40;1&#41;\n\n  IF VALTYPE&#40;cLetra&#41; &lt;&gt; &quot;C&quot; // Valida que el parámetro pasado se trate de un caracter&#46;\n     cLetra &#58;= SPACE&#40;1&#41;\n  ENDIF\n\n  cLetra &#58;= UPPER&#40;SinAcento&#40; ALLTRIM&#40;cLetra&#41; &#41;&#41; // Anula espacios, quita el acento y convierte a mayúscula para la comparación&#46;\n\n  IF cLetra = &quot;A&quot; &#46;OR&#46; cLetra = &quot;E&quot; &#46;OR&#46; cLetra = &quot;I&quot; &#46;OR&#46;;\n     cLetra = &quot;O&quot; &#46;OR&#46; cLetra = &quot;U&quot;\n     RETURN&#40;&#46;T&#46;&#41;\n  ENDIF\n\nRETURN &#40;&#46;F&#46;&#41;\n*\n* FIN EsVocal&#40;&#41;\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n\n\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n* FUNCION    &#58; EsConsonante&#40;cLetra&#41; -&gt; lConsonante\n* DESCRIPCION&#58; Investiga si un caracter es Consonante&#46;\n* REGRESA    &#58; &#46;T&#46; si el caracter es Consonante, en caso contrario devuelve &#46;F&#46;\n* PARAMETROS &#58; &lt;cLetra&gt; = Caracter a investigar si se trata de una consonante&#46;\n* EJEMPLO    &#58; ? EsVocal&#40;&quot;P&quot;&#41; -&gt; &#46;T&#46;            ? EsVocal&#40;&quot;8&quot;&#41; -&gt; &#46;F&#46;\n*              ? EsVocal&#40;&quot;m&quot;&#41; -&gt; &#46;T&#46;            ? EsVocal&#40;&quot;A&quot;&#41; -&gt; &#46;F&#46;\n*              ? EsVocal&#40;&quot;x&quot;&#41; -&gt; &#46;T&#46;            ? EsVocal&#40;&quot;=&quot;&#41; -&gt; &#46;F&#46;\n* REQUIERE   &#58; EsVocal&#40;&#41; -&gt; Sanroms&#46;Prg\n*\nFUNCTION EsConsonante&#40;cLetra&#41;\n  DEFAULT cLetra &#58;= SPACE&#40;1&#41;\n\n  cLetra &#58;= UPPER&#40; ALLTRIM&#40;cLetra&#41; &#41;\n\n  IF cLetra = &quot;B&quot; &#46;OR&#46; cLetra = &quot;C&quot; &#46;OR&#46; cLetra = &quot;D&quot; &#46;OR&#46; cLetra = &quot;F&quot; &#46;OR&#46;;\n     cLetra = &quot;G&quot; &#46;OR&#46; cLetra = &quot;H&quot; &#46;OR&#46; cLetra = &quot;J&quot; &#46;OR&#46; cLetra = &quot;K&quot; &#46;OR&#46;;\n     cLetra = &quot;L&quot; &#46;OR&#46; cLetra = &quot;M&quot; &#46;OR&#46; cLetra = &quot;N&quot; &#46;OR&#46; cLetra = &quot;Ñ&quot; &#46;OR&#46;;\n     cLetra = &quot;P&quot; &#46;OR&#46; cLetra = &quot;Q&quot; &#46;OR&#46; cLetra = &quot;R&quot; &#46;OR&#46; cLetra = &quot;S&quot; &#46;OR&#46;;\n     cLetra = &quot;T&quot; &#46;OR&#46; cLetra = &quot;V&quot; &#46;OR&#46; cLetra = &quot;W&quot; &#46;OR&#46; cLetra = &quot;X&quot; &#46;OR&#46;;\n     cLetra = &quot;Y&quot; &#46;OR&#46; cLetra = &quot;Z&quot;\n     RETURN&#40;&#46;T&#46;&#41;\n  ENDIF\n\nRETURN&#40;&#46;F&#46;&#41;\n*\n* FIN EsConsonante&#40;&#41;\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n\n\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n* FUNCION    &#58; SinAcento&#40;&lt;cCadena&gt;&#41; -&gt; cCadena\n* DESCRIPCION&#58; Quita los acentos a la cadena pasada&#46;\n* REGRESA    &#58; &lt;cCadena&gt; pero SIN Acento\n* PARAMETROS &#58; &lt;cCadena&gt; = Cadena a eliminarle los acentos&#46;\n* EJEMPLO    &#58; ? SinAcento&#40;&quot;Sánchez&quot;&#41; -&gt; &quot;Sanchez&quot;     ? SinAcento&#40;&quot;8&quot;&#41; -&gt; &quot;8&quot;\n*              ? SinAcento&#40;&quot;É&quot;&#41; -&gt; &quot;E&quot;                 ? SinAcento&#40;&quot;A&quot;&#41; -&gt; &quot;A&quot;\n*              ? SinAcento&#40;&quot;LÓPEZ&quot;&#41; -&gt; &quot;LOPEZ&quot;         ? SinAcento&#40;&quot;=&quot;&#41; -&gt; &quot;=&quot;\n*\nFUNCTION SinAcento&#40;cCadena&#41;\n  DEFAULT cCadena &#58;= SPACE&#40;1&#41;\n\n  IF VALTYPE&#40;cCadena&#41; &lt;&gt; &quot;C&quot;\n     cCadena &#58;= SPACE&#40;1&#41;\n  ENDIF\n\n  cCadena &#58;= StrTran&#40;cCadena, &quot;Á&quot;, &quot;A&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;É&quot;, &quot;E&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;Í&quot;, &quot;I&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;Ó&quot;, &quot;O&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;Ú&quot;, &quot;U&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;á&quot;, &quot;a&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;é&quot;, &quot;e&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;í&quot;, &quot;i&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;ó&quot;, &quot;o&quot;&#41;\n  cCadena &#58;= StrTran&#40;cCadena, &quot;ú&quot;, &quot;u&quot;&#41;\n\nRETURN&#40;cCadena&#41;\n*\n* FIN SinAcento&#40;&#41;\n* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *\n\n[/code:2p4r84et]','',0,'AIA=','2p4r84et',1,0,'',660,0,0),(35159,7667,6,362,0,'200.148.67.25',1185294019,1,0,1,1,1,1,'','SENSITIVE SAY - EN WINDOWS XP, MAS DE 50 SAYS.','[code:2u83l0u9]\n// Sensitive Say control by Ramón Avendaño\n// 23-02-00\n\n//-&gt; CLASSE SSAY&#46;PRG\n\n//----------------------------------------------------------------------------//\n\nMETHOD Paint&#40;&#41; CLASS TSSay\n\n   local n \n   local nColorShadow, nColorLight\n\n   DEFAULT &#58;&#58;lTransparent &#58;= &#46;f&#46;\n\n   if &#58;&#58;nClrLight = Nil\n      nColorLight &#58;= GetSysColor&#40; COLOR_BTNHIGHLIGHT &#41;\n   else\n      nColorLight &#58;= &#58;&#58;nClrLight\n   endif\n\n   &#58;&#58;GetDC&#40;&#41;\n\n   if &#58;&#58;lActive\n    \n**INI-20/02/2005 - Linares - Só começa a valer apartir do fwh fevereiro 2006\n      if &#58;&#58;lTransparent &#46;and&#46; ! Empty&#40; &#58;&#58;oBrush&#58;hBitmap &#41; \n         SetBrushOrgEx&#40; &#58;&#58;hDC, nBmpWidth&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nLeft, nBmpHeight&#40; &#58;&#58;oBrush&#58;hBitmap &#41; - &#58;&#58;nTop &#41; \n         FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41; \n      endif \n**FIM-20/02/2005 - Linares\n\n      for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n          if &#58;&#58;lLight\n              WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nSTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight + 1, &#58;&#58;nSLeft + 1, &#58;&#58;aCaption&#91; n &#93;,;\n                    nColorLight,, If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n          endif\n\n          WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nSTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight, &#58;&#58;nSLeft, &#58;&#58;aCaption&#91; n &#93;,;\n                If&#40; &#58;&#58;lOver, &#58;&#58;nClrOver, &#58;&#58;nClrText &#41;,,;\n                If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n\n      next\n      \n      if &#58;&#58;lDrawBox\n         &#58;&#58;DrawBox&#40; &#58;&#58;lOver &#41;\n      endif\n      \n   else\n      \n      nColorShadow &#58;= GetSysColor&#40; COLOR_BTNSHADOW &#41;\n      nColorLight  &#58;= GetSysColor&#40; COLOR_BTNHIGHLIGHT &#41; \n\n      for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n          WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nSTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight + 1, &#58;&#58;nSLeft + 1, &#58;&#58;aCaption&#91; n &#93;, nColorLight,,;\n                If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n          WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nSTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight, &#58;&#58;nSLeft, &#58;&#58;aCaption&#91; n &#93;, nColorShadow,,;\n                If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n      next\n\n   endif\n\n   // 3D\n\n   if &#58;&#58;lShaded\n      WndInset&#40; &#58;&#58;hWnd, &#58;&#58;hDC &#41;   // SHADED, SHADOW\n   endif\n\n   if &#58;&#58;lRaised\n      WndRaised&#40; &#58;&#58;hWnd, &#58;&#58;hDC &#41;  // RAISED\n   endif\n\n   if &#58;&#58;lBox\n      WndBoxIn&#40; &#58;&#58;hDC, 0, 0, &#58;&#58;nBottom-&#58;&#58;nTop, &#58;&#58;nRight-&#58;&#58;nLeft &#41;\n      WndBoxRaised&#40; &#58;&#58;hDC, 1, 1, &#58;&#58;nBottom-&#58;&#58;nTop-1, &#58;&#58;nRight-&#58;&#58;nLeft-1 &#41;\n   endif\n\n   &#58;&#58;ReleaseDC&#40;&#41;\n\n   if &#58;&#58;lTransparent\n      SysRefresh&#40;&#41;\n   endif\n\nreturn nil\n\n//-&gt; Maestro Antonio&#46;&#46;&#46; No tienes un erro aca?? Pues, Traba el DIALOGO en un\n//-&gt; FOLDER con mas de 50 SAYS&#46;&#46;&#46; Que puede seer?\n//-&gt; Esto ocorre solo en Windows XP, en Windows 98, Funciona Normal&#46;\n\nMuchas gracias&#46;\n\nRegards, saludos&#46;\n[/code:2u83l0u9]','',0,'AIA=','2u83l0u9',1,0,'',362,0,0),(35160,7600,6,37,0,'190.41.59.208',1185294084,1,0,1,1,1,1,'','','Gracias Rene por tu explicacion','',0,'AIA=','2ymdywbs',1,0,'',37,0,0),(35161,7667,6,2,0,'87.218.146.158',1185296491,1,0,1,1,1,1,'','','Joao,\n\nHas probado a usar estandard SAYs en vez de SSAYs y comprobar si el problema viene de usar SSAYs ?','',0,'AIA=','1ov3sxnt',1,0,'',2,0,0),(35162,7664,3,267,0,'200.208.238.2',1185296845,1,0,1,1,1,1,'','','Antonio,\n\nWhen I try to compile appear the following messages: \n\n[code:17v8cehx]Error E2450 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1410&#58; Undefined structure \'arg_list\' in function HB_FUN_CREATETERWINDOW\nError E2449 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1410&#58; Size of \'ptr\' is unknown or zero in function HB_FUN_CREATETERWINDOW\nError E2450 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1410&#58; Undefined structure \'arg_list\' in function HB_FUN_CREATETERWINDOW\nError E2450 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1410&#58; Undefined structure \'arg_list\' in function HB_FUN_CREATETERWINDOW\nError E2449 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1410&#58; Size of \'ptr\' is unknown or zero in function HB_FUN_CREATETERWINDOW\nError E2451 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1412&#58; Undefined symbol \'x\' in function HB_FUN_CREATETERWINDOW\nError E2451 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1413&#58; Undefined symbol \'y\' in function HB_FUN_CREATETERWINDOW\nError E2451 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1414&#58; Undefined symbol \'width\' in function HB_FUN_CREATETERWINDOW\nError E2451 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1415&#58; Undefined symbol \'height\' in function HB_FUN_CREATETERWINDOW\nWarning W8065 \\\\tec2000\\\\sig50\\\\SIG241&#46;PRG 1417&#58; Call to function \'CreateTerWindow\' with no prototype in function HB_FUN_CREATETERWINDOW\n[/code:17v8cehx]\n\nWhat I am making made a mistake?','',0,'AIA=','17v8cehx',1,0,'',267,0,0),(35163,7668,3,299,0,'24.233.172.101',1185297064,1,0,1,0,1,0,'','btnbmp disable','Hi.\n\nI\'m having problems changing the aspect of tbtnbmp object when disable.  I\'m declaring it something like this:\n[code:1ww2fya7]\n	REDEFINE BTNBMP &#58;&#58;oBtnRec ID 201 OF &#58;&#58;oDlg RESOURCE &quot;voicerec_rec&quot;, &quot;voicerec_recDis&quot;, &quot;VoiceRec_RecDis&quot; ;\n		TOOLTIP &quot;Record&quot; NOBORDER UPDATE\n[/code:1ww2fya7]\nWheather ::oBtnRec is disabled or not, only the first bmp displays.  How can I change the image shown on the btnbmp at run time?\n\nThank you,\n\n\n\nReinaldo.','',0,'AIA=','1ww2fya7',1,0,'',299,0,0),(35164,7664,3,2,0,'87.218.146.158',1185299282,1,0,1,1,1,1,'','','Try it this way:\n[code:2it2b738]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHWND CreateTerWindow&#40; &#46;&#46;&#46; &#41;;\n\nHB_FUNC&#40; CREATETERWINDOW &#41;\n&#123;\n    hb_retnl&#40; &#40; ULONG &#41; CreateTerWindow&#40; hb_parnl&#40; 1 &#41;,  // x\n                                                                           hb_parnl&#40; 2 &#41;, // y\n                                                                           hb_parnl&#40; 3 &#41;, // width\n                                                                           hb_parnl&#40; 4 &#41;, // height\n                                                                           hb_parnl&#40; 5 &#41;, // lineLimit\n                                                                           hb_parl&#40; 6 &#41;, // WordWrap\n                                                                           hb_parl&#40; 7 &#41;, // PrintView\n                                                                           hb_parl&#40; 8 &#41;, // PageMode\n                                                                           hb_parl&#40; 9 &#41;, // FittedView \n                                                                           &lt;continue you &#58;-&#41; &gt;\n                                                                           &#41; &#41;;          \n&#125;\n\n#pragma ENDDUMP \n[/code:2it2b738]','',0,'AIA=','2it2b738',1,0,'',2,0,0),(35165,7668,3,2,0,'87.218.146.158',1185299504,1,0,1,1,1,1,'','','Reinaldo,\n\n::oBtnRec:LoadBitmaps( \"voicerec_recDis\" )\n::oBtnRec:Refresh()','',0,'AIA=','23cek8x5',1,0,'',2,0,0),(35166,7668,3,299,0,'24.233.172.101',1185299905,1,0,1,0,1,0,'','','Antonio;\n\nThank you very much.\n\n\nReinaldo.','',0,'AIA=','31232ymg',1,0,'',299,0,0),(35167,7639,3,2,0,'87.218.146.158',1185299910,1,0,1,1,1,1,'','','qbXMLRP = CreateObject( \"QBXMLRP2Lib.RequestProcessor2\" )\n\nqbXMLRP:OpenConnection( cAppID, cAppName )\n\nticket = qbXMLRP:BeginSession( \"\", CreateObject( \"QBXMLRP2Lib.qbFileOpenDoNotCare\" ) ) // Not sure about this. Maybe QBXMLRP2Lib.qbFileOpenDoNotCare its a constant value\n\nbuilder = CreateObject( \"DOMDocument40\" )\nQBXML = builder:createElement( \"QBXML\" )\nbuilder:appendChild( QBXML )\nmsgsRq = QBXM:.appendChild( builder:CreateElement(\"QBXMLMsgsRq\"))\n\nmsgsRq:setAttribute( \"onError\", \"continueOnError\" )\nCustomerAddRq = msgsRq:appendChild(builder:createElement(\"CustomerAddRq\"))\n\nCustomerAdd = CustomerAddRq:appendChild(builder:createElement(\"CustomerAdd\"))\n\ndataElement = CustomerAdd:appendChild(builder:createElement(\"Name\"))\ndataElement:appendChild( builder:createTextNode(custName) )\n\nsupportedVersion = qbXMLLatestVersion(qbXMLRP, ticket)\n\nrequestXML = qbXMLAddProlog(supportedVersion, builder:xml)\n\nresponseXML = qbXMLRP:ProcessRequest(ticket, requestXML)\n\n\nqbXMLRP:EndSession( ticket )\n\nqbXMLRP:CloseConnection()','',0,'AIA=','2zg30odi',1,0,'',2,0,0),(35168,7640,3,2,0,'87.218.146.158',1185300073,1,0,1,1,1,1,'','','Vilian,\n\nProbably its not your mistake, but a missing properly management of decimals numbers in ADORDD','',0,'AIA=','2ey6bq84',1,0,'',2,0,0),(35169,7633,3,2,0,'87.218.146.158',1185300241,1,0,1,1,1,1,'','','Ugo,\n\nTone() is a Harbour/xHarbour function. You will have to report such bug in the Harbour/xHarbour mailing list','',0,'AIA=','1knz4qfk',1,0,'',2,0,0),(35170,7667,6,362,0,'200.148.67.25',1185301670,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2vpinrh8]Joao,\n\nHas probado a usar estandard SAYs en vez de SSAYs y comprobar si el problema viene de usar SSAYs ?[/quote:2vpinrh8]\n\n\nSI, MAESTRO!!\n\n[code:2vpinrh8]\n    IF IsWinNT&#40;&#41; &#46;OR&#46; IsWin2000&#40;&#41;  // Para Windows XP/NT e 2000 / 2003\n        //-&gt; Problemas aqui&#46;&#46;&#46; Nao Suporta Mas que 50 Says Usando SSAY&#46;PRG\n        //-&gt; Por enquanto, usar Says\'s Normais Para Colorir&#46; Trava no XP&#46;\n        For IDCor=401 TO 456\n            REDEFINE SAY oSay ID iDcor              ;\n            OF oFld&#58;aDialogs&#91;1&#93;                     ;\n            COLOR CLR_BLACK, CLR_AMARELO            ;\n            UPDATE                                  ;\n            FONT oFnt\n        Next IDCor\n     ELSE\n        For IDCor=401 TO 456\n            REDEFINE SENSITIVE SAY ID iDcor         ;\n            OF oFld&#58;aDialogs&#91;1&#93;                     ;\n            COLOR CLR_BLACK, CLR_AMARELO            ;\n            UPDATE                                  ;\n            RAISED TRANSPARENT                      ;\n            FONT oFnt\n        Next IDCor\n    ENDIF\n[/code:2vpinrh8]','',0,'gIA=','2vpinrh8',1,0,'',362,0,0),(35171,7669,2,518,0,'189.173.58.238',1185303055,1,0,1,1,1,0,'','capturar accion al recibir foto','Hola,\n\nNecesito capturar una accion en un get al recibir el foco. Lo que necesito hacer es cuando se reciba el foco en un get, si ese get tiene alguna información... se selecione de tal forma que si el usuario captura algo se borre la información que ya tenia antes ... alguien me ayuda ?\n\n\ngracias\n\nRmc','',0,'gIA=','31q1caxt',1,0,'',518,0,0),(35172,7654,6,98,0,'70.71.111.92',1185307613,1,0,1,1,1,1,'','','Israel:\n\nSi no fuera mucho enchinchar, sería posible CURPVerif() y FormFec()?\n\nMil gracias,\n\n[quote=&quot;isolis&quot;:2ch6v9ah]Luis:\n\nEsVocal(), EsConsonante() y SinAcento()\n\nSALUDOS!!\n[/quote:2ch6v9ah]','',0,'gA==','2ch6v9ah',1,0,'',98,0,0),(35173,7619,7,598,0,'201.211.97.72',1185307750,1,0,1,1,1,1,'','','yo creo q tu problema es la conversion ascii -&gt; unicode, yo tuve un problema asi con una impresora irda y hacia lo mismo.. puros cuadritos y basura en general. lo resolvi utilizando la funcion del api de windows MultiByteToWideChar()\n\nun ejemplo de su utilizacion es:\n\n[code:3p5ojxy9]   \nconst int tamano = 20;\nconst int arraysize  = sizeof&#40;TCHAR&#41;*tamano;\n   const int arraysizeW = sizeof&#40;WCHAR&#41;*tamano;\n   TCHAR szOrigen&#91;arraysize&#93;;\n   WCHAR szCadena&#91;arraysizeW&#93;;\n\n   memset&#40;szOrigen, 0, arraysize&#41;;\n   memset&#40;szCadena, 0, arraysizeW&#41;;\n\n   StringCbCopyA&#40;&#40;LPSTR&#41;szOrigen, arraysize,&#40;LPSTR&#41; hb_parc&#40;1&#41;  &#41;;\n\n   MultiByteToWideChar&#40;CP_ACP,0,&#40;LPCSTR&#41;szOrigen,arraysize,szCadena,arraysizeW &#41;;[/code:3p5ojxy9]\n\ndonde\n\n[b:3p5ojxy9]hb_parc(1):[/b:3p5ojxy9] es el parametro de la cadena ascii a convertir\n[b:3p5ojxy9]szCadena:[/b:3p5ojxy9] es un puntero a una cadena de WCHAR osea char unicode\n[b:3p5ojxy9]tamano:[/b:3p5ojxy9] es el tamaño que tu quieres que tenga el buffer, es importante destacar que en este ejemplo se utiliza la funcion StringCbCopy() cuyo uso es ampliamente recomendado ya q protege el buffer de cualquier desbordamiento dandole a nuestra aplicacion seguridad y estabilidad. Esta funcion es de la libreria [i:3p5ojxy9]strsafe.lib[/i:3p5ojxy9]','',0,'YIA=','3p5ojxy9',1,0,'',598,0,0),(35174,7670,3,299,0,'24.233.172.101',1185309192,1,0,1,0,1,0,'','TActiveX:SetProp()','Hi.\n\nI\'m having a problem setting one specific property to an ocx I\'m using.  All else works just fine.   \n\nFrom the OCX guide, the property data type is described as:\n\n[quote:3u2r6hi2]\nVARIANT=&gt; Variant type (C/C++ type OLEVARIANT, Delphi type OleVariant, VB\ntype Variant (default type))\n...And can be assigned to the .AcmFormat property directly, e.g.:\nocx.AcmFormat = \"31000100401f0000590600004100000002004001\"\n[/quote:3u2r6hi2]\n\nOn my fwh code I\'m assigning this way:\n[code:3u2r6hi2]\n	cAcmString &#58;= &quot;55000100c05d0000b80b0000010000000c00010002000000480001007105&quot;\n\n	&#58;&#58;oActiveX&#58;SetProp&#40; &quot;AcmFormat&quot;, cAcmString &#41;\n[/code:3u2r6hi2]\n\nBut it does not seem to work.  After the property has been set (with the code above), when quering it I get back Nil which is the default value before it is set.\n\nCan anyone help with this one?\n\n\n\nReinaldo.','',0,'gIA=','3u2r6hi2',1,0,'',299,0,0),(35175,7671,6,1119,0,'201.100.2.252',1185314314,1,0,1,1,1,0,'','Hola, Algun tutorial paso a paso... ?','Buen dia mi nombre es miguel enriquez de chihuahua mexico.\nsoy primerizo en este forum.\n\nMi jefe compro una cadena comercial de minisupers 5 en total por el momento, resulta que estos minisupers tienen un punto de venta desarrollado en Fivewin Harbour, necesito un tutorial paso a paso... tengo los codigos fuentes y las bases de datos, es importante mencionar que tengo 12 anos de experiencia en programacion conozco y desarrolle sistemas en fox, clipper, visual fox, y ahora domino delphi, es con el que he trabajado en los ultimos 6 anos. menciono esto para que se den cuenta que no voy a empezar de cero, pero el fivewin, no lo conozco... nada..\n\nalguna idea de como empezar, gracias!\n\nSaludos','',0,'gIA=','37ufa06k',1,0,'',1119,0,0),(35176,7671,6,2,0,'87.218.146.158',1185315405,1,0,1,1,1,1,'','','Miguel,\n\nAqui tienes un curso de iniciación en Español:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/44834279/curso.zip.html\">http://rapidshare.com/files/44834279/curso.zip.html</a><!-- m -->','',0,'gIA=','1mk20str',1,0,'',2,0,0),(35177,7670,3,2,0,'87.218.146.158',1185315785,1,0,1,1,1,1,'','','Reinaldo,\n\nhave you tried to assign a shorter string, just for a test ?\n\n   ::oActiveX&#058;SetProp( \"AcmFormat\", \"123\" )','',0,'gIA=','j5dsumhm',1,0,'',2,0,0),(35178,7551,3,34,0,'68.5.217.82',1185315902,1,0,1,1,1,1,'','Resource Compilers','I thought I would post an update to my previous comments.  First, I posted a note on the Pelles board when it was fixed ( it was down for awhile ), but never got a response.  Then I emailed the other SiComponents people about Resource Compiler and they asked for the code, so I sent it to them.  That was the end of the communications.\n\nI\'ll just have to play with this some more.  Again, the problem is rather simple.  I\'d like to see the same dialog displayed on the screen by the compiled program as I see in the resource compiler.   \n\nTim','',0,'gIA=','2v1s3467',1,0,'',34,0,0),(35179,7551,3,2,0,'87.218.146.158',1185316812,1,0,1,1,1,1,'','','Tim,\n\nCould you provide a RC example that shows the problem ? thanks,','',0,'gIA=','urx8z3x7',1,0,'',2,0,0),(35180,7671,6,53,0,'189.139.25.159',1185317725,1,0,1,1,1,1,'','','Miguel:\n\nDesconozco si en el curso que te recomienda Antonio se menciona pero si no es así, tambien vas a necesitar lo siguiente:\n\n1.- Un editor de texto, de preferencia bajo windows, los hay gratuitos y con costo\n2.- Un editor de recursos, tambien los hay gratuitos y con cargo\n3.- FWH, este es de paga, no hay de otra y Antonio te puede dar precios\n4.- Harbour o xHarbour, gratuitos ambos aunque xHarbour hay versión con costo\n5.- VERCE, una estupenda utilería que te ayuda a crear tus EXE de una manera sumamente sencilla, este es gratuito gracias a JCSO\n\nSi no recuerdo mal es todo lo extra que necesitarás, no solo el código fuente que ya tienes.\n\nSaludos y bienvenido al mundo FW','',0,'gIA=','2ydrleuo',1,0,'',53,0,0),(35181,7670,3,299,0,'24.233.172.101',1185317815,1,0,1,0,1,0,'','','Antonio;\n\nYes,  I have.  Nothing gets assigned.  I think it has to do with the Variant data type that is expected.\n\n\n\nReinaldo.','',0,'gIA=','2yozfuo3',1,0,'',299,0,0),(35182,7672,3,34,0,'68.5.217.82',1185323567,1,0,1,1,1,1,'','ON CHANGE in tGet','Maybe old age is getting me.\n\nI thought the ON CHANGE activated when the total value of a get was modified, not for each character entered.  I realize a VALID tests the total value, but I want to run a function only if the total value changes, not everytime the field is displayed.   \n\n Currently, ON CHANGE will activate with every keystroke, as demonstrated in the following example.  Is this a correct behavior ?\n\n// Test On Change in get\n#INCLUDE \"fivewin.CH\"\n\nPROCEDURE main\n\n   LOCAL oDlg\n   LOCAL oTestGet := SPACE(10)\n\n    DEFINE DIALOG oDlg SIZE 500, 300\n\n   @ 3, 10 GET oTestGet PICTURE \"@!\" ON CHANGE ( MsgAlert( \"Changed\" ) )\n\n ACTIVATE DIALOG oDlg\n\nRETURN NIL','',0,'gIA=','32ha0xi1',1,0,'',34,0,0),(35183,7672,3,303,0,'72.199.41.171',1185325104,1,0,1,1,1,0,'','','Tim,\n\nYes, that is the correct behavior for bChange. It is used to do special processing while the data is being input. You can use it for custom pictures, etc.\n\nAs you said, use the VALID clause. To use bValid just store the \"before\" value in a var and then test it with the after value in bValid. bValid won\'t be eval\'d unless the user enters the field. If you are using a database, you can check the get var against the field contents to see if it has been changed instead of creating a \"before\" var.\n\nJames','',0,'gIA=','3ji4ofor',1,0,'',303,0,0),(35184,7551,3,34,0,'68.5.217.82',1185325263,1,0,1,1,1,1,'','Resouce','Posting an .rc would be a bit complicated.\n\nI built the .rc file originally with Borland Workshop.  All of the fonts were Arial, 8.  That didn\'t display well in the program, so I defined the font in the program as MS Sans Serif, -12, and aplied it to the main window, and inherited it to all of the dialogs.  Then I was using RESIZE 16\n\nRsource Workshop was rebelling against my XP computer so I started using Pelles but what I saw in that resource editor, and what displays on screen are two different looks.  If I try changing the .RC to MS Sans Serif for the font, I cannot get it to match what the program displays.\n\nI tried Resource Builder ( SiComponents ), and with that the dialogs would not open on the folder pages.  The folder dialog was centered on the screen, and the dialogs stacked on the upper left corner of the screen.  They had no answer.\n\nWhat I want to do is get a good font in the .RC file, and if I set that same font in the program, I want what I create in the resource editor to match what I see when the program runs.  I\'ve been unsuccessful so far.','',0,'gIA=','39x97b05',1,0,'',34,0,0),(35185,7672,3,34,0,'68.5.217.82',1185325751,1,0,1,1,1,1,'','VALID','James,\n\nUsing tData, I\'m editing  oDbf:var1 for example, and if I now change the content in the dialog, how can I validate against the original database unless I store a new var on loading the record ?\n\nTim\n\nie&gt;\n\n   REDEFINE GET oGt1 VAR oDbf:var1 ID 201 OF oDlg ;\n   VALID  testvalue( ) \n\nWhere testvalue( ) only executes if the originally saved value of oDbf:var1 is changed in this control ?\n\nI know I can read the value at load and store it to a variable that executes if there is a change, but I wanted to avoid the extra code if I can read the data ....','',0,'gIA=','32urwim5',1,0,'',34,0,0),(35186,7671,6,396,0,'200.71.186.241',1185326478,1,0,1,1,1,1,'','','Bueno yo le agregaria lo siguiente...\n1 buen computador para que te sientas comodo con FWH\ny los mas importatntes....\ntienes este gran FORO en el cual estaremos contentos de ayudarte en lo posible y sin costo... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->   aun no he encontrado pregunta o solicitud de ayuda que no haya encontrado aca...\n\nEDITOR DE TEXTO: MULTIEDIT...(con pago)\nEDITOR DE RECURCO: PELLES C (gratuito)\nVERCE: lo maximo para mi (gratuito)\nHARBOUR y XHARBOR (gratuito)\nFWH (con pago)\n\ncomo ya te han dicho, BIENVENIDO AL MUNDO DE POCOS....entre los MUCHOS...','',0,'gIA=','2901ig59',1,0,'',396,0,0),(35187,7551,3,303,0,'72.199.41.171',1185326678,1,0,1,1,1,0,'','','Tim,\n\n&gt;Posting an .rc would be a bit complicated. \n\nWithout a sample of the problem, it is very much more complicated for someone to try to find a fix.\n\n&gt;I built the .rc file originally with Borland Workshop. All of the fonts were Arial, 8. That didn\'t display well in the program, so I defined the font in the program as MS Sans Serif, -12, and aplied it to the main window, and inherited it to all of the dialogs. Then I was using RESIZE 16.\n\nHmm, so you created the dialogs using one font then changed the font at runtime? And the dialogs looked the same? \n\n&gt;Resource Workshop was rebelling against my XP computer...\n\nIn what way? I have never had a problem running RW under XP (Pro, SP2). Does everything work with RW?\n\n&gt;... so I started using Pelles but what I saw in that resource editor, and what displays on screen are two different looks. If I try changing the .RC to MS Sans Serif for the font, I cannot get it to match what the program displays.\n\nWhy is it that you don\'t like the default windows font? \n\n&gt;I tried Resource Builder ( SiComponents ), and with that the dialogs would not open on the folder pages. The folder dialog was centered on the screen, and the dialogs stacked on the upper left corner of the screen. They had no answer.\n\nIt would seem that you should be able to build a simple example of this. Does everything work when using the default font? \n\n&gt;What I want to do is get a good font in the .RC file, and if I set that same font in the program, I want what I create in the resource editor to match what I see when the program runs. I\'ve been unsuccessful so far.\n\nIt seems all your problems stem from the use of a font other than the default. Does everything work when using the default font? What about a different non-default font, other than the one you are now using?\n\nJames','',0,'gIA=','2wmzya2v',1,0,'',303,0,0),(35188,7671,6,1119,0,'201.100.2.252',1185326708,1,0,1,1,1,0,'','En teoria el FiveWin','En Teoria FiveWin esta legal... o no se como  lo conseguiira la persona que estuvo desarrollando para la empresa... como puedo saber o que debo de correr para entrar en el ambiente? que nombre de ejecutable ejecuto(valga la redundancia), que rutas debo de checar..?\n\no es un topic nuevo?\n\nPor lo pronto yo me copie a mi laptop todo lo que se me hacia sospechoso que podria servirme... \n\nGracias','',0,'gIA=','kwvwby1n',1,0,'',1119,0,0),(35189,7672,3,303,0,'72.199.41.171',1185327830,1,0,1,1,1,0,'','','Tim,\n\n&gt;Using tData, I\'m editing oDbf:var1 for example, and if I now change the content in the dialog, how can I validate against the original database unless I store a new var on loading the record ? \n\nTry this:\n\nREDEFINE GET oGt1 VAR oDbf:var1 ID 201 OF oDlg ; \nVALID if( oDbf:var1 &lt;&gt; (oDbf:cAlias)-&gt;var1, msgInfo( \"Changed\"),)\n\nThe upside is that you don\'t have any extra code, the downside is that this requires a disc read. But it will only do a disc read if the user enters the field.\n\nAnother approach is to create a subclass of TData or TCustomer or whatever you are using, and add another buffer array. In the load() method copy the data to this array also. Then you can test every field against the original without another disk read and without any more code (the same code is reused everywhere your database class is used).\n\n[code:205bg2q5]class TXData from TData\n   data aOriginal init &#123;&#125;\n   method load\nendclass\n\nmethod load&#40;&#41;\n   super&#58;load&#40;&#41;\n   acopy&#40;&#58;&#58;aBuffer, &#58;&#58;aOriginal&#41;\nreturn nil[/code:205bg2q5]\n\n[Note: I always recommend using a subclass of TData for each application, even if it starts out empty. Then you use this class in your app. When you later want to add a generic feature to the database class, you can just add it to this one subclass, and the entire application will inherit it without any other code changes.]\n\nJames','',0,'AIA=','205bg2q5',1,0,'',303,0,0),(35190,7640,3,267,0,'201.9.141.139',1185328470,1,0,1,1,1,1,'','','Antonio,\n\nThanks.','',0,'AIA=','2idlqkhx',1,0,'',267,0,0),(35191,7664,3,267,0,'201.9.141.139',1185328563,1,0,1,1,1,1,'','','Antonio,\n\nThanks.','',0,'AIA=','b61mv1gl',1,0,'',267,0,0),(35192,7671,6,138,0,'189.141.69.200',1185330844,1,0,1,1,1,1,'','','Casi todos los FW que se han vendido en Mexico los hemos vendido nosotros, despues de comprarlos con FiveTech.\r\n\r\nEn cada producto de vendemos incluimos impresa la tarjeta de registro que nos envia FiveTech como comprobante de la compra del producto, si cuentas con el FW original comprado con nosotros, tendrias que tener un CD, una cajita de DVD y la tarjeta que te menciono.\r\n\r\nSi la persona que desarrollo el punto de venta lo adquirió con FiveTech directamente entonces recibio toda la documentacion por correo electrónico.\r\n\r\nPor otro lado, FiveWin no tiene un entorno visual, funciona como Clipper, es decir, tienes que tener un editor de programas, en internet hay muchos y muy buenos, un editor de recursos, también hay varios, y si vas a trabajar con Harbour, tendras que tener el compilador correspondiente y el C++ Borland que es la combinación que usualmente se maneja.','',0,'AIA=','3hal13ao',1,0,'',138,0,0),(35193,7633,3,154,0,'151.21.34.185',1185339859,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1gtlwewp]Tone() is a Harbour/xHarbour function. You will have to report such bug in the Harbour/xHarbour mailing list[/quote:1gtlwewp]\n\nAntonio,\nthank you for your reply, \ncan you confirm?','',0,'gA==','1gtlwewp',1,0,'',154,0,0),(35194,7665,3,154,0,'151.21.34.185',1185340341,1,0,1,1,1,1,'','Re: Scroll Window Problem','[quote=&quot;Eroni&quot;:3gwjzrbi]Dears\n\nI thinked that this problem was fixed in fwh 7.5, but no, any suggestions?[/quote:3gwjzrbi]\n\nHi Eroni,\n\nwith FWHX 7.04, xHb 0.99.71 and Windows Vista Business work well.','',0,'gA==','3gwjzrbi',1,0,'',154,0,0),(35195,7618,6,102,0,'87.217.67.138',1185341659,1,0,1,1,1,1,'','','Gracias lo probare y veremos que hace','',0,'gA==','1d4myjvb',1,0,'',102,0,0),(35196,7673,19,1120,0,'80.33.255.201',1185347849,1,0,1,1,1,0,'','Migración de Clipper.','Hola Antonio.\n\nHace muchos años que empecé con Clipper y mantengo una aplicación de gestión en dos empresas. Por otra parte, me hace ilusión escirbirte, ya que te recuerdo de cuando trataba con Grupo Eidos.\n\nEl caso es que hace una semana he decicido migrar la aplicación clipper a Windows y comencé a leer en Internet, pero mi sorpresa fue ver tantos productos, entre ellos FiveWin, C3, xHarbour, ... y, es por esto, por lo que te pido consejo.\n\nEl software que utilizo actualmente es el siguiente: \n\nClipper 5.01, Blinker 2.01, FirsClass 1.0, Funcky 2.0 y NetLib 5.20b\n\nLa gran pregunta es como migrar con los mínimos problemas a otro entorno y seguir programando de forma similar a Clipper, para no tener además que cambiar de lenguaje, al menos en un principio.\n\nUn saludo','',0,'gA==','303zitol',1,0,'',1120,0,0),(35197,7669,2,2,0,'87.218.146.251',1185360444,1,0,1,1,1,1,'','','oGet:bGotFocus = { || oGet:SelectAll() }','',0,'gA==','32nfi7og',1,0,'',2,0,0),(35198,7445,6,2,0,'87.218.146.251',1185360734,1,0,1,1,1,1,'','','FWH usa la función SetSystemTime() del API de Win32 desde la función SetDate(). Esta es la documentación de SetSystemTime():\n\nThe SetSystemTime function sets the current system time and date. The system time is expressed in Coordinated Universal Time (UTC). \n\nBOOL SetSystemTime(\n\n    CONST SYSTEMTIME *lpSystemTime 	// address of system time to set \n   );	\n \nParameters\nlpSystemTime\n\nPoints to a SYSTEMTIME structure that contains the current system date and time. \nThe wDayOfWeek member of the SYSTEMTIME structure is ignored. \n\nReturn Values\nIf the function succeeds, the return value is nonzero.\nIf the function fails, the return value is zero. To get extended error information, call GetLastError\n. \n\nRemarks\nWindows NT: The SetSystemTime function fails if the calling process does not have the SE_SYSTEMTIME_NAME privilege. This privilege is disabled by default. Use the AdjustTokenPrivileges function to enable this privilege and again to disable it after the time has been set. For more information about security privileges, see Privileges. \nWindows 95: Security privileges are not supported or required.\n\nSee Also\nAdjustTokenPrivileges, GetSystemTime, SetSystemTimeAdjustment, SYSTEMTIME, SystemTimeToTzSpecificLocalTime','',0,'gA==','3vpas7bt',1,0,'',2,0,0),(35199,7665,3,2,0,'87.218.146.251',1185361112,1,0,1,1,1,1,'','','With FWH 7.07 and Vista Ultimate 32 bits is working fine:\n[url=http&#58;//imageshack&#46;us:2j6ihv15][img:2j6ihv15]http&#58;//img341&#46;imageshack&#46;us/img341/5866/eronigg4&#46;jpg[/img:2j6ihv15][/url:2j6ihv15]','',0,'GA==','2j6ihv15',1,0,'',2,0,0),(35200,7633,3,2,0,'87.218.146.251',1185361649,1,0,1,1,1,1,'','','Ugo,\n\nHere it is working fine with FWH 7.07 and Windows Vista Ultimate 32 bits','',0,'GA==','3jpfsk59',1,0,'',2,0,0),(35201,7670,3,2,0,'87.218.146.251',1185362230,1,0,1,1,1,1,'','','Reinaldo,\n\nAre you using harbour or xharbour ?','',0,'GA==','gw7k0idl',1,0,'',2,0,0),(35202,7619,7,2,0,'87.218.146.251',1185362389,1,0,1,1,1,1,'','','Luis,\n\nFWPPC proporciona AnsiToWide() y WideToAnsi() que hacen ese trabajo automaticamente','',0,'GA==','zjiprz07',1,0,'',2,0,0),(35203,7673,19,2,0,'87.218.146.251',1185362972,1,0,1,1,1,1,'','','Emilio,\n\nNuestra recomendación es FWH (FiveWin para Harbour/xHarbour) que es el producto más utilizado por nuestros usuarios. \n\nRevisa esta página: <!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/spanish/fwh.html\">http://www.fivetechsoft.com/spanish/fwh.html</a><!-- m -->\n\nPuedes adquirirlo desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos. Gracias,','',0,'GA==','2o525tmx',1,0,'',2,0,0),(35204,7670,3,299,0,'24.233.172.101',1185367532,1,0,1,0,1,0,'','','xharbour.','',0,'GA==','2hi6uilb',1,0,'',299,0,0),(35205,7670,3,2,0,'87.218.146.251',1185369761,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease do this: tlib fivehc.lib - ole.obj   \n\nand try it again','',0,'GA==','2xv7v2zq',1,0,'',2,0,0),(35206,7674,6,108,0,'190.48.139.179',1185370460,1,0,1,1,1,0,'','Impresoras Fiscales (Argentina)','Amigos del Foro: Les comento que existe una .LIB para impresoras EPSON, OLIVETTI, NCR etc... que fue desarrollado y funciona  para harbour por Marcelo de <!-- w --><a class=\"postlink\" href=\"http://www.impresoras-fiscales.com.ar\">www.impresoras-fiscales.com.ar</a><!-- w -->, con quien deben contactarse para su adquisicion (hay que darle una mano .....) yo lo estoy usando en una EPSON TM-U220A y funciona perfectamente ..........\n\nCarlos Marucco\nRio Gallegos - Santa Cruz\nPATAGONIA ARGENTINA','',0,'GA==','247491xq',1,0,'',108,0,0),(35207,7670,3,299,0,'24.233.172.101',1185370940,1,0,1,0,1,0,'','','[quote:2aa2oubh]\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_OLEGETPROPERTY\' referenced from F:\\FWH_2.7\\LIB\\FIVEHC.LIB|ACTX\nError: Unresolved external \'_HB_FUN_OLESETPROPERTY\' referenced from F:\\FWH_2.7\\LIB\\FIVEHC.LIB|ACTX\nError: Unresolved external \'_HB_FUN_OLEINVOKE\' referenced from F:\\FWH_2.7\\LIB\\FIVEHC.LIB|ACTX\n[/quote:2aa2oubh]\n\nReinaldo.','',0,'gA==','2aa2oubh',1,0,'',299,0,0),(35208,7670,3,2,0,'87.218.146.251',1185372007,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease try this:\n[code:2r1u2tdb]\nfunction OleGetProperty&#40; hObj, cPropName &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n\n   o&#58;hObj = hObj\n\nreturn __ObjSendMsg&#40; o, cPropName &#41;\n\nfunction OleSetProperty&#40; hObj, cPropName, uValue &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n\n   o&#58;hObj = hObj\n\nreturn __ObjSendMsg&#40; o, &quot;_&quot; + cPropName, uValue &#41;\n\nfunction OleInvoke&#40;&#41;\n\n   MsgInfo&#40; &quot;not implemented yet&quot; &#41;\n\nreturn nil\n[/code:2r1u2tdb]','',0,'AIA=','2r1u2tdb',1,0,'',2,0,0),(35209,7670,3,299,0,'24.233.172.101',1185373257,1,0,1,0,1,0,'','','I see what you are trying to do.  But I\'m using fwh Tactivex class.  Now this piece of code fails.  \n[code:mxjxevmy]\nTRY\n	&#58;&#58;oActiveX &#58;= TActiveX&#40;&#41;&#58;New&#40; &#58;&#58;oWnd, &quot;MSSR300&#46;MSSR300Ctrl&#46;1&quot; &#41;\nEND\n[/code:mxjxevmy]\n\nI get the msginfo \"not implemented yet\".\n\nReinaldo.','',0,'AIA=','mxjxevmy',1,0,'',299,0,0),(35210,7670,3,2,0,'87.218.146.251',1185374947,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease make this change to force an error and see where OleInvoke() is called from, thanks\n[code:3brvyd28]\nfunction OleInvoke&#40;&#41;\n\n   x++\n\nreturn nil \n[/code:3brvyd28]','',0,'AIA=','3brvyd28',1,0,'',2,0,0),(35211,7670,3,299,0,'24.233.172.101',1185376410,1,0,1,0,1,0,'','','I did this instead:\n[code:38s6cv3u]\nfunction OleInvoke&#40;&#41; \nlocal x\n   x++ \n\nreturn nil \n[/code:38s6cv3u]\n\nGot this:\n[quote:38s6cv3u]\nApplication\n===========\n   Path and name: F:\\mp\\PathLabs.exe (32 bits)\n   Size: 3,274,752 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 07/25/2007, 11:11:18\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = U   \n     [   2] = N   1\n\nStack Calls\n===========\n   Called from:  =&gt; ACTXINVOKE(795)\n   Called from: ACTIVEX.PRG =&gt; TACTIVEX&#058;DO(0)\n[/quote:38s6cv3u]\n\nReinaldo.','',0,'gIA=','38s6cv3u',1,0,'',299,0,0),(35212,7670,3,2,0,'87.218.146.251',1185376634,1,0,1,1,1,1,'','','Reinaldo,\n\nDon\'t you get more calls previous to ?\n\nCalled from: ACTIVEX.PRG =&gt; TACTIVEX&#058;DO(0)','',0,'gIA=','1ebmeppj',1,0,'',2,0,0),(35213,7671,6,987,0,'189.132.6.196',1185376696,1,0,1,1,1,0,'','','Hola y Bienvenido al foro:\n\nTambien tendras que averiguar si el sistema que ya estaba implantado y con ayuda del código fuente con el que cuentas, si usa librerias de terceros, estos te ayudan un buen pa hacer cosas que solo con fivewin es casi imposible, solo pa que te des una idea:\n\nClase TWBROWSE  de Hernan Diego Ceccarelli para browsers potentes y faciles\n         TIMAGE        de  Enrico Maria Giordano para ver en los dialogos y ventanas images en JPG, Gif, PNJ y porsupuesto BMP\n         TBTNGET      de  Ricardo Ramirez para poner BMP en la parte izquierda del get y hacer una acción, como mostrar calendario\n         TGRAPH       de  Alfredo Arteaga para Hacer Gráficas de todo tipo\n          TXTPREVIEW de  Ednaldo Rolim para imprimir reportes en impresoras DOS con vista previa\n         TREPORT  de Renomas para Traspasar reportes a Excel..\n\nEn fin hay muchas funciones y clases que podrás encontrar en este foro y que te ayudaran a hacer más robusta y potente tu aplicación, por mencionarte algunas pocas, otras son de pago como las de canalfive (<!-- w --><a class=\"postlink\" href=\"http://www.canalfive.com\">www.canalfive.com</a><!-- w -->), pero que dan mucha vista a tus sistemas, en fin, hay de todo en este foro, y la ventaja tambien es que nos dan soporte tanto Antonio Linares y rf que son los maestros de Fivewin.\n\nSi gustas ponte en contacto conmigo, yo ya pase un sistema de Inventario que realize de Clipper 5.1 puro y duro a Clipper 5.3 + Fivewin(16Bits)  y ahora la estoy emigrando a 32bits con Fivewin + xHarbour, obiamente es una plataforma mucho más estable que la de 16Bits, Si te animas te recomiendo que lo hagas poco a poco a 32bits, ya que los sistemas a 16bits ya estan desapareciendo y son pocos los equipos que trabajan sin problemas con ellos.\n\nEste es mi correo pa cuando tengas dudas:\n\n <!-- e --><a href=\"mailto:danyleon82@hotmail.com\">danyleon82@hotmail.com</a><!-- e -->\n\nCon gusto te atendere paisano.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nSaludos desde San cristobal de las Casas, Chiapas\n\nMuy pronto mi portal electronico:  <!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'gIA=','1fayeo3f',1,0,'',987,0,0),(35214,7670,3,299,0,'24.233.172.101',1185376969,1,0,1,0,1,0,'','','No.  That\'s an actual cut and paste from the error.log file.  \n\nHere is the complete list:\n[quote:3gbeplok]\n\nApplication\n===========\n   Path and name: F:\\mp\\PathLabs.exe (32 bits)\n   Size: 3,274,752 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 07/25/2007, 11:11:18\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = U   \n     [   2] = N   1\n\nStack Calls\n===========\n   Called from:  =&gt; ACTXINVOKE(795)\n   Called from: ACTIVEX.PRG =&gt; TACTIVEX&#058;DO(0)\n   Called from: tVoiceRec.prg =&gt; TMSSR300:INIT(57)\n   Called from: tVoiceRec.prg =&gt; TVOICEREC:NEW(163)\n   Called from:  =&gt; DOACCNTSBRWSER(1154)\n   Called from: pathlogn.prg =&gt; ACCNTSBRWSER(1075)\n   Called from: main.prg =&gt; (b)FRAMEBAR(377)\n   Called from: tsbutton.prg =&gt; TSBUTTON:CLICK(804)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: tsbutton.prg =&gt; TSBUTTON:HANDLEEVENT(1308)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: main.prg =&gt; START(80)\n[/quote:3gbeplok]\n\nNothing else.\n\n\nReinaldo.','',0,'gA==','3gbeplok',1,0,'',299,0,0),(35215,7670,3,2,0,'87.218.146.251',1185378517,1,0,1,1,1,1,'','','Reinaldo,\n\nWhat source code do you have here ?\n\ntVoiceRec.prg =&gt; TMSSR300:INIT(57)\n\nTry to comment it out, if possible','',0,'gA==','zsgaz828',1,0,'',2,0,0),(35216,7670,3,299,0,'24.233.172.101',1185379143,1,0,1,0,1,0,'','','Antonio,\n[quote:2yu1s2a6]\nApplication\n===========\n   Path and name: F:\\mp\\PathLabs.exe (32 bits)\n   Size: 3,274,752 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 07/25/2007, 11:53:28\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = U   \n     [   2] = N   1\n\nStack Calls\n===========\n   Called from:  =&gt; ACTXINVOKE(789)\n   Called from: ACTIVEX.PRG =&gt; TACTIVEX&#058;DO(0)\n   Called from: tVoiceRec.prg =&gt; TMSSR300:INIT(57)\n   Called from: tVoiceRec.prg =&gt; TVOICEREC:NEW(164)\n   Called from:  =&gt; DOACCNTSBRWSER(1154)\n[/quote:2yu1s2a6]\n\nLine 57 is:\n[code:2yu1s2a6]\n	&#58;&#58;oActiveX&#58;do&#40; &quot;Reset&quot; &#41;\n[/code:2yu1s2a6]\n\nBut remember that I included:\n[code:2yu1s2a6]\nfunction OleInvoke&#40;&#41;\nlocal x\n   x++    //&lt;== this is line 789\n\nreturn nil\n[/code:2yu1s2a6]\n\nPlease allow me to send you the ocx with its documentation and sample code for your testing.  I can create a very small .prg sample code.\n\n\nReinaldo.','',0,'gIA=','2yu1s2a6',1,0,'',299,0,0),(35217,7675,6,24,0,'80.24.12.168',1185379316,1,0,1,1,1,1,'','CopyFileEx','Usando CopyFileEx, con fivewin , por ejemplo.\n\nBueno, en un proyecto he tenido que copiar un fichero de un sitio a otro,\nsi bueno teniamos la funcion MyCopyFile() que teniamos implementada en\nFivewin de la siguiente manera:\n[code:940pfec4]\nDLL32 FUNCTION MYCOPYFILE&#40; lpExistingFileName AS STRING, lpNewFileName AS STRING, bFailIfExists AS LONG&#41; AS LONG;\nPASCAL FROM &quot;CopyFileA&quot; LIB &quot;kernel32&#46;dll&quot;[/code:940pfec4]\n\nDicha funcion, para copiar ficheros de 1 o 2 megas, funciona muy bien, porque \nda tiempo a nuestra aplicación que no se vuelva con un \'( No responde )\'.\n\nSi no lo crees, muy simple, intenta copiar un fichero de 100 Megas, y me cuentas <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nBásicamente, es porque nosotros HEMOS PERDIDO TOTALMENTE el control sobre nuestra\naplicacion, y no podemos recibir/enviar mensajes a Windows en que punto estamos.\n\nEsto tiene fácil solución, nos hacemos nuestra propia función CopyFile().\nEl mayor inconveniente es que tenemos que hacerla <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->, y eso, es un paso atrás.\n\n¿ Como podemos hacerlo entonces ? Muy simple usando la funcion CopyFileEx(), disponible en el API win32.\n\nDicha función no funciona bajo los Windows 98 o similares, estáis advertidos, o eso dicen las malas lenguas.\n\nBien, sin más dilaciones vamos a realizar la implementación, y eso si,\naqui vamos a usar C, por cuestión de velocidad.\n\nNuestro prototipo \n[b:940pfec4]CopyFileEx( Fichero_Origen, Fichero_Destino, bCodeblock ) --&gt; nResult[/b:940pfec4]\nFichero_Origen y Fichero_Destino no necesitan explicación.\nbCodeblock , es un bloque de código que nos va a pasar ;\n[b:940pfec4]{ |nPorcentaje, nTotal, nTransferido | MyFunction( nPorcentaje, nTotal, nTransferido ) }[/b:940pfec4]\n\nUn ejemplo de llamada;\n[code:940pfec4]\n if &#40; COPYFILEEX &#40; cFile_Path_MDB , cFile_Path_Repara+&quot;\\TPVMAL&#46;MDB&quot;, &#123;|x,y,z| pasa&#40;x,y,z&#41; &#125; &#41; == 0 &#41;\n    ? &quot;MAL&quot;\n endif[/code:940pfec4]\n   \nAh!, Ahora puedes ver, que encima vamos a poder montar una progressbar , \npor ejemplo, para ir mostrando el % que va quedando, es el primer parámetro,\nque simplemente resulta de ;\n   [b:940pfec4]nPorcentaje =  nTransferido * 100 / nTotal [/b:940pfec4]\n\nLo he pasado como parámetro al codeblock, porque de esta manera, ya lo tienes\ncalculado a nivel de C, no perdiendo más tiempo.\n\nLo importante es que puedes crear una funcion como;\n\n[code:940pfec4]STATIC s_lCancel &#58;= &#46;F&#46;\n\n#define PROGRESS_CONTINUE 0\n#define PROGRESS_CANCEL   1 \n\nSTATIC FUNCTION PASA&#40; nPorcentaje, nTotal, nTransferido &#41;\n    static nPasa &#58;= 0\n    \n    if nPasa &gt; 10\n       SysRefresh&#40;&#41;\n       nPasa &#58;= 0\n    endif\n    nPasa++\n    oProgress&#58;SetPos&#40; nPorcentaje &#41;\n    \nreturn&#40; if&#40; s_lCancel, PROGRESS_CANCEL, PROGRESS_CONTINUE  &#41; &#41;\n[/code:940pfec4]\n\nUy! ¿ Pero que ven tus ojitos!! ? Si , PUEDES CANCELAR también lo que\nestas copiando, <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> , muy útil si quieres cancelar un archivo de 500 Megas,\npor ejemplo, créeme.\n\nEn este caso, por ejemplo, puedes poner un botón similar a esto;\n  [b:940pfec4]REDEFINE BUTTON oBtn ACTION ( s_lCancel := .T. ) ID 110 OF oWnd[/b:940pfec4] \n\nEl cambiar el estado de la variable static s_lCancel, simplemente hará\nque cuando el codeblock se vuelva a ejecutar, lo cancelará.\n\nAhora bien, todo esto no es posible sin el codigo fuente de C, asi\nque dejo paso al codigo fuente;\n[code:940pfec4]\n#pragma BEGINDUMP\n#include &lt;windows&#46;h&gt;\n#include &lt;stdio&#46;h&gt;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;item&#46;api&quot;\n#include &quot;hbapiitm&#46;h&quot;\n#include &quot;hbvm&#46;h&quot;\n#include &quot;hbapiitm&#46;h&quot;\n\n/*\n Convertimos un valor LARGE_INTEGER a double\n*/\n double clarge2int&#40; DWORD Lo, DWORD Hi &#41;\n &#123;\n  double dblLo, dblHi;\n  double ret;\n\n  if&#40; Lo &lt; 0  &#41;&#123;\n     dblLo = 2 ^ 32 + Lo ;\n  &#125; else &#123;\n     dblLo = Lo;\n  &#125;\n\n  if&#40; Hi &lt; 0 &#41; &#123;\n    dblHi = 2 ^ 32 + Hi;\n  &#125; else &#123;\n    dblHi = Hi;\n  &#125;\n  \n  ret = &#40; dblLo + dblHi&#41;;\n\n  return&#40; ret &#41;;\n &#125;\n\nDWORD CALLBACK CopyProgressRoutine&#40;\n  LARGE_INTEGER TotalFileSize,\n  LARGE_INTEGER TotalBytesTransferred,\n  LARGE_INTEGER StreamSize,\n  LARGE_INTEGER StreamBytesTransferred,\n  DWORD dwStreamNumber,\n  DWORD dwCallbackReason,\n  HANDLE hSourceFile,\n  HANDLE hDestinationFile,\n  LPVOID pCallback_Progress\n&#41;\n&#123;\n   double TotalSize = clarge2int&#40; TotalFileSize&#46;u&#46;LowPart, TotalFileSize&#46;u&#46;HighPart &#41;;\n   double TotalBytesTrans = clarge2int&#40; TotalBytesTransferred&#46;u&#46;LowPart, TotalBytesTransferred&#46;u&#46;HighPart &#41;;\n   double percent =  TotalBytesTrans * 100 / TotalSize ;\n                                            \n    if&#40; pCallback_Progress &#41; &#123;\n        hb_vmPushSymbol&#40; &amp;hb_symEval &#41;;\n        hb_vmPush&#40; pCallback_Progress &#41;;\n        hb_vmPushDouble&#40; percent,1 &#41;;\n        hb_vmPushDouble&#40; TotalSize,1 &#41;;\n        hb_vmPushDouble&#40; TotalBytesTrans,1 &#41;;\n        hb_vmSend&#40; 3 &#41;;     \n        return&#40; hb_parni&#40; -1 &#41; &#41;;\n     &#125;\n\n return PROGRESS_CONTINUE;\n &#125;\n\n\nHB_FUNC&#40; COPYFILEEX &#41;\n&#123;\n  LPCTSTR lpExistingFileName = hb_parc&#40; 1 &#41;;\n  LPCTSTR lpNewFileName = hb_parc&#40; 2 &#41;;\n  LPPROGRESS_ROUTINE lpProgressRoutine = &#40; void * &#41;CopyProgressRoutine ;\n  LPBOOL pbCancel = NULL;\n  DWORD dwCopyFlags;\n  BOOL ret; \n  PHB_ITEM pCallback_Progress;\n  \n  if&#40; ! ISNIL&#40; 3 &#41; &#41; &#123;\n     pCallback_Progress = hb_itemNew&#40; hb_param&#40; 3, HB_IT_ANY &#41; &#41;;\n     &#125;\n\n  ret = CopyFileEx&#40; lpExistingFileName, lpNewFileName, lpProgressRoutine, pCallback_Progress, pbCancel, NULL &#41;;\n  hb_retni&#40; ret &#41;;\n  hb_itemRelease&#40; &#40;PHB_ITEM&#41; pCallback_Progress &#41;;\n\n &#125;\n\n#pragma ENDDUMP\n[/code:940pfec4]\n Lo que más me a costado no a sido la implementación de la funcion en si\n misma, si no, convertir un LARGE_INTEGER en un valor double.\n\n No es una función portable del API de Windows para Harbour, es una adaptación \n a una necesidad en concreto, si lo quereis hacer compatible con el API de \n Windows, ahi tenéis un punto de partida, por mi parte no pienso mejorarla \n más.\n\nAntonio, seria interesante portar esta funcion a Fivewin.\nLos warnings de C, son porque no se usan ciertos parametros de la callback, no se como decirle al compilador que no los muestre.','',0,'QIA=','940pfec4',1,0,'',24,0,0),(35218,7670,3,2,0,'87.218.146.251',1185379356,1,0,1,1,1,1,'','','Reinaldo,\n\n&gt;\nPlease allow me to send you the ocx with its documentation and sample code for your testing. I can create a very small .prg sample code. \n&gt;\n\nNo, please lets do some more tests\n\nWill your OCX work if you comment out this line ?\n\n ::oActiveX&#058;do( \"Reset\" )','',0,'QIA=','1dhrn9io',1,0,'',2,0,0),(35219,7551,3,34,0,'68.5.217.82',1185379828,1,0,1,1,1,1,'','Resource editor','\"Without a sample of the problem, it is very much more complicated for someone to try to find a fix. \"\n99% of the time, I can refer to documentation and get the answers I need.  Unfortunately, we are in a grey area with these products because the documentation just doesn\'t exist in a current form.  For example, can you point me to documentation on the construction of an .RC file for FWH ?  \n\n\"Hmm, so you created the dialogs using one font then changed the font at runtime? And the dialogs looked the same? \"\nResource Workshop applied the Arial 8 font to the .RC\'s.  How would I modify / set an .RC file to use the windows default ?\n\n\"In what way? I have never had a problem running RW under XP (Pro, SP2). Does everything work with RW? \"\nI installed RW onto an XP Pro machine a few years ago from my original disks.  It didn\'t want to install, but when it finally did, I constantly had error messages.  I then used the Pelles editor, like a number of xHarbour users, and it was stable until some recent versions.  One issue with it is that if I make changes, there is apparently a reference file that it sees ( I can\'t find it ), and if I need to make the change with a text editor externally, when I again bring up the .RC file it reverts to the previous copy.  However, if I try to make the change in the editor, it has some buggy spots ( controls disappearing, properties not being changeable because the input area flashes and won\'t allow input, etc ).  \n\n\n\"Why is it that you don\'t like the default windows font? \"\nI wouldn\'t have a problem but how do I get that within the .RC ?\n\n\"It seems all your problems stem from the use of a font other than the default. Does everything work when using the default font? What about a different non-default font, other than the one you are now using? \"\n\nThe default windows font would be fine if I had the same display in the .RC','',0,'QIA=','3j5k9mdo',1,0,'',34,0,0),(35220,7672,3,34,0,'68.5.217.82',1185381236,1,0,1,1,1,1,'','Valid / On Change','Thanks.','',0,'QIA=','273li2ml',1,0,'',34,0,0),(35221,7670,3,299,0,'24.233.172.101',1185381332,1,0,1,0,1,0,'','','Antonio;\n\nOk. No problem.  Here is the new code:\n[code:1z6bwxmb]\nMETHOD Init&#40;&#41; CLASS TMSSR300\n\n	DEFINE WINDOW &#58;&#58;oWnd OF &#58;&#58;oOwner FROM -300, -300 TO -300, -300\n	&#58;&#58;oActiveX &#58;= TActiveX&#40;&#41;&#58;New&#40; &#58;&#58;oWnd, &quot;MSSR300&#46;MSSR300Ctrl&#46;1&quot; &#41;\n	&#58;&#58;oActiveX&#58;SetProp&#40; &quot;DataOnly&quot;, 1 &#41;\n	&#58;&#58;oActiveX&#58;SetProp&#40; &quot;NumChannels&quot;, 1 &#41;  //line #82\n	&#58;&#58;oActiveX&#58;SetProp&#40; &quot;RecordTimeLimit&quot;, 180 &#41;\n	&#58;&#58;oActiveX&#58;SetProp&#40; &quot;BitsPerSample&quot;, 100 &#41;\n[/code:1z6bwxmb]\n\nI get a harbour exception error dialog.\n[quote:1z6bwxmb]\nACTVXPDISP(0)\n_EVAL(0)\nTACTIVEX&#058;SETPROP(0)\nTVOICEREC:INIT(82)\n...\n[/quote:1z6bwxmb]\n\n\nReinaldo.','',0,'gIA=','1z6bwxmb',1,0,'',299,0,0),(35222,7551,3,303,0,'72.199.41.171',1185382059,1,0,1,1,1,0,'','','Tim,\n\n&gt;&gt;Without a sample of the problem, it is very much more complicated for someone to try to find a fix. \" \n&gt;99% of the time, I can refer to documentation and get the answers I need. Unfortunately, we are in a grey area with these products because the documentation just doesn\'t exist in a current form. For example, can you point me to documentation on the construction of an .RC file for FWH ?\n\nWhat I meant was, that if you can\'t provide a simple sample showing the problem it is hard for someone else to diagnose and find a fix. I am having a difficult time even understanding exactly what the problem is, so I imagine others are too. If I was to try to solve it, then I would have to try to build a simple example showing the problem myself and I couldn\'t be sure it was the same problem as you are having.\n\n\"Hmm, so you created the dialogs using one font then changed the font at runtime? And the dialogs looked the same? \" \nResource Workshop applied the Arial 8 font to the .RC\'s. How would I modify / set an .RC file to use the windows default ?\n\nI was referring to the default font that the resource editor uses. Workshop uses MS San Serif 8 point. The screens I develop with RW look the same in the application as they do in RW. \n\n&gt;&gt;\"In what way? I have never had a problem running RW under XP (Pro, SP2). Does everything work with RW? \" \n&gt;I installed RW onto an XP Pro machine a few years ago from my original disks. It didn\'t want to install, but when it finally did, I constantly had error messages. \n\nIt sounds like you may have had some damaged files. An original disk is quite old at this point. As I said, it works fine for me--without errror messages.\n\n&gt;&gt;\"Why is it that you don\'t like the default windows font? \" \n&gt;I wouldn\'t have a problem but how do I get that within the .RC ?\n\nI worded that wrong, I meant the default resource editor font.\n\n&gt;&gt;\"It seems all your problems stem from the use of a font other than the default. Does everything work when using the default font? What about a different non-default font, other than the one you are now using? \" \n\n?The default windows font would be fine if I had the same display in the .RC\n\nPerhaps you should try installing Workshop again or just copy the files from an older computer that already has it installed if you have one. Workshop with its default font will solve your problems I believe.\n\nJames','',0,'gIA=','3s6o6lv3',1,0,'',303,0,0),(35223,7551,3,34,0,'68.5.217.82',1185384052,1,0,1,1,1,1,'','Editor','I agree with your comment on examples, and generally I do provide them.  However, the issues were specific to the editors, and I asked specific questions to the authors, and provided the full sample data to the Si guys, but in both cases, when the answer wasn\'t obvious, they failed to respond.\n\nI guess my question from the beginning was relative to what default font were most people using.  I can set the RC to MS Sans Serif 8 for all dialogs and work with that.  \n\nHere is the complication.  If I set the font to that, but I want it BOLD because in shop environments the glare makes the font hard to see, I have to change it at runtime.  So ... wouldn\'t I set the font to MS Sans Serif, -8 BOLD in the program ?    Shouldn\'t I get the same dialog except with bold print ?','',0,'gIA=','3a0jdk8p',1,0,'',34,0,0),(35224,7669,2,518,0,'189.173.58.238',1185385620,1,0,1,1,1,0,'','','GRACIAS ANTONIO CON ESTO SE RESOLVIÓ\n\n\nRENE','',0,'gIA=','20ochyng',1,0,'',518,0,0),(35225,7649,7,867,0,'148.243.37.162',1185385896,1,0,1,1,1,0,'','Hola hola','[quote=&quot;Antonio Linares&quot;:1e5o2sgd]Puedes usar un control \"progress_bar\" que vaya avanzando conforme se realiza la tarea. Revisa samples\\TestProg.prg[/quote:1e5o2sgd]\n\nHola Antonio que tal como esta, no encuentro en mi samples\\TestProg.prg, para ver el ejemplo de progres bar, yo uso FiveWin 2.7, xHarobour y VeRCE, y me podria poner un ejemplo por favor, gracias.\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','1e5o2sgd',1,0,'',867,0,0),(35226,7649,7,2,0,'87.218.146.251',1185388831,1,0,1,1,1,1,'','','Susy,\n\nTestPro.prg es un ejemplo de FWPPC, no de FWH.\n\nPara FWH, revisa samples\\progres1.prg','',0,'gA==','ic1tbhk3',1,0,'',2,0,0),(35227,7676,6,694,0,'201.47.68.81',1185388968,1,0,1,1,1,1,'','Como mostrar dado (say/get) em um recurso COMBOBOX?','Amigos, tenho uma tela de produtos, nesta tela tenho determinado campo que por padrão é uma COMBOBOX, porém, dependendo das configurações, posso ter que mostrar um conteúdo de uma string neste campo. É possivel?\n\ngrato\n\nAoki','',0,'gA==','36s0f6lu',1,0,'',694,0,0),(35228,7670,3,299,0,'24.233.172.101',1185389473,1,0,1,0,1,0,'','','Antonio;\n\nGoing back to the original problem.  Perhaps there is a problem trying to send data from harbour/xharbour to VB Variant Data Type.\n\nYou may try with any OCX that expectes VB Variant Data type.  You will find that you can\'t set an ocx property that expects Variant data type.\n\nJust a thought. \n\n\nReinaldo.','',0,'gA==','3fd6s094',1,0,'',299,0,0),(35229,7670,3,2,0,'87.218.146.251',1185390520,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease modify these functions this way:\n[code:1lla2uqp]\nfunction OleGetProperty&#40; hObj, cPropName &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n   local uRet\n\n   o&#58;hObj = hObj\n   uRet = __ObjSendMsg&#40; o, cPropName &#41;\n   o&#58;hObj = nil\n\nreturn uRet\n\nfunction OleSetProperty&#40; hObj, cPropName, uValue &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n   local uRet\n\n   o&#58;hObj = hObj\n   uRet = __ObjSendMsg&#40; o, &quot;_&quot; + cPropName, uValue &#41;\n   o&#58;hObj = nil\n\nreturn uRet\n\nfunction OleInvoke&#40;&#41;\n\n   MsgInfo&#40; &quot;not implemented yet&quot; &#41;\n\nreturn nil\n[/code:1lla2uqp]','',0,'AIA=','1lla2uqp',1,0,'',2,0,0),(35230,7551,3,2,0,'87.218.146.251',1185390823,1,0,1,1,1,1,'','','Tim,\n\n&gt; the Si guys, but in both cases, when the answer wasn\'t obvious, they failed to respond. \n\nProbably you won\'t get an answer from them as it is an application issue, related to how the resource code is processed. They just generate the RC ascii \n\nThats why we need a simple sample to check it with FWH','',0,'AIA=','3ld9bry6',1,0,'',2,0,0),(35231,7670,3,299,0,'24.233.172.101',1185391602,1,0,1,0,1,0,'','','Ok.  Done.\n\nNow I get the msginfo dialog any time an ocx method is called as expected with your code.  \n\nNo errors.  \n\nBut values do get assiged to the AcmFormat property that\'s expecting VB variant data type.  It seems to work just fine.\n\nCan I remove OleInvoke() and keep the rest?\n\nReinaldo.','',0,'AIA=','1y1lynrt',1,0,'',299,0,0),(35232,7654,6,660,0,'189.149.64.120',1185392478,1,0,1,1,1,0,'','','Luis:\n\nMil disculpas pero te voy a deber la función CURPVerif() ya que el autor no me permite la distibución, esta función solo se encarga de calcular los dígitos verificadores pero obviamente son los que proporciona gobernación los realmente válidos (asignados oficialmente a la persona).\n\nSobre la función FormFec() es original de Grupo Eidos (Librerias en Clipper 5, Ra-ma, Addison-Wesley Iberoamericana, 1992) y a su vez requiere de varias funciones mas, por lo que sería largo el ponertelas todas aqui, envíame un privado.\n\nSALUDOS!!','',0,'AIA=','dlv2w0i5',1,0,'',660,0,0),(35233,7677,6,533,0,'88.25.226.107',1185393032,1,0,1,1,1,0,'','Registro de Windows','Buenas Foro!!\n\nTeneis por ahi ejemplos de:\n\n - Crear una entrada en el registro \n - Acceder a los multiples valores\n - Borrar una entrada.\n\n He estado probando testreg y lo entiendo pero me hace falta un poco más de funcionalidad. El testreg2 no me funciona, pero bueno, como he dicho, si hay alguien que pueda pasarme un ejemplo usando la clase mejor (No logro acceder a ningun dato con las pruebas que he echo yo con la clase, creo que tiene que ser una tonteria)\n\nMUCHAS GRACIAS de antemano.\n\nSALUDOS','',0,'AIA=','1dn4g2jo',1,0,'',533,0,0),(35234,7551,3,34,0,'68.5.217.82',1185393053,1,0,1,1,1,1,'','Resource Compiler','Antonio,\n\nThe guys at Si asked for the resource file so I sent them the original, and their output.  End of story .... no response.\n\nSimply put, they want to claim their product is a 32 bit replacement for Resource Workshop, and they want to sell their product.  They need to respond to a potential client to make a sale.  \n\nI was specific on the problem.  Their editor doesn\'t leave the source file intact.  They make changes, depending on the format, and then xHarbour cannot compile the .rc.  So you have to use their product to build an .res file which doesn\'t work properly.  I gave them the original .rc, the .res their program produces, and told them the problem ( the dialogs don\'t align to the folders ).  \n\nIf you\'re telling me this problem exists in the tool we use ( FWH / xHarbour ), then why do the RC files all work except for the one they modify/create ?\n\nThere is a prevailing attitude amoung too many companies today that you should buy their buggy product, and they will maybe fix the problems some day. I\'m not doing that anymore, and you probably don\'t go for that either.  Thats probably why you still use Resource Workshop.','',0,'AIA=','372o0lqz',1,0,'',34,0,0),(35235,7670,3,2,0,'87.218.146.251',1185393851,1,0,1,1,1,1,'','','Reinaldo,\n\nOleInvoke() should be implemented this way:\n[code:3ww9gz3z]\nfunction OleInvoke&#40; hObj, cMethName, &#46;&#46;&#46; &#41; \n\n   local o &#58;= TOleAuto&#40;&#41; \n   local uRet \n\n   o&#58;hObj = hObj \n   uRet = o&#58;Invoke&#40; cMethName, &#46;&#46;&#46; &#41; \n   o&#58;hObj = nil \n\nreturn uRet \n[/code:3ww9gz3z]\nI am looking for the right way to supply \"...\" variable params list','',0,'AIA=','3ww9gz3z',1,0,'',2,0,0),(35236,7551,3,2,0,'87.218.146.251',1185394112,1,0,1,1,1,1,'','','Tim,\n\nYou are right, now I properly see your point <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','xr9vvqxm',1,0,'',2,0,0),(35237,7678,3,34,0,'68.5.217.82',1185396453,1,0,1,1,1,1,'','wBrowse Header','I\'ve reviewed posts on header colors for the LISTBOX/wBrowse class and the position is that showing no color or background is correct for a themed application.  However, I\'m wondering if there is a way to at least make the header font bold so it will stand out ?  I noticed we could use bitmaps for headers but thats a lot of work when a simple font enhancement would work.  Alternatively, can we place an underline below the header ?  At present there is no separation or differentiation from header to data in a themed application.\n\nThanks','',0,'AIA=','2778988g',1,0,'',34,0,0),(35238,7654,6,891,0,'148.243.37.162',1185398019,1,0,1,1,1,0,'','Hola Israel','[quote=&quot;isolis&quot;:20w5kyv4]Luis:\n\nMil disculpas pero te voy a deber la función CURPVerif() ya que el autor no me permite la distibución, esta función solo se encarga de calcular los dígitos verificadores pero obviamente son los que proporciona gobernación los realmente válidos (asignados oficialmente a la persona).\n\nSobre la función FormFec() es original de Grupo Eidos (Librerias en Clipper 5, Ra-ma, Addison-Wesley Iberoamericana, 1992) y a su vez requiere de varias funciones mas, por lo que sería largo el ponertelas todas aqui, envíame un privado.\n\nSALUDOS!![/quote:20w5kyv4]\n\nHola Israel que tal como esta, yo soy un desarrollador de FiveWin que aun me falta mucho por aprender, soy de Cancun, ya tengo desarrollado un sistema de control de proveedores algo parecido a contabiliad de 3 niveles de cuentas y me gustaria intercambiar conocimientos y experiencias se podra ? le dejo mi correo y gusto saludarte y encontrarme alguien de mi misma localidad Cancun <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nSaludos Adriano C. C\n<!-- e --><a href=\"mailto:acc69@hotmail.com\">acc69@hotmail.com</a><!-- e -->','',0,'gA==','20w5kyv4',1,0,'',891,0,0),(35239,7679,11,578,0,'218.214.68.108',1185408711,1,0,1,0,1,0,'','Porting to (what flavour of) Linux','I purchased FiveWin / xHarbour to develop a package which I really want to run on Linux.  Because of familiarity with Windows environment and looking at levels of activity in these forums I have \"prorotyped\" it in Windows environment but only used the standard windows classes (window, dialog, say, get, get memo, button, menu and listbox),  The only fancy thing I am doing is controlling Word.\n\nNow I am ready (but slightly fearful) to start migrating it to Linux and OpenOffice.\n\nBut I have a few questions.\n\n1. What Linux distribution should I use?  (I have a server box running Centos 5 - debadged Red Hat Enterprise and workstations are currently Fedora Core but happy to change if either easier or better support available)\n\n2. Any advice from those who have bravely gone before?\n\n3. Can anyone give any pointers re controlling Open Office from xHarbour/FiveLinux under Linux?\n\n4. I understand the commercial reality that there isn\'t much revenue for Five Tech from the Five Linux package given small user base but are there any developments happening in this area? If I take out another subscription are you happy to provide support as required? What distribution(s)?\n\n5. The copy I downloaded of Five Linux had an install but not installx etc as listed in the help file - am I missing some bits\n\n6. What if anything are the FiveLinux users doing re context sensitive help?  Should we be working on a simple cross platform FiveWin / FiveLinux help system?\n\nSorry for so many questions but this project is important (to me at least!) and I suspect that there may be others in a similar position.','',0,'gA==','fvqmkjio',1,0,'',578,0,0),(35240,7654,6,98,0,'70.71.111.92',1185409703,1,0,1,1,1,1,'','','Israel:\n\nNo hay problema.\n\nSaludos,\n\n[quote=&quot;isolis&quot;:oak3oka1]Luis:\n\nMil disculpas pero te voy a deber la función CURPVerif() ya que el autor no me permite la distibución, esta función solo se encarga de calcular los dígitos verificadores pero obviamente son los que proporciona gobernación los realmente válidos (asignados oficialmente a la persona).\n\nSobre la función FormFec() es original de Grupo Eidos (Librerias en Clipper 5, Ra-ma, Addison-Wesley Iberoamericana, 1992) y a su vez requiere de varias funciones mas, por lo que sería largo el ponertelas todas aqui, envíame un privado.\n\nSALUDOS!![/quote:oak3oka1]','',0,'gA==','oak3oka1',1,0,'',98,0,0),(35241,7678,3,303,0,'72.199.41.171',1185411203,1,0,1,1,1,0,'','','Tim,\n \n&gt;I\'ve reviewed posts on header colors for the LISTBOX/wBrowse class and the position is that showing no color or background is correct for a themed application.\n\nCan you show a link to that message thread? I have seen headers mostly with gray backgrounds, and some with color.\n\n&gt;However, I\'m wondering if there is a way to at least make the header font bold so it will stand out ? I noticed we could use bitmaps for headers but thats a lot of work when a simple font enhancement would work.\n\nI\'m afraid that TWBrowse uses only one font so you would have to modify the class to use a different font for the header.\n\n&gt; Alternatively, can we place an underline below the header ? At present there is no separation or differentiation from header to data in a themed application.\n\nDo you mean there is no line showing between the header and the first line of data, or that there is a line but you want the line to be bolder?\n\nI would use a colored background. You might also want to look at TSBrowse as it is a lot more flexible (but I don\'t know if you could use a bold font).\n\nJames','',0,'gA==','2fhuejjk',1,0,'',303,0,0),(35242,7679,11,2,0,'87.218.146.251',1185432835,1,0,1,1,1,1,'','','&gt; 1. What Linux distribution should I use ? \n\nYou may use the one that you prefeer, though we strongly recommend Ubuntu. Its the most popular and easy to configure Linux distribution. If you visit IRC channels, you will see Ubuntu is the most crowded one. We also use it, I am typing this msg from Ubuntu 7.04 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; 2. Any advice from those who have bravely gone before?\n\nWe know of a few of our users that already migrated to FiveLinux and are very satisfied.\n\n&gt;\n3. Can anyone give any pointers re controlling Open Office from xHarbour/FiveLinux under Linux?\n&gt;\n\nWe haven\'t done research about it, but surely there is lot of information about it in google\n\n&gt;\n4. I understand the commercial reality that there isn\'t much revenue for Five Tech from the Five Linux package given small user base but are there any developments happening in this area? If I take out another subscription are you happy to provide support as required? What distribution(s)?\n&gt;\n\nWe plan to keep supporting FiveLinux as Linux users base is growing, and many experts agree that Linux is going to get more and more market share\n\n&gt;\n5. The copy I downloaded of Five Linux had an install but not installx etc as listed in the help file - am I missing some bits\n&gt;\n\nYou may need a rebuilt FiveLinux version. No problem about it\n\n&gt;\n6. What if anything are the FiveLinux users doing re context sensitive help? Should we be working on a simple cross platform FiveWin / FiveLinux help system?\n&gt;\n\nWe need to do research about it. We have not done it before as there has not been requests about it yet','',0,'gA==','8g4t5q5u',1,0,'',2,0,0),(35243,7679,11,2,0,'87.218.146.251',1185433282,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1qz9ga6q][img:1qz9ga6q]http&#58;//img507&#46;imageshack&#46;us/img507/4784/screenshotwa1&#46;png[/img:1qz9ga6q][/url:1qz9ga6q]','',0,'GA==','1qz9ga6q',1,1186013480,'',2,1,0),(35244,7678,3,130,0,'141.51.32.24',1185435033,1,0,1,1,1,1,'','','Tim,\n\nyou can use the enhanced class TwBrowse from Hernan. It replaces the original class without changes in your source code.\n\nIt uses the new theader class if themes are detected (controlled by oBrw:lThemed). The color management is also greatly enhanced.','',0,'GA==','2ke9k9q5',1,0,'',130,0,0),(35245,7680,3,904,0,'198.54.202.250',1185443760,1,0,1,1,1,1,'','Spell Checker','Is there a way of running a spell checker on a memo field?','',0,'GA==','jcqq7rev',1,0,'',904,0,0),(35246,7681,2,1099,0,'88.14.189.189',1185444958,1,0,1,1,1,0,'','Modificar base de datos','Hola a todos,\n\nEstoy preparando una actualización de un programa que ya está funcionando y he previsto un exe para hacer las modificaciones pertinentes a la nueva versión. \nTodo lo he podido hacer correctamente pero me encentro con el problema que debo ampliar el tamaño de varios campos de las bases de datos y no se como hacerlo, estos ficheros ya contienen datos y no debería perderlos, solo ampliar la longitud del campo.\nUna posible solución sería crear una nueva base de datos con los tamaños de los campos correctos y luego hacer el traspaso de datos de una a la otra y borrar la que no interesa.\nHay alguna forma de realizar esto de una forma mas sencilla?\n\nGracias por vuestras respuestas.','',0,'GA==','ttpk339b',1,0,'',1099,0,0),(35247,7681,2,2,0,'87.218.146.251',1185446161,1,0,1,1,1,1,'','','Andrés,\n\nhay que hacerlo como tu lo describes. Crear una DBF temporal, con las longitudes nuevas de campos y pasar los datos a ella.\n\nTambien podrías utilizar una aplicación de manejo de DBFs, para hacerlo interactivamente sin tener que programarlo','',0,'GA==','7n1q3npt',1,0,'',2,0,0),(35248,7680,3,2,0,'87.218.146.251',1185446245,1,0,1,1,1,1,'','','Ollie,\n\nYou could check each word against a dictionary everytime the space is pressed, or just once when the text is going to be saved','',0,'GA==','38om1zgs',1,0,'',2,0,0),(35249,7681,2,1099,0,'88.14.189.189',1185447174,1,0,1,1,1,0,'','','Gracias, Antonio, asi lo haré.','',0,'GA==','uelzyppm',1,0,'',1099,0,0),(35250,7672,3,303,0,'72.199.41.171',1185447950,1,0,1,1,1,0,'','','Tim,\n\nThere was something nagging me in the back of mind about this topic and it finally came to me.\n\nIn the old Clipper Get there was a var oGet:original which contained the original data. Unfortunately, in xHarbour this isn\'t working--it always returns nil. Too bad.\n\nHowever, there is a simple workaround and that is to use oGet:cargo. It does require that you force this to be loaded in your code, but by doing this you can avoid an extra disk read or using an extra var. Below is a working sample.\n\nRegards,\nJames\n\n\n[code:xv9z9dex]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oDlg,oGet,oGet2,cVar&#58;=&quot;Test     &quot;,cVar2&#58;=&quot;xxx       &quot;\n\n   define dialog oDlg\n\n   @ 1,1 get oGet var cVar of oDlg ;\n      valid if&#40; oGet&#58;cargo &lt;&gt; oGet&#58;varGet&#40;&#41;, &#40;msgInfo&#40;&quot;Changed&quot;&#41;,&#46;t&#46;&#41;, &#40;msgInfo&#40;&quot;Not changed&quot;&#41;,&#46;t&#46;&#41; &#41;;\n\n      oGet&#58;cargo&#58;= oGet&#58;varGet&#40;&#41;\n\n   @ 2,1 get oGet2 var cVar2 of oDlg\n\n   activate dialog oDlg centered\n\nreturn nil[/code:xv9z9dex]','',0,'AIA=','xv9z9dex',1,0,'',303,0,0),(35251,7680,3,308,0,'84.148.37.55',1185448756,1,0,1,1,1,0,'','Re: Spell Checker','[quote=&quot;Ollie&quot;:3t3juuh1]Is there a way of running a spell checker on a memo field?[/quote:3t3juuh1]\n\nPerhaps that helps you.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.jbooth-consulting.com/products_speller.asp\">http://www.jbooth-consulting.com/products_speller.asp</a><!-- m -->','',0,'gA==','3t3juuh1',1,0,'',308,0,0),(35252,7672,3,6,0,'87.6.213.184',1185452390,1,0,1,1,1,1,'','','Did you try\n\n[code:2b95kj2x]oGet&#58;oGet&#58;Original[/code:2b95kj2x]\n\n?\n\nEMG','',0,'AIA=','2b95kj2x',1,0,'',6,0,0),(35253,7672,3,303,0,'72.199.41.171',1185454680,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Did you try \n\n&gt;oGet:oGet:Original \n\nYes, that is what I was referring to. It has never worked in Harbour or xHarbour as far as I know.\n\nJames','',0,'AIA=','4a0ml3ai',1,0,'',303,0,0),(35254,7672,3,6,0,'87.6.213.184',1185455837,1,0,1,1,1,1,'','','Works fine for me:\n\n[code:1xd0dbrz]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= PADR&#40; &quot;Test&quot;, 20 &#41;\n\n    DEFINE DIALOG oDlg \n\n    @ 1, 1 GET oGet VAR cVar\n\n    oGet&#58;bLostFocus = &#123; || MsgInfo&#40; oGet&#58;oGet&#58;Original &#41; &#125;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1xd0dbrz]\n\nEMG','',0,'AIA=','1xd0dbrz',1,0,'',6,0,0),(35255,7679,11,578,0,'218.214.35.132',1185456317,1,0,1,0,1,0,'','','Thanks for the advice - I\'d better get started - and send in a new subscription\n\nxProgrammer','',0,'AIA=','2bzcwu74',1,0,'',578,0,0),(35256,6814,3,89,0,'213.21.136.60',1185458722,1,0,1,1,1,0,'','','Hello Antonio \n\nis it possible create a table with MySql ? \nI try this but  doesn\'t work\n\n  DbCreate( \"licenze;rag;MYSQL;localhost;root;mauri\",; \n             { { \"FIRST\", \"C\", 10, 0 },; \n               { \"LAST\",  \"C\", 10, 0 },; \n               { \"AGE\",   \"N\",  8, 0 } }, \"ADORDD\" ) \n\nRegards MAurizio','',0,'AIA=','21hutsii',1,0,'',89,0,0),(35257,7682,6,63,0,'88.11.29.132',1185459312,1,0,1,1,1,0,'','Programa muy lento en red','Estoy utilizando FWH 2.6 para hacer una aplicación cuya pantalla principal básicamente contiene un TxBrowse() de una tabla de Clientes con unos 4000 registros.  Para ver solamente un subset de los clientes, aplico un simple filtro por ejemplo: SET FILTER TO Poblacion=\"B\"  (Ya sé que podría utilizar Scopes, pero por otras razones, he de emplear SET FILTER)\n\nMi sistema incluye dos PCs conectados en red local de 100 Mb.   Los datos de clientes se encuentran en uno de los dos PCs, pero pueden ser accedidos desde cualquiera de los ordenadores.  Como veis, un montaje de lo más simple.\n\nY ahora viene mi pregunta: Cuando aplico un filtro desde el PC que contiene los datos, la respuesta es casi instantánea; pero cuando lo hago desde el otro PC, el filtro es lentísimo (hasta 5 segundos o más).  Recuendo hace años, cuando una aplicación similar escrita en DOS/Clipper respondía con toda rapidez desde cualquier PC.\n\n¿Qué puedo estar olvidando? ¿Alguna variable de entorno? ¿Algún Set en mi programa? ¿Tendré que compilar con algún switch en especial?\n\nAlguien puede darme alguna idea al respecto?  Gracias\n\nRafael','',0,'AIA=','jgmjphhg',1,0,'',63,0,0),(35258,7683,6,1106,0,'190.64.228.81',1185460102,1,0,1,1,1,0,'','TouchScreen + Teclado','Amigos:\n\nHay alguna forma de saber si el PC tiene monitor TouchScreen \ny si ademas tiene teclado instalado?\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','1uumd5au',1,0,'',1106,0,0),(35259,7672,3,303,0,'72.199.41.171',1185460486,1,0,1,1,1,0,'','','Enrico,\n\nHmm, that does seem to work, but this doesn\'t. It returns nil.\n\nJames\n\n[code:2y5dkevv]#include &quot;Fivewin&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oGet, cVar &#58;= PADR&#40; &quot;Test&quot;, 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 GET oGet VAR cVar valid &#40;msgInfo&#40; oGet&#58;oGet&#58;original &#41;,&#46;t&#46;&#41;\n\n   // oGet&#58;bLostFocus = &#123; || MsgInfo&#40; oGet&#58;oGet&#58;Original &#41; &#125;\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2y5dkevv]','',0,'AIA=','2y5dkevv',1,0,'',303,0,0),(35260,7684,7,1030,0,'190.55.52.140',1185460507,1,0,1,1,1,0,'','abrir una base de datos en forma compartida','Hoal a todos!\nAlguien sabe como abrir una base de datos en forma compartida desde la palm.\nNecesito altualizar la base de datos de stock que se encuentra en el servidor pero que la misma la puedan seguir utilizando. (la instruccion Shared cuelga la palm, no funciona).\n\nSlds a todos!\n\nNatalia.','',0,'AIA=','iu4r6ym4',1,0,'',1030,0,0),(35261,7680,3,904,0,'198.54.202.250',1185460584,1,0,1,1,1,1,'','','Thanks NK - It looks promising - will try it.\n\nAntonio - when you said \"against a dictionary\" did you mean a DBF file filled with words or a .DIC file?','',0,'AIA=','2gcf93yy',1,0,'',904,0,0),(35262,7685,3,63,0,'88.11.29.132',1185460637,1,0,1,1,1,0,'','Program very slow when runing on LAN','I am using FWH 2.6 / Harbour to build an application whose main window is, basically, a TxBrowse() which shows the Customer.dbf table.  This table is only about 4000 register long.  I can apply a simple SET FILTER TO to restrict the number of registers shown.  (I know that I can use Set Scope, but for other easons I have to stick to SET FILTER)\n\nMy vevelopment system includes two PCs connected in LAN at 100 Mb.  Customer.dbf is located in one PC but hasto be accessed from both. Each PC has its own copy ot the excutable program.  As you can see, a rather simple, conventional setup.\n\nAnd now, my question: When I apply a filter from the main PC (the one containing the tables), te reaction is instantaneous; however, when I do it from the othe PC, is crawls v-e-e-e-ry slowly: Up to 5 seconds or more to filter only 4000 records.  I remember a similar application developped years ago in DOS/Clipper that was equally fast no mater from which PC it was executed.\n\nObviously, I am missing somethig, but what?  Some envireonment variable? Some SET in my program? Maybe to use some special swicth to compile the program?\n\nI would appreciate any hits or suggestions.  Thanks\n\nRafael','',0,'AIA=','3q6ht84h',1,0,'',63,0,0),(35263,7649,7,1030,0,'190.55.52.140',1185460656,1,0,1,1,1,0,'','','Antonio probe el progess_bar pero no se asemeja demasiado a el msgrun.\nHabra otra cosa que se pueda utilizar. alguna funcion?\n\nGracias!\n\nNatalia.','',0,'AIA=','28dnnubo',1,0,'',1030,0,0),(35264,7672,3,6,0,'87.6.213.184',1185461095,1,0,1,1,1,1,'','','Please remember that \"Get:Original is meaningful only while the GET has input focus\".\n\nEMG','',0,'AIA=','1ar245r3',1,0,'',6,0,0),(35265,7682,6,105,0,'200.72.140.34',1185461394,1,0,1,1,1,1,'','','Rafeal.\nRevisa todo lo concerniente a velocidad de tu red, firewall, antivirus\n\nExisten algunos antivirus que revisan TODO lo que sale o entra por la red, deshabilita los archivos DBF, CDX, o NTX y los FPT en el scaneo que hace el antivirus.\n\nPon a tu servidor como Pc de confianza en el Firewall de tu Pc cliente, no habilites DHCP, usa IP\'s fijas, que ambos esten en el mismo Grupo de trabajo, usa Switch en vz de Hubs, revisa los cables de red y si es posible midelos.\n\nbueno esas recomendaciones te puedo dar, lo ideal es tener un servidor de archivos para compartir tus dbf\'s, yo uso varios Linux con Samba y tengo hasta 37 Pc\'s accesando dbf\'s y cdx\'s en una lan y la velocidad es buenisima.\n\nEso nada mas, espero te sirva','',0,'AIA=','2zpnud0g',1,0,'',105,0,0),(35266,7685,3,105,0,'200.72.140.34',1185461502,1,0,1,1,1,1,'','','My answer on the spanish forum..\n\n<!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'AIA=','28b7am0o',1,0,'',105,0,0),(35267,7682,6,63,0,'88.11.29.132',1185462499,1,0,1,1,1,0,'','','Adolfo:\nMuchas gracias por tu respuesta.  A ese respecto:\na) Efectivamente, uso IP fijas, no DHCP\nb) Utilizo un Switch\nc) Ambos PCs están en el mismo grupo de trabajo\nd) Los cables de red parecen en buen estado y como los dos PCs están uno junto a otro, no tienen más de medio metro cada uno.\n\nLo que me queda por revisar es lo del antivirus (Norton) y el firewall (el del Windows Xp SP2), que están instalados con los ajustes por defecto. Lo pruebo y te digo algo en este mismo foro.\n\nSaludos,\nRafael','',0,'AIA=','1ghy11t5',1,0,'',63,0,0),(35268,7682,6,138,0,'189.141.71.139',1185463818,1,0,1,1,1,1,'','','Rafael:\n\nRecuerda que xHarbour copia los datos del ordenador donde los estas usando al ordenador remoto de la red, si a esto le metes un SET FILTER entoces eso es mas lento que el caballo del malo.\n\nRecomendacion: si es forzoso que utilices SET FILTER, y solo tienes 2 usuarios conectados a los datos, utiliza el servidor LOCAL de ADS, hace un filtrado extremadamente rapido (con dbsetfilter) y es gratuito.','',0,'AIA=','35x66knk',1,0,'',138,0,0),(35269,7684,7,138,0,'189.141.71.139',1185463914,1,0,1,1,1,1,'','','Para abrir en modo compartido, tu pocket pc tiene que tener WindowsMobile 2005, si no tiene este sistema operativo no pudes abrirla como compartida.','',0,'AIA=','15kuthvf',1,0,'',138,0,0),(35270,7682,6,63,0,'88.11.29.132',1185463931,1,0,1,1,1,0,'','','Adolfo:\nHe desactivado el antivirus y no he notadoninguna mejora en la velocidad de acceso.\nHe desactivado el Firewall de Windows y ahí sí que he creido aprecia una ligeríiiiisima mejora pero nada sustancial.\nMe prefunto si el problema no estará en´la asignación de buffers o alguna variable interna o quizás en los switches de compilación.\n\nYo uso: \n.prg.c:\n   c:\\harbour\\bin\\harbour $&lt; /O$@ /n/i..include;c:\\harbour\\include;c:\\fwh\\include;c:\\fwh\\include /p /gc\n\n.c.obj:\n   c:\\bcc55\\bin\\bcc32  -M -c -Ic:\\harbour\\include $&lt;','',0,'AIA=','3qfvt4wx',1,0,'',63,0,0),(35271,7686,3,533,0,'88.25.226.107',1185465017,1,0,1,1,1,0,'','System Registry','Hi all!\n\n  have anybody got an example of tReg32 class?. I tried with samples but i don\'t get to build my program.\n\n Thanks to all.','',0,'AIA=','1ue1cmfj',1,0,'',533,0,0),(35272,7686,3,12,0,'201.229.238.160',1185466115,1,0,1,1,1,1,'','','[code:18cqs7kt]#define  HKEY_CLASSES_ROOT    2147483648\n#define  HKEY_LOCAL_MACHINE   2147483650\n#define  HKEY_CURRENT_USER    2147483649\n\nFunction Licencia&#40;&#41;\nLocal c &#58;= &quot;Software\\Tuprograma\\youkey&quot;\nLocal oReg &#58;= TReg32&#40;&#41;&#58;New&#40; HKEY_CURRENT_USER, C, &#46;F&#46; &#41;\nLocal aData &#58;= Array&#40;1&#41;\nLocal lLice &#58;= &#46;T&#46;\nLocal cLice &#58;= &quot;&quot;\n\noReg &#58;= TReg32&#40;&#41;&#58;New&#40; HKEY_CURRENT_USER, c, &#46;F&#46; &#41;\n If Upper&#40; AllTrim&#40; oReg&#58;Get&#40; &quot;licencia&quot;, &quot;&quot; &#41; &#41; &#41; != &quot;SI&quot;\n    oReg &#58;= TReg32&#40;&#41;&#58;Create&#40; HKEY_CURRENT_USER, c, &#46;F&#46; &#41;\n    oReg&#58;Set&#40; &quot;licencia&quot;, &quot;SI&quot; &#41;\n EndIf\noReg&#58;Close&#40;&#41;\nReturn&#40;&#46;t&#46;&#41;\n[/code:18cqs7kt]','',0,'AIA=','18cqs7kt',1,0,'',12,0,0),(35273,7672,3,303,0,'72.199.41.171',1185466302,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Please remember that \"Get:Original is meaningful only while the GET has input focus\". \n\nAre you saying that it doesn\'t have input focus when bValid is executed? I would think it has to have.\n\nJames','',0,'AIA=','2w5iyrma',1,0,'',303,0,0),(35274,7682,6,63,0,'88.11.29.132',1185466343,1,0,1,1,1,0,'','','René:\n\nAjá!  Eso de usar un servidor local ya me suena mejor.  Por favor:\n\na) Dónde me puedo bajar el servidor local de ADS (aunque sea de pago, si funciona, no me importaría comprar una licencia)?\nb) Me podrías dar una idea de cómo usarlo? (He de modificar mi programa o simplemente instalar el servidor local. Y si he de modificar mi programa, en qué sentido?)\n\nMuchas gracias\nRafael','',0,'AIA=','1lsb8cuz',1,0,'',63,0,0),(35275,7682,6,838,0,'80.59.225.15',1185466791,1,0,1,1,1,0,'','','Hola Rafael\n\nPor ir delimitando.\n\nYo tengo los datos en un servidor, en una carpeta compartida que pertenece a un grupo de trabajo.\n\nA mi se me vuelve extremadamente lento cuando tengo que buscar una cadena dentro de un campo por lo que, como tu dices, no hay mas remedio que utilizar set filter. Pero sólo en el caso de que desde cualquier pc se haya conectado a la misma dbf. Si hay un solo usuario conectado, el filtro va cien.\n\nEsto no me pasaba en FW, luego tiene que ser por xHarbour.\n\nHe revisado todo lo anteriormente dicho y nada, sigue igual.\n\nSaludos\n\nJose Luis','',0,'AIA=','xhoh7e8d',1,0,'',838,0,0),(35276,7672,3,34,0,'68.5.217.82',1185467965,1,0,1,1,1,1,'','Continuing','For the purpose of discussion, I would suppose this modification would work:\n\n#include \"Fivewin.ch\" \n\nFUNCTION MAIN() \n\n    LOCAL oDlg \n\n    LOCAL oGet, cVar := PADR( \"Test\", 20 ) \n\n    DEFINE DIALOG oDlg \n\n    @ 1, 1 GET oGet VAR cVar valid (IIF( cVar &lt;&gt; oGet:oGet:origianl, msgInfo( \"Data changed\"),  ), .t. ) \n\n   // oGet:bLostFocus = { || MsgInfo( oGet:oGet:Original ) } \n\n    @ 3, 1 BUTTON \"&amp;Close\"; \n           ACTION oDlg:End() \n\n    ACTIVATE DIALOG oDlg; \n             CENTER \n\n    RETURN NIL','',0,'AIA=','1wak8y7q',1,0,'',34,0,0),(35277,7687,6,987,0,'189.132.3.34',1185468283,1,0,1,1,1,0,'','Variables sin uso en una Aplicación','Hola de nuevo Colegas del Foro:\n\nEstoy por terminar una aplicacion para el control de Inventarios de una muebleria, y me surge la siguiente duda: <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nEs posible saber si hay variables estaticas, locales o publicas declaradas en todas las funciones dentro del sistema y que no esten siendo usadas. <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> \n\nEsto con el fin de quitarlas del codigo fuente y poder optimizar un poco más la aplicación, ya que conforme vamos escribiendo el código de las funciones agregamos variables para hacer pruebas y despues nos olvidamos de quitarlas, dando como resultado una aplicación con variables si uso.\n\nY de ser así como podría saberlo.?\n\nAgradecimientos de antemano. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nI.S.C. Víctor Daniel cuatécatl León\n\nMuy pronto mi portal electronico:  <!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'AIA=','1sm5oa02',1,0,'',987,0,0),(35278,7678,3,34,0,'68.5.217.82',1185468304,1,0,1,1,1,1,'','TWBrowse','I used the class by Hernan several years ago, but then he was not available, and changes in FW were not matched in his program.\n\nI have not seen a reference to where an updated copy would be available.  Will it be compatible with the most current version of FWH and xHarbour ?\n\nJames, there was a post on WBrowse on this forum asking about themes and the plain header, and Antonio replied that was the standard and was correct.\n\nIt is correct that there is no differentiating line between the header and the first data line.  All of the other data lines are present.','',0,'AIA=','10a4p0wk',1,0,'',34,0,0),(35279,7678,3,34,0,'68.5.217.82',1185468464,1,0,1,1,1,1,'','Colored background','James,\n\nBTW ... I did try a colored background, and it worked initially, and then stopped working with the July release.  Getting a viable color pair was difficult.  I am not sure what form the colors should be to work properly.  I can play with that again.\n\nTim','',0,'AIA=','cfppsk8h',1,0,'',34,0,0),(35280,7686,3,34,0,'68.5.217.82',1185468616,1,0,1,1,1,1,'','Vista Registry','Has anyone worked with the Vista Registry.  Microsoft now puts registry entries into a virtual machine which can be harder to locate ( makes it rough for phone or email support ).  Apparently there is a conforming standard test if we want to write to HKEY_LOCAL_MACHINE.  Does anyone have experience with this ?','',0,'AIA=','17w9l83f',1,0,'',34,0,0),(35281,7672,3,303,0,'72.199.41.171',1185468688,1,0,1,1,1,0,'','','Tim,\n\n&gt;For the purpose of discussion, I would suppose this modification would work: \n\nNo, from a VALID oGet:oGet:original returns nil. It does return the proper value from bLostFocus. This seems to be a bug to me.\n\nJames','',0,'AIA=','37rr0lka',1,0,'',303,0,0),(35282,7678,3,303,0,'72.199.41.171',1185469021,1,0,1,1,1,0,'','','Tim,\n\n&gt;James, there was a post on WBrowse on this forum asking about themes and the plain header, and Antonio replied that was the standard and was correct.\n\nI did a search and couldn\'t find the thread. What exactly do you mean by \"plain?\" \n\n&gt;It is correct that there is no differentiating line between the header and the first data line. All of the other data lines are present.\n\nBy no \"differentiating line\" do you mean NO line at all? I have always seen a line. In fact there are really two lines in different shades of gray to make a 3d look (I would prefer just one line). Can you send me a screenshot showing no line?\n\nJames','',0,'AIA=','2ypiizqa',1,0,'',303,0,0),(35283,7620,3,34,0,'68.5.217.82',1185469579,1,0,1,1,1,1,'','FWH / xHarbour','The answer to your question is Yes, the current xHarbour builds require the current FWH build.\n\nThe position of xHarbour.com is that you should keep all 3rd party products which you use with their program ( ie. FWH ) current.','',0,'AIA=','1tfpnqui',1,0,'',34,0,0),(35284,7682,6,63,0,'88.11.29.132',1185469729,1,0,1,1,1,0,'','','José Luis:\nEfectivamente, cuando intento acceder a la misma tabla desde los dos PCs a la vez (por ejemplo, aplicando un filtro distinto desde cada uno)la cosa va lentísima.\n\nTambién va muy lento aunque no haya filtro aplicado. \n\nY si sólo accedo desde un PC, el resultado es el que ya dije al principio: Desde el PC \"servidor\" va perfecto pero desde el otro, va bastante \"pastoso\".    Si eso ocurre co una red cableada a 100 Mb, prefiero no pensar qué pasará si el enlace es inalámbrico...\n\nHasta ahora, la sugerencia de René parece la más sólida.  Me estoy mirando <!-- m --><a class=\"postlink\" href=\"http://www.google.com/ads.htm\">http://www.google.com/ads.htm</a><!-- m -->, donde viene la cosa explicada en bastante detalle\n\nNo sé si encontraremos una solución pero por lo menos tranquiliza ver que no es sólo un problema mío...\n\nSaludos\n Rafael','',0,'AIA=','t32w36a8',1,0,'',63,0,0),(35285,7688,3,89,0,'213.21.136.60',1185469789,1,0,1,1,1,0,'','TmySqlServer with FW','I am testing the TmySqlServer \nIf I compile this function \nwith xHArbour nSocket = 3678264 \nwith FW          nSocket = -2 \n\nMany thanks \nMAurizio \n\nFunction MAin()\n oServer := TMySQLServer():Ne(\"www.freesql.org\", \"myuser\", \"mypass\")\n if oServer:NetErr()\n      quit\n endif\n ? oServer:nSocket\nReturn nil','',0,'AIA=','8ughkhse',1,0,'',89,0,0),(35286,3622,3,110,0,'148.168.40.4',1185469796,1,0,1,1,1,1,'','Ayuda con bkeychar en txbrowse','Amigos, me urge una ayuda con el bKeyChar de TxBrowse, estoy pasando de usar twbrowse a txbrowse, pero el bKeyChar no me funciona.\n\naca el codigo, si funciona sin problemas el bKeyDown\n\nantes con el twbrose sin problemas..\n\nesta funcion permite que estando en un browse el usuario presione una tecla en inmediatamente le aparece un cado capturando las siguientes pulsaciones para efectos de busqueda.\n\n[code:u1sl7ld6]\n    WITH OBJECT &#40; oBrw &#58;= TXBrowse&#40;&#41;&#58;new&#40; oDlg &#41; &#41;\n        &#58;CreateFromResource&#40; 101 &#41;\n        &#58;cAlias                 &#58;= &quot;CONT&quot;\n        &#58;nColDividerStyle       &#58;= LINESTYLE_DARKGRAY\n        &#58;lColDividerComplete    &#58;= TRUE\n        &#58;nMarqueeStyle          &#58;= MARQSTYLE_HIGHLROW\n        &#58;lAllowRowSizing        &#58;= FALSE\n        &#58;lRecordSelector        &#58;= TRUE\n        &#58;nHeaderHeight          &#58;= 30\n        &#58;bClrHeader             &#58;= &#123; || &#123; CLR_BLUE, GetSysColor&#40; COLOR_BTNFACE &#41; &#125; &#125;\n        &#58;bLDblClick             &#58;= &#123; || Contratos_Editar&#40;FALSE&#41; &#125;\n        &#58;bKeyChar               &#58;= &#123; |nKey| Msginfo&#40;nKey&#41;,Browse_OnKeyCharPress&#40;nKey,TRUE,oBrw&#41; &#125;\n        &#58;bKeyDown               &#58;= &#123; |nKey| Msginfo&#40;nKey&#41;,Contratos_ProcesarTecla&#40;nKey&#41;&#125;\n        &#58;nFreeze                &#58;= 3\n        &#58;lFooter                &#58;= TRUE\n\n        /*redefine columnas del browse*/\n        WITH OBJECT &#40; oCol &#58;= &#58;AddCol&#40;&#41; &#41;\n            &#58;cHeader       &#58;= &quot;Contrato No&#46;&quot;\n            &#58;bStrData      &#58;= &#123;|| CONT-&gt;MC_CODCON &#125;\n            &#58;nWidth        &#58;= 90\n        END\n[/code:u1sl7ld6]\n\n[code:u1sl7ld6]\nPROCEDURE Browse_OnKeyCharPress&#40;nKey,lUpperSeek,oBrw&#41;\n    LOCAL oGet\n    LOCAL cGet\n    LOCAL oDlgS\n    LOCAL cChar\n    LOCAL lOldSeek &#58;= SET&#40; _SET_SOFTSEEK, TRUE &#41;\n\n    DEFAULT lUpperSeek &#58;= TRUE\n\n    IF nKey &lt; 32\n        RETURN\n    ENDIF\n\n    IF lUpperSeek\n        cGet &#58;= PadR&#40; Upper&#40; Chr&#40;nKey&#41; &#41;,30 &#41;\n    ELSE\n        cGet &#58;= PadR&#40; Chr&#40;nKey&#41;, 30 &#41;\n    ENDIF\n\n    DEFINE DIALOG oDlgS NAME &quot;DLG_BUSCAR&quot; OF oDlg\n\n    REDEFINE GET oGet VAR cGet ID 101 OF oDlgS\n    REDEFINE BUTTONBMP         ID 201 OF oDlgS BITMAP &quot;SBOK&quot; ACTION Browse_Buscar&#40; cGet, oDlgS, oBrw &#41;\n\n    oGet&#58;cPicture &#58;= iif&#40; lUpperSeek, &quot;@!&quot;, NIL &#41;\n\n    ACTIVATE DIALOG oDlgS ON INIT oGet&#58;SetPos&#40;2&#41;\n\n    SET&#40; _SET_SOFTSEEK, lOldSeek &#41;\n\nRETURN\n[/code:u1sl7ld6]\n\n[code:u1sl7ld6]\nPROCEDURE Browse_Buscar&#40; cGet, oDlgS, oBrw &#41;\n    LOCAL nRecno &#58;= &#40;oBrw&#58;cAlias&#41;-&gt;&#40; RecNo&#40;&#41; &#41;\n\n    cGet &#58;= RTrim&#40; cGet &#41;\n\n    IF !Empty&#40; cGet &#41;\n        IF !&#40;oBrw&#58;cAlias&#41;-&gt;&#40; DBSeek&#40; cGet &#41; &#41;\n            &#40;oBrw&#58;cAlias&#41;-&gt;&#40; DBGoTo&#40; nRecno &#41; &#41;\n        ENDIF\n        oBrw&#58;refresh&#40;&#41;\n        Tone&#40; 600, 3 &#41;\n    ENDIF\n\n   oDlgS&#58;end&#40;&#41;\n\nRETURN\n[/code:u1sl7ld6]','',0,'AIA=','u1sl7ld6',1,0,'',110,0,0),(35287,7678,3,34,0,'68.5.217.82',1185469889,1,0,1,1,1,1,'','No lines','sent to your email','',0,'AIA=','1z9w0yr1',1,0,'',34,0,0),(35288,7686,3,533,0,'88.25.226.107',1185470249,1,0,1,1,1,0,'','','Thanks Pablo, it work perfectly.\n\nTim, sorry!!, but i don\'t have worked with windows vista only with xp and less, but i\'ll search information about.','',0,'AIA=','369elc85',1,0,'',533,0,0),(35289,7665,3,689,0,'201.86.65.120',1185471987,1,0,1,1,1,0,'','','Antonio, \n\nDo you tested try scroll window clicking vertical scroll bar?\n\nWhen I try scroll window, scroll button bar too.\n\nRegards\n\nEroni','',0,'AIA=','snovgms5',1,0,'',689,0,0),(35291,7665,3,2,0,'87.218.146.251',1185473916,1,0,1,1,1,1,'','','Eroni,\n\n&gt; When I try scroll window, scroll button bar too. \n\nYes, but thats a normal behavior as the button bar is a child of the main window\n\nYou may use a MDI main window where the buttonbar is and then implement the scroll window on a MDICHILD window','',0,'AIA=','3jj2e3x9',1,0,'',2,0,0),(35292,7680,3,2,0,'87.218.146.251',1185474010,1,0,1,1,1,1,'','','Ollie,\n\n&gt;\nwhen you said \"against a dictionary\" did you mean a DBF file filled with words or a .DIC file?\n&gt;\n\nBoth solutions may be fine, though you may get faster searches for words if you use a DBF (filled with words) and an index','',0,'AIA=','1l0ulp0s',1,0,'',2,0,0),(35293,6814,3,2,0,'87.218.146.251',1185474133,1,0,1,1,1,1,'','','Maurizio,\n\nIn our tests we have not been able to create it, probably because we were using a remote MySQL host free website. If you are able to create it using standard ADO, then ADORDD should also work as ADORDD is just a wrapper on top of ADO and USRRDD','',0,'AIA=','19oy9xlz',1,0,'',2,0,0),(35294,7684,7,2,0,'87.218.146.251',1185474258,1,0,1,1,1,1,'','','Natalia,\n\nTe enviamos por email una versión actualizada de Harbour para Pocket PC','',0,'AIA=','2y6fcjjk',1,0,'',2,0,0),(35295,7672,3,6,0,'79.3.216.232',1185474529,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2pib22um]Are you saying that it doesn\'t have input focus when bValid is executed?[/quote:2pib22um]\n\nYes. Just check oGet:oGet:HasFocus. It is .T. in bLostFocus and .F. in bValid.\n\nEMG','',0,'gA==','2pib22um',1,0,'',6,0,0),(35296,7649,7,2,0,'87.218.146.251',1185474935,1,0,1,1,1,1,'','','Natalia,\n\nQue necesitas ejecutar desde el MsgRun() ? Una indexación de una DBF ?','',0,'gA==','26l4jrgi',1,0,'',2,0,0),(35297,7582,3,473,0,'81.82.10.56',1185476223,1,0,1,1,1,0,'','','Anyone ?','',0,'gA==','31ks3svu',1,0,'',473,0,0),(35298,7649,7,1030,0,'190.55.52.146',1185476803,1,0,1,1,1,0,'','','No en este caso pero a veces si.\nEn este caso lo que quiero ejecutar dentro del MsgRun() es un proceso que es largo y necesito que de alguna manera le avise al usuario que se está ejecutando tal proceso.\nGracias','',0,'gA==','uumgcur4',1,0,'',1030,0,0),(35299,7689,6,1104,0,'190.55.52.146',1185477391,1,0,1,1,1,0,'','Coordenadas del Mouse','// CAMBIAR EL ORDEN QUE SE MUESTRA EL BROWSE //\nFunction CambiaOrCli(oDbf,oSay,oLbx)\nLocal oMenu,nRow:=100,nCol:=100\n\nMENU oMenu POPUP\n   MENUITEM \"Ordenar por Código\";\n      ACTION oSay:SetText(\"ORDENADO POR CODIGO\"),;\n             oDbf:SetOrder(1)\n   MENUITEM \"Ordenar por Razón Social\";\n      ACTION oSay:SetText(\"ORDENADO POR RAZON SOCIAL\"),;\n             oDbf:SetOrder(2)\n   MENUITEM \"Ordenar por Localidad\";\n      ACTION oSay:SetText(\"ORDENADO POR LOCALIDAD\"),;\n             oDbf:SetOrder(3)\n   MENUITEM \"Ordenar por Categoría\";\n      ACTION oSay:SetText(\"ORDENADO POR CATEGORIA\"),;\n             oDbf:SetOrder(4)\nENDMENU\n\nACTIVATE POPUP oMenu AT nRow,nCol OF oLbx\n\noDbf:GoTop()\noLbx:Refresh()\nReturn nil\n//\n\n\nHola a todos como se ve en la función que escribí anteriormente, la función es un simple Menú Popup, pero quisiera que este menú aparezca donde presiono el boton derecho del mouse.\nYa está asociada al botón derecho pero quisiera que aparezca en las coordenadas de donde presiono el botón derecho.\nEn este caso siempre la estoy mostrando en las mismas coordenadas, nRow=100 y nCol=100.\nHay alguna forma de obtener el nRow y el nCol de donde presiono el botón derecho?\n\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'gA==','2qomu81i',1,0,'',1104,0,0),(35300,7684,7,1030,0,'190.55.52.146',1185478946,1,0,1,1,1,0,'','','Mil gracias por la actualización.\nMe encuentro con otro problema al enlazar me tira muchos errores de que no encuentra varias funciones como por ejemplo: MsgInfo()\nTengo que incluir algo en mi enlazador?\n\nDe esta manera estoy enlazando:\n\nDEL LIN.TMP\n\necho C:\\WPSIngresoStock\\RESOURCE\\INVENTARIO.res       &gt;&gt; LIN.TMP\necho C:\\WPSIngresoStock\\OBJ\\INICIO.obj                &gt;&gt; LIN.TMP\necho C:\\WPSIngresoStock\\OBJ\\INVENTARIO.obj            &gt;&gt; LIN.TMP\n\necho C:\\FWPPC\\lib\\FiveCE.lib C:\\FWPPC\\lib\\FiveCEC.lib &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\rtl.lib                        &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\vm.lib                         &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\gtwin.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\lang.lib                       &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\macro.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\rdd.lib                        &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbfntx.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbfcdx.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbffpt.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\hbsix.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\debug.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\common.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\pp.lib                         &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\codepage.lib                   &gt;&gt; LIN.TMP\n\necho C:\\VCE\\lib\\arm\\coredll.lib                       &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\corelibc.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\aygshell.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ws2.lib                           &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\mfcce400.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ole32.lib                         &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ceshell.lib                       &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\commctrl.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\wininet.lib                       &gt;&gt; LIN.TMP\n\nC:\\VCE\\bin\\link @LIN.TMP /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM\n\nPAUSE\n\nDEL *.EXP\nDEL *.LIB\nDEL *.TMP\n\nDesde ya muchas gracias\nSaludos, Natalia','',0,'gA==','qwa6xg9n',1,0,'',1030,0,0),(35301,7684,7,2,0,'87.218.146.251',1185479109,1,0,1,1,1,1,'','','Natalia,\n\nModifica samples\\buildce.bat en esta línea, así:\n\n%vcdir%\\bin\\clarm -W3 -c /DARM /DUNICODE /I%hdir%\\include /I..\\include %1.c\n\ny vuelve a compilar todos tus PRGs','',0,'gA==','2687rhgq',1,0,'',2,0,0),(35302,7649,7,2,0,'87.218.146.251',1185479173,1,0,1,1,1,1,'','','Natalia,\n\nPuedes saber a priori cuanto tardara el proceso ó que porcentaje de proceso se irá realizando ?','',0,'gA==','7v9mfgau',1,0,'',2,0,0),(35303,7689,6,2,0,'87.218.146.251',1185479266,1,0,1,1,1,1,'','','Esteban,\n\n[code:1qowzg8o]\noBrowse&#58;bRClicked = &#123; | nRow, nCol | ShowPopup&#40; nRow, nCol, oBrowse &#41; &#125;\n\n&#46;&#46;&#46;\n\nfunction ShowPopup&#40; nRow, nCol, oBrowse &#41;\n\n   local oPopup\n\n   MENU oPopup POPUP\n      MENUITEM &quot;&amp;New&quot;      ACTION MsgInfo&#40; &quot;new&quot; &#41;\n      MENUITEM &quot;&amp;Modify&quot;   ACTION MsgInfo&#40; &quot;modify&quot; &#41;\n      MENUITEM &quot;&amp;Delete&quot;   ACTION MsgInfo&#40; &quot;delete&quot; &#41;\n      MENUITEM &quot;&amp;Search&quot;   ACTION MsgInfo&#40; &quot;search&quot; &#41;\n      SEPARATOR\n      MENUITEM &quot;&amp;Print&quot;    ACTION MsgInfo&#40; &quot;print&quot; &#41;\n   ENDMENU\n\n   ACTIVATE POPUP oPopup AT nRow, nCol OF oBrowse\n\nreturn nil\n[/code:1qowzg8o]','',0,'AIA=','1qowzg8o',1,0,'',2,0,0),(35304,7685,3,2,0,'87.218.146.251',1185479412,1,0,1,1,1,1,'','','Rafael,\n\nSET FILTER is very slow. Better use a temporary index built with a condition','',0,'AIA=','2su10ms8',1,0,'',2,0,0),(35305,7682,6,2,0,'87.218.146.251',1185479482,1,0,1,1,1,1,'','','Rafael,\n\nSET FILTER es muy lento. Usa un índice temporal creado con una condición, ó usa scopes','',0,'AIA=','1b5j16v6',1,0,'',2,0,0),(35306,7690,3,34,0,'68.5.217.82',1185479672,1,0,1,1,1,1,'','Hernan\'s TWBrowse','OK ... so I found a copy of Hernan\'s TWBrowse on the net.  Although there is a .lib file, it won\'t compile with xHarbour Builder ( MS ).  So I tried the source files, but the application still won\'t build.  \n\nDoes anyone know precisely which source files need to be included in the application for the July 2007 versions of xHarbour ( Builder Beta ) and FWH ?\n\nThanks.','',0,'AIA=','1syn4cy4',1,0,'',34,0,0),(35307,7689,6,1104,0,'190.55.52.146',1185480732,1,0,1,1,1,0,'','','Antonio funcionó perfecto lo que me recomendaste.\nMuchísimas gracias.\nSaludos, Esteban','',0,'AIA=','28xwkldr',1,0,'',1104,0,0),(35308,7684,7,1030,0,'190.55.52.140',1185480840,1,0,1,1,1,0,'','','Lo probe, cambie lo que me dijiste y no funciono.\nAbajo te mando l amanera en que compilo y enlazo:\n\nCompilar:\n-----------\n\n@ECHO OFF\nCLS\nDEL Compilar.log\nDEL *.$$$\n\nECHO Compiling...\n\nECHO ********** COMPILO DE PRG A C ************************************************************\nHARBOUR INICIO     /n /i /p %2 %3    &gt;&gt;COMPILAR.LOG\necho ---------------------------------------------------------------------------    &gt;&gt;COMPILAR.LOG\nHARBOUR INVENTARIO /n /i /p %2 %3    &gt;&gt;COMPILAR.LOG\necho ---------------------------------------------------------------------------    &gt;&gt;COMPILAR.LOG\nHARBOUR PROCE      /n /i /p %2 %3    &gt;&gt;COMPILAR.LOG\necho ---------------------------------------------------------------------------    &gt;&gt;COMPILAR.LOG\necho . &gt;&gt;COMPILAR.LOG\necho . &gt;&gt;COMPILAR.LOG\nECHO ******************************************************************************************\n\nECHO ********** COMPILO DE C A OBJ ************************************************************\nCLARM [color=green:xpn0rlmm]-W3 -c[/color:xpn0rlmm] /DARM /DUNICODE /I C:\\HARBOUR_ce\\include /I..\\include INICIO.c      &gt;&gt;COMPILAR.LOG\necho --------------------------------------------------------------------------- &gt;&gt;COMPILAR.LOG\nCLARM [color=green:xpn0rlmm]-W3 -c[/color:xpn0rlmm] /DARM /DUNICODE /I C:\\HARBOUR_ce\\include /I..\\include INVENTARIO.c  &gt;&gt;COMPILAR.LOG\necho --------------------------------------------------------------------------- &gt;&gt;COMPILAR.LOG\nCLARM -[color=green:xpn0rlmm]W3 -c [/color:xpn0rlmm]/DARM /DUNICODE /I C:\\HARBOUR_ce\\include /I..\\include PROCE.c       &gt;&gt;COMPILAR.LOG\necho --------------------------------------------------------------------------- &gt;&gt;COMPILAR.LOG\nECHO ******************************************************************************************\n\nCOPY *.C C\\\nDEL *.C\nCOPY *.OBJ OBJ\\\nDEL *.OBJ\nDEL *.PPO\n\n-------------------------------------------------------------------------------------\nEn verde te marque lo que cambie.\n\nEnlazar:\n---------\n\nDEL LIN.TMP\n\necho C:\\WPSIngresoStock\\RESOURCE\\INVENTARIO.res       &gt;&gt; LIN.TMP\necho C:\\WPSIngresoStock\\OBJ\\INICIO.obj                &gt;&gt; LIN.TMP\necho C:\\WPSIngresoStock\\OBJ\\INVENTARIO.obj            &gt;&gt; LIN.TMP\necho C:\\WPSIngresoStock\\OBJ\\PROCE.obj                 &gt;&gt; LIN.TMP\n\necho C:\\FWPPC\\lib\\FiveCE.lib C:\\FWPPC\\lib\\FiveCEC.lib &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\rtl.lib                        &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\vm.lib                         &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\lang.lib                       &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\gtwin.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\macro.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\rdd.lib                        &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbfntx.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbfcdx.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\dbffpt.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\hbsix.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\debug.lib                      &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\common.lib                     &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\pp.lib                         &gt;&gt; LIN.TMP\necho C:\\harbour_CE\\lib\\codepage.lib                   &gt;&gt; LIN.TMP\n\necho C:\\VCE\\lib\\arm\\coredll.lib                       &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\corelibc.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\aygshell.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ws2.lib                           &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\mfcce400.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ole32.lib                         &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\ceshell.lib                       &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\commctrl.lib                      &gt;&gt; LIN.TMP\necho C:\\VCE\\lib\\arm\\wininet.lib                       &gt;&gt; LIN.TMP\n\nC:\\VCE\\bin\\link @LIN.TMP /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM\n\nPAUSE\n\nDEL *.EXP\nDEL *.LIB\nDEL *.TMP\n-------------------------------------------------------------------------------------\n\nSaludos, Natalia.','',0,'Ag==','xpn0rlmm',1,0,'',1030,0,0),(35309,7690,3,73,0,'200.23.18.132',1185481001,1,0,1,1,1,0,'','','Tim,\n\nhere a link to download\n\n<!-- m --><a class=\"postlink\" href=\"http://www.savefile.com/files/875681\">http://www.savefile.com/files/875681</a><!-- m --> \n\nregards\nPaco','',0,'Ag==','2hn1zbfi',1,0,'',73,0,0),(35310,7691,6,1106,0,'190.64.239.164',1185481196,1,0,1,1,1,0,'','use // cual es el orden','Amigos:\n\nPara acceder a una BD en red deseo hacer\nuse\\\\servidor\\pasword  ???? + \"archivo.Dbf\"\n\nCual es el orden..\nSon estas \\\\ barras o estas //\n\nMuchas greacias\n\nSaludos\n\nRuben Fernandez.','',0,'Ag==','2l258atg',1,0,'',1106,0,0),(35311,7684,7,1030,0,'190.55.52.140',1185481303,1,0,1,1,1,0,'','','Los errores son los siguientes:\n\n[color=olive:1kkm36td]INICIO.obj: error LNK2001:unresolved external symbol HB_FUN_MSGINFO refderenced in function HB_FUN _ARTICULO\nINICIO.obj: error LNK2001:unresolved external symbol HB_FUN_MSGYESNO\nINICIO.obj: error LNK2001:unresolved external symbol HB_FUN_TBTNBMP[/color:1kkm36td]\ny asi con muchas funciones mas...\n\ntambien me tira lo siguiente:\n\n[color=olive:1kkm36td]rtl.lib(fstemp.obj) : error LNK2001: enresolved external symbol AnsiToWidwe\nrtl.lib(fstemp.obj) : error LNK2001: enresolved external symbol AnsiToWidwe reference in function hb_fs0pen\nrtl.lib(fstemp.obj) : error LNK2001: enresolved external symbol AnsiToWidwe reference in function hb_ConOutErr[/color:1kkm36td]\n\nEspero esto sirva de ayuda.\nMil gracias,\nNatalia.','',0,'Ag==','1kkm36td',1,0,'',1030,0,0),(35312,7684,7,2,0,'87.218.146.251',1185481562,1,0,1,1,1,1,'','','Natalia,\n\nNecesitais una versión actualizada de FWPPC para esa versión de Harbour Pocket PC','',0,'Ag==','2agsglz8',1,0,'',2,0,0),(35313,7690,3,34,0,'68.5.217.82',1185481742,1,0,1,1,1,1,'','WBrowse','I have the download already, but it creates an error when linking the library with the xHarbour Builder ( MS compatible ).  That would indicate the lib was built perhaps with Borland.\n\nObviously we can rebuilt the source file but I need to know which files need to be included in the program.\n\nThanks.','',0,'Ag==','3o5joad1',1,0,'',34,0,0),(35314,7691,6,319,0,'201.52.144.222',1185482097,1,0,1,1,1,0,'','','use  \"\\\\servidor\\d\\supasta\\subase\"\n\nservidor --&gt; nome da maquina\nd --&gt; nome do compartilhamento e assim por diante','',0,'Ag==','3kqqzwj7',1,0,'',319,0,0),(35315,7692,3,620,0,'209.189.229.150',1185482249,1,0,1,1,1,0,'','Printing Problems in Vista','Sorry if this has been addressed...scanned the directory but couldn\'t find anything.\n\nAm running FWH and Harbour compiler.  Programs are running fine on Win95, Win98, Win2000/NT, XP.   Just installed a Vista machine and program works fine except printing.  Preview will not work, and when going direct to printer, the program appears to print in an endless loop...1000\'s of pages.\n\nAny fix for this or ideas?\n\nThanks!','',0,'Ag==','2n61mc5v',1,0,'',620,0,0),(35316,7693,6,743,0,'201.116.76.180',1185483574,1,0,1,1,1,0,'','ayuda !!!','como hago para que una imagen sea trasparente, \n\n \n   utilizo la sigiente linea\n\n oImgList:= TImageList():New( 32, 32 )\n      oImgList:AddMasked( oBmp[1] := TBitmap():Define( \"TOOL_CLIENTE\"   ,, oWnd ), nRGB( 241, 242, 237 ) )\n\n    y aun asi no me pone la imagen traspartente que debo hacer','',0,'','13jzwqid',1,0,'',743,0,0),(35317,7690,3,53,0,'189.139.97.210',1185483783,1,0,1,1,1,1,'','','Timm:\n\nI did it with only two PRG files and one C file as follow:\n\nTMULTISE.PRG\nWBROWSE.PRG\n\nand\n\nWBRWLINE.C\n\nI hope this can help you\nRegards','',0,'','t5arrgie',1,0,'',53,0,0),(35318,7694,6,438,0,'200.87.162.166',1185484623,1,0,1,1,1,0,'','Que hace DBSeek() cuando se ejecuta con el mismo argumento..','Hola amigos del foro:\n\nUna consulta: Que hace DBSeek() cuando se ejecuta nuevamente con el mismo argumento (y ya encontro el registro indicado), vuelve a ejecutar la busqueda desde el principio?, aun sabiendo que ya se lo encontro, o mas bien que ya esta en el registro buscado?\n\nPienso que, si antes de ejecutar la busqueda se pregunta si ya esta sobre el registro buscado, y si es el registro indicado, entonces no seria necesaria la busqueda. ¿Seria mas eficiente?.\n\nDe antemano, Gracias por disolver la duda.\n\nRolando','',0,'','35cowpuh',1,0,'',438,0,0),(35319,7691,6,1106,0,'190.64.226.145',1185485394,1,0,1,1,1,0,'','','Gracias Ronaldo.\n\nSaludos\n\nRuben Fernandez.','',0,'','2jy64jq1',1,0,'',1106,0,0),(35320,7682,6,63,0,'88.11.29.132',1185486862,1,0,1,1,1,0,'','','Antonio:\n\nEfectivamente, SET FILTER es muy lento pero a veces no queda otro remedio.  Creo que el problema no es el SET FILTER sino la \"pastosidad\" general en el acceso a tablas por red.  Con el Set FILTER es muy evidente, pero también se nota esa lentitud al cargar el browse inicialmente o moverse de registro en registro.\n\nQuizás la explicación de René es la que parece más lógica, pero antes de empezar a experimentar con ADS (o algo similar, si existe) quería saber si el problema se debía a algún fallo mío más básico: Algo que tuviera que ver con número de buffers, etc...\n\nSi se te ocurre alguna otra idea para probar, me gustaría intentarlo, porque parece que este es un problema que afecta a más de uno en el foro.\n\nSaludos,\nRafael','',0,'','1npymlav',1,0,'',63,0,0),(35321,7682,6,838,0,'80.59.225.15',1185486863,1,0,1,1,1,0,'','','Hola Antonio\n\nNo encuentro otra forma de hacer lo siguiente mas que con set filter\n[code:180l7ccp]&#40;aAlias&#91;21&#93;&#41;-&gt;&#40; dbSetfILTER&#40; &#123;|| &#40;ALLTRIM&#40;Upper&#40;@codibus&#41;&#41; $ Upper&#40;&#40;aAlias&#91;21&#93;&#41;-&gt;Nombre&#41;&#41;&#125;,\'&#40;ALLTRIM&#40;Upper&#40;@codibus&#41;&#41; $ Upper&#40;&#40;aAlias&#91;21&#93;&#41;-&gt;Nombre&#41;&#41;\'&#41; &#41;[/code:180l7ccp]\n\nDonde codibus es la cadena que debo buscar dentro del campo Nombre.\n\nSaludos\n\nJose Luis','',0,'AIA=','180l7ccp',1,0,'',838,0,0),(35322,7690,3,34,0,'68.5.217.82',1185488042,1,0,1,1,1,1,'','WBRWLINE.c','Unfortunately, the compiler will not build with wbrwline.c attached.  I\'ve checked and all of the *.h files specified are in the path, but it just gives me a \"cannot build\" error when that file is attached.\n\nI\'m using the July Beta of xHarbour Builder and FWH 7.07.','',0,'AIA=','ueqvnga3',1,0,'',34,0,0),(35323,7687,6,2,0,'87.218.146.251',1185488191,1,0,1,1,1,1,'','','Tienes que usar el flag -w2 al compilar con Harbour.\n\nAqui tienes un ejemplo:\n[code:2th65tli]\nfunction Main&#40;&#41;\n\n   local x\n\nreturn nil\n[/code:2th65tli]\nharbour -n [color=red:2th65tli]-w2[/color:2th65tli] test.prg\nHarbour devel build 1.1-1 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'test.prg\'...\n[color=red:2th65tli]test.prg(6) Warning W0003  Variable: \'X\' declared but not used in function: \'MAIN(3)\'[/color:2th65tli]\nLines 5, Functions/Procedures 1\nGenerating C source output to \'test.c\'... Done.','',0,'AoA=','2th65tli',1,0,'',2,0,0),(35324,7692,3,34,0,'68.5.217.82',1185488213,1,0,1,1,1,1,'','Printing','Sorry,\n\nI have Vista, with FWH 7.07  and July xHarbour, and I have no printing problems whatsoever ...\n\nTim','',0,'AoA=','1ol74epe',1,0,'',34,0,0),(35325,7692,3,2,0,'87.218.146.251',1185488434,1,0,1,1,1,1,'','','Greg,\n\nHave you copied prev32.dll to your application folder ?','',0,'AoA=','4bla2ql3',1,0,'',2,0,0),(35326,7582,3,2,0,'87.218.146.251',1185488540,1,0,1,1,1,1,'','','Willy,\n\nSorry, we have been busy and couldn\'t test it. We are going to review it asap','',0,'AoA=','2v0pugod',1,0,'',2,0,0),(35327,7582,3,473,0,'81.82.10.56',1185491278,1,0,1,1,1,0,'','','OK','',0,'AoA=','1ajxx4p9',1,0,'',473,0,0),(35328,7582,3,2,0,'87.218.146.251',1185491359,1,0,1,1,1,1,'','','Willy,\n\nWe have modified samples\\TestXBrw.prg this way and these are our first results:\n[code:19642c5s]\nSTATIC FUNCTION NewDialog&#40; oWnd &#41;\n\n   local oDlg, oBrw\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TEST&quot; OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oBrw&#58;CreateFromResource&#40; 101 &#41;\n\n   oBrw&#58;SetArray&#40; &#123; &#123; &quot;first&quot;, &quot;row&quot; &#125;, &#123; &quot;second&quot;, &quot;row&quot; &#125; &#125; &#41;\n   oBrw&#58;aCols&#91; 1 &#93;&#58;cHeader = &quot;An array&quot;\n   oBrw&#58;aCols&#91; 2 &#93;&#58;cHeader = &quot;test&quot;\n   oBrw&#58;aCols&#91; 1 &#93;&#58;bClrStd = &#123; || &#123; CLR_WHITE, CLR_BLUE &#125; &#125; \n   oBrw&#58;aCols&#91; 2 &#93;&#58;bClrStd = &#123; || &#123; CLR_WHITE, CLR_BLUE &#125; &#125; \n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT oBrw&#58;SetColor&#40; CLR_WHITE, CLR_BLUE &#41;\n\nRETURN NIL\n[/code:19642c5s]\n[url=http&#58;//imageshack&#46;us:19642c5s][img:19642c5s]http&#58;//img516&#46;imageshack&#46;us/img516/6959/browsepx6&#46;jpg[/img:19642c5s][/url:19642c5s]','',0,'GIA=','19642c5s',1,0,'',2,0,0),(35329,7695,6,760,0,'200.62.254.143',1185491379,1,0,1,1,1,0,'','build xharbour 07/2007','Hola a todos del foro\n\nMi pregunta es si el build que proporciona este foro, haria funcionar a un sistema hecho en FWH 7.01, FWH 7.02, FWH 2.7 o FWH 2.8 .\n\nEn todo caso alguna solucion podria haber, como recompilar....???\n\nNo es que tenga todos eso FWH, si no que me salta la duda...\n\nEs que aun no lo he comprado y quisiera ver referente al tema.\n\nSalu2  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nFrancis','',0,'GIA=','2fbhy75t',1,0,'',760,0,0),(35330,7695,6,2,0,'87.218.146.251',1185491509,1,0,1,1,1,1,'','','Francis,\n\nEl pcode ha cambiado recientemente en Harbour y xHarbour, por lo que es forzoso el recompilar.','',0,'GIA=','3514io4q',1,0,'',2,0,0),(35331,7672,3,303,0,'72.199.41.171',1185493238,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Just check oGet:oGet:HasFocus. It is .T. in bLostFocus and .F. in bValid. \n\nThanks for clarifying that. That may be correct but it is unexpected.\n\nTim,\n\nPerhaps you can use bLostFocus instead of bValid to solve your problem?\n\nJames','',0,'GIA=','3ubzj6h3',1,0,'',303,0,0),(35332,7690,3,303,0,'72.199.41.171',1185493453,1,0,1,1,1,0,'','','Tim,\n\nI suggest using a file compare utility to look for differences between Hernan\'s wbrwline.c and the native FWH one. This might help you find the problem. You could comment out changed lines and replace them with the originals until it compiles.\n\nJames','',0,'GIA=','2usax9pv',1,0,'',303,0,0),(35333,7690,3,53,0,'189.139.97.210',1185494591,1,0,1,1,1,1,'','','Timm:\n\nWhen I compile gives to me eleven warning messages but the library works fine. perhaps you need to change some flags.\n\nBTW I use xHarbour and VERCE to build the lib, these are the flags\n\n/n /m /w /es2 /gc1\n\nBest regards','',0,'GIA=','1rdz68v7',1,0,'',53,0,0),(35334,7687,6,987,0,'189.133.17.59',1185496413,1,0,1,1,1,0,'','','Gracias Maestro Antonio Linares..\n\nLo Pruebo y le comento que paso.\n\nGracias..','',0,'GIA=','1i6qhuy1',1,0,'',987,0,0),(35335,7512,3,233,0,'219.95.201.19',1185507843,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:soh6xz0y]\nI have also fixed some bugs and made the fix available on my website. I think the fixes are documented in the download. If you wish to add your modifications to this version I will put it up on my website so everyone has access.\n[/quote:soh6xz0y]\n\nJames, [url=http&#58;//hyperupload&#46;com/download/02e283a418/tsbrw&#46;zip&#46;html:soh6xz0y]here[/url:soh6xz0y] you\'ll find a zip file that has ammended/new files.\n\nThe zip file contains:\ni. tsbrowse.prg - just one minor fix that I ported from TSBrowse 7.01 to your version of 6.13. The error will appear when both [i:soh6xz0y]SuperHeader[/i:soh6xz0y]  and horizontol bars are used (i.e. :lNoHScroll := .f.)\n\n2. go.bat and sbrowsex.rmk - this files are just a make script to build the lib, albeit using Borland\'s make instead of rmake. To be placed at TSBrowse\\Lib folder and run from there.','',0,'sA==','soh6xz0y',1,0,'',233,0,0),(35336,7682,6,456,0,'217.127.39.57',1185517381,1,0,1,1,1,1,'','','Mi experiencia con Harbour en Red, sin usar ADS ni otra tecnologia C/S, es que funciona bastante bien(manejando tablas de mas de 500.000 registros,lineas de albaranes a fecha de hoy 1.759.700). Una solucion como ADS, tiene que ser mejor, pero entiendo que no necesaria para la mayoria de Pimes. \nYo tengo desterrados los Set Filter, casi siempre se puede encontrar una alternativa mas rapida.\n\nEn el ejemplo que pone Jose Luis, incluso una lectura completa del fichero DBF con memoread, puede que sea mas rapido que set Filter(En este foro, en el de ingles se ha comentado el tema hace tiempo, lo siento pero no tengo el link). Y para optimizarlo tener un indice sobre el campo que quieres realizar la comparacion, y hacer la bussqueda sobre dicho fichero, siempre mas pequeño que el DBF. Para hacerlo hace falta disponer de la estructura del tipo de indice usado, NTX o CDX. Por la red circula una funcion para NTX, WildSrch.','',0,'sA==','27hysrg7',1,0,'',456,0,0),(35337,7582,3,473,0,'81.82.10.56',1185520448,1,0,1,1,1,0,'','','This is doing the job.\n\nThanks Antonio.','',0,'sA==','iaweq179',1,0,'',473,0,0),(35338,7682,6,960,0,'217.12.16.50',1185520871,1,0,1,1,1,0,'','','Rafael,\n\nPor tus explicaciones, deduzco que el PC Cliente accede al PC Servidor mediante una \"Unidad de Red\" en el Acceso Directo en Windows. Si es así yo te recomiendo que conectes los usuarios directamente al servidor, por codigo fuente, osea que enrutes tus bases de datos directamente desde el programa. De esta manera tendras tantos EXEs como PC en tu RED, evitando saturar de memoria al Servidor y por consiguiente ganando velocidad.\n\nUn saludo.\nLORENZO Fdez.','',0,'sA==','ibhp6b5m',1,0,'',960,0,0),(35339,7682,6,63,0,'88.11.29.132',1185521950,1,0,1,1,1,0,'','','Biel:\nEl Set Filter es donde más se nota la lentitud (lógicamente!) pero no es el único sitio.  EN general, todo el acceso es \"pastoso\", en especial al arrancar el programa, cuando parece que el TxBrowse se baja los 4000 registros antes de presentarlos.  En todo caso, voy a buscar una alternativa al Filter a través de Scopes, que esos sí, funcionan razonablemente bien.\n\nLoren:\nYo siempre instalo una copia del Exe en cada Pc y abro las bases de datos mediante un Use (\"\\\\Servidor\\Datos\\MyDbf\").  No suelo utilizar asignación de nuevas unidades de red como Z:, Y: etc.  No sé si es a esto a lo que te referias...\n\nGracias a los dos\nRafael','',0,'sA==','2cfm0jau',1,0,'',63,0,0),(35340,7682,6,106,0,'85.34.123.173',1185522196,1,0,1,1,1,1,'','','Tengo el mismo problema que Rafael Clemente, (lo dije en un post hace algunos dias).\nEn varios clientes, o sea, varias redes con linux como servidor. Todas a 100 megabit, sin usar ningun set filter, y el problema es como los describe Rafael, si accedo desde un pc, no hay problema, pero si accedo desde 2 o mas pc\'s, se enlentece todo... Al moverse de registro en registro queda \"pastoso\", esa es la palabra. Supongo que tiene que ver con algo del DBFCDX, porque con clipper FW y la misma red, no sucede.\nO sea, el mismo programa, con las mismas bases de datos con los mismos indices solo que compilado a 16 bits funciona mas rapido.\nHe cambiado de twbrowse, dejé de usar (despues de 6 años) el twbrowse de Hernán por el de FW porque es un 20% más rapido, lastima que le falten los footers al de FW y que la clase de pintado sea en prg en ves de C.\nO sea, no es un problema de la twbrowse, pero es un problema cuando se visualizan los datos, porque verás que si te toca recorrer la base de datos, con indices y set filters y todo lo que sea, lo hace muy rapidamente.\n\n\nSaludos.','',0,'sA==','3cchpihh',1,0,'',106,0,0),(35341,7678,3,130,0,'141.51.32.24',1185522569,1,0,1,1,1,1,'','','Tim,\n\nthe last version of Hernan´s TWBrowse is 1.7 and it´s working fine with last version of FWH. I´m using it always instead of the original class.\n\nIf you want, I can send it to you.','',0,'sA==','3cjz0voj',1,0,'',130,0,0),(35342,7682,6,63,0,'88.11.29.132',1185523211,1,0,1,1,1,0,'','','Pedro:\nYo no lo he probado con FW pero sí una aplicación similar hecha con Clipper en DOS. Utilizando índices CDX. Y ahí, los browses y, en general, todos los accesos, van perfectamente.  Cierto que al aplicar un filtro se retardan un poco, pero eso es razonable y, en todo caso, la respuesta en DOS es muchísimo más ágil que la que tengo ahora.\nRafael','',0,'sA==','2hpfabsu',1,0,'',63,0,0),(35343,7696,6,131,0,'194.179.55.36',1185527766,1,0,1,1,1,0,'','imprimir varias copias de un informe','Hola:\n¿ Alguien sabe como se puede imprimir varias copias de un informe ?\n\nSaludos,','',0,'sA==','1q5cxz4b',1,0,'',131,0,0),(35344,7682,6,106,0,'85.34.123.173',1185529374,1,0,1,1,1,1,'','','Rafael,\n\nDebo tambien reconocer una cosa.\n(Para los que dicen que los programas en clipper eran muuucho mas rapidos)\nHay un problema y es el siguiente: Mientras con clipper haciamos ver un browse maximo de 80 columnas x 25 lineas, ahora eso aumenta de acuerdo a la resolucion utilizada, o sea, mas alta la resolucion, mas los datos que se muestran en un browse ademas de que el pintado en modo windows es mas lento que el pintado en modo texto DOS.\n\nLa unica prueba que he podido hacer con clipper y FW y xHarbour y FW, con el mismo programa, misma red, mismos archivos etc. demuestra que la version compilada con clipper es mas rapido a mostrar los datos, con las mismas caracteristicas. De hecho, uno de mis clientes no quiere usar la nueva version del programa porque dice que a pesar que tenga nuevas funciones y muchas ventajas, funciona mucho mas lento en su red, y claro... tiene razon... no he encontrado todavia una solucion a este tema.  <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\nSaludos.','',0,'sA==','2ok30pdy',1,0,'',106,0,0),(35345,7696,6,456,0,'217.127.39.57',1185529687,1,0,1,1,1,1,'','','Con la clase  tPrinter\n[code:2qops8bk]\n oPrn&#58;SetCopies&#40;nCopias&#41;\n[/code:2qops8bk]\n\nSi es con tReport, como que su metodo new llama a tPrinter,supongo que esto debiera de funcionar(no lo he probado).\n[code:2qops8bk]\noPrn&#58;oDevice&#58;SetCopies&#40;nCopias&#41;\n[/code:2qops8bk]','',0,'AIA=','2qops8bk',1,0,'',456,0,0),(35346,7682,6,63,0,'88.11.29.132',1185530831,1,0,1,1,1,0,'','','Pedro:\nEstoy haciendo más pruebas y aquí tienes mis resultados hasta ahora:\n\na) He instalado un disco LACIE (320 Gb) con conexión Ethernet para contener los archivos de datos en lugar de tenerlos en uno de los PCs y la verdad es que el rendimiento mejora mucho.\n\nb) El mayor problema lo tenía en una sección antigua de mi programa que utilizaba un LISTBOX normal y corriente; ésa sigue yendo muy lenta, incluso con el disco Ethernet. En cambio, otras funciones en las que empleo TxBrowse han mejorado mucho con el nuevo disco.\n\nc) La respuesta con SET FILTER siguen siendo lenta, pero ha mejorado y al menos es tolerable.  Desde luego, mucho mejor que con los archivos de datos en el PC principal.  \n\nd) El disco Erhernet no es muy caro y tiene la ventaja de que puede estar siempre conectado, así que no es necesario que el PC principal en el que estarían los datos esté encendido.  Si no encuentro nada mejor, creo que es la solución final que adoptaré...\n\nRafael','',0,'AIA=','1yti9yxi',1,0,'',63,0,0),(35347,7682,6,106,0,'85.34.123.173',1185531490,1,0,1,1,1,1,'','','Rafael, \n\nMe alegro que al menos logres avanzar en una solución.\nYo no puedo decirle a un cliente que teniendo un servidor linux con discos scsi con redundancia, copias automaticas, etc. que si le pongo un disco ethernet todo va a funcionar mejor porque me puede asesinar  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nDe todos modos, voy a probar tu solucion, no sabia ni siquiera que existieran los discos ethernet.\nProbaré con algunas configuraciones de samba, a ver cambiando algunos parametros, como el oportunistic locking, de repente algo cambia. Porque como te dije antes, no parece ser problema en la red, porque trabajando un solo pc, vuela, con dos o mas la velocidad cambia a mucho mas lento.\n\nSaludos y gracias por contar tus experiencias.','',0,'AIA=','3h92z4ei',1,0,'',106,0,0),(35348,7697,3,239,0,'218.19.74.47',1185531720,1,0,1,1,1,0,'','Why this shellexecute() not work?','Hi,\n  This not works,only shows a few top lines  of the backup file d:\\mysqldata.sql :\n  shellexecute(odlg:hwnd,,\"mysqldump.exe\",\"--opt --host 192.168.0.123 --port=3306 -u root -p -C mysqldata&gt;d:\\mysqldata.sql\",,.t.)\n\n\nWhile this works:\n \nfp:=FCREATE(\"bak.bat\")	\n		FWRITE(fp,\"@ECHO OFF\")\n		FWRITE(fp,CRLF+\"mysqldump.exe --opt --host 192.168.0.123 --port=3306 -u root -p -C mysqldata&gt;d:\\mysqldata.sql\")\n		FCLOSE(fp)\n		WaitRun(\"bak.bat\")\n		FERASE(\"bak.bat\")\n\n  Regards!\nShuming Wang','',0,'AIA=','3lxn59hh',1,0,'',239,0,0),(35349,7696,6,131,0,'194.179.55.36',1185533943,1,0,1,1,1,0,'','','Muchas gracias, funciona perfectamente.\n\nSaludos,','',0,'AIA=','1wx9hq4y',1,0,'',131,0,0),(35350,7697,3,6,0,'87.1.225.66',1185534150,1,0,1,1,1,1,'','Re: Why this shellexecute() not work?','Try\n\n[code:3372bftd]shellexecute&#40;odlg&#58;hwnd,0,&quot;mysqldump&#46;exe&quot;,&quot;--opt --host 192&#46;168&#46;0&#46;123 --port=3306 -u root -p -C mysqldata&gt;d&#58;\\mysqldata&#46;sql&quot;,0,1&#41;[/code:3372bftd]\n\nEMG','',0,'AIA=','3372bftd',1,0,'',6,0,0),(35351,7672,3,6,0,'87.1.225.66',1185534534,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3k0tr6il]Thanks for clarifying that. That may be correct but it is unexpected.[/quote:3k0tr6il]\n\nI agree. Antonio?\n\nEMG','',0,'gA==','3k0tr6il',1,0,'',6,0,0),(35352,7679,11,578,0,'218.214.35.132',1185537626,1,0,1,0,1,0,'','','I downloaded FLH files again. (Don\'t think they have changed)\n\ncopied to Linux PC. did chmod o=x fivelinux.exe\n\nthat ran fine \n\nBUT\n\nThe readme file says:\n\nDear FiveLinux user,\n\nFiveTech Software is proud to present you our FiveLinux 1.0 release.\n\nPlease remember that the EXE files are Linux applications. In order to execute them from Linux you\nmay do:\n\n   chmod o=x fivelinux.exe\n   chmod o=x install.exe\n   chmod o=x installx.exe\n\nSo then you can type ./fivelinux.exe and so to execute them.\n\nWe want to thank you for all the feedback you provide us, that helps\nFiveTech products get better and better. Thanks!\n\nbest regards,\n\nAntonio Linares\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> \n\nBut the only install or installx I could see was source code (.prg files) in the created samples directory.\n\nI understand that they install Harbour / xHarbour - but I only have source (I think).\n\nI could install xHarbour I guess but your documentation says not to - to use the build you provide or else you have to recompile everything.\n\nMaybe these questions just show how little I know but I am stuck and need help PLEASE!\n\nAlso do you have a list of what additional packages I need to have installed?\n\nPC was running Centos 5 but as per your suggestion I am downloading Ubuntu (7.04 worstation)\n\nxProgrammer','',0,'gA==','utni8167',1,0,'',578,0,0),(35353,7679,11,2,0,'87.218.146.8',1185538363,1,0,1,1,1,1,'','','Doug,\n\nPlease notice that you have to download install.exe and harbour.bin for Harbour, and installx.exe and xharbour.bin for xHarbour.\n\nThen you do: \nchmod +x ./installx.exe\n\nand\n./installx.exe\n\nxHarbour folder is created, in your home directory, with bin, include, lib and samples','',0,'gA==','4hae3yf8',1,0,'',2,0,0),(35354,7679,11,2,0,'87.218.146.8',1185538505,1,0,1,1,1,1,'','','In order to run FiveLinux on Ubuntu, you need to install these packages:\n\nsudo apt-get install libgtk2.0-dev\nsudo apt-get install gcc\nsudo apt-get install libncurses5-dev\nsudo apt-get install libgpmg1-dev\nsudo apt-get install libgnomeprintui2.2-dev','',0,'gA==','2wfjkuet',1,0,'',2,0,0),(35355,7692,3,620,0,'209.189.229.150',1185541186,1,0,1,1,1,0,'','','Antonio,\nYes, Prev32.dll is there.  Im beginning to think this might be caused by some data corruption problem.  I have one print form that works correctly (previews and prints), but another that does an endless loop.  But then my reports will preview and NOT print.  Its maddening right now.  Any other ideas are appreciated.\nGreg','',0,'gA==','ewevbed4',1,0,'',620,0,0),(35356,7698,3,160,0,'59.96.21.122',1185544188,1,0,1,1,1,0,'','DbCombo Problem','Dear All,\n\nI have over 12000 items in one dbf file which I use in DbCombo. But it takes a very long time to load. I have observed that it does not happen that way with listbox. Can I do something to speedup Dbcombo ?\n\nSecondly search get starts a fresh with space character. But I want to find something which has space in between. How can I search that ?\n\nTIA\nMilan.','',0,'gA==','1eo8n3du',1,0,'',160,0,0),(35357,7512,3,303,0,'72.199.41.171',1185544469,1,0,1,1,1,0,'','','Hua,\n\nGot it, thanks.\n\nJames','',0,'gA==','39fmuxfm',1,0,'',303,0,0),(35358,7672,3,303,0,'72.199.41.171',1185544926,1,0,1,1,1,0,'','','It seems that this must be causing some undesirable effects. If bValid is not eval\'d until AFTER the control looses focus, then bLostFocus has already been eval\'d and then if bValid fails, then bGotFocus is going to be eval\'d too, even though, theoretically you have never left the control.\n\nbValid should be getting eval\'d before the control looses focus and it should not loose focus until bValid returns .t. --at least this seems to be the correct behavoir to me.\n\nJames','',0,'gA==','1mzoxe2a',1,0,'',303,0,0),(35359,7698,3,303,0,'72.199.41.171',1185545358,1,0,1,1,1,0,'','','Milan,\n\nBoth are valid concerns, but not easily solvable.\n\nDBCombo inherits from TCombobox and TCombobox uses an array to hold the list, so there will be a lag time each time the control is created. You could store the list in a static array instead of loading it each time, but a list that large will take up some memory and it will not contain any updates made to the DBF when the application is running.\n\nAn alternative is to just use a small button next to a Get and call another dialog containing a listbox and a get for doing an incremental search. This would be much faster and not require any memory overhead.\n\nRegarding the space issue, I had to pick a key to reset the search and a space seemed like a good one at the time. The reset key has to be something users will think of trying or accidentally discover since we have no easy way of displaying this information. I will see how difficult it may be to make this key into a data element so you can change it to any key you wish. I\'ll put in on my To Do list.\n\nJames','',0,'gA==','mors9549',1,0,'',303,0,0),(35360,7692,3,303,0,'72.199.41.171',1185546029,1,0,1,1,1,0,'','','Greg,\n\nI seem to remember a missing END PRINT statement causing something like this. You might want to check it.\n\nJames','',0,'gA==','3g5s6it7',1,0,'',303,0,0),(35361,7692,3,436,0,'190.30.112.4',1185547027,1,0,1,1,1,0,'','','I have problems too with Vista printing.\nIn my case, the preview show the pages with parts in blank (some lines are missed) but the same page printed is OK. (When I change the page another lines are missed)\nBut the big problem is when the report is long (for example 8 pages I didn`t test for less) the first (2,3 or 4) pages are printed OK and the print finishes. I\'ve tested printing by steps (pages 1-2,3-4, etc.) and i get better results but i couldn`t finish the report ever.\nNext print jobs stay in the printer spool and stay there and are no printed at all. Is mostly required to reboot to un-block the printing.\nThe printer is HP LJ1020 and i have downloaded the Vista driver from HP site. The result is the same. (I`ve changed USB cable and the printer too!!)\nI think it`s a Vista problem or maybe is the version. I made my tests in Vista Home.\nSorry for my english.\nRegards\nIván','',0,'gA==','2hhlv2sb',1,0,'',436,0,0),(35362,7649,7,1030,0,'190.55.52.140',1185548379,1,0,1,1,1,0,'','','Antonio:\nEn muchos casos no puedo saber cuanto tardara el proceso, eso depende de cuanto pese la Dbf en algunos casos.\nLa actualizacion de FWPPC trae incorporado el msgrun()?\n\nSaludos,\nNatalia.','',0,'gA==','181kz9rj',1,0,'',1030,0,0),(35363,7699,6,221,0,'200.109.96.250',1185549975,1,0,1,1,1,0,'','ALGO FACIL PERO NO RECUERDO BIEN COMO ERA','TRATO DE EJECUTAR UN COMANDO QUE ANTES ERA CON RUN PERO AUNQUE CON GETSYSDIR OBTENGO LA RUTA Y TRATO DE CORRERLO SIEMPRE ME DA ERROR DE PROTECCION GENERAL, AUN EXISTE EL COMANDO RUN O HAY ALGUNA MANERA NUEVA DE EJECUTAR UN COMANDO EXTERNO QUE NO RECUERDE AHORA, ESPECIFICAMENTE QUIERO EJECUTA NET VIEW PARA OBTENER LAS MAQUINAS EN LA RED Y HACER UNA TABLA CON ESO, GRACIAS','',0,'gA==','1e8n3tje',1,0,'',221,0,0),(35364,7695,6,760,0,'200.37.76.92',1185550960,1,0,1,1,1,0,'','build xharbour 07/2007','Hola Master Antonio\n\nEsto quiere decir que deberia recompilar las librerias de fwhXX con el xharbour 07/2007 para que funcionase dichos sistemas o no?\n\nEl codigo de recompilar seria el mismo que me dijiste en un post anterior Master, u otro procedimiento nuevo?\n\nSalu2\n\nFrancis','',0,'gA==','wrkvdzrf',1,0,'',760,0,0),(35365,7700,3,473,0,'81.82.10.56',1185552103,1,0,1,1,1,0,'','xBrowse - On Change','Hello,\n\nI did not found a \"On Change\" clause in the xBrowse class.\n\nI want to update some fields in a screen every time the record pointer of a xBrowse change.\n\nIs that possible.\n\nThanks,\n\nWilly Hermans','',0,'gA==','2buzx8qr',1,0,'',473,0,0),(35366,7700,3,473,0,'81.82.10.56',1185554449,1,0,1,1,1,0,'','','Found.\n\nI did not found :bChange in xBrowse class but it works.\n\nSorry\n\nWilly','',0,'gA==','801nyxif',1,0,'',473,0,0),(35367,7649,7,2,0,'87.218.146.8',1185556286,1,0,1,1,1,1,'','','No, el msgrun() no está disponible de momento en FWPPC','',0,'gA==','3ka9k74x',1,0,'',2,0,0),(35368,7678,3,34,0,'68.5.217.82',1185559462,1,0,1,1,1,1,'','TWBrowse','I\'m having problems getting it to build here and I don\'t know why.\n\nThe big point is that I\'m using xHarbour Builder with xCC ( Microsoft compatible ) so if that is what you have, I would appreciate it.  You could send it to <!-- e --><a href=\"mailto:TimStone@MasterLinkSoftware.com\">TimStone@MasterLinkSoftware.com</a><!-- e -->\n\nMost people are using a Borland build.  I tried simply building it with xHarbour into a library but it gives me many errors and redefinitions.\n\nAlso, if you have a better c file that will work with xCC/xHarbour Builder then I might be successful in building it.  That file is the source of the problem.','',0,'gA==','7jg38rle',1,0,'',34,0,0),(35369,7672,3,34,0,'68.5.217.82',1185559678,1,0,1,1,1,1,'','OK','I got around the problem but as James says, there may be a bug to review in this case.','',0,'gA==','30rudger',1,0,'',34,0,0),(35370,7690,3,34,0,'68.5.217.82',1185559844,1,0,1,1,1,1,'','Too many errors','I tried the build but there are too many errors when using xHarbour Builder ( xCC compiler ) with this.  I would need to rewrite at least one header file, and probably change some function names.\n\nFor those who are successful with this ( latest FWH, latest xHarbour, xCC ) what did you find, or are most of you using Borland to build this ?','',0,'gA==','1olewm97',1,0,'',34,0,0),(35371,7695,6,2,0,'87.218.146.8',1185564958,1,0,1,1,1,1,'','','El mismo código para recompilar debe servirte','',0,'gA==','3g6ilrch',1,0,'',2,0,0),(35372,7701,3,267,0,'200.208.238.2',1185565161,1,0,1,1,1,1,'','As to catch return of oActiveX:Do','hi,\n\nI need to catch the return of the following command: \n \n oActiveX&#058;Do(\"TerSearchReplace2\",\"rich\",\"\",SRCH_SEARCH,N,0)\n\nAccording to documentation of the [b:r6eul5q6]TerSearchReplace2[/b:r6eul5q6] component would have to return a numerical value.','',0,'QA==','r6eul5q6',1,0,'',267,0,0),(35373,7693,6,221,0,'200.109.96.250',1185566007,1,0,1,1,1,0,'','','creo no estoy seguro que el fivewin maneja por defecto el color fucsia para el transparente, ponlo fucsia y prueba a ver','',0,'QA==','3kf6nn7k',1,0,'',221,0,0),(35374,7679,11,578,0,'218.214.35.132',1185566047,1,0,1,0,1,0,'','','Antonio\n\nWhen you say:\n\n\"Please notice that you have to download install.exe and harbour.bin for Harbour, and installx.exe and xharbour.bin for xHarbour. \"\n\nWhere from?  I gather that these are files you provide but I cant see them.  Hopefully the rest I understand.\n\nWhen I\'ve worked it all out with your help maybe I should write it up to ease the path for others making the same transition and starting out with the same lack of knowledge that I have.\n\nxProgrammer','',0,'QA==','2n5j7swv',1,0,'',578,0,0),(35375,7699,6,54,0,'189.132.96.162',1185566109,1,0,1,1,1,1,'','Re: ALGO FACIL PERO NO RECUERDO BIEN COMO ERA','[quote=&quot;QAZWSX2K&quot;:cjyw63jl]TRATO DE EJECUTAR UN COMANDO QUE ANTES ERA CON RUN PERO AUNQUE CON GETSYSDIR OBTENGO LA RUTA Y TRATO DE CORRERLO SIEMPRE ME DA ERROR DE PROTECCION GENERAL, AUN EXISTE EL COMANDO RUN O HAY ALGUNA MANERA NUEVA DE EJECUTAR UN COMANDO EXTERNO QUE NO RECUERDE AHORA, ESPECIFICAMENTE QUIERO EJECUTA NET VIEW PARA OBTENER LAS MAQUINAS EN LA RED Y HACER UNA TABLA CON ESO, GRACIAS[/quote:cjyw63jl]\n\nwaitrun( \"miexe.exe\",4 )\n\ny\n\nShellExecute( oWnd, , \"c:\\documentos\\mi.doc\" )','',0,'gA==','cjyw63jl',1,0,'',54,0,0),(35376,7699,6,221,0,'200.109.96.250',1185567066,1,0,1,1,1,0,'','','si ya probe waitrun, winexec y ahora el shellexecute, ejecutan el \"NET VIEW\" pero necesito que arroje la salida a un txt, osea (\"NET VIEW &gt; SALIDA.TXT\"), ese sieria el comando pero al ponerle nada mas el \"&gt;\" da error de proteccion de windows','',0,'gA==','1xg400gw',1,0,'',221,0,0),(35377,7699,6,36,0,'164.77.81.210',1185567683,1,0,1,1,1,1,'','','Hola\n\nLo que puedes hacer es crear el archivo bat y luego ejecutar..\n\n[code:1xp4aluy]		if !file&#40; &quot;C&#58;\\CONECT2&#46;BAT&quot; &#41;\n			if &#40;hFile &#58;= fCreate&#40; &quot;C&#58;\\CONECT2&#46;BAT&quot;, 0 &#41;&#41; = -1\n				return&#40; &#46;t&#46; &#41;\n			endif\n			FWRITE&#40; hFile, &quot;NET VIEW &gt;C&#58;\\conect2&#46;txt&quot; + CRLF &#41;\n			FCLOSE&#40; hFile &#41;\n		endif\n		WineXEC&#40; &quot;C&#58;\\CONECT2&#46;BAT&quot;, 0  &#41;\n                //BLA&#46;&#46;&#46;&#46;\n                //ELIMINAR ARCHIVO TEMPORAl\n\n[/code:1xp4aluy]\nSaludos\nPatricio','',0,'AIA=','1xp4aluy',1,0,'',36,0,0),(35378,7701,3,2,0,'87.218.146.99',1185567927,1,0,1,1,1,1,'','','Vilian,\n\nTry:\n\nMsgInfo( oActiveX&#058;Do(\"TerSearchReplace2\",\"rich\",\"\",SRCH_SEARCH,N,0) )','',0,'AIA=','2rbj2swk',1,0,'',2,0,0),(35379,7701,3,267,0,'200.208.238.2',1185568180,1,0,1,1,1,1,'','','Antonio,\n\nAlready I tried thus and is returning NIL.','',0,'AIA=','1zyhmf8b',1,0,'',267,0,0),(35380,7679,11,2,0,'87.218.146.99',1185568546,1,0,1,1,1,1,'','','Doug,\n\nPlease download Harbour and xHarbour for Linux from here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/install.exe\">http://www.fivetechsoft.com/files/install.exe</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.bin\">http://www.fivetechsoft.com/files/harbour.bin</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/installx.exe\">http://www.fivetechsoft.com/files/installx.exe</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.bin\">http://www.fivetechsoft.com/files/xharbour.bin</a><!-- m -->\n\nPlease feel welcome to make as many questions as needed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','29xiovp2',1,0,'',2,0,0),(35381,7665,3,689,0,'200.146.101.71',1185571074,1,0,1,1,1,0,'','','Is possible post a sample how do this?\n\nEroni','',0,'AIA=','gcu9tpgh',1,0,'',689,0,0),(35382,7679,11,2,0,'87.218.146.8',1185571372,1,0,1,1,1,1,'','','Doug,\n\nOur FTDN download webpage was not ok, now it is fixed and it properly shows the files to download.\n\nMany thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ks6qw1m',1,0,'',2,0,0),(35383,7682,6,774,0,'200.72.126.45',1185571426,1,0,1,1,1,1,'','','y q dicen los master al respecto.... creo q aun no han dado una explicacion claro , consisa,, y determinante,,, \n\ny obviamente una soluion al respecto\n\n\nEN ESPERA DE ALGO\n\nBYE','',0,'AIA=','1ryuboe2',1,0,'',774,0,0),(35384,7665,3,2,0,'87.218.146.8',1185572132,1,0,1,1,1,1,'','','Here you have you sample modified:\n[code:3700cqy1]\n#include &quot;FiveWin&#46;ch&quot; \n\n#define D_WIDTH 4 \n#define D_HEIGHT 13 \n\nstatic oWndMain\n\nfunction Main&#40;&#41;\n\n   local oBar\n\n   DEFINE WINDOW oWndMain TITLE &quot;MDI sample&quot; ;\n      MENU BuildMenu&#40;&#41; MDI\n\n   DEFINE BUTTONBAR oBar 3D BUTTONSIZE 48, 48 OF oWndMain // here button bar \n   \n   ACTIVATE WINDOW oWndMain MAXIMIZED\n   \nreturn nil   \n\nFUNCTION Child&#40;&#41; \n\nLOCAL oWnd,oScrWnd\ndefine window oWnd from 0, 0 TO 25, 70 ; \ntitle &quot;Scroll Window&quot; ; \nvscroll hscroll MDICHILD OF oWndMain\n\nTScrWnd&#40;&#41;&#58;New&#40; oWnd, 1, 40, 1, 70 &#41; \n\nRETURN&#40; NIL &#41; \n\nfunction BuildMenu&#40;&#41; \nLOCAL oMenu \n\nMENU oMenu \nMENUITEM &quot;&amp;Child Window&quot;\nMENU \nMENUITEM &quot;&amp;Open&quot; ACTION Child&#40;&#41;\nMENUITEM &quot;&amp;Close&quot; \nMENUITEM &quot;&amp;Save&quot; \nMENUITEM &quot;&amp;End&quot; \nENDMENU \nENDMENU \n\nreturn oMenu \n\n//----------------------------------------------------------------------------// \n\n\n//============================================================================ \n// FileName &#58; SCROLL&#46;PRG \n// Purpose &#58; Windows Scroll Class \n// Author &#58; Eric Yang \n// Update History &#58; \n// Date Contents \n// ---------- --------------------------------------------------------------- \n// 1997&#46;02&#46;01 \n// \n//============================================================================ \n#include &quot;FiveWin&#46;ch&quot; \n\n#ifndef TRUE \n#define TRUE &#46;T&#46; \n#define FALSE &#46;F&#46; \n#endif \n\nCLASS TScrWnd \n\nDATA oWnd \nDATA nVPos,nHPos \n\nMETHOD New&#40; oWnd,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR \nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; \n//-*------------------------------------------------------------ \nMETHOD VScroll&#40;&#41; \nMETHOD VScrollThumb&#40;&#41; \nMETHOD VScrollTrack&#40;&#41; \nMETHOD VScrollPgDown&#40;&#41; \nMETHOD VScrollPgUp&#40;&#41; \n//-*----------------------------- \nMETHOD HScroll&#40;&#41; \nMETHOD HScrollThumb&#40;&#41; \nMETHOD HScrollTrack&#40;&#41; \nMETHOD HScrollPgDown&#40;&#41; \nMETHOD HScrollPgUp&#40;&#41; \n\nENDCLASS \n\nMETHOD New&#40; oWnd,nV1,nV2,nH1,nH2 &#41; CLASS TScrWnd \n&#58;&#58;nVPos &#58;= 0 \n&#58;&#58;nHPos &#58;= 0 \n&#58;&#58;oWnd &#58;= oWnd \n&#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41; \nRETURN Self \n\n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrWnd \nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125; \n//-------------------------------------------------- \n//-* Vertical Scroll Bar \n// ? &#58;&#58;oWnd&#58;oVSCroll=NIL \nif &#58;&#58;oWnd&#58;oVScroll != NIL \n// ? nV1,nV2 \n&#58;&#58;oWnd&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41; \n&#58;&#58;nVPos &#58;= &#58;&#58;oWnd&#58;oVScroll&#58;GetPos&#40;&#41; \n&#58;&#58;oWnd&#58;oVScroll&#58;bGoDown &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oVScroll&#58;bGoUp &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oVScroll&#58;bPageUp &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oVScroll&#58;bGoTop &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oVScroll&#58;nPgStep &#58;= 10 \n//&#58;&#58;oWnd&#58;oVScroll&#58;lReDraw &#58;= TRUE \n&#58;&#58;oWnd&#58;oVScroll&#58;bPos &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125; \n&#58;&#58;oWnd&#58;oVScroll&#58;bTrack &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125; \nendif \n//-------------------------------------------------- \n//-* Horizontal Scroll Bar \nif &#58;&#58;oWnd&#58;oHScroll != NIL \n&#58;&#58;oWnd&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41; \n&#58;&#58;nHPos &#58;= &#58;&#58;oWnd&#58;oHScroll&#58;GetPos&#40;&#41; \n&#58;&#58;oWnd&#58;oHScroll&#58;bGoDown &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oHScroll&#58;bGoUp &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oHScroll&#58;bPageUp &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oHScroll&#58;bGoTop &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125; \n&#58;&#58;oWnd&#58;oHScroll&#58;nPgStep &#58;= 10 \n//&#58;&#58;oWnd&#58;oHScroll&#58;lReDraw &#58;= TRUE \n&#58;&#58;oWnd&#58;oHScroll&#58;bPos &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125; \n&#58;&#58;oWnd&#58;oHScroll&#58;bTrack &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125; \nendif \n//&#58;&#58;oWnd&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125; \n//-------------------------------------------------- \nRETURN&#40; NIL &#41; \n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41; \n//MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41; \n//if nKey == K_ENTER \n// goMainDlg&#58;End&#40;&#41; \n// lRetVal &#58;= TRUE \n//endif \n//RETURN&#40; NIL &#41; \n\n//================================================================= \n//-* Vertical Scroll Bar \nMETHOD VScroll&#40;&#41; CLASS TScrWnd \nLOCAL nNewPos \nif &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin ; \n&#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax \nnNewPos &#58;= &#58;&#58;oWnd&#58;oVScroll&#58;GetPos&#40;&#41; \nSysRefresh&#40;&#41; \n\nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0, ; \n&#40; &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nVPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrWnd \nif &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin ; \n&#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax \n&#58;&#58;oWnd&#58;oVScroll&#58;SetPos&#40;nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0, ; \n&#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nVPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrWnd \nif &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin ; \n&#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax \n&#58;&#58;oWnd&#58;oVScroll&#58;SetPos&#40;nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0, ; \n&#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nVPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrWnd \nLOCAL nNewPos \nif &#58;&#58;nVPos &lt; &#58;&#58;oWnd&#58;oVScroll&#58;nMax \nnNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep \nnNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oWnd&#58;oVScroll&#58;nMax, &#58;&#58;oWnd&#58;oVScroll&#58;nMax, nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0, ; \n&#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nVPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrWnd \nLOCAL nNewPos \nif &#58;&#58;nVPos &gt; &#58;&#58;oWnd&#58;oVScroll&#58;nMin \nnNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep \nnNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oWnd&#58;oVScroll&#58;nMin,&#58;&#58;oWnd&#58;oVScroll&#58;nMin,nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0, ; \n&#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nVPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\n//================================================================= \n//-* Horizontal Scroll Bar \nMETHOD HScroll&#40;&#41; CLASS TScrWnd \nLOCAL nNewPos \nif &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin ; \n&#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax \nnNewPos &#58;= &#58;&#58;oWnd&#58;oHScroll&#58;GetPos&#40;&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, ; \n&#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nHPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrWnd \nif &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin ; \n&#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax \n&#58;&#58;oWnd&#58;oHScroll&#58;SetPos&#40;nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, ; \n&#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nHPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrWnd \nif &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin ; \n&#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax \n&#58;&#58;oWnd&#58;oHScroll&#58;SetPos&#40;nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, ; \n&#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nHPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrWnd \nLOCAL nNewPos \nif &#58;&#58;nHPos &lt; &#58;&#58;oWnd&#58;oHScroll&#58;nMax \nnNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep \nnNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oWnd&#58;oHScroll&#58;nMax, &#58;&#58;oWnd&#58;oHScroll&#58;nMax, nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, ; \n&#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nHPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrWnd \nLOCAL nNewPos \nif &#58;&#58;nHPos &gt; &#58;&#58;oWnd&#58;oHScroll&#58;nMin \nnNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep \nnNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oWnd&#58;oHScroll&#58;nMin,&#58;&#58;oWnd&#58;oHScroll&#58;nMin,nNewPos&#41; \nSysRefresh&#40;&#41; \nScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, ; \n&#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0, ; \n0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41; \n&#58;&#58;nHPos &#58;= nNewPos \nendif \nRETURN&#40; NIL &#41; \n[/code:3700cqy1]\n[url=http&#58;//imageshack&#46;us:3700cqy1][img:3700cqy1]http&#58;//img515&#46;imageshack&#46;us/img515/9932/mdipd1&#46;jpg[/img:3700cqy1][/url:3700cqy1]','',0,'GIA=','3700cqy1',1,0,'',2,0,0),(35385,7682,6,2,0,'87.218.146.8',1185572469,1,0,1,1,1,1,'','','Primero, es muy importante no usar distintas versiones de Windows en una misma red. Eso puede enlentecer mucho el rendimiento de la red.\n\nSegundo, el gurú de los RDDs de Harbour/xHarbour es Przemek. Así que habría que preparar un ejemplo que demostrase la \"lentitud\" del acceso a los datos, un ejemplo en modo consola, y enviárselo para que él de su opinión','',0,'GIA=','1zzufo5q',1,0,'',2,0,0),(35386,7692,3,35,0,'65.188.6.143',1185583293,1,0,1,1,1,0,'','','Been using Vista Business RTM since it was available back in Nov 06 .. not had the first problem printing or using prev32.dll.\n\nI have all kinds of FWH27 apps using xHarbour 99.60 to 99.7.. and the programs range from client\\server with ADS, to local area applications running Novell and Win2003 servers as well as some of the new ADO programming.\n\nDesktop clients range from Win2000 , XP-sp2 and Vista Business.\n\nNot one problem !!\n\nRick Lipkin\nSC Dept of Health, USA','',0,'GIA=','3upweb4k',1,0,'',35,0,0),(35387,7690,3,35,0,'65.188.6.143',1185583750,1,0,1,1,1,0,'','','Tim\n\nI gave up on MSVC and Hernan\'s TwBrowse .. went back to Borland 5.5 and now working with the Borland Turbo 5.82 compiler.. no problems at all.\n\nSomething about the way that .c file is written .. it just will not compile with MSVC7 or 8 ..\n\nIf I am working with ADS .. I use Hernan\'s Twbrowse .. if I am using ADO or writing for a local LAN app .. I use the standard FWH TwBrowse.\n\nHernan\'s browse does have some nice features and a lot more column control if you need that .. mostly for what I do .. I just need a standard listbox... either in code or .rc.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'GIA=','3hpa7bkt',1,0,'',35,0,0),(35388,7692,3,620,0,'65.245.57.110',1185585675,1,0,1,1,1,0,'','','Well, as it turns out, my problem was a hardware issue on this one particular machine.  Ive got two other new machines with Vista that I installed today and have no problem with them, so problem solved.  Thanks for all the input!','',0,'GIA=','3sa11gy8',1,0,'',620,0,0),(35389,7702,3,299,0,'24.233.172.101',1185586206,1,0,1,0,1,0,'','Tslider transparency','Hi.\n\nWorking with Tslider control for the first time.  I\'m placing this control on a bitmaped dialog where all controls are transparent but the Tslider.  Can\'t find how to make it transparent.  Is this possible at all?\n\n[code:zi7ksjn3]\n\n	DEFINE DIALOG &#58;&#58;oDlg NAME &quot;VoiceRecorder&quot; OF &#58;&#58;oOwner BRUSH &#58;&#58;oBrush  TRANSPARENT\n&#46;&#46;&#46;\n	REDEFINE SLIDER &#58;&#58;oSlider VAR nVar OF &#58;&#58;oDlg ID 400 HORIZONTAL LEFT DIRECTION EXACT ;\n               RANGE 0, 200 MARKS 7\n	&#58;&#58;oSlider&#58;bChange &#58;= &#123; || &#58;&#58;PlaySpeed&#40; Eval&#40; &#58;&#58;oSlider&#58;bSetGet&#40;&#41; &#41; &#41; &#125;\n	&#58;&#58;oSlider&#58;lTransparent &#58;= &#46;t&#46;\n	&#58;&#58;oSlider&#58;nClrPane &#58;= &#58;&#58;oDlg&#58;nClrPane\n\n[/code:zi7ksjn3]\n\nThank you,\n\n\nReinaldo.','',0,'AIA=','zi7ksjn3',1,0,'',299,0,0),(35390,7697,3,239,0,'218.19.74.47',1185588061,1,0,1,1,1,0,'','','EMG,\n  Still as before, not work.\n\nShuming Wang','',0,'AIA=','1iojvyn9',1,0,'',239,0,0),(35391,7679,11,578,0,'218.214.35.132',1185592418,1,0,1,0,1,0,'','','Antonio\n\nThanks for your help.  I\'m sure I\'ll make it with your ongoing support.\n\nThanks\n\nDoug','',0,'AIA=','2tr9hsbl',1,0,'',578,0,0),(35392,7679,11,578,0,'218.214.35.132',1185593057,1,0,1,0,1,0,'','','Antonio\n\nRe the FTDN page - is FWPPC supposed to be there? I have a Dell one and some day I might have a bash at coding for it.\n\nNot an issue at the moment - I have to focus on Linux\n\nDoug','',0,'AIA=','29kxn8ey',1,0,'',578,0,0),(35393,7703,3,148,0,'196.205.219.51',1185595861,1,0,1,1,1,0,'','rewrite dbf01.prg using code','I am trying to rewrite the sample dbf01.prg from code not from resources but I face problem with dlg:update() as no change hapnneded with buttons change and with settext() method I have syntax error.\n[code:ki8r9c3y]\n// FiveWin - DataBase Objects Tutorial - 01\n// FiveWin DataBase tools\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Dbfown&#46;ch&quot;\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   SET _3DLOOK ON\n\n   DEFINE WINDOW oWnd FROM 2, 2 TO 20, 70 ;\n      TITLE &quot;Testing DataBase Objects&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   SET MESSAGE OF oWnd ;\n      TO &quot;FiveWin - Object Oriented DataBase Management&quot; CENTERED\n\n   oWnd&#58;bLDblClick = &#123; || MsgInfo&#40; &quot;Double Left Click&quot; &#41; &#125;\n\n   ACTIVATE WINDOW oWnd MAXIMIZED ;\n      VALID MsgYesNo&#40; &quot;Do you really want to end ?&quot; &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;&amp;Clients&quot;\n      MENU\n         MENUITEM &quot;&amp;Record by Record&#46;&#46;&#46;&quot; ACTION ClientsRec&#40;&#41; ;\n            MESSAGE &quot;Clients record by record management dialog&quot;\n\n         MENUITEM &quot;&amp;Browse&#46;&#46;&#46;&quot; ACTION ClientsBrowse&#40;&#41; ;\n            MESSAGE &quot;Clients browse management dialog&quot;\n\n         SEPARATOR\n\n         MENUITEM &quot;&amp;Exit Test&#46;&#46;&#46;&quot;  ACTION oWnd&#58;End&#40;&#41; ;\n            MESSAGE &quot;End doing this tutorial&quot;\n      ENDMENU\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction ClientsRec&#40;&#41;\n\n   local oDbf, oDlg\n   local oBtnNew&#58;=&quot;&amp;New&quot;, oBtnTop&#58;=&quot;&amp;Top&quot;, ;\n   oBtnPrev&#58;=&quot;&amp;Previous&quot;, oBtnNext&#58;=&quot;&amp;Next&quot;, oBtnBottom&#58;=&quot;&amp;bottom&quot;, oBtnEnd&#58;=&quot;&amp;End&quot;\n   local aButtons\n   local lNew &#58;= &#46;f&#46;\n\n   USE Customer\n\n   DATABASE oDbf        // We create a DBF Object based on the current Alias\n                        // Now we can change WorkArea and the DBF Object\n                        // automatically access its area !\n\n   oDbf&#58;bEoF = nil      // We don\'t want default EOF processing\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;\nTITLE &#40;&quot;Customer&quot; &#41;\n\n   @ 1,2 SAY &quot;&amp;First&quot; OF oDlg PIXEL \n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 GET oDbf&#58;First OF oDlg PIXEL \n\n   @ 15,1 SAY &quot;&amp;Name&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET oDbf&#58;Last OF oDlg PIXEL\n\n\n   @ 280, 10 BUTTON oBtnNew  OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION  New&#40; @lNew, oDbf, aButtons, oDlg &#41; ;\n      MESSAGE &quot;Add a new customer&quot;\n\n   @ 280, 50 BUTTON oBtnTop  OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION  Top&#40; @lNew, oDbf, aButtons, oDlg &#41; ;\n      MESSAGE &quot;Go to the first record of the DataBase&quot;\n\n   @ 280, 100 BUTTON oBtnPrev OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION &#40; oDbf&#58;Skip&#40; -1 &#41;, oDlg&#58;Update&#40;&#41; &#41; ;\n      MESSAGE &quot;Go to the previous record of the DataBase&quot;\n\n   @ 280, 150 BUTTON oBtnNext OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION &#40; oDbf&#58;Skip&#40;&#41;,;\n               If&#40; oDbf&#58;Eof&#40;&#41;, &#40; MsgStop&#40; &quot;EoF&quot; &#41;, oDbf&#58;GoBottom&#40;&#41; &#41;,;\n               oDlg&#58;Update&#40;&#41; &#41; &#41; ;\n      MESSAGE &quot;Go to the next record of the DataBase&quot;\n\n   @ 280, 200 BUTTON oBtnBottom OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION &#40; oDbf&#58;GoBottom&#40;&#41;, oDlg&#58;Update&#40;&#41; &#41; ;\n      MESSAGE &quot;Go to the last record of the DataBase&quot;\n\n   @ 280, 250 BUTTON oBtnEnd OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION oDlg&#58;End&#40;&#41; ;\n      MESSAGE &quot;End this dialog&quot;\n\n   \n\n   aButtons = &#123; oBtnNew, oBtnTop, oBtnPrev, oBtnNext, oBtnBottom, oBtnEnd &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n         ON INIT &#40; oDlg&#58;Update&#40;&#41; &#41; \n\n\n   USE\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction New&#40; lNew, oDbf, aButtons, oDlg &#41;\n\n   local n\n\n   if ! lNew\n      aButtons&#91; 1 &#93;&#58;SetText&#40; &quot;&amp;Save&quot; &#41;\n      aButtons&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Cancel&quot; &#41;\n      for n = 3 to Len&#40; aButtons &#41;\n         aButtons&#91; n &#93;&#58;Disable&#40;&#41;\n      next\n      oDbf&#58;Blank&#40;&#41;   // we \'clean\' the DataBase buffer\n      oDlg&#58;Update&#40;&#41;  // we refresh the controls\n      oDlg&#58;aControls&#91; 1 &#93;&#58;SetFocus&#40;&#41;  // we give focus to the first GET\n   else\n      oDbf&#58;Append&#40;&#41;  // The user selected \'save\'\n      oDbf&#58;Save&#40;&#41;    // we copy from the DataBase buffer into the \'real\' DBF\n      aButtons&#91; 1 &#93;&#58;SetText&#40; &quot;&amp;New&quot; &#41;\n      aButtons&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Top&quot; &#41;\n      for n = 3 to Len&#40; aButtons &#41;\n	 aButtons&#91; n &#93;&#58;Enable&#40;&#41;\n      next\n   endif\n\n   lNew = ! lNew     // we toggle the lNew value\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Top&#40; lNew, oDbf, aButtons, oDlg &#41;\n\n   local n\n\n   if ! lNew		// the user wants to GO TOP\n      oDbf&#58;GoTop&#40;&#41;\n      oDlg&#58;Update&#40;&#41;	// we repaint the controls containts\n\n   else 		// the user canceled the \'New\' option\n      oDbf&#58;Load&#40;&#41;	// reload again fields info from the DBF\n      oDlg&#58;Update&#40;&#41;	// we repaint the controls contains\n      aButtons&#91; 1 &#93;&#58;SetText&#40; &quot;&amp;New&quot; &#41;\n      aButtons&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Top&quot; &#41;\n      for n = 3 to Len&#40; aButtons &#41;\n	 aButtons&#91; n &#93;&#58;Enable&#40;&#41;\n      next\n      lNew = &#46;f&#46;\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction ClientsBrowse&#40;&#41;\n\n   local oDlg, oDbf, oBrw, oFnt\n\n   USE customer\n   DATABASE oDbf\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Browse&quot;\n\n   REDEFINE LISTBOX oBrw ;\n      FIELDS oDbf&#58;first, oDbf&#58;last ;\n      HEADERS &quot;first&quot;,   &quot;last&quot; ;\n      SIZES   250, 300 ;\n      ID 110 OF oDlg\n\n   // We change the skip codeblock of the browse, to be managed\n   // by the DataBase object skip method, so we can directly use\n   // oDbf&#58;Name and oDbf&#58;Adress in the above FIELDS &#46;&#46;&#46; clause\n\n   oBrw&#58;bSkip = &#123; | nRecs | oDbf&#58;Skipper&#40; nRecs &#41; &#125;\n\n   oBrw&#58;lAutoEdit  = &#46;T&#46;\n\n   oBrw&#58;cToolTip = &quot;This is a test&quot;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   USE\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nprocedure AppSys   // XBase++ requirement\n\nreturn\n\n//----------------------------------------------------------------------------//\n[/code:ki8r9c3y]','',0,'AIA=','ki8r9c3y',1,0,'',148,0,0),(35394,7679,11,2,0,'87.218.146.8',1185605268,1,0,1,1,1,1,'','','Doug,\n\nNo, FWPPC is not part of FTDN yet. \n\nThe FTDN included products are described here:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/ftdn.html\">http://www.fivetechsoft.com/english/ftdn.html</a><!-- m -->','',0,'AIA=','l3holk2i',1,0,'',2,0,0),(35395,7703,3,2,0,'87.218.146.8',1185607105,1,0,1,1,1,1,'','','Ehab,\n\nThis is the right way to do it:\n[code:2cca3v1m]\n#include &quot;FiveWin&#46;ch&quot; \n\nstatic oWnd \n\n//----------------------------------------------------------------------------// \n\nfunction Main&#40;&#41; \n\n   SET _3DLOOK ON \n\n   DEFINE WINDOW oWnd FROM 2, 2 TO 20, 70 ; \n      TITLE &quot;Testing DataBase Objects&quot; ; \n      MENU BuildMenu&#40;&#41; \n\n   SET MESSAGE OF oWnd ; \n      TO &quot;FiveWin - Object Oriented DataBase Management&quot; CENTERED \n\n   oWnd&#58;bLDblClick = &#123; || MsgInfo&#40; &quot;Double Left Click&quot; &#41; &#125; \n\n   ACTIVATE WINDOW oWnd MAXIMIZED ; \n      VALID MsgYesNo&#40; &quot;Do you really want to end ?&quot; &#41; \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction BuildMenu&#40;&#41; \n\n   local oMenu \n\n   MENU oMenu \n      MENUITEM &quot;&amp;Clients&quot; \n      MENU \n         MENUITEM &quot;&amp;Record by Record&#46;&#46;&#46;&quot; ACTION ClientsRec&#40;&#41; ; \n            MESSAGE &quot;Clients record by record management dialog&quot; \n\n         MENUITEM &quot;&amp;Browse&#46;&#46;&#46;&quot; ACTION ClientsBrowse&#40;&#41; ; \n            MESSAGE &quot;Clients browse management dialog&quot; \n\n         SEPARATOR \n\n         MENUITEM &quot;&amp;Exit Test&#46;&#46;&#46;&quot;  ACTION oWnd&#58;End&#40;&#41; ; \n            MESSAGE &quot;End doing this tutorial&quot; \n      ENDMENU \n   ENDMENU \n\nreturn oMenu \n\n//----------------------------------------------------------------------------// \n\nfunction ClientsRec&#40;&#41; \n\n   local oDbf, oDlg \n   local oBtnNew, oBtnTop, oBtnPrev, oBtnNext, oBtnBottom, oBtnEnd \n   local aButtons\n   local lNew &#58;= &#46;f&#46; \n\n   USE Customer \n\n   DATABASE oDbf        // We create a DBF Object based on the current Alias \n                        // Now we can change WorkArea and the DBF Object \n                        // automatically access its area ! \n\n   oDbf&#58;bEoF = nil      // We don\'t want default EOF processing \n\n   DEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ; \n      TITLE &#40;&quot;Customer&quot; &#41; \n\n   @ 1,2 SAY &quot;&amp;First&quot; OF oDlg PIXEL \n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 GET oDbf&#58;First OF oDlg PIXEL UPDATE\n\n   @ 15,1 SAY &quot;&amp;Name&quot; OF oDlg PIXEL \n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 15,60 GET oDbf&#58;Last OF oDlg PIXEL UPDATE\n\n\n   @ 280, 10 BUTTON oBtnNew PROMPT &quot;&amp;New&quot; OF oDlg PIXEL SIZE 30, 12 ; \n      ACTION  New&#40; @lNew, oDbf, aButtons, oDlg &#41; ; \n      MESSAGE &quot;Add a new customer&quot; \n\n   @ 280, 50 BUTTON oBtnTop PROMPT &quot;&amp;Top&quot; OF oDlg PIXEL SIZE 30, 12 ; \n      ACTION  Top&#40; @lNew, oDbf, aButtons, oDlg &#41; ; \n      MESSAGE &quot;Go to the first record of the DataBase&quot; \n\n   @ 280, 100 BUTTON oBtnPrev PROMPT &quot;&amp;Previous&quot; OF oDlg PIXEL SIZE 30, 12 ; \n      ACTION &#40; oDbf&#58;Skip&#40; -1 &#41;, oDlg&#58;Update&#40;&#41; &#41; ; \n      MESSAGE &quot;Go to the previous record of the DataBase&quot; \n\n   @ 280, 150 BUTTON oBtnNext PROMPT &quot;&amp;Next&quot; OF oDlg PIXEL SIZE 30, 12 ; \n      ACTION &#40; oDbf&#58;Skip&#40;&#41;,; \n               If&#40; oDbf&#58;Eof&#40;&#41;, &#40; MsgStop&#40; &quot;EoF&quot; &#41;, oDbf&#58;GoBottom&#40;&#41; &#41;,; \n               oDlg&#58;Update&#40;&#41; &#41; &#41; ; \n      MESSAGE &quot;Go to the next record of the DataBase&quot; \n\n   @ 280, 200 BUTTON oBtnBottom PROMPT &quot;&amp;Bottom&quot; OF oDlg PIXEL SIZE 30, 12 ; \n      ACTION &#40; oDbf&#58;GoBottom&#40;&#41;, oDlg&#58;Update&#40;&#41; &#41; ; \n      MESSAGE &quot;Go to the last record of the DataBase&quot; \n\n   @ 280, 250 BUTTON oBtnEnd PROMPT &quot;&amp;End&quot; OF oDlg PIXEL SIZE 30, 12 ; \n      ACTION oDlg&#58;End&#40;&#41; ; \n      MESSAGE &quot;End this dialog&quot; \n\n   aButtons &#58;= &#123; oBtnNew, oBtnTop, oBtnPrev, oBtnNext, oBtnBottom, oBtnEnd &#125; \n\n   ACTIVATE DIALOG oDlg CENTERED ; \n         ON INIT &#40; oDlg&#58;Update&#40;&#41; &#41; \n\n\n   USE \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction New&#40; lNew, oDbf, aButtons, oDlg &#41; \n\n   local n \n\n   if ! lNew \n      aButtons&#91; 1 &#93;&#58;SetText&#40; &quot;&amp;Save&quot; &#41; \n      aButtons&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Cancel&quot; &#41; \n      for n = 3 to Len&#40; aButtons &#41; \n         aButtons&#91; n &#93;&#58;Disable&#40;&#41; \n      next \n      oDbf&#58;Blank&#40;&#41;   // we \'clean\' the DataBase buffer \n      oDlg&#58;Update&#40;&#41;  // we refresh the controls \n      oDlg&#58;aControls&#91; 1 &#93;&#58;SetFocus&#40;&#41;  // we give focus to the first GET \n   else \n      oDbf&#58;Append&#40;&#41;  // The user selected \'save\' \n      oDbf&#58;Save&#40;&#41;    // we copy from the DataBase buffer into the \'real\' DBF \n      aButtons&#91; 1 &#93;&#58;SetText&#40; &quot;&amp;New&quot; &#41; \n      aButtons&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Top&quot; &#41; \n      for n = 3 to Len&#40; aButtons &#41; \n    aButtons&#91; n &#93;&#58;Enable&#40;&#41; \n      next \n   endif \n\n   lNew = ! lNew     // we toggle the lNew value \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction Top&#40; lNew, oDbf, aButtons, oDlg &#41; \n\n   local n \n\n   if ! lNew      // the user wants to GO TOP \n      oDbf&#58;GoTop&#40;&#41; \n      oDlg&#58;Update&#40;&#41;   // we repaint the controls containts \n\n   else       // the user canceled the \'New\' option \n      oDbf&#58;Load&#40;&#41;   // reload again fields info from the DBF \n      oDlg&#58;Update&#40;&#41;   // we repaint the controls contains \n      aButtons&#91; 1 &#93;&#58;SetText&#40; &quot;&amp;New&quot; &#41; \n      aButtons&#91; 2 &#93;&#58;SetText&#40; &quot;&amp;Top&quot; &#41; \n      for n = 3 to Len&#40; aButtons &#41; \n    aButtons&#91; n &#93;&#58;Enable&#40;&#41; \n      next \n      lNew = &#46;f&#46; \n   endif \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction ClientsBrowse&#40;&#41; \n\n   local oDlg, oDbf, oBrw, oFnt \n\n   USE customer \n   DATABASE oDbf \n\n   DEFINE DIALOG oDlg RESOURCE &quot;Browse&quot; \n\n   REDEFINE LISTBOX oBrw ; \n      FIELDS oDbf&#58;first, oDbf&#58;last ; \n      HEADERS &quot;first&quot;,   &quot;last&quot; ; \n      SIZES   250, 300 ; \n      ID 110 OF oDlg \n\n   // We change the skip codeblock of the browse, to be managed \n   // by the DataBase object skip method, so we can directly use \n   // oDbf&#58;Name and oDbf&#58;Adress in the above FIELDS &#46;&#46;&#46; clause \n\n   oBrw&#58;bSkip = &#123; | nRecs | oDbf&#58;Skipper&#40; nRecs &#41; &#125; \n\n   oBrw&#58;lAutoEdit  = &#46;T&#46; \n\n   oBrw&#58;cToolTip = &quot;This is a test&quot; \n\n   ACTIVATE DIALOG oDlg CENTERED \n\n   USE \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n[/code:2cca3v1m]','',0,'AIA=','2cca3v1m',1,0,'',2,0,0),(35396,7703,3,148,0,'196.205.219.51',1185611108,1,0,1,1,1,0,'','','Sorry I also rewrite the ClientsBrowse() with error :\n\nNo exported method: BLCLICKED\n\n[code:18d2bk88]\nfunction ClientsBrowse&#40;&#41; \n\n   local oDlg, oDbf, oBrw, oFnt \n\n   USE customer \n   DATABASE oDbf \n   \n    @ 10,20 LISTBOX oBrw;\n      FIELDS oDbf&#58;first, oDbf&#58;last ; \n      HEADERS &quot;first&quot;,   &quot;last&quot; ; \n      SIZE   250, 300  of oDlg\n    \n   // We change the skip codeblock of the browse, to be managed \n   // by the DataBase object skip method, so we can directly use \n   // oDbf&#58;Name and oDbf&#58;Adress in the above FIELDS &#46;&#46;&#46; clause \n\n   oBrw&#58;bSkip = &#123; | nRecs | oDbf&#58;Skipper&#40; nRecs &#41; &#125; \n\n   oBrw&#58;lAutoEdit  = &#46;T&#46; \n\n   oBrw&#58;cToolTip = &quot;This is a test&quot; \n\n   ACTIVATE DIALOG oDlg CENTERED \n\n   USE \n\nreturn nil \n[/code:18d2bk88]','',0,'AIA=','18d2bk88',1,0,'',148,0,0),(35397,7703,3,2,0,'87.218.146.8',1185611844,1,0,1,1,1,1,'','','You are missing DEFINE DIALOG. This is the right code:\n[code:2wxnbjxd]\nfunction ClientsBrowse&#40;&#41; \n\n   local oDlg, oDbf, oBrw, oFnt \n\n   USE customer \n   DATABASE oDbf \n\n   DEFINE DIALOG oDlg FROM 5, 5 TO 20, 80 TITLE &quot;Browse&quot; \n\n    @ 1, 2 LISTBOX oBrw; \n      FIELDS oDbf&#58;first, oDbf&#58;last ; \n      HEADERS &quot;first&quot;,   &quot;last&quot; ; \n      SIZE 250, 100  of oDlg \n    \n   // We change the skip codeblock of the browse, to be managed \n   // by the DataBase object skip method, so we can directly use \n   // oDbf&#58;Name and oDbf&#58;Adress in the above FIELDS &#46;&#46;&#46; clause \n\n   oBrw&#58;bSkip = &#123; | nRecs | oDbf&#58;Skipper&#40; nRecs &#41; &#125; \n\n   oBrw&#58;lAutoEdit  = &#46;T&#46; \n\n   oBrw&#58;cToolTip = &quot;This is a test&quot; \n\n   ACTIVATE DIALOG oDlg CENTERED \n\n   USE \n\nreturn nil \n[/code:2wxnbjxd]','',0,'AIA=','2wxnbjxd',1,0,'',2,0,0),(35398,7697,3,6,0,'87.17.186.87',1185612055,1,0,1,1,1,1,'','','Try without the redirection.\n\nEMG','',0,'AIA=','2q78eml6',1,0,'',6,0,0),(35399,7702,3,2,0,'87.218.146.8',1185612812,1,0,1,1,1,1,'','','Reinaldo,\n\nPlease try ::oSlider:SetBrush( ::oDlg:oBrush )','',0,'AIA=','1j04xi6j',1,0,'',2,0,0),(35400,7679,11,578,0,'218.214.35.132',1185619218,1,0,1,0,1,0,'','Progress but more advice needed','Hi Antonio\n\nI got Ubuntu 7.04 installed OK\n\nDownloaded installx.exe and xharbour.bin\n\nFollowed the instructions and ran fivelinux.exe and installx.exe just fine (although it insisted on installing in root/fivelinux and root/xharbour)\n\nAt first buildx.sh wouldn\'t run but after a bit I tried chmod o=x buildx.sh and then it ran\n\nThere seems to be a slight problem with buidx.sh however - it seems to be producing name.c file from name.prg whereas I gather than the rest of the script expects name.prg.c\n\nThis is what I got:\n\nxHarbour Compiler build 0.92.0 (Simplex)\nCopyright 1999-2004 etc\nCompiling \'tutor01.prg\'...\nLines 9, Functions/Procedures 1\nGenerating C source output to \'tutor01.c\'...\nDone\ncompiling C module...\ngcc: tutor01.prg.c: No such file or directory\ngcc: no input files\nlinking...\ngcc: tutor01.prg.o: No such file or directory\nrm\" cannot remove \'tutor01.prg.c\': no such etc\n\nA nicely written script because a novice like me can (I think) tell what\'s going on.\n\nI gues .sh means its a shell script.  I guess if I did some research I could fix it, but I figure there\'s a simple known solution that Antonio, or someone else, can tell me\n\nThanks Doug (xProgrammer)','',0,'AIA=','xtgttp5b',1,0,'',578,0,0),(35401,7679,11,2,0,'87.218.146.8',1185620216,1,0,1,1,1,1,'','','Doug,\n\n&gt; although it insisted on installing in root/fivelinux and root/xharbour\n\nAre you logged in as root ? Its not a good practice to login as root. You have the risk to break things. Get used to login as a standard user.\n\n&gt; chmod o=x buildx.sh\n\nYes, another way is:\nchmod +x ./buildx.sh\n\n&gt; the rest of the script expects name.prg.c \n\nDon\'t use the PRG extension when calling buildx.sh:\n\n./buildx.sh tutor01\n\n&gt; A nicely written script because a novice like me can (I think) tell what\'s going on. \n\nThanks. We like to make things simple and easy to understand <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; I gues .sh means its a shell script\n\nRight. Its the equivalent for a BAT file on Linux <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3718ipma',1,0,'',2,0,0),(35402,7679,11,578,0,'218.214.35.132',1185620298,1,0,1,0,1,0,'','Addendum to previous post','Five Linux manual says to use\n\n./buildx.sh tutor01\n\nBut when I do that I get:\n\nCannot open input file tutor01\n\nI think I have to change the first $1 in buildx.sh to $1.prg and it might work - but so far haven\'t managed to get write permission to that file.\n\nxProgrammer','',0,'AIA=','1fbhtmto',1,0,'',578,0,0),(35403,7679,11,2,0,'87.218.146.8',1185620448,1,0,1,1,1,1,'','','Doug,\n\nFrom the console type:\n\nwhoami\n\nand check if you are root or a user. You should reinstall FiveLinux and xHarbour as a user, not as the admin (root)','',0,'AIA=','1a2ubl1m',1,0,'',2,0,0),(35404,7692,3,303,0,'72.199.41.171',1185623600,1,0,1,1,1,0,'','','Rick,\n\n&gt;Not one problem !! \n\nThanks for that report, Rick, its comforting to know.\n\nJames','',0,'AIA=','1eiliagc',1,0,'',303,0,0),(35405,7665,3,689,0,'201.22.87.157',1185626305,1,0,1,1,1,0,'','','Antonio, thank you so much !\n\nRegards,\nEroni','',0,'AIA=','1bmejiae',1,0,'',689,0,0),(35406,7679,11,578,0,'218.214.35.132',1185627034,1,0,1,0,1,0,'','Will do - but I still suspect buildx.sh','Hi Antonio\n\nI am redoing everything - partly because of misunderstanding about ubuntu install, but I was logged on as a user (I believe) although I had used su to be able to execute and root was the directory it put files into.\n\nThat may be all confused but I think the main point is that ./buildx.sh\ntutor01.prg found the file and generated a .c file so I think that there is a script issue because ./buildx.sh tutor01 didn\'t find the file.\n\nDid the above.  chmod +x must work differently from chmod o=x because after chmod o=x I could only execute using su - which meant software installed in /root/ but after chmod +x could execute as me.\n\nNeeded to chmod +x buildx.sh but previously advised symptoms occurred.\n\nWas now able to edit buildx.sh and changed the line that comiles to c code by inserting .prg after $1 and guerss what - up came a \"Hello world\".\nVery good!\n\nThanks for all your input.\n\nBut I do believe that buildx.sh as supplied is gfaulty and humbly suggest that you check it out because I think my modification (or some other) is required to make it work.tutor01\n\nOne further question.  I can run tutor01 from the terminal OK - but when it exits I get a sort of terminal screen but its now white on black rather than black on white and less functional.  Plus I can\'t seem to get it to run from the Ubuntu file browser - which strikes me as odd - my little play with Fedora Core I seemed to be able to run apps happily from a file browser.\n\nBut I have compiled FiveWin under Linux!!!!!!\n\nThanks\n\nDoug (xProgrammer)[/list]','',0,'','1dot5kw6',1,0,'',578,0,0),(35407,7679,11,2,0,'87.218.146.8',1185627499,1,0,1,1,1,1,'','','Doug,\n\nDon\'t install FiveLinux and xHarbour using sudo or you will be doing it as root.\n\nThere is no need to login as root to install FiveLinux.\n\nGlad to know you are moving forward <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3dygfohi',1,0,'',2,0,0),(35408,7692,3,3,0,'80.81.159.19',1185628662,1,0,1,1,1,1,'','','I also have no problems printing fwh + xharbour on vista.\n\nOur app is running on many vista computers and no problems for printing.\n\nJust speed in network access is the major problem i can talk about for Vista\n\nHth\n\nRichard','',0,'','3d5nwzso',1,0,'',3,0,0),(35409,7690,3,3,0,'80.81.159.19',1185628791,1,0,1,1,1,1,'','Re: Too many errors','Tim\n\nSent to your email\n\nI also use xcc and Hernan\'s browse, it works OK\n\nRichard','',0,'','m4fp09e5',1,0,'',3,0,0),(35410,7704,6,1090,0,'201.254.58.9',1185631238,1,0,1,1,1,0,'','no puedo enviar adjuntos','hola, estoy usando el mail.ch, la funcion directmessage; cuando completo el parametro FILES, no me funciona; quiero simplemente enviar un mail con 1 solo adjunto. ¿hay algun secreto para que esto funcione?\nEl mail me lo manda, no tira errores, llega bien, pero del adjunto ni noticias. Si alguien me puede orientar sobre que puede ser, se lo agradeceré.','',0,'','2zw68gpa',1,0,'',1090,0,0),(35411,7692,3,35,0,'65.188.6.143',1185632520,1,0,1,1,1,0,'','','Richard\n\nOn Vista .. be mindful of the addition of Tcp/IP v6 which has been added as an additional protocol... along with the traditional IP v4.\n\nI have seen older HUB and switched network topologies that do not like IPv6 .. try diabling the IPv6 protocol on one of your Vista machines and see what happends.\n\nLet me know\n\nRick Lipkin\nSC Dept of Health, USA','',0,'','14d7eome',1,0,'',35,0,0),(35412,7702,3,299,0,'24.233.172.101',1185634673,1,0,1,0,1,0,'','','Antonio;\n\nThank you for the reply.  \n\nIt did not work.  No change.\n\nHere is the new code:\n[code:2pq6y43y]\n	DEFINE BRUSH &#58;&#58;oBrush RESOURCE &quot;GradientHoriz&quot;\n	DEFINE DIALOG &#58;&#58;oDlg NAME &quot;VoiceRecorder&quot; OF &#58;&#58;oOwner BRUSH &#58;&#58;oBrush  TRANSPARENT\n&#46;&#46;&#46;\n	REDEFINE SLIDER &#58;&#58;oSlider VAR nVar OF &#58;&#58;oDlg ID 400 HORIZONTAL LEFT DIRECTION EXACT ;\n               RANGE 0, 200 MARKS 7 \n	&#58;&#58;oSlider&#58;bChange &#58;= &#123; || &#58;&#58;PlaySpeed&#40; Eval&#40; &#58;&#58;oSlider&#58;bSetGet&#40;&#41; &#41; &#41; &#125;\n	&#58;&#58;oSlider&#58;lTransparent &#58;= &#46;t&#46;\n	&#58;&#58;oSlider&#58;SetBrush&#40; &#58;&#58;oDlg&#58;oBrush &#41;\n\n[/code:2pq6y43y]\n\nAny other ideas?\n\n\n\nReinaldo.','',0,'AIA=','2pq6y43y',1,0,'',299,0,0),(35413,7705,4,6,0,'87.17.186.87',1185634874,1,0,1,1,1,1,'','Device Id','Dear friends, does anybody know how to get a device id under WinCE 5?\n\nEMG','',0,'AIA=','7trkh1ag',1,0,'',6,0,0),(35414,7705,4,2,0,'87.218.146.227',1185640606,1,0,1,1,1,1,'','','Enrico,\n\nHave you tried FWPPC SerialNumber() function ?','',0,'AIA=','2d4fbzxu',1,0,'',2,0,0),(35415,7705,4,6,0,'87.17.186.87',1185641096,1,0,1,1,1,1,'','','Thank you, I will try.\n\nEMG','',0,'AIA=','27n7xg3e',1,0,'',6,0,0),(35416,7706,6,1106,0,'190.64.208.225',1185651585,1,0,1,1,1,0,'','Archivos INI','Amigos:\n\nHabia un tutorial sobre escribir y leer\narchivos .INI.\nAlguien me puede indicar alguna idea o pasarme si lo tiene?.\n\nEn los ejemplos de FWH viene solo para leer.\n\nSaludos y gracias.\n\nRuben Fernandez.','',0,'AIA=','o3s0c6k8',1,0,'',1106,0,0),(35417,7707,6,121,0,'189.138.162.121',1185652191,1,0,1,1,1,1,'','PONER VARIAS IMAGENES EN UN DIALOGO','SALUDOS\n\nALGUIEN ME PODRIA INDICAR COMO COLOCAR VARIAS IMAGENES\nEN UN DIALOGO\nHAGO LO SIGUIENTE:\n\n\nProcedure Main()\nLOCAL oBmp,oDlg\n\nDEFINE DIALOG oDlg FROM 0,0 TO 35,100 TITLE \"Test FreeImage\"\n\n DEFINE IMAGE oBmp  FILE \"001.jpg\" OF oDlg \n DEFINE IMAGE oBmp2 FILE \"002.jpg\" OF oDlg \n\n oDlg:bPainted:={|hDC|PalBmpDraw(hDC, 0,450, oBmp:hBitmap,,350,300,.T.)}\n oDlg:bPainted:={|hDC|PalBmpDraw(hDC, 0,  0,oBmp2:hBitmap,,350,300,.T.)}\n \nACTIVATE DIALOG oDlg CENTER\n\n\nPERO SOLO APARECE LA SEGUNDA IMAGEN','',0,'AIA=','zsxo5sdo',1,0,'',121,0,0),(35418,7706,6,53,0,'189.139.9.153',1185655818,1,0,1,1,1,1,'','','Rubén:\n\nEs mas fácil que quitarle su dinero a una borracha  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPara leer:\nSTATIC FUNCTION DaPedido(cFolPed)\nLOCAL oIni\nINI oIni FILE (cFolPed)\n   GET cInicial SECTION \"General\" ENTRY \"Iniciales\" OF oIni DEFAULT \"ABC\"\n   GET nPedido  SECTION \"General\" ENTRY \"Pedido\" OF oIni DEFAULT 0\nENDINI\nnPedido++\nRETURN(NIL)\n\nY para grabar:\nSTATIC FUNCTION SalvaPedido(cFolPed)\nMemVar oIni\nINI oIni FILE (cFolPed)\n   SET SECTION \"General\" ENTRY \"Pedido\" TO nPedido OF oIni\nENDINI\nRETURN(NIL)\n\nSaludos','',0,'AIA=','3f1xc1gw',1,0,'',53,0,0),(35419,7707,6,2,0,'87.218.146.222',1185665239,1,0,1,1,1,1,'','','Usa solo uno:\n\noDlg:bPainted:={|hDC|PalBmpDraw(hDC, 0,450, oBmp:hBitmap,,350,300,.T.),;\n                                 PalBmpDraw(hDC, 0, 0,oBmp2:hBitmap,,350,300,.T.)}','',0,'AIA=','29ilc4xv',1,0,'',2,0,0),(35420,7706,6,1106,0,'190.64.213.19',1185665524,1,0,1,1,1,0,'','','Gracias Armando.\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','mfnz1qjo',1,0,'',1106,0,0),(35421,7708,6,1106,0,'190.64.213.19',1185666293,1,0,1,1,1,0,'','Folder, tRebar - tamaño','Amigos:\n\nTengo un dialogo con un folder de 5 pestañas.\nEn el On init del Dialogo creo las (Toolbar) para cada pestaña\noRebar = TRebar():New(Page11) \n(El page11 viene de #DEFINE PAGE11   oFolder:aDialogs[1] )\n\nAl darle el tamaño oToolbar:nWidth = 150 para que no\nse salga de la pestaña, no lo respeta.\nPor lo tanto la linea superior derecha de la pestaña no se ve.\n\nCada pestaña debe tener botones diferentes por eso no lo\nhago en el dialogo principal.  \n\n\nMuchas gracias. \n\nSaludos\n\nRuben Fernandez.','',0,'','ojp2fpd2',1,0,'',1106,0,0),(35422,7709,11,578,0,'218.214.35.132',1185677960,1,0,1,0,1,0,'','oWnd:End(), oDlg:End()','Hi Antonio\n\nHave started trying to port an actual application.\n\nIt seems that neither oWnd:End() nor oDlg:End() work as anticipated.\n\nWhen I compile the code below Selecting File Exit from the menu does nothing except stop Help About from working, and if I go Help About and hit the Exit button once nothing happens - hit it a second time and the application exits altogether.  But the \"X\" buttons at top right of both the Help About dialog and the main Window seem to work fine.  It looks as if oWnd:End() and oDlg:End() don\'t work properly or at least as I expected and how they do under FiveWin.\n\nAny solutions? Or have I done something wrong? or misunderstanding something?\n\nHere is my code:\n\n//PatMatch.prg\n\n\n\n\n#include \"FiveLinux.ch\"\n\n// #include \"objects.ch\"\n\n\n\n#define idProgName \"File Match Software\"\n\n#define idVersion  \"0.1.1\"\n\n#define idCopName   \"Finalysis Pty. ltd.\"\n\n#define idCopDate  \"2007\"\n\n#define idBldDate  \"25 July 2007\"\n\n\n\nSTATIC oWnd\n\n\n\nFUNCTION Main()\n\n\n\n// oChecker := CHECKER():Create()\n\nDEFINE WINDOW oWnd TITLE \"File Match Software - (c) Finalysis 2007\" ;\n\nMENU BldInMenu()\n\nACTIVATE WINDOW oWnd MAXIMIZED\n\n\n\nRETURN\n\n\n\nFUNCTION BldInMenu()\n\n\n\n   LOCAL lomMenu\n\n\n\n   MENU lomMenu\n\n      MENUITEM \"&amp;File\"\n\n         MENU\n\n            // MENUITEM \"&amp;Match\" ACTION oChecker:ShowProDlg()\n            MENUITEM \"&amp;Exit\" ACTION Exit()\n\n         ENDMENU\n\n      MENUITEM \"&amp;Help\"\n\n         MENU\n\n            MENUITEM \"&amp;About\" ACTION VerInfo()\n\n         ENDMENU\n\n   ENDMENU\n\n\nRETURN lomMenu\n\n\n\nFUNCTION VerInfo()\n\n\n\n   LOCAL lodAbout\n\n\n\n   DEFINE DIALOG lodAbout TITLE \"About Patient Match Software\" \n\n   @ 2, 2 SAY ( idProgName + \" - Version: \" + idVersion ) OF lodAbout \n\n   @ 4, 2 SAY ( \"Build Date: \" + idBldDate ) OF lodAbout \n\n   @ 6, 2 SAY ( \"(c) \" + idCopName + \" \" + idCopDate ) OF lodAbout \n\n   @ 8, 2 BUTTON \"OK\" ACTION ( lodAbout&#058;End() ) ;\n\n   OF lodAbout \n\n   ACTIVATE DIALOG lodAbout CENTERED\n\n   \n\nRETURN\n\nFunction Exit()\n \n   CLS\n   QUIT\n\nRETURN','',0,'','usvd27f7',1,0,'',578,0,0),(35423,7710,11,578,0,'218.214.35.132',1185678533,1,0,1,0,1,0,'','Please check buildx.sh operation when you get a chance','Antonio\n\n&gt; I am writing up a guide for anyone who wants to switch to FiveLinux.\n\nCool, thanks :-)\n\n&gt; ./../../xharbour/bin/harbour $1.prg ...\n\nBoth Harbour and xHarbour compile fine here without supplying .prg\n\n&gt; Also would you please advise how to compile and link multiple source files?\n\nharbour one.prg -n ...\nharbour two.prg -n ...\nharbour three.prg -n ...\n\ngcc one.c -c ...\ngcc two.c -c ...\ngcc three.c -c ...\n\ngcc one.o two.o three.o -oone.exe ...\n\n&gt; And I notice that there is no \"objects.ch\"\n\nHarbour/xHarbour provide the same functionality as \"objects.ch\". Its built-in Harbour/xHarbour','',0,'','135cwta5',1,0,'',578,0,0),(35424,7711,11,578,0,'218.214.35.132',1185681125,1,0,1,0,1,0,'','Best Editor to use?  Any xBase aware ones? File Associations','Wondering what the best editor to use to create / edit .prg files. gedit looks OK but isn\'t xBase aware (not that I can see).  Any plugin for it?  Any other editor recommendations?\n\nAlso how do you associate .prg files with your text editor so  that you don\'t have to go Open with other application| Text Editor\n\nThanks to anyone who can help','',0,'','9p7g320t',1,0,'',578,0,0),(35425,7712,11,578,0,'218.214.35.132',1185691959,1,0,1,0,1,0,'','Window / Dialog Layout with Five Linux','I am playing around with window/dialog layout (from code) with FiveLinux\n\nIt appears that you have to use simulated row/column positions for layout of controls but when you size them you have to use pixels which whilst workable it would be nice to work just with pixels.  Is this possible?  What do others do?\n\nAlso it appears that SAYs are centered rather than left justified within their area. Is there a way to have them left justify so they will line up down a window/dialog?\n\nIs the alternative delving into GTK?\n\nxProgrammer','',0,'','7y0de7qr',1,0,'',578,0,0),(35426,7697,3,239,0,'218.20.62.89',1185693998,1,0,1,1,1,0,'','','EMG,\n  How?\nThanks!\nShuming Wang','',0,'','2it714et',1,0,'',239,0,0),(35427,7713,11,578,0,'218.214.35.132',1185694903,1,0,1,0,1,0,'','Just a suggestion re buildx.sh','In practice I found that this script ran so fast (at least for test programs) that it was hard to tell if it had all compiled and lined OK, and even if it hadn\'t it would run the last generated executable.\n\nSo I made a simple mod to  buildx.sh inserting a read so that you could review what had happened before any executable was run, and giving you the chance not to run the executable.\n\nIt\'s probably not the neatest bit of shell script - I had to google to find out the basics of how to write one - but it does seem to work.  In case anyone is interested here is the modification:\n\necho done!\necho Do you want to run the compiled code? [Y/n]:\nread yesno\nif test $yesno = \"Y\"\nthen\n./$1\nfi\nif test $yesno = \"y\"\nthen\n./$1\nfi\n\nThere\'s probably a neater way to test for Y or y rather than do 2 tests, but just looking quickly I didn\'t spot it.\n\nAlso you could probably do something smarter with exit codes.\n\nPerhaps someone could help out with a very minor irritation - after running buildx.sh and then my application being launched my terminal screen goes from a nice readable black on white to a fuzzy white on black mode.  Going terminal reset fixes that but it would be nice to avoid it altogether.  Does anyone know why and how to avoid it, or make the script fix it?\n\nI should add that if the program is not launched at the end of the script then the terminal screen remains how it was.\n\nThanks\n\nxProgrammer','',0,'','22t1ze8w',1,0,'',578,0,0),(35428,7697,3,6,0,'82.54.221.73',1185697183,1,0,1,1,1,1,'','','[code:20u4hxpb]shellexecute&#40;odlg&#58;hwnd,0,&quot;mysqldump&#46;exe&quot;,&quot;--opt --host 192&#46;168&#46;0&#46;123 --port=3306 -u root -p -C mysqldata&quot;,0,1&#41;[/code:20u4hxpb]\n\nEMG','',0,'AIA=','20u4hxpb',1,0,'',6,0,0),(35429,7714,3,3,0,'80.81.159.19',1185697779,1,0,1,1,1,1,'','outlook read appointment','Hello\n\nDoes anyone have a sample of reading an appointment at a particular date, time ?\n\nThanks for your help\n\nRichard\n\nOT : what is the vista replacement for Vb*.chm ?','',0,'AIA=','2nj3egl5',1,0,'',3,0,0),(35430,7710,11,578,0,'218.214.35.132',1185703993,1,0,1,0,1,0,'','Perhaps in your new wiki?','Antonio\n\nMaybe I could do a section on FiveLinux for your wiki?\n\nI was also wondering if there was a place here on these forums for discussing programming techniques - don\'t know if members would be interested but I expect they might. For example I wrote some #commands so that tables could be created in simple easy to read code.  Let me know what you think.  \n\nIt might also help kick off some community coding if several people need pretty much the same thing.\n\nxProgrammer','',0,'AIA=','11i6rsfk',1,0,'',578,0,0),(35431,7711,11,2,0,'87.218.146.222',1185705686,1,0,1,1,1,1,'','','Doug,\n\nFirst recommendation is to install gnome-commander which it is very usefull files manager based on Norton Commander (Total commander on Windows). \n\nFrom a console window do:\nsudo apt-get install gnome-commander\n\nThen invoke it:\ngnome-commander\n\nsimply double click on a PRG file and gedit will be automatically invoked','',0,'AIA=','1d6sgm77',1,0,'',2,0,0),(35432,7711,11,2,0,'87.218.146.222',1185705775,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:348xo9fg][img:348xo9fg]http&#58;//img520&#46;imageshack&#46;us/img520/1832/screenshotmh8&#46;png[/img:348xo9fg][/url:348xo9fg]','',0,'GA==','348xo9fg',1,0,'',2,0,0),(35433,7711,11,578,0,'218.214.35.132',1185708736,1,0,1,0,1,0,'','Thanks and some feedback','gnome-commander looks good and it solved my problem - but somewhat indirectly.  I double clicked on the .prg file and got a similar set of options.  However I noticed that the .prg file had permissions of rwx.  I removed the x permission and double clicking on the file brings up gedit in both gnome commander and the file browser now.\n\nI tried double clicking on my program to run it but in gnome-commander and got the following error message:\n\nNo default application found for the mime-type application/x-executable.\nOpen the \"File types and programs\" page in the Control Center to add one.\n\nSound simple enough but I don\'t know where the Control Centre is as yet.\n\nAlso the terminal session that I launched gnome-commander from gets the following message:\n\n(gnome-commander: 25300) Gtk WARNING **: Ignoring the separator setting\n\nThe 2 are presumably related.  Anything to do with not having an extension to the filename of the executable?  I also cannot launch from the file Browser but launches fine from a terminal (although slight exit problem as reported earlier)\n\nxProgrammer','',0,'GA==','184stgju',1,0,'',578,0,0),(35434,7711,11,2,0,'87.218.146.222',1185713045,1,0,1,1,1,1,'','','Yes, we see what you mean. We can\'t launch the application from gnome-commander too neither from \"Nautilus\" (the standard file browser). Lets see if we can find a solutiion.\n\nIts seems its not name related as we use the default extension \".a\", the result is the same\n\n&gt;\nAlso the terminal session that I launched gnome-commander from gets the following message:\n\n(gnome-commander: 25300) Gtk WARNING **: Ignoring the separator setting\n&gt;\n\nThats seems as a gnome-commander specific issue. I don\'t think its related','',0,'GA==','gj24uh3p',1,0,'',2,0,0),(35435,7715,6,53,0,'189.139.21.227',1185713430,1,0,1,1,1,1,'','Cómo empezar con ADS ?','Amigos del foro:\n\nQuiero iniciarme en ADS (Advantage Data Server) para conocer sus bondades y ofrecerlo a mis clientes, donde conseguir una \"receta\" de cómo iniciarme ?\n\n1.- Donde instalarlo ?\n2.- Cómo ligarlo con mi aplicación ?\n3.- Cómo usar el drive nativo de ads ?\n\nEn fin todo lo necesario para migrar una aplicación a ADS\n\nSaludos y gracias por la ayuda','',0,'GA==','bn1i7ao6',1,0,'',53,0,0),(35436,7709,11,2,0,'87.218.146.222',1185713985,1,0,1,1,1,1,'','','Doug,\n\nWe email you new libraries with some changes and also a modified version of your PRG. With these new files is working fine','',0,'GA==','3pfju5wa',1,0,'',2,0,0),(35437,7710,11,2,0,'87.218.146.222',1185719659,1,0,1,1,1,1,'','','Doug,\n\n&gt; Maybe I could do a section on FiveLinux for your wiki?\n\nGood idea, we have emailed you your login and password for the wiki <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; I was also wondering if there was a place here on these forums for discussing programming techniques\n\nYou could also use the wiki','',0,'GA==','2sipyzhx',1,0,'',2,0,0),(35438,7712,11,2,0,'87.218.146.222',1185720331,1,0,1,1,1,1,'','','Doug,\n\nInstall glade doing:\nsudo apt-get install glade-2\n\nthen do:\nglade-2','',0,'GA==','3v5azbmy',1,0,'',2,0,0),(35439,7707,6,121,0,'189.138.187.33',1185725046,1,0,1,1,1,1,'','','MUCHAS GRACIAS\nFUNCIONO OK','',0,'GA==','bv0wi9yp',1,0,'',121,0,0),(35440,7715,6,1106,0,'190.64.226.176',1185726208,1,0,1,1,1,0,'','','Armando:\n\nDeberías contactarte con R. Flores es el Master \nde ADS según creo yo. \n\nSaludos\n\nRuben Fernandez.','',0,'GA==','prm5vl1w',1,0,'',1106,0,0),(35441,7694,6,316,0,'87.218.186.70',1185726209,1,0,0,1,1,0,'','','Rolando,\n\nEl seek es imperativo: le dices que lo busque y este lo hará ya que no se puede presumir *nada* respecto de los datos, y más aún si estan en red.\nLa optimización es responsabilidad del programador, porque tu manejas la lógica de alto nivel que un simple seek no puede: Existe la posibilidad de que entre un seek y otro el registro se borre en otra estación? Puede que se cambie la clave de alguna forma desde otra estación? Puede que se borre el registro? \nSi SEEK fuese capaz de saber esas cosas por si mismo, tu y yo estríamos más que jodidos, ya que no nos necesitarían <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nTiene el mismo sentido que el skip(0)\n\nSaludos,\n\nCarlos','',0,'GA==','3fvw7xha',1,0,'',316,0,0),(35442,7715,6,53,0,'189.139.21.227',1185726614,1,0,1,1,1,1,'','','Rubén:\n\nCierto, muy cierto, lo voy a hacer.\n\nSin embargo la experiencia de los usuarios tambien es importante, a ver si alguien se anima a tirar alguna líneas.\n\nSaludos','',0,'GA==','3gst3v6r',1,0,'',53,0,0),(35443,7682,6,316,0,'87.218.186.70',1185727115,1,0,1,1,1,0,'','','[quote=&quot;pymsoft&quot;:4rwnmrbz]Rafael, \n\nMe alegro que al menos logres avanzar en una solución.\nYo no puedo decirle a un cliente que teniendo un servidor linux con discos scsi con redundancia, copias automaticas, etc. que si le pongo un disco ethernet todo va a funcionar mejor porque me puede asesinar  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nDe todos modos, voy a probar tu solucion, no sabia ni siquiera que existieran los discos ethernet.\nProbaré con algunas configuraciones de samba, a ver cambiando algunos parametros, como el oportunistic locking, de repente algo cambia. Porque como te dije antes, no parece ser problema en la red, porque trabajando un solo pc, vuela, con dos o mas la velocidad cambia a mucho mas lento.\n\nSaludos y gracias por contar tus experiencias.[/quote:4rwnmrbz]\nPerdona pero... que piensas que tiene un disco Ethernet dentro? Linux! Y si, lo de la performance es una cuestion de configuración. Tamaños de paquetes, bloqueos y todas esas cosas son muy importantes en una red Samba.\nLa ventaja de los discos Ethernet es que usan el hardware mínimo, bajo consumo, poco mantenimiento y pocas posibilidades de que alguien que no sabe le meta mano. Si solo necesitas almacenamiento es ideal. Ahora, el hardware armado a medida suele ser mejor, y si un disco ethernet puede tener mejores prestaciones que tu servidor con discos scsi... Ojo que la redundancia tiene su precio.\nVoy a suponer que los clientes del Samba son XPs. EN ese caso los parámetros que nunca se miran y te sugiero que chequees son: \nOS Level: Eso determina que nivel de SO usará el Samba, es decir que SO le dirá a las estaciones que es. Si tiene un nivel bajo, digamos el de un XP, cada vez que algun equipo se une a la red SMB se produce una votación para ver quien es el que \"manda\", es decir quien será el Master Browser que es el que mantiene la lista de recursos del grupo de trabajo. Esa votación lleva un tiempo, y es lo que suele producir esas demoras de conexión.\nOportunistic Locking: Desabilitarlo por completo tanto en el Samba como en las estaciones. El OL implica que cuando una estación abre un archivo y nadie mas lo usa, se hace una copia cacheada de manera local para hacer la tarea más rápido. Es la forma de hacer cache de RED de una red SMB. Pero eso es lo peor cuando otra estación quiere acceder al mismo archivo, ya que el servidor tiene que requerir la atencion de la estacion que tiene el archivo bloqueado y esperar que este se lo devuelva completo con las correcciones. Esto ocaciona tambien mucha demora.\nLo mejor es desabilitar el OL del registro de los XPs. De esa manera las aplicaciones con dbfs van mucho más rápido.\nDe momento es lo que me acuerdo, a medida que me acuerde les posteo mas tips.\n\nPor cierto, hay varios proyectos de SL de discos ethernet que se pueden utilizar, aunque hace bastante que no los sigo. Es cuestion de buscar en Sourceforge o Freshmeat.\n\nSaludos,\n\nCarlos.','',0,'gA==','4rwnmrbz',1,0,'',316,0,0),(35444,7716,3,190,0,'124.7.42.139',1185727673,1,0,1,1,1,0,'','How to save a dialog/window to Bitmap ?','Hello Mr.Antonio\n\nThe following function is not saving the window to bitmap.  \n\n[code:3bbkvoe8]\n#include &quot;Fivewin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   DEFINE WINDOW oWnd TITLE &quot;SaveToBmp&quot; \n\n   @ 9, 2 BUTTON &quot;Save To Bmp&quot; ; \n      SIZE 210, 30 ; \n      ACTION &#40; oWnd&#58;SaveToBmp&#40; CurDir&#40;&#41; + &quot;\\test&#46;bmp&quot; &#41;, MsgInfo&#40; &quot;done!&quot; &#41; &#41; \n      \n   ACTIVATE WINDOW oWnd \n    \nreturn nil      \n[/code:3bbkvoe8]\n\nI tried with the following code also.  But could not get the result.\n\n[code:3bbkvoe8]\n\nFUNCTION Save2Bmp&#40; cFile, oDlg &#41;\n\n   DEFAULT cFile &#58;= &quot;Saved&#46;Bmp&quot;\n\n   DibWrite&#40; cFile, DibFromBitmap&#40; WndBitmap&#40; oDlg&#58;hWnd &#41; &#41; &#41;\n\nRETURN &#40; FILE&#40; cFile &#41; &#41;\n\n[/code:3bbkvoe8]\n\nPlease guide me how to save a dialog/window to bitmap file.\n\nRegards\n\n- Ramesh Babu P','',0,'AIA=','3bbkvoe8',1,0,'',190,0,0),(35445,1307,3,190,0,'124.7.42.139',1185729114,1,0,1,1,1,0,'','','Hi all\n\noDlg:SaveToBmp( \"SAVED.BMP\" ) was working earlier.  Now it is not\nworking !.\n\nHas any body succeeded with oDlg:SaveToBmp( \"SAVED.BMP\" ) ?\n\nI am using FWH 2.8 (September 2006) Version + xHarbour 0.99.71 (Simplex)\n\nThanks \n\n- Ramesh Babu P','',0,'AIA=','2aqd00p0',1,0,'',190,0,0),(35446,7716,3,2,0,'87.218.146.222',1185737046,1,0,1,1,1,1,'','','Call it this way:\n\n... ACTION ( oWnd:SaveToBmp( \"test.bmp\" ), MsgInfo( \"done!\" ) ) \n\nHere its working fine:\n[url=http&#58;//imageshack&#46;us:v14x89f8][img:v14x89f8]http&#58;//img407&#46;imageshack&#46;us/img407/5908/hcwg6&#46;jpg[/img:v14x89f8][/url:v14x89f8]','',0,'GA==','v14x89f8',1,0,'',2,0,0),(35447,1307,3,2,0,'87.218.146.222',1185737233,1,0,1,1,1,1,'','','Ramesh,\n\nIts working fine with FWH 7.07','',0,'GA==','1t3dmiqe',1,0,'',2,0,0),(35448,7717,6,316,0,'87.218.186.70',1185741913,1,0,1,1,1,0,'','Problemas de pintado','Antonio,\n\nhe estado haciendo unas pruebas con la clase outlook, usando el ejemplo de samples (testoutl.prg) y cuando esta ejecutándose, le superpongo alguna ventana y hago varios movimientos arrastrando la ventana, y empieza a pintarse mal la barra, y a veces tambien el interior de toutlook.\n[url=http&#58;//imageshack&#46;us:2soedhci][img:2soedhci]http&#58;//img295&#46;imageshack&#46;us/img295/1549/problemasdepintadofg3&#46;jpg[/img:2soedhci][/url:2soedhci]\n\n<!-- m --><a class=\"postlink\" href=\"http://img295.imageshack.us/img295/1549/problemasdepintadofg3.jpg\">http://img295.imageshack.us/img295/1549 ... adofg3.jpg</a><!-- m -->\n\nQue puede ser ese problema? Estoy aprendiendo algo respecto de crear controles y este problema no se a que se le puede atribuir.\n\n[url=http&#58;//imageshack&#46;us:2soedhci][img:2soedhci]http&#58;//img522&#46;imageshack&#46;us/img522/6427/repintadooutlooknj6&#46;jpg[/img:2soedhci][/url:2soedhci]\nShot at 2007-07-29\nPrimero me paso al cambiar el tipo de botones de toutlook y pensé que seria algo que hacia mal, pero volví al ejemplo sin modificar y tiene el mismo problema. Algun consejo?\n\nUn saludo,\n\nCarlos,','',0,'GA==','2soedhci',1,0,'',316,0,0),(35449,7717,6,2,0,'87.218.146.222',1185748825,1,0,1,1,1,1,'','','Carlos,\n\nPrueba a cambiar estos dos métodos en la clase TWindow de esta manera:\n\nMETHOD DispBegin() VIRTUAL\nMETHOD DispEnd() VIRTUAL','',0,'GA==','rzkv4o1o',1,0,'',2,0,0),(35450,7718,6,1106,0,'190.64.207.133',1185755880,1,0,1,1,1,0,'','oToolbar:nWidth no me funciona en folders','Amigos:\n\nAlguna idea?\n\nCuando pongo oToolbar:nWidth = 300 en un folder\nno respeta el tamaño.\nEstoy tratando de poner una toolbar en una pestaña del folder.\n\n\nSaludos y gracias.\n\nRuben Fernandez.','',0,'GA==','2yavpydz',1,0,'',1106,0,0),(35451,7697,3,239,0,'218.20.62.89',1185758516,1,0,1,1,1,0,'','','EMG,\n  mysqldata&gt;d:\\mysqldata.sql\n  This means from mysqldatabase \'mysqldata\' backup to local file d:\\mysqldata.sql . can\'t be cuted to \'mysqldata \'.\n\nShuming Wang','',0,'GA==','1xwf7bol',1,0,'',239,0,0),(35452,7716,3,190,0,'124.7.42.139',1185759074,1,0,1,1,1,0,'','','Sorry! Mr.Antonio,\n\nIt is generating a small file of 14 bytes.\n\nI tried with oWnd:SaveToBmp(cBmpFile) and\nDibWrite( cBmpFile, DibFromBitmap( WndBitmap( oDlg:hWnd ) ) ).\n\nBut, same out come.\n\nFor your information, it is tested in WIN98 and found not working.\n\nPlease test with 2.8 (Septermber) release.\n\n- Ramesh Babu P','',0,'GA==','1fn85vyi',1,0,'',190,0,0),(35453,7690,3,47,0,'203.147.0.44',1185775781,1,0,1,1,1,0,'','','Dear Richard,\n\nMay I have Hernam\'s Twbrowse for FWH too?\n\nDutch\n<!-- e --><a href=\"mailto:dutch@easyfo.com\">dutch@easyfo.com</a><!-- e -->','',0,'GA==','37zpg227',1,0,'',47,0,0),(35454,7661,3,27,0,'62.174.195.220',1185778497,1,0,1,1,1,1,'','CHANGING FOCUSED COLORS GLOBALLT IN TGET','WITH THE CHANGES YOU SUGGESTED TO REDEFINE I GET THE FOLLOWING ERROR:\n\n(CANNOT FIND THE METHOD DEFINE IN THE CLASS )\n\nHeres the Class modified <!-- m --><a class=\"postlink\" href=\"http://www.pes-systems.net/temp/tget32.prg\">http://www.pes-systems.net/temp/tget32.prg</a><!-- m --> \n\n INFORMACION: Error BASE/1005  Message not found: TGET:_NCLRFOCUSTEXT\n\nStack Calls\n===========\n2.TGET:ERROR(175)  3.(b)HBOBJECT:HBOBJECT(105)  4.TGET:MSGNOTFOUND(0)  \n5.TGET:_NCLRFOCUSTEXT(167)  6.TGET:SETINICLR(1604)  7.TGET:REDEFINE(376)  \n8.BUS_CLIENTES(174)  9.(b)BUILDMENU(1732)  10.TMENU:COMMAND(0)  \n11.TWINDOW:COMMAND(0)  12.TWINDOW:HANDLEEVENT(0)  13._FWH(0)  \n14.WINRUN(0)  15.TWINDOW:ACTIVATE(0)  16.MAIN(424)','',0,'GA==','21i7ubcr',1,0,'',27,0,0),(35455,7661,3,154,0,'151.21.34.185',1185779990,1,0,1,1,1,1,'','Re: CHANGING FOCUSED COLORS GLOBALLT IN TGET','[quote=&quot;PAUL SIMM&quot;:3rklhv2m] INFORMACION: Error BASE/1005  Message not found: TGET:_NCLRFOCUSTEXT\n[/quote:3rklhv2m]\nPaul,\ninsert this line into data section:\n[code:3rklhv2m]   DATA   nClrFocusText, nClrFocusPane, nClrPFoText, nClrPFoPane\n[/code:3rklhv2m]','',0,'gIA=','3rklhv2m',1,0,'',154,0,0),(35456,7697,3,6,0,'87.17.213.45',1185780290,1,0,1,1,1,1,'','Re: Why this shellexecute() not work?','Then try\n\n[code:3k1iyzip]shellexecute&#40;odlg&#58;hwnd,0,&quot;mysqldump&#46;exe&quot;,\'&quot;--opt --host 192&#46;168&#46;0&#46;123 --port=3306 -u root -p -C mysqldata&gt;d&#58;\\mysqldata&#46;sql&quot;\',0,1&#41;[/code:3k1iyzip]\n\nEMG','',0,'AIA=','3k1iyzip',1,0,'',6,0,0),(35457,7678,3,130,0,'141.51.32.24',1185782292,1,0,1,1,1,1,'','','I don´t have xCC/xHarbour Builder , I´m also using Borland C.\n\nI will try to build an obj with the c-compiler I have here on my pc.','',0,'AIA=','3hkga2is',1,0,'',130,0,0),(35458,7719,3,154,0,'151.21.34.185',1185782539,1,0,1,1,1,1,'','DbCombo LostFocus() Do not Work','Dear friend,\nthe method LostFocus in DbCombo CLASS do not work fine, \nis impossible to execute any instruction into a bLostFocus block!\nI modified the LostFocus method\nthis is the new method:\n[code:1nao82j2]//----------------------------------------------------------------------------//\n\nMETHOD LostFocus&#40; hWndGetFocus &#41; CLASS TDBCombo\n\n   local nAt &#58;= &#58;&#58;SendMsg&#40; CB_GETCURSEL &#41;\n\n   if nAt != CB_ERR\n      &#58;&#58;nAt = nAt + 1\n      Eval&#40; &#58;&#58;bSetGet, &#58;&#58;aItems&#91; &#58;&#58;nAt &#93; &#41;\n   else\n      Eval&#40; &#58;&#58;bSetGet, GetWindowText&#40; &#58;&#58;hWnd &#41; &#41;\n   endif\n\n   &#58;&#58;cSearchKey&#58;=&quot;&quot;\n   \n   Super&#58;LostFocus&#40; hWndGetFocus &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:1nao82j2]\n\nfor me work fine.','',0,'AIA=','1nao82j2',1,0,'',154,0,0),(35459,7720,6,385,0,'195.76.89.54',1185783194,1,0,1,1,1,0,'','Consultas via HTTP','Hola\n\nMi experiencia con consultas via HTTP es nula, por eso culaquier ayuda seria biein recibida para hacer lo siguiente\n\n1.- Desde un cliente remoto se hace una cosulta a un servidor mediante HTTP con los metodos GET,POST,PUT,DELETE\n\n2.- En ese servidor quiero tener una base de datos que sirva para consultar\n\nQuisiera no tener que instalar un servidor PHP, ¿cual es la forma mas sencilla de hacerlo?\n\nAtentamente\nJose Ignacio JImenez Alarcon','',0,'AIA=','3clal80v',1,0,'',385,0,0),(35460,7721,11,578,0,'218.214.35.132',1185787702,1,0,1,0,1,0,'','Any chance of a timer?','I really need a timer for one part of my application.  I don\'t suppose anyone has done one for xHarbour/FiveLinux?  Anyone with any pointers as to how I might go about creating one? Please someone!\n\nI would be eternally grateful\n\nxProgrammer','',0,'AIA=','zs0upxcg',1,0,'',578,0,0),(35461,7722,3,130,0,'141.51.32.24',1185787793,1,0,1,1,1,1,'','PageGetMargins','Hi all,\n\nwhat unit does PageGetMargins () return ? Pixel, Twips,...?','',0,'AIA=','1lkbkfog',1,0,'',130,0,0),(35462,7723,2,979,0,'195.53.199.6',1185787812,1,0,1,1,1,0,'','Utilprn y Freeimage.dll','Hola,\n\n¿Alguien ha modificado la clase UTILPRN de Rafa para utilizarse  con Freeimage?.\n\nSi alguien ha realizado ese ejercicio, seria de agradecer me indicara los cambios a implementar en la clase.\n\nGracias por adelantado,','',0,'AIA=','3j2divpb',1,0,'',979,0,0),(35463,7724,3,578,0,'218.214.35.132',1185789578,1,0,1,0,1,0,'','Debugging Preprocessor commands','I was wondering if there was a way to get the compiler to output the result of preprocessing the source as a means of debugging possible preprocessing bugs?\n\n(If so it might prove useful beyond even xBase code)\n\nI realise that this isn\'t specifically a FiveWin issue, but I think someone out there must have thought about this before.\n\nThanks \n\nxProgrammer','',0,'AIA=','1sbtt62b',1,0,'',578,0,0),(35464,7697,3,239,0,'219.136.101.21',1185789651,1,0,1,1,1,0,'','','EMG,\n  Not work still.  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n  Is because of the para too long ?\nShuming Wang','',0,'AIA=','393ec8pb',1,0,'',239,0,0),(35465,7697,3,6,0,'87.17.213.45',1185790565,1,0,1,1,1,1,'','','I don\'t know, sorry.\n\nEMG','',0,'AIA=','3du0v684',1,0,'',6,0,0),(35466,7724,3,6,0,'87.17.213.45',1185790641,1,0,1,1,1,1,'','Re: Debugging Preprocessor commands','Have a look at /p [x]Harbour compiler switch.\n\nEMG','',0,'','223ol1qs',1,0,'',6,0,0),(35467,7722,3,6,0,'87.17.213.45',1185790954,1,0,1,1,1,1,'','Re: PageGetMargins','[code:3e92jtfe]PSD_INHUNDREDTHSOFMILLIMETERS[/code:3e92jtfe]\n\nEMG','',0,'AIA=','3e92jtfe',1,0,'',6,0,0),(35468,7721,11,2,0,'87.218.146.126',1185791570,1,0,1,1,1,1,'','','Doug,\n\nWe may have them ready for today <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','32qlpbbv',1,0,'',2,0,0),(35469,7682,6,106,0,'85.34.123.173',1185791579,1,0,1,1,1,1,'','','Carlos,\n\n\nGracias por lo que comentas. Hoy mismo voy a hablar con quien se encarga de nuestros servidores linux para hacer las pruebas del caso. Justamente, el algo me había comentado del OL, y era una de las pruebas que haríamos esta semana, lo que me pregunto tambien, es que tenemos que desactivarlo en cada estacion con XP?, pensé que sería suficiente hacerlo en el servidor.\nLe comentaré tambien el tema del OS Level.\n\nYa les comentaré los resultados.\n\nSaludos','',0,'AIA=','1ofuo4qn',1,0,'',106,0,0),(35470,7721,11,2,0,'87.218.146.126',1185797046,1,0,1,1,1,1,'','','Doug,\n\nThis is already working fine. We email you new files:\n[code:3f7efrjj]\n#include &quot;FiveLinux&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, oTmr\n\n   DEFINE WINDOW oWnd TITLE &quot;Testing timers&quot;\n\n   DEFINE TIMER oTmr INTERVAL 200 ACTION oWnd&#58;SetText&#40; Time&#40;&#41; &#41;\n\n   ACTIVATE TIMER oTmr\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:3f7efrjj]','',0,'AIA=','3f7efrjj',1,0,'',2,0,0),(35471,7724,3,578,0,'218.214.35.132',1185797815,1,0,1,0,1,0,'','Thanks','Thanks Enrico\n\nAnd having found out I realised that xBuildW (xHarbour) must automatically invoke /p becuase I have a host of .ppo files (which I had never looked at). - And felt a bit of a goose for having asked the question and not having realised.\n\nxHarbour documentation (nice) doesn\'t seem to cover compiler switches but I did find it at Harbour Project web site.  xBuildW is nice but I guess having always used it (until now) kind of isolates you from what is happening behind the scenes.\n\nThanks\n\nDoug (xProgrammer)','',0,'AIA=','65c4rpky',1,0,'',578,0,0),(35472,7721,11,578,0,'218.214.35.132',1185798702,1,0,1,0,1,0,'','Many Thanks','Antonio\n\nI hope that your customers appreciate the wonderful effort you put in to supporting your products and your preparedness to try to meet their needs.\n\nDoug','',0,'AIA=','p7dnypog',1,0,'',578,0,0),(35473,7721,11,2,0,'87.218.146.126',1185798945,1,0,1,1,1,1,'','','Doug,\n\nThanks for your kind words <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','4pviwvxi',1,0,'',2,0,0),(35474,7682,6,1104,0,'200.115.251.248',1185800241,1,0,1,1,1,0,'','','Yo generalmente la alternativa que aplico para no utilizar set filter es crear un indice temporario y luego por medio de un SEEK() blando.\n\nEjemplo: oDbf:Seek(Dato1,.t.)\n\nreduzco el tiempo notablemente del set filter y el resto lo recorro indefectiblemente de manera secuencial.\n\nDO WHILE oDbf:Eof() .AND. oDbf:DATO&lt;=Dato2\n   \n   Mi proceso.....\n   ...........\n   ...........\n\n   oDbf:Skip()\nENDDO\n\nA mi parecer esta forma no es mala y es la que más utilizo.','',0,'AIA=','3j2qr8kz',1,0,'',1104,0,0),(35475,7719,3,303,0,'72.199.41.171',1185801263,1,0,1,1,1,0,'','','Ugo,\n\nThanks for finding that and a fix. A better, and simpler, fix is this:\n\n[code:t07s7pyq]METHOD LostFocus&#40; hWndGetFocus &#41; CLASS TDBCombo\n   &#58;&#58;cSearchKey&#58;=&quot;&quot;\nreturn super&#58;LostFocus&#40;&#41;[/code:t07s7pyq]\n\nRegards,\nJames','',0,'AIA=','t07s7pyq',1,0,'',303,0,0),(35476,7719,3,154,0,'151.21.34.185',1185802844,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:39sl6mzu]Thanks for finding that and a fix.[/quote:39sl6mzu]\n\nThanks to you for the test and the improvements  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','39sl6mzu',1,0,'',154,0,0),(35477,7682,6,53,0,'189.139.8.219',1185803276,1,0,1,1,1,1,'','','Ojeda:\n\nEse no es el tema, lo que estas haciendo, y creo que muy bien, es algo que sustituye a la función ORDSCOPE() no a la función DBSETFILTER() y hasta ahora el problema es con el filtrado.\n\nQue harías si necesitas mostrar en un BROWSE solo aquellos productos que cumplan con cierta condición ?, digamos, mostrar solo los productos que dentro de su descripción tengan la palabra \"DISCO\"\n\nADAPTADOR DISCO DE 5/8-11 841\nCANDADO MG-P/TA-50 LLAVE TIPO DISCO 207573\nDISCO PARA CONCRETO 180 32mm\nDISCO DIAMANTE 4 1/2\" \n\nSaludos','',0,'gA==','27dai0dp',1,0,'',53,0,0),(35478,7699,6,221,0,'200.109.96.250',1185804939,1,0,1,1,1,0,'','','SI ERA ESO, MANDE A CREAR EL BAT Y LUEGO EJECUTARLO, FUNCIONO PERFECTO, GRACIAS A TODOS','',0,'gA==','2hj6ulyr',1,0,'',221,0,0),(35479,7682,6,1104,0,'200.115.251.248',1185805334,1,0,1,1,1,0,'','','En ese caso dentro de la parte que recorro la DBF de manera secuencial grabo una DBF temporal, la utilizo en el browse, y como ya está filtrada porque solo contiene los registros que cumplen con la condición, funciona más rápido.\nPor ahora lo estamos haciendo de esa forma.\nSaludos.','',0,'gA==','3u49eoqk',1,0,'',1104,0,0),(35480,6815,6,643,0,'200.67.183.199',1185808397,1,0,1,1,1,0,'','Problemas para compilar','Hola Antonio,\n\nestoy haciendo pruebas con el ADORDD pero se queda pasmado\ntrabajo con Xharbour\n[quote:fcju3yuv]\n@ECHO OFF\nCLS\nECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\nECHO ³ FiveWin for xHarbour 7.01 - April 2007          xHarbour development power ³Ü\nECHO ³ (c) FiveTech, 1993-2007      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\n\nif A%1 == A GOTO :SINTAX\nif NOT EXIST %1.prg GOTO :NOEXIST\n\nECHO Compiling...\n\nset hdir=c:\\Compiler\\xharbour\nset bcdir=c:\\Compiler\\bcc5\nSet FW=c:\\COMPILER\\FWH\n\n%hdir%\\bin\\harbour %1 /n /i%Fw%\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1.exe -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\bin\\brc32 -r %1\n\necho c0w32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.exe, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho %FW%\\lib\\Fivehx.lib %FW%\\lib\\FiveHC.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\gtgui.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\usrrdd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\adordd.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\n\nrem Uncomment these two lines to use Advantage RDD\nrem echo %hdir%\\lib\\rddads.lib + &gt;&gt; b32.bc\nrem echo %hdir%\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\iphlpapi.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n\nrem uncomment this line to use the debugger and comment the following one\nrem %bcdir%\\bin\\ilink32 -Gn -Tpe -s -v @b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32.bc\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nECHO * Application successfully built\n%1\nGOTO EXIT\nECHO\n\nrem delete temporary files\n@del %1.c\n\n:LINKERROR\nECHO * There are errors\nGOTO EXIT\n\n:SINTAX\nECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG\nECHO                                {-- Don\'t specify .PRG extension\nGOTO EXIT\n\n:NOEXIST\nECHO The specified PRG %1 does not exist\n\n:EXIT\n[/quote:fcju3yuv]\n\ny cuando se compila manda esto:\n[quote:fcju3yuv]\nCompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'access1.prg\' and generating preprocessed output to \'access1.ppo\'...\nLines 14, Functions/Procedures 1\nGenerating C source output to \'access1.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\naccess1.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\n[/quote:fcju3yuv]\nAparentemente esta bien pero nunca se ejecuta esta ahi en espera\ntengo Office 2007 \nse queda ahi pasmado ya que tengo que matar el proceso. que es lo quepudoera estar pasando\n\nsaludos cordiales\nJL\nMexico','',0,'gA==','fcju3yuv',1,0,'',643,0,0),(35481,7720,6,138,0,'189.141.71.139',1185809131,1,0,1,1,1,1,'','','Si, xharbour tiene el xBScript que te permite conectarte con IIS y usar ASP.\n\nYo personalmente he hecho muchos desarrollos para http usando CGI, me gusta mas y me siento mas comodo trabajando con ese estandar.\n\nMuchas de nuestras paginas estan hechas con CGIs corriendo sobre internet sin ningun problema.','',0,'gA==','34kfpxqo',1,0,'',138,0,0),(35482,7678,3,34,0,'68.5.217.82',1185809388,1,0,1,1,1,1,'','Got It','I received a copy compatible with xCC.  Thanks.','',0,'gA==','11928bza',1,0,'',34,0,0),(35483,7682,6,53,0,'189.139.8.219',1185810793,1,0,1,1,1,1,'','','Ummmm, y si se trata de un punto de venta donde el filtrado se hace varias veces en cada venta ???\n\nBorras, creas e indexas la DBF por cada producto ?, creo que ahí perderías mucho más tiempo.\n\nNo pretendo llevarte la contra  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> , por el contrario, ya que me interesa el tema tambien me interesa llegar a una buena solución.\n\nSaludos','',0,'gA==','35xpls76',1,0,'',53,0,0),(35484,6480,6,73,0,'200.23.18.132',1185811082,1,0,1,1,1,0,'','','Marco, serias tan amable de enviarmela a mi tambien, y si tienes por ahi algun ejemplo sencillo como el de la imagen, te lo agradeceria mucho, espero no sea mucho pedir.\n<!-- e --><a href=\"mailto:fjhorta@yahoo.com.mx\">fjhorta@yahoo.com.mx</a><!-- e -->\n\ngracias\nsalu2\npaco','',0,'gA==','1l6bbk28',1,0,'',73,0,0),(35485,7682,6,1104,0,'200.115.251.248',1185811310,1,0,1,1,1,0,'','','En ese caso tienes razón, yo me quedaría con el clásico DBSETFILTER, que si utilizamos ADS anda muy bien y rápido, el tema está en pasarle todo al DBSERFILTER como texto.\nEn ese caso es otras de las alternativas que utilizamos.\nEstá todo bien, esto es un foro, y uno no pretende que todos estén de acuerdo con lo uno dice, uno solamente trata de colaborar en la medida que puede, y me parece perfecto que opines diferente porque de esta forma, todos, día a día aprendemos un poco más\nSaludos.','',0,'gA==','23tz7w6g',1,0,'',1104,0,0),(35486,7682,6,106,0,'85.34.123.173',1185812553,1,0,1,1,1,1,'','','Armando,\n\n\n[quote:jhaflzrw]\nUmmmm, y si se trata de un punto de venta donde el filtrado se hace varias veces en cada venta ???\n\nBorras, creas e indexas la DBF por cada producto ?, creo que ahí perderías mucho más tiempo. \n[/quote:jhaflzrw]\n\nEn mi caso, lo que hago es recorrer la base de datos con un dbEval (que es mucho mas rapido que hacerlo a mano) y ponerlo en un array, y luego muestro el browse del array, te aseguro que es rapidisimo.\n\nAcabo de medir el tiempo, y en menos de un segundo busco los documentos que en el detalle contengan una cierta palabra en la descripcion, realiza las busquedas y arma el browse. (la base de detalles contiene solo 6000 registros)\n\nSaludos.','',0,'gA==','jhaflzrw',1,0,'',106,0,0),(35487,7725,2,1083,0,'200.69.24.3',1185812719,1,0,1,1,1,0,'','Impresion resaltada','Estimados\n\nTengo el siguiente inconveniente, quiero imprimir en una línea un texto y quiero resaltar una palabra del mismo.Cómo lo puedo solucionar ?\n\nGracias','',0,'gA==','28ey9vvs',1,0,'',1083,0,0),(35488,6815,6,2,0,'87.218.146.168',1185813126,1,0,1,1,1,1,'','','Jose Luis,\n\nSinceramente no se que pueda estar pasando. Aqui en nuestras pruebas con Access funciona bien.','',0,'gA==','r8ycsqjc',1,0,'',2,0,0),(35489,7715,6,36,0,'164.77.81.210',1185813844,1,0,1,1,1,1,'','','Prueba en estas direcciones como configurar \n\n\n[url:25ba25bd]http&#58;//www&#46;adsmexico&#46;com/ayuda/advantage7/advantage7&#46;htm[/url:25ba25bd]\n[url:25ba25bd]http&#58;//www&#46;adsmexico&#46;com/ayuda/Advantage8/Advantage_8&#46;htm[/url:25ba25bd]','',0,'EA==','25ba25bd',1,0,'',36,0,0),(35490,7682,6,53,0,'189.139.8.219',1185814428,1,0,1,1,1,1,'','','Pedro:\n\nExcelente idea, creo que hare mis pruebas.\n\nYa te contaré.\n\nSaludos','',0,'EA==','mc4sp7ag',1,0,'',53,0,0),(35491,7715,6,53,0,'189.139.8.219',1185814743,1,0,1,1,1,1,'','','Patricio:\n\nMuchas gracias, ya tengo instalado ADS.\n\nNecesito saber con que continuar despues de tener instalado el servidor.\n\nA ver si alguien más se anima a orientarme.\n\nSaludos','',0,'EA==','twowotft',1,0,'',53,0,0),(35492,7680,3,299,0,'24.233.172.101',1185814765,1,0,1,0,1,0,'','','1. Is it possible to use MS-word\'s speller via some kind of ActiveX?\n\n2. Where can you obtain a dbf filled with dictionary words?\n\nReinaldo.','',0,'EA==','v9z1cbgh',1,0,'',299,0,0),(35493,7719,3,154,0,'151.21.34.185',1185815721,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3m557cei]Thanks for finding that and a fix. A better, and simpler, fix is this:\n\n[code:3m557cei]METHOD LostFocus&#40; hWndGetFocus &#41; CLASS TDBCombo\n   &#58;&#58;cSearchKey&#58;=&quot;&quot;\nreturn super&#58;LostFocus&#40;&#41;[/code:3m557cei]\n[/quote:3m557cei]\nJames,\nafter the new method i have many problem with DbCombo!  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nI replace the previous and work fine <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThe problem is had to the dbf-code variable, to set in startup to spaces and after to have selected an item it becomes numerical  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gIA=','3m557cei',1,0,'',154,0,0),(35494,7682,6,46,0,'195.8.11.45',1185820059,1,0,1,1,1,0,'','','Tamben se podria hacer esto..\n\nAl INICIAR el Punto de venta copias toda la BD al disco duro local, puede solo los datos necesarios..(codigo, descripcion) de la base de datos de articulos.\nCon esto de podria hacer busquedas, filtrados de forma mas rapida ya ue trrabjaria en forma local.\n\nEl unico inconveniente seria cuando un producto nuevo no esta ingresado en el BD.','',0,'gIA=','3hsw5dzw',1,0,'',46,0,0),(35495,7726,6,264,0,'200.91.3.10',1185820418,1,0,1,1,1,1,'','Como ejecutar un PRG desde la aplicacion....','Algun ejemplo simple, rmk, etc\nSaludos','',0,'gIA=','3gmf9okd',1,0,'',264,0,0),(35496,6480,6,104,0,'201.8.28.21',1185820517,1,0,1,1,1,0,'','','Olá Marco,\n\nPoderia me enviar também ?\n\n<!-- e --><a href=\"mailto:qiinfo@ig.com.br\">qiinfo@ig.com.br</a><!-- e -->\n\nGracias,\n\nRossine.','',0,'gIA=','3hfu4bay',1,0,'',104,0,0),(35497,7719,3,303,0,'72.199.41.171',1185820738,1,0,1,1,1,0,'','','Ugo,\n\nI am not seeing your problem or, maybe I don\'t understand it.\n\nWhat is the date of your \\source\\classes\\dbcombo.prg file?\n\nJames','',0,'gIA=','3g5mze9o',1,0,'',303,0,0),(35498,7701,3,267,0,'200.208.238.2',1185821142,1,0,1,1,1,1,'','','Antonio,\n\nStudying activex.prg with the aid of the Gilmer, we perceive that the Do() method treats only 4(four) parameters. But necessary TerSearchReplace2 of 5(five). We try to make thus:\n\n nPos := ActXInvoke( ActXPdisp( oActiveX&#058;hActiveX ),\"TerSearchReplace2\",\"rich\",\"\",SRCH_SEARCH,N,0)\n\nBut also it did not function. You can help me?','',0,'gIA=','30pt6zob',1,0,'',267,0,0),(35499,7682,6,53,0,'189.139.8.219',1185822963,1,0,1,1,1,1,'','','RenOmaS:\n\nEsto es lo que me gusta del foro, que siempre hay ideas, ideas y más ideas.\n\nGracias por el aporte.\n\nSaludos','',0,'gIA=','2kx4tsep',1,0,'',53,0,0),(35500,7727,6,1030,0,'190.55.52.140',1185825928,1,0,1,1,1,0,'','Calcular dias habiles','Hola a todos!!\n\nAlguien conoce alguna funcion que calcule los dias habiles de la Argentina de un año??\n\nGracias a todos!!\n\nNatalia.','',0,'gIA=','12kwctoq',1,0,'',1030,0,0),(35501,7715,6,1104,0,'200.115.251.248',1185826843,1,0,1,1,1,0,'','','Armando:\n\nNo hay mucho para agregar, primero debes incluir las siguientes dlls al path donde se encuentra tu programa:\n\nACE32.DLL\nADSLOC32.DLL\nAXCWS32.DLL\n\nluego en todos tus .prg debes incluir en la cabecera lo siguiente:\n\n#include \"ADS.ch\"\n\ny también, pero solo en el .prg principal lo siguiente:\n\nRddRegister(\"ADS\",1)\nRddSetDefault(\"ADS\")\nSET SERVER LOCAL\nSET FILETYPE TO NTX o el que utilices\n\ny luego el resto sale solo.\n\nHay que tener en cuenta que en algunas condiciones no funcionan los FOR o los WHILE, por ejemplo para crear un indice temporario.\n\nEjemplo:\nINDEX ON BASE-&gt;FECHA TO MiIndice.ntx FOR (BASE-&gt;FECHA&gt;=Fecha1 .AND. BASE-&gt;FECHA&lt;=FECHA2)\n\nEste tipo de sentencias probablemente no funcionen.\nSaludos.','',0,'gIA=','3kqq19ii',1,0,'',1104,0,0),(35502,7728,6,278,0,'164.77.47.163',1185828383,1,0,1,1,1,1,'','Ayuda con Reporte','Hola Foro:\n\nEstoy medio enredado con un reporte usando la clase TReport. \n\nAlguien sabe o tiene algun ejemplo de como poner un encabezado con 2 lineas de datos a cada lado de cada página ( izquierda y derecha).\n\nSe que se puede usar la clausula HEADER , pero solo me acepta LEFT o RIGHT y yo necesito que a la izquierda salga por ejemplo el nombre y direccion y a la derecha la fecha y hora. \n\nAlguna idea , gracias de antemano.\n\nSaludos,\n\nJuan','',0,'gIA=','1skhoae2',1,0,'',278,0,0),(35503,7728,6,1104,0,'200.115.251.248',1185828900,1,0,1,1,1,0,'','','HEADER \"Primera parte\"+SPACE(100)+\"Segunda Parte\" LEFT\n\nEsa una forma que yo utilizo para solucionar ese problemita.\nSolo debo concatenar las dos partes dejando una cantidad de espacio razonable, en este caso 100, y listo. En el preview vas a ver como si fuera que la primera parte está a la izquierda y la segunda a la derecha.\nSaludos, Esteban','',0,'gIA=','3fnk2unh',1,0,'',1104,0,0),(35504,7715,6,53,0,'189.139.96.162',1185829897,1,0,1,1,1,1,'','','Ojeda:\n\nParece más sencillo que pellizcar un vidrio  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> (Saludos Willy), voy con mi hacha.\n\nMuchas Gracias','',0,'gIA=','18vuzss2',1,0,'',53,0,0),(35505,7725,2,1083,0,'200.69.24.3',1185829930,1,0,1,1,1,0,'','Impresion con secuencia de escape','Transcribo las instrucciones en las que quiero que la palabra \"impresion\" salga en negrita en una impresora epson pero no logro el efecto. Necesito si alguien me puede dar una mano.\n\n\nfunction Main()\n\n   local oPrn, oFont\n   local nRow := 0, nCol := 0, n, m\n   local Negrita,Normal\n\n   PRINT oPrn NAME \"XX\"\n\n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -20 OF oPrn\n \n   Negrita:= Chr(27)+Chr(69)\n   Normal:=Chr(27)+Chr(70)\n\n   PAGE\n\noPrn:Say(nRow,Ncol, \'Mi primer \'+NEGRITA+\'impresion\'+NORMAL,oFont)\n  \n   ENDPAGE\n\n   ENDPRINT\n\n   oFont:End()     \n\nreturn nil','',0,'gIA=','1r5hsx4q',1,0,'',1083,0,0),(35506,7725,2,54,0,'189.132.94.12',1185830332,1,0,1,1,1,1,'','Re: Impresion con secuencia de escape','[quote=&quot;Santiago&quot;:3liwh82h]Transcribo las instrucciones en las que quiero que la palabra \"impresion\" salga en negrita en una impresora epson pero no logro el efecto. Necesito si alguien me puede dar una mano.\n\n\nfunction Main()\n\n   local oPrn, oFont\n   local nRow := 0, nCol := 0, n, m\n   local Negrita,Normal\n\n   PRINT oPrn NAME \"XX\"\n\n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -20 OF oPrn\n \n   Negrita:= Chr(27)+Chr(69)\n   Normal:=Chr(27)+Chr(70)\n\n   PAGE\n\noPrn:Say(nRow,Ncol, \'Mi primer \'+NEGRITA+\'impresion\'+NORMAL,oFont)\n  \n   ENDPAGE\n\n   ENDPRINT\n\n   oFont:End()     \n\nreturn nil[/quote:3liwh82h]\n\nPrueba de esta manera\n\n[code:3liwh82h]function Main&#40;&#41;\n\n   local oPrn, oFont1,oFont2\n   local nRow &#58;= 0, nCol &#58;= 0, n, m\n   local Negrita,Normal\n\n   PRINT oPrn NAME &quot;XX&quot;\n\n   DEFINE FONT oFont1 NAME &quot;Arial&quot; SIZE 0, -20 OF oPrn\n   DEFINE FONT oFont2 NAME &quot;Arial&quot; BOLD SIZE 0, -20 OF oPrn\n \n   PAGE\n\noPrn&#58;Say&#40;nRow,Ncol, \'Mi primer\',oFont1&#41;\noPrn&#58;Say&#40;nRow,Ncol+10, \'impresion\',oFont2&#41;\n  \n   ENDPAGE\n\n   ENDPRINT\n\n   oFont&#58;End&#40;&#41;     \n\nreturn nil[/code:3liwh82h]','',0,'gIA=','3liwh82h',1,0,'',54,0,0),(35507,151,6,73,0,'200.23.18.132',1185830576,1,0,1,1,1,0,'','','Hernan,\nEsta nueva version 18, esta super!!, algun dia se liberará o sera de paga?\nsi es asi, para cuando tendriamos noticias del precio y una liberacion?\nsalu2\npaco','',0,'gIA=','313674x3',1,0,'',73,0,0),(35508,6815,6,798,0,'200.161.114.58',1185831235,1,0,1,1,1,0,'','','Olá Jose Luiz\n\nUse adordd.prg e não use a adordd.lib,\n\ncomigo resolvi desta maneira.\n\nDaniel Segura\n<!-- e --><a href=\"mailto:ciacpd@terra.com.br\">ciacpd@terra.com.br</a><!-- e -->','',0,'gIA=','33fbu6sp',1,0,'',798,0,0),(35509,7728,6,278,0,'200.72.195.212',1185831970,1,0,1,1,1,1,'','','Hola jrestojeda\n\nGracias por responder, pero no es lo que necesito.   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nPorque el largo de los texto de los encabezados ( izq - der) pueden variar y creo que tambien variará según el tipo de impresora que se este utilizando.\n\nNecesito algo que sea mas fijo y estable.\n\nGracias de todas formas, espero algun otro amigo del foro, sepa otra forma.   Saludos\n\nJuan','',0,'gIA=','1vatlg32',1,0,'',278,0,0),(35510,7729,6,140,0,'190.39.108.121',1185832869,1,0,1,1,1,0,'','Aporte a la Comunidad de FW','Hola a todos.\n\nEsta nota es para anunciar que el site\n<!-- m --><a class=\"postlink\" href=\"http://fivewin.guayoyosoft.net\">http://fivewin.guayoyosoft.net</a><!-- m -->\nestá a la orden de la comunidad de desarrolladores FW+Clipper/Harbour/xHarbour\n\nTiene una recopilación de material relacionado con FiveWin, el cual fué proporcionado en un 99.999999% por nuestro amigo Vikthor (1GB de Gracias), y el cual espero ir enriqueciendo con la ayuda de Uds.\n\nDisculpen que ahora no se vea muy bonito... ya con mas tiempo le mejoraré la presentación... por lo pronto me parece que el contenido es más importante...\n\nPor lo pronto no tengo más que añadir... solo espero de corazón que el contenido pueda ser de gran utilidad, en especial a quienes se están iniciando con el uso de esta estupenda herramienta de programación como lo es FiveWin.\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'gIA=','rz8wchth',1,0,'',140,0,0),(35511,6815,6,400,0,'201.92.34.197',1185845182,1,0,1,1,1,1,'','','Ola Amigos,\n\nOque es esse erro:\n[code:8uee440p]\nApplication\n===========\n   Path and name&#58; C&#58;\\ProgFwh28\\TestAdo\\Tado&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,414,144 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 07/30/07, 22&#58;17&#58;28\n   Error description&#58; Error ADODB&#46;Connection/16389  E_FAIL&#58; OPEN\n   Args&#58;\n     &#91;   1&#93; = C   DRIVER=&#123;MySQL ODBC 3&#46;51 Driver&#125;;server=127&#46;0&#46;0&#46;1;database=gerefina;uid=root;pwd=xxxxx\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;OPEN&#40;0&#41;\n   Called from&#58;  =&gt; ADO_OPEN&#40;241&#41;\n   Called from&#58;  =&gt; DBUSEAREA&#40;0&#41;\n   Called from&#58; AdoMain&#46;Prg =&gt; MAIN&#40;9&#41;\n[/code:8uee440p]\n\nAdoMain.Prg\n[code:8uee440p]\n#include &quot;&#46;&#46;\\include\\FiveWin&#46;ch&quot;\n#include &quot;c&#58;\\adordd\\source\\adordd&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction Main&#40;&#41;\n\n   USE gerefina VIA &quot;ADORDD&quot; TABLE &quot;Agencias&quot; MYSQL  ;\n      FROM &quot;127&#46;0&#46;0&#46;1&quot; USER &quot;root&quot; PASSWORD &quot;xxxxx&quot;\n\n   Browse&#40;&#41;\n\n   USE\n\nreturn nil\n\n[/code:8uee440p]\n\nSaludos','',0,'AIA=','8uee440p',1,0,'',400,0,0),(35512,7729,6,53,0,'189.139.27.151',1185846218,1,0,1,1,1,1,'','','Giancarlo:\n\nMuchas gracias por el aporte, siempre es bueno tener a donde acudir en aquellos momento en que el mundo se te cierra.\n\nSaludos','',0,'AIA=','21bdjq1h',1,0,'',53,0,0),(35513,6815,6,53,0,'189.139.27.151',1185846483,1,0,1,1,1,1,'','','Ale:\n\nNormalmente ese error es porque no se ha logrado la conexión con el servidor MySql, revisa que el Password (xxxxx) sea el correcto.\n\nSaludos','',0,'AIA=','2zw188xl',1,0,'',53,0,0),(35514,6815,6,400,0,'201.92.34.197',1185847943,1,0,1,1,1,1,'','','Ola Armando, \n\nfaltava lo MySQL ODBC 3.51 Driver.\n\nMas agora, esta com esto erro:\n\n[code:31sjn1am]\nApplication\n===========\n   Path and name&#58; C&#58;\\ProgFwh28\\TestAdo\\Tado&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,414,144 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 07/30/07, 23&#58;10&#58;32\n   Error description&#58; Error ADODB&#46;Recordset/16389  E_FAIL&#58; OPEN\n   Args&#58;\n     &#91;   1&#93; = C   Agencias\n     &#91;   2&#93; = O   Object\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;OPEN&#40;0&#41;\n   Called from&#58;  =&gt; ADO_OPEN&#40;264&#41;\n   Called from&#58;  =&gt; DBUSEAREA&#40;0&#41;\n   Called from&#58; AdoMain&#46;Prg =&gt; MAIN&#40;9&#41;\n[/code:31sjn1am]\n\nO que poede ser agora ?','',0,'AIA=','31sjn1am',1,0,'',400,0,0),(35515,7730,6,251,0,'190.76.19.252',1185850076,1,0,1,1,1,0,'','Paz a sus restos y que descanses en paz Juan J. Machado','Juan J. Machado, donde estes te recordaremos con cariño, PAQ\n\nHoy, cumplo con el penoso deber de recordar a un gran amigo y persona, quien de manera desmedida siempre nos brindo una mano a los que nos iniciabamos en el tema de FIVEWIN. Siempre estaba apresto a ayudar y dar sus opiniones mas relevantes a los temas de este foro.\n\nJuan Jose Machado, vivia en Valencia- Venezuela, lo conoci a traves de Internet (del foro) hace como 5 años, gran persona, nos vimos en reiteradas ocasiones y siempre me brindo una mano y apoyo. Fueron muchos sus aportes y enseñanzas.\n\nHace dos meses aprox. Juan nos abandono a causa de una enfermedad, y hoy recuerdo con cariño su persona en este foro y comparto con ustedes este gran sentimiento que me embarga y aun me aflije.\n\n....lo mejor en donde estes, amigo......\n\nDomenico Di Gregorio.\nCaracas - Venezuela\nNodoplus.com','',0,'AIA=','2aahacjj',1,0,'',251,0,0),(35516,7730,6,140,0,'190.39.108.121',1185851417,1,0,1,1,1,0,'','','Esa noticia si me cae de sorpresa...\n\nTambién conocí a JJ por medio de este foro, y solíamos vernos ocasionalmente en algún café de acá de Valencia donde compartíamos experiencias.\n\nPara quienes no lo conocieron en este link dejo una foto tomada hace 2 años donde estamos 4 apasionados por FiveWin... de Izquierda a Derecha...\n\nCarlos (Rep.Dominicana), JJ (Valencia, Venezuela), Williams Pacheco (Caracas/Porlamar, Venezuela), y este servidor (Valencia, Venezuela)\n\n<!-- m --><a class=\"postlink\" href=\"http://gianny.guayoyosoft.net/fotos/visita_williams_y_carlos/PICT1245.JPG\">http://gianny.guayoyosoft.net/fotos/vis ... CT1245.JPG</a><!-- m -->','',0,'AIA=','3r8g4ul4',1,0,'',140,0,0),(35517,6815,6,53,0,'189.139.27.151',1185851890,1,0,1,1,1,1,'','','Ale:\n\nSigue siendo el mismo error, no hay conexión con el servidor, comprueba que el usuario y el password son correctos.\n\nSaludos','',0,'AIA=','326ir5um',1,0,'',53,0,0),(35518,7730,6,53,0,'189.139.27.151',1185852138,1,0,1,1,1,1,'','','Caramba:\n\nSon de las noticias que nos impactan a todos, perder a un asiduo colaborador de este foro es impactante. Quien no recuerda a JJM ?.\n\nDescanse en paz +','',0,'AIA=','4kkhwz4d',1,0,'',53,0,0),(35519,7730,6,177,0,'194.30.62.6',1185854388,1,0,1,1,1,0,'','','Noticias como esta, son las que nunca queremos oir.\n\nDescanse en paz !!!\n\nSaludos,\n\nFelix','',0,'AIA=','3kd7mzdb',1,0,'',177,0,0),(35520,7730,6,73,0,'189.157.173.47',1185856760,1,0,1,1,1,0,'','','Donde estes, siempre estaras en nosotros, los grandes dejan huella, los demas pasan y tu nos dejaste tu mejor legado.... conocimientos, enseñanzas y amistad.\nTe recordamos, con afecto.\nPaco','',0,'AIA=','2o0cb0oi',1,0,'',73,0,0),(35521,7719,3,154,0,'151.21.34.185',1185858221,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:24pyuc2y]I am not seeing your problem or, maybe I don\'t understand it.\n\nWhat is the date of your \\source\\classes\\dbcombo.prg file?[/quote:24pyuc2y]\nJames,\n\nmy version is \"FWHX 7.04\" and dbcombo.prg is dated 2006/07/06.','',0,'gA==','24pyuc2y',1,0,'',154,0,0),(35522,6815,6,400,0,'201.92.34.197',1185858624,1,0,1,1,1,1,'','','Ja Verifiquei, user e password....estao corretos....e o erro continua.\n\nJa com conexao Remoto...funciona OK !\n\nMas a Local ainda continua com esto erro:\n[code:1yzfi800]\nApplication \n=========== \n   Path and name&#58; C&#58;\\ProgFwh28\\TestAdo\\Tado&#46;Exe &#40;32 bits&#41; \n   Size&#58; 1,414,144 bytes \n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 07/30/07, 23&#58;10&#58;32 \n   Error description&#58; Error ADODB&#46;Recordset/16389  E_FAIL&#58; OPEN \n   Args&#58; \n     &#91;   1&#93; = C   Agencias \n     &#91;   2&#93; = O   Object \n\nStack Calls \n=========== \n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;OPEN&#40;0&#41; \n   Called from&#58;  =&gt; ADO_OPEN&#40;264&#41; \n   Called from&#58;  =&gt; DBUSEAREA&#40;0&#41; \n   Called from&#58; AdoMain&#46;Prg =&gt; MAIN&#40;9&#41; [/code:1yzfi800]\n\nSaludos','',0,'AIA=','1yzfi800',1,0,'',400,0,0),(35523,7731,3,1064,0,'61.70.211.182',1185861025,1,0,1,1,1,0,'','How to Define a Resource Dialog into Window','hi all:\n\nfor Difference LCD display resolution 1024x678 , ...., 1600X1200 need.\nmy ap Define some folder,tcbrowse,tget,tsay,tbutton  for Resources of\nDialog .\n\nHow to Define this Resource Dialog into a Window ,which can be\nMINIMIZE WINDOWS ,MAXIMIZE WINDOWS ?\n\nAny sample file ?\n\nBest Regards\n\nkokoo','',0,'AIA=','1jqsjdac',1,0,'',1064,0,0),(35524,7722,3,130,0,'141.51.32.24',1185866253,1,0,1,1,1,1,'','','thanks','',0,'AIA=','1a5arl5c',1,0,'',130,0,0),(35525,7701,3,2,0,'87.218.146.170',1185867827,1,0,1,1,1,1,'','','Vilian,\n\nAre you using Harbour or xHarbour ?','',0,'AIA=','219u7nb3',1,0,'',2,0,0),(35526,7731,3,2,0,'87.218.146.170',1185868593,1,0,1,1,1,1,'','','Here you have a test RC:\n[code:1y19tptw]\ntest DIALOG 49, 64, 207, 111\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION &quot;DIALOG_1&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;OK&quot;, IDOK, 148, 6, 50, 14\n PUSHBUTTON &quot;Cancel&quot;, IDCANCEL, 148, 24, 50, 14\n PUSHBUTTON &quot;Help&quot;, IDHELP, 148, 42, 50, 14\n&#125;\n[/code:1y19tptw]\n[url=http&#58;//imageshack&#46;us:1y19tptw][img:1y19tptw]http&#58;//img265&#46;imageshack&#46;us/img265/920/dialogiw7&#46;jpg[/img:1y19tptw][/url:1y19tptw]','',0,'GIA=','1y19tptw',1,0,'',2,0,0),(35527,7661,3,27,0,'62.174.195.220',1185871527,1,0,1,1,1,1,'','BACLGROUND COLORS GET','THANKS UGO WORKS FINE NOW.','',0,'GIA=','1a0i0zno',1,0,'',27,0,0),(35528,7732,3,27,0,'62.174.195.220',1185872584,1,0,1,1,1,1,'','Lost Zoom option Preview XHarbour','I have lost the option to Zoom in on a Preview with doble click on the main screen I have to use factor. Is this normal.\n\nIn FW no problems.','',0,'GIA=','gwbijru1',1,0,'',27,0,0),(35529,7728,6,46,0,'217.168.114.221',1185875456,1,0,1,1,1,0,'','','Puedes poner en el STARTPAGE\n\n[code:1dj291j7]REPORT oRpt &#46;&#46;&#46;&#46;&#46;&#46;\n         HEADER &quot;Tu Empresa&quot;, &quot;Fecha&#58; &quot; + DtoC&#40; Date&#40;&#41; &#41;\n&#46;&#46;&#46;&#46;&#46;\n\n    oRpt&#58;oHeader&#58;aPad&#91;2&#93; &#58;= RPT_RIGHT // alineacion derecha\n\n&#46;&#46;&#46;&#46;\nEND REPORT\n\n\n//misma linea Header 2 = Header 1\nACTIVATE REPORT oRpt ;\n         STARTPAGE oRpt&#58;oHeader&#58;aRow&#91;2&#93; &#58;= oRpt&#58;oHeader&#58;aRow&#91;1&#93;[/code:1dj291j7]','',0,'AIA=','1dj291j7',1,0,'',46,0,0),(35530,7661,3,154,0,'151.21.78.78',1185876081,1,0,1,1,1,1,'','Re: BACLGROUND COLORS GET','[quote=&quot;PAUL SIMM&quot;:2as4w2vc]THANKS UGO WORKS FINE NOW.[/quote:2as4w2vc]\nPaul,\nnothing!  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2as4w2vc',1,0,'',154,0,0),(35531,7731,3,1064,0,'210.192.236.99',1185877082,1,0,1,1,1,0,'','','Antonio :\n\nthank you.','',0,'gA==','343urijl',1,0,'',1064,0,0),(35532,7717,6,316,0,'87.218.186.70',1185878817,1,0,0,1,1,0,'','','Lo hice, de hecho es una de las primeras cosas que probé, lo acabo de repetir para ver si se corrige, pero no, sigo teniendo problemas. \nOjo que es un problema solo con Fivewin, ya que no he tenido el mismo inconveniente co notros programas, como para descartar cuastiones de drivers o gráfica.\nYa puestos en el tema, aprovecho para preguntar: ¿Que se supone que debe hacer una window/control al recibir el método ERASEBKGND, o mejor dicho, que parte del pintado pongo en uno u otro lugar? Es que estoy haciendo unos botones con el fondo degradado (el background, se supone), un texto y eventualmente un icono ( los datos del boton propiamente dicho ). Hay algún criterio para separar el pintado entre los dos mensajes? \nUn saludo,\n\nCarlos.','',0,'gA==','fhvpucbz',1,0,'',316,0,0),(35533,7730,6,316,0,'87.218.186.70',1185879524,1,0,0,1,1,0,'','','Dios, que fatal. Y no hace mucho despedimos a otro compañero, Jesus, por culpa del p*t* cancer. ¡Que sensación terrible!\nNo he tenido la oportunidad de conocer personalmente a JJ, pero ¿quien no se ha encontrado su nombre en algún código cuando estaba resolviendo un problema? \nJJ, descansa en paz. \n\nCarlos.','',0,'gA==','7e6lmzp0',1,0,'',316,0,0),(35534,7701,3,267,0,'200.208.238.2',1185880718,1,0,1,1,1,1,'','','Antonio,\n\nI use xHarbour.','',0,'gA==','wtw5rvmu',1,0,'',267,0,0),(35535,6815,6,53,0,'189.139.97.148',1185883076,1,0,1,1,1,1,'','','Ale:\n\nPrueba con\n\nUSE gerefina VIA \"ADORDD\" TABLE \"Agencias\" MYSQL  ; \n      FROM \"localhost\" USER \"root\" PASSWORD \"xxxxx\" \n\nSaludos','',0,'gA==','19poquw0',1,0,'',53,0,0),(35536,7701,3,2,0,'87.218.146.170',1185883309,1,0,1,1,1,1,'','','Vilian,\n\nPlease do this: tlib fivehc.lib - ole.obj \n\nthen add these functions to your app:\n[code:3lygq5xq]\nfunction OleGetProperty&#40; hObj, cPropName &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n   local uRet\n\n   o&#58;hObj = hObj\n   uRet = __ObjSendMsg&#40; o, cPropName &#41;\n   o&#58;hObj = nil\n\nreturn uRet\n\nfunction OleSetProperty&#40; hObj, cPropName, uValue &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n   local uRet\n\n   o&#58;hObj = hObj\n   uRet = __ObjSendMsg&#40; o, &quot;_&quot; + cPropName, uValue &#41;\n   o&#58;hObj = nil\n\nreturn uRet \n\nfunction OleInvoke&#40; hObj, cMethName, &#46;&#46;&#46; &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n   local uRet\n\n   o&#58;hObj = hObj\n   uRet = o&#58;Invoke&#40; cMethName, &#46;&#46;&#46; &#41;\n   o&#58;hObj = nil\n\nreturn uRet \n[/code:3lygq5xq]','',0,'AIA=','3lygq5xq',1,0,'',2,0,0),(35537,7701,3,267,0,'200.208.238.2',1185885178,1,0,1,1,1,1,'','','Antonio,\n\nLater that I made what you asked for started to occur the following error:\n\n[code:2j2av2ya]Application\n===========\n   Path and name&#58; F&#58;\\FWH\\SAMPLES\\pdf&#46;exe &#40;32 bits&#41;\n   Size&#58; 1,306,624 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 07/31/07, 09&#58;38&#58;02\n   Error description&#58; Error /16389  E_FAIL&#58; TERCOMMAND\n   Args&#58;\n     &#91;   1&#93; = N   680\n     &#91;   2&#93; = U   \n     &#91;   3&#93; = U   \n     &#91;   4&#93; = U   \n     &#91;   5&#93; = U   \n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;TERCOMMAND&#40;0&#41;\n   Called from&#58;  =&gt; HB_EXECFROMARRAY&#40;0&#41;\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;INVOKE&#40;397&#41;\n   Called from&#58;  =&gt; ACTXINVOKE&#40;67&#41;\n   Called from&#58; ACTIVEX&#46;PRG =&gt; TACTIVEX&#58;DO&#40;0&#41;\n   Called from&#58; pdf&#46;prg =&gt; MAIN&#40;16&#41;[/code:2j2av2ya]','',0,'AIA=','2j2av2ya',1,0,'',267,0,0),(35538,6815,6,400,0,'201.92.34.197',1185885537,1,0,1,1,1,1,'','','Armando com LocalHost.......tambiem retorna mesmo erro.\n\nSinceramente no compreendo oque acontece.','',0,'AIA=','1phlqv5k',1,0,'',400,0,0),(35539,7701,3,267,0,'200.208.238.2',1185886293,1,0,1,1,1,1,'','','Antonio,\n\nI changed OleInvoke for the following one: \n \n[code:288w5goi]function OleInvoke&#40; hObj, cMethName, uPar1, uPar2, uPar3, uPar4, uPar5 &#41;\n\n   local o &#58;= TOleAuto&#40;&#41;\n   local uRet\n\n   o&#58;hObj = hObj\n   IF uPar2 # NIL\n      uRet = o&#58;Invoke&#40; cMethName, uPar1, uPar2, uPar3, uPar4, uPar5 &#41;\n   ELSE\n      uRet = o&#58;Invoke&#40; cMethName, uPar1 &#41;\n   ENDIF\n   o&#58;hObj = nil\n\nreturn uRet[/code:288w5goi]\n\nThe error message stopped to happen, but I continue not receiving the return correct. I tried the following one:\n\n[code:288w5goi]STATIC FUNCTION EventInfo&#40;event, aParams,oActiveX,oWnd,nKey,nx,ny&#41;\nLOCAL nSt,text&#58;=Space&#40;100&#41;,font&#58;=&quot;&quot;,n\n\n    IF Upper&#40;event&#41; $ &quot;KEYPRESS&quot;\n       ? oActiveX&#58;Do&#40;&quot;TerSearchReplace2&quot;,&quot;rich&quot;,&quot;&quot;,SRCH_SEARCH,N,0&#41;\n    ENDIF\n\nRETURN NIL[/code:288w5goi]\n\nIt did not function, then I made as a test(see bellow), but also it did not function.\n\n[code:288w5goi]STATIC FUNCTION EventInfo&#40;event, aParams,oActiveX,oWnd,nKey,nx,ny&#41;\nLOCAL nSt,text&#58;=Space&#40;100&#41;,font&#58;=&quot;&quot;,n\n\n    IF Upper&#40;event&#41; $ &quot;KEYPRESS&quot;\n       ? OleInvoke&#40;oActivex&#58;hWnd,&quot;TerSearchReplace2&quot;,&quot;rich&quot;,&quot;&quot;,SRCH_SEARCH,N,0&#41;\n    ENDIF\n\nRETURN NIL[/code:288w5goi]','',0,'AIA=','288w5goi',1,0,'',267,0,0),(35541,7701,3,2,0,'87.218.146.187',1185889186,1,0,1,1,1,1,'','','Vilian,\n\n&gt; ? OleInvoke(oActivex&#058;hWnd, ...\n\nThat is not correct, as the first parameter is NOT the hWnd.\n\nIt has to be OleInvoke( ActXPdisp( oActivex&#058;hActiveX ), ...','',0,'AIA=','3jkxrdsc',1,0,'',2,0,0),(35542,7715,6,36,0,'164.77.81.210',1185889809,1,0,1,1,1,1,'','','Aqui te dejo como conectar a un server ADS\n\n[code:2g31f10h]Init Procedure Inicio&#40;&#41;\n	local hConnection &#58;= 0, lConecte &#58;= &#46;f&#46;\n\n	SET MULTIPLE ON\n	SET EPOCH TO 1950                            // Admite los años desde el 1990 en adelante\n	SET CONFIRM ON\n	SET CENTURY ON                               // 4 d¡gitos a¤o\n	SET DATE FORMAT &quot;DD/MM/YYYY&quot;                 // formato dd-mm-yyyy\n	SET DELETED ON                               // Impedir ver registros marcados borrar\n	SetHandleCount&#40; 150 &#41;                        // M ximo n§ ficheros abiertos\n	SET _3DLOOK ON\n\n	oApp &#58;= MyApp&#40;&#41;&#58;Load&#40;&#41;\n\n	rddregister&#40; &quot;ADS&quot;, 1 &#41;\n	rddSetDefault&#40; &quot;ADS&quot; &#41;\n\n	AdsConnect&#40; oApp&#58;cPathDbf &#41;\n	AdsSetServerType&#40; oApp&#58;AdsConnect &#41;\n\n	MsgRun&#40; &quot;Espere un momento, Conectando con el Servidor&quot;, &quot;Win-Invent&quot;,;\n			 &#123; || lConecte &#58;= AdsConnect60&#40; oApp&#58;AdsServer, oApp&#58;AdsConnect, &quot;adssys&quot;, &quot;7654&quot;,, @hConnection &#41; &#125; &#41;\n\n	if !lConecte //!AdsConnect60&#40; oApp&#58;AdsServer, oApp&#58;AdsConnect, &quot;adssys&quot;, &quot;7688&quot;,, @hConnection &#41;\n		MsgInfo&#40; &quot;Hay problemas en el servidor&quot;+CRLF+&quot;intente mas tarde&quot;, &quot;usuario&quot; &#41;\n		MsgInfo&#40; &quot;Error&#58;&quot;+cValtochar&#40; AdsGetLastError&#40;&#41; &#41;+CRLF +;\n			&quot;Servidor&#58;&quot;+oApp&#58;AdsServer, &quot;Usuario&quot; &#41;\n		PostQuitMessage&#40;0&#41;\n		QUIT\n		return\n	endif\n\n	oApp&#58;hConnection &#58;= hConnection\n	hConnection &#58;= NIL\n\n	AdsSetFileType&#40; ADS_CDX &#41;\n	AdsLocking&#40; &#46;t&#46; &#41;\n	AdsRightsCheck&#40; &#46;f&#46; &#41;\n\nreturn\n//---------------------------------------------------------------------------[/code:2g31f10h]\n\n\nnota: para poder trabajar con dbf temporales debes incluir la VIA\n\n[code:2g31f10h]dbCreate&#40; cFileTemp, ;\n						&#123; &#123; &quot;cod_prod&quot;, &quot;c&quot;, 15,0&#125;,;\n						  &#123; &quot;des_prod&quot;, &quot;C&quot;, 40,0&#125;,;\n						  &#123; &quot;fecha&quot;,    &quot;d&quot;, 08,0&#125;,;\n						  &#123; &quot;hora&quot;,     &quot;C&quot;, 10,0&#125;,;\n						  &#123; &quot;cant&quot;,     &quot;n&quot;, 10,0&#125;,;\n						  &#123; &quot;usuario&quot;,  &quot;C&quot;, 30,0&#125;&#125;, &quot;DBFCDX&quot; &#41;\n\nSELE 0 ; USE &#40;cFileTemp&#41; NEW ALIAS TEMP VIA &quot;DBFCDX&quot;\n\n[/code:2g31f10h]\n\n\nEspero que te sirva\n\ny suerte...','',0,'AIA=','2g31f10h',1,0,'',36,0,0),(35543,7701,3,267,0,'200.208.238.2',1185890394,1,0,1,1,1,1,'','','Antonio,\n\nVery grateful. Now he was ok.','',0,'AIA=','2ydx6typ',1,0,'',267,0,0),(35544,7734,4,289,0,'212.62.97.20',1185890768,1,0,1,1,1,0,'','The Time Now For Windows CE 6','You Ready  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  .\nNow download Windows Mobile 6 Localized Emulator Images.\nAnd Testing Your Systems With Windows CE 6. \nFrom this link <!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=38c46aa8-1dd7-426f-a913-4f370a65a582&amp;displaylang=en#filelist\">http://www.microsoft.com/downloads/deta ... n#filelist</a><!-- m -->\n\ngreetings to all.\n hathal.','',0,'AIA=','17cx06wz',1,0,'',289,0,0),(35545,6815,6,400,0,'201.92.34.197',1185892664,1,0,1,1,1,1,'','','Consegui....abrir Local...mas usando a versao 1.15...........porque será ?\n\nsaludos','',0,'AIA=','3903mb7j',1,0,'',400,0,0),(35546,7719,3,303,0,'72.199.41.171',1185893704,1,0,1,1,1,0,'','','Ugo,\n\n&gt;my version is \"FWHX 7.04\" and dbcombo.prg is dated 2006/07/06.\n\nOK, I am using the same one. Can you create a small test program that shows the problem? \n\nRegards,\nJames','',0,'AIA=','2rpj70rj',1,0,'',303,0,0),(35547,6480,6,850,0,'201.255.116.234',1185894805,1,0,1,1,1,0,'','Clase','Marco, te agradeceria me puedas enviar la clase\n<!-- e --><a href=\"mailto:renato_plus@yahoo.com\">renato_plus@yahoo.com</a><!-- e -->\n\n Gracias Renato','',0,'AIA=','3sv2uurz',1,0,'',850,0,0),(35548,7728,6,278,0,'164.77.240.10',1185894980,1,0,1,1,1,1,'','','MUCHAS GRACIAS RenOmas:\n\nLo voy a probar, a ver como funciona. \n\nSaludos,','',0,'AIA=','2nay7lcj',1,0,'',278,0,0),(35549,6480,6,36,0,'164.77.81.210',1185895539,1,0,1,1,1,1,'','','Marco \n\nfavor enviar a mi correo <!-- e --><a href=\"mailto:patricio_avalos_aguirre@hotmail.com\">patricio_avalos_aguirre@hotmail.com</a><!-- e -->\ny gracias de antemano.\n_________________\nPatricio Avalos Aguirre\nLa Serena, Chile','',0,'AIA=','2h26gbil',1,0,'',36,0,0),(35550,7730,6,940,0,'189.157.86.104',1185895856,1,0,1,1,1,1,'','','Ni hablar, sin duda se queda uno sin palabras,\n\nJ.J. Machado este foro te recuerda donde quiera que estes,\n\n...','',0,'AIA=','24sq01si',1,0,'',940,0,0),(35551,7735,3,161,0,'81.83.249.31',1185898583,1,0,1,1,1,0,'','SIX-driver replacement','Hello,\n\nI\'am still usling FW with clipper and want to upgrade to xHarbour. Is the a SIX-driver replacement available for xHarbour?\n\nThanks\n\nMarc','',0,'AIA=','3ktkx01n',1,0,'',161,0,0),(35552,7730,6,215,0,'189.137.191.139',1185898962,1,0,1,1,1,1,'','caray','Por supuesto que recuerdo muchos post de J J Machado. \nFué en los tiempos cuando daba mis primeros pasos en FW.\n\nDescanse en paz.\n\nFernando Leal\nMéxico, DF','',0,'AIA=','2e4ddzba',1,0,'',215,0,0),(35553,7736,6,643,0,'201.147.145.133',1185899867,1,0,1,1,1,0,'','AdoRDD','Hola a todos.\n\nquiero crear una tabla en SQL la estructura debe contener\nCaracteres, Fechas, numeros en dado caso campos memos\ncomo lo tendria que crear en SQL con el ADORdd ??\n\nya que se que se puede utilisar  para fehca Datetime\npero no se como crearlos y como grabarlos ya en ejecucion\n\nasi como los comppos memos\n\nsaludos cordiales','',0,'AIA=','1d44agxc',1,0,'',643,0,0),(35554,6815,6,53,0,'189.139.12.181',1185899927,1,0,1,1,1,1,'','','Ale:\n\nSi no recuerdo mal, hay diferencia entre mayúsculas y minúsculas, entonces no es lo mismo LocalHost  que localhost.\n\nSaludos','',0,'AIA=','bg3ijsu4',1,0,'',53,0,0),(35555,7737,6,854,0,'189.128.52.225',1185900024,1,0,1,1,1,0,'','Como poner una marquezina','Que tal al foro, Alguien ya a puesto una marquezina un una ventana ?, si alguien supiera como me podria echar una mano.\n\nEs para poner las ofertas en la ventana principal, que esten pasando, en la marquezina.\n\nGracias.','',0,'AIA=','2ftqgbw3',1,0,'',854,0,0),(35556,7715,6,53,0,'189.139.12.181',1185900027,1,0,1,1,1,1,'','','Patricio:\n\nDesde luego que me sirve.\n\nMuchas gracias por el aporte.\n\nSaludos','',0,'AIA=','3iwsctqc',1,0,'',53,0,0),(35557,7738,3,1125,0,'200.161.130.145',1185903281,1,0,1,1,1,0,'','How Can I Move object &quot;SAY&quot; using class &quot;TGSA','/* \n\nHi Everybody\n\nI want to move object \"say\" for sample bellow\nHow Can I active the drag method ?\n\n*/\n\n#include \"FiveWin.ch\"\n#include \"Tgsay.ch\"\n\nStatic oWnd\n\n********\nFunction Main()\n********\n    Private oBmp\n    Private oFont, oCursor, cSayTxt := \"\"\n	DEFINE Font oFont Name \"Arial\" WEIGHT 10 SIZE 8,15   \n   	DEFINE CURSOR oCursor RESOURCE \"Catch\"   \n   	DEFINE Dialog oWnd FROM 1, 1 TO 22, 75\n   	DEFINE BITMAP oBmp FILE \"C:\\FWH306\\bitmaps\\graf01.bmp\"\n	SayTransp()	\n   	ACTIVATE DIALOG oWnd ON PAINT ( oWnd:SayBitmap( 0, 0, oBmp, oWnd:nWidth, oWnd:nHeight ) )\n\nReturn nil\n\n********\nFunction SayTransp()\n********\n	Local nl:= 80, nc:= 150, cVarSay := \"SAMPLE\", oSayTxt, bClick\n\n  	SET 3DLOOK ON\n\n	@ nL,nC GSAY oSayTxt PROMPT cVarSay OF oWnd PIXEL SIZE 90,25 FONT oFont COLOR CLR_RED TRANSPARENTE\n	\n	oSayTxt:lTabs   := .f.\n	oSayTxt:lSombra := .f.\n	oSayTxt:oDragCursor := oCursor\n	oSayTxt:bDragBegin  := { | nl, nc, nKeyFlags | SetDropInfo( oSayTxt ), oWnd:SetMsg( \"Dragging and Dropping\" ) }\n    \nReturn nil\n\n\n/*\n\nThanks !\n\nGui - São Paulo - Brazil\n\n*/','',0,'Ag==','1mo2z0ks',1,0,'',1125,0,0),(35558,7730,6,171,0,'71.233.232.238',1185905483,1,0,1,1,1,0,'','','Aunque no conoci personalmente a JJ Machado, me siento triste con la perdida de un gran compañero del foro. \n\nCuando entro aqui, y eso lo hago todos los dias, veo a cada quien como mi amigo, por eso es que me apena tanto la perdida de un \"Fivewiner\".\n\nPaz a sus restos.\n\nGeorge','',0,'Ag==','2fij1w8q',1,0,'',171,0,0),(35560,7735,3,972,0,'81.164.54.51',1185907636,1,0,1,1,1,0,'','','Hello Marc,\n\nxHarbour Builder has ApolloRDD (connection to Apollo DLL), or you can use RMDBFCDX, which has all the SIX, MachSix functions available. The only thing you need to rebuild are your .NSX indexes if you use them. You need to change them to CDX.\n\nI\'m a former SIX/Clipper 5.2 user, and I use xHarbour + RMDBFCDX and it works fabulous! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nRMDBFCDX is developed by Przemek exclusively for xHarbour.com\'s xHarbour Builder.\n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'Ag==','2ovfbyku',1,0,'',972,0,0),(35561,6815,6,400,0,'201.92.36.231',1185910157,1,0,1,1,1,1,'','','Si yo sei da diferença......\n\nSoh funciona mesmo, com a versao 1.15....\n\nSaludos','',0,'Ag==','2aj1t1wd',1,0,'',400,0,0),(35562,7735,3,161,0,'81.83.249.31',1185911222,1,0,1,1,1,0,'','','Patrick,\n\nThanks for the info.\n\nIk gebruik nu ook clipper5.2e met SIX, dus deze oplossing zal het eenvoudigste zijn. Ik zie dat ik dan minstens de Professional versie zal moeten nemen.\nIk zal maar eerst de FWH bestellen voordat ik de xHarbour Builder bestel. <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nGroeten,\n\nMarc','',0,'Ag==','1gkqbkuz',1,0,'',161,0,0),(35563,7730,6,78,0,'190.40.250.56',1185912013,1,0,1,1,1,0,'','','Yo tambien te recuerdo en el foro, gran \"fivewiner\",,, descanza en paz','',0,'Ag==','vy5gxukj',1,0,'',78,0,0),(35564,7730,6,179,0,'200.107.17.143',1185913166,1,0,1,1,1,1,'','','Paz en su tumba\ngracias x todos tus aportes y tu don de gentes, siempre te recordaremos\n\natt','',0,'Ag==','3v2v7j4u',1,0,'',179,0,0),(35565,7736,6,643,0,'201.147.145.133',1185915722,1,0,1,1,1,0,'','Gracias','Fernando agradesco tus comentarios,\n\nyta mire el fuente y no viene nada referente a com ocrear una base de datos con compos de fechas o DateTime asi como relacionar o crear campos memos.\n\nLa base de datos seria SQL 2000 o Sql2005\n\nSaludos\n\n[quote=&quot;Fernando Mancera&quot;:218sdw46]Jose Luis,\n\nTe recomiendo que mires el codigo fuente de ADORDD, es la mejor ayuda\nque podrás encontrar. Para crear las bases de datos puedes usar DBCREATE(), ... pero ¿ que motor SQL piensas usar ?[/quote:218sdw46]','',0,'gA==','218sdw46',1,0,'',643,0,0),(35566,7730,6,138,0,'189.141.71.139',1185915778,1,0,1,1,1,1,'','','No me ......\nMe acaba de caer como cubo de agua helada .....\n\nConocí a JJ en un viaje que hice a Caracas, ese dia comimos en un restaurante de comida China, nos bebimos unas cervezas (Polar por su puesto), y brindamos con un Sambuca que nos ofrecio la camarera..... \n\nGiancarlo.... tu estabas ese dia con nostros ??? no me acuerdo.\n\nAsí es como quiero recordar a JJ....','',0,'gA==','2q1byr8r',1,0,'',138,0,0),(35567,7726,6,138,0,'189.141.71.139',1185919208,1,0,1,1,1,1,'','','Necesitas una herramienta Script, para xHarobur hay 2, el XBScript y otra de un particular.','',0,'gA==','10re07qm',1,0,'',138,0,0),(35568,7730,6,18,0,'200.67.188.236',1185919684,1,0,1,1,1,1,'','Re: Paz a sus restos y que descanses en paz Juan J. Machado','A Juan lo conocí en el 2001, triste noticia que me hace reflexionar que la vida y la salud no es eterna...... me gusta mi trabajo... pero por favor amigos.... también disfruten a su familia.\n\n...una persona se mantiene viva mientras haya otra que la recuerde.... Juan....Nosotros te recordaremos siempre.','',0,'gA==','261l4o0b',1,0,'',18,0,0),(35569,7728,6,138,0,'189.141.71.139',1185920575,1,0,1,1,1,1,'','','Depues del ENDREPORT y antes del ACTIVATE REPORT haz:\n\noRep:oTitle:aPad[2]    := RPT_RIGHT\n\nCon esto la segunda linea del reporte quedara pegada a la derecha.\n\nSi tu reporte tiene 3 lineas, y quieres una a la izqueirda, otra a la derecha y otra centrada haces:\n\noRep:oTitle:aPad[1] := RPT_LEFT\noRep:oTitle:aPad[2] := RPT_CENTER\noRep:oTitle:aPad[3] := RPT_RIGHT\n\nY listo','',0,'','3qvkhdxu',1,0,'',138,0,0),(35570,7737,6,12,0,'190.80.156.9',1185922987,1,0,1,1,1,1,'','','Mil gracias al que realizo esta clase, la encontre tal como esta:\n\nEsta es la clase dSay\n[code:1u992aov]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Constant&#46;ch&quot;\n\n#define SS_CENTER             1\n#define SS_RIGHT              2\n#define SS_GRAYRECT           5 // BOXRECT\n\n#define TA_LEFT               0\n#define TA_RIGHT              2\n#define TA_CENTER             6\n#define TA_TOP                0\n#define TA_BOTTOM             8\n\n#define COLOR_WINDOW          5\n#define COLOR_WINDOWTEXT      8\n\n#define COLOR_BTNSHADOW      16\n#define COLOR_BTNHIGHLIGHT   20\n\n#define WM_NCHITTEST        132  // 0x84\n\n#define GWL_STYLE           -16\n#define GWL_EXSTYLE         -20\n\n#ifdef __XPP__\n   #define Super &#58;&#58;TControl\n   #define New   _New\n#endif\n\nstatic oTimer, aTimer &#58;= &#123;&#125;\n\n//----------------------------------------------------------------------------//\n\nCLASS TDSay FROM TControl\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   DATA   l3D\n   DATA   cPicture\n   DATA   aCaption\n   DATA   bGet\n\n   DATA   lShaded, lBox, lRaised\n\n   DATA   nDTop, nDLeft\n   DATA   nTTop, nTLeft\n   DATA   aRect, nLong\n   DATA   nTxtWidth, nTxtHeight\n   DATA   nAlign\n\n   DATA   oTimer\n   DATA   lScroll, lHorizontal, nSpeed, lWrap    // nSpeed&#58; 0 to 100\n   DATA   lBlink, lView\n\n   METHOD New&#40; nRow, nCol, bText, oWnd, cPicture, oFont,;\n               lCentered, lRight, lBottom, lBorder, lPixels, nClrText, nClrBack,;\n               nWidth, nHeight, cScroll, nSpeed, lWrap, lBlink,;\n               lDesign, lUpdate, lShaded, lBox, lRaised &#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nId, bText, oWnd, cPicture, lCentered, lRight, lBottom,;\n                    nClrText, nClrBack, cScroll, nSpeed, lWrap, lBlink,;\n                    lUpdate, oFont, lShaded, lBox, lRaised &#41;  CONSTRUCTOR\n\n   METHOD Default&#40;&#41;\n\n   METHOD Destroy&#40;&#41;\n\n   METHOD Initiate&#40; hDlg &#41; INLINE Super&#58;Initiate&#40; hDlg &#41;, &#58;&#58;Default&#40;&#41;\n\n   METHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n   \n   METHOD Display&#40;&#41; INLINE &#58;&#58;BeginPaint&#40;&#41;, &#58;&#58;Paint&#40;&#41;, &#58;&#58;EndPaint&#40;&#41;\n\n   METHOD Paint&#40;&#41;\n\n   METHOD Dynamic&#40;&#41;\n\n   METHOD Refresh&#40;&#41; INLINE If&#40; &#58;&#58;bGet != nil, &#58;&#58;SetText&#40; Eval&#40; &#58;&#58;bGet &#41; &#41;,&#41;\n\n   METHOD ReSize&#40; nType, nWidth, nHeight &#41; INLINE &#58;&#58;Default&#40;&#41;, Super&#58;ReSize&#40; nType, nWidth, nHeight &#41;\n   \n   METHOD SetText&#40; cText &#41; INLINE ;\n                    &#58;&#58;cCaption &#58;= If&#40; &#58;&#58;cPicture != nil,;\n                                  Transform&#40; cText, &#58;&#58;cPicture &#41;,;\n                                  cValToChar&#40; cText &#41; &#41;,;\n                                  &#58;&#58;Default&#40;&#41;, &#58;&#58;Paint&#40;&#41;\n   METHOD VarPut&#40; cValue &#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; nRow, nCol, bText, oWnd, cPicture, oFont,;\n            lCentered, lRight, lBottom, lBorder, lPixels, nClrText, nClrBack,;\n            nWidth, nHeight, cScroll, nSpeed, lWrap, lBlink,;\n            lDesign, lUpdate, lShaded, lBox, lRaised &#41; CLASS TDSay\n\n   DEFAULT nRow     &#58;= 0, nCol &#58;= 0,;\n           lBorder  &#58;= &#46;f&#46;, lCentered &#58;= &#46;f&#46;, lRight &#58;= &#46;f&#46;, lBottom &#58;= &#46;f&#46;, lPixels &#58;= &#46;f&#46;,;\n           oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nClrText &#58;= oWnd&#58;nClrText, nClrBack &#58;= oWnd&#58;nClrPane,;\n           nHeight  &#58;= If&#40; oFont != nil, Abs&#40; oFont&#58;nHeight &#41;, SAY_CHARPIX_H &#41;,;\n           lDesign  &#58;= &#46;f&#46;, bText &#58;= &#123; || &quot;&quot; &#125;,;\n           lUpdate  &#58;= &#46;f&#46;, lShaded &#58;= &#46;f&#46;, lBox &#58;= &#46;f&#46;, lRaised &#58;= &#46;f&#46;\n\n   &#58;&#58;l3D       = lShaded &#46;or&#46; lBox &#46;or&#46; lRaised\n   &#58;&#58;nAlign    = nOr&#40; If&#40; lBottom, TA_BOTTOM, TA_TOP &#41;,;\n                      If&#40; lCentered, TA_CENTER, If&#40; lRight, TA_RIGHT, TA_LEFT &#41; &#41; &#41;\n   &#58;&#58;bGet      = bText\n   &#58;&#58;bSetGet   = bText\n   &#58;&#58;cPicture  = cPicture\n   &#58;&#58;cCaption  = If&#40; Empty&#40; cPicture &#41;, cValToChar&#40; Eval&#40; bText &#41; &#41;,;\n                     Transform&#40; Eval&#40; bText &#41;, cPicture &#41; &#41;\n   \n   DEFAULT nWidth &#58;= &#40; If&#40; oFont != nil, Abs&#40; oFont&#58;nWidth &#41;, SAY_CHARPIX_W &#41; * Len&#40; &#58;&#58;cCaption &#41; &#41; - 4  // 8\n\n   if ! lPixels\n      &#58;&#58;nTop  = nRow * If&#40; oFont != nil, Abs&#40; oFont&#58;nHeight &#41;, SAY_CHARPIX_H &#41; + 2        // 13\n      &#58;&#58;nLeft = nCol * If&#40; oFont != nil, Abs&#40; oFont&#58;nWidth &#41;, SAY_CHARPIX_W &#41;                    // 8\n   else\n      &#58;&#58;nTop  = nRow\n      &#58;&#58;nLeft = nCol\n   endif\n\n   &#58;&#58;nBottom   = &#58;&#58;nTop + nHeight - 1\n   &#58;&#58;nRight    = &#58;&#58;nLeft + nWidth - 1\n \n   DEFAULT nSpeed &#58;= 55, lWrap &#58;= &#46;f&#46;, lBlink &#58;= &#46;f&#46;\n\n   &#58;&#58;lScroll     = &#40; cScroll != nil &#41;\n   &#58;&#58;lHorizontal = &#40; cScroll == &quot;HORIZONTAL&quot; &#41;\n   &#58;&#58;nSpeed      = if&#40; nSpeed &lt; 50, &#40; 50 - nSpeed &#41; * 10, 100 - nSpeed &#41;\n   &#58;&#58;lWrap       = lWrap\n   &#58;&#58;lBlink      = lBlink\n\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;oFont     = oFont\n   &#58;&#58;nId       = &#58;&#58;GetNewId&#40;&#41;\n   &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE,;\n                 If&#40; lDesign, nOr&#40; WS_CLIPSIBLINGS, WS_TABSTOP &#41;, 0 &#41;,; \n                 If&#40; lBorder, WS_BORDER, 0 &#41; &#41;\n   &#58;&#58;lShaded  = lShaded \n   &#58;&#58;lBox     = lBox \n   &#58;&#58;lRaised  = lRaised\n\n   &#58;&#58;lDrag     = lDesign\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;lUpdate   = lUpdate\n \n   &#58;&#58;SetColor&#40; nClrText, nClrBack &#41;\n\n   &#58;&#58;Register&#40; nOR&#40; CS_VREDRAW, CS_HREDRAW &#41; &#41;\n  \n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40;&#41;\n      &#58;&#58;Default&#40;&#41;\n      if &#58;&#58;l3D\n         &#58;&#58;Set3DLook&#40;&#41;\n      endif\n      oWnd&#58;AddControl&#40; Self &#41;\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\n   if &#58;&#58;lDrag\n      &#58;&#58;CheckDots&#40;&#41;\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine&#40; nId, bText, oWnd, cPicture, lCentered, lRight, lBottom,;\n                 nClrText, nClrBack, cScroll, nSpeed, lWrap, lBlink,;\n                 lUpdate, oFont, lShaded, lBox, lRaised &#41; CLASS TDSay\n\n   DEFAULT lCentered &#58;= &#46;f&#46;, lRight &#58;= &#46;f&#46;, lBottom &#58;= &#46;f&#46;,;\n           nClrText &#58;= oWnd&#58;nClrText, nClrBack &#58;= oWnd&#58;nClrPane,;\n           oWnd &#58;= GetWndDefault&#40;&#41;,;\n           lUpdate &#58;= &#46;f&#46;, lShaded &#58;= &#46;f&#46;, lBox &#58;= &#46;f&#46;, lRaised &#58;= &#46;f&#46;\n\n   &#58;&#58;l3D       = lShaded &#46;or&#46; lBox &#46;or&#46; lRaised\n   &#58;&#58;nId       = nId\n   &#58;&#58;nAlign    = nOr&#40; If&#40; lBottom, TA_BOTTOM, TA_TOP &#41;,;\n                      If&#40; lCentered, TA_CENTER, If&#40; lRight, TA_RIGHT, TA_LEFT &#41; &#41; &#41;\n   &#58;&#58;bGet      = bText\n   &#58;&#58;bSetGet   = bText\n   &#58;&#58;cPicture  = cPicture\n   &#58;&#58;oFont     = oFont\n\n   if bText != nil\n      &#58;&#58;cCaption = If&#40; Empty&#40; cPicture &#41;, cValToChar&#40; Eval&#40; bText &#41; &#41;,;\n                       Transform&#40; Eval&#40; bText &#41;, cPicture &#41; &#41;\n   endif\n\n   DEFAULT nSpeed &#58;= 55, lWrap &#58;= &#46;f&#46;, lBlink &#58;= &#46;f&#46;\n                 \n   &#58;&#58;lScroll     = &#40; cScroll != nil &#41;\n   &#58;&#58;lHorizontal = &#40; cScroll == &quot;HORIZONTAL&quot; &#41;\n   &#58;&#58;nSpeed      = if&#40; nSpeed &lt; 50, &#40; 50 - nSpeed &#41; * 10, 100 - nSpeed &#41;\n   &#58;&#58;lWrap       = lWrap\n   &#58;&#58;lBlink      = lBlink   \n\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;hWnd      = 0\n   &#58;&#58;lShaded  = lShaded \n   &#58;&#58;lBox     = lBox \n   &#58;&#58;lRaised  = lRaised\n\n   &#58;&#58;lDrag     = &#46;f&#46;\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;lUpdate   = lUpdate\n\n   &#58;&#58;SetColor&#40; nClrText, nClrBack &#41;\n   \n   &#58;&#58;Register&#40; nOR&#40; CS_VREDRAW, CS_HREDRAW &#41; &#41;\n\n   if oWnd != nil\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n  \nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TDSay\n\n   if &#58;&#58;lDrag &#46;and&#46; nMsg == WM_NCHITTEST    \n      return DefWindowProc&#40; &#58;&#58;hWnd, nMsg, nWParam, nLParam &#41;\n   endif\n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD Default&#40;&#41; CLASS TDSay\n  \n   local lCentered &#58;= nAnd&#40; &#58;&#58;nAlign, TA_CENTER &#41; == TA_CENTER   \n   local lRight    &#58;= nAnd&#40; &#58;&#58;nAlign, TA_RIGHT &#41; == TA_RIGHT    \n   local lBottom   &#58;= nAnd&#40; &#58;&#58;nAlign, TA_BOTTOM &#41; == TA_BOTTOM   \n    \n   if &#58;&#58;oFont != nil\n      &#58;&#58;SetFont&#40; &#58;&#58;oFont &#41;\n   else\n      &#58;&#58;SetFont&#40; &#58;&#58;oWnd&#58;oFont &#41;\n   endif\n\n   &#58;&#58;nTxtWidth  = 0\n   &#58;&#58;nTxtHeight = GetTextHeight&#40; &#58;&#58;hWnd, 0 &#41;\n\n   &#58;&#58;aCaption   = Array&#40; MLCount&#40; &#58;&#58;cCaption, 254 &#41; &#41;\n   AEval&#40; &#58;&#58;aCaption, &#123;|c, n| &#58;&#58;aCaption&#91; n &#93; &#58;= Trim&#40; MemoLine&#40; &#58;&#58;cCaption, 252, n &#41; &#41;,;\n                       &#58;&#58;nTxtWidth &#58;= Max&#40; &#58;&#58;nTxtWidth, GetTextWidth&#40; 0, &#58;&#58;aCaption&#91; n &#93;,;\n                       if&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41; &#41; &#41; &#125; &#41;\n\n   &#58;&#58;aRect &#58;= GetClientRect&#40; &#58;&#58;hWnd &#41;\n  \n   &#58;&#58;nDTop  &#58;= &#58;&#58;nTTop  &#58;= if&#40; lBottom, &#58;&#58;aRect&#91; 3 &#93;, 0 &#41;\n   &#58;&#58;nDLeft &#58;= &#58;&#58;nTLeft &#58;= if&#40; lCentered, int&#40; &#58;&#58;aRect&#91; 4 &#93; / 2 &#41;, if&#40; lRight, &#58;&#58;aRect&#91; 4 &#93;, 0 &#41; &#41;\n  \n   if &#58;&#58;lBox\n      &#58;&#58;aRect &#58;= &#123; 2, 2, &#58;&#58;aRect&#91; 3 &#93; - 2, &#58;&#58;aRect&#91; 4 &#93; - 2 &#125;\n   elseif &#58;&#58;lShaded &#46;or&#46; &#58;&#58;lRaised\n      &#58;&#58;aRect &#58;= &#123; 1, 1, &#58;&#58;aRect&#91; 3 &#93; - 1, &#58;&#58;aRect&#91; 4 &#93; - 1 &#125;\n   endif      \n\n   if &#58;&#58;lScroll\n      if &#58;&#58;lHorizontal\n         &#58;&#58;nLong &#58;= Max&#40; &#58;&#58;nTxtWidth, &#58;&#58;aRect&#91; 4 &#93; &#41;\n      else\n         &#58;&#58;nLong &#58;= Max&#40; &#58;&#58;nTxtHeight * len&#40; &#58;&#58;aCaption &#41;, &#58;&#58;aRect&#91; 3 &#93; &#41;\n      endif\n   endif\n\n   InvalidateRect&#40; &#58;&#58;hWnd, &#58;&#58;aRect, &#46;t&#46; &#41;\n   &#58;&#58;lView &#58;= &#46;t&#46;\n\n   // Call dynamic and blinking\n                \n   if !&#58;&#58;lDrag\n\n      if &#58;&#58;lScroll &#46;and&#46; &#58;&#58;oTimer = nil\n         DEFINE TIMER &#58;&#58;oTimer INTERVAL &#58;&#58;nSpeed ACTION &#58;&#58;Dynamic&#40;&#41; OF Self\n         ACTIVATE TIMER &#58;&#58;oTimer\n      endif\n     \n      if &#58;&#58;lBlink &#46;and&#46; AScan&#40; aTimer, &#123; | oCtrl | oCtrl == Self &#125; &#41; == 0\n         AAdd&#40; aTimer, Self &#41;\n         if oTimer = nil\n            DEFINE TIMER oTimer INTERVAL 300 ACTION Blink&#40;&#41; OF &#58;&#58;oWnd\n            ACTIVATE TIMER oTimer\n         endif\n      endif\n\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Destroy&#40;&#41; CLASS TDSay\n \n  if &#58;&#58;lBlink\n\n     ADel&#40; aTimer, AScan&#40; aTimer, &#123; |o| o == Self&#125; &#41; &#41;\n     ASize&#40; aTimer, len&#40; aTimer&#41; - 1 &#41;\n\n     if len&#40; aTimer &#41; = 0\n        oTimer &#58;= nil\n     endif\n\n  endif\n\nreturn Super&#58;Destroy&#40;&#41;\n\n//----------------------------------------------------------------------------//\n\nMETHOD Paint&#40;&#41; CLASS TDSay\n\n   local n \n   local nColorShadow, nColorLight\n\n   &#58;&#58;GetDC&#40;&#41;\n\n   if &#58;&#58;lActive\n\n      if &#58;&#58;lView\n   \n         for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n             WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nDTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight, &#58;&#58;nDLeft, &#58;&#58;aCaption&#91; n &#93;, &#58;&#58;nClrText,,;\n                   If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n         next\n   \n         if &#58;&#58;lScroll &#46;and&#46; &#58;&#58;lWrap\n            if &#58;&#58;lHorizontal\n                for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n                    WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nDTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight, &#58;&#58;nDLeft + &#58;&#58;nLong, &#58;&#58;aCaption&#91; n &#93;, &#58;&#58;nClrText,,;\n                          If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n                next\n             else\n                for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n                    WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nDTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight + &#58;&#58;nLong, &#58;&#58;nDLeft, &#58;&#58;aCaption&#91; n &#93;, &#58;&#58;nClrText,,;\n                          If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n                next\n             endif\n         endif\n   \n      else\n   \n         InvalidateRect&#40; &#58;&#58;hWnd, &#58;&#58;aRect, &#46;t&#46; &#41;\n   \n      endif\n\n   else\n      \n      nColorShadow &#58;= GetSysColor&#40; COLOR_BTNSHADOW &#41;\n      nColorLight  &#58;= GetSysColor&#40; COLOR_BTNHIGHLIGHT &#41; \n\n      for n &#58;= 1 to len&#40; &#58;&#58;aCaption &#41;\n          WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nDTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight + 1, &#58;&#58;nDLeft + 1, &#58;&#58;aCaption&#91; n &#93;, nColorLight,,;\n                If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n          WSay&#40; &#58;&#58;hWnd, &#58;&#58;hDC, &#58;&#58;nDTop + &#40; n - 1 &#41; * &#58;&#58;nTxtHeight, &#58;&#58;nDLeft, &#58;&#58;aCaption&#91; n &#93;, nColorShadow,,;\n                If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;, &#46;T&#46;, &#46;T&#46;, &#58;&#58;nAlign &#41;\n      next\n\n   endif\n\n   // 3D\n\n   if &#58;&#58;lShaded\n      WndInset&#40; &#58;&#58;hWnd, &#58;&#58;hDC &#41;   // SHADED, SHADOW\n   endif\n\n   if &#58;&#58;lRaised\n      WndRaised&#40; &#58;&#58;hWnd, &#58;&#58;hDC &#41;  // RAISED\n   endif\n\n   if &#58;&#58;lBox\n      WndBoxIn&#40; &#58;&#58;hDC, 0, 0, &#58;&#58;nBottom-&#58;&#58;nTop, &#58;&#58;nRight-&#58;&#58;nLeft &#41;\n      WndBoxRaised&#40; &#58;&#58;hDC, 1, 1, &#58;&#58;nBottom-&#58;&#58;nTop-1, &#58;&#58;nRight-&#58;&#58;nLeft-1 &#41;\n   endif\n\n   &#58;&#58;ReleaseDC&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Dynamic&#40;&#41; CLASS TDSay\n\n  local nSpeed &#58;= if&#40; &#58;&#58;nSpeed &lt; 50, int&#40; &#40; 50 - &#58;&#58;nSpeed + 5 &#41; / 5 &#41;, 1 &#41;\n\n  if !&#58;&#58;lActive\n     return nil\n  endif\n\n  if &#58;&#58;lHorizontal\n\n     &#58;&#58;nDLeft -= nSpeed\n     if &#58;&#58;nDLeft + &#58;&#58;nLong &lt; &#58;&#58;nTLeft\n        if &#58;&#58;lWrap\n           &#58;&#58;nDLeft &#58;= &#58;&#58;nDLeft + &#58;&#58;nLong\n        else\n           &#58;&#58;oTimer&#58;End&#40;&#41;\n        endif\n     endif\n     ScrollWindow&#40; &#58;&#58;hWnd, -nSpeed, 0, &#58;&#58;aRect, &#58;&#58;aRect &#41;\n\n  else\n\n     &#58;&#58;nDTop -= nSpeed\n     if &#58;&#58;nDTop + &#58;&#58;nLong &lt; if&#40; &#58;&#58;nTTop = 0, 0, &#58;&#58;nTxtHeight &#41;\n        if &#58;&#58;lWrap\n           &#58;&#58;nDTop &#58;= &#58;&#58;nDTop + &#58;&#58;nLong\n        else\n           &#58;&#58;oTimer&#58;End&#40;&#41;\n        endif\n     endif\n     ScrollWindow&#40; &#58;&#58;hWnd, 0, -nSpeed, &#58;&#58;aRect, &#58;&#58;aRect &#41;\n\n  endif\n\n  /*  It is not necessary to use the method \'Paint&#40;&#41;\' because\n      \'ScrollWindow&#40;&#41;\' he calls directly to the method \'Paint&#40;&#41;\'  */\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD VarPut&#40; cValue &#41; CLASS TDSay\n\n   if ! Empty&#40; &#58;&#58;cPicture &#41;\n      cValue = Transform&#40; cValue, &#58;&#58;cPicture &#41;\n   else\n      cValue = cValToChar&#40; cValue &#41;\n   endif\n\n   &#58;&#58;bGet = &#123; || cValue &#125;\n\nreturn nil\n\n//  Static functions\n//----------------------------------------------------------------------------//\n\nstatic Function Blink&#40;&#41;\n  AEval&#40; aTimer, &#123;| oCtrl | oCtrl&#58;lView &#58;= !oCtrl&#58;lView, if&#40; oCtrl&#58;lActive, oCtrl&#58;Paint&#40;&#41;, &#41; &#125; &#41;\nreturn nil\n\n[/code:1u992aov]\n\nArchivo de cabecera dsay.ch\n[code:1u992aov]\n#define _DSAY_CH\n\n/*----------------------------------------------------------------------------//\n!short&#58; DYNAMIC SAY  */\n\n// The SPEED tints that to go from 0 to 100\n\n#xcommand REDEFINE DYNAMIC SAY &#91;&lt;oDSay&gt;&#93; ;\n             &#91; &lt;label&#58; PROMPT, VAR&gt; &lt;cText&gt; &#93; ;\n             &#91; PICTURE &lt;cPict&gt; &#93; ;\n             &#91; ID &lt;nId&gt; &#93; ;\n             &#91; &lt;dlg&#58; OF,WINDOW,DIALOG &gt; &lt;oWnd&gt; &#93; ;\n             &#91; &lt;lCenter&#58; CENTERED, CENTER &gt; &#93; ;\n             &#91; &lt;lRight&#58;  RIGHT &gt; &#93; ;\n             &#91; &lt;lBottom&#58; BOTTOM &gt; &#93;;\n             &#91; &lt;color&#58; COLOR,COLORS &gt; &lt;nClrText&gt; &#91;,&lt;nClrBack&gt; &#93; &#93; ;\n             &#91; &lt;scroll&#58; VERTICAL, HORIZONTAL &gt; SCROLL &#91; SPEED &lt;nSpeed&gt; &#93; &#91; &lt;lWrap&#58; WRAP &gt; &#93; &#93; ;\n             &#91; &lt;lBlink&#58; BLINKING &gt; &#93; ;\n             &#91; &lt;update&#58; UPDATE &gt; &#93; ;\n             &#91; FONT &lt;oFont&gt; &#93; ;\n             &#91; &lt;lShaded&#58; SHADED, SHADOW &gt; &#93; ;\n             &#91; &lt;lBox&#58;    BOX   &gt;  &#93; ;\n             &#91; &lt;lRaised&#58; RAISED &gt; &#93; ;\n       =&gt; ;\n          &#91; &lt;oDSay&gt; &#58;= &#93; TDSay&#40;&#41;&#58;ReDefine&#40; &lt;nId&gt;, &lt;&#123;cText&#125;&gt;, &lt;oWnd&gt;, &lt;cPict&gt;, ;\n                        &lt;&#46;lCenter&#46;&gt;, &lt;&#46;lRight&#46;&gt;, &lt;&#46;lBottom&#46;&gt;, &lt;nClrText&gt;, &lt;nClrBack&gt;, ;\n                        &#91;Upper&#40;&lt;&#40;scroll&#41;&gt;&#41;&#93;, &lt;nSpeed&gt;, &lt;&#46;lWrap&#46;&gt;, &lt;&#46;lBlink&#46;&gt;, ;\n                        &lt;&#46;update&#46;&gt;, &lt;oFont&gt;, &lt;&#46;lShaded&#46;&gt;, &lt;&#46;lBox&#46;&gt;, &lt;&#46;lRaised&#46;&gt; &#41;\n\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; DYNAMIC SAY &#91; &lt;oDSay&gt; &lt;label&#58; PROMPT,VAR &gt; &#93; &lt;cText&gt; ;\n             &#91; PICTURE &lt;cPict&gt; &#93; ;\n             &#91; &lt;dlg&#58; OF,WINDOW,DIALOG &gt; &lt;oWnd&gt; &#93; ;\n             &#91; FONT &lt;oFont&gt; &#93;  ;\n             &#91; &lt;lCenter&#58; CENTERED, CENTER &gt; &#93; ;\n             &#91; &lt;lRight&#58;  RIGHT &gt; &#93; ;\n             &#91; &lt;lBottom&#58; BOTTOM &gt; &#93;;\n             &#91; &lt;lBorder&#58; BORDER &gt; &#93; ;\n             &#91; &lt;lPixel&#58; PIXEL, PIXELS &gt; &#93; ;\n             &#91; &lt;color&#58; COLOR,COLORS &gt; &lt;nClrText&gt; &#91;,&lt;nClrBack&gt; &#93; &#93; ;\n             &#91; SIZE &lt;nWidth&gt;, &lt;nHeight&gt; &#93; ;\n             &#91; &lt;scroll&#58; VERTICAL, HORIZONTAL &gt; SCROLL &#91; SPEED &lt;nSpeed&gt; &#93; &#91; &lt;lWrap&#58; WRAP &gt; &#93; &#93; ;\n             &#91; &lt;lBlink&#58; BLINKING &gt; &#93; ;\n             &#91; &lt;design&#58; DESIGN &gt;  &#93; ;\n             &#91; &lt;update&#58; UPDATE &gt;  &#93; ;\n             &#91; &lt;lShaded&#58; SHADED, SHADOW &gt; &#93; ;\n             &#91; &lt;lBox&#58;    BOX   &gt;  &#93; ;\n             &#91; &lt;lRaised&#58; RAISED &gt; &#93; ;\n      =&gt; ;\n          &#91; &lt;oDSay&gt; &#58;= &#93; TDSay&#40;&#41;&#58;New&#40; &lt;nRow&gt;, &lt;nCol&gt;, &lt;&#123;cText&#125;&gt;,;\n             &#91;&lt;oWnd&gt;&#93;, &#91;&lt;cPict&gt;&#93;, &lt;oFont&gt;, &lt;&#46;lCenter&#46;&gt;, &lt;&#46;lRight&#46;&gt;, &lt;&#46;lBottom&#46;&gt;, &lt;&#46;lBorder&#46;&gt;,;\n             &lt;&#46;lPixel&#46;&gt;, &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;nWidth&gt;, &lt;nHeight&gt;,;\n             &#91;Upper&#40;&lt;&#40;scroll&#41;&gt;&#41;&#93;, &lt;nSpeed&gt;, &lt;&#46;lWrap&#46;&gt;, &lt;&#46;lBlink&#46;&gt;,;\n             &lt;&#46;design&#46;&gt;, &lt;&#46;update&#46;&gt;, &lt;&#46;lShaded&#46;&gt;, &lt;&#46;lBox&#46;&gt;, &lt;&#46;lRaised&#46;&gt; &#41; [/code:1u992aov]\n\n\nEsto es como lo implemento:\n\n\n[code:1u992aov]REDEFINE DYNAMIC SAY oSay VAR Space&#40;60&#41; + &quot;Tu Mensaje Aki&quot; ID 701 OF o&#58;oDlg HORIZONTAL SCROLL SPEED 50 WRAP RIGHT FONT o&#58;oFnt&#91;3&#93;[/code:1u992aov]','',0,'AIA=','1u992aov',1,0,'',12,0,0),(35571,7730,6,140,0,'190.39.108.121',1185923759,1,0,1,1,1,0,'','','Si René, yo también estuve ese día... precisamente JJ y yo no pusimos de acuerdo para ir de Valencia a Caracas en caravana pues ninguno de los dos conocíamos bien el lugar donde nos encontraríamos contigo...\n\nDebes recordar este momento (Feb/2001)...\n<!-- m --><a class=\"postlink\" href=\"http://gianny.guayoyosoft.net/fotos/visita_Rene_Flores/PIC00064.JPG\">http://gianny.guayoyosoft.net/fotos/vis ... C00064.JPG</a><!-- m -->\n\nYo también prefiero recordar a JJ por los momentos que compartí con el.','',0,'AIA=','1z9sf0tj',1,0,'',140,0,0),(35572,7726,6,264,0,'200.91.3.10',1185923925,1,0,1,1,1,1,'','','Lo que indicas es que no es nativa ?\nsi es nativa existe algun ejemplo ?\nSaludos','',0,'AIA=','gotcc8wy',1,0,'',264,0,0),(35573,7728,6,278,0,'164.77.49.80',1185924058,1,0,1,1,1,1,'','','GRACIAS Maestro René:\n\nParece  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  que esto es lo que buscaba.\n\nGracias a todos por su colaboración. Saludos,','',0,'AIA=','2mz0cglb',1,0,'',278,0,0),(35574,151,6,138,0,'189.141.71.139',1185928023,1,0,1,1,1,1,'','Re: uan de wbrowse...','[quote=&quot;Francisco Horta&quot;:13o174uw]Hola Foro,\n\ncomo puedo combinar imagen y texto en un header?\nGracias,\nPaco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:13o174uw]\n\nAlgo como esto ????:\n\n[img:13o174uw]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/browse1&#46;png[/img:13o174uw]\n\nEsta hecho con el browse de Hernan.','',0,'iA==','13o174uw',1,0,'',138,0,0),(35576,7739,6,1072,0,'201.214.54.14',1185928796,1,0,1,1,1,0,'','UNA TREMENDA DUDA','HOLA FORO:\n\nNECESTIO ACLARAR LAS SIGUIENTES DUDAS:\n\n. QUE DIFERENCIA EXISTE EN USAR RECURSOS DE UNA DLL Y UN SAY O GET QUE USABAMOS EN CLIPPER.\n\n. EL TIPO DE CORDENADAS DE UN SAY O GET EN FIVEWN SON IGUAL A LAS DE CLIPPER.\n\n. EXISTE ALGUN EDITOR PARA GENERAR PANTALLAS CON SAY, O SE DEBE ESCRIBIR TODO EL CODIGO COMO EN CLIPPER.\n\nDISCULPEN MI IGNORANCIA EN FIVEWIN, ME NACIERON ESTAS DUDAS, YA QUE HE CREADO MIS PANTALLAS EN WORKSHOP Y USARE XHARBOUR.\n\nSALUDOS,\nANTONIO','',0,'iA==','22h8xyad',1,0,'',1072,0,0),(35577,151,6,439,0,'200.125.41.122',1185933617,1,0,1,1,1,1,'','','Sinceramente desde que conocí el \"Browse de Hernán\" lo hice mi browse, por su simplicidad y rapidez.\nGracias Hernán por el tiempo que dedicas a esta herramienta y sobre todo por compartirla con la comunidad.\nTu trabajo es admirable.','',0,'iA==','1s1yc60z',1,0,'',439,0,0),(35578,7737,6,854,0,'200.95.238.251',1185933748,1,0,1,1,1,0,'','Marquezina','Pablo , perfecto eso era lo que queria\nya lo probe y me funciona perfectamente desde NO recursos, pero al querer utilizarlo desde recursos me manda un error,  te pongo como lo defino desde recursos :\n\nCONTROL \"DSay\", 107, \"Dsay\", 0 | WS_CHILD | WS_VISIBLE, 4, 239, 419, 20\n\nSi me podrias decir como lo defines tu en tus recursos.\n\nMil gracias.','',0,'iA==','2uwta2l2',1,0,'',854,0,0),(35579,7735,3,161,0,'81.83.249.31',1185944627,1,0,1,1,1,0,'','','Fernando,\n\nAre these library\'s included in Harbour and xHarbour?\n\nMarc','',0,'iA==','3q3srr34',1,0,'',161,0,0),(35581,7735,3,130,0,'141.51.32.24',1185953933,1,0,1,1,1,1,'','','Marc,\n\nthese libs are included in xharbour. Additionally there is the BMDBFCDX driver, which is similar to RMDBFCDX from xHarbour-builder. This lib is in the contrib folder. It replaces and enhances the standard CDX-driver.','',0,'iA==','3273dijz',1,0,'',130,0,0),(35582,7740,6,102,0,'87.217.67.138',1185960398,1,0,1,1,1,1,'','Teclas aceleradoras en TBUTTON','Buenos dias,\nUso fwh26, harbour y pellesc 4.50 y tengo problemas con los button, en pelles les pongo la tecla aceleradora pero al compilar no me aparecen en pantalla, el caso es que si pulso Alt + Tecla si funciona pero no veo la letra subrayada, solo veo el texto\nEl boton le defino asi:\n\nREDEFINE BUTTON BtnEnd ID 501  OF oDlg FONT oFont ;\n         PROMPT \'&amp;Salir\'                   ;\n         CANCEL                              ;\n         UPDATE                              ;\n         ACTION (lSalir := .t.,oDlg:End())\n\nEn PROMPT pongo lo mismo que en Pellesc, pero no lo veo al ejecutar .\n\nAlguien me puede decir porque ocurre esto.\nMuchas gracias','',0,'iA==','3hp8v7ze',1,0,'',102,0,0),(35583,7741,3,1064,0,'61.70.211.182',1185960494,1,0,1,1,1,0,'','set Filter to with set Relation to not work for &quot;ADS&qu','hi all:\n\n\"Set Filter to\" with \"Set Relation to\" not work for RDD \"ADS\",\nsame source work fine for RDD \"DBFCDX\" .\n\n*******************\nLOCAL cSALSMAN:=\"TIM\",cCOND                             \n                                                        \ncCOND:=\"SAL-&gt;SALSMAN=\"+\"\'\"+cSALSMAN+\"\'\"                 \n                                                        \nUSE SAL  INDEX SAL_NO NEW SHARE     // INDEX ON SNO     \n                                                        \nUSE SAL1 INDEX SAL1_DT NEW SHARE                        \nSET RELATION TO SAL1-&gt;SNO INTO SAL                      \n                                                        \nSET SCOPE TO dDT1,dDT2                                  \nSET FILTER TO &amp;cCOND   // ERROR FILTER FOR \"ADS\" ,                     BUT WORK FINE FOR \"DBFCDX\" \nGO TOP                                                  \n                                                        \nBROWSE()                                                \n********************\n\nAnyone Know how ? \n\n\n\nBest Regards\n\nkokoo','',0,'iA==','lpkkucvg',1,0,'',1064,0,0),(35584,7735,3,972,0,'81.164.54.51',1185960834,1,0,1,1,1,0,'','','[quote=&quot;StefanHaupt&quot;:1s2mfbwh]Additionally there is the BMDBFCDX driver, which is similar to RMDBFCDX from xHarbour-builder. This lib is in the contrib folder. It replaces and enhances the standard CDX-driver.[/quote:1s2mfbwh]As BMDBFCDX is great, it does not offer same functions as Six or MachSix. RMDBFCDX offers the same functions as Six and MacSix. No need to change your source code, you can leave your SIX and MachSix functions in place.\n\nPatrick','',0,'gA==','1s2mfbwh',1,0,'',972,0,0),(35585,7735,3,972,0,'81.164.54.51',1185961166,1,0,1,1,1,0,'','','[quote=&quot;Marc Vanzegbroeck&quot;:3cs3gq7e]Thanks for the info.[/quote:3cs3gq7e]Graag gedaan <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n[quote:3cs3gq7e]Ik gebruik nu ook clipper5.2e met SIX, dus deze oplossing zal het eenvoudigste zijn. Ik zie dat ik dan minstens de Professional versie zal moeten nemen.[/quote:3cs3gq7e]Correct, RMDBFCDX zit in xHarbour Builder vanaf de Professional.[/quote]\n\n[quote:3cs3gq7e]Ik zal maar eerst de FWH bestellen voordat ik de xHarbour Builder bestel.[/quote:3cs3gq7e]Wel, je hebt beide nodig, dus, welke je eerst besteld is van geen belang. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nIkzelf ben ook een FiveWin + xHarbour Builder + RNMDBFCDX gebruiker. Download WinFakt maar eens van <!-- m --><a class=\"postlink\" href=\"http://www.WinFakt.be/Demo\">http://www.WinFakt.be/Demo</a><!-- m --> , dat is een FWH + xHB + RMDBFCDX app.\n\nSinds we overgeschakeld zijn van Clipper naar xHarbour Builder hebben we niks dan goeie reacties gehad van de klanten; sneller, stabieler. Dus, niet wachten Marc, [b:3cs3gq7e]DOEN![/b:3cs3gq7e] <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nGroeten,\n\nPatrick','',0,'wA==','3cs3gq7e',1,0,'',972,0,0),(35586,7735,3,972,0,'81.164.54.51',1185961748,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:3e6ibnbm]Harbour have implemented SixDriver funcionality, you only need link the hbsix.lib and hsx.lib included on Harbour Library Folder.[/quote:3e6ibnbm]\nHBSix.lib only support just few Six Compression, Encryption and Date functions. No MachSix functions or any other Six functions.\n\nPatrick','',0,'gA==','3e6ibnbm',1,0,'',972,0,0),(35587,7680,3,578,0,'218.214.35.132',1185969657,1,0,1,0,1,0,'','','Reinaldo\n\nThere are possibly easier ways (to fill a dbf with dictionary words) but you could download the appropriate dictionary file from Open Office and write a little xBase program to put the words into a dbf.  They are in clear text so it shouldn\'t be very hard to do.\n\nJust a suggestion.\n\nxProgrammer','',0,'gA==','y5tbdx0h',1,0,'',578,0,0),(35588,7740,6,1104,0,'200.115.251.248',1185971523,1,0,1,1,1,0,'','','Prueba lo siguiente:\n\n#include \"Tsbutton.ch\"      // Incluirlo en la cabecera del .prg\n\n\nREDEFINE SBUTTON Btn2 ID 201 OF oDlg RESOURCE \"CANCEL\";\n      ACTION \" \";\n      TOOLTIP \"Cancelar y salir\";\n      PROMPT \"&amp;Cancelar\" TEXT 4\n\nNo estoy seguro pero me parece que así fucniona.\nSaludos, Esteban.','',0,'gA==','30rm0fwh',1,0,'',1104,0,0),(35589,7737,6,12,0,'200.88.146.113',1185971943,1,0,1,1,1,1,'','','[code:3dgodrvi]\n CONTROL &quot;tDsay&quot;, 701, &quot;TDSay&quot;, 0 | WS_CHILD | WS_VISIBLE, 5, 261, 254, 10[/code:3dgodrvi]','',0,'AIA=','3dgodrvi',1,0,'',12,0,0),(35590,7742,3,1126,0,'202.171.71.250',1185973692,1,0,1,1,1,0,'','how to disable minimize and maximize buttons on main window','Hello all,\nCan you send me a sample showing how to disable minimize and maximize buttons on main window MDI\nThank you','',0,'AIA=','2i1edch0',1,0,'',1126,0,0),(35591,6814,3,801,0,'201.24.203.85',1185973890,1,0,1,1,1,0,'','','O ADORDD funciona com Postgres ?\nSe sim, como ?\n\nObrigado','',0,'AIA=','3ubho4ax',1,0,'',801,0,0),(35592,7743,3,1126,0,'202.171.71.250',1185973975,1,0,1,1,1,0,'','Execute code written in memo field','Hello All,\nHow to execute code written in memo field or from a external file?\nPlease send a sample\nThank you','',0,'AIA=','242mace5',1,0,'',1126,0,0),(35594,151,6,73,0,'200.23.18.132',1185977811,1,0,1,1,1,0,'','','Efectivamente rene, tambien uso el browse de hernan, aqui mi duda viene en que yo no he podido mezclar, texto+imagen en las cabeceras, y en el sample que publica hdc utiliza los headers nativos, y en la version 17 no los tiene implementados.\nAsi como jose yo tambien uso wbrowse desde que la use la primera vez, ya le he metido mano en algunos detalles y pues me he atrevido a subirla al foro sin consultar a hdc, esto para compartirlo con todos, gracias hdc por tu aporte.\nsalu2\nPaco','',0,'AIA=','1s4wg5k0',1,0,'',73,0,0),(35595,151,6,867,0,'148.243.37.162',1185978832,1,0,1,1,1,0,'','Re: uan de wbrowse...','[quote=&quot;RF&quot;:c6kte60j][quote=&quot;Francisco Horta&quot;:c6kte60j]Hola Foro,\n\ncomo puedo combinar imagen y texto en un header?\nGracias,\nPaco <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:c6kte60j]\n\nAlgo como esto ????:\n\n[img:c6kte60j]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/browse1&#46;png[/img:c6kte60j]\n\nEsta hecho con el browse de Hernan.[/quote:c6kte60j]\n\nHola maestro Rene, como esta corazon pues, me llamo Susy y me interesa la clase de Hernan y el ejemplo que muestras con la imagen y celdas con sus totales, es de paga o podria aportar gratuito a los demas usuarios y si me podria enviar un claro ejemplo que muestras en la imagen, gracias y se lo agradecere eternamente maestro, besos y abrazos desde michoacan , su amiga Susy <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'iA==','c6kte60j',1,0,'',867,0,0),(35596,7739,6,53,0,'189.139.94.55',1185982021,1,0,1,1,1,1,'','Re: UNA TREMENDA DUDA','[quote=&quot;mantonio_08&quot;:1dqwyluj]HOLA FORO:\n\nAntonio:\n\nA ver si logro explicarme\n\n. QUE DIFERENCIA EXISTE EN USAR RECURSOS DE UNA DLL Y UN SAY O GET QUE USABAMOS EN CLIPPER.\n\nEn FW tus recursos (Imagenes, pantallas go SAYs con GETs, etc) los puedes meter en un archivo de recursos, este archivo puede ser uno tipo DLL o algun otro como .RC  o  .RES o bien seguir definiendolos como en Clipper puro.\n\n. EL TIPO DE CORDENADAS DE UN SAY O GET EN FIVEWN SON IGUAL A LAS DE CLIPPER.\n\nSi no recuerdo mal, ahora son PIXELES ya no son renglones y columnas.\n\n. EXISTE ALGUN EDITOR PARA GENERAR PANTALLAS CON SAY, O SE DEBE ESCRIBIR TODO EL CODIGO COMO EN CLIPPER.\n\nEl que usas esta bien, sobre todo si ya estas acostumbrado a ese editor (WorkShop), existen algunos otros como PELLESC (gratuito) o RESOURCE BUILDER (de paga).\n\nDISCULPEN MI IGNORANCIA EN FIVEWIN, ME NACIERON ESTAS DUDAS, YA QUE HE CREADO MIS PANTALLAS EN WORKSHOP Y USARE XHARBOUR.\n\nANTONIO[/quote:1dqwyluj]','',0,'gA==','1dqwyluj',1,0,'',53,0,0),(35597,7739,6,1072,0,'200.83.125.22',1185982727,1,0,1,1,1,0,'','','Armando:\n\nMuchas gracias por tu respuesta. Pero segun tu experiencia, cual es la mejor opcion, ya que como recien estoy ingresando al mundo de xHarbour, me gustaria irme por la opcion de los que realmente son maestros en el ambiente.\n\nDesde ya muchas gracias,\n\nAntonio','',0,'gA==','19stnsno',1,0,'',1072,0,0),(35598,7739,6,891,0,'148.243.37.162',1185984025,1,0,1,1,1,0,'','','[quote=&quot;mantonio_08&quot;:1wyc35n2]Armando:\n\nMuchas gracias por tu respuesta. Pero segun tu experiencia, cual es la mejor opcion, ya que como recien estoy ingresando al mundo de xHarbour, me gustaria irme por la opcion de los que realmente son maestros en el ambiente.\n\nDesde ya muchas gracias,\n\nAntonio[/quote:1wyc35n2]\n\nHola Armando, usa PellesC es el mejor recurso, para construir tus propios dialogos y ventanas.\n\nAdrian','',0,'gA==','1wyc35n2',1,0,'',891,0,0),(35599,7739,6,53,0,'189.139.94.55',1185984620,1,0,1,1,1,1,'','','M. Antonio:\n\nEn gustos se rompen géneros.\n\nUtilizar los recursos metidos en una DLL tiene sus ventajas y desventajas.\n\nUna ventaja es que cuando necesites hacer cambios a los recursos no es necesario re compilar la aplicación simplemente editas la DLL de recursos y haces los pequeños cambios y listo.\n\nOtra ventaja es que tu EXE es mucho más pequeño.\n\nUna de las desventajas es que cualquiera con un editor de recursos puede abrir tu DLL y estropearla o copiar iconos o bmps.\n\nLa otra opción es utilizar un archivo .RC o .RES para contener tus recursos y despues incrustarlos en el .EXE.\n\nVentaja ?, evitas que dañen los recursos aunque tu .EXE se hace más grande.\n\nPersonalmente yo utilizo un archivo .RES e incrusto los recursos en el EXE.\n\nEn cuanto a definir las pantallas usando la forma tradicional @ X,Y o utilizar un editor de recursos, ni discutirlo !, prefiero el editor de recursos pues te permite definir todos tus recursos de manera visual (WYSIWYG).\n\nFinalmente, yo utilizo PELLESC como editor de recursos.\n\nAhhh!  y tambien utilizo VERCE 4.3 para lograr la compilación, es muuuyy sencillo.\n\nSaludos','',0,'gA==','qbq37u2u',1,0,'',53,0,0),(35600,7739,6,1072,0,'200.83.125.22',1185986260,1,0,1,1,1,0,'','','Aqui se demuestran los Maestros.\n\nAntonio:\nCon tu explicacion, me queda super claro por donde debo irme.\n\nMuchas Gracias, disculpa mi  ignorancia.,\n\nAcc69, muchas gracias,\n\nSaludos,\nAntonio','',0,'gA==','n7f6o5v0',1,0,'',1072,0,0),(35601,7742,3,2,0,'87.218.146.236',1185986893,1,0,1,1,1,1,'','','[code:b7z152bw]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd STYLE nOr&#40; WS_CAPTION, WS_VISIBLE, WS_SYSMENU &#41; MDI\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:b7z152bw]','',0,'AIA=','b7z152bw',1,0,'',2,0,0),(35602,7744,6,760,0,'200.62.254.137',1185987243,1,0,1,1,1,0,'','Master Rene Flores...','Hola a todos del foro\n\nSe que esto no es el forum de ads, pero es la unica forma de ubicar y tener una respuesta del Master RF.\nQuiero que me orienten acerca del ADS.\n\nDiferencias, para que sirve, ventajas y desventajas, precios, acerca del ADS Local VS ADS Remoto, breve explicacion?\n\nTengo sistemas hechos en Clipper puro, y estoy evaluando comprar FWH + XHarbour, para migrar mis sistemas a 32 bits.\n\nSalu2\n\nFrancis','',0,'AIA=','103ik4im',1,0,'',760,0,0),(35603,7745,6,760,0,'200.62.254.137',1185987897,1,0,1,1,1,0,'','ADO ???','Hola a todos del foro\n\nDisculpen mi ignorancia, pero quiero saber Que es ADO, para que sirve, en que se utiliza.\n\nEs que quiero migrar mis sistemas a Cliente/Servidor.\n\nSalu2\n\nFrancis','',0,'AIA=','1w1rk2ee',1,0,'',760,0,0),(35604,7741,3,138,0,'189.141.71.139',1185988080,1,0,1,1,1,1,'','Re: set Filter to with set Relation to not work for &quot;AD','Kokoo:\n\nI think I explained it to you in comp.lang.xharbour newsgroup, but here it goes again anyway:\n\nADS is an EXTERNAL program to your application, so, you cannot use anything related to your program to indicate filters, relations or indexes. \n\nI mean, you cannot use alias, variables or used defined functions in the ADS or RDD related functions or comands. in order to set relations or filters, because ADS CANNOT go into your program code or memory and \"inspect\" the values of such variables.\n\n[quote=&quot;kokookao2007&quot;:130fckz4]\nLOCAL cSALSMAN:=\"TIM\",cCOND                             \n                                                        \ncCOND:=\"SAL-&gt;SALSMAN=\"+\"\'\"+cSALSMAN+\"\'\"                 \n[/quote:130fckz4]\n\nThe previos expression is not valid, if you are going to use it with ADS you cannot use the \"SAL\" alias, because ADS cannot know what is the value of \"SAL\" (this is an internal pointer of your application), so, the right expression is:\n\n[code:130fckz4]\nLOCAL cSALSMAN&#58;=&quot;TIM&quot;,cCOND                             \n                                                        \ncCOND&#58;=&quot;SALSMAN=&quot;+&quot;\'&quot;+cSALSMAN+&quot;\'&quot;                 \n[/code:130fckz4]\n                                              \n\nThis:\n          \n[code:130fckz4]USE SAL  INDEX SAL_NO NEW SHARE     // INDEX ON SNO     \n                                                        \nUSE SAL1 INDEX SAL1_DT NEW SHARE                        \nSET RELATION TO SAL1-&gt;SNO INTO SAL                      \nSET SCOPE TO dDT1,dDT2                                  \n[/code:130fckz4]\n\nThis can be valid if you want the relation be handled by the client (it  could be slow).\n                                                        \nAnd the problem comes here:\n\n[code:130fckz4]\nSET FILTER TO &amp;cCOND   // ERROR FILTER FOR &quot;ADS&quot; , BUT WORK FINE FOR &quot;DBFCDX&quot; \nBROWSE&#40;&#41;    \nGO TOP                                                  \n[/code:130fckz4]                                                        \n\nAs I explained to you in the xharbour news group, all the filtering stuff MUST be established in a TEXTUAL FORM, since the cCOND expression is wrong form the begining, it will sure crash when comming to this point.\n\nThis is the right way:\n\n[code:130fckz4]cCond &#58;= cCOND&#58;=&quot;SALSMAN=&quot;+&quot;\'&quot;+cSALSMAN+&quot;\'&quot;                 \nbCond &#58;= &quot;&#123;||&quot;+cCond+&quot;&#125;&quot;\nDBSETFILTER&#40;&amp;bCond, cCond&#41;\nGO TOP\nBROWSE&#40;&#41;                                                \n[/code:130fckz4]\n\nRemember, ADS is an EXTERNAL programm running out of the cast of your application.  ADS doesn\'t know anything about your programm enviroment and it doesn\'t have anyway to know about it.','',0,'gIA=','130fckz4',1,0,'',138,0,0),(35605,7746,3,1129,0,'201.30.244.130',1185988671,1,0,1,1,1,0,'','Problems with DBCREATE in ADORDD','To use the ADORDD with MySql and function dbCreate does not function correctly. \n    Necessario to make the modifications below in funcoes that they are in the ADORDD.PRG\n\n\n\n[code:1efzk7hd]\n\nstatic function ADO_CREATE&#40; nWA, aOpenInfo &#41;\n\n   local cDataBase   &#58;= HB_TokenGet&#40; aOpenInfo&#91; UR_OI_NAME &#93;, 1, &quot;;&quot; &#41;\n   local cTableName  &#58;= HB_TokenGet&#40; aOpenInfo&#91; UR_OI_NAME &#93;, 2, &quot;;&quot; &#41;\n   local cDbEngine   &#58;= HB_TokenGet&#40; aOpenInfo&#91; UR_OI_NAME &#93;, 3, &quot;;&quot; &#41;\n   local cServer     &#58;= HB_TokenGet&#40; aOpenInfo&#91; UR_OI_NAME &#93;, 4, &quot;;&quot; &#41;\n   local cUserName   &#58;= HB_TokenGet&#40; aOpenInfo&#91; UR_OI_NAME &#93;, 5, &quot;;&quot; &#41;\n   local cPassword   &#58;= HB_TokenGet&#40; aOpenInfo&#91; UR_OI_NAME &#93;, 6, &quot;;&quot; &#41;\n   local oConnection &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;ADODB&#46;Connection&quot; &#41;\n   local oCatalog    &#58;= TOleAuto&#40;&#41;&#58;New&#40; &quot;ADOX&#46;Catalog&quot; &#41;\n   local aWAData     &#58;= USRRDD_AREADATA&#40; nWA &#41;\n   local oError\n\n   do case\n      case Upper&#40; Right&#40; cDataBase, 4 &#41; &#41; == &quot;&#46;MDB&quot;\n           if ! File&#40; cDataBase &#41;\n              oCatalog&#58;Create&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=&quot; + cDataBase &#41;\n           endif   \n           oConnection&#58;Open&#40; &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=&quot; + cDataBase &#41;\n           \n      case Upper&#40; cDbEngine &#41; == &quot;MYSQL&quot;     \n\n           oConnection&#58;Open&#40; &quot;DRIVER=&#123;MySQL ODBC 3&#46;51 Driver&#125;;&quot; + ;\n                             &quot;server=&quot; + cServer + ;\n                             &quot;;database=&quot; + cDataBase + ;\n                             &quot;;uid=&quot; + cUserName + ;\n                             &quot;;pwd=&quot; + cPassword &#41;\n           \n   endcase        \n\n   TRY\n      oConnection&#58;Execute&#40; &quot;DROP TABLE &quot; + cTableName &#41;\n   CATCH   \n   END\n\n   TRY\n      \n     //  oConnection&#58;Execute&#40; &quot;CREATE TABLE &#91;&quot; + cTableName + &quot;&#93; &#40;&quot; + aWAData&#91; WA_SQLSTRUCT &#93; + &quot;&#41;&quot; &#41;\n      \n        oConnection&#58;Execute&#40; &quot;CREATE TABLE &quot; + cTableName + &quot;&#40;&quot; + aWAData&#91; WA_SQLSTRUCT &#93; + &quot;&#41;&quot; &#41;\n\n   CATCH\n      oError &#58;= ErrorNew&#40;&#41;\n      oError&#58;GenCode     &#58;= EG_CREATE\n      oError&#58;SubCode     &#58;= 1004\n      oError&#58;Description &#58;= HB_LANGERRMSG&#40; EG_CREATE &#41; + &quot; &#40;&quot; + ;\n                            HB_LANGERRMSG&#40; EG_UNSUPPORTED &#41; + &quot;&#41;&quot;\n      oError&#58;FileName    &#58;= aOpenInfo&#91; UR_OI_NAME &#93;\n      oError&#58;CanDefault  &#58;= &#46;T&#46;\n      UR_SUPER_ERROR&#40; nWA, oError &#41;\n   END\n      \n   oConnection&#58;Close&#40;&#41;\n   \nreturn SUCCESS\n\nstatic function ADO_CREATEFIELDS&#40; nWA, aStruct &#41;\n\n   local aWAData &#58;= USRRDD_AREADATA&#40; nWA &#41;\n   local n\n\n   aWAData&#91; WA_SQLSTRUCT &#93; = &quot;&quot;\n\n  for n = 1 to Len&#40; aStruct &#41;\n     if n &gt; 1\n        aWAData&#91; WA_SQLSTRUCT &#93; += &quot;, &quot;\n     endif   \n   \n   //  aWAData&#91; WA_SQLSTRUCT &#93; += &quot;&#91;&quot; + aStruct&#91; n &#93;&#91; DBS_NAME &#93; + &quot;&#93;&quot;\n    \n       aWAData&#91; WA_SQLSTRUCT &#93; += aStruct&#91; n &#93;&#91; DBS_NAME &#93; \n\n   Do case\n        case aStruct&#91; n &#93;&#91; DBS_TYPE &#93; $ &quot;C,Character&quot;\n             aWAData&#91; WA_SQLSTRUCT &#93; += &quot; CHAR&#40;&quot; + AllTrim&#40; Str&#40; aStruct&#91; n &#93;&#91; DBS_LEN &#93; &#41; &#41; + &quot;&#41; NULL&quot; \n\n        case aStruct&#91; n &#93;&#91; DBS_TYPE &#93; == &quot;N&quot;\n             aWAData&#91; WA_SQLSTRUCT &#93; += &quot; NUMERIC&#40;&quot; + AllTrim&#40; Str&#40; aStruct&#91; n &#93;&#91; DBS_LEN &#93; &#41; &#41; + &quot;&#41;&quot;\n\n        case aStruct&#91; n &#93;&#91; DBS_TYPE &#93; == &quot;L&quot;\n             aWAData&#91; WA_SQLSTRUCT &#93; += &quot; LOGICAL&quot;\n     endcase     \n  next      \n\nreturn SUCCESS\n\n[/code:1efzk7hd]','',0,'AIA=','1efzk7hd',1,0,'',1129,0,0),(35606,6814,3,801,0,'201.24.203.85',1185988956,1,0,1,1,1,0,'','','No Postgres nao funciona, nao ?\n\nGrato !','',0,'AIA=','2hf39bhb',1,0,'',801,0,0),(35607,7747,2,16,0,'189.164.41.147',1185989657,1,0,1,1,1,1,'','Ayuda con Zip','Hola Antonio, Hace un buen rato que no tenía la necesidad de estar por acá, ahora la tengo, Me ROBARON mi notebook y perdi algunos archivos de configuración entre algunas otras cosas más; \n\nQueriendo recuperar mis aplicaciones de fivewin y Después de pelearme un buen rato con la compilada, lo logré pero ahora tengo problema con una librería que recuerdo me ayudaste a construir algun día quiza hace 3 o 4 años, para agregar las funciones de ZIP, y no la encuentro y me manda este error.\n\nBLINKER : 1115 : FIVEC.LIB(CLIPZIP) : \'DLLZIPUPFILES\' : unresolved external\nBLINKER : 1115 : FIVEC.LIB(UNZIP) : \'GETNEXTINZIP\' : unresolved external\nBLINKER : 1115 : FIVEC.LIB(UNZIP) : \'GETFIRSTINZIP\' : unresolved external\nBLINKER : 1115 : FIVEC.LIB(UNZIP) : \'_UNZIPFILE\' : unresolved external\nBLINKER : 1115 : FIVEC.LIB(UNZIP) : \'_ISZIP\' : unresolved external\nBLINKER : 1115 : FIVEC.LIB(UNZIP) : \'CLOSEZIPFILE\' : unresolved external\n\nEsto lo estoy haciendo con la versión fw2.1, también tengo la fw2.4\n\nDe antemano y como siempre muchas gracias\nAtte.\nCarlos Velázquez, RBT\nDeo Juvante!\n\nP.D. Saludos a todos mis entrañables amigos del FORO!','',0,'AIA=','2o4kcpki',1,0,'',16,0,0),(35608,7748,6,935,0,'200.62.78.57',1185991477,1,0,1,1,1,1,'','Todos lo sentimos','Hola foro,\n\nAunque no tuve la dicha de conocer personalmente a JJ lo hice indirectamente atraves de sus valiosos aportes, simepre estaras en los corazones de todos nosotros, el recuerdo perdura mas alla de la desaparicion fisica,\n\nRamon Paredes\nManagua, Nicaragua','',0,'AIA=','2t4szjql',1,0,'',935,0,0),(35609,7749,1,819,0,'67.187.239.16',1185991783,1,0,1,1,1,0,'','Is there a way in FW for Clipper 5.2 to dial a modem','Hi all,\n\nIs there a way in Fivewin to send data using a modem.\n\nTIA,\n\njose','',0,'AIA=','3bbt3d15',1,0,'',819,0,0),(35610,7680,3,299,0,'24.233.172.101',1185995562,1,0,1,0,1,0,'','','x;\n\nCouldn\'t find the clear text dictionary for download.  If you have a link or can send the dictionary over, I\'d appreciate it.\n\nreinaldo &lt;dot&gt; crespo &lt;at&gt; gmail &lt;dot&gt; com\n\n\nThank you.\n\n\nReinaldo.','',0,'AIA=','28sqzugj',1,0,'',299,0,0),(35611,7750,3,34,0,'68.5.217.82',1185997081,1,0,1,1,1,1,'','TSBrowse with one dimensional array','I have been working with TSBrowse ... and its very nice.  However, I discovered a problem.  If I browse a multi-dimensional array, no problem.  However, when I browse a single dimensional array, it only displays the first letter of the column.  Here is a sample that reproduces the problem.  Is anyone working with TSBrowse, and do you have any thoughts on this ?\n\nTim\n\n// Test TSBrowse with a single array element\n#INCLUDE \"fivewin.CH\"\n#INCLUDE \"tsbrowse.CH\"\n\nPROCEDURE main\n\n   LOCAL aItm := { }\n   AADD( aItm, \"This is text to test on line 1\")\n   AADD( aItm, \"This is text to test on line 2\")\n   AADD( aItm, \"This is text to test on line 3\")\n   AADD( aItm, \"This is text to test on line 4\")\n   AADD( aItm, \"This is text to test on line 5\")\n   AADD( aItm, \"This is text to test on line 6\")\n   AADD( aItm, \"This is text to test on line 7\")\n   AADD( aItm, \"This is text to test on line 8\")\n   AADD( aItm, \"This is text to test on line 9\")\n   AADD( aItm, \"This is text to test on line 10\")\n   AADD( aItm, \"This is text to test on line 11\")\n\n   DEFINE DIALOG oDlg FROM 100,50 TO 400, 500 PIXEL Title \"TSBrowse One Directional Array\"\n\n   @ 0,0 BROWSE oLbx  SIZE 600, 150 PIXEL OF oDlg\n\n   oLbx:setArray( aItm )\n\n   ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 1 HEADER \"Details\" SIZE 400 ALIGN 0,1\n\n   oLbx:nLineStyle:=0\n   oLbx:nHeightCell += 4\n   oLbx:nHeightHead += 6\n   oLbx:lNoHScroll := .T.\n\n\n   // Activate the dialog screen\n   ACTIVATE DIALOG oDlg\n\nRETURN NIL\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'AIA=','2li26v21',1,0,'',34,0,0),(35612,6965,2,16,0,'189.164.41.147',1185997166,1,0,1,1,1,1,'','Modifica la Propiedada lPageTotal','Hace más de 2 años que no programo nada nuevo en FW, pero ahora estoy haciendo algo nuevamente con FW y pues aquí ando como en antaño ayudando en lo que se puede.\n\nEs muy sencillo quitar los totales de cada página, el Objeto Report tiene una propiedad llamada lPageTotal  ( true, false )\n\noReport:lPageTotal = .t.   // Pone Totales\n\noReport:lPageTotal = .f.   // NO Pone Totales\n\nRevisa en Sources/Classes las propiedades y metodos de cada objeto, te darás cuenta todo lo que puedes hacer con FiveWin!!\n\nSalu2\nAtte\nRBT','',0,'AIA=','rrkyk9v5',1,0,'',16,0,0),(35613,7680,3,34,0,'68.5.217.82',1185997244,1,0,1,1,1,1,'','Spell Checking memo','I use a 3rd party spell checker that is included in the application, and it works fine with memo fields.  It is used by a wide variety of applications and is easy to implement ...\n\nThe license is royalty free for distribution.\n\nCheck it out at:  <!-- w --><a class=\"postlink\" href=\"http://www.wintertree-software.com\">www.wintertree-software.com</a><!-- w -->','',0,'AIA=','2h85zmuw',1,0,'',34,0,0),(35614,7742,3,1126,0,'202.171.71.250',1185997664,1,0,1,1,1,0,'','','Thank you Antonio','',0,'AIA=','p28neloe',1,0,'',1126,0,0),(35615,151,6,138,0,'189.141.71.139',1185999602,1,0,1,1,1,1,'','','Ok, para todos ustedes, este es el secreto:\n\nComo todo en FiveWin, son \"efectos especiales\", y en realidad, nada es lo que parece.\n\n1) Necesitamos el Browse de Hernan, cualquier versión, (el truco funciona tambén con xBrowse) para mayor información sobre los browses de FW, les recomiendo que lean mi articulo \"Browse VS Browse\"\n\n2) Es raro que el titulo de una cabecera cambie, asi que en realidad, lo que están viendo mis queridos amigos, es un bitmap que incluye el texto y la imagen, en realidad son 4 bitmap, 2 incluyen la imagen \"habilitada\" y 2 la imagen \"deshabilitada\":\n\n[img:bepsp7uu]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/headers&#46;jpg[/img:bepsp7uu]\n\n\nEl color del fondo es lo de menos, recuerden que FW utiliza el byte 1,1 para definir el color de la transparencia\n\n3) Antes de definir el browse, cargamos los bitmaps en la memoria:\n\n[code:bepsp7uu]hBmp1 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER1&quot;&#41;&#41;\nhBmp2 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER2&quot;&#41;&#41;\nhBmp3 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER3&quot;&#41;&#41;\nhBmp4 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER4&quot;&#41;&#41;\n[/code:bepsp7uu]\n\n4) Definimos el browse como se hace normalmente:\n\n[code:bepsp7uu] @ 0,205 LISTBOX oBrw FIELDS &#46;&#46;&#46;&#46;[/code:bepsp7uu]\n\n5) Definimos sus headers:\n\n[code:bepsp7uu] oBrw&#58;aHeaders &#58;= &#123;&quot; &quot;,hBmp1,hBmp3,&quot;Tipo&quot;,&quot;SubTipo&quot;,&quot;Naturaleza&quot;&#125;[/code:bepsp7uu]\n \n6) y luego para cambiar dinamicamente los headers con su respectivo bitmap en tiempo de ejecucion:\n\n[code:bepsp7uu]oBrw&#58;aActions &#58;=&#123;&#123;|| NIL&#125;,&#123;|x| CamHeader&#40;x,1&#41;&#125;,&#123;|x| CamHeader&#40;x,2&#41;&#125;&#125;[/code:bepsp7uu]\n\n7) la función CamHeader(&lt;oBrw&gt;,&lt;nOrden&gt;):\n[code:bepsp7uu]\nFUNCTION CamHeader&#40;oBrw,nIndex&#41;\n   IF nIndex == 1\n      &#40;oBrw&#58;cAlias&#41;-&gt;&#40;OrdSetFocus&#40;\'numcuenta\'&#41;&#41;\n//aqui viene la magia, volvemos apintar el header completo, cambiando los bmps del header\n      oBrw&#58;aHeaders &#58;= &#123;&quot; &quot;,hBmp1,hBmp3,\'Tipo\',\'SubTipo\',\'Naturaleza\'&#125;\n   ELSE\n      &#40;oBrw&#58;cAlias&#41;-&gt;&#40;OrdSetFocus&#40;\'nomcta\'&#41;&#41;\n      oBrw&#58;aHeaders &#58;= &#123;&quot; &quot;,hBmp2,hBmp4,\'Tipo\',\'SubTipo\',\'Naturaleza\'&#125;\n   ENDIF\n   oBrw&#58;Refresh&#40;&#41;\nRETURN &#40;&#46;T&#46;&#41;\n\n[/code:bepsp7uu]\n\nY eso es todo.','',0,'CIA=','bepsp7uu',1,1186008875,'',138,1,0),(35616,7743,3,138,0,'189.141.71.139',1185999760,1,0,1,1,1,1,'','','You will need a Script tool such xBScript or other script interpreter there are a couple around.','',0,'CIA=','18tzmfbi',1,0,'',138,0,0),(35617,151,6,439,0,'200.125.33.12',1185999827,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:lyuizp3u]Ok, para todos ustedes, este es el secreto:\n\nComo todo en FiveWin, son \"efectos especiales\", y en realidad, nada es lo que parece.\n\n1) Necesitamos el Browse de Hernan, cualquier versión, (el truco funciona tambén con xBrowse) para mayor información sobre los browses de FW, les recomiendo que lean mi articulo \"Browse VS Browse\" en <!-- w --><a class=\"postlink\" href=\"http://www.google.blogspot.com\">www.google.blogspot.com</a><!-- w -->.\n\n2) Es raro que el titulo de una cabecera cambie, asi que en realidad, lo que están viendo mis queridos amigos, es un bitmap que incluye el texto y la imagen, en realidad son 4 bitmap, 2 incluyen la imagen \"habilitada\" y 2 la imagen \"deshabilitada\":\n\n[img:lyuizp3u]http&#58;//www&#46;google&#46;d2g&#46;com/objeto/headers&#46;jpg[/img:lyuizp3u]\n\n\nEl color del fondo es lo de menos, recuerden que FW utiliza el byte 1,1 para definir el color de la transparencia\n\n3) Antes de definir el browse, cargamos los bitmaps en la memoria:\n\n[code:lyuizp3u]hBmp1 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER1&quot;&#41;&#41;\nhBmp2 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER2&quot;&#41;&#41;\nhBmp3 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER3&quot;&#41;&#41;\nhBmp4 &#58;= LoadBitmap&#40;GETRESOURCES&#40;&#41;,&quot;HEADER4&quot;&#41;&#41;\n[/code:lyuizp3u]\n\n4) Definimos el browse como se hace normalmente:\n\n[code:lyuizp3u] @ 0,205 LISTBOX oBrw FIELDS &#46;&#46;&#46;&#46;[/code:lyuizp3u]\n\n5) Definimos sus headers:\n\n[code:lyuizp3u] oBrw&#58;aHeaders &#58;= &#123;&quot; &quot;,hBmp1,hBmp3,&quot;Tipo&quot;,&quot;SubTipo&quot;,&quot;Naturaleza&quot;&#125;[/code:lyuizp3u]\n \n6) y luego para cambiar dinamicamente los headers con su respectivo bitmap en tiempo de ejecucion:\n\n[code:lyuizp3u]oBrw&#58;aActions &#58;=&#123;&#123;|| NIL&#125;,&#123;|x| CamHeader&#40;x,1&#41;&#125;,&#123;|x| CamHeader&#40;x,2&#41;&#125;&#125;[/code:lyuizp3u]\n\n7) la función CamHeader(&lt;oBrw&gt;,&lt;nOrden&gt;):\n[code:lyuizp3u]\nFUNCTION CamHeader&#40;oBrw,nIndex&#41;\n   IF nIndex == 1\n      &#40;oBrw&#58;cAlias&#41;-&gt;&#40;OrdSetFocus&#40;\'numcuenta\'&#41;&#41;\n//aqui viene la magia, volvemos apintar el header completo, cambiando los bmps del header\n      oBrw&#58;aHeaders &#58;= &#123;&quot; &quot;,hBmp1,hBmp3,\'Tipo\',\'SubTipo\',\'Naturaleza\'&#125;\n   ELSE\n      &#40;oBrw&#58;cAlias&#41;-&gt;&#40;OrdSetFocus&#40;\'nomcta\'&#41;&#41;\n      oBrw&#58;aHeaders &#58;= &#123;&quot; &quot;,hBmp2,hBmp4,\'Tipo\',\'SubTipo\',\'Naturaleza\'&#125;\n   ENDIF\n   oBrw&#58;Refresh&#40;&#41;\nRETURN &#40;&#46;T&#46;&#41;\n\n[/code:lyuizp3u]\n\nY eso es todo.[/quote:lyuizp3u]\n\nMuchas gracias René por compartir tus ideas y técnicas con nosotros, en particular para mí, esto es una obra de arte y es bueno saber que se puede contar con ti generosidad para compartira con los miembros de esta comunidad.','',0,'iIA=','lyuizp3u',1,0,'',439,0,0),(35618,7743,3,2,0,'87.218.146.236',1186000309,1,0,1,1,1,1,'','','Patrick,\n\nHarbour supports it natively. Here you have a working sample:\n[code:1neajlst]\n/*\n * $Id&#58; hbrun&#46;prg 7135 2007-04-12 11&#58;57&#58;04Z druzus $\n */\n\n/*\n * Harbour Project source code&#58;\n * Standalone Harbour Portable Object file runner\n *\n * Copyright 1999 Ryszard Glab &lt;rglab@imid&#46;med&#46;pl&gt;\n * www - http&#58;//www&#46;harbour-project&#46;org\n *\n * Copyright 2007 Przemyslaw Czerpak &lt;druzus / at / priv&#46;onet&#46;pl&gt;\n *   added support for dynamic compilation and execution of &#46;prg files\n *\n * This program is free software; you can redistribute it and/or modify\n * it under the terms of the GNU General Public License as published by\n * the Free Software Foundation; either version 2, or &#40;at your option&#41;\n * any later version&#46;\n *\n * This program is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE&#46;  See the\n * GNU General Public License for more details&#46;\n *\n * You should have received a copy of the GNU General Public License\n * along with this software; see the file COPYING&#46;  If not, write to\n * the Free Software Foundation, Inc&#46;, 59 Temple Place, Suite 330,\n * Boston, MA 02111-1307 USA &#40;or visit the web site http&#58;//www&#46;gnu&#46;org/&#41;&#46;\n *\n * As a special exception, the Harbour Project gives permission for\n * additional uses of the text contained in its release of Harbour&#46;\n *\n * The exception is that, if you link the Harbour libraries with other\n * files to produce an executable, this does not by itself cause the\n * resulting executable to be covered by the GNU General Public License&#46;\n * Your use of that executable is in no way restricted on account of\n * linking the Harbour library code into it&#46;\n *\n * This exception does not however invalidate any other reasons why\n * the executable file might be covered by the GNU General Public License&#46;\n *\n * This exception applies only to the code released by the Harbour\n * Project under the name Harbour&#46;  If you copy code from other\n * Harbour Project or Free Software Foundation releases into a copy of\n * Harbour, as the General Public License permits, the exception does\n * not apply to the code that you add in this way&#46;  To avoid misleading\n * anyone as to the status of such modified files, you must delete\n * this exception notice from them&#46;\n *\n * If you write modifications of your own for Harbour, it is your choice\n * whether to permit this exception to apply to your modifications&#46;\n * If you do not wish that, delete this exception notice&#46;\n *\n */\n\n/*\n * Please remember that in *nixes if you copy compiled version\n * of this program to /usr/bin directory then you can add to your\n * &#46;prg files as first line&#58;\n *    #!/usr/bin/hbrun\n * and then after setting executable attribute you can directly execute\n * your &#46;prg files\n * If you are using Linux then you can also chose default gt driver by\n * adding to above line&#58; //gt&lt;name&gt;\n * F&#46;e&#46;\n *    #!/usr/bin/hbrun //gtstd\n */\n\n#include &quot;hbextern&#46;ch&quot;\n\n/* NOTE&#58; Undocumented CA-Clipper _APPMAIN is used instead of Main to avoid\n         collision with user function in HRB file with that name&#46; &#91;ckedem&#93;\n*/\nFUNCTION _APPMAIN&#40; cHRBFile, &#46;&#46;&#46; &#41;\n   LOCAL xRetVal, cPath, cName, cExt, cDrive, aIncDir\n\n   IF Empty&#40; cHRBFile &#41;\n      OutStd&#40; &quot;Harbour Runner&quot; + HB_OSNewLine&#40;&#41; +;\n              &quot;Copyright 1999-2006, http&#58;//www&#46;harbour-project&#46;org&quot; + HB_OSNewLine&#40;&#41; +;\n              HB_OSNewLine&#40;&#41; +;\n              &quot;Syntax&#58;  hbrun &lt;hrbfile&#91;&#46;hrb|&#46;prg&#93;&gt; &#91;parameters&#93;&quot; + HB_OSNewLine&#40;&#41; + ;\n              HB_OSNewLine&#40;&#41; +;\n              &quot;Note&#58;  Linked with &quot; + Version&#40;&#41; + HB_OSNewLine&#40;&#41; &#41;\n      ERRORLEVEL&#40; 1 &#41;\n   ELSE\n      HB_FNAMESPLIT&#40; cHRBFile, @cPath, @cName, @cExt, @cDrive &#41;\n\n      IF LOWER&#40; cExt &#41; == &quot;&#46;prg&quot;\n         aIncDir &#58;= &#123;&#125;\n#ifdef _DEFAULT_INC_DIR\n         AADD&#40; aIncDir, &quot;-I&quot; + _DEFAULT_INC_DIR &#41;\n#endif\n         cPath &#58;= getenv&#40; &quot;HB_INC_INSTALL&quot; &#41;\n         IF !EMPTY&#40; cPath &#41;\n            AADD&#40; aIncDir, &quot;-I&quot; + cPath &#41;\n         ENDIF\n#ifdef __PLATFORM__UNIX\n         AADD&#40; aIncDir, &quot;-I/usr/include/harbour&quot; &#41;\n         AADD&#40; aIncDir, &quot;-I/usr/local/include/harbour&quot; &#41;\n#endif\n         cHRBFile &#58;= HB_COMPILEBUF&#40; HB_ARGV&#40; 0 &#41;, &quot;-n&quot;, &quot;-w&quot;, &quot;-es2&quot;, &quot;-q0&quot;, ;\n                                    aIncDir, cHRBFile &#41;\n         IF cHRBFile == NIL\n            ERRORLEVEL&#40; 1 &#41;\n         ELSE\n            xRetVal &#58;= __hrbRun&#40; cHRBFile, &#46;&#46;&#46; &#41;\n         ENDIF\n      ELSE\n         xRetVal &#58;= __hrbRun&#40; cHRBFile, &#46;&#46;&#46; &#41;\n      ENDIF\n   ENDIF\n\n   RETURN xRetVal\n[/code:1neajlst]','',0,'AIA=','1neajlst',1,0,'',2,0,0),(35619,7745,6,2,0,'87.218.146.236',1186000559,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/ActiveX_Data_Objects\">http://es.wikipedia.org/wiki/ActiveX_Data_Objects</a><!-- m -->','',0,'AIA=','1c2b6ezg',1,0,'',2,0,0),(35620,7751,6,793,0,'201.225.19.210',1186002080,1,0,1,1,1,0,'','Como obtengo adorrd','Necesito obtener ADORRD \nPor favor amigos del foro  donde puedo obtenerlo y cual es el costo \n\n\n\nerick almanza \n<!-- e --><a href=\"mailto:dicoms@gmail.com\">dicoms@gmail.com</a><!-- e -->','',0,'AIA=','khm6i6n0',1,0,'',793,0,0),(35621,151,6,73,0,'200.23.18.132',1186003095,1,0,1,1,1,0,'','','Gracias rene, mas que bien, como simpre la solucion.\nsalu2\npaco','',0,'AIA=','3osto0vz',1,0,'',73,0,0),(35622,7749,1,2,0,'87.218.146.236',1186003729,1,0,1,1,1,1,'','','Jose,\n\nPlease review samples\\phone.prg','',0,'AIA=','2hcv62iv',1,0,'',2,0,0),(35623,7751,6,2,0,'87.218.146.236',1186003800,1,0,1,1,1,1,'','','Erick,\n\nADORDD es gratuito y puedes descargarlo desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.viaopen.com/files/adordd.zip\">www.viaopen.com/files/adordd.zip</a><!-- w -->','',0,'AIA=','amen58je',1,0,'',2,0,0),(35624,7738,3,2,0,'87.218.146.236',1186004184,1,0,1,1,1,1,'','','have you tried ? :\n\noSayTxt:lDesign := .T.','',0,'AIA=','2mmmq8g3',1,0,'',2,0,0),(35625,7750,3,303,0,'72.199.41.171',1186009689,1,0,1,1,1,0,'','','Tim,\n\nAfter looking at the TSBrowse code and the syntax of defining a column for an array, I don\'t think TSBrowse was designed to handle a single dimension array.\n\nNote that you can define your array like this:\n\nAADD( aItm, {\"This is text to test on line 1\"})\n\nand TSBrowse works correctly. It is expecting each element of the array to contain an array.\n\nJames','',0,'AIA=','1waybx9b',1,0,'',303,0,0),(35626,7752,11,2,0,'87.218.146.236',1186010253,1,0,1,1,1,1,'','Running FiveLinux applications from gnome-commander','go to /home/&lt;user&gt;/.local/share/applications folder and create this\nfile:\n\n#cat &gt; gnome-commander.desktop\n[Desktop Entry]\nEncoding=UTF-8\nName=application\nMimeType=application/x-executable;\nExec=%f\nType=Application\nTerminal=false\nNoDisplay=true\n\nthen gedit /home/&lt;user&gt;/.local/share/applications/mimeinfo.cache\nand add this line:\n\napplication/x-executable=gnome-commander.desktop\n\nand thats all! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1uzhmxy8',1,0,'',2,0,0),(35627,7750,3,34,0,'68.5.217.82',1186010654,1,0,1,1,1,1,'','That works ... but ...','That works and its an easy fix.\n\nHere is one other interesting observation.  When browsing a file, the highlight only extends for the number of columns on the browse ... so if the right side has an empty column ( space ), the browse bar does not extend into it.  In all other browses the highlight goes into \"non-programmed\" space.\n\nThoughts ?\n\nTim','',0,'','ucrrrws7',1,0,'',34,0,0),(35628,7750,3,303,0,'72.199.41.171',1186010894,1,0,1,1,1,0,'','','Tim,\n\n&gt;so if the right side has an empty column ( space ), the browse bar does not extend into it.\n\nI noticed that too. I just either widen the colum to fit the browse, or add a dummy column to fill the extra space.\n\nJames','',0,'','11x3eamn',1,0,'',303,0,0),(35629,7753,3,689,0,'201.86.64.50',1186011196,1,0,1,1,1,0,'','This is possible?','Change bitmap when mouse cursor is over button in class ttoobar ?\n\nRegards\n\nEroni','',0,'','t2qboohz',1,0,'',689,0,0),(35630,7750,3,34,0,'68.5.217.82',1186012033,1,0,1,1,1,1,'','Highlight','I\'m doing the same thing, but it is a \"fixable\" component I\'m sure.  The color bars, BTW, go all the way across.','',0,'','37b2b3d1',1,0,'',34,0,0),(35631,7737,6,854,0,'200.95.238.251',1186015447,1,0,1,1,1,0,'','Marquezina','Pablo, mil gracias, funciona muy bien.\n\nTe lo agradesco.','',0,'','3idvq8si',1,0,'',854,0,0),(35632,7754,6,760,0,'200.37.76.89',1186016613,1,0,1,1,1,0,'','ADORDD ???','Hola a todos del foro.\n\nGracias Master Antonio por el enlace, algo entendi...\n\nPero lo que realmente quise preguntar fue ADORDD???\n\nSi no es molestia. gracias\n\nSalu2 <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nFrancis','',0,'','13qhyvrc',1,0,'',760,0,0),(35633,7737,6,53,0,'189.139.94.55',1186016843,1,0,1,1,1,1,'','','Pablo:\n\nEs posible poner imágenes en la marquesina ?, algun ejemplo ?\n\nSaludos','',0,'','1bcc29pg',1,0,'',53,0,0),(35634,7741,3,1064,0,'61.70.211.182',1186017377,1,0,1,1,1,0,'','','hi Rene :\n\nThank you for help Again.\n\nIn this sample. there is no field \"salsman\" define in sal1.dbf .\n\n[code:2s4tpgg3]\ncCOND&#58;=&quot;SAL-&gt;SALSMAN=&quot;+&quot;\'&quot;+cSALSMAN+&quot;\'&quot; \nedit to &#58;\ncCOND&#58;=&quot;SALSMAN=&quot;+&quot;\'&quot;+cSALSMAN+&quot;\'&quot; \n// Can not work  , SAL1-&gt;SALSMAN==&gt;no such field \n[/code:2s4tpgg3]\n\nWhat I edit :\n1)add field \"salsman\"  to sal1.dbf\n2)Replace Sal-&gt;Salsman to Sal1-&gt;Salsman for scope condition (by Set relation to)\n3)now cCOND:=\"SALSMAN=\"+\"\'\"+cSALSMAN+\"\'\" or cCOND:=\"SAl1-&gt;SALSMAN=\"+\"\'\"+cSALSMAN+\"\'\"  Can be work\n\n[code:2s4tpgg3]\nSOURCE CODE&#58;\n\nLOCAL cSALSMAN&#58;=&quot;TIM&quot;,cCOND\n\n\nUSE SAL INDEX SAL_NO NEW SHARE // INDEX ON SNO\ncCOND&#58;=&quot;SAL-&gt;SALSMAN=&quot;+&quot;\'&quot;+cSALSMAN+&quot;\'&quot;\n\nSET FILTER TO &amp;cCOND\n\nUSE SAL1 INDEX SAL1_DT NEW SHARE\n\n*ADD FIELD SALSMAN FIRST\n\nSET RELATION TO SAL1-&gt;SNO INTO SAL\nSET SCOPE TO dDT1,dDT2\nGO TO\nDO WHILE ! EOF&#40;&#41;\n\n   SAL1-&gt;&#40;RLOCK&#40;&#41;&#41;\n   SAL1-&gt;SLASMAN&#58;=SAL-&gt;SALSMAN\n   SAL1-&gt;&#40;DBUNLOCK&#40;&#41;&#41;\n   SKIP\nENDDO \nSET RELATION TO \n\nSAL-&gt;&#40;DBCLOSEAREA&#40;&#41;&#41;\n\nSELE SAL1\ncCOND&#58;=&quot;SAL1-&gt;SALSMAN=&quot;+&quot;\'&quot;+cSALSMAN+&quot;\'&quot;\nSET FILTER TO &amp;cCOND\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\n[/code:2s4tpgg3]\n\nAny best solution not to edit struct sal1.dbf for both Rdd \"dbfcdx\" and \"ADS\" ?\n\nBest Regards\n\nkokoo','',0,'AIA=','2s4tpgg3',1,0,'',1064,0,0),(35635,7755,6,854,0,'200.95.238.251',1186018658,1,0,1,1,1,0,'','Sobre el Acho de Tooltip','Saludos al Foro.\n\nNuevamente molestandolos, un dia lei algo sobre como hacer mas ancho el tooltip, pero no lo encuentro, alguien me podria echar una mano.\n\nGracias.','',0,'AIA=','ksn0pr1j',1,0,'',854,0,0),(35636,7756,6,854,0,'200.95.238.251',1186024264,1,0,1,1,1,0,'','Como saber las coordenadas','Nuevamente molestandolos, alguien sabe como saber las coordenadas de un get pero el get esta dentro de un Folder\n\nYa probe con Objeto:nTop , Objeto:nLeft  y siempre me sale lo mismo\n\nGracias.','',0,'AIA=','1yfooo53',1,0,'',854,0,0),(35638,7744,6,138,0,'189.141.71.139',1186031658,1,0,1,1,1,1,'','','Por partes:\n\nTienes una explicacion completa aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com/ads.htm\">http://www.google.com/ads.htm</a><!-- m -->\n\nBasicamente ADS es una herramienta Cliente / Servidor, que le da a tus archivos DBFs la capacidad de manejarse como un sistema gestor de bases de datos relacional, como Oracle, Sybase, MySQL, etc soportando desde 2 usuarios hasta 1000 usuarios concurrentes, con tablas DBF de tamaño gigante (tengo un cliente con 70 millones de registros en un DBF).\n\nADS les da a tus DBFs todo el potencial que puedes encontrar en una base de datos \"grande\", por ejemplo Diccionarios de datos, acceso via SQL, acceso via Internet, transacciones, integridad referencial, procesos almacenados y triggers.\n\nLa principal ventaja que veo yo con ADS es la velocidad de implementación, ya que solo tienes que cambiar algunas cosas menores de tu programacion, nada de la metodologia que utilizas para accesar a tus datos, USE, APPEND, REPLACE, DELETE etc, funcionan exactamente a como lo hacen en Clipper / xHarbour, ademas puedes mezclar sentencias SQL con comandos XBase perfectamente.\n\nAhora las diferencias entre el servidor local y remoto son muchas:\n\n1) El servidor local es gratis, el servidor remoto no\n2) El servidor local no tiene cliente servidor, el remoto si\n3) El local no tiene acceso por internet, el remoto si\n4) El local no soporta transacciones, el remoto si\n5) El local soporta un maximo de 5 usuarios, el remoto hasta 1000\n6) El local no se puede usar con aplicaciones de 16 bits, el remoto si.\n\nEl servidor local es un \"mini\" ads metido en un DLL (ADSLOC32.DLL), fue diseñado no para usarse en aplicaciones de la vida real, solo con fines de prueba, y sin embargo en la vida real se comporta estupendamente hasta para 5 usuarios, es de libre distribucion y muchas empresas lo incluyen en su productos. El objeto del servidor local es para que los desarrolladores no tuvieran que estar \"pegados\" a un servidor remoto para hacer las pruebas de los programas y que se pudieran llevar este \"mini servidor\" en sus laptops para trabajar en casa. Este server soporta TODAS las caracteristicas de ADS, excepto: Tecnologia Cliente / Servidor, transacciones y esquema de ocultamiento de datos, fuera de estas limitaciones, puedes usar cualquier característica de ADS con el servidor local.\n\nPor nuestra experiencia te puedo decir que una aplicación que tengas trabajando actualmente con Clipper por ejemplo, en MS-DOS, queda migrada totalmente a ADS en menos de 2 semanas y que una migración \"rápida\" puede ser hecha en 2 días.\n\nADS no necesariamente necesita una interfaz gráfica para trabajar, tengo un montón de clientes que lo utilizan con xHarbour en modo consola y funciona como una bala, simplemente han tomado sus aplicaciones Clipper, recompilado con xHarbour y luego han implementado ADS y no necesitan nada mas, siguen funcionando.\n\nSi tu quisiera implementar pro ejemplo MySQL tendrias que reprogramar todo el acceso a datos de tu aplicación, sin importar que utilices ODBC o ADO, tienes que replantearte TODO el esquema de programación de los datos,  eso sin tomar en cuenta que un diseño de base de datos en SQL requiere bastantes mas cosas, de manera general migrar tus programas a otra plataforma de datos no te lleva menos de 6 a 8 meses, con ADS tienes las mismas prestaciones que cualquier servidor de base de datos, pero te lo montas en un par de semanitas, sacrificas precio contra velocidad de implementación, My SQL es muy barato, pero te va a llevar un buen tiempo moverte a el, ADS es caro, pero máximo en 1 mes tienes todo movido, y con las mismas características de cualquier base de datos relacional.\n\nSu principal desventaja: PRECIO, porque varia dependiendo del número de usuarios y del distribuidor (hemos detectado que los distribuidores de SudAmerica dan mucho mas caro el producto que se si compra en México o en Estados Unidos por ejemplo) y aunque a algunos programadores les parece excesivo pagar (en promedio)  5,000 dolares por 50 usuarios, en general te puedo comentar que una empresa que tiene 50 computadoras instaladas, tiene una infraestructura informática que cuesta por lo menos 10 veces mas y por su puesto tiene la capacidad de pagar  5,000 dolares en un ADS, que se quejen es otra cosa.\n\nLo que si te puedo decir es que al principio todo el mundo se queja del precio, lloran, patalean, pero terminan pagando, y luego .... cero quejas... cualquier usuario de ADS de este foro te puede decir que ADS con DBF o ADTs ( su formato nativo) es \"Mano de Santo\", adiós corrupción de indices, adiós falla de los DBFs, adiós lentitud en el acceso a datos, a este nivel te puedo decir que para mas de 10 usuarios concurrentes, en una empresa le sale mas caro no tener ADS que tenerlo.\n\nOtra cosa que tiene ADS es su estupendo esquema de seguridad que puede funcionar de 3 formas distintas: \n\nQuitando privilegios de acceso a directorios a los usuarios, de tal forma que el usuario de un programa hecho con ADS no puede ver desde su explorador los archivos DBFs, sin embargo cuando ejecuta un programa cliente ADS, los archivos se abren y se actualizan perfectamente, solo tienes que compartir la carpeta PERO NO DARLE ACCESO MAS QUE AL USUARIO \"SYSTEM\" y listo, ningún usuario desde sus terminales tiene acceso a los DBFs.\n\nLa segunda \"linea de defensa\" es el encriptamiento de los datos ya sea sobre DBFs o sobre ADTs, ADS utiliza un algoritmo de \"doble llave\" y de 128 bits, las llaves son individuales por DBF, de tal manera que puedes tantos passwords como DBFs tengas en un sistema, ademas ADS encripta TODOS los tipos de campos, cadenas de caracteres, numéricos, fechas, lógicos, y memo, por cierto, la cabecera del archivo también se encripta para que no se pueda abrir por ningún editor externo. El proceso de encriptacion/desencriptacion lo hace el servidor, local o remoto, de tal forma que los clientes siempre ven los datos desencriptados pero en el servidor las tablas guardan los datos encriptados.\n\nLa tercer linea de defensa es cambiar de formato de tablas, dejar de lado los DBFs y utilizar los archivos nativos de ADS, las tablas ADT, con indices ADI y con memos ADM, ventaja: no cualquier editor te abre ADTs, necesitas usar el editor que te proporciona ADS. Las ADTs se manejan igual que con Clipper, es decir, los puedes usar con USE, APPEND y REPLACE y soportan los mismos tipos de campos y ademas agregan nuevos tipos, como por ejemplo long, double,  time, date-time y autoincremental, ademas ocupan menos espacio que sus equivalentes en DBF y son mucho mas rápidas en el acceso a los datos.\n\nY podria seguir y seguir hablando de ADS, pero mejor te voy a dejar algunos testimonios de experiencias que hemos tenido con ADS, todas están en mi blog','',0,'EA==','38i8rvae',1,0,'',138,0,0),(35639,7737,6,138,0,'189.141.71.139',1186031880,1,0,1,1,1,1,'','','hay un producto de C 5 que lo hace, el banner','',0,'EA==','239umdgl',1,0,'',138,0,0),(35640,7740,6,102,0,'87.217.67.138',1186032878,1,0,1,1,1,1,'','','Esteban, esto que dices ya se que funciona, pero es la clase TSBUTTON y yo quiero usar la clase TBUTTON.\n\nDe todas formas muchas gracias','',0,'EA==','3rvcavxd',1,0,'',102,0,0),(35641,7757,3,805,0,'88.36.233.74',1186035562,1,0,1,1,1,0,'','ADS wink link option','Hi to all.\nI\'m using ADS Server and I have connected to a database another one with a link and the name of this link is \"Second\".\nUsing a table inside this Second link is possible with the command :\nSelect * from Second.Customers where city = \'Rome\'\nI\'m trying to open the same table from the Use command and I have no success with it. The command Use(\"Second.Customers\") is not working.\nIs there some possibility to open a second table in this way ?\nThanks a lot.','',0,'EA==','2evvpohd',1,0,'',805,0,0),(35642,7682,6,316,0,'87.218.186.75',1186036803,1,0,1,1,1,0,'','','[quote=&quot;pymsoft&quot;:1ympe83j]Carlos,\n\nGracias por lo que comentas. Hoy mismo voy a hablar con quien se encarga de nuestros servidores linux para hacer las pruebas del caso. Justamente, el algo me había comentado del OL, y era una de las pruebas que haríamos esta semana, lo que me pregunto tambien, es que tenemos que desactivarlo en cada estacion con XP?, pensé que sería suficiente hacerlo en el servidor.\nLe comentaré tambien el tema del OS Level.\n\nYa les comentaré los resultados.\n\nSaludos[/quote:1ympe83j]\n\nSí, es necesario en los XPs. De hecho cuando lo hice fue porque tenía un servidor Debian con Samba (no me acuerdo que versión) y luego de mucho trastear caimos en el sitio de Microsoft y habia un par de reportes donde además de contarte este tema de las elecciones de Master Browser  te dice que lo deshabilitaras directamente en el cliente. \n\nInicialmente prueba esto:\nHKEY_LOCAL_MACHINE/System/CurrentControlSet/Services/LanmanServer/Parameters\n          EnableOpLocks = 0 (hex)\n          EnableOpLockForceClose = 1 (hex)\n          CachedOpenLimit = 0 (hex)\nen 2 o tres máquinas, y haces la prueba. Esto no requiere que alteres el samba, por lo que podrías probarlo sin ayuda del linuxero. De todas maneras cambiar el OL en samba es una tontería. Pídele que instale el SWAT, asi puedes configurar el servidor via http.\nEn el caso de estaciones Win98 no me acuedo mucho, pero había algo de write-back cache que habia que deshabilitar, pero de momento podrias ir probando con eso.\n\nLa página de MS:\n\n[url:1ympe83j]http&#58;//support&#46;microsoft&#46;com/?scid=kb%3Bes%3B296264&amp;x=12&amp;y=10[/url:1ympe83j]\n\nalgo más, bien explicado. Aunque hace referencia a sistemas \"operativos inferiores\" (!) están bien explicadas las cuestiones de SMB\n[url:1ympe83j]http&#58;//support&#46;microsoft&#46;com/kb/818396/es[/url:1ympe83j]\n\naunque los otros sistemas operativos sean \"inferiores\", despues MS reconoce que \"Microsoft ha confirmado que se trata de un problema de los productos de Microsoft enumerados en la sección \"La información de este artículo se refiere a:\".\" ¡Flipa!\n\n\nUn saludo,\n\nCarlos.','',0,'kA==','1ympe83j',1,0,'',316,0,0),(35643,7739,6,316,0,'87.218.186.75',1186038356,1,0,1,1,1,0,'','','[quote=&quot;Armando&quot;:1nkv4bre]\nVentaja ?, evitas que dañen los recursos aunque tu .EXE se hace más grande.\n[/quote:1nkv4bre]\n\nArmando, creo que esta apreciación no es exacta. El mismo programa qe puede abrir una dll para romper los recursos puede abrir un exe y hacer exactamente lo mismo.\n\nSoy de la opinión de que si la cantidad de recursos no es muy grande, que vayan al exe, pero me ha pasado que tengo dlls de 20Mb porque contienen muchas imágenes, entonces en ese caso usé dlls.\n\nUna ventaja de las dlls es que puedes crear 2 juegos de recursos con tamaños diferentes de todos los diálogos, porque tengo clientes que usan pantallas de 20\" y otros aún de 14, y no se le puede dar en el gusto a todos.\nAdemás mientras estas programando el hecho de incluir los recursos en el exe hace que cada recompilacion sea mas lenta, tanto más cuanto más recursos tengas.\n\nLa desventaja de las dlls es que debes incluir varios archivos al actualizar y distribuir tu aplicacion, que en el caso del exe siempre es solo 1.\n\nSaludos,\n\nCarlos.','',0,'gA==','1nkv4bre',1,0,'',316,0,0),(35644,7750,3,130,0,'141.51.32.24',1186040315,1,0,1,1,1,1,'','','Look at this instance variable:\n\n[code:3nfjwbm3]DATA   nAdjColumn    AS NUMERIC     // column expands to flush table window right\n[/code:3nfjwbm3]\n\noBrw:nAdjColunm := &lt;most-right-column&gt;','',0,'AIA=','3nfjwbm3',1,0,'',130,0,0),(35646,7682,6,106,0,'85.34.123.173',1186045827,1,0,1,1,1,1,'','','Carlos,\n\n\ngracias, haré la prueba. Es mi caso, el servidor es Debian con Samba.','',0,'','3ivcvf0m',1,0,'',106,0,0),(35647,7735,3,972,0,'81.164.54.51',1186047084,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:9qm2c6f6]Hi to All!\n\nPlease Read Przemek answer at harbour mailing list:\n\nOn Wed, 01 Aug 2007, ViaOpen - Fernando Mancera wrote:\n&gt; Przemek\n&gt; I see on Harbour the hbsix.lib and hsx.lib.\n&gt; Is implemented in Harbour all the functionality of SixDriver?\n\nHiPer-SEEK / CFTS is fully implemented. It has some extensions which do not exist in original SIX3 library.\nSee source/rdd/hsx/hsx.c for description I left in the file header.\nI added also support for SMT, SIX3 DBF field types, SIX3 compression and encryption. So far I haven\'t implemented NSX support though I have some basic version I started some months ago. Most of Sx_*() functions are not implemented but we are supporting their functionality so they can be easy added even at .prg level as wrappers to existing ord*()/\ndbOrderInfo()/dbInfo()/dbRecordInfo()/dbFieldInfo()/rddInfo() functions.\n\nBitmap filters are not implemented. I created bitmap library with all COMIX/ClipMore and MachSix functions and it\'s distributed by xHarbour.com This library can work with Harbour - it\'s enough to recompile it with Harbour header files. So far I haven\'t decided if I should public this code. IMHO xHarbour.com makes also important things for [x]Harbour community (f.e. very good commercial documentation) and I believe that this library helps xHarbour.com to continue their jobs so I\'m keeping this code private though I stop to work on xHarbour code.\nIn contrib/bmdbfcdx is DBFCDX with some basic bitmap filters functionality created by Miguel Angel Marchuet. In some cases it may be enough.\n\nbest regards,\nPrzemek[/quote:9qm2c6f6]\n\nIt says it all <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','9qm2c6f6',1,0,'',972,0,0),(35648,7758,4,1130,0,'213.140.16.185',1186047643,1,0,1,1,1,0,'','MsgInfo Vs Say','I am trying to write my first program with fivewin for pc pocket pc.\nI must do a program to check the article existence in a store. \nThe palmar must read a Bar Code and execute a seek \nwith that in an DBF archive.\n\nI am trying this code:\n\n\n#include \"Fwce.ch\" \n\nFUNCTION MAIN() \n\n    LOCAL oWnd1\n    LOCAL cVar2 := SPACE( 20 ) \n\n    PUBLIC barcode := SPACE( 20 ) \n\n    DEFINE WINDOW oWnd1 \n\n    @ 1, 10 GET barcode SIZE 70, 20  valid cerca()\n    @ 3, 10 GET cVar2 SIZE 70, 20  \n\n    ACTIVATE WINDOW oWnd1 \n\nRETURN NIL\n\nfunction cerca()\n\n    msginfo(barcode)\n    @ 5,10 SAY barcode SIZE 70,20\n\nreturn nil\n\nthought I would insert in Cerca()\nseek (barcode) and then\nshowing the article fields values \nwith Say\nbut this prg signals:\n  \nArgument error \nconditional Args: [ 1]=U\n\nmsginfo shows the\nvalue without problems. \n  \nhow can I do? \n\nRegards\nEugenio Belli','',0,'','3h6zva7e',1,0,'',1130,0,0),(35649,7759,11,2,0,'87.218.146.236',1186048041,1,0,1,1,1,1,'','Building FiveLinux applications from &quot;gedit&quot;','In gedit, go to \"Edit\", \"Preferences\". Then select \"plugins\" and check\n\"External tools\".\n\nThen go to \"Tools\", \"External tools...\" and add a new tool:\n\nname it: \"FiveLinux\"\ndescription: \"FiveLinux\"\nshortcut key: (press) F5\nCommand(s):\n#!/bin/sh\nname=$GEDIT_CURRENT_DOCUMENT_NAME;\nfile=${name%.*};\n./build.sh $file;\n\ninput: current document\noutput: display in bottom pane\n\nThat\'s all <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','12ff4w23',1,0,'',2,0,0),(35650,7759,11,2,0,'87.218.146.236',1186048549,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:vxbdb4hu][img:vxbdb4hu]http&#58;//img464&#46;imageshack&#46;us/img464/6408/screenshot1iu8&#46;png[/img:vxbdb4hu][/url:vxbdb4hu]','',0,'GA==','vxbdb4hu',1,0,'',2,0,0),(35651,7760,12,2,0,'87.218.146.236',1186048673,1,0,1,1,1,1,'','Construir aplicaciones FiveLinux desde gedit','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=35650#35650\">http://fivetechsoft.com/forums/viewtopi ... 5650#35650</a><!-- m -->','',0,'GA==','3ju17iaf',1,0,'',2,0,0),(35653,7758,4,2,0,'87.218.146.236',1186050515,1,0,1,1,1,1,'','','Eugenio,\n\nDo it this way:\n[code:3pcn5fdg]\n#include &quot;Fwce&#46;ch&quot; \n\nFUNCTION MAIN&#40;&#41; \n\nLOCAL oWnd1, oSay \nLOCAL cVar2 &#58;= SPACE&#40; 20 &#41; \n\nPUBLIC barcode &#58;= SPACE&#40; 20 &#41; \n\nDEFINE WINDOW oWnd1 \n\n@ 1, 10 GET barcode SIZE 70, 20 valid cerca&#40; oSay &#41; \n@ 3, 10 GET cVar2 SIZE 70, 20 \n\n@ 5,10 SAY oSay VAR barcode SIZE 70,20 \n\nACTIVATE WINDOW oWnd1 \n\nRETURN NIL \n\nfunction cerca&#40; oSay &#41; \n\nmsginfo&#40;barcode&#41; \n\noSay&#58;SetText&#40; barcode &#41;\n\nreturn &#46;T&#46; // Valid functions must return a logical value \n[/code:3pcn5fdg]','',0,'AIA=','3pcn5fdg',1,0,'',2,0,0),(35654,7761,6,63,0,'88.11.29.132',1186050807,1,0,1,1,1,0,'','Lineas de separacion en un Report','Utilizo FWH 2.6 + Harbour.  Para separar columnas de un report mediante una linea vertical hago:\n\nCOLUM TITLE \"Mi titulo 1\" DATA .........  GRID 1\nCOLUM TITLE \"Mi titulo 2\" DATA ........   GRID 1\n\n¿Cómo puedo separar las lineas con una linea horizontal?  (GRID 0 y GRID 2 dan \"Error de acceso a array\")\n¿Alguien sabe alguna forma de pintar las rows del report alternativamente con fondo gris (como SHADOW) y blanco?\n\nGracias,\n\nRafael','',0,'AIA=','2p1ptcz8',1,0,'',63,0,0),(35655,7735,3,972,0,'81.164.54.51',1186051504,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:1o7nhlp0]What it really says is that Przemek is the real SixDriver author[/quote:1o7nhlp0]\nExactly, as I previously already said: \"RMDBFCDX is developed by Przemek exclusively for xHarbour.com\'s xHarbour Builder.\"\n\nWhy are you so negative towards xHarbour.com Fernando???\nYes, RMDBFCDX is developed by Przemek, yes, xHarbour.com distributes it, so? Why is this so bad to you??\n\nCheer up man!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','1o7nhlp0',1,0,'',972,0,0),(35656,7753,3,2,0,'87.218.146.236',1186053689,1,0,1,1,1,1,'','','Eroni,\n\nYou need to modify the Class TToolBar in order to do it:\n[code:21c2qe3s]\n   &#46;&#46;&#46;\n   do case\n\n      case nCode == TTN_GETDISPINFO\n\n                &#58;&#58;ChangeBitmap&#40; &lt;nButton&gt;, &lt;nImage&gt; &#41;\n                &#46;&#46;&#46;\n[/code:21c2qe3s]','',0,'AIA=','21c2qe3s',1,0,'',2,0,0),(35657,7761,6,63,0,'88.11.29.132',1186054817,1,0,1,1,1,0,'','','Buscando en los foros he encontrado respuesta a un par de mis preguntas:\n1.- GRID 0 y GRID 2 exigen definir PEN en el report\n2.- Para lineas de separación horizontal: ON CHANGE oReport:Separator()  (Gracias, Paul - <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7540&amp;highlight=oreport+separator\">http://fivetechsoft.com/forums/viewtopi ... +separator</a><!-- m -->)\n\nSigue en pie la pregunta sobre lineas de colores alternados\nSaludos, Rafael','',0,'AIA=','159l1qfn',1,0,'',63,0,0),(35658,7761,6,960,0,'217.12.16.50',1186056455,1,0,1,1,1,0,'','','Rafael\n\njusto despues de definir las column del report y antes del END REPORT\ntecleas\n\noReport:CellView()\n\ny listo!!\n\nUn saludo\nLORENZO','',0,'AIA=','2mhbj4fg',1,0,'',960,0,0),(35659,7761,6,960,0,'217.12.16.50',1186057305,1,0,1,1,1,0,'','','ups.... se me olvidó decirte que para alternar colores o sombras horizontales debes jugar con los \"SHADOW\" de cada columna. Es decir:\n\n...\ncolumn title \'Mínimo\' data str(minimo,6) SHADOW font 2 right grid\n...\nactivate report infor ON STARTLINE versombra(infor)\n...\n...\nfunct versombra(infor)\n Local nVeces\n IF infor:aColumns[1]:lShadow\n  FOR nVeces := 1 TO Len(infor:aColumns)\n   infor:aColumns[nVeces]:lShadow := .F.\n  NEXT\n ELSE\n  FOR nVeces := 1 TO Len(infor:aColumns)\n   infor:aColumns[nVeces]:lShadow := .T.\n  NEXT\n ENDIF\nRETURN NIL\n\ny listo el pollo! el resultado final es bastante atractivo.\nUn saludo.\nLORENZO','',0,'','9tf8rw07',1,0,'',960,0,0),(35660,7737,6,53,0,'189.139.10.240',1186058650,1,0,1,1,1,1,'','','René:\n\nGracias Maestro.\n\nSaludos','',0,'','2epeghvn',1,0,'',53,0,0),(35661,7761,6,1104,0,'200.115.251.248',1186063424,1,0,1,1,1,0,'','','Hola Lorenzo\n\nEstuve probando lo que recomiendas, y me funcionó perfecto, de hecho está muy bueno.\nPero como siempre uno quiere un poco más, me surgió una duda.\nSi quisiera en vez de intercambiar entre fila y fila del report entre otros colores distintos al gris y el blanco?\nQué debería agregar?\nDesde ya muchas gracias\nSaludos, Esteban','',0,'','vuz1259k',1,0,'',1104,0,0),(35662,7762,6,36,0,'164.77.81.210',1186065314,1,0,1,1,1,1,'','Clear Typehead','Estimados\n\ntengo un browse el cual al presionar la tecla ENTER entra a un dialogo\npero resulta que dentro del dialogo si se presiona el boton salir vuelve a ejecutarse nuevamente, como si hubiera presionado enter nuevamente\n\nmi pregunta es como limpiar el buffer del teclado...\n\nlo estoy haciendo asi...\n\n[code:1g4gsm8l]\noBrw&#58;bKeyDown  &#58;= &#123; |nKey| iif&#40; nKey = 13, &#40;ABM&#40; aDbf, &#46;F&#46;, oBrw, lSoloLectura &#41;, SysRefresh&#40;&#41; &#41;, NIL &#41; &#125;\n[/code:1g4gsm8l]\n\ndesde ya gracias','',0,'AIA=','1g4gsm8l',1,0,'',36,0,0),(35663,7750,3,303,0,'72.199.41.171',1186065384,1,0,1,1,1,0,'','','Stefan,\n\n&gt;DATA   nAdjColumn\n\nI see that has the same effect as increasing the column width specification in the column definition.\n\nI have also modifed TSBrowse to display the highlight bar all the way across even if there is a \"phantom\" column on the right. This will be in the next release.\n\nUnfortunately, TSBrowse\'s documentation is incomplete, so we have to learn how to use it either by trial and error or by getting tips like yours.\n\nThanks,\nJames','',0,'AIA=','2gbw0psj',1,0,'',303,0,0),(35664,7738,3,1125,0,'200.161.130.145',1186065695,1,0,1,1,1,0,'','Re: How Can I Move object SAY using class TGSAY','[quote=&quot;Gui&quot;:14bi2e29]/* \n\nThank you for help Mr.Antonio Linares\n\nThis soluction don\'t resolved\nI don\'t archive \"MisFunc.ch\"\ncan this to be the problem ?\n\nThank\'s\n\nGui - SP - Brazilian\n\n*/[/quote:14bi2e29]','',0,'gg==','14bi2e29',1,0,'',1125,0,0),(35665,7762,6,1104,0,'200.115.251.248',1186066008,1,0,1,1,1,0,'','','oBrw:bKeyDown  :={|nkey,nFlag| IF(nKey=13, ABMBancos(oDbf,oBrw,oDlg,nKey,oWnd), )}\n\nPrueba lo siguiente.\nSaludos, Esteban.','',0,'gg==','9cqajy9g',1,0,'',1104,0,0),(35666,7761,6,63,0,'88.11.29.132',1186066546,1,0,1,1,1,0,'','','Lorenzo:\nLo probé y funcionó de maravilla. Muchas gracias\nRafael','',0,'gg==','156wvyii',1,0,'',63,0,0),(35667,7762,6,36,0,'164.77.81.210',1186067195,1,0,1,1,1,1,'','','gracias por responder pero igual sigue el problema\n\npor ahora lo he dejado en comentario, solo con el dblclick del mouse\n\nviendo post antiguo creo que no existe una solucion...\n\n\n\nsaludos..','',0,'gg==','25szlcjj',1,0,'',36,0,0),(35668,7763,6,643,0,'201.147.145.133',1186067222,1,0,1,1,1,0,'','Structura en SQL 200 y ADORDD','Hola a todos\n\nComo puedo crear una nueva tabla en SQL ejecutandoce desde mi aplicacion  tomando la siguiente estructura\n\n[quote:2zj2mnwy]\n1 CSERIE              Character    1   Llave\n2 NNUMTICKET      Numeric      9   Llave\n3 DFECHA             Date           8 \n4 CCODPAGO       Character    2  \n5 CCODEMP          Character   3 \n6 NDTO                 Numeric     6,2\n7 NTOTAL              Numeric    16,3\n8 NENTREGA          Numeric    17,6  \n9 LPAGADO           Logical        1\n10  LCONTAB         Logical        1\n11 NDEPOSITO      Numeric    17,6  \n12 CCODCLI         Character    6 \n13 CTIME              Character    5  \n14 NESTADO          Numeric      1  \n15 CREFTIC           Character   35\n16 LREGALO           Logical         1\n17 CCODCAJA       Character     3 \n18CCODALM          Character     3                                                                                                               \n[/quote:2zj2mnwy]\n\nEsto lo menciono por los Datos Logicos y de fecha ya que en SQL se utiliza el DateTime \n\n¿Como podria crea esa estructura y como se tendria que guardar los datos de fecha asi como los logicos?\n\nnota: en el fuente de ADORDD no viene nada relacionado con fechas y ni logicos \n\nsaludos cordiales\ny gracias por el apoyo\nJL','',0,'gA==','2zj2mnwy',1,0,'',643,0,0),(35669,7761,6,53,0,'189.139.10.240',1186067802,1,0,1,1,1,1,'','','Esteban, Rafael:\n\nPara poner la sombra en color, de hecho no es una sombra se trata de pintar un rectángulo con el color que desees, yo lo hago así, si no recuerdo mal es un aporte de The Full.\n\noReporte:bStartLine := {|o|IF(gMarca:nCounter % 2 == 0,SHADOWROW(o),)}\n\ny esta es la función ShadowRow()\n\nFUNCTION ShadowRow(oRep)\nLOCAL nCols := LEN(oRep:aCols)\nLOCAL nLine := IF(EMPTY(oRep:nDataLine),1,oRep:nDataLine)\n\nIF oRep:oShdBrush == NIL\n    DEFINE BRUSH oRep:oShdBrush COLOR oRep:nClrShadow\nENDIF\n\nSetBkMode(oRep:oDevice:hDCOut,1)\n\noRep:oDevice:FillRect( {oRep:nRow + 1,;\noRep:aCols[1],;\noRep:nRow + 1 + oRep:aDataHeight[nLine],;\noRep:aCols[nCols] + oRep:aColumns[nCols]:nWidth},;\noRep:oShdBrush)\nRETURN (NIL)\n\nAquí pueden ver una imagen de lo obtenido\n\n<!-- m --><a class=\"postlink\" href=\"http://img183.imageshack.us/my.php?image=clip2xa3.jpg\">http://img183.imageshack.us/my.php?image=clip2xa3.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img183.imageshack.us/img183/926/clip2xa3.jpg\">http://img183.imageshack.us/img183/926/clip2xa3.jpg</a><!-- m -->\n[url=http&#58;//imageshack&#46;us:33tis5ga][img:33tis5ga]http&#58;//img183&#46;imageshack&#46;us/img183/926/clip2xa3&#46;jpg[/img:33tis5ga][/url:33tis5ga]\n\nSaludos','',0,'GA==','33tis5ga',1,0,'',53,0,0),(35670,7762,6,1104,0,'200.115.251.248',1186067925,1,0,1,1,1,0,'','','No te olvides de que dentro de tu funcion ABM debes refrescar el oBrw y ponerle el foco justo antes de terminar.\n\nEs decir:\n\noBrw:bKeyDown :={|nkey,nFlag| IF(nKey=13, ABMBancos(oDbf,oBrw,oDlg,nKey,oWnd), )} \n\n...\n...\n\n//\nFunction ABMBancos(oDbf,oBrw,oDlg,nKey,oWnd)\n\n...\n...\n\noBrw:Refresh()\noBrw:SetFocus()\nReturn nil\n//','',0,'GA==','w6etnicm',1,0,'',1104,0,0),(35671,7764,6,519,0,'88.27.43.164',1186068908,1,0,1,1,1,0,'','Twbrowse Rossine','Hola  \n\n   Alguien tiene funcionando el twbrowse de Rossine  ?\n\n\n   Un saludo','',0,'GA==','3w1kv6eg',1,0,'',519,0,0),(35672,7763,6,644,0,'190.30.10.57',1186069117,1,0,1,1,1,0,'','','José\n\nPor lo que tengo entendido se maneja como cualquier base de datos. Dbcreate() para crear una nueva base de datos. y así todos los comandos relacionados con la administración de las mismas','',0,'GA==','3spzyr5p',1,0,'',644,0,0),(35673,7762,6,73,0,'200.23.18.132',1186070412,1,0,1,1,1,0,'','','a mi me va bien,\nprueba a usar:\nnKey==VK_RETURN\nen lugar de:\nnKey=13\ny no olvides cuando cierras el dialogo poner el foco en el browse\nsalu2\npaco','',0,'GA==','1zw1gq0y',1,0,'',73,0,0),(35674,7762,6,36,0,'164.77.81.210',1186070531,1,0,1,1,1,1,'','','Asi tengo el final del la funcion ABM, igual el problem..! <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n[code:2081ltw3]ACTIVATE DIALOG oDlg CENTERED ON PAINT iif&#40; valtype&#40; oBrw &#41; = &quot;O&quot;, oBrw&#58;SetFocus&#40;&#41;,&#41;\n\ndbART&#58;OrdSetFocus&#40; cOldkey &#41;\ndbART&#58;GoTo&#40; aRegi&#91;1&#93; &#41;\ndbFAM&#58;Goto&#40; aRegi&#91;2&#93; &#41;\ndbCLA&#58;Goto&#40; aRegi&#91;3&#93; &#41;\naEval&#40; aDbf, &#123; |x| x&#58;Load&#40;&#41; &#125; &#41;\nif Valtype&#40; oBrw &#41; = &quot;O&quot;\n	oBrw&#58;Refresh&#40;&#41;\n	oBrw&#58;SetFocus&#40;&#41;\nendif\n\nRETURN&#40; &#46;T&#46; &#41;\n//----------------------------------------------------------------------------//\n[/code:2081ltw3]','',0,'AIA=','2081ltw3',1,0,'',36,0,0),(35675,7757,3,138,0,'189.141.71.139',1186070636,1,0,1,1,1,1,'','','Simply use the table name:\n\nUSE customers shared new\n\nAnd thats all, there\'s no issue opening the same database serveral times.','',0,'AIA=','kpa8my1e',1,0,'',138,0,0),(35676,7763,6,643,0,'201.147.145.133',1186070687,1,0,1,1,1,0,'','Agradesco tu comentario','[quote=&quot;horacio&quot;:ldwcqv36]José\n\nPor lo que tengo entendido se maneja como cualquier base de datos. Dbcreate() para crear una nueva base de datos. y así todos los comandos relacionados con la administración de las mismas[/quote:ldwcqv36]\n\nHoracio,\n\nGracias por tu respuesta, \npero da la casualidad que cuando quiero crear una base de datos con campos de fecha y Logicos \nmanda un error de Drog trop \nalgo asi','',0,'gA==','ldwcqv36',1,0,'',643,0,0),(35677,7762,6,1104,0,'200.115.251.248',1186071085,1,0,1,1,1,0,'','','Una pregunta:\n\nComo estás defiendo el Boton para salir?','',0,'gA==','256w6i9g',1,0,'',1104,0,0),(35678,7765,6,760,0,'200.62.254.137',1186071132,1,0,1,1,1,0,'','adordd ???','Gracias Fernando.\n\nPero quisiera una breve explicacion sobre que es, que hace, para que sirve, ventajas y desventajas...sin no es molestia.\n\nLei algo de ADO, y la verdad tengo en proyectos hacer sistemas con tecnologia cliente/servidor.\n\nSalu2\n\nFrancis','',0,'gA==','22vzr9aj',1,0,'',760,0,0),(35679,7763,6,138,0,'189.141.71.139',1186071134,1,0,1,1,1,1,'','','Jose Luis:\n\nHe usado poco el ADORDD, prefiero el ADO puro y duro y en mi opinion la forma mas facil de hacer lo que quieres es atravez de un objeto command:\n\noCom:Execute(\"CREATE TABLE ............)\n\nMas seguro.','',0,'gA==','2p13mrj5',1,0,'',138,0,0),(35682,7762,6,36,0,'164.77.81.210',1186073332,1,0,1,1,1,1,'','','[code:1dr5cowb]REDEFINE BUTTON ID 716 OF oDlg	;\n				ACTION oDlg&#58;End&#40;&#41;    ;\n			CANCEL\n[/code:1dr5cowb]\n\nadjunto un pequeño video,..\n\n[url:1dr5cowb]http&#58;//www&#46;bigupload&#46;com/d=77487AC1[/url:1dr5cowb]\n\nsaludos','',0,'EIA=','1dr5cowb',1,0,'',36,0,0),(35683,7738,3,2,0,'87.218.146.107',1186073642,1,0,1,1,1,1,'','','&gt; I don\'t archive \"MisFunc.ch\" \n\nWhat is it that file ?','',0,'EIA=','313xuqg1',1,0,'',2,0,0),(35684,7762,6,1104,0,'200.115.251.248',1186074438,1,0,1,1,1,0,'','','Mira aparentemente está todo bien.\nA mi me funciona perfecto y lo único que se me ocurre es que tu proceso no esté ingresando nunca al if que utilizas para poner el foco al salir de la funcion.\n\nif Valtype( oBrw ) = \"O\" \n   oBrw:Refresh() \n   oBrw:SetFocus() \nendif \n\nPrueba poniendo un MsgInfo() dentro del If para ver si está ingresando.\nLa verdad es lo único que se me ocurre. Debería funcionar sin ningún problema.\nSaludos, Esteban','',0,'EIA=','2zh2ddmy',1,0,'',1104,0,0),(35685,7766,6,300,0,'201.67.96.187',1186075373,1,0,1,1,1,0,'','Pesquisa string','Olá,\n\nTenho uno campo de dbf caracter 25 chamdo NF que faz parte de una tag\nconteúdo = \"12345/12121/74844/41414\"\n\nNecessito filtrar todos los dados con parte de NF = \"74844\" existe una maneira senão dbsetfilter() ? Es muy lento. \n\nNF faz parte de una TAG en média 100.000 registros\n\nSalu2.','',0,'EIA=','v73qmdn1',1,0,'',300,0,0),(35686,7735,3,972,0,'81.164.54.51',1186075700,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:2hd10oqu]I really don\'t care about xHarbour.com at all  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> [/quote:2hd10oqu]\nOk.\n\n[quote=&quot;Fernando Mancera&quot;:2hd10oqu]It seems that you prefer to hide Przemek technical opinions about xHarbour[/quote:2hd10oqu]\nHmm, did you not see my 1st post on this subject? I said : [quote:2hd10oqu]RMDBFCDX [u:2hd10oqu][b:2hd10oqu]is developed by Przemek[/b:2hd10oqu][/u:2hd10oqu] exclusively for xHarbour.com\'s xHarbour Builder.[/quote:2hd10oqu]\nIf this is hiding, i\'m VERY lousy at it!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'wQ==','2hd10oqu',1,0,'',972,0,0),(35688,7761,6,63,0,'88.11.29.132',1186075952,1,0,1,1,1,0,'','','Armando:\nMuchas gracias por tu solución.  Funciona perfectamente pero ¿cómo lo haces para que el header de cada grupo no se marque en color (cuando le toque una linea par)?\nRafael','',0,'QA==','iskievt8',1,0,'',63,0,0),(35689,7735,3,972,0,'81.164.54.51',1186076398,1,0,1,1,1,0,'','','[quote=&quot;Fernando Mancera&quot;:3rjhg1bi]I\'m talking about [b:3rjhg1bi]Przemek\'s technical opinions about xHarbour[/b:3rjhg1bi]. The real facts why Przemek leaved xHarbour and moved to Harbour only. Do you want me to post some of his opinions ?  Are you sure ? <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->[/quote:3rjhg1bi]\nI have nothing to hide. If you think this is helping anyone, please go ahead.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'wA==','3rjhg1bi',1,0,'',972,0,0),(35690,7761,6,53,0,'189.139.10.240',1186076523,1,0,1,1,1,1,'','','Rafael:\n\nNo me he topado con un problema así, seguramente es porque el reporte se imprime cuando el usuario elige solo una marca de repuesto entonces no hay un nuevo grupo en todo el reporte.\n\nSaludos','',0,'wA==','1484p01e',1,0,'',53,0,0),(35691,7766,6,891,0,'148.243.37.162',1186076637,1,0,1,1,1,0,'','Re: Pesquisa string','[quote=&quot;Wanderson&quot;:2q5qfk6t]Olá,\n\nTenho uno campo de dbf caracter 25 chamdo NF que faz parte de una tag\nconteúdo = \"12345/12121/74844/41414\"\n\nNecessito filtrar todos los dados con parte de NF = \"74844\" existe una maneira senão dbsetfilter() ? Es muy lento. \n\nNF faz parte de una TAG en média 100.000 registros\n\nSalu2.[/quote:2q5qfk6t]\n\nHola usa la funcion ORDWILDSEEK(), te encontrara la palabra interna en la base de datos, no lo he probado, pero he visto ejemplos como de Jose Murugosa y funciona bien \nSaludos \nAdrian','',0,'gA==','2q5qfk6t',1,0,'',891,0,0),(35692,7761,6,1104,0,'200.115.251.248',1186076749,1,0,1,1,1,0,'','','Armando:\n\nMuy buena tu solución funciona perfectamente para lo que yo estoy haciendo.\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'gA==','24hhgefp',1,0,'',1104,0,0),(35693,7761,6,63,0,'88.11.29.132',1186078056,1,0,1,1,1,0,'','','Armando:\nBueno; lo de los headers tampoco tiene demasiada importancia. Haré algunas pruebas más y veremos si saco algo en claro.  Muchas gracias otra vez.\nRafael','',0,'gA==','13y40b78',1,0,'',63,0,0),(35694,7732,3,2,0,'87.218.146.107',1186078589,1,0,1,1,1,1,'','','Paul,\n\nWe just tested samples\\TestPrn2.prg and it works fine using FWH 7.07 (double click zooms)','',0,'gA==','3coo8f9a',1,0,'',2,0,0),(35695,7746,3,1129,0,'201.30.244.130',1186078962,1,0,1,1,1,0,'','','Fernando\n\n\nE possivel to use the Index on… with ADORDD using MYSQL? \n\nTherefore all time that I execute this command it presents the error below:\n\n error ADOX.CATALOG:TABLES:KEYS/16389  E_FAIL:COUNT from errorsys, line: 0','',0,'gA==','f7546lir',1,0,'',1129,0,0),(35697,7746,3,2,0,'87.218.146.107',1186079867,1,0,1,1,1,1,'','','You need to check if your ADO engine supports indexing:\n\n#define adIndex 0x100000 \nMsgInfo( HB_AdoRddGetRecordset():Supports( adIndex ) )','',0,'gA==','2vqvlr6c',1,0,'',2,0,0),(35698,7766,6,53,0,'189.139.10.240',1186080473,1,0,1,1,1,1,'','','Wanderson:\n\nTambien te recomiendo la función WildMatch().\n\nSe usa así:\n\nWildMatch(\"*DISCO\",(cFile)-&gt;PRD_DES)\n\nTe devuelve .T. si la palabra DISCO se encuentra en cualquier parte del campo PRD_DES.\n\nPrueba a usar la busqueda con y sin asterico para que veas la diferencia.\n\nWildSeek() y WildMatch() son para xHarbour (desconozco si Harbour la tiene).\n\nSaludos','',0,'gA==','3e5e5e53',1,0,'',53,0,0),(35699,7767,6,911,0,'200.72.141.53',1186081268,1,0,1,1,1,0,'','error en tiempo de enlace','Hola:\nesto me arroja xmate cuando intento probar adordd\n\n[1]:iLink32.Exe -Gn -aa -Tpe -s @pruebas.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from D:\\LENG\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from D:\\LENG\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from D:\\LENG\\XHARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from D:\\LENG\\XHARBOUR\\LIB\\RDD.LIB|dbf1\n\nSaludos\nDavid\nCoquimbo-Chile','',0,'','37xg0jj5',1,0,'',911,0,0),(35700,7767,6,316,0,'87.218.186.75',1186081723,1,0,0,1,1,0,'','','Y que dicen en la lista de xMate? Yo no lo uso, pero seguro que es que te falta la hblib.lib.\n\nSaludos,\nCarlos','',0,'','3bq5i55z',1,0,'',316,0,0),(35701,7739,6,1072,0,'190.82.46.95',1186082556,1,0,1,1,1,0,'','','Carlos Mora\n\nMuchas gracias por tu tiempo y conocimientos, me queda muy claro tu informacion.\n\nSaludos,\n\nAntonio','',0,'','79uv5k8w',1,0,'',1072,0,0),(35702,7751,6,793,0,'201.225.14.230',1186082588,1,0,1,1,1,0,'','Errores al enlazar la lib adorrd','Amigos del foro quisiera saber como resuelvo los siguientes errores que se presentan al compilar los ejemplos de la libreria adorrd\n\nNo se encuentran  las funciones \n\n_hb_Itemgetsymbol\n\nxvmPopLogical\n\nxvmPushlocalbyref\n\n\nGracias por su apoyo \nerick almanza\nPanama','',0,'','2w52hvnz',1,0,'',793,0,0),(35703,7766,6,300,0,'201.67.96.187',1186084277,1,0,1,1,1,0,'','','[quote=&quot;Armando&quot;:2p9t9iry]Wanderson:\n\nTambien te recomiendo la función WildMatch().\n\nSe usa así:\n\nWildMatch(\"*DISCO\",(cFile)-&gt;PRD_DES)\n\nTe devuelve .T. si la palabra DISCO se encuentra en cualquier parte del campo PRD_DES.\n\nPrueba a usar la busqueda con y sin asterico para que veas la diferencia.\n\nWildSeek() y WildMatch() son para xHarbour (desconozco si Harbour la tiene).\n\nSaludos[/quote:2p9t9iry]\n\nArmando ficou demasiado lento usando WildMatch ya que necessito leitura en toda tabla, mira lo código\n\nDo While ! oCtoPar:Eof()\n   oCtoPar:Load()\n   \n   If WildMatch(\"*\"+alltrim(nrnf),oCtoPar:NOTAS) \n       AAdd(VETCTOS,oCtoPar:SIGLAPAR+\"-\"+oCtoPar:CTO)\n   Endif\n   oCtoPar:Skip(+1)\n   Loop\nEnddo\n\nSalu2','',0,'gA==','2p9t9iry',1,0,'',300,0,0),(35704,7763,6,940,0,'189.157.86.104',1186084430,1,0,1,1,1,1,'','','Exacto \n\nadordd de fw,  aun esta en construccion,\n\nla funcion dbcreate no esta implementada pra sql struct\n\ntienes que usar ADO si es sqlserver,\n\nsaludos..','',0,'gA==','1h9nr8j0',1,0,'',940,0,0),(35705,7762,6,36,0,'164.77.81.210',1186084844,1,0,1,1,1,1,'','','Encontre el problema\n\nMirando el metodo keydown() de la clase twbrowse\n\n[code:14930hrr]METHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   local lRefresh\n\nif &#58;&#58;bKeyDown != nil\n    Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41;\nendif\n\ndo case\n   case nKey == VK_UP\n       &#58;&#58;cBuffer&#58;= &quot;&quot;\n       &#58;&#58;GoUp&#40;&#41;\nbla&#46;&#46;&#46;bla&#46;&#46;&#46;\n[/code:14930hrr]\n\nsi que comente \n\n[code:14930hrr]/*\nif &#58;&#58;bKeyDown != nil\n    Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41;\nendif\n*/\n[/code:14930hrr]\n\no bien podria dejarlo al final, bueno vere cual seria la mejor opcion\n\n[b:14930hrr]muchas gracias a todos los que respondieron[/b:14930hrr]\n\nSaludos...','',0,'QIA=','14930hrr',1,0,'',36,0,0),(35706,7762,6,73,0,'200.23.18.132',1186086458,1,0,1,1,1,0,'','','patricio este el metodo keydown que tengo en la clase, probablemente tienes la ver no mas actual de la 17\nMETHOD KeyDown( nKey, nFlags ) CLASS TWBrowse\n\n   local lRefresh\n\n   do case\n      case nKey == VK_UP\n           ::cBuffer:= \"\"\n           ::GoUp()\n\n      case nKey == VK_DOWN\n           ::cBuffer:= \"\"\n           ::GoDown()\n\n      case nKey == VK_LEFT\n           ::cBuffer:= \"\"\n           If ::GoLeft()\n              ::Refresh()\n           EndIf\n\n      case nKey == VK_RIGHT\n           ::cBuffer:= \"\"\n           If ::GoRight()\n              ::Refresh()\n           EndIf\n\n      case nKey == VK_HOME\n           ::cBuffer:= \"\"\n           ::GoTop()\n\n      case nKey == VK_END\n           ::cBuffer:= \"\"\n           ::GoBottom()\n\n      case nKey == VK_PRIOR\n           ::cBuffer:= \"\"\n           if GetKeyState( VK_CONTROL )\n              ::GoTop()\n           else\n              ::PageUp()\n           endif\n\n      case nKey == VK_NEXT\n           ::cBuffer:= \"\"\n           if GetKeyState( VK_CONTROL )\n              ::GoBottom()\n           else\n              ::PageDown()\n           endif\n\n      case ::bSeek != Nil .and. !::lWorking .and. nKey == VK_BACK\n           ::lWorking:= .T.\n           ::cBuffer := SubStr( ::cBuffer, 1, Len(::cBuffer) - 1 )\n           if \"L\" $ ValType( lRefresh:= Eval( ::bSeek ) ) .and. lRefresh\n              ::nRowPos:= Max( Min( ::nLen, ::nRowCount ), 1 )\n              ::Refresh()\n           endif\n           ::lWorking:= .F.\n\n      case ::bSeek != Nil .and. ( nKey == VK_SHIFT .or. nKey &gt;= 32 )\n           // No Hacer nada !!!, pero respetar el Super.\n           Super:KeyDown( nKey, nFlags )\n\n      otherwise\n           ::cBuffer:= \"\"\n           If( ::bSeek != Nil .and. ::bUpdateBuffer != Nil, Eval( ::bUpdateBuffer ), )\n\n           // Posibilidad de efectuar acciones con TABs 13/05/04\n           if nKey == VK_TAB .and. ::bKeyDown != nil\n              Eval( ::bKeyDown, nKey, nFlags )\n           endif\n\n           return Super:KeyDown( nKey, nFlags )\n   endcase\n\n   If( ::bSeek != Nil .and. ::bUpdateBuffer != Nil, Eval( ::bUpdateBuffer ), )\n\nreturn 0\nsalu2\npaco','',0,'QIA=','j8c471w9',1,0,'',73,0,0),(35707,7766,6,36,0,'164.77.81.210',1186086760,1,0,1,1,1,1,'','','si los datos son fijos puedes hacer indIces parcelados\n\n[code:pkuceine]\nINDEX ON SUBSTR&#40; CAMPO, 1, 5 &#41;  TAG PASO1\nINDEX ON SUBSTR&#40; CAMPO, 7, 5 &#41;  TAG PASO2\nINDEX ON SUBSTR&#40; CAMPO, 13, 5 &#41; TAG PASO3\nINDEX ON SUBSTR&#40; CAMPO, 19, 5 &#41; TAG PASO3\n\nluego puedes usar ordScope\n\nOrdSetFocus&#40; &quot;paso3&quot; &#41;\nOrdScope&#40; 0, &quot;74844&quot; &#41;\nOrdScope&#40; 1, &quot;74844&quot; &#41;\nbrowse&#40;&#41;\n[/code:pkuceine]\n\nespero que te sirva','',0,'AIA=','pkuceine',1,0,'',36,0,0),(35708,7701,3,267,0,'200.208.238.2',1186087063,1,0,1,1,1,1,'','','Antonio,\n\nNow necessary to implement keyboard key accelerator(Sample: CTRL+P to print). I  made thus:\n\n[code:1sohd6hx]\noActiveX&#58;bOnEvent &#58;= &#123; | event, nKey | EventInfo&#40; event, nKey &#41; &#125;\n\nSTATIC FUNCTION EventInfo&#40;event, nKey&#41;\n\n   IF Upper&#40;event&#41; $ &quot;KEYPRESS,KEYDOWN&quot;\n\n        IF nKey = 80\n              &#46;&#46;&#46;&#46;&#46;\n        ENDIF\n\n   ENDIF\n\nRETURN NIL\n\n[/code:1sohd6hx]\n[b:1sohd6hx]event[/b:1sohd6hx] is ok,  But [b:1sohd6hx]nKey[/b:1sohd6hx] is returning NULL!','',0,'QIA=','1sohd6hx',1,0,'',267,0,0),(35709,7768,6,66,0,'200.127.38.83',1186088129,1,0,1,0,1,0,'','Como Grabar datos en planilla excel existente','Estimados Colegas\n\n\nComo puedo Graba datos en determinadas celdas de un un planilla\nexistente, alguien tendria algun ejemplo sencillo\n\ndesde ya muchisimas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'QIA=','1a5a46w6',1,0,'',66,0,0),(35710,7767,6,911,0,'200.72.141.53',1186088583,1,0,1,1,1,0,'','','Carlos, muchas gracias\nEl tema es que tenía que agregar la hbsix.lib\nun millón\nDavid Lagos S.\nCoquimbo-Chile','',0,'QIA=','2lqbsetd',1,0,'',911,0,0),(35711,7763,6,643,0,'201.147.145.133',1186090334,1,0,1,1,1,0,'','Agradesco','Gracias Rene y sysctrl2\npor sus comentarios\n\nme perece muy buena las opciones\n\nentonces las creeare directamente\n\nahora bien\npara trabajar con la nueva trabla y utilizando el ADORDD\n\ncomo utilizaria los campos Date y los logicos ??','',0,'QIA=','16fuxfz4',1,0,'',643,0,0),(35712,7746,3,1129,0,'201.30.244.130',1186090758,1,0,1,1,1,0,'','','It returned false!\n\nThen he does not have as to create indices with the ADORDD? \n\nWhat I must modify or proceed so that can create indices?','',0,'QIA=','25vmp2ml',1,0,'',1129,0,0),(35713,7701,3,2,0,'87.218.146.107',1186091209,1,0,1,1,1,1,'','','have you tried with two params ?\n\noActiveX&#058;bOnEvent := { | event, nKey1, nKey2 | EventInfo( event, nKey1, nKey2 ) }','',0,'QIA=','2cqswzxu',1,0,'',2,0,0),(35714,7738,3,439,0,'200.125.45.152',1186091607,1,0,1,1,1,1,'','','I didn´t have that file eather, you can resolve this problem just adding to  TGSAY.CH: \"#define accion ON CLICK\" or changing ACCION for ON CLICK.\nIn the sample code remove \"#include misfunc.ch\" and replace  CLR_OBLUE with CLR_BLUE and It will work properly.\n\nYou can get the corrected code from my \"box\":\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/lck9effuyn\">http://www.box.net/shared/lck9effuyn</a><!-- m -->\n\nIn this place you will find all the free classes I have (This classes are not mine!!, but their authors agree to share them freely)\n\nI hope this will help, and... sorry for my bad english','',0,'QIA=','xlyih1jl',1,0,'',439,0,0),(35715,7769,2,275,0,'200.68.220.82',1186093222,1,0,1,1,1,0,'','Button Bar','Hola, es posible tener mas de una barra de Botones en una Ventana.','',0,'QIA=','l7cgpur1',1,0,'',275,0,0),(35716,7766,6,300,0,'201.10.138.176',1186095278,1,0,1,1,1,0,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:133kunpo]si los datos son fijos puedes hacer indIces parcelados\n\n[code:133kunpo]\nINDEX ON SUBSTR&#40; CAMPO, 1, 5 &#41;  TAG PASO1\nINDEX ON SUBSTR&#40; CAMPO, 7, 5 &#41;  TAG PASO2\nINDEX ON SUBSTR&#40; CAMPO, 13, 5 &#41; TAG PASO3\nINDEX ON SUBSTR&#40; CAMPO, 19, 5 &#41; TAG PASO3\n\nluego puedes usar ordScope\n\nOrdSetFocus&#40; &quot;paso3&quot; &#41;\nOrdScope&#40; 0, &quot;74844&quot; &#41;\nOrdScope&#40; 1, &quot;74844&quot; &#41;\nbrowse&#40;&#41;\n[/code:133kunpo]\n\nespero que te sirva[/quote:133kunpo]\n\nPatricio es o problema, los datos não são fijos hora tiene \"12354/52451/1212\" ora tiene apenas \"35212\" non puedo usar indices parcelados.\n\nGracias','',0,'gIA=','133kunpo',1,0,'',300,0,0),(35717,7746,3,35,0,'65.188.6.143',1186098365,1,0,1,1,1,0,'','','Mgomesnet\n\nMany SQL databases do not support ADO as a way to utilize indexes.. SQL Server 2000-2005 for one and Oracle.\n\nI have not found that to be a hinderence at all. Most modern SQL databases do not require indexes anyway .. other than setting a \'primary key\'\n\nYou can create indexes for Oracle and SQL server and if the server can use them to speed up a query .. it will .. all of that is controlled by the server and not the programmer .. that is why many SQL databases do not allow programatic use of indexes.\n\nJust use your \'find\', \'filters\' and be smart with your select statements and only query records you really need .. not just opening the whole table as in .dbf... you will be amazed at how fast a SQL server can be... take indexes out of your mind-set and think in terms of smart, crisp SQL queries.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gIA=','2mdcq4gp',1,0,'',35,0,0),(35718,6480,6,43,0,'189.188.14.90',1186103360,1,0,1,1,1,0,'','','ups...!!!   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nReitero la clase no es mia, espero mañana poder ponerla en algun sitio de internet ya les avisare donde.\n\nSaludos\nMarco A. Delgado.','',0,'gIA=','3fm248tx',1,0,'',43,0,0),(35719,7701,3,267,0,'201.9.164.43',1186103673,1,0,1,1,1,1,'','','Antonio,\n\nYes, i tried with four params.\n\noActiveX&#058;bOnEvent := { | event, nKey1, nKey2, nKey3, nKey4 | EventInfo( event, nKey1, nKey2, nKey3, nKey4 ) }\n\nThe return is:\n\nnKey1 = array empty\nnKey2 = 1242696 ever(constant)\nnKey3 = NIL\nnKey4 = NIL','',0,'gIA=','3isehcun',1,0,'',267,0,0),(35720,7768,6,940,0,'189.157.86.104',1186106473,1,0,1,1,1,1,'','','Fabian lo puedes hacer con la texcel,\n\nde la sig. forma.\n\n  cFile := cFilePath( GetModuleFileName( GetInstance() )) + \"planilla.xls\"\n\n  oExcel := TExcelScript():New()\n  oExcel:Open( cFile )\n\n  oExcel:oSheet:Cells( nRow, 01 ):Value = cValor1\n  oExcel:oSheet:Cells( nRow, 02 ):Value = cValor2\n  oExcel:save()\n  oExcel:End( .f.  )                          \n  oExcel := NIL\n\n\nSaludos.','',0,'gIA=','30zyap61',1,0,'',940,0,0),(35721,7770,4,1123,0,'200.174.91.66',1186106911,1,0,1,1,1,1,'','.INI em FWPPC','Ola amigos\n\nÉ possivel usar .INI no FWPPC tentei e num deu certo\n\nFico no aguardo','',0,'gIA=','2cg0koap',1,0,'',1123,0,0),(35722,7771,6,18,0,'201.141.35.76',1186117953,1,0,1,1,1,1,'','ToolBar y TABSTOP','Saludos a todos :\n\nAntonio :\n\nHay forma alguna de accesar a una toolbar y su contenido usando el Tabulador.?','',0,'gIA=','10yhjm60',1,0,'',18,0,0),(35723,7746,3,2,0,'87.218.146.118',1186120928,1,0,1,1,1,1,'','','&gt; What I must modify or proceed so that can create indices?\n\nIf ADO does not support them, then you can not create them.\n\nYou have to use SQL expressions to get the desired order: ... ORDER BY ...','',0,'gIA=','35e852xs',1,0,'',2,0,0),(35724,7701,3,2,0,'87.218.146.118',1186124036,1,0,1,1,1,1,'','','Vilian,\n\nAnalize the value 1242696  according to WM_KEYDOWN docs:\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms646280.aspx\">http://msdn2.microsoft.com/en-us/library/ms646280.aspx</a><!-- m -->\nunless that activex provides different parameters','',0,'gIA=','8z7m1590',1,0,'',2,0,0),(35725,7771,6,2,0,'87.218.146.118',1186124129,1,0,1,1,1,1,'','','Viktor,\n\nPrueba a usar el estilo WS_TABSTOP al crearla. Modifica la clase.','',0,'gIA=','1brnipuy',1,0,'',2,0,0),(35726,7772,11,578,0,'218.214.35.132',1186124413,1,0,1,0,1,0,'','Function of Vertical ScrollBar of Browse object','The vertical scroll bar of the Browse object in my code and in testbrow.prg doesn\'t behave as I think it should in that you can drag the slider? bit up and down and nothing happens except if you go right to the bottom you disable the down arrow and the up arrow if you go right to the top.  You can still move around OK with mouse clicks on rows and on the up and down arrows (provided the slider isn\'t right at the top or the bottom) and any of these seems to update the slider accordingly, but the slider doesn\'t update the browse.  It\'s not really a major issue but some end users are a bit fussy.','',0,'gIA=','111h1s6c',1,0,'',578,0,0),(35727,7773,3,233,0,'218.111.60.177',1186126055,1,0,1,1,1,0,'','ini return only integer when type is numeric','If a [b:ixp4e9n6]numeric[/b:ixp4e9n6] value such as 100.50 is stored in an ini file, reading it back will return 100 not 100.50. The decimal part is somehow excluded. The following is the full scenario\n\n1. App.ini contents:\n[code:ixp4e9n6]\n&#91;Balance&#93;\nBF_COL_K=6300\nBF_COL_L=2473&#46;50\n[/code:ixp4e9n6]\n\n2. The ini is then read in the following way\n[code:ixp4e9n6]\nfunction readIni&#40;&#41;\n  local oIni, aBF &#58;= array&#40;2&#41;\n  INI oIni FILE &quot;c&#58;\\app\\data\\app&#46;ini&quot;\n      GET aBF&#91;COL_K&#93; SECTION &quot;Balance&quot; ENTRY &quot;BF_COL_K&quot;  OF oIni DEFAULT 0&#46;00\n      GET aBF&#91;COL_L&#93; SECTION &quot;Balance&quot; ENTRY &quot;BF_COL_L&quot;  OF oIni DEFAULT 0&#46;00\n  ENDINI\nreturn nil\n[/code:ixp4e9n6]\n\nInstead of 6300 and 2473.50, I\'ll get 6300 and 2473  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->. How to fix this?\n\nAm using FWH2.8 and the code was tested on an XP machine\n\nThank you','',0,'QIA=','ixp4e9n6',1,0,'',233,0,0),(35728,7771,6,18,0,'201.141.35.76',1186126384,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3gmqgcs7]Viktor,\n\nPrueba a usar el estilo WS_TABSTOP al crearla. Modifica la clase.[/quote:3gmqgcs7]\n\nAntonio :\n\nGracias por responder, lo que me indicas ya lo había hecho y no resultó.\n\nRevisando el msdn , creo que es mejor tener el acceso usando los acceleradores del control.\n\nTB_MAPACCELERATOR\n[code:3gmqgcs7]\nTB_MAPACCELERATOR\n    wParam = &#40;WPARAM&#41;&#40;TCHAR&#41; chAccel;\n    lParam = &#40;LPARAM&#41;&#40;LPUINT&#41; pIDBtn;\n\nMaps an accelerator character to a toolbar button&#46; \n\nReturns nonzero if successful, or zero otherwise&#46; \nchAccel \nAccelerator character to be mapped&#46; This character is the same character that is underlined in the button\'s text&#46; \npIDBtn \nAddress of a UINT that receives the command identifier of the button that corresponds to the accelerator specified in cchAccel&#46; \n[/code:3gmqgcs7]\n\n[code:3gmqgcs7]\nlResult = SendMessage&#40;      // returns LRESULT in lResult \n    &#40;HWND&#41; hWndControl,      // handle to destination control\n     &#40;UINT&#41; TB_MAPACCELERATOR,      // message ID\n     &#40;WPARAM&#41; wParam,      // = &#40;WPARAM&#41; &#40;TCHAR&#41; chAccel;\n    &#40;LPARAM&#41; lParam      // = &#40;LPARAM&#41; &#40;LPUINT&#41; pIDBtn;\n &#41;; \n\n\n\n[/code:3gmqgcs7]\n\nAgregue este método a la clase\n\n[code:3gmqgcs7]\n\n#define TB_MAPACCELERATOR         1102\n\nMETHOD AccButton&#40; nVirtKey , nButton &#41; CLASS TToolBar    // Vikthor\n\n   SendMessage&#40; &#58;&#58;hWnd , TB_MAPACCELERATOR , nVirtKey , nButton - 1 &#41;\n\nreturn nil\n[/code:3gmqgcs7]\n\ny lo llamo de la siguiente forma en mi programa :\n\n[code:3gmqgcs7]\n   oToolBar&#58;AccButton&#40;  Asc&#40; &quot;N&quot; &#41; , 1 &#41;\n[/code:3gmqgcs7]\n\nPero al correr las modificaciones se me cuelga el exe.\n\nEste es el link de referencia\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms650875.aspx\">http://msdn2.microsoft.com/en-us/library/ms650875.aspx</a><!-- m -->\n\nAlguna sugerencia ?','',0,'gIA=','3gmqgcs7',1,0,'',18,0,0),(35729,7773,3,130,0,'141.51.32.24',1186126787,1,0,1,1,1,1,'','','Hua,\n\nthe TIni-class does not support floating-point values, but you can save and read these value as a string and then convert it back to numeric with Val().','',0,'gIA=','2eofqa6s',1,0,'',130,0,0),(35730,7732,3,130,0,'141.51.32.24',1186127755,1,0,1,1,1,1,'','','Paul,\n\ndid the cursor change moving over the sheet in the preview ?\n\nI have a similar problem with the preview, the double click is working, but I have no change of the cursor.\n\nThis problem occures only in bigger apps, every sample is working fine. So I could not locate the cause till now.\n\nDid you test the sample that comes with FWH ?','',0,'gIA=','2cn0zacu',1,0,'',130,0,0),(35731,7774,4,1130,0,'213.140.16.185',1186128358,1,0,1,1,1,0,'','Cursor position in edit gets','I would like to relocate the cursor\ninside a edit get to the left position\nand set at blank the get content\n\nRegards\nEugenio Belli','',0,'gIA=','3iawkvfq',1,0,'',1130,0,0),(35732,7775,4,1130,0,'213.140.16.185',1186130653,1,0,1,1,1,0,'','Generate a click on a control','As I can generate a click on a edit get ?\n\noGEt [1]: Click?\n\nWith this could also solve the problem\n of the cursor positioning \n\nthanks\nRegards\n\nEugenio Belli','',0,'','2tfl1hlx',1,0,'',1130,0,0),(35733,7775,4,6,0,'79.2.222.231',1186133123,1,0,1,1,1,1,'','Re: Generate a click on a control','Have a look at oGet:SetPos() method.\n\nEMG','',0,'','13bjxj7e',1,0,'',6,0,0),(35734,7774,4,6,0,'79.2.222.231',1186133192,1,0,1,1,1,1,'','Re: Cursor position in edit gets','oGet:VarPut( Space( ... ) )\noGet:Refresh()\noGet:SetPos( 1 )\n\nEMG','',0,'','2juioroi',1,0,'',6,0,0),(35735,7656,3,130,0,'141.51.32.24',1186133816,1,0,1,1,1,1,'','','Antonio,\n\nI made some investigations in the MSDN documentation about richtext and I tried to create my own print function.That was not as easy as on the first look, but here is the result.\n\nIt´s working fine so far, it does respect the margins and continues printing on the next page.\n\nBut there are still two issues I can´t solve.\n\nAs you can see in the picture at the end of this post, the richtext should fit into the rectangle, but it starts above over the last textlines.\n\nSecond, how can I get the position on the last page where the richtext ends, so I can print other text after it ?\n\nI would be happy, if you can review my code, please.\n\nHere is the code:\n[code:38xlpxxa]#define PHYSICALWIDTH    110\n#define PHYSICALHEIGHT   111\n#define PHYSICALOFFSETX  112\n#define PHYSICALOFFSETY  113\n#define HORZSIZE 4\n#define VERTSIZE 6\n#define HORZRES  8\n#define VERTRES 10\n#define LOGPIXELSX       88\n#define LOGPIXELSY       90\n\nSTATIC FUNCTION PrintMixed &#40;lPreview&#41;\n\n  LOCAL oPrn, cName &#58;= &quot;Mixed Printtest&quot;, aLine, nLine\n  LOCAL aMargins\n  LOCAL aPhysMarg &#58;= Array&#40;4&#41;\n  LOCAL nPhysWidth, nPhysHeight\n  LOCAL nHorzRes, nVertRes, nHorzSize, nVertSize\n  LOCAL nTMarg, nLMarg, nRMarg, nBMarg\n  LOCAL dpiX, dpiY\n  LOCAL nL &#58;= 0, nT &#58;= 0, aPos, aFrom, aTo, i,y&#58;= 0&#46;5\n  LOCAL aRect &#58;= Array &#40;4&#41;\n\n  DEFAULT lPreview &#58;= &#46;f&#46;\n\n  //? oDoc&#58;RtfSize&#40;&#41; // 1&#46;048&#46;576\n\n  PRINT oPrn NAME cName FROM USER //PREVIEW\n\n  nHorzRes &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, HORZRES &#41; // 9314,Druckbereich in Pixel, 47,2 Pixel/mm = 197mm\n  nVertRes &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, VERTRES &#41; //\n\n  nHorzSize &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, HORZSIZE &#41;/10 // 197, Druckbereich in mm &#40;cm&#41;\n  nVertSize &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, VERTSIZE &#41;/10 // height in mm\n\n  dpiX &#58;=  GETDEVICECAPS&#40; oPrn&#58;hDC, LOGPIXELSX&#41;   // 1200, Druckauflösung in dpi &#40;pixel pro inch&#41;\n  dpiY &#58;=  GETDEVICECAPS&#40; oPrn&#58;hDC, LOGPIXELSY&#41;\n\n  nPhysWidth  &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, PHYSICALWIDTH &#41; // 9921, gesamte Druckbreite incl&#46; nicht bedruckbarer Bereich\n  nPhysHeight &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, PHYSICALHEIGHT &#41;\n  aPhysMarg&#91;1&#93; &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, PHYSICALOFFSETY &#41; // 280, linker nicht bedruckbarer Bereich\n  aPhysMarg&#91;2&#93; &#58;= GETDEVICECAPS&#40; oPrn&#58;hDC, PHYSICALOFFSETX &#41; // 280, oberer nicht bedruckbarer Rand\n  aPhysMarg&#91;3&#93; &#58;= nPhysHeight - nVertRes - aPhysMarg&#91;1&#93;      // unterer rand\n  aPhysMarg&#91;4&#93; &#58;= nPhysWidth - nHorzRes - aPhysMarg&#91;2&#93;       // rechter Rand = PHYSICALWIDTH-HORZRES-PHYSICALOFFSETX\n\n  aMargins &#58;= PageGetMargins &#40;&#41;                                          // in 1/100 mm\n  nTMarg &#58;= aMargins&#91; 1 &#93; / 2540 * GETDEVICECAPS&#40; oPrn&#58;hDC, LOGPIXELSY &#41; // pixel\n  nLMarg &#58;= aMargins&#91; 2 &#93; / 2540 * GETDEVICECAPS&#40; oPrn&#58;hDC, LOGPIXELSX &#41;\n  nRMarg &#58;= aMargins&#91; 3 &#93; / 2540 * GETDEVICECAPS&#40; oPrn&#58;hDC, LOGPIXELSX &#41;\n  nBMarg &#58;= aMargins&#91; 4 &#93; / 2540 * GETDEVICECAPS&#40; oPrn&#58;hDC, LOGPIXELSY &#41;\n\n  AEval&#40; aMargins, &#123; |x,y|  aMargins&#91;y&#93; &#58;= x/1000 &#125; &#41;        // Margin in cm\n\n  aPos &#58;= oPrn&#58;Pix2Mmtr &#40;nTMarg,nLMarg&#41;\n\n  aPos&#91;1&#93; &#58;= aPos&#91;1&#93;/10\n  aPos&#91;2&#93; &#58;= aPos&#91;2&#93;/10\n\n\n  PAGE\n\n   for i &#58;= 1 TO 35\n     oPrn&#58;CmSay &#40;aPos&#91;1&#93;+y,aPos&#91;2&#93;, &quot;Line &quot;+Str&#40;i,2&#41;+&quot; ,Testline&quot;&#41;\n     aPos&#91;1&#93; &#58;= aPos&#91;1&#93; + y\n   next\n\n   aFrom &#58;= oPrn&#58;Cmtr2Pix &#40;aPos&#91;1&#93;+1,aPos&#91;2&#93;&#41;\n   aTo   &#58;= oPrn&#58;Cmtr2Pix &#40;nVertSize-aMargins&#91;4&#93;,nHorzSize-aMargins&#91;3&#93;&#41; // &#40;nRow,nCol&#41;\n   aRect &#58;= &#123;aFrom&#91;1&#93;,aFrom&#91;2&#93;,aTo&#91;1&#93;,aTo&#91;2&#93;&#125;\n\n   oPrn&#58;Box &#40;aRect&#91;1&#93;,aRect&#91;2&#93;,aRect&#91;3&#93;,aRect&#91;4&#93;&#41; // &#40;top,left,bottom,right&#41;\n  //aLine &#58;= oDoc&#58;PrintBox &#40;If&#40; lPreview, oPrn&#58;hDCOut, oPrn&#58;hDC &#41;, aFrom&#91;1&#93;+50,aFrom&#91;2&#93;+50,aTo&#91;2&#93;-5,aTo&#91;1&#93;-5, 0&#41;\n  // oPrn&#58;Say &#40;aLine&#91;2&#93;+100,nLMarg, &quot;Zeile 2 des Testausdruckes&quot;&#41;\n\n    PrintRect &#40;oPrn&#58;hDC, aRect&#91;1&#93;+250, aRect&#91;2&#93;+250, aRect&#91;3&#93;-100, aRect&#91;4&#93;-100&#41;\n // oPrn&#58;Say &#40;aLine&#91;2&#93;+100,nLMarg, &quot;Zeile 2 des Testausdruckes&quot;&#41;\n\n   ENDPAGE\n\n  ENDPRINT\n\nRETURN &#40;nil&#41;\n\n\n\n\n#define PIXELPERCM 472&#46;44\n//----------------------------------------------------------------------------//\nSTATIC FUNCTION PrintRect &#40;hDC, nTop, nLeft, nBottom, nRight&#41;\n\n  LOCAL lResult //&#58;= &#46;f&#46;\n  DEFAULT nTop &#58;= 2&#46;5,;    // cm\n          nLeft &#58;= 2&#46;5,;\n          nBottom &#58;= nTop + 15,;\n          nRight &#58;= nLeft + 10\n/*\n  nTop &#58;= nTop * PIXELPERCM    // umrechnen in pixel\n  nLeft &#58;= nLeft * PIXELPERCM\n  nBottom &#58;= nBottom * PIXELPERCM\n  nRight &#58;= nRight * PIXELPERCM\n*/\n\n  lResult &#58;= REPrintRect &#40;oRTF&#58;hWnd, hDC, nTop, nLeft, nBottom, nRight&#41;\n  ? lResult&#91;1&#93;,lResult&#91;2&#93;,lResult&#91;3&#93;\n\nRETURN &#40;nil&#41;\n\n\n#pragma BEGINDUMP\n\n#include &lt;Windows&#46;h&gt;\n#include &lt;HbApi&#46;h&gt;\n#include &lt;Richedit&#46;h&gt;\n\n//------------------------------------------------------------------------------------------------------------------------------\nHB_FUNC&#40; REPRINTRECT &#41;\n&#123;\n    HWND hwnd = &#40;HWND&#41; hb_parnl &#40;1&#41;;\n    HDC  hdc  = &#40;HDC&#41; hb_parnl &#40;2&#41;;\n    BOOL bSuccess = TRUE;\n    //INT  nSuccess = 0;\n\n    int TwipsPerPixelX = 1440/GetDeviceCaps &#40;hdc,LOGPIXELSX&#41;;  //Twips per Pixel\n    int TwipsPerPixelY = 1440/GetDeviceCaps &#40;hdc,LOGPIXELSY&#41;;\n\n    int cxPhysOffset = GetDeviceCaps&#40;hdc, PHYSICALOFFSETX&#41;;\n    int cyPhysOffset = GetDeviceCaps&#40;hdc, PHYSICALOFFSETY&#41;;\n    //int cxPhys = GetDeviceCaps&#40;hdc, PHYSICALWIDTH&#41;;\n    //int cyPhys = GetDeviceCaps&#40;hdc, PHYSICALHEIGHT&#41;;\n\n    int nHorzRes = GetDeviceCaps&#40; hdc, HORZRES &#41;; // Printarea in pixel  \n    int nVertRes = GetDeviceCaps&#40; hdc, VERTRES &#41;; //\n\n    int nTop    = &#40;hb_parnl&#40;3&#41;==NULL&#41; ? cyPhysOffset &#58; hb_parnl&#40;3&#41; ;\n    int nLeft   = &#40;hb_parnl&#40;4&#41;==NULL&#41; ? cxPhysOffset &#58; hb_parnl&#40;4&#41; ;\n    int nBottom = &#40;hb_parnl&#40;5&#41;==NULL&#41; ? cyPhysOffset+nVertRes &#58; hb_parnl&#40;5&#41; ;\n    int nRight  = &#40;hb_parnl&#40;6&#41;==NULL&#41; ? cxPhysOffset+nHorzRes &#58; hb_parnl&#40;6&#41; ;\n\n    long lPrinted = 0;\n    //long lToPrint = 0;\n\n    FORMATRANGE fr;\n    //CHARRANGE cr;\n\n    //SetMapMode &#40;hdc, MM_TEXT&#41;;\n\n    fr&#46;hdc = hdc;\n    fr&#46;hdcTarget = hdc;\n\n    fr&#46;rcPage&#46;top = 0;\n    fr&#46;rcPage&#46;left = 0;\n    fr&#46;rcPage&#46;bottom = nVertRes*TwipsPerPixelY;\n    fr&#46;rcPage&#46;right  = nHorzRes*TwipsPerPixelX;\n    //fr&#46;rc&#46;top   =  fr&#46;rcPage&#46;top+1440;\n    //fr&#46;rc&#46;left  =  fr&#46;rcPage&#46;left+1440;\n    //fr&#46;rc&#46;bottom = fr&#46;rcPage&#46;bottom;\n    //fr&#46;rc&#46;right =  fr&#46;rcPage&#46;right;\n    fr&#46;rc&#46;top   =  nTop*TwipsPerPixelY;\n    fr&#46;rc&#46;left  =  nLeft*TwipsPerPixelX;\n    fr&#46;rc&#46;bottom = nBottom*TwipsPerPixelY;\n    fr&#46;rc&#46;right =  nRight*TwipsPerPixelX;\n\n    //fr&#46;chrg&#46;cpMin = 0;\n    //fr&#46;chrg&#46;cpMax = -1;\n\n    SendMessage&#40;hwnd, EM_SETSEL, 0, -1&#41;;                  // Select the entire contents&#46;\n    SendMessage&#40;hwnd, EM_EXGETSEL, 0, &#40;LPARAM&#41;&amp;fr&#46;chrg&#41;;  // Put the selection into a CHARRANGE&#46;\n\n    //lToPrint = SendMessage &#40;hwnd, WM_GETTEXTLENGTH,0,0&#41;;\n    //lToPrint = SendMessage &#40;hwnd, WM_GETTEXTLENEX,0,0&#41;;\n\n    //SendMessage&#40;hwnd, EM_FORMATRANGE, &#40;WPARAM&#41; 0, &#40;LPARAM&#41; 0&#41;;\n\n    while &#40;fr&#46;chrg&#46;cpMin &lt; fr&#46;chrg&#46;cpMax &#41; //&amp;&amp; bSuccess&#41;\n    &#123;\n       // nSuccess = StartPage&#40;hdc&#41;;\n       // bSuccess = nSuccess &gt;= 0;\n       // if &#40;!fSuccess&#41; break;\n        lPrinted = SendMessage&#40;hwnd, EM_FORMATRANGE, &#40;WPARAM&#41; 1, &#40;LPARAM&#41; &amp;fr&#41;;\n        //lPrinted = SendMessage&#40;hwnd, EM_FORMATRANGE, &#40;WPARAM&#41; 0, &#40;LPARAM&#41; &amp;fr&#41;;\n        //           SendMessage&#40;hwnd, EM_DISPLAYBAND, &#40;WPARAM&#41; 0, &#40;LPARAM&#41; &amp;fr&#46;rc&#41;;\n\n        if &#40;lPrinted &lt;= fr&#46;chrg&#46;cpMin&#41;\n          &#123;\n            bSuccess = FALSE;\n            break;\n          &#125;\n        fr&#46;chrg&#46;cpMin = lPrinted;\n        fr&#46;rc&#46;top   =  fr&#46;rcPage&#46;top+1440;     // define new area for the next pages\n        //fr&#46;rc&#46;left  =  fr&#46;rcPage&#46;left+1440;\n        fr&#46;rc&#46;bottom = fr&#46;rcPage&#46;bottom;\n        //fr&#46;rc&#46;right =  fr&#46;rcPage&#46;right;\n        EndPage &#40;hdc&#41;;\n    &#125;\n\n    SendMessage&#40;hwnd, EM_FORMATRANGE, &#40;WPARAM&#41; 0, &#40;LPARAM&#41; 0&#41;;\n\n    hb_reta &#40;3&#41;;\n\n    hb_stornl &#40;lPrinted, -1, 1&#41;;\n    hb_stornl &#40;fr&#46;rc&#46;top, -1, 2&#41;;\n    hb_stornl &#40;fr&#46;rc&#46;bottom, -1, 3&#41;;\n\n    //hb_retni &#40;lPrinted&#41;;\n\n&#125;\n\n#pragma ENDDUMP\n[/code:38xlpxxa]\n\nThis is the result:\n\n[url=http&#58;//img473&#46;imageshack&#46;us/my&#46;php?image=rtftestbl1&#46;jpg:38xlpxxa][img:38xlpxxa]http&#58;//img473&#46;imageshack&#46;us/img473/2058/rtftestbl1&#46;th&#46;jpg[/img:38xlpxxa][/url:38xlpxxa]','',0,'GIA=','38xlpxxa',1,0,'',130,0,0),(35736,7773,3,233,0,'218.111.60.177',1186134226,1,0,1,1,1,0,'','','Thanks for the reply Stefan  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> . Initially I was surprised because I thought if TIni class was able to correctly read/set variable type such as date and logical then surely a numeric type  would\'ve been handled correctly also.\n\nMy initial workaround was to modify my readIni() to the following (saveIni() seems to be working as expected):\n[code:2fsnwa1a]\nfunction readIni&#40;&#41; \n  local oIni, aBF &#58;= array&#40;2&#41; \n  INI oIni FILE &quot;c&#58;\\app\\data\\app&#46;ini&quot; \n      GET aBF&#91;COL_K&#93; SECTION &quot;Balance&quot; ENTRY &quot;BF_COL_K&quot;  OF oIni DEFAULT &quot;&quot;\n      GET aBF&#91;COL_L&#93; SECTION &quot;Balance&quot; ENTRY &quot;BF_COL_L&quot;  OF oIni DEFAULT &quot;&quot;\n  ENDINI \n  aeval&#40;aBF,&#123;|x,ele| aBF&#91;ele&#93; &#58;= val&#40;x&#41;&#125;\nreturn nil\n[/code:2fsnwa1a]\n\nBut later, I changed the TIni:Get() method the following way and revert back my changes to readIni().\n[code:2fsnwa1a]\n     &#46;\n     &#46;\nif Empty&#40; &#58;&#58;cIniFile &#41;\n   uVar = GetProfString&#40; cSection, cEntry, cValToChar&#40; uDefault &#41; &#41;\n   if cType == &quot;N&quot;\n      uVar &#58;= val&#40;uVar&#41;\n   endif\nelse\n   uVar = GetPvProfString&#40; cSection, cEntry, cValToChar&#40; uDefault &#41;,;\n                           &#58;&#58;cIniFile &#41;\n   if cType == &quot;N&quot;\n      uVar &#58;= val&#40;uVar&#41;\n   endif\nendif\n     &#46;\n     &#46;\n[/code:2fsnwa1a]\n\nSeems to be working fine so far','',0,'AIA=','2fsnwa1a',1,0,'',233,0,0),(35737,7772,11,2,0,'87.218.146.72',1186141445,1,0,1,1,1,1,'','','Doug,\n\nWe email you new FiveLinux libraries with the right thumb behavior <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ec5jgmo',1,0,'',2,0,0),(35738,7701,3,267,0,'200.208.238.2',1186142089,1,0,1,1,1,1,'','','Antonio,\n\nI verified the topic that you he suggested, I identified some functions for the treatment of messages, but I did not understand as they can help me !','',0,'AIA=','114fswyg',1,0,'',267,0,0),(35739,7772,11,578,0,'218.214.35.132',1186144933,1,0,1,0,1,0,'','Thanks yet again - And some advice needed please','Thanks Antonio\n\nWhat is the best way of determining which row of a browse the user has selected. oBrw:nRowPos gives which visible row (as per your documentation) but to process selection we need to know which overall row.  Do we need to do that by supplying appropriate skip blocks updating a known variable or is there some easier way?\n\nThanks\n\nDoug (xProgrammer)','',0,'AIA=','fm23aktt',1,0,'',578,0,0),(35740,7746,3,1129,0,'201.30.244.130',1186145458,1,0,1,1,1,0,'','','Thank you!...','',0,'AIA=','i2swx5ql',1,0,'',1129,0,0),(35741,7772,11,2,0,'87.218.146.72',1186147225,1,0,1,1,1,1,'','','Doug,\n\nRecNo()\n\nis that what you mean ?','',0,'AIA=','1q0fn0pw',1,0,'',2,0,0),(35742,7701,3,2,0,'87.218.146.72',1186147808,1,0,1,1,1,1,'','','Vilian,\n\nDo you always get 1242696 no matter what key you press ?','',0,'AIA=','8rfxw3fd',1,0,'',2,0,0),(35743,7701,3,267,0,'200.208.238.2',1186148093,1,0,1,1,1,1,'','','Antonio,\n\nany one.','',0,'AIA=','x8wsxks4',1,0,'',267,0,0),(35744,7775,4,1130,0,'213.140.16.185',1186155535,1,0,1,1,1,0,'','','I solve the problem but i do not have \nan adequate documentation. \n  \nWas using the on line manual at the site <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/xhdn/referenceguide/\">http://www.xharbour.com/xhdn/referenceguide/</a><!-- m --> \nNow on line there is only a demo translated \nin Aramaic. \n  \nThe fivewin.chm file I do not seem contain\nreference of the GET class.\n  \nAlso in the on line manual at the site:\n<!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nI have not found what serves me. \n\nGrazie,\nCiao.\nEugenio.','',0,'AIA=','z854lk6y',1,0,'',1130,0,0),(35745,7701,3,2,0,'87.218.146.72',1186156319,1,0,1,1,1,1,'','','Do you get that value without pressing a key ?\n\nWhat documentation about such event does your activex provides ?','',0,'AIA=','11jo0h4v',1,0,'',2,0,0),(35746,7775,4,2,0,'87.218.146.72',1186156462,1,0,1,1,1,1,'','','Eugenio,\n\nfwclass.chm explains the Class TGet','',0,'AIA=','1tgcxra7',1,0,'',2,0,0),(35747,7744,6,760,0,'200.62.254.137',1186156963,1,0,1,1,1,0,'','Master Rene Flores ...','Gracias Master por la explicacion...\n\nY donde consigo el servidor local, quisiera probar en mis aplicaciones y demostrarles a clientes actuales y futuros de las bondades del ADS, ya que estos clientes estan creciendo empresarialmente.\nPara un programador independiente, como yo, quiero realmente migrar estas aplicaciones a C/S y porque no con acceso a internet.\n\nHay algun manual de como utilizar el servidor local en mis aplicaciones?\n\nMi correo es <!-- e --><a href=\"mailto:daxreyna@mixmail.com\">daxreyna@mixmail.com</a><!-- e --> , por cierto es un correo gratuito, ya que como programador independiente no tengo posibilidad de adquirir un correo empresarial o de paga.\n\nSi es que pudiera tener acceso al servidor local te lo agradeceria enormemente u otra forma de llegar a ella...\n\nSalu2 desde Peru-Iquitos\n\nFrancis','',0,'AIA=','34xhc2sr',1,0,'',760,0,0),(35748,7775,4,1130,0,'213.140.16.185',1186158002,1,0,1,1,1,0,'','','I apologize. \nI had not seen the Manual directory. \n  \nNow I have found 5 manuals\n FwClass, FwFun, FwProg, Fiveodbc, Fwcmd\n in hlp and chm format. \n  \n was much more than how serving me: -)\n\n many thanks,\n\nEugenio.  \n<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','zen799kn',1,0,'',1130,0,0),(35749,7761,6,1104,0,'200.115.251.248',1186158856,1,0,1,1,1,0,'','','Armando:\n\nMe surgió una dudita más respecto a el tema de pintar las líneas de un report.\nYo cuando estoy activando el Report, en ON INIT voy a otra función donde ahí imprimo línea por línea.\nHe probado la función para pintar las líneas pero pinta todo, es decir no pinta línea por medio.\n\n[code:18dnhm6l]&#46;&#46;&#46;&#46;\n\noReport&#58;CellView&#40;&#41;\noReport&#58;bStartLine &#58;= &#123;|oReport|IF&#40;oReport&#58;nCounter % 2 =0,PintaLi&#40;oReport&#41;,&#41;&#125; \n\nACTIVATE REPORT oReport ON INIT ListDiaEnfer2&#40;oReport,vMes,vAni,vDes,vHas,oDbf&#41;\n&#46;&#46;&#46;\nReturn nil\n//\n\n//\nFunction ListDiaEnfer2&#40;oReport,vMes,vAni,vDes,vHas,oDbf&#41;\n\nDO WHILE !oDbf&#58;Eof&#40;&#41;\n   oReport&#58;StartLine&#40;&#41;\n       oReport&#58;Say&#40; 1 , oDbf&#58;NOMBRE , 1 , 1 &#41;\n   oReport&#58;EndLine&#40;&#41;\n   oDbf&#58;Skip&#40;&#41;\nENDDO\nReturn nil\n//[/code:18dnhm6l]\nPinta todo como si fuera una misma línea.','',0,'AIA=','18dnhm6l',1,0,'',1104,0,0),(35750,7761,6,53,0,'189.139.21.38',1186160299,1,0,1,1,1,1,'','','Esteban:\n\nUmmm, no entiendo para que utilizas la función ListDiaEnfer()\nsi la Clase TReport ya utiliza un DO WHILE para imprimir todos los registros de la DBF activa.\n\nPodrías mostrar más código para ver como defines las columnas ?\n\nSaludos','',0,'AIA=','10o8417q',1,0,'',53,0,0),(35751,7761,6,1104,0,'200.115.251.248',1186161037,1,0,1,1,1,0,'','','[code:2h9bdkew]REPORT oReport TITLE Titulo CENTER;\n       HEADER Empresa,Titulo2,Titulo3 LEFT;\n       FOOTER &quot;Fecha&#58;&quot;+DTOC&#40;Date&#40;&#41;&#41;+&quot; Hora&#58;&quot;+Time&#40;&#41;+&quot; Pagina&#58;&quot;+STR&#40;oReport&#58;nPage,3&#41; RIGHT;\n       FONT oFont1,oFont2,oFont3,oFont4;\n       PREVIEW;\n       CAPTION &quot;Vista previa del listado&quot;\n\n\nCOLUMN TITLE &quot;Código&quot;          DATA &quot; &quot; CENTER SIZE 10\nCOLUMN TITLE &quot;Emplado&quot;         DATA &quot; &quot; CENTER SIZE 40\nCOLUMN TITLE &quot;Días Enfermo&quot;    DATA &quot; &quot; CENTER SIZE 10\n\nENDREPORT\n\noReport&#58;oTitle&#58;aFont&#91;1&#93;        &#58;=&#123;|| 4&#125;\noReport&#58;oHeader&#58;aFont&#91;1&#93;       &#58;=&#123;|| 3&#125;\noReport&#58;oHeader&#58;aFont&#91;2&#93;       &#58;=&#123;|| 3&#125;\noReport&#58;oHeader&#58;aFont&#91;3&#93;       &#58;=&#123;|| 3&#125;\noReport&#58;aColumns&#91; 1&#93;&#58;bTitleFont&#58;=&#123;|| 3&#125;\noReport&#58;aColumns&#91; 2&#93;&#58;bTitleFont&#58;=&#123;|| 3&#125;\noReport&#58;aColumns&#91; 3&#93;&#58;bTitleFont&#58;=&#123;|| 3&#125;\n\noReport&#58;CellView&#40;&#41;\n\nACTIVATE REPORT oReport ON INIT ListDiaEnfer2&#40;oReport,vMes,vAni,vDes,vHas&#41;\n\nDBCLOSEALL&#40;&#41;\noFont1&#58;End&#40;&#41;\noFont2&#58;End&#40;&#41;\noFont3&#58;End&#40;&#41;\noFont4&#58;End&#40;&#41;\nReturn nil\n//[/code:2h9bdkew]\n\nLo hago de esta forma porque dentro del DO WHILE necesito realizar otros procesos por cada empleado.','',0,'AIA=','2h9bdkew',1,0,'',1104,0,0),(35752,7776,2,235,0,'200.67.140.245',1186161891,1,0,1,1,1,0,'','Como se coloca un tooltip en...','Buen Dia a todos\n\nAlguien sabe como se coloca un tooltip en un Get y si es posible que se le pueda cambiar el color al que trae por default.\n\nuso fw22\n\ndesde ya muchas gracias','',0,'AIA=','2cwf7odj',1,0,'',235,0,0),(35753,7775,4,2,0,'87.218.146.72',1186163654,1,0,1,1,1,1,'','','Eugenio,\n\nYou are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1xgl13kk',1,0,'',2,0,0),(35754,7776,2,2,0,'87.218.146.72',1186163709,1,0,1,1,1,1,'','','oGet:cTooTip := \"Texto tooltip\"\n\npara modificar el color tienes que modificar la clase TWindow','',0,'AIA=','3an999q3',1,0,'',2,0,0),(35755,7656,3,2,0,'87.218.146.72',1186163946,1,0,1,1,1,1,'','','Stefan,\n\nIt looks as you are doing good progress. I can\'t debug/trace your code these days as I am busy with other tasks. I can help you on some specific questions only.','',0,'AIA=','1j7ibrps',1,0,'',2,0,0),(35756,7761,6,53,0,'189.139.21.38',1186164181,1,0,1,1,1,1,'','','Esteban:\n\nOk, podrías intentar dejando que la TReport haga su ciclo normal solo para probar si con eso se soluciona el problema del pintado, pues no veo otra razón.\n\nSaludos','',0,'AIA=','2vmn2upf',1,0,'',53,0,0),(35757,7701,3,267,0,'200.208.238.2',1186164215,1,0,1,1,1,1,'','','Antonio,\n\nOn these specific events the following text only exists:\n\n[code:21dqwyrg]Standard events&#58; \n\nThe control supports these standard events&#58; Click, Double click, Got Focus, and Lost Focus, KeyDown, KeyPress, KeyUp&#46; The KeyDown, KeyPress and KeyUp event take one integer parameter which passes the value of the key code&#46;\n[/code:21dqwyrg]\n\nThe support technician of them returned me the following one:\n\n[code:21dqwyrg] KeyPress event is not an internal TE message &#40;it is only an ActiveX message&#41;, it would not be routed to the callback message&#46;  The KeyPress event takes only one parameter which is the keyvalue for the keystroke&#46;  So nKey1 should be the numeric key values&#46;[/code:21dqwyrg]\n\n\n   I tested this event in Visual Basic and it seems to work properly.  However, VB shows only one parameter, which is nKey.','',0,'AIA=','21dqwyrg',1,0,'',267,0,0),(35758,7777,6,793,0,'201.225.210.59',1186164243,1,0,1,1,1,0,'','error al enlazar la libreria adordd','Por favor me pueden comentar como resuelvo este error\n\nError: Unresolved external \' _hb_itemGetSymbol from usrrdd.lib\nError: Unresolved external \' _hb_xvmPopLogical  from usrrdd.lib\nError: Unresolved external \' _hb_xvmPushlocalbyref  from usrrdd.lib\n\n\ngracias por su apoyo\n\nErick almanza \nPanama','',0,'AIA=','3ezu9i9w',1,0,'',793,0,0),(35759,7777,6,2,0,'87.218.146.72',1186164967,1,0,1,1,1,1,'','','Erick,\n\nEstas usando Harbour ó xHarbour ? Que versión ?','',0,'AIA=','3574l3cu',1,0,'',2,0,0),(35760,7701,3,2,0,'87.218.146.72',1186165085,1,0,1,1,1,1,'','','Vilian,\n\nYou may need to modify these methods in Class TActiveX&#058;\n\nMETHOD KeyChar() VIRTUAL\nMETHOD KeyDown() VIRTUAL','',0,'AIA=','3fqfbv79',1,0,'',2,0,0),(35761,7701,3,267,0,'200.208.238.2',1186166108,1,0,1,1,1,1,'','','Antonio,\n\nI made the modification, but nothing he modified in the result.','',0,'AIA=','1jmwzwb3',1,0,'',267,0,0),(35762,7761,6,1104,0,'200.115.251.248',1186166573,1,0,1,1,1,0,'','','Armando:\n\nSi hago lo siguiente funciona perfecto:\n\n[code:3dvicx1f]oReport&#58;bSkip &#58;=&#123;|nRecs|oDbf&#58;Skip&#40;1&#41;&#125;\noReport&#58;bStartLine &#58;= &#123;|oReport|IF&#40;oReport&#58;nCounter % 2 =0,PintaLi&#40;oReport&#41;,&#41;&#125; \n\nACTIVATE REPORT oReport ON INIT oDbf&#58;Seek&#40;vDes,&#46;t&#46;&#41;[/code:3dvicx1f]\n\nPero si en ON INIT Mando una función tomo como si fuera todas las líneas una sola y la pinta.','',0,'AIA=','3dvicx1f',1,0,'',1104,0,0),(35763,7778,6,41,0,'200.105.194.234',1186166894,1,0,1,1,1,0,'','Algunos addons en la clase treport','Holas,\n\nles dejo unas modificaciones para la clase report, haber si les sirve\n\nme comentan\n\nsaludos\n\nMarcelo\n\n[url:2uculsx2]http&#58;//rapidshare&#46;com/files/46781445/reportes&#46;zip&#46;html[/url:2uculsx2]','',0,'EA==','2uculsx2',1,0,'',41,0,0),(35764,7779,6,911,0,'200.72.141.53',1186167164,1,0,1,1,1,0,'','Sobre ADO y ADORDD','Hola a todos:\nQuién me puede explicar las diferencias entre ADORDD y ADO?\nAdemás si alguien de ustedes ha probado conectándose a ORACLE, ya que con ADORDD además del nombre de la base de datos y la tabla debo indicar el nombre del esquema y no se donde se puede anexar esta información.\nMuchas gracias\nDavid Lagos S.\nCoquimbo-Chile','',0,'EA==','3ryuyjir',1,0,'',911,0,0),(35765,7753,3,689,0,'201.47.44.34',1186167704,1,0,1,1,1,0,'','','Antonio,\nThank you so much, I changed ttoolbar class and add some methods to works with change button bitmaps, when is mouse over and change bitmap insted use inactive button.\n\nTake a look, do you want that I send you the code changed?\n[img:1nvq83q2]http&#58;//www&#46;swsistemas&#46;com&#46;br/images/scr1&#46;jpg[/img:1nvq83q2]\n[img:1nvq83q2]http&#58;//www&#46;swsistemas&#46;com&#46;br/images/scr2&#46;jpg[/img:1nvq83q2]\n\nRegards[/img][/url]','',0,'CA==','1nvq83q2',1,0,'',689,0,0),(35766,7780,3,41,0,'200.105.194.234',1186168474,1,0,1,1,1,0,'','some addons to treport class','Hola,\n\nhere I let some modifications to the report class, I hope this will be usefull for some of you\n\ncomments wellcome\n\nregards\n\nMarcelo\n\n\n[url:1sf35qnm]http&#58;//rapidshare&#46;com/files/46781445/reportes&#46;zip&#46;html[/url:1sf35qnm]','',0,'EA==','1sf35qnm',1,0,'',41,0,0),(35767,7730,6,911,0,'200.72.141.53',1186168625,1,0,1,1,1,0,'','','ufff, debido a coasas de la vida estuve desconectado de este foro por cerca de 2 años y medio y....que noticia tan triste.\nYo recibí mucha ayuda de JJ (yo vivo en Chile). Él siempre dispuesto a prestar ayuda sin nada a cambio. Definitivamente los buenos de van primero.\nDonde estés JJ, con mucho cariño, un abrazo.\n\nPor cierto: Qué fue de Manuel Mercado? con quien intercambié muchas experiencias por messenger, a través de este foro y que más decir de su tremanda clase TSBRowse?\nCarlos: el Jesús, su apellido por favor.\n\nDavid Lagos S. \nCoquimbo-Chile','',0,'EA==','1bjs9kmw',1,0,'',911,0,0),(35768,7701,3,2,0,'87.218.146.72',1186169263,1,0,1,1,1,1,'','','Vilian,\n\nI don\'t know, don\'t have more ideas <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nThats the problem with ActiveX (same as old Microsoft VBXs). We don\'t have their source code and we don\'t have full control over them','',0,'EA==','92cmbij9',1,0,'',2,0,0),(35769,7701,3,267,0,'200.208.238.2',1186169684,1,0,1,1,1,1,'','','Antonio,\n\nIf you to install the control in its computer help to decide the problem?','',0,'EA==','2plbn0h6',1,0,'',267,0,0),(35770,7701,3,267,0,'200.208.238.2',1186170054,1,0,1,1,1,1,'','','Antonio,\n\nI asked to the support of them - Exists some another way to implement what necessary?\n\nThe support technician of them returned me the following one:\n\n[code:12kvpa9c]\n\n    If your application lets you define callback function, then you can use the TerRegisterMsgCallback function to register your callback function&#46;  TE would then route the internal TE messages to the callback function&#46;  The callback function should have the following prototypes&#58;\n\nLRESULT WINAPI _export TerCallback&#40;HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam&#41;\n\n   Also, since KeyPress event is not an internal TE message &#40;it is only an ActiveX message&#41;, it would not be routed to the callback message&#46;  You can instead use the PreProcess event for this purpose&#46;[/code:12kvpa9c]\n\nAid?','',0,'AIA=','12kvpa9c',1,0,'',267,0,0),(35771,7781,7,1030,0,'200.115.251.248',1186172089,1,0,1,1,1,0,'','Actualización de FWPPC','Antonio:\n\nLa última versíon de FWPPC que esta disponible permite abrir una DBF con NTX como SHARED?\nPregunto porque la quiero comprar solo si me resuelve ese problema.\n\nSaludos, Natalia.','',0,'AIA=','9mk2otvj',1,0,'',1030,0,0),(35772,7776,2,235,0,'200.67.140.245',1186173196,1,0,1,1,1,0,'','','Muchas gracias Antonio','',0,'AIA=','3ufygkx7',1,0,'',235,0,0),(35773,7781,7,2,0,'87.218.146.247',1186176364,1,0,1,1,1,1,'','','Natalia,\n\nSí','',0,'AIA=','2jahtigm',1,0,'',2,0,0),(35774,7701,3,2,0,'87.218.146.247',1186176559,1,0,1,1,1,1,'','','Vilian,\n\n&gt; You can instead use the PreProcess event for this purpose.\n\nWhats that ? Tell him to explain you whats the PreProcess event and a sample of its use','',0,'AIA=','oezcekz2',1,0,'',2,0,0),(35775,7656,3,299,0,'24.233.172.101',1186177829,1,0,1,0,1,0,'','','Maybe this will help.  Below is a method from a class where I do printing of 4 different rtf objects.  It shows how to continue printing page after page until the 4 rtf objects have been processed.\n\n[code:tct6lwzn]\n*-------------------------------------------------------------------------------------------------------------------------------\nMETHOD PrintBodyWithAttributes&#40;&#41; CLASS Transcription\n\nlocal cTitle &#58;= &quot;Title goes here&quot;\nlocal nFrom		&#58;= 0\nlocal a 		&#58;= &#58;&#58;oprn&#58;Inch2Pix&#40; &#58;&#58;nTop, &#58;&#58;nLeft &#41;\nlocal b		&#58;= &#58;&#58;oprn&#58;Inch2Pix&#40; &#58;&#58;nRight, &#58;&#58;nBottom &#41;\nlocal isdone	&#58;= &#46;f&#46;\nlocal aoRtf		&#58;= &#123; &#58;&#58;oTranscript&#58;ortf1, &#58;&#58;oTranscript&#58;ortf2, &#58;&#58;oTranscript&#58;ortf3, &#58;&#58;oTranscript&#58;ortf4 &#125; \nlocal i		&#58;= 1\nlocal aRet\nlocal nLen\nlocal aFont, nColor\nlocal nTotPage	&#58;= 0\n\n	&#58;&#58;nLastLine &#58;= &#58;&#58;oPrn&#58;Pix2Inch&#40; a&#91; 1 &#93;, 0 &#41;&#91;1&#93;\n\n	While !isdone\n\n		RESetSelection&#40; aoRtf&#91;i&#93;&#58;hWnd, nFrom, -1&#41;\n		nLen	&#58;= Len&#40; aoRtf&#91; i &#93;&#58;GetSel&#40;&#41; &#41; -1\n		aRet &#58;= REPrintBox&#40; aoRtf&#91;i&#93;&#58;hWnd, iif&#40; &#58;&#58;isPreview, &#58;&#58;oPrn&#58;hDCOut, &#58;&#58;oPrn&#58;hDC &#41;,&#46;t&#46;, a&#91;1 &#93;, a&#91;2&#93;, b&#91;1&#93;, b&#91;2&#93;, nFrom &#41;\n		nFrom &#58;= aRet&#91; 1 &#93;\n\n		DO CASE\n			CASE nFrom &lt; nlen			//did not finish current rtf, must run over to next page\n\n				ntotPage++	\n				aoRtf&#91;i&#93;&#58;nPrintedPages++	//number of pages ocupied by current rtf\n				&#58;&#58;oprn&#58;InchSay&#40; 10&#46;53, 7&#46;5, &quot;Page &quot; + Str&#40; nTotPage, 2 &#41;, &#58;&#58;aFonts&#91; 1 &#93;,,,, PAD_RIGHT &#41;\n				&#58;&#58;oprn&#58;InchSay&#40; 10&#46;0, 4&#46;25, &quot;Continues on page &quot; + str&#40; nTotPage + 1, 2 &#41; + &quot;&#46;&#46;&#46;&quot;, &#58;&#58;ofont,,,, 2 &#41;\n\n				&#58;&#58;oprn&#58;endPage&#40;&#41;\n				&#58;&#58;oprn&#58;Startpage&#40;&#41;\n\n				a &#58;= &#58;&#58;oprn&#58;Inch2Pix&#40; &#58;&#58;ntop, &#58;&#58;nLeft &#41;				//new print region\n				b &#58;= &#58;&#58;oprn&#58;Inch2Pix&#40; &#58;&#58;nRight, &#58;&#58;nBottom &#41;				//area for text\n\n			CASE i == 4\n				isdone &#58;= &#46;t&#46;\n\n			CASE i &lt; 4\n				if !empty&#40; aoRtf&#91; i &#93;&#58;GetText&#40;&#41; &#41;\n					&#58;&#58;nLastLine &#58;= &#58;&#58;oPrn&#58;Pix2Inch&#40; aRet&#91; 2 &#93;, 0 &#41;&#91;1&#93;	//findout where was last line printed\n					&#58;&#58;nlastline += 0&#46;32						//add couple of blank lines\n				Endif\n\n				i++	;nFrom &#58;= 0							//restart position zero for new rtf\n				a &#58;= &#58;&#58;oprn&#58;Inch2Pix&#40; &#58;&#58;nLastLine, &#58;&#58;nLeft &#41;		//new print region\n\n			OTHERWISE				//unknown problems --get the hell out of here\n				isdone &#58;= &#46;t&#46;\n		END\n	End\n\n	&#58;&#58;oprn&#58;InchSay&#40; 10&#46;53, 7&#46;5, &quot;Page &quot; + Str&#40; nTotPage+1, 2 &#41;, &#58;&#58;aFonts&#91; 1 &#93;,,,, PAD_RIGHT &#41;\n	&#58;&#58;nLastLine &#58;= &#58;&#58;oPrn&#58;Pix2Inch&#40; aRet&#91; 2 &#93;, 0 &#41;&#91; 1 &#93;	//Save pos where last line printed before printing footer\n\nreturn nil\n[/code:tct6lwzn]\n\nIf you are only printing 1 rtf, then the code would be much simpler.  Most of the work you need is inside the 1st case in the code above.\n\n\nReinaldo.','',0,'AIA=','tct6lwzn',1,0,'',299,0,0),(35776,7757,3,299,0,'24.233.172.101',1186178545,1,0,1,0,1,0,'','','To use Select statements you need to use a Data Dictionary.  It is a great advantage to use a Data Dictionary.  In the DD you declare the path to each file.  The Select statment will work on the DD where you are currently connected to.\n\nAs a side note:  using DD you can set dbf files and directories as read only or even hidden from all users except the user that owns the ADS daemon.  This will allow your application to work perfectly while connected to the DD while it protects your dbfs/cdxs/ntxs from being accesible via windows explorer or a dos prompt or anything else.  Great for data security.  Files can not be copied, looked at, deleted...\n\nI hope the first parragraph answers your question.\n\n\nReinaldo.','',0,'AIA=','1iu4473c',1,0,'',299,0,0),(35777,7761,6,53,0,'189.139.97.249',1186179850,1,0,1,1,1,1,'','','Esteban:\n\nEso parece confirmar mi teoria, trata de adaptar los cambios a cada empleado pero usando en ciclo natural de TReport.\n\nSaludos','',0,'AIA=','19e4qbpa',1,0,'',53,0,0),(35779,3306,6,147,0,'190.30.114.208',1186181759,1,0,1,0,1,1,'','','JLLinas;\nestoy probando el código que dejaste, pero resulta que el método TTVITEM:SET() no lo tiene la clase TTVItem.\nUso la version 26MAY2005, es por eso?\n\ngracias','',0,'AIA=','dxszotel',1,0,'',147,0,0),(35780,7783,6,1013,0,'200.121.79.126',1186183644,1,0,0,1,1,0,'','SOS  cual es el nombre del disco','Estimados \n\nComo puedo saber el nombre del disco en el que me encuentro \n\nGracias de antemano \n\nMarcelo','',0,'AIA=','13631d5g',1,0,'',1013,0,0),(35781,7730,6,43,0,'189.188.14.90',1186183733,1,0,1,1,1,0,'','','No tengo palabras... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nJJ... Descansa en PAZ\n\n\nSaludos\nMarco A. Delgado','',0,'AIA=','2ycdtv8z',1,0,'',43,0,0),(35782,7783,6,1063,0,'200.27.109.129',1186186204,1,0,1,1,1,1,'','El cDrive es la unidad de disco que necesitas la informacion','oDisk := TDiskInfo():New( cDrive )\n oDisk:TDIVer()\n\n label:=oDisk:Label() //Etiqueta\n drive:=oDisk:Drive() //Unidad\n dtype:=oDisk:DriveType() //Tipo de Unidad\n nserie:=oDisk:NumSerie() //Numero de Serie\n sarchivo:=oDisk:FileSystem() //Sistema de Archivo\n scluster:=oDisk:SBCluster() //Sector por Cluster\n bsector:=oDisk:BBSector() //Bytes por Sector\n susado:=oDisk:UsedSpace() //Espacio Utilizado\n sutilizado:=oDisk:SUSpace() //Espacio Utilizado, Formato Corto\n sfree:=oDisk:FreeSpace() //Espacio Libre\n sfreeshort:=oDisk:SFSpace() //Espacio Libre, Formato Corto\n stotal:=oDisk:TotalSpace() //Espacio Capacidad\n stotalshort:=oDisk:STSpace() //Espacio Capacidad, Formato Corto\n sfree100:=oDisk:PUSpace() //Espacio Libre, en Porcentaje %\n sutilizado100:=oDisk:PFSpace() //Espacio Utilizado, en Porcentaje %','',0,'AIA=','l55fuqje',1,0,'',1063,0,0),(35783,7784,6,1063,0,'200.27.109.129',1186186437,1,0,1,1,1,1,'','Unrecoverable ERROR 1010','me salen distintos errores en un programa especifico, generalmente es de indices, cuando ordeno se arregla el problema\npero despuesde un rato vuelve a salir el mimso error\n\n\no este otro\n\nunrecoverable error 9201\n\n\n\nayuda por favor','',0,'AIA=','2hf1fkvh',1,0,'',1063,0,0),(35784,7772,11,578,0,'218.214.35.132',1186191967,1,0,1,0,1,0,'','Thanks','In FiveWin I used oBrw:GetPos() as an index into an array which worked for browsing arrays.  I hadn\'t worked out that the record pointer for a file browse was positioned at the highlighted record.  Now I know.\n\nOnto browsing arrays.\n\nThanks.','',0,'AIA=','2bud5zvw',1,0,'',578,0,0),(35785,7784,6,78,0,'190.40.251.197',1186195144,1,0,1,1,1,0,'','','Me parece que ese salia cuando accesaba dbfs de Fox,,, por el tema de los indices...., copya tus dbfs con otro nombre, crea las dbfs en blanco yluego \"appendizas\" los datos de las dbfs renombradas,,,\nSalu2','',0,'AIA=','172ed8v0',1,0,'',78,0,0),(35786,7772,11,2,0,'87.218.146.247',1186210018,1,0,1,1,1,1,'','','Doug,\n\nOr OrdKeyNo() if you are using an index','',0,'AIA=','1j3309pd',1,0,'',2,0,0),(35787,7772,11,2,0,'87.218.146.247',1186210689,1,0,1,1,1,1,'','','Doug,\n\nIf it is a single dimensioned array then you can use a standard listbox instead of a browse. Here you have a sample for the Clipper classic AChoice():\n[code:n30oqmfd]\n// Using ListBoxes to perform simple selections\n#include &quot;FiveLinux&#46;ch&quot;\n\n//----------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; MsgSelect&#40; &#123; &quot;one&quot;, &quot;two&quot;, &quot;three&quot; &#125;, &quot;two&quot; &#41; &#41;\n\nreturn nil\n\n//----------------------------------------------------------------//\n\nfunction MsgSelect&#40; aItems, cValue, cTitle &#41;\n\n   local oDlg\n\n   DEFAULT cTitle &#58;= &quot;Please, select&quot;\n\n   DEFINE DIALOG oDlg TITLE cTitle SIZE 220, 150\n\n   @  1, 2 LISTBOX cValue ITEMS aItems SIZE 180, 95 OF oDlg\n\n   @ 12, 2 BUTTON &quot;_OK&quot; OF oDlg SIZE 80, 25 ;\n       ACTION oDlg&#58;End&#40;&#41;\n\n   @ 12, 12 BUTTON &quot;_Cancel&quot; OF oDlg SIZE 80, 25 ;\n       ACTION &#40; cValue &#58;= nil, oDlg&#58;End&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn cValue\n\n//----------------------------------------------------------------//\n[/code:n30oqmfd]\n[url=http&#58;//imageshack&#46;us:n30oqmfd][img:n30oqmfd]http&#58;//img360&#46;imageshack&#46;us/img360/3347/achoicenv9&#46;png[/img:n30oqmfd][/url:n30oqmfd]','',0,'GIA=','n30oqmfd',1,0,'',2,0,0),(35788,7779,6,2,0,'87.218.146.247',1186211585,1,0,1,1,1,1,'','','ADO:\n<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/ActiveX_Data_Objects\">http://es.wikipedia.org/wiki/ActiveX_Data_Objects</a><!-- m -->\n\nADORDD:\nEs un RDD para Harbour/xHarbour que usa ADO','',0,'GIA=','1myii3qp',1,0,'',2,0,0),(35789,7784,6,1063,0,'200.27.109.129',1186233533,1,0,1,1,1,1,'','','podra ser que las dbf la acceso con fivewin 2.4 165 bits y tambien trabajo con esas misma bases datos en fivewin/xharbour 32 bits, podra ser tambien ese el problema. Porque yo no uso fox, igualmente voy hacer lo que me indicas a ver que sucede\n\ngracias','',0,'GIA=','2sxxlmo8',1,0,'',1063,0,0),(35790,7715,6,760,0,'200.62.254.137',1186240828,1,0,1,1,1,0,'','Cómo empezar con ADS ?','Hola a todos del foro\n\nY para el ADS Local que pasos se hace para la programacion en nuestros sistemas..., que se incluye en los prg, que se linkea ?\n\nSalu2\n\nFrancis','',0,'GIA=','36cr6qsg',1,0,'',760,0,0),(35791,7783,6,1013,0,'201.230.41.5',1186242159,1,0,0,1,1,0,'','Nombre del disco','Gracias Elmo, pero me sale un error \nUnresolved external _HB_FUN_TDISKINFO ..........','',0,'GIA=','1zddre82',1,0,'',1013,0,0),(35792,7785,3,34,0,'68.5.217.82',1186245652,1,0,1,1,1,1,'','Who uses TSBrowse and how ?','I started using TSBrowse throughout an application using the following:\n   FWH 7.07\n   xHarbour July Beta 2007\n   Windows Vista Ultimate\n   Advantage Data Server\n\nSuddenly I have people who are working with this complaining of the following sysmptoms:\n\nSystem lock ups\nBrowse refreshes not being properly displayed\nLong delays loading screens or refreshing data.\n\nNone of these problems occured when using FWHarbours standard WBrowse.\n\nHere is my question.  I would like to know who uses TSBrowse, if you use it with xHarbour Builder / xCC, if you use it with ADS, and if you experience any problems.  \n\nI have noted that it does not behave well with arrays, and it does not pre-process well ( FIELDS and HEADERS especially ), and that the UPDATE command can cause a rapid blinking if it is applied.\n\nYour input would be greatly appreciated.\n\nTim','',0,'GIA=','2pwt14zn',1,0,'',34,0,0),(35793,7777,6,793,0,'190.32.57.150',1186249462,1,0,1,1,1,0,'','Error a enlazar adorrd','Don Antonio\n\nEstoy usando la version 99.6 xharbour\nfwh 2.7\n\n\n\nSaludos \nErick almanza\nPanama','',0,'GIA=','14rpcn4i',1,0,'',793,0,0),(35794,7730,6,496,0,'200.107.36.176',1186249704,1,0,1,1,1,0,'','','Un amigo más que se nos adelantó la partida al infinito......\n\nNo lo conocí pero, su nombre siempre era muy familiar en el foro hace algún tiempo atrás, de quien también recibí ayuda.  \n\nQue nos ilumine desde donde quiera que esté.... y descanse en Paz JJ Machado.\n\n\n\n\nMarcelo Jingo','',0,'GIA=','17oeczm4',1,0,'',496,0,0),(35795,7777,6,2,0,'87.218.146.168',1186253287,1,0,1,1,1,1,'','','Erick,\n\nPosiblemente necesites una versión de xHarbour más reciente. Prueba a descargarla desde aqui: <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'GIA=','urwp4lax',1,0,'',2,0,0),(35796,7715,6,2,0,'87.218.146.168',1186253452,1,0,1,1,1,1,'','','En samples\\buildh.bat ó buildx.bat hay dos líneas que tienes que descomentar. Estan indicadas en esos ficheros.\n\nTienes un ejemplo de uso en samples\\TestAds.prg','',0,'GIA=','240c6rib',1,0,'',2,0,0),(35797,7786,3,620,0,'65.245.57.110',1186258894,1,0,1,1,1,0,'','compiling multiple source files','Ok...rookie question....its been so long since Ive needed to do this....\nI have my source code in one large PRG file...I want to break into multiple PRG modules.  How do I compile (harbour) using multiple PRG files?\n\nthanx','',0,'GIA=','1kumv6vq',1,0,'',620,0,0),(35798,7785,3,35,0,'65.188.6.143',1186265402,1,0,1,1,1,0,'','','Tim\n\nI know you like a MSVC ( like ) compiler .. I do as well .. however, I have found I can not compile Hernan\'s TwBrowse with anything else but Borland 55 or 5.82.\n\nIf I am using ADS .. I compile with Borland and use Hernan\'s Twbrowse .. it is optimized for either ADS or DBFCDX .. actually ADS works very nicely.\n\nIf I am using ADO and local recordsets I find the standard FWH Twbrowse to be work very nicely.\n\nFor me .. if it is ADS driven from the backend .. Borland and Hernan\'s Twbrowse is the best choice.\n\nJust my 2 cents worth.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'GIA=','pfq79hpw',1,0,'',35,0,0),(35799,7785,3,34,0,'68.5.217.82',1186267191,1,0,1,1,1,1,'','Borland','I really don\'t want to revert to Borland, but I can identify with the problem using Hernan\'s browse with xCC.\n\nI moved from WBrowse because I wanted 1) header colors, 2) column alignment, and 3) larger cells and a better font.  Alternate shading of rows is nice also.  These are available in TSBrowse.  I was willing to go for the additional coding, but its just getting to be frustrating with all the problems that have arisen.\n\nIf no one who uses TSBrowse has any problems with advantage, then I can assume its in my code ... but I would sure like to know the experience of others.','',0,'GIA=','1dul0c21',1,0,'',34,0,0),(35800,7786,3,2,0,'87.218.146.168',1186267799,1,0,1,1,1,1,'','','Greg,\n\nThe best way to build an application with multiple PRGs is using a make file.\n\nAt FWH/makes you have bormake.zip that includes a Borland make sample and the used files to build a FWH app. There is also a msmake.zip sample in case that you want to use Microsoft make instead of Borland make.\n\nIn case that you just want to modify samples\\buildh.bat or buildx.bat files to manage several PRGs (one.prg, two.prg and three.prg), then all you have to do is:\n\n%hdir%\\bin\\harbour one /n /i%fwh%\\include;%hdir%\\include /w /p\n\n%hdir%\\bin\\harbour two /n /i%fwh%\\include;%hdir%\\include /w /p\n%hdir%\\bin\\harbour three /n /i%fwh%\\include;%hdir%\\include /w /p\n\n\n%bcdir%\\bin\\bcc32 -M -c -O2 -I%hdir%\\include one.c \n%bcdir%\\bin\\bcc32 -M -c -O2 -I%hdir%\\include two.c \n%bcdir%\\bin\\bcc32 -M -c -O2 -I%hdir%\\include three.c\n\necho c0w32.obj + &gt; b32.bc\n\necho one.obj + &gt;&gt; b32.bc\n\necho two.obj + &gt;&gt; b32.bc\necho three.obj, + &gt;&gt; b32.bc\necho one.exe, + &gt;&gt; b32.bc\n \n...','',0,'GIA=','2pks3qqx',1,0,'',2,0,0),(35801,7787,6,1106,0,'190.64.180.186',1186268747,1,0,1,1,1,0,'','wbrowse suma de columas','Amigos:\n\nEs posible con el browse de HDC sumar una columna y colocar\nel resultado en el footer?, que cambie segun se inserta o borran registros\n\nMuchas gracias\nSaludos\n\nRuben Fernandez','',0,'GIA=','tikv3jac',1,0,'',1106,0,0),(35802,7788,6,987,0,'189.133.6.158',1186272071,1,0,1,1,1,0,'','Problemas con los Controles','Estimados Colegas del Foro:\n\nEstoy revisando los toque finales de mi Sistema y me encontre con un pequeño problema <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> :\n\nResulta que si lo ejecuto con WinXP con los temas \"Luna XP\" que tiene por defecto trabaja bien y los controles se ven perfectamente <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , pero si por alguna razon deshabilito los temas y aplico la Apariencia \"Clásica de Windows\", o si se ejecuta el programa  en Windows 2000  <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> los controles GET no se visualizan <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nLes dejo las Imagenes pa que le hechen un vistazo:\n\nAqui se visualiza bien:\n<!-- m --><a class=\"postlink\" href=\"http://img224.imageshack.us/img224/5990/imagen3mn6.jpg\">http://img224.imageshack.us/img224/5990/imagen3mn6.jpg</a><!-- m -->\n\nAqui ya no se ven los Gets:\n<!-- m --><a class=\"postlink\" href=\"http://img247.imageshack.us/img247/209/imagen6mg6.jpg\">http://img247.imageshack.us/img247/209/imagen6mg6.jpg</a><!-- m -->\n\nTengo todos los controles gets definidos, así como las variables que las contienen.\nCreo que puede ser problema del Archivo \"WindowsXP.Manifest\", de hecho lo tengo renombrado a: \"XPVISTA.MAN\", no creo que tenga algo que ver el nombre del Archivo.\n\nDe antemano agradesco sus sugerencias y soluciones...\n\nI.S.C. Víctor Daniel Cuatécatl León\nMuy pronto mi sitio web:  <!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'GIA=','3spq6ln4',1,0,'',987,0,0),(35803,7788,6,2,0,'87.218.146.168',1186272762,1,0,1,1,1,1,'','','Victor,\n\nEn el recurso, situa los grupos antes de los Gets.','',0,'GIA=','26tvmm4u',1,0,'',2,0,0),(35804,7787,6,73,0,'189.157.181.40',1186279861,1,0,1,1,1,0,'','','Ruben, por supuesto que se puede, mira aqui no es captura, pero se hace igual..\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02c9dddc70/tot_footers.JPG.html\">http://hyperupload.com/download/02c9ddd ... s.JPG.html</a><!-- m -->\nsalu2\npaco','',0,'GIA=','5nng4keu',1,0,'',73,0,0),(35805,7772,11,578,0,'218.214.35.132',1186280250,1,0,1,0,1,0,'','Getting There!','Thanks Antonio\n\nThen I can use oLB:nAt - and I can use LISTBOX frequently by combining what would have been separate columns into a single dimension array, for example\n\nLINARES, Antonio\n\nrather than 2 columns.\n\nI can browse arrays fine by writing appropriate code blocks but it appears that if you have more than 1 browse on a window then the vertical scroller only works for the first one. \n\nThat shouldn\'t be a big problem as if I use LISTBOXes wherever posible I will probably only need one BROSE on any dialog.\n\nI note that LISTBOX seems to defaults to item 1 selected but doesn\'t show that on the screen.  I can change the default setting with\n\noLB:Change(5)\n\nbut that isn\'t shown either.\n\nHow can I get it to paint with default selection shown?\n\nIdeally I would like a LISTBOX that initially returned 0 for oLB:nAT - ie no selection has been made.','',0,'GIA=','1dms395a',1,0,'',578,0,0),(35806,7789,6,66,0,'200.127.38.83',1186282521,1,0,1,0,1,0,'','Tgantt para xharbour  donde puedo bajarla','Estimados Colegas\n\nDonde puedo descargar la clase tgantt para xharbour\n\nDesde ya muchas gracias\nFabian\n\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'GIA=','1y2zs24v',1,0,'',66,0,0),(35807,7732,3,27,0,'62.174.195.220',1186310865,1,0,1,1,1,1,'','No Zoom Preview','With Harbour I have no problems with the same aplication. Only after moving to XHarbour I have the problem. Checking again doble click does qive a slight zoom but nowhere near facto2 whicha I get doble clicking with a 16 bit version of the program.','',0,'GIA=','36pvfr6p',1,0,'',27,0,0),(35808,7787,6,1106,0,'201.217.174.117',1186317141,1,0,1,1,1,0,'','','Gracias Paco:\n\nEl asunto es como se hace...\n\nSaludos y Gracias\n\nRuben Fernandez.,','',0,'GIA=','1ckp47rg',1,0,'',1106,0,0),(35809,7789,6,644,0,'200.82.79.4',1186324109,1,0,1,1,1,0,'','','La clase tgant ya no es libre. es de pago. saludos','',0,'GIA=','zxfebq69',1,0,'',644,0,0),(35810,7787,6,138,0,'200.56.91.233',1186325743,1,0,1,1,1,1,'','','Es muy simple:\n\nUn \"footer\" es un arreglo de cadenas de caracteres:\n\noBrw:aFooters := {\"Sumas\",TRANSFORM(suma(),\"99999\"), .....}\n\nLa magia consiste en recalcular los footers cada vez que haces una insercion o un borrado en la tabla.\n\n\nLa cosa sale mas rapido si haces bloques de codigo en lo footers:\n\n[code:2ilgm61c]oLbx2&#58;aFooters &#58;= &#123;&quot;Sumas&#58;&quot;,;\n                              Transform&#40;EVAL&#40;&#123;|| SumaSal&#40;aSaldos,2,oLbx2&#41;&#125;&#41;,&quot;999,999,999&#46;99&quot;&#41;,;\n                              Transform&#40;EVAL&#40;&#123;|| SumaSal&#40;aSaldos,3,oLbx2&#41;&#125;&#41;,&quot;999,999,999&#46;99&quot;&#41;,;\n                              Transform&#40;EVAL&#40;&#123;|| SumaSal&#40;aSaldos,4,oLbx2&#41;&#125;&#41;,&quot;999,999,999&#46;99&quot;&#41;,;\n                              Transform&#40;EVAL&#40;&#123;|| SumaSal&#40;aSaldos,5,oLbx2&#41;&#125;&#41;,&quot;999,999,999&#46;99&quot;&#41;&#125;[/code:2ilgm61c]\n\ny la funcion SumaSal():\n\n[code:2ilgm61c]FUNCTION SumaSal&#40;aArreglo,nCol,oBrw&#41;\n   LOCAL nSuma &#58;= 0\n   AEVAL&#40;aArreglo,&#123;|x,y| nSuma += EVAL&#40;x&#91;nCol&#93;&#41;&#125;,1,oBrw&#58;nAt&#41;\nRETURN &#40;nSuma&#41;\n[/code:2ilgm61c]\n\nY listo, mas simple ni hacer limonada','',0,'AIA=','2ilgm61c',1,0,'',138,0,0),(35811,7790,6,140,0,'190.39.108.121',1186326697,1,0,1,1,1,0,'','Como obtengo los valores de Identificacion definidos en RC','Hola a Todos\n\nEl caso es que quisiera obtener los Valores que he definido en el RC...\n\nO sea tengo esto en el RC de la Aplicación...\n\n1 VERSIONINFO\nFILEVERSION 2, 0, 2, 0\nPRODUCTVERSION 2, 0, 2, 0\nFILEFLAGSMASK VS_FFI_FILEFLAGSMASK\nFILEOS VOS_DOS_WINDOWS32\nFILETYPE VFT_APP\n{\n BLOCK \"StringFileInfo\"\n {\n  BLOCK \"040904E4\"\n  {\n   VALUE \"CompanyName\", \"GuayoyoSoft\\000\"\n   VALUE \"ProductName\", \"Gestión Administrativa\\000\"\n   VALUE \"ProductVersion\", \"2.0.2.0\\000\"\n   VALUE \"FileVersion\", \"2.0.2.0\\000\"\n   VALUE \"InternalName\", \"GAdmin\\000\"\n   VALUE \"Actualizacion\", \"02/Ago/2007\\000\"\n   VALUE \"FileDescription\", \"Software para Gestión Administrativa\\000\"\n   VALUE \"LegalCopyright\", \"GuayoyoSoft ©2003-2007\\000\"\n   VALUE \"OriginalFilename\", \"GAd32.exe\\000\"\n   VALUE \"website\", \"www.guayoyosoft.net\\000\"\n  }\n\n }\n\n}\n\nEsos valores son vistos fácilmente desde las utilidades \"Mi PC\" o \"Explorador de Windows\" en las propiedades del programa...\n\nEl tema es que en la aplicación FW necesito tomar los valores de al menos \"FileVersion\" y \"Actualizacion\"... Que funciones existen para eso???\n\nQuisiera eliminar una solución chapuza que ha sido repetir los valores en variables de la aplicación, pero a veces olvido cambiar una de ellas y se crea confusión en las actualizaciones.\n\nGracias de Antemano por los comentarios...\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'AIA=','1zb7o2ht',1,0,'',140,0,0),(35812,7787,6,1106,0,'201.217.189.20',1186326843,1,0,1,1,1,0,'','','Gracias Maestro Rene\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','kk9tf285',1,0,'',1106,0,0),(35813,7772,11,2,0,'87.218.146.42',1186337184,1,0,1,1,1,1,'','','Doug,\n\n&gt;  it appears that if you have more than 1 browse on a window then the vertical scroller only works for the first one. \n\nFixed. We send you new libs','',0,'AIA=','5pdgyxc4',1,0,'',2,0,0),(35814,7791,2,509,0,'88.25.24.240',1186340739,1,0,1,0,1,0,'','TSMTP de Luis Krause / Tamaño 0 en ficheros adjuntos','Hola:\n     Estoy utilizando la clase TSMTP de Luis Krause para envío de ficheros .ZIP junto con el mensaje.\n     El mensaje se envío pero el tamaño del fichero que llega es cero.\n     \n     ¿Que puedo estar haciendo mal?\n\n     Saludos.\n     Ricardo Patón\n\n\n[color=green:al5hvbik]FUNCTION SendMail(cMailDes)\n   LOCAL oInit\n	 \n   // initialize sockets (or nothing will happen) - it\'s a quirk in GetHostByName(), not TSmtp\n   oInit := TSmtp():New( alltrim(empre2-&gt;ipsmtp) )\n\n   // no let\'s go for our socket\n   oMail := TSmtp():New( alltrim(empre2-&gt;ipsmtp), , empre2-&gt;laut, alltrim(empre2-&gt;usuario), alltrim(empre2-&gt;clave), \"ENVIO FICHEROS MAESTROS\" ) // [jlalin], IBTC\n*   oMail:cReplyTo := cReplyTo\n   oMail:nGMT     := 8   // 8 = Pacific Standard Time (GMT -08:00) - Adjust this to your own Time Zone!\n\n   // uncomment next line if you experience problems while sending email\n   // descomentar sig. l¡nea en caso de experimentar problemas al enviar correo\n   oMail:nDelay := 1\n\n*   oMail:lTxtAsAttach     := .F.          // uncomment to force txt, log and htm files as inline as opposed to attachement\n   oMail:oSocket:lDebug   := .T.         // uncomment to create log file\n   oMail:oSocket:cLogFile := \"smtp.log\"\n\n*   oMail:bConnecting := {|| oWnd:SetMsg( \"Connecting to \" + cHost + \" (\" + oMail:cIPServer + \") and waiting for response...\" ) }\n*   oMail:bConnected  := {|| oWnd:SetMsg( \"Connected and sending mail and attachments...\" ) }\n\n   oMail:SendMail( ;\n      alltrim(empre2-&gt;mailori), ;             // from/de\n      { alltrim(cMailDes) }, ;         // to/para (arreglo) - I use cSender here also because it\'s an \"autotest\". Actually you would type a different address here\n      \"Ficheros Maestros para AUXTAJO\",;  // Body/Mensaje\n      \"Ficheros Maestros:\"+dtoc(date())+\" \"+time(),; // Subject/Asunto\n      {\"c:\\prueba.zip\" }, ;  //  Array of filenames to attach/Arreglo de nombres de archivos a agregar\n      { }, ;                 // aCC\n      { }, ;                 // aBCC\n      .F., ;            // Return Receipt/acuse de recibo\n      \"\" )                 // msg in HTML format/mensaje en HTML\n\n   oInit:end()\n\nreturn nil\n[/color:al5hvbik]','',0,'Ag==','al5hvbik',1,0,'',509,0,0),(35815,7792,6,439,0,'200.125.35.165',1186350525,1,0,1,1,1,1,'','Rebar y Page en una dialog no parecen llevarse bien','Intento manejar una dialog con una rebar, la dialog es de recursos y en ella hay una page, al intentar hacer funcionar el programa me da un error de creación de dialogo, sin embargo si retiro la page del recurso, anda perfectamente.\n\nLa falla se produce aún si la page no se declara en el código.\n \nEsta dialog con botones y page anda bien, en cambio con rebar no funcionó.\n\nComo si Rebar + Page no se lleven bien <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\n\nAlguien del foro podrá ayudarme con este asunto?, apreciaré cualquier guía, el tema es que verdaderamente necesito la page y la rebar allí.\n\nencontrarán el código, el recurso y los exes con y sin dialog en un ejemplo bien pequeño en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/hmh9urusi6\">http://www.box.net/shared/hmh9urusi6</a><!-- m -->\n\nGracias desde ya por su ayuda <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .','',0,'Ag==','2u9b78wr',1,0,'',439,0,0),(35816,7792,6,2,0,'87.218.146.31',1186356564,1,0,1,1,1,1,'','','José,\n\nte falta el REDEFINE PAGES ... y añadirlo en el RC. Aqui funciona bien así:\n[code:3b7qiivg]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oReBar, oToolBar\n\nfunction Main&#40;&#41;\n\n   local oDlg, oImageList, oPages\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Dlg_Page&quot; TITLE &quot;FWH - Testing Win32 Toolbars&quot;\n      \n   // First we build an ImageList with all the bitmaps \n   DEFINE IMAGELIST oImageList SIZE 32, 32\n\n   DEFINE IMGBITMAP OF oImageList NAME &quot;new&quot;      COLOR nRGB&#40; 255, 0, 255 &#41;\n   DEFINE IMGBITMAP OF oImageList NAME &quot;open&quot;     COLOR nRGB&#40; 255, 0, 255 &#41;\n   DEFINE IMGBITMAP OF oImageList NAME &quot;check&quot;    COLOR nRGB&#40; 255, 0, 255 &#41;\n   DEFINE IMGBITMAP OF oImageList NAME &quot;search&quot;   COLOR nRGB&#40; 255, 0, 255 &#41;\n   DEFINE IMGBITMAP OF oImageList NAME &quot;print&quot;    COLOR nRGB&#40; 255, 0, 255 &#41;\n   DEFINE IMGBITMAP OF oImageList NAME &quot;internet&quot; COLOR nRGB&#40; 255, 0, 255 &#41;\n   DEFINE IMGBITMAP OF oImageList NAME &quot;keys&quot;     COLOR nRGB&#40; 255, 0, 255 &#41;\n   DEFINE IMGBITMAP OF oImageList NAME &quot;quit&quot;     COLOR nRGB&#40; 255, 0, 255 &#41;\n\n   REDEFINE PAGES oPages ID 102 OF oDlg DIALOGS &quot;dlg1&quot;\n\n   ACTIVATE DIALOG oDlg CENTERED ON INIT Barra&#40;oDlg, oImageList&#41;\n   \n   oImageList&#58;End&#40;&#41;\n\nreturn nil\n\nFUNCTION Barra&#40;oDlg, oImageList&#41;\n// Now we create the rebar\nDEFINE REBAR oReBar OF oDlg\n   \nDEFINE TOOLBAR oToolBar OF oReBar SIZE 45, 34 ; // 50, 50 ; ancho/alto\n      IMAGELIST oImageList BALLOON // tooltips balloon style\n   \n   //oToolBar&#58;SetTextRows&#40; 2 &#41;\n   \n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  MsgInfo&#40; &quot;Menu&quot; &#41;;\n      TOOLTIP &quot;New&quot; ;\n         \n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  MsgInfo&#40; &quot;Menu&quot; &#41;;\n      TOOLTIP &quot;Open&quot; ;\n            \n   DEFINE TBSEPARATOR OF oToolBar\n   \n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  MsgInfo&#40; &quot;Menu&quot; &#41; ;\n      TOOLTIP &quot;Menu&quot; ;\n               \n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  MsgInfo&#40; &quot;Menu&quot; &#41;;\n      TOOLTIP &quot;Search&quot; ;\n      \n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  MsgInfo&#40; &quot;Menu&quot; &#41;;\n      TOOLTIP &quot;Print a report&quot; ;\n      \n   DEFINE TBSEPARATOR OF oToolBar\n      \n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  MsgInfo&#40; &quot;Menu&quot; &#41;;\n      TOOLTIP &quot;Search for new versions&quot; ;\n            \n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION MsgInfo&#40; &quot;Users&quot; &#41; ;\n      TOOLTIP &quot;Users management&quot; ;\n      \n   DEFINE TBSEPARATOR OF oToolBar\n\n   DEFINE TBBUTTON OF oToolBar ;\n      ACTION  oDlg&#58;End&#40;&#41; ;\n      TOOLTIP &quot;End Application&quot; ;\n            \n      \n   oToolBar&#58;nWidth = 200\n   oReBar&#58;InsertBand&#40; oToolBar &#41;\n  \nRETURN NIL\n[/code:3b7qiivg]\n[code:3b7qiivg]\n#ifdef __FLAT__\n   1 24 &quot;&#46;/WinXP/WindowsXP&#46;Manifest&quot;\n#endif\n\n#define DIALOG_1	1\nnew      BITMAP &quot;&#46;/bitmaps/32x32/new&#46;bmp&quot;\nopen     BITMAP &quot;&#46;/bitmaps/32x32/open&#46;bmp&quot;\ncheck    BITMAP &quot;&#46;/bitmaps/32x32/check&#46;bmp&quot;\nsearch   BITMAP &quot;&#46;/bitmaps/32x32/search&#46;bmp&quot;\nprint    BITMAP &quot;&#46;/bitmaps/32x32/print&#46;bmp&quot;\ninternet BITMAP &quot;&#46;/bitmaps/32x32/internet&#46;bmp&quot;\nkeys     BITMAP &quot;&#46;/bitmaps/32x32/keys&#46;bmp&quot;\nquit     BITMAP &quot;&#46;/bitmaps/32x32/quit&#46;bmp&quot;\n\n\nDLG_PAGE DIALOG 23, 25, 457, 304\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 101, 96, 41, 77, 11, ES_LEFT | ES_UPPERCASE | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n CONTROL &quot;TPages&quot;, 102, &quot;TPages&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 6, 60, 445, 242\n RTEXT &quot;#&quot;, 200, 7, 41, 84, 10\n LTEXT &quot;&quot;, 201, 392, 38, 57, 9\n&#125;\n\ndlg1 DIALOG 18, 18, 142, 67\nSTYLE WS_CHILD | 4\n&#123;\n PUSHBUTTON &quot;&amp;First&quot;, 104, 93, 26, 32, 12\n&#125;\n[/code:3b7qiivg]','',0,'AIA=','3b7qiivg',1,0,'',2,0,0),(35817,7792,6,2,0,'87.218.146.31',1186356775,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2pxuhk3q][img:2pxuhk3q]http&#58;//img355&#46;imageshack&#46;us/img355/7555/pagespz9&#46;png[/img:2pxuhk3q][/url:2pxuhk3q]','',0,'GA==','2pxuhk3q',1,0,'',2,0,0),(35818,7793,6,109,0,'189.192.197.140',1186368390,1,0,1,1,1,0,'','Ayuda con folders','Utilizo el programa LOPEDIT.EXE, para la edicion de mis programas fuentes.\n   \n   En este programa, cada \"PRG\", es presentado en una \"pestaña\" diferente, asi que si yo aplico \"CTRL + F4\", cierro la pestaña actual (o el PRG actual) me presenta el que \"Sigue\". Estoy tratando de hacer algo parecido, y si, si puedo agregar \"Pestañas\", y en las pestañas que \"genero\", aplico un XBROWSE, lo que no he logrado hacer del todo es \"CERRAR\" la \"Pestaña\" actual, y que me presente la \"pestaña\" siguiente con su respectivo XBROWSE.\n\n   Cuando aplico \"CTRL + F4\", si cierra la \"pestaña\" actual pero la \"pestaña\" que queda activa PIERDE el XBROWSE, solo lo presenta cuando doy click en otra \"pestaña\", y despues click en la \"pestaña\" que quedo activa.\n\n    Todo esto lo hago por Código.\n\n   Alguien me podria echar una mano con esto.\n\n   Gracias','',0,'GA==','56qg2o8q',1,0,'',109,0,0),(35819,7732,3,2,0,'87.218.146.31',1186382419,1,0,1,1,1,1,'','','Paul,\n\nCould you try it with the most recent xHarbour build that we have published ?\n\nYou can download it from <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'GA==','2jy93iwf',1,0,'',2,0,0),(35820,7793,6,2,0,'87.218.146.31',1186382602,1,0,1,1,1,1,'','','Has probado a eliminar la pestaña actual llamando a oFolder:DelItem( nItem ) ?','',0,'GA==','2ujxdsiy',1,0,'',2,0,0),(35821,7769,2,2,0,'87.218.146.31',1186386614,1,0,1,1,1,1,'','','Puedes hacerlo con unos pequeños cambios en la Clase TBar. Si la ventana no es MDI, entonces es más sencillo.','',0,'GA==','1rasecf3',1,0,'',2,0,0),(35822,7656,3,130,0,'141.51.32.24',1186387222,1,0,1,1,1,1,'','','Antionio,\n\n[quote=&quot;Antonio Linares&quot;:jsug72jv]I can help you on some specific questions only.[/quote:jsug72jv]\n\n\nok, thanks. I think the main problem is, to get the row of the last line of the rtf-text in printer-units. The struct FORMATRANGE holds only the whole page. \n\nDo you have an idea ?','',0,'gA==','jsug72jv',1,0,'',130,0,0),(35823,7656,3,130,0,'141.51.32.24',1186387516,1,0,1,1,1,1,'','','Reinaldo,\n\nthanks for your function, but I had problems with the function REPrintRect().\nIn my tests it does not respect the margins and does not eject the page properly if you start in the middle of a page.\n\nIf it works for you, maybe my test was faulty. I will check this.','',0,'gA==','vtfl6lsb',1,0,'',130,0,0),(35824,7794,1,1077,0,'80.77.147.50',1186388797,1,0,1,1,1,0,'','Mark all topics read','\"Mark all topics read\"\nWhen i used it first time was ok ...\nBut now every few days all topics are unread ....\n\nSome sugestion ?','',0,'gA==','kimdwy5j',1,0,'',1077,0,0),(35825,7794,1,2,0,'87.218.146.31',1186389236,1,0,1,1,1,1,'','','Have you used the same password and login, and also the same computer ?','',0,'gA==','k0s0wtit',1,0,'',2,0,0),(35826,7794,1,1077,0,'80.77.147.50',1186389911,1,0,1,1,1,0,'','','Hi Antonio \nThanks for fast reply\n\nYes everything is the same .....\nJust may be i was not logged when i used \"Mark all topics read\" last time\n\nCan it be the problem ?\n\nBest regards,','',0,'gA==','ov2j280b',1,0,'',1077,0,0),(35827,7795,2,542,0,'83.52.14.192',1186390207,1,0,1,1,1,0,'','Problema con el Menu de una MDICHILD','Hola Amigos:\n\nTengo un problema muy raro paso a describirlo para ver si podeis ayudarme:\n\nEn una aplicación tengo muchas opciones y cada una gestiona una base de datos (altas, bajas, modificaciones, etc...) y esto lo hago con DEFINE WINDOW oDlgW MDICHILD con un menu asociado. Lo que me pasa es que en el ultimo que he realizado cuando pincho cualquier opcion del menu o en un boton que he puesto cierra las bases de datos y ejecuta el codigo, con lo que me produce errores. Alguien podria indicarme algo para poder solucionar esto.\n\nGracias\n\nCarlos','',0,'gA==','w7dnpfs3',1,0,'',542,0,0),(35828,7186,1,1077,0,'80.77.147.50',1186390262,1,0,1,1,1,0,'','','What do you think about something like this ?\n\nfor i = 65 to 90\ncKey := chr(i) + \"J\"\nseek cKey\ndo while left(name,1) = \"J\"\n....\nenddo\nnext\n\nBest Regards,','',0,'gA==','3t7tbndb',1,0,'',1077,0,0),(35829,7795,2,2,0,'87.218.146.31',1186391370,1,0,1,1,1,1,'','','&gt; en un boton que he puesto cierra las bases de datos y ejecuta el codigo\n\nA que función llama ese botón ? Que código se ejecuta en esa función ?','',0,'gA==','157p8lxi',1,0,'',2,0,0),(35830,7794,1,2,0,'87.218.146.31',1186391425,1,0,1,1,1,1,'','','Yes, probably','',0,'gA==','1w9ct3r5',1,0,'',2,0,0),(35831,7795,2,542,0,'83.52.14.192',1186392329,1,0,1,1,1,0,'','','Hola Antonio, lo he resuelto ya el problema parecia ser que desde el menu principal de la aplicacion llamaba a un codigo que segun viniera lo desviaba a la opcion deseada (desde el principal llamaba a gestimpr(1), gestimpr(2) y en FUNCTION GESTIMPR (OPC) habia un DO CASE que si era 1 llamaba a GESTTC32 si era 2 llamaba a GESTI110 y asi) lo he solucionao llamando directamente desde el principal a GESTTC32 a GESTI110 etc...\n\nGracias por tu atencion\n\nUn saludo\n\nCarlos','',0,'gA==','44gienoi',1,0,'',542,0,0),(35832,7795,2,2,0,'87.218.146.31',1186393813,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1s3423zo',1,0,'',2,0,0),(35833,7785,3,1077,0,'80.77.147.50',1186401825,1,0,1,1,1,0,'','','TSBrowse is great class.... i use it in 99% in my programs ...but i use FW for Windows ....(16 bit) i dont know is it something different but i can send you some samples if you want.\n\nRegards,','',0,'gA==','xzhllfej',1,0,'',1077,0,0),(35834,7796,1,999,0,'201.27.139.156',1186412854,1,0,1,1,1,0,'','MsgAbout in Windows XP','hi all!\nAnybody noticed the MsgAbout function not working on Windows XP ?\nWorks fine in Windows 98. Tested with FW 2.4.  \nI made some search and found this VB declaration:\n\nPrivate Declare Function ShellAbout Lib \"shell32.dll\" Alias \"ShellAboutA\" \n    (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As \n     String, ByVal hIcon As Long) As Long\n\nTried with:\n\nDLL32 FUNCTION MsgAbout(hDC AS LONG, cTx1 AS LPSTR, cTx2 AS LPSTR, hIco AS LONG)  AS LONG  PASCAL FROM \"ShellAboutA\" LIB \"shell32.dll\"\n\nCalled in program with MsgAbout(oWnd:hWnd, \"AAAA\", \"BBBB\")\n\nDoes not work either. What I am doing wrong ?\nTIA\nEuclides','',0,'gA==','291cszzy',1,0,'',999,0,0),(35835,7791,2,509,0,'80.31.28.62',1186413925,1,0,1,0,1,0,'','TSMTP solucion adjuntar ficheros','Hola:\n     Resuelto el problema. SendFile de TSOCKET.PRG no veía el fichero temporal que se genera con TmpFile(). Le he puesto una ruta fija y todo funciona bien recibiendo el fichero con tamaño.\n\n     Saludos.\n\n     Ricardo Patón','',0,'gA==','21lacyf1',1,0,'',509,0,0),(35836,7771,6,18,0,'200.67.188.236',1186414911,1,0,1,1,1,1,'','','<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Algún tip o sugerencia','',0,'gA==','yki1kjlr',1,0,'',18,0,0),(35837,7792,6,18,0,'200.67.188.236',1186415021,1,0,1,1,1,1,'','','Antonio :\n\nSe podrá hacer uso de los aceleradores de una toolbar, estoy trabajando en ello, ...... sin éxito <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSaludos','',0,'gA==','1glefz9y',1,0,'',18,0,0),(35838,7797,2,518,0,'189.170.58.205',1186416829,1,0,1,1,1,0,'','codigo de barras con Tbarlib','Hola,\n\nHe usado esta libreria para imprimir codigo de barras por mucho tiempo sin problemas usando hojas tamaño carta. \n\nHoy tengo una necesidad de utilizar una impresora Zebra que usa etiquetas en rollo . \n\nAlguien me pudiera decir como se puede especificar el ancho y el alto de del corte de las etiquetas para que pueda hacer bien la impresion y el eject ?\n\nGracias','',0,'gA==','2yh0hc2g',1,0,'',518,0,0),(35839,7785,3,34,0,'68.5.217.82',1186416936,1,0,1,1,1,1,'','Appreciated','I like the layout, but the concern is with 32 bit, Microsoft compatible, functioning specifically using the latest builds of FWH and xHarbour Builder.\n\nMy guess is there may be incompatibilities between the latest FWH and TSBrowse.  For example, we cannot use TSBrowse\'s TMETAFIL because it does not support the full functionality included in FWH.\n\nAs a realtively older piece of code, it would be nice, as has been suggested on this forum previously, that we make a concerted effort to perhaps fold it into FWH.\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2c0ob0a4',1,0,'',34,0,0),(35840,7785,3,138,0,'189.141.71.139',1186417383,1,0,1,1,1,1,'','','Tim:\n\nTSBrowse is a great class with a lot of visual enhacements but internally has serveral programming issues, I mean, is not fully optimized.\n\nMe and my team had to make serveral corrections to TSBrowse Class in order to make it work under 32 bits with xHarbour and ADS.\n\nIf I can recall, we used the same source code in both 16 bits and 32 bits, however we made several changes to make it work with ADS, specially because it loses the \"alias\" when working under MDI.\n\nLet me see if I have the source around to send you a copy with our changes so you will see if you can find it useful for you.','',0,'gA==','27ipvpxj',1,0,'',138,0,0),(35841,7785,3,34,0,'68.5.217.82',1186418037,1,0,1,1,1,1,'','Thank you','Rene,\n\nThat sounds like what I\'m running into.  I have James most recent version.  Losing the record pointer is key to the problems I\'m facing.\n\nWBrowse is very stable and never gives me any problems but I sure wish we had more flexibility in its display. \n\nTim\n\nMy direct email is <!-- e --><a href=\"mailto:timstone@masterlinksoftware.com\">timstone@masterlinksoftware.com</a><!-- e -->\n\nThank you.','',0,'gA==','2fvodq9e',1,0,'',34,0,0),(35842,7785,3,303,0,'72.199.41.171',1186418294,1,0,1,1,1,0,'','','Rene,\n\nIf you will send me a copy also, I will add your changes to the changes I have made and then post it on my website.\n\nTim,\nIs your app MDI? If so, perhaps that is why I haven\'t seen any problems since I never use MDI.\n\nThanks,\nJames','',0,'gA==','1tor857q',1,0,'',303,0,0),(35843,7785,3,34,0,'68.5.217.82',1186418727,1,0,1,1,1,1,'','Application','No, at this time the application is not MDI, but it does use ADS, and the comment about losing the Alias makes a lot of sense with some of the behaviors I see.','',0,'gA==','1z2wdnz2',1,0,'',34,0,0),(35844,7785,3,303,0,'72.199.41.171',1186418778,1,0,1,1,1,0,'','','Tim,\n\nI have found one problem. Here is TWBrowse\'s skip method:\n\n[code:2bkro3qi]METHOD Skip&#40; n &#41; CLASS TWBrowse\n\n   if &#58;&#58;bSkip != nil\n      return Eval&#40; &#58;&#58;bSkip, n, Self &#41;\n   endif\n\nreturn &#40; &#58;&#58;cAlias &#41;-&gt;&#40; _DBSkipper&#40; n &#41; &#41;[/code:2bkro3qi]\n\nAnd here is TSBrowses skip method:\n\n[code:2bkro3qi]METHOD Skip&#40; n &#41; CLASS TSBrowse\n\n   If &#58;&#58;bSkip != Nil\n      Return Eval&#40; &#58;&#58;bSkip, n &#41;\n   EndIf\n\nReturn &#58;&#58;dbSkipper&#40; n &#41;[/code:2bkro3qi]\n\nAs you can see, TSBrowse doesn\'t have the alias reference in the RETURN statement.\n\nJames','',0,'AIA=','2bkro3qi',1,0,'',303,0,0),(35845,7785,3,303,0,'72.199.41.171',1186419660,1,0,1,1,1,0,'','','Tim,\n\nHere is another difference. This code is in TSBrowse:goBottom():\n\n [code:1riasgml]     #ifdef __HARBOUR__\n         If &#58;&#58;cDriver == &quot;ADS&quot;\n            &#58;&#58;nAt &#58;= &#58;&#58;nLogicPos&#40;&#41;\n         Else\n            &#58;&#58;nAt &#58;= &#58;&#58;nLen\n         EndIf\n      #else\n         &#58;&#58;nAt &#58;= &#58;&#58;nLogicPos&#40;&#41;\n      #endif[/code:1riasgml]\n\nAnd nowhere in the same method in TWBrowse do I see ::nAt even being set. The methods are quite different in the two classes. I am not sure what the consequences of this may be.\n\nJames','',0,'AIA=','1riasgml',1,0,'',303,0,0),(35846,7792,6,2,0,'87.218.146.31',1186420248,1,0,1,1,1,1,'','','Vikthor,\n\nNo lo hemos probado. Supongo que te refieres a asignar aceleradores a los botones de la toolbar, si ?','',0,'AIA=','3h553hkr',1,0,'',2,0,0),(35847,7771,6,2,0,'87.218.146.31',1186420477,1,0,1,1,1,1,'','','Vikthor,\n\nEl ultimo parámetro parece distinto a como lo has declarado:\n\n&gt;\npIDBtn\n    [out] Pointer to a UINT. On return, if successful, this parameter will hold the id of the button that has chAccel as its accelerator character.\n&gt;\n\nHa de ser el puntero a un número, y contendrá el valor del botón, no el número en si.\n\nEl mensaje es para preguntar un valor, no para asignarlo','',0,'','3s9owj6b',1,0,'',2,0,0),(35848,7791,2,2,0,'87.218.146.31',1186422129,1,0,1,1,1,1,'','','Gracias Ricardo por compartir la solución <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','kr5vxogr',1,0,'',2,0,0),(35849,6815,6,801,0,'201.14.31.6',1186422589,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2wwtq9sp]José,\n\n&gt;\nLa versión que obtenemos aquí sirven tanto para Harbour como para xHarbour, verdad? \n&gt;\n\nSi <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; Funciona con PostgreSQL?\n\nSólo tienes que modificar adordd.prg para añadirle la cadena de conexión de PostgreSQL y modificar adordd.ch y añadirle POSTGRESQL como un tipo nuevo de base de datos a usar.\n\nLas cadenas de conexión más comunes estan en <!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->[/quote:2wwtq9sp]\n\n\nExatamenteo o  que precisa mudar em adordd.prg e adordd.ch pra rodar no PostgreSQL ?\n\nObrigado !','',0,'gA==','2wwtq9sp',1,0,'',801,0,0),(35850,7796,1,2,0,'87.218.146.31',1186423197,1,0,1,1,1,1,'','','Euclides,\n\nMsgAbout() does not work for 16 bits applications in XP neither in Vista.\n\nWith FWH, MsgAbout() works fine in both XP and Vista.','',0,'gA==','2ccge2j7',1,0,'',2,0,0),(35851,7798,2,235,0,'200.67.140.245',1186424147,1,0,1,1,1,0,'','porque me manda el siguiente error','cuando agrego un proceso mas a mi aplicacion???\n\nel error es el sig.\n\nERRORDIALO(0) UNRECOVERABLE ERROR 667: EVAL STACK FAULT.\n\nestoy usando fw22 y clipper 53b,\n\nsi cambio a fw23 seguira el mismo error???\n\ndesde ya muchas gracias','',0,'gA==','139j7bnl',1,0,'',235,0,0),(35852,7785,3,303,0,'72.199.41.171',1186424669,1,0,1,1,1,0,'','','I found a number of mostly eof() statements that were not alias referenced which I have fixed.\n\nJames','',0,'gA==','2a4n3sbg',1,0,'',303,0,0),(35853,7785,3,34,0,'68.5.217.82',1186426660,1,0,1,1,1,1,'','Differences','The two classes do have very significant differences.  The ADS compatibility will be critical.\n\nI\'ve tried other ways to work with the header background color in WBROWSE also and it does not respond to the nClrForeHead, nClrBackHead values, at least with VISTA.  It appears that some of the data values were actually hardcoded and cannot be changed.  You saw the screen shot that I had showing essentially no color differentiation for the header.','',0,'gA==','2n2vbsgn',1,0,'',34,0,0),(35854,7779,6,911,0,'200.72.141.53',1186435053,1,0,1,1,1,0,'','','Gracias Antonio por tu respuesta.\nSabes si alguien ha probado adordd con oracle?, ya que en el .ch de adorrd está la clausula ORACLE. El tema es que en oracle se deben pasar además del nombre de la base de datos y tabla el nombre del esquema.\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'gA==','p1vn7qb2',1,0,'',911,0,0),(35855,7799,6,1072,0,'201.236.158.94',1186439846,1,0,1,1,1,0,'','Duda Sobre Menu tipo Xp','Hola Foro:\n\nEstoy tratando de implementar un sistema con el uso de MenuSat, menu estilo Xp, necesito saber lo siquiente:\n\n. Se puede Cambiar el tipo de letra del menu?\n\n. Se puede modificar el tamaño de los iconos en la Barra principal.\n\n. Para cambiar su fondo blanco, se debe poner un logo, o existe otra forma de poner algun color de fondo?\n\n\nDesde ya muchas gracias.\n\nAntonio\n\nFwh7.01, xHarboud','',0,'gA==','2u8iqfe9',1,0,'',1072,0,0),(35856,7792,6,18,0,'200.67.188.236',1186440705,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2migwtw9]Vikthor,\n\nNo lo hemos probado. Supongo que te refieres a asignar aceleradores a los botones de la toolbar, si ?[/quote:2migwtw9]\n\n\nsí, a eso me refiero <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2migwtw9',1,0,'',18,0,0),(35857,7779,6,2,0,'87.218.146.31',1186443208,1,0,1,1,1,1,'','','Si recuerdo bien, Felix Pablo Grande lo ha usado con Oracle.\n\nPuedes contactarle en <!-- e --><a href=\"mailto:fpgrande@euskalnet.net\">fpgrande@euskalnet.net</a><!-- e --> \n\nEn estos foros usa el nick Baxajaun. Es un buen amigo que seguro te ayudará <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','32srmvzz',1,0,'',2,0,0),(35858,3306,6,147,0,'190.30.109.38',1186448979,1,0,1,0,1,1,'','','Antonio; tu me podrías dar algún dato sobre la consulta anterior?\n\ngracias','',0,'gA==','1oef3kdg',1,0,'',147,0,0),(35859,7799,6,940,0,'189.157.84.236',1186453437,1,0,1,1,1,1,'','','para el punto #3\n\n   DEFINE BRUSH oBrush COLOR nRGB( 255, 255, 255 )  //blanco\n\n   DEFINE WINDOW oWnd TITLE cTitulo MDI brush oBrush icon oIco\n\n\nsaludos..','',0,'gA==','2kww81jq',1,0,'',940,0,0),(35860,7779,6,911,0,'200.72.141.53',1186454742,1,0,1,1,1,0,'','','Gracia Antonio.\nVoy a contactar a Félix\nSaludos desde Coquimbo - Chile','',0,'gA==','2s3c09ns',1,0,'',911,0,0),(35861,7780,3,131,0,'194.179.55.36',1186465002,1,0,1,1,1,0,'','','Can you explain what are this modifications ?\n\nRegards,','',0,'gA==','ghvv28lo',1,0,'',131,0,0),(35862,3306,6,2,0,'87.218.146.31',1186471254,1,0,1,1,1,1,'','','Mario,\n\nLa versión que usas es bastante antigua. Los cambios en la clase TTVItem se hicieron en octubre-Noviembre 2006.','',0,'gA==','23gsh3v0',1,0,'',2,0,0),(35863,7800,3,161,0,'213.119.247.60',1186478219,1,0,1,1,1,0,'','Using LIB-files','Hello,\n\nI\'am moving from FW to FWH. In FW I have created my own functions that I use in all my programs and put the in a LIB-file.\n\nNow I want to do the same and compiled the PRG-files an put it in a lib using TLIB.\n\nI have create my LIB-file but if I link it, I get an \'Unresolved external\' for al the function I want to use from my lib. I have link the file just after the FIVEXH and FIVEHC lib. \nIs the something else I have to define, so the linker can find my functions?\n\nThanks,\nMarc','',0,'gA==','2nug5vjp',1,0,'',161,0,0),(35864,7800,3,161,0,'213.119.247.60',1186480648,1,0,1,1,1,0,'','','Please ignore my previous question. \nThe problem is solved. The clipper OBJ-files where inside de lib instead of the those compiled with xharbour  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nMarc','',0,'gA==','fw9tyrny',1,0,'',161,0,0),(35865,7801,3,3,0,'80.81.159.19',1186483948,1,0,1,1,1,1,'','ftp transfer','Hello\n\nMy application transmits on a daily basis a file to a server via ftp.\n\nFrom time to time, when we check the file at the server end it is not sent completely but part of the file.\n\nIs there a way to control the size of a received file (ftp) versus the transmitted one ?\n\nAny help will be appreciated,\n\nThanks\n\nRichard','',0,'gA==','5cbg801b',1,0,'',3,0,0),(35866,7800,3,2,0,'87.218.146.138',1186486462,1,0,1,1,1,1,'','','Marc,\n\nGlad to know you solved it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1eb4no5e',1,0,'',2,0,0),(35867,7801,3,2,0,'87.218.146.138',1186486563,1,0,1,1,1,1,'','','Richard,\n\nDo you use Microsoft\'s wininet FWH based classes ?','',0,'gA==','2ki4dbkk',1,0,'',2,0,0),(35868,7796,1,999,0,'201.42.190.106',1186487960,1,0,1,1,1,0,'','','Hi Antonio, I know it works with FWH.\nThe case is an old system in a old machine who was just updated to Winows XP and the customer made a written complain about the missing MsgAbout screen.\nIn DOS if I write \"RUNDLL32 shell32, ShellAboutA\", it shows the About Screen.\nThere is no way to make it with a DLL32 call with FW 16?\nRegards\nEuclides','',0,'gA==','w3oonkot',1,0,'',999,0,0),(35869,7780,3,41,0,'200.105.194.234',1186489205,1,0,1,1,1,0,'','','Hola,\n\nmore than modifications are some extra DATAS for define box in titles, header, footer, totals and groups, select some of them and press test to see the result, some combination of the extra and actual data can be interesting, now I added nBodyBox data for box in the report data area, I will public this if some body have interst.\n\nMaybe can be usefull to add the option to the fisrtpage and lastpage like informix report engine, and the posibility to have a basic report designer (code generator)\n\nsaludos\n\nMarcelo','',0,'gA==','ci7dp4v9',1,0,'',41,0,0),(35870,7802,3,161,0,'213.119.247.57',1186489703,1,0,1,1,1,0,'','Syntax clipper to Xharbour problem','Hi,\n\nI\'m migrating a program from FW to FWH and get a sytax error E0030 in folowing line:\n[code:3oxyu3oi]DO WHILE \';\'+alltrim&#40;r_name&#41; +\'&gt;\' $ in\n&#46;&#46;&#46;\nENDDO\n[/code:3oxyu3oi]\n\nIs this not allowed in harbour? It\'s working fine in clipper \n\nThanks,\nMarc','',0,'AIA=','3oxyu3oi',1,0,'',161,0,0),(35871,7801,3,3,0,'80.81.159.19',1186490330,1,0,1,1,1,1,'','','Antonio\n\nYes i use wininet with fwh\n\nRichard','',0,'AIA=','31poztd0',1,0,'',3,0,0),(35872,7802,3,6,0,'87.18.239.246',1186491270,1,0,1,1,1,1,'','Re: Syntax clipper to Xharbour problem','Try to change the name of the variable \"in\".\n\nEMG','',0,'AIA=','izk2v5vr',1,0,'',6,0,0),(35873,7801,3,6,0,'87.18.239.246',1186491312,1,0,1,1,1,1,'','','Try to check the return value of the APIs.\n\nEMG','',0,'AIA=','2v164cxg',1,0,'',6,0,0),(35874,7801,3,3,0,'80.81.159.19',1186491531,1,0,1,1,1,1,'','','Enrico\n\nI do, it returns ok while the file is not fully transfered.\n\nThis is why i want to check the file size.\n\nI guess i will user oftp:directory()\n\nThe second element of the array is the file size if i am not mistaking.\n\nWill give it a try\n\nRichard','',0,'AIA=','18b0tj9e',1,0,'',3,0,0),(35875,7802,3,161,0,'81.83.249.31',1186496036,1,0,1,1,1,0,'','','Enrico,\n\nThen it\'s working...\n\nThanks,\nMarc','',0,'AIA=','77hk0j0k',1,0,'',161,0,0),(35876,7801,3,6,0,'87.18.239.246',1186496108,1,0,1,1,1,1,'','','If the APIs return .T. then the file must be fully transfered. The problem is elsewhere.\n\nEMG','',0,'AIA=','2e4yfd6n',1,0,'',6,0,0),(35877,7796,1,2,0,'87.218.146.227',1186502440,1,0,1,1,1,1,'','','&gt; In DOS if I write \"RUNDLL32 shell32, ShellAboutA\", it shows the About Screen. \n\nThats not DOS 16 bits. Its a true 32 bits console window.','',0,'AIA=','346g3say',1,0,'',2,0,0),(35878,7796,1,999,0,'201.42.195.144',1186504120,1,0,1,1,1,0,'','','Ok Antonio, thanks.\nI will do an About Screen myself, same as in Windows 98.\nRegards,\nEuclides','',0,'AIA=','3tz2vwpi',1,0,'',999,0,0),(35879,7803,2,235,0,'200.67.140.245',1186505078,1,0,1,1,1,0,'','acerca de stacksize y heapsize','Tienen algun limite en su valor???\n\nde antemano muchas gracias','',0,'AIA=','3sllim3k',1,0,'',235,0,0),(35880,7788,6,987,0,'189.132.30.18',1186505443,1,0,1,1,1,0,'','','Saludos Maestro Antinio Linares..\n\nLe comento que ya realize su sugerencia y sigo con el mismo problema, le dejo aki el código fuente con el que capturo los datos presentados en las imagenes..\n\n//----------------------------------------------------------\nFUNCTION NProd(cAlias, lAlta, oLbx)\n  \nLOCAL oDlgP, oCbx, oBmp, oBtng1, oBtng2, cCod, oSay, oBtn1, oBtn2, oCursor, lReg:=.F.\nLOCAL oGet1,oGet2,oGet4,oGet5,oGet6,oGet7,oGet8,oGet9,oGet10,oGet11,oGet12,oGet13\nLOCAL aUnidad  := { \"PIEZA\", \"JUEGO\", \"LITRO\", \"METRO\", \"KILO\", \"GRAMOS\" } \nLOCAL cTitulo  := IF( lAlta == .T., \"Alta a un Nuevo Producto\", \"Modificar datos del Producto\" )\nLOCAL lSalida  := .F.\nLOCAL lSalva   := .F.\nLOCAL nVieCost :=  0\nLOCAL nRegis   :=  0\nLOCAL aDat[15]\nLOCAL aFami\nLOCAL aProv\n\n\nDBUSEAREA(.T.,oApp:cDriver,\".\\PROVEDOR.DBF\",\"BPROV\",.T.,.F.)\nDBSETINDEX(\".\\PROVEDOR.CDX\")\nBPROV-&gt;(ORDSETFOCUS(2))\nBPROV:= ALIAS()\nBPROV-&gt;(DBGOTOP())\n\nnRegis:= (BPROV)-&gt;(LASTREC())\naProv:= ARRAY(nRegis)\n\nFOR N:= 1 TO nRegis\n    aProv[N]:= BPROV-&gt;(FIELDGET(3))\n    BPROV-&gt;(DBSKIP())\nNEXT \n\nDBSELECTAREA(\"BPROV\")\nDBCLOSEAREA(\"BPROV\")\n\nnRegis   :=  0\n\nDBUSEAREA(.T.,oApp:cDriver,\".\\FAMILIAS.DBF\",\"BFAM\",.T.,.F.)\nDBSETINDEX(\".\\FAMILIAS.CDX\")\nBFAM-&gt;(ORDSETFOCUS(2))\nBFAM:= ALIAS()\nBFAM-&gt;(DBGOTOP())\n\nnRegis:= (BFAM)-&gt;(LASTREC())\naFami:= ARRAY(nRegis)\n\nFOR N:= 1 TO nRegis\n    aFami[N]:= BFAM-&gt;(FIELDGET(2))\n    BFAM-&gt;(DBSKIP())\nNEXT \n\nDBSELECTAREA(\"BFAM\")\nDBCLOSEAREA(\"BFAM\")\n\nIF lAlta .OR. (!lAlta .AND. !(cAlias)-&gt;(EOF()))\n   nRecNo:= (cAlias)-&gt;(RECNO())\n     nInd:= (cAlias)-&gt;(INDEXORD())\n      \nIF lAlta \n    SONIDOS(\"NUEVO\")\n   (cAlias)-&gt;(DBSETORDER(1))\n   (cAlias)-&gt;(DBGOBOTTOM())\n   (cAlias)-&gt;(DBGOTO(nRecNo)) \n    \n    aDat[ 1]:= SPACE(15)\n    aDat[ 2]:= SPACE(50)\n    aDat[ 3]:= SPACE(05)\n    aDat[ 4]:= SPACE(23)\n    aDat[ 5]:= SPACE(60)\n    dAltaPro:= DATE()\n    aDat[ 6]:= 0    \n    aDat[ 7]:= 0\n    aDat[ 8]:= 0\n    aDat[ 9]:= 0\n    aDat[10]:= 0\n    aDat[11]:= 0\n    aDat[12]:= 0\n    aDat[13]:= 0\n    aDat[14]:= 0\nELSE   \n    SONIDOS(\"MODIFICAR\") \n    aDat[ 1]:= (cAlias)-&gt;Codigo    \n    aDat[ 2]:= (cAlias)-&gt;Descripcio\n    aDat[ 3]:= (cAlias)-&gt;Unidad\n    aDat[ 4]:= (cAlias)-&gt;Familia\n    aDat[ 5]:= (cAlias)-&gt;Provedor\n    dAltaPro:= DATE()\n    aDat[ 6]:= (cAlias)-&gt;Costo\n    aDat[ 7]:= (cAlias)-&gt;Normal\n    aDat[ 8]:= (cAlias)-&gt;Enganche\n    aDat[ 9]:= (cAlias)-&gt;Pagos\n    aDat[10]:= (cAlias)-&gt;Importe\n    aDat[11]:= (cAlias)-&gt;Credito\n    aDat[12]:= (cAlias)-&gt;Contado\n    aDat[13]:= (cAlias)-&gt;Especial\n    aDat[14]:= (cAlias)-&gt;Oferta\n    nVieCost:= (cAlias)-&gt;Costo\nENDIF\n\n      DEFINE CURSOR   oCursor RESOURCE \"MANO\"\n      DEFINE DIALOG   oDlgP   RESOURCE \"Producto\" TITLE cTitulo FONT oApp:cFuente\n    REDEFINE IMAGE oBmp                   ID  900 FILENAME \".\\DATOS\\IMAINVEN.JPG\" OF oDlgP \n    REDEFINE GET      oGet1   VAR aDat[ 1]    ID 1001 OF oDlgP UPDATE PICTURE \"@!\"  VALID ( SYSREFRESH(), cCod:= aDat[ 1], CheckaCodi(oGet1,@cCod,cAlias,oDlgP,lSalida))\n    REDEFINE GET      oGet2   VAR aDat[ 2]    ID 1002 OF oDlgP UPDATE PICTURE \"@!\"  VALID CampoVacio(aDat[ 2])\n    REDEFINE COMBOBOX oCbx    VAR aDat[ 3]    ID 1012 OF oDlgP ITEMS aUnidad        VALID CampoVacio(aDat[ 3])\n    REDEFINE COMBOBOX oBtng1  VAR aDat[ 4]    ID 1016 OF oDlgP ITEMS aFami          VALID CampoVacio(aDat[ 4])\n    REDEFINE COMBOBOX oBtng2  VAR aDat[ 5]    ID  403 OF oDlgP ITEMS aProv          VALID CampoVacio(aDat[ 5])\n    REDEFINE GET      oGet4   VAR aDat[ 6]    ID  101 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE\n    REDEFINE GET      oGet5   VAR aDat[ 7]    ID  102 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE    \n    REDEFINE GET      oGet7   VAR aDat[ 8]    ID  104 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE \n    REDEFINE GET      oGet8   VAR aDat[ 9]    ID  105 OF oDlgP PICTURE \"999\"               UPDATE \n    REDEFINE GET      oGet9   VAR aDat[10]    ID  106 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE VALID (aDat[11]:= (aDat[9] * aDat[10]) + aDat[8], oGet10:Refresh(),.T.)\n    REDEFINE GET      oGet10  VAR aDat[11]    ID  107 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE READONLY COLOR Rgb(000,000,000), Rgb(255,233,214)\n    REDEFINE GET      oGet11  VAR aDat[12]    ID  108 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE\n    REDEFINE GET      oGet12  VAR aDat[13]    ID  109 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE\n    REDEFINE GET      oGet13  VAR aDat[14]    ID  110 OF oDlgP PICTURE \"$9,999,999,999.99\" UPDATE            \n\n    REDEFINE BUTTON   oBtn1 ID 400 OF oDlgP ACTION (lSalva := .T., lReg:=.T., lSalida:=.T., oDlgP:END())\n    REDEFINE BUTTON   oBtn2 ID 401 OF oDlgP ACTION (lSalva := .F., lReg:=.F., lSalida:=.T., oDlgP:END()) CANCEL    \n    \n  REDEFINE SAY oSay  ID 10 OF oDlgP\n  REDEFINE SAY oSay  ID 11 OF oDlgP\n  REDEFINE SAY oSay  ID 12 OF oDlgP\n  REDEFINE SAY oSay  ID 13 OF oDlgP\n  REDEFINE SAY oSay  ID 14 OF oDlgP\n  REDEFINE SAY oSay  ID 15 OF oDlgP\n  REDEFINE SAY oSay  ID 16 OF oDlgP\n  REDEFINE SAY oSay  ID 17 OF oDlgP\n  REDEFINE SAY oSay  ID 18 OF oDlgP\n\nIF lAlta == .F.\n      oGet1:Disable()\nENDIF\n \noDlgP:lHelpIcon:= .F.\noBtn1:oCursor:= oCursor\noBtn2:oCursor:= oCursor\noBtn1:cToolTip := \"Salir y Salvar Datos\"\noBtn2:cToolTip := \"Salir sin Salvar Datos\"\n\n\n  ACTIVATE DIALOG oDlgP CENTER ON INIT(oDlgP:SetIcon(oApp:cIcono)) VALID (lSalida) \n\nIF lSalva\n\nIF lReg\n         IF lAlta                        \n            (cAlias)-&gt;(DBGOBOTTOM())\n            (cAlias)-&gt;(DBAPPEND())\n            (cAlias)-&gt;(RLOCK())\n            (cAlias)-&gt;Ultima:= DATE()\n       ENDIF         \n            (cAlias)-&gt;(RLOCK()) \n            (cAlias)-&gt;Ultima:= DATE()\n            (cAlias)-&gt;Codigo:=       aDat[ 1]                                     \n            (cAlias)-&gt;Descripcio:=   aDat[ 2]\n            (cAlias)-&gt;Unidad:=       aDat[ 3]\n            (cAlias)-&gt;Familia:=      aDat[ 4]\n            (cAlias)-&gt;Provedor:=     aDat[ 5]\n            (cAlias)-&gt;Costo:=        aDat[ 6]\n            (cAlias)-&gt;Normal:=       aDat[ 7]\n            (cAlias)-&gt;Enganche:=     aDat[ 8]                    \n            (cAlias)-&gt;Pagos:=        aDat[ 9]\n            (cAlias)-&gt;Importe:=      aDat[10]\n            (cAlias)-&gt;Credito:=      aDat[11]\n            (cAlias)-&gt;Contado:=      aDat[12]\n            (cAlias)-&gt;Especial:=     aDat[13]                    \n            (cAlias)-&gt;Oferta:=       aDat[14]\n            (cAlias)-&gt;Modific:=      ALLTRIM(UPPER(oApp:cUsuario[nItem])) \n            (cAlias)-&gt;Hora   :=      TransAMPM() \n            (cAlias)-&gt;(DBCOMMIT())\n            (cAlias)-&gt;(DBUNLOCK())         \n      ELSE\n         (cAlias)-&gt;(DBGOTO(oApp:nRec))\n      ENDIF\n      (cAlias)-&gt;(ORDSETFOCUS(nInd))\n      oLbx:Refresh()\n      oLbx:SetFocus()\n   ELSE\n      SYSREFRESH()\n   ENDIF \n  \nENDIF\n       \n  RETURN( NIL )\n\n\nComo podfra ver, es un sencillo dialogo para captura de productos, de hecho así es como tengo definidos todos los demás dialogos y solo en este he detectado este problema..\n\nSaludos..','',0,'','23p2js3l',1,0,'',987,0,0),(35881,7788,6,582,0,'200.117.92.157',1186508929,1,0,1,1,1,0,'','','Victor, a lo que se refiere Antonio es el orden de los controles dentro del archivo de recursos *.rc\n\nUn abrazo. El Loco =&gt;))','',0,'','uoretjjb',1,0,'',582,0,0),(35882,7792,6,439,0,'200.125.50.31',1186509514,1,0,1,1,1,1,'','','Antonio, \n\nGracias, para este ejemplo se me pasó, pero de todos modos encontré el problema.\n\nEn mi programa uso dos dlls una contiene los recursos de la rutina de altas bajas y modificaciones y el otro la del sistema.\n\n[b:vrt7ysmg]Si la dialog hija que va en la page no está en la dll donde está la dialog madre (la que tiene la page) , me da error al crear la dialog madre, sin embargo, si dialogs madre e hija están en la misma dll, no se produce el error, porqué puede ser esto siendo que cargo ambas dlls?[/b:vrt7ysmg]\n\nGracias por la ayuda, de momento lo he solucionado manteniendo los rc separados pero incluyendo el rc de la rutina de bajas altas y modificaciones en el de la aplicación (es decir manejando todo en una sola dll, pero 2 rc para crearlas).','',0,'QA==','vrt7ysmg',1,0,'',439,0,0),(35883,7792,6,439,0,'200.125.50.31',1186509785,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:zbh5z68y]Vikthor,\n\nNo lo hemos probado. Supongo que te refieres a asignar aceleradores a los botones de la toolbar, si ?[/quote:zbh5z68y]\n\nYa que estamos para preguntar, que es esto de los aceleradores?','',0,'gA==','zbh5z68y',1,0,'',439,0,0),(35884,7785,3,34,0,'68.5.217.82',1186510563,1,0,1,1,1,1,'','ADS','Rene,\n\nDid you ever find that file ?\n\nThanks\n\nTim','',0,'gA==','3qrk9b9w',1,0,'',34,0,0),(35885,7804,1,819,0,'67.187.239.16',1186511244,1,0,1,1,1,0,'','Sound is not playing','Hi all,\n\nWhat may be the cause of function sndPlaySound to fail.  The speaker is functioning correctly.\n\nEnvironment: windows xp, clip52 fw24\n\nThanks,\n\nJose','',0,'gA==','18l40fdd',1,0,'',819,0,0),(35886,7805,3,161,0,'81.83.249.31',1186514505,1,0,1,1,1,0,'','Borland make sample','Hi,\n\nIs it correct that if I use the make-example in the \'makes\' directory, that all the PRG-files are being compiled. Even if there no modification in the prg-files. If I change the path of the OBJ to .\\ instead of .\\obj (all the .C and .OBJ will be compiled in the .PRG direcory) only the changed files will be recompiled. So than it works fine.\n\nRegards,\n\nMarc','',0,'gA==','3jk83jrb',1,0,'',161,0,0),(35887,7805,3,2,0,'87.218.146.227',1186516652,1,0,1,1,1,1,'','','Marc,\n\n&gt; all the PRG-files are being compiled\n\nNo, they should not be recompiled. It looks as there is a bug in the makefile\n\nWe are going to review it, thanks','',0,'gA==','2c3efzje',1,0,'',2,0,0),(35888,7803,2,2,0,'87.218.146.227',1186517144,1,0,1,1,1,1,'','','Gerardo,\n\nCuanto menores valores tengan, mejor para la aplicación\n\nLas aplicaciones en 16 bits en Clipper tienen muy poca memoria disponible ya que disponen de sólo 64 Ks aunque el equipo tenga gigas de memoria','',0,'gA==','cmhpaz3p',1,0,'',2,0,0),(35889,7792,6,2,0,'87.218.146.227',1186517273,1,0,1,1,1,1,'','','Jose,\n\nCuando se van a cargar los recursos, se utiliza el handle del módulo en donde estan. Por eso no puedes cargar desde dos sitios a la vez.\n\nVikthor está intentando asignarle aceleradores a los botones de la toolbar, y estamos viendo si se puede hacer','',0,'gA==','3bqe4qk9',1,0,'',2,0,0),(35890,7788,6,2,0,'87.218.146.227',1186517333,1,0,1,1,1,1,'','','Asi es <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','wcdaxagq',1,0,'',2,0,0),(35891,7792,6,439,0,'200.125.50.31',1186517417,1,0,1,1,1,1,'','','Eso explica porqué tenía el problema....\n\nMuchas gracias por la explicación y por la pronta respuesta.','',0,'gA==','2j41gasn',1,0,'',439,0,0),(35892,3306,6,147,0,'190.136.195.145',1186517504,1,0,1,0,1,1,'','','gracias','',0,'gA==','3a0q3ltu',1,0,'',147,0,0),(35893,7806,2,235,0,'200.67.140.245',1186522022,1,0,1,1,1,0,'','acerca de lo errores que manda el stack','existe algun lugar en donde venga una explicacion de los errores que manda el stack, por ejemplo\n\n(b)WNDMAIN (0)  Unrecoverable error 650: Processor stack fault\n\neste error me lo envia cuando agrego una funcion, mas sin embargo la quito del programa y no manda dicho error.   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nde antemano muchas gracias.','',0,'gA==','ly6wr72u',1,0,'',235,0,0),(35894,7806,2,2,0,'87.218.146.227',1186523097,1,0,1,1,1,1,'','','Gerardo,\n\nQue valores de heapsize y de stacksize estas usando en el fichero LNK ?','',0,'gA==','2v2l1x0y',1,0,'',2,0,0),(35895,7807,6,945,0,'88.26.140.16',1186524582,1,0,1,1,1,0,'','GDI+ &amp; xHarbour','Muy buenas, me gustaría encontrar algo de información como poder usar GDI+ 32 bits con xHarbour, ¿Sabría alguien decirme donde puedo encontrar ejemplos (compilacion, librerias, etc..)?\n\nGracias.\n\nUn Saludo.','',0,'gA==','2eovwa1v',1,0,'',945,0,0),(35896,7806,2,235,0,'200.67.140.245',1186525499,1,0,1,1,1,0,'','','Antonio, estoy usando en el stacksize 9500 y en el heapsize 2048\n\nlos cuales he estado incrementando pero aun asi persiste este error','',0,'gA==','3ki88f98',1,0,'',235,0,0),(35897,7806,2,2,0,'87.218.146.227',1186526929,1,0,1,1,1,1,'','','Prueba a incrementar el stacksize de 1000 en 1000 hasta que desaparezca el error. Si no lo consiguieses, prueba a decrementarlo de 1000 en 1000.','',0,'gA==','17gbpj47',1,0,'',2,0,0),(35898,7806,2,235,0,'200.67.140.245',1186528165,1,0,1,1,1,0,'','','y cual seria (en caso de) el tope minimo que soporta???','',0,'gA==','e8w14i58',1,0,'',235,0,0),(35899,7806,2,2,0,'87.218.146.227',1186528845,1,0,1,1,1,1,'','','En la documentación de FiveWin está explicada la distribución de la memoria en los 64Ks que usa Clipper:\n\n &lt;------------------------------------------- 64 Ks ----------------------------------------------&gt;\n \nDATA,_BSS (SYMP) | STACK_C | HEAP_C | CLIPPER STACK |  CLIPPER STATICS\n &lt;----------------- initial DG size ---------------&gt;\n\nEn el fichero LNK especificas el valor de STACK_C y de HEAP_C. Cuanto más crezcan menos tamaño le quedará a Clipper para el stack (la pila) de su máquina virtual.\n\nCuantas más variables estáticas uses, mas tamaño le quitas al stack de la maquina virtual de Clipper.\n\nSi el valor de STACK_C disminuye, no podrás ejecutar muchas llamadas a funciones desde otras funciones: a() llama a b() que llama a c() que llama a d(), etc.\n\nLos GETs de Windows consumen HEAP_C, luego si usas muchos GETs simultaneamente, necesitas aumentar HEAP_C\n\nComo ves, se trata de encontrar un equilibrio entre todos esos valores.\n\nAl pasar tu aplicación a 32 bits usando FWH y Harbour/xHarbour desaparece todo este problema <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3mkxdqfh',1,1186529539,'',2,3,0),(35900,7806,2,235,0,'200.67.140.245',1186529373,1,0,1,1,1,0,'','','Gracias Antonio, lo checo','',0,'gA==','135k8bil',1,0,'',235,0,0),(35901,7808,3,35,0,'65.188.6.143',1186529681,1,0,1,1,1,0,'','ADO sqloledb conection problem','To All\n\nI have a wierd situation where I have a very successful ADO xHarbour\\FWH application ( executable ) which resides on a Win2003 server.\n\nWhen the users run the executable from the server ( shortcut on their pc ) the application connects to the off site SQL server and runs flawlessly.\n\nHowever .. if you are at the server console ( physically at the server ) .. \nand you run the same application ( on the server ) it will start but fail to \nconnect to the first table.\n\nTotally exhausted here trying to find an answer .. I have found Google ideas on adding Persistant Security Info=False to no avail.\n\nHere is the connection string :\n\noRs := TOleAuto():New( \"ADODB.Recordset\" )\noRs:CursorType     := 1        // opendkeyset\noRs:CursorLocation := 3        // local cache\noRs:LockType       := 3        // lockoportunistic\n\ncSQL := \"SELECT * FROM utility WHERE progid =\'\"+xPROGID+\"\'\"\nTRY\n  oRS:Open(cSQL,\'Provider=\'+xPROVIDER+\';Data Source=\'+xSOURCE+\';Initial \nCatalog=\'+xCATALOG+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD )\nCATCH oErr\n  MsgInfo( \"Error in Opening UTILITY CRASH BURN table\" ) /// dies here\n  RETURN NIL\nEND TRY\n\nAgain .. this app runs the executable flawlessly as a shortcut on the \nworkstation .. but the same app will not run sitting at the server running \nthe app ON the server ??\n\nIt seems to me that the Server is breaking the connection string and I just don\'t know what to change or to try as far as \'trusted sites\' perhaps or some other Win2003 process that is keeping this app from connecting to the off site Sql Server.\n\nHope that makes sense.  Any help would be appreciated.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','1k639z2u',1,0,'',35,0,0),(35902,7806,2,2,0,'87.218.146.227',1186529697,1,0,1,1,1,1,'','','He editado mi post anterior con la explicación. Espero que te sea de utilidad','',0,'gA==','2th4ue5a',1,0,'',2,0,0),(35903,7808,3,138,0,'189.141.71.139',1186532051,1,0,1,1,1,1,'','','Rick:\n\nJust an idea that came into me actually.\n\nI think It could be the SQL Sever configurarion, I dunno if there\'s a parameter that let you allow the configuracion from the server.\n\nIn other database I\'ve used before, you have to grant acces to the SYSTEM user in order to be able to connect from the console of the server instead from a workstation.\n\nJust an idea.','',0,'gA==','vobd89px',1,0,'',138,0,0),(35904,7808,3,35,0,'65.188.6.143',1186534114,1,0,1,1,1,0,'','','Rene\n\nI am thinking along the same lines .. here is the actual example .. we have a 2003 server as a Citrix remote access box .. the server acts like a workstation and logs into a Novell server that has the executable in question.\n\nWhen you click on the short-cut the application noticibly starts .. but when the execution hits the first connection string .. it times out.\n\nI decided to take Novell out of the picture and just take a pure 2003 server and put the ADO app on a share .. connecting to the share with a unc .. from my workstation .. the application runs flawlessly... Now, go to the server and drill to the share and the app and try to run it .. and that is where it breaks.\n\nThere is a a definite Server 2003 process that is intefearing with the ADO connection to the SQL server .. which is off site by the way.\n\nSo I am really looking for a silver bullet that will allow the application to run from the server console. We have over 5000 people in the Agency and this application is the Time and Reporting system.. Many of the folks tele-commute and access the program from Citrix .. thus bringing this problem to the forefront.\n\nThere has to be something in the Server that is breaking the connection .. just don\'t know what ..\n\nRick Lipkin','',0,'gA==','27v6bdaa',1,0,'',35,0,0),(35905,7809,3,995,0,'81.11.217.199',1186559196,1,0,1,1,1,0,'','Errorlog gives wrong line number','Hello,\n\nTrying to write a conversion program from oem to ansi or vice versa , fivewin error description gives :\n\nArgument error : conditional , Main(17)\n\nThe problem is that the error only occurs on line 19 . Why ?\n\nCan it be confirmed ?\n\nFrank \n\n[code:jfkgme76]\n# include &quot;fivewin&#46;ch&quot;\nFUNCTION MAIN&#40;DirBron,DirBest,lMode&#41;\nLOCAL aFiles , el , DbfFile , elem , aStruct , h , i , Blck\nIF pCount&#40;&#41; &gt; 0\n	IF &#40;DirBron IN &quot;NILnil&quot;&#41;\n		DirBron &#58;= nil\n	END\nEND\nIF pCount&#40;&#41; &gt; 1\n	IF &#40;DirBest IN &quot;NILnil&quot;&#41;\n		DirBest &#58;= nil\n	END\nEND\nIF pCount&#40;&#41; &gt; 2\n	lMode &#58;= &#40;lMode==&quot;T&quot;&#41;    // &#46;T&#46; &#58; ANSI-&gt;OEM\nEND\nDEFAULT DirBron &#58;= &quot;\\HENDOS\\DATA&quot; \nDEFAULT DirBest &#58;= &quot;DATA&quot;\nDEFAULT lMode &#58;= &quot;F&quot;  // &#46;F&#46; &#58; OEM-&gt;ANSI     THIS CAUSES A ERROR ON NEXT LINE &#40;20&#41; , ERROR REPORT SHOWS 17 !!!!!!!\nBlck &#58;= IIF&#40;lMode , &#123;|j|AnsiToOem&#40;j&#41;&#125; , &#123;|j|OemToAnsi&#40;j&#41;&#125;&#41;\n# ifndef TEST \naFiles &#58;= Directory&#40;DirBron+&quot;\\*&#46;DBF&quot;&#41;\n# else\naFiles &#58;= Directory&#40;DirBron+&quot;\\GEMEENTE&#46;DBF&quot;&#41;\n# endif\nFOR EACH el IN aFiles\n	DbfFile &#58;= el&#91;1&#93;\n	COPY FILE &#40;DirBron+&quot;\\&quot;+DbfFile&#41; TO &#40;DirBest+&quot;\\&quot;+DbfFile&#41;  \n	USE &#40;DirBest+&quot;\\&quot;+DbfFile&#41;\n	aStruct &#58;= DbStruct&#40;&#41;\n	DO WHIL ! EOF&#40;&#41;\n		FOR EACH elem IN aStruct\n			i &#58;= Hb_EnumIndex&#40;&#41;\n			IF Elem&#91;2&#93; == &quot;C&quot; &#46;AND&#46; Elem&#91;3&#93; &gt; 3  &#46;AND&#46; &#40;h &#58;= EVAL&#40;Blck,Fieldget&#40;i&#41;&#41;&#41; &lt;&gt; Fieldget&#40;i&#41;\n				// FIELDLEN &lt; 4 &#58; Idnumbering , NO CONVERSION !\n				Fieldput&#40;i,h&#41;\n			END \n		NEXT\n		SKIP 	\n	END\nNEXT\nCLOS ALL\nRETURN\n\n[/code:jfkgme76]','',0,'AIA=','jfkgme76',1,0,'',995,0,0),(35906,7809,3,2,0,'87.218.146.227',1186566400,1,0,1,1,1,1,'','','Frank,\n\nThats a Harbour/xHarbour compiler issue. Please try to reproduce it without using FWH and report it to the Harbour mailing list or to comp.lang.xharbour, thanks','',0,'AIA=','18t66sa1',1,0,'',2,0,0),(35907,7810,11,578,0,'218.214.35.132',1186572139,1,0,1,0,1,0,'','Behaviour of GETs when editing text','It seems that if a GET has text in it and you want to edit it the text always gets added to the end or the beginning regardless of whether or not you have double clicked the mouse to a desired insertion point or blocked part or all of the test to overwrite / replace.\n\nThis can be seen with testdlg.prg if you initialise cAddress to some value, for example:\n\nlocal cAddress := \"My Address       \"\n\nrather than set it to SPACE(20).\n\nI note also that I have received the following warning which may or may not be related to the above problem:\n\n(&lt;unknown&gt;:26188): Gtk-WARNING **: GtkEntry - did not receive focus-out-event. If you\nconnect a handler to this signal, it must return\nFALSE so the entry gets the event as well\n\nDidn\'t notice that from my code but did from testdlg.prg with initialised cAddress,','',0,'AIA=','373dk5ml',1,0,'',578,0,0),(35908,6815,6,801,0,'201.14.31.6',1186572444,1,0,1,1,1,0,'','','[quote=&quot;gibaf&quot;:xgri1fii][quote=&quot;Antonio Linares&quot;:xgri1fii]José,\n\n&gt;\nLa versión que obtenemos aquí sirven tanto para Harbour como para xHarbour, verdad? \n&gt;\n\nSi <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; Funciona con PostgreSQL?\n\nSólo tienes que modificar adordd.prg para añadirle la cadena de conexión de PostgreSQL y modificar adordd.ch y añadirle POSTGRESQL como un tipo nuevo de base de datos a usar.\n\nLas cadenas de conexión más comunes estan en <!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->[/quote:xgri1fii]\n\n\nExatamenteo o  que precisa mudar em adordd.prg e adordd.ch pra rodar no PostgreSQL ?\n\nObrigado ![/quote:xgri1fii]\n\n\nAlguem poderia ajudar ???\n\nObrigado !!!\n\nGilberto','',0,'gA==','xgri1fii',1,0,'',801,0,0),(35909,5153,22,233,0,'60.49.116.108',1186578822,1,0,1,1,1,0,'','','Antonio, could you email me the login and password for me to have a go at it?','',0,'gA==','4sk7a4tu',1,0,'',233,0,0),(35910,7811,19,2,0,'87.218.146.227',1186580124,1,0,1,1,1,1,'','Web 3.0 by Google CEO','<!-- m --><a class=\"postlink\" href=\"http://www.readwriteweb.com/archives/eric_schmidt_defines_web_30.php\">http://www.readwriteweb.com/archives/er ... web_30.php</a><!-- m -->','',0,'gA==','3eiha5qr',1,0,'',2,0,0),(35911,7812,3,69,0,'206.210.100.104',1186583540,1,0,1,1,1,0,'','Adding External DLL Calls','Hi Everybody,\n\nI have looked at many posts and am trying to add external DLL calls to my app.\n\nCan someone please tell me where I am going wrong.\n\n\nSyntax :\nFunction Connect() as String\nReturn values:\nSuccess - Port number\nError - Empty String\n\nDLL32 FUNCTION Connect() AS LPSTR PASCAL LIB \"\\Ez\\dll\\POx.DLL\"\n\n\n\nSyntax :\nFunction Handshake() as Boolean\nReturn values:\nSuccess - TRUE\nError - FALSE\n\nDLL32 FUNCTION Handshake() AS BOOL  PASCAL LIB \"\\Ez\\dll\\POx.DLL\" \n\n\n\nSyntax :\nFunction SetID(id as String) as Boolean\nReturn values:\nSuccess - TRUE\nError - FALSE\n\nDLL32 FUNCTION SetID(ID AS LPSTR) AS WORD  PASCAL LIB \"\\Ez\\dll\\POx.DLL\" \n\n\n\nSyntax :\nFunction SetTime( cur_time as Date) as Boolean\nReturn values:\nSuccess - TRUE\nError - FALSE\n\nDLL32 FUNCTION SetTime(cur_time AS Date) AS WORD PASCAL LIB \"\\Ez\\dll\\POx.DLL\" \n\n\n\nSyntax :\nFunction SetInterval(interval as Integer) as Boolean\nReturn values:\nSuccess - TRUE\nError - FALSE\n\nDLL32 FUNCTION SetInterval(interval  AS LONG) AS WORD PASCAL LIB \"\\Ez\\dll\\POx.DLL\" \n\n\nSyntax :\nFunction GetData(data_array()) as integer\nReturn values:\nSuccess - Number of Data lines\nError - 0\n\nDLL32 FUNCTION GetData(data_array()) AS LONG PASCAL LIB \"\\Ez\\dll\\POx.DLL\" \n\nThanks,\nJeff','',0,'gA==','37zo5v35',1,0,'',69,0,0),(35912,5153,22,2,0,'87.218.146.227',1186583679,1,0,1,1,1,1,'','','Already sent <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','39ruzf0v',1,0,'',2,0,0),(35913,7813,3,47,0,'203.147.0.44',1186584652,1,0,1,1,1,0,'','Which the best choice for Client Server for DBFCDX?','Dear All,\n\nI gonna move from Clipper/FW to xHb(Commercial)/FWH 2.5 with Client Server solution.  Which the best choice of Database server that work with DBFCDX?\n\nI found \n\n- ADS with DBFCDX\n- MySql with DBFCDX\n- Anything else...\n\nThanks for any idea and help.\nDutch','',0,'gA==','3sob856h',1,0,'',47,0,0),(35914,7812,3,303,0,'72.199.41.171',1186585102,1,0,1,1,1,0,'','','Jeff,\n\nTry it this way:\n\n[code:2ncxpy3h]local hPOX &#58;= LoadLibrary&#40; &quot;\\ez\\dll\\POX&#46;DLL&quot; &#41;\n\nDLL32 FUNCTION &#46;&#46;&#46; LIB hPOX\n\n&#46;&#46;&#46;\n\nFreeLibrary&#40; hPOX &#41;[/code:2ncxpy3h]\n\nJames','',0,'AIA=','2ncxpy3h',1,0,'',303,0,0),(35915,7812,3,69,0,'206.210.100.104',1186585809,1,0,1,1,1,0,'','','Hi James,\n\nWhen I try it that way and issue the Connect() command I get the following error:\n\nUnrecoverable error 9003:\nToo many recursive error handler calls','',0,'AIA=','12tfg4wz',1,0,'',69,0,0),(35916,7806,2,235,0,'200.67.140.245',1186586331,1,0,1,1,1,0,'','','Gracias Antonio.\n\nUna pregunta mas, al migrar la aplicacion a FwH y Harbour, es necesario hacer adecuaciones al codigo o este pasa sin ningun cambio???','',0,'AIA=','25qkug7m',1,0,'',235,0,0),(35917,7812,3,303,0,'72.199.41.171',1186588903,1,0,1,1,1,0,'','','Jeff,\n\nI\'m not experienced with DLL32 calls, but I notice other working calls (in my notes) use the FROM clause and the same name as the function with a trailing \"A\" so you might try:\n\nDLL32 FUNCTION Connect ... FROM \"ConnectA\" LIB hPOX\n\nIf that doesn\'t work, hopefully someone else with DLL experience will help.\n\nJames','',0,'AIA=','1qsu5mr9',1,0,'',303,0,0),(35918,6814,3,716,0,'201.95.107.222',1186589386,1,0,1,1,1,0,'','Comando Seek','Como utilizar o comando SEEK?','',0,'AIA=','37p9dub7',1,0,'',716,0,0),(35919,6815,6,716,0,'201.95.107.222',1186589578,1,0,1,1,1,0,'','Comando Seek','Como utlizar o comando SEEK?','',0,'AIA=','305e2set',1,0,'',716,0,0),(35920,7812,3,69,0,'206.210.100.104',1186590660,1,0,1,1,1,0,'','','Thanks for trying James ... Still no luck.','',0,'AIA=','1avewl1i',1,0,'',69,0,0),(35921,7813,3,138,0,'189.141.71.139',1186592029,1,0,1,1,1,1,'','','There are only two Client/Server solutions based on DBFCDX:\n\nAdvantage Database Server\nApollo Software (AKA Six Driver)\n\nMySQL cannot handle DBFCDX tables, it uses its own data storage format.\n\nThat lets only two tools in the game: ADS and Apollo Software.\n\nThe main disadvantage of Apollo (<!-- m --><a class=\"postlink\" href=\"http://www.vistasoftware.com/introduction.asp\">http://www.vistasoftware.com/introduction.asp</a><!-- m -->) is that the Client / server part can only be handle using SQL, this means that you need to rewrite ALL the data access of you application.\n\nSince you need to rewrite all the data access any other SQL based solution will work for you, working this way, the only thing that you will keep will be the data in the DBFCDX files, but all the methodology of data access (I mean: USE, APPEND, REPLACE, etc) has to be fully rewritten.\n\nAnother disadvantage of Apollo is that the server only runs on Windows based machines, you cannot use it with Novell nor Linux servers.\n\nThe main advantage of Apollo is pricing, less expensive, by far,  than ADS.\n\nTalking about ADS, well, what can I tell you, I\'ve been with ADS from 10 years now, and me and all my ADS customers are very happy with it.\n\nThe main ADS disadvantage is price, it cost between 150 and 175 US dollars for every workstation you have on your network but worth the price.\n\nWith ADS you can keep your DBFCDX tables, along with your data access methodology, this means that you can use APPEND, REPLACE, COMMIT, etc, and at the same time to have all the Client /server power.\n\nYou can also mix Xbase based command with SQL queries both in the same EXE.\n\nADS also offers internet access to you data.\n\nSome changes have to be done in the source code but in my experience you can be fully C/S operative in a month or so with your same source code.','',0,'AIA=','3807th1m',1,0,'',138,0,0),(35922,7813,3,47,0,'203.147.0.44',1186594454,1,0,1,1,1,0,'','','Dear Rene,\n\nI read a lot of story about ADS and I\'ve some question?\n\n1. The license is per workstation or a license per 5 w/s (for example)\n\n2. When I install ADS, it means I can access Local, Remote and Internet?\n\n3. How can I use another app. (CDBF for example) to open a file in ADS?\n\n4. If I\'m right, no file corrupt any more?\n\n5. I\'ve FWH2.5 and xHB July 2005 build (Commercial), Is it fully support? \n    or Upgrade to current version?\n\nRegards,\nDutch','',0,'AIA=','stwak3m6',1,0,'',47,0,0),(35923,7812,3,6,0,'79.3.210.112',1186597976,1,0,1,1,1,1,'','Re: Adding External DLL Calls','[quote=&quot;Jeff Barnes&quot;:29qkd50d]Syntax :\nFunction Connect() as String\nReturn values:\nSuccess - Port number\nError - Empty String\n\nDLL32 FUNCTION Connect() AS LPSTR PASCAL LIB \"\\Ez\\dll\\POx.DLL\"[/quote:29qkd50d]\n\nAs far as I know, you can\'t return a string from a DLL function. Do you have any VB samples?\n\n[quote=&quot;Jeff Barnes&quot;:29qkd50d]Syntax :\nFunction SetID(id as String) as Boolean\nReturn values:\nSuccess - TRUE\nError - FALSE\n\nDLL32 FUNCTION SetID(ID AS LPSTR) AS WORD  PASCAL LIB \"\\Ez\\dll\\POx.DLL\"[/quote:29qkd50d]\n\nAS BOOL instead of AS WORD.\n\n[quote=&quot;Jeff Barnes&quot;:29qkd50d]DLL32 FUNCTION SetTime(cur_time AS Date) AS WORD PASCAL LIB \"\\Ez\\dll\\POx.DLL\"[/quote:29qkd50d]\n\nThere\'s nothing like AS Date.\n\n[quote=&quot;Jeff Barnes&quot;:29qkd50d]DLL32 FUNCTION GetData(data_array()) AS LONG PASCAL LIB \"\\Ez\\dll\\POx.DLL\"[/quote:29qkd50d]\n\nThere\'s nothing like data_array() without data type.\n\nEMG','',0,'gA==','29qkd50d',1,0,'',6,0,0),(35924,7814,6,300,0,'189.10.34.230',1186598159,1,0,1,1,1,0,'','Duda Twordhb','Ola,\n\nUtilizo la twordhb para preencher uno formulario word, utilizo uno dbf temporario con mergefild en los campos do word, ao invocar utilizo:\n\noWord := TWord():New()\noWord:OpenDoc( cModelo )\noWord:OpenDataSource( cArquivo )\noWord:oMailMerge:Invoke( \"Execute\" )\noWord:Visualizar()\n\nMe abre 2 arquivos RECIBO.DOT e otro com los dados correctos nos campos. Como evitar abrir o RECIBO.DOT?\nSe utilizo la impressão antes de visualizar me imprime RECIBO.DOT.\n\nSalu2.','',0,'gA==','85ojjx0z',1,0,'',300,0,0),(35925,7812,3,69,0,'206.210.100.104',1186599396,1,0,1,1,1,0,'','','Hi Enrico,\n\nPlease check your email.\n\n\nThanks,\nJeff','',0,'gA==','3gn5uj5i',1,0,'',69,0,0),(35926,7806,2,2,0,'87.218.146.227',1186599469,1,0,1,1,1,1,'','','Practicamente pasas a FWH sin ningún cambio','',0,'gA==','2qb31fx2',1,0,'',2,0,0),(35927,7715,6,621,0,'190.136.230.227',1186599746,1,0,1,1,1,0,'','','Existe alguna forma de conocer la existencia de un archivo determinado en la carpeta compartida donde se alojan las tablas, bajo un Remote Server  y utilizando el Cliente CLIPPER/DOS ?\n\nPara el caso especifico, no me sirve la funcion File(), por cuanto AX_RightsCheck(.F.).\n\nMi intencion es conocer si existe el .CDX asociado a una tabla, y si no existe automaticamente crearlo..\n\nAlguien lo ha hecho ?\n\nDesde ya gracias..\n\n\nSergio E. Venegas\nTucuman - Argentina','',0,'gA==','1hpcizxj',1,0,'',621,0,0),(35928,7814,6,18,0,'200.67.188.236',1186605546,1,0,1,1,1,1,'','Re: Duda Twordhb','[quote=&quot;Wanderson&quot;:39a2y1ca]Ola,\n\nUtilizo la twordhb para preencher uno formulario word, utilizo uno dbf temporario con mergefild en los campos do word, ao invocar utilizo:\n\noWord := TWord():New()\noWord:OpenDoc( cModelo )\noWord:OpenDataSource( cArquivo )\noWord:oMailMerge:Invoke( \"Execute\" )\noWord:Visualizar()\n\nMe abre 2 arquivos RECIBO.DOT e otro com los dados correctos nos campos. Como evitar abrir o RECIBO.DOT?\nSe utilizo la impressão antes de visualizar me imprime RECIBO.DOT.\n\nSalu2.[/quote:39a2y1ca]\n\nPodrías publicar un ejemplo de tu base de datos ?','',0,'gA==','39a2y1ca',1,0,'',18,0,0),(35929,7814,6,300,0,'200.163.160.143',1186606246,1,0,1,1,1,0,'','Re: Duda Twordhb','[quote=&quot;Vikthor&quot;:3l8cnvo3][quote=&quot;Wanderson&quot;:3l8cnvo3]Ola,\n\nUtilizo la twordhb para preencher uno formulario word, utilizo uno dbf temporario con mergefild en los campos do word, ao invocar utilizo:\n\noWord := TWord():New()\noWord:OpenDoc( cModelo )\noWord:OpenDataSource( cArquivo )\noWord:oMailMerge:Invoke( \"Execute\" )\noWord:Visualizar()\n\nMe abre 2 arquivos RECIBO.DOT e otro com los dados correctos nos campos. Como evitar abrir o RECIBO.DOT?\nSe utilizo la impressão antes de visualizar me imprime RECIBO.DOT.\n\n\nSalu2.[/quote:3l8cnvo3]\n\nPodrías publicar un ejemplo de tu base de datos ?[/quote:3l8cnvo3]\n\n\nOlá Vikthor,\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/47790141/AUXREC.DBF.html\">http://rapidshare.com/files/47790141/AUXREC.DBF.html</a><!-- m -->\n\nEste es mi base de dados, existe un RECIBO.DOT onde insiro los campos mergefild ao invocar la visualizacon me abre lo arquivo correcto e tambiem lo RECIBO.DOT. Gostaria que se abrisse solamente lo arquivo com los campos já preenchidos.\n\nGracias.','',0,'gA==','3l8cnvo3',1,0,'',300,0,0),(35930,7813,3,138,0,'189.141.71.139',1186608209,1,0,1,1,1,1,'','','Dutch:\n\n&gt;1. The license is per workstation or a license per 5 w/s (for example) \n\nLicencing is a problem in ADS, it comes in packages of 5, 10, 15, 25, 50, 100, 250 and 1000 concurrent users, you cannot have a 7 users licence, you need to have a 10 users licence, or the 5 users licence, but 2 users will not be able to use the application, they will have to wait until one user leaves the licence free to use it.\n\n&gt;2. When I install ADS, it means I can access Local, Remote and Internet? \n\nYes and not.\n\nFirst of all, we need to clarify the difference beteween servers:\n\nREMOTE SERVER: is the ADS product itself, it\'s installed in your hardware server (Linux, Novell or Windows) to supply database services to your LAN, so all your workstations within your LAN will use ADS CLIENT/SERVER REMOTE server.\n\nINTERNET SERVER: It comes along with REMOTE server, is a part of the REMOTE server itself, you don\'t need to buy or configurate anything, it\'s included, you only thing have to do is to set the ports, and open your router ports and address them to the ADS server (some extra programming is requiered, but it\'s not big deal one or two extra programing lines and you are working with internet server).\n\nLOCAL SERVER: This is a \"small\" ADS server, it comes full into a self-contained DLL and is designed for testing propouses only and stand alone applications, it really supports all the ADS stuff with two exceptions: is not client/server, it doesn\'t support transactions, it\'s great for taking it home because you can develop your application and you don\'t need to be where the server is.\n\nThe main advantage of using the ADS LOCAL server is that you leave your application ready for the REMOTE or the INTERNET server, since the same source code will work with all the 3 servers. \n\n&gt;3. How can I use another app. (CDBF for example) to open a file in ADS?\n\nADS provides its own database management tool, is called ARC (Advantage Data ARChitech) it a full DBU system that let you use ADS tables, DBFCDX files and handle data dictionaries.\n\n&gt;4. If I\'m right, no file corrupt any more? \n\nNever again, no index corruption, nor database corruption either, no matter how many records you have in your database (I have customers with DBFs with more than 20 million records in a single DBF).\n\n&gt;5. I\'ve FWH2.5 and xHB July 2005 build (Commercial), Is it fully support?\nor Upgrade to current version? \n\nIn general it will work accurate with ADS, I recall that there\'s a small \"issue\" with xHarbour regarding the RDDADS with that version, the problem is with the Internet access, not big deal but anyway, you should check the latest xHarbour commercial version, that issue is solved in the most recent release.','',0,'gA==','29snkjau',1,0,'',138,0,0),(35931,7815,6,875,0,'64.76.108.182',1186609252,1,0,1,1,1,0,'','Problema con Hoja De Excel','tengo el Siguiente Programa:\n\n#Include \'FiveWin.ch\'\n\nFunction Main()\n   Local oExcel,oHoja,nFila,nColu,I,J,_Val\n\n   oExcel:=TOleAuto():New(\'Excel.Applicati\n   oExcel:WorkBooks:Open(\"C:\\Atento.xls\")\n\n   oHoja:=oExcel:Get( \"ActiveSheet\" )  //  Aqui falla  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n   nFila:=oHoja:UsedRange:Rows:Count()\n   nColu:=oHoja:UsedRange:Columns:Count()\n   Select A\n   Use Cheq_ate Shared\n   Set Index To (\'Cheq_ate.Id1\'),(\'Cheq_ate.Id2\')\n\n   For I=2 To nFila\n       For J=2 To nColu\n           Select A\n           Append Blank\n           _Val_:=oHoja:Cells(I,J):Value\n           FieldPut(J,_Val_)\n       Next\n       Commit\n   Next I\n\n   Select A\n   Use\n   oExcel:Quit()\n   oHoja:End()\n   oExcel:End()\nReturn(Nil)\n\n\nY me sale el siguiente error: \n\nError description: Error Excel.Application/16389\n    E_FAIL:ACTIVESHEET\n\n-------------------------------------\nCalled from:  =&gt; TOLEAUTO:ACTIVESHEET(0)\nCalled from:  =&gt; HB_EXECFROMARRAY(0)\nCalled from: source\\rtl\\tget.prg =&gt; TOLEAUTO:GET(349)\nCalled from: exce_pr.prg =&gt; MAIN(9)\n\n¿Que puede ser?   <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->    uso FiveWin 7.05 con Harbour y tengo instalado el excel.\n\nSe agradece la ayuda\n\n\nJaime','',0,'gA==','390h9b1i',1,0,'',875,0,0),(35932,7815,6,875,0,'64.76.108.182',1186611457,1,0,1,1,1,0,'','','Encontre la solucion  en el foro\n\nno es:  \n\noHoja:=oExcel:Get( \"ActiveSheet\" )\n\n\nsino:\n\n\noHoja:=oExcel:ActiveSheet()         <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->','',0,'gA==','ycqedr5r',1,0,'',875,0,0),(35933,7815,6,18,0,'200.67.188.236',1186613143,1,0,1,1,1,1,'','','[quote=&quot;jacgsoft&quot;:1mctrqf8]Encontre la solucion  en el foro\n\nno es:  \n\noHoja:=oExcel:Get( \"ActiveSheet\" )\n\n\nsino:\n\n\noHoja:=oExcel:ActiveSheet()         <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: -->[/quote:1mctrqf8]\n\n\nLos métodos Get() y Set() funcionan bien.\nEl detalle fue en como lo estas usando.\nCuando quieres establecer alguna propiedad deber utilizar Set()\nPara Obtener algun valor debes usar Get()\nY para correr alguna propiedad debes usar el método Invoke()\n\nRevisa el código fuente de la clase TExcel.','',0,'gA==','1mctrqf8',1,0,'',18,0,0),(35934,7813,3,47,0,'203.144.160.247',1186642878,1,0,1,1,1,0,'','','Dear Rene,\n\nWhere do I download Advantage Local Server for testing and which version?\n\nWhat will I start?  \n\nThanks&amp;regards,\nDutch','',0,'gA==','24ctaz65',1,0,'',47,0,0),(35935,7816,6,533,0,'80.32.177.143',1186650436,1,0,1,1,1,0,'','Refesco','Buenos días foro:\n\n   Tengo en un dialogo desde resursos (Microsoft C++) con un combobox y 2 checks, los checks tienen que estar activados solo cuando se haya seleccionado un valor específico del combo, con el resto de valores tienen que estar desactivados. Por defecto, cuando se activa el dialogo, los check estan activados porque el valor del combo es que el lo activa, pues cuando selecciono un valor que los deviera de desactivar, no se refresca los checks y siguen activos. Solo se desactivan cuando vuelve a coger el foco el combo o cuando pincho sobre cualquiera de los 2 checks. He probado con sysrefres, refrescando los checks en el ON CHANGE del combo, ¿sabeis de que puede ser?\n\n[code:5poo25dl]\nredefine combobox oCombo var vCombo items aCombo id 801 of oDlg STYLE CBS_DROPDOWN ON CHANGE &#40;ocheck1&#58;refresh&#40;&#41;,ocheck2&#58;refresh&#40;&#41;&#41;\n\nocombo&#58;blostfocus&#58;=&#123;||ocheck1&#58;refresh&#40;&#41;,ocheck2&#58;refresh&#40;&#41;&#125;\n\nredefine checkbox ocheck1 var porprecio id 702 of odlg when  objeto&#58;lPuedoModificar &#46;and&#46; alltrim&#40;vCombo&#41;=&quot;NO ADJUDICADA&quot; on change &#40;Desactiva&#40;ocheck2,@porconstructora&#41;,sysrefresh&#40;&#41;&#41; UPDATE\n\nredefine checkbox ocheck2 var porconstructora id 703 of odlg when  objeto&#58;lPuedoModificar &#46;and&#46; alltrim&#40;vCombo&#41;=&quot;NO ADJUDICADA&quot; on change &#40;Desactiva&#40;ocheck1,@porprecio&#41;,sysrefresh&#40;&#41;&#41; UPDATE[/code:5poo25dl]\n\nMuchas Gracias.','',0,'AIA=','5poo25dl',1,0,'',533,0,0),(35936,7810,11,2,0,'87.218.146.227',1186655471,1,0,1,1,1,1,'','','Doug,\n\nHere it works fine though sometimes you have to click twice in between the GET. In this sample I have inserted \"xbase\" in between \"Hello world!\":\n[url=http&#58;//imageshack&#46;us:3mkr880u][img:3mkr880u]http&#58;//img471&#46;imageshack&#46;us/img471/699/screenshot1ya3&#46;png[/img:3mkr880u][/url:3mkr880u]\n&gt;\n(&lt;unknown&gt;:26188): Gtk-WARNING **: GtkEntry - did not receive focus-out-event. If you connect a handler to this signal, it must return FALSE so the entry gets the event as well \n&gt;\nYes, I have seen it, though it does not happens always. The function is returning FALSE as required. It may be a GTK issue (?)','',0,'GA==','3mkr880u',1,0,'',2,0,0),(35937,7816,6,2,0,'87.218.146.227',1186655908,1,0,1,1,1,1,'','','Mike,\n\nHazlo así:\n[code:igyycj4g]\nredefine combobox oCombo var vCombo items aCombo id 801 of oDlg STYLE CBS_DROPDOWN ON CHANGE If&#40; objeto&#58;lPuedoModificar &#46;and&#46; alltrim&#40;vCombo&#41;=&quot;NO ADJUDICADA&quot;, &#40; ocheck1&#58;Enable&#40;&#41;, ocheck2&#58;Enable&#40;&#41; &#41;, &#40; ocheck1&#58;Disable&#40;&#41;, ocheck2&#58;Disable&#40;&#41; &#41; &#41;\n\nredefine checkbox ocheck1 var porprecio id 702 of odlg when  objeto&#58;lPuedoModificar &#46;and&#46; alltrim&#40;vCombo&#41;=&quot;NO ADJUDICADA&quot; on change &#40;Desactiva&#40;ocheck2,@porconstructora&#41;,sysrefresh&#40;&#41;&#41; UPDATE\n\nredefine checkbox ocheck2 var porconstructora id 703 of odlg when  objeto&#58;lPuedoModificar &#46;and&#46; alltrim&#40;vCombo&#41;=&quot;NO ADJUDICADA&quot; on change &#40;Desactiva&#40;ocheck1,@porprecio&#41;,sysrefresh&#40;&#41;&#41; UPDATE\n[/code:igyycj4g]','',0,'AIA=','igyycj4g',1,0,'',2,0,0),(35938,7804,1,2,0,'87.218.146.227',1186656330,1,0,1,1,1,1,'','','Jose,\n\nTry it this way. Here its working fine with Clipper and Vista:\n[code:ud16bhfd]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   SndPlaySound&#40; &quot;test&#46;wav&quot;, 0 &#41;\n\nreturn nil\n\nDLL FUNCTION SndPlaySound&#40; cFile AS LPSTR, nType AS WORD &#41; AS BOOL PASCAL LIB &quot;MMSYSTEM&#46;DLL&quot;\n[/code:ud16bhfd]','',0,'AIA=','ud16bhfd',1,1186703740,'',2,1,0),(35939,7798,2,2,0,'87.218.146.227',1186659986,1,0,1,1,1,1,'','','Gerardo,\n\nTienes que plantearte pasar la aplicación a 32 bits usando FWH y Harbour/xharbour','',0,'AIA=','1jxonlls',1,0,'',2,0,0),(35940,7790,6,2,0,'87.218.146.227',1186660141,1,0,1,1,1,1,'','','Giancarlo,\n\nRevisa samples\\FileVer.prg','',0,'AIA=','323trh5b',1,0,'',2,0,0),(35941,6572,3,2,0,'87.218.146.227',1186660168,1,0,1,1,1,1,'','','Ugo,\n\nPlease review samples\\FileVer.prg','',0,'AIA=','2skoqzew',1,0,'',2,0,0),(35942,7817,6,649,0,'189.12.51.81',1186661625,1,0,1,1,1,1,'','Listar bmps de uma dlls','Pessoal é possivel fazer uma lista dos Bmp de uma dll?´\nse possivel posso imprimir esses bmps tambem?','',0,'AIA=','18745buu',1,0,'',649,0,0),(35943,7818,6,41,0,'200.105.194.234',1186662441,1,0,1,1,1,0,'','Transparencia en controles definidos por el usuario','Holas,\nestoy definiendo algunos controles, y no se como puedo hacerlos transparentes, por ejemplo he probado que el control sea una simple linea, pero igual el area del control no que da transparente, el :ltransparent := .T. no tiene efecto, o tengo que hacerlo de otra manera.\n\nEl control lo estoy derivando de la clase Tcontrol\n\nalguna idea?\n\nsaludos\n\nMarcelo','',0,'AIA=','1wz6zom1',1,0,'',41,0,0),(35944,7819,3,69,0,'206.210.100.104',1186664558,1,0,1,1,1,1,'','ActiveX DLL Functions','Hi Everybody,\n\nI have an ActiveX DLL that I need to call functions from.\n\nI have not tried any ActiveX before and do not know where to start.\n\nCan someone give me some pointers as to how to call functions inside an ActiveX DLL.\n\n\nThanks,','',0,'AIA=','3jnoqltj',1,0,'',69,0,0),(35945,7820,6,533,0,'80.32.177.143',1186664712,1,0,1,1,1,0,'','Horizontal y Vertical','Hola foro (denuevo)\n\n   Tengo un report que por defecto cuando lo imprime lo hace de forma vertical y todo correcto. Le he añadido la posibilidad de hacerlo de manera vertical u horizontal, poniento\n\n   oReport:oDevice:Setportrait() o oReport:oDevice:SetLandScape()\n\n   Cuando selecciono el formato vertical todo correcto pero cuando selecciono el vertical me pinta el mismo formato vertical pero el horizontal pero comiendose las ultimas líneas del informe.\n\n   Si me he explicado correctamente, ¿cómo podemos solucionarlo?\n\nGRACIAS','',0,'AIA=','2gz5c2fc',1,0,'',533,0,0),(35946,6572,3,154,0,'151.21.34.185',1186665211,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1a0r6hwn]Please review samples\\FileVer.prg[/quote:1a0r6hwn]\nAntonio,\nthank you for your reply.\n\nIt is also possible to insert a personal variable!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nVery very good!!','',0,'gA==','1a0r6hwn',1,0,'',154,0,0),(35947,7819,3,2,0,'87.218.146.227',1186665862,1,0,1,1,1,1,'','','Jeff,\n\nPlease make a search for TActiveX in these forums. \n\nThere are many examples','',0,'gA==','1fpfx2f3',1,0,'',2,0,0),(35948,7819,3,2,0,'87.218.146.227',1186666051,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2vdv6401][img:2vdv6401]http&#58;//img357&#46;imageshack&#46;us/img357/4264/searchko6&#46;png[/img:2vdv6401][/url:2vdv6401]','',0,'GA==','2vdv6401',1,0,'',2,0,0),(35949,7818,6,2,0,'87.218.146.227',1186666154,1,0,1,1,1,1,'','','Marcelo,\n\nEstas usando temas de XP ?','',0,'GA==','3o88shr7',1,0,'',2,0,0),(35950,7817,6,2,0,'87.218.146.227',1186666262,1,0,1,1,1,1,'','','Marcelo,\n\nTe refieres a hacerlo en tiempo de ejecución, desde tu aplicación ?','',0,'GA==','2kme8uds',1,0,'',2,0,0),(35951,7817,6,649,0,'189.12.51.81',1186668032,1,0,1,1,1,1,'','','Sim em tempo de execução.','',0,'GA==','2y3706wr',1,0,'',649,0,0),(35952,7821,6,694,0,'201.22.70.139',1186668312,1,0,1,1,1,1,'','alinhar SAY desde um recurso via PRG, é possível ?','Antonio, é possível mudar o alinhamento de um SAY (RECURSO) via PRG?\n\nNo recurso: RIGHT\n\nEX:\n\nREDEFINE SAY oSay prompt \"TESTE\" ID 101 OF odlg CENTER','',0,'GA==','3aedwm79',1,0,'',694,0,0),(35953,7818,6,41,0,'200.105.194.234',1186668339,1,0,1,1,1,0,'','','Antonio,\n\nno, no estoy utilizando temas de XP\n\nsaludos\n\nMarcelo','',0,'GA==','3e1m7e1n',1,0,'',41,0,0),(35954,7719,3,154,0,'151.21.34.185',1186670154,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:dk8e9dqw]Thanks for finding that and a fix. A better, and simpler, fix is this:\n\n[code:dk8e9dqw]METHOD LostFocus&#40; hWndGetFocus &#41; CLASS TDBCombo\n   &#58;&#58;cSearchKey&#58;=&quot;&quot;\nreturn super&#58;LostFocus&#40;&#41;[/code:dk8e9dqw]\n[/quote:dk8e9dqw]\nDear James,\nnow work fine with your new LostFocus method  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nI do not know why in first test not work!\ni\'m sorry!  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gIA=','dk8e9dqw',1,0,'',154,0,0),(35955,7813,3,299,0,'24.233.172.101',1186670207,1,0,1,0,1,0,'','','My 2 cents;\n\nAny installation where Client-Server is a must, then it is well worth the price you pay for ADS, ie. ADS price is much too little to be a consideration on these scenarios.  Plus, you get to keep ISAM and add SQL on top --think a little about that!\n\nHere is what I mean:\nYour app may run without ADS on installations where data corruption is somewhat acceptable or unlikely to happen too often and speed is not crucial.  When the number of users is higher or speed is crucial or data corruption is simply not acceptable at anytime; then ADS is well worth the price.   Obviously this a more serious environment, thus a price must be paid.   In either case your source is still pretty much the same with/without ADS Client-Server.\n\nI\'ve converted most of my customer base over to ADS.  Some of my .fpt files are over 80 gigs w 50 users accesing the DB.  Absolutely zero corruption with lighting speed.  I\'m very-very satisfied using xHarbour 0.99.61 + BCC 5.5 + FWh + ADS server.  These are tools we need to promote and make sure that they don\'t ever go away less we are willing to convert over to VB. :-(  \n\n\n\nReinaldo.','',0,'gIA=','3vw7qrej',1,0,'',299,0,0),(35956,6572,3,299,0,'24.233.172.101',1186670522,1,0,1,0,1,0,'','','Antonio;\n\nHi.\n\nWhen did you release filever.prg?  For some reason I can\'t seem to find it.\n\nThank you,\n\n\n\nReinaldo.','',0,'gIA=','1ldqbsj2',1,0,'',299,0,0),(35957,7798,2,138,0,'189.141.71.139',1186670778,1,0,1,1,1,1,'','','Gerardo:\n\nEstas trabajando con herramientas que tienen mas de 5 años de antiguedad, actualmente ya casi nadie utiliza FiveWin Clipper, todo el mundo estamos con FiveWin Harbour, por lo menos desde hace 2 años.\n\nComo dice Antonio, dale las gracias a Clipper, y entra de lleno a (x)Harbour, si te das cuenta en los mensajes de los foros, nadie de los que trabajan a 32 bits tiene los problemas que estas tendiendo tu, y que pronto irán a ser mayores seguramente.\n\nAsi que aun es tiempo de moverte, el mundo de los 32 bits no tiene limitaciones.','',0,'gIA=','3ce3ome1',1,0,'',138,0,0),(35958,7719,3,303,0,'72.199.41.171',1186670789,1,0,1,1,1,0,'','','Ugo,\n\nGlad to hear you got it working.\n\nJames','',0,'gIA=','2xe3s9z4',1,0,'',303,0,0),(35959,7818,6,2,0,'87.218.146.227',1186674383,1,0,1,1,1,1,'','','Prueba a asignarle un brush \"NULL\" al control:\n\n&lt;oControl&gt;:SetBrush( TBrush():New( \"NULL\" ) )\n\nEso hará que se dibuje transparente','',0,'gIA=','2z0lb39p',1,0,'',2,0,0),(35960,6572,3,2,0,'87.218.146.227',1186674926,1,0,1,1,1,1,'','','Reinaldo,\n\nAugust 2006','',0,'gIA=','3bjegmef',1,0,'',2,0,0),(35961,7818,6,41,0,'200.105.194.234',1186675904,1,0,1,1,1,0,'','','Gracias Antonio,\n\npero aun no funciono, te dejo el codigo es super sencillo\n\n[code:1s6t4nq0]\n#include &quot;fivewin&#46;ch&quot;\n\nFUNCTION main&#40;&#41;\n   LOCAL oDlg, ofig1, ofig2, s1\n\n   DEFINE WINDOW oDlg FROM 10,10 TO 40,60\n\n   SetGridSize&#40; 5, 5 &#41;\n\n   @ 15,15 say s1 PROMPT &quot;HOLA&quot; of odlg COLOR CLR_RED SIZE 100,20 DESIGN\n   s1&#58;lTransparent &#58;= &#46;T&#46;\n\n   ofig1 &#58;= tfig&#40;&#41;&#58;new&#40;1,1,25,25, oDlg &#41;\n   ofig1&#58;setBrush&#40; tbrush&#40;&#41;&#58;new&#40;&quot;NULL&quot;&#41;&#41;\n\n   ofig2 &#58;= tfig&#40;&#41;&#58;new&#40;25,25,45,55, oDlg &#41;\n   ofig2&#58;setBrush&#40; tbrush&#40;&#41;&#58;new&#40;&quot;NULL&quot;&#41;&#41;\n\n   ACTIVATE WINDOW oDLg\n\n   RETURN&#40; NIL &#41;\n\n//----------------------------------------------------------------------------//\n\nCLASS Tfig FROM TControl\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   METHOD New&#40; nRow, nCol, nHeight, nWidth, oWnd &#41; CONSTRUCTOR\n   METHOD Display&#40;&#41; INLINE &#58;&#58;BeginPaint&#40;&#41;, &#58;&#58;Paint&#40;&#41;, &#58;&#58;EndPaint&#40;&#41;, 0\n   METHOD Initiate&#40; hDlg &#41; INLINE Super&#58;Initiate&#40; hDlg &#41;\n   METHOD Paint&#40;&#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\nMETHOD New&#40; nRow, nCol, nHeight, nWidth, oWnd &#41; CLASS tfig\n\n   &#58;&#58;nTop      &#58;= nRow\n   &#58;&#58;nLeft     &#58;= nCol\n   &#58;&#58;nBottom   &#58;= &#58;&#58;nTop  + nHeight\n   &#58;&#58;nRight    &#58;= &#58;&#58;nLeft + nWidth\n\n   &#58;&#58;oWnd      &#58;= oWnd\n   &#58;&#58;nStyle  = nOr&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_CLIPSIBLINGS &#41;\n\n   &#58;&#58;lCaptured   &#58;= &#46;F&#46;\n   &#58;&#58;lDrag       &#58;= &#46;T&#46;\n   &#58;&#58;lDesign     &#58;= &#46;T&#46;\n   &#58;&#58;lUpdate     &#58;= &#46;T&#46;\n   &#58;&#58;lRegistered &#58;= &#46;f&#46;\n   &#58;&#58;ltransparent &#58;= &#46;T&#46;\n\n   &#58;&#58;Register&#40;&#41;\n   &#58;&#58;Create&#40;&#41;\n   &#58;&#58;oWnd&#58;AddControl&#40; Self &#41;\n   &#58;&#58;CheckDots&#40;&#41;\n\nreturn SELF\n\n//----------------------------------------------------------------------------//\nMETHOD Paint&#40;&#41; CLASS tfig\n   LOCAL hBrush, hOldBrush\n\n   moveTo&#40; &#58;&#58;hDC, 1, 1 &#41;\n   LineTo&#40; &#58;&#58;hDC, &#58;&#58;nWidth, &#58;&#58;nHeight &#41;\n\nreturn Super&#58;Paint&#40;&#41;\n[/code:1s6t4nq0]','',0,'AIA=','1s6t4nq0',1,0,'',41,0,0),(35962,7821,6,41,0,'200.105.194.234',1186676081,1,0,1,1,1,0,'','','Hola,\n\nhasta donde yo se no podras cambiar la alineacion desde el PRG, si deseas tener mas de una alineacion deberas definir tantos GETs como alineaciones quieres manejar en el RC, RES o DLL, y desde el PRG esconder (hide()) y mostrar (show()) el (los) gets respectivos a la alineacion que deseas mostrar.\n\nsaludos\n\nMarcelo','',0,'AIA=','rgw6dbwp',1,0,'',41,0,0),(35963,7822,3,689,0,'201.47.47.87',1186677817,1,0,1,1,1,0,'','List of all bitmaps in dll','Hello, is there a way to show all bitmaps that one dll contains?\n\nThanks.','',0,'AIA=','39payi5g',1,0,'',689,0,0),(35964,7804,1,819,0,'67.187.239.16',1186677897,1,0,1,1,1,0,'','Sound still not playing in Windows XP','Antonio,\n\nI follow your sugesttion but, the sound is still not playing.  The function sndPlaySound return false.\n\nThanks,\n\nJose','',0,'AIA=','105b41eb',1,0,'',819,0,0),(35965,7823,6,1106,0,'201.217.190.100',1186677971,1,0,1,1,1,0,'','Necesito idea para crear base de datos','Amigos:\n\nNecesito crear una base de datos según los datos que me ingresen.\n\nEj: Hora comienzo = 08 ( de la mañana)\n     Hora Final        = 06 ( de la mañana del dia siguiente)\n     Intervalo         = 2 horas.\n\nDebo crear una base de datos que tenga los campos necesarios\ndesde las 08 a las 06 y que vaya de 2 en 2.\n08-10-12-14-16-18-20-22-24-02-04-06 algo asi.\n\nSe agradece alguna idea.\n\nsaludos.\nMuchas gracias.\n\nRuben Fernandez.','',0,'AIA=','2b89z4gq',1,0,'',1106,0,0),(35967,7825,6,53,0,'189.139.17.140',1186679042,1,0,1,1,1,1,'','Off Topic con XP','Amigos, se que esta no es propiamente una pregunta del foro pero en los momentos de apuro donde más puede uno acudir ?\n\nEl problema es el siguiente: En una red P2P cuando se intenta conectar un PC más a la red aparece el siguiente mensaje:\n\n\"No se pueden realizar más conexiones al equipo remoto\"\n\nEsto sucede al momento de tratar de a \"Conectar a Unidad de RED\"\nla PC \"servidor\" tiene Windows XP\n\nAlguna idea de por donde van los disparos ?\n\nGracias por el apoyo','',0,'AIA=','yab3c9by',1,0,'',53,0,0),(35968,7825,6,940,0,'189.157.84.236',1186679312,1,0,1,1,1,1,'','','Armando,\n\nlamento decirte que el winxp profesional o home,\n\nsolo aceptan maximo 10 conexiones de red,\n\npara solventar ese problema tendras que administrar\n\ntu red con windows server,\n\nsaludos..','',0,'AIA=','3jlo83g1',1,0,'',940,0,0),(35969,7817,6,46,0,'217.168.114.31',1186680292,1,0,1,1,1,0,'','','Voce pode experimentar :\n\n[code:1d1lce4x]\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\naBitMaps &#58;= EnumResourcesBitMap&#40;&#41;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\n\n\n#pragma BEGINDUMP\n\n#include &lt;WinTen&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n#include &lt;CommDlg&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\nstatic far int nResourceIndex = 0;\nstatic far BOOL bGetName = FALSE;\n\nstatic int CALLBACK EnumResourceFunc&#40; HANDLE hModule, // resource-module handle\n                                      LPCTSTR lpszType,  // pointer to resource type\n                                      LPTSTR lpszName,   // pointer to resource name\n                                      LONG lParam  // application-defined parameter\n                                      &#41;\n&#123;\n  #ifdef __XPP__\n     void * params = _params;\n  #endif\n\n  ++nResourceIndex;\n  if &#40; bGetName &#41;\n     _storc&#40; lpszName, -1, nResourceIndex &#41;;\n  return 1;\n&#125;\n\nHB_FUNC&#40; ENUMRESOURCESBITMAP &#41;\n&#123;\n  ENUMRESNAMEPROC  lpEnumResourceFunc = &#40; ENUMRESNAMEPROC  &#41;\n      MakeProcInstance&#40; &#40; FARPROC &#41; EnumResourceFunc, GetInstance&#40;&#41; &#41;;\n\n  // Get the number of recurs bitmap\n  nResourceIndex = 0;\n  bGetName = FALSE;\n  EnumResourceNames&#40; NULL, RT_BITMAP, lpEnumResourceFunc, NULL &#41;;\n\n  // Get the recurso bitmap names\n  _reta&#40; nResourceIndex &#41;;\n  nResourceIndex = 0;\n  bGetName = TRUE;\n  EnumResourceNames&#40; NULL, RT_BITMAP, lpEnumResourceFunc, NULL &#41;;\n\n  FreeProcInstance&#40; &#40; FARPROC &#41; EnumResourceFunc &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:1d1lce4x]','',0,'AIA=','1d1lce4x',1,0,'',46,0,0),(35970,7808,3,35,0,'167.7.140.254',1186680934,1,0,1,1,1,0,'','','To All\n\nThis has been fixed .. turned out to be a DNS problem on the Win2003 servers ..\n\nThanks\nRick Lipkin','',0,'AIA=','3tcyuk19',1,0,'',35,0,0),(35971,5153,22,233,0,'60.49.116.108',1186681669,1,0,1,1,1,0,'','','Got it   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','128vu88d',1,0,'',233,0,0),(35972,7807,6,215,0,'189.136.49.18',1186681716,1,0,1,1,1,0,'','este','Hola,\nyo estoy usando una lib beta de Canal 5 para usar GDI Plus.\nEstoy cambiando el uso de freeimage por que algunas veces la imagen no me la muestra. Lo curioso es que ni saliendose del programa y volviendo a entrar se recupera... \nCon GDI no he tenido problemas y tengo la libertad de mostrar cualquier tipo de imagen que windows pueda mostrar. \nMi programa es usado por 25 capturistas al mismo tiempo, muestra en un dialogo una imagen tiff de 280 kb y otra de 80 kb por cada registro de la dbf.\nTambien es posible enderezar imagenes y hacer otras cosas.\nPero como te dije... es una versión beta que funciona bastante bien.','',0,'AIA=','2mh0q2vx',1,0,'',215,0,0),(35973,7805,3,233,0,'60.49.116.108',1186681890,1,0,1,1,1,0,'','','I noticed it also. Could you post the solution here later Antonio? Thanks','',0,'AIA=','1iimibt8',1,0,'',233,0,0),(35974,7826,2,1107,0,'200.77.34.17',1186682025,1,0,1,1,1,0,'','Como obtener la resolución de la pantalla','Ayuda por favor, alguien me puede decir como obtener la resolución de la pantalla en la que se está corriendo la aplicación.\n\nPor ejemplo: 1024 X 768 ó 1440 X 900 ó 800 X 600\n\nGuillermo Guevara C.\nFW23b Clp52e Blk3.30','',0,'AIA=','2i1au3oy',1,0,'',1107,0,0),(35975,7783,6,215,0,'189.136.49.18',1186682337,1,0,1,1,1,1,'','y esto','Y si haces una chapuza...\nRUN Dir&gt;Hola.txt\n\nDespues abres Hola.txt y la primera linea te dice lo que necesitas.\n\n El volumen de la unidad E es EDICIONES\n El n£mero de serie del volumen es: ACF3-444F','',0,'AIA=','y39qwkdw',1,0,'',215,0,0),(35976,7822,3,6,0,'82.57.162.169',1186683189,1,0,1,1,1,1,'','Re: List of all bitmaps in dll','Try to open it with a resource editor like Borland Resource Workshop.\n\nEMG','',0,'AIA=','2slxbiby',1,0,'',6,0,0),(35977,7819,3,69,0,'206.210.100.104',1186683701,1,0,1,1,1,1,'','','Antonio,\n\nI\'ve been looking at the different posts but I can not see how I tell my program that I want to use MyFile.DLL.\n\nIt looks like once I get that figured out I would be using commands like:\n\noActiveX&#058;DO(\"MyFunction\")\n\nIs that correct?','',0,'AIA=','z0zey6gn',1,0,'',69,0,0),(35978,7783,6,1063,0,'200.27.109.129',1186684150,1,0,1,1,1,1,'','aca esta el tdiskinfo.prg','#define cTDiskInfoVer  \"Seguridad Check - 2006 ©\"\n#include \"FiveWin.ch\"\n\nCLASS TDiskInfo\n\n DATA nBBSector   AS NUMERIC\n DATA nUsedSpace  AS NUMERIC\n DATA nSBCluster  AS NUMERIC\n DATA nFreeSpace  AS NUMERIC\n DATA nTotalSpace AS NUMERIC\n\n DATA cLabel      AS CHARACTER\n DATA cDrive      AS CHARACTER\n DATA cNumSerie   AS CHARACTER\n DATA cDriveType  AS CHARACTER\n DATA cFileSystem AS CHARACTER\n\n METHOD New( cDrive ) CONSTRUCTOR\n\n METHOD TDIVer() INLINE;\n        MsgInfo(\"By Multimax Ltda, Iquique - Chile\" + CRLF +;\n                \" For FiveWin + xHarbour. 32 Bits \" + CRLF +;\n                \" email: <!-- e --><a href=\"mailto:elmoceballos@multimax.cl\">elmoceballos@multimax.cl</a><!-- e --> \",cTDiskInfoVer)\n\n METHOD Default() // Default\n\n METHOD Drive( cNewDrive ) // Drive\n\n METHOD Label() INLINE ::cLabel // Label\n\n METHOD DriveType() INLINE ::cDriveType // Drive Type\n\n METHOD NumSerie() INLINE ::cNumSerie // Num Serie - Type DOS\n\n METHOD FileSystem() INLINE Upper( ::cFileSystem ) // File System\n\n METHOD BBSector() INLINE fFormat( ::nBBSector ) // Bytes by Sector\n\n METHOD SBCluster() INLINE fFormat( ::nSBCluster ) // Sector by Cluster\n\n METHOD UsedSpace() INLINE fFormat( ::nUsedSpace ) // Used Space\n\n METHOD FreeSpace() INLINE fFormat( ::nFreeSpace ) // Free Space\n\n METHOD TotalSpace() INLINE fFormat( ::nTotalSpace ) // Total Space\n\n METHOD SUSpace() INLINE fFormat( ::nUsedSpace, .T. ) // Short Use Space\n\n METHOD SFSpace() INLINE fFormat( ::nFreeSpace, .T. ) // Short Free Space\n\n METHOD STSpace() INLINE fFormat( ::nTotalSpace, .T. ) // Short Total Space\n\n METHOD PUSpace() // Porcent Used Space\n\n METHOD PFSpace() // Porcent Free Space\n\nENDCLASS\n\n\n//----------------------------------------------------------------------------//\n// METHOD TDiskInfo:New                 |              Versión 1.0 ENE - 2003 //\n//----------------------------------------------------------------------------//\n\nMETHOD New( cDrive ) CLASS TDiskInfo // New\n\n       Default cDrive := \"C:\\\"\n\n       cDrive   := Left( AllTrim( cDrive ), 1 ) + \":\\\"\n\n       ::cDrive := Upper( cDrive )\n       ::Default()\n\nReturn Self\n\n\n//----------------------------------------------------------------------------//\n// METHOD TDiskInfo:Default()              |           Versión 1.0 ENE - 2003 //\n//----------------------------------------------------------------------------//\n\nMETHOD Default() CLASS TDiskInfo\n\n       Local cDrive, cLabel, nSerial, cFileSystem\n       Local nSBCluster, nBBSector, nFreeClusters, nTotalClusters, nDiskType\n       Local acDrive := { \"No Instalado\",;\n                          \"Disco Removible\",;\n                          \"Disco Local\" ,;\n                          \"Disco de Red\",;\n                          \"Unidad de CD\",;\n                          \"Disco Virtual\"}\n\n       cDrive      := ::cDrive\n       nDiskType   := GetDriveInfo( cDrive )\n\n       If nDiskType = 1\n\n          ::cDrive      := \"\"\n          ::cLabel      := \"\"\n          ::cFileSystem := \"\"\n          ::cNumSerie   := \"\"\n          ::cDriveType  := acDrive[ nDiskType ]\n\n          ::nBBSector   := 0\n          ::nSBCluster  := 0\n          ::nTotalSpace := 0\n          ::nFreeSpace  := 0\n          ::nUsedSpace  := 0\n\n       ELse\n\n          cLabel      := Space(32)\n          cFileSystem := Space(32)\n\n          GetDiskInfo( cDrive, @nSBCluster, @nBBSector,;\n                       @nFreeClusters, @nTotalClusters )\n\n          GetVolInfo( cDrive, @cLabel, Len( cLabel ), @nSerial,;\n                      0, 0, @cFileSystem, Len( cFileSystem ) )\n\n          ::cLabel      := StrToken( cLabel , 1, Chr( 0 ) )\n          ::cFileSystem := StrToken( cFileSystem, 1, Chr( 0 ) )\n          ::cDriveType  := acDrive[ nDiskType ]\n          ::cNumSerie   := Left ( L2Hex( nSerial ), 4) +  \"-\" +;\n                           Right( I2Hex( nSerial ), 4 )\n\n          ::nBBSector   := nBBSector\n          ::nSBCluster  := nSBCluster\n          ::nTotalSpace := nTotalClusters * nSBCluster * nBBSector\n          ::nFreeSpace  := nSBCluster * nBBSector * nFreeClusters\n          ::nUsedSpace  := ::nTotalSpace - ::nFreeSpace\n\n       End If\n\nReturn Self\n\n\n//----------------------------------------------------------------------------//\n// METHOD TDiskInfo:Drive()               |            Versión 1.0 ENE - 2003 //\n//----------------------------------------------------------------------------//\n\nMETHOD Drive( cNewDrive ) CLASS TDiskInfo // Drive\n\n       If !Empty( cNewDrive )\n\n          ::cDrive:= Upper( cNewDrive )\n          ::Default()\n\n       EndIf\n\nReturn ::cDrive\n\n\n//----------------------------------------------------------------------------//\n// METHOD TDiskInfo:PUSpace()             |            Versión 1.0 ENE - 2003 //\n//----------------------------------------------------------------------------//\n\nMETHOD PUSpace() CLASS TDiskInfo // Porcent Used Space\n\n       Local cTotal := \"0%\"\n\n       If ::nFreeSpace &lt;&gt; 0\n\n          cTotal := AllTrim( Str( Round( ::nFreeSpace * 100  /;\n                                         ::nTotalSpace, 0 ) ) ) + \"%\"\n       EndIf\n\nReturn cTotal\n\n\n//----------------------------------------------------------------------------//\n// METHOD TDiskInfo:PFSpace()             |            Versión 1.0 ENE - 2003 //\n//----------------------------------------------------------------------------//\n\nMETHOD PFSpace() CLASS TDiskInfo // Porcent Free Space\n\n       Local cTotal := \"0%\"\n\n       If ::nUsedSpace &lt;&gt; 0\n\n          cTotal := AllTrim( Str( Round( ::nUsedSpace * 100 /;\n                                         ::nTotalSpace, 0 ) ) ) + \"%\"\n\n       EndIf\n\nReturn cTotal\n\n\n//----------------------------------------------------------------------------//\n//FUNCTION Format()                   |                Versión 1.0 ENE - 2003 //\n//----------------------------------------------------------------------------//\n\nFunction fFormat( nValue, lShortFormat )\n\n  Local cTmp := \" Bytes\", cFormat\n  Local nBT, nKB, nMB, nGB, nTB, nPB, nTmp\n  Local cPicture := \"999,999,999,999,999,999\"\n\n  Default lShortFormat := .F.\n\n  If lShortFormat\n\n     nBT := 1024\n     nKB := nBT * nBT\n     nMB := nKB * nBT\n     nGB := nMB * nBT\n     nTB := nGB * nBT\n     nPB := nTB * nBT\n\n     Do Case\n     Case nValue &lt; nKB\n\n          cTmp   := \" KB\"\n          nTmp   := nValue / nBT\n\n     Case nValue &gt;= nKB .And. nValue &lt; nMB\n\n          cTmp   := \" MB\"\n          nTmp   := nValue / nKB\n\n     Case nValue &gt;= nMB .And. nValue &lt; nGB\n\n          cTmp   := \" GB\"\n          nTmp   := nValue / nMB\n\n     Case nValue &gt;= nGB .And. nValue &lt; nTB\n\n          cTmp   := \" TB\"\n          nTmp   := nValue / nGB\n\n     Case nValue &gt;= nTB .And. nValue &lt; nPB\n\n          cTmp   := \" PB\"\n          nTmp   := nValue / nTB\n\n     OtherWise\n\n          cTmp   := \" N/D\"\n          nTmp   := nValue / ( nPB * nPB )\n\n     EndCase\n\n     cFormat := StrTran( Left( AllTrim( Str( nTmp ) ), 4 ), \".\", \",\" ) + cTmp\n\n  Else\n\n     cFormat := StrTran( AllTrim( Transform( nValue, cPicture ) ), \",\", \".\" ) + cTmp\n\n  EndIf\n\nReturn cFormat\n\n\n//----------------------------------------------------------------------------//\n//        ******************** DECLARACIONES - API ********************       //\n//----------------------------------------------------------------------------//\n\nDLL32 Function GetDiskInfo(sDrive          As STRING,;\n                           @lSBCluster     As LONG,;\n                           @lBBSector      As LONG,;\n                           @lFreeClusters  As LONG,;\n                           @lTotalClusters As LONG);\n               ;\n               AS LONG PASCAL;\n               FROM \"GetDiskFreeSpaceA\";\n               LIB  \"kernel32\"\n\n\nDLL32 Function GetVolInfo(sDrive         AS STRING,;\n                          @sVolName      AS STRING,;\n                          lVolSize       AS LONG,;\n                          @lVolSerial    AS LONG,;\n                          lMaxCompLength AS LONG,;\n                          lFileSystFlags AS LONG,;\n                          @sFileSystName AS STRING,;\n                          lFileSystSize  AS LONG);\n               ;\n               AS LONG PASCAL;\n               FROM \"GetVolumeInformationA\";\n               LIB  \"kernel32\"\n\n\nDLL32 Function GetDriveInfo(sDrive AS STRING);\n               ;\n               AS LONG PASCAL;\n               FROM \"GetDriveTypeA\";\n               LIB  \"kernel32\"\n\Z','',0,'','3k1i6ynd',1,0,'',1063,0,0),(35979,7819,3,69,0,'206.210.100.104',1186684286,1,0,1,1,1,1,'','','I guess step one is:\n\nhPOX := LoadLibrary(\"\\DLL\\MyFile.DLL\")\n\n\n\nBut how do I setup the oActiveX object?','',0,'','30vounz4',1,0,'',69,0,0),(35980,7821,6,46,0,'217.168.114.31',1186684570,1,0,1,1,1,0,'','','Voce pode experimentar em o ON INIT do dialogo\n\n[code:1fryxkrs]\nACTIVATE DIALOG oDlg ON INIT SetWindowLong&#40; oSay&#58;hWnd, GWL_STYLE,;\n                     nOr&#40; GetWindowLong&#40; oSay&#58;hWnd, GWL_STYLE &#41;, SS_CENTER &#41; &#41;\n[/code:1fryxkrs]','',0,'AIA=','1fryxkrs',1,0,'',46,0,0),(35981,7820,6,46,0,'217.168.114.31',1186684959,1,0,1,1,1,0,'','','Prueba poner despues del oReport:oDevice:SetLandScape()\n\noRpt:Stabilize()','',0,'AIA=','qvzhtz5a',1,0,'',46,0,0),(35982,7804,1,2,0,'87.218.146.138',1186686398,1,0,1,1,1,1,'','','Jose,\n\nis you wav file ok ? Can you play it with windows media player ?','',0,'AIA=','2gvykbxr',1,0,'',2,0,0),(35983,7822,3,689,0,'201.47.47.87',1186688182,1,0,1,1,1,0,'','','Thank you Enrico, but this is not that I need. I already solved this.','',0,'AIA=','2qwmc61b',1,0,'',689,0,0),(35984,7819,3,2,0,'87.218.146.138',1186689054,1,0,1,1,1,1,'','','Jeff,\n\nThe first step is to know the PROGID (is a string) of the ActiveX that you are going to use. \n\ni.e. for Microsoft Excell the progid is \"OWC11.Spreadsheet\"\n\nWhats the activex that you are going to use ?','',0,'AIA=','389aajyp',1,0,'',2,0,0),(35985,7826,2,2,0,'87.218.146.138',1186689146,1,0,1,1,1,1,'','','Guillermo,\n\naCoor := GetCoors( GetDesktopWindow() ) \n\n? aCoor[3], aCoor[4]\n\nó tambien:\n\nnAncho := GetSysMetrics( 0 ) \nnAlto := GetSysMetrics( 1 )','',0,'','3o0wsdzc',1,0,'',2,0,0),(35986,7825,6,54,0,'189.132.100.52',1186689250,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:35l0srv6]Armando,\n\nlamento decirte que el winxp profesional o home,\n\nsolo aceptan maximo 10 conexiones de red,\n\npara solventar ese problema tendras que administrar\n\ntu red con windows server,\n\nsaludos..[/quote:35l0srv6]\n\nEfectivamente, asi es, solo 10.\n\nsaludos','',0,'gA==','35l0srv6',1,0,'',54,0,0),(35987,7818,6,2,0,'87.218.146.138',1186689829,1,0,1,1,1,1,'','','Marcelo,\n\nTu ejemplo parece funcionar correctamente en Vista:\n[url=http&#58;//imageshack&#46;us:3hjsp5jy][img:3hjsp5jy]http&#58;//img262&#46;imageshack&#46;us/img262/5891/marcelozc2&#46;png[/img:3hjsp5jy][/url:3hjsp5jy]','',0,'GA==','3hjsp5jy',1,0,'',2,0,0),(35988,7822,3,2,0,'87.218.146.138',1186689923,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=35969#35969\">http://fivetechsoft.com/forums/viewtopi ... 5969#35969</a><!-- m -->','',0,'GA==','fe5yaxc2',1,0,'',2,0,0),(35989,7819,3,69,0,'206.210.100.104',1186690918,1,0,1,1,1,1,'','','it is a 3rd party ActiveX that is used to control a medical device.\n\nAny idea on how I would find the PROGID.\n\nI looked at the DLL file with OleView (via the ITypeLib Viewer) but I can not see anything that looks like the ID.','',0,'GA==','3jk22z0x',1,0,'',69,0,0),(35990,7804,1,819,0,'67.187.239.16',1186691365,1,0,1,1,1,0,'','The sounds good.','Antonio,\n\nThanks for the quick reply.  The file sounds good with windows media player.\n\nRegards,\n\nJose','',0,'GA==','1vp7882x',1,0,'',819,0,0),(35991,7819,3,2,0,'87.218.146.138',1186692226,1,0,1,1,1,1,'','','Jeff,\n\nDon\'t you have access to that ActiveX docs ?\n\nYou can also use its GUID instead of its PROGID ( <!-- m --><a class=\"postlink\" href=\"http://en.wikipedia.org/wiki/Globally_Unique_Identifier\">http://en.wikipedia.org/wiki/Globally_Unique_Identifier</a><!-- m --> ) which usually looks as a long sequence of numbers separated by \"-\" and between \"{\" and \"}\"\n\nHave you tried to instantiate the ActiveX from VB and review its properties ?','',0,'GA==','1y8fxrmu',1,0,'',2,0,0),(35992,7804,1,2,0,'87.218.146.138',1186692354,1,0,1,1,1,1,'','','whats the name (including its path) of the wav file ?','',0,'GA==','1a4gkh5j',1,0,'',2,0,0),(35993,7804,1,819,0,'67.187.239.16',1186693565,1,0,1,1,1,0,'','Sounds not playing','Horn.wav, startup.wav.  I can send you the file if you need.','',0,'GA==','2y2macrm',1,0,'',819,0,0),(35994,7819,3,6,0,'82.57.162.169',1186694892,1,0,1,1,1,1,'','','Try this:\n\n828B8942-5924-4BD3-963D-20786181A6A4\n\n\nEMG','',0,'GA==','o2yrbdy3',1,0,'',6,0,0),(35995,7827,6,140,0,'190.39.109.236',1186695458,1,0,1,1,1,0,'','Primeros pasos con FWH7.07 y xH0997','Hola a todos...\n\nHoy comencé a dar el salto desde FW2.4+xH0993 hacia FW7.07+xH0997.\nVeo que los cambios han sido bastante significativos...\n\nEl script que hace referencia a las libs de xHarbour lo fuí cambiando por ensayo y error hasta que el linker dejo de dar errores por ese lado...\nLuego a punta de cabezazos tuve que recompilar algunos fuentes en C puro por un error de una llamada a _hb_stack que se producía desde esos módulos...\nLogré generar el módulo WBrwLine.obj, el cual es un componente de la clase TWBrowse de nuestro querido compañero D.Cecarrelli, pero sin que me dejara de dar un montón de mensajes de precaución por prototipos no definidos...\nLa clase tSysInfo de Patrick Mast me dio un error que no supe resolver y comente esas líneas (las copio al final)...\nPor ultimo... luego de recompilar todo lo que son clases y componentes de terceros y los Prg\'s me encuentro que la aplicación de prueba no corre sino que solo abre una ventana de consola sin nada dentro...\n\nEntonces...\nQue me está faltanto??? o sobrando???\nSerá que me pueden facilitar un script para compilar fuentes en C puro y un script para el ILink32???\n\nPara todo esto, aparte del BCC551, he estado utilizando la distribución de xHarbour 0.997 de FiveTechSoft.\n\n\nDe antemano... 1GB de Gracias por los comentarios.\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela\n\n\n---------------------------------------------------------------\na continuación coloco los cambios que he implementado:\n\nc:\\BCC55\\bin\\BCC32.cfg:\n\n-5\n-d\n-k-\n-O1\n-O2\n-v-\n-WC\n-w-inl-\n-6\n-OS\n-a8\n-IC:\\Bcc55\\include;c:\\xBase\\xHarbour\\0.997\\Include;c:\\xBase\\FWH\\Include\n-LC:\\Bcc55\\lib;\\xBase\\xHarbour\\0.997\\Lib\n-ljC:\\Bcc55\\lib;C:\\Bcc55\\lib\\psdk\n\n\n---------------------------------------------------------------\nscript para ILink32:\n\n-aa -Tpe -s                                           +\n-I.\\Obj32                                             +\n-Lc:\\xBase\\xHARBOUR\\0.997\\LIB;C:\\BCC55\\LIB            +\n-j.\\Obj32;C:\\BCC55\\LIB                                +\nC:\\BCC55\\LIB\\C0W32.OBJ                                +\nMatric.OBJ                                            +\nUsuario.Obj                                           +\nMmtoGen.Obj                                           +\nNominas.Obj                                           +\nSeguro.Obj                                            +\nCtlPagos.Obj                                          +\nEstadist.Obj                                          +\nPuentes.Obj                                           +\nUtils.OBJ                                             +\ntSysInfo.Obj                                          +\ntGet.OBJ                                              +\nEagle.OBJ                                             +\nNetMngrW.OBJ                                          +\nPrnFnFW.Obj                                           +\nc:\\xBase\\FW\\Clases\\TWBrowse.HDC\\17\\Obj32\\WBrowse.OBJ  +\nc:\\xBase\\FW\\Clases\\TWBrowse.HDC\\17\\Obj32\\WBrwLine.OBJ +\nc:\\xBase\\FWH\\ObjxH0997\\ErrSysW.OBJ                    +\nc:\\xBase\\FWH\\Obj32\\ctcrypt.OBJ,                       +\n.\\LSG32.exe,                                          +\n.\\Obj32\\Matricula.map,                                +\nc:\\xBase\\FWH\\lib\\FiveHc.lib                           +\nc:\\xBase\\FWH\\libxH0997\\FivexH.lib                     +\nc:\\xBase\\Eagle1\\LibxH0997\\Eagle1.Lib                  +\nc:\\xBase\\Eagle1\\Lib\\Eagle1C.Lib                       +\nc:\\xBase\\Eagle1\\Lib\\LibMySQL.Lib                      +\nc:\\BCC55\\lib\\psdk\\odbc32.lib                          +\nrtl.lib                                               +\nvm.lib                                                +\ncommon.lib                                            +\ngtwin.lib                                             +\nlang.lib                                              +\nmacro.lib                                             +\ndebug.lib                                             +\nrdd.lib                                               +\ndbfntx.lib                                            +\ndbfcdx.lib                                            +\ndbffpt.lib                                            +\npp.lib                                                +\nhbsix.lib                                             +\nc:\\bcc55\\lib\\CW32.LIB                                 +\nc:\\bcc55\\lib\\IMPORT32.LIB,,                           +\n.\\Obj32\\Matric.RES\n\n---------------------------------------------------------------\nlos módulos en C puro los compilé asi:\n\nc:\\BCC55\\bin\\bcc32.exe -P- -c -tW -Ic:\\xBase\\FWH\\include;c:\\xBase\\FWH\\ObjxH0997\\include -DHARBOUR_USE_WIN_GTAPI -DHB_COMPAT_C53 Modulo.c\n\n\n---------------------------------------------------------------\nParte de la Clase tSysInfo de Pactrick Mast que tuve que comentar:\n\nMETHOD Memory( nMem ) Class TSystemInfo\nLocal nRetu\n\n#ifdef __HARBOUR__\n   #pragma BEGINDUMP\n      #include \"windows.h\"\n   #pragma ENDDUMP\n\n	 /*  Comienza parte comentada\n   nRetu := HB_INLINE( nMem )\n   {\n      MEMORYSTATUS mst;\n      long nMem = hb_parnl(1);\n\n      mst.dwLength = sizeof( MEMORYSTATUS );\n      GlobalMemoryStatus( &amp;mst );\n\n      switch( nMem )\n      {\n         case 1:  hb_retnl( mst.dwTotalPhys     / (1024*1024) ) ; break;\n         case 2:  hb_retnl( mst.dwAvailPhys     / (1024*1024) ) ; break;\n         case 3:  hb_retnl( mst.dwTotalPageFile / (1024*1024) ) ; break;\n         case 4:  hb_retnl( mst.dwAvailPageFile / (1024*1024) ) ; break;\n         case 5:  hb_retnl( mst.dwTotalVirtual  / (1024*1024) ) ; break;\n         case 6:  hb_retnl( mst.dwAvailVirtual  / (1024*1024) ) ; break;\n         default: hb_retnl( 0 ) ;\n      }\n   }\n    \n  Finaliza parte comentada */\n   nRetu :=0\n#else','',0,'GA==','2aibm8nh',1,0,'',140,0,0),(35996,7827,6,2,0,'87.218.146.138',1186695991,1,0,1,1,1,1,'','','Giancarlo,\n\nTienes que usar GTGUI.lib en vez de GTWIN.lib','',0,'GA==','2xxdl65l',1,0,'',2,0,0),(35997,7827,6,2,0,'87.218.146.138',1186696111,1,0,1,1,1,1,'','','&gt; la aplicación de prueba no corre sino que solo abre una ventana de consola sin nada dentro... \n\nDesplaza el contenido de esa ventana hacia abajo por si aparece un mensaje de error. Has mirado si se genera un error.log ?','',0,'GA==','kwl0utxt',1,0,'',2,0,0),(35998,7818,6,41,0,'200.105.194.234',1186697570,1,0,1,1,1,0,'','','Antonio,\n\nno me queda claro la idea de transparencia, si te das cuenta, el SAY no permite que se vea parte de la linea, asi mismo, cuando sobrepones las lineas, en funcion del orden de creacion claro esta, el area del control (linea) se sobrepone a la otra, en ese sentido no podria formar una cruz (+) con dos de estos controles, salvo que sus diemsiones sean de 1 pixel, habra la forma de hacerlo?, no se si esta clara mi pregunta.\n\nDesde ya muchas gracias por tu tiempo\n\nsaludos\n\nMarcelo','',0,'GA==','2viongip',1,0,'',41,0,0),(35999,7827,6,140,0,'190.39.109.236',1186698308,1,0,1,1,1,0,'','','Antonio, efectivamente cambiando la librería ya funciona normal...\n\nMuy Agradecido por la orientación...\n\nAun me quedan las inquietudes relacionadas con la cantidad de advertencias de prototipos no definidos que resulta de compilar el módulo WBrwLine.c, y el caso del segmento que tuve que comentar en la clase tSystemInfo.','',0,'GA==','1syy2cpr',1,0,'',140,0,0),(36000,7790,6,140,0,'190.39.109.236',1186699264,1,0,1,1,1,0,'','','Antonio,\n\nCopiando la función a la aplicación no devuelve nada...\n\nEntiendo que los únicos parámetros que se pasan son el nombre del ejecutable y la posición en la lista (del fuente) del valor que deseo.','',0,'GA==','3stu8qw6',1,0,'',140,0,0),(36001,7827,6,2,0,'87.218.146.138',1186699353,1,0,1,1,1,1,'','','Que prototipos no definidos te aparecen ? De todas formas, mientras sean sólo warnings no tiene porque afectar a la ejecución de la aplicación.\n\nEn cuanto al segmento de código comentado, evita usar HB_INLINE( nMem ). Declara una función HB_FUNC() usando #pragma BEGINDUMP #pragma ENDDUMP (tienes muchos ejemplos en estos foros) y llámala desde ese método, en vez de usar HB_INLINE( nMem )','',0,'GA==','33dc6s2z',1,0,'',2,0,0),(36002,7819,3,69,0,'74.14.136.157',1186699778,1,0,1,1,1,1,'','','When I try to do:\n\n\noPulseOX = TActiveX():New( oMainWnd, \"{828B8942-5924-4BD3-963D-20786181A6A4}\" )\n\nI get an empty white box in the upper left corner and the windows error:\n\nEzSat.exe has encountered a problem and needs to close.  We are sorry for the inconvenience.\n\nIs there something I need to link into my app?\n\nThanks,','',0,'GA==','2wkp7qfb',1,0,'',69,0,0),(36003,7827,6,140,0,'190.39.109.236',1186701097,1,0,1,1,1,0,'','','Antonio... estas son las advertencias que se producen...\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nwbrwline.c:\nWarning W8065 wbrwline.c 314: Call to function \'hb_itemType\' with no prototype in function PaintTheLine\nWarning W8065 wbrwline.c 314: Call to function \'hb_itemGetL\' with no prototype in function PaintTheLine\nWarning W8065 wbrwline.c 317: Call to function \'hb_itemGetNL\' with no prototype in function PaintTheLine\nWarning W8065 wbrwline.c 319: Call to function \'hb_itemClear\' with no prototype in function PaintTheLine\nWarning W8065 wbrwline.c 325: Call to function \'hb_itemType\' with no prototype in function PaintTheLine\nWarning W8065 wbrwline.c 327: Call to function \'hb_itemGetNL\' with no prototype in function PaintTheLine\nWarning W8065 wbrwline.c 331: Call to function \'hb_itemGetCPtr\' with no prototype in function PaintTheLine\nWarning W8069 wbrwline.c 331: Nonportable pointer conversion in function PaintTheLine\nWarning W8065 wbrwline.c 334: Call to function \'hb_itemClear\' with no prototype in function PaintTheLine\nWarning W8065 wbrwline.c 1156: Call to function \'hb_itemCopy\' with no prototype in function HB_FUN_WBRWPANE\nWarning W8065 wbrwline.c 1183: Call to function \'hb_itemClear\' with no prototype in function HB_FUN_WBRWPANE\n\nel script de compilación está así:\nSET BCDIR=C:\\BCC55\nSET HDIR=C:\\xBase\\xHarbour\\0.997\nSET FWDIR=C:\\xBase\\FWH\n\n%BCDIR%\\BIN\\bcc32 -P- -c -tW -I%BCDIR%\\include;%FWDIR%\\include;%HDIR%\\include -D__HARBOUR__ -DHARBOUR_USE_WIN_GTAPI -DHB_COMPAT_C53 -O2 WBrwLine.c &gt; log.txt\n\nSET BCDIR=\nset HDIR=','',0,'GA==','2v4phsb5',1,0,'',140,0,0),(36004,7827,6,2,0,'87.218.146.138',1186703293,1,0,1,1,1,1,'','','Añade esta línea al comienzo del fichero en C despues de #include &lt;hbapi.h&gt;:\n\n#include &lt;hbapiitm.h&gt;','',0,'GA==','2ni2us7c',1,0,'',2,0,0),(36005,7819,3,2,0,'87.218.146.138',1186703537,1,0,1,1,1,1,'','','Jeff,\n\nDo you get an error.log file ?','',0,'GA==','4z26n3tu',1,0,'',2,0,0),(36006,7804,1,2,0,'87.218.146.138',1186703904,1,0,1,1,1,1,'','','Jose,\n\nGot your files and this code is working fine with Clipper, FW 7.07 and Vista 32:\n[code:2uhol0tj]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41; \n\n   SndPlaySound&#40; &quot;startup&#46;wav&quot;, 0 &#41; \n\nreturn nil \n\nDLL FUNCTION SndPlaySound&#40; cFile AS LPSTR, nType AS WORD &#41; AS BOOL PASCAL LIB &quot;MMSYSTEM&#46;DLL&quot; \n[/code:2uhol0tj]','',0,'AIA=','2uhol0tj',1,0,'',2,0,0),(36007,7819,3,69,0,'74.14.136.157',1186704689,1,0,1,1,1,1,'','','Sorry,  no error.log file is generated.','',0,'AIA=','1jy85ikl',1,0,'',69,0,0),(36008,7818,6,2,0,'87.218.146.138',1186705464,1,0,1,1,1,1,'','','Marcelo,\n\nLo que quieres hacer al algo más complicado de lo que parece.\n\nCada control es responsable de dibujar su propia imagen. El brush se utiliza para borrar la superficie del control antes de dibujar en él lo que sea.\n\nCuando queremos que sea transparente, se trata de que el fondo no se borre y en su lugar se copie la imagen que haya debajo del control. Pero, si existe otro control debajo (para formar una X por ejemplo) hay que combinar las imágenes de ambos.\n\nEl método EraseBkGnd() (Erase background) lo podemos declarar virtual, para que no se borre nada:\n\nMETHOD EraseBkGnd() VIRTUAL\n\nY en el método Paint() copiaríamos la imagen que hay debajo:\n[code:3tfk4wqf]\nMETHOD Paint&#40;&#41; CLASS tfig \n   &#46;&#46;&#46; copiar la imagen que hay debajo del control al hDC de este control&#46;&#46;&#46;\n   moveTo&#40; &#58;&#58;hDC, 1, 1 &#41; \n   LineTo&#40; &#58;&#58;hDC, &#58;&#58;nWidth, &#58;&#58;nHeight &#41; \nreturn nil\n[/code:3tfk4wqf]\nLa función para copiar desde un hDC a otro hDC es BitBlt(). Sigo...','',0,'AIA=','3tfk4wqf',1,0,'',2,0,0),(36009,7819,3,2,0,'87.218.146.138',1186705901,1,0,1,1,1,1,'','','Jeff,\n\nHave you tried that ActiveX with Visual Basic ?','',0,'AIA=','1n9vueku',1,0,'',2,0,0),(36010,7819,3,69,0,'74.14.136.157',1186707952,1,0,1,1,1,1,'','','Antonio,\n\nI have no way to test with Vb.','',0,'AIA=','1qoaon5s',1,0,'',69,0,0),(36011,7819,3,303,0,'72.199.41.171',1186708284,1,0,1,1,1,0,'','','Jeff,\n\nI am no ActiveX expert, but if I remember correctly ActiveX components have to be registered in the registry. You might do a Google on it.\n\nJames','',0,'AIA=','3tduppq1',1,0,'',303,0,0),(36012,7819,3,69,0,'74.14.136.157',1186708507,1,0,1,1,1,1,'','','James,\n\nIf I check with OleView it is listed under \"Type Libraries\"\n\nJeff','',0,'AIA=','3fmckdpm',1,0,'',69,0,0),(36013,7825,6,53,0,'189.139.97.46',1186711494,1,0,1,1,1,1,'','','César, William:\n\nLo curioso es que el mensaje lo muestra al intentar conectar la sexta PC, habrá que cambiar alguna configuración ?, donde ?\n\nSaludos y gracias por sus aportes','',0,'AIA=','3e2nrzmw',1,0,'',53,0,0),(36014,7823,6,73,0,'189.157.181.129',1186718409,1,0,1,1,1,0,'','','Ruben,\nse me ocurre algo asi\n08_0   10_0   12_0   14_0   16_0   18_0   20_0   22_0   24_0  02_1\n04_1   06_1\n\ndonde el _0 es para el dia actual  y _1 es para el siguiente dia}\n\nsalu2\npaco','',0,'AIA=','3tq3dc80',1,0,'',73,0,0),(36015,7823,6,1106,0,'201.217.168.14',1186720671,1,0,1,1,1,0,'','','Gracias Paco.\n\nEsta en proceso tu idea.\n\nGracias  de nuevo.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','3g3ahcpt',1,0,'',1106,0,0),(36016,7819,3,2,0,'87.218.146.138',1186728652,1,0,1,1,1,1,'','','Jeff,\n\nIt does not look as an ActiveX control. I thought it was a DLL to be used with OLE automation, but after some tests I think it is an ActiveX library (it provides an activex interface, but no a visual control interface).\n\nI got the provided EXE running, but it gives an error when pressing the \"Get Version\" button. Don\'t know if it should work ok without the hardware. Could you ask the manufacturer about this ?\n\nI am trying on Vista 32. Now I am going to try on XP.','',0,'AIA=','2ohsxxfc',1,0,'',2,0,0),(36017,7819,3,2,0,'87.218.146.138',1186730265,1,0,1,1,1,1,'','','Jeff,\n\nSame error on XP when pressing the \"Get Version\" button, testing their provided EXE.\n\nPlease contact the manufacturer about it, thanks','',0,'AIA=','2yohwdk0',1,0,'',2,0,0),(36018,7816,6,533,0,'80.32.177.143',1186730307,1,0,1,1,1,0,'','','Perfecto Antonio!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNo se por que sería, pero MUCHAS GRACIAS','',0,'AIA=','wx5zucqx',1,0,'',533,0,0),(36019,7816,6,2,0,'87.218.146.138',1186730755,1,0,1,1,1,1,'','','Mike,\n\nLas claúsulas WHEN se evaluan cuando algun control pierde el foco.\n\nEn tu caso, estas cambiando la selección del combobox, pero no estás perdiendo su foco, por eso los WHEN no se evalúan.\n\nCon el cambio propuesto ahora tu realizas la misma acción que los WHEN cuando cambia la selección del combobox y no tienes que aguardar a que se cambie el foco.','',0,'AIA=','1r5d2koe',1,0,'',2,0,0),(36020,7820,6,533,0,'80.32.177.143',1186732577,1,0,1,1,1,0,'','','Gracias RenOMas, lo puse, pero no me funcionó, lo he solucionado cambiando de tamaño un campo y él solo lo pone en vertical u horizontal. No es una solucion muy profesional, pero me sacado del problema. \n\nDe todas formas, te agradezco el interés.','',0,'AIA=','2j47kf6j',1,0,'',533,0,0),(36021,7816,6,533,0,'80.32.177.143',1186733874,1,0,1,1,1,0,'','','La explicación, perfecta, sólo comentarte que en mi ejemplo cuando seleccionaba un valor en el combobox y luego pulsaba intro, ahí si se debería de ejecutar la clausula WHEN, porque si que me saltaba a otro objeto. De todas formas te agradezco enormemente tus soluciones y explicaciones ya que me harán pensar. \n\nUN SALUDO,','',0,'AIA=','8319uskl',1,0,'',533,0,0),(36022,7816,6,2,0,'87.218.146.138',1186736745,1,0,1,1,1,1,'','','Mike,\n\nPor favor, prueba tu código original con sólo este cambio:\n\nredefine combobox oCombo var vCombo items aCombo id 801 of oDlg STYLE CBS_DROPDOWN ON CHANGE (ocheck1:refresh(),ocheck2:refresh()) [color=red:coq0sejm]VALID ( oDlg:AEvalWhen(), .T. )[/color:coq0sejm]','',0,'Ag==','coq0sejm',1,0,'',2,0,0),(36023,7813,3,47,0,'203.144.160.247',1186737332,1,0,1,1,1,0,'','Absolutely agree','Daer Reinaldo,\n\nI agree with you and I would like to modify the program to use ADS but I need to install in my notebook for testing the program.  I try to download from advantagedatabase.com but I do not sure which version and how to install it?\n\nRegards,\nDutch','',0,'Ag==','1r8y41dz',1,0,'',47,0,0),(36024,7818,6,2,0,'87.218.146.138',1186745526,1,0,1,1,1,1,'','','Marcelo,\n\nAqui te pongo un ejemplo que debería funcionar bien, pero no lo hace. De todas formas debemos estar muy cerca:\n[code:1q3wf1pr]\n#include &quot;fivewin&#46;ch&quot; \n\nFUNCTION main&#40;&#41; \n   LOCAL oDlg, ofig1, ofig2, s1 \n\n   DEFINE WINDOW oDlg FROM 10,10 TO 40,60 COLOR &quot;W/G&quot;\n\n   SetGridSize&#40; 5, 5 &#41; \n\n   @ 15,15 say s1 PROMPT &quot;HOLA&quot; of odlg COLOR CLR_RED SIZE 100,20 DESIGN \n   s1&#58;lTransparent &#58;= &#46;T&#46; \n\n   ofig1 &#58;= tfig&#40;&#41;&#58;new&#40;1,1,25,25, oDlg &#41; \n\n   ofig2 &#58;= tfig&#40;&#41;&#58;new&#40;25,25,45,55, oDlg &#41; \n\n   ACTIVATE WINDOW oDLg \n\n   RETURN&#40; NIL &#41; \n\n//----------------------------------------------------------------------------// \n\nCLASS Tfig FROM TControl \n\n   CLASSDATA lRegistered AS LOGICAL \n\n   METHOD New&#40; nRow, nCol, nHeight, nWidth, oWnd &#41; CONSTRUCTOR \n   METHOD Display&#40;&#41; INLINE &#58;&#58;BeginPaint&#40;&#41;, &#58;&#58;Paint&#40;&#41;, &#58;&#58;EndPaint&#40;&#41;, 0 \n   METHOD Initiate&#40; hDlg &#41; INLINE Super&#58;Initiate&#40; hDlg &#41; \n   METHOD Paint&#40;&#41; \n   METHOD EraseBkGnd&#40;&#41; VIRTUAL\n\nENDCLASS \n\n//----------------------------------------------------------------------------// \nMETHOD New&#40; nRow, nCol, nHeight, nWidth, oWnd &#41; CLASS tfig \n\n   &#58;&#58;nTop      &#58;= nRow \n   &#58;&#58;nLeft     &#58;= nCol \n   &#58;&#58;nBottom   &#58;= &#58;&#58;nTop  + nHeight \n   &#58;&#58;nRight    &#58;= &#58;&#58;nLeft + nWidth \n\n   &#58;&#58;oWnd      &#58;= oWnd \n   &#58;&#58;nStyle  = nOr&#40; WS_CHILD, WS_VISIBLE, WS_TABSTOP, WS_CLIPSIBLINGS &#41; \n\n   &#58;&#58;lCaptured   &#58;= &#46;F&#46; \n   &#58;&#58;lDrag       &#58;= &#46;T&#46; \n   &#58;&#58;lDesign     &#58;= &#46;T&#46; \n   &#58;&#58;lUpdate     &#58;= &#46;T&#46; \n   &#58;&#58;lRegistered &#58;= &#46;f&#46; \n   // &#58;&#58;ltransparent &#58;= &#46;T&#46; \n\n   &#58;&#58;Register&#40;&#41; \n   &#58;&#58;Create&#40;&#41; \n   &#58;&#58;oWnd&#58;AddControl&#40; Self &#41; \n   &#58;&#58;CheckDots&#40;&#41; \n\nreturn SELF \n\n//----------------------------------------------------------------------------// \n\nMETHOD Paint&#40;&#41; CLASS tfig \n\n   ParentImage&#40; &#58;&#58;hWnd, &#58;&#58;hDC &#41;\n   moveTo&#40; &#58;&#58;hDC, 1, 1 &#41; \n   LineTo&#40; &#58;&#58;hDC, &#58;&#58;nWidth, &#58;&#58;nHeight &#41; \n\nreturn nil\n\n//----------------------------------------------------------------------------// \n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; PARENTIMAGE &#41; // hControl, hDC\n&#123;\n   HWND hWnd = &#40; HWND &#41; hb_parnl&#40; 1 &#41;;\n   HDC hDC = &#40; HDC &#41; hb_parnl&#40; 2 &#41;;\n   HDC hDcParent = GetDCEx&#40; GetParent&#40; hWnd &#41;, NULL, DCX_PARENTCLIP	&#41;;\n   RECT rct;\n   POINT pt;\n\n   GetWindowRect&#40; hWnd, &amp;rct &#41;;\n   pt&#46;y = rct&#46;top;\n   pt&#46;x = rct&#46;left;\n   ScreenToClient&#40; GetParent&#40; hWnd &#41;, &amp;pt &#41;;\n\n   BitBlt&#40; hDC, 0, 0, rct&#46;right - rct&#46;left, rct&#46;bottom - rct&#46;top, hDcParent,\n           pt&#46;x, pt&#46;y, SRCCOPY &#41;;\n\n   ReleaseDC&#40; GetParent&#40; hWnd &#41;, hDcParent &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:1q3wf1pr]','',0,'AIA=','1q3wf1pr',1,0,'',2,0,0),(36025,7828,2,979,0,'195.53.199.6',1186745569,1,0,1,1,1,0,'','Como establecer FONT como defecto para el programa.','Intento establecer un FONT determinado como defecto en el programa, se tarta de evitar tener que especificarlo cada vez que quiero mostrar o leer algun datos de la pantalla.\n\n¿Como puede hacerse?\n\nGracias,','',0,'AIA=','3k2218ji',1,0,'',979,0,0),(36026,7783,6,400,0,'201.92.36.236',1186745962,1,0,1,1,1,1,'','','Ola Elmo...\n\nLocal cDrive\n\noDisk := TDiskInfo():New( cDrive ) \noDisk:TDIVer() \n\nUsando assim, retorna vazio, no mostra la version.\n\nO que y estou fazendo errado ?\n\nSaludos','',0,'AIA=','363y10ya',1,0,'',400,0,0),(36027,7819,3,69,0,'206.210.100.104',1186748739,1,0,1,1,1,1,'','','Antonio,\n\nThe \"Get Version\" does require the hardware to be connected.','',0,'AIA=','2v9fpn2p',1,0,'',69,0,0),(36028,7825,6,105,0,'200.72.140.34',1186749831,1,0,1,1,1,1,'','','La solucion es super SIMPLE\n\nPagina:\n<!-- m --><a class=\"postlink\" href=\"http://www.lvllord.de/\">http://www.lvllord.de/</a><!-- m -->\n\nArchivos :\n<!-- m --><a class=\"postlink\" href=\"http://www.lvllord.de/?lang=en&amp;url=downloads#4226patch\">http://www.lvllord.de/?lang=en&amp;url=downloads#4226patch</a><!-- m -->\n\nDescarga el patch 223d, probado en XP SP\" con lenguaje español sin PROBLEMAS \n\nEspero te sirva.','',0,'AIA=','3ermk3wd',1,0,'',105,0,0),(36029,7818,6,41,0,'200.105.194.234',1186750010,1,0,1,1,1,0,'','','Antonio,\n\ngracias, por lo visto es mas complicado de lo que pense, mas aun cuando hay may de dos controles sobrepuestos, la solucion para este caso particular de figuras geometricas seria utilizar algo como hizo Paco Garcia tiempo atras, buscare el fuente que es para 16 bits\n\nMuchas gracias por tu tiempo, sin embargo, le echo mano a tu ejemplo y veo que sale\n\nun abrazo\n\nMarcelo','',0,'AIA=','347x2xik',1,0,'',41,0,0),(36030,7825,6,53,0,'189.139.98.62',1186750610,1,0,1,1,1,1,'','','Adolfo:\n\nTodo parece indicar que esa es la solución, probaremos y avisaré de como nos fue.\n\nSaludos','',0,'AIA=','2axi3t0s',1,0,'',53,0,0),(36031,7829,3,486,0,'200.184.85.3',1186751034,1,0,1,1,1,0,'','Windows Vista','Hi,\n\nI access my system and to leave it, enter again and I say that this open granddaughter function... I give a time and I obtain to enter again, happens to each 10 attempts a time.\n \n      oWnd:=FindWindow( 0, \"Sistema - SysFar\" )\n      If oWnd!=0\n         MsgAlert(\"O Programa SysFar já se encontra aberto ...\",\"Informação !!!\")\n         BringWindowToTop( oWnd )\n         Return(.f.)\n      Endif\n \nI use fwh 7.01\n\nClemerson','',0,'AIA=','1bsd6yk7',1,0,'',486,0,0),(36032,7830,3,162,0,'62.47.187.245',1186756545,1,0,1,1,1,0,'','FTP-directory','I\'m trying to read the files from a ftp-server.\n\nI modified the ftpdir-sample and always get \"oFTP:hFTP is null\"\nboth  oInternet:hWinINet and oInternet:hSession are empty\n\nAm I doing something wrong or is it a Vista-related problem?\nMany thanks for help,\nDietmar\n\n\n\nfunction Main()\n\n   local oInternet := TInternet():New()\n//   local oFTP      := TFTP():New( \"207.46.133.140\", oInternet ) // \nlocal oFTP      := TFTP():New( \"ftp://ftp.ourserver.at/\", oInternet )\n\n   local aFiles\n\n   if ! Empty( oFTP:hFTP )\n      aFiles = oFTP:Directory( \"*.*\" )\n      AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ] ) } )\n   else\n      MsgAlert( \"oFTP:hFTP is null\" )\n   endif\n\n   oInternet:End()\n\n   MsgInfo( \"Done!\" )\n\nreturn nil','',0,'','2y7pofyc',1,0,'',162,0,0),(36033,7831,6,760,0,'200.62.254.137',1186759213,1,0,1,1,1,0,'','Menus tipo Xp','Hola a todos del foro\n\nConsegui bajar las fuentes del menuxp de Arturo Tamayo, al compilar con verce me crea la libreria y todo ok. Uso FWH 2.4, xHarbour 99.60, bcc5.5, el problema es que al hacer una prueba con los menus y compilar con verce estas me dan un mensaje de error:\n\nParse at omenu y lineas mas, asi me sale todas las lineas que hacen referencia al omenu.\n\nQue puede estar pasando....?\n\nSi alguien ya tiene la libreria hecha, si seria tan amable en pasarla a mi correo, si no es molestia por supueso, <!-- e --><a href=\"mailto:daxreyna@mixmail.com\">daxreyna@mixmail.com</a><!-- e --> .\n\nSalu2\n\nFrancis','',0,'','txwdp1bs',1,0,'',760,0,0),(36034,7783,6,1063,0,'200.27.109.129',1186760473,1,0,1,1,1,1,'','','esos comandos son solo para capturar datos, los que estan mas abajos te lo muestran compor ejemplo\n\nlabel:=oDisk:Label()  te muestra el nombre del disco','',0,'','1scdqhlq',1,0,'',1063,0,0),(36035,7832,6,349,0,'189.165.14.15',1186762853,1,0,1,1,1,0,'','FOLDER con Workshop','Buenas Tardes a Todos.\n\nManejo WorkShop, con una lib fwctrls.dll, si uso esta no se ven las pestañas de los folders en la Aplicacion, si se la quito la aplicacion marca error.   No se que hacer, por hay alguien me comento que pues cambiara de editor de recursos el Gran Paco Horta, digamos a Pellesc\n\nQue suguieren ?\n\n[code:1yrv8ezb]\nDefine Dialog oDlge Resource &quot;DATCIA&quot; of oLbx Title &quot;Datos De La Empresa&quot;\nRedefine FOLDER oFld ID 501 OF oDlge UPDATE ;\n         PROMPTS &quot;Empresa&quot;,&quot;Cuentas&quot; ;\n         DIALOGS &quot;DATCIA1&quot;,&quot;DATCIA2&quot;\n\nRedefine Get vo_empr Var vn_empr ID 101 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;99&quot; valid&#40; keyCia&#40; lNuevo, vn_empr &#41; &#41; WHEN &#46;F&#46;\nRedefine Get vo_rfc_ Var vc_rfc_ ID 102 of oFld&#58;aDialogs&#91;1&#93; valid&#40;!empty&#40;vc_rfc_&#41;&#41;\nRedefine Get vo_nomb Var vc_nomb ID 103 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_nomb&#41;&#41;\nRedefine Get vo_bkey Var vc_bkey ID 104 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bkey&#41;&#41;\nRedefine Get vo_bloc Var vc_bloc ID 105 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bloc&#41;&#41;\nRedefine Get vo_bsuc Var vc_bsuc ID 106 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bsuc&#41;&#41;\nRedefine Get vo_bcta Var vc_bcta ID 107 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bcta&#41;&#41;\nRedefine Get vo_ruta Var vc_ruta ID 108 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_ruta&#41;&#41;\n\nRedefine Get vo_civa Var vc_civa ID 101 of oFld&#58;aDialogs&#91;2&#93; Picture &quot;9999999999999999&quot;\nRedefine Get vo_ccom Var vc_ccom ID 102 of oFld&#58;aDialogs&#91;2&#93; Picture &quot;9999999999999999&quot;\nRedefine Radio vn_diot ID 201,202 of oFld&#58;aDialogs&#91;2&#93;\n\nRedefine Button ID 801 of oDlge Action&#40;lBotonx &#58;= &#46;T&#46; ,lcontinuar &#58;= &#46;T&#46;, oDlge&#58;End&#40;&#41;&#41;\nRedefine Button ID 802 of oDlge Action&#40;lBotonx &#58;= &#46;T&#46; , oDlge&#58;End&#40;&#41; &#41; CANCEL\noDlge&#58;lHelpIcon &#58;= &#46;F&#46;\nActivate Dialog oDlge Center Valid&#40; lBotonx &#41; RESIZE16\n&#91;quote&#93;&#91;/quote&#93;[/code:1yrv8ezb]\n\n\nLes agradesco, Saludos y Gracias ....','',0,'AIA=','1yrv8ezb',1,0,'',349,0,0),(36036,7819,3,69,0,'206.210.100.104',1186763184,1,0,1,1,1,1,'','','Antonio,\n\nIs it possible to use  an ActiveX Library with FWH?\n\nIs yes,  how would I make a call to the functions inside the DLL?\n\n\nThanks,','',0,'AIA=','2x2lcllp',1,0,'',69,0,0),(36037,7783,6,400,0,'201.92.36.236',1186763827,1,0,1,1,1,1,'','','Gracias Elmo....mas, \n\noq eu preciso...es saber qual es o nombre de meu Servidor, via Terminal.\n\nUsted ou alguien aqui del Forum, sabe como fazer esto ?\n\nSaludos','',0,'AIA=','2rzxt6y6',1,0,'',400,0,0),(36038,7832,6,891,0,'148.243.37.162',1186763932,1,0,1,1,1,0,'','Re: FOLDER con Workshop','[quote=&quot;jhugono&quot;:144x47uv]Buenas Tardes a Todos.\n\nManejo WorkShop, con una lib fwctrls.dll, si uso esta no se ven las pestañas de los folders en la Aplicacion, si se la quito la aplicacion marca error.   No se que hacer, por hay alguien me comento que pues cambiara de editor de recursos el Gran Paco Horta, digamos a Pellesc\n\nQue suguieren ?\n\n[code:144x47uv]\nDefine Dialog oDlge Resource &quot;DATCIA&quot; of oLbx Title &quot;Datos De La Empresa&quot;\nRedefine FOLDER oFld ID 501 OF oDlge UPDATE ;\n         PROMPTS &quot;Empresa&quot;,&quot;Cuentas&quot; ;\n         DIALOGS &quot;DATCIA1&quot;,&quot;DATCIA2&quot;\n\nRedefine Get vo_empr Var vn_empr ID 101 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;99&quot; valid&#40; keyCia&#40; lNuevo, vn_empr &#41; &#41; WHEN &#46;F&#46;\nRedefine Get vo_rfc_ Var vc_rfc_ ID 102 of oFld&#58;aDialogs&#91;1&#93; valid&#40;!empty&#40;vc_rfc_&#41;&#41;\nRedefine Get vo_nomb Var vc_nomb ID 103 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_nomb&#41;&#41;\nRedefine Get vo_bkey Var vc_bkey ID 104 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bkey&#41;&#41;\nRedefine Get vo_bloc Var vc_bloc ID 105 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bloc&#41;&#41;\nRedefine Get vo_bsuc Var vc_bsuc ID 106 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bsuc&#41;&#41;\nRedefine Get vo_bcta Var vc_bcta ID 107 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_bcta&#41;&#41;\nRedefine Get vo_ruta Var vc_ruta ID 108 of oFld&#58;aDialogs&#91;1&#93; Picture &quot;@!&quot; valid&#40;!empty&#40;vc_ruta&#41;&#41;\n\nRedefine Get vo_civa Var vc_civa ID 101 of oFld&#58;aDialogs&#91;2&#93; Picture &quot;9999999999999999&quot;\nRedefine Get vo_ccom Var vc_ccom ID 102 of oFld&#58;aDialogs&#91;2&#93; Picture &quot;9999999999999999&quot;\nRedefine Radio vn_diot ID 201,202 of oFld&#58;aDialogs&#91;2&#93;\n\nRedefine Button ID 801 of oDlge Action&#40;lBotonx &#58;= &#46;T&#46; ,lcontinuar &#58;= &#46;T&#46;, oDlge&#58;End&#40;&#41;&#41;\nRedefine Button ID 802 of oDlge Action&#40;lBotonx &#58;= &#46;T&#46; , oDlge&#58;End&#40;&#41; &#41; CANCEL\noDlge&#58;lHelpIcon &#58;= &#46;F&#46;\nActivate Dialog oDlge Center Valid&#40; lBotonx &#41; RESIZE16\n&#91;quote&#93;&#91;/quote&#93;[/code:144x47uv]\n\nHola amigo, usa PellesC, a mi nunca me ha dado lata, y es el mejor y facil manejo de crear tus propios dialogos.\nSaludos\nAdrian\n\n\nLes agradesco, Saludos y Gracias ....[/quote:144x47uv]','',0,'gIA=','144x47uv',1,0,'',891,0,0),(36039,7826,2,1107,0,'200.77.35.150',1186764783,1,0,1,1,1,0,'','Agradecimiento a Antonio Linares','Antonio agradezco tu colaboración funcionó perfectamente\n\nGuillermo Guevara','',0,'gIA=','lfipa2vq',1,0,'',1107,0,0),(36040,2486,16,2,0,'87.218.146.174',1186765120,1,0,1,1,1,1,'','','July 2007 \n====== \n\nHarbour for Borland: \n(with several Class TGet fixes)\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/48786759/harbour.exe.html\">http://rapidshare.com/files/48786759/harbour.exe.html</a><!-- m -->','',0,'gIA=','2e2c20sp',1,0,'',2,0,0),(36041,7819,3,2,0,'87.218.146.174',1186765291,1,0,1,1,1,1,'','','Jeff,\n\n&gt; Is it possible to use an ActiveX Library with FWH? \n\nWe have never tested it before and it seems as something goes wrong\n\nWe have tried to build a test with Borland C++ builder, using your DLL, but we can\'t get it working too\n\nWe keep doing tests','',0,'gIA=','2dpja5he',1,0,'',2,0,0),(36042,7828,2,1107,0,'200.77.35.150',1186765382,1,0,1,1,1,0,'','Alfonso','A mi me funcionó haciendo publica la variable oFont\n\nEjemplo:\n\nEn tu programa principal define:\n\npublic oFont\n\nDEFINE FONT oFont;\n    NAME \'Arial\';\n    SIZE 0,-13\nACTIVATE FONT oFont\n\nDespués aplicalo en cualquier lugar de tu código\n\nSaludos\n\nGuillermo Guevara C.','',0,'gIA=','wci977ic',1,0,'',1107,0,0),(36043,7223,3,162,0,'62.47.188.198',1186765853,1,0,1,1,1,0,'','','Sorry for coming back to this one again:\n\nThe above sample is working fine.\nBut when I copy the code in one of the prg-files of our big application I\'m getting the GPF again...\n\nWhat am I doin wrong??\n\nThanks, Dietmar','',0,'gIA=','ct1tkrqc',1,0,'',162,0,0),(36044,7833,3,161,0,'81.83.249.31',1186773929,1,0,1,1,1,0,'','oMeta difference FW &amp; FWH?','Hi,\n\nI\'am moving a appliation from FW to FWH and have a problem with showing meta-files.\n\nI have created a little sample that works in FW and not in FWH\n\n[code:swij82c9]#INCLUDE &quot;fivewin&#46;CH&quot;\nstatic sWnd\nstatic sscaling  &#58;=  3\nfunc test&#40;&#41;\n   local oS&#58; =5200 \n   local sx_offset &#58;= 0\n   local sy_offset &#58;= 0\n   local sregio    &#58;=  3000\n\n   DEFINE WINDOW sWnd TITLE \'Test\' VSCROLL HSCROLL\n   oMeta &#58;= TMetaFile&#40;&#41;&#58;New&#40; 38, 0, sregio+38, sregio,\'tmp&#46;dt\',sWnd,CLR_BLACK,CLR_WHITE,sscaling,sscaling &#41;\n\n   ACTIVATE WINDOW sWnd MAXIMIZED ;\n   VALID &#40; sWndOpen &#58;= &#46;f&#46; , &#46;t&#46;&#41; on init sscale&#40;&#41;\n\nRETURN nil\n\nFUNCTION sscale&#40;&#41;\n   local vverhouding&#58;=1\n   IF &#40;sWnd&#58;nright&#41;-&#40;sWnd&#58;nleft&#41; / &#40;sWnd&#58;nbottom - sWnd&#58;ntop &#41; &gt; 1&#46;34\n      vverhouding =&#40;1024/768&#41;/ &#40;&#40;sWnd&#58;nright-sWnd&#58;nleft&#41; / &#40;sWnd&#58;nbottom - sWnd&#58;ntop &#41;&#41; *1&#46;15\n   ENDIF\n   sscaling &#58;= 5200 / &#40;&#40;sWnd&#58;nright-sWnd&#58;nleft&#41; / 1032*  vverhouding&#41;\n   oMeta&#58;nWidth  &#58;= sscaling\n   oMeta&#58;nHeight &#58;= sscaling\n   oMeta&#58;Refresh&#40;&#41;\nRETURN nil\n[/code:swij82c9]\n\nThe meta file is located \n[url:swij82c9]http&#58;//www&#46;vms&#46;be/FWTest/tmp&#46;dt[/url:swij82c9]\n\nCan anyone tell me why this is not working in FWH?\nThanks,\nMarc','',0,'EIA=','swij82c9',1,0,'',161,0,0),(36047,7819,3,2,0,'87.218.146.174',1186778841,1,0,1,1,1,1,'','','Jeff,\n\nCouldn\'t you ask the manufacturer if they could provide you a plain standard DLL with exported functions, not an ActiveX one ?','',0,'EA==','1clohgv0',1,0,'',2,0,0),(36048,7833,3,2,0,'87.218.146.174',1186779217,1,0,1,1,1,1,'','','Marc,\n\nKeep in mind that FWH uses 32 bits enhanced metafiles (EMF) instead of 16 bits Windows metafiles (WMF). Anyhow, if you rename it with .WMF extension, FWH will manage it too.\n\nWhat file type is inside your DT file ?','',0,'EA==','3ol44o61',1,0,'',2,0,0),(36049,7223,3,2,0,'87.218.146.174',1186779424,1,0,1,1,1,1,'','','Dietmar,\n\nMaybe you are linking FWH previous HtmlHelp() function. Rename the new one as _HtmlHelp() and call the new one, just to be sure you are not using the old one.','',0,'EA==','33xi90h3',1,0,'',2,0,0),(36050,7829,3,2,0,'87.218.146.174',1186779639,1,0,1,1,1,1,'','','Clemerson,\n\nYou could use an else just to check if the code fails sometimes:\n[code:38pbypb8]\nhWnd&#58;=FindWindow&#40; 0, &quot;Sistema - SysFar&quot; &#41; \nIf hWnd!=0 \n   MsgAlert&#40;&quot;O Programa SysFar já se encontra aberto &#46;&#46;&#46;&quot;,&quot;Informação !!!&quot;&#41; \n   BringWindowToTop&#40; hWnd &#41; \n   Return&#40;&#46;f&#46;&#41; \nelse\n   MsgAlert&#40; &quot;can\'t find the main window&quot; &#41;\nEndif \n[/code:38pbypb8]','',0,'AIA=','38pbypb8',1,0,'',2,0,0),(36051,7830,3,2,0,'87.218.146.174',1186779973,1,0,1,1,1,1,'','','Dietmar,\n\nJust change this line in your code and its working fine (tested on Vista):\n\nlocal oFTP := TFTP():New( \"ftp.microsoft.com\", oInternet )','',0,'AIA=','2i8p9ebi',1,0,'',2,0,0),(36052,7756,6,2,0,'87.218.146.174',1186780079,1,0,1,1,1,1,'','','oGet:nTop y oGet:nLeft tienen que funcionar correctamente','',0,'AIA=','3lsv5l1m',1,0,'',2,0,0),(36053,7833,3,161,0,'81.83.249.31',1186781955,1,0,1,1,1,0,'','','Antonio,\n\nThe tmp.dt file is a WMF-file create with the CreateMetaFile() function.\nIf I rename it to tmp.wmf , it still is\'t working.\nShould I use CreateEnhMetaFile() function? I have tried it but did\'t succeed to get it to work.\n\nNow I use something like:\n[code:112cio7d]hDCOut &#58;= CreateMetaFile&#40;\'tmp&#46;dt\'&#41;\n&#46;&#46;&#46;\nLineTo&#40; hDCOut    , y_cor&#40;inLeft + sx_offset &#41; ,  x_cor&#40;430 - &#40;inTop + sy_offset &#41;&#41;       , hPen&#41;\n&#46;&#46;&#46;\n TextOut&#40; hDCOut, y_cor&#40;y+3&#41;, x_cor&#40;x&#41;, substr&#40;text,1,at&#40;\'&#46;\',text&#41;-1&#41; \n&#46;&#46;&#46;\nCloseMetaFile&#40; hDCOut &#41;\n[/code:112cio7d]\n\nHow do I use CreateEnhMetaFile()? I see that I have to give 3 parameters instead of 1.\n\nThanks,\nMarc[/code]','',0,'AIA=','112cio7d',1,0,'',161,0,0),(36054,7836,6,348,0,'201.240.180.18',1186784265,1,0,1,1,1,0,'','Aplicaciones con WINASP ???','Buenas tardes.\nquizas no corresponda la consulta en este foro pero me lanzo\n\nHan probado usar el WINASP usando Harbour para aplicaciones por interrnet ?? y que sistema de basede datos aplicaron  MYsql, Posgrest\n\nPodrian compartir las experiencias, mil gracias \nLubin','',0,'AIA=','ex19qg6z',1,0,'',348,0,0),(36055,7829,3,507,0,'200.67.110.75',1186787290,1,0,1,1,1,1,'','check it','IF findWindow( 0,oApp:cEmpresa + oApp:cSistema) &gt; 0\n    MsgWait( \"Atención, el Programa ya está abierto...\", oApp:cEmpresa + oApp:cSistema ); QUIT\n  ENDIF\n\n\nRegards\n\nLuis Fernando Rubio Rubio\nTequila, Jalisco, Mexico.','',0,'AIA=','1tqd8d5p',1,0,'',507,0,0),(36056,7819,3,69,0,'74.13.58.49',1186788187,1,0,1,1,1,1,'','','I just sent them an email.\n\nEnrico had mentioned in another post:\n\"As far as I know, you can\'t return a string from a DLL function\"\n\nThese are communication functions that need feedback from the device.\n\nWill a standard DLL work?','',0,'AIA=','kh7xyp8e',1,0,'',69,0,0),(36057,7819,3,2,0,'87.218.146.174',1186789906,1,0,1,1,1,1,'','','Jeff,\n\n&gt;\nEnrico had mentioned in another post: \n\"As far as I know, you can\'t return a string from a DLL function\" \n&gt;\n\nYou can do it using a GlobalAlloc() chunk of memory, that the DLL client will free later on\n\n&gt; Will a standard DLL work?\n\nYes, why not ?','',0,'AIA=','3ee5vzvm',1,0,'',2,0,0),(36058,7833,3,2,0,'87.218.146.174',1186790166,1,0,1,1,1,1,'','','Marc,\n\nYou have an example of its use at source\\classes\\printer.prg:\n\n       AAdd( ::aMeta, ::cDir + cTempFile( \"\\\", \"emf\" ) )\n       ::hDCOut := CreateEnhMetaFile( ::hDC, ATail( ::aMeta ), ::cDocument )','',0,'AIA=','14pq5i3a',1,0,'',2,0,0),(36059,7833,3,161,0,'81.83.249.31',1186821185,1,0,1,1,1,0,'','','Antonio,\n\nThat\'s where I found the example, but wat should I use for \' ::hDC\'?\nI see in the printer.prg that it is \' GetPrintDC()\', but I don\'t want to print it. I only want to show it on screen.\nI suppose that \'::cDocument \' is a desciption of the file. Is that correct?  \n\nRegards,\nMarc','',0,'AIA=','3m2tl55v',1,0,'',161,0,0),(36060,7833,3,2,0,'87.218.146.169',1186825154,1,0,1,1,1,1,'','','Marc,\n\nYou can do  hdc = GetDC( 0 ) use it and finally do ReleaseDC( 0, hdc ).\n\nYes, cDocument is the name of the document.','',0,'AIA=','1li5novc',1,0,'',2,0,0),(36061,7747,2,2,0,'87.218.146.169',1186825930,1,0,1,1,1,1,'','','Tienes que enlazar infounz.lib que puedes obtener desde infounz.dll (está en el directorio DLL):\n\nimplib.exe infounz.lib infounz.dll\n\ny finalmente tener la DLL infounz.dll en donde esté tu aplicación','',0,'AIA=','18pd0yx2',1,0,'',2,0,0),(36062,7718,6,2,0,'87.218.146.169',1186826060,1,0,1,1,1,1,'','','Ruben,\n\nFWH por defecto asigna el dato ::oTop del contenedor igual a la toolbar, por lo que esta ocupará todo el ancho del contenedor. \n\nPrueba a hacer oWnd:oTop := nil y así no redimensionará la toolbar automaticamente.','',0,'AIA=','24zuvmqp',1,0,'',2,0,0),(36063,7660,6,2,0,'87.218.146.169',1186826142,1,0,1,1,1,1,'','','En esa versión no está implementado, solo había un prototipo que aún no funcionaba.','',0,'AIA=','1kjvr2fc',1,0,'',2,0,0),(36064,7676,6,2,0,'87.218.146.169',1186826218,1,0,1,1,1,1,'','','Aoki,\n\nPuedes mostrar un pequeño ejemplo, autocontenido, de lo que quieres hacer ? gracias','',0,'AIA=','3fkiutyc',1,0,'',2,0,0),(36065,7651,3,2,0,'87.218.146.169',1186826371,1,0,1,1,1,1,'','','Reinaldo,\n\nTry it this way:\n[code:1o8p4myn]\nlocal cResult &#58;= &#58;&#58;cResult\n&#46;&#46;&#46;\nif &#40; nResult &#58;= MciSendStr&#40; &#58;&#58;cCmnd, @cResult &#41; &#41; &gt; 0 \n   &#58;&#58;cResult = cResult\n[/code:1o8p4myn]','',0,'AIA=','1o8p4myn',1,0,'',2,0,0),(36066,7223,3,162,0,'80.121.85.21',1186826663,1,0,1,1,1,0,'','','Antonio,\nI tried, bit it didn\'t change anything.\n\nI send you a small sample where the same (new) _HTMHelp is called from a screen in a rc-file - now it GPFs...\nCan this be the reason??\n\nDietmar','',0,'AIA=','j0a0umea',1,0,'',162,0,0),(36067,7223,3,2,0,'87.218.146.174',1186827688,1,0,1,1,1,1,'','','Dietmar,\n\nI have just tested the sample that I published here and that was working ok and now it GPFs again on Vista. \n\nIt looks as Microsoft has changed something in recent Vista updates.','',0,'AIA=','1mp4yiey',1,0,'',2,0,0),(36068,7223,3,2,0,'87.218.146.174',1186828646,1,0,1,1,1,1,'','','Ok, I found the solution <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> We can not free the DLL just after its use.\n\nHere is a working sample using a dialog box and its working fine:\n[code:219bnh2u]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oDlg \n   local hDLL &#58;= LoadLibrary&#40; &quot;hhctrl&#46;ocx&quot; &#41;;\n\n   DEFINE DIALOG oDlg TITLE &quot;Test&quot; \n    \n   @ 2, 2 BUTTON &quot;Help&quot; SIZE 60, 15 ACTION HTMLHelp&#40; oDlg&#58;hWnd, &quot;fwclass&#46;chm&quot;, 0, &quot;class_tget&#46;htm&quot; &#41; \n\n   ACTIVATE DIALOG oDlg CENTERED \n   \n   FreeLibrary&#40; hDLL &#41;\n\nreturn nil \n\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt; \n#include &lt;hbapi&#46;h&gt; \n\ntypedef LONG PASCAL &#40; * PHTMLHELP &#41; &#40; HWND, LPSTR, LONG, LPSTR &#41;; \n\nHB_FUNC&#40; HTMLHELP &#41; \n&#123; \n   HINSTANCE hDLL = LoadLibrary&#40; &quot;hhctrl&#46;ocx&quot; &#41;; \n   PHTMLHELP pHTMLHelp = &#40; PHTMLHELP &#41; GetProcAddress&#40; hDLL, &quot;HtmlHelpA&quot; &#41;; \n    \n   if&#40; pHTMLHelp &#41; \n      pHTMLHelp&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41; &#41;; \n      \n   FreeLibrary&#40; hDLL &#41;;    \n&#125; \n\n#pragma ENDDUMP \n[/code:219bnh2u]','',0,'AIA=','219bnh2u',1,0,'',2,0,0),(36069,7223,3,162,0,'80.121.85.21',1186829603,1,0,1,1,1,0,'','','Looks good - as soon as the FreeLibrary( hDLL ); is removed from HB_FUNC( HTMLHELP ).\nRight?\n\nThanks,\nDietmar','',0,'AIA=','1lxkeehc',1,0,'',162,0,0),(36070,7833,3,161,0,'81.83.249.31',1186831844,1,0,1,1,1,0,'','','Antonio,\n\nI have succeed to create te EMF-file, but if I want to display it I get the following error when I want to display it.\n\n[code:2aheiyna]Application\n===========\n   Path and name&#58; C&#58;\\FWH\\Projects\\oMeta\\METATEST&#46;exe &#40;32 bits&#41;\n   Size&#58; 1,272,832 bytes\n   Time from start&#58; 0 hours 0 mins 0 secs \n   Error occurred at&#58; 08/11/07, 13&#58;24&#58;55\n   Error description&#58; Error BASE/1083  Argument error&#58; *\n   Args&#58;\n     &#91;   1&#93; = N   100&#46;00\n     &#91;   2&#93; = U   \n\nStack Calls\n===========\n   Called from&#58; TMETAFIL&#46;PRG =&gt; TMETAFILE&#58;PAINT&#40;0&#41;\n   Called from&#58; TMETAFIL&#46;PRG =&gt; &#40;b&#41;TMETAFILE&#58;TMETAFILE&#40;0&#41;\n   Called from&#58;  =&gt; TMETAFILE&#58;DISPLAY&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TMETAFILE&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; UPDATEWINDOW&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; METATEST&#46;PRG =&gt; TEST&#40;18&#41;[/code:2aheiyna]\n\nThe code to read is is the same as in previous message, only \'tmp.dt\' is changed in \'tmp.emf\'\n\nThe emf file is\n[url:2aheiyna]http&#58;//www&#46;vms&#46;be/FWTest/tmp&#46;emf[/url:2aheiyna]\n\nThanks,\nMarc[/code]','',0,'EIA=','2aheiyna',1,0,'',161,0,0),(36071,7223,3,2,0,'87.218.146.169',1186833066,1,0,1,1,1,1,'','','Dietmar,\n\nDLLs use an internal counter, so if they are loaded n times, they have to be freed n times. Thats why its better to load it and free it from the PRG too. \n\nIf it has been previously loaded more than once, a call to FreeLibrary() will not free it, it will just decrease the use counter','',0,'EIA=','1ae0do7g',1,0,'',2,0,0),(36072,7223,3,162,0,'80.121.85.21',1186834021,1,0,1,1,1,0,'','','ok, I see - that make it a little bit more complicated...\n\nBut what I wanted to express is that the\nFreeLibrary( hDLL ) line in HB_FUNC( HTMLHELP )\nseems to cause the GPF - at least here in my programm I had to remove it.\n\nSame with you??\nDietmar','',0,'EIA=','2x39ykae',1,0,'',162,0,0),(36073,7833,3,2,0,'87.218.146.174',1186834710,1,0,1,1,1,1,'','','Marc,\n\nFixed. Are you using Harbour or xHarbour ? to email you a new lib.','',0,'EIA=','3lb5exl8',1,0,'',2,0,0),(36074,7223,3,2,0,'87.218.146.174',1186835990,1,0,1,1,1,1,'','','Dietmar,\n\nNo, here we keep the FreeLibrary() call into the C function, so it matches the previous LoadLibrary().\n\nYou need to keep a call to LoadLibrary() from the PRG. Do it as the beginning of your application and free it when you are going to exit from your application.\n\nKeep it mind that you can NOT call FreeLibrary() meanwhile the help is shown, or you will have a GPF.','',0,'EIA=','3ex0q4eo',1,0,'',2,0,0),(36075,7223,3,162,0,'80.121.85.21',1186837226,1,0,1,1,1,0,'','','Antonio,\nThat does make sense!\n\nBut as soon as I copy the code to may sample below (which needs ridah.rc, I sent to you) it keeps GPF-ing (nice word) with this line in C-code, without its ok.\n\nI cannot see a difference - so I hesitate do change our big application.\nSorry for coming back again ... but things like that can drive you crazy...\n\n[code:32uqnzd0]#include &quot;FiveWin&#46;ch&quot;\nSTATIC oWnd, sDlg, sDlg1\nFUNCTION main&#40;&#41;\n\nREQUEST DBFCDX\nRDDSETDEFAULT &#40; &quot;DBFCDX&quot; &#41;\n\nREQUEST HB_LANG_DE\nHB_LANGSELECT&#40; \'DE\' &#41;\n\nvName = &quot;32-bit test&quot;\n\nDEFINE WINDOW oWnd FROM 1, 1 TO 22, 75;\n      TITLE vName ;\n      MDI;\n      MENU  BuildMenu&#40;&#41;;\n\nACTIVATE WINDOW oWnd MAXIMIZED;\n      ON INIT SuchStart&#40;&#41;;\n      VALID suchende&#40;&#41;\n\nRETURN nil\n\n\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n\n    MENUITEM &quot;&amp;Datei&quot;\n      MENU\n      MENUITEM &quot;&amp;Beenden&quot;;\n          ACTION dlgEnd&#40;&#41;\n      ENDMENU\n\n   ENDMENU\n\nreturn oMenu\n\n\nFUNCTION suchende\n\nIF MsgYesNo&#40; &quot;RIDA beenden ?&quot;,&quot;&quot; &#41;\n   RETURN &#46;T&#46;\nELSE\n   RETURN &#46;F&#46;\nENDIF\n\nRETURN &#46;T&#46;\n\n\n\nFUNCTION dlgEnd&#40;&#41;\noWnd&#58;end&#40;&#41;\nRETURN\n\n\n\n\nFUNCTION SuchStart&#40;&#41;\n  local hDLL &#58;= LoadLibrary&#40; &quot;hhctrl&#46;ocx&quot; &#41;\n  \n  DEFINE WINDOW sDlg1 MDICHILD of oWnd;\n         COLOR &quot;N/W&quot;;\n         TITLE &quot;SUCHSCHIRM&#58; &quot; ;\n         NOMINIMIZE;\n         NOMAXIMIZE;\n         NOSYSMENU\n\nDEFINE DIALOG sDlg RESOURCE &quot;Suchschirm2&quot; of sDlg1;\n\n//REDEFINE BUTTON ID 131 of sDlg;\n//  ACTION dlgEnd &#40; &#41;\n\nREDEFINE BUTTON ID 122 of sDlg;\n ACTION &#40;MsgInfo&#40;&quot;open HTML-Help!&quot;&#41;, HTMLHelp&#40; 0, &quot;fwclass&#46;chm&quot;, 0, &quot;class_todbc&#46;htm&quot; &#41;&#41;\n\n\nACTIVATE DIALOG sDlg NOWAIT;  // RESIZE16;\n         ON INIT &#40;sDlg&#58;Move&#40;0,0&#41;&#41;;\n\nACTIVATE WINDOW sDlg1;\n         ON INIT &#40;sDlg1&#58;SetSize&#40; sDlg&#58;nWidth, sDlg&#58;nHeight+40,&#46;t&#46;&#41;, sDlg1&#58;Move&#40;20,20,0,0,&#46;t&#46;&#41;&#41;;\n\nFreeLibrary&#40; hDLL &#41; \nreturn NIL\n\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\ntypedef LONG PASCAL &#40; * PHTMLHELP &#41; &#40; HWND, LPSTR, LONG, LPSTR &#41;;\n\nHB_FUNC&#40; HTMLHELP &#41;\n&#123;\n   HINSTANCE hDLL = LoadLibrary&#40; &quot;hhctrl&#46;ocx&quot; &#41;;\n   PHTMLHELP pHTMLHelp = &#40; PHTMLHELP &#41; GetProcAddress&#40; hDLL, &quot;HtmlHelpA&quot; &#41;;\n\n   if&#40; pHTMLHelp &#41;\n      pHTMLHelp&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41; &#41;;\n\n FreeLibrary&#40; hDLL &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n\n\n\n[/code:32uqnzd0]','',0,'AIA=','32uqnzd0',1,0,'',162,0,0),(36076,7837,6,300,0,'201.88.219.66',1186838162,1,0,1,1,1,0,'','Scope e registro','Olá\n\nApós aplicar uno scope como obtener a quantidade dos registros filtrados?\n\nSalu2','',0,'AIA=','2hzc8ubv',1,0,'',300,0,0),(36077,7833,3,161,0,'81.83.249.31',1186838590,1,0,1,1,1,0,'','','Antonio,\n\nI\'am using xHarbour.\n\nMarc','',0,'AIA=','1gpu0kav',1,0,'',161,0,0),(36078,7223,3,2,0,'87.218.146.169',1186839974,1,0,1,1,1,1,'','','Dietmar,\n\nPlace the LoadLibrary() call at function Main():\n[code:2yl1f4nm]\nFUNCTION main&#40;&#41;\n\n  local hDLL &#58;= LoadLibrary&#40; &quot;hhctrl&#46;ocx&quot; &#41; \n&#46;&#46;&#46;\n[/code:2yl1f4nm]\nand remove it from function SuchStart(). Also move the FreeLibrary( hDLL ) call to the end of function Main().\n\nYour problem is caused as the MDICHILD window is MODELESS (it does not wait) so FreeLibrary() gets inmediately called','',0,'AIA=','2yl1f4nm',1,0,'',2,0,0),(36079,7833,3,2,0,'87.218.146.169',1186840158,1,0,1,1,1,1,'','','We already emailed you a modified LIB for xHarbour. \n\nPlease try your code again, thanks','',0,'AIA=','3sufd0w1',1,0,'',2,0,0),(36080,7838,6,66,0,'200.127.232.215',1186843467,1,0,1,0,1,0,'','Como setear timer  cada 30-60 minutos o mas','Estimados Colegas\n\n\nComo puedo setear un timer cada 30 - 60 minutos o mas \n\nDesde ya muchas gracias\nFabian\n\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','3ro2k2dn',1,0,'',66,0,0),(36081,7833,3,161,0,'81.83.249.31',1186843681,1,0,1,1,1,0,'','','Thanks Antonio for the quick support.\n\nIt\' working!!!\n\nBest regards,\nMarc','',0,'AIA=','15qgm2ea',1,0,'',161,0,0),(36082,7223,3,162,0,'80.121.85.21',1186845448,1,0,1,1,1,0,'','','Antonio,\n\nThanks a lot - now it\'s working even in our bit application!\nNow we can migrate to chm!   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n\n... those little things.\n\nRegards,\nDietmar','',0,'AIA=','1dyeaeog',1,0,'',162,0,0),(36083,7836,6,138,0,'189.141.71.139',1186848303,1,0,1,1,1,1,'','','Yo sí (ya saben que yo me apunto hasta a un bombardeo), además de que Jorge Mason es un amigo personal.\n\nMis conclusiones: EXCELENTE\n\nWinASP es un pequeño servidor WEB, que además de servirte para publicar tus paginas web, te sirve para programar aplicaciones usando lenguaje Xbase.\n\nFunciona muy bien y es muy rápido (y cuando digo MUY rapido es en realidad MUY rapido), la instalacion y el mantenimiento es mínimo, se instala en minutos y en minutos también estas comenzado a disparar paginas web con tus datos de tus DBFs.\n\nLa vesion \"xbase\" pura y dura para DBFs es gratis, la puedes descargar de la web de Jorge (<!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w -->)\n\nHay también una versión comercial mucho mas completa, que incluye un generador de aplicaciones (trae un template práticamente para hacer todo lo que quieras), exportación de los informes generados via web a Excel, y PDF, generación de código de barras y lo mas importante, la versión comercial tiene soporte ODBC y ADO, y acceso nativo a SQLLite y a POSTGRE SQL.\n\nLa comercial es super barata $500.00 dólares por servidor donde la vayas a instalar.','',0,'AIA=','25a7aeh2',1,0,'',138,0,0),(36084,7837,6,53,0,'189.139.94.43',1186848376,1,0,1,1,1,1,'','','Wanderson:\n\nIntentalo así\n\nLOCAL nTotReg := 0\n\n// Despues del ORDSCOPE()\n\n(cDBFFiltrada)-&gt;(DBGOTOP())\n(cDBFFiltrada)-&gt;(DBEVAL( {|| nTotReg++}))\n(cDBFFiltrada)-&gt;(DBGOTOP())\n\n\nSaludos','',0,'AIA=','usvbj4o5',1,0,'',53,0,0),(36085,7838,6,138,0,'189.141.71.139',1186849326,1,0,1,1,1,1,'','','Jeje:\n\nEsa pregunta se la han hecho muchos, y como todo en FiveWin, parece una tontería pero realmente es una estupidez (frase célebre de Paco García).\n\nUn timer \"estandar\" de Windows no soporta intervalos de tiempo de mas de 1 minuto, ¿ que haces entonces ?, muy facil, en vez de que el ACTION del timer realice una función conviertes el timer en un RELOJ.\n\n¿ Como ?, ¿ te haz perdido del todo ?, bien aqui te va:\n\nDEFINE TIMER oTimer INTERVAL 60000 ACTION SumaMinuto() OF oWnd\n[code:27egec86]\nFunction SumaMinuto&#40;&#41;\nSTATIC nMinuto &#58;= 0\nnMinuto ++ // contador de minutos\nIF nMinuto &gt; 30 // ha pasado media hora\n   PongaAquiLaFuncionDelTimer&#40;&#41;\n   nMinuto &#58;= 0\nENDIF\nRETURN[/code:27egec86]\n\nAsi de facil, en vez de que el ACTION del timer ejecute una acción, convertimos el timer en RELOJ y cada minuto vamos incrementado un contador interno basado en una variable STATIC que nunca pierde su valor dentro de la funcion, una vez cumplido el intervalo de tiempo necesario, entonces ejecutamos la accion que antes estaba definida en el timer.','',0,'AIA=','27egec86',1,0,'',138,0,0),(36086,7813,3,138,0,'189.141.71.139',1186850816,1,0,1,1,1,1,'','','Dutch:\n\nAs Explained, you don\'t need to download the remote server yet to try in your notebook:\n\nDownload the Advantage Data Architech (ARC) from here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.google.d2g.com/ads/ver8/arc32.exe\">http://www.google.d2g.com/ads/ver8/arc32.exe</a><!-- m -->\n\nYou can use the ARC later as you DBU utility.\n\nInstall it in your computer, then go to the folder where you installed the ARC and you will find there 3 DLLs:\n\nACE32.DLL\nContains all the functions of the RDDADS.LIB to be called from your prgram\n\nAXWCS32.DLL\nThis is the ADS client itself, it handles all the protocols and comunication stuff.\n\nADSLOC32.DLL\nThis is the ADS \"local\" server.\n\nCopy those 3 DLLs to the folder where your application is.\n\nChanges to be done in your code:\n\nREQUEST ADS // instead or DBFCDX\nRDDSETDEFAULT(\"ADS\") // instead of \"DBFCDX\"\n\nAdsSetFileType(2) // 1 - DBFNTX, 2 - DBFCDX , 3 - ADTADI\n\nAdsSetServerType(7) \n/* \nthis leaves your program ready to run with  all the servers\nlocal, remote and internet the values are:\n\n1 - Local Server only (no remote or internet server)\n2 - Remote Server only (no local or internet server)\n3 - 1 + 2 = Local OR Remote server, leaves ads to choose the best\n4 - Internet server only (no local or remote server)\n5 - 4 + 1 Local or Internet\n6 - 4 + 2 Remote or Internet\n7 -  4+2+1 Any server\n*/\n\nAnd basically that\'s all because all the data access remains the same in the rest of your source code.\n\nCompiling and linking:\n\nYou will need to add 2 LIBs files to your link script&#058;\n\nACE32.LIB and RDDADS.LIB\n\nWhere to get them:\n\nACE32.LIB comes from the ACE32.DLL, you will need to \"convert\" the ACE32.DLL into  ACE32.LIB using a Borland C++ tool called IMPLIB.EXE (comes in the bin directory of your C++ installation), Syntax:\n\nIMPLIB ACE32.LIB ACE32.DLL\n\nAfter that you will have a new file called ACE32.LIB ready to link to your script file.\n\nRDDADS.LIB could be a little complicate to get, if it doesn\'t come with your (x)Harbour distribution (go to the LIB folder, and look there for RDDADS.LIB) then you will need to rebuild it from source code.\n\nThe source code is a (x)Harbour contribution, so you will need go where you got your (x)Harbour, look into CONTRIB folder, and there you will find another folder called \"RDDADS\" the source code is there, all the source is \"C\" code you will need to recompile it, (it\'s very easy, it comes with make files).\n\nOnce you have your libs built, just add them to your link script, and that\'s all you are ready to ADS.','',0,'AIA=','3rgp5svb',1,0,'',138,0,0),(36087,7818,6,138,0,'189.141.71.139',1186851559,1,0,1,1,1,1,'','','Marcelo y Antonio:\n\n¿ Y no seria mas facil hacerlo por el BKMode ?\n\nEn el proceso de pintado de controles, bastaría con cambiar el SetBkMode del contexto de dispositivo, por ejemplo:\n\nhDc := oDlg:GetDC()\nSetBkMode(hDc, 1) // no recuerdo si la transparencia es 0 o 1\n\nY a continuación pintar, con un TextOut() por ejemplo, se pintaría transparentado con el fondo\n\nEl caso es que creo que Marcelo quiere pintar DEPUES de hacer control, lo cual si que está complicado con el SAY de FiveWin, porque ese hereda del LABEL API de Windows, ignoro si el LABEL internamente cambia el BKMode, sería mas facil que se hiciera su propio SAY mandando llamar al BKmode haciendolo transparente y luego pintando el texto.','',0,'AIA=','1x1ol97i',1,0,'',138,0,0),(36088,7837,6,138,0,'189.141.71.139',1186852133,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:ns6j049v]\nLOCAL nTotReg := 0\n\n// Despues del ORDSCOPE()\n\n(cDBFFiltrada)-&gt;(DBGOTOP())\n(cDBFFiltrada)-&gt;(DBEVAL( {|| nTotReg++}))\n(cDBFFiltrada)-&gt;(DBGOTOP())\n\nSaludos[/quote:ns6j049v]\n\nHorrrrrorrrrr !!!!!!!! no no no no no no\n\nEso si que no es matar pulgas a cañonazos, eso es matar microbios con misiles !!!!!!!!!!\n\n[color=red:ns6j049v][b:ns6j049v][size=200:ns6j049v]OrdKeyCount()[/size:ns6j049v] [/b:ns6j049v][/color:ns6j049v]\n\nTe regresa el número de registros en una tabla CDX esten scopeados, filtrados o como sea.','',0,'xg==','ns6j049v',1,0,'',138,0,0),(36089,7818,6,2,0,'87.218.146.173',1186853003,1,0,1,1,1,1,'','','René,\n\nGracias por la sugerencia, pero no cambia la situación. El problema no es al pintar la línea sino que el fondo que hay debajo del control (no de la línea) sea visible.\n\nUsando temas se consigue copiando el fondo del padre, que es lo mismo que hace la función en C que le he mostrado, pero por alguna causa, no lo está haciendo bien','',0,'xg==','2xfvyuv9',1,0,'',2,0,0),(36090,7833,3,2,0,'87.218.146.173',1186853105,1,0,1,1,1,1,'','','good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'xg==','1ku6d6lq',1,0,'',2,0,0),(36091,7837,6,53,0,'189.139.94.43',1186854786,1,0,1,1,1,1,'','','Master:\n\nEl día que no aprenda algo nuevo es porque estoy muerto !  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos','',0,'xg==','3oxkiv2j',1,0,'',53,0,0),(36092,7839,6,439,0,'200.125.40.102',1186857015,1,0,1,1,1,1,'','ADS Lo que no me ha quedado claro','Hola a todos!!\nLa experiencia de pasarme a entorno gráfico y 32 bits con fivewin me ha sido fascinante, y los resultados ha sido muy buenos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nCreo que ahora, lo natural es incorporar a mis aplicaciones la seguridad de los datos de una tecnología cliente/servidor <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> , y naturalmente parece la opción mas sencilla y potente el uso de ADS.\n\nTodo buenísimo, salvo que de esta tecnología y de ADS se poco , y tengo algunas preguntas.....\n\nSirvo a una empresa con 10 terminales todas en un simple grupo de trabajo con WINDOWS XP PRO en cada equipo.\n\n1) Si deseo utilizar ADS REMOTE SERVER 8.0, tendré que instalar un software como Windows 2003 server o un server de linux, o es posible continuar con el grupo de trabajo que ya usan?\n\n2) He visto que ADS es fabuloso, pero algo caro, por lo que me interesa saber... cuando se habla de 5 licencias que significa exactamente..\nEsta empresa tiene 10 equipos, todos usan el mismo sistema (el mismo exe) pero difícilmente mas de 3 equipos ocurren a las mismas bases de datos simultáneamente (jamás más de 5).\nPuedo usar ADS con 5 licencias y no habrá problema o debo comprar 10 licencias por usar el mismo software en los 10 equipos?\n\n3) El \"Local Server de ADS\", según entiendo NO ES CLIENTE/SERVIDOR <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> , pero permite desarrollar por lo que he leído la aplicación y dejarla lista para colgarla en un server ADS REMOTO.\n¿Hay otras ventajas en usar este \"Local Server\"?, según entiendo con él podemos tener hasta 5 usuarios ocurriendo a la misma base de datos, pero... no estaremos a salvo de corrupciones, verdad? <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n4)Recientemente se ha instalado un representante de este software en Uruguay, pero he visto que no saben nada de nada sobre FWH, quisiera saber si es posible comprarlo a alguien que me de soporte en esta área. (por este asunto pueden escribirme a mi e-mail <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->), así podría sentirme más seguro, ya que el cliente correrá con todos los gastos de compra y naturalmente desea rápidos resultados.\n\nGracias desde ya por sus respuestas. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'xg==','m7kjvn82',1,0,'',439,0,0),(36093,7833,3,161,0,'81.83.249.31',1186866717,1,0,1,1,1,0,'','','Antonio,\n\nThere is only one problem if I want to create a second EMF-file. Then I get \'Error (32) creating Enhanced metafile\'\n\nHere is an example \n[code:1mz35ri5]#INCLUDE &quot;fivewin&#46;CH&quot;\nstatic sWnd\nstatic nZFactor\nFUNCTION test&#40;&#41;\n   local hPEN &#58;= CreatePen&#40; 0 , 1, 0 &#41;\n   local w &#58;= getsysmetrics&#40;0&#41; - 10\n   local h &#58;= getsysmetrics&#40;1&#41; - 68\n   nZFactor = 1\n\n   hdc = GetDC&#40; 0 &#41;\n   hDCOut &#58;= CreateEnhMetaFile&#40;hdc,\'tmp&#46;emf\',\'testje\'&#41;\n\n   MoveTo&#40; hDCOut, 0        , 0 &#41;\n   LineTo&#40; hDCOut, 0        ,h      , hPen&#41;\n\n   LineTo&#40; hDCOut, w     ,   h    , hPen&#41;\n   LineTo&#40; hDCOut, w     ,   0    , hPen&#41;\n   LineTo&#40; hDCOut, 0     ,   0    , hPen&#41;\n   LineTo&#40; hDCOut, w     ,   h    , hPen&#41;\n   LineTo&#40; hDCOut, w     ,   0    , hPen&#41;\n   LineTo&#40; hDCOut, 0     ,   h    , hPen&#41;\n\n   CloseEnhMetaFile&#40; hDCOut &#41;\n   ReleaseDC&#40; 0, hdc &#41;\n\n   DEFINE WINDOW sWnd TITLE \'Test\' VSCROLL HSCROLL\n   oMeta &#58;= TMetaFile&#40;&#41;&#58;New&#40; 38, 0, w, h,\'tmp&#46;emf\',sWnd,CLR_BLACK,CLR_WHITE,h,w &#41;\n\n   ACTIVATE WINDOW sWnd MAXIMIZED ;\n   VALID &#40; sWndOpen &#58;= &#46;f&#46; , &#46;t&#46;&#41;\n\n   hdc = GetDC&#40; 0 &#41;\n   hDCOut &#58;= CreateEnhMetaFile&#40;hdc,\'tmp&#46;emf\',\'testje\'&#41;\n\n   MoveTo&#40; hDCOut, 0        , 0 &#41;\n   LineTo&#40; hDCOut, 0        ,h      , hPen&#41;\n\n   LineTo&#40; hDCOut, w     ,   h    , hPen&#41;\n   LineTo&#40; hDCOut, w     ,   0    , hPen&#41;\n   LineTo&#40; hDCOut, 0     ,   0    , hPen&#41;\n\n   CloseEnhMetaFile&#40; hDCOut &#41;\n   ReleaseDC&#40; 0, hdc &#41;\n\n   DEFINE WINDOW sWnd TITLE \'Test\' VSCROLL HSCROLL\n   oMeta &#58;= TMetaFile&#40;&#41;&#58;New&#40; 38, 0, w, h,\'tmp&#46;emf\',sWnd,CLR_BLACK,CLR_WHITE,h,w &#41;\n\n\n   ACTIVATE WINDOW sWnd MAXIMIZED ;\n   VALID &#40; sWndOpen &#58;= &#46;f&#46; , &#46;t&#46;&#41;\n\nRETURN nil\n[/code:1mz35ri5]\n\nCan you tell me what I\'m doing wrong?\n\nThanks,\nMarc','',0,'AIA=','1mz35ri5',1,0,'',161,0,0),(36094,7840,6,911,0,'200.72.141.53',1186868686,1,0,1,1,1,0,'','FW 7.04, xharbour 0.99.71 y odbc (CERRADO)','Hola:\ncuando enlazo mi aplicación para utilizar el siguiente código:\n\n  [code:3ofbh6ch]TRY\n     MsgInfo&#40;&quot;Abriendo la conexión&quot;&#41;\n     oOdbc&#58;=TOdbc&#40;&#41;&#58;New&#40; &quot;oracle&quot;, &quot;usuario&quot;, &quot;password&quot;&#41;\n     MsgInfo&#40; &quot;cerrando la conexión&quot;&#41;\n     oOdbc&#58;End&#40;&#41;\n  CATCH oError\n     MsgStop&#40;oError&#58;Operation,&quot;Ado Open&quot;&#41;\n  END[/code:3ofbh6ch]\n\nrecibo este error:\nError: Unresolved external \'SQLAllocEnv\' referenced from D:\\LENG\\FWH\\LIB\\FIVEHC.LIB|ODBC32X\n\nEstoy utilizando el xMate con Borlanc C\n\nMuchas gracias\nDavid Lagos S.\nCoquimbo-Chile','',0,'AIA=','3ofbh6ch',1,1186885096,'',911,1,0),(36095,7839,6,138,0,'189.141.71.139',1186869157,1,0,1,1,1,1,'','Re: ADS Lo que no me ha quedado claro','Jose:\n\n\n\n[quote=&quot;jose_murugosa&quot;:13z8v332]\n1) Si deseo utilizar ADS REMOTE SERVER 8.0, tendré que instalar un software como Windows 2003 server o un server de linux, o es posible continuar con el grupo de trabajo que ya usan?\n[/quote:13z8v332]\n\nAunque el uso de ADS te sugiere que tengas un servidor dedicado, nosotros hemos hecho instalaciones de ADS sobre Windows XP Professional (muy importante que sea PROFESSIONAL), donde el servidor de datos a su vez es estación de trabajo, y en redes pequeñas hasta para 5 usuarios funciona estupendamente bien, para redes con mas de 5 usuarios, si es mas recomendable un equipo con hardware y software de servidor.\n\n\n[quote=&quot;jose_murugosa&quot;:13z8v332]\n2) He visto que ADS es fabuloso, pero algo caro, por lo que me interesa saber... cuando se habla de 5 licencias que significa exactamente..\nEsta empresa tiene 10 equipos, todos usan el mismo sistema (el mismo exe) pero difícilmente mas de 3 equipos ocurren a las mismas bases de datos simultáneamente (jamás más de 5).\nPuedo usar ADS con 5 licencias y no habrá problema o debo comprar 10 licencias por usar el mismo software en los 10 equipos?\n[/quote:13z8v332]\n\n5 licencias significan USUARIOS CONCURRENTES es decir, estaciones de trabajo, que, sin importar el número de aplicaciones que hagan uso de las tablas en el servidor, están accediendo a los datos en ese momento.\n\nPor ejemplo, mencionas que te tienes 10 puestos pero que aunque los 10 usan tus programas NO LO HACEN AL MISMO TIEMPO, si este es el caso,  una licencia de 5 usuarios te funciona perfectamente, la limitante es que un 6to usuario tendra que esperar a que se \"libere\" una licencia para poder utilizar el programa, de hecho tengo un caso precisamente en este momento de un cliente que tiene 5 licencias y 15 usuarios y todos usan el programa, los empleados tienen que \"esperar turno\" para poder usar el programa o tienen que pedirse \"prestados\" los usuarios es decir, esperar a que se desconente uno para que otro pueda acceder al servidor.\n\n[quote=&quot;jose_murugosa&quot;:13z8v332]\n3) El \"Local Server de ADS\", según entiendo NO ES CLIENTE/SERVIDOR <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> , pero permite desarrollar por lo que he leído la aplicación y dejarla lista para colgarla en un server ADS REMOTO.\n¿Hay otras ventajas en usar este \"Local Server\"?, según entiendo con él podemos tener hasta 5 usuarios ocurriendo a la misma base de datos, pero... no estaremos a salvo de corrupciones, verdad? <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n[/quote:13z8v332]\n\nAsí es, con hasta 5 usuarios, el servidor local se comporta muy bien, pero careces de 4 cosas importantes contra el servidor remoto:\n\n1) No es cliente servidor, lo que quiere decir que continuas sujeto a los errores típicos de las bases de datos DBFCDX\n2) No tiene soporte a transacciones \n3) No tienes protección por ocultamiento de las carpetas donde están los datos (aunque si tienes encriptación)\n4) No tienes acceso via internet.\n\nEl ADS Local Server no está pensado como un producto para aplicaciones comerciales para redes, aunque muchas empresas lo usan así, por eso es de distribución gratuita, el ADS Local Server  tendría que considerarse mas bien como una  herramienta para desarrollo y pruebas de software, que le permite al programador usar todas las características de ADS y probar su software en redes pequeñas o en monousuario, evitando con ello tener que estar \"pegado\" a un servidor que usualmente está metido en una oficina, digamos que el servidor local es un ADS \"para llevar\" en el portatil y poder programa en casa y probar todas las características del programa mismas que serán utilizadas en un servidor remoto el lunes siguiente.\n\n[quote=&quot;jose_murugosa&quot;:13z8v332]\n4)Recientemente se ha instalado un representante de este software en Uruguay, pero he visto que no saben nada de nada sobre FWH, quisiera saber si es posible comprarlo a alguien que me de soporte en esta área. (por este asunto pueden escribirme a mi e-mail <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->), así podría sentirme más seguro, ya que el cliente correrá con todos los gastos de compra y naturalmente desea rápidos resultados.\n[/quote:13z8v332]\n\nDesafortunadamente es una carencia que vas a encontrar en la mayoría de los distribuidores de ADS, nos salvamos algunos cuantos, porque la gente que vende ADS hace eso, vender y mover cajas de producto. No tiene ni idea para que sirve, no conoce las APIs del ADS, como se instala, se configura y se balance,  mucho menos programa y menos todavía ha hecho alguna vez un programa cliente ADS, cualquier problema que tienen lo intentan solucionar con un \"reinicia el servidor\"  o con un \"vuelve a instalar el programa\" cuando en realidad en el 90% de los casos las soluciones son bastante simples y usualmente son de programación, y para muestra preguntales por ejemplo si saben como se instala el VCL de Delphi, o vamonos a algo mas simple, que puerto se tiene que asignar para la red de area local.\n\nSi lo deseas nostros podemos hacerte \"todo el paquete\", vendemos en cualquier parte del América, tenemos un excelente precio en comparación con la mayoría de los distribuidores y adicionalmente todos nuestros clientes que compran ADS con nosotros, se llevan la documentación en Español ESPECIFICA para su lenguaje de programación, obviamente tenemos la documentación para el uso optimo de ADS con xHarbour, tenemos documentado el RDDADS completo, la de instalación y puesta a punto del servidor, y la guia de programación.','',0,'gA==','13z8v332',1,0,'',138,0,0),(36096,7840,6,138,0,'189.141.71.139',1186869634,1,0,1,1,1,1,'','','ODBC.... uuuughhhh\n\nEso ya no se utiliza, es tecnología vieja, ahora es mucho mas facil ir por ADO, solo necesitas el ADO provider de la versión de Oracle a la cual quieres conectarte y la cadena de conexion correspondiente.\n\nEl ADO provider te lo proporciona Oracle y es gratis y FiveWin tiene un AdoRDD que también es gratuito, aunque en lo personal prefiero trabajar directo con ADO.','',0,'gA==','1k9sl0wi',1,0,'',138,0,0),(36097,7841,6,911,0,'200.72.141.53',1186869672,1,0,1,1,1,0,'','offTopic: Conectarme a través de OleDB a Oracle 10gR2','Hola:\nComo no pude conseguir conectividad hacia oracle a través de ADORDD, estoy intentando lo siguiente:\n[code:a3espytt]\nTRY\n     msginfo&#40; &quot;vamos a crear la conexión con Ado&quot;&#41;\n     oCon&#58;=toleauto&#40;&#41;&#58;new&#40;&quot;adodb&#46;connection&quot;&#41;\n     msginfo&#40; &quot;hemos creado la conexión con Ado&quot;&#41;\nCATCH oError\n     MsgStop&#40;oError&#58;Operation,&quot;Ado Connection&quot;&#41;\nEND\nTRY\n     msginfo&#40;&quot;nos vamos a conectar utilizando Ado&quot;&#41;\n     oCon&#58;ConnectionString&#58;=&quot;Provider=OraOLEDB&#46;Oracle;Data Source=nnn&#46;nnn&#46;nnn&#46;nnn;Port&#58;1521;User ID=user;Password=pass;&quot;\n     oCon&#58;OPEN&#40;&#41;\n     msginfo&#40;&quot;nos hemos conectado a Oracle utilizando Ado&quot;&#41;\nCATCH oError\n     MsgStop&#40;oError&#58;Operation,&quot;Ado Open&quot;&#41;\nEND\n\nTRY\n      msginfo&#40; &quot;vamos a cerrar la conexión&quot;&#41;\n      oCon&#58;CLOSE&#40;&#41;\n      msginfo&#40;&quot;hemos cerrado la conexión&quot;&#41;\nCATCH oError\n      MsgStop&#40;oError&#58;Operation,&quot;Ado Open&quot;&#41;\nEND\n[/code:a3espytt]\n\nAdo trabaja bién. El problema es que oracle me devuelve el siguiente error:\n\n[list:a3espytt][i:a3espytt]***********************************************************************\nFatal NI connect error 12514, connecting to:\n (DESCRIPTION=(CONNECT_DATA=(SERVICE_NAME=nnn.nnn.nnn.nnn)(CID=(PROGRAM=D:\\LENG\\pruebas\\Bin\\pruebas.Exe)(HOST=XXX)(USER=xxx)))(ADDRESS=(PROTOCOL=TCP)(HOST=nnn.nnn.nnn.nnn)(PORT=1521)))\n\n  VERSION INFORMATION:\n	TNS for 32-bit Windows: Version 10.2.0.1.0 - Production\n	Windows NT TCP/IP NT Protocol Adapter for 32-bit Windows: Version 10.2.0.1.0 - Production\n  Time: 11-AGO-2007 17:53:10\n  Tracing not turned on.\n  Tns error struct:\n    ns main err code: 12564\n    [b:a3espytt]TNS-12564[/b:a3espytt]: Message 12564 not found; No message file for product=NETWORK, facility=TNS\n    ns secondary err code: 0\n    nt main err code: 0\n    nt secondary err code: 0\n    nt OS err code: 0\n[/i:a3espytt][/list:u:a3espytt]\n\nSegún la información que entrega oracle.com transcribo textual:\n\n[list:a3espytt]TNS-12514: TNS:listener does not currently know of service requested in connect descriptor\n    Cause: The listener received a request to establish a connection to a database or other service. The connect descriptor received by the listener specified a service name for a service (usually a database service) that either has not yet dynamically registered with the listener or has not been statically configured for the listener. This may be a temporary condition such as after the listener has started, but before the database instance has registered with the listener.\n    Action:\n\n    - Wait a moment and try to connect a second time.\n\n    - Check which services are currently known by the listener by executing: lsnrctl services &lt;listener name&gt;\n\n    - Check that the SERVICE_NAME parameter in the connect descriptor of the net service name used specifies a service known by the listener.\n\n    - If an easy connect naming connect identifier was used, check that the service name specified is a service known by the listener.\n\n    - Check for an event in the listener.log file.[/list:u:a3espytt]\n\nSegún entiendo: quiere decir que no estoy indicando el nombre del servicio; y aunque especifique dentro de [b:a3espytt]oCon:ConnectionString[/b:a3espytt] \"Service_Name=nombreservicio;\" arroja el mismo error.\nTengo instalado el driver ODBC y Oracle OleDB provider y nada.\nSi alguien me puede ayudar ya que tengo que desarrollar una aplicación de punto de venta y facturación que debe conectarse a un server ORACLE 10gR2\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'YMA=','a3espytt',1,0,'',911,0,0),(36098,7840,6,911,0,'200.72.141.53',1186869937,1,0,1,1,1,0,'','','René:\ngracias. coloqué un nuevo post como offtopic ya que ado funca bien, pero no logro conectarme. está todo explicado en ese topic.\nGracias nuevamente\nDavid','',0,'YMA=','3g8w50o0',1,0,'',911,0,0),(36099,7833,3,2,0,'87.218.146.173',1186873454,1,0,1,1,1,1,'','','Marc,\n\nThe error 32 means that the EMF file is still open ( \"sharing violation\" ) so you can not create it again.\n\nYou may use a different EMF filename as it seems that Windows takes some time to close it, even if we force it to do so:\n\n   ACTIVATE WINDOW sWnd MAXIMIZED ; \n   VALID ( sWndOpen := .f., DeleteEnhMetaFile( oMeta:hMeta ), .t.)','',0,'YMA=','2r58mzi8',1,0,'',2,0,0),(36100,7841,6,138,0,'189.141.71.139',1186873754,1,0,1,1,1,1,'','','DAvid:\n\n¿ Tienes correctamente instalado el Ado Provider de Oracle en tu computadora ?\n\nHe estado revisando las cadenas de conexion a Oracle que tengo y ninguna me pone lo que tu estas poniendo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/?carrier=oracle\">http://www.connectionstrings.com/?carrier=oracle</a><!-- m -->\n\n¿ Haz mirado en la documentación del provider y haz revisado que los parametros sean correctos ?\n\n¿ Haz visto si el puerto en el servidor es correcto ?\n\n¿ la IP del servidor es valida ?','',0,'YMA=','q48b8gbr',1,0,'',138,0,0),(36101,7837,6,300,0,'200.101.44.4',1186874665,1,0,1,1,1,0,'','','Gracias, ordkeycount() me funcionó estupendo','',0,'YMA=','2z5fm4o9',1,0,'',300,0,0),(36102,7841,6,911,0,'200.72.141.53',1186884953,1,0,1,1,1,0,'','','René:\nYa lo solucioné.\nEn la parte del Data Source yo colocaba Data Source:numeroip y era\nData Source:numeroip:puerto/nombreservicio\n\nEso era todo.\nMil gracias de todas maneras.\nSaludos\nDavid Lagos S.\nCoquimbo - Chile\n\nP.D: Tienes algún link donde poder obtener información detallada de Ado o algún ejemplo de como implementarlo para crear un browse?','',0,'YMA=','2dzej3i0',1,0,'',911,0,0),(36103,7842,6,73,0,'189.157.181.129',1186885264,1,0,1,1,1,0,'','abrir cajon de dinero ...','Aqui dejo una solucion practica para la apertura del cajon de dinero sin usar codigo fuente, ni .bat ni redireccionamientos de puertos, gracias a una pequeña necesidad:\nSi tienes instalada una miniprinter matricial o térmica (unicamente probado con epson) y en cualquiera que emule epson debe funcionar, probado con la clase tprinter y tdosprn, en puerto paralelo y serial, me funcionó.\nPrimero hay que instalar desde Güindous la impresora \"Generica / Text Only\", entrar a sus Propiedades-&gt;pestaña Comandos de Impresora,\nahi en cualquier opcion, ya sea; al empezar ó terminar la impresion poner este codigo:   &lt;1b&gt;p&lt;70003CF0&gt; \ny listo el pollo !!\n\nSalu2\nPaco','',0,'YMA=','9198uwzu',1,0,'',73,0,0),(36104,7843,6,138,0,'189.141.71.139',1186887919,1,0,1,1,1,1,'','OT: Visita a Colombia','Hola a todos:\n\nEstare visitando Colombia la proxima semana durante 2 semanas, del dia 17 de Agosto al 3 de Septiembre.\n\nEstaré principalmente en la ciudad de Manizales, dando una formacion intensiva de programacion a 32 bits, con FW, FWPPC, programacion para WEB y Advantage Database server.\n\nEstare en Bogotá por un par de dias, el domingo 1, lunes 2 y martes 3 vuelvo a Mexico.\n\nYa estamos organizando un \"open house\" en Bogota el lunes 2 de Septiembre sesión abierta de .... Pregunte lo que quiera del tema que quiera (que tenga que ver con xHarbour y programacion a 32 bits).\n\nMe dara mucho gusto conocerlos en persona.\n\nY en Octubre.... Chile.... estén pendientes.','',0,'YMA=','2i8xzn86',1,0,'',138,0,0),(36105,7836,6,348,0,'201.230.93.182',1186901663,1,0,1,1,1,0,'','','Gracias por tu respuesta Rene, es una suerte encontrar  alguien que estubo un paso adelante de uno... \n\nLe di una visita la su pagina web, y es realmente interesante el demo que han puesto,  y parece una buena alternativa\n\nhas tenido la oportunidad de probarlo con harbour ?? \nhe visto uso con mysql  pero POSTGRE SQL no tengo mucha informacion \npodrias comentarme algo repecto a su seguridad, estabilidad , etc o cualquier otra virtud de sea interesante a tu criterio\n\nGracias nuevamente,\nLubin','',0,'YMA=','189nlyo9',1,0,'',348,0,0),(36106,7844,6,75,0,'81.36.248.57',1186909006,1,0,1,1,1,0,'','Anular Salida de dialog con scape','¿Como se anula que se cierre una ventana de un dialogo con escape?\n\nSaludos.','',0,'YMA=','27l5um6b',1,0,'',75,0,0),(36107,7844,6,2,0,'87.218.146.15',1186909595,1,0,1,1,1,1,'','','lSalir = .F.\n\nACTIVATE DIALOG oDlg VALID lSalir\n\nEl diálogo no terminará con escape, ní intentándo cerrarlo, hasta que lSalir sea .T.','',0,'YMA=','hrfh57p3',1,0,'',2,0,0),(36108,7813,3,47,0,'203.147.0.44',1186916136,1,0,1,1,1,0,'','','Dear Rene,\n\nThanks for your kindness a lot for the start step.  I\'ll try and move to ADS for sure.  \n\n- RDDADS.LIB should be matched with xHB version?  I\'ve xHB july 2005.  \n\nBest regards,\nDutch','',0,'YMA=','mil6i1du',1,0,'',47,0,0),(36109,7843,6,644,0,'200.82.46.235',1186920264,1,0,1,1,1,0,'','','Y en argentina para cuando ????, Saludos','',0,'YMA=','th79hsie',1,0,'',644,0,0),(36110,7845,3,47,0,'203.147.0.44',1186921054,1,0,1,1,1,0,'','RDDADS.LIB for xHarbour.com build july 2005','Dear All,\n\nI use FWH 2.5 and xHarbour builder build july 2005.  I cannot find the matched RDDADS.LIB from anywhere.  In xHarbour\\lib have not RDDADS.LIB and for xHarbour that come with FWH 2.5 is not compatible with xHarbour.com.  It shows the message lib is corrupt.  I try in Harbour.org contribute section but I cannot find it.\n\nWhere do I get RDDADS.LIB, pls?\n\nRegards,\nDutch','',0,'YMA=','26tfb5n6',1,0,'',47,0,0),(36111,7819,3,69,0,'74.13.29.69',1186923052,1,0,1,1,1,1,'','','Antonio,\n\nHere is the reply from the manufacturer\n\n&gt;&gt;\nour DLL files are in Visual Basic or ActiveX DLL as you described. We are presently not working in \"C\" code. You might be able to try installing MSI and this might assist you.\n&lt;&lt;','',0,'YMA=','q32xkir7',1,0,'',69,0,0),(36112,7846,2,1107,0,'200.77.1.15',1186924216,1,0,1,1,1,0,'','Clausula Valid en un GET simple','Porque no trabaja la clausula valid de un Get el código es el siguiente:\nlocal l_oGet\nprivate p_cArti :=space(14)\nprivate p_pDlg\nDEFINE DIALOG p_oDlg RESOURCE \'DCON_PRE1\'\n    REDEFINE GET l_oGet VAR p_cArti ID 101 OF p_oDlg PICTURE \'@!@k\'   VALID(Chk_Pre1())\nACTIVATE DIALOG p_oDlg CENTER\nClose Databases\nReturn Nil\n\nStatic Function Chk_Pre1()\n? \'1\'\nReturn(.t.)\n\nGuillermo Guevara C.\nClp5.2e FW2.3b Blk3.3','',0,'YMA=','136t5i04',1,0,'',1107,0,0),(36113,7819,3,2,0,'87.218.146.142',1186933037,1,0,1,1,1,1,'','','Jeff,\n\nok, thanks for the info. We are going to do some tests with VB','',0,'YMA=','3pxmgkra',1,0,'',2,0,0),(36114,7819,3,2,0,'87.218.146.142',1186935457,1,0,1,1,1,1,'','','Jeff,\n\nWe are unable to build and run their sample using Visual Basic Express(free from Microsoft).\n\nDo they expect that their users will just use the latest Visual Basic version ? They should consider to deliver a standard C DLL so everyone can use it, not just Visual Basic users','',0,'YMA=','3n7jww3m',1,0,'',2,0,0),(36115,7847,6,1107,0,'200.77.1.15',1186937062,1,0,1,1,1,0,'','Para Antonio Linares','Favor de informarme cual es la última versión de:\n\nFiveWin para Harbour/xHarbour\nEl compilador Harbor/xHarbour\n\n\nGuillermo Guevara C.','',0,'YMA=','ruqmef8l',1,0,'',1107,0,0),(36116,7844,6,911,0,'200.72.141.53',1186937117,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:12rch0lc]lSalir = .F.\n\nACTIVATE DIALOG oDlg VALID lSalir\n\nEl diálogo no terminará con escape, ní intentándo cerrarlo, hasta que lSalir sea .T.[/quote:12rch0lc]\n\nEstá en lo correcto Antonio. Si te sirve te doy un pequeño ejemplo:\n\n[code:12rch0lc]DEFINE DIALOG oDlg RESOURCE &quot;PRUEBA&quot; OF oPadre\n   REDEFINE BUTTON ID 301 OF oDlg ACTION &#40; oDlg&#58;bValid&#58;=&#123; || &#46;T&#46;&#125;, oDlg&#58;End&#40;&#41;&#41; ;\n         CANCEL\n\n   ACTIVATE DIALOG oDlg CENTER VALID &#46;F&#46;[/code:12rch0lc]\n\nTe explico: al utilizar \"VALID .F.\" en el ACTIVATE DIALOG, estamos indicando que aunque presiones la tecla ESC o presiones la X del diálogo, éste no se cerrará. Lo importante es que te fijes en lo que hace el botón.\nEn este caso saqué esto de un dialogo que utilizo desde recursos y ese botón cuando se presiona me aseguro que cambie el valor de oDlg:bValid que fue definida en el VALID del ACTIVATE DIALOG a .T. y luego le doy con el oDlg:End() la orden de que se cierre el diálogo.\nY como dice mi muy querido amigo Vikthor: \"listo el pollo\"\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'gIA=','12rch0lc',1,0,'',911,0,0),(36117,7836,6,911,0,'200.72.141.53',1186937303,1,0,1,1,1,0,'','','Comunícate por mensaje privado conmigo y te doy el correo de un muy buen amigo mio que la utiliza y te puede orientar más.\nA todo esto de donde eres?\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'gIA=','1ilhnsio',1,0,'',911,0,0),(36118,7807,6,945,0,'217.216.165.130',1186937692,1,0,1,1,1,0,'','Gracias','Muchas gracias por la explicacion me podrías dar la web donde hay algunos ejemplos. \n\nUn Saludo.','',0,'gIA=','1g9nd37y',1,0,'',945,0,0),(36119,7843,6,911,0,'200.72.141.53',1186939600,1,0,1,1,1,0,'','Re: OT: Visita a Colombia','[quote=&quot;RF&quot;:3fl6d2ot]Hola a todos:\n\nEstare visitando Colombia la proxima semana durante 2 semanas, del dia 17 de Agosto al 3 de Septiembre.\n\nEstaré principalmente en la ciudad de Manizales, dando una formacion intensiva de programacion a 32 bits, con FW, FWPPC, programacion para WEB y Advantage Database server.\n\nEstare en Bogotá por un par de dias, el domingo 1, lunes 2 y martes 3 vuelvo a Mexico.\n\nYa estamos organizando un \"open house\" en Bogota el lunes 2 de Septiembre sesión abierta de .... Pregunte lo que quiera del tema que quiera (que tenga que ver con xHarbour y programacion a 32 bits).\n\nMe dara mucho gusto conocerlos en persona.\n\nY en Octubre.... Chile.... estén pendientes.[/quote:3fl6d2ot]\n\nExcelnet René para recibirte.\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'gA==','3fl6d2ot',1,0,'',911,0,0),(36120,7847,6,2,0,'87.218.146.202',1186945092,1,0,1,1,1,1,'','','Guillermo,\n\n&gt; FiveWin para Harbour/xHarbour \n\nFWH 7.07\n\n&gt; El compilador Harbor/xHarbour \n\nBusca al final de este topic:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/viewtopic.php?t=2486\">http://www.fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'gA==','2f2506so',1,0,'',2,0,0),(36121,7844,6,53,0,'189.139.17.193',1186947197,1,0,1,1,1,1,'','','Otra opción para evitar la tecla ESC sería\n\nACTIVATE DIALOG oDlg NOWAIT CENTERED VALID ! GetAsyncKey(VK_ESCAPE)\n\nSaludos','',0,'gA==','1m6c3ztd',1,0,'',53,0,0),(36122,7842,6,75,0,'81.36.248.57',1186947763,1,0,1,1,1,0,'','apertura de cajón de monedas','Después de miles de años de evolución del ser humano, sus diferentes civilizaciones y lenguas hemos llegado a la siguiente ecuación:\n\nabre cajón     = &lt;1b&gt;p&lt;70003CF0&gt; \n(10 símbolos)    (15 símbolos)\n\nLa verdad es que la cosa agita la mente hacia la reflexión.\n\n¿Qué falla en la informática, la nueva rueda según algunos?\n\nCuando dentro de 2000 años, por ejemplo, en el 12 de agosto de 4007 en el que ya seremos algo arqueológico, algún individuo encuentre este mensaje qué lado de la ecuación entenderá mejor. Aunque  tal vez para entonces ya nos hemos vuelto todos gilipollas de remate, es solo cuestión de seguir evolucionando y ya vereis como lo conseguimos.','',0,'gA==','39u8fii1',1,0,'',75,0,0),(36123,7843,6,228,0,'201.244.220.150',1186974999,1,0,1,1,1,1,'','Precio..?','* Rene y cual es el precio del curso que vas dictar en Manizales?\n* Lo que vas a hacer en Bogotá a que horas es?','',0,'gA==','j5aq5cq9',1,0,'',228,0,0),(36124,7836,6,348,0,'201.230.93.182',1186986210,1,0,1,1,1,0,'','','Gracias David Lagos S.\nmi correo es <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n\ny soy de Lima-Peru  y me encuentro en la migracion de mis aplicaciones con harbour y a su vez analizar las ampliaciones hacia el internet\n\n\nte agradezco el dato que me pudieras brindar\nLubin','',0,'gA==','1kc7wl06',1,0,'',348,0,0),(36125,7813,3,666,0,'211.28.125.58',1186988015,1,0,1,1,1,0,'','','As good as Advantage is, just be aware that you will have problems if you want to index on related areas or on user defined functions. I make a lot of use of both and that was the show-stopper for me, causing me to stick with dbfcdx.','',0,'gA==','vyqe1o11',1,0,'',666,0,0),(36126,7846,2,2,0,'87.218.146.232',1186995624,1,0,1,1,1,1,'','','Guillermo,\n\nNecesitas tener un control más en el diálogo para que se produzca pérdida de foco hacia ese otro control','',0,'gA==','35izd0lt',1,0,'',2,0,0),(36127,7845,3,2,0,'87.218.146.232',1186995786,1,0,1,1,1,1,'','','Dutch,\n\nYou may ask xharbour.com to provide it to you.\n\nAnother choice is to do a CVS checkout from such date, rebuild xHarbour in Microsoft VC mode','',0,'gA==','16xr1szf',1,0,'',2,0,0),(36128,6186,3,1139,0,'201.92.227.245',1187006407,1,0,1,1,1,0,'','','hi \n\ni don´t now what is happening with the link, but thing is broken\nbecause i couldn´t take this.. (HTTP 404-error)\n\nsome one know where can i take this tool?\n\nthanks','',0,'gA==','1192sw8i',1,0,'',1139,0,0),(36129,7818,6,41,0,'200.105.194.234',1187007339,1,0,1,1,1,0,'','','Rene,\n\ngracias por contestar, ya probe antes con el SetBkMode(hDc, 1) y todo lo demas que pude averiguar y por eso pregunte en el foro.\n\nActualmente tengo corriendo en 32 bits un paint que creo lo hizo Paco Garcia, ya que estoy con tiempito, lo que deseo hacer es un generador de codigo para la clase tprint, veremos que sale, aun falta mucho <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsaludos\n\nMarcelo','',0,'gA==','15vr4egp',1,0,'',41,0,0),(36130,7830,3,162,0,'141.201.51.83',1187008351,1,0,1,1,1,0,'','','Antonio,\n\nI tried this sample on two PCs - the result is always \"oFTP:hFTP is null\"\n\nHow can I find out what the problem is?\n\nThanks (again) for help,\nDietmar','',0,'gA==','xtyxkej1',1,0,'',162,0,0),(36131,7830,3,2,0,'87.218.146.232',1187009930,1,0,1,1,1,1,'','','Dietmar,\n\nCan you connect to ftp.microsoft.com from the Internet Explorer ?','',0,'gA==','33faef9t',1,0,'',2,0,0),(36132,7822,3,689,0,'201.47.44.167',1187013919,1,0,1,1,1,0,'','','Ok, many thanks to all.\nEroni','',0,'gA==','27sw6mpe',1,0,'',689,0,0),(36133,7848,19,92,0,'213.98.205.95',1187014628,1,0,1,1,1,0,'','Probando WinAsp.','Hola a todos,\n\nEstoy intentando probar WinAsp.\n\nNo tengo ni idea de como comenzar a probarlo; alguién tiene algún manual de como empezar? Al menos para que me eduque un poco sobre le tema.\n\nAdemás en la página <!-- m --><a class=\"postlink\" href=\"http://htcsoft.no-ip.com:82/\">http://htcsoft.no-ip.com:82/</a><!-- m --> en el apartado ingreso me pide un usuario y password que desconozco y por si fuera poco en <!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w --> no encuentro ningun enlace donde poder preguntar algo o contactar con el frabricante.\n\nAlguién tiene información sobre este producto, o lo ha probado?\n\nSaludos y gracias\nCarlos G.','',0,'gA==','2jmzdu82',1,0,'',92,0,0),(36134,7847,6,1107,0,'200.77.1.15',1187014940,1,0,1,1,1,0,'','Gracias Antonio pero....','Antonio agradezco tu respuesta me queda claro lo de FWH 7.07\nAhora me surge otras 2 dudas:\n\n1.- Porque Harbour y xHarbour cual es la diferencia\n\n2.- Porque en Microsoft y en Borland cual es la diferencia\n\nGuillermo Guevara C.','',0,'gA==','1azfuul5',1,0,'',1107,0,0),(36135,7846,2,1107,0,'200.77.1.15',1187015973,1,0,1,1,1,0,'','Gracias Antonio','Disculpa mi ignorancia.\n\nOk de acuerdo con tu recomendación, entonces voy a programar un diálogo definiendo controles que no ucupo, ¿es una limitante de FW ó que sucede?, en nuestro viejo Clipper no teniamos estas limitántes.\n\nEjemplo específico de este caso, estoy tratando de construir un verificador de precios para que el usuario utilice un scanner (Lector de código de barras) lea el GET (unico control en este diálogo) y a través de la clausula VALID con otro diálogo despliegue el precio de venta por unos segundos y que regrese al GET original listo para otra lectura.\n\nGuillermo Guevara C.','',0,'gA==','3etvv6fv',1,0,'',1107,0,0),(36136,7830,3,162,0,'141.201.51.83',1187016317,1,0,1,1,1,0,'','','yes I can connect to <!-- m --><a class=\"postlink\" href=\"ftp://ftp.microsoft.com/\">ftp://ftp.microsoft.com/</a><!-- m --> from Internet Explorer.\n\nDietmar','',0,'gA==','2cf1j57r',1,0,'',162,0,0),(36137,7849,2,542,0,'83.46.69.148',1187016669,1,0,1,1,1,0,'','Transformar importes en letras','Hola amigos:\n\nAlguien me puede indicar como puedo transformar un importe en letras.\n\nes de cir que una variable con la cantidad 1500,00 me de otra con Mil Quinientos.\n\nGracias\n\nUn saludo\n\nCarlos','',0,'gA==','pf809h67',1,0,'',542,0,0),(36138,7846,2,53,0,'189.139.19.50',1187019129,1,0,1,1,1,1,'','','Guillermo:\n\nNo, no hay esa limitante, prueba cambiando la línea así:\n\nREDEFINE GET l_oGet VAR p_cArti ID 101 OF p_oDlg PICTURE \'@!@k\' VALID Chk_Pre1()\n\nSalaudos','',0,'gA==','310w9itg',1,0,'',53,0,0),(36139,7829,3,486,0,'200.184.85.3',1187020767,1,0,1,1,1,0,'','','ok, I go to make plus these tests...\n\nClemerson','',0,'gA==','2klwd3jc',1,0,'',486,0,0),(36140,7850,6,1078,0,'201.1.135.73',1187022055,1,0,1,1,1,0,'','harbour + twbrowse','Fazendo teste com o [b:2nnbbpbi]harbour[/b:2nnbbpbi] percebi que é mais rapido \nque o [b:2nnbbpbi]XHARBOUR[/b:2nnbbpbi]. \nGostaria de saber se alguem possui a TWBROWSE E HBZIP\npara [b:2nnbbpbi]HARBOUR[/b:2nnbbpbi] ?\n\n--------------------------------------\n	\nMaking test with [b:2nnbbpbi]harbour [/b:2nnbbpbi]I perceived that he is faster\nthat the XHARBOUR.\nIt would like to know if somebody possesss [b:2nnbbpbi]TWBROWSE[/b:2nnbbpbi] and HBZIP\nfor [b:2nnbbpbi]HARBOUR[/b:2nnbbpbi]?','',0,'QA==','2nnbbpbi',1,0,'',1078,0,0),(36141,7850,6,1106,0,'190.64.199.225',1187022542,1,0,1,1,1,0,'','','Luiz53:\n\nAquí en Utilidades esta twBrowse para Harbour.\nHbZip no se si esta.\n\nSaludos\n\nRuben Fernandez','',0,'QA==','1nus3tt4',1,0,'',1106,0,0),(36142,7848,19,138,0,'189.156.248.222',1187023180,1,0,1,1,1,1,'','','Es muy simple de usar:\n\n1) Lo instalas en tu equipo servidor y le asignas un puerto (usualmente el 80)\n\n2) Te vas a una terminal dentro de tu red, abres el navegador de internet y en la seccion de direcciones le pones la ip del equipo donde instalaste el WinASP. Te debe constestar con una pagina Web de bienvenida, eso quiere decir que estas conectado al servidor\n\n3) A partir de este punto todo es ASP puro y duro. Para las paginas web se utiliza la misma metodologia que ASP, para empezar tienes que programar tu mismo tus paginas, pero estas tienen que tener en vez de la extension .htm o html la extensión .asp.\n\n4) Dentro la pagina ASP tu vas a poder escribir tu codigo (x)Harbour dentro de la etiqueta &lt;% ... %&gt;, WinASP interpretara eso que tu escribiste y lo enviara como salida al navegador cliente.\n\n5) para llamar a una pagina ASP simplemente desde el navegador haces:\n\n<!-- m --><a class=\"postlink\" href=\"http://xxx.xxx.xxx.xxx/pagina.asp\">http://xxx.xxx.xxx.xxx/pagina.asp</a><!-- m -->\n\nY listo.\n\nTe recomiendo que para mas informacion mires algun manual de ASP para que entiendas la metodologia de trabajo de Active Server Pages, la programación no tiene complicación, es codigo (x)Harbour.','',0,'QA==','31j0ak97',1,0,'',138,0,0),(36143,7847,6,2,0,'87.218.146.127',1187023999,1,0,1,1,1,1,'','','Guillermo,\n\n&gt; 1.- Porque Harbour y xHarbour cual es la diferencia \n\nHarbour es el proyecto inicial, luego nació xharbour a partir de él, para dotarlo de nuevas extensiones que no tenía Clipper, pero poco a poco Harbour ha ido consolidando novedades que introdujo xHarbour.\n\nHoy en dia es cuestión de gustos. Lo idóneo es que uses extensiones de lenguaje propias de ambos para que asi puedas construir tu aplicación con los dos y asi decidas tu mismo cual prefieres.\n\n&gt; 2.- Porque en Microsoft y en Borland cual es la diferencia \n\nTanto Harbour como xHarbour generan un código intermedio (pcode) que ha de ser compilado con un compilador de lenguaje C. Puedes usar el de Borland ó el de Microsoft. Borland C es el más popular ya que es gratuito, pero hay quienes prefieren usar el compilador de C de Microsoft','',0,'QA==','2hvgtnsf',1,0,'',2,0,0),(36144,7830,3,2,0,'87.218.146.127',1187024124,1,0,1,1,1,1,'','','Dietmar,\n\nHere I run Vista as Administrator, please try it as Administrator to see if that makes a difference, thanks','',0,'QA==','3t20audv',1,0,'',2,0,0),(36145,7846,2,2,0,'87.218.146.127',1187024230,1,0,1,1,1,1,'','','Guillermo,\n\nUsa un GET y un botón \"Aceptar\"','',0,'QA==','21zr8ed5',1,0,'',2,0,0),(36146,7851,6,73,0,'200.23.18.132',1187024338,1,0,1,1,1,0,'','colores en splitter','en un dialogo desde recursos tengo un splitter, estoy buscando la forma de poder poner colores diferentes a cada lado del control splitter, hay alguna forma de hacerlo? todavia no le encuentro..\nsalu2\npaco','',0,'QA==','3tl5p1eo',1,0,'',73,0,0),(36147,7852,19,976,0,'80.224.223.18',1187026678,1,0,1,1,1,0,'','OT: Busco empleo en Zaragoza','Estimados amigos,\n\nEstoy buscando empleo en la ciudad de Zaragoza, en el campo relacionado a la Informática.\nTengo experiencia en Fivewin y xHarbour, así como administración de redes LAN/WAN y servidores. En total, tengo 15 años de experiencia en informática.\n\nLes estaré muy agradecido.\n\nSaludos,','',0,'QA==','3pyyoee0',1,0,'',976,0,0),(36148,7853,6,976,0,'80.224.223.18',1187026716,1,0,1,1,1,0,'','OT: Busco empleo en Zaragoza','Estimados amigos,\n\nEstoy buscando empleo en la ciudad de Zaragoza, en el campo relacionado a la Informática.\nTengo experiencia en Fivewin y xHarbour, así como administración de redes LAN/WAN y servidores. En total, tengo 15 años de experiencia en informática.\n\nLes estaré muy agradecido.\n\nSaludos,','',0,'QA==','uyvqx6gi',1,0,'',976,0,0),(36149,7849,2,935,0,'200.62.120.42',1187027289,1,0,1,1,1,1,'','usa lo siguiente','Usa la siguiente funcion :\n\n//====================================\nFUNCTION CONVERTIR(WNUMERO,FMONEDA)\n//====================================\n\n//Nota: wNumero es la cantidad en Numero a convertir\n//         fMoneda es el Tipo \"Dolares\",\"Euros\" etc.\n// El valor que devuelve es un texto\n\nIF WNUMERO &lt;= 0\n   FDESCRIP := \'VALOR 0 (NULO)\'\n   RETURN FDESCRIP\nENDIF\n\nPublic vd1[9],vd2[9],vd3[9],vd4[9]\n\nvd1[1] = \'UN\'\nvd1[2] = \'DOS\'\nvd1[3] = \'TRES\'\nvd1[4] = \'CUATRO\'\nvd1[5] = \'CINCO\'\nvd1[6] = \'SEIS\'\nvd1[7] = \'SIETE\'\nvd1[8] = \'OCHO\'\nvd1[9] = \'NUEVE\'\n\nvd2[1] = \'ONCE\'\nvd2[2] = \'DOCE\'\nvd2[3] = \'TRECE\'\nvd2[4] = \'CATORCE\'\nvd2[5] = \'QUINCE\'\nvd2[6] = \'DIECISEIS\'\nvd2[7] = \'DIECISIETE\'\nvd2[8] = \'DIECIOCHO\'\nvd2[9] = \'DIECINUEVE\'\n\nvd3[1] = \'DIEZ\'\nvd3[2] = \'VEINTE\'\nvd3[3] = \'TREINTA\'\nvd3[4] = \'CUARENTA\'\nvd3[5] = \'CINCUENTA\'\nvd3[6] = \'SESENTA\'\nvd3[7] = \'SETENTA\'\nvd3[8] = \'OCHENTA\'\nvd3[9] = \'NOVENTA\'\n\nvd4[1] = \'CIENTO\'\nvd4[2] = \'DOSCIENTOS\'\nvd4[3] = \'TRESCIENTOS\'\nvd4[4] = \'CUATROCIENTOS\'\nvd4[5] = \'QUINIENTOS\'\nvd4[6] = \'SEISCIENTOS\'\nvd4[7] = \'SETECIENTOS\'\nvd4[8] = \'OCHOCIENTOS\'\nvd4[9] = \'NOVECIENTOS\'\n\nF_CAR    = STR(WNUMERO,12,2)\nF_CENTAVO= SUBSTR(F_CAR,11,2)\nF_CIEN   = SUBSTR(F_CAR,7,3)\nF_MILES  = SUBSTR(F_CAR,4,3)\nF_MILLON = SUBSTR(F_CAR,1,3)\n\nfValor = f_millon\n\n\n\nd_Millon = dame_des(fvalor)\nIF LEN(ALLTRIM(d_Millon)) &gt; 0\n   IF VAL(FVALOR) = 1\n      d_Millon = d_millon +\' MILLON \'\n   ELSE\n      d_Millon = d_millon +\' MILLONES \'\n   ENDIF\n\nENDIF\n\nfValor = f_Miles\n\nd_Miles = dame_des(fvalor)\nIF LEN(ALLTRIM(d_Miles)) &gt; 0\n   d_Miles = d_Miles +\' MIL \'\nENDIF\n\nfValor = f_Cien\n\nd_Cien = dame_des(fvalor)\n*IF LEN(ALLTRIM(d_Cien)) &gt; 0\n\n*ENDIF\n\nDCENTAVO = \'\'\nIF VAL(F_Centavo) &gt; 0\n   DCENTAVO = F_CENTAVO+\'/100\'\nENDIF\n\n\nDo Case\n          **  1 1 1 **\n   Case Len(AllTrim(d_millon)) &gt; 0 .and. len(alltrim(d_miles)) &gt; 0 .and. len(alltrim(d_cien)) &gt; 0\n        fDetval = AllTrim(d_millon) +\' \'+ AllTrim(d_Miles)+\' \'+AllTrim(d_Cien)+\' \'+FMONEDA\n\n          **  0 1 1 **\n   Case Len(AllTrim(d_millon)) = 0 .and. len(alltrim(d_miles)) &gt; 0 .and. len(alltrim(d_cien)) &gt; 0\n        fDetval = AllTrim(d_Miles)+\' \'+AllTrim(d_Cien)+\' \'+FMONEDA\n\n          **  0 0 1 **\n   Case Len(AllTrim(d_millon)) = 0 .and. len(alltrim(d_miles)) = 0 .and. len(alltrim(d_cien)) &gt; 0\n        fDetval = AllTrim(d_Cien)+\' \'+FMONEDA\n\n          **  1 0 1 **\n   Case Len(AllTrim(d_millon)) &gt; 0 .and. len(alltrim(d_miles)) = 0 .and. len(alltrim(d_cien)) &gt; 0\n        fDetval = AllTrim(d_millon)+\' \'+AllTrim(d_Cien)+\' \'+FMONEDA\n\n          **  1 0 0 **\n   Case Len(AllTrim(d_millon)) &gt; 0 .and. len(alltrim(d_miles)) = 0 .and. len(alltrim(d_cien)) = 0\n        fDetval = AllTrim(d_millon)+\' \'+FMONEDA\n\n          **  1 1 0 **\n   Case Len(AllTrim(d_millon)) &gt; 0 .and. len(alltrim(d_miles)) &gt; 0 .and. len(alltrim(d_cien)) = 0\n        fDetval = AllTrim(d_millon) +\' \'+ AllTrim(d_Miles)+\' \'+FMONEDA\n\n          **  0 1 0 **\n   Case Len(AllTrim(d_millon)) = 0 .and. len(alltrim(d_miles)) &gt; 0 .and. len(alltrim(d_cien)) = 0\n        fDetval = AllTrim(d_Miles)+\' \'+FMONEDA\n\nEndCase\n\nIf Len(AllTrim(dCentavo)) &gt; 0\n   fDetVal = fDetVal + \' CON \' + dCentavo\nElse\n   fDetVal = fDetVal + \' NETOS\'\nEndif\n\n*@ 15,1 SAY FDETVAL\n\nReturn FDETVAL\n\n\nFUNCTION DAME_DES\nPARAMETER FVALSTR\n\nPRIMER    = VAL(SUBSTR(FVALSTR,1,1))\nSEG_Y_TER = VAL(SUBSTR(FVALSTR,2,2))\nSEGUNDO   = VAL(SUBSTR(FVALSTR,2,1))\nTERCER    = VAL(SUBSTR(FVALSTR,3,1))\n\nFDESCRIP =\' \'\n\nIF PRIMER &gt; 0\n   IF SEG_Y_TER = 0 .AND. PRIMER = 1\n      FDESCRIP = FDESCRIP+\'CIEN\'\n   ELSE\n      FDESCRIP = FDESCRIP+ VD4[PRIMER]\n   ENDIF\n\nENDIF\n\nIF SEG_Y_TER &gt; 10 .AND. SEG_Y_TER &lt; 20\n   FDESCRIP = FDESCRIP+\' \'+VD2[TERCER]\nELSE\n   IF SEGUNDO &gt; 0\n      FDESCRIP = FDESCRIP+\' \'+VD3[SEGUNDO]\n   ENDIF\n   IF TERCER &gt; 0\n      IF SEGUNDO &gt; 0\n         FDESCRIP = FDESCRIP+\' Y \'+VD1[TERCER]\n      ELSE\n         FDESCRIP = FDESCRIP+\' \'+VD1[TERCER]\n      ENDIF\n   ENDIF\nENDIF\n\nRETURN FDESCRIP\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'','2e3xjcef',1,0,'',935,0,0),(36150,7854,6,300,0,'201.2.71.20',1187027583,1,0,1,1,1,0,'','Radiobutton','Olá qual método usar en lo radio para que mire en uno get, tengo 1 radio con 3 opciones ao clicar gostaria de envialo ao seu get.\n\nGracias.','',0,'','2db86si3',1,0,'',300,0,0),(36151,7854,6,300,0,'201.2.71.20',1187028005,1,0,1,1,1,0,'','Re: Radiobutton','[quote=&quot;Wanderson&quot;:2ao1vldo]Olá qual método usar en lo radio para que mire en uno get, tengo 1 radio con 3 opciones ao clicar gostaria de envialo ao seu get.\n\nGracias.[/quote:2ao1vldo]\n\njejeje lo encontre, on change.\n\nSalu2','',0,'gA==','2ao1vldo',1,0,'',300,0,0),(36152,7830,3,162,0,'62.47.177.62',1187029908,1,0,1,1,1,0,'','','It does not make a difference.\nI tried on a PC with WindowsXP in a different environment - same result.\nI built the sample with xHB RC16 and FWH 7.05\n\nOn my vistaPCs its only me with all the rights possible.\n\nMust be something else...','',0,'gA==','ewgvravp',1,0,'',162,0,0),(36153,7832,6,349,0,'189.165.14.15',1187033101,1,0,1,1,1,0,'','Gracias Rene ....','Buen dia a Todos.\n\nla solucion es cambiar de TFOLDER a SysTabControl32\n\neso es todo y puede seguir con WS.\n\nGracias a RF.\n\nSaludos y Gracias .....','',0,'gA==','262oc6ao',1,0,'',349,0,0),(36154,6480,6,73,0,'200.23.18.132',1187039333,1,0,1,1,1,0,'','','Que tal Marco,\n\nAqui molestando, ya descargue rmchart completo, pero estuve viendo la documentacion, datas, metodos, pero no he llegado a echarla a volar, como ya empiezo con graficas, pues me gustaria probarla, pudieras pasarme un trozo del codigo como lo usas con activex u ocx y como se le ponen los datos, para ver como se usa y configura, ya con eso me sirve para darme idea y ver todos sus metodos y avanzarle mas.\ngracias\nPaco','',0,'gA==','2blsivcd',1,0,'',73,0,0),(36155,7855,6,1024,0,'201.228.131.58',1187039446,1,0,1,1,1,1,'','Clase Tword y TExcelScript Recientes','Alguien me puede facilitar las versiones mas recientes de las Clases Tword y TexcelScript para xHarbour.\n\nMil Gracias.','',0,'gA==','5iqr9pg2',1,0,'',1024,0,0),(36156,7844,6,1055,0,'84.125.133.194',1187043508,1,0,1,1,1,0,'','','Yo utilizo una pequeña funcion:\n\n[b:2d7131qe]FUNCTION NoScape()\nRETURN !( GetKeyStat( 27 ) )[/b:2d7131qe]\n\nLa aplico así\n\nACTIVATE DIALOG oDlg VALID [b:2d7131qe]NoScape()[/b:2d7131qe]\n\nó si necesito otra validación\n\nACTIVATE DIALOG oDlg VALID IF([b:2d7131qe]NoScape()[/b:2d7131qe], &lt;VALIDACION&gt; ,.F.)\n\nó en una funcion:\n\nACTIVATE DIALOG oDlg VALID FuncionValidacion(...)\n\nFUNCTION FuncionValidacion(...)\nLOCAL lRet := [b:2d7131qe]NoScape()[/b:2d7131qe]\nIF lRet\n...\n...\nlRet := .T. ó .F.\n...\n...\nENDIF\nRETRUN lRet\n\nMe va muy bien\n\nSaludos','',0,'QA==','2d7131qe',1,0,'',1055,0,0),(36157,7830,3,2,0,'87.218.146.127',1187044379,1,0,1,1,1,1,'','','Dietmar,\n\nI email you my EXE built using FWH 7.07 and Borland. Please try it there, thanks','',0,'QA==','30ie4mr6',1,1187078929,'',2,1,0),(36158,7830,3,303,0,'72.199.41.171',1187046410,1,0,1,1,1,0,'','','I am getting the message \"oFTP:hFTP is null\" here too (actually oFTP:hFTP is equal to zero). I am using FWH 7.05, Borland, and XP Pro SP2. I have administrator rights.\n\nJames','',0,'QA==','147w3m2v',1,0,'',303,0,0),(36159,6186,3,303,0,'72.199.41.171',1187046852,1,0,1,1,1,0,'','','&gt;some one know where can i take this tool? \n\nSent to your email address.\n\nJames','',0,'QA==','1ey026sd',1,0,'',303,0,0),(36160,7856,6,18,0,'201.141.19.59',1187065848,1,0,1,1,1,1,'','OT : KeyScan Access','Estimados colegas :\n\nAlguien tiene experiencia en la lectura de datos de KeyScan.\n\nNecesito leer los registros de las tarjetas que usa KeyScan.\n\nSaludos.','',0,'QA==','1xu0fjf9',1,0,'',18,0,0),(36161,7833,3,161,0,'213.119.247.77',1187071102,1,0,1,1,1,0,'','','Antonio\n\nEverything is working fine but I have a question using \'hdc = GetDC( 0 )\' with CreateEnhMetaFile(hdc,\'tmp.emf\',\'testje\').\nUsing this, the dimentions of the meta-file is the same as the screen resolution. Is it possible to have a bigger meta-file. My program is creating drawings, and somethimes they are bigger than the screen resolution, and with the 16bit version, the meta file was bigger then the screen.  I used the scroll-bars to show the rest.\n\nThanks,\nMarc','',0,'QA==','3lklf4zg',1,0,'',161,0,0),(36162,7830,3,162,0,'62.47.177.233',1187074256,1,0,1,1,1,0,'','','Antonio,\n\nyour exe is working here as well!\nany idea how to solve the problem?\n\nThank,\nDietmar','',0,'QA==','o9hi1v9b',1,0,'',162,0,0),(36163,7830,3,2,0,'87.218.146.127',1187079049,1,0,1,1,1,1,'','','James,\n\nPlease try it with FWH 7.07, thanks','',0,'QA==','2qkzoa7b',1,0,'',2,0,0),(36164,7857,7,527,0,'81.44.14.172',1187079519,1,0,1,1,1,0,'','Como puedo borrar un archivo de la pokect','Como puedo borrar un archivo de la pokect','',0,'QA==','evwz9p0s',1,0,'',527,0,0),(36165,7830,3,2,0,'87.218.146.127',1187080795,1,0,1,1,1,1,'','','Dietmar,\n\nSolved. Try it this way:\n[code:1r76847a]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41; \n\nlocal oInternet &#58;= TInternet&#40;&#41;&#58;New&#40;&#41; \nlocal oFTP &#58;= TFTP&#40;&#41;&#58;New&#40; &quot;ftp&#46;microsoft&#46;com&quot;, oInternet &#41; \nlocal aFiles \n\nif ! Empty&#40; oFTP&#58;hFTP &#41; \naFiles = oFTP&#58;Directory&#40; &quot;*&#46;*&quot; &#41; \nAEval&#40; aFiles, &#123; | aFile | MsgInfo&#40; aFile&#91; 1 &#93; &#41; &#125; &#41; \nelse \nMsgAlert&#40; &quot;oFTP&#58;hFTP is null&quot; &#41; \nendif \n\noInternet&#58;End&#40;&#41; \n\nMsgInfo&#40; &quot;Done!&quot; &#41; \n\nreturn nil\n\nDLL32 FUNCTION InternetOpen&#40; cApp as LPSTR, n1 AS DWORD, n2 AS LPSTR, n3 AS LPSTR,;\n                             n4 AS DWORD &#41; AS LONG PASCAL ;\n                             FROM &quot;InternetOpenA&quot; LIB &quot;wininet&#46;dll&quot;\n[/code:1r76847a]','',0,'AIA=','1r76847a',1,0,'',2,0,0),(36166,7833,3,2,0,'87.218.146.127',1187081073,1,0,1,1,1,1,'','','Marc,\n\nYou need to provide a bigger hDC. You could create a \"bigger\" window and get its hDC:\n\nDEFINE WINDOW oWnd SIZE 4000, 2000\n\nhDC = GetDC( oWnd:hWnd )\n... your code\nReleaseDC( oWnd:hWnd, hDC )\n\noWnd:End()','',0,'AIA=','2rmma6yi',1,0,'',2,0,0),(36167,7857,7,2,0,'87.218.146.127',1187081457,1,0,1,1,1,1,'','','FErase( cPath + \"\\\" + cNombreFichero )\n\nEjemplo:\n\nFErase( CurDir() + \"\\error.log\" )','',0,'AIA=','1e3brfxw',1,0,'',2,0,0),(36168,7851,6,2,0,'87.218.146.127',1187081536,1,0,1,1,1,1,'','','Paco,\n\nUsas temas de XP en el diálogo ?','',0,'AIA=','20brgfe4',1,0,'',2,0,0),(36169,7830,3,162,0,'62.47.177.233',1187084532,1,0,1,1,1,0,'','','now it\' working fine! \n\nmany thanks!','',0,'AIA=','32x91486',1,0,'',162,0,0),(36170,7830,3,2,0,'87.218.146.127',1187085016,1,0,1,1,1,1,'','','glad to know its fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2de3ma5j',1,0,'',2,0,0),(36171,7833,3,161,0,'213.119.247.77',1187085487,1,0,1,1,1,0,'','','Thanks,\n\nI will try it.\n\nRegards,\nMarc','',0,'AIA=','3ig5zs8r',1,0,'',161,0,0),(36172,7858,3,161,0,'213.119.247.77',1187085633,1,0,1,1,1,0,'','String problem','Hi,\n\nDoes enyone know why I get twice the same result.\n\n[code:22c1cm2q]FUNCTION test&#40;&#41;\n   local cValue &#58;= Space&#40; 256 &#41;\n   GetEnvironmentVariable&#40; &quot;USERPROFILE&quot;, cValue, Len&#40; cValue &#41; &#41;\n   cValue=alltrim&#40;cValue&#41;\n   MsgInfo&#40;cValue&#41;\n   cValue+=\'\\Test\'\n   MsgInfo&#40;cValue&#41;\nRETURN\n[/code:22c1cm2q]\n\nThanks,\nMarc','',0,'AIA=','22c1cm2q',1,0,'',161,0,0),(36173,7833,3,161,0,'213.119.247.77',1187086769,1,0,1,1,1,0,'','','Antonio,\n\nI doesn\'t work.\nThe size of the emf-file is still the same...\n\nHere is my testcode\n[code:oopwxahp]FUNCTION test&#40;&#41;\n   local hPEN &#58;= CreatePen&#40; 0 , 1, 0 &#41;\n   local w &#58;= getsysmetrics&#40;0&#41; - 10\n   local h &#58;= getsysmetrics&#40;1&#41; - 68\n   nZFactor = 1\n\n   DEFINE WINDOW sWnd FROM 0,0 TO 4000,4000 TITLE \'Test\' VSCROLL HSCROLL\n   hdc = GetDC&#40; 0 &#41;\n   hDCOut &#58;= CreateEnhMetaFile&#40;hdc,\'tmp&#46;emf\',\'testje\'&#41;\n\n   MoveTo&#40; hDCOut, 0        , 0 &#41;\n   LineTo&#40; hDCOut, 0        ,h      , hPen&#41;\n\n   LineTo&#40; hDCOut, w     ,   h    , hPen&#41;\n   LineTo&#40; hDCOut, w     ,   0    , hPen&#41;\n   LineTo&#40; hDCOut, 0     ,   0    , hPen&#41;\n   LineTo&#40; hDCOut, w     ,   h    , hPen&#41;\n   LineTo&#40; hDCOut, w     ,   0    , hPen&#41;\n   LineTo&#40; hDCOut, 0     ,   h    , hPen&#41;\n\n   CloseEnhMetaFile&#40; hDCOut &#41;\n   ReleaseDC&#40; 0, hdc &#41;\n\n   oMeta &#58;= TMetaFile&#40;&#41;&#58;New&#40; 38, 0, w, h,\'tmp&#46;emf\',sWnd,CLR_BLACK,CLR_WHITE,h,w &#41;\n\n   ACTIVATE WINDOW sWnd MAXIMIZED ;\n   VALID &#40; sWndOpen &#58;= &#46;f&#46; , &#46;t&#46;&#41;\n\nRETURN nil\n\n[/code:oopwxahp]\nRegards,\nMarc','',0,'AIA=','oopwxahp',1,0,'',161,0,0),(36174,7830,3,162,0,'62.47.177.233',1187087339,1,0,1,1,1,0,'','','Sorry, but now I have another problem:\n\nI need to read the file name and put it in a text file using:\n\n[code:2jp0cti8]oText &#58;= TTxtFile&#40;&#41;&#58;New&#40; datei &#41;\n\nFOR x = 1 to len&#40;aSpringer&#41;\n   oText&#58;Add&#40;aSpringer&#91;x,1&#93;&#41;\nNEXT[/code:2jp0cti8]\n\nthat\' s the result:\n\nJBl_E-2006-643-647-VfGH.pdf ÿÿÿÿ                                    ¸ò ˜ò œò ´ò    ,    ò à“\" ø“\"    è               ØÝ  ØÝ  I   \"  \"\\à  P‘ @}   N N  EEEE    T    R  O    O  N  N N  I  C       SS\n\n230-N   NN  E       T    R   O  O   N   NN  I   C\nJBl_E-2006-647-649-OGH.pdf  i o n   D y n a m i c   F a l s e ]   3 \' &amp;Uà ›\nw™­Þ™                                                \n                                         T R U S       C : \\ P                                  ewt’ t’            \nJBl_E-2006-649-653-OGH.pdf 7-144-Novÿ ûDî  Ä  P‘   09:10AM                83386 JBl-2000-145-151-Winkler.pdf\n05-02-07  09:10AM               123366 JBl-2000-152-161-Taupitz.pdf\n05-02-07  09:10AM               153878 JBl-2000-16-30-Schima.pdf\n05-02-07  09\n\nI found some posts about this extra informations, but no solution...\nDietmar','',0,'AIA=','2jp0cti8',1,0,'',162,0,0),(36175,7830,3,2,0,'87.218.146.253',1187088588,1,0,1,1,1,1,'','','Dietmar,\n\nTry this:\n[code:3qg2750t]\noText &#58;= TTxtFile&#40;&#41;&#58;New&#40; datei &#41; \n\nFOR x = 1 to len&#40;aSpringer&#41; \n   oText&#58;Add&#40;SubStr&#40; aSpringer&#91;x,1&#93;, 1, At&#40; &quot;&#46;&quot;, aSpringer&#91;x,1&#93; &#41; + 3 &#41; &#41; \nNEXT\n[/code:3qg2750t]','',0,'AIA=','3qg2750t',1,0,'',2,0,0),(36176,7833,3,2,0,'87.218.146.253',1187088714,1,0,1,1,1,1,'','','Marc,\n\nThere are some errors in your code. Please try this:\n[code:1n9me4sh]\nFUNCTION test&#40;&#41; \n   local hPEN &#58;= CreatePen&#40; 0 , 1, 0 &#41; \n   local w &#58;= getsysmetrics&#40;0&#41; - 10 \n   local h &#58;= getsysmetrics&#40;1&#41; - 68 \n   nZFactor = 1 \n\n   DEFINE WINDOW sWnd FROM 0,0 TO 4000,4000 TITLE \'Test\' VSCROLL HSCROLL \n   hdc = GetDC&#40; sWnd&#58;hWnd &#41; \n   hDCOut &#58;= CreateEnhMetaFile&#40;hdc,\'tmp&#46;emf\',\'testje\'&#41; \n\n   MoveTo&#40; hDCOut, 0        , 0 &#41; \n   LineTo&#40; hDCOut, 0        ,h      , hPen&#41; \n\n   LineTo&#40; hDCOut, w     ,   h    , hPen&#41; \n   LineTo&#40; hDCOut, w     ,   0    , hPen&#41; \n   LineTo&#40; hDCOut, 0     ,   0    , hPen&#41; \n   LineTo&#40; hDCOut, w     ,   h    , hPen&#41; \n   LineTo&#40; hDCOut, w     ,   0    , hPen&#41; \n   LineTo&#40; hDCOut, 0     ,   h    , hPen&#41; \n\n   CloseEnhMetaFile&#40; hDCOut &#41; \n   ReleaseDC&#40; sWnd&#58;hWnd, hdc &#41; \n\n   oMeta &#58;= TMetaFile&#40;&#41;&#58;New&#40; 38, 0, w, h,\'tmp&#46;emf\',sWnd,CLR_BLACK,CLR_WHITE,h,w &#41; \n\n   ACTIVATE WINDOW sWnd MAXIMIZED ; \n   VALID &#40; sWndOpen &#58;= &#46;f&#46; , &#46;t&#46;&#41; \n\nRETURN nil \n[/code:1n9me4sh]','',0,'AIA=','1n9me4sh',1,0,'',2,0,0),(36177,7858,3,2,0,'87.218.146.253',1187088868,1,0,1,1,1,1,'','','Marc,\n\nDo it this way:\n[code:23m7zg4j]\nFUNCTION test&#40;&#41; \n   local cValue &#58;= GetEnv&#40; &quot;USERPROFILE&quot; &#41;\n   cValue+=\'\\Test\' \n   MsgInfo&#40;cValue&#41; \nRETURN \n[/code:23m7zg4j]','',0,'AIA=','23m7zg4j',1,0,'',2,0,0),(36178,6205,3,92,0,'80.33.140.85',1187090885,1,0,1,1,1,0,'','Re: WinAsp spanish documentation','Dear Jorge,\n\nNo encuentro documentación en <!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl/download.htm\">http://www.htcsoft.cl/download.htm</a><!-- m -->.\n\nHace tiempo tuve información de WinAsp, pero ahora no la encuentro; me la puedes enviar?\n\nSaludos\nCarlos G.\n\n\n[quote=&quot;jmason&quot;:20nvkazd]Dear friends,\n\nI put spanish documentation on\n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl/download.htm\">http://www.htcsoft.cl/download.htm</a><!-- m -->\n\nRegards\nJorge Mason[/quote:20nvkazd]','',0,'gA==','20nvkazd',1,0,'',92,0,0),(36179,7859,6,1106,0,'190.64.205.163',1187093266,1,0,1,1,1,0,'','Necesito documentacion Winasp.','Amigos:\n\nTrate de bajar la ayuda de Winasp pero ya no esta disponible.\nAlguien que la tenga puede enviármela.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','zf7v3pry',1,0,'',1106,0,0),(36180,7833,3,161,0,'213.119.247.77',1187093269,1,0,1,1,1,0,'','','Antonio,\n\nIt\'s the same result... \nThe size is the same as the screen.\n\nRegards,\nMarc','',0,'gA==','3ajup10h',1,0,'',161,0,0),(36181,7858,3,161,0,'213.119.247.77',1187093562,1,0,1,1,1,0,'','','Thanks Antonio, it\'s working fine now.\n\nRegards,\nMarc','',0,'gA==','2ajdgv8f',1,0,'',161,0,0),(36182,7830,3,162,0,'62.47.177.233',1187095378,1,0,1,1,1,0,'','','As long as there are no subdirectories I\'m getting a clean result with this code.\n\nThanks again,\nDietmar','',0,'gA==','2m07fxq9',1,0,'',162,0,0),(36183,7860,3,716,0,'201.13.153.70',1187098529,1,0,1,1,1,0,'','MYSQL via ADO','I am having problems in the hour to make update of a register when I do not modify nothing, but if I modify something functions without problems, another problem is when I recoup the content of a field of the data base, therefore it dimenciona variavel for the size of the content and not for the size defined in the data base, follows below the PRG\n\n#include \"FiveWin.ch\"\n#include \"TSButton.ch\"\n#include \"Report.ch\"\n#include \"InKey.ch\"\n#include \"winapi.ch\"\n#Include \"Struct.Ch\"\n\nFUNCTION Main()\n\nPUBLIC oFontSay\nPUBLIC oFontSayB\nPUBLIC oFontGet\nPUBLIC oFontBut\nPUBLIC oFontTit\nPUBLIC oFontChk\nPUBLIC oFontLis\nPUBLIC oBrushTela\nPUBLIC USER\nPUBLIC ACESSO\nPUBLIC CODIGO\nPUBLIC CONEXAO\nPUBLIC TABELA\n\nMFONTES()\n\nSET TALK OFF\nSET DATE FRENCH\nSET BELL OFF\nSET STAT OFF\nSET SCORE OFF\nSET WRAP ON\nSET CURSOR OFF\nSET DELETED ON\nSET EPOCH TO 2000\nSET DECIMAL TO 2\nSET CENTURY ON\nSET EXCLUSIVE OFF\nSETHANDLECOUNT(250)\nCONTINUAR=.F.\nORDLIST=0\n\nDEFINE BRUSH oBrush COLOR nRGB(255,255,255)\nDEFINE ICON oIcon FILE \"WORKER.ICO\"\n\nDEFINE WINDOW oWnd FROM 0,40 to 40,120 TITLE \"Administração de Clientes e Contatos\";\nBRUSH oBrush;\nICON oIcon;\n\n@ 65,30 SBUTTON PIXELS PROMPT \"&amp;Entrar\" TEXT ON_CENTER NOBOX FILE \"OFF.FIG\",\"ON.FIG\" ADJUST FONT oFontbut OF oWnd SIZE 40,12 ACTION (ListMunicipios())\n\nSET MESSAGE OF oWnd to \"EXATUS.NET\" CENTERED\noItem := TMsgItem():New( oWnd:oMsgBar, dtoc(date()), 80,oFontsay,\"R/W\",,.T. )\noItem := TMsgItem():New( oWnd:oMsgBar, Alltrim(user), 80,oFontsay,\"R/W\",,.T. )\noItem := TMsgItem():New( oWnd:oMsgBar, \"Versão: 11/05/2007\", 140,oFontsay,\"R/W\",,.T. )\n\nWNDCENTER( oWnd:hWnd )\nACTIVATE WINDOW oWnd\nSysRefresh()\nRETURN NIL\n\nPROCEDURE MFONTES()\nDEFINE FONT oFontsay  NAME \"Verdana\" SIZE 0,-11\nDEFINE FONT oFontsayB NAME \"Verdana\" SIZE 0,-10 BOLD\nDEFINE FONT oFontGet  NAME \"Verdana\" SIZE 0,-9\nDEFINE FONT oFontBut  NAME \"Verdana\" SIZE 0,-11\nDEFINE FONT oFontTit  NAME \"Verdana\" SIZE 0,-11\nDEFINE FONT oFontChk  NAME \"Verdana\" SIZE 0,-11\nDEFINE FONT oFontLis  NAME \"Verdana\" SIZE 0,-9\nDEFINE BRUSH oBrushTela COLOR nRGB(236,233,216)\nRETURN\n\nPROCEDURE AbreConexao()\nTry\n  Conexao:=CreateObject(\"ADODB.Connection\")\n  Conexao:Open(\"driver=MySQL ODBC 3.51 Driver;server=localhost;uid=Teste;pwd=teste;database=clientsexatus\")\nCatch e\n  MsgStop(\"Operacao: \"+E:operation+\" - \"+\"Descrição: \"+E:Description+chr(10))\nEnd\nTry\n  Tabela:=CreateObject(\"ADODB.Recordset\")\n  Tabela:ActiveConnection = Conexao\nCatch e\n  MsgStop(\"Operacao: \"+E:operation+\" - \"+\"Descrição: \"+E:Description+chr(10))\nEnd\nRETURN\n\nPROCEDURE FechaConexao()\nTry\n  IF Tabela:State()&lt;&gt;0\n    Tabela:Close()\n  ENDIF\nCatch e\n  MsgStop(\"Operacao: \"+E:operation+\" - \"+\"Descrição: \"+E:Description+chr(10))\nEnd\nTry\n  IF Conexao:State()&lt;&gt;0\n    Conexao:Close()\n  ENDIF\nCatch e\n  MsgStop(\"Operacao: \"+E:operation+\" - \"+\"Descrição: \"+E:Description+chr(10))\nEnd\nRETURN\n\nFUNCTION Browse(aq, cTitle, cListName, bNew, bModify, bDelete, bSearch, bList, bEdit )\nLOCAL oDlg, oFont, oBrush\nLOCAL btnNew, btnModify, btnDelete, btnSearch, btnList, btnEnd\nLOCAL n,BORDEM\nLOCAL CONTINUA:=.T.\nLOCAL oReg,nReg\nPUBLIC AQS\nPUBLIC oLbx\nAQS=AQ\nMFONTES()\n\nDEFAULT cTitle  := \"Browse\", cListName := \"Registros\",;\n           bDelete := {|| oLbx:Setfocus()},;\n           bList   := {|| oLbx:Setfocus()},BEDIT:=.F.\n\nDEFINE DIALOG oDlg FROM 1, 5 TO 27, 79 TITLE cTitle FONT oFontTit BRUSH oBrushTela STYLE WS_CAPTION\n\n@ 0.2,1.4  SAY \"Total de Registros: \" FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 58,7\n@ 0.2,11 SAY oReg VAR nReg FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 216,7\n\nIF AQ=1\n   nReg=STR(Tabela:RecordCount(),10)\n   oReg:Refresh()\n   Tabela:MoveLast()\n   FOR I=1 TO 16\n     IF !Tabela:BOF()\n       Tabela:Move(-1)\n     ENDIF\n   NEXT I\n   @ 1,1 LISTBOX oLbx FIELDS STR(Tabela:Fields(\"codigo\"):Value,10),Tabela:Fields(\"uf\"):Value,Tabela:Fields(\"municipio\"):Value ;\n                     HEADERS \"Código\",\"UF\",\"Municipio\" SIZE 275,137 OF oDlg\n\n   oLbx:aColSizes :={60,100,200}\n   oLbx:aJustify  :={.T.,.F.,.F.}\nENDIF\noLbx:nLineStyle   :=3\noLbx:nClrBackFocus:=RGB(227,255,104)\noLbx:nClrForeFocus:=RGB(0,0,0)\noLbx:nClrPane     :={|| IIF((oLbx:cAlias)-&gt;(ordlist())%2==0,nRGB(240,255,255),nRGB(230,230,230))}\noLbx:bLogicLen    :={|| Tabela:RecordCount}\noLbx:bGoTop       :={|| Tabela:MoveFirst()}\noLbx:bGoBottom    :={|| Tabela:MoveLast()}\noLbx:bSkip        :={| nSkip | Skipper(Tabela,nSkip)}\n\n@ 156,027 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontBut COLOR 0,nRGB(255,255,255) PROMPT \"&amp;Inclui\"   btnNew    FILE \"INCLUI.FIG\"  SIZE 35,35 OF oDlg\n@ 156,067 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT \"&amp;Altera\"   btnModify FILE \"ALTERA.FIG\"  SIZE 35,35 OF oDlg\n@ 156,107 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT \"&amp;Exclui\"   btnDelete FILE \"EXCLUI.FIG\"  SIZE 35,35 OF oDlg\n@ 156,147 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT \"&amp;Procura\"  btnSearch FILE \"PROC.FIG\"    SIZE 35,35 OF oDlg\n@ 156,187 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT \"I&amp;mprimir\" btnList   FILE \"IMPRIME.FIG\" SIZE 35,35 OF oDlg\n@ 156,227 SBUTTON PIXELS TEXT ON_BOTTOM FONT oFontbut COLOR 0,nRGB(255,255,255) PROMPT \"&amp;Sair\"     btnEnd    FILE \"SAIR1.FIG\"   SIZE 35,35 OF oDlg\n\nbtnNew:bAction    = If(bNew    != nil,{|| Eval(bNew)   ,oLbx:Refresh(),oLbx:SetFocus()},)\nbtnModify:bAction = If(bModify != nil,{|| Eval(bModify),oLbx:Refresh(),oLbx:SetFocus()},)\nbtnDelete:bAction = If(bDelete != nil,{|| Eval(bDelete),oLbx:Refresh(),oLbx:SetFocus()},)\nbtnSearch:bAction = If(bSearch != nil,{|| Eval(bSearch),oLbx:Refresh(),oLbx:SetFocus()},)\nbtnList:bAction   = If(bList   != nil,{|| Eval(bList)  ,oLbx:Refresh(),oLbx:SetFocus()},)\nbtnEnd:bAction    = {||oDlg:End(),SysRefresh()}\n\nodlg:lhelpicon:=.f.\nACTIVATE DIALOG oDlg CENTERED\nConexao:Execute(\"Commit\")\nFechaConexao()\nRETURN NIL\n\nSTATIC FUNCTION SKIPPER(oRsx,nSkip)\nLOCAL nRec := oRsx:AbsolutePosition\noRsx:Move(nSkip)\nIF oRsx:EOF; oRsx:MovePrevious(); ENDIF\nIF oRsx:BOF; oRsx:MoveNext(); ENDIF\nRETURN(oRsx:AbsolutePosition() - nRec)\n\nFUNCTION ORDLIST()\nIF ORDLIST=0\n  ORDLIST=1\n  RETURN 1\n  ELSE\n  ORDLIST=0\n  RETURN 2\nENDIF\nRETURN 1\n\nFUNCTION ListMunicipios()\nMFONTES()\nAbreConexao()\nTabela:CursorType     = 1\nTabela:CursorLocation = 3\nTabela:LockType       = 2\nMSGRUN(\"Aguarde - Carregando Dados\",\"Aguarde...\",{||Tabela:Open(\"SELECT codigo,uf,municipio FROM uf USE INDEX(uf) ORDER BY uf\")})\nBrowse(1,\"Lista de Municipios\",\"Lista de Municipios\",{||NewMunicipios(\"I\")},{||NewMunicipios(\"A\")},{||EraseMunicipios(Tabela:Fields(\"codigo\"):Value)})\nSysRefresh()\nRETURN\n\nFUNCTION NewMunicipios(tipo)\nPUBLIC codigo,uf,municipio\n\nIF tipo=\"A\"\n   codigo=Tabela:Fields(\"codigo\"):Value\n   uf=ESPANTES(Tabela:Fields(\"uf\"):Value,Tabela:Fields(\"municipio\"):DefinedSize)\n   municipio:=ESPANTES(Tabela:Fields(\"municipio\"):Value,Tabela:Fields(\"municipio\"):DefinedSize)\nENDIF\nIF tipo=\"I\"\n   codigo=0\n   uf=SPACE(2)\n   municipio=SPACE(30)\nENDIF\n\nDEFINE DIALOG oDlg FROM 1,1 TO 12,39 TITLE \"Cadastro de UF/Municipio\" FONT oFontTit BRUSH oBrushTela STYLE WS_CAPTION\n@ 0.35,0.35 SAY \" \" RAISED BOX COLOR CLR_BLACK,nRGB(248,248,248) SIZE 148,50 OF oDlg\n@ 0.9,2 SAY \"Código\"    FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 25,10\n@ 1.8,2 SAY \"UF\"        FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 25,10\n@ 2.7,2 SAY \"Municipio\" FONT oFontsay COLOR CLR_BLACK,nRGB(248,248,248) SIZE 40,10\n\n@ 1.0,5 GET codigo    FONT oFontGet size 30,11\n@ 2.0,5 GET uf        FONT oFontGet size 20,11\n@ 3.0,5 GET municipio FONT oFontGet size 100,11\n\n@ 65,30 SBUTTON PIXELS PROMPT \"&amp;Confirma\"  TEXT ON_CENTER NOBOX FILE \"OFF.FIG\",\"ON.FIG\" ADJUST FONT oFontbut OF oDlg SIZE 40,12 ACTION (SaveMunicipios(tipo),oLbx:Refresh(),oDlg:End()) DEFAULT\n@ 65,85 SBUTTON PIXELS PROMPT \"C&amp;ancela\"   TEXT ON_CENTER NOBOX FILE \"OFF.FIG\",\"ON.FIG\" ADJUST FONT oFontbut OF oDlg SIZE 40,12 ACTION (oDlg:End())\nodlg:lhelpicon:=.f.\nACTIVATE DIALOG oDlg CENTERED\nRETURN NIL\n\nFUNCTION SaveMunicipios(tipo)\n IF tipo=\"A\"\n       Tabela:Fields(\"uf\"):Value:=ALLTRIM(uf)\n       Tabela:Fields(\"municipio\"):Value:=ALLTRIM(municipio)\n       Tabela:Update()\n ENDIF\n IF tipo=\"I\"\n    Tabela:AddNew()\n    Tabela:Fields(\"uf\"):Value:=ALLTRIM(uf)\n    Tabela:Fields(\"municipio\"):Value:=ALLTRIM(municipio)\n    Tabela:Update()\n ENDIF\nRETURN NIL\n\nFUNCTION EraseMunicipios(cod)\nIF MSGYESNO( \"Deseja Excluir este Registro ?\",\"AVISO DE EXCLUSÃO\")\n   Tabela:Delete()\n   Tabela:UpdateBatch()\n   Tabela:MoveNext()\n   IF Tabela:EOF; Tabela:MovePrevious(); ENDIF\nENDIF\nRETURN NIL\n\nprocedure espantes(VARIAVEL,TAMANHO)\nRETURN ALLTRIM(VARIAVEL)+SPACE(TAMANHO-LEN(ALLTRIM(VARIAVEL)))\n\n\n\nWhat it can be wrong?','',0,'gA==','3e9qqs9i',1,0,'',716,0,0),(36184,7861,6,147,0,'200.45.54.134',1187099535,1,0,1,0,1,1,'','Interfas gráfica','Hola gente:\nEstoy buscando un reloj, tipo el de güindows. Hay sabe de alguno?\n\nsaludos, gracias','',0,'gA==','dyobsmc8',1,0,'',147,0,0),(36185,7851,6,73,0,'200.23.18.132',1187100601,1,0,1,1,1,0,'','','no uso temas, tengo la posibilidad de hacerlo pero no los uso, existe alguna no compatibilidad con los temas?\nsalu2\npaco','',0,'gA==','1r34inj3',1,0,'',73,0,0),(36186,7797,2,1095,0,'80.224.1.78',1187101066,1,0,1,1,1,0,'','','Hola, \n\nPara imprimir en una impresora Zebra tienes que utilizar comandos ( todos acaban en Chr(13) + Chr(10) ):\n\n* Lenguaje EPL2\nChr(27) + \"EPL2\" + Chr(13) + Chr(10)\n \n* Limpiar el buffer de imagen\n\"N\" + Chr(13) + Chr(10)\n \n* Punto de referencia de las coordenadas\n\"R0,0\" + Chr(13) + Chr(10)\n \n*Ancho de etiqueta ( puntos, 1 mm = 8 puntos p.e. 10 cm )\n\"q800\" + Chr(13) + Chr(10)\n \n* Alto de etiqueta ( puntos, 1 mm = 8 puntos p.e. 12.8 cm )\n\"Q1024\" + Chr(13) + Chr(10)\n \n*** Escribir texto, códigos de barras ...\n \n** Texto\n\"A20,0,0,1,1,1,N,\'ESCRIBO LA LINEA 1\'\" + Chr(13) + Chr(10)\n \n** EAN13\n\"B20,450,0,E30,3,9,200,B,\'8424975000001\'\" + Chr(13) + Chr(10)\n \n* Especificar el nº de etiquetas que se quieren imprimir ( en el ejemplo 1 copia )\n\"P1\" + Chr(13) + Chr(10)\n \nSaludos','',0,'gA==','3d1v3n1w',1,0,'',1095,0,0),(36187,7849,2,542,0,'88.11.87.172',1187101131,1,0,1,1,1,0,'','','Gracias Ramon lo introducire en mi programa y a ver si funciona','',0,'gA==','33fooxed',1,0,'',542,0,0),(36188,7847,6,1107,0,'200.92.110.123',1187102053,1,0,1,1,1,0,'','Gracias Antonio','De nuevo te agradezco todas tus atenciones, me quedó claro, creo que ya estoy listo para ingresar formalmente a FWH - x(Harbour)\n\nGuillermo','',0,'gA==','2rmgcsms',1,0,'',1107,0,0),(36189,7843,6,415,0,'190.24.101.8',1187102344,1,0,1,1,1,1,'','','Rene:\n\nTienes corrido las fechas\n\nSeptiembre 1 es SABADO\nSeptiembre 2 es DOMINGO\nSeptiembre 3 es LUNES\n\nEstoy esperando la respuesta del correo que te envie a tu privado acerca del alquiler del salon para el LUNES 3 de Septiembre...\n\nSaludos\n\nMauricio Arevalo\nBogota (Colombia)','',0,'gA==','hp8sekzu',1,0,'',415,0,0),(36190,6205,3,138,0,'189.156.248.222',1187103212,1,0,1,1,1,1,'','','My pleasure, on behalf of Jorge:\n\nWinASP is a small self-contained web server that includes XBase code parsing capabilities.\n\nSo, instead of using VBScript for programming the ASP pages, you use (x)Harbour code, along with your own web server.\n\nThe script language of WinASP fully supports all the (x)Harbour base language, also the professional version includes ODBC, SQL data access and native SQLLite and Postgre database access, exportation of the published reports to both, Excel and PDF.\n\nWinAsp installs itself in seconds and comes with a template builder / code generator (in professional version) to speed up your programming.\n\nWinASP working sample and demo program is available at:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">http://www.htcsoft.cl</a><!-- m -->','',0,'gA==','lnmsmzco',1,0,'',138,0,0),(36191,6205,3,138,0,'189.156.248.222',1187103348,1,0,1,1,1,1,'','','My pleasure, on behalf of Jorge:\n\nWinASP is a small self-contained web server that includes XBase code parsing capabilities.\n\nSo, instead of using VBScript for programming the ASP pages, you use (x)Harbour code, along with your own web server.\n\nThe script language of WinASP fully supports all the (x)Harbour base language, also the professional version includes ODBC, SQL data access and native SQLLite and Postgre database access, exportation of the published reports to both, Excel and PDF.\n\nWinAsp installs itself in seconds and comes with a template builder / code generator (in professional version) to speed up your programming.\n\nWinASP working sample and demo program is available at:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">http://www.htcsoft.cl</a><!-- m -->','',0,'gA==','2ppbzd8b',1,0,'',138,0,0),(36192,7846,2,1107,0,'200.92.110.123',1187104973,1,0,1,1,1,0,'','Gracias Armando y Antonio Linares','Armando:\n\nTu sugerencia es que quite un par de parentesis de la clausula VALID, ya lo hice, pero no funcionó, sigue igual, el programa está atascado en el GET.\n\nAntonio:\n\nImaginate en una tienda un verificador de precios donde comunmente, el cliente solo acerca el producto al lector de código de barras y en la pantalla se muestra el precio del artículo.\n\nCon tu sugerencia de definir un botón, imaginate tendría que ponerle un ratón con un \"Mousepad\" o un teclado con una base (Mesa ó algo así) lo cual resultaría, totalmente inoperante.\n\nPosiblemente estoy buscando la solución al problema incorrectamente, si alguién en el foro tiene alguna idea para solucionar está cosa tan simple por favor transmitanmela.\n\nRealmente este tipo de problemas son los que me han detenido en la  decisión de comprar las herramientas requeridas para cambiar definitivamente a este ambiente.\n\nSaludos \n\nGuillermo','',0,'gA==','119qoqm4',1,0,'',1107,0,0),(36193,7630,2,1107,0,'200.92.110.123',1187105327,1,0,1,1,1,0,'','Gracias Rene','Recibí tu información en mi mail\n\nGuillermo','',0,'gA==','9qfjvvi0',1,0,'',1107,0,0),(36194,7862,6,987,0,'189.133.10.76',1187105609,1,0,1,1,1,0,'','Tamaño y Coordenadas de msgbar','Saludos de nuevos a todo los colegas del foro y de nuevo para molestarlos <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> :\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> Resulta que estoy usando en mi sistema la clase TAssist de Juan Carlos Salinas Ojeda, la cual muestra un asistente animado estilo Office.\n\nDicho asistente lo muestro en la parte inferior derecha de la pantalla, justo arriba de la barra donde se muestra la hora y la fecha de fivewin o más bien conocida como MsgBar.\n\nLa pregunta es:  ¿Cómo puedo saber las coordenadas para la altura y el largo de la barra de tal manera que no quede ni arriba ni abajo? ya que cuando se cambian los temas de XP o se oculta la barra de inicio de Windows, la barra Msgbar tiende a quedar siempre en el fondo de la pantalla.\n\nLes dejo la imagen para que se den una idea:\n<!-- m --><a class=\"postlink\" href=\"http://img520.imageshack.us/my.php?image=dibujo1vq8.jpg\">http://img520.imageshack.us/my.php?image=dibujo1vq8.jpg</a><!-- m -->\n\nEn la Clase TAssist.prg modifique la linea donde activa el asistente, de tal forma que le asigno la ubicación en donde se va a mostrar:\n\nACTIVATE DIALOG ::oDlg NOWAIT ON INIT (SetWindowPos( ::hWnd,-1,0,0,0,0,3), ::[b:im98gklc]Move(635,945)[/b:im98gklc])\n\nLes agradesco de antemano sus respuestas.. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'QA==','im98gklc',1,0,'',987,0,0),(36195,7863,2,1107,0,'200.92.110.123',1187106016,1,0,1,1,1,0,'','De nuevo con ListBox con campos variables','De nuevo con este viejo asunto ya que sigue sin funcionar\n\nEstoy solicitando tu ayuda ya que el valor de FIELDS del LISTBOX es en variables y no logro que considere el valor adecuado, dichas variables son: l_cCamp[1] y l_cCamp[2] \n\nGracias \n\nDesarrollo con Clipper 5.20, FiveWin 2.3b y Blinker 3.30 \n\nEl código es el siguiente: \n\nlocal l_cNomb[2] \nlocal l_cCamp[2] \nlocal l_oDlg \nlocal l_oBrw \nlocal l_oCurs \nl_cNomb[1] :=O2A(\'Descripci¢n art¡culo\') \nl_cNomb[2] :=O2A(\'Precio venta\') \nl_cCamp[1] :=articulo-&gt;descrip \ndo case \ncase l_nNumP==1 \nl_cCamp[2] :=transform(pcio_vta *(1+(iva/100)),\"9999999.99\") \ncase l_nNumP==2 \nl_cCamp[2] :=transform(pcio_vta2*(1+(iva/100)),\"9999999.99\") \ncase l_nNumP==3 \nl_cCamp[2] :=transform(pcio_vta3*(1+(iva/100)),\"9999999.99\") \ncase l_nNumP==4 \nl_cCamp[2] :=transform(pcio_vta4*(1+(iva/100)),\"9999999.99\") \nendcase \nDEFINE DIALOG l_oDlg RESOURCE \'DCON_BAR\' FONT g_oFont \nDEFINE CURSOR l_oCurs RESOURCE \'CUR_DEDO\' \nREDEFINE LISTBOX l_oBrw; \nFIELDS l_cCamp[1],l_cCamp[2],; \nHEADERS l_cNomb[1],l_cNomb[2],; \nALIAS \'articulo\'; \nCURSOR l_oCurs; \nFONT g_oFont; \nID 102; \nOF l_oDlg; \nON CLICK .t. \nACTIVATE DIALOG l_oDlg CENTER','',0,'','3faqjiss',1,0,'',1107,0,0),(36196,7861,6,644,0,'201.253.214.122',1187106868,1,0,1,1,1,0,'','','Existe un reloj. creo que es de Paco Garcia y es de pago ( me parece ) pero en <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.com.br\">www.fivewin.com.br</a><!-- w -->, creo que en ese link tenés  un reloj de agujas. salu2','',0,'','2sxjas1y',1,0,'',644,0,0),(36197,7864,3,51,0,'80.122.88.242',1187107516,1,0,1,1,1,0,'','treeview','To bind  treeview to a database I pass the record-ID with the text.\n\nTestNode       ID 345\n     TestNode Child        ID 500\nTestNode 2      ID 8555\n     TestNode Child        ID 102333\n     TestNode Child        ID 394949\n\nDo you think there is a way to make the last characters of the nodetext invisible?\nThanks in advance\nOtto','',0,'','38enf29s',1,0,'',51,0,0),(36198,7846,2,53,0,'189.139.95.133',1187107794,1,0,1,1,1,1,'','','Guillermo:\n\nPodrías especificar un poco más cual es el problema ?, cuando dices se queda atascado significa que no ves el resultado del código ?:\n\n? \'1\' \n\nSi entiendo bien, la solución es que utilices un SAY en el mismo dialogo, despues del GET, para mostrar el precio de venta, así no tendrías que obligar al usuario a usar ningun botón.\n\nSaludos','',0,'','2l83tz19',1,0,'',53,0,0),(36199,7843,6,156,0,'201.245.230.193',1187108516,1,0,1,1,1,0,'','','Rene, excelente noticia. Si se hace realidad, por aquí nos vemos. En lo que pueda ayudar, quedo a tu disposición.\n\nSaludos,\n\nCarlos Gallego','',0,'','38ytr9y8',1,0,'',156,0,0),(36200,7865,6,215,0,'189.137.196.100',1187111613,1,0,1,1,1,1,'','htmlhelp funcion ok... pero los otros no puedo probarlos.','Ya estoy creando mi ayuda en archivos chm que es el nuevo formato html de ayuda de windows.  \nPara eso uso el HTML Help Workshop de Microsoft. Bueno, bonito y es gratis.\nSi necesitas un ejemplo de como hacer archivos de ayuda. \n<!-- m --><a class=\"postlink\" href=\"http://www.mygnet.net/articulos/chm,help/568/\">http://www.mygnet.net/articulos/chm,help/568/</a><!-- m -->\n\nMi asunto es el siguiente:\nLa función HtmlHelp() trabaja bien. En base al ejemplo\nHtmlHelp( 0, \"c:\\fwh\\manual\\fwclass.chm\", 2, 0 ) \n\nPero no se como usar HTMLHelpCtx() y HTMLHelpPopup().   No hay ejemplos disponibles.\n\nToda ayuda será bien recibida.  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nGracias\nFernando','',0,'','29qmmmb1',1,0,'',215,0,0),(36201,7835,6,215,0,'189.137.196.100',1187112195,1,0,1,1,1,0,'','Hola','Hola Fernando,\nYo quiero uno de esos.\nDejo mi EXE más reciente en un servidor de internet y el resto es historia.\n¿Puedo dejar mi EXE en alguna carpeta de la red de la empresa y desde ahi que se actualizen mis PCs que se conectan a la red??\n\n¿Para cuando una demo o la versión beta?\n\nGracias\nFernando\nMéxico','',0,'','2ie4pm01',1,0,'',215,0,0),(36202,7864,3,2,0,'87.218.146.210',1187112744,1,0,1,1,1,1,'','','Otto,\n\nWhen an item is inserted into a treeview a TV_INSERTSTRUCT struct is used (please review source\\winapi\\treeview.c). \n\nThe TV_INSERTSTRUCT contains a TV_ITEM structure and there you have a member, named lParam where you can store a 32 bits number. Similar like Clipper \"cargo\".\n\nSo you have to modify source\\winapi\\treeview.c and add this line:\n\n      is.item.lParam = _parnl( 5 );\n\nThen modify the Class TTreeView to accept an extra parameter:\n\nMETHOD Add( cPrompt, nImage, [color=red:1qw3lofd]nValue[/color:1qw3lofd] ) CLASS TTreeView\n...\n   oItem := TTVItem():New( TVInsertItem( ::hWnd, cPrompt,, nImage, [color=red:1qw3lofd]nValue[/color:1qw3lofd] ), Self )','',0,'Ag==','1qw3lofd',1,0,'',2,0,0),(36203,7866,6,911,0,'200.72.141.53',1187113047,1,0,1,1,1,0,'','Consulta sobre ADO a René Flores o quien sepa','según un ejemplo entregado en el foro cuando ejecutamos un comando sql con ado podemos obtener el recorset entregado por el resultado de esta manera:\noSql:CommandText:=cComando\noDatos:=oSql:Execute()\n\nMi pregunta:\ncuales son los métodos y datos que se pueden manejar desde oDatos?\noDatos:MoveFirst(), oDatos:EOF(), oDatos:MoveNext(), oDatos:Fields:Count()\ny oDatos:RecordCount() siempre me devuelve -1 y eso me representará problemas a la hora de hacer una consulta del tipo: \"SELECT * FROM prueba WHERE usuario=\'david\'\", ya que si siempre regresa -1, cómo sabré si encontró o no lo que busco?\n\nDonde puedo obtener información de los métodos y variables que se pueden manejar, ya que he buscado por toleauto dentro de los fuentes de xharbour y dentro de los fuentes de fwh y nada. (Utilizo xharbour desde cvs)\n\nADORRD tiene problemas a la hora de conectarse con oracle, incluso si modifico el string de conexión que utilizo directamente con ADO solo y puro.\n\nMuchas gracias\nDavid Lagos S.\nCoquimbo-Chile','',0,'Ag==','cynv5fa7',1,0,'',911,0,0),(36204,7864,3,2,0,'87.218.146.210',1187113184,1,0,1,1,1,1,'','','Then, given a TV_ITEM handle, you can retrieve its lParam value:\n[code:b4w8xn73]\nHB_FUNC&#40; TVIPARAM &#41; // hItem --&gt; nLParam\n&#123;\n   hb_retnl&#40; &#40; &#40; TV_ITEM * &#41; hb_parnl&#40; 1 &#41; &#41;-&gt;lParam &#41;;\n&#125;\n[/code:b4w8xn73]','',0,'AIA=','b4w8xn73',1,0,'',2,0,0),(36205,7865,6,2,0,'87.218.146.210',1187114738,1,0,1,1,1,1,'','','Fernando,\n\nNo las hemos probado, pero quizá por la declaración de los parámetros te sirva:\n\nDLL Function HTMLHelpCtx( ;\n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, cTopic As LPSTR ) ;\n   AS LONG PASCAL From \"HtmlHelpA\" Lib \"hhctrl.ocx\"\n\nDLL Function HTMLHelpPopup( ;\n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, @sPopUp As LPSTR ) ;\n   AS LONG PASCAL From \"HtmlHelpA\" Lib \"hhctrl.ocx\"','',0,'AIA=','8umsjmor',1,0,'',2,0,0),(36207,7863,2,2,0,'87.218.146.210',1187115161,1,0,1,1,1,1,'','','Supongo que lo que quieres es transformar los valores de varios campos dinámicamente, por lo que no puedes dejarlos fijos en unas variables.\n\nHazlo así:\n\nREDEFINE LISTBOX l_oBrw; \n...\n\nl_oBrw:bLine = { || GenValues() }\n\n...\n\nfunction GenValues()\n\n// calcula los valores de los campos a mostrar\n\nreturn { valor1, valor2 }','',0,'AIA=','d1l0fr4l',1,0,'',2,0,0),(36208,6480,6,43,0,'189.188.14.90',1187115207,1,0,1,1,1,0,'','','Hola\n\nAqui les dejo el link donde pueden descargar el archivo, ahi viene todo lo necesario para poder usar la clase, solo les pido que repeten los creditos de la clase.\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/48979561/TRMChartX.rar.html\">http://rapidshare.com/files/48979561/TRMChartX.rar.html</a><!-- m --> \n\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','2xdtigeq',1,0,'',43,0,0),(36209,7862,6,2,0,'87.218.146.210',1187115329,1,0,1,1,1,1,'','','oMsgBar:nWidth()\noMsgBar:nHeight()\n\nó\n\noWnd:oBottom:nWidth()\noWnd:oBottom:nHeight()','',0,'AIA=','t83kn26w',1,0,'',2,0,0),(36210,7867,17,43,0,'189.188.14.90',1187115950,1,0,1,1,1,0,'','Clase TRMCHARTX','Hola\n\nAqui les dejo el link de la clase:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/48979561/TRMChartX.rar.html\">http://rapidshare.com/files/48979561/TRMChartX.rar.html</a><!-- m --> \n\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','jc0m9dm1',1,0,'',43,0,0),(36211,7868,3,161,0,'81.83.249.31',1187116335,1,0,1,1,1,0,'','lisdir() problem','Hi,\n\nIf I call this lisdir() returns FALSE, even when I use lfn2sfn.\n\n\n[code:3qhpoxp4]      local cValue &#58;=   GetEnv&#40; &quot;USERPROFILE&quot;&#41;\n       msginfo&#40;lfn2sfn&#40;cValue+\'\\Local Settings\\Application Data\'&#41;,cValue+\'\\Local Settings\\Application Data\'&#41;\n      msginfo&#40;lisdir&#40;lfn2sfn&#40;upper&#40;cValue+\'\\Local Settings\\Application Data\'&#41;&#41;&#41;&#41;\n      msginfo&#40;lisdir&#40;upper&#40;cValue+\'\\Local Settings\\Application Data\'&#41;&#41;&#41;\n\n[/code:3qhpoxp4]\n\nIs there an error in lisdir()?\n\nThanks,\nMarc','',0,'AIA=','3qhpoxp4',1,0,'',161,0,0),(36212,7869,6,925,0,'200.72.213.240',1187122460,1,0,1,1,1,0,'','usar hb_Zipfile con tanimate','Si alguien me puede ayudar,  utilizo el hb_zipfile para crear un zip el cual no tengo problemas para generar, pero quiero poner una imagen en movimiento como lo hace windows  encontre la clase tanimate, win32.prg, copyfile.prg pero no logro dejar en movimiento los iconos cuando esta comprimiendo se queda estatico y despues termina el proceso normal.  si alguien tiene un ejemplo   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'AIA=','3j6ko0hu',1,0,'',925,0,0),(36213,7868,3,1068,0,'200.153.245.50',1187123111,1,0,1,1,1,1,'','','i dont think so...\n\nhere in my testes both returns .T. ( directory exists !!! )\n\n[code:22sz37e8]\nlocal cValue &#58;= GetEnv&#40; &quot;USERPROFILE&quot;&#41; \nlocal cDirec &#58;= \'\\Configurações locais\\Application Data\'\n\nmsginfo&#40;lIsDir&#40;lfn2sfn&#40;upper&#40;cValue+cDirec&#41;&#41;&#41;&#41; \nmsginfo&#40;lIsDir&#40;cValue+cDirec&#41;&#41; \n[/code:22sz37e8]\n\nregards','',0,'AIA=','22sz37e8',1,0,'',1068,0,0),(36215,7781,7,400,0,'201.92.36.147',1187124089,1,0,1,1,1,1,'','','Antonio.....minha versao es FwPPC 17 May - 2007.\n\nHá alguma atualizaçao mais recente ????\n\nSaludos','',0,'gA==','r0oqhckw',1,0,'',400,0,0),(36216,7870,3,909,0,'71.71.110.50',1187124509,1,0,1,1,1,1,'','APPEND FROM not working when CDX file exist','I am not able to append from a dbf file when it has a .CDX file associated with it.  The only way I can do it is to delete the cdx file first, then do an \"INDEX ON...\" to rebuild it after I append from it.  Is this a limitation of xHarbour or is it a bug?\n\nCharles','',0,'gA==','1jqgkodd',1,0,'',909,0,0),(36217,7861,6,78,0,'190.40.225.130',1187124566,1,0,1,1,1,0,'','','Tengo uno encontre por algun lado,, ( que me perdone el autor,,, no lo recuerdo),,, funciona en FW + Clipper,   a ver si lo pasas a 32 bits (Harbour)..\n\nSalu2\n\nPD. lo envie a tu cta del hotmail','',0,'gA==','14ucivtt',1,0,'',78,0,0),(36218,7857,7,527,0,'81.44.14.172',1187124960,1,0,1,1,1,0,'','gracias','gracias','',0,'gA==','37gihm2g',1,0,'',527,0,0),(36219,7870,3,6,0,'87.10.10.59',1187127546,1,0,1,1,1,1,'','Re: APPEND FROM not working when CDX file exist','Can you show a reduced sample of the problem?\n\nEMG','',0,'gA==','3rh0qvpk',1,0,'',6,0,0),(36220,7869,6,644,0,'200.82.79.54',1187127876,1,0,1,1,1,0,'','','A mi me pasaba lo mismo generando una hoja de cálculo y lo solucioné parcialmente poniendo por cada ciclo un SysRefresh(). Espero te sirva. Saludos','',0,'gA==','yngtc8pq',1,0,'',644,0,0),(36221,7781,7,2,0,'87.218.146.210',1187129502,1,0,1,1,1,1,'','','Alessandro,\n\nSi, hay un nuevo build más reciente, de Julio 2007','',0,'gA==','35v0kf4p',1,0,'',2,0,0),(36222,7866,6,138,0,'189.156.248.222',1187132590,1,0,1,1,1,1,'','','Antes de ejecutar un objeto RecordSet (que no un command, hay diferencia), primero tienes que configurar tu \"cursor\".\n\nEn general los objetos command solo deben ser utilizados cuando vas a realizar una operacion masiva sobre una base de datos, por ejemplo un UPDATE o un Delete.\n\nCuando vas a visualizar datos o requieres traerte un grupo de datos de tablas para visualizar en un browse por ejemplo lo mejor es utilizar un objeto recordset, previamente configurado:\n\nDe mi manual de ADO:\n[code:2pzd5ovl]\noRecordSet &#58;= TOleAuto&#40;&#41;&#58;New&#40;“adodb&#46;recordset”&#41;\noRecordSet&#58;LockType &#58;= adLockOptimistic\noRecordSet&#58;CursorType &#58;= adOpenKeySet\noRecordSet&#58;ActiveConnection&#40;oMiConexion&#41;\noRecordSet&#58;Source &#58;= “Select * from Clientes”\n**** esto tambien es valido &#58; oRecordSet&#58;Source &#58;= “Clientes”\noRecordSet&#58;Open&#40;&#41;&#58;[/code:2pzd5ovl]\n\nAqui lo que estas haciendo es configurando tu cursor antes de abrirlo, estableces el tipo de bloqueo (adLockOptimistic) y el tipo de cursor (adOpenKeySet), si el cursor no es de este tipo, el record count SIEMPRE devuelve -1.\n\nDependiendo del tipo de cursor son las cosas que pudes hacer con el recordset\n\nEstos son los tipos de cursores existentes: \n\nadOpenForwardOnly	0	Es el cursor por defecto y nos permite recorrer el Recordset en forma secuencial.\n\nadOpenKeySet	1	Permite movernos hacia delante y atrás. Permite observar las modificaciones en los datos del Recordset , no así si existen ingresos de nuevos registros\n\nadOpenDynamic	2	Permite movernos en cualquier sentido, viendo cualquier modificación, ingreso o eliminación de datos del Recordset.\n\nadOpenStatic	3	Permite movernos en cualquier sentido, pero no se verá ningún cambio ocurrido en la tabla.','',0,'AIA=','2pzd5ovl',1,0,'',138,0,0),(36223,7807,6,215,0,'189.137.196.100',1187133087,1,0,1,1,1,1,'','de aqui','Como te dije, es una versión beta.\nPuedes bajarla de aquí.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/demos/gdiplus/TestGDIP.zip\">http://www.canalfive.com/demos/gdiplus/TestGDIP.zip</a><!-- m -->','',0,'AIA=','1u7mmmut',1,0,'',215,0,0),(36224,7871,6,389,0,'189.133.4.39',1187138225,1,0,1,1,1,0,'','Como leer el buffer del puerto comm ??','Alguien tendra un ejemplo con fwh de como leer el puerto comm.. (ltodo el buffer) con la lib de HbComm..  Gracias !\nSaludos','',0,'AIA=','2tyv2l79',1,0,'',389,0,0),(36225,7862,6,987,0,'189.133.10.76',1187138451,1,0,1,1,1,0,'','','Estimado Maestro Antonio Linares:\n\nLe Comento que agrege uno a uno los códigos y este fue el resultado\n\nmsginfo(oWndMain:oMsgBar:nWidth())\nmsginfo(oWndMain:oMsgBar:nHeight())\n\nLo que se indica con estos mensajes es el tamaño en pixeles de alto y largo de la barra, auque no estoy seguro ya que de alto si son 24 pixeles, pero de largo no son 540 que es lo qie indica, sino 1024.\n\nLo que necesito saber es a que altura o coordenada del escritorio esta la altura de la barra.\n\nSaludos...','',0,'AIA=','7n2t1a7d',1,0,'',987,0,0),(36226,7866,6,911,0,'200.72.141.53',1187141412,1,0,1,1,1,0,'','','Definitivamente tu nivel de conocimientos es increíble un millón de gracias.\nPor último una pregunta más:\nComo utilizando este modelo puedo implementar un browse. Vi que hay que hacer algunos cambios a algunos métodos y a una función. Podrías explicarme con un pequeño ejemplo?\nMil Gracias\nDavid Lagos S.\nCoquimbo-Chile','',0,'AIA=','1hurptnq',1,0,'',911,0,0),(36227,7868,3,2,0,'87.218.146.210',1187161856,1,0,1,1,1,1,'','','Marc,\n\nlIsDir() is not working with hidden directories. Try this sample:\n[code:2ghgwhq9]\nfunction Main&#40;&#41;\n\n      local cValue &#58;= GetEnv&#40; &quot;USERPROFILE&quot;&#41; \n\n      msginfo&#40; cValue &#41; \n      msginfo&#40; lIsDir&#40; cValue + &quot;\\Documents&quot; &#41; &#41;\n      \nreturn nil\n[/code:2ghgwhq9]','',0,'AIA=','2ghgwhq9',1,0,'',2,0,0),(36228,7862,6,2,0,'87.218.146.210',1187162244,1,0,1,1,1,1,'','','&gt;\nLo que necesito saber es a que altura o coordenada del escritorio esta la altura de la barra. \n&gt;\n\n   MsgInfo( GetSysMetrics( 1 ) - oWnd:oMsgBar:nHeight() )','',0,'AIA=','1c8b4ubl',1,0,'',2,0,0),(36229,7871,6,2,0,'87.218.146.210',1187162342,1,0,1,1,1,1,'','','Tienes varios ejemplos en FWH\\samples\\phone.prg y TestComm.prg.\n\nNo necesitan la librería que comentas','',0,'AIA=','zhss50ad',1,0,'',2,0,0),(36230,7868,3,161,0,'81.83.249.31',1187172346,1,0,1,1,1,0,'','','Antonio,\n\nThat seems to be the problem. \nIn FW1.9.5 it was working  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRegards,\nMarc','',0,'AIA=','3qi201az',1,0,'',161,0,0),(36231,7868,3,2,0,'87.218.146.210',1187174396,1,0,1,1,1,1,'','','Marc,\n\nFixed. Simply add this function to your main PRG:\n[code:p0rxoopw]\nfunction lIsDir&#40; cDirName &#41;   // Checks an existing directory\n\n   local aResult &#58;= Directory&#40; cDirName, &quot;DHS&quot; &#41;\n\nreturn Len&#40; aResult &#41; == 1 &#46;and&#46; &quot;D&quot; $ aResult&#91; 1 &#93;&#91; 5 &#93;\n[/code:p0rxoopw]\nsample:\n[code:p0rxoopw]\nfunction Main&#40;&#41; \n\n      local cValue &#58;= GetEnv&#40; &quot;USERPROFILE&quot;&#41; \n\n      msginfo&#40; cValue &#41; \n      msginfo&#40; lIsDir&#40; cValue + &quot;\\Application Data&quot; &#41; &#41; \n      \nreturn nil      \n[/code:p0rxoopw]','',0,'AIA=','p0rxoopw',1,0,'',2,0,0),(36232,7868,3,161,0,'81.83.249.31',1187175235,1,0,1,1,1,0,'','','Thanks Antonio,\n\nIt\'s working fine now!!\n\nRegards,\nMarc','',0,'AIA=','14hgx11l',1,0,'',161,0,0),(36233,7872,6,882,0,'200.158.227.64',1187186899,1,0,1,1,1,1,'','Conetar firebird','Teria como postar exemplode conexao em FireBird  AdoRdd\nGrato','',0,'AIA=','2b8rxpfl',1,0,'',882,0,0),(36234,7861,6,147,0,'200.45.54.134',1187188246,1,0,1,0,1,1,'','','Willi:\nFunciona, solo tuve que modificar esta línea:\n[code:tfyqeoez]\nAEVAL&#40;anCor,&#123;|a,n| IF&#40;&#40;n-1&#41;%5==0,DrawBitmap&#40;hDC,oBmpG&#58;hBmpPal,RELOJ_Y+anCorY&#91;n&#93;*RELOJ_R-4,RELOJ_X+anCorX&#91;n&#93;*RELOJ_R-4&#41;,DrawBitmap&#40;hDC,oBmpP&#58;hBmpPal,RELOJ_Y+anCorY&#91;n&#93;*RELOJ_R-1,RELOJ_X+anCorX&#91;n&#93;*RELOJ_R-1&#41;&#41;&#125;&#41;,;\n[/code:tfyqeoez]\nMás precisamente hBmpPal por hBitmap\nAunque....no tiene movimiento me está faltando algo?, un TIMER quizás?\n\nsaludos','',0,'AIA=','tfyqeoez',1,0,'',147,0,0),(36235,7866,6,138,0,'189.152.46.101',1187189585,1,0,1,1,1,1,'','','El browse \"ta chupao\".... solo hay que saber como definirlo y reescribir algunas propiedades.\n\nEl wbrowse sirve prácticamente para desplegar en pantalla cualquier cosa, textos, tablas dbfs, arrays, y hasta recordsets de ado, asi que lo que vamos a definir son las columnas del browse llamando a la coleccion FIELDS() del recordset:\n\n[code:3uqjfug6]      @ 0, 0 LISTBOX oBrw FIELDS oRecordSet&#58;Fields&#40;0&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;1&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;2&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;3&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;4&#41;&#58;value,;\n                           oRecordSet&#58;Fields&#40;6&#41;&#58;value;\n     HEADERS &quot;Codigo&quot;,&quot;Tipo&quot;,&quot;Canal&quot;,&quot;Nombre&quot;,&quot;Ciudad&quot;,&quot;Pais&quot; OF oWndBrw\n[/code:3uqjfug6]\n\nDespués le tenemos que \"enseñar\" al browse como debe moverse en base al recordset, para esto reescribiremos algunas propiedades del browse para que utilice las propiedades de movimiento del recordset:\n\n[code:3uqjfug6]            oBrw&#58;bLogicLen = &#123; || oRecordSet&#58;RecordCount &#125;\n            oBrw&#58;bGoTop    = &#123; || oRecordSet&#58;MoveFirst&#40;&#41; &#125;\n            oBrw&#58;bGoBottom = &#123; || oRecordSet&#58;MoveLast&#40;&#41; &#125;\n            oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRecordSet, nSkip &#41; &#125;\n            oBrw&#58;cAlias    = &quot;ARRAY&quot;\n[/code:3uqjfug6]\n\nLa propiedad mas importante es la ::bSkip que indica el numero de registros que se debe de mover el browse ya sea para adelante o para atras para poder desplegar los datos, en el ejemplo anterior, haces una llamada a la función SKIPPER, aquí la tienes:\n\n[code:3uqjfug6]STATIC FUNCTION SKIPPER&#40; oRs, nSkip &#41;\n\n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition\n\n    oRs&#58;Move&#40; nSkip &#41;\n\n    IF oRs&#58;EOF; oRs&#58;MoveLast&#40;&#41;; ENDIF\n    IF oRs&#58;BOF; oRs&#58;MoveFirst&#40;&#41;; ENDIF\n\nRETURN oRs&#58;AbsolutePosition - nRec\n[/code:3uqjfug6]\n\nY eso es todo, mas simple ni hacer limonada en verano.\n\nEso si muy imporntate, para poder \"browsear\" un recordset, este tiene que ser del tipo adOpenKeySet, si no, no te puedes mover sobre el.','',0,'AIA=','3uqjfug6',1,0,'',138,0,0),(36236,7871,6,362,0,'200.158.19.76',1187194100,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:33lky32r]Tienes varios ejemplos en FWH\\samples\\phone.prg y TestComm.prg.\n\nNo necesitan la librería que comentas[/quote:33lky32r]\n\nMAESTRO, ESTO NO FUNCIONA CON HBCOMM.LIB\n\n\nMira...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=606\">http://www.fivewin.com.br/exibedicas.asp?id=606</a><!-- m -->','',0,'gA==','33lky32r',1,0,'',362,0,0),(36237,7859,6,101,0,'190.161.253.223',1187194135,1,0,1,1,1,0,'','Documentación winasp','Estimado Rubén,\n\nYa puse algunos archivos que puedes descargar desde \n\n<!-- m --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">http://www.htcsoft.cl</a><!-- m -->\n\nSaludos\nJorge Mason','',0,'gA==','1cfvhgu2',1,0,'',101,0,0),(36238,7846,2,1107,0,'200.92.113.138',1187194508,1,0,1,1,1,0,'','Gracias Armando','Efectivamente lo que requiero es que se muestre el\n? \'1\' \nQue es la prueba de que funcionó la clausula VALID en el GET\n\nYa había comprobado que poniendo el SAY en mismo control se hace la perdida de foco que me indicaba Antonio.\n\nSin embargo estoy intrigado porque algo que funciona tan bién en nuestro viejo Clipper no puede funcionar en FW, cuando menos hasta ahora.\n\nAgradezco tus atenciones\n\nGuillermo','',0,'gA==','10081hvg',1,0,'',1107,0,0),(36239,7836,6,101,0,'190.161.253.223',1187194743,1,0,1,1,1,0,'','Documentación winasp FreeWare','Estimados Amigos,\n\nSeguramente algunos no saben que WinAsp es ahora Freeware y pueden descargarlo desde <!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w -->\n\nTambién hay documetación disponible en el sitio web.\n\nSaludos\nJorge Mason','',0,'gA==','7e7wpjos',1,0,'',101,0,0),(36240,7846,2,2,0,'87.218.146.193',1187197351,1,0,1,1,1,1,'','','Guillermo,\n\n&gt;\nSin embargo estoy intrigado porque algo que funciona tan bién en nuestro viejo Clipper no puede funcionar en FW, cuando menos hasta ahora. \n&gt;\n\nWindows es un entorno muy distinto en su funcionamiento al antiguo MsDos.\n\nFiveWin intenta en la medida de lo posible proporcionar comportamientos muy similares, pero en ocasiones hay que seguir las reglas que impone Windows','',0,'gA==','30mx1uje',1,0,'',2,0,0),(36241,7861,6,78,0,'190.40.225.130',1187197716,1,0,1,1,1,0,'','','UPS!!!!!  Sorry ,,  faltaba el TIMER ... \n\nDEFINE TIMER oTmr INTERVAL 1*990 ACTION (EVAL(bTiempo))\nDEFIENE DIALOG ......................\n...\n...\nACTIVATE DIALOG oDlg ON INIT (oTmr:Activate()) \n\n\nSalu2','',0,'gA==','336dilhi',1,0,'',78,0,0),(36242,7873,7,1135,0,'189.137.116.104',1187202722,1,0,1,1,1,1,'','Problemas con FOpen y FRead','Amigos del foro FWPPC, Frecuentemente encuentro problemas para abrir un archivo que siempre esta en la misma ubicacion. He notado que es mas facil ubicarlo en la raiz del dispositivo, pero aun asi tengo problemas. Cuando finalmente lo abro con FOpen y obtengo un handle valido, aun asi el FRead me marca 0 bytes leidos.\n\nAlguna Sugerencia de trucos para evitar problemas frecuentes con este tipo de manejo bajo PocketPC? ANEXO CODIGO EJEMPLO:\n\nIF !file(cfile)\n   msginfo(\"No s encuentra \"+cFile) // Aqui no tengo problemas\nENDIF\nif (nFileMan:=FOPEN(cFile, FO_READ )) &lt;=0  //&lt;-Problema Muy Frecuente\n   MsgInfo(\"No SE PUDO ACCESAR ARCHIVO \"+cFile)\n   return .F.\nendif\n\n nTBytes := fseek(nFileMan,0,2)\n nPosFin:=0\n nLenRec:=55 // largo datos sin CR\n fseek(nFileMan,0,0)\n while (nPos1:=fseek(nFileMan,0,1)) &lt; nTBytes\n    cRec:=spac(nLenRec))\n    nRead:=FREAD( nFileMan, @cRec, nLenRec+2 )\n    nPos2:=fseek(nFileMan,0,1)\n//DE AQUI NO PUEDO PASAR, PUES SIEMPRE LEE 0 BYTES,\n//COMPROBADO CON EMPTY(cRec), y nPos1==nPos2, y nRead==0\n\nGRACIAS DE ANTEMANO!','',0,'gA==','bchuz88o',1,0,'',1135,0,0),(36243,7874,7,1135,0,'189.137.116.104',1187205163,1,0,1,1,1,1,'','Problemas con FOpen y FSeek','Amigos del foro FWPPC, Frecuentemente encuentro problemas para abrir un archivo con FOpen. He notado que es mas facil ubicarlo en la raiz del dispositivo, pero aun asi tengo problemas frecuentes. Cuando finalmente lo abro con FOpen y obtengo un handle valido, aun asi el FRead me marca 0 bytes leidos. \n\nAlguna Sugerencia de trucos para evitar problemas frecuentes con este tipo de manejo bajo PocketPC? ANEXO CODIGO EJEMPLO: \n\nIF !file(cfile) \nmsginfo(\"No s encuentra \"+cFile) // Aqui no tengo problemas \nENDIF \nif (nFileMan:=FOPEN(cFile, FO_READ )) &lt;=0 //&lt;-Problema Muy Frecuente \nMsgInfo(\"No SE PUDO ACCESAR ARCHIVO \"+cFile) \nreturn .F. \nendif \n\nnTBytes := fseek(nFileMan,0,2) \nnPosFin:=0 \nnLenRec:=55 // largo datos sin CR \nfseek(nFileMan,0,0) \nwhile (nPos1:=fseek(nFileMan,0,1)) &lt; nTBytes \ncRec:=spac(nLenRec)) \nnRead:=FREAD( nFileMan, @cRec, nLenRec+2 ) \nnPos2:=fseek(nFileMan,0,1) \n//DE AQUI NO PUEDO PASAR, PUES SIEMPRE LEE 0 BYTES, \n//COMPROBADO CON EMPTY(cRec), y nPos1==nPos2, y nRead==0 \n\nGRACIAS DE ANTEMANO!\n_________________\nArturo LS','',0,'gA==','uu53bj78',1,0,'',1135,0,0),(36244,7875,6,300,0,'201.67.95.230',1187205269,1,0,1,1,1,0,'','Spinner desde pelles','Olá,\n\nSpinner deste pelles mi apresenta como lo get normal.\nSugestões?\n\nSaludos','',0,'gA==','x9akj24e',1,0,'',300,0,0),(36245,7875,6,53,0,'189.139.11.117',1187205860,1,0,1,1,1,1,'','','Wanderson:\n\nUn spinner es un get con un scroll bar vertical.\n\nPon a YES la propiedad Vertical Scrollbar en Windows Style del get.\n\nSaludos','',0,'gA==','3ofwy579',1,0,'',53,0,0),(36246,7873,7,138,0,'189.156.248.222',1187206204,1,0,1,1,1,1,'','','hDoc := FOPEN(CURDIR()+\"\\\"+cFile, .....)\n\nY eso es todo','',0,'gA==','3tqznbu3',1,0,'',138,0,0),(36247,7876,3,167,0,'207.119.126.13',1187206406,1,0,1,1,1,1,'','new fivewin unresolved externals MSVC','I have just purchased new version of FWH.\n\nI\'m trying to compile and Link with MSVC++ 6.0 (I\'m normally a borland user).\n\nThe compile step works but the link step has many unresolved errors.\n\nI\'m using buildxm.bat to compile one of the sample programs.\n\nWhat am I missing?\n\nHere are the errors:\n\n&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for xHarbour 2.8 (MSVC++) November 2007 xHarbour development power &#9474;&#9604;\n&#9474; (c) FiveTech, 1993-2007      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;&#9608;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9608;\n  &#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;\nCompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testtime.prg\' and generating preprocessed output to \'testtime.ppo\'...\n\nLines 52, Functions/Procedures 3\nGenerating C source output to \'testtime.c\'...\nDone.\nMicrosoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86\nCopyright (C) Microsoft Corp 1984-1998. All rights reserved.\n\ntesttime.c\n   Creating library testtime.lib and object testtime.exp\nLINK : error LNK2001: unresolved external symbol _WinMainCRTStartup\nFiveHCM.lib(DRIVES.obj) : error LNK2001: unresolved external symbol _fabs\nrtl.lib(math.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(hbrandom.obj) : error LNK2001: unresolved external symbol __fltused\ncommon.lib(hbdate.obj) : error LNK2001: unresolved external symbol __fltused\ncommon.lib(expropt1.obj) : error LNK2001: unresolved external symbol __fltused\ncommon.lib(expropt2.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(bkgtsks.obj) : error LNK2001: unresolved external symbol __fltused\nrdd.lib(dbf1.obj) : error LNK2001: unresolved external symbol __fltused\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol __fltused\ndbffpt.lib(dbffpt1.obj) : error LNK2001: unresolved external symbol __fltused\ncommon.lib(hbstr.obj) : error LNK2001: unresolved external symbol __fltused\ngtgui.lib(gtgui.obj) : error LNK2001: unresolved external symbol __fltused\nmacro.lib(macroy.obj) : error LNK2001: unresolved external symbol __fltused\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol __fltused\nmacro.lib(macrob.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(estack.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(hash.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(memvars.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(macro.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(asort.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(extend.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(itemapi.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(arrays.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(gtapi.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(idle.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol __fltused\nvm.lib(arrayshb.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(val.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(replic.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(samples.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(inkey.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(transfrm.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(minmax.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(seconds.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(abs.obj) : error LNK2001: unresolved external symbol __fltused\nFiveHCM.lib(ole.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(dateshb.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(round.obj) : error LNK2001: unresolved external symbol __fltused\nrtl.lib(empty.obj) : error LNK2001: unresolved external symbol __fltused\nFiveHCM.lib(DRIVES.obj) : error LNK2001: unresolved external symbol __fltused\nFiveHCM.lib(MSGS.obj) : error LNK2001: unresolved external symbol __fltused\nFiveHCM.lib(ACTX.obj) : error LNK2001: unresolved external symbol __fltused\nFiveHCM.lib(CALLDLL.obj) : error LNK2001: unresolved external symbol __fltused\ncommon.lib(expropt2.obj) : error LNK2001: unresolved external symbol __ftol\nrtl.lib(hbrandom.obj) : error LNK2001: unresolved external symbol __ftol\nmacro.lib(macrob.obj) : error LNK2001: unresolved external symbol __ftol\nrdd.lib(dbf1.obj) : error LNK2001: unresolved external symbol __ftol\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol __ftol\ncommon.lib(hbdate.obj) : error LNK2001: unresolved external symbol __ftol\nvm.lib(extend.obj) : error LNK2001: unresolved external symbol __ftol\nvm.lib(itemapi.obj) : error LNK2001: unresolved external symbol __ftol\nvm.lib(memvars.obj) : error LNK2001: unresolved external symbol __ftol\ngtgui.lib(gtgui.obj) : error LNK2001: unresolved external symbol __ftol\nrtl.lib(inkey.obj) : error LNK2001: unresolved external symbol __ftol\nrtl.lib(idle.obj) : error LNK2001: unresolved external symbol __ftol\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol __ftol\nvm.lib(arrayshb.obj) : error LNK2001: unresolved external symbol __ftol\nFiveHCM.lib(DRIVES.obj) : error LNK2001: unresolved external symbol __ftol\nFiveHCM.lib(ACTX.obj) : error LNK2001: unresolved external symbol __ftol\nFiveHCM.lib(ole.obj) : error LNK2001: unresolved external symbol __ftol\nrtl.lib(samples.obj) : error LNK2001: unresolved external symbol __ftol\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol __allshr\ncommon.lib(expropt2.obj) : error LNK2001: unresolved external symbol __allshr\nFiveHCM.lib(DRIVES.obj) : error LNK2001: unresolved external symbol __allshr\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol __allshr\nvm.lib(macro.obj) : error LNK2001: unresolved external symbol __allshr\nmacro.lib(macrob.obj) : error LNK2001: unresolved external symbol __allshr\nrdd.lib(wafunc.obj) : error LNK2001: unresolved external symbol _strchr\ncommon.lib(hbfsapi.obj) : error LNK2001: unresolved external symbol _strchr\nvm.lib(cmdarg.obj) : error LNK2001: unresolved external symbol _strchr\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _strchr\nmacro.lib(macroc.obj) : error LNK2001: unresolved external symbol _strchr\nrdd.lib(dbcmd.obj) : error LNK2001: unresolved external symbol _strchr\nrtl.lib(file.obj) : error LNK2001: unresolved external symbol _strchr\nrtl.lib(tprinter.obj) : error LNK2001: unresolved external symbol _strchr\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _strchr\nvm.lib(classes.obj) : error LNK2001: unresolved external symbol _strchr\nFiveHCM.lib(MSGS.obj) : error LNK2001: unresolved external symbol _strchr\nrtl.lib(transfrm.obj) : error LNK2001: unresolved external symbol _strchr\nrtl.lib(at.obj) : error LNK2001: unresolved external symbol _strchr\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol _strchr\ncommon.lib(hbver.obj) : error LNK2001: unresolved external symbol _sprintf\npcrepos.lib(pcreposix.obj) : error LNK2001: unresolved external symbol _sprintf\nvm.lib(estack.obj) : error LNK2001: unresolved external symbol _sprintf\nvm.lib(cmdarg.obj) : error LNK2001: unresolved external symbol _sprintf\nvm.lib(memvars.obj) : error LNK2001: unresolved external symbol _sprintf\nvm.lib(hbi18n.obj) : error LNK2001: unresolved external symbol _sprintf\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol _sprintf\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _sprintf\nvm.lib(errorapi.obj) : error LNK2001: unresolved external symbol _sprintf\nvm.lib(debug.obj) : error LNK2001: unresolved external symbol _sprintf\nFiveHCM.lib(MSGS.obj) : error LNK2001: unresolved external symbol _sprintf\nrtl.lib(dateshb.obj) : error LNK2001: unresolved external symbol _sprintf\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol _sprintf\nrtl.lib(langapi.obj) : error LNK2001: unresolved external symbol _sprintf\nFiveHCM.lib(ACTX.obj) : error LNK2001: unresolved external symbol _memcmp\nFiveHCM.lib(FONTS.obj) : error LNK2001: unresolved external symbol _strcpy\nFiveHCM.lib(TEXT.obj) : error LNK2001: unresolved external symbol _strcpy\nFiveHCM.lib(RESCHECK.obj) : error LNK2001: unresolved external symbol _strcpy\nFiveHCM.lib(HARBOURC.obj) : error LNK2001: unresolved external symbol _strlen\nFiveHCM.lib(ole.obj) : error LNK2001: unresolved external symbol _memcpy\nFiveHCM.lib(ole.obj) : error LNK2001: unresolved external symbol _memset\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _isdigit\nrtl.lib(dateshb.obj) : error LNK2001: unresolved external symbol _isdigit\nrtl.lib(transfrm.obj) : error LNK2001: unresolved external symbol _isdigit\nrtl.lib(at.obj) : error LNK2001: unresolved external symbol _isdigit\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isdigit\nrdd.lib(wafunc.obj) : error LNK2001: unresolved external symbol _atoi\nrtl.lib(version.obj) : error LNK2001: unresolved external symbol _atoi\nrtl.lib(gtapi.obj) : error LNK2001: unresolved external symbol _atoi\nvm.lib(cmdarg.obj) : error LNK2001: unresolved external symbol _atoi\nvm.lib(hbi18n.obj) : error LNK2001: unresolved external symbol _atoi\nvm.lib(macro.obj) : error LNK2001: unresolved external symbol _memmove\nrdd.lib(dbf1.obj) : error LNK2001: unresolved external symbol _memmove\nrtl.lib(bkgtsks.obj) : error LNK2001: unresolved external symbol _memmove\nrtl.lib(transfrm.obj) : error LNK2001: unresolved external symbol _memmove\nrtl.lib(str.obj) : error LNK2001: unresolved external symbol _memmove\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol _memmove\nvm.lib(classes.obj) : error LNK2001: unresolved external symbol _memmove\nvm.lib(hash.obj) : error LNK2001: unresolved external symbol _toupper\nrdd.lib(workarea.obj) : error LNK2001: unresolved external symbol _toupper\ncommon.lib(hbstr.obj) : error LNK2001: unresolved external symbol _toupper\ncommon.lib(hbdate.obj) : error LNK2001: unresolved external symbol _toupper\nrtl.lib(cdpapi.obj) : error LNK2001: unresolved external symbol _toupper\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol _toupper\nrtl.lib(gtapi.obj) : error LNK2001: unresolved external symbol _toupper\nvm.lib(classes.obj) : error LNK2001: unresolved external symbol _toupper\nrtl.lib(transfrm.obj) : error LNK2001: unresolved external symbol _toupper\nrtl.lib(set.obj) : error LNK2001: unresolved external symbol _toupper\nrtl.lib(strcase.obj) : error LNK2001: unresolved external symbol _toupper\nrtl.lib(philes.obj) : error LNK2001: unresolved external symbol _toupper\ndbffpt.lib(dbffpt1.obj) : error LNK2001: unresolved external symbol __allmul\ncommon.lib(hbstr.obj) : error LNK2001: unresolved external symbol __allmul\nrtl.lib(seconds.obj) : error LNK2001: unresolved external symbol __allmul\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol __allmul\nrdd.lib(dbf1.obj) : error LNK2001: unresolved external symbol __allmul\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol __allmul\nrtl.lib(set.obj) : error LNK2001: unresolved external symbol _fclose\nrtl.lib(fparse.obj) : error LNK2001: unresolved external symbol _fclose\nvm.lib(errorapi.obj) : error LNK2001: unresolved external symbol _fclose\nrtl.lib(trace.obj) : error LNK2001: unresolved external symbol _fclose\nrtl.lib(trace.obj) : error LNK2001: unresolved external symbol _fopen\nrtl.lib(set.obj) : error LNK2001: unresolved external symbol _fopen\nrtl.lib(fparse.obj) : error LNK2001: unresolved external symbol _fopen\nvm.lib(errorapi.obj) : error LNK2001: unresolved external symbol _fopen\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol _fopen\ncommon.lib(hbdate.obj) : error LNK2001: unresolved external symbol _strncpy\npcrepos.lib(pcreposix.obj) : error LNK2001: unresolved external symbol _strncpy\nvm.lib(hbi18n.obj) : error LNK2001: unresolved external symbol _strncpy\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _strncpy\nrdd.lib(dbf1.obj) : error LNK2001: unresolved external symbol _strncpy\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol _strncpy\nrtl.lib(regex.obj) : error LNK2001: unresolved external symbol _strncpy\nvm.lib(proc.obj) : error LNK2001: unresolved external symbol _strncpy\nvm.lib(cmdarg.obj) : error LNK2001: unresolved external symbol _strncpy\nvm.lib(memvars.obj) : error LNK2001: unresolved external symbol _strncpy\nrtl.lib(set.obj) : error LNK2001: unresolved external symbol _strncpy\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol _strncpy\nrtl.lib(fstemp.obj) : error LNK2001: unresolved external symbol _strncpy\nrtl.lib(hbffind.obj) : error LNK2001: unresolved external symbol _strncpy\nrtl.lib(strcase.obj) : error LNK2001: unresolved external symbol _tolower\nrtl.lib(cdpapi.obj) : error LNK2001: unresolved external symbol _tolower\nrtl.lib(at.obj) : error LNK2001: unresolved external symbol _isalpha\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isalpha\nrtl.lib(direct.obj) : error LNK2001: unresolved external symbol _strrchr\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol _strrchr\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _strrchr\nrtl.lib(direct.obj) : error LNK2001: unresolved external symbol _strpbrk\nrtl.lib(cdpapi.obj) : error LNK2001: unresolved external symbol _strpbrk\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol __setmode\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol __chdrive\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol __getdrive\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol _isatty\nrtl.lib(gtapi.obj) : error LNK2001: unresolved external symbol _isatty\nOLDNAMES.lib(isatty.obj) : error LNK2001: unresolved external symbol _isatty\nrtl.lib(filesys.obj) : error LNK2001: unresolved external symbol _eof\nOLDNAMES.lib(eof.obj) : error LNK2001: unresolved external symbol _eof\nrtl.lib(fparse.obj) : error LNK2001: unresolved external symbol _fgetc\nrtl.lib(console.obj) : error LNK2001: unresolved external symbol __iob\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol __iob\nrtl.lib(tprinter.obj) : error LNK2001: unresolved external symbol __chkstk\nvm.lib(estack.obj) : error LNK2001: unresolved external symbol __chkstk\npcrepos.lib(pcre_compile.obj) : error LNK2001: unresolved external symbol __chks\ntk\npcrepos.lib(pcre_exec.obj) : error LNK2001: unresolved external symbol __chkstk\nrtl.lib(fssize.obj) : error LNK2001: unresolved external symbol _stat\nOLDNAMES.lib(stat.obj) : error LNK2001: unresolved external symbol _stat\nrtl.lib(inkey.obj) : error LNK2001: unresolved external symbol _clock\nrtl.lib(idle.obj) : error LNK2001: unresolved external symbol _clock\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _clock\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isupper\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _islower\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isalnum\nvm.lib(arrayshb.obj) : error LNK2001: unresolved external symbol _isalnum\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _iscntrl\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isgraph\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isprint\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _ispunct\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isspace\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _isspace\ncommon.lib(hbstr.obj) : error LNK2001: unresolved external symbol _isspace\ncommon.lib(hbver.obj) : error LNK2001: unresolved external symbol _isspace\nrtl.lib(is.obj) : error LNK2001: unresolved external symbol _isxdigit\nrtl.lib(hbhex2n.obj) : error LNK2001: unresolved external symbol __allshl\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol __allshl\ncommon.lib(expropt2.obj) : error LNK2001: unresolved external symbol __allshl\nrtl.lib(hbhex2n.obj) : error LNK2001: unresolved external symbol __aullshr\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _exit\nvm.lib(errorapi.obj) : error LNK2001: unresolved external symbol _exit\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _exit\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _fmod\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol __allrem\nvm.lib(itemapi.obj) : error LNK2001: unresolved external symbol __allrem\nmacro.lib(macrob.obj) : error LNK2001: unresolved external symbol __allrem\ncommon.lib(expropt2.obj) : error LNK2001: unresolved external symbol __allrem\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _pow\ncommon.lib(hbstr.obj) : error LNK2001: unresolved external symbol _pow\ncommon.lib(reserved.obj) : error LNK2001: unresolved external symbol _strncmp\npcrepos.lib(pcre_compile.obj) : error LNK2001: unresolved external symbol _strnc\nmp\nmacro.lib(macroy.obj) : error LNK2001: unresolved external symbol _strncmp\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _strncmp\nmacro.lib(macrob.obj) : error LNK2001: unresolved external symbol _strncmp\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol _strncmp\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _strncmp\nvm.lib(classes.obj) : error LNK2001: unresolved external symbol _strncmp\nvm.lib(arrayshb.obj) : error LNK2001: unresolved external symbol _strncmp\nvm.lib(macro.obj) : error LNK2001: unresolved external symbol _strncmp\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _modf\nvm.lib(itemapi.obj) : error LNK2001: unresolved external symbol _modf\ncommon.lib(hbstr.obj) : error LNK2001: unresolved external symbol _modf\ncommon.lib(hbdate.obj) : error LNK2001: unresolved external symbol _modf\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol _div\ncommon.lib(hbdate.obj) : error LNK2001: unresolved external symbol _div\nvm.lib(hvm.obj) : error LNK2001: unresolved external symbol __alldiv\nvm.lib(itemapi.obj) : error LNK2001: unresolved external symbol __alldiv\nrdd.lib(dbf1.obj) : error LNK2001: unresolved external symbol __alldiv\ncommon.lib(expropt2.obj) : error LNK2001: unresolved external symbol __alldiv\nvm.lib(itemapi.obj) : error LNK2001: unresolved external symbol __finite\ncommon.lib(hbdate.obj) : error LNK2001: unresolved external symbol __snprintf\nvm.lib(itemapi.obj) : error LNK2001: unresolved external symbol __snprintf\nrdd.lib(workarea.obj) : error LNK2001: unresolved external symbol __snprintf\nrdd.lib(wafunc.obj) : error LNK2001: unresolved external symbol __snprintf\nrdd.lib(dbf1.obj) : error LNK2001: unresolved external symbol __snprintf\nvm.lib(dynsym.obj) : error LNK2001: unresolved external symbol _printf\nvm.lib(estack.obj) : error LNK2001: unresolved external symbol _printf\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _printf\nvm.lib(hbi18n.obj) : error LNK2001: unresolved external symbol _getenv\nvm.lib(macro.obj) : error LNK2001: unresolved external symbol _memchr\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _free\npcrepos.lib(pcreposix.obj) : error LNK2001: unresolved external symbol _free\npcrepos.lib(pcre_globals.obj) : error LNK2001: unresolved external symbol _free\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _malloc\npcrepos.lib(pcreposix.obj) : error LNK2001: unresolved external symbol _malloc\npcrepos.lib(pcre_globals.obj) : error LNK2001: unresolved external symbol _mallo\nc\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _strstr\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _realloc\nmacro.lib(macroslx.obj) : error LNK2001: unresolved external symbol _qsort\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol _ceil\ndbfntx.lib(dbfntx1.obj) : error LNK2001: unresolved external symbol _sqrt\nrtl.lib(math.obj) : error LNK2001: unresolved external symbol _sqrt\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol _close\nOLDNAMES.lib(close.obj) : error LNK2001: unresolved external symbol _close\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol _dup\nOLDNAMES.lib(dup.obj) : error LNK2001: unresolved external symbol _dup\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol _fileno\nOLDNAMES.lib(fileno.obj) : error LNK2001: unresolved external symbol _fileno\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol _fflush\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol _vfprintf\nrtl.lib(trace.obj) : error LNK2001: unresolved external symbol _vfprintf\ncommon.lib(hbtrace.obj) : error LNK2001: unresolved external symbol _fprintf\nOLDNAMES.lib(isatty.obj) : error LNK2001: unresolved external symbol __isatty\nOLDNAMES.lib(eof.obj) : error LNK2001: unresolved external symbol __eof\nOLDNAMES.lib(stat.obj) : error LNK2001: unresolved external symbol __stat\nOLDNAMES.lib(close.obj) : error LNK2001: unresolved external symbol __close\nOLDNAMES.lib(dup.obj) : error LNK2001: unresolved external symbol __dup\nOLDNAMES.lib(fileno.obj) : error LNK2001: unresolved external symbol __fileno\nrtl.lib(math.obj) : error LNK2001: unresolved external symbol __HUGE\nrtl.lib(math.obj) : error LNK2001: unresolved external symbol _exp\nrtl.lib(math.obj) : error LNK2001: unresolved external symbol _log\nrtl.lib(hbrandom.obj) : error LNK2001: unresolved external symbol _srand\nrtl.lib(hbrandom.obj) : error LNK2001: unresolved external symbol _time\nrtl.lib(hbrandom.obj) : error LNK2001: unresolved external symbol _rand\ntesttime.exe : fatal error LNK1120: 83 unresolved externals\n* There are errors\n\nT:\\fwh7\\SAMPLES&gt;','',0,'gA==','4cfz0w8o',1,0,'',167,0,0),(36248,7877,3,167,0,'207.119.126.13',1187206522,1,0,1,1,1,1,'','msvc compiler / linker','Where can I download current version of msvc 6.0????\n\nThe link on fivewin web site takes me to microsoft, but I\'m not sure what to download?????','',0,'gA==','q7oi81mr',1,0,'',167,0,0),(36249,7875,6,300,0,'201.67.95.230',1187206666,1,0,1,1,1,0,'','','[quote=&quot;Armando&quot;:j42nr2bp]Wanderson:\n\nUn spinner es un get con un scroll bar vertical.\n\nPon a YES la propiedad Vertical Scrollbar en Windows Style del get.\n\nSaludos[/quote:j42nr2bp]\n\nGracias funciono estupendo.\n\nSalu2','',0,'gA==','j42nr2bp',1,0,'',300,0,0),(36250,7878,6,179,0,'200.24.221.138',1187206926,1,0,1,1,1,1,'','dialogos transparentes con degrado','antonio buenas tardes\npregunta concreta\ntengo Fwh2.7 cuando hago un dialog con degradado los say que actualizo en runtime me salen con otro color que no corresponde, la pregunta es si en la ultima version ya tienes un remedio para eso, es decir para los Says , los Radio Buttoms y otros elementos ??\naca una imagen de esto\n[url=http&#58;//img167&#46;imageshack&#46;us/my&#46;php?image=dialognooi3&#46;jpg:1iu1no4s][img:1iu1no4s]http&#58;//img167&#46;imageshack&#46;us/img167/7896/dialognooi3&#46;th&#46;jpg[/img:1iu1no4s][/url:1iu1no4s]\n\nespero haberme explicado y gracias','',0,'GA==','1iu1no4s',1,0,'',179,0,0),(36251,7866,6,911,0,'200.72.141.53',1187207027,1,0,1,1,1,0,'','','Mil Gracias por el ejemplo René.\nTodo estaba ok, pero por algún motivo, la rutina dejó de funcionar. Se cae al realizar el \"[b:m9bz3n22]oDatos:Open()[/b:m9bz3n22]\" del recordset.\nAquí va el código y al final como estoy llamando a la función.\n\n[code:m9bz3n22]FUNCTION SQL&#40; cComando&#41;\n   LOCAL lOK&#58;=&#46;T&#46;\n\n   TRY\n      MsgInfo&#40; &quot;Línea 75&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n      oCon&#58;=toleauto&#40;&#41;&#58;new&#40;&quot;adodb&#46;connection&quot;&#41;\n      //oCon&#58;=CreateObject&#40;&quot;adodb&#46;connection&quot;&#41;\n   CATCH oError\n      MsgStop&#40; &quot;Línea 79&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n      lOK&#58;=&#46;F&#46;\n   END\n   IF lOk\n      oCon&#58;ConnectionString&#58;=cStringConexionLocal\n      TRY\n         MsgInfo&#40; &quot;Línea 85&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n         oCon&#58;Open&#40;&#41;\n      CATCH oError\n         MsgStop&#40; &quot;Línea 88&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n         lOK&#58;=&#46;F&#46;\n         oCon&#58;=NIL\n      END\n      IF lOk\n         //creamos un objeto recordset para ejecutar los queries\n         TRY\n            MsgInfo&#40; &quot;Línea 95&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n            oDatos&#58;=TOleAuto&#40;&#41;&#58;New&#40;&quot;adodb&#46;recordset&quot;&#41;\n            //oDatos&#58;=CreateObject&#40;&quot;adodb&#46;recordSet&quot;&#41;\n         CATCH oError\n            MsgStop&#40; &quot;Línea 99&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n            lOK&#58;=&#46;F&#46;\n            oCon&#58;Close&#40;&#41;\n            oDatos&#58;=NIL\n            oCon&#58;=NIL\n         END\n         IF lOk\n            oDatos&#58;CursorLocation  &#58;= adUseServer //adUseClient\n            oDatos&#58;LockType &#58;= adLockOptimistic\n            oDatos&#58;CursorType &#58;= adOpenKeyset\n            oDatos&#58;Source&#58;=cComando\n            oDatos&#58;ActiveConnection&#40;oCon&#41;\n            TRY\n               MsgInfo&#40; &quot;Línea 112&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n               oDatos&#58;Open&#40;&#41;\n            CATCH oError\n               MsgStop&#40; &quot;Línea 115&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n               MsgStop&#40;oError&#58;Operation,&quot;adodb&#46;recordset&quot;&#41;\n               lOK&#58;=&#46;F&#46;\n               oCon&#58;Close&#40;&#41;\n               oDatos&#58;=NIL\n               oCon&#58;=NIL\n            END\n         ELSE\n            oCon&#58;Close&#40;&#41;\n            oDatos&#58;=NIL\n            oCon&#58;=NIL\n         ENDIF\n      ELSE\n         oCon&#58;Close&#40;&#41;\n         oCon&#58;=NIL\n      ENDIF\n   ELSE\n      oCon&#58;=NIL\n   ENDIF\nRETURN lOk[/code:m9bz3n22]\n\n[code:m9bz3n22]IF Sql&#40;&quot;SELECT pass_u,pagina FROM EXT1_CENTROCLIP&#46;USUARIO WHERE trim&#40;nombre_u&#41;=\'&quot;+Alltrim&#40;cUsuario&#41;+&quot;\'&quot;&#41;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nENDIF[/code:m9bz3n22]\n\ncStringConexionLocal es una variable definida como pública que contiene el string de conexión a Oracle 10gR2.\n¿Qué podrá ser?\nSaludos y gracias nuevamente\nDavid Lagos S.','',0,'QIA=','m9bz3n22',1,0,'',911,0,0),(36252,7874,7,2,0,'87.218.146.193',1187211354,1,0,1,1,1,1,'','','Arturo,\n\nEn el Pocket PC tienes que especificar la ruta exacta del fichero:\n\nif (nFileMan:=FOPEN( [color=red:2o1h8knc]CurDir() + \"\\\" +[/color:2o1h8knc] cFile, FO_READ )) &lt;=0','',0,'Ag==','2o1h8knc',1,0,'',2,0,0),(36253,7877,3,2,0,'87.218.146.193',1187211757,1,0,1,1,1,1,'','','Don,\n\nYou may use MSVC 6.0 but we have found that Harbour/xHarbour and FWH work better if VC 98 is used. I know, it sounds quite strange, but its true <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> (Microsoft is using .NET on latest versions, turning them more complex internally).\n\nAlso, if you ever plan to use xHarbour.com, we also need to build FWH using VC 98 to get full compatibility with it.\n\nThe problem is to get VC 98, as Microsoft provided it for free, but its difficult to locate it. The only solution we can offer to you is to provide it to you.','',0,'Ag==','17jqikki',1,0,'',2,0,0),(36254,7876,3,2,0,'87.218.146.193',1187212217,1,0,1,1,1,1,'','','Don,\n\n&gt; FiveWin for xHarbour 2.8 (MSVC++) November 2007 xHarbour development power\n\nops, we left a wrong header by mistake. It should be:\nFiveWin for xHarbour 7.07 (MSVC++) July 2007\nAlready changed, thanks\n\nLook for a msvcrt.lib or similar in the MSVC libraries. You may need to link it, but probably the resulting EXE will not work <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> \n\nAs I comment you on another msg, you should use VC 98','',0,'Ag==','384q0oba',1,0,'',2,0,0),(36255,7878,6,2,0,'87.218.146.193',1187213130,1,0,1,1,1,1,'','','Wilson,\n\nEstás haciendo el degradado usando un brush ? Hazlo con un brush\n\n   DEFINE BRUSH oBru FILENAME \"degradado.bmp\"\n\n   DEFINE DIALOG oDlg SIZE 400, 200 BRUSH oBru TRANSPARENT','',0,'Ag==','2e0rtubn',1,0,'',2,0,0),(36256,7877,3,167,0,'207.119.126.13',1187214518,1,0,1,1,1,1,'','','I think that is what I have.  The box (I purchased it many years ago) says Visual C++ 6.0 but installs to the following folder:\n\nC:\\Program Files (x86)\\Microsoft Visual Studio\\VC98&gt;\n\nThe link.exe is:\n06/25/1998  12:00 AM           462,901 LINK.EXE\n\nThe compiler is:\n06/17/1998  12:00 AM            65,536 CL.EXE\n\nAlso, I located the msvcrt.lib you suggested:\n06/17/1998  12:00 AM           189,676 MSVCRT.LIB\n\nAre these the files I need?','',0,'Ag==','1shldt5h',1,0,'',167,0,0),(36257,7876,3,167,0,'207.119.126.13',1187214896,1,0,1,1,1,1,'','','I included the msvcrt.lib and things are much better.\n\nNow, I\'m down to:\n\n&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for xHarbour 2.8 (MSVC++) November 2007 xHarbour development power &#9474;&#9604;\n&#9474; (c) FiveTech, 1993-2007      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;&#9608;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9608;\n  &#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;\nCompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'testtime.prg\' and generating preprocessed output to \'testtime.ppo\'...\n\nLines 52, Functions/Procedures 3\nGenerating C source output to \'testtime.c\'...\nDone.\nMicrosoft (R) 32-bit C/C++ Optimizing Compiler Version 12.00.8168 for 80x86\nCopyright (C) Microsoft Corp 1984-1998. All rights reserved.\n\ntesttime.c\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in msvcrt.lib(merr.obj); second definition ignored\nrtl.lib(math.obj) : warning LNK4006: __matherr already defined in msvcrt.lib(merr.obj); second definition ignored\n\n   Creating library testtime.lib and object testtime.exp\n\n[b:3n5izrqm]rtl.lib(math.obj) : error LNK2001: unresolved external symbol __HUGE[/b:3n5izrqm]\n\ntesttime.exe : fatal error LNK1120: 1 unresolved externals\n\n* There are errors\n\nT:\\fwh7\\SAMPLES&gt;','',0,'QA==','3n5izrqm',1,0,'',167,0,0),(36258,7878,6,179,0,'200.24.221.138',1187215727,1,0,1,1,1,1,'','','asi queda Antonio, correcto\n\n[url=http&#58;//img513&#46;imageshack&#46;us/my&#46;php?image=degrast6&#46;jpg:1gbji2ga][img:1gbji2ga]http&#58;//img513&#46;imageshack&#46;us/img513/7122/degrast6&#46;th&#46;jpg[/img:1gbji2ga][/url:1gbji2ga]\n\ngracias, una sola pregunta se puede asignarle el oBrush al dialog en el evento on INIT ??\n\notra pregunta el BMP de que dimensiones debe ser para que quede bien ??\n\ny si es posible cargarlo desde recursos ??\n\n\ngracias x tu ayuda \nsaludos','',0,'GA==','1gbji2ga',1,0,'',179,0,0),(36259,7876,3,2,0,'87.218.146.193',1187217528,1,0,1,1,1,1,'','','Don,\n\nPlease add this code to your main PRG just for a quick test:\n[code:1nfbewt2]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n\nvoid _HUGE&#40; void &#41;\n&#123;\n   MessageBox&#40; 0, &quot;inside Huge&quot;, &quot;ok&quot;, 0 &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:1nfbewt2]','',0,'AIA=','1nfbewt2',1,0,'',2,0,0),(36260,7877,3,2,0,'87.218.146.193',1187217641,1,0,1,1,1,1,'','','Don,\n\nCool, you have the right files <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','bxu0lt86',1,0,'',2,0,0),(36261,7878,6,2,0,'87.218.146.193',1187217921,1,0,1,1,1,1,'','','Wilson,\n\n&gt;\ngracias, una sola pregunta se puede asignarle el oBrush al dialog en el evento on INIT ?? \n&gt;\n\nSí, deberías poder asignarlo desde ahí sin problemas\n\n&gt; otra pregunta el BMP de que dimensiones debe ser para que quede bien ?? \n\nLo idóneo es estrecho y vertical, con una longitud suficiente para que rellene todo el alto del diálogo, con colores degradados\n\n&gt; y si es posible cargarlo desde recursos ?? \n\nSi, perfectamente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','sw0mttte',1,0,'',2,0,0),(36262,7878,6,179,0,'200.24.221.138',1187218376,1,0,1,1,1,1,'','','gracias Antonio por tu ayuda\nsaludos','',0,'AIA=','vk16oayc',1,0,'',179,0,0),(36263,7859,6,1106,0,'190.64.200.146',1187221312,1,0,1,1,1,0,'','','Muchas gracias Jorge, pero no los encuentro.\n\nSaludos y Gracias.\n\nRuben Fernandez','',0,'AIA=','11xdzbwi',1,0,'',1106,0,0),(36264,7879,6,975,0,'190.90.65.242',1187225847,1,0,1,1,1,0,'','Para Antonio Linares S.O.S','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> Antonio, Estamos corriendo uno de los programas de ejemplo que fué enviado junto con el Software. el archivo es Ejemcont.prg. acontinuación te envio el error que me presenta el programa.\n\nAdemás los iconos contenidos en la DLL no aparecen en el programa.\n\nFavor indicarme que debo corregir.\n\nGracias.\n\nApplication\n===========\n   Path and name: C:\\FWH\\SAMPLES\\account\\EJEMCONT.exe (32 bits)\n   Size: 1,230,848 bytes\n   Time from start: 0 hours 0 mins 51 secs \n   Error occurred at: 15/08/07, 07:13:16\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Resource: EntraGasto\n\nStack Calls\n===========\n   Called from: .\\source\\classes\\DIALOG.PRG =&gt; CREATEDLGERROR(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: EJEMCONT.prg =&gt; ENTRADAGASTO(862)\n   Called from: EJEMCONT.prg =&gt; (b)HAZMENU(272)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: EJEMCONT.prg =&gt; MAIN(93)','',0,'AIA=','u15m3d9m',1,0,'',975,0,0),(36265,7869,6,925,0,'190.20.148.109',1187225888,1,0,1,1,1,0,'','hb_zipfile con tanimate','Gracias Horacio por tu respuesta, como dices tu solo funciona para cada ciclo es decir cuando quiero compactar varios archivos puedo hacer esa funcion pero solo queria compactar un archivo que pesa +- 100.000 mb y no puedo hacer ciclo por un archivo.','',0,'AIA=','412bmaf9',1,0,'',925,0,0),(36266,7880,3,233,0,'218.208.251.40',1187227789,1,0,1,1,1,0,'','[Treeview]: How to programmatically select...','How to programmatically select the very first item of the very first branch of a tree?','',0,'AIA=','32o6welg',1,0,'',233,0,0),(36267,7836,6,92,0,'80.33.140.85',1187248653,1,0,1,1,1,0,'','Re: Documentación winasp FreeWare','[quote=&quot;joms&quot;:3mdb0wwx]\n...\nTambién hay documetación disponible en el sitio web.\n[/quote:3mdb0wwx]\n\nNo encuentro la documentación que mencionas; en que link está?\n\nSaludos\nCarlos G.','',0,'gA==','3mdb0wwx',1,0,'',92,0,0),(36268,7880,3,2,0,'87.218.146.193',1187252064,1,0,1,1,1,1,'','','Hua,\n\nYou just need to keep a reference to the first item:\n\n   oItem1 = oTree:Add( \"First one\" )\n\nand then, later on, just select it:\n\noTree:Select( oItem1 )','',0,'gA==','nsg2ihl7',1,0,'',2,0,0),(36269,7881,20,20,0,'87.3.215.118',1187252139,1,0,1,1,1,0,'','Animazione con bitmap','In un programma ho inserito una breve animazione utilizzando una serie di bitmap unitamente alla funzione SetBmp. Funziona egregiamente, ma durante l\'animazione, l\'immagine \"sfarfalla\", \"lampeggia\" (non so come definirla). E\' possibile eliminare questo fenomeno?\n\nGrazie.\nPier Luigi','',0,'gA==','1bpgp3wh',1,0,'',20,0,0),(36270,7879,6,2,0,'87.218.146.193',1187252324,1,0,1,1,1,1,'','','Las DLLs de ese ejemplo son de 16 bits. Las habeis pasado a 32 bits ? \n\nTeneis que extraer el RC que contienen, usando el editor de recursos de Borland, y una vez tengais el RC, construir la DLL en 32 bits usando DLL\\rc2dll32.bat','',0,'gA==','3vgmraz3',1,0,'',2,0,0),(36271,7881,20,2,0,'87.218.146.193',1187252593,1,0,1,1,1,1,'','','Pier,\n\nAre you using XP themes ? Are the images painted transparently ?','',0,'gA==','gonv6xnt',1,0,'',2,0,0),(36272,7881,20,20,0,'87.3.215.118',1187253147,1,0,1,1,1,0,'','','Yes, I use XP themes and the image is painted transparently.\n\nPier Luigi','',0,'gA==','1q9nvf2m',1,0,'',20,0,0),(36273,7881,20,2,0,'87.218.146.193',1187254247,1,0,1,1,1,1,'','','Pier,\n\nI guess that you mean \"flickering\". If yes, then Class TBitmap already uses \"double buffer\" painting technique to avoid the flickering.\n\nPlease check if your source\\classes\\bitmap.prg file contains these lines:\n[code:15by18ot]\nMETHOD Paint&#40;&#41; CLASS TBitmap\n\n   local aInfo &#58;= &#58;&#58;DispBegin&#40;&#41;\n   &#46;&#46;&#46;\n[/code:15by18ot]','',0,'AIA=','15by18ot',1,0,'',2,0,0),(36274,7845,3,972,0,'81.164.48.155',1187256184,1,0,1,1,1,0,'','Re: RDDADS.LIB for xHarbour.com build july 2005','[quote=&quot;dutch&quot;:1euvmc7o]Dear All,\n\nI use FWH 2.5 and xHarbour builder build july 2005.  I cannot find the matched RDDADS.LIB from anywhere.  In xHarbour\\lib have not RDDADS.LIB and for xHarbour that come with FWH 2.5 is not compatible with xHarbour.com.  It shows the message lib is corrupt.  I try in Harbour.org contribute section but I cannot find it.\n\nWhere do I get RDDADS.LIB, pls?\n\nDutch[/quote:1euvmc7o]\n\nIn xHarbour Builder the file is called ADS.LIB. You can find it in xHB\\Lib\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','1euvmc7o',1,0,'',972,0,0),(36275,7881,20,6,0,'87.11.236.117',1187257579,1,0,1,1,1,1,'','Re: Animazione con bitmap','Con un esempio minimale del problema sarebbe più facile aiutarti.\n\nEMG','',0,'gA==','keun3ij5',1,0,'',6,0,0),(36276,7882,3,47,0,'203.144.160.247',1187260844,1,0,1,1,1,0,'','How do I set ADS?','Dear ADS expert,\n\nI download DEMO ADS 8.1 and install it.  What I do the setup and configuration.  I try create with existing database but it is a little bit confuse and I cannot go forward or what I should start to config?\n\nThanks in advance for any help.\n\nRegards,\nDutch','',0,'gA==','u5d5k98h',1,0,'',47,0,0),(36277,7870,3,909,0,'71.71.110.50',1187264031,1,0,1,1,1,1,'','','Enrico - \nYou can download a sample that shows the problem from <!-- m --><a class=\"postlink\" href=\"http://www.softraksystems.com/download/append.zip\">http://www.softraksystems.com/download/append.zip</a><!-- m -->  Run the exe file and look at the prg file.  I also included the error.log which appears in the app directory after it overwrites the first one that you see when the error occurs.  The one you see says \"alias not found\", but is overwritten by the one that says \"hb_cdxIndexFree: Index file still locked.\"  \n\nThe problem appears to be that dbCloseArea() does not release the lock on the CDX file that has been previously opened with the dbf file as EXCLUSIVE.  \n\nThanks for your help.\n\nCharles','',0,'gA==','2prrha5k',1,1187275388,'',909,1,0),(36278,7881,20,2,0,'87.218.146.193',1187264252,1,0,1,1,1,1,'','','Dear Enrico,\n\nYour mail server has blocked ours again:\n&lt;e.m.giordano@alice.it&gt;:\n85.33.2.53 does not like recipient.\nRemote host said: 550 5.7.1 213.149.226.3 has been blocked by abuseat\nGiving up on 85.33.2.53.\n\nso the forums can\'t notify you again. You could get a new gmail account','',0,'gA==','3t9b01ue',1,0,'',2,0,0),(36279,7883,3,161,0,'213.119.247.9',1187264676,1,0,1,1,1,0,'','INDEX FOR problem','Hi,\n\nI got a strange error. \ni use in my program \n[code:133jb3xs]         use lvrlog new\n         INDEX ON str&#40;val&#40;type&#41;,2&#41;+str&#40;val&#40;noden&#41;,2&#41;+str&#40;val&#40;modn&#41;,2&#41; TAG MODULE for val&#40;modn&#41;#0\n         msginfo&#40;ordfor&#40;&#41;&#41;\n         INDEX ON str&#40;val&#40;type&#41;,2&#41;+str&#40;val&#40;noden&#41;,2&#41;                  TAG PM     for &#40;nr = \'4\' &#46;or&#46; nr = \'6\'&#41; &#46;and&#46; nodet # \'HG\' &#46;and&#46; nodet # \'NIM\'\n         msginfo&#40;ordfor&#40;&#41;&#41;\n\n   [/code:133jb3xs]\n\nIn the first message the filtering is shown but in the second it\'s empty. Also if I browse the database, all records are shown.\nIf I create a small test-program, everything works fine.\nDoes anyone have a clue why this happend in my main program?\n\nThanks\nMarc','',0,'AIA=','133jb3xs',1,0,'',161,0,0),(36280,7861,6,147,0,'200.45.54.134',1187267930,1,0,1,0,1,1,'','','Gracias Willi;\nEs lo que necesito. Ya me esta controlando el tiempo de trabajo y es muy buchón jejejejeje\n\nsaludos','',0,'AIA=','1fzrjv58',1,0,'',147,0,0),(36281,7883,3,2,0,'87.218.146.193',1187268846,1,0,1,1,1,1,'','','Marc,\n\nAre you using Harbour or xHarbour ?','',0,'AIA=','2hbbbrwl',1,0,'',2,0,0),(36282,7871,6,439,0,'200.125.35.252',1187269108,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:934d1u90][quote=&quot;Antonio Linares&quot;:934d1u90]Tienes varios ejemplos en FWH\\samples\\phone.prg y TestComm.prg.\n\nNo necesitan la librería que comentas[/quote:934d1u90]\n\nMAESTRO, ESTO NO FUNCIONA CON HBCOMM.LIB\n\n\nMira...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=606\">http://www.fivewin.com.br/exibedicas.asp?id=606</a><!-- m -->[/quote:934d1u90]\n\nAquí tienes un ejemplo, lo utilizo para capturar la info de una balanza digital y usa hbcomm.lib\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?e1w7gztz5me\">http://www.mediafire.com/?e1w7gztz5me</a><!-- m -->\n\nespero que te sirva, funciona perfectamente con FWH 7.01','',0,'gA==','934d1u90',1,0,'',439,0,0),(36283,7829,3,104,0,'201.58.156.106',1187269525,1,0,1,1,1,0,'','','Olá Clemerson,\n\nVeja se é isto que você precisa:\n\n[code:3mh3p5lp]\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main\n\n   local oWnd\n\n   if IsExeRunning&#40; cFileName&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n      msgstop&#40; &quot;Este programa ja esta sendo executado !!!&quot; &#41;\n      ShowApplication&#40;&#41;\n   else\n      DEFINE WINDOW oWnd TITLE &quot;Teste&quot;\n\n      ACTIVATE WINDOW oWnd\n   endif\n   \nreturn nil\n\nfunction ShowApplication\n\n   local hWnd &#58;= FindWindow&#40; 0, &quot;Teste&quot; &#41;\n\n   if hWnd != nil\n      showwindow&#40; hWnd, 0 &#41;\n      showwindow&#40; hWnd, 6 &#41;\n      showwindow&#40; hWnd, 9 &#41;\n   endif\n\nreturn nil\n[/code:3mh3p5lp]\n\nAbraços,\n\nRossine.','',0,'AIA=','3mh3p5lp',1,0,'',104,0,0),(36284,7884,6,694,0,'201.86.90.130',1187271002,1,0,1,1,1,1,'','Como trocar Cursor na REBAR (Barra de botões) ?','Antonio, como trocar o cursor quando o mouse esta sobre a classe REBAR?\n\nGracias\n\nAoki','',0,'AIA=','2dvgfb95',1,0,'',694,0,0),(36285,7836,6,53,0,'189.139.94.180',1187272050,1,0,1,1,1,1,'','','Carlos:\n\nLa encuentras en DOWNLOAD (DESCARGAS)\n\nSaludos','',0,'AIA=','28iql9hk',1,0,'',53,0,0),(36286,7859,6,53,0,'189.139.94.180',1187272136,1,0,1,1,1,1,'','','Rubén:\n\nEn la zona DOWNLOAD (DESCARGA)\n\nSaludos','',0,'AIA=','e0drslju',1,0,'',53,0,0),(36287,7885,6,911,0,'200.72.141.53',1187272532,1,0,1,1,1,0,'','Nuevamente ADO+Oracle [SOLUCIONADO]','Hola Nuevamente:\nSegún el código que expongo a continuación:\n[code:1fwan6gm]FUNCTION Sql2&#40; cComando&#41;\n   LOCAL lOK&#58;=&#46;T&#46;, oCon, oDatos, aResultados&#58;=Array&#40;3&#41;\n   oCon&#58;=toleauto&#40;&#41;&#58;new&#40;&quot;adodb&#46;connection&quot;&#41;\n   //oCon&#58;=CreateObject&#40;&quot;adodb&#46;connection&quot;&#41;\n   //oCon&#58;ConnectionString&#58;=cStringConexionLocal\n   oCon&#58;ConnectionString&#58;=&quot;Provider=OraOLEDB&#46;Oracle;Data Source=192&#46;168&#46;0&#46;8&#58;1521/servicio;User ID=miusuario;Password=mipassword;&quot;\n   oCon&#58;Open&#40;&#41;\n\n   //oDatos&#58;=CreateObject&#40;&quot;adodb&#46;recordset&quot;&#41;\n   oDatos&#58;=toleauto&#40;&#41;&#58;new&#40;&quot;adodb&#46;recordset&quot;&#41;\n   oDatos&#58;LockType &#58;= adLockOptimistic\n   oDatos&#58;CursorType &#58;= adOpenKeyset\n   oDatos&#58;ActiveConnection&#40;oCon&#41;\n   oDatos&#58;Source &#58;= cComando\n   TRY\n      oDatos&#58;Open&#40;&#41;\n   CATCH oError\n      MsgStop&#40; &quot;Línea 148&#58; Error al abrir el recordset&quot;, &quot;¡Error Crítico!&quot;&#41;\n      lOK&#58;=&#46;F&#46;\n      oCon&#58;=NIL\n   END\n   aResultados&#91;1&#93;&#58;=lOk\n   IF lOk\n      aResultados&#91;2&#93;&#58;=oCon\n      aResultados&#91;3&#93;&#58;=oDatos\n   ENDIF\nRETURN aResultados[/code:1fwan6gm]\n\nTengo instalado el OleDB Provider de Oracle (nativo), string de conexión funciona ya que he verificado el estado de la conexión y se abre. Lamentablemente al momento de realizar el oDatos:Open() falla y no logra ejecutar la sentencia SQL.\nHay alguna manera de realizar esto a través del adodb.command?. Lo importante es que debo de alguna manera pasar el\n[code:1fwan6gm]oDatos&#58;LockType &#58;= adLockOptimistic\noDatos&#58;CursorType &#58;= adOpenKeyset[/code:1fwan6gm] para que oDatos:RecordCount no regrese -1.\nAyuda por favor ya que veo que todo está bien hecho e igual falla.\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'AIA=','1fwan6gm',1,1187279640,'',911,1,0),(36288,7870,3,6,0,'87.11.236.117',1187272976,1,0,1,1,1,1,'','','Page not found. Please paste here the PRG showing the problem.\n\nEMG','',0,'AIA=','10tqylvu',1,0,'',6,0,0),(36289,7846,2,1107,0,'200.52.205.211',1187273170,1,0,1,1,1,0,'','Antonio','Muchas Gracias por todos los consejos y tu apoyo, estoy de acuerdo hay que cambiar la forma estructurada de pensar, a pensar en función de la programación orientada a objetos.\n\nLo consideraré para mi verificador de precios\n\nGuillermo','',0,'AIA=','39pvgufi',1,0,'',1107,0,0),(36290,7882,3,138,0,'189.156.42.111',1187275429,1,0,1,1,1,1,'','','Dutch:\n\nIf it\'s already installed and running in your server, there\'s nothing else you need to do, you are ready to go.\n\nJust make the changes I explained to you in your source code and your program is ready to ADS. Go ahead, compile and run, you will see the difference.\n\nYou will need to use a \"DATA DICTIONARY\" but that\'s very easy to implement, and there\'s no need to use it with free tables, but you will need to use it for internet connection.','',0,'AIA=','1higasc1',1,0,'',138,0,0),(36291,7870,3,909,0,'71.71.110.50',1187275506,1,0,1,1,1,1,'','','Enrico - \nNow the download link works.  Sorry I didn\'t test it before.\n\nCharles','',0,'AIA=','1kxz5sjc',1,0,'',909,0,0),(36292,7862,6,987,0,'189.132.14.186',1187275575,1,0,1,1,1,0,'','','Maestro Antonio Linares:\n\nLe comento que estuve haciendo pruebas con los ejemplos que me dio, pero sigue sin funcionar, pero usted me dio una idea de como solucionarlo lo que hize fue lo siguiente:\n\nLOCAL nColumna:= 950\nLOCAL     nAltura:= 78 (Altura del Dialogo en Pixeles)\nLOCAL      nLinea:= GetSysMetrics(17) - nAltura\n...\nActivate Dialog oDlg on init oDlg:Move(nLinea, nColumna)\n\nFunciona, pero el algunas ocaciones lo pociciona unos pixeles arriba o abajo, de todas maneras con esta base ya puedo empezar a buscar como resolverlo, lo unico que no entiendo y no se si sea lo correcto es si es posible saber la altura de la barra de mensajes lo hago así:\n\nmsginfo(oWndMain:oMsgBar:nHeight())\nmsginfo(oWndMain:oMsgBar:Height)\n\nya que siempre me da 24, aunque visualmente el tamaño cambia.\n\nSaludos y nuevamente gracias..','',0,'AIA=','30p4tvve',1,0,'',987,0,0),(36293,7885,6,138,0,'189.156.42.111',1187275624,1,0,1,1,1,1,'','','Que valores tienen las constantes adLockOptimistic y adOpenKeySet ?','',0,'AIA=','sso7fp3w',1,0,'',138,0,0),(36294,7861,6,987,0,'189.132.14.186',1187275942,1,0,1,1,1,0,'','','Saludos Willi Quintana:\n\n Yo tambien estoy buscando uno, hay uno de pago (c5) pero no tengo posibilidades $$$ <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  podrías tambien mandarmelo por correo:\n\n<!-- e --><a href=\"mailto:danyleon82@hotmail.com\">danyleon82@hotmail.com</a><!-- e -->\n\nTe lo agradecería mucho.\n\nSaludos desde México y Gracias...\n\nvisita mi web:\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'AIA=','2lhsvtke',1,0,'',987,0,0),(36295,7861,6,940,0,'189.157.84.236',1187276819,1,0,1,1,1,1,'','','Willi,\n\ntambien a mi si tienes oportunidad,\n\n<!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:sysctrl@prodigy.net.mx\">sysctrl@prodigy.net.mx</a><!-- e -->\n\nsaludos cordiales.','',0,'AIA=','3q7flg5b',1,0,'',940,0,0),(36296,7885,6,911,0,'200.72.141.53',1187279570,1,0,1,1,1,0,'','','Gracias René por tu interés.\nYa resolví el problema. Sencillamente tenía que copiar todas las dll\'s que instala el oledb provider de oracle a la misma carpeta donde reside mi .exe\n¿Porqué?, lo desconozco. Quizás el instalador del provider no las registra adecuadamente, etc.\nUn detalle muy importante:\n[b:2im4a5hw]Si no expecifico:[/b:2im4a5hw]\n[code:2im4a5hw]oDatos&#58;CursorLocation  &#58;= adUseClient[/code:2im4a5hw]\n[b:2im4a5hw]Sencillamente oDatos:RecordCount devuelve igual -1.\nEsto también sucede en MySql con el cliente ODBC 3.51[/b:2im4a5hw]\nHaciendo eso, pasó inmediatamente.\nSaludos\nNos vemos en octubre por acá.\nDavid Lagos S.\nCoquimbo-Chile','',0,'QIA=','2im4a5hw',1,0,'',911,0,0),(36297,7883,3,161,0,'81.83.249.31',1187279803,1,0,1,1,1,0,'','','Antonio,\n\nI\'m using xHarbour.\n\nMarc','',0,'QIA=','f2qciw5i',1,0,'',161,0,0),(36298,6480,6,1072,0,'200.83.125.44',1187279888,1,0,1,1,1,0,'','','Hola Marco:\n\nMe agrego a los colegas,  me puedes enviar la clase a mi correo.\n\n<!-- e --><a href=\"mailto:marf2@tutopia.com\">marf2@tutopia.com</a><!-- e -->\n\nMuchas gracias desde ya,\n\nMiguel R.','',0,'QIA=','35h716cf',1,0,'',1072,0,0),(36299,7870,3,6,0,'87.11.236.117',1187280611,1,0,1,1,1,1,'','','The following sample works fine here:\n\n[code:gzeb0yxy]REQUEST DBFCDX\n\n\nFUNCTION MAIN&#40;&#41;\n\n    RDDSETDEFAULT&#40; &quot;DBFCDX&quot; &#41;\n\n    DBCREATE&#40; &quot;ERRTEST&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 35, 0 &#125; &#125; &#41;\n\n    USE ERRTEST\n\n    INDEX ON FIELD -&gt; test TO ERRTEST\n\n    APPEND BLANK\n\n    REPLACE FIELD -&gt; test WITH &quot;Test&quot;\n\n    DBCREATE&#40; &quot;ERRTEST2&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 35, 0 &#125; &#125; &#41;\n\n    USE ERRTEST2\n\n    APPEND FROM ERRTEST\n\n    RETURN NIL[/code:gzeb0yxy]\n\nPlease add the minimal amount of code needed to replicate the problem.\n\nEMG','',0,'AIA=','gzeb0yxy',1,0,'',6,0,0),(36300,7859,6,1106,0,'190.64.208.65',1187281515,1,0,1,1,1,0,'','','Armando:\nAhora si la encontré.\n\nMuchas gracias y Saludos.\n\nRuben Fernandez.','',0,'AIA=','2zu1g2r4',1,0,'',1106,0,0),(36301,7883,3,2,0,'87.218.146.147',1187283621,1,0,1,1,1,1,'','','Could you please try to build your app using Harbour ? thanks,','',0,'AIA=','beg70z51',1,0,'',2,0,0),(36302,7881,20,20,0,'87.3.215.118',1187283627,1,0,1,1,1,0,'','','Antonio,\n\nIt is ok! I used one old version of Bitmap class   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nOne question:\n\nI would want the resize of a bitmap.\nCan I use the function ::DispBegin() with WndSetSize() to avoid the \"flickering\" ?\n\nFor example:\n\naInfo := oBmp:DispBegin()\nWndSetSize( oBmp:hWnd, nWidth, nHeight, .t. )\n...\n\nRegards\nPier Luigi','',0,'AIA=','10r5anje',1,0,'',20,0,0),(36303,7881,20,2,0,'87.218.146.147',1187284086,1,0,1,1,1,1,'','','Pier,\n\nThe double buffer painting is only required at the Paint() method. If you resize the control, it should not flick','',0,'AIA=','1p82xzcg',1,0,'',2,0,0),(36304,6480,6,43,0,'189.188.14.90',1187285016,1,0,1,1,1,0,'','','Ahi esta link para bajarla Miguel.\n\nsi desean saber mas de RMCHART, les sugiero que visiten el foro del creador de RMACHART, ahi encontraran mas ejemplos.\n\n\nSaludos\nMarco A. Delgado.','',0,'AIA=','2577wgd3',1,0,'',43,0,0),(36305,7884,6,2,0,'87.218.146.147',1187285640,1,0,1,1,1,1,'','','Aoki,\n\nModify this method in Class TToolBar:\n\n   METHOD MouseMove() INLINE If( ::oCursor != nil, SetCursor( ::oCursor:hCursor ),), nil\n\nThen in your code simply do:\n\n   DEFINE CURSOR oHand RESOURCE \"hand\"\n...\n   oToolBar:oCursor = oHand','',0,'AIA=','1j0qr8jp',1,0,'',2,0,0),(36306,7836,6,92,0,'213.98.202.136',1187287085,1,0,1,1,1,0,'','','[quote=&quot;Armando&quot;:1lp3w5ud]Carlos:\n\nLa encuentras en DOWNLOAD (DESCARGAS)\n\nSaludos[/quote:1lp3w5ud]\n\nGracias Armando, ahora si la vi.\n\nSaludos\nCarlos G.','',0,'gA==','1lp3w5ud',1,0,'',92,0,0),(36307,7876,3,167,0,'207.119.126.13',1187289705,1,0,1,1,1,1,'','','My testing continues of new FWH version.\n\nThe addition of the _huge section resolved the link error - so far no unwanted side effects.  Also, the code has not been executed, but I will continue to test and look for consequences.\n\nNow, I have a question regarding MSVC 6.0 and the xHarbour debugger.\nI have inserted altd(1) and altd() commands in the source code and compiled the module with /b switch.\n\nI specificed subsystem CONSOLE in the Link Step and received an unresolved external as shown below:\n\nlink \n@biswinh.LNK \n/NODEFAULTLIB:LIBC \n/nologo \n/OUT:BISWINHM.EXE  \n/subsystem:CONSOLE  \n/force:multiple \n\nThis creates the error:\n\nmsvcrt.lib(crtexe.obj) : error LNK2001: unresolved external symbol _main\n\nSo .... What other libraries might I need to link into app when I compile with /b switch and use debug.lib and altd() function?','',0,'gA==','33qtmyl4',1,0,'',167,0,0),(36308,7807,6,945,0,'217.216.165.130',1187294511,1,0,1,1,1,0,'','','Antetodo muchas gracias por todo, mirar ¿Sabéis donde puedo encontrar el fichero gdiplus.ch?\n\nUn Saludo.','',0,'gA==','1xyjkzcn',1,0,'',945,0,0),(36309,7886,6,911,0,'200.72.141.53',1187295282,1,0,1,1,1,0,'','PellesC+TWBROWSE+DIALOG','Hola:\nTengo un custom control definido en un .RES y tengo el siguiente código:\n[code:12zmzfzr]DEFINE DIALOG oDlg RESOURCE &quot;LISTADO&quot;\n            REDEFINE LISTBOX oBrw ;\n               FIELDS aResultado&#91;3&#93;&#58;Fields&#40;0&#41;&#58;value, ;\n                      aResultado&#91;3&#93;&#58;Fields&#40;1&#41;&#58;value, ;\n                      aResultado&#91;3&#93;&#58;Fields&#40;2&#41;&#58;value ;\n               ID 1010;\n               HEADERS &quot;CAMPO1&quot;, &quot;CAMPO2&quot;, &quot;CAMPO3&quot; OF oDlg\n            oBrw&#58;bLogicLen &#58;= &#123; || aResultado&#91;3&#93;&#58;RecordCount &#125;\n            oBrw&#58;bGoTop    &#58;= &#123; || aResultado&#91;3&#93;&#58;MoveFirst&#40;&#41; &#125;\n            oBrw&#58;bGoBottom &#58;= &#123; || aResultado&#91;3&#93;&#58;MoveLast&#40;&#41; &#125;\n            oBrw&#58;bSkip     &#58;= &#123; | nSkip | Skipper&#40; aResultado&#91;3&#93;, nSkip &#41; &#125;\n            oBrw&#58;cAlias    &#58;= &quot;ARRAY&quot;\n\n            REDEFINE BUTTON ID 301 OF oDlg ACTION &#40; oDlg&#58;bValid&#58;=&#123; || &#46;T&#46;&#125;, oDlg&#58;End&#40;&#41;&#41; ;\n               CANCEL\n            ACTIVATE DIALOG oDlg CENTER VALID &#46;F&#46;[/code:12zmzfzr]\n\nSe cuelga mi aplicación al momento de realizar el ACTIVATE DIALOG.\nNo muestra ningún mensaje, simplemente se cuelga y la tengo que botar a mano.\nLos datos que estoy colocando vienen de un objeto creado con Adodb.recordset.\nEl problema no es el objeto.\nSaludos y gracias de antemano\nDavid Lagos S.\nCoquimbo-Chile','',0,'AIA=','12zmzfzr',1,0,'',911,0,0),(36310,7887,2,1107,0,'200.92.109.209',1187300618,1,0,1,1,1,0,'','Ejemplos de codigo FW','Solicito de la manera más atenta a quién tenga ejemplos de código escrito en FW (Archivos PRG), que debo de hacer para obtenerlos, ya analice todos los ejemplos que vienen con CD de FW y realmente es código muy sencillo, requiero algo más práctico que me permita disipar todas las dudas que tengo.\n\nGracias\n\nGuillermo Guevara C.\nFW2.3 Clp5.20 Blk3.30','',0,'AIA=','6v2h23h0',1,0,'',1107,0,0),(36311,7876,3,2,0,'87.218.146.147',1187300833,1,0,1,1,1,1,'','','Don,\n\n&gt; I specificed subsystem CONSOLE in the Link Step\n\nDon\'t do that. CONSOLE means a non Windows GUI application as it is not the case. Thats why the linker is looking for main instead of WinMain (provided by xHarbour).\n\n&gt; What other libraries might I need to link into app\n\nJust debug.lib, and you have to use GTWIN.lib instead of GTGUI.lib, just for debuging. For normal execution, you have to use GTGUI.lib','',0,'AIA=','3hnur9o9',1,0,'',2,0,0),(36312,7887,2,2,0,'87.218.146.147',1187301410,1,0,1,1,1,1,'','','Guillermo,\n\nEn los ejemplos de FiveWin tienes ejemplos más complejos que pueden servirte de guía:\nsamples\\FiveGen\\*.prg  (generador de aplicaciones tipo ERP)\nsamples\\Account\\*.prg  (programa de contabilidad)','',0,'AIA=','36hiqb4j',1,0,'',2,0,0),(36313,7886,6,2,0,'87.218.146.147',1187302637,1,0,1,1,1,1,'','','David,\n\n&gt;\naResultado[3]:Fields(0):value, ;\n                      aResultado[3]:Fields(1):value, ;\n                      aResultado[3]:Fields(2):value\n&gt;\n\nEstos tres valores son de tipo cadena ? De no ser asi, has de pasarlos a cadena (tipo caracter)','',0,'','10s6mzkn',1,0,'',2,0,0),(36314,7861,6,147,0,'201.253.38.215',1187305015,1,0,1,0,1,1,'','','Muchachos:\nLo estoy pasando a clase, que se la enviaré a Willi. Si él autoriza, se lo estaré enviando\n\nSaludos','',0,'','2o32qmom',1,0,'',147,0,0),(36315,7886,6,911,0,'200.72.141.53',1187306511,1,0,1,1,1,0,'','','Antonio:\nEstaba cometiendo dos errores:\n1º.- Uno de ellos era numérico (esto solamente hace que muestre la columna en blanco)\n2º.- Colocando 3 columnas y la consulta solamente devolvía 2 campos.\nSorry a todos los que leyeron y pensaron como ayudar.\nSe nota mis dos años de alejamiento de la programación.\n\nSaludos y Gracias\nDavid Lagos S.','',0,'','18t3c9ev',1,0,'',911,0,0),(36316,7870,3,86,0,'81.83.185.118',1187310265,1,0,1,1,1,1,'','','Enrico,\n\nIt has been some time since I used \"Append\".\n\nBut if I remember well, the file from which you append, must be closed.\n\nCould that solve your problem ?\n\nGood luck.','',0,'','2wh87s0v',1,0,'',86,0,0),(36317,7887,2,92,0,'80.33.133.32',1187332238,1,0,1,1,1,0,'','Programa de contabilidad','[quote=&quot;Antonio Linares&quot;:127spue3]\nsamples\\Account\\*.prg  (programa de contabilidad)[/quote:127spue3]\n\nAntonio,\n\nEste programa es plenamente operativo?\n\nEstoy buscando algo sencillo y no sabía de él (es para una asociación de padres de alumnos).\n\nSaludos\nCarlos G.','',0,'gA==','127spue3',1,0,'',92,0,0),(36318,7870,3,6,0,'87.10.10.238',1187333198,1,0,1,1,1,1,'','','Yes, you are right, as COPY TO opens the destination file in exclusive mode.\n\nEMG','',0,'gA==','1tygnwaj',1,0,'',6,0,0),(36319,7887,2,2,0,'87.218.146.147',1187333570,1,0,1,1,1,1,'','','Carlos,\n\nDigamos que es básico pero sirve.\n\nDe todas formas, te recomiendo que revises <!-- w --><a class=\"postlink\" href=\"http://www.catwin.net\">www.catwin.net</a><!-- w --> , gratuito, libre y basado en PHP/MySQL, y se puede acceder facilmente a la contabilidad desde cualquier ordenador con internet. Muy bueno.','',0,'gA==','2drvoqu5',1,1187352284,'',2,1,0),(36320,7882,3,47,0,'203.144.160.247',1187334529,1,0,1,1,1,0,'','','Dear Rene,\n\nI have many question in my head.\n\n1. Do I have to create Data Dictionary for ADS only?\n2. If I install correctly, why I can open file in ADS folder without permission?\n3. Why I can delete file in ADS folder from Explorer easily?\n\nRegards,\nDutch','',0,'gA==','2zthbiuu',1,0,'',47,0,0),(36321,7883,3,161,0,'81.83.249.31',1187339662,1,0,1,1,1,0,'','','The same result with harbour  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nRegards,\nMarc','',0,'gA==','2z2ehwxl',1,0,'',161,0,0),(36322,7810,11,578,0,'218.214.35.132',1187341973,1,0,1,0,1,0,'','Still problems with GETs','Antonio\n\nI can get characters to insert into a GET but ONLY if I use the arrow keys to navigate through the GET  text.  Clicking the mouse moves the mouse pointer to the desired position in the GET text but that\'s not where the text gets put.  It looks as if the the get object isn\'t getting or isn\'t handling the mouse click correctly.\n\nWould you please look into this?  Are you getting the same result?  I really need a fix as it makes data entry too time consuming.\n\nAs you know I am running on Ubuntu Workstation 7.04 with the latest FiveLinux libraries you sent me and I have updated Ubuntu with all the latest patches.\n\nThanks\n\nDoug','',0,'gA==','czgfwnum',1,0,'',578,0,0),(36323,7882,3,1064,0,'61.70.211.182',1187342880,1,0,1,1,1,0,'','','Hi dutch :\n\nin My experience , If you open two or more dbf files  ,  use like \"Set filter to\" , \"index on\" , \"set relation to\" command in \"ADS\", maybe you will meet some  Compatibile problem from \"DBFCDX\" TO \"ADS\".\n\nfor me ,Need edit some source code for \"ADS\" about 15-30% .','',0,'gA==','2ttmnwbs',1,0,'',1064,0,0),(36324,7883,3,1064,0,'61.70.211.182',1187343160,1,0,1,1,1,0,'','','hi Marc :\n\nWhat is your RDD ?','',0,'gA==','3t2jc18e',1,0,'',1064,0,0),(36325,7888,7,720,0,'80.36.244.134',1187343884,1,0,1,1,1,0,'','Como leer la fecha de modificación de un archivo.....','Hola a todos... alguien conoce o sabe si se puede leer la fecha de la última modificación de un archivo?\n\n\nSaludos.\n\nElías Torres','',0,'gA==','2910pnmq',1,0,'',720,0,0),(36326,7883,3,2,0,'87.218.146.147',1187344616,1,0,1,1,1,1,'','','Yes, good question, what RDD are you using ?','',0,'gA==','384665l8',1,0,'',2,0,0),(36327,7810,11,2,0,'87.218.146.147',1187344778,1,0,1,1,1,1,'','','Doug,\n\nHave you tried clicking twice ? Here it works ok if clicked twice','',0,'gA==','m4p0sfpj',1,0,'',2,0,0),(36328,7888,7,2,0,'87.218.146.147',1187344833,1,0,1,1,1,1,'','','Elias,\n\nSólo puedes leer la fecha actual del archivo, que debería coincidir con la de la última modificación','',0,'gA==','rglijh1k',1,0,'',2,0,0),(36329,7810,11,578,0,'218.214.35.132',1187346839,1,0,1,0,1,0,'','Yes (see inside)','I have tried double clicking but that marks the word as a block - but you don\'t get the normal behaviour that you would expect from having marked a block - ie any characters written are additional characters, they don\'t replace the blocked text. The current cursor position remains the current keyboard position and not the mouse cursor position.\n\nAlso I note that if I have the app on part of the screen and the terminal session it started from also on the screen the cursor position in the terminal screen is being updated by the cursor control keys and by keyboard input but not by moving the mouse cursor position.  Maybe that\'s some clue as to part of what is going on.\n\nThanks \n\nDoug','',0,'gA==','1zgigybh',1,0,'',578,0,0),(36330,7887,2,92,0,'213.96.45.9',1187347720,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:17uyqaqe]Carlos,\n\nDigamos que es básico pero sirve.\n\nDe todas formas, te recomiendo que revises <!-- w --><a class=\"postlink\" href=\"http://www.catwin.net\">www.catwin.net</a><!-- w --> , gratuito, libre y basado en PHP/MySQL, y se puede acceder facilmente a la contabilidad desde cualquier ordenador con internet. Muy bueno.[/quote:17uyqaqe]\n\nGracias, lo miraré.\n\nCarlos G.','',0,'gA==','17uyqaqe',1,0,'',92,0,0),(36331,7836,6,92,0,'213.96.45.9',1187348018,1,0,1,1,1,0,'','Concurrencia en WinAsp.','[quote=&quot;joms&quot;:2r3g9n4g]Estimados Amigos,\n\nSeguramente algunos no saben que WinAsp es ahora Freeware y pueden descargarlo desde <!-- w --><a class=\"postlink\" href=\"http://www.htcsoft.cl\">www.htcsoft.cl</a><!-- w -->\n\nTambién hay documetación disponible en el sitio web.\n\nSaludos\nJorge Mason[/quote:2r3g9n4g]\n\nHola,\n\nEmpezaré a probar con ficheros DBF. Podrá soportar la concurrencia de 15 / 20 usuarios a la vez haciendo consultas y alguna actualización?\n\nSaludos y gracias\nCarlos G.','',0,'gA==','2r3g9n4g',1,0,'',92,0,0),(36332,7810,11,2,0,'87.218.146.147',1187348843,1,0,1,1,1,1,'','','Doug,\n\nIt may be related to the GT library that it is used. We should use -lgtnul but we can\'t find that file. We have asked it at the harbour mailing list and we are waiting for an answer, thanks','',0,'gA==','32cdg6lv',1,0,'',2,0,0),(36333,7810,11,2,0,'87.218.146.147',1187350204,1,0,1,1,1,1,'','','Doug,\n\nFixed. We send you new libs\n\nthanks for your feedback,','',0,'gA==','36vkmrrf',1,0,'',2,0,0),(36334,7883,3,161,0,'81.83.249.31',1187352717,1,0,1,1,1,0,'','','Hi,\n\nI\'am using DBFCDX.\n\nIf I remove the brackets like: \n[code:3ejsycbm]INDEX ON str&#40;val&#40;type&#41;,2&#41;+str&#40;val&#40;noden&#41;,2&#41;                  TAG PM     for nr = \'4\' &#46;or&#46; nr = \'6\' &#46;and&#46; nodet # \'HG\' &#46;and&#46; nodet # \'NIM\'[/code:3ejsycbm]\n\ninstead of\n[code:3ejsycbm]INDEX ON str&#40;val&#40;type&#41;,2&#41;+str&#40;val&#40;noden&#41;,2&#41;                  TAG PM     for &#40;nr = \'4\' &#46;or&#46; nr = \'6\'&#41; &#46;and&#46; nodet # \'HG\' &#46;and&#46; nodet # \'NIM\'[/code:3ejsycbm]\n\nThen it\'s working. Unfortunately this is not what I want  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nAt the moment I use as workaround:\n[code:3ejsycbm]INDEX ON str&#40;val&#40;type&#41;,2&#41;+str&#40;val&#40;noden&#41;,2&#41;                  TAG PM     for  alltrim&#40;nr&#41; $ \'46\' &#46;and&#46; !alltrim&#40;nodet&#41; $ \'HGNIM\'[/code:3ejsycbm]\nand that is also working.\n\nVery strange that the other index-filter doesn\'t work.\n\nMarc','',0,'AIA=','3ejsycbm',1,0,'',161,0,0),(36335,7883,3,2,0,'87.218.146.147',1187353317,1,0,1,1,1,1,'','','Marc,\n\n&gt; for (nr = \'4\' .or. nr = \'6\') .and. nodet # \'HG\' .and. nodet # \'NIM\'\n\nTry this:\nfor nr $ \"4;6\" .and. nodet # \'HG\' .and. nodet # \'NIM\' \n\nAnyhow this issue has to be commented to the RDD\'s guru, Przemek','',0,'AIA=','331j03us',1,0,'',2,0,0),(36336,7883,3,6,0,'87.10.10.238',1187353473,1,0,1,1,1,1,'','','We need of a reduced and self-contained sample to confirm the problem.\n\nEMG','',0,'AIA=','2pd7dubj',1,0,'',6,0,0),(36337,7571,2,2,0,'87.218.146.147',1187353543,1,0,1,1,1,1,'','','Jairo,\n\nRevisa samples\\TestHelp.prg','',0,'AIA=','ggx9imyr',1,0,'',2,0,0),(36338,7883,3,2,0,'87.218.146.147',1187353652,1,0,1,1,1,1,'','','Enrico,\n\nThe problem is that Marc comments that on small samples is working fine','',0,'AIA=','gvhubo2q',1,0,'',2,0,0),(36339,7889,6,1105,0,'83.37.61.4',1187354166,1,0,1,1,1,0,'','menu tipo XP','Hola Antonio:\n\n¿Soporta la nueva versión de FWH los menús tipo XP?. ¿Hay algún ejemplo disponible?. Muchas gracias.\n\nSalu2','',0,'AIA=','3i27bdp1',1,0,'',1105,0,0),(36340,7810,11,578,0,'218.214.35.132',1187354222,1,0,1,0,1,0,'','Thanks Antonio','Thanks for this fix.  Both the level and speed of your support are wonderful.\n\nThanks from a  very happy xProgrammer','',0,'AIA=','1ic1v8z6',1,0,'',578,0,0),(36341,7883,3,161,0,'81.83.249.31',1187355014,1,0,1,1,1,0,'','','Antonio,\n\nfor nr $ \"4;6\" .and. nodet # \'HG\' .and. nodet # \'NIM\' is working.\n\nI think it\'s someting to do with the brackets because I also create a other index with brackets in my program, and that one is also not working.\nNow I also use there a workaround without brackets.\n\nThanks,\nMarc','',0,'AIA=','3rnod170',1,0,'',161,0,0),(36342,7883,3,2,0,'87.218.146.147',1187358251,1,0,1,1,1,1,'','','Marc,\n\nPrzemek will be back next week and then we should report him this issue, just to know his opinion','',0,'AIA=','2zv94gzv',1,0,'',2,0,0),(36343,7889,6,2,0,'87.218.146.147',1187358383,1,0,1,1,1,1,'','','Eduardo,\n\nSi te refieres a los menús que fueron publicados por Arturo Tamayo, de momento no se han incluido en FWH','',0,'AIA=','260bh0sr',1,0,'',2,0,0),(36344,7861,6,987,0,'189.132.5.215',1187359976,1,0,1,1,1,0,'','','Mario:\nEstoy totalmente deacuerdo <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , si Willi lo autoriza,  esperemos que si...\nsolo informanos cuando, para que revisemos nuestras cuentas de correo.  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'AIA=','grgghx32',1,0,'',987,0,0),(36345,7883,3,6,0,'87.10.10.238',1187360401,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2ryadfl6]Enrico,\n\nThe problem is that Marc comments that on small samples is working fine[/quote:2ryadfl6]\n\nThen Marc should gradually remove parts of his code to restrict the cause of the problem. I don\'t think it\'s a bug in DBFCDX.\n\nEMG','',0,'gA==','2ryadfl6',1,0,'',6,0,0),(36346,7870,3,909,0,'71.71.110.50',1187360742,1,0,1,1,1,1,'','','Enrico - \nThe following code is very simple, and causses the error to occur.  Rather than using dbcreate as you did, I am using the customer.dbf from the FWH samples folder.  The first time you run this, un-comment the COPY TO CUST line to produce the tcust.dbf. \n\nREQUEST DBFCDX\n\nRDDSETDEFAULT(\"DBFCDX\")\n\nUSE CUSTOMER NEW EXCLUSIVE\nINDEX ON CUSTOMER-&gt;LAST TAG LAST\nINDEX ON CUSTOMER-&gt;SALARY TAG SALARY\nDBGOTOP()\n\n *COPY TO TCUST\n \nCUSTOMER-&gt;(DBCLOSEAREA())\n\nUSE TCUST\nZAP\nAPPEND FROM CUSTOMER\n\nRETURN NIL\n\nRegards,\nCharles','',0,'gA==','2usac347',1,0,'',909,0,0),(36347,2676,3,27,0,'62.174.195.220',1187361040,1,0,1,1,1,1,'','Como enviar el PDF por E-Mail despuese.','Este opción abre el Outlook con el PDF como adjunto pero no tiene ni E-Mail de destio ni Asunto:\n\noReg:Set(\"SendEmailAfterAutoSaving\" , 1 )\n\n Alquien sabe como añadir estos datos para el envio automatico de facturas.','',0,'gA==','2lcgevso',1,0,'',27,0,0),(36348,7883,3,2,0,'87.218.146.147',1187361110,1,0,1,1,1,1,'','','Marc,\n\nCould you check the resulting PPO when it fails to see if it is related to the preprocessor ?','',0,'gA==','22bzhi24',1,0,'',2,0,0),(36349,7889,6,1105,0,'83.37.61.4',1187361889,1,0,1,1,1,0,'','re','Hola Antonio:\n\nMuchas gracias por la respuesta. ¿Para cuándo tienes previsto hacerlo?. ¿Y hay más controles tipo XP?. \n\nSalu2','',0,'gA==','2lyob635',1,0,'',1105,0,0),(36350,7889,6,2,0,'87.218.146.147',1187362821,1,0,1,1,1,1,'','','Edu,\n\nEsos menus no son propios de XP sino de Microsoft Office, de versiones anteriores a la actual.\n\nFWH soporta los controles nativos de Win32. Los de Office solo se pueden imitar, pero no implementar nativamente, pues sus APIs no son públicos','',0,'gA==','21g2i4it',1,0,'',2,0,0),(36351,7870,3,6,0,'87.10.10.238',1187363726,1,0,1,1,1,1,'','','Same error with Clipper. The reason is that you can\'t use aliases inside the index key. Change as follows:\n\n[code:2e06dvv1]INDEX ON FIELD-&gt;LAST TAG LAST\nINDEX ON FIELD-&gt;SALARY TAG SALARY[/code:2e06dvv1]\n\nEMG','',0,'AIA=','2e06dvv1',1,0,'',6,0,0),(36352,2676,3,103,0,'189.43.121.190',1187364101,1,0,1,1,1,1,'','','Hi all,\n\n    It seems to be very interesting... and how could I put this to generate PDFs from my preview (RPreview)?\n\nTIA,','',0,'AIA=','jjf8ir6k',1,0,'',103,0,0),(36353,7861,6,911,0,'200.72.141.53',1187364970,1,0,1,1,1,0,'','','me parece excelente.\ndejo mi correo: <!-- e --><a href=\"mailto:dlagoss@manejatuvida.cl\">dlagoss@manejatuvida.cl</a><!-- e -->\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'AIA=','18gr6ql5',1,0,'',911,0,0),(36354,6815,6,739,0,'189.134.41.176',1187365438,1,0,1,1,1,1,'','seek','me uno a la pregunta ¿funciona seek? porque me marca error:\n\nError ADORDD/0 Operation not supported DBSEEK(0) in module','',0,'AIA=','1v9lo8lo',1,0,'',739,0,0),(36355,7882,3,138,0,'189.141.71.139',1187367464,1,0,1,1,1,1,'','','Dutch\n\nStep by Step:\n\n[quote=&quot;dutch&quot;:3sm67bus]\n1. Do I have to create Data Dictionary for ADS only?\n[/quote:3sm67bus]\n\nNot at all, if you don\'t want, you don\'t have to create Data Dictionary, you can keep working with your tables as \"free tables\" using the same source code you are using actually, but is very important that when using the DBF tables you include the full path into the USE command in the UNC form:\n\nUSE \\\\server\\share\\folder\\file.dbf\n\nIf work with local DBFs do the same:\n\nUSE .\\local.dbf\n\nor\n\nUSE c:\\folder\\file.dbf\n\nDD Creation is necesary when you want  to use the Internet Server, or when you want to use stored procedures, triggers or referential integrity.\n\nAnyway to create a Data Dictionary is very easy, just go to the DATABASE option on the main menu of the ARC, create a new databases, add the tables, add users and that\'s all.\n\nMinor changes have to be done in your source code to use DDs, simply use:\n\nlConnect := AdsConnect60(&lt;datadictionary&gt;,&lt;servertype&gt;,&lt;user&gt;,&lt;password&gt;)\n\nWill return true is the connection to the DD was succesfull, false if not.\n\nOnce connected to the DD, you can keep using your XBASE commands as usual (USE, APPEND REPLACE, etc).\n\nPlease notice that when using DDs, there\'s no need to incluye the path to the DBF file in your use command, just the name is needed since you are connected to a DD and the DD will handle all the paths stuff.\n\n[quote=&quot;dutch&quot;:3sm67bus]\n2. If I install correctly, why I can open file in ADS folder without permission?\n[/quote:3sm67bus]\n\nThat\'s due your server configuration, you have to go to your server machine, and stop sharing the folder where the data is, in some cases you will have to share the folder with the data, but you will have to remove *ALL* the permissions to that folder except for the \"SYSTEM\" user. SYSTEM user should be the only user with read and write permissions to the folder where the data is.\n\nIn your source code add:\n\nAdsRightsCheck(.F.)\n\nThis will skip the user rights checking, and the ADS programm will be able to go into the data in the server.\n\n[quote=&quot;dutch&quot;:3sm67bus]\n3. Why I can delete file in ADS folder from Explorer easily?\n[/quote:3sm67bus]\n\nAs explained before, you have to remove the user access in the server configuration.\n\nRegards\n\nRF\n<!-- m --><a class=\"postlink\" href=\"http://www.google.com\">http://www.google.com</a><!-- m -->','',0,'gA==','3sm67bus',1,0,'',138,0,0),(36356,7887,2,138,0,'189.141.71.139',1187368208,1,0,1,1,1,1,'','Re: Ejemplos de codigo FW','[quote=&quot;ingggc&quot;:3a71phpo]Solicito de la manera más atenta a quién tenga ejemplos de código escrito en FW (Archivos PRG), que debo de hacer para obtenerlos, ya analice todos los ejemplos que vienen con CD de FW y realmente es código muy sencillo, requiero algo más práctico que me permita disipar todas las dudas que tengo.\n[/quote:3a71phpo]\n\nAlfredo Artega tiene a la venta un programa completo de gestion administrativa con todo el código fuente incluido, incluye nomina, bancos, facturacion, contabilidad, vamos, todo.\n\nPuedes visitar su web y bajarte un demo:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->','',0,'gA==','3a71phpo',1,0,'',138,0,0),(36357,7890,19,138,0,'189.141.71.139',1187368535,1,0,1,1,1,1,'','Cancelada la visita a Colombia','Hola a todos:\n\nEs una pena informarles que debido a algunos problemas logísticos con la empresa que contrata nuestros servicios en  Colombia, la visita planeada para la segunda quincena de este mes se ha suspendido.\n\nTenemos una nueva fecha planteada a partir del día 17 de Septiembre, pero con varios cambios en el itinerario que aun tengo pendientes de confirmar, pero que una vez confirmados les informaremos con mucho gusto.\n\nConfirmo además la visita a Chile a partir del 12 de Octubre.','',0,'gA==','27eefsmd',1,0,'',138,0,0),(36358,2676,3,167,0,'207.119.126.13',1187371728,1,0,1,1,1,1,'','','I use Image2PDF to convert .emf files (created by FWH previewer) into .pdf files - works well.  Just a couple of changes in tpreview.prg to \"capture\" the .emf files while they are still alive.\n\nThis works great for printing via FWH on internet apps as the cgi-program can invoke the report object - which in turn creates the .emf files for viewing - which I grab and convert that \"Image2PDF\" on the fly - then the app simply delivers the pdf file over the web.\n\nAlso, support from Image2PDF is excellent.  Furthermore, you can purchase a license which enables you to give unlimited, royality free distribution.','',0,'gA==','bfrc4zd4',1,0,'',167,0,0),(36359,7870,3,909,0,'71.71.110.50',1187372231,1,0,1,1,1,1,'','','That fixes it.  Many thanks, Enrico.  I have some code to change in some of my apps.\n\nCharles','',0,'gA==','2rppx2eo',1,0,'',909,0,0),(36360,6815,6,2,0,'87.218.146.147',1187373219,1,0,1,1,1,1,'','','Tienes que comprobar si tu conexión ADO soporta índices:\n\n#define adIndex 0x100000\nMsgInfo( HB_AdoRddGetRecordset():Supports( adIndex ) )','',0,'gA==','3ubzmf26',1,0,'',2,0,0),(36361,7891,1,819,0,'67.187.239.16',1187377074,1,0,1,1,1,0,'','Converting POS application to xHarbour + FWH','Hi all,\n\nIs there a way we can get a list of memvars with Clip52 and FW24 at run time?\n\nThanks in advance,\n\nJose','',0,'gA==','hmrx08j1',1,1206855681,'',819,1,0),(36362,6815,6,739,0,'189.134.41.176',1187380397,1,0,1,1,1,1,'','seek','devielve .f. ¿que necesito hacer para que lo soporte? estoy trabajando con mysql','',0,'gA==','1ojfziv3',1,0,'',739,0,0),(36363,7860,3,798,0,'201.43.241.147',1187381391,1,0,1,1,1,0,'','','Olá Paulo,\n\nMSGRUN(\"Aguarde - Carregando Dados\",\"Aguarde...\",{||Tabela:Open(\"SELECT codigo,uf,municipio FROM uf USE INDEX(uf) ORDER BY uf\",Conexao,2,3)})\n\nDaniel Segura\n<!-- e --><a href=\"mailto:ciacpd@terra.com.br\">ciacpd@terra.com.br</a><!-- e -->','',0,'gA==','3d8yfyqb',1,0,'',798,0,0),(36364,7879,6,975,0,'200.89.201.25',1187382388,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:7qpm57kd]Las DLLs de ese ejemplo son de 16 bits. Las habeis pasado a 32 bits ? \n\nTeneis que extraer el RC que contienen, usando el editor de recursos de Borland, y una vez tengais el RC, construir la DLL en 32 bits usando DLL\\rc2dll32.bat[/quote:7qpm57kd]\n\n\nAgosto 17 de 2007\n\n\n\nGracias Antonio,\n\nLo voy hacer, te aviso si tengo problema','',0,'gA==','7qpm57kd',1,0,'',975,0,0),(36365,7861,6,78,0,'190.40.225.130',1187382910,1,0,1,1,1,0,'','','Gracias por aquello de \"autoriza\"  jejejejejejeje, pero como mencione en un principio (ver el 3er post de este hilo), no recuerdo quien es el autor de este reloj, alguien me lo envio hace unos 6 a 7 años, y espero que  aparezca por aqui, asi denotariamos los creditos, me parece que no habria problema alguno en publicarlo, salvo opinion contraria de Antonio Linares que dirije este foro, por lo que le pediria a A.L. que dijera algo al respecto.\nSalu2\nWilli Quintana','',0,'gA==','2fire40o',1,0,'',78,0,0),(36366,7861,6,2,0,'87.218.146.147',1187387237,1,0,1,1,1,1,'','','Willi,\n\nNo veo problema en que lo publiques salvo que alguien reclame su autoria y lo acredite','',0,'gA==','22zgvgzr',1,0,'',2,0,0),(36367,6815,6,2,0,'87.218.146.147',1187387627,1,0,1,1,1,1,'','','No puedes hacer nada, si no lo soporta. Sólo usar expresiones SQL tipo SELECT ... ORDER BY ...','',0,'gA==','2hm50iqt',1,0,'',2,0,0),(36368,7892,2,66,0,'190.188.168.23',1187387688,1,0,1,0,1,0,'','Consulta Tdosprn en red xp','Estimados Colegas\n\nTengo problemas con el uso de tdospn en red\nhe probado de todas las formas posibles , \n\noPrn := TDosPrn():New(\"\\\\facturacion\\lx300\")\n\nnet use LPT1 \\\\servidor\\nombre_de_impresora_compartida\n\nImprime pero es inestable imprime una vez y la segunado no \nAlguien me puede orientar que estoy haciendo mal o tiene la clase\nmodificada para que funcione en red\n\nDesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'gA==','9erpwdi9',1,0,'',66,0,0),(36369,7893,6,854,0,'189.130.16.127',1187392166,1,0,1,1,1,0,'','Existe algo como NewPage en la clase Report','Saludos a todos\n\nAlguien me podria ayudar ,  en un reporte cada vez que termina una linea despues pongo su detalle, pero al casi terminar la hoja ya no pone el completo del detalle, alguien sabria como lo puedo solucionar.\n\nGracias.','',0,'gA==','2x7nz7rt',1,0,'',854,0,0),(36370,7877,3,167,0,'207.119.126.13',1187392723,1,0,1,1,1,1,'','','More testing with MSVC.\n\nI use dynamic calling of Image2PDF.dll for creating .pdf files.  With Borland compiler / linker - - works no problem.\n\nWith MSVC I get a gpf (from microsoft - not FWH GPF).\n\nQuestion - shouldn\'t my FWH .exe be able to call any .dll dynamically without regard to the contructs of the .dll file?  Why would my program generate a Microsoft gpf when calling with the MSVC version and not with the Borland version?\n\nCan the MSVC use the FWH dynamic calling of a DLL?\n\nHere is my calling code:\n\ncalldll := \'Image2PDF.DLL\'\nNDLL := LOADLIBRARY( CALLDLL )\nIF ABS( NDLL ) &lt;= 32  // could not load library\n  NDLL := NIL \nENDIF\n\nCALLPROC := \"I2PDF_SilentRunning\"\nRETURN_TYPE := VOID\nCFARPROC := GetProcAddress(NDLL,CALLPROC, PASCAL_TYPE, RETURN_TYPE, LONG )\nRETVAL := CALLDLL( CFARPROC )','',0,'gA==','1sh0r6yz',1,0,'',167,0,0),(36371,7877,3,2,0,'87.218.146.147',1187420984,1,0,1,1,1,1,'','','Don,\n\nIs there a demo version of Image2PDF.dll  that we can test here ? thanks','',0,'gA==','3i0fhs5c',1,0,'',2,0,0),(36372,7891,1,2,0,'87.218.146.147',1187422663,1,0,1,1,1,1,'','','Jose,\n\nDo you mean all memvars: static, public, private, locals ?','',0,'gA==','1qyf0uyp',1,0,'',2,0,0),(36373,7892,2,78,0,'190.40.225.130',1187423449,1,0,1,1,1,0,'','','Hola\nYo la hago asi:\nen el codigo...\n...\noPrn := TDosPrn():New(\"LPT1\") \n...\n...\n\n\ny esto en el autoexec.nt  que se encuentra en \\Windows\\system32\n\nnet use LPT1 \\\\servidor\\nombre_de_impresora_compartida \n\nde ese modo cuando arranque el XP se \"cargara\" el comando net use... AUTOEXEC.NT   de XP    es lo mismo que AUTOEXEC.BAT de DOS/WIN98..','',0,'gA==','1f8ujfts',1,0,'',78,0,0),(36374,7889,6,1105,0,'81.47.147.81',1187426135,1,0,1,1,1,0,'','re','Antonio:\n\nMuchas gracias por tu pronta respuesta. Ante todo, felicitarte por la nueva Fivetech y la profesionalidad de los servicios.\n\nLlevo con Fivewin/Fivedos desde los tiempos de Mail Simons. En la actualidad, la pega que veo a Fivewin es que la interface gráfica es sosa. Así, por ejemplo, el Preview sigue siendo el de Windows 3.x que hizo Ignacio.\n\nEn definitiva, se echa en falta controles que permitan realzar el look de los programas, que, salvando distancias, se parecen a los de Windows 3.x, y ya ha llovido mucho desde entonces.\n\nAhora bien, ello no significa que estas prestaciones tengan que necesariamente venir \"de serie\" en Fivewin. ¿Por qué no creas una libreria adicional, como eran Fiveplus, Fivedos, Objetcs, etc?. Creo que tendría muy buena acogida y yo la compraría encantado, sabiendo que hay un respaldo y continuidad detrás. \n\nSe que existen soluciones comerciales pero, visto lo que pasó con el Preview de René Pilon, me da miedo quedarme colgado. En fin, aquí va mi pequeña sugerencia. Muchas gracias.\n\nUn saludo,','',0,'gA==','kkhe5xqu',1,0,'',1105,0,0),(36375,7889,6,2,0,'87.218.146.147',1187427212,1,0,1,1,1,1,'','','Edu,\n\nEl preview se actualizó con las nuevas toolbars de 32 bits, nuevos bitmaps,  y usando los temas de XP, en el caso que estés usando temas XP en tu aplicación. De hecho el preview detecta si usas temas ó no y te muestra una apariencia mucho más moderna de ser así.\n\nFWH soporta todos los controles de Win32: Rebars, toolbars, ProgressBars,  listviews, headers, statusbars, imagelists, etc.\n\nPosiblemente no estabas al tanto de todas estas mejoras de FWH y sean tus aplicaciones las que deban ser modificadas para usar estos controles nuevos y modernos que ofrece FWH <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2t1rm1x5',1,0,'',2,0,0),(36377,7895,6,23,0,'85.60.1.20',1187427969,1,0,1,1,1,1,'','TXBrowse desde Recursos','Buenas gente!! estoy cambiando de TsBrowse a TxBrowse y hasta ahora todo bien, solo una consulta. Cuando creo un browse desde recursos, si el DBF que muestra no tiene registros no presenta el browse (es decir, ni siquiera las cabeceras de las columnas), en cambio si tiene cualquier registro ya lo muestra correctamente. \nEn cambio creando el mismo browse desde código esto no ocurre. \n\n¿Alguna sugerencia? \n\nGracias','',0,'gA==','2mwfkuar',1,0,'',23,0,0),(36378,7895,6,2,0,'87.218.146.147',1187429403,1,0,1,1,1,1,'','','Angel,\n\nComprueba que tienes este código en el método Paint() de la Clase TXBrowse:\n[code:1l4ttdkx]\n  /*\n   Paint cols data\n   */\n\n   &#58;&#58;lRefreshOnlyData &#58;= &#46;f&#46;\n\n   if &#58;&#58;nLen == 0\n      &#58;&#58;EraseData&#40; nFirstRow  &#41;\n      &#58;&#58;DispEnd&#40; aInfo &#41;\n      return nil\n   endif\n[/code:1l4ttdkx]','',0,'AIA=','1l4ttdkx',1,0,'',2,0,0),(36379,7889,6,1105,0,'83.54.33.191',1187429861,1,0,1,1,1,0,'','re','Antonio:\n\nGracias por responder.\n\nSí, ya se que soporta los controles y van de fábula. Yo me refería algo más vistoso, del tipo [img:jxt6tewu]http&#58;//www&#46;canalfive&#46;com/modules/coppermine/albums/userpics/10004/contaplus&#46;jpg[/img:jxt6tewu] y con la seguridad que tales controles van a seguir con su mantenimiento.\n\nAprovechando el post, ¿qué nuevas incorporaciones se van a implementar en Fivewin?. Muchas gracias.\n\nUn saludo','',0,'CA==','jxt6tewu',1,0,'',1105,0,0),(36380,7896,3,86,0,'81.83.185.118',1187429923,1,0,1,1,1,1,'','Debugging','Hello,\n\nI\'m using FWH and xHarbour. I\'m building my application with xHarbour Building. All versions from December 2006. It all works fine.\n\nBut I\'ve read here so much about debugging.\n\nCan someone tell me exactly how I do implement the debugger in my appliction ? What do I need to do ?\n\nThanks a lot in advance.','',0,'CA==','39cwvb2d',1,0,'',86,0,0),(36381,7889,6,2,0,'87.218.146.147',1187432737,1,0,1,1,1,1,'','','Edu,\n\nEl control izquierdo de esa pantalla imita al control usado en Microsoft outlook. Como te he comentado, no es un control estandard de Windows, sino que es propio de Office y su API no es público, por lo que lo único que se puede hacer es imitarlo.\n\nNovedades: muchas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Y seguir creciendo como hemos ido haciendo todos estos años, con constancia, profesionalidad y muy buen soporte técnico','',0,'CA==','1r486tn6',1,0,'',2,0,0),(36382,7896,3,2,0,'87.218.146.147',1187433017,1,0,1,1,1,1,'','','Michel,\n\nYou have to compile using /b and link debug.lib and GTWIN.lib instead of GTGUI.lib. \n\nPlease review samples\\AltD.prg for a working sample.','',0,'CA==','3v6w87bz',1,0,'',2,0,0),(36383,7897,11,578,0,'218.214.35.132',1187435931,1,0,1,0,1,0,'','Making it easier to use Browses for arrays','I am trying to make it easier for me to use browses for arrays.\n\nFirst I wrote a \n\nFUNCTION BrwSetColWidths( oBrw, aWidths ) \n\nand that works fine.\n\nNow I am trying to write a\n\nFUNCTION BrwSet4Arrays( oBrw )\n\nThe purpose is to write the necessary code blocks (bGoTop, bGoBottom, bSkip, bLogicLen).  I want to do this in a way that I can have more than one browse in a dialog/window.  I remember the technique of using oBrw:cargo set to ARRAY( 3 ) to hold values.  So I thought it would be easy.  But my stumbling block is that I can\'t seem to refer to values of cargo[x] in the blocks in a way that doesn\'t include the name of the browse object.  I thought :: might work ( ie use ::cargo[x] but that is trying to access a cargo array in the object that contains the browse - ie the browse\'s parent I think .  I tried self:cargo[x] but that didn\'t seem to work either.  Is there a generic way I can reference the cargo?  Or is there some other solution that I can\'t see at present.\n\nObviously I can code around this so it isn\'t a problem, but it would be nice if I could do it.\n\nThanks','',0,'','1ma2bjr9',1,0,'',578,0,0),(36384,7883,3,161,0,'81.83.249.31',1187439475,1,0,1,1,1,0,'','','Antonio,\n\nThis is the result of the preprocessor.\n\n[code:31dk0w7c]         dbSelectArea&#40; &quot;lvrlog&quot; &#41;\n         ordCondSet&#40;&quot;val&#40;modn&#41;#0&quot;, NIL, if&#40; &#46;F&#46;, &#46;T&#46;, NIL &#41;,,, , RECNO&#40;&#41;,,, if&#40; &#46;F&#46;, &#46;T&#46;, NIL &#41;, if&#40; &#40;&#46;F&#46; &#46;AND&#46; !&#46;F&#46;&#41;, &#46;T&#46;, NIL &#41;, &#46;T&#46;,, &#46;F&#46;, &#46;F&#46;, NIL, &#46;F&#46;, NIL, &#46;F&#46;&#41; ; ordCreate&#40;, &quot;MODULE&quot;, &quot;str&#40;val&#40;type&#41;,2&#41;+str&#40;val&#40;noden&#41;,2&#41;+str&#40;val&#40;modn&#41;,2&#41;&quot;, NIL, if&#40;&#46;F&#46;, &#46;T&#46;, NIL&#41;&#41;\n         ordCondSet&#40;&#40;nr = &quot;4&quot; &#46;OR&#46; nr = &quot;6&quot;&#41; &#46;AND&#46; nodet # &quot;HG&quot; &#46;AND&#46; nodet # &quot;NIM&quot;, NIL, if&#40; &#46;F&#46;, &#46;T&#46;, NIL &#41;,,, , RECNO&#40;&#41;,,, if&#40; &#46;F&#46;, &#46;T&#46;, NIL &#41;, if&#40; &#40;&#46;F&#46; &#46;AND&#46; !&#46;F&#46;&#41;, &#46;T&#46;, NIL &#41;, &#46;T&#46;,, &#46;F&#46;, &#46;F&#46;, NIL, &#46;F&#46;, NIL, &#46;F&#46;&#41; ; ordCreate&#40;, &quot;PM&quot;, &quot;str&#40;val&#40;type&#41;,2&#41;+str&#40;val&#40;noden&#41;,2&#41;&quot;, NIL, if&#40;&#46;F&#46;, &#46;T&#46;, NIL&#41;&#41;\n[/code:31dk0w7c]\n\nMarc','',0,'AIA=','31dk0w7c',1,0,'',161,0,0),(36385,7861,6,78,0,'190.40.225.130',1187446230,1,0,1,1,1,0,'','','Hola amigos,\nAqui van las fuentes del reloj digital, disfrutenlo....\n\n<!-- m --><a class=\"postlink\" href=\"http://files-upload.com/files/442096/reloj.zip\">http://files-upload.com/files/442096/reloj.zip</a><!-- m -->\n\nSalu2','',0,'AIA=','3lyel0wl',1,0,'',78,0,0),(36386,7861,6,78,0,'190.40.225.130',1187446324,1,0,1,1,1,0,'','','UPS!!!!!!!!    reloj  analogo..\n\n<!-- m --><a class=\"postlink\" href=\"http://files-upload.com/files/442096/reloj.zip\">http://files-upload.com/files/442096/reloj.zip</a><!-- m -->\n\nSalu2','',0,'AIA=','gvc9fsjp',1,0,'',78,0,0),(36387,7896,3,86,0,'81.83.185.118',1187446930,1,0,1,1,1,1,'','','Antonio,\n\nI tried to follow your instructions, unfortunately with no luck.\n\nThis is what I did :\n\n[img:3lr42rma]http&#58;//www&#46;ma-consult&#46;be/xhb&#46;jpg[/img:3lr42rma]\n\nWhat did I do wrong ?\n\nThanks.','',0,'CA==','3lr42rma',1,0,'',86,0,0),(36388,7861,6,987,0,'189.133.21.118',1187451746,1,0,1,1,1,0,'','','Willi Quintana:\n\nGracías por esta contribución, creo que  muchos más te lo van a agradecer tambien...\n\nSolo una duda.. creo que el archivo de recursos esta dañano, porque lo intente abrir con pelles C y aparecen estos datos:\n\nBuilding RELOJ.RES.\nC:\\Reloj\\RELOJ.RES(1): warning: No newline at end of file.\nC:\\Reloj\\RELOJ.RES(1): warning: Unrecognized or misplaced token: \nC:\\Reloj\\RELOJ.RES(1): warning: Unrecognized or misplaced token: \nDone.\n\ny al compilar con Xmate la aplicacion  aparece esto:\n\nUnknown RLINK32 error..\n\nPor que que puedo apreciar faltan los recursos:\n\nBitmap  \"SEGUNDO_GRANDE\"\nBitmap  \"SEGUNDO_PEQUENO\"\nDialogo \"RELOJ\"\n\nNo se si estoy en lo correcto..? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nSaludos...','',0,'CA==','i5cco14a',1,0,'',987,0,0),(36389,7896,3,343,0,'204.57.111.194',1187451943,1,0,1,1,1,0,'','','Do not add debug.lib to your project.\nMake sure the .prg file you want to debug has been recompiled with the debug option checked or you can check the option \"Force Clean Build\" on options screen 1.\n\nThen at the command prompt (Dos Window) type\n\nxdebugw myapp.exe\n\nYou have to type the full name of your program along with the .exe.\n\nYou can also include ALTD(2) somewhere in your program, maybe close to the beginnig.','',0,'CA==','332kjd7q',1,0,'',343,0,0),(36390,7861,6,54,0,'189.132.89.223',1187455652,1,0,1,1,1,1,'','','[quote=&quot;cuatecatl82&quot;:2l7h61q6]Willi Quintana:\n\nGracías por esta contribución, creo que  muchos más te lo van a agradecer tambien...\n\nSolo una duda.. creo que el archivo de recursos esta dañano, porque lo intente abrir con pelles C y aparecen estos datos:\n\nBuilding RELOJ.RES.\nC:\\Reloj\\RELOJ.RES(1): warning: No newline at end of file.\nC:\\Reloj\\RELOJ.RES(1): warning: Unrecognized or misplaced token: \nC:\\Reloj\\RELOJ.RES(1): warning: Unrecognized or misplaced token: \nDone.\n\ny al compilar con Xmate la aplicacion  aparece esto:\n\nUnknown RLINK32 error..\n\nPor que que puedo apreciar faltan los recursos:\n\nBitmap  \"SEGUNDO_GRANDE\"\nBitmap  \"SEGUNDO_PEQUENO\"\nDialogo \"RELOJ\"\n\nNo se si estoy en lo correcto..? <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nSaludos...[/quote:2l7h61q6]\n\nConfirmo, el RES no está bien, en mi caso, simplemente no tiene nada.\n\nsaludos','',0,'gA==','2l7h61q6',1,0,'',54,0,0),(36391,7893,6,935,0,'200.62.78.231',1187455998,1,0,1,1,1,1,'','usa la clas tprint','Hola,\n\nTe sugiero que uses la clase Tprinter, con el cmSay puedes tener el control de los saltos de linea, de pagina, sub-totales etc., todo tipo de tamaño de papel etc.,\n\nSaludes, \n\nRamon Paredes','',0,'gA==','1urmk44s',1,0,'',935,0,0),(36392,7861,6,439,0,'200.125.46.186',1187458239,1,0,1,1,1,1,'','','puede recuperarse abriendo el .res con Resource workshop y guardándolo como .rc.','',0,'gA==','11cfv309',1,0,'',439,0,0),(36393,7861,6,78,0,'190.40.231.1',1187458342,1,0,1,1,1,0,'','','Abranlo con Resource Work Shop...\n\nSubire luego uno modificado con PellesC\n\nSalus','',0,'gA==','3hr59mxt',1,0,'',78,0,0),(36394,7861,6,54,0,'189.132.89.223',1187459856,1,0,1,1,1,1,'','','[quote=&quot;Willi Quintana&quot;:1wh0y4i1]Abranlo con Resource Work Shop...\n\nSubire luego uno modificado con PellesC\n\nSalus[/quote:1wh0y4i1]\n\nmi estimado, logre rehacerlo.\n\nsaludos','',0,'gA==','1wh0y4i1',1,0,'',54,0,0),(36395,7897,11,2,0,'87.218.146.147',1187459963,1,0,1,1,1,1,'','','Doug,\n\nWe have ported our FiveWin Class TWBrowse Method SetArray() to FiveLinux, so now you automatically get the functionality to browse arrays:\n[code:3ihewzy6]\nMETHOD SetArray&#40; aArray &#41; CLASS TWBrowse\n\n   &#58;&#58;nAt       = 1\n   &#58;&#58;cAlias    = &quot;ARRAY&quot;\n   &#58;&#58;bLogicLen = &#123; || &#58;&#58;nLen &#58;= Len&#40; aArray &#41; &#125;\n   &#58;&#58;bGoTop    = &#123; || &#58;&#58;nAt &#58;= 1 &#125;\n   &#58;&#58;bGoBottom = &#123; || &#58;&#58;nAt &#58;= Eval&#40; &#58;&#58;bLogicLen, Self &#41; &#125;\n   &#58;&#58;bSkip     = &#123; | nSkip, nOld | nOld &#58;= &#58;&#58;nAt, &#58;&#58;nAt += nSkip,;\n                  &#58;&#58;nAt &#58;= Min&#40; Max&#40; &#58;&#58;nAt, 1 &#41;, Eval&#40; &#58;&#58;bLogicLen, Self &#41; &#41;,;\n                  &#58;&#58;nAt - nOld &#125;\n\nreturn nil\n[/code:3ihewzy6]\nWe send you the new LIBs and a new samples\\TestArr.prg for a working sample:\n[url=http&#58;//imageshack&#46;us:3ihewzy6][img:3ihewzy6]http&#58;//img399&#46;imageshack&#46;us/img399/7251/browsegm2&#46;png[/img:3ihewzy6][/url:3ihewzy6]','',0,'GIA=','3ihewzy6',1,0,'',2,0,0),(36396,7898,3,620,0,'65.245.57.110',1187473490,1,0,1,1,1,0,'','Edit Combobox','I need to use a dropdown combobox and be able to double-click for user to enter a value when needed.   Can this be done?  (I remember doing this somehow with oCbx:varget() but can\'t remember how it was implemented...old code has vanished...ouch!).   Is there a way to make a Listbox behave like a dropdown combo or is there a way to use the combobox and edit it?  \n\nthanks!','',0,'GIA=','2o49lm9n',1,0,'',620,0,0),(36397,7898,3,620,0,'65.245.57.110',1187473785,1,0,1,1,1,0,'','Eureka! disregard','Nevermind....jumped the gun again....remembered ocbx:modify()','',0,'GIA=','16jvumdm',1,0,'',620,0,0),(36398,7893,6,53,0,'189.139.98.165',1187474328,1,0,1,1,1,1,'','','Vital:\n\nA ver si te sirve esto\n\nFUNCTION OverFlow(oReporte)\nIF oReporte:NeedNewPage()\n    oReporte:EndPage()\n    oReporte:StartPage()\nENDIF\nRETURN(.T.)\n\nSaludos','',0,'GIA=','3ds5wxjo',1,0,'',53,0,0),(36399,7861,6,987,0,'189.132.5.212',1187476116,1,0,1,1,1,0,'','','jose_murugosa: Gracías por el Tip, ya pude hecharlo a Volar.. <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \n\nYa esta trabajando al 100% <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias Willi Quintana por hacernos llegar tan generosa aportación. <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nSaludos desde Chiapas, México <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nVisita mi portal electronico:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'GIA=','2v3yuhcy',1,0,'',987,0,0),(36400,7861,6,54,0,'189.132.89.223',1187476505,1,0,1,1,1,1,'','','Amigos,\n\npequeña modificación.\n\n[url:vn0tl4ta]http&#58;//files-upload&#46;com/files/442951/reloj&#46;rar[/url:vn0tl4ta]\n\nespero sea de ayuda','',0,'EA==','vn0tl4ta',1,0,'',54,0,0),(36401,7861,6,987,0,'189.132.5.212',1187477881,1,0,1,1,1,0,'','','[b:3643nnnr]wmormar:[/b:3643nnnr]  Excelentes modificaciones, me leiste el pensamiento porque estaba a punto rehacer unas modificaciones parecidas..\nSi tengo tiempo, mañana trabajo en ellas y las subo el lunes para toda la comunidad.. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nPor cierto, con suerte estaré en unos meses en Cd. Pemex, esta a unos 20min. de Macuspana Tabasco. talvez conoscas esa ciudad, voy a visitar unos familiares que viven ahi, me daría mucho gusto conocerte y talvez cambiar algunas ideas.. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nSaludos desde San Cristóbal de las Casas, Chiapas.\nVisita mi portal electronico:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'QA==','3643nnnr',1,0,'',987,0,0),(36402,7896,3,86,0,'81.83.185.118',1187482318,1,0,1,1,1,1,'','','Gale,\n\nThanks a lot for your reaction.\n\nI tried to follow your instructrions.\n\nThis results into the screen which is shown here :\n\n[img:22496iin]http&#58;//www&#46;ma-consult&#46;be/xhb1&#46;jpg[/img:22496iin]\n\nExcept for the fact that I am asked to choose the starting PRG-file, nothing happens.\n\nFor a few seconds, this is shown in the console at the bottom :\n\n[quote:22496iin]Connecting to 127.0.0.1:10000...[/quote:22496iin]\n\nPushing on \"Start\" or \"Step\" doesn\'t result into any reaction.\n\nWhat do I need to do now ?\n\nThanks a lot in advance.','',0,'iA==','22496iin',1,0,'',86,0,0),(36403,7861,6,54,0,'189.132.118.124',1187482832,1,0,1,1,1,1,'','','[quote=&quot;cuatecatl82&quot;:14xei6ce][b:14xei6ce]wmormar:[/b:14xei6ce]  Excelentes modificaciones, me leiste el pensamiento porque estaba a punto rehacer unas modificaciones parecidas..\nSi tengo tiempo, mañana trabajo en ellas y las subo el lunes para toda la comunidad.. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nPor cierto, con suerte estaré en unos meses en Cd. Pemex, esta a unos 20min. de Macuspana Tabasco. talvez conoscas esa ciudad, voy a visitar unos familiares que viven ahi, me daría mucho gusto conocerte y talvez cambiar algunas ideas.. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nSaludos desde San Cristóbal de las Casas, Chiapas.\nVisita mi portal electronico:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->[/quote:14xei6ce]\n\nque tal,\n\nmi msn es <!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e --> por si gustas contactarme.\n\ncharlamos para ponernos de acuerdo y si ando por villahermosa, con gust me doy la escapada por allá.\n\nsaludos','',0,'wA==','14xei6ce',1,0,'',54,0,0),(36404,7899,11,578,0,'218.214.35.132',1187483765,1,0,1,0,1,0,'','Five Linux Dialogs and Wait States','Antonio\n\nIt appears that Five Linux dialogs don\'t have a wait state.  By that I mean that if I have code such as\n\nDEFINE DIALOG dlgTest TITLE \"Test\"\n\n&lt;define dialog here&gt;\n\nACTIVATE DIALOG dlgTest CENTERED\n\nMsgInfo( \"Test Dialog Over\" )\n\nI will; get the message Test Dialog over before any event has taken place on the dialog.  I do have one dialog that seems to behave as I would have expected but I can\'t quite see why.\n\nThis isn\'t a problem if you call the dialog directly from the application window because the window has a wait state in it (I presume).\n\nIt is a problem for me in two ways, however.\n\nFirstly I want to call a dialog from another dialog (for eaxample have a record displayed and click edit to edit it)\n\nSecondly I typically have code a bit like this\n\nDO WHILE .T.\n   ShowDialog()\n   IF ::ExitCode = \"X\"\n      RETURN nil\n   ENDIF\n   IF ::ExitCode = \"E\"\n      ::lEdit := .T.\n     ELSE\n      ::lEdit := .F.\n   ENDIF\nENDDO\n\nBut the dialog returns before the buttons on it can set the ::ExitCode.\n\nCan you confirm if this is correct behaviour?  If not what am I doing wrong?  Can I use Windows everywhere rather than dialogs and what would the implications of such a change be?  Can I simply program in a wait state somehow (I don\'t think plain INKEY( 0 ) or WAIT are up to the task.\n\nThanks\n\nDoug (xProgrammer)','',0,'wA==','3qn39g5j',1,0,'',578,0,0),(36405,7899,11,578,0,'218.214.35.132',1187484366,1,0,1,0,1,0,'','I tried the main window calling another window','However there was still no wait state and when I exited my child ? window the whole application closed','',0,'wA==','1um8ixye',1,0,'',578,0,0),(36406,7899,11,2,0,'87.218.146.147',1187485074,1,0,1,1,1,1,'','','Doug,\n\nFixed. We send you new LIBs.\n\nThanks for your feedback,','',0,'wA==','1buez4dl',1,0,'',2,0,0),(36407,7900,3,252,0,'189.166.30.56',1187492186,1,0,1,1,1,0,'','Reporteador Visual Gratuito.','Explorando en los foros me encontre  que nuestro camarada Tnhoe de Malasya ha desarrollo un generador visual de reportes en Fox, que puede ser usado desde FW. Y lo ha puesto a disposicion. Me parece un reporteador versatil y muy facil de usar en los progrmas de fw/fwh.\n   \n    El articulo y la liga para descargarlo esta en:\n\n    <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2748&amp;highlight=report\">http://fivetechsoft.com/forums/viewtopi ... ght=report</a><!-- m -->.\n\n    Saludos.','',0,'wA==','37u6tax3',1,0,'',252,0,0),(36408,7901,6,252,0,'189.166.30.56',1187492371,1,0,1,1,1,0,'','Reporteador Visual Gratuito','Explorando en los foros me encontre que nuestro camarada Tnhoe de Malasya ha desarrollo un generador visual de reportes en Fox, que puede ser usado desde FW. Y lo ha puesto a disposicion. Me parece un reporteador versatil y muy facil de usar en los progrmas de fw/fwh. \n\nEl articulo y la liga para descargarlo esta en: \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2748&amp;highlight=report\">http://fivetechsoft.com/forums/viewtopi ... ght=report</a><!-- m -->. \n\n   Saludos','',0,'wA==','264ij1xe',1,0,'',252,0,0),(36409,7893,6,854,0,'189.131.37.134',1187495322,1,0,1,1,1,0,'','Re:','Gracias a los 2\n\nArmando, me funciono muy bien.\n\nGracias.','',0,'wA==','3r3o7jxi',1,0,'',854,0,0),(36410,7902,11,578,0,'218.214.35.132',1187495721,1,0,1,0,1,0,'','ON DBLCLICK - How to do in FiveLinux or Wish List','Typically on a search screen the user can click on a browse to select an item then click on a View/Edit button to view/edit it.  As an alternative typically users expect to be able to double click on the item and go straight to view/edit (or whatever may be the default action).  This is easy to do in FiveWin\n\nON DBLCLICK defaultButton:Click()\n\nIs there a way of achieving this in FiveLinux? If not can I put it on a wish list?  Its not essential, but would make software more user friendly\n\nThanks\n\nDoug (xProgrammer)','',0,'wA==','372jsm89',1,0,'',578,0,0),(36411,7861,6,54,0,'189.132.118.124',1187499350,1,0,1,1,1,1,'','','Camaradas,\n\notra pequeña modificación.\n\n[url:y4qlfrc3]http&#58;//files-upload&#46;com/files/443395/reloj&#46;rar[/url:y4qlfrc3]\n\nSe incluye el test, 2 fuentes y una LIB, generada para xHarbour ultimo pcode.\n\nsaludos\n\nespero sea de ayuda','',0,'EA==','y4qlfrc3',1,0,'',54,0,0),(36412,7861,6,854,0,'189.131.37.134',1187501523,1,0,1,1,1,0,'','Re:','Esta modificacion de Willian esta muy bien\n\nPruebenla.','',0,'EA==','3mxmfwbv',1,0,'',854,0,0),(36413,7903,11,578,0,'218.214.35.132',1187512838,1,0,1,0,1,0,'','Hoping for a PASSWORD option for a GET or a suggested altern','Now that my first real FiveLinux application is getting close to being ready for implementation I should put a password protected login.  In FiveWin the GET has a PASSWORD option.  Is it possible to provide one in FiveLinux or does anyone know of a suitable work around?  It doesn\'t make that much sense having password protection if anyone can look over the operator\'s shoulder and see the password come up on the screen.\n\nNot essential but fairly desirable.','',0,'EA==','2ojgr9ru',1,0,'',578,0,0),(36414,7904,3,161,0,'81.83.249.31',1187513795,1,0,1,1,1,0,'','Problem opening database','Hi,\n\nHere I have a little example that is not working.\nThe program doens\'t open the countu.tmp database.\nCan anyone tell me why. It is working in FW + clipper 5.2e\n\n[code:2r9s0329]#INCLUDE &quot;fivewin&#46;CH&quot;\nREQUEST DBFCDX\nFUNCTION test&#40;&#41;\n   local vstruct&#58;=&#123;&#125;\n   RDDSETDEFAULT&#40;&quot;DBFCDX&quot;&#41;\n   dbstructuur&#58;=&#123;&#125;\n   aadd&#40;vstruct,&#123;\'NTWKNUM\',\'C\',2,0&#125;&#41;\n   aadd&#40;vstruct,&#123;\'NODENUM\',\'C\',2,0&#125;&#41;\n   aadd&#40;vstruct,&#123;\'NODETYP\',\'C\',5,0&#125;&#41;\n   aadd&#40;vstruct,&#123;\'NTWKTYP\' ,\'C\',5,0&#125;&#41;\n   aadd&#40;vstruct,&#123;\'POINTS\' ,\'N\',7,0&#125;&#41;\n   dbcreate&#40;\'count&#46;tmp\',vstruct&#41;\n   use &#40;\'count&#46;tmp\'&#41; new\n   index on str&#40;val&#40;ntwknum&#41;,2&#41; to &#40;\'countu\'&#41; unique\n   copy to &#40;\'countu&#46;tmp\'&#41;\n   use countu&#46;tmp new\n   go top\nRETURN nil\n[/code:2r9s0329]\n\nThe error occur in the last line \'go top\'\n\nThanks\nMarc','',0,'AIA=','2r9s0329',1,0,'',161,0,0),(36415,7903,11,2,0,'87.218.146.147',1187518930,1,0,1,1,1,1,'','','Doug,\n\nImplemented. We send you new LIBs\n\n@ ..., ... GET ... PASSWORD','',0,'AIA=','mdn4bouw',1,0,'',2,0,0),(36416,7904,3,2,0,'87.218.146.147',1187521333,1,0,1,1,1,1,'','','Marc,\n\nTry to place a SysRefresh() call in between, as it may be still open:\n\n   copy to (\'countu.tmp\')\n   SysRefresh()\n   use countu.tmp new','',0,'AIA=','2xsjqg68',1,0,'',2,0,0),(36417,7903,11,578,0,'218.214.35.132',1187524119,1,0,1,0,1,0,'','Works Beautifully','Antonio\n\nMy thanks yet again.  Works beautifully.  \n\nDoug (xProgrammer)','',0,'AIA=','2xvw2wx8',1,0,'',578,0,0),(36418,7905,6,1106,0,'190.64.203.0',1187530540,1,0,1,1,1,0,'','Combobox o dbcombo','Amigos:\n\nTengo un array que contiene\naHoras :={\"H00_A1\",\"H01_A2\",\"H02_A3\",....}  \n\nQue debo usar combobox o dbcombo con el array y \nHay alguna forma que me muestra solo los 00, 01, 02 y al\nseleccionar seleccione todo el string?\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'AIA=','2puhhsgs',1,0,'',1106,0,0),(36419,7903,11,2,0,'87.218.146.147',1187532454,1,0,1,1,1,1,'','','Doug,\n\nThanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','34tporv0',1,0,'',2,0,0),(36420,7906,1,382,0,'80.140.89.200',1187537247,1,0,1,1,1,1,'','Binding Res-Files into Exe - Vista','I use Borlands RC.Exe to integrate an 16-Bit-ResFile into an 16-Bit-ExeFile.\n\nBut using 16-Bit-RC.Exe under MS Vista, i get an Error \"not an 32-bit-Appication\".\n\nI use: RC -k x1.Res y1.Exe\n\nIs there an workaround or can I use another ResFile-Binder for 16-Bit-Exe?','',0,'AIA=','7oihv00f',1,0,'',382,0,0),(36421,7906,1,2,0,'87.218.146.147',1187543063,1,0,1,1,1,1,'','','Frank,\n\nIt looks as you are using Vista 64 bits, so 16 bits applications are no longer supported.\n\nAre you able to run your Clipper application ? It may not work too, as it is 16 bits too.','',0,'AIA=','1se3u97h',1,0,'',2,0,0),(36422,7756,6,854,0,'189.131.37.134',1187546218,1,0,1,1,1,0,'','Re:','Antonio, gracias, pero lo solucione tomando la ubicacion del dialogo y luego sumandole la ubicacion del get y solo asi me funciono.','',0,'AIA=','386olmc1',1,0,'',854,0,0),(36423,7907,7,358,0,'87.219.145.71',1187549443,1,0,1,1,1,0,'','Como actualizar los controles de un dialogo.','Hola a todos.\n\nEn FW con oDlg:Update() se actualizaban todos los controles de un dialogo.\nEn FWPPC parece no existir esa función en la clase. Hay alguna alternativa que no sea recorrer con un bucle, oDlg:Acontrols[x]:Refresh(), ya que esta es lenta y muestra un feo efecto en pantalla.\n\nGracias.','',0,'','24w488qf',1,0,'',358,0,0),(36424,7756,6,2,0,'87.218.146.147',1187549498,1,0,1,1,1,1,'','','Si, esas son las coordenadas absolutas en la pantalla. \n\nLas que te indiqué eran relativas al diálogo en donde está, por eso tuvistes que sumar las coordenadas del diálogo','',0,'','30pk95aa',1,0,'',2,0,0),(36425,7907,7,2,0,'87.218.146.147',1187549566,1,0,1,1,1,1,'','','Salvador,\n\nPrueba con oDlg:Refresh()','',0,'','19q877nh',1,0,'',2,0,0),(36426,7882,3,47,0,'203.144.160.247',1187587938,1,0,1,1,1,0,'','','Dear Rene,\n\nIt\'s working perfectly.\n\nThanks&amp;Regards,\nDutch','',0,'','2701hn0g',1,0,'',47,0,0),(36427,7904,3,161,0,'213.119.247.241',1187589529,1,0,1,1,1,0,'','','Hi,\n\nThe problem is solved by replacing\n\n[code:2s7ciivk]index on str&#40;val&#40;ntwknum&#41;,2&#41; to &#40;\'countu\'&#41; unique [/code:2s7ciivk]\nwith\n[code:2s7ciivk]index on str&#40;val&#40;ntwknum&#41;,2&#41; tag &#40;\'countu\'&#41; unique [/code:2s7ciivk]\n\n\nIn FW + six-driver the first line also works fine.\n\nRegards,\nMarc','',0,'AIA=','2s7ciivk',1,0,'',161,0,0),(36428,7904,3,2,0,'87.218.146.147',1187594175,1,0,1,1,1,1,'','','Marc,\n\nWhat was the replacement ? The two lines are the same','',0,'AIA=','2rz90wdd',1,0,'',2,0,0),(36429,7895,6,23,0,'213.96.85.49',1187601160,1,0,1,1,1,1,'','','En efecto, faltaba la línea\n\n[code:2a6w1vg0]   &#58;&#58;DispEnd&#40; aInfo &#41;[/code:2a6w1vg0]\n\nMuchas gracias.','',0,'AIA=','2a6w1vg0',1,0,'',23,0,0),(36430,7904,3,161,0,'213.119.247.241',1187603604,1,0,1,1,1,0,'','','Antonio,\n\nIn the first line is INDEX ON ... TO ... and the second is INDEX ON ... TAG ... \n\nMarc','',0,'AIA=','2xqi1e8z',1,0,'',161,0,0),(36431,7904,3,2,0,'87.218.146.147',1187603948,1,0,1,1,1,1,'','','ok, thanks','',0,'AIA=','17mrqqs5',1,0,'',2,0,0),(36432,7907,7,358,0,'81.45.232.39',1187608297,1,0,1,1,1,0,'','','Seguramente hay algo que no acabo de entender por mi inexperiencia con FWPPC.\nPero el siguiente codigo, no refresca los controles si no cogen el foco, el get numérico aparece centrado, y el spinner no se ven los botones. \n\nQue hago mal ?.\n\nGracias.\n\n[code:2i56s1ru]#include &quot;FWCE&#46;ch&quot;\nSTATIC oWnd, oDlg ,cTexto, nNumero, nNumero2\n\nFunction Main&#40;&#41;\n\n    DEFINE WINDOW oWnd ;\n\n    DEFINE DIALOG oDlg RESOURCE &quot;DlgTest&quot;;\n    STYLE WS_CHILD OF oWnd\n\n\n    REDEFINE GET oGet VAR cTexto ID 200 OF oDlg UPDATE;\n    PICTURE &quot;@x&quot;\n\n    REDEFINE GET oGet VAR nNumero  ID 201 OF oDlg UPDATE;\n    PICTURE &quot;9999999&quot;;\n\n\n    REDEFINE GET oGet VAR nNumero2 ID 202 OF Odlg UPDATE;\n    PICTURE &quot;999&quot;;\n    SPINNER MIN 0 MAX 255;\n\n    ACTIVATE DIALOG oDlg NOWAIT;\n    ON INIT &#40;MoveWindow&#40; oDlg&#58;hWnd, 0, 0&#41;, UpdateVars&#40;&#41;, oDlg&#58;Refresh&#40;&#41;&#41;;\n    VALID &#46;f&#46;\n\n   ACTIVATE WINDOW oWnd ;\n   ON INIT oDlg&#58;SetFocus&#40;&#41;;\n   VALID &#40;oDlg&#58;End&#40;&#41;, &#46;t&#46; &#41;\n\n\nreturn nil\n\n\nFunction UpdateVars&#40;&#41;\n  cTexto   &#58;= &quot;Mi texto&quot;\n  nNumero  &#58;= 9\n  nNumero2 &#58;= 10\n  oDlg&#58;Refresh&#40;&#41;\nreturn &#46;t&#46;\n\n\n// el RC\n\n#ifdef _CE\n\n#include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n#include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n\n\n#define I_IMAGENONE             &#40;-2&#41;\n#define IDS_HELP      104\n\n102 RCDATA\nBEGIN\n  102, 2,\n  I_IMAGENONE, 202, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 202, 0, 0,\n  I_IMAGENONE, 203, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 203, 0, 1,\nEND\n#endif\n\n\nDLGTEST DIALOG 48, 28, 166, 180\nSTYLE 0x4L | WS_CHILD\nFONT 8, &quot;system&quot;\n&#123;\n EDITTEXT 200, 34, 8, 42, 11, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 201, 35, 26, 42, 11, ES_RIGHT | WS_BORDER | WS_TABSTOP\n EDITTEXT 202, 36, 45, 34, 11, ES_RIGHT | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n RTEXT &quot;Texto&quot;, -1, 2, 10, 28, 10\n RTEXT &quot;Número&quot;, -1, 6, 28, 28, 10\n RTEXT &quot;Spinner&quot;, -1, 4, 45, 28, 10\n&#125;[/code:2i56s1ru]','',0,'AIA=','2i56s1ru',1,0,'',358,0,0),(36433,7908,6,1140,0,'189.24.108.214',1187617278,1,0,1,1,1,0,'','Como Refazer o Preview','Olá Pessoal \n\nEstou montando uma rotina para poder selecionar a impressora de dentro do preview ja aberto \n\nDe jato para jato ou de jato p. Laser ja esta funcionando o problema é q. qdo se muda de uma jato ou laser para uma matricial tem q. ser refeito o preview devido a diferenca de dpi das matriciais para as jato ou laser\n\nAlguem sabe como resolver ?\n\n\num abraço\n\n\nMarcelo Ferro\nFwh7.04/xHarbour 99.71/SqlLib /xMate/WS','',0,'AIA=','2rpp9zhs',1,0,'',1140,0,0),(36434,7909,3,689,0,'201.47.44.205',1187618565,1,0,1,1,1,0,'','WindowsXP.Manifest64','Hello, somebody already uses or know where to get this file? \n\nRegards.\n\nEroni','',0,'AIA=','3axo04nr',1,0,'',689,0,0),(36435,7907,7,2,0,'87.218.146.147',1187621009,1,0,1,1,1,1,'','','Salvador,\n\nHemos implementado el método Update() para FWPPC. \n\nTe enviamos por email la LIB modificada. Ahora tu ejemplo funciona bien.\n\nLos números no es que aparezcan centrados, sino que debes modificar su ancho ó variar su PICTURE.\n\nLa claúsula SPINNER parece que no la acepta Windows Mobile.','',0,'AIA=','2vpqb14z',1,0,'',2,0,0),(36436,7909,3,2,0,'87.218.146.147',1187621502,1,0,1,1,1,1,'','','Eroni,\n\nThis is the one used by FWH 64 bits (WindowsXP.Manifest64). It is located at FWH64\\samples\\winxp\\\n[code:3tf96nyt]\n&lt;?xml version=&quot;1&#46;0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;yes&quot;?&gt;\n&lt;assembly xmlns=&quot;urn&#58;schemas-microsoft-com&#58;asm&#46;v1&quot; manifestVersion=&quot;1&#46;0&quot;&gt;\n&lt;assemblyIdentity\n    version=&quot;1&#46;0&#46;0&#46;0&quot;\n    processorArchitecture=&quot;AMD64&quot;\n    name=&quot;FiveTech Software&#46;FiveWin&#46;64bits&quot;\n    type=&quot;win32&quot;\n/&gt;\n&lt;description&gt;Your application description here&#46;&lt;/description&gt;\n&lt;dependency&gt;\n    &lt;dependentAssembly&gt;\n        &lt;assemblyIdentity\n            type=&quot;win32&quot;\n            name=&quot;Microsoft&#46;Windows&#46;Common-Controls&quot;\n            version=&quot;6&#46;0&#46;0&#46;0&quot;\n            processorArchitecture=&quot;AMD64&quot;\n            publicKeyToken=&quot;6595b64144ccf1df&quot;\n            language=&quot;*&quot;\n        /&gt;\n    &lt;/dependentAssembly&gt;\n&lt;/dependency&gt;\n&lt;/assembly&gt;\n[/code:3tf96nyt]','',0,'AIA=','3tf96nyt',1,0,'',2,0,0),(36437,7908,6,2,0,'87.218.146.147',1187621835,1,0,1,1,1,1,'','','Marcelo,\n\nEl preview usa unos ficheros metafiles que estan construidos en base a un hDC (device context) de la impresora que se va a usar.\n\nSi cambias de impresora entonces tendrías que volver a crear los ficheros metafiles, algo que se podría hacer, pero que no es sencillo.','',0,'AIA=','21vhyl0k',1,0,'',2,0,0),(36438,7891,1,819,0,'67.187.239.16',1187621901,1,0,1,1,1,0,'','','Yes. \n\nThanks,\n\nJose','',0,'AIA=','3pd298nm',1,0,'',819,0,0),(36439,7910,3,529,0,'200.139.130.220',1187622082,1,0,1,1,1,0,'','Xharbour and .net','HI, xharbour works with last .net framework? thanks','',0,'AIA=','2wj7xbf0',1,0,'',529,0,0),(36440,1271,1,367,0,'201.67.85.86',1187622348,1,0,1,1,1,1,'','','English\n-----------\nI am willing what at the moment than I do click into the button for gerar the graph , already come the graph of pizza with legend. Of the manner what is I have what click into the button on toolbar about to come into being the legend.\n\nPortugues\n-------------\nEu quero que no momento que eu clicar no botão pra gerar o gráfico, já venha o gráfico de pizza com legenda. Do jeito que está tenho que clicar no botão na barra de ferramentas para aparecer a legenda.','',0,'AIA=','2krvldsh',1,0,'',367,0,0),(36441,7911,6,911,0,'200.72.141.53',1187624046,1,0,1,1,1,0,'','Búsqueda incremental en wbrowse - SOLUCIONADO vean solución','Hola:\nTengo el siguiente código:\n[code:gxvb1mb3]FUNCTION BuscarClientes&#40; oParent&#41;\n   LOCAL oDlg, oBrw, oBusqueda, cBusqueda, aResultado\n   aResultado&#58;=Sql&#40;&quot;SELECT rut,nombre,ciudad,email FROM BASEDEDATOS&#46;CLIENTES ORDER BY nombre&quot;&#41;\n   IF aResultado&#91;1&#93;\n      IF aResultado&#91;3&#93;&#58;RecordCount&gt;0\n         aResultado&#91;3&#93;&#58;MoveFirst&#40;&#41;\n         DEFINE DIALOG oDlg RESOURCE &quot;BUSCARCLIENTES&quot;\n         REDEFINE LISTBOX oBrw ;\n            FIELDS Str&#40;aResultado&#91;3&#93;&#58;Fields&#40;0&#41;&#58;value,0&#41;, ;\n                   aResultado&#91;3&#93;&#58;Fields&#40;1&#41;&#58;value, ;\n                   aResultado&#91;3&#93;&#58;Fields&#40;2&#41;&#58;value, ;\n                   aResultado&#91;3&#93;&#58;Fields&#40;3&#41;&#58;value ;\n            ID 102;\n            FIELDSIZES 80, 250, 100, 250 ;\n            HEADERS &quot;R&#46;U&#46;T&#46;&quot;,&quot;Razón Social&quot;,&quot;Ciudad&quot;,&quot;email&quot; OF oDlg\n         oBrw&#58;bLogicLen &#58;= &#123; || aResultado&#91;3&#93;&#58;RecordCount &#125;\n         oBrw&#58;bGoTop    &#58;= &#123; || aResultado&#91;3&#93;&#58;MoveFirst&#40;&#41; &#125;\n         oBrw&#58;bGoBottom &#58;= &#123; || aResultado&#91;3&#93;&#58;MoveLast&#40;&#41; &#125;\n         oBrw&#58;bSkip     &#58;= &#123; | nSkip | Salto&#40; aResultado&#91;3&#93;, nSkip &#41; &#125;\n         oBrw&#58;cAlias    &#58;= &quot;ARRAY&quot;\n\n         REDEFINE BUTTON ID 301 OF oDlg ACTION &#40; oDlg&#58;bValid&#58;=&#123; || &#46;T&#46;&#125;, oDlg&#58;End&#40;&#41;&#41; ;\n            CANCEL\n         ACTIVATE DIALOG oDlg CENTER VALID &#46;F&#46;\n      ELSE\n         MsgStop&#40; &quot;No existen Clientes en el Maestro&quot;, &quot;Error&quot;&#41;\n      ENDIF\n      aResultado&#91;3&#93;&#58;Close&#40;&#41;\n      aResultado&#91;2&#93;&#58;Close&#40;&#41;\n   ENDIF\nRETURN NIL[/code:gxvb1mb3]\nMi consulta es la siguiente:\nCómo puedo hacer para realizar una búsqueda incremental sobre el browse ya que este es un array obtenido de un objeto adodb.recordset?.\nLa idea es que yo escriba en el get y al presionar enter o cuando pierda el foco si detecta que hay datos en el get busque por aproximación en el browse y me posicione sobre el primer registro que coincida con la palabra encontrada. La idea es que si coloco AB se posicione sobre el primer registro que comienza con AB.\nEsto lo hago sin problemas al realizar un browse directamente a un .DBF. Nunca lo he realizado en un array.\n\n[quote:gxvb1mb3][b:gxvb1mb3]He intentado esto para poder obtener los datos seleccionados en el browse al presionar un botón o hacer doble click sobre el registro:\n[/b:gxvb1mb3]\n\n[code:gxvb1mb3]nPos&#58;=oBrw&#58;nAt //==&gt;retorna NIL\nnPos&#58;=oBrw&#58;nRowPos //==&gt; retorna el registro donde estoy\nMsgInfo&#40; oBrw&#58;aArray&#91;1,1&#93; //hace que mi aplicación se cuelgue&#46; No muestra ningún error&#46; Simplemente se cuelga&#46;[/code:gxvb1mb3][/quote:gxvb1mb3]\n\nSaludos y mil gracias\nDavid Lagos S.\nCoquimbo-Chile\n\nP.D:René, tu blog está excelente. Felicitaciones.\nAdjunto una imagen\n[img:gxvb1mb3]http&#58;//img512&#46;imageshack&#46;us/my&#46;php?image=imagenbrowserm7&#46;jpg[/img:gxvb1mb3][quote:gxvb1mb3][/quote:gxvb1mb3]','',0,'yIA=','gxvb1mb3',1,1187723242,'',911,1,0),(36442,7887,2,92,0,'81.38.202.80',1187624171,1,0,1,1,1,0,'','Re: Ejemplos de codigo FW','[quote=&quot;RF&quot;:1bgiheua][quote=&quot;ingggc&quot;:1bgiheua]Solicito de la manera más atenta a quién tenga ejemplos de código escrito en FW (Archivos PRG), que debo de hacer para obtenerlos, ya analice todos los ejemplos que vienen con CD de FW y realmente es código muy sencillo, requiero algo más práctico que me permita disipar todas las dudas que tengo.\n[/quote:1bgiheua]\n\nAlfredo Artega tiene a la venta un programa completo de gestion administrativa con todo el código fuente incluido, incluye nomina, bancos, facturacion, contabilidad, vamos, todo.\n\nPuedes visitar su web y bajarte un demo:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->[/quote:1bgiheua]\n\nGracias Rene,\n\nLo que busco ha de ser sencillo y gratis.\n\nLas asociaciones de padres de alumnos existen y funcionan por la buena disposición y voluntad de sus componentes, y sus recursos no suelen destinarse a su propia administración (que por otro lado es muy poca).\n\nSaludos\nCarlos G.','',0,'gA==','1bgiheua',1,0,'',92,0,0),(36443,7877,3,167,0,'207.119.126.13',1187624322,1,0,1,1,1,1,'','','Sure - \n\n<!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/Image-to-PDF-Dynamic-Link-Library.htm\">http://www.utilitywarrior.com/Image-to- ... ibrary.htm</a><!-- m -->\n\nThis is a great utility - minor changes in your prg\'s make this a seamless process using .emf files from your tdprint.prg\n\n\nps - the \"Notify me when a reply is posted\" option is not working for my login-id - is a special profile setting required?','',0,'gA==','29jrkwr4',1,0,'',167,0,0),(36444,7912,3,167,0,'207.119.126.13',1187624889,1,0,1,1,1,1,'','debugger current FWH / xHarbour','I have run the xHarbour debugger with recent upgrade to FWH 7.07 / xHarbour 99.71 and encounter 2 issues.\n\nissue 1 - abend due to different circumstances in SHOWVARS method.  The abend seems to happen as I repeatedly \"step\" with the F8 key into subordinate functions and/or back again.  \n\n------------------------------------------------------\nError description: Error BASE/1004  Class: \'NIL\' has no exported method: CARGO\nCalled from (b)TDEBUGGER:SHOWVARS(2784)\n\n----------------------------------------------------------\n\n   Error description: Error BASE/9999  Argument error: HB_DBG_VMVARLGET\n   Args:\n     [   1] = N   -2\n     [   2] = N   65535\n   Called from TDEBUGGER:VARGETVALUE(3016)\n   Called from TDEBUGGER:VARGETINFO(2981)\n   Called from (b)TDEBUGGER:SHOWVARS(2790)\n\n---------------------------------------------------------\n\n\nItem 2 - Sometimes the source code area goes blank in one function, then as control with F8 passes to a subordinate function, source code re-appears, then upon control to higher function source code dissappears.\n\nThis happens especially if I \"step\" through or \"run\" through a msgstop() or similar.  After the msgbox is displayed, source code for that function is gone.','',0,'','2f3kxd2g',1,0,'',167,0,0),(36445,7906,1,382,0,'80.140.73.224',1187630227,1,0,1,1,1,1,'','','I\'m using Vista-Business 32 bits; all my DOS- and 16-Bit-Clipper-Apps run without any problems.\n\nI have found the solution as a workaround to \"Rc.Exe\": \nI\'m using now the Blinker-Linkscript-Command \"RC\" and it works fine.\n\nThanks','',0,'','3lz5umpf',1,0,'',382,0,0),(36446,7910,3,2,0,'87.218.146.147',1187630723,1,0,1,1,1,1,'','','Norberto,\n\nAFAIK, Harbour neither xHarbour work with .NET.\n\nI started a very early .NET implementation with Harbour, generating .NET virtual machine output for very simple tests, but no one else got involved in its development.','',0,'','395s8sf9',1,0,'',2,0,0),(36447,7912,3,2,0,'87.218.146.147',1187630851,1,0,1,1,1,1,'','','Don,\n\nAre you using the xHarbour console mode debugger ?\n\nIf yes, then you should report it at comp.lang.xharbour, thanks','',0,'','20r25pp8',1,0,'',2,0,0),(36448,7891,1,2,0,'87.218.146.147',1187631636,1,0,1,1,1,1,'','','Jose,\n\nlocals and statics have no name, just their value based in their position.\n\nThere should be a way to get the publics and private names.\n\nAnyhow, why don\'t you port your application to Harbour/xHarbour and FWH ? There we have full access to all that information.','',0,'','36em2l2q',1,0,'',2,0,0),(36449,7912,3,167,0,'207.119.126.13',1187633484,1,0,1,1,1,1,'','','Yes I am using the console version.  Do I have any other options?','',0,'','1fmg246n',1,0,'',167,0,0),(36450,7912,3,217,0,'200.159.120.34',1187633661,1,0,1,1,1,0,'','','I tryed for many times debug my FW program but I had no success.\nI use FWH 7.01 and xHarbour comercial (march/2007).\nIf anybody can help me I\'ll be glad\n\nRegards,\nMaurilio','',0,'','2g6g5q3y',1,0,'',217,0,0),(36451,7912,3,972,0,'81.164.48.155',1187634210,1,0,1,1,1,0,'','','[quote=&quot;Maurilio Viana&quot;:392a4om4]I tryed for many times debug my FW program but I had no success.\nI use FWH 7.01 and xHarbour comercial (march/2007).\nIf anybody can help me I\'ll be glad\n\nRegards,\nMaurilio[/quote:392a4om4]\n\nHello Maurilio,\n\nWe are doing final tests to debug a FWH app with Visual xDebugger.\nWill let you know when we have more info on this.\n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','392a4om4',1,0,'',972,0,0),(36452,7912,3,167,0,'207.119.126.13',1187634377,1,0,1,1,1,1,'','','Maurilio, \n\nI am able to run debugger, but sometimes I have problems.\n\nTo get it to work similar to Clipper Debugger, \n\ncompile .prg with /b switch.\nInclude in your .lnk script debug.lib from the xharbour lib folder\n\nFor borland linker, xHarbour v99.5,  omit the -aa switch from the Ilink32 command line.\n\nFor xHarbour v99.7 with Microsoft VC6.0, include msvcrt.lib and remove msvgui.lib\n\nNot sure about the commercial xHarbour debugger - there is another message on the board from a couple of days ago asking the same question.','',0,'gA==','mofcfns7',1,0,'',167,0,0),(36453,7910,3,529,0,'200.139.130.220',1187637321,1,0,1,1,1,0,'','','Antonio, why? there´s no demand for this? thanks','',0,'gA==','2l0a4e6v',1,0,'',529,0,0),(36454,7913,6,300,0,'189.11.225.15',1187637807,1,0,1,1,1,0,'','Ajuda con tree','Olá, no me funciona bits transparentes en tree nem las colores fore e back. \n\nSalu2\n\n[url:3n2r2qub]http&#58;//img74&#46;imageshack&#46;us/img74/3172/treemy8&#46;jpg[/url:3n2r2qub]','',0,'EA==','3n2r2qub',1,0,'',300,0,0),(36455,7910,3,35,0,'167.7.140.254',1187643614,1,0,1,1,1,0,'','','To All\n\nDot Net works great for web applications where you have the .net framework installed in a controlled environment .. BUT .. I live in a world where I have over 5000 desktops in State Gov and to me .. creating ( any ) application that relies on a \'runtime\' is a infrastructure nightmare.\n\nPlease correct me if I am wrong .. \n\nRick Lipkin\nSC Dept of Health, USA','',0,'EA==','3lkottl3',1,0,'',35,0,0),(36456,7914,6,1072,0,'201.236.155.103',1187643907,1,0,1,1,1,0,'','Una Tremenda duda con BROWSE','HOLA AMIGOS:\n\nNECESITO MANEJAR UNA BASE DE DATOS DE 4.000.000 APROX. DE REGISTRO, CUAL ES EL BROWSE MAS RAPIDO.\n\nCUALQUIER RECOMENDACION SE LAS AGRADEZCO.\n\nSALUDOS,\nANTONIO.\n\nFWH 7.01  , XHARBOUR 99.61','',0,'EA==','3ufjdchc',1,0,'',1072,0,0),(36457,7915,7,179,0,'200.24.221.138',1187644978,1,0,1,1,1,1,'','errores de memoria en Fwppc version anterior','Antonio tengo fwppc con las siguientes fechas de los archivos\nfivece.lib 01/09/2006\nfivecec.lib 30/08/2006\n\nen un programa que usa browse cuando le trabajan desde las 8:00 am y pasan de las 2pm les bota del sistema sin dar ningun error, me parece que era un error en manejo de memoria, parece que vi ese mensaje, en todo caso podrias cotizarme la ultima version y claro espero resuelva ese problema (no es problema de programacion porque eso ya revise)\no si hay otra solucion ???\n\ngracias x tu atencion\n\nsaludos','',0,'EA==','2oulzqut',1,0,'',179,0,0),(36458,7915,7,2,0,'87.218.146.147',1187646339,1,0,1,1,1,1,'','','Wilson,\n\nLa versión actual es la de Julio 2007 y usa el build de Harbour más reciente por lo que incluye todas las mejoras.\n\nLa actualización puedes solicitarla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->. El precio es 139,2 euros','',0,'EA==','34woogbn',1,0,'',2,0,0),(36459,7905,6,41,0,'200.87.67.11',1187646373,1,0,1,1,1,0,'','','Hola,\n\n\npuedes utilizar cualquiera pieso, un combo normal, puedes post procesar el resultado en On CHANGE y creo que tambien en el VALID, para que en funcion de tu seleccion tengas el resultado que esperas, por otra parte el DBCOMBO tambien te sirve, utilizando ITEMFIELD, LISTFIELD para los arreglos de visualizacion y resultado\n\nsaludos\n\nMarcelo','',0,'EA==','17gwtitr',1,0,'',41,0,0),(36460,7910,3,2,0,'87.218.146.147',1187646571,1,0,1,1,1,1,'','','Rick,\n\nI fully agree with you <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nNorberto,\n\nIt seems that there is not very much interest in it, or I guess that some more people would have been involved in the development that I started.\n\nAnyhow there is already a .NET xbase solution (Cule): <!-- m --><a class=\"postlink\" href=\"http://www.softwareperspectives.com/culeplace/Default.aspx?tabid=54\">http://www.softwareperspectives.com/cul ... x?tabid=54</a><!-- m -->','',0,'EA==','2ktttosg',1,0,'',2,0,0),(36461,7877,3,2,0,'87.218.146.147',1187646881,1,0,1,1,1,1,'','','Don,\n\n&gt; <!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/Image-to-PDF-Dynamic-Link-Library.htm\">http://www.utilitywarrior.com/Image-to- ... ibrary.htm</a><!-- m --> \n\nWe are going to review it asap\n\n&gt;\nThis is a great utility - minor changes in your prg\'s make this a seamless process using .emf files from your tdprint.prg \n&gt;\n\nWe would like to find a free solution for PDF that we may use from FWH\n\n&gt;\nps - the \"Notify me when a reply is posted\" option is not working for my login-id - is a special profile setting required?\n&gt;\n\nIt should work, but these forums are standard (PHPBB) so maybe its a bug, don\'t know for sure','',0,'EA==','iu0c755m',1,0,'',2,0,0),(36462,7911,6,2,0,'87.218.146.147',1187647023,1,0,1,1,1,1,'','','David,\n\nTendrás que buscar en los elementos del array, bien usando Left() ó At()','',0,'EA==','3u882qcw',1,0,'',2,0,0),(36463,7916,3,34,0,'68.5.217.82',1187647079,1,0,1,1,1,1,'','Watermark on Printout','Has anyone tried to implement a watermark on a printout ?  If so, would you mind sharing the strategy ?  Thanks.','',0,'EA==','3a2fted6',1,0,'',34,0,0),(36464,7914,6,2,0,'87.218.146.147',1187647189,1,0,1,1,1,1,'','','Antonio,\n\nPosiblemente el browse más rápido es el propio TWBrowse de FWH.\n\nDe todas formas, porque tengas tantos registros, un browse no tiene porque ir lento, no importa cual uses.','',0,'EA==','1mtmq4yr',1,0,'',2,0,0),(36465,7916,3,2,0,'87.218.146.147',1187647317,1,0,1,1,1,1,'','','Tim,\n\nDo you want a text watermark (light gray color, or similar) or an image watermark ?','',0,'EA==','2h93of2c',1,0,'',2,0,0),(36466,7913,6,2,0,'87.218.146.147',1187647637,1,0,1,1,1,1,'','','Wanderson,\n\nPor favor revisa samples\\TestTree.prg y los bitmaps que usa bitmaps\\16x16\\folder.bmp y fldmask.bmp','',0,'EA==','3kjc3crr',1,0,'',2,0,0),(36467,7911,6,911,0,'200.72.141.53',1187647939,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2o5vj6mx]David,\n\nTendrás que buscar en los elementos del array, bien usando Left() ó At()[/quote:2o5vj6mx]\n\nAntonio, gracias por la respuesta. Con relación a cómo obtener los datos cuando presiono un botón, ya está resuelto.\nLo que tengo que hacer ahora es poder reasignar los campos al browse en tiempo de ejecución y refrescar el browse.\n\nSi no me equivoco debo modifica el oBrw:bLine, correcto?\nY si es así como recargo :bLine nuevamente?, me refiero a la forma de pasar los datos.\nMe explico. Estoy realizando nuevamente una consulta SQL del tipo where nombre like \'hdhdhd%\'. El nuevo resultado de la consulta con adodb.recordset la debo cargar al browse como cuando utilizo el REDEFINE LISTBOX.\nSaludos\nDavid Lagos S.\nCoquimb-Chile','',0,'gA==','2o5vj6mx',1,0,'',911,0,0),(36468,7914,6,1072,0,'201.236.155.103',1187647962,1,0,1,1,1,0,'','','ANTONIO:\n\nGRACIAS POR RESPONDER, PERO COMO HE VISTO ALGUNOS NOMBRES DE BROWSE, YA SEA TWBROWSE, TSBROWSE , TCBROWSE, PENSE QUE NODRIA TENER ALGUNA DIFERENCIA SOBRE MI DUDA.\n\n\n\nSALUDOS,\nANTONIO\n\n\n[quote=&quot;Antonio Linares&quot;:11nsds12]Antonio,\n\nPosiblemente el browse más rápido es el propio TWBrowse de FWH.\n\nDe todas formas, porque tengas tantos registros, un browse no tiene porque ir lento, no importa cual uses.[/quote:11nsds12]','',0,'gA==','11nsds12',1,0,'',1072,0,0),(36469,7910,3,35,0,'65.188.6.143',1187648299,1,0,1,1,1,0,'','','Antonio\n\nVista comes with the .net framework 3 .. however, I have some GIS applications from ESRI ArcGis Explorer for example .. that have to use the framework 2 .. don\'t really know if that is compatable with the framework 3 .. in anycase .. keeping up with different ( perhaps incompatable versions ) of the framework runtime is not my idea of deploying an app that will run on any desktop.\n\nOne of the GREAT things about ADO is that the ole drivers are part of the Windows OS and have been since at least Win2000. Writing a Win32 app and deploying it to a SQL backend is so much easier than having to rely on a runtime framework for an enterprise application.\n\nJust my 2 cents worth.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','2xut2ptb',1,0,'',35,0,0),(36470,7911,6,2,0,'87.218.146.147',1187648341,1,0,1,1,1,1,'','','David,\n\nbLine es un codeblock que tiene que devolver un array, con un valor por cada columna. Lo interesante es que puede llamar a una función que realice los calculos que sean necesarios y devuelva el array:\n\noBrw:bLine = { || { &lt;col1&gt;, ..., &lt;colN&gt; } }\n\nó llamar a una función:\n[code:137rogbn]\noBrw&#58;bLine = &#123; || CalculaValores&#40;&#41; &#125;\n\nfunction Calculavalores&#40;&#41;\n\n   &#46;&#46;&#46; calcula col1, &#46;&#46;&#46; colN\n\nreturn &#123; &lt;col1&gt;, &#46;&#46;&#46;, &lt;colN&gt; &#125;\n[/code:137rogbn]','',0,'AIA=','137rogbn',1,0,'',2,0,0),(36471,7908,6,1140,0,'189.24.108.214',1187650360,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3mte1eix]Marcelo,\n\nEl preview usa unos ficheros metafiles que estan construidos en base a un hDC (device context) de la impresora que se va a usar.\n\nSi cambias de impresora entonces tendrías que volver a crear los ficheros metafiles, algo que se podría hacer, pero que no es sencillo.[/quote:3mte1eix]\n\nOlá Linhares é um prazer teclar com vc\n\n   Passei esta pergunta ao Gilmer aqui da Fw Brasil,  pos tenho extrema nesecissade de resolver isso para um determinado cliente meu, e temos uma lib maravilhosa aqui q. faz +- isso com algumas vantagens de tbem gerar em pdf , mas eu tento não utilizar libs q. eu nao tenha o fonte, vc me entende ?\n\n\nSeria possível vc me ajudar com isso ?\n\n\n\ndesde já um abraço','',0,'gA==','3mte1eix',1,0,'',1140,0,0),(36472,7915,7,179,0,'200.24.221.138',1187651444,1,0,1,1,1,1,'','','gracias Antonio','',0,'gA==','1pf8mcnf',1,0,'',179,0,0),(36473,7917,3,2,0,'87.218.146.147',1187653659,1,0,1,1,1,1,'','FWH New Class TPreview','Managing as many previews simultaneously as needed:\n\n[url=http&#58;//imageshack&#46;us:3fg6a0o6][img:3fg6a0o6]http&#58;//img211&#46;imageshack&#46;us/img211/2135/tpreviewsg6&#46;png[/img:3fg6a0o6][/url:3fg6a0o6]','',0,'GA==','3fg6a0o6',1,0,'',2,0,0),(36474,7918,6,2,0,'87.218.146.147',1187653753,1,0,1,1,1,1,'','FWH Nueva Clase TPreview','Usando tantos previews simultaneamente como se necesiten:\n\n[url=http&#58;//imageshack&#46;us:dz00u920][img:dz00u920]http&#58;//img211&#46;imageshack&#46;us/img211/2135/tpreviewsg6&#46;png[/img:dz00u920][/url:dz00u920]','',0,'GA==','dz00u920',1,0,'',2,0,0),(36475,7917,3,35,0,'65.188.6.143',1187654088,1,0,1,1,1,0,'','','Antonio\n\nI like the appearance .. the toolbar you are testing .. is that only for the manifest theme or could you ( wish list ) update the standard prev32.dll icons with the same look ??\n\nRick Lipkin','',0,'GA==','3ck477ok',1,0,'',35,0,0),(36476,7917,3,2,0,'87.218.146.147',1187654809,1,0,1,1,1,1,'','','Rick,\n\nActually we are using them if you use XP themes only, but we could certainly upgrade prev32.dll to use them','',0,'GA==','22422skz',1,0,'',2,0,0),(36477,7919,6,389,0,'189.132.26.22',1187655807,1,0,1,1,1,0,'','Como actualizar la pantalla leyendo el puerto comm ???','Hola sigo con la lectura de los puertos comm.. estoy utilizando un reloj-lector de huella digital.. que usa el puerto usb y un controlador para accesarlo atravez de un puerto comm.. la lectura de los datos y acceso al lector todo bien.. pero.. quiero pintar una barra de progreso cada vez que me lee el puerto pero la app se queda congelada.. aguien ha hecho algo parecido que me un tip.. pongo codigo de lectura del puerto.. Saludos\n[code:3v0lcw3t]\n/*----------------------------------------------------------------------------------------------------*/\nSTATIC FUNCTION ReadBufferComm&#40; oLector, oBarra &#41;\n  LOCAL oDlg, oLbx\n  LOCAL hDatos, nBytes, cBuffer, cLinea, aRecords, nRecCount\n  LOCAL lPrimeraVez, cBuffTemp, nPos\n\n  hDatos&#58;= OutChr&#40; &quot;&#40;&quot;+ oLector&#58;ps_NOSERIE + &quot;,kqdata&#41;&quot;  &#41;\n\n  cBuffer&#58;= &quot;&quot;\n  nBytes &#58;= 200\n  cLinea &#58;= &quot;&quot;\n  aRecords&#58;= &#123;&#125;\n  lPrimeraVez&#58;= &#46;T&#46;\n\n  DO WHILE &#46;T&#46;\n     nBytes &#58;= InbufSize&#40;&#41;\n     cBuffer&#58;= InChr&#40; nBytes &#41;\n     IF At&#40; &quot;kqdata,ok&quot;, cBuffer &#41; &gt; 0\n        IF lPrimeraVez\n           cBuffTemp&#58;= cBuffer\n           cBuffTemp&#58;= SubStr&#40; cBuffTemp, 1, 22 &#41;\n           nRecCount&#58;= Val&#40; SubStr&#40; cBuffTemp, 16, 6 &#41; &#41;\n           lPrimeraVez&#58;= &#46;F&#46;\n           oBarra&#58;SetRange&#40; 1, nRecCount &#41;\n        ENDIF\n     ENDIF\n     IF At&#40; &quot;kqdataend,ok&quot;, cBuffer &#41; &gt; 0\n        IF Len&#40; AllTrim&#40; cBuffer &#41; &#41; &gt; 0\n           cLinea+= BufferClean&#40; cBuffer &#41;\n           aRecords&#58;= str2a &#40; cLinea, CRLF &#41;\n           oBarra&#58;SetPos&#40; Len&#40; aRecords &#41; &#41; // Aqui se supone que actualiza la barra de progreso\n           SysRefresh&#40;&#41;\n        ENDIF\n        EXIT\n     ELSE\n        IF Len&#40; AllTrim&#40; cBuffer &#41; &#41; &gt; 0\n           cLinea+= BufferClean&#40; cBuffer &#41;\n           aRecords&#58;= str2a &#40; cLinea, CRLF &#41;\n           oBarra&#58;SetPos&#40; Len&#40; aRecords &#41; &#41;\n           SysRefresh&#40;&#41;\n        ENDIF\n\n     ENDIF\n     SysRefresh&#40;&#41;\n     cBuffer&#58;= &quot;&quot;\n  ENDDO\n\n  RETURN NIL\n[/code:3v0lcw3t]\nSaludos','',0,'AIA=','3v0lcw3t',1,0,'',389,0,0),(36478,7871,6,389,0,'189.132.26.22',1187656158,1,0,1,1,1,0,'','','[quote=&quot;jose_murugosa&quot;:3odlh7bv][quote=&quot;karinha&quot;:3odlh7bv][quote=&quot;Antonio Linares&quot;:3odlh7bv]Tienes varios ejemplos en FWH\\samples\\phone.prg y TestComm.prg.\n\nNo necesitan la librería que comentas[/quote:3odlh7bv]\n\nMAESTRO, ESTO NO FUNCIONA CON HBCOMM.LIB\n\n\nMira...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=606\">http://www.fivewin.com.br/exibedicas.asp?id=606</a><!-- m -->[/quote:3odlh7bv]\n\nAquí tienes un ejemplo, lo utilizo para capturar la info de una balanza digital y usa hbcomm.lib\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?e1w7gztz5me\">http://www.mediafire.com/?e1w7gztz5me</a><!-- m -->\n\nespero que te sirva, funciona perfectamente con FWH 7.01[/quote:3odlh7bv]\n\nMuchas gracias jose... ya esta implementado y si me ayudo de mucho.. cuando menos comprendi.. que al leer el puerto trae basura.','',0,'gA==','3odlh7bv',1,0,'',389,0,0),(36479,7914,6,138,0,'189.141.73.172',1187656859,1,0,1,1,1,1,'','','El Browse va pintando los registros conforme los va necesitando, lo que hace un browse mas rapido o mas lento es la forma en que pinta los registros.\n\nDe todas maneras para esa cantidad de registros sin importar que browse use, lo mejor es manejarlos con ADS.','',0,'gA==','1nms1ny3',1,0,'',138,0,0),(36480,7871,6,439,0,'200.125.43.218',1187660494,1,0,1,1,1,1,'','','[quote=&quot;gabo&quot;:3r38rwuk][quote=&quot;jose_murugosa&quot;:3r38rwuk][quote=&quot;karinha&quot;:3r38rwuk][quote=&quot;Antonio Linares&quot;:3r38rwuk]Tienes varios ejemplos en FWH\\samples\\phone.prg y TestComm.prg.\n\nNo necesitan la librería que comentas[/quote:3r38rwuk]\n\nMAESTRO, ESTO NO FUNCIONA CON HBCOMM.LIB\n\n\nMira...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=606\">http://www.fivewin.com.br/exibedicas.asp?id=606</a><!-- m -->[/quote:3r38rwuk]\n\nAquí tienes un ejemplo, lo utilizo para capturar la info de una balanza digital y usa hbcomm.lib\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?e1w7gztz5me\">http://www.mediafire.com/?e1w7gztz5me</a><!-- m -->\n\nespero que te sirva, funciona perfectamente con FWH 7.01[/quote:3r38rwuk]\n\nMuchas gracias jose... ya esta implementado y si me ayudo de mucho.. cuando menos comprendi.. que al leer el puerto trae basura.[/quote:3r38rwuk]\n\nMe alegro que te haya sido útil <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .','',0,'gA==','3r38rwuk',1,0,'',439,0,0),(36481,7914,6,1072,0,'201.214.54.89',1187661824,1,0,1,1,1,0,'','','Rene:\n\nMuchas gracias por tu respuesta, a que te refieres con pintar, son colores por fila, disculpa que no entendi lo del pintado.\n\nSaludos,\nAntonio\n\n\n[quote=&quot;RF&quot;:2l07nip8]El Browse va pintando los registros conforme los va necesitando, lo que hace un browse mas rapido o mas lento es la forma en que pinta los registros.\n\nDe todas maneras para esa cantidad de registros sin importar que browse use, lo mejor es manejarlos con ADS.[/quote:2l07nip8]','',0,'gA==','2l07nip8',1,0,'',1072,0,0),(36482,7920,3,47,0,'58.8.105.123',1187665086,1,0,1,1,1,0,'','Fixed it already, FWH 7.07 and xHB.com Jan 07','I have a problem with FWH 7.07 and xHB.com Jan 07 but it show following message.\n\n\'INI.PRG\' was compiled by older version, PCODE version 9 is no longer \nsupported - Please recompile.\n\n** I do recompile Fivex.lib and Fivemx.lib, it work ok now **\n\nThanks&amp;Regards,\nDutch','',0,'gA==','103xbw6s',1,0,'',47,0,0),(36483,7917,3,35,0,'65.188.6.143',1187666323,1,0,1,1,1,0,'','','Antonio\n\nLike what you have done here .. is that 4 preview screens from the same output .. just shown at different resolutions ??\n\nBe a nice change for the preview tool bar to use the manifest icons as the regular ones as well. You might see what kind of resopnce you get from the news group.\n\nRick Lipkin','',0,'gA==','1s4gk2aq',1,0,'',35,0,0),(36484,7910,3,213,0,'98.199.74.190',1187669539,1,0,1,1,1,0,'','','Rick,\n\nWhat sql back end do you prefer?\n\nRegards,\nRandal','',0,'gA==','2nt8vkk5',1,0,'',213,0,0),(36485,7905,6,456,0,'217.127.39.57',1187677466,1,0,1,1,1,1,'','','Creo que lo mas sencillo es con dbCombo. Algo parecido al siguiente código.\n[code:1iummj1n]\nREDEFINE DBCOMBO cHora ID 4001 OF oDlg ITEMS &#123;&quot;H00_A1&quot;,H01_A2&quot;,&quot;H02_A3&quot;&#125; PROMPTS &#123;&quot;00&quot;,&quot;01&quot;,&quot;02&quot;&#125;\n[/code:1iummj1n]','',0,'AIA=','1iummj1n',1,0,'',456,0,0),(36486,7914,6,63,0,'88.6.244.241',1187684324,1,0,1,1,1,0,'','','René:\n\nTengo una aplicación que maneja una tabla de unos 6000 registros, que presenta en un browse de 20 filas.\n\nEn LAN convencional, no hay problema; pero cuando intento acceder desde un PC con conexión LAN inalámbrica (muy lenta, eso sí), tarda MUCHISIMO.  Parece como si tuviese que leerse los 6000 registros antes de poder presentar los 20 primeros.  ¿Hay alguna forma de acelerarlo?\n\nRafael','',0,'AIA=','2y7nf9wn',1,0,'',63,0,0),(36487,7917,3,2,0,'87.218.146.147',1187684971,1,0,1,1,1,1,'','','Rick,\n\nThey are four different previews, though in the sample I have created all the same way (just for a quick test):\n[code:ej9ih1wo]\n   PRINTER oPrn PREVIEW\n      PAGE\n         oPrn&#58;ImportWMF&#40; &quot;invoice&#46;emf&quot; &#41;\n      ENDPAGE\n      PAGE\n         oPrn&#58;ImportWMF&#40; &quot;invoice&#46;emf&quot; &#41;\n      ENDPAGE\n   ENDPRINT\n[/code:ej9ih1wo]','',0,'AIA=','ej9ih1wo',1,0,'',2,0,0),(36488,7917,3,2,0,'87.218.146.147',1187686093,1,0,1,1,1,1,'','','In a SDI environment:\n\n[url=http&#58;//imageshack&#46;us:3sd4fyf2][img:3sd4fyf2]http&#58;//img360&#46;imageshack&#46;us/img360/7914/preview2jo9&#46;png[/img:3sd4fyf2][/url:3sd4fyf2]','',0,'GA==','3sd4fyf2',1,0,'',2,0,0),(36489,7918,6,2,0,'87.218.146.147',1187687288,1,0,1,1,1,1,'','','En entorno SDI:\n\n[url=http&#58;//imageshack&#46;us:35mtp6cc][img:35mtp6cc]http&#58;//img360&#46;imageshack&#46;us/img360/7914/preview2jo9&#46;png[/img:35mtp6cc][/url:35mtp6cc]','',0,'GA==','35mtp6cc',1,0,'',2,0,0),(36490,7921,6,23,0,'213.96.85.49',1187687650,1,0,1,1,1,1,'','Editando una línea completa con TxBrowse','Buenas... sigo con mi migración a TxBrowse. Estoy intentando hacer una edición de toda una línea de datos (todas las columnas) y para ello obtengo el recuadro de la línea que quiero editar del browse mediante el siguiente código : \n\n[code:1rhbuth1]\n  nTop    &#58;= &#40; &#40; oLbx&#58;nRowSel - 1 &#41; * oLbx&#58;nRowHeight &#41; + oLbx&#58;HeaderHeight&#40;&#41;\n  nBottom &#58;= nTop+oLbx&#58;nRowHeight\n  nLeft   &#58;= 0\n  nRight  &#58;= oLbx&#58;BrwWidth&#40;&#41;\n[/code:1rhbuth1]\n\nPero cuando genero el diálogo, mediante : \n\n[code:1rhbuth1]\n  DEFINE DIALOG oDlgDoc FROM nTop,nLeft TO nBottom, nRight;\n         STYLE nOR &#40; WS_VISIBLE, WS_POPUP &#41; COLOR CLR_WHITE, CLR_RED PIXEL OF oDlg\n[/code:1rhbuth1]\n\nEste se muestra con los valores nTop y nLeft haciendo referencia a la ventana principal, no al diálogo conteneder del browse con lo que se me fastidia la presentación.\n\nVer imagen :\n\n[img:1rhbuth1]http&#58;//www&#46;sigev&#46;com/clip0036&#46;jpg[/img:1rhbuth1]\n\n\nGracias.','',0,'CIA=','1rhbuth1',1,0,'',23,0,0),(36491,7921,6,23,0,'213.96.85.49',1187688433,1,0,1,1,1,1,'','Parece resuelto','Bien, creo que lo resolví añadiendo el siguiente código :\n\n[code:1soaggsm]\naRct &#58;=GetWndRect &#40;oLbx&#58;hWnd&#41;\nnTop&#58;=nTop+aRct&#91;1&#93;\nnLeft&#58;=nLeft+aRct&#91;2&#93;\n[/code:1soaggsm]\n\nUn saludo.','',0,'AIA=','1soaggsm',1,0,'',23,0,0),(36492,7922,6,63,0,'88.6.244.241',1187693929,1,0,1,1,1,0,'','Puede cambiarse el estilo de un Dialog en tiempo de ejecucio','Pues eso:  Si defino:\n\nDEFINE DIALOG oDlg .... STYLE WS_CHILD+WS_BORDER...\nACTIVATE DIALOG oDlg....\n\n¿puedo hacer luego:  oDlg:nStyle := WS_CHILD+WS_THICKFRAME para permitir redimensionar el diálogo en determinado momento?\n(De momento lo he intentado pero no funciona ¿me falta algo?)\n\nGracias, \nRafael','',0,'AIA=','91haj9a5',1,0,'',63,0,0),(36493,7922,6,2,0,'87.218.146.147',1187694771,1,0,1,1,1,1,'','','Rafael,\n\nPor lo que sé, no se puede. La forma de hacerlo sería \"mover\" todos sus controles a una ventana oculta, usando SetParent(), luego crear un diálogo \"vacio\" con el nuevo estilo, y mover los controles de nuevo al nuevo diálogo','',0,'AIA=','10sbqxbr',1,0,'',2,0,0),(36494,7922,6,63,0,'88.6.244.241',1187697109,1,0,1,1,1,0,'','','Gracias, Antonio\nRafael','',0,'AIA=','3ohayebg',1,0,'',63,0,0),(36495,7923,6,694,0,'200.146.117.15',1187697582,1,0,1,1,1,1,'','TWBROWSE BITMAP + &quot; TEXTO&quot; POR CELULA É POSSIVEL ?','Amigos estou fazendo assim:\n\nBMP :=loadbitmap(getresources(),\"CHEOFF\")\n\nredefine listBox oBfsu Fields Of oDla id 100\nobfsu:aJustify := {0,2,0}\nobfsu:aHJustify := {0,2,0}\nobfsu:nHeaderHeight:= 30 \nobfsu:nLineHeight := 30\nobfsu:bLine := {||{ BMP+CRLF+\"MESA1\",;  &lt;- NAO FUNCIONA\nBMP+CRLF+\"MESA2\",;\nBMP+CRLF+\"MESA3\"}}\nobfsu:Refresh()\nobfsu:setArray(sidados)\n\n\n\nGrato\n\nAoki','',0,'AIA=','32v3gd96',1,0,'',694,0,0),(36496,7905,6,1106,0,'190.64.202.189',1187698012,1,0,1,1,1,0,'','','Gracias a los 2 muy amables.\n\nSaludos.\n\nRuben Fernandez.','',0,'AIA=','br1dc8w0',1,0,'',1106,0,0),(36497,7923,6,2,0,'87.218.146.147',1187700552,1,0,1,1,1,1,'','','Aoki,\n\nobfsu:bLine := {|| { BMP, \"MESA1\", BMP, \"MESA2\", BMP, \"MESA3\" } }','',0,'AIA=','1dpfgcou',1,0,'',2,0,0),(36498,7910,3,35,0,'167.7.140.254',1187704528,1,0,1,1,1,0,'','','Randal\n\nWe have a tremendious investment in Microsoft and are under an EA ( enterprise agreement ) .. MS Sql 2005 is what I have been working with for the backend and the 2005 Mgmt Studio for doing DBA stuff.\n\nWill soon be moving the server and database to 64 bits to take advantage of the extra memory and processing speed.\n\nRick Lipkin','',0,'AIA=','qi029ag7',1,0,'',35,0,0),(36499,7917,3,35,0,'167.7.140.254',1187705168,1,0,1,1,1,0,'','','Antonio\n\nAre you allowing us the control to create our own metafiles and presenting them to the previewer ?? \n\nSorry if that is a dumb question .. I use the tprinter class to write all my reports .. not the report class  oPrint:start(), oPrint:end(), oPrint:Preview(), oPrint:PrintEnd().\n\nRick Lipkin','',0,'AIA=','1getmv90',1,0,'',35,0,0),(36500,7891,1,819,0,'67.187.239.16',1187707669,1,0,1,1,1,0,'','','Antonio,\n\nThank you for the hint.\n\nWe like to try to port our application to xharbour + FWH.  The problem was there are several C codes with our POS application and there is a missing print.h.  We are not sure how significant the file print.h.\n\nRegards,\n\nJose','',0,'AIA=','3iq99gza',1,0,'',819,0,0),(36501,7861,6,147,0,'200.45.54.134',1187709116,1,0,1,0,1,1,'','','Willi; en la línea 57 se puede leer:\n\n...EVAL(bSegundo,nS), EVAL(bMinuto,nM), EVAL(bHora,nH), [b:jpqdyp6h]EVAL(bMinuto,nM)[/b:jpqdyp6h], EVAL(bDia), EVAL(bFecha)\n\nEs necesaria la doble evaluacion, a mi entender no\n\nMe registré Files-Upload pero me da error para subir el archivo; por lo que ter lo envio a tu privado.\nLo unico que hice es pasarlo a clase y quitarle el segundo Eval( bMInuto ) y, usar la funcion, xharbour, Hash()\n\nsaludos','',0,'QA==','jpqdyp6h',1,0,'',147,0,0),(36502,7923,6,694,0,'200.146.117.15',1187709265,1,0,1,1,1,1,'','Antonio','Antonio, eu preciso apresentar na mesma célula uma BITMAP e um texto logo abaixo.\nDo jeito que você sugeriu eu teria a imagem separada do texto.\n\nEstou precisando muito disso, grato pela atenção!\n\n\nFique com Deus\n\nAoki','',0,'QA==','4m4byzjz',1,0,'',694,0,0),(36503,6138,6,389,0,'189.132.26.22',1187709426,1,0,1,1,1,0,'','','Kleyber.. \nde que manera puedo agregar libs de terceros en un script de xDevStudio.. ya configure los compiladores.. en el Set LIB le agregue  librerias de terceros aparte de las xHarbour y BCC, y no me las recoce al momento de crear el exe..  \nSaludos','',0,'QA==','1rdwf7c8',1,0,'',389,0,0),(36504,6138,6,103,0,'189.43.121.190',1187712144,1,0,1,1,1,1,'','','Hola Gabo,\n\n    Fijate en la opcion PROJETO - PROPRIEDADES y en CONFIGURAR COMPILADORES SELECIONADOS, en la opción LIBS CUSTOMIZADAS, cambia para SIM y en la opción MÓDULOS DO SISTEMA, puedes añadir tus librerias.\n\nSaludos,','',0,'QA==','2gibiy3b',1,0,'',103,0,0),(36505,7914,6,138,0,'189.141.73.172',1187712403,1,0,1,1,1,1,'','','[quote=&quot;Rafael Clemente&quot;:1p31fhhw]\nEn LAN convencional, no hay problema; pero cuando intento acceder desde un PC con conexión LAN inalámbrica (muy lenta, eso sí), tarda MUCHISIMO.  Parece como si tuviese que leerse los 6000 registros antes de poder presentar los 20 primeros.  ¿Hay alguna forma de acelerarlo?\n[/quote:1p31fhhw]\n\nEfectivamente, si no trabajas con Cliente/servidor (ADS) tienes que copiar todos los registros del servidor al ordenador cliente y bueno, si lo haces por una inalambrica tienes varias pegas en contra:\n\n1) Velocidad, los 11 mbps de una inalambrica no son comparables con los 100 mbps de una LAN (10 veces menos)\n\n2) Una inalambrica transmite por \"paquetes\", y eventualmente esos paquetes \"se caen\" y hay que volver a recuperarlos, entre mas informacion estes transmitiendo por la wifi mayor riesgo tienes de perder paquetes y mas tiempo tienes que invertir en recuperarlos.\n\nSolucion: Cliente / Servidor, (ADS), cuando trabajas con esta tecnología simplemente estas leyendo datos directamente los datos de la memoria del servidor y no hay necesidad de transmitir datos por la red, en vez megas y megas de datos simplemente tramites bytes entre el cliente y el servidor, lo cual acelera el acceso a los datos, por ello es posible usar tambien ADS via internet.','',0,'gA==','1p31fhhw',1,0,'',138,0,0),(36506,7914,6,138,0,'189.141.73.172',1187712840,1,0,1,1,1,1,'','','[quote=&quot;mantonio_08&quot;:25ur7ark]Rene:\n\nMuchas gracias por tu respuesta, a que te refieres con pintar, son colores por fila, disculpa que no entendi lo del pintado.\n[/quote:25ur7ark]\n\nPor pintar me refiero a desplegar los registros en pantalla, el browse lo que hace es desplegar \"manualmente\" los registros que son visibles en la pantalla, el proceso de \"pintado\" hace eso, cada vez que te mueves registro a registro se realiza un proceso de pintado donde se calcula la posición en donde debe caer cada registro y se repinta la informacio, si tu haces un avance de pagina, se vuelven a calcular todos los registros visibles y se van pintando uno a uno.\n\nPara el proceso de pintado hay que hacer movimeintos hacia adelante o hacia atras de la tabla para pintar los registros, obviamente entre mas grande sea la tabla, mas tiempo tardar en realizar el proceso de repintado.\n\nEl proceso es algo mas complicado que lo que te explique, pero basicamente así funciona.','',0,'gA==','25ur7ark',1,0,'',138,0,0),(36507,7916,3,34,0,'68.5.217.82',1187713311,1,0,1,1,1,1,'','Watermark','My client wants a graphic watermark printed in the background.  I was thinking of experimenting with using the graphic as a brush and then filling an area in the center of the document page with that brush object.','',0,'gA==','313ttoxf',1,0,'',34,0,0),(36508,7911,6,911,0,'200.72.141.53',1187714261,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1rv1ppjj]David,\n\nbLine es un codeblock que tiene que devolver un array, con un valor por cada columna. Lo interesante es que puede llamar a una función que realice los calculos que sean necesarios y devuelva el array:\n\noBrw:bLine = { || { &lt;col1&gt;, ..., &lt;colN&gt; } }\n\nó llamar a una función:\n[code:1rv1ppjj]\noBrw&#58;bLine = &#123; || CalculaValores&#40;&#41; &#125;\n\nfunction Calculavalores&#40;&#41;\n\n   &#46;&#46;&#46; calcula col1, &#46;&#46;&#46; colN\n\nreturn &#123; &lt;col1&gt;, &#46;&#46;&#46;, &lt;colN&gt; &#125;\n[/code:1rv1ppjj][/quote:1rv1ppjj]\n\nAntonio:\n   el bline lo estoy usando para obtener los datos a través de un eval() que funcional a las mil maravillas.\n   Aún sigo entrampado con el tema de la búsqueda incremental.\n   He intentado a realizar un oRS:Source:=\"nueva consulta SQL\" y luego un oRS:Requery() y se cuelga mi aplicación al momento de oRS:Source.\n   Pensando que podía ser por tener el oBrw activo realicé oBrw:Disable() y/o oBrw:Hide() y nada.\n   Es lo único que me falta realizar para tener la rutina lista de búsqueda de clientes que me va a servir para cualquier búsqueda.\n   No puedo utilizar el nAt, aArray o AScan() ya que nAt retorna nil debido a que nunca utilizo el setarray() ya que los que paso son los datos de un objeto obtenido desde un adodb.recordset.\n   Alguien más que me pueda ayudar. Quizás René, ya que tu trabajas todo ADO duro y puro según contaste en un post pasado.\n   Gracias nuevamente.\n   Saludos\n   David Lagos S.\n   Coquimbo-Chile','',0,'gIA=','1rv1ppjj',1,0,'',911,0,0),(36509,7914,6,63,0,'88.6.244.241',1187715509,1,0,1,1,1,0,'','','René: Gracias por la aclaración.  De todas formas, ya me estaba estudiando el utilizar ADS.  Un saludo,\n\nRafael','',0,'gIA=','2t30vn2j',1,0,'',63,0,0),(36510,7910,3,213,0,'98.196.64.111',1187719458,1,0,1,1,1,0,'','','Rick,\n\nHow would you compare the performance between dbfcdx and sql using ADO?\n\nThanks,\nRandal\n\n\n[quote=&quot;Rick Lipkin&quot;:37rpv729]Randal\n\nWe have a tremendious investment in Microsoft and are under an EA ( enterprise agreement ) .. MS Sql 2005 is what I have been working with for the backend and the 2005 Mgmt Studio for doing DBA stuff.\n\nWill soon be moving the server and database to 64 bits to take advantage of the extra memory and processing speed.\n\nRick Lipkin[/quote:37rpv729]','',0,'gA==','37rpv729',1,0,'',213,0,0),(36511,7924,3,34,0,'68.5.217.82',1187720630,1,0,1,1,1,1,'','Theme support for tToolbar','I\'m a bit puzzled.  I\'m using the TToolbar class, and I expected to see the theme applied to it ... but it doesn\'t appear to be.  I can see that the toolbar background on your newly updated preview class responds to the theme.\n\nIs there a setting I\'m missing or is it not supported in 7.07 ?\n\nTim','',0,'gA==','305mq1r0',1,0,'',34,0,0),(36512,7861,6,925,0,'200.11.95.195',1187722403,1,0,1,1,1,0,'','interfaz grafica','Estoy tratando de implementar un reloj control y me parece un buen aporte. \n  \nal probar el ejecutable que viene en el .rar reloj.exe me manda un error \nsi me puedes ayudar. \n\n===========\n   Path and name: C:\\Documents and Settings\\pherrera\\Escritorio\\reloj(2)\\reloj.Exe (32 bits)\n   Size: 1,456,640 bytes\n   Time from start: 0 hours 0 mins 40 secs \n   Error occurred at: 08/21/07, 11:56:00\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   61\n\nStack Calls\n===========\n   Called from: treloj.prg =&gt; (b)TRELOCO:BLOCK_HOUR(221)\n   Called from: treloj.prg =&gt; (b)TRELOCO:BLOCK_TIME(262)\n   Called from: treloj.prg =&gt; (b)TRELOCO:NEW(140)\n   Called from: TIMER.PRG =&gt; TIMEREVENT(0)\n   Called from: WINDOW.PRG =&gt; (b)TWINDOW:TWINDOW(0)\n   Called from:  =&gt; TWINDOW:TIMER(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: test.prg =&gt; MAIN(17)\n\nSystem\n======\n   CPU type: AMD Athlon(tm) 64 Processor 3200+ 2200 Mhz\n   Hardware memory: 960 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 40\n      1 \n      2 SysFader\n      3 M\n      4 Default IME\n      5 CiceroUIWndFrame\n      6 S/PDIF IN/OUT Settings\n      7 Set Device Type\n      8 Mixer ToolBox\n      9 Configuración de conector\n     10 TF_FloatingLangBar_WndTitle\n     11 CL RC Engine2 Dummy Winidow\n     12 TReloj-co by wmormar from Reloj\n     13 Test reloj-co [wmormar]\n     14 reloj(2)\n     15 Acrobat IEHelper\n     16 C:\\WINDOWS\\system32\\cmd.exe\n     17 FFHook\n     18 NetscapeDispatchWnd\n     19 XPCOM:EventReceiver\n     20 MCI command handling window\n     21 DTS Connect\n     22 Dolby Home Threater\n     23 Advance Setting\n     24 TOOLBOX\n     25 Load EQ Preset\n     26 DeleteEQ\n     27 Save EQ\n     28 Realtek HD Audio Manager\n     29 BackMain_Form\n     30 Administrador de sonido Realtek HD\n     31 Connections Tray\n     32 Server:{A534759F-A612-4cf7-BA15-D022203D2DD1}\n     33 Medidor de energía\n     34 MS_WebcheckMonitor\n     35 NetWareProviderIcons\n     36 S3Tray Plus\n     37 S3Timer\n     38 McAgent_Main_Hidden_Window\n     39 <!-- w --><a class=\"postlink\" href=\"http://www.FiveTechSoft.com\">www.FiveTechSoft.com</a><!-- w --> :: View topic - Interfas gráfica - Mozilla Firefox\n     40 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   (b)TRELOCO:BLOCK_HOUR\n     Param   1:    N    61\n     Local   1:    U    \n     Local   2:    O    Class: TRELOCO\n     Local   3:    N    126\n     Local   4:    A    Len:   60\n     Local   5:    N    61\n     Local   6:    U    \n     Local   7:    N    0\n   (b)TRELOCO:BLOCK_TIME\n   (b)TRELOCO:NEW\n   TIMEREVENT\n     Param   1:    N    1\n     Local   1:    N    1\n   (b)TWINDOW:TWINDOW\n     Param   1:    O    Class: TWINDOW\n     Param   2:    N    1\n     Param   3:    N    0\n   TWINDOW:TIMER\n     Param   1:    N    1\n     Param   2:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    275\n     Param   2:    N    1\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    275\n     Param   3:    N    1\n     Param   4:    N    0\n     Param   5:    N    1\n     Local   1:    O    Class: TWINDOW\n   WINRUN\n     Param   1:    N    1049400\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"NORMAL\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TWINDOW\n     5 TBRUSH\n     6 TFONT\n     7 TMENU\n     8 TMENUITEM\n     9 TRELOCO\n    10 TCONTROL\n    11 TBITMAP\n    12 TPEN\n    13 TTIMER\n    14 TDIALOG\n    15 TSAY\n    16 TBUTTON\n    17 ERROR\n    18 TREG32\n\nMemory Analysis\n===============\n      115 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','1vlrj5tg',1,0,'',925,0,0),(36513,7924,3,2,0,'87.218.146.175',1187722638,1,0,1,1,1,1,'','','Tim,\n\nYou should have themes support on the toolbar if you are including the themes manifest file in your rc file:\n\n  1 24 \"WindowsXP.Manifest\" \n\nYou can find that file at samples\\winxp','',0,'','38bn7tr5',1,0,'',2,0,0),(36514,7911,6,911,0,'200.72.141.53',1187724927,1,0,1,1,1,0,'','','[b:14ete5di]A ver compañeros:[/b:14ete5di]\n[b:14ete5di][color=red:14ete5di][i:14ete5di]Primero que todo mil gracias a Vikthor por darme la pauta inicial por donde resolver el problema.[/i:14ete5di][/color:14ete5di][/b:14ete5di]\n\nCuando trabajamos con Ado debemos cargar los datos obtenidos del objeto adobdb.recorset al browse utilizando el método Fields(nº de campo):value en la clausula  FIELDS. además debemos definir oBrw:cArray:=\"ARRAY\". Si el campo retorna un número debemos pasarlo a cadena. [color=red:14ete5di][b:14ete5di]MUY Importante esto.[/b:14ete5di][/color:14ete5di]\n\nComo lo que necesitaba era hacer una búsqueda incremental el paso es el siguiente:\n\nDefinimos o Redefinimos un campo GET y le agregamos lo siguiente:\n/*cBusqueda es la variable definida en el GET, puede ser cualquiera*/\n/*oRs es el objeto RecordSet que creamos anteriomente para obtener los datos desde nuestro servidor de base de datos*/\noGet:bLostFocus:={|| Iif( Funcion_de_Busqueda( cBusqueda, oRs), oBrw:Refresh(), NIL)}\n\n[b:14ete5di]NUNCA UTILIZAR oBrw:UpStable() ==&gt; la aplicación se cuelga.[/b:14ete5di]\n\n[code:14ete5di]STATIC FUNCTION Funcion_de_Busqueda&#40; cBusqueda, oRs&#41;\n   LOCAL lBusqueda&#58;=&#46;F&#46;, nBookMark&#58;=oRs&#58;BookMark\n   IF !Empty&#40; cBusqueda&#41;\n      oRs&#58;MoveFirst&#40;&#41;\n      oRs&#58;Find&#40; &quot;nombre LIKE \'&quot;+Alltrim&#40;cBusqueda&#41;+&quot;%\'&quot;,,1&#41;\n      IF oRs&#58;Eof&#40;&#41;==&#46;F&#46; &#46;AND&#46; oRs&#58;Bof&#40;&#41;==&#46;F&#46;\n         lBusqueda&#58;=&#46;T&#46;\n      ELSE\n         oRs&#58;BookMark&#58;=nBookMark\n         MsgStop&#40; &quot;No encotramos nada&quot;&#41;\n      ENDIF\n   ENDIF\nRETURN lBusqueda[/code:14ete5di]\n\nAdjunto imágenes\n1.- Mostrando el browse\n[img:14ete5di]http&#58;//img131&#46;imageshack&#46;us/img131/337/buscar1qu4&#46;png[/img:14ete5di]\n2.- Si se fijan colocamos el texto: LA y nos muestra la primera coincidencia.\n[img:14ete5di]http&#58;//img410&#46;imageshack&#46;us/img410/6497/buscar2dm9&#46;png[/img:14ete5di]\n3.- Informamos al usuario que su búsqueda falló:\n[img:14ete5di]http&#58;//img511&#46;imageshack&#46;us/img511/9021/buscar3hh6&#46;png[/img:14ete5di]','',0,'aoA=','14ete5di',1,0,'',911,0,0),(36515,7910,3,35,0,'167.7.140.254',1187726170,1,0,1,1,1,0,'','','Randal\n\nI still use dbfcdx in combination with ADO and sqloledb. Dbfcdx is for local LAN apps .. not made at all for Client\\server .. just too many corruption problems over a wide area network. \n\nADS works just fine .. I have no problems there .. but I like the ability to use a small client executable distributed out over ( perhaps ) 100 LANs and they all connect to a MS Sql server. ( again .. nothing wrong with ADS ) .. \n\nSQL server and ADO gives you some unique features of caching the local recordsets into a cursor on the workstation. The workstation now has a working set ( in memory ) of all the rows you asked for and can run those in local memory with blazing speed .. List boxes scroll so effortless .. up and down .. top and bottom and the only overhead is the cost of your record fetch.\n\nOnce you get over the initial mindset of giving up on indexes .. shaping your SQL queries and optimizing them is the only limitation to your performance.\n\nRick Lipkin','',0,'aoA=','2wwlmz4h',1,0,'',35,0,0),(36516,7918,6,911,0,'200.72.141.53',1187726272,1,0,1,1,1,0,'','','Se ve excelente:\nEsta va a estar incluída en el nuevo build?\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'aoA=','3jnpmita',1,0,'',911,0,0),(36517,7925,3,620,0,'209.189.229.150',1187728758,1,0,1,1,1,0,'','WindowsDBU','Can anyone recommend a good Windows DB Utility?  Ive used the WDBU demo from OZ software and like it....have tried to purchase but can get no response from them (anyone know if there is a problem there?).','',0,'aoA=','jxnpcd6y',1,0,'',620,0,0),(36518,7891,1,2,0,'87.218.146.175',1187731378,1,0,1,1,1,1,'','','Jose,\n\nWhat do you use print.h for ? Please look for the C module that uses it, comment it out (the header file) and compile to see what errors you get.','',0,'aoA=','2wpv51we',1,0,'',2,0,0),(36519,7925,3,2,0,'87.218.146.175',1187731518,1,0,1,1,1,1,'','','Greg,\n\nYou can use OurXDbu, its developed using xHarbour and FWH. Its free:\n<!-- m --><a class=\"postlink\" href=\"http://www.marchuet.net/contenidos/marchuet/ourxdbu/ourxdbu.html\">http://www.marchuet.net/contenidos/marc ... rxdbu.html</a><!-- m -->\n\nAnother choice is Advantage Data Architect. Is the database manager of Advantage. Works very well, is 32 bits, you can open tables with CDX index, etc… and is freeware. \n<!-- m --><a class=\"postlink\" href=\"http://devzone.advantagedatabase.com/dz/content.aspx?key=20&amp;Release=10&amp;Product=8&amp;Platform=6\">http://devzone.advantagedatabase.com/dz ... Platform=6</a><!-- m -->','',0,'aoA=','1ss1ai9k',1,0,'',2,0,0),(36520,7918,6,2,0,'87.218.146.175',1187731697,1,0,1,1,1,1,'','','David,\n\nSi, se incluirá en el próximo build de FWH','',0,'aoA=','380jtj7f',1,0,'',2,0,0),(36521,7925,3,620,0,'209.189.229.150',1187731789,1,0,1,1,1,0,'','','Antonio,\nThanks!  The OURXDBU link works, but the download link on the page doesn\'t.  Any advice?\n\nTHanks!\nGreg','',0,'aoA=','h1ri00qx',1,0,'',620,0,0),(36522,7923,6,2,0,'87.218.146.175',1187731912,1,0,1,1,1,1,'','','Aoki,\n\nLo que puedes hacer es mostrar los bitmaps en una línea del browse y en la siguiente mostrar los textos:\n[code:343ndlkv]\noBrowse&#58;bLine &#58;= &#123; || GetInfo&#40;&#41; &#125;\n\nfunction GetInfo&#40;&#41;\n\n   if &#46;&#46;&#46; \n      return &#123; BMP, BMP, BMP &#125;\n   else\n     return &#123; &quot;Mesa1&quot;, &quot;Mesa2&quot;, &quot;Mesa3&quot; &#125;\n   endif\n[/code:343ndlkv]','',0,'AIA=','343ndlkv',1,0,'',2,0,0),(36523,7925,3,2,0,'87.218.146.175',1187732088,1,0,1,1,1,1,'','','Greg,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/xHC/index.asp?page=xhc_download_detail.asp&amp;type=dl&amp;id=78&amp;show_i=7&amp;show_sub=1\">http://www.xharbour.com/xHC/index.asp?p ... show_sub=1</a><!-- m -->','',0,'AIA=','2jnt5iju',1,0,'',2,0,0),(36524,7926,6,400,0,'201.68.30.206',1187733334,1,0,1,1,1,1,'','Erro com FwH 707','Que erro es esto:\nCom FwH 705...no acontecia isto.\n[code:n1tyknuq]\nError&#58; Unresolved external \'SQLAllocEnv\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLAllocConnect\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLExecDirect\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLDriverConnect\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLConnect\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLAllocStmt\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLDescribeCol\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLError\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLPrepare\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLFreeStmt\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLDisconnect\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLFreeConnect\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLFreeEnv\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLNumResultCols\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLFetch\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLGetInfo\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLSetConnectOption\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLSetStmtOption\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLGetConnectOption\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLGetStmtOption\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLSetCursorName\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLGetCursorName\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLRowCount\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLCancel\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLTransact\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLSetParam\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLExecute\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLParamData\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLPutData\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLExtendedFetch\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLSetPos\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLPrimaryKeys\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLGetDiagRec\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLStatistics\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLColumns\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLSpecialColumns\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLTables\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\nError&#58; Unresolved external \'SQLGetData\' referenced from Y&#58;\\FWH\\LIB\\FIVEHC&#46;LIB|ODBC32X\n[/code:n1tyknuq]\n\nSaludos','',0,'AIA=','n1tyknuq',1,0,'',400,0,0),(36525,7925,3,86,0,'81.83.185.118',1187734444,1,0,1,1,1,1,'','','Hello,\n\nThe problem with OurXDBU is the language. Although I select English, a lot of items stay in Spanish, which I unfortunately don\'t understand.','',0,'AIA=','1t7j47u5',1,0,'',86,0,0),(36526,7927,6,926,0,'189.134.24.103',1187734628,1,0,1,1,1,0,'','Errro en UPDATE()','hola tengo un programas con su altas, bajas y cambios todo funciona bien solo que en la parte de cambios me manda un errro en el update\n\nApplication\n===========\n   Path and name: C:\\pruebah\\akurata\\tablacr.exe (32 bits)\n   Size: 1,668,608 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 21/08/2007, 17:11:12\n   Error description: Error adodb.recordset/16389  E_FAIL: UPDATE\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:UPDATE(0)\n   Called from: tablacr.prg =&gt; XACRMEN_GRABACAM(345)\n   Called from: tablacr.prg =&gt; (b)ACRMEN_CAMBIOS(332)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: tablacr.prg =&gt; ACRMEN_CAMBIOS(335)\n   Called from: tablacr.prg =&gt; (b)TABLACR_INI(90)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: tablacr.prg =&gt; TABLACR_INI(162)\n   Called from: tablacr.prg =&gt; TABLACR(44)\n\nesta es la parte del programa el error me lo manda en cambios esta al final\n\n\nFUNCTION ACRMEN_ALTAS()\n\npublic oDlg12, oBot1,oGet11, oGet21, oGet31, oGet41\n\nxLimInf:=0\nxLimSup:=0\nxCuofij:=0\nxFactor:=0\n\nDEFINE DIALOG oDlg12 RESOURCE \"IMPALTAS\"\n\n       REDEFINE GET oGet11  VAR xLiminf ID 101 OF oDlg12 PICTURE \"###########.##\"\n       REDEFINE GET oGet21  VAR xLimSup ID 102 OF oDlg12 PICTURE \"###########.##\"\n       REDEFINE GET oGet31  VAR xCuoFij ID 103 OF oDlg12 PICTURE \"###########.##\"\n       REDEFINE GET oGet41  VAR xFactor ID 104 OF oDlg12 PICTURE \"#.######\"\n\n       REDEFINE BUTTON oBot1 ID 105 OF oDlg12 WHEN xCuoFij&lt;&gt;0 ACTION (ACRMEN_GRABA1(),oFld:Refresh())\n       REDEFINE BUTTON oBot1 ID 106 OF oDlg12 ACTION (sysrefresh(),oFld:Refresh(),oDlg12:End())\n\nACTIVATE DIALOG oDlg12 CENTERED\n\nRETURN\n\n\nFUNCTION ACRMEN_GRABA1\n\noRsTACRMENS:AddNew()\n\noRsTACRMENS:fields(\"AM_LIM_INF\"):value:=xLimInf\noRsTACRMENS:fields(\"AM_LIM_SUP\"):value:=xLimSup\noRsTACRMENS:fields(\"AM_CUO_FIJ\"):value:=xCuoFij\noRsTACRMENS:fields(\"AM_PORCENT\"):value:=xFactor\noRsTACRMENS:UPDATE()\n\nSTORE 0 TO xLimInF,xLimSup,xCuofij,xFactor\n\n\nRETURN\n\nFUNCTION ACRMEN_BAJAS()\nxLimInf:= oRsTACRMENS:fields(\"AM_LIM_INF\"):value\nxLimSup:= oRsTACRMENS:fields(\"AM_LIM_SUP\"):value\nxCuoFij:= oRsTACRMENS:fields(\"AM_CUO_FIJ\"):value\nxFactor:= oRsTACRMENS:fields(\"AM_PORCENT\"):value\n\nDEFINE DIALOG oDlg2 RESOURCE \"IMPBAJAS\"\n\n       REDEFINE SAY oSay1  VAR xLimInf ID 101 OF oDlg2 PICTURE \"###########.##\"\n       REDEFINE SAY oSay1  VAR xLimSup ID 102 OF oDlg2 PICTURE \"###########.##\"\n       REDEFINE SAY oSay1  VAR xCuoFij ID 103 OF oDlg2 PICTURE \"###########.##\"\n       REDEFINE SAY oSay1  VAR xFactor ID 104 OF oDlg2 PICTURE \"#.######\"\n\n       REDEFINE BUTTON oBot1 ID 105 OF oDlg2 ACTION (ACRMEN_BORRA1(),sysrefresh(),oFld:Refresh(),oDlg2:End())\n       REDEFINE BUTTON oBot1 ID 106 OF oDlg2 ACTION (sysrefresh(),oFld:Refresh(),oDlg2:End())\n\nACTIVATE DIALOG oDlg2 CENTERED\n\nRETURN\n\nFUNCTION ACRMEN_BORRA1()\n\n   oRsTACRMENS:Delete()\n   oRsTACRMENS:Update()\n   oRsTACRMENS:ReQuery()\n\nRETURN\n\nFUNCTION ACRMEN_CAMBIOS()\n\nxLimInf:= oRsTACRMENS:fields(\"AM_LIM_INF\"):value\nxLimSup:= oRsTACRMENS:fields(\"AM_LIM_SUP\"):value\nxCuoFij:= oRsTACRMENS:fields(\"AM_CUO_FIJ\"):value\nxFactor:= oRsTACRMENS:fields(\"AM_PORCENT\"):value\n\nDEFINE DIALOG oDlg3 RESOURCE \"IMPCAMBIOS\"\n\n       REDEFINE GET oGet1  VAR xLimInf ID 101 OF oDlg3 PICTURE \"###########.##\" // &amp;&amp;valid checaACR2()&amp;&amp;\n       REDEFINE GET oGet1  VAR xLimSup ID 102 OF oDlg3 PICTURE \"###########.##\"\n       REDEFINE GET oGet1  VAR xCuoFij ID 103 OF oDlg3 PICTURE \"###########.##\"\n       REDEFINE GET oGet1  VAR xFactor ID 104 OF oDlg3 PICTURE \"#.######\"\n\n       REDEFINE BUTTON oBot1 ID 105 OF oDlg3 ACTION (XACRMEN_GRABACAM(),sysrefresh(),oFld:Refresh(),oDlg3:End())\n       REDEFINE BUTTON oBot1 ID 106 OF oDlg3 ACTION (sysrefresh(),oDlg3:End())\n\nACTIVATE DIALOG oDlg3 CENTERED\n\nRETURN\n\nFUNCTION XACRMEN_GRABACAM()\n\n*oRsTACRMENS:fields(\"AM_LIM_INF\"):value =xLimInf\n*oRsTACRMENS:fields(\"AM_LIM_SUP\"):value =xLimSup\noRsTACRMENS:fields(\'AM_CUO_FIJ\'):value =xCuoFij\noRsTACRMENS:fields(\'AM_PORCENT\'):value =xFactor\noRsTACRMENS:update()\noRsTACRMENS:requery()\nRETURN\n\n\nlo raro es que en otros programas si funciona mis altas,bajas y cambios y tienen el update y requery.... \n\nme podrian ayudar.... gracias.','',0,'AIA=','1jon18z0',1,0,'',926,0,0),(36527,7916,3,86,0,'81.83.185.118',1187734818,1,0,1,1,1,1,'','','Tim,\n\nI use a watermark on some of my printouts.\n\nI made a BMP-file, containing the watermark (very light gray). The size of the BMP-file is the same size as the paper I use.\n\nI also use the printer class for reporting.\n\nTo put the watermark on my paper, I use :\n\n[code:1lp8padd]oPrn&#58;SayBitMap&#40;0,0,&quot;&#46;&#46;\\BITMAPS\\OMEDBMP&#46;BMP&quot;,cLength,cWidth&#41;[/code:1lp8padd]\n\nThe BMP-file is zoomed to cLength and cWidth. It is put like a film over my paper.\n\nWorks very well.\n\nHope to have helped you.\n\nGood luck.\n\nThe','',0,'AIA=','1lp8padd',1,0,'',86,0,0),(36528,7918,6,121,0,'189.138.187.13',1187735181,1,0,1,1,1,1,'','','ESA SI ES   UNA BUENA NOTICIA','',0,'AIA=','19fdqg1s',1,0,'',121,0,0),(36529,7916,3,34,0,'68.5.217.82',1187735468,1,0,1,1,1,1,'','Watermark','Thats what I assumed.  Thanks I will try it.','',0,'AIA=','2l43pxpo',1,0,'',34,0,0),(36530,7924,3,34,0,'68.5.217.82',1187735560,1,0,1,1,1,1,'','Toolbar','Antonio,\n\nI have themes working on virtually everything else.  However, I\'m getting a flat color for the toolbar.\n\nTim','',0,'AIA=','2ihvhzyd',1,0,'',34,0,0),(36531,7910,3,167,0,'207.119.126.13',1187736270,1,0,1,1,1,1,'','','What is ADO?\n\nWe use Mediator for our backend servers, but I would like to wean myself from those license fees, if possible.','',0,'AIA=','3a8hr2k3',1,0,'',167,0,0),(36532,7914,6,1072,0,'190.82.45.236',1187737444,1,0,1,1,1,0,'','','Rene:\n\nMe queda muy claro tu explicacion, mil gracias por tu tiempo.\n\nSaludos,\nAntonio\n\n[quote=&quot;Rafael Clemente&quot;:2xak81jk]René: Gracias por la aclaración.  De todas formas, ya me estaba estudiando el utilizar ADS.  Un saludo,\n\nRafael[/quote:2xak81jk]','',0,'gA==','2xak81jk',1,0,'',1072,0,0),(36533,7928,6,1072,0,'190.82.45.236',1187738236,1,0,1,1,1,0,'','Como puedo leer un txt','Hola Amigos:\n\nComo puedo leer un archivo TXT con informacion en el disco, para generar una base de datos. Para luego manejarla imprimir o mostrar en pantalla.\n\nSaludos,\nAntonio','',0,'gA==','23woi2f9',1,0,'',1072,0,0),(36534,7910,3,35,0,'65.188.6.143',1187741758,1,0,1,1,1,0,'','','Don\n\nADO is a way of connecting to SQL databases .. access, ms sql, oracle .. xHarbour has a set of methods from the Win32ole class native to both xHarbour and Harbour\n\nI wrote a basic ADO 101 thread :\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6691&amp;highlight=ado\">http://fivetechsoft.com/forums/viewtopi ... hlight=ado</a><!-- m -->\n\nAlso .. you can put ADO in the search on this forum and find a wealth of information .. start with the above link. \n\nEnrico G is one of the ADO masters .. also the FREE ADORDD is a very simple and powerful way of getting started in a rdd with familiar syntax.\n\nRick Lipkin','',0,'gA==','ghdgwr9w',1,0,'',35,0,0),(36535,7929,6,203,0,'190.11.21.222',1187742292,1,0,1,1,1,1,'','IMPRIMIR UN DOCUMENTO EN DOS IMPRESORAS','Hola Amigos del Foro\n\nMi consulta es la siguiente como puedo imprimir un mismo documento\nen dos impresoras diferentes, la una esta por LPT1 y la otra Usb\n\nPor favor alguna sugerencia\n\n\nSaludos\nOscar','',0,'gA==','1tejcetv',1,0,'',203,0,0),(36536,7928,6,940,0,'189.157.99.67',1187742442,1,0,1,1,1,1,'','','en samples\\testfile.prg\n\nhay un ejemplo para leer un archivo txt\n\nsaludos,','',0,'gA==','1c11m7tw',1,0,'',940,0,0),(36537,7929,6,940,0,'189.157.99.67',1187742828,1,0,1,1,1,1,'','','bueno con tprinter\n\n\n\n PRINT oPrn TITLE cTitulo TO (\'\\\\Servidor\\Lexmark 4200 Series\')','',0,'gA==','b24g4kzb',1,0,'',940,0,0),(36538,7928,6,1072,0,'201.214.54.89',1187746354,1,0,1,1,1,0,'','','Mil Gracias amigo por tu respuesta.\n\nSaludos,\nAntonio\n\n\n[quote=&quot;sysctrl2&quot;:vf879q6m]en samples\\testfile.prg\n\nhay un ejemplo para leer un archivo txt\n\nsaludos,[/quote:vf879q6m]','',0,'gA==','vf879q6m',1,0,'',1072,0,0),(36539,7804,1,173,0,'203.113.39.12',1187754805,1,0,1,1,1,0,'','I\'m ever gotten that promble like you.','I\'m ever gotten that promble like you. But if the WAV file not long time it work. I think the WAV file not over 2 Minute be work fine.','',0,'gA==','2vepj463',1,0,'',173,0,0),(36540,7928,6,2,0,'87.218.146.175',1187766232,1,0,1,1,1,1,'','','cTexto = MemoRead( \"fichero.txt\" )','',0,'gA==','32ze7w5i',1,0,'',2,0,0),(36541,7930,3,233,0,'218.208.251.40',1187770010,1,0,1,1,1,0,'','[OT]: Doxygen, source documentor','Hi guys,\n   I\'m wondering what technique do you guys employ with regards to documenting one\'s source? I\'ve read about [url=http&#58;//www&#46;stack&#46;nl/~dimitri/doxygen/:2hb4m3hj]Doxygen[/url:2hb4m3hj] and was very interested in it but alas it doesn\'t support xBase dialect.\n\n  I think if such a tool is available it\'d make our lives a whole lot easier since it can even auto generate class hierarchy for us if it exist.\n\n  Thoughts?','',0,'EA==','2hb4m3hj',1,0,'',233,0,0),(36542,7880,3,233,0,'218.208.251.40',1187770108,1,0,1,1,1,0,'','','Thanks Antonio. I\'ll give it a try','',0,'EA==','2f8p2qls',1,0,'',233,0,0),(36543,7931,4,998,0,'217.21.255.129',1187778044,1,0,1,1,1,0,'','How to replace aborted exe ?','Hello,\n\nI\'m busy converting a large Clipper application to FWPPC and have a nasty problem while testing the application:\n\nIf the program aborts with one or more dbf\'s open the executable is blocked and can only be replaced/removed after resetting the emulator or the PDA.\n\nIs this the only way or does anyone know a better solution?\n\nThanx &amp; Regards','',0,'EA==','1g41xmyr',1,0,'',998,0,0),(36544,7932,3,89,0,'213.21.136.60',1187778439,1,0,1,1,1,0,'','Rescale with freeimage','Is it possible with Timage rescale a image ? \n\nRegards MAurizio','',0,'EA==','3vt3hu03',1,0,'',89,0,0),(36545,7933,6,23,0,'213.96.85.49',1187778968,1,0,1,1,1,1,'','Salida con Escape','Buenasss, tengo un problema que me ocurre siempre, al que no daba mucha importancia, pero que me pica la curiosidad.\nMonto una ventana y en la clausula ON INIT genero un browse, un menú, etc,etc . Bien el tema es que si eres lo suficientemente rápido, cuando pides que se cree la ventana y pulsas escape inmediatamente despues, da un error en la siguiente clase que intenta crear algún objeto dependiente de la ventana. Ya probe con los VALID en el ACTIVATE WINDOW (1º con una variable del tipo VALID !lNoSalgaaas y 2º con VALID !GetAsyncKey(27) con identico resultados)\n\n¿sabeis si puedo mirar algo para solucionar este tema?\n\nGracias.','',0,'EA==','6nbq9p2k',1,0,'',23,0,0),(36546,7934,3,308,0,'84.148.50.49',1187781169,1,0,1,1,1,0,'','i18n()','Hello\n\nWho has experience with i18n ()?  \nHow do I can translate the .HIL files?  \n\nRegards, Norbert','',0,'EA==','2ss5yv4e',1,0,'',308,0,0),(36547,7935,3,160,0,'59.95.217.171',1187782469,1,0,1,1,1,0,'','When Clause behavior of GET','Dear All,\n\nI am facing a typical problem regarding When clause of GET. Whenever I am getting focus for a GET, When clause of all the GET of that Dialog gets executed. Is that normal behavior ? If so, how to avoid that ?\n\nMy problem is I am recalculating subsequent GETs based on the value of a GET. But I wish to program it such a way that user can override the default calculation done by When clause.\n\nFollowing is a self containing sample.\n\nTIA\n\nMilan.\n\n-------------------------------------------Cut----------------------------\n#include \"FiveWin.ch\"\n\n#define ETVAR1   101\n#define ETVAR2   102\n#define ETVAR3   103\n#define ETVAR4   104\n#define PBOK     105\n\nfunction Main()\n\n   Local oDlg, oVar1, oVar2, oVar3, oVar4\n   LOCAL nVar1, nVar2, nVar3, nVar4\n\n   nVar1 := nVar2 := nVar3 := nVar4 := 0\n\n   DEFINE DIALOG oDlg TITLE \"Test Update Dialog\" RESOURCE \"Test\"\n\n   REDEFINE GET oVar1    VAR nVar1 ID ETVAR1    PICTURE \"999999.99\"  OF oDlg;\n                 VALID {|| nVar2 := nVar1 * 0.125/100, nVar3 := nVar1 * 0.010/100, nVar4 := nVar1 * 0.07/100,  .T.}\n\n   REDEFINE GET oVar2    VAR nVar2 ID ETVAR2    PICTURE \"999999.99\"  OF oDlg\n//                 WHEN {|| nVar2 := nVar1 * 0.125/100, .T.}\n\n   REDEFINE GET oVar3    VAR nVar3 ID ETVAR3    PICTURE \"999999.99\"  OF oDlg  WHEN {|| MsgInfo (\'When of Var3\'), .T.} VALID {|| MsgInfo (\'Valid of Var3\'), .T.}\n\n   REDEFINE GET oVar4    VAR nVar4 ID ETVAR4    PICTURE \"999999.99\"  OF oDlg  WHEN {|| MsgInfo (\'When of Var4\'), .T.}\n\n   REDEFINE BUTTON ID PBOK ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg\n\nreturn nil\n-------------------------------------------Paste--------------------------\nRC file.\n--------------------------------------------Cut---------------------------\n#define ETVAR1   101\n#define ETVAR2   102\n#define ETVAR3   103\n#define ETVAR4   104\n#define PBOK     105\n\nTEST DIALOG 6, 15, 260, 167\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION \"Dialog Update\"\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT ETVAR1, 64, 20, 49, 18\n EDITTEXT ETVAR2, 64, 43, 48, 18\n EDITTEXT ETVAR3, 64, 68, 49, 18\n EDITTEXT ETVAR4, 64, 97, 51, 18\n PUSHBUTTON \"Ok\", PBOK, 78, 135, 50, 14\n}\n-------------------------------------------Paste--------------------------','',0,'EA==','1q5ohq3t',1,0,'',160,0,0),(36548,7931,4,2,0,'87.218.146.175',1187783990,1,0,1,1,1,1,'','','Rob,\n\nYou can remove it from memory using \"menu-settings-system-memory-running programs\" option','',0,'EA==','225676ye',1,0,'',2,0,0),(36549,7935,3,2,0,'87.218.146.175',1187784113,1,0,1,1,1,1,'','','Milan,\n\nYes, its a typicall behavior. You can avoid it temporarly changing the bWhen DATA of the GETs:\n\noGet:bWhen := nil\n\nand later on restoring them','',0,'EA==','hn9v7f0p',1,0,'',2,0,0),(36550,7933,6,2,0,'87.218.146.175',1187784247,1,0,1,1,1,1,'','','Angel,\n\nInténtalo así:\n\nDEFINE WINDOW oWnd ...\n\noWnd:bValid := { || .F. }\n\n...\n\nACTIVATE WINDOW oWnd ...','',0,'EA==','38x6wwhc',1,0,'',2,0,0),(36551,7926,6,2,0,'87.218.146.175',1187784381,1,0,1,1,1,1,'','','Alessandro,\n\nYou have to link ODBC32.lib','',0,'EA==','2lvcgta0',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (36552,4008,6,1104,0,'200.115.251.235',1187785555,1,0,1,1,1,0,'','','Antonio:\n\nEstamos utilizando la versión FWH/FWHX 7.01 January/2007 y aún así seguimos teniendo problemas con los campos memos, es decir, en reiteradas oportunidades cuando grabamos un memo en un registro aparece en otro, y estamos compilando con el Harbour que viene en esa versión.\nYa hay alguna solución respecto a este tema?\nYa que tenemos problemas con muchos de nuestros clientes que utilizan nuestros sistemas.\nEl problema persiste ya sea utilizando el RDD de ADS como sin utilizarlo.\nDesde ya muchas gracias.\nSaludos Esteban','',0,'EA==','11u72kgz',1,0,'',1104,0,0),(36553,4008,6,2,0,'87.218.146.175',1187787543,1,0,1,1,1,1,'','','Jorge,\n\nEs preciso que construyais un ejemplo pequeño y autocontenido que reproduzca el problema, sin usar FWH, para que podamos reportarlo en la lista de desarrollo de Harbour y lo revisen\n\nEs extraño puesto que nadie más ha reportado problemas con los campos memo, y más aún si habeis probado con ADS, pero no por eso es imposible','',0,'EA==','1iw97j03',1,0,'',2,0,0),(36554,7934,3,308,0,'84.148.50.49',1187788835,1,0,1,1,1,0,'','Re: i18n()','has someone a compiled version of hbdict.exe ?\n\nRegards Norbert','',0,'EA==','32wnbvi1',1,0,'',308,0,0),(36555,4008,6,1104,0,'200.115.251.248',1187789084,1,0,1,1,1,0,'','','[code:9ehjv7qy]// ALTA, MODIFICACION Y ELIMINAR\nFunction ABMBanco&#40;oDbf,oLbx,oDlg,nKey&#41;\nLocal oDlg1,Btn1,Btn2,OldOrd,Reg,SiNo,VecLoc&#91;0&#93;,VecProv&#91;0&#93;,;\n      vCod,vRaz,vDir,vPro,vLoc,vTel,vCui,vPos,;\n      oCod,oRaz,oDir,oPro,oLoc,oTel,oCui,oPos\n\nReg&#58;=oDbf&#58;Recno&#40;&#41;\n\nCargoVec_Ban&#40;oDbf,oDbfLoc,@VecLoc,&quot;L&quot;&#41;\nCargoVec_Ban&#40;oDbf,oDbfProv,@VecProv,&quot;P&quot;&#41;\n\nIF nKey&lt;&gt;46\n   OldOrd&#58;=oDbf&#58;IndexOrder&#40;&#41;\n   oDbf&#58;SetOrder&#40;1&#41;\n\n   IF nKey=45\n      DEFINE DIALOG oDlg1 RESOURCE &quot;ABM_BANCOS&quot; OF oDlg TITLE &quot;ALTA DE BANCOS&quot;\n      oDbf&#58;GoBottom&#40;&#41;\n      oDbf&#58;Blank&#40;&#41;\n      vCod&#58;=oDbf&#58;CODIGO+1\n      vRaz&#58;=SPACE&#40;30&#41;\n      vDir&#58;=SPACE&#40;30&#41;\n\n      SELECT LOCALIDA\n      oDbfLoc&#58;GoTop&#40;&#41;\n      vLoc&#58;=TRAN&#40;oDbfLoc&#58;CODIGO,&quot;######&quot;&#41;+&quot;     &quot;+ oDbfLoc&#58;DESCRIP\n\n      SELECT PROVINC\n      oDbfProv&#58;GoTop&#40;&#41;\n      vPro&#58;=TRAN&#40;oDbfProv&#58;CODIGO,&quot;######&quot;&#41;+&quot;     &quot;+ oDbfProv&#58;DESCRIP\n\n      SELECT BANCOS\n      vPos&#58;=0\n      vTel&#58;=SPACE&#40;30&#41;\n      vCui&#58;=SPACE&#40;13&#41;\n      oDlg1&#58;Update&#40;&#41;\n   ENDIF\n   IF nKey=13 &#46;OR&#46; nKey=1 &#46;OR&#46; nKey=77\n      DEFINE DIALOG oDlg1 RESOURCE &quot;ABM_BANCOS&quot; OF oDlg TITLE &quot;MODIFICACION DE BANCOS&quot;\n      oDbf&#58;Load&#40;&#41;\n      vCod&#58;=oDbf&#58;CODIGO\n      vRaz&#58;=oDbf&#58;RAZONSOC\n      vDir&#58;=oDbf&#58;DIRECCION\n\n      SELECT LOCALIDA\n      oDbfLoc&#58;Seek&#40;oDbf&#58;LOCALIDA&#41;\n      IF !oDbfLoc&#58;Eof&#40;&#41;\n         vLoc&#58;=TRAN&#40;oDbfLoc&#58;CODIGO,&quot;######&quot;&#41;+&quot;     &quot;+ oDbfLoc&#58;DESCRIP\n      ELSE\n         vLoc&#58;=SPACE&#40;30&#41;\n      ENDIF\n      \n      SELECT PROVINC\n      oDbfProv&#58;Seek&#40;oDbf&#58;PROVINCIA&#41;\n      IF !oDbfProv&#58;Eof&#40;&#41;\n         vPro&#58;=TRAN&#40;oDbfProv&#58;CODIGO,&quot;######&quot;&#41;+&quot;     &quot;+ oDbfLoc&#58;DESCRIP\n      ELSE\n         vPro&#58;=SPACE&#40;30&#41;\n      ENDIF\n\n      SELECT BANCOS\n      vPos&#58;=oDbf&#58;CODPOSTAL\n      vTel&#58;=oDbf&#58;TELEFONO\n      vCui&#58;=oDbf&#58;CUIT\n      \n   ENDIF\n\n   REDEFINE BTNBMP Btn1 ID 200 OF oDlg1 RESOURCE &quot;FLOPPY&quot; LEFT;\n      ACTION GraboBanco&#40;nKey,vCod,oDbf,vRaz,vDir,vLoc,vPro,vPos,vTel,vCui&#41;,;\n             oDlg1&#58;End&#40;&#41;;\n      PROMPT &quot;Grabar&quot;\n   REDEFINE BTNBMP Btn2 ID 201 OF oDlg1 RESOURCE &quot;SALIR&quot; LEFT;\n      ACTION oDlg1&#58;End&#40;&#41;;\n      PROMPT &quot;Salir&quot;\n\n   IF nKey=1\n      Btn1&#58;Disable&#40;&#41;\n   ENDIF\n\n   REDEFINE GET oCod  VAR vCod       ID 100 OF oDlg1 PICTURE &quot;######&quot; WHEN&#40;nKey=45&#41;;\n                                                     VALID&#123;||VerCodigo&#40;vCod,oDbf&#41;&#125;\n   REDEFINE GET oRaz  VAR vRaz       ID 101 OF oDlg1 PICTURE &quot;@!&quot;\n   REDEFINE GET oDir  VAR vDir       ID 102 OF oDlg1 PICTURE &quot;@!&quot;\n\n   REDEFINE COMBOBOX  oLoc VAR vLoc ITEMS VecLoc  ID 103 OF oDlg1;\n      WHEN&#123;||IniVectores&#40;oLoc,VecLoc,oDbf&#58;LOCALIDA&#41;&#125;\n\n   REDEFINE COMBOBOX  oPro VAR vPro ITEMS VecProv ID 104 OF oDlg1;\n      WHEN&#123;||IniVectores&#40;oPro,VecProv,oDbf&#58;PROVINCIA&#41;&#125;\n\n   REDEFINE GET oPos  VAR vPos       ID 105 OF oDlg1 PICTURE &quot;######&quot; VALID&#40;oDbf&#58;CODPOSTAL&gt;=0&#41;\n   REDEFINE GET oTel  VAR vTel       ID 106 OF oDlg1 PICTURE &quot;@!&quot;\n   REDEFINE GET oCui  VAR vCui       ID 107 OF oDlg1 PICTURE &quot;##-########-#&quot;\n   REDEFINE GET oDbf&#58;OBSERVA MEMO    ID 108 OF oDlg1\n   ACTIVATE DIALOG oDlg1 CENTERED\nENDIF\n\nIF nKey=46\n   SiNo&#58;=MsgNoYes&#40;&quot;Esta seguro que desea eliminar el registro?&quot;,;\n                  &quot;Por favor, seleccione&quot;&#41;\n   IF SiNo\n      oDbf&#58;RecLock&#40;&#41;\n      oDbf&#58;Delete&#40;&#41;\n      oDbf&#58;Unlock&#40;&#41;\n   ENDIF\nENDIF\n\noDbf&#58;SetOrder&#40;OldOrd&#41;\noDbf&#58;GoTo&#40;Reg&#41;\noLbx&#58;Refresh&#40;&#41;\noLbx&#58;SetFocus&#40;&#41;\nReturn nil\n//\n\n\n// GRABO EN LA BASE\nFunction GraboBanco&#40;nKey,vCod,oDbf,vRaz,vDir,vLoc,vPro,vPos,vTel,vCui&#41;\nIF nKey=45\n   oDbf&#58;Append&#40;&#41;\nELSE\n   oDbf&#58;RecLock&#40;&#41;\nENDIF\n\noDbf&#58;CODIGO    &#58;=vCod\noDbf&#58;RAZONSOC  &#58;=vRaz\noDbf&#58;DIRECCION &#58;=vDir\noDbf&#58;LOCALIDA  &#58;=VAL&#40;SUBSTR&#40;vLoc,1,6&#41;&#41;\noDbf&#58;PROVINCIA &#58;=VAL&#40;SUBSTR&#40;vPro,1,6&#41;&#41;\noDbf&#58;CODPOSTAL &#58;=vPos\noDbf&#58;TELEFONO  &#58;=vTel\noDbf&#58;CUIT      &#58;=vCui\noDbf&#58;Save&#40;&#41;\noDbf&#58;Unlock&#40;&#41;\n\nReturn nil\n//[/code:9ehjv7qy]\n\nTe envío esta porcion de código donde hay un campo memo, \"El de observación\" no se si esto es lo que me estás pidiendo.\n\nSaludos, Esteban','',0,'AIA=','9ehjv7qy',1,0,'',1104,0,0),(36556,7910,3,167,0,'207.119.126.13',1187790776,1,0,1,1,1,1,'','','Rick,\n\nThis seems like good news for us.  I\'m most curious about the ADORDD - \n\nDoes this RDD seamlessly insulate legacy code when it comes to basic Clipper database navagation commands and functions work?  SEEK, LOCATE, USE, GOTO #, GOTOP, GOBOTTOM, recno(), dbseek(), dbgotop(), etc. If these all work properly on the MS-SQL database, that would in turn minimize the changes to legacy code.  \n\nHow is the reliability?  Are there any known \"watch out for this stuff\" issues when it comes to legacy code and traditional xBase .dbf navation commands?\n\nOur new development, especially the web stuff, uses xHarbour and Mediator RDD (MEDNTX) to run our apps on MS-SQL Server databases.  It has been very reliable, however, the Mediator fees accumulate quickly when deploying to multiple clients.\n\nI really appreciate your input.  Thanks.','',0,'AIA=','2abccmia',1,0,'',167,0,0),(36557,7910,3,35,0,'167.7.140.254',1187791765,1,0,1,1,1,0,'','','Don\n\nAntonio can probably answer most of your questions .. ADORDD is available for download from this forum .. see the Sticky at the top of the list .. \n\nADORDD is basically \'wrappers\' of the WinOle32 class that allows you to use your regular familiar xbase syntax in opening, navigating, seek\\locate of SQL tables.\n\nDownload the ADORDD and look at the examples .. also take a look at adordd.ch and adordd.prg.\n\nHere is a quick sample of using AdoRdd in opening a ms sql table ..\n\nRick Lipkin\n\n\ncFROM    := \"WEBDB02\"\ncUSER    := \"drugcontroluser\"\ncPSW     := \"r2x6j3q4\"\ncDBF      := \"DRUGCONTROLtest\"\ncTABLE   := \"USERINFO\"\n\nTRY\n\n   SELECT 1\n   USE (AllTrim(cDbf)) VIA \"ADORDD\" TABLE AllTrim(cTable) SQL ;\n          FROM AllTrim(cFrom) USER AllTrim(cUser) PASSWORD AllTrim(cPsw)\n\nCATCH oERR\n    MsgInfo( \"Error in Opening USERINFO table\" )\n    oDlg:End()\n    RETURN(.F.)\nEND TRY','',0,'AIA=','ncikgwwx',1,0,'',35,0,0),(36558,7924,3,34,0,'68.5.217.82',1187799031,1,0,1,1,1,1,'','TOOLBAR theme not working !','[url:148274rh]http&#58;//www&#46;masterlinksoftware&#46;com/Files/toolbar&#46;bmp[/url:148274rh]\n\nHere is a cut of the main menu in the program.  You can see that the menu bar responds to the theme, but clearly the toolbar does not.  Also, I have the same result with rpreview\n\nIf you think this is correct behavior, it is contrary to the toolbar behavior in all Microsoft applications ...\n\nTim','',0,'EA==','148274rh',1,0,'',34,0,0),(36559,6138,6,389,0,'189.133.7.154',1187799125,1,0,1,1,1,0,'','','[quote=&quot;Kleyber&quot;:zkhinmaw]Hola Gabo,\n\n    Fijate en la opcion PROJETO - PROPRIEDADES y en CONFIGURAR COMPILADORES SELECIONADOS, en la opción LIBS CUSTOMIZADAS, cambia para SIM y en la opción MÓDULOS DO SISTEMA, puedes añadir tus librerias.\n\nSaludos,[/quote:zkhinmaw]\nCleyber.. si utilizo las mismas libs en varios proyectos.. como le hago para hacer un solo scrip, y que me sirva para los proyectos que yo quiera.. sin que tenga que agregar esas libs de nuevo en cada uno de ellos..\nSaludos y muchas gracias..','',0,'gA==','zkhinmaw',1,0,'',389,0,0),(36560,7908,6,1140,0,'189.24.92.166',1187799288,1,0,1,1,1,1,'','','nada ?','',0,'gA==','177qemz9',1,0,'',1140,0,0),(36561,6138,6,103,0,'189.43.121.190',1187799393,1,0,1,1,1,1,'','','Hola Gabo,\n\n    Bueno, yo lo hago asi: Simplemente hago una copia de un proyecto para el nuevo y solo cambio los prgs en el proyecto y listo.\n\nSaludos','',0,'gA==','q8cftb49',1,0,'',103,0,0),(36562,7935,3,303,0,'72.199.41.171',1187799645,1,0,1,1,1,0,'','','Milan,\n\nI am not clear on what you are trying to accomplish. Your example doesn\'t match your description. The WHEN clause is usually used to ensure a condition, but you seem to be using it to make a calculation.\n\nPerhaps you should be using bLostFocus. You could calculate the values of Gets 2-4 and place the results in the GETs when the user exits Get1. Then the user would still be free to change the values. Here is an example showing just updating oGet2. You would need to add similar code for oGet3 and oGet4\n\noGet1:bLostFocus := { || oGet2:varPut( oGet1:varGet()  * 0.125/100 ), oGet2:refresh() }\n\nNow when the user enters a value in oGet1 then exits oGet1, oGet2\'s value is automatically calculated and entered into oGet2, but the user can override it. \n\nThere is a complication with this behavior, if the user changes the value in oGet1 after overriding the value in oGet2, then oGet2\'s value will get recalculated. This may or may not be what you want. If you don\'t want this behavior, then I would use a flag var to have the calculation occur only on the first exit from oGet1. Something like this:\n\noGet1:bLostFocus := { || if( lFirst, (oGet2:varPut( oGet1:varGet()  * 0.125/100 ), oGet2:refresh()), ) }\n\nJames','',0,'gA==','160o9mmy',1,0,'',303,0,0),(36563,7936,6,140,0,'190.39.109.192',1187799805,1,0,1,1,1,0,'','OT: Indices IDX de foxpro','Hola a todos...\n\nSe me presenta un caso que debo acceder a archivos de una aplicación desarrollada con foxpro 2.6 (viejito en modo texto).\nLa aplicación en Fox tiene implementado el uso de indices IDX, y no he logrado acceder a ellos por medio de los RDD disponibles en xHarbour 0.993\nA las DBF\'s se le accede perfectamente, pero mientras dure la migración debo actualizarlas junto a sus indices.\n\nExiste algun RDD para xHarbour 0.993 que me permita utilizar ese tipo de indices??? Alguien ha tenido alguna necesidad similar???\n\n1GB de Gracias de Antemano por los comentarios\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'gA==','3744h9tv',1,0,'',140,0,0),(36564,7924,3,303,0,'72.199.41.171',1187800149,1,0,1,1,1,0,'','','Tim,\n\nJust a thought. I know you said you are using TToolbar, can you confirm that you are indeed using TToolbar and not FW\'s own buttonbar (TBar class)?\n\nAlso, have you tryed it under XP to see if it is a Vista issue only?\n\nI have never used TToolbar so I don\'t know what the behavior is.\n\nJames','',0,'gA==','1cb5o1hi',1,0,'',303,0,0),(36565,7930,3,303,0,'72.199.41.171',1187801070,1,0,1,1,1,0,'','','Hua,\n\nThere is a very old dBase source documentor program called Snap! Have you seen this? You can get a free copy here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.the-oasis.net/ftpmaster.php3?content=ftputils.htm\">http://www.the-oasis.net/ftpmaster.php3 ... putils.htm</a><!-- m -->\n\nIt is almost at the bottom of the page. Look for: snp502.zip \n\nJames','',0,'gA==','1uicq4ps',1,0,'',303,0,0),(36566,7937,6,579,0,'189.163.54.170',1187801322,1,0,1,1,1,1,'','Error en W Vista y no en XP','Jovenes amigos\n\nTengo un cliente que usa Windows Vista con mi sistema y que cuando lo usaba en XP funcionaba perfectamente.\n\nMe resulta complicado detectar el error ya que no cuento con WV así que les agradecería me indicaran si con mostrarles el error es suficiente para que me den una idea de por donde buscarle.\n\nel error.log resultante es el siguiente:\n\nApplication\n===========\n   Path and name: C:\\Toros7VH\\TOROS.EXE (32 bits)\n   Size:   591,872 bytes\n   Time from start: 0 hours 0 mins 54 secs \n   Error occurred at: 19/07/2007, 12:48:57\n   Error description: Error BASE/1004  Class: NIL has no exported method: GOUP\n   Args:\n\nStack Calls\n===========\n   Called from GOUP(0)\n   Called from TWINDOW:HSCROLL(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(230)\n\nSystem\n======\n   CPU type: Pentium IV 1733 Mhz\n   Hardware memory: 1014 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 44.0 Intl. (Flex)\n   Windows version: 6.0, Build 6000 \n\n   Windows total applications running: 43\n      1 MSCTFIME UI\n      2 Default IME\n      3 CiceroUIWndFrame\n      4 Inicio\n      5 Herramientas administrativas\n      6 Conmutación de tareas\n      7 Outlook Express FolderSync Window Class\n      8 Outlook Express Community Manager\n      9 TF_FloatingLangBar_WndTitle\n     10 Red flotante\n     11 Toros de lidia 7.14 (Jul\'06) para la ganaderia: VACA HERMANOS corriendo en: C:\\Toros7VH\n     12 MCI command handling window\n     13 DeviceIO Notificaton Window\n     14 _GD_Crawl\n     15 BigFix\n     16 TouchPad object helper window\n     17 Temporizador de módem en espera\n     18 Motorola SM56 Helper\n     19 HkWndName\n     20 InboxNotificationWndClass\n     21 igfxtrayWindow\n     22 SpamNotificationWndClass\n     23 IAAMonitor Notify App\n     24 Touchpad driver tray icon window\n     25 Touchpad driver backward compatibility window\n     26 Touchpad driver helper window\n     27 BluetoothNotificationAreaIconWindowClass\n     28 MS_WebcheckMonitor\n     29 Media Center SSO\n     30 HPWU\n     31 MMDEVAPI Device Window\n     32 Medidor de la batería\n     33 PersistWndName\n     34 McAgent_Main_Hidden_Window\n     35 TaskEng - Proceso del Motor de Programador de tareas\n     36 DWM Notification Window\n     37 DDE Server Window\n     38 Identity Mgr Notify\n     39 Windows Mail\n     40 GDI+ Window\n     41 hp psc 1310 series - Estado\n     42 SysFader\n     43 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   GOUP\n   TWINDOW:HSCROLL\n     Param   1:    N    0\n     Param   2:    N    0\n     Local   1:    O    Class: TMDICLIENT\n     Local   2:    N    0\n     Local   3:    N    0\n     Local   4:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    276\n     Param   2:    N    0\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    276\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    2\n     Local   1:    O    Class: TMDICLIENT\n   WINRUN\n     Param   1:    N    17629428\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    B    {|| ... }\n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    C    \"CONCEPTO1\"\n     Local   2:    O    Class: TICON\n     Local   3:    O    Class: TBITMAP\n     Local   4:    C    \"Toros de lidia 7.14 (Jul\'06)\"\n     Local   5:    C    \"C:\\Toros7VH\"\n     Local   6:    O    Class: TBAR\n     Local   7:    O    Class: TBTNBMP\n     Local   8:    N    7.03\n     Local   9:    N    60\n     Local  10:    N    11\n     Local  11:    C    \"19/07/200712:14:59\"\n     Local  12:    L    .T.\n\nLinked RDDs\n===========\n   DBF\n   DBFDBT\n   DBFFPT\n   DBFNTX\n   DBFCDX\n\nDataBases in use\n================\n\n  1:    USUARIOS                           RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n        1          1      .F.   .F.\n\n     Indexes in use                        TagName\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TCONTROL\n     5 TICON\n     6 TBRUSH\n     7 TMDIFRAME\n     8 TMENU\n     9 TMENUITEM\n    10 TMDICLIENT\n    11 TFONT\n    12 TMSGBAR\n    13 TRECT\n    14 TMSGITEM\n    15 TTIMER\n    16 TBITMAP\n    17 TBAR\n    18 TBTNBMP\n    19 TDIALOG\n    20 TIMAGE\n    21 TGET\n    22 GET\n    23 TCLIPGET\n    24 TWBROWSE\n    25 TCBROWSE\n    26 TCCOLUMN\n    27 TMULTIGET\n    28 TSCROLLBAR\n    29 ERROR\n\nMemory Analysis\n===============\n      263 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes','',0,'gA==','3ollu1bq',1,0,'',579,0,0),(36567,7938,6,1146,0,'83.40.250.98',1187802659,1,0,1,1,1,0,'','get PASSWORD','Hola Antonio:\n\n¿Por qué no está disponible REDEFINE GET ... PASSWORD pero sí en un Get via cordenadas?. Muchas gracias.\n\nSalu2','',0,'gA==','171izx1h',1,0,'',1146,0,0),(36568,7938,6,1104,0,'200.115.251.246',1187803717,1,0,1,1,1,0,'','','Generalmente en los generadores de recursos ya le puedes aplicar ese atributo, y no hace falta hacerlo desde el código.','',0,'gA==','2g2uhuml',1,0,'',1104,0,0),(36569,7938,6,1146,0,'83.40.250.98',1187804255,1,0,1,1,1,0,'','re','Hola\n\nMe refiero para obtener el look de windows xp, que es lo que busco, incluyendo la autodetección de las mayúsculas. Gracias.\n\nSalu2','',0,'gA==','3hknn57u',1,0,'',1146,0,0),(36570,7938,6,940,0,'189.157.99.67',1187805726,1,0,1,1,1,1,'','','Moises,\n\nen las propiedades del recurso hay que activarle para que\n\nsea password,\n\ny utiliza font tahoma en el dialogo para que tome el estilo de winxp\n\nsaludos','',0,'gA==','odvr0fqn',1,0,'',940,0,0),(36571,7938,6,1146,0,'83.40.250.98',1187806302,1,0,1,1,1,0,'','re','Hola:\n\nLos gets tipo password me funcionan correctamente desde siempre. Sin embargo, he visto que soportan el LOOK XP, que es lo que busco, pero sólo cuando los defines via coordenadas, no desde un dialog, que es lo que bsuco. Muchas gracias.\n\nSalu2','',0,'gA==','341fprul',1,0,'',1146,0,0),(36572,7937,6,2,0,'87.218.146.175',1187806762,1,0,1,1,1,1,'','','Rodolfo,\n\n&gt; Compiler version: Harbour Alpha build 44.0 Intl. (Flex) \n\nConstruye tu aplicación con una versión más reciente de Harbour. La que estás usando es bastante antigua y puede originar esos fallos.','',0,'gA==','1294mqk4',1,0,'',2,0,0),(36573,7936,6,2,0,'87.218.146.175',1187806941,1,0,1,1,1,1,'','','Giancarlo,\n\nLe hemos transmitido tu pregunta a Przemek, que es el gurú de los RDDs, en la lista de desarrollo de Harbour. \n\nTe comentaremos lo que responda,','',0,'gA==','3f3s2mwv',1,0,'',2,0,0),(36574,7939,6,875,0,'64.76.108.182',1187807817,1,0,1,1,1,0,'','Como Recompilar una LIB de FWH','he modificado la clase TWBROWSE  pero no se como hacer para agregarlol a la LIB de FWH correspondiente, Alguien me puede indicar los pasos a seguir?\n\n\nSe Agradece\n\n\nJaime','',0,'gA==','388ghgwp',1,0,'',875,0,0),(36575,7929,6,203,0,'200.105.248.98',1187808510,1,0,1,1,1,1,'','','Gracias César Voy a tratar','',0,'gA==','14w8s7u7',1,0,'',203,0,0),(36576,7908,6,2,0,'87.218.146.175',1187808857,1,0,1,1,1,1,'','','Marcelo,\n\nPlease review the enhanced metafiles Windows API documentation:\n\nA developer creates an enhanced metafile by using the CreateEnhMetaFile function and supplying the appropriate arguments. The Win32 API uses these arguments to maintain picture dimensions, to determine whether the metafile should be stored on a disk or in memory, and so on. \n\nTo maintain picture dimensions across output devices, the Win32 API requires the resolution of the reference device. This reference device is the device on which the picture first appeared, and the reference DC is the DC associated with the reference device. When calling the CreateEnhMetaFile function, the application must supply a handle that identifies this DC. The application can get this handle by calling the GetDC or CreateDC function or specify NULL as the handle to use the current display device for the reference device.\n\nMost applications store pictures permanently and therefore create an enhanced metafile that is stored on a disk; however, there are some instances when this is not necessary. For example, a word-processing application that provides chart-drawing capabilities could store a user-defined chart in memory as an enhanced metafile and then copy the enhanced metafile bits from memory into the user\'s document file. An application that requires a metafile that is stored permanently on a disk must supply the filename when it calls the CreateEnhMetaFile function. If the developer does not supply a filename, Windows automatically treats the metafile as a temporary file and stores it in memory. \n\nThe developer can add an optional text description to a metafile containing information about the picture and the author. An application can display these strings in the File Open dialog box to provide the user with information about metafile content that will help in selecting the appropriate file. If an application includes the text description, the application must supply a pointer to the string when it calls the CreateEnhMetaFile function. \nWhen the CreateEnhMetaFile function is successful, it returns a handle that identifies a special metafile DC. A metafile DC is unique in that it is associated with a file rather than with an output device. When Windows processes a GDI function that received a handle to a metafile DC, it converts the GDI function into an enhanced-metafile record and appends the record to the end of the enhanced metafile. \n\nAfter a picture is complete and the last record is appended to the enhanced metafile, the application can close the file by calling the CloseEnhMetaFile function. This function closes and deletes the special metafile DC and returns a handle identifying the enhanced metafile. The application can use this handle to accomplish the following tasks. \n\n·	Display the picture stored in the enhanced metafile.\n·	Create copies of the enhanced metafile.\n·	Enumerate, edit, or copy the individual records in the enhanced metafile.\n·	Retrieve the optional description that is stored in the enhanced metafile.\n·	Retrieve a copy of the enhanced-metafile header.\n·	Retrieve a binary version of the enhanced metafile.\n·	Enumerate the colors in the optional palette.\n·	Convert an enhanced-format metafile into a Windows-format metafile.\n\n \n\nSome applications create temporary backup (or duplicate) copies of a file before enabling the user to alter the original. An application can create a backup copy of an enhanced metafile by calling the CopyEnhMetaFile function, supplying a handle that identifies the enhanced metafile, and supplying a pointer to the name of the new file. \nMost drawing, illustration, and computer-aided design (CAD) applications require a means of editing a picture stored in an enhanced metafile. Although editing an enhanced metafile is a complex task, a developer can use the EnumEnhMetaFile function in combination with other Win32 functions to provide this capability in your application. The EnumEnhMetaFile function and its associated callback function enable the application to process individual records in an enhanced metafile. \n\nSome applications display the text description of an enhanced metafile with the corresponding filename in the File Open dialog box. An application can determine whether this string exists in an enhanced metafile by retrieving the metafile header and examining one of its members. The GetEnhMetaFileHeader function can retrieve the metafile header. If the string exists, the application retrieves it by calling the GetEnhMetaFileDescription function. \n\nSome applications retrieve the contents of a metafile by calling the GetEnhMetaFileBits function; however, before retrieving the contents, the application must specify the size of the file. To get the size, the application can use the GetEnhMetaFileHeader function and examine the appropriate member. \nTo achieve consistent colors when a picture is displayed on various output devices, an application can call the CreatePalette function and store a logical palette in an enhanced metafile. Other applications that display the picture stored in the enhanced metafile retrieve this palette and call the RealizePalette function before displaying the picture. To determine whether a palette is stored in an enhanced metafile, an application can retrieve the metafile header and examine the appropriate member. If a palette exists, the application can call the GetEnhMetaFilePaletteEntries function to retrieve the logical palette.','',0,'gA==','3tzj3btt',1,0,'',2,0,0),(36577,7939,6,2,0,'87.218.146.175',1187809006,1,0,1,1,1,1,'','','Jaime,\n\nCompila el PRG y añade el OBJ resultante a tu aplicación como si fuese uno de los módulos de tu aplicación. No hace falta que lo reemplaces en la librería','',0,'gA==','28v650mp',1,0,'',2,0,0),(36578,7937,6,53,0,'189.139.15.185',1187809290,1,0,1,1,1,1,'','','Rodolfo:\n\nNo sera error mecanografíco, no me suena el método GOUP\nError description: Error BASE/1004 Class: NIL has no exported method: GOUP \n\nSerá GROUP ?\n\nBueno es una idea\n\nSaludos, Armando','',0,'gA==','1fl7ehh1',1,0,'',53,0,0),(36579,7924,3,34,0,'68.5.217.82',1187809382,1,0,1,1,1,1,'','Class','Good morning,\n\nYes, I\'m using tToolbar.  I was advised to do this by Antonio a couple of years ago.  So ... \n\nThe following is the start of the code:\n\n  // First create the ImageList object for all the bitmaps\n   oImageList := TImageList():New( 28, 28 )     // width and height of bitmaps\n   // Now create the toolbar object for adding the buttons\n   oToolBar := TToolBar():New( oWnd, 30, 32, oImageList )\n\nFrom here I actually add the buttons with the following lines:\n\n      oImageList:AddMasked( TBitmap():Define( \"CLIP\",    , oWnd ), nRGB( 255, 255, 255 ) )\n      oToolBar:AddButton( { || PRO100M( )}, \"Workorders\", ) // \"Work\" )\n\nYes, the same result is seen in XP','',0,'gA==','33u2k5mr',1,0,'',34,0,0),(36580,7923,6,694,0,'200.146.117.72',1187809759,1,0,1,1,1,1,'','gracias','Gracias Antonio...','',0,'gA==','1kzuimf2',1,0,'',694,0,0),(36581,7940,6,694,0,'200.146.117.72',1187810107,1,0,1,1,1,1,'','TIMAGE WINDOW MDI ?? PORQUE NÃO FUNCIONA?','Antonio, para colocar uma imagem na area de trabalho eu utilizava assim :\n\n  DEFINE WINDOW oWnd  ;\n          ICON OICO;\n          MENU PreparaMenu() \n\n  ACTIVATE WINDOW oWnd MAXIMIZED  on RESIZE ( showLogo(.T.))\n\n*******************************\nFUNCTION showLogo(jafundo)\n*******************************\nlocal fupla:=\"sgs.jpg\"\n\n @ 0,0 IMAGE oImg ADJUST SIZE oWnd:GetCliRect():nRight,;\n                       oWnd:GetCliRect():nBottom OF oWnd NOBORDER\n\noImg:Progress(.F.)\n oImg:LoadBmp(fupla)\nRETURN(.t.)\n\n\nE funcionava certinho, porém ao colocar MDI na window parou de funcionar, ficou um fundo cinza escuro:\n\n  DEFINE WINDOW oWnd  MDI;\n          ICON OICO;\n          MENU PreparaMenu() \n\n  ACTIVATE WINDOW oWnd MAXIMIZED  on RESIZE ( showLogo(.T.))\n\n\n\nAntonio como resolver isso?\n\n\nDesde já te agradeço.\n\nFique com Deus\n\nAoki','',0,'gA==','2x43wbuf',1,0,'',694,0,0),(36582,7924,3,2,0,'87.218.146.175',1187812208,1,0,1,1,1,1,'','','Tim,\n\nPlease try samples\\rebars.prg. It should look ok with themes.\n\nIt seems that higher toolbars don\'t get the theme look. If you build samples\\ToolBar1.prg you\'ll see that it looks like yours.','',0,'gA==','htr4t5ho',1,0,'',2,0,0),(36583,7937,6,2,0,'87.218.146.175',1187812365,1,0,1,1,1,1,'','','Armando,\n\nEl método está bien, es GoUp() y pertenece a la clase TScrollBar. El código que falla es este:\n[code:ooc6qw6i]\n   if nScrHandle == 0 &#46;and&#46; &#58;&#58;oHScroll != nil    // Window ScrollBar\n      do case\n         case nScrollCode == SB_LINEUP\n              &#58;&#58;oHScroll&#58;GoUp&#40;&#41;\n[/code:ooc6qw6i]\nya que si ::oHScroll es nil entonces no debería llamarse a :GoUp() más abajo. Por eso parece que es un error propio de Harbour, al ser una versión antigua','',0,'AIA=','ooc6qw6i',1,0,'',2,0,0),(36584,7940,6,2,0,'87.218.146.175',1187812691,1,0,1,1,1,1,'','','Aoki,\n\nAl usar MDI debes usar:\n... OF oWnd[color=red:vocj5quq]:oWndClient[/color:vocj5quq] ...\n\npero tu código es erróneo ya que estás creando un objeto image CADA VEZ que se produce un resize de la ventana principal. Hazlo así:\n[code:vocj5quq]\noBmp = TImage&#40;&#41;&#58;Define&#40; , &quot;sgs&#46;jpg&quot; &#41; \n\noWnd&#58;oWndClient&#58;bPainted &#58;= &#123;|hDC| PalBmpDraw&#40; hDC, 0, 0,oBmp&#58;hBitmap,, oWnd&#58;oWndClient&#58;nWidth, oWnd&#58;oWndClient&#58;nHeight,, &#46;T&#46;&#41; &#125;\n[/code:vocj5quq]','',0,'AoA=','vocj5quq',1,0,'',2,0,0),(36585,7924,3,34,0,'68.5.217.82',1187813036,1,0,1,1,1,1,'','Rebars','So toolbars doesn\'t work properly...\n\nTim','',0,'AoA=','2g9e3bz8',1,0,'',34,0,0),(36586,7924,3,2,0,'87.218.146.175',1187813236,1,0,1,1,1,1,'','','Tim,\n\nIt looks as a standard Windows behavior: Themes are seen only on small height toolbars.\n\nAnyhow when you move the mouse over a toolbar button, you should see the themed button\n[url=http&#58;//imageshack&#46;us:cx77gsl8][img:cx77gsl8]http&#58;//img160&#46;imageshack&#46;us/img160/9394/toolbarip0&#46;png[/img:cx77gsl8][/url:cx77gsl8]','',0,'GA==','cx77gsl8',1,0,'',2,0,0),(36587,7924,3,34,0,'68.5.217.82',1187814710,1,0,1,1,1,1,'','Small height toolbar ?','OK ... resolved the problem by putting it onto a tReBar with oPanel ... but is there a way to set the baloon style like what you used ?','',0,'GA==','2s4chq0p',1,0,'',34,0,0),(36588,7891,1,819,0,'67.187.239.16',1187817780,1,0,1,1,1,0,'','','Antonio,  \n\nI am using XHB and have difficulties copying the error code.  Here\'s the C code instead.\n\nThank you,\n\nJose\n\n#define Escape _Escape\n#include &lt;Windows.h&gt;\n#include &lt;Print.h&gt;\n#define __WINDOWS_H\n/*#include &lt;d:\\dev\\fw192\\include\\ClipApi.h&gt;*/\n#include &lt;ClipApi.h&gt;\nCLIPPER RAWPRINT() // ( hDC, cText ) --&gt; nBytesSent\n{\n   LPBYTE lpbData;\n   LPWORD lpwLength;\n   if (PCOUNT()==2 &amp;&amp; ISNUM(1) &amp;&amp; ISCHAR(2))\n   {\n      // Create a buffer 2 bytes larger that length of cText\n      lpbData = _xgrab(_parclen(2)+2);\n      if (lpbData)\n      {\n         lpwLength = (LPWORD)lpbData;\n         // First WORD (16 bits, 2 bytes) contains the number of bytes of input data\n         *lpwLength = _parclen(2);\n         // Data starts at 3rd byte, copy cText to data\n         _bcopy(lpbData+2,_parc(2),_parclen(2));\n         // Return nBytesSent, failure if nBytesSent&lt;=0\n         _retni(Escape(_parni( 1 ),PASSTHROUGH,NULL,(LPSTR)lpbData,NULL));\n         // Free memory!\n         _xfree(lpbData);\n      }\n      else\n         _retni(0); // No memory!\n   }\n   else\n      _retni(0); // Invalid args!\n}','',0,'GA==','2uoqj1u0',1,0,'',819,0,0),(36589,7928,6,1072,0,'190.82.43.244',1187818049,1,0,1,1,1,0,'','','Antonio:\n\nMuhas gracias por tu ayuda.\n\nSaludos,\nAntonio\n\n[quote=&quot;Antonio Linares&quot;:6mvabn7c]cTexto = MemoRead( \"fichero.txt\" )[/quote:6mvabn7c]','',0,'gA==','6mvabn7c',1,0,'',1072,0,0),(36590,7939,6,875,0,'64.76.108.182',1187818337,1,0,1,1,1,0,'','','Gracias Antonio,   Funciono de Maravillas   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\n\n\nJaime','',0,'gA==','3h5xy28f',1,0,'',875,0,0),(36591,7924,3,2,0,'87.218.146.175',1187820060,1,0,1,1,1,1,'','','Tim,\n\nUse the BALLOON clause when creating the toolbar:\n\n   DEFINE TOOLBAR oToolBar OF oWnd SIZE 50, 58 ; // 50, 50 ;\n      IMAGELIST oImageList [color=red:jfohjxx6]BALLOON[/color:jfohjxx6]','',0,'Ag==','jfohjxx6',1,0,'',2,0,0),(36592,7937,6,53,0,'189.139.16.181',1187822872,1,0,1,1,1,1,'','','Maestro:\n\nEntendido.\n\nSaludos','',0,'Ag==','3vayo43q',1,0,'',53,0,0),(36593,7891,1,819,0,'67.187.239.16',1187823730,1,0,1,1,1,0,'','','Antonio,\n\n&gt;What do you use print.h for ? \n\nNo idea, we just purchased the source code.\n\nThanks,\n\nJose','',0,'Ag==','7lvo84d4',1,0,'',819,0,0),(36594,7924,3,34,0,'68.5.217.82',1187824759,1,0,1,1,1,1,'','Balloon','Got it ... thanks ... all is now working well ! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','1j1bjby8',1,0,'',34,0,0),(36595,7941,6,911,0,'200.72.141.53',1187825566,1,0,1,1,1,0,'','Consulta básica (Solucionado-bug clase twbrowse Hernán)','Hola:\nAquí estoy de nuevo y después de dos años de para en la programación, se nota definitivamente.\nA ver:\nutilizo xmate+xharbour (desde cvs) y tengo algo tan simple como esto:\n\n[code:2dxgvjqe]REQUEST DBFCDX\nRddSetDefault&#40; &quot;DBFCDX&quot;&#41;\naDbf&#58;=&#123;&#125;\nAadd&#40;aDbf, &#123;&quot;PASO1&quot;, &quot;C&quot;, 10, 0&#125;&#41;\nAadd&#40;aDbf, &#123;&quot;PASO2&quot;, &quot;C&quot;, 10, 0&#125;&#41;\ndbCreate&#40; &quot;PASO&#46;DBF&quot;, aDbf, &quot;DBFCDX&quot;&#41;\nUSE PASO EXCLUSIVE NEW VIA &quot;DBFCDX&quot;\nSELECT PASO\ndbGotop&#40;&#41;\nMsgInfo&#40; &quot;browse&#40;&#41;&quot;&#41;\nBrowse&#40;&#41;\nCLOSE DATABASE[/code:2dxgvjqe]\n\nLa rutina llega hasta el MsgInfo() y luego se cuelga.\nEsto me tiene entrampado para utilizar el browse de Hernán.\nSalduos y mil gracias\nDavid Lagos S.\nCoquimbo-Chile','',0,'AIA=','2dxgvjqe',1,1187881886,'',911,1,0),(36596,7891,1,2,0,'87.218.146.175',1187826889,1,0,1,1,1,1,'','','Jose,\n\nMake this change in the C code and try to compile it again:\n\n#ifndef __FLAT__\n#include &lt;Print.h&gt;\n#endif','',0,'AIA=','76smxkeb',1,0,'',2,0,0),(36597,7941,6,2,0,'87.218.146.175',1187827070,1,0,1,1,1,1,'','','David,\n\nCambia Browse() por WBrowse() ó simplemente añade #include \"FiveWin.ch\" al principio','',0,'AIA=','x03bbrgz',1,0,'',2,0,0),(36598,7942,6,78,0,'190.40.225.130',1187830294,1,0,1,1,1,0,'','Sobre IsPrinter','Hola amigos,\nEncontre esto escrito para Dephi, se podra convertir a Harbour??\nSalu2\n\n\nfunction IsPrinter : Boolean; \nConst \n    PrnStInt  : Byte = $17; \n    StRq      : Byte = $02; \n    PrnNum    : Word = 0;  { 0 para LPT1, 1 para LPT2, etc. } \nVar \n  nResult : byte; \nBegin  (* IsPrinter*) \nAsm \n   mov ah,StRq; \n   mov dx,PrnNum; \n   Int $17; \n   mov nResult,ah; \nend; \nIsPrinter := (nResult and $80) = $80; \nEnd;','',0,'AIA=','1dj5n25x',1,0,'',78,0,0),(36599,7943,6,1035,0,'201.243.15.149',1187830843,1,0,1,1,1,1,'','Declarando un DLL','Saludos Cordiales Colegas!!\n\nDisculpen la molestia ya que de este tema he visto muchos topicos por aqui pero no me ha quedado claro ninguno\n\nQue debo hacer para poder declarar una DLL y utilizar sus funciones\n\nYo pensaba que se hacia tipo COM\n\n\noObj:=TOleAuto():New( \"ENSAMB.TIPO\" )\n\ny de alli para de lante\n\n\noObj:METHOD01()\n\noObj:METHOD02(val1,val2,val3)\n\npero ahora veo q es como q d otra forma!!!\n\nDisculpen la confusion si me pueden hacer la aclaratoria!!\n\nQ debo hacer??\n\nGracias','',0,'AIA=','24j12mi0',1,0,'',1035,0,0),(36600,7937,6,579,0,'189.163.54.170',1187830910,1,0,1,1,1,1,'','','Gracias Antonio. Baje la version mas reciente de Harbour que indicas en \"Novedades\":\n\nHarbour for Borland, April 17 2007 build: \n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/26540571/harbour.exe.html\">http://rapidshare.com/files/26540571/harbour.exe.html</a><!-- m --> \n\nPero ahora me sale una larga lista de errores al compilar. Que otra cosa debo ahora actualizar? Como puedo saber la version de mi FWH?','',0,'AIA=','2xylf1j8',1,0,'',579,0,0),(36601,7941,6,911,0,'200.72.141.53',1187833211,1,0,1,1,1,0,'','','Antonio:\nTengo puesto #include \"fivewin.ch\"\n\ny no resultó tampoco con wbrowse().\nel programa se cuelga.\nAdemás no entiendo porqué no me aparece error alguno, ni la ventana ni genera el error.log\nSaludos\nDavid','',0,'AIA=','13xcmx5c',1,0,'',911,0,0),(36602,7937,6,54,0,'189.132.88.201',1187835018,1,0,1,1,1,1,'','','[quote=&quot;RodolfoRBG&quot;:2yp191l5]Gracias Antonio. Baje la version mas reciente de Harbour que indicas en \"Novedades\":\n\nHarbour for Borland, April 17 2007 build: \n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/26540571/harbour.exe.html\">http://rapidshare.com/files/26540571/harbour.exe.html</a><!-- m --> \n\nPero ahora me sale una larga lista de errores al compilar. Que otra cosa debo ahora actualizar? Como puedo saber la version de mi FWH?[/quote:2yp191l5]\n\nRodolfoRGB,\n\nTienes que recompilar de igual manera las LIB de FWH.\n\ncontactame por privado y con gusto puedo orentarte al respecto.\n\n<!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e -->','',0,'gA==','2yp191l5',1,0,'',54,0,0),(36603,7944,17,51,0,'80.122.88.242',1187854114,1,0,1,1,1,0,'','Vista program execution','What I found out:\nIf a programname has update or setup as a part of the name Vista asks every time if you allow starting or not.   Whsetup.exe  asks; renamed to whs.exe no question.','',0,'gA==','178j2jtq',1,0,'',51,0,0),(36604,7945,3,473,0,'81.82.10.56',1187856808,1,0,1,1,1,0,'','Printproblem - Size of a string in pixels','Hello,\n\nI want to print some labels from a database.\n\nDe font has to be automatically resized when the printed line is to long.\n\nAny idea how I can measure a line before it is defined in the oPrt object.\n\nThanks\n\nWilly','',0,'gA==','1cr0zt09',1,0,'',473,0,0),(36605,7946,6,582,0,'200.117.86.23',1187857464,1,0,1,1,1,0,'','Formatear disquette','Gente, me parece que en algun monento alguien consulto sobre como se puede formatear un disquete desde FWH y no pude encontrar nada.\nAlguien sabe como hacerlo?\n\nDesde ya muchas gracias.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','31otg0qz',1,0,'',582,0,0),(36606,7945,3,3,0,'80.81.159.19',1187858262,1,0,1,1,1,1,'','Re: Printproblem - Size of a string in pixels','OPRN:GETTEXTWIDTH(ctext,cfont)\n\nHth\n\nRichard','',0,'gA==','1kj6eoe2',1,0,'',3,0,0),(36607,7924,3,3,0,'80.81.159.19',1187858321,1,0,1,1,1,1,'','','Antonio\n\nIs there a way of setting \"BALLOON\" as default tooltip style ?\n\nRichard','',0,'gA==','2snf2tgf',1,0,'',3,0,0),(36608,7942,6,2,0,'87.218.146.175',1187859005,1,0,1,1,1,1,'','','Willi,\n\n&gt; Int $17; \n\nEse código es para 16 bits, no para 32 bits\n\nDe todas formas, Harbour/xHarbour proporcionan IsPrinter()','',0,'gA==','kh49q9xz',1,0,'',2,0,0),(36609,7941,6,2,0,'87.218.146.175',1187859401,1,0,1,1,1,1,'','','David,\n\nPorque estas llamando a la función browse para modo consola que proporciona Harbour, por eso se cuelga.\n\nFiveWin.ch cambia Browse() por WBrowse(), y la función WBrowse() debe mostrarte un browse básico en modo Windows\n\nPrueba a no llamar a Browse() y no debe colgarse','',0,'gA==','21pl8qgy',1,0,'',2,0,0),(36610,7943,6,2,0,'87.218.146.175',1187859484,1,0,1,1,1,1,'','','Daniel,\n\nSi es una DLL estandard, entonces no se usa con OLE, sino con DLL FUNCTION ... \n\nBusca por DLL AND FUNCTION en estos foros y encontrarás muchos ejemplos','',0,'gA==','2m9gk0vx',1,0,'',2,0,0),(36611,7924,3,2,0,'87.218.146.175',1187859782,1,0,1,1,1,1,'','','For the toolbars, you need to modify the class in this line:\n\n   ::lTTBalloon := lTTBalloon // change this into .T.\n\nFor other tooltips, modify Class TWindow here:\n\n         hWnd = CreateToolTip( Self:hWnd, cToolTip ) // , .t. ) for ballon tooltips !','',0,'gA==','1421ejo0',1,0,'',2,0,0),(36612,7945,3,995,0,'81.11.210.78',1187861471,1,0,1,1,1,0,'','','Willy , \n\nZie \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5706\">http://fivetechsoft.com/forums/viewtopic.php?t=5706</a><!-- m -->','',0,'gA==','3of121up',1,0,'',995,0,0),(36613,7945,3,473,0,'81.82.10.56',1187862579,1,0,1,1,1,0,'','','Thanks Richard,\n\nThis works fine.','',0,'gA==','3fq252t3',1,0,'',473,0,0),(36614,7947,6,694,0,'200.146.117.72',1187867346,1,0,1,1,1,1,'','Como saber se uma WINDOW MDI já esta aberta?','Antonio e amigos, como saber se uma WINDOW MDI já esta aberta?\n\nComo testar o objeto OWND para saber se ela já esta aberta?\n\n\nGrato\n\nAoki','',0,'gA==','22it8l06',1,0,'',694,0,0),(36615,7948,7,720,0,'80.36.244.134',1187872701,1,0,1,1,1,0,'','Como puedo realizar una busqueda combinada con DbSeek()??','Hola a todos.\n\nALguien puede indicarme como hacer una busqueda combinada de tres campos de una tabla usando DbSeek()??. Es decir, que la busqueda sea satisfactoria si el registro en el que se busca cumple las tres condiciones...\n\nHe probado ya unas cuantas formas y a pesar de que no da error el resultado no es correcto.\n\nSaludos.\n\nElías Torres.','',0,'gA==','2caz6ddt',1,0,'',720,0,0),(36616,7948,7,2,0,'87.218.146.175',1187874178,1,0,1,1,1,1,'','','Elías,\n\nTienes que tener el índice construido con una expresión que use los tres campos, para poder buscar por esa misma expresión','',0,'gA==','275p7uxv',1,0,'',2,0,0),(36617,7947,6,2,0,'87.218.146.175',1187874297,1,0,1,1,1,1,'','','Aoki,\n\nMsgInfo( IsWindow( oWnd:hWnd ) )','',0,'gA==','1s4m3ocg',1,0,'',2,0,0),(36618,7947,6,694,0,'200.146.117.72',1187875805,1,0,1,1,1,1,'','grato','Grato Antonio...','',0,'gA==','380zwnky',1,0,'',694,0,0),(36619,7949,6,63,0,'88.6.244.241',1187876358,1,0,1,1,1,0,'','René: Dos preguntas sobre ADS','1.- Utilizo una red local de cuatro usuarios más un disco Ethernet en el que están almacenados todos los datos.  Es posible utilizar ADS con esta configuración (no hay un server propiamente dico, sino que los archivos DBF residen en un disco de red).  Si es así, dónde debo copiar los Dll correspondientes?\n\n2.- Sé que al abrir las tablas he de hacer constar explícitamente el disco/directorio.  ¿Puede hacerse mediante una variable?:\n\ncDir := \"\\\\Server\\c\\datos\\\"\nUse (cdir+\"CLIENTES\") shared new....  etc\n\nPerdón por lo elemental de la pregunta, pero estoy empezando con ADS.  Gracias\n\nRafael','',0,'gA==','2208aweo',1,0,'',63,0,0),(36620,7941,6,911,0,'200.72.141.53',1187878065,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3an1s171]David,\n\nPorque estas llamando a la función browse para modo consola que proporciona Harbour, por eso se cuelga.\n\nFiveWin.ch cambia Browse() por WBrowse(), y la función WBrowse() debe mostrarte un browse básico en modo Windows\n\nPrueba a no llamar a Browse() y no debe colgarse[/quote:3an1s171]\n\nAntonio:\nNo me hice entender.\nNo utilizo nada en modo consola.\nSencillamente el simple hecho de hacer un \"USE\" a una .dbf y realizar un wbrowse() se cuelga.\n[color=red:3an1s171][b:3an1s171]Vuelvo a preguntar: ¿a qué se puede deber que al presentarse un problema no aparece la ventana de error y no genera el error.log?[/b:3an1s171][/color:3an1s171]\nEstoy utilizando xmate. Además me funciona perfectamente la twbrowse de hernán.\nSaludos y muchas gracias.\nDavid\n\nP.D.:Adjunto imágenes.\nXMate: [b:3an1s171]Librerías que estoy utilizando[/b:3an1s171]\n[img:3an1s171]http&#58;//img341&#46;imageshack&#46;us/img341/261/xmate1tx9&#46;jpg[/img:3an1s171]\n[img:3an1s171]http&#58;//img251&#46;imageshack&#46;us/img251/292/xmate2dw3&#46;jpg[/img:3an1s171]\n\nXMate: [b:3an1s171]Como tengo definido mi proyecto[/b:3an1s171]\n[img:3an1s171]http&#58;//img401&#46;imageshack&#46;us/img401/1910/xmate3pj0&#46;jpg[/img:3an1s171]\n\n[b:3an1s171]Hago algo tan simple como esto y se cuelga[/b:3an1s171]\n[img:3an1s171]http&#58;//img208&#46;imageshack&#46;us/img208/6782/simpleejemplo1lo3&#46;jpg[/img:3an1s171]','',0,'yg==','3an1s171',1,0,'',911,0,0),(36621,7941,6,2,0,'87.218.146.175',1187880021,1,0,1,1,1,1,'','','David,\n\nTu código funciona aqui perfectamente. Prueba a no enlazar el Browse de Hernan.\n\nSi no aparece error y la aplicación se cuelga, es que está en un bucle ó usando Inkey() de [x]Harbour.','',0,'','18pwnpfo',1,0,'',2,0,0),(36622,7950,1,1147,0,'200.93.182.115',1187881709,1,0,1,1,1,0,'','HTTP GET Method from Fivewin (Metodo GET de HTTP desde FW)','Can we use a GET Method of HTTP inside a FW program, passing any url, and getting the result in a text var? Thanks a lot in advance for the help. Best regards. rcastano1\n-----------------------------\nSaludo Cordial al Foro. \nEs posible ejecutar el método GET de HTTP, desde fivewin, pasando como parámetro una url y recibiendo el resultado en algún campo texto que después se pueda procesar?. Gracias de antemano por la ayuda que me puedan brindar. rcastano1','',0,'','2gbapda3',1,0,'',1147,0,0),(36623,7946,6,362,0,'200.158.19.243',1187881774,1,0,1,1,1,1,'','Re: Formatear disquette','[quote=&quot;El Loco&quot;:3p6anlf3]Gente, me parece que en algun monento alguien consulto sobre como se puede formatear un disquete desde FWH y no pude encontrar nada.\nAlguien sabe como hacerlo?\n\nDesde ya muchas gracias.\n\nUn abrazo. El Loco =&gt;))[/quote:3p6anlf3]\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=302\">http://www.fivewin.com.br/exibedicas.asp?id=302</a><!-- m -->\n\nRegards, saludos.','',0,'gA==','3p6anlf3',1,0,'',362,0,0),(36624,7941,6,911,0,'200.72.141.53',1187881809,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2tys4azn]David,\n\nTu código funciona aqui perfectamente. Prueba a no enlazar el Browse de Hernan.\n\nSi no aparece error y la aplicación se cuelga, es que está en un bucle ó usando Inkey() de [x]Harbour.[/quote:2tys4azn]\nEfectivamente es un bug en la classe de Hernán.\nHice lo siguiente:\n[code:2tys4azn]TRY\n   WBrowse&#40;&#41;\nCATCH oError\n   MsgStop&#40; oError&#58;Description&#41;\nEND[/code:2tys4azn]\n\nCon la classe de Hernán arroja el CATCH oError \"Undefined Function\"\nSacando la classe de Hernán funciona perfecto.\nMil Gracias nuevamente\nDavid Lagos S.\nCoquimbo-Chile','',0,'gIA=','2tys4azn',1,0,'',911,0,0),(36625,7951,2,1147,0,'200.93.182.115',1187882179,1,0,1,1,1,0,'','Metodo GET de HTTP desde Fivewin','Saludo Cordial al Foro.\nEs posible ejecutar el método GET de HTTP, desde fivewin, pasando como parámetro una url y recibiendo el resultado en algún campo texto que después se pueda procesar?. Gracias de antemano por la ayuda que me puedan brindar. rcastano1','',0,'gIA=','scteteyh',1,0,'',1147,0,0),(36626,7949,6,138,0,'189.141.73.172',1187882471,1,0,1,1,1,1,'','Re: René: Dos preguntas sobre ADS','Rafael:\n\n[quote=&quot;Rafael Clemente&quot;:2waqundk]1.- Utilizo una red local de cuatro usuarios más un disco Ethernet en el que están almacenados todos los datos.  Es posible utilizar ADS con esta configuración (no hay un server propiamente dico, sino que los archivos DBF residen en un disco de red).  Si es así, dónde debo copiar los Dll correspondientes?\n[/quote:2waqundk]\n\nADS remoto no puede utilizarse como tienes montado ahora tu red porque estás perdiendote de la mitad de la peli, tienes la parte \"cliente\" pero te falta la parte \"servidor\", necesitas forzosamente un equipo servidor ya sea con SO Linux, Windows o Novell, y los datos deben de existir fisicamente en alguna unidad de equipo servidor.\n\nEl servidor local si puede usarse así (no es cliente servidor) los DLLs correspondientes van en la carpeta donde tienes el archivo EXE de tu programa.\n\n\n[quote=&quot;Rafael Clemente&quot;:2waqundk]2.- Sé que al abrir las tablas he de hacer constar explícitamente el disco/directorio.  ¿Puede hacerse mediante una variable?:\n\ncDir := \"\\\\Server\\c\\datos&quot;\nUse (cdir+\"CLIENTES\") shared new....  etc\n[/quote:2waqundk]\n\nExactamente así debe hacerse, otra cosa importante, abre TODAS las tablas DBFs al principio de tu programa, esto es básico para tener un buen rendimiento con ADS. Abre todas al principio del programa y no las cierres hasta que termine tu aplicación, evita los procesos de apertura y cerrado durante las rutinas de tu programa.','',0,'gA==','2waqundk',1,0,'',138,0,0),(36627,7950,1,138,0,'189.141.73.172',1187882721,1,0,1,1,1,1,'','','Si se puede, FW tiene la clase TWebClient que funciona por medio de sockets, de todas formas, hacerlo con xHarbour es mejor, ya que tienes el soporte URL nativo a 32 bits.','',0,'gA==','1gqbj0vz',1,0,'',138,0,0),(36628,7949,6,63,0,'88.6.244.241',1187884517,1,0,1,1,1,0,'','','René: Muchísimas gracias otra vez.  Un saludo,\n\nRafael','',0,'gA==','21f60wh7',1,0,'',63,0,0),(36629,7652,3,178,0,'71.29.202.178',1187893219,1,0,1,1,1,1,'','','Rene,\n\nI will take a look, that sounds like what I am talking about.\n\nThanks','',0,'gA==','3gsbbnf3',1,0,'',178,0,0),(36630,7952,6,694,0,'200.146.117.72',1187893719,1,0,1,1,1,1,'','Como cambiar um BMP de um botão BTNBMP em tempo de execução?','Antonio e amigos, é possível trocar a imagem de um BTNBMP em tempo de execução:\n \n @ 10,20 BTNBMP oBtn resource \"REST2\" TOP SIZE 60, 60 OF wnd            \n\nalgo como:\n\nobtn:loadbmp(getresources(),\"OUTRORECURSO\")\n\n\nGrato\n\nAoki','',0,'gA==','2s158ahy',1,0,'',694,0,0),(36631,7952,6,41,0,'200.105.194.234',1187894435,1,0,1,1,1,0,'','','Hola               \n\nboton:loadbitmaps(\"bitmap\")  // cambias el bitmap\nboton:settext(\"texto\")            // cambias el texto\nboton:refresh()\n\nsaludos\n\nMarcelo','',0,'gA==','1sxzjbvl',1,0,'',41,0,0),(36632,7952,6,694,0,'200.146.117.72',1187897224,1,0,1,1,1,1,'','','gracias marcelo !','',0,'gA==','1kl9ooe2',1,0,'',694,0,0),(36633,7941,6,36,0,'164.77.81.210',1187898657,1,0,1,1,1,1,'','','Yo utilizo el browse de Hernan y no he tenido ningun problema\n\npuede ser el orden de las librerias\n\nen mi caso la tengo al principio...\n[code:82suhfam]\n&#46;&#46;&#46;\nTWBRW32 + //libreria de hernan&#46;&#46;&#46;\nHbTDbf +\nc&#58;\\Fwh\\lib\\FiveHX&#46;LIB +\nc&#58;\\Fwh\\lib\\FiveHc&#46;LIB +\nFunlib32 +\nFileXls +\nvBarH +\nvBoxH +\nSBrowseH  +\nTBtnGet32 +\nc&#58;\\harbour\\lib\\rtl&#46;lib	 +\nc&#58;\\harbour\\lib\\vm&#46;lib    +\nc&#58;\\harbour\\lib\\gtGui&#46;lib +\nc&#58;\\harbour\\lib\\lang&#46;lib  +\nc&#58;\\harbour\\lib\\macro&#46;lib +\nc&#58;\\harbour\\lib\\rdd&#46;lib   +\nc&#58;\\harbour\\lib\\dbfcdx&#46;lib+\nc&#58;\\harbour\\lib\\dbffpt&#46;lib+\nc&#58;\\harbour\\lib\\hbsix&#46;lib +\nc&#58;\\harbour\\lib\\common&#46;lib+\nc&#58;\\harbour\\lib\\pp&#46;lib    +\nc&#58;\\harbour\\lib\\rddads&#46;lib+\nc&#58;\\harbour\\lib\\Ace32&#46;lib +\nc&#58;\\borland\\bcc55\\lib\\cw32&#46;lib +\nc&#58;\\borland\\bcc55\\lib\\import32&#46;lib,, +\nrecurso\\wcta&#46;res recurso\\toolbar1&#46;res[/code:82suhfam]','',0,'AIA=','82suhfam',1,0,'',36,0,0),(36634,7953,6,694,0,'200.146.117.72',1187899460,1,0,1,1,1,1,'','Antonio, por favor preciso muito disso! (resolvido !)','Antonio e amigos, preciso criar um timer que de tempos em tempos verifique a situacao e troque BMP de botoes BTNBMP, não estou conseguindo:\n\nlocal obtn\ndefine window oWndc from 0,0 TO 25,70 MDICHILD OF oWnd \ndefine timer otimesa of owndc interval 5000 action(trocabmp(obtn))\n@ 10,20 BTNBMP oBtn resource \"FOOD2\" TOP SIZE 60,60 OF oWndc \nACTIVATE WINDOW oWndc on inti(otimesa:activate())\n\n************************\nfunction trocabmp(obtn)\n************************\nobtn:loadbitmap(getresources(),\"LUPA\")\nobtn:refresh()\nreturn(.t.)\n\n\nEsta retornando erro no refresh e sem refresh não troca imagem.\n\nFique com Deus \n\nGrato \n\nAoki','',0,'AIA=','3eob9ew1',1,1187954859,'',694,1,0),(36635,7953,6,2,0,'87.218.146.175',1187901538,1,0,1,1,1,1,'','','Crea el botón antes de crear el timer:\n\n@ 10,20 BTNBMP oBtn resource \"FOOD2\" TOP SIZE 60,60 OF oWndc \ndefine timer otimesa of owndc interval 5000 action(trocabmp(obtn))','',0,'AIA=','2reclyh4',1,0,'',2,0,0),(36636,7954,6,18,0,'200.67.188.236',1187902155,1,0,1,1,1,1,'','OT: HbComm','Amigos, donde puedo conseguir esa librería ?','',0,'AIA=','wtfvwa2j',1,0,'',18,0,0),(36637,7950,1,1147,0,'200.93.182.115',1187902434,1,0,1,1,1,0,'','','Muchas Gracias por la Respuesta Rene, revisare en detalle esta clase, que no la tenia en la documentacion. Por lo que he visto es perfecta para lo que necesitaba. Cordial Saludo.','',0,'AIA=','2akeqs3a',1,0,'',1147,0,0),(36638,7954,6,2,0,'87.218.146.175',1187902629,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/3888-6994038c93.html\">http://www.hotshare.net/file/3888-6994038c93.html</a><!-- m -->','',0,'AIA=','1q64yxpg',1,0,'',2,0,0),(36639,7953,6,694,0,'200.146.117.72',1187902756,1,0,1,1,1,1,'','','Antonio, não resolveu... segue meu ERROR.LOG e PRG:\n\nApplication\n===========\n   Path and name: C:\\DBF\\sgs.exe (32 bits)\n   Size: 3,464,192 bytes\n   Time from start: 0 hours 0 mins 17 secs \n   Error occurred at: 23/08/2007, 18:01:19\n   Error description: Error BASE/1004  Message not found: TBTNBMP:LOADBIMTAP\n\nStack Calls\n===========\n   Called from:  =&gt; TBTNBMP:ERROR(179)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TBTNBMP:MSGNOTFOUND(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LOADBIMTAP(167)\n   Called from: mesas.prg =&gt; VERSITUAMESAS(59)\n   Called from: mesas.prg =&gt; (b)SELECIONAMESA(43)\n   Called from: TIMER.PRG =&gt; TIMEREVENT(0)\n   Called from: window.prg =&gt; (b)TWINDOW:TWINDOW(554)\n   Called from: window.prg =&gt; TMDICHILD:TIMER(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3165)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TMDIFRAME:ACTIVATE(883)\n   Called from: sgs.PRG =&gt; MAIN(219)\n\n\n\n\n\n#include \"FiveWin.ch\" \n\n********************************************************\nFUNCTION SelecionaMesa(nmesa,cmod,nMaxMesa,off,cDescTipo) \n********************************************************\nLOCAL oScrWnd,i,j,contamesas:=0,osay,oBt2,cfupla,coImg,otimesa,Mobtn[nMaxMesa], aMesasOcup := {},aMesasPFech := {}\n\nSituacaoMesas(cMod,nMaxMesa,@aMesasOcup,@aMesasPFech)\n\ndefine window oWndc from 0, 0 TO 25, 70 ; \ntitle \"Controle de Mesas\" MDICHILD OF oWnd vscroll icon oico COLOR EMP_MCOR,EMP_MCOR NOICONIZE\noWndc:maximize()\nfor i := 1 to 500\n    for j := 1 to 10\n        contamesas++\n        if contamesas&lt;=nMaxMesa\n           if empty(ascan(aMesasOcup,contamesas))\n              @ (((i+.1) * 70) - 70), ((j * 76) - 60) BTNBMP MoBtn[contamesas] resource \"FOOD2\",\"YES\" TOP SIZE 60, 60 OF oWndc noborder\n           else\n              @ (((i+.1) * 70) - 70), ((j * 76) - 60) BTNBMP MoBtn[contamesas] resource \"FOOD1\",\"YES\" TOP SIZE 60, 60 OF oWndc  \n           endif\n           MoBtn[contamesas]:settext(\"Mesa: \"+alltrim(str(contamesas)))\n        else\n           exit\n        endif\n    next\nnext\n\nif emp_cors\n   IF ! FILE(ALLTRIM(emp_plan))\n      cfupla:=SI1+\"sgs.jpg\"\n   ELSE\n      cfupla:=emp_plan\n   ENDIF\n   coImg := TImage():Define( , cfupla ) \n   oWndc:bPainted := {|hDC| PalBmpDraw( hDC, 0, 0,coImg:hBitmap,, oWndc:nWidth, oWndc:nHeight, , .T.) } \nendif\n\ndefine timer otimesa of owndc interval 10000 action(VERSITUAMESAS(nMaxMesa,cmod,Mobtn))\notimesa:activate()\nACTIVATE WINDOW oWndc MAXIMIZED on init(TScrWnd():New( oWndc, 1, nMaxMesa, 1, 70 ));\n                                   valid(otimesa:deactivate(),oWndc:=NIL,.t.)\n  \n\nreturn !empty(nMesa)\n\n\n\n*******************************************\nFUNCTION VERSITUAMESAS(nMaxMesa,cmod,Mobtn)\n*******************************************\nmobtn[1]:loadbimtap(getresources(),\"LUPA\")\nmobtn[1]:refresh()\nRETURN(.T.)','',0,'','1kbg7pbw',1,0,'',694,0,0),(36640,7954,6,18,0,'200.67.188.236',1187902826,1,0,1,1,1,1,'','Re: OT: HbComm','[quote=&quot;Vikthor&quot;:3l3hzkun]Amigos, donde puedo conseguir esa librería ?[/quote:3l3hzkun]\n\n\njojojo, gracias !!!! , ya la consegui <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3l3hzkun',1,0,'',18,0,0),(36641,7954,6,18,0,'200.67.188.236',1187902892,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:26swga7a]http://www.hotshare.net/file/3888-6994038c93.html[/quote:26swga7a]\n\n\nMuchas gracias , Antonio','',0,'gA==','26swga7a',1,0,'',18,0,0),(36642,7953,6,2,0,'87.218.146.175',1187903116,1,0,1,1,1,1,'','','Que error da ?','',0,'gA==','1njvy9wp',1,0,'',2,0,0),(36643,7955,6,1072,0,'190.82.36.254',1187905535,1,0,1,1,1,0,'','FAvor problemas con Meter','Hola Amigos:\n\nDisculpen mi ignorancia, pero necesito saber como puedo poner una METER mientras abro una base de datos, de tal forma de mostrarle un aviso en pantalla al usuario, mientras se realiza este proceso.\n\nSaludos\nAntonio','',0,'gA==','1x5n5u9f',1,0,'',1072,0,0),(36644,7955,6,41,0,'200.105.194.234',1187907035,1,0,1,1,1,0,'','','Hola,\n\npuedes hacer algo asi\n\nDEFINE DIALOG oDlg .....\n\nREDEFINE METER oMeter......\n\n\nACTIVATE DIALOG oDlg NOWAIT\nopenDB( oMeter, oDlg )\n\n\nFUNCTION openDB( oMeter, oDlg )\n         USE ....\n         // abres la base de datos\n         // actualizar oMeter      \n   \n         oDlg:end()  \n\nRETURN NIL \n\nSolo es una idea, no lo hice antes\n\nsaludos\n\nMarcelo','',0,'gA==','mw4g1t4l',1,0,'',41,0,0),(36645,7924,3,34,0,'68.5.217.82',1187910591,1,0,1,1,1,1,'','Separator','Antonio ...\nThe sample has a vertical doted line ... how is that formed.\n\nAlso, you have a dark, full height, separator but the XP format is a shorter, lighter, line vertically centered.  Is there a fix or setting to attain that capability.','',0,'gA==','169tx4yf',1,0,'',34,0,0),(36646,7956,3,34,0,'68.5.217.82',1187911114,1,0,1,1,1,1,'','Focus issue with printing','I use the tPrinter class for all reports and printouts.  \n\nHere is the setup.  The program has a button to call a function which creates a printed invoice.  The ACTION statement of the button calls the invoice printing function.  The user then gets to choose the printer ( default or select a printer ) and if it is directly printed, or previewed.  Once the selection is made, the invoice is printed ( or previewed ), and then the main invoice screen reappears.\n\nIn a few locations the clients are seeing the following behavior suddenly.  The printer selection window appears, and if they select an alternate printer, which calls the windows printer selection screen, or sometimes when they select the preview, there are some flashes and the print screen(s) lose focus, and the main invoice dialog returns.  There are no icons for the print dialogs on the task bar.\n\nHas anyone seen this type of behavior and developed a process by which the function called by a button must complete before the calling dialog can regain focus ?\n\nThe call is simple:  REDEFINE BUTTON oBtn ACTION PrintInvoice()\n\nYour thoughts and ideas are appreciated !\n\nBTW, this is a new behavior but not related to a newer version of FWH.  The computers are older ( 333 MHz, 256 MB RAM, dot matrix printers, shared ).\n\nTim','',0,'gA==','36imdam5',1,0,'',34,0,0),(36647,7955,6,138,0,'189.141.73.172',1187913057,1,0,1,1,1,1,'','','No es posible hacerlo, por 2 razones basicamente:\n\n1) Un meter requiere de \"callbacks\" es decir, que cada determinado tiempo se ejecute una función que actualice la posicion del meter,  cosa que no es posible realizar mientras se abre una tabla, porque el proceso de apertura (USE) no produce ninguna llamada a nada, al contrario del proceso de indexacion,  que se puede \"interceptar\" para mostrar el grado de avance del mismo.\n\n2) Un meter requiere un valor minimo y un valor maximo ¿ como los vas a establecer ?, si tu valor maximo es el numero de registros de la base de datos, este no lo puedes saber (lastrec() o reccount()) sino hasta que la tabla está abierta, para entonces ya es demasiado tarde, la tabla se abrirá mucho antes de que pudieras establecer los valores de control del meter.\n\nQuiero pensar que tu base de datos es demasiado grande, y tarda mucho tiempo en abrirse (lo cual es logico, hay que copiar todos los registros a la estacion de trabajo) y lo que quieres es mostrar un meter conforme se va realizando la apertura, lo cual no es posible por las razones explicadas anteriromente.\n\nSugerencia, utiliza un MsgWait:\n\nMsgWait (\"Espere un momento\",\"Abriendo tabla\", {|| DBUSEAREA()})','',0,'gA==','2937ie3z',1,0,'',138,0,0),(36648,7957,3,167,0,'207.119.126.13',1187913268,1,0,1,1,1,1,'','sockets','I need to write to a socket and receive data from that socket.\n\nHas anyone out there been successful with this?\n\nI tried to telnet a socket address and was successful.  However, using the FWH sample socket prg\'s I receive a -1 on that same ip / port address.\n\nAny magic required here?','',0,'gA==','2ncb47wk',1,0,'',167,0,0),(36649,7954,6,643,0,'201.147.145.133',1187921828,1,0,1,1,1,0,'','esta es la ulima version de esta libreria ??','[quote=&quot;Vikthor&quot;:11ht5bf8][quote=&quot;Antonio Linares&quot;:11ht5bf8]http://www.hotshare.net/file/3888-6994038c93.html[/quote:11ht5bf8]\n\n\nMuchas gracias , Antonio[/quote:11ht5bf8]\n\nes la ultima vercson del esta libreria\nla cual regresa el hb del puerto que se esta abriendo ??\n\nbueno eso es lo que he visto en algunos ejempos de esa libreria\nsaludos\nMexico','',0,'gA==','11ht5bf8',1,0,'',643,0,0),(36650,7958,3,1110,0,'193.190.122.30',1187937195,1,0,1,1,1,0,'','Web Services','Is it possible to write a web service with service.\n\nI have a fivewin application that have to open a web page\nand transmit information :\nUsername Password Id in a Sql database ...\nThe provider of the web application ask if i could transmit the information with a web service .\n\n\nThanks','',0,'gA==','2ilodx4b',1,0,'',1110,0,0),(36651,7930,3,233,0,'218.208.251.40',1187938042,1,0,1,1,1,0,'','','Thanks for the rec James. I\'d gone through its documentation and it states that some newer Clipper syntax might not be processed correctly which makes me wonder whether it would actually be able to process prgs that makes use of OOP and new extensions that exist in [x]Harbour.','',0,'','o7pv1k27',1,0,'',233,0,0),(36652,7959,3,460,0,'217.37.54.49',1187940050,1,0,1,1,1,0,'','Errsysw','Hi,\n\nWhen i wrote my app using 16bit version of fivewin, i modified errsysw.prg so that it wrote to a diferent filename instead of overwriting error.log  Also i was getting a problem with the errsysw if i had a lot of databases open and i assumed that the variable cErrorlog was getting too big, so i changed the method of writing the file error.log so that it wrote the details in sections (build the details of the error, application write to file, build the details of the dbfs write the file etc)\n\nSince converting to 32bit i occaisionally get a recursive error, which i think means that the errsysw is actually erroring, so i removed my errsysw.\n\nI\'m now going to start to look at this problem and was going to get the latest version of errsysw and make the same changes as i initially made to the latest version and wanted to know if there is a problem if the cErrorLog string got too big?\n\nAlso, has anyone else made a similar change to errorsysw where it writes to a diferent file each time and are willing to show me how they did it, so i can compare code and see if i can improve what i\'m doing?\n\nThanks in advance\n\nPete','',0,'','1g67v0js',1,0,'',460,0,0),(36653,7933,6,23,0,'213.96.85.49',1187940654,1,0,1,1,1,1,'','','Pues no, así obtengo el mismo resultado ... es curioso ¿quizas unos cuantos sysrefresh() antes??','',0,'','2zrtrijw',1,0,'',23,0,0),(36654,7959,3,2,0,'87.218.146.175',1187940731,1,0,1,1,1,1,'','','Peter,\n\n&gt; if there is a problem if the cErrorLog string got too big?\n\nAs we are in 32 bits, cErrorLog can be as big as 4 Gb. You will not have any problems managing strings below that limit.\n\n&gt; it writes to a diferent file each time\n\nYou can use FWH function cTempFile( cPath, cExtension ) --&gt; cUniqueFileName','',0,'','phwcc8jx',1,0,'',2,0,0),(36655,7924,3,2,0,'87.218.146.175',1187941009,1,0,1,1,1,1,'','','Tim,\n\n&gt; The sample has a vertical doted line ... how is that formed. \n\nWindows toolbar draws it\n\n&gt;\nAlso, you have a dark, full height, separator but the XP format is a shorter, lighter, line vertically centered. Is there a fix or setting to attain that capability.\n&gt;\n\nI have shown it running in Vista. In XP it may look different, as it is based on the default used theme.\n\nPlease run samples\\rebars.prg in Vista','',0,'','38nogo3j',1,0,'',2,0,0),(36656,7957,3,2,0,'87.218.146.175',1187941348,1,0,1,1,1,1,'','','Don,\n\nPlease have a look at samples\\sockserv.prg and sockcli.prg','',0,'','397q0zhy',1,0,'',2,0,0),(36657,7956,3,2,0,'87.218.146.175',1187941752,1,0,1,1,1,1,'','','Tim,\n\nYou can disable the calling dialog with oDlg:Disable() and then enable it again with oDlg:Enable() once the process finishes','',0,'','1muhhd98',1,0,'',2,0,0),(36658,7933,6,2,0,'87.218.146.175',1187942019,1,0,1,1,1,1,'','','Angel,\n\nO prueba a deshabilitar la ventana principal tras crearla con oWnd:Disable() (y una llamada a SysRefresh() para que le de tiempo a procesar) y la vuelves a activar despues de haber hecho toda la inicialización con oWnd:Enable(), asi no procesará eventos del usuario','',0,'','2hpuoawn',1,0,'',2,0,0),(36659,7954,6,2,0,'87.218.146.175',1187942104,1,0,1,1,1,1,'','','&gt; es la ultima versión del esta libreria ?\n\nNo se si es la versión más reciente. Habría que localizar a su autor y preguntarle','',0,'','1wfohf6h',1,0,'',2,0,0),(36660,7959,3,460,0,'217.37.54.49',1187945321,1,0,1,1,1,0,'','','Thanks for the quick reply Antonio.\n\nI forgot to ask another question:\n\nIn my modified Errsysw i wanted to write which user got this error message, which in my app is stored as a public variable.  If i want to use the errsysw in another app, i have to remember to declare this variable or have a diferent version of errsysw.  I would rather have one version, so is there a way to check if a public variable exists before trying to write this to the file?\n\nThanks in advance\n\nPete','',0,'','uzd22o90',1,0,'',460,0,0),(36661,7948,7,720,0,'80.36.244.134',1187946416,1,0,1,1,1,0,'','','Antonio,\n\nTengo declarado un indice compuesto en la tabla cuya expresión es:\ncod_art+def_talla+def_color\n\nLa tabla la abro y monto el indice de la siguiente forma:\n\nSELECT 0\nUSE ( CURDIR()+\"\\inventario.dbf\" ) VIA \"DBFCDX\" new\nINDEX ON cod_art+def_talla+def_color TAG cod_art+def_talla+def_color\ninventario-&gt;(OrdSetFocus( \"cod_art+def_talla+def_color\"))\n\nY por último hago la búsqueda así:\n\ninventario-&gt;(DbSeek((articulo+talla_temp+color_temp),.t.))\n\ndonde articulo seria el cod_art, talla_temp es el valor correspondiente a def_talla y el color_temp corresponde a def_color...\n\nPero la búsqueda no es correcta.... Que se me está escapando??\n\n\nSaludos y gracias....\n\nElías Torres.','',0,'','38ndulxr',1,0,'',720,0,0),(36662,7960,7,720,0,'80.36.244.134',1187946735,1,0,1,1,1,0,'','ActiveSync para Windows Vista','Hola a todos, más de uno ya lo sabrá pero para los que no aqui dejo un link para descargar la versión compatible del ActiveSync para el Windows Vista....\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/windowsmobile/devicecenter.mspx\">http://www.microsoft.com/windowsmobile/ ... enter.mspx</a><!-- m -->\n\nYa me lo he bajado y probado, y la verdad que por ahora va muy bien...\n\n\nSaludos.\n\nElías Torres.','',0,'','1ebigkw8',1,0,'',720,0,0),(36663,7959,3,995,0,'81.11.210.78',1187946954,1,0,1,1,1,0,'','','Peter\n\nMe too has changed errsysw.prg \n1) filename : Date + time\n2) User was stored in a GLOBAL EXTERNAL aBediende\n\n[code:wcl26cjz]\n#ifdef FRANKDEMONT\nlocal cErFile \ncErFile &#58;= &quot;ERRORS\\Er&quot; + DTOS&#40;DATE&#40;&#41;&#41; + &quot;&#46;&quot; + CharOnly&#40;&quot;0123456789&quot;,Time&#40;&#41;&#41; + &quot;&#46;log&quot;\n&#46;&#46;&#46;&#46;\n# ifdef FRANKDEMONT\n	cErrorLog += &quot;   Bediende &#58; &quot; + aBediende&#91;1&#93; + CRLF\n# endif\n[/code:wcl26cjz]\n\nFrank','',0,'AIA=','wcl26cjz',1,0,'',995,0,0),(36664,7959,3,2,0,'87.218.146.175',1187947524,1,0,1,1,1,1,'','','Peter,\n\n   varname = \"UserName\"\n\n   MsgInfo( Type( \"varname\" ) )  // you get \"C\" if varname is assigned and \"U\" if it isn\'t','',0,'AIA=','2ibeyutx',1,0,'',2,0,0),(36665,7960,7,2,0,'87.218.146.175',1187947681,1,0,1,1,1,1,'','','Elías,\n\nEn principio no haría falta, ya que Windows Vista lo lleva incluido','',0,'AIA=','nu63stxk',1,0,'',2,0,0),(36666,7948,7,2,0,'87.218.146.175',1187947819,1,0,1,1,1,1,'','','Elías,\n\nLas variables articulo, talla_temp y color_temp tienen que tener la misma longitud que los campos cod_art, def_talla y def_color','',0,'AIA=','138ciabr',1,0,'',2,0,0),(36667,7959,3,460,0,'217.37.54.49',1187950120,1,0,1,1,1,0,'','','If i do a type() on a variable that doesnt exist i get an error - variable does not exist ...\n\nmy errsysw has been modified to include:\n\ncErrorLog += \"Operator: \" + cOperator\n\nso i need to check if the variable cOperator has been declared Publically/Locally before doing this line - is this possible?','',0,'AIA=','3vgyfbtn',1,0,'',460,0,0),(36668,7959,3,2,0,'87.218.146.175',1187950844,1,0,1,1,1,1,'','','Peter,\n\nPlease notice that the name of the variable has to be inside quotes [color=red:1syb5wvr]\"[/color:1syb5wvr]varname[color=red:1syb5wvr]\"[/color:1syb5wvr]\n\nYou can only check for publics or privates as they are the only ones that have an entry in the symbols table. Locals and static don\'t have a symbol name and are not located at the symbols table.','',0,'Ag==','1syb5wvr',1,0,'',2,0,0),(36669,7959,3,460,0,'217.37.54.49',1187951169,1,0,1,1,1,0,'','','My mistake.. Works a treat now!  Thanks Antonio','',0,'Ag==','1ku19skg',1,0,'',460,0,0),(36670,7948,7,720,0,'80.36.244.134',1187951250,1,0,1,1,1,0,'','','Antonio, arreglado, gracias.....\n\nSaludos\n\nElías Torres.','',0,'Ag==','30tb6rsi',1,0,'',720,0,0),(36671,7953,6,694,0,'200.146.117.72',1187953759,1,0,1,1,1,1,'','','Antonio, Bom dia, o erro já esta postado acima e esta ocorrendo nesta linha:\n\nmoBtn[1]:loadbitmap(getresources(),\"LUPA\")  &lt;- erro\nmoBtn[1]:refresh()\n\nApplication\n===========\n   Path and name: C:\\DBF\\sgs.exe (32 bits)\n   Size: 3,464,192 bytes\n   Time from start: 0 hours 0 mins 8 secs \n   Error occurred at: 24/08/2007, 08:05:47\n   Error description: Error BASE/1004  Message not found: TBTNBMP:LOADBITMAP\n\nStack Calls\n===========\n   Called from:  =&gt; TBTNBMP:ERROR(179)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TBTNBMP:MSGNOTFOUND(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LOADBITMAP(167)\n   Called from: mesas.prg =&gt; VERSITUAMESAS(68)\n   Called from: mesas.prg =&gt; (b)SELECIONAMESA(45)\n   Called from: TIMER.PRG =&gt; TIMEREVENT(0)\n   Called from: window.prg =&gt; (b)TWINDOW:TWINDOW(554)\n   Called from: window.prg =&gt; TMDICHILD:TIMER(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3165)\n\n\ngracias Antonio...\n\n\nAoki','',0,'','ldacndxb',1,0,'',694,0,0),(36672,7953,6,694,0,'200.146.117.72',1187954921,1,0,1,1,1,1,'','','Antonio, muito obrigado!\n\nResolvi usando loadbitmaps(\"RECURSO\")\n\nMuito obrigado e Deus te abençoe!\n\nAoki','',0,'','guriczf0',1,0,'',694,0,0),(36673,7961,6,1146,0,'83.40.8.177',1187960246,1,0,1,1,1,0,'','para Antonio - sugerencias','Hola Antonio:\n\nEn primer lugar, felicitaciones por los cambios en la versión de FWH. Ahora todo va mucho más rápido y se nota una mayor robustez en la librería. ¡¡ Excelente !!. Asimismo, he visto tu esfuerzo de documentación que, ciertamente, es una tarea poco grata.\n\nTengo una duda, respecto del RPreview, los cambios son internos. ¿verdad?, porque externamente NO se nota nada, pero si una importantísima mejora de velocidad.\n\nSi me lo permites, me gustaría sugerirte las siguientes incorporaciones que echo en falta:\n\n- La clase TSysteminfo de Patrick Mast. No creo que tengas problemas para incorporarla.\n- Una clase para crear archivos pdf.\n- Mejoras en RPreview. En particular, una exportación a PDF y a formatos de imágenes, incluyendo la posibidad de enviar por emal (llamar al cliente de correo electrónico del usuario).\n\nEl EasyPreview de Timm, del que soy usuario registrado, NO exporta a PDF, que es lo que los usuarios finales piden, va muy lento y su razón de uso era para solventar en 16 bits los problemas de impresión con impresoras de 32 bits que, como recordarás, daba error. En 32 bits ya no resulta útil, pues no aporta nada nuevo y sí problemas, no incluye el código fuente y no puedes personalizar los menús.\n\n\nMuchas gracias. Un saludo,\n\nMoisés','',0,'','3fe3lanr',1,0,'',1146,0,0),(36674,7931,4,68,0,'58.173.216.96',1187963029,1,0,1,1,1,1,'','','On my Dell PDA I use the \'switcher bar\' to force a failed program to exit: menu-settings-system-switcher bar option. Useful for testing and removing programs no longer required.\n\nhth','',0,'','7vtvme39',1,0,'',68,0,0),(36675,7962,6,694,0,'200.146.117.72',1187965418,1,0,1,1,1,1,'','Como usar say na WND transparent ?','Antonio, desculpe te incomodar de novo. Como posso fazer o say abaixo ficar transparent? o group esta ok, mais o say não fica!\n\ndefine window oWndc from 0, 0 TO 25, 70 ; \ntitle \"Controle de Mesas\" MDICHILD OF oWnd vscroll icon oico COLOR EMP_MCOR,EMP_MCOR NOICONIZE\noWndc:maximize()\n\noGr:=TGroup():New( 00.7, 02, 04.8, nugro, \"Consulta e Manutenção de Mesas:\", oWndc, NIL, NIL, .F. , .F. , NIL )\n\n@ 01.8,04 say \"Mesa:\" OF oWndc font fonte_ME SIZE 70,24 \n\n\n\nDesde já te agradeço \n\nAoki','',0,'','21qw4umm',1,0,'',694,0,0),(36676,7931,4,3,0,'80.81.159.19',1187966494,1,0,1,1,1,1,'','','Antonio\n\nThis is not working all the time, sometimes the pocket pc has to be reset to remove the program from memory\n\nIs there a way to change the error handling for fwppc to automatically terminate the process even if gpf ? \n\nsomething like TerminateProcess( GetModuleHandle( 0 ), 0 )  ???\n\nThat could be very handy\n\nHth\n\nRichard','',0,'','2pgw0w0a',1,0,'',3,0,0),(36677,7963,7,1030,0,'200.115.251.247',1187967541,1,0,1,1,1,0,'','Problemas con las bases','Hola a todos!\nActualice el FWPPC y estoy teniendo problemas cuando uso las bases como objetos, les copio un ejemplo de como funciona y como no:\n\n[b:2bx37s71][u:2bx37s71]Asi funciona:[/u:2bx37s71][/b:2bx37s71]\n\n[code:2bx37s71]Local oDbfTem\n\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; NEW ALIAS TEMPORAL\nDATABASE oDbfTem\noDbfTem&#58;bEoF&#58;=nil\noDbfTem&#58;GoTop&#40;&#41;\n\n         REDEFINE LISTBOX oLbx;\n            FIELDS TEMPORAL-&gt;DESCRIP,TRAN&#40;TEMPORAL-&gt;EXISTENCIA,&quot;#########&#46;##&quot;&#41;,;\n                   TRAN&#40;TEMPORAL-&gt;CONTADO,&quot;#########&#46;##&quot;&#41;,;\n                   TRAN&#40;TEMPORAL-&gt;DIFER,&quot;#########&#46;##&quot;&#41;,TEMPORAL-&gt;CODIGO;\n            SIZES 120,65,65,65,60;\n            HEADERS &quot;Desc&quot;,&quot;Exist&quot;,&quot;Cont&quot;,&quot;Difer&quot;,&quot;Cod&quot;;\n            ID 1000 OF oDlg1;\n            ON DBLCLICK ModExi&#40;oDlg1&#41;[/code:2bx37s71]\n\n[b:2bx37s71][u:2bx37s71]Asi funcionaba con la version anterior de FWPPC, pero la actualice porque no funcionaba el \"SHARED\":[/u:2bx37s71][/b:2bx37s71]\n\n[code:2bx37s71]Local oDbfTem\n\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; NEW\nDATABASE oDbfTem\noDbfTem&#58;bEoF&#58;=nil\noDbfTem&#58;GoTop&#40;&#41;\n\n         REDEFINE LISTBOX oLbx;\n            FIELDS oDbfTem&#58;DESCRIP,TRAN&#40;oDbfTem&#58;EXISTENCIA,&quot;#########&#46;##&quot;&#41;,;\n                   TRAN&#40;oDbfTem&#58;CONTADO,&quot;#########&#46;##&quot;&#41;,;\n                   TRAN&#40;oDbfTem&#58;DIFER,&quot;#########&#46;##&quot;&#41;,oDbfTem&#58;CODIGO;\n            SIZES 120,65,65,65,60;\n            HEADERS &quot;Desc&quot;,&quot;Exist&quot;,&quot;Cont&quot;,&quot;Difer&quot;,&quot;Cod&quot;;\n            ID 1000 OF oDlg1;\n            ON DBLCLICK ModExi&#40;oDlg1&#41;[/code:2bx37s71]\n\n[b:2bx37s71][u:2bx37s71]Al querer usar la segunda version tira el siguiente error en tiempo de corrida:[/u:2bx37s71][/b:2bx37s71]\n\n[color=red:2bx37s71]Argument error\nconditional\n   Args:\n     [   1] = U[/color:2bx37s71]\n\nstack calls:\nTDATABASE:EXISTENCIA(0)\n(b)ARTICULO2(182)\nTWBROWSE:DEFAULT(0)\n(b)TWBROWSE(0)\nTWBROWSE:INITIATE(0)\n__OBJSENDMSG(0)\nOSEND(0)\nASEND(0)\nTDIALOG:INITIATE(0)\nTDIALOG:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nARTICULO2(258)\nVALCHECK(152)\n(b)ARTICULO(115)\nTBTNBMP:CLICK(0)\nTBTNBMP:LBUTTONUP(0)\nTWINDOW:HANDLEEVENT(0)\nTBTNBMP:HANDLEEVENT(0)\n_FWPPC(0)\nDIALOGBOX(0)\nTDIALOG:ACTIVATE(0)\nARTICULO(121)\n(b)CONTROL(66)\nTBTNBMP:CLICK(0)\nTBTNBMP:LBUTTONUP(0)\nTWINDOW:HANDLEEVENT(0)\nTBTNBMP:HANDLEEVENT(0)\n_FWPPC(0)\nWINRUN(0)\nTWINDOW:ACTIVATE(0)\nMAIN(48 )\n\n[i:2bx37s71]El error lo genera siempre que quiero usar una Base de datos como objeto, en cualquier caso, y cuando uso una base de las del servidor tambien lo genera.[/i:2bx37s71]\n\nGracias a todos!!\n\nNatalia.','',0,'Y4A=','2bx37s71',1,0,'',1030,0,0),(36678,7964,6,694,0,'200.146.117.72',1187968068,1,0,1,1,1,1,'','get WINDOW xp themed ?','Antonio, eu uso XP e tenho um get em uma WINDOW, ao executar esta window ele vem sem XP THEMED, porém ao passar o mouse por cima do get ele assume XP THEMED. Como resolver isso?\n\nGrato\n\nAoki','',0,'Y4A=','dwfq63v8',1,0,'',694,0,0),(36679,7963,7,1030,0,'200.115.251.247',1187969299,1,0,1,1,1,0,'','','[u:14wfvg74][i:14wfvg74]Antonio:[/i:14wfvg74][/u:14wfvg74]\nExiste alguna nueva actualización posterior a la de Julio/2007?\n\nSaludos y gracias,\nNatalia.','',0,'IQ==','14wfvg74',1,0,'',1030,0,0),(36680,7958,3,138,0,'189.141.73.172',1187972044,1,0,1,1,1,1,'','','Jack:\n\nYou can use xHarbour\'s TURL() class, it can send information to a webpage (in URL encoded format) and retrieve the html with the answer and save into a TXT file.','',0,'IQ==','2f5q729d',1,0,'',138,0,0),(36681,7930,3,303,0,'72.199.41.171',1187972877,1,0,1,1,1,0,'','','Hua,\n\nThe newer Clipper sntax that it doesn\'t handle are codeblocks and multiple commands on the same line--probably stuff that is not too important.\n\nYou can also add new syntax in a file called personal.key--check the docs for more info.\n\nGranted it is not perfect, but it is still useful, and certainly better than nothing.\n\nJames','',0,'IQ==','xfwq63xg',1,0,'',303,0,0),(36682,7924,3,34,0,'68.5.217.82',1187973616,1,0,1,1,1,1,'','Vista','All of my programming is done on a Vista machine and that is what I\'m talking about.  The separator line of rebars.prg is a dark black, full length vertical line in Vista ... but if I look at other Windows programs ( ie. Outlook ) that have separators, its is a partial vertical line in the theme color.\n\nTim','',0,'IQ==','2ftfffau',1,0,'',34,0,0),(36683,7959,3,303,0,'72.199.41.171',1187973689,1,0,1,1,1,0,'','','Peter,\n\nA better way to store user info is to put in into a function as a static var. Here is an example:\n\n// Set/Get function example\nstatic function getOption(nNewOption)\n   local nReply\n   static nOldOption:=1\n   nReply:= nOldOption\n   if nNewOption != nil\n      nOldOption:= nNewOption\n   endif\nreturn nReply\n\nYou could just change the fucntion name to user().\n\nBetter yet is to create a user class and then store the oUser object in the user function. You can create a user class with DATA such as user name, password, rights, etc. Also, you could add methods for load(), save(), and edit(), so you can create a user object and save and restore it.\n\nThen you can do this:\n\noUser:= TUser():new()\n\noUser:edit()\noUser:save()\n\nuser( oUser )\n\nmsgInfo( user():name )\n\nmsgInfo( user():rights )\n\netc...\n\nYou could also modify the set/get user() function to automatically return a new blank oUser if a user object was not passed and there isn\'t one already stored as a static.\n\nRegards,\nJames','',0,'IQ==','30vpyfai',1,0,'',303,0,0),(36684,7924,3,2,0,'87.218.146.175',1187973971,1,0,1,1,1,1,'','','Tim,\n\nFWH uses standard Windows controls. Outlook, as many other products from Microsoft, use controls that are non standard and whose APIs are not publically available','',0,'IQ==','lz2jjzlu',1,0,'',2,0,0),(36685,7924,3,303,0,'72.199.41.171',1187974135,1,0,1,1,1,0,'','','Tim,\n\n&gt;but if I look at other Windows programs ( ie. Outlook ) that have separators,\n\nMost of the MS Office apps (if not all) do not use the standard Windows toolbars. I think MS intentionally limits the standard to make it more difficult for programmers to make products that look similar Office products.\n\nJames','',0,'IQ==','3cjvvcob',1,0,'',303,0,0),(36686,7924,3,303,0,'72.199.41.171',1187974365,1,0,1,1,1,0,'','','Sorry to be redundant, I see Antonio beat me with the answer.\n\nJames','',0,'IQ==','3u0dflsp',1,0,'',303,0,0),(36687,7924,3,34,0,'68.5.217.82',1187974531,1,0,1,1,1,1,'','Separator','Sorry, but almost all of my non-microsoft programs work the same way ... shorter, less bold, vertical line as a separator.','',0,'IQ==','z9a937ie',1,0,'',34,0,0),(36688,7963,7,2,0,'87.218.146.175',1187975404,1,0,1,1,1,1,'','','Natalia,\n\nVuelve a descargar FWPPC. Hay un nuevo build con el que debería funcionar bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'IQ==','3p1b5k5g',1,0,'',2,0,0),(36689,7961,6,2,0,'87.218.146.175',1187975639,1,0,1,1,1,1,'','','Moises,\n\nGracias por tus sugerencias.\n\nSi, el preview ha mejorado mucho en velocidad. Me alegra que lo hayas notado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi, queremos añadirle soporte para PDF pero necesitamos localizar una librería que sea libre y que nos permita crear PDFs. En cuanto a la clase TSystemInfo podemos hablar con Patrick e incluirla.','',0,'IQ==','13hmr5ym',1,0,'',2,0,0),(36690,7964,6,2,0,'87.218.146.175',1187975761,1,0,1,1,1,1,'','','Aoki,\n\nHas incluido esta línea en tu RC ?\n\n   1 24 \"WindowsXP.Manifest\" \n\nEl fichero WindowsXP.Manifest está en samples\\winxp','',0,'IQ==','203hgyr4',1,0,'',2,0,0),(36691,7924,3,2,0,'87.218.146.175',1187975848,1,0,1,1,1,1,'','','Tim,\n\nWe use the standard Windows one. Maybe those applications are painting the separator instead of using the built-in one','',0,'IQ==','2d77pthp',1,0,'',2,0,0),(36692,7962,6,2,0,'87.218.146.175',1187976926,1,0,1,1,1,1,'','','Aoki,\n\nHazlo asi:\n\n@ 01.8,04 SAY oSay PROMPT \"Mesa:\" OF oWndc font fonte_ME SIZE 70,24 \noSay:lTransparent = .T.','',0,'IQ==','3nn70ufe',1,0,'',2,0,0),(36693,7931,4,2,0,'87.218.146.175',1187977469,1,0,1,1,1,1,'','','Richard,\n\nOk, we have included a call to TerminateProcess() if there is a GPF. Thanks,\n\nThere is a new FWPPC build to download.','',0,'IQ==','27b3rni1',1,0,'',2,0,0),(36694,7964,6,694,0,'200.146.117.11',1187977675,1,0,1,1,1,1,'','','Sim Antonio, eu adicionei o XPLOOK.RC ao meu projeto, tanto que o resto da minha aplicação o XP THEMED esta OK!\n\nXPLOOK.RC:\n\n// Add this to your resources RC file\n\n#ifdef __FLAT__\n   1 24 \"c:\\fwh71\\include\\WindowsXP.Manifest\"\n#endif\n\n#ifdef __64__\n   1 24 \"WinXP/WindowsXP.Manifest64\"\n#endif \n\n\nAoki','',0,'IQ==','1mevodzv',1,0,'',694,0,0),(36695,7962,6,694,0,'200.146.117.11',1187977734,1,0,1,1,1,1,'','','Muito obrigado Antonio... Muito obrigado!\n\n\nAoki','',0,'IQ==','1i0ob7py',1,0,'',694,0,0),(36696,7964,6,2,0,'87.218.146.175',1187977751,1,0,1,1,1,1,'','','Aoki,\n\nPuedes capturar una imagen de como se ve tu ventana y mostrarla aqui ? gracias','',0,'IQ==','1jijgtfb',1,0,'',2,0,0),(36697,4513,6,319,0,'201.81.252.20',1187977806,1,0,1,1,1,0,'','','oBtnBmp2:SetText(\"RO\")','',0,'IQ==','d8fo7v19',1,0,'',319,0,0),(36698,7956,3,34,0,'68.5.217.82',1187978450,1,0,1,1,1,1,'','Focus','I have managed to get some of this under control.  Using the command:\n\nDEFINE BUTTON abc OF oDlg ACTION ( PrintInvoice( ), oDlg:setfocus( ) ) \n\nwill bring the dialog back into focus instead of having the focus go elsewhere to another active dialog.  HOWEVER, if I do a preview ( rpreview ), I find that the preview activates another window ( correct behavior ), but once that window is painted, rpreview passes control back to the calling program which then sets the calling dialog in focus, leaving the print window open in the background.\n\nYou use a stop in rpreview, but the VALID clause automatically sets the value to .t. so the stop doesn\'t work.  The desired behavior is to not return to the calling dialog until the preview window is closed.\n\nThoughts on this ?\n\nTim','',0,'IQ==','11fmq10g',1,0,'',34,0,0),(36699,7964,6,694,0,'200.146.117.11',1187978520,1,0,1,1,1,1,'','','Antonio: \n\nAntes de passar o mouse:\n<!-- m --><a class=\"postlink\" href=\"http://img236.imageshack.us/img236/9161/imagem1mw1.jpg\">http://img236.imageshack.us/img236/9161/imagem1mw1.jpg</a><!-- m -->\n\n\nDepois de passar o mouse:\n<!-- m --><a class=\"postlink\" href=\"http://img236.imageshack.us/img236/2209/imagem2yk0.jpg\">http://img236.imageshack.us/img236/2209/imagem2yk0.jpg</a><!-- m -->\n\n\nFONTE:\nDefine Font fonte_ME Name \'Times New Roman\' Size -0,24 BOLD\n\ndefine window oWndc from 0, 0 TO 25, 70 ; \ntitle \"Controle de Mesas\" MDICHILD OF oWnd vscroll icon oico COLOR EMP_MCOR,EMP_MCOR NOICONIZE\noWndc:maximize()\n\noGr:=TGroup():New( 00.7, 01, 04.8, nugro, \"Consulta e Manutenção de Mesas:\", oWndc, NIL, NIL, .F. , .F. , NIL )\n\n@ 00.9,02 trsay \"Mesa:\" OF oWndc COLOR CLR_BLACK FONT fonte_ME SIZE 60,24\n\n@ 02.3,11 get obtm VAR nmesa  OF oWndc picture \"999999\" font fonte_ME RIGHT SIZE 90,28 SPINNER MIN 0 MAX nMaxMesa \n\nACTIVATE WINDOW oWndc MAXIMIZED \n \n\n\nGrato Antonio\n\nAoki','',0,'IQ==','3dqkls97',1,0,'',694,0,0),(36700,7924,3,303,0,'72.199.41.171',1187978816,1,0,1,1,1,0,'','','Tim,\n\nOutlook Express and fwh\\samples\\toolbar3.prg\'s separators look the same on my PC under XP.\n\nNote that the separator can be modified by the theme, so it may look different running on the same OS with different themes. However, I don\'t know why FWH apps wouldn\'t show the same separator for the current theme.\n\nJames','',0,'IQ==','23fvoxl1',1,0,'',303,0,0),(36701,4513,6,2,0,'87.218.146.175',1187979358,1,0,1,1,1,1,'','','Francisco,\n\nPuedes indicar su texto en el recurso, igual que si fuese un botón estandard','',0,'IQ==','2q9haznt',1,0,'',2,0,0),(36702,7956,3,2,0,'87.218.146.175',1187979645,1,0,1,1,1,1,'','','Tim,\n\nYou can set the preview to behave MODAL:\n\nPRINT oPrn PREVIEW MODAL\n...\nENDPRINT','',0,'IQ==','3mq7jjvp',1,0,'',2,0,0),(36703,7964,6,2,0,'87.218.146.175',1187979989,1,0,1,1,1,1,'','','Aoki,\n\nLo que quieres es que se vea SIN tema ? ó CON tema ?','',0,'IQ==','3uiju5j7',1,0,'',2,0,0),(36704,7963,7,1030,0,'200.115.251.247',1187980424,1,0,1,1,1,0,'','','Gracias Antonio lo voy a probar!!\n\nSaludos. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'IQ==','1k8hjorp',1,0,'',1030,0,0),(36705,7941,6,110,0,'190.184.22.56',1187984280,1,0,1,1,1,1,'','','Podria ser un problema de opcodes diferentes \n\nel ejemplo que muestras es muy simple por lo que no hay probabilidad de fallos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\npor lo que solamente queda esa posibilidad.\n\nsalu2\ncarlos vargas','',0,'IQ==','1108gbsa',1,0,'',110,0,0),(36706,7717,6,316,0,'87.218.186.222',1187984446,1,0,0,1,1,0,'','','Perdona Antonio que insista, pero no se ha resuelto con quitar el buffer de pintado. Es de destacar que ocurre cuando las ventanas superpuestas son de otra aplicación. Siendo de la misma no hay problemas. Alguna pista?','',0,'IQ==','30vi8k7g',1,0,'',316,0,0),(36707,7956,3,34,0,'68.5.217.82',1187985172,1,0,1,1,1,1,'','MODAL`','I\'ve got two copies of this program I\'m working on.  The new one is with the current FWH and xHarbour, and the other, which I use for release purposes, is with the January releases.\n\nThe current one I set to MODAL ... forgot to do it on the older one which is the one I test/distribute.\n\nI\'ll give that a try.','',0,'IQ==','q8ljkhj3',1,0,'',34,0,0),(36708,7717,6,2,0,'87.218.146.175',1187985212,1,0,1,1,1,1,'','','Carlos,\n\nQue versión de FWH estás usando ?\n\n&gt;\n¿Que se supone que debe hacer una window/control al recibir el método ERASEBKGND, o mejor dicho, que parte del pintado pongo en uno u otro lugar? Es que estoy haciendo unos botones con el fondo degradado (el background, se supone), un texto y eventualmente un icono ( los datos del boton propiamente dicho ). Hay algún criterio para separar el pintado entre los dos mensajes? \n&gt;\n\nLo ideal es no hacer nada en EraseBkGnd() (solo devolver 0) y hacer todo el proceso de pintado desde el método Paint(). Asi se evitan los \"parpadeos\"','',0,'IQ==','2r33a09x',1,0,'',2,0,0),(36709,7965,3,620,0,'209.189.229.150',1187985670,1,0,1,1,1,0,'','Listbox Colors','Is it possible to make individual rows of a Listbox different colors dependent on the data for that row???\n\nThanks,\nG','',0,'IQ==','x8ulguuu',1,0,'',620,0,0),(36710,7965,3,2,0,'87.218.146.175',1187986495,1,0,1,1,1,1,'','','Greg,\n\nI assume you mean a browse:\n\noBrw:nClrPane := { || If( OrdKeyNo() % 2 == 0, RGB( 230, 230, 230), RGB( 190, 215, 190 ) ) }','',0,'IQ==','2qfnaf5q',1,0,'',2,0,0),(36711,7964,6,694,0,'200.146.117.11',1187986706,1,0,1,1,1,1,'','','Antonio, assim como toda a minha aplicação se for XP = COM TEMA!\n\n\nOU SEJA: COM TEMA\n\nE o get só assume o TEMA se passar o mouse por cima do get!\n\n\nGracias\n\nAoki','',0,'IQ==','3l743arz',1,0,'',694,0,0),(36712,7964,6,2,0,'87.218.146.175',1187986940,1,0,1,1,1,1,'','','Aoki,\n\nQuieres decir que el get pierde el tema al pasar el ratón por encima de él ?','',0,'IQ==','3jz0w8pt',1,0,'',2,0,0),(36713,7966,2,518,0,'189.170.73.28',1187995933,1,0,1,1,1,0,'','WINDOWS VISTA','HOLA,\n\nHAY ALGUN PROBLEMA CON FW CLIPEPR 16 BITS PARA CORRER EN UNA MAQUINA CON WINDOWS VISTA BUSSINES ??? TANTO COMO PROGRAMA DESROLLADO COMO PARA DESAROLLAR ?\n\nGRACIAS','',0,'IQ==','2zuw5b44',1,0,'',518,0,0),(36714,7967,6,439,0,'200.125.50.5',1187996261,1,0,1,1,1,1,'','Suprimir total de un grupo en treport','Amigos, la verdad que no he encontrado la vuelta... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nTengo un reporte con 2 grupos anidados, está agrupado por cliente y dentro de cliente por monedas (dólares, euros, etc)\n\nNecesito que totalice un grupo pero no el otro.\n\nEs decir que me de los totales por moneda pero no un total por cliente ya que este total mezclaría las monedas.\n\nComo puedo hacerlo con la clase treport?\n\nPude sacar los totales por página y gran total, pero no he dado con la solución a eliminar solo el total de uno de los grupos.\n\nCualquier ayuda será agradecida ampliamente <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .','',0,'IQ==','2uy9xn0s',1,0,'',439,0,0),(36715,7966,2,2,0,'87.218.146.175',1187996609,1,0,1,1,1,1,'','','Ningún problema, siempre y cuando sea Vista 32 bits. \n\nEn Vista 64 bits las aplicaciones de 16 bits no funcionan.','',0,'IQ==','3owv55cm',1,0,'',2,0,0),(36716,7967,6,439,0,'200.125.50.5',1187997339,1,0,1,1,1,1,'','','Ya me lo contesto (o mejor dicho pongo la respuesta de mi buen amigo Kleyber Derick)\n\n[b:bu1cf1jb]Colocando el titulo del footer como \"\"[/b:bu1cf1jb]\n\nGROUP ON XXX-&gt;XXX ;\n	HEADER \"XXXXX: \" \n	FOOTER \"\"  \n\n\nY para quienes como yo estén analizando como suprimir totales en un Reporte agrego:\n\nTotal general (Gran total de última página)\n\nACTIVATE REPORT oReport\n	......\n	[b:bu1cf1jb]ON END oReport:lTotal:=.f.[/b:bu1cf1jb]\nTotal por pagina:\n\nACTIVATE REPORT oReport\n	......\n	[b:bu1cf1jb]ON ENDPAGE oReport:lPageTotal:=.f.[/b:bu1cf1jb]\nGracias a todos, y especialmente... Gracias amigo Keyber.','',0,'QA==','bu1cf1jb',1,0,'',439,0,0),(36717,7968,2,66,0,'200.127.71.167',1188001900,1,0,1,0,1,0,'','Ayuda Tdosprn  en red XP Nuevamente','Estimados Colegas\n\nTengo problemas con el uso de tdospn en red XP\nhe probado de todas las formas posibles ,\n\n******************************************************************\noPrn := TDosPrn():New(\"\\\\facturacion\\lx300\")\nfunciona a medias osea le mando impresion cuando cierro la\naplicacion me imprime, si le pongo al final del prg de impresion\noprn:end() me da error de array\n*******************************************************************\n\n**********************************************************\noPrn := TDosPrn():New(\"LPT1\")\nnet use LPT1 \\\\servidor\\nombre_de_impresora_compartida\nCuando quiero imprimir me sale el mensaje de tdosprn que\nla impresora no esta en linea es como si quisiera tomar el puerto\nlocal y no el que le puse autoexec.nt\n************************************************************\n\nSi Alguien me puede orientar que estoy haciendo mal o tiene la\nclase modificada para que funcione en red\n\nDesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'QA==','1gsfomxt',1,0,'',66,0,0),(36718,7966,2,518,0,'189.171.48.187',1188002234,1,0,1,1,1,0,'','','Gracias Antonio\n\nRene','',0,'QA==','3r93yqet',1,0,'',518,0,0),(36719,7969,2,518,0,'189.171.48.187',1188002587,1,0,1,1,1,0,'','Curos de capacitacion XHB y FWH en Sonora, Mexico','Hola,\n\nEstoy tratando de juntar un grupo para ver la posibilidad de ofrecer un curso de xharbour y fWH en sonora.\n\nSi estas en el estado y interesaria tomar esta capacitaciòn escribeme a \n\n<!-- e --><a href=\"mailto:renemontano@hotmail.com\">renemontano@hotmail.com</a><!-- e -->\n\nSaludos','',0,'QA==','1fkyrruq',1,0,'',518,0,0),(36720,7970,6,518,0,'189.171.48.187',1188002633,1,0,1,1,1,0,'','curso de xharbour y fWH en sonora.','Hola,\n\nEstoy tratando de juntar un grupo para ver la posibilidad de ofrecer un curso de xharbour y fWH en sonora.\n\nSi estas en el estado y interesaria tomar esta capacitaciòn escribeme a \n\n<!-- e --><a href=\"mailto:renemontano@hotmail.com\">renemontano@hotmail.com</a><!-- e -->\n\nSaludos','',0,'QA==','1mhq9wdc',1,0,'',518,0,0),(36721,7717,6,316,0,'87.218.187.14',1188029347,1,0,1,1,1,0,'','','Antonio,\n\nUso FWH 707.\n\nRespecto del WM_ERASEBKGND, efectivamente es como tu dices. Le estaba buscando la vuelta por ahí, a ver si podía llegar a ser eso, pero no, he cambiado a INLINE 0, INLINE 1 y INLINE NIL, pero no hay caso, sigue fallando el pintado cuando la ventana no es la ventana activa.\n\n¿Se te ocurre algo por donde buscarle? El error es evidente en el msgitem de msgbar, por hablar de un control sencillo. El sample de toutlook te puede servir como banco de pruebas.\n\nPerdona que insista, pero tengo casi terminado unos controles como los de office pero tienen ese problema y preferiría resolver esa cuestión antes de usarlos.\n\n[url=http&#58;//imageshack&#46;us:2zacx7ri][img:2zacx7ri]http&#58;//img182&#46;imageshack&#46;us/img182/4200/outlook2vm0&#46;jpg[/img:2zacx7ri][/url:2zacx7ri]\n\nLa imagen es una versión del demo de FSDI de José Luis Sanchez usando un Outlook2. Tengo con ella el problema de pintado, por eso la insistencia.\n\nUn saludo,\n\nCarlos.','',0,'GA==','2zacx7ri',1,0,'',316,0,0),(36722,7717,6,2,0,'87.218.146.175',1188029740,1,0,1,1,1,1,'','','Carlos,\n\nPuedes enviarme algún ejemplo, con fuentes, para que lo probemos aqui ? gracias','',0,'GA==','1u0h4e6p',1,0,'',2,0,0),(36723,7717,6,316,0,'87.218.187.14',1188034923,1,0,1,1,1,0,'','','Usa el ejemplo de toutlook de Fivewin del directorio samples, creo que eso demuestra el comportamiento del que hablamos en el msgbar.\n\n[url=http&#58;//imageshack&#46;us:3k71rc4o][img:3k71rc4o]http&#58;//img204&#46;imageshack&#46;us/img204/8682/outlookzo2&#46;png[/img:3k71rc4o][/url:3k71rc4o]','',0,'GA==','3k71rc4o',1,1188116764,'',316,1,0),(36724,7717,6,2,0,'87.218.146.194',1188036383,1,0,1,1,1,1,'','','Carlos,\n\nEstamos probando samples\\TestOutL.prg y pasando la calculadora de Windows por encima y se ve bien:\n[url=http&#58;//imageshack&#46;us:lkfqjotq][img:lkfqjotq]http&#58;//img502&#46;imageshack&#46;us/img502/4651/outlookas7&#46;png[/img:lkfqjotq][/url:lkfqjotq]','',0,'GA==','lkfqjotq',1,0,'',2,0,0),(36725,7717,6,316,0,'87.218.187.14',1188037651,1,0,0,1,1,0,'','','pásala por la barra de mensajes, no por el outlook. Acabo de probarlo y puedo reproducir el error. Alguna direccion donde enviarte el exe?\n\nAcabo de notar una diferencia: no tienes activado los temas de XP? En mi ejemplo los botones se dibujan con los temas.','',0,'GA==','2wmzknyn',1,0,'',316,0,0),(36726,7717,6,519,0,'88.14.202.161',1188040394,1,0,1,1,1,0,'','','Hola Carlos\n\n   Muy bonita la barra izquierda , podrias poner el codigo de comoo la has creado   ?\n\n\n   un saludo','',0,'GA==','3muv198h',1,0,'',519,0,0),(36727,7964,6,694,0,'200.146.117.11',1188040524,1,0,1,1,1,1,'','','Antonio,\n\nQuieres decir que el get pierde el tema al pasar el ratón por encima de él ?\nNão!!!  \n\nNa verdade ele ganha el tema al pasar el ratón por encima do get','',0,'GA==','6h9yscbm',1,0,'',694,0,0),(36728,7971,6,694,0,'200.146.117.11',1188045423,1,0,1,1,1,1,'','Como descobrir o numero do objeto? (resolvido)','Local MoBtn[100]\nnmaxmesa :=100\ncontamesas:=0\nfor i := 1 to nMaxMesa\n    for j := 1 to nucol\n        contamesas++\n        if contamesas&lt;=nMaxMesa\n              @ 10,20 BTNBMP MoBtn[contamesas] resource \"YES\"  TOP\n                           SIZE  60, 64 OF oWndc action(qualmesa(mesa))\n        else\n             exit\n        endif\n    next\nnext\n\nAntonio sobre o código acima - no Action como eu pego o numero do obj referente?\nAlgo como  mobtn:nat ????\n\n\nGrato\n\nAoki','',0,'','k2aopxsv',1,0,'',694,0,0),(36729,7971,6,694,0,'200.146.117.11',1188049230,1,0,1,1,1,1,'','','resolvido link:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10168\">http://www.fivewin.com.br/forum/topic.a ... C_ID=10168</a><!-- m -->','',0,'','1rp55q1l',1,0,'',694,0,0),(36730,7965,3,620,0,'65.245.57.110',1188065123,1,0,1,1,1,0,'','','perfect...thanks!  (how come I could not find \"nclrpane\" in the documentation for WBrowse??)\nG','',0,'','3ija6m3e',1,0,'',620,0,0),(36731,7965,3,620,0,'65.245.57.110',1188065779,1,0,1,1,1,0,'','however....new one','Here\'s another problem I need to figure out...\n\nHow can I do nclrpane evaluating on different fields?  i.e.  I want to highlight in red for lcust = .t. and blue for  cSales = \"B\" etc.   In essence evaluating as if it were a DO CASE?\n\nI might also be able to change text color in addition to background....is that nclrtext?\n\nThanks in advance....when you are a \"weekend warrior\" programmer, things get very rusty very quickly!','',0,'','1i288qs5',1,0,'',620,0,0),(36732,7965,3,620,0,'65.245.57.110',1188068184,1,0,1,1,1,0,'','Treport also...','Should have just included this with previous post, but I need to do similar on my reports.... I would like to change the font, text color, or background on one row of the report based on the data....\nThanks!\nG','',0,'','1chujif6',1,0,'',620,0,0),(36733,7972,3,34,0,'68.5.217.82',1188074546,1,0,1,1,1,1,'','SMTP loses attachments w/ Vista','I use the tSMTP class modified by Louis Krause through June 2005.  I also use the corresponding tSocket class.\n\nI use it to send emails with 1) and error.log ( text ) file, or 2) a generated PDF.  In both cases, the program passes the path and file name in the array ( aSendFiles ), and the email is sent from this computer and received at the other mail server.  \n\nThe program works fine with Windows XP.\n\nHowever, with Windows Vista, in both cases, the attachments contain no data.  A clean PDF or .log file on this computer arrives as a 85 to 92 byte file when received by the addressee.\n\nHas anyone dealt with a similar issue and found a solution ?  When building the email, I identify the correct file to attach ( displayed via an alert ) and the SMTP file indicates no problems in the log.\n\nI\'m using the latest xHarbour beta and FWH 7.07, on Vista Ultimate.\n\nI did try substituting the actual file transfer code from the 7.07 FWH tSMTP class ( slightly different layout ) but there is no difference in the result.\n\nTim','',0,'','1cwoson4',1,0,'',34,0,0),(36734,7932,3,6,0,'82.57.160.90',1188076027,1,0,1,1,1,1,'','Re: Rescale with freeimage','Just use the ADJUST clause and resize the TImage control using Move() method.\n\nEMG','',0,'','139jl1oq',1,0,'',6,0,0),(36735,7973,6,66,0,'200.127.71.167',1188076940,1,0,1,0,1,0,'','Ayuda Browse con los dias del mes en c / columna','Estimados Colegas\n\nAlguien me  puede orientar de como puedo hacer un browse con todos\nlos dias del mes en cada columna , que cada columna sea un campo\nde una dbf\n\nDesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:databaselab2002@yahoo.com.ar\">databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'','wxei2ryd',1,0,'',66,0,0),(36736,7965,3,2,0,'87.218.146.6',1188081981,1,0,1,1,1,1,'','','Greg,\n\n&gt; how come I could not find \"nclrpane\" in the documentation for WBrowse??\n\nClass TWBrowse inherits from Class TControl which inherits from Class TWindow. Class TWindow implements DATA nClrPane, and its explained for that class. Though the issue of changing colors in a browse rows is a specific browse \"trick\"\n\nIf you use Class TWBrowse, then you can just use one color for an entire row. nClrText is the equivalent for nClrPane, but for the text color, so you can do it the same way.\n\nYou can change the font of the entire browse. Not just for some rows, or columns.','',0,'','2p54dzmn',1,0,'',2,0,0),(36737,7946,6,582,0,'200.117.86.23',1188084077,1,0,1,1,1,0,'','Re: Formatear disquette','karinha: desde ya muchisimas gracias.\nPero ese aporte de Rafa ya lo tenia.\nLo que ando buscando es que desde la misma aplicacion pueda formatear el diskette, no desde el shell.\nNo obstante creo que ya lo estoy por lograr.\n\nUn abrazo. El Loco =&gt;))','',0,'','rvm7xxd9',1,0,'',582,0,0),(36738,7974,4,277,0,'62.13.168.67',1188116289,1,0,1,1,1,0,'','undo gets [newbye]','I\'m not very skilled in fwppc and x/harbour at all.\n\nThe dummy question is:\nIt is a way to restore original values of all get and other\ncontrols of a form?\n\nLurking on TGet class i seen undo method, but i need a \nvariable to call the instance, there are a way to collect\nall gets from parent window?\nAnd how to undo other controls?\n\nIf there are no easy way to do this, the solution as usual\nis to copy data to edit in temporary array but i hope in\nsomething better.\n\nBest Regards\nClaudio Driussi','',0,'','2nsqhqop',1,0,'',277,0,0),(36739,7717,6,316,0,'87.218.187.14',1188117237,1,0,1,1,1,0,'','','Frafive,\n\n¿Como te llamas?\n\nLo que ves es un OutLook2003. Se usa igual que outlook de Fivewin, con algunos pequeños detalles, \n[code:1remojy9]\n #include &quot;outlook&#46;ch&quot;\n// DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -12\noFont = TFont&#40;&#41;&#58;New&#40; GetDefaultFontName&#40;&#41;, 0, GetDefaultFontHeight&#40;&#41;,, &#41;\n\n @ 0, 0 OUTLOOK2 oOut ;\n    SIZE oApp&#40;&#41;&#58;oSplit&#58;nLeft, oPDlg&#58;nHeight&#40;&#41;-oApp&#40;&#41;&#58;oWndMain&#58;oMsgBar&#58;nHeight ;\n    PIXEL ;\n    FONT oFont ;\n    OF oPDlg \n\n DEFINE GROUP OF OUTLOOK oOut PROMPT &quot;Clientes&quot; ;\n      RESOURCE &quot;EBLOCK2&quot;\n\n    DEFINE LABEL OF OUTLOOK oOut ;\n      PROMPT &quot;Primera etiqueta&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;ECUENTAS&quot; ;\n      PROMPT &quot;Outgoing messages&quot; ;\n      ACTION msginfo&#40;&quot;Your code &#46;&#46;&#46;&quot; &#41;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;ESALIR&quot; ;\n      PROMPT &quot;Exit from the application&quot; ;\n      ACTION oApp&#40;&#41;&#58;oDlg&#58;End&#40;&#41;\n\n    DEFINE LABEL OF OUTLOOK oOut ;\n      PROMPT &quot;Segunda etiqueta&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;CONFIG7&quot; ;\n      PROMPT &quot;Third control&quot; ;\n		ACTION ClrMain&#40;&#41;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;EUNIDAD&quot; ;\n      PROMPT &quot;Fourth control&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;EUSUARIO&quot; ;\n      PROMPT &quot;This is the the fifth control&quot;\n\n  DEFINE GROUP OF OUTLOOK oOut PROMPT &quot;Empresa&quot; ;\n      RESOURCE &quot;BTN10A&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;CONFIG3&quot; ;\n      PROMPT &quot;First button on second group bar&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;CONFIG7&quot; ; \n      PROMPT &quot;Second button on second group bar&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;B16USER&quot; ;\n      PROMPT &quot;Third button&quot;\n\n  DEFINE GROUP OF OUTLOOK oOut PROMPT &quot;Agentes&quot; ;\n      RESOURCE &quot;BTN13A&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;EBLOCK3&quot; ;\n      PROMPT &quot;First button&quot;\n\n    DEFINE BITMAP OF OUTLOOK oOut ;\n      RESOURCE &quot;EBLOCK3&quot; ;\n      PROMPT &quot;Second button&quot;\n\n[/code:1remojy9]\n\nEl código de los controles todavía no está completo, falta el splitter que determina cuantos botones del pie están activos y visibles, y el boton/menú de los que están inactivos/invisibles. Además, como ves, estoy revisando el código porque tengo problemas de pintado similares a los de MsgItem/MsgBar.\n\nSi quieres algo similar te recomiendo los de canal five.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','1remojy9',1,0,'',316,0,0),(36740,7974,4,2,0,'87.218.146.6',1188123076,1,0,1,1,1,1,'','','Claudio,\n\n&gt;\nIt is a way to restore original values of all get and other\ncontrols of a form?\n&gt;\n\nTry this:\n[code:1qeoew6n]\nfor n = 1 to Len&#40; oWnd&#58;aControls &#41;\n   if oWnd&#58;aControls&#91; n &#93;&#58;ClassName == &quot;TGET&quot;\n      oWnd&#58;aControls&#91; n &#93;&#58;oGet&#58;Undo&#40;&#41;\n      oWnd&#58;aControls&#91; n &#93;&#58;Refresh&#40;&#41;\n   endif\nnext\n[/code:1qeoew6n]\n&gt; And how to undo other controls?\n\nOnce their initial values have changed there is no way to undo them. It may be  just available for GETs, as they contain a Harbour standard GET (like Clipper) that accepts an UnDo() method.\n\n&gt;\nIf there are no easy way to do this, the solution as usual\nis to copy data to edit in temporary array but i hope in\nsomething better. \n&gt;\n\nYes, that may be the only solution for all controls','',0,'AIA=','1qeoew6n',1,0,'',2,0,0),(36741,7717,6,2,0,'87.218.146.6',1188123878,1,0,1,1,1,1,'','','Carlos,\n\nEn nuestras pruebas aqui, esta funcionando bien, con y sin temas. Necesitamos que nos envies un ejemplo que podamos construir y que reproduzca el error para poder ayudarte, gracias','',0,'AIA=','2ddejw34',1,0,'',2,0,0),(36742,7974,4,277,0,'62.13.168.67',1188125652,1,0,1,1,1,0,'','','Try this:\n[code:2924vh1p]\nfor n = 1 to Len&#40; oWnd&#58;aControls &#41;\n   if oWnd&#58;aControls&#91; n &#93;&#58;ClassName == &quot;TGET&quot;\n      oWnd&#58;aControls&#91; n &#93;&#58;oGet&#58;Undo&#40;&#41;\n      oWnd&#58;aControls&#91; n &#93;&#58;Refresh&#40;&#41;\n   endif\nnext\n[/code:2924vh1p]\n\nvery nice!\n\n&gt; And how to undo other controls?\n\nOnce their initial values have changed there is no way to undo them. It may be  just available for GETs, as they contain a Harbour standard GET (like Clipper) that accepts an UnDo() method.\n\nFor now is enough, but keep in mind which will be useful to have a undo\nmethod for oWin wich recognize the type of control and do the \nrelative undo.\n\nThis mean that the TControl ancestor need a var called Original and so\nyou need to modify the root of class tree, but may be worth for.\n\nMany thanks\nClaudio','',0,'AIA=','2924vh1p',1,0,'',277,0,0),(36743,7974,4,2,0,'87.218.146.6',1188130998,1,0,1,1,1,1,'','','Claudio,\n\nWhat do you need the original values for ? Just to check which ones have changed their values ?','',0,'AIA=','yzdmaft4',1,0,'',2,0,0),(36744,7975,3,148,0,'196.205.176.181',1188137573,1,0,1,1,1,0,'','instant refresh','How can I have instant refresh after deletion a record .\n[code:f42ootpe]\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n\nfunction main&#40;&#41;\n    local oWnd,oBar\n\n    field me_mc_serl, me_date\n\n    set date format to &quot;DD/MM/YYYY&quot;\n    set deleted on\n    set resources to &quot;test04&#46;dll&quot;\n    setHandleCount&#40;99&#41;\n\n    use mete exclusive\n    *recall all\n    index on me_mc_serl to mete\n    index on me_date to mete2\n    use\n\n    define window oWnd title &quot;Test Tmeter class&quot; MDI\n\n    define buttonbar oBar of oWnd size 26,28 3d\n\n    define button of oBar resource &quot;people&quot; noborder;\n      action Tmeter&#40;&#41;&#58;new&#40;&#41;&#58;browser&#40;&#41;\n\n    activate window oWnd\n\n    set resources to\n    close databases\n\nreturn nil\n//--- End test\n\n\n\n//---------------------------------------------------------------------------//\n\n//--- meter class\nclass Tmeter from TData\n   method new\n   method browser\n   method add\n   method edit\n   message delete method _delete\n Hidden&#58;\n   data lAdd as logical\nendclass\n\n//---------------------------------------------------------------------------//\n\nmethod new&#40;&#41;\n   super&#58;new&#40;,&quot;mete&quot;&#41;\n   if &#58;&#58;use&#40;&#41;\n      &#58;&#58;addIndex&#40;&quot;mete&quot;&#41;\n      &#58;&#58;addIndex&#40;&quot;mete2&quot;&#41;\n      &#58;&#58;setOrder&#40;1&#41;\n      &#58;&#58;gotop&#40;&#41;\n      msgInfo&#40; &#58;&#58;recno&#40;&#41;,&quot;recno&#40;&#41;&quot;&#41;\n      msgInfo&#40; &#58;&#58;fcount&#40;&#41;,&quot;fcount&#40;&#41;&quot;&#41;\n      \n   endif\n   &#58;&#58;lAdd&#58;=&#46;f&#46;\nreturn self\n\n//---------------------------------------------------------------------------//\n\n\nmethod browser&#40;&#41;\n\n   local oDlg,oBrw,oMeter,oFont,oCol,nFor,oChild\n\n   &#58;&#58;setOrder&#40;2&#41;\n   &#58;&#58;gotop&#40;&#41;\n\n\n   define font oFont name &quot;Ms Sans Serif&quot; size 0,-14 BOLD\n   *define font oFont name getsysfont&#40;&#41; size 0,-14\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;meter reads browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n   oBrw&#58;SetRDD&#40;&#41;\n   \n\n\n      for nFor &#58;= 1 to &#58;&#58;Fcount&#40;&#41;\n      	oBrw&#58;aCols&#91; nFor &#93;&#58;oDataFont &#58;= oFont\n      next\n    \n   // Setup for using database class\n   oBrw&#58;cAlias&#58;= &#58;&#58;cAlias\n   oBrw&#58;bSkip&#58;= &#123;|nRecs| &#58;&#58;skipper&#40; nRecs &#41; &#125;\n   oBrw&#58;bGotop&#58;= &#123;|| &#58;&#58;gotop&#40;&#41; &#125;\n   oBrw&#58;bGoBottom&#58;= &#123;|| &#58;&#58;goBottom&#40;&#41; &#125;\n   oBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil, &#58;&#58;RecNo&#40;&#41; , &#58;&#58;Goto&#40; n &#41; &#41; &#125;\n   \n\noMeter&#58;= self\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;, BuildButtons&#40; oMeter,oBrw,oDlg&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;, oDlg&#58;Refresh&#40;&#46;t&#46;&#41;&#41; \n\n\n\n\n\n\nRETURN nil\n\n//---------------------------------------------------------------------------//\n\n\nfunction BuildButtons&#40;oMeter, oBrw, oDlg&#41;\n*--------------------------------------------------\n    @ 34,   1 BUTTON &quot;&amp;New&quot;    OF oDlg SIZE 60, 20 ACTION &#40; oMeter&#58;add&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 34,  15 BUTTON &quot;&amp;Modify&quot; OF oDlg SIZE 60, 20 ACTION &#40; oMeter&#58;edit&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 34, 30 BUTTON &quot;&amp;Delete&quot; OF oDlg  SIZE 60, 20 ACTION &#40; oMeter&#58;delete&#40;oBrw,oDlg&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 34,45 BUTTON &quot;&amp;Search&quot; OF oDlg SIZE 60, 20 //ACTION addmete&#40; oBrw , oDlg &#41;\n\n    @ 34,60 BUTTON &quot;&amp;Print&quot; OF oDlg SIZE 60, 20 //ACTION oDlg&#58;Report &#40; &quot;meter reads Report&quot;, &#46;t&#46; &#41;\n\n    @ 36,  1 BUTTON &quot;&amp;Order&quot;    OF oDlg SIZE 60, 20//ACTION ordercust&#40;oLbx&#41; SIZE 40, 12\n\n    @ 36,  15 BUTTON &quot;&amp;Filter&quot;    OF oDlg SIZE 60, 20//ACTION filtercust&#40;oLbx&#41; SIZE 40, 12\n\n    @ 36,  30 BUTTON &quot;&amp;Unfilter&quot; OF oDlg SIZE 60, 20//ACTION Nonfiltercust&#40;oLbx&#41; SIZE 40, 12\n\n    @ 36, 45 BUTTON &quot;&amp;Exit&quot;   OF oDlg SIZE 60, 20 //ACTION oDlg&#58;End&#40;&#41; SIZE 40, 12\n\n\nreturn nil\n\n\n\nmethod add&#40;oBrw&#41;\n   &#58;&#58;lAdd&#58;=&#46;t&#46;\n   &#58;&#58;edit&#40;oBrw&#41;\n   &#58;&#58;load&#40;&#41;   // in case they cancel\n   &#58;&#58;lAdd&#58;=&#46;f&#46;\n   &#58;&#58;GOTOP&#40;&#41;\nreturn self\n\n//---------------------------------------------------------------------------//\n\nmethod edit&#40;oBrw&#41;\n\n   local oDlg,oBtnNew\n   local ometer&#58;= TRecord&#40;&#41;&#58;new&#40; self &#41;\n   if &#58;&#58;lAdd\n      ometer&#58;blank&#40;&#41;\n   endif\n\n\n   DEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;\n      TITLE if&#40;&#58;&#58;lAdd,&quot;Untitled&quot;,&quot;Update&quot;&#41;\n\n\n   @ 1,2 SAY &quot;&amp;Serial&quot; OF oDlg PIXEL\n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 1,60 GET ometer&#58;me_mc_serl OF oDlg PIXEL UPDATE\n\n   @ 15,1 SAY &quot;&amp;Meter date&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET ometer&#58;me_date pict &#40;&quot;99/99/9999&quot;&#41; OF oDlg PIXEL UPDATE\n\n\n   @ 280, 10 BUTTON oBtnNew PROMPT &quot;&amp;Save&quot; OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION  &#40; ometer&#58;save&#40;&#41;, oDlg&#58;end&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n         ON INIT &#40; oBrw&#58;Refresh&#40;&#41;, oDlg&#58;Update&#40;&#41; &#41;\n\nometer&#58;end&#40;&#41;\noDlg&#58;update&#40;&#41;\n\nreturn self\n\n\n\n//---------------------------------------------------------------------------//\n\nmethod _delete&#40;oBrw,oDlg&#41;\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41;\n      super&#58;delete&#40;&#41;\n   endif\nreturn self\n\n//---------------------------------------------------------------------------//\n\n[/code:f42ootpe]','',0,'AIA=','f42ootpe',1,0,'',148,0,0),(36745,7975,3,2,0,'87.218.146.6',1188138110,1,0,1,1,1,1,'','','oBrw:Refresh()','',0,'AIA=','niem9ejd',1,0,'',2,0,0),(36746,7975,3,148,0,'196.205.176.181',1188138596,1,0,1,1,1,0,'','','It does not do instant refresh. Refresh happneded after moving the cursor between records . I added in such way :\n[code:1el15ep7]\nmethod _delete&#40;oBrw,oDlg&#41;\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41;\n      super&#58;delete&#40;&#41;\n   endif\n   oBrw&#58;refresh&#40;&#41;\n   \n\nreturn self\n[/code:1el15ep7]','',0,'AIA=','1el15ep7',1,0,'',148,0,0),(36747,7965,3,35,0,'65.188.6.143',1188138632,1,0,1,1,1,0,'','','Greg\n\nHere is a snipit of code I use for turning rows different colors based on a fields condition per record ..\n\nRick Lipkin\nSC Dept of Health, USA\n\n//--------------------------------------\n\n....\n\nREDEFINE LISTBOX oBrow FIELDS        ;\n       ALIAS xALIAS                     ;\n       ID 111 of oEMP                   ;\n       ON DBLCLICK ( _PtrpBrow( CTOD(\"00/00/00\"), A-&gt;VNUMBER, A-&gt;LICENSE ),;\n                     _ReFrsh( A-&gt;VNUMBER, dDATE1 ), ;\n                     oBROW:REFRESH(), SysReFresh(),;\n                     oBROW:SetFocus() ) ;\n       UPDATE\n\n   oBROW:nClrText      := ;\n   { || SelColor( A-&gt;MILEAGE, A-&gt;NEXTMILAGE,\"F\" ) }\n   oBROW:nClrPane      := ;\n   { || SelColor( A-&gt;MILEAGE, A-&gt;NEXTMILAGE,\"B\" ) }\n   oBROW:nClrForeFocus := ;\n   { || SelColor( A-&gt;MILEAGE, A-&gt;NEXTMILAGE,\"F\" ) }\n\n    .....\n\n//------------------------------\nStatic Func SelColor( nMILE,nMILE1,cTYPE )\n\nLOCAL nCOLOR := CLR_BLACK\n\nDO CASE\nCASE cTYPE = \'F\'\n\n     IF nMILE &gt;= nMILE1  .and. nMILE1 &lt;&gt; 0\n        nCOLOR := CLR_WHITE                   \n     ELSE\n        nCOLOR := CLR_BLACK\n     ENDIF\n\nCASE cTYPE = \'B\'\n\n     DO CASE\n     CASE nMILE &gt;= nMILE1 .and. nMILE1 &lt;&gt; 0\n        nCOLOR := RGB(192,3,51)                // red\n\n     CASE ((nMILE1-nMILE) &lt;= 500) .and. nMILE1 &lt;&gt; 0\n        nCOLOR := RGB(255,255,0)               // yellow\n\n     OTHERWISE\n        nCOLOR := CLR_WHITE\n     ENDCASE\n\nENDCASE\n\nRETURN( nCOLOR )','',0,'AIA=','24pfkxym',1,0,'',35,0,0),(36748,7975,3,35,0,'65.188.6.143',1188139028,1,0,1,1,1,0,'','','Ehab\n\nI assume you have SET DELETE ON ... and do you not have to skip to the next record after you DELETE ??\n\nRick Lipkin','',0,'AIA=','2f3bot6l',1,0,'',35,0,0),(36749,7975,3,148,0,'196.205.176.181',1188144788,1,0,1,1,1,0,'','','What I needed is to make the record deleted disappeared immediately from the browse ( INSTANTLY). That what I asked for .\nThanks','',0,'AIA=','2ycu6oi3',1,0,'',148,0,0),(36750,7975,3,35,0,'65.188.6.143',1188146469,1,0,1,1,1,0,'','','Ehab\n\nThis code works for me ..\n\nSELECT EMPLOYEE\nnRECNO := RECNO()\n\nIF MsgYesNo( \"Are you SURE you want to DELETE this?\" )\n   dbSelectArea( \"EMPLOYEE\" )\n   IF RECLOCK( 5 )\n      dbDelete()\n      dbUnlock()\n      dbCommit()\n      SKIP+1\n\n      IF EOF()\n         dbGoTop()\n      ENDIF\n\n      nRECNO := RECNO()\n\n   ENDIF\nENDIF\n\nGOTO nRECNO\n\noBROW:UpStable()\noBROW:Refresh(.T.)\nSysReFresh()','',0,'AIA=','3atoekoh',1,0,'',35,0,0),(36751,7976,6,1146,0,'81.36.65.203',1188147578,1,0,1,1,1,0,'','busco este ejemplo','Hola:\n\nEstoy buscando este ejemplo en la carpeta SAMPLES, pero no lo encuentro. Por favor, ¿sabéis su nombre?.  Muchas gracias.\n\n[url=http&#58;//imageshack&#46;us:2l9eaz4b][img:2l9eaz4b]http&#58;//img442&#46;imageshack&#46;us/img442/1085/listadoosslq0&#46;jpg[/img:2l9eaz4b][/url:2l9eaz4b]\n\n\nSalu2','',0,'GA==','2l9eaz4b',1,0,'',1146,0,0),(36752,7976,6,2,0,'87.218.146.6',1188150077,1,0,1,1,1,1,'','','Moises,\n\nNo parece un ejemplo de FWH. Si buscas por \"Construir informe\" en la carpeta samples, no aparece','',0,'GA==','1kxyw87l',1,0,'',2,0,0),(36753,7975,3,148,0,'196.205.176.181',1188153292,1,0,1,1,1,0,'','','Can I have the old browse with the first record browsed before the deletion ? I mean updating the browse having the first ecord before the deletion except the record deleted .','',0,'GA==','240xi5v7',1,0,'',148,0,0),(36754,7976,6,1146,0,'81.36.65.203',1188160154,1,0,1,1,1,0,'','','Antonio:\n\nEs un ejemplo de Fivewin bastante antiguo, debe estar en samples y estaba en inglés, y SEGURO que existe. Si alguien se acuerda del nombre, se lo agradeceré. Muchas gracias.\n\nSalu2','',0,'GA==','3jb316gg',1,0,'',1146,0,0),(36755,7977,3,1146,0,'81.36.65.203',1188164878,1,0,1,1,1,0,'','searching a report generator in fivewin examples','Hi,\n\nI am searching for the following example. It is in english and it´s in samples folder, but I do not remember the name. Any help will be welcomed. \n\n[img:itp66cwt]http&#58;//img442&#46;imageshack&#46;us/img442/1085/listadoosslq0&#46;jpg[/img:itp66cwt]\n\nThank you!!!!!!!','',0,'CA==','itp66cwt',1,0,'',1146,0,0),(36756,7975,3,303,0,'72.199.41.171',1188169465,1,0,1,1,1,0,'','','Ehab,\n\nXBrowse does an unusal type of refresh. I have tried a few things and found that this works. Change the Delete() method to this:\n\n[code:27azanlq]method _delete&#40;oBrw,oDlg&#41;\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41;\n      super&#58;delete&#40;&#41;\n   endif\n   &#58;&#58;skip&#40;-1&#41;\n   &#58;&#58;skip&#40;1&#41;\n   oBrw&#58;refresh&#40;&#41;\nreturn self[/code:27azanlq]\n\nJames','',0,'AIA=','27azanlq',1,0,'',303,0,0),(36757,7978,6,396,0,'200.71.186.240',1188176148,1,0,1,1,1,1,'','browse editable para sistema de facturacion','Hola a todos, se que este tema ya lo habran pedido, pero no o consigo, a ver si alguien tendria algun ejemplo para usar un browse editable , lo voy usar en un sistma de facturacion, y para crear tablas de pocos campos para no tener que usar GET, mucho les estare agradecido, podeis ayudar por aca o a mi correo privado, desde ya, gracias.... saludos. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','3ey0lgzp',1,0,'',396,0,0),(36759,7932,3,89,0,'213.21.136.60',1188196933,1,0,1,1,1,0,'','','Grazie Enrico','',0,'AIA=','7o3aukdp',1,0,'',89,0,0),(36760,7974,4,277,0,'81.72.105.247',1188197712,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:25e35c5s]\nWhat do you need the original values for ? Just to check which ones have changed their values ?[/quote:25e35c5s]\n\nSimply when a user edit a record if he click on cancel button i need to restore original values.\n\nThis let me edit the databese fields instead a copy of values.\n\nBest Regards\nClaudio','',0,'gA==','25e35c5s',1,0,'',277,0,0),(36761,7979,6,945,0,'80.32.177.143',1188199338,1,0,1,1,1,0,'','Crear wrapper','Muy buenas, me gustaría saber donde puedo encontrar un ejemplo para hacer un wrappper y despues utilizarlo en xharbour.\n\nUn Saludo.','',0,'gA==','3ao80nk3',1,0,'',945,0,0),(36762,7974,4,456,0,'217.127.39.57',1188204826,1,0,1,1,1,1,'','','Take a look to tDabase Class. I thing is a best solution for your problem.','',0,'gA==','16wp7bh9',1,0,'',456,0,0),(36763,7980,3,86,0,'81.83.185.118',1188207310,1,0,1,1,1,1,'','Problem with OLE and Outlook','Hello,\n\nOn a computer of one of my costumers, something very strange happens.\n\nI try to send an email from my FWH-application through Outlook 2003.\n\nTo start my email, I use this code :\n\n[code:2c4q3y29]TRY\n    oMail  &#58;= oOutLook&#58;CreateItem&#40;olMailItem&#41;\n    EmSend &#58;= &#46;T&#46;\nCATCH\n    TRY\n       oMail  &#58;= oOutLook&#58;CreateItem&#40;olMailItem&#41;\n       EmSend &#58;= &#46;T&#46;\n    CATCH\n       EmSend &#58;= &#46;F&#46;\n    END\nEND\n[/code:2c4q3y29]\n\nWhatever I try, EmSend is always .F.\n\nWhat can be the reason for this behaviour ? I have several hundreds of other PC\'s who don\'t have this problem.\n\nThank you very much in advance.','',0,'AIA=','2c4q3y29',1,0,'',86,0,0),(36764,7972,3,86,0,'81.83.185.118',1188207432,1,0,1,1,1,1,'','','Tim,\n\nI experienced the same problem in Windows XP Prof. To my opinion it has nothing to do with Windows Vista.\n\nTo my opinion the solution has to be found somewhere else.','',0,'AIA=','25k29vvl',1,0,'',86,0,0),(36765,7974,4,2,0,'87.218.146.6',1188209160,1,0,1,1,1,1,'','','Claudio,\n\nFWPPC provides Class TDataBase for that purpose. Use it this way:\n\nlocal oDbf \n\nUSE YourDbf\nDATABASE oDbf\n\nedit your fields using oDbf:FieldName, i.e. oDbf:First, oDbf:Last, etc.\n\nto save the register do oDbf:Save(). If canceled, do nothing','',0,'AIA=','vyuwy9wh',1,0,'',2,0,0),(36766,7979,6,2,0,'87.218.146.6',1188210856,1,0,1,1,1,1,'','','Todo el directorio source\\winapi\\*.c de FWH es en su mayoria \"wrappers\" al API de Windows','',0,'AIA=','l46l31cr',1,0,'',2,0,0),(36767,7981,2,52,0,'200.82.51.194',1188214541,1,0,1,1,1,1,'','Crear una lib en FW','Gente,\n\nHace mucho no programo en FW puro , podrían decirme como hago para crear una lib de un programa. o sea, tengo un programa que quiero convertir a lib.\n\nGracias.','',0,'AIA=','5ss65asy',1,0,'',52,0,0),(36768,7978,6,294,0,'201.254.181.19',1188215438,1,0,1,1,1,1,'','','Podes poner un browse (yo tengo el TSBROWSE), decir que lo maneje por celdas (CELL) y en los campos que queres que se editen se lo indicas (EDITABLE) \nREDEFINE BROWSE oBrw  ID 120  OF oDlg CELL ALIAS (marchi)\n         ADD COLUMN TO  oBrw DATA FieldWBlock( \"pagado\", Select() )  SIZE 90 PICTURE \"99999.99\" ALIGN 2  HEADER \"Pagado\" EDITABLE\nTambien podes usar la clausula VALID en la columna para validar el dato que ingresa. \nEspero te sirva','',0,'AIA=','20dmgny9',1,0,'',294,0,0),(36769,7717,6,316,0,'213.97.245.163',1188215520,1,0,1,1,1,0,'','','Antonio,\n\nHoy ya volví al trabajo, se me terminaron las vacaciones <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->, pero me da la oportunidad de probar el asunto en varios ordenadores.\nHe usado el testmsg3.prg del samples para generar esta imagen. Eso ya es de otro ordenador, y el sample es bastante simple.\n\nEl comportamiento es bastante particular. Uso para superponer la misma ventana de DOS desde la que he regenerado el EXE.\nAl principio funciona bien, pero luego de activar alternativamente una y otra comienza el fallo, que te he marcado con un círculo rojo.\nEl fallo no es permanente, hay que insistirle. ¿Sabes de algún software que filme la actividad de la pantalla? Sería la mejor manera de mostrarte el problema.\n[img:3nh6vzzg]http&#58;//img211&#46;imageshack&#46;us/img211/2705/fwxb8&#46;jpg[/img:3nh6vzzg]\nUn saludo,\n\nCarlos.','',0,'CA==','3nh6vzzg',1,0,'',316,0,0),(36770,7717,6,316,0,'213.97.245.163',1188215870,1,0,1,1,1,0,'','','el punto es encontrar el porqué, ya que me ocurre lo mismo cuando dibujo controles. Contra más elaborado el control el defecto se nota más, y solo aparece en el repintado de ventanas no activas. Algo cambiará en los mensajes o en la prioridad del proceso repintado que no permite que los controles ownerdraw se terminen de repintar o algo así. \n\nUn saludo,\n\nCarlos.','',0,'CA==','1z8rtua1',1,0,'',316,0,0),(36771,7946,6,362,0,'201.26.157.101',1188217036,1,0,1,1,1,1,'','Re: Formatear disquette','[quote=&quot;El Loco&quot;:4ga3wdfz]karinha: desde ya muchisimas gracias.\nPero ese aporte de Rafa ya lo tenia.\nLo que ando buscando es que desde la misma aplicacion pueda formatear el diskette, no desde el shell.\nNo obstante creo que ya lo estoy por lograr.\n\nUn abrazo. El Loco =&gt;))[/quote:4ga3wdfz]\n\n\nPUEDES MANDAR TU APLICACION FORMATEAR EL DISCO COMO SE FUESSE EN PLATAFORMA D.O.S.\n\nVIA PROGRAMA:\n\nFORMAT A:','',0,'gA==','4ga3wdfz',1,0,'',362,0,0),(36772,7982,6,294,0,'201.254.181.19',1188217118,1,0,1,1,1,1,'','Problemas con la comunicacion serial','Estoy comunicando una aplicacion con una registradora fiscal NCR 2050. La comunicacion la realizo por medio del puerto serial y estoy utilizando las funciones de comunicacion provistas  (OPENCOMM, READCOMM, WRITECOMM, etc).\nEl problema es el suguiente. La aplicacion compilada para 16 bits corre perfectamente y comunicaca con exito, pero compilada para 32 bits, si no corro primero la de 16 bits, no logra comunicarse. \nAhora, pasa lo siguiente si primero ejecuto el programa de 16 bits salgo del programa de 16 bits y luego ejecuto el programa de 32 bits funciona perfectamente el de 32 bits y puedo entrar y salir del programa y sigue funcionando hasta que reinicie la maquina,.\nUso fwh 2.7 (marzo 2006) / xharbour 0.92.0 \nVi que otra persona tuvo el mismo problema y no se si encontro la solucion.  <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4189\">http://fivetechsoft.com/forums/viewtopic.php?t=4189</a><!-- m -->\nAntonio, vos pudiste ver algo acerca de la consulta que te hicieron en ese topic ?','',0,'gA==','2ygqe8y2',1,0,'',294,0,0),(36773,7981,2,2,0,'87.218.146.6',1188217495,1,0,1,1,1,1,'','','tlib.exe libreria.lib -+ modulo.obj,,','',0,'gA==','3vl689xd',1,0,'',2,0,0),(36774,7976,6,838,0,'80.34.222.112',1188218023,1,0,1,1,1,0,'','','Este es un generador de informes definido por el usuario\n\nYo lo utilizo desde la prehistoria de Five en todas mis aplicaciones, pero no he encontrado nada igual, así que aunque sea antiguo me funciona bien.\n\nApareció en las news antiguas con el nombre de Runadhoc, y con unos pocos retoques.... fantastico\n\nSaludos','',0,'gA==','2azo86oz',1,0,'',838,0,0),(36775,7981,2,52,0,'200.82.51.194',1188220588,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3rvfmhc7]tlib.exe libreria.lib -+ modulo.obj,,[/quote:3rvfmhc7]\n\nGracias.','',0,'gA==','3rvfmhc7',1,0,'',52,0,0),(36776,7983,1,686,0,'201.42.136.166',1188222655,1,0,1,1,1,0,'','TExcelScript','Hello    \n    \nhas as create the Graph in the same leaf of the data.','',0,'gA==','et80r6lt',1,0,'',686,0,0),(36777,7976,6,2,0,'87.218.146.6',1188222669,1,0,1,1,1,1,'','','Jose Luis,\n\nPuedes ponerlo aqui ? gracias','',0,'gA==','2kzcnknu',1,0,'',2,0,0),(36778,7984,6,1114,0,'201.213.41.182',1188222914,1,0,1,1,1,0,'','Ayuda Hotel PLanning','Estimados Colegas\n\nNecesito hacer un planning de hotel, grid de reservas , alguien tendria\nun ejemplo sencillo basado en dbf   como para comenzar\n\nGracias\nDante\n<!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->','',0,'gA==','cb1ffggw',1,0,'',1114,0,0),(36779,7985,3,1114,0,'201.213.41.182',1188223087,1,0,1,1,1,0,'','Help hotel Planning','Dear coleagues\n\nI need develop an hotel planning grid based in dbf, Can somebody help\nme with a little sample \n\nThanks\nDante\n<!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->','',0,'gA==','2rs7nvgn',1,0,'',1114,0,0),(36780,7986,6,694,0,'201.86.89.54',1188223429,1,0,1,1,1,1,'','Utilizando PELLES C, como alinhar uma dialog ?','Amigos, utilizando o PELLES C, como fazer uma dialog aparecer em determinada região da tela? No Pelles, existe algo sobre isso?\n\n\nGrato\n\nAoki','',0,'gA==','7fqtete4',1,0,'',694,0,0),(36781,7974,4,277,0,'81.72.105.247',1188224398,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3ab0wi5u]\nUSE YourDbf\nDATABASE oDbf\nedit your fields using oDbf:FieldName\nto save the register do oDbf:Save(). If canceled, do nothing\n[/quote:3ab0wi5u]\n\nI wonder, how you bind the field names to the object?\n\ni found _obj* function, but you don\'t use them in your source code.\n\nSorry for boring you, but really, i\'m not confident with Harbour, \nthe documentation is terrible.\n\nClaudio','',0,'gA==','3ab0wi5u',1,0,'',277,0,0),(36782,7974,4,2,0,'87.218.146.242',1188226380,1,0,1,1,1,1,'','','Claudio,\n\n&gt; I wonder, how you bind the field names to the object? \n\nWhen you do\nUSE YourDbf \nDATABASE oDbf \n\nA TDataBase object is created using the current workarea information and the fieldnames are binded automatically\n\nGive it a try and you will see how easy it is <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3srcjzeo',1,0,'',2,0,0),(36784,7988,3,137,0,'151.38.8.195',1188226936,1,0,1,1,1,0,'','Edit control unicode support','Does tget/tmultiget control support unicode chars? \n\nRegards, \nRoberto Parisi\n\nI posted this msg for mistake in fwCE forum. It is related to fwh.','',0,'gA==','12eveqrr',1,0,'',137,0,0),(36786,7988,3,2,0,'87.218.146.242',1188227012,1,0,1,1,1,1,'','','Roberto,\n\nNo, we don\'t support them yet','',0,'gA==','1iy2gib1',1,0,'',2,0,0),(36787,7988,3,137,0,'151.38.8.195',1188227335,1,0,1,1,1,0,'','Edit control unicode support','Do you know some hints to use east europe chars? (for example other edit classes, etc.)\n\nIf no... do you have some hints for me so I can try to integrate it in tget class?\n\nThx,\nRoberto Parisi','',0,'gA==','1eywkh3l',1,0,'',137,0,0),(36788,7977,3,1146,0,'81.36.65.203',1188227563,1,0,1,1,1,0,'','','It appeared in old news. It´s name is Runadhoc. Thank you!!!!!','',0,'gA==','2cv2214r',1,0,'',1146,0,0),(36789,7985,3,35,0,'167.7.140.254',1188232442,1,0,1,1,1,0,'','','Devwin\n\nHere is a snipit of code I user to create a database of calendar days for a vehicle reservation listbox grid .. Hope this give you an idea how to create a database on the fly with fields names that give you days of the week for columns.\n\nRick Lipkin\n\n//\n\n..................\n\nDBF_STRU := { }\nAADD( DBF_STRU, { \"VNUMBER\",    \"C\", 5,  0 } )\nAADD( DBF_STRU, { \"LICENSE\",    \"C\", 7,  0 } )\nAADD( DBF_STRU, { \"MILEAGE\",    \"N\", 7,  0 } )\nAADD( DBF_STRU, { \"NEXTSERVCE\", \"D\", 8,  0 } )\nAADD( DBF_STRU, { \"NEXTMILAGE\", \"N\", 7,  0 } )\n\nSELECT P_TRIPS\nGO TOP\n\nIF ( DATE() - P_TRIPS-&gt;DATE ) &gt; 45\n   IF P_TRIPS-&gt;DATE = CTOD(\"00/00/00\")\n   ELSE\n      SAYING := \"There are Reservations over 45 days old that must be \"+chr(10)\n      SAYING += \"RESOLVED \"+DTOC(P_TRIPS-&gt;DATE)+\" \"+P_TRIPS-&gt;VNUMBER+chr(10)\n      SAYING += \" \"+P_TRIPS-&gt;LNAME+chr(10)\n      MsgInfo( SAYING )\n   ENDIF\n   dDATE1 := DATE()-45\nELSE\n   dDATE1 := P_TRIPS-&gt;DATE\nENDIF\n\nIF dDATE1 &gt; DATE()\n   dDATE1 := DATE()\nENDIF\n\ndDATE2  := DATE()+30\nnSPREAD := ( dDATE2 - dDATE1 )\n\ndTODAY  := dDATE1\nnCOL    := 0\n\nFOR i = 0 to nSPREAD\n\n    cDAY :=  substr( DOM(dTODAY),1,3)+\"_\" +;\n    substr( CMONTH(dTODAY),1,3)+\"_\"+;\n    strzero( DAY(dTODAY),2)\n\n    AADD( DBF_STRU, { cDAY, \"C\", 15, 0 } )\n\n    IF dTODAY = DATE()\n       IF i &gt; 3\n          nCOL := (i+2)\n       ENDIF\n    ENDIF\n\n    dTODAY++\n\nNEXT\n\nDBCREATE( xVOL+\"\\DBTMP\\\"+SITEDBF+\".DBF\", DBF_STRU )\n\n......\n\n//-----------------------\nFunc DOM( dDATE)\n\nLOCAL nDAY, cDAY\n\nnDAY := DOW( dDATE )\n\nDO CASE\nCASE nDAY = 1\n     cDAY := \"Sunday\"\nCASE nDAY = 2\n     cDAY := \"Monday\"\nCASE nDAY = 3\n     cDAY := \"Tuesday\"\nCASE nDAY = 4\n     cDAY := \"Wednesday\"\nCASE nDAY = 5\n     cDAY := \"Thursday\"\nCASE nDAY = 6\n     cDAY := \"Friday\"\nCASE nDAY = 7\n     cDAY := \"Saturday\"\nENDCASE\n\nRETURN(cDAY)','',0,'gA==','3myt81yn',1,0,'',35,0,0),(36790,7972,3,34,0,'68.5.217.82',1188234941,1,0,1,1,1,1,'','SMTP / Vista','I have both Vista Ultimate, and XP Professional computers and I have tested this issue on both with the exact same program.  It works fine in XP and not Vista.\n\nI have narrowed it down to the file transmission for attachments.  It transmits the name of the file, but not the file itself ( only a shell of less than 100 bytes ).\n\nIn researching this globally, it appears that all previous versions of windows had support for an SMTP server that was included and could be installed.  It would appear that they may have reduced SMTP functionality in Vista as a whole, but all email programs can send attachments, so it would appear that there is some change in the API calls required ( or maybe I have no idea what I\'m talking about ... ).\n\nAntonio, you are using VISTA ... are you using SMTP for outgoing emails, or do you have a different methodology \n\nThanks','',0,'gA==','v4c5go45',1,0,'',34,0,0),(36791,7977,3,2,0,'87.218.146.242',1188236899,1,0,1,1,1,1,'','','Moises,\n\nWould you be so kind to share it with other users ? thanks\n\nYou may use <!-- w --><a class=\"postlink\" href=\"http://www.hotshare.net\">www.hotshare.net</a><!-- w --> or similar to upload it and place here the download url. Thanks,','',0,'gA==','23sarsir',1,0,'',2,0,0),(36792,7988,3,2,0,'87.218.146.242',1188237084,1,0,1,1,1,1,'','','Roberto,\n\nAs FWH Class TGet uses a Harbour/xHarbour TGet object (Clipper clone), the first step would be to modify Harbour/xHarbour Class TGet to properly manage two bytes x character. \n\nBasically the buffer of such Get objects, should be double size, and navigation methods (Right(), Left(), etc) should skip two bytes instead of one\n\nFinally FWH Class TGet will probably work fine with it, as it just sends messages to the contained Clipper Get','',0,'gA==','klmyhdmj',1,0,'',2,0,0),(36793,7972,3,2,0,'87.218.146.242',1188237701,1,0,1,1,1,1,'','','Tim,\n\nWe don\'t use that code, so we can just suggest to place several traces into it (you may use FWH LogFile( cNameFile, { val1, ..., valN } ) ) and check where the error may come from','',0,'gA==','2j62y06z',1,0,'',2,0,0),(36794,7989,6,73,0,'200.23.18.132',1188239360,1,0,1,1,1,0,'','cajon de dinero','alguien sabe como validar si un cajon de dinero esta abierto?\nsalu2\npaco','',0,'gA==','3dlqwdl2',1,0,'',73,0,0),(36795,7990,6,945,0,'80.32.177.143',1188239827,1,0,1,1,1,0,'','Gif Animado','Muy buenas, estoy intentando poner un gif animado, he usado tgif89 pero una vez compilada sin errores no reproduce el gif.\n\n¿Conoceis algún ejemplo que se compile y ejecute bien?, me da igual la clase o activex a usar.\n\nMuchas Gracias.','',0,'gA==','2qxdttg5',1,0,'',945,0,0),(36796,7972,3,303,0,'72.199.41.171',1188239952,1,0,1,1,1,0,'','','Tim,\n\nTo find out if it is indeed the OS, I would try sending SMTP mail using some other SMTP utility program.\n\nJames','',0,'gA==','3b0wmmrk',1,0,'',303,0,0),(36797,7977,3,1146,0,'81.36.65.203',1188240025,1,0,1,1,1,0,'','','Antonio,\n\nI still don´t have it. If I find it, I would be grateful to share with other users. It worked great and I think it should be included in next FDTN. \n\nDo you have the contents of news.fivetech.com?. I remember that I got from news.\n\nRegards,\n\nMoisés','',0,'gA==','2bbgpyjr',1,0,'',1146,0,0),(36798,7991,3,689,0,'189.26.143.176',1188240040,1,0,1,1,1,0,'','Problems with treeview.c','Hello, anybody knows cause of this error?\n\n\nWarning W8019 Source\\treeview.c 237: Code has no effect in function TVSETCOLOR\nWarning W8019 Source\\treeview.c 238: Code has no effect in function TVSETCOLOR\n\nI am trying compile this source to use in my own lib and gives this error.\n\nThanks\nEroni','',0,'gA==','2o2g6rxq',1,0,'',689,0,0),(36799,7992,2,1146,0,'81.36.65.203',1188240245,1,0,1,1,1,0,'','runadoc - generador de informes','Hola:\n\nBusco un generador de informes llamado runadoc, que apareció en las news hace bastante tiempo. Creo que estaba en inglés y la pantalla era:\n\n[img:1wew16w5]http&#58;//img442&#46;imageshack&#46;us/img442/1085/listadoosslq0&#46;jpg[/img:1wew16w5]\n\nPor favor, estaría muy agradecido si me lo pueden enviar. Muchas gracias.\n\nSalu2,\n\nMoisés','',0,'CA==','1wew16w5',1,0,'',1146,0,0),(36800,7993,1,1146,0,'81.36.65.203',1188240359,1,0,1,1,1,0,'','runadoc - report generator','Hi,\n\nI am searching a file named runadoc. It is a report generator that appeared in the news server some time ago. It was in English and the screen is:\n\n[img:2126cz9a]http&#58;//img442&#46;imageshack&#46;us/img442/1085/listadoosslq0&#46;jpg[/img:2126cz9a]\n\nI would be very grateful if you could send me the file. Thank you very much!!!.\n\nRegards','',0,'CA==','2126cz9a',1,0,'',1146,0,0),(36801,7976,6,838,0,'80.59.225.15',1188240560,1,0,1,1,1,0,'','','Antonio\n\nAquí está, funciona perfectamente en xharbour\n\n...........\n\nNo se que pasa, que la pongo, y en vista previa se ve bien, pero cuando le doy enviar, en el post no se ve dentro de code, y se come algunas líneas.\n\nPuede ser porque tiene 2263 lineas?\n\nSaludos\n\nJose','',0,'CA==','gjib1upq',1,0,'',838,0,0),(36802,7976,6,838,0,'80.59.225.15',1188240972,1,0,1,1,1,0,'','','Antonio\n\nLo pongo en varias partes o lo subo a rapidshare.\n\nQue hago?\n\nSaludos\n\nJose Luis','',0,'CA==','2cxi8zdr',1,0,'',838,0,0),(36803,7977,3,2,0,'87.218.146.242',1188242255,1,0,1,1,1,1,'','','Moises,\n\n&gt; Do you have the contents of news.fivetech.com?. \n\nYes, we keep a full backup of it. We are going to search it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','35ev1s9s',1,0,'',2,0,0),(36804,7975,3,148,0,'196.205.176.181',1188242528,1,0,1,1,1,0,'','','But that is not valid with first record in the browse and last record if I delete either of them ? I tried all possible methods from Xbrowse concerning the eof() , bof() with no success .\nThanks','',0,'CA==','21dxgqbw',1,0,'',148,0,0),(36805,7972,3,34,0,'68.5.217.82',1188242714,1,0,1,1,1,1,'','SMTP','Antonio ... what code do you use for sending emails from within a program ?  FiveWin has its SMTP class, of which this is derived, but the same result occurs with the SMTP class provided with 7.07\n\nJames ... Outlook uses a POP/SMTP protocal and works.  However, logic would say \"if abc.exe works on machine A, but not on machine B, and the only difference is the OS, then there must be something different about B\'s OS\".  Also, there are some discussions on the internet tech resources about SMTP and Vista, which state that Microsoft used to provide an SMTP server, but removed it from Vista.  That leads me to believe they have somehow changed their methodology relative to SMTP.\n\nOf course, if someone uses FWH SMTP and can send email from a Vista computer, that would be very nice to know.','',0,'CA==','gib2lyy4',1,0,'',34,0,0),(36806,7972,3,2,0,'87.218.146.242',1188244369,1,0,1,1,1,1,'','','Tim,\n\n&gt; what code do you use for sending emails from within a program ?\n\nWe don\'t send emails from our xbase applications\n\nPHP does it ok for our needs','',0,'CA==','25xxfmaj',1,0,'',2,0,0),(36807,7976,6,2,0,'87.218.146.242',1188244696,1,0,1,1,1,1,'','','Jose Luis,\n\nHaz un ZIP y lo subes a rapidshare. Gracias!','',0,'CA==','1x0qriaj',1,0,'',2,0,0),(36808,7976,6,838,0,'80.59.225.15',1188246910,1,0,1,1,1,0,'','','Antonio \n\nAqui esta el link\n\n[url:1gd09yqu]http&#58;//rapidshare&#46;com/files/51695254/Runadhoc&#46;zip[/url:1gd09yqu]\n\nSaludos\n\nJose Luis','',0,'EA==','1gd09yqu',1,0,'',838,0,0),(36809,7976,6,838,0,'80.59.225.15',1188247359,1,0,1,1,1,0,'','','Dime si hay algun problema en la descarga\n\nEs que yo no había subido nada nunca a rapidshare, y me ha dado a elegir entre premium y free, he elegido premium, he pagado, pero no se si lo he hecho bien, en la prueba que he hecho a mi me lo ha descargado bien.\n\nSaludos\n\nJose Luis','',0,'EA==','3r52tqum',1,0,'',838,0,0),(36810,7991,3,2,0,'87.218.146.242',1188247613,1,0,1,1,1,1,'','','Eroni,\n\nThey are just warnings that you can safely ignore','',0,'EA==','k4c3wtja',1,0,'',2,0,0),(36811,7976,6,2,0,'87.218.146.242',1188247757,1,0,1,1,1,1,'','','Jose Luis,\n\nGracias! Podrias subir tambien el fichero RC que usa ?','',0,'EA==','k4uodrak',1,0,'',2,0,0),(36812,7972,3,343,0,'204.57.111.194',1188248374,1,0,1,1,1,0,'','','I have given up on the smtp class. It is too slow and I could not get it to work reliably with the security and anti-spam features used by our email servers.\n\nI use a product from OstroSoft. It is free, very fast, and always seems to work. <!-- m --><a class=\"postlink\" href=\"http://www.ostrosoft.com/\">http://www.ostrosoft.com/</a><!-- m -->','',0,'EA==','1p75voxt',1,0,'',343,0,0),(36813,7976,6,838,0,'80.59.225.15',1188250395,1,0,1,1,1,0,'','','Antonio\n\nAqui está\n\n[url:2irzfxlq]http&#58;//rapidshare&#46;com/files/51705967/gestion&#46;res[/url:2irzfxlq]\n\nA ver si alguien se atreve a mejorarlo, yo hice un pequeño intento, y me lié y lo tuve que dejar.\n\nSaludos\n\nJose Luis','',0,'EA==','2irzfxlq',1,0,'',838,0,0),(36814,7994,6,644,0,'200.82.9.84',1188250906,1,0,1,1,1,0,'','Rebar en dialogos','Es posible utilizar un rebar en un dialogo y utilizar una toolbar en un panel ?. Uso FWH diciembre 2005\nDesde ya muchas gracias.','',0,'EA==','282lyot4',1,0,'',644,0,0),(36815,7972,3,303,0,'72.199.41.171',1188253006,1,0,1,1,1,0,'','','Tim,\n\n&gt;Outlook uses a POP/SMTP protocal and works.\n\nOK, then it seems SMTP is working under Vista.\n\n&gt;However, logic would say \"if abc.exe works on machine A, but not on machine B, and the only difference is the OS, then there must be something different about B\'s OS\".\n\nThe key is in your statement \"the only difference is the OS.\" This is very hard to determine. It could be a firewall issue, virus scanner issue, some kind of unknown malware, etc.\n\nAlso, are you sending it to the same SMTP server and to the same email address on both machines? Are the attachments the same? I am guessing that you thought of all this, but you didn\'t mention it.\n\n&gt;Also, there are some discussions on the internet tech resources about SMTP and Vista, which state that Microsoft used to provide an SMTP server, but removed it from Vista. That leads me to believe they have somehow changed their methodology relative to SMTP. \n\nOK, I am confused about this. The SMTP server is not on the local machine, it is in a remote location, so you don\'t need to have an SMTP server on the local machine. \n\nHave you contacted Luis about this problem? If it is a Vista problem, he probably already knows about it and may have already solved it.\n\nJames','',0,'EA==','29mlrqr7',1,0,'',303,0,0),(36816,7717,6,316,0,'87.218.187.37',1188253315,1,0,1,1,1,0,'','','Antonio,\nHe modificado el control que estoy haciendo para que no haga nada, salvo pintar el fondo. Al hacerlo (porque se descubre un trozo de ventana) pinta mal. Si se observa el método Paint, este es muy sencillo. Ojo que puede que no falle a la primera, hay que moverle otra ventana por encima y moverla lentamente. Ayuda bastante si tienes otros procesos en marcha, para complicarsela más.\n[img:3hnqeixl]http&#58;//img443&#46;imageshack&#46;us/img443/6708/fw3pq9&#46;jpg[/img:3hnqeixl]\n\n¿Me podrías dar una pista de donde puede estar el problema? Insisto que el problema tambien se refleja en la barra de mensajes tal como se vé en los postings anteriores.\n\nel enlace al zip con los fuentes (y el exe ya compilado)\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/y8ujkuoeq1\">http://www.box.net/shared/y8ujkuoeq1</a><!-- m -->\n\nA ver si me puedes ayudar, ya que esto me tiene frustrado y parado con el control.\n\nUn saludo,\n\nCarlos.','',0,'CA==','3hnqeixl',1,0,'',316,0,0),(36817,7989,6,940,0,'200.67.53.198',1188254855,1,0,1,1,1,1,'','','que ondas paco,\n\neso si esta mas dificil,,,   jeje\n\n\nalgun guru en c++  a lo mejor tiene la respuesta,\n\nsaludos..','',0,'CA==','40desbor',1,0,'',940,0,0),(36818,7957,3,167,0,'207.119.126.13',1188255074,1,0,1,1,1,1,'','','Antonio,\n\nI\'m having erratic results on reading the return response from the host.  I have inserted timing loops, etc but can\'t get consistant.\n\nWith the test programs and msgstop\'s and debugger, things work well.  In my application, it\'s almost like sometimes I\'m active and receive the host messages, other times I \"miss\" them.  I\'m telling my app to sleep() and inkey(.25) etc, then testing for the getdata(), but most times (not all) the returned data is empty.  I do know that the host side is returning data.\n\nQuestion:  Why won\'t the getdata() method work consistantly?  Also, in the sample programs, when the socket is getting ready to close, a msginfo() is invoked, and this in turn invokes the onread event.  Almost like without the msginfo() the socket doesn\'t \"wake up\" for handling the read event.  Does this make sense?\n\nHow can I control the onread event BEFORE ending the socket.','',0,'CA==','1764dgmj',1,0,'',167,0,0),(36819,7972,3,34,0,'68.5.217.82',1188255104,1,0,1,1,1,1,'','The same but different','I use the same anti-virus/malware/etc. program on both computers.  They are on the network and both use the same SMTP server.  Everything is identical.\n\nI don\'t have contact info for Louis','',0,'CA==','2jj1sslp',1,0,'',34,0,0),(36820,7717,6,228,0,'190.24.115.35',1188255864,1,0,1,1,1,1,'','Amigo....','Amigo no se si te sirva, pero descargue tu control y a mi NO me pasa lo que estas diciendo, pase varias ventanas por encima y no me da el error de pintado.. excelente trabajo...  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','2u236wvu',1,0,'',228,0,0),(36821,7972,3,2,0,'87.218.146.242',1188256437,1,0,1,1,1,1,'','','Tim,\n\nLuis email on these forums is:\n<!-- e --><a href=\"mailto:luis_krause@hotmail.com\">luis_krause@hotmail.com</a><!-- e -->','',0,'CA==','3ksn56js',1,0,'',2,0,0),(36822,7976,6,2,0,'87.218.146.242',1188256541,1,0,1,1,1,1,'','','Jose Luis,\n\nGracias!','',0,'CA==','14pjmfd6',1,0,'',2,0,0),(36823,7717,6,2,0,'87.218.146.154',1188257854,1,0,1,1,1,1,'','','Carlos,\n\nEn tu clase TOutLook2 prueba a quitarle el doble buffer en el pintado:\n\n// local aInfo:= ::DispBegin()\n...\n// ::DispEnd( aInfo )\n\nCuando se llega a producir un error de ese tipo de pintado, normalmente se debe a que se ha empleado demasiado tiempo en el proceso de pintado y algunos mensajes de Windows no se han llegado a procesar','',0,'CA==','1p3vn7e1',1,0,'',2,0,0),(36824,7995,2,1148,0,'190.136.223.196',1188260660,1,0,1,1,1,0,'','Caption en Radios','Hola a todos!!\nUna consulta: Tengo un diálogo definido por recursos con varios radio buttons. Lo que necesito es dejar los caption en blanco, ya que al mismo diálogo lo quiero usar en distintas funciones y asignarles el nombre según el caso. Se puede hacer?? Desde ya muchas gracias!! Tengo FW 1,95','',0,'CA==','2pe0qhiq',1,0,'',1148,0,0),(36825,7972,3,303,0,'72.199.41.171',1188260897,1,0,1,1,1,0,'','','Tim,\n\nThis software might be helpful.\n\n\"SMTP Diagnostics is a program that assists with troubleshooting problems that can occur with outgoing mail (SMTP). You can send a test message, with or without attachment(s), and view the protocol messages exchanged between your computer and the mail server.\"\n\n<!-- m --><a class=\"postlink\" href=\"http://www.whitepeaksoftware.com/smtp-diagnostics.aspx\">http://www.whitepeaksoftware.com/smtp-diagnostics.aspx</a><!-- m -->\n\nAlso, have you tried taking your firewall down just to do a test send?\n\nJames','',0,'CA==','1702fa1m',1,0,'',303,0,0),(36826,7972,3,303,0,'72.199.41.171',1188261258,1,0,1,1,1,0,'','','OK, SMTP Diagnostics may not be all that helpful. After reading more about it, the test emails are sent from the SMTP Diagnostics program. I previously had the impression that it just recorded the session between your email software and the SMTP server. Apparently this is not the case.\n\nJames','',0,'CA==','24kelpkn',1,0,'',303,0,0),(36827,7957,3,303,0,'72.199.41.171',1188261861,1,0,1,1,1,0,'','','Don,\n\nI\'m no socket expert, but you can turn on debug logging and this may give you some clues. Try:\n\noSocket:lDebug:=.t.\noSocket:cLogFile:=\"socket.log\"\n\nJames','',0,'CA==','2mzr4qiy',1,0,'',303,0,0),(36828,7972,3,303,0,'72.199.41.171',1188262215,1,0,1,1,1,0,'','','It\'s been quite awhile since I worked on email, but I just remembered that you can turn on debugging in the socket class. You will have to add the following lines to the TSMTP class and recompile it. Put these in the New() method after the socket has been defined.\n\noSocket:lDebug:=.t.\noSocket:cLogFile:=\"socket.log\"\n\nThen send you email and see what you get. It may give a clue.\n\nJames','',0,'CA==','3pi62qi2',1,0,'',303,0,0),(36829,7975,3,303,0,'72.199.41.171',1188264335,1,0,1,1,1,0,'','','Ehab,\n\nGee, you want it to work all the time...Ok, if you insist.\n\n[code:1um9a3lj]method _delete&#40;oBrw,oDlg&#41;\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41;\n      super&#58;delete&#40;&#41;\n   endif\n   &#58;&#58;skip&#40;-1&#41;\n   &#58;&#58;skip&#40;0&#41;\n   oBrw&#58;refresh&#40;&#41;\nreturn self[/code:1um9a3lj]\n\n\nJames','',0,'AIA=','1um9a3lj',1,0,'',303,0,0),(36830,7972,3,32,0,'41.206.160.2',1188272158,1,0,1,1,1,0,'','SMTP','Hi,\n\nFYI, I can send mail via smtp without any problems. Admittedly we\'ve modified the tsmtp class a bit for picking up errors in creation of the attachment temp files (pre-process the array of files to their own unique file names in the user\'s temp folder, and send those)\n\nAlex','',0,'AIA=','2s0xztxd',1,0,'',32,0,0),(36831,7995,2,1148,0,'190.136.223.196',1188273892,1,0,1,1,1,0,'','Ya lo resolví!!','Ya lo resolví!! Gracias igual. Después de buscar solución 2 horas en varios foros, fue tan simple como fijarse en los viejos y queridos SAMPLES\nSaludos a todos','',0,'AIA=','13xxaj5u',1,0,'',1148,0,0),(36832,7989,6,78,0,'190.43.191.20',1188280432,1,0,1,1,1,0,'','','Mas dificil que pellizcar un vidrio, se me ocurre que cada vez que  des la orden de abrir el cajon de dinero, actives un bmp en la pantalla que indique que se abrio el cajon, acompalado de un sonido que se parezca al que el cajon hace al abrirse, eso si el estereo..\nCreo que la impresoras de tickets (que accionan el interruptor del cajon) no devuelven señal alguna,,, talvez algun guru en impresoras..\nSalu2','',0,'AIA=','157ffl86',1,0,'',78,0,0),(36833,7975,3,148,0,'196.205.108.55',1188281180,1,0,1,1,1,0,'','','That is not working all the time . It works with first and last recrd but in the middle I need the previous code . That code does not detect bof() and eof()\n[code:m5bsh5ah]\n   if &#58;&#58;eof&#40;&#41; &#46;OR&#46; &#58;&#58;bof&#40;&#41;\n   &#58;&#58;skip&#40;-1&#41; \n   &#58;&#58;skip&#40;0&#41; \n   else\n   &#58;&#58;skip&#40;-1&#41; \n   &#58;&#58;skip&#40;1&#41; \n   endif\n   [/code:m5bsh5ah]','',0,'AIA=','m5bsh5ah',1,0,'',148,0,0),(36834,7985,3,51,0,'80.122.88.242',1188284400,1,0,1,1,1,0,'','','Hello windev2010,\ncould you send me a private mail about the status of your project, your market and your profile.\nWe do have a grid for hotels. Maybe there is a way to cooperate. \nRegards\nOtto\n[img:2d39fzts]http&#58;//www&#46;winhotel&#46;at/atzwanger/screen_Klein/plan&#46;jpg[/img:2d39fzts]\n\ndatron\n@\naon.at','',0,'CA==','2d39fzts',1,0,'',51,0,0),(36835,7988,3,137,0,'151.38.8.195',1188287741,1,0,1,1,1,0,'','Edit control unicode support','Ok Antonio, but TMultiGet class doesn\'t use HB/xHB TGet object.\nWhen I paste my text in the control I see the right chars but when I loose the focus the chars are converted to normal letters.\n\nFor example I paste: &#282;&#283;&#268;&#269;&#367;&#366;\nWhen I loose the focus I see: EeCcuU\n\nThx,\nRoberto Parisi','',0,'CA==','3c92jfct',1,0,'',137,0,0),(36836,7988,3,2,0,'87.218.146.242',1188289643,1,0,1,1,1,1,'','','Roberto,\n\nWe can\'t paste &#282;&#283;&#268;&#269;&#367;&#366; here (using samples\\TestMemo.prg)\n\nIt shows EeCcuU directly. So it looks as a Windows own issue.\n\nAlso, when we talk about unicode, we mean the ability to use two bytes to store a character, instead of using a single byte (what we normally use)','',0,'CA==','1oojoini',1,1188339676,'',2,1,0),(36837,7996,3,460,0,'217.37.54.49',1188291389,1,0,1,1,1,0,'','Ini Files','Hi,\n\nAre there any standard functions available that could open an ini file and return to an array the details of a specified section?\n\nfor example if you had an ini file like this:\n\n[Section 1]\nSetting 1=Yes\nSetting 2=No\n\n[Section 2]\nSetting 1=Yes\nSetting 2=Yes\n\nIs there a function where you can pass \"Section 2\" and it would return a multi dimensional array containing:\n[Setting 1] [Yes]\n[Setting 2] [Yes]\n\nHope the above is clear!!\n\nThanks in advance\n\nPete','',0,'','30vfsfyn',1,0,'',460,0,0),(36838,7996,3,2,0,'87.218.146.242',1188293073,1,0,1,1,1,1,'','','Peter,\n\nPlease review samples\\TestIni3.prg','',0,'','2mogifqd',1,0,'',2,0,0),(36839,7997,17,2,0,'87.218.146.242',1188293300,1,0,1,1,1,1,'','Report Generator - RunAdHoc','Thanks to Jose Luis help:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/51695254/Runadhoc.zip\">http://rapidshare.com/files/51695254/Runadhoc.zip</a><!-- m --> \n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/51705967/gestion.res\">http://rapidshare.com/files/51705967/gestion.res</a><!-- m -->','',0,'','1sb995w3',1,0,'',2,0,0),(36840,7993,1,2,0,'87.218.146.242',1188293320,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7997&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'','3q16ert5',1,0,'',2,0,0),(36841,7992,2,2,0,'87.218.146.242',1188293376,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7997&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'','3rc24jd9',1,0,'',2,0,0),(36842,7977,3,2,0,'87.218.146.242',1188293414,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7997&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'','2bn62ycx',1,0,'',2,0,0),(36843,7976,6,1146,0,'83.39.225.253',1188293865,1,0,1,1,1,0,'','','Muchas gracias a los dos!!!.','',0,'','39j42pxq',1,0,'',1146,0,0),(36844,7996,3,460,0,'217.37.54.49',1188296842,1,0,1,1,1,0,'','','Thanks Antonio, i\'ll give that a go','',0,'','2pyayl3u',1,0,'',460,0,0),(36845,7998,22,1146,0,'83.39.225.253',1188299665,1,0,1,1,1,0,'','runadhoc','Hola Antonio:\n\n¿Por qué no incluyes runadhoc en el próximo FTDN?. Es una característica muy demandada y que funciona muy bien.\n\nSalu2','',0,'','2fawsbm2',1,0,'',1146,0,0),(36846,7976,6,2,0,'87.218.146.242',1188299815,1,0,1,1,1,1,'','','Moises,\n\nSi lo adaptas a 32 bits, e incluso si lo mejoras, te agradeceríamos si lo compartes, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3d2fs6b2',1,0,'',2,0,0),(36847,7998,22,2,0,'87.218.146.242',1188299892,1,0,1,1,1,1,'','','Moises,\n\nComo te he indicado en otro post, sería estupendo si lo adaptas a 32 bits y compruebas que funcione bien, y con mucho gusto lo incluiremos en el próximo build de FWH, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','xsvi2bad',1,0,'',2,0,0),(36848,7999,11,578,0,'218.214.35.132',1188300713,1,0,1,0,1,0,'','Listbox Problem','I am using a listbox to enable one of four possible locations to be selected.  The current location is read from the database and the listbox selection set to match with code like the following:\n\n [code:1taqprpx]  @3, 45 LISTBOX lbLocations VAR sThisLoc OF dlgPatFile ;\n ITEMS &#58;&#58;aLocName SIZE 180, 110 \n\n   FOR liTry = 1 TO &#58;&#58;nLocs\n      IF &#58;&#58;aLocKey&#91;liTry&#93; = &#58;&#58;sFLKey\n         lbLocations&#58;nAt   = liTry\n      ENDIF\n   NEXT[/code:1taqprpx]\n\nThis works but the problem is that if you tab into the listbox the selection changes to the first entry in the listbox.  This only happens the first time you tab into it, if you tab through it a second time whatever has been selected remains unchanged.  I need a fix or a workaround to prevent or circumvent this behaviour.\n\nThanks\n\nxProgrammer','',0,'AIA=','1taqprpx',1,0,'',578,0,0),(36849,7998,22,1146,0,'83.39.225.253',1188302255,1,0,1,1,1,0,'','','Hola:\n\nNo he visto el otro post. ¿Donde está?. Lo he compilado en 32 bits y funciona sin problemas y para lo que busco es genial. Pero seguro que a tí se te ocurren algunos cambios. Muchas gracias.\n\nUn saludo,','',0,'AIA=','3ddxxlac',1,0,'',1146,0,0),(36850,8000,3,161,0,'141.6.8.74',1188302994,1,0,1,1,1,0,'','Buttons on meta-files','Hello,\n\nA application that I wrote is generating drawing by using meta-files.\nThen I display them and by using oMeta:blClicked := {|nRow, nCol, nKeyFlags| myfunc(nRow, nCol, nKeyFlags)} I check where the mouse is clicked, then I jump to another drawing.\nI was wondering that I can use some kind of buttons, it would me easyer because than I don\'t calculate the area\'s where the mouse can be clicked. The area\'s are not always on the same place, and the number of areas can be different.\n\nThanks,\nMarc','',0,'AIA=','1en621li',1,0,'',161,0,0),(36851,8000,3,2,0,'87.218.146.242',1188305478,1,0,1,1,1,1,'','','Marc,\n\nYou can place a pushbutton on top of a metafile, the usual way:\n\n@ ..., ... BUTTON ... OF oMetaFile SIZE ..., ... ACTION ...','',0,'AIA=','t3p3ntwc',1,0,'',2,0,0),(36852,7998,22,2,0,'87.218.146.242',1188305600,1,0,1,1,1,1,'','','Moises,\n\nTe respondi en otro de los posts que publicastes, comentándote lo mismo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','22fqdbe1',1,0,'',2,0,0),(36853,8001,3,620,0,'209.189.229.150',1188309825,1,0,1,1,1,0,'','Multiple Browses???','Greetings again....I have stumbled on a problem I can\'t seem to overcome (AGAIN)....\n\nI am attempting to put together a scheduling matrix where I have four browses based on date criteria.  The reason I have separate browses is because I need seperate headings above each of them showing the date and a total calculation for two columns in the browse...and each heading has a different color.\n\nEach of the four browses uses the same database with a different select based on the date.  All I get is VERY erratic results.  I guess my first question should be...is this even a possiblity to get working??\n\nSample of my code:\n\nSelect Database\nIndex on field-&gt;date to temp\n\nRedefine SAY ... (title and calculations) COLORS ....\nRedefine Listbox\n    Fields...\n    Headings....\n    SELECT field-&gt;date FOR dDate1\n    ON DBLCLICK changedate()\n\neach other listbox has....\n    SELECT field-&gt;date FOR dDate2....dDate3....etc.\n\nBeyond the selects not working properly, when I implement a date change on one record...it seems to change the date on ALL the records in ALL the browses....and then the browses themselves go haywire with data extending out of the confines of the box (even using upstable(), refresh() etc.).\n\nJust wondering if Im attemping to do something that will no way work!\n\nThanks in advance.\nGreg','',0,'AIA=','2fvzeaqx',1,0,'',620,0,0),(36854,7989,6,73,0,'200.23.18.132',1188310315,1,0,1,1,1,0,'','','si parece mas complicado de lo que pense, gracias a ambos, a ver si sale algun guru a la ayuda...\nmientras tanto seguire investigando\nsalu2\npaco','',0,'AIA=','1p7xvbzi',1,0,'',73,0,0),(36855,8001,3,460,0,'217.37.54.49',1188310606,1,0,1,1,1,0,'','','The way i\'ve done it in the past is to open the database in more than one area with a diferent alias.\nYou can then create an index/filter/scope on one alias that doesnt effect the others. \n\nHope that helps\n\nPete','',0,'AIA=','1bpyyt40',1,0,'',460,0,0),(36856,7975,3,148,0,'196.205.108.55',1188311054,1,0,1,1,1,0,'','','Yes I could solve it like this . It works :\n[code:3gbdbfe0]\nmethod _delete&#40;oBrw,oDlg&#41; \n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41; \n      super&#58;delete&#40;&#41; \n   endif \n   &#58;&#58;skip&#40;1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nif oBrw&#58;eof&#40;&#41;\n   &#58;&#58;skip&#40;-1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nendif\noBrw&#58;refresh&#40;&#41;    \n\nreturn self\n[/code:3gbdbfe0]\n\nHow to pack . when ever I involve pack command I faced with DBF execlusive required !!','',0,'AIA=','3gbdbfe0',1,0,'',148,0,0),(36857,8001,3,620,0,'209.189.229.150',1188311220,1,0,1,1,1,0,'','','Excellent!  I would not have thought of that...appreciate the help there....\nG','',0,'AIA=','xxujcefe',1,0,'',620,0,0),(36858,7975,3,303,0,'72.199.41.171',1188311986,1,0,1,1,1,0,'','','Ehab,\n\n&gt;How to pack . when ever I involve pack command I faced with DBF execlusive required !!\n\nA better solution is to reuse deleted records. Change the delete method to blank out the record and the append method to look for blank records before adding a new one.\n\nJames','',0,'AIA=','1noumq7f',1,0,'',303,0,0),(36859,7975,3,303,0,'72.199.41.171',1188312350,1,0,1,1,1,0,'','','I should point out that this delete method should more properly be a method of the browse not the database class since it is dealing with browse issues not database issues. Making it a method of the database class means that you cannot use it when not browsing.\n\nIt is curious that none of the browses have delete methods. They would have to also handle arrays.\n\nAn alternative would be to make the above delete method of the datbase class something like browseDelete() instead.\n\nJames','',0,'AIA=','1ptgpqeb',1,0,'',303,0,0),(36860,8001,3,303,0,'72.199.41.171',1188312724,1,0,1,1,1,0,'','','&gt;The way i\'ve done it in the past is to open the database in more than one area with a diferent alias.\n\nWith my database class, TData, all that is handled automatically.\n\noSchedule1:= TData():new(,\"schedule\")\noSchedule2:= TData():new(,\"schedule\")\noSchedule3:= TData():new(,\"schedule\")\noSchedule4:= TData():new(,\"schedule\")\n\nThen browse each oSchedule object. No dealing with aliases. Easy!\n\nMore about TData is here.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nJames','',0,'AIA=','bbzrjhtv',1,0,'',303,0,0),(36861,7988,3,137,0,'151.38.8.195',1188314589,1,0,1,1,1,0,'','Edit control unicode support','I tryed until now to understand Unicode Api, but it seem more difficult to implement than I believed. I\'m trying with a single byte east europe font for my controls... but again I can\'t see the special chars. I see special chars in notepad but not in my fwh app.\n\nAren\'t east europe programmers in this forum?\n\nMany thx in advance.\n\nRegards,\nRoberto Parisi','',0,'AIA=','2w7en2jj',1,0,'',137,0,0),(36862,7989,6,138,0,'189.141.65.96',1188315815,1,0,1,1,1,1,'','','Los cajones de dinero no dan informacion bi-direccional, es decir, solo reciben, pero no envian.\n\nEn otras palabras, puedes enviar un pulso por el puerto serie para abrirlos, pero eso es todo, el cajon no tiene circuito de retroalimentación que te indique si esta abierto o cerrado.','',0,'AIA=','23d65x5d',1,0,'',138,0,0),(36863,7972,3,138,0,'189.141.65.96',1188316106,1,0,1,1,1,1,'','','I used to use Luis\' SMTP class until I had the need to send over 500 emails per hour with attachments in different formats.\n\nI switched to Funcky SMTP component and it works great, even with servers requiring authentication.','',0,'AIA=','2q60xf6k',1,0,'',138,0,0),(36864,8002,4,277,0,'81.72.105.247',1188318953,1,0,1,1,1,0,'','Tab Control, Pages and Menu','Hi all,\nI\'m here again.\n\nI need some way to do multipage on a window.\n\nI seen TestPage and TestTab examples but them don\'t fit my needs.\n\nTestPage is built on resources and i prefere avoid resources, is \npossible build it without res and full screen?\n\nTestTab is fine, but have not TTabs attached, and i don\'t seen TTab\nsource. How can i build multipage with TabControl must i hide and show\ncontrols or there are a better way?\n\nThe last question is about Menus. Can i build a menu without resources?\n\nMany thanks.\nClaudio','',0,'AIA=','fumg3rc8',1,0,'',277,0,0),(36865,7989,6,940,0,'189.157.99.67',1188320819,1,0,1,1,1,1,'','','La otra seria programar a la capturista,,\n\nque nos avise cuando el cajon este abierto,\n\njeje\n\nsaludos.','',0,'AIA=','5lpjiad5',1,0,'',940,0,0),(36866,8003,6,911,0,'200.72.141.53',1188321287,1,0,1,1,1,0,'','Consulta sobre wbrowse de hernán','Hola:\nEstoy empezando a utilizar el método leditcol de la clase de hernán y me gustaría saber si alguien de ustedes tiene algún ejemplo de como utilizarla ampliamente y poder agregar un botón tipo bmpget para llamar a un dialogo de búsqueda dentro de la columna que está siendo editada.\nGracias\nDavid Lagos S.\nCoquimbo-Chile','',0,'AIA=','1sfjv9fu',1,0,'',911,0,0),(36867,8004,6,987,0,'189.132.29.116',1188324647,1,0,1,1,1,0,'','Imprimir reporte desde Array','Saludos de nuevo colegas de foro:  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEsta vez para molestarlos con lo siguiente, resulta que necesito imprimir un reporte tipo columnas con existencia, costos y total de productos existentes en cada almacen de trabajo. <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\n<!-- m --><a class=\"postlink\" href=\"http://img204.imageshack.us/my.php?image=reportedz8.jpg\">http://img204.imageshack.us/my.php?image=reportedz8.jpg</a><!-- m -->\n\nYa lo he intentado con TPrinter, TDosPrn, pero no permite la impresion en Lanscape, y si lo hago con texto comprimido pues tampoco queda porque lo hago desde un array de X cantidad de almacenes, <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x -->  necesito hacerlo con TReport ya que tambien tengo que incluir un logo y en landscape\n\nLa forma más facil de hacerlo es con TReport porque se ajusta la horientacion de la pagina dependiendo si el reporte es demasiado largo, hasta donde lo he intentado la cuestion es que no tengo ni pizca idea de como generar y vizualizar  el reporte desde array, lo intente con el metodo aColumns, pero no encuentro documentación de como usarlo.. \n\nAgradesco de ante mano cualquier ayuda que me puedan brindar..\n\n\nI.S.C. Víctor Daniel Cuatécatl León','',0,'AIA=','2m2goz4e',1,0,'',987,0,0),(36868,8003,6,36,0,'164.77.81.210',1188330229,1,0,1,1,1,1,'','','En el Ejemplo nº 1 de la clase de wBrowse de hernan esta lo que necesitas\n\npor si no lo tienes\n\n[code:2f57vwd4]#include &quot;fivewin&#46;ch&quot;\n\nFunction Main&#40;&#41;\n LOCAL aTotal&#58;= &#123;0,0,0, Nil, Nil, Nil&#125;\n LOCAL aDatos&#58;= &#123;&#125; // Array MultiDimensional\n                   // Cod&#46;Art&#46;  Descrip&#46;  Cantidad  $Unitario  $Total  MarcaDeNuevo\n LOCAL l3d&#58;= &#46;F&#46;\n LOCAL oDlg, oLbx, cPic&#58;= &quot;@ze 999,999&#46;99&quot;, oFont\n LOCAL hBmp&#58;= ReadBitMap&#40; 0, &quot;finger&#46;bmp&quot; &#41; // Dedicado a mi amigo Mario Goanzalez\n\n    If Alert&#40;&quot;Quiere verlo en 3D ??&quot;, &#123;&quot;Aceptar&quot;,&quot;Cancelar&quot;&#125;&#41; == 1\n       l3D&#58;= &#46;T&#46;\n    EndIf\n\n    DEFINE FONT oFont NAME &quot;Times New Roman&quot; SIZE 0,-15 BOLD\n\n    DEFINE DIALOG oDlg FROM 0,0 TO 21,55 TITLE &quot;&#58;&#58;bEdit\'s TWBrowse Power !!!&quot;\n\n       TWBrowse&#40;&#41;&#58;lHScroll&#58;= &#46;F&#46;\n       @2,2 LISTBOX oLbx FIELDS &quot;&quot;                                      ;\n                         HEADER &quot;Id&quot;,&quot;Articulo&quot;, &quot;Descripcion&quot;, &quot;Cantidad&quot;,  ;\n                                &quot;Unitario&quot;, &quot;Total&quot;                     ;\n                         OF oDlg SIZE 207,100 PIXEL                     ;\n                         SIZES 25,50, 130, 67,60,60\n\n       oLbx&#58;bLine&#58;= &#123;|nAt| nAt&#58;= oLbx&#58;nAt,                      ;\n                               If&#40; Len&#40;aDatos&#41;&lt;1 &#46;or&#46; nAt&gt;Len&#40;aDatos&#41;,;\n                                 Array&#40;6&#41;,                            ;\n                                 &#123; If&#40; oLbx!=Nil &#46;and&#46; oLbx&#58;lSelect, hBmp, 0 &#41;,;\n                                   If&#40; aDatos&#91;nAt,1&#93;==0,Space&#40;4&#41;,StrZero&#40; aDatos&#91;nAt,1&#93;, 4 &#41; &#41;,    ;\n                                   aDatos&#91;nAt,2&#93;,                       ;\n                                   Transform&#40; aDatos&#91;nAt,3&#93;, cPic &#41;,    ;\n                                   Transform&#40; aDatos&#91;nAt,4&#93;, cPic &#41;,    ;\n                                   Transform&#40; aDatos&#91;nAt,5&#93;, cPic &#41;  &#125; &#41; &#125;\n\n           oLbx&#58;aJustify&#58;= &#123; 2, 2, &#46;f&#46;, &#46;t&#46;, &#46;t&#46; , &#46;t&#46; &#125;\n           oLbx&#58;SetArray&#40; aDatos &#41;\n\n           oLbx&#58;lAdjLastCol&#58;= &#46;f&#46;\n\n           oLbx&#58;lAutoEdit  &#58;= &#46;t&#46;\n           oLbx&#58;lAutoSkip  &#58;= &#46;t&#46;\n\n           oLbx&#58;nLineStyle  &#58;= 2\n           oLbx&#58;nHeaderStyle&#58;= 2\n\n           oLbx&#58;bBkColor&#58;= &#123;|nRow,nCol,nStyle| ;\n                              if&#40; nStyle==1,if&#40; nCol%2==0, CLR_RED   , CLR_GREEN &#41;,&#41; &#125;\n           oLbx&#58;bTextColor&#58;= &#123;|nRow,nCol,nStyle| ;\n                              if&#40; nStyle==1,if&#40; nCol%2==0, CLR_YELLOW, CLR_WHITE &#41;,&#41; &#125;\n\n           If l3D\n              oLbx&#58;Set3DStyle&#40;&#41;\n           EndIf\n\n\n           oLbx&#58;bEdit&#58;= &#123;|nCol, cBuffer, lFirstEdit|;\n                          EditaCelda&#40; oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal &#41; &#125;\n\n\n       @105, 110 SAY &quot;Neto Gravado &quot; OF oDlg PIXEL\n       @115, 110 SAY &quot;I&#46;V&#46;A&#46; 21%   &quot; OF oDlg PIXEL\n       @125, 110 SAY &quot;Total        &quot; OF oDlg PIXEL\n       @105, 150 SAY aTotal&#91;4&#93; PROMPT aTotal&#91;1&#93; PICTURE \'@ZE 999,999&#46;99\' OF oDlg PIXEL RIGHT SIZE 50,10\n       @115, 150 SAY aTotal&#91;5&#93; PROMPT aTotal&#91;2&#93; PICTURE \'@ZE 999,999&#46;99\' OF oDlg PIXEL RIGHT SIZE 50,10\n       @125, 150 SAY aTotal&#91;6&#93; PROMPT aTotal&#91;3&#93; PICTURE \'@ZE 999,999&#46;99\' OF oDlg PIXEL RIGHT SIZE 50,10\n\n\n       @137,10  BUTTON &quot;Agrega&quot; OF oDlg PIXEL ;\n                ACTION &#40; NewReg&#40; aDatos, oLbx &#41;, oLbx&#58;Edit&#40;&#41; &#41;  SIZE 50,Nil\n\n       @137,80  BUTTON &quot;Modifica&quot; OF oDlg PIXEL ;\n                ACTION If&#40; Len&#40;aDatos&#41; &gt; 0 &#46;and&#46;                      ;\n                           oLbx&#58;nAt &lt;= Len&#40;aDatos&#41; &#46;and&#46; oLbx&#58;nAt &gt; 0,;\n                           oLbx&#58;Edit&#40;&#41;, &#41;       SIZE 50,Nil\n\n       @137,150 BUTTON &quot;Elimina&quot; OF oDlg PIXEL ;\n                ACTION If&#40; Len&#40;aDatos&#41; &gt; 0 &#46;and&#46;                      ;\n                           oLbx&#58;nAt &lt;= Len&#40;aDatos&#41; &#46;and&#46; oLbx&#58;nAt &gt; 0 &#46;and&#46;  ;\n                           Alert&#40;&quot;Borra ?&quot;,&#123;&quot;ok&quot;,&quot;Cancela&quot;&#125;&#41; == 1,      ;\n                           DelReg&#40; aDatos, oLbx, aTotal &#41;,&#41;  SIZE 50,Nil\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n\n RELEASE FONT oFont\n ReleaseDC&#40; hBmp &#41;\n\nreturn Nil\n\n//----------------------------------------------------------------------------//\nFunction GetSysFont&#40;&#41; ; return &quot;MS Sans Serif&quot;\n//----------------------------------------------------------------------------//\nSTATIC Function EditaCelda&#40; oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal &#41;\n LOCAL aResult, nAt&#58;= oLbx&#58;nAt, uBuffer, lContinue&#58;= &#46;t&#46;\n LOCAL bValid, nColReal&#58;= nCol\n\n    nCol--  // Para que sea como si no exisiera BitMap\n\n    uBuffer&#58;= aDatos&#91;nAt,nCol&#93;\n\n    While &#46;t&#46;\n\n       Do Case\n          Case &#40; nCol == 2 &#46;or&#46; nCol == 5 &#41; &#46;and&#46; lFirstEdit\n               Alert&#40; &quot;Columnas NO EDITABLES&quot; &#41;\n               return &#46;f&#46;\n\n          Case nCol == 1\n               bValid&#58;= &#123;|| If&#40; Empty&#40; aResult&#58;= SeekItem&#40; uBuffer &#41; &#41;, ;\n                            &#40;Alert&#40; &quot;Codigo Articulo Inexistente &#58;-&#40;&quot;&#41;,&#46;F&#46;&#41; , &#46;T&#46; &#41; &#125;\n\n               If lContinue&#58;= oLbx&#58;lEditCol&#40; nColReal, @uBuffer, &quot;@ZE 9999&quot;, bValid,,CLR_YELLOW &#41;\n                  aDatos&#91;nAt,1&#93;&#58;= uBuffer\n                  aDatos&#91;nAt,2&#93;&#58;= aResult&#91;1&#93;\n                  aDatos&#91;nAt,4&#93;&#58;= aResult&#91;2&#93;\n               EndIf\n\n          Case nCol == 3  // Cantidad\n               If lContinue&#58;= oLbx&#58;lEditCol&#40; nColReal,  @uBuffer, &quot;@ZE 999,999&#46;99&quot;,,,CLR_YELLOW &#41;\n                  If uBuffer &lt;= 0\n                     Alert&#40;&quot;Debe Especificar una cantidad !!!&quot;&#41;\n                     Loop\n                  EndIf\n                  aDatos&#91;nAt,3&#93;&#58;= uBuffer\n               EndIf\n\n          Case nCol == 4  // Unitario\n               If lContinue&#58;= oLbx&#58;lEditCol&#40; nColReal, @uBuffer, &quot;@ZE 999,999&#46;99&quot;,,,CLR_YELLOW &#41;\n                  aDatos&#91;nAt,4&#93;&#58;= uBuffer\n                  aDatos&#91;nAt,6&#93;&#58;= &#46;f&#46;  // Ya no es un Nuevo Registro !!!\n               EndIf\n\n          Case nCol == 5 &#46;and&#46; ! lFirstEdit &#46;and&#46; Len&#40; aDatos &#41; == nAt\n               NewReg&#40; aDatos, oLbx &#41;\n\n       EndCase\n\n       If ! lContinue &#46;and&#46; aDatos&#91;nAt,6&#93; // Se habia agregado un nuevo Item !!!\n          If Alert&#40; &quot;Cancela este Nuevo Registro&quot;, &#123; &quot;Ok&quot;,&quot;Cancelar&quot; &#125; &#41; == 1\n             DelReg&#40; aDatos, oLbx, aTotal &#41;\n             return &#46;f&#46;\n          Else\n             Loop\n          EndIf\n       EndIf\n\n       Exit\n\n    EndDo\n\n    If Len&#40; aDatos &#41; &gt; 0\n       aDatos&#91;nAt,5&#93;&#58;= Round&#40; aDatos&#91;nAt,3&#93; * aDatos&#91;nAt,4&#93;, 2 &#41;\n       Suma&#40; aDatos, aTotal &#41;\n    EndIf\n\n\n    If lContinue\n       Do Case\n       Case oLbx&#58;nLastKey == VK_UP\n          return If&#40; !GetKeyState&#40;VK_SHIFT&#41;, -3, -2 &#41;\n       Case oLbx&#58;nLastKey == VK_DOWN\n          return If&#40; !GetKeyState&#40;VK_SHIFT&#41;,  3,  2 &#41;\n       Case oLbx&#58;nLastKey == VK_TAB\n          return If&#40; GetKeyState&#40;VK_SHIFT&#41;, -1, 1 &#41;\n       EndCase\n    EndIf\n\n\nreturn lContinue\n\n\n//----------------------------------------------------------------------------//\nSTATIC Function SeekItem&#40; nCod &#41;  // Simulamos busqueda en Base de Datos &#58;-&#41;\n\n    If nCod &gt;= 1 &#46;and&#46; nCod &lt;= 500\n       return &#123; &quot;Producto &quot; + StrZero&#40; nCod, 4 &#41;, nCod + 0&#46;55 &#125;\n    EndIf\n\nreturn &quot;&quot;\n//----------------------------------------------------------------------------//\nSTATIC Function NewReg&#40; aDatos, oLbx &#41;\n    Aadd&#40; aDatos, &#123;0,&quot;&quot;,0,0,0,&#46;t&#46;&#125; &#41;\n    oLbx&#58;Refresh&#40;&#41;\n    oLbx&#58;lHitBottom&#58;= &#46;f&#46;\n    oLbx&#58;GoBottom&#40;&#41;\n    SysRefresh&#40;&#41;\nreturn Nil\n//----------------------------------------------------------------------------//\nSTATIC Function DelReg&#40; aDatos, oLbx, aTotal &#41;\n    ADel&#40; aDatos, oLbx&#58;nAt &#41;\n    ASize&#40; aDatos, Len&#40; aDatos &#41; - 1 &#41;\n    oLbx&#58;GoUp&#40;&#41;\n    oLbx&#58;Refresh&#40;&#41;\n    Suma&#40; aDatos, aTotal &#41;\nreturn Nil\n//----------------------------------------------------------------------------//\nSTATIC Function Suma&#40; aDatos, aTotal &#41;\n    aTotal&#91;1&#93;&#58;= 0\n    AEval&#40; aDatos, &#123;|aItem| aTotal&#91;1&#93;+= aItem&#91;5&#93; &#125; &#41;\n    aTotal&#91;1&#93;&#58;= Round&#40; aTotal&#91;1&#93;, 2 &#41;\n    aTotal&#91;2&#93;&#58;= Round&#40; aTotal&#91;1&#93; * 0&#46;21, 2 &#41;\n    aTotal&#91;3&#93;&#58;= Round&#40; aTotal&#91;1&#93; + aTotal&#91;2&#93;,2 &#41;\n    AEval&#40; aTotal, &#123;|oSay| oSay&#58;Refresh&#40;&#46;F&#46;&#41; &#125;, 4 &#41;\n\nreturn Nil\n//----------------------------------------------------------------------------//\n[/code:2f57vwd4]','',0,'AIA=','2f57vwd4',1,0,'',36,0,0),(36869,7990,6,945,0,'217.216.165.137',1188334248,1,0,1,1,1,0,'','','Muy buenas, sigo buscando pero no encuentro nada en concreto, me podéis decir algún ejemplo.\n\nUn Saludo.','',0,'AIA=','1edyt8bs',1,0,'',945,0,0),(36870,7989,6,53,0,'189.139.25.103',1188336127,1,0,1,1,1,1,'','','Paco:\n\nYa entrados en gastos  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> si no puedes detectar cuando un cajón esta abierto entonces detecta cuando este cerrado, algo así como\n\nIF ! CajonAbierto()   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nUn abrazo','',0,'AIA=','18sdzmo1',1,0,'',53,0,0),(36871,8005,3,86,0,'81.83.185.118',1188337081,1,0,1,1,1,1,'','Problem with shortcuts','Hello,\n\nOn a PC with Windows 2000 I have installed my FWH application. By this I replaced a previous version which was FW 16-bits.\n\nI made a new shortcut for this FWH application on the desktop of this PC. If I doubleclick one of these shortcuts, the whole PC hangs completely and I do have to reboot the PC.\n\nIf I delete the shortcut and make a new one, the FWH application starts once or twice but later the PC hangs completely again.\n\nDoes anyone know what the problem might be ? It does not happen to other applications.\n\nThank you very much in advance.','',0,'AIA=','r6eekhfw',1,0,'',86,0,0),(36872,8004,6,278,0,'200.126.97.48',1188337391,1,0,1,1,1,1,'','','Hola Victor:\n\nYo lo hago asi,  y funciona perfecto:\n\nDonde aDatos, es el array con las columnas a imprimir:\n\n\n[code:zj4mdiic]\n// --------------------------------------------------------------------- \nFUNCTION Imprime_Rep100&#40; aDatos &#41;\n// --------------------------------------------------------------------- \n\n	Local oFont		&#58;= Array&#40; 3 &#41;\n	Local oReport   &#58;= NIL\n  	Local nI  	 	&#58;= 0\n    Local nField 	&#58;= 1\n	\n  	DEFINE FONT oFont&#91;1&#93; NAME &quot;ARIAL&quot; SIZE 0, -12 BOLD   \n  	DEFINE FONT oFont&#91;2&#93; NAME &quot;ARIAL&quot; SIZE 0, -9         \n  	DEFINE FONT oFont&#91;3&#93; NAME &quot;ARIAL&quot; SIZE 0, -10 BOLD   \n\n	PrinterSetup&#40;&#41;\n	\n    REPORT oReport TITLE &quot;ARTICULOS POR BODEGAS al &quot; + DTOC&#40; Date&#40;&#41; &#41;   ;\n	FONT oFont&#91;1&#93;, oFont&#91;2&#93; , oFont&#91;3&#93;		  ;\n	PREVIEW 				;\n    CAPTION &quot;ARTICULOS EN LAS BODEGAS &quot;  ;\n	FOOTER &quot;Pág&#58; &quot; + Padl&#40; oReport&#58;nPage , 4 ,\'0\' &#41; ;\n	CENTERED	\n	\n    COLUMN TITLE &quot;BODEGA&quot; 			DATA aDatos&#91; nField ,1 &#93;   SIZE 10 FONT 2 LEFT\n    COLUMN TITLE &quot;CODIGO&quot; 			DATA aDatos&#91; nField ,2 &#93;   SIZE 15 FONT 2 LEFT\n    COLUMN TITLE &quot;ARTICULO&quot;			DATA aDatos&#91; nField ,3 &#93;   SIZE 30 FONT 2 LEFT\n    COLUMN TITLE &quot;CANTIDAD&quot;	    	DATA aDatos&#91; nField ,4 &#93;   SIZE 15 FONT 2 RIGHT  PICTURE &quot;@E 999,999,999&#46;99&quot;\n \n\n  	END REPORT\n	\n  	oReport&#58;CellView&#40;&#41;            \n\n	oReport&#58;aColumns&#91;2&#93;&#58;bTitleFont &#58;= &#123; || 3         &#125;\n    oReport&#58;bSkip                  &#58;= &#123; || nField++  &#125;\n	\n    ACTIVATE REPORT oReport  WHILE nField &lt;= LEN&#40; aDatos &#41;  \n\n    oFont&#58;= NIL\n\nRETURN NIL\n[/code:zj4mdiic]\n\nSaludos ,','',0,'AIA=','zj4mdiic',1,0,'',278,0,0),(36873,8004,6,138,0,'189.141.65.96',1188339314,1,0,1,1,1,1,'','','Es super facil......\n\nTienes el ejemplo en la carpeta \\FWxx\\samples\\report.\n\nBásicamente la cosa funciona asi:\n\nDefines una variable que va a ser tu \"contador\" registros, como lo puso Juan en su ejemplo anterior:\n\nnField := 1\n\nLuego defines todas tus columnas como elementos del array:\n\nCOLUMN DATA Campo[nField, 1] Title \"columna 1\"\nCOLUMN DATA Campo[nField, 2] TITLE \"columna 2\"\n....\n...\n...\n\nLa gracia del invento consiste en conocer las DATAS del objeto reporte controlan tanto el flujo de datos, como el salto entre registros, para ello tendrás que retocar 2 cosilla:\n\nACTIVATE REPORT oRep WHILE nField &lt;= LEN(Campo)\n\nLo cual ejecutara el reporte mientras tu contador sea menor o igual a lo que mida tu array\n\ny lo mas importante, el control de salto de registro esta dado por un bloque de código:\n\noRep:bSkip \n\nEste bloque de codigo por default tiene un {|| dbskip() }, lo unico que tienes que hacer cambiar el bloque de salto por uno que salte arrays en vez de saltar registros de campos, en este caso:\n\noRep:bSkip := {|| nField++}\n\nY listo, eso es todo.\n\nComo te dije, tienes el ejemplo en la carpeta SAMPLES de tu instalación original de FiveWin.','',0,'','1g0obse3',1,0,'',138,0,0),(36874,7988,3,2,0,'87.218.146.242',1188340469,1,0,1,1,1,1,'','','Roberto,\n\nSome interesting readings:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fileformat.info/tip/microsoft/enter_unicode.htm\">http://www.fileformat.info/tip/microsof ... nicode.htm</a><!-- m -->','',0,'','20uchzgx',1,0,'',2,0,0),(36875,7982,6,2,0,'87.218.146.242',1188341251,1,0,1,1,1,1,'','','César,\n\nA Simón, que preguntó la cuestión, se le envió un módulo actualizado y no volvió a preguntar nada más, luego suponemos que se solucionó','',0,'','3ovoius2',1,0,'',2,0,0),(36876,7994,6,2,0,'87.218.146.242',1188341371,1,0,1,1,1,1,'','','Horacio,\n\nDebería funcionar bien pero tienes que crearlos desde la claúsula ON INIT del diálogo:\n\nACTIVATE DIALOG oDlg ON INIT CreaRebar( oDlg )\n\nfunction CreaRebar( oDlg )\n\naqui creas la rebar\n\nreturn nil','',0,'','1a6s8qvp',1,0,'',2,0,0),(36877,8005,3,2,0,'87.218.146.242',1188341641,1,0,1,1,1,1,'','','Michel,\n\nRight click on the desktop shortcut icon and select \"run on a separated memory address\" (or similar)\n\nAlso, double check that the Windows 2000 have all the service packs installed','',0,'','3cb5jes6',1,0,'',2,0,0),(36878,8006,6,760,0,'200.62.254.137',1188342222,1,0,1,1,1,0,'','tdbf a 32 bits','Hola a todos del foro\n\nAlguien tendria el tdbf a 32 bits compilado para xharbour y fwh, el que tenia lo tengo a 16 bits, ya compile y no me salio, tengo problemas.\nsi alguien lo compilo sin errores y esta operativo por favor si podrian enviarme una copia de la lib.\n\nGracias\n\nSalu2\n\nFrancis','',0,'','1cjg2fv1',1,0,'',760,0,0),(36879,8004,6,987,0,'189.132.33.229',1188348120,1,0,1,1,1,0,'','','[b:2unhpp9g]RF:[/b:2unhpp9g]\n[b:2unhpp9g]jcaro:[/b:2unhpp9g]\n\nGracias por sus respuestas, reviso los ejemplos y con los datos que me acaban de mencionar ya tengo una idea mas clara para poder generar mi reporte, mis agradecimientos a los dos y espero mañana comentar que paso y poner una captura de pantalla para que vean como quedo..\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Saludos desde Chiapas..\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'QA==','2unhpp9g',1,0,'',987,0,0),(36880,8007,7,1135,0,'189.137.183.169',1188348305,1,0,1,1,1,1,'','Como presentar imagenes JPG','Hola a todos\nTengo una tabla con referencias  a archivos de imagenes, la idea es hacer una función que despliegue una imagen a partir del nombre del archivo que la contiene.','',0,'QA==','1fb6x5cz',1,0,'',1135,0,0),(36881,8001,3,620,0,'65.245.57.110',1188350085,1,0,1,1,1,0,'','','James,\nThanks for the info there.  I have to admit, as a \"weekend programmer\", alot of the concepts of METHODS are beyond me right now...came from the old Procedural coding school....object oriented im just now beginning to grasp...laugh...but I am learning alot!   I\'ll keep your Tbrowse in mind as I start progressing.\n\nI did the multiple area coding...was simple enough and works fine for what I am implementing.  One last thing I need to figure out now though is how to keep the current record in each of the browses from being highlighted unless the focus is on that particular browse....how do I code that?\n\nI am using color text and highlights based on data (nclrpane, nclrtext) and having that highlighted line throws the whole scheme off.\n\nThanks again!\nGreg','',0,'QA==','cig5s3bp',1,0,'',620,0,0),(36882,8001,3,620,0,'65.245.57.110',1188351645,1,0,1,1,1,0,'','','One more question while Im at it....\nIn these particular browses which have filters...when there should be NO data in a browse, there is still a blank data line (with empty date fields ... \"  /  /    \" and \"0\" in numeric fields....how can I blank this out?   Just another annoyance....laugh','',0,'QA==','etupu1gh',1,0,'',620,0,0),(36883,8007,7,138,0,'189.141.65.96',1188352069,1,0,1,1,1,1,'','','De momento no hay soporte a otro tipo de formato que no sea BMP.\n\nPara visualizar otro tipo de formato grafico en FiveWin para Windows se requiere de una DLL de terceros que no existe para Pocket PC.\n\nIgnoro si alguien haya encontrado una lib para desplegar otros formatos de archivos distintos a BMP','',0,'QA==','1417lwpg',1,0,'',138,0,0),(36884,8006,6,138,0,'189.141.65.96',1188352233,1,0,1,1,1,1,'','','¿ Pero para que quieres la lib ?, agrega el PRG con el fuente de la clase a tu lista de archivos de codigo fuente y listo.\n\nEl codigo fuente es igual para 16 y para 32.\n\ny ahora que lo menciono .... ¿ que la TDBF no es parte ya de FiveWin ?','',0,'QA==','gbufs0l4',1,0,'',138,0,0),(36885,8006,6,456,0,'217.127.39.57',1188370173,1,0,1,1,1,1,'','','tDatabase es parte de Fivewin, tDbf no.','',0,'QA==','2xvxrhh6',1,0,'',456,0,0),(36886,7988,3,137,0,'151.38.8.195',1188370916,1,0,1,1,1,0,'','Edit control unicode support','Thx Antonio, but I didn\'t have success.\n\nI\'m now trying with an ANSI SBCS font (XSerif CE), but chars over 127 are different in testmemo and in notepad.\n\nRegards,\nRoberto Parisi','',0,'QA==','3t6aly7a',1,0,'',137,0,0),(36887,7717,6,316,0,'213.97.245.163',1188372527,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:4b50zo2g]Carlos,\n\nCuando se llega a producir un error de ese tipo de pintado, normalmente se debe a que se ha empleado demasiado tiempo en el proceso de pintado y algunos mensajes de Windows no se han llegado a procesar[/quote:4b50zo2g]\n\nHola Antonio,\ncomo habrás notado he capado el código de los botones para que haga todo rápido, y solo he dejado el pintado del fondo, lo cual es mucho más liviano que pintar/repintar el fondo del xBrowse, sin embargo el problema persiste, obviamente con mucha menos frecuencia. \n¿Hay forma de saber si algún mensaje de Windows no se ha procesado?\n¿Para que se usa la variable nPaintCount? He visto que se incrementa en el beginPaint y decrementa en el endpaint\nSaludos','',0,'gA==','4b50zo2g',1,0,'',316,0,0),(36888,8007,7,2,0,'87.218.146.242',1188372641,1,0,1,1,1,1,'','','Arturo,\n\nEl ejemplo samples\\Tutor11.prg te permite mostrar una imagen BMP en una ventana.','',0,'gA==','p4u20v6p',1,0,'',2,0,0),(36889,7717,6,2,0,'87.218.146.242',1188372999,1,0,1,1,1,1,'','','Carlos,\n\n&gt; ¿Hay forma de saber si algún mensaje de Windows no se ha procesado? \n\nHay quecrear un fichero login a disco con todos los mensajes que se reciben y con todos los valores que se devuelven. No es simple y además eso enlentece aún más el proceso de mensajes. Has probado a quitar el pintado a doble buffer como te indiqué anteriormente ?\n\n&gt; ¿Para que se usa la variable nPaintCount\n\nPara que llamadas a &lt;oWnd&gt;:ReleaseDC() no destruyan el hDC antes de tiempo','',0,'gA==','187490gq',1,0,'',2,0,0),(36890,7988,3,2,0,'87.218.146.242',1188373294,1,0,1,1,1,1,'','','Roberto,\n\nAre you using the same font in both the notepad and testmemo ?','',0,'gA==','3w4idger',1,0,'',2,0,0),(36891,7988,3,137,0,'151.38.8.195',1188374015,1,0,1,1,1,0,'','Edit control unicode support','Yes. This is a simplified testmemo code:\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n   local oDlg, oGet, oFont, cText := \"\"\n   define font oFont name \"XSerif CE\" size 0, 20\n   define dialog oDlg title \"Font test\" from 0,0 to 200, 400 pixel\n   @0,0 get oGet var cText memo font oFont\n   activate dialog oDlg centered on init oGet:SetCoors(oDlg:GetCliRect())\nreturn nil\n\nYou can download the font from: <!-- m --><a class=\"postlink\" href=\"http://www.slovo.info/Download/xserce.zip\">http://www.slovo.info/Download/xserce.zip</a><!-- m -->\n\nSome chars to test: &#282;&#283;&#268;&#269;&#367;&#366;\n\nRegards,\nRoberto Parisi','',0,'gA==','3eyfczog',1,0,'',137,0,0),(36892,8002,4,2,0,'87.218.146.154',1188374692,1,0,1,1,1,1,'','','Claudio,\n\n&gt; Can i build a menu without resources ? \n\nThere is no way to create a main pulldown menu without resources. Windows Mobile does not allow it.\n\nSo if you need a main menu, and then you need to use resources, you may be able to use resources for testpage sample. Its the easiest way','',0,'gA==','1gur2s89',1,0,'',2,0,0),(36893,8008,19,2,0,'87.218.146.154',1188374910,1,0,1,1,1,1,'','See together. Be together.','<!-- m --><a class=\"postlink\" href=\"http://www.yuuguu.com/\">http://www.yuuguu.com/</a><!-- m -->','',0,'gA==','2bd8izfh',1,0,'',2,0,0),(36894,8009,6,1105,0,'81.47.147.139',1188376710,1,0,1,1,1,0,'','fsdi','Hola compañeros,\n\nHe bajado la clase fsdi pero el ejemplo no funciona. Al seleccionar cualquiera de los browses de ejemplo, da el siguiente error. ¿Alguien tiene un exe que funcione?. Mil gracias!!!\n\nApplication\n===========\n   Path and name: C:\\fsdi2006\\fsdi.exe (32 bits)\n   Size: 1,671,680 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 28-08-2007, 11:36:27\n   Error description: Error BASE/1004  Message not found: TFSDI:NYMOVE\n\nStack Calls\n===========\n   Called from:  =&gt; TFSDI:ERROR(179)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TFSDI:MSGNOTFOUND(0)\n   Called from: tfsdi.prg =&gt; TFSDI:NYMOVE(167)\n   Called from: tfsdi.prg =&gt; TFSDI:NEW(24)\n   Called from: pcustomer.prg =&gt; CUSTOMER(39)\n   Called from: main.prg =&gt; (b)TAPPLICATION:BUILDBTNBAR(186)\n   Called from: BTNBMP.prg =&gt; TBTNBMP:CLICK(319)\n   Called from: BTNBMP.prg =&gt; TBTNBMP:LBUTTONUP(487)\n   Called from: WINDOW.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.prg =&gt; TBTNBMP:HANDLEEVENT(1322)\n   Called from: WINDOW.prg =&gt; _FWH(3128)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.prg =&gt; TWINDOW:ACTIVATE(881)\n   Called from: main.prg =&gt; TAPPLICATION:ACTIVATE(146)\n   Called from: main.prg =&gt; MAIN(35)','',0,'gA==','3ufnk99p',1,0,'',1105,0,0),(36895,8001,3,460,0,'217.37.54.49',1188376974,1,0,1,1,1,0,'','','[quote=&quot;Greg Gammon&quot;:1fb6ebm9]One more question while Im at it....\nIn these particular browses which have filters...when there should be NO data in a browse, there is still a blank data line (with empty date fields ... \"  /  /    \" and \"0\" in numeric fields....how can I blank this out?   Just another annoyance....laugh[/quote:1fb6ebm9]\n\nyou need to use the folowing:\n\noBrw:bLogicLen := {|| number of records in the list }\n\nafter you have set your scope/filters etc add the above line and insert the number of records in the filter/scope.  Be carefull if you can have a lot of records in the dbf. \n\nHope that helps\n\nPete','',0,'gA==','1fb6ebm9',1,0,'',460,0,0),(36896,7717,6,316,0,'213.97.245.163',1188381725,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2su3mord]\n\n&gt; ¿Hay forma de saber si algún mensaje de Windows no se ha procesado? \n\nHay quecrear un fichero login a disco con todos los mensajes que se reciben y con todos los valores que se devuelven. No es simple y además eso enlentece aún más el proceso de mensajes. Has probado a quitar el pintado a doble buffer como te indiqué anteriormente ?\n[/quote:2su3mord]\nSi, fue una de las primeras cosas que probé. Mejora en algunos casos, pero cuando el pintado es complejo me falla igual. Lo que más me llama la atención es que falla cuando la ventana es de otro proceso. Si es una ventana propia no falla nunca.\n\nRespecto de ver generar el log con los eventos, tambien lo hice y creo que es lo que voy a hacer para ver si el proceso de pintado es interrumpido en algun momento. El punto es como saber si algún WM_PAINT no me ha llegado, que lo veo dificil.\n\n[quote:2su3mord]\n&gt; ¿Para que se usa la variable nPaintCount\n\nPara que llamadas a &lt;oWnd&gt;:ReleaseDC() no destruyan el hDC antes de tiempo[/quote:2su3mord]\n\nDespues de preguntar lo miré y me dí cuenta para que se usa cuando vi ReleaseDC.\n\nSeguiremos investigando. La verdad es que en el trabajo la plantilla todavia no está completa por las vacaciones y hoy los clientes me están matando!\n\nYa te comentaré las pruebas a ver si puedo hacer algo más. Sino tendré que mudar la programación a C, al menos del pintado. Lo que me tiene perdido es que es un pintado muy sencillo como para que falle. Y ese fallo tambien se produce en la barra de mensajes, que es un control bastante sencillo y no debería dar problemas. Cuando se trata de controles nativos de Windows no hay ningun problema, es decir que en algo estoy fallando.\n\nUn saludo,\n\nCarlos','',0,'gA==','2su3mord',1,0,'',316,0,0),(36897,8002,4,277,0,'81.72.105.247',1188382025,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1r7qrtrd]\n\n&gt; Can i build a menu without resources ? \n\nThere is no way to create a main pulldown menu without resources. Windows Mobile does not allow it.\n\nSo if you need a main menu, and then you need to use resources, you may be able to use resources for testpage sample. Its the easiest way\n[/quote:1r7qrtrd]\n\nMany thanks Antonio.\n\nWhich Resources Editor people are using?\n\nIs something wrong in using TabControl and show() and hide() \ncontrols on tab change? maybe the loading time?\n\nBest regards\nClaudio','',0,'gA==','1r7qrtrd',1,0,'',277,0,0),(36898,8002,4,2,0,'87.218.146.242',1188383868,1,0,1,1,1,1,'','','Claudio,\n\n&gt; Which Resources Editor people are using? \n\nYou can use Borland Resources Workshop. Also PellesC free IDE includes one quite popular.\n\n&gt;\nIs something wrong in using TabControl and show() and hide() \ncontrols on tab change? maybe the loading time? \n&gt;\n\nThe way to do it is to hide/show an entire dialog, or it gets very slow.','',0,'gA==','1796kxgc',1,0,'',2,0,0),(36899,7982,6,294,0,'201.254.176.52',1188385512,1,0,1,1,1,1,'','','Gracias Antonio. Efectivamente, le envie un mail a Simon y me envio un .obj para linkar con mi ejecutable ( COMM.OBJ ) y con eso solucioné el problema. \nCesar','',0,'gA==','2b27qt8d',1,0,'',294,0,0),(36900,8009,6,316,0,'213.97.245.163',1188390967,1,0,1,1,1,0,'','','Una pregunta: De donde la bajaste? \nsi mal no recuerdo requiere la clase vtaskbar, por lo que no se como has hecho para compilarla. Yo la hice andar cambiando la clase por un outlook. \nEn realidad FSDI no es tanto un control sino un modelo de presentación de las aplicaciones, por lo que te recomiendo que veas para que la usa José Luis, y de paso veas su trabajo que siempre está muy bien terminado.\n\nUn saludo,\n\nCarlos.','',0,'gA==','34ssluiv',1,0,'',316,0,0),(36901,8010,6,78,0,'190.43.191.20',1188391386,1,0,1,1,1,0,'','Acerca del Puerto Paralelo','Hola amigos, encontre este enlace... aver si algun guru en C le da una mirada,,,\n\n<!-- m --><a class=\"postlink\" href=\"http://www.logix4u.net/inpout32.htm\">http://www.logix4u.net/inpout32.htm</a><!-- m -->\n\nSalu2','',0,'gA==','254plw57',1,0,'',78,0,0),(36902,8001,3,303,0,'72.199.41.171',1188397172,1,0,1,1,1,0,'','','Greg,\n\n&gt;Thanks for the info there. I have to admit, as a \"weekend programmer\", alot of the concepts of METHODS are beyond me right now...came from the old Procedural coding school....object oriented im just now beginning to grasp...laugh...but I am learning alot! \n\nThere are a couple of articles I wrote about programming with OOP on my site also. You will find that it is MUCH simpler than procedural coding, once you get to the \"Ah, Ha!\" point.\n\n&gt;I\'ll keep your Tbrowse in mind as I start progressing.\n\nHmm, there is a TSBrowse on my site, but I was referring in my earlier message to TData, my database class. See this page:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/tdata.htm\">http://ourworld.compuserve.com/homepage ... /tdata.htm</a><!-- m -->\n\nJames','',0,'gA==','28pt7tk5',1,0,'',303,0,0),(36903,8001,3,620,0,'209.189.229.150',1188398082,1,0,1,1,1,0,'','','James,\nMy bad...i meant TData...right.   I do get the beauty of object oriented...sometimes just struggle learning new coding techniques....my code is a mish mash of old style and new style now...heaven forbid anyone would have to come behind me and revise code...slowly but surely it all comes together.  Not knowing any C language though leaves me a bit mystified sometimes at how many methods are implemented...but its a learning process!  Thanks to guys like you who help us all out!!!\n\nStill need to figure out how to keep the current record pointer in a browse from highlighting....any tips?\n\nThanks,\nG','',0,'gA==','1exc5mot',1,0,'',620,0,0),(36904,7975,3,148,0,'196.205.108.55',1188398423,1,0,1,1,1,0,'','','Could you please help in syntax . I failed totaly ?!\nThanks','',0,'gA==','63kug6lp',1,0,'',148,0,0),(36905,8009,6,1105,0,'81.47.147.139',1188398640,1,0,1,1,1,0,'','','Hola:\n\nLa bajé de su weblog y ejecuté el exe que él mismo adjunta. Y en cuanto a la compilación, tengo todos los fuentes extra que usa y sigue dando el mismo error. ¿Tienes tu el exe, sólo el exe?. Muchas gracias.','',0,'gA==','3ienwmzm',1,0,'',1105,0,0),(36906,8011,6,1105,0,'81.47.147.139',1188398794,1,0,1,1,1,0,'','seleccionar impresora en preview','Hola:\n\nMe gustaría poder hacer que en el RPreview se pueda seleccionar la impresora, es decir, al pulsar el botón imprimir que se seleccione la impresora pero estoy algo perdido, sobre todo con los metafiles. Cualquier ayuda será bienvenida.\n\nMil gracias!!!!!!!!!','',0,'gA==','2iccobmz',1,0,'',1105,0,0),(36907,7975,3,303,0,'72.199.41.171',1188399656,1,0,1,1,1,0,'','','Ehab,\n\n&gt;Could you please help in syntax.\n\nI\'m not sure what syntax you mean. Did you mean making a browseDelete() method? If so, you just define it in your class definition and name the method--just the same as the current delete() method you have. Actually, you can just rename it in both places.\n\n[code:379q76b3]class &#46;&#46;&#46; from TData\n   &#46;&#46;&#46;\n   method BrowseDelete&#40;&#41;\nendclass\n\nmethod BrowseDelete&#40;&#41;\n   &#46;&#46;&#46;\nreturn self[/code:379q76b3]\n\nOK, you may be cofused about the way the current delete method is defined. Because \"delete\" is a reserved word, we have to use a special way of defining it. This is only used for reserved words.\n\n[code:379q76b3]class &#46;&#46;&#46; from TData\n   message delete method _delete\nendclass\n\nmethod _delete&#40;&#41;\n&#46;&#46;&#46;\nreturn self[/code:379q76b3]\n\nJames','',0,'AIA=','379q76b3',1,0,'',303,0,0),(36908,8012,6,116,0,'200.96.234.94',1188400147,1,0,0,1,1,0,'','Como excluir ou esconder paginas em um Folder','Olá\n\nPreciso excluir ou esconder paginas em um folder.\n\n   @ 054,002 FOLDER oFldVinc OF oDlgVinc	;\n       PROMPTS \"&amp;1-Folder1\", \"&amp;2-Folder2\", \"&amp;3-Folder3\";\n       DIALOGS \"FOLDER1\", \"FOLDER2\", \"FOLDER3\";\n       PIXEL	;\n       SIZE 315,135\n\n   IF !lFolder1\n       // Aqui exclui ou esconde a pagina\n   ENDIF\n   IF !lFolder2\n       // Aqui exclui ou esconde a pagina\n   ENDIF\n   IF !lFolder3\n       // Aqui exclui ou esconde a pagina\n   ENDIF\n\n-- \n[]\'s\n\nJoão Cezar\nGoiânia / Brasil\n<!-- e --><a href=\"mailto:joao.cezar@cultura.com.br\">joao.cezar@cultura.com.br</a><!-- e -->','',0,'AIA=','2gu2viby',1,0,'',116,0,0),(36909,8001,3,303,0,'72.199.41.171',1188400494,1,0,1,1,1,0,'','','Greg,\n\n&gt;Still need to figure out how to keep the current record pointer in a browse from highlighting....any tips? \n\nFirst let me say that doing this is not standard behavior so I would advise against it. I\'m not saying one should never deviate from the standard but you should have a really good reason for doing so. Users expect programs to all work similarly.\n\nIf you still want to do this, then use oLbx:bLostFocus to change the color of the highlight and then redraw the line (oLbx:drawSelect()). Then use oLbx:bGotFocus to reset it. \n\n[code:5rn443py]oLbx&#58;bLostFocus&#58;=&#123;||   oLbx&#58;nClrForeFocus&#58;= rbg&#40;&#46;&#46;&#46;, &#46;&#46;&#46;&#41;,   oLbx&#58;nClrBackFocus&#58;= rgb&#40;&#46;&#46;&#46;, &#46;&#46;&#46;&#41;, oLbx&#58;drawSelect&#40;&#41; &#125;[/code:5rn443py]\n\nIn the past there was a bug and one or both of these methods called each other so this technique was not possible. I am not sure if it has been fixed, but you can give it a try.\n\nJames','',0,'AIA=','5rn443py',1,0,'',303,0,0),(36910,8011,6,1104,0,'200.115.248.105',1188400514,1,0,1,1,1,0,'','','Hola:\n\nPrueba utilizando la siguiente función entes de imprimir.\n\nGetPrintDc()\n\nSaludos, Esteban','',0,'AIA=','a3cfayqe',1,0,'',1104,0,0),(36911,8007,7,1135,0,'189.137.114.9',1188403057,1,0,1,1,1,1,'','','Gracias Antonio y Rene por sus comentarios. \nPara mi es importante el formato JPG debido al volumen de datos.\nSi llego a tener la solucion se las hare saber.\nSaludos.','',0,'AIA=','21w3h9ox',1,0,'',1135,0,0),(36912,7976,6,439,0,'200.125.50.243',1188403507,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:c68r5hdf]Moises,\n\nSi lo adaptas a 32 bits, e incluso si lo mejoras, te agradeceríamos si lo compartes, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:c68r5hdf]\n\nAntonio, \n\nTal como está, practicamente, funciona en 32 bits.\n\nTe mando un ejemplo modificado.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ea8d2e24/RunadHoc.rar.html\">http://hyperupload.com/download/02ea8d2 ... c.rar.html</a><!-- m -->\n\nEstá funcionando.','',0,'gA==','c68r5hdf',1,0,'',439,0,0),(36913,7976,6,2,0,'87.218.146.38',1188405485,1,0,1,1,1,1,'','','José,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1ezllz2b',1,0,'',2,0,0),(36914,7976,6,838,0,'80.59.225.15',1188406815,1,0,1,1,1,0,'','','Hola José\n\nLe he intentado descargar, pero como verás tiene longitud 0 y cuando se descarga, el fichero está vacío.\n\nDe todas las maneras, como dije cuando lo subí a rapidshare, a mi me está funcionando perfectamente en 32 bit.\n\nLa modificación que dije que intenté y que lo dejé iba por aparte de cambiarle un poco de aspecto, cuando se seleccionan los nombre de los campos, que en su lugar aparecieran nombres más descriptivos de los mismos, es decir que si un campo se llama F_ENTRA, en la selección aparezca \"Fecha de Entrada\", etc.\n\nYo ésto lo tenía conseguido con un fichero INI que acompaña a cada aplicación, pero me lié con varias cosas, entre ellas, que el usuario eligiera sobre la marcha el ancho de impresión de un campo, etc.....\n\nSaludos\n\nJose Luis','',0,'gA==','14x7m2f4',1,0,'',838,0,0),(36915,8006,6,760,0,'200.62.254.137',1188406971,1,0,1,1,1,0,'','tdbf 32 bits','Master Rene\n\nEs que en una lib es mas facil ponerlos en diferentes sistemas, eso lo uso en casi todos los sistemas hechos a 16 bits. Al querer pasarlo a 32 bits como lib me salen muchos errores y no crea la lib, aun no domino lo de modificar las clases y fuentes...\nA proposito Master no habra por ahi un manual de ADS en castellano free... para ver las bondades de este maravilloso cliente/servidor.\nYo he querido implementar mis sistemas con ads local y aun no he podido por falta de ejemplos.\n\nSalu2\n\nFrancis <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1tvlmr0i',1,0,'',760,0,0),(36916,7976,6,18,0,'200.67.188.236',1188407645,1,0,1,1,1,1,'','','Lo baje y está dañado.\n\nMe lo podrias enviar a mi cuenta de correo por favor\n\nvictor at gdeiman dot com\n\n[quote=&quot;jose_murugosa&quot;:13786uq6][quote=&quot;Antonio Linares&quot;:13786uq6]Moises,\n\nSi lo adaptas a 32 bits, e incluso si lo mejoras, te agradeceríamos si lo compartes, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:13786uq6]\n\nAntonio, \n\nTal como está, practicamente, funciona en 32 bits.\n\nTe mando un ejemplo modificado.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ea8d2e24/RunadHoc.rar.html\">http://hyperupload.com/download/02ea8d2 ... c.rar.html</a><!-- m -->\n\nEstá funcionando.[/quote:13786uq6]','',0,'gA==','13786uq6',1,0,'',18,0,0),(36917,7976,6,439,0,'200.125.50.243',1188409637,1,0,1,1,1,1,'','','[quote=&quot;Vikthor&quot;:3a50a1wd]Lo baje y está dañado.\n\nMe lo podrias enviar a mi cuenta de correo por favor\n\nvictor at gdeiman dot com\n\n[quote=&quot;jose_murugosa&quot;:3a50a1wd][quote=&quot;Antonio Linares&quot;:3a50a1wd]Moises,\n\nSi lo adaptas a 32 bits, e incluso si lo mejoras, te agradeceríamos si lo compartes, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3a50a1wd]\n\nAntonio, \n\nTal como está, practicamente, funciona en 32 bits.\n\nTe mando un ejemplo modificado.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02ea8d2e24/RunadHoc.rar.html\">http://hyperupload.com/download/02ea8d2 ... c.rar.html</a><!-- m -->\n\nEstá funcionando.[/quote:3a50a1wd][/quote:3a50a1wd]\n\nAmigos, un nuevo link, espero este funcione.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/4v96vo0jdu\">http://www.box.net/shared/4v96vo0jdu</a><!-- m -->','',0,'gA==','3a50a1wd',1,0,'',439,0,0),(36918,8011,6,138,0,'189.141.65.96',1188410289,1,0,1,1,1,1,'','','No se puede, asi de claro.\n\n¿ Porque ?\n\nPues porque el proceso de generacion de los Metafiles o de los EMFs utiliza el driver de la impresora que tenga seleccionada windows al momento de generar el reporte, y las imagenes generadas solo valen para dicha impresora.\n\nPara eso existe la clausula FROM USER, tanto de PRINTER como de REPORT que te permite seleccionar una impresora ANTES de comenzar el proceso de impresion.\n\nEl motor de reportes de FW luego toma la informacion del driver de la impresora seleccionada, resolucion, tamaño del papel, margenes, fuentes soportadas, ETC y con esa informacion crea un objeto PRINTER y genera los metafiles, todo de acuerdo a la impresora seleccionada\n\nUna vez terminado el proceso de impresion, entonces aparece el motor de vista previa, que lo unico que hace es mostrar en pantalla los distintos metafiles generados con la infomraicon de la impresora, de ahí solo te queda cerrar el motor de impresion o enviar a la impresora el reporte generado.\n\nPor eso no es posible cambiar la impresora desde el motor de vista previa, porque los metafiles han sido generados de acuerdo a la impresora sobre la cual se van a imprimir, si tu cambias de impresora al momento de la impresion, entonces lo mas seguro es que el reporte no se visualice de la misma manera en que se ve en el motor de vista previa.\n\nPara hacer lo que tu quieres, tendrias que generar los metafiles en un CONTEXTO DE DISPOSITVO INDEPENDIENTE, pero eso creo que no esta soportado por FiveWin actualmente, ya que cada contexto de dispositivo tiene que estar forzosamente ligado a un contenedor.\n\nLa otra opcion que te queda, es que despues del motor de vista previa, selecciones OTRA impresora y vuelvas a generar el reporte, pero ahora enviandolo directamente a la impresora sin pasar por la vista previa, es una solucion chapu, pero funcionaria.','',0,'gA==','2cpzazd0',1,0,'',138,0,0),(36919,8013,3,529,0,'200.233.185.181',1188410329,1,0,1,1,1,0,'','xharbour parameters','HI, i have use only -c to compile my appl, libs, fwh, etc... another flags  ( -5-6-O-tmw) is default or is dispensable? thanks','',0,'gA==','36ktcz9b',1,0,'',529,0,0),(36920,8010,6,41,0,'200.87.67.11',1188411278,1,0,1,1,1,0,'','','Willi,\n\nintenta algo asi\n\nDLL32 function  p_imp( port as WORD ) AS BYTE PASCAL FROM \"Inp\" lib \"inpout32.dll\"\n\nDLL32 function  p_out( port as WORD, val as BYTE ) AS LONG PASCAL FROM \"Out\" lib \"inpout32.dll\"\n\nSolo lo pongo de memoria, puede que algun tipo no cache, asi que prueba cambiando los tipos\n\nsaludos\n\nMarcelo','',0,'gA==','aw87ljue',1,0,'',41,0,0),(36921,8013,3,529,0,'200.233.185.181',1188413659,1,0,1,1,1,0,'','','in the truth, it would like to know which parameters are necessary currently.','',0,'gA==','1dqbzwzj',1,0,'',529,0,0),(36922,8011,6,1105,0,'81.47.147.139',1188414449,1,0,1,1,1,0,'','','Hola René,\n\nMuchas gracias por tu clarificadora respuesta. Lo de poner la cláusula FROM USER antes no es viable, porque es un engorro para el usuario tener siempre que seleccionar la impresora, cuando, generalmente, lo quiere ver por pantalla y, en su caso, luego imprimirlo.\n\nHe encontrado esto:\n\n//------------------------------------------------------------------------ \n// función para cambiar la impresora desde previo (mcn) \n//------------------------------------------------------------------------ \nfunc f_CamImpre (oDevice, cCbx ) \nlocal cPrinter \n\ncPrinter := GetProfString( \"windows\", \"device\" , \"\" ) \nWriteProfString( \"windows\", \"device\", cCbx ) \nSysRefresh() \nPrinterInit() \nDeleteDC( oDevice:hDC ) // Sugestion by Enrico M. Giordano \noDevice:hDC := GetPrintDefault( GetActiveWindow() ) \noWnd:End() // To close current preview \n// Insert here the function to create the report \nSysRefresh() \nWriteProfString( \"windows\", \"device\", cPrinter ) \n\nRETURN nil \n\nSe usa en rpreview pero cuando cambio de impresora da un GPF. ¿Sabes por qué?. Muchas gracias.\n\nUn saludo','',0,'gA==','1ub15q68',1,0,'',1105,0,0),(36923,7718,6,73,0,'200.23.18.132',1188414682,1,0,1,1,1,0,'','','Ruben,\nTuve la misma necesidad que tu, tengo un folder con varias pestañas y cada pestaña tiene su propia toolbar ya que los botones son diferenets opciones, pero no he logrado que la toolbar se ajuste al tamaño del folder, esta se sale un poco y se ve mal, como le hiciste?\n[url=http&#58;//imageshack&#46;us:138azor4][img=http://img67.imageshack.us/img67/9148/barfldyd8.jpg][/url:138azor4]\n\n<!-- m --><a class=\"postlink\" href=\"http://img67.imageshack.us/my.php?image=barfldyd8.jpg\">http://img67.imageshack.us/my.php?image=barfldyd8.jpg</a><!-- m -->\n\nsalu2\npaco','',0,'EA==','138azor4',1,0,'',73,0,0),(36924,7975,3,148,0,'196.205.108.55',1188421450,1,0,1,1,1,0,'','','Oka I did it in such a way but about calling the two methods ?\n[code:nzm90l0e]\n//--- meter class\nclass Tmeter from TData\n   method new\n   method browser\n   method add\n   method edit\n   message delete method BrowseDelete\n Hidden&#58;\n   data lAdd as logical\nendclass\n\n//--- meter class\nclass Tmeterdelete from TData\n     method new\n     method browser\n     method add\n     method edit\n     method DBFdelete   \n   Hidden&#58;\n     data lAdd as logical\nendclass\n  \n\n&#46;&#46;\n\nmethod BrowseDelete&#40;oBrw,oMeter&#41; \n   &#58;&#58;skip&#40;1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nif oBrw&#58;eof&#40;&#41;\n   &#58;&#58;skip&#40;-1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nendif\noBrw&#58;refresh&#40;&#41;    \n   \n\nreturn self\n\n//---------------------------------------------------------------------------//\n\nmethod DBFdelete&#40;oMeter,oBrw&#41; \nlocal nRecno\n\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41;  \n      super&#58;delete&#40;&#41; \n   endif \n\n\nnRECNO &#58;= oMeter&#58;RECNO&#40;&#41; \n   oMeter&#58;pack&#40;&#41;\nGOTO nRECNO\n\nreturn self\n\n[/code:nzm90l0e]','',0,'AIA=','nzm90l0e',1,0,'',148,0,0),(36925,7972,3,34,0,'68.5.217.82',1188422036,1,0,1,1,1,1,'','Funky','I didn\'t know that was available anymore, or that it would work with FWH/xHarbour.','',0,'AIA=','313l0lrd',1,0,'',34,0,0),(36926,7975,3,303,0,'72.199.41.171',1188422600,1,0,1,1,1,0,'','','Ehab,\n\nNo, it is much simpler.\n\n[code:2g61m9d2]//--- meter class \nclass Tmeter from TData \n   method new \n   method browser \n   method add \n   method edit \n   method BrowseDelete \n Hidden&#58; \n   data lAdd as logical \nendclass \n\n&#46;&#46; \n\nmethod BrowseDelete&#40;oBrw,oMeter&#41;\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41;  \n      &#58;&#58;delete&#40;&#41; \n   endif  \n   &#58;&#58;skip&#40;1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \n   if oBrw&#58;eof&#40;&#41; \n      &#58;&#58;skip&#40;-1&#41;    \n      &#58;&#58;skip&#40;0&#41;    \n   endif \n   oBrw&#58;refresh&#40;&#41;    \nreturn self [/code:2g61m9d2]\n\nKeep in mind that this is a table class (we call them DBFs) so a browse function (method) doesn\'t really belong in this class, but we are doing it because it is easier than adding it to the TXBrowse class. You don\'t want to mess with the table delete method and it shouldn\'t have any interfaces in it--you may want to call it from other code (as we did above in the BrowseDelete() method).\n\nAlso you don\'t ever want to change the name of the method (like DBFDelete) because you want all tables to have a delete method (called \"delete\"). This is one of the basics of using OOP and it allows you to do things like pass any object and call the delete method. If each object had a different name for the delete method then you would have to code a large DO CASE statement and add to it for each new object--not good. You can\'t do this with procedural coding.\n\n[code:2g61m9d2]function whatever&#40; oObject &#41;\n    oObject&#58;delete&#40;&#41;\nreturn self[/code:2g61m9d2]\n\nAlso you do not need a new class for a new method. The method is part of the existing class--in your case TMeter.\n\nSee OOP is really simple.\n\nJames','',0,'AIA=','2g61m9d2',1,0,'',303,0,0),(36927,7972,3,138,0,'189.141.65.96',1188426478,1,0,1,1,1,1,'','','You bet, Funcky is now a POWERFUL COM component, you use from (x)Harbour via OLE and works great.\n\nThis is a sample:\n\n [code:359pp2hu]  \n\nWITH OBJECT oFunckyMail &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;FUNCkySMTP&quot;&#41;\n   &#58;Server &#58;= &quot;smtp&#46;google&#46;com&quot; // with auth&#58; user&#58;pass@server&quot;\n   &#58;FromName &#58;= &quot;Me, myself &amp; I&quot;\n   &#58;FromAddress &#58;= &quot;me@google&#46;com&quot;\n   &#58;Subject &#58;= &quot;Mail subjet&quot;\n   &#58;Message &#58;= &quot;Hey guys! I had a really RAD time making &quot; + CRLF +;\n               &quot;the movie and I miss you guys&#46; I am throwing &quot;+ CRLF +;\n               &quot;a party this weekend and you are all invited&#46; &quot; + CRLF +;\n               &quot;Dont dis me, see ya soon&#46;&#46;&#46; mua!&quot;\n   &#58;ToName &#58;= &quot;My best friend&quot;\n   &#58;ToAddress &#58;= &quot;bestfriend@friendship&#46;com&quot;\n   IF &#58;Send&#40;&#41;\n      MsgInfo&#40;&quot;Sucess sending the message&quot;&#41;\n   ELSE\n      MsgStop&#40;&quot;Houston, we have a problem&#46;&#46;&#46;&quot;+CRLF+&quot;Sending a message&quot;,&quot;Alert!&quot;\n   ENDIF\nEND[/code:359pp2hu]','',0,'AIA=','359pp2hu',1,0,'',138,0,0),(36928,8014,6,1156,0,'201.228.131.58',1188427165,1,0,1,1,1,0,'','Impresión POS','Hola a todos.\nAlguien tiene un ejemplo sobre cómo puedo imprimir en una impresora TMU-200 P.O.S para controlar el tamaño del rollo de papel, usando la tprinter.\n\n\nOmar Cárdenas J.','',0,'AIA=','w9lrvtmw',1,0,'',1156,0,0),(36929,8015,3,435,0,'200.155.197.182',1188427808,1,0,1,1,1,0,'','Exemplo usando TFTPServ','Onde encontro exemplo de como usar a TFTPServ\n\nAri','',0,'AIA=','1rn4teok',1,0,'',435,0,0),(36930,7972,3,34,0,'68.5.217.82',1188429470,1,0,1,1,1,1,'','Funky','Are attachments able to be included ?\n\nI owned Funcky for many years for Clipper.  What version is appropriate now for xHarbour ( Builder / xCC compiler ) ?\n\nIt looks on their website like they haven\'t touch it for 7 years.\n\nTim','',0,'AIA=','2rd9f7q6',1,0,'',34,0,0),(36931,7972,3,138,0,'189.141.65.96',1188434745,1,0,1,1,1,1,'','Re: Funky','[quote=&quot;TimStone&quot;:2nzbhyij]Are attachments able to be included ?\n\nI owned Funcky for many years for Clipper.  What version is appropriate now for xHarbour ( Builder / xCC compiler ) ?\n\nIt looks on their website like they haven\'t touch it for 7 years.\n\nTim[/quote:2nzbhyij]\n\nOf course you can include attachments, any format, any ammount of them:\n\n[code:2nzbhyij]WITH OBJECT oSmtp &#58;= TOleAuto&#40;&#41;&#58;New&#40;&quot;FUNCkySMTP&quot;&#41;\n\n   &#58;Server = &quot;mail&#46;tellurian&#46;net&quot;\n   &#58;FromName = &quot;Robert Boyle&quot;\n   &#58;FromAddress = &quot;rboyle@tellurian&#46;net&quot;\n   &#58;ToName = &quot;Melissa Moorman&quot;\n   &#58;ToAddress = &quot;melissa@tellurian&#46;net&quot;\n   &#58;Subject = &quot;Check out our new building&quot;\n   &#58;Attachments = &quot;D&#58;\\Photos\\Building\\NewOffice&#46;Gif&quot;\n\n   // The following syntax attaches three pictures\n   * &#58;Attachments = &quot;NewOffice1&#46;Gif, NewOffice2&#46;Gif, OldOffice&#46;Gif&quot;\n\n   // The following syntax attaches all &#46;Gif files in the folder\n   * &#58;Attachments = &quot;D&#58;\\Photos\\Building\\*&#46;Gif&quot;\n\n   // The following syntax attaches all Gifs, Bmps and Jpegs\n   * &#58;Attachments = &quot;*&#46;Gif, *&#46;Bmp, *&#46;Jpg&quot;\nEND[/code:2nzbhyij]\n\nYou can send HTML coded body messages, and even you can check if a mail address exists in a server &lt;g&gt;.\n\nWell Dirk Lesko is up and running with the Funcky business, drop a line to him in the <!-- w --><a class=\"postlink\" href=\"http://www.funcky.com\">www.funcky.com</a><!-- w -->.\n\nYou can give a try to funcky with the demo version, I think that SMPT capabilities are included in the demo, be sure to ask for the de COM component (the one of Delphi will work with xHarbour)','',0,'gIA=','2nzbhyij',1,0,'',138,0,0),(36932,8015,3,138,0,'189.141.65.96',1188435437,1,0,1,1,1,1,'','','Ari:\n\nFiveWin es una gran herramienta, pero no puede hacer TODO.\n\nSi estas buscando un servidor FTP, te aconsejo que mejor utilices un software especifico de servidor FTP, hay muchos y muchos son gratis o de open source:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.goldenftpserver.com/\">http://www.goldenftpserver.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://sourceforge.net/projects/filezilla/\">http://sourceforge.net/projects/filezilla/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.xlightftpd.com/\">http://www.xlightftpd.com/</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.guildftpd.com/\">http://www.guildftpd.com/</a><!-- m -->','',0,'gIA=','114kcb0u',1,0,'',138,0,0),(36933,8000,3,161,0,'81.83.249.31',1188446651,1,0,1,1,1,0,'','','Thanks Antonio,  it\'s working very nice.\n\nIs there a way to change the color. I already used button1:color(..,..) but this seems not to work.\nI use FWH707\n\nThanks,\nMarc','',0,'gIA=','3a83mvgi',1,0,'',161,0,0),(36934,7975,3,148,0,'196.205.108.55',1188448714,1,0,1,1,1,0,'','','Where in code can I pack the deleted records and in same time keep the existing browse as BrowseDelete(oBrw,oMeter)  ? I f packed the shape of the browse is going to be redisplayed aganist BrowseDelete(oBrw,oMeter).\nThanks','',0,'gIA=','3fyjyqko',1,0,'',148,0,0),(36935,7975,3,303,0,'72.199.41.171',1188450338,1,0,1,1,1,0,'','','Ehab,\n\nYou cannot pack a data file while it is being used. It must be in exclusive use and it takes way too long. My suggestion as before is to reuse records. Or, you can pack during reindexing which also requires exclusive use.\n\nWhen you delete records with SET DELETED ON, they will be invisible so there is no need to pack. Also when you when you index you should always use the FOR NOT DELETED() clause so the index record count will not include deleted records.\n\nJames','',0,'gIA=','3hsmxtda',1,0,'',303,0,0),(36936,8000,3,2,0,'87.218.146.38',1188458646,1,0,1,1,1,1,'','','Marc,\n\nIf you need to change the buttons colors, then use a BTNBMP instead of a BUTTON:\n\n@ ..., ... BTNBMP ... OF oMetaFile SIZE ..., ... ACTION ...','',0,'gIA=','2qdtf1tl',1,0,'',2,0,0),(36937,8013,3,2,0,'87.218.146.38',1188458804,1,0,1,1,1,1,'','','Norberto,\n\nDo you mean the flags to compile C files or PRG files ?','',0,'gIA=','3b1ijflu',1,0,'',2,0,0),(36938,7718,6,2,0,'87.218.146.38',1188459045,1,0,1,1,1,1,'','','Paco,\n\noToolBar:oWnd:oTop = nil\noToolBar:nWidth -= ...','',0,'gIA=','3atcn5d7',1,0,'',2,0,0),(36939,8012,6,2,0,'87.218.146.38',1188459236,1,0,1,1,1,1,'','','[code:2c9gbzth]\nIF !lFolder1 \n   @ 054,002 FOLDER oFldVinc OF oDlgVinc ; \n      PROMPTS &quot;&amp;2-Folder2&quot;, &quot;&amp;3-Folder3&quot;; \n      DIALOGS &quot;FOLDER2&quot;, &quot;FOLDER3&quot;; \n      PIXEL ; \n      SIZE 315,135 \nENDIF \nIF !lFolder2 \n   @ 054,002 FOLDER oFldVinc OF oDlgVinc ; \n       PROMPTS &quot;&amp;1-Folder1&quot;, &quot;&amp;3-Folder3&quot;; \n       DIALOGS &quot;FOLDER1&quot;, &quot;FOLDER3&quot;; \n       PIXEL ; \n       SIZE 315,135 \nENDIF \nIF !lFolder3 \n   @ 054,002 FOLDER oFldVinc OF oDlgVinc ; \n       PROMPTS &quot;&amp;1-Folder1&quot;, &quot;&amp;2-Folder2&quot;; \n       DIALOGS &quot;FOLDER1&quot;, &quot;FOLDER2&quot;; \n       PIXEL ; \n       SIZE 315,135 \nENDIF \n[/code:2c9gbzth]','',0,'AIA=','2c9gbzth',1,0,'',2,0,0),(36940,8006,6,92,0,'213.96.45.6',1188459360,1,0,1,1,1,0,'','Re: tdbf 32 bits','[quote=&quot;Francis&quot;:xddzk2te]Master Rene\n\nEs que en una lib es mas facil ponerlos en diferentes sistemas, eso lo uso en casi todos los sistemas hechos a 16 bits. Al querer pasarlo a 32 bits como lib me salen muchos errores y no crea la lib, aun no domino lo de modificar las clases y fuentes...\nA proposito Master no habra por ahi un manual de ADS en castellano free... para ver las bondades de este maravilloso cliente/servidor.\nYo he querido implementar mis sistemas con ads local y aun no he podido por falta de ejemplos.\n\nSalu2\n\nFrancis <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:xddzk2te]\n\nA ver si puedo y este fin de semana tarde te la bajo.\n\nLa tengo funcionando en FiveWin 7.04 y además con la clase TINDEX renombrada para que no se \'pegue\' con la que trae (traía?) fivewin en su .lib\n\nYo estoy bastante enamorado de ella, no uso .lib sino como dice Rene compilo sus .prg y su .c bajo Harbour (supongo que para xHarbour será lo mismo).\n\nSaludos\nCarlos G.','',0,'gA==','xddzk2te',1,0,'',92,0,0),(36941,7718,6,174,0,'83.230.243.229',1188459429,1,0,1,1,1,0,'','','Despues de definir la Toolbar y todos sus botones\n\noFld:nOption:Resize()','',0,'gA==','2npgypwm',1,0,'',174,0,0),(36942,8009,6,316,0,'213.97.245.163',1188460408,1,0,1,1,1,0,'','','Hola Edu,\n\ntengo tambien lo que me bajé de su web, que incluye el exe y algunas fuentes, pero no las de VMenu referidas en pcustomer.prg. Que usas tu en su lugar?\n\nUn saludo,\n\nCarlos.','',0,'gA==','1r4glxbz',1,0,'',316,0,0),(36943,8016,3,1110,0,'139.165.96.129',1188463646,1,0,1,1,1,0,'','FiveWin and MS Sql','I have to access  sql tables with xharbour and fivewin .\n\nI have to be able to add record modify and delete .\n\nI cant install odbc driver on each workstation .\n\nEach workstations are connected to a Win2003 server and the EXE is\non this server .\n\nHow to do it ??','',0,'gA==','uz46jn01',1,0,'',1110,0,0),(36944,8009,6,1105,0,'81.47.147.15',1188463950,1,0,1,1,1,0,'','','Yo tengo todos los fuentes, y aun asi me sigue dando el mismo error.','',0,'gA==','1bdd36y6',1,0,'',1105,0,0),(36945,8017,3,1157,0,'168.209.97.34',1188464736,1,0,1,1,1,0,'','Error using \\samples\\testfold.prg','Hi\n\nI receive this error when testing testfold.prg (clicking the combobox):\n\nApplication\n===========\n   Path and name: C:\\Alex\\QB\\bait\\fwtest\\testfold.exe (32 bits)\n   Size: 1,163,264 bytes\n   Time from start: 0 hours 0 mins 6 secs \n   Error occurred at: 08/29/07, 18:31:31\n   Error description: Error BASE/1005  Message not found: TCLIPGET:_TYPE\n   Args:\n     [   1] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TCLIPGET:ERROR(169)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(103)\n   Called from:  =&gt; TCLIPGET:MSGNOTFOUND(0)\n   Called from:  =&gt; TCLIPGET:_TYPE(162)\n   Called from: .\\source\\classes\\TGET.PRG =&gt; (b)TGET(0)\n   Called from:  =&gt; TGET:VARPUT(0)\n   Called from:  =&gt; TCOMBOBOX:CHANGE(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TCOMBOBOX:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: testfold.prg =&gt; MAIN(53)\n\nSystem\n======\n   CPU type: Intel(R) Celeron(R) M CPU        410  @ 1.46GHz 1466 Mhz\n   Hardware memory: 503 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour devel build 1.1-0 Intl.\n   Windows version: 5.1, Build 2600 Service Pack 2\n\nIs this a known problem?\n\nThanks\nAlex','',0,'','ofopum7q',1,0,'',1157,0,0),(36946,8016,3,1157,0,'168.209.97.34',1188465393,1,0,1,1,1,0,'','SQL and FiveWin','I suggest you investigate ADORDD, in the sticky post just above your message. \n\nRegards\nAlex','',0,'','3pd9mjrp',1,0,'',1157,0,0),(36947,8017,3,2,0,'87.218.146.38',1188465837,1,0,1,1,1,1,'','','Alex,\n\nYes, we are aware of it and was fixed. Please download Harbour again from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'','1a336ipp',1,0,'',2,0,0),(36949,8009,6,316,0,'213.97.245.163',1188467967,1,0,1,1,1,0,'','','Edu,\n\nsi miras los mensajes de error verás que hace referencia a la línea 24 de tfsdi. Dice \'if LargeFonts(); ::nYMove... \", comenta esas líneas que es donde hace referencia a nYMove y seguro que ese es el problema.\n\nCarlos.','',0,'','3w26k09i',1,0,'',316,0,0),(36950,8018,6,1105,0,'81.47.147.15',1188468458,1,0,1,1,1,0,'','img2pdf','Hola:\n\nHe descargado y probado img2pdf. El ejemplo que adjuntan funciona perfectamente. \n\nElL único problema que he encontrado es que cuando, por ejemplo, si el proceso de creación del PDF genera un error, cosa que te informa con las variables ierr y errortext y si vuelves a generar el pdf, da un error.\n\nLa llamada es\n iErr := I2PDF_MakePDF(Rtrim(pdfFilename), 0, errorText, 40 )\n\n\nRepito, el error SOLO se produce cuando en el proceso de generación se produce un error. Por ejemplo, se usa un nombre de archivo pdf que está en uso. \n\n¿A alquien le ha pasado esto?. Muchas gracias. Salu2','',0,'','24ykvj9u',1,0,'',1105,0,0),(36951,8019,6,75,0,'83.57.16.83',1188469752,1,0,1,1,1,0,'','PUERTO SERIE RS 232','Tengo que transformar una aplicacion de 16 bits en modo consola a 32 bits. Se e trata de una aplicación que está constantemente leyendo y escribiendo en el puerto serie COM...\n\nAntes de ponerme manos a la obra me gustaría saber cuales son sus recomendaciones al respecto, muy especialmente lo siguiente:\n\n1.- ¿Tiene xHarbour incorporadas funciones para el control de los puertos serie?\n\n2.- ¿La librería HBCOMM.LIB es suficiente, está documentada, actualizada y se encuentra viva?\n\n3.- ¿Hay alguna otra clase o librería de libre distribución compatible con xHarbour y 32 bits bien documentada?.','',0,'','2ibqanr0',1,0,'',75,0,0),(36952,8019,6,294,0,'201.254.180.253',1188472151,1,0,1,1,1,1,'','','Hola Verhoven:\nYo utilizo las funciones provistas por Fivewin y con ellas he podido desarrollar un protocolo para comunicarme con una registradora sin problemas. Si lo tenes desarrollado para fivewin de 16 bits no vas a tener que cambiar nada, te va a servir para migrarlo a 32 bits sin problemas.\nCualquier duda, consulta sin problemas.\nAtte\nCesar','',0,'','2k0t5b7o',1,0,'',294,0,0),(36953,8020,3,1068,0,'200.153.245.50',1188472621,1,0,1,1,1,1,'','MetaFile to ClipBoard','hi everyone,\n\nIs possible copy the content of metafile to clipboard of Windows ?\n\nregards','',0,'','3qg3sksz',1,0,'',1068,0,0),(36954,8021,6,914,0,'87.235.251.160',1188475862,1,0,1,1,1,0,'','Error al intentar acceder a propiedades de oError','Saludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->, \nEstoy intentando capturar errores al evaluar expresiones (variable bvalexp), todo funciona ok salvo cuando intento mostrar o acceder al objeto oError para dar detalles de éste. Dado que este código se ejecuta en un programa CGI que interpreta archivos .hrb y devuelve el resultado como un fichero xml simplemente me llega error 502 y eso es porque no llega la respuesta XML simplemente, el XML no llega a generarse.\nSin embargo si quito el oError:Description el programa funciona como debe,  es decir, cuando la expresión dada en bvalexp es incorrecta entra en el bloque de recuperación y si no no entra.\n\nGracias,\n\nbManejadorerror:={ |oError| Break( oError ) }\n...\nbUltimoManejador:=ERRORBLOCK(bManejadorError)\nBEGIN SEQUENCE\n   if &amp;(Alltrim(bevalexp))\n      lfiltrar:=.T.\n   endif\nRECOVER USING oError\n   cResult:=\"E\"\n   cMsgErr:=MultiLang(\"Error:\")+[b:a6cpprt6]oError:Description[/b:a6cpprt6]\n   MensajeXML(cResult,cMsgErr,\"\",cContent,\"\")\n   RETURN\nEND SEQUENCE\nERRORBLOCK(bUltimoManejador)','',0,'QA==','a6cpprt6',1,0,'',914,0,0),(36956,8000,3,161,0,'141.6.8.75',1188478856,1,0,1,1,1,0,'','','Antonio,\n\nWhat is the use of the 3th bitmap? The second is the one displayed while pressing the button, I never see the 3th.\n\nMarc','',0,'QA==','3kizzfod',1,0,'',161,0,0),(36957,8017,3,1157,0,'196.2.50.9',1188479360,1,0,1,1,1,0,'','Error using \\samples\\testfold.prg','I am using Microsoft VC, so I downloaded harbourm.exe. This appears to be the same version as my original install. Anyway, I installed it again, and the same error persists.\n\nRegards\nAlex','',0,'QA==','3sacl2t3',1,0,'',1157,0,0),(36958,8000,3,2,0,'87.218.146.38',1188479985,1,0,1,1,1,1,'','','Marc,\n\nIt is shown when the button is disabled','',0,'QA==','1kozr2c0',1,0,'',2,0,0),(36959,8017,3,2,0,'87.218.146.38',1188480970,1,0,1,1,1,1,'','','Alex,\n\nPlease download <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbourm.exe\">www.fivetechsoft.com/files/harbourm.exe</a><!-- w --> again and try it, thanks','',0,'QA==','3mricept',1,0,'',2,0,0),(36960,8021,6,2,0,'87.218.146.38',1188481142,1,0,1,1,1,1,'','','Prueba a cambiarlo así:\n\ncMsgErr:=MultiLang(\"Error:\")+ If( ! Empty( oError:Description ), oError:Description, \"\" )','',0,'QA==','rxv0pewx',1,0,'',2,0,0),(36961,7975,3,148,0,'196.205.108.55',1188482022,1,0,1,1,1,0,'','','Any way to delete and pack at the same time beside keeping the browse as BrowseDelete() do ?','',0,'QA==','17n8ew0i',1,0,'',148,0,0),(36962,7975,3,303,0,'72.199.41.171',1188482330,1,0,1,1,1,0,'','','Ehab,\n\n&gt;Any way to delete and pack at the same time beside keeping the browse as BrowseDelete() do ?\n\nDid you read my previous message? No, you cannot pack a file after deleting a record, nor would it be practical even if you could. This has nothing to do with the browse delete method--you can\'t do it using any method or function.\n\nJames','',0,'QA==','1lsl723f',1,0,'',303,0,0),(36963,8016,3,35,0,'167.7.140.254',1188483026,1,0,1,1,1,0,'','','I agree .. ADO is the best way to connect to any SQL database .. Any Windows OS from ( at least ) 2000 on supports ADO right out of the box .. nothing to install or configure.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'QA==','q0xnnl1z',1,0,'',35,0,0),(36964,8013,3,529,0,'200.233.185.181',1188483525,1,0,1,1,1,0,'','','Antonio, i compile xharbour (cvs), my libs (prg and C), appl (prg), and sometimes (Fwh). thanks','',0,'QA==','3e0uz0x6',1,0,'',529,0,0),(36965,8022,2,235,0,'200.67.140.245',1188484538,1,0,1,1,1,0,'','para Rene Flores','Buen dia.\n\nMe puedes dar el precio del fwh xharbour, y cual es el precio de la capacitacion???\n\nDe antemano muchas gracias.','',0,'QA==','3mgergvs',1,0,'',235,0,0),(36966,8023,3,435,0,'200.155.202.144',1188485800,1,0,1,1,1,0,'','TFTPServ','Eu gostaria de atualizar a versao do meu sistema dentro da propria rede pegando os arquivos de uma maquina que já foi atualizada.\n\neu tentei usar o TFTPServ junto com a TFTP e no começo do primeiro arquivo gera um erro no TFTPServ, veja meu codigo\n\n[code:1yndfadt]\n* =============================================================================\nFunction Ftp&#40;&#41; // Atualizar versao por FTP - 29-08-2007\n               // a maquina que atualizar versao grava o IP na Config 1084\n* =============================================================================\n  local oView, oFtp\n  local cIP &#58;= rtrim&#40; LerConfig&#40;1084&#41; &#41;\n\n  if empty&#40;cIP&#41;\n     MsgAlert&#40;&quot;O IP do servidor não foi encontrado na config 1084&quot;,&quot;IP do servidor FTP&quot;&#41;\n     return nil\n  Endif\n  \n  oView           &#58;= TView&#40;&#41;&#58;New&#40; SisMain&#40;&#41;, &quot;Atualização de versão via FTP&quot; &#41;\n  oView&#58;oButBar   &#58;= Array&#40;2&#41;\n  oView&#58;cAlias    &#58;= &quot;ARRAY&quot;\n  oView&#58;lCadastro &#58;= &#46;t&#46;\n  oView&#58;bClose    &#58;= &#123;|| if&#40;ValType&#40;oFTP&#41;==&quot;O&quot;,oFtp&#58;End&#40;&#41;,&#41;, LoadRec&#40;&#41;  &#125;\n  oView&#58;Open&#40;&#41;\n\n  DEFINE BUTTON oView&#58;oButBar&#91;2&#93; OF oView&#58;oBar RESOURCE &quot;start&quot; ;\n         NOBORDER GROUP ACTION &#40; oView&#58;oButBar&#91;2&#93;&#58;Disable&#40;&#41;, oFtp &#58;= BuildServer&#40;&#41; &#41; ;\n         TOOLTIP &quot;Iniciar o servidor&quot;        ;\n         PROMPT &quot;Servidor&quot; TOP \n\n  oView&#58;Show&#40;&#41;\n\nreturn nil\n\n* =============================================================================\nFunction BuildServer&#40;&#41; // rotina que aciona o FTP\n* =============================================================================\n  local oFTPServer\n\n  oFTPServer          &#58;= TFtpServer&#40;&#41;&#58;New&#40;&#41;\n  oFtpServer&#58;cDefPath &#58;= DirWin&#40;&#41;\n  oFtpServer&#58;cLogFile &#58;= &quot;ftpserv&#46;log&quot;\n  oFtpServer&#58;lDebug   &#58;= &#46;t&#46;\n  oFTPServer&#58;Activate&#40;&#41;\n\n  Msg&#40;&quot;ok, servidor operando&quot;&#41;\n\nReturn oFTPServer\n\n* =============================================================================\nFunction FTPClient&#40;&#41; // cliente de FTP para copiar\n* =============================================================================\n  local cIP &#58;= &quot;192&#46;168&#46;0&#46;50&quot;\n  local oInternet, oFTP, aFiles, n\n\n  if empty&#40;cIP&#41;\n     MsgAlert&#40;&quot;O IP do servidor não foi encontrado&quot;,;\n              &quot;IP do servidor FTP&quot;&#41;\n     return nil\n  Endif\n\n  oInternet &#58;= TInternet&#40;&#41;&#58;New&#40;&#41;\n  oFTP      &#58;= TFTP&#40;&#41;&#58;New&#40; cIP , oInternet, &quot;&quot;,&quot;&quot; &#41;\n  \n  if !empty&#40; oFTP&#58;hFTP &#41;\n\n      aFiles &#58;= oFTP&#58;Directory&#40; &quot;www/*&#46;*&quot; &#41;\n\n      FOR n &#58;= 1 TO Len&#40; aFiles &#41;\n\n         MsgMeter&#40; &#123;|oMeter| CopyFTP&#40; oFTP, aFiles&#91;n,1&#93;,;\n                   aFiles&#91;n,2&#93;, DirTmp&#40;&#41;, oMeter  &#41; &#125;,;\n                   &quot;aguarde, copiando&#58;&quot; + aFiles&#91;n,1&#93;,&quot;Sisrev-Win, copiando arquivo via FTP&quot; &#41;\n      Next\n   Endif\n\n   oInternet&#58;End&#40;&#41;\n  \nreturn nil\n\n* =============================================================================\nFunction CopyFTP&#40; oFTP, cFile, nTotal, cDestino, oMeter &#41;\n* =============================================================================\n  local hHan, n &#58;= 0, cBuffer\n  local oFile   &#58;= TFTPFile&#40;&#41;&#58;New&#40; cFile, oFTP &#41;\n\n  oFile&#58;OpenRead&#40;&#41;\n\n  oMeter&#58;nTotal &#58;= nTotal\n  hHan          &#58;= FCreate&#40; cDestino + cFile &#41;\n\n  While n &lt;= nTotal\n\n     cBuffer &#58;= oFile&#58;Read&#40;128&#41;\n     n       += 128\n\n     oMeter&#58;Set&#40; n &#41; \n     SysRefresh&#40;&#41; \n\n     if Fwrite&#40; hHan, cBuffer, Len&#40;cBuffer&#41; &#41; &lt; Len&#40;cBuffer&#41;\n        Msg&#40;&quot;fim de arquivo&quot;&#41;\n     endif\n  End\n\n  FClose&#40; hHan &#41;\n  oFile&#58;End&#40;&#41;\n\nReturn nil\n[/code:1yndfadt]\n\nAri','',0,'AIA=','1yndfadt',1,0,'',435,0,0),(36967,8021,6,914,0,'87.235.251.160',1188488301,1,0,1,1,1,0,'','','Antonio gracias por contestar,\n\nno funciona, he probado con otras propiedades como :Severity, y de otras maneras : Str(len(oError)) Valtype(oError) pero parece como si la variable que apunta al objeto  no existiese. \n\nHe probado a declarar oError como variable local y como estatica pero ...igual no se me ocurren otras pruebas','',0,'AIA=','24j8uol2',1,0,'',914,0,0),(36968,8021,6,914,0,'87.235.251.160',1188488375,1,0,1,1,1,0,'','','Perdón mi versión de harbour\n\nHarbour Alpha build 45.0 Intl. (Flex)','',0,'AIA=','1vxwl7zv',1,0,'',914,0,0),(36969,7972,3,34,0,'68.5.217.82',1188489040,1,0,1,1,1,1,'','Version of Funcky','You indicated the Delphi version will work with xHarbour but I assume that means if you are building the Borland version.\n\nI am using xCC/xBuilder which is the Microsoft Compatible version.  Usually items built for Borland do not work for xCC.\n\nIs that not correct ?\n\nAlso, I was going to email Dirk yesterday but there is no method of communication on the website, nor is his sales link working.  Some things require registration but you have to post an existing account for that to work.','',0,'AIA=','3cqld2z4',1,0,'',34,0,0),(36970,7718,6,73,0,'200.23.18.132',1188490708,1,0,1,1,1,0,'','','Gracias por su ayuda, pero fijate Antonio que no he podido acomodarlo,\ntengo un dialogo desde recurso con el folder y en la parte del activate on init uso una funcion para crear la toolbar, que estoy haciendo mal? pongo parte del codigo.\n\n\nACTIVATE DIALOG oDlg CENTERED VALID lEnd ;\n      ON INIT ( crea_barra(oDlg,oFld,oImageList,oReBar,oToolBar),;\n                     oToolBar[1]:oWnd:oTop:=nil, oToolBar[1]:nWidth:=100 )\n\n\nSTAT FUNC crea_barra(oDlg,oFld,oImageList,oReBar,oToolBar)\nDEFINE REBAR oReBar[1] OF oFld:aDialogs[1]\n\nDEFINE TOOLBAR oToolBar[1] OF oReBar[1] SIZE 26, 24 ;\n      IMAGELIST oImageList[1] BALLOON\n\n   DEFINE TBBUTTON OF oToolBar[1] ;\n      TOOLTIP \"Nueva partida\"\n\n   DEFINE TBBUTTON OF oToolBar[1] ;\n      TOOLTIP \"Elimina partida\"\n\n   DEFINE TBSEPARATOR OF oToolBar[1]\n\n   DEFINE TBBUTTON OF oToolBar[1] ;\n      TOOLTIP \"Imprime relación\"\n\n   oReBar[1]:InsertBand( oToolBar[1] )\nRETURN NIL\n\nya probe metiendo tambien dentro de la funcion la opcion del nil  y del nWidth y tampoco.\n\nSalu2\nPaco','',0,'','ffsrm8bg',1,0,'',73,0,0),(36971,8024,6,362,0,'200.158.19.215',1188491029,1,0,1,1,1,1,'','MENSAGERIAS DE ERRSYSW.PRG','Buenas Amigos...\n\nPor favor, como puedo hacer para modificar las mensagerias de ERRSYSW.PRG??\n\nEjemplo:\n\nRetorno: \"VARIABLES DOES NOT EXIST\"  - Ingléz... No és bueno.\n\nPor:\n\nRetorno en Português: \"VARIAVEL NÃO EXISTE\"','',0,'','1z61jgxp',1,0,'',362,0,0),(36972,7718,6,1106,0,'190.64.204.79',1188491230,1,0,1,1,1,0,'','','Paco:\n\nNo lo tengo solucionado.\n\nLamentablemente saque la toolbar y puse botones\n\nSaludos\n\nRuben Fernandez.','',0,'','10l2hna0',1,0,'',1106,0,0),(36973,7955,6,1072,0,'201.214.53.218',1188493066,1,0,1,1,1,0,'','','Muchas Gracias por la respuesta, me queda super claro.\n\nSaludos,\nAntonio\n\n[quote=&quot;RF&quot;:1jvowcvk]No es posible hacerlo, por 2 razones basicamente:\n\n1) Un meter requiere de \"callbacks\" es decir, que cada determinado tiempo se ejecute una función que actualice la posicion del meter,  cosa que no es posible realizar mientras se abre una tabla, porque el proceso de apertura (USE) no produce ninguna llamada a nada, al contrario del proceso de indexacion,  que se puede \"interceptar\" para mostrar el grado de avance del mismo.\n\n2) Un meter requiere un valor minimo y un valor maximo ¿ como los vas a establecer ?, si tu valor maximo es el numero de registros de la base de datos, este no lo puedes saber (lastrec() o reccount()) sino hasta que la tabla está abierta, para entonces ya es demasiado tarde, la tabla se abrirá mucho antes de que pudieras establecer los valores de control del meter.\n\nQuiero pensar que tu base de datos es demasiado grande, y tarda mucho tiempo en abrirse (lo cual es logico, hay que copiar todos los registros a la estacion de trabajo) y lo que quieres es mostrar un meter conforme se va realizando la apertura, lo cual no es posible por las razones explicadas anteriromente.\n\nSugerencia, utiliza un MsgWait:\n\nMsgWait (\"Espere un momento\",\"Abriendo tabla\", {|| DBUSEAREA()})[/quote:1jvowcvk]','',0,'gA==','1jvowcvk',1,0,'',1072,0,0),(36974,8004,6,987,0,'189.133.14.241',1188493235,1,0,1,1,1,0,'','','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  Ok Colegas del foro:\n\nYa quedo solucionado el problema de impresion de reportes, lo hize por medio de columnas de la siguiente manera:\n\n    REPORT oReporte TITLE \"REPORTE GLOBAL DE EXISTENCIAS DE INVENTARIO\"  PREVIEW;    \n         CAPTION \"Existencias por Almacen\"\n\n                             \nFOR N:= 1 TO FCOUNT()\n     \noReporte:AddColumn( TrColumn():New( { TituCol( cDBF, N, 08 ) },,{ ContCol( cDBF, N, .F. ) },,,,,,,,,, oReporte ) ) \n \noReporte:AddColumn( TrColumn():New( { TituCol( cDBF, Z, 4 ) },,{ ContCol( cDBF, Z, .F. ) },,,,,,,,,, oReporte ) ) \n          \noReporte:AddColumn( TrColumn():New( { TituCol( cDBF, N, 3 ) },,{ ContCol( cDBF, N, .F. ) },,,,,,,,,, oReporte ) ) \n\nnext \n  \nEND REPORT\n\nACTIVATE REPORT oReporte ON STARTPAGE BitMaps(oReporte) \n\ny esta es la imagen de como quedo:  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\n<!-- m --><a class=\"postlink\" href=\"http://img407.imageshack.us/my.php?image=reportexg6.jpg\">http://img407.imageshack.us/my.php?image=reportexg6.jpg</a><!-- m -->\n\nSaludos..   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2t9g30zo',1,0,'',987,0,0),(36975,8021,6,2,0,'87.218.146.38',1188493872,1,0,1,1,1,1,'','','Modifica el código así para comprobarlo:\n\ncMsgErr:=MultiLang(\"Error:\")+ oError:ClassName()','',0,'gA==','2c82xb0q',1,0,'',2,0,0),(36976,8022,2,2,0,'87.218.146.38',1188493992,1,0,1,1,1,1,'','','Gerardo,\n\nEl precio de FWH está indicado en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección \"pedidos\"','',0,'gA==','1y1x6zer',1,0,'',2,0,0),(36977,7718,6,2,0,'87.218.146.38',1188494132,1,0,1,1,1,1,'','','Paco,\n\nCambiale el ancho a la rebar:\n\noRebar:nWidth := ...','',0,'gA==','rgqaja3v',1,0,'',2,0,0),(36978,7972,3,2,0,'87.218.146.38',1188494242,1,0,1,1,1,1,'','','Tim,\n\nAs it is an OLE component, it doesn\'t matter if you use Borland or Microsoft. You manage a common OLE interface','',0,'gA==','r97tb2jj',1,0,'',2,0,0),(36979,8013,3,2,0,'87.218.146.38',1188494573,1,0,1,1,1,1,'','','Norberto,\n\nFor PRG files, /n /i... is ok, unless you want to stop on compiler warnings\n\nFor C files, -c is ok','',0,'gA==','2mxxg2nt',1,0,'',2,0,0),(36980,7717,6,987,0,'189.133.14.241',1188494615,1,0,1,1,1,0,'','','Estimados Colegas:  \n\nAproposito de Pintado de Controles: <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nEsto pasa con una simple ventana Principal y un Brush estilo Borland, Bricks, Tiled o cualquiera de los tipos de Pintado, abro la calculadora de Guindows o cualquier otra ventana ajena a mi sistema a 32bits y deja el fondo asi, y si tiene un dialogo abierto tambien lo borra: <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n32bits:\n<!-- m --><a class=\"postlink\" href=\"http://img267.imageshack.us/my.php?image=dibujosl9.jpg\">http://img267.imageshack.us/my.php?image=dibujosl9.jpg</a><!-- m -->\n\nCosa rara, con Clipper y Fivewin a 16bits no pasa esto: alguien sabe porque y como solucionarlo..?\n\n16Bits:\n<!-- m --><a class=\"postlink\" href=\"http://img262.imageshack.us/my.php?image=dibujocf5.jpg\">http://img262.imageshack.us/my.php?image=dibujocf5.jpg</a><!-- m -->','',0,'gA==','2sryosk7',1,0,'',987,0,0),(36981,7972,3,138,0,'189.141.65.96',1188494745,1,0,1,1,1,1,'','Re: Version of Funcky','[quote=&quot;TimStone&quot;:3pktm41o]You indicated the Delphi version will work with xHarbour but I assume that means if you are building the Borland version.\n\nI am using xCC/xBuilder which is the Microsoft Compatible version.  Usually items built for Borland do not work for xCC.\n[/quote:3pktm41o]\n\nhe he he, that\'s the magic of the COM components, they work with any programming language since they are external DLLs to your program, the only thing you have to do is copy to the windows\\system32 folder, and \"register\" them using regsrv32 funcky.dll and that\'s all.\n\nAs Antonio says, the OLE objects work under any programming language using the TOLEAUTO() class.\n\n\n[quote=&quot;TimStone&quot;:3pktm41o]\nAlso, I was going to email Dirk yesterday but there is no method of communication on the website, nor is his sales link working.  Some things require registration but you have to post an existing account for that to work.[/quote:3pktm41o]\n\nWrite to: <!-- e --><a href=\"mailto:support@funcky.com\">support@funcky.com</a><!-- e -->, Dirk will answer you.','',0,'gA==','3pktm41o',1,0,'',138,0,0),(36982,8021,6,914,0,'87.235.251.160',1188495017,1,0,1,1,1,0,'','','Probado, pero mismo resultado,\n¿como comprobar si una variable esta definida?','',0,'gA==','3q7ypeiw',1,0,'',914,0,0),(36983,8024,6,2,0,'87.218.146.38',1188495046,1,0,1,1,1,1,'','','REQUEST HB_Lang_PT \nREQUEST HB_CODEPAGE_PT \n...\nHB_LangSelect( \"PT\" )\nHB_SetCodePage( \"PT\" )','',0,'gA==','izp02jao',1,0,'',2,0,0),(36984,7718,6,1106,0,'190.64.205.48',1188497018,1,0,1,1,1,0,'','','Antonio y Paco:\n\nFunciono perfecto.\n\nAdemás se le puede cambiar el color\noRebar:SetColor(CLR_WHITE) // por ejemplo\n\nGracias Maestro.\n\nRuben Fernandez.','',0,'gA==','3o413mch',1,0,'',1106,0,0),(36985,8025,6,1053,0,'189.173.92.149',1188497657,1,0,1,1,1,1,'','No puedo enlazar una dbf con mysql','Hola a todos \n\nestoy haciendo un programa para enviar una dbf a mysql al momento de incluir el adordd en el programa no puedo abrir mis dbf\'s  me marca error que no existe el alias.\n\ncual seria el procedimiento para abrir estas dos bases  y poder pasar la información de una a otra ?\n\nSaludos de Antemano','',0,'gA==','1pc01agh',1,0,'',1053,0,0),(36986,6815,6,1053,0,'189.173.92.149',1188497774,1,0,1,1,1,1,'','copiar de dbf a mysql','Hola a todos \n\nestoy haciendo un programa para enviar una dbf a mysql al momento de incluir el adordd en el programa no puedo abrir mis dbf\'s me marca error que no existe el alias. \n\ncual seria el procedimiento para abrir estas dos bases y poder pasar la información de una a otra ? \n\nPerdon por el doble post\n\nSaludos.','',0,'gA==','7kasf344',1,0,'',1053,0,0),(36987,7718,6,73,0,'200.23.18.132',1188498621,1,0,1,1,1,0,'','','Gracias a ambos,\nfunciono ok., una pregunta mas antonio,\ncomo hago para en la toolbar posicionar un boton hasta la parte derecha de la barra?, ya que quedaria un espacio grande entre el penultimo y utlimo boton, y la clase los pone seguidos..\nsalu2\npaco','',0,'gA==','11ftx6q2',1,0,'',73,0,0),(36988,7972,3,343,0,'204.57.111.194',1188498744,1,0,1,1,1,0,'','','Funcky is a good product, but I would still give OstroSoft a try if all you need is smtp email.\n\nIt is free, small, very fast, and always seems to work. \n<!-- m --><a class=\"postlink\" href=\"http://www.ostrosoft.com/\">http://www.ostrosoft.com/</a><!-- m -->\n\nIf you need a sample let me know.','',0,'gA==','1gchq6rr',1,0,'',343,0,0),(36989,8024,6,362,0,'200.158.19.215',1188500900,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:lsxct8pk]REQUEST HB_Lang_PT \nREQUEST HB_CODEPAGE_PT \n...\nHB_LangSelect( \"PT\" )\nHB_SetCodePage( \"PT\" )[/quote:lsxct8pk]\n\nGracias Maestro Funciono Perfecto.\n\nYuri:\n\nResposta By Antonio Linares\n\nREQUEST HB_Lang_PT \nREQUEST HB_CODEPAGE_PT \n... \nHB_LangSelect( \"PT\" ) \nHB_SetCodePage( \"PT\" )\n\nCorreto:\n[code]\n#Include \"Fivewin.Ch\"\n\nREQUEST HB_LANG_PT\nREQUEST HB_CODEPAGE_PT850\n\nSTATIC oWnd\n\nFUNCTION MAIN()\n\n    LOCAL...\n    MEMVAR...\n    PUBLIC...\n\n    //-&gt;Defaults da Lingua Portuguesa do [x]Harbour\n    HB_LANGSELECT( \'PT\' )         // Default language is now Portuguese\n    //-&gt;Como indexar corretamente campos acentuados Harbour/xHarbour\n    //-&gt;Este recurso e valido para Harbour e xHarbour e requer a biblioteca\n    //-&gt;CODEPAGE.LIB.\n    HB_SETCODEPAGE( \"PT850\" )\n    ...\n    ...\n\nRETURN NIL\n\nNao esquecer de Chamar: CODEPAGE.LIB.\n\n\nMui Bueno.\n\nCongratulations.\n\nRegards, saludos.','',0,'gA==','lsxct8pk',1,0,'',362,0,0),(36990,7972,3,2,0,'87.218.146.38',1188501246,1,0,1,1,1,1,'','','Gale,\n\n&gt; If you need a sample let me know.\n\nWe do appreciate if you could post a sample of its use. Many thanks!','',0,'gA==','26p7r1cw',1,0,'',2,0,0),(36991,7718,6,2,0,'87.218.146.38',1188501398,1,0,1,1,1,1,'','','Paco,\n\nNo me suena que el control ToolBar permita hacer eso. \n\nHabría que buscar en google...','',0,'gA==','3o00lztm',1,0,'',2,0,0),(36992,8021,6,2,0,'87.218.146.38',1188501462,1,0,1,1,1,1,'','','Que valor te devuelve oError:ClassName() ? \"nil\" ?','',0,'gA==','2c0hmqqb',1,0,'',2,0,0),(36993,8021,6,2,0,'87.218.146.38',1188501515,1,0,1,1,1,1,'','','&gt; ¿como comprobar si una variable esta definida?\n\nType( \"nombre_variable\" ) == \"U\"\n\nOjo: el nombre de la variable entre comillas!','',0,'gA==','14giqark',1,0,'',2,0,0),(36994,7972,3,303,0,'72.199.41.171',1188501907,1,0,1,1,1,0,'','','From the OstroSoft SMTP_Component help file:\n\nLicensing\n\nNon-commercial license free  \nUnlimited usage for developing non-commercial applications. \n \nDeveloper license $19.00 (purchase) \nFor a single programmer to develop and distribute a single commercial application. \n \nServer license $59.00 (purchase) \nFor use in a commercial application, installed on a single server. \n \nEnterprise license $139.00 (purchase) \nFor programmers within a company to develop and distribute an unlimited number of commercial applications. \n\n\nJames','',0,'gA==','3r91vpjt',1,0,'',303,0,0),(36996,7718,6,73,0,'200.23.18.132',1188504671,1,0,1,1,1,0,'','','Bien, gracias Antonio\nPaco','',0,'gA==','3575cryl',1,0,'',73,0,0),(36997,8006,6,760,0,'200.62.254.143',1188504743,1,0,1,1,1,0,'','tdbf a 32 bits','Gracias compañero\n\nEstare esperando ... mi correo es <!-- e --><a href=\"mailto:daxreyna@mixmail.com\">daxreyna@mixmail.com</a><!-- e -->\n\nSalu2\n\nFrancis','',0,'gA==','1q6wv24d',1,0,'',760,0,0),(36998,8026,6,760,0,'200.62.254.143',1188504973,1,0,1,1,1,0,'','gtwin en verce','Hola a todos del foro\n\nCuando trato de compilar y ejecutar un sistema con verce, este me pide el archivo gtwwin, dice que no lo encuentra...\nHe visto en otros post que ya no se usa el gtwin, mas bien el gtgui.\nUso fwh7.04, que puedo hacer para que no me pida el nombre de este archivo o modificar algo en el verce...\n\nSalu2\n\nFrancis','',0,'gA==','3rdaiza9',1,0,'',760,0,0),(36999,7717,6,73,0,'200.23.18.132',1188505297,1,0,1,1,1,0,'','','a mi tambien me pasa lo mismo, y pues decidi olvidarme de eso; \ndejo imagen adjunta, unicamente tengo un degradado en la ventana principal, ya que si pongo una imagen esta se pierde casi por completo, a ver si por ahi salta la solucion..\n\n<!-- m --><a class=\"postlink\" href=\"http://img206.imageshack.us/my.php?image=pintadokq2.jpg\">http://img206.imageshack.us/my.php?image=pintadokq2.jpg</a><!-- m -->\n\ngracias\nsalu2\npaco','',0,'gA==','386kc9es',1,0,'',73,0,0),(37000,7972,3,343,0,'204.57.111.194',1188508051,1,0,1,1,1,0,'','','[code:2h0ucaiy]\nfunction mailtest&#40;&#41;\n   local oMail\n   local cHost          &#58;= \'mail&#46;myhost&#46;com\'\n   local cPopServer     &#58;= cHost\n   local lNeedsAuth     &#58;= &#46;f&#46;\n   local nPriority      &#58;= 0 // Normal &#40;Default&#41;\n   local nSensitivity   &#58;= 0 // Normal &#40;Default&#41;\n   local nNotify        &#58;= 0 // None &#40;Default&#41;\n   local lSentOk\n   local cSubject\n   local cText\n   local cSendTo        &#58;= \'gale&#46;ford@wwrowland&#46;com,help&#46;desk@wwrowland&#46;com\'\n   local cMailFrom      &#58;= \'me@myhost&#46;com\'\n\n   oMail &#58;= CreateObject&#40;&quot;OSSMTP&#46;SMTPSession&quot;&#41;\n   oMail&#58;Server &#58;= cHost\n   oMail&#58;RaiseError &#58;= &#46;f&#46;\n\n   if lNeedsAuth\n      oMail&#58;AuthenticationType &#58;= 2\n      oMail&#58;Password    &#58;= \'password\'\n      oMail&#58;Username    &#58;= \'administrator@myhost&#46;com\'\n      oMail&#58;ReplyTo     &#58;= \'me@myhost&#46;com&quot;\n      oMail&#58;POPServer   &#58;= cPopServer\n   else\n      oMail&#58;AuthenticationType &#58;= 0  // 0 = no authentication\n   endif\n   oMail&#58;Importance  &#58;= nPriority\n   oMail&#58;Sensitivity &#58;= nSensitivity\n\n   // Needs comma seperator so if someone used semicolon change them to commas\n   oMail&#58;SendTo &#58;= trim&#40;strtran&#40; cSendTo, \';\', \',\' &#41;&#41;\n   oMail&#58;MailFrom &#58;= cMailFrom\n\n   oMail&#58;MessageSubject &#58;= \'My test subject\'\n   oMail&#58;MessageText &#58;= \'Body of email&#46;\'\n\n   // Attachements *********************************\n   aFiles &#58;= &#123; \'c&#58;\\autoexec&#46;bat\', \'c&#58;\\config&#46;sys\' &#125;\n\n   for nCounter &#58;= 1 to len&#40; aFiles &#41;\n      oAttachment &#58;= CreateObject&#40;&quot;OSSMTP&#46;Attachment&quot;&#41;\n      oAttachment&#58;FilePath = aFiles&#91; nCounter &#93;\n      oAttachment&#58;AttachmentName = cFileNoPath&#40; aFiles&#91; nCounter &#93; &#41;\n      if file&#40; aFiles&#91; nCounter &#93; &#41;\n         oMail&#58;Attachments&#58;add&#40; oAttachment &#41;\n      endif\n   next\n   // Attachements *********************************\n\n   oMail&#58;SendEmail&#40;&#41;\n   if upper&#40; oMail&#58;Status &#41; = \'ERROR\'\n      lSentOk &#58;= &#46;t&#46;\n   else\n      lSentOk &#58;= &#46;f&#46;\n   endif\n   oMail &#58;= nil\nreturn&#40; lSentOk &#41;\n\n[/code:2h0ucaiy]','',0,'AIA=','2h0ucaiy',1,0,'',343,0,0),(37001,8017,3,1157,0,'168.209.97.34',1188508697,1,0,1,1,1,0,'','','Hi Antonio\n\nUnfortunately it did not work, I downloaded again:\n\n30/08/2007  22:56         2,570,452 harbourm.exe\n\nAfter install, there is in \\harbour\\bin:\n\n17/05/2007  10:22           499,712 harbour.exe\n\nRunning harbour /build I get:\n\nHarbour devel build 1.1-0 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nHarbour Build Info\n---------------------------\nVersion: Harbour devel build 1.1-0 Intl.\nPCode version: 0.2\nCompiler: Microsoft Visual C 12.0\nPlatform: Windows XP 5.1.2600 Service Pack 2\n\nBuilt on: May 17 2007 10:22:21\nLast ChangeLog entry: 2007-01-09 16:10 UTC+0100 Przemyslaw Czerpak\nChangeLog CVS version: ChangeLog,v 1.5169 2007/01/09 15:11:31\n\nRegards\nAlex','',0,'AIA=','1uvm6xfq',1,0,'',1157,0,0),(37002,8027,3,161,0,'81.83.249.31',1188509126,1,0,1,1,1,0,'','Magnifyer','Hi,\n\nIs there a \'Magnifyer\' class available?\nMy program is generating drawings. Sometimes here al lot of lines on it and now I use the metafile-class, and with the zoom function I zoom in. But then I have to scroll with the scroll-bars. It would be nicer to have a magnifyer, that only magnify a piece of the screen and can be moved by the mouse. I know that there are seperate programs to do that , but I want to have it integrated inmy program.\n\nThanks,\nMarc','',0,'AIA=','1lamttb1',1,0,'',161,0,0),(37003,8028,6,439,0,'200.125.32.12',1188510961,1,0,1,1,1,1,'','Enviar Mails con adjuntos ( o sin ) con FWH y xHarbour','Alguien sabe de alguna clase que efectivamente funcione con FWH y xHarbour y permita enviar mails con o sin adjunto (preferentemente con), agradezco si alguien tiene algo del estilo me pueda dar una mano, porque no tengo idea de momento del como y estoy necesitando desarrollar un soft que enviaría estados de cuenta por mail. \n\nGracias desde ya por sus ayudas de siempre <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .','',0,'AIA=','ce4prrzh',1,0,'',439,0,0),(37004,8028,6,1106,0,'190.64.206.100',1188511417,1,0,1,1,1,0,'','','Jose:\n\nAlguna ideas:\n\nLa clase tBlat, la encuentras aqui en el foro.\n\nOtra posibilidad es Funky 6.0 (componente Com de pago).\n\nCreo haber leido algo en el foro también.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','3fbqctcc',1,0,'',1106,0,0),(37005,8017,3,2,0,'87.218.146.38',1188511874,1,0,1,1,1,1,'','','Alex,\n\nYou may be linking wrong Harbour libraries. Here it is working fine','',0,'AIA=','32pldpjx',1,0,'',2,0,0),(37006,8027,3,2,0,'87.218.146.38',1188512150,1,0,1,1,1,1,'','','Marc,\n\nIts not very complicated to implement a magnifier for a bitmap, but it is complicated to do it for a metafile, as a metafile is not a bitmap: It is \"vectorial\" drawings (like freehand, CorelDraw, etc. drawings) and in this case the contents of the metafile have to be interpreted','',0,'AIA=','3o97ps5i',1,0,'',2,0,0),(37007,8029,6,911,0,'200.72.141.51',1188512178,1,0,1,1,1,0,'','René u otro usuario :ver solución al final','A ver:\nTengo el siguiente código:\n[code:3tooxa10]\n            temporal-&gt;&#40;dbGotop&#40;&#41;&#41;\n            //aDatos&#58;=AddRegistro&#40; &quot;DET_NOTA_VENTA&quot;&#41;\n            DO WHILE !temporal-&gt;&#40;Eof&#40;&#41;&#41;\n               aDatos&#58;=AddRegistro&#40; &quot;DET_NOTA_VENTA&quot;&#41;\n               IF aDatos&#91;1&#93;\n                  aDatos&#91;3&#93;&#58;AddNew&#40;&#41;\n                  aDatos&#91;3&#93;&#58;Fields&#40; &quot;idnotadeventa&quot;&#41;&#58;value&#58;=nIdNotadeVenta\n                  aDatos&#91;3&#93;&#58;Fields&#40; &quot;idproducto&quot;&#41;&#58;value&#58;=temporal-&gt;idproducto\n                  aDatos&#91;3&#93;&#58;Fields&#40; &quot;pventa&quot;&#41;&#58;value&#58;=temporal-&gt;pventa\n                  aDatos&#91;3&#93;&#58;Fields&#40; &quot;cantidad&quot;&#41;&#58;value&#58;=temporal-&gt;cantidad\n                  aDatos&#91;3&#93;&#58;Fields&#40; &quot;total&quot;&#41;&#58;value&#58;=temporal-&gt;total\n                  TRY\n                     aDatos&#91;3&#93;&#58;Update&#40;&#41;\n                  CATCH oError\n                     MsgStop&#40; oError&#58;Description, &quot;Error&quot;&#41;\n                  END\n                  TRY\n                     aDatos&#91;3&#93;&#58;Close&#40;&#41;\n                  CATCH oError\n                     lError&#58;=&#46;T&#46;\n                     MsgStop&#40; &quot;Se ha producido un error al agregar el Detalle&quot;, &quot;ERROR&#58;Linea 992&quot;&#41;\n                  END\n                  aDatos&#91;2&#93;&#58;Close&#40;&#41;\n               ELSE\n                  aDatos&#91;2&#93;&#58;Close&#40;&#41;\n                  MsgStop&#40; &quot;Se ha producido un error al agregar el Detalle&quot;, &quot;ERROR&#58;Linea 997&quot;&#41;\n                  lError&#58;=&#46;T&#46;\n               ENDIF\n               IF lError\n                  EXIT\n               ENDIF\n               temporal-&gt;&#40;dbSkip&#40;&#41;&#41;\n            ENDDO\n            /*aDatos&#91;3&#93;&#58;Update&#40;&#41;\n            TRY\n               aDatos&#91;3&#93;&#58;Close&#40;&#41;\n            CATCH oError\n               lError&#58;=&#46;T&#46;\n               MsgStop&#40; &quot;Se ha producido un error al agregar el Detalle&quot;, &quot;ERROR&#58;Linea 1022&quot;&#41;\n            END\n            aDatos&#91;2&#93;&#58;Close&#40;&#41;*/[/code:3tooxa10]\n\n[b:3tooxa10]Éste es el código de la función AddRegistro(cTabla)[/b:3tooxa10]:\n[code:3tooxa10]FUNCTION AddRegistro&#40; cTabla&#41;\n   LOCAL lOK&#58;=&#46;T&#46;, aResultados&#58;=Array&#40;3&#41;\n   LOCAL oCon, oError, oDatos\n\n   TRY\n      oCon&#58;=toleauto&#40;&#41;&#58;new&#40;&quot;adodb&#46;connection&quot;&#41;\n   CATCH oError\n      MsgStop&#40; &quot;Línea 125&#58; Error al crear la conexión&quot; + CRLF + ;\n               &quot;Sql&#40;&#41;&quot;, &quot;rutinasdeconexion&#46;prg&quot;&#41;\n      lOK&#58;=&#46;F&#46;\n   END\n   IF lOk\n      oCon&#58;ConnectionString&#58;=&quot;Provider=OraOLEDB&#46;Oracle;Data Source=192&#46;168&#46;0&#46;150&#58;1521/xe;User ID=usuario;Password=password;&quot;\n      oCon&#58;ConnectionTimeout&#58;=3600\n      TRY\n         oCon&#58;Open&#40;&#41;\n      CATCH oError\n         lOK&#58;=&#46;F&#46;\n      END\n      IF lOk\n         TRY\n            oDatos&#58;=TOleAuto&#40;&#41;&#58;New&#40;&quot;adodb&#46;recordset&quot;&#41;\n         CATCH oError\n            lOK&#58;=&#46;F&#46;\n            oDatos&#58;=NIL\n         END\n         IF lOk\n            oDatos&#58;CursorLocation  &#58;= adUseClient //adUseServer\n            //oDatos&#58;CursorLocation  &#58;= adUseServer\n            oDatos&#58;LockType &#58;= adLockOptimistic\n            oDatos&#58;CursorType &#58;= adOpenKeyset\n            oDatos&#58;Source &#58;= cTabla\n            oDatos&#58;ActiveConnection&#40;oCon&#41;\n            TRY\n               oDatos&#58;Open&#40;&#41;\n            CATCH oError\n               lOK&#58;=&#46;F&#46;\n            END\n         ENDIF\n      ENDIF\n   ENDIF\n   aResultados&#91;1&#93;&#58;=lOk\n   aResultados&#91;2&#93;&#58;=oCon\n   aResultados&#91;3&#93;&#58;=oDatos\nRETURN aResultados\n[/code:3tooxa10]\n[b:3tooxa10]Mi Problema:[/b:3tooxa10]\n1.- Cuando agrego un único registro el proceso funciona espectacular!!.\n2.- Si este mismo proceso lo realiza para más de un registro que tenga en una .DBF se cae y solamente me guarda en el servidor el primer registro. O sea, cuando utilizo el :addnew() más de una vez, el :update() falla.\n3.- Intenté colocando la llamada a la función fuera del do while y solamente utilizando el addnew() y el update() dentro del do while y falló.\n4.- Intenté lo mismo que en el punto 3, pero colocando el update() después del do while e igual se cae.\n\nIntenté jugando con los valores de oDatos:CursorLocation y nada.\n\nAgradeceré si me pueden ayudar. Debo estar pasando algo por alto.\n\nSaludos y gracias\n[b:3tooxa10]David Lagos S.\nCoquimbo-Chile[/b:3tooxa10]','',0,'QIA=','3tooxa10',1,1188592035,'',911,1,0),(37008,7972,3,2,0,'87.218.146.38',1188512394,1,0,1,1,1,1,'','','Gale,\n\nThanks!','',0,'QIA=','1d11d0v9',1,0,'',2,0,0),(37009,7717,6,2,0,'87.218.146.38',1188512555,1,0,1,1,1,1,'','','Paco, Carlos,\n\nNo sabemos cual puede ser la causa de ese efecto y por eso es dificil poder arreglarlo.\n\nEs como si no se estuviesen procesando algunos mensajes EraseBkGnd, pero el caso es que algunos sí se procesan. Ojalá entre todos encontremos una solución.','',0,'QIA=','1rmn420n',1,0,'',2,0,0),(37010,8021,6,911,0,'200.72.141.51',1188512604,1,0,1,1,1,0,'','Re: Error al intentar acceder a propiedades de oError','[quote=&quot;damosi&quot;:bhv52uwn]Saludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->, \nEstoy intentando capturar errores al evaluar expresiones (variable bvalexp), todo funciona ok salvo cuando intento mostrar o acceder al objeto oError para dar detalles de éste. Dado que este código se ejecuta en un programa CGI que interpreta archivos .hrb y devuelve el resultado como un fichero xml simplemente me llega error 502 y eso es porque no llega la respuesta XML simplemente, el XML no llega a generarse.\nSin embargo si quito el oError:Description el programa funciona como debe,  es decir, cuando la expresión dada en bvalexp es incorrecta entra en el bloque de recuperación y si no no entra.\n\nGracias,\n\nbManejadorerror:={ |oError| Break( oError ) }\n...\nbUltimoManejador:=ERRORBLOCK(bManejadorError)\nBEGIN SEQUENCE\n   if &amp;(Alltrim(bevalexp))\n      lfiltrar:=.T.\n   endif\nRECOVER USING oError\n   cResult:=\"E\"\n   cMsgErr:=MultiLang(\"Error:\")+[b:bhv52uwn]oError:Description[/b:bhv52uwn]\n   MensajeXML(cResult,cMsgErr,\"\",cContent,\"\")\n   RETURN\nEND SEQUENCE\nERRORBLOCK(bUltimoManejador)[/quote:bhv52uwn]\n\nY si Intentas con esto?\n[code:bhv52uwn]\nTRY\n   if &amp;&#40;Alltrim&#40;bevalexp&#41;&#41;\n      lfiltrar&#58;=&#46;T&#46;\n   endif\nCATCH oError\n   cResult&#58;=&quot;E&quot;\n   cMsgErr&#58;=MultiLang&#40;&quot;Error&#58;&quot;&#41;+oError&#58;Description\n   MensajeXML&#40;cResult,cMsgErr,&quot;&quot;,cContent,&quot;&quot;&#41;\n   RETURN\nEND\n[/code:bhv52uwn]\n\nSaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'wIA=','bhv52uwn',1,0,'',911,0,0),(37011,8028,6,2,0,'87.218.146.38',1188512765,1,0,1,1,1,1,'','','Jose,\n\nPrecisamente hoy Gale Ford en el foro en inglés ha comentado una solución gratuita (según su uso) y un ejemplo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ostrosoft.com/\">http://www.ostrosoft.com/</a><!-- m --> \n[code:14siwz5m]\nfunction mailtest&#40;&#41; \n   local oMail \n   local cHost          &#58;= \'mail&#46;myhost&#46;com\' \n   local cPopServer     &#58;= cHost \n   local lNeedsAuth     &#58;= &#46;f&#46; \n   local nPriority      &#58;= 0 // Normal &#40;Default&#41; \n   local nSensitivity   &#58;= 0 // Normal &#40;Default&#41; \n   local nNotify        &#58;= 0 // None &#40;Default&#41; \n   local lSentOk \n   local cSubject \n   local cText \n   local cSendTo        &#58;= \'gale&#46;ford@wwrowland&#46;com,help&#46;desk@wwrowland&#46;com\' \n   local cMailFrom      &#58;= \'me@myhost&#46;com\' \n\n   oMail &#58;= CreateObject&#40;&quot;OSSMTP&#46;SMTPSession&quot;&#41; \n   oMail&#58;Server &#58;= cHost \n   oMail&#58;RaiseError &#58;= &#46;f&#46; \n\n   if lNeedsAuth \n      oMail&#58;AuthenticationType &#58;= 2 \n      oMail&#58;Password    &#58;= \'password\' \n      oMail&#58;Username    &#58;= \'administrator@myhost&#46;com\' \n      oMail&#58;ReplyTo     &#58;= \'me@myhost&#46;com&quot; \n      oMail&#58;POPServer   &#58;= cPopServer \n   else \n      oMail&#58;AuthenticationType &#58;= 0  // 0 = no authentication \n   endif \n   oMail&#58;Importance  &#58;= nPriority \n   oMail&#58;Sensitivity &#58;= nSensitivity \n\n   // Needs comma seperator so if someone used semicolon change them to commas \n   oMail&#58;SendTo &#58;= trim&#40;strtran&#40; cSendTo, \';\', \',\' &#41;&#41; \n   oMail&#58;MailFrom &#58;= cMailFrom \n\n   oMail&#58;MessageSubject &#58;= \'My test subject\' \n   oMail&#58;MessageText &#58;= \'Body of email&#46;\' \n\n   // Attachements ********************************* \n   aFiles &#58;= &#123; \'c&#58;\\autoexec&#46;bat\', \'c&#58;\\config&#46;sys\' &#125; \n\n   for nCounter &#58;= 1 to len&#40; aFiles &#41; \n      oAttachment &#58;= CreateObject&#40;&quot;OSSMTP&#46;Attachment&quot;&#41; \n      oAttachment&#58;FilePath = aFiles&#91; nCounter &#93; \n      oAttachment&#58;AttachmentName = cFileNoPath&#40; aFiles&#91; nCounter &#93; &#41; \n      if file&#40; aFiles&#91; nCounter &#93; &#41; \n         oMail&#58;Attachments&#58;add&#40; oAttachment &#41; \n      endif \n   next \n   // Attachements ********************************* \n\n   oMail&#58;SendEmail&#40;&#41; \n   if upper&#40; oMail&#58;Status &#41; = \'ERROR\' \n      lSentOk &#58;= &#46;t&#46; \n   else \n      lSentOk &#58;= &#46;f&#46; \n   endif \n   oMail &#58;= nil \nreturn&#40; lSentOk &#41; \n[/code:14siwz5m]','',0,'AIA=','14siwz5m',1,0,'',2,0,0),(37012,7717,6,73,0,'200.23.18.132',1188512840,1,0,1,1,1,0,'','','Gracias Antonio, entiendo que es dificil dar con la causa, paciencia y ojala pronto salga el detalle... me pregunto, a los que les ha pasado, pasa con harbour y xharbour?\nsalu2\npaco','',0,'AIA=','3qe0jsvi',1,0,'',73,0,0),(37013,8026,6,2,0,'87.218.146.38',1188512897,1,0,1,1,1,1,'','','Renombra GTGUI.lib como GTWIN.lib','',0,'AIA=','2o4is8s5',1,0,'',2,0,0),(37014,8017,3,1157,0,'168.209.97.34',1188514678,1,0,1,1,1,0,'','','Hi Antonio\n\nI have quite a few versions of Harbour and xHarbour on my machine, but I have carefully checked if I might be linking the wrong thing, I do not think so.\n\nI have not downloaded any new FiveWin libraries, are these still correct?\n\n06/07/2007  22:27         1,403,392 Fiveh.lib\n08/06/2007  12:26           359,424 Fivehc.lib\n08/06/2007  12:26           631,922 Fivehcm.lib\n06/07/2007  22:27         2,306,524 Fivehm.lib\n15/07/2007  20:02         2,487,504 Fivehmx.lib\n15/07/2007  20:02         1,488,384 Fivehx.lib\n10/05/2005  09:27               543 readme.txt\n\nFWIW these are the harbour libs from the most recent download:\n\n17/05/2007  10:37            28,118 adordd.lib\n17/05/2007  10:24           134,668 codepage.lib\n17/05/2007  10:22           164,216 common.lib\n17/05/2007  10:24           267,258 dbfcdx.lib\n17/05/2007  10:24            62,932 dbffpt.lib\n17/05/2007  10:24           106,858 dbfntx.lib\n17/05/2007  10:23           512,144 debug.lib\n17/05/2007  10:24             5,876 gtgui.lib\n17/05/2007  10:24            29,044 gtwin.lib\n15/07/2007  13:14            33,280 hboleaut.lib\n17/05/2007  10:24            15,728 hbsix.lib\n17/05/2007  10:24            32,214 hsx.lib\n17/05/2007  10:23         1,256,774 lang.lib\n17/05/2007  10:23            95,530 macro.lib\n17/05/2007  10:22           494,172 pp.lib\n17/05/2007  10:24           338,782 rdd.lib\n17/05/2007  10:38            98,042 rddads.lib\n17/05/2007  10:23         1,604,438 rtl.lib\n17/05/2007  10:24           113,874 usrrdd.lib\n17/05/2007  10:22           583,514 vm.lib\n\nRegards\nAlex','',0,'AIA=','3a0h5n8m',1,0,'',1157,0,0),(37015,8017,3,2,0,'87.218.146.38',1188514953,1,0,1,1,1,1,'','','Alex,\n\nPlease use this rtl.lib:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/52352532/rtl.zip.html\">http://rapidshare.com/files/52352532/rtl.zip.html</a><!-- m -->\n\nAlex, all Harbour libs should be dated 30/08/07. I have just installed harbourm.exe to check it. You are not using the right harbourm.exe or you are using wrong libraries.','',0,'AIA=','3ozwnzro',1,0,'',2,0,0),(37016,8017,3,1157,0,'168.209.97.34',1188516236,1,0,1,1,1,0,'','','Hi Antonio\n\nI have downloaded harbourm.exe again. It says it is the May 17 build and it is identical to the old one. I originally was using SeaMonkey (Mozilla) to download and now I used IE7 to do the download.\n\nAre you quite sure that this :\n\n <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbourm.exe\">www.fivetechsoft.com/files/harbourm.exe</a><!-- w -->\n\nis the right file?\n\nPerhaps it is some caching issue, could you possibly e-mail me the file? I am at <!-- e --><a href=\"mailto:sscc@mweb.co.za\">sscc@mweb.co.za</a><!-- e -->?\n\nRegards\nAlex','',0,'AIA=','2kbpl9oh',1,0,'',1157,0,0),(37017,8026,6,760,0,'200.62.254.143',1188516575,1,0,1,1,1,0,'','gtein en verce','Ok Master\n\nVoy a intentarlo y reportare como resulta...\nOtra pregunta con fwh7.04 el xbrowse ya funciona del todo ok, como edicion por celdas, es que no tengo muchos ejemplos sobre este tema.\n\nGracias\n\nSalu2\n\nFrancis','',0,'AIA=','1rnf7or6',1,0,'',760,0,0),(37018,8017,3,2,0,'87.218.146.38',1188518354,1,0,1,1,1,1,'','','Alex,\n\nAlready sent by email.\n\nIt has to be a cache issue as the file at the FTP is dated 30/08/07','',0,'AIA=','1omn5um8',1,0,'',2,0,0),(37019,8026,6,2,0,'87.218.146.38',1188518520,1,0,1,1,1,1,'','','Francis,\n\nFunciona bastante mejor, aunque la versión más completa es la que se incluye en FWH 7.07','',0,'AIA=','211r2l23',1,0,'',2,0,0),(37020,8020,3,2,0,'87.218.146.38',1188519072,1,0,1,1,1,1,'','','Yuri,\n\nYes, the Windows clipboard supports metafiles by default. Please add this method to FWH Class TClipboard:\n[code:1cc2wcc6]\n#define CF_ENHMETAFILE      14\n\nMETHOD SetMetaFile&#40; oMetaFile &#41; CLASS TClipBoard\n\n   local lResult &#58;= &#46;f&#46;\n\n   if &#58;&#58;Open&#40;&#41;\n      EmptyClipboard&#40;&#41;\n      lResult = SetClipboardData&#40; CF_ENHMETAFILE, oMetaFile&#58;hMeta &#41;\n      lResult &#58;= &#58;&#58;Close&#40;&#41; &#46;and&#46; lResult\n   endif\n\nreturn lResult\n[/code:1cc2wcc6]','',0,'AIA=','1cc2wcc6',1,0,'',2,0,0),(37021,8030,3,620,0,'65.245.57.110',1188525934,1,0,1,1,1,0,'','Database Glitch','This is an issue I have had sporadically and have no clue where to begin to look.  I have an application that is just a simple update of a database with two relational databases...typically have about 15 users at a time.\n\nInexplicably, the main database will replicate itself many times over...this used to happen ocassionally...very rarely, just chalked it up to some computer glitch...but this same thing has happend to me three times in the past month.  The main database will typically only have 250-300 live records, with maybe another 200 or so that have been deleted prior to a pack and reindex.  Then BOOM...some operation has cause the database to expand to anywhere from 4000 to 16,000 records, the entire database having been copied into itself 100s of times, in the same record order (i.e. record 1 to 300 , then 1 to 300 again...1-300 again..and again and again and again).  \n\nIm using database objects.   Can anyone give me a clue of where to begin to look for what would cause this?   The program behaves normally 99.9% of the time.  Its beginning to be a real nightmare, especially when reports are produced that should be 5-10 pages and come out 100-500 pages.  \n\nThanks again!\nGreg','',0,'AIA=','1rrmi04c',1,0,'',620,0,0),(37022,8030,3,620,0,'65.245.57.110',1188526814,1,0,1,1,1,0,'','addendum','Oh, should have stated outright the the most likely culprit, a DO loop of some kind, is not even part of the code...no Loops whatsoever...only database objects oDbf:load, oDdb:append(), oDbf:save...etc.\nThanks,\nG','',0,'AIA=','1kw8tiqs',1,0,'',620,0,0),(37023,8025,6,138,0,'189.141.65.96',1188527495,1,0,1,1,1,1,'','','Asi es, si cambiaste el RDD por el ADO RDD tus comandos ya no operan sobre tablas DBFs sino sobre tablas SQL.\n\nPara hacer \"convivir\" los 2 entornos tendras que indicarle a tu programa que adicionalmente \"cargue\" el RDD para manejo de tablas DBF:\n\nREQUEST DBFCDX // o DBFNTX según sea el caso.\n\nComo supongo que le haz puesto el RddSetDefault() al ADORDD, si quieres abrir tablas DBF comunes y corrientes tendras que agregar la clausula VIA al momento de abrir el DBF\n\nUSE &lt;tu tabla dbf&gt; VIA \"DBFCDX\"\n\nY listo, con eso puedes hacer convivir los 2 RDDs sin problema alguno','',0,'AIA=','9x4s7106',1,0,'',138,0,0),(37024,8029,6,138,0,'189.141.65.96',1188527865,1,0,1,1,1,1,'','','Lo que no entiendo es porque cierras el RecordSet ?????\n\nPor eso solo puedes meter un solo registro, si depues del hacer el ::AddNew(), hacer la asignación de variables, y luego ::Update(), estoy viendo que haces un ::Close(), si cierras el record set YA NO EXISTE, luego entonces no puedes agregar nada mas a el.\n\nSolucion, NO CIERRES EL RECORDSET hasta después del ENDDO.','',0,'AIA=','c2hqhfks',1,0,'',138,0,0),(37025,7972,3,34,0,'68.5.217.82',1188530175,1,0,1,1,1,1,'','Interesting','Gale, \n\nI tried the straight mailtest( ) and it worked, so I then cut it into the program I am working with and at first I thought it wasn\'t working, but then a long time later I found that the emails finally came through.  So, that could be a server issue and I\'ll check on that later.\n\nI did note that you put in the code that if the oMail:status = \"ERROR\" then you flag the email successful, and if ERROR is not returned you flag it unsuccessful.  That puzzled me so I looked at the value of the status return and it said Error 11004:Valid name, no data record of requested type\"  Any thoughts on what this all means ?\n\nThanks\n\nTim','',0,'AIA=','1dr0apbw',1,0,'',34,0,0),(37026,8029,6,911,0,'200.72.141.52',1188530911,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:1yb3504q]Lo que no entiendo es porque cierras el RecordSet ?????\n\nPor eso solo puedes meter un solo registro, si depues del hacer el ::AddNew(), hacer la asignación de variables, y luego ::Update(), estoy viendo que haces un ::Close(), si cierras el record set YA NO EXISTE, luego entonces no puedes agregar nada mas a el.\n\nSolucion, NO CIERRES EL RECORDSET hasta después del ENDDO.[/quote:1yb3504q]\n\nGracias René por tu ayuda.\n\nÉste es el browse antes del error:\n[img:1yb3504q]http&#58;//img110&#46;imageshack&#46;us/img110/1058/browsecondatosparaadooh0&#46;jpg[/img:1yb3504q]\n\ny esta es la imagen del error con el browse de fondo.\n[img:1yb3504q]http&#58;//img411&#46;imageshack&#46;us/img411/2919/errorado2ge1&#46;jpg[/img:1yb3504q]\n\nEsta es la imagen del error.log:\n[img:1yb3504q]http&#58;//img408&#46;imageshack&#46;us/img408/2363/errorado1zk4&#46;jpg[/img:1yb3504q]\n\nHice lo que me indicas y no resultó. Así dejé el código:\n[code:1yb3504q]\ntemporal-&gt;&#40;dbGotop&#40;&#41;&#41;\naDatos&#58;=AddRegistro&#40; &quot;DET_NOTA_VENTA&quot;&#41;\nDO WHILE !temporal-&gt;&#40;Eof&#40;&#41;&#41;\n   aDatos&#91;3&#93;&#58;AddNew&#40;&#41;\n   aDatos&#91;3&#93;&#58;Fields&#40; &quot;idnotadeventa&quot;&#41;&#58;value&#58;=nIdNotadeVenta\n   aDatos&#91;3&#93;&#58;Fields&#40; &quot;idproducto&quot;&#41;&#58;value&#58;=temporal-&gt;idproducto\n   aDatos&#91;3&#93;&#58;Fields&#40; &quot;pventa&quot;&#41;&#58;value&#58;=temporal-&gt;pventa\n   aDatos&#91;3&#93;&#58;Fields&#40; &quot;cantidad&quot;&#41;&#58;value&#58;=temporal-&gt;cantidad\n   aDatos&#91;3&#93;&#58;Fields&#40; &quot;total&quot;&#41;&#58;value&#58;=temporal-&gt;total\n   aDatos&#91;3&#93;&#58;Update&#40;&#41;\n   temporal-&gt;&#40;dbSkip&#40;&#41;&#41;\nENDDO\naDatos&#91;3&#93;&#58;Close&#40;&#41;\naDatos&#91;2&#93;&#58;Close&#40;&#41;\n[/code:1yb3504q]\n\nEn la parte del [b:1yb3504q]Fields(cNombrecampo):value:=valor[/b:1yb3504q] intenté con [b:1yb3504q]Fields(0):value:=valor[/b:1yb3504q] y tampoco resultó.\n\nSi te fijas tengo lo siguiente antes del do while:\n[code:1yb3504q]aDatos&#58;=AddRegistro&#40; &quot;DET_NOTA_VENTA&quot;&#41;[/code:1yb3504q]\nEsa función (código completo en el post anterior) crea el objeto conexión y el objeto recordset de ado y me deja en condiciones de utilizar el :addnew() y el :update().\nEl objeto conexión regresa a mí en aDatos[2] y el objeto recordset regresa en aDatos[3]. aDatos[1] solamente tiene un valor lógico que me indica si tuvo éxito la función en abrir el objeto conexión y el objeto recordset. Y luego del ENDDO sencillamente cierro la conexión al recordset (aDatos[3]) y al objeto conexión de ado (aDatos[2]).\n\nO sea; haciendo lo que tú me indicas que es abriendo el recordset antes del DO WHILE y cerrándolo después del ENDDO tampoco funciona.\n\n¿Puedes poner atención al código que está más abajo (FUNCTION AddRegistro( cTabla)  del post anterior, e indicarme si todo está bién?, en especial esta parte:\n[code:1yb3504q]\noDatos&#58;CursorLocation  &#58;= adUseClient //adUseServer\n//oDatos&#58;CursorLocation  &#58;= adUseServer\noDatos&#58;LockType &#58;= adLockOptimistic\noDatos&#58;CursorType &#58;= adOpenKeyset\noDatos&#58;Source &#58;= cTabla\noDatos&#58;ActiveConnection&#40;oCon&#41;\nTRY\n   oDatos&#58;Open&#40;&#41;\nCATCH oError\n   lOK&#58;=&#46;F&#46;\nEND\n[/code:1yb3504q]\nInfinitas gracias René\n[b:1yb3504q]David[/b:1yb3504q]','',0,'yIA=','1yb3504q',1,0,'',911,0,0),(37027,8028,6,439,0,'200.125.38.15',1188531804,1,0,1,1,1,1,'','','Gracias compatriota, gracias Antonio, <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMUCHAS GRACIAS por responder tan rápido, siempre me siento acompañado por este foro <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nAprecio y valoro mucho el compañerismo de todos.\n\n[b:3vm6hmmn]Voy a ver ambas opciones y luego les cuento[/b:3vm6hmmn] <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> .','',0,'QA==','3vm6hmmn',1,0,'',439,0,0),(37028,8031,6,1106,0,'190.64.199.170',1188535867,1,0,1,1,1,0,'','Rene Flores ADS','Estimado Rene:\n\nNecesito saber el precio de ADS para 5 usuarios.\n\nEs a titulo de información, ya le envie un mail a rflores...\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'QA==','qidv49xf',1,0,'',1106,0,0),(37029,8027,3,161,0,'141.6.8.73',1188541336,1,0,1,1,1,0,'','','Antonio,\n\nIs it to possible to write some kind of function that \'read\' the status of the pixels displayed on the screen.\nThen it\'s possible to display it bigger.\n\nMarc','',0,'QA==','1us4bpgt',1,0,'',161,0,0),(37030,8027,3,2,0,'87.218.146.196',1188541467,1,0,1,1,1,1,'','','Marc,\n\nYes, it is possible, but that won\'t help to see a clearer metafile, because the metafile contents are \"drawing instructions\", not pixels.','',0,'QA==','3ni5g39h',1,0,'',2,0,0),(37031,8027,3,161,0,'141.6.8.75',1188542082,1,0,1,1,1,0,'','','Antonio,\n\nNow I first check the resolution of the screen and then make the lines that they are just 1 pixel. If we could \'read\' the screen and then display it that the screen is 2 times bigger and the lines have a thickness of 2 pixels, would be nice.\n\nMarc','',0,'QA==','1rizc5qg',1,0,'',161,0,0),(37032,8027,3,2,0,'87.218.146.196',1188543713,1,0,1,1,1,1,'','','Marc,\n\nTo build a magnifier simply use GetPixel( hDC, nXPos, nYPos ) --&gt; nRGBColor to read the pixels and SetPixel( hDC, nXPos, nYPos, nRGBColor ) to paint them.\n\nIf you read 1 pixel, then you could write four pixels for it. This way you magnify the image.\n\nThere is a way to speed up this process, using BitBlt(), so you don\'t have to process pixel by pixel, instead you manage all of them at one time.\n\nKeep in mind that this will only work on bitmaps. Metafiles won\'t benefit.','',0,'QA==','1vmy965k',1,0,'',2,0,0),(37033,7999,11,2,0,'87.218.146.196',1188543937,1,0,1,1,1,1,'','','Doug,\n\nWe have been trying to fix that behavior without luck yet','',0,'QA==','2xk6gzth',1,0,'',2,0,0),(37034,7999,11,578,0,'218.214.35.132',1188545030,1,0,1,0,1,0,'','Thanks for effort and advice','Antonio\n\nThanks for your effort and advice.  I will start investigating workarounds.  But a fix would be highly desirable.\n\nOne possibility is to use a get for the current value (read only) plus a listbox and a button labelled \"change to\" - a bit complex if there are multiple listboxes on the one screen.\n\nI\'ll try a one column grid although that may behave in the same way.\n\nThanks\n\nDoug (xProgrammer)','',0,'QA==','1es3lpib',1,0,'',578,0,0),(37035,8017,3,1157,0,'168.209.97.34',1188545262,1,0,1,1,1,0,'','','Hello Antonio\n\nThe e-mail did it. Thank you very much for your attention.\n\nRegards\nAlex','',0,'QA==','1amsohq4',1,0,'',1157,0,0),(37036,8032,2,1159,0,'62.110.52.11',1188545881,1,0,1,1,1,0,'','Tword y PDF','Hola:\nQueria saber como puedo hacer una vez creado un .doc con la clase tword transformarlo automaticamente en un .PDF, me pueden dar alguna idea?. \n \nGracias. \n \nSandra','',0,'QA==','1czj1mkd',1,0,'',1159,0,0),(37037,8000,3,161,0,'141.6.8.74',1188546789,1,0,1,1,1,0,'','','Antonio,\n\nDo I have to release the buttons while ending the window with the buttons?\n\nIf I call the BTNBMP the first time, everthing is fine. The second time, the text in the buttons are missind, and the other text on the screen are bold.\n\nI already tried oBtn:end() with no result.\n\nMarc','',0,'QA==','3oitvs3w',1,0,'',161,0,0),(37038,7717,6,316,0,'213.97.245.163',1188546937,1,0,1,1,1,0,'','','Paco, \nyo solo lo he probado con xHarbour que es lo que uso, aunque sospecho que no tiene nada que ver con el compilador, ya que es muy poco lo que podría cambiar entre uno y otro. Es un tema más bien de procesos y de mensajes, creo que hay algo que se está perdiendo duarante el proceso de pintado pero no logro darme cuenta exactamente qué, algo debe haber cambiado con el agregado de temas en windows o algo así. \nAl menos ya han aparecido otros programas con el mismo problema, lo que me deja... no sé si tranquilo, porque preferiría que esto no ocurriese, pero es que estoy dándole vueltas al tema pensando que yo hacía algo mal en el pintado para que ocurriesen esas cosas. Al principio pensaba que me pasaba solo a mí y me estaba volviendo loco  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nUn saludo,\n\nCarlos','',0,'QA==','vmp7qzn2',1,0,'',316,0,0),(37039,8016,3,460,0,'217.37.54.49',1188547032,1,0,1,1,1,0,'','','Has anyone compared speed/performace between ADO &amp; the xHarbour SQLRDD?\n\nI would be interested in how seek speeds compare\n\nPete','',0,'QA==','34tobrrg',1,0,'',460,0,0),(37040,8021,6,914,0,'212.145.85.177',1188547208,1,0,1,1,1,0,'','','Gracias David,\n\nno compila da error de sintaxis creo que try catch solo funciona en xharbour.','',0,'QA==','1qc864vg',1,0,'',914,0,0),(37041,7999,11,578,0,'218.214.35.132',1188547880,1,0,1,0,1,0,'','Tried a 1 column grid','Antonio\n\nI tried a 1 column BROWSE.  Setting oBrw:nAt worked in the sense that it selected the correct row but it also made that row the top row of the browse - which is not what I want.  I haven\'t yet figured out how to use oBrw:oVScroll to scroll back to the top (hopefully without moving the currently highlighted row).\n\nThanks\n\nDoug (xProgrammer)','',0,'QA==','1nf73eat',1,0,'',578,0,0),(37042,8033,3,47,0,'203.144.160.247',1188547916,1,0,1,1,1,0,'','I can Fixed it, Thans (Problem with TFolder change Prompt)','Dear Antonio,\n\nI used to change aPrompts and Refresh Folder as following.\n\noFld:aPrompts[2] := \'Test\'\noFld:Refresh()\n\nIt works fine with Clipper&amp;FW16bits.\nBut xHB&amp;FWH707 is not working.\n\nBest regards,\nDutch\n\nI fixed it with SetPrompts()','',0,'','1mt0ewe0',1,0,'',47,0,0),(37043,5956,3,904,0,'198.54.202.250',1188548003,1,0,1,1,1,1,'','','I don\'t understand what oApp:cRazonSocial is.','',0,'','3v2qn4sb',1,0,'',904,0,0),(37044,8021,6,914,0,'87.235.251.160',1188549970,1,0,1,1,1,0,'','','Antonio perdona, me salte tu último post, <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  \nhe probado lo que me dijiste y me deja aun más desconcertado pues me devuleve \"O\" o sea que efectivamente es un objeto.','',0,'','3rtkd334',1,0,'',914,0,0),(37045,5956,3,995,0,'81.11.216.195',1188550956,1,0,1,1,1,0,'','','&gt; I don\'t understand what oApp:cRazonSocial is.\n \n\nMaybe your own text to substitute !\n\nFrank','',0,'','19vl23sd',1,0,'',995,0,0),(37046,8000,3,2,0,'87.218.146.196',1188552404,1,0,1,1,1,1,'','','Marc,\n\n&gt; Do I have to release the buttons while ending the window with the buttons? \n\nNo, its not needed as they will be automatically destroyed\n\n&gt;\nIf I call the BTNBMP the first time, everthing is fine. The second time, the text in the buttons are missind, and the other text on the screen are bold. \n&gt;\n\nHave you defined a font for the buttons ? If yes, do this: oFont:nCount++','',0,'','yis3bu7f',1,0,'',2,0,0),(37047,8021,6,2,0,'87.218.146.196',1188552533,1,0,1,1,1,1,'','','Entonces prueba:\n\ncMsgErr:=MultiLang(\"Error:\")+ oError:ClassName()\n\ny veamos cual es la clase del objeto','',0,'','10tyxs28',1,0,'',2,0,0),(37048,8021,6,914,0,'87.235.251.160',1188553243,1,0,1,1,1,0,'','','Antonio lo he probado, pero cualquier intento de acceder a\npropiedades del objeto produce el error.\n\nHe realizado alguna prueba (forzando una expresión con error) quitando el manejador de errores y dejando que el intérprete de hrb (llamado clipxnet) lo maneje, la salida es esta:\n\n[code:2bkht40x]\nCreacion de archivo, 20070831 11&#58;32&#58;21\n\n********** FECHA&#58; 20070831 11&#58;32&#58;21   Red&#58; LWWB483 **********\nSistema&#58; HClipxNet v0&#46;99\nDirectorio&#58; C&#58;\\Inetpub\\wwwroot\\\nDisco&#58; 59,939,790,848   RAM &#40;KBytes&#41;&#58; 125,644   DOS&#58; Windows 2000 5&#46;0&#46;2195 Service Pack 4\nBase&#58;   &#40;5&#41; CONGRES    Fecha&#58; 20070827    Reg&#58; 3/40\nIndice&#58; &#40;1&#41; CODIGO\nError BASE/1449  Syntax error&#58; &amp;\nLlamado por XMLFILTREPORTGEN&#40;2088&#41;\nLlamado por CENTRO&#40;451&#41;\nLlamado por MAIN&#40;93&#41;\nLlamado por __HRBRUN&#40;0&#41;\nLlamado por SGHRBRUN&#40;1640&#41;\nLlamado por &#40;b&#41;SGBLOCK&#40;2552&#41;\nLlamado por SGCGISCRIPT&#40;1390&#41;\nLlamado por MAIN&#40;601&#41;\n[/code:2bkht40x]\n\nEstoy pensando que quizás David Arturo Macias (autor de clipxnet) haya \"tocado algo\" para implementar su función de captura de errores, no lo se. por otro lado ¿es posible impedir la lectura de propiedades de un objeto?','',0,'AIA=','2bkht40x',1,0,'',914,0,0),(37049,8027,3,308,0,'84.148.54.43',1188553494,1,0,1,1,1,0,'','Re: Magnifyer','[quote=&quot;Marc Vanzegbroeck&quot;:enammp19]Hi,\n\nIs there a \'Magnifyer\' class available?\nMy program is generating drawings. Sometimes here al lot of lines on it and now I use the metafile-class, and with the zoom function I zoom in. But then I have to scroll with the scroll-bars. It would be nicer to have a magnifyer, that only magnify a piece of the screen and can be moved by the mouse. I know that there are seperate programs to do that , but I want to have it integrated inmy program.\n\nThanks,\nMarc[/quote:enammp19]\n\nlook this: <!-- m --><a class=\"postlink\" href=\"http://www.canalfive.com/modules.php?name=Downloads&amp;d_op=getit&amp;lid=7\">http://www.canalfive.com/modules.php?na ... etit&amp;lid=7</a><!-- m -->','',0,'gA==','enammp19',1,0,'',308,0,0),(37050,8027,3,2,0,'87.218.146.196',1188558750,1,0,1,1,1,1,'','','Norberto,\n\nVery good! Thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nyes, it was StretchBlt() instead of BitBlt() to magnify it','',0,'gA==','1b17o420',1,0,'',2,0,0),(37051,8021,6,2,0,'87.218.146.196',1188558875,1,0,1,1,1,1,'','','&gt; Error BASE/1449  Syntax error: &amp; \n\nEso parece un error en una macro','',0,'gA==','kwbc4g0l',1,0,'',2,0,0),(37052,8033,3,2,0,'87.218.146.196',1188558994,1,0,1,1,1,1,'','','&gt; I fixed it with SetPrompts()\n\nRight, thats the method to use in Win32 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3bdeodsa',1,0,'',2,0,0),(37053,8034,6,1105,0,'83.52.211.162',1188559096,1,0,1,1,1,0,'','coordenadas en TXBrowse()','Hola:\n\nQuiero sustituir un LISTBOX por un TXBrowse(). El LISTBOX es:\n\n   @ 00,42 LISTBOX oPBrow ;\n     	FIELDS First, Last, Street, City  ;\n        OF oDlg         ;\n      SIZE (oDlg:nWidth()-80)/2, (oDlg:nHeight()-21)/2 PIXEL  ;\n      HEADERS \"First\", \"Last\", \"Street\", \"City\"  ;\n      SIZES 100,100,200,150 UPDATE\n\n\nPero no encontrado la forma se especificar las coordenadas de arranque ni el tamaño. ¿Se puede hacer?. Muchas gracias,','',0,'gA==','1yyjvana',1,0,'',1105,0,0),(37054,8021,6,914,0,'87.235.251.160',1188559389,1,0,1,1,1,0,'','','Efectivamente, la línea 2088 es :\n\n[b:2qoflggl]if &amp;(Alltrim(bevalexp)) [/b:2qoflggl]\n\ndonde le paso una expresión a bevalexp que sé va a dar error, para que salte el manejador de errores. \n\nLa salida que pegue antes era la que daba clipxnet al capturar el error una vez comentadas las líneas:\n\n//bUltimoManejador:=ERRORBLOCK(bManejadorError)\ny\n//ERRORBLOCK(bUltimoManejador)','',0,'QA==','2qoflggl',1,0,'',914,0,0),(37055,7999,11,578,0,'218.214.35.132',1188560570,1,0,1,0,1,0,'','A suggestion','Antonio\n\nA possible work around might be if the LISTBOX class supported code blocks that were evaluated for the SETFOCUS and LOSTFOCUS events.  The we could keep track of the last value and reset it.  Not perfect - the screen might flash a bit, but possibly workable.\n\nI also note that it only happens the first time you tab into the listbox, and if you click the mouse on the listbox before tabbing into it, the behaviour doesn\'t occur.\n\nThis suggested that programmatically setting focus to the listbox might solve the problem.  I tried that (prior to dialog activation) but it didn\'t work.  Maybe if we could do it in an ON INIT method (and so after dialog activation) that might work.\n\nMaybe one of these approaches will work.\n\nRegards\n\nDoug (xProgrammer)','',0,'QA==','10kckpdo',1,0,'',578,0,0),(37056,8021,6,2,0,'87.218.146.196',1188561563,1,0,1,1,1,1,'','','Prueba con: \n\ncMsgErr:=MultiLang(\"Error:\")+ __ClassName( __ClassHandle( oError ) )','',0,'QA==','3h7g4uaj',1,0,'',2,0,0),(37057,8021,6,914,0,'87.235.251.160',1188561871,1,0,1,1,1,0,'','','Antonio me da el siguiente error\n\n[code:2wyfybns]\nCreacion de archivo, 20070831 14&#58;03&#58;54\n\n********** FECHA&#58; 20070831 14&#58;03&#58;54   Red&#58; LWWB483 **********\nSistema&#58; HClipxNet v0&#46;99\nDirectorio&#58; C&#58;\\Inetpub\\wwwroot\\\nDisco&#58; 59,939,340,288   RAM &#40;KBytes&#41;&#58; 126,192   DOS&#58; Windows 2000 5&#46;0&#46;2195 Service Pack 4\nNo hay base de datos abierta\nError BASE/9999  Unknown or unregistered symbol&#58; __CLASSHANDLE\nLlamado por __HRBRUN&#40;0&#41;\nLlamado por SGHRBRUN&#40;1640&#41;\nLlamado por &#40;b&#41;SGBLOCK&#40;2552&#41;\nLlamado por SGCGISCRIPT&#40;1390&#41;\nLlamado por MAIN&#40;601&#41;\n[/code:2wyfybns]','',0,'AIA=','2wyfybns',1,0,'',914,0,0),(37058,8021,6,914,0,'87.235.251.160',1188562318,1,0,1,1,1,0,'','','Sin embargo si pongo:\n\n[code:2pa34c76]\ncMsgErr&#58;=MultiLang&#40;&quot;Error&#58;&quot;&#41;+ +__ClassName&#40;  oError  &#41;\n[/code:2pa34c76]\n\nSi me produce la salida Error:ERROR\no sea se captura ok el error.','',0,'AIA=','2pa34c76',1,0,'',914,0,0),(37059,8021,6,2,0,'87.218.146.196',1188562410,1,0,1,1,1,1,'','','Estas usando ficheros HRB ? En tal caso parece un error de la ejecución de los ficheros HRB.\n\nUsas Harbour ó xHarbour ?','',0,'AIA=','2fy7x374',1,0,'',2,0,0),(37060,8021,6,914,0,'87.235.251.160',1188562526,1,0,1,1,1,0,'','','Uso Harbour Alpha build 45.0 Intl. (Flex)','',0,'AIA=','38t1nx5r',1,0,'',914,0,0),(37061,8021,6,2,0,'87.218.146.196',1188562574,1,0,1,1,1,1,'','','Prueba a usar una versión más reciente de Harbour, esa es bastante antigua ya. Puedes descargarla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->','',0,'AIA=','2m3mn16k',1,0,'',2,0,0),(37062,8021,6,914,0,'87.235.251.160',1188562669,1,0,1,1,1,0,'','','OK lo probaré esta tarde,\n\nMuchas gracias antonio.','',0,'AIA=','1j2evk7d',1,0,'',914,0,0),(37063,8027,3,161,0,'141.6.8.73',1188563143,1,0,1,1,1,0,'','','Thanks Norberto,\n\nI will try it.\n\nMarc','',0,'AIA=','358w1y5d',1,0,'',161,0,0),(37064,8000,3,161,0,'141.6.8.73',1188563693,1,0,1,1,1,0,'','','Antonio,\n\nDo I have to put this each time before creating a button like this :\n[code:1x9m1nph]aadd&#40;metatoetsen,nil&#41;\nschermfont &#58;nCount++\n@ y_cor&#40;y+4&#41;, x_cor&#40;x-1 &#41; BTNBMP metatoetsen&#91;len&#40;metatoetsen&#41;&#93; RESOURCE \'GEEL\',\'GEEL2\' PROMPT text of oMeta SIZE x_cor&#40;52&#41;,x_cor&#40;13&#41; FONT schermfont action ganaarpunt&#40;text&#41; PIXEL\n\naadd&#40;metatoetsen,nil&#41;\nschermfont &#58;nCount++\n@ y_cor&#40;y+4&#41;, x_cor&#40;x-11&#41; BTNBMP metatoetsen&#91;len&#40;metatoetsen&#41;&#93; RESOURCE \'GEEL\',\'GEEL2\' PROMPT ct   of oMeta SIZE x_cor&#40;10&#41;,x_cor&#40;13&#41; FONT schermfont action ganaarpunt&#40;text&#41; PIXEL\n[/code:1x9m1nph]\n\nMarc','',0,'AIA=','1x9m1nph',1,0,'',161,0,0),(37065,8000,3,2,0,'87.218.146.196',1188564569,1,0,1,1,1,1,'','','Marc,\n\nJust one call to schermfont:nCount++ should be enought','',0,'AIA=','2qtpolou',1,0,'',2,0,0),(37066,8035,6,362,0,'200.158.18.46',1188565920,1,0,1,1,1,1,'','DUDA: COMANDO TRANSPARENT EN UNA BITMAP','Buenas Amigos...\n\nUna pequena duda en la version 2.7 de FiveWin\n\nPorque se uso una BITMAP y hago asi:\n\nREDEFINE BITMAP ID 23 RESOURCE \"ORGARQS\"    TRANSPARENT OF ODLG\n//\nREDEFINE BITMAP ID 24 RESOURCE \"HAND\"       TRANSPARENT OF ODLG\n\nMe retorna erro:\n\n\nREINDEXA.prg(109) Warning W0001  Ambiguous reference: \'TRANSPARENT\'\n\nREINDEXA.prg(111) Warning W0001  Ambiguous reference: \'TRANSPARENT\'\n\nSe lo hago asi:\n\nREDEFINE BITMAP ID 23 RESOURCE \"ORGARQS\"    TRANSPAREN OF ODLG\n//\nREDEFINE BITMAP ID 24 RESOURCE \"HAND\"       TRANSPAREN OF ODLG\n\nFunciona Perfecto.\n\nDonde esta el erro?\n\nMuchas gracias.\n\nRegards, saludos.','',0,'AIA=','dpo57e5c',1,0,'',362,0,0),(37067,5956,3,53,0,'189.139.98.217',1188567110,1,0,1,1,1,1,'','','Frank, Ollie:\n\nYes, It is.\n\nRegards','',0,'AIA=','sjt5ur7d',1,0,'',53,0,0),(37068,8036,6,140,0,'190.39.109.192',1188568419,1,0,1,1,1,0,'','Falla creacion de controles diámicos dentro de un diálogo','Saludos a Todos...\n\nEstoy migrando a FW+xH una aplicación de Laboratorio que esta hecha con FoxPro 2.6 (viejito solo texto)...\nEl primer problema que se me presentó fue que el autor de la aplicación en Fox utilizó indices IDX a los cuales no pude acceder con xHarbour, pero con la ayuda de algo de documentación que aun se consigue me enteré que FP2.6 también puede manejar indices CDX compatibles con xHarbour, y luego de dedicarle algún tiempo retocando programas hice la migración de IDX a CDX y tengo ambas aplicaciones conviviendo sin problemas a nivel de DBF\'s...\n\nAhora se me presenta otro problemita, y es que para tomar los datos de los resultados de los análisis el autor de la aplicación en Fox utilizó una DBF para generar las pantallas (leyendas y get\'s incluidos) ... cosa que en un principio lo vi como algo absurdo, pero luego de involucrarme mas con la actividad de laboratorio le encontré el sentido al método... son muchas pantallas... de haberse ido por el método convencional tendría que haber hecho no menos de 80 módulos los cuales resolvió solo con uno apoyado en la DBF... Y no solo eso, sino que añadir un examen mas a la aplicación es cuestión de solo añadir los records necesarios a la DBF y listo...\n\nPorque digo que se me presenta el problemita???... pues se trata de migrar una aplicación en Texto a Gráfico... Ya he dibujado 10 diálogos y me falta un montón... Cada diálogo que dibujo tengo que hacer su respectiva asociación a nivel de Prg... Entonces se me ocurrió la idea... Porque no aplicar la misma técnica de tener una DBF y dibujar los controles dinamicamente??? Y es aquí donde se me trancó la cosa... Los controles say\'s y get\'s (que es por donde estoy comenzando) que trato de dibujar en forma dinámica dentro del dialogo entran en conflicto con los controles estáticos...\n\nA continuación parte de lo que estoy intentando...\n\n[code:2q0y4ijj]\n  ConfResult-&gt;&#40; DBSeek&#40; RenglFact-&gt;Examen &#41; &#41;\n  do while &#40; &#46;not&#46; ConfResult-&gt;&#40; EOF&#40;&#41; &#41; &#41; &#46;and&#46; &#40; ConfResult-&gt;Examen=RenglFact-&gt;Examen &#41;\n    cControl  &#58;=alltrim&#40; ConfResult-&gt;Control &#41;\n    do case\n      case cControl=\'WTITLE\'\n        // Este funciona perfecto&#46;&#46;&#46; claro&#46;&#46;&#46; actúa sobre un control estático\n        aAdd&#40; oSay, NIL &#41;\n        nItem     &#58;=len&#40; oSay &#41;\n        _cItem    &#58;=strtrim&#40; nItem, 2 &#41;\n        bSay      &#58;=&#123; ||  alltrim&#40; ConfResult-&gt;Leyenda &#41; &#125;\n        oSay&#91; &amp;_cItem &#93;   &#58;=TSay&#40;&#41;&#58;ReDefine&#40; 501, bSay, oResult&#58;oDlg, \'\',,,, oControl&#58;oFontSS9 &#41;\n\n      case cControl=\'WSAY\'\n        // Este no funciona&#46;&#46;&#46;\n        aAdd&#40; oSay, NIL &#41;\n        nItem     &#58;=len&#40; oSay &#41;\n        _cItem    &#58;=strtrim&#40; nItem, 2 &#41;\n        bSay      &#58;=&#123; ||  alltrim&#40; ConfResult-&gt;Leyenda &#41; &#125;\n        oSay&#91; &amp;_cItem &#93;   &#58;=TSay&#40;&#41;&#58;New&#40; ConfResult-&gt;Row, ConfResult-&gt;Col, bSay, oResult&#58;oDlg, \'\',;\n                                        oControl&#58;oFontSS9, &#40; ConfResult-&gt;Align==\'C\' &#41;, &#40; ConfResult-&gt;Align==\'R\' &#41;,,,,,;\n                                        ConfResult-&gt;Width, 12 &#41;\n\n        /*\nCopiado solo para referencia de los parámetros que debo pasar&#46;\nMETHOD New&#40; nRow, nCol, bText, oWnd, cPicture, oFont,;\n            lCentered, lRight, lBorder, lPixels, nClrText, nClrBack,;\n            nWidth, nHeight, lDesign, lUpdate, lShaded, lBox, lRaised &#41; CLASS TSay\n        */\n    endcase\n    ConfResult-&gt;&#40; DBSkip&#40;&#41; &#41;\n  enddo\n[/code:2q0y4ijj]\n\nse produce este error...\nApplication\n===========\n   Path and name: D:\\Sistemas\\CVF\\Lab32.EXE (32 bits)\n   Size: 1,522,176 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error ocurred at: 31/08/2007, 09:18:08\n   Error description: Error FiveWin/2  Duplicated Id: No:    111\n\nStack Calls\n===========\n   Called from TDIALOG:DEFCONTROL(326)\n   Called from TSAY:NEW(127)\n   Called from GENERICO1P(58)\n   Called from (b)RESULTADOS(85)\n   Called from (b)RESULTADOS(170)\n   Called from TCONTROL:LDBLCLICK(1692)\n   Called from TWBROWSE:LDBLCLICK(1583)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWBROWSE:HANDLEEVENT(1267)\n   Called from _FWH(3001)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(254)\n   Called from RESULTADOS(212)\n   Called from (b)MAINBUTTBAR(290)\n   Called from TBTNBMP:CLICK(311)\n   Called from TBTNBMP:LBUTTONUP(479)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TBTNBMP:HANDLEEVENT(1267)\n   Called from _FWH(3001)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(860)\n   Called from MAIN(163)\n\n\nCiertamente el control 111 existe en el diálogo y corresponde a un combobox dibujado estáticamente.\nA continuación el código del diálogo en el RC.\n\n[code:2q0y4ijj]\nResultados_TomaDatos DIALOG 10, 20, 510, 280\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Dlg_Edit&quot;\nFONT 6, &quot;MS Sans Serif&quot;\n&#123;\n GROUPBOX &quot;&quot;, 5001, 1, 24, 508, 256, BS_GROUPBOX\n COMBOBOX 111, 50, 34, 120, 140, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n COMBOBOX 112, 231, 34, 120, 140, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n CONTROL 0, 201, &quot;EDIT&quot;, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP, 473, 34, 30, 12\n RTEXT &quot;Temperatura &#40;\\xBAC&#41; _&#58;&quot;, -1, 405, 36, 64, 8\n RTEXT &quot;Tecnica _&#58;&quot;, -1, 188, 36, 40, 8\n RTEXT &quot;Muestra _&#58;&quot;, -1, 6, 36, 40, 8\n CTEXT &quot;Titulo&quot;, 501, 145, 56, 220, 10\n&#125;\n[/code:2q0y4ijj]\n\nLo que no termino de entender es porque si estoy intentando crear un objeto Say por el método New() el mismo intenta montarse sobre el combobox???\n\nO es que no se pueden combinar controles dinámicos y estáticos en un diálogo???\n\nO es que los diálogos solo funcionan con controles estáticos???\n\nO es que debo ir pensando seriamente en la posibilidad de buscarme otro oficio???\n\n1GB de Gracias de antemano por los comentarios...\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'AIA=','2q0y4ijj',1,0,'',140,0,0),(37069,8035,6,362,0,'200.158.18.46',1188568465,1,0,1,1,1,1,'','','//-&gt; Resuelto de esta Forma:\n\n//-&gt; Esto esta en C:\\FWH27\\INCLUDE\\FIVEWIN.CH\n\n#xcommand REDEFINE BITMAP [ &lt;oBmp&gt; ] ;\n             [ ID &lt;nId&gt; ] ;\n             [ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n             [ &lt;resource: NAME, RESNAME, RESOURCE&gt; &lt;cResName&gt; ] ;\n             [ &lt;file: FILE, FILENAME, DISK&gt; &lt;cBmpFile&gt; ] ;\n             [ &lt;lClick: ON ClICK, ON LEFT CLICK&gt; &lt;uLClick&gt; ] ;\n             [ &lt;rClick: ON RIGHT CLICK&gt; &lt;uRClick&gt; ] ;\n             [ &lt;scroll: SCROLL&gt; ] ;\n             [ &lt;adjust: ADJUST&gt; ] ;\n             [ CURSOR &lt;oCursor&gt; ] ;\n             [ MESSAGE &lt;cMsg&gt;   ] ;\n             [ &lt;update: UPDATE&gt; ] ;\n             [ WHEN &lt;uWhen&gt; ] ;\n             [ VALID &lt;uValid&gt; ] ;\n             [ &lt;transparent: TRANSPARENT&gt; ] ;\n             [ &lt;transparent: TRANSPAREN&gt;  ] ;  //-&gt; Modificado By Joao Santos\n       =&gt; ;\n          [ &lt;oBmp&gt; := ] TBitmap():ReDefine( &lt;nId&gt;, &lt;cResName&gt;, &lt;cBmpFile&gt;,;\n             &lt;oWnd&gt;, [\\{ |nRow,nCol,nKeyFlags| &lt;uLClick&gt; \\}],;\n                     [\\{ |nRow,nCol,nKeyFlags| &lt;uRClick&gt; \\}],;\n             &lt;.scroll.&gt;, &lt;.adjust.&gt;, &lt;oCursor&gt;, &lt;cMsg&gt;, &lt;.update.&gt;,;\n             &lt;{uWhen}&gt;, &lt;{uValid}&gt;, &lt;.transparent.&gt; )\n\n#xcommand DEFINE BITMAP [&lt;oBmp&gt;] ;\n             [ &lt;resource: RESOURCE, NAME, RESNAME&gt; &lt;cResName&gt; ] ;\n             [ &lt;file: FILE, FILENAME, DISK&gt; &lt;cBmpFile&gt; ] ;\n             [ &lt;of: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ;\n       =&gt; ;\n          [ &lt;oBmp&gt; := ] TBitmap():Define( &lt;cResName&gt;, &lt;cBmpFile&gt;, &lt;oWnd&gt; )\n\n/*----------------------------------------------------------------------------//','',0,'','273dpn67',1,0,'',362,0,0),(37070,8020,3,1068,0,'200.153.245.50',1188570645,1,0,1,1,1,1,'','','Hi Antonio,\n\nthanks for your suport...\n\nFolowing your instructions, i add the method SetMetaFile() on TClipBoard class...\n\nBy suposition, i created another method, GetMetaFile():\n\n\n[code:1rsorp9y]\nmethod GetMetaFile&#40;&#41;\n\n   local hMetaFile &#58;= 0\n\n   if &#58;&#58;Open&#40;&#41;\n      hMetaFile = GetClpData&#40; CF_ENHMETAFILE &#41;\n      &#58;&#58;Close&#40;&#41;\n   endif\n\nreturn hMetaFile\n\n[/code:1rsorp9y]\n\nFor test it, I changed my RPreview function this way:\n\n\n[code:1rsorp9y]\noMeta1&#58;bRClicked &#58;= &#123;|nRow,nCol| SelMeta&#40;oMeta1&#41; &#125;\n\n\n\nstatic Function SelMeta&#40;oMeta&#41;\n\nlocal oClp&#58;=TClipBoard&#40;&#41;&#58;New&#40; CF_ENHMETAFILE &#41;\n\noClp&#58;SetMetaFile&#40; oMeta &#41;\n\nMSGINFO&#40; oClp&#58;IsEmpty&#40;&#41; &#41;  =&gt; returns &#46;T&#46; ????? \n\nMSGINFO&#40; oClp&#58;GetMetaFile&#40;&#41; &#41; =&gt; returns nil ?????\n\nreturn nil\n[/code:1rsorp9y]\n\n\nDoesn´t work . Is the code correct ? \n\n\nGracias Antonio\n\nsaludos','',0,'AIA=','1rsorp9y',1,0,'',1068,0,0),(37071,8029,6,911,0,'200.72.141.52',1188570723,1,0,1,1,1,1,'','','Podría ser un tema puntual con oracle? y eso que utilizo el proveedor oledb de oracle.\nDavid','',0,'AIA=','nxuenj4f',1,0,'',911,0,0),(37072,7972,3,343,0,'204.57.111.194',1188571231,1,0,1,1,1,0,'','','You are right, the logic was broken when I cleaned up the code to make a test routine. \n\nThe error appears to be a winsock/socket error.\nI found the explanation below on the internet.\n\nSocket Error 11004 - Valid DNS Name - No data record of requested type\n\nSocket Error 11004 means that the DNS server which POP3 is talking to does not have a record of the appropriate type for the computer name which it was looking up. \nDNS supports many different types of data record - \n\n\'A\' records contain the IP address for a particular host name \n\'MX\' records contain the mail server for a particular host name/domain name \n\'NS\' records contain the DNS servers which hold authoritative information for a particular host name \netc \nAn error 11004 can happen if, for instance, when you do a DNS lookup for a POP3 server at \'myisp.com\', but the DNS server only holds an NS record or an MX record, but not an A record. This can happen if the DNS server is currently incorrectly configured (check with your ISP, or whoever is running the DNS server you are using) or because you should be using a different computer name (eg \'pop3.myisp.com\') which would have an A record defined. \nIn some cases it can also happen because you are using the incorrect DNS server addresses (eg using the DNS servers of one ISP when you are dialing into a second ISP)','',0,'AIA=','z0te7vuc',1,0,'',343,0,0),(37073,1260,1,51,0,'80.122.88.242',1188572174,1,0,1,1,1,0,'','','Hello Antonio,\nis to declare OK as Static the best solution or is there an other way to end a DIALOG from a Bar?\n\nBTW: in your  example I think DIALOG too much\nDEFINE BUTTONBAR oBar size 20,20 of DIALOG oDlg\n\nDEFINE DIALOG oDlg From 1,5 to 20,65 TITLE \"FiveWin TWBrowse Power!!!\" \nDEFINE BUTTONBAR oBar size 20,20 of DIALOG oDlg \n   ACTIVATE DIALOG oDlg ; \n      ON INIT PlaceButtonBar( oDlg ) \n\nif OK=.t.\n...\nendif\n\nreturn nil \nfunction PlaceButtonBar( oDlg ) \n   local oBar \n\n   DEFINE BUTTONBAR oBar size 20,20 of  oDlg \n\n    DEFINE BUTTON FILE \".\\bitmaps2\\E4.bmp\"  OF oBar ;\n        ACTION  (OK:=.T.,oDlg:END())  ;\n        MESSAGE \"Neuen Artikel eingeben\"   \n\nreturn nil','',0,'AIA=','1ajh7m0i',1,0,'',51,0,0),(37074,8030,3,303,0,'72.199.41.171',1188572623,1,0,1,1,1,0,'','','Greg,\n\nI have been programming in xBase languages since they were developed and with database objects for at least ten years, and I have never seen such a thing. So, I am thinking that it must be something in your code causing the problem. What database class are you using and are you subclassing it?\n\nJames','',0,'AIA=','3vnqmdtq',1,0,'',303,0,0),(37075,8027,3,303,0,'72.199.41.171',1188572908,1,0,1,1,1,0,'','','Windows comes with a magnifier program (at least XP does).\n\nStart-Accessories-Accessability-Magnifier\n\n\nJames','',0,'AIA=','18s6hxif',1,0,'',303,0,0),(37076,8021,6,914,0,'87.235.251.160',1188573188,1,0,1,1,1,0,'','','[b:2j51eb4b]Antonio,[/b:2j51eb4b]\n\nefectivamente se trata de la versión de harbour. He probado con un clipxnet compilado con harbour 0.99 y funciona sin problemas.\n\n[b:2j51eb4b]Muchas gracias.[/b:2j51eb4b]','',0,'QA==','2j51eb4b',1,0,'',914,0,0),(37077,8037,7,1104,0,'200.115.249.252',1188574122,1,0,1,1,1,0,'','Warnings?','Hola Antonio:\n\nTengo un pequeño problema, necesito saber si hay alguna forma de saber cuales son las variables que no están declaradas cuando compilo, porque al compilar no me emite los warnings.\nMe estará faltando alguna instrucción en mi compilar?\n\nAsí es como estoy compilando:\n\n@ECHO OFF\nCLS\nDEL Compilar.log\nDEL *.$$$\n\nECHO Compiling...\n\nECHO ********** COMPILO DE PRG A C ************************************************************\nHARBOUR INICIO     /n /i /p %2 %3    &gt;&gt;COMPILAR.LOG\necho ---------------------------------------------------------------------------    echo . &gt;&gt;COMPILAR.LOG\necho . &gt;&gt;COMPILAR.LOG\nECHO ******************************************************************************************\n\nECHO ********** COMPILO DE C A OBJ ************************************************************\nCLARM -W3 -c /DARM /DUNICODE /I C:\\HARBOUR_ce\\include /I..\\include INICIO.c      &gt;&gt;COMPILAR.LOG\necho --------------------------------------------------------------------------- ECHO ******************************************************************************************','',0,'QA==','2z1z0o3k',1,0,'',1104,0,0),(37078,8034,6,1105,0,'83.52.211.162',1188574198,1,0,1,1,1,0,'','','Ya lo he encontrado, ntop y nleft, pero eso no viene en la documentación.','',0,'QA==','nfn0cjd7',1,0,'',1105,0,0),(37079,8035,6,362,0,'200.158.19.8',1188574506,1,0,1,1,1,1,'','','//-&gt; Otro erro en FIVEWIN.CH de la Version 2.7\n//-&gt; Solo en RECURSOS en @...Say, Esta Correcto. ????\n\n/*----------------------------------------------------------------------------//\n!short: SAY  */\n\n#xcommand REDEFINE SAY [&lt;oSay&gt;] ;\n             [ &lt;label: PROMPT, VAR&gt; &lt;cText&gt; ] ;\n             [ PICTURE &lt;cPict&gt; ] ;\n             [ ID &lt;nId&gt; ] ;\n             [ &lt;dlg: OF,WINDOW,DIALOG &gt; &lt;oWnd&gt; ] ;\n             [ &lt;color: COLOR,COLORS &gt; &lt;nClrText&gt; [,&lt;nClrBack&gt; ] ] ;\n             [ &lt;update: UPDATE &gt; ] ;\n             [ FONT &lt;oFont&gt; ] ;\n             [ &lt;lShaded: SHADED, SHADOW &gt; ] ;   //-&gt; Modificado Joao Santos\n             [ &lt;lBox:    BOX   &gt;  ] ;\n             [ &lt;lRaised: RAISED &gt; ] ;\n       =&gt; ;\n          [ &lt;oSay&gt; := ] TSay():ReDefine( &lt;nId&gt;, &lt;{cText}&gt;, &lt;oWnd&gt;,   ;\n                        &lt;cPict&gt;, &lt;nClrText&gt;, &lt;nClrBack&gt;, &lt;.update.&gt;, ;\n                        &lt;oFont&gt;, &lt;.lShaded.&gt;, &lt;.lBox.&gt;, &lt;.lRaised.&gt;  )\n//\n//-&gt; Ahora Puedo hacer Igual como en la Classe SENSITIVE SAY.\n//\n    For IDCor=601 TO 620\n        REDEFINE SAY oSay ID iDcor              ;\n        OF oFld:aDialogs[1]                     ;\n        COLOR CLR_BLACK                         ;\n        UPDATE BOX RAISED                       ;\n        FONT oFnt\n    Next IDCor\n\n\nMaestro Antonio... Estoy Cierto?\n\n\nRegards, saludos.','',0,'','2wgtcr1p',1,0,'',362,0,0),(37080,8038,6,1105,0,'83.52.211.162',1188574569,1,0,1,1,1,0,'','remover espacios en TXBrowse','Hola,\n\n¿Cómo puedo eliminar los espacios en blanco de la foto, ref A y ref B?. Muchas gracias a todos.\n\n[img][url=http&#58;//img252&#46;imageshack&#46;us/my&#46;php?image=xbrowsepm7&#46;gif:26302kuw][img]http://img252.imageshack.us/img252/5384/xbrowsepm7.th.gif[/img][/url:26302kuw][/img]','',0,'GA==','26302kuw',1,0,'',1105,0,0),(37081,8038,6,362,0,'200.158.19.8',1188575072,1,0,1,1,1,1,'','','ALLTRIM.\nRTRIM\nLTRIM\nÓ\nPADR()\nPADL()','',0,'GA==','1g3zol81',1,0,'',362,0,0),(37082,8030,3,35,0,'167.7.140.254',1188575285,1,0,1,1,1,0,'','','Greg\n\nIs the database on a Novell server ??  \n\nRick Lipkin','',0,'GA==','2zdx3v1p',1,0,'',35,0,0),(37083,8036,6,362,0,'200.158.19.8',1188575332,1,0,1,1,1,1,'','','Error FiveWin/2 Duplicated Id: No: 111 \n\nCREA UN LOOPING PARA INCREMENTAR LOS ID´S.\n\nID := 101\n\nID := ID + 1\n\nY asi se va...\n\nRegards, saludos.','',0,'GA==','3l2xz1kl',1,0,'',362,0,0),(37084,8030,3,620,0,'209.189.229.150',1188575861,1,0,1,1,1,0,'','','No...using CDX driver and running on Win2000 server.   I have 30 other database files running with never a glitch.   This one file though is so strange....this morning, it had 77,000 records...after deleting duplicates and packing...back down to 350....what could possibly cause this?','',0,'GA==','1u5qb6ig',1,0,'',620,0,0),(37085,8030,3,620,0,'209.189.229.150',1188576106,1,0,1,1,1,0,'','','James,\nSorry missed your post.... using the native FivWin Database class...no subclassing (not even aware how to do that).\n\nThe only thing that I can think might be causing this is multiple work areas and something getting mixed up...going to work on it from that angle...I have a main database and an archive database...when a job is completed, i copy to the archive and delete in the main (to keep things running fast)...switching work areas might be one of the issues....but how it (the background running processes/classes) think I want to replicate the database 1000 times over is a real mystery.\n\nGreg','',0,'GA==','1syi2ctf',1,0,'',620,0,0),(37086,8038,6,1105,0,'83.52.211.162',1188576239,1,0,1,1,1,0,'','','Hola:\n\nGracias, pero son métodos del browse, no de los datos. COn un LISTBOX funciona OK.','',0,'GA==','gstdm7fj',1,0,'',1105,0,0),(37087,8037,7,2,0,'87.218.146.196',1188576769,1,0,1,1,1,1,'','','HARBOUR INICIO /n /i /p [color=red:3c2tah3t]/w3[/color:3c2tah3t] %2 %3 &gt;&gt;COMPILAR.LOG','',0,'Ag==','3c2tah3t',1,0,'',2,0,0),(37088,1260,1,2,0,'87.218.146.196',1188576978,1,0,1,1,1,1,'','','You can delare Ok as local as pass it by reference:\n\nON INIT PlaceButtonBar( oDlg, @Ok )','',0,'Ag==','upon5x29',1,0,'',2,0,0),(37089,8016,3,138,0,'189.141.65.96',1188576982,1,0,1,1,1,1,'','','SQLRDD is build based on ODBC.\n\nSince ADO can use a native ado provider or a ODBC DSN, is my guess that ADO is faster than an RDD.\n\nIn my experience, the best way to handle SQL tables is using SQL statements, you lose A LOT if you try to manipulate SQL data \"a la DBF\", that`s why ADO is the best way to handle data, the power of the SQL along with a DBF like data handling.','',0,'Ag==','2c2utbhp',1,0,'',138,0,0),(37090,8038,6,362,0,'200.158.19.8',1188577025,1,0,1,1,1,1,'','','[quote=&quot;edu_parada&quot;:1lis7svr]Hola:\n\nGracias, pero son métodos del browse, no de los datos. COn un LISTBOX funciona OK.[/quote:1lis7svr]\n\nEsto no és una PANTALLA(WINDOW CHILD)?','',0,'gA==','1lis7svr',1,0,'',362,0,0),(37091,8032,2,138,0,'189.141.65.96',1188577064,1,0,1,1,1,1,'','','Envialo a imprimir a una impresora PDF previamente instalada en tu computadora, es la unica forma de hacerlo.','',0,'gA==','2e8kp5e7',1,0,'',138,0,0),(37092,8020,3,2,0,'87.218.146.196',1188577576,1,0,1,1,1,1,'','','Yuri,\n\nMethod IsEmpty() has to be modified this way:\n[code:3sfpsase]\nMETHOD IsEmpty&#40;&#41; CLASS TClipboard\n\n   local uValue\n\n   if &#58;&#58;Open&#40;&#41;\n      do case\n         case &#58;&#58;nFormat == CF_TEXT\n              return Empty&#40; GetClpData&#40; CF_TEXT &#41; &#41;\n              \n         case &#58;&#58;nFormat == CF_BITMAP\n              return GetClpData&#40; CF_BITMAP &#41; == 0\n              \n         case &#58;&#58;nFormat == CF_ENHMETAFILE\n              return GetClpData&#40; CF_ENHMETAFILE &#41; == 0\n      endcase                                  \n      &#58;&#58;Close&#40;&#41;\n   endif\n\nreturn &#46;T&#46;\n[/code:3sfpsase]','',0,'AIA=','3sfpsase',1,0,'',2,0,0),(37093,1260,1,51,0,'80.122.88.242',1188579133,1,0,1,1,1,0,'','','I tried by reference but with no success.\n\nRegards\nOtto\n\n\n#INCLUDE \"BOX.CH\"\n#INCLUDE \"FILEIO.CH\"\n#INCLUDE \"FIVEWIN.CH\"\n#INCLUDE \"FOLDER.CH\"\n#INCLUDE \"INKEY.CH\"\n#INCLUDE \"REPORT.CH\"\n\n\n\nfunction Main()\n    LOCAL  oWnd\n\n    DEFINE WINDOW oWnd from 1,1 TO 30,60 TITLE \"TEST\";\n        MENU bldMenu()\n    ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction bldMenu()\n    LOCAL oMenu\n    MENU oMenu\n    MENUITEM \"Start\" ;\n        ACTION  f_code()\n    ENDMENU\n\nreturn oMenu\n\nfunc f_code\n    LOCAL oDlg\n    LOCAL ok := .f.\n\n    DEFINE DIALOG oDlg From 1,5 to 20,65 TITLE \"Test Dialog with Buttonbar\"\n\n     ACTIVATE DIALOG oDlg ;\n        ON INIT PlaceButtonBar( oDlg  ,@OK )\n\n    if OK=.t.\n        msgInfo(\"OK\")\n    else\n        msgInfo(\"not OK\")\n\n    endif\n\nreturn nil\n\nfunction PlaceButtonBar( oDlg , OK)\n    local oBar\n\n    DEFINE BUTTONBAR oBar size 20,20 of oDlg\n\n    DEFINE BUTTON FILE \"E4.bmp\" OF oBar ;\n        ACTION (OK:=.T.,oDlg:END()) ;\n        MESSAGE \"Neuen Artikel eingeben\"\n\nreturn nil','',0,'AIA=','2d85hdet',1,0,'',51,0,0),(37094,8030,3,303,0,'72.199.41.171',1188579964,1,0,1,1,1,0,'','','Greg,\n\n&gt;... using the native FivWin Database class...no subclassing (not even aware how to do that). \n\nWell without subclassing you are missing out on the best part. There are a couple of articles about this on my website.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\n&gt;&gt;The only thing that I can think might be causing this is multiple work areas and something getting mixed up...going to work on it from that angle...\n\nI don\'t think it is workareas as far as FWH or TDatabase. It still could be your code.\n\n&gt;I have a main database and an archive database...when a job is completed, i copy to the archive and delete in the main (to keep things running fast)...switching work areas might be one of the issues....but how it (the background running processes/classes) think I want to replicate the database 1000 times over is a real mystery. \n\nIf you want to email me the code where this is going on, I will take a look at it. I suspect something is falling through some code when opening a database in exclusive mode fails--thus it only happens occasionally.\n\nOne thing that might solve it is, surprise, subclassing. \n\nJames','',0,'AIA=','2ke5tptt',1,0,'',303,0,0),(37095,1260,1,2,0,'87.218.146.196',1188580786,1,0,1,1,1,1,'','','Otto,\n\nIt should work, if not, then declare it as static','',0,'AIA=','34y5oexq',1,0,'',2,0,0),(37096,8035,6,2,0,'87.218.146.196',1188580950,1,0,1,1,1,1,'','','João,\n\nDeberías usar una versión más actualizada de Harbour ó xHarbour, ya que el preprocesador se cambió completamente.\n\nDe todas formas, podrias usar:\n[ &lt;lTransparent: TRANSPARENT&gt; ] ;','',0,'','3lbz4r71',1,0,'',2,0,0),(37097,8036,6,2,0,'87.218.146.196',1188581336,1,0,1,1,1,1,'','','La clase TControl usa un dato de clase:\nCLASSDATA nInitID INIT 100\n\nAuméntala para que no entre en conflicto con los IDs del recurso: &lt;oCualquierControl&gt;:nInitID := 800\n\nsolo es necesario que lo modifiques una vez','',0,'','2jz27qq6',1,0,'',2,0,0),(37098,8035,6,362,0,'200.158.19.8',1188581563,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3a95yfz6]João,\n\nDeberías usar una versión más actualizada de Harbour ó xHarbour, ya que el preprocesador se cambió completamente.\n\nDe todas formas, podrias usar:\n[ &lt;lTransparent: TRANSPARENT&gt; ] ;[/quote:3a95yfz6]\n\n[img:3a95yfz6]http&#58;//www&#46;pctoledo&#46;com&#46;br/forum/images/smiles/pct21&#46;gif[/img:3a95yfz6]\n\nGracias Maestro.\n\nAhora, uso las dos formas\n\nVoy cambiar la version de XHARBOUR.EXE para el ultimo build.\n\nRegards, saludos.','',0,'iA==','3a95yfz6',1,0,'',362,0,0),(37099,8038,6,644,0,'201.253.244.165',1188581773,1,0,1,1,1,0,'','','Si usas un splitter tendrás que redimensionarlo con este control ( oSplitter : Adjust( .t.,.t.,.f.,.t.) ) ), si es sobre una ventana MDI oWnd : SetControl( xBrowse ). Espero que sea esto lo que busques. Saludos','',0,'iA==','2hkwp0uv',1,0,'',644,0,0),(37100,8039,6,362,0,'200.158.19.8',1188587419,1,0,1,1,1,1,'','COLORES EN GROUP BOX','Buenas Amigos...\n\nPor favor, una ayuda...\n\nNo consigo poner COLORES en un GROUPBOX.\n\nYa modifique el DIALOGO... Mas...\n//\nBROWSE_CADASTRO_BANCOS DIALOG 1, 20, 530, 275\nSTYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME\nCAPTION \"SCB - Gerenciamento do Cadastro de Bancos - Browse\"\nFONT 8, \"MS Sans Serif\"\nLANGUAGE LANG_PORTUGUESE, SUBLANG_PORTUGUESE_BRAZILIAN\n{\n EDITTEXT 20, 98, 33, 312, 12, WS_BORDER | WS_TABSTOP\n CONTROL \"\", 101, \"TWBrowse\", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 3, 49, 523, 200\n PUSHBUTTON \"\", 301, 120, 255, 70, 16\n PUSHBUTTON \"\", 302, 193, 255, 70, 16\n PUSHBUTTON \"\", 303, 266, 255, 70, 16\n PUSHBUTTON \"\", 304, 340, 255, 70, 16\n AUTORADIOBUTTON \" &amp;1 Por Nome\", 201, 188, 13, 72, 12\n AUTORADIOBUTTON \" &amp;2 Por Código\", 202, 270, 13, 72, 12\n LTEXT \"Busca Rápida:\", 402, 4, 33, 90, 12, NOT WS_GROUP\n LTEXT \"&lt;- BackSpace Apaga\", 403, 415, 33, 110, 12, NOT WS_GROUP\n GROUPBOX \"Escolha Índice da Pesquisa\", 501, 177, 3, 176, 27, BS_GROUPBOX | WS_GROUP\n LTEXT \"&lt;- Use ALT+1 ou ALT+2\", 401, 360, 13, 110, 12, NOT WS_GROUP\n}\n\n//\n    REDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg     ;\n             FONT oFnt TRANSPARENT\n//\n\nYa modifique la classe GROUP.PRG, mas...\n\n//\n\n#define WM_UPDATEUISTATE 296  // 0x0128\n\n//\n\nMETHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGroup \n\n    local nResult\n\n    if ::lDrag .and. nMsg == WM_NCHITTEST // To have a standard behavior on Clicks\n        return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )\n    endif\n\n    if nMsg == WM_UPDATEUISTATE // Groups and contained controls were erased when pressing ALT\n        nResult = Super:HandleEvent( nMsg, nWParam, nLParam )\n        ::oWnd:Refresh()\n        return nResult\n    endif\n\nreturn Super:HandleEvent( nMsg, nWParam, nLParam )\n\n//\n\nMETHOD Colors( hDC ) CLASS TGroup \n\n    DEFAULT ::nClrText := GetTextColor( hDC ),;\n            ::nClrPane := GetBkColor( hDC ),;\n            ::oBrush := TBrush():New( , ::nClrPane )\n\n    SetTextColor( hDC, ::nClrText )\n    SetBkColor( hDC, ::nClrPane )\n\n    if ::oBrush:hBitmap != nil\n        SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop )\n    endif\n\nreturn ::oBrush:hBrush\n\n//\n\nDonde esta mi erro??\n\nMuchas gracias.\n\nRegards, saludos.','',0,'iA==','3gbm94wa',1,0,'',362,0,0),(37101,2486,16,362,0,'200.158.19.8',1188589254,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3vcal1f9]July 2007\n======\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43028051/harbour.exe.html\">http://rapidshare.com/files/43028051/harbour.exe.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43088118/xharbour.exe.html\">http://rapidshare.com/files/43088118/xharbour.exe.html</a><!-- m -->\n\nxHarbour for Microsoft:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/43091267/xharbourm.exe.html\">http://rapidshare.com/files/43091267/xharbourm.exe.html</a><!-- m -->[/quote:3vcal1f9]\n\n\nMaestro, com se haces para hacer el download del ultimo release de XHARBOUR.EXE - Clicko en el LINK,  pero no funciona nada.\n\nEn computadora con windows xp, no vienes el numero para se digitar en adentrar al download. \n\nEn windows 98 sin problemas.','',0,'gA==','3vcal1f9',1,0,'',362,0,0),(37102,8029,6,911,0,'200.72.141.51',1188591993,1,0,1,1,1,1,'','','La solución fue muy simple:\nEsta tabla que me daba el error es del detalle de las notas de ventas y el administrador no hayó nada mejor que asignar al idnotadeventa como llave primaria. Y todos sabemos que una llave primaria no se puede repetir. El administrador no tomó en cuenta el modelo de datos que le entregué.\nAhora me río. Anoche estuve hasta como las 4 am reventándome la cabeza.\nBueno espero que igual esto le sirva a alguien.\nSaludos','',0,'gA==','2yfx22fn',1,0,'',911,0,0),(37103,2486,16,2,0,'87.218.146.196',1188593149,1,0,1,1,1,1,'','','João,\n\nLas versiones más recientes puedes descargarlas desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'gA==','s4ehq2ta',1,0,'',2,0,0),(37104,5709,6,299,0,'24.233.172.101',1188597814,1,0,1,0,1,0,'','','CresWinMan;\n\n¿Parece que tu ejemplo usa un servicio prepagado?\n\n¿Se necesita un username y un password?\n\n\nReinaldo.','',0,'gA==','wr27iemn',1,0,'',299,0,0),(37105,5709,6,138,0,'189.141.65.96',1188609608,1,0,1,1,1,1,'','','Si revisan mi blog, encontrarán un articulo sobre el envio de SMS con xHarbour, cualquier plataforma, desde aplicaciones en modo consola hasta aplicaciones GUI con interfaz gráfica como FiveWin.\n\nCódigo fuente incluido.','',0,'gA==','1k2f0c84',1,0,'',138,0,0),(37106,7927,6,515,0,'200.88.135.196',1188621712,1,0,1,1,1,0,'','','Cuevas,\n\nMirar aquí:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=10249&amp;highlight=#10249\">http://fivetechsoft.com/forums/viewtopi ... ght=#10249</a><!-- m -->\n\nHe tenido ese error, después de mucho buscar, tocar puertas y probar la solución fue cambiar el tipo de campo. En mi caso cambié de un campo DOUBLE a un campo DECIMAL(14,2) y problema resuelto.\n\nUn saludo,\n\nDanilo','',0,'gA==','1xeqk6bw',1,0,'',515,0,0),(37107,8039,6,2,0,'87.218.146.196',1188638177,1,0,1,1,1,1,'','','No uses la cláusula TRANSPARENT:\n\nREDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg ; \nFONT oFnt [color=red:1yvr90y9]// TRANSPARENT[/color:1yvr90y9]','',0,'Ag==','1yvr90y9',1,0,'',2,0,0),(37108,8038,6,1105,0,'83.54.223.85',1188639583,1,0,1,1,1,0,'','','Hola;\n\nNo, me refiero a eliminar los espacios que deja el propìo Browse. El browse está ajustado a la ventana, no que NO se ajustan son las columnas internas,.\n\nMuchas gracias.','',0,'Ag==','32lqnxo7',1,0,'',1105,0,0),(37109,8040,3,473,0,'81.82.10.56',1188639991,1,0,1,1,1,0,'','Adding jpeg to a database and browsing them','Hello,\n\nI use a MySQL engine to store data. \n\nI want to add a collumn with a JPEG-picture. I know that MySQL can store bitmaps (in a blob I think)\nBut how can I store a JPG or another graphical file into the databank. How can I read it back to show it into a xBrowse\n\nGreetings and thanks,\n\nWilly','',0,'Ag==','345ml2b3',1,0,'',473,0,0),(37110,7717,6,644,0,'200.45.247.82',1188649844,1,0,1,1,1,0,'','','En la clase TGraph sucede lo mismo que lo descripto en este post. Yo utilizo TSBrowse para los browser y no tiene ese problema. Supuse que era un problema de los controles de terceros pero no es así. Porque algunos controles padecen ese problema y otros no ???','',0,'Ag==','x0czd0sk',1,0,'',644,0,0),(37111,7717,6,316,0,'87.218.187.37',1188657139,1,0,1,1,1,0,'','','[quote=&quot;horacio&quot;:vno8i2q0] Porque algunos controles padecen ese problema y otros no ???[/quote:vno8i2q0]\n¡La pregunta del millón! Si supieramos la respuesta este hilo no existiría.\nCuando hice las pruebas, por ejemplo con TXBrowse, hay que esforzarse para que falle, y lo hace con mucha menor frecuencia, pero lo hace. Con esforzarse me refiero a superponer una ventana y moverla lentamente, de forma tal que se generen mensajes de pintado sucesivos y de regiones pequeñas.\n\nSaludos,\nCarlos','',0,'gA==','vno8i2q0',1,0,'',316,0,0),(37112,8038,6,316,0,'87.218.187.37',1188657973,1,0,1,1,1,0,'','','Edu,\n\nel espacio de la derecha se peude resolver con una columan \"fantasma\", sin contenido. \nCreo que el XBrowse tiene un         \n[code:2w4nbwtc]\nlColDividerComplete,; // If true the vertical lines are displayed to the bottom of the browse even\n[/code:2w4nbwtc]\n\nque dibuja la grilla hasta el final. \n\nPor cierto, que usas para dibujar las Explorerbars?\n\nSaludos,\n\nCarlos.','',0,'AIA=','2w4nbwtc',1,0,'',316,0,0),(37113,5709,6,299,0,'24.233.172.101',1188659869,1,0,1,0,1,0,'','','René;\n\nGracias por la información.  Miré el blog.  Muy útil.\n\nParece que el servicio que usas para el ejemplo que brindas solo funciona en Méjico.  Me pregunto que otras alternativas existen que funcionen aca.\n\nTienes que decirme cuando vuelves por Miami y que tengas un rato corto para verte y conversar.   Y si no, pues voy a tener que viajar a Méjico o España y asistir a uno de tus cursos.\n\n\nReinaldo.','',0,'AIA=','1arr3vw5',1,0,'',299,0,0),(37114,8040,3,299,0,'24.233.172.101',1188660460,1,0,1,0,1,0,'','','Willy;\n\nHi.\n\nSet a new table with at least two fields.  The first field is the key that ids the record back to the master table and the 2nd field is a BLOB field.  Then using BLOBIMPORT you can store the jgp (after scanning the image) into the binary field.  Using BLOBEXPORT you can recreate the jgp file and display.  Works quite well.\n\nYou could also add a BLOB field to the table in question and do it directly to that field.\n\n\nReinaldo.','',0,'AIA=','34dwi533',1,0,'',299,0,0),(37115,8030,3,316,0,'87.218.187.37',1188660856,1,0,1,1,1,0,'','','What compiler and version are you using? RDD?\nDo you use to PACK frequently? Some time ago, using Harbour + DBFCDX a database started to duplicate records. After some time, headaches and aspirines the problem appeared with pack. The best solution was to change APCK command for a Rename/Create/Append From !Deleted().\n\nRegards,\n\nCarlos.','',0,'AIA=','3j47tnau',1,0,'',316,0,0),(37116,7975,3,148,0,'196.205.108.55',1188661587,1,0,1,1,1,0,'','','No harm fom putting pack after using the file like below or you think there is a better place to for the pack for the deleted commands :\n[code:2370vs6w]\n use mete exclusive\n    index on me_mc_serl to mete\n    index on me_date to mete2\n    pack\n    use\n    [/code:2370vs6w]','',0,'AIA=','2370vs6w',1,0,'',148,0,0),(37117,5709,6,138,0,'189.141.65.96',1188661597,1,0,1,1,1,1,'','','Reinado.\n\nEl servicio <!-- w --><a class=\"postlink\" href=\"http://www.jikama.com\">www.jikama.com</a><!-- w --> funciona en todo el mundo, es como Skype, compras crédito y listo, envias desde cualquier parte del mundo hasta cualquier parte del mundo.','',0,'AIA=','328jscj8',1,0,'',138,0,0),(37118,8040,3,1068,0,'200.153.245.50',1188661807,1,0,1,1,1,1,'','','hi Willy,\n\nsee this sample in FiveWin.com.br \n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=801\">http://www.fivewin.com.br/exibedicas.asp?id=801</a><!-- m -->\n\n\nregards','',0,'AIA=','doithl70',1,0,'',1068,0,0),(37119,8020,3,1068,0,'200.153.245.50',1188661969,1,0,1,1,1,1,'','','hi Antonio,\n\nNow the method IsEmpty() is ok !\n\nthank you !\n\nsaludos','',0,'AIA=','25l8jlvp',1,0,'',1068,0,0),(37120,8006,6,760,0,'200.62.254.143',1188673725,1,0,1,1,1,0,'','tdbf a 32 bits','Hola compañeros\n\nSigo esperando el tdbf a32 bits para fwh 7.04....\n\nSalu2\n\nFrancis','',0,'AIA=','11ri2fkh',1,0,'',760,0,0),(37121,8038,6,1105,0,'83.54.223.85',1188674444,1,0,1,1,1,0,'','','Carlos,\n\nMuchas gracias por la respuesta. Con coldivider... soluciono el espacio B y el espacio A probaré con la columna fantasma.\n\nEl control que uso es Vtaskbar de canalfive. Va de lujo.\n\nSalu2','',0,'AIA=','2chyng8c',1,0,'',1105,0,0),(37122,8041,6,1105,0,'83.54.223.85',1188674529,1,0,1,1,1,0,'','cambiar fuente en TXBrowse()','Hola;\n\nEn el LISTBOX para cambiar la fuente hacía:\n\noBrowse:Selfont()\noBrowse:Refresh()\n\n\nPero no marcha en TXBrowse(), ¿por qué?. Muchas gracias.\n\nSalu2','',0,'AIA=','3rk7gwle',1,0,'',1105,0,0),(37123,8006,6,439,0,'200.125.34.212',1188675056,1,0,1,1,1,1,'','Re: tdbf 32 bits','[quote=&quot;FiveWiDi&quot;:383ke1rl][quote=&quot;Francis&quot;:383ke1rl]Master Rene\n\nEs que en una lib es mas facil ponerlos en diferentes sistemas, eso lo uso en casi todos los sistemas hechos a 16 bits. Al querer pasarlo a 32 bits como lib me salen muchos errores y no crea la lib, aun no domino lo de modificar las clases y fuentes...\nA proposito Master no habra por ahi un manual de ADS en castellano free... para ver las bondades de este maravilloso cliente/servidor.\nYo he querido implementar mis sistemas con ads local y aun no he podido por falta de ejemplos.\n\nSalu2\n\nFrancis <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:383ke1rl]\n\nA ver si puedo y este fin de semana tarde te la bajo.\n\nLa tengo funcionando en FiveWin 7.04 y además con la clase TINDEX renombrada para que no se \'pegue\' con la que trae (traía?) fivewin en su .lib\n\nYo estoy bastante enamorado de ella, no uso .lib sino como dice Rene compilo sus .prg y su .c bajo Harbour (supongo que para xHarbour será lo mismo).\n\nSaludos\nCarlos G.[/quote:383ke1rl]\n\nAmigo,\n\nSería sumamente positivo que tu la pudieras subir y poner en un link en Utilidades, para que todos nos beneficiemos.\n\nGracias desde ya por tu aporte','',0,'gA==','383ke1rl',1,0,'',439,0,0),(37124,8042,6,945,0,'217.216.165.137',1188675354,1,0,1,1,1,0,'','Crear directorio en ftp','Muy buenas, estoy intentando crear un directorio en ftp con la clase ftp, he utilizado el método FtpCreateDirectory(oFtp,cDirectorio), pero siempre me devuelve falso, ¿ Sabeis otra forma?\n\nUn Saludo.','',0,'gA==','agzq8en3',1,0,'',945,0,0),(37125,7975,3,303,0,'72.199.41.171',1188695196,1,0,1,1,1,0,'','','Ehab,\n\nNo you don\'t want to do it that way either. What if the database has a million records? Every time the user opens the file it is going to get packed which could take a half hour.\n\nYou have to pack databases using a separate routine that the user can call occassionally. You can leave deleted records in the database for quite some time unless you are deleting lots of them and if you doing that you need to rethink the design.\n\nStill the best solution is to reuse deleted records. Then you never have to PACK.\n\nJames','',0,'gA==','2ndi0pgn',1,0,'',303,0,0),(37126,8041,6,533,0,'83.46.206.240',1188718864,1,0,1,1,1,0,'','','Prueba asignandole el font asi:\n\nobrowse:SetFont (no SelFont)\n\nSALUDOS','',0,'gA==','2ubdj61y',1,0,'',533,0,0),(37127,8006,6,92,0,'217.125.169.84',1188730252,1,0,1,1,1,0,'','Espacio para compartir archivos.','Quiero compartir archivos.\n\nAlguien sabe donde puedo dejarlos que no deba registrarme?\n\n\nEn hyperupload me subre 0 bytes.\n\nSaludos\nCarlos G.','',0,'gA==','1lzh1yhn',1,0,'',92,0,0),(37128,8041,6,1105,0,'83.54.223.85',1188731536,1,0,1,1,1,0,'','','Nada, sigue sin ir. He probado:\n\nLOCAL oFont\n\nDEFINE FONT oFont FROM USER\n\noBrowse:Setfont(oFont)\noBrowse:Refresh()\n\n\nY NO funciona. Muchas gracias.','',0,'gA==','3dvxeju6',1,0,'',1105,0,0),(37129,8006,6,2,0,'87.218.146.196',1188731723,1,0,1,1,1,1,'','','Carlos,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.hotshare.net\">www.hotshare.net</a><!-- w -->\n\nSolo que si no se descargan tras 30 dias, borran el fichero','',0,'gA==','25nl8btp',1,0,'',2,0,0),(37130,8043,3,1105,0,'83.54.223.85',1188732438,1,0,1,1,1,0,'','change font for TXBrowse()','Hi,\n\nI am trying to change font in XBrowse, allowing the user to change it in runtime. In listbox I did:\n\noBrowse:Selfont() \noBrowse:Refresh() \n\nBut It does not work. Also I have tried:\n\nLOCAL oFont\n\nDEFINE FONT oFont FROM USER\n\noBrowse:Setfont(oFont)\noBrowse:Refresh()\n\nand it does not work too. How can i do it?. Thank you!!!!','',0,'gA==','3o67pk7w',1,0,'',1105,0,0),(37134,8044,6,854,0,'189.131.24.220',1188743728,1,0,1,1,1,0,'','Algo sobre un combobox','Que tal a todos, alguien me podria ayudar.\n\nNecesito que en un combobox al momento de ir tecleando (en el combobox) me valla apareciendo si es que encuentra algo con las letras que voy tecleando. (que no me desplegue el combo)\n\nSi alguien ya lo soluciono, me podria echar una mano.\n\nGracias.','',0,'gA==','tam9sogb',1,0,'',854,0,0),(37136,8042,6,945,0,'217.216.165.137',1188758120,1,0,1,1,1,0,'','','Perdonar con la clase Tftp','',0,'gA==','g22msey3',1,0,'',945,0,0),(37137,8006,6,439,0,'200.125.32.89',1188760665,1,0,1,1,1,1,'','','Carlos,\n\n<!-- w --><a class=\"postlink\" href=\"http://www.box.net\">www.box.net</a><!-- w -->\n\nFunciona excelente y sin límite de tiempo hasta 10 Mb.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.mediafire.com\">www.mediafire.com</a><!-- w -->\n\nFunciona excelente y sin límite de tiempo ni de uploads, hasta 100 Mb','',0,'gA==','x8nc26so',1,0,'',439,0,0),(37138,8045,20,20,0,'87.3.215.118',1188770895,1,0,1,1,1,0,'','Classe Richedit','Ho un problema con la classe RichEdit.\nQuesto è il codice:\n\n[code:223mkoh2]\n\n#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Richedit&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hDll &#58;= LOADLIBRARY&#40; &quot;RICHED20&#46;DLL&quot; &#41;\n\n    LOCAL oDlg\n\n    LOCAL oRich, cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg FROM 0, 0 TO 15, 40 TITLE &quot;Test Richedit&quot;\n\n    @ 0, 0 RICHEDIT oRich VAR cVar SIZE 160,80 OF oDlg\n\n    @ 5, 11 BUTTON &quot;&amp;Second&quot; ACTION DIALOG_2&#40;&#41;\n\n    ACTIVATE DIALOG oDlg CENTER\n\n    FREELIBRARY&#40; hDll &#41;\n\nRETURN NIL\n\nSTATIC FUNCTION DIALOG_2&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL oRich, cVar &#58;= &quot;&quot;\n\n    DEFINE DIALOG oDlg FROM 30, 100 TO 45, 140 TITLE &quot;Second&quot;\n\n    @ 0, 0 RICHEDIT oRich VAR cVar SIZE 160,80 OF oDlg\n\n    @ 5, 11 BUTTON &quot;&amp;First&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg\n\nRETURN NIL\n\n[/code:223mkoh2]\n\nSe chiudo il programma senza richiamare la seconda dialog è tutto ok.\nSe richiamo la seconda dialog, torno sulla prima e chiudo il programma ottengo questo errore:\n\n[b:223mkoh2]Harbour Exception\n\nCalled from RESETOLEUNINIT(0)[/b:223mkoh2]\n\nHo l\'impressione che, quando chiudo la seconda dialog, la funzione RESetOleUnInit( ::hWnd ) del metodo SetOleInit() effettui il reset anche dell\'oggetto della prima dialog. \n\nPotete aiutarmi?\nGrazie.\n\nPier Luigi','',0,'QIA=','223mkoh2',1,0,'',20,0,0),(37139,7930,3,578,0,'218.214.35.132',1188771045,1,0,1,0,1,0,'','My Thoughts','Hua\n\nI\'m not sure exactly what features of Doxygen you wanted.  But it seems to me  that we might be able to build some code snippets for documenting xBase code in xBase itself.  I think that any such system would, for many of its features at least, be highly dependant upon the programmer\'s programming styles and conventions and rely upon them being applied fairly consistently.  Any such system is likely to work much more effectively with code that was written to be documented by a given documentation software than try to retro document a given piece of code.\n\nI am currently doing some design work on the extension of a software system written in Java with a SQL Server or Sybase (optional) back end.  I wrote a program (in xHarbour / FiveLinux) to document the database structure.  The output was a series of HTNL pages (1 per table) plus a contents page.  The input was the database script generated from SQL Server.  It showed the structure of each table (fieldname, type, length where not determined by type, whether nullable, if it was a primary key, and if it was a secondary key what table the secondary key pointed to.  It also listed what other tables had secondary keys pointing to this table.  The information about  key relationships was only able to be worked out because the client (mostly) used a consistent, logical naming scheme - actually a slight modification of what I use myself.  I use it for xBase tables too - although programmers who use aliasing might think it unnecessarily wastes characters in fieldnames it has the advantage of guaranteeing unique fieldnames when porting.\n\nThe basic idea is that all table names have a prefix (I use 2 letters but the client sometimes uses more) followed by an underscore and the tablename.  For example a table of doctors in a medical system might be\n\nDO_DOCTOR.dbf\n\nThen all the fields in DO_DOCTOR would have the same prefix.  The primary key (which I generate in xBase but of course SQL does it for you - but with problems) would be\n\nDO_KEY\n\nMy DO_DOCTOR doesn\'t need a secondary key but lets say it did - doctors belong to hospitals for instance.  If my hospital file was HO_HOSPITAL then such a seconadry key in DO_DOCTOR would be\n\nDO_HOKEY\n\nI then just avoid having any other fieldnames ending xxKEY.  You can see that given this type of naming convention it isn\'t very difficult to write a program that generates documentation on your table structures.\n\nI should note also that to simplify (and beautify) programmatic table creation I wrote a set of preprocessor commands so that \n\nI didn\'t have to repeatedly type the same prefix\n\nI didn\'t have to use less than intuitive arrays in my code such as { \"DO_KEY\", \"C\", 16, 0 }\n\nI didn\'t have to define lengths and decimals where they are implied by the type anyway\n\nI could support my own \"types\" (even if they aren\'t reflected in the created table)\n\nSo for example to create a (very simple) DO_DOCTOR table my code might be:\n\nDEFINE xTABLE DOCTOR PREFIX DO_\n   xKEY            KEY\n   xKEY            HOKEY\n   xSTRING      SURNAME   LENGTH 32\n   xSTRING     GVNNAME    LENGTH 32\n   xDATE         DOB\n   xCHAR         CODE\nCREATE TABLE\n\nSince all my keys are type \"C\" length 16 decimals 0 the preprocessor can fill that out.  Similarly it knows xSTRING maps to type \"C\" which needs a length but decimals again are 0.  xDATE maps to type \"D\" (length 8, decimals 0).  xCHAR is just my single cahracter type - ie shorthand for type \"C\" length 1 decimals 0.  I think its a lot neater and what\'s more a lot less to type!\n\nThis post is getting a bit too long so just a bit about documenting code for now.\n\nxBase code should be very easy for a code documenter to navigate and understand however depending upon what you want out of the documenter, the fact that it is weakly typed might be a major stumbling block.\n\nI would be happy to extend discussion on these types of issues if others are interested, and happy to share any code too if its of any use.\n\nHappy coding!\n\nxProgrammer','',0,'QIA=','1dh45f2o',1,0,'',578,0,0),(37140,8046,3,1064,0,'61.70.211.182',1188800800,1,0,1,1,1,0,'','Strange Index problem for ADS RDD','hi all :\n\nI have a item database whice has a normal index key. \n\nBut the sort was very strange .\n\nNO (item.dbf)\n=================\nHST-1002-1\nHST-1002  \nHST-1002-2\nHST-1002-4\nHST-1002-3\n\nUSE ITEM NEW EXCL\nINDEX ON NO TO ITEM\nBROWSE()\n\nshow in ADS RDD:\nHST-1002-1\nHST-1002-2\nHST-1002-3\nHST-1002-4\nHST-1002     ==&gt; shoule be first \n\nshould be:\nHST-1002\nHST-1002-1\nHST-1002-2\nHST-1002-3\nHST-1002-4\n\nAnyone know about it ?\n\n-- \nBest Regards\n-----------------\nkokoo KAO','',0,'QIA=','3s3lgmed',1,0,'',1064,0,0),(37141,8032,2,1159,0,'62.110.52.11',1188802650,1,0,1,1,1,0,'','Tword y PDF','Hola Rene y gracias, lo voy a probar.\n\nSandra','',0,'QIA=','3axv8kei',1,0,'',1159,0,0),(37142,8044,6,456,0,'217.127.39.57',1188803314,1,0,1,1,1,1,'','','La clase dbCombo tiene ese comportamiento que deseas.','',0,'QIA=','af4kut5q',1,0,'',456,0,0),(37143,8046,3,58,0,'84.149.76.50',1188803627,1,0,1,1,1,0,'','','kokookao2007,\n\nplerase try as the following ...\n[code:2hc22pjx]USE ITEM NEW EXCL \nINDEX ON NO TO ITEM \nSET INDEX TO ITEM\nBROWSE&#40;&#41; \n[/code:2hc22pjx]\nhth,\nRegards,\nDetlef','',0,'AIA=','2hc22pjx',1,0,'',58,0,0),(37144,8047,3,47,0,'203.144.160.247',1188805770,1,0,1,1,1,0,'','It work now.  *Conversion problem BMP to JPG*','Dear All,\n\nI try to convert from BMP to JPG with FreeImage.dll.  It\'s used to work with 16bits but I don\'t work with 32bits.  I don\'t know while.\n\nThanks for any help,\nDutch\n\n\n\n[code:1nj9f23o]       \nFUNCTION SaveImage&#40; cFile &#41;\nLOCAL nFormat, hDib, hInfoH, hInfo, hBits, hWnd, hDC, hBmp, lOk\n\n#ifdef __CLIPPER__ \n    hLib = LOADLIB32&#40; &quot;freeimage&#46;dll&quot; &#41; \n#else \n    hLib = LOADLIBRARY&#40; &quot;freeimage&#46;dll&quot; &#41; \n#endif \n\n    if hLib &lt;= 32 \n        MsgStop&#40; &quot;Cannot load FreeImage&#46;dll&quot; &#41; \n        return 0 \n    endif \n\n    nFormat &#58;= FIGETFILETYPE&#40; cFile, 0 &#41;\n    hDib    &#58;= FILOAD&#40; nFormat, cFile, 0 &#41;\n    hInfoH  &#58;= FIGETINFOHEADER&#40; hDib &#41;\n    hInfo   &#58;= FIGETINFO&#40; hDib &#41;\n    hBits   &#58;= FIGETBITS&#40; hDib &#41;\n    hWnd    &#58;= GETDESKTOPWINDOW&#40;&#41;\n\n#ifdef __CLIPPER__ \n    hDC = GETDC32&#40; hWnd &#41; \n#else \n    hDC = GETDC&#40; hWnd &#41; \n#endif \n\nlOk &#58;= fiSave&#40; 2 , hDib, cFile &#41;\n\nhBmp = CREATEDIBITMAP&#40; hDC, hInfoH, CBM_INIT, hBits, hInfo, DIB_RGB_COLORS &#41; \n\n#ifdef __CLIPPER__ \n    RELEASEDC32&#40; hWnd, hDC &#41; \n#else \n    RELEASEDC&#40; hWnd, hDC &#41; \n#endif \n\nFIUNLOAD&#40; hDib &#41; \n\n#ifdef __CLIPPER__ \n    FREELIB32&#40; hLib &#41; \n#else \n    FREELIBRARY&#40; hLib &#41; \n#endif \nRETURN hBmp\n[/code:1nj9f23o]\n[u:1nj9f23o]I for got this line .\nlOk := fiSave( 2 , hDib, cFile )\n[/u:1nj9f23o]\n\nIt work now.\n\nThanks,\nDutch','',0,'AYA=','1nj9f23o',1,0,'',47,0,0),(37145,8046,3,1064,0,'61.70.211.182',1188806508,1,0,1,1,1,0,'','','HI Detlef :\n\n[quote:1is08dyq]SET INDEX TO ITEM [/quote:1is08dyq]\n\nSAME !!','',0,'gA==','1is08dyq',1,0,'',1064,0,0),(37146,7868,3,487,0,'151.38.118.96',1188807943,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2r6yowuk]\n[code:2r6yowuk]function lIsDir&#40; cDirName &#41;   // Checks an existing directory\n\n   local aResult &#58;= Directory&#40; cDirName, &quot;DHS&quot; &#41;\n\nreturn Len&#40; aResult &#41; == 1 &#46;and&#46; &quot;D&quot; $ aResult&#91; 1 &#93;&#91; 5 &#93;\n[/code:2r6yowuk]\n[/quote:2r6yowuk]\n\na trailing \\ in cDirName makes DIRECTORY returning the CONTENT of cDirName\n\n[code:2r6yowuk]function lIsDir&#40; cDirName &#41;   // Checks an existing directory\nLocal aResult\n  If Right&#40;cDirName,1&#41;=&quot;&quot; ; cDirName&#58;=Left&#40;cDirName,Len&#40;cDirName&#41;-1&#41; ; Endif\n  aResult &#58;= Directory&#40; cDirName, &quot;DHS&quot; &#41;\nReturn Len&#40; aResult &#41; == 1 &#46;and&#46; &quot;D&quot; $ aResult&#91; 1 &#93;&#91; 5 &#93;\n[/code:2r6yowuk] \n\nFWH 7.07 - xH 0.99.71\n\nHi,\nDavide','',0,'gIA=','2r6yowuk',1,0,'',487,0,0),(37147,8046,3,58,0,'84.149.105.136',1188814015,1,0,1,1,1,0,'','','kokookao2007,\n\ni\'m sorry but i\'ve no experience with ADS.\n\nBut what happens if you code\n[code:1b7losxt]USE ITEM NEW EXCL \nINDEX ON NO TO ITEM \nSET INDEX TO ITEM \nitem-&gt;&#40; dbGoTop&#40;&#41; &#41;\nBROWSE&#40;&#41; [/code:1b7losxt]\n\nIf it\'s still the same, you should ask our ADS master, RF for help.\n\nRegards,\nDetlef','',0,'AIA=','1b7losxt',1,0,'',58,0,0),(37148,8045,20,6,0,'82.55.208.112',1188815097,1,0,1,1,1,1,'','Re: Classe Richedit','Il tuo esempio a me non dà problemi. Uso le ultime versioni sia di FWH che di xHarbour (dal CVS) e BCC55.\n\nEMG','',0,'AIA=','3iv84rsa',1,0,'',6,0,0),(37149,8048,3,47,0,'203.144.160.247',1188815700,1,0,1,1,1,0,'','How can I set header tab size.','I would like to set fix header length size of each tab.  I try ::nTabSize but it\'s not successful.  How can I set it?\n\nThanks&amp;regards,\nDutch','',0,'AIA=','11wi3zp3',1,0,'',47,0,0),(37150,8048,3,2,0,'87.218.146.240',1188817009,1,0,1,1,1,1,'','','Dutch,\n\nAfaik, it is not possible. ::nTabSize keeps the height of the tabs, to properly set the dialogs origin (0,0).','',0,'AIA=','396dmkd0',1,0,'',2,0,0),(37151,8045,20,20,0,'62.94.208.218',1188819703,1,0,1,1,1,0,'','Re: Classe Richedit','Io uso FWH 7.04 + Harbour + BCC55.\nForse è un problema di Harbour ...\n\nPier Luigi','',0,'AIA=','1xc9fl02',1,0,'',20,0,0),(37152,8045,20,6,0,'82.55.208.112',1188821088,1,0,1,1,1,1,'','Re: Classe Richedit','Provato anche con Harbour (sempre ultima versione dal CVS): nessun problema.\n\nEMG','',0,'AIA=','33ndbqr7',1,0,'',6,0,0),(37153,8039,6,362,0,'200.158.19.112',1188821569,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3o4a329a]No uses la cláusula TRANSPARENT:\n\nREDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg ; \nFONT oFnt [color=red:3o4a329a]// TRANSPARENT[/color:3o4a329a][/quote:3o4a329a]\n\n\nNO AMADO MAESTRO, SI  NO USAR LA CLAUSULA TRANSPARENT, TODO EL DIALOGO, ASUME LA COLOR AMARILLO(CLR_AMARELO), E LOS SAYS Y GETS DESAPARECEN.','',0,'gg==','3o4a329a',1,0,'',362,0,0),(37154,2486,16,362,0,'200.158.19.112',1188821991,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2w9gc8t2]João,\n\nLas versiones más recientes puedes descargarlas desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->[/quote:2w9gc8t2]\n\n\nGracias, Maestro.\n\nCreo que esta version, no funciona com FIVEWIN 2.7. Voy intentar, y después retorno las mesagerias de errores.','',0,'gA==','2w9gc8t2',1,0,'',362,0,0),(37155,8048,3,47,0,'203.144.160.247',1188822938,1,0,1,1,1,0,'','','Dear Antonio,\n\nI mean the Tab Header as following image.\n\n[url=http&#58;//img71&#46;imageshack&#46;us/my&#46;php?image=tabsizevt8&#46;jpg:voz5tfg1][img:voz5tfg1]http&#58;//img71&#46;imageshack&#46;us/img71/9427/tabsizevt8&#46;th&#46;jpg[/img:voz5tfg1][/url:voz5tfg1]\n\nThanks&amp;Regards,\nDutch','',0,'GA==','voz5tfg1',1,0,'',47,0,0),(37156,8036,6,140,0,'190.39.125.177',1188823632,1,0,1,1,1,0,'','','Antonio, no me funciono tu sugerencia...\n\n* Modifique la clase en la linea donde me indicastes y ::GetNewId() devuelve valores relacionados con la modificación.\n* Modifique la clase Say para que ::New() admitiera como un ultimo parámetro el identificador y colocando por defecto la llamada a ::GetNewId()...   DEFAULT  nId       :=::GetNewId() y luego asignarlo a la variable de instancia ::nId\n* Probé cambiando directamente en el código a ::nId luego de haber declarado el control.\n\nEn todos los casos el error que se produce es por que no existe el Id, y lo curioso es que justo antes de la activación de diálogo coloqué una parada que me mostrara los Id\'s de todos los controles del diálogo, y la cantidad de controles como la Id de cada uno corresponde con lo que se le ha asignado bien por recurso (que ya vienen pre-definidos), bien por asignación automática (llamada a ::GetNewId()), o por asignación manual modificando el método New de la clase.\n\nApplication\n===========\n   Path and name: D:\\Sistemas\\CEVALFES\\Lab32.EXE (32 bits)\n   Size: 1,525,760 bytes\n   Time from start: 0 hours 0 mins 7 secs \n   Error ocurred at: 02/09/2007, 09:35:59\n   Error description: Error FiveWin/1  Non defined Id: No:    201\n\nStack Calls\n===========\n   Called from TCONTROL:INITIATE(364)\n   Called from TGET:INITIATE(355)\n   Called from __OBJSENDMSG(0)\n   Called from OSEND(220)\n   Called from ASEND(171)\n   Called from TDIALOG:INITIATE(588)\n   Called from TDIALOG:HANDLEEVENT(766)\n   Called from CREATEDLG(0)\n   Called from TDIALOG:ACTIVATE(283)\n   Called from TPAGES:DEFAULT(146)\n   Called from (b)TPAGES(27)\n   Called from TPAGES:INITIATE(0)\n   Called from __OBJSENDMSG(0)\n   Called from OSEND(220)\n   Called from ASEND(171)\n   Called from TDIALOG:INITIATE(588)\n   Called from TDIALOG:HANDLEEVENT(766)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(254)\n   Called from TESTHIPOOSMOTICO(38)\n   Called from (b)RESULTADOS(85)\n   Called from (b)RESULTADOS(170)\n   Called from TCONTROL:LDBLCLICK(1692)\n   Called from TWBROWSE:LDBLCLICK(1583)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TWBROWSE:HANDLEEVENT(1287)\n   Called from _FWH(3001)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(254)\n   Called from RESULTADOS(212)\n   Called from (b)MAINBUTTBAR(290)\n   Called from TBTNBMP:CLICK(311)\n   Called from TBTNBMP:LBUTTONUP(479)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TBTNBMP:HANDLEEVENT(1287)\n   Called from _FWH(3001)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(860)\n   Called from MAIN(163)\n\nEn el primer post olvide colocar que estoy utilizando FW2.4 con xH0.993 por si acaso eso tiene algo que ver.\n\nPor lo pronto he seguido dibujando pantallas a nivel de recursos...\n\nGracias de antemano por los comentarios,\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela.','',0,'GA==','3r7nc102',1,0,'',140,0,0),(37157,8048,3,86,0,'81.83.185.118',1188823760,1,0,1,1,1,1,'','','I experienced that the size of the header is depending on the length to its title.\n\nSo, maybe enlarging the title (it is possible to add some spaces - it works OK) might give you a solution.','',0,'GA==','5yjzj8rj',1,0,'',86,0,0),(37158,8045,20,20,0,'62.94.208.218',1188824804,1,0,1,1,1,0,'','Re: Classe Richedit','Anche con l\'ultima versione di Harbour intercetto lo stesso errore.\nD\'altra parte, la funzione Resetoleuninit() (che provoca l\'errore) è contenuta nella libreria FIVEH.LIB.\n\nA questo punto dovrei acquistare l\'ultima versione di FWH   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nPier Luigi','',0,'GA==','iidjxc0z',1,0,'',20,0,0),(37159,8036,6,92,0,'81.44.78.109',1188828256,1,0,1,1,1,0,'','Re: Falla creacion de controles diámicos dentro de un diálog','[quote=&quot;gsabattino&quot;]Saludos a Todos...\n\n\n[code:3ti32q5c]\n  ConfResult-&gt;&#40; DBSeek&#40; RenglFact-&gt;Examen &#41; &#41;\n  do while &#40; &#46;not&#46; ConfResult-&gt;&#40; EOF&#40;&#41; &#41; &#41; &#46;and&#46; &#40; ConfResult-&gt;Examen=RenglFact-&gt;Examen &#41;\n    cControl  &#58;=alltrim&#40; ConfResult-&gt;Control &#41;\n    do case\n      case cControl=\'WTITLE\'\n        // Este funciona perfecto&#46;&#46;&#46; claro&#46;&#46;&#46; actúa sobre un control estático\n        aAdd&#40; oSay, NIL &#41;\n        nItem     &#58;=len&#40; oSay &#41;\n        _cItem    &#58;=strtrim&#40; nItem, 2 &#41;\n        bSay      &#58;=&#123; ||  alltrim&#40; ConfResult-&gt;Leyenda &#41; &#125;\n        oSay&#91; &amp;_cItem &#93;   &#58;=TSay&#40;&#41;&#58;ReDefine&#40; 501, bSay, oResult&#58;oDlg, \'\',,,, oControl&#58;oFontSS9 &#41;\n\n      case cControl=\'WSAY\'\n        // Este no funciona&#46;&#46;&#46;\n        aAdd&#40; oSay, NIL &#41;\n        nItem     &#58;=len&#40; oSay &#41;\n        _cItem    &#58;=strtrim&#40; nItem, 2 &#41;\n        bSay      &#58;=&#123; ||  alltrim&#40; ConfResult-&gt;Leyenda &#41; &#125;\n        oSay&#91; &amp;_cItem &#93;   &#58;=TSay&#40;&#41;&#58;New&#40; ConfResult-&gt;Row, ConfResult-&gt;Col, bSay, oResult&#58;oDlg, \'\',;\n                                        oControl&#58;oFontSS9, &#40; ConfResult-&gt;Align==\'C\' &#41;, &#40; ConfResult-&gt;Align==\'R\' &#41;,,,,,;\n                                        ConfResult-&gt;Width, 12 &#41;\n\n    endcase\n    ConfResult-&gt;&#40; DBSkip&#40;&#41; &#41;\n  enddo\n[/code:3ti32q5c]\n\nYa que le metes mano, porque no nombras casa variable segun su tipo (notación úngara le llaman creo)? Para mi oSay sería un objeto no un array, ahora bien aoSay si sería para mi una array de objetos Say.\n\nQue se supone que valor debe retornar:\n_cItem    :=strtrim( nItem, 2 )\nentiendo que sería una cadena de 2 y \'n\' decimales (creo que _SET_DECIMALS() o algo así definiría \'n\').\nyo preferiría _cItem    :=strtrim( nItem, 2, 0 )\n\nSi _cItem  será una cadena y oSay una array, entonces oSay[ &amp;_cItem ]  debería reventar no?\n\nBueno y todo esto con todo mi respeto, yo he sufrido mis propias barbarides en cuanto a código despues de años de modificaciones.\nSaludos\nCarlos G.','',0,'AIA=','3ti32q5c',1,0,'',92,0,0),(37160,8036,6,92,0,'81.44.78.109',1188828432,1,0,1,1,1,0,'','Re: Falla creacion de controles diámicos dentro de un diálog','[quote=&quot;gsabattino&quot;]Saludos a Todos...\n[code:1l9tncod]\n  ConfResult-&gt;&#40; DBSeek&#40; RenglFact-&gt;Examen &#41; &#41;\n  do while &#40; &#46;not&#46; ConfResult-&gt;&#40; EOF&#40;&#41; &#41; &#41; &#46;and&#46; &#40; ConfResult-&gt;Examen=RenglFact-&gt;Examen &#41;\n    cControl  &#58;=alltrim&#40; ConfResult-&gt;Control &#41;\n    do case\n      case cControl=\'WTITLE\'\n        // Este funciona perfecto&#46;&#46;&#46; claro&#46;&#46;&#46; actúa sobre un control estático\n        aAdd&#40; oSay, NIL &#41;\n        nItem     &#58;=len&#40; oSay &#41;\n        _cItem    &#58;=strtrim&#40; nItem, 2 &#41;\n        bSay      &#58;=&#123; ||  alltrim&#40; ConfResult-&gt;Leyenda &#41; &#125;\n        oSay&#91; &amp;_cItem &#93;   &#58;=TSay&#40;&#41;&#58;ReDefine&#40; 501, bSay, oResult&#58;oDlg, \'\',,,, oControl&#58;oFontSS9 &#41;\n\n      case cControl=\'WSAY\'\n        // Este no funciona&#46;&#46;&#46;\n        aAdd&#40; oSay, NIL &#41;\n        nItem     &#58;=len&#40; oSay &#41;\n        _cItem    &#58;=strtrim&#40; nItem, 2 &#41;\n        bSay      &#58;=&#123; ||  alltrim&#40; ConfResult-&gt;Leyenda &#41; &#125;\n        oSay&#91; &amp;_cItem &#93;   &#58;=TSay&#40;&#41;&#58;New&#40; ConfResult-&gt;Row, ConfResult-&gt;Col, bSay, oResult&#58;oDlg, \'\',;\n                                        oControl&#58;oFontSS9, &#40; ConfResult-&gt;Align==\'C\' &#41;, &#40; ConfResult-&gt;Align==\'R\' &#41;,,,,,;\n                                        ConfResult-&gt;Width, 12 &#41;\n\n        /*\nCopiado solo para referencia de los parámetros que debo pasar&#46;\nMETHOD New&#40; nRow, nCol, bText, oWnd, cPicture, oFont,;\n            lCentered, lRight, lBorder, lPixels, nClrText, nClrBack,;\n            nWidth, nHeight, lDesign, lUpdate, lShaded, lBox, lRaised &#41; CLASS TSay\n        */\n    endcase\n    ConfResult-&gt;&#40; DBSkip&#40;&#41; &#41;\n  enddo\n[/code:1l9tncod]\n\nNo será  \noSay[ nItem ]   := ...\nen vez de\noSay[ &amp;_cItem ]   := ...\n\nSaludos\nCarlos G.','',0,'AIA=','1l9tncod',1,0,'',92,0,0),(37161,8006,6,92,0,'81.44.78.109',1188828859,1,0,1,1,1,0,'','Clase TDBF adaptada (TDbf0704 ) para FWH 2007\'04.','Saludos\n\nAquí está el link:\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?49m2tfy4fgx\">http://www.mediafire.com/?49m2tfy4fgx</a><!-- m -->\n\nCarlos G.','',0,'AIA=','3iibkzdi',1,0,'',92,0,0),(37162,8049,6,1153,0,'190.11.70.90',1188831238,1,0,1,1,1,0,'','AYUDA CON FOXPRO','Buenas:\n\nEn primera instancia saludarles a TODO EL MUNDO por tan maravilloso foro.\n\nBueno, tengo varias cosas que consultar y la verdad no se como empezar:\n\n1.- Tengo un producto desarrollado en fpd26 hace mucho tiempo atras, y pude ver las maravillas que puede realizar ADS con el manejo de .dbf y todo lo demas.\n\n¿ Como puedo conectarme a ADS desde fpd26 ? o que tipo de herramientas deberia utilizar para poder tener una muy buena estabilidad en mis .dbf\'s, lo que mas requiero es el tema de la proteccion que se puede obtener con ADS.\n\n2.- De un tiempo a esta parte estoy migrando ese producto que lo tengo en fpd26 a vfp 8, entonces mi pregunta es la siguiente.\n\n¿ Como puedo conectarme a ADS desde VFP8 y que herramientas deberia utilizar para tener una perfecta conexion y por supuesto una proteccion a la BD.\n\n3.- El producto que poseo trabaja en RED y de tal forma cual seria la mejor forma para poder utilizar ADS con su maxima capacidad y rendimiento.\n\nPor favor a TODOS UDS. les rogaria si serian tan amables en poder darme las pautas necesarias para poder realizar dicho proposito y que mejor aun si lo realizarian mediante algunos ejemplos, tanto en la forma de conexion y la seguridad en los .dbf\'s\n\nDe antemano les quedare muy agradecido por la ayuda que puedan brindarme.\n\nAtte.\n\n\nRogerssssss.','',0,'AIA=','12mg5cms',1,0,'',1153,0,0),(37163,8039,6,316,0,'87.218.187.37',1188833745,1,0,1,1,1,0,'','','Karinha,\n\nSi desaparecen es porque el Group está definido despues que el resto de los controles. Tienes que definir primero el group y luego los controles, y no vas a tener problemas de pintado.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','jwtdp1sp',1,0,'',316,0,0),(37164,8050,6,875,0,'64.76.108.182',1188835371,1,0,1,1,1,0,'','Linux(samba)','Actualmente tengo mis aplicaciones en FWH 7.05 y  mis DBFS instaladas en un servido Novel, pero quisiera cambiarlo a Linux Fedora(Samba).  Ya tengo instalado mi sevidor linux con Samba, la pregunta es :\n\n¿Necesito instalar algun cliente en mis estaciones(con windows Xp) para comunicarme con el Linux(samba), ya que el novel si requiere cliente?\n\nSe agradece    <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nJaime','',0,'AIA=','1t9b9qkg',1,0,'',875,0,0),(37165,8039,6,362,0,'200.158.18.8',1188835556,1,0,1,1,1,1,'','','[quote=&quot;Carlos Mora&quot;:3vh3r5bl]Karinha,\n\nSi desaparecen es porque el Group está definido despues que el resto de los controles. Tienes que definir primero el group y luego los controles, y no vas a tener problemas de pintado.\n\nUn saludo,\n\nCarlos.[/quote:3vh3r5bl]\n\n\nGracias Carlos, mas no és esto.\n\nEl dialogo continua se pintando TODO, solo que ahora aparencen los GETS. Mui Estraño. Y el GROUP no cambia la COLOR.\n\n[code:3vh3r5bl]\nDLG_CONTA_CORRENTE_MOTORISTAS DIALOG 3, 63, 520, 162\nSTYLE DS_ABSALIGN | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME\nCAPTION &quot;SGE - SISTEMA DE GERENCIAMENTO EMPRESARIAL - MOVIMENTO DA CONTA CORRENTE - MOTORISTAS&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n\n\n&#123;\n GROUPBOX &quot;Sistema de Gerenciamento Empresarial - Movimento da Conta Corrente Motoristas&quot;, 501, 6, 18, 510, 117, BS_GROUPBOX\n EDITTEXT 20, 200, 33, 80, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_TABSTOP\n EDITTEXT 21, 200, 47, 80, 12, ES_CENTER | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n EDITTEXT 22, 200, 61, 80, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_TABSTOP\n EDITTEXT 23, 283, 62, 150, 12, ES_MULTILINE | NOT WS_TABSTOP | WS_BORDER\n CONTROL &quot; &quot;, 24, &quot;EDIT&quot;, ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 75, 30, 12\n CONTROL &quot;0&#46;00&quot;, 25, &quot;EDIT&quot;, ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 89, 80, 12\n CONTROL &quot; &quot;, 26, &quot;EDIT&quot;, ES_CENTER | ES_MULTILINE | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 200, 103, 30, 12\n EDITTEXT 27, 200, 117, 234, 12, ES_MULTILINE | WS_BORDER | WS_TABSTOP\n PUSHBUTTON &quot; &quot;, 301, 178, 139, 80, 16\n PUSHBUTTON &quot; &quot;, 302, 262, 139, 80, 16\n EDITTEXT 28, 185, 3, 150, 12, ES_CENTER | ES_MULTILINE | NOT WS_TABSTOP | NOT WS_BORDER\n CTEXT &quot;Código do Movimento&#58;&quot;, 401, 86, 33, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP\n CTEXT &quot;Data Movimento&#58;&quot;, 402, 86, 47, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP\n CTEXT &quot;Código Transportadora&#58;&quot;, 403, 86, 61, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP\n CTEXT &quot;Débito/Crédito &lt;D/C&gt;&#58;&quot;, 404, 86, 75, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP\n CTEXT &quot;Valor&#58;&quot;, 405, 86, 89, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP\n CTEXT &quot;Base IR &lt;S/N&gt;&#58;&quot;, 406, 86, 103, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP\n CTEXT &quot;Histórico&#58;&quot;, 407, 86, 117, 110, 12, SS_CENTER | WS_BORDER | WS_GROUP\n&#125;\n[/code:3vh3r5bl]','',0,'gIA=','3vh3r5bl',1,0,'',362,0,0),(37166,8050,6,41,0,'200.87.162.67',1188836165,1,0,1,1,1,0,'','','Hola,\n\nno requieres ningun cliente adicional al de windows, pero en samba no te olvides configurar\noplocks = No\n\nsaludos\n\nMarcelo','',0,'gIA=','676505gb',1,0,'',41,0,0),(37167,7988,3,137,0,'151.38.8.195',1188836168,1,0,1,1,1,0,'','Edit control unicode support','Antonio,\ncan I compile FWH with UNICODE #define?\n\nWhen I define UNICODE I get the c compiler errror message \"cannot find fwh.h\".\n\nRegards,\nRoberto Parisi','',0,'gIA=','1ow088jg',1,0,'',137,0,0),(37168,8051,6,1105,0,'81.47.148.81',1188837176,1,0,1,1,1,0,'','ON DBLCLICK(XFACTUR()) en XBrowse','Hola:\n\n¿Cuál es el equivalente en XBrowse de ON DBLCLICK\n\nREDEFINE BROWSE oLbx OF oDlg ID 101 ON DBLCLICK(XFACTURA(OLBX)) Update \n\n\nMuchas gracias?','',0,'gIA=','1bfr53zy',1,0,'',1105,0,0),(37169,8051,6,53,0,'189.139.17.65',1188838209,1,0,1,1,1,1,'','','Edu:\n\nPrueba así\n\noLbx:blDblClick := { | nRow, nCol, nKey | xFactura(oLbx)}\n\ny para la tecla RETURN o ENTER\n\noLbx:bKeyDown := { | nKey, nFlags | xFactura(oLbx)}\n\n\nSaludos','',0,'gIA=','1o17ukp0',1,0,'',53,0,0),(37170,8048,3,89,0,'213.21.136.60',1188838583,1,0,1,1,1,0,'','','I use \n\n  oFld:nFdHeight := 35\n\nregards MAurizio','',0,'gIA=','p1af1f8h',1,0,'',89,0,0),(37171,8041,6,2,0,'87.218.146.114',1188839239,1,0,1,1,1,1,'','','Local oFont\n\n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -8 BOLD \n\n...\n\n   oCol := oBrw:AddCol()\n   oCol:bStrData  := { || _FIELD-&gt;First}\n   oCol:cHeader   := \"First\"\n   oCol:oDataFont := oFont','',0,'gIA=','n2hthw1x',1,0,'',2,0,0),(37172,8050,6,875,0,'64.76.108.182',1188839273,1,0,1,1,1,0,'','','Gracias por el Dato,  Se Agradece   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','1gt6wzg1',1,0,'',875,0,0),(37173,8048,3,2,0,'87.218.146.114',1188839383,1,0,1,1,1,1,'','','Dutch,\r\n\r\nMichel solution (adding spaces) looks as a good solution','',0,'gIA=','23xw70cp',1,1214221919,'',2,1,0),(37174,7988,3,2,0,'87.218.146.114',1188839463,1,0,1,1,1,1,'','','Roberto,\n\nIn order to rebuild FiveHC.lib with UNICODE, many changes are required.\n\nActually only FWPPC support unicode','',0,'gIA=','17e60705',1,0,'',2,0,0),(37175,8046,3,190,0,'124.7.26.217',1188839493,1,0,1,1,1,0,'','','Hello Mr.kokoo KAO\n\nI am using ADS 7.10 and I am getting the same result what you are\nexpecting. And this is the result browse screen of the test program :\n\n[code:364bpnmd]\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;ads&#46;ch&quot;\n\nFUNCTION main&#40;&#41;\n\n* Advantage Database Server Settings\nREQUEST ADS, ADSKeyCount, ADSKeyNo, OrdKeyCount, OrdKeyNo\n\nrddRegister&#40; &quot;ADS&quot;, 2 &#41;\nrddsetdefault&#40; &quot;ADS&quot; &#41;\nSET SERVER LOCAL\nSET FILETYPE TO CDX\nAdsSetDeleted&#40;&#46;T&#46;&#41;\n\n?adsversion&#40;&#41;\n\nUSE adsindex&#46;asc\nINDEX ON adsindex-&gt;no TO adsindex\nSET INDEX TO adsindex\n\nBROWSE&#40;&#41;\n\nRETURN nil\n\n[/code:364bpnmd]\n\n\nAND THE RESULT SCREEN IS :\n\n<!-- m --><a class=\"postlink\" href=\"http://img129.imageshack.us/my.php?image=adsindexer2.png\">http://img129.imageshack.us/my.php?imag ... dexer2.png</a><!-- m -->][img:364bpnmd]http&#58;//img129&#46;imageshack&#46;us/img129/7657/adsindexer2&#46;th&#46;png[/img:364bpnmd]\n\n\nWhich version of ADS you are using ?\n\n\nRegards \n\n- Ramesh Babu P','',0,'CIA=','364bpnmd',1,0,'',190,0,0),(37176,8052,7,986,0,'201.45.114.2',1188839570,1,0,1,1,1,1,'','Como faco para ZIPAR arquivos no Pocket','Senhores,\n\nJa existe uma forma de Zipar arquivos no Pocket, e tambem descompactar arquivos Zipados enviado atraves do PC.\n\nSe alguem puder ajudar!!\n\nAbracos!!\n\nCleber\nFWPPC/FWH/Xharbour/xmate/sqllib','',0,'CIA=','v062z4e9',1,0,'',986,0,0),(37177,7868,3,2,0,'87.218.146.114',1188839645,1,0,1,1,1,1,'','','Davide,\n\nThanks!','',0,'CIA=','39ewc2wo',1,0,'',2,0,0),(37178,8043,3,2,0,'87.218.146.114',1188839914,1,0,1,1,1,1,'','','Local oFont \n\nDEFINE FONT oFont NAME \"Arial\" SIZE 0, -8 BOLD \n\n... \n\noCol := oBrw:AddCol() \noCol:bStrData := { || _FIELD-&gt;First} \noCol:cHeader := \"First\" \noCol:oDataFont := oFont','',0,'CIA=','2uufl539',1,0,'',2,0,0),(37179,8053,6,73,0,'200.23.18.132',1188839952,1,0,1,1,1,0,'','ayuda filtros y mas filtros ...','Hola foro,\npor aqui tengo varias dudas que me asaltan:\n\n1. Tengo una dbf con indice \"fecha\", filtro esa dbf con rango de fechas usando ORDSCOPE(), ej:\nmiDbf-&gt;(ordscope(0,dtos(fecha1)))\nmiDbf-&gt;(ordscope(1,dtos(fecha2)))\nbueno pero aqui viene la duda, puedo meter otro ordscope() para subfiltrar aunque por el campo que lo quiero filtrar no sea indice?\n\n2. Tengo una dbf temporal con 2000 registros, quiero hacer una opcion donde pueda elegir: los 10 mas vendidos, los 20 mas vedidos, los 50 mas vendidos, los 100 mas vendidos y \"todos\"  y unicamente mostrar lo opcion seleccionada, como hacerlo? esto para saber de mi catalogo cuales son los que mas vendo...\n\ngracias\nsalu2\npaco','',0,'CIA=','pt19o02u',1,0,'',73,0,0),(37180,8039,6,2,0,'87.218.146.114',1188840157,1,0,1,1,1,1,'','','João,\n\nPuedes mostrar unas imágenes de cómo se ve en ambos casos ? gracias\n\nUsa <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->','',0,'CIA=','27mbtub3',1,0,'',2,0,0),(37181,8041,6,1105,0,'81.47.148.81',1188840893,1,0,1,1,1,0,'','','Gracias, pero lo que quiero es que el usuario pueda cambiar la fuente durante la ejecución del programna','',0,'CIA=','3nq6jffa',1,0,'',1105,0,0),(37182,8051,6,1105,0,'81.47.148.81',1188840916,1,0,1,1,1,0,'','','Muchas gracias, va genial!!!!!!','',0,'CIA=','5h8muipg',1,0,'',1105,0,0),(37183,8043,3,1105,0,'81.47.148.81',1188840955,1,0,1,1,1,0,'','','Thanks, but I want that the user can change the font during the program execution.','',0,'CIA=','1g1l0glo',1,0,'',1105,0,0),(37184,8039,6,362,0,'200.158.18.8',1188843931,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2n6qc1ys][img:2n6qc1ys]http&#58;//img126&#46;imageshack&#46;us/img126/2433/imagem1vy6&#46;png[/img:2n6qc1ys][/url:2n6qc1ys]\n[/img]','',0,'GA==','2n6qc1ys',1,0,'',362,0,0),(37185,8039,6,362,0,'200.158.18.8',1188844170,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1z8xae4i][img:1z8xae4i]http&#58;//img126&#46;imageshack&#46;us/img126/1217/imagem2va9&#46;png[/img:1z8xae4i][/url:1z8xae4i]','',0,'GA==','1z8xae4i',1,0,'',362,0,0),(37186,8046,3,35,0,'65.188.6.143',1188845583,1,0,1,1,1,0,'','','To All\n\nDo not use a database pointer in the creation of your indexes .. \n\nUSE adsindex.asc \nINDEX ON adsindex-&gt;no TO adsindex \nSET INDEX TO adsindex \n\n\nINDEX on no To adsindex .. \n\nRick Lipkin\nSC Dept of Health, USA','',0,'GA==','2be24wk4',1,0,'',35,0,0),(37187,8039,6,511,0,'200.35.210.132',1188845745,1,0,1,0,1,1,'','','Karinha, \n\nprueba con:\n\nREDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, oDlg:hDC OF oDlg FONT oFnt','',0,'GA==','18g73vua',1,0,'',511,0,0),(37188,8042,6,511,0,'200.35.210.132',1188846128,1,0,1,0,1,1,'','','A mi me funciona asi:\n\noFtp:CreateDirectory( cDir )','',0,'GA==','1zv5tue8',1,0,'',511,0,0),(37189,8039,6,362,0,'200.158.18.8',1188846488,1,0,1,1,1,1,'','','[quote=&quot;Alvaro Urdaneta&quot;:2wfi28v1]Karinha, \n\nprueba con:\n\nREDEFINE GROUP oGroup ID 501 COLOR CLR_VERMELHO, oDlg:hDC OF oDlg FONT oFnt[/quote:2wfi28v1]\n\n[url=http&#58;//imageshack&#46;us:2wfi28v1][img:2wfi28v1]http&#58;//img73&#46;imageshack&#46;us/img73/5070/imagem3cn6&#46;png[/img:2wfi28v1][/url:2wfi28v1]','',0,'mA==','2wfi28v1',1,0,'',362,0,0),(37190,8053,6,316,0,'87.218.187.37',1188847418,1,0,1,1,1,0,'','','Paco,\n\nNo, no se puede. El scope actua cambiando los límites de las claves del índice. En lugar de usar la primera del índice usa la que tu pusiste como top, y lo mismo para el bottom.\n\nCombinarlo no es posible. Aun así, la perfomance del filtro depende si el primer scope ya filtró lo suficiente. \nUn punto: segun escribes el indice es fecha, es decir del tipo \'D\', pero en el scope usas DtoS, que es del tipo \'C\'. Ojo con eso. Cual es la clave del indice? Por ahí si la clave es del tipo char (DTOS) no importaría agregar otro campo más. Por ejemplo, si fuese un diario de una contabilidad, lo tienes indexado por cuenta seguro. Pero no lastima que en lugar de tener un indice solo por cuenta lo indexes por cuenta + dtos(fecha), ya que te sigue sirviendo para hacer seeks de cuentas y ademas te sirve para hacer los mayores, por ejemplo.\n\nUn saludo,\n\nCarlos.','',0,'mA==','21k6kb3h',1,0,'',316,0,0),(37191,8039,6,2,0,'87.218.146.114',1188847441,1,0,1,1,1,1,'','','Joao,\n\nEste efecto en el título del groupbox está solucionado en versiones más recientes de FWH. Y no se puede cambiar solo el fondo de ese título. Si el groupbox es transparente, entonces también el título lo es.\nPrueba a poner un SAY encima del texto del groupbox si lo que quieres es un color de fondo:\n[url=http&#58;//imageshack&#46;us:2c07zohg][img:2c07zohg]http&#58;//img126&#46;imageshack&#46;us/img126/2433/imagem1vy6&#46;png[/img:2c07zohg][/url:2c07zohg]\n[/img]','',0,'GA==','2c07zohg',1,0,'',2,0,0),(37192,8054,6,519,0,'88.16.14.53',1188848488,1,0,1,1,1,0,'','Gpf en toolbar','Hola amigos\n\n    Desde haces unos dias me esta dando este gpf,  el gpf lo da en windows xp, parece que el problema esta en la clase toolbar, indico link del gpf\n\n[url=http&#58;//img61&#46;imageshack&#46;us/my&#46;php?image=gpfqf2&#46;jpg:1tklx8ea][img=http://img61.imageshack.us/img61/1633/gpfqf2.th.jpg][/url:1tklx8ea]\n\n\n  En esta linea del metodo paint es donde me da el gpf . alguna idea  ?\n\n\n if ::oBrush != nil\n      FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )\n   else\n  Aqui se proudce el gpf   CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )\n\n    endif\n\n  un saludo y gracias','',0,'EA==','1tklx8ea',1,0,'',519,0,0),(37193,8039,6,362,0,'200.158.18.8',1188848890,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1rou1jx2]Joao,\n\nEste efecto en el título del groupbox está solucionado en versiones más recientes de FWH. Y no se puede cambiar solo el fondo de ese título. Si el groupbox es transparente, entonces también el título lo es.\nPrueba a poner un SAY encima del texto del groupbox si lo que quieres es un color de fondo:\n[url=http&#58;//imageshack&#46;us:1rou1jx2][img:1rou1jx2]http&#58;//img126&#46;imageshack&#46;us/img126/2433/imagem1vy6&#46;png[/img:1rou1jx2][/url:1rou1jx2]\n[/img][/quote:1rou1jx2]\n\n\nGracias Maestro.\n\nNo hay problemas.  Esta bonito asi mismo.\n\nI Love FiveWin.\n\nRegards, saludos.','',0,'mA==','1rou1jx2',1,0,'',362,0,0),(37194,8055,11,578,0,'218.214.35.132',1188851803,1,0,1,0,1,0,'','FiveLinux msgs.h','Antonio\n\nI was going to try to subclass TListbox and see if I could get around the problem of selection changing when tabbing into a listbox by playing around with the GOTFOCUS message.  But msgs.h doesn\'t list such a message.  I assume it must exist?  What defined constant?  Are the constants defined in msgs.h KDE ones or just your own ones?\n\nThanks\n\nDoug (xProgrammer)','',0,'mA==','3bwrkp15',1,0,'',578,0,0),(37195,8046,3,138,0,'189.141.65.96',1188854055,1,0,1,1,1,1,'','','The Following code, tested under ADS 7.1 and 8.1 works as expected, in both CDX and NTX file formats:\n\nTest were made with xHarbour 99.61\n\nREQUEST ADS\nRDDSETDEFAULT(\"ADS\")\nAdsSetServerType(7)\nAdsSetFileType(1)\nUSE kokoo\nINDEX ON NO TO kokoo\nBrowse()','',0,'mA==','1b1tgpla',1,0,'',138,0,0),(37196,8053,6,53,0,'189.139.17.65',1188858320,1,0,1,1,1,1,'','','Paco:\n\nTodo depende de lo que quieras obtener, vamos a ver un pequeño ejemplo, supongamos que tenemos esta DBF con dos campos cuyo\níndice es el campo MODELO\n\nMODELO               DESCRIPCION\n5499                    BABY DOLL\n5500                    BABY\n5504                    BABY DOLL\n5505                    BABY\n5670                    BABU DOLL\n\nAhora bien, como tu sabes la función ORDSCOPE() trabaja sobre el índice así que si metemos el siguiente código:\n\n(cModelo)-&gt;(ORDSCOPE(0,\"5500       \"))\n(cModelo)-&gt;(ORDSCOPE(1,\"5505       \"))\n(cModelo)-&gt;(DBGOTOP())\n\nNos esta limitando la vista a solo los tres modelos intermedios, 5500, 5504 y 5505, los modelos 5499 y 5670 quedan fuera.\n\nAhora si despues del scope metemos un filtro como el siguiente\n\n(cModelo)-&gt;(DBSETFILTER( { | | LEFT((cModelo)-&gt;MOD_DES,9) == \"BABY DOLL\"},;\n\"LEFT((cModelo)-&gt;MOD_DES,9) == \'BABY DOLL\'\" ) )\n\nQue crees que pase ?,  pues que solo veremos el modelo 5504 y no se incluyen los modelos 5499 y 5670 que tambien cumplen con el filtor, por qué ?, pues porque el ORDSCOPE sigue siendo válido.\n\nEn cuanto a la segunda pregunta, creo que te conviene crearle un índice descendente a la DBF temporal y despues solo listas los registros solicitados.\n\nSaludos','',0,'mA==','5u8b6tux',1,0,'',53,0,0),(37197,8056,6,661,0,'189.155.207.62',1188861688,1,0,1,1,1,0,'','usar mas de 1 archivo con set resource to ??','hola que tal a todos, aqui con una duda acerca de si puedo utilizar dos DLLs a travez del comando SET RESOURCES TO ya que tengo una DLL con muchas imagens que usa mi sistema y al parecer llegue al limite porque si agrego una imagen mas no se genera el DLL (uso VERCE 3.5)  entonces quiero usar otra DLL con otras imagenes....\n\nsaludos a todos\nGracias de antemano..\nAlex.','',0,'mA==','1rvoc2ld',1,0,'',661,0,0),(37198,8056,6,228,0,'190.25.24.174',1188863661,1,0,1,1,1,1,'','','Yo lo solucione cerrando  la primera\n\nSET RESOURCES TO\n\ny luego abro de nuevo la que necesito.\n\nEspero te sirva','',0,'mA==','3cu53j7v',1,0,'',228,0,0),(37199,8055,11,2,0,'87.218.146.114',1188864395,1,0,1,1,1,1,'','','Doug,\n\n&gt; Are the constants defined in msgs.h KDE ones or just your own ones? \n\nFiveLinux ones. Not GTK+','',0,'mA==','11oy8dz9',1,0,'',2,0,0),(37200,8056,6,661,0,'189.155.207.62',1188864894,1,0,1,1,1,0,'','','gracias leandro voy a probar esa opcion  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'mA==','3ogxa1zz',1,0,'',661,0,0),(37201,8056,6,138,0,'189.141.65.96',1188867044,1,0,1,1,1,1,'','','Alex:\n\nCambia el compilador de recursos, tienes las instrucciones en mi blog.','',0,'mA==','k32kefux',1,0,'',138,0,0),(37202,8056,6,439,0,'200.125.43.228',1188867104,1,0,1,1,1,1,'','','Si usas Resouce Workshop y sobrepasaste el límite crea otro rc por ejemplo xxxx.rc y agrega al rc que conviertes en dll la línea #include xxxx.rc, con ello tendrás una dll con los recursos puestos en los dos RC.','',0,'mA==','msdr3qly',1,0,'',439,0,0),(37203,8057,6,147,0,'190.30.107.218',1188869879,1,0,1,0,1,1,'','O.T. Iconos','Alguien conoce de algún sitio, free, para bajar iconos referidos a temas bancarios?\n\ngracias','',0,'mA==','2lnsgyxj',1,0,'',147,0,0),(37204,8044,6,854,0,'189.131.24.220',1188869977,1,0,1,1,1,0,'','Biel','Ya lo probe y no mefunciona, tengo que darle cuando sale del combo un valid para que vuelva a buscar. Lo hago desde el Workshop.\n\nMe podrias poner un ejemplo.\n\ngracias.','',0,'mA==','3ka5y88a',1,0,'',854,0,0),(37205,8046,3,1064,0,'61.70.211.182',1188876100,1,0,1,1,1,0,'','','hi all:\n\n[quote:16zg1glr]?adsversion()  ==&gt; 8.10[/quote:16zg1glr]\n\n[quote:16zg1glr]Do not use a database pointer in the creation of your indexes ..\n\nINDEX ON adsindex-&gt;no TO adsindex\nINDEX ON no TO adsindex\n\n==&gt; same[/quote:16zg1glr]\n\n[quote:16zg1glr]my xHarbour version :99.70 [/quote:16zg1glr]\n\nwhat my screen image:\n[url:16zg1glr]http&#58;//kokookao&#46;myweb&#46;hinet&#46;net/xharbour/index_browse&#46;jpg[/url:16zg1glr]\n\ntry edit item no:\n\nHST-1002-1\nHST-1002   ==&gt;HST-1002-\nHST-1002-2\nHST-1002-4\nHST-1002-3 \n\nBROWSE():\nHST-1002- ==&gt;first now\nHST-1002-1\nHST-1002-2\nHST-1002-3\nHST-1002-4 \n\nwhy HST-1002 can not sort in first ?\nbug or library problem ?\nit is correct sort in \"dbfcdx\" rdd .\n\n-- \nBest Regards\n-----------------\nkokoo KAO','',0,'kA==','16zg1glr',1,0,'',1064,0,0),(37206,8048,3,47,0,'203.144.160.247',1188876490,1,0,1,1,1,0,'','','Dear Maurizio &amp; Antonio,\n\n- oFld:nFdHeight is not fix Tab Header Width.\n- Add space is not fixed correctly even use Courier FONT but this is the best way we can now.\n\nThanks &amp; regards,\nDutch','',0,'kA==','1u3g0mfo',1,0,'',47,0,0),(37207,8058,6,439,0,'200.125.43.228',1188879091,1,0,1,1,1,1,'','Orientación sobre edición de recursos .RC y .RES','Hola,\n\nComo siempre, preguntando algo....\n\nEs que me frustra trabajar con un editor de recursos de 16 bits, aunque de momento es lo que hago.\n\nHe observado que muchos han abandonado la edición de archivos.RC para trabajar directamente con los .RES con por ejemplo PellesC, Resource Builder, etc.\n\nPor otra parte cuando he intentado trabajar con .RC con otros editores de recursos, he vuelto finalmente al Resource Workshop.\n\nQuisiera saber que me recomiendan.....\n[i:apqyujph]1) Que editor de recursos podría usar en 32 bits?\n2) Debo pasar mis .RC a .RES y trabajar con .RES?, hay alguna ventaja en hacerlo? o desventaja?\n3)Si fuera posible seguir editando recursos en archivos .RC tengo que hacer algún cambio en ellos?,  debo considerar alguna forma de convertirlos?[/i:apqyujph]\n\nDesde ya gracias por cualquier orientación que puedan darme. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \nMe aterra la idea de convertir los recursos de mis aplicaciones y luego tener que revertir el proceso.','',0,'IA==','apqyujph',1,0,'',439,0,0),(37208,8044,6,456,0,'217.127.39.57',1188888484,1,0,1,1,1,1,'','','Casi mejor pon el codigo que no te funciona, porque realmente no hay mucho que explicar. \n\n[code:2u4egzua]\nREDEFINE DBCOMBO cCmb ID 4001 OF oDlg ITEMS &#123;\'L\',\'M\',\'I\',\'J\',\'V\',\'S\',\'D\'&#125; ;\n                         PROMPTS &#123;\'Lunes\',\'Martes\',\'Miercoles\',\'Jueves\',\'Vierenes\',\'Sabado\',\'Domingo\'&#125;[/code:2u4egzua]','',0,'AIA=','2u4egzua',1,0,'',456,0,0),(37209,8058,6,316,0,'213.97.245.163',1188889013,1,0,1,1,1,0,'','','José,\nResource Builder es muy completo y avanzado, lee los RC\'s pero siempre guarda como RES o como DLL.\nTiene muchas opciones que no todos tienen: Puedes modificar el canal alpha de los bitmaps, lo que se agradece porque ahsta ahora solo lo podía hacer con photoshop. Puede que sea una prestacion que aún no necesites, pero seguro que en un futuro cercano sí, sino preguntales a los de ViaCoral <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nPuedes incluir otro tipo de recursos no disponibles en otros editores, por ejemplo HTML.\nPuedes precargar la BWCC32.dll en el editor para hacerlo Borland Compatible.\n\nEs mi eleccion personal,\n\nCarlos','',0,'AIA=','1h9hh9xo',1,0,'',316,0,0),(37210,8054,6,2,0,'87.218.146.114',1188892270,1,0,1,1,1,1,'','','Prueba a comentar la llamada a CallWindowProc:\n\n// CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 )','',0,'AIA=','1azzg7a5',1,0,'',2,0,0),(37211,8054,6,519,0,'81.37.6.155',1188895310,1,0,1,1,1,0,'','','Antonio, \n\n   Si comento la linea se quita el gpf pero la toolbar no se pinta bien , se ven deformados los botones, alguna solucion  ?\n\n\n  un saludo y gracias','',0,'AIA=','15xvpfyd',1,0,'',519,0,0),(37213,8059,6,147,0,'201.253.27.226',1188903158,1,0,1,0,1,1,'','Sobre TPanel','Mirando los samples toolbars y rebars (FWH26MAY2005), observo en el último la inclusión de TPanel.\nNo entiendo para que es su uso. alguien me lo explica?\n\ngracias','',0,'AIA=','2jc7ots3',1,0,'',147,0,0),(37214,8054,6,2,0,'87.218.146.114',1188904537,1,0,1,1,1,1,'','','La cuestión es porque a veces se produce ese GPF. A nosotros nunca nos ha ocurrido.\n\nTienes puesto algún control especial en la toolbar ? Algo que no sea como en los ejemplos de toolbar que proporcionamos ?','',0,'AIA=','1i5iieud',1,0,'',2,0,0),(37215,8059,6,2,0,'87.218.146.114',1188905236,1,0,1,1,1,1,'','','Mario,\n\nEs para poder situar varias toolbars distintas en una misma rebar','',0,'AIA=','209wgtnk',1,0,'',2,0,0),(37217,8060,5,355,0,'213.23.0.82',1188905756,1,0,1,1,1,0,'','FiveWin / Internet use Wininet.dll','I found an example, so that I get the XML return from a PHP program. Unfortunately I cannot pick the values out.\n\nSomeone already solved the problem\n\nregards, \n\nCarsten\n\n    \nsbuffer = empty \n\nfunction InternetReadFile( hFile ,sBuffer,lNumBytesToRead,lNumberOfBytesRead ) \n    local hDLL := iIf( ValType( xdll ) == \"N\", xdll, LoadLib32( \"xdll\" ) ) \n    local uResult \n    local cFarProc \n    local sb1 := sbuffer , sb2, sb3\n    if Abs( hDLL ) &gt; 32 \n        cFarProc = GetProcAdd( hDLL,  \"InternetReadFile\" ,.T., 7 , 7 , 8 , 7, 7 ) \n        uResult = CallDLL( cFarProc , hFile , @sBuffer, lNumBytesToRead, @lNumberOfBytesRead ) \n        nGelesen := lNumberOfBytesRead \n        sb2 := sbuffer \n/*\n        uResult = CallDLL( cFarProc , hFile , @sBuffer, nGelesen , @lNumberOfBytesRead ) \n        nGelesen := lNumberOfBytesRead \n*/\n\n        iIf( ValType( xdll ) == \"N\",, FreeLib32( hDLL ) ) \n    else \n        MsgAlert( \"Error code: \" + LTrim( Str( hDLL ) ) + \" loading \" + If( ValType( xdll ) == \"C\", xdll, Str( xdll ) ) ) \n    end \n    return uResult','',0,'AIA=','izd9fide',1,0,'',355,0,0),(37218,8058,6,1106,0,'190.64.201.144',1188907500,1,0,1,1,1,0,'','','José:\n\nYo uso Pelles C con archivos .RES y no he tenido problemas.\n\nEl Resource Builder es muy bueno, vale 49 dólares +-.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','3p7floh7',1,0,'',1106,0,0),(37219,8061,6,105,0,'200.72.140.34',1188910389,1,0,1,1,1,1,'','OT : Creacion de videos tutoriales','Hola Fivewinners.\n\nDisculpen el OT\n\nNecesito saber que herramienta se uso para crear los videos tutoriales, necesito crear ciertos tutoriales para la empresa donde trabajo, y distribuirlos en DVD, para ello debo capturar la imagen de la pantalla que incluye una reproduccion de video. Poseo un MUY buen Pc para la captura y edicion final del video, pero no he encontrado un software que me de una buena resolucion.\nSi alguien conoce de alguna herramienta de ese tipo, por favor que me la diga, no importa si es de pago, hay (poco pero hay) presupuesto para comprarla.\n\nGracias de antemano.\n\nDesde Chile\nAdolfo Lagos\n<!-- w --><a class=\"postlink\" href=\"http://www.xdata.cl\">www.xdata.cl</a><!-- w -->','',0,'AIA=','9fpwuk82',1,0,'',105,0,0),(37221,8062,6,362,0,'200.158.19.71',1188910831,1,0,1,1,1,1,'','QUINTO CONGRESSO DE FIVEWINNERS - BRAZIL','[img:3d32knzf]http&#58;//www&#46;vimatec&#46;com&#46;br/logo&#46;jpg[/img:3d32knzf]','',0,'CA==','3d32knzf',1,0,'',362,0,0),(37222,8030,3,620,0,'209.189.229.150',1188911651,1,0,1,1,1,0,'','','Carlos,\nusing DBFCDX and Harbour.  I recall now a few years ago having this trouble when executing a re-index and pack...that was with FW20 and NTX if I recall.  And it was with the same database, so I suspect as James has surmised that there must be something in the code.\n\nJames...Im going to start sifting through this and reworking the code since it is a mismash of old code from even the dBase days....I appreciate your willingness to help and I\'ll shoot you something if I can\'t get this figured out.\n\nThanks,\nGreg','',0,'CA==','by504xw9',1,0,'',620,0,0),(37223,8063,3,620,0,'209.189.229.150',1188912034,1,0,1,1,1,0,'','Filter/Scope dilemna','I need some ideas on how to accomplish a multiple filter that will work fast.  I have four separate browses in a window with different filters working from the same database ...and the filter will change dynamically based on user input also.\n\nSET FILTER TO UPPER(jobdate1-&gt;status) != \"COMPLETE\" .AND. jobdate1-&gt;scheddate = dDate1 .AND. jobdate1-&gt;presscode = cPressCode\n\nObviously FILTER is SLoooowwwww.  It can take upwards of 4-5 seconds to paint the screen or change the view.\n\nAre there any techniques to accomplish this that will be faster?   \n\nI was experimenting with a combination of FILTER and SET SCOPE, but couldn\'t even get the SET SCOPE beyond a compiler error (\"parse error at SCOPE\"....  SET SCOPE TO dDate1...indexed on date).\n\nIdeas are appreciated!   Thanks.... Greg','',0,'CA==','2lztddhs',1,0,'',620,0,0),(37224,8063,3,35,0,'167.7.140.254',1188913709,1,0,1,1,1,0,'','','Greg\n\nAdd #include \"ord.ch\" to the top of your .prg\n\nRick','',0,'CA==','2n8jxb8s',1,0,'',35,0,0),(37225,8040,3,473,0,'81.82.10.56',1188913900,1,0,1,1,1,0,'','','I have done already some tests.\nI do further testing. It seems it will work but I have still some questions.\n\nIs\'nt it so that with the mentioned functions there is made a temporary file on the harddisk before paintig it in a screen.\n\nIs\'nt there a solution that paint the bitmap without writing to hardisk.\n\nThanks,\n\nGreetings.\n\nWilly.','',0,'CA==','3a673v5k',1,0,'',473,0,0),(37226,8063,3,620,0,'209.189.229.150',1188914039,1,0,1,1,1,0,'','','Rick,\nWhat does ord.ch accomplish?  Is this to allow SET SCOPE?\nG','',0,'CA==','2h7n8xcu',1,0,'',620,0,0),(37227,8064,3,473,0,'81.82.10.56',1188914225,1,0,1,1,1,0,'','Sending emails from within FiveWin.','I have to make a list with email addresses and a text to send.\n\nThe program has to send it automatically without further action of the user.\n\n(It is not for sending spam of course)\n\nIs this possible from within FiveWin.\n\nI saw there is pop3 example in the samples map.\n\nIs this only an early test with few possibilities or is it possible to send whole mailing without problems.\n\nThanks,\n\nWilly','',0,'CA==','3vsnukg1',1,0,'',473,0,0),(37228,8030,3,2,0,'87.218.146.114',1188914678,1,0,1,1,1,1,'','','Greg,\n\nWhat Harbour build are you using ? \n\nYou should use the most recent one','',0,'CA==','7t92bcz8',1,0,'',2,0,0),(37229,8061,6,2,0,'87.218.146.114',1188914836,1,0,1,1,1,1,'','','Adolfo,\n\nEste es un foro privado (pertenece a FiveTech), de acceso público, y tenemos nuestras normas. Entre ellas, que no vamos a hacer publicidad gratuita a nadie.','',0,'CA==','2xpwg0d7',1,1188921023,'',2,2,0),(37230,8030,3,620,0,'209.189.229.150',1188915145,1,0,1,1,1,0,'','','Antonio,\n19/May/2006 is the version I have.  Is there any known problem with this build regarding database?  I\'ll download most recent.\nG','',0,'CA==','3n9u2hbu',1,0,'',620,0,0),(37231,8030,3,2,0,'87.218.146.2',1188915402,1,0,1,1,1,1,'','','Greg,\n\nIts very important that you try with the most recent build. There have been lots of important changes on the RDDs.','',0,'CA==','fa7l8qdf',1,0,'',2,0,0),(37232,8063,3,130,0,'84.138.44.147',1188915758,1,0,1,1,1,1,'','','Greg,\n\ncreate an index file with the filter you need for the browses and open the database in 4 different workareas and use the  accompanying index tag in every workarea. So every browse can have its own scope.','',0,'CA==','3257sww0',1,0,'',130,0,0),(37233,8063,3,620,0,'209.189.229.150',1188916075,1,0,1,1,1,0,'','','Yes, that is essentially what I am doing.   The problem with FILTER though is it must evaluate every record of the database so it is much slower than SCOPE...but SCOPE will allow for only one key evaluation...and I need three.\n\nWhat I am contemplating is copying to a temp database based on two keys which and using SCOPE for the third key...but then when a record is changed, I have to go back and change it in the main database (goto recno() having recorded the recno in the temp database)...just not very elegant...searching for a better way.\n\nThanks for the help!\nG','',0,'CA==','1auxzay2',1,0,'',620,0,0),(37234,8030,3,620,0,'209.189.229.150',1188916263,1,0,1,1,1,0,'','','Antonio,\nI will do that...hope that solves the problem as I have found nothing in the code that could possibly cause that.  \n\nA few months ago we were seeing this strangeness and found where the workarea was changing (different browses) and then not changing back to the proper browse after an action...got that fixed and thought it had settled it for good.   I\'ll keep you posted.\n\nG','',0,'CA==','3j3io39m',1,0,'',620,0,0),(37235,8058,6,73,0,'200.23.18.132',1188916742,1,0,1,1,1,0,'','','jose,\nyo uso pellesc  .res sin problemas, es gratuito y facil, por ahi a mas de 1 le paso que usando sus .rc de workshop y luego pasar a .res con pellesc tenian problemas, por lo que te recomiendo pruebes lo siguiente:\nGenera tu .exe normalmente, ejecuta el pellesc y abre desde el programa el .exe de tu aplicacion, automaticamente te carga todos tus recursos, luego lo grabas como .res y listo... a usar pelles en caliente!!\nsalu2\npaco','',0,'CA==','1hea4jfn',1,0,'',73,0,0),(37236,8053,6,73,0,'200.23.18.132',1188916988,1,0,1,1,1,0,'','','Carlos, perfectamente entendido, si mi campo fecha la convierto en el indice a dtos, hare algunas pruebas.\nArmando, si habia pensado en algo asi, aqui la cuestion seria la lentitud que pudiera tener el dbsetfiler al tener muchooooos registros, no se tal vez 500,000, pero lo probare.\nMe salta otra duda, como puedo filtrar de una dbf cierta cantidad de registros? o sea que sea por el no. de registro en la dbf, no por campo.\nsalu2\npaco','',0,'CA==','3d52odm4',1,0,'',73,0,0),(37237,8036,6,140,0,'190.39.124.166',1188917919,1,0,1,1,1,0,'','','El problema de crear controles dinámicamente en un diálogo ha quedado resuelto...\n\nEl asunto está que no se pueden crear controles en forma dinámica si el diálogo viene como un recurso en lugar de crearse por programa...\nO sea... para poder crear controles a punta de código el diálogo también tiene que haberse creado a punta de código...\nSería interesante que Antonio nos comentara algo acerca del porqué esa limitación...\n\n\nSaludos a todos...\n\nGiancarlo J. Sabattno S.\nValencia, Venezuela','',0,'CA==','37oppap3',1,0,'',140,0,0),(37238,8036,6,2,0,'87.218.146.88',1188918636,1,0,1,1,1,1,'','','Giancarlo,\n\nNo existe tal limitación. Aquí tienes un ejemplo funcionando correctamente:\n\ntest.prg\n[code:3pla51t5]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg RESOURCE &quot;test&quot;\n\n   REDEFINE BUTTON ID 120 OF oDlg ACTION MsgInfo&#40; &quot;resource&quot; &#41;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT AddControl&#40; oDlg &#41;\n\nreturn nil\n\nfunction AddControl&#40; oDlg &#41;\n\n   @ 5, 3 BUTTON &quot;source&quot; OF oDlg ACTION MsgInfo&#40; &quot;source&quot; &#41; SIZE 72, 23\n   \nreturn nil   \n[/code:3pla51t5]\ntest.rc\n[code:3pla51t5]\ntest DIALOG 70, 67, 194, 119\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;resources&quot;, 120, 11, 25, 50, 14\n&#125;\n[/code:3pla51t5]','',0,'AIA=','3pla51t5',1,0,'',2,0,0),(37239,8063,3,35,0,'167.7.140.254',1188918720,1,0,1,1,1,0,'','','Greg\n\nOrd.ch translates the Set Scope command.\n\nRIck','',0,'AIA=','37aeygob',1,0,'',35,0,0),(37241,8061,6,2,0,'87.218.146.88',1188920611,1,0,1,1,1,1,'','','Adolfo,\n\nNos gusta que las cosas queden claras.\n\nCuando me refiero a dejar de usar, me refiero a dejar de usar estos foros. Aqui existen unas normas, como no aceptar la piratería, como el respeto ó como no hacer publicidad a terceros. Y por supuesto nos reservamos el derecho a modificar ó a borrar un post si lo consideramos fuera de tono.\n\nCreo que queda perfectamente clara mi respuesta y por eso cierro este post para evitar más discusiones al respecto.','',0,'AIA=','3fy4xayc',1,0,'',2,0,0),(37242,8065,3,620,0,'209.189.229.150',1188921847,1,0,1,1,1,0,'','escape key','I need a code example of how to detect use of the escape key to close a window/dialog.  I either need to be able to disable the escape key, or need to perform an action when escape is pressed (same action as exit key on my dialogs) which will release a logical lock.\n\nThanks in advance (again and again)\nG','',0,'AIA=','pon30pez',1,0,'',620,0,0),(37243,8059,6,147,0,'190.30.165.149',1188922720,1,0,1,0,1,1,'','','gracias','',0,'AIA=','2slz75vi',1,0,'',147,0,0),(37244,8036,6,140,0,'190.39.124.166',1188922803,1,0,1,1,1,0,'','','Antonio, es probable que la versión de FW que estoy utilizando sea la que me este dando problemas (FW2.4+xH0.993)...\nEl ejemplo que colocastes no funciona... igual revienta dando el mensaje\nError FiveWin/1 Non defined Id: No: 801\n\nPor lo pronto ya sustituí en el programa la declaración del diálogo desde recursos por su creación desde código y con una prueba con 1 combobox, 1 group, 3 says y 2 gets, todos con parámetros tomados desde una DBF, está funcionando como esperaba...\n\n1GB de Gracias\n\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela.','',0,'AIA=','bz2qx9m4',1,0,'',140,0,0),(37246,8058,6,53,0,'189.139.95.144',1188924534,1,0,1,1,1,1,'','','José:\n\nSin duda PellesC  con .RES es la mejor opción.\n\nOtra solución para convertir tu archivo .RC a .RES, abrelo con WS como normalmente lo haces, despues en el menú FILE, la opción SAVE FILE AS...  .RES y listo a usar PellesC con archivos .RES\n\nSaludos','',0,'AIA=','15uaao4p',1,0,'',53,0,0),(37247,8065,3,303,0,'72.199.41.171',1188927640,1,0,1,1,1,0,'','','To prevent the user from exiting by using the Esc key:\n\nACTIVATE DIALOG oDlg;\n         VALID !GETKEYSTATE( VK_ESCAPE )\n\n\nOr something like this:\n\nBy having a variable like :\nlocal lClose := .F.\n\nDEFINE DIALOG.....\nDEFINE BUTTON..........ACTION (Any_Action(), lClose := .T., oDlg:End())\n\nSome more code here.................\n\nACTIVATE DIALOG..... VALID lClose\n\nIf you do not do lClose := .T. you can never close the dialog the normal way. oDlg:End() when lClose == .F. does nothing.','',0,'AIA=','b33n1upt',1,0,'',303,0,0),(37248,8066,6,1105,0,'83.52.210.64',1188928189,1,0,1,1,1,0,'','problema con padl','Me gustaria alinear el campo codigo así\n\n          9\n         10\n\nUso PADL( CLIENTES-&gt;CODIGO, 20, \" \" )\n\ny no me funciona, me lo centra. Sin embargo, si especifico un carácter, p. ej., un 0, si me funciona. ¿Qué hago mal?. muchas gracias.\n\nSalu2','',0,'AIA=','3gl22e01',1,0,'',1105,0,0),(37249,8041,6,1105,0,'83.52.210.64',1188930740,1,0,1,1,1,0,'','ayuda!!!','Por favor, necesito que el usuario pueda cambiar la fuente durante la visualización del xbrowse!!.\n\nMuchísimas gracias!!!!!!!!!!!!!!!!!!','',0,'AIA=','1h1premi',1,0,'',1105,0,0),(37250,8066,6,362,0,'200.158.19.71',1188933228,1,0,1,1,1,1,'','','Se es una ListBox...\n\n    oLbx:aJustify      := { .F., .T., .T., .T., .T., .T., .F., .F. }','',0,'AIA=','2vqp0vyk',1,0,'',362,0,0),(37251,8058,6,940,0,'189.175.194.140',1188938111,1,0,1,1,1,1,'','','Pelles c  ,\n\ny .RES  \n\nPorque ?\n\nSe corrumpen menos o mas bien  no se corrumpen\n\nlos .rc   se descompone muy facilmente,,\n\n\n\nsaludos..','',0,'AIA=','1tf4m6c7',1,0,'',940,0,0),(37252,7965,3,620,0,'209.189.229.150',1188939336,1,0,1,1,1,0,'','','Rick,\nJust saw this reply post....\n\nSo are you successful with having multiple colors on a browse?  i.e. one line red, the next blue, the next green etc based on the data?\n\nG','',0,'AIA=','29qmw76t',1,0,'',620,0,0),(37253,8058,6,362,0,'200.158.19.71',1188939685,1,0,1,1,1,1,'','','Mira este ejemplo sencillo, usando WORKSHOP.EXE en 32 Bits.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=819\">http://www.fivewin.com.br/exibedicas.asp?id=819</a><!-- m -->','',0,'AIA=','c55a42t5',1,0,'',362,0,0),(37254,7965,3,303,0,'72.199.41.171',1188940420,1,0,1,1,1,0,'','','Greg,\n\nDo keep in mind that there are a lot of colorblind users. They may not be able to tell the difference in your colors. To check there is a colorblind simulator website. You take a screenshot and send it to their site and they display how it would look for each type of colorblindness.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.aspnetresources.com/tools/colorblindness.aspx\">http://www.aspnetresources.com/tools/co ... dness.aspx</a><!-- m -->\n\nIt helps if you can use icons in addition, or in place of, color.\n\nJames','',0,'AIA=','8cc6bb8x',1,0,'',303,0,0),(37255,8001,3,620,0,'209.189.229.150',1188941269,1,0,1,1,1,0,'','','James,\nI tested this method out (bLostFocus....) and I can make this work when the Browse itself has focus...I have four browses in the Dialog, and when the focus goes to the next browse, then the current record pointer in the previous browse highlights again (in gray meaning it is current but not active...as opposed to blue as current and active).  I think what I actually am looking for is how to eliminate the highlight when there is no focus on the browse itself.  Any ideas on that?\n\nThanks,\nG','',0,'AIA=','3beywdie',1,0,'',620,0,0),(37256,8001,3,303,0,'72.199.41.171',1188942507,1,0,1,1,1,0,'','','Greg,\n\n&gt;I tested this method out (bLostFocus....) and I can make this work when the Browse itself has focus...I have four browses in the Dialog, and when the focus goes to the next browse, then the current record pointer in the previous browse highlights again (in gray meaning it is current but not active...as opposed to blue as current and active). \n\nMy mistake on the colors, those are the normal colors for the selected line, not the out-of-focus colors. Turning gray is standard windows behavior and as I said, it is what users expect.\n\n&gt;I think what I actually am looking for is how to eliminate the highlight when there is no focus on the browse itself. Any ideas on that?\n\nIf you still want to do this, it looks like you are going to have to modify the TWBrowse source code. Look at the DrawSelect() method.\n\nJames','',0,'AIA=','2755slqr',1,0,'',303,0,0),(37257,8058,6,439,0,'200.125.45.236',1188944922,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:1va6w5ib]Mira este ejemplo sencillo, usando WORKSHOP.EXE en 32 Bits.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=819\">http://www.fivewin.com.br/exibedicas.asp?id=819</a><!-- m -->[/quote:1va6w5ib]\n\nApreciado amigo,\n\nConozco el poder de Resouce Workshop, es lo que uso, el ejemplo se parece a mi rutina de altas bajas y modificaciones...\n\n[url=http&#58;//img254&#46;imageshack&#46;us/my&#46;php?image=bamur9&#46;jpg:1va6w5ib][img:1va6w5ib]http&#58;//img254&#46;imageshack&#46;us/img254/1345/bamur9&#46;th&#46;jpg[/img:1va6w5ib][/url:1va6w5ib]\n\nMi pregunta es... [b:1va6w5ib]verdaderamente es \"más seguro\" trabajar con .RES como han mencionado? Se corrompen menos? Superaré los obstáculos que tengo ahora, que supero frecuentemente la capacidad del .RC?[/b:1va6w5ib]\n\n[b:1va6w5ib]Vale la pena cambiar? y .... [b]POR QUÉ?[/b:1va6w5ib]\n\nNo quiero entrar en la \"promoción de tal o cual producto\" (no sea que malinterpreten mi mensaje y lo bloqueen), simplemente... Es mejor tener un editor de recursos de 32 bits, que edite .res y no .rc, es más seguro? Vale la pena que abandone a mi querido Resource Workshop?\n\nGracias desde ya.','',0,'2A==','1va6w5ib',1,0,'',439,0,0),(37258,8067,6,73,0,'200.23.18.132',1188946040,1,0,1,1,1,0,'','datetime de access','como se obtiene una variable del tipo datetime de una tabla de access, usando ADO?\nsalu2\npaco','',0,'2A==','254p55sz',1,0,'',73,0,0),(37259,8068,3,86,0,'81.83.185.118',1188947407,1,0,1,1,1,1,'','FWH and xHarbour for Apple Mac','Hello,\n\nIf I remember well, there has been plans to develop a version of FWH and xHarbour for Apple Mac.\n\nIf so, when will these versions be available ?\n\nI regularly get question of customers if my application runs on an Apple Mac.\n\nThanks.','',0,'2A==','2eedal7q',1,0,'',86,0,0),(37260,8058,6,53,0,'189.139.95.144',1188948627,1,0,1,1,1,1,'','','José:\n\nMira este link\n\n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/2007/06/cambiando-el-compilador-de-recursos.html\">http://google.blogspot.com/2007/06/camb ... ursos.html</a><!-- m -->\n\nSeguramente se despejaran tus dudas\n\nSaludos','',0,'2A==','nmxutv15',1,0,'',53,0,0),(37261,7965,3,35,0,'65.188.6.143',1188948958,1,0,1,1,1,0,'','','Greg\n\nThe code snipit is from our Vehicle reservation ( system ) listbox. We have over 700 cars in our Agency and from an internal audit .. we had to make sure the program areas keep track of their scheduled maint and oil changes.\n\nSince most of the people who check out vehicles ( make reservations )  are just administrative staff .. I had to put some color in their face and the yellow line represents a vehicle that is within 500 miles of service and a red line is a vehicle that has gone past its scheduled PM.\n\nColor coding certain rows based on specific data has been a stunning success.\n\nJust keep it simple and not too colorful and like James mentions .. special attention to colors that may cause confusion with color blind people.\n\nRick Lipkin','',0,'2A==','11w3jarl',1,0,'',35,0,0),(37262,8067,6,138,0,'189.141.65.96',1188951905,1,0,1,1,1,1,'','','te la devuelve como cadena de caracteres, aunque xHarbour  ya posee el tipo de dato DateTime.\n\nTomado del manual de xHarbour:\n\n[code:1u8rko1d]PROCEDURE Main\n      LOCAL d1, d2, nDiff\n\n      SET CENTURY ON\n      SET TIME FORMAT TO &quot;hh&#58;mm&#58;ss&#46;ccc&quot;\n\n      ? DateTime&#40;&#41;                      // result&#58; &#91;today&#93; &#91;systemtime&#93;\n      ? &#123;ˆ 2007/04/26&#125;                  // result&#58; 04/26/2007\n      ? &#123;ˆ 05&#58;30&#58;12&#46;345&#125;                // result&#58; 12/30/1999 05&#58;30&#58;12&#46;345\n      ? &#123;ˆ 05&#58;30&#58;12&#46;345 PM&#125;             // result&#58; 12/30/1999 17&#58;30&#58;12&#46;345\n\n      ** Empty value\n      ? d1 &#58;= &#123;ˆ 0/0/0 &#125;                // result&#58;   /  /\n      ? Empty&#40; d &#41;                      // result&#58; &#46;T&#46;\n\n      ** difference between DateTime and Date\n      ? d1 &#58;= &#123;ˆ 2007/04/26 18&#58;30&#58;00 &#125;  // result&#58; 04/26/2007 18&#58;30&#58;00&#46;000\n      ? d2 &#58;= StoD&#40;&quot;20070426&quot;&#41;          // result&#58; 04/26/2007\n      ? nDiff &#58;= d1-d2, &quot;days&quot;          // result&#58; 0&#46;77 days\n      ? TString&#40; nDiff*86400 &#41;          // result&#58; 18&#58;30&#58;00\n\n      ** Adding 2 days to DateTime\n      ? d1 + 2                          // result&#58; 04/28/2007 18&#58;30&#58;00&#46;000\n\n      ** Adding 2 hours to DateTime\n      ? d1 + 2/24                       // result&#58; 04/26/2007 20&#58;30&#58;00&#46;000\n\n      ** Adding 2 minutes to DateTime\n      ? d1 + 2/&#40;24*60&#41;                  // result&#58; 04/26/2007 18&#58;32&#58;00&#46;000\n\n      ** Adding 2 seconds to DateTime\n      ? d1 + 2/&#40;24*3600&#41;                // result&#58; 04/26/2007 18&#58;30&#58;02&#46;000\n\n   RETURN\n\n[/code:1u8rko1d]','',0,'AIA=','1u8rko1d',1,0,'',138,0,0),(37263,8058,6,138,0,'189.141.65.96',1188952086,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:3jwp0d60]\n\nlos .rc   se descompone muy facilmente,,\n\nsaludos..[/quote:3jwp0d60]\n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nUn RC es vil archivo de texto.... ¡¡¡¡¡ Explicame como se puede descomponer o corromper un archivo de texto !!!!!!\n\nUn archivo RC hasta con el Block de notas le metes mano.','',0,'gA==','3jwp0d60',1,0,'',138,0,0),(37264,8058,6,439,0,'200.125.38.45',1188953199,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:36udkuvn][quote=&quot;sysctrl2&quot;:36udkuvn]\n\nlos .rc   se descompone muy facilmente,,\n\nsaludos..[/quote:36udkuvn]\n\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nUn RC es vil archivo de texto.... ¡¡¡¡¡ Explicame como se puede descomponer o corromper un archivo de texto !!!!!!\n\nUn archivo RC hasta con el Block de notas le metes mano.[/quote:36udkuvn]\n\nGracias Master, ahora me saca Ud. la duda.\n\nVoy a probar su sugerencia en el artículo que menciona SysCtrl2 a ver como me resulta, sobre el editor de recursos pues..... veremos que hago.','',0,'gA==','36udkuvn',1,0,'',439,0,0),(37265,8001,3,620,0,'65.245.57.110',1188953562,1,0,1,1,1,0,'','','James,\n\nI have never delved into modifying the source code for any of the classes.  In doing so, do I need to do any other steps before compiling my program?  Does the source code itself have to be compiled?  Ive never gotten that deep into how the compiling process actually works....\nG','',0,'gA==','17vp3chb',1,0,'',620,0,0),(37266,8001,3,620,0,'65.245.57.110',1188953627,1,0,1,1,1,0,'','','James,\n\nI have never delved into modifying the source code for any of the classes.  In doing so, do I need to do any other steps before compiling my program?  Does the source code itself have to be compiled?  Ive never gotten that deep into how the compiling process actually works....\nG','',0,'gA==','20saoj6h',1,0,'',620,0,0),(37267,7965,3,620,0,'65.245.57.110',1188954134,1,0,1,1,1,0,'','','Rick....\nNice!   Thanks for sharing that.  Exactly what I need!\nIn my particular application (commercial printer), we have a press schedule screen and I need to highlight those jobs requiring press checks, those that have firm due dates,  and those that have special priority....while all the info is available textually, nothing says it like \"in your face\" color.  I was able to implement a color change for background, and a text color change to handle two of the factors, and this has been quite successful (as far as making people aware of the information)...keeping a simple color structure is essential yes...so implementing your design will allow me to add that third criteria by changing the background color to a 2nd or 3rd color....thanks again.\nG','',0,'gA==','3le5almj',1,0,'',620,0,0),(37268,7965,3,620,0,'65.245.57.110',1188954314,1,0,1,1,1,0,'','','Rick....one other thing....I have a question floating in a separate post (Multiple Browses) that James is helping me with regarding blanking out the highlight on the selected record.  Since I am using color backgrounds on certain rows, when I have a row that is selected but not in the focused browse, it shows as gray, hiding the selected color....do you deal with that in any way?  (i.e. I would like to elminate the windows highlight of the selected row so it doesn\'t hide the custom color).\nG','',0,'gA==','2v4f9h9u',1,0,'',620,0,0),(37269,8001,3,303,0,'72.199.41.171',1188954946,1,0,1,1,1,0,'','','Greg,\n\n&gt;I have never delved into modifying the source code for any of the classes. In doing so, do I need to do any other steps before compiling my program? Does the source code itself have to be compiled? Ive never gotten that deep into how the compiling process actually works....  \n\nModifing source is another thing I don\'t recommend. But if you wish to, just copy it to your program\'s directory, modify it and compile it like any other PRG in your program. Link it the same too.\n\nThe downside is that you will have to modify the same PRG in the FW source each time you get a new version of FW. And you risk there being bugs due to other changes in that source or other FW source PRGs so you need to test it well too.\n\nJames','',0,'gA==','9eiz8i9x',1,0,'',303,0,0),(37270,7965,3,303,0,'72.199.41.171',1188955426,1,0,1,1,1,0,'','','Greg,\n\n&gt;I would like to elminate the windows highlight of the selected row so it doesn\'t hide the custom color). \n\nThis is a good time to use icons as they will not be hidden. You can use icons and color if you wish, but don\'t make it too \"busy.\"\n\nAs I said you can\'t eliminate the highlight when the browse is not in focus without changing the source. The color is hardcoded.\n\nJames','',0,'gA==','r5t12u2u',1,0,'',303,0,0),(37271,8058,6,940,0,'189.175.194.140',1188956137,1,0,1,1,1,1,'','','Quetal Rene,\n\n\nNo se si te ha pasado,  pero cuando agregas mas recursos al RC\n\nsobre todo en worshop,  estas trabajando perfectamente bien\n\npero de repende al enlazar el RC al sistema  el compilador\n\nde borlan indica que hay problemas en el archivo RC\n\nAl editar el RC por medio de un procesador de texto o NOTEPAD como tu\n\ndices,  resulta que al rc se le esfumaron algunas lineas,,\n\nPorque pasara esto ?   Ni idea  \n\n\nDesde que uso RES no me ha vuelto a pasar,, aun trabajando con worshop o pelles c  no he tenido mas problemas..\n\n\n\nsaludos..','',0,'gA==','2jaoy61t',1,0,'',940,0,0),(37272,8067,6,73,0,'189.157.175.77',1188964666,1,0,1,1,1,0,'','','Gracias rene, como siempre tan oportuno (savelife), pues siempre al obtener el dato de la .mdb unicamente me regresaba el dato fecha, veo lo que comentas.\ngracias\npaco','',0,'gA==','19pjqunj',1,0,'',73,0,0),(37273,8069,3,233,0,'218.208.251.40',1188966161,1,0,1,1,1,0,'','[ANN] Patches for Borland C++ 5.5 Free Compiler','Available at [url:3k0sjsl7]http&#58;//info&#46;borland&#46;com/devsupport/bcppbuilder/patches/#freecompiler55[/url:3k0sjsl7]','',0,'EA==','3k0sjsl7',1,0,'',233,0,0),(37274,8046,3,1064,0,'61.70.211.182',1188972686,1,0,1,1,1,0,'','','[quote:g7vkjk2b]try xHarbour 0.99.61  ==&gt;same problem\n\ndatabase browse field NO:\n================\nHST-1002-1\nHST-1002-2\nHST-1002-3\nHST-1002-4\nHST-1002  \n===============\n\ncITEM:=\"HST-1002\"+SPACE(2)\n\nDBSEEK(cITEM) //==&gt; Correct\nDBSEEK(TRIM(cITEM)) //==&gt; not Correct , seek \"HST-1002-1\"\n[/quote:g7vkjk2b]\n\nlooks like a bug  ?','',0,'gA==','g7vkjk2b',1,0,'',1064,0,0),(37275,8070,3,29,0,'88.149.161.195',1188978874,1,0,1,1,1,0,'','Change the columns order with xBrowse','Hi,\nI succesfully replaced the fwh tcbrowse with xbrowse that is more flexible.\n\nI only have the problem to change the order of colums,\nfor example with an array like:\n\n{\"Mark\",\"11-11-2007\",\"3:45\"}\n{\"Luc\",\"4-5-2004\",\"11:37\"}\n\nif I want to display the second,third and first element in twbrowse I can do it with\n\nADD COLUMN TO oBrw DATA ARRAY ELEM 2\nADD COLUMN TO oBrw DATA ARRAY ELEM 3\nADD COLUMN TO oBrw DATA ARRAY ELEM 1\n\nbut how can I do the same with xBrowse ?\n\nThanks in advance.\n\nBest Regards,\n\nMarco Turco','',0,'gA==','1p54h9bk',1,0,'',29,0,0),(37276,8068,3,2,0,'87.218.146.88',1188979103,1,0,1,1,1,1,'','','Michel,\n\nWe have a prerelease version of FiveMac that works quite well. But we have found very little interest on it. Just a few users are using it.','',0,'gA==','3uomg0r5',1,0,'',2,0,0),(37277,8070,3,995,0,'81.11.223.16',1188980163,1,0,1,1,1,0,'','','See \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7192&amp;highlight=xbrowse\">http://fivetechsoft.com/forums/viewtopi ... ht=xbrowse</a><!-- m -->\n\nThis error was reported with corection\n\nNo reaction\n\nFrank','',0,'gA==','1kd3g78z',1,0,'',995,0,0),(37278,8001,3,233,0,'218.208.251.40',1188982088,1,0,1,1,1,0,'','','[quote=&quot;Greg Gammon&quot;:398fdpwx]One last thing I need to figure out now though is how to keep the current record in each of the browses from being highlighted unless the focus is on that particular browse....how do I code that?[/quote:398fdpwx]\n \nI\'m not sure about TWBrowse class, for TCBrowse class though, you can experiment with the following:\n[code:398fdpwx]\n&#58;lNoLiteBar     If &#46;t&#46; No lite bar    \n&#58;lNoGrayBar   If &#46;t&#46; No gray bar    \n[/code:398fdpwx]','',0,'gIA=','398fdpwx',1,0,'',233,0,0),(37279,7192,3,2,0,'87.218.146.88',1188985170,1,0,1,1,1,1,'','','Frank,\n\nFixed. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','3b4632dq',1,0,'',2,0,0),(37280,8070,3,2,0,'87.218.146.88',1188985214,1,0,1,1,1,1,'','','Frank,\n\nAlready implemented. We simply missed it. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','g75vdz5a',1,0,'',2,0,0),(37281,8070,3,29,0,'88.149.161.195',1188986051,1,0,1,1,1,0,'','','Yes,\nbut what is the way to display the columns with the order\n\nELEM 2\nELEM 3\nELEM 1\n\ninstead the default\nELEM 1\nELEM 2\nELEM 3\n\n?','',0,'gIA=','1rjy8zle',1,0,'',29,0,0),(37282,8071,6,63,0,'88.0.173.32',1188986415,1,0,1,1,1,0,'','Problema en scroll con TxBrowse','Utilizo un TxBrowse para presentar una tabla de unos 4000 registros.  Cuando me desplazo hasta la última línea de la ventana y mantengo la tecla \"Flecha abajo\" pulsada, los datos hacen scroll hacia arriba, pero se pintan mal: El último dato es el que va apareciendo hasta llenar toda la ventana.  Claramente es un problema de pintado.\n\nComo tengo mi xBrowse.prg lleno de parches  (a veces no se veían los headers, otras veces repintaba mal...), y ya no sé cuáles son efectivos y cuales no, me gustaría saber si alguien podría enviarme un TxBrowse.prg que funcione bien, o sea, con todos los parches ya actualizados.  \n\nMi correo: <!-- e --><a href=\"mailto:rafaelclem@telefonica.net\">rafaelclem@telefonica.net</a><!-- e -->\n\nGracias\n\nRafael[/list]','',0,'','13l7xuet',1,0,'',63,0,0),(37283,8058,6,316,0,'213.97.245.163',1188987940,1,0,1,1,1,0,'','','Fernando,\n\n[quote=&quot;Fernando Mancera&quot;:jyohviy2]Carlos,\n\n&gt;&gt; Tiene muchas opciones que no todos tienen: Puedes modificar el\n&gt;&gt; canal alpha de los bitmaps, lo que se agradece porque ahsta ahora\n&gt;&gt; solo lo podía hacer con photoshop. Puede que sea una prestacion\n&gt;&gt; que aún no necesites, pero seguro que en un futuro cercano sí,\n&gt;&gt; sino preguntales a los de ViaCoral \n \nEs bastante más complicado de lo que te puede parecer a simple vista.[/quote:jyohviy2]\nPerdona, no digo que sea fácil manejar gráficas con alpha en ningún momento. Estoy diciendo que es importante controlar el canal alpha de los gráficos para lograr ciertas prestaciones. Y digo que si aún no usa gráficos con canal alpha en algun momento lo hará, y que mire vuestro trabajo y que hable con ustedes. Si te ha parecido mal, te pido disculpas, pero creo que tus productos utilizan graficas con canales alpha, o me equivoco? Para mí son un referente importante, porque atacan aspectos bastante innovadores, fundamentalmente desde la estética.\nY volviendo al punto, no he podido controlar recursos con canal alpha con ningún editor de recursos salvo con Resource Builder.\n\nUn saludo,\n\nCarlos.','',0,'gA==','jyohviy2',1,0,'',316,0,0),(37284,8066,6,1105,0,'83.52.210.64',1188988345,1,0,1,1,1,0,'','','Muchas gracias, es en un browse, me estaba volviendo loco!!','',0,'gA==','1xyl9cb0',1,0,'',1105,0,0),(37285,8066,6,316,0,'213.97.245.163',1188989950,1,0,1,1,1,0,'','Re: problema con padl','[quote=&quot;edu_parada&quot;:3i5txmyu]Me gustaria alinear el campo codigo así\n\n          9\n         10\n\nUso PADL( CLIENTES-&gt;CODIGO, 20, \" \" )\n\ny no me funciona, me lo centra. Sin embargo, si especifico un carácter, p. ej., un 0, si me funciona. ¿Qué hago mal?. muchas gracias.\n\nSalu2[/quote:3i5txmyu]\n\nEdu,\nPADL( LTrim(CLIENTES-&gt;CODIGO), 20, \" \" )\nasi le quitariamos los espacios del principio.\n\nSaludos, \n\nCarlos.','',0,'gA==','3i5txmyu',1,0,'',316,0,0),(37286,8072,6,140,0,'190.39.124.166',1188992392,1,0,1,1,1,0,'','Macros dentro de tGet():New()','Hola a Todos...\n\nEn esta oportunidad me encuentro con el problema de que una serie de gets que defino dentro de un do while, cuyas variables son las celdas de un arreglo, al activarse el diálogo los datos de todos los gets comparten la ultima variable debido a que es el ultimo valor obtenido en _cItem...\n\n[code:214fe3at]\n        nItem     &#58;=len&#40; oGet &#41;\n        _cItem    &#58;=strtrim&#40; nItem, 2 &#41;\n        nRow      &#58;=eval&#40; bRow &#41;-2\n        cPicture  &#58;=iif&#40;  &#46;not&#46; empty&#40; ConfResult-&gt;Mascara &#41;,;\n                          alltrim&#40; ConfResult-&gt;Mascara &#41;,;\n                          NIL &#41;\n        lRight    &#58;=&#40; ValType&#40; aGet&#91; &amp;_cItem &#93; &#41;=\'N\' &#41;\n        oGet&#91; &amp;_cItem &#93;   &#58;=TGet&#40;&#41;&#58;New&#40; nRow, ConfResult-&gt;Col, aGet&#91; &amp;_cItem &#93;, oResult&#58;oDlg,;\n                                        ConfResult-&gt;Width, 10, cPicture,,,,,,, lPixels,,,,, lRight &#41;\n[/code:214fe3at]\nEsto funciona: oGet[ &amp;_cItem ]   :=TGet():New(...)\nPero [b:214fe3at]aGet[ &amp;_cItem ][/b:214fe3at] dentro de TGet():New(...) es rechazado por xHarbour... Error E0047  Code block contains both macro and declared symbol references\n\nPara evitar el error del xHarbour hice esto:\n[code:214fe3at]\n        bSetGet   &#58;=bSETGET&#40; aGet&#91; &amp;_cItem &#93; &#41;\n        oGet&#91; &amp;_cItem &#93;   &#58;=TGet&#40;&#41;&#58;New&#40; nRow, ConfResult-&gt;Col, bSetGet, oResult&#58;oDlg,;\n                                        ConfResult-&gt;Width, 10, cPicture,,,,,,, lPixels,,,,, lRight &#41;\n[/code:214fe3at]\nPero es asi cuando todos los gets quedan compartiendo la ultima variable del arreglo.\n\nRecuerdo haber leído hace bastante tiempo una forma de hacer eso...\n\n\n1GB de Gracias de antemano por los comentarios...\n\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela.','',0,'QIA=','214fe3at',1,0,'',140,0,0),(37287,8040,3,473,0,'81.82.10.56',1188993289,1,0,1,1,1,0,'','','The BlobExport() function gives an unresolved external.\nIs this function added in the commercial SQL driver from xHarbour.\n\nI also tried to download the Locadora example from the Brazilian Site. To make this test complete I need also the structure of the database.\n\nIs\'nt this only a working executable. Is\'nt there also a code example.\n\nThanks \n\nWilly','',0,'QIA=','11me4xvm',1,0,'',473,0,0),(37288,8043,3,1105,0,'83.52.210.64',1188993472,1,0,1,1,1,0,'','','Please, any advice!!!!!!!!!!. Thank you.','',0,'QIA=','3mrniwg0',1,0,'',1105,0,0),(37289,8072,6,78,0,'190.43.176.16',1188993581,1,0,1,1,1,0,'','','Caballero,,, a los años,,, revisa este hilo\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=464&amp;highlight=detached\">http://fivetechsoft.com/forums/viewtopi ... t=detached</a><!-- m -->\n\nSalu2','',0,'QIA=','1x58lzns',1,0,'',78,0,0),(37290,8073,20,154,0,'151.21.53.226',1189000722,1,0,1,1,1,1,'','FWPPC Allineamento a destra in una Redefine Get','FWPPC\nAllineamento a destra in una Redefine Get non funziona\n\nModificando l\'esempio Client inserendo il \"Right\" nelle possibilità del campo get non funziona poi a runtime.\n\nQualcuno può confermare?\n\nGrazie.','',0,'QIA=','2bzx745v',1,0,'',154,0,0),(37291,8057,6,131,0,'83.38.68.212',1189000758,1,0,1,1,1,0,'','','Hola Mario:\nmira <!-- m --><a class=\"postlink\" href=\"http://www.orangeicons.com/home/\">http://www.orangeicons.com/home/</a><!-- m --> hay una cantidad enorme de iconos gratis.\nSaludos,','',0,'QIA=','grw0sftg',1,0,'',131,0,0),(37293,8001,3,620,0,'209.189.229.150',1189001453,1,0,1,1,1,0,'','','Sounds like exactly what I need.   So how do I implement using TcBrowse?  I see it inherits from TWBrowse....but when I try to use the lNoGrayBar, i get a \"TWBrowse\" error...unless I am not doing it correctly?\n\noLbx:lnograybar := .t.  ??','',0,'QIA=','1nu4lmuv',1,0,'',620,0,0),(37294,8075,6,1014,0,'201.240.221.209',1189001746,1,0,1,1,1,1,'','aControls en Folder','Hola amigos\nAsi como se puede indagar los nombres de clase de los objetos de un Dlg con:\nIf oDlg:aControls[x]:ClassName()=\"TGET\"\n\nCómo se puede saber los nombres de clase de los objetos dentro de un Folder. Algo asi como:\nIf oFld:aDialogs[y]:aControls[x]:ClassName()=\"TGET\"\n\nclaro,esta última instrucción no funciona. Quiero deshabilitar todos los GETs de un folder\n\nSaludos y muchas gracias\nJorge Vargas','',0,'','2za6fm78',1,0,'',1014,0,0),(37296,8040,3,264,0,'200.91.3.10',1189004876,1,0,1,1,1,1,'','','Load the image to memvar ...\n\n[code:2sgdyi5t]\n             cImagen &#58;= &quot;&quot;\n             nBytes  &#58;= 0\n\n             nHandle &#58;= FOpen&#40; AllTrim&#40; &#40;PasoLink&#41;-&gt;DocuExte &#41; &#41;\n             While &#46;T&#46;\n                nBytes &#58;= FRead&#40; nHandle, @cBuffer, nBufSize &#41;\n                If nBytes &gt; 0\n                   cImagen += SubStr&#40; cBuffer, 1, nBytes &#41;\n                Else\n                   EXIT\n                EndIf\n             EndDo\n             FClose&#40; nHandle &#41;\n\n             If !Empty&#40; cImagen &#41;\n                cBase64 &#58;= cMimeEnc&#40; cImagen &#41;  // transforma en texto\n                UPDATE EMAELINK SET TEXTO=cBase64\n                BREAK\n             EndIf\n[/code:2sgdyi5t]\n\nThe read data\n\n[code:2sgdyi5t]\n\n   cDocuExte &#58;= AllTrim&#40; Vcc&#40;TMaes,&quot;DOCUEXTE&quot;&#41; &#41;\n   cBase64   &#58;= cMimeDec&#40; Vcc&#40;TMaes,&quot;TEXTO&quot;&#41; &#41;  // se des-transforma desde texto !!\n\n   If &#40; nPos  &#58;= RAT&#40; &quot;\\&quot;, cDocuExte&#41; &#41;&lt;&gt;0\n      cFile &#58;= StrTran&#40; cDocuExte, SubStr&#40; cDocuExte, 1, nPos &#41;, &quot;&quot; &#41;\n   Else\n      cFile &#58;= cDocuExte\n   EndIf\n\n   If &quot;PDF&quot; $ UPPER&#40;cFile&#41;\n      lEsPDF &#58;= &#46;T&#46;\n   Else\n      lEsPDF &#58;= &#46;F&#46;\n   EndIf\n\n   cFile &#58;= DEFATMP + &quot;\\&quot; + cFile\n\n   nHandle &#58;= FCreate&#40; cFile &#41;\n   FWrite&#40; nHandle, cBase64 &#41;\n   FClose&#40; nHandle &#41;\n\n   If lEsPDF  // no se por que solo se llama con 2 llamadas\n      Shellexecute&#40; oPadre&#58;hwnd, &quot;open&quot;, cFile &#41;\n      Shellexecute&#40; oPadre&#58;hwnd, &quot;open&quot;, cFile &#41;\n   Else\n      Shellexecute&#40; oPadre&#58;hwnd, &quot;open&quot;, cFile &#41;\n   EndIf\n[/code:2sgdyi5t]\n\n\n-------------- SPANISH ON -------------------\n\nLo que hice fue, leer el archivo en forma binaria, transformarlo a Base64 ( texto ), guardarlo, y para recuperarlo lo leo de la base de datos, y lo vuelvo a su forma original, lo pongo en un archivo y lo guardo ( fwrite ), luego lo visualizo. Eso....\nSaludos','',0,'AIA=','2sgdyi5t',1,0,'',264,0,0),(37297,8043,3,2,0,'87.218.146.5',1189007327,1,0,1,1,1,1,'','','Edu,\n\nWe are going to build a sample for you','',0,'AIA=','1653ulr8',1,0,'',2,0,0),(37298,8046,3,138,0,'189.141.65.96',1189007396,1,0,1,1,1,1,'','','Curious thing:\n\nIf you add a \"-\" at the end it sorts acording to what you need, if you leave a space instead of the \"-\" it sends to the end of the indexed item.\n\nLet me check with xHarbour.com','',0,'AIA=','3lior4rm',1,0,'',138,0,0),(37299,8057,6,138,0,'189.141.65.96',1189007649,1,0,1,1,1,1,'','','Mario:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.iconexperience.com\">www.iconexperience.com</a><!-- w -->\n\nmas de 1000 iconos por un precio muy muy muy accesible.','',0,'AIA=','sj8xppt4',1,0,'',138,0,0),(37300,8058,6,362,0,'200.158.19.253',1189007879,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:2m10vzsw][quote=&quot;karinha&quot;:2m10vzsw]Mira este ejemplo sencillo, usando WORKSHOP.EXE en 32 Bits.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=819\">http://www.fivewin.com.br/exibedicas.asp?id=819</a><!-- m -->[/quote:2m10vzsw]\n\nApreciado amigo,\n\nConozco el poder de Resouce Workshop, es lo que uso, el ejemplo se parece a mi rutina de altas bajas y modificaciones...\n\n[url=http&#58;//img254&#46;imageshack&#46;us/my&#46;php?image=bamur9&#46;jpg:2m10vzsw][img:2m10vzsw]http&#58;//img254&#46;imageshack&#46;us/img254/1345/bamur9&#46;th&#46;jpg[/img:2m10vzsw][/url:2m10vzsw]\n\nMi pregunta es... [b:2m10vzsw]verdaderamente es \"más seguro\" trabajar con .RES como han mencionado? Se corrompen menos? Superaré los obstáculos que tengo ahora, que supero frecuentemente la capacidad del .RC?[/b:2m10vzsw]\n\n[b:2m10vzsw]Vale la pena cambiar? y .... [b]POR QUÉ?[/b:2m10vzsw]\n\nNo quiero entrar en la \"promoción de tal o cual producto\" (no sea que malinterpreten mi mensaje y lo bloqueen), simplemente... Es mejor tener un editor de recursos de 32 bits, que edite .res y no .rc, es más seguro? Vale la pena que abandone a mi querido Resource Workshop?\n\nGracias desde ya.[/quote:2m10vzsw]\n\nNO, NO VALE A PENA CAMBIAR DE  EDITOR DE RECURSOS.\n\nTODO O QUE USTED HACES EN PELLESC.EXE POR EJEMPLO, PUEDES HACER EN WORKSHOP.EXE the best.\n\nDEBES USAR EN TUS DIALOGOS EL COMANDO: 0X4L PARA OBTENER EL MISMO RESULTADO DE APARENCIA QUE SE TIENE COM EL EDITOR PELLESC.EXE\n\nEJEMPLO:\n\nDLG_BUSCA_PEDIDO_COMISSAO_ESPECIAL DIALOG 3, 68, 530, 122\nSTYLE DS_ABSALIGN | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME\nCAPTION \"SGE - SISTEMA DE GERENCIAMENTO EMPRESARIAL - BUSCA PEDIDO PARA COMISSÃO ESPECIAL\"\nFONT 8, \"MS Sans Serif\"\nLANGUAGE LANG_PORTUGUESE, SUBLANG_PORTUGUESE_BRAZILIAN\n{\n EDITTEXT 20, 277, 55, 100, 12, ES_CENTER | ES_MULTILINE | WS_BORDER | WS_TABSTOP\n PUSHBUTTON \" \", 301, 178, 101, 80, 16\n PUSHBUTTON \" \", 302, 262, 101, 80, 16\n EDITTEXT 21, 150, 6, 220, 12, ES_CENTER | ES_MULTILINE | NOT WS_TABSTOP | NOT WS_BORDER\n GROUPBOX \"Sistema de Gerenciamento Empresarial - Busca Pedido Para Comissão Especial\", 501, 6, 25, 510, 72, BS_GROUPBOX\n CTEXT \"Informe o Número do Pedido:\", 401, 143, 55, 130, 12, SS_CENTER | WS_BORDER | WS_GROUP\n}','',0,'2A==','2m10vzsw',1,0,'',362,0,0),(37301,8076,6,1104,0,'190.55.55.212',1189007975,1,0,1,1,1,0,'','Editor de texto','Hola a todos quisiera saber si alguien conoce un buen editor de texto que se adapte bien a FiveWin.\nDonde puedo descargarlos o comprarlos?\nDesde ya muchas gracias.','',0,'2A==','1jqtoc56',1,0,'',1104,0,0),(37302,8077,7,1104,0,'190.55.55.212',1189008369,1,0,1,1,1,0,'','Problemas con impresión','Hola a todos:\n\nAlguien sabe como mandar a imprimir un reporte desde la Pocket?\nSe puede usar la clase REPORT y PRINT\n\nSaludos, Esteban.','',0,'2A==','2bv0ioew',1,0,'',1104,0,0),(37303,8064,3,34,0,'68.5.217.82',1189008546,1,0,1,1,1,1,'','Emails','YOu can do a search for a recent thread on this subject.  There are options and its probably fair to say that there is inconsistancy.  \n\nYour OS will make a difference.  If you are using Vista, you may encounter issues with some formats while others seem to work fine.\n\nYes, it can be done, but you will have to try some of the methods proposed on this forum.  Do a search on EMAIL and you will find the other threads with great detail.','',0,'2A==','sizqcch7',1,0,'',34,0,0),(37304,8001,3,303,0,'72.199.41.171',1189008727,1,0,1,1,1,0,'','','Greg,\n\nHere is an example browse that uses both icons and color. Note that you can see the pink flag icon even when the record is highlighted. The flag icon column can also be sorted by clicking on the header. This is useful for sorting all priority items to the top.\n\nThe gray records show inactive clients and the red records show clients with past due amounts.\n\n[url=http&#58;//img2&#46;freeimagehosting&#46;net/image&#46;php?0a0feaeccf&#46;jpg:214uf7at][img:214uf7at]http&#58;//img2&#46;freeimagehosting&#46;net/uploads/th&#46;0a0feaeccf&#46;jpg[/img:214uf7at][/url:214uf7at]\n\nThis was done with TSBrowse, a third-party browse. You can get a copy on my website. However, you can do something similar with TWBrowse.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nJames','',0,'GA==','214uf7at',1,0,'',303,0,0),(37305,8076,6,701,0,'83.54.12.172',1189009893,1,0,1,1,1,0,'','Re: Editor de texto','Con algunas limitaciones, pero tan sencillo como usar el edit de ms-dos y gratis tienes el Xedit\n\nUn  saludo,\nFenix\n\n[quote=&quot;jrestojeda&quot;:19x3xnbx]Hola a todos quisiera saber si alguien conoce un buen editor de texto que se adapte bien a FiveWin.\nDonde puedo descargarlos o comprarlos?\nDesde ya muchas gracias.[/quote:19x3xnbx]','',0,'gA==','19x3xnbx',1,0,'',701,0,0),(37306,8046,3,303,0,'72.199.41.171',1189009915,1,0,1,1,1,0,'','','&gt;DBSEEK(TRIM(cITEM)) //==&gt; not Correct , seek \"HST-1002-1\" \n\nThis is not a bug, it is correctly finding the first match to \"HST-1002\" which is \'HST-1002-1\"\n\nIf you want to seek for an exact match, you always have pad the search item to the length of the field being seeked.\n\nJames','',0,'gA==','2xslg4ih',1,0,'',303,0,0),(37307,8078,1,819,0,'67.187.239.16',1189010494,1,0,1,1,1,0,'','Getting error using the ODBC0.PRG sample','Hi all,\n\nI am getting an error after typing the password at the dialog box for ODBC.  It generates a GPF when ignored.\n\nEnvironment: Clipper52, fw24\n\nThanks,\n\nJose','',0,'gA==','jruxo5vk',1,0,'',819,0,0),(37308,8073,20,6,0,'82.61.144.231',1189011411,1,0,1,1,1,1,'','Re: FWPPC Allineamento a destra in una Redefine Get','Ho già segnalato il problema ripetutamente senza purtroppo avere risposta:\n\n[url:hqhxp7v6]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5923[/url:hqhxp7v6]\n\nMagari prova ad aggiungere anche un tuo messaggio al thread.\n\nEMG','',0,'EA==','hqhxp7v6',1,0,'',6,0,0),(37309,8064,3,1068,0,'200.153.245.50',1189012695,1,0,1,1,1,1,'','','hi Willy,\n\nif I understand what you looking for, try this example:\n\n[code:165gtcjp]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41;\n\nlocal aList&#58;=&#123;\'mai1_1@yahoo&#46;com\',;\n              \'mail_2@hotmail&#46;com\',;\n				  \'mail_2@aol&#46;com\' &#125;\n\nlocal aFile&#58;=&#123;\'c&#58;\\doc_1&#46;doc\',;\n              \'c&#58;\\doc_2&#46;xls\',;                              \n              \'c&#58;\\doc_3&#46;ppt\'&#125;\n\nlocal oMail, cMail&#58;=\'\', cFile&#58;=\'\'\n\nfor i = 1 to len&#40;aList&#41;\n   \n	cMail = aList&#91; i &#93;   \n	\n	cFile = aFile&#91; i &#93;\n	\n	if &#46;not&#46;file&#40;cFile&#41;  // if file don\'t exist, don\'t attach\n	   cFile=\'\'            \n	endif\n	\n	oMail = TMail&#40;&#41;&#58;New&#40;\'My Subject\'  ,;   // subject\n                       \'My Body Text\',;   // body text           \n                       nil           ,;   // msg type\n                       nil           ,;   // conversation ID\n                       Date&#40;&#41;        ,;   // Date                   \n                       Time&#40;&#41;        ,;   // Time\n                       &#46;T&#46;           ,;   // Receipt\n                       &#46;T&#46;           ,;   // From User\n                       &#123;&#125;            ,;   // Origins                \n                       &#123;cMail&#125;       ,;   // Destinatary\n                       &#123;cFile&#125;        &#41;   // Files Attach\n	\n	oMail&#58;Activate&#40;&#41;   \n	\n	oMail&#58;End&#40;&#41;\n\nnext\n\nreturn\n\n\n// set From User = &#46;F&#46; for automatic send, without further action of the user\n[/code:165gtcjp]\n\nregards','',0,'AIA=','165gtcjp',1,0,'',1068,0,0),(37311,8059,6,316,0,'87.218.187.37',1189018479,1,0,1,1,1,0,'','','Hola amigos,\nen lo personal le he encontrado varios usos a TPanel, en general como un control contenedor de otros. Modificado para que se pinte con más colorido y ese tipo cosmético de detalles es muy útil.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','fvfty3pj',1,0,'',316,0,0),(37312,8058,6,316,0,'87.218.187.37',1189019856,1,0,1,1,1,0,'','','Te hago una observación que puede resultar significativa. Puedes consultar el foro donde hay varios hilos referidos a como en 32 bits el aspecto de los dialogos cambia cuando se usan rcs de 16 bits. En el trabajo pasamos unas aplicaciones de clipper a harbour y los recursos de 16 bits quedaban todos deformados. Si no usas gráficos es probable que no lo notes, pero en nuestro caso, que el fondo de los diálogos es un bitmap, queda todo totalmente desproporcionado. De hecho mira la definicion del comando DIALOG para que veas que hay una forma de indicar si la clase tiene que hacer correcciones por ser un recurso de 16 en 32 bits. Y si estas con workshop, estas en 16 bits, sin vueltas.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','1ctt8ewt',1,0,'',316,0,0),(37313,8079,6,228,0,'201.244.214.71',1189020111,1,0,1,1,1,1,'','Manejo de Variables en Entorno MDI','Amigos y colegas del foro tengan buen dia, en este momento me encuentro tratando de pasar mi sistema de entorno SDI  a entorno MDI, pero me han dado problemas el manejo de las variables..  aqui pongo el codigo de la creación de un dialogo en entorno SDI el cual me funciona perfectamente.\n\n\n[code:2r50zqru]\n********************\n*Catalogo de Medidas\n********************\nPROC pMedida&#40;&#41;\n\nvgraba&#58;=&#46;f&#46;\noCuadro&#58;=&quot;oMedida&quot;\noM1vc1&#58;=&quot;Código&quot;\noM1lc1&#58;=&#123;&quot;Código&quot;,&quot;Nombre&quot;&#125;\nvOrden&#58;=&quot;m_Medida&quot;\noC1vg1&#58;=space&#40;100&#41;\n\noTbMed &#58;= oLamcla&#58;oServer&#58;Query&#40;&quot;SELECT * from &quot;+oLamcla&#58;tMedi+&quot; ORDER BY &quot;+alltrim&#40;vOrden&#41;, &#46;f&#46; &#41;\n\nDEFINE DIALOG oCuadro RESOURCE &quot;orCiudad&quot; OF oWinp ICON &quot;#8001&quot;\n\n REDEFINE BTNBMP Btn_Agre ID 4007 OF oCuadro RESOURCE &quot;Bagre&quot;  TOOLTIP oLamcla&#58;mTagr NOBORDER ACTION &#40;vgraba&#58;=&#46;t&#46;,oLamcla&#58;autoriza&#40;29&#41;&#41;\n REDEFINE BTNBMP Btn_Modi ID 4001 OF oCuadro RESOURCE &quot;Bmodi&quot;  TOOLTIP oLamcla&#58;mTmod NOBORDER ACTION &#40;vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#41;\n REDEFINE BTNBMP Btn_Borr ID 4002 OF oCuadro RESOURCE &quot;Bborr&quot;  TOOLTIP oLamcla&#58;mTbor NOBORDER ACTION oLamcla&#58;autoriza&#40;31&#41;\n REDEFINE BTNBMP Btn_Imor ID 4004 OF oCuadro RESOURCE &quot;Bimpr&quot;  TOOLTIP oLamcla&#58;mTimp NOBORDER ACTION oLamcla&#58;autoriza&#40;32&#41;\n REDEFINE BTNBMP Btn_Sali ID 4006 OF oCuadro RESOURCE &quot;Bsalid&quot; TOOLTIP oLamcla&#58;mTsal NOBORDER ACTION oCuadro&#58;end&#40;&#41;\n REDEFINE BTNBMP Btn_Limp ID 4010 OF oCuadro RESOURCE &quot;BLimpi&quot; TOOLTIP oLamcla&#58;mTfil NOBORDER ACTION &#40;oC1vg1&#58;=space&#40;100&#41;,pArMedi&#40;&#41;&#41;\n\n REDEFINE COMBOBOX oM1oc1 VAR oM1vc1 PROMPTS oM1lc1 ID 4003 OF oCuadro UPDATE ;\n        ON CHANGE&#40;IF&#40;oM1vc1=&quot;Código&quot;,vOrden&#58;=&quot;m_Medida&quot;,vOrden&#58;=&quot;m_Nombre&quot;&#41;,&#40;pArMedi&#40;&#41;&#41;&#41;\n\n REDEFINE GET oC1og1 VAR oC1vg1 ID 4009 OF oCuadro UPDATE VALID&#40;pBusMed&#40;&#41;,&#46;T&#46;&#41;\n\n TXBrowse&#40;&#41;&#58;lHeaders &#58;= &#46;T&#46;\n oTbMed&#58;GoTop&#40;&#41;\n\n oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oCuadro &#41;\n WITH OBJECT oBrw\n   &#58;CreateHeader&#40;&#41;\n   MySetbrowse&#40; oBrw,oTbMed &#41;\n   &#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n   &#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n   &#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n   oBrw&#58;blDblClick          &#58;= &#123;|| vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#125;\n   oBrw&#58;bKeyDown            &#58;= &#123;|nKey|iif&#40;nKey == 13,&#40;vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#41;,&#40;&quot; &quot;&#41;&#41;&#125;\n   &#58;nHeaderLines        &#58;= 1\n   &#58;lColDividerComplete &#58;= &#46;t&#46;\n   &#58;lRecordSelector     &#58;= &#46;t&#46;\n   &#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n   &#58;bClrStd &#58;= &#123;|| IF&#40; &#40;oTbMed&#58;Recno&#40;&#41;%2&#41;==0,&#123;CLR_BLACK,oLamcla&#58;cClr2&#125;,&#123;CLR_BLACK,oLamcla&#58;cClr1&#125; &#41; &#125;\n\n   WITH OBJECT &#58;AddCol&#40;&#41;\n     &#58;cHeader       &#58;= &quot;Código&quot;\n     &#58;bStrData      &#58;= GenCB&#40;oTbMed,1&#41;\n     &#58;nHeadStrAlign &#58;= AL_LEFT\n     &#58;nDataStrAlign &#58;= AL_LEFT\n     &#58;nWidth        &#58;= 80\n   END\n\n   WITH OBJECT &#58;AddCol&#40;&#41;\n     &#58;cHeader       &#58;= &quot;Nombre&quot;\n     &#58;bStrData      &#58;= GenCB&#40;oTbMed,2&#41;\n     &#58;nHeadStrAlign &#58;= AL_LEFT\n     &#58;nDataStrAlign &#58;= AL_LEFT\n     &#58;nWidth        &#58;= 225\n   END\n\n   WITH OBJECT &#58;AddCol&#40;&#41;\n     &#58;cHeader       &#58;= &quot;Sigla&quot;\n     &#58;bStrData      &#58;= GenCB&#40;oTbMed,3&#41;\n     &#58;nHeadStrAlign &#58;= AL_LEFT\n     &#58;nDataStrAlign &#58;= AL_LEFT\n     &#58;nWidth        &#58;= 65\n   END\n\n   &#58;CreateFromResource&#40; 102 &#41;\n  END\n oCuadro&#58;cTitle &#58;= &quot;Tabla de Medidas&quot;\n\nACTIVATE DIALOG oCuadro CENTERED\noTbMed&#58;End&#40;&#41;\n[/code:2r50zqru]\n\nEn entorno MDI\n\n[code:2r50zqru]\n********************\n*Catalogo de Medidas\n********************\nPROC pMedida&#40;&#41;\n\nvgraba&#58;=&#46;f&#46;\noM1vc1&#58;=&quot;Código&quot;\noM1lc1&#58;=&#123;&quot;Código&quot;,&quot;Nombre&quot;&#125;\nvOrden&#58;=&quot;m_Medida&quot;\noC1vg1&#58;=space&#40;100&#41;\n\noLamcla&#58;oTbMed &#58;= oLamcla&#58;oServer&#58;Query&#40;&quot;SELECT * from &quot;+oLamcla&#58;tMedi+&quot; ORDER BY &quot;+alltrim&#40;vOrden&#41;, &#46;f&#46; &#41;\n\nDEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 3,3 TO 6,6 COLOR &quot;N/W&quot; nomaximize border none ICON &quot;#8009&quot;\n  //oWndChild&#58;bGotFocus  = &#123; || oCuadro&#58;SetFocus&#40;&#41; &#125;\n\n  DEFINE DIALOG oCuadro RESOURCE &quot;orCiudad&quot; OF oWndChild\n\n   REDEFINE BTNBMP Btn_Agre ID 4007 OF oCuadro RESOURCE &quot;Bagre&quot;  TOOLTIP oLamcla&#58;mTagr NOBORDER ACTION &#40;vgraba&#58;=&#46;t&#46;,oLamcla&#58;autoriza&#40;29&#41;&#41;\n   REDEFINE BTNBMP Btn_Modi ID 4001 OF oCuadro RESOURCE &quot;Bmodi&quot;  TOOLTIP oLamcla&#58;mTmod NOBORDER ACTION &#40;vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#41;\n   REDEFINE BTNBMP Btn_Borr ID 4002 OF oCuadro RESOURCE &quot;Bborr&quot;  TOOLTIP oLamcla&#58;mTbor NOBORDER ACTION oLamcla&#58;autoriza&#40;31&#41;\n   REDEFINE BTNBMP Btn_Imor ID 4004 OF oCuadro RESOURCE &quot;Bimpr&quot;  TOOLTIP oLamcla&#58;mTimp NOBORDER ACTION oLamcla&#58;autoriza&#40;32&#41;\n   REDEFINE BTNBMP Btn_Sali ID 4006 OF oCuadro RESOURCE &quot;Bsalid&quot; TOOLTIP oLamcla&#58;mTsal NOBORDER ACTION oCuadro&#58;end&#40;&#41;\n   REDEFINE BTNBMP Btn_Limp ID 4010 OF oCuadro RESOURCE &quot;BLimpi&quot; TOOLTIP oLamcla&#58;mTfil NOBORDER ACTION &#40;oC1vg1&#58;=space&#40;100&#41;,pArMedi&#40;&#41;&#41;\n\n   REDEFINE COMBOBOX oM1oc1 VAR oM1vc1 PROMPTS oM1lc1 ID 4003 OF oCuadro UPDATE ;\n          ON CHANGE&#40;IF&#40;oM1vc1=&quot;Código&quot;,vOrden&#58;=&quot;m_Medida&quot;,vOrden&#58;=&quot;m_Nombre&quot;&#41;,&#40;pArMedi&#40;&#41;&#41;&#41;\n\n   REDEFINE GET oC1og1 VAR oC1vg1 ID 4009 OF oCuadro UPDATE VALID&#40;pBusMed&#40;&#41;,&#46;T&#46;&#41;\n\n   TXBrowse&#40;&#41;&#58;lHeaders &#58;= &#46;T&#46;\n   oLamcla&#58;oTbMed&#58;GoTop&#40;&#41;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oCuadro &#41;\n   WITH OBJECT oBrw\n     &#58;CreateHeader&#40;&#41;\n     MySetbrowse&#40; oBrw,oLamcla&#58;oTbMed &#41;\n     &#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n     &#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n     &#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n     oBrw&#58;blDblClick          &#58;= &#123;|| vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#125;\n     oBrw&#58;bKeyDown            &#58;= &#123;|nKey|iif&#40;nKey == 13,&#40;vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#41;,&#40;&quot; &quot;&#41;&#41;&#125;\n     &#58;nHeaderLines        &#58;= 1\n     &#58;lColDividerComplete &#58;= &#46;t&#46;\n     &#58;lRecordSelector     &#58;= &#46;t&#46;\n     &#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n     &#58;bClrStd &#58;= &#123;|| IF&#40; &#40;oLamcla&#58;oTbMed&#58;Recno&#40;&#41;%2&#41;==0,&#123;CLR_BLACK,oLamcla&#58;cClr2&#125;,&#123;CLR_BLACK,oLamcla&#58;cClr1&#125; &#41; &#125;\n\n     WITH OBJECT &#58;AddCol&#40;&#41;\n       &#58;cHeader       &#58;= &quot;Código&quot;\n       &#58;bStrData      &#58;= GenCB&#40;oLamcla&#58;oTbMed,1&#41;\n       &#58;nHeadStrAlign &#58;= AL_LEFT\n       &#58;nDataStrAlign &#58;= AL_LEFT\n       &#58;nWidth        &#58;= 80\n     END\n\n     WITH OBJECT &#58;AddCol&#40;&#41;\n       &#58;cHeader       &#58;= &quot;Nombre&quot;\n       &#58;bStrData      &#58;= GenCB&#40;oLamcla&#58;oTbMed,2&#41;\n       &#58;nHeadStrAlign &#58;= AL_LEFT\n       &#58;nDataStrAlign &#58;= AL_LEFT\n       &#58;nWidth        &#58;= 225\n     END\n\n     WITH OBJECT &#58;AddCol&#40;&#41;\n       &#58;cHeader       &#58;= &quot;Sigla&quot;\n       &#58;bStrData      &#58;= GenCB&#40;oLamcla&#58;oTbMed,3&#41;\n       &#58;nHeadStrAlign &#58;= AL_LEFT\n       &#58;nDataStrAlign &#58;= AL_LEFT\n       &#58;nWidth        &#58;= 65\n     END\n\n     &#58;CreateFromResource&#40; 102 &#41;\n    END\n\n  ACTIVATE DIALOG oCuadro NOWAIT CENTERED ON INIT oCuadro&#58;Move&#40; 0, 0 &#41; VALID &#40;oWndChild&#58;End&#40;&#41;, &#46;t&#46; &#41;\n\n  oWndChild&#58;nWidth &#58;= oCuadro&#58;nWidth+7\n  oWndChild&#58;nHeight &#58;= oCuadro&#58;nHeight+32\n\n  oWndChild&#58;cTitle&#58;=&quot;Tabla de Medidas&quot;\n\nACTIVATE WINDOW oWndChild ON INIT oWnd&#58;paint&#40;&#41;\noLamcla&#58;oTbMed&#58;End&#40;&#41;\n[/code:2r50zqru]\n\nLa \"ventana\" se dibuja perfectamente para los dos casos, pero al momento que el GET (oC1og1)  toma el foco me sale el ERROR variable oC1vg1 no existe, aun estando definida al inicio de la funcion.\n\nAlguien me puede ayudar..','',0,'AIA=','2r50zqru',1,0,'',228,0,0),(37314,8078,1,2,0,'87.218.146.5',1189021037,1,0,1,1,1,1,'','','Jose,\n\nYou should consider to port your application to [x]Harbour and FWH in 32 bits, and use ADO.','',0,'','2co0ia5j',1,0,'',2,0,0),(37315,8077,7,2,0,'87.218.146.5',1189021163,1,0,1,1,1,1,'','','Esteban,\n\nDe momento no puedes usar ni REPORT ni PRINT. Tienes que usar las funciones de comunicaciones para imprimir por Bluetooth.\n\nHaz una búsqueda en estos foros por Bluetooth','',0,'','6crarzv5',1,0,'',2,0,0),(37316,8058,6,2,0,'87.218.146.5',1189021257,1,0,1,1,1,1,'','','Carlos,\n\nUn fichero RC es un fichero de texto que no es ni de 16 ni de 32 bits','',0,'','3jmqd4a2',1,0,'',2,0,0),(37317,8080,6,1163,0,'200.117.55.151',1189021310,1,0,1,1,1,0,'','Guardar Arreglos en campo de una tabla','Hola :  \n \n   .Alguien sabe si en Xharbour-FiveWin con el RDD de ADS se puede almacenar un arreglo en un campo memo. En Clipper-FiveWin con ADS si lo puedo hacer.\n \n   \nGracias\nTheler Hugo','',0,'','2bcha9om',1,0,'',1163,0,0),(37318,8076,6,2,0,'87.218.146.5',1189021437,1,0,1,1,1,1,'','','Como bien dice Fernando, UltraEdit, en concreto UEStudio que es en nuestra opición el mejor editor que hemos conocido y que usamos.\n\nFWH proporciona los ficheros de configuración necesarios para trabajar con él.','',0,'','39741dzt',1,0,'',2,0,0),(37319,8079,6,2,0,'87.218.146.5',1189021579,1,0,1,1,1,1,'','','Leandro,\n\nUna ventana MDI hija no es MODAL, es decir, la ejecución de la aplicación no se detiene al hacer ACTIVATE WINDOW, por eso la ejecución sigue y sales de la función en donde has declarado esas variables.\n\nTendrás que hacer esas variables static ó bien crear una clase que contenga todos esos valores que usas','',0,'','1zurkwlg',1,0,'',2,0,0),(37320,8081,6,1163,0,'200.117.55.151',1189021617,1,0,1,1,1,0,'','índice en una tabla con campos de otra','Hola\n\n   No logre con xHarbour-FiveWin ADS hacer un índice en una tabla con campos de otra ( Por supuesto con una relación ) . En Clipper-FiveWin ADS si lo logre hacer.\n \nEjemplo :\nTPER:=abro( \'TPERSONA\',2)\nBDD :=abro( \'DPLANPAG\',7)\n(BDD)-&gt;( DbSetRelation( TPER , {|| Field-&gt;idc_con } , \'Field-&gt;idc_con\' ) )\nindex on (TPER)-&gt;Apellido to KK\n \n \nGracias\nTheler Hugo','',0,'','diiu1t3f',1,0,'',1163,0,0),(37321,8075,6,2,0,'87.218.146.5',1189021732,1,0,1,1,1,1,'','','Jorge,\n\noFld:aDialogs[y]:aControls[x]:ClassName()=\"TGET\" \n\ntiene que funcionarte correctamente','',0,'','3u41o9gw',1,0,'',2,0,0),(37322,8067,6,73,0,'200.23.18.132',1189022344,1,0,1,1,1,0,'','','Gracias rene, esta funcion esta en xharbour, pero lo que necesito es obtener el dato fecha y hora que esta almacenado en una .mdb, pero desde fwh, hice la conexion con ADO y al traer el VALUE del campo unicamente me trae la fecha, y necesito ambos fecha y hora, como veo la explicacion que haces es para yo hacerlo directamente con una variable usando la funcion datetime...\naDato[2] := oRS:Fields(\"FECHAMOV\"):Value\naDato[2] se guarda unicamente la fecha...\n\nsalu2\npaco','',0,'','2d10yfkq',1,0,'',73,0,0),(37323,8079,6,228,0,'201.244.214.71',1189022780,1,0,1,1,1,1,'','Ok..','Ok Antonio muchas gracias por la repuesta.. voy a probar y cualquier cosa vuelvo a molestar.','',0,'','1osc7f14',1,0,'',228,0,0),(37324,8064,3,343,0,'204.57.111.194',1189024175,1,0,1,1,1,0,'','','That works good when it is set with From User = .T.\nIf you use Outlook and try From User = .F. then you get security warnings that stop the email processing.\n\nIt is very frustrating to get Fivewin to email by itself under all conditions. That is why I ended up using an external SMTP email program.\n\nGood luck,\nGale','',0,'','6gb9mex9',1,0,'',343,0,0),(37325,8058,6,362,0,'200.148.67.186',1189025722,1,0,1,1,1,1,'','','Mi pregunta es... verdaderamente es \"más seguro\" trabajar con .RES como han mencionado? \n\nCARLOS, EN 32 BITS, SE DEBE USAR SIEMPRE ARCHIVOS.RES Y SE DEBE HACER SIEMPRE UNA COPIA DE SECURIDAD EN UN ARCHIVO.RC SOLO POR PRECAUCION.\n\nRegards, saludos.','',0,'','utdflm4j',1,0,'',362,0,0),(37326,8082,6,911,0,'200.72.141.51',1189027372,1,0,1,1,1,1,'','Epson TM-U200D-Alguien posee los código ESC (todos)?','Hola:\nAlguien que haya o esté actualmente utilizando la Epson TM-U200D a través de la TDosPrn?.\nEs que cuando accedo a ella me arroja solamente símbolos raros.\nUtilizo los comandos que trae por defecto la tdosprn.\nDebo instalar algún driver en especial en windows xp?.\nSin instalar nada, igual responde cuando mando una impresión.\nNo consigo que imprima nada coherente\n\nEsto es lo que imprime:\n[img:8azl2pk4]http&#58;//img205&#46;imageshack&#46;us/img205/5940/impresiontmu200dqd7&#46;jpg[/img:8azl2pk4]\n\nSaludos','',0,'CA==','8azl2pk4',1,1189051107,'',911,2,0),(37327,8057,6,147,0,'190.137.198.69',1189028297,1,0,1,0,1,1,'','','gente: gracias por las respuestas\n\nsaludos','',0,'CA==','2qgi6v0g',1,0,'',147,0,0),(37328,8081,6,138,0,'189.141.65.96',1189029328,1,0,1,1,1,1,'','','No se puede, recuerda que ADS es un programa externo a tu programa y no puedes mezclar expresiones en los indices.\n\nEs imposible que ADS pueda indexar usando ALIAS dinamicos (TPER), eso seguro te tiene que causar un error de ADS.\n\nPor otro lado para indexar de la forma en que lo quieres hacer es agregar un campo en tu tabla con la informacion que quieras indexar.\n\nEstoy seguro que en Clipper no estas indexando usando el DBFCDXAX','',0,'CA==','2e1ff184',1,0,'',138,0,0),(37329,8079,6,138,0,'189.141.65.96',1189029480,1,0,1,1,1,1,'','','yo lo que hago para evitarme molestias es utilizar la data CARGO de la ventana MDICHILD, ahi pongo mis variables dentro de un arreglo:\n\noWndChil:Cargo := {}\noWndChild: Cargo [1] := lo que sea\noWndChild:Cargo[2] := .......\n......','',0,'','33itwfrb',1,0,'',138,0,0),(37330,8080,6,138,0,'189.141.65.96',1189029791,1,0,1,1,1,1,'','','Si, en campos memo con el driver CDX y en campos blob con ADTs','',0,'','2ssfs74t',1,0,'',138,0,0),(37331,8075,6,1014,0,'201.230.241.39',1189030465,1,0,1,1,1,1,'','','Hola Antonio \nMuchas gracias por tu respuesta.\nes cierto funciona bien. Yo me equivoqué en el 2do FOR, puse\nfor y=1 to len(oFld:aDialogs)\n   for x=1 to len(oFld:aDialogs[y])\n      if oFld:aDialogs[y]:aControls[x]:ClassName()=\"TGET\"\n\nen vez de\n   for x=1 to len(oFld:aDialogs[y]:aControls)\n\notra vez, muchas gracias\nSaludos\nJorge Vargas','',0,'','2nqstb1l',1,0,'',1014,0,0),(37332,8083,6,931,0,'201.159.1.211',1189031535,1,0,1,1,1,0,'','Obtener feha y hora de ORACLE','Hola a todos,\n\nAlguien sabe como puedo obtener la fecha y hora de una tabla de ORACLE.\n\nEstoy trabajando con ADO, pero al momento de bajar la información de un campo tipo DATE, solo obtengo la fecha, pregunto, es posible obtener tambien la hora?\n\nSaludos,\nMario Dávalos\nMéxio','',0,'','3qucweyl',1,0,'',931,0,0),(37333,8082,6,940,0,'189.175.194.140',1189033694,1,0,1,1,1,1,'','','Hola  ,  intenta asi,\n\n\n#define INICIAPRN      \'27,64\'\n#define SELECTDRAF     \'27,120,48\'\n\n\n oPrn := TDosPrn():New( \"lpt1\" )           //iniciamos el objeto tdosprn.\n oPrn:command(INICIAPRN)\n oPrn:command(SELECTDRAF)\n\n*** tu impresion\n\n\noPrn:end()\n\n\nsaludos..','',0,'','18ws9zx6',1,0,'',940,0,0),(37334,8058,6,103,0,'189.43.121.190',1189038011,1,0,1,1,1,1,'','','Pues te comento que he usado archivos RC hasta hoy sin ningún problema, compilandolos directamente en mis proyectos.\n\nSaludos,','',0,'','hi70ae0j',1,0,'',103,0,0),(37335,8067,6,940,0,'189.175.194.140',1189039063,1,0,1,1,1,1,'','','Paco efectivamente aunque en el acces se mira el campo con fecha y hora\n\nel recorset de ADO solo te devuelve  la fecha ignorando el resto,\n\n\n05/09/2007 07:33:20\n\n\nmsginfo( oRS:Fields(\"FECHAMOV\"):Value ) \n\nsolo muestra un pezado del estring  05/09/2007\n\nalgun guro debe de saber el porque .\n\nsaludos..','',0,'','325xrt30',1,0,'',940,0,0),(37336,8084,6,1072,0,'201.214.53.218',1189040061,1,0,1,1,1,0,'','Ayuda con 32 bits Urgente','Hola Foro:\nTengo el siguiente problema:\n\n1. Como puedo declarar la Ace32.dll y otras DLL en una aplicacion de 32 bits, ya que verce me dice que no puede abrir esta dll.\n\n2. En 16 bits yo podia consultar si en el disco duro existia un archivo de la siguiente forma:\n    var= \"Maestro\"  (Nombre de la base de datos)\n   If File(\"&amp;var..dbf\")\n      .... Abrir archivo\n      If File(\"&amp;Var..cdx\")\n          ... Abrir archivo indice\n      endif\n   endif\n   . Mi pregunta es como puedo hacer los mismo en Xharbour y Fwh701\n\n\nSaludos,\nAntonio','',0,'','1126yg49',1,0,'',1072,0,0),(37337,8085,2,1164,0,'190.56.100.80',1189044299,1,0,1,1,1,0,'','Por favor ayuda con impresion a Matrixiales','Hola  foro\n\nnecesito saber como imprimir a una impresora Matrixial REMOTA\nutilizando TDOSPRN,  nunca he tenido problema al usar la clase con impresoras LOCALES, hasta que encontre una que me da el mensaje \"Impresora sin papel\", lo extraño es que se puede imprimir desde EXCEL, WORD, pagina de prueba etc, aun desde mi programa en forma grafica, pero en el LPT1 nada! no se hasta que punto pueda ser la PC,\n\nAgracezco anticipadamente cualquier ayuda','',0,'','3pypbem0',1,0,'',1164,0,0),(37338,8046,3,1064,0,'61.70.211.182',1189045409,1,0,1,1,1,0,'','','hi James  :\nThank you for reply.\n\n[quote:st8vcfwz]IN  RDD \"DBFCDX\" FIELD NO:\n================\nHST-1002\nHST-1002-1\nHST-1002-2\nHST-1002-3\nHST-1002-4\n===============\nDBSEEK(TRIM(cITEM)) //==&gt; \"HST-1002  \" \n\nIN  RDD \"ADS\" FIELD NO:\n================\nHST-1002-1\nHST-1002-2\nHST-1002-3\nHST-1002-4\nHST-1002\n===============\nDBSEEK(TRIM(cITEM)) //==&gt; \"HST-1002-1\" \n\n[/quote:st8vcfwz]\nWhat my problem is the Index Sorting not correct , not dbseek() problem.\n\n-- \nBest Regards\n-----------------\nkokoo KAO','',0,'gA==','st8vcfwz',1,0,'',1064,0,0),(37339,8082,6,911,0,'200.72.141.51',1189046424,1,0,1,1,1,1,'','','Gracias Master. No resultó.\nEn mi caso la impresora es serial, aunque para eso la puedo redirigir o colocar oPrn:=TDosPrn():New( \"COM1\").\nMe imprime algo así:\n???????????Ç??ÇÇÇ??????Ç??ÇÇÇ???Ç??Ç????\n\nEstoy haciéndolo de esta forma:\n\n[code:9in50gqh]\n#define InitTMU200D &quot;27,64&quot;\n#define SelectDRAFT &quot;27,120,48&quot;\n\nFUNCTION PrintNotaVenta&#40; nIdNotadeVenta, cPuertoImpresion, nTotal&#41;\n   LOCAL oPrn, cIdNotadeventa, cTotal\n\n   cIdNotadeVenta&#58;=Transform&#40; nIdNotadeVenta, &quot;@E 9,999,999,999&quot;&#41;\n   oPrn&#58;=TDosPrn&#40;&#41;&#58;New&#40;cPuertoImpresion&#41;\n   //oPrn&#58;StartPage&#40;&#41;\n   oPrn&#58;Command&#40; InitTMU200D&#41;\n   oPrn&#58;Command&#40; SelectDRAFT&#41;\n   oPrn&#58;Say&#40; 0,0, &quot;N&#46; Venta #&quot;+cIdNotadeVenta&#41;\n   oPrn&#58;End&#40; &#46;T&#46;, &#46;F&#46;&#41;\n\nRETURN NIL\n[/code:9in50gqh]\n\nSi alguien me puede ayudar, solamente me falta esto para poder terminar este módulo.\nMil gracias','',0,'AIA=','9in50gqh',1,0,'',911,0,0),(37340,8084,6,138,0,'189.141.65.96',1189053428,1,0,1,1,1,1,'','Re: Ayuda con 32 bits Urgente','[quote=&quot;mantonio_08&quot;:1j3zj8rj]\n1. Como puedo declarar la Ace32.dll y otras DLL en una aplicacion de 32 bits, ya que verce me dice que no puede abrir esta dll.\n[/quote:1j3zj8rj]\n\nNo lo necesitas a menos que estes usando el Advantage Database Server, si no estas usando ADS, entonces quitalo de las opciones de enlazado del VerCE, y por cierto, no es el ACE32.DLL , es el ACE32.LIB\n\nAhora bien, si estas usando Advantage, el ACE32.LIB proviene del ACE32.DLL\n\n1) Consigue un ACE32.DLL de la version de ADS que estés usando (lo encuentras en la carpeta del Advantage Data ARchitech)\n\n2) Con el Implib de borland crea la libreria\n\nIMPLIB ACE32.LIB ACE32.DLL\n\nY listo\n\n[quote=&quot;mantonio_08&quot;:1j3zj8rj]\n2. En 16 bits yo podia consultar si en el disco duro existia un archivo de la siguiente forma:\n    var= \"Maestro\"  (Nombre de la base de datos)\n   If File(\"&amp;var..dbf\")\n      .... Abrir archivo\n      If File(\"&amp;Var..cdx\")\n          ... Abrir archivo indice\n      endif\n   endif\n[/quote:1j3zj8rj]\n\nEn teoría si pero estas matando pulgas a cañonazos, no necesitas usar macros para la funcion FILE:\n\n[code:1j3zj8rj]var &#58;= &quot;Maestro&quot;\nIF File&#40;var+&quot;&#46;dbf&quot;&#41;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n[/code:1j3zj8rj]\nComo verás el uso de las macros con cadenas de caracteres que estas usando es redundante.','',0,'gIA=','1j3zj8rj',1,0,'',138,0,0),(37341,8058,6,138,0,'189.141.65.96',1189053715,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:e2v9ot6b]Mi pregunta es... verdaderamente es \"más seguro\" trabajar con .RES como han mencionado? \n\nCARLOS, EN 32 BITS, SE DEBE USAR SIEMPRE ARCHIVOS.RES Y SE DEBE HACER SIEMPRE UNA COPIA DE SECURIDAD EN UN ARCHIVO.RC SOLO POR PRECAUCION.\n\nRegards, saludos.[/quote:e2v9ot6b]\n\nSeguro que no, un RES es la version compilada de un RC, luego entonces siempre sera mas seguro trabjaar con el codigo fuente que con un \"obj\"\n\n\nLa jerarquia que se sigue es:\n\nRC -&gt; RES -&gt; Exe / DLL\n\nEn clipper era:\n\nPRG -&gt; OBJ -&gt; EXE\n\nA Fin de cuentas el RES es la version obj de un rc.','',0,'gA==','e2v9ot6b',1,0,'',138,0,0),(37342,8001,3,233,0,'218.208.251.40',1189057064,1,0,1,1,1,0,'','','[quote=&quot;Greg Gammon&quot;:kdziig57]Sounds like exactly what I need.   So how do I implement using TcBrowse?[/quote:kdziig57]  \nIn Fivewin\'s Samples folder, check the following to get some ideas; testtcbr.prg, testtcb2.prg, testtcb3, etc. You\'ll have to create your browse differently. You no longer can use  [b:kdziig57]REDEFINE LISTBOX FIELD...[/b:kdziig57]\n\n[quote:kdziig57]I see it inherits from TWBrowse....but when I try to use the lNoGrayBar, i get a \"TWBrowse\" error...unless I am not doing it correctly?[/quote:kdziig57]\nIf you created your browse using [b:kdziig57]REDEFINE LISTBOX FIELD...[/b:kdziig57], it\'ll get pre-processed into calling TWBrowse which don\'t have [b:kdziig57]:lNoGrayBar[/b:kdziig57] data member.\n\n[quote:kdziig57]oLbx:lnograybar := .t.  ??[/quote:kdziig57]\nThat should be correct. Anyway, if you\'re interested in following James idea of using TSBrowse instead of others, you\'d find TSBrowse also has :lNoGrayBar','',0,'wA==','kdziig57',1,0,'',233,0,0),(37343,8046,3,303,0,'72.199.41.171',1189057283,1,0,1,1,1,0,'','','&gt;What my problem is the Index Sorting not correct , not dbseek() problem. \n\nI understand about the index problem and I don\'t have an answer for that.\n\nFor the seek, it appears that the ADS RDD is incorrect.\n\nJames','',0,'wA==','pbia66tw',1,0,'',303,0,0),(37344,5923,4,154,0,'151.21.37.136',1189059420,1,0,1,1,1,1,'','Re: TGet RIGHT clause is not working','[quote=&quot;EnricoMaria&quot;:23q17ezw]This is a sample:\n\n[code:23q17ezw]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL nVar &#58;= 123&#46;45\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 SAY &quot;Test&#58;  &quot;\n\n    @ 1, 10 GET nVar;\n            SIZE 70, 20;\n            PICTURE &quot;@E 9999&#46;99&quot;;\n            RIGHT\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:23q17ezw]\n\nEMG[/quote:23q17ezw]\n\nI confirm, and this problem is also in redefine!\nThe number is not RIGHT!!!!\nis possible to solve?\nThank you','',0,'gIA=','23q17ezw',1,0,'',154,0,0),(37345,8073,20,154,0,'151.21.37.136',1189059645,1,0,1,1,1,1,'','Re: FWPPC Allineamento a destra in una Redefine Get','[quote=&quot;EnricoMaria&quot;:1qhqpx8x]Ho già segnalato il problema ripetutamente senza purtroppo avere risposta:\n\n[url:1qhqpx8x]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5923[/url:1qhqpx8x]\n\nMagari prova ad aggiungere anche un tuo messaggio al thread.\n\n[/quote:1qhqpx8x]\n\nEnrico grazie,\n\nappena fatto!\n\nCi sono altri malfunzionamenti riconosciuti o scoperti?\n\nAd esempio ho avuto problemi ad aprire dei dbf se non gli passo il percorso completo anche se sono nella stessa cartella del programma.\nLo hai riscontrato?','',0,'kA==','1qhqpx8x',1,0,'',154,0,0),(37346,8058,6,316,0,'213.97.245.163',1189062409,1,0,1,1,1,0,'','','Creo que se debe haber interpretado mal la respuesta. Estaba tratando de explicar en que cuestiones Workshop puede no responder como debiera.\n\nAntonio: Nunca dije que un rc no fuera un archivo de texto. Lo que digo es el cambio de aspecto segun el mismo recurso lo lea una apliacion de 16 o 32 bits, este defecto es el porqué de la cláusula RESIZE16 del REDEFINE DIALOG.\n\nJoao: usar rc, res, o dll es una cuestion que varía de proyecto a proyecto. Si los recusos son pocos y no cambian mucho, rc o res. Si son muchos, dll. \n\nRespecto de la estabilidad de uno u otro formato *para guardarlo*, lo mas \'puro\' es rc, me quedo con él. El problema son los dialectos de rc pero eso es manejable, y tiene la ventaja de que no es ni 16 ni 32 bits salvo por lo que explicaba antes.\n\nAun así, cuando los recursos son muchos (una dll de 20 Mb) manejarla es un dolor de cabeza. En RC esa dll se expande a 60Mb, mientras que el res se mantiene del mismo tamaño que la dll.\nY cuando vas a guardar 20 Mb de recursos, la gran mayoría se las ve negras. El Borland C++ Builder, que tiene un editor de recursos como el de Pelles, empieza a cascar al guardar o compilar (aun no he podido determinar el punto) y se carga la dll. Workshop no me sirve para la dll porque es de 32 bits. El que la maneja mas o menos bien y es gratuito es el Resource Hacker <!-- m --><a class=\"postlink\" href=\"http://www.angusj.com/resourcehacker/\">http://www.angusj.com/resourcehacker/</a><!-- m --> que cuando casca el Borland este es capaz de manejarla. Y es freeware.\n\nEspero que nuestra experiencia les resulte interesante al momento de decidir.\n\nCarlos','',0,'kA==','3oy0wthb',1,0,'',316,0,0),(37347,8086,3,160,0,'59.96.156.174',1189065116,1,0,1,1,1,0,'','How can I print Barcode using FWH ?','Dear All,\n\nAs subject.\n\nTIA\nMilan.','',0,'kA==','3740769g',1,0,'',160,0,0),(37348,8086,3,1105,0,'83.52.210.64',1189070116,1,0,1,1,1,0,'','','See <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3929\">http://fivetechsoft.com/forums/viewtopic.php?t=3929</a><!-- m -->\n\nIt works great!!!','',0,'kA==','18aws5az',1,0,'',1105,0,0),(37349,8043,3,2,0,'87.218.146.5',1189070966,1,0,1,1,1,1,'','','Edu,\n\nPlease add this new method to Class TXBrowse:\n[code:b5ezxyqx]\nMETHOD SelFont&#40;&#41; CLASS TXBrowse\n\n   local oFont, n\n\n   DEFINE FONT oFont FROM USER\n   \n   for n = 1 to Len&#40; &#58;&#58;aCols &#41;\n      &#58;&#58;aCols&#91; n &#93;&#58;oDataFont = oFont\n   next\n   \n   &#58;&#58;Refresh&#40;&#41;\n   \nreturn nil      \n[/code:b5ezxyqx]\nThen simply do:\noXBrowse:SelFont()','',0,'AIA=','b5ezxyqx',1,0,'',2,0,0),(37350,8041,6,2,0,'87.218.146.5',1189071065,1,0,1,1,1,1,'','','Edu,\n\nAñade este método a la Clase TXBrowse:\n[code:16via0up]\nMETHOD SelFont&#40;&#41; CLASS TXBrowse\n\n   local oFont, n\n\n   DEFINE FONT oFont FROM USER\n   \n   for n = 1 to Len&#40; &#58;&#58;aCols &#41;\n      &#58;&#58;aCols&#91; n &#93;&#58;oDataFont = oFont\n   next\n   \n   &#58;&#58;Refresh&#40;&#41;\n   \nreturn nil      \n[/code:16via0up]\nPara usarlo:\noXBrowse:SelFont()','',0,'AIA=','16via0up',1,0,'',2,0,0),(37351,8073,20,6,0,'79.3.217.170',1189071197,1,0,1,1,1,1,'','Re: FWPPC Allineamento a destra in una Redefine Get','[quote=&quot;Ugo&quot;:11d4l5zl]Ci sono altri malfunzionamenti riconosciuti o scoperti?[/quote:11d4l5zl]\n\nNon saprei. Per quel poco che ho fatto io ho trovato solo questo:\n\nNon funziona il metodo Append():\n\n[code:11d4l5zl]#include &quot;Fwce&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL oGet, cVar &#58;= &quot;&quot;\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 GET oGet VAR cVar MEMO;\n           SIZE 200, 100\n\n    @ 10, 1 BUTTON &quot;Append&quot;;\n            SIZE 100, 20;\n            ACTION oGet&#58;Append&#40; &quot;This is a test&quot; + CRLF &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:11d4l5zl]\n\n[quote=&quot;Ugo&quot;:11d4l5zl]Ad esempio ho avuto problemi ad aprire dei dbf se non gli passo il percorso completo anche se sono nella stessa cartella del programma.\nLo hai riscontrato?[/quote:11d4l5zl]\n\nSì, ma non so se può essere considerato un bug, credo di no. Bisogna utilizzare la funzione CURDIR():\n\n[code:11d4l5zl]USE &#40; CURDIR&#40;&#41; + &quot;\\TEST&quot; &#41;[/code:11d4l5zl]\n\nEMG','',0,'gIA=','11d4l5zl',1,0,'',6,0,0),(37352,5923,4,2,0,'87.218.146.5',1189072074,1,0,1,1,1,1,'','','The problem comes from the PICTURE. If it is not used, then the ES_RIGHT style is working fine:\n[code:1i2erq62]\n    @ 1, 10 GET nVar; \n            SIZE 75, 20; \n            RIGHT \n[/code:1i2erq62]','',0,'AIA=','1i2erq62',1,0,'',2,0,0),(37353,8027,3,161,0,'213.119.247.56',1189073441,1,0,1,1,1,0,'','','Hi,\n\nCan anyone tell me why this is not working?\n\n[code:2zol73yt]#include &quot;fivewin&#46;ch&quot;\n\nFUNCTION test&#40;&#41;\n   local oMWnd\n\n   DEFINE WINDOW oMWnd TITLE &quot;test&quot;\n   oMWnd&#58;blClicked &#58;= &#123;|nRow, nCol, nKeyFlags| ;\n   mzoom&#40;&#41;&#125;\n   ACTIVATE WINDOW oMWnd\n\nRETURN nil\n\nFUNCTION mzoom&#40;&#41;\n   local oTimer\n   local oWnd\n   local nZoom &#58;= 2\n\n   DEFINE WINDOW oWnd TITLE &quot;Zoom&quot; FROM 0,0 TO 233,207 PIXEL NOMINIMIZE NOMAXIMIZE\n\n   DEFINE TIMER oTimer OF oWnd INTERVAL 50 ACTION GetColor&#40;oWnd,nZoom&#41;\n\n   oTimer&#58;Activate&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\n   oTimer&#58;DeActivate&#40;&#41;\n\nRETURN nil\n\nFUNCTION getcolor&#40;ownd,nzoom&#41;\n\n   local hDeskTop &#58;= GetDC&#40;0&#41;\n   local a        &#58;= GetCursorPos&#40;&#41;\n   local nColor   &#58;= GetPixel&#40; hDeskTop, a&#91;2&#93;, a&#91;1&#93; &#41;\n   local hDC      &#58;= oWnd&#58;GetDC&#40;&#41;\n   local nTop    &#58;= 0\n   local nLeft   &#58;= 0\n   local nWidth  &#58;= 200\n   local nHeight &#58;= 200\n\n   StretchBlt&#40; hDC, nLeft, nTop, nWidth, nHeight, hDeskTop, a&#91;2&#93;-&#40;nWidth/&#40;nZoom*2&#41;&#41;, a&#91;1&#93;-&#40;nHeight/&#40;2*nZoom&#41;&#41;, nWidth/nZoom, nHeight/nZoom, 13369376 &#41;\n\n   oWnd&#58;ReleaseDC&#40;&#41;\n   ReleaseDC&#40; 0, hDeskTop &#41;\nRETURN nil\n\n#pragma BEGINDUMP\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; STRETCHBLT &#41;\n&#123;\nhb_retl&#40; StretchBlt&#40; &#40;HDC&#41; hb_parnl&#40; 1 &#41;   ,\nhb_parni&#40; 2 &#41;         ,\nhb_parni&#40; 3 &#41;         ,\nhb_parni&#40; 4 &#41;         ,\nhb_parni&#40; 5 &#41;         ,\n&#40;HDC&#41; hb_parnl&#40; 6 &#41;   ,\nhb_parni&#40; 7 &#41;         ,\nhb_parni&#40; 8 &#41;         ,\nhb_parni&#40; 9 &#41;         ,\nhb_parni&#40; 10 &#41;        ,\n&#40;DWORD&#41; hb_parnl&#40; 11 &#41;\n&#41; &#41; ;\n&#125;\n\n#pragma ENDDUMP\n[/code:2zol73yt]\n\nIf I change the test() to \n[code:2zol73yt]FUNCTION test&#40;&#41;\n   mzoom&#40;&#41;\nRETURN nil\n[/code:2zol73yt]\nThen it\'s working.\n\nI want to call it from another window.\nThanks,\nMarc','',0,'AIA=','2zol73yt',1,0,'',161,0,0),(37354,8087,18,1146,0,'83.52.210.64',1189073675,1,0,1,1,1,0,'','error en Preview','Hola:\n\nHe encontrado un error en el Preview. En concreto:\n\n- Hay que hacer un listado que ocupe varias páginas.\n- Pulsamos el botón de 2 páginas.\n- Hacemos doble click en la página de la derecha.\n- Entonces, el texto Número de página: 2/2 se convierte sólo en 2/2, es decir, desaparece el texto \"Número de página\".\n\n[url=http&#58;//img370&#46;imageshack&#46;us/my&#46;php?image=previewhn5&#46;jpg:1j5w5ulg][img:1j5w5ulg]http&#58;//img370&#46;imageshack&#46;us/img370/2039/previewhn5&#46;th&#46;jpg[/img:1j5w5ulg][/url:1j5w5ulg]\n\nSi necestitas cualquier información más, por favor, índicamelo. Muchas gracias.\n\nSalu2','',0,'GA==','1j5w5ulg',1,0,'',1146,0,0),(37355,8086,3,160,0,'59.95.254.230',1189075033,1,0,1,1,1,0,'','','Dear All,\n\nI could download that LIB. It seems to be quite promising one.\n\nBut any sample to use that LIB would be a great help for me.\n\nCan someone help ?\n\nTIA\nMilan.','',0,'GA==','1bdzmbwi',1,0,'',160,0,0),(37356,8081,6,1163,0,'190.30.58.159',1189076599,1,0,1,1,1,0,'','','Hola Rene :\n\nGracias por tu respuesta. \n\nEn Clipper5.3 - FiveWin - Blinker 6.0 - ADS 6.2 Novel - pude hacer índices con campos de otra tabla, Lo utilizo muchísimo para ordenar browse al presionar el título de la columna. En realidad son subindices y los crea en tiempo real. \nEstoy intentando migrar estos sistemas de clipper a xharbour y es casi el único problema que tengo , y casi es imposible sacarle esta función porque la utilizan muchísimo. \n\nEntonces la solución que me sugeris es agregar le campo en la tabla que voy a crear el índice o crear una tabla temporaria ( Con todos los campos del browse )  ..?\n\nNuevamente gracias\n\n\nHugo Theler','',0,'GA==','18w17emd',1,0,'',1163,0,0),(37357,8086,3,138,0,'148.233.151.30',1189076702,1,0,1,1,1,1,'','','As sugested you can use Cayetano\'s bar lib or......\n\nYou can use bar code font, you use them as normal fonts, goggle for \"barcode fonts\" yo will find thosands.\n\ndefine font oFont Value \"3of9\"\noPrn:cmsay(row,col, \"12345\",ofont)','',0,'GA==','1l8mr1wo',1,0,'',138,0,0),(37358,8080,6,1163,0,'190.30.58.159',1189076758,1,0,1,1,1,0,'','','Gracias Rene , voy a probar.','',0,'GA==','1dn44zbi',1,0,'',1163,0,0),(37359,8027,3,308,0,'84.148.1.117',1189078321,1,0,1,1,1,0,'','','Change your function mzoom and it works. the problem was the timer-deactivate.\n\nregards, Norbert\n\n[code:2787l245]FUNCTION mzoom&#40;oMWnd&#41; \n   local oTimer \n   local oWnd \n   local nZoom &#58;= 2 \n\n   DEFINE WINDOW oWnd TITLE &quot;Zoom&quot; FROM 0,0 TO 233,207 PIXEL NOMINIMIZE NOMAXIMIZE \n\n   DEFINE TIMER oTimer OF oWnd INTERVAL 50 ACTION GetColor&#40;oWnd,nZoom&#41; \n\n   oTimer&#58;Activate&#40;&#41; \n\n   ACTIVATE WINDOW oWnd valid &#40;oTimer&#58;DeActivate&#40;&#41;, &#46;t&#46;&#41; \n\nRETURN nil \n[/code:2787l245]','',0,'AIA=','2787l245',1,0,'',308,0,0),(37360,8064,3,308,0,'84.148.1.117',1189078698,1,0,1,1,1,0,'','','[quote=&quot;Gale FORd&quot;:2mbitpe6]That works good when it is set with From User = .T.\nIf you use Outlook and try From User = .F. then you get security warnings that stop the email processing.\n\nIt is very frustrating to get Fivewin to email by itself under all conditions. That is why I ended up using an external SMTP email program.\n\nGood luck,\nGale[/quote:2mbitpe6]\n\nhere an little tool for your outlook-problem.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.contextmagic.com/express-clickyes/for-developers.htm\">http://www.contextmagic.com/express-cli ... lopers.htm</a><!-- m -->\n\nregards, Norbert','',0,'gA==','2mbitpe6',1,0,'',308,0,0),(37361,8088,6,694,0,'201.22.88.74',1189079907,1,0,1,1,1,1,'','Antonio, arquivo de RES com PELLES C na rede','Antonio, aqui na empresa trabalhamos com PELLES C, usando arquivo RES. O problema é, como trabalhar em rede no mesmo projeto (RES) mantendo as alterações que um e outro programador venha a fazer com o Pelles no arquivo RES.\n\nGrato\n\nAoki','',0,'gA==','2l6t8l6z',1,0,'',694,0,0),(37362,8088,6,2,0,'87.218.146.5',1189080513,1,0,1,1,1,1,'','','Aoki,\n\nNo se puede trabajar simultaneamente en el mismo fichero RES desde varios ordenadores.\n\nLa solución es usar un fichero RC que contenga a otros ficheros RC:\ntotal.rc:\n#include parte1.rc\n#include parte2.rc\n#include parte3.rc\netc.\n\nAsi un programador puede trabajar en la parte1.rc, otro en parte2.rc, etc.\n\npero eso solo podrás hacerlo con Borland Resources Workshop. Los editores de recursos que solo trabajan con un fichero RES no te permitiran hacer eso','',0,'gA==','cetvf51u',1,0,'',2,0,0),(37363,8089,6,1146,0,'83.52.210.64',1189081311,1,0,1,1,1,0,'','Setftime()','Hola Antonio:\n\n¿Ya está disponible setftime() en 32 bits?. La necesito. Muchas gracias.\n\nMoisés','',0,'gA==','16b30s5d',1,0,'',1146,0,0),(37364,8088,6,694,0,'201.22.88.74',1189083361,1,0,1,1,1,1,'','','Antonio, usted me indicaria um EDITOR DE RECURSOS (não workshop) para trabalhar com arquivos RC? \n\n\nGracias\n\n\nAoki','',0,'gA==','1m3l80xz',1,0,'',694,0,0),(37365,8058,6,362,0,'200.158.19.159',1189083677,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:3e85m4fv][quote=&quot;karinha&quot;:3e85m4fv]Mi pregunta es... verdaderamente es \"más seguro\" trabajar con .RES como han mencionado? \n\nCARLOS, EN 32 BITS, SE DEBE USAR SIEMPRE ARCHIVOS.RES Y SE DEBE HACER SIEMPRE UNA COPIA DE SECURIDAD EN UN ARCHIVO.RC SOLO POR PRECAUCION.\n\nRegards, saludos.[/quote:3e85m4fv]\n\nSeguro que no, un RES es la version compilada de un RC, luego entonces siempre sera mas seguro trabjaar con el codigo fuente que con un \"obj\"\n\n\nLa jerarquia que se sigue es:\n\nRC -&gt; RES -&gt; Exe / DLL\n\nEn clipper era:\n\nPRG -&gt; OBJ -&gt; EXE\n\nA Fin de cuentas el RES es la version obj de un rc.[/quote:3e85m4fv]\n\n\nPERFECTO MAESTRO RENE!  \n\nJO PREFIRO TRABAJAR CON .RES, ÉS MEJOR.\n\nGUARDO UNA COPIA EN .RC POR SEGURIDAD.\n\nRegards, saludos.','',0,'gA==','3e85m4fv',1,0,'',362,0,0),(37366,8076,6,1104,0,'190.55.55.212',1189084559,1,0,1,1,1,0,'','','Ok Antonio\n\nHe mi instalado en mi PC una version trial para probarlo.\nComo debo hacer para configurarlo?\nQue es lo que debo hacer?\n\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'gA==','2k8e921v',1,0,'',1104,0,0),(37367,8027,3,161,0,'213.119.247.56',1189084893,1,0,1,1,1,0,'','','Thanks Norbert, It\'s working fine now.\n\nRegards,\nMarc','',0,'gA==','1tliunr9',1,0,'',161,0,0),(37368,8077,7,1104,0,'190.55.55.212',1189085499,1,0,1,1,1,0,'','','Ok Antonio\n\nBusco entonces como dices.\n\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'gA==','3ka4skda',1,0,'',1104,0,0),(37369,8089,6,2,0,'87.218.146.5',1189085989,1,0,1,1,1,1,'','','Moises,\n\nTe enviamos la librería con la función por email para que la pruebes.','',0,'gA==','1whckw5q',1,0,'',2,0,0),(37370,8090,3,161,0,'213.119.247.56',1189086656,1,0,1,1,1,0,'','Move over Window detection','Hi,\n\nIs there a way to detect that the mouse is moving over a window (without clicking left or right button)?\n\nI want to activate a action everytime the mouse is moved on a window.\n\nThanks,\nMarc','',0,'gA==','w7xlkjct',1,0,'',161,0,0),(37371,8091,6,694,0,'201.22.88.74',1189086676,1,0,1,1,1,1,'','finalizar objetos ?','Antonio, de tempos em tempos preciso matar (finalizar) determinados objetos e recria-los\n\nComo matar seria assim: objnume[x]:end() ??? \n\nex:\n\nobjnume:=array(100)\nfor x:=1 to len(objnume)\n     redefine btnbmp objnume[x] ...\nnext','',0,'','3kmlb1et',1,0,'',694,0,0),(37372,8091,6,362,0,'200.158.19.159',1189088466,1,0,1,1,1,1,'','','ReleaseDC(objnume)','',0,'','2ua6v5tl',1,0,'',362,0,0),(37373,8082,6,73,0,'200.23.18.132',1189088670,1,0,1,1,1,0,'','','metaldrummer, (que nombre tan raro)\nyo uso una tmt88ii en com1 con tdosprn y me va bien, ya verificaste el cable serial? yo di de alta en windows la impresora generic text y ahi le asigen el puerto com1 y la puse por defaul y me va bien, como lo estas haciendo? ya que tu programa lo hace bien\nsalu2\npaco','',0,'','vsza20te',1,0,'',73,0,0),(37374,8084,6,1072,0,'201.214.53.218',1189088888,1,0,1,1,1,0,'','Re: Ayuda con 32 bits Urgente','Rene:\n\nMuchas gracias por tu respuesta, me queda muy clara tu explicacion.\n\nSaludos,\nAntonio\n\n\n[quote=&quot;RF&quot;:5mmt29kd][quote=&quot;mantonio_08&quot;:5mmt29kd]\n1. Como puedo declarar la Ace32.dll y otras DLL en una aplicacion de 32 bits, ya que verce me dice que no puede abrir esta dll.\n[/quote:5mmt29kd]\n\nNo lo necesitas a menos que estes usando el Advantage Database Server, si no estas usando ADS, entonces quitalo de las opciones de enlazado del VerCE, y por cierto, no es el ACE32.DLL , es el ACE32.LIB\n\nAhora bien, si estas usando Advantage, el ACE32.LIB proviene del ACE32.DLL\n\n1) Consigue un ACE32.DLL de la version de ADS que estés usando (lo encuentras en la carpeta del Advantage Data ARchitech)\n\n2) Con el Implib de borland crea la libreria\n\nIMPLIB ACE32.LIB ACE32.DLL\n\nY listo\n\n[quote=&quot;mantonio_08&quot;:5mmt29kd]\n2. En 16 bits yo podia consultar si en el disco duro existia un archivo de la siguiente forma:\n    var= \"Maestro\"  (Nombre de la base de datos)\n   If File(\"&amp;var..dbf\")\n      .... Abrir archivo\n      If File(\"&amp;Var..cdx\")\n          ... Abrir archivo indice\n      endif\n   endif\n[/quote:5mmt29kd]\n\nEn teoría si pero estas matando pulgas a cañonazos, no necesitas usar macros para la funcion FILE:\n\n[code:5mmt29kd]var &#58;= &quot;Maestro&quot;\nIF File&#40;var+&quot;&#46;dbf&quot;&#41;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n[/code:5mmt29kd]\nComo verás el uso de las macros con cadenas de caracteres que estas usando es redundante.[/quote:5mmt29kd]','',0,'gIA=','5mmt29kd',1,0,'',1072,0,0),(37375,8001,3,620,0,'209.189.229.150',1189088902,1,0,1,1,1,0,'','','Hua....thanks for that info.  perfect.\n\nJames,\nTSBrowse is exactly what I have been looking for...opens up all the possibilities I want to implement.\n\nI have never used 3rd party libraries, so this is new to me.  I downloaded the TSBrowse and according to the instructions, I need to generate the libraries using the makelib.bat file.  All I get though is an error message in the command prompt window... \"RMAKE is not recognized as an internal or external command\" (im running Vista).   Can you guide me here?  Thanks again for all of your help!\nG','',0,'gIA=','2fzwxafy',1,0,'',620,0,0),(37376,8082,6,911,0,'219.93.178.162',1189089658,1,0,1,1,1,1,'','','Paco:\nNo es el cable serial ya que mi cliente la usa diariamente con un programa hecho en clipper.\nLaverdad que yo no cree ese programa.\nVoy a ver si obtengo los fuentes.\nSi sabes de algo más ya que ni siquiera epson tiene el manual con los comandos.\nSaludos','',0,'gIA=','u1juv9e0',1,0,'',911,0,0),(37377,8090,3,6,0,'79.3.217.170',1189089744,1,0,1,1,1,1,'','Re: Move over Window detection','oWnd:bMMoved\n\nEMG','',0,'gIA=','1tnd2ovg',1,0,'',6,0,0),(37378,8092,6,176,0,'190.51.187.118',1189090619,1,0,1,1,1,0,'','Impresión y preview con clase tprinter','Me surgió un inconveniente para imprimir con las clase tprinter, en el preview me muestra distinto el mismo si es en (1) Windows xp, ó 98 o Mllenium (estan en red), cambiando los tipos de letras y el tamaño de la impresión en el papel. (Aclaro que la impresion es matricial). (2)Cuando elecciono la impresora si la predeterminada es la matricial imprimo la 1º vez lo imprime tal cual le ordeno, pero la segunda vez que quiero imprimir otro listado me achica las letras, si salgo del programa y entro nuevamente lo hace correctamente. Ahora si esta en las laser y la cambio a matricial, me muestra todo encimando y con letras muy grandes, cierro el preview y selecciono nuevamente el listado con la matricial y ahí lo hace correctamente pero   no hace los saltos de página, si la hago predeterminada  ocurre lo segundo expuesto.\nLo estoy imprimiento en impresoras en red.\n\nDesde ya gracias\n\nLuis Sáenz','',0,'gIA=','27pxrgt7',1,0,'',176,0,0),(37379,8001,3,303,0,'72.199.41.171',1189092575,1,0,1,1,1,0,'','','Greg,\n\nRMAKE.EXE is the Clipper make utility program. I you have it, then it needs to be in a pathed directory, or put a copy of it in the same directory as makefile.bat.\n\nIf you don\'t have RMAKE.EXE, then let me know and I will see if I can come up with a new sbrowseh.rmk that works with Borland\'s MAKE.EXE.\n\nJames','',0,'gIA=','1gsi66vu',1,0,'',303,0,0),(37380,8093,6,1146,0,'81.47.148.82',1189093331,1,0,1,1,1,0,'','una de índices','Hola:\n\nTengo una base de datos previamente indexada y abierta:\n\nselect 1\nuse usuarios index usuarios shared\n\nme gustaria cambiar el índice para hacer un listado y luego restaurar al índice anterior. Me falla la restauración al índice anterior, que no me sale.\n\nHe probado con set index &amp;tempindex additive y luego set order to 1 pero me sigue cogiendo el indice nuevo. \n\n\nPor favor, os agradecería que me digáis cómo se hace. Un millón de gracias.\n\nUn saludo','',0,'gIA=','3su69vok',1,0,'',1146,0,0),(37381,8078,1,819,0,'67.187.239.16',1189093773,1,0,1,1,1,0,'','','Anotonio,\n\nPorting to Xharbour would be ideal but we are not ready right now.\n\nWe are able to access the default database using FW TODBC class now.\n\nIs there a way we can specify databases other than the default? Thanks.\n\nRegards,\n\nJose','',0,'gIA=','2kct3mkg',1,0,'',819,0,0),(37382,8041,6,1105,0,'83.40.249.202',1189094782,1,0,1,1,1,0,'','','Muchas gracias, ahora sí funciona.\n\nNo obstante, he encontrado un error al seleccionar la fuente. Pulsa Cancelar y en vez de mantener la fuente original, la vuelve negrita.','',0,'gIA=','28yb60fu',1,0,'',1105,0,0),(37383,8092,6,176,0,'201.255.171.94',1189095162,1,0,1,1,1,0,'','','Uso fwh 2.6 y xharbour 99.61\n\nGracias','',0,'gIA=','29vvzgz1',1,0,'',176,0,0),(37384,8076,6,106,0,'85.34.123.173',1189095635,1,0,1,1,1,1,'','','No dejes de probar pspad...\nes free\nhace casi todo lo que hace ultraedit (editor de recursos no que yo sepa)\n\n\nSaludos.\n\n\n<!-- w --><a class=\"postlink\" href=\"http://www.pspad.com\">www.pspad.com</a><!-- w -->','',0,'gIA=','2z4mwtif',1,0,'',106,0,0),(37385,8082,6,171,0,'71.233.232.238',1189095697,1,0,1,1,1,0,'','','Metal,\n\nEsto me funciona perfecto:\n[code:xb9q7dhu]\noPrn &#58;= TDosPrn&#40;&#41;&#58;New&#40;&quot;LPT1&quot;,3&#41;\n\n// Aqui va mi codigo&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\n// Initializa el Printer\n    oPrn&#58;Command&#40;&quot;27 64&quot;&#41;\n\n   //Limpiar el Buffer\n   oPrn&#58;Command&#40;&quot;24&quot;&#41;\n\n   //Define Altura de Pagina\n   //?? CHR&#40;27&#41; + CHR&#40;67&#41; + CHR&#40;22&#41;  // en numero de lineas\n   //oPrn&#58;Command&#40;&quot;27, 67, 48, 3&quot;&#41;  // En Pulgadas\n   //oPrn&#58;Command&#40;&quot;27, 67, 25&quot;&#41;  // En No&#46; de lineas\n\n   oPrn&#58;StartPage&#40;&#41;\n\n  // Seleccionar 10 CPI For Epson\n  //oPrn&#58;Command&#40;&quot;27,80&quot;&#41;\n\n\n  // Seleccionar double strike For Epson\n  //oPrn&#58;Command&#40;&quot;27,71&quot;&#41;\n\n  // Seleccionar 12 CPI For Epson\n  oPrn&#58;Command&#40;&quot;27,77&quot;&#41;\n\n  oPrn&#58;Write&#40;cCompany&#41;  // Nombre de la compañia\n\n  // Cancelar double strike For Epson\n  //oPrn&#58;Command&#40;&quot;27,72&quot;&#41;\n\n   oPrn&#58;NewLine&#40;&#41;\n   oPrn&#58;Write&#40;cAddress&#41;\n\n   oPrn&#58;NewLine&#40;&#41;\n   oPrn&#58;Write&#40;cPhone&#41;\n\n  oPrn&#58;End&#40;&#41;\n[/code:xb9q7dhu]\n\n\nTrabajo con xBuilder (xHarbour) + FWH\n\nSaludos\n\nGeorge','',0,'AIA=','xb9q7dhu',1,0,'',171,0,0),(37386,8093,6,180,0,'81.38.4.227',1189095915,1,0,1,1,1,0,'','Re: una de índices','Hola Moisés:\n\nLocal nOrdenFactura:=FACTURA-&gt;(IndexOrd()) //Guarda el índice actual\nFACTURA-&gt;(DbSetOrder(2)) // Cambia al índice número 2\n.........\n.........\nFACTURA-&gt;(DbSetOrder(nOrdenFactura))//Restaura el índice inicial\n\nSaludos,\nManuel\n\n[quote=&quot;MOISES&quot;:u1f6uprr]Hola:\n\nTengo una base de datos previamente indexada y abierta:\n\nselect 1\nuse usuarios index usuarios shared\n\nme gustaria cambiar el índice para hacer un listado y luego restaurar al índice anterior. Me falla la restauración al índice anterior, que no me sale.\n\nHe probado con set index &amp;tempindex additive y luego set order to 1 pero me sigue cogiendo el indice nuevo. \n\n\nPor favor, os agradecería que me digáis cómo se hace. Un millón de gracias.\n\nUn saludo[/quote:u1f6uprr]','',0,'gA==','u1f6uprr',1,0,'',180,0,0),(37387,8094,6,760,0,'200.37.76.90',1189096535,1,0,1,1,1,0,'','Algunas dudas ???','Hola a todos del foro...\n\nDisculpen mi ignorancia, pero quiero aplicar los comando en sus respectivos lugares dentro de mis sistemas.\n\nQuiero una breve explicacion sobre para que sirve el rebar, toolbar, statusbar contra el buttonbar y messagebar.\n\nSi no es mucha molestia...\n\nSalu2\n\nFrancis <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','lq2d5g7z',1,0,'',760,0,0),(37388,8082,6,278,0,'200.126.124.232',1189096598,1,0,1,1,1,1,'','','Compatriota :\n\nSi es una impresora serial, tu problema es la velocidad del puerto,\ndebes setear la velocidad con \n\n[b:3d793don]mode com1:9600,n,8,1[/b:3d793don]\n\npor eso te salen esos caracteres raros. No esta seteada la\nvelocidad de la impresora,\n\nGeneralmente yo utilizo un bat con estos datos y funciona OK.\n\n( Feliz mes de la patria - tiki- tiki- tiii  )  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos,','',0,'QA==','3d793don',1,0,'',278,0,0),(37391,8093,6,36,0,'164.77.81.210',1189097804,1,0,1,1,1,1,'','','Puedes usar tambien OrdSetfocus\n\ncFocu := Alias-&gt;( OrdSetFocus() ) // guarda indice \n\nalias-&gt;( OrdSetFocus( \"tag2\" ) )\n\nblblblblb\n\nalias-&gt;( OrdSetFocus( cFocu ) ) //restauramos el indice....\n\nespero que te sirva','',0,'QA==','27kvkrgy',1,0,'',36,0,0),(37392,5923,4,154,0,'151.21.37.136',1189097854,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:39dyyj73]The problem comes from the PICTURE. If it is not used, then the ES_RIGHT style is working fine:\n[code:39dyyj73]\n    @ 1, 10 GET nVar; \n            SIZE 75, 20; \n            RIGHT \n[/code:39dyyj73][/quote:39dyyj73]\nDear Antonio,\nit work fine! \nI necessity to transform the number with this picture \"@E 999,999.99\" and i modify with the say:[code:39dyyj73]\n    REDEFINE SAY oSay PROMPT cVar\n       oSay&#58;bGet &#58;= &#123;|| Transform&#40; nVar, &quot;@E 999,999&#46;99&quot; &#41; &#125;[/code:39dyyj73]\nwith this solution the number result with gray background and in left position  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nThere are other possibility?','',0,'gIA=','39dyyj73',1,0,'',154,0,0),(37393,8093,6,1146,0,'83.40.249.202',1189097978,1,0,1,1,1,0,'','','Hola:\n\nMuchas gracias por responderme. Perdón, se trata de un índice temporal que creo antes de usar el listado.\n\nhago un set index to &amp;tempfile\n\nlo que me has dicho también lo he probado y nada. Vuelve siempre al índice temporal que he creado.\n\nUn saludo','',0,'gIA=','s7xyl6xy',1,0,'',1146,0,0),(37394,8095,3,529,0,'200.159.198.80',1189098093,1,0,1,1,1,0,'','harbour cvs updated','hi, someone has the new parameters for down cvs harbour?? i use this for xharbour :\nCVSROOT=:pserver:anonymous@xharbour.cvs.sourceforge.net:/cvsroot/xharbour\n\nthanks','',0,'gIA=','22uesn5u',1,0,'',529,0,0),(37395,8093,6,507,0,'200.67.110.245',1189100251,1,0,1,1,1,1,'','Quizas...','No me ha pasado, pero creo haber visto en la ayuda de clipper, algo acerca de un Additive o algo asi..\n\nporque no lo checas...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.ousob.com/ng/53guide/\">http://www.ousob.com/ng/53guide/</a><!-- m --> \n\nSaludos','',0,'gIA=','pfu06eku',1,0,'',507,0,0),(37396,8093,6,1146,0,'83.40.249.202',1189101653,1,0,1,1,1,0,'','','Sí, si ya lo he probado\n\nset index &amp;tempind additive\n\npero sigue sin ir.','',0,'gIA=','1opyuqp4',1,0,'',1146,0,0),(37397,5923,4,2,0,'87.218.146.5',1189102923,1,0,1,1,1,1,'','','Ugo,\n\nYou may use PadL() to add spaces on the left side. is that ok ?','',0,'gIA=','1d6wc3tz',1,0,'',2,0,0),(37398,8041,6,2,0,'87.218.146.5',1189103618,1,0,1,1,1,1,'','','Edu,\n\nSe soluciona con un pequeño cambio:\n[code:7zqadlj5]\nMETHOD SelFont&#40;&#41; CLASS TXBrowse\n\n   local oFont, n\n\n   DEFINE FONT oFont FROM USER\n   \n   if oFont&#58;cFaceName != &quot;SYSTEM_FONT&quot;\n   \n      for n = 1 to Len&#40; &#58;&#58;aCols &#41;\n         &#58;&#58;aCols&#91; n &#93;&#58;oDataFont = oFont\n      next\n   \n      &#58;&#58;Refresh&#40;&#41;\n   endif   \n   \nreturn nil      \n[/code:7zqadlj5]','',0,'AIA=','7zqadlj5',1,0,'',2,0,0),(37399,8090,3,161,0,'81.83.249.31',1189103738,1,0,1,1,1,0,'','','Thanks Enrico\n\nMarc','',0,'AIA=','3n2c2n54',1,0,'',161,0,0),(37400,8094,6,2,0,'87.218.146.5',1189103957,1,0,1,1,1,1,'','','Francis,\n\n&gt; el rebar, toolbar, statusbar\n\nSon controles nativos (32 bits) de Windows. Revisa samples\\rebars.prg para ver un ejemplo de uso de rebar y toolbars. Revisa samples\\stbar.prg para un ejemplo de uso de statusbar.\n\n&gt; contra el buttonbar y messagebar.\n\nSon controles creados por FiveWin (16 y 32 bits), que no son nativos de Windows.','',0,'AIA=','324ovbv4',1,0,'',2,0,0),(37401,8095,3,2,0,'87.218.146.5',1189104041,1,0,1,1,1,1,'','','Norberto,\n\nHarbour does not use CVS any longer. Now it uses SVN (subversion).','',0,'AIA=','2z555qvq',1,0,'',2,0,0),(37402,8078,1,2,0,'87.218.146.5',1189104197,1,0,1,1,1,1,'','','Jose,\n\nYou are using a very old FiveWin version. Its quite difficult to help you. You should upgrade your FW version.\n\nPlease consider porting your app to FWH and Harbour 32 bits. They will save you from a lot of troubles.','',0,'AIA=','30ff0bk6',1,0,'',2,0,0),(37403,8076,6,2,0,'87.218.146.5',1189104332,1,0,1,1,1,1,'','','Esteban,\n\nTienes los ficheros de configuración para FWH en FWH\\UEStudio','',0,'AIA=','2tp5q6xv',1,0,'',2,0,0),(37404,8092,6,2,0,'87.218.146.5',1189104440,1,0,1,1,1,1,'','','Luis,\n\nLa versión de FWH que usas no usa \"enhanced metafiles\" de 32 bits. \nDeberías actualizarte a la versión actual de FWH, que sí los usa.','',0,'AIA=','2okck63v',1,0,'',2,0,0),(37405,8091,6,2,0,'87.218.146.5',1189105213,1,0,1,1,1,1,'','','Aoki,\n\nFWH does it automatically. Don\'t care about it.','',0,'AIA=','1d6qne1w',1,0,'',2,0,0),(37406,8082,6,109,0,'189.192.180.57',1189107544,1,0,1,1,1,0,'','','Por si te sirve:\n   En el acceso directo corre un bat\n\n          mode com1:9600,n,8,1\n          mode lpt1=com1\n          pos.exe\n\n   Y en tu prg de impresion\n\n                  oRep:=TdosPrg():New(\"LPT1\")\n                  //Especiales\n                  oRep:Say(00,00,CHR(27)+\"@\")                  // INDICA QUE SE INICIA CONFIGURACION\n                  oRep:Say(00,00,CHR(27)+\"t\"+CHR(0))\n                  oRep:Say(00,00,CHR(27)+\"c0\"+CHR(2))          // ACTIVA RECEIVE  COMO HOJA(TICKET)\n                  oRep:Say(00,00,CHR(27)+\"z\"+CHR(0))\n                  //Inicia de la impresion del Fondo\n                  oRep:Say(n,00,Padc(\"REGISTRO DE FONDO INICIAL\",38,\"*\"))\n\n                  oRep ..............\n                  //Termina la impresion del Fondo\n                  n++\n                  cCmd:=Fechas(Date())+\"  \"+Time()+\"    \"+Str(oSys:TiendaSys())+\"    \"\n                  oRep:Say(n,00,cCmd )\n                  //Termina de Imprimir el Fondo\n                  oRep:Say(00,00,Chr(27) + \"d\") //+ Chr(13))   // estas lineas\n                  oRep:Say(00,00,Chr(27) + \"i\") //+ Chr(13))   // cortan el papel\n                  oRep:End()\n\n\n\n*** Espero que te sirva\n       SALUDOS','',0,'AIA=','1ialhr3u',1,0,'',109,0,0),(37407,8096,6,743,0,'201.116.76.180',1189109748,1,0,1,1,1,0,'','ayuda en DLL','saludos \n\n   tengo el siguiente error, no puedo abrir mi dll la verdad no se por que,\npero no tengo respaldo, utilizo el WORKSHOP y la libreria es de 16 bits no la puedo abrir, como hago para abrirla o sacar el contenido del archivo','',0,'AIA=','ehfu3etc',1,0,'',743,0,0),(37408,8096,6,2,0,'87.218.146.5',1189110012,1,0,1,1,1,1,'','','Envíamela como ZIP por email','',0,'AIA=','2f5ohqht',1,0,'',2,0,0),(37409,8097,6,1106,0,'190.64.211.147',1189110748,1,0,1,1,1,0,'','xBrowse','Amigos:\n\nComo hago para mostrar 3 campos por linea.\n\nTengo una BD de 9 campos y quiero mostrarlos de a 3 o sea\n\n3 celdas de 3 campos (son de diferente tipo)\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'AIA=','1t8w00qx',1,0,'',1106,0,0),(37410,8095,3,529,0,'200.159.198.80',1189112979,1,0,1,1,1,0,'','','Antonio, how to make dowload? theres an method? thanks','',0,'AIA=','39npqo94',1,0,'',529,0,0),(37411,8064,3,86,0,'81.83.185.118',1189114038,1,0,1,1,1,1,'','','Norbert,\n\nI experienced that ClickYes is generating often problems. It is also not that easy to install it.\n\nI found a much easier tool at [url:29rlf7c3]http&#58;//www&#46;mapilab&#46;com/outlook/security/[/url:29rlf7c3].\n\nIt is free for commercial and non-commercial use.\n\nJust install it and launch Outlook and everything is ready.\n\nGood luck','',0,'EA==','29rlf7c3',1,0,'',86,0,0),(37412,8095,3,6,0,'79.3.217.170',1189115836,1,0,1,1,1,1,'','','Download TortoiseSVN from\n\n[url:2in9u9yx]http&#58;//tortoisesvn&#46;net[/url:2in9u9yx]\n\nDo a SVN checkout with the following URL of repository:\n\n<!-- m --><a class=\"postlink\" href=\"https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour\">https://harbour-project.svn.sourceforge ... nk/harbour</a><!-- m -->\n\nEMG','',0,'EA==','2in9u9yx',1,0,'',6,0,0),(37413,8095,3,529,0,'200.159.198.80',1189117172,1,0,1,1,1,0,'','','Antonio, Enrico, very thanks.','',0,'EA==','aqwd0tsu',1,0,'',529,0,0),(37414,8064,3,138,0,'189.156.43.56',1189120134,1,0,1,1,1,1,'','','I do use Funcky por emailing (and for a thousands of things more):\n[code:3c7rqvvh]\nFunction SendMail&#40;&#41;\n   LOCAL cText &#58;= Memoread&#40;&quot;w&#58;\\cgi-win\\cdfw\\message&#46;txt&quot;&#41;\n   LOCAL oMail &#58;= TOLEAUTO&#40;&#41;&#58;NEW&#40;&quot;funckysmtp&quot;&#41;\n   LOCAL aFail &#58;= &#123;&#125;\n\n   WITH OBJECT oMail\n      &#58;Server =&quot;smtp&#46;server&#46;com&quot;\n      &#58;FromName &#58;= &quot;google user information&quot;\n      &#58;FromAddress &#58;= &quot;info@google&#46;com&quot;\n      &#58;Subject &#58;= &quot;Comming soon training in your locality&quot;\n      &#58;Message &#58;= cText\n   END\n\n   fw-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n   DO WHILE ! fw-&gt;&#40;EOF&#40;&#41;&#41;\n      WITH OBJECT oMail\n         &#58;ToName &#58;= ALLTRIM&#40;fw-&gt;nombre&#41;\n         &#58;ToAddress &#58;= ALLTRIM&#40;fw-&gt;mail&#41;\n         IF ! &#58;Send&#40;&#41;\n            AADD&#40;aFail,&#123;fw-&gt;nombre,fw-&gt;mail&#125;&#41;\n         ENDIF\n      END\n      fw-&gt;&#40;DBSKIP&#40;&#41;&#41;\n      oDbfBrowse1&#58;Refresh&#40;&#41;\n   ENDDO\n   MsgInfo &#40;&quot;Finished&quot;&#41;\nRETURN Nil[/code:3c7rqvvh]','',0,'AIA=','3c7rqvvh',1,0,'',138,0,0),(37415,8098,6,252,0,'201.140.19.199',1189136040,1,0,1,1,1,0,'','RepExcel. Una pregunta tonta.','Hola.\n\n   Acabo de bajar la excelente herramienta repexcel. Pero tengo una duda: ¿como puedo mandar el reporte a un archivo XLS sin pasar por el preview?.\n\n    De antemano muchas gracias.\n\n   Saludos.\n\n   Jose Rios.','',0,'AIA=','2r2qgb4y',1,0,'',252,0,0),(37416,8097,6,1106,0,'190.64.195.159',1189139795,1,0,1,1,1,0,'','Necesito ayuda por favor','Amigos:\n\nEl For ... Next\nno me funciona\n\nDebo cargar los campos sin saber el nombre de ellos, por eso\nlo averiguo con Fieldname.\n\nMuchas gracias.\n\noBrw := TXBrowse():New( oDlg )\n\n\noCol:=oBrw:AddCol()\noCol:cHeader:= \"Mesa\" +CRLF+\"Apertura\"+\"\"\noCol:bStrData:= {|| DToC((basedato)-&gt;sesi)+CRLF+(basedato)-&gt;MESA_1+CRLF+(basedato)-&gt;MESA_2  }  \nnfor:=4\nnSigue:=4\nnCampito1:=\"\"\nnCampito2:=\"\"\nnCampito3:=\"\"\nnImporte1:=0\nnImporte2:=0\nnImporte3:=0\n\n\n   for nFor := 4 to 9\n       oCol:=oBrw:AddCol()\n       oCol:cHeader:= \"Hora:\"+CRLF+SubStr(FieldName(NFOR),2,2 )\n       nCampito1 := (basedato)-&gt;(FieldName(NFOR) ) \n       nCampito2 := (basedato)-&gt;(FieldName(NFOR+1) )\n       nCampito3 := (dasedato)-&gt;(FieldName(NFOR+2) ) \n nImporte1:=Transform((basedato)-&gt;(FIELDGET(FieldPos(nCampito1))),\"9999999,99\")\n       nImporte2:=Transform((basedato)-&gt;(FIELDGET(FieldPos(nCampito2))),\"9999999,99\")\n       nImporte3:=Transform((basedato)-&gt;(FIELDGET(FieldPos(nCampito3))),\"9999999,99\")\n       \n       oCol:bStrData:= {|| str(nImporte1)+CRLF+str(nImporte2)+CRLF+str(nImporte3) }  \n       \n       oCol:nWidth:= 120                    \n       NFOR+=2 \n       \n                            \n   next\n \n\n  \n  \n   oBrw:CreateFromResource( 110 )\n\n\n   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n   oBrw:nColDividerStyle    := LINESTYLE_BLACK\n   oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n   oBrw:lColDividerComplete := .t.\n   oBrw:nHeaderLines        := 3\n   oBrw:nFooterLines        := 1\n   oBrw:nDataLines          := 3\n   oBrw:lFooter             := .t.\n   oBrw:SetRDD()\n   oBrw:GoTop()\n\n\noBrw:Refresh(.t.)   \n\nMuchas gracias nuevamente.','',0,'AIA=','muxnlf6j',1,0,'',1106,0,0),(37418,8100,6,854,0,'189.131.30.98',1189147508,1,0,1,1,1,0,'','En las modificaciones de Rossine del ToolTip','Que tal, Rossine, como puedo meter mas Iconos en la modificaciones que hiciste en el ToolTip, se podria ?\n\nGracias.','',0,'AIA=','1zb5s1q4',1,0,'',854,0,0),(37419,8101,3,2,0,'87.218.146.5',1189152039,1,0,1,1,1,1,'','FWH - New Class TOutLook2003','This is a prototype of the new Class TOutLook2003 that will be included in FWH 7.09 this month\n[url=http&#58;//imageshack&#46;us:3d4tji8c][img:3d4tji8c]http&#58;//img394&#46;imageshack&#46;us/img394/3556/outlookst4&#46;png[/img:3d4tji8c][/url:3d4tji8c]','',0,'GA==','3d4tji8c',1,0,'',2,0,0),(37420,8102,6,2,0,'87.218.146.5',1189152187,1,0,1,1,1,1,'','FWH - Nueva Clase TOutLook2003','Este es un prototipo de la nueva Clase TOutLook2003 que se incluirá en FWH 7.09 este mes:\n[url=http&#58;//imageshack&#46;us:4r4tbpgy][img:4r4tbpgy]http&#58;//img394&#46;imageshack&#46;us/img394/3556/outlookst4&#46;png[/img:4r4tbpgy][/url:4r4tbpgy]','',0,'GA==','4r4tbpgy',1,0,'',2,0,0),(37421,8093,6,960,0,'217.12.16.52',1189154433,1,0,1,1,1,0,'','','Debes hacer lo siguiente:\n1.- primero abre la DBF en modo exclusivo\n2.- creas el NTX temporal correspondiente\n3.- abres la DBF en modo compartido con los 2 NTX\n4.- utilizas la orden: set order to 1 o 2 en función de tus necesidades\n\nes decir...\n\nuse usuarios exclusive\nindex on campo to otroNTX\nuse\nuse usuarios index usuarios,otrontx SHARED\nset order to 2\n.....\n....\nset order to 1\n...\n\n\ny listo el pollo!!','',0,'GA==','1sn9dchj',1,0,'',960,0,0),(37422,8101,3,135,0,'87.23.168.190',1189157959,1,0,1,1,1,0,'','','Great Antonio','',0,'GA==','2x0vjzzb',1,0,'',135,0,0),(37424,8104,6,316,0,'213.97.245.163',1189158641,1,0,1,1,1,0,'','TXBrowse: Asociar Indices a los headers de las columnas','Hola compañeros,\n\nestoy cambiando un TSBrowse por un TXBrowse. En la configuración anterior tenía el TSBrowse definido de forma tal que al hacer dobleclick en una columna se cambiaba a un índice asociado, como en \n[code:wa3fd5cn]         ADD COLUMN TO OBROWSE HEADER  &quot;CONCEPTO&quot; ;\n            ORDER &quot;CONCEPTO&quot;[/code:wa3fd5cn]\nComo se hace lo mismo en TXBrowse? He estado buscando pero no encuentro nada relacionado en el código, aunque me parece haberlo visto en algun lado.\n\nSaludos,\n\nCarlos.','',0,'AIA=','wa3fd5cn',1,0,'',316,0,0),(37425,8101,3,1064,0,'61.70.211.182',1189159177,1,0,1,1,1,0,'','','looks cool Antonio !!','',0,'AIA=','2anzbt9c',1,0,'',1064,0,0),(37426,8102,6,1146,0,'83.54.220.0',1189160592,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias por seguir mejorando FW. Es genial!!!. ¿Se podrán poner opciones dentro, como se hacía con la clase anterior?.','',0,'AIA=','aksnz4mg',1,0,'',1146,0,0),(37427,8093,6,1146,0,'83.54.220.0',1189160659,1,0,1,1,1,0,'','','El problema es que NO puedo abrir la base en exclusive. Si no, claro que sería más fácil, pero no puedo cerrar la base ni abrirla en exclusive.','',0,'AIA=','18tz5tgw',1,0,'',1146,0,0),(37428,8102,6,2,0,'87.218.146.5',1189160667,1,0,1,1,1,1,'','','Moises,\n\nGracias. \n\nSí, funciona como un folder: \nSe pueden poner diálogos diseñados con el editor de recursos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1pla8707',1,0,'',2,0,0),(37429,8076,6,1146,0,'83.54.220.0',1189160748,1,0,1,1,1,0,'','','A mi me gusta mucho MED, se ve mucho mejor a mi gusto que UE estudio. La web es <!-- m --><a class=\"postlink\" href=\"http://www.med-editor.com/indexus.html\">http://www.med-editor.com/indexus.html</a><!-- m -->','',0,'AIA=','2by05efl',1,0,'',1146,0,0),(37430,8105,18,1146,0,'83.54.220.0',1189163654,1,0,1,1,1,0,'','error en MsgWait y MsgRun','Antonio:\n\nMsgWait y MsgRun no se muestran correctamente bajo 32 bits, el cálculo de coordenadas no es correcto pues el texto de cuerpo se recorta:\n\n[url=http&#58;//img521&#46;imageshack&#46;us/my&#46;php?image=fivewinerrordp6&#46;jpg:2pnspbmf][img:2pnspbmf]http&#58;//img521&#46;imageshack&#46;us/img521/5594/fivewinerrordp6&#46;th&#46;jpg[/img:2pnspbmf][/url:2pnspbmf]\n\n\nMuchas gracias. Salu2,','',0,'GA==','2pnspbmf',1,0,'',1146,0,0),(37431,8106,18,1146,0,'83.54.220.0',1189165989,1,0,1,1,1,0,'','error en MsgGet','Antonio:\n\nHay varios errores en msgget:\n\na) El espacio Ref A, que es por si se especifica un bitmap, debería eliminarse cuando NO se especifica, para que quede centrado. \n\nb) El espacio Ref B es muy pequeño. El márgen izquierdo debería ser igual al margen derecho cuando NO hay bitmap.\n\nc) El espacio inferior es también pequeño.\n\nEn definitiva, redimensionar bien el diálogo.\n\nd) Los botones se muestran en inglés. Deberían mostrarse en el mismo idioma que el sistema operativo, como sucede con msgstop, msgalert, etc.\n\nMuchas gracias.','',0,'GA==','2sytqzcn',1,0,'',1146,0,0),(37432,8106,18,1146,0,'83.54.220.0',1189166009,1,0,1,1,1,0,'','','[url=http&#58;//img205&#46;imageshack&#46;us/my&#46;php?image=msggetad7&#46;jpg:2ohxv973][img:2ohxv973]http&#58;//img205&#46;imageshack&#46;us/img205/6031/msggetad7&#46;th&#46;jpg[/img:2ohxv973][/url:2ohxv973]','',0,'GA==','2ohxv973',1,0,'',1146,0,0),(37433,8104,6,103,0,'189.43.121.190',1189169883,1,0,1,1,1,1,'','','Hola Carlos,\n\nUsas asi:\n\n[code:12aee77v]\n   oBrw                  &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg1 &#41;\n   oBrw&#58;nMarqueeStyle    &#58;= MARQSTYLE_HIGHLROW\n   oBrw&#58;nColDividerStyle &#58;= LINESTYLE_LIGHTGRAY\n   oBrw&#58;nRowDividerStyle &#58;= LINESTYLE_LIGHTGRAY\n   oBrw&#58;bSeek            &#58;= &#123;|c| DbSeek&#40; Upper&#40; c &#41; &#41; &#125;\n[/code:12aee77v]\n\nY en las columnas, yo defino asi:\n\n[code:12aee77v]\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;Código&quot;\n   oCol&#58;bStrData      &#58;= &#123; || IF&#40; SELECT&#40;oBrw&#58;cAlias&#41; &gt; 0,PRO-&gt;codi,&quot;&quot;&#41;  &#125;\n   oCol&#58;nDataStrAlign &#58;= AL_LEFT\n   oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n   oCol&#58;nWidth        &#58;= 82\n   oCol&#58;bLClickHeader &#58;= &#123;|| Checa_Indices&#40;1,1,oBrw,&quot;PRO&quot;&#41; &#125;\n   oCol&#58;AddBmpFile&#40; &quot;BLANK&#46;BMP&quot;, &#46;T&#46; &#41;\n   oCol&#58;AddBmpFile&#40; &quot;CLIP&#46;BMP&quot;, &#46;T&#46; &#41;\n   oCol&#58;nHeadBmpNo &#58;= 2\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;Descrição&quot;\n   oCol&#58;bStrData      &#58;= &#123; || IF&#40; SELECT&#40;oBrw&#58;cAlias&#41; &gt; 0,PRO-&gt;nome,&quot;&quot;&#41;  &#125;\n   oCol&#58;nDataStrAlign &#58;= AL_LEFT\n   oCol&#58;nHeadStrAlign &#58;= AL_LEFT\n   oCol&#58;nWidth        &#58;= 302\n   oCol&#58;bLClickHeader &#58;= &#123;|| Checa_Indices&#40;2,2,oBrw,&quot;PRO&quot;&#41; &#125;\n   oCol&#58;AddBmpFile&#40; &quot;BLANK&#46;BMP&quot;, &#46;T&#46; &#41;\n   oCol&#58;AddBmpFile&#40; &quot;CLIP&#46;BMP&quot;, &#46;T&#46; &#41;\n   oCol&#58;nHeadBmpNo &#58;= 1\n[/code:12aee77v]\n\nDonde la función Checa_Indices() es solo para cambiar el bitmap que aparece en el header, asi:\n\n[code:12aee77v]\n//----------------------------------------------------------------------------//\nFunction Checa_Indices&#40; nX, nZ, oBrwX, xAlias &#41;\n// Verificação do set order e dos headers\n// nX - Índice\n// nZ - Posição da coluna no browse\n// oBrwX - Browse\n// xAlias - Tabela a ser atualizada\n//----------------------------------------------------------------------------//\n\nfor nA &#58;= 1 to len&#40; oBrwX&#58;aCols &#41;\n    oCol &#58;= oBrwX&#58;aCols&#91; nA &#93;\n    if oCol&#58;nHeadBmpNo &gt; 0\n       if nA = nZ\n          oCol&#58;nHeadBmpNo &#58;= 2\n       else\n          oCol&#58;nHeadBmpNo &#58;= 1\n       endif\n    endif\nnext\nsele &#40;xAlias&#41;\nDbSetOrder&#40;nX&#41;\noBrwX&#58;Refresh&#40;&#41;\nreturn nil\n[/code:12aee77v]\n\nEspero que te ayude.\n\nSaludos,','',0,'AIA=','12aee77v',1,0,'',103,0,0),(37434,8076,6,103,0,'189.43.121.190',1189170224,1,0,1,1,1,1,'','','Pues a mi me gusta muchisimo un nuevo editor llamado xDevStudio. La unica cosa que no tiene es el editor de recursos, pero con el puedo hacer proyectos con Clipper+FW, Harbour+FWH, xHarbour+FWH o lo que sea.\nEl link para bajar es: <!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/download.php?id=xDevStudio\">http://www.sqllib.com.br/download.php?id=xDevStudio</a><!-- m -->\nY es free!!\n\nSaludos,','',0,'AIA=','1z962gxd',1,0,'',103,0,0),(37435,8104,6,316,0,'213.97.245.163',1189170580,1,0,1,1,1,0,'','','Hola Kleyber\n\nmuchas gracias por el código. El unico inconveniente es que TXBrowse no se refesca bien si por ejemplo está en el renglon 4 y con el nuevo indice estamos en la clave 2. Y hacer un Refresh(.T.) hace un gotop que no es lo que quiero.\nHay que tocar el refresh antes para que pivotee de manera correcta sobre el registro actual.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','2nk09gmq',1,0,'',316,0,0),(37436,8086,3,160,0,'59.96.150.186',1189176078,1,0,1,1,1,0,'','','Dear All,\n\nI am trying Cayetano\'s bar lib. This is my sample program. But I am getting only black patches. What am I doing wrong ?\n\nTIA\nMilan\n\n----------------------------Cut-----------------------------------\n# INCLUDE \"fivewin.ch\"\n\nPROCEDURE Main\n   LOCAL cCode := \'ADIPM5996N\'\n   LOCAL oPrinter, nRow, nCol\n\n   nRow := 10        // pixel\n   nCol := 10        // pixel\n\n   PRINTER oPrinter FROM USER NAME \"Barcode Test\" PREVIEW\n\n   oPrinter:StartPage()\n\n   //Code128(nRow,nCol,cCode,oPrinter,\'A\',CLR_BLACK,.T., 2,1)\n\n   nRow := 50\n   nCol := 10\n\n   Code3_9(nRow,nCol,cCode,oPrinter,.T.,CLR_BLACK,.T.,2,1)\n\n\n   oPrinter:EndPage()\n\n   oPrinter:Preview()\n\n   RETURN\n----------------------------Paste---------------------------------','',0,'AIA=','3n9bubnb',1,0,'',160,0,0),(37437,8098,6,252,0,'201.140.21.123',1189176552,1,0,1,1,1,0,'','','Vamos, tan solo diganme si se puede o no se puede. Me he pasado un buen rato haciendo pruebas, y ninguna ha funcionado. \n\n   Si la salida es a preview el archivo se manda a excel facil y rapido, pero deseo saber si se puede mandar el reporte directamente a excel sin mandarlo desde el preview.\n\n   Saludos.\n\n   Gracias','',0,'AIA=','2ubpt7y8',1,0,'',252,0,0),(37438,8107,6,1106,0,'190.64.192.106',1189177713,1,0,1,1,1,0,'','Sigo con xBrowse - Por favor','Amigos:\n\nBase de datos de 30 registros\nLos debo mostrar de a 3\ncargo los primeros 3 y los restantes con un for pero me muestra\nsolamente los datos del ultimo registro.\n\nEste es el código\nLos datos que conozco de la BD son los 3 primeros campos los otros no\n\nacTituBrw:=DBStruct()  estructura de la base de datos  \n\noBrw := TXBrowse():New( oDlg )\n\noCol:=oBrw:AddCol()\noCol:cHeader:= \"Mesa\" +CRLF+\"Apertura\"+\"\"\noCol:bStrData:= {|| DToC((base1)-&gt;sesi)+CRLF+(base1)-&gt;MESA_1+CRLF+(base1)-&gt;MESA_2  }  \ni :=4\nnCampito1:=\"\"\nnCampito2:=\"\"\nnCampito3:=\"\"\nnI1:=0\nnI2:=0\nnI3:=0\n\nfor i := 4 to Len(acTituBrw)\n       oCol:=oBrw:AddCol()\n       oCol:cHeader:= \"Hora:\"+CRLF+SubStr(FieldName(i),2,2 )\n       //Las cabeceras las carga bien, son los caracteres 3y4 del campo \n       nCampito1 := (base1)-&gt;(FieldName(i) )      \n       nCampito2 := (base1)-&gt;(FieldName(i+1) )\n       nCampito3 := (base1)-&gt;(FieldName(i+2) )\n *      MsgInfo(nCampito1)     // muestra bien    \n *      MsgInfo(nCampito2)     // muestra bien\n *      MsgInfo(nCampito3)     // muestra bien\n       nI1:=(base1)-&gt;(FIELDGET(FieldPos(nCampito1)))   \n       nI2:=(base1)-&gt;(FIELDGET(FieldPos(nCampito2)))\n       nI3:=(base1)-&gt;(FIELDGET(FieldPos(nCampito3)))\n *      MsgInfo(ni1)   // muestra bien\n *      MsgInfo(ni2)   // muestra bien\n *      MsgInfo(ni3)  // muestra bien\n       oCol:bStrData:= {|| Str(ni1)+CRLF+Str(ni2)+CRLF+Str(ni3) }  \n       oCol:nWidth:= 120\n       i+=3        \n      \nnext\n   \n   oBrw:CreateFromResource( 110 )\n   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n   oBrw:nColDividerStyle    := LINESTYLE_BLACK\n   oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n   oBrw:lColDividerComplete := .t.\n   oBrw:nHeaderLines        := 3\n   oBrw:nFooterLines        := 1\n   oBrw:nDataLines          := 3\n   oBrw:lFooter             := .t.\n   oBrw:SetRDD()\n   oBrw:GoTop()\n\noBrw:Refresh(.t.)            \n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.\nLa estructura es \nMesa1,mesa2,mesa3,;\nH00A1,H00A2,H00A3,;\n...\nH15A1,H15A2,H15A3...','',0,'AIA=','2s82gh8w',1,0,'',1106,0,0),(37439,8086,3,53,0,'189.139.98.182',1189177735,1,0,1,1,1,1,'','','Milan:\n\nPerhaps this code line is missing\n\n#Include \"BarCode.ch\"\n\nBTW, in \\Samples folder there is a good sample using the barcode lib.\n\nRegards','',0,'AIA=','ypmz718a',1,0,'',53,0,0),(37440,8093,6,875,0,'64.76.108.182',1189178846,1,0,1,1,1,0,'','','Por lo que entiendo tu tabla tiene 2 Indices\n\nSi es asi solo abrelo con los 2 indices y luego usa Set Order To\n\n\nUse tabla Shared\nSet Index To Indice1, Indice2\n\n\nSet Order To 2  // usas el indice 2.\n\nSet Order To 1 // regresas al indice 1.\n\n\ny listo','',0,'AIA=','3c4l6a2c',1,0,'',875,0,0),(37441,8093,6,854,0,'189.131.30.98',1189179497,1,0,1,1,1,0,'','','Por lo que entiendo es que su tabla tiene un solo indice\n\nCrear un indice al vuelo, utilizarlo y despues regresar al indice inicial\n\nEs correcto ?\n\nAhora porque no le pones 2 indice a tu tabla para no estar creando indices al vuelo ?','',0,'AIA=','3oew2k8w',1,0,'',854,0,0),(37443,8109,6,221,0,'190.78.43.229',1189181159,1,0,1,1,1,0,'','COMO JUSTIFICAR A AMBOS LADOS UN PARRAFO COMPLETO','SALUDOS DEBO IMPRIMIR UNOS FORMULARIOS, PERO SE PRESENTA EL PROBLEMITA DE QUE TIENEN CAMPOS, CAMPOS QUE AUNQUE TIENEN UNA LONGITUD FIJA DEFINIDA PUEDEN ESTAR CON DATOS DE X LONGITUD.\n\nEJ NOMBRE (PUEDE SER JOSE COMO PUEDE SER MAXIMILIANO)\n\nEL ASUNTO ES QUE NECESITO VER SI HAY UNA MANERA DE JUSTIFICAR A AMBOS LADOS LA CADENA CON EL TEXTO QUE LE ANTECEDE Y LE SIGUE OSEA, CON LA LINEA ANTERIOR Y LA QUE SIGUE O MEJOR DICHO EN CRISTIANO JUSTIFICAR A AMBOS LADOS EL PARRAFO COMPLETO\n\nGRACIAS DE ANTEMANO','',0,'AIA=','2ue2h6fk',1,0,'',221,0,0),(37444,8093,6,179,0,'190.10.177.151',1189181917,1,0,1,1,1,1,'','','Moises yo lo haria asi\n\nUse tabla Shared\nindex on Campodetutabla to (cNtx) //indice temporal\n\ntabla-&gt;( dbclosearea() )\n\nUse tabla index Indice1, Indice2 Shared\nSet Index To 1  // o set index to 2\n\nOJO durante la base este abierta con el indice temporal NO PUEDES AUMENTAR no modificar registros porque no se actualizarian los indices, y si eso es lo que necesitas deberias hacer asi\n\nUse tabla Shared\nindex on Campodetutabla to cNtx //indice temporal\n\ntabla-&gt;( dbclosearea() )\n\nUse tabla index Indice1, Indice2, cNtx Shared\nSet Index To 1  // o set index to 2 (// o set index to 3\n\naqui si ya podrias aumentar o editar registros, al final cierras la tabla y eliminas el indice temporal\ndbclosearea()\nferase( cNtx )\n\n \nespero te sirva \nSaludos','',0,'AIA=','2dc4i5kl',1,0,'',179,0,0),(37445,8093,6,1146,0,'81.47.144.149',1189182109,1,0,1,1,1,0,'','','Sí, lo que necesito es crear índices al vuelo. No puedo cerrar la base de datos, ni abrirla en modo exclusivo.\n\nMuchas gracias.','',0,'AIA=','dnhed8bt',1,0,'',1146,0,0),(37446,8110,6,774,0,'200.72.190.61',1189182649,1,0,1,1,1,1,'','DATABASE CONSULTA AL QUE SEPA,, PARA APRENDER','Estimados Colegas...\n\nmi duda es,, alguien usa la clase DATABASE con MDI y si fuera asi esta clase maneja los alias en forma automatica... \n\nGRACIAS\n\nSi alguien tubiera un ejemplo de como manejas alias con la clase favor me lo indique....','',0,'AIA=','ztiveauy',1,0,'',774,0,0),(37447,7505,2,221,0,'190.78.43.229',1189183514,1,0,1,1,1,0,'','RENE Y QUE ES Funcky','SALUDOS\n\nQUE ES Funcky\n\nGRACIAS','',0,'AIA=','19x3dhsk',1,0,'',221,0,0),(37448,8111,6,1146,0,'81.47.144.149',1189183664,1,0,1,1,1,0,'','TURL para Harbour','Hola:\n\n¿Está disponible TURL para Harbour?. ¿Dónde la puedo bajar?. Muchas gracias.\n\nSalu2','',0,'AIA=','3jk4r889',1,0,'',1146,0,0),(37449,8111,6,221,0,'190.78.43.229',1189183970,1,0,1,1,1,0,'','QUE ES TURL','QUE ES TURL','',0,'AIA=','3macdddq',1,0,'',221,0,0),(37450,8111,6,1146,0,'81.47.144.149',1189184206,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5448&amp;highlight=turl\">http://fivetechsoft.com/forums/viewtopi ... light=turl</a><!-- m -->','',0,'AIA=','14y2nf68',1,0,'',1146,0,0),(37451,8112,6,140,0,'190.39.121.69',1189187209,1,0,1,1,1,0,'','Problemas con teclas Fn y teclado numérico con oLBx:bKeyDown','Hola a todos...\n\nEn un ListBox estoy interceptando las teclas que presiona un usuario por medio de oLBx:bKeyDown.\n\nEl caso es que los códigos de las teclas de función F1 a F12 coinciden con el código de los caracteres \'p\' a \'z\' (ASCII minúsculas 112~122) y \'{\' (ASCII 123)... los caracteres del teclado numérico (numpad) \'0\' al \'9\' coinciden con los caracteres \'`\' (ASCII 96) y \'a\' a \'i\' (ASCII minúsculas 97~105).\n\nEl caso es que uso los caracteres alfabéticos y/o numéricos para hacer búsquedas incrementales, y necesito también las teclas de función para las teclas aceleradoras que se han asignado para las distintas tareas del programa... Si el usuario desea hacer una búsqueda incremental escribiendo \'queso\' (así... en minúsculas) resulta que al presionar la tecla \'q\' se dispara el evento que se le ha asignado a la tecla F2... o si el usuario desea buscar algo como \'7125\' haciendo uso del teclado numérico, entonces el ListBox se comporta como si el usuario estuviese escribiendo \'gabe\'...\n\nEntonces... la gran pregunta...\nHay alguna forma de separar los códigos de las teclas de función y los códigos del teclado numérico de los códigos de la tabla ASCII estandar???\nAlgo así como que los códigos de las teclas de función tengan valores negativos tal como lo hace el viejo y querido Clipper???\n\n1GB de Gracias de antemano por los comentarios\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela','',0,'AIA=','2k4tb6kh',1,0,'',140,0,0),(37452,8113,6,760,0,'200.37.76.87',1189187324,1,0,1,1,1,0,'','splitter, browse y outlook','Hola a todos del foro\n\nTengo una ventana mdi, y quiero que al lado derecho aparesca el outlook con opciones de gestion que ya lo hice, pongo un splitter a su costado, y al lado derecho quiero el twbrowse, pero no me sale el browse.\nQue ma falta para hacer esto...\n\nSalu2\n\nFrancis','',0,'AIA=','nlknpop1',1,0,'',760,0,0),(37453,7505,2,138,0,'189.175.145.191',1189198758,1,0,1,1,1,1,'','','Funcky es un componente OLE que trae mas de 1000 metodos y funciones para usar con xHarbour.\n\nEs la nueva version de la vieja libreria Funcky para Clipper de 1987, ahora 20 años despues, sigue actual pero ahora para Windows y para todos los lenguajes de programacion, xHarbour incluido.\n\nTiene componentes para todo:\n\n*  Manipulación de Bits\n* Conversión de datos\n* Manejo de fechas\n* Gestión de discos y unidades\n* Información del entorno\n* Gestión de archivos\n* Rutinas de Internet (IIS uploading, SMTP, FTP, protocolo TCP-IP, estadísticas de red, Winsock, etc.)\n* Comunicación entre procesos\n Rutinas varias (chequeo de tarjetas de crédito, validación de códigos postales, números aleatorios, etc.)\n* Gestión de red (dominios, equipos, usuarios, información, etc.)\n* Registro de eventos de NT\n* Gestión de servicios de NT\n* ODBC y OLEDB\n* Gestión de impresoras\n* Manipulación del registro\n* Manipulación de cadenas\n* Objetos de sincronización\n* Información del sistema','',0,'AIA=','9etme6a5',1,0,'',138,0,0),(37454,8085,2,348,0,'201.240.141.242',1189205012,1,0,1,1,1,0,'','Re: Por favor ayuda con impresion a Matrixiales','Hola Raul \n\nQuizas sea que tu impresora no tenga capturado el puerto LPT1 para la impresora predeterminada,  si estas en Win98 verifica en Propiedades de la Impresora la opcion de Capturar Puerto de Impresion, para LPT1 debe tener la enlazado la conexion de la Ruta del Equipo que comparte la impresora.\nOpcion parecida podras ver en WindosXp en la pestaña de Puertos\n\n\nSuerte \nLubin','',0,'AIA=','21xv7qn2',1,0,'',348,0,0),(37455,8111,6,987,0,'189.133.15.126',1189205556,1,0,1,1,1,0,'','','Saludos Moises:  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSi lo que deceas es una función que te permita abrir \"X\" página en la Web hazlo de la siguiente manera:\n\nInternet(<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->)\n\no si lo prefieres puedes enviar correos usando cualquier programa que tengas en tu pc como outlook o cualquier otro tambien puedes hacerlo de esta forma:\n\nInternet(<!-- e --><a href=\"mailto:soporte@sisa.unlugar.com\">soporte@sisa.unlugar.com</a><!-- e -->)\n\naqui esta la función:\n\n//-----------------------------------------------------------------------------------------------------------------//\nFUNCTION Internet( cUrl )\n\n	cUrl := IF( \"@\" $ cUrl, \"mailto:\" + cUrl, cUrl )\n\n	IF EMPTY( cUrl )\n		oAsis:wInfo( \"Introduzca algún valor en el campo\", oApp:lAsis )\n	ELSE\n		IF IsWinNT()\n			WinExec( \"rundll32.exe url.dll, FileProtocolHandler \" + cUrl, 0 )\n		ELSE\n			WinExec( \"Start \" + cUrl, 0 )\n		ENDIF\n	ENDIF\n\nRETURN nil\n\n\nSaludos desde Chiapas, México:\n\nVisita: <!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'AIA=','20yrualt',1,0,'',987,0,0),(37456,8086,3,160,0,'59.95.226.17',1189226748,1,0,1,1,1,0,'','','Dear Armando,\n\nIncluding the Barlib.ch file did not help.\n\nCan you point me to the sample prg in the \\Samples folder ? I did not find it there. I am using May-2006 build.\n\nTIA\nMilan.','',0,'AIA=','124piyen',1,0,'',160,0,0),(37457,8114,6,102,0,'87.217.67.168',1189243148,1,0,1,1,1,1,'','Problemas con tOle','Hola foro.\nEstoy cambiando una aplicacion de 16 a 32 Bits y me surge un problema \nUtilizo tOle para pasar de Excel a Dbf.\nal tratar de compilar me dice lo siguiente:\nError unresolved external: \'hb_vmMessage\' referenced from C:\\MYSISTEMA\\FWH26\\LIB\\HBOLE|Ole2\nsupongo que igual la libreria tOle es vieja y necesito otra mas nueva.\nAlguien me puede decir donde la bajo o si el problema es otro.\nEl codigo que utilizo es este:\n\n#Include \"FiveWin.Ch\"\nFunction PasExcelToDbf(oWnd)\nLocal oDlg,oLbx,oFont,oBtFin\nLocal oExcel, oHoja, nRows, nCols\nLocal tCampos:={}, nRow, nCol\n/* creamos conexion OLE con Excel */\noExcel := TOleAuto():New( \"Excel.Application\" )\n? \"objeto excel creado\"\n/*oExcel:Visible := .T. // por si quieres ver la hoja abierta*/\n/* abrimos el fichero de hoja de calculo */\noExcel:WorkBooks:Open(cGetFile(\"*.XLS\", \"Seleccione Fichero\"))\n?\"hoja abierta\"\n/* seleccionamos la hoja actual*/\noHoja := oExcel:Get( \"ActiveSheet\" )\n/* contamos cuantos renglones y cuantas columnas existen con datos */\nnRows := oHoja:UsedRange:Rows:Count()\nnCols := oHoja:UsedRange:Columns:Count()\n\nEl caso es que 16 bits si funciona.\n\nGracias de antemano','',0,'AIA=','2negb793',1,0,'',102,0,0),(37458,8115,6,1146,0,'81.47.144.149',1189247107,1,0,1,1,1,0,'','para Antonio: problema con GET ON CHANGE en ultimo FWH','Hola Antonio:\n\nHago esto:\n\nREDEFINE GET cCODPOSTAL     ID 104 OF oFld:aDialogs[ 1 ] ;\n    ON CHANGE( IIF( Empty( cDPOSTAL ), cDPOSTAL := cCODPOSTAL, ), oFld:Update() )\n\nREDEFINE GET cDPOSTAL   ID 103 OF oFld:aDialogs[ 3 ] UPDATE\n\n\nDe este modo, cuando se introduce cCODPOSTAL y cDPOSTAL está vacío, se completa este último campo con cCODPOSTAL. \n\n\nEsto funcionaba pefectamente con la versión 2.4 de FWH, pero ahora ha dejado de funcionar. ¿Por qué?. ¿Cómo lo soluciono?\n\nMuchísimas gracias. Salu2','',0,'','k0uw6iwn',1,0,'',1146,0,0),(37459,8114,6,92,0,'217.125.164.206',1189249418,1,0,1,1,1,0,'','Re: Problemas con tOle','Buenas,\n\nYo uso lo siguiente y por este orden en un proceso de importación:\n\n    oExcel := CreateOLEObject(\"Excel.Application\")\n    OLESetProperty(oExcel,\"Visible\", .T.)\n\n\n\n    OLEInvoke( OLEGetProperty(oExcel,\"Workbooks\"), \"Open\", cPathxls )\n\n    oHoja := OLEGetProperty(oExcel,\"ActiveSheet\")\n\n\n    cCCC      := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 2 ), \"Value\" )\n    If Valtype( cCCC) = \"U\"\n        cCCC := \"00000000000000000000\"\n    EndIf\n\n    ctelefon  := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 6 ), \"Value\" )\n    If Valtype( ctelefon) = \"U\"\n        ctelefon := 0\n    ElseIf Valtype( ctelefon) = \"C\"\n        ctelefon := Val(ctelefon)\n    EndIf\n\n    cLOPD     := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 10 ), \"Value\" )\n    If Valtype( clopd) = \"U\"\n        clopd := .F.\n      Else\n        clopd := .T.\n    EndIf\n\n    cDataAlta := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 12 ), \"Value\" )\n    If Valtype( cDataAlta ) = \"U\" .or. empty( cDataAlta )\n        cDataAlta := CToD(\"01/01/1900\")\n    elseIf Valtype( cDataAlta ) = \"C\"\n        cDataAlta := CToD(cDataAlta)\n    EndIf\n\nOLEInvoke( oExcel, \"Quit\" )\n\nEvidentemente falta la declaración de LOCAL de las variables, así como toda la lógica WHILE para su grabación en DBF.\n\n\nTodo en FWH 2007\'04 y su Harbour correspondiente, sin librerías de terceros OLE.\n\nSaludos\nCarlos G.','',0,'','2ujgfk4i',1,0,'',92,0,0),(37460,8111,6,1146,0,'81.47.144.149',1189250272,1,0,1,1,1,0,'','','Muchas gracias, pero necesito pasar parámetros y por eso busco turl.\n\nSalu2 desde España','',0,'','1llmrkzc',1,0,'',1146,0,0),(37461,8110,6,92,0,'217.125.164.206',1189250382,1,0,1,1,1,0,'','Re: DATABASE CONSULTA AL QUE SEPA,, PARA APRENDER','[quote=&quot;A&amp;C&quot;:2e3u5alo]Estimados Colegas...\n\nmi duda es,, alguien usa la clase DATABASE con MDI y si fuera asi esta clase maneja los alias en forma automatica... \n\nGRACIAS\n\nSi alguien tubiera un ejemplo de como manejas alias con la clase favor me lo indique....[/quote:2e3u5alo]\n\nBuenas,\n\nYo uso TDBF de Manuel Expósito; hace lo mismo que DATABASE y más cosas.\nGestiona perfectamente los alias; yo utilizo continuamente el método ::Clone y en entorno MDI.\n\nBusca en el foro TDBF, hace poco dejé un link para bajar la TDBF adaptada a FWH 2007\'04 y su Harbour.\n\nSaludos\nCarlos G.','',0,'gA==','2e3u5alo',1,0,'',92,0,0),(37462,8109,6,92,0,'217.125.164.206',1189250664,1,0,1,1,1,0,'','Re: COMO JUSTIFICAR A AMBOS LADOS UN PARRAFO COMPLETO','[quote=&quot;QAZWSX2K&quot;:2b8rq9i9]SALUDOS DEBO IMPRIMIR UNOS FORMULARIOS, PERO SE PRESENTA EL PROBLEMITA DE QUE TIENEN CAMPOS, CAMPOS QUE AUNQUE TIENEN UNA LONGITUD FIJA DEFINIDA PUEDEN ESTAR CON DATOS DE X LONGITUD.\n\nEJ NOMBRE (PUEDE SER JOSE COMO PUEDE SER MAXIMILIANO)\n\nEL ASUNTO ES QUE NECESITO VER SI HAY UNA MANERA DE JUSTIFICAR A AMBOS LADOS LA CADENA CON EL TEXTO QUE LE ANTECEDE Y LE SIGUE OSEA, CON LA LINEA ANTERIOR Y LA QUE SIGUE O MEJOR DICHO EN CRISTIANO JUSTIFICAR A AMBOS LADOS EL PARRAFO COMPLETO\n\nGRACIAS DE ANTEMANO[/quote:2b8rq9i9]\n\nUna manera sería substituir cada espacio en blanco por 2 espacios en blanco mientras no se alcance la longitud deseada; naturalmente no funciona con fuentes True Type (¿lo habré dicho bien?).\n\nSaludos\nCarlos G.','',0,'gA==','2b8rq9i9',1,0,'',92,0,0),(37463,8116,19,92,0,'217.125.164.206',1189251129,1,0,1,1,1,0,'','WinAsp y servidores en Internet','Buenas,\n\nAquí va una producto de mi ignorancía.\n\n¿Es posible en un servidor de internet disponer de WinAsp de Jorge Mason?\n\nSaludos\nCarlos G.','',0,'gA==','2xlyk6ya',1,0,'',92,0,0),(37464,8115,6,2,0,'87.218.146.5',1189252121,1,0,1,1,1,1,'','','Prueba a hacer:\n\nREDEFINE GET cCODPOSTAL ID 104 OF oFld:aDialogs[ 1 ] ; \nON CHANGE( IIF( Empty( cDPOSTAL ), cDPOSTAL := cCODPOSTAL, ), oFld:[color=red:36b4qdoe]aDialogs[ 3 ]:[/color:36b4qdoe]Update() )','',0,'Ag==','36b4qdoe',1,0,'',2,0,0),(37465,8115,6,1146,0,'81.47.144.149',1189255100,1,0,1,1,1,0,'','','Sigue sin funcionar, creo que es culpa de un cambio en los GETS. Pero antes funcionaba correctamente.','',0,'Ag==','2bg2xtzo',1,0,'',1146,0,0),(37466,8101,3,2,0,'87.218.146.5',1189255332,1,0,1,1,1,1,'','','A first working demo. Please review the so easy to use syntax <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:qu2z5rdm]\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Mail&quot;, &quot;Calendar&quot;, &quot;Contacts&quot;, &quot;&quot; ;\n      BITMAPS &quot;mail&#46;bmp&quot;, &quot;calendar&#46;bmp&quot;, &quot;notes&#46;bmp&quot;\n[/code:qu2z5rdm]\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/54219595/demo.zip.html\">http://rapidshare.com/files/54219595/demo.zip.html</a><!-- m -->','',0,'AIA=','qu2z5rdm',1,0,'',2,0,0),(37467,8102,6,2,0,'87.218.146.5',1189255402,1,0,1,1,1,1,'','','Una primera demo para probar. Fijaros en el código tan simple <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:1imihdq5]\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Mail&quot;, &quot;Calendar&quot;, &quot;Contacts&quot;, &quot;&quot; ;\n      BITMAPS &quot;mail&#46;bmp&quot;, &quot;calendar&#46;bmp&quot;, &quot;notes&#46;bmp&quot;\n[/code:1imihdq5]\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/54219595/demo.zip.html\">http://rapidshare.com/files/54219595/demo.zip.html</a><!-- m -->','',0,'AIA=','1imihdq5',1,0,'',2,0,0),(37468,8115,6,2,0,'87.218.146.5',1189257599,1,0,1,1,1,1,'','','Moises,\n\nComprueba por favor si suena el MsgBeep():\n\nREDEFINE GET cCODPOSTAL ID 104 OF oFld:aDialogs[ 1 ] ; \nON CHANGE( IIF( Empty( cDPOSTAL ), cDPOSTAL := cCODPOSTAL, ), oFld:aDialogs[ 3 ]:Update(), MsgBeep() )','',0,'','2qvgs5z0',1,0,'',2,0,0),(37469,8115,6,1146,0,'81.47.144.149',1189262029,1,0,1,1,1,0,'','','Sí funciona el msgbepp(), suena cada vez que se introduce un caracter.','',0,'','znioh96m',1,0,'',1146,0,0),(37470,8117,6,694,0,'200.146.117.92',1189262224,1,0,1,1,1,1,'','calendario com DTPICKER!','Antonio, usando o controle do PELLES (calendario) criei um funcao para calendario, e funcionou bem, a não ser por não estar aceitando a navegação com a teclas  &lt;-   -&gt; , e superior e inferior...\n\n\n\n*************************************************\nFUNCTION Calend(dDate,nRow,nCol,oDlg)\n*************************************************\nLOCAL oDlf,lSel:=.F.,oCalend,dDataCalend:=date()\n\nDEFINE DIALOG oDlf RESOURCE \"Calend2\" FONT oWnd:oFont ICON OICO color CLR_WHITE,CLR_WHITE\n\nREDEFINE DTPICKER oCalend VAR dDataCalend ID 4001 OF oDlf \n\nREDEFINE BUTTON ID 104 OF oDlf ACTION (lSel:=.T.,dDate:=dDataCalend,oDlf:End())\nREDEFINE BUTTON ID 103 OF oDlf ACTION (oDlf:End())\noDlf:lHelpicon :=.F.\nACTIVATE DIALOG oDlf ON INIT(If(ValType( nRow ) != \"N\",WndCenter( oDlf:hWnd ), ;\n                             oDlf:Move( nRow, nCol ) ),oDlf:Box( 39, 8, 157, 142))\n\nRETURN(dDate)','',0,'','6iznx4vz',1,0,'',694,0,0),(37471,8118,6,1146,0,'81.47.144.149',1189264328,1,0,1,1,1,0,'','problema con BUTTONBMP','Hola Antonio:\n\nBUTTONBMP no muestra el MESSAGE. Es decir\n\nsamples\\testbubm.prg\n   \n   REDEFINE BUTTONBMP ID 10 OF oDlg ;\n      ACTION MsgInfo( \"XP themes aware Button Bitmaps\" ) ;\n      BITMAP \"..\\bitmaps\\16x16\\garrow.bmp\" MESSAGE \"TEST...\"\n\n\nEn cambio en BTNBMP TOOLTIP si funciona adecuadamente. \n\nUn saludo,','',0,'','1eqprewi',1,0,'',1146,0,0),(37472,8086,3,53,0,'189.139.20.82',1189267361,1,0,1,1,1,1,'','','Milan:\n\nThis is the Sample.Prg\n\n#include \'fivewin.ch\'\n#include \'barcode.ch\'\n\n// clipper sample1 /n\n// blinker fi sample1 @fivewin lib barlib\n\nfunction main()\n    local opr, xStep, yStep, oBr, oFont\n    printer opr preview\n    define brush oBr color CLR_YELLOW\n    //define font oFont name \'ARIAL\' size 0,-32 of oPrn\n    oFont := TFont():New( \"ARIAL\", 0, -32, .F.,.t.,90,-2,,,,,,,,,oPr )\n    xStep:=oPr:nVertRes()/100\n    yStep:=oPr:nHorzRes()/5\n    page\n    oPr:say(xStep*49,yStep*2.4,\'BarCode Lib\',oFOnt,2,CLR_GREEN)\n    oPr:FillRect({55*xStep,yStep-10,98*xStep,yStep*3.5-10},oBR)\n\n    @ 2*xStep, yStep/12 code128 \'123456789012\' of oPr\n\n    @ 10*xStep,yStep/12 code128 \'123456789012\' of oPr mode \'A\'\n\n    @ 20*xStep,yStep/12 code128 \'123456789012\' of oPr mode \'B\'\n\n    @ 30*xStep,yStep/12 code3_9 \'123456789012\' of oPr\n\n    @ 40*xStep,yStep/12 ean13 \'7501157257697\'of oPr BANNER\n\n//    @ 40*xStep,Ystep sup5 \'00441\'of oPr banner\n\n    @ 40*xStep,Ystep sup5 \'1001\'of oPr banner\n\n    @ 50*xstep,yStep/12 upca \'20015318030\'of opr SIZE .9 banner VERTICAL\n\n    @ 60*xstep,yStep/12 ean8 \'1234567\'of opr banner\n\n    @ 70*xstep,yStep/12 Codabar \'A12-34T\' of opr\n\n\n    // vertical\n\n    @ xStep,yStep*2.5 upca \'12345678901\' of oPr;\n        color CLR_BLUE   Vertical banner\n\n    @ xStep,yStep*3 code128 \'123456789012\' of oPr;\n        color CLR_BLUE   Vertical  // C mode auto\n\n    @ xStep,yStep*4 code128 \'123456789012\' of oPr ;\n        mode \'A\' color CLR_RED vertical\n\n    @ 30*xStep,yStep*3 code128 \'123456789012\' of oPr ;\n        mode \'B\' color CLR_HBLUE vertical\n\n    @ 30*xStep,yStep*4 code3_9 \'123456789012\' of oPr;\n        color CLR_GREEN vertical\n\n    @ 60*xStep,yStep*3.7 ean13 \'7501157257703\'of oPr;\n        color CLR_HRED vertical BANNER FONT \'times\'\n\n    // BigCode\n\n    @ 60*xStep,yStep ean13 \'7501157257642\' of oPr ;\n        color CLR_BLUE width 0.1 size 7.5 banner font \'arial\'\n\n    endpage\n    page\n    @ 2*xStep, 10 int25 \'123456789012\' of oPr\n\n\n    @ 10*xStep,yStep/12 mat25 \'123456789012\' of oPr\n\n    @ 20*xStep,yStep/12 ind25 \'123456789012\' of oPr\n\n    endpage\n\n    endprint\n    oBr:end()\n    oFOnt:end()\nreturn nil\n\n\nRegards','',0,'','31wy44tf',1,0,'',53,0,0),(37473,8070,3,1165,0,'81.11.198.94',1189267714,1,0,1,1,1,0,'','','Otto\n\nELEM 2 \nELEM 3 \nELEM 1 \n\ninstead the default \nELEM 1 \nELEM 2 \nELEM 3\n\nWITH OBJECT oBrw\n      :Swapcols(:aCols[1],:aCols[2]) ; :Swapcols[:aCols[2],:aCols[3])\nEND \n\nOr look at oBrw:setarray to see how oBrw:bstrdata is set\n\noCol := :aCols[1]\noCol:bStrData   := GenArrayBlock( { || :aArrayData[ :nArrayAt ] },2, .t. )\n\noCol := :aCols[2]\noCol:bStrData   := GenArrayBlock( { || :aArrayData[ :nArrayAt ] },3, .t. )\n\noCol := :aCols[3]\noCol:bStrData   := GenArrayBlock( { || :aArrayData[ :nArrayAt ] },1, .t. )\n\nGenArrayBlock is STATIC and must be changed or copied','',0,'','26y417j2',1,0,'',1165,0,0),(37474,8118,6,2,0,'87.218.146.5',1189271160,1,0,1,1,1,1,'','','Moises,\n\ngracias!\n\nModifica este método en la clase TButtonBmp:\n\n   METHOD MouseMove( nRow, nCol, nFlags ) INLINE Super:MouseMove( nRow, nCol, nFlags ), ::oWnd:SetMsg( ::cMsg ), ::Refresh()','',0,'','39tm27pt',1,0,'',2,0,0),(37475,8115,6,2,0,'87.218.146.5',1189271363,1,0,1,1,1,1,'','','Prueba entonces así:\n\nREDEFINE GET cCODPOSTAL ID 104 OF oFld:aDialogs[ 1 ] ; \nON CHANGE( IIF( Empty( cDPOSTAL ), cDPOSTAL := cCODPOSTAL, ), oGet:Refresh() )\n\nREDEFINE GET oGet VAR cDPOSTAL ID 103 OF oFld:aDialogs[ 3 ] UPDATE','',0,'','6lb60qog',1,0,'',2,0,0),(37476,8117,6,2,0,'87.218.146.5',1189271539,1,0,1,1,1,1,'','','Aoki,\n\nPor favor revisa samples\\TestDtp.prg. En él funcionan las teclas de dirección perfectamente.','',0,'','rlvst32w',1,0,'',2,0,0),(37477,8112,6,2,0,'87.218.146.5',1189271723,1,0,1,1,1,1,'','','Giancarlo,\n\nRevisa el código de METHOD KeyChar( nKey, nFlags ) CLASS TGet y verás como detectamos si se trata de una tecla de función ó no','',0,'','2hhpwsid',1,0,'',2,0,0),(37478,8102,6,1146,0,'81.47.144.149',1189271953,1,0,1,1,1,0,'','','Muy buena, veo que es muy fácil migrar desde la clase anterior. Y el pintado es muy rápido. Enhorabuena!!!','',0,'','u1529h5q',1,0,'',1146,0,0),(37479,8116,19,138,0,'200.67.9.203',1189273128,1,0,1,1,1,1,'','','Si, el Internet Information Server tiene esa capacidad y xHarbour.com ofrece un producto llamado xBScript que lo que hace es cambiar el motor de interpretacion de Visual Basic Script por uno de Harbour.\n\nTambien el Orelly WebSit ofrece servicios ASP','',0,'','37fkoy90',1,0,'',138,0,0),(37480,8118,6,1146,0,'81.47.144.149',1189273462,1,0,1,1,1,0,'','','Hola:\n\n¿Lo vas a meter en el build de sept?. Lo digo porque no me gusta añadir módulos de fwh a la aplicación, que luego con las actualizaciones es un lío.\n\nSalu2','',0,'','3dfjeci6',1,0,'',1146,0,0),(37481,8118,6,2,0,'87.218.146.5',1189279891,1,0,1,1,1,1,'','','Moises,\n\nSi, ya lo hemos añadido al build de Septiembre <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3vtky9em',1,0,'',2,0,0),(37482,8064,3,1166,0,'81.242.76.25',1189283338,1,0,1,1,1,0,'','','Willy,\nIk heb gezien dat je werkt met Sql en Fivewin .Ik will graag inlichtigen daarover .\nCan je uw email geven .\nMijn email is <!-- e --><a href=\"mailto:ph.jacquet@skynet.be\">ph.jacquet@skynet.be</a><!-- e --> \nThanks .','',0,'','1rs6pkj3',1,0,'',1166,0,0),(37483,8064,3,529,0,'200.159.198.80',1189289945,1,0,1,1,1,0,'','','Rene, where i down funcky? this is free? thanks','',0,'','gx5dfsan',1,0,'',529,0,0),(37484,8058,6,935,0,'200.62.78.252',1189303270,1,0,1,1,1,1,'','SOBRE RC\'S','SALUDES A TODO EL FORO, \n\nLA Verdad yo de siempre he trabajado con Work Shop y jamas he tenido problemas, es mas tengo archivo rc con mas de 100 recursos,\n\nEs mi humilde opinion.\n\nSaludes desde Managua, Nicaragua','',0,'','k0nay6uq',1,0,'',935,0,0),(37485,8119,17,439,0,'200.125.43.174',1189304614,1,0,1,1,1,1,'','PSPad y FW [x]Harbour','Hola, \n\nSin pretender promocionar o recomendar este editor de texto (el que lo quiera probar, pues que lo haga), les comento que lo he probado a raíz de un post de este foro y lo he elegido para mi uso personal por ser de mi agrado y además freeware.\n\nMe he tomado la molestia de crear un archivo de Sintaxis con todas las funciones de FWH y [x]Harbour (más de 2700)  y todos los comandos como unos 600 creo en total.\n\nCon dicho archivo, los que utilizan este editor tendrán contemplada la sintaxis perfecta para programar xBase.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?619ldiojznj\">http://www.mediafire.com/?619ldiojznj</a><!-- m -->\n\nCopien este archivo al directorio Syntax de PSPad, seleccionen del menu de resaltadores como el predeterminado y listo.\n\nEspero pueda ser util a la comunidad Fivewinera.','',0,'','279w2hsi',1,0,'',439,0,0),(37486,8120,6,495,0,'200.120.233.214',1189307313,1,0,1,1,1,0,'','Bmp en TXBrowse con Array','Estimados, \n\nMuestro un Array con la TXBrowse y necesito poner un Bmp cuando un registro logico tiene .T. o .F. si utilizo la TXBrowse con datos de la DBF directamente funciona bien, pero no logro hacer lo mismo cuando la utilizo con información desde un Array..\n\nalguien me puede echar una mano. Aqui les dijo un compacto de ambos usos:\n\nDirecto de la DBF, Funciona correctamente.\n\n   ::oBrw := TXBrowse():New( ::oWnd )\n   ::oBrw:cAlias := DBF_GIRBAN:cAlias\n   ::oCol := Array( 01 )\n      ::oCol[01] := ::oBrw:AddCol()\n      ::oCol[01]:cHeader     := \"Conciliado\"\n      ::oCol[01]:AddResource( \"CHECK_SI\" )\n      ::oCol[01]:AddResource( \"CHECK_NO\" )\n      ::oCol[01]:bBmpData  := { || IF( DBF_GIRBAN:ESTGIR == .T. , 1, 2) }\n      ::oCol[01]:BStrData    := { || \"\" }\n      ::oCol[01]:nWidth       := 60\n   ::oBrw:CreateFromCode()\n....\n....\nDesde un Array, NO muestra el BMP\n\n   WITH OBJECT ::oBrw\n         :SetArray( AR_DATOS, .T. )\n      WITH OBJECT :aCols[ ESTADO ]\n         :cHeader     := \"Conciliado\"\n         :AddResource( \"CHECK_SI\" )\n         :AddResource( \"CHECK_NO\" )\n         :bBmpData   := { || IF(Len(AR_DATOS) &gt;0, (IF ( AR_DATOS[::oBrw:nArrayAt][ESTGIR] == .T. , 1, 2) ), NIL) }\n         :bStrData   := { || \"\"}\n         :nWidth     := 40\n      END \n   END\n...\n...\nMuchas gracias\n\nsalu2\n\nMauro','',0,'','365m486m',1,0,'',495,0,0),(37487,8121,4,234,0,'75.34.217.174',1189316002,1,0,1,1,1,1,'','FWPPC and MC3000 scan button','Hello,\n\nI have upgrade to FWPPC August 2007 and I have created an application and transferred to the MC3000 unit. However, when I run the application the scan button does not work. I tried the demo software loaded on the unit and it works. Can someone tell me how I activate the scan button on the MC3000 unit or check for the scan button event?\n\nThank you very much.\n\nSincerely,','',0,'','1v73jhqq',1,0,'',234,0,0),(37488,8114,6,102,0,'87.217.67.168',1189319822,1,0,1,1,1,1,'','Re: Problemas con tOle','Carlos agradezco tu respuesta, pero yo no tengo mas fwh26 asi que necesito OLE para poder hacerlo. \nPuedes tu ó alguien decirme como puedo conseguirlo.\nTengo otra pregunta.\nComo convierto el .RES de 16 Bits a 32 Bits\n\nMuchas gracias\n\n[quote=&quot;FiveWiDi&quot;:kbflyawp]Buenas,\n\nYo uso lo siguiente y por este orden en un proceso de importación:\n\n    oExcel := CreateOLEObject(\"Excel.Application\")\n    OLESetProperty(oExcel,\"Visible\", .T.)\n\n\n\n    OLEInvoke( OLEGetProperty(oExcel,\"Workbooks\"), \"Open\", cPathxls )\n\n    oHoja := OLEGetProperty(oExcel,\"ActiveSheet\")\n\n\n    cCCC      := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 2 ), \"Value\" )\n    If Valtype( cCCC) = \"U\"\n        cCCC := \"00000000000000000000\"\n    EndIf\n\n    ctelefon  := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 6 ), \"Value\" )\n    If Valtype( ctelefon) = \"U\"\n        ctelefon := 0\n    ElseIf Valtype( ctelefon) = \"C\"\n        ctelefon := Val(ctelefon)\n    EndIf\n\n    cLOPD     := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 10 ), \"Value\" )\n    If Valtype( clopd) = \"U\"\n        clopd := .F.\n      Else\n        clopd := .T.\n    EndIf\n\n    cDataAlta := OleGetProperty( OleGetProperty( oHoja, \"Cells\", nRow, 12 ), \"Value\" )\n    If Valtype( cDataAlta ) = \"U\" .or. empty( cDataAlta )\n        cDataAlta := CToD(\"01/01/1900\")\n    elseIf Valtype( cDataAlta ) = \"C\"\n        cDataAlta := CToD(cDataAlta)\n    EndIf\n\nOLEInvoke( oExcel, \"Quit\" )\n\nEvidentemente falta la declaración de LOCAL de las variables, así como toda la lógica WHILE para su grabación en DBF.\n\n\nTodo en FWH 2007\'04 y su Harbour correspondiente, sin librerías de terceros OLE.\n\nSaludos\nCarlos G.[/quote:kbflyawp]','',0,'gA==','kbflyawp',1,0,'',102,0,0),(37489,8114,6,2,0,'87.218.146.5',1189323916,1,0,1,1,1,1,'','','José,\n\nIncluye esta función en un PRG tuyo: \nCode: \n[code:uwqfm86t]\n#pragma BEGINDUMP \n\nvoid hb_vmFunction&#40; unsigned short uiParams &#41;; \n\nvoid hb_vmMessage&#40; unsigned short uiParams &#41; \n&#123; \n   hb_vmFunction&#40; uiParams &#41;; \n&#125; \n#pragma ENDDUMP\n[/code:uwqfm86t]','',0,'AIA=','uwqfm86t',1,0,'',2,0,0),(37490,8116,19,92,0,'217.125.171.204',1189329823,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:317mm98p]Si, el Internet Information Server tiene esa capacidad y xHarbour.com ofrece un producto llamado xBScript que lo que hace es cambiar el motor de interpretacion de Visual Basic Script por uno de Harbour.\n\nTambien el Orelly WebSit ofrece servicios ASP[/quote:317mm98p]\n\nGracias Rene,\n\nMe han dicho que si sigo el cable de mi modem encontraré otro mundo. je je\n\nSaludos\nCarlos G.','',0,'gA==','317mm98p',1,0,'',92,0,0),(37491,8114,6,102,0,'87.217.67.168',1189331499,1,0,1,1,1,1,'','','Gracias Antonio,\nLo probare pero ahora tengo el problema siguiente:\nUtilizo el Verce 4.3 Fwh26, Pellesc, harbour 45.0 \nHe convertido el Res de 16 a 32 Bits.\nCompila bien, pero al enlazar me dice esto:\n\n[color=red:3yh7kuad]Turbo Incremental Link 5.00 Copyright (c) 1997,2000 Borland\nFatal access violation. Link terminated.[/color:3yh7kuad]\n\nNunca me habia pasado esto desde que empece a trabajar en 32 bits, solo ahora al migrar de 16 a 32 bits\n\nMuchas gracias\n\n[quote=&quot;Antonio Linares&quot;:3yh7kuad]José,\n\nIncluye esta función en un PRG tuyo: \nCode: \n[code:3yh7kuad]\n#pragma BEGINDUMP \n\nvoid hb_vmFunction&#40; unsigned short uiParams &#41;; \n\nvoid hb_vmMessage&#40; unsigned short uiParams &#41; \n&#123; \n   hb_vmFunction&#40; uiParams &#41;; \n&#125; \n#pragma ENDDUMP\n[/code:3yh7kuad][/quote:3yh7kuad]','',0,'goA=','3yh7kuad',1,0,'',102,0,0),(37492,8122,22,1146,0,'81.47.144.149',1189335670,1,0,1,1,1,0,'','mejoras en la clase REPORT','Hola:\n\nCreo que sería bueno que la clase REPORT pudiera generar ficheros Html, excel y word:\n\n REPORT [ &lt;oReport&gt; ] ;  \n  TO FILE &lt;toFile&gt; TXT HTML EXCEL WORD\n\nEn el foro hay varias modificaciones separadas en este sentido, sería cuestion de juntarlas todas.\n\nSalu2','',0,'','1ujgel8g',1,0,'',1146,0,0),(37493,8123,3,1146,0,'81.47.144.149',1189336116,1,0,1,1,1,0,'','generating index on the fly?','Hi,\n\nI have a database opened in shared mode and indexed. I can´t close the database or the index.\n\nI would like to add a new index on the fly, do a report, and restore the original index, but I can´t close either the database or index.\n\nThere must be:\n\nopenfile()\n....\n\ndoreport()\n\n\n\nfunction openfile()\n\nselect 1\n\nuse test index test shared new\n\n\nselect 2\n\nuse other index other shared new\n\n\nfunction doreport()\n\nselect 1\n\nsaveoriginalindex()\n\ncreatenewindexonthefly()\n\nreport\n\nrestoreoriginalindex()\n\n\n\nI have tried set index &amp;tempind additive  and OrdSetFocus( 1), but always uses the new temp index, not the original one that I must restore.\n\n\nHow can I do it?. Thanks a milion!!!!!!!!!!!!!!!!!!!!!','',0,'','3mrmi2s3',1,0,'',1146,0,0),(37494,8121,4,234,0,'75.34.217.174',1189336765,1,0,1,1,1,1,'','','Hello,\n\nI found the following code on this forum and got the scan button to work. However, the function is only returning the first character of the barcode. Can anyone help?\n\n#include \"FWCE.ch\"\n#include \"hbclass.ch\"\n#include \"Directry.ch\"\n\n//----------------------------------------------------------------------------//\nfunction Main()\n\n  local oDlg                                                              , ;\n        aGet1, aGet2, aGet3                                               , ;\n        cTitle   := \'CDM WinWMS - Receipts\'                               , ;\n        cBuild   := \'Build 20070909-0109\'                                 , ;\n        cWmsdata := \'\'                                                    , ;\n        cOwner   := SPACE(10)                                             , ;\n        cPo      := SPACE(30)                                             , ;\n        cSku     := SPACE(50)                                             , ;\n        nQty     := 0                                                     , ;\n        cUnitId  := SerialNumber()\n\n  // Database init...\n  REQUEST DBFCDX\n  REQUEST DBFFPT\n  RddSetDefault (\'DBFCDX\')\n\n  // Check connection...\n  IF ! FILE( \"client.dbf\")\n     DbCreate( \"client.dbf\", { { \"data\", \"C\", 50, 0 } } )\n  ENDIF\n\n  pfad := \'\\\'\n  cDb  := \'client\'\n  USE (pfad+cDb) NEW SHARED\n  IF NETERR()\n     MsgAlert( \'Unable to open \' + pfad + cDb, cTitle )\n     RETURN (.F.)\n  ENDIF\n  IF client-&gt;( reccount() ) &lt; 1\n     APPEND BLANK\n  ENDIF\n  GO TOP\n  cWmsData := ALLTRIM( client-&gt;data )\n  client-&gt;( dbclosearea() )\n\n  // Data Folder...\n  DO WHILE (.T.)\n     IF FILE(cWmsdata + \"wmsdet.dbf\")\n        EXIT\n      ELSE\n        cTmp = LEFT( cWmsdata + SPACE(50), 50)\n\n        // Window Get...\n        lPass := MsgGet( cTitle, \"Folder Name\", @cTmp )\n        IF ! lPass\n           RETURN (.F.)\n        ENDIF\n\n        // Init...\n        cWmsdata = ALLTRIM(cTmp)\n        IF RIGHT(cWmsdata,1)&lt;&gt;\"\\\"\n           cWmsdata += \"\\\"\n        ENDIF\n\n        // Update...\n        pfad := \'\\\'\n        cDb  := \'client\'\n        USE (pfad+cDb) NEW SHARED\n        IF NETERR()\n           MsgAlert( \'Unable to open \' + pfad + cDb, cTitle )\n           RETURN (.F.)\n        ENDIF\n        GO TOP\n        DO WHILE (.T.)\n           IF client-&gt;( dbrlock() )\n              client-&gt;data    := ALLTRIM( cWmsdata )\n              client-&gt;( dbrunlock() )\n              EXIT\n           ENDIF\n        ENDDO\n        client-&gt;( dbclosearea() )\n     ENDIF\n  ENDDO\n\n  DEFINE DIALOG oDlg TITLE cTitle ;\n     SIZE 300, 300 COLOR \"W/B+\"\n\n  @ 0.7, 01 SAY \"Owner\"           SIZE 20, 10\n  @ 1.0, 05 GET aGet1 VAR cOwner  SIZE 50, 10 PICTURE \"@!\"  VALID CheckScan( @aGet1, @cOwner )\n\n  @ 1.7, 01 SAY \"P.O. No.\"        SIZE 25, 10\n  @ 2.0, 05 GET aGet2 VAR cPo     SIZE 99, 10 PICTURE \"@!\"  VALID CheckScan( @aGet2, @cPo )\n\n  @ 2.5, 01 SAY \"SKU\"             SIZE 15, 10\n  @ 3.0, 05 GET aGet3 VAR cSku    SIZE 99, 10 PICTURE \"@!\"  VALID CheckScan( @aGet3, @cSku )\n\n  @ 3.5, 01 SAY \"Qty\"             SIZE 10, 10\n  @ 4.0, 05 GET nQty              SIZE 25, 10 PICTURE \"999999\"\n\n  @ 6.0, 01 BUTTON \"Save\"         ACTION oDlg:End() SIZE 30, 10\n  @ 6.0, 10 BUTTON \"Cancel\"       ACTION oDlg:End() SIZE 30, 10\n  @ 6.0, 19 BUTTON \"New\"          ACTION oDlg:End() SIZE 30, 10\n\n  @ 8.0, 01 SAY cBuild            SIZE 99, 10\n\n  ACTIVATE DIALOG oDlg CENTERED ;\n     VALID MsgYesNo( \"Exit\", cTitle )\n\n  return nil\n\n//-----------------------------------------------------------------------------\nFUNCTION CheckScan( oGet, cData )\n\n  LOCAL cRet , lReturn := .f., nLen := LEN( cData )\n\n  IF oGet:nLastKey = 13\n     cRet := SCAN_OPEN()\n     MsgInfo( cRet )\n     IF VALTYPE( cRet ) = \'C\'\n        cData   := LEFT( cRet + SPACE(nLen), nLen )\n        lReturn := .T.\n     ENDIF\n  ENDIF\n  oGet:Refresh()\n\n  RETURN (.T.)\n\n//-----------------------------------------------------------------------------\nFUNCTION cesetmenu() ; RETURN NIL\nFUNCTION getmenu() ; RETURN NIL\nFUNCTION readbitmap() ; RETURN NIL\nFUNCTION palbmpread() ; RETURN NIL\n\n#pragma BEGINDUMP\n\n#pragma comment (lib,\"scnapi32\")\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\n#include \"Scancapi.h\"\n\nLPSCAN_BUFFER lpScanBuffer = NULL;\nBOOL bUseText = TRUE;\nDWORD dwScanSize = 7095;\nDWORD dwScanTimeout = 0;\n\n#define BUFFER_SIZE 7095\n#define DEFAULT_TIMEOUT 10000\n\nHANDLE hScanner = NULL;\nTCHAR szScannerName[MAX_PATH] = TEXT(\"SCN1:\");\nDWORD dwResult ;\nCHAR Buffer ;\nUINT uMsg ;\nDWORD dwTimeout ;\n\nHB_FUNC( SCAN_OPEN )\n{\ndwResult = SCAN_Open( szScannerName, &amp;hScanner );\nif ( dwResult == E_SCN_SUCCESS )\n{\ndwResult = SCAN_Enable( hScanner );\nif ( dwResult == E_SCN_SUCCESS )\n{\n\nBOOL state = TRUE;\ndwResult = SCAN_SetSoftTrigger(hScanner, &amp;state);\nif (dwResult == E_SCN_SUCCESS) {\n// allocate a new scan buffer\nlpScanBuffer = SCAN_AllocateBuffer(TRUE /* data as chars */, BUFFER_SIZE);\nif (lpScanBuffer) {\ndwResult = SCAN_ReadLabelWait(hScanner, lpScanBuffer, DEFAULT_TIMEOUT);\nif (dwResult == E_SCN_SUCCESS)\n{\nhb_retclen( (char *)SCNBUF_GETDATA(lpScanBuffer),25);\n}\n}\nSCAN_DeallocateBuffer(lpScanBuffer);\n}\nstate = FALSE;\nSCAN_SetSoftTrigger(hScanner, &amp;state);\n\n}\nelse\n{\nMessageBox( GetActiveWindow(), L\"Error en SCAN_Enable\", L\"Ok\", 0 );\n\n}\n}\nelse\n{\nMessageBox( GetActiveWindow(), L\"Error en SCAN_Open\", L\"Ok\", 0 );\n}\n}\n\n#pragma ENDDUMP','',0,'','350awmlf',1,0,'',234,0,0),(37495,8123,3,6,0,'82.55.208.75',1189336847,1,0,1,1,1,1,'','Re: generating index on the fly?','The easier way might be to open your original table in a new area with a different alias.\n\nEMG','',0,'','1rdu7bmi',1,0,'',6,0,0),(37496,8124,6,533,0,'88.8.24.22',1189337309,1,0,1,1,1,0,'','Diferencias Internas en btnbmp y button','Buenos dias foro!!, ¿Sabeis a que es debido que hayas diferencias entre el action del btnbmp y del button, es decir:\n\n[code:2lfdn448]\n\nredefine button oBton3 id 303 of odlg action if&#40;&#58;&#58;lInsertMode,o&#58;Append&#40;&#41;,o&#58;Update&#40;&#41;&#41;\n\n[/code:2lfdn448]\n\nesta definicion del boton pregunta si una variable de instancia tiene un valor apara llamar al metodo de añadir o actualizar de otra clase. Aqui funciona correctamente.\n\n\n[code:2lfdn448]\nredefine btnbmp oBton3 resource &quot;BTON_ACEPTAR&quot; id 303 of odlg action if&#40;&#58;&#58;lInsertMode,o&#58;Append&#40;&#41;,o&#58;Update&#40;&#41;&#41;\n\n[/code:2lfdn448]\n\nesta deficion es la misma pero usando btnbmp, pues me salta un error diciendo que TBTNBMP no tiene el data lInsertMode, es como si pensará que ::lInsertMode, pertenece a la clase TBTNBMP.\n\n¿A que puede ser debido?.\n\nEstoy investigando, pero dejo caer la pregunta el foro, MUCHAS GRACIAS DE ANTEMANO.','',0,'AIA=','2lfdn448',1,0,'',533,0,0),(37497,8124,6,2,0,'87.218.146.5',1189338136,1,0,1,1,1,1,'','','Mike,\n\nLa diferencia es debida a que al evaluar la acción del TBtnBmp se le está pasando \"Self\" (una referencia al propio botón).\n\nPuedes solucionarlo así:\nlocal [color=red:i649el3c]oThis[/color:i649el3c] := Self\n\nredefine btnbmp oBton3 resource \"BTON_ACEPTAR\" id 303 of odlg action if([color=red:i649el3c]oThis[/color:i649el3c]:lInsertMode,o:Append(),o:Update())','',0,'Ag==','i649el3c',1,0,'',2,0,0),(37498,8121,4,2,0,'87.218.146.5',1189338464,1,0,1,1,1,1,'','','Darrell,\n\nPlease try this and lets see what length you get:\n\ncRet := SCAN_OPEN() \nMsgInfo( Len( cRet ) )','',0,'Ag==','1u4l5izs',1,0,'',2,0,0),(37499,8114,6,2,0,'87.218.146.5',1189338753,1,0,1,1,1,1,'','','José,\n\nPrueba a no enlazar el RES por si el problema se debe a un RES no correcto','',0,'Ag==','1fs80g7q',1,0,'',2,0,0),(37500,8123,3,1146,0,'81.47.144.149',1189339632,1,0,1,1,1,0,'','','Yes, you were right!!!!. Thanks a lot!!!!!!!','',0,'Ag==','2v8k5t40',1,0,'',1146,0,0),(37501,8124,6,533,0,'88.9.23.164',1189346341,1,0,1,1,1,0,'','','Entendido: OK\nFuncionando: OK\n\nMuchas Gracias por todo y por contestar tan rápido <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','3rbw7s3e',1,0,'',533,0,0),(37502,8112,6,140,0,'190.39.125.187',1189350436,1,0,1,1,1,0,'','','Gracias Antonio...\n\nAl pelo!!!','',0,'Ag==','1cyu7szv',1,0,'',140,0,0),(37503,8125,3,1117,0,'125.24.57.71',1189350687,1,0,1,1,1,0,'','nSerialHD Return not the same result','I just migrate my application from FW to FWH.\nIn FW nSerialHD() alway return the same number but in FWH will return the differance when I\'ve change some detail in my source ( add or delete some function or procedure).\nHow can i solved this problem?','',0,'Ag==','3e5xubez',1,0,'',1117,0,0),(37504,5494,17,252,0,'189.166.5.216',1189354346,1,0,1,1,1,0,'','','Hola.\n\n    ¿se puede mandar un reporte directamente a excel sin un usar preview\\guardar como?\n\n    Saludos.\n\n    Jose rios.','',0,'Ag==','38ivfw6q',1,0,'',252,0,0),(37505,3023,17,252,0,'189.166.5.216',1189354425,1,0,1,1,1,0,'','','Hola.\n\n    ¿se puede mandar un reporte directamente a excel sin un usar preview\\guardar como?\n\n    Saludos.\n\n    Jose rios.','',0,'Ag==','3gf7s6wx',1,0,'',252,0,0),(37506,3023,17,138,0,'148.233.151.30',1189356086,1,0,1,1,1,1,'','','Si, con la misma clase Filexls se genera el archivo excel sin pasar por el generador de informes de fivewin','',0,'Ag==','vmyhfmkm',1,0,'',138,0,0),(37507,8064,3,138,0,'148.233.151.30',1189357128,1,0,1,1,1,1,'','','[quote=&quot;Nop&quot;:39wcq0kb]Rene, where i down funcky? this is free? thanks[/quote:39wcq0kb]\n\n<!-- w --><a class=\"postlink\" href=\"http://www.funcky.com\">www.funcky.com</a><!-- w -->\n\nyou can downlad a demo with limited functionality, the full product is a little pricy but worth the price','',0,'gA==','39wcq0kb',1,0,'',138,0,0),(37508,8102,6,316,0,'87.218.187.37',1189358928,1,0,1,1,1,0,'','','Hola Antonio,\nEl control esta chulo, es una forma diferente de abordar el modelo a la que tenía en mente, pero está muy bien, creo que así es muy flexible.\nMe dirás toca...narices, pero los problemillas de pintado siguen, y ojo que estoy en un ordenador ajeno, con tarjeta gráfica acelerada (es un ordenador para juegos).\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/auuntd7xyh\">http://www.box.net/shared/auuntd7xyh</a><!-- m -->\n\nHas podido ver algo al respecto?\n\nUn saludo,\n\nCarlos','',0,'gA==','19qj1ece',1,0,'',316,0,0),(37509,8115,6,316,0,'87.218.187.37',1189359969,1,0,1,1,1,0,'','','[quote=&quot;MOISES&quot;:2vi3myfp]Sí funciona el msgbepp(), suena cada vez que se introduce un caracter.[/quote:2vi3myfp]\n\nCreo que has elegido mal el evento para propagar el cambio.\nCon la primera tecla cDPostal toma el valor de esa tecla, digamos \'X\', es decir que ya no está nunca más vacía, asi es que solo va a cambiar con la primera tecla ya que Empty( cDPostal ) =&gt; .F..\n\nQue tal \'On LOSTFOCUS\' ? no me acuerdo si hay un evento así disponible, no tengo aca la FW, pero ese es el método. Chequea el Fivewin.ch para ver como se llama el evento en la declaracion del get.\n\nSaludos,\nCarlos.','',0,'gA==','2vi3myfp',1,0,'',316,0,0),(37510,8111,6,316,0,'87.218.187.37',1189360205,1,0,1,1,1,0,'','','Que tipo de parametros tienes que pasar? GET o POST?\nSi son POST es suficiente con agregar al final los parametros separados por &amp; . COmo ejemplo, mira lo que dice la linea de tu navegador en este momento, dice algo asi como:\n\nposting.php?mode=reply&amp;t=8111 lo que significa que ejecutará el script del servidor con las variables mode= reply y t = 8111\n\nSaludos,\nCarlos.','',0,'gA==','17w82u5u',1,0,'',316,0,0),(37511,8107,6,316,0,'87.218.187.37',1189360904,1,0,1,1,1,0,'','','Ruben,\n\n[quote=&quot;Ruben D. Fernandez&quot;:27kcq9fd]Amigos:\n\nBase de datos de 30 registros\nLos debo mostrar de a 3\ncargo los primeros 3 y los restantes con un for pero me muestra\nsolamente los datos del ultimo registro.\n\n       oCol:bStrData:= {|| Str(ni1)+CRLF+Str(ni2)+CRLF+Str(ni3) }  \n      \n[/quote:27kcq9fd]\n\ncreo que no tienes en claro que estas poniendo en los codeblocks. Lo que hace harbour es correcto, responde a lo que le pides.\nTienes que crear un codeblock que traiga los valores. Tú en tu código , traes los valores y los pones dentro del codeblock, es decir *siempre* te va a mostrar los valores de las ni1, ni2 y ni3 que tengan en el momento del pintado, no cuando estas declarando las columnas.\n\n\ncambia esa línea por \n[code:27kcq9fd]\n       oCol&#58;bStrData&#58;= &amp;&#40;&quot;&#123;|| FieldGet&#40;&quot;+Str&#40; i &#41; + &quot;&#41;+CRLF+FieldGet&#40;&quot;+ Str&#40;i+1&#41;+&quot;&#41;+CRLF+FieldGet&#40;&quot;+Str&#40;i+2&#41;+&quot;&#41; &#125;  &quot; &#41;\n\n[/code:27kcq9fd]\n\nSaludos,\n\nCarlos','',0,'gIA=','27kcq9fd',1,0,'',316,0,0),(37512,8113,6,316,0,'87.218.187.37',1189361094,1,0,1,1,1,0,'','','Busca FSDI, hace lo que tu quieres. Cuando lo encuentres le mandas un mensaje a José Luis Sanchez <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nSaludos\n\nCarlos','',0,'gIA=','owbk7vs2',1,0,'',316,0,0),(37513,8121,4,234,0,'12.109.182.132',1189362229,1,0,1,1,1,1,'','','Antonio,\n\nI changedn the CheckScan function to the following and it worked. \n\nRegards,\n\nFUNCTION CheckScan( oGet, cData )\n\n  LOCAL cRet , lReturn := .f., nLen := LEN( cData )         , ;\n        cTmp  := \'\'                                         , ;\n        cChar := \'\'                                         , ;\n        cStr  := \'ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890\'    , ;\n        nX    := 0\n\n  IF oGet:nLastKey = 13\n     cRet := SCAN_OPEN()\n     FOR nX=1 TO LEN( cRet )\n         cChar := SUBSTR( cRet, nX, 1 )\n         IF cChar $ cStr\n            cTmp += cChar\n         ENDIF\n     NEXT nX\n     cRet := cTmp\n     MsgInfo( Len( cRet ), cRet )\n     IF VALTYPE( cRet ) = \'C\'\n        cData   := LEFT( cRet + SPACE(nLen), nLen )\n        lReturn := .T.\n     ENDIF\n  ENDIF\n  oGet:Refresh()\n\n  RETURN (.T.)','',0,'gIA=','2mk80h3c',1,0,'',234,0,0),(37514,8121,4,2,0,'87.218.146.5',1189362756,1,0,1,1,1,1,'','','Very good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','1a2ioaqn',1,0,'',2,0,0),(37515,8102,6,2,0,'87.218.146.5',1189362928,1,0,1,1,1,1,'','','Carlos,\n\nDe momento no hay novedad, aunque en los próximos dias vamos a hacer una nueva serie de pruebas en relación al pintado. A ver si damos con la causa','',0,'gIA=','2hmawzhy',1,0,'',2,0,0),(37516,8102,6,2,0,'87.218.146.5',1189363154,1,0,1,1,1,1,'','','Carlos,\n\nFijate que en tu imagen el pushbutton y la statusbar estan bien. Luego es algo propio de los controles creados por FWH. A ver si cazamos el bug...','',0,'gIA=','v0jww6jn',1,0,'',2,0,0),(37517,8102,6,2,0,'87.218.146.5',1189363540,1,0,1,1,1,1,'','','Carlos,\n\nY la cuestión es que no siempre falla. Ahora estamos probando a mover la calculadora encima del control outlook y no conseguimos reproducir el fallo.','',0,'gIA=','2r74xua0',1,0,'',2,0,0),(37518,8102,6,2,0,'87.218.146.5',1189365648,1,0,1,1,1,1,'','','Carlos,\n\nUna posible pista: Define este método en tu control y veamos si se llama:\n\nMETHOD Colors( hDC ) INLINE MsgBeep()','',0,'gIA=','2tc15q8i',1,0,'',2,0,0),(37519,8102,6,2,0,'87.218.146.5',1189365987,1,0,1,1,1,1,'','','Carlos,\n\nOtra posible pista: Si BeginPaint() falla (según la documentación del API de Windows) entonces el hDC devuelto no es válido, por lo que al intentar usarlo más adelante no funcionaría. Una posible prueba sería este cambio: \n[code:2gv4kwu8]\nMETHOD _BeginPaint&#40;&#41; CLASS TWindow\n\n   local cPS\n\n   if &#58;&#58;nPaintCount == nil\n      &#58;&#58;nPaintCount = 1\n   else\n      &#58;&#58;nPaintCount++\n   endif\n\n   &#58;&#58;hDC = BeginPaint&#40; &#58;&#58;hWnd, @cPS &#41;\n   &#58;&#58;cPS = cPS\n\n   if &#58;&#58;hDC == 0\n      MsgBeep&#40;&#41;  // tenemos un hDC no válido !\n   endif\n\nreturn nil\n[/code:2gv4kwu8]','',0,'AIA=','2gv4kwu8',1,0,'',2,0,0),(37520,8115,6,1146,0,'83.37.63.254',1189368007,1,0,1,1,1,0,'','','Hola Carlos:\n\nMuchas gracias por tu respuesta. Lo curioso es que este código si funcionaba en versiones anteriores de FWH.\n\nLe he mandado a Antonio un ejemplo para testearlo a ver que me dice.\n\nSalu2','',0,'AIA=','10scy6po',1,0,'',1146,0,0),(37521,8102,6,316,0,'87.218.187.37',1189368021,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:56qe2fl6]Carlos,\n\nFijate que en tu imagen el pushbutton y la statusbar estan bien. Luego es algo propio de los controles creados por FWH. A ver si cazamos el bug...[/quote:56qe2fl6]\n\nCorrecto, si es lo que te decía desde el primer día. Antes de comentar el tema hice todas las pruebas y busque con todos los elementos que tenía a mi alcance, pero no soy experto, recien me estoy metiendo en las tripas del asunto y, obviamente, me quedo rápido sin argumentos y tengo que apelar a gente con más horas de vuelo.\n\nAhora no estoy donde tengo las herramientas, pero seguro que probaremos todas esas alternativas.\n\nOjo que la imagen que te mostraba con el fallo es de la demo que subiste del nuevo control, no de mi control. Por eso seguí posteando en este hilo.\n\nGracias por la atención,\n\nCarlos.','',0,'gA==','56qe2fl6',1,0,'',316,0,0),(37522,8126,6,75,0,'83.43.116.191',1189369364,1,0,1,1,1,0,'','lowbyte y calcxor','Necesito dos funciones que hagan lo siguiente:\n1.- lowbyte:\n     Tiene que extraer los 8 bit (byte) de menor orden de un valor de 16 bits.\n\n2.- calcxor:\n     Calcula el or exclusivo de un caracter.\n\nNo tengo ni idea de como hacerlo.','',0,'gA==','12hflk5z',1,0,'',75,0,0),(37523,8102,6,2,0,'87.218.146.5',1189370998,1,0,1,1,1,1,'','','Carlos,\n\nSi, hemos visto que es con la demo que hemos publicado. \n\nSin embargo, aqui no somos capaces de hacerlo fallar. Usamos un ordenador bastante rápido y Vista 32 bits.','',0,'gA==','17v16v33',1,0,'',2,0,0),(37524,8115,6,2,0,'87.218.146.5',1189371512,1,0,1,1,1,1,'','','Moises,\n\n&gt;\nREDEFINE GET cCODPOSTAL ID 104 OF oFld:aDialogs[ 1 ] ; \nON CHANGE( IIF( Empty( cDPOSTAL ), cDPOSTAL := cCODPOSTAL, ), oGet:Refresh() ) \n&gt;\n\nEl efecto que conseguirías con ese código es que cDPOSTAL contenga el [b:2vvg0zg0]primer[/b:2vvg0zg0] caracter de cCODPOSTAL. Es eso lo que quieres hacer ?','',0,'QA==','2vvg0zg0',1,0,'',2,0,0),(37525,8126,6,2,0,'87.218.146.5',1189373386,1,0,1,1,1,1,'','','Puedes usar las funciones de FWH nAnd( nVal, 255 ) --&gt; nLowByte\n\ny para el CalcXor puedes usar la función nXor( Asc( caracter ), nVal2 ) --&gt; nVal','',0,'QA==','29kz5rq3',1,0,'',2,0,0),(37526,8125,3,2,0,'87.218.146.5',1189373983,1,0,1,1,1,1,'','','Please add this function to your main PRG:\n[code:1k74v16b]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; NSERIALHD &#41;\n&#123;\n   DWORD dwVolumeSerialNumber;\n   BYTE VolumeNameBuffer&#91; 256 &#93;;\n   BYTE FileSystemNameBuffer&#91; 256 &#93;;\n\n   GetVolumeInformation&#40; hb_pcount&#40;&#41; ? hb_parc&#40; 1 &#41;&#58; &quot;C&#58;\\\\&quot;,\n                         &#40; char * &#41; VolumeNameBuffer, sizeof&#40; VolumeNameBuffer &#41;,\n                         &amp;dwVolumeSerialNumber, 0, 0,\n                         &#40; char * &#41; FileSystemNameBuffer,\n                         sizeof&#40; FileSystemNameBuffer &#41; &#41;;\n\n   hb_retnl&#40; dwVolumeSerialNumber &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:1k74v16b]','',0,'AIA=','1k74v16b',1,0,'',2,0,0),(37527,7960,7,123,0,'83.180.183.95',1189374472,1,0,1,1,1,1,'','','Hola Elías,\n\nYo he usado Vista con PDA\'s sin necesidad de ningún software adicional.  De hecho el activesync en vista es un servicio más que puedes o no desactivar.','',0,'AIA=','2ot32qmb',1,0,'',123,0,0),(37528,5494,17,439,0,'200.125.32.52',1189383358,1,0,1,1,1,1,'','','[quote=&quot;José Ríos&quot;:2k0rstx6]Hola.\n\n    ¿se puede mandar un reporte directamente a excel sin un usar preview\\guardar como?\n\n    Saludos.\n\n    Jose rios.[/quote:2k0rstx6]\n\nSi la pregunta es si se puede con Repexcel imprimir a excel sin preview, la respuesta es no, la clase no lo contempla actualmente.\n\nLo que si se puede es generar una excel con FileXls directamente, puedes ver en la clase (aquí en el foro) varios ejemplos.','',0,'gA==','2k0rstx6',1,0,'',439,0,0),(37529,5494,17,252,0,'189.166.5.216',1189384774,1,0,1,1,1,0,'','','Hola.\n\n   Muchas gracias por tu respuesta.\n\n   Saludos.\n\n   Jose Rios','',0,'gA==','30dyi3f4',1,0,'',252,0,0),(37530,3023,17,252,0,'189.166.5.216',1189384865,1,0,1,1,1,0,'','','Rene.\n\n   Muchas gracias por tu respuesta.\n\n\n   Saludos.\n\n   Jose Rios','',0,'gA==','115w2hjf',1,0,'',252,0,0),(37531,8046,3,1064,0,'61.70.211.182',1189389061,1,0,1,1,1,0,'','','hi all:\n\nShould I edit any includ file code for RDD \"ADS\" ? \n\n[quote:1p9n1ad0]\n\n#include \"fivewin.ch\"\n#include \"ads.ch\"\n\n  RddRegister( \"ADS\", 1 )      \n  RddSetDefault( \"ADS\" )      \n \n  SET FILETYPE TO CDX     \n                \n  AdsSetServerType(1)  //local         \n  AdsSetDeleted(.T.)            \n\nUSE ITEM NEW EXCL\nINDEX ON ITEM-&gt;NO TO ITEM\n=&gt;\n dbUseArea(.T.,,\"ITEM\",,if(.F. .or. .T.,!.T.,NIL),.F. )                       \n dbCreateIndex((FILE_TH + \"ITEM\"),\"ITEM-&gt;NO\",{||ITEM-&gt;NO},IIF(.F.,.t.,NIL ) )\n\nNow the \"Index on \" command transfer form fwstd.ch.\n\n [/quote:1p9n1ad0]\n\nBest Regards\n-----------------\nkokoo KAO','',0,'gA==','1p9n1ad0',1,0,'',1064,0,0),(37532,8114,6,102,0,'87.217.67.168',1189402275,1,0,1,1,1,1,'','','Antonio.\nTienes razon sin el RES si enlaza. Asi que al convertirlo a 32 Bits no lo hize bien.\nComo lo convierto?\nEl Res de 16 Bits lo hize con R. Workshop y ahora uso el Pellesc.\n\nGracias\n\n[quote=&quot;Antonio Linares&quot;:29j31myh]José,\n\nPrueba a no enlazar el RES por si el problema se debe a un RES no correcto[/quote:29j31myh]','',0,'gA==','29j31myh',1,0,'',102,0,0),(37533,8102,6,316,0,'213.97.245.163',1189406726,1,0,1,1,1,0,'','','Lo acabo de probar acá en el equipo del trabajo y te muestro la imagen con el defecto en el pintado. Tambien te pongo la configuración del equipo en la misma imagen.\nProbablemente sea, tal como dijimos al principio, cuestion de velocidad, es decir, el defecto no aparece en equipos de alta perfomance. No es problema de la tarjeta de video, porque ayer lo probé en una nVidia de 256 Mb acelerada.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/hbo1loarvx\">http://www.box.net/shared/hbo1loarvx</a><!-- m -->\n\nA ver si me pongo y pruebo lo que me dijiste.\n\nUn saludo,\nCarlos.','',0,'gA==','2tsw6nxx',1,0,'',316,0,0),(37534,8119,17,106,0,'85.34.123.173',1189410344,1,0,1,1,1,1,'','','Buenisimo, ya estoy usando tu archivo de sintaxis.','',0,'gA==','36xt4vvt',1,0,'',106,0,0),(37535,8101,3,2,0,'87.218.146.5',1189410518,1,0,1,1,1,1,'','','Using the OutLook2003 control from source code and from resources:\n[url=http&#58;//imageshack&#46;us:1xmse283][img:1xmse283]http&#58;//img357&#46;imageshack&#46;us/img357/585/outlookdc8&#46;png[/img:1xmse283][/url:1xmse283]','',0,'GA==','1xmse283',1,0,'',2,0,0),(37536,8102,6,2,0,'87.218.146.5',1189410639,1,0,1,1,1,1,'','','Usando el nuevo control OutLook2003 desde código y desde recursos:\n[code:1m3vj3b9]\n   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;\n      PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      BITMAPS &quot;mail&#46;bmp&quot;, &quot;calendar&#46;bmp&quot;, &quot;notes&#46;bmp&quot; ;\n      DIALOGS &quot;Page1&quot;, &quot;Page2&quot;, &quot;Page3&quot;\n\n   REDEFINE BUTTON ID 110 OF oOutL2003&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;Click&quot; &#41;\n   &#46;&#46;&#46;\n[/code:1m3vj3b9]\n[url=http&#58;//imageshack&#46;us:1m3vj3b9][img:1m3vj3b9]http&#58;//img357&#46;imageshack&#46;us/img357/585/outlookdc8&#46;png[/img:1m3vj3b9][/url:1m3vj3b9]','',0,'GIA=','1m3vj3b9',1,0,'',2,0,0),(37537,8001,3,130,0,'141.51.32.24',1189411791,1,0,1,1,1,1,'','','Greg,\n\nyou can use this batch, just change the path and the language file\n\n[code:1lriu5sz]@ECHO OFF\nCLS\nset fwh=d&#58;\\fwh\nset include=&#46;\\INCLUDE;d&#58;\\fwh\\include;%INCLUDE%\nset hdir=c&#58;\\xharbour71\nset bcdir=d&#58;\\Borland\\bcc55\\bin\nset def=HB_API_MACROS \n\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSBROWSE&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSBROWSE&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\lang\\SBMsgGer&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\SBMsgGer&#46;C  // &lt;- LANGUAGE\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSCOLUMN&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSCOLUMN&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSBTNGET&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSBTNGET&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSGET&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSGET&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSCOMBO&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSCOMBO&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TSMULTI&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TSMULTI&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\TMETAFIL&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\TMETAFIL&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\SCRLLBAR&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\SCRLLBAR&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\BTNDOWN&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\BTNDOWN&#46;C\n%hdir%\\bin\\harbour SOURCE\\Classes\\RPREVIEW&#46;PRG /n /i%fwh%\\include;%hdir%\\include /oOBJ\\RPREVIEW&#46;C\n\nrem INICIO Modulos C Generados por Harbour !!!\n\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSBROWSE&#46;OBJ  OBJ\\TSBROWSE&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\SBMSGGer&#46;OBJ  OBJ\\SBMSGGER&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSCOLUMN&#46;OBJ  OBJ\\TSCOLUMN&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSBTNGET&#46;OBJ  OBJ\\TSBTNGET&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSGET&#46;OBJ  OBJ\\TSGET&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSCOMBO&#46;OBJ  OBJ\\TSCOMBO&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TSMULTI&#46;OBJ  OBJ\\TSMULTI&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\TMETAFIL&#46;OBJ  OBJ\\TMETAFIL&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\SCRLLBAR&#46;OBJ  OBJ\\SCRLLBAR&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\BTNDOWN&#46;OBJ  OBJ\\BTNDOWN&#46;C\n%bcdir%\\bcc32 -M -c -O2 -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include  -oOBJ\\RPREVIEW&#46;OBJ  OBJ\\RPREVIEW&#46;C\n\n@del OBJ\\*&#46;c\n\n\nrem Modulos C Nativos !!!\n\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include;%fwh%\\include -oOBJ\\GetBtn&#46;OBJ   SOURCE\\FUNCTION\\GETBTN&#46;C\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include;%fwh%\\include -oOBJ\\SCROLL&#46;OBJ   SOURCE\\FUNCTION\\SCROLL&#46;C\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -DHB_API_MACROS -DHB_FM_STATISTICS_OFF -I%hdir%\\include;%fwh%\\include -oOBJ\\TSBFUNCS&#46;OBJ SOURCE\\FUNCTION\\TSBFUNCS&#46;C\n\n\n\n@del LIB\\SBrowseX&#46;LIB\n\n\nrem %bcdir%\\tlib lib\\TWBRW32x&#46;LIB -+obj\\wbrowse&#46;obj &gt; lib&#46;log\nrem %bcdir%\\tlib lib\\TWBRW32x&#46;LIB -+obj\\wbrwline&#46;obj &gt;&gt; lib&#46;log\nrem %bcdir%\\tlib lib\\TWBRW32x&#46;LIB -+obj\\tmultise&#46;obj &gt;&gt; lib&#46;log\n\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TSBrowse     &gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\SBMsgGer     &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TSBFuncs     &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TSColumn     &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TSBtnGet     &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TSGet        &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TSCombo      &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TSMulti      &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\ScrllBar     &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\RPreview     &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\TMetafil     &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\Scroll       &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\GetBtn       &gt;&gt; Lib&#46;log\nd&#58;\\borland\\bcc55\\bin\\Tlib lib\\Tsbrw613 +obj\\BtnDown      &gt;&gt; Lib&#46;log\n\n\nrem @del tmplib&#46;bc\n\n@echo Library built\nrem copy lib\\SBrowseX %hdir%\\lib[/code:1lriu5sz]','',0,'AIA=','1lriu5sz',1,0,'',130,0,0),(37538,7330,6,75,0,'83.57.17.240',1189412371,1,0,1,1,1,0,'','Calculadora correccion de bug','Os dejo en el siguiente enlace la Tcalc.prg corregida, pues tenía un error consistente en que despues de la coma decimal no dejaba poner cero. Ya está corregido. Espero la esteis disfrutando y cualquier aporte será muy bien recibido:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?a5px22pjtx5\">http://www.mediafire.com/?a5px22pjtx5</a><!-- m -->','',0,'AIA=','w8bg8wes',1,0,'',75,0,0),(37539,8127,6,102,0,'87.217.67.168',1189412910,1,0,1,1,1,1,'','Problemas con fichero .RES','Hola Foro.\nEstoy migrando una aplicacion de 16 bits a 32 bits.\nAl enlazar me da un error: Fatal error Vioalation access. Link terminated.\nHe comprobado que el problema es el fichero de recursos .Res.\nMirando por el foro he visto que no se puede tener un .RES mayor que 1.052.000 Bites y el mio ocupa 2.236.000.\nSe pueden utilizar mas de un .Res en una aplicacion y como lo puedo hacer. \nEl caso que en 16 bits si lo mete en el executable.\nMuchas gracias','',0,'AIA=','fp01r9b7',1,0,'',102,0,0),(37540,8127,6,2,0,'87.218.146.5',1189413710,1,0,1,1,1,1,'','','José,\n\nQue editor de recursos usas ? \n\nPrueba a cargar el fichero RES en el Borland Resource Workshop y a salvarlo como RC y luego úsalo como fichero RC.','',0,'AIA=','17hxyghd',1,0,'',2,0,0),(37541,8115,6,1146,0,'83.54.226.175',1189419494,1,0,1,1,1,0,'','','Antonio:\n\nNo, lo que quiero es que cDPOSTAL sea cCODPOSTAL siempre que la primera este vacía y con toda su longitud. Pero ni siquiera coge el primer carácter.\n\nTe envié un ejemplo para que lo puedas probar cuando tengas un rato libre. Te comento que con FWH 2.4 funcionaba sin problemas.\n\nMuchas gracias. Salu2','',0,'AIA=','2uok9hmr',1,0,'',1146,0,0),(37542,8115,6,2,0,'87.218.146.5',1189419740,1,0,1,1,1,1,'','','Moises,\n\nTienes que hacerlo de esta forma:\n\nREDEFINE GET cCODPOSTAL ID 104 OF oFld:aDialogs[ 1 ] ; \n[color=red:ippy4adk]VALID[/color:ippy4adk] ( IIF( Empty( cDPOSTAL ), cDPOSTAL := cCODPOSTAL, ), oGet:Refresh(), .T. ) \n\nEn la versión 2.4 el ON CHANGE no funcionaba para cada pulsación de tecla','',0,'Ag==','ippy4adk',1,0,'',2,0,0),(37543,8127,6,102,0,'87.217.67.168',1189420571,1,0,1,1,1,1,'','','antonio,\nPara 16 Bits uso Resource Workshop\nPara 32 Bits uso Pellesc\nHe hecho lo que dices pero pasa lo mismo da el error:\nFatal: Violation access. Link terminated\nComo he dicho antes he visto por el foro que el fichero de recursos tiene que ser menor a 1.052.000 bites.\nse pueden tener dos o mas ficheros de recursos y como les llamo?\n\nGracias','',0,'Ag==','1rixcwn3',1,0,'',102,0,0),(37544,8128,3,473,0,'81.82.10.56',1189421436,1,0,1,1,1,0,'','oPicture:SaveImage does not work','Here is a sample of the code I used.\n\nIt generated only an empty file of 0 bytes.\n\nSomeone an idea of what I am doing wrong.[code:3cxx66ut]Static Function LoadJpg&#40;oPicture,cId&#41;\ncId &#58;= Trim&#40;cId&#41; + &quot;&#46;JPG&quot;\noPicture&#58;LoadFromClipboard&#40;&#41;\n\noPicture&#58;Refresh&#40;&#41;\n\nReturn Nil\n\nStatic Function SaveJpg&#40;oPicture,cId&#41;\ncId &#58;= Trim&#40;cId&#41;\n\noPicture&#58;SaveImage&#40;cId,2,25&#41;\nReturn Nil[/code:3cxx66ut]\n\nThanks \nWilly','',0,'AIA=','3cxx66ut',1,0,'',473,0,0),(37545,8129,3,80,0,'202.72.164.124',1189421689,1,0,1,1,1,0,'','Text File','Is it possible to create a text file from the printer class.\n\nColin','',0,'AIA=','3jnihlxu',1,0,'',80,0,0),(37546,8127,6,2,0,'87.218.146.5',1189421693,1,0,1,1,1,1,'','','Los bitmaps los guardas dentro del fichero RC ?','',0,'AIA=','32i5tp9z',1,0,'',2,0,0),(37547,8125,3,1117,0,'203.144.143.4',1189422351,1,0,1,1,1,0,'','','It work!\nThank you,','',0,'AIA=','3kns8xs7',1,0,'',1117,0,0),(37548,8129,3,6,0,'79.2.214.110',1189423123,1,0,1,1,1,1,'','Re: Text File','Try using TDosPrn class or install a text printer driver.\n\nEMG','',0,'AIA=','36myp38y',1,0,'',6,0,0),(37549,8128,3,6,0,'79.2.214.110',1189423657,1,0,1,1,1,1,'','Re: oPicture:SaveImage does not work','Use this modified SaveImage() method:\n\n[code:21c7elx7]METHOD SaveImage&#40; cFile, nFormat, nQuality &#41; CLASS TImage\n\n   //   0 -&gt; Bmp\n   //   2 -&gt; Jpg\n   //  13 -&gt; Png\n\n   local hDib &#58;= DibFromBitmap&#40; &#58;&#58;hBitmap &#41;\n   local cTempFile &#58;= cTempFile&#40;&#41;\n   local lSaved\n\n   DibWrite&#40; cTempFile, hDib &#41;\n\n   GloBalFree&#40; hDib &#41;\n\n   lSaved = FISaveImg&#40; cTempFile, cFile, nFormat, nQuality &#41;\n\n   FErase&#40; cTempFile &#41;\n\nreturn lSaved[/code:21c7elx7]\n\nEMG','',0,'AIA=','21c7elx7',1,0,'',6,0,0),(37550,8126,6,316,0,'213.97.245.163',1189423827,1,0,1,1,1,0,'','','Para el lowbyte creo que es más sencillo usar el operador módulo %\n\n#define LowByte( x ) =&gt; ( x % 256 )\n\nSaludos,\n\nCarlos.','',0,'AIA=','h89s7hyl',1,0,'',316,0,0),(37551,8086,3,160,0,'59.96.152.11',1189424186,1,0,1,1,1,0,'','','Dear Armando,\n\nNow I am quite comfortable with Barcode printing with the help of the sample.\n\nJust curious : Is there any way or shortcut to print banner while using Code128 ?\n\nTIA\nMilan.','',0,'AIA=','365tpnrd',1,0,'',160,0,0),(37552,8128,3,473,0,'81.82.10.56',1189424497,1,0,1,1,1,0,'','','Hello,\n\nI was aleady using this version of this method.\n\nHowever I have copied it. The result is the same. There is a JPG file created from 0 bytes.\n\nI use the freeimage.dll from 4SEP2005 19h01 from 1032 Kb.\n\nThis is the one that is delivered with the latest FWH\n\nThanks,\n\nWilly','',0,'AIA=','ju4r6ecn',1,0,'',473,0,0),(37553,8127,6,316,0,'213.97.245.163',1189424732,1,0,1,1,1,0,'','','[quote=&quot;jmua&quot;:4a0ozpx2]antonio,\nPara 16 Bits uso Resource Workshop\nPara 32 Bits uso Pellesc\nHe hecho lo que dices pero pasa lo mismo da el error:\nFatal: Violation access. Link terminated\nComo he dicho antes he visto por el foro que el fichero de recursos tiene que ser menor a 1.052.000 bites.\nse pueden tener dos o mas ficheros de recursos y como les llamo?\n\nGracias[/quote:4a0ozpx2]\n\nQue estas usando para compilar y enlazar? Un bat? make? te pregunto para saber la forma en la que estas enlazando los recursos.\n\nYo los uso en una dll ya que son muchos (18-20 Mb) y aun así a veces me da problemas. En ese caso suelo abrir la dll o el res con el ResourceHacker, le hago alguna modificacion trivial y grabo. Automágicamente me lo arregla. Prueba con eso.\n\nUn saludo,\nCarlos','',0,'gA==','4a0ozpx2',1,0,'',316,0,0),(37554,8119,17,439,0,'200.125.49.29',1189426321,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:1908q5bb]Buenisimo, ya estoy usando tu archivo de sintaxis.[/quote:1908q5bb]\n\nMe alegro que te haya sido útil.','',0,'gA==','1908q5bb',1,0,'',439,0,0),(37555,8102,6,1146,0,'83.54.226.175',1189428448,1,0,1,1,1,0,'','','Carlos,\n\nEn los equipos que te da el error de pintado, ¿qué driver usas?. ¿cuál es el chipset de la tarjeta gráfica?.\n\nSalu2','',0,'gA==','25ovj15m',1,0,'',1146,0,0),(37556,8109,6,221,0,'190.78.43.229',1189428964,1,0,1,1,1,0,'','','si lo has dicho bien, es con fuentes como courrier new o alguna que se baje tipo typewriter, solo preguntaba por si alguien se ha topado con este problemita y ya existian alguna funcion que quisieran compartir, tocara hacerla, que mas','',0,'gA==','2vsctf3k',1,0,'',221,0,0),(37557,8001,3,620,0,'209.189.229.150',1189429500,1,0,1,1,1,0,'','','Most appreciated...should have posted that James and I worked it all out...turned out the culprit was in the BCC32.cfg file...missing include paths for FWH...AND....you can\'t have ANY spaces in the include path string...learned a bit on that one!\nGreg','',0,'gA==','2sxw8zop',1,0,'',620,0,0),(37558,8128,3,473,0,'81.82.10.56',1189429545,1,0,1,1,1,0,'','','I think I found an error in the tImage class.\n\nIn the header the method SaveImage does not mention the nQuality parameter.\n\nThe method however has the third parameter.\n\nHowever this does not change the result.\n\nI\'ve tried the program also on a Vista PC. There is a difference. On that pc there is no file added.\n\nOn a Xp PC there is a file created with 0 bytes\n\nBey\n\nWilly','',0,'gA==','2spn2ph1',1,0,'',473,0,0),(37559,8129,3,384,0,'189.23.199.138',1189430064,1,0,1,1,1,1,'','','I use:\noPrin:=TDosPrn():New( cTempFile( \'c:\\temp\\\', \'prn\' ) )','',0,'gA==','1n5c0dky',1,0,'',384,0,0),(37560,8128,3,6,0,'79.2.214.110',1189430096,1,0,1,1,1,1,'','','Sorry, it is working fine here. I don\'t know why it does\'t work for you.\n\nEMG','',0,'gA==','2cdnw1pa',1,0,'',6,0,0),(37561,8128,3,473,0,'81.82.10.56',1189432985,1,0,1,1,1,0,'','','Thanks for trying.\n\nAntonio, do you have any idea.\n\nWilly','',0,'gA==','2xctps08',1,0,'',473,0,0),(37562,8130,6,221,0,'190.78.43.229',1189434432,1,0,1,1,1,0,'','alguien tiene el cabwiz.exe','gracias de antemano','',0,'gA==','3jsrp3g7',1,0,'',221,0,0),(37563,8086,3,53,0,'189.139.18.148',1189436652,1,0,1,1,1,1,'','','Milan:\n\n[quote:1o6oiwsw]\nNow I am quite comfortable with Barcode printing with the help of the sample.\n[/quote:1o6oiwsw]\n\nI\'m glad to hear that  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[quote:1o6oiwsw]\nJust curious : Is there any way or shortcut to print banner while using Code128 ?\n[/quote:1o6oiwsw]\n\nI\'dont know, I have never used that code bar  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nBest regards','',0,'gA==','1o6oiwsw',1,0,'',53,0,0),(37564,7505,2,221,0,'190.78.43.229',1189437110,1,0,1,1,1,0,'','','gracias rene por tu explicativa respuesta, ya baje un demo y le echare un ojito','',0,'gA==','2wfj316z',1,0,'',221,0,0),(37565,8109,6,72,0,'189.146.242.105',1189437658,1,0,1,1,1,0,'','','Aquí hay algo: <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/imprimir.zip\">http://www.despachoarteaga.com.mx/imprimir.zip</a><!-- m -->','',0,'gA==','16o0mf7v',1,0,'',72,0,0),(37566,8130,6,362,0,'200.148.67.141',1189439959,1,0,1,1,1,1,'','Re: alguien tiene el cabwiz.exe','[quote=&quot;QAZWSX2K&quot;:4707gwih]gracias de antemano[/quote:4707gwih]\n\nCABWIZ.EXE\n\nSeria esto??\n\n<!-- m --><a class=\"postlink\" href=\"http://www.phelios.net/cabomatic.html\">http://www.phelios.net/cabomatic.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://samples.gotdotnet.com/quickstart/CompactFramework/doc/cabfile.aspx\">http://samples.gotdotnet.com/quickstart ... bfile.aspx</a><!-- m -->\n\nQue haces este programa?\n\nGracias.','',0,'gA==','4707gwih',1,0,'',362,0,0),(37567,7960,7,527,0,'88.11.7.109',1189440052,1,0,1,1,1,0,'','Y como hago esto en Vista','Y como hago esto en Vista','',0,'gA==','2q6hxnbo',1,0,'',527,0,0),(37568,8131,6,127,0,'81.35.39.247',1189440509,1,0,1,1,1,0,'','Sale ventana de linea de comandos','Con la nueva versión 7.07 al arrancar el programa sale una ventana de DOS como pasaba con Win 98 antes\n\n¿ Qué estoy haciendo mal ?\n\n Tambien me da error Harbour al compilar:\n\n albarane.prg(375) Error E0022  Invalid lvalue: \':\'\n\n aoGt[ 4 ]:bLostFocus() = { | | lBtnAnadir := .T., aoBt[ 1 ]:SetFocus() }					\n¿ No hay una guía de errores Harbour como había en Clipper ?\n\nGracias.','',0,'','vlmtit8o',1,0,'',127,0,0),(37569,7960,7,2,0,'87.218.146.5',1189440560,1,0,1,1,1,1,'','','Está activado por defecto, sólo tienes que conectar el Pocket PC por cable USB al ordenador con Windows Vista','',0,'','1yw9313u',1,0,'',2,0,0),(37570,8131,6,2,0,'87.218.146.5',1189440726,1,0,1,1,1,1,'','','Julio,\n\nAhora tienes que enlazar GTGUI.lib en vez de GTWIN.lib. Es un cambio que han hecho en Harbour.\n\nTe sobran estos paréntesis:\naoGt[ 4 ]:bLostFocus[color=red:3abh3bly]()[/color:3abh3bly] = { | | lBtnAnadir := .T., aoBt[ 1 ]:SetFocus() } \n\nEs un error que antes no detectaba Harbour\n\n&gt; ¿ No hay una guía de errores Harbour como había en Clipper ? \n\nEn principio son los mismos que Clipper. La documentación, como siempre suele ocurrir, es escasa. Tienes todo el código fuente de Harbour para revisarlo.','',0,'Ag==','3abh3bly',1,0,'',2,0,0),(37571,8131,6,127,0,'81.35.39.247',1189444529,1,0,1,1,1,0,'','','Lo de la ventana de DOS solucionado Ok. Gracias\n\nPero lo de :\n\nalbarane.prg(375) Error E0022 Invalid lvalue: \':\'\n\nme lo sigue haciendo con esta linea, aun mas simple.\n\n aoGt[ 2 ]:bLostFocus() := { || aoGt[ 4 ]:SetFocus() }					\ntan solo me da en todo el código 2 errores en los dos bLostFocus()\nque hay.\n\nTambién lo da poniendo  aoGt[ 2 ]:bLostFocus() := { || MsgInfo() }\n\npor lo que creo que debe de ser del bLostFocus() o de el GET\n\nGracias.','',0,'','2ve7h7o5',1,0,'',127,0,0),(37572,8131,6,2,0,'87.218.146.5',1189444714,1,0,1,1,1,1,'','','Julio,\n\nTienes que quitar los paréntesis del lado izquierdo:\n\n&gt; También lo da poniendo aoGt[ 2 ]:bLostFocus[color=red:tqhjp8h5]()[/color:tqhjp8h5] := { || MsgInfo() }\n\nAsí:\naoGt[ 2 ]:bLostFocus := { || MsgInfo() }','',0,'Ag==','tqhjp8h5',1,0,'',2,0,0),(37573,8131,6,127,0,'81.35.39.247',1189445413,1,0,1,1,1,0,'','','Perdona mi torpeza Antonio, solucionado Ok\n\nMuchisimas gracias y un saludo.','',0,'Ag==','2j0v4pvk',1,0,'',127,0,0),(37574,8132,6,221,0,'190.78.43.229',1189450641,1,0,1,1,1,0,'','lo siento, no quiero molestar pero a quien mas preguntarle?','recien estoy empezando a usar VERCE y tengo varias dudas\n\n1.- siempre me sale este error\n\nFiveWin.ch(193) Warning I0003  No markers in repeatable group [\'&lt;uAction&gt;\\\'] - group will never be used.\n\n2.- aun saliendo y otras que no sale compila ok pero el programa no se ejecuta, pero si lo compilo con el buildx si se ejecuta, que sera???, no uso nada de terceros trato de hacer las cosas 100% lo que trae original fivewin\n\n3.- si no estoy usando harbour sino xharbour debe colocarle la ruta del xharbour donde dice directorio de harbour?\n\n4.- el directorio de fivewin for harbour es el mismo para xharbour?\n\ngracias y prometo no preguntar mas nada por hoy','',0,'','2k63hflf',1,0,'',221,0,0),(37575,8130,6,221,0,'190.78.43.229',1189450761,1,0,1,1,1,0,'','','es el segundo que es gratis pero no tengo el visual studio, vi por ahi revisando en los foros que puede funcionar independiente con solo copiarlo, eso creo','',0,'','1yaf84e3',1,0,'',221,0,0),(37576,8133,6,127,0,'81.35.39.247',1189451286,1,0,1,1,1,0,'','oGet:bKeyDown','LOCAL ccodibar14 := Space( 14 )\n\n @   9,  2 GET aoGt[ 2 ] VAR ccodibar14 PIXEL SIZE 62, 10 ;\n              PICTURE \"@! \" + Replicate(\"X\",14) OF oDlg\n\n aoGt[ 2 ]:bKeyDown := { | nKey | ;\n     IF( nKey == K_ENTER, MsgInfo( \"ccodibar14 \" + ;\n                                    ccodibar14, \"Valor\" ), ) }\n\n Con la versión 7.07 - Julio 2007 \n Hay que darle 2 veces al Intro para que MsgInfo() muestre el contenido, \n a la primera se queda con el valor anterior.\n\n Con la versión 2.8 - September 2006 funciona perfectamente.\n\n Gracias','',0,'','3ujstkko',1,0,'',127,0,0),(37577,8132,6,1146,0,'83.54.226.175',1189452239,1,0,1,1,1,0,'','','Hola:\n\nVerce distingue entre Harbour y xHarbour, cada uno de ellos tiene su propia ruta, lo mismo que las librerías de Fivewin.\n\nYo he probado Verce con el último FDTN y funciona sin problemas. Igual tienes una versión vieja de verce o de fwh/h.\n\nSalu2','',0,'','3r3ua83g',1,0,'',1146,0,0),(37578,8132,6,53,0,'189.139.18.148',1189452313,1,0,1,1,1,1,'','','QAZWSX2K: (Que nombre tan raro, es ruso ?)\n\nDame un dirección de correo y te envío un pequeño manual que me construi para compilar con VERCE.\n\nSaludos','',0,'','203z4gdr',1,0,'',53,0,0),(37579,8132,6,221,0,'190.78.43.229',1189453138,1,0,1,1,1,0,'','','gracias armando, no es un nombre solo son las primeras 6 letras del teclado, mi email es <!-- e --><a href=\"mailto:alex_patino74@hotmail.com\">alex_patino74@hotmail.com</a><!-- e -->, gracias nuevamente','',0,'','2gmtx46l',1,0,'',221,0,0),(37580,8109,6,221,0,'190.78.43.229',1189453426,1,0,1,1,1,1,'','','que raro, me sale la direccion no existe! si me lo pudieras mandar al mail <!-- e --><a href=\"mailto:alex_patino74@hotmail.com\">alex_patino74@hotmail.com</a><!-- e --> si no es molestia y gracias','',0,'','3luj5v24',1,0,'',221,0,0),(37581,8132,6,940,0,'189.175.194.140',1189455236,1,0,1,1,1,1,'','','en MENU OPCIONES / CONFIGURAR FLAGS\n\nsuprime   /W\n\n\nsaludos..','',0,'','3pig5ule',1,0,'',940,0,0),(37582,8132,6,53,0,'189.139.18.148',1189456740,1,0,1,1,1,1,'','','Alex:\n\nAhhhh, siempre es más gratificante referirme a tí por tu nombre.\n\nTe he enviado el manualillo a tu correo, por favor me confirmas que lo haz recibido pues mi correo anda con problemas.\n\nSaludos','',0,'','2ly0izup',1,0,'',53,0,0),(37583,8134,3,473,0,'81.82.10.56',1189457009,1,0,1,1,1,0,'','xBrowse - Bitmap - JPG','Hello,\n\nI saw an example to use BMP files in a xBrowse()\n\nIs it also possible to use JPG files.\n\nThanks,\n\nWilly','',0,'','2hdswv00',1,0,'',473,0,0),(37584,8135,6,1072,0,'190.82.36.221',1189464124,1,0,1,1,1,0,'','Dudas al ejecutar el EXE','Hola Foro:\n\nTengo una duda, he compilado una aplicacion usando MENUSAT, compilo con verce, Fwh701, Xharbour 99.71.\n\nAl ejecutar el programa, me abre una pantalla DOS en negro en la barra de windows, pero el programa ejectuta sin problemas, es solo que en la barra indica dos ventanas abiertas, la del sistema y la DOS en negro.\n\nAque se debe este situacion?.\n\nSaludos,\nAntonio','',0,'','103bg33d',1,0,'',1072,0,0),(37585,8135,6,940,0,'189.175.194.140',1189471594,1,0,1,1,1,1,'','','Antonio, \n\nedita el proyecto, \n\ny remplaza GTWIN.LIB  por GTGUI.LIB\n\n\nSaludos..','',0,'','3uwrm0zm',1,0,'',940,0,0),(37586,8114,6,138,0,'200.76.182.32',1189479703,1,0,1,1,1,1,'','','No uses .RES, trabaja SIEMPRE con el RC.\n\nAbre el Workshop, abre tu RES y pon Save As.... y le das el nombre con el .RC y listo.\n\nEn tu archivo de compilacion agrega el RC y todo listo','',0,'','3mfjdcn5',1,0,'',138,0,0),(37587,8134,3,138,0,'200.76.182.32',1189479898,1,0,1,1,1,1,'','','It\'s not possible, image for using in browses (any kind) should be always BMPs in files or resources.','',0,'','2adtfwda',1,0,'',138,0,0),(37588,8114,6,102,0,'87.217.67.168',1189487422,1,0,1,1,1,1,'','','Rene.\nEsto que dices ya lo hice y pasa igual, sigue dando el mismo error al enlazar.\nAdemas en RC ocupa mas mas que en RES.\nGracias\nEn RES ocupa 2.237 KB y\nEn RC  ocupa 7.124 KB\nProbare convirtiendo en DLL\nGracias\n[quote=&quot;RF&quot;:1d3kujl8]No uses .RES, trabaja SIEMPRE con el RC.\n\nAbre el Workshop, abre tu RES y pon Save As.... y le das el nombre con el .RC y listo.\n\nEn tu archivo de compilacion agrega el RC y todo listo[/quote:1d3kujl8]','',0,'gA==','1d3kujl8',1,0,'',102,0,0),(37589,8127,6,102,0,'87.217.67.168',1189487623,1,0,1,1,1,1,'','','Antonio los Bitmaps los dialogos y los iconos los guardo todos dentro del fichero de recursos.\nVoy a probar convirtiendol en DLL a ver que pasa,\nPero lo que me gustaria es dejarlo en RES aunque sean dos pero claro no se como añadir dos RES a la aplicacion\n\n[quote=&quot;Antonio Linares&quot;:2m6zz3a0]Los bitmaps los guardas dentro del fichero RC ?[/quote:2m6zz3a0]','',0,'gA==','2m6zz3a0',1,0,'',102,0,0),(37590,8127,6,102,0,'87.217.67.168',1189487765,1,0,1,1,1,1,'','','Carlos para compilar y enlazar utilizo el Verc 4.3 que es muy comodo y practico.\nVoy a probar convirtiendolo en DLL a ver que pasa y ya veremos.\nGracias','',0,'gA==','33fbcao2',1,0,'',102,0,0),(37591,8134,3,2,0,'87.218.146.5',1189491125,1,0,1,1,1,1,'','','Willy,\n\nYou have to use a TImage object that reads the JPG and convert it into a BMP automatically in memory.','',0,'gA==','39bgyiwb',1,0,'',2,0,0),(37592,8136,1,1167,0,'211.30.191.95',1189493177,1,0,1,1,1,0,'','New person - Clipper 5.3 programmer','In my altered build.bat (which did work for achoice.prg, after I added Function Clipper520(); Return nil), the tutor01.prg\nstill doesn\'t work. I asked Antonio, and he suggested I try adding:\n\"... /force:multiple\"\nso I tried\n\"c:\\sids\\bin\\link /se:2000 /NOE %1,,null, Five FiveC Objects WinApi Clipper Extend, ..\\include\\FiveWin.def /force:multiple\"\nthen\n\"c:\\sids\\bin\\link /se:2000 /NOE %1,,null, Five FiveC Objects WinApi Clipper Extend, ..\\include\\FiveWin.def ... /force:multiple\"\n\nNeither worked. Refer attached for first attempt. The 2nd attempt had same error, plus others. What am I doing wrong?\n===\nAlso before the \"/force:multiple\" problem, I included the /b debugger\nswitch, as debugging is vital. It works, but if you hit ESC key at first\ndebug screen, the program locks up. \nAny help appreciated.','',0,'gA==','1v4wcyct',1,0,'',1167,0,0),(37593,8102,6,316,0,'213.97.245.163',1189493992,1,0,1,1,1,0,'','','Moises,\n\nGracias por tu interés. Deduzco que tu no debes tener ese problema, dado que preguntas por mi configuración. Que configuración has usado?\nTal como respondí ayer, creo que un chipset nVidia de una tarjeta nueva de 256 Mb de RAM dedicada no da lugar a muchas dudas, motherboard ASUS, Athlon, 1 Gb de RAM, con esa tarjeta de video ejecuta juegos de manera impecable, fue construido para eso. Y no creo que un control de FiveWin sea más exigente en cuestiones gráficas que un juego.\n\nY ayer a la tarde hablando con un colega de la lista me confirmó los mismos problemas con el demo.exe descargado del enlace de este hilo, pero no me dio (no le pregunté) su configuración. Espero que si lee este mensaje pueda dar ese detalle.\n\nY lo he probado con 3 equipos, ademas del nvidia, lo probé en mi portatil que es un acer 1410 WLMI con 768 Mb RAM y chipset gráfico Intel® 855GME integrated 3D AGP graphics / Intel® Extreme Graphics 2 technology 64 MB of video memory Dual independent display support\n\nAca en la oficina es un VIA/S3G Unichrome PRO IGP con 64 Mb de RAM, en un Pentium IV de 3.0 Ghz y 512 Mb de RAM, la especificaciones las puedes ver en la imagen posteada, ya que use la ventana de propiedades para hacer fallar el pintado.\n\nSería interesante saber si alguien más tiene ese problema, sobre todo si el equipo es de recursos limitados, ya que un banco de pruebas debe presentar las condiciones desfavorables.\n\nUn saludo,\nCarlos.','',0,'gA==','2qwhkbfh',1,0,'',316,0,0),(37594,8137,2,1159,0,'62.110.52.11',1189494791,1,0,1,1,1,0,'','Clase Tpdf','Hola! me pueden decir como puedo hacer para bajar la clase Tpdf? Si es gratis o se debe pagar? porque lo que necesito es generar directamente un PDF y PDFCreator no me sirve para hacer lo que quiero yo.\n\nGracias y saludos','',0,'gA==','3ua2d0sn',1,0,'',1159,0,0),(37595,8134,3,473,0,'81.82.10.56',1189495346,1,0,1,1,1,0,'','','Thanks,\n\nIs there an example.\n\nGreetings,\n\nWilly.','',0,'gA==','jzgnzxug',1,0,'',473,0,0),(37596,8102,6,1146,0,'83.54.226.175',1189499524,1,0,1,1,1,0,'','','Carlos,\n\nMuchas gracias por responder. A mi todavía no me ha dado tu error, si he notado una vez que no pintaba bien una esquina pero al seleccionar otro Folder de la barra se repintó bien.\n\nVoy a hacer pruebas en un equipo antiguo con Windows ME y con un equipo Pentium 2.8 2 gb RAM que tiene la nvidia a ver qué sucede.\n\nA ver si damos con el bug, porque la nueva clase de Antonio es excelente y tengo muchas ganas de integrarla en mis aplicaciones.\n\nUn saludo','',0,'gA==','1k1369p4',1,0,'',1146,0,0),(37597,8111,6,1146,0,'83.54.226.175',1189499642,1,0,1,1,1,0,'','','Lo que pretendo es leer el resultado que me envía, por eso lo de shellexecute iexplore no me sirve. Muchas gracias','',0,'gA==','2e8yprco',1,0,'',1146,0,0),(37598,8127,6,1146,0,'83.54.226.175',1189499795,1,0,1,1,1,0,'','','Yo lo que hago, por si te sirve, es trabajar con ficheros .rc, que no me dan ningún problema.\n\nLas imágenes las almaceno en su correspondiente archivo externo, y dentro del rc las llamo:\n\nNOMBRERECURSO TIPO \"BMP\\LOGO.BMP\"\n\nEJ:\n\nCONTA BITMAP \"BMP\\CONTA.BMP\"\nICO01  ICON    \"ICO\\IC01.ICO\"\n\n\nA mi me funciona genial.','',0,'gA==','3jrc1jpk',1,0,'',1146,0,0),(37599,8115,6,1146,0,'83.54.226.175',1189500004,1,0,1,1,1,0,'','','Muchas gracias Antonio, funciona estupendo!!.','',0,'gA==','38i2y0hy',1,0,'',1146,0,0),(37600,8102,6,316,0,'213.97.245.163',1189501411,1,0,1,1,1,0,'','','Moises,\n\nel error se produce cuando tu aplicacion no es la activa, es decir el foco esta en una ventana que no es tu exe. Y como tu dices, al retomar el foco comienza a pintar sin problemas. Es el mismo comportamiento.\n\nSeguir buscando en el hardware problemas que solo tenemos con controles de FW me parece que no tiene mucho sentido. Notaras que si las clases son nativas de windows el problema no aparece, solo es en las que pintamos nosotros. Es decir que al pintar hacemos algo diferente. El problema lo tengo con XP, con Milenium... es que ni siquiera tiene soporte de temas...\n\nUn saludo\n\nCarlos.','',0,'gA==','1bixagt1',1,0,'',316,0,0),(37601,8138,6,316,0,'213.97.245.163',1189502035,1,0,1,1,1,0,'','XBrowse:PaintHeader Pregunta','En el XBrowse, método PaintHeader, un fragmento de código dice:\n\n[code:1os2bias]\n   if Empty&#40; cHeader &#41;\n      &#58;&#58;oBrw&#58;ReleaseDC&#40;&#41;\n      return nil\n   endif\n\n[/code:1os2bias]\n\n¿No debería decir...\n\n[code:1os2bias]\n   if Empty&#40; cHeader &#41;\n      If !lOwnDC\n         &#58;&#58;oBrw&#58;ReleaseDC&#40;&#41;\n      endif\n      return nil\n   endif\n\n[/code:1os2bias]\n\n?\n\nUn saludo\n\nCarlos.','',0,'AIA=','1os2bias',1,0,'',316,0,0),(37602,8139,3,1157,0,'198.54.202.250',1189503932,1,0,1,1,1,0,'','Dialog units for &quot;DEFINE DIALOG&quot;','If I wish to create a dialog into which these two fields will fit:\n\n        @ 10, 10 SAY cVar1 VAR oVar1 OF oDlg SIZE 50, 10 PIXEL\n        @ 20, 10 SAY cVar2 VAR oVar2 OF oDlg SIZE 50, 10 PIXEL\n\nwhat calculation can I use to decide the dimensions nY and nX to use in :\n\nDEFINE DIALOG oDlg FROM 0, 0 TO nY, nX TITLE \"Dialog\" PIXEL ?\n\nIn another way my question is what units do I use for the \"DEFINE DIALOG\"? \n\nIt does not seem to be straight forward (like 30 and 50, even if that would be a bit small).\n\nTIA\nAlex','',0,'AIA=','45f8wa6h',1,0,'',1157,0,0),(37603,8140,6,316,0,'213.97.245.163',1189511000,1,0,1,1,1,0,'','Bitmaps en el header de XBrwColumn','Cuando hacemos una columna cuyo header solo contiene un bitmap, se pinta mal. Como ejemplo modifique el Testxbrw.prg, en el ejemplo de bitmaps, la columna que dice CLIP y pone un clip. Quité la palabra \"CLIP\" quedando oCol:cHeader:= \"\", y queda así:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/y0fg7h9mq9\">http://www.box.net/shared/y0fg7h9mq9</a><!-- m -->\n\nLo he corregido cambiando el siguiente código ( en PaintHeader )\n\n[code:ya2iws5t]\n\n   if nBmpNo &gt; 0 &#46;and&#46; nBmpNo &lt;= len&#40; &#58;&#58;aBitmaps &#41;\n      aBitmap &#58;= &#58;&#58;aBitmaps&#91; nBmpNo &#93;\n      // nWidth  -= aBitmap&#91; BITMAP_WIDTH &#93; -&gt; quité esto\n      if Empty&#40;cHeader&#41;\n         nBmpCol &#58;= nCol + &#40; &#40; nWidth - aBitmap&#91; BITMAP_WIDTH &#93; &#41; / 2 &#41;\n      elseif &#58;&#58;nHeadBmpAlign == AL_LEFT\n         nWidth  -= aBitmap&#91; BITMAP_WIDTH &#93; // Agregué esto\n         nBmpCol &#58;= nCol\n         nCol    += aBitmap&#91; BITMAP_WIDTH &#93; + BMP_EXTRAWIDTH\n      else\n         nWidth  -= aBitmap&#91; BITMAP_WIDTH &#93; // Agregué esto\n         nBmpCol &#58;= nCol + nWidth\n      endif\n      nWidth  -= BMP_EXTRAWIDTH\n      nBmpRow &#58;= &#40; nHeight - aBitmap&#91; BITMAP_HEIGHT &#93; &#41; / 2 + 4\n      PalBmpDraw&#40; hDC, nBmpRow, nBmpCol,;\n                  aBitmap&#91; BITMAP_HANDLE &#93;,;\n                  aBitmap&#91; BITMAP_PALETTE &#93;,;\n                  aBitmap&#91; BITMAP_WIDTH &#93;,;\n                  aBitmap&#91; BITMAP_HEIGHT &#93;;\n                  ,, &#46;t&#46;, aColors&#91; 2 &#93; &#41;\n   endif\n\n[/code:ya2iws5t]\n\nY asi funciona bien,\n\nSaludos','',0,'AIA=','ya2iws5t',1,0,'',316,0,0),(37604,6919,3,1146,0,'83.34.29.163',1189511436,1,0,1,1,1,0,'','','Hi,\n\nI compile this sample but CREATEOBJECT is missing. Where I can find it?. Thank you!!!.\n\nRegards,','',0,'AIA=','3v8ceut5',1,0,'',1146,0,0),(37605,8139,3,6,0,'82.54.221.194',1189511860,1,0,1,1,1,1,'','Re: Dialog units for &quot;DEFINE DIALOG&quot;','Try to move and/or resize all during ON INIT phase.\n\nEMG','',0,'AIA=','1ezrdn2o',1,0,'',6,0,0),(37606,8062,6,362,0,'200.158.19.147',1189513773,1,0,1,1,1,1,'','Re: QUINTO CONGRESSO DE FIVEWINNERS - BRAZIL','[quote=&quot;karinha&quot;:1czw6231][img:1czw6231]http&#58;//www&#46;vimatec&#46;com&#46;br/logo&#46;jpg[/img:1czw6231][/quote:1czw6231]\n\nLink Para Inscrições:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=11028\">http://www.fivewin.com.br/forum/topic.a ... C_ID=11028</a><!-- m -->','',0,'iA==','1czw6231',1,0,'',362,0,0),(37607,8109,6,72,0,'189.146.242.105',1189520348,1,0,1,1,1,0,'','','Extraño...\n\nLo he descargado sin problema y cosa curiosa mi sitio refleja mas de 1600 descargas en un día, ahí ha estado desde hace varios meses (o años) y no había tenido tanta demanda.','',0,'iA==','3avtevoa',1,0,'',72,0,0),(37608,8073,20,154,0,'151.21.77.35',1189521722,1,0,1,1,1,1,'','Re: FWPPC Allineamento a destra in una Redefine Get','[quote=&quot;EnricoMaria&quot;:2b607rr1]Non saprei. Per quel poco che ho fatto io ho trovato solo questo:\n\nNon funziona il metodo Append():\n[/quote:2b607rr1]\nEnrico,\nma, di quale classe?  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','2b607rr1',1,0,'',154,0,0),(37609,8141,6,495,0,'200.120.233.214',1189521900,1,0,1,1,1,0,'','Bitmaps en TXbrowse, como funciona...','hola amigos del foro.\n\nno logro poner un bitmaps en la TXBrowse cuando la muestro la informacion desde un array..\n\npor favor alguien, tiene alguna idea de como hacerlo\n\nDirecto de la DBF, Funciona correctamente. \n\n::oBrw := TXBrowse():New( ::oWnd ) \n::oBrw:cAlias := DBF_GIRBAN:cAlias \n::oCol := Array( 01 ) \n::oCol[01] := ::oBrw:AddCol() \n::oCol[01]:cHeader := \"Conciliado\" \n::oCol[01]:AddResource( \"CHECK_SI\" ) \n::oCol[01]:AddResource( \"CHECK_NO\" ) \n::oCol[01]:bBmpData := { || IF( DBF_GIRBAN:ESTGIR == .T. , 1, 2) } \n::oCol[01]:BStrData := { || \"\" } \n::oCol[01]:nWidth := 60 \n::oBrw:CreateFromCode() \n.... \n.... \nDesde un Array, NO muestra el BMP \n\nWITH OBJECT ::oBrw \n:SetArray( AR_DATOS, .T. ) \nWITH OBJECT :aCols[ ESTADO ] \n:cHeader := \"Conciliado\" \n:AddResource( \"CHECK_SI\" ) \n:AddResource( \"CHECK_NO\" ) \n:bBmpData := { || IF(Len(AR_DATOS) &gt;0, (IF ( AR_DATOS[::oBrw:nArrayAt][ESTGIR] == .T. , 1, 2) ), NIL) } \n:bStrData := { || \"\"} \n:nWidth := 40 \nEND \nEND \n... \n... \n\ngracias\n\nsalu2\n\nMauro','',0,'','mcgghj8g',1,0,'',495,0,0),(37610,8073,20,6,0,'82.54.221.194',1189523595,1,0,1,1,1,1,'','Re: FWPPC Allineamento a destra in una Redefine Get','Non hai visto l\'esempio? E\' la TMultiGet.\n\nEMG','',0,'','24nepycc',1,0,'',6,0,0),(37611,6919,3,1146,0,'83.54.220.131',1189524571,1,0,1,1,1,0,'','','I solved it, I have to link a lib','',0,'','2z0os7sl',1,0,'',1146,0,0),(37612,8109,6,221,0,'190.78.43.229',1189525870,1,0,1,1,1,1,'','','saludos, ayer me decia que el servidor estaba caido pero esta mañana lo descargue sin problemas, lo examinare y vere como aplicarlo ya que es algo largo, nuevamente gracias','',0,'','2j73g6aj',1,0,'',221,0,0),(37613,8132,6,221,0,'190.78.43.229',1189526074,1,0,1,1,1,1,'','','solo una duda, las librerias que no se ni de que seran por ejemplo UUID la debo agregar como de tercero o el verce automaticamente la agrega, igual con un objeto que con el buildx siempre me pide que es C0W32.OBJ???','',0,'','3punyyth',1,0,'',221,0,0),(37614,8132,6,221,0,'190.78.43.229',1189526132,1,0,1,1,1,1,'','','a proposito para xharbour que archivos .CH generalmente se ponen en el #include?\n\ngracias otra vez','',0,'','13rcq3z9',1,0,'',221,0,0),(37615,8142,4,234,0,'71.250.220.162',1189527306,1,0,1,1,1,1,'','How do I test the FWPPC using MS device emulator?','I have successfully created FWPPC applications and I have synced the application using MS Active Sync to run and test the applications. How do I install/run the FWPPC application using the MS Device Emulator Preview? \n\nThank you,','',0,'','xc8jo2cn',1,0,'',234,0,0),(37616,7805,3,161,0,'81.83.249.31',1189527831,1,0,1,1,1,0,'','','Antonio,\n\nDid you found a solution for this?\n\nRegards,\nMarc','',0,'','1ozc7bgs',1,0,'',161,0,0),(37617,8142,4,2,0,'87.218.146.5',1189529020,1,0,1,1,1,1,'','','Darrell,\n\nUse this flag when you invoke the emulator: /sharedfolder c:\\pocket or select it from the the emulator pulldown menu.\n\nWhen you place your applications at c:\\pocket (or other folder name) they will be accesible from the emulator memory card (SD card)','',0,'','2d44nwoh',1,0,'',2,0,0),(37618,7960,7,527,0,'88.11.7.109',1189533132,1,0,1,1,1,0,'','y como hago para decirle en que carpeta quiero que sincronce','y como hago para decirle en que carpeta quiero que sincronce','',0,'','zv7cezs5',1,0,'',527,0,0),(37619,8143,6,694,0,'201.86.89.117',1189534308,1,0,1,1,1,1,'','Antonio PROW(),PCOL() é possivel ? (RESOLVIDO)','Antonio, PROW e PCOL do clipper para impressão, não vão funcionar com o FWH?\n\n\nGrato\n\nAoki','',0,'','3psr8n73',1,0,'',694,0,0),(37620,8144,6,694,0,'201.86.89.117',1189536224,1,0,1,1,1,1,'','Ralph, txtpreview !','Ralphi, utilizando a classe txtpreview me ocorre o seguinte erro :\n\n\nSetMTxtPreview( .f., 5, 2, .f., .t. )\n\ncFile    := \"TEST.PRN\"\ncPorta   := \"LPT1\"\n\noPrn:= TDosPrn():New( cFile )\n\noPrn:StartPage()\nnlin:=1\nfor nCont := 1 to 10\n    oPrn:Say( ++nLin, 00, \"teste de impressao\" )\n    oPrn:Say( ++nLin, 00, \"Resumo de Mesas \" )\nnext\noPrn:EndPage()                                          \noPrn:End()\nTxtPreview( cFile, \"titulo\", .t.  ,       ,      ,,, , .t. )  &lt;-----  OK\n\nTxtPreview( cFile, \"titulo\", .t.  ,       ,      ,oPrn,, , .t. )  &lt;-----  ERROR\n\n\n\nError:\n\nApplication\n===========\n   Path and name: C:\\BASE\\sgs.exe (32 bits)\n   Size: 3,805,696 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 11/09/2007, 15:38:06\n   Error description: Error BASE/1005  Message not found: TDOSPRN:_CNEGON\n\nStack Calls\n===========\n   Called from:  =&gt; TDOSPRN:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TDOSPRN:MSGNOTFOUND(0)\n   Called from: TDOSPRN.PRG =&gt; TDOSPRN:_CNEGON(167)\n   Called from:  =&gt; VAMOS(449)\n   Called from: sgs.PRG =&gt; (b)PREPARAMENU(412)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: window.prg =&gt; TWINDOW:COMMAND(934)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: window.prg =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3165)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TMDIFRAME:ACTIVATE(883)\n   Called from: sgs.PRG =&gt; MAIN(278)','',0,'','3ybki1sd',1,0,'',694,0,0),(37621,6999,6,694,0,'201.86.89.117',1189536322,1,0,1,1,1,1,'','','Ralph, utilizando a classe txtpreview me ocorre o seguinte erro : \n\n\nSetMTxtPreview( .f., 5, 2, .f., .t. ) \n\ncFile := \"TEST.PRN\" \ncPorta := \"LPT1\" \n\noPrn:= TDosPrn():New( cFile ) \n\noPrn:StartPage() \nnlin:=1 \nfor nCont := 1 to 10 \noPrn:Say( ++nLin, 00, \"teste de impressao\" ) \noPrn:Say( ++nLin, 00, \"Resumo de Mesas \" ) \nnext \noPrn:EndPage() \noPrn:End() \nTxtPreview( cFile, \"titulo\", .t. , , ,,, , .t. ) &lt;----- OK \n\nTxtPreview( cFile, \"titulo\", .t. , , ,oPrn,, , .t. ) &lt;----- ERROR \n\n\n\nError: \n\nApplication \n=========== \nPath and name: C:\\BASE\\sgs.exe (32 bits) \nSize: 3,805,696 bytes \nTime from start: 0 hours 0 mins 4 secs \nError occurred at: 11/09/2007, 15:38:06 \nError description: Error BASE/1005 Message not found: TDOSPRN:_CNEGON \n\nStack Calls \n=========== \nCalled from: =&gt; TDOSPRN:ERROR(175) \nCalled from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105) \nCalled from: =&gt; TDOSPRN:MSGNOTFOUND(0) \nCalled from: TDOSPRN.PRG =&gt; TDOSPRN:_CNEGON(167) \nCalled from: =&gt; VAMOS(449) \nCalled from: sgs.PRG =&gt; (b)PREPARAMENU(412) \nCalled from: MENU.PRG =&gt; TMENU:COMMAND(0) \nCalled from: window.prg =&gt; TWINDOW:COMMAND(934) \nCalled from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0) \nCalled from: window.prg =&gt; TMDIFRAME:HANDLEEVENT(0) \nCalled from: window.prg =&gt; _FWH(3165) \nCalled from: =&gt; WINRUN(0) \nCalled from: window.prg =&gt; TMDIFRAME:ACTIVATE(883) \nCalled from: sgs.PRG =&gt; MAIN(278)\n_________________\nFWH25+XHARBOUR 99.50','',0,'','1krkomaj',1,0,'',694,0,0),(37622,8102,6,940,0,'189.175.194.140',1189536486,1,0,1,1,1,1,'','','Carlos,\n\nefectivamente solo es con fivewin,\n\ncon otros lenguajes de programacion o IDE (s) no he tenido ese \n\nproblema, \n\nEs muy raro no en todas las pcs pasa\n\npero en definitivo es un problema de la libreria de fivewin\n\nojala se encuentre arreglo ya que los programas se ven feos,,\n\nsaludos.','',0,'','28acviyj',1,0,'',940,0,0),(37623,8102,6,73,0,'200.23.18.132',1189537821,1,0,1,1,1,0,'','','probando desde el demo en un p4 3ghz, 1gb ram, video 128mb,\ny pinta mal\n\n[url=http&#58;//imageshack&#46;us:24v95gva][img:24v95gva]http&#58;//img63&#46;imageshack&#46;us/img63/1741/ol2003ti0&#46;jpg[/img:24v95gva][/url:24v95gva]\n\n<!-- m --><a class=\"postlink\" href=\"http://img63.imageshack.us/img63/1741/ol2003ti0.jpg\">http://img63.imageshack.us/img63/1741/ol2003ti0.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img63.imageshack.us/my.php?image=ol2003ti0.jpg\">http://img63.imageshack.us/my.php?image=ol2003ti0.jpg</a><!-- m -->\n\nsalu2\npaco','',0,'GA==','24v95gva',1,0,'',73,0,0),(37624,8102,6,316,0,'87.218.186.101',1189537850,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:dv2f2fge]Carlos,\n\nOtra posible pista: Si BeginPaint() falla (según la documentación del API de Windows) entonces el hDC devuelto no es válido, por lo que al intentar usarlo más adelante no funcionaría. Una posible prueba sería este cambio: \n[code:dv2f2fge]\nMETHOD _BeginPaint&#40;&#41; CLASS TWindow\n\n   local cPS\n\n   if &#58;&#58;nPaintCount == nil\n      &#58;&#58;nPaintCount = 1\n   else\n      &#58;&#58;nPaintCount++\n   endif\n\n   &#58;&#58;hDC = BeginPaint&#40; &#58;&#58;hWnd, @cPS &#41;\n   &#58;&#58;cPS = cPS\n\n   if &#58;&#58;hDC == 0\n      MsgBeep&#40;&#41;  // tenemos un hDC no válido !\n   endif\n\nreturn nil\n[/code:dv2f2fge][/quote:dv2f2fge]\n\nAntonio,\n\nagregué el método a mi clase tanto _beginpaint como Colors. Colors no es invocado nunca, y dentro de BeginPaint el hDC obtenido es siempre distinto de 0\n[code:dv2f2fge]METHOD _BeginPaint&#40;&#41; CLASS TOutLook2\n\n   local cPS\n\n   if &#58;&#58;nPaintCount == nil\n      &#58;&#58;nPaintCount = 1\n   else\n      &#58;&#58;nPaintCount++\n   endif\n\n   &#58;&#58;hDC = BeginPaint&#40; &#58;&#58;hWnd, @cPS &#41;\n   &#58;&#58;cPS = cPS\n	Debug &#58;&#58;hDC\n\nreturn nil\n\nMETHOD Colors&#40; hDC &#41; CLASS TOutLook2\n	Debug hDC\nReturn NIL	\n[/code:dv2f2fge]\n\nDebug me evalua los argumentos y los envía a un debuguer usando Outdebugstring, enviando además el metodo o funcion, la linea del prg, el tipo de valor y el valor.\nUn ejemplo de lo obtenido es:\n[code:dv2f2fge]\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1359024382\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -385806109\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  939593962\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1543573760\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1359024382\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1543573760\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;          -1124003575\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1476464714\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1359024382\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  922816754\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  889262400\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  788599041\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -385806109\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -167702589\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;          -1124003575\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1543573760\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1040256830\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1359024382\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  788599041\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  939593962\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1359024382\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  788599041\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;          -2097082404\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  788599041\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  922816754\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1359024382\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  788599041\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  922816754\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  922816754\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  922816754\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -167702589\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1929449739\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -385806109\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1543573760\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;          -2097082404\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1359024382\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  184619263\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1744900316\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1744900316\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -385806109\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1040256830\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  184619263\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  922816754\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;          -1912534408\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1812008841\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  889262400\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;          -1912534408\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 2063667294\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1040256830\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 2063667294\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -167702589\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  184619263\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1929449739\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  889262400\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  788599041\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1744900316\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;          -1124003575\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; 1812008841\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58; -385806109\nTOUTLOOK2&#58;BEGINPAINT&#40;146&#41; - &#58;&#58;hDC &#40;N&#41;&#58;  922816754\n\n[/code:dv2f2fge]\n\nnunca me da cero. Se me acaba de ocurrir que podría suceder que se interrumpa un pintado con otro  WM_PAINT. Voy a ver si lo puedo rastrear.\n\nSi ves algo más que pueda probar por favor avísame. Tambien estoy por el messenger. Un saludo,\n\nCarlos.','',0,'gIA=','dv2f2fge',1,0,'',316,0,0),(37625,8102,6,2,0,'87.218.146.5',1189541729,1,0,1,1,1,1,'','','Carlos,\n\nGracias por tu ayuda. A ver si damos con el bug\n\nLo curioso es que solo ocurre con los controles propios de FWH. En el pushbutton y el statusbar del ejemplo, el pintado es correcto','',0,'gIA=','uapensxs',1,0,'',2,0,0),(37626,8137,2,935,0,'200.62.80.33',1189543191,1,0,1,1,1,1,'','la solucion mejor es','Hola,\n\nIntala PrimoPDF y tus problemas quedan resueltos, es gratuito y se intala como una impresora mas\n\n\nSaludes\n\nRamon Paredes','',0,'gIA=','25xn0nv3',1,0,'',935,0,0),(37627,8135,6,1072,0,'190.82.42.184',1189546455,1,0,1,1,1,0,'','','Muchas Gracias Amigo, funciono de perfeccion.\n\nSaludos,\nAntonio.','',0,'gIA=','17saqo95',1,0,'',1072,0,0),(37628,8145,6,1072,0,'190.82.42.184',1189546578,1,0,1,1,1,0,'','MENUSAT','Hola Foro:\n\nNecesito poner un JPG como fondo del menu principal de MENUSAT, para Fwh701 y Xharbour 99.71\n\nSaludos,\nAntonio.','',0,'gIA=','dzgf9nky',1,0,'',1072,0,0),(37629,8146,19,92,0,'217.125.160.190',1189547885,1,0,1,1,1,0,'','Mail de Jorge Mason','Hola a todos,\n\nDeseo contactar con Jorge Mason, alguién tiene su mail?\n\nSaludos\nCarlos G.\n<!-- e --><a href=\"mailto:Carlos_gp@telefonica.net\">Carlos_gp@telefonica.net</a><!-- e -->','',0,'gIA=','76e5tvq0',1,0,'',92,0,0),(37630,8147,6,739,0,'189.134.25.237',1189556285,1,0,1,1,1,1,'','Nuevo ADORDD','Ya se que son muchos, pero bueno, los demas no resolvían mis necesidades, este es un RDD para ADO que soporta hasta el momento\n\nLOCATE\nSEEK\nSET SCOPE\nSET RELATION\nSET FILTER\n\nActualmente solo trabaja para xHarbour del CVS con BCC, está en fase alfa, pero hasta el momento, funciona en el programa en el que lo tengo implementado, el cual es un programa sencillo, pero necestio que trabaje con DBF o MYSQL dependiendo del cliente.\n\nLo pueden bajar de <!-- m --><a class=\"postlink\" href=\"ftp://quique.quiquesoft.com/qsAdoRdd_alfa_2.zip\">ftp://quique.quiquesoft.com/qsAdoRdd_alfa_2.zip</a><!-- m -->\n\nComo les comento, aunque actualmente me funciona correctamente, sigue en fase alfa, esto es que no se ha probado con sentencias complejas y tiene monitoreos, eso quiere decir que es una opción que todavía no está implementada o está implementada en parte.\n\nSi gustan pueden probarla, revisarla y se aceptan sugerencias y comentarios para mejorarla.\n\nHasta el momento solo ha sido probada con MySQL, aunque tiene implementada la opción para MSSQL, pero pueden incluso meter la cadena correspondiente para otro motor, supongo que no deben tener problemas, y si es posible que me envíen la cadena del motor que quieren utilizar para que sea incluido en el RDD, mejor para todos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','1fom26q8',1,0,'',739,0,0),(37632,8149,2,1164,0,'72.252.52.86',1189571917,1,0,1,1,1,0,'','Para lubin','Gracias Lubin, busque en la internet acerca del tema y encontre como capturar el puerto con NET USE LPT1: \\\\COMPU\\PRINTER, pero lo extraño es que me funciono solo una vez luego ya no.\n\nIntente ponerlo en el Autoexec.nt  no funciono.\nLuego en  una ventana de CMD y si funciono  1 vez. lo extraño es que se cargo el spoolsv.exe y puso lenta mi compu hasta que entra a la ventana de tareas y le di terminar proceso.\n\nTienes alguna idea--... ?','',0,'gIA=','2pdhl90i',1,0,'',1164,0,0),(37633,8137,2,1159,0,'62.110.52.11',1189579612,1,0,1,1,1,0,'','PDF','Hola Ramon y gracias por responderme, pero lo que necesito es dentro del programa generar el pdf, queria evitar de usar una impresora por eso queria saber de la clase TPdf, si hay algo te lo agradeceria.\n\nGracias de nuevo\n\nSandra','',0,'gIA=','4b25etwj',1,0,'',1159,0,0),(37634,8139,3,1157,0,'196.25.255.250',1189580950,1,0,1,1,1,0,'','','Enrico\n\nThank you, a clever tip, it makes things really quite simple.\n\nRegards\nAlex','',0,'gIA=','12l7352c',1,0,'',1157,0,0),(37635,8150,7,358,0,'81.45.232.39',1189581018,1,0,1,1,1,0,'','Windows CE NET 4.10','Debo desarrollar una aplicación para unas PDA industriales, modelo CASIO IT3000. Tienen procesador Intel ARM-XSCALE y sistema operativo Windows CE .NET 4.10 versión inglesa. He probado TUTOR02 y me da el error “CANNOT FIND TUTOR02….”.\n\nMi pregunta es de donde puede provenir la incompatibilidad con FWPPC.\n\nAgradecería cualquier información.\n\nSalvador Gallardo','',0,'gIA=','1zsu9g3w',1,0,'',358,0,0),(37636,8150,7,2,0,'87.218.146.5',1189582037,1,0,1,1,1,1,'','','Salvador,\n\nHay una seríe de funciones que no se pueden usar en Windows CE. \nAñade este código a tutor02.prg y el EXE debería funcionar:\n\n// Windows CE temporary fix\nfunction CeSetmenu() ; return nil\nfunction GetMenu() ; return nil\nfunction ReadBitmap() ; return nil\nfunction PalBmpRead() ; return nil','',0,'gIA=','2erq5p8d',1,0,'',2,0,0),(37637,8134,3,473,0,'81.82.10.56',1189583997,1,0,1,1,1,0,'','','Therefore I should have to change the txBrowse class.\n\nHowever this is a complex situation I will give it a try.\n\nAny tips how to start this ?\n\nThanks,\n\nWilly','',0,'gIA=','2rx9gqlr',1,0,'',473,0,0),(37638,8102,6,316,0,'213.97.245.163',1189586748,1,0,1,1,1,0,'','','Antonio,\n\nefectivamente me sucede con los controles de FiveWin que pintamos, pero no con los que usan las clases predefinidas, por ejemplo en el control los botones los dibujo yo para hacer el degradado y tal, pero si pongo un boton normal de windows como en la clase outlook original, se pinta perfectamente y no logro fallar. El fallo tambien es evidente en los msgitems de la statusbar. \nCualquier cosa que veas que se puede probar me avisas.\n\nUn saludo,\n\nCarlos.','',0,'gIA=','9h70zdhr',1,0,'',316,0,0),(37639,8073,20,154,0,'151.21.53.226',1189587771,1,0,1,1,1,1,'','Re: FWPPC Allineamento a destra in una Redefine Get','[quote=&quot;EnricoMaria&quot;:3otsx8qm]Non hai visto l\'esempio? E\' la TMultiGet.[/quote:3otsx8qm]\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \ncredo che devo andare dall\'oculista!  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','3otsx8qm',1,0,'',154,0,0),(37640,8150,7,358,0,'81.45.232.39',1189590024,1,0,1,1,1,0,'','','Antonio,\n\nYa estan incluidas','',0,'gA==','377g9jrj',1,0,'',358,0,0),(37641,7330,6,23,0,'213.96.85.49',1189593747,1,0,1,1,1,1,'','','Fabuloso aporte. ¿Existe algun problema en usarla en mis aplicaciones comerciales?','',0,'gA==','as59ggwv',1,0,'',23,0,0),(37642,8073,20,6,0,'79.3.210.126',1189594305,1,0,1,1,1,1,'','Re: FWPPC Allineamento a destra in una Redefine Get','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEMG','',0,'gA==','3jx8hixk',1,0,'',6,0,0),(37643,8151,1,1167,0,'211.30.191.95',1189595286,1,0,1,1,1,0,'','My email address now included...','Sorry, I thought my email address was visible on previous post - it wasn\'t, so I now provide it:\n<!-- e --><a href=\"mailto:sidr@optusnet.com.au\">sidr@optusnet.com.au</a><!-- e -->\nAny help appreciated.','',0,'gA==','2qn8d7r5',1,0,'',1167,0,0),(37644,8150,7,358,0,'81.45.232.39',1189595676,1,0,1,1,1,0,'','','Y sigue sin funcionar.\n\n¿ Alguna idea ?\n\nGracias.','',0,'gA==','3khbqiqg',1,0,'',358,0,0),(37645,8152,6,945,0,'80.32.177.143',1189598463,1,0,1,1,1,0,'','Totalizar columnas en tListbox','Muy buenas, me gustaría saber como se puede totalizar por columnas en un tListbox.\n\nGracias.','',0,'gA==','17fimrep',1,0,'',945,0,0),(37647,8154,6,147,0,'190.137.183.211',1189604081,1,0,1,0,1,1,'','Foco usando Splitters','Hola gente;\nEl escenario es el siguiente: Tengo un ventan con un splitter.\nA la izquierda un Tree, PREVIOUS oTree,  y a la derecha un Listbox, HINDS hG0:oHinds:, que se abre con Dobleclick o, Enter sobre un item del Tree. El Tree está en un prg y el Listbox en otro  (en un Procedure).\nHe colocado, luego de creado el Listbox, oGlbHind:SetFocus() sin exito, ya que el foco vuelve al Tree.\nTambien lo hice en el bloque que evalua del dobleclick/Enter así:\n[code:1ff2ttq6]\nbAccesoCta&#58;= &#123;|| if&#40; hG0&#58;oTree&#58;GetSelected&#40;&#41;&#58;nImage == 0,, ;\n                        &#40; if&#40; hG0&#58;oHinds&#58;ClassName&#40;&#41;==&quot;TWBROWSE&quot;, hG0&#58;oHinds&#58;Hide&#40;&#41;, &#41;, ;\n                          ByR_Mvtos&#40; aScan&#40; hG0&#58;aCuentas, &#123;|a| hG0&#58;oTree&#58;GetSelected&#40;&#41;&#58;hItem==a&#91;1&#93; &#125;&#41; &#41;, ;\n                          &#91;b&#93;hG0&#58;oHinds&#58;SetFocus&#40;&#41;&#91;/b&#93; &#41; &#41; &#125;\n[/code:1ff2ttq6]\npero el Listbox no toma el foco. Alguna pista, para que el Listbox tenga el foco?\n\ngracias','',0,'AIA=','1ff2ttq6',1,0,'',147,0,0),(37648,8155,6,987,0,'189.132.14.87',1189610077,1,0,1,1,1,0,'','Chat con Fivewin','Saludos a todos los colegas de foro:\n\nAhi les va otra de mis \" <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Marcianadas <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \":\n\nAlguien sabrá por ahí como podré implementar un Chat en mi Sistema, tengo una clase (TCHATTER de R.Avendaño), esta clase trabaja bien con clipper y fivewin, pero no va con Xharbour, el problema es la sintaxis de la clase, ya he corregido algunos errores, pero sigue sin funcionar, si alguien puede ayudarme se lo agradecere mucho.\n\nSi así lo permite el Maestro Antonio Linares, puedo subir el archivo con la Clase para que le hechen una revisada..\n\nSaludos...\n\n\nFWH 2.6 + XHarbour 0.45 + XMate','',0,'AIA=','370ruwer',1,0,'',987,0,0),(37649,8156,6,987,0,'189.132.14.87',1189610911,1,0,1,1,1,0,'','Solución al BUG de SETDATE() de Fivewin','Colegas:  Lo prometido es Deuda... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nPara todos los que hemos sufrido por el fallo de la función SETDATE() de Fivewin, la que por alguna extraña razón apartir de las 7:00 PM atrasa 1 día a la fecha, he encontrado la solución, no es la gran cosa pero es efectiva dada a las pruebas que realize en 2003, WinXP y 2000, no dudo en que tambien funcione en versiones anteriores de Guindougs, ya que se trata de crear un archivo .BAT, el cual contiene el comando DATE y la fecha a modificar y correrlo, ya que desde comandos del DOS no falla el cambio de Fecha.\n\nObservación: \n\ndFechaCam:= Es la fecha completa a cambiar en formato (dd/mm/aa)\n\n//--------------------------------------------------------------------------//\nFUNCTION CambioMes(dFechaCam)\n\nLOCAL  cFecha:= \"DATE \"+STRZERO(DAY(dFechaCam),2)+\"-\"+STRZERO(MONTH(dFechaCam),2)+\"-\"+STRZERO(YEAR(dFechaCam),4)\nLOCAL   cFile:= \".\\FECHA.BAT\"\nLOCAL nHandle:= FCREATE(cFile)\n     \n     FWRITE(nHandle, cFecha)\n      INKEY(0.2)\n     FCLOSE(nHandle)\n      INKEY(0.2)\n    WaitRun(cFile,0)\n      INKEY(0.2)  \n     FERASE(cFile)\n\nRETURN nil\n\n\nEspero les sirva mi pequeña contribución, como les dije, no es la gran cosa <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> , pero es una solución rápida y sencilla.. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos....\n\nI.S.C. Víctor Daniel Cuatécatl León\n\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'AIA=','1vfzb7rm',1,0,'',987,0,0),(37650,8155,6,54,0,'189.132.105.95',1189612238,1,0,1,1,1,1,'','Re: Chat con Fivewin','[quote=&quot;cuatecatl82&quot;:lanaj0cm]Saludos a todos los colegas de foro:\n\nAhi les va otra de mis \" <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> Marcianadas <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \":\n\nAlguien sabrá por ahí como podré implementar un Chat en mi Sistema, tengo una clase (TCHATTER de R.Avendaño), esta clase trabaja bien con clipper y fivewin, pero no va con Xharbour, el problema es la sintaxis de la clase, ya he corregido algunos errores, pero sigue sin funcionar, si alguien puede ayudarme se lo agradecere mucho.\n\nSi así lo permite el Maestro Antonio Linares, puedo subir el archivo con la Clase para que le hechen una revisada..\n\nSaludos...\n\n\nFWH 2.6 + XHarbour 0.45 + XMate[/quote:lanaj0cm]\n\nCuate,\n\nContáctame por Messenger y te apoyo','',0,'gA==','lanaj0cm',1,0,'',54,0,0),(37651,8157,6,102,0,'87.217.67.168',1189613744,1,0,1,1,1,1,'','Compra Fwh','Antonio.\nVoy a comprar la ultima versión de fwh.\nQuiero que me hagais factura a la empresa.\nComo lo hacemos\nPor favor contestame al correo privado\nSaludos','',0,'gA==','1u8k33au',1,0,'',102,0,0),(37652,8158,6,255,0,'201.122.36.212',1189614823,1,0,1,1,1,1,'','Futuras versiones de VERCE','Hola a todos !!!!\n\nMe da gusto escribir nuevamente en este foro y el motivo es\npara hacer oficial que habra futuras versiones de VERCE con\nalgunas mejoras...\n\nEs oficial que  William Morales estará apoyando con este\nproyecto y el será el encargado de recibir las modificaciones\nque ustedes vayan requiriendo.\n\nPor supuesto, yo estaré al tanto de todo tambien.\n\nSugerencias y/o comentarios por favor a las siguientes direcciones\nponiendo como asunto: VERCE\n\nWilliam Morales\n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->\n\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:salinasj@geainternacional.com\">salinasj@geainternacional.com</a><!-- e -->\n\nPor favor... en cada sugerencia  y/o comentario\nincluir las dos direcciones de correo.\n\nGracias por la atencion... Saludos','',0,'gA==','9pxlux2t',1,0,'',255,0,0),(37653,8155,6,255,0,'201.122.36.212',1189614918,1,0,1,1,1,1,'','','si mal no recuerdo... el buen amigo Alfredo Arteaga\ntiene implementado algo en sus sistemas....','',0,'gA==','dszw2zq1',1,0,'',255,0,0),(37654,8159,6,911,0,'200.72.141.51',1189621166,1,0,1,1,1,1,'','Problema al enlazar xMate: Access violation','Hola:\nDespués de hacer algunas mejoras a mi archivo .res con pellesC xMate comenzó a darme el siguiente error:\n\n[img:3uwc1fj5]http&#58;//img123&#46;imageshack&#46;us/img123/8973/errorxmate1hk1&#46;jpg[/img:3uwc1fj5]\n[img:3uwc1fj5]http&#58;//img520&#46;imageshack&#46;us/img520/9176/errorxmate2lq7&#46;jpg[/img:3uwc1fj5]\nAdemás encontré que xMate genera un archivo temporal y no es borrado cuando se produce el error.\n[img:3uwc1fj5]http&#58;//img505&#46;imageshack&#46;us/img505/2235/errorxmate3ih2&#46;jpg[/img:3uwc1fj5]\n\nY acá pueden ver mi proyecto con xMate:\n[img:3uwc1fj5]http&#58;//img520&#46;imageshack&#46;us/img520/6610/errorxmate4su8&#46;jpg[/img:3uwc1fj5]\nSi a alguien se le ocurre algo, acepto sugerencias.\nSaludos','',0,'CA==','3uwc1fj5',1,0,'',911,0,0),(37655,8159,6,54,0,'189.132.105.95',1189622992,1,0,1,1,1,1,'','Re: Problema al enlazar xMate: Access violation','Hola,\n\nCheca que las imagenes que tienes cargadas a tu archivos de recursos no sean imagenes de alta resolución, alguna vez me paso y fue por imagenes de ese tipo.\n\nespero haberme explicado.','',0,'CA==','39l6sd4s',1,0,'',54,0,0),(37656,8157,6,2,0,'87.218.146.77',1189623547,1,0,1,1,1,1,'','','Te hemos enviado un email, gracias','',0,'CA==','vn6xorzh',1,0,'',2,0,0),(37657,7330,6,75,0,'83.37.172.149',1189623590,1,0,1,1,1,0,'','Calculadora','NO existe ningún problema para usarla en cualquier aplicación comercial o de cualquier índole.\n\nEs para mi un motivo de satisfacción que sea de utilidad y usada.\n\nSaludos.','',0,'CA==','1k8uxbg3',1,0,'',75,0,0),(37658,8158,6,228,0,'201.244.175.194',1189625018,1,0,1,1,1,1,'','Bueno inicio yo...','Aunque no se si tecnicamente se puede, me gustaria que se pudieran colocar dos o mas archivos de recursos.','',0,'CA==','3ld2fjq7',1,0,'',228,0,0),(37659,8158,6,228,0,'201.244.175.194',1189625399,1,0,1,1,1,1,'','Aqui va otra','Me gustaria que se pudieran crear tambien aplicaciones en modo consola, esto con el fin que los colegas que no tiene fwh todavia puedan migrar facilmente las aplicaciones hechas en clipper de 16 a 32 bits ya sea con harbour o con xharbour.','',0,'CA==','1yclgzj3',1,0,'',228,0,0),(37660,8158,6,1146,0,'81.47.148.129',1189625906,1,0,1,1,1,0,'','','¿Se podría hacer un make incremental, para no tener que compilar siempre todos los archivos, sino sólo los que hayan cambiado?.\n\nEnhorabuena por el producto.','',0,'CA==','kbp7rt9b',1,0,'',1146,0,0),(37661,8158,6,1146,0,'81.47.148.129',1189625975,1,0,1,1,1,0,'','','Puedes llamar al otro .rc desde el primer .rc\n\n#include \"otrorc.rc\" y listo','',0,'CA==','3qj0opv5',1,0,'',1146,0,0),(37662,8160,6,228,0,'190.25.32.68',1189626658,1,0,1,1,1,1,'','Funcion de xharbour','Amigos del foro tengan buena tarde:\n\nAlguien sabe si existe una función en xharbour, para saber el serial del disco duro.','',0,'CA==','31q39s1m',1,0,'',228,0,0),(37663,8158,6,255,0,'201.122.36.212',1189627886,1,0,1,1,1,1,'','','[quote=&quot;MOISES&quot;:1mrfumk9]¿Se podría hacer un make incremental, para no tener que compilar siempre todos los archivos, sino sólo los que hayan cambiado?.\nEnhorabuena por el producto.[/quote:1mrfumk9]\n\nAsi se esta haciendo..','',0,'gA==','1mrfumk9',1,0,'',255,0,0),(37664,8161,19,1146,0,'81.47.148.129',1189628626,1,0,1,1,1,0,'','importar a Contaplus','Hola:\n\n¿Alguno tiene algún documento sobre la importación a Contaplus?. Muchas gracias!!.\n\nSalu2','',0,'gA==','2oiamtwq',1,0,'',1146,0,0),(37665,8159,6,911,0,'200.72.141.51',1189630081,1,0,1,1,1,1,'','Re: Problema al enlazar xMate: Access violation','[quote=&quot;wmormar&quot;:8r3y2zxf]Hola,\n\nCheca que las imagenes que tienes cargadas a tu archivos de recursos no sean imagenes de alta resolución, alguna vez me paso y fue por imagenes de ese tipo.\n\nespero haberme explicado.[/quote:8r3y2zxf]\n\nEfectivamente sacando los últimos bmp resultó que dejó de presentar el problema.\nEstoy bajando la resolución de los bmp\'s\nGracias\nSaludos','',0,'gA==','8r3y2zxf',1,0,'',911,0,0),(37666,6814,3,1169,0,'200.223.215.213',1189630296,1,0,1,1,1,0,'','Append','I encontered a small problem with the append command if a table has been created with fields that do no accept null. I think this is due to RecordSet:Update() in the ADO_APPEND function. An error message is shown for each conflicting field. My tests a being done with MSSQL. Am I doing something wrong?','',0,'gA==','3927ixwi',1,0,'',1169,0,0),(37667,8160,6,362,0,'200.158.19.118',1189630948,1,0,1,1,1,1,'','Re: Funcion de xharbour','[quote=&quot;leandro&quot;:8iv2397p]Amigos del foro tengan buena tarde:\n\nAlguien sabe si existe una función en xharbour, para saber el serial del disco duro.[/quote:8iv2397p]\n\nNO PUEDE SEER EN FIVEWIN???\n\nRegards, saludos.','',0,'gA==','8iv2397p',1,0,'',362,0,0),(37668,8155,6,138,0,'200.56.205.143',1189635775,1,0,1,1,1,1,'','','Es realmente muy muy muy simple de hacer un chat con FW, como digo yo, idiotamente simple.\n\nNecesitamos:\n\nUna tabla dbf compatida con un solo campo tipo caracter, longitud la que consideren\n\nHacen un dialogo que tenga un browse arriba, un get abajo, y un boton enviar.\n\nSe abre la tabla compartida\n\nSe pone en el get el mensaje y le dan al boton de enviar\n\nEl resto es facil, hacen appends sobre la tabla, y un timer para que cada determinadotimepo refresque el browse','',0,'gA==','10b4g6v7',1,0,'',138,0,0),(37670,8068,3,34,0,'68.5.217.82',1189636924,1,0,1,1,1,1,'','Mac','It must be remembered that the Apple Mac will have some definite differences, so programming for it can require a significant amount of code modification.  \n\nApple Mac does not have the depth of business applications available that you will find on the PC.  The market is simply not there.  It is wonderful for graphics applications, but people who have built database applications don\'t see much utility in the Mac.  \n\nMy wife has two Macs ( desktop and laptop ) and I\'m not very impressed.  She needs them because the school she teaches at uses the Mac exclusively, but it always seems that what she needs to do is so simple on my PC and so difficult on her Mac ... especially when it exercises its \"own mind\".  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1y2qtp8x',1,0,'',34,0,0),(37671,7972,3,34,0,'68.5.217.82',1189637352,1,0,1,1,1,1,'','UPDATE SMTP losing attachments','OK ... this is really weird.\n\nI went back to my original code for SMTP.  I got it working, then lost it again.  Here is the situation:\n\n1)  I have two files, one the error.log file which is naturally stored in the directory where the client executable exists ( ie. under program files ) and the other is a PDF of a screen preview which is also stored in that directory when it is created.\n\n2)  IF I am accessing the data file in a directory on the same computer, the SMTP works absolutely perfectly ... sends both attachments out.\n\n3)  If I am accessing the data file across the network from an ADS installation, the attachments are created correctly as specified in #1 on the local computer, but the attachments are not included with the email.  Instead, a file of 80 to 100 bytes is created, empty, and attached with the correct file name !\n\nNow that is really strange.\n\nThe OS is Vista ... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','2gooydyq',1,0,'',34,0,0),(37672,8068,3,255,0,'201.122.36.212',1189637588,1,0,1,1,1,1,'','','mmmmm that\'s a matter of point of view...\n\ni am a Mac user from almost two years \nand there\'s nothing that i\'ve done in PC that i can\'t do in MAC...\nMaybe because i am a web developer... all my software run on\na web browser and over Asterisk... \n\ni have nothing to say about PC... but in my humild point of view\na MAC is alwas better....\n\nRegards..','',0,'gA==','2jl1tbc2',1,0,'',255,0,0),(37673,8102,6,316,0,'87.218.187.254',1189639271,1,0,1,1,1,0,'','','Antonio, \ncreo que ya tengo parte del origen del problema.\nHe puesto un \'chivato\' en el handle event que me diga que eventos recibe. Durante un ciclo normal de pintado se reciben los siguientes eventos\n[code:2d5pqpcd]\nTOUTLOOK2&#58;HANDLEEVENT&#40;178&#41; - &quot;WM_PAINT         &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;177&#41; - &quot;WM_NCPAINT       &quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;173&#41; - &quot;WM_ERASEBKGND    &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\n[/code:2d5pqpcd]\n\npero cuando trasteo con una ventana por encima y falla el pintado, la secuencia de eventos se altera,\n\n[code:2d5pqpcd]\nTOUTLOOK2&#58;HANDLEEVENT&#40;178&#41; - &quot;WM_PAINT         &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;177&#41; - &quot;WM_NCPAINT       &quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;173&#41; - &quot;WM_ERASEBKGND    &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;177&#41; - &quot;WM_NCPAINT       &quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;173&#41; - &quot;WM_ERASEBKGND    &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;178&#41; - &quot;WM_PAINT         &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;177&#41; - &quot;WM_NCPAINT       &quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;173&#41; - &quot;WM_ERASEBKGND    &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;173&#41; - &quot;WM_ERASEBKGND    &quot; \nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\nTOUTLOOK2&#58;HANDLEEVENT&#40;188&#41; - &quot;WM_CTLCOLORSTATIC&quot;\n[/code:2d5pqpcd]\n\n\nCreo que está la punta del ovillo. pero es tarde y mañana hay que trabajar. Dime lo que se te ocurra que pueda probar.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','2d5pqpcd',1,0,'',316,0,0),(37674,4412,3,987,0,'189.132.18.254',1189642666,1,0,1,1,1,0,'','','[b:1zceee92]Considered Jeff Barnes:[/b:1zceee92]  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nI am making tests with library that you publish in this forum, I have translated the instructions and the implementation of the same ones, but at the time of compiling my application it appears the following error it would be possible to update the file for the recent versions of xHabour.\n\nThis is the message:\n\n\"keygen32.obj\" was compiled by older version, PCODE version 7 is no longer supported - Please recompile.\n\n\nThanks and Greetings from Mexico...\n\nI.S.C. Víctor Daniel Cuatécatl León','',0,'QA==','1zceee92',1,0,'',987,0,0),(37675,6814,3,35,0,'65.188.6.143',1189644602,1,0,1,1,1,0,'','','There was a recent fix to the underlying ADO class that allowed ctod(\" \") to be stored as null on Ms Sql .. It was fixed since the release of xHarbour 99.71 and should be out in the next binary release.\n\nIf you need the fix .. e-mail me at <!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->\n\nRick Lipkin\nSC Dept of Health, USA','',0,'QA==','3g169gbn',1,0,'',35,0,0),(37676,8162,3,1064,0,'61.70.211.182',1189647437,1,0,1,1,1,0,'','ADS Index problem solve','kokoo\'s problem:\n\n[quote:1r5449j1]\nI have a index problem which work in rdd \"ADS\".\nAa SAMPLE ITEM NO.\"HST-2000   \" SHOULD Sorting in first one , but the\nresult is in last one.\n\nSame source code work in Rdd \"DBFCDX\" Was CORRECT .\n\nxHarbour :0.9970\nADS version: 8.1.018\n\n\n\n#INCLUDE \"FIVEWIN.CH\"\n#INCLUDE \"ADS.CH\"\n\n local aDBF\n\n aDbf := {}\n AADD(aDbf, { \"NO\"         , \"C\",20, 0 })\n\n //\n DBCREATE(FILE_TH+TEMP , aDbf)\n\n USE &amp;TEMP NEW EXCL ALIAS \"ITEM\"\n\n ITEM-&gt;(DBAPPEND()) ; ITEM-&gt;NO:=\"HST-2000   \"   //==&gt; should be first\n ITEM-&gt;(DBAPPEND()) ; ITEM-&gt;NO:=\"HST-2000-01\"\n ITEM-&gt;(DBAPPEND()) ; ITEM-&gt;NO:=\"HST-2000-02\"\n ITEM-&gt;(DBAPPEND()) ; ITEM-&gt;NO:=\"HST-2000-03\"\n ITEM-&gt;(DBAPPEND()) ; ITEM-&gt;NO:=\"HST-2000-04\"\n\n INDEX ON ITEM-&gt;NO TO (FILE_TH+TEMP)\n BROWSE()\n\n// BROWSE SCREEN\n NO\n===================\nHST-2000-01\nHST-2000-02\nHST-2000-03\nHST-2000-04\nHST-2000        ==&gt; SHOULD BE FIRST, WHY ?[/quote:1r5449j1]\n\nthe Solution from news.devzone.advantagedatabase.com\n<!-- m --><a class=\"postlink\" href=\"news://46e75637@solutions.advantagedatabase.com/\">news://46e75637@solutions.advantagedatabase.com/</a><!-- m -->\n\n[quote:1r5449j1]\nHi,\n\nIn some of the collations, the hyphen (-) character sorts in front of the \nspace character.  If you are using ANSI character sets, you can use the \nansichr.exe utility to create a new collation based on your PC\'s locale. \nThere is an option \"Ignore Symbols\" on the dialog where you specify the \ncollation name.  If you check that option, the resulting collation should \nhave the hyphen collated after the space.  If you are using Advantage \nDatabase Server, you will have to stamp the new collation into the server \nwith the adsstamp.exe utility.  If you are using Advantage Local Server, you \nspecify the name of the language in the adslocal.cfg file \n(ANSI_CHAR_SET=...).  You should reindex your tables after doing this.\n\nMark Wilkins\nAdvantage R&amp;D\n[/quote:1r5449j1]\n\nkokoo say:\n\n[quote:1r5449j1]\nHI Mark :\n\nThank you for solution .\n\n1)After edit adslocal.cfg ===&gt;ANSI_CHAR_SET=ASCII\n2)copy ansi.chr to work directory\n3)reindex\n\nIt is the sorting what I want now !!\n\n\n[/quote:1r5449j1]\n\n\nThanks everyone.\n\nBest Regards\n-------------------------------------------------------------\nkokoo KAO','',0,'gA==','1r5449j1',1,0,'',1064,0,0),(37677,8068,3,34,0,'68.5.217.82',1189649323,1,0,1,1,1,1,'','MAC / PC','As you said, you are a web developer.  I was referring to database systems developed in FW which I don\'t believe normally reside on the web.\n\nApple has a niche market, but they only get about 4% of the personal computer sales.  Obviously, thats a small marketplace for a software developer to invest a lot of time and money.  There probably won\'t be a large return on their investment.  \n\nIf I were using products to do graphics, especially for film, then the Mac is an obvious choice.  There is quality software and it is used in those industries.  However, when it comes to business applications, which I believe most FW developers create, I\'m not sure you will find enough interest in the MAC.','',0,'gA==','3rlx1r8q',1,0,'',34,0,0),(37678,8163,7,1152,0,'201.244.27.45',1189649655,1,0,1,1,1,1,'','Descargar build','Hola,\n\nQue debo hacer para descargar el último Build?\n\nGracias.','',0,'gA==','voxj9tqh',1,0,'',1152,0,0),(37679,7972,3,303,0,'72.199.41.171',1189653006,1,0,1,1,1,0,'','','Hi Tim,\n\nI wonder it this is a Vista security issue. Have you tried emailing an attachment from another computer without using ADS? That would tell you if ADS has anything to do with it.\n\nI note that even under XP you cannot load a help file (HLP) across a network anymore. This problem was created by a security update to XP. So it is conceivable that Vista is the problem.\n\nJames','',0,'gA==','3emo6yjn',1,0,'',303,0,0),(37680,8163,7,2,0,'87.218.146.77',1189660644,1,0,1,1,1,1,'','','Eduardo,\n\nAl comprar FWPPC se te proporciona los datos para la descarga. Tienes derecho a dos meses de actualizaciones gratuitas.','',0,'gA==','tns3p7ld',1,0,'',2,0,0),(37681,8158,6,579,0,'189.163.48.242',1189661022,1,0,1,1,1,1,'','','Juan Carlos: Muchas gracias por tu dedicación y tiempo que desinteresadamente dedicaste a este proyecto, a mi en lo particular ya no podía regresar a compilar de otra forma.\n\nWilliam: Muchas gracias por tomar la estafeta y continuar con este proyecto (no sabes en la que te has metido jajaja)\n\nEn horabuena y mucho exito!!!','',0,'gA==','3llkfhhn',1,0,'',579,0,0),(37682,8136,1,2,0,'87.218.146.77',1189663481,1,0,1,1,1,1,'','','Sid,\n\nsamples\\Tutor01.prg should show just a MsgInfo() on the screen. If achoice.prg is working, then tutor...prg should be working too','',0,'gA==','2uvkt8t3',1,0,'',2,0,0),(37683,8068,3,2,0,'87.218.146.77',1189663787,1,0,1,1,1,1,'','','Tim,\n\nNo matter how many people use them, Mac is a great computer and its operating system is outstanding. Once you start learning it, in deep, you get really impressed about it. \n\nBut it seems as people prefeer to suffer all the Windows problems (viruses, trojans, hangs, hardware problems, etc.)','',0,'gA==','2buj1sjr',1,0,'',2,0,0),(37684,8102,6,2,0,'87.218.146.77',1189664166,1,0,1,1,1,1,'','','Carlos,\n\ngracias por tu ayuda. La verdad es que no veo nada extraño salvo que hay dos erasebkgnd seguidos:\n\nTOUTLOOK2:HANDLEEVENT(173) - \"WM_ERASEBKGND    \" \nTOUTLOOK2:HANDLEEVENT(173) - \"WM_ERASEBKGND    \"','',0,'gA==','2otnlx3x',1,0,'',2,0,0),(37685,8140,6,2,0,'87.218.146.77',1189664794,1,0,1,1,1,1,'','','Carlos,\n\nGracias!','',0,'gA==','2wneebms',1,0,'',2,0,0),(37686,8068,3,131,0,'194.179.55.36',1189664826,1,0,1,1,1,0,'','','I bought an iMac four months ago, and I have to say that I don\'t miss anything of Windows in OS X. OS X is a great operating system, and every day there are more switchers from PC to Mac.\n\nRegards,','',0,'gA==','qy324357',1,0,'',131,0,0),(37687,8150,7,358,0,'81.45.232.39',1189666882,1,0,1,1,1,0,'','','He realizado algunas pruebas con el IT3000.\nTotal Commander para ARM no funciona, “The aplication can no run in this device type”.\nHe copiado una aplicación de la PDA al emulador, y este me dice “Is not a valid Pocket Pc application”.\nSegún el manual esta PDA utiliza el juego de instrucciones ARMV4I.\n\nNo se si alguien puede darme una idea de cómo solucionar este problema.\n\nSalvador Gallardo','',0,'gA==','3qjic7fo',1,0,'',358,0,0),(37688,8068,3,2,0,'87.218.146.77',1189667463,1,0,1,1,1,1,'','','José Luis,\n\nPlease contact me if you want to give FiveMac a try <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','16svwaqy',1,0,'',2,0,0),(37689,8150,7,2,0,'87.218.146.77',1189667552,1,0,1,1,1,1,'','','Salvador,\n\nPuedes probar samples\\tutor01.prg ? gracias','',0,'gA==','3dij0vmr',1,0,'',2,0,0),(37690,2486,16,2,0,'87.218.146.77',1189668800,1,0,1,1,1,1,'','','September builds:\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/55310879/harbour.exe.html\">http://rapidshare.com/files/55310879/harbour.exe.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/55311279/xharbour.exe.html\">http://rapidshare.com/files/55311279/xharbour.exe.html</a><!-- m -->','',0,'gA==','17021udh',1,0,'',2,0,0),(37691,8152,6,945,0,'80.32.177.143',1189669302,1,0,1,1,1,0,'','','Perdonar no se por que escribir un tlistbox es un twbrowse.','',0,'gA==','1f9lh3a7',1,0,'',945,0,0),(37692,8150,7,358,0,'81.45.232.39',1189669583,1,0,1,1,1,0,'','','Antonio,\n\nGracias por tu rápida respuesta.\nTutor01 tampoco funciona.\n\nSi sirve de algo, tengo los fuentes de alguna aplicación demo para este terminal en c++,\nmis conocimientos de c++ es escaso.\n\nGracias','',0,'gA==','3kzb09tm',1,0,'',358,0,0),(37693,8164,16,2,0,'87.218.146.77',1189672221,1,0,1,1,1,1,'','New FTDN September/Septiembre 2007','September 2007 build\n================\n\n* New: FWH new Class TPreview. Now the FiveWin printer preview is a class so you can simultaneously use as menu printer previews as needed.\n\n* Enhancement: FWPPC Class TFolder Method Destroy(), now its properly releasing all managed dialogs.\n\n* FWH: Enhancement, Class TMetaFile Method Paint(), it calls ::SetCoors() if ::nVRatio is not defined.\n\n* FWH: Enhancement, Class TFolder Method AddItem( cItem, cResName, bRedefineControls ) now uses a third parameter, a codeblock to redefine to controls in cResName dialog. Also the folder dialogs dimensions have been modified to match the folder surface.\nPlease review samples\\TestFldD.prg to see how dinamycally add new pages and controls to a resources defined folder.  \n\n* Enhancement: function lIsDir() was not checking hidden and system directories. now it is ok.\n  \n* Enhancement: Class TTreeView Method Add( cPrompt, nImage, nValue ) now supports a nValue parameter, that can be retrieved later on using the function TVIPARAM( hItem ) --&gt; nValue.\nIt is usefull to relate a treeview item with a specific number (i.e. a record number, etc.)\n\n* Enhancement: Class TToolbar Method MouseMove() support for own defined mouse cursors. Please review samples\\rebars.prg\n\n* Enhancement: FiveLinux has been rebuilt using the most recent Harbour/xHarbour builds. Please notice that samples\\build.sh and buildx.sh have changed.\n\n* New: FiveLinux, Timers are already available. Please review samples\\TestTime.prg\n\n* Enhancement: FiveLinux, @ ..., ... GET ... PASSWORD clause support. Please review samples\\TestDlg.prg\n\n* Enhancement: FiveLinux, Class TWBrowse Method SetArray( aArray ). Please review samples\\TestArr.prg\n\n* Enhancement: FiveLinux, browses scrollbar thumbpos changes events support.\n\n* New: FiveLinux, Resources support is getting ready, please review samples\\TestRes.prg. Not finished yet.\n\n* New: FiveLinux, MsgBeep() is already available\n\n* New: FWPPC, Class TWindow Method Update(). As Class TDialog inherits from Class TWindow, it is also available for Class TDialog.\n\n* Enhancement: FWPPC automatically calls TerminateProcess() if a GPF occurs.\n\n* Fix: FWH Class TGet with xHarbour had a bug using decimal numbers when pressing \".\". Now it is ok.\n\n* Enhancement: FWH Class TClipboard Method SetMetafile( oMetaFile ). Copies the contents of a FWH metafile to the clipboard.\n  \n* Enhancement: FWH function lIsDir( cDirName ) to avoid trailing \"\\\" and \"/\" chars\n  \n* New: FWH samples\\resdyn.prg shows how to dynamically add new controls to a Resources defined dialogbox.\n    \n* Enhancement: FWH Class TXBrowse, fix for array autosort on (incremental search) and two colums (search column) are swapped.\n      \n* Enhancement: Class TGet created insert caret height was not correct. Now it is ok.\n\n* New: FWH Class TXBrowse new Method SelFont(). \n\n* Fix: Class TButtonBmo was not properly showing its associated message if defined. Now it is ok.\n  \n* New: FWH Class TOutLook2003, please review samples\\Test2003.prg\n  \n* Fix: FWH nSerialHD() was not properly working. Now it is ok.\n\n* Enhancement: Class TXBrowse some minor changes.','',0,'gA==','3644aje8',1,1189759481,'',2,1,0),(37694,8165,3,2,0,'87.218.146.77',1189672399,1,0,1,1,1,1,'','New FWH 7.09','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8164\">http://fivetechsoft.com/forums/viewtopic.php?t=8164</a><!-- m -->','',0,'gA==','2gpu9lox',1,0,'',2,0,0),(37695,8166,6,2,0,'87.218.146.77',1189672535,1,0,1,1,1,1,'','Nuevo FWH 7.09','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8164\">http://fivetechsoft.com/forums/viewtopic.php?t=8164</a><!-- m -->','',0,'gA==','m59tvxpk',1,0,'',2,0,0),(37696,8150,7,2,0,'87.218.146.77',1189672922,1,0,1,1,1,1,'','','Salvador,\n\n&gt; Tutor01 tampoco funciona. \n\nQue error da ?','',0,'gA==','363883uw',1,0,'',2,0,0),(37697,6814,3,1064,0,'61.70.211.182',1189673550,1,0,1,1,1,0,'','','HI Antonio:\n\n2 problems of adrdd smaple\n[quote:3kc9gfze]\n1.I try to edit ADO database to Tcbrowse(), but \"CHAR\" Transfer from dll.ch\n\n   USE (FILE_TH+\"Test.mdb\") VIA \"ADORDD\" TABLE \"Tabla1\" ALIAS ADO_DBF\n\n   DEFINE DIALOG oDlg RESOURCE \"D_STAND_BROWSE\" ;\n      TITLE \"ADO DATABASE\"        \n\n   REDEFINE COLUMN BROWSE oBrw  ID 201  OF oDlg ;\n     FONT oBR_FONT                              ;\n     MESSAGE \"ADO DATABASE\"                     ;\n     UPDATE\n\n   ADD COLUMN TO BROWSE oBrw DATA ADO_DBF-&gt;CHAR  ; \n      HEADER \"CHAR\" SIZE 120\n   //DLL.CH transfer ADO_DBF-&gt;2\n   //#define CHAR  2\n\n[/quote:3kc9gfze]\n\n[quote:3kc9gfze]\n2. Can\'t Add ADORDD DATABASE\n\n   ADO_DBF-&gt;(DBAPPEND())    // Runtime error\n   ADO_DBF-&gt;CHAR := \"ABCDES\"\n   ADO_DBF-&gt;NUM  := 1234\n   ADO_DBF-&gt;LOG  := .T.     \n   ADO_DBF-&gt;DATE := CTOD(\"2007/12/01\")\n\n   error.log:\n\n   Error description: Error ADODB.Recordset/16389  E_FAIL: ADDNEW\n   Args:\n\n   Stack Calls\n   ===========\n      Called from: win32ole.prg =&gt; TOLEAUTO:ADDNEW(0)\n      Called from:  =&gt; ADO_APPEND(470)\n      Called from:  =&gt; DBAPPEND(0)\n\n[/quote:3kc9gfze]\n\n\nBest Regards\n--------------------------------------------------------------\nkokoo KAO','',0,'gA==','3kc9gfze',1,0,'',1064,0,0),(37698,8157,6,102,0,'87.217.67.168',1189673551,1,0,1,1,1,1,'','','Antonio.\nYa recibi la actualización.\nMuchas gracias','',0,'gA==','1u2psofd',1,0,'',102,0,0),(37699,8150,7,358,0,'81.45.232.39',1189673813,1,0,1,1,1,0,'','','\"Cannot finf TUTOR01 (or one of its components).\nMake sure the path and filename ar corret and that all the required libraries are availables.\"','',0,'gA==','3sb3mans',1,0,'',358,0,0),(37700,8158,6,102,0,'87.217.67.168',1189673911,1,0,1,1,1,1,'','','Muchas gracias Juan carlos. por decidir continuar con Verce es una gran noticia.\n¿Se podria implementar que se pudieran añadir mas ficheros de recursos que uno y poder buscarlos por su nombre en sus carpetas correspondientes?\nDesde Guadalajara (España)\nUn millon de gracias','',0,'gA==','qhva6sku',1,0,'',102,0,0),(37701,8150,7,2,0,'87.218.146.77',1189674506,1,0,1,1,1,1,'','','Salvador,\n\nPor favor añade estas funciones a samples\\Tutor01.prg y vuelve a probar, gracias:\n\nfunction CeSetmenu() ; return nil\nfunction GetMenu() ; return nil\nfunction ReadBitmap() ; return nil\nfunction PalBmpRead() ; return nil\n\nSi no te funciona, envíame por email el EXE comprimido como ZIP, gracias','',0,'gA==','2mopuyeg',1,0,'',2,0,0),(37702,8157,6,2,0,'87.218.146.77',1189674730,1,0,1,1,1,1,'','','José,\n\nGracias a tí,','',0,'gA==','2ksng7at',1,0,'',2,0,0),(37703,8150,7,358,0,'81.45.232.39',1189675176,1,0,1,1,1,0,'','','Antonio,\nSigue dando el mismoo error, te los mando.\n\nGracias por tu interes y fantastico soporte.','',0,'gA==','12f7mlwf',1,0,'',358,0,0),(37704,8134,3,2,0,'87.218.146.216',1189678278,1,0,1,1,1,1,'','','Willy,\n\nTry this:\n[code:3kf9bqtg]\nMETHOD AddJpgFile&#40; cJpgFile &#41; CLASS TXBrwColumn\n\n   local hBmp &#58;= FILoadImg&#40; cJpgFile &#41;\n\n   AAdd&#40; &#58;&#58;aBitmaps, &#123; hBmp, nBmpWidth&#40; hBmp &#41;, nBmpHeight&#40; hBmp &#41; &#125; &#41;\n\nreturn &#46;t&#46;\n[/code:3kf9bqtg]','',0,'AIA=','3kf9bqtg',1,0,'',2,0,0),(37705,8163,7,1152,0,'201.245.239.237',1189679956,1,0,1,1,1,1,'','','Gracias Antonio,\n\nHace rato que pasaron esos dos meses, lo que pasa es que hasta ahora pude empezar a utilizarlo, voy a seguir explorando esta interesante herramienta.\n\nCuando esté interesado en actualizar la versión debo comprarla otra vez?\n\ncordial saludo.','',0,'AIA=','ghyj1ia0',1,0,'',1152,0,0),(37706,8134,3,473,0,'81.82.10.56',1189680284,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI test this as soon as possible\n\nWilly','',0,'AIA=','2j85m4mb',1,0,'',473,0,0),(37708,8150,7,2,0,'87.218.146.216',1189681300,1,0,1,1,1,1,'','','Salvador,\n\nPor lo que parece, no es compatible con la arquitectura ARM del Intel XScale.\n\nSi no hay mas remedio que usar esas PDAs la única solución sería ver que arquitectura de micro usan y buscar el compilador de C adecuado y recompilar Harbour y FWPPC con ese compilador.','',0,'AIA=','2motq47p',1,0,'',2,0,0),(37709,7330,6,294,0,'201.254.185.157',1189681464,1,0,1,1,1,1,'','','Excelente trabajo.\nUna sugerencia: cuando presionas un numero y despues \"+\", en algunas calculadoras te va sumando dicho numero tantas veces como presiones \"+\", eso es de mucha utilidad cuando estas chequeando planillas donde se repiten los valores. El programa lo va colocando en el \"rollo\" de la izquierda pero cuando presionas \"=\" no lo suma. Seria util que lo haga.\nIgualmente el trabajo esta barbaro.\nFelicitaciones\nCesar','',0,'AIA=','1ex7bjxl',1,0,'',294,0,0),(37710,8164,16,2,0,'87.218.146.216',1189681491,1,0,1,1,1,1,'','','Construcción Septiembre 2007 \n============================\n\n* Nuevo: FWH nueva clase TPreview. Ahora el previsualizador de impresión de FiveWin es una clase por lo que se puede usar simultaneamente tantos previsualizadores como se desee.\n\n* Mejora: En FWPPC, el método Destroy() de la clase TFolder, ahora se liberan todos los diálogos usados (manejados).\n\n* Mejora: En FWH, el método Paint() de la clase TmetaFile, llama a ::SetCoors() si ::nVRatio no está definido.   \n\n* Mejora: En FWH, el método AddItem( cItem, cResName, bRedefineControls ) de la clase TFolder, ahora usa un tercer parámetro,\n  un bloque de código (codeblock) para redefinir un control en el diálogo cResName. También han sido modificadas las dimensiones\n  de los diálogos en la carpeta (folder) para ajustarlas a la superficie de la carpeta (folder).\n  Por favor, revisa el ejemplo samples\\TestFldD.prg para ver como se añaden dinámicamente nuevas páginas y controles a la carpeta\n  deinida desde recursos.   \n\n* Mejora: La función lIsDir() no estaba comprobando los directorios ocultos y de sistema. Ahora si lo hace.  \n\n* Mejora: El método Add( cPrompt, nImage, nValue ) de la clase TTreeView, ahora el parámetro nValue, que puede ser recuperado más\n  tarde, usando la función TVIPARAM( hItem ) --&gt; nValue. Esto es muy comodo para relacionar un artículo (item) de una vista en árbol\n  (treeview) con un número específico (por ejemplo un número de registro, etc...).    \n\n* Mejora: El método MouseMove() de la clase TToolbar, soporta nuestros punteros de ratón definidos. Por favor, revisa el ejemplo\n  samples\\rebars.prg.\n\n* Mejora: FiveLinux ha sido reconstruido usando las contrucciones más recientes de [x]Harbour. Por favor, tenga en cuenta que los \n  ficheros samples\\build.sh y buildx.sh han sido cambiados.\n\n* Nuevo: En FiveLinux, los Timers ya están disponibles. Por favor, revisa el ejemplo samples\\TestTime.prg.  \n\n* Nuevo: En Fivelinux, en los says, gets (@ ..., ... GET ...) se soporta la clausula PASSWORD. Por favor, revisa el ejemplo\n  samples\\TestDlg.prg.\n\n* Mejora: En FiveLinux, el método SetArray( aArray ) en la clase TWBrowse. Por favor, revisa el ejemplo samples\\TestArr.prg. \n\n* Mejora: En FiveLinux, soporte para eventos de cambio en los scrollbar de los browsers al mover la barra del scrollbar.\n\n* Nuevo: En FiveLinux,se está preparando el soporte para recursos, por favor, revisa el ejemplo samples\\TestRes.prg.\n  No está terminado todavía.\n\n* Nuevo: En FiveLinus, ya está disponible la funcion MsgBeep(). \n\n* Nuevo: En FWPPC, el método Update() en la clase TWindow. Como la clase TDialog hereda de la clse TWindow, también está disponible\n  para clase TDialog.\n\n* Mejora: FWPPC llama automáticamente a TerminateProcess() si ocurre un error GPF.  \n\n* Corrección: En FWH, la clase TGet con xHarbour tenía un error al usar números decimales al pulsar la tecla \".\". Ahora está bien.\n\n* Mejora: En FWH, el método SetMetafile( oMetaFile ) en la clase TClipboard. Copia el contenido de un metafile al portapapeles.\n\n* Mejora: En FWH, la función lIsDir( cDirName ) evita los carácteres \"\\\" y \"/\", en caso de que se hayan incluido en el nombre del directorio.  \n\n* Nuevo: En FWH, el ejemplo samples\\resdyn.prg muestra como añadir dinámicamente nuevos controles a un diálogo definido desde recursos.\n\n* Mejora: En FWH, en la clase TXBrowse, corrección para intercambio de columnas usando busqueda incremental y auto ordenación.\n\n* Mejora: En la clase TGet, se creaba un cursor parpadeante cuando la altura no era correcta. Ahora está perfecto. \n\n* Mejora: En FWH, el método SelFont() en la clase TXBrowse. \n\n* Corrección: En la clase TButtonBmp, no estaba mostrando su mensaje asociado si era definido. Ahra está perfecto. \n\n* Nuevo: En FWH, la clase TOutLook2003, por favor, revisa el ejemplo samples\\Test2003.prg. \n\n* Corrección: En FWH, la función nSerialHD(), no estaba funcionando correctamente. Ahora está perfecta.\n\n* Mejora: Pequeños cambios en la clase TXBrowse.','',0,'','3lbsmzpn',1,0,'',2,0,0),(37711,8163,7,2,0,'87.218.146.216',1189684357,1,0,1,1,1,1,'','','Eduardo,\n\nla actualización tiene un precio bastante inferior al precio de compra del producto original. Tienes más información en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos, gracias','',0,'','10d964cs',1,0,'',2,0,0),(37712,6814,3,1169,0,'200.223.215.213',1189688434,1,0,1,1,1,0,'','','[quote=&quot;Rick Lipkin&quot;:3g7uphrf]There was a recent fix to the underlying ADO class that allowed ctod(\" \") to be stored as null on Ms Sql .. It was fixed since the release of xHarbour 99.71 and should be out in the next binary release.\n\nIf you need the fix .. e-mail me at <!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->\n\nRick Lipkin\nSC Dept of Health, USA[/quote:3g7uphrf]\n\nThanks for the offer, but I do not want to store null. The problem is that if I use dbappend() the update is done before the fields are stored so it raise errors for the not null condition. I solved it working directly on the recordset with the function AddNew() and fields(\"fieldname\"):value.\nRgds.','',0,'gA==','3g7uphrf',1,0,'',1169,0,0),(37713,8100,6,1168,0,'84.121.64.94',1189691902,1,0,1,1,1,0,'','','que yo sepa solo se pueden poner 3 iconos y son fijos; segun parametros\n1, 2, 3 para informacion, warning, error','',0,'gA==','o84cqp64',1,0,'',1168,0,0),(37714,8160,6,228,0,'190.24.83.19',1189693273,1,0,1,1,1,1,'','jejeje','No amigo, es para un programa en modo consola.\n\nUn saludo\n\nLEANDRO ALFONSO','',0,'gA==','1vzo15vo',1,0,'',228,0,0),(37715,8160,6,439,0,'200.125.39.72',1189694418,1,0,1,1,1,1,'','','Leandro, puedes consultar on line la documentación de xHarbour en <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.com\">www.xharbour.com</a><!-- w -->, ahora es accesible a cualquiera que se registre en la página, no hay que pagar por ella a menos que se compre la versión en archivo de ayuda.','',0,'gA==','3i5syeso',1,0,'',439,0,0),(37716,8158,6,73,0,'200.23.18.132',1189694546,1,0,1,1,1,0,'','','Que bien!!!\nMis mejores deseos en esta vuelta a Verce (Jc &amp; willy) estoy seguro de sus mejoras y que pronto tendremos buenas noticias,\ncomo usar mas de 1 archivo .res?\nsalu2\npaco','',0,'gA==','2biy9p24',1,0,'',73,0,0),(37717,8152,6,73,0,'200.23.18.132',1189694874,1,0,1,1,1,0,'','','aqui esta la respuesta por rene,\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7787\">http://fivetechsoft.com/forums/viewtopic.php?t=7787</a><!-- m -->\nsalu2\npaco','',0,'gA==','24y981jr',1,0,'',73,0,0),(37718,8167,3,620,0,'209.189.229.150',1189695022,1,0,1,1,1,0,'','Reuse Deleted Records','Ok...now that Ive solved all my browse issues (thanks James!!!), Im ready to tackle re-using deleted records to avoid that pesky downtime for packing.\n\nIve read a few posts but not sure I completely understand....\n\nRight now im just doing the standard oDbf:append()....load()....save()\n\nCan I get some code examples on how to implement finding deleted record, blanking, using Database object?\n\nThanks!\nGreg','',0,'gA==','24qua6ex',1,0,'',620,0,0),(37719,8102,6,774,0,'164.77.169.91',1189700991,1,0,1,1,1,1,'','','colegas alguien me puede explicar esto q esta hecho en C y forma parte de FWH,, el archivo se llama dc.c esta en winapi\n\n//----------------------------------------------------------------------------//\n\n#ifdef __HARBOUR__\n   CLIPPER FWDISPBEGIN( PARAMS ) // ( hWnd, hDC ) --&gt; aInfo\n#else\n   CLIPPER FWDISPBEGI( PARAMS ) // ( hWnd, hDC ) --&gt;aInfo\n#endif\n{\n   HWND hWnd = ( HWND ) _parnl( 1 );\n   HDC hDC   = ( HDC ) _parnl( 2 );\n   HDC hDC2;\n   HBITMAP hBmp, hBmpOld;\n   RECT rct;\n\n   GetClientRect( hWnd, &amp;rct );\n\n   hDC2    = CreateCompatibleDC( hDC );\n   hBmp    = CreateCompatibleBitmap( hDC, rct.right - rct.left,\n                                     rct.bottom - rct.top );\n   hBmpOld = ( HBITMAP ) SelectObject( hDC2, hBmp );\n   \n   // we comment it out to improve painting speed\n   // BitBlt( hDC2, 0, 0, rct.right, rct.bottom, hDC, 0, 0, SRCCOPY );\n\n   #ifdef __XPP__\n      #define _stornl( x, y, z ) STORNL( x, params, y, z )\n   #endif\n\n   _reta( 5 );\n   _stornl( ( LONG ) hWnd   , -1, 1 );\n   _stornl( ( LONG ) hDC    , -1, 2 );\n   _stornl( ( LONG ) hDC2   , -1, 3 );\n   _stornl( ( LONG ) hBmp   , -1, 4 );\n   _stornl( ( LONG ) hBmpOld, -1, 5 );\n}\n\n//----------------------------------------------------------------------------//\n\nhe notado q si de la clase twindow suprimo la coneccion a esta rutina en C el problema del mal pintado se corrige,, pero no se pq.. quizas alguien u antonio q es el master me lo pueda explicar.. o quizas hay algo mal en esto codigo,, quizas entre en conflicto con algo \n\nbueno ahi les dejo la inquietud','',0,'gA==','lbg5ejgt',1,0,'',774,0,0),(37720,8168,6,1106,0,'190.64.145.14',1189701424,1,0,1,1,1,0,'','Es posible ocultar columnas en xBrowse','Amigos:\n\nEs posible que después de hacer el xBrowse ocultar las\ncolumnas que se desee. (mas de una)\n\nMuchas gracias\n\nRuben Fernandez.','',0,'gA==','2xgvpvnc',1,0,'',1106,0,0),(37721,8107,6,1106,0,'190.64.145.14',1189701563,1,0,1,1,1,0,'','','Gracias Carlos...\n\nNo logre hacerlo funcionar.\n\nVere como lo hago.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','2ob3tzi3',1,0,'',1106,0,0),(37722,8068,3,34,0,'68.5.217.82',1189702416,1,0,1,1,1,1,'','Mac','Antonio,\n\nI\'m not criticizing Mac, but it still only gets about 4% of the marketplace.  If I plan to write software, and invest all that time, I think I have a better chance of selling my product ( business applications ) if they work on 96% of the computers out there rather then 4%.\n\nDon\'t think PC\'s are the only one subject to viruses.  They have detected viruses aimed at Macs, and they do cause damage.  Remember, behind every virus is someone who believes its ok to inflict harm on other people. \n\nI\'ve had Macs here since the very first one was introduced.  I do know what they can do, and the problems that befall them.  In network settings, sharing printers, etc.  I have witnessed far more problems then I have with Windows networks.  These are not my installations, but rather ones done by Mac experts who do this work full time, and have for years.  \n\nAgain, the issue here is where programmers can make money.  You obviously found out that you couldn\'t make enough money on FW-Mac to make it worthwhile.  As business people, we constantly have to make decisions based on what sustains the income we need to stay in business.\n\nBTW, what database products do you know in popular use with the Mac in a business environment.  I\'m not talking about products that exist on another server ( ie. Linux ), but I\'m talking about a database designed strictly for a Mac server and platform.','',0,'gA==','2k5ihcih',1,0,'',34,0,0),(37723,8068,3,255,0,'201.122.36.212',1189702890,1,0,1,1,1,1,'','','there are only 4 mac viruses... and if you get infected by them is only because you want to kill your self..\n\nis something like the \"harakiri\" jejejeje...\n\ni agree with you... if i\'m gonna develop software i will make sure to\ndevelop to the moss computers... so.. that\'s why my software is web..\nthey can run on Linux, Mac, Windows (even Vista guaaajj), FreeBSD...\netc etc etc etc....And there will be no need to install additional libraries\ndlls en all that stuffs.\n\nRegards..','',0,'gA==','3a17obhb',1,0,'',255,0,0),(37724,7972,3,34,0,'68.5.217.82',1189703166,1,0,1,1,1,1,'','Vista','James,\n\nThe files are on the local machine.  The data is drawn across the network, and the files are created just fine, but they are saved on the local machine and then sent.\n\nWhen doing this on a machine accessing a local database it works.  However, even though the files have .txt and .pdf extensions, and are stored local, if the program accesses an ADS on another computer, the problem occurs, even though ADS should not be at all relative to this task !\n\nIts one of those strange things ....\n\nTim','',0,'gA==','7l4pmmk3',1,0,'',34,0,0),(37725,8152,6,945,0,'80.32.177.143',1189703787,1,0,1,1,1,0,'','','Muchas gracias voy a probarlo.\n\nUn Saludo Paco.','',0,'gA==','3s9mvh0u',1,0,'',945,0,0),(37726,8167,3,303,0,'72.199.41.171',1189703796,1,0,1,1,1,0,'','','Greg,\n\nAlready sent to your email.\n\nEveryone, this is code for selected TData registered users only. The new code is beta-test code right now.\n\nThere are actually two new features, 1) automatic deleted record reuse (no more PACKing!) and 2) auto-incrementing primary-key fields. Almost no code changes will be required to implement these new features.\n\nTData is an enhanced database class. For more information about TData go here:\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nBe sure to read the OOP articles too. They show how using database classes can really reduce your code and increase your programming power.\n\nJames','',0,'gA==','1aeq6k0h',1,0,'',303,0,0),(37727,7972,3,303,0,'72.199.41.171',1189704326,1,0,1,1,1,0,'','','Tim,\n\n&gt;When doing this on a machine accessing a local database it works. \n\nI see.\n\n&gt;However, even though the files have .txt and .pdf extensions, and are stored local, if the program accesses an ADS on another computer, the problem occurs, even though ADS should not be at all relative to this task !\n\nHmm, do you mean when a ADS database is open only? Have you tried closing all ADS DBFs before emailing? \n\n&gt;Its one of those strange things ....\n\nRight, but if it was easy, then anyone could do it!\n\nJames','',0,'gA==','3h87ksr5',1,0,'',303,0,0),(37728,8169,20,924,0,'81.208.36.89',1189704434,1,0,1,1,1,0,'','GESTPROGDIR() con VISTA','Salve,\nsapete dove mette VISTA i programmi che si installano con la procedura di FWIN/HARBOUR ? \nPer intenderci quelli che usano:\n*************\nDEFINE DDE oDDE      ;\n SERVICE \"Progman\"  ;\n  TOPIC  \"Progman\"\nACTIVAT DDE oDDe\n\noDDE:Execute(....)\n.\n.\nRELEASE DDE oDDE\n***************\nCon XP va tutto bene, mantre con VISTA creo correttamente il gruppo ma non so (in che cartella) lo va a scrivere.\n\nUsavo la funzione recuperata sul forum GESTPROGDIR()  per saperlo e con XP funziona ma VISTA la va a mettere in una stranissima cartella.\n\nC\'e\' in  giro qualche funzione per recuperarla !\n\nGrazie\n\nRomeo/Zingoni','',0,'gA==','1kwu8v5l',1,0,'',924,0,0),(37729,8170,6,180,0,'83.54.14.247',1189704746,1,0,1,1,1,0,'','O.T. base de datos en formato .SBD','Tengo que recuperar información de un antiguo formato (creo que Interbase de 1992). Los ficheros tienen la extensión .SBD y necesito pasarlos a .DBF. ¿Alguien conoce alguna herramienta para tal fín?\n\nUn saludo,\nManuel','',0,'gA==','2suavur2',1,0,'',180,0,0),(37730,8133,6,127,0,'81.35.39.247',1189705184,1,0,1,1,1,0,'','','aoGt[ 2 ]:bKeyDown := { | nKey | ; \nIF( nKey == K_ENTER, MsgInfo( \"ccodibar14 \" + ; \nccodibar14, \"Valor\" ), ) } \nNo funciona, compila y enlaza bien pero al pulsar intro no pasa el valor\ndel GET a la variable ccodibar14.\n\nCambiando bKeyDown por bKeyChar funciona perfectamente\ncon FWH 7.09 recien instalada.\n\naoGt[ 2 ]:bKeyChar := { | nKey | ; \nIF( nKey == K_ENTER, MsgInfo( \"ccodibar14 \" + ; \nccodibar14, \"Valor\" ), ) } \n\nOk\n\nSi alguien sabe por qué que me lo explique.\n\nGracias Saludos','',0,'','2xmrtj4t',1,0,'',127,0,0),(37731,8171,6,439,0,'200.125.37.60',1189708119,1,0,1,1,1,1,'','Resource Workshop','Hola a todos!!!!\n\nComo siempre tratando de desasnarme con la sabiduría de mis colegas del foro.\n\nSe han dado cambios por los cuales por ejemplo ahora TFolder pasa a ser SysTabControl32 y TMeter pasa a ser msctls_progress32\n\nCuando uso Resource Workshop, al crear los archivos RC les coloca \"TFolder\" y \"TMeter\" en lugar de \"SysTabControl32\" y \"msctrls_progress32\", luego debo entrar con mi editor de texto y modificar estos valores.\n\nAquí va mi pregunta:\n\n¿Es posible evitarlo de alguna manera?, tal vez poniendo alguna línea al principio del RC, o de cualquier otra forma (que no incluya cambiar de editor de recursos).\n\nGracias desde ya por la ayuda.','',0,'','18wqlqii',1,0,'',439,0,0),(37732,8102,6,644,0,'200.45.245.125',1189711344,1,0,1,1,1,0,'','','A&amp;C : Como has hecho para suprimir esta rutina ??. Yo lo he hecho y me produce un error al ejecutar la aplicación.','',0,'','102mltc8',1,0,'',644,0,0),(37733,8171,6,123,0,'81.33.108.247',1189712220,1,0,1,1,1,1,'','','José,\n\nQuizás mi respuesta se salga por la tangente, pero... ¿has pensado en cambiar de editor de recursos?  Mira el del pelles.  Va estupendamente...','',0,'','24gaytg9',1,0,'',123,0,0),(37734,8172,3,230,0,'64.12.117.138',1189712742,1,0,1,1,1,0,'','Adding to a Class Object.','What I am trying to do is add Data/Var Statement to a Class Object that\nhas already been Defined.  I wish to be able to do this from a data\ndriven Method from within the Class.  My data will come from a control\nfile that is Loaded into a Array that is then Pass to the Class after the\nObject is Created.\n\nI am using xHarbour and Fivewin for Harbour 2.6 Feb Build 2007.\n\nI have seen the Command in xHarbour.\n\nEXTEND CLASS ...  WITH DATA ....\n\nEXTEND CLASS ...  WITH METHOD ......\n\nAnd I see how to use this Statement from within Hard Coded\nSource Code.  But What I What to do is to have this statements\nto Be Data Driven.   And Create from Control/Setup Files Loaded\ninto Data Arrays.','',0,'','2anv5qlq',1,0,'',230,0,0),(37735,8171,6,103,0,'189.43.121.190',1189713900,1,0,1,1,1,1,'','','Hola mi amigo Jose,\n\n   Hay una solución: Despues de generar tu RC con los cambios de TFolder y TMeter, puedes abrir el Workshop y abrir tu RC cambiado que el no pierde los cambios y puedes grabarlo sin problemas. Es lo que hago aqui.\n\nSaludos,','',0,'','2buzhp0p',1,0,'',103,0,0),(37736,8102,6,316,0,'87.218.187.254',1189715213,1,0,1,1,1,0,'','','Cesar y Paco, gracias a ambos por confirmar el dato.\n\nHoracio: para suprimir la rutina es suficiente con volver virtuales los métodos DispBegin y DispEnd de la clase twindow. Puedes ver el post de Antonio al respecto, no recuerdo si fue en este hilo o en otro de \'problemas de pintado\'\n\nA&amp;C\n\n[quote=&quot;A&amp;C&quot;:1pp6npu7]colegas alguien me puede explicar esto q esta hecho en C y forma parte de FWH,, el archivo se llama dc.c esta en winapi\n\n.....\nhe notado q si de la clase twindow suprimo la coneccion a esta rutina en C el problema del mal pintado se corrige,, pero no se pq.. quizas alguien u antonio q es el master me lo pueda explicar.. o quizas hay algo mal en esto codigo,, quizas entre en conflicto con algo [/quote:1pp6npu7]\n\nEsas funciones son las que hacen el doble buffering para hacer pintados y evitar el parpadeo mientras se pintan los controles.\nEn general el pintado de un objeto (ventana/control) en windows se hace en varios pasos: Se pinta el fondo (borrando la imagen actual) y luego pintando texto y/o bitmaps. Eso se percibe como un parpadeo, como que el control desaparece y aparece inmediatamente. \nPara evitar este efecto se crea un buffer en la memoria, se pinta en el buffer y cuando está todo listo se copia el buffer a la pantalla, todo de un solo golpe evitando los parpadeos.\nFWDispBegin crea ese buffer de pintado en la memoria, y pone el hDC de pintado apuntando a ese buffer. Como uno pinta usando DCs, loc comandos graficos se direccionan automágicamente a ese buffer.\nCuando has terminado de pintar llamas a FWDispEnd() que hace el último paso: trasladar el dibujo del buffer al DC original.\n\nEl método asi implementado es muy práctico, ya que no hay que tener muchos cuidados al usarlo, salvo llamar a las dos funciones antes y despues de pintar.\n\nRespecto de que se mejora el pintado: el método del doble buffer tiene el problema de que requiere que el pintado sea sincronizado, es decir que el objeto no reciba los mensajes de forma desordenada tal como los esta recibiendo cuando no tiene el foco.\n\nComo habras leido en el hilo todavía yo no lo tengo muy claro, pero segun lo que he posteado respecto a los mensajes que recibe el objeto hay algunas cosas que se pueden ir confirmando y que paso a explicar en mi respuesta a Antonio.\n\nUn saludo y gracias por el interés,\n\nCarlos','',0,'gA==','1pp6npu7',1,0,'',316,0,0),(37737,7972,3,34,0,'68.5.217.82',1189715220,1,0,1,1,1,1,'','Databases','James,\n\nWith error.log emails, there are no databases open.\n\nTim','',0,'gA==','3vv42yd2',1,0,'',34,0,0),(37738,8068,3,34,0,'68.5.217.82',1189715335,1,0,1,1,1,1,'','Development','Web development works for some, but many businesses don\'t want someone else being the custodian of their data, so a database at their location is crucial.','',0,'gA==','275zcf4w',1,0,'',34,0,0),(37739,8158,6,221,0,'200.109.96.250',1189717064,1,0,1,1,1,1,'','','que bien, yo realmente uso verce de unos dias para aca y vaya de lo que me he perdido, y como trivialidad he jugado y sobretodo a mi hijo de 6 años le encanta el jueguito de brenda v1.0, tanbien tengo un tetris instalado en los sistemas pero ese si no me acuerdo de quien es o si es tuyo, no se si habra otra version de brenda v1.0 , jeje para que veas que si hay alguien que lo juega','',0,'gA==','139e76x6',1,0,'',221,0,0),(37740,8167,3,138,0,'189.141.64.24',1189717072,1,0,1,1,1,1,'','','Greg and James:\n\nIs my understanding that xHarbour CDX driver already recicles automatically the deleted records.','',0,'gA==','2i3f6a6q',1,0,'',138,0,0),(37741,8171,6,138,0,'189.141.64.24',1189717645,1,0,1,1,1,1,'','','Si no quieres que te ponga los TMETER y TFOLDER, remueve la DLL FWCTRLS.DLL del workshop, cuando quieras definir un control de 32 bits simplemente pon el nombre de la clase con un CUSTOM CONTROL y listo.','',0,'gA==','4xyr0m0w',1,0,'',138,0,0),(37742,8158,6,305,0,'201.230.14.45',1189718188,1,0,1,1,1,0,'','','Hola Juan Carlos\n\nGracias nuevamente por facilitarnos la vida.  \n\nHace un tiempo atras te pedi considerar que en los nombres de los programas que forman el proyecto no se jale toda la ruta sino solo los nombres, asi, cuando cambie mis programas a otra unidad (cuando trabajo con memorias flash en otra PC frecuentemente la unidad cambia) es mas facil cambiar la ruta general de los archivos y recompilar todo sin tener que editar los archivos *.VRC \n\nSaludos\n\nRalph','',0,'gA==','3o2qscx0',1,0,'',305,0,0),(37743,8102,6,316,0,'87.218.187.254',1189718208,1,0,1,1,1,0,'','','Antonio,\n[quote=&quot;Antonio Linares&quot;:3anebzgc]Carlos,\n\ngracias por tu ayuda. La verdad es que no veo nada extraño salvo que hay dos erasebkgnd seguidos\n[/quote:3anebzgc]\n\nHe estado probando bastante el control y observando los mensajes que se reciben en cada ocacion. He controlado los hDC para asegurarme que no son nulos.\n\nEl control que estoy usando para probar no es de ninguna clase específica de Windows, por lo que al crear la clase del control se llama a Create sin parámetros para crear una nueva clase de ventana, TOutLook2. El estilo de las ventanas de esta clase es WS_CHILD, WS_VISIBLE, WS_CLIPSIBLINGS\nCuando mi control se pinta normalmente, y es mi aplicación la ventana activa, la secuencia de mensajes que se recibe es la siguiente, coincidiendo con la primera parte del post.:\n\n1) WM_PAINT -&gt; que se procesa a:\n\n           ::BeginPaint()\n           ::Paint()\n           ::EndPaint()\n\n2) la invocación de BeginPaint para obtener el DC produce que Windows envíe dos mensajes:\nWM_NCPAINT // Pintado del área no cliente de la ventana o control\nWM_ERASEBKGND // Borrar el fondo\nque resulta en el segundo caso en la llamada a EraseBackgnd que si lo ponemos a 1 hacemos que se valide el fondo como pintado, o bien si retornamos 0 se llama a la funcion normal de pintado de windows. Como en nuestro método PAINT pintamos todo incluyendo el fondo, es preferible retornar 1. Ademas mejora el tema del parpadeo.\n\n3) Como mi control tiene otros controles hijos que son subclases de la clase Static de windows, se reciben luego una sucesion de WM_CTLCOLORSTATIC para que la ventaan padre defina los colores del hijo. Esto ya esta definido en la clase windows.\n\n4) por ultimo llamamos a EndPaint para liberar el DC.\n\nAl recibir el WM_ERASEBKGND, se adjunta un DC con el cual pintar, que además tiene clipeada la region a actualizar.\n\npero.... que sale mal?\n\nUn detalle importante a recordar es que cuando una ventana está parcialmente invisible (como en nuestro caso) al recibir el mensaje de pintado y su correspondiente DC, este viene \'clipeado\', es decir, se ha bloqueado parte de la pantalla para que no podamos pintar en algunos sitios, por ejemplo, el area ocupada por las ventanas superpuestas. Es por eso que en los fallos de pintado vemos esas formas extrañas de rayas, que son las áreas que no se han pintado correctamente, el resto estaba \'clipeado\' cuando se recibió el mensaje WM_PAINT para que no lo dibujásemos, porque o bien esa area corresponde a otra ventana o bien porque no es necesario repintarlo. Dicho esto...\n\nEn el segundo bloque de mensajes se vé algo más complejo de interpretar pero para quien interactua con las ventanas para producir la secuencia de mensajes es un poco más sencillo de entender. Siempre estoy tratando de producir el error, entíendase entonces que muevo la ventana superpuesta de forma lenta para que la ventana inferior tenga que trabajar mucho pintando trocito a trocito.\n\nentonces empieza con \n1: WM_PAINT\nque luego pasa como es de esperarse de acuerdo con la secuencia \'correcta\'\n2: WM_NCPAINT \n3: WM_ERASEBKGND\ncuando se reciben estos mensajes no se debe olvidar que la region a actualizar esta clipeada, es decir que cuando pintamos solo se actualiza en una parte de la pantalla y no toda el area de nuestro control.\n\npeeero, luego me repite \n4: WM_NCPAINT \n5: WM_ERASEBKGND\n6: WM_CTLCOLORSTATIC\n... esto no es lo esperado! Como se explica? Sencillo: mientras estaba procesándose WM_ERASEBKGND  en el punto (3), algun usuario cabroncete movio algo en la pantalla que requiere que se actualice otro trocito de la pantalla, digamos otra region, entonces nos manda nuevamente a borrar el fondo de ese trozo nuevo, clipeado, tarea que debiera cumplirse en 4 y 5. Luego aparentemente sigue el pintado normal ya que llega hasta 6, es decir ya está pintando uno de los controles hijos, pero cuando aun no ha llegado al final... el usuario vuelve a mover las ventanas y genera una nueva necesidad de pintado. Y comienza un nuevo ciclo de pintado, ya que al recibir:\n\n7: WM_PAINT\n\ntodavía no se habían terminado de pintar los controles hijos.\n\nEste ciclo de pintado SI se cumple de manera completa, pero, claro, la region clipeada es la que corresponde al nuevo movimiento, y la region antigua quedo a medio camino, sin pintarse de manera completa.\n\nsefiní.\n\nPerdón por la larga charla, pero es que es lo que he podido lograr discernir despues de horas de debuguear.\n\nAhora mi duda es... como evitarlo? Ya le quite el doblebuffer, he probado todas las combinaciones de EraseBkgnd... no sé. Cualquier sugerencia es bienvenida.\n\nHasta mañana,\n\nCarlos.','',0,'gA==','3anebzgc',1,0,'',316,0,0),(37744,8167,3,620,0,'209.189.229.150',1189718369,1,0,1,1,1,0,'','','Well that would certainly be sweet if that is the case.  Are you saying the oDbf:append() automatically seeks deleted records to reuse?\n\nAlso...what IS the difference in Harbour and xHarbour (im just using Harbour).\n\nThanks!\nGreg','',0,'gA==','3l6hqbkq',1,0,'',620,0,0),(37745,8158,6,255,0,'201.122.36.212',1189718642,1,0,1,1,1,1,'','','Hola...\nEn realidad ya no hice otra version del Brenda Game..la 1.0 fue la unica que salio, y en verdad me da muchisimo gusto que disfruten de mis aportaciones.. Tengo algunas otras mas que en su momento tenia en mi pagina web y se las menciono porque las pondre disponibles nuevamente.\n\n- BrendaGame\n- TMsAgent (lo recuerdan?)\n- JCNotas\n- S_e_x_y_P_o_k_e_r ((jeje para aquellos enfermitos))\n\nEspero mañana poder subirlas a un servidor y que puedan descargarlas.\nDe sobra esta que el codigo fuente estara tambien disponible para todo aque que lo requiera.\n\nUna cosa mas... las peticiones por favor a los correos que ya mencione.\n\nGracias\nUn abrazo a todos.','',0,'gA==','2srjofh3',1,0,'',255,0,0),(37746,8145,6,935,0,'200.62.120.252',1189718939,1,0,1,1,1,1,'','ponlo asi','en tu main o ventana principal pon lo siguiente :\n\n   SET MESSAGE OF oWnd TO \"Pantalla Principal del Sistema ................\" NOINSET CLOCK DATE KEYBOARD\n\n   @ 2,1 IMAGE oBmp FILENAME \"IMAGEN2.jpg\" NOBORDER SIZE 1260,865  OF oWnd SCROOL ADJUST\n   oBmp:lTransparent = .T.\n\nasi me funciona.\n\nRamon Paredes','',0,'gA==','228wy86r',1,0,'',935,0,0),(37747,8173,6,875,0,'64.76.108.182',1189719473,1,0,1,1,1,0,'','FWH con SAMBA','Estoy migrando mis tablas (DBFS) a un servidor SAMBA(linux fedora), luego le he creado una unidad de red (S),  la cosa que veo los archivos(DBFS) pero no puedo abrir las tablas y menos modificarlas me sale Error DOS 5 (Acceso denegado) a pesar que le he dado los maxims accesos.\n\n¿Alguien que este usando FWH con SAMBA, me puede ayudar?\n\n\nSe Agradece   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nJaime','',0,'gA==','21cbn0kd',1,0,'',875,0,0),(37748,8145,6,1072,0,'201.236.155.176',1189719490,1,0,1,1,1,0,'','Re: ponlo asi','Mil Gracias amigo, lo probare.,\n\nSaludos\nAntonio\n\n\n[quote=&quot;Ramon Paredes&quot;:8eh1uidu]en tu main o ventana principal pon lo siguiente :\n\n   SET MESSAGE OF oWnd TO \"Pantalla Principal del Sistema ................\" NOINSET CLOCK DATE KEYBOARD\n\n   @ 2,1 IMAGE oBmp FILENAME \"IMAGEN2.jpg\" NOBORDER SIZE 1260,865  OF oWnd SCROOL ADJUST\n   oBmp:lTransparent = .T.\n\nasi me funciona.\n\nRamon Paredes[/quote:8eh1uidu]','',0,'gA==','8eh1uidu',1,0,'',1072,0,0),(37749,8169,20,154,0,'151.21.37.136',1189719617,1,0,1,1,1,1,'','Re: GESTPROGDIR() con VISTA','[quote=&quot;Romeo&quot;:2jkjjk36]sapete dove mette VISTA i programmi che si installano con la procedura di FWIN/HARBOUR ? \nPer intenderci quelli che usano:\n*************\nDEFINE DDE oDDE      ;\n SERVICE \"Progman\"  ;\n  TOPIC  \"Progman\"\nACTIVAT DDE oDDe\n\noDDE:Execute(....)\n.\n.\nRELEASE DDE oDDE\n***************\nCon XP va tutto bene, mantre con VISTA creo correttamente il gruppo ma non so (in che cartella) lo va a scrivere.\n\nUsavo la funzione recuperata sul forum GESTPROGDIR()  per saperlo e con XP funziona ma VISTA la va a mettere in una stranissima cartella.\n\nC\'e\' in  giro qualche funzione per recuperarla ![/quote:2jkjjk36]\n\nPurtroppo non mi è chiaro a cosa ti stai riferendo ma, se posti (anche in privato) un esempio minimale posso fare delle prove sul mio computer.','',0,'gA==','2jkjjk36',1,0,'',154,0,0),(37750,8145,6,1072,0,'201.236.155.176',1189720194,1,0,1,1,1,0,'','','Amigo:\n\nSabes que me arroja este error, veo que me falta declarar algo en el programa menu.\n\nSaludos,\nAntonio\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:NEW(0)\n   Called from: IMAGE.PRG =&gt; TIMAGE:NEW(0)\n   Called from: menuclub.prg =&gt; MAIN(35)','',0,'gA==','25fn2vg2',1,0,'',1072,0,0),(37751,8174,3,1157,0,'168.209.97.34',1189720352,1,0,1,1,1,0,'','Dynamic FOLDER problem with GET on XP','Hello Antonio\n\nThis is a slightly modified version of folder.prg:\n\n[code:2338nyof]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oFld\n   local oGet, cGet &#58;= &quot;     &quot;\n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ;\n      FROM 5, 5 TO 20, 49\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n      OF oDlg SIZE 160, 90\n\n   @ 1, 1 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ;\n     ACTION MsgInfo&#40; &quot;Hello world!&quot; &#41;\n\n    // Comment this line to get proper Folder colour\n   @ 3, 2 GET oGet VAR cGet OF oFld&#58;aDialogs&#91; 1 &#93;\n\n   @ 5&#46;5, 11 BUTTON &quot;Ok&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nprocedure AppSys // Xbase++ requirement\n\nreturn\n\n[/code:2338nyof]\n\nIt must be compiled along with folder.rc for XP style:\n\n  1 24 \"winxp\\WindowsXP.Manifest\"\n\nThe GET messes up the colour of the folder page, instead of a whitish colour it changes to the standard dialog colour and makes the tab look horrible.\n\nRegards\nAlex','',0,'AIA=','2338nyof',1,0,'',1157,0,0),(37752,8173,6,316,0,'87.218.187.254',1189720430,1,0,1,1,1,0,'','','Jaime,\n creo que es una cuestion de linux y permisos. Cámbiale los permisos a los directorios que compartes con chmod a 0777\n\nasegúrate que el sahe no esta como readonly. \n\nPara poderte ayudar sería importante que postees tu smb.conf, sino hay que andar adivinando.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','1xlhc90v',1,0,'',316,0,0),(37753,8173,6,875,0,'64.76.108.182',1189720871,1,0,1,1,1,0,'','','Disculpa se me olvido poner el smb.conf   <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   alli esta:	\n\n--------------------------------------------------------------------\n[global]\n	\nworkgroup = enlace\nencrypt passwords = yes\n\nsecurity = share\n;username map = /var/lib/samba/private	\n\n[sistemas]\n        comment = carpeta de sistemas\n        path = /sistemas\n        public = yes\n        writable = yes\n        browseable = yes\n        write list = enlace\n        create mask = 0777\n        directory mask = 0777\n        share modes = yes\n-------------------------------------------------------\n\nSe Agradece  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nJaime','',0,'','831utoze',1,0,'',875,0,0),(37754,8145,6,935,0,'200.62.120.252',1189721579,1,0,1,1,1,1,'','include','en tus archivos de cabecera pon #Include \"Image,ch\" y listo','',0,'','3spytlkv',1,0,'',935,0,0),(37755,8145,6,1072,0,'201.236.155.176',1189722662,1,0,1,1,1,0,'','Re: include','Amigo, \nDisculpa la molestia y gracias por tu ayuda, pero he puesto el image.ch al inicio, y me arroja este error error.\n\nSaludos,\nAntonio\n\nCompilado y Enlazado de: [c:\\sistemas\\club1\\menuclub.Exe]\nEjecución No. 13\nEjecutada a las: 19:24:23\n============================================================\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'c:\\sistemas\\club1\\menuclub.prg\'...\nC:\\sistemas\\club1\\menuclub.prg(37) Warning W0001  Ambiguous reference: \'SCROOL\'\nNo code generated.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 1 ** deleting c:\\sistemas\\club1\\menuclub.hrb\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!','',0,'','105rser0',1,0,'',1072,0,0),(37756,8145,6,54,0,'189.132.105.95',1189723718,1,0,1,1,1,1,'','Re: include','Corrige,\n\nSCROOL por SCROLLahi puede ser el problema\n\nsaludos','',0,'','c1r362vi',1,0,'',54,0,0),(37757,8175,3,34,0,'68.5.217.82',1189723888,1,0,1,1,1,1,'','TGraph','I wanted to experiment including a graph in one of my dialogs ( FWH/xHarbour ).  I thought I would try with the sample code, but I also wanted to use  REDEFINE GRAPH instead of @ x,  Y DEFINE GRAPH.\n\nSo, that means I need to link to a resource in my .rc file which is no problem, but what type of resource should I put in there ?  I know for displaying a bitmap I need to use a button resource, but what about a graph ?  I can\'t find a sample anywhere ?','',0,'','3ek1xwkf',1,0,'',34,0,0),(37758,6999,6,305,0,'201.230.14.45',1189724157,1,0,1,1,1,0,'','','parece que no estas usando la clase Tdosprn que viene en el ejemplo, verifica.\n\nRalph','',0,'','4gch4h8q',1,0,'',305,0,0),(37759,8102,6,2,0,'87.218.146.86',1189726600,1,0,1,1,1,1,'','','Carlos,\n\nSi tu teoria es correcta entonces podríamos usar una variable estática (lPainting) que en caso de ser verdadera serviría para no hacer más pintados mientras que no se termine el anterior.\n\nEn una primera prueba habría que comprobar si recibimos un WM_PAINT estando procesando ya un WM_PAINT anteriormente\n\nDe la misma forma, podriamos comprobar si se recibe un WM_ERASEBKGND estando procesando un WM_ERASEBKGND anterior','',0,'','3iac8j3k',1,0,'',2,0,0),(37760,8172,3,2,0,'87.218.146.86',1189726947,1,0,1,1,1,1,'','','Jim,\n\nJust check how these commands are preprocessed and you will have the way to use them data driven. Please review hbclass.ch','',0,'','sywj0tdy',1,0,'',2,0,0),(37761,8176,4,234,0,'12.109.182.132',1189727320,1,0,1,1,1,1,'','Network connection','Is it possible to confirm connection to network withing FWPPC?','',0,'','21aw67x9',1,0,'',234,0,0),(37762,8102,6,72,0,'189.146.242.105',1189730227,1,0,1,1,1,0,'','','No es solo un efecto sobre la nueva clase TOutlook, sucede con TGraph, Brush o cualquier imagen cuando se barre algun objeto externo a laaplicación.\n\n[url=http&#58;//img517&#46;imageshack&#46;us/my&#46;php?image=rxef1&#46;jpg:1k2pxm0w][img:1k2pxm0w]http&#58;//img517&#46;imageshack&#46;us/img517/1431/rxef1&#46;th&#46;jpg[/img:1k2pxm0w][/url:1k2pxm0w]','',0,'GA==','1k2pxm0w',1,0,'',72,0,0),(37763,8145,6,1072,0,'201.214.53.218',1189735565,1,0,1,1,1,0,'','Re: include','Amigo:\n\nHice la correccion y al ejecutar, me arroja este error.\n\nSaludos,\nAntonio\n\nApplication\n===========\n   Path and name: c:\\sistemas\\club1\\menuclub.Exe (32 bits)\n   Size: 1,305,088 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 13/09/2007, 22:01:17\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: HWND\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: BITMAP.PRG =&gt; TBITMAP:NEW(0)\n   Called from: IMAGE.PRG =&gt; TIMAGE:NEW(0)\n   Called from: menuclub.prg =&gt; MAIN(33)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.66GHz 2666 Mhz\n   Hardware memory: 256 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   HWND\n     Local   1:    A    Len:    0\n     Local   2:    U    \n     Local   3:    N    0\n   TBITMAP:NEW\n     Param   1:    N    2\n     Param   2:    N    1\n     Param   3:    N    1260\n     Param   4:    N    865\n     Param   5:    U    \n     Param   6:    C    \"FONDO.jpg\"\n     Param   7:    L    .T.\n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    L    .T.\n     Param  12:    L    .T.\n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    L    .F.\n     Param  16:    U    \n     Param  17:    L    .F.\n     Param  18:    U    \n     Param  19:    L    .F.\n     Local   1:    O    Class: TIMAGE\n     Local   2:    U    \n     Local   3:    U    \n   TIMAGE:NEW\n     Param   1:    N    2\n     Param   2:    N    1\n     Param   3:    N    1260\n     Param   4:    N    865\n     Param   5:    U    \n     Param   6:    C    \"FONDO.jpg\"\n     Param   7:    L    .T.\n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    L    .T.\n     Param  12:    L    .T.\n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    L    .F.\n     Param  16:    U    \n     Param  17:    L    .F.\n     Param  18:    U    \n     Param  19:    L    .F.\n     Local   1:    O    Class: TIMAGE\n   MAIN\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFCDX\n\nDataBases in use\n================\n\n\n\n[quote=&quot;wmormar&quot;:3iphvu7e]Corrige,\n\nSCROOL por SCROLLahi puede ser el problema\n\nsaludos[/quote:3iphvu7e]','',0,'gA==','3iphvu7e',1,0,'',1072,0,0),(37764,8171,6,439,0,'200.125.38.157',1189737420,1,0,1,1,1,1,'','','Apreciados amigos,\n\nHe escrito al Señor Ricardo Ramírez de LamdaTech, autor de FWCtrl.dll para pedirle las modificaciones mencionadas para las clases TMeter y TFolder para usar con FWH, ya que en su página nos invita a registrarnos gratuitamente si la usamos y darle sugerencias para mejorar la dll.\n\nApreciaría que quienes de Uds. entienda valioso esto, puedan escribirle también a <!-- e --><a href=\"mailto:rramirez@landatech.com\">rramirez@landatech.com</a><!-- e -->, quien sabe si podamos conseguir que se efectúen estos cambios en la dll y así trabajar con mayor comodidad quienes nos resistimos a cambiar Resource Workshop por otro editor de recursos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  .\n\nEn su página, refiriéndose a esta DLL el dice:\n\n[quote:q2kkyaa5]Si decide usarla DEBERÁ registrarse.\n¿Cómo registrarse?\nEnvie un email a\n\nA: Ricardo Ramirez R. rramirez arroba landatech punto com  \nAsunto: Yo estoy usando FWCtrls \nCuerpo:  Nombre completo \n Pais \n Version  \n Donde la bajo \n\nPor favor, si tiene comentarios o sugerencias no dude en ponerse en contacto.[/quote:q2kkyaa5]\nPues, comentémosle esta necesidad y si de paso no nos habíamos registrado hagámoslo (es gratis) <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','q2kkyaa5',1,0,'',439,0,0),(37765,8177,6,496,0,'200.107.36.176',1189745851,1,0,1,1,1,0,'','ADO : Entorno Multiusuario, Ayuda (Solucionado)','Un saludo a todos los colegas del Foro\n\nEstoy largo rato intentando encontrar la solución a este problema y me doy por vencido. \n\nHe implementado un BROWSE en el cual se dan las típicas opciones de Modificar, Adicionar y Eliminar Registros, usando los métodos del objeto Recordset de ADO. Funciona Muy bien cuando se trabaja con una sola estación (estacion1); pero cuando desde  estacion2 se realiza algún cambio, adición o eliminación, estos no se reflejan en el Browse de  estacion1. Entonces si por ejemploi el usuario de estacion1 trata de eliminar lo que  estacion2 ya eliminó se produce el consiguiente error devuelto por el proveedor OLEDB.\n\nLa localización del Cursor está definido del lado del cliente \noRs:CursorLocation = adUseClient\n\nEl Objeto se abre usando estos parámetros\noRs:Open( cQuery , cConnection, adOpenKeyset, adLockOptimistic )\n\nincluso he probado usando adOpenDynamic, que según los manuales permiten ver todo tipo de cambios de otros usuarios, pero nada.\n\nHe tratado de probar usando las propiedades OriginalValue y UnderlyingValue  (valor que tiene en la base de datos) pero los valores que se obtiene son los mismos que tiene el recordset en ese momento, no permitiéndome controlar el valor actual en la base de datos y el valor actual en el recordset local.  \n\nCómo podría refrescar el BROWSE de estacion1 con los nuevos cambios ocurridos en El Servidor de Base de Datos y que lo realizó estacion2?\n\nPienso que si uso Requery() cada momento que me muevo por cada elemento del Browse, en una tabla grande y en internet se volvería muy lenta y el moverme sería un caos, porque en el requery se recargan los datos y el cursor siempre va a la ultima fila.\n\nUna opción que se me ocurre es capturar los mensajes de error del proveedor OLEDB y en base a estos actuar recargando los nuevos datos. Pero esta parte es la que no se como hacerlo aún. Cómo hago con Harbour para capturar los errores de ADO?\n\nEspero que alguien pueda darme alguna pista o si ya lo tiene resuelto me indique cómo controlar esos cambios.\n\nDesde ya muy agradecido\n\nMarcelo Jingo','',0,'gA==','1c625hmn',1,1190165467,'',496,1,0),(37766,8168,6,131,0,'194.179.55.36',1189753136,1,0,1,1,1,0,'','','Mira el atributo lHide de las columnas.\n\nSaludos,','',0,'gA==','3h3twurx',1,0,'',131,0,0),(37767,8168,6,456,0,'217.127.39.57',1189754432,1,0,1,1,1,1,'','','Tambien puedes hacerlo en ejecución, pulsa boton derecho del mouse sobre las cabeceras.','',0,'gA==','2g481q28',1,0,'',456,0,0),(37768,8175,3,130,0,'141.51.32.24',1189756520,1,0,1,1,1,1,'','','Tim,\n\nuse a custom control, the classname has to be \"TGraph\"\n\n[code:x3lz8qjh]CONTROL &quot;&quot;, 120, &quot;TGraph&quot;, 0x00000000, 3, 15, 260, 135\n[/code:x3lz8qjh]','',0,'AIA=','x3lz8qjh',1,0,'',130,0,0),(37769,8178,3,161,0,'213.119.247.247',1189757193,1,0,1,1,1,0,'','FW709 TESTXBRW-sample','Hi,\n\nIf I try to compile testwbrw-sample in FW709 I get the folowing error.\n\n[code:32mvtt1q]Compiling&#46;&#46;&#46;\nxHarbour Compiler build 0&#46;99&#46;71 &#40;SimpLex&#41;\nCopyright 1999-2007, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'testxbrw&#46;prg\' and generating preprocessed output to \'testxbrw&#46;ppo\'&#46;&#46;&#46;\nLines 713, Functions/Procedures 22\nGenerating C source output to \'testxbrw&#46;c\'&#46;&#46;&#46;\nDone&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\ntestxbrw&#46;c&#58;\nBorland Resource Compiler  Version 5&#46;40\nCopyright &#40;c&#41; 1990, 1999 Inprise Corporation&#46;  All rights reserved&#46;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_ADSSETSERVERTYPE\' referenced from C&#58;\\FWH\\FWH709\\SAMPLES\\TESTXBRW\n&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_ADSSETFILETYPE\' referenced from C&#58;\\FWH\\FWH709\\SAMPLES\\TESTXBRW&#46;O\nBJ\nError&#58; Unresolved external \'_HB_FUN_ADSKEYCOUNT\' referenced from C&#58;\\FWH\\FWH709\\SAMPLES\\TESTXBRW&#46;OBJ\nError&#58; Unresolved external \'_HB_FUN_ADSGETRELKEYPOS\' referenced from C&#58;\\FWH\\FWH709\\SAMPLES\\TESTXBRW&#46;\nOBJ\nError&#58; Unresolved external \'_HB_FUN_ADSSETRELKEYPOS\' referenced from C&#58;\\FWH\\FWH709\\SAMPLES\\TESTXBRW&#46;\nOBJ\nError&#58; Unresolved external \'_HB_FUN_ADS\' referenced from C&#58;\\FWH\\FWH709\\SAMPLES\\TESTXBRW&#46;OBJ\n* There are errors[/code:32mvtt1q]\n\nRegards,\nMarc','',0,'AIA=','32mvtt1q',1,0,'',161,0,0),(37770,8102,6,316,0,'213.97.245.163',1189758282,1,0,1,1,1,0,'','','Alfredo,\ngracias por el reporte del error.\n\nAntonio,\n\n[quote=&quot;Antonio Linares&quot;:2397n1e7]\nSi tu teoria es correcta entonces podríamos usar una variable estática (lPainting) que en caso de ser verdadera serviría para no hacer más pintados mientras que no se termine el anterior.\n[/quote:2397n1e7]\nEs lo que había pensado, pero no estoy seguro de que sea solución. Voy a probar con un return 1 a ver que pasa.\nCuando recibes un mensaje WM_PAINT no es optativo pintarlo, hay que pintar, porque Windows automáticamente valida la región que ha solicitado pintar y el efecto sería que la region no pintada es la nueva, y no la que estaba en proceso, me explico?\n\nA la vuelta del trabajo seguiré con las pruebas. Mi especulación es que no creo que Windows esté tan mal programado como para que se pierda info de pintado, por lo tanto la cosa es que seguramente windows está optimizando el pintado haciendo algo de álgebra de regiones y nos estamos perdiendo algo.\nPor ejemplo que pasa con el DC en el segundo ciclo cuando el primero no esta completo? Creo que por ahí esta la cuestión.\n\nUn saludo,\nCarlos.','',0,'gA==','2397n1e7',1,0,'',316,0,0),(37771,8179,3,161,0,'213.119.247.247',1189758744,1,0,1,1,1,0,'','Display bmp on window','Hi,\n\nIN FW I used \n\n[code:3ezzuxmd]   ACTIVATE WINDOW oMenuWnd MAXIMIZED ;\n   ON PAINT &#40;PalBmpDraw&#40; hDC, &#40; oMenuWnd&#58;nbottom - oMenuWnd&#58;ntop &#41;-220 , &#40;&#40;oMenuWnd&#58;nright&#41;-&#40;oMenuWnd&#58;nleft&#41;-&#40;350&#41;&#41;/2, oBmp&#58;hBmpPal &#41;&#41;\n[/code:3ezzuxmd]\n\nto display a bmpfile in the middle at the bottom of the screen.\n\nIn FWH I get an error:\n[code:3ezzuxmd]   Error description&#58; Error BASE/1004  Message not found&#58; TBITMAP&#58;HBMPPAL[/code:3ezzuxmd]\n\nHow can I display a bmp in FWH?\n\nThanks,\nMarc','',0,'AIA=','3ezzuxmd',1,0,'',161,0,0),(37772,8178,3,995,0,'81.11.198.94',1189759294,1,0,1,1,1,0,'','','Maybe __ADS__ was defined ? \n\nSee : \n\n#ifdef __ADS__\n.....','',0,'AIA=','196a4qpz',1,0,'',995,0,0),(37773,8165,3,2,0,'87.218.146.213',1189759624,1,0,1,1,1,1,'','','* New: FWH new Class TPreview. Now the FiveWin printer preview is a class so you can simultaneously use as menu printer previews as needed. \n\nThis is included in FWH 7.09 but it was missing in the whatsnew.txt list','',0,'AIA=','2y6v1mkp',1,0,'',2,0,0),(37774,8166,6,2,0,'87.218.146.213',1189759684,1,0,1,1,1,1,'','','* Nuevo: FWH nueva clase TPreview. Ahora el previsualizador de impresión de FiveWin es una clase por lo que se puede usar simultaneamente tantos previsualizadores como se desee. \n\nEsta clase está incluida en FWH 7.09','',0,'AIA=','3ben1n9c',1,0,'',2,0,0),(37775,8178,3,2,0,'87.218.146.213',1189759879,1,0,1,1,1,1,'','','Marc,\n\nHere it is building and working fine','',0,'AIA=','6ptnvjt6',1,0,'',2,0,0),(37776,7330,6,75,0,'83.54.31.75',1189759983,1,0,1,1,1,0,'','Calculadora','En el siguiente link os dejo la calculadora con las sugerencias incorporadas y con un ejemplo de como hacerla arrancar pulsando F12.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?b1ydcz24n9y\">http://www.mediafire.com/?b1ydcz24n9y</a><!-- m -->\n\nSaludos.','',0,'AIA=','1j8fx95a',1,0,'',75,0,0),(37777,8180,3,86,0,'81.83.185.118',1189760713,1,0,1,1,1,1,'','Error in new FWH 7.09','Hello,\n\nI installed the new FWH 7.09 today. Compiling and linking is OK.\n\nBut when I run my application, I got this error, followed by a GPF :\n\n[quote:trh2t7vt]\'FONT.PRG\' was compiled by older version, PCODE version 9 is no longer supported - Please recompile.[/quote:trh2t7vt]\n\nI tried to add the class \"FONT.PRG\" to my personal library. But then the error reoccurs with the class \"DIALOG.PRG\".\n\nWith FWH 7.04, everything is running just fine.\n\nI using xHarbour from December 2006 with xBuilder.\n\nWhat\'s wrong ?\n\nThanks.','',0,'gA==','trh2t7vt',1,0,'',86,0,0),(37778,8181,19,316,0,'213.97.245.163',1189761339,1,0,1,1,1,0,'','[OT] Feliz día','Para todos, hoy es el día 256 del año y se festeja el día del programador.\n¡Feliz día!\n\nCarlos','',0,'gA==','dndktlgj',1,0,'',316,0,0),(37779,8179,3,6,0,'87.17.218.249',1189761804,1,0,1,1,1,1,'','Re: Display bmp on window','Try oBmp:hBitmap.\n\nEMG','',0,'gA==','35n2g0g0',1,0,'',6,0,0),(37780,8167,3,6,0,'87.17.218.249',1189762050,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2ovrjmvf]Greg and James:\n\nIs my understanding that xHarbour CDX driver already recicles automatically the deleted records.[/quote:2ovrjmvf]\n\nDon\'t think so. It would be a serious incompatibility.\n\nEMG','',0,'gA==','2ovrjmvf',1,0,'',6,0,0),(37781,8179,3,161,0,'213.119.247.247',1189763063,1,0,1,1,1,0,'','','Enrico,\n\noBmp:hBitmap works!!\n\nThanks,\nMarc','',0,'gA==','3im22pmt',1,0,'',161,0,0),(37782,8178,3,161,0,'213.119.247.247',1189763727,1,0,1,1,1,0,'','','The problem is that testxbrw use REQUEST ADS.\nIf I uncomment de 2 lines needed for ADS, I get the error ACE32.LIB not found. Where can I find this lib?\n\n\nThanks,\nMarc','',0,'gA==','23lg7fj9',1,0,'',161,0,0),(37783,8178,3,2,0,'87.218.146.213',1189763906,1,0,1,1,1,1,'','','Marc,\n\nimplib.exe ACE32.LIB ACE32.DLL','',0,'gA==','27cedeqk',1,0,'',2,0,0),(37784,8178,3,161,0,'213.119.247.247',1189764481,1,0,1,1,1,0,'','','Thanks Antonio,\n\nIt\'s working fine now.\n\nMarc','',0,'gA==','2xe3x92j',1,0,'',161,0,0),(37785,8180,3,2,0,'87.218.146.213',1189766889,1,0,1,1,1,1,'','','Michel,\n\nAre you using a modified font.prg of your own ?\n\nAnyhow, we email you a new lib just to check it, thanks','',0,'gA==','28twwuih',1,0,'',2,0,0),(37786,8176,4,2,0,'87.218.146.213',1189767165,1,0,1,1,1,1,'','','Darrell,\n\nIf you mean local network, then you may check for a file existence:\n\nif File( \"\\\\machine\\path\\filename\" )\n\nFor Internet access, you may use:\n\nFunction IsInternet() \nWSAStartup() \nRETURN GetHostByName( \"www.microsoft.com\" ) != \"0.0.0.0\"','',0,'gA==','3r7porq9',1,0,'',2,0,0),(37787,8182,6,127,0,'81.35.39.247',1189767519,1,0,1,1,1,0,'','Impresión ( prev32.dll ) con FWH 7.09','Al compilar los programas que ya tengo escritos y que vienen corriendo perfectamente compilados con la version anterior de FWH, me ocurre lo siguiente:\n\nCuando ejecuto cualquier opción que imprima con previsualización, en lugar de aparecer una ventana MDI como aparecía antes ademas de la de la aplicación, ahora me aparece una ventana HIJA que se ubica detrás del diálogo y con dimensiones reducidas y la previsualizacion distorsionada.\n\nSi algún compañero sabe que hay que hacer para que no se produzca esto se lo agradeceria.\n\nSaludos','',0,'gA==','2ztmmrw7',1,0,'',127,0,0),(37788,8180,3,86,0,'81.83.185.118',1189768432,1,0,1,1,1,1,'','','Antonio,\n\nNo, I don\'t use a modified font.prg.\n\nThanks.','',0,'gA==','achbi15a',1,0,'',86,0,0),(37789,8180,3,86,0,'81.83.185.118',1189769183,1,0,1,1,1,1,'','','Antonio,\n\nThanks for sending me a new lib.\n\nUnfortunately, the same error occurs.\n\nWhat can I do ? What does this error mean ?\n\nThanks.','',0,'gA==','3qfv1qrz',1,0,'',86,0,0),(37790,8174,3,2,0,'87.218.146.213',1189769653,1,0,1,1,1,1,'','','Alex,\n\nHere it looks fine on XP and Vista:\n\n[url=http&#58;//imageshack&#46;us:1nhgaqi3][img:1nhgaqi3]http&#58;//img378&#46;imageshack&#46;us/img378/8823/xpfh4&#46;png[/img:1nhgaqi3][/url:1nhgaqi3]\n[url=http&#58;//imageshack&#46;us:1nhgaqi3][img:1nhgaqi3]http&#58;//img378&#46;imageshack&#46;us/img378/2429/vistapq3&#46;png[/img:1nhgaqi3][/url:1nhgaqi3]','',0,'GA==','1nhgaqi3',1,0,'',2,0,0),(37791,8174,3,2,0,'87.218.146.213',1189769825,1,0,1,1,1,1,'','','Ok, I see what you mean: The dialog background','',0,'GA==','1u10u3dl',1,0,'',2,0,0),(37792,8174,3,2,0,'87.218.146.213',1189770030,1,0,1,1,1,1,'','','Alex,\n\nDo it this way as a workaround meanwhile we find where the difference comes from:\n[code:3q65dpv9]\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT AddGet&#40; oFld &#41;\n\nreturn nil \n\nfunction AddGet&#40; oFld &#41;\n\n   local cGet &#58;= &quot;     &quot; \n   \n   @ 6, 2 GET oGet VAR cGet OF oFld&#58;aDialogs&#91; 1 &#93; SIZE 90, 25\n\nreturn nil\n[/code:3q65dpv9]','',0,'AIA=','3q65dpv9',1,0,'',2,0,0),(37793,8174,3,2,0,'87.218.146.213',1189770757,1,0,1,1,1,1,'','','This may also help:\n\n   @ 3, 2 GET oGet VAR cGet OF oFld:aDialogs[ 1 ] \n\n   oFld:aDialogs[ 1 ]:bEraseBkGnd = { | hDC | DrawPBack( oFld:aDialogs[ 1 ]:hWnd, hDC ), 1 }','',0,'','2o2df7ej',1,0,'',2,0,0),(37794,8182,6,2,0,'87.218.146.213',1189771499,1,0,1,1,1,1,'','','Julio,\n\nEstamos usando una nueva Clase TPreview que permite usar multiples previews simultaneamente.\n\nComo se veía antes la ventana de preview, maximizada ?','',0,'','2w4gbsdh',1,0,'',2,0,0),(37795,8176,4,234,0,'12.109.182.132',1189772269,1,0,1,1,1,1,'','','Thank you Antonio','',0,'','3bnllz5z',1,0,'',234,0,0),(37796,8134,3,473,0,'81.82.10.56',1189772615,1,0,1,1,1,0,'','','At this momoent it is already possible to browse JPG files in a xBrowse()\n\nBut it only works when there is only 1 dataline. Is it possible with xBrowse to combine bitmaps and multiple datalines.\n\nThe JPG is not displayed  in the middel of the column. When I give the column the exact width it is not displayed completely.\n\nThanks\n\nWilly','',0,'','e21to749',1,0,'',473,0,0),(37797,8183,6,694,0,'200.146.115.216',1189773975,1,0,1,1,1,1,'','DIALOG em tela inteira PDV','pessoal como criar uma dialog que cubra a tela inteira do MONITOR?\n\nGrato\n\nAoki','',0,'','rljcd7zr',1,0,'',694,0,0),(37798,8174,3,1157,0,'198.54.202.250',1189774548,1,0,1,1,1,0,'','','Hi Antonio\n\nThanks for the response. The first solution unfortunately is not suitable for my app.\n\nThe second solution causes my app to crash, no error, no gpf.\n\nIt works for folder.prg but the button does not look so good any more.\n\nI actually also get a crash when I use oFolder:Move(...), I use MoveWindow() instead.\n\nI can send you may test app, it is 1 .prg but is quite large (~1000 lines). It may help in your testing?\n\nRegards\nAlex','',0,'','2vgutb7a',1,0,'',1157,0,0),(37799,8169,20,924,0,'81.208.36.89',1189775515,1,0,1,1,1,0,'','','Voglio semplicemente sapere (sotto VISTA) dove diavolo mette i menu\' dei programmi che si installano. Con XP so che li mette in :\n\nC:\\Documents and Settings\\All Users\\Menu Avvio\\Programmi\n\n\nGrazie','',0,'','3sjg2shs',1,0,'',924,0,0),(37800,8184,6,694,0,'200.146.115.216',1189776946,1,0,1,1,1,1,'','Utilizando PELLES C, dialog preencher a tela inteira!','Utilizando o PELLES C, como fazer uma DIALOG preencher toda extensão da tela (pdv)\n\n\nGrato\nAoki','',0,'','21jkan9s',1,0,'',694,0,0),(37801,8102,6,774,0,'164.77.169.91',1189777263,1,0,1,1,1,1,'','','[img][url=http&#58;//imageshack&#46;us:97366xoh][img]http://img294.imageshack.us/img294/7117/dibujoct5.jpg[/img][/url:97366xoh]\n[/img]\n\nAMIGOS COMO DIJO alfredo no solamente es la clase nueva... miren esto\nun simple bitmap como fondo','',0,'GA==','97366xoh',1,0,'',774,0,0),(37802,8174,3,1157,0,'198.54.202.218',1189778162,1,0,1,1,1,0,'','','Hi Antonio\n\nThis command has similar problems, and obscures items \"behind\" it:\n\n@ &lt;nTop&gt;, &lt;nLeft&gt; [ GROUP &lt;oGroup&gt; ] TO &lt;nBottom&gt;, &lt;nRight&gt;\n\nRegards\nAlex','',0,'','307aak6u',1,0,'',1157,0,0),(37803,8176,4,234,0,'24.187.222.42',1189778195,1,0,1,1,1,1,'','','Antonio,\n\nI got a FWPPC GPF occurred. Fix GPFStack() when using IsInternet function below.','',0,'','11gb12ok',1,0,'',234,0,0),(37804,8176,4,234,0,'24.187.222.42',1189778416,1,0,1,1,1,1,'','','Antonio,\n\nThe GPF was caused by the WSAStartup() function. I removed it and I did not get the GPF. Is this function required?','',0,'','qwl6vlvx',1,0,'',234,0,0),(37805,8174,3,2,0,'87.218.146.213',1189778519,1,0,1,1,1,1,'','','Alex,\n\nYou have to create the GROUP before other controls that you plan to place on top of it','',0,'','3pd6srhs',1,0,'',2,0,0),(37806,8182,6,127,0,'81.35.39.247',1189778642,1,0,1,1,1,0,'','','Sí salía maximizada y en ventana independiente, (MDI ), aunque al cerrar el programa, también se cerraba esta si había alguna abierta.\n\nTambién cuando había alguna ventana de impresión abierta y se intentaba abrir otra salía un MsgStop diciendo \"Ya existe una ventana de visualización\", por si esto te da alguna pista.\n\nMuchas gracias Antonio, saludos.','',0,'','34zixc52',1,0,'',127,0,0),(37807,8102,6,2,0,'87.218.146.213',1189778784,1,0,1,1,1,1,'','','La clase TWindow es una clase propia de FWH por lo que entra dentro del grupo de clases que pueden tener ese problema.\n\nLa cuestión es encontrar la causa y la solución','',0,'','1j4pbtsf',1,0,'',2,0,0),(37808,8176,4,2,0,'87.218.146.213',1189778866,1,0,1,1,1,1,'','','Darrell,\n\nIs IsInternet() working without it ?','',0,'','53kkvb6f',1,0,'',2,0,0),(37809,8182,6,2,0,'87.218.146.213',1189779112,1,0,1,1,1,1,'','','Julio,\n\nUna ventana independiente no es una ventana MDI. MDI es \"multiple display interface\", algo asi como interface de multiples ventanas.\n\nEn source\\classes\\rpreview.prg tienes este código. Prueba a añadirle MAXIMIZED en ambos casos:\n[code:mmw9hbdk]\n   if oWndMain != nil &#46;and&#46; Upper&#40; oWndMain&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n      DEFINE WINDOW &#58;&#58;oWnd ;\n         TITLE cTitle ;\n         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;\n         ICON  oIcon                        ;\n         VSCROLL HSCROLL MDICHILD MAXIMIZED\n   else      \n      DEFINE WINDOW &#58;&#58;oWnd FROM 0, 0 TO 24, 80  ;\n         TITLE cTitle ;\n         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;\n         ICON  oIcon                        ;\n         VSCROLL HSCROLL MENU &#58;&#58;BuildMenu&#40;&#41; MAXIMIZED\n   endif      \n[/code:mmw9hbdk]','',0,'AIA=','mmw9hbdk',1,0,'',2,0,0),(37810,8176,4,234,0,'24.187.222.42',1189779119,1,0,1,1,1,1,'','','Hi Antonio,\n\nNo, it returns IP 0.0.0.0; however the internet is working and my FWPPC application sees host \\\\cargo\\data. Should GetHostByName() use \'cargo\' or \'\\\\cargo\'?\n\nThank you,','',0,'AIA=','1q8fkaug',1,0,'',234,0,0),(37811,8176,4,2,0,'87.218.146.213',1189779405,1,0,1,1,1,1,'','','\"\\\\\" is just for other machines on the LAN.\n\nPlease add this code to your PRG:\n[code:ytvm5wqm]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;WinSock2&#46;h&gt;\n\nHB_FUNC&#40; WSASTARTUP &#41;\n&#123;\n   static WSADATA wsa;\n\n   hb_retni&#40; WSAStartup&#40; 0x202, &amp;wsa &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:ytvm5wqm]','',0,'AIA=','ytvm5wqm',1,0,'',2,0,0),(37812,8174,3,1157,0,'196.25.255.250',1189779480,1,0,1,1,1,0,'','','Hi Antonio\n\nI am placing it on before and sizing it after, all items in the group are obscured.\n\nRegards\nAlex','',0,'AIA=','1wsxxmf2',1,0,'',1157,0,0),(37813,8174,3,2,0,'87.218.146.213',1189779640,1,0,1,1,1,1,'','','Alex,\n\nHave you considered to build your folders from resources ?','',0,'AIA=','316b49af',1,0,'',2,0,0),(37814,8182,6,127,0,'81.35.39.247',1189779724,1,0,1,1,1,0,'','','Yo lo hago asi y me viene funcionando bien desde FWH de 16 bits\n\n IF lPrevis\n   PRINT oPrn NAME \"Impresión de facturas\" PREVIEW\n ELSE\n   PRINT oPrn NAME \"Impresión de facturas\"\n EndIf\n\n IF Empty( oPrn:hDC )\n  MsgStop( OemToAnsi( \"­ No hay IMPRESORA para  imprimir !\" ))\n  Return NIL\n EndIF\n\n oPrn:SetCopies( nCopias )\n\n oPrn:Setup()\n\n ...\n\nLa ventana ya aparece con este código tal y como viene en el ejemplo\nTestPrn2.prg y ha funcionado siempre bien.\n\nNo se donde poner en este código esto que me dices.\n\nGracias y saludos','',0,'AIA=','30uvnsgv',1,0,'',127,0,0),(37815,8176,4,234,0,'24.187.222.42',1189779758,1,0,1,1,1,1,'','','Antonio,\n\nGot the following error when trying to build application.\n\nFiveCEC.lib(WINSOCK.obj) : error LNK2005: HB_FUN_WSASTARTUP already defined in CDM-NET.obj\nFiveCEC.lib(WINSOCK.obj) : warning LNK4006: HB_FUN_WSASTARTUP already defined in CDM-NET.obj; second definition ignored\n   Creating library CDM-NET.lib and object CDM-NET.exp\nCDM-NET.exe : fatal error LNK1169: one or more multiply defined symbols found','',0,'AIA=','11bfy5c8',1,0,'',234,0,0),(37816,8185,6,694,0,'200.146.115.216',1189779845,1,0,1,1,1,1,'','Para meu amigo Alfredo Arteaga!','Alfredo, como consigo as variaveis NH+NW???\n\nGracias amigo\n\nAoki\n\nRay, lo uso de esta forma: \n\nDEFINE ICON oIcon RESOURCE \"IconSys\" \nDEFINE WINDOW oWChld MDIChild FROM 1,2 TO 2,2 OF oWnd TITLE cTitle NOZOOM ICON oIcon \nDEFINE DIALOG oDlg RESOURCE \"Dialogo\" FONT oWnd:oFont OF oWChld \n... \nACTIVATE DIALOG oDlg NOWAIT VALID (oWChld:End(),.T.) \nACTIVATE WINDOW oWChld ; \nON INIT (oDlg:Move(0,0)) ; \nON RESIZE (oWChld:SetSize(oDlg:nWidth+nW,oDlg:nHeight+nH)) ; \nVALID (oWChld:=Nil,Close_Dlg(),.T.)','',0,'AIA=','k7atx18u',1,0,'',694,0,0),(37817,8174,3,1157,0,'198.54.202.210',1189779852,1,0,1,1,1,0,'','','Antonio,\n\nSorry, it is totally data driven, resources cannot help me at all.\n\nRegards\nAlex','',0,'AIA=','1r1uyjbl',1,0,'',1157,0,0),(37818,8186,20,924,0,'81.208.36.89',1189781059,1,0,1,1,1,0,'','errorblock..','Ancora io,\nmi succede una cosa strana sia in Fwin che in harbour, in pratica non riesco a intercettare l\'errore. \nEcco l\'esempio:\n\nbsave := ERRORBLOCK( { |x| BREAK(x)} )\nBEGIN SEQUENCE\n _prova:=prngetname()\n msgalert(\"ok !\")\n RECOVER USING objError\n  msgalert(\"errore !\")\n END\nERRORBLOCK(bsave)  // Restore handler\n*\n* fine\n\nMi aspetterei che mi risponda Ok !  oppure  errore !\n\nInvece mi da l\'errore nella istruzione prngetname(), poiche\' sul notebook  (del mio cliente) in questione ci sono installate 2 stampanti ma sono in rete ma il notebook momentaneamente  non e\' in rete in quanto scollegato.\n\nPer risolvere il problema ho dovuto  installare una stampante locale e porla come predefinita, solo cosi funziona. Se voglio sapere la lista delle stampanti installate con il comando PRINTERSETUP() mi da errore brutale.\n\nAny idea ?\nRomeo/Zingoni\n*','',0,'AIA=','1hf60sxt',1,0,'',924,0,0),(37819,8176,4,2,0,'87.218.146.213',1189781090,1,0,1,1,1,1,'','','Darrell,\n\nuse this flag for link.exe: /force:MULTIPLE','',0,'AIA=','1papt5qf',1,0,'',2,0,0),(37820,8174,3,2,0,'87.218.146.213',1189781258,1,0,1,1,1,1,'','','Alex,\n\nI guess that you have found this problem when you added the themes support, right ?\n\nHow was it working before ?','',0,'AIA=','83m8smsf',1,0,'',2,0,0),(37821,8182,6,2,0,'87.218.146.213',1189781317,1,0,1,1,1,1,'','','Julio,\n\nMe refiero a modificar source\\classes\\rpreview.prg','',0,'AIA=','3ox7me0v',1,0,'',2,0,0),(37822,8100,6,854,0,'189.131.29.161',1189781559,1,0,1,1,1,0,'','','Antonio, gracias.','',0,'AIA=','2qxqk9q0',1,0,'',854,0,0),(37823,8145,6,935,0,'200.62.78.108',1189781686,1,0,1,1,1,1,'','es tu ventana','Hola,\n\nCuando en el ejemplo me refiero a oWnd tienes que sustituirlo por el nombre de tu ventana principal, revisa por ahi a lo mejor ese es el problema\n\n\nRamon Paredes','',0,'AIA=','26p7i8qi',1,0,'',935,0,0),(37824,8185,6,221,0,'200.109.96.250',1189781776,1,0,1,1,1,1,'','','A MI ME PARECE, CLARO QUE MI OPINION NO ES VALIDA PARA NADA, QUE PODRIAN SER LA DIFERENCIA EN PIXEL DE LA RESOLUCION DE LA PANTALLA','',0,'AIA=','1x9ptao0',1,0,'',221,0,0),(37825,7330,6,294,0,'201.254.182.220',1189781831,1,0,1,1,1,1,'','','Gracias Verhoven, excelente!!!','',0,'AIA=','2r8ohh3b',1,0,'',294,0,0),(37826,8174,3,2,0,'87.218.146.213',1189781899,1,0,1,1,1,1,'','','Alex,\n\nIn source\\classes\\folder.prg you find this twice:\n[code:169p7agg]\n            if Empty&#40; oDlg&#58;oBrush&#58;hBitmap &#41;\n               oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n            endif   \n[/code:169p7agg]\nComment if and endif so the codeblock is always assigned','',0,'AIA=','169p7agg',1,0,'',2,0,0),(37827,8182,6,127,0,'81.35.39.247',1189782756,1,0,1,1,1,0,'','','Yo no lo he hecho nunca eso a ver si he entendido.\n\nModifico source\\classes\\rpreview.prg y lo enlazo con mi programa como un módulo mas o hay que hacer alguna otra cosa ?\n\nNunca he modificado nada de lo que viene en el directorio C:\\FWH\nYo miro la ayuda Fwcmd y escribo como viene ahí, no uso recursos, uso @ nRow, nCol ... si tengo alguna duda entro en FWH\\samples y busco algo parecido a lo mío y lo copio.\nSi necesito usar algún método o dato, miro la ayuda de fwclass y lo hago como viene allí. Hasta ahora me ha funcionado casi todo perfectamente.\n\nGracias y un saludo.','',0,'AIA=','1qoe8ave',1,0,'',127,0,0),(37828,8174,3,1157,0,'196.25.255.214',1189784092,1,0,1,1,1,0,'','','Antonio\n\nI have taken the liberty of sending you my source code.\n\nThere are 4 #defines at the top of the file:\n\n#define UGLY\n//#define HANGS\n//#define GROUP\n#define FIX\n\nIf UGLY is defined then the tab is not a nice colour and the edges are obscured.\n\nIf HANGS is defined the Folder:Move will hang.\n\nIf GROUP is defined then you can see the problems with this.\n\nIf FIX is defined then your last fix is applied, but it has it\'s own problems as you may see.\n\nYou must compile with the manifest (I guess you know:).\n\nRegards\nAlex','',0,'AIA=','2s5of9bz',1,0,'',1157,0,0),(37829,8176,4,234,0,'24.187.222.42',1189784600,1,0,1,1,1,1,'','','Antonio,\nI am getting a fatal application error.','',0,'AIA=','2as7kpgy',1,0,'',234,0,0),(37830,8102,6,73,0,'200.23.18.132',1189785492,1,0,1,1,1,0,'','','Alfredo efectivamente sucede con cualquier aplicacion externa a fwh, yo he probado en dialogs y windows con imagen de fondo (bmp y jpg) con degradado, con colores, y el comportamiento es exactamente el mismo, entiendo que es un bug muy desagradable, a ver si por ahi entre todos coperamos para salir adelante.\nsalu2\npaco','',0,'AIA=','481uhdnn',1,0,'',73,0,0),(37831,8185,6,72,0,'189.146.242.105',1189786365,1,0,1,1,1,0,'','','Hay un efecto que aparece cuando se cambia de tema, con esto se ajusta la diferencia (no es perfecto, pero no se ve mal).\n\n   nW:=IF(IsWinNT(), 8, <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->\n   nH:=IF(IsWinNT(),33,27)\n   oWChld:bGotFocus :={|| SetIdxRec()}\n   ACTIVATE DIALOG oDlg NOWAIT VALID (oWChld:End(),.T.)\n   ACTIVATE WINDOW oWChld ;\n      ON INIT   oDlg:Move(0,0) ;\n      ON RESIZE oWChld:SetSize(oDlg:nWidth+nW,oDlg:nHeight+nH,.T.) ;\n      VALID     Cierra_Dlg(oItem,oBtnB,aX,cHelp)','',0,'AIA=','12bnpm3c',1,0,'',72,0,0),(37832,8185,6,694,0,'200.146.115.216',1189789174,1,0,1,1,1,1,'','','Gracias amigo!','',0,'AIA=','1wtucpyn',1,0,'',694,0,0),(37833,8102,6,496,0,'200.107.36.176',1189789284,1,0,1,1,1,0,'','','He probado el asunto en 3 equipos con características diferentes: \n\n1) Pentium III de 500 Mhz con 448 MB en RAM y tarjeta de video AGP Matrox de 32 MB\n\n2) AMD Athlon XP 2000+, 512 MB en RAM y tarjeta de Video AGP ATI Radeon 9200 de 128 MB\n\n3) AMD Athlon 64 3500+, 512 MB en RAM con tarjeta de Video PCI Express ATI Radeon X300 de 256 MB\n\nEl comportamiento es el mismo en los equipos 1 y 2, hay gran consumo de recursos al mover sean diálogos propios o una aplicación externa encima de nuestra ventana FW. Si movemos toda nuestra aplicación sobre el escritorio llega a consumir hasta el 100% de los recursos.\n\nPero en el equipo 3 no ocurre nada de lo anterior, si movemos cualquier diálogo no llega a consumir más de 2%. Si movemos la ventana entera no llega a consumir el 20%, ¡aquí todo va como la seda!. Será que el puerto PCI Expres tiene algo que ver, al ser más eficiente?\n\nFinalmente probé en modo seguro (a prueba de fallos) donde sólo se carga los controladores básicos de video (VGA), y.... Horror!!!!. En los tres equipos el resultado es peor, un desastre.\n\nLa constante en todas las pruebas es que las aplicaciones FW consumen por lo menos un 30% más de recursos que otras, produciéndose por tanto una lentitud en el refresco de los controles mucho más apreciable que en otras aplicaciones. Entonces creo que se debe investigar en qué parte del corazón de FW hace que el requerimiento de recursos sea grande.\n\nUna solución (temporal) para evitar ese efecto horrible es desactivar la casilla \"Mostrar el contenido de la ventana mientras de arrastra\" en las propiedades del escritorio. Para evitar que se repinte constantemente el control.\n\nOtra solución, que depende del cliente, sería la de recomendarle un equipo como el 3 de mi prueba o con mejores características, que hoy por hoy ya son la constante.\n\nUn saludo\n\nMarcelo Jingo','',0,'AIA=','1pv7p5o0',1,0,'',496,0,0),(37834,8102,6,316,0,'87.218.186.133',1189790796,1,0,1,1,1,0,'','','Marcelo,\n\nVienen muy bien tus pruebas, te cuento que es *muy* significativo que otras aplicaciones se estan ejecutando en el ordenador, y más aún, que la ventana que se mueva por encima no sea la propia, por ejemplo la calculadora o la ventana de propiedades del equipo o cualquier otra. Eso hace que las ventanas de nuestra aplicaion se pinten de manera desincronizada y es cuando muestran los fallos.\nNo he notado fallos cuando la ventana superpuesta en una hija de la aplicacion, ni me ha dado problemas al moverla completamente.\n\nRespecto de limitar el mercado de mis aplicaciones a Athlones 3200+ con tarjetas gráficas y cores duo... completamente en desacuerdo. No se me ocurriría ni siquiera plantearle a un cliente que se compre una muleta porque estoy rengo.\n\nLas soluciones tampoco estan ajustando la configuracion de windows para que no se dibujen las ventanas mientras se mueven, tal vez mejore la situación, pero es que me parece que hacer esos apaños por algo que no debería existir ni siquiera debería plantearse y es buscar parches y no soluciones.\n\nTe aseguro que cuando lo encontremos el error va a ser una estupidez, nos va a dar vergüenza no haberlo visto antes, asi es que prefiero seguir dando con los cuernos contra la pared antes que bajar los brazos buscando rodeos.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','3eoft0qn',1,0,'',316,0,0),(37835,8176,4,2,0,'87.218.146.213',1189791013,1,0,1,1,1,1,'','','Darrel,\n\nWhat FWPPC build are you using ? Please tell me the dates of the libraries, thanks','',0,'AIA=','33dzg6xj',1,0,'',2,0,0),(37836,8173,6,127,0,'81.35.39.247',1189791065,1,0,1,1,1,0,'','','Yo tengo en todos mis clientes Linux con Mandriva 2006 y funcionan perfectamente los programas de FiveWin.\n\nMiconfiguración de Samba es:\n\n[global]\n\n# 1. Server Naming Options:\n# workgroup = NT-Domain-Name or Workgroup-Name\n   workgroup = GRUPO\n\n# netbios name is the name you will see in \"Network Neighbourhood\",\n# but defaults to your hostname\n   netbios name = SERVIDOR\n\n# server string is the equivalent of the NT Description field\n   server string = Servidor Samba %v\n\n[GESTION]\n   comment = Public Stuff\n   path = /mnt/gestion\n   public = yes\n   writable = yes\n\nEsto en el Linux comparte el directorio /mnt/gestion y ahí deberán estar las aplicaciones de la forma:\n\n/mnt/gestion/Aplicaci\n\nConsiderando que dentro de Aplicaci esta la aplicación y sus Dbfs\n\n       Aplicaci/programa.exe\n       Aplicaci/clientes.dbf \n\nO si tienes SET DEFAULT TO \"DATOS\"\n\n       Aplicaci/programa.exe\n       Aplicaci/DATOS/clientes.dbf \n\nEjecutar desde Linux con privilegios de usuario \"root\"\n\nroot@SERVIDOR~]#chmod -R 777 /mnt/gestion &lt;Intro&gt;\n\n( root@SERVIDOR~]# ) es el prompt de Linux\n\nPara establecer los permisos\n\n y en windows hay que conectar a unidad de red con el comando:\n\nC:\\&gt;net use s: \\\\SERVIDOR\\GESTION\n\nDesde el ordenador windows deberás ver la unidad \"S\" de la forma:\n\nS:\\Aplicaci            siendo Aplicaci una carpeta de la unidad \"S\"\n\nY dentro de Aplicai estará el ejecutable\n\nSaludos','',0,'','oxfg3189',1,0,'',127,0,0),(37837,8182,6,2,0,'87.218.146.213',1189791235,1,0,1,1,1,1,'','','Julio,\n\n&gt;\nModifico source\\classes\\rpreview.prg y lo enlazo con mi programa como un módulo mas o hay que hacer alguna otra cosa ? \n&gt;\n\nSí, es hacerlo como has dicho <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','emyqmjls',1,0,'',2,0,0),(37838,8187,6,2,0,'87.218.146.213',1189791508,1,0,1,1,1,1,'','Test de pintado - Carlos','Usando este ejemplo, con Vista 32, no somos capaces de que aparezca un error de pintado. Podeis intentar conseguir el error con este ejemplo ? gracias\n[code:iqheb0yu]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd COLOR &quot;W/G&quot;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:iqheb0yu]','',0,'AIA=','iqheb0yu',1,0,'',2,0,0),(37839,8102,6,2,0,'87.218.146.213',1189792526,1,0,1,1,1,1,'','','Usando este ejemplo, con Vista 32, no somos capaces de que aparezca un error de pintado. Podeis intentar conseguir el error con este ejemplo ? gracias\n[code:2gfevq0f]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd COLOR &quot;W/G&quot;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:2gfevq0f]','',0,'AIA=','2gfevq0f',1,0,'',2,0,0),(37840,8176,4,234,0,'24.187.222.42',1189792646,1,0,1,1,1,1,'','','fivece.lib 08/26/2007 @ 23:24\nfivecec.lib 08/26/2007 @ 23:20','',0,'AIA=','2sm9xmkm',1,0,'',234,0,0),(37841,8176,4,2,0,'87.218.146.213',1189793750,1,0,1,1,1,1,'','','Darrell,\n\nThis Test.prg works fine here with no GPFs. Please try it, thanks:\n[code:3qwsd8mt]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; IsInternet&#40;&#41; &#41;\n\nreturn nil\n\nFunction IsInternet&#40;&#41; \nWSAStartup&#40;&#41; \nRETURN GetHostByName&#40; &quot;www&#46;microsoft&#46;com&quot; &#41; != &quot;0&#46;0&#46;0&#46;0&quot;\n[/code:3qwsd8mt]','',0,'AIA=','3qwsd8mt',1,0,'',2,0,0),(37842,8187,6,496,0,'200.107.36.176',1189793819,1,0,1,1,1,0,'','','No tengo Windows Vista  , pero con una ventana sencilla aquí tampoco da problemas. Parece que surge cuando insertamos un control FW con bitmaps. Pruébale colocando un buttonbar con unos cuantos botones incluida la imagen de cada boton, o una imagen de de fondo.\n\nUn saludo\n\nMarcelo Jingo','',0,'AIA=','1zx18x26',1,0,'',496,0,0),(37843,8174,3,2,0,'87.218.146.213',1189794523,1,0,1,1,1,1,'','','Alex,\n\nHere it is not hanging using Vista 32.\n\nhave you tried to create the controls on top of groups as childs of them ?\n\n@ ..., ... OF oGroup','',0,'AIA=','uisblvcw',1,0,'',2,0,0),(37844,8187,6,2,0,'87.218.146.213',1189794845,1,0,1,1,1,1,'','','Marcelo,\n\nusando samples\\Fwborl.prg tampoco conseguimos que falle','',0,'AIA=','3jg2qkzk',1,0,'',2,0,0),(37845,8188,6,221,0,'190.78.48.152',1189795880,1,0,1,1,1,1,'','antonio ENCRYPT / DECRYPT','Saludos uso esta funcion de FW 2.3, como recien estoy pasando a 32 con el fwh 2.4 y xharbour 92 me topo con que esta funcion ya no es la misma por lo que no logro desencrintar correctamente la data y son unas 15mil dbf, bueno el punto es que no tendria problemas si dentro de fw 2.3 estuviera el fuente en .C lo agrego a verce y teoricamente solucionado, pero tampoco lo consiguo, no se si antonio me puede decir el nombre exacto de este fuente o pasarmelo, gracias de antemano','',0,'AIA=','4hjae50g',1,0,'',221,0,0),(37846,8102,6,774,0,'164.77.169.91',1189796593,1,0,1,1,1,1,'','','ANTONIO NO LOGRO REPRODUCIR ERROR CON TU EJEMPLO...\n\nPERO PRUEBALO ASI.. CON UN BRUSH... \n\n\n#include \"FiveWin.ch\" \n\nfunction Main() \n\nlocal oWnd \nLocal oBrush\nDEFINE BRUSH oBrush FILE \"bitmap\\fondo.bmp\"\n\nDEFINE WINDOW oWnd BRUSH oBrush\n\nACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil \n\nte da error alla...\n por ami me queda asi\n\n\n\n[img][url=http&#58;//imageshack&#46;us:3d5g094u][img]http://img407.imageshack.us/img407/4260/dibujoba6.jpg[/img][/url:3d5g094u][/img]\n\nfavor confirmalo al foro::  si te sucede este error o NO...','',0,'GA==','3d5g094u',1,0,'',774,0,0),(37847,7972,3,303,0,'72.199.41.171',1189796844,1,0,1,1,1,0,'','','Tim,\n\n&gt;With error.log emails, there are no databases open. \n\nWhat I would try is creating a small test app that (before opening any databases) sends a test email, then attach to the ADS database then close it, then send the same test email.\n\nJames','',0,'GA==','2g2g65d0',1,0,'',303,0,0),(37848,8102,6,316,0,'87.218.186.133',1189796873,1,0,1,1,1,0,'','','Antonio,\n\nefectivamente tu código no falla. Lo estoy probando en el portatil (XP). \nDe esto que se deduce?\n\nNo he probado lo del bitmap. Luego de cenar me pongo. Voy a estar el el messenger como carlosantoniomora arroba yahoo punto es.\n\nCarlos','',0,'GA==','2n786u4a',1,0,'',316,0,0),(37849,8188,6,221,0,'190.78.48.152',1189797076,1,0,1,1,1,1,'','','la funcion se llama ENCRIPT de tamaño 751, la libreria es FIVEC de 469.537 bytes del 30-10-2002','',0,'GA==','1p3no8as',1,0,'',221,0,0),(37850,8102,6,940,0,'189.175.204.170',1189798063,1,0,1,1,1,1,'','','Hola amigos,\n\nme retracto a lo que comente en un mensaje anterior,\n\ndecia que solo es en algunas maquinas,\n\nmentira, \n\nes en cualquier tipo de pc,  la mia es una tochiba,\n\ny el error se reproduce en una windows con brush,\n\n\nsaludos..','',0,'GA==','326rlypp',1,0,'',940,0,0),(37851,8102,6,72,0,'189.146.242.105',1189798068,1,0,1,1,1,0,'','','Renuncio, me cambio a Visual Basic...','',0,'GA==','1tukq5q1',1,0,'',72,0,0),(37852,8177,6,123,0,'83.45.118.169',1189798111,1,0,1,1,1,1,'','','Marcelo,\n\nPara conseguir un \'browse\' a lo xBase debes tener en cuenta:\n\na. Que el proveedor que utilizas sea capaz de manejar cursores dinámicos.\n\nb. Que abras un recordset cliente y dinámico.\n\nNo obstante lo anterior, abrir un recordset de esas características, cuando hay varios terminales \'atacando\' al mismo \'browse\' puede que el servidor se atasque.\n\nSi necesitas más información puedes mirar la ayuda de ADO y tambien puedes echar un vistazo a este artículo [url:3o7znfs4]http&#58;//www&#46;capelblog&#46;com/?p=58[/url:3o7znfs4]','',0,'EA==','3o7znfs4',1,0,'',123,0,0),(37853,8102,6,940,0,'189.175.204.170',1189798298,1,0,1,1,1,1,'','','Jeje Alfredo,  no es para tanto amigo,,\n\nafortunadamente existen otros lenguajes,\n\nalguna solucion tiene que existir, \n\nno hay que desesperarnos,,\n\nfivewin nos ha dado mucho,\n\nsaludos..','',0,'EA==','2cmo07bz',1,0,'',940,0,0),(37854,8145,6,1072,0,'190.82.34.64',1189801593,1,0,1,1,1,0,'','Re: es tu ventana','Amigo:\n\nLa verdad, sigue el mismo error, creo que desistire de colocar una imagen como fondo.\n\nSaludos,\nAntonio\n\n[quote=&quot;Ramon Paredes&quot;:23kb4b2u]Hola,\n\nCuando en el ejemplo me refiero a oWnd tienes que sustituirlo por el nombre de tu ventana principal, revisa por ahi a lo mejor ese es el problema\n\n\nRamon Paredes[/quote:23kb4b2u]','',0,'gA==','23kb4b2u',1,0,'',1072,0,0),(37855,8189,6,1072,0,'190.82.34.64',1189801697,1,0,1,1,1,0,'','Manual de Pelles C','Amigos:\n\nAlguien sabe de donde puedo bajar un manual de pelles C en español.,\n\nSaludos,\nAntonio','',0,'gA==','2aiijnxp',1,0,'',1072,0,0),(37856,8102,6,73,0,'200.23.18.132',1189805187,1,0,1,1,1,0,'','','recordando hace tiempo tuve este problema de pintado, aqui lo que en ese momento publique,\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4910&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\nsalu2\npaco','',0,'gA==','2ib80to3',1,0,'',73,0,0),(37857,8188,6,2,0,'87.218.146.213',1189805216,1,0,1,1,1,1,'','','Prueba a enlazar este módulo:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/55772224/ENCRIPT.zip.html\">http://rapidshare.com/files/55772224/ENCRIPT.zip.html</a><!-- m -->','',0,'gA==','1mrcsu95',1,0,'',2,0,0),(37858,8102,6,2,0,'87.218.146.213',1189806175,1,0,1,1,1,1,'','','Podriais hacer la siguiente prueba ? Aqui no conseguimos hacerlo fallar\n\nEn la clase TWindow Method paint():\n[code:1zov89d3]\nstatic lPainting &#58;= &#46;f&#46;\n\nif ! lPainting\n   lPainting = &#46;T&#46;\nelse\n   MsgBeep&#40;&#41;\nendif\n\n&#46;&#46;&#46;\nif lPainting\n   lPainting = &#46;F&#46;\nendif\n[/code:1zov89d3]\nLa idea es comprobar si los mensajes WM_PAINT pueden llegar mientras aún se está procesando uno anterior','',0,'AIA=','1zov89d3',1,0,'',2,0,0),(37859,8102,6,316,0,'87.218.187.221',1189806443,1,0,1,1,1,0,'','','Bueno, tal como habia anticipado, es una tontería. Los amigos de moc.eviflanac me dieron la solución:\n\"Hola amigos\n\nLa solucion es devolver un 0 en el metodo display. \n\nDuerman tranquilos\n\nmenos mal. Mi agradecimiento y reconocimiento. Juntos vamos mejor.\n\nUn saludo,\n\nCarlos','',0,'AIA=','gnmgmmvp',1,0,'',316,0,0),(37860,8102,6,2,0,'87.218.146.157',1189807062,1,0,1,1,1,1,'','','Bueno, hemos localizado un ordenador en el que falla.\n\nLa prueba anterior no llega a sonar, luego los mensajes WM_PAINT no llegan recursivamente.\n\nSi se desactiva el doble buffer, entonces casi deja de fallar. Lo que esté fallando se incrementa al usar el doble buffer.','',0,'AIA=','rjn16w4t',1,0,'',2,0,0),(37861,7835,6,171,0,'71.233.232.238',1189807502,1,0,1,1,1,0,'','','Fernando,\n\nAlguna noticia con relacion a ViaUpdate?\n\nSaludos,\n\nGeorge','',0,'AIA=','xc2rhejs',1,0,'',171,0,0),(37862,8102,6,2,0,'87.218.146.157',1189807668,1,0,1,1,1,1,'','','Carlos,\n\nEn el problema del brush en la ventana principal, devolver un cero no lo soluciona','',0,'AIA=','1a7ed3vf',1,0,'',2,0,0),(37863,8173,6,875,0,'64.76.108.182',1189808266,1,0,1,1,1,0,'','','Gracias  Julio lo probare  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nJaime','',0,'AIA=','1fv5llf5',1,0,'',875,0,0),(37864,8102,6,72,0,'189.146.242.105',1189808923,1,0,1,1,1,0,'','','En realidad no me preocupa, he vivido con eso mas de cinco años. Si algun usuario quejoso me reclama le digo que es problema de su equipo (si le gusta que lo use y si no que busque otra opción).\n\nPero sería bueno solucionarlo.','',0,'AIA=','3diwm257',1,0,'',72,0,0),(37865,8102,6,2,0,'87.218.146.54',1189809394,1,0,1,1,1,1,'','','Alfredo,\n\nNos gustaría solucionarlo y ojalá lo consigamos. De todas formas parece que está muy relacionado con la versión de Windows y con la velocidad del ordenador. \n\nEn Vista 32 con un Core Duo no hay forma de hacerlo fallar. Y es el mismo EXE que falla en otro ordenador con XP y más lento.','',0,'AIA=','37861rxx',1,0,'',2,0,0),(37866,8102,6,73,0,'200.23.18.132',1189809767,1,0,1,1,1,0,'','','Antonio,\nprobando el cambio de la clase twindow en el metodo paint persiste el problema\n\n[url=http&#58;//imageshack&#46;us:f6wk7sl2][img:f6wk7sl2]http&#58;//img297&#46;imageshack&#46;us/img297/6015/twinby1&#46;jpg[/img:f6wk7sl2][/url:f6wk7sl2]\n\nsalu2\npaco','',0,'GA==','f6wk7sl2',1,0,'',73,0,0),(37867,8102,6,2,0,'87.218.146.54',1189810102,1,0,1,1,1,1,'','','Comparando Vista con XP, resulta que en Vista no nos envian mensajes WM_PAINT cuando movemos otra ventana por encima de la nuestra. Es algo que han arreglado en Vista: detectan si no ha cambiado la imagen de la ventana y se ahorran de enviar y procesar mensajes WM_PAINT.\n\nEn cambio en XP, si nos envian mensajes WM_PAINT cuando movemos otra ventana por encima.','',0,'GA==','pvgmmemi',1,0,'',2,0,0),(37868,8187,6,496,0,'200.107.36.176',1189829415,1,0,1,1,1,0,'','','Probé el samples\\Fwbrl.prg, y efectivamente no se presenta el problema y la aplicación va muy bien casi sin consumir recursos al mover la ventana. Todo va de perlas.\n\nAsí que sólo por probar le agregé un recurso .RC de los que uso en mis aplicaciones compilándolo junto con el Fwbrl.prg. En el código no hice ninguna llamada que use algún bmp de este RC . Lo ejecuté y  ¡Apareció el error!. \n\nEntonces dedusco que el problema está en la forma de usar los recursos, a lo mejor, como en mi caso lo estamos llenando con bmps muy grandes, haciendo que en el executable se carge todo volviéndolo pesado. Al menos eso parece. \n\nAlgún buen consejo para usar los recursos,  es mejor que estén compilados con el exe o en dlls.....?\n\nVean la imagen de la prueba\n\n[url=http&#58;//img508&#46;imageshack&#46;us/my&#46;php?image=pruebaimgag1&#46;jpg:gqtq26pe][img:gqtq26pe]http&#58;//img508&#46;imageshack&#46;us/img508/3632/pruebaimgag1&#46;th&#46;jpg[/img:gqtq26pe][/url:gqtq26pe]\n\nSaludos\n\nMarcelo Jingo','',0,'GA==','gqtq26pe',1,0,'',496,0,0),(37869,8177,6,496,0,'200.107.36.176',1189830811,1,0,1,1,1,0,'','','Gracias por tu interés José Luis.\n\nSeguiré buscando la forma..., creo que en este punto voy a tener que hacer consultas SQL independientes usando el objeto command para comparar entre el valor actual del field del recordset y el que me entregue la consulta.... seguiré probando\n\n\nUn saludo\n\nMarcelo Jingo','',0,'GA==','3f5uz78d',1,0,'',496,0,0),(37870,8190,6,533,0,'88.8.31.186',1189835875,1,0,1,1,1,0,'','Una de DLL','Hola foro!!, aqui dando la lata. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n Tengo una pequeña aplicación finalizada, pero uso varios archivos bmp como fondos y están sueltos, me gustaría que el usuario no los tocara, y se me ha ocurrido, incluirlos en una dll, ya que creo que por el tamaño o no se que no puedo incluirlo en mi fichero .res. Me podeis orientar en como generar la dll, y la modificacion en código de los brush.\n\nMuchas Gracias de Antemano.','',0,'GA==','r10qqkei',1,0,'',533,0,0),(37871,8187,6,2,0,'87.218.146.54',1189841457,1,0,1,1,1,1,'','','Marcelo,\n\nQue hay en el RC ?','',0,'GA==','wwhc2f60',1,0,'',2,0,0),(37872,8190,6,2,0,'87.218.146.54',1189841608,1,0,1,1,1,1,'','','Mike,\n\nEn el RC:\n\nUNO     BITMAP \"uno.bmp\"\nOTRO   BITMAP \"otro.bmp\"\n\nen el código:\n\nDEFINE BRUSH oBrush RESOURCE \"UNO\"','',0,'GA==','3v52pmze',1,0,'',2,0,0),(37873,8180,3,2,0,'87.218.146.54',1189842178,1,0,1,1,1,1,'','','Michel,\n\nYou should use the most recent xHarbour builder. \n\nDownload xHarbour builder demo to try it.','',0,'GA==','3nr9v8nz',1,0,'',2,0,0),(37874,8102,6,2,0,'87.218.146.54',1189842669,1,0,1,1,1,1,'','','Posiblemente estamos tratando dos problemas distintos:\n\nHemos modificado FWH para que siempre devuelva cero al tratar el mensaje WM_PAINT. Eso debería arreglar el problema de pintado de los controles pero no soluciona el problema del pintado del brush de la ventana principal','',0,'GA==','27ayu9g4',1,0,'',2,0,0),(37875,8102,6,2,0,'87.218.146.54',1189843117,1,0,1,1,1,1,'','','[b:2bfp7bo7]PROBLEMA SOLUCIONADO:[/b:2bfp7bo7]\n\nEfectivamente Paco tenía razón y faltaba ese cero. La cuestión es donde ponerlo correctamente:\n\nEn la clase TWindow:\n\n   METHOD EndPaint() INLINE ::nPaintCount--,;\n                     EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0\n\nObserven [color=red:2bfp7bo7]el cero al final[/color:2bfp7bo7]. Problema del brush solucionado! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Qg==','2bfp7bo7',1,0,'',2,0,0),(37876,8187,6,2,0,'87.218.146.54',1189843168,1,0,1,1,1,1,'','','[b:63d00sad]PROBLEMA SOLUCIONADO:[/b:63d00sad]\n\nEfectivamente Paco tenía razón y faltaba ese cero. La cuestión es donde ponerlo correctamente:\n\nEn la clase TWindow:\n\n   METHOD EndPaint() INLINE ::nPaintCount--,;\n                     EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0\n\nObserven [color=red:63d00sad]el cero al final[/color:63d00sad]. Problema del brush solucionado! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Qg==','63d00sad',1,0,'',2,0,0),(37877,8191,3,2,0,'87.218.146.54',1189843519,1,0,1,1,1,1,'','Important fix','In Class TWindow Method EndPaint(), add this final zero:\n\nMETHOD EndPaint() INLINE ::nPaintCount--,; \nEndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0 \n\nIt solves painting errors!','',0,'Qg==','2znyatgz',1,0,'',2,0,0),(37878,8190,6,533,0,'88.8.31.186',1189847553,1,0,1,1,1,0,'','','Gracias Antonio, el problema es que yo uso ficheros .res, no tengo ningun .rc y no se porque cuando meto algun bitmap un poco mas grande de la cuenta no me deja linkar el fichero .res. Con lo cual por eso al principio usaba las imagenes desde ficheros y ahora es cuando me ha surgido la duda de incrustarlos en una dll. \n\n    Tengo brush pequeños, que esos si los tengo en el .res y los utilizo como tu bien me indicas. (define brush obrush resource. . .)\n\n   Para el fichero .res antes usaba Microsoft C++ pero no podia editar los bitmaps que tuvieran mas de 256 colores, ahora la verdad estoy probando Pelles C y me parece muy bueno por ahora. \n\nMuchas Gracias.\n\n[/code]','',0,'','ge6iwiar',1,0,'',533,0,0),(37879,8190,6,2,0,'87.218.146.238',1189848148,1,0,1,1,1,1,'','','Mike,\n\nAbre el RES con el Borland resources workshop, sálvalo como RC, añade las líneas que te he indicado, y vuelve a salvarlo como RES, a ver si así te sirve','',0,'','2ybbg805',1,0,'',2,0,0),(37880,8191,3,6,0,'87.1.232.191',1189850051,1,0,1,1,1,1,'','Re: Important fix','Is the current release updated with that fix?\n\nEMG','',0,'','17z7aww3',1,0,'',6,0,0),(37881,8191,3,2,0,'87.218.146.238',1189850143,1,0,1,1,1,1,'','','Enrico,\n\nNo, it isn\'t.','',0,'','2krekjvs',1,0,'',2,0,0),(37882,8191,3,2,0,'87.218.146.238',1189850929,1,0,1,1,1,1,'','','Enrico,\n\nWe have uploaded FWH 7.09 again, so now the fix is included into it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1bwbhq4r',1,0,'',2,0,0),(37883,8191,3,1146,0,'81.44.158.231',1189852361,1,0,1,1,1,0,'','','Antonio,\n\nDoes it include other pending fixes?. \n\nBest regards,','',0,'','3s9wh7g2',1,0,'',1146,0,0),(37884,8191,3,2,0,'87.218.146.238',1189852766,1,0,1,1,1,1,'','','Moises,\n\nNo, not yet <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2mj9o41j',1,0,'',2,0,0),(37885,8187,6,316,0,'87.218.187.221',1189853270,1,0,1,1,1,0,'','','Buenos días por la lista,\n\nal final era una cosa sencilla, tal como habia dicho. Para colmo la solución siempre estuvo ahí, porque en mis pruebas tengo un TXBrowse que siempre se pintaba bien, pero miraba en el código de la clase y siempre buscaba algo en el método Paint pero (lamentablemente) nunca miré en el Display, donde ya estaba la respuesta. Es un pelín frustrante  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> . Pero sirve para aprender, ya casi puedo recitar los mensajes de windows de memoria y leer la MSDN en inglés en voz alta. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nUn saludo,\n\nCarlos.','',0,'','c33q1axs',1,0,'',316,0,0),(37886,7835,6,519,0,'83.32.148.225',1189856406,1,0,1,1,1,0,'','','Ferrnando, estamos esperando novedades  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , le falta mucho  ?\n\n\n  un saludo','',0,'','2t6ijd9k',1,0,'',519,0,0),(37887,8102,6,774,0,'164.77.169.91',1189860223,1,0,1,1,1,1,'','','ANTONIO\n\nHemos modificado FWH para que siempre devuelva cero al tratar el mensaje WM_PAINT. Eso debería arreglar el problema de pintado de los controles\n\na q te refieres con lo anterior, lo del agregar un CERO a EndPaint  como indicaste soluciono el problema,, aunque se genera un pequeño retardo en el pintado,, es como si ese cero agregado relentizara el pintado,, pero no falla ..... \n\na parte de ese CERO hay algun cambio mas ???? como dijiste hemos modificado FWH.... o solo te referias el agregar el cero como indicaste--\n\n\nGRACIAS','',0,'','uxef2tis',1,0,'',774,0,0),(37888,8189,6,400,0,'201.92.36.3',1189860367,1,0,1,1,1,1,'','','Ola amigo....\n\nMire aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/index.htm\">http://www.smorgasbordet.com/pellesc/index.htm</a><!-- m -->','',0,'','3qdrx47y',1,0,'',400,0,0),(37889,8192,3,694,0,'201.86.91.91',1189860616,1,0,1,1,1,1,'','TWBROWSE - text + bitmap (por celula)','TWBROWSE - text + bitmap (por celula) is possible?\n\n\nAoki','',0,'','22v5uda2',1,0,'',694,0,0),(37890,8193,6,694,0,'201.86.91.91',1189860784,1,0,1,1,1,1,'','twbrowse - texto + bitmap por celula!','Amigos, preciso muito colocar por celula na twbrowse texto+bitmap\n\n\nAlguem sabe como fazer isso ou um browse que o faça?\n\n\nGrato\n\nAoki','',0,'','owyu1ery',1,0,'',694,0,0),(37891,8102,6,2,0,'87.218.146.238',1189862849,1,0,1,1,1,1,'','','Solo hay que añadir ese cero al final en EndPaint()','',0,'','13iv8f55',1,0,'',2,0,0),(37892,8187,6,496,0,'200.107.36.176',1189865329,1,0,1,1,1,0,'','','Es verdad, realicé el cambio como dice Antonio y le adjunte al Fwbrl.prg compilado con el recurso mencionado, y desapareció el problema.  Lo mismo hice a mis aplicaciones y ya no quedan esas horribles líneas. Lo que si noté es que se mantiene una lentitud en el repintado; pero que insisto creo que es debido a mi recurso en donde tengo muchos bmps, pero eso ya es otro asunto.\n\nGracias a todos por haber solucionado este problema estético.\n\nUn saludo\n\nMarcelo Jingo','',0,'','1miyqfbj',1,0,'',496,0,0),(37893,8189,6,1072,0,'201.214.53.218',1189867501,1,0,1,1,1,0,'','','Muchas Gracias Amigo.\n\nSaludos,\nAntonio\n\n\n\n[quote=&quot;Ale SB&quot;:2h1slfdm]Ola amigo....\n\nMire aki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/index.htm\">http://www.smorgasbordet.com/pellesc/index.htm</a><!-- m -->[/quote:2h1slfdm]','',0,'gA==','2h1slfdm',1,0,'',1072,0,0),(37895,8168,6,1106,0,'190.64.128.213',1189870264,1,0,1,1,1,0,'','','Gracias.. a ambos.\n\nFunciono pero el pintado es feo.\n\nTengo una BD de 147 campos que \nmuestro algunos y otros no. \n(De acuerdo a un array con los campos que necesito ver)\n\nVere como logro arreglarlo.\n\nSaludos\n\nRuben Fernandez.\nMuchas gracias.','',0,'gA==','vsp2n6qx',1,0,'',1106,0,0),(37896,8180,3,86,0,'81.83.185.118',1189870570,1,0,1,1,1,1,'','','Antonio,\n\nI installed the August-build of xHarbour Builder. Now everything is running just fine.\n\nThanks a lot for your help.\n\nHave a nice weekend.','',0,'gA==','2482ldt7',1,0,'',86,0,0),(37897,8174,3,1157,0,'168.209.97.34',1189870847,1,0,1,1,1,0,'','','Hi Antonio\n\nThe groups actually aren\'t too important, and the hanging doesn\'t matter either as I have a work around.\n\nBut it doesn\'t look too good, and even if I take the XP themes off, it\'s still not so good. \n\nYou suggested that I try and use the resource editor, as you can see, I have little chance there, but what is the difference ultimately between dynamically defining the dialog, and creating it via the resource editor?\n\nRegards\nAlex','',0,'gA==','2g9rujxf',1,0,'',1157,0,0),(37898,8191,3,6,0,'87.1.232.191',1189871513,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3e3k7mk2]Enrico,\n\nWe have uploaded FWH 7.09 again, so now the fix is included into it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3e3k7mk2]\n\nThank you, Master! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','3e3k7mk2',1,0,'',6,0,0),(37899,8194,6,1106,0,'190.64.157.64',1189871906,1,0,1,1,1,0,'','Error en xBrowse','Amigos:\n\nTengo una BD de 140 campos.\n\nAl crear el xBrowse se generan segun cierta condicion\n(Si tengo en un Array cierto dato se crea esa columna) Funciona pero da eeror\n(Tambien probe hacer todas las columnas y ocultar las que no quiero) Tambien Funciona pero da error\n\n1 Cuando navego por el xBrowse no se ven las columnas de la derecha,\nque si estan creadas ya que si achico las columnas con el raton\nse ven. \n\n2 Ademas da ete error cuando trata de comenzar por la primer columna:\n Error BASE/1132  Bound error: array access\n   Argumentos   :\n     [   1] = A   { ... }\n     [   2] = N   12\n\nLlamadas al Stack\n________________________________________________________________________________\n\n   Called from (b)TXBROWSE(336)\n   Called from TXBROWSE:COLATPOS(0)\n   Called from TXBROWSE:GORIGHT(1588)\n   Called from TXBROWSE:KEYDOWN(1380)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from TXBROWSE:HANDLEEVENT(1360)\n   Called from _FWH(3166)\n \n\nMi código\n\nXI := ASCAN(acTituBrw,\"H12_A1\")\nIF xi &lt;&gt; 0   \noCol:=oBrw:AddCol()\noCol:cHeader := \"Hora : \"+SubStr(\"H12_A1\",2,2 )+CRLF+\"Banca : \"+CRLF+\"Drop : \"+CRLF+\"Resultado : \"\noCol:bStrData := {|| Transform((DBPITX)-&gt;H12_A1,\"999,999,999.99\")+CRLF+;\n                     Transform((DBPITX)-&gt;H12_A2,\"999,999,999.99\")+CRLF+;\n                     Transform((DBPITX)-&gt;H12_A3,\"999,999,999.99\") }\n\nEndif \nEsto funciona, lo que no funciona es la navegación del xBrowse y\ntampoco me muestra todas las columnas que si se crearon.\n\nMuchas gracias.\n\nRuben Fernandez','',0,'','44zmlrvv',1,0,'',1106,0,0),(37900,8174,3,2,0,'87.218.146.238',1189878910,1,0,1,1,1,1,'','','Alex,\n\n&gt; but what is the difference ultimately between dynamically defining the dialog, and creating it via the resource editor? \n\nIts easier for you <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLets see if we can help you, the problem is that your sample is not an easy one.','',0,'','1y55ea4d',1,0,'',2,0,0),(37901,8194,6,1106,0,'190.64.133.252',1189882498,1,0,1,1,1,0,'','','SOLUCIONADO...\n\nAmigos se solucionó.\n\nSi creo las columnas como en el post anterior, funciona,\nsi las creo y despues de acuerdo a la condicion\nlas oculto, no funciona.\n\nGracias y saludos\n\nRuben Fernandez.','',0,'','24w26h9m',1,0,'',1106,0,0),(37902,8195,6,883,0,'200.166.205.161',1189886295,1,0,1,1,1,1,'','como conseguir a outlookbar2 ????','Bom dia a Todos, alguem pode me ajudar a conseguir a outlookbar2 ou teria que pagar por ela ???\n\nExemplo :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.4shared.com/file/24334471/968930bf/imagem.html\">http://www.4shared.com/file/24334471/96 ... magem.html</a><!-- m -->\n\nAbraços a Todos','',0,'','17nfg9bo',1,0,'',883,0,0),(37903,8195,6,1106,0,'190.64.131.184',1189891174,1,0,1,1,1,0,'','','Carlos:\n\nLa clase viene en la nueva version de FWH 7.09\n\nSaludos\n\nREuben Fernandez','',0,'','2grvbfs3',1,0,'',1106,0,0),(37904,8195,6,883,0,'200.166.205.161',1189897462,1,0,1,1,1,1,'','','[quote=&quot;Ruben D. Fernandez&quot;:1eury3ss]Carlos:\n\nLa clase viene en la nueva version de FWH 7.09\n\nSaludos\n\nREuben Fernandez[/quote:1eury3ss]\n\nRuben obrigado pela atenção,essa classe resolveria meu problema','',0,'gA==','1eury3ss',1,0,'',883,0,0),(37905,7330,6,92,0,'217.125.163.130',1189899741,1,0,1,1,1,0,'','Re: Calculadora','[quote=&quot;Verhoven&quot;:2sv7oj6y]En el siguiente link os dejo la calculadora con las sugerencias incorporadas y con un ejemplo de como hacerla arrancar pulsando F12.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?b1ydcz24n9y\">http://www.mediafire.com/?b1ydcz24n9y</a><!-- m -->\n\nSaludos.[/quote:2sv7oj6y]\nGracias Verhoven,\n\nEstoy mirando tu calculadora, me gusta.\nTiene la posibilidad de capturar el resultado? me explico, al pulsar SALIR es posible capturar el valor calculado y asignarlo a una variable de mi programa?\n\nPor otro lado, si el método NEW devolviera SELF entonces se podría hacer:\noCalc:New(oWnd):Calculadora(oWnd)\n\nPara que sirve ::oVentana? se podría omitir y entonces:\noCalc:New():Calculadora(oWnd)\n\nSiguiendo; ::Calculadora podria recibir un segundo parámetro \'nvalor\', así:\noCalc:New():Calculadora(oWnd, nValor)\n\nEste segundo parámetro podría guardarse en una DATA \'nValorOriginal\' de manera que si se pulsa ESC, el método END() devolviera \'nValororiginal\' y si se pulsa SALIR devolviera el valor calculado.\n\nEn fin que lo que persigo es:\n\nnMiVariableGet := oCalc:New():Calculadora(oWnd, nMiVariableGet)\n\nMás cosas.\nEstás utilizando oBrw:godown(), no sería mejor utilizar oBrw:goBottom()?\nSería posible teclear decimales con la coma además de con el punto?\n\nAún así me gusta mucho y la incorporaré a mi desarrollo. Estaré atento a nuevas mejoras.\n\nSaludos\nCarlos G.','',0,'gA==','2sv7oj6y',1,0,'',92,0,0),(37906,8196,6,1106,0,'190.64.136.17',1189907546,1,0,1,1,1,0,'','xBrowse ahora que anda quiero mas','Amigos:\n\nAhora que pude hacer andar el xBrowse deseo saber\ncomo asignar el font al header, como cambiar el color de\nuna celda segun sus datos\n\nMuchas gracias.\n\nRuben Fernandez.\n\nCreo que no pregunto mas de xBrowse','',0,'gA==','1jz5nwjr',1,0,'',1106,0,0),(37907,8197,1,173,0,'203.113.39.10',1189910517,1,0,1,1,1,0,'','TWBrowse for Fw2.1c','dear all,\n\nCan I get some idea for resize of TWBrowse of everybody here ? The first load I fix size of them nWidth=500, nHeight=300, fieldsizes=60,200,50. If I need to resize them to nwidth=100,nHeight=300, Feildsizes=60,700,50, How I do ?\n\nBest Regard,\n\nPeter\n\nPS. FiveWin 2.1c and Blinker 7 user','',0,'gA==','3ealiz3u',1,0,'',173,0,0),(37908,8196,6,316,0,'87.218.187.221',1189913900,1,0,1,1,1,0,'','','En el directorio samples hay unos ejemplos muy buenos te los recomiendo. Tambien si lees el codigo de la clase te vas a dar cuenta como, si algo bueno tiene fw es el codigo fuente.\n\nSaludos,\nCarlos.','',0,'gA==','3a9rfhgl',1,0,'',316,0,0),(37909,8197,1,2,0,'87.218.146.172',1189928790,1,0,1,1,1,1,'','','oBrowse:nwidth = 100\noBrowse:nHeight = 300\noBrowse:aFieldSizes = { 60, 700, 50 }\noBrowse:Refresh()','',0,'gA==','2v5wpc6j',1,0,'',2,0,0),(37910,8184,6,2,0,'87.218.146.172',1189929563,1,0,1,1,1,1,'','','Aoki,\n\nSelecciona \"Thick Frame\" Yes, y maximízalo desde el ON INIT:\n\nACTIVATE DIALOG oDlg ;\nON INIT oDlg:Maximize()','',0,'gA==','2las75ky',1,0,'',2,0,0),(37911,8106,18,2,0,'87.218.146.172',1189930833,1,0,1,1,1,1,'','','Moises,\n\nAqui lo tienes con las dimensiones correctas. Faltan solo los textos en el idioma propio:\n[code:2yikayp5]\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction MsgGet&#40; cTitle, cText, uVar, cBmpFile, cResName&#41;\n\n   local oDlg, oBmp\n   local uTemp &#58;= uVar\n   local lOk   &#58;= &#46;f&#46;\n\n   DEFAULT cText &#58;= &quot;&quot;\n\n   DEFINE DIALOG oDlg FROM 10, 20 TO 18, 59&#46;5 TITLE cTitle\n\n   if ! Empty&#40; cBmpFile &#41; &#46;or&#46; ! Empty&#40; cResName &#41;\n      if ! Empty&#40; cBmpFile &#41;\n         @ 1, 1 BITMAP oBmp FILENAME cBmpFile SIZE 20, 20 NO BORDER OF oDlg\n      endif\n\n      if ! Empty&#40; cResName &#41;\n         @ 1, 1 BITMAP oBmp RESOURCE cResName SIZE 20, 20 NO BORDER OF oDlg\n      endif\n\n      @ 0&#46;5, 6 SAY cText OF oDlg SIZE 250, 10\n      @ 1&#46;6, 4 GET uTemp SIZE 120, 12 OF oDlg\n   else   \n      @ 0&#46;5, 3&#46;3 SAY cText OF oDlg SIZE 250, 10\n      @ 1&#46;6, 2&#46;3 GET uTemp SIZE 120, 12 OF oDlg\n   endif   \n\n   @ 2&#46;25, 7&#46;5 - If&#40; oBmp == nil, 2, 0 &#41; BUTTON &quot;&amp;Ok&quot;  OF oDlg SIZE 35, 12 ;\n      ACTION &#40; oDlg&#58;End&#40;&#41;, lOk &#58;= &#46;t&#46; &#41; DEFAULT\n\n   @ 2&#46;25, 16&#46;5 - If&#40; oBmp == nil, 2, 0 &#41; BUTTON &quot;&amp;Cancel&quot; OF oDlg SIZE 35, 12 ;\n      ACTION &#40; oDlg&#58;End&#40;&#41;, lOk &#58;= &#46;f&#46; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   if lOk\n      uVar &#58;= uTemp\n   endif\n\nreturn lOk\n\n//----------------------------------------------------------------------------//\n[/code:2yikayp5]','',0,'AIA=','2yikayp5',1,0,'',2,0,0),(37912,8182,6,127,0,'81.35.39.247',1189931615,1,0,1,1,1,0,'','','Imposible Antonio, he probado de un sinfin de maneras y no lo consigo.\n\noPrn := TPreview():New()\noPrn := TPrinter():New( \"Factura\", .F., .T., , .T. )\noPrn := PrintBegin( \"Factura\", .F., .T., , .T. )\n\nYo no estoy muy ducho en esto de las clases y escribo todo como los ejemplos que trae FWH.\n\nDe momento seguiré compilando con la versión que tenía y si algun día encontramos una solución cambiare a la nueva.\n\nGracias y un saludo.','',0,'AIA=','1mj7jskf',1,0,'',127,0,0),(37913,8182,6,2,0,'87.218.146.172',1189932791,1,0,1,1,1,1,'','','Julio,\n\nPrueba con las librerías que te enviamos por email <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','ho8k5hgc',1,0,'',2,0,0),(37914,8198,6,1146,0,'81.44.158.231',1189934385,1,0,1,1,1,0,'','function que devuelva solo el nombre del fichero sin path','Hola a todos:\n\nTengo un campo con la ruta de un archivo (p. ej. c:\\app\\its01\\cfg\\uno.ini). Busco una función que me devuelva sólo el nombre del archivo (uno.ini), sin la ruta, que, además, no siempre es la misma. ¿Existe una función que lo haga?. \n\nMuchas gracias a todos!!. Salu2','',0,'AIA=','1iodreyg',1,0,'',1146,0,0),(37915,8105,18,2,0,'87.218.146.124',1189934498,1,0,1,1,1,1,'','','Moises,\n\nEn source\\function\\msgrun.prg hay que modificar estas líneas asi:\n[code:2danm3n3]\n     ACTIVATE DIALOG oDlg CENTER ;\n          ON PAINT oDlg&#58;Say&#40; 11, 0, xPadC&#40; oDlg&#58;cMsg, nWidth &#41;,,,, &#46;T&#46; &#41;\n[/code:2danm3n3]','',0,'AIA=','2danm3n3',1,0,'',2,0,0),(37916,8198,6,2,0,'87.218.146.124',1189934654,1,0,1,1,1,1,'','','Moises,\n\ncFileNoPath( cPathMask ) --&gt; cFileName\n\nDe paso comentarte que ya hemos revisado MsgGet() y MsgWait() (y MsgRun()). Mira la sección de bugs en estos foros <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1r9rftla',1,0,'',2,0,0),(37917,8198,6,1146,0,'81.44.158.231',1189937278,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias!!!. Incluso trabajas en domingo <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->.\n\nPor favor, cuando tengas un rato, habría que revisar:\n\n- el error del preview que te reporté.\n\n- poner la opción SIZE a la nueva clase Toutk2003. El ancho de la misma es pequeño.\n\n- cuando haces REDEFINE GET NO MODIFY los colores se ven bastante mal, el fondo gris con las letras negras restan mucha visibilidad. Creo que sería bueno poner un fondo más claro.\n\nMuchas gracias nuevamente. Salu2','',0,'AIA=','3n8cffe2',1,0,'',1146,0,0),(37918,8198,6,2,0,'87.218.146.172',1189938535,1,0,1,1,1,1,'','','Moises,\n\n&gt; poner la opción SIZE a la nueva clase Toutk2003. El ancho de la misma es pequeño. \n\nEs suficiente con hacer oOutLook2003:nWidth = nValor','',0,'AIA=','20tdrd2h',1,0,'',2,0,0),(37919,8198,6,1146,0,'81.44.158.231',1189939611,1,0,1,1,1,0,'','','Antonio,\n\nMuchas gracias, funciona perfecto!!.\n\nOlvidé decirte también que para la clase TOutlook 2003 sería bueno abajo del todo añadir un grupo en blanco, que no se pueda abrir, para simular el último grupo de outlook, donde están las opciones para seleccionar los grupos que se quieran ver.','',0,'AIA=','17jitxus',1,0,'',1146,0,0),(37920,8183,6,883,0,'200.166.205.161',1189944027,1,0,1,1,1,1,'','Re: DIALOG em tela inteira PDV','[quote=&quot;AOKISANTOS&quot;:2823836e]pessoal como criar uma dialog que cubra a tela inteira do MONITOR?\n\nGrato\n\nAoki[/quote:2823836e]\n\nFala santos eu uso o pelles no meu sistema de frente de loja eu fiz isso sem problemas me adicione ai que te mando um exemplo.\n\nadicione o meu msn ai : <!-- e --><a href=\"mailto:xhbfive@hotmail.com\">xhbfive@hotmail.com</a><!-- e -->','',0,'gA==','2823836e',1,0,'',883,0,0),(37921,8191,3,154,0,'151.21.37.136',1189958631,1,0,1,1,1,1,'','Re: Important fix','[quote=&quot;Antonio Linares&quot;:3581r6vv]In Class TWindow Method EndPaint(), add this final zero:\n\nMETHOD EndPaint() INLINE ::nPaintCount--,; \nEndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0 \n\nIt solves painting errors![/quote:3581r6vv]Antonio,\nMy version \"FWHX 7.04\" ix fixable?\ncan you post the little sample for test the fix?','',0,'gA==','3581r6vv',1,0,'',154,0,0),(37922,8177,6,123,0,'88.25.30.55',1189962078,1,0,1,1,1,1,'','','Marcelo,\n\n[quote:darcis7y]Seguiré buscando la forma..., creo que en este punto voy a tener que hacer consultas SQL independientes usando el objeto command para comparar entre el valor actual del field del recordset y el que me entregue la consulta.... seguiré probando [/quote:darcis7y]\n\nQuizás no te he entendido bien...\n\n¿Te refieres a tener un recordset con actualización dinámica o te refieres a la actualización de una fila?','',0,'gA==','darcis7y',1,0,'',123,0,0),(37923,8191,3,2,0,'87.218.146.107',1189970786,1,0,1,1,1,1,'','','Ugo,\n\nYes, it should be applied to all FWH builds.\n\nTo test it, use a brush on the main window and move the calculator over it. You will see that the painting is not ok. With the fix, it paints ok.','',0,'gA==','31k47e6d',1,0,'',2,0,0),(37924,8191,3,154,0,'151.21.37.136',1189977484,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2xa7e7lk]Ugo,\n\nYes, it should be applied to all FWH builds.\n\nTo test it, use a brush on the main window and move the calculator over it. You will see that the painting is not ok. With the fix, it paints ok.[/quote:2xa7e7lk]\nAntonio,\nmany thanks.','',0,'gA==','2xa7e7lk',1,0,'',154,0,0),(37925,8191,3,6,0,'87.1.198.163',1189978446,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1scr039s]Ugo,\n\nYes, it should be applied to all FWH builds.\n\nTo test it, use a brush on the main window and move the calculator over it. You will see that the painting is not ok. With the fix, it paints ok.[/quote:1scr039s]\n\nYes! Wonderful improvement! It works with bitmap backgrounds too.\n\nEMG','',0,'gA==','1scr039s',1,0,'',6,0,0),(37926,8137,2,935,0,'200.62.80.76',1189978986,1,0,1,1,1,1,'','hola','Sandra,\n\nEnviame un email a mi correo <!-- e --><a href=\"mailto:rparedes88@hotmail.com\">rparedes88@hotmail.com</a><!-- e --> y te enviare la clase tpdf que necesitas\n\nRamon Paredes','',0,'gA==','27ssb5sh',1,0,'',935,0,0),(37927,7330,6,75,0,'81.39.171.130',1189979096,1,0,1,1,1,0,'','Calculadora','El resultado actual de la Calculadora lo tienes en la data nResult. Leyendo esa variable del objeto obtienes el resultado.\n\nLo que he pretendido con la calculadora es que puedas salir y que al volver a entrar se mantenga en memoria el estado de la misma tal y como se dejó, incluido el rollo de papel.\n\nSi le voy a incorporar la sugerencia de sustituir en el browse godown() por gobottom(). El comportamiento será más consistente, pues si el usuario repasa una operación larga y deja el registro arriba, al seguir con la operación después, con el godown(), no saltará a la última línea introducida que es lo que en realidad se pretende. Gracias por la sugerencia.','',0,'gA==','1mwc2ppf',1,0,'',75,0,0),(37928,8191,3,154,0,'151.21.37.136',1189979554,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:ay7up405]Yes! Wonderful improvement! It works with bitmap backgrounds too.[/quote:ay7up405]Antonio and Enrico,\ni do not found any difference with Vista Business, is possible?','',0,'gA==','ay7up405',1,0,'',154,0,0),(37929,7330,6,75,0,'81.39.171.130',1189980952,1,0,1,1,1,0,'','Calculadora','En el siguiente link os dejo la calculadora con las correcciones sugeridas por FiveWIDI.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?40xzznpt0in\">http://www.mediafire.com/?40xzznpt0in</a><!-- m -->\n\nFiveWidi si me explicas qué significa lo de devolver self veo como incorporarlo. Pero no se qué significa.\n\nSaludos.','',0,'gA==','pbc0e5pw',1,0,'',75,0,0),(37930,8191,3,2,0,'87.218.146.107',1189985717,1,0,1,1,1,1,'','','Ugo,\n\nYou will not notice it in Vista as Vista has optimized WM_PAINT msgs. But it fails in XP.','',0,'gA==','1t84mt6t',1,0,'',2,0,0),(37931,8199,6,1106,0,'190.64.139.172',1189988271,1,0,1,1,1,0,'','Colorear celda en xBrows según sus datos ?','Amigos:\n\nNo encontre un ejemplo en el xBrowse...\n\nComo puedo colorear una celda según tenga\nun dato positivo o negativo y se actualice cada vez que cambia ?\n\nDisculpen pero no encontre la forma\n\nGracias.\n\nRuben Fernandez.','',0,'gA==','wqhuun51',1,0,'',1106,0,0),(37932,8191,3,699,0,'59.125.100.114',1190001119,1,0,1,1,1,1,'','','Hi,\n\nDoes anyone can teach me what else and how to do after added the final zero?','',0,'gA==','2hh7a4zg',1,0,'',699,0,0),(37933,8200,16,1117,0,'203.144.143.4',1190004718,1,0,1,1,1,0,'','FWH 7.09 TPreview Class','1. In FWH 7.09 when I use PRINT command by prev32.dll the preview windows not MAXIMIZED How can I active this with MAXIMIZED like the old version.\n2. Please give me the detail and sameple of avantage feature for TPREVIEW class in FWH 7.09\n3. Have any problem when use application created by FWH 7.09 in windows VISTA','',0,'gA==','3dfff19x',1,0,'',1117,0,0),(37934,8201,3,1117,0,'203.144.143.4',1190005093,1,0,1,1,1,0,'','FWH 7.09 TPreview Class','1. In FWH 7.09 when I use PRINT command by prev32.dll the preview windows not MAXIMIZED How can I active this with MAXIMIZED like the old version.\n2. Please give me the detail and sameple of avantage feature for TPREVIEW class in FWH 7.09\n3. Have any problem when use application create by FWH 7.09 in windows VISTA','',0,'gA==','353cqlkb',1,0,'',1117,0,0),(37935,8202,6,739,0,'189.134.48.200',1190005313,1,0,1,1,1,1,'','qsAdoRdd alfa 3','<!-- m --><a class=\"postlink\" href=\"ftp://quique.quiquesoft.com/qsAdoRdd_Alfa_3.zip\">ftp://quique.quiquesoft.com/qsAdoRdd_Alfa_3.zip</a><!-- m -->','',0,'gA==','vslul3cf',1,0,'',739,0,0),(37936,8203,3,739,0,'189.134.48.200',1190005358,1,0,1,1,1,1,'','qsAdoRdd alfa 3','<!-- m --><a class=\"postlink\" href=\"ftp://quique.quiquesoft.com/qsAdoRdd_Alfa_3.zip\">ftp://quique.quiquesoft.com/qsAdoRdd_Alfa_3.zip</a><!-- m -->','',0,'gA==','3sgaip1t',1,0,'',739,0,0),(37937,8203,3,51,0,'80.122.88.242',1190007447,1,0,1,1,1,0,'','advantages over AdoRDD?','What are the advantages over AdoRDD (free)?','',0,'gA==','bsgzr6dw',1,0,'',51,0,0),(37938,8191,3,2,0,'87.218.146.107',1190010924,1,0,1,1,1,1,'','','Just compile window.prg and add window.obj to your application, or replace it in FiveH.lib (or FiveHX.lib)','',0,'gA==','3os794zq',1,0,'',2,0,0),(37939,8203,3,2,0,'87.218.146.107',1190011450,1,0,1,1,1,1,'','','Quique,\n\nIs your RDD based on ADORDD ?','',0,'gA==','3py4ktny',1,0,'',2,0,0),(37940,8202,6,2,0,'87.218.146.107',1190011494,1,0,1,1,1,1,'','','Quique,\n\nEstá tu RDD basado en ADORDD ?','',0,'gA==','3norbp7n',1,0,'',2,0,0),(37941,8201,3,2,0,'87.218.146.107',1190011837,1,0,1,1,1,1,'','','&gt; 1. In FWH 7.09 when I use PRINT command by prev32.dll the preview windows not MAXIMIZED How can I active this with MAXIMIZED like the old version. \n\nPlease download FWH 7.09 again\n\n&gt; 2. Please give me the detail and sameple of avantage feature for TPREVIEW class in FWH 7.09 \n\nYou can have as many previews simultaneously as you may need. i.e.:\n[code:2rhmwylp]\nPRINT oPrn1 PREVIEW\n   PAGE\n      oPrn1&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;one&quot; &#41;\n\nPRINT oPrn2 PREVIEW\n   PAGE\n      oPrn2&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;two&quot; &#41;\n\nPRINT oPrn3 PREVIEW\n   PAGE\n      oPrn3&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;three&quot; &#41;\n[/code:2rhmwylp]\n&gt; 3. Have any problem when use application create by FWH 7.09 in windows VISTA\nWe do all our tests in Vista and in XP. No problems in Vista.','',0,'AIA=','2rhmwylp',1,0,'',2,0,0),(37942,8200,16,2,0,'87.218.146.107',1190011902,1,0,1,1,1,1,'','','&gt; 1. In FWH 7.09 when I use PRINT command by prev32.dll the preview windows not MAXIMIZED How can I active this with MAXIMIZED like the old version. \n\nPlease download FWH 7.09 again\n\n&gt; 2. Please give me the detail and sameple of avantage feature for TPREVIEW class in FWH 7.09 \n\nYou can have as many previews simultaneously as you may need. i.e.:\n[code:2it69qot]\nPRINT oPrn1 PREVIEW\n   PAGE\n      oPrn1&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;one&quot; &#41;\n\nPRINT oPrn2 PREVIEW\n   PAGE\n      oPrn2&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;two&quot; &#41;\n\nPRINT oPrn3 PREVIEW\n   PAGE\n      oPrn3&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;three&quot; &#41;\n[/code:2it69qot]\n&gt; 3. Have any problem when use application create by FWH 7.09 in windows VISTA\nWe do all our tests in Vista and in XP. No problems in Vista.','',0,'AIA=','2it69qot',1,0,'',2,0,0),(37943,8182,6,2,0,'87.218.146.107',1190011970,1,0,1,1,1,1,'','','Julio,\n\nVuelve a descargar e instalar FWH 7.09 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3f68o8gd',1,0,'',2,0,0),(37944,8191,3,699,0,'59.125.100.114',1190012952,1,0,1,1,1,1,'','','Antonio,\n\nThanks a lot for your quick response. It is very clear now.','',0,'AIA=','2nj7v58a',1,0,'',699,0,0),(37946,8182,6,127,0,'83.58.215.185',1190013627,1,0,1,1,1,0,'','','Ya lo he descargado e instalado FWH y Harbour y sale lo mismo.\n\nAlomejor es alguna cosa que hay que cambiar en el código en esta nueva versión, yo iré haciendo pruebas y si lo descubro te lo hago saber.\n\nGracias Antonio.','',0,'AIA=','dhabeig3',1,0,'',127,0,0),(37947,8182,6,2,0,'87.218.146.107',1190013940,1,0,1,1,1,1,'','','Julio,\n\nLa ventana de previsualización no sale maximizada ?\n\nTu ventana principal es MDI ?','',0,'AIA=','1c1jefwe',1,0,'',2,0,0),(37948,7330,6,92,0,'80.33.133.32',1190016075,1,0,1,1,1,0,'','Re: Calculadora','[quote=&quot;Verhoven&quot;:ddx7mwzz]En el siguiente link os dejo la calculadora con las correcciones sugeridas por FiveWIDI.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?40xzznpt0in\">http://www.mediafire.com/?40xzznpt0in</a><!-- m -->\n\nFiveWidi si me explicas qué significa lo de devolver self veo como incorporarlo. Pero no se qué significa.\n\nSaludos.[/quote:ddx7mwzz]\n\nFácil,\n\nMETHOD  New( oWnd ) CLASS TClac\n...\naquí va el código del mètodo y al final:\n\nReturn( Self )\n\nSaludos\nCarlos G.','',0,'gA==','ddx7mwzz',1,0,'',92,0,0),(37949,7330,6,92,0,'80.33.133.32',1190016518,1,0,1,1,1,0,'','Re: Calculadora','[quote=&quot;Verhoven&quot;:z0at6eth]El resultado actual de la Calculadora lo tienes en la data nResult. Leyendo esa variable del objeto obtienes el resultado.\n\nLo que he pretendido con la calculadora es que puedas salir y que al volver a entrar se mantenga en memoria el estado de la misma tal y como se dejó, incluido el rollo de papel.\n\nSi le voy a incorporar la sugerencia de sustituir en el browse godown() por gobottom(). El comportamiento será más consistente, pues si el usuario repasa una operación larga y deja el registro arriba, al seguir con la operación después, con el godown(), no saltará a la última línea introducida que es lo que en realidad se pretende. Gracias por la sugerencia.[/quote:z0at6eth]\n\nGracias a ti,\n\nNo tengo tu código fuente aquí y mi conexión no me permite bajar la clase, es posible que no nombre correctamente los métodos.\n\nA lo que me refiero es que si tanto el método Calculadora() como el End() devuelven el valor de nResult entonces ya casi se consigue lo que pretendo, sólo faltaría lo del \'Self\'.\n\nSaludos\nCarlos G.','',0,'gA==','z0at6eth',1,0,'',92,0,0),(37950,8137,2,92,0,'80.33.133.32',1190016622,1,0,1,1,1,0,'','Re: hola','[quote=&quot;Ramon Paredes&quot;:3a62k7ci]Sandra,\n\nEnviame un email a mi correo <!-- e --><a href=\"mailto:rparedes88@hotmail.com\">rparedes88@hotmail.com</a><!-- e --> y te enviare la clase tpdf que necesitas\n\nRamon Paredes[/quote:3a62k7ci]\n\nYo también estoy interesado en esta clase, la puedes compartir?\n\nSaludos\nCarlos G.\n<!-- e --><a href=\"mailto:carles_gp@telefonica.net\">carles_gp@telefonica.net</a><!-- e -->','',0,'gA==','3a62k7ci',1,0,'',92,0,0),(37951,8204,3,247,0,'193.92.131.194',1190019678,1,0,1,1,1,0,'','ADORDD Question','Hi,\n\nMy question is about ADO and not exclusively about ADORDD . If i want to use a browse (e.g XBROWSE) i have to open my recordset with adUseClient because the browse must use the absoluteposition property in order to work . My problem is that if I open a table with  too much records (e.g 500000 records) then ADO is talking too much time to open. Is there any other solution ? Can i use adUseServer for cursorlocation and browse still work (meaning that I can not use absoluteposion property) ?\n\nThanks in advance \nA.S.K','',0,'gA==','1plsa63j',1,0,'',247,0,0),(37952,8205,3,972,0,'81.164.117.81',1190020051,1,0,1,1,1,0,'','Rebuild FiveHMX.Lib for xHarbour','Hi,\n\nThis is a link to the updated xHarbour Builder Project file to rebuild FiveHMX.Lib with latest xHarbour Builder: \n\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com/xhc/index.asp?page=xhc_download_detail.asp&amp;type=dl&amp;id=123&amp;show_i=7&amp;show_sub=1\">http://www.xHarbour.com/xhc/index.asp?p ... show_sub=1</a><!-- m -->\n\nNote: If you use latest xHarbour Builder with FWH version 7.09, there is no need to rebuild FiveHMX.lb.\n\n--\nSincerely,\n\nPatrick Mast,\nxHarbour.com Inc.\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.com\">http://www.xHarbour.com</a><!-- m -->','',0,'gA==','13g69u8u',1,0,'',972,0,0),(37953,8182,6,127,0,'83.58.215.185',1190021156,1,0,1,1,1,0,'','','No no sale maximizada sale detrás del diálogo desde el que se la llama como pudiste observar en el BMP que te adjunté ayer por el correo. Además es una cosa muy rara porque sale debajo de la barra de herramientas alineada a la izquierda y arriba. Cuando intentas pinchar en ella para pasarla al frente, no te deja y el dialogo desde el que se la llama parpadea, es decir que hasta que no cierras el dialogo llamador no te deja hacer nada con la de previsualización, que una vez cerrado el dialogo llamador, si la maximizas, en lugar de cubrir toda la superficie de la pantalla, se queda dentro de la ventana principal del programa, entre la barra de herramientas y la barra de estado de la ventana principal de la aplicación. \n\nEn cuanto a la ventana principal de la aplicación el código que la genera es el siguiente:\n\n DEFINE WINDOW oWnd MDI FROM 04, 10 TO 30, 90;\n        TITLE OemToAnsi( \"Facturaci¢n PYME\" ) ;\n        MENU Menu() ;\n        ICON oIcon ;\n        BRUSH oBrush\n        SET FONT OF oWnd TO oFont\n        SET MESSAGE OF oWnd TO ;\n        OemToAnsi(\'Facturaci¢n PYME           Usuario = \'+WNetGetUser());\n        TIME DATE KEYBOARD\n\n DEFINE BUTTONBAR oBar _3D SIZE 37, 37 TOP OF oWnd\n DEFINE BUTTON OF oBar FILENAME \"bmps\\bars\\cascade.bmp\"  TOOLTIP ;\n  ...\n\n ACTIVATE WINDOW oWnd MAXIMIZED ;\n          ON INIT ( Set( 7, cPathEm := Empresas( oWnd, @cNomEmp ) ), ;\n          lActivado := IF( Veri(), .T., ( .F., oWnd:End() ) ), ;\n          oWnd:cTitle := cNomEmp + VERSION ) ;\n          VALID ( .NOT. lActivado .OR. MsgYesNo( \"¿ Realmente desea  salir ?\", \"Elija una opción\" ) )\n\nQue como ves si es MDI.\n\nGracias y saludos.','',0,'gA==','3128e3at',1,0,'',127,0,0),(37954,8182,6,2,0,'87.218.146.107',1190021835,1,0,1,1,1,1,'','','Julio,\n\nAl implementar la nueva clase TPreview hemos considerado que si la ventana principal es MDI entonces la preview debería ser MDICHILD para poder tener varias abiertas simultaneamente, por eso sale debajo del diálogo.\n\nPodríamos modificarlo para que no salga como MDICHILD sino como una ventana aparte de la ventana principal. Es cuestión de modificar source\\classes\\rpreview.prg. Es solo quitar MDICHILD.','',0,'gA==','1bvjzo1r',1,0,'',2,0,0),(37955,8182,6,127,0,'83.58.215.185',1190022300,1,0,1,1,1,0,'','','Modificar source\\classes\\rpreview.prg lo tienes que hacer tu, o lo puedo hacer yo en lo mío ? \nPorque yo todas pas pruebas que he hecho modificando rpreview.prg no me han funcionado, ( alomejor porque no lo se hacer ).\n\nCabría la posibilidad de hacer mi ventana principal NO MDI ?\n\nSi le quito a la ventana principal MDI sale este error\n\n   Error description: Error BASE/1004  No exported method: OWNDCLIENT\n   Args:\n     [   1] = U   \n\n\nGracias','',0,'','1ko72qpv',1,0,'',127,0,0),(37956,8199,6,180,0,'194.179.55.36',1190023648,1,0,1,1,1,0,'','Re: Colorear celda en xBrows según sus datos ?','Prueba esto:\n\noLbx:aCols[ 4 ]:bClrStd := {|| { iif( Datos-&gt;Valor &lt; 1, CLR_HRED, CLR_HBLUE), CLR_WHITE} }\n\nUn saludo,\nManuel\n\n[quote=&quot;Ruben D. Fernandez&quot;:km4kq7p0]Amigos:\n\nNo encontre un ejemplo en el xBrowse...\n\nComo puedo colorear una celda según tenga\nun dato positivo o negativo y se actualice cada vez que cambia ?\n\nDisculpen pero no encontre la forma\n\nGracias.\n\nRuben Fernandez.[/quote:km4kq7p0]','',0,'gA==','km4kq7p0',1,0,'',180,0,0),(37957,8182,6,2,0,'87.218.146.107',1190023869,1,0,1,1,1,1,'','','Julio,\n\nAguarda que vamos a ver la forma de indicarle a la nueva clase TPreview que use ventanas no MDICHILD aunque la ventana principal sea MDI\n\nVamos a hacer pruebas','',0,'gA==','1s7tqzll',1,0,'',2,0,0),(37958,8182,6,127,0,'83.58.215.185',1190025853,1,0,1,1,1,0,'','','Gracias Antonio y tranquilo que yo estoy arreglado con la version anterior que me funciona perfectamente.\n\nMuchas gracias y un saludo.','',0,'gA==','1f91nbyx',1,0,'',127,0,0),(37959,8184,6,694,0,'201.86.91.91',1190026781,1,0,1,1,1,1,'','','Muito obrigado Antonio...\n\n\nAoki','',0,'gA==','9l6p5cd6',1,0,'',694,0,0),(37960,8188,6,221,0,'190.78.48.152',1190031867,1,0,1,1,1,1,'','','GRACIAS ANTONIO, yo tanbien lo extraje de la FIVEC pero el problema va un poco mas alla o por lo menos yo no se como o donde decirle a VERCE que enlace otro obj mas, lo agregue a una libreria vacia y la agregue donde las librerias a terceros pero igual siempre me trae la ya viene en el fivec de la version, me imagino porque el agrega la primera que enlaza, por eso es que tenia que agregarla en C asi el compilador le da prioridad a la que esta en el fuente antes de la que esta en la libreria, sino solo me queda extraerla de la fivec de la 2.4 (32) y agregarle, en primera instancia la que tu me mandas y en ultima la que extraje de la 2.3 (16), y en ultimo caso pues tendre que desencriptar todo con un programa en DOS y volver a encriptarlo en 32, vaya que lio, veremos pues','',0,'gA==','16vdbucq',1,0,'',221,0,0),(37961,8202,6,739,0,'189.134.48.200',1190033026,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:31zc3cq1]Quique,\n\nEstá tu RDD basado en ADORDD ?[/quote:31zc3cq1]\n\nAlgunas partes están basadas en la idea del adordd que viene incluido en xharbour, no en el código, aunque es posible que sea parecido, porque a fin de cuentas es ado. Por ejemplo, aglo que si tomé en parte, fue el uso de tipos de datos de los campos, pero no lo manejo igual y cambié algunos como por ejemplo el tipo \"B\" lo dejé como \"N\". Pero esto fue retomando un trabajo que ya había empezado anteriormente, pero que por razones de cambio de planes en la empresa, me hicieron dejarlo a un lado.\n\nSaludos\nQuique','',0,'gA==','31zc3cq1',1,0,'',739,0,0),(37962,8199,6,1106,0,'190.64.149.152',1190033158,1,0,1,1,1,0,'','','GRACIAS Manuel...\n\nFuncionó perfecto.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','8jvfgyiu',1,0,'',1106,0,0),(37963,8204,3,35,0,'167.7.140.254',1190033301,1,0,1,1,1,0,'','','ADOrdd opens the recordset locally .. which is good. I would sugest you trim your SELECT statement to only include those fields in the browse you wish to view .. SELECT * from table can get UGLY if you have a lot of records and lots of fields .. consider SELECT field1,field2,field3 from table order by field1... and I would highly consider you stay away from a full table scan and include a where clause for only those records that meet a certain cryteria.\n\nRick Lipkin','',0,'gA==','4pg9h9ri',1,0,'',35,0,0),(37964,8203,3,739,0,'189.134.48.200',1190033487,1,0,1,1,1,1,'','Re: advantages over AdoRDD?','[quote=&quot;Otto&quot;:39gsfmhv]What are the advantages over AdoRDD (free)?[/quote:39gsfmhv]\n\nThe unque advantage I can say is use of index, because I try to use ADORDD of xharbour and it doesn\'t work, I ask to antonio, and he told me the same, for this I do it. I didn\'t do but tests.','',0,'gA==','39gsfmhv',1,0,'',739,0,0),(37965,8203,3,35,0,'167.7.140.254',1190033844,1,0,1,1,1,0,'','','ADOrdd is based on Win32ole class included in xHarbour. I use MSSql and Oracle databases .. mostly MS Sql and have found no matter what I do ( programatically ) there is no way to manipulate those indexes. The Server only uses indexes in its execution plan if it will help speed up its query .. and that is a function of the Database .. not the programmer. So I am curious .. have you tried to use MS Sql indexes and can you set orders and seeks on your keys ??\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','35mjj5ld',1,0,'',35,0,0),(37966,8203,3,739,0,'189.134.48.200',1190034358,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:48ml6lv9]Quique,\n\nIs your RDD based on ADORDD ?[/quote:48ml6lv9]\n\nSome things are based in idea in xharbour\'s adordd, but not in code.','',0,'gA==','48ml6lv9',1,0,'',739,0,0),(37967,8203,3,739,0,'189.134.48.200',1190035250,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:epoz0fyb]ADOrdd is based on Win32ole class included in xHarbour. I use MSSql and Oracle databases .. mostly MS Sql and have found no matter what I do ( programatically ) there is no way to manipulate those indexes. The Server only uses indexes in its execution plan if it will help speed up its query .. and that is a function of the Database .. not the programmer. So I am curious .. have you tried to use MS Sql indexes and can you set orders and seeks on your keys ??\n\nRick Lipkin\nSC Dept of Health, USA[/quote:epoz0fyb]\n\nI use MySql, I don\'t try in MS Sql, but yes, the idea is use xbase commands based in index the most same possible, and yes, it is based on index on slq tables, but it need some help, if you see ejemplo.prg you can see how to do it. The idea is try to use the same code of dbf to ado, because in this moment, I need it, I have a program that use dbf and the boss is offering the same program for mysql, therefore the need','',0,'gA==','epoz0fyb',1,0,'',739,0,0),(37968,8188,6,316,0,'213.97.245.163',1190035406,1,0,1,1,1,0,'','','Para que enlace la que te envió Antonio asegúrate de que está puesta antes que las librerias de FiveWin. El enlazador incluye la que encuentre primero.\n\nSaludos,\n\nCarlos.','',0,'gA==','23h3f020',1,0,'',316,0,0),(37969,8188,6,221,0,'190.78.48.152',1190036747,1,0,1,1,1,1,'','','pues ciertamente si lo hiciera con un buildx.bat seria todo , pero... uso VERCE,','',0,'gA==','33t5ufcb',1,0,'',221,0,0),(37970,2254,3,1058,0,'60.48.107.219',1190037479,1,0,1,1,1,1,'','Chinese Character on Tget','Hi Richard and John M S Chiang,\n\nI would appreciate if could send me a copy of you modified tget.prg and and any the files required to get chinese characters to display.\n\nI have tried modifying tget.prg to the John MS Chiang specs but unfortunately to no avail. All I get is a ?? when I paste a chinese character to a get object from Notepad (which displays fine with font: Arial MS Unicode.\n\nWhat am I missing.\n\nThank you.','',0,'gA==','2hu9zppo',1,0,'',1058,0,0),(37971,8206,6,1146,0,'87.223.165.162',1190037630,1,0,1,1,1,0,'','proteger exe contra debuggers y cracks','Hola:\n\nEstoy buscando un producto que protega el .exe de 32 bits para que no pueda ser descompilado ni atacado con debuggers y cracks. ¿Alguna idea?.\n\nMuchas gracias!!. Salu2','',0,'gA==','25l6zmm7',1,0,'',1146,0,0),(37972,8207,3,1146,0,'87.223.165.162',1190037740,1,0,1,1,1,0,'','exe protection against decompilers and debuggers','Hi,\n\nI am searching for an utility that protects a 32 bits exe from being decompiled or debugged. Any help will be welcomed. \n\nThank you!. Best regards,\n\nMoisés','',0,'gA==','3ubq782n',1,0,'',1146,0,0),(37973,8201,3,1117,0,'125.24.46.170',1190038573,1,0,1,1,1,0,'','','I just download the last update for maximized the preview windows but found error\n\nApplication\n===========\n   Path and name: C:\\ProjectH\\Test\\test.exe (32 bits)\n   Size: 1,080,320 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 09/17/07, 21:11:01\n   Error description: Error BASE/1004  No exported method: OWNDCLIENT\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; OWNDCLIENT(0)\n   Called from:  =&gt; TMDICHILD:NEW(0)\n   Called from:  =&gt; TPREVIEW:BUILDWINDOW(0)\n   Called from:  =&gt; TPREVIEW:NEW(0)\n   Called from: .\\source\\classes\\RPREVIEW.PRG =&gt; RPREVIEW(0)\n   Called from: .\\source\\classes\\PRINTER.PRG =&gt; (b)TPRINTER(0)\n   Called from:  =&gt; TPRINTER:PREVIEW(0)\n   Called from: .\\source\\classes\\PRINTER.PRG =&gt; PRINTEND(0)\n   Called from: test.prg =&gt; MAIN(9)\n\nSystem\n======\n   CPU type:         Intel(R) Pentium(R) M processor 1.70GHz 1700 Mhz\n   Hardware memory: 503 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour devel build 1.1-1 Intl.\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   OWNDCLIENT\n     Local   1:    U    \n   TMDICHILD:NEW\n     Param   1:    N    0\n     Param   2:    N    0\n     Param   3:    N    24\n     Param   4:    N    80\n     Param   5:    C    \"FiveWin Report\"\n     Param   6:    N    318701568\n     Param   7:    O    Class: TMENU\n     Param   8:    U    \n     Param   9:    O    Class: TICON\n     Param  10:    L    .T.\n     Param  11:    N    0\n     Param  12:    N    12632256\n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    L    .F.\n     Param  16:    L    .T.\n     Param  17:    U    \n     Param  18:    C    \"SINGLE\"\n     Param  19:    L    .T.\n     Param  20:    L    .T.\n     Param  21:    L    .T.\n     Param  22:    L    .T.\n     Param  23:    U    \n     Local   1:    O    Class: TMDICHILD\n     Local   2:    S    \n     Local   3:    O    Class: TMDICHILD\n   TPREVIEW:BUILDWINDOW\n     Local   1:    O    Class: TPREVIEW\n     Local   2:    U    \n     Local   3:    O    Class: TICON\n     Local   4:    C    \"FiveWin Report\"\n     Local   5:    U    \n     Local   6:    N    4194304\n     Local   7:    O    Class: TPREVIEW\n     Local   8:    S    \n     Local   9:    O    Class: TPREVIEW\n   TPREVIEW:NEW\n     Param   1:    O    Class: TPRINTER\n     Local   1:    O    Class: TPREVIEW\n   RPREVIEW\n     Param   1:    O    Class: TPRINTER\n     Local   1:    U    \n   (b)TPRINTER\n     Param   1:    O    Class: TPRINTER\n   TPRINTER:PREVIEW\n   PRINTEND\n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 ERROR\n     2 HBCLASS\n     3 HBOBJECT\n     4 TPRINTER\n     5 TPREVIEW\n     6 TWINDOW\n     7 TCONTROL\n     8 TICON\n     9 TBRUSH\n    10 TFONT\n    11 TMDICHILD\n    12 TMENU\n    13 TMENUITEM\n    14 TREG32\n\nMemory Analysis\n===============\n      82 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','3ks8z50j',1,0,'',1117,0,0),(37974,8207,3,29,0,'88.149.163.184',1190039402,1,0,1,1,1,0,'','','Hi,\ntry PeCompact (<!-- w --><a class=\"postlink\" href=\"http://www.bitsum.com\">www.bitsum.com</a><!-- w -->),\nit compress and crypt any executable.\n\nI tried it with FWH/xHB apps and works fine.\n\nBest regards,\n\nMarco','',0,'','1lyi0p6j',1,0,'',29,0,0),(37975,8197,1,173,0,'203.113.38.10',1190042154,1,0,1,1,1,0,'','Not Work !!','Dear Antonio\n\nI try to use oBrw:aFieldsizes of Method, but I got some error\n\"Error objects/6 No Exp. Method:TWBrowse:_AFIELDSIZ\" Why ?\nHow I do next ? I use FiveWin v2.1c and Clipper 5.2e can take this ?\n\nBest Regard,\n\nPeter','',0,'','1jms47m8',1,0,'',173,0,0),(37976,8208,3,924,0,'81.208.36.89',1190043730,1,0,1,1,1,0,'','GETPROGDIR()','Hi,\nis it possible to kwnow where VISTA puts (the folder) the program menu installed ?\n\nUndex XP i used the function GETPROGDIR() the retrieve it, but undex VISTA it does not work.\n\nUndex XP i usually got the folder:\n\nC:\\Documents and Settings\\All Users\\Starts Menu\\Programs\\MY-FODER\n\nwhere MY-FOLDER is my searched folder.\n\nAny help ?\ntks\nRomeo/Zingoni\n\n \n\n--------------------------------------------------------------------------------\n \nSalve, \nsapete dove mette VISTA i programmi che si installano con la procedura di FWIN/HARBOUR ? \nPer intenderci quelli che usano: \n************* \nDEFINE DDE oDDE ; \nSERVICE \"Progman\" ; \nTOPIC \"Progman\" \nACTIVAT DDE oDDe \n\noDDE:Execute(....) \n. \n. \nRELEASE DDE oDDE \n*************** \nCon XP va tutto bene, mantre con VISTA creo correttamente il gruppo ma non so (in che cartella) lo va a scrivere. \n\nUsavo la funzione recuperata sul forum GESTPROGDIR() per saperlo e con XP funziona ma VISTA la va a mettere in una stranissima cartella. \n\nC\'e\' in giro qualche funzione per recuperarla ! \n\nGrazie \n\nRomeo/Zingoni','',0,'','27wsxci4',1,0,'',924,0,0),(37977,8102,6,73,0,'200.23.18.132',1190043953,1,0,1,1,1,0,'','','Antonio fijate que probe haciendo el cambio de ponerle el cero (el de la sugerencia fue carlos, no yo, jeje) en el endpaint(), y no me va, sigue pintando mal, y aparte me bloquea el sistema completo... asi tengo mi codigo\n\n   DEFINE WINDOW oWnd TITLE oVarSys:NomSys MDI MENU MiMenu() ICON oIcon\n\n.......\n   ACTIVATE WINDOW oWnd MAXIMIZED ;\n           ON PAINT Showlogo(oWnd, nColor)\n\n\nFunction ShowLogo(oWnd, nColor)\n    Local oBmp, cFile, _nFil, _nCol, aCoors := GetCoors( GetDesktopWindow() )  // la pos 3 y 4 dan la resolucion de pantalla\n\n    cFile := \"Fondo1024.jpg\"\n\n    _nFil := GetWndRect(GetDesktopWindow())[3]\n    _nCol := GetWndRect(GetDesktopWindow())[4]\n\n    If File(cFile)\n        @ 0,0 Image oBmp OF oWnd:oWndClient ;\n                         NOBORDER PIXEL SIZE _nCol,_nFil\n        oBmp:LoadImage(,cFile)\n        oBmp:refresh()\n     Else\n        FillWnd( oWnd:oWndClient, nColor )\n     Endif\n\nreturn nil\n\nQue estoy haciendo mal?\nGracias\nPaco','',0,'','1210lo1z',1,0,'',73,0,0),(37978,8102,6,2,0,'87.218.146.170',1190044907,1,0,1,1,1,1,'','','Paco,\n\nPrueba a no llamar a ShowLogo()\n\nPaco, tu código crea un control cada vez que se pinta la ventana!!!\n@ 0,0 Image oBmp ...\nEso jamas se debe hacer','',0,'','1g7hob44',1,0,'',2,0,0),(37979,3879,6,362,0,'200.158.19.77',1190045051,1,0,1,1,1,1,'','','NUEVA VERSIÓN. - NEW VERSION. -  NOVA VERSÃO.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=822\">http://www.fivewin.com.br/exibedicas.asp?id=822</a><!-- m -->\n\nRegards, saludos.','',0,'','n9jqxioh',1,0,'',362,0,0),(37980,8201,3,2,0,'87.218.146.166',1190045636,1,0,1,1,1,1,'','','Is MDI the main window of your application ?','',0,'','baez6gqa',1,0,'',2,0,0),(37981,8197,1,2,0,'87.218.146.166',1190045830,1,0,1,1,1,1,'','','Peter,\n\nMy mistake. It is:\n\noBrowse:aColSizes = { 60, 700, 50 }','',0,'','2a10hdpe',1,0,'',2,0,0),(37982,7330,6,92,0,'217.125.166.217',1190045887,1,0,1,1,1,0,'','Re: Calculadora','[quote=&quot;Verhoven&quot;:3q8jws7a]En el siguiente link os dejo la calculadora con las correcciones sugeridas por FiveWIDI.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?40xzznpt0in\">http://www.mediafire.com/?40xzznpt0in</a><!-- m -->\n\nFiveWidi si me explicas qué significa lo de devolver self veo como incorporarlo. Pero no se qué significa.\n\nSaludos.[/quote:3q8jws7a]\n\nMás cosas que voy viendo.\n\nYo haría:\n-&gt;Declarar una DATA lConservo que substituiría a la oPadre en el New(), ya que oPadre no le veo ningún uso.\n\n-&gt;METHOD New(lConservo,cPatronSalida) CLASS TCalc\n... / ...\n::lConservo := lConservo\n... / ...\n\n-&gt;METHOD End() CLASS TCalc\nLocal nresultado := 0\n    nresultado := ::nResult\n\n     ::aRolloCalc:={{\'C\',\' \'}}\n     ::nResult:=0\n     ::cUltima:=\'\'\n     ::cUltimaop:=\'\'\n    If !::lConservo\n        Self := Nil\n    EndIf\nreturn nresultado\n\nDe esta manera sigue conservando la funcionalidad que originalmente le dabas y además para los \'tocapelotas\' como yo nos da la posibilidad de abrir/cerrar la calculadora sabiendo que al salir estamos cerrando sin dejar nada pendiente (y asumiendo que perdemos la lista de operaciones).\n\nPor otro lado, creo que mejor pongas tu mail para no molestar más a la lista, no sea que al final me hagan callar.\n\nSaludos\nCarlos G.\n<!-- e --><a href=\"mailto:fwd@telefonica.net\">fwd@telefonica.net</a><!-- e -->','',0,'gA==','3q8jws7a',1,0,'',92,0,0),(37983,8201,3,1117,0,'125.24.38.162',1190046059,1,0,1,1,1,0,'','','I use your sample below and also testpre2.prg and all of my source with printer command\n\n#include \"FiveWin.ch\"\n\nfunction Main()\nlocal oPrn1,oPrn2,oPrn3\n\nPRINT oPrn1 PREVIEW \n   PAGE \n      oPrn1:Say( 2, 2, \"Test\" ) \n   ENDPAGE \nENDPRINT \n\nMsgInfo( \"one\" ) \n\nPRINT oPrn2 PREVIEW \n   PAGE \n      oPrn2:Say( 2, 2, \"Test\" ) \n   ENDPAGE \nENDPRINT \n\nMsgInfo( \"two\" ) \n\nPRINT oPrn3 PREVIEW \n   PAGE \n      oPrn3:Say( 2, 2, \"Test\" ) \n   ENDPAGE \nENDPRINT \n\nMsgInfo( \"three\" ) \nreturn nil','',0,'gA==','1zqtxj6t',1,0,'',1117,0,0),(37984,8206,6,2,0,'87.218.146.166',1190046189,1,0,1,1,1,1,'','','Moises,\n\n<!-- m --><a class=\"postlink\" href=\"http://upx.sourceforge.net/\">http://upx.sourceforge.net/</a><!-- m -->\n\nLo comprimes y usas una contraseña, para que no se pueda descomprimir','',0,'gA==','2o6rh6n7',1,0,'',2,0,0),(37985,8201,3,2,0,'87.218.146.166',1190047846,1,0,1,1,1,1,'','','Please download FWH 7.09 again and test it this way. Click several times on the main window:\n[code:olc9hcc2]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;Click Me&quot;\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK PrintPV&#40;&#41;\n\nreturn nil\n\nfunction PrintPV&#40;&#41; \n\n   local oPrn\n\n   PRINT oPrn PREVIEW \n      PAGE \n         oPrn&#58;Say&#40; 2, 2, &quot;Test&quot; &#41; \n      ENDPAGE \n   ENDPRINT \n\nreturn nil\n[/code:olc9hcc2]','',0,'AIA=','olc9hcc2',1,0,'',2,0,0),(37986,8209,6,694,0,'201.86.91.91',1190048904,1,0,1,1,1,1,'','Antonio qual recurso usar para trabalhar com imagem assim:','Antonio preciso montar uma tela pararecida com essa, e estou enfrentando dificuldades em trabalhar com imagens, haja vista pode haver 1 ou 1000 imagens!\n\nQue recurso usar?\n\n[url=http&#58;//imageshack&#46;us:2mw3mise][img:2mw3mise]http&#58;//img405&#46;imageshack&#46;us/img405/1643/restaurantenw4&#46;jpg[/img:2mw3mise][/url:2mw3mise]','',0,'GA==','2mw3mise',1,0,'',694,0,0),(37987,8210,6,760,0,'200.37.76.90',1190049332,1,0,1,1,1,0,'','OT. Sobre Redes ...','Hola a todos del foro...\n\nBueno vayamos al grano... Hice un modulo con fwh7.04 el cual tengo una ventana mdi un menu con dos opciones, modificary salir, asi como una barra con dos botones con la misma funcion del menu ( modificar y salir ).\nLa dbf se llama ckconfig con un 2 campos llamados nombre y ruc, ambos caracter... hasta aqui todo funciona ok.\nLei que al abrir todas las bases de datos al principio es mas rapido que estar abriendo y cerrando, lo instale al modulo en una red punto a punto con 04 computadoras, 02 con w98 y dos con wxp, hago referencia a uno de las maquinas con w98 como servidor uso el USE \\\\servidor\\c\\sistemas , para acceder de los terminales directamente a la dbf del mudulo ( ckconfig ), aca viene el problema...\nNote que si modifico en una terminal el campo ruc, en el mismo terminal si se cambia el dato, pero en los otros terminales y en el servidor este cambio no se modifica, y asi hice las pruebas en cada terminal y en el servidor y nada el cambio solo se realiza en la maquina donde hago la modificacion...ya use commit y nada, el cambio no se refleja en las demas. Pero si a la dbf lo abro con el dbu, el cambio si se refleja...\n\nCambie la forma de aperturar las DBF, quite la apertura al principio y hice como lo hacia antes, abrir y cerrar al momento de modificar y los cambio si se reflejan en todas las computadoras...\n\nQue falta hacer, algun comando, funcion, ya que si usaria el ads local los cambios no reflejarian en las demas computadoras, y si seria un sistema grande seria peor ....\n\nDisculpen la extension del post, pero si a alguien le ha ocurrido ...\n\nSalu2\n\nFrancis','',0,'GA==','yycevqh0',1,0,'',760,0,0),(37988,8201,3,1117,0,'125.24.37.201',1190049498,1,0,1,1,1,0,'','','Have no error but preview windows still not maximized.','',0,'GA==','13c5u1oq',1,0,'',1117,0,0),(37989,8209,6,2,0,'87.218.146.166',1190049608,1,0,1,1,1,1,'','','Aoki,\n\nPuedes cambiar las imágenes de los botones en tiempo de ejecución, usando oBtnBmp:SetFile( cBmpFile )','',0,'GA==','oaxwvs98',1,0,'',2,0,0),(37990,8177,6,496,0,'200.107.36.176',1190050291,1,0,1,1,1,0,'','','José Luis,\n\nComo dije, si un solo usuario se conecta al Servidor de Base de Datos(MySQL), no hay problema, el browse del recordset trabaja muy bien realizando actualizaciones, altas o eliminando registros, usando sus respectivos métodos, cuyas modificaciones se reflejan inmediátamente en el Servidor.\n\nPero si 2 o más usuarios usan el mismo recordset y uno de ellos por ejemplo elimina un registro, este cambio no se refleja en el browse del otro usuario, pudiendo este último (que aún lo ve en su browse) tratar de eliminar el que ya no existe en la Base de Datos, haciendo que se genere un error. \n\nLo más fácil sería colocar un botón que ejecute el método Requery, y que el usuario lo ejecutaría cada vez que vaya a realizar un cambio y así tenga la versión más actual de los datos. Pero esto no me parece muy práctico. \n\nEs por eso que yo me inclinaba por el lado de capturar los Errores del Proveedor de OLEDB, para que sólo cuando se genere el error mostrar el mensaje respectivo, y luego hacer un requery o regenerar todo el recordsete. \n\nPor eso va mi pedido a quienes puedan ayudarme y guiarme en este asunto.\n\nDe antemano muchas gracias\nSaludos\n\nMarcelo Jingo','',0,'GA==','1d21sa0k',1,0,'',496,0,0),(37991,8201,3,2,0,'87.218.146.166',1190050733,1,0,1,1,1,1,'','','Fixed. Please download FWH 7.09 again\n\nThanks for your feedback','',0,'GA==','35c37ylp',1,0,'',2,0,0),(37992,8209,6,694,0,'201.86.91.91',1190051624,1,0,1,1,1,1,'','','timagelist - não é possivel fazer isso?','',0,'GA==','22yo5uaw',1,0,'',694,0,0),(37993,8102,6,73,0,'200.23.18.132',1190052347,1,0,1,1,1,0,'','','Probare Antonio, voy a cambiar mi codigo para poner la imagen en el area de cliente, aver como adapto eso,\nGracias\nPaco','',0,'GA==','2fjp0710',1,0,'',73,0,0),(37994,8209,6,2,0,'87.218.146.166',1190054084,1,0,1,1,1,1,'','','Aoki,\n\nNo. Los BtnBmp no usan imagelists','',0,'GA==','1fzwa8oj',1,0,'',2,0,0),(37995,8209,6,694,0,'201.86.91.91',1190054518,1,0,1,1,1,1,'','','antonio e se eu trabalhar com imagens , ou seja a classe TIMAGE, daria para trabalhar com imagelist? se sim tem um exemplo?:','',0,'GA==','2cv5fp1e',1,0,'',694,0,0),(37996,8211,6,867,0,'201.140.184.46',1190056326,1,0,1,1,1,0,'','Condiciones en el listbox','Hola Fivewineros, como estan pues, necesito la ayuda de ustedes, que creo haberlo visto una vez en este foro una imagen con el listbox, con su respectiba condicion de colores no recuerdo de quien fue el que proporciono la rutina o funcion, el caso es que quiero implementarlo en mi programa como muestra en este ejemplo con el listbox, con diferentes colores que cumplan la condicion x Tasa para cada x articulo y asi sucesibamente y se que si se puede, yo no logro dar con mis resultados, alguien me podra echar la mano , por favor se los agradecere mucho \n\nClave	Descripcion  Tasa\n25	x articulo	    10   amarillo\n25	x articulo	    10   amarillo\n25	x articulo       10   amarillo\n32	x articulo	    15   verde\n32	x articulo	    15   verde\n32	x articulo	    15   verde\n24	x articulo	     0    rojo \n24	x articulo	     0    rojo\n24	x articulo	     0   rojo\nmas......\n\nEspero su ayuda y la colaboracion de ustedes amigos fivewineros y un millon de gracias con el codigo o ejemplo para implementarlo en mi programa.\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'GA==','2o0z51lj',1,0,'',867,0,0),(37997,8212,6,694,0,'201.86.91.91',1190057673,1,0,1,1,1,1,'','BTNBMP é possível ajustar uma imagem dentro do botão?','Antonio é possível ajustar uma imagem dentro do botão (BTNBMP)?\n\n\n\nGrato\n\nAoki','',0,'GA==','1vc03kgs',1,0,'',694,0,0),(37998,8212,6,362,0,'200.158.19.77',1190061721,1,0,1,1,1,1,'','','TENTE COM O COMANDO:\n\nADJUST.','',0,'GA==','u84fn2m2',1,0,'',362,0,0),(37999,8210,6,92,0,'213.98.203.200',1190061790,1,0,1,1,1,0,'','Re: OT. Sobre Redes ...','[quote=&quot;Francis&quot;:3r73cu3d]Hola a todos del foro...\n\nBueno vayamos al grano... Hice un modulo con fwh7.04 el cual tengo una ventana mdi un menu con dos opciones, modificary salir, asi como una barra con dos botones con la misma funcion del menu ( modificar y salir ).\nLa dbf se llama ckconfig con un 2 campos llamados nombre y ruc, ambos caracter... hasta aqui todo funciona ok.\nLei que al abrir todas las bases de datos al principio es mas rapido que estar abriendo y cerrando, lo instale al modulo en una red punto a punto con 04 computadoras, 02 con w98 y dos con wxp, hago referencia a uno de las maquinas con w98 como servidor uso el USE \\\\servidor\\c\\sistemas , para acceder de los terminales directamente a la dbf del mudulo ( ckconfig ), aca viene el problema...\nNote que si modifico en una terminal el campo ruc, en el mismo terminal si se cambia el dato, pero en los otros terminales y en el servidor este cambio no se modifica, y asi hice las pruebas en cada terminal y en el servidor y nada el cambio solo se realiza en la maquina donde hago la modificacion...ya use commit y nada, el cambio no se refleja en las demas. Pero si a la dbf lo abro con el dbu, el cambio si se refleja...\n\nCambie la forma de aperturar las DBF, quite la apertura al principio y hice como lo hacia antes, abrir y cerrar al momento de modificar y los cambio si se reflejan en todas las computadoras...\n\nQue falta hacer, algun comando, funcion, ya que si usaria el ads local los cambios no reflejarian en las demas computadoras, y si seria un sistema grande seria peor ....\n\nDisculpen la extension del post, pero si a alguien le ha ocurrido ...\n\nSalu2\n\nFrancis[/quote:3r73cu3d]\n\nPrueba en la computadora que realizastes la modificación haz DBCommit() y desbloquea el registro, y en las computadoras \'cliente\' realiza un Goto( Recno() ).\n\nDebería funcionar.\n\nSaludos\nCarlos G.','',0,'gA==','3r73cu3d',1,0,'',92,0,0),(38000,8209,6,2,0,'87.218.146.166',1190063871,1,0,1,1,1,1,'','','Las imágenes que vas a usar son JPG, ó BMP ? En que formato estan ? Serán ficheros externos ? Estarán en recursos ?','',0,'gA==','2p1ebaib',1,0,'',2,0,0),(38001,8211,6,53,0,'189.139.10.241',1190064069,1,0,1,1,1,1,'','','Susy:\n\nYo utilizo TWbrowse del master HDC y lo hago así\n\n.....\n.....\noLbx:bBkColor := {|nRow,nCol,nStyle| BackColor(nCol,nStyle)}\noLbx:bTextColor := {|nRow,nCol,nStyle| ForeColor(nCol,nStyle)}\n.....\n.....\n\n\nSTATIC FUNCTION BackColor(nCol,nStyle)\nDO CASE\n      CASE nCol == 7\n         IF nStyle == 0 .AND. (cMaterial)-&gt;MAT_SEU &lt; (cMaterial)-&gt;MAT_MDK\n                RETURN(CLR_GREEN)\n         ELSE\n	RETURN(NIL)\n         ENDIF\n.....\n.....\n.....\n\nEn esta función te pongo solo una parte pues mi código es extenso pero con este pequeño ejemplo podras colorear cada una de las columnas, por cierto; la función ForeColor() es exactamente igual.\n\nSaludos','',0,'gA==','t67l23o4',1,0,'',53,0,0),(38002,8177,6,228,0,'190.25.62.207',1190065525,1,0,1,1,1,1,'','','Amigo y por que no simplemente colocas un timer() para que refresque el browse, creo que esto soluciona tu problema.\n\nUn Saludos\n\nLEANDRO ALFONSO','',0,'gA==','3kt6343c',1,0,'',228,0,0),(38003,8137,2,228,0,'190.25.62.207',1190065855,1,0,1,1,1,1,'','tambien me interese..','Amigo a mi tambien me interesa si la puedes compartir sera fabuloso.','',0,'gA==','100r6x5k',1,0,'',228,0,0),(38004,8177,6,496,0,'200.107.36.176',1190068472,1,0,1,1,1,0,'','','Saludos Leandro\n\nSi no puedo capturar los errores desde Harbour, probaré pasándome a xHarbour que allí sí creo que se puede capturarlos usando TRY  CATCH  END. Si eso no funciona trataré de utilizar el TIMER que me recomiendas. Lo que se intenta es que la aplicación consuma menos recursos tanto del equipo como e la red.\n\nSeguiré con mis pruebas y ya les comentaré. Gracias Leandro\n\nMarcelo Jingo','',0,'gA==','1xb26emk',1,0,'',496,0,0),(38005,8177,6,940,0,'189.175.186.174',1190070325,1,0,1,1,1,1,'','','Es necesario un timer\n\ncuando se usa un browse para monitorear los datos,\n\n activate dialog oDlg centered on init ( mitimerOn()  )\n\nstatic function MiTimerOn()\n   DEFINE TIMER oTimer of oDlg   INTERVAL 5000 ACTION TimerAction()\n   activate timer oTimer\nreturn','',0,'gA==','2yjj3hsa',1,0,'',940,0,0),(38006,8210,6,138,0,'200.24.40.34',1190074024,1,0,1,1,1,1,'','','Exacto, te falta el DBCommit()','',0,'gA==','l153vblf',1,0,'',138,0,0),(38007,8213,7,1135,0,'189.136.202.25',1190082156,1,0,1,1,1,1,'','Impresion via IRDA','Amigos del foro:\nDeseo saber cuales son los elementos y el procedimiento para abrir el puerto IRDA, establecer comunicacion con la impresora, enviar los datos a imprimir a la impresora y cerrar el puerto. El entorno del dispositivo es windows mobile 5.0, procesador PXA 270 y la impresora portatil con puerto IRDA .','',0,'gA==','aus29sld',1,0,'',1135,0,0),(38008,8204,3,868,0,'219.64.121.60',1190083052,1,0,1,1,1,1,'','','I am working extensively with large databases on MsSql and Oracle with ADO on high speed LAN and slow speed WAN environments. The question of making browses with large data table is not so easy. Client side cursors ( used by ADORDD) just dont work (Unacceptable long waits till all the data is read from server to the client with very high net work traffic which is highly undesirable). Yes I am talking about tables with around million rows.\n\nOn MSSql I use serverside cursors. They work reasonably fine. But we can not use Absolute position and RecordCount. I make the skipper similar to DBF skipper. Use a precalculated count(*) for total records. I make my data reader class behave on the basis whether the cursor is client side or serverside\n\nOracle is difficult, because Oracle does not provide serverside scrollable cursors.  I employ a trick of reading small chunks of rows into different RecordSets and transparently switch  between the recordsets giving an illusion of a continous browse. ( I am told SQLRDD of xHarbour.Com works gracefully. Yet I failed to make it work on my Oracle server. The SQLRDD is made with OCI rather than ADO)\n\nAnyway for browsing large tables, none to beat Advantage Server.  But most clients insist on oracle or mssql.\n\nBut it is only our fraternity who have roots in DBF and clipper still stick to providing browses. Other software do not provide this luxury to the users. Also the present and future is for webbased three tier architecture and detatched recorsets. They present only very small porttions of the total data, with small grids moving page by page rather than the beautiful scrolling in our browses.  May be we shd chnage our habits of user interfaces.\n\nNageswaraRao\nIndia','',0,'gA==','3lqv4r2g',1,0,'',868,0,0),(38009,8177,6,496,0,'200.107.36.176',1190083090,1,0,1,1,1,0,'','','César y Leandro\n\nHe probado colocando el timer, en efecto funciona ..... peeero, sucede lo que ya esperaba, que apenas si estoy navegando por el browse, este se va a la primera fila, cada intervalo que se ha definido el timer. impidiendo una navegación limpia.\n\nCreo que tendré que implementar un control más riguroso en el recordest, como guardar el número de fila actual y al refrescar volver a la fila gusadada y............ más cosas.\n\nDe todas formas gracias por todo y seguiré probando, es más ya me pasé a xHarbour para probar el control de errores con TRY CATCH.\n\nUn Saludo\n\nMarcelo Jingo','',0,'gA==','qurnpauy',1,0,'',496,0,0),(38010,8201,3,1117,0,'58.8.48.182',1190084538,1,0,1,1,1,0,'','','It work fine,\n\nThank you very much.','',0,'gA==','25ipm3ig',1,0,'',1117,0,0),(38011,8210,6,78,0,'190.43.177.253',1190091140,1,0,1,1,1,0,'','','A ver...\nSi actualizo en una terminal uns DBF, lo usual seria que en las otras terminales, cada x segundos, se realize un \"refresh\".....\nEs decir, en cada Listbox de la aplicacion, hay que colocar un TIMER que cada 5 o 10 segundos, realize un refresh para actualizar los datos que se pudieron actualizar en otra terminal, y claro, al momento de actualizar la DBF, se debe hacer un\"dbcommitall\", para vaciar el buffers y que el dato se escriba en el disco duro-...\n\nSalu2','',0,'gA==','29arwhsd',1,0,'',78,0,0),(38012,8174,3,1157,0,'198.54.202.250',1190101194,1,0,1,1,1,0,'','','Hi Antonio\n\nThanks for your help. I am under some pressure to get some code out, if you think that a fix may take a while, please let me know and I will code an alternate solution without tabs temporarily.\n\nThank you\nAlex','',0,'gA==','1lp385sz',1,0,'',1157,0,0),(38013,8174,3,2,0,'87.218.146.246',1190101718,1,0,1,1,1,1,'','','Alex,\n\nCould you provide us a simpler and smaller sample ? thanks\n\nYour current example has 1301 lines source code and 45003 bytes','',0,'gA==','2jvv4417',1,0,'',2,0,0),(38014,8213,7,2,0,'87.218.146.246',1190105339,1,0,1,1,1,1,'','','Arturo,\n\nHaz una búsqueda en estos foros por IRDA (botón \"search\" arriba) y encontrarás muchos comentarios que se han hecho de ese tema, gracias','',0,'gA==','3uy1c79k',1,0,'',2,0,0),(38015,8204,3,247,0,'193.92.131.194',1190107730,1,0,1,1,1,0,'','thank you both','Thank you both for your suggestions. I found a solution that might be useful . By making some modifications inside the ADORDD.prg I open the recordset with this syntax :\ne.g ORACLE DATABASE \n select rownum absoluteposition,a.* from (select * from &lt;table&gt; order by &lt;order_by&gt;) a\n\nWith this I get a field named absoluteposition with all my recordsets. I replaced the oRS:absoluteposition with oRS:Fields(\"absoluteposition\"):value() and oRS:RecordCount() with a recordset that i open first \ne.g ORACLE DATABASE\nselect count(*) from (select * from &lt;table&gt; order by &lt;order_by&gt;) \n\nSo by replacing the absoluteposition and recordcount i can browse records with server side cursor location .\n\nAny thoughts about my reply would be appreciated \n\nSorry for my English .\nThank you\nA.S.K','',0,'gA==','uplwfn7t',1,0,'',247,0,0),(38016,8209,6,694,0,'201.86.91.91',1190113140,1,0,1,1,1,1,'','','serão BITMAPS ou JPGS Antonio, e serão ficheiros externos!\n\nAntonio, preciso criar uma tela como a imagem acima, ou seja:\n\n\nEm uma dialog, preciso colocar um teclado um browse com GRUPOS, e destes grupos montar do lado os produtos representados pela suas imagens, antonio já tentei tudo  TWBROWSE, TSBROWSE, BTNBMP e não estou conseguindo:\n\n\nTWBROWSE - Imagem gerada de baixa qualidade\nTSBROWSE - Imagem não ajusta ao tamanho da celula.\nBTNBMP     - Imagem não ajusta ao tamanho da celula.\n\n\nAntonio, me ajuda, não é possível que uma ferramenta maravilhosa como o FWH não tenha este recurso.\n\nGrato\nAoki','',0,'gA==','2g5t1661',1,0,'',694,0,0),(38017,8212,6,694,0,'201.86.91.91',1190113172,1,0,1,1,1,1,'','','Não funciona!','',0,'gA==','3o2orf0d',1,0,'',694,0,0),(38018,8212,6,2,0,'87.218.146.246',1190113621,1,0,1,1,1,1,'','','Aoki,\n\nModifica el código fuente de la clase TBtnBmp método Paint','',0,'gA==','oswekd4u',1,0,'',2,0,0),(38019,8214,3,130,0,'141.51.32.24',1190113837,1,0,1,1,1,1,'','Folder header with bitmaps','Dear friends,\n\nthe sample Testfold.prg is not working, if I try to put bitmaps in the headers of the folder. The bitmaps are not shown.\n\n[code:2doil5no]\n//Testfold&#46;prg\n\nDEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n\n   REDEFINE FOLDER oFld ID 110 OF oDlg ;\n      PROMPT &quot;CA-Cli&amp;pper&quot;, &quot;&amp;and&quot;, &quot;&amp;Windows&quot;, &quot;&amp;Magic&quot; ;\n      DIALOGS &quot;Sub1&quot;, &quot;Sub2&quot;\n\nACTIVATE DIALOG oDlg CENTERED ;\n      VALID MsgYesNo&#40; &quot;Want to end ?&quot; &#41; ;\n       ON INIT SetImages&#40; oDlg, oFld &#41;\n\nreturn nil\n\nfunction SetImages&#40; oDlg, oFld &#41;\n\n   local oImageList\n   \n   DEFINE IMAGELIST oImageList SIZE 16, 16\n   \n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;new&quot;,,    oDlg &#41;, nRGB&#40; 192, 192, 192 &#41; &#41;    \n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;open&quot;,,   oDlg &#41;, nRGB&#40; 192, 192, 192 &#41; &#41;    \n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;search&quot;,, oDlg &#41;, nRGB&#40; 192, 192, 192 &#41; &#41;    \n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; &quot;print&quot;,,  oDlg &#41;, nRGB&#40; 192, 192, 192 &#41; &#41;    \n   \n   oFld&#58;SetImageList&#40; oImageList &#41;\n    //oFld&#58;SetPadding&#40; 2, 5 &#41;\n    //oFld&#58;SetItemSize&#40; 300, 18 &#41;   \n   \nreturn nil   \n\n[/code:2doil5no]\n\nWhy does it not work ?','',0,'AIA=','2doil5no',1,0,'',130,0,0),(38020,8215,3,868,0,'219.64.121.60',1190114862,1,0,1,1,1,1,'','ARRAY RDD','I remember to have read that array rdd is available. Can any one help me where can i get it please?\n\nNageswara Rao','',0,'AIA=','3b1yand8',1,0,'',868,0,0),(38021,8204,3,868,0,'219.64.121.60',1190115324,1,0,1,1,1,1,'','','Still this is a clientside recordset. ROWNUM of Oracle gives numbers from 1 onwards for the rows returned. Same values as ADO absolute position. When we use ADO we dont need to use ROWNUM. (Note: Rownum helps only to know the order in which we read oringally after we sort or filter rows in ADO on clientside. That is the only benefit.)\n\nIf you are planning to use the above syntax for a serversde cursor, the problem with oracle is it is a forward only cursot. You can not navigate backwards. For a browse the cursor should be scrollable. (Possible with MSSQL)\n\nWe are now considering how to browse a table of say million or more rows. We cant use a select statment to return all the rows.\n\nI shall describe the problem more clearly and possible solutions for discussion / comments in my next post.','',0,'AIA=','1l1e29ji',1,0,'',868,0,0),(38022,8174,3,1157,0,'198.54.202.250',1190115849,1,0,1,1,1,0,'','','Hi Antonio\n\nI have reviewed everything you have said again, and it now does not hang and the groups do not obscure the other data. The code below demonstrates the remaining problems.\n\nThis is folder.prg with your fix applied (correctly I hope - see TFixFolder), and some extra controls.\n\nIt demonstrates the same problem originally reported with the folder, group boxes do not look good, radio buttons look terrible, and the normal button had a strange frame.\n\nThe original fix as shown here does not actually do anything, I had to comment out the two lines:\n[quote:vz66g5a9]if IsAppThemed()\nendif[/quote:vz66g5a9]\nand then it did something, but it was worse.\n\nRegards\nAlex\n\n[code:vz66g5a9]\n\n#include &quot;fivewin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oFld\n   local oGet, cGet &#58;= &quot;     &quot;\n   local oGroup\n   local oSay, cSay &#58;= &quot;Say buddy&quot;\n    local oRadio, nRadio &#58;= 1\n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ;\n      FROM 5, 5 TO 30, 49\n\n   /*@ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n      OF oDlg SIZE 160, 90*/\n            // This fix does not seem to help\n   oFld &#58;= TFixFolder&#40;&#41;&#58;New&#40; 0&#46;5, 1, &#123;&quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot;&#125;, &#123;&#125;, oDlg,,,, &#46;F&#46;, &#46;F&#46;, 160, 160,, &#46;F&#46;, &#41;\n\n    // Comment this line to get proper Folder colour\n   @ 0, 1 GROUP oGroup TO 9, 15 OF oFld&#58;aDialogs&#91; 1 &#93;\n\n   @ 1, 2 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ;\n     ACTION MsgInfo&#40; &quot;Hello world!&quot; &#41;\n\n    // Comment this line to get proper Folder colour\n   @ 3, 2 GET oGet VAR cGet OF oFld&#58;aDialogs&#91; 1 &#93;\n\n   @ 4, 2 SAY oSAY VAR cSAY OF oFld&#58;aDialogs&#91; 1 &#93;\n\n    // If get commented this looks sort of ok, otherwise really bad\n    @ 6, 2 RADIO oRadio VAR nRadio ITEMS &quot;radio 5&quot; OF oFld&#58;aDialogs&#91; 1 &#93;\n\n   @ 9&#46;5, 11 BUTTON &quot;Ok&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nprocedure AppSys // Xbase++ requirement\n\nreturn\n\n#define FD_TABMARGIN        40\n\nCLASS TFixFolder INHERIT TFolder\n\n    METHOD Default&#40;&#41;\n\n    METHOD LoadPages&#40; aResNames, bRedefineControls &#41;\n\nENDCLASS\n\n\nMETHOD Default&#40;&#41; CLASS TFixFolder\n\n   local nLen &#58;= Len&#40; &#58;&#58;aPrompts &#41;, n\n   local oDlg\n   local nHeight &#58;= &#58;&#58;nFdHeight\n\n   #ifndef __CLIPPER__\n      nHeight *= TabGetRowCount&#40; &#58;&#58;hWnd &#41;\n   #endif\n\n   if nLen &gt; 0\n      if &#58;&#58;lAllWidth\n         &#58;&#58;nTabSize = int&#40; &#58;&#58;nWidth&#40;&#41; / nLen &#41;\n      else\n         &#58;&#58;nTabSize &#58;= 0\n         for n = 1 to nLen\n            &#58;&#58;nTabSize = Max&#40; &#58;&#58;nTabSize, ;\n                              int&#40; GetTextWidth&#40; 0, &#58;&#58;aPrompts&#91;n&#93;, ;\n                              &#58;&#58;oFont&#58;hFont &#41; + FD_TABMARGIN &#41; &#41;\n         next n\n         &#58;&#58;nTabSize = Min&#40; &#58;&#58;nTabSize, int&#40; &#58;&#58;nWidth&#40;&#41; / nLen &#41; &#41;\n      endif\n   else\n      &#58;&#58;nTabSize = &#58;&#58;nWidth&#40;&#41;\n   endif\n\n   for nLen = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      oDlg = &#58;&#58;aDialogs&#91; nLen &#93;\n\n     #ifdef __CLIPPER__\n         ACTIVATE DIALOG oDlg NOWAIT ;\n            ON INIT &#40; oDlg&#58;Move&#40; nHeight + 2, 3 &#41; &#41; ;\n            VALID &#46;f&#46;                // to avoid exiting pressing Esc !!!\n      #else\n         if ChildLevel&#40; &#58;&#58;oWnd, TDialog&#40;&#41; &#41; == 1\n            if ! &#58;&#58;oWnd&#58;lResize16\n               ACTIVATE DIALOG oDlg NOWAIT ;\n                  ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ;\n                  VALID &#46;f&#46;                // to avoid exiting pressing Esc !!!\n            else\n               ACTIVATE DIALOG oDlg NOWAIT ;\n                  ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ;\n                  VALID &#46;f&#46; RESIZE16       // to avoid exiting pressing Esc !!!\n            endif\n         else\n            ACTIVATE DIALOG oDlg NOWAIT ;\n               ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ;\n               VALID &#46;f&#46;                   // to avoid exiting pressing Esc !!!\n         endif\n      #endif\n\n      #ifndef __CLIPPER__\n         //if IsAppThemed&#40;&#41;\n            // oDlg&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41;\n            //if Empty&#40; oDlg&#58;oBrush&#58;hBitmap &#41;\n               oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n            //endif\n         //endif\n      #endif\n\n      oDlg&#58;Hide&#40;&#41;\n   next\n\n   if Len&#40; &#58;&#58;aDialogs &#41; &gt; 0\n      if &#58;&#58;nOption &lt;= Len&#40; &#58;&#58;aDialogs &#41;\n         &#58;&#58;aDialogs&#91; &#58;&#58;nOption &#93;&#58;Show&#40;&#41;\n      endif\n   endif\n\nreturn nil\n\n\nMETHOD LoadPages&#40; aResNames, bRedefineControls &#41; CLASS TFixFolder\n\n   local n, oDlg\n   local oThis &#58;= Self\n\n   &#58;&#58;DelPages&#40;&#41;\n\n   &#58;&#58;aPrompts = aResNames\n   &#58;&#58;aDialogs = Array&#40; Len&#40; aResNames &#41; &#41;\n\n   for n = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      DEFINE DIALOG oDlg OF Self RESOURCE aResNames&#91; n &#93; ;\n         FONT Self&#58;oFont\n\n      &#58;&#58;aDialogs&#91; n &#93; = oDlg\n\n      if bRedefineControls != nil\n         Eval&#40; bRedefineControls, Self, n &#41;\n      endif\n\n      ACTIVATE DIALOG oDlg NOWAIT ;\n         ON INIT &#40; oDlg&#58;Move&#40; oThis&#58;nFdHeight + 2, 3, oThis&#58;nWidth - 6, oThis&#58;nHeight - oThis&#58;nFdHeight - 5 &#41; &#41; ;\n         VALID &#46;f&#46;                // to avoid exiting pressing Esc !!!\n\n      #ifndef __CLIPPER__\n         //if IsAppThemed&#40;&#41;\n            // oDlg&#58;SetBrush&#40; TBrush&#40;&#41;&#58;New&#40; &quot;NULL&quot; &#41; &#41;\n            //if Empty&#40; oDlg&#58;oBrush&#58;hBitmap &#41;\n               oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n            //endif\n         //endif\n      #endif\n\n      oDlg&#58;Hide&#40;&#41;\n   next\n\n   &#58;&#58;nOption = 1\n   &#58;&#58;aDialogs&#91; 1 &#93;&#58;Show&#40;&#41;\n\nreturn nil\n\n\n[/code:vz66g5a9]','',0,'gIA=','vz66g5a9',1,0,'',1157,0,0),(38023,8191,3,1058,0,'60.51.59.67',1190116321,1,0,1,1,1,1,'','','Thank you,\n\n\n\n\nDominic Charles','',0,'gIA=','3816l9ea',1,0,'',1058,0,0),(38024,8212,6,694,0,'201.86.91.91',1190118243,1,0,1,1,1,1,'','','Desulpe-me Antonio, mais não tenho experiência para fazer tal alteração, usted poderia indicar a alteração necessaria?\n\n\nGrato\n\nAoki','',0,'gIA=','3fjfgo4c',1,0,'',694,0,0),(38025,8213,7,138,0,'200.24.40.34',1190122953,1,0,1,1,1,1,'','','No es posible hacerlo directamente via FWPPC, yo lo hago mediante un programa externo.','',0,'gIA=','3kxqudte',1,0,'',138,0,0),(38026,8210,6,138,0,'200.24.40.34',1190123266,1,0,1,1,1,1,'','','Efectivamente, el cambio se hace, pero no sera visible por las terminales hasta que refresques el browse correspondiente, o bien pases la barra de seleccion del browse sobre el registro modificado.','',0,'gIA=','2e2e82uz',1,0,'',138,0,0),(38027,8216,6,1104,0,'190.55.55.200',1190124875,1,0,1,1,1,0,'','Refrescar imagen','Hola a todos \n\nEstoy cargando una imagen en un dialogo creado con workshop pero cuando cambio el archivo no se actualiza.\nAlguien sabe porque puede ser?\n\nLo estoy haciendo así.\n\nREDEFINE BITMAP oBmp ID 100 OF oDlg FILE Archivo ADJUST UPDATE\n\n...\n\n\nLa variable Archivo la cargo con la funcion con un boton en el dialogo donde redefino el bmp.\nFunction SelFile(oBmp,Archivo)\nArchivo:= cGetFile32(\"BMP   | *.bmp\",\"Seleccione un archivo\",1,,,.T.)\n\noBmp:Refresh()\nReturn nil\n//\n\nSi yo grabo el Path del archivo cierro el dialogo y lo vuelvo a abrir se ve la imagen cargada.','',0,'gIA=','522zk0bo',1,0,'',1104,0,0),(38028,8217,2,934,0,'189.158.172.128',1190125425,1,0,1,0,1,0,'','Abrir base de datos de otra carpeta','Hola que tal, tengo un problema para abrir una base de datos que se encuentra localizada en una carpeta diferente a la del ejecutable, en total abro cuatro bases de datos utilizando el mismo proceso, pero en la ultima me manda un error \"BASE/1002  Alias does not exist: BODEGA\", aqui esta parte del codigo:\n\nFUNCTION EXPORTAR(N,C,D)\n   local cvar:=space(255)\n    PUBLIC cruta4,CRUTA5,CRUTA6,CRUTA7\n   if msgyesno(\"Desea exportar los datos para traspaso a otro punto?\",\"EXPORTAR DATOS\") \n        selpunto(@cvar)\n        cvar:=alltrim(cvar)\n        \n        cruta4:=cvar + \"ENTRADAS.DBF\"\n        CRUTA5:=CVAR + \"ENTDET.DBF\"\n        CRUTA6:=CVAR + \"TARJETAS.DBF\"\n        CRUTA7:=CVAR + \"BODEGA.DBF\"\n        SVTRASDT(@n,cRuta5,CRUTA6)   //funciona bien\n        SVTRASEN(@n, @c,@d,cRuta4)     //funciona bien\n        TRASBODE(@d,CRUTA7)    //no funciona bien\n                    \n   ENDIF\nRETURN NIL\n\n// Aqui esta la funcion donde no me abre la base de datos\n// ya verifique que la ruta este correcta\n// y si la abro via \"dbfntx\" no me manda ningun error, pero\n// no me indexa los datos\nFUNCTION TRASBODE(d,CRUTA7)\n  \n   	USE (cRuta7) ALIAS \"BODEGT\" //via \"dbfntx\" SHARED NEW \n	WHILE NETERR()\n	    USE (cRuta7) ALIAS \"BODEGT\" //via \"dbfntx\" SHARED NEW\n	end while\n	    msginfo(bodegt-&gt;id)\n	INDEX ON BODEGT-&gt;ID TAG ID TO BODEGT\n	    \n	SET ORDER TO TAG ID IN BODEGT\n	msginfo(bodegt-&gt;id)    \n	COMAR2-&gt;(DBGOTOP())\n	WHILE !COMAR2-&gt;(EOF()) \n	    \n		IF BODEGT-&gt;(DBSEEK(COMAR2-&gt;CLAVE))\n		    MSGINFO(BODEGT-&gt;ID)\n			BODEGT-&gt;(RLOCK())\n				BODEGT-&gt;CANTIDAD += COMAR2-&gt;CANT\n				IF BODEGT-&gt;COSTO&lt;&gt; COMAR2-&gt;COSTO \n				    BODEGT-&gt;COSTO := COMAR2-&gt;COSTO\n				    BODEGT-&gt;P_PUB := COMAR2-&gt;PREC\n                ENDIF\n               BODEGT-&gt;ULT_ENT := d[1]\n			BODEGT-&gt;(DBCOMMIT())\n		    BODEGT-&gt;(DBUNLOCK())\n		ENDIF\n		COMAR2-&gt;(DBSKIP())\n	END WHILE\n	BODEGT-&gt;(DBCLOSEAREA())\n    \nreturn nil    \n        \nEspero que me puedan ayudar, gracias!','',0,'','2ppclyxc',1,0,'',934,0,0),(38030,8216,6,316,0,'213.97.245.163',1190127318,1,0,1,1,1,0,'','','No es suficiente con el refresh del bitmap, ni se va a enterar automaticamente de que Archivo tenga otro valor.\nAntes del refresh llama a SetBMP( Archivo ) o Reload(, Archivo )\n\nCarlos','',0,'','2ehd72hx',1,0,'',316,0,0),(38031,8218,3,1154,0,'217.37.54.49',1190129274,1,0,1,1,1,0,'','Password Fields','Hi,\n\nI have a GET that is created from a resource file and is set as a password field.\n\nIs there any way to change the character that is used to mask the password?\nCurrently it uses a fat pipe character (like \"|\" but thicker!).\nIdeally I would like it to use the Windows default mask.\n\nDoes anyone know if this is possible?\n\nKind regards,\n\nBarry O\'Brien\n\nP.S. Is it possible to add screenshots to my post without having to link to an external URL?','',0,'','35pod62j',1,0,'',1154,0,0),(38032,8218,3,456,0,'217.127.39.57',1190130455,1,0,1,1,1,1,'','','Try to use TAHOMA font, and will look like winXp password style.','',0,'','zlx1wup8',1,0,'',456,0,0),(38033,8216,6,1104,0,'190.55.55.200',1190130869,1,0,1,1,1,0,'','','Carlos gracias por tu ayuda\n\nLo probé asi\n\nFunction SelFile(oBmp,Archivo) \nArchivo:= cGetFile32(\"BMP | *.bmp\",\"Seleccione un archivo\",1,,,.T.) \n\noBmp:SetBMP( Archivo )    // Solo este una vez\noBmp:Reload( , Archivo )   // Solo este una vez\noBmp:Refresh() \nReturn nil \n\nTambién probé con ambos al mismo tiempo y no ha funcionado.\nPorque puede ser?\nDesde ya muchas gracias.','',0,'','x3nuzirb',1,0,'',1104,0,0),(38034,8219,6,18,0,'200.67.188.236',1190131714,1,0,1,1,1,1,'','OT : Funciones para Comm','Saludos a todos.\n\nAlguien me podría explicar como puedo manejar las funciones para puertos Comm\n\nMuchas gracias por adelantado.','',0,'','103kfevu',1,0,'',18,0,0),(38035,8219,6,362,0,'200.148.67.84',1190133010,1,0,1,1,1,1,'','Re: OT : Funciones para Comm','[quote=&quot;Vikthor&quot;:343g3cv2]Saludos a todos.\n\nAlguien me podría explicar como puedo manejar las funciones para puertos Comm\n\nMuchas gracias por adelantado.[/quote:343g3cv2]\n\n\nUSE A HBCOMM.LIB','',0,'gA==','343g3cv2',1,0,'',362,0,0),(38036,8219,6,439,0,'200.125.46.170',1190133337,1,0,1,1,1,1,'','Re: OT : Funciones para Comm','[quote=&quot;karinha&quot;:3p2ko546][quote=&quot;Vikthor&quot;:3p2ko546]Saludos a todos.\n\nAlguien me podría explicar como puedo manejar las funciones para puertos Comm\n\nMuchas gracias por adelantado.[/quote:3p2ko546]\n\n\nUSE A HBCOMM.LIB[/quote:3p2ko546]\n\nUsando HBComm el tema es que hay que depurar alguna basurilla que aparece en la captura.\n\nYo lo hago así:\n\nxTara:=Captura(oBtn1)\n\nFuncion captura:\n[code:3p2ko546]\nFUNCTION Captura&#40;oBtn1&#41;\n	Local 	tmpbuf &#58;= &quot;&quot;, cPeso, nPeso, i, TxtCap, ;\n				f_Com       &#58;= &quot;COM1&quot;, ;\n   				f_BaudeRate &#58;= 9600  , ;\n   				f_databits  &#58;= 8     , ;\n   				f_parity    &#58;= 0     , ;\n   				f_stopbit   &#58;= 1     , ;\n   				f_Buff      &#58;= 5\n  //abro el puerto\n  IF !Init_Port&#40; f_Com, f_BaudeRate , f_databits , f_parity ,f_stopbit , f_Buff  &#41;\n  	MsgInfo&#40;&quot;El Puerto No se ha conectado!&quot;,&quot;PROBLEMA TECNICO&quot;&#41;\n  ENDIF\n  //Capturo\n	FOR I=1 to f_Buff\n		txtcap&#58;=InChr&#40;i&#41;\n		TxtCap&#58;=SacoBasura&#40; TxtCap &#41;\n		TmpBuf+= TxtCap\n	NEXT\n	//cierro puerto\n	UnInt_Port&#40;&#41;\n	cPeso&#58;=Substr&#40;tmpbuf, At&#40;StrCtrl, tmpbuf&#41;, 8&#41;																// aca es donde salteo carater de control\n	cPeso&#58;=IF&#40; at&#40; StrCtrl, cPeso &#41;=0, &quot;REPETIR&quot;, cPeso&#41;												// \\/\n	If&#40;cPeso=&quot;REPETIR&quot;, &#40; oBtn1&#58;SetFocus&#40;&#41;, MsgInfo&#40;cPeso&#41;, nPeso&#58;=0 &#41;, npeso&#58;=Val&#40; Substr&#40;cPeso,2,6&#41; &#41; &#41;\nRETURN nPeso[/code:3p2ko546]\n\nFUNCION  depuradora de la captura (para sacar basura)\n\n[code:3p2ko546]\nFunction SacoBasura&#40;cstring&#41;\n	local astr&#58;=Array&#40;Len&#40;cstring&#41;&#41;, str&#58;=&quot;&quot;,nstr&#58;=0, i&#58;=0\n	for i=1 to len&#40;cstring&#41;\n		astr&#91;i&#93;&#58;=Substr&#40;cstring, i, 1&#41;\n	NEXT i\n	for i=1 to len&#40;cstring&#41;\n		if &#40; Asc&#40;astr&#91;i&#93;&#41;&gt;=48 &#46;and&#46; Asc&#40;astr&#91;i&#93;&#41;&lt;=57&#41; &#46;or&#46; astr&#91;i&#93;=StrCtrl // &#46;or&#46; astr&#91;i&#93;=&quot;+&quot; \n			str+=astr&#91;i&#93;\n		endif\n	next i\nRETURN STR[/code:3p2ko546]\n\nPuedes obtenerla en el foro de utilidades\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3738\">http://fivetechsoft.com/forums/viewtopic.php?t=3738</a><!-- m -->\no en mi host:\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/sa6rse88cq\">http://www.box.net/shared/sa6rse88cq</a><!-- m -->\n\nEspero que te sea de utilidad','',0,'gIA=','3p2ko546',1,0,'',439,0,0),(38037,8220,6,1146,0,'87.223.165.162',1190133779,1,0,1,1,1,0,'','diseñador visual de facturas','Hola:\n\nNecesito implementar un diseñador visual de facturas, para poder permitir al usuario adaptar el formato de las mismas, permitiendole mover los campos, establecer la fuente, etc.\n\nHe probado Easyreport y la pega que le veo es que el IDE es muy inestable, el soporte pésimo y no incluye el código fuente. También estamos considerando Crystal Reports.\n\nMe gustaría saber si alguien tiene algo en venta, para Harbour y con el código fuente. Los interesados podéis contactarme en privado en  \n\nMuchas gracias. Salu2,\n\nMoisés','b62cc6359cc4b461acb852c029e96f8a',0,'','a7gn66th',1,1476806885,'',1146,2,0),(38038,8219,6,18,0,'200.67.188.236',1190134163,1,0,1,1,1,1,'','Re: OT : Funciones para Comm','Gracias Jose :\n\nLa gran duda que tengo , son los valores que devuelve, me podrías dar una breve explicación.','',0,'gIA=','2on7xqji',1,0,'',18,0,0),(38039,8221,3,1146,0,'87.223.165.162',1190134169,1,0,1,1,1,0,'','visual invoince designer','Hi,\n\nWe need to incorporate a visual invoice designer, allowing the user to modify the format, change sze, fonts, ...\n\nI have tried Easyreport but we find important objections, such as the IDE is not stable, the support is too bad and it does not include the source code. Also, we are considering Crystal Reports.\n\nBut I would like to know if someone has this routine on sale, for Harbour and with the source code. For further details, I can be contacted at . \n\nThank you!. Regards,\n\nMoisés','7242368d74bd94b5501cdeb2a144e080',0,'','24uo0l3p',1,1476806989,'',1146,2,0),(194748,33070,3,213,0,'98.196.78.127',1476808490,1,0,1,1,1,1,'','Re: C wrapper help','Cristobal:\n\nThank you for your reply.   Still getting the same error.\n\nxLINK: error: Unresolved external symbol \'_SmsGetProvider referenced from (Testsms.obj)\'.\n\nThanks,\nRandal','52a67fa21d80701fc72fbf021a744c2e',0,'','188v1qnw',1,0,'',0,0,0),(38040,8216,6,1146,0,'87.223.165.162',1190134344,1,0,1,1,1,0,'','','Añade oDlg:Update()\n\ny en el redefine bitmap UPDATE','',0,'gIA=','3enzyc99',1,0,'',1146,0,0),(38041,8218,3,1146,0,'87.223.165.162',1190134493,1,0,1,1,1,0,'','','Why don´t you add xp themes support to your .rc?\n\n#ifdef __FLAT__\n   1 24 \".\\WinXP\\WindowsXP.Manifest\"\n#endif','',0,'gIA=','3boqr4zk',1,0,'',1146,0,0),(38042,8215,3,6,0,'82.57.160.94',1190135270,1,0,1,1,1,1,'','Re: ARRAY RDD','It is in the xHarbour CVS:\n\nsource\\rdd\\usrrdd\\rdds\\arrayrdd.prg\n\nEMG','',0,'gIA=','3fkltng0',1,0,'',6,0,0),(38043,8219,6,362,0,'200.148.67.84',1190136412,1,0,1,1,1,1,'','Re: OT : Funciones para Comm','[quote=&quot;Vikthor&quot;:ag0yotje]Gracias Jose :\n\nLa gran duda que tengo , son los valores que devuelve, me podrías dar una breve explicación.[/quote:ag0yotje]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=606\">http://www.fivewin.com.br/exibedicas.asp?id=606</a><!-- m -->','',0,'gA==','ag0yotje',1,0,'',362,0,0),(38044,8219,6,18,0,'200.67.188.236',1190137048,1,0,1,1,1,1,'','Re: OT : Funciones para Comm','[quote=&quot;karinha&quot;:2nuqf0h4][quote=&quot;Vikthor&quot;:2nuqf0h4]Gracias Jose :\n\nLa gran duda que tengo , son los valores que devuelve, me podrías dar una breve explicación.[/quote:2nuqf0h4]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=606\">http://www.fivewin.com.br/exibedicas.asp?id=606</a><!-- m -->[/quote:2nuqf0h4]\n\n\nGracias <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2nuqf0h4',1,0,'',18,0,0),(38045,8222,6,362,0,'200.148.67.84',1190137276,1,0,1,1,1,1,'','Como eliminar este erros al compilar?','Buenas amigos, como hago para eliminar estes tipos de errores al compilar??\n\n_stddef.h(20) Error F0026  Parse error in constant expression \'(\"0\" )\'\n\n\nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'BTNDOWN.prg\' and generating preprocessed output to \'BTNDOWN.ppo\'...\n\nLines 99, Functions/Procedures 5\nGenerating C source output to \'BTNDOWN.c\'...\nDone.\nCompiling \'BTNDOWN.C\' and generating preprocessed output to \'BTNDOWN.ppo\'...\n\n_stddef.h(20) Error F0026  Parse error in constant expression \'(\"0\" )\'','',0,'gA==','2m0ka5ed',1,0,'',362,0,0),(38046,8223,3,694,0,'201.86.91.91',1190137579,1,0,1,1,1,1,'','show image !','My friends what work images:\n\nComo trabalhar com imagens assim:\n\n<!-- m --><a class=\"postlink\" href=\"http://img405.imageshack.us/img405/1643/restaurantenw4.jpg\">http://img405.imageshack.us/img405/1643 ... ntenw4.jpg</a><!-- m -->','',0,'gA==','1s29q745',1,0,'',694,0,0),(38047,8216,6,1104,0,'190.55.55.200',1190137953,1,0,1,1,1,0,'','','Gracias Moises\n\nProbé lo que me recomendaste pero sigue sin funcionar.\n\nSaludos.','',0,'gA==','1ofpcdpo',1,0,'',1104,0,0),(38048,8216,6,694,0,'201.86.91.91',1190139293,1,0,1,1,1,1,'','','readbimap(0,\"caminho\")','',0,'gA==','340jdxfj',1,0,'',694,0,0),(38049,8216,6,53,0,'189.139.18.76',1190141031,1,0,1,1,1,1,'','','Ojeda:\n\nMira qué es lo que te devuelve la función cGetFile32(), posiblemente sea problema de rutas o nombres largos.\n\nMsgInfo(Archivo)\n\n\nSaludos','',0,'gA==','23y24tpk',1,0,'',53,0,0),(38050,8224,3,161,0,'81.83.249.31',1190141590,1,0,1,1,1,0,'','Lock dialog in window','Hi,\n\nNow I\'m opening a main window. Then a small dialog with project\'s is displayed. After selecting a project, a dialog that is resized to the full screen is opened. Now it\'s posible to move the dialog. I was wondering if there is a possibility that the dialog is \'locked\' in the window, so the customer can\'t move the dialog.\n\nThanks,\nMarc','',0,'gA==','2vom2k8e',1,0,'',161,0,0),(38051,8223,3,2,0,'87.218.146.246',1190142057,1,0,1,1,1,1,'','','Aoki,\n\nIf you want the bitmaps to cover all the area, then use TBitmap controls','',0,'gA==','3k0uqsmd',1,0,'',2,0,0),(38052,8216,6,1104,0,'190.55.55.200',1190144310,1,0,1,1,1,0,'','','Gracias a todos por su ayuda.\n\nYa logré solucionar el problema de la siguiente manera\n\n[code:3dwxdov1]Function SelFile&#40;oBmp,Foto,oDlg1&#41;\nFoto&#58;= cGetFile32&#40;&quot;BMP | *&#46;bmp&quot;,&quot;Seleccione un archivo&quot;,1,,,&#46;T&#46;&#41;\noBmp&#58;SetBMP&#40;&quot;&quot;,Foto&#41;\noBmp&#58;Reload&#40;&quot;&quot;,Foto&#41;\noBmp&#58;Refresh&#40;&#41;\noDlg1&#58;Update&#40;&#41;\noDlg1&#58;Refresh&#40;&#41;\nReturn nil\n//\n[/code:3dwxdov1]\n\ny en el dialogo redefino el get de la siguiente forma:\n\n[code:3dwxdov1]\n   REDEFINE BITMAP oBmp ID 106 OF oDlg1 FILE Foto ADJUST UPDATE\n   REDEFINE BTNBMP Btn1 ID 107 OF oDlg1 RESOURCE &quot;FLOPPY&quot; LEFT;\n      ACTION SelFile&#40;oBmp,@Foto,oDlg1&#41;\n[/code:3dwxdov1]\ny funciona perfectamente. La imagen se refresca en el momento.\nGracias a todos.','',0,'AIA=','3dwxdov1',1,0,'',1104,0,0),(38053,8177,6,123,0,'217.125.216.215',1190144351,1,0,1,1,1,1,'','','Marcelo,\n\n¿Puedes mostrarnos cómo creas el recordset?\n¿Contra cual base de datos?\n¿Cual proveedor usas?','',0,'AIA=','16gt1qhk',1,0,'',123,0,0),(38054,8224,3,6,0,'82.57.160.94',1190144705,1,0,1,1,1,1,'','Re: Lock dialog in window','You could make a dialog without caption:\n\n[code:1uejbxde]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg;\n           STYLE DS_MODALFRAME | WS_POPUP | WS_DLGFRAME | WS_SYSMENU\n\n    @ 2, 2 BUTTON &quot;&amp;Close&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1uejbxde]\n\nEMG','',0,'AIA=','1uejbxde',1,0,'',6,0,0),(38055,8213,7,123,0,'217.125.216.215',1190144946,1,0,1,1,1,1,'','','Arturo,\n\nMira por aquí.... [url:3vit2sep]http&#58;//www&#46;pocketpcdn&#46;com/articles/irda&#46;html[/url:3vit2sep]','',0,'EA==','3vit2sep',1,0,'',123,0,0),(38056,8042,6,945,0,'217.216.162.91',1190149402,1,0,1,1,1,0,'','','Muy buenas, he creado Createdirectory en la clase tftp.prg pero sigue sin crearme el directorio, enseñarme un ejemplo que tengais por ahi para ver en que me estoy equivocando.\n\nUn Saludo.','',0,'EA==','2jjmulc5',1,0,'',945,0,0),(38057,8220,6,940,0,'189.175.181.123',1190153804,1,0,1,1,1,1,'','','Moises,,\n\na lo mejor es poco PRO lo que yo hago\n\npero hace años un colega me dio esta idea,\n\n<!-- m --><a class=\"postlink\" href=\"http://img259.imageshack.us/img259/9418/configfacturaij9.jpg\">http://img259.imageshack.us/img259/9418 ... uraij9.jpg</a><!-- m -->\n[/img]\n\n\npero asi me ha funcionado en culquier formato de factura,\n\nusando tprinter y CmSay()\n\nsaludos..','',0,'','17r870ej',1,0,'',940,0,0),(38058,8220,6,255,0,'201.122.36.212',1190154458,1,0,1,1,1,1,'','','Asi mismo lo hacia yo!!!!','',0,'','1whuw1t3',1,0,'',255,0,0),(38059,8218,3,86,0,'81.83.151.142',1190158854,1,0,1,1,1,1,'','','Barry,\n\nWhy don\'t you use this :\n\n[code:28rfzkx1]REDEFINE oGET VAR cPassw ID 101 of oDlg PICTURE &quot;!!!!!!&quot;\noGET&#58;lPassWord &#58;= &#46;T&#46;\n[/code:28rfzkx1]\n\nIf you type in the password, only asterisks will appear.\n\nGood luck.','',0,'AIA=','28rfzkx1',1,0,'',86,0,0),(38060,8177,6,496,0,'200.107.36.176',1190165409,1,0,1,1,1,0,'','','Gracias José Luis, César y Leandro.\n\nCon el apoyo de todos ya lo he solucionado y me funciona perfecto. La solución fue colocar el timer y controlando los posibles errores que podemos encontrar en la navegación.\n\nGracias de nuevo.\n\nMarcelo Jingo','',0,'AIA=','y54wzmxn',1,0,'',496,0,0),(38061,6815,6,800,0,'201.24.203.204',1190166459,1,0,1,1,1,0,'','','Alguem sabe se ja esta funcionando com o Postgres ?\n\nGrato !\nGilberto','',0,'AIA=','3se3jb8b',1,0,'',800,0,0),(38062,8224,3,161,0,'213.119.247.12',1190187347,1,0,1,1,1,0,'','','Enrico,\n\nIt work if you I creating it from source, but if I create it from resource I always get the title-bar.\n\nMarc','',0,'AIA=','2tjxh0xo',1,0,'',161,0,0),(38063,8214,3,130,0,'141.51.32.24',1190187382,1,0,1,1,1,1,'','','Ok, I think first step is to change TabCtrlAdd () in Tabctrl.c to allow bitmaps\n\n[code:1zwn8il7]CLIPPER TABCTRLADD&#40; PARAMS &#41; // cPrompt --&gt; nil\n&#123;\n   _bset&#40; &#40; char * &#41; &amp;item, 0, sizeof&#40; item &#41; &#41;;\n\n   item&#46;mask       = TCIF_IMAGE | TCIF_TEXT | TCIF_STATE ; // allow bitmaps\n   #ifndef UNICODE\n      item&#46;pszText = _parc&#40; 2 &#41;;\n   #else\n      item&#46;pszText = AnsiToWide&#40; _parc&#40; 2 &#41; &#41;;\n   #endif\n   item&#46;dwState    = _parl&#40; 3 &#41;;\n   item&#46;iImage     = _parni&#40; 4 &#41;;  // index of Imagelist\n\n   SendMessage&#40; &#40; HWND &#41; _parni&#40; 1 &#41;, TCM_INSERTITEM, 0, &#40; LONG &#41; &amp;item &#41;;\n   #ifdef UNICODE\n      hb_xfree&#40; item&#46;pszText &#41;;\n   #endif\n&#125;\n[/code:1zwn8il7]\n\nand then in folder.prg:\n\n[code:1zwn8il7]METHOD SetPrompts&#40; aPrompts &#41; CLASS TFolder\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n  for n = Len&#40; &#58;&#58;aPrompts &#41; to 1 step -1\n     // 4&#46; parameter is bitmap index of Imagelist\n       TabCtrlAdd&#40; &#58;&#58;hWnd, &#58;&#58;aPrompts&#91; n &#93;, &#58;&#58;aEnable&#91; n &#93; , n&#41;\n   next\n&#46;&#46;&#46;\n&#46;&#46;&#46;[/code:1zwn8il7]\n\nBut it is still not working.  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nDoes anyone have an idea ?','',0,'AIA=','1zwn8il7',1,0,'',130,0,0),(38064,8225,20,1082,0,'85.43.122.34',1190188364,1,0,1,1,1,0,'','IF con operatori numerici','mi succede una cosa strana,\nho queste istruzioni:\n\nFUNCTION Stclient(call1)\nlocal m_darave := 0\n.....\n.....\nm_darave = m_valdar - m_valave\nIF m_darave = 0\n....\n....\nENDIF\nin alcuni casi anche se la variabile m_darave contiene zero non entra nella condizione IF, da tener presente che controllo il contenuto di m_darave tramite msginfo(str(m_darave,20,5))\nse può essere utile il contenuto di m_darave è con due decimali','',0,'AIA=','35t7ivyr',1,0,'',1082,0,0),(38065,8214,3,2,0,'87.218.146.246',1190189665,1,0,1,1,1,1,'','','Stefan,\n\nYour code is fine. Try samples\\TestFold.prg adding this line:\n[code:25fvzkfh]\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID MsgYesNo&#40; &quot;Want to end ?&quot; &#41; ;\n      ON INIT SetImages&#40; oDlg, oFld &#41;\n[/code:25fvzkfh]\n[url=http&#58;//imageshack&#46;us:25fvzkfh][img:25fvzkfh]http&#58;//img223&#46;imageshack&#46;us/img223/2622/foldersw1&#46;png[/img:25fvzkfh][/url:25fvzkfh]\nWe may modify REDEFINE FOLDER syntax to easier it','',0,'GIA=','25fvzkfh',1,0,'',2,0,0),(38066,8218,3,1154,0,'217.37.54.49',1190192641,1,0,1,1,1,0,'','','Thanks everyone for your input!\n\nBiel\'s solution is the only one that I could get to work, but it does work perfectly for my needs.\n\nThanks again,\n\nBarry','',0,'GIA=','1bffbd3o',1,0,'',1154,0,0),(38067,8226,3,924,0,'81.208.36.89',1190194653,1,0,1,1,1,0,'','how dectect VISTA ?','How detect if the pr\nogram is running under VISTA ?\n\n\nRomeo','',0,'GIA=','kdn9okd3',1,0,'',924,0,0),(38068,8226,3,2,0,'87.218.146.246',1190196071,1,0,1,1,1,1,'','','Romeo,\n\nfunction IsVista()\n\nreturn GetVersion()[ 1 ] == 6','',0,'','16umj9vu',1,0,'',2,0,0),(38069,8224,3,161,0,'213.119.247.12',1190197168,1,0,1,1,1,0,'','','Ok, my mistake.  Its working now.\n\nThanks,\nMarc','',0,'','256b0iev',1,0,'',161,0,0),(38070,8226,3,924,0,'81.208.36.89',1190198247,1,0,1,1,1,0,'','','it works with fwh24 but not works with fw24.\n\nwith w95,xp,vista using  fw24 it says always :\n\ngetversion[1] = 3\ngetversion[2] = 95   \n\n\nif i use fwh24 all is ok !\n\nAny patch for 16bit version of my fw24 ?\ntks','',0,'','bz6ap025',1,0,'',924,0,0),(38071,8227,7,57,0,'88.9.30.126',1190199350,1,0,1,1,1,1,'','TRY / CATCH ¿Estan disponibles en Harbour_CE?','Antonio\n¿Es posible incorporar el uso de Try/Catch/End en Harbour_CE?\n\nSaludos\nToni Sales','',0,'','3efnpzda',1,0,'',57,0,0),(38072,8228,1,924,0,'81.208.36.89',1190200941,1,0,1,1,1,0,'','getVersion()  problems','hi\nGetVersion() works bad with my fw22/24\n\nit only works well with my fwh24\n\nwith w95,xp,vista using fw24 it says always : \n\ngetversion[1] = 3 \ngetversion[2] = 95 \n\nif i use fwh24 all is ok ! \n\nAny patch for 16bit version of my fw22,fw24 ? \ntks\nRomeo/Zingoni','',0,'','nu8w3uu2',1,0,'',924,0,0),(38073,8229,20,924,0,'81.208.36.89',1190202728,1,0,1,1,1,0,'','GetVersion() problems','Ciao,ancora io.\nHo un po di problemi con Vista....(mare)\n\nLa GetVersion() non mi funziona come dovrebbe con fw22/24 mentre funziona bene con harbour.\n\nIn pratica con  w95,xp,vista fw22/24 mi dicono sempre:\n\ngetversion[1] = 3 \ngetversion[2] = 95 \n\nQuindi non riesco a capire se sono con Vista,XP, o altro OS:\n\nC\'e\' qualche rimedio ?\ntks \nRomeo/Zingoni','',0,'','d8pfzflq',1,0,'',924,0,0),(38074,8212,6,694,0,'201.86.91.91',1190203099,1,0,1,1,1,1,'','','Antonio como modificar o metodo paint?\n\nGrato\n\nAoki','',0,'','kaj4d2h0',1,0,'',694,0,0),(38075,8042,6,511,0,'200.35.210.132',1190203314,1,0,1,0,1,1,'','','Primero debes incluir en la clase TFTP lo siguiente:\n\nMETHOD CreateDirectory( cDirName ) INLINE ; \n            FtpCreateDirectory( ::hFTP, cDirName )\n\nNo olvides compilar e incluirla en tu .RMK\n\nLuego debes utilizarlo asi:\n\noFTP:CreateDirectory( \"PRUEBA\" )\n\nA mi me funciona bien.\n\nSaludos','',0,'','2vkrs9ni',1,0,'',511,0,0),(38076,8230,6,694,0,'201.86.91.91',1190204337,1,0,1,1,1,1,'','Antonio ajude-me com este código!','Antonio, neste código (PRG) preciso colocar imagens com texto dentro da imagem.\nDa maneira abaixo mostrada até consigo, mais ao rolar a barra de rolagem da window\no texto some.\n\n\nDEFINE WINDOW oWndChild2 OF oWnd MDICHILD vscroll TITLE \"PRODUTOS\" icon oico FROM 0,54 TO 37, 128\n\n\nACTIVATE WINDOW oWndChild2 on init(TScrWnd():New( oWndChild2, 1, 500, 1, 70),carregaimag()) \n\n\n\n**********************************\nfunction carregaimag(numero)\n**********************************\nif len(ToBtc)&gt;0\n   ReleaseDC(ToBtc)          \n   ReleaseDC(TxBtc)          \n   for i:=1 to len(ToBtc)\n       if Tobtc[i]#nil\n          Tobtc[i]:hide()\n          Tobtc[i]:end()\n          if Txbtc[i]#nil\n             Txbtc[i]:end()\n          endif\n       endif\n   next\nendif\nToBtc :=array(numero)\nTxBtc :=array(numero)\nfor i := 1 to numero\n    for j := 1 to Tnucol\n        conta++\n        if conta&lt;=numero\n            if file(aprodsubs[i][j][3])\n                @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta];\n                file aprodsubs[i][j][3] SIZE 95,80 OF oWndChild2:oclient ADJUST PIXEL \n            else     \n                @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] RESOURCE \"REDPLAN\" ;\n                SIZE 95,80 OF oWndChild2:oclient ADJUST PIXEL \n                @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) SAY TxBtc[conta] prompt \"TEXTO\";\n                SIZE 95,80 PIXEL OF oWndChild2:oclient CENTER\n            endif\n        else\n           exit\n        endif \n    next\n    if conta&gt;numero\n       exit\n    endif \nnext\nreturn(.t.)','',0,'','2u7pz1m1',1,0,'',694,0,0),(38077,8225,20,6,0,'87.3.184.166',1190205371,1,0,1,1,1,1,'','Re: IF con operatori numerici','E\' normale. Devi fare il confronto così:\n\n[code:wgahct50]IF Round&#40; m_darave, 2 &#41; = 0[/code:wgahct50]\n\nEMG','',0,'AIA=','wgahct50',1,0,'',6,0,0),(38078,8219,6,294,0,'201.254.182.104',1190206103,1,0,1,1,1,1,'','','Vicktor, tambien podes manejar los comm con las funciones que trae Fivewin sin necesidad de incorporar librerias de 3ros.\nPor ejemplo, para abrir el puerto utilizo:\n\n[color=blue:1p7ythzy]FUNCTION abrirport(n)\nLOCAL IdPort,cDcb,nError\nIdPort := OpenComm(\"COM\"+STR(n,1),1024,256)\nIF IdPort &lt;= 0\n   nError = GetCommError( IdPort)\n   MsgInfo( \"Error al abrir: \" + Str( nError ) )\n   ELSE\n   MsgRun(\"Puerto abierto como \" + STR(IdPort))\nENDIF\nIF ! BuildCommDcb(\"COM\"+STR(n,1)+\":9600,n,8,1\" , @cDcb)\n   nError = GetCommError( IdPort)\n   MsgInfo( \"Error al Configurar: \" + Str( nError ) )\n   RETURN 0\n   ELSE\n   MsgRun(\"Puerto Configurado\")\nENDIF\nIF ! SetCommState( IdPort, cDcb )\n   nError = GetCommError( IdPort)\n   MsgInfo( \"Error al setear: \" + Str( nError ) )\n   RETURN 0\n   ELSE\n   MsgRun(\"Puerto Seteado\")\nENDIF\nRETURN IdPort[/color:1p7ythzy]\n\nPara leer del puerto utilizo:\n[color=blue:1p7ythzy]texto_a_leer := SPACE(10)\nnBytes := ReadComm( port,@texto_a_leer)[/color:1p7ythzy]\n\nPara escribir en el puerto utilizo:\n[color=blue:1p7ythzy]nBytes := WriteComm( port,string)[/color:1p7ythzy]\n\nCon estos comandos, he logrado comunicarme con una registrador fiscal, desarrollando el protocolo de la misma sin ningun problema.\n\nComo nota importante, para versiones de Fivewin 2.7 o anterior, Antonio Linares me paso un .obj (COMM.OBJ) que era necesario para que la comunicación funciones sin problemas.\nEspero que te sirva la data.\nAtte\nCesar','',0,'Ag==','1p7ythzy',1,0,'',294,0,0),(38079,8231,6,53,0,'189.139.18.76',1190208245,1,0,1,1,1,1,'','Algun ejemplo con ADO y TXBrowse ?','Amigos del foro:\n\nEstoy intentando mis primeros pasos con ADO y pretendo hacer un browse con TXBrowse, esto es parte de mi código\n\noBrw := TXBrowse():New( oWnd )\n\noBrw:nMarqueeStyle	:= MARQSTYLE_HIGHLROW\noBrw:lColDividerComplete := (.T.)\noBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY\noBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY\noBrw:nHeaderLines := 1\noBrw:nFooterLines:= 1\noBrw:nDataLines := 1\noBrw:lFooter:= (.T.)\noBrw:lHScroll:= (.F.)\noBrw:SetAdo(oDatos)\n\noBrw:bGoTop:= {|| oDatos:MoveFirst() }\noBrw:bGoBottom:= {|| oDatos:MoveLast() }\noBrw:bBof:= {|| oDatos:Bof() }\noBrw:bEof:= {|| oDatos:Eof() }\noBrw:bSkip:= { | nSkip | Skipper( oDatos, nSkip ) }\noBrw:bKeyCount:= {|| oDatos:RecordCount() }\n\naCol[ 1]:= oBrw:AddCol()\naCol[ 1]:bStrData := { || oDatos:Fields(0):Value}\naCol[ 1]:cHeader := \"ESTILO\"\naCol[ 1]:nHeadStrAlign:= AL_LEFT\naCol[ 1]:nDataStrAlign:= AL_LEFT\naCol[ 1]:nWidth:= 249\n\noBrw:CreateFromCode()\n\noWnd:SetControl( oBrw )\n\nComo se puede apreciar solo estoy creando el browse con una sola columna a pesar de que el recordset esta creado con 2 campos, pues bien el browse se muestra con tres columnas, los dos campos del recordset más la columna que estoy creando, por qué ?, ademas el browse pinta solo el primer renglón, debo ir avanzando haca abajo del browse para que se muestren el resto de los renglones.\n\nSeguramente hay algo que me esta faltando, pero que es ?, alguien que tenga un pequeño ejemplo para crear el browse con TXbrowse y RECORDSET ???\n\nMuy agradecido por su apoyo','',0,'','2806f6fv',1,0,'',53,0,0),(38080,8219,6,362,0,'200.158.19.78',1190208897,1,0,1,1,1,1,'','','[quote=&quot;cmsoft&quot;:3pxoir3e]Vicktor, tambien podes manejar los comm con las funciones que trae Fivewin sin necesidad de incorporar librerias de 3ros.\nPor ejemplo, para abrir el puerto utilizo:\n\n[color=blue:3pxoir3e]FUNCTION abrirport(n)\nLOCAL IdPort,cDcb,nError\nIdPort := OpenComm(\"COM\"+STR(n,1),1024,256)\nIF IdPort &lt;= 0\n   nError = GetCommError( IdPort)\n   MsgInfo( \"Error al abrir: \" + Str( nError ) )\n   ELSE\n   MsgRun(\"Puerto abierto como \" + STR(IdPort))\nENDIF\nIF ! BuildCommDcb(\"COM\"+STR(n,1)+\":9600,n,8,1\" , @cDcb)\n   nError = GetCommError( IdPort)\n   MsgInfo( \"Error al Configurar: \" + Str( nError ) )\n   RETURN 0\n   ELSE\n   MsgRun(\"Puerto Configurado\")\nENDIF\nIF ! SetCommState( IdPort, cDcb )\n   nError = GetCommError( IdPort)\n   MsgInfo( \"Error al setear: \" + Str( nError ) )\n   RETURN 0\n   ELSE\n   MsgRun(\"Puerto Seteado\")\nENDIF\nRETURN IdPort[/color:3pxoir3e]\n\nPara leer del puerto utilizo:\n[color=blue:3pxoir3e]texto_a_leer := SPACE(10)\nnBytes := ReadComm( port,@texto_a_leer)[/color:3pxoir3e]\n\nPara escribir en el puerto utilizo:\n[color=blue:3pxoir3e]nBytes := WriteComm( port,string)[/color:3pxoir3e]\n\nCon estos comandos, he logrado comunicarme con una registrador fiscal, desarrollando el protocolo de la misma sin ningun problema.\n\nComo nota importante, para versiones de Fivewin 2.7 o anterior, Antonio Linares me paso un .obj (COMM.OBJ) que era necesario para que la comunicación funciones sin problemas.\nEspero que te sirva la data.\nAtte\nCesar[/quote:3pxoir3e]\n\nCesar, Por favor Informe:\n\nUsted con esta funcion, consegue dar lectura en Lectores de Codigos de Barras?\n\nRegards, saludos.','',0,'gg==','3pxoir3e',1,0,'',362,0,0),(38081,8232,6,694,0,'201.86.91.91',1190209080,1,0,1,1,1,1,'','Como identificar o objeto?','Pessoal preciso identificar o número do objeto para usar no action, como fazer isso no caso abaixo:\n\n\nfor i := 1 to numero\n    for j := 1 to Tnucol\n        conta++\n        if conta&lt;=numero\n            if file(aprodsubs[i][j][3])\n                @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] file aprodsubs[i][j][3] SIZE 95,80 OF oWndChild2 ADJUST PIXEL \n            else     \n                @ (((i-.2) * 80) - 66), ((j * 94.5) - 93) SENSITIVE say ToBtc[conta] var aprodsubs[i][j][2] SIZE 95,80 OF oWndChild2 PIXEL font fonte_TC2 COLOROVER CLR_YELLOW \n            endif\n        endif \n    next\nnext\n\nGrato\n\nFiquem com Deus\n\nAoki','',0,'','1sqhykwe',1,0,'',694,0,0),(38082,8232,6,316,0,'213.97.245.163',1190210062,1,0,1,1,1,0,'','','dentro del bucle, despues de crear cada objeto hacer\n\nToBtc[conta]:Cargo:= { i, j  } \n\no lo que te haga falta para encontrar el objeto.','',0,'','yo2t7npa',1,0,'',316,0,0),(38083,8222,6,316,0,'213.97.245.163',1190210161,1,0,1,1,1,0,'','','Como parece que Harry Potter no lee la lista, vas a tener que contar que dice la linea 20 de _stddef.h','',0,'','30d3aa44',1,0,'',316,0,0),(38084,8042,6,316,0,'213.97.245.163',1190210246,1,0,1,1,1,0,'','','Estas seguro que tienes suficientes permisos en el servidor para crear el directorio?','',0,'','3251imgt',1,0,'',316,0,0),(38085,8197,1,173,0,'203.113.38.11',1190210973,1,0,1,1,1,0,'','Dear Antonio','Dear Antonio\n\nThank you very much, it\'s work.\n\nBest Regard,\n\nPeter','',0,'','3aaautg4',1,0,'',173,0,0),(38086,8233,2,189,0,'201.22.212.186',1190210977,1,0,1,1,1,0,'','Erro GPF - Fivewin + Blinker7 + CT52.LIB','Utilizo FWH em minhas aplicações e não tenho problemas.\nPorem, necessito gerar um aplicativo em Fivewin7.7/Clipper52e e tenho que usar algumas funções da CT52.LIB mas ocorre um erro de GPF na execução.\n\nAlguem pode me ajudar onde estou errando?\n\nobs.: Compilando programa em Clipper sem usar Fivewin a CT52.LIB funciona corretamente.\n\nsegue abaixo meu .LNK\n\nBLINKER INCREMENTAL OFF\nBLINKER CLIPPER SYMBOL OFF\nBLINKER EXECUTABLE CLIPPER //F:150\nBLINKER EXECUTABLE COMPRESS 8\nBLINKER PROCEDURE DEPTH 80\n// MAP A,S\nPACKCODE\nPACKDATA\n\nDEFBEGIN\n   name        NameOffApp\n   description \'Terminal App\'\n   exetype     Windows 3.1\n   code        preload moveable discardable\n   data        preload moveable\n   stacksize   16500\n   heapsize    11500\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nFILE myfile1, myfile2, myfileN, errsysw\n\nLIB FiveWin, WinApi, Clipper, Extend, DbfNTX, Terminal, 501_520, fivec, ct52','',0,'','2l3i7g8f',1,0,'',189,0,0),(38087,8137,2,935,0,'190.184.24.231',1190211964,1,0,1,1,1,1,'','hola','Carlos G.\n\nTu email no lo tengo y el que aparace no lo envio el hotmail, enviame tu correo a <!-- e --><a href=\"mailto:rparedes88@hotmail.com\">rparedes88@hotmail.com</a><!-- e -->\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'','1mk97z24',1,0,'',935,0,0),(38088,8232,6,694,0,'201.86.91.91',1190212492,1,0,1,1,1,1,'','','Carlos Mora, muito obrigado por me ajudar meu amigo,fiz assim:\n\n\nPosted: Wed Sep 19, 2007 1:38 pm    Post subject: Como identificar o objeto? \n\n--------------------------------------------------------------------------------\n \nPessoal preciso identificar o número do objeto para usar no action, como fazer isso no caso abaixo: \n\n\nfor i := 1 to numero \nfor j := 1 to Tnucol \nconta++ \nif conta&lt;=numero \nif file(aprodsubs[i][j][3]) \n@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] file aprodsubs[i][j][3] SIZE 95,80 OF oWndChild2 ADJUST PIXEL \nelse \n@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) SENSITIVE say ToBtc[conta] var aprodsubs[i][j][2] SIZE 95,80 OF oWndChild2 PIXEL font fonte_TC2 COLOROVER CLR_YELLOW  ACTION(MSGINFO(aprodsubs[i][j][2]))\nendif \nToBtc[conta]:Cargo:= { i, j }\nendif \nnext \nnext \n \n\nE não me retorna no ACTION o valor da variavel!\n\nGrato','',0,'','dqxyc1c6',1,0,'',694,0,0),(38089,7498,6,850,0,'201.255.106.148',1190213138,1,0,1,1,1,0,'','','Hola Antonio, tengo el mismo problema:\n. Tengo FWH701 \n. XHARBOUR 0.99.71 \n\nCuando quiero compilar con esta version del xHarbour luego de recompilar todos los programas me da el mismo error con el Activex.prg (PCODE version 7), el programa no esta en ningun lado, cuando compre la version de FiveWin me dieron el codigo: 031106-CREDIL.\n\nGracias\n\nAndres','',0,'','1tcghz45',1,0,'',850,0,0),(38090,8219,6,294,0,'201.254.182.104',1190213378,1,0,1,1,1,1,'','','Hola karinha:\nNo, la comunicacion es con una registradora fiscal, la cual tiene un protocolo establecido, y por lo tanto, siguiendo dicho protocolo, debo esperar y enviar los comandos y datos apropiados.\nIgualmente, para leer codigos de barras, existen los emuladores de teclado, que se encargan de enviar señales de teclado cuando pasa el producto por el scanner. No se que lector tendrás y si el mismo tiene emulador de teclado, pero siempre, para esos casos, la mejor opcion es poner un scanner (lector de codigos de barras) con emulacion.\nEspero te sirva la data.\nAtte\nCesar','',0,'','1lz6mlcv',1,0,'',294,0,0),(38091,8231,6,456,0,'217.127.39.57',1190217034,1,0,1,1,1,1,'','','Hola Armando, \nlo primero que veo es que utilizas SetAdo antes de definir las columnas. SetAdo debieras colocarlo al final antes del CreateFromCode.\n\nEn el metodo SetAdo, si el Browse no tiene definido columnas, le añade todas las columnas del recordset que recibe de parametro. Ademas tambien define los codeblocks de movimiento si no estan definidos. \n\nPruebalo de la siguiente manera.\n[code:1u5ht17e]\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41; \n\noBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW \noBrw&#58;lColDividerComplete &#58;= &#40;&#46;T&#46;&#41; \noBrw&#58;nRowDividerStyle &#58;= LINESTYLE_LIGHTGRAY \noBrw&#58;nColDividerStyle &#58;= LINESTYLE_LIGHTGRAY \noBrw&#58;nHeaderLines &#58;= 1 \noBrw&#58;nFooterLines&#58;= 1 \noBrw&#58;nDataLines &#58;= 1 \noBrw&#58;lFooter&#58;= &#40;&#46;T&#46;&#41; \noBrw&#58;lHScroll&#58;= &#40;&#46;F&#46;&#41; \n\naCol&#91; 1&#93;&#58;= oBrw&#58;AddCol&#40;&#41; \naCol&#91; 1&#93;&#58;bStrData &#58;= &#123; || oDatos&#58;Fields&#40;0&#41;&#58;Value&#125; \naCol&#91; 1&#93;&#58;cHeader &#58;= &quot;ESTILO&quot; \naCol&#91; 1&#93;&#58;nHeadStrAlign&#58;= AL_LEFT \naCol&#91; 1&#93;&#58;nDataStrAlign&#58;= AL_LEFT \naCol&#91; 1&#93;&#58;nWidth&#58;= 249 \n\noBrw&#58;SetAdo&#40;oDatos&#41;\noBrw&#58;CreateFromCode&#40;&#41; \n\noWnd&#58;SetControl&#40; oBrw &#41; \n[/code:1u5ht17e]','',0,'AIA=','1u5ht17e',1,0,'',456,0,0),(38092,8222,6,362,0,'200.158.19.7',1190217865,1,0,1,1,1,1,'','','[quote=&quot;Carlos Mora&quot;:kzj93xvq]Como parece que Harry Potter no lee la lista, vas a tener que contar que dice la linea 20 de _stddef.h[/quote:kzj93xvq]\n\nCarlos...\n\n//-&gt; ESTO ESTÁ EN C:\\BORLAND\\BCC55\\INCLUDE\n\n#if !defined(___DEFS_H)\n#include &lt;_defs.h&gt;\n#endif\n\nEste és solo un ejemplo. En Xharbour 0.99.71, Esta Bien Major, las mensagerias de Errores. Generando un ERRO.LOG mui Grand.\n\nRegards, saludos.','',0,'gA==','kzj93xvq',1,0,'',362,0,0),(38093,8219,6,362,0,'200.158.19.7',1190218135,1,0,1,1,1,1,'','','[quote=&quot;cmsoft&quot;:i3xtzwjw]Hola karinha:\nNo, la comunicacion es con una registradora fiscal, la cual tiene un protocolo establecido, y por lo tanto, siguiendo dicho protocolo, debo esperar y enviar los comandos y datos apropiados.\nIgualmente, para leer codigos de barras, existen los emuladores de teclado, que se encargan de enviar señales de teclado cuando pasa el producto por el scanner. No se que lector tendrás y si el mismo tiene emulador de teclado, pero siempre, para esos casos, la mejor opcion es poner un scanner (lector de codigos de barras) con emulacion.\nEspero te sirva la data.\nAtte\nCesar[/quote:i3xtzwjw]\n\nGracias César por aclararme la duda. \n\nAcá en Brasil, no és posible. Tengo que usar la HBCOMM.LIB, por sinal, mui buena.  Alias, Un excelente trabajo de las personas del proyecto XHARBOUR.\n\nRegards, saludos.','',0,'gA==','i3xtzwjw',1,0,'',362,0,0),(38094,8231,6,53,0,'189.139.18.76',1190219466,1,0,1,1,1,1,'','','Biel:\n\nExcelente explicación, el primer problema se ha solucionado, muchas gracias.\n\nTengo definida la función Skipper() así\n\nSTATIC FUNCTION Skipper( oDatos, nSkip )\nLOCAL nRec := oDatos:AbsolutePosition\noDatos:Move( nSkip )\nIF oDatos:EOF()\n    oDatos:MoveLast()\nENDIF\nIF oDatos:BOF()\n    oDatos:MoveFirst()\nENDIF\nRETURN(oDatos:AbsolutePosition - nRec)\n\nPero aún así me sigue mostrando solo el primer registro del recordset cuando tiene  5423 registros y al ir avanzando hacia abajo los va pintando. Que será ?\n\nSaludos y muchas gracias nuevamente','',0,'gA==','3hgbk11z',1,0,'',53,0,0),(38095,8210,6,760,0,'200.37.76.88',1190220636,1,0,1,1,1,0,'','OT : Sobre Redes ...','Bueno señores, como estan...\n\nGracias por sus aportes, como lo indique antes de modificar el registro lo bloqueo hago el cambio y commit, luego lo desbloqueo y ya ok, pero solo en la maquina donde hice el cambio, pero si abro la dbf con el dbu el cambio si se realiza, el problema es que en las demas maquinas los cambio no se reflejan.\nY no uso borwses, es un simple caja de dialogo con los dos campos, ahora no se si commit es diferente de dbcommit, voy a probar y los aviso.\n\nPero, si quiero usar con ADS Remoto o Local, necesariamente tendria que abrir las DBF al principio del programa, y realmente los cambios no se realizan y me estaria dando informacion falsa o incorrecta, de todas maneras voy a seguir probando y les aviso...\n\nAlguna otra sugerencia...???\n\nSalu2\n\nFrancis','',0,'gA==','32vcqa9d',1,0,'',760,0,0),(38096,8220,6,138,0,'200.24.40.34',1190221153,1,0,1,1,1,1,'','','Yo me mude a List &amp; Label, estupendo generador de reportes y de lo que quieras, lo mejor de todo es que tienes el control absoluto via programa de todos los aspectos de impresion del reporte\n\nLo uso con FW y con otras herramientas\n\n<!-- m --><a class=\"postlink\" href=\"http://www.combit.com\">http://www.combit.com</a><!-- m -->','',0,'gA==','3qmlqva9',1,0,'',138,0,0),(38097,8213,7,1135,0,'189.136.205.245',1190222779,1,0,1,1,1,1,'','Re','Muchas Gracias Jose Luis. esta muy completa la informacion. Ahora mismo lo voy a probar\n\n[quote=&quot;jlcapel&quot;:3g36iejo]Arturo,\n\nMira por aquí.... [url:3g36iejo]http&#58;//www&#46;pocketpcdn&#46;com/articles/irda&#46;html[/url:3g36iejo][/quote:3g36iejo]','',0,'kA==','3g36iejo',1,0,'',1135,0,0),(38098,8220,6,760,0,'200.37.76.84',1190223384,1,0,1,1,1,0,'','diseñador visual de facturas','Bueno amigos\n\nYo uso unas fuentes del Sr. Alfredo Arteaga y las modifique para usarlas de acuerdo a mi pais, por cierto es muy bueno y las uso sin problemas, solo que la impresion es en modo windows...\n\nSalu2\n\nFrancis','',0,'kA==','3zf0tqr9',1,0,'',760,0,0),(38099,8234,3,972,0,'81.164.117.81',1190224011,1,0,1,1,1,0,'','Reduced sample that shows GPF running HRB files with FWH','Hello,\n\nThis ZIP file: <!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.net/Test_HRB.zip\">http://www.xHarbour.net/Test_HRB.zip</a><!-- m -->\nContains a reduced sample that shows a GPF when using HRB files with xHarbour Builder + FWH.\n\nTest.prg try\'s to run the HRB script \'TestScript.hrb\' 20 times. Sometimes the GPF occurs after running the HRB 8 times, sometimes after running it 10 times.\n\nThis is what Test.prg contains (Compile to EXE):\n[code:9miosrc4]#include &quot;fivewin&#46;ch&quot;\n\nPROCEDURE Main\nLOCAL oScript,f\n\n   FOR f=1 TO 10\n      ? f\n      oScript&#58;=__hrbLoad&#40; &quot;testScript&#46;hrb&quot; &#41;\n      __hrbDo&#40; oScript &#41;\n      __hrbUnload&#40; oScript &#41;\n   NEXT\n\nRETURN\n[/code:9miosrc4]\n\nThis is TestScript.prg (Compile to a HRB)\n[code:9miosrc4]PROCEDURE Test_Static&#40;&#41;\n   LOCAL aTemp, ff\n      \n   aTemp&#58;=&#123; &#123;1, &quot;111111111&quot;&#125;, ;\n            &#123;2, &quot;222222222&quot;&#125;, ;\n            &#123;3, &quot;333333333&quot;&#125;  &#125;\n\n   ff&#58;=Test_AScan&#40;aTemp&#41;\n   \n   Alert&#40;&quot;Test&quot;&#41;\n   \nRETURN\n\nSTATIC FUNCTION Test_AScan&#40;aTemp&#41;   \nRETURN AScan&#40;aTemp, &#123;|x| x&#91; 2&#93;=&quot;222222222&quot;&#125;&#41;\n[/code:9miosrc4]\n\nThe compiled \'Test.exe\' and \'TestScript.HRB\' files are here:\n<!-- m --><a class=\"postlink\" href=\"http://www.xHarbour.net/Test_HRB_Binaries.zip\">http://www.xHarbour.net/Test_HRB_Binaries.zip</a><!-- m -->\n\nIf I compile the exact same files without FWH (simple delete the \'#include \"fivewin.ch\"\' line and recompile), the GPF does not happen.\n\nAntonio, can you please take a look at this?\n\nThanks!\n\nPatrick','',0,'AIA=','9miosrc4',1,0,'',972,0,0),(38100,8235,6,300,0,'200.163.160.12',1190224821,1,0,1,1,1,0,'','Twbrowse con multiselecion','Olá\n\nEs possivel usar los wbrowse nativo del fwh con multiselecion del registros?\n\nMi browse és definido asi:\n\nREDEFINE LISTBOX lista0 FIELDS ARQBANCO-&gt;CODIGO,ARQBANCO-&gt;NUMERO,;\nStrZero(ARQBANCO-&gt;AGENCIA,4,0),StrZero(ARQBANCO-&gt;CONTA,8,0),ARQBANCO-&gt;DESCRI;\nALIAS \"ARQBANCO\" HEADERS \"COD \",\"NÚMERO \",\"AGÊNCIA \",\"CONTA   \",\"DESCRIÇÃO\" ID 4004 of oDlg color Frente,Fundo;\nON Change Filtra() \n\n\nSi no o que utilizar?\n\nGracias\nWanderson.','',0,'AIA=','3febg3ic',1,0,'',300,0,0),(38101,8137,2,2,0,'87.218.146.246',1190225013,1,0,1,1,1,1,'','','Ramón,\n\nTe agradeceríamos si subes esa clase a <!-- w --><a class=\"postlink\" href=\"http://www.rapidshare.com\">www.rapidshare.com</a><!-- w --> ó similar, en caso de que desees compartirla, para que no todo el mundo comience a pedirla aqui <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> gracias','',0,'AIA=','3uk26war',1,0,'',2,0,0),(38102,8234,3,2,0,'87.218.146.246',1190225104,1,0,1,1,1,1,'','','Patrick,\n\nPlease change Alert() into MsgAlert() and try it again, thanks','',0,'AIA=','1ho0in5m',1,0,'',2,0,0),(38103,8226,3,2,0,'87.218.146.246',1190225226,1,0,1,1,1,1,'','','Romeo,\n\nAs FW is 16 bits, it could be that the required Windows version returns a different value','',0,'AIA=','6m8sy75k',1,0,'',2,0,0),(38104,8220,6,1146,0,'87.223.165.162',1190225841,1,0,1,1,1,0,'','','Hola René:\n\nTenía entendido que usas Crystal Reports. Lo estamos evaluando. pero no nos gusta la idea de que sus dlls ocupen tanto espacio.\n\nSobre L&amp;L, ¿soporta FHW?. ¿Hay algún ejemplo disponible?. ¿Eres tu también distribuidor de él?.\n\nSalu2,','',0,'AIA=','38bbhnsq',1,0,'',1146,0,0),(38105,8137,2,935,0,'200.62.123.43',1190225943,1,0,1,1,1,1,'','Ok.','Antonio,\n\nGracias por tu consejo, lo hare de esa manera','',0,'AIA=','17mao33n',1,0,'',935,0,0),(38106,8236,6,760,0,'200.37.76.84',1190228532,1,0,1,1,1,0,'','OT: Objeto Persistente','Hola a todos.\n\nPara el master RF... Lei el articulo sobre migracion a 32 bits y esta ok, lo que quiero saber es como haces el uso del vtaskbar y un browse, un ejemplo si es posible.\nYo tengo el vtaskbar, un splitter, y el twbrowse, el problema es que el browse no visualiza nada, si le hago oWnd:SetControl(obrw), este ocupa toda la pantalla y desaparece el vtaskbar... Uso ventanas Mdi, la verdad estoy perdido...\n\nGracias\n\nSalu2\n\nFrancis','',0,'AIA=','1x2oqdwm',1,0,'',760,0,0),(38107,8236,6,138,0,'200.24.40.34',1190230180,1,0,1,1,1,1,'','','Es muy simple:\n\nEl truco son 3 controles: VTaskBar, UN SPLITTER y un browse.\n\nPrimero colocas el VTASKBAR, luego colocas el SPLITTER y al final colocas el BROWSE\n\nEl secreto esta en la definincion del Splitter, su PREVIOUS CONTROL es el VTASKBAR y el HIND CONTROL es el BROWSE.','',0,'AIA=','1fyjpbwd',1,0,'',138,0,0),(38108,8234,3,972,0,'81.164.117.81',1190231160,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1wty87zl]Please change Alert() into MsgAlert() and try it again, thanks[/quote:1wty87zl]\nThanks for looking at it Antonio, but that\'s not the point. I know, if you change something in the script it does not GPF anymore.\n\nProblem is the GPF itself. Test.exe should NOT GPF. This is a sample that shows that there is something wrong running a HRB in xHarbour Builder + FWH. I\'m not blaming FWh, or xHarbour Builder or anyone else, I just try to find the cause and a fix. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nIf you for example change the STATIC FUNCTION in the script with FUNCTION, it also does not GPF. But again, that\'s not the point. I have several scripts that GPF in my WinFakt app, it\'s just random and thus very hard to find why winfakt.exe GPF\'s. I found out that this reduced sample shows WHY my app GPF\'s.\n\nSo, we don\'t need to change the script, we need to find WHy it GPF\'s and than fix that. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThanks again for looking at it Antonio.\n\nPatrick','',0,'gA==','1wty87zl',1,0,'',972,0,0),(38109,8234,3,2,0,'87.218.146.242',1190233474,1,0,1,1,1,1,'','','Patrick,\n\n&gt; if you change something in the script it does not GPF anymore. \n\nThen it is not a FWH issue. Its a HRB issue.\n\nYou should be able to trace it and fix it. Or aren\'t you the Patrick Mast that sells commercial xHarbour ? <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','1zs7prd3',1,0,'',2,0,0),(38110,8220,6,138,0,'200.24.40.34',1190233875,1,0,1,1,1,1,'','','Yo usaba Crystal Reports hasta que descubri L&amp;L, recomendado por un buen amigo de España.\n\nEl gran problema de Crystal es por un lado que esta amarrado a un origen de datos, llamese DBF o SQL, forzosamente tiene que existir un archivo de por medio para poder emitir un informe, y por otro lado, como bien mencionas, el monton de DLLs que necesita para funcionar.\n\nList &amp; Label al principio no entiendia como funcionaba, hasta que descubri que todo es programable desde el codigo fuente, es un ActiveX que se puede usar perfectamente con FiveWin.','',0,'gA==','2xtwojgv',1,0,'',138,0,0),(38111,8214,3,130,0,'84.138.49.86',1190234320,1,0,1,1,1,1,'','','Antonio,\n\nI tried this, but it was not working. After a lot of unsuccessful tests my last idea was to change the header of the function TabCtrlAdd() and that did the trick.  \n\n[code:1ax53spp]HARBOUR HB_FUN_TABCTRLADD&#40; PARAMS &#41; // cPrompt --&gt; nil\n&#123;\n   _bset&#40; &#40; char * &#41; &amp;item, 0, sizeof&#40; item &#41; &#41;;\n\n   item&#46;mask       =  TCIF_TEXT | TCIF_STATE  | TCIF_IMAGE;\n   #ifndef UNICODE\n      item&#46;pszText = _parc&#40; 2 &#41;;\n   #else\n      item&#46;pszText = AnsiToWide&#40; _parc&#40; 2 &#41; &#41;;\n   #endif\n   item&#46;dwState    = _parl&#40; 3 &#41;;\n   item&#46;iImage     = _parni&#40; 4 &#41;;\n\n   SendMessage&#40; &#40; HWND &#41; _parni&#40; 1 &#41;, TCM_INSERTITEM, 0, &#40; LONG &#41; &amp;item &#41;;\n   #ifdef UNICODE\n      hb_xfree&#40; item&#46;pszText &#41;;\n   #endif\n&#125;[/code:1ax53spp]\n\nIt seems that  CLIPPER TABCTRLADD() was not correctly translated.','',0,'AIA=','1ax53spp',1,0,'',130,0,0),(38112,8214,3,2,0,'87.218.146.242',1190234397,1,0,1,1,1,1,'','','Stefan,\n\nGlad to know that you got it working <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','62dhqk1i',1,0,'',2,0,0),(38113,8220,6,1146,0,'87.223.165.162',1190234663,1,0,1,1,1,0,'','','René:\n\n¿Tienes algún ejemplo disponible?. ¿Eres distribuidor del producto?. Muchas gracias.','',0,'AIA=','2cgaoeu5',1,0,'',1146,0,0),(38114,8235,6,2,0,'87.218.146.242',1190234679,1,0,1,1,1,1,'','','Wanderson,\n\nPuedes usar un campo lógico para seleccionar, y pintar el registro de otro color, según esté ese campo a .T. o a .F.\n\nEn caso de no querer modificar la DBF podrías usar un array en memoria, aunque esto no es lo más conveniente, ya que la DBF podria tener muchos registros.','',0,'AIA=','2yug011h',1,0,'',2,0,0),(38115,8235,6,362,0,'200.158.19.152',1190235067,1,0,1,1,1,1,'','','EN ESTE CASO, LA MEJOR OPCION, ÉS USAR LA TSBROWSE.PRG Ó LA TWBROWSE.PRG BY HERNAN CECARELLI(?).\n\nRegards, saludos.','',0,'AIA=','1q6mtuzo',1,0,'',362,0,0),(38116,8235,6,2,0,'87.218.146.242',1190235153,1,0,1,1,1,1,'','','La Clase TWBrowse de FWH puede servirte perfectamente','',0,'AIA=','1nx5lk3a',1,0,'',2,0,0),(38117,8235,6,73,0,'200.23.18.132',1190237575,1,0,1,1,1,0,'','','Wanderson,\nyo uso wbrowse de HDC y me va bien con dbf o con arrays, como comenta Antonio uso campos logicos y con eso distingo mis selecciones,\n\n[url=http&#58;//imageshack&#46;us:36gmnvki][img:36gmnvki]http&#58;//img62&#46;imageshack&#46;us/img62/2808/multiel8&#46;jpg[/img:36gmnvki][/url:36gmnvki]\n\nsalu2\npaco','',0,'GA==','36gmnvki',1,0,'',73,0,0),(38118,8210,6,92,0,'81.44.84.9',1190240216,1,0,1,1,1,0,'','Re: OT : Sobre Redes ...','[quote=&quot;Francis&quot;:1luolxpu]Bueno señores, como estan...\n\nGracias por sus aportes, como lo indique antes de modificar el registro lo bloqueo hago el cambio y commit, luego lo desbloqueo y ya ok, pero solo en la maquina donde hice el cambio, pero si abro la dbf con el dbu el cambio si se realiza, el problema es que en las demas maquinas los cambio no se reflejan.\nY no uso borwses, es un simple caja de dialogo con los dos campos, ahora no se si commit es diferente de dbcommit, voy a probar y los aviso.\n\nPero, si quiero usar con ADS Remoto o Local, necesariamente tendria que abrir las DBF al principio del programa, y realmente los cambios no se realizan y me estaria dando informacion falsa o incorrecta, de todas maneras voy a seguir probando y les aviso...\n\nAlguna otra sugerencia...???\n\nSalu2\n\nFrancis[/quote:1luolxpu]\n\nPuedes poner aquí el código de los 2 gets o says del diálogo?\n\nSaludos\nCarlos G.','',0,'gA==','1luolxpu',1,0,'',92,0,0),(38119,8137,2,92,0,'81.44.84.9',1190240380,1,0,1,1,1,0,'','Re: hola','[quote=&quot;Ramon Paredes&quot;:2t1fiezk]Carlos G.\n\nTu email no lo tengo y el que aparace no lo envio el hotmail, enviame tu correo a <!-- e --><a href=\"mailto:rparedes88@hotmail.com\">rparedes88@hotmail.com</a><!-- e -->\n\n\nRamon Paredes\nManagua, Nicaragua[/quote:2t1fiezk]\n\nEsto es más raro que un perro verde; esto del internat es como el internut pero como el internot; ahora te envío mi mail.\n\nSaludos y gracias.\nCarlos G.','',0,'gA==','2t1fiezk',1,0,'',92,0,0),(38120,8237,6,883,0,'200.166.205.161',1190242978,1,0,1,1,1,1,'','funcao LoadFields() ????','Boa Noite a Todos !!!, amigos a funcao loadfields() é do FWH ? ou é do xHB ??? e qual Versão ???','',0,'gA==','st4mg8zv',1,0,'',883,0,0),(38121,8238,3,53,0,'189.139.20.54',1190243505,1,0,1,1,1,1,'','Sample ADO and Xbrowse','Dear friends:\n\nI\'m looking for a small sample using ADO (RECORDSET) and TXBrowse, if you have one this will be very very appreciated.\n\nBest Regards','',0,'gA==','3icurkwj',1,0,'',53,0,0),(38122,8215,3,868,0,'219.64.121.60',1190248202,1,0,1,1,1,1,'','','Thank you very much pls\nRegards\nNageswaraRao','',0,'gA==','3pfp7g5m',1,0,'',868,0,0),(38123,8219,6,389,0,'189.132.23.120',1190249759,1,0,1,1,1,0,'','men.. te dejo parte de codigo para accesar al comm','[code:bns09mq6]\n/*-----------------------------------------------------------------------------------------------*/\nMETHOD RecibeDatos&#40;&#41; CLASS TAnviz\n  LOCAL oGauge, oProgress\n\n  DEFINE DIALOG oGauge RESOURCE &quot;DLG_PROCESO&quot;\n\n  oProgress&#58;= TProgress&#40;&#41;&#58;Redefine&#40; 1000, oGauge &#41;\n  oGauge&#58;bStart   &#58;= &#123; || ReadBufferComm&#40;Self, oProgress, oGauge&#41; &#125;\n  oGauge&#58;bGotFocus&#58;= &#123; || oProgress&#58;SetFocus&#40;&#41; &#125;\n\n  ACTIVATE DIALOG oGauge CENTERED\n\n  RETURN NIL\n/*-----------------------------------------------------------------------------------------------*/\nSTATIC FUNCTION ReadBufferComm&#40; oLector, oBarra, oDialogo &#41;\n  LOCAL oDlg, oLbx, oFile, cFechas, cHoras, lGrabalo\n  LOCAL hDatos, nBytes, cBuffer, cLinea, aRecords, nRecCount, cHora, cMinu, cSegu\n  LOCAL lPrimeraVez, cBuffTemp, nPos, nTotRecords, cLineaAux, nn, cAnio, cMes, cDia, cClave\n\n  hDatos&#58;= OutChr&#40; &quot;&#40;&quot;+ oLector&#58;ps_NOSERIE + &quot;,kqdata&#41;&quot;  &#41; // Envia un comando al puerto comm\n\n  cBuffer&#58;= &quot;&quot;\n  nBytes &#58;= 200\n  cLinea &#58;= &quot;&quot;\n  aRecords&#58;= &#123;&#125;\n  lPrimeraVez&#58;= &#46;T&#46;\n  nTotRecords&#58;= 1\n\n  DO WHILE &#46;T&#46;\n     cBuffer&#58;= &quot;&quot;\n     nBytes &#58;= InbufSize&#40;&#41;\n     IF nBytes &gt; 0\n        cBuffer&#58;= InChr&#40; 1000 &#41;\n        IF At&#40; &quot;kqdata,ok&quot;, cBuffer &#41; &gt; 0\n           IF lPrimeraVez\n              cBuffTemp&#58;= cBuffer\n              cBuffTemp&#58;= SubStr&#40; cBuffTemp, 1, 22 &#41;\n              nRecCount&#58;= Val&#40; SubStr&#40; cBuffTemp, 16, 6 &#41; &#41;\n              lPrimeraVez&#58;= &#46;F&#46;\n              oBarra&#58;SetRange&#40; 1, nRecCount &#41;\n              oBarra&#58;SetPos&#40; nTotRecords &#41;\n              SysRefresh&#40;&#41;\n           ENDIF\n        ENDIF\n        IF At&#40; &quot;kqdataend,ok&quot;, cBuffer &#41; &gt; 0\n           IF Len&#40; AllTrim&#40; cBuffer &#41; &#41; &gt; 0\n              cLineaAux&#58;= BufferClean&#40; cBuffer, oBarra, @nTotRecords &#41;\n              cLinea+= cLineaAux\n           ENDIF\n           EXIT\n        ELSE\n           IF Len&#40; AllTrim&#40; cBuffer &#41; &#41; &gt; 0\n              cLineaAux&#58;= BufferClean&#40; cBuffer, oBarra, @nTotRecords &#41;\n           ENDIF\n           cLinea+= cLineaAux\n        ENDIF\n        SysRefresh&#40;&#41;\n     ENDIF\n  ENDDO\n\n  oDialogo&#58;END&#40;&#41;\n\n  oFile&#58;= TTxtFile&#40;&#41;&#58;New&#40; oLector&#58;cPathDbf  + &quot;checadas&#46;eds&quot; &#41;\n  oFile&#58;PutStr&#40; cLinea &#41;\n  oFile&#58;Close&#40;&#41;\n\n  aRecords&#58;= str2a&#40; cLinea, CRLF &#41;\n\n  FOR nn&#58;= 1 TO Len&#40; aRecords &#41;\n      cClave&#58;=SubStr&#40;aRecords&#91;nn&#93;,9,4&#41;\n      cAnio&#58;= SUBSTR&#40; aRecords&#91;nn&#93;, 14, 2 &#41;\n      cMes &#58;= SUBSTR&#40; aRecords&#91;nn&#93;, 16, 2 &#41;\n      cDia &#58;= SUBSTR&#40; aRecords&#91;nn&#93;, 18, 2 &#41;\n      cHora&#58;= SUBSTR&#40; aRecords&#91;nn&#93;, 21, 2 &#41;\n      cMinu&#58;= SUBSTR&#40; aRecords&#91;nn&#93;, 23, 2 &#41;\n      cSegu&#58;= SUBSTR&#40; aRecords&#91;nn&#93;, 25, 2 &#41;\n\n      lGrabalo&#58;= &#46;T&#46;\n      cHoras &#58;= cHora+&quot;&#58;&quot;+cMinu+&quot;&#58;&quot;+csegu\n      cFechas&#58;= cDia+&quot;/&quot;+cMes+&quot;/&quot;+cAnio\n      IF Empty&#40; cHora &#41; &#46;OR&#46; Empty&#40; cMinu &#41; &#46;OR&#46; Empty&#40; cSegu &#41; &#46;OR&#46; Empty&#40; cDia &#41; &#46;OR&#46; Empty&#40; cMes &#41; &#46;OR&#46; Empty&#40; cAnio &#41;\n         lGrabalo&#58;= &#46;F&#46;\n      ENDIF\n      IF lGrabalo\n         IF AddRecord&#40; &quot;CHECADAS&quot; &#41;\n            checadas-&gt;CLAVE&#58;= cClave\n            checadas-&gt;FECHA&#58;= CToD&#40; cFechas &#41;\n            checadas-&gt;HORA &#58;= cHoras\n            checadas-&gt;&#40; DbUnLock&#40;&#41; &#41;\n         ENDIF\n      ENDIF\n\n  NEXT nn\n\n  RETURN NIL\n\n/*----------------------------------------------------------------------------------------------------*/\nSTATIC FUNCTION BufferClean&#40; cStrBuff, oBarra, nRecords &#41;\n  LOCAL nPos1, nPos2, cStrAuxil, cSTrClean, cChrClean, nn, cChar\n\n  cStrClean&#58;= &quot;&quot;\n  DO WHILE Len&#40; AllTrim&#40;cStrBuff&#41; &#41; &gt; 0\n     nPos1&#58;= AT&#40; &quot;&#40;&quot;, cStrBuff &#41;\n     nPos2&#58;= AT&#40; &quot;&#41;&quot;, cStrBuff &#41;\n     IF nPos1 &gt; 0\n        cStrAuxil&#58;= SubStr&#40; cStrBuff, nPos1, nPos2 &#41;\n        cStrAuxil&#58;= StrTran&#40; cStrAuxil, CRLF, &quot;&quot; &#41;\n        IF Len&#40; AllTrim&#40; cStrAuxil &#41; &#41; = 0\n           EXIT\n        ENDIF\n        cChrClean&#58;= &quot;&quot;\n        FOR nn&#58;= 1 TO Len&#40; cStrAuxil &#41;\n            cChar&#58;= SubStr&#40; cStrAuxil, nn, 1 &#41;\n            IF &#40; Asc&#40; cChar &#41;&gt;=48 &#46;and&#46; Asc&#40; cChar &#41;&lt;= 57 &#41; &#46;OR&#46; ;\n               &#40; Asc&#40; cChar &#41;&gt;=97 &#46;and&#46; Asc&#40; cChar &#41;&lt;=122 &#41; &#46;OR&#46; ;\n                 cChar = &quot;&#40;&quot; &#46;OR&#46; cChar = &quot;&#41;&quot; &#46;OR&#46; cChar = &quot;,&quot;\n                cChrClean+= cChar\n            ENDIF\n        NEXT\n        SysRefresh&#40;&#41;\n        ++nRecords\n        cStrClean+= cChrClean + CRLF\n        cStrBuff &#58;= SubStr&#40; cStrBuff, nPos2+1 &#41;\n        oBarra&#58;SetPos&#40; nRecords &#41;\n     ELSE\n        EXIT\n     ENDIF\n     // SysRefresh&#40;&#41;\n  ENDDO\n\n  RETURN cStrClean\n\n[/code:bns09mq6]\n\nSaludos','',0,'AIA=','bns09mq6',1,0,'',389,0,0),(38124,8221,3,233,0,'218.208.251.40',1190252312,1,0,1,1,1,0,'','','Just a heads up on another alternative to Crystal Reports that I came across. [url=http&#58;//www&#46;combit&#46;net/en/reporting&#46;aspx:2epmxjr9]List &amp; Label 12[/url:2epmxjr9] has its own report designer that can be freely redistributed.','',0,'EA==','2epmxjr9',1,0,'',233,0,0),(38125,8234,3,972,0,'81.164.117.81',1190265556,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2m3taqnw]\n&gt; if you change something in the script it does not GPF anymore. \n\nThen it is not a FWH issue. Its a HRB issue.\n\nYou should be able to trace it and fix it. Or aren\'t you the Patrick Mast that sells commercial xHarbour ? <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->[/quote:2m3taqnw]\nExact the same code without FWh does not GPF.\n\nPatrick','',0,'gA==','2m3taqnw',1,0,'',972,0,0),(38126,8231,6,456,0,'217.127.39.57',1190272674,1,0,1,1,1,1,'','','La funcion skipper, parece correcta. De todas formas si utilizas el metodo SetAdo, no hace falta definas ningún codeblock de movimiento ni funcion skipper. tXBrowse ya lleva definida la funcion para salto de registros, y si no estan definidos, define todos los codeblock para movimiento dentro del cursor (bGoTop,bGoBottom,bSkip,bBof,bEof,bBookMark,bKeyno, bKeyCount). \nPrueba a compilar con el codigo que te puse en el mensaje anterior, sin definir ningun codeblock, para ver que resultado obtienes.','',0,'gA==','16qb4o0f',1,1190294545,'',456,1,0),(38127,8234,3,2,0,'87.218.146.250',1190273585,1,0,1,1,1,1,'','','Patrick,\n\nI told you to replace Alert() with MsgAlert() and test it. Do it please\n\nFWH is not related to HRB files at all. If you get a GPF is simply because the global symbols table grows and thats a HRB issue not FWH\'s','',0,'gA==','1im67yak',1,0,'',2,0,0),(38128,8234,3,972,0,'81.164.117.81',1190273974,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2e42oo4l]I told you to replace Alert() with MsgAlert() and test it. Do it please\n\nFWH is not related to HRB files at all. If you get a GPF is simply because the global symbols table grows and thats a HRB issue not FWH\'s[/quote:2e42oo4l]\nOk, I will try to make more tests and see where it GPF\'s in other situations.\n\nPatrick','',0,'gA==','2e42oo4l',1,0,'',972,0,0),(38129,8226,3,924,0,'81.208.36.89',1190281368,1,0,1,1,1,0,'','','So no solution for 16 bit ?\nIs not possible,simply, read same key of windows registry to get the windows version ?\n\nTks','',0,'gA==','2abletem',1,0,'',924,0,0),(38130,8199,6,221,0,'190.78.48.216',1190289872,1,0,1,1,1,1,'','','SALUDOS, DONDE Y COMO DEFINO aCols[ 4 ], O PODRIAS PONER EL EJEMPLO COMPLETO Y DISCULPEN EL ABUSO, GRACIAS','',0,'','hdj7151x',1,0,'',221,0,0),(38131,8235,6,362,0,'200.158.19.172',1190291545,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:q2mt5wik]Wanderson,\nyo uso wbrowse de HDC y me va bien con dbf o con arrays, como comenta Antonio uso campos logicos y con eso distingo mis selecciones,\n\n[url=http&#58;//imageshack&#46;us:q2mt5wik][img:q2mt5wik]http&#58;//img62&#46;imageshack&#46;us/img62/2808/multiel8&#46;jpg[/img:q2mt5wik][/url:q2mt5wik]\n\nsalu2\npaco[/quote:q2mt5wik]\n\nHi Francisco, \n\nPor favor muestra VIA CODIGO, como se haces.\n\nGracias.\n\nRegards, saludos.','',0,'mA==','q2mt5wik',1,0,'',362,0,0),(38132,8235,6,300,0,'189.11.202.136',1190291897,1,0,1,1,1,0,'','','Gracias a todos, yo no queria usar browses que no sejam originales del fivewin, Antônio twbrowse no se implementa multsel nativamente?\n\nSalu2','',0,'','eot6xule',1,0,'',300,0,0),(38133,8239,6,221,0,'190.78.48.216',1190293412,1,0,1,1,1,1,'','sobre browse, lo he visto aqui antes pero....no lo encuentro','unas cositas tontas como hago en un browse, (no se cual es el del listbox creo es twbrowse, por defecto de fivewin)\n\n1.- colocar un bitmap segun 2 valores, pero desde recurso no con filename\n2.- colocar un color intercalado como los antiguos reportes blanco, verde, lo hice con una variable logica pero cada vez que seleccionaba una celda cambiaba el orden y se veia desastroso\n3.- si quisiera cambiar de browse por otro, todas las instrucciones cambias, ejemplo, las tres instrucciones hacen lo mismo (creo) pero en diferentes browses\n\n.- oLbx:bClrStd := color\n.- oLbx:bBkColor := color\n.- oLbx:nClrPane := color\n\ngracias de antemano','',0,'','2j7bzprm',1,0,'',221,0,0),(38134,8231,6,53,0,'189.139.14.170',1190294128,1,0,1,1,1,1,'','','Biel:\n\nEXCELENTE !, ahora todo funciona muy bien.\n\nGrande Maestro.\n\nUn Abrazo','',0,'','8aeue46x',1,0,'',53,0,0),(38135,8199,6,456,0,'217.127.39.57',1190295138,1,0,1,1,1,1,'','','xBrose tiene un data aCols que es un array de objetos columna, es decir tantos elementos como colunas tengas en el txBrowse.\nLuego bClrStd es un data del objheto columna, que esta dentro del array aCols que a su vez es un data del objeto txBrowse.\n\noBrw:aCols[numero de columna]:bClrStd ...\n\nTambien podria definirse en el momento de crear la columna, algo así\n[code:1j9upr02]\n      oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40;oWnd&#41;\n      &#46;&#46;&#46;\n      oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n      oCol&#58;cHeader  &#58;= \'Cabecera\'\n      oCol&#58;bStrData &#58;= Alias-&gt;Campo\n      oCol&#58;bClrStd  &#58;= &#123;||&#123;CLR_HBLUE,CLR_WHITE&#125;&#125;  //Color estandar\n      oCol&#58;bClrSel  &#58;= &#123;||&#123;CLR_BLACK,RGB&#40;157,255,255&#41;&#125;&#125; //Color elemento seleccionado\n      &#46;&#46;&#46;[/code:1j9upr02]','',0,'AIA=','1j9upr02',1,0,'',456,0,0),(38136,8240,3,86,0,'81.83.151.142',1190301304,1,0,1,1,1,1,'','User rights to a folder','Hello,\n\nIs there a function in FWH that can return the rights a user has in a certain folder ?\n\nThanks.','',0,'AIA=','6o8oimfv',1,0,'',86,0,0),(38137,8235,6,73,0,'200.23.18.132',1190301609,1,0,1,1,1,0,'','','karinha, este ejemplo es usando una dbf\n\nhBmp:=LoadBitMap(GetResources(),\"C_CHF\")\n\nREDEFINE LISTBOX oBrwM ;\n                  FIELDS Rg_Bmp(hBmp) ...........................\n\n\nSTAT FUNC Rg_Bmp(hBmp)\n      IF !((oDMov)-&gt;Borrado)\n         hBmp := LoadBitmap(GetResources(),\"C_CHF\")\n      ELSE\n         hBmp := LoadBitmap(GetResources(),\"C_CHT\")\n      ENDIF\nRETURN(hBmp)\n\nsalu2\npaco','',0,'AIA=','2gc8yqy7',1,0,'',73,0,0),(38138,8235,6,176,0,'201.255.174.6',1190302828,1,0,1,1,1,0,'','multiseleccion','Francisco como hacés para poner el checkbox en el browse de hernan, me podrías enviar un pequeño trozo del código\n\nGracias','',0,'AIA=','2hx5wur7',1,0,'',176,0,0),(38139,8235,6,362,0,'200.148.67.232',1190304019,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:1af21tx3]karinha, este ejemplo es usando una dbf\n\nhBmp:=LoadBitMap(GetResources(),\"C_CHF\")\n\nREDEFINE LISTBOX oBrwM ;\n                  FIELDS Rg_Bmp(hBmp) ...........................\n\n\nSTAT FUNC Rg_Bmp(hBmp)\n      IF !((oDMov)-&gt;Borrado)\n         hBmp := LoadBitmap(GetResources(),\"C_CHF\")\n      ELSE\n         hBmp := LoadBitmap(GetResources(),\"C_CHT\")\n      ENDIF\nRETURN(hBmp)\n\nsalu2\npaco[/quote:1af21tx3]\n\nGracias Fracisco.\n\nLa parte de los BITMAPS, lo comprendo.\n\nMuestrame la parte en que usted CAMBIA las colores.\n\nÉs TWBROWSE.PRG STANDARD?? Ó DE HERNAN LA QUE USAS??','',0,'gA==','1af21tx3',1,0,'',362,0,0),(38140,8199,6,221,0,'190.78.48.216',1190304196,1,0,1,1,1,1,'','','GRACIAS BIEL','',0,'gA==','1hnn6urd',1,0,'',221,0,0),(38141,8217,2,875,0,'64.76.108.182',1190305847,1,0,1,1,1,0,'','','A ver\n\n\n\nFUNCTION TRASBODE(d,CRUTA7) \n\n\nDeberias poner  \nUSE (cRuta7) ALIAS \"BODEGT\"   [color=red:1aoplgfn]SHARED[/color:1aoplgfn]\n\nCreo que estas lineas estan demas:\n\n*WHILE NETERR() \n*USE (cRuta7) ALIAS \"BODEGT\" \n*end while','',0,'Ag==','1aoplgfn',1,0,'',875,0,0),(38142,8240,3,138,0,'200.24.40.34',1190306085,1,0,1,1,1,1,'','','Not with FiveWin, Funcky has a component to do that.','',0,'Ag==','vthpmty8',1,0,'',138,0,0),(38143,8085,2,875,0,'64.76.108.182',1190306291,1,0,1,1,1,0,'','','Solo necesitas esto:\n\n\noPrn:=TDosPrn():New(\'\\\\computadora\\Epson-fx1170\')','',0,'Ag==','2fzjg2tb',1,0,'',875,0,0),(38144,7846,2,875,0,'64.76.108.182',1190307441,1,0,1,1,1,0,'','','La solucion es simple pon otro Get pero que su variable sea vacio\n\n\n \nlocal l_oGet ,[color=red:ci9r1vu1]xClav:=\'\'[/color:ci9r1vu1]\nprivate p_cArti :=space(14) \nprivate p_pDlg \nDEFINE DIALOG p_oDlg RESOURCE \'DCON_PRE1\' \nREDEFINE GET l_oGet VAR p_cArti ID 101 OF p_oDlg PICTURE \'@!@k\' VALID(Chk_Pre1()) \n\n[color=red:ci9r1vu1]@ 02,08 Get xClav Size 1,1[/color:ci9r1vu1]\n\nACTIVATE DIALOG p_oDlg CENTER \nClose Databases \nReturn Nil \n\nStatic Function Chk_Pre1() \n? \'1\' \nReturn(.t.) \n[code][/code]','',0,'Ag==','ci9r1vu1',1,0,'',875,0,0),(38145,8211,6,867,0,'201.140.184.46',1190307615,1,0,1,1,1,0,'','¿Es lo mas simple ?','[quote=&quot;Armando&quot;:1qgf0p43]Susy:\n\nYo utilizo TWbrowse del master HDC y lo hago así\n\n.....\n.....\noLbx:bBkColor := {|nRow,nCol,nStyle| BackColor(nCol,nStyle)}\noLbx:bTextColor := {|nRow,nCol,nStyle| ForeColor(nCol,nStyle)}\n.....\n.....\n\n\nSTATIC FUNCTION BackColor(nCol,nStyle)\nDO CASE\n      CASE nCol == 7\n         IF nStyle == 0 .AND. (cMaterial)-&gt;MAT_SEU &lt; (cMaterial)-&gt;MAT_MDK\n                RETURN(CLR_GREEN)\n         ELSE\n	RETURN(NIL)\n         ENDIF\n.....\n.....\n.....\n\nEn esta función te pongo solo una parte pues mi código es extenso pero con este pequeño ejemplo podras colorear cada una de las columnas, por cierto; la función ForeColor() es exactamente igual.\n\nGracias corazon pues es lo mas simple que pude haverlo echo antes?, y si fuera algo mas complejo alguna rutina o mas sugerencias de los fivewineros, gracias corazon se agradece si alguien mas tiene mas complejidad en los colores de listbox aplicando condiciones de criterio para colorear celdas \nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->\n\nSaludos[/quote:1qgf0p43]','',0,'gA==','1qgf0p43',1,0,'',867,0,0),(38146,8211,6,867,0,'201.140.184.46',1190307637,1,0,1,1,1,0,'','¿Es lo mas simple ?','[quote=&quot;Armando&quot;:y3cbaeky]Susy:\n\nYo utilizo TWbrowse del master HDC y lo hago así\n\n.....\n.....\noLbx:bBkColor := {|nRow,nCol,nStyle| BackColor(nCol,nStyle)}\noLbx:bTextColor := {|nRow,nCol,nStyle| ForeColor(nCol,nStyle)}\n.....\n.....\n\n\nSTATIC FUNCTION BackColor(nCol,nStyle)\nDO CASE\n      CASE nCol == 7\n         IF nStyle == 0 .AND. (cMaterial)-&gt;MAT_SEU &lt; (cMaterial)-&gt;MAT_MDK\n                RETURN(CLR_GREEN)\n         ELSE\n	RETURN(NIL)\n         ENDIF\n.....\n.....\n.....\n\nEn esta función te pongo solo una parte pues mi código es extenso pero con este pequeño ejemplo podras colorear cada una de las columnas, por cierto; la función ForeColor() es exactamente igual.\n\nGracias corazon pues es lo mas simple que pude haverlo echo antes?, y si fuera algo mas complejo alguna rutina o mas sugerencias de los fivewineros, gracias corazon se agradece si alguien mas tiene mas complejidad en los colores de listbox aplicando condiciones de criterio para colorear celdas \nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->\n\nSaludos[/quote:y3cbaeky]','',0,'gA==','y3cbaeky',1,0,'',867,0,0),(38147,8240,3,35,0,'167.7.140.254',1190308798,1,0,1,1,1,0,'','','Rene\n\nQuestion .. there was mention of a folder .. you mean a file folder on a server ??  \n\nI am looking for a library that I can find out \'who\' has a specific file open on a Microsoft Server .. Novlib had such a program for Novell .. but we have changed to Windows 2003 server.\n\nAlso .. know any good Microsoft AD libraries .. interigating AD to find \'trustees\' would be very userful to me as well!!\n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','1z5aqjmz',1,0,'',35,0,0),(38148,8241,3,51,0,'80.122.88.242',1190310370,1,0,1,1,1,0,'','Drag and drop - How to do - like itunes-software','[img:2ekgf240]http&#58;//www&#46;atzwanger&#46;com/fw/Clip1&#46;jpg[/img:2ekgf240]\n\n Is it possible to realize a \"Drag&amp;Drop\"  to a listbox\n by marking the list with the item which is dropped in?\n\nRegards\nOtto\n\n[img:2ekgf240]http&#58;//www&#46;atzwanger&#46;com/fw/Clip2&#46;jpg[/img:2ekgf240]\n\nIs it possible to realize a “Drag&amp;Drop” from a browser to a listbox by marking the list the item is dropped in? I have included a graphical example from my itunes-software where songs can be selected and put from a common pool into a specific playlist. The selected playlist remains marked until the action is finished.\nimg]http://www.atzwanger.com/fw/Clip2.jpg[/img]\n\n\n\n#include \"FiveWin.ch\"\n//----------------------------------------------------------------------------//\n\nfunction Main()\n    local oWnd, oCursor, oBtn, oLbx, cItem\n\n    DEFINE CURSOR oCursor RESOURCE \"book\"\n    DEFINE WINDOW oWnd TITLE \"FiveWin own Drag-Drop features!!!\"\n\n    @ 3, 3 BUTTON oBtn PROMPT \"DragMe/DropMe at the Listbox\" SIZE 210, 25\n\n    oBtn:oDragCursor = oCursor\n    oBtn:bDragBegin  = { | nRow, nCol, nKeyFlags |   SetDropInfo( Time() ) }\n\n    @ 6, 3 LISTBOX oLbx VAR cItem ;\n        ITEMS { \"I am a listbox!\",\"Apples\", \"Oranges\", \"Lemons\", \"Limes\" } SIZE 200, 200\n\n    // Set a DropOver action for the ListBox\n    oLbx:bDropOver = { | uDropInfo, nRow, nCol, nKeyFlags | ;\n         msginfo(uDropInfo),msginfo(str(nRow)+\"  \" + str(nCol) + \"  \" + str(nKeyFlags)) }\n\n    ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\n//-------------------------------------','',0,'CA==','2ekgf240',1,0,'',51,0,0),(38149,8242,6,1168,0,'84.123.201.235',1190311415,1,0,1,1,1,0,'','Terminal Server y Socket','Hola amigos,\n\nHe conseguido que con sockets paciencia me cierre las aplicaciones que tienen abiertas otros usuarios. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nEl problema se me plantea cuando las aplicaciones se ejecutan a traves de Terminal Server... lo de los sockets no me va..., claro la IP es la misma para todas las maquinas.... aunque he utilizado una IP que devuelve el Api del Terminal Server no pirula... a alguien se le ocurre como pueden funcionar los sockets en Terminal Server ?\n\nSaludos','',0,'CA==','1jqrwqsh',1,0,'',1168,0,0),(38150,8242,6,1168,0,'84.123.201.235',1190311466,1,0,1,1,1,0,'','','queria decir, claro esta, con sockets y paciencia. <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'CA==','c7a4wzbg',1,0,'',1168,0,0),(38151,8137,2,935,0,'200.62.80.225',1190312629,1,0,1,1,1,1,'','Es la Direcion','Hola amigos del Foro,\n\nAqui puse en esta direccion la clase tpdf para el que desee bajarla, les recuerdo que esta clase es parte de las contribuciones de xharbour\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/57055588/pdflib.zip.html\">http://rapidshare.com/files/57055588/pdflib.zip.html</a><!-- m -->\n\nRamon Paredes\nManagua Nicaragua','',0,'CA==','3oviipfv',1,0,'',935,0,0),(38152,8242,6,1146,0,'87.223.165.162',1190315166,1,0,1,1,1,0,'','','Se me ocurre que hagas una base de datos/fichero  que lean periodicamente los clientes con un timer y se desconecten.','',0,'CA==','2nw4n4se',1,0,'',1146,0,0),(38153,8242,6,1146,0,'87.223.165.162',1190315226,1,0,1,1,1,0,'','','Se me ocurre que hagas una base de datos/fichero  que lean periodicamente los clientes con un timer y se desconecten.','',0,'CA==','p0ruand8',1,0,'',1146,0,0),(38154,8242,6,1146,0,'87.223.165.162',1190315262,1,0,1,1,1,0,'','','Se me ocurre que hagas una base de datos/fichero  que lean periodicamente los clientes con un timer y se desconecten.','',0,'CA==','m472uzy8',1,0,'',1146,0,0),(38155,8243,6,439,0,'200.125.32.74',1190318821,1,0,1,1,1,1,'','restringir acceso a las dbfs en un grupo de trabajo de XP','Hola, \n\nTengo el siguiente problema tengo una aplicación que trabaja en el directorio app y tiene las bases de datos en el directorio data.\n\nEl programa sirve a varios usuarios de un grupo de trabajo en Windows XP, estoy buscando la forma de protejer los archivos del directorio data, de modo que los usuarios no puedan acceder a el pero si la aplicación.\n\nDe este modo evitaría que pudieran borrar los archivos o algo así.\n\nNo he podido dar con la forma, existe alguna forma de hacerlo con Windows XP Professional.\n \n(No hay ningún servidor, solo un grupo de trabajo).\n\nGracias desde ya.','',0,'CA==','25l3vdo4',1,0,'',439,0,0),(38156,8235,6,73,0,'200.23.18.132',1190319554,1,0,1,1,1,0,'','','SurGom (un nombre especial),\naki esta el codigo, el checkbox es un bitmap, ese lo cargas con el loadimage y dependiendo del valor logico del cmapo es el bitmap que usas.\n\n\nKarinha, asi pongo el color y uso el TWBROWSE de HDC\n\noBrw:bTextColor    := { | nRow, nCol, nStyleLine | IF(nStyleLine=0 .AND. (oDMov)-&gt;Borrado,CLR_HRED,) }\n\nsalu2\nPaco','',0,'CA==','f0bmihn6',1,0,'',73,0,0),(38157,8206,6,450,0,'200.245.0.8',1190319907,1,0,1,1,1,1,'','','[quote:8ilv1o1w]Lo comprimes y usas una contraseña, para que no se pueda descomprimir[/quote:8ilv1o1w]\n\nAntonio...\n\nComo usar una contraseña, para que no se pueda descomprimir ?\n\nGracias','',0,'gA==','8ilv1o1w',1,0,'',450,0,0),(38158,8244,6,278,0,'200.126.68.166',1190320957,1,0,1,1,1,1,'','Problema con TXBRowse y Array','Hola Foro:\n\nTengo un problema grave y no se como solucionarlo.\n\nEstoy usando txbrowse con array, y utilizo la instruccion \n\n\n[code:1n2ynn24]\noBrw&#58;SetArray&#40; aDatos, &#46;T&#46; &#41;\n[/code:1n2ynn24]\n\nPara asignar el array. Hasta aqui todo bien, el problema es que siempre al entrar ordena por la primera columna.\n\n[b:1n2ynn24]\nComo lo puedo hacer para que ordene por otra columna distinta a la primera , pero desde codigo. \n[/b:1n2ynn24]\n\nSi presiono los encabezados, ordena bien, pero necesito que se ordene por una columna, sin tener que presionar el encabezado.\n\nAlguien sabe como hacerlo ??  Alguna ayudita porfis !!\n\nSaludos','',0,'QIA=','1n2ynn24',1,0,'',278,0,0),(38159,8245,6,278,0,'200.126.68.166',1190321511,1,0,1,1,1,1,'','ADO - consultar el ultimo registro ingresado en una tabla.','Hola Foro:\n\nAlguien sabe como conocer cual es el valor del ultimo registro creado en un campo autonumerico de una tabla access 2000.\n\nLos campos autonumericos, son aquellos que el motor les asignan solo un valor numerico incremental, por lo general de 1 en 1.\n\nMi problema, es que necesito conocer el valor antes de grabar el recordset, pues es un dato mas de mi registro y no se cual es el que le asignará.\n\nAlguna idea ??\n\nSaludos\n\n[/b]','',0,'','2yx3xqt5',1,0,'',278,0,0),(38160,8243,6,53,0,'189.139.14.170',1190323198,1,0,1,1,1,1,'','','José:\n\nYo tengo la siguiente estructura\n\nC:\\CarpetaDeLaAplicacion\n      |_____CarpetaDeArchivos\n\nEntonces una solución muy primitiva es asignarle la propiedad de OCULTO a la carpeta de la aplicación, ojo solo a la carpeta de la aplicacion.\n\nAsí el usuario no ve donde estan los datos, <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSaludos','',0,'','3blvs76d',1,0,'',53,0,0),(38161,8246,6,793,0,'201.225.210.59',1190324551,1,0,1,1,1,0,'','Problema con el ejemplo testmail.prg','Por favor quien puede ayudarme \nNecesito enviar correos con archivos adjuntos desde mi aplicacion; estuve evaluando el ejemplo testmail; pero al enviar se bloquea y no responde. \n\nLe agradezco la ayuda desde ahora \n\n\n\nErick almanza \n<!-- e --><a href=\"mailto:dicoms@gmail.com\">dicoms@gmail.com</a><!-- e -->','',0,'','1x75t0tj',1,0,'',793,0,0),(38162,8247,3,167,0,'207.119.126.13',1190328728,1,0,1,1,1,1,'','fwh 7 link error with bcc5.5','I\'m trying for the 1st time to link with fwh7 for Borland 5.5\n\nI\'m getting this error:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Too many DEF file names: t:\\fwh7\\lib\\fiveHC.lib\n\n06/08/2007  12:26 PM           359,424 Fivehc.lib\n07/15/2007  08:02 PM         1,488,384 Fivehx.lib\n\nIdeas?','',0,'','2gfgc64h',1,0,'',167,0,0),(38163,8247,3,2,0,'87.218.146.157',1190331640,1,0,1,1,1,1,'','','Don,\n\nYou are using an extra or a missing \",\" when linking\n\nCheck your build.bat or make file','',0,'','v92ecexg',1,0,'',2,0,0),(38164,8239,6,661,0,'189.155.207.62',1190332743,1,0,1,1,1,0,'','','pues te respondo al numero 1:\n\niif(aDatosh[nAt,2]==\' \',loadbitmap(GetResources(),\"imagen1\"),loadbitmap(GetResources(),\"imagen2\"))','',0,'','3lzfktrc',1,0,'',661,0,0),(38165,8248,6,495,0,'200.120.233.214',1190335849,1,0,1,1,1,0,'','Para Antonio Linares..','Hola Antonio, no queria molestarlo con este problema. Pero llevo tiempo con esto y no logro encontrar una solución o al menos saber si se puede o no para no seguir intentandole jajaja.\n\nEstoy utilizando TXbrowse con arrays y necesito poner un Bitmap que cambie de estado, solo me funciona al trabajar directo desde la dbf.... como en el ejemplo adjunto.\n\nDirecto de la DBF, Funciona correctamente. \n\n::oBrw := TXBrowse():New( ::oWnd ) \n::oBrw:cAlias := DBF_GIRBAN:cAlias \n::oCol := Array( 01 ) \n::oCol[01] := ::oBrw:AddCol() \n::oCol[01]:cHeader := \"Conciliado\" \n::oCol[01]:AddResource( \"CHECK_SI\" ) \n::oCol[01]:AddResource( \"CHECK_NO\" ) \n::oCol[01]:bBmpData := { || IF( DBF_GIRBAN:ESTGIR == .T. , 1, 2) } \n::oCol[01]:BStrData := { || \"\" } \n::oCol[01]:nWidth := 60 \n::oBrw:CreateFromCode() \n.... \n.... \nDesde un Array, NO muestra el BMP \n\nWITH OBJECT ::oBrw \n:SetArray( AR_DATOS, .T. ) \nWITH OBJECT :aCols[ ESTADO ] \n:cHeader := \"Conciliado\" \n:AddResource( \"CHECK_SI\" ) \n:AddResource( \"CHECK_NO\" ) \n:bBmpData := { || IF(Len(AR_DATOS) &gt;0, (IF ( AR_DATOS[::oBrw:nArrayAt][ESTGIR] == .T. , 1, 2) ), NIL) } \n:bStrData := { || \"\"} \n:nWidth := 40 \nEND \nEND \n... \n... \nmuchas gracias\n\nSalu2\n\nMauro','',0,'','3fcbp2x9',1,0,'',495,0,0),(38166,8243,6,138,0,'200.24.40.34',1190336617,1,0,1,1,1,1,'','','Este es un trabajo paraaaaaaa.... Advantage Database Server.\n\nCon ADS no es necesario que compartas tu carpeta de datos, simplemente en tu programa pones:\n\nAdsRightsCheck(.f.)\n\nY listo... a seguir funcionando. Solo compartes la carpeta del EXE pero no de los datos.\n\nLa Explicacion:\n\nEl servidor ADS corre en el servidor u equipo donde tengas tus tablas, por lo tanto es una aplicacion local a tu servidor y tiene acceso a todas las carpetas.\n\nLos usuarios de tu programa se conectan a los datos mediante el ADS, pero no es necesario que ellos tengan acceso a los directorios, porque todo el tramite de acceso se hace via ADS.\n\nOtro punto a favor de ADS.','',0,'','2p3sfto0',1,0,'',138,0,0),(38167,8240,3,138,0,'200.24.40.34',1190337244,1,0,1,1,1,1,'','','I haven\'t checked in deep, I\'m actually in Colombia giving a training, but as far as I remember funcky has a Network Management component to handle all the stuff relative to users, shares, logins etc.\n\nGimme some time and I can check it out.','',0,'','3fxbzyla',1,0,'',138,0,0),(38168,8243,6,439,0,'200.125.32.55',1190339122,1,0,1,1,1,1,'','','[quote=&quot;RF&quot;:2ce3jy77]Este es un trabajo paraaaaaaa.... Advantage Database Server.\n\nCon ADS no es necesario que compartas tu carpeta de datos, simplemente en tu programa pones:\n\nAdsRightsCheck(.f.)\n\nY listo... a seguir funcionando. Solo compartes la carpeta del EXE pero no de los datos.\n\nLa Explicacion:\n\nEl servidor ADS corre en el servidor u equipo donde tengas tus tablas, por lo tanto es una aplicacion local a tu servidor y tiene acceso a todas las carpetas.\n\nLos usuarios de tu programa se conectan a los datos mediante el ADS, pero no es necesario que ellos tengan acceso a los directorios, porque todo el tramite de acceso se hace via ADS.\n\nOtro punto a favor de ADS.[/quote:2ce3jy77]\n\nMaster, tengo pendiente su respuesta a un e-mail que le mandé!\n\nCuando Ud. pueda haga recuerdo del mismo, jeje.\n\nQue estoy esperando novedades <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2ce3jy77',1,0,'',439,0,0),(38169,8137,2,228,0,'201.244.214.150',1190339997,1,0,1,1,1,1,'','Ejemplo...','Amigo que pena ser tan insistente, pero de casualidad no tienes un ejemplo del funcionamiento de esta clase. \n\nDe antemano gracias','',0,'gA==','f19b4rec',1,0,'',228,0,0),(38170,8239,6,838,0,'80.34.222.112',1190357301,1,0,1,1,1,0,'','','Yo te respndo a la segunda\n\n[code:ix4fipr3]  oLbx&#58;nClrPane&#58;=&#123;||iIF&#40;&#40;oLbx&#58;cAlias&#41;-&gt;&#40;OrdKeyNo&#40;&#41;&#41;%2==0,nRGB&#40;242,247,252&#41;,nRGB&#40;226,226,208&#41;&#41;&#125;[/code:ix4fipr3]\n\nSaludos\n\nJose Luis','',0,'AIA=','ix4fipr3',1,0,'',838,0,0),(38171,8248,6,2,0,'87.218.146.157',1190359937,1,0,1,1,1,1,'','','Prueba con una expresión más simple para asegurarte:\n\n:bBmpData := { || IF( ::oBrw:nArrayAt == 1, 1, 2 ) }','',0,'AIA=','165o55ei',1,0,'',2,0,0),(38172,8244,6,456,0,'217.127.39.57',1190360462,1,0,1,1,1,1,'','','En principio parece que no se puede hacer via código. La funcion que se encarga de ordenar el array, es una funcion statica interna a la clase, con lo que no puedes llamarla desde fuera. \nYo veo dos posibles soluciones, una crear un metodo para poder ordenar, y otra añadir un parametro a setarray para poder especificar por que columna ordenar. \n\nAunque ambas dos no son compicadas de implementar, la segunda se trataria de modificar solo dos lineas del metodo SetArray.\n[code:2bsdhfii]\nMETHOD SetArray&#40; aData, lAutoOrder, nColOrder &#41; CLASS TXBrowse\n[/code:2bsdhfii]\nAqui añadimos el parametro nColOrder\n\nLocaliza la linea donde se ejecuta SortArray, y cambia el if anterior (if nFor == 1)  por el siguiente.\n[code:2bsdhfii]\nif nFor == IF&#40;nColOrder!=NIL,nColOrder,1&#41;\n[/code:2bsdhfii]\nEste codigo no lo he probado, pero creo que debe de funcionar para lo que tu quieres. Llamas al metodo SetArray igual que antes, mas un tercer parametro opcional donde le especificas la columna por la que quieres ordenar.\n[code:2bsdhfii]\noBrw&#58;SetArray&#40; aDatos, &#46;T&#46; ,2&#41; [/code:2bsdhfii]\n\nPD Como siempre, si Antonio lo estima oportuno, y cree que puede ser util para mas gente, este codigo puede añadirse a la clase sin problema.','',0,'AIA=','2bsdhfii',1,0,'',456,0,0),(38173,8241,3,2,0,'87.218.146.157',1190361655,1,0,1,1,1,1,'','','Otto,\n\nYou have to calculate the right height based on the font that you use, but basically is like this:\n[code:1qsvsu8y]\noLbx&#58;bDropOver = &#123; | uDropInfo, nRow, nCol | oLbx&#58;Select&#40; Int&#40; nRow / 20 &#41; &#41; &#125; \n[/code:1qsvsu8y]','',0,'AIA=','1qsvsu8y',1,0,'',2,0,0),(38174,8226,3,972,0,'81.164.117.81',1190363515,1,0,1,1,1,0,'','','[quote=&quot;Romeo&quot;:2i1rsd45]So no solution for 16 bit ?\nIs not possible,simply, read same key of windows registry to get the windows version ?[/quote:2i1rsd45]\nTime to move to 23 bits Romeo! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nPatrick','',0,'gA==','2i1rsd45',1,0,'',972,0,0),(38175,8226,3,2,0,'87.218.146.157',1190364031,1,0,1,1,1,1,'','','32 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','kpgwk7q3',1,0,'',2,0,0),(38176,8249,3,130,0,'141.51.32.24',1190367410,1,0,1,1,1,1,'','Small bug in TDPicker ?','Hello Antonio,\n\nmaybe I found a small bug in the DTPicker class. Empty dates are not correct shown.\n\nThis is my change in the method SetDate ():\n[code:ri7k1b55]METHOD SetDate&#40; dDate, lEmpty &#41; INLINE SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dDate &#41;,;\n                                  Month&#40; dDate &#41;, Day&#40; dDate &#41;,;\n                                  If&#40; &#40;lEmpty != nil &#46;and&#46; lEmpty&#41; &#46;or&#46; Empty &#40;dDate&#41;, 1, 0 &#41; &#41;\n\n[/code:ri7k1b55]\n\nNow empty dates correct displayed.\n\nCould you please review it ?','',0,'AIA=','ri7k1b55',1,0,'',130,0,0),(38177,8226,3,972,0,'81.164.117.81',1190367575,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:sm35wb22]32 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:sm35wb22]\nDamned new Apple keyboard..  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'gA==','sm35wb22',1,0,'',972,0,0),(38178,8249,3,2,0,'87.218.146.157',1190371582,1,0,1,1,1,1,'','','Stefan,\n\nAlready included, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','18drjusz',1,0,'',2,0,0),(38179,8250,2,1177,0,'80.59.219.164',1190371985,1,0,1,1,1,0,'','Error BASE/1081.','Hola a todos, me sale un mensaje de error: Error BASE/1081.\nAqui os paso el contenido del fichero de error.log. \n\nApplication\n===========\n   Path and name: C:\\DSGCD\\DSGAVISO.EXE\n   Size: 1,058,240 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Error ocurred at: 21-09-07, 08:28:58\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = L   .F.\n     [   2] = C   .F.\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from DSGAVISO(67)\n\nSystem\n======\n   CPU type: 486\n   Hardware memory: 16128 (15 megas)\n\n   Free System resources: % 90\n        GDI    resources: % 90\n        User   resources: % 90\n\n   Windows and MsDos versions:  3.95,  5. 0\n   Windows total applications running:   2\n      1 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      2 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      3 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   DSGAVISO\n     Local   1:    A    Len:    0\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    O    Class: TDATABASE\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    A    Len:    4\n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    L    .F.\n     Local  12:    C    \"CONFIGAG.DBF\"\n\nLinked RDDs\n===========\n   DBF\n   _DBFCDX\n   DBFCDX\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 TDATABASE\n     2 ERROR\n\nMemory Analysis\n===============\n   Static memory:\n      data segment: 64k\n      Initial size:       33280 bytes  (SYMP=736, Stack=9500, Heap=2044)\n      Clipper Stack:      32073 bytes\n      13 Static variables: 182 bytes\n\n   Dynamic memory consume:\n      Actual  Value:     205888 bytes\n      Highest Value:     209984 bytes\n\nAgradeceria cualquier tipo de ayuda.\nUn saludo','',0,'','1sejtbmj',1,0,'',1177,0,0),(38180,8250,2,2,0,'87.218.146.157',1190374241,1,0,1,1,1,1,'','','Parece que en la línea 67 de DSGAVISO estás intentando sumar dos variables que son lógicas. Comprueba esa línea de código','',0,'','16i04217',1,0,'',2,0,0),(38181,8239,6,221,0,'190.78.48.216',1190374386,1,0,1,1,1,1,'','','MUY AGRADECIDO A AMBOS','',0,'','8hr2bo4s',1,0,'',221,0,0),(38182,8251,3,473,0,'81.82.10.56',1190374887,1,0,1,1,1,0,'','oFolder:SetColor()','I Tried this and this does not work.\n\nIs there a way to change the color of a folder.\n\nThanks\n\nWilly.','',0,'','iik2af0h',1,0,'',473,0,0),(38183,8251,3,2,0,'87.218.146.157',1190375999,1,0,1,1,1,1,'','','Willy,\n\nIf you are using XP themes then you can\'t change the folder color\n\nYou can change the color of the dialogs that the folder manages oFld:aDialogs','',0,'','2o5z88zb',1,0,'',2,0,0),(38184,8251,3,473,0,'81.82.10.56',1190376219,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI have also tried with\n\noFold1:aDialogs[1]:Setcolor()\n\nBut this does also not work','',0,'','jkxb7w7g',1,0,'',473,0,0),(38185,8247,3,167,0,'207.119.126.13',1190376556,1,0,1,1,1,1,'','','Thank you Antonio.  \n\nSorry to consume your time with syntax.\n\nAs always, I appreciate your support.','',0,'','umeff2e6',1,0,'',167,0,0),(38186,8137,2,92,0,'81.38.205.8',1190377401,1,0,1,1,1,0,'','Re: Ejemplo...','[quote=&quot;leandro&quot;:14pjox0w]Amigo que pena ser tan insistente, pero de casualidad no tienes un ejemplo del funcionamiento de esta clase. \n\nDe antemano gracias[/quote:14pjox0w]\n\nA mi tambien me iría bien.\n\nSaludos\nCarlos G.','',0,'gA==','14pjox0w',1,0,'',92,0,0),(38187,8235,6,176,0,'201.255.172.131',1190378030,1,0,1,1,1,0,'','Twbrowse con multiselecion','Gracias Francisco, yo intentaba con la clase  tmultisel y se ve que para array multidimensionales no funciona. Vi tu ejemplo con varias columnas y pensé que usabas esta clase.\n\nsurGom  es el nombre de mi negocio que es la venta de neumáticos.\nMi nombre es Luis Adolfo Sáenz\n\n\nNuevamente muchas gracias','',0,'gA==','3udrc36b',1,0,'',176,0,0),(38188,8118,6,1146,0,'87.223.165.162',1190379047,1,0,1,1,1,0,'','','Antonio,\n\nPues sigue sin ir. En este código, que es samples\\testbubm.prg, pones el cursor encima del botón y NO se muestra el mensaje:\n\n\n#include \"FiveWin.ch\"\n\n#define COLOR_BTNFACE   15\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oWnd, oBtnBmp\n\n   DEFINE WINDOW oWnd TITLE \"FiveWin Xp Theme-aware bitmaped buttons\" ;\n      COLOR 0, GetSysColor( COLOR_BTNFACE )\n\n\n   @ 2, 2 BUTTONBMP oBtnBmp OF oWnd ACTION MsgInfo( \"XP themes aware Button Bitmaps\" ) ;\n      BITMAP \"..\\bitmaps\\16x16\\garrow.bmp\"  MESSAGE \"Calendario\"  \n\n      \n   @ 6, 2 BUTTON \"From Resources\" OF oWnd SIZE 90, 25 ACTION nil   MESSAGE \"Calendario\"  \n      \n   ACTIVATE WINDOW oWnd\n\nreturn nil','',0,'gA==','zvbvynqd',1,0,'',1146,0,0),(38189,8244,6,278,0,'190.95.31.116',1190379895,1,0,1,1,1,1,'','','[b:2ta1m4kk] MUCHAS - MUCHAS GRACIAS Biel  [/b:2ta1m4kk] por tu ayuda, esta super claro lo que señalas, lo voy a probar al tiro.\n\nSi hay problemas, les cuento.\n\nSaludos,','',0,'QA==','2ta1m4kk',1,0,'',278,0,0),(38190,8247,3,2,0,'87.218.146.157',1190380122,1,0,1,1,1,1,'','','You are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','3dvj79k0',1,0,'',2,0,0),(38191,8241,3,51,0,'80.122.88.242',1190380545,1,0,1,1,1,0,'','','Hello Antonio, \nthank you. \nBut this only works if you drop the item. You don\'t see before you drop what exactly you have selected.\nAlso scroll doesn’t work. \nRegards\nOtto','',0,'QA==','1rzuywfr',1,0,'',51,0,0),(38192,8248,6,495,0,'200.120.233.214',1190382238,1,0,1,1,1,0,'','','Antonio, primero muchas gracias por responder..\nHe probado de varias formas incluso como me indicas e igual no funciona.\n:bBmpData := { || IF( ::oBrw:nArrayAt == 1, 1, 2 ) }\n\nTalves TXBrowse no permite el uso de Bmp al utilizar arrays de datos??\nalguien lo habra utilizado de esta forma??\n\nsigo en espera de alguna otra solución...\n\nsalu2\n\nMauro','',0,'QA==','l5q94dih',1,0,'',495,0,0),(38193,8252,6,228,0,'201.244.212.23',1190382489,1,0,1,1,1,1,'','Crear Dialogo Validacion Usuarios...','Amigos del foro tengan buen dia....\n\nLo que pasa es que quiero hacer un dialogo para validar el acceso de los usuario al sistema... Se que eso es muy facil y ya lo tengo hecho, en este momento lo coloco sobre la ventana principal y de esta manera accesan los usuarios. \n\nPero lo que quiero hacer es no abrir la ventana principal si no hasta que el usuario se valide correctamente. Lo he intentado de varias formas pero al momento que cierro al dialogo se cierra la aplicacion totalmente.\n\nAlguna idea?','',0,'QA==','15bb1hkw',1,0,'',228,0,0),(38194,8253,6,694,0,'201.86.89.223',1190382820,1,0,1,1,1,1,'','Agradecimentos ao SR. Antonio e demais!','Despois de muito esforço consegui criar uma tela que representa fielmente a imagem abaixo, Ou seja em uma dialog BROWSE + TECLADO + IMAGENS, esta ultima que pode ter um numero indeterminado, levando em consideração que se não houver imagens deve apresentar um texto no lugar da imagem.\n\nQuero agradecer ao SR. ANTONIO, por tão grandiosa e prestativa ajuda.\n\nGrato a todos.\n\nAoki\n\n<!-- m --><a class=\"postlink\" href=\"http://img405.imageshack.us/img405/1643/restaurantenw4.jpg\">http://img405.imageshack.us/img405/1643 ... ntenw4.jpg</a><!-- m -->','',0,'QA==','1ojbq276',1,0,'',694,0,0),(38195,8199,6,495,0,'200.120.233.214',1190383726,1,0,1,1,1,0,'','','Hola Biel, \nComo le haces para colorear lineas intercaladas utilizando la TXbrowse\nme podrias dar un ejemplo por favor\ngracias\n\nsalu2\n\nMauro','',0,'QA==','388wsq9d',1,0,'',495,0,0),(38196,8252,6,53,0,'189.139.24.143',1190384281,1,0,1,1,1,1,'','','Leandro:\n\nYo lo hago así\n\nEn la función que me crea el menú salgo a una función donde se valida al usuario\n\nSTATIC FUNCTION HazMenu()\nLOCAL oMenu\n\nLogIn()\n....\n.....\n....\nRETURN(.T.)\n\n\nY en la función LOGIN() creo un diálogo \n\nDEFINE DIALOG oDlg RESOURCE \"LogIn\" ICON oIcono FONT oFont\n* Gets para pedir usuario y clave de acceso\n* si el usuario no es válido aborto el programa\nIF ! lGo\n    QUIT\nENDIF\nRETURN((.F.))\n\nEspero esto te ponga en el hilo, si aún hay dudas me pegas un grito\n\nSaludos','',0,'QA==','d4gx528s',1,0,'',53,0,0),(38197,8254,6,53,0,'189.139.24.143',1190384570,1,0,1,1,1,1,'','Ejecutar comando SQL con ADO','Amigos del foro:\n\nContinúo aprendiendo con ADO, ahora les molesto con esta pregunta, una vez que ya tengo hecha lo conexión a MySql ¿ cómo puedo ejecutar un comando SQL ?, por ejemplo un CREATE DATABASE nombredelabase  o  un CREATE TABLE ....\n\nY si fuera posible me indiquen donde puedo encontrar este tipo de información para molestarlos lo menos posible.\n\nSaludos','',0,'QA==','4554zsb4',1,0,'',53,0,0),(38198,8255,6,73,0,'200.23.18.132',1190385340,1,0,1,1,1,0,'','Para conexiones','aqui les dejo una direccion que me parecio buena y a alguien le pudiera ser util.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->\n\nsalu2\npaco','',0,'QA==','3ruxa6yt',1,0,'',73,0,0),(38199,8240,3,35,0,'167.7.140.254',1190385863,1,0,1,1,1,0,'','','Rene\n\nThank you for checking into this .. my reason for asking is that we are a Helath Dept and there are HIPAA regulations that require us to keep records on who has access to what shares.\n\nIt would be wonderful if we could interogate Active Directory to give us that information rather than writing an external app to be filled in my network admins when shares are granted to individuals.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'QA==','2z71foto',1,0,'',35,0,0),(38200,8252,6,103,0,'189.43.121.190',1190386290,1,0,1,1,1,1,'','','Hola Leandro,\n\n     Yo hago asi:\n[code:vdbjxo46]\nFUNCTION MAIN&#40;&#41;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nvUsuarios&#58;=senha&#40;&#41;\nif empty&#40;vUsuarios&#41;\n   MsgBeep&#40;&#41;;MsgBeep&#40;&#41;\n   Set Resources To\n   return nil\nendif\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nDEFINE WINDOW oWnd &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nACTIVATE WINDOW oWnd\n\nSTATIC FUNCTION Senha&#40;&#41;\nlocal oDlg, cUsuario\n&#46;&#46;&#46;\n&#46;&#46;&#46;\nDEFINE DIALOG oDlg FROM 0,0 TO 199,399 PIXEL\n\n&#40;tus SAYS&#41;\n&#40;tus GETS&#41;\n\nACTIVATE DIALOG oDlg CENTERED\n\nreturn cUsuario\n[/code:vdbjxo46]\n\nEspero te sirva,\n\nSaludos,','',0,'AIA=','vdbjxo46',1,0,'',103,0,0),(38201,8199,6,456,0,'217.127.39.57',1190386663,1,0,1,1,1,1,'','','Hola Mauro, \nya se ha comentado otras veces en el foro. Para txBrose seria con el siguiente código.\n\n[code:3l5v4tce]\noBrw&#58;bClrStd&#58;=ClrStd&#40;&#41;\n\n//-----------------------\nSTATIC FUNCTION ClrStd&#40;&#41;\n//-----------------------\n   LOCAL aCol&#58;=&#123;&#125;\n   IF alias-&gt;&#40;ordkeyno&#40;&#41;&#41; % 2 == 0\n      aCol&#58;=&#123;CLR_BLACK, RGB&#40;193,221,255&#41; &#125;\n   ELSE\n      aCol&#58;=&#123;CLR_BLACK, RGB&#40;221,245,255&#41; &#125;\n   ENDIF\nRETURN aCol\n[/code:3l5v4tce]','',0,'AIA=','3l5v4tce',1,0,'',456,0,0),(38202,8235,6,41,0,'200.105.194.234',1190386828,1,0,1,1,1,0,'','','Francisco,\n\nuna consulta como se tienen 2 lineas de texto en un buttonbmp? o es otra clase\n\nsaludos\n\nMarcelo','',0,'AIA=','10oa85c8',1,0,'',41,0,0),(38203,8254,6,456,0,'217.127.39.57',1190387013,1,0,1,1,1,1,'','','Puedes usar el metodo execute del objeto connection.\n\n[code:h5ogecdg]\noCnn&#58;Execute&#40; &quot;SENTENCIA SQL&quot;&#41;\n[/code:h5ogecdg]\nPuedes encontrar documentacion en \n[url:h5ogecdg]http&#58;//ns7&#46;webmasters&#46;com/caspdoc/html/ado_component_reference&#46;htm[/url:h5ogecdg]','',0,'EIA=','h5ogecdg',1,0,'',456,0,0),(38204,8252,6,935,0,'200.62.80.98',1190387511,1,0,1,1,1,1,'','yo lo hago de esta manera','Hola leandro ,\n\nen la funcion principal yo lo hago asi :\n\n   pAceptar := .F.\n   pAceptar = !Veri_clave()\n   IF pAceptar\n      CLOSE DATA\n      RETURN nil\n   ENDIF\n   CLOSE DATA\n\ny en la funcion veri_clave, defino el dialogo donde capturo del nombre de usuario y clave encriptada, lo valido y si me devuelve .t. se abre el menu principal del sistema sino pues te manda error de usuario invalido.\n\nMientras no devuelva .t. la funcion veri_clave no hay forma que se abra el menu principal.\n\n\nSaludes,\n\nRamon Paredes\nManagua, Niacaragua','',0,'EIA=','32bb0xdh',1,0,'',935,0,0),(38205,8235,6,507,0,'200.52.203.212',1190387541,1,0,1,1,1,1,'','una o mas lineas en Buttonbmp','Hola, usa CRLF para hacer el salto de linea, del texto en el boton, ademas que le has de decir al boton que tiene que ser multilinea..\n\nsaludos','',0,'EIA=','2a14dxpa',1,0,'',507,0,0),(38206,8254,6,138,0,'200.24.40.34',1190388126,1,0,1,1,1,1,'','','o Puedes utilizar el objeto COMMAND\n\nYo prefiero esta segunda opcion para sentencias SQL que requieren operaciones masivas sobre una tabla o un conjunto de tablas y que solo arrojan un solo elemento en el recordset.','',0,'EIA=','1taloprt',1,0,'',138,0,0),(38207,8254,6,53,0,'189.139.24.143',1190388344,1,0,1,1,1,1,'','','Excelente, Gracias a ambos, como siempre dispuestos a apoyar.\n\nSaludos','',0,'EIA=','3994ezxa',1,0,'',53,0,0),(38208,8241,3,2,0,'87.218.146.157',1190390037,1,0,1,1,1,1,'','','Otto,\n\nIn Class TXBrwColumn Method MouseMove() you have an example about how to show an item and move it. Basically you create a child window:\n\n         DEFINE WINDOW ::oDragWnd OF ::oBrw STYLE WS_CHILD\n         ::oDragWnd:bPainted := {| hDC | ::PaintHeader( 0, 0, ::oBrw:nHeaderHeight, .t., hDC ),;\n                                 WndRaised( ::oDragWnd:hWnd, hDC ) }\n         ::oDragWnd:Move(nRow, nCol, ::nWidth, ::oBrw:nHeaderHeight)\n         ACTIVATE WINDOW ::oDragWnd','',0,'EIA=','2btr866y',1,0,'',2,0,0),(38209,8060,5,2,0,'87.218.146.157',1190390252,1,0,1,1,1,1,'','','Carsten,\n\nHere you have a class to manage XML:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7314&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=xml\">http://fivetechsoft.com/forums/viewtopi ... hlight=xml</a><!-- m -->','',0,'EIA=','s6eplqyi',1,0,'',2,0,0),(38210,8244,6,278,0,'190.95.31.116',1190390830,1,0,1,1,1,1,'','','Biel .\n\nRealice los cambios que me señalaste y funcion OK.\n\nGracias de nuevo,\n\nSaludos,','',0,'EIA=','1oyd1t30',1,0,'',278,0,0),(38211,8252,6,228,0,'201.244.212.23',1190390868,1,0,1,1,1,1,'','Perfecto...','Muchas Gracias a los tres de verdad que si.. los tres tienen la misma idea.. era lo que necesitaba.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EIA=','3q4q8n0r',1,0,'',228,0,0),(38212,8244,6,2,0,'87.218.146.157',1190392530,1,0,1,1,1,1,'','','Biel,\n\nImplementado, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EIA=','nwgekq8l',1,0,'',2,0,0),(38213,8235,6,362,0,'200.158.19.112',1190392531,1,0,1,1,1,1,'','','[quote=&quot;Francisco Horta&quot;:299fgjnp]SurGom (un nombre especial),\naki esta el codigo, el checkbox es un bitmap, ese lo cargas con el loadimage y dependiendo del valor logico del cmapo es el bitmap que usas.\n\n\nKarinha, asi pongo el color y uso el TWBROWSE de HDC\n\noBrw:bTextColor    := { | nRow, nCol, nStyleLine | IF(nStyleLine=0 .AND. (oDMov)-&gt;Borrado,CLR_HRED,) }\n\nsalu2\nPaco[/quote:299fgjnp]\n\nGracias Francisco. \n\nFrancisco, como hacer para dar un salto en las celdas de TWBROWSE?\n\nejemplo: \n\nnecesito en esta orden:\n\nCodigo \nDescricion\nPrecio\n\nUso WORKSHOP.EXE\n\nNo puede ser asi:\n\nCodigo - Descricion - Precio.\n\n\nRegards, saludos.','',0,'gA==','299fgjnp',1,0,'',362,0,0),(38215,8256,3,47,0,'203.144.143.5',1190394708,1,0,1,1,1,0,'','Ignore this (I\'ve fixed it)','Dear Antonio,\n\nI found this following error when I make listbox for array.  It used to work with FW2.5 but now I use xHB.Com (Jan 07) + FWH7.07 + ADS (Local).  How can I fix it.\n\nThanks in advance,\nDutch\n\n[quote:pbihrwkk]\nApplication\n===========\n   Path and name: D:\\V5\\EZ4_ADS\\ez4fo5.exe (32 bits)\n   Size: 4,389,376 bytes\n   Time from start: 0 hours 0 mins 12 secs \n   Error occurred at: 21/09/07, 23:56:36\n   Error description: Error DBCMD/2001  Workarea not in use: ORDKEYNO\n\nStack Calls\n===========\n   Called from:  =&gt; ORDKEYNO(0)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:SETFILTER(2639)\n   Called from: WBROWSE.PRG =&gt; (b)TWBROWSE:SETFILTER(2640)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:GODOWN(1223)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:VSCROLL(2185)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: control.prg =&gt; TWBROWSE:HANDLEEVENT(1360)\n   Called from: window.prg =&gt; _FWH(3164)[/quote:pbihrwkk]','',0,'gA==','pbihrwkk',1,1190396368,'',47,1,0),(38216,8256,3,2,0,'87.218.146.157',1190395704,1,0,1,1,1,1,'','','Dutch,\n\nAre you using FWH standard class TWBrowse ? FWH TWBrowse doesn\'t have 2639 souce code line','',0,'gA==','2j964pnk',1,0,'',2,0,0),(38217,8226,3,34,0,'68.5.217.82',1190396172,1,0,1,1,1,1,'','Apple','Apple ?  Then 23 bit would be correct .... <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','13vu2tuh',1,0,'',34,0,0),(38218,8257,3,34,0,'68.5.217.82',1190396520,1,0,1,1,1,1,'','Calendar / Appointment','I don\'t suppose anyone has written a Calendar / Appointment book using pure FW/xHB code, but perhaps someone has found a control set they can link in successfully.  I would like to update an old scheduler program ( 32 bit modification of an original Grumpfish program ) to the newer look and feel of true Windows scheduling.  There are Active X programs available, but I want to retain DBF capabilities for my data, and the ability to share the data file across several users.\n\nHas anyone found suitable products for this purpose ?  Your thoughts would be appreciated.\n\nI have looked at the CodeJock Active X component.  First, a previous email thread on this object never showed that it would finally work.  Secondly, I wrote to them about using it with a .DBF format and they indicated it was possible, but not designed to do that.  Has anyone tried using this product with a .dbf format  ( CodeJock Calendar Object ) ?\nThanks\n\n\nTim <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1dwgpf1o',1,0,'',34,0,0),(38219,8256,3,47,0,'203.144.143.4',1190396576,1,0,1,1,1,0,'','','Dear Antonio,\n\nI use Hernan\'s Twbrowse() and I\'ve fixed it.  The new Hernan\'s Twbrowse and ::cAlias must be empty() \"\" for array.\n\nThanks for your prompt reply,\nDutch','',0,'gA==','2q7r19en',1,0,'',47,0,0),(38220,8241,3,51,0,'80.122.88.242',1190401661,1,0,1,1,1,0,'','','Hello Antonio,\nThank you.\nIf I understand the code well this is the drag  event part.\nWhat I would need is the target selection part, too.\n\nMaybe you can provide a working example. This functionality is a must. The young generation is working that way. All the things are dragged to “MY …” the way iTune does.\n\nRegards \nOtto','',0,'gA==','1ro0mkvt',1,0,'',51,0,0),(38221,8206,6,439,0,'200.125.45.19',1190401745,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2zm5pc75]Moises,\n\n<!-- m --><a class=\"postlink\" href=\"http://upx.sourceforge.net/\">http://upx.sourceforge.net/</a><!-- m -->\n\nLo comprimes y usas una contraseña, para que no se pueda descomprimir[/quote:2zm5pc75]\n\nParece una interesante opción pero tampoco he encontrado el como usar contraseña, aparentemente no está en la información del producto.','',0,'gA==','2zm5pc75',1,0,'',439,0,0),(38222,8258,6,53,0,'189.139.24.143',1190402156,1,0,1,1,1,1,'','Ventajas de usar RECORDSET ?','Amigos:\n\nAhora que ando iniciando con ADO me surge una duda. ¿ Cual es la diferencia de usar RECORDSET si con comandos puros SQL se puede lograr lo mismo ? por ejemplo en lugar de oRs:ADDNEW() etc etc con RECORDSET, se puede usar INSERT etc etc con SQl puro.\n\nOjalá alguien me pueda aclarar lo que mi ignorancia no me deja ver.\n\nSaludos','',0,'gA==','2yx5nzd0',1,0,'',53,0,0),(38223,8259,6,694,0,'201.86.89.223',1190402872,1,0,1,1,1,1,'','trocar PROMPT REBAR? (resolvido)','É possível trocar o PROMPT de BUTTON REBAR?\n\n\nGrato\n\nAoki\n\n\nresolvido\n\noToolBar2:settext(1,\"teste\")','',0,'gA==','1efd2lkt',1,0,'',694,0,0),(38224,8253,6,940,0,'189.175.181.123',1190407061,1,0,1,1,1,1,'','','Bonito trabajo,\n\nfelicidades,\n\nsaludos..','',0,'gA==','2z8i4506',1,0,'',940,0,0),(38225,8258,6,278,0,'200.126.65.32',1190408909,1,0,1,1,1,1,'','','Hola Armando:\n\n1) Los recordset, estan pensados para manejar grupos de registros \n( truplas ,  aun cuando se podria leer toda la tabla ), pero creo que ese no es su objetivo.\n\nLas instrucciones execute y command, estan mas orientadas a manejos globales de las tablas.\n\n- La ventaja es que te permite tener un acceso inmediato a esos datos en forma mas rápida y cómoda. Tienen varios metodos y propiedades que nos facilitan las cosas.\n\n- Por ejemplo, dependiendo del tipo de cursor que habras, puedes ver los cambios que realizan los otros usuarios, en forma instantanea, reflejado en tu tabla.\n\n- Pienso que existen mas alternativas para uno al manejar el acceso tus datos, via recordset.  Te sugiero que veas este link, donde hay un manual y ejemplos de esto y muchos mas.\n\n __http://www.w3schools.com/ado/default.asp\n\nSaludos ,','',0,'gA==','o6zopn01',1,0,'',278,0,0),(38226,8199,6,495,0,'200.120.233.214',1190413630,1,0,1,1,1,0,'','','Gracias por tu respuesta Gabriel.\nHabia visto publicaciones anteriores, pero no me funcionan esto es lo que realizo en una Wnd..\ncolorea solamente si no esta la linea de ::oBrw:cAlias := ::oDbf:cAlias\n\n      ::oBrw := TXBrowse():New( ::oWnd )\n      ::oBrw:cAlias := ::oDbf:cAlias\n      ::oBrw:bClrStd := { || Colores() }\n\n      ::oCol := Array( 02 )\n      ::oCol[01] := ::oBrw:AddCol()\n      ::oCol[01]:cHeader := \"Sucursal\"\n      ::oCol[01]:bStrData := { || ::oLoc:desloc }\n      ::oCol[01]:nWidth  := 90  \n..\n..\n      ::oBrw:bKeydown  := { | nKey | ::Modifica( ::oDbf:RecNo()) }\n      ::oBrw:CreateFromCode()\n\n//-----------------------\nSTATIC FUNCTION Colores()\n   LOCAL aCol:={}\n   IF (ordkeyno()) % 2 == 0\n      aCol:={CLR_BLACK, RGB(193,221,255) }\n   ELSE\n      aCol:={CLR_BLACK, RGB(221,245,255) }\n   ENDIF\nRETURN (aCol)\n\nMuchas gracias \n\nsalu2\nMauro','',0,'','5wfikaqh',1,0,'',495,0,0),(38227,8260,6,471,0,'190.40.213.196',1190413828,1,0,1,1,1,1,'','Problemas con TDOSPRN','Amigos\n\nenvio una impresion usando la clase TDOSPRN\n\nde 10 hojas y en la hoja 5 se corto la luz \n\n\nIntento volver a listar otra cos a con esta clase\ny apenas prebndo la impresora sige imprimiendo la pagina 6 7\nreinicio la pc yu sigue igual \ncomo hago para que la impresora deje de imprimir esas paginas.\n\n\nSaludos \n\nVladimir Zorrilla','',0,'','15r6ctjo',1,0,'',471,0,0),(38228,8260,6,940,0,'189.175.181.123',1190414918,1,0,1,1,1,1,'','','Todas la impresiones quedan en cola de impresion,\n\nya que las impresoras son administradas por windows,\n\nno es problema de la tdosprn, \n\nen la impresora dale click derecho/cancelar impresion\n\n\nsaludos..','',0,'','1h658fk0',1,0,'',940,0,0),(38229,8261,6,529,0,'200.139.130.78',1190416981,1,0,1,1,1,0,'','Ads connection without drive mapping','hi, to use this (above, subject), i need use data dictonary? adt proprietary files? someone has an sample? thanks','',0,'','3k046hy5',1,0,'',529,0,0),(38230,8261,6,138,0,'200.24.40.34',1190418060,1,0,1,1,1,1,'','','Nop:\n\nIn your source code add:\n\nAdsRightsCheck(.F.)\n\nAnd open you database using the UNC notation:\n\nUSE \\\\servername\\share\\folder\\dbf.\n\nSample:\n\nUSE \\\\googleserver\\samples\\adsdemos\\customer.dbf\n\nand, you need a .INI file, ADS.INI file with the following section:\n\n[server]\nLAN_IP= xxx.xxx.xxx.xxx\nLAN_PORT= xx\n\nSample:\n\n[googleserver]\nLAN_IP=192.168.2.1\nLAN_PORT= 2000\n\nPlease notice that hidding directories feature is only available with Remote and Internet Servers.','',0,'','2a21wtl3',1,0,'',138,0,0),(38231,8262,6,579,0,'189.177.165.59',1190422962,1,0,1,1,1,1,'','Cambiar color en los get\'s activos (2007)','Hola foro,\n\nHe visto esta inquietud varias veces en el foro y me gustaría saber si en las recientes versiones de FWH ya se tiene contemplado esto sin tener que modificar el TGet (para no tener que modificarlo en cada nueva version)','',0,'','1av0v15z',1,0,'',579,0,0),(38232,8241,3,2,0,'87.218.146.157',1190444036,1,0,1,1,1,1,'','','Otto,\n\nJust an early prototype. As you see it means a lot of work to get such effect:\n[code:2pmeu363]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd, oChild\n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd\n\n   // oWnd&#58;bMMoved = &#123; | nRow, nCol | MoveChild&#40; nRow, nCol &#41; &#125;\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK CreateChild&#40; nRow, nCol, oWnd &#41;\n\nreturn nil\n\nfunction CreateChild&#40; nRow, nCol, oWnd &#41;\n\n   if oChild == nil\n      DEFINE WINDOW oChild OF oWnd STYLE WS_CHILD COLOR &quot;W/B&quot;\n      oChild&#58;SetSize&#40; 100, 22 &#41;\n      oChild&#58;Show&#40;&#41;\n      oChild&#58;bPainted = &#123; | hDC | oChild&#58;Say&#40; 0&#46;3, 0&#46;3, &quot;Hello world!&quot; &#41; &#125;\n      oChild&#58;bMMoved = &#123; | nRow, nCol | MoveInParent&#40; nRow, nCol &#41; &#125;\n   endif   \n\n   oChild&#58;Move&#40; nRow, nCol,,, &#46;T&#46; &#41;\n   \nreturn nil   \n\nfunction MoveChild&#40; nRow, nCol &#41;\n\n   if oChild != nil\n      oChild&#58;Move&#40; nRow, nCol,,, &#46;T&#46; &#41;\n   endif   \n\nreturn nil\n\nfunction MoveInParent&#40; nRow, nCol &#41;\n\n   local aPos &#58;= &#123; nRow, nCol &#125;\n   \n   ClientToScreen&#40; oChild&#58;hWnd, aPos &#41;\n   ScreenToClient&#40; oWnd&#58;hWnd, aPos &#41;\n   \n   oChild&#58;Move&#40; aPos&#91; 1 &#93; - 10, aPos&#91; 2 &#93; - 20,,, &#46;T&#46; &#41;\n   \nreturn nil   \n[/code:2pmeu363]','',0,'AIA=','2pmeu363',1,0,'',2,0,0),(38233,8262,6,2,0,'87.218.146.157',1190446601,1,0,1,1,1,1,'','','Rodolfo,\n\nFWH no lo incluye ya que no es un comportamiento estandard de Windows. Es decir, las aplicaciones Windows no cambian los colores de los GETs normalmente, aunque es cierto que así se ayuda al usuario a indicarle el GET activo.\n\nPodríamos considerar el implementarlo en la clase TGet, si un cierto número de usuarios lo solicitasen. Es algo bastante sencillo.','',0,'AIA=','273v5ofy',1,0,'',2,0,0),(38234,8262,6,78,0,'190.43.177.253',1190464127,1,0,1,1,1,0,'','','Holas,,, Yo uso BTNGET en todos los gets,, y a los activos les pone un color amarillo suave que va bien,,,,\n\nREDEFINE BTNGET oGet1 ........\n\nSalu2','',0,'AIA=','b9omtbkx',1,0,'',78,0,0),(38235,8261,6,529,0,'200.139.130.78',1190469588,1,0,1,1,1,0,'','','Rene, thanks. what´s hidding directory?? ads ou windows function?','',0,'AIA=','3o4x59kf',1,0,'',529,0,0),(38236,8263,6,694,0,'201.86.89.223',1190469843,1,0,1,1,1,1,'','Para RENE FLORES, Acesso remoto, qual a melhor solução!','Rene, poderia me ajudar amigo. Eu utilizo FWH7.01 + MYSQL 5.0, qual seria a melhor maneira de um sistema trabalhar remotamente em um cliente: TERMINAL SERVER?\n\nGrato\n\nAoki','',0,'AIA=','1b8mw4qa',1,0,'',694,0,0),(38237,8249,3,190,0,'124.7.26.156',1190473399,1,0,1,1,1,0,'','','Hello friends,\n\nHow to use DTPicker class in combination with SET DATE BRITISH ?\nI believe that it respects only mm/dd/yyyy. SET DATE BRITISH does\nnot change the date format in DTPicker !.  How to use this Class with\na dd/mm/yyyy format of dates.\n\nThanks \n\n- Ramesh Babu P','',0,'AIA=','3oirz2di',1,0,'',190,0,0),(38240,8258,6,53,0,'189.139.10.251',1190482786,1,0,1,1,1,1,'','','Juan:\n\nMuchas gracias por el aporte, ojalá algun otro guru del ADO pudiera aportar algo más.\n\nSaludos','',0,'AIA=','i4ooxeh3',1,0,'',53,0,0),(38241,8262,6,579,0,'189.177.56.108',1190483020,1,0,1,1,1,1,'','','Don Antonio,\n\nPor lo que he visto en el foro, este es un tema recurrente y cada vez que alguien lo pregunta cada quien le da una solución diferente por lo que lo ideal sería una solución oficial, algo asi como un SET TGETCOLOR ON en nuestro PRG principal para que lo trabaje.\n\nEn cuanto a que requieres que cierto numero de usuarios lo soliciten, no se cuantos necesitarías pero por lo pronto cuenta quienes lo han preguntado y quienes han respondido cada quien a su manera como una base de usuarios interesados en que lo implementes.\n\nSalu2 y \'chas gracias','',0,'AIA=','18lfa2i7',1,0,'',579,0,0),(38242,8265,3,47,0,'203.144.160.247',1190484449,1,0,1,1,1,0,'','How to set COLOR of GET with WHEN .F.','Dear All,\n\nI would like to set the color of GET with WHEN .F. clause.  Because when I set WHEN .F. the color will be gray (Text) with white (Background).\n\nHow can I change it?  The COLOR clause is not effect.\n\nBest regards,\nDutch','',0,'AIA=','3fxr865u',1,0,'',47,0,0),(38243,8241,3,51,0,'80.122.88.242',1190484671,1,0,1,1,1,0,'','','Hello Antonio,\n\nI had a look – this is what I need.\nDo you think you get it going and if yes what would be the timeframe.\nThanks in advance\nOtto','',0,'AIA=','ylz4m1zs',1,0,'',51,0,0),(38244,8241,3,2,0,'87.218.146.157',1190484894,1,0,1,1,1,1,'','','Otto,\n\nWhy don\'t you consider to do it yourself ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nI am sure that you have the technical skills to complete it.\n\nIf you want me to do it, send me an email and we will talk about the timeframe and price','',0,'AIA=','2n3gw3ae',1,0,'',2,0,0),(38245,8265,3,2,0,'87.218.146.157',1190485066,1,0,1,1,1,1,'','','Dutch,\n\nIf you do:\noGet:lDisColors = .F.\n\nthen you can set your own colors instead of the default ones for disabled gets','',0,'AIA=','bpm3cf7l',1,0,'',2,0,0),(38246,8262,6,2,0,'87.218.146.157',1190485304,1,0,1,1,1,1,'','','Rodolfo,\n\nEs muy simple modificar la clase TGet de FWH para implementarlo:\n\nMETHOD GotFocus() ...\n...\n::SetColor( ..., ... )\n...\n\nMETHOD LostFocus() ...\n...\n::SetColor( ..., ... )\n...','',0,'AIA=','15qg3cuf',1,0,'',2,0,0),(38247,8261,6,138,0,'200.24.40.34',1190486302,1,0,1,1,1,1,'','','Nop:\n\nHidding directories is a feature of ADS, this feature means that  you don\'t have to share the data directories in your server in order to have full access to them via ADS.\n\nIn Xbase normally in order to have full access to your DBF data you need to share and give full access to the user (read and write), so, in your workstation the user can see the directory with the data, he can copy it, edit it with external tools, etc.\n\nWith ADS you don\'t need to share the folder with the data in the server because ADS is installed in the server and it works as the only authorized user to access the data.\n\nAny way, you have to override the user rights to the directory, this is done with the AdsRightsCheck(.f.) function, with this function the ADS client program skips the security features of the server and have full access to the data.','',0,'AIA=','10yvm6q0',1,0,'',138,0,0),(38248,8241,3,51,0,'80.122.88.242',1190489076,1,0,1,1,1,0,'','','Hello Antonio,\nThank you.\nI didn\'t know that you offer such a service.\nI send you an email.\nRegards\nOtto','',0,'AIA=','zzibv7ef',1,0,'',51,0,0),(38249,8266,6,37,0,'201.230.246.36',1190505698,1,0,1,1,1,1,'','Search and Replace sobre cualquier archivo (.PRG, .TXT, Etc)','Estimados co-listeros, no tengo idea si existe algo asi, y si no seria grandioso que exista, una funcion que nos permita pasar 3 parametros, el Archivo, lo que hay que buscar y lo que hay que reemplazar. Ejemplo :\n\n// Funcion para busqueda y reemplazo : FwSar()\n\ncFile:=\"c:\\temp\\archivo.txt\"\ncTxtAnt:=\"campo\"\ncTxtNew:=\"columna\"\nFwSar(cFile,cTxtAnt,cTxtNew)\n\nHay algo parecido ?, sino, como se podria implementar ?\nMuchas gracias','',0,'AIA=','1w2p61f8',1,0,'',37,0,0),(38250,8249,3,868,0,'219.64.121.60',1190518380,1,0,1,1,1,1,'','','DTPicker is a windows control and does not know our clipper/harbour setting of date format. DTPicker honours only the date format set in the windows system thro international settings.\n\nBut we can also set our own custom format this way by adding the following as the last line in Initiate method:\n\n[code:1ojz05tf]\n// defines from commctrl&#46;h\n#define DTM_FIRST  0x1000\n#define DTM_SETFORMAT DTM_FIRST + 5\n\nSendMessage&#40; &#58;&#58;hWnd, DTM_SETFORMAT, 0, ;\n&#40; LPARAM &#41; SET&#40;_SET_DATEFORMAT&#41; &#41; ;\n[/code:1ojz05tf]\n\n[/code]','',0,'AIA=','1ojz05tf',1,0,'',868,0,0),(38251,8262,6,579,0,'189.163.6.240',1190519586,1,0,1,1,1,1,'','','Gracias Don Antonio,\n\nLo del SET TGETCOLOR ON yo lo decia para futuras versiones y no tener que asi que parchar cada vez que cambiemos de versión.','',0,'AIA=','su0fg3oj',1,0,'',579,0,0),(38252,8262,6,2,0,'87.218.146.157',1190529591,1,0,1,1,1,1,'','','Rodolfo,\n\nVamos a modificar la clase TGet aqui e implementarle una nueva DATA nClrFocus que en caso de estar definida, se usará automaticamente.\n\nEn cuanto este modificada te la enviamos para que la pruebes, gracias','',0,'AIA=','324prshf',1,1190533592,'',2,1,0),(38253,8262,6,2,0,'87.218.146.157',1190532935,1,0,1,1,1,1,'','','Rodolfo,\n\nImplementado. Hay una nueva función SetGetColorFocus( [ nClrFocus ] ) que activa el cambio de color en todos los GETs y opcionalmente te permite seleccionar el color que deseas usar para GETs con focus. Por defecto usa un amarillo parecido al de los tooltips.\n\nEjemplo de uso:\n\n   SetGetColorFocus() // change GET colors when focused \n\n   DEFINE DIALOG oDlg TITLE ...','',0,'','3cdkj6km',1,0,'',2,0,0),(38254,8249,3,2,0,'87.218.146.157',1190533750,1,0,1,1,1,1,'','','NageswaraRao,\n\nThanks!\n\nWe will wait to get some feedback from users before implementing it in the Class.','',0,'','1oy2nxkd',1,0,'',2,0,0),(38255,8266,6,2,0,'87.218.146.157',1190533912,1,0,1,1,1,1,'','','Enrique,\n\n// Funcion para busqueda y reemplazo : FwSar() \n[code:3vm92h8a]\nfunction FwSar&#40; cFileName, cTxtAnt, cTxtNew &#41;\n\n   MemoWrit&#40; cFileName, StrTran&#40; MemoRead&#40; cFileName &#41;, cTxtAnt, cTxtNew &#41; &#41;\n\nreturn nil\n[/code:3vm92h8a]','',0,'AIA=','3vm92h8a',1,0,'',2,0,0),(38256,8267,3,996,0,'65.102.184.133',1190534092,1,0,1,0,1,0,'','Deactivating display of default message in FW Message Bar','Hello All,\n\nDoes anyone know a way to stop the message bar from reverting back to the string it was initialized with whenever the user moves the mouse?  I\'m using:\n\noMainAppWnd:oMsgBar:SetMsg( \"New message\" )\n\n... to update what I want to have displayed, and I would like it to stay that way until I change it again with a subsequent SetMsg() call.  I know I can create an entirely new message bar to replace the existing one which would have a new default string, but that is much slower and creates a noticeable flashing in the message bar area.\n\nThanks!','',0,'AIA=','21pz16f3',1,0,'',996,0,0),(38257,8249,3,190,0,'124.7.27.236',1190537209,1,0,1,1,1,0,'','','Hello Mr.Nageswara Rao\n\nThanks for your solution.\n\n[code:3e4vf10n]\nSendMessage&#40; &#58;&#58;hWnd, DTM_SETFORMAT, 0, ; \n&#40; LPARAM &#41; SET&#40;_SET_DATEFORMAT&#41; &#41;\n[/code:3e4vf10n]\n\nWhat is this [color=blue:3e4vf10n]( LPARAM )[/color:3e4vf10n] ?, Where it should be defined.\n\n- Ramesh Babu P','',0,'AoA=','3e4vf10n',1,0,'',190,0,0),(38258,8267,3,303,0,'72.199.41.171',1190537674,1,0,1,1,1,0,'','','Patrick,\n\nTry this:\n\n   oWnd:oMsgBar:cMsgDef:=\"Message\"\n   oWnd:oMsgBar:setMsg(\"yyy\")\n\nWhere \"Message\" is the one you want displayed. \"yyy\" is just a dummy.\n\nJames','',0,'AoA=','247azlqt',1,0,'',303,0,0),(38259,8249,3,2,0,'87.218.146.157',1190539478,1,0,1,1,1,1,'','','Ramesh,\n\n( LPARAM ) is not needed. Simply remove it','',0,'AoA=','342qspij',1,0,'',2,0,0),(38260,8249,3,868,0,'219.64.121.60',1190540374,1,0,1,1,1,1,'','','Sorry again.\nYes pls remove (LPARAM)\n\nBut the date format is to be given in this style\n\ndd ( NOT DD ) for date.\nMM ( mm is for minutes) for month\nyyyy ( not YYYYY ) for year\n\nwe need to make appropriate Case conversion for dd, MM, and yyyy before sedning messsage :\nfor BRITISH it will be\nSendMessage( ::hWnd, 4101, 0, \'dd/MM/yyyy\')\nfor Indian/Italain\nSendMessage( ::hWnd, 4101, 0, \'dd-MM-yyyy\')\n\nperhaps STRTRAN(LOWER(SET(_SET_DATEFORMAT)),\'mm\',\'MM\') should be OK.\n\nActually i changed dtmpick.c and implemetned sendmessage in a c function there.\n\nNageswaraRao','',0,'AoA=','19z0gflf',1,0,'',868,0,0),(38261,8249,3,868,0,'219.64.121.60',1190542171,1,0,1,1,1,1,'','','Further to the above;\n\nIf we want to use the short of long date formats that are set in the windows system, we can set the style of the TDtPicker object to DTS_SHORTDATEFOMAT (= 0 and is the default) or DTS_LONGDATEFORMAT (=4).\n\nFor blank dates \'or\' the style with DTS_SHOWNONE (= 2 ) (eg. oDtp:nStyle := nor( oDtp:nStyle, 2 ).\n\nNow, we can also use the same class for timeformats or composite DATETIME formats also.\n\nfor pure time format ( using DATETIME value ) :\noDtp:nStyle := DTS_TIMEFORMAT\n\n(But this needs some changes in the datepick.c, as explained later).\n\nWe can also use this for full datetime values by setting our own format as \'dd/MM/yyy HH:mm:ss\' ( or anything like that with any additional text also)\n\nChanges to be made in datepick.c ( to properly handle time part of DATETIME values) :\n\nWhile setting we need to set hour, mins, secs and millsecs also.  Similary while getting, we need to set hour, mins, secs, millisecs also in the datetime value. These changes will make the class useful for picking date or time or datetime.\n\nmy revised code is like this :\n\nSETDATETIMEPICK( hWnd, dDateTime, GTD_NONE )\nGETDATETIMEPICK( hWnd ) --&gt; dDateTime\n\n[code:2b09hag7]\nHB_FUNC &#40; SETDATEPICK &#41; // &#40;hWnd, tDateTime, GTD_NONE &#41;\n&#123;\n   SYSTEMTIME  sysTime;\n   PHB_ITEM    pDate;\n\n   int         iYear, iMonth, iDay, iHour, iMinute, iSecs, iMilli ;\n   DOUBLE      dSecs ;\n\n   pDate             = hb_param&#40; 2, HB_IT_DATE &#41;;\n   hb_itemGetDT&#40; pDate, &amp;iYear, &amp;iMonth, &amp;iDay, &amp;iHour, &amp;iMinute, &amp;dSecs &#41;;\n   iSecs             = &#40;int&#41; dSecs;\n   dSecs             -= &#40;double&#41; iSecs;\n   dSecs             *= 1000&#46;0;\n   iMilli             =  &#40;int&#41; dSecs;\n\n   sysTime&#46;wYear         = iYear;\n   sysTime&#46;wMonth        = iMonth;\n   sysTime&#46;wDay          = iDay;\n   sysTime&#46;wDayOfWeek    = 0;\n   sysTime&#46;wHour         = iHour;\n   sysTime&#46;wMinute       = iMinute;\n   sysTime&#46;wSecond       = iSecs ;\n   sysTime&#46;wMilliseconds = iMilli ;\n\n   SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, DTM_SETSYSTEMTIME, hb_parni&#40; 3 &#41;,\n                &#40; LPARAM &#41; &amp;sysTime &#41;;\n&#125;\n\nHB_FUNC&#40; GETDATEPICK &#41; // &#40;hWnd&#41;\n   SYSTEMTIME st;\n\n   DOUBLE   dSecs ;\n\n\n   SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, DTM_GETSYSTEMTIME, 0, &#40; LPARAM &#41; &amp;st &#41;;\n\n   dSecs       = &#40;DOUBLE&#41; st&#46;wSecond ;\n   dSecs       += &#40;DOUBLE&#41; st&#46;wMilliseconds * 0&#46;001 ;\n\n   hb_retdt&#40; st&#46;wYear, st&#46;wMonth, st&#46;wDay, st&#46;wHour, st&#46;wMinute, dSecs, 0 &#41; ;\n&#125;\n[/code:2b09hag7]\n\nHowever millisecs are set to zero after the dtpicker class of windows is used.  That information is lost, unless we save it and restore later.  \n\n\nNageswaraRao','',0,'AIA=','2b09hag7',1,0,'',868,0,0),(38262,8268,6,533,0,'88.8.31.186',1190543918,1,0,1,1,1,0,'','Brush &amp; Fondos &amp; Controles','Buenos dias foro, hoy la cosa va de fondos (brush) en diálogos:\n\nTengo un diálogo (desde recursos con un brush) que tiene 1 folder, el problema está en que la parte superior del folder (donde están las pestañas) tiene un fondo que llega hasta la izquierda, que tapa el brush que tiene el diálogo, ¿cómo puedo solucionarlo?, he probado ltransparent, ..., pero no lo soluciono.\n\nMUCHAS GRACIAS.','',0,'AIA=','3mrjsrec',1,0,'',533,0,0),(38263,8233,2,2,0,'87.218.146.157',1190544278,1,0,1,1,1,1,'','','Tienes que usar una versión en \"modo protegido\" de CT52.LIB, que  funcione en \"memoria extendida\" (igual que Windows).','',0,'AIA=','3rlb5auw',1,0,'',2,0,0),(38264,8268,6,2,0,'87.218.146.157',1190544394,1,0,1,1,1,1,'','','Mike,\n\nPuedes poner la imagen en <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y aqui el link para poder verlo ? gracias','',0,'AIA=','jawxvy2c',1,0,'',2,0,0),(38265,8238,3,868,0,'219.64.121.60',1190547873,1,0,1,1,1,1,'','','Please try to adopt this code:\n[code:2hcf5e71]\nFUNCTION rsxbrowse&#40; rs &#41;\n\nLOCAL   oWnd, oBrw, oCol\n\n\n   DEFINE WINDOW oWnd\n\n   oBrw                 &#58;= TXBrowse&#40;&#41;&#58;New&#40;oWnd&#41;\n\n   oBrw&#58;bGoTop          &#58;= &#123;|| rs&#58;moveFirst&#40;&#41; &#125;\n   oBrw&#58;bGoBottom       &#58;= &#123;|| rs&#58;moveLast&#40;&#41; &#125;\n   oBrw&#58;bSkip           &#58;= &#123;| n | rsSkipper&#40; n, rs &#41; &#125;\n   oBrw&#58;bBof            &#58;= &#123;|| rs&#58;Bof&#40;&#41; &#125;\n   oBrw&#58;bEof            &#58;= &#123;|| rs&#58;Eof&#40;&#41; &#125;\n   oBrw&#58;bBookMark       &#58;= &#123;| bmNew | IIF&#40; bmNew == NIL, rs&#58;bookMark, rs&#58;bookMark &#58;= bmNew&#41; &#125;\n   oBrw&#58;bKeyNo          &#58;= &#123;|| rs&#58;AbsolutePosition &#125;\n   oBrw&#58;bKeyCount       &#58;= &#123;|| rs&#58;RecordCount&#40;&#41; &#125;\n\n   oCol                 &#58;= oBrw&#58;AddCol&#40;&#41;\n   WITH OBJECT oCol\n      &#58;bStrData         &#58;= &#123;|| cValToChar&#40; rs&#58;fields&#40;0&#41;&#58;Value &#41; &#125;\n      &#58;cHeader          &#58;= rs&#58;fields&#40;0&#41;&#58;Name\n   END\n\n   oCol                 &#58;= oBrw&#58;AddCol&#40;&#41;\n   WITH OBJECT oCol\n      &#58;bStrData         &#58;= &#123;|| cValToChar&#40; rs&#58;fields&#40;1&#41;&#58;Value &#41; &#125;\n      &#58;cHeader          &#58;= rs&#58;fields&#40;1&#41;&#58;Name\n   END\n\n   // and so on for other columns\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oWnd&#58;oClient         &#58;= oBrw\n\n   ACTIVATE WINDOW oWnd\n\n   RETURN NIL\n//------------------------------------------------------------------------------\nSTATIC FUNCTION RsSkipper&#40; nToSkip, rs &#41;\n\n   LOCAL nSkipped    &#58;= 0\n   LOCAL nCurPos\n\n   IF nToSkip == NIL\n      nToSkip     &#58;= 1\n   ENDIF\n\n   IF rs&#58;RecordCount&#40;&#41; &gt; 0\n\n      nCurPos              &#58;= rs&#58;AbsolutePosition\n      rs&#58;AbsolutePosition  &#58;= MAX&#40; 1, MIN&#40; nCurPos + nToSkip, rs&#58;RecordCount&#40;&#41; &#41; &#41;\n      nSkipped             &#58;= rs&#58;AbsolutePosition - nCurPos\n\n   ENDIF\n\n   RETURN nSkipped\n//------------------------------------------------------------------------------\n[/code:2hcf5e71]\n\nNageswaraRao','',0,'AIA=','2hcf5e71',1,0,'',868,0,0),(38266,8268,6,533,0,'88.8.31.186',1190548854,1,0,1,1,1,0,'','','Creo que lo he hecho correctamente:\n\nAhi va\n\n[url=http&#58;//imageshack&#46;us:28e8gozj][img:28e8gozj]http&#58;//img170&#46;imageshack&#46;us/img170/1084/foldersmc5&#46;png[/img:28e8gozj][/url:28e8gozj]','',0,'GA==','28e8gozj',1,0,'',533,0,0),(38267,8238,3,53,0,'189.139.22.85',1190552644,1,0,1,1,1,1,'','','NageswaraRao:\n\nThanks a lot, your code is very clear.\n\nThanks again\n\nKind regards','',0,'GA==','2he5tvso',1,0,'',53,0,0),(38268,8233,2,189,0,'189.6.210.101',1190560054,1,0,1,1,1,0,'','','obrigago. vou tentar conseguir.\n\ngrato por enquanto.','',0,'GA==','3v35bgze',1,0,'',189,0,0),(38269,8269,6,251,0,'190.76.5.126',1190561251,1,0,1,1,1,1,'','Busqueda Avanzada en un Browser o Listbox','Estimado Foro: \n\nEstoy tratando de realizar una busqueda avanzada cuando tengo un browser y muestro un dialogo con gets para la busqueda.... el detalle esta en quiero buscar lo que escribe el usuario en cualquier parte del campo..\n\nMe explico:  si tengo un browser de clientes y el usuario en un gets escribe \"[u:3k00rpnu]duar[/u:3k00rpnu]\", quiero que el busque no solo los que comienzan por duar sino cualquier parte del nombre.  Ejm \"e[u:3k00rpnu]duar[/u:3k00rpnu]do\" \"Perez [u:3k00rpnu]Duar[/u:3k00rpnu]te\"\n\nGracias.','',0,'AQ==','3k00rpnu',1,0,'',251,0,0),(38270,8268,6,2,0,'87.218.146.157',1190564972,1,0,1,1,1,1,'','','Mike,\n\nTe refieres a la banda gris a la derecha de las pestañas ?','',0,'AQ==','y8ht4y0d',1,0,'',2,0,0),(38271,8269,6,53,0,'189.139.22.85',1190569185,1,0,1,1,1,1,'','','DiGregorio:\n\nNecesitas algo así\n\nREDEFINE GET aGet[2] VAR cFilCli ID 102 OF oDlg UPDATE;\nPICTURE \"@!K\" VALID FilCli(cFilCli,cCliente,oDlg,oLbx)\n\n\nY esta es la funcion FilCli()\n\nFUNCTION FilCli(cFiltro,cFile,oDlg,oLbx)\ncFiltro := ALLTRIM(cFiltro)\nIF ! EMPTY(cFiltro)\n(cFile)-&gt;(DBSETFILTER({||  AT(cFiltro, (cFile)-&gt;CLI_NOM) &gt; 0 },\"AT(cFiltro, (cFile)-&gt;CLI_NOM) &gt; 0\" ))\nELSE\n(cFile)-&gt;(DBCLEARFILTER())\nENDIF\n(cFile)-&gt;(DBGOTOP())\noLbx:Refresh()\noDlg:Update()\nRETURN(.T.)\n\nSaludos','',0,'','2657de9s',1,0,'',53,0,0),(38272,8270,6,252,0,'201.140.19.12',1190572577,1,0,1,1,1,0,'','error con xharbour que no sucede con harbour','Tengo FWH 2.4 y xharbour 0.99.3. Los sistemas que compilo con xharbour en ocasiones mandan error de \"keystroke\" en los campos que se estan capturando. Esto nunca me sucede en un sistema que tengo compilado con harbour 43.0 y fwh 2.4. Mis ultimos  sistemas los compile con xharbour y ese error me ha estado ocasionando muchos problemas con mis clientes. Uso btnget y tsbrowse cuyas librerias las recompile con la version mencionada de xharbour, asismismo recompile las libs de de fwh con esa misma version. \n\n    La version de de xharbour 0.99.3 la baje hace ya unos años de la pagina de puerto sur, tengo entendido que esta fue la ultima version que funcionaba con fwh 2.4 ¿alguien sabe si hay otra version compatible?.\n\n   Agradezco de antemano su atencion y espero que alguien me comparta sus experiencias.\n\n    Saludos.\n\n     Jose Rios.','',0,'','14ok3s83',1,0,'',252,0,0),(38273,8270,6,252,0,'201.140.19.12',1190572782,1,0,1,1,1,0,'','','Mil disculpas el titulo del tema debe decir:\n\n   \"error con [b:15yfpl6v]xharbou[/b:15yfpl6v]r que no sucede con [b:15yfpl6v]harbour[/b:15yfpl6v]\"','',0,'QA==','15yfpl6v',1,0,'',252,0,0),(38274,8137,2,180,0,'81.38.53.62',1190573382,1,0,1,1,1,0,'','','Pues eso, eternamente agradecido le estaría a quién un ejemplo pusiera .\nDe antemano, gracias.\n\nUn saludo,\nManuel','',0,'QA==','2tuexzfu',1,0,'',180,0,0),(38275,8271,3,261,0,'63.196.154.4',1190575555,1,0,1,1,1,1,'','Disconnected Recordset ADO','Does anybody know how to disconnect a recordset in FiveWin / xHarbour.\n\nIn VB its \n\nSet oRs.ActiveConnection = Nothing\n\nIn FiveWin / xHarbour \n\noRs:ActiveConnection := Nil  // does not work.\noRs:ActiveConnection := \"\"   // does not work.\n\nThanks, \n\nByron...','',0,'QA==','2o8t1unw',1,0,'',261,0,0),(38276,8086,3,261,0,'63.196.154.4',1190575972,1,0,1,1,1,1,'','Print barcode','Why no just get a barcode font and print it like any other piece of text?','',0,'QA==','18h1708k',1,0,'',261,0,0),(38277,8270,6,2,0,'87.218.146.157',1190582789,1,0,1,1,1,1,'','','José,\n\nLas versiones más recientes de Harbour y xHarbour las puedes descargar desde:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.exe\">www.fivetechsoft.com/files/harbour.exe</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'QA==','x1nxyg0f',1,0,'',2,0,0),(38278,8267,3,996,0,'65.102.184.133',1190583247,1,0,1,0,1,0,'','','Hey thanks James, that worked perfectly!  Thank\'s also for your encouragement in using more Object Oriented coding techniques.  I\'m making use of it in some small experimental ways as I become more comfortable with it.  So far what has impressed me most is the use of inheritance when I need to customize just one or two methods of a FiveWin class (such as the tget class).  And I\'m very grateful that Antonio included so much of the class source code with FiveWin.  In addition to allowing me to make some minor changes I may need, it also serves as an incredible OOP teaching tool.\n\n-Patrick','',0,'QA==','3bign2fl',1,0,'',996,0,0),(38279,8267,3,303,0,'72.199.41.171',1190585630,1,0,1,1,1,0,'','','Patrick,\n\n&gt;Hey thanks James, that worked perfectly! \n\nGood. I don\'t fully understand the message bar message system. It seems that setMsg() only displays the new message until there is a refresh() or systemrefresh(). This does allow displaying a temporary message during a process, then it reverts back to the original message. Sometimes this might be useful, and other times not.\n\n&gt;Thank\'s also for your encouragement in using more Object Oriented coding techniques. I\'m making use of it in some small experimental ways... \n\nWell, I am glad to hear you are experiementing. There is so much to be gained from using OOP. It is a little daunting at first, but once you get the hang of it, your productivity skyrockets.\n\n&gt;So far what has impressed me most is the use of inheritance when I need to customize just one or two methods of a FiveWin class (such as the tget class).\n\nAh, yes inheritance is great. Polymorphism (same naming) is also. You can pass around various objects and call the same method (e.g. edit(), print(), delete(), etc.). Incredibly useful!\n\nI also encourge you to try creating business objects. Unlike FW objects which are mostly interface objects, business objects emulate thier real-world counterparts like items, customers, invoices, etc. We are accustomed to thinking of these in terms of just data (fields in a database), but they also may have behaviors (methods) like an invoice might have an acceptPayment() method which updates the balance due and also maybe the customer file. Note that you could have an object embedded in another object, like a customer object could be embedded in the invoice object. The you could something like:\n\n[code:31marz9i]method acceptPayment&#40; nAmount, dDate &#41; class TInvoice\n    local oCustomer\n    oCustomer&#58;= TCustomer&#40;&#41;&#58;new&#40;&#41;\n    oCustomer&#58;acceptPayment&#40; nAmount, dDate &#41;\n    oCustomer&#58;end&#40;&#41;\n    \n    &#58;&#58;balance&#58;= &#58;&#58;balance - nAmount\n    &#58;&#58;lastPaid&#58;= dDate\n    &#58;&#58;save&#40;&#41;\n\nreturn self[/code:31marz9i]\n\nSo, now to accept a payment on an invoice all you do is:\n\n[code:31marz9i]   oInvoice&#58;=TInvoice&#40;&#41;&#58;new&#40; cInvno&#41;\n   oInvoice&#58;acceptPayment&#40; nAmount, dDate &#41;\n   oInvoice&#58;end&#40;&#41;[/code:31marz9i]\n\nBoth the invoice file and the customer file are updated automatically.\n\nCheck out the book on business objects shown on my website. You can get it used sometimes for as little as one cent! Highly recommended.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nJames','',0,'AIA=','31marz9i',1,0,'',303,0,0),(38280,8271,3,35,0,'65.188.6.143',1190585704,1,0,1,1,1,0,'','','oRs:Close()\n\nI wrote a thread compiled from my questions .. hope this helps:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6691&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','3v8bv6wv',1,0,'',35,0,0),(38281,8267,3,233,0,'218.208.251.40',1190598699,1,0,1,1,1,0,'','','I too am starting to experiment with OOP. I like it because it tends to make the codes tidier and more readable. At a glance, you can tell what the code is trying to accomplish. However I do find myself confused a lot of times when determining which method should go to which object. Sometimes it\'s the issue of how to organize objects within objects that got me all tangled up.\n\nBut I did get the \"aha\" moments that James used to mention a couple of times <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->. For instance, I could sub class the database object and design it in such a way that it\'s tied to a data dict. Whenever an attempt to open a non-existent dbf or indexes are made, it\'ll automatically be created on the fly based on settings in the data dict. \n\nUnfortunately second hand book that James recommended can\'t be bought by me if I order via Amazon as I reside in Malaysia.\n\nThanks for your articles on OOP James.  Sorry for going off-topic here Patrick, hope you wouldn\'t mind','',0,'AIA=','2k23lcbs',1,0,'',233,0,0),(38282,8267,3,303,0,'72.199.41.171',1190600622,1,0,1,1,1,0,'','','Hua,\n\n&gt;I too am starting to experiment with OOP. I like it because it tends to make the codes tidier and more readable. At a glance, you can tell what the code is trying to accomplish.\n\nVery good points. One of the basics of OOP is information hiding. By putting lots of the code into methods, the flow of the program is easier to follow. It is kind of like looking at a collapsed outline.\n\n&gt;However I do find myself confused a lot of times when determining which method should go to which object. Sometimes it\'s the issue of how to organize objects within objects that got me all tangled up.\n\nAh, yes, this is difficult at first and only gets better with experience. If you do have these types of questions, feel free to post them here and I will try to help. Others may like to hear about it too.\n\nI find that it helps to first think of the real-world objects (try to forget about thinking in programming terms at first). For instance I am working on a project in the medical field right now. First I try to figure out the terminology (patient, provider, procedure, encounter, billing code, etc.) and how all those terms relate to each other. I write down a description of each one an how it relates to the others in plain words, not code. This does help a lot.\n\n&gt;But I did get the \"aha\" moments that James used to mention a couple of times . For instance, I could sub class the database object and design it in such a way that it\'s tied to a data dict. Whenever an attempt to open a non-existent dbf or indexes are made, it\'ll automatically be created on the fly based on settings in the data dict.\n\nCongradulations on that!  \n\n&gt;Unfortunately second hand book that James recommended can\'t be bought by me if I order via Amazon as I reside in Malaysia.\n\nI\'m sorry to hear that. Is this because Amazon will not ship outside the US? Is it a tax issue? Have you tried to find it via other sources?\n\n&gt;Thanks for your articles on OOP James.\n\nI\'m glad you found them useful. My hope is that my teaching some OOP techniques will allow others to gain from the benefits of OOP like I have. It is an incredible tool.\n\nJames','',0,'AIA=','2pkr1aqc',1,0,'',303,0,0),(38283,8271,3,868,0,'219.64.121.60',1190602422,1,0,1,1,1,1,'','','This is the working solution:\n\noRs:oConnection:hObj := NIL\n\nI am using this for disconnected recordsets.\n\nYou can save the value of hObj and reassign to get reconnected\n\nNageswaraRao','',0,'AIA=','55oa4jua',1,0,'',868,0,0),(38284,8268,6,533,0,'88.8.29.121',1190607188,1,0,1,1,1,0,'','','Exactamente.','',0,'AIA=','1pvd4lum',1,0,'',533,0,0),(38285,8268,6,2,0,'87.218.146.157',1190607621,1,0,1,1,1,1,'','','Has probado a hacer oFolder:SetColor( ..., .... ) ?','',0,'AIA=','15xidtem',1,0,'',2,0,0),(38286,8266,6,37,0,'201.230.246.36',1190613453,1,0,1,1,1,1,'','','Sencillamente \"MAGNIFICO\", una vez mas GRACIAS !!!','',0,'AIA=','1qz304f7',1,0,'',37,0,0),(38287,8257,3,131,0,'194.179.55.36',1190615903,1,0,1,1,1,0,'','','Tim,\nI remember that Paco García, from Canalfive, has a calendar with appointments, and a beta of a scheduler. Ask him for this products.\nRegards,\nJosé Luis','',0,'AIA=','i8pu6lfu',1,0,'',131,0,0),(38288,8268,6,533,0,'80.32.177.143',1190617634,1,0,1,1,1,0,'','','No lo he probado Antonio <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , porque no quiero asignarle ningún color, sino que sea transparente, y que lo que se vea sea el brush de fondo del dialogo.\n\nSi eso se puede conseguir con setcolor, ¿cuál sería?.\n\nMUCHAS GRACIAS.','',0,'AIA=','1wk0fmwe',1,0,'',533,0,0),(38289,8250,2,1177,0,'80.59.219.164',1190617857,1,0,1,1,1,0,'','','Muchas gracias por la ayuda. Voy a comprobar si es ese el fallo.\nUn saludo.','',0,'AIA=','234gwo19',1,0,'',1177,0,0),(38290,8268,6,2,0,'87.218.146.157',1190617888,1,0,1,1,1,1,'','','Mike,\n\nTransparente no se puede hacer salvo que se hagan cambios internos en la propia clase de Windows en el pintado.\n\nSi el fondo del diálogo es un color, lo que tal vez se pueda hacer es asignarle ese color al folder y ver si cambia el color de esa franja.','',0,'AIA=','13tta3k0',1,0,'',2,0,0),(38291,8208,3,2,0,'87.218.146.157',1190623928,1,0,1,1,1,1,'','','Romeo,\n\n&gt; Undex XP i used the function GETPROGDIR() the retrieve it\n\nWhat function is that one ? It does not seems to be a FW/FWH one','',0,'AIA=','12aresmm',1,0,'',2,0,0),(38292,8249,3,868,0,'219.64.121.60',1190625328,1,0,1,1,1,1,'','','Minimum and/or  Maximum range also can be specified for dtpicker. The code i use for setting rage is this :\n[code:1s5bj938]\n// defines are in commctrl&#46;ch\n// DTM_SETRANGE 0x1004\n\nvoid datetosystime&#40; PHB_ITEM pDate, SYSTEMTIME * pst &#41;\n&#123;\n\n   int         iYear, iMonth, iDay, iHour, iMinute, iSecs, iMilli ;\n   DOUBLE      dSecs ;\n\n   hb_itemGetDT&#40; pDate, &amp;iYear, &amp;iMonth, &amp;iDay, &amp;iHour, &amp;iMinute, &amp;dSecs &#41;;\n   iSecs             = &#40;int&#41; dSecs;\n   dSecs             -= &#40;double&#41; iSecs;\n   dSecs             *= 1000&#46;0;\n   iMilli             =  &#40;int&#41; dSecs;\n\n   pst-&gt;wYear         = iYear;\n   pst-&gt;wMonth        = iMonth;\n   pst-&gt;wDay          = iDay;\n   pst-&gt;wDayOfWeek    = 0;\n   pst-&gt;wHour         = iHour;\n   pst-&gt;wMinute       = iMinute;\n   pst-&gt;wSecond       = iSecs ;\n   pst-&gt;wMilliseconds = iMilli ;\n\n   return ;\n&#125;\n\nHB_FUNC &#40;DATETIMEPICK_SETRANGE&#41; // &#40; hWnd, dMin, dMax &#41;\n&#123;\n   SYSTEMTIME st&#91;2&#93;;\n   DWORD flags = 0;\n   PHB_ITEM pDate;\n\n   if &#40; ISDATE&#40;2&#41; &#41;\n   &#123;\n      flags    = GDTR_MIN ;        // 1\n      pDate    = hb_param &#40; 2, HB_IT_DATE &#41; ;\n      datetosystime&#40; pDate, &amp;&#40; st&#91;0&#93; &#41; &#41; ;\n   &#125;\n   if &#40; ISDATE&#40;3&#41; &#41;\n   &#123;\n      flags    |= GDTR_MAX ;      // 2\n      pDate    = hb_param &#40; 3, HB_IT_DATE &#41; ;\n      datetosystime&#40; pDate, &amp;&#40; st&#91;1&#93; &#41; &#41; ;\n   &#125;\n\n   SendMessage&#40; &#40;HWND&#41; hb_parnl&#40; 1 &#41;, DTM_SETRANGE, flags, &#40; LPARAM &#41; &amp;st &#41;;\n&#125;\n[/code:1s5bj938]\n\nNageswaraRao','',0,'AIA=','1s5bj938',1,0,'',868,0,0),(38293,8208,3,6,0,'87.20.217.207',1190630407,1,0,1,1,1,1,'','','I think it\'s mine:\n\n[code:1we5rmbq]#define HKEY_CURRENT_USER  2147483649\n#define HKEY_LOCAL_MACHINE 2147483650\n\n#define KEY_ALL_ACCESS 983103\n\n\nFUNCTION GETPROGDIR&#40;&#41;\n\n    LOCAL hKey &#58;= 0\n\n    LOCAL nType &#58;= 0\n\n    LOCAL cData &#58;= SPACE&#40; 256 &#41;\n\n    LOCAL nSize &#58;= LEN&#40; cData &#41;\n\n    IF !ISWINNT&#40;&#41;\n        REGOPENKEY&#40; HKEY_CURRENT_USER, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders&quot;, 0, KEY_ALL_ACCESS, @hKey &#41;\n        REGQUERYVALUE&#40; hKey, &quot;Programs&quot;, 0, @nType, @cData, @nSize &#41;\n    ELSE\n        REGOPENKEY&#40; HKEY_LOCAL_MACHINE, &quot;Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders&quot;, 0, KEY_ALL_ACCESS, @hKey &#41;\n        REGQUERYVALUE&#40; hKey, &quot;Common Programs&quot;, 0, @nType, @cData, @nSize &#41;\n    ENDIF\n\n    REGCLOSEKEY&#40; hKey &#41;\n\n    RETURN LEFT&#40; cData, AT&#40; CHR&#40; 0 &#41;, cData &#41; - 1 &#41;\n\n\nDLL32 FUNCTION REGOPENKEY&#40; hKey AS LONG, cSubKey AS LPSTR, nOptions AS DWORD, nSamDesired AS DWORD, @nHandle AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;RegOpenKeyExA&quot; LIB &quot;advapi32&#46;dll&quot;\n\nDLL32 FUNCTION REGQUERYVALUE&#40; hKey AS LONG, cValueName AS LPSTR, nReserved AS LONG, @nType AS PTR, @cData AS LPSTR, @nSize AS PTR &#41; AS LONG;\n      PASCAL FROM &quot;RegQueryValueExA&quot; LIB &quot;advapi32&#46;dll&quot;\n\nDLL32 FUNCTION REGCLOSEKEY&#40; hKey AS LONG &#41; AS LONG;\n      PASCAL FROM &quot;RegCloseKey&quot; LIB &quot;advapi32&#46;dll&quot;[/code:1we5rmbq]\n\nEMG','',0,'AIA=','1we5rmbq',1,0,'',6,0,0),(38294,8208,3,2,0,'87.218.146.157',1190631016,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','137ct9rj',1,0,'',2,0,0),(38295,8272,6,316,0,'213.97.245.163',1190633366,1,0,1,1,1,0,'','Posible bug en TXBrowse:PageUp()','Antonio,\n\nUsando TestxBrw del directorio samples, haz estas dos modificaciones:\n1) Deja solo 30 registros en customer.dbf\n2) Modifica HorzRow() como lo que sigue:\n[code:1k4e0hoy]\nSTATIC FUNCTION HorzRow&#40; oWnd &#41;\n\n   local oChild, oBrw, oFont\n\n   DEFINE FONT oFont NAME &quot;TAHOMA&quot; SIZE 0, -12\n\n   DEFINE WINDOW oChild TITLE &quot;Horizontal lines &amp; Row selector browse&quot; MDICHILD OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n   oBrw&#58;SetFont&#40; oFont &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n   oBrW&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n\n[/code:1k4e0hoy]\n\nEs decir agregarle el FONT y cambiamos los separadores de filas y columnas.\n\nLuego lo ejecutas y entras en esa opción. Bajas hasta llegar al último registro usando la tecla hacia abajo. Cuando llegue al último registro, le dás a RePag, es decir que haga un pageUp, con lo que me deja el browse \"descolocado\", desincronizado con la información de la DBF.\n[img:1k4e0hoy]http&#58;//img227&#46;imageshack&#46;us/img227/376/xbrowsepageupfj7&#46;jpg[/img:1k4e0hoy]\nEl error es reproducible. Aparentemente el ajuste no es correcto cuando al pintar hay que ajustar el valor de nRowSel\n\nUn saludo,\n\nCarlos.','',0,'CIA=','1k4e0hoy',1,0,'',316,0,0),(38296,8273,6,84,0,'88.148.78.101',1190633453,1,0,1,1,1,0,'','List &amp; Labels','Necesito saber si alguno habes trabajado con este producto y ver su integración con [x]Harbour y FiveWin.\n\nMcuhas gracias.','',0,'','uuuzqufc',1,0,'',84,0,0),(38297,8274,18,1146,0,'87.223.165.162',1190634913,1,0,1,1,1,0,'','error en BUTTONBMP','Antonio, \n\nPues sigue sin ir en el Build de sept. En este código, que es samples\\testbubm.prg, pones el cursor encima del botón y NO se muestra el mensaje: \n\n\n#include \"FiveWin.ch\" \n\n#define COLOR_BTNFACE 15 \n\n//----------------------------------------------------------------------------// \n\nfunction Main() \n\nlocal oWnd, oBtnBmp \n\nDEFINE WINDOW oWnd TITLE \"FiveWin Xp Theme-aware bitmaped buttons\" ; \nCOLOR 0, GetSysColor( COLOR_BTNFACE ) \n\n\n@ 2, 2 BUTTONBMP oBtnBmp OF oWnd ACTION MsgInfo( \"XP themes aware Button Bitmaps\" ) ; \nBITMAP \"..\\bitmaps\\16x16\\garrow.bmp\" MESSAGE \"Calendario\" \n\n\n@ 6, 2 BUTTON \"From Resources\" OF oWnd SIZE 90, 25 ACTION nil MESSAGE \"Calendario\" \n\nACTIVATE WINDOW oWnd \n\nreturn nil','',0,'','16onn866',1,0,'',1146,0,0),(38298,8206,6,362,0,'200.158.18.153',1190635173,1,0,1,1,1,1,'','','//-&gt; És bién simples de hacer:\n\nIF ERRORLEVEL 1 GOTO LINKERROR\nEcho * Aplicação Desenvolvida Com Sucesso Absoluto - Aguarde Um Momento\nEcho .\nEcho * Aguarde um Momento, Compactando Aplicação, Usando o UPX.EXE\nEcho .\n\\PLENOCBW\\UPX\\UPX.EXE -9 PLENOWIN.EXE\nEcho .\nEcho * Aplicativo Foi Compactado Com Sucesso - Aguarde Execução.\nEcho .\nEcho * Aguarde, Executando o Aplicativo, Gerado Com Sucesso Absoluto *\nPLENOWIN\nGoto Exit\nEcho\n\n:LINKERROR\nrem if exist meminfo.txt notepad meminfo.txt\nPause * Veja o Arquivo ERRO.LOG Para Corrigir Eventuais Erros *\nGoto Exit\n\n:Exit\n\n\n//-&gt; El Borland Resources WorkShop.exe no consegue más abrir el *.EXE.','',0,'','3domtu38',1,0,'',362,0,0),(38299,8275,6,1100,0,'201.14.31.6',1190635483,1,0,1,1,1,1,'','TWBrowse Editable','Buen dia amigos del foro, estoy necesitando una ayuda para editar valor en mi twbrowse con matriz, abajo el codigo crea la twbrowse, consigo incluir y excluir lineas, pero no consigo hacer que se deje incluir datos en las lineas para posteriormente hacer un aadd en la matriz.\n[code:2rb7m7hh]FUNCTION fDesenhaLbxCompra&#40;&#41;\nAADD&#40;aItens,&#123; strZero&#40;cod,3&#41;,&quot;&quot;,&quot;&quot;,&quot;&quot;,0,0,0&#125;&#41;\ncod +=1\n    REDEFINE LISTBOX oLbxCompra ;\n    FIELDS      &quot;&quot;     ,&quot;&quot;       ,&quot;&quot;          ,&quot;&quot;          ,&quot;&quot;              , &quot;&quot;         ;\n    HEADERS    &quot;Código&quot;,&quot;Produto&quot;,&quot;Un&#46; Medida&quot;,&quot;Quantidade&quot;,&quot;Valor Unitário&quot;, &quot;SUB-TOTAL&quot;;\n    FIELDSIZES 50      , 230     , 80         , 80         , 80             ,  80        ;\n    ID 4011 OF oDlgCompra\n    oLbxCompra&#58;SetArray&#40; aItens &#41;\n    oLbxCompra&#58;bLine        &#58;= &#123; || &#123; aItens&#91;oLbxCompra&#58;nAt,1&#93; , aItens&#91;oLbxCompra&#58;nAt,2&#93; , aItens&#91;oLbxCompra&#58;nAt,3&#93; , Transform&#40;aItens&#91;oLbxCompra&#58;nAt,4&#93;,&quot;@E 99,999&#46;99&quot;&#41; , Transform&#40;aItens&#91;oLbxCompra&#58;nAt,5&#93;,&quot;@E 99,999,999&#46;99&quot;&#41; , Transform&#40;aItens&#91;oLbxCompra&#58;nAt,6&#93;,&quot;@E 99,999,999&#46;99&quot;&#41; &#125; &#125;\n    oLbxCompra&#58;nLineStyle   &#58;= 3\n    oLbxCompra&#58;nHeaderStyle &#58;= 3\n    oLbxCompra&#58;aJustify &#58;= &#123;&#46;T&#46;,&#46;F&#46;,&#46;F&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;&#125;\n    \n    oLbxCompra&#58;lAutoEdit  = &#46;T&#46;\n  \n    oLbxCompra&#58;Refresh&#40;&#41;\nRETURN Nil[/code:2rb7m7hh]\nFUNCION PARA ADICIONAR O EXCLUIR UNA LINEA\n[code:2rb7m7hh]FUNCTION fAdicionarLinha&#40;&#41;\n  AADD&#40;aItens,&#123; strZero&#40;cod,3&#41;,&quot;&quot;,&quot;&quot;,&quot;&quot;,0,0,0&#125;&#41;\n  oLbxCompra&#58;SetArray&#40;aItens&#41;\n  oLbxCompra&#58;Refresh&#40;&#41;\n  cod +=1\nRETURN Nil\n\n//------------------------------------------\nFUNCTION fExcluirLinha&#40;&#41;\n  aDel&#40;aItens, oLbxCompra&#58;nAt&#41;\n  aSize&#40;aItens,LEN&#40;aItens&#41;-1&#41;\n  oLbxCompra&#58;SetArray&#40;aItens&#41;\n  oLbxCompra&#58;Refresh&#40;&#41;\nRETURN Nil[/code:2rb7m7hh]\nEl caso es que con  oLbxCompra:lAutoEdit  = .T.\npuedo escribir en la celda, pero tengo que dar un Esc para salir, entonces limpia todo. Si alguien ya tuvo un caso parecido, agradeceria la ayuda. Seria bueno poder ver un ejemplo. No he consiguido encontrar posts en los foros que hablen sobre esto.\nDesde ya muchas gracias\nMarizete C. Neuhaus','',0,'AIA=','2rb7m7hh',1,0,'',1100,0,0),(38300,8273,6,89,0,'213.21.136.60',1190637355,1,0,1,1,1,0,'','','I use a old versio  of List&amp;Label ( version 4) .\nRegards Maurizio','',0,'AIA=','irueh4kn',1,0,'',89,0,0),(38301,8208,3,868,0,'219.64.121.60',1190637727,1,0,1,1,1,1,'','','Mr. Enrico\n\nExcellant.\n\nI am now using the following for the above purpose.\n[code:1tr8jkw3]\nGetObject&#40;\'WScript&#46;Shell\'&#41;&#58;SpecialFolders&#58;Item&#40;\'AllUsersPrograms\'&#41;\n[/code:1tr8jkw3]\n\n(Getobject is my function which is nothing but try GetActiveObect cach createobject ... )\n\nThis is working on XP and 2000/2003.  I personally dont have access to other windows versions. \n\nCan you or anyone else please advise if this works on other versions too? In particular Vista ?\n\nRegards\n\nNageswara Rao','',0,'AIA=','1tr8jkw3',1,0,'',868,0,0),(38302,8276,3,300,0,'201.88.218.100',1190642081,1,0,1,1,1,0,'','Sobre los indices e browses','Olá\n\nÉs correcto utilizar em todos los tags la clausula For ! Deleted() e em los objectos browses utilizar:\n\noBrw1:bLogicLen = { || TABOCOR-&gt;(OrdKeyCount()) }\n\nPara que la barra verticale funcione corretamente?\n\nGracias.','',0,'AIA=','1rsaqti1',1,0,'',300,0,0),(38303,8276,3,300,0,'201.88.218.100',1190642781,1,0,1,1,1,0,'','Re: Sobre los indices e browses','[quote=&quot;Wanderson&quot;:24qggdiu]Olá\n\nÉs correcto utilizar em todos los tags la clausula For ! Deleted() e em los objectos browses utilizar:\n\noBrw1:bLogicLen = { || TABOCOR-&gt;(OrdKeyCount()) }\n\nPara que la barra verticale funcione corretamente?\n\nGracias.[/quote:24qggdiu]\n\nSorry! Wrong place.','',0,'gA==','24qggdiu',1,0,'',300,0,0),(38304,8277,6,300,0,'201.88.218.100',1190642825,1,0,1,1,1,0,'','Sobre los indices e browses','Olá \n\nÉs correcto utilizar em todos los tags la clausula For ! Deleted() e em los objectos browses utilizar: \n\noBrw1:bLogicLen = { || TABOCOR-&gt;(OrdKeyCount()) } \n\nPara que la barra verticale funcione corretamente? \n\nGracias.','',0,'gA==','18k5kb82',1,0,'',300,0,0),(38305,8270,6,252,0,'189.166.30.124',1190645576,1,0,1,1,1,0,'','','Antonio.\n\n    Muchas gracias por tu respuesta. ¿Las ultimas versiones de harbour y xharbour son compatibles con la version 2.4 de FWH?.\n\n    Saludos.\n\n    Jose Rios.','',0,'gA==','2h6uihae',1,0,'',252,0,0),(38306,8270,6,2,0,'87.218.146.157',1190645781,1,0,1,1,1,1,'','','José,\n\nNo lo hemos probado. Tendrías que recompilar todos los PRGs de FWH y probarlo a construir una aplicación.','',0,'gA==','22h5qlmt',1,0,'',2,0,0),(38307,8278,6,362,0,'200.158.18.153',1190646412,1,0,1,1,1,1,'','***** EN PASSWORD  COM WORKSHOP.EXE','[code:cjcdgbcm]\n//-&gt; Maestro Antonio, Que Falta Hacer, Para Que Siempre Que Jo Tenga un\n\n//-&gt; GET CON PASSWORD en WORKSHOP&#46;EXE O PELLESC&#46;EXE, Venga Siempre un *** ??\n\n// De Esta Forma, Sole Viene en la Entrada de la Window Principal,\n// en los DIALOGOS, Vienes ||||| &#40;chr&#40;149&#41;&#41; y No ****&#40;chr&#40;42&#41;&#41; Ayuda-me!\n//\nMETHOD DispText&#40;&#41; CLASS TGet\n\n   if &#58;&#58;lPassword &#46;and&#46; &#58;&#58;oGet&#58;Type == &quot;C&quot;\n      #ifdef __CLIPPER__\n         SetWindowText&#40; &#58;&#58;hWnd, Replicate&#40; &quot;*&quot;, Len&#40; Trim&#40; &#58;&#58;oGet&#58;buffer &#41; &#41; &#41; &#41;\n      #else\n\n         /*  //-&gt; Modifiquei em 26/08/2007 - Para Aparecer um * no PASSWORD-WS\n         SetWindowText&#40; &#58;&#58;hWnd, Replicate&#40; If&#40; IsAppThemed&#40;&#41;, Chr&#40; 149 &#41;, &quot;*&quot; &#41;,;\n                                           Len&#40; Trim&#40; &#58;&#58;oGet&#58;buffer &#41; &#41; &#41; &#41;\n         */\n\n         SetWindowText&#40; &#58;&#58;hWnd, Replicate&#40; If&#40; IsAppThemed&#40;&#41;, Chr&#40;  42 &#41;, &quot;*&quot; &#41;,;\n                                           Len&#40; Trim&#40; &#58;&#58;oGet&#58;buffer &#41; &#41; &#41; &#41;\n\n      #endif\n   else\n      SetWindowText&#40; &#58;&#58;hWnd, &#58;&#58;oGet&#58;buffer &#41;\n   endif\n\nreturn nil\n\nMuchas Gracias,\n\nRegards, saludos&#46;\n\n[/code:cjcdgbcm]','',0,'AIA=','cjcdgbcm',1,0,'',362,0,0),(38308,8274,18,2,0,'87.218.146.157',1190646782,1,0,1,1,1,1,'','','Moises,\n\nTe falta la creación del statusbar. Este ejemplo funciona correctamente:\n[code:17iilt88]\n// Testing Win32 XP Theme-aware bitmaped buttons\n// Important&#58; Use standard buttons on the resources!\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define COLOR_BTNFACE   15\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBtnBmp\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin Xp Theme-aware bitmaped buttons&quot; ;\n      COLOR 0, GetSysColor&#40; COLOR_BTNFACE &#41;\n\n\n   @ 2, 2 BUTTONBMP oBtnBmp OF oWnd ACTION MsgInfo&#40; &quot;XP themes aware Button Bitmaps&quot; &#41; ;\n      BITMAP &quot;&#46;&#46;\\bitmaps\\16x16\\garrow&#46;bmp&quot;\n\n   @ 4, 2 BUTTONBMP oBtnBmp OF oWnd ACTION MsgInfo&#40; &quot;XP themes aware Button Bitmaps&quot; &#41; ;\n      BITMAP &quot;&#46;&#46;\\bitmaps\\16x16\\garrow&#46;bmp&quot; PROMPT &quot;Test&quot; TEXTRIGHT SIZE 80, 25 ;\n      MESSAGE &quot;From source code&quot;\n      \n   @ 6, 2 BUTTON &quot;From Resources&quot; OF oWnd SIZE 90, 25 ACTION FromResources&#40;&#41;   \n\n   DEFINE STATUSBAR OF oWnd PROMPT &quot;StatusBar&quot;\n      \n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction FromResources&#40;&#41;\n\n   local oDlg\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n   \n   REDEFINE BUTTONBMP ID 10 OF oDlg ;\n      ACTION MsgInfo&#40; &quot;XP themes aware Button Bitmaps&quot; &#41; ;\n      BITMAP &quot;&#46;&#46;\\bitmaps\\16x16\\garrow&#46;bmp&quot;\n   \n   ACTIVATE DIALOG oDlg\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:17iilt88]','',0,'AIA=','17iilt88',1,0,'',2,0,0),(38309,8274,18,1146,0,'87.223.165.162',1190647792,1,0,1,1,1,0,'','','Antonio,\n\nLo que quiero es que se muestre el mensaje cuando pones el ratón por encima, como si funciona la clausula TOOLTIP de BTNBMP.\n\nHe probado con MESSAGE y PROMPT y NO funciona.','',0,'AIA=','giaa6gya',1,0,'',1146,0,0),(38310,8279,18,1146,0,'87.223.165.162',1190647863,1,0,1,1,1,0,'','error de pintado en TOutlook2003','Antonio,\n\nEjecutas el ejemplo, abres una ventana en MS-dos, una vez en ella pulsas TAB y se ve de esta forma:\n\n[url=http&#58;//img515&#46;imageshack&#46;us/my&#46;php?image=errorjs7&#46;jpg:391mgt2d][img=http://img515.imageshack.us/img515/2354/errorjs7.th.jpg][/url:391mgt2d]','',0,'EA==','391mgt2d',1,0,'',1146,0,0),(38311,8280,6,176,0,'201.255.175.163',1190648289,1,0,1,1,1,0,'','seleccionar campos para impresión','Hay alguna función para seleccionar los campos a imprimir en un report, en fwh. Utilizo fwh26. \n\nGracias\n\nLuis Sáenz','',0,'EA==','11nh2hyt',1,0,'',176,0,0),(38312,8278,6,176,0,'201.255.175.163',1190648782,1,0,1,1,1,0,'','','Hola Karina yo utilizo un get y en el código pongo:\n\nREDEFINE GET oGet VAR cLogin id 101 of odlg valid IIF(buscon(cItem,@cLogin,oGet),lreturn := .t.,.f.)\n\noGet:lpassword := .t. \n\nEspero sea la respuest a tu consulta\n\nUtilizó workshop y fwh26 y xharbour 9.61\n\nLuis','',0,'EA==','1ziexzgv',1,0,'',176,0,0),(38313,8278,6,362,0,'200.158.18.153',1190649816,1,0,1,1,1,1,'','','[quote=&quot;surGom&quot;:3lay2hun]Hola Karina yo utilizo un get y en el código pongo:\n\nREDEFINE GET oGet VAR cLogin id 101 of odlg valid IIF(buscon(cItem,@cLogin,oGet),lreturn := .t.,.f.)\n\noGet:lpassword := .t. \n\nEspero sea la respuest a tu consulta\n\nUtilizó workshop y fwh26 y xharbour 9.61\n\nLuis[/quote:3lay2hun]\n\n\nGracias   Luis, Voy intentar y Reporto. \n\nRegards, saludos.','',0,'gA==','3lay2hun',1,0,'',362,0,0),(38314,8280,6,362,0,'200.158.18.153',1190650359,1,0,1,1,1,1,'','Re: seleccionar campos para impresión','[quote=&quot;surGom&quot;:1a1plty4]Hay alguna función para seleccionar los campos a imprimir en un report, en fwh. Utilizo fwh26. \n\nGracias\n\nLuis Sáenz[/quote:1a1plty4]\n\nSET FILTER TO Ó ORDSCOPE() No te sirve??','',0,'gA==','1a1plty4',1,0,'',362,0,0),(38315,8275,6,694,0,'201.86.91.72',1190652852,1,0,1,1,1,1,'','','Ola, veja este exemplos do samples da propria TWBROWSE:\n\nAcho que o que precisas é a linha:\n\n oLbx:bEdit:= {|nCol, cBuffer, lFirstEdit|;\n                          EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal ) }\n\n\nExemplo:\n\n\n#include \"FiveWin.ch\"\n\n\nFunction Main()\n LOCAL aTotal:= {0,0,0, Nil, Nil, Nil}\n LOCAL aDatos:= {} // Array MultiDimensional\n                   // Cod.Art.  Descrip.  Cantidad  $Unitario  $Total  MarcaDeNuevo\n LOCAL l3d:= .F.\n LOCAL oDlg, oLbx, cPic:= \"@ze 999,999.99\", oFont\n LOCAL hBmp:= ReadBitMap( 0, \"finger.bmp\" ) // Dedicado a mi amigo Mario Goanzalez\n\n    If Alert(\"Quiere verlo en 3D ??\", {\"Aceptar\",\"Cancelar\"}) == 1\n       l3D:= .T.\n    EndIf\n\n    DEFINE FONT oFont NAME \"Times New Roman\" SIZE 0,-15 BOLD\n\n    DEFINE DIALOG oDlg FROM 0,0 TO 21,55 TITLE \"::bEdit\'s TWBrowse Power !!!\"\n\n       TWBrowse():lHScroll:= .F.\n       @2,2 LISTBOX oLbx FIELDS \"\"                                      ;\n                         HEADER \"Id\",\"Articulo\", \"Descripcion\", \"Cantidad\",  ;\n                                \"Unitario\", \"Total\"                     ;\n                         OF oDlg SIZE 207,100 PIXEL                     ;\n                         SIZES 25,50, 130, 67,60,60\n\n           oLbx:bLine:= {|nAt| nAt:= oLbx:nAt,                      ;\n                               If( Len(aDatos)&lt;1 .or. nAt&gt;Len(aDatos),;\n                                 Array(6),                            ;\n                                 { If( oLbx!=Nil .and. oLbx:lSelect, hBmp, 0 ),;\n                                   If( aDatos[nAt,1]==0,Space(4),StrZero( aDatos[nAt,1], 4 ) ),    ;\n                                   aDatos[nAt,2],                       ;\n                                   Transform( aDatos[nAt,3], cPic ),    ;\n                                   Transform( aDatos[nAt,4], cPic ),    ;\n                                   Transform( aDatos[nAt,5], cPic )  } ) }\n\n           oLbx:aJustify:= { 2, 2, .f., .t., .t. , .t. }\n           oLbx:SetArray( aDatos )\n\n           oLbx:lAdjLastCol:= .f.\n\n           oLbx:lAutoEdit  := .t.\n           oLbx:lAutoSkip  := .t.\n\n           oLbx:nLineStyle  := 2\n           oLbx:nHeaderStyle:= 2\n\n           oLbx:bBkColor:= {|nRow,nCol,nStyle| ;\n                              if( nStyle==1,if( nCol%2==0, CLR_RED   , CLR_GREEN ),) }\n           oLbx:bTextColor:= {|nRow,nCol,nStyle| ;\n                              if( nStyle==1,if( nCol%2==0, CLR_YELLOW, CLR_WHITE ),) }\n\n           If l3D\n              oLbx:Set3DStyle()\n           EndIf\n\n\n           oLbx:bEdit:= {|nCol, cBuffer, lFirstEdit|;\n                          EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal ) }\n\n\n       @105, 110 SAY \"Neto Gravado \" OF oDlg PIXEL\n       @115, 110 SAY \"I.V.A. 21%   \" OF oDlg PIXEL\n       @125, 110 SAY \"Total        \" OF oDlg PIXEL\n       @105, 150 SAY aTotal[4] PROMPT aTotal[1] PICTURE \'@ZE 999,999.99\' OF oDlg PIXEL RIGHT SIZE 50,10\n       @115, 150 SAY aTotal[5] PROMPT aTotal[2] PICTURE \'@ZE 999,999.99\' OF oDlg PIXEL RIGHT SIZE 50,10\n       @125, 150 SAY aTotal[6] PROMPT aTotal[3] PICTURE \'@ZE 999,999.99\' OF oDlg PIXEL RIGHT SIZE 50,10\n\n\n\n       @137,10  BUTTON \"Agrega\" OF oDlg PIXEL ;\n                ACTION ( NewReg( aDatos, oLbx ), oLbx:Edit() )  SIZE 50,Nil\n\n       @137,80  BUTTON \"Modifica\" OF oDlg PIXEL ;\n                ACTION If( Len(aDatos) &gt; 0 .and.                      ;\n                           oLbx:nAt &lt;= Len(aDatos) .and. oLbx:nAt &gt; 0,;\n                           oLbx:Edit(), )       SIZE 50,Nil\n\n       @137,150 BUTTON \"Elimina\" OF oDlg PIXEL ;\n                ACTION If( Len(aDatos) &gt; 0 .and.                      ;\n                           oLbx:nAt &lt;= Len(aDatos) .and. oLbx:nAt &gt; 0 .and.  ;\n                           Alert(\"Borra ?\",{\"ok\",\"Cancela\"}) == 1,      ;\n                           DelReg( aDatos, oLbx, aTotal ),)  SIZE 50,Nil\n\n\n\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n\n\n RELEASE FONT oFont\n ReleaseDC( hBmp )\n\nreturn Nil\n\n//----------------------------------------------------------------------------//\nFunction GetSysFont() ; return \"MS Sans Serif\"\n\n\n//----------------------------------------------------------------------------//\nSTATIC Function EditaCelda( oLbx, nCol, cBuffer, aDatos, lFirstEdit, aTotal )\n LOCAL aResult, nAt:= oLbx:nAt, uBuffer, lContinue:= .t.\n LOCAL bValid, nColReal:= nCol\n\n    nCol--  // Para que sea como si no exisiera BitMap\n\n    uBuffer:= aDatos[nAt,nCol]\n\n    While .t.\n\n       Do Case\n          Case ( nCol == 2 .or. nCol == 5 ) .and. lFirstEdit\n               Alert( \"Columnas NO EDITABLES\" )\n               return .f.\n\n          Case nCol == 1\n               bValid:= {|| If( Empty( aResult:= SeekItem( uBuffer ) ), ;\n                            (Alert( \"Codigo Articulo Inexistente <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\"),.F.) , .T. ) }\n\n               If lContinue:= oLbx:lEditCol( nColReal, @uBuffer, \"@ZE 9999\", bValid,,CLR_YELLOW )\n                  aDatos[nAt,1]:= uBuffer\n                  aDatos[nAt,2]:= aResult[1]\n                  aDatos[nAt,4]:= aResult[2]\n               EndIf\n\n          Case nCol == 3  // Cantidad\n               If lContinue:= oLbx:lEditCol( nColReal,  @uBuffer, \"@ZE 999,999.99\",,,CLR_YELLOW )\n                  If uBuffer &lt;= 0\n                     Alert(\"Debe Especificar una cantidad !!!\")\n                     Loop\n                  EndIf\n                  aDatos[nAt,3]:= uBuffer\n               EndIf\n\n          Case nCol == 4  // Unitario\n               If lContinue:= oLbx:lEditCol( nColReal, @uBuffer, \"@ZE 999,999.99\",,,CLR_YELLOW )\n                  aDatos[nAt,4]:= uBuffer\n                  aDatos[nAt,6]:= .f.  // Ya no es un Nuevo Registro !!!\n               EndIf\n\n          Case nCol == 5 .and. ! lFirstEdit .and. Len( aDatos ) == nAt\n               NewReg( aDatos, oLbx )\n\n       EndCase\n\n       If ! lContinue .and. aDatos[nAt,6] // Se habia agregado un nuevo Item !!!\n          If Alert( \"Cancela este Nuevo Registro\", { \"Ok\",\"Cancelar\" } ) == 1\n             DelReg( aDatos, oLbx, aTotal )\n             return .f.\n          Else\n             Loop\n          EndIf\n       EndIf\n\n       Exit\n\n    EndDo\n\n    If Len( aDatos ) &gt; 0\n       aDatos[nAt,5]:= Round( aDatos[nAt,3] * aDatos[nAt,4], 2 )\n       Suma( aDatos, aTotal )\n    EndIf\n\n\n    If lContinue\n       Do Case\n       Case oLbx:nLastKey == VK_UP\n          return If( !GetKeyState(VK_SHIFT), -3, -2 )\n       Case oLbx:nLastKey == VK_DOWN\n          return If( !GetKeyState(VK_SHIFT),  3,  2 )\n       Case oLbx:nLastKey == VK_TAB\n          return If( GetKeyState(VK_SHIFT), -1, 1 )\n       EndCase\n    EndIf\n\n\nreturn lContinue\n\n\n//----------------------------------------------------------------------------//\nSTATIC Function SeekItem( nCod )  // Simulamos busqueda en Base de Datos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n    If nCod &gt;= 1 .and. nCod &lt;= 500\n       return { \"Producto \" + StrZero( nCod, 4 ), nCod + 0.55 }\n    EndIf\n\nreturn \"\"\n//----------------------------------------------------------------------------//\nSTATIC Function NewReg( aDatos, oLbx )\n    Aadd( aDatos, {0,\"\",0,0,0,.t.} )\n    oLbx:Refresh()\n    oLbx:lHitBottom:= .f.\n    oLbx:GoBottom()\n    SysRefresh()\nreturn Nil\n//----------------------------------------------------------------------------//\nSTATIC Function DelReg( aDatos, oLbx, aTotal )\n    ADel( aDatos, oLbx:nAt )\n    ASize( aDatos, Len( aDatos ) - 1 )\n    oLbx:GoUp()\n    oLbx:Refresh()\n    Suma( aDatos, aTotal )\nreturn Nil\n//----------------------------------------------------------------------------//\nSTATIC Function Suma( aDatos, aTotal )\n    aTotal[1]:= 0\n    AEval( aDatos, {|aItem| aTotal[1]+= aItem[5] } )\n    aTotal[1]:= Round( aTotal[1], 2 )\n    aTotal[2]:= Round( aTotal[1] * 0.21, 2 )\n    aTotal[3]:= Round( aTotal[1] + aTotal[2],2 )\n    AEval( aTotal, {|oSay| oSay:Refresh(.F.) }, 4 )\n\nreturn Nil\n//----------------------------------------------------------------------------//\n\n\n\nFique com Deus\n\n\nAoki','',0,'','32zmbqm9',1,0,'',694,0,0),(38316,8275,6,875,0,'64.76.108.182',1190653184,1,0,1,1,1,0,'','','Porque no le das ENTER en vez de ESC','',0,'','3pysrpu8',1,0,'',875,0,0),(38317,8280,6,875,0,'64.76.108.182',1190653537,1,0,1,1,1,0,'','','¿Puedes ser un poco mas especifico?\n\n¿El Usuario eligiria los campos?\n\nPorque si es el diseño de un Reporte Obviamente uno programa un Reporte con los campos que desea y no hay necesidad de Elegir campos.','',0,'','asnvvuv5',1,0,'',875,0,0),(38318,8269,6,875,0,'64.76.108.182',1190654161,1,0,1,1,1,0,'','','simplemente en la funcion que hace la busqueda pones esto\n\n\nLocate For  \'duar\'$Empleados-&gt;Nombre','',0,'','tvdrq4mf',1,0,'',875,0,0),(38319,8245,6,496,0,'200.107.36.176',1190655963,1,0,1,1,1,0,'','','Juan\n\noRs:Insert_ID( )\nRegresa el ultimo identificador de numeracion automatico insertado (serial). Regresa falso si la funcion no esta soportada.\n\nUn saludo\nMarcelo Jingo','',0,'','3kg59rn5',1,0,'',496,0,0),(38320,8280,6,176,0,'201.255.175.163',1190656240,1,0,1,1,1,0,'','','Karina y Jacgsoft, lo que pretendo es que el cliente elija los campos a imprimir. Si usan prometheus (dbwide, hecho por Andrade), para ver y modificar las bases de datos, es el que utilizo cuando veo una base y necesito imprimir algunos campos en especial, pero sería mas efectivo que lo haga el ususario.\n\nGracias','',0,'','1yaawexs',1,0,'',176,0,0),(38321,8281,6,743,0,'201.116.76.180',1190657235,1,0,1,1,1,0,'','error con xharbour','[b:1lkzlrj9]trato de compilar un ejemplo sencillo con xharbour pero no he podido a completar esta accion por el siguiente error:[/b:1lkzlrj9]\n\n\nhbclass.ch(237) Error F0023  Unknown result marker &lt;MethodName&gt; in #directive\n\n\n  utilizo FWH/FWHX 2.6 April/2005 y xharbour \n  \n  xHarbour Compiler build 0.99.61 (SimpLex)\n\nque podia ser el error gracias','',0,'QA==','1lkzlrj9',1,0,'',743,0,0),(38322,8282,3,1173,0,'190.6.194.162',1190657928,1,0,1,1,1,1,'','Consulta del ListBox con Array','Tengo un problema mas bien una duda con un Listbox con arreglo, en el cual necesito se seleccione de manera multiple, lo cual he logrado gracias a los ejemplos de fivewin.\nPero la seleccion es de un elemento a la vez, y ya tengo quejas de los usuarios.\nComo hacer para seleccionar varios a la vez, con el mouse, con solo arrastrar, o bien con el teclado con SHIFT y las teclas del cursor.\n\nGracias de antemano','',0,'QA==','14o0lp37',1,0,'',1173,0,0),(38323,8245,6,278,0,'190.95.21.137',1190658702,1,0,1,1,1,1,'','','[b:6hl4alk4] GRACIAS[/b:6hl4alk4] Marcelo, la voy a probar. \n\nNo conocia esa funcion.\n\nSaludos,','',0,'QA==','6hl4alk4',1,0,'',278,0,0),(38324,8280,6,875,0,'64.76.108.182',1190659178,1,0,1,1,1,0,'','','Pues lo que hago es Poner los campos de una tabla en un ARRAY y depues lo muestro en un Listbox donde el Usuario escoge los campos a imprimir:\n\nLocal I,Arcam:={}\n\nUse Empleado\n\nFor I=1 To Fcount()\n      Aadd(Arcam,Field(I)\nNext I\n\nLuego Este array lo muestro en un ListBox o ComboBox donde el Usuario escoge los campos a Imprimir(Claro hay varias forma de hacerlo).\n\nComo es Obvio En cuanto al reporte es variable ya que algunos reportes pueden ser de 30,40, 50 o mas de Longitud de ancho dependiendo lo que escojan los Usuarios. \n\n\n\nPor otro lado En uno de los Foros esta un GEnerador de Informes que se llama RUNADOC verifica eso\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7997&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'QA==','yjfhq6j9',1,0,'',875,0,0),(38325,8242,6,1168,0,'84.123.200.144',1190659693,1,0,1,1,1,0,'','','[quote=&quot;MOISES&quot;:1g1teupe]Se me ocurre que hagas una base de datos/fichero  que lean periodicamente los clientes con un timer y se desconecten.[/quote:1g1teupe]\n\nMoises,\n\nTe agradezco la respuesta... \nLa verdad que eso ya lo habia pensado... \nPero el sistema que tengo funciona son sockets y bien; el problema es con el Terminal Server. Por curiosidad tambien, me gustaria saber como pueden funcionar los sockets sobre Terminal Server\n\nProbablemente lo haga con un Timer... Lo que no tengo claro es si ir grabandolo en una .dbf o bien generar un fichero cuyo nombre sea por ejemplo la IP del ordenador en cuestion y generarlo en un directorio... y si existe la IP del ordenador en cuestion pues se saldra... No se que sera mas rapido a efectos de proceso... porque lo que quiero es que ese timer consuma el menor tiempo posible.\n\nUn saludo','',0,'gA==','1g1teupe',1,0,'',1168,0,0),(38326,8268,6,1168,0,'84.123.200.144',1190660392,1,0,1,1,1,0,'','Re: Brush &amp; Fondos &amp; Controles','[quote=&quot;Mike Serra&quot;:2gog4bnv]Buenos dias foro, hoy la cosa va de fondos (brush) en diálogos:\n\nTengo un diálogo (desde recursos con un brush) que tiene 1 folder, el problema está en que la parte superior del folder (donde están las pestañas) tiene un fondo que llega hasta la izquierda, que tapa el brush que tiene el diálogo, ¿cómo puedo solucionarlo?, he probado ltransparent, ..., pero no lo soluciono.\n\nMUCHAS GRACIAS.[/quote:2gog4bnv]\n\nMike,\nYo tuve/tengo ese mismo problema.\nAl principio no entendia lo que pasaba, porque veia que en otras aplicaciones Windows si funcionaba transparente.\nUna vez que me di cuenta de que el problema es que no se hacia transparente opte por alargar la ultima pestaña hasta el total del folder... pero no me gustaba porque no quedaba \"al pelo\" y ademas lo tenia que hacer manualmente. \nAl final opte por declarar el folder con un style de marco... no me acuerdo que style es... la idea es que alrededor del folder me pinta un recuadro y ya queda algo mas pasable... al menos a mi gusto.\n\nSaludos','',0,'gA==','2gog4bnv',1,0,'',1168,0,0),(38327,8282,3,303,0,'72.199.41.171',1190663306,1,0,1,1,1,0,'','','fwh\\samples\\gallery\\mselect','',0,'gA==','3og4m5ah',1,0,'',303,0,0),(38328,8278,6,935,0,'200.62.120.28',1190664184,1,0,1,1,1,1,'','desde recurso','Karina,\n\nDesde el workshop te permite definir en tu dialogo los get como pasword asi te convierte lo que digites durante la captura en ******, en las propiedades de text style puedes definie password, con un check y listo.\n\ny en la aplicacion no tienes mas que hacer un get normal\n\nREDEFINE GET oPass  Var mPass ID 101 of oDlg \n\nOjala te ayude,\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','v35b967g',1,0,'',935,0,0),(38329,8281,6,362,0,'200.148.67.150',1190664213,1,0,1,1,1,1,'','','#ifndef HB_SHORTNAMES       //-&gt; Linea 237\n\nTe falta un:\n\n#endif /* HB_SHORTNAMES */  //-&gt; Linea 296','',0,'gA==','3qlp2l31',1,0,'',362,0,0),(38330,8278,6,362,0,'200.148.67.150',1190664671,1,0,1,1,1,1,'','Re: desde recurso','[quote=&quot;Ramon Paredes&quot;:1qzxg2ol]Karina,\n\nDesde el workshop te permite definir en tu dialogo los get como pasword asi te convierte lo que digites durante la captura en ******, en las propiedades de text style puedes definie password, con un check y listo.\n\ny en la aplicacion no tienes mas que hacer un get normal\n\nREDEFINE GET oPass  Var mPass ID 101 of oDlg \n\nOjala te ayude,\n\nRamon Paredes\nManagua, Nicaragua[/quote:1qzxg2ol]\n\nGracias Ramon...\n\nHago asi:\n\nEstá correcto?\n\nDLG_SENHAS_USUARIOS DIALOG 94, 94, 288, 74\nSTYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_OVERLAPPED | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME\nCAPTION \"Senhas de Acessos\"\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT 103, 169, 12, 100, 14, ES_CENTER | ES_PASSWORD | WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;Gravar Dados\", 301, 67, 46, 90, 17\n PUSHBUTTON \"&amp;Cancelar\", 302, 160, 46, 60, 17\n CTEXT \"Senha do Operador:\", 405, 18, 12, 148, 14, SS_CENTER | WS_BORDER | WS_GROUP\n}','',0,'gA==','1qzxg2ol',1,0,'',362,0,0),(38331,8278,6,935,0,'200.62.120.28',1190665144,1,0,1,1,1,1,'','asi es','Karina,\n\nAsi te debe funcionar bien con sus asteriscos,\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','u826gwfj',1,0,'',935,0,0),(38332,8283,6,600,0,'84.123.222.86',1190665703,1,0,1,1,1,0,'','Gestion de errores','Hola, ¿ sabe alguien como podria capturar un error producido por una sentencia sql que el usuario genera y no es correcta, para que cuando sea ejecutada en vez de dar un error el programa y que casque pueda ser capturado y mandar un aviso de que la sentencia no es correcta?\n\nEspero haberme explicado.\nUn saludo\nJuanjo','',0,'gA==','nbrjxrqu',1,0,'',600,0,0),(38333,8278,6,362,0,'200.148.67.150',1190666048,1,0,1,1,1,1,'','Re: asi es','[quote=&quot;Ramon Paredes&quot;:1jhefo9e]Karina,\n\nAsi te debe funcionar bien con sus asteriscos,\n\n\nRamon Paredes\nManagua, Nicaragua[/quote:1jhefo9e]\n\n\nRamon, en WINDOWS XP, NO!\n\nRegards, saludos.','',0,'gA==','1jhefo9e',1,0,'',362,0,0),(38334,8278,6,935,0,'200.62.120.28',1190667005,1,0,1,1,1,1,'','QUE PROBLEMAS TE DA ?','Karina,\n\nYo trabajo con XP profesional SP 2 y me funciona bien, que problemas te presenta, o que no funciona ?\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','11xr21ol',1,0,'',935,0,0),(38336,8278,6,362,0,'200.148.67.150',1190668083,1,0,1,1,1,1,'','Re: QUE PROBLEMAS TE DA ?','[quote=&quot;Ramon Paredes&quot;:302vclg7]Karina,\n\nYo trabajo con XP profesional SP 2 y me funciona bien, que problemas te presenta, o que no funciona ?\n\nRamon Paredes\nManagua, Nicaragua[/quote:302vclg7]\n\n\nRamon, si és un DIALOGO en el Window Principal, el GET devuelve asi:\n\n****, se és en un DIALOGO normal de otra funcion, me devuelve asi: ||| \n\nMi gusta asi: ***\n\nComprende?','',0,'gA==','302vclg7',1,0,'',362,0,0),(38337,8278,6,935,0,'200.62.120.28',1190669160,1,0,1,1,1,1,'','te envie un correo','Karina,\n\nTe envie un  correo con un ejemplo practico, en uno de los menu, presento un dialogo con  pasword, independiente de la pantalla principal y me devuelve ****** ojala te sirva, te envie el fuente y el recurso para que lo revises ok,\n\nSaludes\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','1qtl79d1',1,0,'',935,0,0),(38338,8280,6,176,0,'201.255.175.163',1190670390,1,0,1,1,1,0,'','','Gracias jacgsoft mi pregunta era por saber si había alguna función en fwh\nque lo hiciera y yo no daba con ella.\n\nLuis','',0,'gA==','1zthyoe6',1,0,'',176,0,0),(38339,8285,6,596,0,'84.76.66.27',1190670567,1,0,1,1,1,1,'','Validacion mediante cookies de una pagina web','Haber si me se explicar.\nEstoy usando la clase TUrl para poder capturar paginas web.\nResulta que en las que entro que se necesita validacion (foros por ejemplo) al capturar la pagina sale que NO estoy validado.\nComo se puede pedir (automatizadamente) paginas con la clase TUrl y que este uno validado.\nGracias.','',0,'gA==','ro8ngxu3',1,0,'',596,0,0),(38340,8286,6,12,0,'190.80.156.45',1190671287,1,0,1,1,1,1,'','Postgre SQL y ADORDD','Saludos, \n\nAlguien ha podido implementar el adordd para que trabaje con Postgre SQL, de ser afirmativo les agradeceria un pequeño ejemplo.\n\nFWHX 7.01\nxHarbour 0.99.71\nBCC 5.5','',0,'gA==','1yhrmxgl',1,0,'',12,0,0),(38341,8257,3,34,0,'68.5.217.82',1190674555,1,0,1,1,1,1,'','Calendar','They have a date picker, but no full calendar with appointment scheduling, etc.  The key is the display of the appointment book.','',0,'gA==','125udnhs',1,0,'',34,0,0),(38342,8281,6,743,0,'201.116.76.180',1190675280,1,0,1,1,1,0,'','','revise estaparte que me indicaste pero aun asi no puedi compilar con VERCE, pero lo curioso es que con el buildx si me lo compila el programa que estoy haciendo mal ya revise todo y esta bien','',0,'gA==','mzlavqme',1,0,'',743,0,0),(38343,8267,3,233,0,'218.208.251.40',1190684203,1,0,1,1,1,0,'','','[quote:1yu0gmcy]...I write down a description of each one an how it relates to the others in plain words, not code. This does help a lot[/quote:1yu0gmcy]\nAre using UML to help you with this part? \n\n[quote:1yu0gmcy]I\'m sorry to hear that. Is this because Amazon will not ship outside the US? Is it a tax issue? Have you tried to find it via other sources?[/quote:1yu0gmcy]\nOh, they do ship outside US and I have actually bought from Amazon before. It\'s just that I can only buy brand new books. My guess is second hand books are only for domestic market.\n\n[quote:1yu0gmcy]I\'m glad you found them useful. My hope is that my teaching some OOP techniques will allow others to gain from the benefits of OOP like I have. It is an incredible tool.[/quote:1yu0gmcy]\n Yeap. The initial planning might  takes a longer time before one is able to code but in the long term a lot of time are saved in maintaining those codes.','',0,'gA==','1yu0gmcy',1,0,'',233,0,0),(38344,8287,4,80,0,'58.6.0.71',1190684576,1,0,1,1,1,0,'','Advise','To All\n\nI have just begun using FWPPC and would like to know -\n\nIs it better to use resource workshop or manually build dialogs and controls - I have created a dialog with BRW and have a static say \'Client ID\'  but when testing it only displays \'Client\'  - which leads to my second question - is it better to have the PDA to test on or is the emulator just as good.\n\nWhat font and font size is recommended.\n\nI also created a edit field and set for right justification for a numeric input but the cursor stays on the left side.\n\nCheers\n\nColin','',0,'gA==','3ra8hjwl',1,0,'',80,0,0),(38345,8262,6,579,0,'189.177.56.116',1190690574,1,0,1,1,1,1,'','','Don Antonio,\n\nGracias, funciona muy bien en los GETs excepto cuando es uno MULTILINE. Es eso normal?\n\nEste cambio quedará implementado para futuras versiones?','',0,'gA==','s8d4ro1g',1,0,'',579,0,0),(38346,8267,3,303,0,'72.199.41.171',1190695888,1,0,1,1,1,0,'','','Hua,\n\n&gt;Are using UML to help you with this part?\n\nI use CRC cards, which I think is considered pre-UML. You can find more info about CRC cards using Google. This is one nice site:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.agilemodeling.com/artifacts/crcModel.htm\">http://www.agilemodeling.com/artifacts/crcModel.htm</a><!-- m -->\n\n&gt;Oh, they do ship outside US and I have actually bought from Amazon before. It\'s just that I can only buy brand new books. My guess is second hand books are only for domestic market.\n\nAh, I see the book is no longer available new. Too bad.\n\n&gt;Yeap. The initial planning might takes a longer time before one is able to code but in the long term a lot of time are saved in maintaining those codes.\n\nTrue and a very good point. Maintenance is way easier. And OOP makes evolutionary development much easier too. And as we all know, all development is evolutionary.\n\nJames','',0,'gA==','2q53q7ck',1,0,'',303,0,0),(38347,8287,4,13,0,'213.76.252.200',1190697898,1,0,1,1,1,0,'','','Colin,\n\nYou may use free Pelles C IDE to create dialog for Pocket PC. When you run your applications real device is good choice to test them.\n\nIn my projects default font is System 10. This is larger font than default (8) but it\'s more readable for users.\n\nSample dialog:\n[code:20uzn9du]\n#include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n#include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n\nDOKHEAD DIALOG DISCARDABLE 0, 0, 136, 154\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION &quot;Nag&#322;&#46;dokumentu&quot;\nFONT 10, &quot;System&quot;\nBEGIN\n  CONTROL &quot;Klient&#58;&quot;, 1001, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 2, 22, 11\n  CONTROL &quot;Data wyst&#58;&quot;, 1002, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 24, 36, 11\n  CONTROL &quot;Sp&#46; zap&#322;&#58;&quot;, 1003, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 36, 36, 11\n  CONTROL &quot;Termin&#58;&quot;, 1004, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 49, 36, 11\n  CONTROL &quot;Realiz&#58;&quot;, 1005, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 61, 36, 11\n  CONTROL &quot;Upust&#58;&quot;, 1006, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 73, 36, 11\n  CONTROL &quot;W&#46;netto&#58;&quot;, 1007, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 85, 36, 11\n  CONTROL &quot;Ulica&#58;&quot;, 1008, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 109, 24, 11\n  CONTROL &quot;Pna/M&#58;&quot;, 1009, &quot;Static&quot;, SS_RIGHT|WS_GROUP, 0, 121, 24, 11\n  CONTROL &quot;&quot;, 1010, &quot;Edit&quot;, ES_MULTILINE|ES_AUTOVSCROLL|ES_UPPERCASE|ES_READONLY|WS_VSCROLL|WS_BORDER, 22, 2, 112, 21\n  CONTROL &quot;&quot;, 1011, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 36, 24, 50, 11\n  CONTROL &quot;&quot;, 1012, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 88, 24, 40, 11\n  CONTROL &quot;&quot;, 1013, &quot;ComboBox&quot;, WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 36, 36, 50, 40\n  CONTROL &quot;&quot;, 1014, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 102, 36, 26, 11\n  CONTROL &quot;&quot;, 1015, &quot;SysDateTimePick32&quot;, WS_TABSTOP|0x00800000, 36, 49, 50, 11\n  CONTROL &quot;+&quot;, 1016, &quot;Button&quot;, WS_TABSTOP, 88, 49, 12, 11\n  CONTROL &quot;-&quot;, 1017, &quot;Button&quot;, WS_TABSTOP, 102, 49, 12, 11\n  CONTROL &quot;0&quot;, 1018, &quot;Button&quot;, WS_TABSTOP, 116, 49, 12, 11\n  CONTROL &quot;&quot;, 1019, &quot;SysDateTimePick32&quot;, WS_TABSTOP|0x00800000, 36, 61, 50, 11\n  CONTROL &quot;+&quot;, 1020, &quot;Button&quot;, WS_TABSTOP, 88, 61, 12, 11\n  CONTROL &quot;-&quot;, 1021, &quot;Button&quot;, WS_TABSTOP, 102, 61, 12, 11\n  CONTROL &quot;K&quot;, 1022, &quot;Button&quot;, WS_TABSTOP, 116, 61, 12, 11\n  CONTROL &quot;&quot;, 1023, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 36, 73, 32, 11\n  CONTROL &quot;+&quot;, 1024, &quot;Button&quot;, WS_TABSTOP, 88, 73, 12, 11\n  CONTROL &quot;-&quot;, 1025, &quot;Button&quot;, WS_TABSTOP, 102, 73, 12, 11\n  CONTROL &quot;&quot;, 1026, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 36, 85, 48, 11\n  CONTROL &quot;&quot;, 1027, &quot;Edit&quot;, ES_RIGHT|ES_NUMBER|ES_AUTOHSCROLL|ES_READONLY|WS_BORDER, 86, 85, 48, 11\n  CONTROL &quot;Obliczenia od cen brutto&quot;, 1028, &quot;Button&quot;, BS_AUTOCHECKBOX|WS_TABSTOP, 36, 97, 98, 11\n  CONTROL &quot;&quot;, 1029, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 24, 109, 110, 11\n  CONTROL &quot;&quot;, 1030, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 24, 121, 32, 11\n  CONTROL &quot;&quot;, 1031, &quot;Edit&quot;, ES_AUTOHSCROLL|ES_UPPERCASE|ES_READONLY|WS_BORDER, 58, 121, 76, 11\n  CONTROL &quot;Uwagi&quot;, 1032, &quot;Button&quot;, WS_TABSTOP, 28, 138, 34, 12\n  CONTROL &quot;&lt;&lt;&quot;, 1033, &quot;Button&quot;, WS_TABSTOP, 64, 138, 34, 12\n  CONTROL &quot;Zapisz&quot;, 1034, &quot;Button&quot;, WS_TABSTOP, 100, 138, 34, 12\nEND\n[/code:20uzn9du]\n\nRegards\nPawel','',0,'AIA=','20uzn9du',1,0,'',13,0,0),(38348,8287,4,6,0,'82.59.51.36',1190706437,1,0,1,1,1,1,'','Re: Advise','[quote=&quot;Colin Haig&quot;:1npsbcaa]Is it better to use resource workshop or manually build dialogs and controls[/quote:1npsbcaa]\n\nResource editor is better, as usual. But I\'m not using it at the moment because I found strange differences in the results on the emulator and on the real device. At least using BRW.\n\n[quote=&quot;Colin Haig&quot;:1npsbcaa]- I have created a dialog with BRW and have a static say \'Client ID\'  but when testing it only displays \'Client\'[/quote:1npsbcaa]\n\nWe might need of a working RESIZE16 clause as in FWH. Antonio?\n\n[quote=&quot;Colin Haig&quot;:1npsbcaa]- which leads to my second question - is it better to have the PDA to test on or is the emulator just as good.[/quote:1npsbcaa]\n\nI haven\'t a PDA. The emulator seems to work fine and the development is faster as you don\'t have to upload the EXE in the device after each compilation. But yes, you should make at least a final test on the real PDA.\n\n[quote=&quot;Colin Haig&quot;:1npsbcaa]What font and font size is recommended.[/quote:1npsbcaa]\n\nI usually don\'t use a specific font (ie. the default system font is used).\n\n[quote=&quot;Colin Haig&quot;:1npsbcaa]I also created a edit field and set for right justification for a numeric input but the cursor stays on the left side.[/quote:1npsbcaa]\n\nYes, this is a bug of FWPPC, still unresolved. Antonio?\n\nEMG','',0,'gA==','1npsbcaa',1,0,'',6,0,0),(38349,8257,3,130,0,'141.51.32.24',1190708361,1,0,1,1,1,1,'','','Tim,\n\nI have written an event-manager/scheduler class. It´s still in beta state, because the documentation is not completed and it´s not fully tested under W98, W2k and Vista. It´s working fine under XP.\n\nIf you want test a demo, please drop me a note.','',0,'gA==','16jskqs7',1,0,'',130,0,0),(38350,8288,6,1146,0,'87.223.165.162',1190709811,1,0,1,1,1,0,'','impresión de un fichero de texto en preview','Hola,\n\nHay un ejemplo que imprime un fichero de texto y previamente lo saca por el preview, pero no recuerdo el nombre. Por favor, ¿me podéis decir cuál es?. Muchas gracias.\n\nUn saludo,\n\nMoises','',0,'gA==','1g688grw',1,0,'',1146,0,0),(38351,7833,3,161,0,'213.119.247.181',1190710634,1,0,1,1,1,0,'','','Antonio,\n\nDo you have a solution for creating \'bigger\' meta-files.\n\nI allway\'s get the same size as the screen  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nMarc','',0,'gA==','3ldp9hp1',1,0,'',161,0,0),(38352,8287,4,80,0,'202.72.164.124',1190716157,1,0,1,1,1,0,'','Re: Advise','[quote=&quot;EnricoMaria&quot;:11th0zal][quote=&quot;Colin Haig&quot;:11th0zal]Is it better to use resource workshop or manually build dialogs and controls[/quote:11th0zal]\n\nResource editor is better, as usual. But I\'m not using it at the moment because I found strange differences in the results on the emulator and on the real device. At least using BRW.\n\n[quote=&quot;Colin Haig&quot;:11th0zal]- I have created a dialog with BRW and have a static say \'Client ID\'  but when testing it only displays \'Client\'[/quote:11th0zal]\n\nWe might need of a working RESIZE16 clause as in FWH. Antonio?\n\n[quote=&quot;Colin Haig&quot;:11th0zal]- which leads to my second question - is it better to have the PDA to test on or is the emulator just as good.[/quote:11th0zal]\n\nI haven\'t a PDA. The emulator seems to work fine and the development is faster as you don\'t have to upload the EXE in the device after each compilation. But yes, you should make at least a final test on the real PDA.\n\n[quote=&quot;Colin Haig&quot;:11th0zal]What font and font size is recommended.[/quote:11th0zal]\n\nI usually don\'t use a specific font (ie. the default system font is used).\n\n[quote=&quot;Colin Haig&quot;:11th0zal]I also created a edit field and set for right justification for a numeric input but the cursor stays on the left side.[/quote:11th0zal]\n\nYes, this is a bug of FWPPC, still unresolved. Antonio?\n\nEMG[/quote:11th0zal]\n\nThanks Enrico for your reply - as I am just starting I might try Pelles RE as suggested by Palewu - I also dont have a PDA but if there was going to be a great variation between the PDA and emulator I would get a PDA.\n\nRegards\n\nColin','',0,'gA==','11th0zal',1,0,'',80,0,0),(38353,8289,6,533,0,'80.32.177.143',1190719515,1,0,1,1,1,0,'','Ancho de Columnas TXBrowse','Buenas foro, tengo la mente en blanco <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> , ¿sabeis como cambiar el ancho de las columnas en el TXBROWSE?\n\nMuchisimas Graciasssss <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2fu3etr6',1,0,'',533,0,0),(38354,8275,6,1100,0,'201.14.31.6',1190720578,1,0,1,1,1,1,'','','Estimado Aoki\n\nSem comentários. Você acertou na mosca o que eu precisava.\n\nMuito obrigada mesmo...','',0,'gA==','2xlrvq3c',1,0,'',1100,0,0),(38355,8289,6,533,0,'80.32.177.143',1190721441,1,0,1,1,1,0,'','','Ya me he iluminado!!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , \n\noCol[x]:nWidth = !!!!\n\nJajajajajajajajaja','',0,'','rptaylnb',1,0,'',533,0,0),(38356,8265,3,319,0,'201.52.234.57',1190722950,1,0,1,1,1,0,'','','Para todos os controles de GET.\n\n   aEval( oDlg:aControls, {|o| If(o:ClassName() == \"TGET\", o:lDisColors:=.F., NIL) } )','',0,'','vspjs9f9',1,0,'',319,0,0),(38357,7846,2,221,0,'190.78.48.82',1190725112,1,0,1,1,1,1,'','','YO HE HECHO ESO CON CODIGO DE BARRAS Y SOLO PONGO UN BOTON \"SALIR\", NO ES PARA QUE EL USUARIO LE DE CON UN MOUSE SALIR SINO COMO DICE ANTONIO PARA QUE HAYA AL MENOS 2 CONTROLES, SI TE DA PIEDRA PONERLO PONLO HIDE Y YA','',0,'','3fduphaj',1,0,'',221,0,0),(38358,8278,6,362,0,'200.158.19.112',1190725240,1,0,1,1,1,1,'','','Gracias Ramon... Mas és lo que lo dice, en una VENTANA PRINCIPAL, funciona perfecto, cuando estoy en UNA DIALOG de Otra funcion, retorna:  |||||, entonces, para que se  tenga el efecto de WINDOWS XP, usa-se una FUENTE TAHOMA. Asi, WINDOWS XP, retorna una PELOTA, bien bonita. \n\nRegards, saludos.','',0,'','3l1tet0y',1,0,'',362,0,0),(38359,8281,6,362,0,'200.158.19.112',1190725390,1,0,1,1,1,1,'','','[quote=&quot;tomafa&quot;:1wdcsqu7]revise estaparte que me indicaste pero aun asi no puedi compilar con VERCE, pero lo curioso es que con el buildx si me lo compila el programa que estoy haciendo mal ya revise todo y esta bien[/quote:1wdcsqu7]\n\nREVISA LOS FLAGS DE COMPILACION DEL VERCE.EXE. CREO, TENGAS ALGO ERRADO POR AHI.\n\nRegards, saludos.','',0,'gA==','1wdcsqu7',1,0,'',362,0,0),(38360,8272,6,316,0,'213.97.245.163',1190726105,1,0,1,1,1,0,'','','Antonio,\nhas podido verificar el error?\n\nCarlos','',0,'gA==','2bzj87mb',1,0,'',316,0,0),(38361,8257,3,3,0,'80.81.159.19',1190727964,1,0,1,1,1,1,'','','Stefan\n\nI am interested in a demo\n\nThanks \n\nRichard','',0,'gA==','22yb8l46',1,0,'',3,0,0),(38362,8290,2,534,0,'85.60.19.55',1190728915,1,0,1,1,1,0,'','otra de dialogo','como se puede modificar las propiedades de un dialogo en tiempo de ejecucion \n\nstyle  nOR( DS_MODALFRAME, WS_POPUP, 4 )   por ejemplo\n\nsiendo dicho dialogo creado desde recurso\n\npd\noDialog:nWidth = ...\noDialog:nHeight = ...\nsirve para el cambio de tamaño del dialogo conservando la misma posicion los distintos elementos del dialogo ?\nya que mi idea es poder usar una antigua clase de César E. Lozada\ny selecion su visualizacion o no dependiendo de la elecion.\nclase en cuestion \"trfandlg\"\ngracias.\n      <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','1u3sfwjn',1,0,'',534,0,0),(38363,8257,3,34,0,'68.5.217.82',1190731615,1,0,1,1,1,1,'','Class','I can test under XP and Vista.  I\'d be happy to check it out and provide you with feedback.\n\nI do have a working system, based on the DOS Grumpfish model, but today\'s windows applications have pretty well standardized on a look and feel.\n\nMy email is <!-- e --><a href=\"mailto:timstone@masterlinksoftware.com\">timstone@masterlinksoftware.com</a><!-- e --> and I would appreciate an opportunity to test the class.\n\nTim','',0,'gA==','3foi6o4f',1,0,'',34,0,0),(38364,8288,6,940,0,'189.175.181.123',1190738581,1,0,1,1,1,1,'','','Moises  aqui esta,,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7570&amp;highlight=memoread\">http://fivetechsoft.com/forums/viewtopi ... t=memoread</a><!-- m -->','',0,'gA==','29j7nz3m',1,0,'',940,0,0);
INSERT INTO `phpbb_posts` VALUES (38365,7833,3,104,0,'201.58.173.6',1190741629,1,0,1,1,1,0,'','','Hello,\n\nSee this sample:\n\n[code:1ndu8jar]\n// Testing how to scroll a window with its contents\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define D_WIDTH           4\n#define D_HEIGHT          13\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oWnd,oScrWnd\nLOCAL cGet0101 &#58;= space&#40;10&#41;,  ; //Row 1\n      cGet0102 &#58;= space&#40;10&#41;,  ;\n      cGet0103 &#58;= space&#40;10&#41;,  ;\n      cGet0104 &#58;= space&#40;10&#41;,  ;\n      cGet0105 &#58;= space&#40;10&#41;,  ;\n      cGet0201 &#58;= space&#40;10&#41;,  ; //Row 2\n      cGet0202 &#58;= space&#40;10&#41;,  ;\n      cGet0203 &#58;= space&#40;10&#41;,  ;\n      cGet0204 &#58;= space&#40;10&#41;,  ;\n      cGet0205 &#58;= space&#40;10&#41;,  ;\n      cGet0301 &#58;= space&#40;10&#41;,  ; //Row 3\n      cGet0302 &#58;= space&#40;10&#41;,  ;\n      cGet0303 &#58;= space&#40;10&#41;,  ;\n      cGet0304 &#58;= space&#40;10&#41;,  ;\n      cGet0305 &#58;= space&#40;10&#41;,  ;\n      cGet0401 &#58;= space&#40;10&#41;,  ; //Row 4\n      cGet0402 &#58;= space&#40;10&#41;,  ;\n      cGet0403 &#58;= space&#40;10&#41;,  ;\n      cGet0404 &#58;= space&#40;10&#41;,  ;\n      cGet0405 &#58;= space&#40;10&#41;,  ;\n      cGet0501 &#58;= space&#40;10&#41;,  ; //Row 5\n      cGet0502 &#58;= space&#40;10&#41;,  ;\n      cGet0503 &#58;= space&#40;10&#41;,  ;\n      cGet0504 &#58;= space&#40;10&#41;,  ;\n      cGet0505 &#58;= space&#40;10&#41;,  ;\n      cGet0601 &#58;= space&#40;10&#41;,  ; //Row 6\n      cGet0602 &#58;= space&#40;10&#41;,  ;\n      cGet0603 &#58;= space&#40;10&#41;,  ;\n      cGet0604 &#58;= space&#40;10&#41;,  ;\n      cGet0605 &#58;= space&#40;10&#41;,  ;\n      cGet0701 &#58;= space&#40;10&#41;,  ; //Row 7\n      cGet0702 &#58;= space&#40;10&#41;,  ;\n      cGet0703 &#58;= space&#40;10&#41;,  ;\n      cGet0704 &#58;= space&#40;10&#41;,  ;\n      cGet0705 &#58;= space&#40;10&#41;,  ;\n      cGet0801 &#58;= space&#40;10&#41;,  ; //Row 8\n      cGet0802 &#58;= space&#40;10&#41;,  ;\n      cGet0803 &#58;= space&#40;10&#41;,  ;\n      cGet0804 &#58;= space&#40;10&#41;,  ;\n      cGet0805 &#58;= space&#40;10&#41;,  ;\n      cGet0901 &#58;= space&#40;10&#41;,  ; //Row 9\n      cGet0902 &#58;= space&#40;10&#41;,  ;\n      cGet0903 &#58;= space&#40;10&#41;,  ;\n      cGet0904 &#58;= space&#40;10&#41;,  ;\n      cGet0905 &#58;= space&#40;10&#41;,  ;\n      cGet1001 &#58;= space&#40;10&#41;,  ; //Row 10\n      cGet1002 &#58;= space&#40;10&#41;,  ;\n      cGet1003 &#58;= space&#40;10&#41;,  ;\n      cGet1004 &#58;= space&#40;10&#41;,  ;\n      cGet1005 &#58;= space&#40;10&#41;,  ;\n      cGet1101 &#58;= space&#40;10&#41;,  ; //Row 11\n      cGet1102 &#58;= space&#40;10&#41;,  ;\n      cGet1103 &#58;= space&#40;10&#41;,  ;\n      cGet1104 &#58;= space&#40;10&#41;,  ;\n      cGet1105 &#58;= space&#40;10&#41;\n\n   define window oWnd from 0, 0 TO 25, 70 ;\n         title &quot;Scroll Window&quot;            ;\n         vscroll hscroll &amp;&amp; mdi\n\n   @ 9,17 bitmap file &quot;\\fwh\\bitmaps\\pic1&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,32 bitmap file &quot;\\fwh\\bitmaps\\pic2&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,47 bitmap file &quot;\\fwh\\bitmaps\\pic3&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,62 bitmap file &quot;\\fwh\\bitmaps\\pic4&#46;bmp&quot; of oWnd size 120,148 adjust\n   @ 9,77 bitmap file &quot;\\fwh\\bitmaps\\pic5&#46;bmp&quot; of oWnd size 120,148 adjust\n\n   @ 21*13,02*8 say &quot;Customer &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 23*13,02*8 say &quot;P&#46;O&#46; #   &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 25*13,02*8 say &quot;Style No&#46;&quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 27*13,02*8 say &quot;Fabrics  &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 29*13,02*8 say &quot;Fob      &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 31*13,02*8 say &quot;Q\'TY     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 33*13,02*8 say &quot;DEL&#46;     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 35*13,02*8 say &quot;MAKER    &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 37*13,02*8 say &quot;QTA      &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 39*13,02*8 say &quot;SIZE     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 41*13,02*8 say &quot;Size B/D &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 43*13,02*8 say &quot;REMARKS  &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   @ 21*13,17*8 say &quot;Venture  &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,32*8 say &quot;Sears    &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,47*8 say &quot;Kohl\'s   &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,62*8 say &quot;Kiss     &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,77*8 say &quot;K-MART   &quot; of oWnd update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   //-* Row 1\n   @ 23*13,17*8 get cGet0101 size 120,26 of oWnd update pixel\n   @ 23*13,32*8 get cGet0102 size 120,26 of oWnd update pixel\n   @ 23*13,47*8 get cGet0103 size 120,26 of oWnd update pixel\n   @ 23*13,62*8 get cGet0104 size 120,26 of oWnd update pixel\n   @ 23*13,77*8 get cGet0105 size 120,26 of oWnd update pixel\n\n   //-* Row 2\n   @ 25*13,17*8 get cGet0201 size 120,26 of oWnd update pixel\n   @ 25*13,32*8 get cGet0202 size 120,26 of oWnd update pixel\n   @ 25*13,47*8 get cGet0203 size 120,26 of oWnd update pixel\n   @ 25*13,62*8 get cGet0204 size 120,26 of oWnd update pixel\n   @ 25*13,77*8 get cGet0205 size 120,26 of oWnd update pixel\n\n   //-* Row 3\n   @ 27*13,17*8 get cGet0301 size 120,26 of oWnd update pixel\n   @ 27*13,32*8 get cGet0302 size 120,26 of oWnd update pixel\n   @ 27*13,47*8 get cGet0303 size 120,26 of oWnd update pixel\n   @ 27*13,62*8 get cGet0304 size 120,26 of oWnd update pixel\n   @ 27*13,77*8 get cGet0305 size 120,26 of oWnd update pixel\n\n   //-* Row 4\n   @ 29*13,17*8 get cGet0401 size 120,26 of oWnd update pixel\n   @ 29*13,32*8 get cGet0402 size 120,26 of oWnd update pixel\n   @ 29*13,47*8 get cGet0403 size 120,26 of oWnd update pixel\n   @ 29*13,62*8 get cGet0404 size 120,26 of oWnd update pixel\n   @ 29*13,77*8 get cGet0405 size 120,26 of oWnd update pixel\n\n   //-* Row 5\n   @ 31*13,17*8 get cGet0501 size 120,26 of oWnd update pixel\n   @ 31*13,32*8 get cGet0502 size 120,26 of oWnd update pixel\n   @ 31*13,47*8 get cGet0503 size 120,26 of oWnd update pixel\n   @ 31*13,62*8 get cGet0504 size 120,26 of oWnd update pixel\n   @ 31*13,77*8 get cGet0505 size 120,26 of oWnd update pixel\n\n   //-* Row 6\n   @ 33*13,17*8 get cGet0601 size 120,26 of oWnd update pixel\n   @ 33*13,32*8 get cGet0602 size 120,26 of oWnd update pixel\n   @ 33*13,47*8 get cGet0603 size 120,26 of oWnd update pixel\n   @ 33*13,62*8 get cGet0604 size 120,26 of oWnd update pixel\n   @ 33*13,77*8 get cGet0605 size 120,26 of oWnd update pixel\n\n   //-* Row 7\n   @ 35*13,17*8 get cGet0701 size 120,26 of oWnd update pixel\n   @ 35*13,32*8 get cGet0702 size 120,26 of oWnd update pixel\n   @ 35*13,47*8 get cGet0703 size 120,26 of oWnd update pixel\n   @ 35*13,62*8 get cGet0704 size 120,26 of oWnd update pixel\n   @ 35*13,77*8 get cGet0705 size 120,26 of oWnd update pixel\n\n   //-* Row 8\n   @ 37*13,17*8 get cGet0801 size 120,26 of oWnd update pixel\n   @ 37*13,32*8 get cGet0802 size 120,26 of oWnd update pixel\n   @ 37*13,47*8 get cGet0803 size 120,26 of oWnd update pixel\n   @ 37*13,62*8 get cGet0804 size 120,26 of oWnd update pixel\n   @ 37*13,77*8 get cGet0805 size 120,26 of oWnd update pixel\n\n   //-* Row 9\n   @ 39*13,17*8 get cGet0901 size 120,26 of oWnd update pixel\n   @ 39*13,32*8 get cGet0902 size 120,26 of oWnd update pixel\n   @ 39*13,47*8 get cGet0903 size 120,26 of oWnd update pixel\n   @ 39*13,62*8 get cGet0904 size 120,26 of oWnd update pixel\n   @ 39*13,77*8 get cGet0905 size 120,26 of oWnd update pixel\n\n   //-* Row 10\n   @ 41*13,17*8 get cGet1001 size 120,26 of oWnd update pixel\n   @ 41*13,32*8 get cGet1002 size 120,26 of oWnd update pixel\n   @ 41*13,47*8 get cGet1003 size 120,26 of oWnd update pixel\n   @ 41*13,62*8 get cGet1004 size 120,26 of oWnd update pixel\n   @ 41*13,77*8 get cGet1005 size 120,26 of oWnd update pixel\n\n   //-* Row 11\n   @ 43*13,17*8 get cGet1101 size 120,26 of oWnd update pixel\n   @ 43*13,32*8 get cGet1102 size 120,26 of oWnd update pixel\n   @ 43*13,47*8 get cGet1103 size 120,26 of oWnd update pixel\n   @ 43*13,62*8 get cGet1104 size 120,26 of oWnd update pixel\n   @ 43*13,77*8 get cGet1105 size 120,26 of oWnd update pixel\n\n\n   @ 50,20 button &quot;&amp;Ok&quot; size 80,20 of oWnd   ;\n      action &#40;MsgInfo&#40;&quot;You click OK button!&quot;&#41;,oWnd&#58;End&#40;&#41;&#41;\n\n   @ 50,40 button &quot;&amp;Cancel&quot; size 80,20 of oWnd  ;\n      action &#40;MsgInfo&#40;&quot;You click Cancel button!&quot;&#41;,oWnd&#58;End&#40;&#41;&#41;\n\n   ACTIVATE WINDOW oWnd    ;\n      ON INIT &#40; TScrWnd&#40;&#41;&#58;New&#40;oWnd,1,40,1,70&#41; &#41;\n\nRETURN&#40; NIL &#41;\n\n//============================================================================\n// FileName &#58; SCROLL&#46;PRG\n// Purpose  &#58;  Windows Scroll Class\n// Author   &#58; Eric Yang\n// Update History &#58;\n//      Date     Contents\n//    ---------- ---------------------------------------------------------------\n//    1997&#46;02&#46;01\n//\n//============================================================================\n#include &quot;FiveWin&#46;ch&quot;\n\n#ifndef TRUE\n   #define TRUE              &#46;T&#46;\n   #define FALSE             &#46;F&#46;\n#endif\n\nCLASS TScrWnd\n\n   DATA oWnd\n   DATA nVPos,nHPos\n\n   METHOD New&#40; oWnd,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR\n   METHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\n   //-*------------------------------------------------------------\n   METHOD VScroll&#40;&#41;\n   METHOD VScrollThumb&#40;&#41;\n   METHOD VScrollTrack&#40;&#41;\n   METHOD VScrollPgDown&#40;&#41;\n   METHOD VScrollPgUp&#40;&#41;\n   //-*-----------------------------\n   METHOD HScroll&#40;&#41;\n   METHOD HScrollThumb&#40;&#41;\n   METHOD HScrollTrack&#40;&#41;\n   METHOD HScrollPgDown&#40;&#41;\n   METHOD HScrollPgUp&#40;&#41;\n\nENDCLASS\n\nMETHOD New&#40; oWnd,nV1,nV2,nH1,nH2 &#41; CLASS TScrWnd\n   &#58;&#58;nVPos &#58;= 0\n   &#58;&#58;nHPos &#58;= 0\n   &#58;&#58;oWnd &#58;= oWnd\n   &#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\nRETURN Self\n\n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrWnd\nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125;\n   //--------------------------------------------------\n   //-* Vertical Scroll Bar\n//   ? &#58;&#58;oWnd&#58;oVSCroll=NIL\n   if &#58;&#58;oWnd&#58;oVScroll != NIL\n//    ? nV1,nV2\n      &#58;&#58;oWnd&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41;\n      &#58;&#58;nVPos &#58;= &#58;&#58;oWnd&#58;oVScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oWnd&#58;oVScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oWnd&#58;oVScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oWnd&#58;oVScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //--------------------------------------------------\n   //-* Horizontal Scroll Bar\n   if &#58;&#58;oWnd&#58;oHScroll != NIL\n      &#58;&#58;oWnd&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41;\n      &#58;&#58;nHPos &#58;= &#58;&#58;oWnd&#58;oHScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oWnd&#58;oHScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oWnd&#58;oHScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oWnd&#58;oHScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //&#58;&#58;oWnd&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125;\n   //--------------------------------------------------\nRETURN&#40; NIL &#41;\n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41;\n   //MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41;\n   //if nKey == K_ENTER\n   //   goMainDlg&#58;End&#40;&#41;\n   //   lRetVal &#58;= TRUE\n   //endif\n//RETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Vertical Scroll Bar\nMETHOD VScroll&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oWnd&#58;oVScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40;  &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nVPos &lt; &#58;&#58;oWnd&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oWnd&#58;oVScroll&#58;nMax, &#58;&#58;oWnd&#58;oVScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt; &#58;&#58;oWnd&#58;oVScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oWnd&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oWnd&#58;oVScroll&#58;nMin,&#58;&#58;oWnd&#58;oVScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Horizontal Scroll Bar\nMETHOD HScroll&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oWnd&#58;oHScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrWnd\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      &#58;&#58;oWnd&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nHPos &lt; &#58;&#58;oWnd&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oWnd&#58;oHScroll&#58;nMax, &#58;&#58;oWnd&#58;oHScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrWnd\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt; &#58;&#58;oWnd&#58;oHScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oWnd&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oWnd&#58;oHScroll&#58;nMin,&#58;&#58;oWnd&#58;oHScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oWnd&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oWnd&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=* End of File =================================================\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn\n\n[/code:1ndu8jar]\n\n...and scroll dialog\n\n[code:1ndu8jar]\n\n// Testing how to scroll a dialog with its contents\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define D_WIDTH           4\n#define D_HEIGHT          13\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oDlg\nLOCAL cGet0101 &#58;= space&#40;10&#41;,  ; //Row 1\n      cGet0102 &#58;= space&#40;10&#41;,  ;\n      cGet0103 &#58;= space&#40;10&#41;,  ;\n      cGet0104 &#58;= space&#40;10&#41;,  ;\n      cGet0105 &#58;= space&#40;10&#41;,  ;\n      cGet0201 &#58;= space&#40;10&#41;,  ; //Row 2\n      cGet0202 &#58;= space&#40;10&#41;,  ;\n      cGet0203 &#58;= space&#40;10&#41;,  ;\n      cGet0204 &#58;= space&#40;10&#41;,  ;\n      cGet0205 &#58;= space&#40;10&#41;,  ;\n      cGet0301 &#58;= space&#40;10&#41;,  ; //Row 3\n      cGet0302 &#58;= space&#40;10&#41;,  ;\n      cGet0303 &#58;= space&#40;10&#41;,  ;\n      cGet0304 &#58;= space&#40;10&#41;,  ;\n      cGet0305 &#58;= space&#40;10&#41;,  ;\n      cGet0401 &#58;= space&#40;10&#41;,  ; //Row 4\n      cGet0402 &#58;= space&#40;10&#41;,  ;\n      cGet0403 &#58;= space&#40;10&#41;,  ;\n      cGet0404 &#58;= space&#40;10&#41;,  ;\n      cGet0405 &#58;= space&#40;10&#41;,  ;\n      cGet0501 &#58;= space&#40;10&#41;,  ; //Row 5\n      cGet0502 &#58;= space&#40;10&#41;,  ;\n      cGet0503 &#58;= space&#40;10&#41;,  ;\n      cGet0504 &#58;= space&#40;10&#41;,  ;\n      cGet0505 &#58;= space&#40;10&#41;,  ;\n      cGet0601 &#58;= space&#40;10&#41;,  ; //Row 6\n      cGet0602 &#58;= space&#40;10&#41;,  ;\n      cGet0603 &#58;= space&#40;10&#41;,  ;\n      cGet0604 &#58;= space&#40;10&#41;,  ;\n      cGet0605 &#58;= space&#40;10&#41;,  ;\n      cGet0701 &#58;= space&#40;10&#41;,  ; //Row 7\n      cGet0702 &#58;= space&#40;10&#41;,  ;\n      cGet0703 &#58;= space&#40;10&#41;,  ;\n      cGet0704 &#58;= space&#40;10&#41;,  ;\n      cGet0705 &#58;= space&#40;10&#41;,  ;\n      cGet0801 &#58;= space&#40;10&#41;,  ; //Row 8\n      cGet0802 &#58;= space&#40;10&#41;,  ;\n      cGet0803 &#58;= space&#40;10&#41;,  ;\n      cGet0804 &#58;= space&#40;10&#41;,  ;\n      cGet0805 &#58;= space&#40;10&#41;,  ;\n      cGet0901 &#58;= space&#40;10&#41;,  ; //Row 9\n      cGet0902 &#58;= space&#40;10&#41;,  ;\n      cGet0903 &#58;= space&#40;10&#41;,  ;\n      cGet0904 &#58;= space&#40;10&#41;,  ;\n      cGet0905 &#58;= space&#40;10&#41;,  ;\n      cGet1001 &#58;= space&#40;10&#41;,  ; //Row 10\n      cGet1002 &#58;= space&#40;10&#41;,  ;\n      cGet1003 &#58;= space&#40;10&#41;,  ;\n      cGet1004 &#58;= space&#40;10&#41;,  ;\n      cGet1005 &#58;= space&#40;10&#41;,  ;\n      cGet1101 &#58;= space&#40;10&#41;,  ; //Row 11\n      cGet1102 &#58;= space&#40;10&#41;,  ;\n      cGet1103 &#58;= space&#40;10&#41;,  ;\n      cGet1104 &#58;= space&#40;10&#41;,  ;\n      cGet1105 &#58;= space&#40;10&#41;\n\n   define dialog oDlg from 0, 0 TO 25, 70 ;\n         title &quot;Scroll dialog&quot;            ;\n         Style nor&#40; WS_VSCROLL, WS_HSCROLL &#41;\n\n   @ 9,17 bitmap file &quot;\\fwh\\bitmaps\\pic1&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,32 bitmap file &quot;\\fwh\\bitmaps\\pic2&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,47 bitmap file &quot;\\fwh\\bitmaps\\pic3&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,62 bitmap file &quot;\\fwh\\bitmaps\\pic4&#46;bmp&quot; of oDlg size 120,148 adjust\n   @ 9,77 bitmap file &quot;\\fwh\\bitmaps\\pic5&#46;bmp&quot; of oDlg size 120,148 adjust\n\n   @ 21*13,02*8 say &quot;Customer &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 23*13,02*8 say &quot;P&#46;O&#46; #   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 25*13,02*8 say &quot;Style No&#46;&quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 27*13,02*8 say &quot;Fabrics  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 29*13,02*8 say &quot;Fob      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 31*13,02*8 say &quot;Q\'TY     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 33*13,02*8 say &quot;DEL&#46;     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 35*13,02*8 say &quot;MAKER    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 37*13,02*8 say &quot;QTA      &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 39*13,02*8 say &quot;SIZE     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 41*13,02*8 say &quot;Size B/D &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 43*13,02*8 say &quot;REMARKS  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   @ 21*13,17*8 say &quot;Venture  &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,32*8 say &quot;Sears    &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,47*8 say &quot;Kohl\'s   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,62*8 say &quot;Kiss     &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n   @ 21*13,77*8 say &quot;K-MART   &quot; of oDlg update color CLR_BLACK,CLR_WHITE size 120,26 border pixel\n\n   //-* Row 1\n   @ 23*13,17*8 get cGet0101 size 120,26 of oDlg update pixel\n   @ 23*13,32*8 get cGet0102 size 120,26 of oDlg update pixel\n   @ 23*13,47*8 get cGet0103 size 120,26 of oDlg update pixel\n   @ 23*13,62*8 get cGet0104 size 120,26 of oDlg update pixel\n   @ 23*13,77*8 get cGet0105 size 120,26 of oDlg update pixel\n\n   //-* Row 2\n   @ 25*13,17*8 get cGet0201 size 120,26 of oDlg update pixel\n   @ 25*13,32*8 get cGet0202 size 120,26 of oDlg update pixel\n   @ 25*13,47*8 get cGet0203 size 120,26 of oDlg update pixel\n   @ 25*13,62*8 get cGet0204 size 120,26 of oDlg update pixel\n   @ 25*13,77*8 get cGet0205 size 120,26 of oDlg update pixel\n\n   //-* Row 3\n   @ 27*13,17*8 get cGet0301 size 120,26 of oDlg update pixel\n   @ 27*13,32*8 get cGet0302 size 120,26 of oDlg update pixel\n   @ 27*13,47*8 get cGet0303 size 120,26 of oDlg update pixel\n   @ 27*13,62*8 get cGet0304 size 120,26 of oDlg update pixel\n   @ 27*13,77*8 get cGet0305 size 120,26 of oDlg update pixel\n\n   //-* Row 4\n   @ 29*13,17*8 get cGet0401 size 120,26 of oDlg update pixel\n   @ 29*13,32*8 get cGet0402 size 120,26 of oDlg update pixel\n   @ 29*13,47*8 get cGet0403 size 120,26 of oDlg update pixel\n   @ 29*13,62*8 get cGet0404 size 120,26 of oDlg update pixel\n   @ 29*13,77*8 get cGet0405 size 120,26 of oDlg update pixel\n\n   //-* Row 5\n   @ 31*13,17*8 get cGet0501 size 120,26 of oDlg update pixel\n   @ 31*13,32*8 get cGet0502 size 120,26 of oDlg update pixel\n   @ 31*13,47*8 get cGet0503 size 120,26 of oDlg update pixel\n   @ 31*13,62*8 get cGet0504 size 120,26 of oDlg update pixel\n   @ 31*13,77*8 get cGet0505 size 120,26 of oDlg update pixel\n\n   //-* Row 6\n   @ 33*13,17*8 get cGet0601 size 120,26 of oDlg update pixel\n   @ 33*13,32*8 get cGet0602 size 120,26 of oDlg update pixel\n   @ 33*13,47*8 get cGet0603 size 120,26 of oDlg update pixel\n   @ 33*13,62*8 get cGet0604 size 120,26 of oDlg update pixel\n   @ 33*13,77*8 get cGet0605 size 120,26 of oDlg update pixel\n\n   //-* Row 7\n   @ 35*13,17*8 get cGet0701 size 120,26 of oDlg update pixel\n   @ 35*13,32*8 get cGet0702 size 120,26 of oDlg update pixel\n   @ 35*13,47*8 get cGet0703 size 120,26 of oDlg update pixel\n   @ 35*13,62*8 get cGet0704 size 120,26 of oDlg update pixel\n   @ 35*13,77*8 get cGet0705 size 120,26 of oDlg update pixel\n\n   //-* Row 8\n   @ 37*13,17*8 get cGet0801 size 120,26 of oDlg update pixel\n   @ 37*13,32*8 get cGet0802 size 120,26 of oDlg update pixel\n   @ 37*13,47*8 get cGet0803 size 120,26 of oDlg update pixel\n   @ 37*13,62*8 get cGet0804 size 120,26 of oDlg update pixel\n   @ 37*13,77*8 get cGet0805 size 120,26 of oDlg update pixel\n\n   //-* Row 9\n   @ 39*13,17*8 get cGet0901 size 120,26 of oDlg update pixel\n   @ 39*13,32*8 get cGet0902 size 120,26 of oDlg update pixel\n   @ 39*13,47*8 get cGet0903 size 120,26 of oDlg update pixel\n   @ 39*13,62*8 get cGet0904 size 120,26 of oDlg update pixel\n   @ 39*13,77*8 get cGet0905 size 120,26 of oDlg update pixel\n\n   //-* Row 10\n   @ 41*13,17*8 get cGet1001 size 120,26 of oDlg update pixel\n   @ 41*13,32*8 get cGet1002 size 120,26 of oDlg update pixel\n   @ 41*13,47*8 get cGet1003 size 120,26 of oDlg update pixel\n   @ 41*13,62*8 get cGet1004 size 120,26 of oDlg update pixel\n   @ 41*13,77*8 get cGet1005 size 120,26 of oDlg update pixel\n\n   //-* Row 11\n   @ 43*13,17*8 get cGet1101 size 120,26 of oDlg update pixel\n   @ 43*13,32*8 get cGet1102 size 120,26 of oDlg update pixel\n   @ 43*13,47*8 get cGet1103 size 120,26 of oDlg update pixel\n   @ 43*13,62*8 get cGet1104 size 120,26 of oDlg update pixel\n   @ 43*13,77*8 get cGet1105 size 120,26 of oDlg update pixel\n\n\n   @ 50,20 button &quot;&amp;Ok&quot; size 80,20 of oDlg   ;\n      action &#40;MsgInfo&#40;&quot;You click OK button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41;\n   @ 50,40 button &quot;&amp;Cancel&quot; size 80,20 of oDlg  ;\n      action &#40;MsgInfo&#40;&quot;You click Cancel button!&quot;&#41;,oDlg&#58;End&#40;&#41;&#41;\n\n   ACTIVATE dialog oDlg    ;\n      ON INIT &#40; TScrDlg&#40;&#41;&#58;New&#40;oDlg,1,100,1,400&#41; &#41;\n\nRETURN&#40; NIL &#41;\n\n//============================================================================\n// FileName &#58; SCROLL&#46;PRG\n// Purpose  &#58;  dialog Scroll Class\n// Author   &#58; Eric Yang\n// Update History &#58;\n//      Date     Contents\n//    ---------- ---------------------------------------------------------------\n//    1997&#46;02&#46;01\n//\n//============================================================================\n#include &quot;FiveWin&#46;ch&quot;\n\n#ifndef TRUE\n   #define TRUE              &#46;T&#46;\n   #define FALSE             &#46;F&#46;\n#endif\n\nCLASS TScrDlg\n\n   DATA oDlg\n   DATA nVPos,nHPos\n\n   METHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CONSTRUCTOR\n   METHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\n   //-*------------------------------------------------------------\n   METHOD VScroll&#40;&#41;\n   METHOD VScrollThumb&#40;&#41;\n   METHOD VScrollTrack&#40;&#41;\n   METHOD VScrollPgDown&#40;&#41;\n   METHOD VScrollPgUp&#40;&#41;\n   //-*-----------------------------\n   METHOD HScroll&#40;&#41;\n   METHOD HScrollThumb&#40;&#41;\n   METHOD HScrollTrack&#40;&#41;\n   METHOD HScrollPgDown&#40;&#41;\n   METHOD HScrollPgUp&#40;&#41;\n\nENDCLASS\n\nMETHOD New&#40; oDlg,nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg\n   &#58;&#58;nVPos &#58;= 0\n   &#58;&#58;nHPos &#58;= 0\n   &#58;&#58;oDlg &#58;= oDlg\n   &#58;&#58;SetScroll&#40; nV1,nV2,nH1,nH2 &#41;\nRETURN Self\n\n\nMETHOD SetScroll&#40; nV1,nV2,nH1,nH2 &#41; CLASS TScrDlg\nLOCAL aCoors1&#58;=&#123;&#125;,aCoors2&#58;=&#123;&#125;\n   //--------------------------------------------------\n   //-* Vertical Scroll Bar\n//   ? &#58;&#58;oDlg&#58;oVSCroll=NIL\n   if &#58;&#58;oDlg&#58;oVScroll != NIL\n//    ? nV1,nV2\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetRange&#40; nV1,nV2 &#41;\n      &#58;&#58;nVPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;VScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;VScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;VScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oDlg&#58;oVScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oDlg&#58;oVScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;VScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oDlg&#58;oVScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;VScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //--------------------------------------------------\n   //-* Horizontal Scroll Bar\n   if &#58;&#58;oDlg&#58;oHScroll != NIL\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetRange&#40; nH1,nH2 &#41;\n      &#58;&#58;nHPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoDown   &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoUp     &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageUp   &#58;= &#123;|| &#58;&#58;HScrollPgUp&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPageDown &#58;= &#123;|| &#58;&#58;HScrollPgDown&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoTop    &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bGoBottom &#58;= &#123;|| &#58;&#58;HScroll&#40;&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep   &#58;= 10\n      //&#58;&#58;oDlg&#58;oHScroll&#58;lReDraw &#58;= TRUE\n      &#58;&#58;oDlg&#58;oHScroll&#58;bPos      &#58;= &#123;|nPos| &#58;&#58;HScrollThumb&#40;nPos&#41; &#125;\n      &#58;&#58;oDlg&#58;oHScroll&#58;bTrack    &#58;= &#123;|nPos| &#58;&#58;HScrollTrack&#40;nPos&#41; &#125;\n   endif\n   //&#58;&#58;oDlg&#58;bKeyChar &#58;= &#123;|nKey,nFlags| ScrollKey&#40;nKey&#41; &#125;\n   //--------------------------------------------------\nRETURN&#40; NIL &#41;\n\n//STATIC FUNCTION ScrollKey&#40;nKey&#41;\n   //MsgInfo&#40; &quot;Key &#58; &quot;+str&#40;nKey,10&#41; &#41;\n   //if nKey == K_ENTER\n   //   goMainDlg&#58;End&#40;&#41;\n   //   lRetVal &#58;= TRUE\n   //endif\n//RETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Vertical Scroll Bar\nMETHOD VScroll&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oDlg&#58;oVScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;  &#58;&#58;nVPos-nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollThumb&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollTrack&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nVPos &gt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nVPos &lt;= &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oVScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40;&#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgDown&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nVPos + &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMax, &#58;&#58;oDlg&#58;oVScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD VScrollPgUp&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nVPos &gt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nVPos - &#58;&#58;oDlg&#58;oVScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oVScroll&#58;nMin,&#58;&#58;oDlg&#58;oVScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd, 0,  ;\n         &#40; &#58;&#58;nVPos - nNewPos &#41;*D_HEIGHT,    ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nVPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=================================================================\n//-* Horizontal Scroll Bar\nMETHOD HScroll&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;oDlg&#58;oHScroll&#58;GetPos&#40;&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollThumb&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollTrack&#40;nNewPos&#41; CLASS TScrDlg\n   if &#58;&#58;nHPos &gt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMin   ;\n      &#46;and&#46; &#58;&#58;nHPos &lt;= &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      &#58;&#58;oDlg&#58;oHScroll&#58;SetPos&#40;nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40;&#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,   ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgDown&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax\n      nNewPos &#58;= &#58;&#58;nHPos + &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMax, &#58;&#58;oDlg&#58;oHScroll&#58;nMax, nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\nMETHOD HScrollPgUp&#40;&#41; CLASS TScrDlg\nLOCAL nNewPos\n   if &#58;&#58;nHPos &gt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin\n      nNewPos &#58;= &#58;&#58;nHPos - &#58;&#58;oDlg&#58;oHScroll&#58;nPgStep\n      nNewPos &#58;= iif&#40;nNewPos &lt; &#58;&#58;oDlg&#58;oHScroll&#58;nMin,&#58;&#58;oDlg&#58;oHScroll&#58;nMin,nNewPos&#41;\n      SysRefresh&#40;&#41;\n      ScrollWindow&#40; &#58;&#58;oDlg&#58;hWnd,           ;\n         &#40; &#58;&#58;nHPos - nNewPos &#41;*D_WIDTH,0,  ;\n         0 , GetClientRect&#40;&#58;&#58;oDlg&#58;hWnd&#41; &#41;\n      &#58;&#58;nHPos &#58;= nNewPos\n   endif\nRETURN&#40; NIL &#41;\n\n//=* End of File =================================================\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn\n\n[/code:1ndu8jar]\n\nRegards,\n\nRossine.','',0,'AIA=','1ndu8jar',1,0,'',104,0,0),(38366,8236,6,760,0,'200.37.76.94',1190742873,1,0,1,1,1,0,'','OT : Objeto Persistente','Hola a todos\n\nLa verdad Master Rene no he podido hacer funcionar... el browse ocupa todo la ventana , si no seria molestia un ejemplo pequeño por favor, para poder orientarme ...\n\nSalu2\n\nFrancis','',0,'AIA=','2dg64eob',1,0,'',760,0,0),(38367,8287,4,2,0,'87.218.146.157',1190743889,1,0,1,1,1,1,'','','Enrico,\n\n&gt; We might need of a working RESIZE16 clause as in FWH. Antonio? \n\nIf it is needed then we will implement it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; Yes, this is a bug of FWPPC, still unresolved. Antonio? \n\nWe found it as a side effect when using a PICTURE. Afaik if you remember the picture, then the right side style was working fine. We didn\'t find yet whats the relation between them','',0,'AIA=','1tf9vcab',1,0,'',2,0,0),(38368,8287,4,2,0,'87.218.146.157',1190743988,1,0,1,1,1,1,'','','Colin,\n\n&gt; to be a great variation between the PDA and emulator \n\nIt may depend on what PDA you may use. We use a HP IPAQ and the emulator and the PDA look exactly the same','',0,'AIA=','6xqyp57r',1,0,'',2,0,0),(38369,7833,3,2,0,'87.218.146.157',1190744272,1,0,1,1,1,1,'','','Marc,\n\n&gt; Do you have a solution for creating \'bigger\' meta-files. \n\nWe may need to create a larger hDC in memory. Several functions should be used. We are going to review it','',0,'AIA=','2m4mrmuy',1,0,'',2,0,0),(38370,7833,3,161,0,'81.83.249.31',1190744310,1,0,1,1,1,0,'','','Thanks Rossine,\n\nI\'ts working very nice.\nI will try to \'translate\' my program to draw directly to the window and display the drawing instead of painting first to a meta-file and than displaying it.\n\nRegards,\nMarc','',0,'AIA=','j7jcz5eu',1,0,'',161,0,0),(38371,8288,6,1146,0,'87.223.165.162',1190747134,1,0,1,1,1,0,'','','César,\n\nEse ejemplo, que corresponde a testprn5.prg, no funciona bien,  pues sólo muestra la primera página y el txt no se muestra bien.\n\nEra otro ejemplo, que leia bien todo txt y lo sacaba en las correspondientrs páginas.\n\nMuchas gracias de todas formas.','',0,'AIA=','1i4r3ic4',1,0,'',1146,0,0),(38372,8258,6,123,0,'217.125.221.95',1190747276,1,0,1,1,1,1,'','','Hola Armando,\n\nPuedes trabajar de las dos formas.\n\nPor mi experiencia creo que los recodsets de ado los dejo solo para la edición de registros mientras que los \'Selects\' con el método execute del objeto Connection lo utilizo para obtener información que no voy a modificar.\n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.capelblog.com\">www.capelblog.com</a><!-- w --> voy a publicar próximamente algo avanzado sobre ADO y SqlServer.  No obstante no puedo darte fecha por que no dispongo de mucho tiempo libre y, además, tampoco dispongo de conexión a internet en casa <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->.','',0,'AIA=','3ihtmxc9',1,0,'',123,0,0),(38373,8213,7,123,0,'217.125.221.95',1190747385,1,0,1,1,1,1,'','','Arturo,\n\n¿Como te fue la información?\n¿Era lo que buscabas?','',0,'AIA=','3ikuh2sp',1,0,'',123,0,0),(38374,8227,7,123,0,'217.125.221.95',1190747452,1,0,1,1,1,1,'','','Antonio,\n\n¿Has actualizado los cambios del cvs al harbour PPC?\n\n¿Tienes alguna idea de fecha?','',0,'AIA=','2yl1vug5',1,0,'',123,0,0),(38375,8080,6,1163,0,'200.117.48.157',1190747824,1,0,1,1,1,0,'','Como hago para grabar en un campo BLOB','Hola :\n\nComo hago para grabar en un campo BLOB  ( un Arreglo ) , Que funcion utilizo ??\n\nEn clipper 5.3 y ADS lo hago muy simple :\n\nField-&gt;CampoMemo := aDatos\n\nLo mismo para leerlo de un archivo\n\naDatos := Field-&gt;CampoMemo\n\nEsto no me es soportado ( Aparentemente por xHarbour ) y ADS...? o necesito alguna otra función...?','',0,'AIA=','94qoje3u',1,0,'',1163,0,0),(38376,8258,6,53,0,'189.139.97.28',1190748623,1,0,1,1,1,1,'','','José Luis:\n\nMuchas gracias por el aporte, esperaré esa publicación como agua de mayo viniendo de tí debe ser excelente.\n\nSaludos','',0,'AIA=','1c21h0ih',1,0,'',53,0,0),(38377,8257,3,439,0,'190.64.103.208',1190748753,1,0,1,1,1,1,'','Re: Class','I will pleased to test it in windows 98 SE, my email is <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->','',0,'AIA=','5d7r1uk1',1,0,'',439,0,0),(38378,8213,7,1135,0,'189.136.185.231',1190749520,1,0,1,1,1,1,'','','[quote=&quot;jlcapel&quot;:24vg9d8s]Arturo,\n\n¿Como te fue la información?\n¿Era lo que buscabas?[/quote:24vg9d8s]\n\nJose Luis:\nGracias, primeramente he elegido el camino de emular una comunicacion serial, pues tengo una impresora que soporta serial e IRDA via IR. Todavia no lo pruebo, pero cualquiera que sea el resultado se los hare saber.\nSaludos.','',0,'gA==','24vg9d8s',1,0,'',1135,0,0),(38379,7805,3,161,0,'81.83.249.31',1190749911,1,0,1,1,1,0,'','','Hi,\n\nI found the solution.\n\nI don\'t know why, but if you change the order from\n[code:2378rmr9]\n#change these paths as needed\n&#46;path&#46;PRG = &#46;\\\n&#46;path&#46;OBJ = &#46;\\obj\n&#46;path&#46;CH  = $&#40;FWDIR&#41;\\include;$&#40;HBDIR&#41;\\include\n&#46;path&#46;C   = &#46;\\\n&#46;path&#46;rc  = &#46;\\\n[/code:2378rmr9]\n\nto\n[code:2378rmr9]\n#change these paths as needed\n&#46;path&#46;OBJ = &#46;\\obj\n&#46;path&#46;PRG = &#46;\\\n&#46;path&#46;CH  = $&#40;FWDIR&#41;\\include;$&#40;HBDIR&#41;\\include\n&#46;path&#46;C   = &#46;\\\n&#46;path&#46;rc  = &#46;\\\n[/code:2378rmr9]\n\nthen it\'s working!!!\n\nRegards,\nMarc','',0,'AIA=','2378rmr9',1,0,'',161,0,0),(38380,8227,7,2,0,'87.218.146.157',1190750069,1,0,1,1,1,1,'','','Toni,\n\nTRY/CATCH se pueden implementar de esta forma (Przemek):\n[code:255fr6si]\n   #xcommand TRY              =&gt; bError &#58;= errorBlock&#40; &#123;|oErr| break&#40; oErr &#41; &#125; &#41; ;;\n                                 BEGIN SEQUENCE\n   #xcommand CATCH &#91;&lt;!oErr!&gt;&#93; =&gt; errorBlock&#40; bError &#41; ;;\n                                 RECOVER &#91;USING &lt;oErr&gt;&#93; &lt;-oErr-&gt; ;;\n                                 errorBlock&#40; bError &#41;\n[/code:255fr6si]\nTienes que delarar una variable bError','',0,'AIA=','255fr6si',1,0,'',2,0,0),(38381,8227,7,2,0,'87.218.146.157',1190750233,1,0,1,1,1,1,'','','Jose Luis,\n\nActualizamos los cambios del SVN (ya no se usa CVS) cada cierto tiempo. \n\nEl build actual es de Julio del 2007','',0,'AIA=','2easu1an',1,0,'',2,0,0),(38382,7805,3,2,0,'87.218.146.157',1190750394,1,0,1,1,1,1,'','','Marc,\n\nThanks so much for sharing it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe had it on our to-do list <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3gu26arm',1,0,'',2,0,0),(38383,7833,3,2,0,'87.218.146.157',1190750576,1,0,1,1,1,1,'','','Very good! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1l1ziuyj',1,0,'',2,0,0),(38384,8236,6,2,0,'87.218.146.157',1190751206,1,0,1,1,1,1,'','','Francis,\n\nAqui tienes un ejemplo con un listbox, el splitter y el browse:\n[code:2i4z1kzv]\n   DEFINE WINDOW oWnd OF oWnd TITLE &quot;Test Splitter&quot;\n   \n   @ 0, 0 LISTBOX oLbx VAR cValue ITEMS aItems ;\n      OF oWnd SIZE 150, 400\n\n   @ 0, 19&#46;6 LISTBOX oBrw FIELDS SIZE 300, 400 OF oWnd\n\n   @ 0, 151 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oLbx ; \n      HINDS CONTROLS oBrw ;\n      SIZE 4, oWnd&#58;nHeight - 70 PIXEL ;\n      OF oWnd\n   \n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit&#58;Adjust&#40;&#41;\n[/code:2i4z1kzv]','',0,'AIA=','2i4z1kzv',1,0,'',2,0,0),(38385,8290,2,2,0,'87.218.146.157',1190751313,1,0,1,1,1,1,'','','Ciertas propiedades, como por ejemplo las dimensiones, se pueden cambiar en tiempo de ejecución. Como tu mismo indicas:\n\noDialog:nWidth = ... \noDialog:nHeight = ...','',0,'AIA=','361u4njt',1,0,'',2,0,0),(38386,8274,18,2,0,'87.218.146.157',1190751441,1,0,1,1,1,1,'','','Moises,\n\nEl ejemplo que te he indicado anteriormente funciona correctamente. \n\nPuedes modificarlo para mostrar lo que quieres hacer ? gracias','',0,'AIA=','15y3fd0c',1,0,'',2,0,0),(38387,2327,6,694,0,'201.47.68.229',1190751502,1,0,1,1,1,1,'','','Rossine meu amigo, aconteceu comigo o problema de estar em uma dialog, e do nada borrar a window do fundo, fiz isso e aparentemente resolveu:\n\nMETHOD Paint() CLASS TSSay\n\n   local n \n   local nColorShadow, nColorLight\n\n   if !IsWindowEnabled( ::hWnd )  &amp;&amp; By Rossine \n      return nil \n   endif \n\n   ::GetDC()\n\n   if ::lActive\n    \n      for n := 1 to len( ::aCaption )\n          WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight, ::nSLeft, ::aCaption[ n ],;\n                If( ::lOver, ::nClrOver, ::nClrText ),,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n      next\n      \n      if ::lDrawBox\n         ::DrawBox( ::lOver )\n      endif\n      \n   else\n      \n      nColorShadow := GetSysColor( COLOR_BTNSHADOW )\n      nColorLight  := GetSysColor( COLOR_BTNHIGHLIGHT ) \n\n      for n := 1 to len( ::aCaption )\n          WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight + 1, ::nSLeft + 1, ::aCaption[ n ], nColorLight,,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n          WSay( ::hWnd, ::hDC, ::nSTop + ( n - 1 ) * ::nTxtHeight, ::nSLeft, ::aCaption[ n ], nColorShadow,,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ), .T., .T., ::nAlign )\n      next\n\n   endif\n\n   // 3D\n\n   if ::lShaded\n      WndInset( ::hWnd, ::hDC )   // SHADED, SHADOW\n   endif\n\n   if ::lRaised\n      WndRaised( ::hWnd, ::hDC )  // RAISED\n   endif\n\n   if ::lBox\n      WndBoxIn( ::hDC, 0, 0, ::nBottom-::nTop, ::nRight-::nLeft )\n      WndBoxRaised( ::hDC, 1, 1, ::nBottom-::nTop-1, ::nRight-::nLeft-1 )\n   endif\n\n   ::ReleaseDC()\n\n   if ::lTransparent\n      SysRefresh()\n   endif\n\nreturn nil\n\n\n\nGrato \n\nAoki','',0,'','15f8e82z',1,0,'',694,0,0),(38388,2327,6,221,0,'190.78.48.82',1190751837,1,0,1,1,1,1,'','','yo tengo solo una pregunta y a riesgo de padecer pedante no lo es, solo que me de una razon, porque si yo hablo español, hago mis preguntas en el foro español, porque los amigos do brasil no hacen sus pregunta en portuguese en el foro portuguese, porque total, uno ni entiende que pregunta, osea, me pregunto, es como si me pusiera yo a preguntar en el foro en italiano, disculpe si alguien le pueda caer mal esta inquietud','',0,'','1qar1t00',1,0,'',221,0,0),(38389,2327,6,362,0,'200.158.19.112',1190752455,1,0,1,1,1,1,'','','[quote=&quot;QAZWSX2K&quot;:76gin2wq]yo tengo solo una pregunta y a riesgo de padecer pedante no lo es, solo que me de una razon, porque si yo hablo español, hago mis preguntas en el foro español, porque los amigos do brasil no hacen sus pregunta en portuguese en el foro portuguese, porque total, uno ni entiende que pregunta, osea, me pregunto, es como si me pusiera yo a preguntar en el foro en italiano, disculpe si alguien le pueda caer mal esta inquietud[/quote:76gin2wq]\n\njejejejeje.\n\nLas veces, el nivel de las personas de este foro és major, que de las personas del Brasil. Creo, que és tu caso.  No te custa dividir un poco, custa?\n\nY acá, está el major de todos:  ANTONIO LINARES, creador del MARABILLOSO FIVEWIN the best!\n\nRegards, saludos.  jejejejejejeje.','',0,'gA==','76gin2wq',1,0,'',362,0,0),(38390,8291,6,53,0,'189.139.97.28',1190754517,1,0,1,1,1,1,'','Otra sobre MySql','Amigos:\n\nContinuando con MySql ahora me surge otras preguntas, para variar jejeje, y es la siguiente, ¿Que tan recomendable es utilzar la integridad referencial  de MySql ?, será imprescindible utilizarlo ?\n\nGracias por sus aportes','',0,'gA==','272b1bfv',1,0,'',53,0,0),(38391,8290,2,534,0,'85.60.19.55',1190755928,1,0,1,1,1,0,'','','gracias , pero y las otras propiedades referente a la forma en que se representa la pantalla , el codigo\n\n  DEFINE DIALOG oDlg FROM nTop, nLeft to  nBottom, nRight TITLE ctitle  pixel  desde codigo\n            \ny lo que busco es el siquiente\n\n\n define dialog ODLG resource resdial title ctitle    ; \nstyle nor (WS_VISIBLE ,WS_CLIPSIBLINGS) \n      \ncomo se debe aplicar los style a los dialogos generados desde recursos\npara poder cambiar de stylo y ponerlo distinto al definido en la rc\ngracias que me enrollo como una perciana\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','11nkeboq',1,0,'',534,0,0),(38392,8292,6,1072,0,'190.82.35.219',1190757702,1,0,1,1,1,0,'','Ayuda Urgente','Hola Foro:\n\nTengo un problema, en mi sistema tengo un RC, pero perdi la DLL original.\n\n. Puedo Generar la Dll desde mi RC?\n\nUso : Fwh 701, Xharbour 99.71, Workshop\n\nSaludos,\nAntonio.','',0,'gA==','3754obwp',1,0,'',1072,0,0),(38393,8292,6,103,0,'189.43.121.190',1190759232,1,0,1,1,1,1,'','','Hola Antonio,\n\n    Claro que si. Puedes abrir el RC con el Workshop y despues grabarlo como DLL sin problemas.\n\nSaludos,','',0,'gA==','3bttdxpa',1,0,'',103,0,0),(38394,8292,6,1072,0,'190.82.35.219',1190760923,1,0,1,1,1,0,'','Re: Ayuda Urgente','Kleyber:\n\nMuchas Gracias Amigo.\n\nSaludos,\nAntonio\n\n\n\n[quote=&quot;mantonio_08&quot;:3gkg9nw7]Hola Foro:\n\nTengo un problema, en mi sistema tengo un RC, pero perdi la DLL original.\n\n. Puedo Generar la Dll desde mi RC?\n\nUso : Fwh 701, Xharbour 99.71, Workshop\n\nSaludos,\nAntonio.[/quote:3gkg9nw7]','',0,'gA==','3gkg9nw7',1,0,'',1072,0,0),(38395,8293,6,582,0,'190.138.25.247',1190767832,1,0,1,1,1,0,'','MySql - TMySql','A ver si alguno de Uds. me puede dar una mano =&gt;))\nYa baje de las contribuciones de xHarbour la TMySql.\nDespues de mucho penar para compilarla por problemas con xHarbour (Unrecoverable Error 9000 \n\"Activex.prg\" was compiled by older version, PCODE version 7 is longer supported, please recompile. ) Digo de paso que habitualmente trabjo con Harbour. Bueno sigo, cuando logro generar la Lib, quiero compilar un test y me tira estos errores:\nError: Unresolved external \'mysql_init\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_real_connect\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_close\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_select_db\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_query\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_store_result\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_fetch_lengths\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_data_seek\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_fetch_field\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_field_seek\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_num_fields\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_field_count\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_list_fields\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_error\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_errno\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_list_dbs\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_list_tables\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_num_rows\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_fetch_row\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_free_result\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_affected_rows\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_get_host_info\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_get_server_info\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_real_escape_string\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\nError: Unresolved external \'mysql_escape_string\' referenced from C:\\ZSYS\\LIBXH32\\MYSQL.LIB|mysql\n\nYa me fije y compila todos lo modulos bien al generar la lib. \nYa no se para que lado disparar.\nAlguna alma caricativa que me pueda dar una pista o por lo menos si me manda la lib ya generada que le funcione para probar.\nDesde ya muchisimas gracias.\n\nUn abrazo. El Loco =&gt;))[/quote]','',0,'','3ek7exoj',1,0,'',582,0,0),(38396,8278,6,854,0,'189.131.130.179',1190769096,1,0,1,1,1,0,'','','Karina, prueba cambiandole el tipo de letra al Dialogo, yo le pongo TAHOMA 10','',0,'','3cuoafu0',1,0,'',854,0,0),(38397,8294,3,1151,0,'203.173.220.147',1190777190,1,0,1,1,1,0,'','Initial \'utilities\' Window showing','Has anyone encounted these two problems with the\nlatest FWH - compiled with the supplied xHarbour.\n\nFirst : When running a program that opens an MDI window\nit creates an initial \'utilities\' window before running the program.\nIf you run the example I can see this as a black\n background window with a car icon.\n\nSecondly : The icons of all child windows take on the initial child windows icon.\nAgain If you run the example each child window should show its own\n icon - they all show a printer on my computers.\n\nI can post a jpg of the problem if someone could tell me a URL where\n I could post it.\n\nThe example is compiled on W2K off an W2003 Server.\nThe application I\'m working on is to be run on W2K W2003S and XP,\nall of which show the same problem, so its to do with the FWH or xH versions.\nBoth FWH and xH have been downloaded from FW today.\n\nThanks <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->\n\n[code:1gutpchk]// From Testmdi6&#46;prg\n//#DEFINE FW_LEAN_AND_MEAN\n#INCLUDE &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd, oChild4\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;cTestDir,cDrv&#41;\n\n   local oChild1, oChild2, oChild3\n   local oBar\n   local oWnd0Icon, oWnd1Icon, oWnd2Icon, oWnd3Icon                       // Test window icons\n\n   DEFINE ICON oWnd0Icon RESOURCE &quot;CAR&quot;                                   // Test window icons\n   DEFINE ICON oWnd1Icon RESOURCE &quot;PRINTER&quot;                               // Test window icons\n   DEFINE ICON oWnd2Icon RESOURCE &quot;TASK&quot;                                  // Test window icons\n   DEFINE ICON oWnd3Icon RESOURCE &quot;TRASH&quot;                                 // Test window icons\n\n   DEFINE WINDOW oWnd TITLE &quot;Controlling MDI menus&quot; MDI // ICON oWnd0Icon // Test window icons\n\n   DEFINE WINDOW oChild1 MDICHILD TITLE &quot;First  Child&quot; ;\n      MENU BuildMenu1&#40;&#41; MENUINFO 3 ICON oWnd1Icon                         // Test window icons\n\n   ACTIVATE WINDOW oChild1\n\n   DEFINE WINDOW oChild2 MDICHILD TITLE &quot;Second Child&quot; ; // No Menu for this\n      ICON oWnd2Icon                                                      // Test window icons\n   ACTIVATE WINDOW oChild2 ON PAINT oChild2&#58;oIcon&#58;=oWnd2Icon\n\n   DEFINE WINDOW oChild3 MDICHILD TITLE &quot;Third  Child&quot; ;\n      MENU BuildMenu3&#40;&#41; MENUINFO 2 ICON oWnd3Icon                         // Test window icons\n   ACTIVATE WINDOW oChild3\n\n   DEFINE BUTTONBAR oBar OF oWnd\n\n   DEFINE BUTTON OF oBar ACTION oChild1&#58;SetFocus&#40;&#41;\n   DEFINE BUTTON OF oBar ACTION oChild2&#58;SetFocus&#40;&#41;\n   DEFINE BUTTON OF oBar ACTION oChild3&#58;SetFocus&#40;&#41;\n\n   DEFINE BUTTON OF oBar GROUP ACTION NewChild&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu1&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;First&quot;\n      MENUITEM &quot;Child Menu&quot;\n      MENUITEM &quot;A SubMenu&quot;\n      MENU\n         MENUITEM &quot;I am&quot;\n         MENUITEM &quot;The first&quot;    ACTION MsgInfo&#40; &quot;first child&quot; &#41;\n         MENUITEM &quot;Child Window&quot;\n         MENUITEM &quot;Menu&quot;\n      ENDMENU\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu3&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;Third&quot;\n      MENUITEM &quot;Report Info&quot;\n      MENU\n         MENUITEM &quot;Child windows info here&quot;\n      ENDMENU\n\n      MENUITEM &quot;A SubMenu&quot;\n      MENU\n         MENUITEM &quot;I am&quot;\n         MENUITEM &quot;The third&quot;      ACTION MsgInfo&#40; &quot;Third child&quot; &#41;\n         MENUITEM &quot;Child Window&quot;\n         MENUITEM &quot;Menu&quot;\n      ENDMENU\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction NewChild&#40;&#41;\n\n   DEFINE WINDOW oChild4 MDICHILD TITLE &quot;First  Child&quot; MENU BuildMenu1&#40;&#41;\n\n   ACTIVATE WINDOW oChild4\n\nreturn nil\n\n//----------------------------------------------------------------------------//[/code:1gutpchk]','',0,'AIA=','1gutpchk',1,0,'',1151,0,0),(38398,8295,3,904,0,'196.25.255.250',1190777596,1,0,1,1,1,1,'','Print Setup','My users find it strange that they have to select a Printer when all they want to do is Preview first (That is complicated by the fact that the Select Printer Dialog box actually says \"Print\")\n\nI have to make the user \"Select a Printer\" before the preview, because in the preview screen there is no option to \"Select a Printer\"\n\nIs there a way around this? i.e. Show the previewed Output and then let the user select a printer, change properties etc. and then print.','',0,'AIA=','1p0p3uff',1,0,'',904,0,0),(38399,8293,6,54,0,'189.132.114.73',1190781091,1,0,1,1,1,1,'','Re: MySql - TMySql','Loco,\n\ntienes que aplicar lo siguiente.\n\nubicar la libmysql.dll\naplicar: implib libmysql.lib libmysql.dll\ny esa lib resultante, incluirla en tu proyecto.\n\npor otro lado, la dll libmysql.dll debe de estar en la misma carpeta de tu EXE\n\nespero te sirva','',0,'AIA=','3j49unmi',1,0,'',54,0,0),(38400,8295,3,2,0,'87.218.146.157',1190787812,1,0,1,1,1,1,'','','Ollie,\n\nIf you do:\n[code:2cbq4j2u]\nPRINT oPrn PREVIEW\n   PAGE\n      oPrn&#58;Say&#40; 2, 2, &quot;Hello&quot; &#41;\n   ENDPAGE\nENDPRINT\n[/code:2cbq4j2u]\nthen the preview will be shown and no request to select a printer will be done, as FWH will use the default selected printer','',0,'AIA=','2cbq4j2u',1,0,'',2,0,0),(38401,8296,6,18,0,'189.143.73.190',1190787822,1,0,1,1,1,1,'','TSMTP : Envio de correo con dominio diferente','Hola amigos :\n\nUsando la clase TSmtp de Luis Krause , sucede que cuando hago el envio a una cuenta de correo con un dominio diferente a la cuenta del remitente, el correo no sale.\n\nPor ejemplo si la cuenta del remitente es <!-- e --><a href=\"mailto:victor@listoelpollo.com\">victor@listoelpollo.com</a><!-- e --> y quiero enviar un email a <!-- e --><a href=\"mailto:vikthor@fivewin.com\">vikthor@fivewin.com</a><!-- e --> ... el envio es rechazado.\n\nSaludos','',0,'AIA=','2afluy23',1,0,'',18,0,0),(38402,8297,6,18,0,'189.143.73.190',1190787954,1,0,1,1,1,1,'','Datas de un Objeto','Alguien me puede decir cual es la función que me puede mostrar las Datas que tenga un objeto.\n\nSaludos','',0,'AIA=','qk8vl966',1,0,'',18,0,0),(38403,8296,6,2,0,'87.218.146.157',1190787965,1,0,1,1,1,1,'','','Vikthor,\n\nHas comprobado que la cuenta de correo del destinatario exista realmente ?','',0,'AIA=','2b4w10hg',1,0,'',2,0,0),(38404,8296,6,18,0,'189.143.73.190',1190788169,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;]Vikthor,\n\nHas comprobado que la cuenta de correo del destinatario exista realmente ?[/quote\n\nSi, las pruebas las estoy haciendo con 2 cuentas propias. \nUna del dominio de la empresa donde trabajo y la otra es mi cuenta de hotmail','',0,'','1pgcc4tm',1,0,'',18,0,0),(38405,8296,6,18,0,'189.143.73.190',1190788371,1,0,1,1,1,1,'','','Revisando el archivo log. el servidor me contesta de la siguiente manera.\n[code:3cqaoazd]\n26/09/2007 00&#58;40&#58;51&#58; Read   	Socket handle&#58;       256	WSA Error&#58;         0	\n26/09/2007 00&#58;40&#58;51&#58; 550 5&#46;7&#46;1 Unable to relay for vykthor@hotmail&#46;com\n[/code:3cqaoazd]','',0,'AIA=','3cqaoazd',1,0,'',18,0,0),(38406,8297,6,2,0,'87.218.146.157',1190788568,1,0,1,1,1,1,'','','Vikthor,\n\nAqui tienes un ejemplo:\n[code:2r1psjnk]\nfunction Main&#40;&#41;\n\n   local o &#58;= ErrorNew&#40;&#41; // Vamos a ver las DATAs de un objeto error\n   local aInfo &#58;= o&#58;ClassSel&#40;&#41;\n  \n   for n = 1 to Len&#40; aInfo &#41;\n      if Left&#40; aInfo&#91; n &#93;, 1 &#41; == &quot;_&quot;\n         MsgInfo&#40; SubStr&#40; aInfo&#91; n &#93;, 2 &#41; &#41;\n      endif\n   next      \n\nreturn nil \n[/code:2r1psjnk]','',0,'AIA=','2r1psjnk',1,0,'',2,0,0),(38407,8296,6,2,0,'87.218.146.157',1190788731,1,0,1,1,1,1,'','','revisa esto:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.chilkatsoft.com/faq/Smtp550.html\">http://www.chilkatsoft.com/faq/Smtp550.html</a><!-- m -->','',0,'AIA=','3f3le59m',1,0,'',2,0,0),(38408,2327,6,2,0,'87.218.146.157',1190788934,1,0,1,1,1,1,'','','Rossine,\n\nPero entonces no dibujas el SAY si esta deshabilitado ?','',0,'AIA=','36rm0szm',1,0,'',2,0,0),(38409,8297,6,18,0,'189.143.73.190',1190789066,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3nxbbhmb]Vikthor,\n\nAqui tienes un ejemplo:\n[code:3nxbbhmb]\nfunction Main&#40;&#41;\n\n   local o &#58;= ErrorNew&#40;&#41; // Vamos a ver las DATAs de un objeto error\n   local aInfo &#58;= o&#58;ClassSel&#40;&#41;\n  \n   for n = 1 to Len&#40; aInfo &#41;\n      if Left&#40; aInfo&#91; n &#93;, 1 &#41; == &quot;_&quot;\n         MsgInfo&#40; SubStr&#40; aInfo&#91; n &#93;, 2 &#41; &#41;\n      endif\n   next      \n\nreturn nil \n[/code:3nxbbhmb][/quote:3nxbbhmb]\n\nGracias Antonio, la pruebo','',0,'gIA=','3nxbbhmb',1,0,'',18,0,0),(38410,8290,2,2,0,'87.218.146.157',1190789148,1,0,1,1,1,1,'','','Los estilos no se pueden cambiar en tiempo de ejecución. Windows no lo permite.\n\nLa única solución es volver a crear el diálogo con el estilo distinto. Una alternativa es crear un diálogo sin controles y \"pasar\" los controles de un diálogo al otro usando la función SetParent()\n\nBusca en estos foros por SetParent() y encontrarás varios ejemplos','',0,'gIA=','2cbqs6xy',1,0,'',2,0,0),(38411,8294,3,2,0,'87.218.146.157',1190789297,1,0,1,1,1,1,'','','Jonathan,\n\nYou have to link GTGUI.LIB instead of GTWIN.LIB','',0,'gIA=','5x1lvcom',1,0,'',2,0,0),(38412,8294,3,2,0,'87.218.146.157',1190789376,1,0,1,1,1,1,'','','&gt; I can post a jpg of the problem if someone could tell me a URL where \nI could post it. \n\n<!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> \n\nupload your image there and copy here the resulting picture url','',0,'gIA=','l6r2gu6x',1,0,'',2,0,0),(38413,8296,6,18,0,'189.143.73.190',1190789842,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1u4f3yk2]revisa esto:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.chilkatsoft.com/faq/Smtp550.html\">http://www.chilkatsoft.com/faq/Smtp550.html</a><!-- m -->[/quote:1u4f3yk2]\n\nOk, gracias , ya leí las causas, configuro el servidor exchange y listo.\n\nSin embargo, si se hace una distribucion a terceros de mi aplicacion , este es un pequeño poblema.\n\nAlguna otra sugerencia que me permita hacer envios a cuentas de correo, sin pasar por este detalle ?','',0,'gA==','1u4f3yk2',1,0,'',18,0,0),(38414,8257,3,130,0,'141.51.32.24',1190792121,1,0,1,1,1,1,'','','Hi all,\n\nthanks for your interest, I will compile a demo and send it this afternoon','',0,'gA==','3j6k6m67',1,0,'',130,0,0),(38415,8274,18,1146,0,'87.223.165.162',1190792656,1,0,1,1,1,0,'','','Antonio,\n\nLo que quiero es que funcione como TOOLTIP de BTNBMP, que NO requiere poner una STATUS bar. ¿Cómo se hace?.\n\nMuchas gracias.','',0,'gA==','tsfufmbk',1,0,'',1146,0,0),(38416,8296,6,2,0,'87.218.146.157',1190792817,1,0,1,1,1,1,'','','Vikthor,\n\nSe me ocurre que te dirijas directamente al servidor de correo del receptor, sin pasar por tu servidor de correo','',0,'gA==','4l2zoh8j',1,0,'',2,0,0),(38417,8274,18,2,0,'87.218.146.157',1190792936,1,0,1,1,1,1,'','','Moises,\n\n[code:3guxhgod]\n   @ 4, 2 BUTTONBMP oBtnBmp OF oWnd ACTION MsgInfo&#40; &quot;XP themes aware Button Bitmaps&quot; &#41; ;\n      BITMAP &quot;&#46;&#46;\\bitmaps\\16x16\\garrow&#46;bmp&quot; PROMPT &quot;Test&quot; TEXTRIGHT SIZE 80, 25 ;\n      MESSAGE &quot;From source code&quot;\n      \n   oBtnBmp&#58;cToolTip = &quot;Tooltip text&quot;   \n[/code:3guxhgod]','',0,'AIA=','3guxhgod',1,0,'',2,0,0),(38418,8257,3,130,0,'141.51.32.24',1190802307,1,0,1,1,1,1,'','','Ok, done !\n\nRichard,\n\nI sent the demo to <!-- e --><a href=\"mailto:contact@cbati.com\">contact@cbati.com</a><!-- e -->, was that right ?','',0,'AIA=','7tgvm0u5',1,0,'',130,0,0),(38419,8298,6,967,0,'84.127.225.17',1190807171,1,0,1,1,1,0,'','Uso de DBSETFILTER y SET FILTER con variables.','Intentando sustituir un filtro construido por SET FILTER por uno hecho con DBSETFILTER, me he encontrado con un error que no soy capaz de solventar. Os adjunto un codigo de \"ejemplo\".\n\n[code:2ve3kg7s]LOCAL cCadena&#58;=&quot;MANUEL&quot;\n\nSET FILTER TO AT&#40;cCadena, _FIELD-&gt;NOMBRE&#41; &gt; 0\n//Este filtro, funciona perfectamente&#46;[/code:2ve3kg7s]\n\nAhora supongamos, que en vez de usar este código, usamos este otro:\n\n[code:2ve3kg7s]LOCAL cCadena&#58;=&quot;MANUEL&quot;\nLOCAL cFiltro, bFiltro\n\ncFiltro&#58;=&quot;AT&#40;cCadena, _FIELD-&gt;NOMBRE&#41; &gt; 0&quot;\nbFiltro&#58;=&quot;&#123;||&quot;+cFiltro+&quot;&#125;&quot;\nDBSETFILTER&#40;&amp;bFiltro, cFiltro&#41;[/code:2ve3kg7s]\n\nSi lo hago así, recibo un error en tiempo de ejecución que me señala que DBSETFILTER no reconoce la variable cCadena, pero en cambio el SET FILTER si.\n\nHe intentado mandarla como \'parametro\' al codeblock: [code:2ve3kg7s]bFiltro&#58;=&quot;&#123;|cCadena|&quot;+cFiltro+&quot;&#125;&quot;[/code:2ve3kg7s]. Tampoco funciona así.\n\n¿Como puedo hacer para que DBSETFILTER me reconozca la variable local? Curioso es que este trozo de código tampoco funciona.\n[code:2ve3kg7s]\nSET FILTER TO AT&#40;cCadena, _FIELD-&gt;NOMBRE&#41; &gt; 0 //Establezco el filtro\ncFiltro&#58;=DBFILTER&#40;&#41; //Lo envio a una cadena de caracteres\nDBCLEARFILTER&#40;&#41; //Elimino filtros activos\nbFiltro&#58;=&quot;&#123;||&quot;+cFiltro+&quot;&#125;&quot; \nDBSETFILTER&#40;&amp;bFiltro, cFiltro&#41; //Lo asigno&#46;&#46;&#46;[/code:2ve3kg7s]\n\nProvoca el mismo error en tiempo de ejecución. ¿Alguna sugerencia? Gracias de antemano.','',0,'AIA=','2ve3kg7s',1,0,'',967,0,0),(38420,8257,3,3,0,'80.81.159.19',1190807751,1,0,1,1,1,1,'','','Stefan,\n\ni will get it through this email also.\n\nMy mail is <!-- e --><a href=\"mailto:richard@cbati.com\">richard@cbati.com</a><!-- e -->\n\nThanks for your interest\n\nRichard','',0,'AIA=','21xz30ve',1,0,'',3,0,0),(38421,8278,6,362,0,'200.158.19.181',1190809283,1,0,1,1,1,1,'','','[quote=&quot;Vital&quot;:12cyid7s]Karina, prueba cambiandole el tipo de letra al Dialogo, yo le pongo TAHOMA 10[/quote:12cyid7s]\n\n\nGracias VITAL, és lo que hago. Creo, no és Posible retorno con: ****.\n\nMuchas gracias.\n\nRegards, saludos.','',0,'gA==','12cyid7s',1,0,'',362,0,0),(38422,2327,6,362,0,'200.158.19.181',1190809981,1,0,1,1,1,1,'','','Rossine Friend, Puedes Colocar una imagen? No tengo este erro.','',0,'gA==','sdiqotbz',1,0,'',362,0,0),(38423,8298,6,221,0,'190.78.48.82',1190810126,1,0,1,1,1,1,'','','HAS PROBADO\n\ncFiltro:=\"AT(&amp;cCadena, _FIELD-&gt;NOMBRE) &gt; 0\"','',0,'gA==','23kkhkqu',1,0,'',221,0,0),(38424,8298,6,967,0,'84.127.225.17',1190810837,1,0,1,1,1,0,'','','Si. De hecho fue lo primero que probe. Provoca el mismo error en tiempo de ejecución. DBSETFILTER no es capaz de reconocer la variable local si se le manda via &amp; como si se le envia via @. \n\nHe encontrado una solución drástica para este problema, que me he ha dado mas de tres o cuatro horas de quebraderos de cabeza hasta que por fin, he encontrado el como, pero estoy seguro de que hay alguna manera de que el codeblock reconozca una variable pasandosela como parametro... He aqui el codigo:\n\n[code:21kbnmnh]LOCAL cCadena&#58;=&quot;Manuel&quot;\nLOCAL cFiltro, bFiltro\n\ncFiltro&#58;=&quot;&#40;AT&#40;&quot;+CHR&#40;34&#41;+cCadena+CHR&#40;34&#41;+&quot;,UPPER&#40;_FIELD-&gt;NOMBRE&#41;&#41; &gt; 0&quot;\nbFiltro&#58;=&quot;&#123;||&quot;+cFiltro+&quot;&#125;&quot;\nDBSETFILTER&#40;&amp;bFiltro,cFiltro&#41;[/code:21kbnmnh]\n\nOjo al dato. Consiste en hacerle pasar a DBSETFILTER los datos \'digeridos\'. Lo tedioso del asunto es que hay que pasarle las comillas via CHR (caracter 34) cerrando y abriendo la cadena. Con esto se consigue sustituir la variable por su valor real. No es lo mas optimo, y si alguno de ustedes sabe como hacer para que el codeblock de DBSETFILTER me reconozca la variable, me haría un gran favor.','',0,'AIA=','21kbnmnh',1,0,'',967,0,0),(38425,8298,6,36,0,'164.77.81.210',1190812818,1,0,1,1,1,1,'','','[code:366ixead]dbSetFilter&#40; &#123;|| AT&#40;cCadena, _FIELD-&gt;NOMBRE&#41; &gt; 0&#125;, &quot;AT&#40;cCadena, _FIELD-&gt;NOMBRE&#41; &gt; 0&quot; &#41;[/code:366ixead]\n\nnota:\n\nLo puedes hacer tambien utilizando la opcion del compilador /p\n\neste te va generar un archivo.ppo\n\n[b:366ixead]o sea si colocas SET FILTER TO AT(cCadena, _FIELD-&gt;NOMBRE) &gt; 0\nel archivo .ppo te lo va traducir\ndbSetFilter( {|| AT(cCadena, _FIELD-&gt;NOMBRE) &gt; 0}, \"AT(cCadena, _FIELD-&gt;NOMBRE) &gt; 0\" )\n[/b:366ixead]\nsaludos','',0,'QIA=','366ixead',1,0,'',36,0,0),(38426,8257,3,35,0,'167.7.140.254',1190812879,1,0,1,1,1,0,'','','Please include me as well in the demo ..\n\nRick Lipkin\nSC Dept of Health, USA\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'QIA=','3men3rsp',1,0,'',35,0,0),(38427,8295,3,35,0,'167.7.140.254',1190813101,1,0,1,1,1,0,'','','Antonio\n\nI think what Ollie is asking is that the only time we get a chance to get the printers is before the preview is run .. \n\nIt would be nice ( if possible ) that there could be a getprinters dialog in rpreview and another icon added to the preview tool bar to chose the printer after the output has gone to preview.\n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'QIA=','1ei9nm6x',1,0,'',35,0,0),(38428,8298,6,316,0,'213.97.245.163',1190815451,1,0,1,1,1,0,'','','[quote=&quot;new_indika&quot;:174yn2k7]Si. De hecho fue lo primero que probe. Provoca el mismo error en tiempo de ejecución. DBSETFILTER no es capaz de reconocer la variable local si se le manda via &amp; como si se le envia via @. \n\nHe encontrado una solución drástica para este problema, que me he ha dado mas de tres o cuatro horas de quebraderos de cabeza hasta que por fin, he encontrado el como, pero estoy seguro de que hay alguna manera de que el codeblock reconozca una variable pasandosela como parametro... He aqui el codigo:\n\n[code:174yn2k7]LOCAL cCadena&#58;=&quot;Manuel&quot;\nLOCAL cFiltro, bFiltro\n\ncFiltro&#58;=&quot;&#40;AT&#40;&quot;+CHR&#40;34&#41;+cCadena+CHR&#40;34&#41;+&quot;,UPPER&#40;_FIELD-&gt;NOMBRE&#41;&#41; &gt; 0&quot;\nbFiltro&#58;=&quot;&#123;||&quot;+cFiltro+&quot;&#125;&quot;\nDBSETFILTER&#40;&amp;bFiltro,cFiltro&#41;[/code:174yn2k7]\n\nOjo al dato. Consiste en hacerle pasar a DBSETFILTER los datos \'digeridos\'. Lo tedioso del asunto es que hay que pasarle las comillas via CHR (caracter 34) cerrando y abriendo la cadena. Con esto se consigue sustituir la variable por su valor real. No es lo mas optimo, y si alguno de ustedes sabe como hacer para que el codeblock de DBSETFILTER me reconozca la variable, me haría un gran favor.[/quote:174yn2k7]\n\nEl problema es que las variables locales no pueden ser usadas en expresiones dinámicas, digamos de manera simplificada que el compilador no guarda el nombre.\n\nSi cambias Local cCadena por Private cCadena te funcionará bien, porque las privates se crean en runtime por lo tanto se las puede invocar por nombre. Obviamente son mucho mas lentas.\n\nYo preferiría usar la opción de armar la expresión entre comillas, la evaluación es más rápida porque no tiene que resolver el nombre de ninguna variable.\nY para optimizar un poquito más, en lugar de usar la función AT() puedes usar el operador $ como en:\ncFiltro:= CHR(34)+cCadena+CHR(34)+\" $ UPPER(_FIELD-&gt;NOMBRE)\"\no Bien :\n\nSet Filter to \"Manuel\"$Upper( _Field-&gt;Nombre)\n\nSaludos,\n\nCarlos','',0,'gIA=','174yn2k7',1,0,'',316,0,0),(38429,8295,3,138,0,'200.24.40.34',1190815493,1,0,1,1,1,1,'','','I think it could be difficult because the metrics for the preview are taken from the current default printer driver.\n\nTo choose the printer AFTER the preview is shown, you need an \"independent\" device, which is difficult to implement since you need basic metrics for the printing calculations\n\nThe easy way would be to REBUILD the report once showed in the preview, I mean, you add the printer choose dialog from the preview, and then you will build the report again WITHOUT previewing and send it right to the printer','',0,'gIA=','3idp3oit',1,0,'',138,0,0),(38430,8298,6,92,0,'81.38.205.83',1190815837,1,0,1,1,1,0,'','','[quote=&quot;QAZWSX2K&quot;:2cpvlxn6]HAS PROBADO\n\ncFiltro:=\"AT(&amp;cCadena, _FIELD-&gt;NOMBRE) &gt; 0\"[/quote:2cpvlxn6]\n\nMejor aún,\n\ncFiltro:=\"AT(\" + cCadena + \", _FIELD-&gt;NOMBRE) &gt; 0\"\n\nSaludos\nCarlos G.','',0,'gA==','2cpvlxn6',1,0,'',92,0,0),(38431,8296,6,316,0,'213.97.245.163',1190816126,1,0,1,1,1,0,'','','Victor,\n\nlos servidores de correo suelen autenticar el emisor, asegurándose que no envían correo para cuentas que no son del propio dominio, porque si no lo hacen los spammers los usan para hacer de las suyas. \nEn tu software asegúrate de poder configurar la cuenta y el servidor. En una de las aplicaciones que mantengo envío archivos adjuntos por mail, y siempre hay algun problema, incluyendo los programas antivirus que despliegan ventanas avisando que un programa está tratando de enviar correo y esas historias.\nUltimamente el método que me ha resultado más sencillo ha sido usar MAPI, que además de usar la configuración del usuario por defecto deja una copia de lo que se envía en \'Elementos Enviados\'.\n\nUn saludo,\n\nCarlos.','',0,'gA==','184d9smn',1,0,'',316,0,0),(38432,8293,6,582,0,'190.138.25.247',1190816765,1,0,1,1,1,0,'','Re: MySql - TMySql','wmormar\nMil gracias pude compilar perfectamente.\nAhora la libmysql.dll a la que te referis es la que se encuentra en el directorio de MySql \\Lib\\Opc verdad?\n\n\nUn abrazo. El Loco =&gt;))\ny nuevamente gracias.','',0,'gA==','1gefijfu',1,0,'',582,0,0),(38433,8296,6,18,0,'200.67.188.236',1190816793,1,0,1,1,1,1,'','','Carlos :\n\nGracias por la respuesta, serías tan amable de publicar un sencillo ejemplo del uso de MAPI','',0,'gA==','2580glh1',1,0,'',18,0,0),(38434,8299,3,167,0,'207.119.126.13',1190817713,1,0,1,1,1,1,'','calldll vs calldll32','I\'m having varied results using dll and dll32 processing with FWH 7.09 and xharbour 99.71\n\n- gpf\'s are occuring under various circumstances.  Using xharour 99.5 - no problem.\n\nquestion - what\'s the reason I would choose calldd or calldll32 for dynamically calling an external dll.\n\nAren\'t all dll\'s 32-bits these days?  \n\nMy mystery is, if I use getprocaddress(), loadlibrary(), freelibrary(), calldll() I have successful results with xharbour 99.51 and fwh 2006\n\nusing xharbour 99.71 and fwh 7.09, gpf occurs with getproc32() and I never get to the calldll32.\n\nIf I use the \"old\" calldll conventions, most calls work in 99.71 but not all - this was not a problem with 99.51.\n\nIf I use the calldll32 conventions, I get gpf on getproc32()\n\nAnybody else having varied results in calling dll\'s between these versions of fivewin and xharbour?','',0,'gA==','2f06nmo2',1,0,'',167,0,0),(38435,8295,3,303,0,'72.220.100.171',1190819672,1,0,1,1,1,0,'','','Rene is right, the preview is a preview of what the report will look like on a specific print device, and then when you wish to print to a different device, you need to rebuild the report. If you change the print device after the preview, this may have the undesirable side effect of the actual printed report not being exactly the same as the preview. The user will, of course, blame the program.\n\nA better option is to provide the standard File-Printer Setup on the menu and also display the current printer name on the message bar. It can also be displayed on the print button tooltip. This way the user can easily see what the application\'s currently selected printer is. They will learn to select a printer before generating a preview.\n\nI don\'t recommend asking the user to select a printer before each report. This is tedious for the user. The program should make some basic assumptions based on probability. What is the probability that the user doesn\'t want to use the current printer? Better yet, what is the probabilty that the user doesn\'t want to use the printer that they just used last time? An even smarter program would keep track of which printers each user uses for each report, then assume they want to use the same one next time. A really smart program would keep track of which printer was used the last ten times. If the user printed to printer A nine times then to printer B on the tenth time, which printer is the user most likely to use on the 11th time?\n\nProbability is not the same as possibility. Just because a user MIGHT want to do something doesn\'t mean that it is likely. When the user prints to the same printer 9 out of 10 times, asking the user which printer they want every time they print is not a good interface design. Maybe you could ask them the first 5 or 10 times, then after that always make an assumption based on probability and not ask anymore.\n\nLess is more. No matter how great you think your interface is, less of it would be better.\n\nJames','',0,'gA==','23b9jchz',1,0,'',303,0,0),(38436,8300,6,176,0,'201.255.171.35',1190819730,1,0,1,1,1,0,'','color de celda al inicio de un browse','Como puedo deshabilitar el color de foco   por defecto para que cuando llamo a un browse. Lo que quiero es que sólo pinte las que le indico. El uso es  que en un browse que uso checkbox, cuando marco un item en otro browse me cambia el color de la celdas. \n\nEn el primer browse de check no quiero que aparezca y en el segundo que sólo sea las que pinto\n\nsegundo browse:\n  oBrw3:nClrPane := { || IIF(aBrw3[nAr,9] ,rgb(156,206,132),rgb(255,255,255)) }\noBrw3:nClrBackFocus :=  { || IIF(aBrw3[nAr,9],CLR_CYAN,CLR_HGRAY )}\noBrw3:nClrForeFocus := CLR_WHITE\n\n\nEn el segundo si es la última fila me deja el color por defecto de windows.\n\nGracias\n\nLuis','',0,'','2g4sbnwh',1,0,'',176,0,0),(38437,7330,6,75,0,'80.31.151.107',1190819841,1,0,1,1,1,0,'','Calculadora - Calculator','Os dejo en el siguiente enlace una versión de la calculadora más depurada y documentada.\n\nAdemás, incluye alguna opción adicional solicitada por otros miembros del foro.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?cagz7tgbmxr\">http://www.mediafire.com/?cagz7tgbmxr</a><!-- m -->\n\nSaludos a todos y que les sea de utilidad.','',0,'','140ryuqg',1,0,'',75,0,0),(38438,8301,6,9,0,'85.59.32.98',1190820024,1,0,1,1,1,1,'','EXTENSION APPEND FROM','En un programa, vengo utilizando desde hace tiempo APPEND FROM cNomFichero SDF,  sin ningún tipo de problemas. Pero ahora un cliente me indica que los ficheros que tiene que importar (ficheros bancarios) no tienen extensión. Como por defecto APPEND FROM / _DBDSF coloca la extensión \".txt\", la aplicación da error porque no encuentra el referido fichero (cNOmFichero + \".txt\").- He estado estudiando la instrucción DBSDF de xHarbour y creo que no tiene ninguna opción para que obvie la extensión. \n\n¿Se os ocurre alguna solución, ademas de aconsejarle al cliente que guarde los ficheros con la extensión TXT?\n\nMuchas gracias','',0,'','2subvbwg',1,0,'',9,0,0),(38439,8274,18,1146,0,'87.223.165.162',1190821624,1,0,1,1,1,0,'','','Antonio,\n\n¿Y por qué no modificas la clase para que funcione como BTNBMP, añadiendo el método TOOLTIP, pues lo considero imprescindible, el hecho de que pongas el cursor por encima y diga a qué corresponde el botón?.\n\nUn saludo','',0,'','2b5lss4l',1,0,'',1146,0,0),(38440,8302,6,63,0,'88.0.164.66',1190822094,1,0,1,1,1,0,'','Como saber el nombre del usuario (winuser)','¿Hay alguna función que permita saber el nombre del usuario de Windows?\nGracias\nRafael','',0,'','2p6ronhk',1,0,'',63,0,0),(38441,8302,6,582,0,'190.138.25.247',1190822762,1,0,1,1,1,0,'','Re: Como saber el nombre del usuario (winuser)','[quote=&quot;Rafael Clemente&quot;:2998j64z]¿Hay alguna función que permita saber el nombre del usuario de Windows?\nGracias\nRafael[/quote:2998j64z]\n\nRafael, probaste con WinUser() ?\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','2998j64z',1,0,'',582,0,0),(38442,8303,6,533,0,'80.32.177.143',1190823332,1,0,1,1,1,0,'','Asociar teclas a un xBrowse','Buenas Foro!, tengo este codigo asociado a un xbrowse:\n\n[code:16ol8xez]\nfunction press_on_browse&#40;nKey,self&#41;\n    msginfo&#40;nkey&#41;\n    do case \n        case nkey = VK_F2 &#46;and&#46; &#58;&#58;lInsertButton\n            &#58;&#58;Insert&#40;&#41; \n        case nkey = VK_F3  &#46;and&#46; &#58;&#58;lDeleteButton\n            &#58;&#58;Delete&#40;&#41; \n        case &#40;nkey = VK_F4 &#46;or&#46; nKey = VK_RETURN&#41; &#46;and&#46;  &#58;&#58;lModifyButton\n            &#58;&#58;Modify&#40;&#41; \n        case nkey = VK_F5 &#46;and&#46; &#58;&#58;lSearchButton\n            &#58;&#58;Search&#40;&#41; \n        case nkey = VK_F6 &#46;and&#46; &#58;&#58;lPrintButton\n            &#58;&#58;Print&#40;&#41;\n        case nkey = VK_ESCAPE \n            &#58;&#58;oContainer&#58;End&#40;&#41;\n    end case\nreturn\n[/code:16ol8xez]\n\nMe funciona todo perfectamente menos la tecla ESCAPE, ¿sabeis que puede ser?\n\nMuchas Gracias.','',0,'AIA=','16ol8xez',1,0,'',533,0,0),(38443,8303,6,533,0,'80.32.177.143',1190823438,1,0,1,1,1,0,'','','Se me ha olvidado comentaros que no es problema de VK_ESPAPE, ya que cuando pulso sobre la tecla ESCAPE, no se muestra nada en el msginfo.\n\nSALUDOS','',0,'AIA=','4ggjhn1f',1,0,'',533,0,0),(38444,8302,6,63,0,'88.0.164.66',1190824118,1,0,1,1,1,0,'','','Sí, claro; pero al compilar siempre me da: Error: Unresolved external \'_HB_FUN_WINUSER\'\n\nUtilizo FWH 2.6 con Harbour.  A lo mejor es que en esa versión aún no estaba implementada esa función...\n\nSaludos,\n\nRafael','',0,'AIA=','2bzlhe63',1,0,'',63,0,0),(38445,8301,6,221,0,'190.78.48.82',1190824676,1,0,1,1,1,1,'','','yo lo uso asi y nunca he tenido problema con nombres o extensiones\n\narc1=\"sss.dbf\"\narc2=\"www\"\nuse xxx\nappend from &amp;arc2 \nó\nappend from &amp;arc1\n\n\nalejandro\nvenezuela','',0,'AIA=','2wvy43m8',1,0,'',221,0,0),(38446,8302,6,110,0,'148.168.40.4',1190825091,1,0,1,1,1,1,'','','USERNAME es una variable de entorno de windows, tiene el nombre del usuario en windows, la funcion getenv retorna valores de las variables de entorno de windows\n \n[code:1am0pdmm]\n?getenv&#40;&quot;USERNAME&quot;&#41;\n[/code:1am0pdmm]\n\nprueba y avisa si te sirve <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1am0pdmm',1,0,'',110,0,0),(38447,8080,6,110,0,'148.168.40.4',1190825577,1,0,1,1,1,1,'','','aver por partes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\npor ejemplo en unas de mis app tengo una tabla de cliente, dicha tabla tiene un campo memo en donde se almacena un arreglo que es una tabla de pagos (tabla de amortizacion).\n\nbasicamente DBFCDX y RDD similar deben en teoria almacenar un array y luego al aplicarlo a una var esta variable contiene el array.\n\nejemplo.\n[code:3i2qkl36]\nlocal aDir &#58;= Directory&#40;&quot;*&#46;*&quot;&#41;\nlocal aTbl &#58;= &#123;&#123;&quot;ARREGLO&quot;,&quot;M&quot;,10,00&#125;&#125;\n\ndbcreate&#40;&quot;prueba&#46;dbf&quot;,aTbl,&quot;DBFCDX&quot;&#41;\n\nuse prueba\n\nprueba-&gt;ARREGLO &#58;= aDir\n\naDir &#58;= NIL\n\naDir &#58;= prueba-&gt;ARREGLO\n[/code:3i2qkl36]','',0,'AIA=','3i2qkl36',1,0,'',110,0,0),(38448,8304,3,105,0,'200.72.140.34',1190826178,1,0,1,1,1,1,'','OT : Collection of Icons (70.000 +)','Hi everybody, here you have a collection of Icons (70.000+) found on the web, most of them downloaded from free web resources.\n\nThere are some XP icons too.\n\nEnjoy it, I\'ll leave the file for 24 hours, so you can download it.\n\nIf someone can upload it to a free host, I\'ll be a good idea.\n\n[url:rfeno99t]http&#58;//200&#46;72&#46;140&#46;34/privado/iconos&#46;rar[/url:rfeno99t]  \n\nFrom Chile.\n\nAdolfo','',0,'EA==','rfeno99t',1,0,'',105,0,0),(38449,8305,6,105,0,'200.72.140.34',1190826382,1,0,1,1,1,1,'','OT: Recopilacion de iconos (70.000 + )','Hola a todos..\nAqui les dejo una recopilacion de iconos (70.000 + ) que he realizado desde hace ya un tiempo, todos bajados de sitios web gratis y demases.\n\nIncluyen .ico, .bmp, .ip, .icl, .exe\n\nTambien existe una buena cantidad de iconos XP\n\nLo dejare por un dia o mas, si alguien puede subirlo a un servidor publico, sera bienvenido.\n\n[url:2eo8xyf7]http&#58;//200&#46;72&#46;140&#46;34/privado/iconos&#46;rar[/url:2eo8xyf7]\n\nDesde Chile\nAdolfo[/url]','',0,'EA==','2eo8xyf7',1,0,'',105,0,0),(38450,8299,3,2,0,'87.218.146.157',1190826977,1,0,1,1,1,1,'','','...32 functions names are for 16 bits only. They exist from FW 16 compatibility. You should use the functions without the ...32 suffix.\n\nThe only difference regarding those functions is that previously the DLL was kept opened by mistake, and now it is properly closed. Some DLLs require to kept opened meanwhile you are using them, from one call to another.\n\nThe way to solve it is to previously load the DLL:\n\nlocal hDLL := LoadLibrary( &lt;cDLLName.dll&gt; )\n\n... make your DLL functions calls ...\n\nFreeLibrary( hDLL )\n\nPlease try it this way and you should not get any GPF at all, thanks','',0,'EA==','1l72n7x9',1,0,'',2,0,0),(38451,8257,3,2,0,'87.218.146.157',1190827047,1,0,1,1,1,1,'','','Stefan,\n\nIt may be good idea if you upload it to a public host like rapidshare or similar, in case that you want to share it, before lots of users start requesting it here <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Thanks,','',0,'EA==','10nw77oi',1,0,'',2,0,0),(38452,8274,18,2,0,'87.218.146.157',1190827167,1,0,1,1,1,1,'','','Moises,\n\nFunciona exactamente igual, salvo que no está implementado el usar TOOLTIP en el comando de creación del control. Esto es algo típico en muchos controles de FWH, en donde sólo has de hacer:\n\n&lt;oControl&gt;:cTooTip = cText','',0,'EA==','1b3rgmad',1,0,'',2,0,0),(38453,8303,6,362,0,'200.158.19.181',1190827875,1,0,1,1,1,1,'','','CUAL ÉS LA VERSION DE TU FIVEWIN?\n\nPROBASTES CON bKeyDown()??','',0,'EA==','2g8il44u',1,0,'',362,0,0),(38454,8306,3,234,0,'75.34.217.174',1190827951,1,0,1,1,1,1,'','ActiveX window runs minimized','I am having a problem with the following code. When the window is activated it displays for a brief second then goes to the task bar (minimized); I then need to click the task bar item for the window to reappear. What can I do so the window does not run minimized? I have tried the following with no luck.\n\nACTIVATE WINDOW oWnd2 ON INIT BringWindowToTop( oWnd2:hWnd )\nACTIVATE WINDOW oWnd2 ON INIT ShowWindow( oWnd2, 1)\nACTIVATE WINDOW oWnd2 ON INIT ShowWindow( oWnd2, 5 )\nACTIVATE WINDOW oWnd2 ON INIT ShowWindow( oWnd2, 9)\nACTIVATE WINDOW oWnd2 NORMAL\n\n// Source below...\nMENU oMenu\n     MENUITEM \"&amp;Close\"                        ACTION ( oWnd2:End() )\nENDMENU\n\nDEFINE WINDOW oWnd2 FROM 0, 0 TO 40, 85 MENU oMenu\n\noActiveX = TActiveX():New( oWnd2, \"Shell.Explorer\" )\noWnd2:oClient = oActiveX\noActiveX&#058;Do( \"Navigate2\", cAesdd + cHan )\n\nACTIVATE WINDOW oWnd2 NORMAL\n\nThank you,','',0,'EA==','23e19jbn',1,0,'',234,0,0),(38455,8303,6,533,0,'80.32.177.143',1190828719,1,0,1,1,1,0,'','','Gracias Karina\n\nes la FW 2.8 Octubre de 2006','',0,'EA==','fz3mxtr2',1,0,'',533,0,0),(38456,8303,6,533,0,'80.32.177.143',1190828797,1,0,1,1,1,0,'','','la llamada a press_on_browse la realizo asi:\n\n[code:32vhr5eg]\n &#58;&#58;oBrowse&#58;bKeydown&#58;=&#123;|nkey|press_on_browse&#40;nKey,self&#41;&#125;\n       [/code:32vhr5eg]','',0,'AIA=','32vhr5eg',1,0,'',533,0,0),(38457,8080,6,110,0,'148.168.40.4',1190829071,1,0,1,1,1,1,'','','Continuando el caso es que no me funciono de esta manera por que algo habia en ese entonces que fallaba en el rdd.\n\npor lo que tube que hacer uso de dos funciones de xharbour que pasara el contenido del arreglo a texto y luego que una vez recuperado el texto lo trasnformara en array.\n\ncomo estoy alejado de mi codigo hoy, y la verdad me acuerdo poco, creo recordar que hb_valtoprg pasa el valor del array a texto que se almcena facilmente a un campo memo y una funcion hb_arrayexec o algo asi que pasa un texto a un array nuevamente.\n\nen esto ultimo habria que investigar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> de cualquier forma mañana puedo postear el codigo que utilizo.\n\nme informas como avanzas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'AIA=','361xv5jm',1,0,'',110,0,0),(38458,8271,3,261,0,'63.197.46.139',1190829084,1,0,1,1,1,1,'','Disconnected Recordset.','Thanks,\n\noRs:ActiveConnection:hObj := nil\n\nWorks,\n\nI see no reference of an hObj instance variable off the ActiveConnection propertity.  How do you know this stuff, is there some defaults about all of these propertities and methods that would be helpful to know.  Any information would be greatly appreciated.\n\nAgain your solution did work.\n\nThank you ,','',0,'AIA=','vvcl1483',1,0,'',261,0,0),(38459,8301,6,9,0,'85.59.32.98',1190829158,1,0,1,1,1,1,'','','Gracias Alejandro por contestar.\n\nCon el mandato APPEND FROM abre un fichero dbf.- Pero si te fijas en mi mensaje, yo añado la claúsula SDF para leer datos desde un fichero de texto.','',0,'AIA=','3scm86c4',1,0,'',9,0,0),(38460,8302,6,63,0,'88.0.164.66',1190829676,1,0,1,1,1,0,'','','Carlos:  Funcionó perfecto!!  Muchas gracias\nRafael','',0,'AIA=','32o2fgnv',1,0,'',63,0,0),(38461,8301,6,316,0,'87.218.187.63',1190829776,1,0,1,1,1,0,'','','Manuel,\nHas probado poniendo el nombre de fichero terminado en punto? Es decir, si el fichero se llama \"Banco\" usar \"Banco.\"\n\nUn saludo,\n\nCarlos','',0,'AIA=','hc4pq0vs',1,0,'',316,0,0),(38462,8296,6,53,0,'189.139.10.61',1190829800,1,0,1,1,1,1,'','','Viktor:\n\nEn el maual de FW viene un capítulo y un ejemplo sobre MAPI, avisame si no lo encuentras para teclearlo y enviartelo.\n\nUn Abrazo','',0,'AIA=','1zyiwlgx',1,0,'',53,0,0),(38463,8305,6,316,0,'87.218.187.63',1190830073,1,0,1,1,1,0,'','','Hola Adolfo,\n\ninteresante el aporte. Tal vez lo puedas subir a box.net, que no te da tantos problemas para bajarlo y esas cosas.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','39ic7vq6',1,0,'',316,0,0),(38464,8274,18,1146,0,'87.223.165.162',1190830387,1,0,1,1,1,0,'','','Antonio,\n\nEl problema es que yo defino el control así:\n\nREDEFINE BUTTONBMP   BITMAP \"BMPCALEN\"        ID 600 OF oDlg ACTION ( MsgDate(Nil, \"Seleccione una fecha\", oGet) )  MESSAGE \"Calendario\"  \n \nEs decir, sin poner referencia al objeto, por lo que no puedo poner lo que tu me dices. Creo que es un cambio muy interesante y que no te lleva mucho tiempo, cortar y pegar lo de la clase BTNBMP.\n\nMuchas gracias por tu atención.','',0,'AIA=','348fmtt3',1,0,'',1146,0,0),(38465,8301,6,221,0,'190.78.48.82',1190830419,1,0,1,1,1,1,'','','manuel y porque no hace un rename file o copy file y tu le pones la extension .txt\n\narc1=\"_banco\" o lo pides con get\narc2=\"arc1+\".txt\"\nrename &amp;arc1 to &amp;arc2\n\ny entonces si haces el append sin problema y es transparente al usuario','',0,'AIA=','2bt45otk',1,0,'',221,0,0),(38466,8296,6,53,0,'189.139.10.61',1190830795,1,0,1,1,1,1,'','','Vikthor:\n\nViendo que el ejemplo no es muy grande me anime a teclearlo, aqui lo tienes, ojalá te sirva.\n\n#Include \"FiveWin.ch\"\n#Include \"Mail.ch\"\n\nSTATIC oWnd\n\nFUNCTION Main()\n\nLOCAL oBar\n\nDEFINE WINDOW oWnd TITLE \"Uso de los servicios MAIL\"\n\n	DEFINE BUTTONBAR oBar 3D SIZE 33,33 OF oWnd\n\n		DEFINE BUTTON OF oBar ACTION MsgInfo(MAPILogOn());\n			MESSAGE \"LogOn al sistema de correo\" TOOLTIP \"LogOn\"\n\n		DEFINE BUTTON OF oBar;\n			ACTION (MAPILogOff(), MsgInfo(\"LogOff realizado\")  );\n			MESSAGE \"LogOff del sistema de correo\" TOOLTIP \"LogOff\"\n\n		DEFINE BUTTON OF oBar GROUP;\n			ACTION InteractiveMessage();\n			MESSAGE \"Enviar mensaje interactivo\" TOOLTIP \"Interactive\"\n\n		DEFINE BUTTON OF oBar GROUP;\n			ACTION DirectMessage();\n			MESSAGE \"Enviar mensaje interactivo\" TOOLTIP \"Direct\"\n\n		DEFINE BUTTON OF oBar GROUP ACTION oWnd:End() TOOLTIP \"End\"\n\n	SET MESSAGE OF oWnd TO \"FiveWIn - Soporte MAIL\" CENTERED\nACTIVE WINDOW oWnd ;\n	VALID MsgYesNo(\"¿ Desea salir ?\")\nRETURN(NIL)\n\n\nFUNCTION InteractiveMessage()\nLOCAL oMail\n\nDEFINE MAIL oMail;\n	SUBJECT \"Probando...\";\n	TEXT \"Potencia xBase real a su alcance\";\n	FROM USER;\n	RECEIPT\n\nACTIVATE MAIL oMail\nMsgInfo(oMail:nRetCode)\nRETURN(NIL)\n\n\nFUNCTION DirectMessage()\nLOCAL oMail\n\nDEFINE MAIL oMail;\n	SUBJECT \"FiveWin Mail-Control total\";\n	TEXT \"Potencia xBase real a su alcance\";\n	TO \"LOLO\", \"Lolo Linares\"\nACTIVATE MAIL oMail\nMsgInfo(oMail:nRetCode)\nRETURN(NIL)\n\nSaludos','',0,'AIA=','2p08no7t',1,0,'',53,0,0),(38467,8302,6,582,0,'190.138.25.247',1190831773,1,0,1,1,1,0,'','','[quote=&quot;Rafael Clemente&quot;:22tpqavz]Sí, claro; pero al compilar siempre me da: Error: Unresolved external \'_HB_FUN_WINUSER\'\n\nUtilizo FWH 2.6 con Harbour.  A lo mejor es que en esa versión aún no estaba implementada esa función...\n\nSaludos,\n\nRafael[/quote:22tpqavz]\nTenes razon. Probe y me da el mismo error. Tambien utilizo Harbour y FiveWin 7.07\nPero a mi me funcionaba en un viejo sistema, no me acuerdo con que version de fivewin esta echo, pero estoy seguro que funcionaba.\nQuizas Antonio nos pueda dar un ayuda =&gt;))\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','22tpqavz',1,0,'',582,0,0),(38468,7330,6,221,0,'190.78.48.82',1190831845,1,0,1,1,1,1,'','','la verdad esta muy buena, hare una version para venezuela que en vez de euros y pesetas, tenga bolivares y bolivares fuertes, si el autor no tiene objeciones, solo una cosita que vi y me enredo, en la cinta, cuando subo con la barra de desplazamiento, despues no me deja seguir metiendole numeros, se hace obligatorio a que tenga que marcar un numero con el mouse para darle el foco a lo que serian los numeros, luego sigue todo normal','',0,'gA==','14tmz142',1,0,'',221,0,0),(38469,8302,6,63,0,'88.0.164.66',1190832487,1,0,1,1,1,0,'','','[quote:27ywajxj]Quizas Antonio nos pueda dar un ayuda =&gt;)) \n\n[/quote:27ywajxj]\nNo hace falta;  mira más arriba: Carlos Vargas nos ha dado una solución sencilla, elegante y que funciona...\nSaludos,\nRafael','',0,'gA==','27ywajxj',1,0,'',63,0,0),(38470,8307,6,1168,0,'84.123.200.144',1190833435,1,0,1,1,1,0,'','RPC - Remote Procedure Control - Inicio y dudas','Hola,\n\nSiguiendo con mi idea de conectar ordenadores que usan Terminal Server, por lo que he visto, la unica manera seria con RPC (Remote Procedure Control)\nAlguien tiene experiencia con RPC ?\nComo se identifica un ordenador con el RPC, con su IP ?\n\nSaludos','',0,'gA==','3dgd13dq',1,0,'',1168,0,0),(38471,8302,6,110,0,'190.184.22.56',1190835351,1,0,1,1,1,1,'','','me laegro que les funcione <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3mvs7jow',1,0,'',110,0,0),(38472,8080,6,110,0,'190.184.22.56',1190835903,1,0,1,1,1,1,'','','aca el codigo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n     SALD-&gt;TT_NOTAS := ValToPrgExp(aInfo[CP_DETALLE])     //aca se guarda\n\n      cDetalle:=SALD-&gt;TT_NOTAS\n\n      IF !Empty(cDetalle)\n         aDetalle := &amp;cDetalle\n         IF ISARRAY(aDetalle)\n\n\n[code:217skmtr]\nPROCEDURE ReporteDeSaldo_Proceso&#40;lDetalle&#41;\n   LOCAL cId\n   LOCAL anInfo\n   LOCAL nCuotas\n   PRIVATE nContador\n\n   /*desabilita controles*/\n   oFecha&#58;disable&#40;&#41;\n   oBtnOk&#58;disable&#40;&#41;\n   oBtnExit&#58;disable&#40;&#41;\n\n   /*incializa contador*/\n   nContador   &#58;= 0\n\n   /*solo contratos activos*/\n   IF empty&#40; dFecha &#41;\n      SET FILTER TO CONT-&gt;USSALDOI&gt;0 &#46;AND&#46; CONT-&gt;USMONTO&gt;10 &#46;AND&#46; !CANCELADO\n   ELSE\n      SET FILTER TO CONT-&gt;USSALDOI&gt;0 &#46;AND&#46; CONT-&gt;USMONTO&gt;10 &#46;AND&#46; CONT-&gt;FECHA &lt;= DFECHA &#46;AND&#46; !CANCELADO\n   ENDIF\n   CONT-&gt;&#40;DBGoTop&#40;&#41;&#41;\n\n   /*cuenta registros*/\n   COUNT TO nContador\n\n   /*define margen de progress bar*/\n   oPBar&#58;SetRange&#40;1,nContador&#41;\n\n   /*inicio de tabla de contratos*/\n   CONT-&gt;&#40;DBGoTop&#40;&#41;&#41;\n\n   /*procesa cada contrato hasta alcanzar el final del archivo*/\n   nContador &#58;= 0\n   WHILE !CONT-&gt;&#40;Eof&#40;&#41;&#41;\n\n      /*actualiza avanze en barra de progreso*/\n      oPBar&#58;SetPos&#40;++nContador&#41;\n      oGet&#58;SetText&#40;&quot;Procesando contrato no&#46; &#91;&quot;+RTrim&#40;CONT-&gt;ID&#41;+&quot;&#93;&quot;&#41;\n\n      /*procesa llamadas de windows*/\n      SysRefresh&#40;&#41;\n\n      /*recupera informacion de los pagos de este contrato*/\n      IF !lDetalle\n         aInfo&#58;=ReporteDeSaldo_LoPagado&#40;&#41;\n      ELSE\n         aInfo&#58;=ReporteDeSaldo_LoPagado2&#40;&#41;\n      ENDIF\n\n      /*inserta informacion de pagos de este contrato*/\n      SALD-&gt;&#40;DBAppend&#40;&#41;&#41;\n      SALD-&gt;TT_CONTA &#58;= nContador\n      SALD-&gt;TT_CONTR &#58;= CONT-&gt;ID\n      SALD-&gt;TT_SUSCR &#58;= CONT-&gt;NOMBRE\n      SALD-&gt;TT_FECHA &#58;= CONT-&gt;FECHA\n      SALD-&gt;TT_PAGAD &#58;= aInfo&#91;CP_PAGADO &#93;\n      SALD-&gt;TT_CAPIT &#58;= aInfo&#91;CP_CAPITAL&#93;\n      SALD-&gt;TT_INTER &#58;= aInfo&#91;CP_INTERES&#93;\n      SALD-&gt;TT_SEGUR &#58;= aInfo&#91;CP_SEGURO &#93;\n      SALD-&gt;TT_NUMPA &#58;= aInfo&#91;CP_PAGOS  &#93;\n      SALD-&gt;TT_NOTAS &#58;= ValToPrgExp&#40;aInfo&#91;CP_DETALLE&#93;&#41;     //aca se guarda\n\n      cId&#58;=CONT-&gt;ID\n\n      /*numero de cuotas*/\n      IF StrCharCount&#40;cId,&quot;-&quot;&#41;&gt;2\n         SALD-&gt;TT_NUMCU&#58;=Val&#40;StrToken&#40;cId,3,&quot;-&quot;&#41;&#41;*12\n      ENDIF\n\n      /*calculo del valor inicial del contrato*/\n      SALD-&gt;TT_VALOR&#58;=ReporteDeSaldo_ValorContrato&#40;&#41;\n\n      /*calculo del saldo*/\n      SALD-&gt;TT_SALDO&#58;=SALD-&gt;TT_VALOR - SALD-&gt;TT_PAGAD\n\n      /*siguiente contrato*/\n      CONT-&gt;&#40;DBSkip&#40;&#41;&#41;\n\n   ENDDO\n\n   /*mensaje informativo*/\n   Msginfo&#40;&quot;Fin de proceso, &quot;+AllTrim&#40;Transform&#40;nContador,&quot;99,999,999&quot;&#41;&#41;+&quot; Contratos procesados&quot;&#41;\n\n   /*reporte a excel*/\n   IF lDetalle\n      ReporteDeDetalle_ToExcel&#40;&#41;\n   ELSE\n      ReporteDeSaldo_ToExcel&#40;&#41;\n   ENDIF\n\n   /*habilita controles*/\n   oFecha&#58;enable&#40;&#41;\n   oBtnOk&#58;enable&#40;&#41;\n   oBtnExit&#58;enable&#40;&#41;\n\nRETURN\n[/code:217skmtr]\nPROCEDURE ReporteDeDetalle_ToExcel()\n   PRIVATE oExcel, oHoja, nRow, cRango, nSaldo1, nSaldo2, nSaldo3\n   PRIVATE cDetalle, aDetalle, nLenDetalle, x\n   PRIVATE nSaldoAnt, lInicio, dMes, dAno, dFinMes, nPagoAcu, dFecPag, dFecAnt\n\n   IF !MsgNoYes( \"Exportar reporte a excel?\" )\n      RETURN\n   ENDIF\n\n   TRY\n      oExcel := GetActiveObject( \"Excel.Application\" )\n   CATCH\n      TRY\n         oExcel := CreateObject( \"Excel.Application\" )\n      CATCH\n         MsgAlert( \"ERROR! Excel no esta disponible. \", Ole2TxtError() )\n         RETURN\n      END\n   END\n\n   CursorWait()\n   SysRefresh()\n   oDlg:SetText( \"Importando datos a excel!\" )\n\n   oPBar:SetRange(1,nContador)\n\n   nRow:=0\n\n   oExcel:WorkBooks:Add()\n\n   oHoja := oExcel:Get( \"ActiveSheet\" )\n   oHoja:Cells:Font:Name := \"Tahoma\"\n   oHoja:Cells:Font:Size := 10\n\n   oHoja:Cells(++nRow,1):Value := \"Jardines del Recuerdo, S.A.\"\n   oHoja:Cells(++nRow,1):Value := \"Detalle de pagos de contratos\"\n   IF !empty(dFecha)\n      oHoja:Cells(++nRow,1):Value := CMonth(dFecha) + \" del año \" + Str(Year(dFecha),4)\n   ENDIF\n\n   oHoja:Range( \"A1:A2\" ):Font:Name      := \"Times New Roman\"\n   oHoja:Range( \"A1:A2\" ):Font:Size      := 14\n   oHoja:Range( \"A1:A2\" ):Font:Bold      := TRUE\n   oHoja:Range( \"A1:A2\" ):Font:Color     := CLR_BLUE\n   oHoja:Range( \"A3:A3\" ):Font:Size      := 12\n   oHoja:Range( \"A3:A3\" ):Font:Bold      := TRUE\n   oHoja:Range( \"A3:A3\" ):Font:Color     := CLR_RED\n\n   nRow += 2\n\n   oHoja:Cells( nRow, 1 ):Value := \"No.\"               //A - 1\n   oHoja:Cells( nRow, 2 ):Value := \"ID Contrato\"       //B - 2\n   oHoja:Cells( nRow, 3 ):Value := \"Suscriptor\"        //C - 3\n   oHoja:Cells( nRow, 4 ):Value := \"Fecha Cont.\"       //D - 4\n   oHoja:Cells( nRow, 5 ):Value := \"Fecha UCP\"         //E - 4\n   oHoja:Cells( nRow, 6 ):Value := \"Saldo Ant. U$\"     //F - 5\n   oHoja:Cells( nRow, 7 ):Value := \"Debe U$\"           //G - 6\n   oHoja:Cells( nRow, 8 ):Value := \"Haber U$\"          //H - 7\n   oHoja:Cells( nRow, 9 ):Value := \"Saldo U$\"          //I - 8\n\n   oHoja:Rows( ltrim( str( nRow ) ) + \":\" + ltrim( str( nRow ) ) ):RowHeight         := 28\n   oHoja:Rows( ltrim( str( nRow ) ) + \":\" + ltrim( str( nRow ) ) ):VerticalAlignment := xlCenter\n\n   cRango := \"A\" + LTrim( Str( nRow ) ) + \":I\" + LTrim( Str( nRow ) )\n\n   oHoja:Range( cRango ):Font:Bold           := TRUE\n   oHoja:Range( cRango ):Font:Color          := CLR_YELLOW\n   oHoja:Range( cRango ):Interior:Color      := CLR_CYAN\n   oHoja:Range( cRango ):Borders():LineStyle := 1\n\n   oHoja:Columns( 1 ):HorizontalAlignment := xlCenter\n   oHoja:Columns( 6 ):HorizontalAlignment := xlRight\n   oHoja:Columns( 7 ):HorizontalAlignment := xlRight\n   oHoja:Columns( 8 ):HorizontalAlignment := xlRight\n   oHoja:Columns( 9 ):HorizontalAlignment := xlRight\n\n   oHoja:Columns( 1 ):NumberFormat := \"#,##0\"\n   oHoja:Columns( 4 ):NumberFormat := \"dd/mm/yyyy\"\n   oHoja:Columns( 5 ):NumberFormat := \"dd/mm/yyyy\"\n   oHoja:Columns( 6 ):NumberFormat := \"#,##0.00\"\n   oHoja:Columns( 7 ):NumberFormat := \"#,##0.00\"\n   oHoja:Columns( 8 ):NumberFormat := \"#,##0.00\"\n   oHoja:Columns( 9 ):NumberFormat := \"#,##0.00\"\n\n   oHoja:Range( \"A1:A3\" ):HorizontalAlignment := xlLeft\n\n   oGet:SetText( \"Exportando los datos a una hoja en EXCEL\" )\n\n   nSaldo1 := nSaldo2 := nSaldo3 := nContador := 0\n   SALD-&gt;(DBGoTop())\n   ++nRow\n   DO WHILE !SALD-&gt;(Eof())\n\n      IF nContador % 20 = 0\n         SysRefresh()\n      ENDIF\n\n      oHoja:Cells(nRow,1):Value := SALD-&gt;TT_CONTA\n      oHoja:Cells(nRow,2):Value := SALD-&gt;TT_CONTR\n      oHoja:Cells(nRow,3):Value := RTrim(SALD-&gt;TT_SUSCR)\n\n      cDetalle:=SALD-&gt;TT_NOTAS\n\n      IF !Empty(cDetalle)\n         aDetalle := &amp;cDetalle    //aca se convierte a array nuevamente\n         IF ISARRAY(aDetalle)\n            nLenDetalle := Len( aDetalle )\n            nPagoEnMes := 0\n            FOR x:=1 TO nLenDetalle\n               dFechaPago := aDetalle[x,1]\n               IF Beetwen(dFechaPago,bom(dFecha),eom(dFecha))\n                  nPagoEnMes += aDetalle[x,3]\n               ENDIF\n            NEXT\n            oHoja:Cells( nRow, 4 ):Value := aDetalle[1,1]\n            oHoja:Cells( nRow, 5 ):Value := aDetalle[nLenDetalle,1]\n            oHoja:Cells( nRow, 6 ):Value := aDetalle[nLenDetalle,4]+nPagoEnMes\n            oHoja:Cells( nRow, 7 ):Value := 0\n            oHoja:Cells( nRow, 8 ):Value := nPagoEnMes\n            oHoja:Cells( nRow, 9 ):Value := aDetalle[nLenDetalle,4]\n         ENDIF\n      ELSE\n         oHoja:Cells( nRow, 4 ):Value := SALD-&gt;TT_FECHA//DFECHA\n         oHoja:Cells( nRow, 6 ):Value := 0\n         oHoja:Cells( nRow, 7 ):Value := SALD-&gt;TT_VALOR\n         oHoja:Cells( nRow, 8 ):Value := 0\n         oHoja:Cells( nRow, 9 ):Value := SALD-&gt;TT_VALOR\n      ENDIF\n\n      ++nRow\n      SALD-&gt;(DBSkip())\n\n      oPBar:SetPos(++nContador)\n\n   ENDD\n\n   CursorArrow()\n   SysRefresh()\n\n   oHoja:Columns( 2 ):AutoFit()\n   oHoja:Columns( 3 ):AutoFit()\n   oHoja:Columns( 4 ):AutoFit()\n   oHoja:Columns( 5 ):AutoFit()\n   oHoja:Columns( 6 ):AutoFit()\n   oHoja:Columns( 7 ):AutoFit()\n   oHoja:Columns( 8 ):AutoFit()\n   oHoja:Columns( 9 ):AutoFit()\n\n   oHoja:SaveAs( \"saldo\"+DToS(Date())+\".xls\" )\n\n   oExcel:Visible := TRUE\n   oHoja          := NIL\n   oExcel         := NIL\n\nRETURN\n[code:217skmtr]\n\n[/code:217skmtr]','',0,'AIA=','217skmtr',1,0,'',110,0,0),(38473,8301,6,9,0,'85.59.32.98',1190836154,1,0,1,1,1,1,'','','Voy a probar las dos opciones y ya os contaré.\n\nMuchas gracias','',0,'AIA=','1gkc93qp',1,0,'',9,0,0),(38474,8301,6,9,0,'85.59.32.98',1190836864,1,0,1,1,1,1,'','','Las dos opciones funcionan.\n\nMuchas gracias','',0,'AIA=','hjgeh18i',1,0,'',9,0,0),(38475,8308,6,774,0,'200.72.65.254',1190838143,1,0,1,1,1,1,'','SOBRE VIACORAL','QUIEN A PROBADO VIACORAL... \n\nal q la use::: tengo unas dudas,,, viacoral usas solo bmp o tambien jpg u otras extensiones...\n\ncomo lei por ahi,,, usa bitmap de 32 bits,, eso quiere decir q solamente de 32 bits... o incluye tambien los de 24...\n\n\nGRACIAS::::','',0,'AIA=','3cccj9o0',1,0,'',774,0,0),(38476,8309,3,261,0,'68.122.27.201',1190838192,1,0,1,1,1,1,'','Active Directory','Does anybody know how to get the user name from active directory in FiveWin?','',0,'AIA=','1n44kbf0',1,0,'',261,0,0),(38477,8294,3,1151,0,'203.173.210.209',1190847249,1,0,1,1,1,0,'','','Thanks That works','',0,'AIA=','3ke34r35',1,0,'',1151,0,0),(38478,8309,3,35,0,'65.188.6.143',1190848231,1,0,1,1,1,0,'','','Bryon\n\nI find this works because it looks at the credentials of the workstation profile. In Microsoft the workstation profile and the AD network id should be the same and syncronized.. \n\nWorks from Win98 thru Vista \n\nxLOGIN := WNetGetUser()      // FiveWin function\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','1l1ys144',1,0,'',35,0,0),(38479,8300,6,73,0,'200.23.18.132',1190848461,1,0,1,1,1,0,'','','no entendi muy bien, puedes publicar las imagenes de los browse para darme una idea\nsalu2\npaco','',0,'AIA=','37cn919d',1,0,'',73,0,0),(38480,8310,6,931,0,'201.159.1.198',1190851158,1,0,0,0,1,0,'','Leer datos especifico de un XML','Hola a todos,\n\nRequiero leer datos especificos de una archivo XML, he intentado lo que  encontre aqui en el foro, pero no me funciona, por lo que requiero ayuda, lo que he notado es que la forma de mis XML es ligeramente diferente, anexo unas lineas de mi XML.\n\nPor ejemplo del siguiente codigo requiero leer el valor de:\n&lt;NODECLIENTE&gt; que es 1072\n\nComo lo hago?\n\n&lt;?xml version=\'1.0\' encoding=\'iso-8859-1\'?&gt;\n&lt;xml&gt;\n&lt;root&gt;\n&lt;PLACEHOLDER&gt;\n&lt;Content&gt;FAC001335082007&lt;/Content&gt;\n&lt;FOLDER_NAME&gt;200708&lt;/FOLDER_NAME&gt;\n&lt;OM.SEQUENCE&gt;233&lt;/OM.SEQUENCE&gt;\n&lt;OUTPUT_KIND&gt;O&lt;/OUTPUT_KIND&gt;\n&lt;OProt_Name&gt;Hardcopy&lt;/OProt_Name&gt;\n&lt;LTemplate_Name&gt;Factura XML&lt;/LTemplate_Name&gt;\n&lt;Contact_Country&gt;México&lt;/Contact_Country&gt;\n&lt;Contact_Formatted&gt;AMATISTA 780/\nVALLE DORADO (12), CP. 78399\nSan Luis Potosi\nSan Luis Potosí&lt;/Contact_Formatted&gt;\n&lt;Contact_ContactPerson&gt;VERONICA MARTINEZ ALMENDAREZ&lt;/Contact_ContactPerson&gt;\n&lt;Contact_FormattedLine4&gt;San Luis Potosí&lt;/Contact_FormattedLine4&gt;\n&lt;Contact_FormattedLine3&gt;San Luis Potosi&lt;/Contact_FormattedLine3&gt;\n&lt;Contact_FormattedLine2&gt;VALLE DORADO (12), CP. 78399&lt;/Contact_FormattedLine2&gt;\n&lt;Contact_FormattedLine1&gt;AMATISTA 780/&lt;/Contact_FormattedLine1&gt;\n&lt;CAcc_ExternalAccNumber&gt;728&lt;/CAcc_ExternalAccNumber&gt;\n&lt;CAcc_InternalAccNumber&gt;875&lt;/CAcc_InternalAccNumber&gt;\n&lt;CP_Type_Name&gt;Residencial&lt;/CP_Type_Name&gt;\n&lt;CP_TaxGroup_Name&gt;Básico&lt;/CP_TaxGroup_Name&gt;\n&lt;CP_TaxGroup_Symbol&gt;CPartyTaxGroup&lt;/CP_TaxGroup_Symbol&gt;\n&lt;CP_InternalCPNumber&gt;1072&lt;/CP_InternalCPNumber&gt;\n&lt;CP_ExternalCPNumber&gt;10097758&lt;/CP_ExternalCPNumber&gt;\n&lt;OP_Type_Name&gt;Provedor de facturación&lt;/OP_Type_Name&gt;\n&lt;OP_TaxGroup_Name&gt;Basic&lt;/OP_TaxGroup_Name&gt;\n&lt;OP_TaxGroup_Symbol&gt;BProviderTaxGroup&lt;/OP_TaxGroup_Symbol&gt;\n&lt;OP_InternalCPNumber&gt;26&lt;/OP_InternalCPNumber&gt;\n&lt;REFERENCE&gt;FACXML001372082007&lt;/REFERENCE&gt;\n&lt;OM.IssueDateDay&gt;20&lt;/OM.IssueDateDay&gt;\n&lt;OM.IssueDateMonth&gt;08&lt;/OM.IssueDateMonth&gt;\n&lt;OM.IssueDateYear&gt;2007&lt;/OM.IssueDateYear&gt;\n&lt;OItem_Id&gt;2532&lt;/OItem_Id&gt;\n&lt;PInstance_Id&gt;287&lt;/PInstance_Id&gt;\n&lt;/PLACEHOLDER&gt;\n&lt;EstadoDeCuenta&gt;\n&lt;NODECLIENTE&gt;1072&lt;/NODECLIENTE&gt;\n&lt;NODECUENTA&gt;875&lt;/NODECUENTA&gt;\n&lt;NODEFACTURA&gt;FAC001335082007&lt;/NODEFACTURA&gt;\n&lt;FECHADEEDICION&gt;20-08-2007&lt;/FECHADEEDICION&gt; \n\nAgradecer cualquier ayuda, igual si quieren contactarme directamente.\n\nMario A. Dávalos\nMexico, D.F.\n<!-- e --><a href=\"mailto:mariodava@hotamil.com\">mariodava@hotamil.com</a><!-- e -->','',0,'AIA=','pv1kch3v',1,0,'',931,0,0),(38481,8294,3,1151,0,'203.173.210.209',1190851219,1,0,1,1,1,0,'','','Still left with Window Icon problem.\n\nView MDI window problem at\n\n<!-- m --><a class=\"postlink\" href=\"http://profile.imageshack.us/user/testmdi6\">http://profile.imageshack.us/user/testmdi6</a><!-- m -->','',0,'AIA=','16rg8dw0',1,0,'',1151,0,0),(38482,8310,6,53,0,'189.139.10.61',1190853198,1,0,1,1,1,1,'','','Mario:\n\nNo se si ya intentaste con XMLRead, una aportación de Timm\n\n<!-- m --><a class=\"postlink\" href=\"http://www.reportdesigner.info/\">http://www.reportdesigner.info/</a><!-- m -->\n\nOjalá te sirva\n\nSaludos','',0,'AIA=','3tzedc82',1,0,'',53,0,0),(38483,8311,3,699,0,'59.125.100.114',1190856577,1,0,1,1,1,1,'','How to show the SAY with Transparent background','Hi Everyone,\n\nI have a problem in my application, the SAY “Date:” was not in transparent background. The example is listed as below:\n\n[code:2j52mdh2]\n// Testing a SAY in transparent\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, oBru\n   local dDay &#58;= Date&#40;&#41;\n   local oGet\n   DEFINE BRUSH oBru FILE &quot;sky&#46;bmp&quot;\n   DEFINE DIALOG oDlg TITLE &quot;Testing&#46;&#46;&#46;&quot; BRUSH oBru TRANSPARENT\n\n   @ 2,  2 SAY &quot;Date&#58;&quot; OF oDlg\n   @ 2,  6 GET oGet VAR dDay OF oDlg SIZE 40, 10 SPINNER ;\n      VALID ! Empty&#40; dDay &#41;\n\n   @ 3,  7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3, 16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n\n   oGet&#58;bGotFocus &#58;= &#123; || oGet&#58;SelectAll&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//\n[/code:2j52mdh2]\n\nAny idea?','',0,'AIA=','2j52mdh2',1,0,'',699,0,0),(38484,8293,6,54,0,'189.132.114.73',1190868498,1,0,1,1,1,1,'','Re: MySql - TMySql','[quote=&quot;El Loco&quot;:21dpvdqj]wmormar\nMil gracias pude compilar perfectamente.\nAhora la libmysql.dll a la que te referis es la que se encuentra en el directorio de MySql \\Lib\\Opc verdad?\n\n\nUn abrazo. El Loco =&gt;))\ny nuevamente gracias.[/quote:21dpvdqj]\n\nSe localiza en BIN\n\ncreo, <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nsaludos','',0,'gA==','21dpvdqj',1,0,'',54,0,0),(38485,8309,3,261,0,'63.197.46.139',1190873195,1,0,1,1,1,1,'','Active Directory','Thank you, I will give this a try.\n\nByron...','',0,'gA==','28pjk9ku',1,0,'',261,0,0),(38487,8312,6,18,0,'189.143.67.78',1190876457,1,0,1,1,1,1,'','SMTP y Servidor Exchange','Estoy tratando de autenticar el usuario de un server exchange, para poder hacer envios  a distintos dominios, sin tener necesidad de configurar el servidor de los clientes.\n\nLa clase smtp que modifico Luis Krause, ya viene incluido la auntenticacion, sin embargo al hacer yo la autenticacion desde mi programa esto me arroja el server :\n[code:25du7kzg]\n27/09/2007 01&#58;13&#58;11&#58; Connect	Socket handle&#58;       428	WSA Error&#58;         0	\n27/09/2007 01&#58;13&#58;11&#58; Write  	Socket handle&#58;       428	WSA Error&#58;         0	\n27/09/2007 01&#58;13&#58;11&#58; Read   	Socket handle&#58;       428	WSA Error&#58;         0	\n27/09/2007 01&#58;13&#58;11&#58; 220 win2003&#46;server&#46;com Microsoft ESMTP MAIL Service, Version&#58; 6&#46;0&#46;3790&#46;3959 ready at  Thu, 27 Sep 2007 01&#58;13&#58;59 -0600 \n	\n27/09/2007 01&#58;13&#58;11&#58; HELO smtp-client\n	\n27/09/2007 01&#58;13&#58;11&#58; Read   	Socket handle&#58;       428	WSA Error&#58;         0	\n27/09/2007 01&#58;13&#58;11&#58; 250 win2003&#46;server&#46;com Hello 	\n27/09/2007 01&#58;13&#58;11&#58; AUTH LOGIN\n	\n27/09/2007 01&#58;13&#58;11&#58; Read   	Socket handle&#58;       428	WSA Error&#58;         0	\n27/09/2007 01&#58;13&#58;11&#58; 503 5&#46;5&#46;2 Send hello first&#46;\n[/code:25du7kzg]\n\n[b:25du7kzg]27/09/2007 01:13:11: 503 5.5.2 Send hello first.[/b:25du7kzg] Es el mensaje que no puedo solucionar.\n\nPedi los comandos al server que tiene disponibles y este fue el resultado :\n\n\n[code:25du7kzg]\n27/09/2007 01&#58;12&#58;00&#58; 214-This server supports the following commands&#58;\n214 HELO EHLO STARTTLS RCPT DATA RSET MAIL QUIT HELP AUTH TURN ETRN BDAT VRFY\n[/code:25du7kzg]\n\nTambien pedi :\n[code:25du7kzg]\n27/09/2007 01&#58;28&#58;44&#58; EHLO NSF000000\n	\n27/09/2007 01&#58;28&#58;44&#58; Read   	Socket handle&#58;       428	WSA Error&#58;         0	\n27/09/2007 01&#58;28&#58;44&#58; 250-win2003&#46;server&#46;com Hello \n250-TURN\n250-SIZE\n250-ETRN\n250-PIPELINING\n250-DSN\n250-ENHANCEDSTATUSCODES\n250-8bitmime\n250-BINARYMIME\n250-CHUNKING\n250-VRFY\n250-X-EXPS GSSAPI NTLM LOGIN\n250-X-EXPS=LOGIN\n250-AUTH GSSAPI NTLM LOGIN\n250-AUTH=LOGIN\n250-X-LINK2STATE\n250-XEXCH50\n250 OK\n[/code:25du7kzg]\n\nAsi que cambie la autenticacion por :\n[code:25du7kzg]27/09/2007 01&#58;30&#58;21&#58; AUTH=LOGIN\n	\n27/09/2007 01&#58;30&#58;21&#58; Read   	Socket handle&#58;       428	WSA Error&#58;         0	\n27/09/2007 01&#58;30&#58;21&#58; 500 5&#46;3&#46;3 Unrecognized command\n[/code:25du7kzg]\n\nY el maldito server me sigue rechazando.\n\nAlguna sugerencia','',0,'QIA=','25du7kzg',1,0,'',18,0,0),(38488,8311,3,6,0,'87.20.218.83',1190877822,1,0,1,1,1,1,'','Re: How to show the SAY with Transparent background','It is transparent here using latest FWH version.\n\nEMG','',0,'QIA=','3lzhb4ie',1,0,'',6,0,0),(38489,8257,3,130,0,'141.51.32.24',1190879101,1,0,1,1,1,1,'','','Antonio,\n\nyes, you are right, that a good idea.\n\nHere everyone can download the demo:\n[url:2zzclat1]http&#58;//rapidshare&#46;com/files/58565980/Event&#46;zip&#46;html[/url:2zzclat1]','',0,'EA==','2zzclat1',1,0,'',130,0,0),(38490,8311,3,699,0,'59.125.100.114',1190879908,1,0,1,1,1,1,'','','Enrico,\n\n[quote:2auhgcgw]\nIt is transparent here using latest FWH version.\n[/quote:2auhgcgw]\nBut it is not transparent here using FWH Dec. 2006 version. \n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','2auhgcgw',1,0,'',699,0,0),(38491,8272,6,316,0,'213.97.245.163',1190881237,1,0,1,1,1,0,'','','Buenos días Antonio,\n\nya parezco el \"malo de la peli\" con el tema TXBrowse\n\nModifiqué el testxbrw.prg del directorio samples, la función multiline de la siguiente forma:\n\n\n[code:3jhrtrzz]\nSTATIC FUNCTION MultiLine&#40; oWnd &#41;\n\n   local oChild, oBrw\n   local nFor, oFont\n\n   DEFINE FONT oFont NAME &quot;TAHOMA&quot; SIZE 0, -12\n\n   DEFINE WINDOW oChild TITLE &quot;Horizontal and vertical lines and dotted Cell selector browse&quot; MDICHILD OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n   oBrw&#58;SetFont&#40; oFont &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 2\n   oBrw&#58;nDataLines          &#58;= 2\n   oBrw&#58;SetRDD&#40;&#41;\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader &#58;= &quot;Field&#58; &quot; + ltrim&#40; str&#40; nFor &#41; &#41; + CRLF + FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n      oBrw&#58;aCols&#91; nFor &#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n   next\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n\n[/code:3jhrtrzz]\n\n\nPero no me justifica a la derecha los datos. Los headers los hace bien.\n[img:3jhrtrzz]http&#58;//img526&#46;imageshack&#46;us/img526/8946/xbrowsedatacenteredjw3&#46;jpg[/img:3jhrtrzz]\nPudiste ver algo del ejemplo que te puse del otro tema?\n \n\nUn saludo,\n\nCarlos.','',0,'CIA=','3jhrtrzz',1,0,'',316,0,0),(38492,8312,6,316,0,'213.97.245.163',1190882030,1,0,1,1,1,0,'','','Victor\n\ncreo que has interpretado mal el mensaje del servidor.\n\nel comando es\n\nAUTH LOGIN\n\nsin el \'=\', pero no hace falta porque en el estado te dice con AUTH=LOGIN el estado actual\n\nSaludos,\n\nCarlos.','',0,'CIA=','1e11ydmb',1,0,'',316,0,0),(38493,8311,3,6,0,'87.20.218.83',1190883694,1,0,1,1,1,1,'','','Your only option is to upgrade your FWH, I\'m afraid. There are too many changes in the new version, if I\'m not wrong. Antonio?\n\nEMG','',0,'CIA=','2o4k7yp3',1,0,'',6,0,0),(38494,8305,6,221,0,'190.78.48.82',1190893802,1,0,1,1,1,1,'','','tengo mas de 80mil en mi casa y creo que de los 70mil del amigo no se repiten sino unos cuantos, excelente la recopilacion sobre todo de los de XP, muy buena, valio la pena tardar 7 horas en bajarlo, lo pondre en emule en modo lanzamiento para que lo bajen otros, les informare el link\n\ngracias por compartirlos con todos','',0,'CIA=','1i7edll2',1,0,'',221,0,0),(38495,8300,6,176,0,'201.255.179.229',1190894240,1,0,1,1,1,0,'','','Francisco lo que quiero es que cuando inicio el diálogo no me aparezca la línea coloreada por defecto del browse, es decir que me luzcan como el resto del browse. Son dos en el cual el primero, uso los checkbox (para los remitos), y en el otro los items que voy a facturar, cuando marco en el otro se me pintan las filas que corresponden a ese remito, eso lo puedo hacer pero siempre me mantiene la última línea de los browse pintadas con el color original que carga por defecto, esa es la que quiero eliminar.\n\nNo sé como cargar las imágenes\n\nGracias\n\n[/img]','',0,'','2haxh94s',1,0,'',176,0,0),(38496,8300,6,176,0,'201.255.179.229',1190894719,1,0,1,1,1,0,'','','[/img]http://img237.imageshack.us/img237/7205/lib1bm3.jpg','',0,'','12yads9i',1,0,'',176,0,0),(38497,8300,6,176,0,'201.255.179.229',1190895120,1,0,1,1,1,0,'','','Esas líneas son las que quiero que no aparezcan cuando abro el diálogo [url][url=http://img340.imageshack.us/my.php?image=lib2am4.jpg][img=http://img340.imageshack.us/img340/7026/lib2am4.th.jpg][/url]\n\nAsí se ve cuando selecciono uno[/url]','',0,'EA==','gbuqbuju',1,0,'',176,0,0),(38498,8313,1,999,0,'201.42.193.178',1190897478,1,0,1,1,1,0,'','ShellExecute() terminates the program execution','Hi to all!\nTo call external programs (MSWord, Excel, Notepad, etc) in Windows XP,\nI use ShellExecute() with no problems during the past years.\nLately in some machines, the FiveWin program just terminates in a ShellExecute() command line, with no error indications or logs at all.\nIf I reinstall the Windows XP, the problem disapears.\nThe customer gets very puzzled because only the FiveWin programs are  affected.\nIn all cases,  calling MSWord or Excel by OLE works normally. \nThanks in advance for sugestions.\nRegards, Euclies','',0,'EA==','h41ap9eb',1,0,'',999,0,0),(38499,8314,2,1114,0,'200.127.42.220',1190898853,1,0,1,1,1,0,'','Como descomprimir un archivo zip','Estimados Colegas\n\ncomo puedo descomprimir un archivo zip directamenete o sea sin que\nme muestre el contenido como en el ejemplo de testuzip.prg\n\ndesde ya muchas gracias\nFabian\n<!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->','',0,'EA==','1k3jb04c',1,0,'',1114,0,0),(38500,8315,6,1114,0,'200.127.42.220',1190899179,1,0,1,1,1,0,'','Como puedo generar archivos temporales  facturacion en red','Estimado Colegas\n\nAlguien tiene un ejemplo sencillo de como generar dbf  temporales\nen distintas  pcs en red , poque si comparto el archivo lo que facture\nen una terminal , se lo ve de las demas, y en realidad c/u factura \narticulos distintos\n\ndesde ya muchas gracias\n<!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->','',0,'EA==','169424vz',1,0,'',1114,0,0),(38501,8315,6,221,0,'190.78.48.82',1190900654,1,0,1,1,1,1,'','','yo particularmente genero esos archivo temporales con el nombre del usuario o del pc, asi no se cruzan nunca, luego ya debes saber como con dbcreate, etc...','',0,'EA==','2xxzr7jb',1,0,'',221,0,0),(38502,8315,6,179,0,'190.10.198.97',1190901806,1,0,1,1,1,1,'','','yo tengo algo como esto\nespero te sirva\n\n [code:3j8e2c2q] \n\n    aDbf &#58;= &#123; &#123;\'Codigo\',\'C\',12,0&#125;,;\n                   &#123;\'Descrip\',\'C\',30,0&#125;,;\n                   &#123;\'Cantidad\',N,12,0&#125;,;\n                   &#123;\'Precio\',N,14,2&#125;,;\n                   &#123;\'Subtotal\',N,14,2&#125; &#125;\n\n\n    cDbf &#58;= GenTMP&#40; \'Dbf\', \'Dbf\' &#41;\n\n    dbcreate&#40; cDbf, aDbf &#41;\n    use &#40; cDbf &#41; new alias Camello exclusive\n\n    //aca tendrias este archivo para el browse de facturacion y \n    //seria independiente    \n\n     &#46;&#46;&#46;&#46;\n     &#46;&#46;&#46;\n// luego de usarlo lo puedes borrarç\n   select &#40; Camello &#41;\n   &#40; Camello &#41;-&gt;&#40; dbclosearea&#40;&#41; &#41;\n   ferase&#40; cDbf &#41;\n\n\n    function GenTMP&#40; cBas, cTer &#41;\n\n        Local cDir_Tmp &#58;= \'\\tmp\\\' //directorio de los temporales\n        Local i &#58;= 0\n        Local cFile \n        Local Fp\n\n        While ++i &lt;= 240000\n             cFile &#58;= cDir_Tmp + cBas + alltrim&#40; str&#40; i &#41; &#41; + \'&#46;\' + cTer\n             if !file &#40; cFile &#41;\n                 Fp &#58;= fcreate&#40; cFile &#41;\n                 fwrite &#40; Fp, \'nada\' &#41;\n                 fclose &#40; Fp &#41;\n             end\n         end\n\n     Return cFile\n[/code:3j8e2c2q]\n\nSaludos','',0,'AIA=','3j8e2c2q',1,0,'',179,0,0),(38503,8310,6,931,0,'201.159.1.211',1190902127,1,0,0,0,1,0,'','','Armando no lo he probado, sinceramente no lo conocia, lo voy a bajar, te agradezco mucho, una pregunta mas, nos conocemos verdad?\n\nUn abrazo\nMario A. Dávalos','',0,'AIA=','4cqprujc',1,0,'',931,0,0),(38504,8315,6,456,0,'217.127.39.57',1190904219,1,0,1,1,1,1,'','','Los temporales los creo en el PC cliente, y una forma sencilla de implementarlo con funciones FiveWin seria.\n[code:uwh8erxt]\nLOCAL cFilename,aFields,cRdd\ncFileName&#58;=cTempFile&#40;GetEnv&#40;&quot;TEMP&quot;&#41;,&quot;DBF&quot;&#41;\naFields&#58;=&#123;&#46;&#46;&#46;&#46;  //estructura dbf\ncAlias &#58;=\'alias\'\ndbCreate&#40;cFileName,aFields,cRdd&#41;\nUSE &#40;cFileName&#41; ALIAS cAlias NEW VIA &#40; cRDD &#41;\n[/code:uwh8erxt]\ncTempFile crea un nombre de fichero que no existe\nGetEnv(\"TEMP\") Devuelve el directorio temporal de windows.','',0,'AIA=','uwh8erxt',1,1190904771,'',456,1,0),(38505,8315,6,854,0,'189.131.130.179',1190904417,1,0,1,1,1,0,'','','Yo lo tengo asi :\n\nFUNCTION CreaTemporal1(cFile)\n	Local aTempora := {}, nFile\n  	DO WHILE .T.\n		nFile := cTempFile()\n		nFile := SubStr(nFile,1,At(\".\",nFile)-1)\n		IF Len(nFile)&gt;6\n			nFile := SubStr(nFile,1,6)\n		ELSE\n			nFile := nFile+Replicate(\"0\",6-Len(nFile))\n		ENDIF\n  		nFile := \"TM\"+nFile+\".DBF\"\n  		IF File(nFile)\n    		Loop\n  		ENDIF\n  		EXIT\n  	ENDDO\n  	AADD(aTempora,{\"PRODUCTO\",\"C\",16,0})\n	AADD(aTempora,{\"NOMBRE\"  ,\"C\",35,0})\n  	AADD(aTempora,{\"CANTIDAD\",\"N\",10,2})\n  	AADD(aTempora,{\"PRECIO\"  ,\"N\",10,2})\n	AADD(aTempora,{\"IMPORTE\" ,\"N\",10,2})\n  	DbCreate(nFile,aTempora)\n	nFile := SubStr(nFile,1,8)\nRETURN nFile','',0,'AIA=','1igytkq7',1,0,'',854,0,0),(38506,8310,6,53,0,'189.139.25.59',1190904945,1,0,1,1,1,1,'','','Mario:\n\nCreo que sí, en las estulticias de las reuniones que teniamos con el mal logrado grupo de programadores de FW.\n\nSaludos','',0,'AIA=','lexwmo45',1,0,'',53,0,0),(38507,8229,20,924,0,'81.208.36.89',1190906763,1,0,1,1,1,0,'','','Ho risolto !\n\n#INCLUDE \"FiveWin.ch\"\n\n#define HKEY_LOCAL_MACHINE 2147483650\n#define REG_SZ 0\n#define KEY_ALL_ACCESS 983103\n\n\nfunction main\nlocal _ver_wind:=ver_wind()\nlocal _l_isvista\nif int(val(_ver_wind))=6\n  ? \"Sei su Vista\"\nelse\n  ? \"Non Sei su Vista\"\nendif\nreturn nil\n*\nfunction ver_wind()\n\n    LOCAL hKey := 0\n\n    LOCAL nType := REG_SZ\n\n    LOCAL cData := SPACE( 256 )\n\n    LOCAL nSize := LEN( cData )\n\n    REGOPENKEY( HKEY_LOCAL_MACHINE,\"Software\\Microsoft\\Windows NT\\CurrentVersion\", 0, KEY_ALL_ACCESS, @hKey )\n\n    REGQUERYVALUE( hKey, \"CurrentVersion\", 0, @nType, @cData, @nSize)\n\n    REGCLOSEKEY( hKey )\n\n    cData = LEFT( cData, AT( CHR( 0 ), cData ) - 1 )\n\n    RETURN cData\n\n\nDLL32 FUNCTION REGOPENKEY( hKey AS LONG, cSubKey AS LPSTR, nOptions AS  DWORD, nSamDesired AS DWORD, @nHandle AS PTR ) AS LONG;\n      PASCAL FROM \"RegOpenKeyExA\" LIB \"advapi32.dll\"\n\nDLL32 FUNCTION REGQUERYVALUE( hKey AS LONG, cValueName AS LPSTR, nReserved  AS LONG, @nType AS PTR, @cData AS LPSTR, @nSize AS PTR ) AS LONG;\n      PASCAL FROM \"RegQueryValueExA\" LIB \"advapi32.dll\"\n\nDLL32 FUNCTION REGCLOSEKEY( hKey AS LONG ) AS LONG;\n      PASCAL FROM \"RegCloseKey\" LIB \"advapi32.dll\"\n*','',0,'AIA=','8phdv0e7',1,0,'',924,0,0),(38508,8316,20,924,0,'81.208.36.89',1190907014,1,0,1,1,1,0,'','Norton Antivirus e il Vecchio Clipper5','SO che non e\' il luogo esatto x tale domanda....ma tanti di voi hanno magari anche esperienze del vecchio clipper.\n\nHo un vecchissimo programma in clipper5 e ho fatto delle piccolissime modifiche x adattarlo alle nuove esigenze ma avendo il pc installato Norton Antivirus (da poco) ho notato che tale norton anche se disinstallato non mi permette di lanciare il debug, ossia non parte il debug.\nLo stesso programma su una macchina senza norton attiva il debug ( cld menu.exe)\nMi pare di avere sentito che norton antivirus anche se viene disinstallato lascia della schifezza in qualche registro, ho provato in rete ma non trovo niente.\n\nVi risulta qualche cosa ?\nGrazie\nRomeo/zingoni','',0,'AIA=','371sdhxt',1,0,'',924,0,0),(38509,8315,6,41,0,'200.87.67.11',1190907862,1,0,1,1,1,0,'','','Hola,\n\nsiendo que es poca informacion, por que no utilizas un array en lugar de un DBF o un RDDARRAY\n\nsolo es una idea\n\nsaludos\n\nMarcelo','',0,'AIA=','52wvk8qu',1,0,'',41,0,0),(38510,8300,6,875,0,'64.76.108.182',1190907906,1,0,1,1,1,0,'','','Con esto controlas los colores del Browse, Asi lo hago yo cuando trabajo con mas de 1 browse.\n\noBrw:nClrText:={|| Rgb(255,255,255)}\noBrw:nClrForeFocus:={|| Rgb(65,105,255) }\noBrw:nClrBackFocus:={|| Rgb(65,105,225) }\n\n\nJaime','',0,'AIA=','ouuq3pco',1,0,'',875,0,0),(38511,8312,6,18,0,'200.67.188.236',1190908091,1,0,1,1,1,1,'','','[quote=&quot;Carlos Mora&quot;:16b69fwl]Victor\n\ncreo que has interpretado mal el mensaje del servidor.\n\nel comando es\n\nAUTH LOGIN\n\nsin el \'=\', pero no hace falta porque en el estado te dice con AUTH=LOGIN el estado actual\n\nSaludos,\n\nCarlos.[/quote:16b69fwl]\n\nAl usar AUTH LOGIN , el servidor me debería de responder con un 334 y pedirme el user y password , sin embargo me pide lo siguiente.\n[code:16b69fwl]\n27/09/2007 01&#58;13&#58;11&#58; Connect   Socket handle&#58;       428   WSA Error&#58;         0    \n27/09/2007 01&#58;13&#58;11&#58; Write     Socket handle&#58;       428   WSA Error&#58;         0    \n27/09/2007 01&#58;13&#58;11&#58; Read      Socket handle&#58;       428   WSA Error&#58;         0    \n27/09/2007 01&#58;13&#58;11&#58; 220 win2003&#46;server&#46;com Microsoft ESMTP MAIL Service, Version&#58; 6&#46;0&#46;3790&#46;3959 ready at  Thu, 27 Sep 2007 01&#58;13&#58;59 -0600 \n    \n27/09/2007 01&#58;13&#58;11&#58; HELO smtp-client \n    \n27/09/2007 01&#58;13&#58;11&#58; Read      Socket handle&#58;       428   WSA Error&#58;         0    \n27/09/2007 01&#58;13&#58;11&#58; 250 win2003&#46;server&#46;com Hello     \n27/09/2007 01&#58;13&#58;11&#58; AUTH LOGIN \n    \n27/09/2007 01&#58;13&#58;11&#58; Read      Socket handle&#58;       428   WSA Error&#58;         0    \n27/09/2007 01&#58;13&#58;11&#58; 503 5&#46;5&#46;2 Send hello first&#46; \n[/code:16b69fwl]\n\nTodos los mensajes 5** indican un error, estoy buscando en google el porqué el server me esta pidiendo un \"Send hello first\"\n\nSi lo hago con una cuenta de yahoo , el server responde así.\n[code:16b69fwl]\n27/09/2007 01&#58;33&#58;39&#58; Connect	Socket handle&#58;       452	WSA Error&#58;         0	\n27/09/2007 01&#58;33&#58;39&#58; Write  	Socket handle&#58;       452	WSA Error&#58;         0	\n27/09/2007 01&#58;33&#58;39&#58; Read   	Socket handle&#58;       452	WSA Error&#58;         0	\n27/09/2007 01&#58;33&#58;39&#58; 220 smtp103&#46;plus&#46;mail&#46;sp1&#46;yahoo&#46;com ESMTP\n	\n27/09/2007 01&#58;33&#58;39&#58; HELO smtp-client\n	\n27/09/2007 01&#58;33&#58;39&#58; Read   	Socket handle&#58;       452	WSA Error&#58;         0	\n27/09/2007 01&#58;33&#58;39&#58; 250 smtp103&#46;plus&#46;mail&#46;sp1&#46;yahoo&#46;com\n	\n27/09/2007 01&#58;33&#58;39&#58; AUTH LOGIN\n	\n27/09/2007 01&#58;33&#58;39&#58; Read   	Socket handle&#58;       452	WSA Error&#58;         0	\n27/09/2007 01&#58;33&#58;39&#58; 334 VXNlcm5hbWU6\n	\n27/09/2007 01&#58;33&#58;39&#58; dmdfgdsg10ZDIwMDA=\n	\n27/09/2007 01&#58;33&#58;39&#58; Read   	Socket handle&#58;       452	WSA Error&#58;         0	\n27/09/2007 01&#58;33&#58;39&#58; 334 UGFzhytu37c3dvcmQ6\n	\n27/09/2007 01&#58;33&#58;39&#58; bWlzNWFtb3gfyhwrywtJlcw==\n	\n27/09/2007 01&#58;33&#58;40&#58; Read   	Socket handle&#58;       452	WSA Error&#58;         0	\n27/09/2007 01&#58;33&#58;40&#58; 535 authorization failed &#40;#5&#46;7&#46;0&#41;\n[/code:16b69fwl]\n\nY ahí si despues de AUTH LOGIN me responde con un aviso \"334\"\n\nAlguién ha trabajado es parte ?','',0,'gIA=','16b69fwl',1,0,'',18,0,0),(38512,8302,6,18,0,'200.67.188.236',1190908407,1,0,1,1,1,1,'','','[quote=&quot;carlos vargas&quot;:2fnuu4zi]me laegro que les funcione <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2fnuu4zi]\n\nAprovechando este tema.\n\nAlguno de ustedes a trabajado con la \"Autenticación de Windows\"','',0,'gA==','2fnuu4zi',1,0,'',18,0,0),(38513,8296,6,18,0,'200.67.188.236',1190908471,1,0,1,1,1,1,'','','Gracias Armando','',0,'gA==','13l7cyzv',1,0,'',18,0,0),(38514,8303,6,875,0,'64.76.108.182',1190908984,1,0,1,1,1,0,'','','Cuando presionas ESC se sale del Browse  o se queda alli?\n\n\nSi se sale del Browse entonces tienes que modificar el metodo KEYDOWN\nde la clase XBROWSE','',0,'gA==','13jxbydk',1,0,'',875,0,0),(38515,8080,6,492,0,'189.147.59.169',1190909417,1,0,1,1,1,1,'','','Hola Carlos\n\nEsto es exactamente lo que iba a buscar hoy, ya que me acaba de surgir la necesidad de grabar los datos de un arreglo, para despues recuperlos y aplicarlos a X proceso.\n\nEl detalle es que si agrego el campo memo a la base, me manda un error y me truena la app, si se lo quito trabaja normal, estoy linkando la DBFFTP.LIB.\n\nCualquier sugerencia al respecto es bienvenida  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos Amigo','',0,'gA==','2zu20kqb',1,0,'',492,0,0),(38516,8312,6,316,0,'213.97.245.163',1190912303,1,0,1,1,1,0,'','','Viktor,\nPrueba con EHLO en lugar de HELO, a ver si asi te acepta el AUTH LOGIN\n\nSaludos,\n\nCarlos.','',0,'gA==','1npn3bsr',1,0,'',316,0,0),(38517,8316,20,924,0,'81.208.36.89',1190912365,1,0,1,1,1,0,'','','Ho trovato !\nBasta rimuovere dal registro le voci : \nS32EVNT1.DLL\nSYMEVENT.SYS\nSYMEVNT.386','',0,'gA==','1sb8pdrw',1,0,'',924,0,0),(38518,2327,6,104,0,'201.58.155.157',1190912389,1,0,1,1,1,0,'','','Olá a todos,\n\nDesculpem-me mas tem muito tempo que postei este possível problema e não me lembro mais o que achei de errado na época  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nAbraços,\n\nRossine.','',0,'gA==','ymxqji21',1,0,'',104,0,0),(38519,8310,6,180,0,'88.23.56.68',1190912473,1,0,1,1,1,0,'','Re: Leer datos especifico de un XML','Hola Mario, un fichero XML lo puedes tratar como un fichero de texto plano y como tal solo tienes que localizar la cadena que quieras y extraer los caracteres que te interesen a partir de esa cadena.\nEjemplo:\n   cTexto=memoread( \"fichero.xml\" )\n   //\n   nHandle:=FOpen(\"fichero.xml\", FO_READWRITE + FO_SHARED)\n    //\n    nPos=AT(\"&lt;NODECLIENTE&gt;\",cTexto)\n     //\n     FSeek(nHandle,nPos+13)\n     FRead(nHandle,@cNumCliente,4)\n \n\nEspero te sirva.\n\nUn saludo,\nManuel Aranda\n\n[quote=&quot;MarioDava&quot;:1y452kqo]Hola a todos,\n\nRequiero leer datos especificos de una archivo XML, he intentado lo que  encontre aqui en el foro, pero no me funciona, por lo que requiero ayuda, lo que he notado es que la forma de mis XML es ligeramente diferente, anexo unas lineas de mi XML.\n\nPor ejemplo del siguiente codigo requiero leer el valor de:\n&lt;NODECLIENTE&gt; que es 1072\n\nComo lo hago?\n\n&lt;?xml version=\'1.0\' encoding=\'iso-8859-1\'?&gt;\n&lt;xml&gt;\n&lt;root&gt;\n&lt;PLACEHOLDER&gt;\n&lt;Content&gt;FAC001335082007&lt;/Content&gt;\n&lt;FOLDER_NAME&gt;200708&lt;/FOLDER_NAME&gt;\n&lt;OM.SEQUENCE&gt;233&lt;/OM.SEQUENCE&gt;\n&lt;OUTPUT_KIND&gt;O&lt;/OUTPUT_KIND&gt;\n&lt;OProt_Name&gt;Hardcopy&lt;/OProt_Name&gt;\n&lt;LTemplate_Name&gt;Factura XML&lt;/LTemplate_Name&gt;\n&lt;Contact_Country&gt;México&lt;/Contact_Country&gt;\n&lt;Contact_Formatted&gt;AMATISTA 780/\nVALLE DORADO (12), CP. 78399\nSan Luis Potosi\nSan Luis Potosí&lt;/Contact_Formatted&gt;\n&lt;Contact_ContactPerson&gt;VERONICA MARTINEZ ALMENDAREZ&lt;/Contact_ContactPerson&gt;\n&lt;Contact_FormattedLine4&gt;San Luis Potosí&lt;/Contact_FormattedLine4&gt;\n&lt;Contact_FormattedLine3&gt;San Luis Potosi&lt;/Contact_FormattedLine3&gt;\n&lt;Contact_FormattedLine2&gt;VALLE DORADO (12), CP. 78399&lt;/Contact_FormattedLine2&gt;\n&lt;Contact_FormattedLine1&gt;AMATISTA 780/&lt;/Contact_FormattedLine1&gt;\n&lt;CAcc_ExternalAccNumber&gt;728&lt;/CAcc_ExternalAccNumber&gt;\n&lt;CAcc_InternalAccNumber&gt;875&lt;/CAcc_InternalAccNumber&gt;\n&lt;CP_Type_Name&gt;Residencial&lt;/CP_Type_Name&gt;\n&lt;CP_TaxGroup_Name&gt;Básico&lt;/CP_TaxGroup_Name&gt;\n&lt;CP_TaxGroup_Symbol&gt;CPartyTaxGroup&lt;/CP_TaxGroup_Symbol&gt;\n&lt;CP_InternalCPNumber&gt;1072&lt;/CP_InternalCPNumber&gt;\n&lt;CP_ExternalCPNumber&gt;10097758&lt;/CP_ExternalCPNumber&gt;\n&lt;OP_Type_Name&gt;Provedor de facturación&lt;/OP_Type_Name&gt;\n&lt;OP_TaxGroup_Name&gt;Basic&lt;/OP_TaxGroup_Name&gt;\n&lt;OP_TaxGroup_Symbol&gt;BProviderTaxGroup&lt;/OP_TaxGroup_Symbol&gt;\n&lt;OP_InternalCPNumber&gt;26&lt;/OP_InternalCPNumber&gt;\n&lt;REFERENCE&gt;FACXML001372082007&lt;/REFERENCE&gt;\n&lt;OM.IssueDateDay&gt;20&lt;/OM.IssueDateDay&gt;\n&lt;OM.IssueDateMonth&gt;08&lt;/OM.IssueDateMonth&gt;\n&lt;OM.IssueDateYear&gt;2007&lt;/OM.IssueDateYear&gt;\n&lt;OItem_Id&gt;2532&lt;/OItem_Id&gt;\n&lt;PInstance_Id&gt;287&lt;/PInstance_Id&gt;\n&lt;/PLACEHOLDER&gt;\n&lt;EstadoDeCuenta&gt;\n&lt;NODECLIENTE&gt;1072&lt;/NODECLIENTE&gt;\n&lt;NODECUENTA&gt;875&lt;/NODECUENTA&gt;\n&lt;NODEFACTURA&gt;FAC001335082007&lt;/NODEFACTURA&gt;\n&lt;FECHADEEDICION&gt;20-08-2007&lt;/FECHADEEDICION&gt; \n\nAgradecer cualquier ayuda, igual si quieren contactarme directamente.\n\nMario A. Dávalos\nMexico, D.F.\n<!-- e --><a href=\"mailto:mariodava@hotamil.com\">mariodava@hotamil.com</a><!-- e -->[/quote:1y452kqo]','',0,'gA==','1y452kqo',1,0,'',180,0,0),(38520,8317,3,972,0,'81.164.117.81',1190912745,1,0,1,1,1,0,'','How to set a MENU in MDI Child window?','Hello,\n\nI have a MDI parent window with a menu. How can I have a different menu IN the MDI child window?\n\nIf I set a MENU to a MDI Child, the menu shows up in the MDI Parent window, and no menu is visible in the MDI child window.\n\nThank you.\n\nPatrick','',0,'gA==','3n3gma9v',1,0,'',972,0,0),(38521,8315,6,53,0,'189.139.25.59',1190912791,1,0,1,1,1,1,'','','Mis dos centavitos:\n\nPuedes utilizar un array y tal vez el proceso sea más rápido perooooooo si se trata de un punto de venta donde existe la posibilidad de que tengas que mantener cuentas abiertas mientras se revisa algo, pero debes iniciar a cobrar al siguiente cliente, yo te recomiendo que manejes DBFs, otra situación que te obliga a usar DBFs es cuando haya una falla de corriente eléctrica, al reiniciar deberas volver a registrar todos los productos que ya habias registrado hasta el momento de la falla de corriente (Normalmente la falla viene en el ultimo producto  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ) mientras que si utilizas DBFs podrás recuperar esa información.\n\nPor alternativas no te podras quejar, jeje\n\nSaludos','',0,'gA==','t2c6hlfn',1,0,'',53,0,0),(38522,8317,3,6,0,'87.20.218.83',1190913512,1,0,1,1,1,1,'','Re: How to set a MENU in MDI Child window?','You can\'t, as far as I know.\n\nEMG','',0,'gA==','3f9oql6b',1,0,'',6,0,0),(38523,8312,6,18,0,'200.67.188.236',1190914129,1,0,1,1,1,1,'','','[quote=&quot;Carlos Mora&quot;:ol18jv5b]Viktor,\nPrueba con EHLO en lugar de HELO, a ver si asi te acepta el AUTH LOGIN\n\nSaludos,\n\nCarlos.[/quote:ol18jv5b]\n\nHice pruebas de envio con una cuenta de yahoo con autenticación y por fin salierón todos los destinatarios de forma correcta.\n\nEl problema que tuve al momento de firmarme en el server de yahoo, era la clave, la función para pasar la cadena a base64 , no devuelve el valor correcto si la cadena es de tipo alfanumerica , si únicamente es alfabetica, el acceso es correcto.\n\nTodavía me falta resolver el acceso a un servidor Exchange.\n\nSaludos','',0,'gA==','ol18jv5b',1,0,'',18,0,0),(38524,8318,6,582,0,'190.138.25.247',1190914310,1,0,1,1,1,0,'','MySql - TMySql II','La TMySql solo sirve para xHarbour?\nAlguno la probo en Harbour.\nSi es asi que modificaciones le efectuo, ya que no puedo compilarla en Harbour.\n\nDesde ya muchas gracias.\nEl Loco =&gt;))','',0,'gA==','2fo1zmgm',1,0,'',582,0,0),(38525,8313,1,51,0,'80.122.88.242',1190914469,1,0,1,1,1,0,'','','Have you tried     winexec(\"test.exe\")?\n\nRegard\nOtto','',0,'gA==','qq4zl887',1,0,'',51,0,0),(38526,8080,6,110,0,'148.168.40.4',1190914489,1,0,1,1,1,1,'','','a ver, que te parece si lo miramos en detalle en el meseenger hoy por la tarde, luego publicamos los resultados aca mismo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nveremos en detalle lo que necesitas realizar.\n\nsalu2\ncarlos vargas','',0,'gA==','1bq0hlu1',1,0,'',110,0,0),(38527,8080,6,492,0,'189.147.59.169',1190915073,1,0,1,1,1,1,'','','Carlos :\n\nClaro que si, estare en linea.\n\nSaludos Amigo','',0,'gA==','2cuxwf1e',1,0,'',492,0,0),(38528,8317,3,972,0,'81.164.117.81',1190916124,1,0,1,1,1,0,'','Re: How to set a MENU in MDI Child window?','[quote=&quot;EnricoMaria&quot;:r2ybob0j]You can\'t, as far as I know.\nEMG[/quote:r2ybob0j]\n\nWhat I have so far is:\n1. Create MDI Parent with menu\n2. Create window with menu\n3. Use SetParent() to transform the regular window to a MDI child\n\nThis works as far as the menu. But, if I try to retrieve the coordinates of the newly MDI child window, they are not correct. It seems that the coordinates from the MDI child is calculated from left, top from SCREEN instead of left, top from the MDI parent. I\'m not sure yet, but it seems like that.\n\n\"Normal\" MDI child window coordinates are form left, top from MDI Parent.\n\nPatrick','',0,'gA==','r2ybob0j',1,0,'',972,0,0),(38529,8306,3,303,0,'72.220.100.171',1190916777,1,0,1,1,1,0,'','','Darrell,\n\nI don\'t know if either of these will work, but you can try:\n\n  SetForeGroundWindow( hWnd ) \n\nOr,\n\n  SetActiveWindow( hWnd )\n\nYou might also try a sysRefresh() afterward.\n\nJames','',0,'gA==','1xgi98sp',1,0,'',303,0,0),(38530,8319,6,198,0,'189.134.52.225',1190917336,1,0,1,1,1,1,'','valores de variables en ITEMS en ComboBox perdidas','Hola a todos!\n\nAlgo raro esta sucede y no se que es...\nTengo un programa que ya funcionaba perfectamente y ahora me manda error....\n\nAl seleccionar una opcion de un combo en lugar de tomar el valor de la variable toma el contenido del combo. ej.  tengo que la variable nSexo y puede tener solo los valores 1 o 2 pero se queda con el contenido del combo que puede ser Hombre o Mujer...  y uso muchos comobos y ahora todos hacen lo mismo...\n\ncodigo:\n\nnSexo:=1\n\nREDEFINE COMBOBOX oSexo  VAR nSexo   ID 119 OF oFld:aDialogs[ 1 ] ITEMS tSexo\n\naqui pregunto si nSexo=1 pero ahora nSexo tiene \'Mujer\'....\n\nerror:\n\nError description: Error BASE/1071  Argument error: =\n   Args:\n     [   1] = C   Mujer  \n     [   2] = N   1\n\nestar raro... y no doy <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nLaurel \n\nxh 0.99.71 /FWH7.01/BORLAND/WORKSHOP','',0,'','9g53vpb4',1,0,'',198,0,0),(38531,8306,3,234,0,'75.34.217.174',1190918225,1,0,1,1,1,1,'','','Hi James,\n\nThank you, I will try to use these two with ON INIT','',0,'','1mejsd9v',1,0,'',234,0,0),(38532,8320,6,53,0,'189.139.25.59',1190920087,1,0,1,1,1,1,'','OT BossEveryWare spam','Amigos disculpen el OT, resulta que desde hace varios dias cuando ejecuto el anti spamm xoftSe me detecta al BossEveryWare, lo limpia pero vuelve a aparecer.\n\nHasta donde se este virus copia lo tecleado y lo envia por correo, imaginan que se copien los passwords de sus cuentas bancarias ???   <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nHe probado con varios antivirus pero no lo puedo eliminar, en concreto, alguien sabe de algun buen antivirus para erradicarlo ?\n\nSaludos','',0,'','147guh71',1,0,'',53,0,0),(38533,8305,6,875,0,'64.76.108.182',1190924183,1,0,1,1,1,0,'','','demoro 5 horas   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> ,  pero excelente  <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->','',0,'','2mxdi53t',1,0,'',875,0,0),(38534,8321,6,78,0,'190.43.177.253',1190924331,1,0,1,1,1,0,'','Impresora Zebra','Hola amigos,,,\nEs posible imprimir codigos de barra en una imp. Zebra mediante FW???\n\nSalu2','',0,'','3jpqxerv',1,0,'',78,0,0),(38535,8317,3,2,0,'87.218.146.157',1190924478,1,0,1,1,1,1,'','','Patrick,\n\n&gt; 3. Use SetParent() to transform the regular window to a MDI child \n\nGood idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nBut, what window are you using as the parent ? Keep in mind that a MDI window contains a \"ghost\" window at DATA oWndClient, so SetParent() should be used this way:\n\nSetParent( oWndChild:hWnd, oWnd:oWndClient:hWnd )\n\nPlease let us know the results, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','t6cq4t88',1,0,'',2,0,0),(38536,8311,3,2,0,'87.218.146.157',1190924659,1,0,1,1,1,1,'','','Yes, there are lots of changes from 2006','',0,'','y7w9l8gy',1,0,'',2,0,0),(38537,8306,3,2,0,'87.218.146.157',1190924825,1,0,1,1,1,1,'','','Darrell,\n\nYou may also try:\n\nACTIVATE WINDOW oWnd2 NORMAL ;\nON INIT SetFocus( oWnd2:hWnd )','',0,'','10q3oy0h',1,0,'',2,0,0),(38538,8319,6,2,0,'87.218.146.157',1190925399,1,0,1,1,1,1,'','','Comprueba que este sea el código del método Change:\n[code:3gcg751t]\nMETHOD Change&#40;&#41; CLASS TComboBox\n\n   local cItem &#58;= GetWindowText&#40; &#58;&#58;hWnd &#41; // Current Value\n   local nAt\n\n   nAt = &#58;&#58;SendMsg&#40; CB_GETCURSEL &#41; + 1\n\n   if nAt == &#58;&#58;nAt &#46;and&#46; ! Empty&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41;\n      return nil\n   endif\n\n   &#58;&#58;nAt &#58;= nAt\n\n   if &#58;&#58;nAt != 0 &#46;and&#46; &#58;&#58;nAt &lt;= Len&#40; &#58;&#58;aItems &#41;\n      if ValType&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41; == &quot;N&quot;\n         Eval&#40; &#58;&#58;bSetGet, &#58;&#58;nAt &#41;\n      else\n         Eval&#40; &#58;&#58;bSetGet, &#58;&#58;aItems&#91; &#58;&#58;nAt &#93; &#41;\n      endif\n   endif\n\n   if &#58;&#58;oGet != nil                        // Always not nil for dropdown\n      &#58;&#58;oGet&#58;VarPut&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41;   // udate variable before calling bChange\n      &#58;&#58;oGet&#58;Refresh&#40;&#41;\n   endif\n\n   if &#58;&#58;bChange != nil\n      Eval&#40; &#58;&#58;bChange, Self, cItem &#41;\n   endif\n\nreturn nil\n[/code:3gcg751t]','',0,'AIA=','3gcg751t',1,0,'',2,0,0),(38539,8306,3,234,0,'75.34.217.174',1190925434,1,0,1,1,1,1,'','','Thank you James and Antonio; I tried all three with and without sysrefresh() and it did not work. Any chance it has something to do wiht IE7?','',0,'AIA=','1s3kxoiy',1,0,'',234,0,0),(38540,8318,6,2,0,'87.218.146.157',1190925469,1,0,1,1,1,1,'','','Miguel Angel,\n\nQue errores te dá al compilar con Harbour ?','',0,'AIA=','antb12lg',1,0,'',2,0,0),(38541,8274,18,2,0,'87.218.146.157',1190925548,1,0,1,1,1,1,'','','Solo tienes que añadir una referencia al objeto:\n\nREDEFINE BUTTONBMP [color=red:2k8qvuuc]oBmp [/color:2k8qvuuc]BITMAP \"BMPCALEN\" ID 600 OF oDlg ACTION ( MsgDate(Nil, \"Seleccione una fecha\", oGet) ) MESSAGE \"Calendario\"','',0,'Ag==','2k8qvuuc',1,0,'',2,0,0),(38542,8306,3,2,0,'87.218.146.157',1190925616,1,0,1,1,1,1,'','','Darrell,\n\nCould you provide a small and self contained sample to test it here ? thanks','',0,'Ag==','2y6dhagb',1,0,'',2,0,0),(38543,8310,6,931,0,'201.159.1.211',1190926152,1,0,0,0,1,0,'','','Manuel, te agradezco tu tip\n\nY si efectivamente ya lo habia pensado manipularlo con funciones de bajo nivel, pero antes de llegar a eso voy atratar con la clase XMLRead, que me entero no es free.\n\nAunque te sere sincero, como lo dije solo quiero traer algunos datos y realmente no se si sea lo mas convieniente esta calse o tratarlo como texto plano.\n\nSi alguien sabe la diferencia, estaría bueno el comentario.\n\nGracias Miguel','',0,'Ag==','2su8coql',1,0,'',931,0,0),(38544,8310,6,931,0,'201.159.1.211',1190926489,1,0,1,1,1,0,'','','Asi es Armando, Grupo Olympus, si no mal recuerdo, pero veo que no estas en el D.F., donde andas?\n\nPor ciero todavia no pruebo la XMLRead, pero es exactamente lo que ando buscando, gracias\n\nUn abrazo\n\n[quote=&quot;Armando&quot;:20xtue6m]Mario:\n\nCreo que sí, en las estulticias de las reuniones que teniamos con el mal logrado grupo de programadores de FW.\n\nSaludos[/quote:20xtue6m]','',0,'gA==','20xtue6m',1,0,'',931,0,0),(38545,8322,2,850,0,'201.255.105.169',1190926891,1,0,1,1,1,0,'','Mensaje al abrir el primer archivo','Al ejecutar un programa, en la primer tabla dbf que abro, aparece un mensanje con el nombre de la tabla que estoy abriendo, simil msginfo().\n\nEsto empezo a pasar cuando comenzamos a compilar con la version 8.1 de ADS.\n\nClipper 5.2 + FiveWin 7.01 + Blinker 7 + Ads 8.1 Sobre servidor Novell 5\n\nDesde ya muchas gracias\n\nAndres','',0,'gA==','3fglj3gp',1,0,'',850,0,0),(38546,8310,6,24,0,'88.11.253.72',1190927129,1,0,1,1,1,1,'','Re:','[quote=&quot;MarioDava&quot;:3ef36ipn]Asi es Armando, Grupo Olympus, si no mal recuerdo, pero veo que no estas en el D.F., donde andas?\n\nPor ciero todavia no pruebo la XMLRead, pero es exactamente lo que ando buscando, gracias\n\nUn abrazo\n\n[quote=&quot;Armando&quot;:3ef36ipn]Mario:\n\nCreo que sí, en las estulticias de las reuniones que teniamos con el mal logrado grupo de programadores de FW.\n\nSaludos[/quote:3ef36ipn][/quote:3ef36ipn]\n\nEn este grupo hay publicado unos mensajes mios sobre ;\n1.- Como leer un XML\n2.- Como guardar un XML.\n\nBusca los articulos mios por aqui, que tienen que estar y te \nserán de gran ayuda.','',0,'gA==','3ef36ipn',1,0,'',24,0,0),(38547,8319,6,198,0,'189.134.52.225',1190928584,1,0,1,1,1,1,'','','Hola de nuevo!\n\nYa revise y si  esta exactamente igual....\n¿que más reviso?\n\nLaurel\n[quote=&quot;Antonio Linares&quot;:2u4a1gdm]Comprueba que este sea el código del método Change:\n[code:2u4a1gdm]\nMETHOD Change&#40;&#41; CLASS TComboBox\n\n   local cItem &#58;= GetWindowText&#40; &#58;&#58;hWnd &#41; // Current Value\n   local nAt\n\n   nAt = &#58;&#58;SendMsg&#40; CB_GETCURSEL &#41; + 1\n\n   if nAt == &#58;&#58;nAt &#46;and&#46; ! Empty&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41;\n      return nil\n   endif\n\n   &#58;&#58;nAt &#58;= nAt\n\n   if &#58;&#58;nAt != 0 &#46;and&#46; &#58;&#58;nAt &lt;= Len&#40; &#58;&#58;aItems &#41;\n      if ValType&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41; == &quot;N&quot;\n         Eval&#40; &#58;&#58;bSetGet, &#58;&#58;nAt &#41;\n      else\n         Eval&#40; &#58;&#58;bSetGet, &#58;&#58;aItems&#91; &#58;&#58;nAt &#93; &#41;\n      endif\n   endif\n\n   if &#58;&#58;oGet != nil                        // Always not nil for dropdown\n      &#58;&#58;oGet&#58;VarPut&#40; Eval&#40; &#58;&#58;bSetGet &#41; &#41;   // udate variable before calling bChange\n      &#58;&#58;oGet&#58;Refresh&#40;&#41;\n   endif\n\n   if &#58;&#58;bChange != nil\n      Eval&#40; &#58;&#58;bChange, Self, cItem &#41;\n   endif\n\nreturn nil\n[/code:2u4a1gdm][/quote:2u4a1gdm]','',0,'gIA=','2u4a1gdm',1,0,'',198,0,0),(38548,8321,6,450,0,'200.245.0.8',1190929594,1,0,1,1,1,1,'','','Olá Willi\n\nVeja se te serve...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=749\">http://www.fivewin.com.br/exibedicas.asp?id=749</a><!-- m -->\n\nou\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=812\">http://www.fivewin.com.br/exibedicas.asp?id=812</a><!-- m -->\n\nEspero que te sirva...\n\nSaludos','',0,'gIA=','268ekuxc',1,0,'',450,0,0),(38549,8323,6,198,0,'189.134.52.225',1190931248,1,0,1,1,1,1,'','Sigo con los valores perdidos de los items','Hola Antonio!\n\nYa revise lo que me indicaste del metodo CHANGE... esta exactamente igual...¿que otra cosa puedo revisar...?  estoy atorada y no se que más hacer.\n\nGracias\n\nLaurel','',0,'gIA=','3q9gtgry',1,0,'',198,0,0),(38550,8324,6,18,0,'200.67.188.236',1190932097,1,0,1,1,1,1,'','String connection para MSSQL 2000','Saludos a todos :\n\nEstoy usando ADO y necesito conectarme a un servidor local usando la autenticación de windows.\n\nBuscando en Internet la cadena que encontré es esta :\n\nProvider=SQLNCLI;Server=myServerAddress;Database=myDataBase;Trusted_Connection=yes;\n\nPero los intentos de conexión son nulos.\n\nAlguien ya lo ha hecho así ?','',0,'gIA=','sngg75m1',1,0,'',18,0,0),(38551,8322,2,138,0,'200.24.40.34',1190932520,1,0,1,1,1,1,'','','Efectivamente, ese un problema con la version ADS 8.1 y el cliente para Clipper.\n\nDesafortunadamente ya no existe soporte para Clipper en la version 8.1 de ADS, aunque puedes utilizar el cliente de la version 7.1, sin embargo no te garantizo resultados correctos.\n\nMi recomendacion, pasar a (x)Harbour y utilizar el RDD nativo RDDADS que funciona espectacularmente bien.','',0,'gIA=','18rt7rpr',1,0,'',138,0,0),(38552,8323,6,2,0,'87.218.146.157',1190932717,1,0,1,1,1,1,'','','Este ejemplo funciona bien aqui. Por favor pruébalo y dime si funciona bien:\n[code:3957rvsz]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, nValor &#58;= 1\n\n   DEFINE DIALOG oDlg\n\n   @ 1, 2 COMBOBOX nValor ITEMS &#123; &quot;Hombre&quot;, &quot;Mujer&quot; &#125; \n\n   @ 2, 10 BUTTON &quot;Valor&quot; ACTION MsgInfo&#40; nValor &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n[/code:3957rvsz]','',0,'AIA=','3957rvsz',1,0,'',2,0,0),(38553,8294,3,1151,0,'203.173.217.216',1190932989,1,0,1,1,1,0,'','','Still left with Window Icon problem. \n\nView MDI window problem at \n\n<!-- m --><a class=\"postlink\" href=\"http://profile.imageshack.us/user/testmdi6\">http://profile.imageshack.us/user/testmdi6</a><!-- m -->\n\nParent Icon shows correctly.\nFirst child window icon shows correctly.\nSecond and third icons replicate the first child window - incorrectly.\nTried reassigning and refreshing second and third child icons\nafter opening without success.','',0,'AIA=','1xqhno61',1,0,'',1151,0,0),(38554,8306,3,303,0,'72.220.100.171',1190933174,1,0,1,1,1,0,'','','Darrell,\n\nThis works for fine here (and it is visible):\n\n[code:31lhq8qs]// Test ActiveX\n\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd,oActiveX\n\n   DEFINE WINDOW oWnd\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\n   oWnd&#58;oClient = oActiveX\n   oActiveX&#58;Do&#40; &quot;Navigate2&quot;, &quot;www&#46;microsoft&#46;com&quot; &#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil[/code:31lhq8qs]','',0,'AIA=','31lhq8qs',1,0,'',303,0,0),(38555,8323,6,198,0,'189.134.52.225',1190933757,1,0,1,1,1,1,'','','Hola!\n\nSi funciona....  y tambien me funcionaba... que raro.... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nLaurel','',0,'AIA=','1ebnigb3',1,0,'',198,0,0),(38556,8323,6,198,0,'189.134.52.225',1190933854,1,0,1,1,1,1,'','','¿Qué crees que estará afectando??\n\ny lo peor es que no solo a mi me paso... tambien le sucede lo mismo a un compañero que ya tenía funcionando su programa...\n\nGracias.\n\nLaurel','',0,'AIA=','3ah258rh',1,0,'',198,0,0),(38557,8324,6,935,0,'200.62.78.147',1190935151,1,0,1,1,1,1,'','viktor, asi lo uso','Viktor,\n\nprueba asi,\n\noCon2:Open:=(\"Driver={SQL Server};Server=(local);Database=prestamo1;Trusted_Connection=Yes\")\n\nSaludos\n\nRamon Paredes\nManagua Nicaragua','',0,'AIA=','venqsmh3',1,0,'',935,0,0),(38558,8325,6,743,0,'201.116.76.180',1190936074,1,0,1,1,1,0,'','ayuda en indices','tengo el siguiente problema, creo un indice compuesto por tres valores\n\nquiero por medio de este filtrar informacion en un browse, y utilizo OrdScope(), pero no me muestra nada codigo es el siguiente \n\n (nDSerD)-&gt;( OrdScope( 0, nKey ))\n (nDSerD)-&gt;( OrdScope( 1, nKey ))\n (nDSerD)-&gt;( DbGoTop() )\n REDEFINE LISTBOX dbServi             ;\n          FIELDS (nDSerD)-&gt;Servicio   ;\n          HEADER \" Servicio\"          ;\n          SIZES  95                   ;\n          ID 102 OF oDlt UPDATE       ;\n          ALIAS (nDSerD)-&gt;( ALIAS() )\n\n dbServi:nLineStyle    := 5\n dbServi:nHeaderHeight := 30\n dbServi:nLineHeight   := 20\n dbServi:aHJustify     := { 0, 0, 0 }\n\n dbServi:lAdjLastCol    := .F.\n dbServi:lAdjBrowse    := .T.\n dbServi:lCellStyle      := .T.\n\n nkey es la llave compuesta, alguna otra manera pero sin el set filter, que estoy haciendo mal','',0,'AIA=','2y1tyepp',1,0,'',743,0,0),(38559,8318,6,582,0,'190.138.25.247',1190938163,1,0,1,1,1,0,'','','MAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	C:\\zSys\\Harbour\\Bin\\harbour.exe tmysql.prg -q0 -w -es2 -gc0 -n -iC:\\zSys\\Harbour\\Include;C:\\MySql\\Include -o.\\obj\\tmysql.c\n\ntmysql.prg(579) Error E0020  Incomplete statement or unbalanced delimiters\n\ntmysql.prg(1021) Error E0020  Incomplete statement or unbalanced delimiters\n\ntmysql.prg(1152) Error E0030  Syntax error: \"syntax error at \'IN\'\"\n\ntmysql.prg(1160) Error E0030  Syntax error: \"syntax error at \'IN\'\"\n\ntmysql.prg(1181) Error E0030  Syntax error: \"syntax error at \'END\'\"\n\ntmysql.prg(1302) Error E0020  Incomplete statement or unbalanced delimiters\n\ntmysql.prg(1519) Error E0020  Incomplete statement or unbalanced delimiters\n\ntmysql.prg(1595) Error E0020  Incomplete statement or unbalanced delimiters\n\ntmysql.prg(1660) Error E0017  Unclosed control structure: \'IF\'\n\n9 errors\n\nNo code generated\n\n** error 1 ** deleting .\\obj\\tmysql.c\n\n\n\nUn abrazo. El Loco =&gt;))','',0,'AIA=','3vz0q5tx',1,0,'',582,0,0),(38560,8325,6,121,0,'189.138.162.178',1190939170,1,0,1,1,1,1,'','','creo que solo te falta un select\n\nsele ndserd\ngo bottom\n...listbox...','',0,'AIA=','205cxin2',1,0,'',121,0,0),(38561,8325,6,121,0,'189.138.162.178',1190939244,1,0,1,1,1,1,'','','perdon\n\nselect ndserd\ngo top','',0,'AIA=','1sxah15q',1,0,'',121,0,0),(38562,8326,6,1106,0,'190.64.148.235',1190941970,1,0,1,1,1,0,'','xBrowse -&gt; Footers Calculo de totales de  esa columna??','Amigos:\n\nDisculpen otra vez la lata con xBrowse... \nnecesito saber como calculo el total de cada columna de un xBrowse\npara colocarla en los footers.\n\nMuchas gracias.\n\n\nRuben Fernandez.','',0,'AIA=','3s1glb5t',1,0,'',1106,0,0),(38563,8267,3,233,0,'218.208.251.40',1190945204,1,0,1,1,1,0,'','','Thanks for the link James','',0,'AIA=','2lj1zf32',1,0,'',233,0,0),(38564,8324,6,18,0,'189.144.161.123',1190946808,1,0,1,1,1,1,'','Re: viktor, asi lo uso','[quote=&quot;Ramon Paredes&quot;:1neuhy7k]Viktor,\n\nprueba asi,\n\noCon2:Open:=(\"Driver={SQL Server};Server=(local);Database=prestamo1;Trusted_Connection=Yes\")\n\nSaludos\n\nRamon Paredes\nManagua Nicaragua[/quote:1neuhy7k]\n\n¡¡¡ listo el pollo !!!\n\nSolución :\nCambiar en el servidor la autentificación estándar.','',0,'gA==','1neuhy7k',1,0,'',18,0,0),(38565,8323,6,2,0,'87.218.146.157',1190951366,1,0,1,1,1,1,'','','Laurel,\n\nComprueba que la variable que almacena el valor inicial sea de tipo numérico:\n\nlocal oDlg, [color=red:1tahw8w6]nValor := 1[/color:1tahw8w6]\n\n@ 1, 2 COMBOBOX [color=red:1tahw8w6]nValor[/color:1tahw8w6] ITEMS { \"Hombre\", \"Mujer\" }','',0,'Ag==','1tahw8w6',1,0,'',2,0,0),(38566,8325,6,854,0,'189.131.28.200',1190953640,1,0,1,1,1,0,'','','Tomafa, yo lo hago asi :\n\n        Select MAEREMIS\n	DbGoBottom()\n	Select DETREMIS\n	OrdSetFocus(1)    // Este es mi indice\n	Set Scope To MAEREMIS-&gt;NUMERO,MAEREMIS-&gt;NUMERO\n	DbGoTop()\n        \n        // Este es mi lisbox y funciona muy bien    \n        REDEFINE LISTBOX oBrowD Fields DETREMIS-&gt;PRODUCTO,Transform(DETREMIS-&gt;CANTIDAD,\"9,999\"),Transform(DETREMIS-&gt;PRECIO,\"99,999.99\"),Transform(DETREMIS-&gt;IMPORTE,\"9,999.99\"),DETREMIS-&gt;NOMBRE  Header \"Producto\",\"Cantidad\",\"Precio\",\"Importe\",\"Nombre\"  ID 102 OF oDlg UpDate Alias \"DETREMIS\"','',0,'Ag==','36s68b35',1,0,'',854,0,0),(38567,8317,3,972,0,'81.164.117.81',1190958193,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:qz8xdg62]&gt; 3. Use SetParent() to transform the regular window to a MDI child \n\nGood idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nBut, what window are you using as the parent ? Keep in mind that a MDI window contains a \"ghost\" window at DATA oWndClient, so SetParent() should be used this way:\n\nSetParent( oWndChild:hWnd, oWnd:oWndClient:hWnd )\n\nPlease let us know the results, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:qz8xdg62]\n\nYes, correct, I use:\n[code:qz8xdg62]\nSetParent&#40; oWndChild&#58;hWnd, oWndParent&#58;oWndClient&#58;hWnd &#41;\n[/code:qz8xdg62]\nMaybe it\'s simpler to modify MDIChild.prg class to accept menu?\n\nIt looks like SetParent() also does not add the oWndParent:oWndClient:aWnd. Or do I need to add it manually to it?\n\nPatrick.','',0,'gIA=','qz8xdg62',1,0,'',972,0,0),(38568,8327,3,1117,0,'203.144.143.5',1190959618,1,0,1,1,1,0,'','OpenComm more than one port in the same time','I found the problem with Opencomm function.\nIn FW the result for nComm1=0 and nComm2=2 but in FWH result of nComm1 and nComm2 are the same = 1, So I cannot open more than one port in the same time\n\n( Can I open port more than 9 ports )\n\nfunction Main()\n\n   local cDcb1,nError1\n   local nComm1 := OpenComm( \"COM1\", 1024, 128 )\n\n   local cDcb2,nError2\n   local nComm2 := OpenComm( \"COM3\", 1024, 128 )\n\n   msginfo(\"Port1 = \"+str(nComm1))\n   msginfo(\"Port2 = \"+str(nComm2))\n\nreturn nil','',0,'gIA=','2z8onr7e',1,0,'',1117,0,0),(38569,8326,6,838,0,'80.34.222.112',1190961301,1,0,1,1,1,0,'','','En este listbox, pongo los nombres de los conductores, la suma de los importes mensuales en cada columna, y en los footers, los totales por mes.\nA ver si te sirve\n\n[code:25tsp6m4]  @ 30,0 LISTBOX oLbx FIELDS &#40;aAlias&#91;26&#93;&#41;-&gt;Codigo,;\n                               &#40;aAlias&#91;26&#93;&#41;-&gt;Nombre,;\n                               transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO01+&#40;aAlias&#91;26&#93;&#41;-&gt;CR01&#41;,Publicas&#58;cPic&#41;,;\n                               transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO02+&#40;aAlias&#91;26&#93;&#41;-&gt;CR02&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO03+&#40;aAlias&#91;26&#93;&#41;-&gt;CR03&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO04+&#40;aAlias&#91;26&#93;&#41;-&gt;CR04&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO05+&#40;aAlias&#91;26&#93;&#41;-&gt;CR05&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO06+&#40;aAlias&#91;26&#93;&#41;-&gt;CR06&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO07+&#40;aAlias&#91;26&#93;&#41;-&gt;CR07&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO08+&#40;aAlias&#91;26&#93;&#41;-&gt;CR08&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO09+&#40;aAlias&#91;26&#93;&#41;-&gt;CR09&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO10+&#40;aAlias&#91;26&#93;&#41;-&gt;CR10&#41;,Publicas&#58;cPic&#41;,;\n                               transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO11+&#40;aAlias&#91;26&#93;&#41;-&gt;CR11&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;CO12+&#40;aAlias&#91;26&#93;&#41;-&gt;CR12&#41;,Publicas&#58;cPic&#41;,;\n			       transform&#40;&#40;&#40;aAlias&#91;26&#93;&#41;-&gt;Tot&#41;,Publicas&#58;cPic&#41;;\n                               HEADER &quot; Código &quot;,&quot;Nombre&quot;,&quot; Enero &quot;,&quot; Febrero &quot;,&quot; Marzo &quot;,&quot; Abril &quot;,&quot; Mayo &quot;,&quot; Junio &quot;,&quot; Julio &quot;,&quot; Agosto &quot;,&quot; Sepbre &quot;,&quot; Octubre &quot;,&quot; Novbre &quot;,&quot; Dicbre &quot;,&quot; Total &quot;;\n                               FIELDSIZES 35,200,52,52,52,52,52,52,52,52,52,52,52,52,52;\n                               ALIAS aAlias&#91;26&#93;;\n			       CURSOR oCurdedo;\n			       COLOR CLR_BLACK, nRGB&#40;226,226,208&#41; ;\n			       ON LEFT DBLCLICK  &#40;iif&#40;!&#40;aAlias&#91;26&#93;&#41;-&gt;&#40;eof&#40;&#41;&#41; &#46;and&#46; Publicas&#58;cAccesoM,&#40;cTitulo&#58;=&quot;Modificación de Conductores &quot;,Enconduc&#40;cTitulo,&quot;M&quot;,aAlias,aoDbf&#41;,oLbx&#58;Refresh&#40;&#41;&#41;,&#46;T&#46;&#41;&#41;;\n			       OF oDlg;\n			       PIXEL\n	oLbx&#58;nLineStyle &#58;= 1\n	oLbx&#58;nClrBackHead &#58;= RGB&#40;248,191,36&#41;\n	oLbx&#58;lDrawFooters&#58;= &#46;T&#46;\n	oLbx&#58;aFooters &#58;= &#123;&quot;&quot;, &quot;Total por Mes&#46;&#46;&#46;&#46;&#46;&quot;, Trans&#40;Publicas&#58;tMes&#91;1&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;2&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;3&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;4&#93;,Publicas&#58;cPic &#41;,;\n                    Trans&#40;Publicas&#58;tMes&#91;5&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;6&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;7&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;8&#93;,Publicas&#58;cPic &#41;, ;\n		    Trans&#40;Publicas&#58;tMes&#91;9&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;10&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;11&#93;,Publicas&#58;cPic &#41;, Trans&#40;Publicas&#58;tMes&#91;12&#93;,Publicas&#58;cPic &#41;,Trans&#40;Publicas&#58;ntotal,Publicas&#58;cPic &#41;&#125;\n	oLbx&#58;bKeyChar &#58;= &#123; | nKey, nFlags | ;\n              iif &#40;nKey == 43 &#46;or&#46; nKey == 65 &#46;or&#46; nKey == 97,;\n                          &#40;Enconduc&#40;cTitulo,&quot;A&quot;,aAlias,aoDbf&#41;, oLbx&#58;Refresh&#40;&#41;&#41;, &#41;,;\n              iif &#40;nKey == 66 &#46;or&#46; nKey == 98,;\n                          &#40;Borrar&#40;aAlias&#91;26&#93;,&#40;aAlias&#91;26&#93;&#41;-&gt;nombre,\'Conductor nombre&#58; \'&#41;,oLbx&#58;UpStable&#40;&#41;, oLbx&#58;Refresh&#40;&#41;&#41;, &#41;,;\n              iif &#40;nKey == 77 &#46;or&#46; nKey == 109,  ;\n                          &#40;Enconduc&#40;cTitulo,&quot;M&quot;,aAlias,aoDbf&#41;,oLbx&#58;Refresh&#40;&#41; &#41;, &#41; &#125;\n	oLbx&#58;nClrPane&#58;=&#123;||iIF&#40;&#40;oLbx&#58;cAlias&#41;-&gt;&#40;OrdKeyNo&#40;&#41;&#41;%2==0,nRGB&#40;242,247,252&#41;,nRGB&#40;226,226,208&#41;&#41;&#125;\n	oLbx&#58;nClrfBack &#58;= RGB&#40;196,229,244&#41;//&#40;3,187,85&#41;\n	oLbx&#58;aJustify &#58;= &#123;&#46;T&#46;,&#46;F&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;&#125;\n	oLbx&#58;aHJustify &#58;= &#123;2,2,2,2,2,2,2,2,2,2,2,2,2,2,2&#125;\n	OlBX&#58;nFooterStyle&#58;=11[/code:25tsp6m4]\n\nSaludos\n\nJose Luis','',0,'AIA=','25tsp6m4',1,0,'',838,0,0),(38570,8317,3,2,0,'87.218.146.157',1190962372,1,0,1,1,1,1,'','','Patrick,\n\n&gt; Maybe it\'s simpler to modify MDIChild.prg class to accept menu? \n\nWe can\'t as it is a Windows built-in class, and it manages the menu automatically\n\n&gt;\nIt looks like SetParent() also does not add the oWndParent:oWndClient:aWnd. Or do I need to add it manually to it? \n&gt;\n\nyes, add it manually','',0,'AIA=','3gy7hzfs',1,0,'',2,0,0),(38571,8317,3,6,0,'87.18.233.114',1190962541,1,0,1,1,1,1,'','','Patrick, but at the end, why do you want to do such a non-standard thing?\n\nEMG','',0,'AIA=','yjps7yrf',1,0,'',6,0,0),(38572,8327,3,6,0,'87.18.233.114',1190962655,1,0,1,1,1,1,'','Re: OpenComm more than one port in the same time','Yes, FWH communication management is currently limited to one port at a time, as far as I know.\n\nEMG','',0,'AIA=','125lsuny',1,0,'',6,0,0),(38573,8328,3,2,0,'87.218.146.157',1190962780,1,0,1,1,1,1,'','FWH - New 2007 look in your buttonbars !!!','Without changing your source code! As easy as doing this:\n[code:25asqkqi]\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60\n   oBar&#58;l2007 = &#46;T&#46;\n[/code:25asqkqi]\nTest the demo: <!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/58791747/bb2007.zip.html\">http://rapidshare.com/files/58791747/bb2007.zip.html</a><!-- m -->\n\nSee the results <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->   To be included in FWH 7.10\n[url=http&#58;//imageshack&#46;us:25asqkqi][img:25asqkqi]http&#58;//img246&#46;imageshack&#46;us/img246/1430/bbarty1&#46;png[/img:25asqkqi][/url:25asqkqi]','',0,'GIA=','25asqkqi',1,0,'',2,0,0),(38574,8328,3,6,0,'87.18.233.114',1190962877,1,0,1,1,1,1,'','Re: FWH - New 2007 look in your buttonbars !!!','Great! I can\'t wait for testing it here. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'GIA=','u21vh9u4',1,0,'',6,0,0),(38575,8329,6,2,0,'87.218.146.157',1190962958,1,0,1,1,1,1,'','FWH - Nueva apariencia de Office 2007 en las buttonbars !!!','Sin modificar el código fuente! Tan fácil como hacer:\n[code:3uvi0qqj]\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60\n   oBar&#58;l2007 = &#46;T&#46;\n[/code:3uvi0qqj]\nPrueba la demo: <!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/58791747/bb2007.zip.html\">http://rapidshare.com/files/58791747/bb2007.zip.html</a><!-- m -->\n\nMira los resultados <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->   Será incluido en FWH 7.10\n[url=http&#58;//imageshack&#46;us:3uvi0qqj][img:3uvi0qqj]http&#58;//img246&#46;imageshack&#46;us/img246/1430/bbarty1&#46;png[/img:3uvi0qqj][/url:3uvi0qqj]','',0,'GIA=','3uvi0qqj',1,0,'',2,0,0),(38576,8317,3,972,0,'81.164.117.81',1190967198,1,0,1,1,1,0,'','','[quote=&quot;EnricoMaria&quot;:67xh51bn]Patrick, but at the end, why do you want to do such a non-standard thing?\nEMG[/quote:67xh51bn]\nOn popular request by my clients.\n\nPatrick','',0,'gA==','67xh51bn',1,0,'',972,0,0),(38577,8274,18,1146,0,'87.223.165.162',1190967316,1,0,1,1,1,0,'','','Antonio,\n\n¿Tan complicado es que añadas el método a la clase?. Por favor, no te lo pido para hoy, pero creo que no lleva tiempo y es necesario <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->. ¿Por qué dos clases que hacen lo mismo tienen sintaxis diferente?.\n\nMuchas gracias. Un saludo','',0,'gA==','3s7yqc60',1,0,'',1146,0,0),(38578,8317,3,972,0,'81.164.117.81',1190967753,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:195phusn]Patrick,\n\n&gt; Maybe it\'s simpler to modify MDIChild.prg class to accept menu? \n\nWe can\'t as it is a Windows built-in class, and it manages the menu automatically\n\n&gt;\nIt looks like SetParent() also does not add the oWndParent:oWndClient:aWnd. Or do I need to add it manually to it? \n&gt;\n\nyes, add it manually[/quote:195phusn]\n\nOk, so only option is to enhance working with  SetParent() correct?\n\nAfter SetParent(), can I simply do Aadd( oWndParent:oWndClient:aWnd, oWndChild ) ?\n\nOr should SetParent() take care of?\n\nPatrick','',0,'gA==','195phusn',1,0,'',972,0,0),(38579,8317,3,972,0,'81.164.117.81',1190969697,1,0,1,1,1,0,'','','Antonio,\n\nThis is a reduced sample that shows the Setparent() coordinatio problem:\n\n[code:1m1jexvv]#include &quot;fivewin&#46;ch&quot;\n\nSTATIC oWndParent\n\nPROCEDURE Main\n\n   LOCAL oMenu\n\n   MENU oMenu\n        MENUITEM &quot;Menu&quot;\n        MENU\n           MENUITEM &quot;New Regular window&quot; ;\n              ACTION NewWindow2&#40;&#46;F&#46;,&quot;Regular window&quot;&#41;\n              \n           MENUITEM &quot;New regular MDI Child window&quot; ;\n              ACTION NewWindow1&#40;&quot;Regular MDI Child window&quot;&#41;\n              \n           MENUITEM &quot;New MDI Child window via Setparent&#40;&#41;&quot; ;\n              ACTION NewWindow2&#40;&#46;T&#46;,&quot;MDI Child window via Setparent&#40;&#41;&quot;&#41;\n              \n           SEPARATOR     \n           \n           MENUITEM &quot;Show Len&#40;oWndParent&#58;oWndClient&#58;aWnd&#41;&quot; ;\n              ACTION MsgInfo&#40; Len&#40;oWndParent&#58;oWndClient&#58;aWnd&#41; &#41;\n              \n        ENDMENU     \n   ENDMENU\n\n   DEFINE WINDOW oWndParent ;\n          MENU oMenu ;\n          FROM 10,10 TO 50,99 ;\n          TITLE &quot;Test MDI Child with Setparent&#40;&#41;&quot; ;\n          MDI\n\n   ACTIVATE WINDOW oWndParent\n\nRETURN\n\n//-------------------------------------------------------------//\n\nPROCEDURE NewWindow1&#40;cTitle&#41;\n\n   LOCAL oWndChild\n\n   DEFINE WINDOW oWndChild;\n          MDICHILD;\n          OF oWndParent\n   \n   ACTIVATE WINDOW oWndChild;\n            ON MOVE ShowCoordinates&#40;oWndChild,cTitle&#41; ;\n            ON RESIZE ShowCoordinates&#40;oWndChild, cTitle&#41; ;\n            ON PAINT ShowCoordinates&#40;oWndChild, cTitle&#41;\n\nRETURN NIL\n\n//-------------------------------------------------------------//\n\nPROCEDURE NewWindow2&#40;lMDIChild,cTitle&#41;\n\n   LOCAL oWndChild,oMenu\n\n   MENU oMenu\n        MENUITEM &quot;File&quot;\n        MENU\n           MENUITEM &quot;Show coordinates&quot;;\n              ACTION MsgInfo&#40; ShowCoordinates&#40;oWndChild, cTitle&#41; &#41;\n        ENDMENU     \n   ENDMENU\n\n   DEFINE WINDOW oWndChild;\n          MENU oMenu\n   \n   ACTIVATE WINDOW oWndChild;\n            ON MOVE ShowCoordinates&#40;oWndChild, cTitle&#41; ;\n            ON RESIZE ShowCoordinates&#40;oWndChild, cTitle&#41; ;\n            ON PAINT ShowCoordinates&#40;oWndChild, cTitle&#41;\n\n   IF lMDIChild\n      SetParent&#40; oWndChild&#58;hWnd, oWndParent&#58;oWndClient&#58;hWnd &#41;\n    //Aadd&#40; oWndParent&#58;oWndClient&#58;aWnd, oWndChild &#41;\n   ENDIF\n\nRETURN NIL\n\n//-------------------------------------------------------------//\n\nFUNCTION ShowCoordinates&#40;oWndChild,cTitle&#41;\n\n   LOCAL aStart, cPos, aClntArea\n   \n   aClntArea&#58;=GetClientRect&#40;oWndParent&#58;hWnd&#41;\n   oWndChild&#58;Normal&#40;&#41;\n   aStart&#58;=&#123;aClntArea&#91; 1&#93;,aClntArea&#91; 2&#93;&#125;\n   ClientToScreen&#40;oWndParent&#58;hWnd,aStart&#41;\n   oWndChild&#58;CoorsUpdate&#40;&#41;\n\n   cPos&#58;=LTrim&#40;Str&#40;oWndChild&#58;nTop    ,4,0&#41;&#41;+&quot;,&quot;+;\n         LTrim&#40;Str&#40;oWndChild&#58;nLeft   ,4,0&#41;&#41;+&quot;,&quot;+;\n         LTrim&#40;Str&#40;oWndChild&#58;nBottom ,4,0&#41;&#41;+&quot;,&quot;+;\n         LTrim&#40;Str&#40;oWndChild&#58;nRight  ,4,0&#41;&#41;\n         \n   oWndChild&#58;SetText&#40; cTitle + &quot; &#91; &quot; + cPos + &quot; &#93;&quot; &#41;\n\nRETURN cTitle + &quot; &#91; &quot; + cPos + &quot; &#93;&quot;[/code:1m1jexvv]\n\nThis sample shows the coordinates of the window dynamically in the title of the window. The coordinates of the \"Regular MDI window\" are form base 0,0 from left top of MDI Parent.\n\nThe coordinates of the \"MDI Child window via Setparent()\" are from base 0,0 from left top of Windows Desktop. Also Width and Height are not the same as the \"Regular MDI Window\"\n\nThanks for looking into this Antonio.\n\nPatrick','',0,'AIA=','1m1jexvv',1,0,'',972,0,0),(38580,8317,3,2,0,'87.218.146.157',1190969851,1,0,1,1,1,1,'','','Patrick,\n\nWhy don\'t you use a toolbar on the MDICHILD window ? The buttons of the toolbar can have dropdown menus.','',0,'AIA=','2dunk18o',1,0,'',2,0,0),(38581,8317,3,972,0,'81.164.117.81',1190970426,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3j0cj9lw]Why don\'t you use a toolbar on the MDICHILD window ? The buttons of the toolbar can have dropdown menus.[/quote:3j0cj9lw]\n\nThis is what I have now. But clients are asking for a real menu in the MDI child window. And they don\'t want SDI windows.. (Windows outside the main applications window)\n\nBut we are close no? Once we can set the coordinates correctly?\n\nPatrick','',0,'gA==','3j0cj9lw',1,0,'',972,0,0),(38582,8330,19,967,0,'84.127.225.17',1190973501,1,0,1,1,1,0,'','Notepad++ potente editor Open Source + Sintaxis xBase','Saludos!\n\nPara quien no conozca este programa, es un potentisimo editor gratuito (es un proyecto Open Source), que no tiene nada que envidiar a otros editores. Hasta ahora el único inconveniente que tenía, es que no poseía \'Sintaxis coloreada\' para lenguajes xBase. Poco a poco, he construido una sintaxis para este editor que englobe todas las palabras reservadas, funciones, comandos, operadores, comentarios, etc.\n\nOs adjunto la pagina Web de este proyecto, y el archivo de sintaxis creado por mi, por si os apetece probarlo y/o colaborar con el fichero del lenguaje. Os lo recomiendo.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mytempdir.com/2029204\">http://www.mytempdir.com/2029204</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://notepad-plus.sourceforge.net/es/site.htm\">http://notepad-plus.sourceforge.net/es/site.htm</a><!-- m -->.\n\nPara añadir el lenguaje xBase al editor, solo hay que copiar el archivo UserDefineLang.xml a la ruta:\n\n%APPDATA%\\Notepad++\\\n\nLa intención de este post, no es hacer \'spam\' ni mucho menos, (pues no participo en este proyecto OpenSource) sino que despues de haber descubierto un programa tan bueno, me veo en la \'obligacion\' de compartirlo con la comunidad. Espero que disfruteis de el, pues os puede ayudar mucho en el desarrollo de vuestras aplicaciones.\n\nHe aqui una imagen:\n[url=http&#58;//img20&#46;imageshack&#46;us/my&#46;php?image=ejemploub8&#46;jpg:26s377nd][img:26s377nd]http&#58;//img20&#46;imageshack&#46;us/img20/9025/ejemploub8&#46;th&#46;jpg[/img:26s377nd][/url:26s377nd]','',0,'GA==','26s377nd',1,0,'',967,0,0),(38583,8331,3,473,0,'81.82.10.56',1190975896,1,0,1,1,1,0,'','TSay error','I use this code\n\n[code:2iqmdgbr]aoSay&#91;i&#93; &#58;= tSay&#58;New&#40;100,100,&#123;||&quot;test&quot;&#125;,oDlg,,,,&#46;T&#46;,,&#46;T&#46;&#41;[/code:2iqmdgbr]\n\nIt gives an error\n\nVariabele does not exist : tSay\n\nI do not see any error\n\nWhat am I doing wrong ?\n\nThanks,\n\nWilly','',0,'AIA=','2iqmdgbr',1,0,'',473,0,0),(38584,8331,3,6,0,'87.18.233.114',1190976544,1,0,1,1,1,1,'','Re: TSay error','[code:3qixivpm]aoSay&#91;i&#93; &#58;= tSay&#40;&#41;&#58;New&#40;100,100,&#123;||&quot;test&quot;&#125;,oDlg,,,,&#46;T&#46;,,&#46;T&#46;&#41;[/code:3qixivpm]\n\nEMG','',0,'AIA=','3qixivpm',1,0,'',6,0,0),(38585,8305,6,294,0,'201.254.174.119',1190976711,1,0,1,1,1,1,'','','Excelente la recopilacion, muy buenos!!!','',0,'AIA=','14q5thiv',1,0,'',294,0,0),(38586,8331,3,473,0,'81.82.10.56',1190977014,1,0,1,1,1,0,'','','Of course.\n\nI did not  see it\n\nThanks.','',0,'AIA=','lp7zzyfy',1,0,'',473,0,0),(38587,8317,3,2,0,'87.218.146.157',1190977055,1,0,1,1,1,1,'','','Patrick,\n\n&gt; But we are close no? Once we can set the coordinates correctly? \n\nWe are going to review it asap','',0,'AIA=','1w8dng1g',1,0,'',2,0,0),(38588,8328,3,190,0,'124.7.24.59',1190977074,1,0,1,1,1,0,'','','Dear Mr.Antonio\n\nTOutlook2003 Class and this new 2007 look of Button Bars will grately\nimprove the look and feel of FWH applications. Good developement.\n\nThese two classes are available from which version ?\n\nAny more such developments as far as the front-end is concern ?\n\nOur community would be very happy with these two new additions.\nWe expect similary the basic things like:\n\nTMenu Class with Office 2003 look\nA Good 3d Button class\n\nHope, you will put these two classes in to do list and gift to our community\nsoon.\n\n- Ramesh Babu P','',0,'AIA=','2nke7qac',1,1190990708,'',190,2,0),(38589,8317,3,972,0,'81.164.117.81',1190978346,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:12fwp0d4]&gt; But we are close no? Once we can set the coordinates correctly? \n\nWe are going to review it asap[/quote:12fwp0d4]\nThank you very much Antonio.\n\nPatrick','',0,'gA==','12fwp0d4',1,0,'',972,0,0),(38590,8303,6,533,0,'80.32.177.143',1190978738,1,0,1,1,1,0,'','','Lo curioso es que no hace nada, es decir, si os fijais en la función del principio del post hay un msginfo(nkey), si pulso cualquier tecla me sale caracter ascii de la tecla pulsada, del F1, F2, F3, A, B, C, la que sea, pero si pulso ESCAPE no muestra nada.','',0,'gA==','2gfc700o',1,0,'',533,0,0),(38591,8322,2,850,0,'201.255.105.169',1190978789,1,0,1,1,1,0,'','','Gracias por la respuesta Rene, estoy migrando las aplicaciones a xHarbour + Fivewin con RddAds, pero me encuentro con el problema que en archivos de mas de 2 millones de registros tengo problemas con los indices (no encuentra los registros en bases dbf con indices idx), y migrar a adt + adi me trae el problema con la aplicaciones viejas en clipper.  Si se te ocurre alguna idea te lo voy a agradecer.\n\nAndres\n\nADS 8.1 para 250 usuarios sobre novell 5.','',0,'gA==','3q700jc7',1,0,'',850,0,0),(38592,8305,6,221,0,'190.78.48.82',1190982574,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"ed2k://|file|iconos.rar|155729947|9E7F58A17E91775292AC1F3397D38644|h=T64U5NG26PHXZ2YLMKI5QFST5NIT2WSK|/\">ed2k://|file|iconos.rar|155729947|9E7F5 ... 5NIT2WSK|/</a><!-- m -->\n\nLINK VIA EMULE','',0,'gA==','1kabj4f6',1,0,'',221,0,0),(38593,8328,3,303,0,'72.220.100.171',1190983090,1,0,1,1,1,0,'','','Very impressive, Antonio. This will make our apps look much more professional. Thanks.\n\nJames','',0,'gA==','1qs4fjsj',1,0,'',303,0,0),(38594,8326,6,1106,0,'190.64.154.158',1190983479,1,0,1,1,1,0,'','','Gracias Jose Luis...\n\nPero... lo quiero hacer con xbrowse.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','1wnqao1n',1,0,'',1106,0,0),(38595,8313,1,999,0,'201.42.191.123',1190985917,1,0,1,1,1,0,'','','Yes Otto, you are right!\nI stopped using all the waitrun &amp; winexec some years before when started using ShellExecute in the Windows XP.\nI changed all my ShellExec calls to winexec it works fine on my computer.\nI am going to test it on the customer´s site.\nThanks\nEuclides','',0,'gA==','3fvr9zt3',1,0,'',999,0,0),(38596,8332,6,694,0,'201.22.88.124',1190986503,1,0,1,1,1,1,'','Função para testar tamanho de uma bitmap? (RESOLVIDO)','RESOLVIDO:\n\n   define bitmap ToBmp filename alltrim(FWHCAMINHO)\n   nLargura := ToBmp:nWidth \n   nAltura  := ToBmp:nHeight \n   aRet[1]  := nLargura // 25.4  CENTIMETROS\n   aRet[2]  := nAltura  // 25.4  CENTIMETROS\n\n\n\nAlguem tem alguma função que teste o tamanho de uma bitmap? ex: 50x50 ???\n\n\nGrato\n\nAoki','',0,'','3iq2mm1i',1,0,'',694,0,0),(38597,8326,6,456,0,'217.127.39.57',1190986814,1,0,1,1,1,1,'','','Con xBrowse, cFooter es un valor estatico, al igual que cHeader.\n\nYo añadi un data a la clase TXBrwColumn, el data bStrFooter, que contiene un codeblock que nos debe retornar lo que queremos visualizar en el pie de la columna.\n\nHay que modificar el metodo PaintFooter, y en la linea donde asigna valor a cFooter cambiarla por la siguiente.\n\n[code:a5vkzbhr]cFooter &#58;= IF&#40;&#58;&#58;bStrFooter==NIL,&#58;&#58;cFooter,Eval&#40; &#58;&#58;bStrFooter &#41;&#41;  //Biel[/code:a5vkzbhr]\n\nEl codigo para definir la columna\n[code:a5vkzbhr]\n      oCol&#58;=oBrw&#58;AddCol&#40;&#41;\n      oCol&#58;bStrData&#58;= &#123;|| oDbf&#58;Campo &#125;\n      oCol&#58;cHeader &#58;= \'Cabecera\'\n      oCol&#58;bStrFooter&#58;=&#123;||VisTot&#40;&#41;&#125;\n[/code:a5vkzbhr]\nEspero te sirva por lo menos como aproximacion para hacer lo que quieres.','',0,'AIA=','a5vkzbhr',1,0,'',456,0,0),(38598,8329,6,511,0,'200.44.237.56',1190986945,1,0,1,0,1,1,'','','Antonio,\n\nMuy buena apariencia!!!, es posible colocar varias lineas de botones en ventanas y dialogos?','',0,'AIA=','19s46g2w',1,0,'',511,0,0),(38599,8329,6,456,0,'217.127.39.57',1190987231,1,0,1,1,1,1,'','','Buen trabajo Antonio, queda un look muy chulo.','',0,'AIA=','95erkmtr',1,0,'',456,0,0),(38600,8329,6,171,0,'71.233.232.238',1190987543,1,0,1,1,1,0,'','','Antonio,\n\nExcelente clase. \n\nSolo nos hace falta que la clase MENU incluya los menues tipo Office. \n\nEsas barritas azules con la letras blancas, que genera la clase actual MENU, no ayudan a darle a nuestros programas la apariencia profesional que todos queremos.\n\nSaludos,\n\nGeorge','',0,'AIA=','3lt08r2o',1,0,'',171,0,0),(38601,8333,6,400,0,'201.92.36.201',1190987667,1,0,1,1,1,1,'','Enviar Arq.txt...com Ftp ?','Ola amigos...\n\nEs possivel enviar Arq.txt, usando la Classe TFtp de FWh ?\n\nOu devo usar alguno outra classe ?\n\nSe possivel gostaria de algunos exemplos!!!\n\nSaludos','',0,'AIA=','5f38xiee',1,0,'',400,0,0),(38602,8333,6,511,0,'200.44.237.56',1190992185,1,0,1,0,1,1,'','','Alessandro,\n\nRevisa el ejemplo GALLERY\\ICOPYFIL\\ICOPYFIL.PRG','',0,'AIA=','2nmuoewi',1,0,'',511,0,0),(38603,8323,6,36,0,'164.77.81.210',1190992233,1,0,1,1,1,1,'','','Buenos Dias\n\nHay que tener mucho cuidado con este código, ya que te puede entregar dos tipos de datos, NUMERIC Y CHARACTER\n\n[url=http&#58;//img408&#46;imageshack&#46;us/my&#46;php?image=comboboxdw0&#46;jpg:13k78ail][img:13k78ail]http&#58;//img408&#46;imageshack&#46;us/img408/5643/comboboxdw0&#46;th&#46;jpg[/img:13k78ail][/url:13k78ail]\n\nen mi caso yo utilizo asi..\n[code:13k78ail]\nfunction p&#40;&#41;\n\n   local oDlg, nValor &#58;= 1, oCombo\n\n   DEFINE DIALOG oDlg\n\n   @ 1, 2 COMBOBOX oCombo VAR nValor ITEMS &#123; &quot;Hombre&quot;, &quot;Mujer&quot; &#125;\n\n   @ 2, 10 BUTTON &quot;Valor&quot; ACTION MsgInfo&#40; oCombo&#58;VarGet&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil [/code:13k78ail]','',0,'GIA=','13k78ail',1,0,'',36,0,0),(38604,8326,6,1106,0,'190.64.159.56',1190992375,1,0,1,1,1,0,'','','Gracias Biel...\n\n\nQuedo trabajando en ello.\n\nSaludos\n\nRuben Fernandez.','',0,'GIA=','2y1mf4gd',1,0,'',1106,0,0),(38605,8334,6,1178,0,'200.24.127.10',1190993977,1,0,1,1,1,0,'','Al compilar y construir el Ejecutable Me genera Error','Buen Dia , me estoy Iniciando con Harbour / FWH , favor el que me pueda ayudar tengo el siguiente problema.\n\nAl compilar el proyecto me genera el siguiente Error.\n\nError: Unresolved external \'_hb_objGetpMethod\' referenced from C:\\FWH\\LIB\\FIVEHC.LIB|FFDLGPRC.\nTengo Instalado FWH 2.7 y Harbour Build 46 (Esta version la baje recientemente no se si sera la ultima)\n\n\nAntes estaba trabajando con FWH 2.7 y Harbour Buil 45 y me trabajaba bien , no se si sera la version de FWH en que direccion consigo una mas actualizada.','',0,'GIA=','2sscgajo',1,0,'',1178,0,0),(38606,8282,3,1173,0,'205.211.248.93',1190994011,1,0,1,1,1,1,'','Siento el haber demorado','revise el ejemplo que recomiendas\n\n[color=red:oo6yn6q0]fwh\\samples\\gallery\\mselect[/color:oo6yn6q0]\n\nPero en este ejemplo solo se puede seleccionar todos o ninguno.\n\nEstoy Utilizando Fivewin 2.6 y no se si es necesario actualizar, para que en un listbox puedas seleccionar a manera como lo haces en Excel, solo marcas uno y arrastras.\n\nEste problema lo tengo con un  cliente que ingresa productos con numeros de serie, hay productos que presentan 50 o mas series, y necesitas facturar 20, solo seleccionas uno arrastras hasta donde requieres.\n\nEs posible?','',0,'Ag==','oo6yn6q0',1,0,'',1173,0,0),(38607,8335,6,1178,0,'200.24.127.10',1190994299,1,0,1,1,1,0,'','Al salir de la Ejecucion , el sistema me queda en Proceso','Buen Dia , \nTengo un problema  , tengo Windows XP PRofesional, cuando Ejecuto el Proyecto y al salir, se queda cargado el el Administrador de Tareas, me implica ir al administrador de tareas y Cancelar el Proceso.\nCOmo puedo Corregir esto, HE hecho la prueba en varios equipos y me pasa lo mismo. NO se si sera el Windows o Algun Instrutivo que me falta.','',0,'Ag==','30n0xqva',1,0,'',1178,0,0),(38608,8282,3,1173,0,'205.211.248.93',1190994477,1,0,1,1,1,1,'','Y perdon por mi descortesia...','James  \n\nGracias desde Honduras <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','85xj1pzj',1,0,'',1173,0,0),(38609,8310,6,931,0,'201.159.1.211',1190995061,1,0,0,0,1,0,'','Re:','Thefull, de hecho si vi tus articulos, e hice las pruebas pero no me funciono, primero no supe cual era la libreria o si era un prg con la clase, que include se necesitaba, etc.\n\nDe hecho tampoco me funciono la clase XMLRead, así que me ire con las sugerencia de Miguel.\n\nPero agradezco la atención.\n\nSaludos,\n\n\n\n\n\n[quote=&quot;thefull&quot;][quote=&quot;MarioDava&quot;]Asi es Armando, Grupo Olympus, si no mal recuerdo, pero veo que no estas en el D.F., donde andas?\n\nPor ciero todavia no pruebo la XMLRead, pero es exactamente lo que ando buscando, gracias\n\nUn abrazo\n\n[quote=&quot;Armando&quot;]Mario:\n\nCreo que sí, en las estulticias de las reuniones que teniamos con el mal logrado grupo de programadores de FW.\n\nSaludos[/quote][/quote]\n\nEn este grupo hay publicado unos mensajes mios sobre ;\n1.- Como leer un XML\n2.- Como guardar un XML.\n\nBusca los articulos mios por aqui, que tienen que estar y te \nserán de gran ayuda.[/quote]','',0,'Ag==','2k7tqne6',1,0,'',931,0,0),(38610,8335,6,36,0,'164.77.81.210',1190995553,1,0,1,1,1,1,'','','Prueba al terminar tu aplicacion\n\n	ACTIVATE WINDOW oWnd MAXIMIZED\n\n	dbCloseAll()\n	oIco:End() //si tienes un icono\n	oBmp:End() //si tienes alguna imagen\n	Memory(-1)\n	PostQuitMessage( 0 )\n\nreturn nil','',0,'Ag==','1lk2zki2',1,0,'',36,0,0),(38611,8303,6,875,0,'64.76.108.182',1190995605,1,0,1,1,1,0,'','','fijate en el metodo KEYDOWN de la clase XBROWSE y entenderas porque. En mi caso tuve que modificarlo para poder captar todas las teclas sin excepcion.\n\nJaime','',0,'Ag==','32rhbwkw',1,0,'',875,0,0),(38612,8080,6,110,0,'148.168.40.4',1190996161,1,0,1,1,1,1,'','','Ray prueba este prg, si bien no guara en memo, por que me queda revisar tu problema, aca se demuestra como almacenar un array y luego recuperarlo.\n\nquedamos hoy en la tarde por el msn <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n \n[code:1meip0n5]\n\nPROCEDURE Main\n	LOCAL aArray &#58;= &#123;&#123;&quot;carlos&quot;,&#46;t&#46;,123,date&#40;&#41;,nil&#125;&#125;\n	local bArray &#58;= &#123;1,date&#40;&#41;,time&#40;&#41;,pi&#40;&#41;,&#46;f&#46;,nil&#125;\n	local a, b, c, d\n\n	a &#58;= ArrayToPrg&#40; aArray &#41;\n	b &#58;= ArrayToPrg&#40; bArray &#41;\n\n        ?a\n	?b\n\n	c=&amp;&#40;a&#41;\n	d=&amp;&#40;b&#41;\n\n	?valtype&#40;c&#41;,len&#40;c&#41;,len&#40;c&#91;1&#93;&#41;,c&#91;1,1&#93;\n	?valtype&#40;d&#41;,len&#40;d&#41;,d&#91;1&#93;,d&#91;2&#93;,d&#91;3&#93;,d&#91;4&#93;,d&#91;5&#93;,d&#91;6&#93;\n\nRETURN\n\n//--------------------------------------------------------------//\n\nFUNCTION ArrayToPrg&#40; xVal &#41;\n	LOCAL cType &#58;= ValType&#40; xVal &#41;\n	LOCAL cRet  &#58;= \'&#123;&#125;\'\n	LOCAL aVar\n\n    DO CASE\n	CASE cType == &quot;A&quot;	\n		cRet &#58;= &quot;&#123; &quot;\n		FOR EACH aVar IN xVal\n			cRet += &#40; ArrayToPrg&#40; aVar &#41; + &quot;, &quot; &#41;\n		NEXT\n		IF cRet&#91; -2 &#93; == \',\'\n			cRet&#91; -2 &#93; &#58;= \' \'\n		ENDIF\n		cRet&#91; -1 &#93; &#58;= \'&#125;\'\n		RETURN cRet\n	CASE cType == &quot;D&quot;\n		RETURN &quot;stod&#40; \'&quot; + dtos&#40; xVal &#41; + &quot;\' &#41;&quot;\n	CASE cType == &quot;N&quot;\n		RETURN ltrim&#40; str&#40; xVal &#41; &#41;\n	CASE cType == &quot;L&quot;\n		RETURN iif&#40; xVal, &quot;&#46;T&#46;&quot;, &quot;&#46;F&#46;&quot; &#41;\n	CASE cType == &quot;C&quot;\n	    RETURN &quot;\'&quot;+xVal+&quot;\'&quot;\n        CASE cType == &quot;U&quot;\n	    RETURN &quot;NIL&quot;\n	ENDCASE\n\nRETURN cRet\n\n//--------------------------------------------------------------//\n[/code:1meip0n5]','',0,'AIA=','1meip0n5',1,0,'',110,0,0),(38613,8335,6,362,0,'200.158.19.49',1190996317,1,0,1,1,1,1,'','','Hola....\n\nQue haces este comando:\n\nPostQuitMessage( 0 )','',0,'AIA=','34dowxt8',1,0,'',362,0,0),(38614,8303,6,456,0,'217.127.39.57',1190996908,1,0,1,1,1,1,'','','Revisando un poco el código, yo el metodo KeyDown de xBrowse lo veo bien. Claro está que si le añades CASE nKey==27 ..., conseguiras variar el comportamiento.\n\nPero en realidad el hecho de no evaluar bKeyDown, es debido a el metodo KeyDown de la clase control.\nAllí si la tecla recibida es escape \n[code:rjwiu7t9]\nif nKey == VK_ESCAPE\n      &#58;oWnd&#58;KeyDown&#40; nKey, nFlags &#41;\n      return 0\n[/code:rjwiu7t9]\nmientras que si es otra tecla \n[code:rjwiu7t9]\nreturn Super&#58;KeyDown&#40; nKey, nFlags &#41;\n[/code:rjwiu7t9]\nSupongo que habra algún motivo, que no alcanzo a ver, pero si quitas el if nKey== VK_ESCAPE, veras como si te evalua correctamente el codigo de bKeyDown.\n::oWnd y Super no son el mismo objeto, y el code block bKeyDown esta asignado en Super.\n\nAlgun usuario mas experimentado, o Antonio directamente nos podra dar luz sobre el tema.','',0,'AIA=','rjwiu7t9',1,0,'',456,0,0),(38615,8336,6,362,0,'200.158.19.49',1190996950,1,0,1,1,1,1,'','DUDA EN LISTBOX(WBROWSE.PRG)','Buenas FiveWiners...\n\nNormalmente, Una LISTBOX(WBROWSE.PRG) muestra sus dados asi:\n\n    CODIGO PRODUCTO - NOMBRE PRODUCTO - ITENS     -  VALOR -  TOTAL\n\n    78911010107887 - COCA COLA LIGHT -    10      -  2,50 -  $ 25,00\n    78911010107888 - COCA COLA PET   -    10      -  2,50 -  $ 25,00\n    78911010107889 - COCA COLA LITRO -    20      -  2,50 -  $ 50,00\n\n//-&gt; Como Puedo hacer para que mis Browse sea asi, como se fueste un TICKT:\n\n    78911010107887\n    COCA COLA LIGHT -    10      -  2,50 -  $ 25,00\n    78911010107888\n    COCA COLA PET   -    10      -  2,50 -  $ 25,00\n    78911010107889\n    COCA COLA LITRO -   20      -  2,50 -  $ 50,00','',0,'AIA=','33kkavnq',1,0,'',362,0,0),(38616,8335,6,36,0,'164.77.81.210',1190998043,1,0,1,1,1,1,'','','Definicion:\n\nLa función PostQuitMessage envía un mensaje WM_QUIT a la cola de mensajes del \"hilo\" y vuelve inmediatamente; la función indica simplemente al sistema que el \"hilo\" está pidiendo salir en algún momento del futuro.\n\nCuando el \"hilo\" recupera el mensaje WM_QUIT desde la cola de mensajes, debe salir del bucle de mensajes y devolver el control a Windows. El valor de salida que es devuelto a Windows debe ser el parámetro wParam del mensaje WM_QUIT.','',0,'AIA=','1f8mrr5r',1,0,'',36,0,0),(38617,8336,6,694,0,'201.22.88.124',1190998649,1,0,1,1,1,1,'','','Amigo, acredito que vc deve usar CRLF\n\nE:\n\n1ª COLUNA\n\ncodigo+crlf+descrição\n\n2ª COLUNA\n\nCRLF+QUANDITDADE\n\n...\n\n\nEspero ter ajudado\n\nAoki','',0,'AIA=','3agwkwr9',1,0,'',694,0,0),(38618,8282,3,303,0,'72.220.100.171',1190998779,1,0,1,1,1,0,'','','[code:2bnawznd]// FiveWin - own Drag&amp;Drop new features !!!\n// Drag item from one listbox to another listbox\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oCursor, oLbx, oLbx2\n   local cItem&#58;=&quot;&quot;\n\n   DEFINE CURSOR oCursor hand\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin\'s own Drag &amp; Drop features!!!&quot;\n\n   @ 6, 3 LISTBOX oLbx VAR cItem ;\n      ITEMS &#123; &quot;Item 1&quot;,&quot;Item 2&quot;,&quot;Item 3&quot;,&quot;Item 4&quot; &#125; SIZE 200, 200\n\n   oLbx&#58;oDragCursor = oCursor         // Select a Drag cursor\n   oLbx&#58;bDragBegin  = &#123; | nRow, nCol, nKeyFlags | ;\n                        SetDropInfo&#40; oLbx&#58;getSelText&#40;&#41; &#41;,;   // Save drop info !!!\n                        oWnd&#58;SetMsg&#40; &quot;Dragging&#46;&#46;&#46;&quot; &#41; &#125;\n\n   @ 6, 30 LISTBOX oLbx2 var cItem;\n      ITEMS &#123;&#125; size 200,200\n\n   // Set a DropOver action for the ListBox\n   oLbx2&#58;bDropOver = &#123; | uDropInfo, nRow, nCol, nKeyFlags | ;\n                      oLbx2&#58;Add&#40; uDropInfo &#41;, MsgBeep&#40;&#41; &#125;\n\n   SET MESSAGE OF oWnd ;\n      TO &quot;FiveWin - own DragDrop interface !!!&quot; CENTER\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\n//----------------------------------------------------------------------------//[/code:2bnawznd]','',0,'AIA=','2bnawznd',1,0,'',303,0,0),(38619,8282,3,303,0,'72.220.100.171',1191000172,1,0,1,1,1,0,'','','Una muestra mejor:\n\n[code:ckw2slrm]// FiveWin - own Drag&amp;Drop new features !!!\n// Drag item from one listbox to another listbox\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oCursor, oLbx, oLbx2\n   local cItem&#58;=&quot;&quot;\n\n   DEFINE CURSOR oCursor hand\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin\'s own Drag &amp; Drop features!!!&quot;\n\n   @ 6, 3 LISTBOX oLbx VAR cItem ;\n      ITEMS &#123; &quot;Item 1&quot;,&quot;Item 2&quot;,&quot;Item 3&quot;,&quot;Item 4&quot; &#125; SIZE 200, 200\n\n   // Set a DropOver action for the ListBox\n   oLbx&#58;bDropOver = &#123; | uDropInfo, nRow, nCol, nKeyFlags | ;\n                      oLbx&#58;Add&#40; uDropInfo &#41;, oLbx2&#58;del&#40;&#41;, MsgBeep&#40;&#41; &#125;\n\n   oLbx&#58;oDragCursor = oCursor         // Select a Drag cursor\n   oLbx&#58;bDragBegin  = &#123; | nRow, nCol, nKeyFlags | ;\n                        SetDropInfo&#40; oLbx&#58;getSelText&#40;&#41; &#41;,;   // Save drop info !!!\n                        oWnd&#58;SetMsg&#40; &quot;Dragging&#46;&#46;&#46;&quot; &#41; &#125;\n\n   @ 6, 30 LISTBOX oLbx2 var cItem;\n      ITEMS &#123;&#125; size 200,200\n\n   // Set a DropOver action for the ListBox\n   oLbx2&#58;bDropOver = &#123; | uDropInfo, nRow, nCol, nKeyFlags | ;\n                      oLbx2&#58;Add&#40; uDropInfo &#41;, oLbx&#58;del&#40;&#41;, MsgBeep&#40;&#41; &#125;\n\n   oLbx2&#58;oDragCursor = oCursor         // Select a Drag cursor\n   oLbx2&#58;bDragBegin  = &#123; | nRow, nCol, nKeyFlags | ;\n                        SetDropInfo&#40; oLbx2&#58;getSelText&#40;&#41; &#41;,;   // Save drop info !!!\n                        oWnd&#58;SetMsg&#40; &quot;Dragging&#46;&#46;&#46;&quot; &#41; &#125;\n\n   SET MESSAGE OF oWnd ;\n      TO &quot;FiveWin - own DragDrop interface !!!&quot; CENTER\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\n//----------------------------------------------------------------------------//[/code:ckw2slrm]','',0,'AIA=','ckw2slrm',1,0,'',303,0,0),(38620,8335,6,362,0,'200.158.19.49',1191000176,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:vxgrdvt0]Definicion:\n\nLa función PostQuitMessage envía un mensaje WM_QUIT a la cola de mensajes del \"hilo\" y vuelve inmediatamente; la función indica simplemente al sistema que el \"hilo\" está pidiendo salir en algún momento del futuro.\n\nCuando el \"hilo\" recupera el mensaje WM_QUIT desde la cola de mensajes, debe salir del bucle de mensajes y devolver el control a Windows. El valor de salida que es devuelto a Windows debe ser el parámetro wParam del mensaje WM_QUIT.[/quote:vxgrdvt0]\n\n\nGracias, Patricio.\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms644945.aspx\">http://msdn2.microsoft.com/en-us/library/ms644945.aspx</a><!-- m -->','',0,'gA==','vxgrdvt0',1,0,'',362,0,0),(38621,8336,6,362,0,'200.158.19.49',1191000290,1,0,1,1,1,1,'','','[quote=&quot;AOKISANTOS&quot;:1yi7mubf]Amigo, acredito que vc deve usar CRLF\n\nE:\n\n1ª COLUNA\n\ncodigo+crlf+descrição\n\n2ª COLUNA\n\nCRLF+QUANDITDADE\n\n...\n\n\nEspero ter ajudado\n\nAoki[/quote:1yi7mubf]\n\nNO. ASI, RETORNA EL VALOR DEL CRLF. NO PULA UNA LINEA.','',0,'gA==','1yi7mubf',1,0,'',362,0,0),(38622,8282,3,1173,0,'205.211.248.93',1191001701,1,0,1,1,1,1,'','','Nuevamente, Gracias James\nMe pondre a trabajar de inmediato  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3asshpm3',1,0,'',1173,0,0),(38623,8337,3,1180,0,'201.51.170.74',1191001732,1,0,1,1,1,0,'','How Work xharbour + Fivewin Com Java code?','Hi , Some people knows or used xharbour + fivewin exec in JAVA.\n\n\nthanks','',0,'gA==','3hmuw0qt',1,0,'',1180,0,0),(38624,8334,6,940,0,'189.175.174.1',1191002773,1,0,1,1,1,1,'','','Ruben,\n\nlo mas seguro es que la version de harbour que estas utilizando no sirve \n\npara esa version de fwh que tienes,  \n\npor culpa de un tal PECODE no se pude al menos que recompiles \n\nla libreria de fwh,\n\n\nsaludos....','',0,'gA==','2c43aqo7',1,0,'',940,0,0),(38625,8321,6,53,0,'189.139.27.160',1191005067,1,0,1,1,1,1,'','','Willi:\n\nTampoco debes tener problemas si lo haces desde FW, tengo una aplicación con la BARLIB de Cayetano y todo funciona bien.\n\nSaludos','',0,'gA==','vzizikgk',1,0,'',53,0,0),(38626,8333,6,400,0,'201.92.36.201',1191011734,1,0,1,1,1,1,'','','Gracias Alvaro....\n\nEra isto que precisava mesmo.\n\nSaludos','',0,'gA==','xev4pydv',1,0,'',400,0,0),(38627,8334,6,2,0,'87.218.146.157',1191012922,1,0,1,1,1,1,'','','Ruben,\n\nPor favor lee esta conversación:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5161&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=%2Aobjgetpmethod\">http://fivetechsoft.com/forums/viewtopi ... getpmethod</a><!-- m -->','',0,'gA==','zr83k43y',1,0,'',2,0,0),(38628,8338,6,1173,0,'205.211.248.93',1191013007,1,0,1,1,1,1,'','Class: \'NIL\' has no exported method: GOUP','Tengo un problema con todas mis aplicaciones, ya que de manera esporadica me dan este error, no lo hacen todo el tiempo.\n\nY el caso es que no hago uso de barras de Scroll, en los sitios donde me aparece.\n\nEstoy haciendo uso de FWH 2.6 con xHarbour 0.99.2 bajo XP\n\n[quote:2qfrj15b]Application\n===========\n   Path and name: C:\\Proyectos\\CellSQL\\CellSQL.exe (32 bits)\n   Size: 2,224,128 bytes\n   Time from start: 0 hours 0 mins 9 secs \n   Error occurred at: 28/09/2007, 11:45:22\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: GOUP\n   Args:\n\nStack Calls\n===========\n   Called from GOUP(0)\n   Called from TMDICLIENT:HSCROLL(0)\n   Called from TMDICLIENT:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(130)\n\nSystem\n======\n   CPU type: Pentium IV 800 Mhz\n   Hardware memory: 504 megs\n\n   Free System resources: 0 %\n        GDI    resources: 0 %\n        User   resources: 0 %\n\n   Compiler version: xHarbour build 0.99.2 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 34\n      1 \n      2 TF_FloatingLangBar_WndTitle\n      3 CiceroUIWndFrame\n      4 M\n      5 Default IME\n      6 Start Menu\n      7 Sistema administracion de celulares (Mi Empresa)\n      8 Crimson Editor - [C:\\Proyectos\\CellSQL\\Prg\\Inv_Mov.prg]\n      9 WOWExec\n     10 MySQL System Tray Monitor\n     11 MCI command handling window\n     12 HiddenFaxWindow\n     13 DDE Server Window\n     14 a0c\n     15 Connections Tray\n     16 HsmActionImpl sink window\n     17 TouchPad object helper window\n     18 avast! UI Control Window\n     19 aswDisp helper window\n     20 PersistWndName\n     21 HkWndName\n     22 Touchpad driver tray icon window\n     23 HelperMsgListenerWnd\n     24 Power Meter\n     25 MS_WebcheckMonitor\n     26 Registry Monitor\n     27 Touchpad driver backward compatibility window\n     28 Touchpad driver helper window\n     29 SigmatelSysTray\n     30 AutoImport Window\n     31 BCMWLTRY Windows Application\n     32 NICCONFIGSVC\n     33 aswServ helper window\n     34 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   GOUP\n   TMDICLIENT:HSCROLL\n     Param   1:    N    0\n     Param   2:    N    0\n     Local   1:    O    Class: TMDICLIENT\n     Local   2:    N    0\n     Local   3:    N    0\n     Local   4:    N    0\n   TMDICLIENT:HANDLEEVENT\n     Param   1:    N    276\n     Param   2:    N    0\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    276\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    2\n     Local   1:    O    Class: TMDICLIENT\n   WINRUN\n     Param   1:    N    1115076\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TICON\n     Local   2:    O    Class: TBITMAP\n     Local   3:    N    1024\n     Local   4:    N    768\n     Local   5:    O    Class: TINI\n     Local   6:    O    Class: TBAR\n     Local   7:    C    \"Mi Empresa\"\n     Local   8:    O    Class: TMYDSN\n     Local   9:    C    \"MySQL\"\n     Local  10:    C    \"root\"\n     Local  11:    C    \"max\"\n     Local  12:    L    .T.\n     Local  13:    L    .T.\n     Local  14:    U    \n     Local  15:    C    \"WinCont - FcsOdbc\"\n     Local  16:    C    \"Localhost\"\n     Local  17:    N    3306\n     Local  18:    C    \"\"\n     Local  19:    C    \"\"\n     Local  20:    N    3\n\nLinked RDDs\n===========\n   DBF\n   DBFDBT\n   DBFNTX\n   DBFCDX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TMYAPP\n     4 TMYDSN\n     5 TMYODBC\n     6 TINI\n     7 TWINDOW\n     8 TCONTROL\n     9 TICON\n    10 TBRUSH\n    11 TDIALOG\n    12 TBTNBMP\n    13 TGET\n    14 GET\n    15 TCLIPGET\n    16 TSAY\n    17 TFONT\n    18 TMYSELECT\n    19 TMDIFRAME\n    20 TMENU\n    21 TMENUITEM\n    22 TACCTABLE\n    23 TMDICLIENT\n    24 TBITMAP\n    25 TBAR\n    26 TRECT\n    27 ERROR[/quote:2qfrj15b]','',0,'gA==','2qfrj15b',1,0,'',1173,0,0),(38629,8328,3,2,0,'87.218.146.157',1191013479,1,0,1,1,1,1,'','','Ramesh,\n\n&gt; These two classes are available from which version ? \n\nTOutLook2003 is already available since FWH 7.09. The new buttonbar 2007 look will be available in FWH 7.10 this month.\n\n&gt; Any more such developments as far as the front-end is concern ? \n\nYes, though we will not reveal the details until we have working versions ready to be used\n\nThanks for your suggestions, we appreciate all the feedback that we can get','',0,'gA==','1ut3jhcw',1,0,'',2,0,0),(38630,8339,6,793,0,'201.225.210.59',1191014583,1,0,1,1,1,0,'','Como obtengo FWH 7.09','Amigos del foro como puede obtener la actualizacion fwh 7.09\n\n\nSaludos ,\nErick','',0,'gA==','25f8x5j5',1,0,'',793,0,0),(38631,8340,6,925,0,'200.11.95.94',1191014812,1,0,1,1,1,0,'','Columnas de clase report','Una consulta al foro sobre la suma de columnas en un reporte \ntengo una base con un campo numerico y por cada registro se debe  multiplicar un factor y el resultado de esta operacion solo debe ser visualizado en el total\nejemplo:\n\ncampo1:= 10\ntot:= campo1*60  esta es la operacion y almaceno 600 no muestro los\n600 se muestra  lo normal  10\ny al final del grupo debo mostrar 600 y no 10 como lo muestra si pongo la opcion total en la columna \n\nSi alguien me puede orientar como lo puedo hacer <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nGracias','',0,'gA==','3dwz0zhm',1,0,'',925,0,0),(38632,8236,6,760,0,'200.62.254.137',1191015561,1,0,1,1,1,0,'','OT: Objeto Persistente ...','Gracias Master Antonio\n\nVoy a probarlo, y cuando es un vtaskbar como lo hago....\nYa que al hacer oWnd:SetControl( oBrw ), este ocupa toda la ventana no permitiendo ver el vtaskbar... y si no lo hago el browse no muestra nada..\nLa verdad ya no tengo idea de como hacerlo ...\nSalu2\n\nFrancis','',0,'gA==','2ujck4p1',1,0,'',760,0,0),(38633,8336,6,875,0,'64.76.108.182',1191016573,1,0,1,1,1,0,'','','crea una tabla temporal con un solo campo:\n\ndatos.dbf  -&gt;  campo chr(40)\n\ny sobre ese campo grabas :\n\n1ra linea  CODIGO\n2da linea DECRIP+STR(CANTID,5)+STR(PRECIO,9,2)+STR(TOTAL,9,2)\n\n3ra linea  CODIGO\n4ta lines  DECRIP+STR(CANTID,5)+STR(PRECIO,9,2)+STR(TOTAL,9,2)\n.\n.\n.\n.\netc','',0,'gA==','1yrs8769',1,0,'',875,0,0),(38634,8341,6,875,0,'64.76.108.182',1191017763,1,0,1,1,1,0,'','Una Pregunta Facil','¿Cual es la diferencia en usar REDEFINE o no?\n\npor ejemplo:\n\nREDEFINE LISTBOX oBrowD Fields ....  etc, etc\n\n@ 05,05 ListBox oBrowD Fields ....  etc, etc\n\n¿Cuando uso REDEFINE como le indico en que posicion de la pantalla aparecera o sera que aparece en un lugar ya determinado?   <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','2a6ty9bu',1,0,'',875,0,0),(38635,8338,6,2,0,'87.218.146.157',1191018363,1,0,1,1,1,1,'','','Añade esta línea en la clase TMdiClient:\n\nMETHOD HScroll() VIRTUAL','',0,'gA==','2fuq8zbd',1,0,'',2,0,0),(38636,8236,6,2,0,'87.218.146.157',1191018500,1,0,1,1,1,1,'','','No uses oWnd:SetControl( oBrw ). No hace falta ya que el splitter controla la disposición de los controles.\n\nHazlo como te he indicado y cambia el LISTBOX de la izquierda por el taskbar.','',0,'gA==','330rehnx',1,0,'',2,0,0),(38637,8339,6,2,0,'87.218.146.157',1191018601,1,0,1,1,1,1,'','','Erick,\n\nPuedes comprarla desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos. Cada vez que compras una actualización, tienes derecho a dos más, gratis.','',0,'gA==','334dakuz',1,0,'',2,0,0),(38638,8341,6,2,0,'87.218.146.157',1191018689,1,0,1,1,1,1,'','','REDEFINE es para usar controles definidos en recursos (fichero RC).\n\n@ ..., ... es para crear controles desde el código fuente, sin usar recursos.','',0,'gA==','2iio4b9h',1,0,'',2,0,0),(38639,8342,6,760,0,'200.62.254.137',1191018914,1,0,1,1,1,0,'','texto en buttonbmp','Hola a todos ...\n\nEstoy usando FWH 7.04, el problema con los buttonbmp es que el texto sale en el medio del boton y el bmp al costado, haciendo que el texto no aparezca completo, uso workshop.\nNo hay manera de que el texto del boton salga mas a la derecha del boton, es decir que no salga centrado, para poder visualizar mejor el bmp y el texto del boton...\nCuando usaba tsbuton no habia problema, pero quiero usar esta clase propia de fwh en mis sistemas....\n\nSalu2\n\nFrancis','',0,'gA==','1wtl4jih',1,0,'',760,0,0),(38640,8337,3,2,0,'87.218.146.157',1191018918,1,0,1,1,1,1,'','','Mauricio,\n\nBoth [x]Harbour and Java use \"virtual machines\" to run pcode.\n\n[x]Harbour could be adapted to generate pcode for the Java \"virtual machine\", but this is a complex task, only available for \"virtual machines\" gurus. At the moment such development has not started though it was considered since the born of Harbour.','',0,'','1j4vohg7',1,0,'',2,0,0),(38641,8342,6,2,0,'87.218.146.157',1191019046,1,0,1,1,1,1,'','','Añádele espacios vacios a la izquierda del texto','',0,'','1mqm7fdz',1,0,'',2,0,0),(38642,8342,6,760,0,'200.62.254.137',1191019498,1,0,1,1,1,0,'','texto en buttonbmp','Master Antonio...\n\nAsi  \"      Grabar\".\n\nSalu2\n\nFrancis','',0,'','1rh0gxy1',1,0,'',760,0,0),(38643,8236,6,760,0,'200.62.254.137',1191019659,1,0,1,1,1,0,'','OT : Objeto Persistente','Ok Master Antonio...\n\nPor si acaso es el vtaskbar de canalfive... voy a probarlo a ver como sale y reporto...\n\nSalu2\n\nFrancis','',0,'','2r4b83xm',1,0,'',760,0,0),(38644,8317,3,2,0,'87.218.146.157',1191019883,1,0,1,1,1,1,'','','Patrick,\n\nYour solution looks fine. Why do you care about the coordinates ?\n\nI would suggest to change the \"virtual\" MDICHILD position when its maximized, but besides that, it seems ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3oeg3kja',1,0,'',2,0,0),(38645,8317,3,2,0,'87.218.146.157',1191020079,1,0,1,1,1,1,'','','Patrick,\n\nIt may be interesting to test it the other way round:\n\nCreate a MDICHILD window, change its parent to the desktop, set it a menu, and change back its parent. I am curious to know how Windows will behave <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nTo avoid flickering, the window could be hiden and shown later on','',0,'','hh11gd8s',1,0,'',2,0,0),(38646,8342,6,2,0,'87.218.146.157',1191020231,1,0,1,1,1,1,'','','Si','',0,'','24jw94kr',1,0,'',2,0,0),(38647,8274,18,2,0,'87.218.146.157',1191020407,1,0,1,1,1,1,'','','Moises,\n\nNo, no es complicado y lo vamos a hacer.\n\nSolo te estamos indicando una solución mientras tanto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2qlpkqli',1,0,'',2,0,0),(38648,8330,19,2,0,'87.218.146.157',1191020541,1,0,1,1,1,1,'','','Gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','n9b10swb',1,0,'',2,0,0),(38649,8343,6,1072,0,'190.82.42.249',1191022503,1,0,1,1,1,0,'','Dudas Sobre Cdx','Holas Amigos:\n\nTengo un cliente que tiene un Sistema en Fw y clipper 5.3 pero usa SIX DRIVER para sus Archivos indices.\n\nHoy necesito actualizar desde un programita externo hecho en Fwh, xharbour una base de datos, yo en mi programa indico que los archivos son CDX, y al tratar de actualizar un campo que es parte de un indice de SixDriver, el programa entra en un tiempo largo de espera hasta que me arroja error, que no puedo actualizar este campo. Trate de hacer lo mismo desde un programita chico hecho en clipper solo, tratando de grabar el mismo campo, ocurriendo en mismo error.\n\n. Mi duda es, yo no puedo actualizar este campo que indice creado con SIXDRIVER, desde otro que usa solo CDX ?.\n\nSaludos,\nAntonio','',0,'','3ekqhbxn',1,0,'',1072,0,0),(38650,8318,6,582,0,'190.138.25.247',1191023004,1,0,1,1,1,0,'','','Antonio, disculpa que te jorobe...... pero pudiste ver algo al respecto ???\n\nUn abrazo. El Loco =&gt;))','',0,'','qv1g473e',1,0,'',582,0,0),(38651,8318,6,389,0,'189.132.139.193',1191025308,1,0,1,1,1,0,'','','Yo la TMySql la tengo utilizando pero solo con xHarbour.. si necesitas alguna orientacion con gusto.. estoy a la orden.   se supone que en este momento debe de compilar bien con harbour..\nSaludos','',0,'','2x5oayjq',1,0,'',389,0,0),(38652,8318,6,72,0,'189.146.242.84',1191026796,1,0,1,1,1,0,'','','Veo con agrado que estamos llevando a FiveWin a otras plataformas y enlaces ODBC, OLE, RDD (este último me agrada y es mi fantasía).\n\nMe siento satisfecho con mas de 2,500 usuarios de mi producto en DFBs, pero hoy que deseo llevarla a SQL me siento más que principiante.\n\nMe pregunto si:  Habrá alguién en el foro que pueda ayudarme?','',0,'','4r07capj',1,0,'',72,0,0),(38653,8341,6,53,0,'189.139.27.160',1191029931,1,0,1,1,1,1,'','','Jacgsoft:\n\nComo bien te indica Antonio, el redefine es para cuando los controles los tienes en recursos y normalmente se utiliza un software para diseñar esos controles, puede ser WorkShop, PellesC, etc, etc. ahora bien con este software el diseño es visual del tipo WYSIWYG así que tu colocas cada control en la parte del dialogo que más te acomoda.\n\nSaludos','',0,'','2crjm7s5',1,0,'',53,0,0),(38654,8318,6,582,0,'190.138.25.247',1191040560,1,0,1,1,1,0,'','','[quote=&quot;Alfredo Arteaga&quot;:23ajz376]Veo con agrado que estamos llevando a FiveWin a otras plataformas y enlaces ODBC, OLE, RDD (este último me agrada y es mi fantasía).\n\nMe siento satisfecho con mas de 2,500 usuarios de mi producto en DFBs, pero hoy que deseo llevarla a SQL me siento más que principiante.\n\nMe pregunto si:  Habrá alguién en el foro que pueda ayudarme?[/quote:23ajz376]\n\nTroesma querido, tanto tiempo !!!\nEspero que con esta te pueda devolver algo de lo muncho que me enseñaste =&gt;))\n\nEsto de pasar de Dbf a un motor de bases de datos no es tan dificil como parece. Es logico que ante un cambio uno se asuste y redimencione las cosas, pero con la experiencia que tenemos no debemos preocuparnos.\nTe cuento que ya tengo mi primer aplicativo (solo consulta) con FiveWin/xHarbour/MySql y empece a investigar esto de los motores hara no mas de 20 dias, mas consejos que me dio mi amigo Pedro Lerda.\nMe compre dos libros (\"La biblia MySql\" de Ian Gilfillan Ed. Anaya - \"Prendiendo MySql en 21 dias\" de Mark Maslakowski Ed. Prentice Hall).\nEl segundo de los libros los \"21 dias\" se hicieron solamente 3, tiempo para darle una leida.\nEmpece con ADORDD de Antonio y Fernando, y en cuention de 1/2 hora ya estaba funcionando. Pero, con todo respeto, no me gusto la performance, me parecio muy lento.\nEntonces probe por consejo de Pedro la TMySql (contribuciones de xHarbour la encontras). Me costo al principio poder general la libreria, pero con algunos consejos de la gente de este foro (wmormar gracias!!!) lo logre y en dos horas estaba hecho un prototippo de la consulta que deseaba hacer. \nLo importante de esto es que tenes que saber algo de los mandatos de SQL (no son muchos y muy faciles de entender) y por otro lado que cambia un poco la logica de tratar los datos. Ademas requiere que el analisis de diseño lo hagas mas a conciencia, sobre todo que campos van a hacer clave primaria, las relaciones entre tablas, etc.\nYa no tenes a tu dispocicion todos los registros contenidos en la base, como sucedia con las Dbf, sino que vos consultas (query) determinada informacion, y es el motor el encargado de devolverte los datos necesarios, a partir de ahi, esos datos lo podes tratar como vos quieras, meterlos en una Dbf temporal, en un array,etc. igual que como lo hacias antes.\nTodavia me falta investigar mas a fondo la incorporacion de nvos. datos, modificacion, baja etc. Pero por lo que vi hasta hora no es nada del otro mundo.\n\nCon respecto a las herramientas, vas a necesitar algun programa para manejar las bases visualmente como por ejemplo NaviCat de PremiunSoft (muy bueno y no es caro), EMS MySQL Manager PRO, MySQL-Front, o cualquiera que vos te sientas comodo.\nEn cuanto a las librerias, yo solo probe hasta ahora lo que te mencione al pricipio. Me faltaria probar otras (FcsOdbc de Freddy Rodríguez Franjul // EAGLE1/Condor1 de Manu Exposito // SQLLIB de Kleyber Derick) cada una tendra lo suyo imagino. Por ahora lo unico que deseo es poder compilar la TMySql para Harbour, ya que me siento mucho mas comodo y seguro con Harbour.\nEspero poder haber sido de ayuda. (si no perdon)\nY ya sabes que por cualquier duda o lo que necesites estoy a tu dispocicion.\n\nUn gran abrazo TROESMA !!!!\nEl Loco =&gt;))','',0,'gA==','23ajz376',1,0,'',582,0,0),(38655,8318,6,582,0,'190.138.25.247',1191040977,1,0,1,1,1,0,'','','[quote=&quot;gabo&quot;:2qaelju8]Yo la TMySql la tengo utilizando pero solo con xHarbour.. si necesitas alguna orientacion con gusto.. estoy a la orden.   se supone que en este momento debe de compilar bien con harbour..\nSaludos[/quote:2qaelju8]\nGabo, gracias por tu disposición.\nPero sabes que no, todavia me da errores, pero por falta de tiempo (tengo que sacar tres trabajos urgentes) no pude investif¡gar mucho.\n\nDe todad maneras muchisimas gracias.\nUn abrazo. El Loco =&gt;))\nPD. la version que utilizas es la misma de las contribuciones de xHarbour?\nDe no ser asi, podrias ser tan amable de enviarmela?','',0,'gA==','2qaelju8',1,0,'',582,0,0),(38656,8303,6,533,0,'83.58.216.49',1191043844,1,0,1,1,1,0,'','','Muchas Gracias a los 2 (Jaime y Gabriel). Esperaré noticias.','',0,'gA==','1ko1uf0v',1,0,'',533,0,0),(38657,8329,6,57,0,'83.63.129.140',1191045392,1,0,1,1,1,1,'','','Antonio\nUn trabajo magnifico. \nSaludos.','',0,'gA==','2krpyf26',1,0,'',57,0,0),(38658,8317,3,972,0,'81.164.117.81',1191050111,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:bxix1tgg]Your solution looks fine. Why do you care about the coordinates ?[/quote:bxix1tgg]Because the position (together with Height and Width) are saved on closing, so when the MDICHILD opens again, it\'s openend on the same position on the screen as where it was last closed. Same goes for height and width.\n\n[quote=&quot;Antonio Linares&quot;:bxix1tgg]I would suggest to change the \"virtual\" MDICHILD position when its maximized, but besides that, it seems ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:bxix1tgg]But than the user still can move the window out of the MDI Parent window. But this is not the problem <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nThese are the 3 things I would like the \"virtual\" MDICHILD to do, just like the \"real MDICHILD\" :\n\n[b:bxix1tgg]1.[/b:bxix1tgg] User can not move MDICHILD outside of the MDIParent (It\'s \'captured\' in the MDIParent window)\n([i:bxix1tgg]That\'s OK with \'SetParent()\'[/i:bxix1tgg])\n\n[b:bxix1tgg]2.[/b:bxix1tgg] Save MDICHILD\'s position together with its Height and Width\n([i:bxix1tgg]This is what does not work[/i:bxix1tgg])\n\n[b:bxix1tgg]3.[/b:bxix1tgg] Count with oWndParent:aWnd if there are MDICHILD\'s open\n([i:bxix1tgg]Can we add the window manually to oWndParent:oWndClient:aWnd?[/i:bxix1tgg])\n\nPatrick\n\nPS. I\'m thinking.. Would it not be more simple to change MDI- and/or Window class so a real MDICHILD accepts its own menu?\n\nPS2. This code shows the Cordination problems even more clear. The Top, Left, Width and Height vallues are shown in the Windows title bar:\n[code:bxix1tgg]#include &quot;fivewin&#46;ch&quot;\n\nSTATIC oWndParent\n\nPROCEDURE Main\n\n   LOCAL oMenu\n\n   MENU oMenu\n        MENUITEM &quot;Menu&quot;\n        MENU\n           MENUITEM &quot;New Regular window&quot; ;\n              ACTION NewWindow2&#40;&#46;F&#46;,&quot;Regular window&quot;&#41;\n              \n           MENUITEM &quot;New regular MDI Child window&quot; ;\n              ACTION NewWindow1&#40;&quot;Regular MDI Child window&quot;&#41;\n              \n           MENUITEM &quot;New MDI Child window via Setparent&#40;&#41;&quot; ;\n              ACTION NewWindow2&#40;&#46;T&#46;,&quot;MDI Child window via Setparent&#40;&#41;&quot;&#41;\n              \n           SEPARATOR     \n           \n           MENUITEM &quot;Show Len&#40;oWndParent&#58;oWndClient&#58;aWnd&#41;&quot; ;\n              ACTION MsgInfo&#40; Len&#40;oWndParent&#58;oWndClient&#58;aWnd&#41; &#41;\n              \n        ENDMENU     \n   ENDMENU\n\n   DEFINE WINDOW oWndParent ;\n          MENU oMenu ;\n          FROM 10,10 TO 50,99 ;\n          TITLE &quot;Test MDI Child with Setparent&#40;&#41;&quot; ;\n          MDI\n\n   ACTIVATE WINDOW oWndParent\n\nRETURN\n\n//-------------------------------------------------------------//\n\nPROCEDURE NewWindow1&#40;cTitle&#41;\n\n   LOCAL oWndChild\n\n   DEFINE WINDOW oWndChild;\n          MDICHILD;\n          OF oWndParent\n   \n   ACTIVATE WINDOW oWndChild;\n            ON MOVE ShowCoordinates&#40;oWndChild,cTitle&#41; ;\n            ON RESIZE ShowCoordinates&#40;oWndChild, cTitle&#41; ;\n            ON PAINT ShowCoordinates&#40;oWndChild, cTitle&#41;\n\nRETURN NIL\n\n//-------------------------------------------------------------//\n\nPROCEDURE NewWindow2&#40;lMDIChild,cTitle&#41;\n\n   LOCAL oWndChild,oMenu\n\n   MENU oMenu\n        MENUITEM &quot;File&quot;\n        MENU\n           MENUITEM &quot;Show coordinates&quot;;\n              ACTION MsgInfo&#40; ShowCoordinates&#40;oWndChild, cTitle&#41; &#41;\n        ENDMENU     \n   ENDMENU\n\n   DEFINE WINDOW oWndChild;\n          MENU oMenu\n   \n   ACTIVATE WINDOW oWndChild;\n            ON MOVE ShowCoordinates&#40;oWndChild, cTitle&#41; ;\n            ON RESIZE ShowCoordinates&#40;oWndChild, cTitle&#41; ;\n            ON PAINT ShowCoordinates&#40;oWndChild, cTitle&#41;\n\n   IF lMDIChild\n      SetParent&#40; oWndChild&#58;hWnd, oWndParent&#58;oWndClient&#58;hWnd &#41;\n    //Aadd&#40; oWndParent&#58;oWndClient&#58;aWnd, oWndChild &#41;\n   ENDIF\n\nRETURN NIL\n\n//-------------------------------------------------------------//\n\nFUNCTION ShowCoordinates&#40;oWndChild,cTitle&#41;\n\n   LOCAL aStart, cPos, aClntArea\n   \n   aClntArea&#58;=GetClientRect&#40;oWndParent&#58;hWnd&#41;\n   oWndChild&#58;Normal&#40;&#41;\n   aStart&#58;=&#123;aClntArea&#91; 1&#93;,aClntArea&#91; 2&#93;&#125;\n   ClientToScreen&#40;oWndParent&#58;hWnd,aStart&#41;\n   oWndChild&#58;CoorsUpdate&#40;&#41;\n\n   cPos&#58;=LTrim&#40;Str&#40;oWndChild&#58;nTop    ,4,0&#41;&#41;+&quot;,&quot;+;\n         LTrim&#40;Str&#40;oWndChild&#58;nLeft   ,4,0&#41;&#41;+&quot;,&quot;+;\n         LTrim&#40;Str&#40;oWndChild&#58;nBottom ,4,0&#41;&#41;+&quot;,&quot;+;\n         LTrim&#40;Str&#40;oWndChild&#58;nRight  ,4,0&#41;&#41;\n         \n   oWndChild&#58;SetText&#40; cTitle + &quot; &#91; &quot; + cPos + &quot; &#93;&quot; &#41;\n\nRETURN cTitle + &quot; &#91; &quot; + cPos + &quot; &#93;&quot;\n\n//-------------------------------------------------------------//\n\n[/code:bxix1tgg]','',0,'4IA=','bxix1tgg',1,0,'',972,0,0),(38659,8317,3,972,0,'81.164.117.81',1191051184,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:jo9n5ses]Patrick,\n\nIt may be interesting to test it the other way round:\n\nCreate a MDICHILD window, change its parent to the desktop, set it a menu, and change back its parent. I am curious to know how Windows will behave <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nTo avoid flickering, the window could be hiden and shown later on[/quote:jo9n5ses]Hmm, interesting idea <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nBut it did not work. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nThis is what I tried:[code:jo9n5ses]PROCEDURE NewWindow1&#40;cTitle&#41;\n\n   LOCAL oWndChild,oMenu\n   \n   MENU oMenu\n        MENUITEM &quot;File&quot;\n        MENU\n           MENUITEM &quot;Show coordinates&quot;;\n              ACTION MsgInfo&#40; ShowCoordinates&#40;oWndChild, cTitle&#41; &#41;\n        ENDMENU     \n   ENDMENU\n   \n\n   DEFINE WINDOW oWndChild;\n          MDICHILD;\n          OF oWndParent\n   \n   ACTIVATE WINDOW oWndChild;\n            ON MOVE ShowCoordinates&#40;oWndChild,cTitle&#41; ;\n            ON RESIZE ShowCoordinates&#40;oWndChild, cTitle&#41; ;\n            ON PAINT ShowCoordinates&#40;oWndChild, cTitle&#41;\n            \n   SetParent&#40; oWndChild&#58;hWnd &#41;\n   \n   oWndChild&#58;SetMenu&#40; oMenu &#41;\n   \n   SetParent&#40; oWndChild&#58;hWnd, oWndParent&#58;oWndClient&#58;hWnd &#41;\n\nRETURN NIL\n[/code:jo9n5ses]\n\nPatrick','',0,'gIA=','jo9n5ses',1,0,'',972,0,0),(38660,8310,6,24,0,'88.18.35.174',1191051210,1,0,1,1,1,1,'','Re:','[quote=&quot;MarioDava&quot;:3415xzpd]Thefull, de hecho si vi tus articulos, e hice las pruebas pero no me funciono, primero no supe cual era la libreria o si era un prg con la clase, que include se necesitaba, etc.\n\nDe hecho tampoco me funciono la clase XMLRead, así que me ire con las sugerencia de Miguel.\n\nPero agradezco la atención.\n\nSaludos,\n[/quote:3415xzpd]\nSon simplemente las clases de xHarbour.\nNo se si esta disponible en Harbour, en caso de que uses este compilador.\n\nPero te aseguro que la clase de xHarbour , ademas de ser muy rapida, es ademas de gran ayuda <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','3415xzpd',1,0,'',24,0,0),(38661,8317,3,2,0,'87.218.146.157',1191055490,1,0,1,1,1,1,'','','Patrick,\n\n&gt;\n2. Save MDICHILD\'s position together with its Height and Width \n(This is what does not work) \n&gt;\n\nHave you tried to combine ScreenToClient() and ClientToScreen() ? Based on the (right) used hWnd, you may get the correct coordinates.\n\n&gt;\n3. Count with oWndParent:aWnd if there are MDICHILD\'s open \n(Can we add the window manually to oWndParent:oWndClient:aWnd?) \n&gt;\n\nYes, you can manually add to :aWnd\n\n&gt;\nPS. I\'m thinking.. Would it not be more simple to change MDI- and/or Window class so a real MDICHILD accepts its own menu? \n&gt;\n\nWe can\'t because the MDI global behavior is built-in in Windows. It has certain limitations (same as it provides some extra functionalities) and one of them is that a MDICHILD can\'t have its own pulldown menu (well, it can, but its shown on the main MDIFRAME window).\n\nBut your solution is fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','13gepzpl',1,0,'',2,0,0),(38662,8317,3,972,0,'81.164.117.81',1191058250,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:25gd7v3l]&gt;\n2. Save MDICHILD\'s position together with its Height and Width \n(This is what does not work) \n&gt;\n\nHave you tried to combine ScreenToClient() and ClientToScreen() ? Based on the (right) used hWnd, you may get the correct coordinates.[/quote:25gd7v3l]\nSorry I don\'t understand, can you give me a sample?\n\nOr better, can you try in my sample?\n\nThanks!\n\nPatrick','',0,'gA==','25gd7v3l',1,0,'',972,0,0),(38663,8317,3,2,0,'87.218.146.157',1191062026,1,0,1,1,1,1,'','','Patrick,\n\nThis way you get the right coordinates for the \"virtual\" MDICHILD window:\n[code:237zljtx]\n   local aPos &#58;= &#123; oWndChild&#58;nTop, oWndChild&#58;nLeft &#125;\n   \n   ScreenToClient&#40; oWndParent&#58;oWndClient&#58;hWnd, aPos &#41;\n\n   oWndChild&#58;SetText&#40; cTitle + &quot; &#91; &quot; + Str&#40; aPos&#91; 1 &#93; &#41; + &quot;, &quot; + ;\n                      Str&#40; aPos&#91; 2 &#93; &#41; + &quot;, &quot; + Str&#40; aPos&#91; 1 &#93; + oWndChild&#58;nHeight &#41; + ;\n                      &quot;, &quot; + Str&#40; aPos&#91; 2 &#93; + oWndChild&#58;nWidth &#41; + &quot; &#93;&quot; &#41; \n[/code:237zljtx]','',0,'AIA=','237zljtx',1,0,'',2,0,0),(38664,8317,3,972,0,'81.164.117.81',1191067119,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1v4nog85]Patrick,\n\nThis way you get the right coordinates for the \"virtual\" MDICHILD window:\n[code:1v4nog85]\n   local aPos &#58;= &#123; oWndChild&#58;nTop, oWndChild&#58;nLeft &#125;\n   \n   ScreenToClient&#40; oWndParent&#58;oWndClient&#58;hWnd, aPos &#41;\n\n   oWndChild&#58;SetText&#40; cTitle + &quot; &#91; &quot; + Str&#40; aPos&#91; 1 &#93; &#41; + &quot;, &quot; + ;\n                      Str&#40; aPos&#91; 2 &#93; &#41; + &quot;, &quot; + Str&#40; aPos&#91; 1 &#93; + oWndChild&#58;nHeight &#41; + ;\n                      &quot;, &quot; + Str&#40; aPos&#91; 2 &#93; + oWndChild&#58;nWidth &#41; + &quot; &#93;&quot; &#41; \n[/code:1v4nog85][/quote:1v4nog85]\n\nWow, works perfect!! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nThanks!!!\n\nPatrick','',0,'gIA=','1v4nog85',1,0,'',972,0,0),(38665,8227,7,57,0,'83.63.129.140',1191067478,1,0,1,1,1,1,'','','Gracias Antonio. Funciona Correctamente.\n\nSolo una pregunta. Es obligatorio finalizar con un END SEQUENCE, o para seguir el mismo criterio ¿Seria correcto esto?\n\n#xcommand ENDCATCH          =&gt; END SEQUENCE \n\nSaludos.\nToni Sales','',0,'gIA=','1l45cw5b',1,0,'',57,0,0),(38666,8344,3,6,0,'79.19.243.90',1191068200,1,0,1,1,1,1,'','Bug in TBtnBmp','The following sample shows the problem (the button is inset and partially visible):\n\n[code:2zqomxt4]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BTNBMP\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:2zqomxt4]\n\nEMG','',0,'AIA=','2zqomxt4',1,0,'',6,0,0),(38667,8345,19,171,0,'71.233.232.238',1191069077,1,0,1,1,1,0,'','[OT] Microsoft\'s Excel 2007 Fails Basic Math Test','Interesting \n\n<!-- m --><a class=\"postlink\" href=\"http://www.foxnews.com/story/0,2933,298510,00.html\">http://www.foxnews.com/story/0,2933,298510,00.html</a><!-- m -->','',0,'AIA=','2ssj5pyt',1,0,'',171,0,0),(38668,8227,7,2,0,'87.218.146.157',1191071267,1,0,1,1,1,1,'','','Toni,\n\nNosotros lo hemos usado en la construcción del ADORDD así:\n\nTRY\n...\nCATCH\n...\nEND\n\ny ha funcionado bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3hw4vyk3',1,0,'',2,0,0),(38669,8344,3,2,0,'87.218.146.157',1191071503,1,0,1,1,1,1,'','','Enrico,\n\nAre you testing it in XP or in Vista ? \n\nIn Vista it looks fine (inset), the only problem I see is that the focus dotted line is not visible on the right side.','',0,'AIA=','21a2gml8',1,0,'',2,0,0),(38670,8329,6,215,0,'189.136.199.15',1191071730,1,0,1,1,1,1,'','muy bien','Antonio,\n\nExcelente trabajo. \nLas aplicaciones ya van a ir tomando un aspecto más profesional. \n\nGracias por el esfuerzo.\n\nFernando Leal\nMéxico, DF','',0,'AIA=','1mjzwlla',1,0,'',215,0,0),(38671,8310,6,215,0,'189.136.199.15',1191075259,1,0,1,1,1,1,'','vale','Mario,\nPara extraer los datos del XML\n\n\noText := TTxtFile():New( \"ARCHIVO.XML\" )\n   oText:nMaxLineLength := 500\n   nRen := oText:RecCount() + 1\n\n\nCada uno de las lineas tiene un identificador único... por ejemplo:\n&lt;Contact_ContactPerson&gt;VERONICA MARTINEZ ALMENDAREZ&lt;/Contact_ContactPerson&gt; \n\n   FOR i := 1 TO nRen\n      cDatos := alltrim( oText:ReadLine() )  // una linea es un dato \n      if \"&lt;Contact_ContactPerson&gt;\"$cDatos\n        cDatos := strtran( cDatos, \"&lt;Contact_ContactPerson&gt;\",\"\" \n        cDatos := strtran( cDatos, \"&lt;/Contact_ContactPerson&gt;\",\"\"    \n\n        Con lo anterior solo queda \n         VERONICA MARTINEZ ALMENDAREZ\n\nY asi sucesivamente con cualquier otro datos. El resultado de cada linea lo guardas en una hoja excel, texto, dbf  o en lo que quieras.\n\n        \nFernando Leal\nMéxico, DF','',0,'AIA=','3vbqn27m',1,0,'',215,0,0),(38672,8343,6,1072,0,'201.214.53.132',1191076405,1,0,1,1,1,0,'','','Amigos:\n\nNadie lo sabe,\n\nAntonio','',0,'AIA=','1psbu4e8',1,0,'',1072,0,0),(38673,8318,6,72,0,'189.136.189.135',1191079265,1,0,1,1,1,0,'','','Gracias por el aprecio, aliento y ánimo Miguel Angel (igual de aca palla).\n\nCreo que no conoceré el camino hasta no dar el primer paso, por hoy es una vereda desconocida.\n\nSeguré intentado el suicidio con un pomo de tequila.','',0,'AIA=','lneo84tc',1,0,'',72,0,0),(38674,8227,7,57,0,'83.63.129.140',1191082509,1,0,1,1,1,1,'','','Gracias Antonio.\nFunciona perfectamente como indicas. \n\nSaludos\nToni Sales','',0,'AIA=','3nvq0bv4',1,0,'',57,0,0),(38675,8344,3,6,0,'79.19.243.90',1191082941,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:bgxfhsn3]Enrico,\n\nAre you testing it in XP or in Vista ? \n\nIn Vista it looks fine (inset), the only problem I see is that the focus dotted line is not visible on the right side.[/quote:bgxfhsn3]\n\nI tested it in XP and inset is one of the problems. It is not inset when defined from resources.\n\nThe BUTTONBMPs work fine instead.\n\nEMG','',0,'gA==','bgxfhsn3',1,0,'',6,0,0),(38676,8346,6,179,0,'190.10.198.97',1191083389,1,0,1,1,1,1,'','Cerrar Tablas en una Window','buenoas dias compañeros, pues eso\n\ntengo algo como esto\n\n\nUse tabla1 new alias tabla1 shared\n\nUse tabla2 new alias tabla2 shared\n\ndefine window oWnd From ...\n@ 000,255 LISTBOX oLbx FIELDS ... alias \'Tabla1\'\n@ 255,0    LISTBOX oLbx1 FIELDS ... alias \'Tabla2\'\n\nactivate window oWnd Valid( If(Msgyesno(\'sales\'), (CierraTablas(),.t.),.F.) )\n\n\nfunction cierraTablas\n    select tabla1\n    dbclosearea()\n    select tabla2\n    dbclosearea()\nReturn Nil\n\npero me da error al salir de la ventana, la pregunta es en QUE EVENTO de la ventana debo cerrar las tablas ??\n\ngracias x todo\nsaludos','',0,'gA==','2jz6umjm',1,0,'',179,0,0),(38677,8318,6,53,0,'189.139.19.123',1191084578,1,0,1,1,1,1,'','','Alfredo:\n\nCierto es que el primer paso es que aprendas los más que puedas sobre comandos SQL, hay mucha literatura sobre ello, como bien te dicen debes aprender sobre llaves primarias, índices, como se forman ?, para que te sirven ?, índices ?, significa que puedo utilizar DBSEEK() ?, no no DBSEEK() no existe, entonces para que me sirven los índices ?, como veras son muchas dudas que resolver antes de hincarle el diente a ODBC,ADO ADORDD, etc etc.\n\nMe he iniciado con ADO y MySql, según los gurus ADO es el camino a seguir, y pues resulta que es más fácil que quitarle su dinero a una borracha,  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNo llevo mucho aprendido pero lo poco que tengo lo pongo a tu disposición cuando tu quieras.\n\nSaludos','',0,'gA==','2h197xkb',1,0,'',53,0,0),(38678,8344,3,2,0,'87.218.146.157',1191084964,1,0,1,1,1,1,'','','Enrico,\n\nSo we are talking about the inset and the dotted line, right ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThanks for your help,','',0,'gA==','195hiv12',1,0,'',2,0,0),(38679,8346,6,53,0,'189.139.19.123',1191085416,1,0,1,1,1,1,'','','Wilson:\n\nYo lo haría así:\n\n....\n.....\nACTIVATE WINDOWS oWnd Valid((CierraTablas())\n \nFUNCTION cierraTablas()\nIF MsgYesNo(Seguro desea salir ?)\n     select tabla1  \n     dbclosearea() \n     select tabla2 \n     dbclosearea() \nELSE\n     RETURN(.F.)\nENDIF\nReturn(.T.)','',0,'gA==','gam4cluo',1,0,'',53,0,0),(38680,8344,3,6,0,'79.19.243.90',1191085551,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2dd6xavd]Enrico,\n\nSo we are talking about the inset and the dotted line, right ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2dd6xavd]\n\nExactly.\n\nEMG','',0,'gA==','2dd6xavd',1,0,'',6,0,0),(38681,8343,6,2,0,'87.218.146.157',1191085671,1,0,1,1,1,1,'','','Antonio,\n\nxharbour.com vende un RDD de SixDriver para xHarbour','',0,'gA==','24for91d',1,0,'',2,0,0),(38682,8346,6,2,0,'87.218.146.157',1191085888,1,0,1,1,1,1,'','','Wilson,\n\nEl problema es que se genera un último pintado y los browses ya no tienen acceso a los datos pues se han cerrado las DBFs.\n\nLa solución es asignar \"\" a cAlias antes de cerrar las DBFs:\n\noLbx1:cAlias = \"\"\noLbx2:cAlias = \"\"','',0,'gA==','63numrr3',1,0,'',2,0,0),(38683,8346,6,179,0,'190.10.198.97',1191086184,1,0,1,1,1,1,'','','Armando y Antonio, gracias , lo prueba y les aviso\nsaludos','',0,'gA==','3t8m8ovt',1,0,'',179,0,0),(38684,8318,6,2,0,'87.218.146.157',1191086288,1,0,1,1,1,1,'','','Miguel Angel,\n\ntmysql.prg contiene algunas sentencias que no estan soportadas en Harbour, como por ejemplo el uso de IN:\n\n   METHOD   DBExist( cDB )       INLINE ( cDB IN ::ListDBs() )\n\nPrueba a añadir #define IN $  al principio por si ayuda','',0,'gA==','9u9hzx6m',1,0,'',2,0,0),(38685,8318,6,582,0,'190.138.25.247',1191090139,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:38pi7enc]Miguel Angel,\n\ntmysql.prg contiene algunas sentencias que no estan soportadas en Harbour, como por ejemplo el uso de IN:\n\n   METHOD   DBExist( cDB )       INLINE ( cDB IN ::ListDBs() )\n\nPrueba a añadir #define IN $  al principio por si ayuda[/quote:38pi7enc]\nOk Antonio lo voy a intentar.\nUn abrazo y gracias. El loco =&gt;))','',0,'gA==','38pi7enc',1,0,'',582,0,0),(38686,8318,6,582,0,'190.138.25.247',1191090445,1,0,1,1,1,0,'','','[quote=&quot;Alfredo Arteaga&quot;:29dlpl5u]Gracias por el aprecio, aliento y ánimo Miguel Angel (igual de aca palla).\n\nCreo que no conoceré el camino hasta no dar el primer paso, por hoy es una vereda desconocida.\n\nSeguré intentado el suicidio con un pomo de tequila.[/quote:29dlpl5u]\nTroesma no se haga el humilde, que somos poco y nos conocemos mucho =&gt;))\n\nSolo te falta, que entre tequila y tequila, te sientes tranquilo a probar.\nNo es tan dificil. Ademas vas a ver que podes lograr algunas cosas que antes ni soñando =&gt;))\n\nHacele caso al alumno =&gt;))))))\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','29dlpl5u',1,0,'',582,0,0),(38687,8347,3,47,0,'203.144.160.247',1191091416,1,0,1,1,1,0,'','May I have an sample for TProgress for Index','Dear All,\n\nI\'ve used TMeter for index progress bar and it works in 16bits but I convert to 32bits now.  I don\'t work properly.  May I have an example for Index Progress Bar?\n\nThanks in advance,\nDutch','',0,'gA==','19zfwkdv',1,0,'',47,0,0),(38688,8348,3,51,0,'80.122.88.242',1191091454,1,0,1,1,1,0,'','Wbrowse  how to clear filter','How can I clear a  filter?\noLbx:setfiler(cField, uVal1, uVal2 )\n\nRegards,\nOtto','',0,'gA==','3su896cj',1,0,'',51,0,0),(38689,8347,3,86,0,'81.83.151.142',1191092777,1,0,1,1,1,1,'','','Sorry, I don\'t have an example for an index progress bar.\n\nBut it looks strange to me that TMeter isn\'t working in 32-bit.\n\nI converted a progress bar, using TMeter, from 16-bits to 32-bits too and it is working fine here.','',0,'gA==','2dq9ueg4',1,0,'',86,0,0),(38690,8343,6,1072,0,'201.214.53.132',1191094562,1,0,1,1,1,0,'','','Antonio:\n\nEso indica que yo no puedo actualizar indices Sixdriver, desde una programa con una declaracion de Rdd CDX ?.\n\nSaludos\n\n\n\n[quote=&quot;Antonio Linares&quot;:1ujc1rhj]Antonio,\n\nxharbour.com vende un RDD de SixDriver para xHarbour[/quote:1ujc1rhj]','',0,'gA==','1ujc1rhj',1,0,'',1072,0,0),(38691,8348,3,2,0,'87.218.146.157',1191096157,1,0,1,1,1,1,'','','Otto,\n\noBrw:SetFilter()\noBrw:Refresh()','',0,'gA==','3tiuhr0w',1,0,'',2,0,0),(38692,8347,3,6,0,'79.19.243.90',1191096631,1,0,1,1,1,1,'','Re: May I have an sample for TProgress for Index','This is a working sample:\n\n[code:16gf06qq]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oMtr\n\n    LOCAL nPos\n\n    USE TEST\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 METER oMtr VAR nPos TOTAL LASTREC&#40;&#41;;\n           SIZE 100, 20\n\n    @ 3, 1 BUTTON &quot;Start&quot;;\n           ACTION STARTINDEX&#40; oMtr &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL\n\n\nSTATIC FUNCTION STARTINDEX&#40; oMtr &#41;\n\n    INDEX ON FIELD -&gt; last + FIELD -&gt; first TO MTRTEST EVAL &#40; oMtr&#58;Set&#40; RECNO&#40;&#41; &#41;, oMtr&#58;Refresh&#40;&#41;, &#46;T&#46; &#41;\n\n    MSGINFO&#40; &quot;Done!&quot; &#41;\n\n    RETURN NIL[/code:16gf06qq]\n\nEMG','',0,'AIA=','16gf06qq',1,0,'',6,0,0),(38693,8343,6,2,0,'87.218.146.157',1191096664,1,0,1,1,1,1,'','','No lo sé con seguridad.\n\nEnvíale un email a Patrick Mast que posiblemente te pueda ayudar.','',0,'AIA=','19ngso85',1,0,'',2,0,0),(38694,8213,7,598,0,'201.209.1.134',1191098854,1,0,1,1,1,1,'','','yo logre que imprimiera directamente desde FWPPC utilizando una libreria que me proporciona el fabricante, estoy usando una BROTHER MW100 MOBILE PRINTER imprime perfecto, graficos y todo.','',0,'AIA=','1jrn909s',1,0,'',598,0,0),(38695,8349,6,596,0,'84.76.66.27',1191099633,1,0,1,1,1,1,'','Codigo fuente HTML con Activex','Estoy leyendo paginas HTML con Activex, ejemplo oActiveX&#058;Do(\"Navigate2\",alltrim(cURL)), y con un Timer voy refrescando el contenido de la visualizacion.\n\nMe gustarian hacer 2 cosas con Activex&#058;\nQuedarme con un Print-Screen (JPG) del contenido de la ventana.\nQuedarme con el codigo HTML (el texto ASCII) de la pagina llamada.','',0,'AIA=','3vrp2zv3',1,0,'',596,0,0),(38696,8343,6,1072,0,'201.214.53.132',1191101045,1,0,1,1,1,0,'','','Antonio:\n\nMuchas Gracias,\n\nSaludos,\nAntonio\n\n\n\n\n[quote=&quot;Antonio Linares&quot;:zribpuci]No lo sé con seguridad.\n\nEnvíale un email a Patrick Mast que posiblemente te pueda ayudar.[/quote:zribpuci]','',0,'gA==','zribpuci',1,0,'',1072,0,0),(38697,8349,6,2,0,'87.218.146.157',1191101332,1,0,1,1,1,1,'','','&gt; Quedarme con un Print-Screen (JPG) del contenido de la ventana. \n\noWnd:HardCopy( [&lt;nZoom&gt;] )\n\nó\n\noActiveX&#058;HardCopy( [&lt;nZoom&gt;] )\n\n&gt; Quedarme con el codigo HTML (el texto ASCII) de la pagina llamada.\n\nTendrás que buscar (en google) alguna propiedad del ActiveX que te de acceso al HTML mostrado','',0,'','19xsfsax',1,0,'',2,0,0),(38698,8350,6,73,0,'189.157.187.215',1191106370,1,0,1,1,1,0,'','abrir dbcombo','Pues eso,\n\ntengo un dialogo desde recurso con un dbcombo y un boton, lo que quiero es que al abrir el dialogo el dbcombo este abierto (como si le hubiera dado clic al boton)\nsalu2\npaco','',0,'','32q2olrq',1,0,'',73,0,0),(38699,8346,6,179,0,'190.10.198.97',1191109823,1,0,1,1,1,1,'','','gracias Antonio, funciono perfecto, y con la idea de Armando, si a alguien le sirve, lo hice asi\n\n\n[code:jqkdu8f7]\n\nActivate Window oWnd Valir&#40; CierraTablas&#40; oWnd, aAlias  &#41; &#41;\n\n\n&#46;&#46;&#46;\n\n\nFunction CierraTablas&#40; oWnd, aAlias  &#41; \n\n    Local i &#58;= 0\n    Local oCtrl\n    Local lRet &#58;= &#46;F&#46;\n\n    if MsgYesno&#40; \'Sales\' &#41; \n\n        lRet &#58;= &#46;T&#46;\n\n        while ++i &lt;= len&#40; oWnd&#58;aControls &#41;\n            oCtrl &#58;= oWnd&#58;aControls&#91; i &#93;\n            if oCtrl&#58;ClassName&#40;&#41; == \'TWBROWSE\'\n                oCtrl&#58;cAlias &#58;= \'\'\n            end\n        end\n\n        i&#58;= 0\n\n        while ++i &lt;= len&#40; aAlias &#41;\n            select &#40; aAlias&#91; i &#93; &#41;\n            dbclosearea&#40;&#41;\n        end\n\n     end\n\nReturn lRet\n\n[/code:jqkdu8f7]\n\n\n\ngracias x todo saludos\n[/code]','',0,'AIA=','jqkdu8f7',1,0,'',179,0,0),(38700,8341,6,252,0,'201.140.19.216',1191116206,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1788&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\nSaludos.','',0,'AIA=','4s4sswco',1,0,'',252,0,0),(38701,8350,6,582,0,'190.138.25.247',1191128884,1,0,1,1,1,0,'','Re: abrir dbcombo','[quote=&quot;Francisco Horta&quot;:k0w27g84]Pues eso,\n\ntengo un dialogo desde recurso con un dbcombo y un boton, lo que quiero es que al abrir el dialogo el dbcombo este abierto (como si le hubiera dado clic al boton)\nsalu2\npaco[/quote:k0w27g84]\nPaco, haber si te entendi y te sirve  esto:\nRedefine DbCombo oCbx .............................\n....\n....\nActivate Dialog..... On Init(If(oCbx:IsClosed(),oCbx:Open(),))\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','k0w27g84',1,0,'',582,0,0),(38702,8351,6,960,0,'84.125.196.99',1191144819,1,0,1,1,1,0,'','Bitmap transparentes en toolbar','estimados compañeros\n\nQuiero hacer un toolbar con bmp desde RC con estilo Wxp, pero no consigo hacer transparentes los Bitmap\n\n¿ Como es posible ?\nMil gracias\nUn saludo a todos!','',0,'gA==','a9h8d3pr',1,0,'',960,0,0),(38703,8351,6,960,0,'84.125.196.99',1191145139,1,0,1,1,1,0,'','','Encontre la solución\n\nsimplemente era insertando  RGB(255,255,255).. Yo lo tenía como  RGB(255,0,255)\n\nMil gracias','',0,'gA==','1f30uys3',1,0,'',960,0,0),(38704,8352,3,178,0,'71.29.206.74',1191169539,1,0,1,1,1,1,'','Webserver','Hello All,\n\nI have been doing a lot of work as of late using the webserver class\nand have added a hook to the OnPost function so that I can manipulate\nthat data and react to it as it is coming in.   I am scanning the boundry tags\nto keep things together on uploads. For the most part it seems to \nwork fine untill I post larger files to it (35K).\n\nIt seems that the OnRead takes over at some point in the middle of the \nprocess and the OnPost delivers about 8K of the data. I can see the rest of it coming in the log so it is getting there. It looks like I might need to come up with a way to get these two functions to mesh. Before I do all that work\nI was wondering if any one had any suggestions.\n\n\nThanks','',0,'gA==','2hj9dljv',1,0,'',178,0,0),(38705,8353,6,1072,0,'201.214.53.132',1191171756,1,0,1,1,1,0,'','Error al Compilar Urgente','Hola Amigos:\n\nTengo un Sistema Funcionando en Fw 16 Bits, lo estoy pasando a xHarbour y me da error al compilar con Verce.\n\nQue me falta cambiar aqui?\n\nSaludos,\nAntonio\n\nFwh 7.01, xHarbour 00.99.71, Verce\n\n** La Rutina es:\n\nFunction IniArchi()\n  Local aStru\nif !file(\'Men_club.dbf\')\n   aStru :={{\"Tip_men\", \"C\",2,0 },;\n          {\"Cod_men\" ,    \"C\",3,0 },;\n          {\"Det_Men\" ,    \"C\",35,0 },;\n          {\"Nom_ico\" ,    \"C\",30,0 },;\n          {\"Ubi_ico\" ,    \"C\",20,0 },;\n          {\"tip_ico\" ,    \"C\",4,0}}\n\n  dbcreate(\"Men_club.dbf\",aStru)\nendif\nif !file(\'Men_club.cdx\')\n  sele 1\n  use Men_club Exclusi\n  inde on Tip_men+Cod_men tag Men_clu1 to Men_club\n  use\nendif\nreturn nil\n\n*** EL ERROR ES EL SIGUIENTE:\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'c:\\util\\iniarchi.prg\' and generating preprocessed output to \'c:\\util\\iniarchi.ppo\'...\nc:\\util\\iniarchi.prg(19) Warning W0001  Ambiguous reference: \'TIP_MEN\'\nc:\\util\\iniarchi.prg(19) Warning W0001  Ambiguous reference: \'COD_MEN\'\nLines 24, Functions/Procedures 1\nGenerating C source output to \'c:\\util\\iniarchi.hrb\'...\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nc:\\util\\iniarchi.hrb:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFin del proceso.\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\nApplication Build Success !!!\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!','',0,'gA==','2xljpsr8',1,0,'',1072,0,0),(38706,8353,6,53,0,'189.139.96.60',1191177052,1,0,1,1,1,1,'','','M. Antonio:\n\nEl problema no es porque compiles con VERCE, intentalo así\n\ninde on Field-&gt;Tip_men+Field-&gt;Cod_men tag Men_clu1 to Men_club \n\nSaludos','',0,'gA==','3va9m4wl',1,0,'',53,0,0),(38707,8354,6,960,0,'84.125.196.99',1191180827,1,0,1,1,1,0,'','Insertar un tooltip en un buttonbmp','Estimados compañeros\n\nhasta el momento siempre utilice btnbmp pero no adquiria el aspecto Wxp cuando compilaba.\nAhora utilizo buttonbmp y adquiere el aspecto Wxp, pero no consigo insertarle un tooltip a cada button\nMe es importante un tooltip en cada button, me lo recalcó bastante mi cliente \n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  \n\n¿ Como lo haceis vosotros ? \nMil gracias\nLORENZO','',0,'gA==','2jups6b1',1,0,'',960,0,0),(38708,8354,6,180,0,'81.32.230.233',1191181707,1,0,1,1,1,0,'','Re: Insertar un tooltip en un buttonbmp','Tan sencillo como esto:\n\n     REDEFINE BUTTONBMP oBtnSalir  ID 106 OF oDlg ;\n              ACTION oDlg:End();\n              BITMAP \"SALIR\" PROMPT \"    Salir\" TEXTRIGHT\n\n     oBtnSalir:cToolTip:=\" Irse pafuera \"\n\nUn saludo,\nManuel\n\n[quote=&quot;Loren&quot;:2ktg4i5x]Estimados compañeros\n\nhasta el momento siempre utilice btnbmp pero no adquiria el aspecto Wxp cuando compilaba.\nAhora utilizo buttonbmp y adquiere el aspecto Wxp, pero no consigo insertarle un tooltip a cada button\nMe es importante un tooltip en cada button, me lo recalcó bastante mi cliente \n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  \n\n¿ Como lo haceis vosotros ? \nMil gracias\nLORENZO[/quote:2ktg4i5x]','',0,'gA==','2ktg4i5x',1,0,'',180,0,0),(38709,8353,6,1072,0,'201.214.53.132',1191182939,1,0,1,1,1,0,'','','Armando:\n\nMil gracias, lo aplique y todo va excelente.\n\nSaludos,\nAntonio','',0,'gA==','3sk5cp5f',1,0,'',1072,0,0),(38710,8355,6,960,0,'84.125.196.99',1191185453,1,0,1,1,1,0,'','Clase tbuttonbmp','Estimados compañeros:\n\nMe estoy volviendo loco!! \nEn el buttonbmp siempre me sale el TEXT centrado y montado encima del BITMAP y no logro desplazar el BITMAP mediante ninguna de las clausulas TEXTTOP | TEXTBOTTOM | TEXTLEFT | TEXTRIGHT \n\nSiempre me sale centrado tanto el TEXT como el BITMAP y ambos se pisan.\nProbé en cambiar en el Workshop la clausula LEFT y RIGHT, pero la cosa sigue exactamente igual.\n\nQue solución tiene??\nMil gracias','',0,'gA==','o0d264ri',1,0,'',960,0,0),(38711,1116,3,299,0,'24.233.172.101',1191190982,1,0,1,0,1,0,'','','Antonio;\n\nHere is what I get:\n[quote:12immnz3]\nBad URL\n[/quote:12immnz3]\n\nAny other way to gain access to the wordfile for uestudio?\n\n\nReinaldo.','',0,'gA==','12immnz3',1,0,'',299,0,0),(38712,8356,3,299,0,'24.233.172.101',1191193071,1,0,1,0,1,0,'','ultraedit studio','Hi all!\n\nJust started using UE studio.   I can\'t find syntax highlighting specific for xharbour.  \n\nHow is it done?  \nHow do I get syntax highlighting to work case insensitive?\nHow do I get it to recognize FW?\n\nI\'m not refering to build-compile-make cycle.  For now I\'m only concern with syntax highlighting.\n\nThank you,\n\n\n\nReinaldo.','',0,'gA==','narl7vt4',1,0,'',299,0,0),(38713,8357,19,1114,0,'200.127.42.239',1191201474,1,0,1,1,1,0,'','Ot:Pack de Aplicaciones con Codigo fuente','Estimados Colegas\n\nTengo a la venta un pack de aplicaciones Con Codigo Fuente    \nFivewin / Clipper / Xharbour\n\n\n** Hotel (Alojamiento, Bar,Reservas, check in, Spa ,planning   \n    automaticos )\n\n** Kioscos de Golosinas y Cigarrillos\n\n** Gestion Comercial   para Comercios y Pymes\n\n** Catalogo de Pedidos Empresas de Autopartes (encriptamiento de\n    precios en tiempor real,fotos  etc)\n\n Para consultas o pedidos <!-- e --><a href=\"mailto:devwin2010@yahho.com.ar\">devwin2010@yahho.com.ar</a><!-- e -->\n\n desde ya  muchas gracias\n\nFabian','',0,'gA==','rjp2kv9o',1,0,'',1114,0,0),(38714,8357,19,1114,0,'200.127.42.239',1191201655,1,0,1,1,1,0,'','','para consultas, demos o pedidos <!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->','',0,'gA==','2plb9rr7',1,0,'',1114,0,0),(38715,8358,6,78,0,'190.43.177.253',1191202741,1,0,1,1,1,0,'','PALM recomendada','Hola Amigos.\nPodrian recomendare algun model de PALM que se ajuste al FW Pocket PC ?\n\nSalu2','',0,'gA==','1u93r369',1,0,'',78,0,0),(38716,8356,3,177,0,'194.30.62.6',1191210850,1,0,1,1,1,0,'','','Hi Reinaldo,\n\nhere you are \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6773&amp;highlight=uestudio\">http://fivetechsoft.com/forums/viewtopi ... t=uestudio</a><!-- m -->\n\nBest regards,\n\nFelix','',0,'gA==','sfd9rsf3',1,0,'',177,0,0),(38717,8358,6,2,0,'87.218.146.157',1191212464,1,0,1,1,1,1,'','','Willy,\n\nHan de ser PDAs que usen Windows Mobile (version 2003 en adelante). \n\nLa única condición es que usen un micro Intel XScale ó compatible (arquitectura ARM).','',0,'gA==','1jwhbexy',1,0,'',2,0,0),(38718,8355,6,2,0,'87.218.146.157',1191212666,1,0,1,1,1,1,'','','Pudes usar una de la claúsulas: TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT\n\nRevisa samples\\TestBuBm.prg','',0,'gA==','1venn3mv',1,0,'',2,0,0),(38719,8356,3,2,0,'87.218.146.157',1191213306,1,0,1,1,1,1,'','','Reinaldo,\n\nAdd this text at the end of c:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\wordfile.txt :\n\n(You can include all FWH keywords also)\n\n/L12\"Clipper\" Nocase Line Comment = // Block Comment On = /* Block Comment Off = */ File Extensions = PRG CH\n/Function String = \"%*^{Function^}^{Method^}*(\"\n/Function String 1 = \"%^{Class^}%[a-zA-Z_0-9^]\"\n/Function String 2 = \"%^{Class^}%[a-zA-Z_0-9^]%^{From^}%[a-zA-Z_0-9^]\"\n/Function String 3 = \"%*^{Procedure^}*\"\n/C1\n.and. .not. .or. .t. .f. \n#include #define #ifdef #endif #else\naadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan\nbegin button buttonbar brush break\ncase class classdata close color colors checkbox create character column centered commit copy constructor\ndate do data dblclick declare deleted default delete design device dialog define dbcloseall dbskip dbclosearea dbsetorder dbseek dbrelation dbsetrelation dbgobottom dbgotop dbgoto dbsetfilter dbusearea dbcommit dbrecall dbdelete dbunlock dbappend\nexit else elseif endif export empty endclass endcase end endmenu enddo endpage endprint erase eof eval exact\nfile for function from of footer font filter field fieldget fieldput fcount flock ferase fields\nget go goto gotop\nhidden header headers\nicon id if iif inline index init in\nleft len locate listbox listview loop lower\nmaximized mdichild method memvar msgInfo msgBeep message menu menuitem msglogo\nnext numeric name\nof otherwise on off order ordsetfocus\npath pixel protected print page parameters procedure prompts preview picture\nquit\nreturn recall resource resources redefine read report replace right rlock recno\nsizes sequence self super set say separator size style sysrefresh shared select store skip seek softseek\ntime title tone to tooltip top total transform\nvar val valid valtype\nwhile when window with\nuse update upper\nzap\n/C2\nnew\n/C3 \nlocal \nstatic \npublic \nprivate\nnil\n:\n,\n;\n@\n|\n{\n}\n(\n)\n.\n[\n]\n&lt;\n&gt;\n=\n!\n+\n-\n*\n/\n%','',0,'','2ggdc599',1,0,'',2,0,0),(38720,8352,3,2,0,'87.218.146.157',1191213530,1,0,1,1,1,1,'','','Dave,\n\nWe haven\'t done any further Class TWebServer development, waiting to have full multithread support on Harbour. As far as we know (based on Przemek comments) xHarbour multithreading does not work fine or has potential problems.\n\nThe idea is that the Class TWebServer code just attend only \"one\" client. But using multithreading can attend as many \"one\"s as required, simultaneously (and using the same code), as a webserver must do.','',0,'','1dqckq10',1,0,'',2,0,0),(38721,1116,3,2,0,'87.218.146.157',1191213873,1,0,1,1,1,1,'','','Reinaldo,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=38719#38719\">http://fivetechsoft.com/forums/viewtopi ... 8719#38719</a><!-- m -->','',0,'','1lbmmn42',1,0,'',2,0,0),(38722,8274,18,1146,0,'87.223.165.162',1191225786,1,0,1,1,1,0,'','','Antonio,\n\nMuchas gracias y perdona el malentendido. Siempre he apreciado tu soporte y profesionalidad, y me extrañó que no fueras a mejorar la clase.\n\nUn saludo','',0,'','2rhe0rcs',1,0,'',1146,0,0),(38723,8359,3,3,0,'80.81.159.19',1191226896,1,0,1,1,1,1,'','advice needed on get and combobox','Hello\n\nI have a large table (coutry city names and zip codes) to check in my app.\n\nIdeally this is a dbcombo feature, but unfortunately i get thrown out by xharbour for memory problems... The table has 50.000 entries. I am running a vista with 2 gb memory.\n\nI have written a listbox (txbrowse) incremental search for it, and it works  ok. My problem is calling this function meanwhile the get.\n\nI have tried the valid clause, but this gets evaluated once the get is finished. This is what i am doing now because i have no other solution and it is not the best way.\n\nIs there a way to type some characters in te get and have simultaneously a listbox showing values close to what you type ?\n\nEx : If i type P  everything starting with p will appear, pa....etc\n\nthanks for your help,\n\nRichard','',0,'','2ve7btfl',1,0,'',3,0,0),(38724,8360,6,57,0,'88.26.90.197',1191228118,1,0,1,1,1,1,'','HB_UnzipFile no funciona en xHarbour de Septiembre','Antonio\nCon el nuevo xharbour que me bajé con el build de Septiembre Hb_UnzipFile no funciona y HB_ZipFile sí. ¿Es posible que no se haya reconstruido la librería?\n\nSaludos\nToni Sales','',0,'','33e14ljz',1,0,'',57,0,0),(38725,8361,4,1176,0,'217.21.255.129',1191231110,1,0,1,1,1,0,'','Serial Communication','To All \n\nOur company have just decided using FWPPC instead of our Clipper application at this moment where are just practicing with some basic things, like fonts, buttons, pull-down menus etc. \nWe also would like to practice with a serial external device.\n\nCan someone give me a sample to start practicing with serial communication?\n\nHere a small part of our clipper application, to wake up our serial device.\n\nFuction WakeUp_VendingMachine(portnumber)\n Local nCharacter := 0\n Local Pos1       := 0 \n Local helpstr    := \"\"   \n Local retwaarde  := .F.\n \n IF portnumber = NILL\n   portnumber = 1\n ENDIF   \n \n   IF COM_INIT(portnumber,9600,\"E\",8,1)\n             IF COM_OPEN(portnumber, 1000, 1000)    //.T. when successful\n                  COM_FLUSH(portnumber)  \n                  COM_SEND(portnumber,REPLICATE(\"*\",30))//Wake_Up VendingMach\n                 delay(100) //wait for 1 second\n                 nCharacter  :=  COM_COUNT(portnumber)  //Number of characters\n                IF nCharacter &gt; 0\n                    HelpSTR=COM_READ(portnumber,nCharacter) //Read n characters\n                   Pos1 = AT(\"##\",HelpSTR) \n                   IF Pos1 &gt; 0 //Vending &lt;Machine is Up  \n                             ret_waarde=.T.\n                   ENDIF\n             ENDIF       \n       ENDIF\n   ENDIF\nRETURN  ret_waarde  \n\nI hope somebody can help me to start this issue in a good direction.\n\nBest regards,\nJoop','',0,'','1nov6phx',1,1191311532,'',1176,1,0),(38726,8359,3,2,0,'87.218.146.157',1191238554,1,0,1,1,1,1,'','','Richard,\n\nThere is an incremental search on a browse sample in FWPPC\\samples\\TestBrwS.prg. \n\nThe source code is basically the same for FWH <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','34g8xgql',1,0,'',2,0,0),(38727,8361,4,2,0,'87.218.146.157',1191239115,1,0,1,1,1,1,'','','Hello Joop,\n\nNice to meet you here <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease make a search for *comm on this same FWPPC forum and you will get lots of samples <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','20kps8pu',1,0,'',2,0,0),(38728,8362,6,1146,0,'87.223.165.162',1191239208,1,0,1,1,1,0,'','fwh64','Hola:\n\n¿Alguien lo está usando?. ¿Qué tal es la conversión de FWH32 bits a FWH64?. Muchas gracias.\n\nSalu2','',0,'','2pehd1fu',1,0,'',1146,0,0),(38729,8336,6,362,0,'200.158.18.243',1191239378,1,0,1,1,1,1,'','','[quote=&quot;jacgsoft&quot;:103z49hq]crea una tabla temporal con un solo campo:\n\ndatos.dbf  -&gt;  campo chr(40)\n\ny sobre ese campo grabas :\n\n1ra linea  CODIGO\n2da linea DECRIP+STR(CANTID,5)+STR(PRECIO,9,2)+STR(TOTAL,9,2)\n\n3ra linea  CODIGO\n4ta lines  DECRIP+STR(CANTID,5)+STR(PRECIO,9,2)+STR(TOTAL,9,2)\n.\n.\n.\n.\netc[/quote:103z49hq]\n\nGracias, jacgsoft.\n\nBuena Idea!\n\nRegards, saludos.','',0,'gA==','103z49hq',1,0,'',362,0,0),(38730,8360,6,2,0,'87.218.146.157',1191240663,1,0,1,1,1,1,'','','Toni,\n\nComprueba la fecha de la librería. Aqui tiene 13 de Septiembre que es cuando se publicó el build.\n\nSi aún así falla, lo idóneo es que le proporciones un ejemplo que reproduzca el error al equipo de xharbour','',0,'gA==','3salbqcg',1,0,'',2,0,0),(38731,8362,6,2,0,'87.218.146.157',1191241216,1,0,1,1,1,1,'','','Moises,\n\n&gt; ¿Alguien lo está usando?\n\nTiene pocos usuarios por el momento\n\n&gt; ¿Qué tal es la conversión de FWH32 bits a FWH64?. \n\nTransparente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  Realmente es inmediata. Es construir con Harbour 64 bits y FWH 64 bits y listo. Sólo unos pequeños detalles, en el archivo de themes.xp y poco más. Si tienes funciones en C, probarlas para asegurarte que no tengas algún problema de signos ó que uses valores que puedan salirse de rango.\n\nEl problema de los 64 bits es que no funcionan en máquinas de 32 bits, y claro, se restringe el ámbito en donde funcionan las aplicaciones. Pero por lo demás, las aplicaciones en 64 bits son ligeramente más rápidas que en 32 bits y además no precisan de capa de emulación en 64 bits, igual que ocurre con las aplicaciones de 16 bits al funcionar sobre 32 bits (la capa conocida como \"wow\": \"Windows on Windows\")','',0,'gA==','e7zafxqu',1,0,'',2,0,0),(38732,8359,3,995,0,'81.11.201.153',1191241632,1,0,1,1,1,0,'','','Richard,\n\nSome year\'s ago i wrote a combo class , using btnget and tsbrowse. It was on fivewin.info from patrick mast (TsCombox2.0)\n\nThe last month\'s it is rewritten for txbrowse. It can be used with array\'s (never tryed with 50000 records) , or from dbf\n\nIf you are intrested , i can send it.\n\nFrank Demont','',0,'gA==','36mp311x',1,0,'',995,0,0),(38733,8363,6,850,0,'201.255.125.239',1191242416,1,0,1,1,1,0,'','en xHarbour + ADS no andan los indices idx.','Estoy migrando las aplicaciones a xHarbour + Fivewin con RddAds, pero me encuentro con el problema que en xHarbour las tablas de mas de 2 millones de registros tienen problemas con los indices (no encuentra los registros en bases dbf con indices idx, no pasa en ADT con indices ADI) y migrar a adt + adi me trae el problema con la aplicaciones viejas en clipper. Si se les ocurre alguna idea te lo voy a agradecer. \n\nAndres \n\nADS 8.1 para 250 usuarios sobre novell 5.\nxHarbour 0.9971 + FiveWin 7.01\nesta con el cliente que viene en la version 8.1\ny con la correcta ace32.lib','',0,'gA==','yd826lo3',1,0,'',850,0,0),(38734,8355,6,960,0,'217.12.16.52',1191242779,1,0,1,1,1,0,'','','Antonio, gracias por tu respuesta pero quizás no me expliqué lo suficientemente claro.\n\nYa utilicé todas las clausulas que me indicas. Probé con todas pero el aspecto final siempre es el mismo: El texto y el BMP centrado en el button y por consiguiente ambos se pisan.\n\nEn mi PRG:\n   redefine Buttonbmp ob1 id 141 OF oDlg ACTION resumeag() bitmap \'Atencion\' TEXTRIGHT PROMPT space(4)+\"avisos\"\n   redefine Buttonbmp ob2 id 202 OF oDlg ACTION odlg:end()bitmap \'Salir\'    PROMPT \"  Salir AHORA\" TEXTRIGHT  \n   oB1:cTooltip:= \"Ver avisos pendientes\"\n   oB2:cTooltip:= \"Salir\"\n\nEn mi RC:\n PUSHBUTTON \"Button\", 141, 59, 270, 71, 44\n PUSHBUTTON \"Button\", 202, 131, 270, 73, 42\n\nNo encuentro una explicación lógica  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n¿ Por qué ?\nMil gracias, master','',0,'gA==','1xivlgmv',1,0,'',960,0,0),(38735,8356,3,299,0,'24.233.172.101',1191243187,1,0,1,0,1,0,'','','Antonio;\n\nThat\'s exactly what I was looking for.  \n\nThank you!\n\n\n\nReinaldo.','',0,'gA==','1y1y52uo',1,0,'',299,0,0),(38736,8364,3,299,0,'24.233.172.101',1191244909,1,0,1,0,1,0,'','.net','Hi everyone;\n\nI wonder if there is any development in the harbour, xharbour, i.e. xbase community towards .net.  \n\nI realize how .net is a bit slow and sometimes seems not to be a crucial tool in our world.   However, the day will come when it will rule the development world.   Already you must develop win32 combined with web apps (java, php, xscript) that access the same data.   \n\nThere used to be a time when any GUI was too slow to even compare to clipper development (remember windows 3.11?).  But then hardware caught up to the need for more speed.  It got faster, multithreaded, more and more RAM, Cache, huge HDs that are measured in TB...   Likewise, the day will come when VERY wide broadband will be taken for granted and .net will be \"forced\" upon us.  That day will be here before we might expect.\n\nSo, the question is:  Is anybody working with .net yet?  News?  Ideas? Path to follow?\n\n\n\nReinaldo.','',0,'gA==','1wkdlyhs',1,0,'',299,0,0),(38737,8337,3,1180,0,'201.51.170.74',1191245710,1,0,1,1,1,0,'','','Thanks , Antonio','',0,'gA==','321884kw',1,0,'',1180,0,0),(38738,8359,3,86,0,'81.83.151.142',1191245932,1,0,1,1,1,1,'','','Richard,\n\nI had a similar situation in my application.\n\nI had a get-field to input the city, then I wanted to switch to a listbox to select the right city, then I wanted to return to my original window in which the city and the zip-code are shown.\n\nWhat I did is this : [code:1fol60mr]\n\nREDEFINE GET oGET&#91;1&#93; VAR cPPL ID 109 OF ParDlg PICTURE REPLICATE&#40;&quot;X&quot;,40&#41;\nVALID &#40;GemeenteOK&#40;&quot;cPPNR&quot;,&quot;cPPL&quot;&#41; &#46;OR&#46; ActGem&#40;&quot;cPPNR&quot;,&quot;cPPL&quot;,ParDlg&#41;&#41; &#46;AND&#46; FocusSet&#40;oGET&#91;2&#93;&#41; UPDATE\n\n[/code:1fol60mr]\n\nFuntion \"GemeenteOK()\" checks if the zip-code(cPPNR) and the city (cPPL) belong together. If \"Yes\", \".T.\" is returned, otherwise \".F.\"\n\nFunction \"ActGem()\" shows me a listbox in a second window to select the right city and its connected zip-code. Of course you can make buttons to \"Select\" or \"Deselect\". It gives you also the opportunity to add a new city and zip-code if necessary. \".T.\" is always returned.\n\nFunction \"FocusSet()\" puts the focus on the next field. \".T.\" is always returned.\n\nAt the end, the VALID-clause is always \".T.\", so it will never stop you of going on.\n\nAll this works very well.\n\nGood luck.','',0,'AIA=','1fol60mr',1,0,'',86,0,0),(38739,8355,6,2,0,'87.218.146.157',1191246864,1,0,1,1,1,1,'','','Que dimensiones tiene el bitmap ?','',0,'AIA=','308w41tk',1,0,'',2,0,0),(38740,8364,3,2,0,'87.218.146.157',1191247102,1,0,1,1,1,1,'','','Reinaldo,\n\nI started a very early prototype of a .Net version of Harbour, but there was very little interest about it <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nYou may review Cule: \n<!-- m --><a class=\"postlink\" href=\"http://www.softwareperspectives.com/culeplace/Default.aspx?tabid=54\">http://www.softwareperspectives.com/cul ... x?tabid=54</a><!-- m -->','',0,'AIA=','20nfvhri',1,0,'',2,0,0),(38741,8356,3,51,0,'80.122.88.242',1191247271,1,0,1,1,1,0,'','','Reinaldo,\nwhat editor did ypu use before.\nRegards,\nOtto','',0,'AIA=','2u219ewp',1,0,'',51,0,0),(38742,8363,6,316,0,'213.97.245.163',1191247326,1,0,1,1,1,0,'','','Has probado con CDX? los 2 millones de registros no serán limitaciones propias del IDX? IDX es un formato más que antiguo, de Foxbase original si no me equivoco, y por lo tanto los limites son bajos.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','3s8c49vz',1,0,'',316,0,0),(38743,8310,6,931,0,'201.159.1.211',1191247492,1,0,0,0,1,0,'','Re:','Ok Rafael, te comento, tambien estoy usando xHarbour 00.99.70, pero me puedes indicar el nombre de la librerái donde se encuentran estas clases.\n\nSaludos,\n\n\n[quote=&quot;thefull&quot;][quote=&quot;MarioDava&quot;]Thefull, de hecho si vi tus articulos, e hice las pruebas pero no me funciono, primero no supe cual era la libreria o si era un prg con la clase, que include se necesitaba, etc.\n\nDe hecho tampoco me funciono la clase XMLRead, así que me ire con las sugerencia de Miguel.\n\nPero agradezco la atención.\n\nSaludos,\n[/quote]\nSon simplemente las clases de xHarbour.\nNo se si esta disponible en Harbour, en caso de que uses este compilador.\n\nPero te aseguro que la clase de xHarbour , ademas de ser muy rapida, es ademas de gran ayuda ;-)[/quote]','',0,'AIA=','15t510z7',1,0,'',931,0,0),(38744,8310,6,931,0,'201.159.1.211',1191247923,1,0,0,0,1,0,'','Re: vale','Mi estimado Fer, lo resolvi de esta manera:\n\ncTexto := Memoread( \"c:\\printouts&quot; + cUltimo + \"&quot; + aXMLNom[ I ] )\nnPos := AT(\"&lt;NODECLIENTE&gt;\",cTexto)\ncNumCliente := substr( ctexto, nPos + 13, 6 )\ncNumCliente := DejaNumeros( cNumCliente )\n\ndonde solo implemente la funcion DejaNumeros(), para resolver los casos en que el dato tenga longitud variable (en este caso contemplo desde 1 a 6 digitos) y como se que mi dato solo es numerico, pues le quito los caracteres que no lo sean.\n\nEs similar a lo que me propones, pero practicamente solo ocupo 4 lineas.\n\nSaludos,\n\n\n\n\n[quote=&quot;fleal&quot;]Mario,\nPara extraer los datos del XML\n\n\noText := TTxtFile():New( \"ARCHIVO.XML\" )\n   oText:nMaxLineLength := 500\n   nRen := oText:RecCount() + 1\n\n\nCada uno de las lineas tiene un identificador único... por ejemplo:\n&lt;Contact_ContactPerson&gt;VERONICA MARTINEZ ALMENDAREZ&lt;/Contact_ContactPerson&gt; \n\n   FOR i := 1 TO nRen\n      cDatos := alltrim( oText:ReadLine() )  // una linea es un dato \n      if \"&lt;Contact_ContactPerson&gt;\"$cDatos\n        cDatos := strtran( cDatos, \"&lt;Contact_ContactPerson&gt;\",\"\" \n        cDatos := strtran( cDatos, \"&lt;/Contact_ContactPerson&gt;\",\"\"    \n\n        Con lo anterior solo queda \n         VERONICA MARTINEZ ALMENDAREZ\n\nY asi sucesivamente con cualquier otro datos. El resultado de cada linea lo guardas en una hoja excel, texto, dbf  o en lo que quieras.\n\n        \nFernando Leal\nMéxico, DF[/quote]','',0,'AIA=','mezcz4xb',1,0,'',931,0,0),(38745,8363,6,850,0,'201.255.125.239',1191248787,1,0,1,1,1,0,'','','Los programas en Clipper+FiveWin no tienen problemas con los indices, por lo tanto los indices no tienen problemas. Gracias\n\nAndres','',0,'AIA=','1h99wuqv',1,0,'',850,0,0),(38746,8350,6,73,0,'200.23.18.132',1191248801,1,0,1,1,1,0,'','','asi es, gracias Loco,,\n+Salu2\nPaco','',0,'AIA=','3nxso2g2',1,0,'',73,0,0),(38747,8365,6,1030,0,'190.55.44.190',1191249113,1,0,1,1,1,0,'','de dbf-ntx a adt-adi','Hola a todos!!\n\nEstoy usando ADS hace rato con DBF y NTX pero me intereza ahora pasar a ADT-ADI, [b:1qn2eb4z]que tengo que cambiar en mi codigo??[/b:1qn2eb4z]\n\nDe esta manera estoy usando ADS:\n\n[code:1qn2eb4z]RddRegister&#40;&quot;ADS&quot;,1&#41;\nRddSetDefault&#40;&quot;ADS&quot;&#41;\nSET SERVER LOCAL\nSET FILETYPE TO NTX[/code:1qn2eb4z]\n\ny de este modo uso una dbf:\n\n[code:1qn2eb4z]USE IVA INDEX IVA1,IVA2 NEW SHARED\nDATABASE oDbfIvas\noDbfIvas&#58;bEoF=nil\noDbfIvas&#58;GoTop&#40;&#41;[/code:1qn2eb4z]\n\nGracias  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> !\nNatalia.','',0,'QIA=','1qn2eb4z',1,0,'',1030,0,0),(38748,8355,6,960,0,'84.125.196.99',1191249169,1,0,1,1,1,0,'','','Las dimensiones son 32x32....\n\nEstos mismos bitmap los utilizaba en los BTNBMP y no tenía problemas','',0,'QIA=','3i2ba0w6',1,0,'',960,0,0),(38749,8359,3,3,0,'80.81.159.19',1191249303,1,0,1,1,1,1,'','','Antonio\n\nI am still using may 07 fwh, there is no testbrws in thie version .\n\nI plan to upgrade to the next release though\n\nRichard','',0,'QIA=','2ts536ks',1,0,'',3,0,0),(38750,8359,3,3,0,'80.81.159.19',1191249355,1,0,1,1,1,1,'','','Franck\n\nYes please, il qill be glad to have it\n\nmy email is <!-- e --><a href=\"mailto:richard@cbati.com\">richard@cbati.com</a><!-- e -->\n\nthanks in advance','',0,'QIA=','3ulyxi9h',1,0,'',3,0,0),(38751,8359,3,3,0,'80.81.159.19',1191249399,1,0,1,1,1,1,'','','Michel\n\nThanks for the suggestion, i will give it a try.\n\nRichard','',0,'QIA=','4wfp2llw',1,0,'',3,0,0),(38752,8366,6,694,0,'201.22.71.61',1191250005,1,0,1,1,1,1,'','BUTTONBMP !','Amigos, estou usando o BUTTONBMP com @, ex:\n\n @ LIN,COL BUTTONBMP MoBtn[contamesas] PROMPT \"AAAAAA\"+CRLF+\"BBBBBB\" BITMAP qualmod1  PIXEL TEXTTOP\n\n1)Acontece que CRLF não funciona e não consigo colocar duas linhas de texto.\n\n2) como alinhar o texto para que fique em cima da BITMAP?\n\n\nGracias\n\nAoki','',0,'','2id7bcun',1,0,'',694,0,0),(38753,8366,6,362,0,'200.158.19.99',1191251738,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2963&amp;highlight=buttonbmp\">http://fivetechsoft.com/forums/viewtopi ... =buttonbmp</a><!-- m -->','',0,'','2fhke40e',1,0,'',362,0,0),(38754,8338,6,1173,0,'205.211.248.93',1191252281,1,0,1,1,1,1,'','','Antonio gracias por tu tiempo.\n\n[quote:12i30usd]Añade esta línea en la clase TMdiClient:\n\nMETHOD HScroll() VIRTUAL[/quote:12i30usd]\n\nMira estos son mis primeros pasos con FiveWin, y por favor dime como hago para hacer lo que sugieres, que pasos debo seguir para lograr el modificar la clase TMdiClient.','',0,'gA==','12i30usd',1,0,'',1173,0,0),(38755,8340,6,41,0,'200.87.162.67',1191252989,1,0,1,1,1,0,'','','Hola,\n\npuedes probar con:\n\noReport:bStartRecord := {|| \'calculo del total\' }\n\noReport:bEndPage := oReport:aColumns[nColumna]:nTotal := \'total calculado\'\n\nsolo una idea\n\nsaludos\n\nMarcelo','',0,'','2dxm7u1n',1,0,'',41,0,0),(38756,8282,3,1173,0,'205.211.248.93',1191254801,1,0,1,1,1,1,'','','Saludos, de nuevo aqui... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\n[color=blue:31356568]Tando lo del ejemplo del MSelect\nComo el Codigo para arrastar y pegar (Drag&amp;Drop)\nMe ha han sido muy utiles.\n[/color:31356568]\n\nLo que que he pretendido es saber como puedo hacer si tengo una lista de 50 items en un Listbox, pero quiero seleccionar 20 de ellos a la manera de Excel  bastaria hacer Clic y deslizarlo y de una vez seleccionar los veinte, y el MSelect para el caso, lo hace de uno a uno, y vi otros ejemplos con la relacion de todos o ninguno.\n\n\nGracias por tu tiempo.','',0,'Ag==','31356568',1,0,'',1173,0,0),(38757,8365,6,138,0,'208.9.63.245',1191257196,1,0,1,1,1,1,'','','NO TIENES QUE CAMBIAR NADA !!!!!\n\nEso es lo maravilloso de ADS, la migracion es transparente, solo tienes que cambiar el tipo de archivo:\n\nREQUEST ADS\nRddSetDefault(\"ADS\")\n\nAdsSetServerType(7) // cualquier servidor\nAdsSetFileType(3) // ADT / ADI\n\nY listo todo lo demas funciona tal como funciona con los DBF normales, no debes hacer nada mas en tu codigo.\n\nObviamente debes convertir los DBFs actuales a ADT, usa este programita:\n\n[code:3hns2y09]FUNCTION Main&#40;&#41;\n   LOCAL aDbfs &#58;= DIRECTORY&#40;&quot;&#46;\\*&#46;dbf&quot;&#41;\n   LOCAL nDbfs\n   LOCAL aEstructura\n   LOCAL cNomAdt, cNomAdi, cNomAdm\n   LOCAL nReng &#58;= 0\n   REQUEST ADS,DBFNTX,DBFDBT\n   RDDSETDEFAULT&#40;&quot;ADS&quot;&#41;\n   AdsSetServerType&#40;1&#41;\n   AdsSetFileType&#40;3&#41;\n   CLS\n   FOR nDbfs &#58;= 1 TO LEN&#40;aDbfs&#41;\n      /* obtenemos el nombre del DBF y le agregamos la extension ADT */\n      cNomAdt &#58;= LEFT&#40;aDbfs&#91;nDbfs,1&#93;,AT&#40;&quot;&#46;&quot;,aDbfs&#91;nDbfs,1&#93;&#41;&#41;+&quot;ADT&quot;\n      cNomAdi &#58;= LEFT&#40;aDbfs&#91;nDbfs,1&#93;,AT&#40;&quot;&#46;&quot;,aDbfs&#91;nDbfs,1&#93;&#41;&#41;+&quot;ADI&quot;\n      cNomAdm &#58;= LEFT&#40;aDbfs&#91;nDbfs,1&#93;,AT&#40;&quot;&#46;&quot;,aDbfs&#91;nDbfs,1&#93;&#41;&#41;+&quot;ADM&quot;\n      @ nReng, 1 SAY cNomAdt\n      /* abrimos el DBF usando el RDD DBFNTX*/\n      USE &#40;aDbfs&#91;nDbfs,1&#93;&#41; NEW ALIAS TempDbf VIA &quot;DBFNTX&quot;\n      /* obternemos la estructura del DBF */\n      aEstructura &#58;= TempDbf-&gt;&#40;DBSTRUCT&#40;&#41;&#41;\n      /* verficamos si existe el archivo ADT, su indice ADI y su memo ADM, si existen los borramos*/\n      IF FILE &#40;&quot;&#46;\\&quot;+cNomAdt&#41;\n         FERASE&#40;&quot;&#46;\\&quot;+cNomAdt&#41;\n      ENDIF\n      IF FILE &#40;cNomAdi&#41;\n         FERASE&#40;&quot;&#46;\\&quot;+cNomAdi&#41;\n      ENDIF\n      IF FILE &#40;cNomAdm&#41;\n         FERASE&#40;&quot;&#46;\\&quot;+cNomAdm&#41;\n      ENDIF\n\n      /* creamos una nueva estructura ADT a partir de la estructura DBF previamente obtenida */\n      /* abrimos la nueva estructura con el el alias &quot;TempAdt&quot; */\n      DBCREATE&#40;cNomAdt,aEstructura,&quot;ADS&quot;,&#46;T&#46;,&quot;TempAdt&quot;&#41;\n\n      /* al primer registro del DBF */\n      TempDbf-&gt;&#40;DBGOTOP&#40;&#41;&#41;\n\n      /* vamos a recorrer todo el DBF para cargar los datos al ADT */\n      DO WHILE ! TempDbf-&gt;&#40;EOF&#40;&#41;&#41;\n         /* añadimos un registro al ADT */\n         TempADT-&gt;&#40;DBAPPEND&#40;&#41;&#41;\n         /* agregamos la informacion de los registros campo por campo*/\n         FOR nCampos &#58;= 1 TO TempDbf-&gt;&#40;FCOUNT&#40;&#41;&#41;\n            TempAdt-&gt;&#40;FIELDPUT&#40;nCampos,TempDbf-&gt;&#40;FIELDGET&#40;nCampos&#41;&#41;&#41;&#41;\n         NEXT\n         TempDbf-&gt;&#40;DBSKIP&#40;&#41;&#41;\n      ENDDO\n\n      /*cerramos todo */\n      DBCLOSEALL&#40;&#41;\n      nreng++\n   NEXT\nRETURN &#40;&#46;T&#46;&#41;\n[/code:3hns2y09]\n\nAAHHH ! y no olvides que los indices ADI funcionan con la filosofia de los CDX por lo que deberas cambiar la forma de indexar para usar TAGs','',0,'AIA=','3hns2y09',1,0,'',138,0,0),(38758,8363,6,138,0,'208.9.63.245',1191257312,1,0,1,1,1,1,'','','Acabo de probar un indice IDX con una tabla de 5 millones de registros y va perfecto con ADS 8.1 y xHarbour \n\n¿ Que error te esta marcando ?','',0,'AIA=','1fy32z7j',1,0,'',138,0,0),(38759,8358,6,138,0,'208.9.63.245',1191257482,1,0,1,1,1,1,'','','Mucho cuidadin con el Sistema Opertivo.\n\nPALM ofrece 2 sistemas operativos, Windows Mobile y Palm OS, el segundo NO FUNCIONA CON FWPPC, tiene que ser forzosamente Windows Mobile.\n\nMi eleccion serian los HP un poco caros, pero merecen la pena.','',0,'AIA=','3phs60fg',1,0,'',138,0,0),(38760,8367,6,350,0,'80.32.243.219',1191259121,1,0,1,1,1,0,'','Oracle con ADO','Hola a todos.\n\nEstoy haciendo unas primeras pruebas con Oracle XE 10g, en concreto pasar una DBF de clientes a una tabla Oracle con la nueva herramienta ADORDD.\n\nEn un principio me está funcionando y una vez pasados los datos le hago un Browse y me muestra la tabla Oracle. ¡Que maravilla, tengo que hacer el cambio de todas las bases de datos de mi aplicación (más de 150) y parece que no va a suponer el tremendo esfuerzo que me imaginaba!\n\nDe momento tengo una pega (ya me saldrán otras): Los campos que contienen una Ñ (supongo que para las letras acentuadas pasará lo mismo) no me los graba y me salta un error. He estado mirando y en el registro de Windows Oracle tiene el valor NLS_LANG = SPANISH_SPAIN.WE8MSWIN1252\n\nEl error que salta no creo que sea muy descriptivo:\nError 41954080/16389 E_FAIL: COUNT from Errorsys, line 0\nPero se que el problema está en las Ñ porque si las quito de los registros se lo traga sin problemas.\n\n¿ Por donde empiezo a mirar ? Soy nuevo en ADO y en ORACLE\n\nSaludos','',0,'AIA=','328mq62c',1,0,'',350,0,0),(38761,8352,3,178,0,'71.29.206.74',1191259667,1,0,1,1,1,1,'','','Antonio,\n\nThanks much for the details.','',0,'AIA=','3ve0t0f5',1,0,'',178,0,0),(38762,8363,6,850,0,'201.255.125.239',1191260473,1,0,1,1,1,0,'','','En indices como numero de documento str(dni,10) o apellido con los 18 caracteres, me da found()=FALSE como que no estuviera en la tabla, cuando en realidad si hago el seek con clipper+fivewin si lo encuentra.\nMe da la impresion que cuando la variable del indice supera mas de 10 caracteres ahi empienzan los problemas. Gracias por contestar','',0,'AIA=','22r1i02h',1,0,'',850,0,0),(38763,8358,6,400,0,'201.68.30.73',1191261182,1,0,1,1,1,1,'','','Apreoveitado el Post do Willi....\n\nE se for Palm OS....que linguagem de programçao....sao aceitas pra este Sistema operacional ?\n\nSalutos','',0,'AIA=','3tihbf8l',1,0,'',400,0,0),(38764,8368,6,180,0,'81.32.230.233',1191261690,1,0,1,1,1,0,'','Menú contextual en GET Multiline y c5Menu','Estoy utilizando la clase c5Menu modificada por J.Carlos Salinas para su uso con xHarbour. Salvo algún  error en el menú del preview va bastante bien.\nAhora he detectado que al pulsar el botón derecho del ratón en un GET MULTILINE se produce el error que más abajo reproduzco.\n¿Le ha ocurrido a alguien? ¿Está solucionado? \n\nUn saludo,\nManuel Aranda\n\n  Error description: Error BASE/1132  Error de rango: acceso al array\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   0\n\nStack Calls\n===========\n   Called from: menu5.prg =&gt; MENUDRAWITEM(1370)\n   Called from: window.prg =&gt; TMULTIGET:DRAWITEM(1053)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TMULTIGET:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3169)\n   Called from:  =&gt; TRACKPOPUP(0)\n   Called from: MENU.PRG =&gt; TMENU:ACTIVATE(0)\n   Called from: MGET.PRG =&gt; TMULTIGET:RBUTTONDOWN(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n....................\n....................','',0,'','s5owz4mc',1,0,'',180,0,0),(38765,8213,7,1135,0,'189.137.190.125',1191262712,1,0,1,1,1,1,'','','Luis: Interesante.. No conozco mucho de drivers.., esos DLL que usaste qué tipo de protocolo establecen con la impresora? Lo hacen controlando todo desde tu aplicación como se haría con una impresora serial o se usan como un driver de windows? De cualquier manera voy a averiguar si EXTECH puede proporcionarme algún DLL de ese tipo a pesar de que no soy partner de ellos.\nGRACIAS\n\n[quote=&quot;luis.santeliz&quot;:5cce8jl0]yo logre que imprimiera directamente desde FWPPC utilizando una libreria que me proporciona el fabricante, estoy usando una BROTHER MW100 MOBILE PRINTER imprime perfecto, graficos y todo.[/quote:5cce8jl0]','',0,'gA==','5cce8jl0',1,0,'',1135,0,0),(38766,8213,7,598,0,'201.211.122.39',1191264319,1,0,1,1,1,1,'','','Bueno el protocolo nose cual usa ya que todo lo gestiona la libreria y no es una dll es una .lib q se baja desde la pagina del fabricante, el modo de trabajar seria como un driver de windows ya que obtienes el DC (device context) y operas sobre el con las funciones GDI habituales, la libreria tambien tiene funciones propias para fines de impresion,  administracion e informacion de estado.','',0,'gA==','2nma7qsp',1,0,'',598,0,0),(38767,8369,22,1106,0,'190.64.166.187',1191266216,1,0,1,1,1,0,'','xBrowse - Totales en footers','Antonio: Si fuera posible hacer los footers el xBrowse con la posibilidad de colocar totales de las columnas.\n\n\nSaludos y Gracias\n\nRuben Fernandez','',0,'gA==','2g2dxudo',1,0,'',1106,0,0),(38768,8363,6,316,0,'87.218.187.63',1191268370,1,0,1,1,1,0,'','','Podrías postear el trozo de código que te falla? La verdad es que me parece extraño. No he usado los IDX desde hace mucho, y no he tenido + de 2 millones de registros, pero que te falle un seek me parece raro. Me gustaria ver el código para ver que puede estar cambiando de un compilador a otro.\nUn saludo,\nCarlos','',0,'gA==','2szy5uby',1,0,'',316,0,0),(38770,8363,6,850,0,'201.255.125.239',1191271579,1,0,1,1,1,0,'','','cDocumento:=92345678\nSelect Solicitud\nseek str(cDocumento,10)\nif found()   // aqui sale por falso y esta en los indices!!\n\nsi lo hago en Clipper + FiveWin lo encuentra.\n\n\nGracias.\nAndres','',0,'gA==','18pcnkbq',1,0,'',850,0,0),(38771,8338,6,362,0,'200.158.19.4',1191272217,1,0,1,1,1,1,'','','Error description: Error BASE/1004 Class: \'NIL\' has no exported method: GOUP \n\n\nHola... Tines algun GROUP em tu VENTANA PRINCIPAL?\n\nComO cierras la SALIDA de tu VENTANA PRINCIPAL?\n\nMuestra la SALIDA.\n\nACTIVATE WINDOW oWnd..\n\n....\n....\n\n...\n\nRETURN NIL','',0,'gA==','zb57jk44',1,0,'',362,0,0),(38772,8363,6,940,0,'189.175.214.177',1191272476,1,0,1,1,1,1,'','','Andres , tienes que cambiar el indice,\n\nINDEX ON  STRZERO(DOCUMENTO,10)\n\nnDocumento := strzero(92345678,10)\n\nif dbseek(nDocumento )\n   msginfo( \'encontrado\'  )\nendif\n\n\n\n\nsaludos...','',0,'gA==','2vdq1h5z',1,0,'',940,0,0),(38773,8338,6,1173,0,'205.211.248.93',1191274233,1,0,1,1,1,1,'','','Joao Gracias.\n\nNo, no es acerca de GROUP\n\nEs acerca de un error referente a GoUp(), perteneciente a Scrollbar.\nEL Problema es que en donde aparce el error no hay ninguna definida; desde mi codigo claro esta.\n\nGracias Mil\n\nSaludos desde Honduras','',0,'gA==','dzgvfnpd',1,0,'',1173,0,0),(38774,8359,3,2,0,'87.218.146.157',1191276301,1,0,1,1,1,1,'','','Richard,\n\nHere you have the source code:\n[code:3o7wtbvc]\n// FiveWin for Pocket PC - Testing browses with incremental search\n\n#include &quot;FWCE&#46;ch&quot;\n\nREQUEST DBFCDX\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBrw, hBmp &#58;= ReadBitmap&#40; CurDir&#40;&#41; + &quot;\\go&#46;bmp&quot; &#41;\n   local oSay, cSearch &#58;= &quot;&quot;\n\n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41; VIA &quot;DBFCDX&quot;\n   if ! File&#40; CurDir&#40;&#41; + &quot;\\LAST&#46;CDX&quot; &#41;\n      INDEX ON Customer-&gt;Last TO &#40; CurDir&#40;&#41; + &quot;\\LAST&quot; &#41;\n   endif   \n   Customer-&gt;&#40; OrdSetFocus&#40; &quot;LAST&quot; &#41; &#41;\n   Customer-&gt;&#40; DbGoTop&#40;&#41; &#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;IncSearch&quot;\n   \n   @ 1, 1 LISTBOX oBrw ;\n      FIELDS hBmp, Customer-&gt;Last, Customer-&gt;First ;\n      HEADERS &quot;&quot;, &quot;Last&quot;, &quot;First&quot; ;\n      SIZE 220, 167\n   \n   oBrw&#58;bKeyChar = &#123; | nKey, nFlags | Search&#40; nKey, @cSearch &#41;, oBrw&#58;Refresh&#40;&#41;,;\n                                      oSay&#58;Refresh&#40;&#41; &#125; \n   \n   @ 14,  2 SAY &quot;Searching&#58;&quot; SIZE 60, 30\n   @ 14, 12 SAY oSay PROMPT cSearch SIZE 80, 30\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Search&#40; nKey, cSearch &#41;\n\n   if nKey = 8 \n      cSearch = SubStr&#40; cSearch, 1, Len&#40; cSearch &#41; - 1 &#41; \n   else \n      cSearch += Upper&#40; Chr&#40; nKey &#41; &#41; \n   endif\n    \n   Customer-&gt;&#40; DbSeek&#40; cSearch, &#46;t&#46; &#41; &#41; \n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:3o7wtbvc]','',0,'AIA=','3o7wtbvc',1,0,'',2,0,0),(38775,8338,6,2,0,'87.218.146.157',1191276470,1,0,1,1,1,1,'','','Modifica source\\classes\\mdiclient.prg y añade esta línea antes del ENDCLASS:\n\nMETHOD HScroll() VIRTUAL\n\nLuego compila ese PRG y enlázalo como si fuese un PRG más de tu aplicación','',0,'AIA=','4grwlb33',1,0,'',2,0,0),(38776,8371,3,1157,0,'168.209.97.34',1191276718,1,0,1,1,1,0,'','DBCOMBO problem','Hi Antonio\n\nWith the code below the drop-down is not initialised to \"Production\".\n\n[code:ydsq924g]\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;dbcombo&#46;ch&quot;\n\n\nfunction main&#40;&#41;\n   local oDlg, oDBC2, oBtn\n   //local cDept&#58;= &quot;400&quot;\n   local cDept&#58;= 400\n   local aItems, aList\n\n   define dialog oDlg\n\n\n   aList&#58;= &#123;&quot;Accounting&quot;,&quot;HR&quot;,&quot;Marketing&quot;,&quot;Production&quot;,&quot;Research&quot;,&quot;Shipping&quot;,&quot;Sales&quot;&#125;\n   //aItems&#58;= &#123;&quot;100&quot;,&quot;200&quot;,&quot;400&quot;,&quot;300&quot;,&quot;600&quot;,&quot;500&quot;,&quot;700&quot;&#125;\n   aItems&#58;= &#123;100,200,400,300,600,500,700&#125;\n\n   @ 30,30 DBCOMBO oDBC2 VAR cDept;\n      items aItems;\n      size 100,200 pixel;\n      list aList;\n      of oDlg;\n      update\n\n\n   @ 50, 50 button oBtn prompt &quot;Selected&quot;;\n      of oDlg pixel ;\n      action msgInfo&#40; &quot;DeptNo&#58; &quot;+hb_valtostr&#40;cDept&#41;,&quot;Selected&quot; &#41;;\n      default\n\n   activate dialog oDlg center;\n\nreturn nil\n[/code:ydsq924g]\n\nThe commented (character values) code is OK.\n\nDid you check my last code posted for the XP theme issues with tabs?\n\nThanks and regards\nAlex','',0,'AIA=','ydsq924g',1,0,'',1157,0,0),(38777,8318,6,389,0,'189.133.19.94',1191278229,1,0,1,1,1,0,'','','Loco.. a que cuenta de correo te manda ejemplos y una clase que creo pueda funcionar con Harbour.. \nSaludos','',0,'AIA=','10wb9qnz',1,0,'',389,0,0),(38778,8364,3,80,0,'202.72.164.124',1191279567,1,0,1,1,1,0,'','.net','You can also check out Vulcan.net - this is by the same company that\nnow does Visual Objects - there is a demo verson.\n\nCheers\n\nColin','',0,'AIA=','3ahmhcvn',1,0,'',80,0,0),(38779,7034,6,1123,0,'200.174.91.66',1191280308,1,0,1,1,1,1,'','','Ola amigos\n\n\nAntonio estou tentando usar estes comandos em um novo sistema que estou fazendo, só que não esta funcionando ENTER nem TAB, como resolver isto ??\n\n\nfico no aguardo','',0,'AIA=','2kpdn8ri',1,0,'',1123,0,0),(38780,8371,3,303,0,'72.220.100.171',1191283011,1,0,1,1,1,0,'','','Alex,\n\nYou cannot use numeric values with DBCombo. This is because DBCombo inherits from TCombobox and TCombobox has methods that assume if a passed parameter is numeric then it is for the location in the array not a value in the array. Since, the array doesn\'t contain a value in the 400th postion, then DBCombo is empty when it is displayed.\n\nAwhile ago, I did make an attempt to modify DBCombo to handle numeric data for aItems, but I found that it would require rewriting a huge amount of the code and most people use character values for IDs anyway.\n\nI assume from your commented code that you have already tried it using character values for aItems. And I tested it here (using chacter values) and it is working (although in your example \"400\" corresponds to \"Marketing\" not \"Production\").\n\nRegards,\nJames','',0,'AIA=','263arhav',1,0,'',303,0,0),(38781,8236,6,760,0,'200.37.76.90',1191284002,1,0,1,1,1,0,'','OT : Objeto Persistente...','Hola Master Antonio\n\nLa verdad no he podido hacer funcionar, si le saco el setcontrol, no carga el browse, y si le pongo ocupa toda la ventana...\nSeguire buscando...\n\nSalu2\n\nFrancis','',0,'AIA=','2tcrf82z',1,0,'',760,0,0),(38782,8342,6,760,0,'200.37.76.90',1191284113,1,0,1,1,1,0,'','texto en buttonbmp','Gracias Master Antonio\n\nFunciono ok\n\nSalu2\n\nFrancis','',0,'AIA=','20kz0vji',1,0,'',760,0,0),(38783,8372,2,890,0,'200.24.110.241',1191284563,1,0,1,1,1,0,'','Una de .avi','Hola a todos en el foro\n\nComo hago para que un .avi que coloco en un dialogo corra indefinidamente, es decir que cuando este se termine de correr vuelva y se inicie automaticamente\n\nCordialmente\n\nJairo Barbosa','',0,'AIA=','1ce7iqpn',1,0,'',890,0,0),(38785,8318,6,582,0,'200.117.106.253',1191286381,1,0,1,1,1,0,'','','[quote=&quot;gabo&quot;:a81hw2ug]Loco.. a que cuenta de correo te manda ejemplos y una clase que creo pueda funcionar con Harbour.. \nSaludos[/quote:a81hw2ug]\nGabo -&gt; <!-- e --><a href=\"mailto:maplasencia@sion.com\">maplasencia@sion.com</a><!-- e -->\n\ny desde ya muchas gracias.\nUn abrazo. El Loco =&gt;))','',0,'gA==','a81hw2ug',1,0,'',582,0,0),(38786,8174,3,2,0,'87.218.146.157',1191297735,1,0,1,1,1,1,'','','Alex,\n\nYour code looks fine here on first try:\n\n[url=http&#58;//imageshack&#46;us:tpkfu5sm][img:tpkfu5sm]http&#58;//img529&#46;imageshack&#46;us/img529/7562/foldermv2&#46;png[/img:tpkfu5sm][/url:tpkfu5sm]','',0,'GA==','tpkfu5sm',1,0,'',2,0,0),(38788,8374,6,73,0,'189.157.187.215',1191299793,1,0,1,1,1,0,'','sacar el texto de los radio','hola, aqui tranado de sacar a una variable el texto del radio segun se vaya eligiendo\n\n   REDEFINE RADIO  oRad5  VAR aDato5[1] ID 101,102,103 OF oFld:aDialogs[5] WHEN !lAplicaComision ;\n      ON CHANGE ( cSay5:=oRad5:aItems[ oRad5:nOption ]:cCaption,oSay5:Refresh() )\n\nya probe a usar oRad5:aItems[oRad5:nOption]:cMsg  y tampoco me devuelve un valor en blanco\n\nsalu2\npaco','',0,'','2czhzrci',1,0,'',73,0,0),(38789,8310,6,24,0,'80.24.12.168',1191311798,1,0,1,1,1,1,'','Re:','[quote=&quot;MarioDava&quot;:1pkx0plw]Ok Rafael, te comento, tambien estoy usando xHarbour 00.99.70, pero me puedes indicar el nombre de la librerái donde se encuentran estas clases.\n\nSaludos,\n\n\n[quote=&quot;thefull&quot;:1pkx0plw][quote=&quot;MarioDava&quot;:1pkx0plw]Thefull, de hecho si vi tus articulos, e hice las pruebas pero no me funciono, primero no supe cual era la libreria o si era un prg con la clase, que include se necesitaba, etc.\n\nDe hecho tampoco me funciono la clase XMLRead, así que me ire con las sugerencia de Miguel.\n\nPero agradezco la atención.\n\nSaludos,\n[/quote:1pkx0plw][/quote:1pkx0plw][/quote:1pkx0plw]\nPues la libreria TIP creo que es la que contiene el tema de internet, XML, etc.\nDe todas maneras, tienes que poner el #include \"hbxml.ch\"m, ademas\nde compilar con la libreria pcrepos, soporte de expresiones regulares,\npero no estoy seguro de ello, puesto que pueden que hayan cambiado\nalguna parte de xHarbour que no se comporte como deberia...\n\nMe parece una burrada el codigo que habeis puesto, pues es inmantenible a la larga, solamente sirve para salir del paso , pero no para abordar el problema.\n\nLa solucion mucho más potente , en todos los sentidos, es usar las clases\nde Giancarlo, que realizó para xHarbour, ahora estan tambien pasandolas a Harbour.\n\nTe voy a poner un ejemplo practico, para que puedes ver realmente como funciona;\n\nEjemplo:\n[code:1pkx0plw]#include &quot;fileio&#46;ch&quot;\n#include &quot;hbxml&#46;ch&quot;\n\nPROCEDURE Main&#40; cFileName &#41;\n\n    hFile &#58;= FOpen&#40; cFileName &#41;\n  \n    If hFile = -1\n       Error_Msg&#40; cFileName, &quot;No se pudo abrir el fichero&quot; + cFileName &#41;\n       return \n    endif\n\n    oXmlDoc &#58;= TXmlDocument&#40;&#41;&#58;New&#40; hFile &#41;\n\n    if oXmlDoc&#58;nStatus != HBXML_STATUS_OK  \n       cError &#58;= &quot;Error While Processing File&#58; &quot; + AllTrim&#40; Str&#40; oxmlDoc&#58;nLine &#41; &#41; + &quot; # &quot;+;\n                 &quot;Error&#58; &quot; + HB_XmlErrorDesc&#40; oxmlDoc&#58;nError &#41; + &quot; # &quot; +;\n                 &quot;Tag Error on tag&#58; &quot; + oxmlDoc&#58;oErrorNode&#58;cName + &quot; # &quot; +;\n                 &quot;Tag Begin on line&#58; &quot; + AllTrim&#40; Str&#40; oxmlDoc&#58;oErrorNode&#58;nBeginLine &#41; &#41; \n       Error_Msg&#40; cFileName, cError &#41;\n       QUIT\n    endif\n\n     if&#40; oNodo &#58;= oXmlDoc&#58;FindFirst&#40; &quot;PETICION&quot;, &quot;id&quot;,  &quot;CONSULTA_EMPRESA&quot; &#41; &#41; != NIL &#41;\n       Consulta_Empresa&#40; oNodo, cFileName &#41;\n     endif\n\n   fClose&#40; hFile &#41;\n   \nRETURN\n\n*******************************************************************************\n*******************************************************************************\nSTATIC FUNCTION Consulta_Empresa&#40; oNodo, cFile &#41;\n    Local oIter, oNodeChild , oNode, oIterDia, oNodeDia, oNodeDet\n    Local oNodeHab  \n    Local nCodigo , cNombre\n    Local oDoc, oRes, oNode_Empresa, oUnidad, oDbf\n    Local cPath, cFileName\n\n    If !open&#40; &quot;AGENCIAS&quot; &#41;\n       Error_Msg&#40; cFile, &quot;NO SE PUDO ABRIR AGENCIAS&quot;, &quot;CONSULTA_EMPRESA&quot; &#41;\n       Return NIL\n    Endif\n    DATABASE oDbf\n    oDbf&#58;SetBuffer&#40; &#46;F&#46; &#41;\n   \n     // Buscando codigo\n    oIter    &#58;= TXMLIteratorScan&#40;&#41;&#58;New&#40; oNodo &#41;\n    oNode    &#58;= oIter&#58;Find&#40; &quot;PARAM&quot;, &quot;id&quot;, &quot;codigo&quot; &#41;\n    nCodigo &#58;= oNode&#58;GetAttribute&#40;&quot;valor&quot;&#41;\n    \n    oNode    &#58;= oNode&#58;oNext // El siguiente en el nodo es el nombre\n    //cNombre  &#58;= oNode&#58;GetAttribute&#40;&quot;valor&quot;&#41;\n    cNombre  &#58;= oNode&#58;oChild&#58;cData // Para VALORES CDATA\n\n    oDoc &#58;= TXmlDocument&#40;&#41;&#58;New&#40;&#41; // Creacion del documento respuesta&#46;&#46;&#46;&#46;\n    oDoc&#58;oRoot&#58;AddBelow&#40; TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_PI,\'xml\' , , \'version=&quot;1&#46;0&quot; encoding=&quot;iso-8859-1&quot;\' &#41; &#41;\n    oRes &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;RESPUESTA&quot; &#41;\n    oRes&#58;SetAttribute&#40; &quot;id&quot;, &quot;CONSULTA_EMPRESA&quot; &#41;\n    oRes&#58;SetAttribute&#40; &quot;res&quot;, &quot;OK&quot; &#41;\n    oDoc&#58;oRoot&#58;AddBelow&#40; oRes &#41;\n    \n    oNode_Empresa &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;LEMPRESAS&quot; &#41;\n\n    IF !Empty&#40; nCodigo &#41; // Pasamos codigo, buscamos por codigo\n        nCodigo = VAL&#40; nCodigo &#41;\n        IF DbSeek&#40; nCodigo &#41;\n           oUnidad &#58;= SAVEAGE2XML&#40; oDbf &#41;\n           oNode_Empresa&#58;AddBelow&#40; oUnidad &#41;\n        ENDIF \n    ELSE  // El codigo esta vacio, buscamos por nombre\n       IF !Empty&#40; cNombre &#41;\n          oDbf&#58;SetOrder&#40; 2 &#41; \n          IF DbSeek&#40; cNombre &#41;\n             While !oDbf&#58;Eof&#40;&#41;\n                 IF cNombre = Substr&#40; oDbf&#58;Ag_Nom, 1, Len&#40; cNombre &#41; &#41;\n                    oUnidad &#58;= SAVEAGE2XML&#40; oDbf &#41;\n                    oNode_Empresa&#58;AddBelow&#40; oUnidad &#41;\n                 ELSE\n                    EXIT\n                 ENDIF   \n                 oDbf&#58;Skip&#40;&#41;   \n                 SysRefresh&#40;&#41;\n             end while\n           ENDIF     \n       ENDIF        \n    ENDIF\n\n    oDbf&#58;Close&#40;&#41;\n\n    *oDoc&#58;oRoot&#58;AddBelow&#40; oNode_Empresa &#41;\n    oRes&#58;AddBelow&#40; oNode_Empresa &#41;\n    \n    cPath &#58;= cFilePath&#40; cFile &#41;\n    if cPath == &quot;&quot;\n       cPath &#58;= &quot;&quot;\n    endif\n    cFileName &#58;= Name_File&#40; cFile &#41;\n    hFile &#58;= FCreate&#40; cPath + cFileName + &quot;&#46;RES&quot; &#41;\n    \n    If hFile != -1\n       oDoc&#58;Write&#40; hFile, HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES &#41;\n       FClose&#40; hFile &#41;\n    Endif\n    \n    SysRefresh&#40;&#41;\n\nRETURN NIL\n\n*******************************************************************************\n*******************************************************************************\nSTATIC FUNCTION SAVEAGE2XML&#40; oDbf &#41;\n   Local oNodo, oNombre, oDirec, oCData, oPobla, oPais, oProv, oCodigo\n\n   oNodo &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;EMPRESA&quot; &#41;\n\n   oCodigo &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;PARAM&quot; &#41;\n   oCodigo&#58;SetAttribute&#40; &quot;id&quot;, &quot;codigo&quot; &#41;\n   oCodigo&#58;SetAttribute&#40; &quot;valor&quot;, alltrim&#40; str&#40; oDbf&#58;Ag_Codi &#41; &#41; &#41;\n   oNodo&#58;AddBelow&#40; oCodigo &#41;\n    // Metemos Codigo&#46;\n   *oNodo&#58;AddBelow&#40; TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;codigo&quot;, , alltrim&#40; str&#40; oDbf&#58;Ag_Codi &#41; &#41; &#41; &#41;\n            \n   // Nombre\n   oNombre &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;PARAM&quot; &#41;\n   oNombre&#58;SetAttribute&#40; &quot;id&quot;, &quot;nombre&quot; &#41;\n   // Atencion&#46;&#46; si activamos esta linea, crearia &lt;nombre&gt;&#91;&#91;CDATA&#93;&#93;&lt;/nombre&gt;\n   // oNombre &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;nombre&quot; &#41;\n     oCData &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_CDATA &#41;\n     oCData&#58;cData &#58;= OemToAnsi&#40; Alltrim&#40; oDbf&#58;Ag_Nom &#41; &#41;\n   oNombre&#58;AddBelow&#40; oCData &#41;\n   oNodo&#58;AddBelow&#40; oNombre &#41;\n          \n   // Direccion\n   oDirec &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;PARAM&quot; &#41;\n   oDirec&#58;SetAttribute&#40; &quot;id&quot;, &quot;direccion&quot; &#41;\n     oCData &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_CDATA &#41;\n     oCData&#58;cData &#58;= OemToAnsi&#40; Alltrim&#40; oDbf&#58;Ag_direcci &#41; &#41;\n   oDirec&#58;AddBelow&#40; oCData &#41;\n   oNodo&#58;AddBelow&#40; oDirec &#41;\n           \n   // Poblacion\n   oPobla &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;PARAM&quot; &#41;\n   oPobla&#58;SetAttribute&#40; &quot;id&quot;, &quot;poblacion&quot; &#41;\n     oCData &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_CDATA &#41;\n     oCData&#58;cData &#58;= OemToAnsi&#40; Alltrim&#40; oDbf&#58;Ag_poblaci &#41; &#41;\n   oPobla&#58;AddBelow&#40; oCData &#41;\n   oNodo&#58;AddBelow&#40; oPobla &#41;\n           \n   // Provincia\n   oProv &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;PARAM&quot; &#41;\n   oProv&#58;SetAttribute&#40; &quot;id&quot;,&quot;provincia&quot; &#41;\n     oCData &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_CDATA &#41;\n     oCData&#58;cData &#58;= OemToAnsi&#40; Alltrim&#40; oDbf&#58;Ag_PoblaC2 &#41; &#41;\n   oProv&#58;AddBelow&#40; oCData &#41;\n   oNodo&#58;AddBelow&#40; oProv &#41;\n           \n   // Pais\n    oPais &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_TAG, &quot;PARAM&quot; &#41;\n    oPais&#58;SetAttribute&#40; &quot;id&quot;,&quot;pais&quot; &#41;\n     oCData &#58;= TxmlNode&#40;&#41;&#58;New&#40; HBXML_TYPE_CDATA &#41;\n     oCData&#58;cData &#58;= OemToAnsi&#40; Alltrim&#40; oDbf&#58;Ag_Pais &#41; &#41;\n   oPais&#58;AddBelow&#40; oCData &#41;\n   oNodo&#58;AddBelow&#40; oPais &#41;\n\nRETURN oNodo\n\n[/code:1pkx0plw]\n\nPara entenderlo , te pongo la definicion del XML, con su explicacion, para\nque puedas hacerte una idea.\n\n******************************************************************************\n                   PETICION DE CONSULTA PARA EMPRESAS\n******************************************************************************\n\n\"codigo\"\nSi el valor de codigo es diferente que vacio, devolverá en la respuesta\nsolamente la empresa/agencia de ese codigo.\n\n\"nombre\"\nSi se da nombre, y el valor de codigo esta vacio, devolverá una lista\nconteniendo los registros que cumplan solamente el contenido inicial del\nnombre, es decir, si el valor es \"EL CORTE\", se seleccionaran TODOS los que \nempiezan por \"EL CORTE\".\n\n\n&lt;?xml version=\"1.0\" encoding=\"iso-8859-1\"?&gt;\n&lt;PETICION id=\"CONSULTA_EMPRESA\"&gt;\n&lt;LPARAMS&gt;\n    &lt;PARAM id=\"codigo\"  valor=\"xxx\"/&gt;\n    &lt;PARAM id=\"nombre\"&gt; &lt;![CDATA[A &amp; B]]&gt; &lt;/PARAM&gt;\n&lt;/LPARAMS&gt;\n\n\n******************************************************************************\n                    RESPUESTA PARA CONSULTA DE EMPRESA\n******************************************************************************\nEl fichero generado sera igual al que hemos pasado , pero con la extension \n.RES. El fichero resultante se creará donde este el fichero pasado.\n\nEl contenido de [[CDATA]] se establece para que el parseador de XML no tenga\nen cuenta el contenido.\n\n&lt;?xml version=\"1.0\" encoding=\"iso-8859-1\"?&gt;\n&lt;RESPUESTA id=\"CONSULTA_EMPRESA\" res=\"OK\"&gt;\n    &lt;LEMPRESAS&gt;\n      &lt;EMPRESA&gt;\n        &lt;PARAM id=\"codigo\"  valor=\"\"/&gt;\n        &lt;PARAM id=\"nombre\"&gt;    &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"direccion\"&gt; &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"poblacion\"&gt; &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"provincia\"&gt; &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"pais\"&gt;      &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n      &lt;/EMPRESA&gt;\n    &lt;/LEMPRESAS&gt;\n&lt;/RESPUESTA&gt;\n\nres=\"OK\" retorna siempre que se a realizado con exito.\nDe lo contrario, devuelve res=\"ERROR\" y descripcion=\"Texto del error\",\npor ejemplo:\n\n&lt;?xml version=\"1.0\" encoding=\"iso-8859-1\"?&gt;\n&lt;RESPUESTA id=\"CONSULTA_EMPRESA\" res=\"ERROR\" descripcion=\"No se puede...\"&gt;\n\n\nEs decir, el ejemplo que te he puesto, es capaz de leer un XML de entrada\npara ocasionarte una XML de salida, 2x1 <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nSinceramente, esto que te he puesto es MUCHISIMO más potente de usar.\nCualquier duda, por aqui.','',0,'gIA=','1pkx0plw',1,0,'',24,0,0),(38790,8174,3,1157,0,'198.54.202.195',1191311842,1,0,1,1,1,0,'','','On XP I get:\n\n[img:1vkebci3]http&#58;//img404&#46;imageshack&#46;us/img404/1376/folderyl8&#46;jpg[/img:1vkebci3]\n\nI hope you do <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards\nAlex','',0,'CA==','1vkebci3',1,0,'',1157,0,0),(38791,8371,3,1157,0,'198.54.202.210',1191313552,1,0,1,1,1,0,'','','Hi James\n\nThanks for the reply. I looked into the DBCombo class and made the change below. I created a new command to use my new class - TFixDBCombo. It seems to work ok, perhaps you could see if you can see any problems? \n\nRegards\nAlex\n\n[code:1hug54tk]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Constant&#46;ch&quot;\n\n#ifndef __CLIPPER__\n   #define COMBO_BASE      320\n#else\n   #define COMBO_BASE  WM_USER\n#endif\n#define CB_ADDSTRING     &#40; COMBO_BASE + 3 &#41;\n#define CB_DELETESTRING  &#40; COMBO_BASE +  4 &#41;\n#define CB_GETCURSEL     &#40; COMBO_BASE +  7 &#41;\n#define CB_INSERTSTRING  &#40; COMBO_BASE + 10 &#41;\n#define CB_RESETCONTENT  &#40; COMBO_BASE + 11 &#41;\n#define CB_FINDSTRING    &#40; COMBO_BASE + 12 &#41;\n#define CB_SETCURSEL     &#40; COMBO_BASE + 14 &#41;\n#define CB_SHOWDROPDOWN  &#40; COMBO_BASE + 15 &#41;\n#define CB_ERR              -1\n\n#define COLOR_WINDOW       5\n#define COLOR_WINDOWTEXT   8\n\n#define MB_ICONEXCLAMATION  48   // 0x0030\n\n#define GWL_STYLE          -16\n\n#ifdef __XPP__\n#define Super &#58;&#58;TComboBox\n#endif\n\n\n//----------------------------------------------------------------------------//\n\n\nCLASS TFixDBCombo FROM TDBCombo\n\n   METHOD Default&#40;&#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD Default&#40;&#41; CLASS TFixDBCombo\n\n   local cStart &#58;= Eval&#40; &#58;&#58;bSetGet &#41;\n\n   if ! Empty&#40; &#58;&#58;hWnd &#41; &#46;and&#46; &#58;&#58;nStyle == CBS_DROPDOWNLIST\n      &#58;&#58;nStyle &#58;= GetWindowLong&#40; &#58;&#58;hWnd, GWL_STYLE &#41;\n   endif\n\n   if cStart == nil\n      Eval&#40; &#58;&#58;bSetGet, If&#40; Len&#40; &#58;&#58;aItems &#41; &gt; 0, &#58;&#58;aItems&#91; 1 &#93;, &quot;&quot; &#41; &#41;\n      cStart = If&#40; Len&#40; &#58;&#58;aItems &#41; &gt; 0, &#58;&#58;aItems&#91; 1 &#93;, &quot;&quot; &#41;\n   endif\n\n   AEval&#40; &#58;&#58;aList, &#123; | cList, nAt | &#58;&#58;SendMsg&#40; CB_ADDSTRING, nAt, cList &#41; &#125; &#41;\n\n   if ValType&#40; cStart &#41; != &quot;N&quot;\n      &#58;&#58;nAt = AScan&#40; &#58;&#58;aList, &#123; | cList | Upper&#40; AllTrim&#40; cList &#41; &#41; == ;\n                                           Upper&#40; AllTrim&#40; cStart &#41; &#41; &#125; &#41;\n   else\n      //&#58;&#58;nAt = cStart\n      &#58;&#58;nAt = AScan&#40; &#58;&#58;aItems, &#123; | nList | nList == cStart &#125; &#41;\n   endif\n\n   &#58;&#58;nAt = If&#40; &#58;&#58;nAt &gt; 0, &#58;&#58;nAt, 1 &#41;\n\n   //if cStart == nil\n      &#58;&#58;Select&#40; &#58;&#58;nAt &#41;\n   //else\n      //&#58;&#58;Set&#40; cStart &#41;\n   //endif\n\nreturn nil\n[/code:1hug54tk]','',0,'AIA=','1hug54tk',1,0,'',1157,0,0),(38792,8310,6,24,0,'80.24.12.168',1191313662,1,0,1,1,1,1,'','Re:','Por ultimo , la clase TXML, esta ya incluida en la RTL de xHarbour, puedes\nconsultarla en xharbour/source/rl/txml.prg\n\nPero, por si acaso, linka la libreria pcrepos con la aplicacion.','',0,'AIA=','33deixet',1,0,'',24,0,0),(38793,8374,6,2,0,'87.218.146.157',1191314836,1,0,1,1,1,1,'','','Paco,\n\nUsa oRad5:aItems[ oRad5:nOption ]:GetText()','',0,'','x0yia7m6',1,0,'',2,0,0),(38794,8174,3,2,0,'87.218.146.157',1191314926,1,0,1,1,1,1,'','','Alex,\n\nYou are using themes, thats the difference <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe are going to review it, thanks','',0,'','3m6npryz',1,0,'',2,0,0),(38795,8375,3,2,0,'87.218.146.157',1191315395,1,0,1,1,1,1,'','Msg for Enrico','Dear Enrico,\n\nPlease provide me an email adress of your own of gmail or similar if possible, thanks!','',0,'','11jhlxpr',1,0,'',2,0,0),(38796,8376,6,316,0,'213.97.245.163',1191320459,1,0,1,1,1,0,'','Corrección en el método margin de TReport','Hola Antonio,\n\nsi pongo,\n\n[code:28ohrg6s]\noReport&#58;Margin&#40; 2&#46;5, RPT_LEFT  , RPT_CMETERS&#41;\n[/code:28ohrg6s]\n\nasume erroneamente un margen 0, eso es debido a que en el método Margin, al transformar CMS a INCH divide el valor por 2.54 y toma la parte entera del resultado, lo que es incorrecto.\n\n[code:28ohrg6s]\nMETHOD Margin&#40; nValue, nType, nScale &#41; CLASS TReport\n\n   DEFAULT nValue &#58;= &#46;2,;\n      nType  &#58;= RPT_LEFT,;\n      nScale &#58;= RPT_INCHES\n\n   if nScale == RPT_CMETERS\n      nValue &#58;= Int&#40; nValue/ 2&#46;54&#41;  // Acá está mal, debe ser\n      nValue &#58;= nValue / 2&#46;54      // Sin el INT\n   endif\n\n&#46;&#46;&#46;&#46;&#46;&#46;\n\nreturn nil\n\n[/code:28ohrg6s]\n\nun saludo,\n\nCarlos.','',0,'AIA=','28ohrg6s',1,0,'',316,0,0),(38797,8364,3,35,0,'65.188.6.143',1191324806,1,0,1,1,1,0,'','','Reinaldo\n\nI hope you realize the .net framework is a run time and you MUST have the correct version of that framework on each workstation for your  app.\n\nDot net for client\\server is just not practical especially when you work in State gov like I do and your client base is over 5000 desktops.\n\nThere are versions of the framework from 1,1.1, 2, 2x .. 3 .. lets see .. just pick a number and mulitply that times the number of workstations that have to have the correct version installed.\n\nI hope you see .. dot net is only effective in a Web scenario or in a very small office or client base where making sure the desktops all have the correct version of the framework installed .. and God forbid .. the client does a Microsoft update and modifys their version of their runtime and breaks your app ..\n\nJust not a practical solution for me .. 5000 desktops .. a shear infrastructure nitemare !!\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','2zkq9fxa',1,0,'',35,0,0),(38798,8363,6,850,0,'201.255.125.239',1191324914,1,0,1,1,1,0,'','','No es ese el problema porque con un seek buscando apellido tampoco funciona en xHarbour y si en Clipper. Para mi el problema esta entre la Rddads de xHarbour y la dll de ads.\n\nGracias.\n\nAndres','',0,'AIA=','2lnk2fte',1,0,'',850,0,0),(38799,8377,3,972,0,'81.164.117.81',1191329259,1,0,1,1,1,0,'','Not able to set background color','Hello,\n\nI\'m unable to set background colors for SAY, RADIO and BITMAP controls.\nI just tested it with latest xHarbour + latest FWH in Windows XP and Vista\n\nPlease try folowing sample:[code:11u5bul1]#include &quot;FiveWin&#46;ch&quot;\n\n#define CLR_WHITE      16777215\n\nFunction wfMain&#40;&#41;\n   LOCAL oDlg, oRadio, lRadio&#58;=&#46;F&#46;, oBitmap  \n   \n   DEFINE DIALOG oDlg NAME &quot;TEST_DIALOG&quot;    \n   \n   REDEFINE SAY ID 101 OF oDlg COLOR 0, CLR_WHITE         \n   \n   REDEFINE RADIO oRadio VAR lRadio ID 102 OF oDlg COLOR 0, CLR_WHITE    \n   \n   REDEFINE BITMAP oBitmap NAME &quot;TERUG&quot; ID 104 OF oDlg\n   oBitmap&#58;SetColor&#40;0, CLR_WHITE&#41;\n                                  \n   ACTIVATE DIALOG oDlg CENTERED\n    \nRETURN NIL[/code:11u5bul1]\nThis is the RC:[code:11u5bul1]TEST_DIALOG DIALOG 21, 51, 271, 121\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test Dialog&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Label on Dialog&quot;, 101, 12, 14, 78, 8\n CONTROL &quot;&quot;, 104, &quot;TBitmap&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 16, 66, 48, 48\n CONTROL &quot;Radio&quot;, 102, &quot;BUTTON&quot;, BS_AUTORADIOBUTTON, 12, 35, 73, 12\n&#125;\n\nTERUG         BITMAP TERUG&#46;BMP[/code:11u5bul1]\nI have Zipped test.prg, Test.RC and Terug.BMP in Test-Background.zip which you can download here:\n<!-- m --><a class=\"postlink\" href=\"http://www.WinFakt.be/Downloads/Test-Background.zip\">http://www.WinFakt.be/Downloads/Test-Background.zip</a><!-- m -->\n\nThank you.\n\nPatrick Mast\n<!-- m --><a class=\"postlink\" href=\"http://www.WinFakt.be\">http://www.WinFakt.be</a><!-- m -->','',0,'AIA=','11u5bul1',1,0,'',972,0,0),(38800,8377,3,6,0,'87.20.218.205',1191330657,1,0,1,1,1,1,'','Re: Not able to set background color','Patrick, your sample work almost fine here using latest FWH. SAY and RADIO get the background color correctly while BITMAP doesn\'t.\n\nEMG','',0,'AIA=','33i6q0mx',1,0,'',6,0,0),(38801,8378,6,1178,0,'200.24.127.10',1191330782,1,0,1,1,1,0,'','Cual es la Diferencia entre Harbour y xharbour','Cual es la Diferencia entre Harbour y xharbour perdona la pregunta , ya que apenas me estoy iniciando en este tipo herramienta. \nCual me recomendaria de las dos. para desarrollar.','',0,'AIA=','ejp0q7da',1,0,'',1178,0,0),(38802,8364,3,6,0,'87.20.218.205',1191330813,1,0,1,1,1,1,'','','Isn\'t enough to keep the PCs updated?\n\nEMG','',0,'AIA=','jscr92n1',1,0,'',6,0,0),(38803,8363,6,36,0,'164.77.81.210',1191330830,1,0,1,1,1,1,'','','Hola\n\nYo tuve algo parecido en algun tiempo\n\nel problema era que utilizaba las bases de datos creadas por clipper, \n\nlo que hice fue hacer un procedimiento de crear las bases de datos en xharbour, luego hacer un append from y luego indexar todo a travez de un programa hecho en xharbour.\n\npodrias probar a ver si te soluciona el problema\n\nsuerte..','',0,'AIA=','k74yhssh',1,0,'',36,0,0),(38804,8379,6,176,0,'201.255.164.165',1191331242,1,0,1,1,1,0,'','Clases','Estoy tratando de hacer un reporte genérico seleccionando los campos que deseo impimir. Estos campos los cargo en un array unidimensional. Ahora bien si hago la selección de un sólo campo me lo imprime bien. El prg lo hice así\n\nREPORT oReport title \"Listado de Clientes\" preview\n        COLUMN DATA (oDbf:cAlias)-&gt;(&amp;(aImprimo[nAt]))\n\nEND REPORT\n\nAhora probé tratando de hacerlo  usando  oReport:AddColumn(oColumn ) y luego tratando de utilizar trcolumn, pero realmente no doy con la forma de programarlo. Necesito me orientaran en como realizarlo.\n\nEl asunto es por que es un problema de clases y también porque necesito que me den clases . Es decir ese asunto  \"Clases\" abarca dos significados !!!\n\nGracias desde ya','',0,'','207se1d1',1,0,'',176,0,0),(38805,8371,3,303,0,'72.220.100.171',1191331971,1,0,1,1,1,0,'','','Alex,\n\nAs I said it is not that simple. You are going to have to check every method in both TDBCombo and TCombobox. Either methods also have to be modified in TCombobox also or new methods have to be created in DBCombo. But the real problem is that there is existing code that requires values for the location in the array. Changing the behavoir of DBCombo and/or Combobox is going to break this existing code.\n\nIt is very easy to convert your numeric data to character when you build the array, and to convert the selection back to numeric. That is a much simpler solution.\n\nRegards,\nJames','',0,'','3cx03p3c',1,0,'',303,0,0),(38806,8174,3,303,0,'72.220.100.171',1191333121,1,0,1,1,1,0,'','','Alex,\n\nHave you tried the TRANSPARENT clause in the GROUP definition?\n\nJames','',0,'','2rchfe9m',1,0,'',303,0,0),(38807,8374,6,73,0,'200.23.18.132',1191334540,1,0,1,1,1,0,'','','enterado, gracias\npaco','',0,'','1tzbe7zh',1,0,'',73,0,0),(38808,8364,3,868,0,'219.64.121.60',1191334925,1,0,1,1,1,1,'','','All these are issues as long as we still stick to our old habits of client-server architecture. \n\nToday its all three-tier architecture everywhere, with web enabled applications (intranet or internet).  Dot-net is only one of the platforms for 3-tier web enabled applications (it does 2-tier also). There are many other alternatives, In this scenario, it matters little whether the client is pc or mac or linux  box. All the client needs is to have a web-browser. Future is only for web enabled 3-tier applications. Many client-orgainsations now a days are not accepting client-server applications though we offer better looking rich gui.\n\nAll the business logic of the application is coded in the serverside procedures ( procedures. functions and packages ).  Any front end ( webenabled or rich windows applications like ours ) only talk to the serverside procedures and provides user interaction only. As a policy, client organisations insist that the front ends do not contain any business logic.\n\nAs an example, even in a country like India, which is still not a developed country, our state information technology department is advising all state government organisations to move on to 3-tier architecture. Not only that, they further advise all inter-modular and inter-corporate communications to be through web-services (SOAP) only.\n\nAll major software development in our country now is on 3-tier architecture only. All major software comapanies stopped client server applications, except where a client asks for it for some legacy reasons. Now the client-server development is only done by small developers for small customers.\n\nMr. Antonio, in his great wisdom did make an effort to develop a .Net version of Harbour. True we did not encourage him. May be dot.net may not be the only way we keep a great language like Harbour useful for future. If there is some way Harbour can be made to play a role in three tier architecture. \n\nSome thoughts:  After we design the screens or forms, why cant FWH generate generate an asp page ( or set of asp pages) to show the same screens on webbrowser (also using azax) ? Possible we can give better interface than other tools available. No present tool in the world can beat the way we show browses. Can we not do that in the new environment?  \n\nI am not talking about something like xbscript. Even with that gui on web-browser is still to be developed by us. if we can use xbscript we can as well use vbscript.\n\nI am sure if a genius like Mr. Antonio turns his mind in this direction, we can proudly develop 3-tier applications with better user interface than others.\n\nI am yet to see cule and the other mentioned above. I am interested in looking at them.\n\nWe need to catch up with the present day developments.\n\nHumbly yours\n\nNageswara Rao','',0,'','23uxikry',1,0,'',868,0,0),(38809,8310,6,931,0,'201.159.1.211',1191335581,1,0,0,0,1,0,'','Re:','[quote=&quot;thefull&quot;][quote=&quot;MarioDava&quot;]Ok Rafael, te comento, tambien estoy usando xHarbour 00.99.70, pero me puedes indicar el nombre de la librerái donde se encuentran estas clases.\n\nSaludos,\n\n\n[quote=&quot;thefull&quot;][quote=&quot;MarioDava&quot;]Thefull, de hecho si vi tus articulos, e hice las pruebas pero no me funciono, primero no supe cual era la libreria o si era un prg con la clase, que include se necesitaba, etc.\n\nDe hecho tampoco me funciono la clase XMLRead, así que me ire con las sugerencia de Miguel.\n\nPero agradezco la atención.\n\nSaludos,\n[/quote]\nPues la libreria TIP creo que es la que contiene el tema de internet, XML, etc.\nDe todas maneras, tienes que poner el #include \"hbxml.ch\"m, ademas\nde compilar con la libreria pcrepos, soporte de expresiones regulares,\npero no estoy seguro de ello, puesto que pueden que hayan cambiado\nalguna parte de xHarbour que no se comporte como deberia...\n\nMe parece una burrada el codigo que habeis puesto, pues es inmantenible a la larga, solamente sirve para salir del paso , pero no para abordar el problema.\n\nLa solucion mucho más potente , en todos los sentidos, es usar las clases\nde Giancarlo, que realizó para xHarbour, ahora estan tambien pasandolas a Harbour.\n\nTe voy a poner un ejemplo practico, para que puedes ver realmente como funciona;\n\nEjemplo:\n[code]#include \"fileio.ch\"\n#include \"hbxml.ch\"\n\nPROCEDURE Main( cFileName )\n\n    hFile := FOpen( cFileName )\n  \n    If hFile = -1\n       Error_Msg( cFileName, \"No se pudo abrir el fichero\" + cFileName )\n       return \n    endif\n\n    oXmlDoc := TXmlDocument():New( hFile )\n\n    if oXmlDoc:nStatus != HBXML_STATUS_OK  \n       cError := \"Error While Processing File: \" + AllTrim( Str( oxmlDoc:nLine ) ) + \" # \"+;\n                 \"Error: \" + HB_XmlErrorDesc( oxmlDoc:nError ) + \" # \" +;\n                 \"Tag Error on tag: \" + oxmlDoc:oErrorNode:cName + \" # \" +;\n                 \"Tag Begin on line: \" + AllTrim( Str( oxmlDoc:oErrorNode:nBeginLine ) ) \n       Error_Msg( cFileName, cError )\n       QUIT\n    endif\n\n     if( oNodo := oXmlDoc:FindFirst( \"PETICION\", \"id\",  \"CONSULTA_EMPRESA\" ) ) != NIL )\n       Consulta_Empresa( oNodo, cFileName )\n     endif\n\n   fClose( hFile )\n   \nRETURN\n\n*******************************************************************************\n*******************************************************************************\nSTATIC FUNCTION Consulta_Empresa( oNodo, cFile )\n    Local oIter, oNodeChild , oNode, oIterDia, oNodeDia, oNodeDet\n    Local oNodeHab  \n    Local nCodigo , cNombre\n    Local oDoc, oRes, oNode_Empresa, oUnidad, oDbf\n    Local cPath, cFileName\n\n    If !open( \"AGENCIAS\" )\n       Error_Msg( cFile, \"NO SE PUDO ABRIR AGENCIAS\", \"CONSULTA_EMPRESA\" )\n       Return NIL\n    Endif\n    DATABASE oDbf\n    oDbf:SetBuffer( .F. )\n   \n     // Buscando codigo\n    oIter    := TXMLIteratorScan():New( oNodo )\n    oNode    := oIter:Find( \"PARAM\", \"id\", \"codigo\" )\n    nCodigo := oNode:GetAttribute(\"valor\")\n    \n    oNode    := oNode:oNext // El siguiente en el nodo es el nombre\n    //cNombre  := oNode:GetAttribute(\"valor\")\n    cNombre  := oNode:oChild:cData // Para VALORES CDATA\n\n    oDoc := TXmlDocument():New() // Creacion del documento respuesta....\n    oDoc:oRoot:AddBelow( TxmlNode():New( HBXML_TYPE_PI,\'xml\' , , \'version=\"1.0\" encoding=\"iso-8859-1\"\' ) )\n    oRes := TxmlNode():New( HBXML_TYPE_TAG, \"RESPUESTA\" )\n    oRes:SetAttribute( \"id\", \"CONSULTA_EMPRESA\" )\n    oRes:SetAttribute( \"res\", \"OK\" )\n    oDoc:oRoot:AddBelow( oRes )\n    \n    oNode_Empresa := TxmlNode():New( HBXML_TYPE_TAG, \"LEMPRESAS\" )\n\n    IF !Empty( nCodigo ) // Pasamos codigo, buscamos por codigo\n        nCodigo = VAL( nCodigo )\n        IF DbSeek( nCodigo )\n           oUnidad := SAVEAGE2XML( oDbf )\n           oNode_Empresa:AddBelow( oUnidad )\n        ENDIF \n    ELSE  // El codigo esta vacio, buscamos por nombre\n       IF !Empty( cNombre )\n          oDbf:SetOrder( 2 ) \n          IF DbSeek( cNombre )\n             While !oDbf:Eof()\n                 IF cNombre = Substr( oDbf:Ag_Nom, 1, Len( cNombre ) )\n                    oUnidad := SAVEAGE2XML( oDbf )\n                    oNode_Empresa:AddBelow( oUnidad )\n                 ELSE\n                    EXIT\n                 ENDIF   \n                 oDbf:Skip()   \n                 SysRefresh()\n             end while\n           ENDIF     \n       ENDIF        \n    ENDIF\n\n    oDbf:Close()\n\n    *oDoc:oRoot:AddBelow( oNode_Empresa )\n    oRes:AddBelow( oNode_Empresa )\n    \n    cPath := cFilePath( cFile )\n    if cPath == \"&quot;\n       cPath := \"\"\n    endif\n    cFileName := Name_File( cFile )\n    hFile := FCreate( cPath + cFileName + \".RES\" )\n    \n    If hFile != -1\n       oDoc:Write( hFile, HBXML_STYLE_INDENT + HBXML_STYLE_THREESPACES )\n       FClose( hFile )\n    Endif\n    \n    SysRefresh()\n\nRETURN NIL\n\n*******************************************************************************\n*******************************************************************************\nSTATIC FUNCTION SAVEAGE2XML( oDbf )\n   Local oNodo, oNombre, oDirec, oCData, oPobla, oPais, oProv, oCodigo\n\n   oNodo := TxmlNode():New( HBXML_TYPE_TAG, \"EMPRESA\" )\n\n   oCodigo := TxmlNode():New( HBXML_TYPE_TAG, \"PARAM\" )\n   oCodigo:SetAttribute( \"id\", \"codigo\" )\n   oCodigo:SetAttribute( \"valor\", alltrim( str( oDbf:Ag_Codi ) ) )\n   oNodo:AddBelow( oCodigo )\n    // Metemos Codigo.\n   *oNodo:AddBelow( TxmlNode():New( HBXML_TYPE_TAG, \"codigo\", , alltrim( str( oDbf:Ag_Codi ) ) ) )\n            \n   // Nombre\n   oNombre := TxmlNode():New( HBXML_TYPE_TAG, \"PARAM\" )\n   oNombre:SetAttribute( \"id\", \"nombre\" )\n   // Atencion.. si activamos esta linea, crearia &lt;nombre&gt;[[CDATA]]&lt;/nombre&gt;\n   // oNombre := TxmlNode():New( HBXML_TYPE_TAG, \"nombre\" )\n     oCData := TxmlNode():New( HBXML_TYPE_CDATA )\n     oCData:cData := OemToAnsi( Alltrim( oDbf:Ag_Nom ) )\n   oNombre:AddBelow( oCData )\n   oNodo:AddBelow( oNombre )\n          \n   // Direccion\n   oDirec := TxmlNode():New( HBXML_TYPE_TAG, \"PARAM\" )\n   oDirec:SetAttribute( \"id\", \"direccion\" )\n     oCData := TxmlNode():New( HBXML_TYPE_CDATA )\n     oCData:cData := OemToAnsi( Alltrim( oDbf:Ag_direcci ) )\n   oDirec:AddBelow( oCData )\n   oNodo:AddBelow( oDirec )\n           \n   // Poblacion\n   oPobla := TxmlNode():New( HBXML_TYPE_TAG, \"PARAM\" )\n   oPobla:SetAttribute( \"id\", \"poblacion\" )\n     oCData := TxmlNode():New( HBXML_TYPE_CDATA )\n     oCData:cData := OemToAnsi( Alltrim( oDbf:Ag_poblaci ) )\n   oPobla:AddBelow( oCData )\n   oNodo:AddBelow( oPobla )\n           \n   // Provincia\n   oProv := TxmlNode():New( HBXML_TYPE_TAG, \"PARAM\" )\n   oProv:SetAttribute( \"id\",\"provincia\" )\n     oCData := TxmlNode():New( HBXML_TYPE_CDATA )\n     oCData:cData := OemToAnsi( Alltrim( oDbf:Ag_PoblaC2 ) )\n   oProv:AddBelow( oCData )\n   oNodo:AddBelow( oProv )\n           \n   // Pais\n    oPais := TxmlNode():New( HBXML_TYPE_TAG, \"PARAM\" )\n    oPais:SetAttribute( \"id\",\"pais\" )\n     oCData := TxmlNode():New( HBXML_TYPE_CDATA )\n     oCData:cData := OemToAnsi( Alltrim( oDbf:Ag_Pais ) )\n   oPais:AddBelow( oCData )\n   oNodo:AddBelow( oPais )\n\nRETURN oNodo\n\n[/code]\n\nPara entenderlo , te pongo la definicion del XML, con su explicacion, para\nque puedas hacerte una idea.\n\n******************************************************************************\n                   PETICION DE CONSULTA PARA EMPRESAS\n******************************************************************************\n\n\"codigo\"\nSi el valor de codigo es diferente que vacio, devolverá en la respuesta\nsolamente la empresa/agencia de ese codigo.\n\n\"nombre\"\nSi se da nombre, y el valor de codigo esta vacio, devolverá una lista\nconteniendo los registros que cumplan solamente el contenido inicial del\nnombre, es decir, si el valor es \"EL CORTE\", se seleccionaran TODOS los que \nempiezan por \"EL CORTE\".\n\n\n&lt;?xml version=\"1.0\" encoding=\"iso-8859-1\"?&gt;\n&lt;PETICION id=\"CONSULTA_EMPRESA\"&gt;\n&lt;LPARAMS&gt;\n    &lt;PARAM id=\"codigo\"  valor=\"xxx\"/&gt;\n    &lt;PARAM id=\"nombre\"&gt; &lt;![CDATA[A &amp; B]]&gt; &lt;/PARAM&gt;\n&lt;/LPARAMS&gt;\n\n\n******************************************************************************\n                    RESPUESTA PARA CONSULTA DE EMPRESA\n******************************************************************************\nEl fichero generado sera igual al que hemos pasado , pero con la extension \n.RES. El fichero resultante se creará donde este el fichero pasado.\n\nEl contenido de [[CDATA]] se establece para que el parseador de XML no tenga\nen cuenta el contenido.\n\n&lt;?xml version=\"1.0\" encoding=\"iso-8859-1\"?&gt;\n&lt;RESPUESTA id=\"CONSULTA_EMPRESA\" res=\"OK\"&gt;\n    &lt;LEMPRESAS&gt;\n      &lt;EMPRESA&gt;\n        &lt;PARAM id=\"codigo\"  valor=\"\"/&gt;\n        &lt;PARAM id=\"nombre\"&gt;    &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"direccion\"&gt; &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"poblacion\"&gt; &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"provincia\"&gt; &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n        &lt;PARAM id=\"pais\"&gt;      &lt;![CDATA[]]&gt; &lt;/PARAM&gt;\n      &lt;/EMPRESA&gt;\n    &lt;/LEMPRESAS&gt;\n&lt;/RESPUESTA&gt;\n\nres=\"OK\" retorna siempre que se a realizado con exito.\nDe lo contrario, devuelve res=\"ERROR\" y descripcion=\"Texto del error\",\npor ejemplo:\n\n&lt;?xml version=\"1.0\" encoding=\"iso-8859-1\"?&gt;\n&lt;RESPUESTA id=\"CONSULTA_EMPRESA\" res=\"ERROR\" descripcion=\"No se puede...\"&gt;\n\n\nEs decir, el ejemplo que te he puesto, es capaz de leer un XML de entrada\npara ocasionarte una XML de salida, 2x1 ;-)\nSinceramente, esto que te he puesto es MUCHISIMO más potente de usar.\nCualquier duda, por aqui.[/quote]\n\nRafael,\n\nPrimero, agradezco los elemento que me has proporcionado y, segundo efectivamente, se que al meterse a trabajar con XMLs el requerimiento que tengo va ir crecendio eso es natural en cualquier proceso (pero de momento esto me resolvio el problema, ademas solo cargo la cadena una sola vez y de ahi uso las funciones de texto para buscar mis datos, que  en este momento son basicos).\n\nLo que si te puedo decir es que la clase XMLRead esta fallando en el metodo oXML:GetValue(), ya que incluso con el mismo ejemplo de la clase no encuentra el elemento indicado, los demas metodos de esta clase si me han funcionado, pero al parecer hay que pagar para eliminar un msg que aparece.\n\nVoy hacer las pruebas y te comento como me fue.\n\nGracias nuevamente.','',0,'','3gydlmqt',1,0,'',931,0,0),(38810,8380,6,228,0,'200.119.54.29',1191335793,1,0,1,1,1,1,'','Dos Preguntas sobre MDI','Amigos del foro tengan buen día tengo las siguientes preguntas:\n\n1- Estoy trabajando con ventanas MDI y resulta que cuando abro las ventanas estas me salen en la misma posicion, se coloca una sobre la otra; la pregunta es como hago para ir aumentando las coordenadas de las ventanas a medida que se van creando para que se vea como CASCADA?\n\nEl codigo de una de las ventanas el es siguiente:\n\n[code:9dt33fsq]\nDEFINE WINDOW oLamcla&#58;oWndChild MDICHILD OF oWnd FROM 3,3 TO 6,6 COLOR &quot;N/W&quot; nomaximize border none ICON &quot;#8009&quot;\n  oLamcla&#58;oWndChild&#58;bGotFocus  = &#123; || oCuadro&#58;SetFocus&#40;&#41; &#125;\n\n  DEFINE DIALOG oCuadro RESOURCE &quot;orCiudad&quot; OF oLamcla&#58;oWndChild\n\n   REDEFINE BTNBMP Btn_Agre ID 4007 OF oCuadro RESOURCE &quot;Bagre&quot;  TOOLTIP oLamcla&#58;mTagr NOBORDER ACTION &#40;oLamcla&#58;vgraba&#58;=&#46;t&#46;,oLamcla&#58;autoriza&#40;29&#41;&#41;\n   REDEFINE BTNBMP Btn_Modi ID 4001 OF oCuadro RESOURCE &quot;Bmodi&quot;  TOOLTIP oLamcla&#58;mTmod NOBORDER ACTION &#40;oLamcla&#58;vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#41;\n   REDEFINE BTNBMP Btn_Borr ID 4002 OF oCuadro RESOURCE &quot;Bborr&quot;  TOOLTIP oLamcla&#58;mTbor NOBORDER ACTION oLamcla&#58;autoriza&#40;31&#41;\n   REDEFINE BTNBMP oLamcla&#58;Btn_Imor ID 4004 OF oCuadro RESOURCE &quot;Bimpr&quot;  TOOLTIP oLamcla&#58;mTimp NOBORDER ACTION oLamcla&#58;autoriza&#40;32&#41;\n   REDEFINE BTNBMP Btn_Sali ID 4006 OF oCuadro RESOURCE &quot;Bsalid&quot; TOOLTIP oLamcla&#58;mTsal NOBORDER ACTION &#40;oLamcla&#58;oTbMed&#58;End&#40;&#41;,oCuadro&#58;end&#40;&#41;&#41;\n   REDEFINE BTNBMP Btn_Limp ID 4010 OF oCuadro RESOURCE &quot;BLimpi&quot; TOOLTIP oLamcla&#58;mTfil NOBORDER ACTION &#40;oLamcla&#58;oC1vg1&#58;=space&#40;100&#41;,pArMedi&#40;&#41;&#41;\n\n   REDEFINE COMBOBOX oM1oc1 VAR oM1vc1 PROMPTS oM1lc1 ID 4003 OF oCuadro UPDATE ;\n          ON CHANGE&#40;IF&#40;oM1vc1=&quot;Código&quot;,oLamcla&#58;vOrden=&quot;m_medida&quot;,oLamcla&#58;vOrden&#58;=&quot;m_nombre&quot;&#41;,&#40;pArMedi&#40;&#41;&#41;&#41;\n\n   REDEFINE GET oC1og1 VAR oLamcla&#58;oC1vg1 ID 4009 OF oCuadro UPDATE VALID&#40;pBusMed&#40;&#41;,&#46;T&#46;&#41;\n\n   TXBrowse&#40;&#41;&#58;lHeaders &#58;= &#46;T&#46;\n   oLamcla&#58;oTbMed&#58;GoTop&#40;&#41;\n\n   oLamcla&#58;oBrwMed &#58;= TXBrowse&#40;&#41;&#58;New&#40; oCuadro &#41;\n   WITH OBJECT oLamcla&#58;oBrwMed\n     &#58;CreateHeader&#40;&#41;\n     MySetbrowse&#40; oLamcla&#58;oBrwMed,oLamcla&#58;oTbMed &#41;\n     &#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n     &#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n     &#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE, oLamcla&#58;cClr3 &#125; &#125; //&#58;= &#123;|| &#123; CLR_WHITE, RGB&#40;24, 116, 205&#41; &#125; &#125;\n     oLamcla&#58;oBrwMed&#58;blDblClick          &#58;= &#123;|| oLamcla&#58;vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#125;\n     oLamcla&#58;oBrwMed&#58;bKeyDown            &#58;= &#123;|nKey|iif&#40;nKey == 13,&#40;oLamcla&#58;vgraba&#58;=&#46;f&#46;,oLamcla&#58;autoriza&#40;30&#41;&#41;,&#40;&quot; &quot;&#41;&#41;&#125;\n     &#58;nHeaderLines        &#58;= 1\n     &#58;lColDividerComplete &#58;= &#46;t&#46;\n     &#58;lRecordSelector     &#58;= &#46;t&#46;\n     &#58;SetColor&#40;CLR_BLACK, RGB&#40;255,255,235&#41;&#41;\n     &#58;bClrStd &#58;= &#123;|| IF&#40; &#40;oLamcla&#58;oTbMed&#58;Recno&#40;&#41;%2&#41;==0,&#123;CLR_BLACK,oLamcla&#58;cClr2&#125;,&#123;CLR_BLACK,oLamcla&#58;cClr1&#125; &#41; &#125;\n     &#58;bClrSel &#58;= &#123;|| &#123; CLR_BLACK,oLamcla&#58;cClr7 &#125; &#125;\n\n     WITH OBJECT &#58;AddCol&#40;&#41;\n       &#58;cHeader       &#58;= &quot;Código&quot;\n       &#58;bStrData      &#58;= GenCB&#40;oLamcla&#58;oTbMed,1&#41;\n       &#58;nHeadStrAlign &#58;= AL_LEFT\n       &#58;nDataStrAlign &#58;= AL_LEFT\n       &#58;nWidth        &#58;= 80\n     END\n\n     WITH OBJECT &#58;AddCol&#40;&#41;\n       &#58;cHeader       &#58;= &quot;Nombre&quot;\n       &#58;bStrData      &#58;= GenCB&#40;oLamcla&#58;oTbMed,2&#41;\n       &#58;nHeadStrAlign &#58;= AL_LEFT\n       &#58;nDataStrAlign &#58;= AL_LEFT\n       &#58;nWidth        &#58;= 225\n     END\n\n     WITH OBJECT &#58;AddCol&#40;&#41;\n       &#58;cHeader       &#58;= &quot;Sigla&quot;\n       &#58;bStrData      &#58;= GenCB&#40;oLamcla&#58;oTbMed,3&#41;\n       &#58;nHeadStrAlign &#58;= AL_LEFT\n       &#58;nDataStrAlign &#58;= AL_LEFT\n       &#58;nWidth        &#58;= 65\n     END\n\n     &#58;CreateFromResource&#40; 102 &#41;\n    END\n\n  ACTIVATE DIALOG oCuadro NOWAIT CENTERED ON INIT oCuadro&#58;Move&#40; 0, 0 &#41; VALID &#40;oLamcla&#58;oWndChild&#58;End&#40;&#41;, &#46;t&#46; &#41;\n\n  oLamcla&#58;oWndChild&#58;nWidth &#58;= oCuadro&#58;nWidth+7\n  oLamcla&#58;oWndChild&#58;nHeight &#58;= oCuadro&#58;nHeight+32\n  oLamcla&#58;oWndChild&#58;cTitle&#58;=&quot;Tabla de Medidas&quot;\n\nACTIVATE WINDOW oLamcla&#58;oWndChild ON INIT oWnd&#58;paint&#40;&#41;\n\n[/code:9dt33fsq]\n\n2- En el menu principal cree el menu (valga la rebusnancia) para el control de las ventanas; pero cuando se activan las ventanas en el submenu \"ventanas\" no se muestran las ventanas activas si no el menu siguiente, ¿como se le indica al sistema cual es el submenu que debe afectar?.\n\n[code:9dt33fsq]\n********************************\n*GENERA EL MENU DE LA APLICACION\n********************************\nFUNCTION Menu&#40;&#41;\nLOCAL oMenu\nMENU oMenu\n\n  MENUITEM &quot;&amp;Contabilidad&quot;\n    MENU\n      MENUITEM &quot;&amp;Catálogos&quot;\n        MENU\n          MenuItem &quot;&amp;Terceros&quot;          		ACTION oLamcla&#58;autoriza&#40;11&#41;\n          SEPARATOR\n          MenuItem &quot;C&amp;omprobantes&quot;      		ACTION oLamcla&#58;autoriza&#40;83&#41;\n	  MenuItem &quot;&amp;Control Documentos&quot;        	ACTION oLamcla&#58;autoriza&#40;107&#41;\n          MenuItem &quot;&amp;Otros Conceptos Documentos&quot;        ACTION oLamcla&#58;autoriza&#40;147&#41;\n          SEPARATOR\n	  MenuItem &quot;C&amp;uentas&quot;      			ACTION oLamcla&#58;autoriza&#40;95&#41;\n	  MenuItem &quot;C&amp;entros de Costo&quot;  		ACTION oLamcla&#58;autoriza&#40;89&#41;\n          SEPARATOR\n	  MenuItem &quot;C&amp;iudades&quot;          		ACTION oLamcla&#58;autoriza&#40;23&#41;\n	ENDMENU\n      MENUITEM &quot;Ca&amp;ptura Datos&quot;\n        MENU\n          MenuItem &quot;&amp;Comprobantes Varios&quot;\n          MenuItem &quot;&amp;Ajustes por Inflación&quot;\n            MENU\n              MenuItem &quot;&amp;Generar Comprobante de Ajustes&quot;\n              MenuItem &quot;&amp;Tabla de Porcentaje Mensual&quot;\n	    ENDMENU\n	ENDMENU\n      MENUITEM &quot;&amp;Reportes Impresora&quot;\n        MENU\n          MenuItem &quot;&amp;Auxiliares&quot;        		//ACTION oLamcla&#58;autoriza&#40;11&#41;\n          MenuItem &quot;&amp;Balances&quot;      			//ACTION oLamcla&#58;autoriza&#40;11&#41;\n          MenuItem &quot;&amp;Estado de Resultados&quot;      	//ACTION oLamcla&#58;autoriza&#40;11&#41;\n          MenuItem &quot;&amp;Libros Oficiales&quot;  		//ACTION oLamcla&#58;autoriza&#40;11&#41;\n          MenuItem &quot;C&amp;omprobante de Diario&quot;  		//ACTION oLamcla&#58;autoriza&#40;11&#41;\n	  MenuItem &quot;C&amp;entros de Costo&quot;  		//ACTION oLamcla&#58;autoriza&#40;11&#41;\n	ENDMENU\n      MENUITEM &quot;C&amp;onciliación Bancaria&quot;\n      MENUITEM &quot;&amp;Funciones Especiales&quot;\n        MENU\n          MenuItem &quot;&amp;Cruce de Catálogo con Movimiento&quot;  ACTION oLamcla&#58;autoriza&#40;162&#41;\n	ENDMENU\n      SEPARATOR\n      MENUITEM &quot;&amp;Salir&quot; 				ACTION oWnd&#58;End&#40;&#41;\n    ENDMENU\n MENUITEM &quot;&amp;Inventarios&quot;\n  MENU\n    MENUITEM &quot;&amp;Catálogos&quot;\n      MENU\n        MENUITEM &quot;&amp;Terceros&quot;    			ACTION oLamcla&#58;autoriza&#40;11&#41;\n    	MenuItem &quot;C&amp;iudades&quot;          			ACTION oLamcla&#58;autoriza&#40;23&#41;\n    	SEPARATOR\n      	MENUITEM &quot;&amp;Unidades de Medida&quot;  		ACTION oLamcla&#58;autoriza&#40;28&#41;\n    	MENUITEM &quot;&amp;Categorias Artículos&quot;		ACTION oLamcla&#58;autoriza&#40;33&#41;\n    	MENUITEM &quot;Nivel &amp;1&quot;  				ACTION oLamcla&#58;autoriza&#40;38&#41;\n    	MENUITEM &quot;Nivel &amp;2&quot;  				ACTION oLamcla&#58;autoriza&#40;43&#41;\n    	MENUITEM &quot;Nivel &amp;3&quot;  				ACTION oLamcla&#58;autoriza&#40;48&#41;\n    	MENUITEM &quot;&amp;Tallas&quot;  				ACTION oLamcla&#58;autoriza&#40;53&#41;\n    	MENUITEM &quot;C&amp;olores&quot;  				ACTION oLamcla&#58;autoriza&#40;58&#41;\n    	MENUITEM &quot;Cat&amp;egorias Tallas&quot;			//ACTION LamCata&#40;&#41;\n    	MENUITEM &quot;Listas de &amp;Precios&quot;			ACTION oLamcla&#58;autoriza&#40;68&#41;\n    	MENUITEM &quot;&amp;Artículos&quot;	        		ACTION oLamcla&#58;autoriza&#40;77&#41;\n    	SEPARATOR\n    	MENUITEM &quot;&amp;Bodegas&quot;                 		ACTION oLamcla&#58;autoriza&#40;63&#41;\n      ENDMENU\n    MENUITEM &quot;&amp;Kardex de Entradas y Salidas&quot; 		ACTION oLamcla&#58;autoriza&#40;999&#41;\n    MENUITEM &quot;&amp;Captura Datos&quot;\n      MENU\n        MenuItem &quot;En&amp;tradas Directas&quot; 			ACTION oLamcla&#58;autoriza&#40;999&#41;\n        MenuItem &quot;&amp;Salidas Directas&quot; 			ACTION oLamcla&#58;autoriza&#40;999&#41;\n        MenuItem &quot;&amp;Traslado Entre Bodegas&quot; 		ACTION oLamcla&#58;autoriza&#40;999&#41;\n    	SEPARATOR\n    	MenuItem &quot;&amp;Saldos Iniciales&quot;        		ACTION oLamcla&#58;autoriza&#40;141&#41;\n      ENDMENU\n    MENUITEM &quot;&amp;Reporte de Inventarios&quot; 			ACTION TEMPO&#40;&#41;\n      MENU\n 	MenuItem &quot;&amp;Movimiento Bodega&quot; 			ACTION oLamcla&#58;autoriza&#40;146&#41;\n	MenuItem &quot;I&amp;nventarios Por Grupo&quot; 		ACTION oLamcla&#58;autoriza&#40;999&#41;\n      ENDMENU\n    ENDMENU\n\n  MENUITEM &quot;&amp;Facturación&quot;\n  MENU\n    MENUITEM &quot;C&amp;aptura Datos&quot;\n      MENU\n      MENUITEM &quot;&amp;Pedidos&quot;\n	Menu\n          MenuItem &quot;Pedidos - Control Bar&quot;      	ACTION oLamcla&#58;autoriza&#40;101&#41;\n          MenuItem &quot;Pedidos en Bloque&quot;\n        EndMenu\n      MenuItem &quot;&amp;Factura&quot;                               ACTION oLamcla&#58;autoriza&#40;124&#41;\n      MenuItem &quot;&amp;Remisión&quot;                              ACTION oLamcla&#58;autoriza&#40;155&#41;\n      SEPARATOR\n      MENUITEM &quot;&amp;Saldos Iniciales&quot; ACTION TEMPO&#40;&#41;\n        MENU\n          MenuItem &quot;&amp;Saldos Iniciales Remisiones&quot; 	ACTION oLamcla&#58;autoriza&#40;16&#41;\n          MenuItem &quot;&amp;Saldos Iniciales Facturas&quot;   	//ACTION LamIniFa&#40;&#41;\n	ENDMENU\n      ENDMENU\n    MENUITEM &quot;&amp;Consultas Facturación&quot;\n      MENU\n        MenuItem &quot;&amp;Factura&quot; ACTION TEMPO&#40;&#41;\n        MenuItem &quot;&amp;Remisión&quot; ACTION TEMPO&#40;&#41;\n      ENDMENU\n    MENUITEM &quot;&amp;Reportes Facturación&quot;\n    MENU\n      MenuItem &quot;&amp;Factura&quot; ACTION TEMPO&#40;&#41;\n      MenuItem &quot;&amp;Remisión&quot; ACTION TEMPO&#40;&#41;\n      SEPARATOR\n      MenuItem &quot;Ventas por &amp;Día&quot; 		        ACTION oLamcla&#58;autoriza&#40;132&#41;\n      SEPARATOR\n      MenuItem &quot;Codigos de Barras&quot;                      ACTION oLamcla&#58;autoriza&#40;131&#41;\n    ENDMENU\n  ENDMENU\n  MenuItem &quot;&amp;Cuentas Por Pagar&quot;\n  MENU\n    MenuItem &quot;&amp;Cuentas por Pagar &#40;Compras&#41;&quot;             ACTION oLamcla&#58;autoriza&#40;133&#41;\n    MenuItem &quot;&amp;Pago a Proveedores&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Cancelación de Pagos&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Estado de Cuenta del Proveedor&quot;\n    MENU\n      MenuItem &quot;&amp;General&quot; ACTION TEMPO&#40;&#41;\n      MenuItem &quot;&amp;Detallado&quot; ACTION TEMPO&#40;&#41;\n    ENDMENU\n    MenuItem &quot;&amp;Reporte de Pagos Realizados&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Antiguedad de Saldos&quot; ACTION TEMPO&#40;&#41;\n  ENDMENU\n  MenuItem &quot;Cuentas Por C&amp;obrar&quot;\n  Menu\n    MenuItem &quot;&amp;Pago de Clientes&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Cancelación de Pagos&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Estado de Cuenta del Cliente&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Reporte de Pagos Realizados&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Antiguedad de Saldos&quot; ACTION TEMPO&#40;&#41;\n  EndMenu\n  MenuItem &quot;&amp;Parámetros&quot;\n  Menu\n    MenuItem &quot;&amp;Catálogo Empresas&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;&amp;Parámetros del Sistema&quot; ACTION TEMPO&#40;&#41;\n    MenuItem &quot;P&amp;orcentajes para Precios&quot; ACTION TEMPO&#40;&#41;\n  EndMenu\n  MENUITEM &quot;&amp;Utilerías&quot;\n  MENU\n    MenuItem &quot;&amp;Calculadora&quot; Message &quot;Activa la Calculadora de Windows&quot; Action &#40;WinExec&#40;&quot;CALC&#46;EXE&quot;&#41;&#41;\n    Separator\n    MenuItem &quot;&amp;Ver Errores&quot; Message &quot;Ver Errores del Sistema&quot; ACTION TEMPO&#40;&#41;\n  ENDMENU\n  MENUITEM &quot;&amp;Ventanas&quot; WHEN LEN&#40;oWnd&#58;oWndClient&#58;aWnd&#41; &gt; 0 HELP\n    MENU\n      MENUITEM &quot;&amp;Anterior&quot; ACTION oWnd&#58;oWndActive&#58;Prev&#40;&#41;;\n      WHEN LEN&#40;oWnd&#58;oWndClient&#58;aWnd&#41; &gt; 1\n      MENUITEM &quot;&amp;Siguiente&quot; ACTION oWnd&#58;NextWindow&#40;&#41;;\n      WHEN LEN&#40;oWnd&#58;oWndClient&#58;aWnd&#41; &gt; 1\n      MENUITEM &quot;&amp;Cerrar&quot; ACTION oWnd&#58;oWndActive&#58;End&#40;&#41;\n      SEPARATOR\n      MENUITEM &quot;&amp;Minimizar todo&quot; ACTION oWnd&#58;IconizeAll&#40;&#41;\n      MENUITEM &quot;&amp;Restaurar todo&quot; ACTION AEVAL&#40;oWnd&#58;oWndClient&#58;aWnd,&#123; |oWnd, nPos| oWnd&#58;Restore&#40;&#41; &#125;&#41;\n      MENUITEM &quot;C&amp;errar todo&quot;  ACTION oWnd&#58;CloseAll&#40;&#41;;\n      WHEN LEN&#40;oWnd&#58;oWndClient&#58;aWnd&#41; &gt; 1\n    ENDMENU\n  MENUITEM &quot;&amp;Seguridad&quot; HELP\n  MENU\n    MENUITEM &quot;Catálogo &amp;Usuarios&quot; 	 		//ACTION LamUsua&#40;&#41;\n    MENUITEM &quot;Catálogo &amp;Llaves&quot;   	  		ACTION oLamcla&#58;autoriza&#40;112&#41;\n    SEPARATOR\n    MENUITEM &quot;Catálogo &amp;Autorizaciones&quot;   		ACTION oLamcla&#58;autoriza&#40;121&#41;\n    SEPARATOR\n    MENUITEM &quot;&amp;Seguridad Captura Datos&quot;   //ACTION LamLlav&#40;&#41;\n  EndMenu\n  MENUITEM &quot;&amp;Ayuda&quot; HELP\n  MENU\n    MENUITEM &quot;&amp;Contenido&#46;&#46;&#46;&quot;\n    MENUITEM &quot;&amp;Buscar Ayuda Sobre&#46;&#46;&#46;&quot;\n    MENUITEM &quot;&amp;Usar la Ayuda&#46;&#46;&#46;&quot;\n    Separator\n    MENUITEM &quot;&amp;Acerca de&#46;&#46;&#46;&quot;\n  EndMenu\nENDMENU\nRETURN&#40;oMenu&#41;\n\n[/code:9dt33fsq]\n\n[url=http&#58;//img223&#46;imageshack&#46;us/my&#46;php?image=ventanasln7&#46;jpg:9dt33fsq][img:9dt33fsq]http&#58;//img223&#46;imageshack&#46;us/img223/8972/ventanasln7&#46;th&#46;jpg[/img:9dt33fsq][/url:9dt33fsq]\n\nDe antemano gracias','',0,'GIA=','9dt33fsq',1,0,'',228,0,0),(38812,8361,4,1176,0,'217.21.255.129',1191336829,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:yoyitcjz]Hello Joop,\n\nNice to meet you here <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease make a search for *comm on this same FWPPC forum and you will get lots of samples <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:yoyitcjz]\n\nHello Antonio,\n\nI can\'t find a sample with a simple Initcomm, writecomm or readcomm.\nIn fact, I don\'t understand the most samples concerning serial communication!\n\nEven in the help functions I can\'t find for example to set an EVEN parity?\n\nI hoped to get some input to take the first step to improve that FWPPC can communicate with our vending machine….\n\nDEFINE COMM &lt;oComm&gt;  \n [ STOP &lt;nStop&gt; ];  \n [ BAUD &lt;nBaud&gt; ];  \n [ PARITY &lt;cParity&gt; ];  \n [ INSIZE &lt;nInQueue&gt; ];  \n [ OUTSIZE &lt;nOutQueue&gt; ];  \n [ DEVICE &lt;nDevice&gt; ];  \n [ DATA &lt;nData&gt; ];  \n \n&lt;oComm&gt;       The variable to hold this object.    \n&lt;nNumber&gt;      Number of queue to flush.    \n&lt;nData&gt;      Number of bits.    \n&lt;nCode&gt;      Escape code to send.    \n&lt;cString&gt;      A text to send.    \n&lt;nDevice&gt;      Device number.    \n&lt;nBaud&gt;      Bauds speed.    \n&lt;nOutQueue&gt;      Size of the out queue in bytes.    \n&lt;cParity&gt;      Parity \"y\" yes or \"n\" no.    \n&lt;nStop&gt;      Number of stop bytes.','',0,'gA==','yoyitcjz',1,0,'',1176,0,0),(38813,8382,6,1104,0,'190.55.55.3',1191337396,1,0,1,1,1,0,'','Clase TPrint','Hola a todos,\n\nNecesito hacer con la clase PRINT una impresión y al mismo tiempo enviarla a un archivo .txt\n\nhay alguna forma de hacerlo con la clase PRINT como se puede hacer con la clase REPORT con TO FILE?\n\nDesde ya muchas gracias.\n\nSaludos, \nEsteban','',0,'gA==','kasjp1lh',1,0,'',1104,0,0),(38814,8295,3,1036,0,'216.16.239.66',1191342355,1,0,1,1,1,0,'','Correction','The very nature of enhanced metafiles allows device independence on playback due to the correct information being recorded in metafiles via device abstraction.\n\nThe only limitation is the destination device on playback - ie - resolution et al.','',0,'gA==','zr3or9i2',1,0,'',1036,0,0),(38815,8305,6,396,0,'190.78.224.151',1191342369,1,0,1,1,1,1,'','','Hola, donde ubicaron los iconos, de donde se pueden bajar...? podrian colocar un link...?','',0,'gA==','2ckgh0kh',1,0,'',396,0,0),(38816,8282,3,1173,0,'205.211.248.93',1191342427,1,0,1,1,1,1,'','','Bien he revisado el foro y me he encontrado con un [color=red:1q5skymr]Un Post del 2005[/color:1q5skymr]\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=115&amp;highlight=listbox+multi\">http://fivetechsoft.com/forums/viewtopi ... tbox+multi</a><!-- m -->\n\nEn el cual el Maestro Antonio Linares afirma que para ese entonces, la  seleccion multiple aun no caminaba como lo hace Excel <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  no se si ya se habra resuelto, o puesto en marcha.\n\nAun no me actualizo a la nueva version de FWH, no si si alguien habra solucionado esto de ulguna manera.\n\nSaludos desde Honduras  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','1q5skymr',1,0,'',1173,0,0),(38817,8383,6,221,0,'200.109.96.250',1191343412,1,0,1,1,1,1,'','AJUSTAR BITMAP EN BROWSE (LISTBOX)','SALUDOS COMO HAGO PARA AJUSTAR UN BITMAP AL ALTO O ANCHO DE LA CELDA O VICEVERCE AJUSTAR LA CELDA AL TAMAÑO DEL BITMAP YA QUE SE DESBORDA Y OCUPA VARIAS LINEAS\n\nGRACIAS','',0,'Ag==','3dgf804k',1,0,'',221,0,0),(38818,8384,6,1178,0,'200.24.127.10',1191343835,1,0,1,1,1,0,'','Como se define un FRAME Tengo FWH 2.7','Hola , perdon por la pregunta como se define un FRAME','',0,'Ag==','16anon4j',1,0,'',1178,0,0),(38819,8377,3,972,0,'81.164.117.81',1191345025,1,0,1,1,1,0,'','Re: Not able to set background color','[quote=&quot;EnricoMaria&quot;:1t8y455j]Patrick, your sample work almost fine here using latest FWH. SAY and RADIO get the background color correctly while BITMAP doesn\'t.\nEMG[/quote:1t8y455j]\nHmm, strange. Can you try with xHarbour Builder please?\n\n--\nPatrick Mast\n<!-- m --><a class=\"postlink\" href=\"http://www.WinFakt.be\">http://www.WinFakt.be</a><!-- m -->','',0,'gA==','1t8y455j',1,0,'',972,0,0),(38820,8137,2,57,0,'88.9.24.37',1191347856,1,0,1,1,1,1,'','','Amigos\n¿Han conseguido algun ejemplo que funcione con tPdf?\n\nLes estaría muy agradecido si alguien pudiera publicar algun ejemplo de su uso.\n\nSaludos','',0,'gA==','3gsqckvw',1,0,'',57,0,0),(38821,8385,6,694,0,'201.22.71.61',1191348273,1,0,1,1,1,1,'','antonio, classe control!','Antonio, adicionei a classe control em meu projeto, par alterar esta parte do PRG:\n\nMETHOD KeyDown( nKey, nFlags ) CLASS TControl\n\n   if nKey == VK_ESCAPE\n      ::oWnd:KeyDown( nKey, nFlags )\n      return 0\n   endif   \n\n   if ::lDrag\n      do case\n         case nKey == VK_DELETE \n          //    if MsgYesNo( \"Delete this control ?\" )\n             if MsgYesNo( \"Deletar este controle ?\" )\n\n                 ::End()\n                 if Len( ::oWnd:aControls ) == 0\n                    #ifdef __CLIPPER__\n                       ASend( ::aDots, \"Hide\" )\n                    #else\n                       #ifndef __C3__\n                          ASend( ::aDots, \"Hide()\" )\n                       #else\n                          ASend( ::aDots, \"Hide\" )\n                       #endif\n                    #endif\n                 endif\n              endif\n      endcase\n   else\n      return Super:KeyDown( nKey, nFlags )\n   endif\n\nreturn nil\n \n\nMais mesmo eu alterando a classe e adicionando ao meu PROJETO, não assume as novas alterações!\n\n\n\nGrato\nAoki','',0,'gA==','36e4pg7i',1,0,'',694,0,0),(38822,8305,6,1104,0,'190.55.55.12',1191350684,1,0,1,1,1,0,'','','Hola a todos,\n\nAguien que lo pudo bajar, podría subirlo a RapidShare y publicar los links.\nRapidshared funciona muy bien para bajar cosas pero en la opción free solo deja subir archivos de 100Mb como máximo, se deberían crear 2 partes para subir.\n\n[url:3p16sors]http&#58;//www&#46;rapidshare&#46;com[/url:3p16sors]\nEsa es la página inicial de rapidshare.\n\nDesde ya muchas gracias,\nSaludos, \nEsteban','',0,'EA==','3p16sors',1,0,'',1104,0,0),(38823,8385,6,362,0,'200.158.19.18',1191353068,1,0,1,1,1,1,'','','RECOMPILE A FIVEHX.LIB COM HARB2LIB.EXE.','',0,'EA==','1oyqm2lv',1,0,'',362,0,0),(38824,8365,6,1030,0,'190.55.44.190',1191353345,1,0,1,1,1,0,'','','Mil gracias Rene!!!\n\nLo estoy probando y creo que funciona, cualquier cosa te vuelvo a consultar.\n\nGracias!! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'EA==','n8i22yrq',1,0,'',1030,0,0),(38825,8386,7,1030,0,'190.55.44.190',1191353651,1,0,1,1,1,0,'','Crear indices en una base temporal','Hola a todos!!\nEstoy teniendo problemas para crear indices en la Pocket en una base temporal. El código que estoy usando es el siguiente:\n\n[code:251uzytt]\nLocal Indice1\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; NEW\nZAP\nDBCLOSEALL&#40;&#41;\n\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; NEW SHARED ALIAS TEMPORAL\nDATABASE oDbfTem\noDbfTem&#58;bEoF&#58;=nil\noDbfTem&#58;GoTop&#40;&#41;\n\nSELECT TEMPORAL\nINDEX ON TEMPORAL-&gt;DESCRIP TO &amp;Indice1\noDbfTem&#58;Close&#40;&#41;\n\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; INDEX &#40;&amp;Indice1&#41; NEW SHARED ALIAS TEMPORAL\nDATABASE oDbfTem\noDbfTem&#58;bEoF&#58;=nil\noDbfTem&#58;GoTop&#40;&#41;[/code:251uzytt]\n\nEl tema es que me tira error en &amp;Indice1, y si la declaro como privada no me la reconoce.\n\nEn que me estoy equivocando??\n\nGracias a todos!!!\n\nNatalia.','',0,'AIA=','251uzytt',1,0,'',1030,0,0),(38826,8365,6,1030,0,'190.55.44.190',1191355664,1,0,1,1,1,0,'','','Rene tengo una pregunta ya que anduvo hasta ahora lo que me pasaste. Hay alguna manera de indicarle que ponga los indices todos juntos en un archivo?\n\nReindexo de esta manera:\n\n[code:33nyca3n]USE Iva NEW\noDlg&#58;cTitle&#40;&quot;Procesando IVA&#46;ADT&quot;&#41;\noMeter&#58;nTotal=RecCount&#40;&#41;\nPACK\nERASE Iva1&#46;Cdx\nERASE Iva2&#46;Cdx\noText&#58;SetText&#40;&quot;Creando IVA1&#46;CDX&quot;&#41;\nINDEX ON CODIGO                                                  TO Iva1;\n   EVAL&#40;oMeter&#58;Set&#40;RecNo&#40;&#41;&#41;,SysRefresh&#40;&#41;,!lEnd &#41;\noText&#58;SetText&#40;&quot;Creando IVA2&#46;CDX&quot;&#41;\nINDEX ON DESCRIP                                                 TO Iva2;\n   EVAL&#40;oMeter&#58;Set&#40;RecNo&#40;&#41;&#41;,SysRefresh&#40;&#41;,!lEnd &#41;\nDBCLOSEALL&#40;&#41;[/code:33nyca3n]\n\nTambien te cuento que me tira un cartel siempre antes de correr mi progrma que dice:\n\n\"The library ..\\axcws32.dll (version 5,70,0,2) is older than ..\\ace32.dll (version 7,10,0,12) Advantage DLLs must be of the same version\"\n\nque es esto?? \n\nGracias!!','',0,'AIA=','33nyca3n',1,0,'',1030,0,0),(38827,8385,6,694,0,'201.22.71.61',1191356626,1,0,1,1,1,1,'','','Grato meu amigo.\n\n\nAoki','',0,'AIA=','2my7sbz8',1,0,'',694,0,0),(38828,8361,4,358,0,'87.219.145.58',1191357296,1,0,1,1,1,0,'','','joop.\n\nEste fuente puede servirte de ayuda.\n\nSaludos.\n\nSalvador Gallardo\n\n[code:31ku4bml]/////////////////////////////////////////////\n//\n// Funciones de comunicacion por Rs232\n//\n////////////////////////////////////////////\n#include &quot;Fwce&#46;ch&quot;\n\n#define BUFF_IN               1024\n#define BUFF_OUT              1024\n#define GENERIC_READ          0x80000000\n#define GENERIC_WRITE         0x40000000\n#define OPEN_EXISTING         3\n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n\n#define NOPARITY            0\n#define ODDPARITY           1\n#define EVENPARITY          2\n#define MARKPARITY          3\n#define SPACEPARITY         4\n\n#define ONESTOPBIT          0\n#define ONE5STOPBITS        1\n#define TWOSTOPBITS         2\n\n///////////////////////////////////////////////\n//\n// OpenCom\n// Abre el puerto especificado y lo configura\n//////////////////////////////////////////////\nFunction OpenCom&#40; nCom, nBauds, nParity, nDataByt, nStopBits, lIRmode &#41;\nLOCAL hComm, cComm\n\nDEFAULT nCom &#58;= 1, nBauds &#58;= 2400, nParity &#58;= NOPARITY, nDataByt &#58;= 8, lIRmode &#58;= &#46;f&#46;\nDEFAULT nStopBits &#58;= ONESTOPBIT\ncComm &#58;= &quot;Com&quot;+ AllTrim&#40; Str&#40; nCom, 2 &#41; &#41;+ &quot;&#58;&quot;\n\nhComm &#58;= CreateFile&#40; cComm, nOr&#40;GENERIC_WRITE, GENERIC_READ&#41; , 0, 0, OPEN_EXISTING, 0,0 &#41;\n\nIF hComm ==-1\n  Msginfo&#40;&quot;Fallo al abrir &quot;+ cComm&#41;\n  Return -1\nENDIF\n\nIF lIRMode\n  IF !RAWIRON&#40; hComm &#41;\n    Msginfo&#40; &quot;Fallo al iniciar RAWIR&quot;&#41;\n    ComClose&#40; hComm &#41;\n    RETURN -1\n  ENDIF\nENDIF\n\n\nIF !SetComm&#40; hComm, nBauds, nParity, nDataByt, nStopBits &#41;\n  MsgInfo&#40;&quot;Fallo al configurar &quot;+ cComm&#41;\n  ComClose&#40; hComm &#41;\n  RETURN -1\nENDIF\n\nRETURN hComm\n\n\n///////////////////////////////////\n//\n// ComSend&#40; nHdlCom, cString &#41;\n//\n////////////////////////////////////////////\n\nFunction  ComSend&#40; hComm, cString &#41;\n\nLOCAL nBytesend, nBytes&#58;= Len&#40; cString &#41;\n\nnByteSend &#58;= WriteComm&#40; hComm, @cString, nBytes &#41;\n\nReturn  &#40; nByteSend == nBytes &#41;\n\n\n////////////////////////////////////\n//\n// ComRead&#40; nHdlCom, nChars &#41;\n//\n////////////////////////////////////////////\nFunction ComRead&#40; nHdlCom, nChars &#41;\nLOCAL nBytes, cBuffIn &#58;= Space&#40;BUFF_IN&#41;\n\nnBytes &#58;= ReadComm&#40; nHdlCom, @cBuffIn, nChars &#41;\n\nRETURN if&#40; nBytes &gt;0, Left&#40; cBuffIn, nBytes &#41;,&quot;&quot; &#41;\n\n\n////////////////////////////////////\n//\n// ComClose&#40; nHdlCom&#41;\n//\n////////////////////////////////////////////\nFUNCTION ComClose&#40; hComm &#41;\n\nRAWIROFF&#40; hComm &#41;\nCloseHandle&#40; hComm &#41;\n\nRETURN &#46;t&#46;\n\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;winbase&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC&#40; SETCOMM &#41;\n&#123;\n   DCB dcb;\n   COMMTIMEOUTS timeouts;\n\n   SetupComm&#40;&#40; HANDLE&#41; hb_parnl&#40; 1 &#41;, BUFF_IN, BUFF_OUT &#41; ;\n\n   GetCommState&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &amp;dcb &#41;;\n\n   dcb&#46;BaudRate             = hb_parnl&#40; 2 &#41;;\n   dcb&#46;Parity               = hb_parni&#40; 3 &#41;;\n   dcb&#46;ByteSize             = hb_parni&#40; 4 &#41;;\n   dcb&#46;StopBits             = hb_parni&#40; 5 &#41;;\n\n   dcb&#46;fBinary              = TRUE;\n   dcb&#46;fParity              = TRUE;\n   dcb&#46;fOutxCtsFlow         = FALSE;\n   dcb&#46;fOutxDsrFlow         = FALSE;\n   dcb&#46;fDtrControl          = DTR_CONTROL_DISABLE;\n   dcb&#46;fDsrSensitivity      = FALSE;\n   dcb&#46;fTXContinueOnXoff    = FALSE;\n   dcb&#46;fOutX                = FALSE;\n   dcb&#46;fInX                 = FALSE;\n   dcb&#46;fErrorChar           = FALSE;\n   dcb&#46;fNull                = FALSE;\n   dcb&#46;fRtsControl          = RTS_CONTROL_DISABLE;\n   dcb&#46;fAbortOnError        = FALSE;\n\n   GetCommTimeouts&#40;&#40; HANDLE&#41; hb_parnl, &amp;timeouts&#41;;\n\n   timeouts&#46;ReadIntervalTimeout         = 0;\n   timeouts&#46;ReadTotalTimeoutMultiplier  = 0;\n   timeouts&#46;ReadTotalTimeoutConstant    = 1000;\n   timeouts&#46;WriteTotalTimeoutMultiplier = 0;\n   timeouts&#46;WriteTotalTimeoutConstant   = 0;\n\n\n   SetCommTimeouts&#40;&#40; HANDLE&#41; hb_parnl&#40; 1 &#41;, &amp;timeouts &#41;;\n\n   hb_retl&#40;SetCommState&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &amp;dcb &#41;&#41;;\n&#125;\n\nHB_FUNC&#40; READCOMM &#41;\n&#123;\n  DWORD dw = 0;\n  ReadFile&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &#40; LPVOID &#41; hb_parc&#40; 2 &#41;, &#40; DWORD &#41; hb_parni&#40; 3 &#41;, &amp;dw, NULL &#41;;\n\n  hb_retni&#40; &#40; int &#41; dw ? dw &#58; -1 &#41;;\n&#125;\n\nHB_FUNC&#40; WRITECOMM &#41;\n&#123;\n  DWORD dw = 0;\n  WriteFile&#40; &#40;HANDLE &#41; hb_parnl&#40; 1 &#41;, &#40; LPVOID &#41; hb_parc&#40; 2 &#41;, &#40; DWORD &#41; hb_parni&#40; 3 &#41;, &amp;dw, NULL &#41;;\n  hb_retni&#40; &#40; int &#41; dw ? dw &#58; -1&#41;;\n&#125;\n\n\nHB_FUNC&#40; RAWIRON &#41;\n&#123;\n\n   hb_retl&#40; EscapeCommFunction&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, SETIR &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; RAWIROFF &#41;\n&#123;\n\n   hb_retl&#40; EscapeCommFunction&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, CLRIR &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:31ku4bml]','',0,'AIA=','31ku4bml',1,0,'',358,0,0),(38829,8386,7,2,0,'87.218.146.157',1191357831,1,0,1,1,1,1,'','','Natalia,\n\nNo se puede hacer una macro (&amp;) de una variable local. El lenguaje Clipper no lo permite.\n\nY por otra parte, no necesitas macros para construir los índices:\n[code:itzm549a]\n&#46;&#46;&#46;\nINDEX ON TEMPORAL-&gt;DESCRIP TO &#40; CurDir&#40;&#41; + &quot;\\Indice1&quot; &#41; \n&#46;&#46;&#46;\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; INDEX &#40; CurDir&#40;&#41; + &quot;\\Indice1&quot; &#41; NEW SHARED ALIAS TEMPORAL \n&#46;&#46;&#46;\n[/code:itzm549a]','',0,'AIA=','itzm549a',1,0,'',2,0,0),(38830,8377,3,6,0,'87.17.218.216',1191360038,1,0,1,1,1,1,'','Re: Not able to set background color','No, sorry.\n\nEMG','',0,'AIA=','3nj0aw9v',1,0,'',6,0,0),(38831,8387,6,987,0,'189.132.22.186',1191360446,1,0,1,1,1,0,'','Crear Nuevas Clases','Saludos de nuevo colegas del foro:\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Después de unas merecidas vacaciones con la familia estoy de nuevo aqui de regreso para dar batalla, esta vez con una solicitud a toda la comunidad del foro, estoy interesado en crear nuevas clases pero no tengo ni idea de como empezar ni de que se requiera, así que acudo a todos ustedes para solicitarles si alguien tiene manuales o tutoriales de como empezar desde 0\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> Agradesco de antemano cualquier ayuda que me puedan dar...\n\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> Dentro de poco estará disponible mi web completa con el demo 100% funcional de mi Sistema \"SISA\" pa que le hechen un vistazo y tambien me comenten sus criticas.\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos desde Chiapas México\n\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'AIA=','3qk2yw5i',1,0,'',987,0,0),(38832,8305,6,105,0,'190.20.141.11',1191362254,1,0,1,1,1,1,'','','Hola...\n\nLos voy a subir a 2 servidores gratuitos..\nDentro de  unos dias le entrego los links.\n\nDesde Chile\nAdolfo','',0,'AIA=','2hxmckop',1,0,'',105,0,0),(38833,8380,6,278,0,'200.126.73.146',1191362370,1,0,1,1,1,1,'','','Hola Leandro:\n\nYo utilizo ventanas MDI y me funcionan bien, lo hago asi:\n\n[code:11sao2lr]\nDEFINE WINDOW oWnd TITLE &quot;Gestión Comercial&quot; MENU Menu&#40; &#41; ICON oIcon COLOR  CLR_BLUE ,CLR_BLUE  MDI \n[/code:11sao2lr]\n\nEl menu de las ventanas, es similar al tuyo.\nLa diferencia esta cuando creo una ventana MDI,  lo hago asi:\n\n[code:11sao2lr]\n\n DEFINE WINDOW oWinh MDICHILD  TITLE &quot;ARTICULOS REGISTRADOS&quot; OF oWnd PIXEL  //ICON oWnd&#58;ICon \n\n y al finalizar la activo asi&#58;\n\nACTIVATE WINDOW oWinh  MAXIMIZED  VALID &#40; aDatos&#58;= NIL , oRs&#58;Close&#40;&#41; , oBrw&#58;= NIL , &#46;T&#46;  &#41; \n\n   oWnd&#58;Cascade&#40;&#41;\n   oWinh&#58;Show&#40;&#41;\n   oWinh&#58;SetFocus&#40;&#41;\n\n[/code:11sao2lr]\n\nLe agrego la opcion Cascade(), para que me las ordene automaticamente.\n\nEspero haberte ayudado algo, sino me contactas por privado, para enviarte mas informacion.\n\nTiempo atras, puse un manual de como usar al 100% los MDI, lo hizo\nVikthor, creo  y esmuy bueno.\n\nSaludos,','',0,'AIA=','11sao2lr',1,0,'',278,0,0),(38834,8363,6,138,0,'189.141.70.33',1191365661,1,0,1,1,1,1,'','','No uses FOUND() esa funcion fue marcada como obsoleta en la version 5.3 de Clipper., utiliza mejor :\n\nIF DBSEEK(valor)...\n....\n...\n\nFunciona mejor.\n\nTambien es cierto que el hecho de usar tablas DBF con indices CDX afecta, ya que la estructura DBF que Clipper utiliza con los indices CDX no es exactamente compatible con la estructura nativa de FoxPro, y ADS si utiliza una estructura nativa CDX de Fox.\n\nCuriosamente un programa en Clipper no tiene problemas en leer una tabla CDX creada con ADS o con Fox, pero Fox y ADS si pueden presentar problemas manejando una tabla DBF con indices CDX creada con Clipper.','',0,'AIA=','2tqanwcl',1,0,'',138,0,0),(38835,8358,6,138,0,'189.141.70.33',1191365752,1,0,1,1,1,1,'','','Palm tiene un producto de desarrollo para su sistema operativo llamado CODE WARRIOR, es una especie de lenguaje \"C\" para desarrollo de aplicaciones para el sistema operativo Palm OS.','',0,'AIA=','3uda9eaq',1,0,'',138,0,0),(38836,8387,6,138,0,'189.141.70.33',1191366140,1,0,1,1,1,1,'','','Tienes el mejor manual de clases en la carpeta:\n\nFWxx\\SOURCE\\CLASSES\n\nNi mas ni menos que todo el codigo fuente de las clases que utiliza FiveWin.\n\nY en el CD de utilidades de FiveWin disponible desde mi web estan varios manuales del uso de clases.','',0,'AIA=','38l7ck56',1,0,'',138,0,0),(38837,8365,6,138,0,'189.141.70.33',1191367158,1,0,1,1,1,1,'','','Natalia:\n\n1) Tienes que crear los indices asi:\n\nINDEX ON &lt;llave&gt; TAG &lt;nombre del indice&gt; FOR &lt;condicion&gt;\n\nDonde :\n\n&lt;llave&gt; es la llave de TODA la vida\n&lt;nombre del indice&gt; es un nombre con el cual tu vas a identficar al indice creado dentro del archivo ADO\n&lt;condicion&gt; es la condicion de indexamiento.\n\nEn tu caso\n\nINDEX ON CODIGO TO IVA1 EVAL .....\n\nQuedaria:\n\nINDEX ON codigo TAG iva1 EVAL.......\n\nY crearia un archivo IVA.ADI con todos los \"tags\" almacenados en un solo archivo.\n\nPara seleccionar un \"tag\" utiliza la funcion OrdSetFocus() de los indices CDX:\n\nUSE IVA.ADT\nOrdSetFocus(\"IVA1\")\n\nAunque OrdSetFocus soporta un valor numerico, esta comprobado que con los ADT siempre es necesario utilizar el nombre del TAG en vez del numero.\n\nEn cuanto a la clausula EVAL.... no la necesistas mas, ADS es mas rapido que xHarbour, termina de indexar MUCHO antes de que FiveWin pueda si quiera comenzar a pintar la barra de progreso.\n\n2) Sobre el error que me indicas:\n\nADS esta basado en 3 DLLs que tienes que tener en tu carpeta donde tienes tu archivo EXE:\n\nADSLOC32.DLL es un servidor \"local\" de ADS que soporta toda las caracteristicas excepto: No es cliente/servidor, No soporta transacciones y solo soporta un maximo de 5 usuarios en entornos de red, pero para tus pruebas y aplicaciones monousuario te funcionara perfectamente.\n\nACE32.DLL: Es una libreria de funciones para ADS, todas las funciones ADS.....() que utiliza el RDDADS estan almacenadas aqui.\n\nAXCWS32.DLL Esta es libreria CLIENTE de ADS indispensable para poder conectarte con cualquier tipo de servidor, LOCAL, REMOTO o INTERNET.\n\nBien, sucede que estas 3 DLLs tienen que ser DE LA MISMA VERSION y pasa  que el error que te esta arrojando ADS es que tu AXCWS32.DLL es una version 5.7 de ADS pero estas usando un ACE32.DLL de la version 7.1, obviamente, te marcar error, porque todos los DLLs tendrian que ser de la version 7.1.\n\n\n¿ Donde los consigues ?, bueno, si tienes instalado el Advatange Data Architech (ARC) los tienes en la carpeta donde esté instalado el producto, ahí vienen los 3 DLL de la misma version de ADS que necesitas, simplemente copialos a la carpeta donde esta tu programa xHarbour y listo, a funcionar de nuevo.\n\nNos vemos en Chile a partir del 12 de Octubre y en Argentina el 3 de Noviembre.','',0,'AIA=','2usysmxx',1,0,'',138,0,0),(38838,8310,6,138,0,'189.141.70.33',1191367513,1,0,1,1,1,1,'','','[quote=&quot;MarioDava&quot;:18dmotyj]Asi es Armando, Grupo Olympus, si no mal recuerdo, [/quote:18dmotyj]\n\n <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: --> ya ni me lo recuerden, cada vez que me acuerdo me entran ganas de asesinar a Gustavo Acosta. <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\nNos vemos en Chile a partir del 12 de Octubre y en Argentina el 3 de Noviembre.','',0,'gA==','18dmotyj',1,0,'',138,0,0),(38839,8378,6,138,0,'189.141.70.33',1191368350,1,0,1,1,1,1,'','','Harbour fue el proyecto inicial y tenia como objetivo crear un compilador 100% compatible con Clipper, cosa que se logro con bastante buen exito.\n\nxHarbour se llama asi por eXtended Harbour, es decir, Harbour extendido y contiene una serie de mejoras y extensiones a Harbour para hacerlo mas completo, aunque tengo entendido que Harbour actualmente ya cuenta con una buena cantidad de las extensiones de xHarbour implementadas.\n\nPersonalmente yo uso xHarbour porque ademas utilizo otras herramientas de programación basadas en este producto, que no están disponibles con Harbour o no son compatibles con el, como el XBscript.\n\nHay una version en linea gratuita que puedes consultar para que veas todas las extensiones que xHarbour aporta en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.xharbour.com/xHDN/referenceguide/\">http://www.xharbour.com/xHDN/referenceguide/</a><!-- m -->\n\nNos vemos en Chile a partir del 12 de Octubre y en Argentina el 3 de Noviembre.','',0,'gA==','9qlhdr93',1,0,'',138,0,0),(38840,8379,6,176,0,'200.61.143.187',1191369519,1,0,1,1,1,0,'','','Estue buscando en el foro y encontré una referencia de Julio del 2007 hecha por Ollie e hice lo siguiente\n\nREPORT oReport title \"Listado de Clientes\" preview\n\n  for nAt = 1 to len(aBase:aImprimo)\n       n := odbf:fieldpos(aBase:aImprimo[nAt])\n                                                                                                          \n      oReport:AddColumn( TrColumn():New({aBase:aImprimo[nAt]},,{odbf:FieldGet( n )},,,,,,,,,,oReport)) \n     \n  next\n\nEND REPORT\n\n ACTIVATE REPORT oReport \n\nMe da el siguiente error \n\n   Error description: Error BASE/1004  Class: \'CHARACTER\' has no exported method: EVAL\n   Args:\n\nStack Calls\n===========\n   Called from EVAL(0)\n   Called from TRCOLUMN:NEW(75)\n   Called from REPORIMP(96)\n\nMe pueden orientar?\n\nGracias \nLuis','',0,'','2n4250nx',1,0,'',176,0,0),(38841,8388,6,911,0,'200.72.141.51',1191379033,1,0,1,1,1,1,'','Consulta sobre ado en una grilla','Hola a todos:\nTengo la siguiente grilla (ver imagen)\n[img:3547iyhf]http&#58;//img214&#46;imageshack&#46;us/img214/5472/grillaconadoxh5&#46;jpg[/img:3547iyhf]\n\nNecesito al hacer dobleclick o presionar enter sobre el registro activo cambiar en tiempo real el contenido de un campo del registro y que se actualice de inmediato. Hay alguna forma de hacer esto sin utilizar objetoado:New().\nLos datos han sido obtenidos con ado y no son traspasados a una tabla temporal local. La idea es que el cambio se refleje inmediatamente si otros están visualizando el mismo registro desde otra estación.\nSaludos','',0,'CA==','3547iyhf',1,0,'',911,0,0),(38842,8367,6,911,0,'200.72.141.51',1191380010,1,0,1,1,1,1,'','','Sebastián por favor postea el código que utilizas para el traspaso.\nYo estoy utilizando ado en oracle 10g express edition sin problemas. Me toma todo, Ñ, acentos, TODO!!!!\nTengo además unas funciones que cree para conectarme al motor y controlar cuando se realiza la conexión.\nAdemás el como agregar los datos sin tener que utilizar sentencias SQL. Directamente usando ADO.\nIncluso tengo una rutina que agrega datos a una tabla .dbf temporal y luego los pasa a la tabla que necesito en oracle sin problemas.\nHace dos días hice una presentación de un módulo de punto venta y caja a un cliente en sus instalaciones utilizando una conexión ADSL de 512mb donde el cliente hacia nuestro server que es público en forma excelente.\nSaludos\nDavid Lagos S.\nCoquimbo - Chile','',0,'CA==','6tj3pcbw',1,0,'',911,0,0),(38843,8389,6,37,0,'190.41.59.208',1191382790,1,0,1,1,1,1,'','Hay alguna funcion para emitir sonidos desde (x)Harbour-FWH','Eso amigos, que el programa pueda emitir sonidos, algo asi como :\nsuena(\"Digite nuevamente\") y la PC si tiene el sonido activado, \"Hable\" y diga lo enviado como parametro.\nGracias','',0,'CA==','23ov0d88',1,0,'',37,0,0),(38844,8174,3,2,0,'87.218.146.157',1191383467,1,0,1,1,1,1,'','','Dear James,\n\nI have sent you several emails and got no answer from you yet. Please check my emails, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','p2pksdyl',1,0,'',2,0,0),(38845,8361,4,2,0,'87.218.146.157',1191383652,1,0,1,1,1,1,'','','Salvador,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','35tzrghf',1,0,'',2,0,0),(38846,8174,3,2,0,'87.218.146.209',1191387807,1,0,1,1,1,1,'','','Alex,\n\nPlease do it this way (see below the results):\n[code:3rvf3igg]\n#include &quot;fivewin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oDlg, oFld \n   local oGroup \n   local oSay, cSay &#58;= &quot;Say buddy&quot; \n   local oRadio, nRadio &#58;= 1 \n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ; \n      FROM 5, 5 TO 30, 49 \n\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ; \n      OF oDlg SIZE 160, 160 \n\n   @ 0, 1 GROUP oGroup TO 9, 15 OF oFld&#58;aDialogs&#91; 1 &#93;\n   oGroup&#58;lTransparent = &#46;T&#46;\n\n   @ 1, 2 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ; \n     ACTION MsgInfo&#40; &quot;Hello world!&quot; &#41; \n\n   @ 4, 2 SAY oSAY VAR cSAY OF oFld&#58;aDialogs&#91; 1 &#93; \n\n   @ 6, 2 RADIO oRadio VAR nRadio ITEMS &quot;radio 1&quot;, &quot;radio 2&quot; OF oFld&#58;aDialogs&#91; 1 &#93; \n\n   @ 9&#46;5, 11 BUTTON &quot;Ok&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41; \n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT PlaceGet&#40; oFld &#41;\n\nreturn nil \n\nfunction PlaceGet&#40; oFld &#41;\n\n   local oGet, cGet &#58;= &quot;     &quot; \n\n   @ 7, 4 GET oGet VAR cGet OF oFld&#58;aDialogs&#91; 1 &#93; SIZE 80, 20\n\nreturn nil\n[/code:3rvf3igg]\n[url=http&#58;//imageshack&#46;us:3rvf3igg][img:3rvf3igg]http&#58;//img521&#46;imageshack&#46;us/img521/7420/folderbm5&#46;png[/img:3rvf3igg][/url:3rvf3igg]','',0,'GIA=','3rvf3igg',1,0,'',2,0,0),(38847,8274,18,2,0,'87.218.146.157',1191391062,1,0,1,1,1,1,'','','Moises,\n\nTras revisar FiveWin.ch vemos que REDEFINE BUTTON ... no soporta la cláusula TOOLTIP. \n\nTe refieres a TOOLTIP ó a MESSAGE ?','',0,'GIA=','3hbn78no',1,0,'',2,0,0),(38848,8364,3,51,0,'80.122.88.242',1191391657,1,0,1,1,1,0,'','','Hello Rick,\n\nI think  all the different versions of Netframework are in different folders \nand if you build an application you setup a specific Framework version?\nYour application is not touched if a user makes an update.\n\nRegards,\nOtto','',0,'GIA=','14kuwq7t',1,0,'',51,0,0),(38849,8367,6,350,0,'80.32.243.219',1191393107,1,0,1,1,1,0,'','','Hola David, de momento solo estoy haciendo pruebas, el siguiente código me marca el error al llegar a un registro que contiene Ñ. En la tabla Oracle, que solo tiene dos campos, el campo codigo de ese registro se queda grabado, sin embargo el campo nombre que es el que contiene la Ñ se queda en blanco:\n\n[color=blue:1xksnfeg]\n\n\n#include \"FiveWin.ch\"\n#include \"adordd.ch\"\n\n\nfunction Main()\n\nUSE clientes VIA \'ADORDD\' TABLE \"clientes\" ORACLE FROM \'127.0.0.1\' USER \'SEBAS\' PASSWORD \'mandarina\' shared  alias oraclientes\nsele oraclientes\n\n#define adIndex 0x100000 \nMsgInfo( HB_AdoRddGetRecordset():Supports( adIndex ) )\n\n\nREQUEST DBFCDX\nRddSetDefault(\'dbfcdx\')\nuse clientes new VIA \'DBFCDX\' alias gdfclientes\n\nsele gdfclientes\nset order to 1\ngo top\ndo whil !eof()\n    if !empty(codigo) .and. !empty(nombre)\n       ccliente := codigo\n       cnombre := nombre\n       sele oraclientes\n       append blank\n       if rlock()\n          replace codigo with ccliente, nombre with cnombre\n          unlock\n       endif\n   endif\n   sele gdfclientes\n   skip\nenddo\n\nsele oraclientes\n\nBrowse()\n\nUSE\n\nreturn nil\n[/color:1xksnfeg]\n\nEn la declaración USE he intentado poner CODEDEPAGE 850 pero sigue sin funcionar\n\nEl MsgInfo() es para ver si mi conexión ADO soporta indices y me devuelve .F. ¿Entiendo que no se pueden usar indices con ORACLE?\n\nGracias por tu atención.[code][/code]','',0,'Ag==','1xksnfeg',1,0,'',350,0,0),(38850,8367,6,2,0,'87.218.146.157',1191398726,1,0,1,1,1,1,'','','Sebastian,\n\n&gt; ¿Entiendo que no se pueden usar indices con ORACLE? \n\nLa limitación es de ADO no de Oracle, posiblemente.\n\nLo solucionas usando sentencias SQL que implican el uso de indices (ORDER BY, etc.)','',0,'Ag==','1fth1q4k',1,0,'',2,0,0),(38851,8389,6,960,0,'217.12.16.52',1191398842,1,0,1,1,1,0,'','','Compañero...\n\npara que emita un pitido: msgbeep()\n\nSi quieres que \"hable\" deberás grabar el sonido en un archivo con formato .wav y reproducirlo mediante la función SndPlaySound(\"tu_archivo.wav\")\n\nUn saludo.\nLORENZO','',0,'Ag==','1ogh08xp',1,0,'',960,0,0),(38852,8390,22,1146,0,'87.223.165.162',1191399359,1,0,1,1,1,0,'','tprinter','Antonio,\n\nDe igual forma que en la clase TReport mientras se genera la previsualización sale un mensaje indicando el número de página que está preparando, sería bueno hacer lo mismo en la clase tprinter.\n\nMuchas gracias por tu atención. Un saludo,\n\nMoisés','',0,'Ag==','1j40rixa',1,0,'',1146,0,0),(38853,8391,3,86,0,'81.83.151.142',1191399691,1,0,1,1,1,1,'','TAPI','Hello,\n\nTAPI is a Windows API. TAPI stands for \"Telephony Appliction Programming Interface\". This is a API to connect to a telephone system.\n\nDoes someone have any experience in TAPI ?\n\nWhat is needed to use TAPI ? How is it accomplished ?\n\nThanks a lot in advance.','',0,'Ag==','2nx35yy2',1,0,'',86,0,0),(38854,8389,6,456,0,'217.127.39.57',1191400625,1,0,1,1,1,1,'','','Para que el PC \"hable\" puedes usar  SAPI ( Microsoft Speech API  )\n\n\n[code:rwt40z8p]\n LOCAL oVoice &#58;= tOleAuto&#40;&#41;&#58;New&#40; &quot;Sapi&#46;SPVoice&quot; &#41;\n oVoice&#58;Speak&#40; &quot;Hello&quot; &#41;\n[/code:rwt40z8p]','',0,'AIA=','rwt40z8p',1,0,'',456,0,0),(38855,8378,6,582,0,'200.117.106.253',1191407919,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:3pmetknf]\nNos vemos en Chile a partir del 12 de Octubre y en Argentina el 3 de Noviembre.[/quote:3pmetknf]\nRene, que buena noticia que vengas por mis pagos =&gt;))\nPor donde vas a andar ???\nVenis de viaje de placer o vas a dar algun curso ???\nDonde consigo info ???\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','3pmetknf',1,0,'',582,0,0),(38856,8361,4,1176,0,'217.21.255.129',1191408623,1,0,1,1,1,0,'','Serial Communication','Salvador,\n\nMuchas gracias!!!\nI will do some testing today.\n\n\nRegards,\nJoop','',0,'gA==','191osd7f',1,0,'',1176,0,0),(38857,8376,6,2,0,'87.218.146.157',1191410620,1,0,1,1,1,1,'','','Carlos,\n\nCorregido, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2lryprea',1,0,'',2,0,0),(38858,8372,2,2,0,'87.218.146.157',1191411111,1,0,1,1,1,1,'','','Jairo,\n\nTienes que usar un timer y que la acción del timer sea volver a hacer oAvi:Play()','',0,'gA==','1jl1qt7f',1,0,'',2,0,0),(38859,8382,6,221,0,'200.109.96.250',1191411150,1,0,1,1,1,1,'','','YO HARIA UN COPY FILE SDF','',0,'gA==','3wqjl6vr',1,0,'',221,0,0),(38860,8314,2,2,0,'87.218.146.157',1191411495,1,0,1,1,1,1,'','','Fabian,\n\n[code:276n8yvj]\n#define FILE_OFFSET   7\n\nfunction Main&#40;&#41;\n\n   local cZipName &#58;= &quot;fichero&#46;zip&quot;\n   local aFiles &#58;= GetZipFiles&#40; cZipName &#41;\n\n   AEval&#40; aFiles, &#123; | aFile | UnZipFile&#40; cZipName, aFile&#91; 2 &#93;, aFile&#91; FILE_OFFSET &#93; &#41; &#125; &#41;\n\n   MsgInfo&#40; &quot;ok&quot; &#41;\n\nreturn nil\n\nfunction GetZipFiles&#40; cZipFile &#41;\n\n   local aFile, aFiles\n\n   if ! IsZip&#40; cZipFile &#41;\n      MsgStop&#40; &quot;Esto no parece un fichero ZIP!&quot; &#41;\n      return nil\n   endif\n\n   aFile  = GetFirstInZip&#40; cZipFile &#41;\n   aFiles = &#123;&#125;\n\n   while aFile&#91; 1 &#93; == 0\n      AAdd&#40; aFiles, aFile &#41;\n      aFile = GetNextInZip&#40;&#41;\n   end\n   CloseZipFile&#40;&#41;\n\nreturn aFiles\n[/code:276n8yvj]','',0,'AIA=','276n8yvj',1,0,'',2,0,0),(38861,8382,6,2,0,'87.218.146.157',1191411675,1,0,1,1,1,1,'','','Esteban,\n\nEl contenido de una impresión, que usa muchos elementos gráficos, no puede guardarse en un fichero TXT que es solo ascii','',0,'AIA=','3vxktb97',1,0,'',2,0,0),(38862,8363,6,850,0,'200.41.163.136',1191414093,1,0,1,1,1,0,'','','Gracias, voy crear los dbf con xHarbour y hacer un append, regenerar los indices y ver que pasa. Muchas gracias.\n\nAndres','',0,'AIA=','3293zp5f',1,0,'',850,0,0),(38863,8378,6,105,0,'200.72.140.34',1191414288,1,0,1,1,1,1,'','','Me sumo a la consulta de \"el Loco\"..\n\nDonde, cuando vas a estar en Chile...\n\nComo te podemos contatar, algun curso, demostracion ....queeee ?\n\nDesde Chile\nAdolfo','',0,'AIA=','31zz9zqx',1,0,'',105,0,0),(38864,8364,3,35,0,'167.7.140.254',1191414917,1,0,1,1,1,0,'','','Otto\n\nI do realize that .. I just hate having to deal with the infrastructure and making sure all the desktops have the correct framework installed.\n\nTo be quite honest with you .. I have chosen the ADO route with my applications placing the data on a MS Sql server... \n\nAdo is supported \'naitively\' on every Windows OS since at least Win98 .. no clients to install, no run-times .. just create your single executable and prev32.dll and copy it out to each local lan .. and it just works !!\n\nJust my 2 cents worth\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','t2lu0thy',1,0,'',35,0,0),(38865,8392,6,960,0,'217.12.16.52',1191416262,1,0,1,1,1,0,'','ButtonBMP','aunque parezca mentira, sigo sin poder visualizar un buttonbmp como Dios manda. Tanto TEXT como BMP se pisan en el centro del Button y no consigo moverlos aun utilizando las 4 clausulas TEXTTOP, TEXT...\n\nLos bitmap son 32x32 y perfectamente se arman si utilizo un BTNBMP\nRevise los ejemplos de \\Samples.\n\nEn mi PRG: \nredefine Buttonbmp ob1 id 141 OF oDlg ACTION resumeag() bitmap \'Atencion\' TEXTRIGHT PROMPT space(4)+\"avisos\" \nredefine Buttonbmp ob2 id 202 OF oDlg ACTION odlg:end()bitmap \'Salir\' PROMPT \" Salir AHORA\" TEXTRIGHT \noB1:cTooltip:= \"Ver avisos pendientes\" \noB2:cTooltip:= \"Salir\" \n\nEn mi RC: \nPUSHBUTTON \"Button\", 141, 59, 270, 71, 44 \nPUSHBUTTON \"Button\", 202, 131, 270, 73, 42 \n\n\nUtilizo FWH2.7.... ¿hay problemas en esta versión con los buttonbmp?\n\nMil gracias.\nLORENZO','',0,'AIA=','178q7wh3',1,0,'',960,0,0),(38866,8392,6,694,0,'201.47.55.15',1191417417,1,0,1,1,1,1,'','','REDEFINE BUTTONBMP obtn[5] PROMPT \"F5\"+CRLF+ \"Ex&amp;trato\"    ID 4015 OF pfDlg BITMAP \"PRINT\"       TEXTTOP CANCEL\n\nEm PELLES :\n\nVert Alignment  = TOP\n\n\nUso sem problemas \n\n\nAoki','',0,'','20u73vh6',1,0,'',694,0,0),(38867,8372,2,890,0,'200.24.110.241',1191417706,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;]Jairo,\n\nTienes que usar un timer y que la acción del timer sea volver a hacer oAvi:Play()[/quote\n\nAntonio\nEn verdad muchas gracias\n\nJair Barbosa','',0,'','1j1si0s0',1,0,'',890,0,0),(38868,8389,6,37,0,'200.121.247.136',1191418688,1,0,1,1,1,1,'','','Sres., gracias, una mezcla de ambos es lo que necesito, con nuestra voz y con la ayuda de la PC.\nAmbos funcionan perfectamente.\nNuevamente gracias','',0,'','2mzpw682',1,0,'',37,0,0),(38869,8386,7,1030,0,'190.55.44.174',1191419600,1,0,1,1,1,0,'','','Muchas gracias Antonio!!\n\nSi, se que no se puede usar macros con una variable local pero el tema es que si declaro una variable privada dentro de mi programa para la pocket me dice que no la encuentra por eso probe esa \"burrada\", ja!\n\nSaludos!!','',0,'','val1xoge',1,0,'',1030,0,0),(38870,8062,6,362,0,'200.158.18.89',1191421477,1,0,1,1,1,1,'','','AÚN TENEMOS VACANCIAS PARA EL ENCUENTRO! ABIERTO A TODOS LOS AMIGOS.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.congressofivewin.com.br/\">http://www.congressofivewin.com.br/</a><!-- m -->\n\nMuchas gracias.\n\nRegards, saludos','',0,'','3lesys27',1,0,'',362,0,0),(38871,8389,6,362,0,'200.158.18.89',1191421654,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:26g875ih]Para que el PC \"hable\" puedes usar  SAPI ( Microsoft Speech API  )\n\n\n[code:26g875ih]\n LOCAL oVoice &#58;= tOleAuto&#40;&#41;&#58;New&#40; &quot;Sapi&#46;SPVoice&quot; &#41;\n oVoice&#58;Speak&#40; &quot;Hello&quot; &#41;\n[/code:26g875ih][/quote:26g875ih]\n\n\nParabiéns Gabriel. Excelente!\n\nGabriel, como se haces, para que la lengua no sea INGLÉZA?\n\nSi fueste en ESPAÑOL por ejemplo... És posible?','',0,'gIA=','26g875ih',1,0,'',362,0,0),(38872,8393,6,1146,0,'87.223.165.162',1191423553,1,0,1,1,1,0,'','OT: se busca programador o informático','Hola:\n\nPerdonar por el off topic. Estamos buscando un programador o informático para labores de soporte técnico telefónico. No es preciso que esté en España.\n\nLos interesados podéis contactar conmigo en. Muchas gracias.\n\nUn saludo,\n\nMoisés','c0c068752d5e636ccd770e73d9ed8c8c',0,'','2eglsbp4',1,0,'',1146,0,0),(38873,8274,18,1146,0,'87.223.165.162',1191423775,1,0,1,1,1,0,'','','Antonio:\n\nLo que quiero es que el siguiente TOOLTIP:\n\n   REDEFINE BTNBMP RESOURCE \"UP\"         ID 601 OF oDlgTI ACTION (oLbxTI:GoUp() )   NOBORDER TOOLTIP \"Arriba\"\n\nlo pueda hacer con BUTTONBMP, de modo que cuando pones el cursor del ratón encima del BUTTONBMP aparezca el tooltip, y sin necesidad de statusbar ni nada, sería así:\n\n  REDEFINE BUTTONBMP   BITMAP \"UP\"         ID 601 OF oDlgTI ACTION (oLbxTI:GoUp() )    MESSAGE \"Arriba\"\n \n\nMuchas gracias!!!. Un saludo,','',0,'gIA=','1nn3kig3',1,0,'',1146,0,0),(38874,8391,3,303,0,'72.220.100.171',1191426330,1,0,1,1,1,0,'','','Michel,\n\nI don\'t know much about TAPI but I did find this in my notes file from an old posting. I tried it and it does work. It brings up a TAPI dialog in addition to dialing.\n\nI too, would be interested in more information about TAPI.\n\nJames\n\n----------------------------\nTip: Get all the TAPI info on Microsoft\'s website.\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms737219.aspx\">http://msdn2.microsoft.com/en-us/library/ms737219.aspx</a><!-- m -->\n\nHere is a working example (tested on XP Pro)\n\n[code:1qj7952r]#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local cPhone&#58;=&quot;1-999-999-9999&quot;\n   phoneTo&#40;cPhone,&quot;My TAPI&quot;,&quot;Test TAPI&quot;,&quot;My comment&quot;&#41;\nreturn nil\n\n\nDLL32 Function PhoneTo&#40;cPhoneNo As LPSTR,cAppName AS LPSTR,;\n      cName AS LPSTR, cComment AS LPSTR &#41; ;\n      AS LONG PASCAL FROM &quot;tapiRequestMakeCall&quot; LIB &quot;TAPI32&#46;DLL&quot;[/code:1qj7952r]','',0,'AIA=','1qj7952r',1,0,'',303,0,0),(38875,8274,18,2,0,'87.218.146.157',1191430037,1,0,1,1,1,1,'','','Moises,\n\nEntendido e implementado, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1hv2lgah',1,0,'',2,0,0),(38876,8384,6,2,0,'87.218.146.157',1191431666,1,0,1,1,1,1,'','','Ruben,\n\nA que te refieres por un frame ?','',0,'AIA=','1wfjafa8',1,0,'',2,0,0),(38877,8384,6,362,0,'200.158.19.104',1191431819,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ltfnofbj]Ruben,\n\nA que te refieres por un frame ?[/quote:ltfnofbj]\n\nCreo que sean MULTIPLAS VENTANAS.','',0,'gA==','ltfnofbj',1,0,'',362,0,0),(38878,8347,3,47,0,'203.144.160.247',1191432848,1,0,1,1,1,0,'','','Dear Enrico,\n\nYour sample is working as my 16 bits but the difference is RDD but when I use ADS, the index run fine but the Meter is not working.\n\nI use xHarbour.com + FWH7.07 + ADS and it seem the EVAL and EVERY is working properly for ADS.\n\nThanks,\nDutch','',0,'gA==','y0wypuy8',1,0,'',47,0,0),(38879,8274,18,1146,0,'87.223.165.162',1191435256,1,0,1,1,1,0,'','','Muchas gracias a t, Antonio!!','',0,'gA==','3jil1h0w',1,0,'',1146,0,0),(38880,7238,3,365,0,'207.188.233.100',1191435312,1,0,1,1,1,0,'','','Antonio,\n\nBeen having the hb_stack problem also with the FWH we just upgraded/downloaded last week.  Previously, we were using FWH 06/05 build and xHarbour (bcc) 10/05 build.  \n\nAfter adding the code below, the application does build but when executed, an unrecoverable error (9000) popup dialog \"ALERT.PRG was compiled by older version, PCODE is no longer supported, please recompile\" and the application would terminate.\n\nFIVEHX and FIVEHC libs are being linked to our application.\n\nAm using FWH_0907, xHarbour 0.99.70, bcc55 and xMate as the project manager.\n\nPlease let me know how to resolve this.\n\nThanks in advance.\n\nDionie\n\n\n[quote=&quot;Antonio Linares&quot;:g44w92d3][code:g44w92d3]\n#pragma BEGINDUMP \n\n#include &quot;hbstack&#46;h&quot; \n\nvoid * hb_stack = &amp;HB_VM_STACK; \n\n#pragma ENDDUMP \n[/code:g44w92d3][/quote:g44w92d3]','',0,'gIA=','g44w92d3',1,0,'',365,0,0),(38881,8347,3,303,0,'72.220.100.171',1191435932,1,0,1,1,1,0,'','','Dutch,\n\nYou can\'t use functions in ADS indexes. ADS is client/server and the server cannot evaluate a function that is inside the client program.\n\nJames','',0,'gIA=','dvtvfaff',1,0,'',303,0,0),(38882,8365,6,1104,0,'190.55.47.120',1191436159,1,0,1,1,1,0,'','','Hola Rene,\n\nVeo que estás por venir a Argentina el 3 de Noviembre.\nDonde puedo obtener más información al respecto?\n\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'gIA=','38kg22zu',1,0,'',1104,0,0),(38883,8347,3,47,0,'203.144.160.246',1191437859,1,0,1,1,1,0,'','','Dear James,\n\nThank you very much for kick a mountain out of my head.  I waste two days for fixing it.\n\nRegards,\nDutch','',0,'gIA=','tv9qbh1b',1,0,'',47,0,0),(38884,8386,7,1135,0,'189.136.213.48',1191438529,1,0,1,1,1,1,'','Re: Crear indices en una base temporal','Natalia:\n\nAdemas del comentario de Antonio respecto al tipo de variable, segun el codigo que pones como ejemplo tendrias problemas adicionales por intentar indexar un archivo abierto de manera compartida.\n\n\n\n[quote=&quot;nolgiati&quot;:x20cho1f]Hola a todos!!\nEstoy teniendo problemas para crear indices en la Pocket en una base temporal. El código que estoy usando es el siguiente:\n\n[code:x20cho1f]\nLocal Indice1\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; NEW\nZAP\nDBCLOSEALL&#40;&#41;\n\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; NEW SHARED ALIAS TEMPORAL\nDATABASE oDbfTem\noDbfTem&#58;bEoF&#58;=nil\noDbfTem&#58;GoTop&#40;&#41;\n\nSELECT TEMPORAL\nINDEX ON TEMPORAL-&gt;DESCRIP TO &amp;Indice1\noDbfTem&#58;Close&#40;&#41;\n\nUSE &#40;Curdir&#40;&#41;+&quot;\\STOTEMP&#46;DBF&quot;&#41; INDEX &#40;&amp;Indice1&#41; NEW SHARED ALIAS TEMPORAL\nDATABASE oDbfTem\noDbfTem&#58;bEoF&#58;=nil\noDbfTem&#58;GoTop&#40;&#41;[/code:x20cho1f]\n\nEl tema es que me tira error en &amp;Indice1, y si la declaro como privada no me la reconoce.\n\nEn que me estoy equivocando??\n\nGracias a todos!!!\n\nNatalia.[/quote:x20cho1f]','',0,'gIA=','x20cho1f',1,0,'',1135,0,0),(38885,8380,6,774,0,'164.77.167.225',1191440625,1,0,1,1,1,1,'','','amigo referente al manual de como usar 100% los MDI,, seria mucho ponerlo de nuevo,, o el link de donde se puede descragar\n\n\nGRACIAS\n\nsiempre es bueno aprender cosas nuevas... aunque sea para algunos jiji','',0,'gIA=','2czcey79',1,0,'',774,0,0),(38886,7238,3,2,0,'87.218.146.51',1191442187,1,0,1,1,1,1,'','','Dionie,\n\n&gt; \"ALERT.PRG was compiled by older version, PCODE is no longer supported, please recompile\"\n\nYou have to recompile ALL your PRGs and used libraries (except FWH ones) as the xHarbour pcode has changed','',0,'gIA=','37s97vs0',1,0,'',2,0,0),(38887,7238,3,365,0,'207.188.233.100',1191442593,1,0,1,1,1,0,'','','But I don\'t have ALERT.PRG on any of my linked source files.  However, I found it referenced in fiveh.lib, fivehm.lib, fivehmx.lib and fivehx.lib.\n\nCould these be what\'s causing this problem ?\n\n\n[quote=&quot;Antonio Linares&quot;:3jerkyze]Dionie,\n\n&gt; \"ALERT.PRG was compiled by older version, PCODE is no longer supported, please recompile\"\n\nYou have to recompile ALL your PRGs and used libraries (except FWH ones) as the xHarbour pcode has changed[/quote:3jerkyze]','',0,'gA==','3jerkyze',1,0,'',365,0,0),(38888,7238,3,2,0,'87.218.146.51',1191443073,1,0,1,1,1,1,'','','Dionie,\n\nCheck that you are using the right libraries from FWH 7.09 and not some old ones','',0,'gA==','1s3a1hr5',1,0,'',2,0,0),(38889,7238,3,343,0,'204.57.111.194',1191443164,1,0,1,1,1,0,'','','I have been working more with .xml spreadsheet files lately. It is not as intuitive to design them but you can create them very fast and you do not need Excel.\n\nI am creating them on the fly inside my web xbscript application. I can email them or display them in web browser.','',0,'gA==','tig6u2fd',1,0,'',343,0,0),(38890,8338,6,1173,0,'205.211.248.93',1191444042,1,0,1,1,1,1,'','','Gracias Mil Antonio\n\nFunciono.\n\nPor cierto como lo describi antes, estoy usando la libreria FWH 2.06, al actualizarme a la 7.09 tendria que seguir en este cambio, o lo omito?\n\n\nSaludos desde Honduras  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2rgdinvk',1,0,'',1173,0,0),(38891,8338,6,2,0,'87.218.146.51',1191445096,1,0,1,1,1,1,'','','Al actualizarte a la versión 7.09 ese cambio no te hará falta','',0,'gA==','2idh6eqs',1,0,'',2,0,0),(38892,8394,7,1135,0,'189.136.55.224',1191445798,1,0,1,1,1,1,'','mail','Amigos del foro:\n\nHe leido en estos foros algo acerca de TSMTP y Blat. Quisiera saber:\n\n1.- Si se ha liberado algo de clases para SMTP para FWPPC.\n\n2.- SI existe manera de leer o extraer un archivo que esta en la bandeja de entrada sin necesidad de intervención del usuario, obviamente ingresando la información de la cuenta y password.\n\nGracias de antemano por sus comentarios','',0,'gA==','21gj6kjm',1,0,'',1135,0,0),(38893,8391,3,86,0,'81.83.151.142',1191448131,1,0,1,1,1,1,'','','James,\n\nThank you very much of your answer.\n\nIt is working. Just what I needed.','',0,'gA==','ku8rxw5f',1,0,'',86,0,0),(38894,8387,6,987,0,'189.133.4.123',1191453398,1,0,1,1,1,0,'','','[b:2hf5ib5e]Estimado RF:[/b:2hf5ib5e]\n \nAgradesco tu comentario, de hecho ya los tome en cuenta,  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> pero necesito algo mucho más básico, sobre todo de como es su estructura, como se definen y usan las variables, como llamar a una funcion, y cosas como esas, algo he ecuchado sobre la herencia y el poliformismo y es sobre lo que deceo aprender ya que no tengo ni idea de que se trate.\n\nSaludos y espero nuevas propuestas.. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','2hf5ib5e',1,0,'',987,0,0),(38895,8395,6,1184,0,'189.141.77.126',1191459742,1,0,1,1,1,0,'','Tamaño de imagenes','Hola Foro\nMucho agradeceria su ayuda con lo siguiente\n\nEstoy manejando imagenes con formato JPG a través de FiveWin y xHarbourd con FreeImage de la siguiente manera:\n\n     REDEFINE IMAGE oFoto ID 4001 OF  oDlg SCROLL\n    oFoto:LoadBmp(\"C:\\PRIVA\\FOTOS\\F2.JPG\")\n\nLas cuales se cargan muy bien si la foto es de aproximadamente 800x600 pixeles, pero al tratar de cargar fotos de un tamaño mayor se muestra la barra de que esta cargando la imagen pero no la muestra, o bien me da por teminada la aplicación\n\nque podria intentar para solucionar esto.\n\nGracias\n\nJosé Luis','',0,'QA==','39xesz54',1,0,'',1184,0,0),(38896,8367,6,911,0,'200.72.141.51',1191463877,1,0,1,1,1,1,'','','Sebastian:\nDame un correo donde enviarte un ejemplo.\nLa idea es que te olvides del concepto de .dbf\nYo por lo menos trabajo con ADO duro y puro y no tengo problemas.\nSaludos\nDavid','',0,'QA==','2wdhw7sk',1,0,'',911,0,0),(38897,8182,6,1123,0,'200.174.91.66',1191464414,1,0,1,1,1,1,'','','Ola amigos\n\n\nAntonio como fazer para que este novo PREVIEW fique como MODAL\n\npois tentei assim\n\nPRINTER oPrn NAME \"Impression\" PREVIEW [color=red:3s4120rd]MODAL[/color:3s4120rd] &lt;---- não funciona\n\n\nFico no aguardo','',0,'Ag==','3s4120rd',1,0,'',1123,0,0),(38898,8378,6,495,0,'200.120.232.84',1191467497,1,0,1,1,1,0,'','','Rene, vendras a dar algún curso, promoción.\n\nSi necesitas ayuda logistica aquí en Santiago, con agrado a tú disposición.\n\nBienvenido.\n\nSalu2\n\nMauro','',0,'Ag==','3ks1ygam',1,0,'',495,0,0),(38899,8387,6,2,0,'87.218.146.51',1191477684,1,0,1,1,1,1,'','','Dany,\n\nAqui tienes la guia norton de \"Objects\" que publicamos en 1995. Leela entera y seguro que te ayudará bastante:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/60142765/OBJT40SP.NG.html\">http://rapidshare.com/files/60142765/OBJT40SP.NG.html</a><!-- m -->','',0,'Ag==','13r5ccss',1,0,'',2,0,0),(38900,8367,6,350,0,'80.32.243.219',1191480736,1,0,1,1,1,0,'','','[quote=&quot;metaldrummer&quot;:pves19l4]Sebastian:\nDame un correo donde enviarte un ejemplo.\nLa idea es que te olvides del concepto de .dbf\nYo por lo menos trabajo con ADO duro y puro y no tengo problemas.\nSaludos\nDavid[/quote:pves19l4]\n\nDavid:\n\nEstoy evaluando el tiempo que me llevaría pasar una aplicación de dbfs a Oracle, por exigencia del cliente, a la vez que de FW16 a FWH (esto último ya he pasado parte porque tiene varios ejecutables). Es una aplicación muy gorda, unas 150 dbfs, más de 300.000 línea de código, 5 Dlls de recursos, lenguaje Script propio (basado en TScript que creo no está disponible para Harbour), etc.\n\nAsí que agradezco todas las ayudas, mi email es:\n<!-- e --><a href=\"mailto:sebas@moralzarzal.com\">sebas@moralzarzal.com</a><!-- e -->\n\nSaludos','',0,'gA==','pves19l4',1,0,'',350,0,0),(38901,8396,7,85,0,'80.24.214.161',1191484955,1,0,1,1,1,0,'','Necesito consejo','No he programado aun con FWPPC pero tengo un cliente que nos ha pedido un presupuesto para un programa y el hardware correspondiente.\n\nLo que me preocupa no es el programa sino el hard y me gustaría que me recomendarais una PDA y una impresora que hayais probado y que luego no me de problemas.\n\nEl Hard lo llevarán unos técnicos que visitan a los clientes en un maletín de herramientas, para poder hacerles unos tickets con el servivio a cobrar. Además el programa se conectará a un FTP via GPRS para actualizar stocks de material y precios.\n\nMuchas gracias.','',0,'gA==','2ov2n438',1,0,'',85,0,0),(38902,8389,6,456,0,'217.127.39.57',1191488371,1,0,1,1,1,1,'','','En teoria si se puede cambiar el idioma, y tambien la voz. Pero no tengo los ficheros necesarios. Intenta buscar en el MSN. Si encuentras alguna info, te agredecera la compartas por este medio.','',0,'gA==','2mfngybj',1,0,'',456,0,0),(38903,8389,6,362,0,'200.158.18.98',1191500565,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:661c1or1]En teoria si se puede cambiar el idioma, y tambien la voz. Pero no tengo los ficheros necesarios. Intenta buscar en el MSN. Si encuentras alguna info, te agredecera la compartas por este medio.[/quote:661c1or1]\n\nMira si ayuda:\n\n<!-- m --><a class=\"postlink\" href=\"http://scriptbrasil.com.br/forum/index.php?act=Print&amp;client=printer&amp;f=49&amp;t=106366\">http://scriptbrasil.com.br/forum/index. ... 9&amp;t=106366</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://forum.imasters.com.br/index.php?showtopic=220880\">http://forum.imasters.com.br/index.php?showtopic=220880</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://forum.clubedelphi.net/viewtopic.php?p=283992&amp;sid=e244f4c29778d2cb96552be8ed6345a8\">http://forum.clubedelphi.net/viewtopic. ... e8ed6345a8</a><!-- m -->','',0,'gA==','661c1or1',1,0,'',362,0,0),(38904,8384,6,1178,0,'200.24.127.3',1191501256,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3ijww5vo]Ruben,\n\nA que te refieres por un frame ?[/quote:3ijww5vo]\n\nBueno te comento , En delphi hay un componente que se llama Frame, sirbe para crear Marcos como aparciencia de un formulario, y puedo utilizar dentro de los Ventana Tipo Windows o Dialogo, no se si en FWH tiene alguna funcion similar','',0,'gA==','3ijww5vo',1,0,'',1178,0,0),(38905,8363,6,850,0,'201.255.80.199',1191502228,1,0,1,1,1,0,'','','Rene:\n\nCree la dbf con xHarbour e hice un append desde la base, genere los nuevos indices idx y en un archivo de fichas de personas de 3.600.000 registros y con un indice con los primeros 18 digitos del apellido, me encuentra apellidos hasta MORENO, si busco apellidos que empienza con la O en adelante no encuentra nada,  el found() y DBSEEK() dan FALSE y con SOFTSEEK ON se va al final del archivo. En clipper + fivewin el seek me encuentra todo sin problemas. Gracias por la atencion.\n\nAndres\n\nADS 8.1 para 250 usuarios sobre novell 5. \nxHarbour 0.9971 + FiveWin 7.01 \nesta con el cliente que viene en la version 8.1','',0,'gA==','1otjcb3w',1,0,'',850,0,0),(38906,8335,6,1178,0,'200.24.127.3',1191504056,1,0,1,1,1,0,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:ol9mb2bj]Definicion:\n\nLa función PostQuitMessage envía un mensaje WM_QUIT a la cola de mensajes del \"hilo\" y vuelve inmediatamente; la función indica simplemente al sistema que el \"hilo\" está pidiendo salir en algún momento del futuro.\n\nCuando el \"hilo\" recupera el mensaje WM_QUIT desde la cola de mensajes, debe salir del bucle de mensajes y devolver el control a Windows. El valor de salida que es devuelto a Windows debe ser el parámetro wParam del mensaje WM_QUIT.[/quote:ol9mb2bj]\n\nMuchas Gracias Patricio me funciono 100%','',0,'gA==','ol9mb2bj',1,0,'',1178,0,0),(38907,8329,6,1178,0,'200.24.127.3',1191505070,1,0,1,1,1,0,'','Re: FWH - Nueva apariencia de Office 2007 en las buttonbars','[quote=&quot;Antonio Linares&quot;:1ukkr4jg]Sin modificar el código fuente! Tan fácil como hacer:\n[code:1ukkr4jg]\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60\n   oBar&#58;l2007 = &#46;T&#46;\n[/code:1ukkr4jg]\nPrueba la demo: <!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/58791747/bb2007.zip.html\">http://rapidshare.com/files/58791747/bb2007.zip.html</a><!-- m -->\n\nMira los resultados <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->   Será incluido en FWH 7.10\n[url=http&#58;//imageshack&#46;us:1ukkr4jg][img:1ukkr4jg]http&#58;//img246&#46;imageshack&#46;us/img246/1430/bbarty1&#46;png[/img:1ukkr4jg][/url:1ukkr4jg][/quote:1ukkr4jg]\n\nPerdon yu como se haria para FWH 2.7','',0,'mIA=','1ukkr4jg',1,0,'',1178,0,0),(38908,8397,6,694,0,'201.47.55.15',1191505943,1,0,1,1,1,1,'','Meter na barra de mensagens é possível?','Amigos, é possível colocar um METER na barra de mensagens?\n\n\nSET MESSAGE OF OWND TO CDEFAULTMSG CLOCK DATE KEYBOARD COLOR CLR_BLUE FONT ofontem NOINSET\n\n\nGrato\n\n\nAOKI','',0,'mIA=','3ps2hr3n',1,0,'',694,0,0),(38909,8313,1,999,0,'201.42.196.153',1191508112,1,0,1,1,1,0,'','','Hi to all,\nJust to finish the post...\nThe WinExec worked in all XP machines who aborted the FiveWin program in the ShellExecute calls.\nI had to do some strange things like:\nWinExec(\"cmd /c start \\\"+GetCurDir()+\"\\mergeout.rtf\")\nbut anyway... I di not reinstall the Windows again.\nRegards, Euclides','',0,'mIA=','35a7fzol',1,0,'',999,0,0),(38910,8387,6,987,0,'189.133.24.38',1191509683,1,0,1,1,1,0,'','','Maestro Antonio:\n\nComo siempre brindandonos de su gran conocimiento a todos los que la necesitamos, le agradesco la información, es de gran ayuda.\n\n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> Saludos y le comento en cuanto tenga algo como voy con esto de las Clases..\n\nVíctor Daniel.','',0,'mIA=','fcejs9m8',1,0,'',987,0,0),(38911,8398,7,1030,0,'190.55.44.232',1191513450,1,0,1,1,1,0,'','ADT DESDE POCKET PC','Hola termine de desarrollar una aplicacion para la pocket PC y necesito acceder a los datos ADT de mi sistema desarrollado en FiveWin/Harbour, se puede hacer esto de alguna manera o no existe posibilidad de comunicar la Pocket con datos ADT y debo seguir usando DBF?\n\nGracias por la ayuda!\nNatalia.','',0,'mIA=','z7wj5q5d',1,0,'',1030,0,0),(38912,8398,7,2,0,'87.218.146.51',1191516433,1,0,1,1,1,1,'','','Natalia,\n\nSi te refieres al ADS (Advantage Database server), no existe versión para Pocket PC, que nosotros sepamos','',0,'mIA=','3r07m63g',1,0,'',2,0,0),(38913,8397,6,2,0,'87.218.146.51',1191516545,1,0,1,1,1,1,'','','Aoki,\n\nSí, sólo has de hacer:\n\n@ ..., ... METER ... OF oWnd:oMsgBar','',0,'mIA=','1ctay5bb',1,0,'',2,0,0),(38914,8329,6,2,0,'87.218.146.51',1191516677,1,0,1,1,1,1,'','','Ruben,\n\nTendrías que actualizar a FWH 7.10, cuando se publique, ya que se han implementado nuevas funciones y eventos necesarios para este tipo de barra de botones','',0,'mIA=','2bsbs3ru',1,0,'',2,0,0),(38915,8398,7,1030,0,'190.55.44.232',1191516930,1,0,1,1,1,0,'','','Entonces no existe posibilidad de abrir con mi programa de la pocket una Tabla ADT? Tengo que volver a la version DBF todo mi sistema de Windows?\n\nSaludos.','',0,'mIA=','3exw5pv1',1,0,'',1030,0,0),(38916,8397,6,694,0,'201.47.55.15',1191517058,1,0,1,1,1,1,'','','gracias Antonio!','',0,'mIA=','nv8xc2wn',1,0,'',694,0,0),(38917,8398,7,2,0,'87.218.146.51',1191519457,1,0,1,1,1,1,'','','El ADS que usas en el PC es local ó la versión cliente/servidor ?','',0,'mIA=','11s2md6m',1,0,'',2,0,0),(38918,8398,7,1030,0,'190.55.44.232',1191520863,1,0,1,1,1,0,'','','Antonio:\nEn este momento uso ADS Local, pero ya estoy por comprar la version cliente servidor solo si me sirve con la Pocket ya que ofresco mi sistema windows junto con la extension de la Pocket.\n\nSlds.','',0,'mIA=','1oekod93',1,0,'',1030,0,0),(38919,8399,6,278,0,'190.95.28.58',1191521705,1,0,1,1,1,1,'','AYUDA URGENTE - URGENTE','Estoy usando la clase TDosPrint de Ignacio y funciona OK.\n\nMi problema grave es como se puede imprimir en una impresora en red.\nEjemplo  \\\\server\\laser1\n\n(  usando la misma clase o similar )\n\nUtilice poner en los terminales la instruccion:\n\n net use lpt1  \\\\server\\epson1\n net use lpt2  \\\\server\\epson2\n\npero no funciona !!\n\nAlguien conoce como hacerlo o alguno truco magico u otra clase,\nme urge una ayuda. Disculpen mi apuro, pero es algo apurado <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->(\n\nUso esta clase por la velocidad para imprimir boletas, vales, etc.\n\n\nSaludos','',0,'mIA=','1ei8uxh8',1,0,'',278,0,0),(38920,8398,7,2,0,'87.218.146.51',1191522640,1,0,1,1,1,1,'','','Natalia,\n\nSi necesitas acceder a los mismos datos desde el Pocket PC y desde el PC vas a tener que usar DBFCDX como RDD.\n\nAdvantage requiere unas DLLs y que sepamos no existen dichas DLLs para Pocket PC','',0,'mIA=','b88r8i5m',1,0,'',2,0,0),(38921,8398,7,1030,0,'190.55.44.232',1191522897,1,0,1,1,1,0,'','','Muchas gracias Antonio, a pesar de sentir limitacion en este aspecto por lo menos ahora se que no tengo que usar la migracion a ADT hasta que no este resuelto para la Pocket.\n\nGracias por tu tiempo,\nSlds. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'mIA=','1lecjv0v',1,0,'',1030,0,0),(38922,8399,6,1072,0,'201.236.157.195',1191527009,1,0,1,1,1,0,'','Re: AYUDA URGENTE - URGENTE','Amigo:\n\nQue tipo de Red usas?\n\n\n\n\n\n\n[quote=&quot;jcaro&quot;:mx55pfuf]Estoy usando la clase TDosPrint de Ignacio y funciona OK.\n\nMi problema grave es como se puede imprimir en una impresora en red.\nEjemplo  \\\\server\\laser1\n\n(  usando la misma clase o similar )\n\nUtilice poner en los terminales la instruccion:\n\n net use lpt1  \\\\server\\epson1\n net use lpt2  \\\\server\\epson2\n\npero no funciona !!\n\nAlguien conoce como hacerlo o alguno truco magico u otra clase,\nme urge una ayuda. Disculpen mi apuro, pero es algo apurado <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->(\n\nUso esta clase por la velocidad para imprimir boletas, vales, etc.\n\n\nSaludos[/quote:mx55pfuf]','',0,'gA==','mx55pfuf',1,0,'',1072,0,0),(38923,8399,6,278,0,'190.95.28.58',1191527882,1,0,1,1,1,1,'','','Utilizo red windows con tcp/ip !!\n\nAlguna idea ??','',0,'gA==','39duonev',1,0,'',278,0,0),(38924,8398,7,138,0,'189.141.70.33',1191527882,1,0,1,1,1,1,'','','Natalia:\n\nADS requiere de un cliente (DLL) que en este momento no existe para Pocket PC.\n\nNo se si Extended Systems tenga planes de hacer un cliente Pocket en el corto plazo. \n\nPara trabajar con tablas ADT y pockets nosotros usamos una interfaz web que nos permite la portabilidad de la aplicacion, pero no lo hacemos usando FWPPC','',0,'gA==','39duonev',1,0,'',138,0,0),(38925,8399,6,109,0,'189.192.147.239',1191528558,1,0,1,1,1,0,'','','Yo lo utilizo de esta forma en un bat\n\nnet use LPT1 \\\\Fabian\\impresora5\nDsinco.exe\nnet use lpt1 /delete\n\n\nEn cada una de las terminales.\n\nEspero que te sirva','',0,'gA==','1pk2gd00',1,0,'',109,0,0),(38926,8400,6,1153,0,'190.11.76.248',1191529749,1,0,1,1,1,0,'','EJEMPLO PARA CONECTAR ADS CON VFP','Hola a todos nuevamente:\n\nBueno estoy con el tema de poder conectar VFP con ADS pero a la fecha no logro hacerlo.\n\nSi alguien tiene experiencia en este asunto, agradecere mucho su colaboracion.\n\npuede ser ejemplo a travez de ADO o ODBC.\n\nGracias de antemano.','',0,'gA==','1l718ltt',1,0,'',1153,0,0),(38927,8399,6,278,0,'190.95.28.58',1191530646,1,0,1,1,1,1,'','','GRACIAS Ricardo funciono OK !!\n\nSi miras yo hacia lo mismo, pero no ponia en el bat el EXE.\nYo lo ponia en el config del terminal, los capture.\n\nLo hice asi y funciono perfecto.\n\nTE agradesco mucho la ayuda, estaba instalando donde el cliente,\ny no podia solucionar esto. \n\nSaludos,','',0,'gA==','2kgy6qj6',1,0,'',278,0,0),(38928,8401,3,51,0,'80.122.88.242',1191530654,1,0,1,1,1,0,'','maximize a minimized exe','How can I maximize a minimized  16 bit exe   from another EXE.\nThanks in advance\nOtto','',0,'gA==','2atskkfc',1,0,'',51,0,0),(38929,8399,6,109,0,'189.192.147.239',1191530798,1,0,1,1,1,0,'','','Que bueno que pudiste solucionar tu problema.\n\n   Saludos.','',0,'gA==','1p0zebn4',1,0,'',109,0,0),(38930,8389,6,774,0,'164.77.167.225',1191531740,1,0,1,1,1,1,'','','amigos como se puede descargar SAPI,,, y algun ejemplo practico de como aplicarla e instalarla...\n\n\nGRACIAS','',0,'gA==','1m4apgc5',1,0,'',774,0,0),(38931,8401,3,6,0,'79.19.230.99',1191532855,1,0,1,1,1,1,'','Re: maximize a minimized exe','Try using FindWindow() and then ShowWindow().\n\nEMG','',0,'gA==','2ms41rwl',1,0,'',6,0,0),(38932,8402,6,552,0,'201.14.23.163',1191533678,1,0,1,1,1,1,'','Antonio, comportamiento mui estranho','Antonio, tengo esta linea\n\n   // Pesquisa o Cliente\n   REDEFINE GET ocgc Var rcgc ID 63 OF oFld:aDialogs[1] UPDATE PICTURE \"@!S18\"\n\n   ocgc:bKeyDown := { | nKey, nFlag |;\n      IF( nKey = VK_RETURN,( lRet := .f., IF( !Empty( rcgc ),;\n                             Scv20221( oWnd, aButtons ),;\n                             Scv20203( oWnd, aButtons, oFld, m-&gt;oClieDbf, 2 ) ) ),;\n      IF( nKey = VK_ESCAPE,( Muda_St( oWnd, oClient, oFld )), nil ))}\n\n   oCgc:cTooltip := \"Informe CPF  para Cliente pessoa Fisica  \" + CRLF +;\n                    \"Informe CNPJ para Cliente pessoa Juridica\" + CRLF +;\n                    \"Não Use Pontos Ou Traços.\"\n\nque compilado com FWH701 + HARBOUR funciona mui buena. Ao compilar com FWH707 + HARBOUR no reconece el contenido de la variable rcgc, mesmo se digitado ALGO la mostra VACIA, que pasa que al cambiar de version las cosas que funcionabam mui bien param de funcionar??\n\ngracias por su respuesta a questão, \n\nLuiz Augusto\nSão José dos Pinhais - PR\nBrasil','',0,'','527av3us',1,0,'',552,0,0),(38933,8403,3,666,0,'211.28.125.58',1191540185,1,0,1,1,1,0,'','MS Word to .TXT','How to convert a MS Word file to a .TXT (straight text) file, using my own code?\n\nIf I was doing it [b:1mnhwz71]manually[/b:1mnhwz71], it would be the equivalent of \n\n(a) starting MS Word, opening a doc file, then \"SAVE AS ..\" .TXT then closing MS Word\n\n(b) then running my app against the resulting text file.  \n\nI am desperate for suggestions on how to automate step (a) in such a way that the user never sees a MS Word screen.  \n\nI need my app to do everything.  i.e. The user simply selects a DOC file (via cGetFile(\"*.DOC\", \"Select a file to assess\", ,) then my app needs to convert it to straight text and analyse the words in the text file. \n\nThe resulting text file is not later converted back to a MS Word DOC file or anything involving MS Word. \n\nI don\'t want to shell out to a 3rd party Word-&gt;Txt converter if I can avoid it. The app is to be a low-priced mass market product in their own networked environment and I shall never have any technical contact with any user.  All users are expected to have MS Word but, beyond that, I want to keep my app as self-contained as possible. (i.e. without having to register an OCX or change registry entries or anything like that). The users have only the most basic PC skills.\n\nI\'ve no experience with using OLE or interacting with a MS product so I\'d be very grateful for any coding suggestions.\n\nMany thanks in advance.\nColin Wisbey','',0,'QA==','1mnhwz71',1,0,'',666,0,0),(38934,8403,3,2,0,'87.218.146.51',1191540854,1,0,1,1,1,1,'','','Colin,\n\nJust a quick idea:\nHave you tried to locate the text into the DOC file using brute force ?\n\nAt( cToFind, MemoRead( \"file.doc\" ) )\n\nIf you place some text for the beginning and for the end, then you may extract what there is in between, using SubStr()','',0,'QA==','3d8tm4xh',1,0,'',2,0,0),(38935,8402,6,2,0,'87.218.146.51',1191541690,1,0,1,1,1,1,'','','Luiz,\n\nPruébalo sin el PICTURE:\n\nREDEFINE GET ocgc Var rcgc ID 63 OF oFld:aDialogs[1] UPDATE \n\nLa clase Get de Harbour ha cambiado y puede ser que de ahí venga la diferencia','',0,'','1vm9lie5',1,0,'',2,0,0),(38936,8396,7,2,0,'87.218.146.51',1191541789,1,0,1,1,1,1,'','','Bingen,\n\nPor favor lee los comentarios de Luis Santeliz en este thread:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8213&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'','q6xb718n',1,0,'',2,0,0),(38937,8403,3,105,0,'200.112.69.91',1191543180,1,0,1,1,1,1,'','','Which compiler are you using Harbour, xHarbour.org, xHb.com ?\n\nDepending on it you may use tActivex  to open the doc, and saving it as a TXT file.\n\nJust an idea.\n\nFrom Chile\nAdolfo','',0,'','1si9hydp',1,0,'',105,0,0),(38938,8403,3,105,0,'200.112.69.91',1191543458,1,0,1,1,1,1,'','','Sorry... I meant tOle...\n\nIf you are using xhb.com, I have some easy samples, you may modify them to fullfil your needs.\n\nI`ve tried to open MSWord documents with fopen, and read its content, It worked with some documents, but if It contains any kind of letter, borders, diferrent colors, it was a mess, since it has some control characters that made the reading of the file almost impossible.  \n\n\nFrom Chile\nAdolfo','',0,'','1u7g9ay6',1,0,'',105,0,0),(38939,8404,6,105,0,'200.112.69.91',1191544597,1,0,1,1,1,1,'','OT : Rene Flores.. visita a Chile','Master, Guru, idoloooo  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nPodria confirma su visita a chile y los...\n\nQue, Cuando, Donde, Cuanto, Como ?\n\nMe interesaria mucho ir a verlo, conversar de lo humano y lo divino, tomarse una chelita (Cerveza) y ver que N O V E D A D E S trae por este austral pais.\n\nAvise con tiempo para programar viaje a Santiago, ya que soy del Sur de Chile, confirmar presupuesto y permisos.. para unos dias.. ja ja ja\n\nFrom Chile\nAdolfo','',0,'','2pipmpa5',1,0,'',105,0,0),(38940,8403,3,666,0,'211.28.125.58',1191546360,1,0,1,1,1,0,'','','Antonio,\nThanks for responding so promptly.\n\nUnfortunately your suggestion doesn\'t apply to my app.  My app never knows what text is in the doc.  It could be anything and the doc could could contain just a few words or over 1 million words.\n\nThe purpose of my app is to take all of the raw text (i.e. stripped of any graphics, word-processing formatting etc) and then analyse what words are in the file and how they are used. It is somewhat of an \"English literacy test\" analyser.','',0,'','2gdafffk',1,0,'',666,0,0),(38941,8403,3,666,0,'211.28.125.58',1191546796,1,0,1,1,1,0,'','','Adolfo,\n\nThat sounds like the sort of approach I guess I need to take.\n\nI am using FW7.01 and xHb.com (but compiled with Borland).\n\nThe MS Word doc files could contain anything, including graphics.  I need the ability to extract all the text and only the text.\n\nCould you be so kind as to either post some code or email it to me at\n\n<!-- e --><a href=\"mailto:cwisbey@optusnet.com.au\">cwisbey@optusnet.com.au</a><!-- e -->\n\nMany thanks for your offer of assistance.','',0,'','1qf0dddz',1,0,'',666,0,0),(38942,8405,6,1123,0,'200.174.91.66',1191552221,1,0,1,1,1,1,'','TProgress em Statusbar','Ola amigos\n\né possivel colocar uma TPROGRESS em uma STATUSBAR\n\nFico no aguardo','',0,'','5dopursy',1,0,'',1123,0,0),(38943,8062,6,37,0,'190.41.59.208',1191555089,1,0,1,1,1,1,'','','Karina, e enviado 2 mails a la opcion de contacto que hay en la pagina del congreso y nadie me contesta, tengo algunas preguntas puntuales :\nCuanto es 35 reales en dolares ?\nCuanto cuesta el alojamiento en el mismo bristol ?\nhay descuento para los que vamos al congreso ?\nTenemos algo de interes, con algunos datos es posible que visitemos el Pais de La Samba <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2fx78uj7',1,0,'',37,0,0),(38944,8347,3,233,0,'218.111.152.56',1191555812,1,0,1,1,1,0,'','','Dutch, to show progress meter while indexing via RDDADS, use something similar to the following:\n[code:2stpomyr]FUNCtion CreateIndex&#40; aNtxKey &#41;\n\n     LOCAL nCnt, lUnique\n\n     #define ADS_ABORT    &#46;t&#46;\n     #define ADS_CONTINUE &#46;f&#46;\n     oNtxMeter&#58;nTotal&#58;=100 //LastRec&#40;&#41;\n     ADSRegCallBack&#40;&#123;|nPercent| progress&#40;nPercent,cNtxName&#41;&#125;&#41;\n\n     FOR nCnt &#58;= 1 TO LEN&#40; aNtxKey &#41;\n\n         cNtxKey  &#58;= aNtxKey&#91; nCnt, 1 &#93;\n         cNtxName &#58;= aNtxKey&#91; nCnt, 2 &#93;\n         cNtxFor &#58;= &quot;&quot;\n         if len&#40;aNtxKey&#91;nCnt&#93;&#41; &gt; 3\n            cNtxFor &#58;= aNtxKey&#91; nCnt, 4 &#93;\n         endif\n         lUnique  &#58;= if&#40; LEN&#40; aNtxKey&#91; nCnt &#93; &#41; &gt; 2, aNtxKey&#91; nCnt, 3 &#93;, FALSE  &#41;\n         oSayText&#58;bGet &#58;= &#123; || &quot;Re-building &#46;&#46;&#46; &quot; + UPPER&#40; cNtxName &#41; + &quot;&#46;NTX&quot; &#125;\n         oSayText&#58;Refresh&#40;&#41;\n         oNtxMeter&#58;Set&#40;0&#41;\n         oNtxMeter&#58;display&#40;&#41;\n\n         CursorWait&#40;&#41;\n\n         IF lUnique\n            /*\n            if lExclDel\n             INDEX ON &amp;&#40; cNtxKey &#41; TO &#40; cNtxName &#41;  UNIQUE for !deleted&#40;&#41; ;\n                EVAL &#40; oNtxMeter&#58;Set&#40; Recno&#40;&#41; &#41;, SysRefresh&#40;&#41;, &#46;T&#46; &#41;\n            else\n            */\n             INDEX ON &amp;&#40; cNtxKey &#41; TO &#40; cNtxName &#41;  UNIQUE\n                //EVAL &#40; oNtxMeter&#58;Set&#40; Recno&#40;&#41; &#41;, SysRefresh&#40;&#41;, &#46;T&#46; &#41;\n                // ADS doesn\'t recognize eval&#46;&#46;every\n            *endif\n         ELSE\n            if empty&#40;cNtxFor&#41;\n               INDEX ON &amp;&#40; cNtxKey &#41; TO &#40; cNtxName &#41;\n                 //EVAL &#40; oNtxMeter&#58;Set&#40; Recno&#40;&#41; &#41;, SysRefresh&#40;&#41;, &#46;T&#46; &#41;\n            else\n               INDEX ON &amp;&#40; cNtxKey &#41; TO &#40; cNtxName &#41; for &amp;&#40;cNtxFor&#41;\n                //EVAL &#40; oNtxMeter&#58;Set&#40; Recno&#40;&#41; &#41;, SysRefresh&#40;&#41;, &#46;T&#46; &#41;\n            endif\n         ENDIF\n     NEXT\n     ADSClrCallBack&#40;&#41;\nRETURN &#40;Nil&#41;\n//-------------------------------------------------------------------------\nstatic function progress&#40;nPercent,CurrentNtx&#41;\n  static cNtx\n  if cNtx==nil\n     cNtx &#58;= &quot;&quot;\n  endif\n  if empty&#40;cNtx&#41;\n     cNtx &#58;= currentNtx\n  elseif cNtx != CurrentNtx\n     cNtx &#58;= currentNtx\n     oNtxMeter&#58;Set&#40;100&#41;\n     oNtxMeter&#58;display&#40;&#41;\n  endif\n\n  oNtxMeter&#58;Set&#40; nPercent &#41;\n  oNtxMeter&#58;display&#40;&#41;\nreturn ADS_CONTINUE[/code:2stpomyr]','',0,'AIA=','2stpomyr',1,0,'',233,0,0),(38945,8329,6,131,0,'194.179.55.36',1191566313,1,0,1,1,1,0,'','','Antonio, \nla clase bitmap dentro de las toolbars son las mismas, es decir hay que seguir usando bitmaps con 1 solo color para trasparencias ?\n\nSaludos,','',0,'AIA=','27g0qsgs',1,0,'',131,0,0),(38946,8406,6,519,0,'88.14.211.135',1191567044,1,0,1,1,1,0,'','Exportar a Xml','Hola amigos\n\n\n   Teneis alguna idea de como se puede exportar una tabla mysql a xml ?\n\n\n   un saludo y gracias  desde ya','',0,'AIA=','1j9ty5hm',1,0,'',519,0,0),(38947,8403,3,6,0,'87.21.213.81',1191568306,1,0,1,1,1,1,'','Re: MS Word to .TXT','[quote=&quot;Colin Wisbey&quot;:1ay414ax]How to convert a MS Word file to a .TXT (straight text) file, using my own code?[/quote:1ay414ax]\n\n[code:1ay414ax]#define wdFormatDOSText 4\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord &#58;= CREATEOBJECT&#40; &quot;Word&#46;Application&quot; &#41;\n\n    LOCAL oDoc &#58;= oWord&#58;Documents&#58;Open&#40; &quot;e&#58;\\xharbour\\test&#46;doc&quot; &#41;\n\n    oDoc&#58;SaveAs&#40; &quot;e&#58;\\xharbour\\NewDocument&#46;txt&quot;, wdFormatDOSText &#41;\n\n    oWord&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:1ay414ax]\n\nEMG','',0,'gIA=','1ay414ax',1,0,'',6,0,0),(38948,8329,6,2,0,'87.218.146.51',1191573192,1,0,1,1,1,1,'','','José Luis,\n\nSí, hay que usar un color en el bitmap para indicar que zonas son transparentes','',0,'gIA=','2p96z4mt',1,0,'',2,0,0),(38949,8403,3,666,0,'211.28.125.58',1191573806,1,0,1,1,1,0,'','','Enrico, \n\nThat works perfectly.  I couldn\'t be happier. Biggest thanks!!!!!\n\nCol','',0,'gIA=','3aozbbdp',1,0,'',666,0,0),(38950,8403,3,2,0,'87.218.146.51',1191574971,1,0,1,1,1,1,'','','Great <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThanks Master Enrico','',0,'gIA=','12hzjw9o',1,0,'',2,0,0),(38951,8403,3,247,0,'83.171.242.103',1191580081,1,0,1,1,1,0,'','Re: MS Word to .TXT','[quote=&quot;EnricoMaria&quot;:jfydznns][quote=&quot;Colin Wisbey&quot;:jfydznns]How to convert a MS Word file to a .TXT (straight text) file, using my own code?[/quote:jfydznns]\n\n[code:jfydznns]#define wdFormatDOSText 4\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWord &#58;= CREATEOBJECT&#40; &quot;Word&#46;Application&quot; &#41;\n\n    LOCAL oDoc &#58;= oWord&#58;Documents&#58;Open&#40; &quot;e&#58;\\xharbour\\test&#46;doc&quot; &#41;\n\n    oDoc&#58;SaveAs&#40; &quot;e&#58;\\xharbour\\NewDocument&#46;txt&quot;, wdFormatDOSText &#41;\n\n    oWord&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:jfydznns]\n\nEMG[/quote:jfydznns]\n\n\nI think you should use [b:jfydznns] oWord:Documents:Add( \" ... [/b:jfydznns] instead of [b:jfydznns]oWord:Documents:Open [/b:jfydznns]because this may cause \"read only problems\" .The Add property opens it like a template so you will never have any problems\n\nregards,\n\nA.S.K','',0,'wIA=','jfydznns',1,0,'',247,0,0),(38952,8329,6,511,0,'200.44.242.81',1191588279,1,0,1,0,1,1,'','','Antonio,\n\nEs posible incluir varias barras de botones en ventanas y dialogos ?','',0,'wIA=','2md761qg',1,0,'',511,0,0),(38953,8379,6,176,0,'201.255.172.244',1191589636,1,0,1,1,1,0,'','','Bueno lo pude solucionar así\n\nREPORT oReport title \"Listado de Clientes\" preview\n\n\n\n  for nAt = 1 to len(aImprimo)\n           cBase:= aImprimo[nAt] \n           column title \"\"  DATA &amp;cBase   \n  next\n\n\nEND REPORT\n\n ACTIVATE REPORT oReport \n\nPero el problema lo tengo con los títulos, ya que si coloco \"column title cbase  DATA &amp;cBase\", me repite el último título en todas las columnas, probé varias cosas pero no encuentro la solución\n\nSi alguien conoce como hacerlo le agradecería me lo informara\n\nLuis','',0,'','34nwya6g',1,0,'',176,0,0),(38954,8062,6,362,0,'200.158.19.125',1191590283,1,0,1,1,1,1,'','','Hola, Enrrique Vertiz Pitta. \n\nCuanto es 35 reales en dolares ? \n\nUs$ 17,50 la inscrición.\n\nCuanto cuesta el alojamiento en el mismo bristol ? \n\nEl precio en dolares americanos, és de:\n\n+- Us$  80,00 para 1 persona.\n+- Us$ 100,00 para 2 personas(casal)\n\nHOTEL BRISTOL, ÉS DE ALTISIMO LUXO - FIVE STAR. *****\n\nhay descuento para los que vamos al congreso ?\n\nSi,  todo és negociable.\n \nTenemos algo de interes, con algunos datos es posible que visitemos el Pais de La Samba \n\nÉs mui bienvenido a la terra del FUTEBOL y del SAMBA. \n\nPERUANOS, SON MUI QUERIDOS ACÁ EN BRASIL. PUEBLO MUI SIMPATICO.','',0,'','1ux931q1',1,0,'',362,0,0),(38955,8402,6,552,0,'201.14.23.163',1191592314,1,0,1,1,1,1,'','','Antonio, \n\nGracias por su respuesta, retirei la clausula PICTURE e no corre, continua el problema, atualize mis clientes e tive que volver a la version que usaba( FWH701) que corre mui bien.\n\nsaludos,','',0,'','1o0vudjh',1,0,'',552,0,0),(38956,8407,3,86,0,'81.83.151.142',1191592691,1,0,1,1,1,1,'','Record locking','Hello,\n\nMaybe a somewhat strange question.\n\nIf a record is locked by RLOCK(), is there any way to know who (which PC or user) locked it ?\n\nOr is there any way to unlock a locked record by someone else ?\n\nThanks.','',0,'','2fq3o52i',1,0,'',86,0,0),(38958,8404,6,36,0,'200.113.56.235',1191594307,1,0,1,1,1,1,'','','Me uno a la peticion\n\nya que soy norte de Chile y estoy a mas de 7hras de Stgo. y desde ya hay que evaluando el presupuesto y los permisos pertinentes\n\nsaludos','',0,'','34r41er5',1,0,'',36,0,0),(38959,8404,6,1104,0,'190.55.47.120',1191595446,1,0,1,1,1,0,'','','Hola maestro,\n\nYo también estoy interesado en su visita pero en este caso a Argentina, \nquisiera saber donde, como, cuando, costos, ect.\nDesde ya muchas gracias.\n\nDesde Argentina.\nEsteban, \nSaludos','',0,'','3cwgbbn2',1,0,'',1104,0,0),(38960,8398,7,1030,0,'190.55.47.120',1191595983,1,0,1,1,1,0,'','','Hola Rene,\n\nQue herramientas necesitaría para utilizar esa interfaz web de la que me comentas?.\nEl sistema que tengo desarrollado para la Pocket con FWPPC usando DBFs, me sirve? O debería hacerlo completo desde cero?\nMe podrías guiar un poquito.\n\nDesde ya muchas gracias.\nNatalia, \nSaludos','',0,'','12zhzpth',1,0,'',1030,0,0),(38961,8347,3,1064,0,'220.133.92.172',1191598644,1,0,1,1,1,0,'','','Hi hua:\n\nGreat !! \n\nIt work for ADS RDD .\n\nBest Regards\n\nkokoo','',0,'','mbdmpaia',1,0,'',1064,0,0),(38962,8347,3,138,0,'189.141.70.33',1191599407,1,0,1,1,1,1,'','','That\'s the way it works !!!!!\n\nWhy ?.... well, the explanation is very simple, ADS server does the indexing, not your program, this means that INDEX ON just send the indexing order to the server and then the server takes care of performing the operation, so your program will never know the status of the indexing progress, since you don\'t have a way of \"asking\" the ADS server the percentage of advance.\n\nAdsClrCallBack() does a \"call back\" to the server, this means that the server will give your application an \"status\" of the currently running process.\n\nThe \"call back\" is only available for indexing, not for running queries (ADS does SQL queries and they are damn fast), or setting AOF() or Scopes.','',0,'','2tr6c4pr',1,0,'',138,0,0),(38963,8404,6,138,0,'189.141.70.33',1191599547,1,0,1,1,1,1,'','','La visita a Chile incluye:\n\nSantiago, Puerto Montt, Punta Arenas y Calama.\n\nLa visita a Argentina solo incluye Buenos Aires.\n\nMas detalles, en el blog.[/code]','',0,'','2fhxye59',1,0,'',138,0,0),(38964,8398,7,138,0,'189.141.70.33',1191600759,1,0,1,1,1,1,'','','Natalia:\n\nEso seria un muy buen tema para una ponencia, lo tomare en cuenta para mi proxima visita a Argentina.\n\nDe momento te explico como funciona el invento:\n\nNecesitas un Pocket PC, Palm, Blackberry o hasta un telefono celular con navegador Web incluido y cualquier tipo de conexion a Internet o intranet WiFi, GPRS, etc.\n\nNecesitas un equipo que haga las veces de servidor web, tu mismo servidor de archivos puede servir, necesitas instalar un software de servidor web, ya sea el IIS o bien nosotros usamos el Orelly WebSite.\n\nEn el caso de IIS nosotros usamos una herramienta de xHarbour.com llamada xBScript, que te permite camibar el motor de VBScript incluido con el servidor ASP de IIS por un motor 100% compatible con xHarbour, con todas las caracteristicas, incluyendo soporte al RDDADS y obviamente a tablas ADT.\n\nEn el caso del Orelly WebSite, usamos un estandar de internet llamado CGI, bajo este estandar tu haces un programa EN LO QUE QUIERAS, FiveWin incluido, que corre en el equipo servidor web.\n\nBien la cosa es muuuuy simple, en tu dipositivo movil, tu vas a conectar con el servidor web donde tienes instaldo tu servidor, ya sea via intranet o internet, y vas a diseñar pequeñas paginas WEB con formularios.\n\nTanto ASP, como CGI son estandares de internet que te permiten ejecutar un programa \"remoto\" desde tu navegador web, ese programa remoto esta alojado en el servidor Web, y es un EXE hecho en cualquier lenguaje de programacion.\n\nLos estandares mencionados anteriormente te permiten \"enviar\" los fomularios desde tu navegador movil, y al mismo tiempo ejecutar el programa alojado en el servidor, el cual recibe como parametros los datos que tu cargaste en el formulario WEB, tu mismo programa los procesa y debe responder con otra pagina web, misma que cuando es generada es devuelta de manera automatica a tu navegador portatil.\n\nEsta solucion la tenemos muuuy probada para tomas de inventarios remotas donde la conexion WiFi no esta garantizada, tambien tenemos la solucion implementada en restaurantes para tomas de comandas y envio directo a cocina, para Verificadores de precios en supermercados, etc.\n\nLa ventaja de esto es que funciona con cualquier dispositivo movil que tenga un navegador Web, de cualquier marca o modelo.\n\nNos vemos en Chile a partir del 13 de Octubre y en Argentina el 3 de Noviembre.','',0,'','2v5fssoq',1,0,'',138,0,0),(38965,8409,6,533,0,'80.32.177.143',1191601068,1,0,1,1,1,0,'','Grifos de Cerveza','Buenas foro, aunque parezca un off topic, NO lo es. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPara introduciros en el tema, en algunos bares de esta zona, las mesas poseen un grifo de cerveza, del cual los comensales se van sirviendo hasta saciarse, y aqui es donde va la pregunta:\n\n¿Alguien ha realizado algo en [x]harbour + fivewin para controlar la cantidad de cañas que se toman en una mesa?, Dichos grifos van conectados a un ordenador que recoje los litros que beben en  cada mesa. ¿Habéis trabajado alguna vez con esto?, muchas gracias.\n\nSupongo que los protocolos de comunicación serán un tanto distintos a los de las básculas, etc. . .\n\nLa verdad es que leyendo varias veces el post, parece que en los esos bares solo entran borrachos. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','3ujds85c',1,0,'',533,0,0),(38966,8398,7,1030,0,'190.55.47.120',1191602611,1,0,1,1,1,0,'','','René,\nTodo esto parece realmente muy interesante, lo vamos a tener en cuenta para un futuro.\nMuchas gracias por tu explicacion.\n\nAprovecho la oportunidad para consultarte hacerca de tu visita a Argentina ya que me gustaría asistir en caso de que dieses alguna capacitacion.\n\nSaludos, \nNatalia','',0,'','131nxrgy',1,0,'',1030,0,0),(38967,8404,6,264,0,'200.91.3.10',1191603212,1,0,1,1,1,1,'','','cual es la direccion de tu blog ?\nAparece publicada la agenda completa ?\nsaludos','',0,'','1gofvchh',1,0,'',264,0,0),(38968,8410,6,278,0,'200.126.65.130',1191603647,1,0,1,1,1,1,'','Como poner el Fabricante ??','Hola a todos:\n\nAlguien sabe como poner los datos del fabricante del software a un ejecutable ( EXE ) ??\n\nYa que me sale muy frecuente un mensaje de windows XP, que este\nsoftware no tiene esta informacion ?, luego de darle al boton de continuar se ingresa OK al programa.  Es muy molesto, como se puede evitar ?\n\nMe imagino que se podrá  poner algo en el RC, pero no se como.\n\nSaludos,','',0,'','q6htms7f',1,0,'',278,0,0),(38969,8411,6,264,0,'200.91.3.10',1191603710,1,0,1,1,1,1,'','ComboBox mas amcho que el definido....','hola a todos...\nme gustaria desplegar una lista desde el combobox, pero que fuera mas ancha que el espacio fisico en el cual pongo dicho combobox.\n\nTengo una lista para desplegar y su ancho soporta por ejemplo 10 caracteres...pero me gustraria que desplegara una lista con mayor cantidad de caracteres, sin que estos queden bajo la barra de desplazamiento\n\nAgradecido de antemano.','',0,'','az3l286b',1,0,'',264,0,0),(38970,8404,6,812,0,'200.83.125.54',1191605007,1,0,1,1,1,0,'','','Bienvenio Gran Maestro:\n\nEsperamos tu visita en Chile.\n. cual seria la fecha que visitarias Santiago ?\n\nOja pudieras informarnos tu agenda (Visita, Temas a Tratar y el lugar en que se realizara).\n\nSaludos,\nMiguel\nSantiago','',0,'','1zpyo69e',1,0,'',812,0,0),(38971,8347,3,47,0,'203.144.160.246',1191605057,1,0,1,1,1,0,'','','Thanks Hua&amp;Rene&amp;James,\n\nIt works well for ADS.\n\nRegards,\nDutch','',0,'','1wj5cuvo',1,0,'',47,0,0),(38972,8407,3,2,0,'87.218.146.51',1191606528,1,0,1,1,1,1,'','','Michel,\n\nWe have forwarded your question to Przemek who is the RDDs guru.\n\nLets see what he says','',0,'','1iwjyq67',1,0,'',2,0,0),(38973,8329,6,2,0,'87.218.146.51',1191606787,1,0,1,1,1,1,'','','Alvaro,\n\nNo es algo previsto en la clase, pero tampoco existe una limitación para no poder hacerlo','',0,'','lwvz5y23',1,0,'',2,0,0),(38974,8379,6,2,0,'87.218.146.51',1191607149,1,0,1,1,1,1,'','','Luis,\n\nEn vez de usar el comando COLUMN ... llama a esta función:\n\nRptAddColumn( { BuildTitle( nAt ) } ,, { BuildData( nAt, aImprimo ) } )\n...\nfunction BuildTitle( nAt )\n\nreturn { || Str( nAt ) }\n\nfunction BuildData( nAt, aArray )\n\nreturn { || aArray[ nAt ] }','',0,'','3dwo95l2',1,0,'',2,0,0),(38975,8411,6,221,0,'190.78.48.146',1191607285,1,0,1,1,1,1,'','','la amigo no entiendo tu pregunta, uno modifica el ancho del combobox a como uno quiera, de todos modos te pongo un ejemplo de como yo los uso, espero te sirva\n\n   SOCIEDADES={}\n   AADD(SOCIEDADES,\"COMPAÑIA ANONIMA         \")\n   AADD(SOCIEDADES,\"RESPONSABILIDAD LIMITADA \")\n   AADD(SOCIEDADES,\"ASOCIACION               \")\n   AADD(SOCIEDADES,\"COMANDITA                \")\n   AADD(SOCIEDADES,\"FUNDACION                \")\n   AADD(SOCIEDADES,\"CORPORACION              \")\n   AADD(SOCIEDADES,\"COMUNIDAD                \")\n   AADD(SOCIEDADES,\"SOCIEDAD ANONIMA         \")\n   AADD(SOCIEDADES,\"SOCIEDAD COLECTIVA       \")\n   AADD(SOCIEDADES,\"COOPERATIVA              \")\n   @ 175, 60 COMBOBOX OBOX VAR xTSOCIE ITEMS SOCIEDADES OF FICHA:ADIALOGS[1] size 100,100 PIXEL','',0,'','12tcw8kb',1,0,'',221,0,0),(38976,8411,6,2,0,'87.218.146.51',1191607664,1,0,1,1,1,1,'','','Julio,\n\nPrueba con:\n\n#define CB_SETDROPPEDWIDTH   0x0160\n\noCombo:SendMsg( CB_SETDROPPEDWIDTH, nWidth )','',0,'','2c4fq68r',1,0,'',2,0,0),(38977,8410,6,2,0,'87.218.146.51',1191607961,1,0,1,1,1,1,'','','Juan,\n\nRevisa el ejemplo FWH\\samples\\FileVer.prg y FileVer.rc','',0,'','2kcj8bja',1,0,'',2,0,0),(38978,8409,6,2,0,'87.218.146.51',1191608075,1,0,1,1,1,1,'','','Mike,\n\n&gt; Dichos grifos van conectados a un ordenador que recoje los litros que beben en cada mesa\n\nEl ordenador tiene ya un software que registra el número de litros servidos ?','',0,'','y2i6lxa4',1,0,'',2,0,0),(38979,8402,6,2,0,'87.218.146.51',1191608260,1,0,1,1,1,1,'','','Luiz,\n\nPrueba esto:\n\nREDEFINE GET ocgc Var rcgc ID 63 OF oFld:aDialogs[1] UPDATE PICTURE \"@!S18\" \n\nocgc:bKeyDown := { | nKey, nFlag | If( nKey = VK_RETURN, MsgInfo( rcgc ),) } \n\ny pulsa enter y comprueba que tienes en la variable. Puedes probar tambien así:\n\nocgc:bKeyDown := { | nKey, nFlag | If( nKey = VK_RETURN, MsgInfo( AllTrim( ocgc:GetText() ) ),) }','',0,'','1gaaux9d',1,0,'',2,0,0),(38980,8409,6,533,0,'80.32.177.143',1191608460,1,0,1,1,1,0,'','','Antonio, Gracias, por lo que tengo entendido no tienen ningún software, van conectados a un puerto RS232.','',0,'','g2go3q52',1,0,'',533,0,0),(38981,8407,3,303,0,'72.220.100.171',1191608710,1,0,1,1,1,0,'','','Michel,\n\n&gt;Or is there any way to unlock a locked record by someone else ? \n\nEven if there was, if you did it, you would create a nighmare. If one user had the record locked while editing (pesimistic locking), and another user unlocked it and saved changes, then the first user saved their changes, the second user\'s changes would be lost.\n\nIf you use optimistic locking (only locking during a save) then you won\'t run into a problem of having a locked record, since it is only locked for a split second.\n\nJames','',0,'','2lbgexgb',1,0,'',303,0,0),(38982,8405,6,2,0,'87.218.146.51',1191608986,1,0,1,1,1,1,'','','@ 0.3, 0.3 PROGRESS oProg POSITION nValue SIZE 80, 12 OF oStatusBar','',0,'','3m62thhh',1,0,'',2,0,0),(38983,8409,6,2,0,'87.218.146.51',1191609295,1,0,1,1,1,1,'','','Revisa FWH\\samples\\TestComm.prg, TestCom2.prg y TestCom3.prg\n\nSi necesitas usar varios puertos RS232 simultaneamente, necesitas un módulo comm.obj actualizado y que vamos a publicar en FWH 7.10 en sólo unos dias.','',0,'','1narco1k',1,0,'',2,0,0),(38984,8411,6,264,0,'200.91.3.10',1191609501,1,0,1,1,1,1,'','','Maestro : \nEl parametro nWidth ... a que corresponderia ?\nSaludos','',0,'','3i4owyiq',1,0,'',264,0,0),(38985,8411,6,2,0,'87.218.146.51',1191611099,1,0,1,1,1,1,'','','Al ancho que deseas darle en pixeles','',0,'','1fp61wm1',1,0,'',2,0,0),(38986,8411,6,264,0,'200.91.3.10',1191611599,1,0,1,1,1,1,'','','y alguna funcion que comvierta caracteres en pixels ?\no algun ejemplo que me lo demuestre ?\ngracias','',0,'','3vjlfaip',1,0,'',264,0,0),(38987,8407,3,2,0,'87.218.146.51',1191611632,1,0,1,1,1,1,'','','Przemek\'s answer:\n\n&gt; If a record is locked by RLOCK(), is there any way to know who (which \n&gt; PC or\n&gt; user) locked it ? \n\nIt depends on system which holds the locks. F.e. in Linux you can see all locks using \'lslk\' command or by parsing /proc/locks where the 5-th column is PID and 6-th fileid (device and inode).\n\n&gt; Or is there any way to unlock a locked record by someone else ? \n&gt; Thanks,\n\nMaybe some systems allow such operation for super user but even if they exist then it\'s very seldom functionality. It\'s extremely dangerous operation and may cause data corruption.\n\nbest regards,\nPrzemek','',0,'','i1245012',1,0,'',2,0,0),(38988,8407,3,303,0,'72.220.100.171',1191612477,1,0,1,1,1,0,'','','Michel,\n\nMaybe we should ask what you are trying to accomplish? Perhaps there is another way.\n\nJames','',0,'','eweo8jto',1,0,'',303,0,0),(38989,8410,6,278,0,'200.126.65.130',1191614050,1,0,1,1,1,1,'','','GRACIAS Antonio:\n\nLo voy a probar y les cuento. \n\nSaludos ,','',0,'','19y1ryvq',1,0,'',278,0,0),(38990,8402,6,552,0,'201.14.23.163',1191615899,1,0,1,1,1,1,'','','Antonio, \n\n   Lo que pasa, és que mesmo digitando o numero com 11 posições, msginfo mostra uma mensagem VACIA, é como se eu não digitasse nada.\nla imagem mostra bien lo que pasa.\n\nGracias el adelantado.\n\nSaludos desde Brasil,\n\n\n[img:21artwnb]http&#58;//www&#46;bunaky&#46;hpg&#46;com&#46;br/telaerro&#46;jpg[/img:21artwnb]','',0,'CA==','21artwnb',1,0,'',552,0,0),(38991,8402,6,362,0,'200.148.67.216',1191616221,1,0,1,1,1,1,'','','LUIZ, LEVE O OBJETO PARA UMA FUNCAO, DENTRO DOS PARENTESES DO VALID(), PARA A MENSAGEM. IRÁ FUNCIONAR.\n\nRETURN  .T. OU .F.','',0,'CA==','2lo01941',1,0,'',362,0,0),(38992,8399,6,875,0,'64.76.108.182',1191616352,1,0,1,1,1,0,'','','no es necesario usar NET USE LPT1,   yo lo uso asi:\n\nSelect A\nUse Configur\n\nG_port:=A-&gt;Puerto   **  ( \\\\Servidor\\Hp-6300)\n\noPrn:=TDosPrn():New(G_port)\n..\n..\n..\noPrn:End()\n\nSi por algun motivo cambian la impresora o quiero imprimir de modo local simplemente modifico el Campo PUERTO de la tabla Configur\n\n\nJaime','',0,'CA==','3kei1mta',1,0,'',875,0,0),(38993,8412,3,51,0,'80.122.88.242',1191616720,1,0,1,1,1,0,'','Starting with Harbour/FWH – beginner question','Hello,\nTrying to convert a small application from FW to FWH I need some help.\n\nFW/Clipper\nI have a own class Tsetup which I link compile with clipper \n\nClipper tsetup /n\n\nand link it this way\n\nLnk-file in Fivewin\n\nFILE c:\\clipper\\fwlink\\Tsetup.obj                    \n\nHow can I do this in Harbour/FWH?','',0,'CA==','3tg6ytpg',1,0,'',51,0,0),(38994,8413,6,41,0,'200.105.194.234',1191617040,1,0,1,1,1,0,'','Un poco OT','Holas,\n\nnunca se me habia ocurrido hasta que me pidieron cambiar los . por , y las , por . en los montos, la pregunta es como puedo utilizar \",\" para la separacion de decimales y \".\" para los miles con la funcion TRANSFORM de xharbour, siempre utilie TRANSFORM( variable, \"9,999,999.99\" ) como hacerlo TRANSFORM( variable, \"9.999.999,99\" ).\n\nSupongo que debe ser estupido pero!\n\nsaludos\n\nMarcelo','',0,'CA==','18rdx7sh',1,0,'',41,0,0),(38995,8402,6,552,0,'201.14.23.163',1191617359,1,0,1,1,1,1,'','','Antonio, \n\nDesta maneira,\n[code:368snbrn]\n   // Pesquisa o Cliente\n   REDEFINE GET ocgc Var rcgc ID 63 OF oFld&#58;aDialogs&#91;1&#93; UPDATE //PICTURE &quot;@!S18&quot;\n  ocgc&#58;bKeyDown &#58;= &#123; | nKey, nFlag | If&#40; nKey = VK_RETURN, MsgInfo&#40; rcgc &#41;,&#41; &#125;\n[/code:368snbrn]\nmostra a variavel em branco, conforme figura anterior.\n\nDesta maneira,\n[code:368snbrn]\n   // Pesquisa o Cliente\n   REDEFINE GET ocgc Var rcgc ID 63 OF oFld&#58;aDialogs&#91;1&#93; UPDATE //PICTURE &quot;@!S18&quot;\n  ocgc&#58;bKeyDown &#58;= &#123; | nKey, nFlag | If&#40; nKey = VK_RETURN, MsgInfo&#40; AllTrim&#40; ocgc&#58;GetText&#40;&#41; &#41; &#41;,&#41; &#125;\n[/code:368snbrn]\nmostra o que foi digitado no GET\n\nEntão, fiz a seguinte alteração:\n\n[code:368snbrn]\n   // Pesquisa o Cliente\n   REDEFINE GET ocgc Var rcgc ID 63 OF oFld&#58;aDialogs&#91;1&#93; UPDATE //PICTURE &quot;@!S18&quot;\n   \n   ocgc&#58;bKeyDown &#58;= &#123; | nKey, nFlag |;\n      IF&#40; nKey = VK_RETURN,&#40; lRet &#58;= &#46;f&#46;, IF&#40; !Empty&#40; Alltrim&#40; ocgc&#58;GetText&#40;&#41; &#41; &#41;,;\n                             Scv20221&#40; oWnd, aButtons &#41;,;\n                             Scv20203&#40; oWnd, aButtons, oFld, m-&gt;oClieDbf, 2 &#41; &#41; &#41;,;\n      IF&#40; nKey = VK_ESCAPE,&#40; Muda_St&#40; oWnd, oClient, oFld &#41;&#41;, nil &#41;&#41;&#125;\n   \n   oCgc&#58;cTooltip &#58;= &quot;Informe CPF  para Cliente pessoa Fisica  &quot; + CRLF +;\n                    &quot;Informe CNPJ para Cliente pessoa Juridica&quot; + CRLF +;\n                    &quot;Não Use Pontos Ou Traços&#46;&quot;\n[/code:368snbrn]\n\nAceita a digitação, faz a pesquisa, mas o retorno da função é como se a variavel estivesse em branco.\n\nJoão, agradeço pela sugestão, mas o GET tem que ser da maneira descrita pra evitar erros, se eu colocar um VALID a ação no GET não é a esperada. Vejam abaixo a tela com o resultado desta modificação.  Outra coisa, o que não posso aceitar é que, se atualizar a versão, tiver que modificar todo meu código escrito, prefiro NÃO MUDAR.\n\nObserve a mensagem na tela, é uma mensagem quando o campo esta em branco\n[img:368snbrn]http&#58;//www&#46;bunaky&#46;hpg&#46;com&#46;br/telaerro2&#46;jpg[/img:368snbrn]\n\nGracias en adelantado, \n\nSaludos desde Brasil,','',0,'CIA=','368snbrn',1,0,'',552,0,0),(38996,8411,6,264,0,'200.91.3.10',1191617580,1,0,1,1,1,1,'','','no resulta....\nla imagen queda recortada y el item mayor queda bajo el vscroll....\ntengo la imagen ( en pequeño ) pero no se como adjuntarla\ngracias\n\neste es el codigo :\n[code:3a8skt1l]\n&#46;&#46;&#46;\nLocal aTipos &#58;= &#123; &quot;Producto Estándar&quot;,;\n                  &quot;Producto Seriado/Activo Fijo&quot;,;\n                  &quot;Producto Multipropósito&quot;,;\n                  &quot;Servicios&quot;,;\n                  &quot;Productos Genéricos&quot;,;\n                  &quot;Productos Crías de Genéricos&quot; &#125;\n&#46;&#46;&#46;\nREDEFINE BTNGET   oDescri VAR cDescri ID 91 Of oDlg\n&#91;b&#93;\nREDEFINE COMBOBOX oTipo   VAR cTipo ITEMS aTipos ID 92 Of oDlg ;\n         VALID &#40; If&#40; oTipo&#58;nAt&lt;&gt;0,;\n                     cTipoReal &#58;= aTipoReal&#91;oTipo&#58;nAt&#93;,;\n                     NIL &#41;,;\n                 &#46;T&#46; &#41;\noTipo&#58;SendMsg&#40; CB_SETDROPPEDWIDTH, 280 &#41;\n&#91;/b&#93;\n\nREDEFINE BTNGET   oFami   VAR cFami   ID 93 Of oDlg\n[/code:3a8skt1l]\n\n ( con el define que me indicaste en el top del PRG  )','',0,'AIA=','3a8skt1l',1,0,'',264,0,0),(38997,8407,3,2,0,'87.218.146.51',1191617724,1,0,1,1,1,1,'','','Michel,\n\nPosted by Brian Hays:\n\nFYI, the ADS remote server does give this functionality (but not local server).','',0,'AIA=','1ipng0jf',1,0,'',2,0,0),(38998,8412,3,2,0,'87.218.146.51',1191617855,1,0,1,1,1,1,'','','Otto,\n\nBasically it is the same:\n\nHarbour tsetup /n \n\n&gt;\nand link it this way \nLnk-file in Fivewin \nFILE c:\\clipper\\fwlink\\Tsetup.obj \n&gt;\n\nYou also link TSetup.obj but using the way described in FWH\\samples\\buildh.bat','',0,'AIA=','3qbshawb',1,0,'',2,0,0),(38999,8411,6,2,0,'87.218.146.51',1191617991,1,0,1,1,1,1,'','','Julio,\n\nEl mensaje tienes que enviarlo desde la claúsula ON INIT ya que antes el control no tiene un handle de ventana válido:\n\nACTIVATE DIALOG oDlg ;\nON INIT oTipo:SendMsg( CB_SETDROPPEDWIDTH, 280 )','',0,'AIA=','27xo355k',1,0,'',2,0,0),(39000,8402,6,2,0,'87.218.146.51',1191618093,1,0,1,1,1,1,'','','Luiz,\n\nEntonces usando oGet:GetText() te sirve, si ?','',0,'AIA=','3uacb3z1',1,0,'',2,0,0),(39001,8411,6,264,0,'200.91.3.10',1191618618,1,0,1,1,1,1,'','','Perfecto !!!\n\nPero para terminarla, existira una funcion que convierta de caracteres a pixeles ?\n\nMil gracias','',0,'AIA=','96bvkael',1,0,'',264,0,0),(39002,8412,3,51,0,'80.122.88.242',1191620356,1,0,1,1,1,0,'','','Antonio,\nthank you. \n\nWhere does harbour store the obj-file. I only get a file with a \nc extension.\n\nc:\\xHarbour\\tests&gt;c:\\xHarbour\\bin\\harbour tsetup /n\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tsetup.prg\'...\nLines 59, Functions/Procedures 4\nGenerating C source output to \'tsetup.c\'...\n\nWould you be so kind to insert the line with the tsetu.obj in \nthe following rmk-file.\n\n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=c:\\xharbour\nBCDIR=c:\\bcc55\nFWDIR=c:\\fwh\n\n#change these paths as needed\n.path.PRG = .\\\n.path.OBJ = .\\obj\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\nPRG =        \\\nKasse.PRG\n\nPROJECT    : kasse.exe\n\nkasse.exe  : $(PRG:.PRG=.OBJ)\n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n   echo obj\\kasse.obj, + &gt;&gt; b32.bc\n   echo xKasse.exe, + &gt;&gt; b32.bc\n   echo xKasse.map, + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveHX.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\gtwin.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\hbsix.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\pp.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\n   IF EXIST xKasse.res echo xKasse.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n   del b32.bc\n\n.PRG.OBJ:\n  $(HBDIR)\\bin\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(BCDIR)\\bin\\bcc32 -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n\nThank in advance\nOtto','',0,'AIA=','3b0750iu',1,0,'',51,0,0),(39003,8402,6,552,0,'201.14.23.163',1191620850,1,0,1,1,1,1,'','','Antonio, \n\nServe, pero no mucho!\n\nEl comportamiento del GET és mui estranho, no es posible modificar todo el sistema.  \noGet:GetText() mostra el contenido da VARIAVEL, pero es como se ainda estivesse VACIA. La mensagem, mira la segunda imagem, só é mostrada se a variavel estiver VACIA. Por favor, revisa las modificaciones.\n\nSaludos desde Brasil,','',0,'AIA=','25f3lc4u',1,0,'',552,0,0),(39004,8413,6,36,0,'200.113.56.235',1191621819,1,0,1,1,1,1,'','','MARCELO \n\n[code:1hj9yep7]@E 999,999,999&#46;99[/code:1hj9yep7]','',0,'AIA=','1hj9yep7',1,0,'',36,0,0),(39005,8412,3,2,0,'87.218.146.51',1191626158,1,0,1,1,1,1,'','','Otto,\n\nHarbour generates an intermediate C file that has to be compiled using the free Borland C compiler. Please review samples\\buildh.bat and you will see how bcc32.exe is called to compile the C file.\n\necho obj\\kasse.obj [color=red:3vo74a15]tsetu.obj[/color:3vo74a15], + &gt;&gt; b32.bc','',0,'Ag==','3vo74a15',1,0,'',2,0,0),(39006,8411,6,2,0,'87.218.146.51',1191626321,1,0,1,1,1,1,'','','GetTextWidth( 0, cTexto, oFont:hFont ) --&gt; nPixels','',0,'Ag==','8zphyz2a',1,0,'',2,0,0),(39007,8407,3,35,0,'65.188.6.143',1191626491,1,0,1,1,1,0,'','','Michael\n\nIf you are on a Novell server there is Novlib ( blinkinc.com ) which has the ability to use the network operating system to tell you \'who\' has any file open in a specific folder and who may have it locked exclusively.\n\nUnder Windows 2003 ??  I am looking for such a utility myself.\n\nRick Lipkin\nSC Dept of Health, USA','',0,'Ag==','2y8l3yne',1,0,'',35,0,0),(39008,8402,6,2,0,'87.218.146.51',1191626604,1,0,1,1,1,1,'','','Luiz,\n\nPrueba asi:\n[code:1c04kfoi]\n  REDEFINE GET ocgc Var rcgc ID 63 OF oFld&#58;aDialogs&#91;1&#93; UPDATE //PICTURE &quot;@!S18&quot; \n    \n   ocgc&#58;bKeyDown &#58;= &#123; | nKey, nFlag | ocgc&#58;Assign&#40;&#41;, ; \n      IF&#40; nKey = VK_RETURN,&#40; lRet &#58;= &#46;f&#46;, IF&#40; !Empty&#40; rcgc &#41; &#41;,; \n                             Scv20221&#40; oWnd, aButtons &#41;,; \n                             Scv20203&#40; oWnd, aButtons, oFld, m-&gt;oClieDbf, 2 &#41; &#41; &#41;,; \n      IF&#40; nKey = VK_ESCAPE,&#40; Muda_St&#40; oWnd, oClient, oFld &#41;&#41;, nil &#41;&#41;&#125; \n[/code:1c04kfoi]','',0,'AIA=','1c04kfoi',1,0,'',2,0,0),(39009,8399,6,1072,0,'201.214.53.123',1191630468,1,0,1,1,1,0,'','','Amigo:\n\nComparto como te indica \"jacgsoft\", yo lo uso igual, tengo una base donde puedo definir las impresoras y los diferentes puertos para cada uno, incluso si esta estuviera usando una red novell, teniendo una opcion el usuario donde pueda seleccionar la impresora a usar, con un browser y posteriormente captura la printer deseada. Esto me permite incluso poder imprimir en diferentes colas en un mismo programa, por ejemplo, una Factura para el vendedor y una orden de despacho a bodega.\n\nEn lo particular, no me gustan los BAT, me recuerda DOS, el sistema debe ser mas dinamico.\n\nBueno, es solo mi forma de programar y una altrnativa mas.\n\nSaludos,\nAntonio','',0,'AIA=','21hy67wz',1,0,'',1072,0,0),(39010,8402,6,552,0,'201.14.23.163',1191632019,1,0,1,1,1,1,'','','Gracias Antonio, funciono de pronto!\n\nCreo tener que modificar todos los GETs de mi sistema que funcionam con esta sintaxe. No existe um modo de modificar la classe que corrija este problema.\n\nSaludos desde Brasil,','',0,'AIA=','1vczfnv9',1,0,'',552,0,0),(39011,8407,3,868,0,'219.64.121.60',1191638729,1,0,1,1,1,1,'','','If using ADS, the management function AdsMgGetLockOwner( ... ) gives this information.\n\nThe ADSRDD for (x)Harbour has this function.','',0,'AIA=','3gk0lb66',1,0,'',868,0,0),(39012,5973,1,1188,0,'216.178.50.244',1191649959,1,0,1,1,1,0,'','lha decompression','[quote=&quot;Antonio Linares&quot;:26j6leb0]Please create a MAP file using MAP A,S from the LNK file and search the GPF address into the MAP file, to check what function is where the GPF comes from[/quote:26j6leb0]\n\nYes, we have run into the same problem with lha.dll on Vista.  Since this is a binary third party dynamic link library written in Japan, I can\'t find whether an updated version is available for Vista searching with Google.  Using a map, etc isn\'t going to help because we don\'t have the source for it, only the binary.\n\nDoes anyone know whether the binary file has been updated for Vista or is there a good alternative to it that runs on Vista?\n\nHarlan','',0,'gA==','26j6leb0',1,0,'',1188,0,0),(39013,5973,1,2,0,'87.218.146.51',1191651212,1,0,1,1,1,1,'','','Harlan,\n\nIt seems that there is a Windows version here with full source code:\n\n<!-- m --><a class=\"postlink\" href=\"http://gnuwin32.sourceforge.net/packages/lha.htm\">http://gnuwin32.sourceforge.net/packages/lha.htm</a><!-- m -->\n\nHaving the source code it may help to trace where the GPF comes from.','',0,'gA==','t9km5yhl',1,0,'',2,0,0),(39014,8402,6,2,0,'87.218.146.51',1191651649,1,0,1,1,1,1,'','','Luiz,\n\nEn vez de modificar el código de tu programa, prueba a modificar la clase así:\n[code:109e9mal]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TGet\n  \n&#46;&#46;&#46;\n\n   if &#58;&#58;bKeyDown != nil\n      &#58;&#58;Assign&#40;&#41;\n   endif\n \n   do case\n&#46;&#46;&#46;\n[/code:109e9mal]','',0,'AIA=','109e9mal',1,0,'',2,0,0),(39015,8414,6,63,0,'88.0.164.66',1191666443,1,0,1,1,1,0,'','Mi primera DLL','Me gustaría saber cómo puedo crear una simple DLL.  Por ejemplo, una que contenga solamente una clase a la que pasar un array y que lo presente en pantalla. Algo más o menos así:[code:7j1j9dwe]\nCLASS Test FROM TDialog\n      export&#58;\n         METHOD New&#40;aTxt&#41; CONSTRUCTOR\n      hidden&#58;\n         METHOD Controles&#40;&#41;\nENDCLASS\n\n//&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;METHOD New&#40;aTxt&#41; CLASS Test\nDefault aTxt &#58;= &#123;&quot;Hello World!&quot;, &quot;Hello again&quot;&#125;\n\nSuper&#40;&#41;&#58;New&#40;0,0,60,80&#41;\nACTIVATE DIALOG Self CENTER ON INIT  &#58;&#58;Controles&#40;aTxt&#41;\nRETURN Self\n\n//&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;\nMETHOD Controles&#40;aTxt&#41; CLASS Test\n@ 20, 0 SAY &quot;Tu mensaje dice&#58; &quot;+aTxt&#91;1&#93; SIZE &#58;&#58;nWidth, 20 PIXEL \n@ 50, 0 SAY &quot;Segunda linea&#58; &quot;+aTxt&#91;2&#93; SIZE &#58;&#58;nWidth, 20 PIXEL \nRETURN NIL[/code:7j1j9dwe]\n\n¿Alguien podría darme una idea de cómo hacerlo?  He buscado en diversos posts, pero no me aclaro al respecto.  Una vez compuesta la DLL, para usarla ¿tengo que registrarla en mi programa o algo así?\n\nPerdón por una pregunta tan compleja pero la solución quizás le sea útil a otros.\nSaludos,\nRafael','',0,'AIA=','7j1j9dwe',1,0,'',63,0,0),(39016,8412,3,995,0,'81.11.201.153',1191666811,1,0,1,1,1,0,'','','Otto,\n\nSince we have builders , i do not use bat file anymore. \n\nUsing a builder take care off all elements from the build process\nWe have very good builders as :\n\n    hbmake (part from xharbour)\n    xbuild (demo version or commercial)\n    xmate , very good , can be used with many compilers , also clipper !\n\nFrank','',0,'AIA=','2ujoc39i',1,0,'',995,0,0),(39017,8412,3,3,0,'80.81.159.19',1191667660,1,0,1,1,1,1,'','','I would add\n\nUESTUDIO \n\nThe best in my opinion,\n\nRichard','',0,'AIA=','7msiasgr',1,0,'',3,0,0),(39018,8304,3,904,0,'196.25.255.250',1191673657,1,0,1,1,1,1,'','','Can I still get this somewhere?','',0,'AIA=','1r95vgpj',1,0,'',904,0,0),(39019,8406,6,228,0,'201.244.208.140',1191673953,1,0,1,1,1,1,'','Yo lo hago asi...','Amigo yo llo hago de la siguiente manera:\n\n[code:1ujhy2xv]\n\n  nmanejador&#58;=FCREATE&#40;&quot;C&#58;\\lymam32\\lamxml\\&quot;+nArchi+&quot;&#46;xml&quot;, FC_NORMAL&#41;\n\n  bufer&#58;=\'&lt;?xml version=&quot;1&#46;0&quot; encoding=&quot;ISO-8859-1&quot;?&gt;&lt;mas xmlns&#58;xsi=&quot;http&#58;//www&#46;w3&#46;org/2001/XMLSchema-instance&quot; xsi&#58;noNamespaceSchemaLocation=&quot;&#46;&#46;/xsd/1002&#46;xsd&quot;&gt;\'+CRLF\n  bufer+=\'&lt;Cab&gt;\'+CRLF\n  bufer+=\'&lt;Ano&gt;2006&lt;/Ano&gt;\'+CRLF\n  bufer+=\'&lt;CodCpt&gt;1&lt;/CodCpt&gt;\'+CRLF\n  bufer+=\'&lt;Formato&gt;1002&lt;/Formato&gt;\'+CRLF\n  bufer+=\'&lt;Version&gt;6&lt;/Version&gt;\'+CRLF\n  bufer+=\'&lt;NumEnvio&gt;1&lt;/NumEnvio&gt;\'+CRLF\n  bufer+=\'&lt;FecEnvio&gt;2006-06-03T10&#58;20&#58;55&lt;/FecEnvio&gt;\'+CRLF\n  bufer+=\'&lt;FecInicial&gt;2005-01-01&lt;/FecInicial&gt;\'+CRLF\n  bufer+=\'&lt;FecFinal&gt;2005-01-01&lt;/FecFinal&gt;\'+CRLF\n  bufer+=\'&lt;ValorTotal&gt;50000&lt;/ValorTotal&gt;\'+CRLF\n  bufer+=\'&lt;CantReg&gt;2&lt;/CantReg&gt;\'+CRLF\n  bufer+=\'&lt;/Cab&gt;\'+CRLF\n\n  SELE tRes1\n  SET FILT TO ARformat=vForma\n  DBGOTOP&#40;&#41;\n  DO WHILE &#46;NOT&#46; EOF&#40;&#41;\n\n    ide&#58;=tRes1-&gt;ARnit\n    con&#58;=tRes1-&gt;ARconcep\n    deb&#58;=tRes1-&gt;ARdebito\n    cre&#58;=tRes1-&gt;ARcredit\n\n    val&#58;=cre-deb\n\n    SELE tTerc\n    IF dbseek&#40;alltrim&#40;str&#40;val&#40;ide&#41;&#41;&#41;&#41;\n      no1&#58;=tTerc-&gt;ATprinom\n      no2&#58;=tTerc-&gt;ATsegnom\n      ap1&#58;=tTerc-&gt;ATpriape\n      ap2&#58;=tTerc-&gt;ATsegape\n      ran&#58;=tTerc-&gt;ATrazons\n      dig&#58;=tTerc-&gt;ATdigito\n      mun&#58;=tTerc-&gt;ATmunici\n      tip&#58;=tTerc-&gt;ATtipdoc\n      tel&#58;=tTerc-&gt;ATtelefo\n      dic&#58;=tTerc-&gt;ATdirecc\n    ELSE\n      no1&#58;=no2&#58;=ap1&#58;=ap2&#58;=ran&#58;=dig&#58;=mun&#58;=tel&#58;=dic&#58;=space&#40;5&#41;\n      tip&#58;=0\n    ENDIF\n\n    bufer+=\'&lt;rets \'\n    bufer+=\'cpt=&quot;\'+con+\'&quot; \'\n    IF !Empty&#40;alltrim&#40;str&#40;tip&#41;&#41;&#41;\n      bufer+=\'tdoc=&quot;\'+alltrim&#40;str&#40;tip&#41;&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;str&#40;val&#40;ide&#41;&#41;&#41;&#41;\n      bufer+=\'nid=&quot;\'+alltrim&#40;str&#40;val&#40;ide&#41;&#41;&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;dig&#41;\n      bufer+=\'dv=&quot;\'+dig+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;ap1&#41;&#41;\n      bufer+=\'apl1=&quot;\'+alltrim&#40;ap1&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;ap2&#41;&#41;\n      bufer+=\'apl2=&quot;\'+alltrim&#40;ap2&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;no1&#41;&#41;\n      bufer+=\'nom1=&quot;\'+alltrim&#40;no1&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;no2&#41;&#41;\n      bufer+=\'nom2=&quot;\'+alltrim&#40;no2&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;ran&#41;&#41;\n      bufer+=\'raz=&quot;\'+alltrim&#40;ran&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;dic&#41;&#41;\n      bufer+=\'dir=&quot;\'+alltrim&#40;dic&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;subs&#40;mun,1,2&#41;&#41;&#41;\n      bufer+=\'dpto=&quot;\'+alltrim&#40;subs&#40;mun,1,2&#41;&#41;+\'&quot; \'\n    ENDIF\n\n    IF !Empty&#40;alltrim&#40;subs&#40;mun,3,4&#41;&#41;&#41;\n       bufer+=\'mun=&quot;\'+alltrim&#40;subs&#40;mun,3,4&#41;&#41;+\'&quot; \'\n    ENDIF\n\n    bufer+=\'vabo=&quot;\'+alltrim&#40;transform&#40;val+300000,&quot;999999999999&quot;&#41;&#41;+\'&quot; \'\n    bufer+=\'vret=&quot;\'+alltrim&#40;transform&#40;val,&quot;999999999999&quot;&#41;&#41;+\'&quot;/&gt;\'+CRLF\n\n    SELE tRes1\n    tRes1-&gt;&#40;dbskip&#40;&#41;&#41;\n  ENDDO\n\n  //bufer+=\'&lt;rets cpt=&quot;2302&quot; tdoc=&quot;31&quot; nid=&quot;79760202&quot; dv=&quot;9&quot; apl1=&quot;AREVALO&quot; apl2=&quot;SUAREZ&quot; nom1=&quot;LEANDRO&quot; nom2=&quot;ALFONSO&quot; dir=&quot;CALLE 74 15 80&quot; dpto=&quot;91&quot; mun=&quot;263&quot; vabo=&quot;350000&quot; vret=&quot;25000&quot;/&gt;\'+CRLF\n  //bufer+=\'&lt;rets cpt=&quot;2304&quot; tdoc=&quot;31&quot; nid=&quot;52236361&quot; dv=&quot;7&quot; apl1=&quot;FERNANDEZ&quot; apl2=&quot;RIVAS&quot; nom1=&quot;JUDITH&quot; nom2=&quot;MARCELA&quot; dir=&quot;CALLE 74 15 80&quot; dpto=&quot;91&quot; mun=&quot;263&quot; vabo=&quot;350000&quot; vret=&quot;25000&quot;/&gt;\'+CRLF\n  bufer+=\'&lt;/mas&gt;\'\n\n  FWRITE&#40;nManejador, alltrim&#40;bufer&#41;&#41;\n  FCLOSE&#40;nManejador&#41;\n\n[/code:1ujhy2xv]\n\nEspero te sirva','',0,'AIA=','1ujhy2xv',1,0,'',228,0,0),(39020,8389,6,774,0,'164.77.167.225',1191676056,1,0,1,1,1,1,'','','Alguien Sabe:::','',0,'AIA=','1nyghd6g',1,0,'',774,0,0),(39021,8405,6,1123,0,'200.174.91.66',1191679827,1,0,1,1,1,1,'','','Gracias Antonio\n\nFuncionou perfecto','',0,'AIA=','3acze3j1',1,0,'',1123,0,0),(39022,8415,6,384,0,'189.23.199.138',1191684445,1,0,1,1,1,1,'','L2Hex()','Antonio, \n\nTestando L2Hex() contida em ..\\source\\function\\or.c, utilizando o exemplo abaixo estou obtendo um valor diferente.\n\n[code:2ir0rl75]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\nlocal nHd&#58;=359532552, xHd&#58;=\'\'\n\n//nHd&#58;=nSerialHD&#40;&#41;\nxHd&#58;=L2Hex&#40; nHd  &#41;\n\nmsginfo&#40; xHd &#41;\n\nreturn nil\n\n[/code:2ir0rl75]\nValor apresentado: 156E080 (hexadecimal)\nO valor correto de xHd é: 156E0808 (hexadecimal)','',0,'AIA=','2ir0rl75',1,0,'',384,0,0),(39023,8357,19,66,0,'200.127.123.109',1191687201,1,0,1,0,1,0,'','','Estimado Colega\n\nMe podrias enviar mayor informacion\n\nGracias\nFabian\n<!-- e --><a href=\"mailto:Databaselab2002@yahoo.com.ar\">Databaselab2002@yahoo.com.ar</a><!-- e -->','',0,'AIA=','3ruo154r',1,0,'',66,0,0),(39024,8402,6,552,0,'201.14.23.163',1191687274,1,0,1,1,1,1,'','Antonio, Comportamiento mui estranho, Resolvido!','Gracias Antonio, \n\nLa ultima sugestão resolveu el problema que tenia en el GET.\n\nSaludos desde Barsil,','',0,'AIA=','2gfbg83h',1,0,'',552,0,0),(39025,8416,3,63,0,'88.0.164.66',1191687352,1,0,1,1,1,0,'','How to make a DLL','I am trying to make my first DLL but I feel quite lost.  For an start, I would like to include in it just a simple \"Hello World\" class wihich takes an array os strings and show then in a dialog.  This is an example of what I would like to accoplish:\n[code:urjgvy0v]CLASS Test FROM TDialog \n      export&#58; \n         METHOD New&#40;aTxt&#41; CONSTRUCTOR \n      hidden&#58; \n         METHOD Controles&#40;&#41; \nENDCLASS \n\n//&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;METHOD New&#40;aTxt&#41; CLASS Test \nDefault aTxt &#58;= &#123;&quot;Hello World!&quot;, &quot;Hello again&quot;&#125; \nSuper&#40;&#41;&#58;New&#40;0,0,60,80&#41; \nACTIVATE DIALOG Self CENTER ON INIT  &#58;&#58;Controles&#40;aTxt&#41; \nRETURN Self \n\n//&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472; \nMETHOD Controles&#40;aTxt&#41; CLASS Test \n@ 20, 0 SAY &quot;Tu mensaje dice&#58; &quot;+aTxt&#91;1&#93; SIZE &#58;&#58;nWidth, 20 PIXEL \n@ 50, 0 SAY &quot;Segunda linea&#58; &quot;+aTxt&#91;2&#93; SIZE &#58;&#58;nWidth, 20 PIXEL \nRETURN NIL[/code:urjgvy0v]\n\nCould anybody give me a few hints about how to proceed?  I have already searched in the forums but could no find any complete example  (for instance, the \\Samples\\Testdll.prg  refers to a \"buildhd.bat\" which I could not find anywhere)\n\nMany thanks\nRafael','',0,'AIA=','urjgvy0v',1,0,'',63,0,0),(39026,8405,6,228,0,'200.119.54.246',1191688373,1,0,1,1,1,1,'','Es posible...','Antonio\n\nEs posible colocar la barra de progreso dentro de unos de los PROMTS de la status bar?','',0,'AIA=','3n70k3hc',1,0,'',228,0,0),(39027,8407,3,343,0,'204.57.111.194',1191694787,1,0,1,1,1,0,'','','There is a utility \"whohasnt\" I use in windows environment. You need a certain level of access rights but it does work. You can also get onto server with remote desktop. Then run the computer management appllication. Then under Shared Folders you will find Open Files. Neither method will not tell you what record is locked, but you can see who has the file open and has at least one lock on that file.','',0,'AIA=','2xnxnnua',1,0,'',343,0,0),(39028,8221,3,904,0,'198.54.202.250',1191697624,1,0,1,1,1,1,'','','Hi Hua,\n\nI downloaded the Trial of List and Label.\n\nCan you help with some sample code with FWH.','',0,'AIA=','2f5v9j4v',1,0,'',904,0,0),(39029,2866,3,904,0,'198.54.202.246',1191698032,1,0,1,1,1,1,'','','Were you able to get List&amp;Label working?  Can you provide some sample code to show me how to use it with FWH?  I have downloaded the trial version.','',0,'AIA=','c5y6cvau',1,0,'',904,0,0),(39030,8221,3,233,0,'60.50.120.89',1191698076,1,0,1,1,1,0,'','','Sorry I can\'t help you there Ollie  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> . I came across it only recently and had yet look into it further. I guess you could try to email them and ask though, as I believed they are some Fivewinners using it','',0,'AIA=','3wgk1nyi',1,1191906030,'',233,2,0),(39031,8273,6,904,0,'198.54.202.250',1191698124,1,0,1,1,1,1,'','','Please can you provide some sample code to show how to use List &amp; Label with FWH. I have downloaded the trial version.','',0,'AIA=','zkwi0psr',1,0,'',904,0,0),(39032,8379,6,176,0,'200.61.143.131',1191702910,1,0,1,1,1,0,'','','Gracias Antonio lo probé y funciona pero en las funciones hay que ponerlo así:\n\nfunction BuildTitle( nAt ) \n\nreturn { || aImprimo[ nAt  ] } \n\nfunction BuildData( nAt, aArray ) \n\nreturn { ||  &amp;(aArray[ nAt ]) }\n\nHace como cuatro días que estoy con esto y no le encontraba la vuelta.\nOtra vez muchas Gracias\n\nLuis','',0,'','2gqfnkb9',1,0,'',176,0,0),(39033,8411,6,92,0,'217.125.163.77',1191705228,1,0,1,1,1,0,'','','Antonio,\n\n[quote=&quot;Antonio Linares&quot;:1yco6taa]GetTextWidth( 0, cTexto, oFont:hFont ) --&gt; nPixels[/quote:1yco6taa]\n\nViendo estas líneas, no sería posible crear una cláusula AUTOWIDTH para los SAY?\n\nAlgo así como:\n\"METHOD New( nRow, nCol, bText, oWnd, cPicture, oFont,;\n            lCentered, lRight, lBorder, lPixels, nClrText, nClrBack,;\n            nWidth, nHeight, lDesign, lUpdate, lShaded, lBox, lRaised, lAutoWidth ) CLASS TSay\n.../...\n\n    if lAutoWidth\n       ::nRight    = ::nLeft + GetTextWidth( 0, ::cCaption, ::oFont:hFont )  - 1\n    EndIf\n\n   if ::lDrag\n      ::CheckDots()\n   endif\n\nreturn Self\"\n\n\nSaludos\nCarlos G.','',0,'gA==','1yco6taa',1,0,'',92,0,0),(39034,8407,3,35,0,'65.188.6.143',1191708277,1,0,1,1,1,0,'','','Gale\n\nYou saying \'whohasnt\' works on a Windows 2003 server to find who has files open in a certain folder ..  I would very much be interested if you would not mind sharing ??\n\nRick Lipkin\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'gA==','3ddbi8gt',1,0,'',35,0,0),(39035,8221,3,138,0,'189.141.70.33',1191712038,1,0,1,1,1,1,'','','You will need a recent version of FiveWin because all the stuff is supported via OCX, you will need FiveWin\'s ActiveX support in order to use it.\n\nIn my opinion, L&amp;L is the most \"intelligent\" report designer for programers because it does what you need to be done, all programatically.\n\n-------------------------------------------\nCU in Santiago de Chile on Oct. 13th\nBuenos Aires from Nov. 3rd. to 5th.','',0,'gA==','3rwec2qv',1,0,'',138,0,0),(39036,2866,3,138,0,'189.141.70.33',1191712313,1,0,1,1,1,1,'','','Hummmmm, as far as I know, L&amp;L is an OCX component, not a COM one, I think you will need to call using the ActiveX support in FiveWin, not using the OLE standard support.\n\n--------------------------------\nCU in Santiago de Chile on Oct. 13th\nBuenos Aires from Nov. 3rd to 5th.','',0,'gA==','2egk6udz',1,0,'',138,0,0),(39037,8416,3,2,0,'87.218.146.51',1191712401,1,0,1,1,1,1,'','','Rafael,\n\nHere you have buildhd.bat:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/60774534/buildhd.zip.html\">http://rapidshare.com/files/60774534/buildhd.zip.html</a><!-- m -->','',0,'gA==','30sos3oa',1,0,'',2,0,0),(39038,8380,6,1072,0,'201.214.53.123',1191724588,1,0,1,1,1,0,'','','Amigo \"JCARO\"\n\nMe agrego a la solicitud que de A&amp;C, sobre el manual, creo que es de mucha utilidad,\n\nSaludos,\nAntonio','',0,'gA==','1sx2u1i2',1,0,'',1072,0,0),(39039,8380,6,396,0,'200.71.186.108',1191731145,1,0,1,1,1,1,'','','Tengo algo de MDI pero creo es un poco viejo, lo hizo Eduardo Rizzolo, si no hay problema diganme donde y como subirlo, es basico, pero funciona...es un pequeño manual en WORD. Igual me sumo a la solicitud de los otros colegas.... esto del MDI me tiene un poco loco, principalmente en el uso de las DBF. Gracias.!','',0,'gA==','2uwh80o0',1,0,'',396,0,0),(39040,8384,6,396,0,'200.71.186.109',1191732791,1,0,1,1,1,1,'','','Si mas no me equivoco los FRAMES son efectos que se usan en los dialogos, com si estubiera un hundimiento o algo sobre puesto, esto se hace segun los editores de recursos, yo los hacia con workshop en 16 bit, nose si es lo que desea el colega, es una propiedad muy usada en los visual...basic,, foxpro, etc....  espero a ver dado una idea y no estar perdido, es la unica parte donde he visto esa palabra FRAME...  lo encontre...\n\n[img]http://c:\\varios\\frame.jpg[/img]','',0,'CA==','1xy2xy18',1,0,'',396,0,0),(39041,2866,3,904,0,'196.25.255.250',1191756197,1,0,1,1,1,1,'','','PLEASE. Some sample code so I can see how to use List &amp; Label','',0,'CA==','1fxhdx37',1,0,'',904,0,0),(39042,8221,3,904,0,'198.54.202.250',1191756851,1,0,1,1,1,1,'','','Thanks Rene,\n\nPlease be more specific:\n\nWhat version of FiveWin do I need (for OCX support)\n\nHave you got some sample code I can see how it is used. I don\'t really know where to start.  I would appreciate any help you can give.','',0,'CA==','3dqqlcjh',1,0,'',904,0,0),(39043,8377,3,972,0,'81.164.117.81',1191768057,1,0,1,1,1,0,'','','Hello,\n\nI just tried the sample with xHarbour for BCC (Latest build from CVS) and latest FWH, but I still get this result:\n\n[img:3pxf2a63]http&#58;//www&#46;WinFakt&#46;be/Test_Background_Collors&#46;jpg[/img:3pxf2a63]\n\nI\'m using latest Windows Vista.\n\nAntonio, can you take a look please?\n\nThanks you.\n\nPatrick Mast\n<!-- m --><a class=\"postlink\" href=\"http://www.winfakt.be\">http://www.winfakt.be</a><!-- m -->','',0,'CA==','3pxf2a63',1,0,'',972,0,0),(39044,8417,3,972,0,'81.164.117.81',1191769242,1,0,1,1,1,0,'','Checkbox alignment not correct','Hello,\n\nPlease look at following small test application:\n[img:2vmsinvs]http&#58;//www&#46;WinFakt&#46;be/Checkbox_Alligment&#46;jpg[/img:2vmsinvs]\nNotice that the alignment for the chekboxes are not correct.\n\nThis is the PRG part of the reduced sampe to show this:\n[code:2vmsinvs]#include &quot;FiveWin&#46;ch&quot;\n\n#define CLR_GREY       14342874\n#define CLR_WHITE      16777215\n\nFunction wfMain&#40;&#41;\n   LOCAL oDlg, oRadio, lRadio&#58;=&#46;F&#46;\n   \n   DEFINE DIALOG oDlg NAME &quot;TEST_DIALOG&quot;          \n      \n   REDEFINE RADIO oRadio VAR lRadio ID 101 OF oDlg COLOR 0, CLR_WHITE \n   REDEFINE RADIO oRadio VAR lRadio ID 102 OF oDlg COLOR 0, CLR_WHITE \n                                     \n   ACTIVATE DIALOG oDlg CENTERED RESIZE16\n    \n   \nRETURN NIL[/code:2vmsinvs]\n\nAnd this is the RC part:\n[code:2vmsinvs]TEST_DIALOG DIALOG 21, 51, 271, 121\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test Dialog&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CHECKBOX &quot;Checkbox Right&quot;, 102, 16, 32, 90, 14, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Checkbox Left &#58;&quot;, 101, 17, 16, 80, 14, BS_AUTOCHECKBOX | BS_LEFTTEXT | WS_TABSTOP\n&#125;[/code:2vmsinvs]\n\nFor your convenience I have ZIP\'ed both files into this file:\n[url:2vmsinvs]http&#58;//www&#46;WinFakt&#46;be/Ckeckbox_Aligment&#46;zip[/url:2vmsinvs]\n\nThank you.\n\nPatrick Mast\n<!-- m --><a class=\"postlink\" href=\"http://www.winfakt.be\">http://www.winfakt.be</a><!-- m -->','',0,'GIA=','2vmsinvs',1,0,'',972,0,0),(39045,8417,3,6,0,'87.6.210.193',1191770559,1,0,1,1,1,1,'','Re: Checkbox alignment not correct','[code:2f6306xe] CHECKBOX &quot;Checkbox Right&quot;, 102, 16, 32, 80, 14, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Checkbox Left &#58;&quot;, 101, 16, 16, 80, 14, BS_AUTOCHECKBOX | BS_LEFTTEXT | WS_TABSTOP[/code:2f6306xe]\n\nEMG','',0,'AIA=','2f6306xe',1,0,'',6,0,0),(39046,8417,3,972,0,'81.164.117.81',1191771284,1,0,1,1,1,0,'','Re: Checkbox alignment not correct','[quote=&quot;EnricoMaria&quot;:1mvy3tym][code:1mvy3tym] CHECKBOX &quot;Checkbox Right&quot;, 102, 16, 32, 80, 14, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX &quot;Checkbox Left &#58;&quot;, 101, 16, 16, 80, 14, BS_AUTOCHECKBOX | BS_LEFTTEXT | WS_TABSTOP[/code:1mvy3tym]\n\nEMG[/quote:1mvy3tym]\n\nNot so simple Enrico <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nAs we do not know what string we will be using for the checkbox. So, the same RC will be used for a checkbox named like \"This is a checkbox here\" and  the other time it will be called for example \"test\". So, we set the width to the max we can do for that dialog. The checkbox should align the text just next to the checkbox itself.\n\nRunning test.exe should look like this no?\n[img:1mvy3tym]http&#58;//www&#46;WinFakt&#46;be/Checkbox_Alligment_OK&#46;jpg[/img:1mvy3tym]\n\nPatrick Mast\n<!-- m --><a class=\"postlink\" href=\"http://www.winfakt.be\">http://www.winfakt.be</a><!-- m -->','',0,'iIA=','1mvy3tym',1,0,'',972,0,0),(39047,8416,3,63,0,'88.0.164.66',1191772712,1,0,1,1,1,0,'','','Antonio:  \nThank you.  I could try \\Samples\\TestDll.prg and it works Ok.  \nNow, How can I pass one parameter to the called function?  Something like Main(my_parameter).  It would be great if the parameter could be an array.\nThanks\nRafael\n\n[/url]','',0,'','3ptks544',1,0,'',63,0,0),(39048,8416,3,879,0,'70.53.44.151',1191772758,1,0,1,1,1,0,'','','Antonio,\n\nA related question about the .bat file. One line that exists in both my copy dated April 2007 and the one you posted above dated Sept 2007 is:\n\n[code:33b50tjo]echo c0d32&#46;obj + %hdir%\\obj\\b32\\maindll&#46;obj + &gt; b32&#46;bc\n[/code:33b50tjo]\nI have looked everywhere for \"[b:33b50tjo]maindll.obj[/b:33b50tjo]\" but it does not exist in the specified folder or any other folder for that matter. Is this a missing file or, as I rather suspect, is no longer required?\n\nRegards,\n\nKen','',0,'QIA=','33b50tjo',1,0,'',879,0,0),(39049,8416,3,63,0,'88.0.164.66',1191773119,1,0,1,1,1,0,'','','Ken:  See Antonio\'s last answer in <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5809&amp;highlight=maindll\">http://fivetechsoft.com/forums/viewtopi ... ht=maindll</a><!-- m -->\nRegards,\nRafael','',0,'QIA=','33wbge0f',1,0,'',63,0,0),(39050,8401,3,879,0,'70.53.44.151',1191773319,1,0,1,1,1,0,'','','Enrico,\n\nWhere can further information be found regarding the use of these 2 functions? It is not in the 1.1 xHarbour manual nor the FiveWin Help files for 7.04. \n\nRegards,\n\nKen','',0,'QIA=','1v63s7qv',1,0,'',879,0,0),(39051,8401,3,6,0,'87.6.210.193',1191775166,1,0,1,1,1,1,'','','This is a sample:\n\n[code:xmwbit9q]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define SW_MAXIMIZE 3\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hWnd &#58;= FINDWINDOW&#40; 0, &quot;Main window title&quot; &#41;\n\n    IF !EMPTY&#40; hWnd &#41;\n        SHOWWINDOW&#40; hWnd, SW_MAXIMIZE &#41;\n    ELSE\n        ? &quot;Window not found&quot;\n    ENDIF\n\n    RETURN NIL[/code:xmwbit9q]\n\nEMG','',0,'AIA=','xmwbit9q',1,0,'',6,0,0),(39052,8401,3,6,0,'87.6.210.193',1191775279,1,0,1,1,1,1,'','','[quote=&quot;Ken Wantz&quot;:1fnn6879]Enrico,\n\nWhere can further information be found regarding the use of these 2 functions? It is not in the 1.1 xHarbour manual nor the FiveWin Help files for 7.04. \n\nRegards,\n\nKen[/quote:1fnn6879]\n\nBoth functions are documented inside fwfun.chm.\n\nEMG','',0,'gA==','1fnn6879',1,0,'',6,0,0),(39053,8417,3,6,0,'87.6.210.193',1191775442,1,0,1,1,1,1,'','Re: Checkbox alignment not correct','Sorry Patrick but I really don\'t understand your problem.\n\nEMG','',0,'gA==','3m8p60ef',1,0,'',6,0,0),(39054,8416,3,2,0,'87.218.146.51',1191777467,1,0,1,1,1,1,'','','Rafael,\n\nIt looks as you want to create a pcode DLL, so you need to review FWH\\samples\\TestDLLP.prg and pcodeDLL.prg\n\nPlease read this doc to understand the three different kinds of DLLs that Harbour can use:\n\n/*\n * $Id: windll.txt 5836 2002-12-28 00:32:44Z brianhays $\n */\n\nWindows 32-bit DLLs with Harbour code\n=====================================\n\nPrograms created with Clipper or Harbour are traditionally a\nmonolithic EXE containing all executable code.  This includes\nthe Virtual Machine (VM) and the RunTime Library (RTL) as well as\nyour own code.  Running under Windows (Win32) with Harbour, you\ncan now also create and use Windows DLLs that contain PRG code.\n\nHarbour supports Win32 DLLs in 3 ways.\n\n  1) Self-contained DLLs containing functions from any platform.\n     (These are not what we call a \"Harbour.dll\", although they may\n     be named that. The DLL entry points are different.)\n     These have the VM/RTL inside them and can be used by any other\n     Windows program. You can create a .lib for static linking,\n     or use GetProcAddress as in any standard Win32 DLL.\n     Calling Harbour/Prg functions directly is limited to\n     those that take no parameters unless you include C functions\n     in the DLL that take parameters and then call the PRG-level\n     code.\n\n     To do static linking, do this to create the .lib:\n        implib harbour.lib harbour.dll\n     For the Borland C platform, use that library and import32.lib\n     and cw32.lib from Borland, and you are ready to go.\n\n     See contrib\\delphi\\hbdll for an example of a Delphi program that can\n     use all of Harbour\'s functionality by accessing a self-contained DLL.\n     BLD_SDLL.BAT is used there to create the DLL.\n\n\n  2) PCode EXEs using a Harbour.dll\n\n     A Harbour.dll is designed to be called from a Harbour app.\n     A pcode EXE is a small Harbour executable that does not contain the\n     VM/RTL. To execute its functions, it must load and access a\n     Harbour.dll.\n     If you want dynamic linking, then use this to execute a Harbour\n     dynamically loaded pcode DLL function or procedure:\n        HB_DllDo( &lt;cFuncName&gt; [,&lt;params...&gt;] ) --&gt; [&lt;uResult&gt;]\n\n     This lets you have all your common code in a DLL, and have lots\n     of small EXEs that use it.  Realize however that, even though this\n     may be a nice way to manage your code, each EXE may\n     load its own image of the Harbour.dll into memory at runtime.\n     In terms of Windows memory, there may not be a benefit to using pcode\n     EXEs over monolithic EXEs. But it may be a worthwhile maintenance\n     benefit to have lots of replaceable small exes.\n\n  3) PCode DLLs used from traditional EXEs\n     A pcode DLL does not contain the VM/RTL.\n     It is a library of Harbour-compiled PRG code that uses the VM/RTL\n     of the EXE that calls it.  This has the benefit of having\n     replaceable modules in DLLs that don\'t necessarily require updating\n     your EXE.\n\n\nThe following is clipped from a msg by Antonio Linares to the Harbour\ndeveloper list explaining some of the details:\n\nPlease notice that there are three different Windows DLL entry points:\n   + source/vm/\n   * maindll.c     Windows self-contained DLL entry point\n   * maindllh.c    Windows Harbour DLL entry point  (harbour.dll)\n   * maindllp.c    Windows pcode DLL entry point and VM/RTL routing functions\n\n   &gt;    * maindll.c     Windows self-contained DLL entry point\n   To produce Harbour code, as DLLs, that may be used\n   from other programming languages applications (as VB,\n   Delphi, C++, etc...)\n\n   &gt;    * maindllh.c    Windows Harbour DLL entry point  (harbour.dll)\n   To produce Harbour.dll, to be just used from small pcode Harbour EXEs\n\n   &gt;    * maindllp.c    Windows pcode DLL entry point and VM/RTL routing\n   To produce small pcode DLLs, to be used just from Harbour EXE apps.\n   maindllp.c is the entry point for the Harbour pcode DLLs. pcode DLLs\n   are quite small DLLs, that just contain pcode and/or C (using extend\n   api) functions.\n\n   mainwin.c is the entry point for Windows EXEs, not for DLLs.\n\n   You may use maindll.c, maindllh.c or maindllp.c based on\n   your needs.\n\n   If you are looking to build a Harbour.dll, then you must use\n   maindllh.c','',0,'','2gap7hyq',1,0,'',2,0,0),(39055,8416,3,2,0,'87.218.146.51',1191777646,1,0,1,1,1,1,'','','Rafael,\n\nAnd here you have the required buildhdp.bat:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/60934949/buildhdp.zip.html\">http://rapidshare.com/files/60934949/buildhdp.zip.html</a><!-- m -->\n\nAnd the required maindllp.obj:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2460&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=maindllp%2A\">http://fivetechsoft.com/forums/viewtopi ... aindllp%2A</a><!-- m -->','',0,'','3nymbqrt',1,0,'',2,0,0),(39056,8401,3,2,0,'87.218.146.51',1191778111,1,0,1,1,1,1,'','','Ken,\n\nBesides Enrico\'s example, please review FWH\\samples\\ShowApp.prg also','',0,'','cs8etvar',1,0,'',2,0,0),(39057,8052,7,2,0,'87.218.146.51',1191778524,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5603&amp;highlight=zip\">http://fivetechsoft.com/forums/viewtopi ... hlight=zip</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6303&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=zip\">http://fivetechsoft.com/forums/viewtopi ... hlight=zip</a><!-- m -->','',0,'','1e807ez1',1,0,'',2,0,0),(39058,8377,3,2,0,'87.218.146.51',1191778833,1,0,1,1,1,1,'','','Patrick,\n\nIf you are going to use themes in your app, then you need to add these lines in your RC:\n[code:3qk8jsf3]\n#ifdef __FLAT__\n   1 24 &quot;WindowsXP&#46;Manifest&quot; \n#endif\n[/code:3qk8jsf3]','',0,'AIA=','3qk8jsf3',1,0,'',2,0,0),(39059,8416,3,63,0,'88.0.164.66',1191779533,1,0,1,1,1,0,'','','Antonio:\nIn fact, I am trying to write a function in FWH than can be called from a VisualBasic program.  I have been told that VB can not link external objects of Libs (at least, that\'s what muy customer says) and, tehrefore, the only way to incorporate my function to his program is through a DLL.\n\nI had already read the document you included and I think the DLL I need is type 1) , not pcode.  Or may be it is?\n\nRafael','',0,'AIA=','1jhr67nu',1,0,'',63,0,0),(39060,8417,3,303,0,'72.220.100.171',1191780929,1,0,1,1,1,0,'','','Patrick,\n\nIt seems you defined them as checkboxes in the RC then redefined them as radios in your code. What that intentional, and if so, why?\n\nJames','',0,'AIA=','1ujl9qkm',1,0,'',303,0,0),(39061,8377,3,303,0,'72.220.100.171',1191781475,1,0,1,1,1,0,'','','Antonio,\n\n&gt;If you are going to use themes in your app, then you need to add these lines in your RC: \n\nCould you explain this more. I never have used the #ifdef __FLAT__  condition. Is this so your program works properly with and without themes? What does FLAT signify?\n\nJames','',0,'AIA=','m7hiy74m',1,0,'',303,0,0),(39062,8417,3,972,0,'81.164.117.81',1191783270,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:1jou1fb9]Patrick,\n\nIt seems you defined them as checkboxes in the RC then redefined them as radios in your code. What that intentional, and if so, why?\nJames[/quote:1jou1fb9]\n\nOops, that\'s a TYPO.. Damned, sorry. But the problem remains, the text of the checkboxes should be RIGHT or LEFT aligned.\n\nPatrick','',0,'gA==','1jou1fb9',1,0,'',972,0,0),(39063,8416,3,2,0,'87.218.146.51',1191783320,1,0,1,1,1,1,'','','Rafael,\n\nYes, you need type 1, as it has to include the VM/RTL to make it self-contained, so you can use it from any EXE (VB, etc.)','',0,'gA==','7718dur1',1,0,'',2,0,0),(39064,8417,3,972,0,'81.164.117.81',1191783347,1,0,1,1,1,0,'','Re: Checkbox alignment not correct','[quote=&quot;EnricoMaria&quot;:2ypghxu7]Sorry Patrick but I really don\'t understand your problem.\nEMG[/quote:2ypghxu7]\n\nSimple, if I use a checkbox RIGHT aligned (So that the checkbox is on the RIGHT hand side of the text), the text should ALSO e right aligned, and not left.\n\nPatrick','',0,'gA==','2ypghxu7',1,0,'',972,0,0),(39065,8416,3,2,0,'87.218.146.51',1191783497,1,0,1,1,1,1,'','','Rafael,\n\nIf you review inside Harbour\'s maindll.c module, you find these functions (they show the way to get into the DLL from outside):\n[code:27iwxtzt]\nHB_EXPORT LONG PASCAL HBDLLENTRY&#40; char * cProcName &#41;\n&#123;\n   hb_itemDoC&#40; cProcName, 0, 0 &#41;;\n\n   return 0;\n&#125;\n\nHB_EXPORT LONG PASCAL HBDLLENTRY1&#40; char * cProcName, LONG pItem &#41;\n&#123;\n   hb_itemDoC&#40; cProcName, 1, &#40; PHB_ITEM &#41; pItem, 0 &#41;;\n\n   return 0;\n&#125;\n\nHB_EXPORT LONG PASCAL HBDLLENTRY2&#40; char * cProcName, LONG pItem1, LONG pItem2 &#41;\n&#123;\n   hb_itemDoC&#40; cProcName, 2, &#40; PHB_ITEM &#41; pItem1, &#40; PHB_ITEM &#41; pItem2, 0 &#41;;\n\n   return 0;\n&#125;\n[/code:27iwxtzt]\nWhat parameters do you want to send from VB to the DLL ?','',0,'AIA=','27iwxtzt',1,0,'',2,0,0),(39066,8417,3,303,0,'72.220.100.171',1191783963,1,0,1,1,1,0,'','','Patrick,\n\n&gt;Simple, if I use a checkbox RIGHT aligned (So that the checkbox is on the RIGHT hand side of the text), the text should ALSO e right aligned, and not left. \n\nYou say it \"should be\" but I am not sure. Is this because this is the way you would like it to be, or because this is the way other Windows apps are showing? Because this is a Windows common control, we are limited as to how it works. Can you show us an example from another application where the checkbox is being displayed the way you think it should be? Or, are all other apps displaying it the same way as FWH?\n\nJames','',0,'AIA=','208evwle',1,0,'',303,0,0),(39067,8377,3,2,0,'87.218.146.51',1191783990,1,0,1,1,1,1,'','','James,\n\nBorland RC compiler (and bcc32.exe too) provides the __FLAT__ define, so the resources editors will not include the file (as Borland resources workshop doesn\'t know how to manage it) but it will be compiled into the final RES and placed into the EXE\n\nIts just a \"trick\" to bypass the RC editors, but include it in the final RES.\n\nAlso, as 16 bits doesn\'t provide __FLAT__ then the file is not included in the final RES 16 bits (as 16 bits apps don\'t support themes).\n\n__FLAT__ stands for \"flat\" memory model (32 bits)','',0,'AIA=','pm96nr50',1,0,'',2,0,0),(39068,8221,3,1146,0,'87.223.165.178',1191785097,1,0,1,1,1,0,'','','Paco, from canal-5, is preparing a report designer!!!.','',0,'AIA=','1hz23jzh',1,0,'',1146,0,0),(39069,8273,6,1146,0,'87.223.165.178',1191785221,1,0,1,1,1,0,'','','Paco, de canal-5, está preparando un diseñador de informes!!!.','',0,'AIA=','117obpfy',1,0,'',1146,0,0),(39070,8377,3,303,0,'72.220.100.171',1191786678,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Its just a \"trick\" to bypass the RC editors, but include it in the final RES. \n\nI have been editing the RES file instead of the RC. Is there a problem with doing this? It seems to be working fine.\n\nJames','',0,'AIA=','1xki0f92',1,0,'',303,0,0),(39071,8401,3,879,0,'70.53.44.151',1191786759,1,0,1,1,1,0,'','','Thanks Enrico and Antonio,\n\nAnother stupid leson learned. I was doing a search for FIND expecting all possibilities to be listed. Instead, I got 5 completely different titles.\n\nThat will teach me that shortcuts do not always work.\n\nRegards,\n\nKen','',0,'AIA=','3sgoa71a',1,0,'',879,0,0),(39072,8377,3,2,0,'87.218.146.51',1191789347,1,0,1,1,1,1,'','','James,\n\n&gt;\nI have been editing the RES file instead of the RC. Is there a problem with doing this? It seems to be working fine.\n&gt;\n\nThats fine too. I prefeer to use RC as it is ascii so you can use any tool like notepad, your source code editor, etc. to review it and modify it','',0,'AIA=','1agtaqzk',1,0,'',2,0,0),(39073,8221,3,2,0,'87.218.146.51',1191789476,1,0,1,1,1,1,'','','Moises,\n\nIts sadly to say it, but Paco has started lots of projects that he never ended','',0,'AIA=','1kjxaz1m',1,0,'',2,0,0),(39074,8417,3,6,0,'82.57.161.36',1191790696,1,0,1,1,1,1,'','Re: Checkbox alignment not correct','[quote=&quot;Patrick Mast&quot;:2ltypnh8]Simple, if I use a checkbox RIGHT aligned (So that the checkbox is on the RIGHT hand side of the text), the text should ALSO e right aligned, and not left.\n\nPatrick[/quote:2ltypnh8]\n\nAs James suspected, this is not how Windows checkboxes work.\n\nEMG','',0,'gA==','2ltypnh8',1,0,'',6,0,0),(39075,8418,3,51,0,'80.122.88.242',1191790721,1,0,1,1,1,0,'','EasyReport / FWH 7.09','Could someone please tell me how to link EasyReport with FWH.\nThanks in advance\nOtto','',0,'gA==','1639r4bl',1,0,'',51,0,0),(39076,8419,6,960,0,'84.125.196.99',1191791117,1,0,1,1,1,0,'','Zoom tamaño 2 en clase TPRINT','EStimados compañeros:\n\nCuando visualizo un PREVIEW en la clase TPRINT necesito que por defecto el zoom esté activo, sin necesidad, por tanto, que el usuario tenga que hacer doble-click sobre el folio para ampliar.\n\n¿Es posible? ¿Como sería? Estuve resivando la carpeta SAMPLE pero no vi nada.\n\nMil gracias. LORENZO','',0,'gA==','30ru7pqw',1,0,'',960,0,0),(39077,8273,6,2,0,'87.218.146.51',1191791351,1,0,1,1,1,1,'','','Moises,\n\nEs triste decirlo, pero Paco ha comenzado y anunciado un montón de proyectos que luego no ha terminado y han quedado en el olvido','',0,'gA==','1l73cjxu',1,0,'',2,0,0),(39078,8416,3,63,0,'88.0.164.66',1191791896,1,0,1,1,1,0,'','','Antonio:  Thanks to your suggestions, my DLL is working now!!!  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->))  When called from an FWH program, I can now display a \"Hello World\" dialog.  Many thanks!\n\nHowever, I would like to be able to call this DLL from an application written in Visual Basic.  I have been reviewing your exchange with maurucio jornao in december 28, 2005 and it seems to me that this is going to be much more complicated.  I am not proficient in C. Could you suggest an easy way to do it or I just better forget about the whole thing?\n\nThanks again \n\nRafael','',0,'gA==','1dlehmk9',1,0,'',63,0,0),(39079,8416,3,2,0,'87.218.146.51',1191792254,1,0,1,1,1,1,'','','Rafael,\n\nWhat types of values do you want to send from VB to the DLL, and what type of value do you want to return from the DLL ?','',0,'gA==','200l5tyw',1,0,'',2,0,0),(39080,8420,6,960,0,'84.125.196.99',1191792320,1,0,1,1,1,0,'','Error al compilar con AJMAKER','Estimados compañeros:\n\nTengo un problema raro:\nCuando compilo en mi PC Sobremesa NO tengo problemas, pero cuando compilo el mismo proyecto con mi PC Portatil me genera el siguiente error:\n\nError: \'C:\\PROGRAMACION\\MANZANARES\\MENU.RES\' contains invalid OMF record, type 0x00\n\nNo son problemas de PATH ni de configuración de AJMAKER. Según este enlace:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/viewtopic.php?t=7332&amp;view=next&amp;sid=9eb95df5aa61d8947605281708477da0\">http://www.fivetechsoft.com/forums/view ... 1708477da0</a><!-- m -->\nel problema lo tiene una COMA en el archivo MANZANARES.MAK.BC, cuya 2 ultimas lineas son:\n\n\"C:\\Borland\\BCC55\\Lib\\import32.lib\", \n\"C:\\programacion\\Manzanares\\menu.res\"\n\nPrecisamente cuando compilo con el PC PORTATIL, al generarse este fichero la COMA no aparece y genera, por tanto, el ERROR.\n¿ COMO es posible ? ¿Que explicación tiene esto?\n\nMil gracias. LORENZO','',0,'gA==','np7w3dgk',1,0,'',960,0,0),(39081,8416,3,63,0,'88.0.164.66',1191792624,1,0,1,1,1,0,'','','Antonio:\nI would like to pass at least one string; better two strings and better yet, an array of strings (although I guess this may be more difficult)\n\nRafael','',0,'gA==','9ag83iv6',1,0,'',63,0,0),(39082,8421,3,80,0,'202.72.164.124',1191803702,1,0,1,1,1,0,'','MDI Window','To All\n\nHow do I bring an allready open MDI window back into focus - I have\na particular user who wont check to see if he has a window allready open - he just keeps openning new ones.\n\nThanks for any help\n\nCheers\n\nColin','',0,'gA==','rk8ebt0e',1,0,'',80,0,0),(39083,8422,6,1072,0,'201.214.54.36',1191804576,1,0,1,1,1,0,'','Ayuda URGENTE Menu con Opcion de Macros','Amigos:\n\nTengo una base de datos con las opciones del Menu del Sistema,  cargo en arreglo todas las opciones. El menu muestra correctamente todas las opciones y barra de iconos, pero el problema es el siguiente:\n\n. NO EJECUTA LA ACCION, QUE ESTA CARGADA EN EL ARREGLO, POR EJEMPLO: PRINTERSETUP(), CLIENTES(). PRECIONO EL ICONO, O LA OPCION DEL MENU Y NADA.\n\n¿Cual es el Error ?\n\nSaludos,\nAntonio\n  Aqui se genera el menu de barra\n   For i=1 to b\n       if val(cCod_men[i])&lt;888\n          DEFINE BUTTON OF oBar  ;\n                 TOOLTIP (cDet_msg[i])  NOBORDER FILE cUbi_ico[i];\n                 ACTION (cAcc_opc[i])  // Esta Opcion no se ejecuta\n       else\n          DEFINE BUTTON OF oBar  ;\n                 TOOLTIP (cDet_msg[i])  FILE cUbi_ico[i];\n                 ACTION (cAcc_opc[i])  // Esta Opcion no se ejecuta\n       endif\n   Next (i)','',0,'','1g0615wj',1,0,'',1072,0,0),(39084,8422,6,552,0,'201.14.23.163',1191805445,1,0,1,1,1,1,'','','Amigo, mira las lineas abajo, é assim que hago:\n\n[code:1gi3s23k]\n\n   @ nlin, 130&#46;4 HBUTTON m-&gt;bBtn&#91;nbt&#93; PROMPT Var_&#91;2&#93; + CRLF + Var_&#91;3&#93; OF oWnd SIZE 160, 80 FONT m-&gt;oFont;\n      ACTION&#40; IF&#40; !Empty&#40; Var_&#91;8&#93; &#41;,;\n      &#40; IF&#40; Verpriore&#40; Var_&#91;6&#93;, Var_&#91;7&#93; &#41;, &#40;&amp;&#40;Var_&#91;8&#93;&#41;&#40; oWnd, dCod, pvalorf, &#46;f&#46; &#41;&#41;, nil &#41;&#41;, nil &#41;&#41;;\n          TOOLTIP Var_&#91;4&#93; CANCEL;\n      COLORS &#123; |oB| IF&#40; oB&#58;lMouseOver,CLR_WHITE, CLR_BLACK &#41;&#125;,;\n             &#123; |oB| IF&#40; oB&#58;lMouseOver, &#123;CLR_WHITE,CLR_BLUE &#125;,;\n                                       &#123;CLR_HGRAY,CLR_HGRAY&#125; &#41; &#125; BORDER TEXT POSITION ON_RIGHT\n[/code:1gi3s23k]\n\nEspero de ajude, Saludos desde Brasil,','',0,'AIA=','1gi3s23k',1,0,'',552,0,0),(39085,8404,6,105,0,'200.112.46.129',1191805520,1,0,1,1,1,1,'','','Julio...\n\nSeria mucho que trataras de coordinar con algun otro fivewinner de Stgo. la posibilidad de conseguirse un salon de reuniones para juntarnos con Rene, si hubiera que ponerse con alguna cuota, no creo que existan problemas, siempre y cuando sea moderada.\n\nEso.. atento al lupo..\n\nDesde Chile\n\nAdolfo','',0,'AIA=','1nue0k1l',1,0,'',105,0,0),(39086,8422,6,1072,0,'201.214.54.36',1191809481,1,0,1,1,1,0,'','','laugusto:\n\nMuchas gracias por tu respuesta.\n\nUso el Menu estilo Xp, y su libreria MENUXH.LIB, y no logro solucionar el problema, lo uso asi ACTION (cAcc_opc[i]), o con macro ACTION &amp;(cAcc_opc[i])) no lo acepta.\n\nSigo muy complicado,\n\nSaludos\nAntonio\n\nAl Usar la &amp;, tengo este error al ejecutar el icono PRINTERSETUP()\n\n***\nApplication\n===========\n   Path and name: c:\\sistemas\\menu.Exe (32 bits)\n   Size: 1,294,336 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 07/10/2007, 22:03:49\n   Error description: Error BASE/1065  Argument error: &amp;\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from: menu.prg =&gt; (b)MAIN(85)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3164)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TMDIFRAME:ACTIVATE(883)\n   Called from: menu.prg =&gt; MAIN(107)','',0,'','3oodwb5n',1,0,'',1072,0,0),(39087,8377,3,190,0,'124.7.24.62',1191814103,1,0,1,1,1,0,'','','Hello Patrick\n\nJust add TRANSPARENT clause as under.  You will get the expected\nresult in all versions of Windows.  If you want the dialog to be \ntheme enabled, add the fillowing lines in your RC file.\n\n#ifdef __FLAT__ \n   1 24 \"WindowsXP.Manifest\" \n#endif \n\nDEFINE DIALOG oDlg NAME \"TEST_DIALOG\" [color=blue:1jah2src]TRANSPARENT[/color:1jah2src]\n\nThe output would be:\n\n[img:1jah2src]http&#58;//img239&#46;imageshack&#46;us/img239/8136/testdw2&#46;png[/img:1jah2src]\n\n- Ramesh Babu P','',0,'Cg==','1jah2src',1,0,'',190,0,0),(39088,8421,3,303,0,'72.220.100.171',1191815618,1,0,1,1,1,0,'','','Colin,\n\nThat is just one of many reasons I avoid using MDI.\n\nHere is how I used to deal with this problem.\n\n[code:96qfqlgq]         MENUITEM &quot;&amp;New Order&#46;&#46;&#46;	Ctrl+N&quot; RESOURCE &quot;new&quot;;\n            ACTION if&#40; ! wndSetFocus&#40;&#58;&#58;oWnd,&quot;Order&quot;&#41;, Torder&#40;&#41;&#58;new&#40;&#41;&#58;add&#40;&#41;,&#41;\n\n\n// Sets focus to child MDI window with cTitle\nstatic function wndSetFocus&#40;oWnd,cTitle&#41;\n   local i&#58;=0,lSuccess&#58;=&#46;f&#46;\n   cTitle&#58;=upper&#40;cTitle&#41;\n   for i=1 to len&#40;oWnd&#58;oWndClient&#58;aWnd&#41;\n      if upper&#40; oWnd&#58;oWndClient&#58;aWnd&#91;i&#93;&#58;cCaption &#41;=cTitle\n         oWnd&#58;oWndClient&#58;aWnd&#91;i&#93;&#58;setFocus&#40;&#41;\n         lSuccess&#58;=&#46;t&#46;\n      endif\n   next\nreturn lSuccess[/code:96qfqlgq]\n\n\nRegards,\nJames','',0,'AIA=','96qfqlgq',1,0,'',303,0,0),(39089,8423,3,190,0,'124.7.24.62',1191822199,1,0,1,1,1,0,'','Incremental search routine using Tsbrowse needed','Hi friends\n\nCan anybody share the Incremental Search routine using TsBrowse.\n\nI have a get and as i keep entering values in the get, the same values\nshould be searched in the attached Tsbrowser.\n\nThanks\n\n- Ramesh Babu P','',0,'AIA=','15il5pt9',1,0,'',190,0,0),(39090,8424,3,868,0,'219.64.121.60',1191825359,1,0,1,1,1,1,'','Print Preview in MDI environment','While rpreview is working well normally, when used in MDI environment, it is showing distorted view of the output. Here is a sample program. When I compile the main window as SDI preview works well. But when I complile the main window as MDI window, though the preview window appears nicely as an mdi child, the output is totally distorted. Is this happening to me only? \n\nCan any one kindly help me out? All my major software is in MDI environment.\n\nI am using FWH 7.09 with BCC xHarbour binaries provided by FiveWin.\n\n[code:1eu4zr27]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define MDIWIN\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oWnd,oBar\n\n#ifdef MDIWIN\n   DEFINE WINDOW oWnd MDI TITLE &quot;PREVIEW MDI WINDOW&quot;\n#else\n   DEFINE WINDOW oWnd TITLE &quot;PREVIEW SDI WINDOW&quot;\n#endif\n   DEFINE BUTTONBAR oBar OF oWnd\n   DEFINE BUTTON OF oBar PROMPT \'1\' ACTION PrintPV0&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nRETURN NIL\n\nSTATIC FUNCTION PrintPV0&#40;&#41;\n\n   LOCAL oPrn, oFont\n\n   PRINT oPrn PREVIEW\n      DEFINE FONT oFont NAME \'ARIAL\' SIZE 0,-10 OF oPrn\n      PAGE\n         oPrn&#58;Say&#40; 100, 100, &quot;Test&quot; , oFont &#41;\n         oPrn&#58;Say&#40; 150, 100, &quot;SECOND LINE&quot; , oFont &#41;\n\n      ENDPAGE\n   ENDPRINT\n   oFont&#58;End&#40;&#41;\n\nRETURN NIL\n[/code:1eu4zr27]\n\nRegards','',0,'AIA=','1eu4zr27',1,0,'',868,0,0),(39091,8416,3,2,0,'87.218.146.51',1191825504,1,0,1,1,1,1,'','','Rafael,\n\nYou could send just one string using a format similar like this:\n\n\"one;two;three;four;five\"\n\nso you will be able to build an array from it inside the DLL. Is that ok for you ?','',0,'AIA=','xlyutwql',1,0,'',2,0,0),(39092,8425,3,261,0,'63.197.46.139',1191825663,1,0,1,1,1,1,'','What version of xHarbour with Fivewin 7.01','I am having problems with a program that seems to get the famous \'Tell Microsoft about this problem\' message.  What version of xHB Builder is best to use with Fivewin 7.01?\n\nThanks,','',0,'AIA=','3i1ml5cm',1,0,'',261,0,0),(39093,8421,3,80,0,'58.6.0.71',1191826252,1,0,1,1,1,0,'','MDI','Hi James\n\nThanks for that - works great.  \n\nCheers\n\nColin','',0,'AIA=','2so5mjfy',1,0,'',80,0,0),(39094,8416,3,2,0,'87.218.146.51',1191826304,1,0,1,1,1,1,'','','To do it, just include this function in your DLL:\n\n[code:1yp7f2kq]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;hbapiitm&#46;h&gt;\n\nHB_EXPORT LONG PASCAL TEST&#40; char * cProcName, char * cParam &#41; \n&#123; \n   PHB_ITEM pItem = hb_itemPutC&#40; NULL, cParam &#41;;\n\n   hb_itemDoC&#40; cProcName, 1, &#40; PHB_ITEM &#41; pItem, 0 &#41;; \n   hb_itemRelease&#40; pItem &#41;;\n\n   return 0; \n&#125;\n\n#pragma ENDDUMP\n[/code:1yp7f2kq]\n\nFrom VB you have to declare:\n\nDeclare Function TEST Lib \"MyDLL.dll\" (ByVal cProcName As String, ByVal cParam As String ) As Long','',0,'AIA=','1yp7f2kq',1,0,'',2,0,0),(39095,8425,3,2,0,'87.218.146.51',1191826733,1,0,1,1,1,1,'','','Byron,\n\nFWH 7.01 was published in January 2007. So you need the xHB from that date.','',0,'AIA=','1xalfgxe',1,0,'',2,0,0),(39096,8221,3,904,0,'196.25.255.194',1191827339,1,0,1,1,1,1,'','','Huh?  \n\nI\'m starting to get a bit desperate here - can anyone help? \n\nWhat version of FiveWin do I need (for OCX support for List&amp;Label)\n\nDoes anyone have any sample code to show me how to use it in FWH? I  really don\'t know where to start. I would appreciate any help.','',0,'AIA=','ldd6tlsm',1,0,'',904,0,0),(39097,8424,3,2,0,'87.218.146.51',1191827402,1,0,1,1,1,1,'','','NageswaraRao,\n\nComment out this line in source\\classes\\rpreview.prg line 1261:\n[code:1qgkzwi7]\n   if ! &#58;&#58;lZoom &#46;and&#46; ! lInit\n      // &#58;&#58;Zoom&#40; &#46;T&#46; &#41;    A&#46;L&#46; 08 Oct 2007\n   endif\n[/code:1qgkzwi7]','',0,'AIA=','1qgkzwi7',1,0,'',2,0,0),(39098,8273,6,904,0,'198.54.202.194',1191827436,1,0,1,1,1,1,'','','I\'m starting to get a bit desperate here - can anyone help? \n\nWhat version of FiveWin do I need (for OCX support for List&amp;Label)\n\nDoes anyone have any sample code to show me how to use it in FWH? I  really don\'t know where to start. I would appreciate any help.\n\n--------------\n\nEstoy empezando a tener un poco desesperada aquí, ¿puede alguien ayudarme? \n\n¿Qué versión de FiveWin lo que necesito (para OCX apoyo a la lista y etiqueta) \n\n¿Alguien tiene algún código de ejemplo para mostrar cómo utilizarlo en FWH? Realmente no sé por dónde empezar. Le agradecería cualquier ayuda.','',0,'AIA=','190j3fwf',1,0,'',904,0,0),(39099,8273,6,2,0,'87.218.146.51',1191827519,1,0,1,1,1,1,'','','Ollie,\n\nIt looks as Maurizio (<!-- e --><a href=\"mailto:info@nipeservice.com\">info@nipeservice.com</a><!-- e -->) already uses it with FWH.\n\nMaurizio, could you help us ? Thanks','',0,'AIA=','2mazw37y',1,0,'',2,0,0),(39100,8221,3,2,0,'87.218.146.51',1191827540,1,0,1,1,1,1,'','','Ollie,\n\nIt looks as Maurizio (<!-- e --><a href=\"mailto:info@nipeservice.com\">info@nipeservice.com</a><!-- e -->) already uses it with FWH.\n\nMaurizio, could you help us ? Thanks','',0,'AIA=','s9j0xefh',1,0,'',2,0,0),(39101,8423,3,2,0,'87.218.146.51',1191827747,1,0,1,1,1,1,'','','Ramesh,\n\nHere you have it. In this example a GET is not needed, but you may easily add it:\n[code:143l672h]\n#include &quot;FiveWin&#46;ch&quot;\n\nREQUEST DBFCDX\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oBrw, hBmp &#58;= ReadBitmap&#40; CurDir&#40;&#41; + &quot;\\go&#46;bmp&quot; &#41;\n   local oSay, cSearch &#58;= &quot;&quot;\n\n   USE &#40; CurDir&#40;&#41; + &quot;\\Customer&quot; &#41; VIA &quot;DBFCDX&quot;\n   if ! File&#40; CurDir&#40;&#41; + &quot;\\LAST&#46;CDX&quot; &#41;\n      INDEX ON Customer-&gt;Last TO &#40; CurDir&#40;&#41; + &quot;\\LAST&quot; &#41;\n   endif   \n   Customer-&gt;&#40; OrdSetFocus&#40; &quot;LAST&quot; &#41; &#41;\n   Customer-&gt;&#40; DbGoTop&#40;&#41; &#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;IncSearch&quot;\n   \n   @ 1, 1 LISTBOX oBrw ;\n      FIELDS hBmp, Customer-&gt;Last, Customer-&gt;First ;\n      HEADERS &quot;&quot;, &quot;Last&quot;, &quot;First&quot; ;\n      SIZE 220, 167\n   \n   oBrw&#58;bKeyChar = &#123; | nKey, nFlags | Search&#40; nKey, @cSearch &#41;, oBrw&#58;Refresh&#40;&#41;,;\n                                      oSay&#58;Refresh&#40;&#41; &#125; \n   \n   @ 14,  2 SAY &quot;Searching&#58;&quot; SIZE 60, 30\n   @ 14, 12 SAY oSay PROMPT cSearch SIZE 80, 30\n   \n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo&#40; &quot;Click!&quot; &#41;\n   \nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Search&#40; nKey, cSearch &#41;\n\n   if nKey = 8 \n      cSearch = SubStr&#40; cSearch, 1, Len&#40; cSearch &#41; - 1 &#41; \n   else \n      cSearch += Upper&#40; Chr&#40; nKey &#41; &#41; \n   endif\n    \n   Customer-&gt;&#40; DbSeek&#40; cSearch, &#46;t&#46; &#41; &#41; \n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:143l672h]','',0,'AIA=','143l672h',1,0,'',2,0,0),(39102,8422,6,2,0,'87.218.146.51',1191828588,1,0,1,1,1,1,'','','Prueba a hacerlo así:\n\ncAction = cAcc_opc[i]\n\n... ACTION &amp;cAction','',0,'','10emtvec',1,0,'',2,0,0),(39103,8424,3,868,0,'219.64.121.60',1191828594,1,0,1,1,1,1,'','','Thanks Mr. Antonio for your immediate reply. Yes, after commenting out ::Zoom(.T.), this problem is solved. But in the source code I have it is not line 1261 but it is line 1255. Is it possible the this program was modified after I downloaded my FWH ?  Do you advise me to download FWH again? Or can I have the latest RPreview.Prg ?\n\nI have a few other problems occassionally popping up. Like error while closing or starting preview with the message that Nil has no hWnd in metaplay method.','',0,'','2a8i3t8s',1,0,'',868,0,0),(39104,8424,3,2,0,'87.218.146.51',1191828887,1,0,1,1,1,1,'','','Don\'t worry about the source code line, ours is modified for version FWH 7.10 that will be published this same week probably.\n\n&gt;\nI have a few other problems occassionally popping up. Like error while closing or starting preview with the message that Nil has no hWnd in metaplay method.\n&gt;\n\nAre those errors coming from your PRG or from rpreview.prg ? It looks as oWnd is tried to be used as a valid window when its nil already','',0,'','25w1v2k6',1,0,'',2,0,0),(39105,8424,3,868,0,'219.64.121.60',1191829490,1,0,1,1,1,1,'','','Mr Antonio\n\nI am getting this error from RPreview.Prg only. The error occurs in line \" if IsIconic( ::oWnd:hWnd )\" of PaintMeta method ( called from \"on resize ::paintmeta() ).  I am getting this error _occassionally_ when i click on the close button of the preview. Because I am getting it occassionally, I could not make a small self contained example. If I get it again and if i can create a small sample, I shall report it.','',0,'','3vaduhyx',1,0,'',868,0,0),(39106,8424,3,868,0,'219.64.121.60',1191830184,1,0,1,1,1,1,'','','Mr Antonio.\n\nHere is a program, slightly modified from a source provided by you earlier. Ths program creates 3 mdi child preview windows. Try to close the third preview window, we get this error. I dont know if I am doing something wrong. Kindly review and advise.\n\n[code:r5hffrw2]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   LOCAL oWnd,obar\n\n   DEFINE WINDOW oWnd MDI TITLE &quot;preview errors&quot;\n\n   DEFINE BUTTONBAR oBar OF oWnd\n   DEFINE BUTTON OF oBar PROMPT \'2\' ACTION PrintPV&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n\nfunction printpv\nlocal oprn1,oprn2,oprn3\n\nlocal ofont, oArial\n\n\nPRINT oPrn1 PREVIEW\n\n   DEFINE FONT oArial NAME \'ARIAL\' SIZE 0,-11 OF oPrn1\n\n   PAGE\n      oPrn1&#58;Say&#40; 20, 20, &quot;Test&quot;, oArial &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;one&quot; &#41;\n\nPRINT oPrn2 PREVIEW\n   DEFINE FONT oFont NAME \'TAHOMA\' SIZE 0,-9 OF oPrn2\n   PAGE\n      oPrn2&#58;Say&#40; 4, 4, &quot;Test&quot;, oFont &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;two&quot; &#41;\n\nPRINT oPrn3 PREVIEW\n   PAGE\n      oPrn3&#58;Say&#40; 6, 6, &quot;Test&quot; &#41;\n   ENDPAGE\nENDPRINT\n\nMsgInfo&#40; &quot;three&quot; &#41;\n\noFont&#58;End&#40;&#41;\noArial&#58;End&#40;&#41;\n\nreturn nil\n[/code:r5hffrw2]\nRegards\nNageswara Rao','',0,'AIA=','r5hffrw2',1,0,'',868,0,0),(39107,8426,3,2,0,'87.218.146.51',1191831287,1,0,1,1,1,1,'','FWH 7.10 - Office 2007 look for MsgBar','We are almost ready for FWH 7.10 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> We have implemented support for Office 2007 look on the msgbar too. No need to modify your source code, simply add 2007 as a new clause:\n[code:3gahopqn]\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007\n&#46;&#46;&#46;\n   SET MESSAGE OF oWnd TO &quot;Testing the ButtonBar 2007 Office look&quot; ;\n      CENTERED 2007 CLOCK KEYBOARD\n[/code:3gahopqn]\n[url=http&#58;//imageshack&#46;us:3gahopqn][img:3gahopqn]http&#58;//img458&#46;imageshack&#46;us/img458/2109/2007nt7&#46;png[/img:3gahopqn][/url:3gahopqn]','',0,'GIA=','3gahopqn',1,0,'',2,0,0),(39108,8427,6,2,0,'87.218.146.51',1191831923,1,0,1,1,1,1,'','FWH 7.10 - Apariencia Office 2007 para la barra de mensajes','Ya estamos casi listos para FWH 7.10 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Hemos implementado apariencia de Office 2007 en la barra de mensajes tambien. No teneis que modificar vuestro código, sólo añadir la claúsula 2007:\n[code:2mxq9bwy]\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007\n&#46;&#46;&#46;\n   SET MESSAGE OF oWnd TO &quot;Testing the ButtonBar 2007 Office look&quot; ;\n      CENTERED 2007 CLOCK KEYBOARD\n[/code:2mxq9bwy]\n[url=http&#58;//imageshack&#46;us:2mxq9bwy][img:2mxq9bwy]http&#58;//img458&#46;imageshack&#46;us/img458/2109/2007nt7&#46;png[/img:2mxq9bwy][/url:2mxq9bwy]','',0,'GIA=','2mxq9bwy',1,0,'',2,0,0),(39109,8416,3,63,0,'88.0.164.66',1191832001,1,0,1,1,1,0,'','','Antonio:[quote:3suqqc6r]You could send just one string using a format similar like this: \n[/quote:3suqqc6r]\nYes; that\'s what I was planning to do anyway\n\n[quote:3suqqc6r]To do it, just include this function in your DLL: \n[/quote:3suqqc6r]\n\nCompiling with buildhd.bat I get an error:\n\nError E2141 dlltest 41: Declaration syntax error\n*** 1 errors in Compile ***\n\njust after  #include &lt;hbapiitm.h&gt;.  However, the DLL gets built.  Is that normal?\n\nRafael','',0,'gA==','3suqqc6r',1,0,'',63,0,0),(39110,8416,3,2,0,'87.218.146.51',1191832210,1,0,1,1,1,1,'','','Rafael,\n\nPlease add as the third include:\n#include &lt;windows.h&gt;','',0,'gA==','3q08b8a8',1,0,'',2,0,0),(39111,8416,3,63,0,'88.0.164.66',1191832395,1,0,1,1,1,0,'','','Antonio:\nIt\'s compiling Ok now.  Many thanks for your fast answer.  I\'ll try it with VB and I\'ll let you know the results...\nRafael','',0,'gA==','ky66n2js',1,0,'',63,0,0),(39112,8424,3,2,0,'87.218.146.51',1191832596,1,0,1,1,1,1,'','','Please make this little change into source\\rpreview.prg. This change is already included in FWH 7.10:\n[code:36n3sv2p]\n   if &#58;&#58;oWnd != nil &#46;and&#46; IsIconic&#40; &#58;&#58;oWnd&#58;hWnd &#41;\n      return nil\n   endif\n[/code:36n3sv2p]','',0,'AIA=','36n3sv2p',1,0,'',2,0,0),(39113,8428,16,2,0,'87.218.146.51',1191832922,1,0,1,1,1,1,'','New FTDN October/Octubre 2007 (7.10)','October 2007 build\r\n==============\r\n\r\n* Fix: Class TWindow Method EndPaint() returns zero to avoid painting errors. This way all classes using Method Display() return zero now, to avoid painting errors.\r\n \r\n* Enhancement: function MsgGet() shows proper dimensions if no bitmap is used.\r\n\r\n* Fix: Preview window shows maximized if non MDI main window is used.\r\n\r\n* New: Class TXBrowse Method nAt(), returns the current selected column.\r\n\r\n* New: Class TFolder bitmaps support. Please review samples\\TestFold.prg\r\n\r\n* Fix: Minor fix on Class TDTPicker when using an empty date. Now it is ok.\r\n\r\n* Enhancement: Class TXBrowse minor changes in method SetArray(). Thanks to Biel!\r\n\r\n* New: function SetGetColorFocus( [ nClrFocus ] ), activates Gets color change when focused and optionally sets the focus color to use.\r\n\r\n* Enhancement: Class TOutLook2003 has been modified to work with FiveWin 16 bits too.\r\n  \r\n* New: FiveWin 16 bits support for TrackMouseEvent() function. \r\n\r\n* New: Class TOutLook2003 is also available for FiveWin for Clipper 16 bits.\r\n    \r\n* New: Office 2007 look for ButtonBars!!! As easy as adding 2007 clause:\r\n       DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007\r\n       \r\n* Fix: Minor changes in Class TPreview\r\n       \r\n* Enhancement: FWH comm pots management have been improved to support an unlimited amount of managed ports simultaneously!\r\n         \r\n* Fix: Class TReport minor fix on method Margin(). Thanks to Carlos Mora!\r\n\r\n* Enhancement: FWH Class TButtonBmp, clause REDEFINE BUTTONBMP ... TOOLTIP ... support.\r\n\r\n* Enhancement: Print Preview minor fix to avoid showing a zoomed document the first time the preview is shown.\r\n\r\n* New: Office 2007 look for the msgbar. Simply add the 2007 clause to it:\r\n       SET MESSAGE OF oWnd TO \"Testing the ButtonBar 2007 Office look\" ;\r\n          CENTERED 2007 CLOCK KEYBOARD','',0,'','1pynvhgv',1,1220710875,'',2,1,0),(39114,8424,3,868,0,'219.64.121.60',1191833527,1,0,1,1,1,1,'','','Thanks. Done. But this does not solve the problem fully.  When ::oWnd is NIL, the execution goes to subsequent statements and fails at ::oWnd:nWidth.\n\nI tried making this change instead:\n\n[code:88yrrarl]\nif &#58;&#58;oWnd == NIL &#46;OR&#46; isIconic&#40; oWnd&#58;hWnd &#41;\n  RETURN NIL\nendif\n[/code:88yrrarl]\n\nThisi s avoiding the errors. But I do not know what could be the other implications. Please advise.','',0,'AIA=','88yrrarl',1,0,'',868,0,0),(39115,8409,6,456,0,'217.127.39.57',1191833542,1,0,1,1,1,1,'','','Yo no he trabajado con dichos tiradores de cañas.  Pero los que he visto estan conectados a un PC, y ademas de controlar el consumo por grifo, sacan un ranking en pantalla(colga en el establecimiento) del consumo de cerveza por mesas. Hay autenticos piques para ver que mesa queda por delante(una manera mas de fomentar el consumo <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) --> ).','',0,'AIA=','2x30x93w',1,0,'',456,0,0),(39116,8273,6,89,0,'213.21.136.60',1191833811,1,0,1,1,1,0,'','','With List &amp; LAbel Version 4  I use DLL call \nIf I have your  email andress I send my sample . \n\nI now that  Jairo Centeno use List &amp; LAbel 12 with ActiveX . \nRegards MAurizio','',0,'AIA=','2j7niqb2',1,0,'',89,0,0),(39117,8273,6,2,0,'87.218.146.51',1191834064,1,0,1,1,1,1,'','','Maurizio,\n\nPlease upload it to <!-- w --><a class=\"postlink\" href=\"http://www.rapidshare.com\">www.rapidshare.com</a><!-- w --> and copy here the download url, many thanks!','',0,'AIA=','2sqblkrs',1,0,'',2,0,0),(39118,8424,3,2,0,'87.218.146.51',1191834164,1,0,1,1,1,1,'','','Its fixed and tested in FWH 7.10.\n\nYou may be able to download it in just some minutes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','38oaatqi',1,0,'',2,0,0),(39119,8429,3,2,0,'87.218.146.51',1191834620,1,0,1,1,1,1,'','New FWH 7.10','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8428\">http://fivetechsoft.com/forums/viewtopic.php?t=8428</a><!-- m -->','',0,'AIA=','39e64iv5',1,0,'',2,0,0),(39120,8430,6,2,0,'87.218.146.51',1191834656,1,0,1,1,1,1,'','Nuevo FWH 7.10','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8428\">http://fivetechsoft.com/forums/viewtopic.php?t=8428</a><!-- m -->','',0,'AIA=','kyb6mcxg',1,0,'',2,0,0),(39121,8273,6,904,0,'196.25.255.246',1191836458,1,0,1,1,1,1,'','','Thanks.  Even if you email me, I\'ll post to rapidshare and tell the forum. \n\n<!-- e --><a href=\"mailto:ollie@theoasis.co.za\">ollie@theoasis.co.za</a><!-- e -->\n\nThanks again.','',0,'AIA=','8dqm7wf5',1,0,'',904,0,0),(39122,8273,6,904,0,'198.54.202.226',1191836961,1,0,1,1,1,1,'','','Here is the file Murizio sent me\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/61079319/label.zip.html\">http://rapidshare.com/files/61079319/label.zip.html</a><!-- m -->\n\nHe said he needed CALLDLL.LIB for List &amp; Label and FWH.\n(Doesn\'t know why  callddl of fivewin doesn\'t work) .\n\nFor List&amp;LAbel 12 this is a sample of Jairo Centeno that uses ActiveX  . \n\nThanks: MAurizio','',0,'AIA=','1m1heeru',1,0,'',904,0,0),(39123,8431,3,6,0,'87.11.229.36',1191838086,1,0,1,1,1,1,'','Strange behavior of ACTION clause','Try the following sample (you will need of an MDB file). Now remove the comment of the ACTION clause and you will notice that the LDB file is not deleted anymore. Why?\n\n[code:1gnntrz0]#include &quot;Fivewin&#46;ch&quot;\n\n\n#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n#define adUseNone   1\n#define adUseServer 2\n#define adUseClient 3\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRs&#58;Open&#40; &quot;SELECT * FROM Clienti&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=clienti&#46;mdb&quot;, adOpenKeyset, adLockOptimistic &#41;\n\n    TEST&#40; oRs &#41;\n\n    oRs&#58;Close&#40;&#41;\n\n    oRs = NIL\n\n    RETURN NIL\n\n\nSTATIC FUNCTION TEST&#40; oRs &#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON &quot;&quot;;\n//           ACTION oRs\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:1gnntrz0]\n\nEMG','',0,'AIA=','1gnntrz0',1,0,'',6,0,0),(39124,8423,3,3,0,'80.81.159.19',1191841164,1,0,1,1,1,1,'','','Antonio\n\nCan you help showing a sample with get and incremental search on a listbox ?\n\nThanks for your time,\n\nRichard','',0,'AIA=','32pb06is',1,0,'',3,0,0),(39125,8429,3,868,0,'219.64.121.60',1191842971,1,0,1,1,1,1,'','ButtonBar 2007 style','The new look is very attractive and gives a great look for our applications.\n\nBut the disappointing issue is that the menu actions of the buttons is not working any more.  Difficult to adopt the new style when we have many buttons with menus.','',0,'AIA=','lh0mo2bi',1,0,'',868,0,0),(39126,8429,3,2,0,'87.218.146.51',1191844832,1,0,1,1,1,1,'','','Do you mean the buttons that have drop down menus ?','',0,'AIA=','38alst0z',1,0,'',2,0,0),(39127,8431,3,2,0,'87.218.146.51',1191844992,1,0,1,1,1,1,'','','Enrico,\n\n&gt; the LDB file is not deleted\n\nWhats the LDB file ?','',0,'AIA=','zfn07d63',1,0,'',2,0,0),(39128,8423,3,2,0,'87.218.146.51',1191845064,1,0,1,1,1,1,'','','Richard,\n\nDo you mean a browse ? \n\nSame example but typing on a GET ?','',0,'AIA=','3ibapirq',1,0,'',2,0,0),(39129,8429,3,868,0,'219.64.121.60',1191845218,1,0,1,1,1,1,'','','Yes. Buttons with drop menus.\n\nWhen I am trying buttons with drop menus, what I observed is that menu arrow on the right is not painted.  But if i click on the right edge of the button the drop down menu is working.\n\nIt is only in the painting. If you can review and make the right arrow part of the button visible, we can adopt the new button bar in our production software.','',0,'AIA=','2wyo4tt0',1,0,'',868,0,0),(39130,8423,3,303,0,'72.220.100.171',1191846973,1,0,1,1,1,0,'','','Here is a more sophisticated example. It will only accept keystrokes that find a new match in the browse, otherwise it rejects the keystroke. There is a sound for each valid keystroke and no sound for invalid keystrokes.\n\nJames\n\n-----------------------\nNotes: If you return a logical from the bChange codeblock the GET will either accept or reject the last character. Very useful. Also note the use of a local copy of an instance var for use in a codeblock.  I can\'t figure out why the GET won\'t accept commas.\n\n\n[code:2sidymzf]  // Incremental search of the contact list using a GET&#46;\n  // Here we process keys dynamically in the contact lookup Get&#46;\n  // We have to compensate for the use of the numeric keypad&#46;\n   cClient&#58;= space&#40;20&#41;\n\n   // Create a local copy so we can use it in the codeblock below\n   // Not needed if you are not using an instance var&#46;\n   oLbx2&#58;= &#58;&#58;oLbx2\n\n   // Bug&#58; The GET below doesn\'t accept commas for some reason&#46;\n\n   @ 25,5 get oGet var cClient of oBar2 ;\n     pixel;\n     size 120,20 ;\n     on change &#40; nOldRec&#58;=self&#58;cargo&#58;recno&#40;&#41;,;\n      oGet&#58;nLastKey&#58;=if&#40; getKeyToggle&#40;VK_NUMLOCK&#41;, oGet&#58;nLastKey - 48, oGet&#58;nLastKey &#41;,;\n      cText&#58;=trim&#40;self&#58;cText&#41;+if&#40;self&#58;nLastKey&gt;=32,chr&#40;self&#58;nLastKey&#41;,&quot;&quot;&#41;,;\n      if&#40;self&#58;cargo&#58;seek&#40;upper&#40;cText&#41;&#41;, &#40;click&#40;&#41;,lAccept&#58;=&#46;t&#46;&#41;, &#40;self&#58;cargo&#58;goto&#40;nOldRec&#41;,lAccept&#58;=&#46;f&#46; &#41; &#41;,;\n      oLbx2&#58;refresh&#40;&#41;,lAccept &#41;\n\n   oGet&#58;cargo&#58;= &#58;&#58;oContact2\n\nfunction click&#40;&#41;\n   sndPlaySound&#40;&quot;click&#46;wav&quot;,2&#41;\nreturn nil[/code:2sidymzf]','',0,'AIA=','2sidymzf',1,0,'',303,0,0),(39131,8429,3,868,0,'219.64.121.60',1191847514,1,0,1,1,1,1,'','','Mr Antonio\n\nAs I am eager to deliver a revision with the new buttonbars with 2007 look by tomorrow morning, I made a very crude patch to the paint method in TBtnBmp class. \n\nI have commented the return statement at line 734 :-\n[code:1piq2x9y]\n697&#58; if Upper&#40; &#58;&#58;oWnd&#58;ClassName&#40;&#41; &#41; == &quot;TBAR&quot; &#46;and&#46; &#58;&#58;oWnd&#58;l2007\n           &lt;&lt; statements &gt;&gt;\n734&#58;  // return nil\n735&#58;  endif \n[/code:1piq2x9y]\nI have enclosed the code hadling if ::lTransparent from lines 737 to 765 in an if clause \"  if !::oWnd:l2007 &lt;exisiting code&gt; ; endif \n\nNow the block \"if ::oPopup != nil; &lt;code&gt; ; endif from lines 767 to 789 work even in the case of ::l2007.  After this, I introduced \" if ::ownd:l2007; return nil; endif\n\nThis is a very crude patch. May have unknown side affects. But seems to work for me for the immedate purpose. \n\nI shall await your complete patch to make the dropdownmenu button painted as earlier.','',0,'AIA=','1piq2x9y',1,0,'',868,0,0),(39132,8415,6,350,0,'80.32.243.219',1191848090,1,0,1,1,1,0,'','','Debe ser un error de OR.C, si no lo solucionas de otro modo, prueba a crear tu propia funcion L2hex(), así:\n\nfunction l2hex(nvar)\nreturn i2Hex( nhiword(nvar)  )+ i2hex(nloword(nvar))\n\nSaludos','',0,'AIA=','1hhnews1',1,0,'',350,0,0),(39133,8418,3,53,0,'189.139.15.219',1191849034,1,0,1,1,1,1,'','','Hi Otto:\n\nYou have two ways to do that\n\n1.- Compile and link the VRD.PRG, VRDBCODE.PRG and VRDITEM.PRG files as part of your application.\n\n2.- Build a LIB file with these three files (VRD.PRG, VRDBCODE.PRG and VRDITEM.PRG) and include it into your script\n\nDon\'t forget add this code line in your PRG when using EasyReport.\n\n#Include \"Vrd.ch\"\n\nRegards, Armando','',0,'AIA=','3dkciybk',1,0,'',53,0,0),(39134,8429,3,2,0,'87.218.146.51',1191849389,1,0,1,1,1,1,'','','NageswaraRao,\n\nPlease email me your patched Class TBtnBmp to review it, thanks','',0,'AIA=','14n7migg',1,0,'',2,0,0),(39135,8404,6,105,0,'200.72.140.34',1191852112,1,0,1,1,1,1,'','','Interesados en juntarse con RENE aqui en su visita a CHILE.. por favor contactarse conmigo\n\n<!-- e --><a href=\"mailto:adolfo_lagos@hotmail.com\">adolfo_lagos@hotmail.com</a><!-- e --> para coordinar horas, lugar, requisitos ja ja jaaa \n\n\nYa tenemos algo medio arreglado.\nEso nada mas....\n\nFrom Chile\n\nAdolfo Lagos','',0,'AIA=','1e8w1hm0',1,0,'',105,0,0),(39136,8423,3,3,0,'80.81.159.19',1191853508,1,0,1,1,1,1,'','','Antonio ,\n\nYes\n\nThis will be very handy, it has been done with btnget but rather complex to use. I prefer a more flexible solution\n\nThanks\n\nRichard','',0,'AIA=','1bw47des',1,0,'',3,0,0),(39137,8432,20,1082,0,'82.187.120.133',1191853549,1,0,1,1,1,0,'','errore su compilazione','ho appena installato la nuova versione di FWH\nxarbour 0.99.71\nfivewin 7.10\nma se provo a compilare il test scaricato con il file adordd.zip il compilatore mi da l\'errore\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_stack\' referenced from C:\\XHARBOUR\\LIB\\DBFDBT.LIB|dbfdbt1\n\nperchè?','',0,'AIA=','385194t0',1,0,'',1082,0,0),(39138,8418,3,3,0,'80.81.159.19',1191853606,1,0,1,1,1,1,'','Re: EasyReport / FWH 7.09','Otto\n\nWhat compiler are you using for fwh ?\n\nThis is the key question, \n\nif you are using xharbour xbuild, let me know i will send you the xbp file that creates the library\n\nRichard','',0,'AIA=','am4ibgfj',1,0,'',3,0,0),(39139,8423,3,190,0,'124.7.26.156',1191853786,1,0,1,1,1,0,'','','Mr.Antonio, Mr.James\n\nThank you very much for your samples.\n\nMr.Antonio\'s example is very interesting and very simple!.\n\nI could\'t immediately understood the sample of \nMr.James.\n\nAnyway, I could implement my requirement \nvery well using Tsbrowse for incremental search in \nan array of database fields.\n\nRegards\n\nRamesh Babu P','',0,'AIA=','3srb3p0s',1,1191857499,'',190,1,0),(39140,8415,6,350,0,'80.32.243.219',1191854190,1,0,1,1,1,0,'','','Bueno, o así para que no devuelva ceros delante:\n\nfunction l2hex(nvar)\nlocal cRet := i2Hex( nhiword(nvar)  )+ i2hex(nloword(nvar))\ndo while substr(cRet,1,1) = \'0\'\n	cRet := substr(cRet,2)\nenddo\nreturn cRet','',0,'AIA=','2wr84f7p',1,0,'',350,0,0),(39141,8433,3,303,0,'72.220.100.171',1191856975,1,0,1,1,1,0,'','TGet:bChange is broken','Antonio,\n\nSome versions ago TGet:bChange was designed to reject the last key if bChange returned false. I know there were some complaints because developers were expecting the last key to be in the buffer when bChange was eval\'d, so it appears you changed the code to put the lastkey into the buffer before bChange is eval\'d. This caused all my code (using bChage) to be broken.\n\nAt some point you also added bPostKey which is also eval\'d after the last keystroke is in the buffer. So, now both bChange and bPostKey are serving the same purpose.\n\nI would very much like to have bChange restored to its previous function so we can reject invalid keys BEFORE they show up in the buffer. I know that this is going to break some code that others have written, but all they need to do is to change \"bChange\" to \"bPostKey\" to fix their code. As it is now, I cannot fix my code without modifing TGet.\n\nWould anyone object to this change?\n\nThe simple way to test bChange is:\n\n  oGet:bChange:={|| .f. }\n\nThe GET should reject all keystrokes.\n\nI know that ver 7.05 and 7.10 both accept all keystrokes. I looked at the May 2005 ver and it was rejecting them. I didn\'t look at any other versions.\n\nRegards,\nJames','',0,'AIA=','12ev9wnb',1,0,'',303,0,0),(39142,8423,3,190,0,'124.7.26.156',1191857431,1,0,1,1,1,0,'','','Mr.Richard\n\nI hope this is what you wanted in respect of incremental search with \na get object.\n\nRegards\n\n- Ramesh Babu P\n\n[code:2ijir6th]\n#include &quot;FiveWin&#46;ch&quot; \n\nREQUEST DBFCDX \n\n* Incremental Search with a get object Example\n\n//-----------------------------------------------------------------------// \n\nFUNCTION Main&#40;&#41; \n\nLOCAL oWnd, oBrw \nLOCAL cSearch, oSearch\n\nUSE Customer VIA &quot;DBFCDX&quot; \nINDEX ON Customer-&gt;Last TO LAST  \nOrdSetFocus&#40; &quot;LAST&quot; &#41; \nDbGoTop&#40;&#41; \n\ncSearch &#58;= SPACE&#40;LEN&#40;Customer-&gt;Last&#41;&#41; \n\nDEFINE WINDOW oWnd TITLE &quot;IncSearch&quot;                ;\n       FROM 1,100 TO 212,408 PIXEL NOMAXIMIZE\n   \n@  4,3 GET oSearch VAR cSearch OF oWnd              ; \n       PIXEL size 145,17                            ;\n       PICTURE &quot;@!&quot;                                 \n\n@ 30,1 LISTBOX oBrw                                 ; \n       FIELDS Customer-&gt;Last, Customer-&gt;First       ; \n       HEADERS &quot;Last&quot;,&quot;First&quot;                       ; \n       SIZE 300, 155 PIXEL \n\n* This is the main trick&#46;\noSearch&#58;bPostKey = &#123; || Search&#40;oSearch&#58;oGet&#58;buffer&#41;,;\n                        oBrw&#58;Refresh&#40;&#41; &#125; \n    \nACTIVATE WINDOW oWnd ON INIT WndCenter&#40;oWnd&#58;hWnd&#41;\n    \nRETURN nil \n\n//-----------------------------------------------------------------------// \n\nFUNCTION Search&#40;cSearch &#41; \n\nDbSeek&#40; cSearch, &#46;t&#46; &#41; \n\nRETURN nil \n\n**********\n[/code:2ijir6th]','',0,'AIA=','2ijir6th',1,0,'',190,0,0),(39143,8432,20,6,0,'87.21.211.175',1191857868,1,0,1,1,1,1,'','Re: errore su compilazione','Stai utilizzando una versione molto vecchia di xHarbour dato che DBFDBT.LIB non esiste più da diverso tempo.\n\nTi conviene utilizzare la versione fornita in dotazione con le FWH.\n\nEMG','',0,'AIA=','37xvitt0',1,0,'',6,0,0),(39144,8404,6,294,0,'201.254.178.136',1191857966,1,0,1,1,1,1,'','','Para los Fivewiners de Argentina!!\nEl maestro Rene estará por estos pagos del 3 al 5 de noviembre, según lo informa en su Blog \n<!-- m --><a class=\"postlink\" href=\"http://google.blogspot.com/search?updated-min=2007-01-01T00%3A00%3A00-06%3A00&amp;updated-max=2008-01-01T00%3A00%3A00-06%3A00&amp;max-results=40\">http://google.blogspot.com/search?updat ... results=40</a><!-- m -->\nPor favor, avisen si se van a reunir, ya que algunos (como yo) somos del interior pero me interesaría muchisimo escuchar y conocer a Rene.\nGracias de ante mano\nCesar','',0,'AIA=','1aoh6g1w',1,0,'',294,0,0),(39145,8431,3,6,0,'87.21.211.175',1191858053,1,0,1,1,1,1,'','','It is a file that Jet engine uses to handle multiuser locking. It should be automatically deleted when the database is closed.\n\nEMG','',0,'AIA=','rae8rp59',1,0,'',6,0,0),(39146,8434,3,303,0,'72.220.100.171',1191859128,1,0,1,1,1,0,'','Suggestion for buttonbar','Antonio,\n\nCurrently TButtonbar:blClicked is undefined when the bar is defined. When you left-click on the buttonbar it depresses like a button--rather undesirable. I find that if you do this:\n\noBar:blClicked:={|| .t. }\n\nIt doesn\'t depress anymore. It works the same if you return false. It would be nice if blClicked was defined by default in the class we don\'t have to remember to always do it.\n\nRegards,\nJames','',0,'AIA=','1exdb5c7',1,0,'',303,0,0),(39147,8422,6,36,0,'200.113.56.235',1191860153,1,0,1,1,1,1,'','','Antonio \n\nPrueba esto..\n\n[code:cik11g7j]For i=1 to b\n 	if val&#40;cCod_men&#91;i&#93;&#41;&lt;888\n		MakeButton&#40; oBar, i, cDet_msg, cUbi_ico, cAcc_opc, &#46;t&#46; &#41;\n	else\n		MakeButton&#40; oBar, i, cDet_msg, cUbi_ico, cAcc_opc, &#46;f&#46; &#41;\n	endif\nNext i\n\nfunction MakeButton&#40; oBar, i, cDet_msg, cUbi_ico, cAcc_opc, lNoborder &#41;\n\n	if lNoborder\n		DEFINE BUTTON OF oBar ;\n			TOOLTIP &#40;cDet_msg&#91;i&#93;&#41; NOBORDER FILE cUbi_ico&#91;i&#93;;\n			ACTION Eval&#40; &amp;&#40;cAcc_opc&#91;i&#93;&#41;&#41;\n	else\n		DEFINE BUTTON OF oBar ;\n		TOOLTIP &#40;cDet_msg&#91;i&#93;&#41; FILE cUbi_ico&#91;i&#93;;\n		ACTION Eval&#40; &amp;&#40;cAcc_opc&#91;i&#93;&#41;&#41;	\n	endif\n\nreturn&#40; nil &#41;\n[/code:cik11g7j]\n\nSaludos..','',0,'AIA=','cik11g7j',1,0,'',36,0,0),(39148,8415,6,384,0,'189.23.199.138',1191860881,1,0,1,1,1,1,'','','ok Sebastian...\nJá elaborei a minha função, apenas achei estranho a OR.C estar devolvendo um valor incorreto....','',0,'AIA=','2p71vxvs',1,0,'',384,0,0),(39149,8435,6,439,0,'200.125.41.14',1191865429,1,0,1,1,1,1,'','Implementar RollBack para garantizar integridad referencial','Pues.... \n\nMe preguntaba si es posible con FWH lograr alguna forma de rollback al almacenar los campos en varias tablas, de modo de que si en el proceso algo sucede, revertir la operación y garantizar integridad referencial.\n\nO si no hay otra que usar ADS o cualquier otro cliente/servidor\n\nNo pretendo garantizar que siempre se graben los datos, ni que el software se vuelva \"magicamente\" cliente/servidor, pero que si se produce una colisión o cualquier cosa que impida guardar un dato en parte de un proceso de grabación, se produzca un rollback y se cancele el ingreso, de modo de avisar al operador que la operación no puede ser hecha.\n\nEs preferible que algo no se grabe a que se grabe por la mitad... no?\n\nQuizá mi pregunta sea un disparate, (de hecho soy algo rebuznante en la pregunta) pero... hay funciones de FWH y/o [x]Harbour que combinadas puedan ir en esta dirección?\n\nSe puede implementar algo así en el futuro en FWH?\n\nApreciaré ser desasnado al respecto.','',0,'','1balufbx',1,0,'',439,0,0),(39150,8435,6,1146,0,'87.223.177.191',1191866445,1,0,1,1,1,0,'','','El grupo eidos editó un libro sobre programación en red con clipper en el que tenía esas funciones. El libro incluía el código fuente en un disco, pero no se dónde lo tengo.\n\nFuncionaba bastante bien: tenía roll back, semáforos, etc. A ver si alguien lo tiene.','',0,'','wayrq490',1,0,'',1146,0,0),(39151,8418,3,1146,0,'87.223.177.191',1191866970,1,0,1,1,1,0,'','','I do not recommend EasyReport, due the following reasons:\n\n- They do not provide the Ide source code. It has lots of errors, it is quite unestable and you have to include 2.5 mb plus to your app.\n- The tech support is very bad. Timm does not respond emails or, when he does, it is very late.\n- For the same price, you can buy List&amp;Label, a much more professional software.\n\nSo my advice is, despite the print engine works fine, the disadvantages are more important and it does not worth to pay for it.','',0,'','3792vn1w',1,0,'',1146,0,0),(39152,8418,3,51,0,'80.122.88.242',1191869313,1,0,1,1,1,0,'','','Thank you very much for your help.\n\nArmando,\nThank you for your information.\n\nI will try your  suggestion nr. 1\n\nTimm wrote me to link also these files. I am not sure how to do this.\n   cfunc.c \n   vrd.ch \n\nMoises:\nThanks for your comment.\nTimm responded in this case within 3 hours.  I always get good support from him.\nBut EasyReport is very easy to use – up to now I only have experience with FW/ER  - so you don’t need much support.\n\nI tried a lot of other ReportWriters but EasyReport is for my necessity  the best.\nThe IDE is easy to use and  “end users” can do some changes themselves.\nAlso it is easy to address from FW. \n\nRichard:\nHello from Austria. Thank you for your offer but I decided to start with Harbour.\n\nRegards,\nOtto','',0,'','pmsmyqtm',1,0,'',51,0,0),(39153,8384,6,1178,0,'200.24.127.6',1191869350,1,0,1,1,1,0,'','','[quote=&quot;joseluisysturiz&quot;:35gztioi]Si mas no me equivoco los FRAMES son efectos que se usan en los dialogos, com si estubiera un hundimiento o algo sobre puesto, esto se hace segun los editores de recursos, yo los hacia con workshop en 16 bit, nose si es lo que desea el colega, es una propiedad muy usada en los visual...basic,, foxpro, etc....  espero a ver dado una idea y no estar perdido, es la unica parte donde he visto esa palabra FRAME...  lo encontre...\n\n[img]http://c:\\varios\\frame.jpg[/img][/quote:35gztioi]\n\nSi compañero esto es, lo masneja Visual Basic , Foxpro y Delphi esta ultimo es otra herramento que hago desarrollos.','',0,'iA==','35gztioi',1,0,'',1178,0,0),(39154,8435,6,264,0,'200.91.3.10',1191869654,1,0,1,1,1,1,'','','Jose...\nYo no pediria re-inventar la rueda...\nLos sistemas transaccionales llegaron antes que nosotros a este ruedo...\nEn SQL y cliente/servidor, todo funcina perfecto con eso.\nNosotros desde que nos cambiamos a cliente/servidor ( primero con ADS y luego M$SQL-Server )  nunca mas un transaccion quedo a medio camino.\nSaludos','',0,'iA==','1z6n6aix',1,0,'',264,0,0),(39155,8435,6,439,0,'200.125.41.14',1191870031,1,0,1,1,1,1,'','','[quote=&quot;dbzap&quot;:1fr8fhgj]Jose...\nYo no pediria re-inventar la rueda...\nLos sistemas transaccionales llegaron antes que nosotros a este ruedo...\nEn SQL y cliente/servidor, todo funcina perfecto con eso.\nNosotros desde que nos cambiamos a cliente/servidor ( primero con ADS y luego M$SQL-Server )  nunca mas un transaccion quedo a medio camino.\nSaludos[/quote:1fr8fhgj]\n\nComprendo, y de hecho, en enero tendré que implementar para un cliente un sistema que ahora está en arquitectura distribuída, en cliente/servidor con el fin de dar las garantías necesarias a los datos, para lo cual adquirirán ADS.\n\nEl tema es que muchos softs pequeños, no son vendibles con ADS o pagando MySQL.\n\nEs para esta clase de software para la que sería bueno poder implementar funciones de rollback y así al menos cuidar la integridad referencial y permitir al usuario reingresar un dato que no pudo grabarse a posteriori, sin necesidad de que el programador tenga que ir a limpiar los datos que se grabaron por la mitad para restaurar la integridad referencial.','',0,'gA==','1fr8fhgj',1,0,'',439,0,0),(39156,8273,6,131,0,'83.44.234.128',1191870123,1,0,1,1,1,0,'','','Antonio,\n\nsin animo de entrar en polémicas creo que Paco no merece esas palabras tuyas. Canalfive ha contribuido de una manera grande al desarrollo de FWH en el sentido de que ha ofrecido controles mucho más avanzados que los propios de FWH y ha mostrado el camino a seguir en multitud de ocasiones. \n\nSin entrar en temas de amistad personal, mis programas tienen mucho que agradecer a los controles de Canalfive, y creo que esa afirmación tuya está un tanto fuera de lugar.\n\nSaludos,','',0,'gA==','tt5ssc9s',1,0,'',131,0,0),(39157,8435,6,177,0,'82.130.229.193',1191870143,1,0,1,1,1,0,'','','Jose,\n\nsi no recuerdo mal, la TDBF de Manu Expósito soportaba commit y rollback.\n\nSaludos,\n\nFélix','',0,'gA==','2ixhkj53',1,0,'',177,0,0),(39158,8436,6,400,0,'201.92.37.50',1191870345,1,0,1,1,1,1,'','Valores de GetSysMetrics()','Boa Tarde, amigos...\n\nOnde eu encontro os Valores do GetSysMetrics() ?\n\nHá alguna # entre o GetSystemMetrics e o GetSysMetrics ?\n\nSaludos','',0,'gA==','2pcl02z0',1,0,'',400,0,0),(39159,8436,6,177,0,'82.130.229.193',1191873452,1,0,1,1,1,0,'','','Ale SB.\n\npuedes mirar en :\n\n<!-- m --><a class=\"postlink\" href=\"http://winapi.conclase.net/curso/index.php?fun=GetSystemMetrics\">http://winapi.conclase.net/curso/index. ... temMetrics</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms724385.aspx\">http://msdn2.microsoft.com/en-us/library/ms724385.aspx</a><!-- m -->\n\nSaludos,\n\nFélix','',0,'gA==','1dbiigpm',1,0,'',177,0,0),(39160,8418,3,53,0,'189.139.15.219',1191873460,1,0,1,1,1,1,'','','Otto:\n\nI use VERCE to build my application and It\'s very easy to include that file.\n\nYou must to include the next code line in your PRG when using EasyReport. \n\n#Include \"Vrd.ch\" \n\nIf I can help you just let me to know it\n\nBest Regards','',0,'gA==','2ks6kvn7',1,0,'',53,0,0),(39161,8418,3,51,0,'80.122.88.242',1191874387,1,0,1,1,1,0,'','','Armando,\nthank you. My EasyReport is working.\nRegards,\nOtto','',0,'gA==','3hf2gnsr',1,0,'',51,0,0),(39162,8418,3,53,0,'189.139.15.219',1191875200,1,0,1,1,1,1,'','','Otto:\n\nGreat !, I\'m so glad to hear that.\n\nRegards','',0,'gA==','2r9rkgsv',1,0,'',53,0,0),(39163,8368,6,1063,0,'200.27.109.129',1191878441,1,0,1,1,1,1,'','','si a mi me ha sucedido, pero no encuentro cual es el problema, he recorrido todo el programa buscando el problema, pero a mi me sucede cuando realizo un preview de una factura','',0,'gA==','2nyq0i15',1,0,'',1063,0,0),(39164,8436,6,400,0,'201.92.37.50',1191878507,1,0,1,1,1,1,'','','Gracias Félix','',0,'gA==','1uatd83b',1,0,'',400,0,0),(39165,8273,6,904,0,'198.54.202.246',1191878585,1,0,1,1,1,1,'','','Thanks Maurizio,\n\nBut I have encountered a problem with the files you sent me.\n\nI use xMate.\n\nSo I loaded the files : label.prg, LLX.PRG, CALLDLL.lib, _wincall.c and _windll.c into xMate\n\nWhen I build, I get an error: \n\nLine 112 Warning W8002 “Restarting compile using assembly in function DynaCall”\nError: E2133 “execute command ‘tasm32.exe’\n\nThis line is in _wincall.c   :\nLine 111    // Reserve 256 bytes of stack space for our arguments\nLine 112    _asm mov pStack, esp\nLine 113    _asm sub esp, 0x100\n\nIt may have something to do with me not knowing how to link libraries and .c files.  I just added them in xMate where I put my .PRGs normally. ?!','',0,'gA==','1uk0z97t',1,0,'',904,0,0),(39166,8437,6,400,0,'201.92.37.50',1191878678,1,0,1,1,1,1,'','SystemParametersInfo..como usar ?','Como devo usar a SystemParametersInfo ?\n\nAssim retorna me erro: \n\nSystemParametersInfo(1)\n\nUnresolved external _HB_FUN_SystemParametersInfo\n\nSaludos','',0,'gA==','zl5o3tuu',1,0,'',400,0,0),(39167,8418,3,904,0,'198.54.202.250',1191880117,1,0,1,1,1,1,'','','Hi MOISES\n\nYou seem to be a big fan of List &amp; Label.  I downloaded the demo, but am struggling to get it working with FWH. (But then again I am a beginner and am not versed in adding linking library and DLLs etc.)\n\nWould you mind looking at the other thread on the topic and see if you can offer assistance. I would be truly greatful.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=39156#39156\">http://fivetechsoft.com/forums/viewtopi ... 9156#39156</a><!-- m -->','',0,'gA==','fsqlo50u',1,0,'',904,0,0),(39168,8422,6,1072,0,'190.82.36.43',1191880407,1,0,1,1,1,0,'','','Hola Patricio:\n\nPrimero que nada muchas gracias por tu ayuda. Mira despues de aplicar lo que Antonio me indico, me arrojo el mismo error. Pero al aplicar tu solucion, puedo generar el menu, el problema que me lanza un error al seleccionar un icono, en este caso PrinterSetup(), me muestra en pantalla la configuracion de la impresora, pero al Aceptar o Cancelar, me da el siguiente error:\n\nSaludos,\nAntonio\n\n\nApplication\n===========\n   Path and name: C:\\SISTEMAS\\MENU.EXE (32 bits)\n   Size: 1,294,336 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 08/10/2007, 17:36:58\n   Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: EVAL\n   Args:\n     [   1] = N   7154\n\nStack Calls\n===========\n   Called from:  =&gt; EVAL(0)\n   Called from: menu.prg =&gt; (b)MAKEBUTTON(387)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3164)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TMDIFRAME:ACTIVATE(883)\n   Called from: menu.prg =&gt; MAIN(114)\n\nSystem\n======\n   CPU type:  1600 Mhz\n   Hardware memory: 160 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 4.10, Build 67766446  A \n\n   Windows total applications running: 21\n      1 \n      2  Sistema Club Mundo Chico\n      3 VERCE v4.3, C:\\Sistemas\\menu.vrc\n      4 Finalizado - BMake\n      5 Multi-Edit - [C:\\Sistemas\\Menu.prg]\n      6 Club1\n      7 OLEChannelWnd\n      8 DDE Server Window\n      9 OleMainThreadWndName\n     10 About WinZip Quick Pick\n     11 MS_WebcheckMonitor\n     12 STI Monitor\n     13 Spooler Process\n     14 QueueManagerLoader\n     15 Notification Wnd for RNAdmin\n     16 Medidor de energía\n     17 MySnoop\n     18 SYSTEM AGENT COM WINDOW\n     19 STM3 TrayIcon\n     20 MS-DOS\n     21 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   EVAL\n     Local   1:    A    Len:    0\n     Local   2:    U    \n     Local   3:    N    0\n   (b)MAKEBUTTON\n     Param   1:    O    Class: TBTNBMP\n   TBTNBMP:CLICK\n     Local   1:    O    Class: TBTNBMP\n   TBTNBMP:LBUTTONUP\n     Param   1:    N    35\n     Param   2:    N    23\n     Param   3:    O    Class: TBTNBMP\n     Local   1:    U    \n     Local   2:    L    .T.\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    514\n     Param   2:    N    0\n     Param   3:    N    2293783\n   TBTNBMP:HANDLEEVENT\n     Param   1:    N    514\n     Param   2:    N    0\n     Param   3:    N    2293783\n     Local   1:    O    Class: TBTNBMP\n   _FWH\n     Param   1:    N    2293783\n     Param   2:    N    514\n     Param   3:    N    0\n     Param   4:    N    2293783\n     Param   5:    N    6\n     Local   1:    O    Class: TBTNBMP\n   WINRUN\n     Param   1:    N    2188\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    B    {|| ... }\n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    O    Class: TBAR\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    O    Class: TMSGITEM\n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    O    Class: TBITMAP\n     Local  15:    U    \n     Local  16:    U    \n     Local  17:    C    \"SISTEMA MENU\"\n     Local  18:    O    Class: TFONT\n     Local  19:    U    \n     Local  20:    U    \n     Local  21:    N    5\n     Local  22:    C    \"BA\"\n     Local  23:    N    4\n     Local  24:    A    Len:   20\n     Local  25:    A    Len:   20\n     Local  26:    A    Len:   20\n     Local  27:    A    Len:   20\n     Local  28:    A    Len:   20\n     Local  29:    A    Len:   20\n     Local  30:    A    Len:   20\n     Local  31:    A    Len:   20\n     Local  32:    A    Len:   20\n\nLinked RDDs\n===========\n   DBF\n   DBFCDX\n\nDataBases in use\n================\n\n  1: =&gt; MEN_C                           RddName: DBFCDX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n         14           13      .F.   .T.\n\n     Indexes in use                        TagName\n        =&gt; Field-&gt;Tip_men+Field-&gt;Cod_men+FieldMEN_C1\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TWINDOW\n     5 TMDIFRAME\n     6 TMENU\n     7 TMENUITEM\n     8 TBRUSH\n     9 TMDICLIENT\n    10 TFONT\n    11 TCONTROL\n    12 TBAR\n    13 TRECT\n    14 TBTNBMP\n    15 TMSGBAR\n    16 TMSGITEM\n    17 TTIMER\n    18 TBITMAP\n    19 TDIALOG\n    20 ERROR\n    21 TREG32\n\nMemory Analysis\n===============\n      128 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes','',0,'','3pzz07wg',1,0,'',1072,0,0),(39169,8435,6,92,0,'81.44.85.96',1191880676,1,0,1,1,1,0,'','','[quote=&quot;jose_murugosa&quot;:2z2oluqq][quote=&quot;dbzap&quot;:2z2oluqq]Jose...\nYo no pediria re-inventar la rueda...\nLos sistemas transaccionales llegaron antes que nosotros a este ruedo...\nEn SQL y cliente/servidor, todo funcina perfecto con eso.\nNosotros desde que nos cambiamos a cliente/servidor ( primero con ADS y luego M$SQL-Server )  nunca mas un transaccion quedo a medio camino.\nSaludos[/quote:2z2oluqq]\n\nComprendo, y de hecho, en enero tendré que implementar para un cliente un sistema que ahora está en arquitectura distribuída, en cliente/servidor con el fin de dar las garantías necesarias a los datos, para lo cual adquirirán ADS.\n\nEl tema es que muchos softs pequeños, no son vendibles con ADS o pagando MySQL.\n\nEs para esta clase de software para la que sería bueno poder implementar funciones de rollback y así al menos cuidar la integridad referencial y permitir al usuario reingresar un dato que no pudo grabarse a posteriori, sin necesidad de que el programador tenga que ir a limpiar los datos que se grabaron por la mitad para restaurar la integridad referencial.[/quote:2z2oluqq]\n\nTal como dice Félix, creo que con la clase TDBF de Manuel Expósito podrías disponer ROLLBACK.\n\nPodría ser algo así:\n\nIf oTDBFperson:Save() .and. ;\n    oTDBFdomicilio:Save() .and. ;\n    oTDBFfacturas:Save()\n\n    MsgAlert(\"Ea\", \"Soy el mejor\" )\nElse\n\n   oTDBFperson:RollBack():Save()\n    oTDBFdomicilio:RollBack():Save()\n    oTDBFfacturas:RollBack():Save()\n\n    MsgAlert(\"Ea\", \"No pude grabar\" )\n\nEndIf\n\nSaludos\nCarlos G.','',0,'gA==','2z2oluqq',1,0,'',92,0,0),(39170,8435,6,439,0,'200.125.41.14',1191880848,1,0,1,1,1,1,'','','[quote=&quot;FiveWiDi&quot;:3naloxd4][quote=&quot;jose_murugosa&quot;:3naloxd4][quote=&quot;dbzap&quot;:3naloxd4]Jose...\nYo no pediria re-inventar la rueda...\nLos sistemas transaccionales llegaron antes que nosotros a este ruedo...\nEn SQL y cliente/servidor, todo funcina perfecto con eso.\nNosotros desde que nos cambiamos a cliente/servidor ( primero con ADS y luego M$SQL-Server )  nunca mas un transaccion quedo a medio camino.\nSaludos[/quote:3naloxd4]\n\nComprendo, y de hecho, en enero tendré que implementar para un cliente un sistema que ahora está en arquitectura distribuída, en cliente/servidor con el fin de dar las garantías necesarias a los datos, para lo cual adquirirán ADS.\n\nEl tema es que muchos softs pequeños, no son vendibles con ADS o pagando MySQL.\n\nEs para esta clase de software para la que sería bueno poder implementar funciones de rollback y así al menos cuidar la integridad referencial y permitir al usuario reingresar un dato que no pudo grabarse a posteriori, sin necesidad de que el programador tenga que ir a limpiar los datos que se grabaron por la mitad para restaurar la integridad referencial.[/quote:3naloxd4]\n\nTal como dice Félix, creo que con la clase TDBF de Manuel Expósito podrías disponer ROLLBACK.\n\nPodría ser algo así:\n\nIf oTDBFperson:Save() .and. ;\n    oTDBFdomicilio:Save() .and. ;\n    oTDBFfacturas:Save()\n\n    MsgAlert(\"Ea\", \"Soy el mejor\" )\nElse\n\n   oTDBFperson:RollBack():Save()\n    oTDBFdomicilio:RollBack():Save()\n    oTDBFfacturas:RollBack():Save()\n\n    MsgAlert(\"Ea\", \"No pude grabar\" )\n\nEndIf\n\nSaludos\nCarlos G.[/quote:3naloxd4]\n\nFelix y Carlos, Gracias por la información, procuraré obtener la clase y probarla, gracias desde ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .','',0,'gA==','3naloxd4',1,0,'',439,0,0),(39171,8422,6,36,0,'164.77.81.210',1191881085,1,0,1,1,1,1,'','','antonio\n\nTu arreglo debiera estar asi\n\n[code:2r6wrbrd]\ncAcc_opc&#91;1&#93; &#58;= &quot;&#123; || printsetup&#40;&#41;, Clientes&#40;&#41; &#125;&quot;\ncAcc_opc&#91;2&#93; &#58;= &quot;&#123; || funciox&#40;&#41; &#125;&quot;\n\n//siempre entre comilla\n[/code:2r6wrbrd]\n\nespero que te sirva..','',0,'AIA=','2r6wrbrd',1,0,'',36,0,0),(39172,8422,6,1072,0,'190.82.36.43',1191881940,1,0,1,1,1,0,'','','Patricio:\n\nLos datos los tengo en una base de datos donde todos los campos son Character y los cargo asi al arroglo.\n\nSaludos,\nAntonio\n\n****\n Tip_men1=\"BA\"\n Sele Men_c\n   OrdSetFocus(1)\n   Men_c-&gt;(DbSeek(Tip_men1))\n   I=1\n\n\n  While (Men_c-&gt;tip_men=Tip_men1).and.!Men_c-&gt;(eof())\n         cCod_men[i]=alltrim(Men_c-&gt;Cod_men)\n         cDet_iten[i]=alltrim(Men_c-&gt;Det_iten)\n         cDet_msg[i]=alltrim(Men_c-&gt;Det_msg)\n         cUbi_ico[i]=alltrim(Men_c-&gt;Ubi_ico)+\"\\\"+alltrim(Men_c-&gt;Nom_ico)+\".\"+alltrim(Men_c-&gt;Tip_ico)\n         cAcc_opc[i]=alltrim(Men_c-&gt;Acc_opc)\n         b=i\n         dBskip()\n         if (Men_c-&gt;tip_men#Tip_men1).or.Men_c-&gt;(eof())\n            exit\n         endif\n         i=i+1\n   Enddo','',0,'','1770tgy6',1,0,'',1072,0,0),(39173,8438,6,252,0,'189.166.30.124',1191884455,1,0,1,1,1,0,'','Problema con c5Menu','Un saludo amigos del foro.\n\n    Tengo un problema al usar C5MENU, con la clausula when.\n\n[code:gqmizik3] c5MENU oMenu COLOR CLR_BLACK, getSysColor&#40;COLOR_BTNFACE&#41;\n      c5MENUITEM &quot;Catalogos&quot; when W_cCveAcc = WcXCve \n		  c5MENU COLOR CLR_BLACK, CLR_DIALOGO COLORSEL CLR_BLACK,CLR_GRAY\n             c5MENUITEM &quot;Agentes&quot;     ACTION BuscaAgente&#40;\'AGENTES\'&#41; \n			 c5MENUITEM &quot;Clientes&quot;\n				 c5MENU COLOR CLR_BLACK, CLR_DIALOGO  COLORSEL CLR_BLACK,CLR_GRAY\n					c5MENUITEM &quot;Catalogo de Clientes&quot; ACTION BuscaCtesProv&#40;\'CTESPROV\',\'CLIENTES\'&#41;\n					c5MENUITEM &quot;Clasificacion&quot;    ACTION EdClasifica&#40;\'CLIENTES\'&#41;\n				 c5ENDMENU\n\n    etcetera, etcetera&#46;\n[/code:gqmizik3]\n\ncuando W_cCveAcc = WcXCve es .f. funciona correctamente, cuando W_cCveAcc = WcXCve es .t. me aparece el error \"Error description: Error BASE/1004  Message not found: TC5MENU:ENABLE\"\n\nAl no incluir la clausula when no tengo error. Solo cuando cuando la incluyo y el valor que evalua la clausula when es .t.\n\n      Espero me compartan sus experiencias. Uso FWH 2.4 y xHarbour 0.93\n\n      Gracias\n\n    Jose Rios','',0,'AIA=','gqmizik3',1,0,'',252,0,0),(39174,8422,6,36,0,'164.77.81.210',1191885207,1,0,1,1,1,1,'','','pero estan como code block\n\n[code:1m7tjbnv]&quot;&#123;|| &#46;&#46;&#46;&#125;&quot;[/code:1m7tjbnv]\n\n\nlo otro es que usaras un msginfo()\n\n[code:1m7tjbnv]function MakeButton&#40; oBar, i, cDet_msg, cUbi_ico, cAcc_opc, lNoborder &#41;\n\n   if lNoborder\n      DEFINE BUTTON OF oBar ;\n         TOOLTIP &#40;cDet_msg&#91;i&#93;&#41; NOBORDER FILE cUbi_ico&#91;i&#93;;\n         ACTION &#40; MsgInfo&#40; cAcc_opc&#91;i&#93; &#41;, Eval&#40; &amp;&#40;cAcc_opc&#91;i&#93;&#41;&#41; &#41;\n   else\n      DEFINE BUTTON OF oBar ;\n      TOOLTIP &#40;cDet_msg&#91;i&#93;&#41; FILE cUbi_ico&#91;i&#93;;\n         ACTION &#40; MsgInfo&#40; cAcc_opc&#91;i&#93; &#41;, Eval&#40; &amp;&#40;cAcc_opc&#91;i&#93;&#41;&#41; &#41;\n   endif\n\nreturn&#40; nil &#41; [/code:1m7tjbnv]','',0,'AIA=','1m7tjbnv',1,0,'',36,0,0),(39175,7830,3,779,0,'201.141.99.27',1191888149,1,0,1,1,1,0,'','','Poo usas FOpen() ?','',0,'AIA=','7is9sxac',1,0,'',779,0,0),(39176,8435,6,138,0,'189.141.70.33',1191894290,1,0,1,1,1,1,'','','Como yo siempre he dicho.... donde este un buen ADS que se quite todo lo demas:\n\nAdsBeginTransaction()\n....\n....\n\nAppend.....\nReplaces......\ncommites.....\n......\n.....\nAdsCommitTransaction()\n\nSi el programa se \"rompe\" entre un ADSBeginTransaction() y un ADSCommitTransaction() el Rollback se hace automaticamente.\n\nTambien es posible llamar directamente a AdsRollBackTransaction()\n\nNos vemos en Santiago de Chile el dia 13 de Octubre\nBuenos Aires del 3 al 5 de Noviembre.','',0,'AIA=','3vjt9ksy',1,0,'',138,0,0),(39177,8404,6,138,0,'189.141.70.33',1191894391,1,0,1,1,1,1,'','','Para Chile ya esta Adolfo en movimiento y creo que podremos conseguir un buen lugar me dice que entre 15 y 20 personas, con todo el equipo necesario.\n\nPara Argentina aun no tenemos a ningun valiente que se anime, pero tenemos mas tiempo que para Chile, supongo que se podra organizar algo muy bueno tambien.','',0,'AIA=','1d235s6m',1,0,'',138,0,0),(39178,8422,6,1072,0,'201.214.54.36',1191896024,1,0,1,1,1,0,'','','Patricio:\n\nTermine pasando los datos como \"{|| ...}\"  y se soluciono el problema.\n\nMuchas gracias por tu ayuda y disculpa todas las molestias.\n\n. Una ultima pregunta:\n  Como controlo que no se ejecute una ACTION vacia, es decir que no trae una funcion a ejecutar.?\n\n\n\nSaludos,\nAntonio','',0,'AIA=','bmqnm5ae',1,0,'',1072,0,0),(39179,8422,6,2,0,'87.218.146.164',1191904600,1,0,1,1,1,1,'','','cAction = cAcc_opc[i] \n\nif ! Empty( cAction )\n... ACTION &amp;cAction\nelse\n... (sin ACTION ) // Creas menuitem sin action\nendif','',0,'','1u86kp23',1,0,'',2,0,0),(39180,8437,6,2,0,'87.218.146.164',1191904719,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2830&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=systemparametersinfo%2A\">http://fivetechsoft.com/forums/viewtopi ... ersinfo%2A</a><!-- m -->','',0,'','saci8dtq',1,0,'',2,0,0),(39181,8437,6,177,0,'194.30.62.6',1191904904,1,0,1,1,1,0,'','','Ale,\n\ndate una vuelta por <!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms724947.aspx\">http://msdn2.microsoft.com/en-us/library/ms724947.aspx</a><!-- m --> \n\nSaludos,\n\nFélix','',0,'','3l2ljrfz',1,0,'',177,0,0),(39182,8384,6,396,0,'200.71.188.209',1191905631,1,0,1,1,1,1,'','','Ruben: eso lo ussab como ya te comente en workshop, el editor de recursos, y lo hacia en programacion manual, deja ver si consigo algo y te lo envio a tu privado, igual prueba con el editor de recursos, yo uso Pelles C y me va muy bien y es gratuito... hace tiempo que no trabajo con FRAMES debido al diseño nuevo de WIN XP...saludos.','',0,'','15vcj1rd',1,0,'',396,0,0),(39183,8434,3,233,0,'218.111.152.56',1191907327,1,0,1,1,1,0,'','','Thanks for the tip James. I\'ve been wondering about how to get rid of this, to me, irritating behaviour. I second your suggestion','',0,'','1ofbnv1f',1,0,'',233,0,0),(39184,5973,1,1188,0,'216.178.50.109',1191910401,1,0,1,1,1,0,'','Replacement for lha.dll on Vista','[quote=&quot;Antonio Linares&quot;:ikcx8i4p]Harlan,\n\nIt seems that there is a Windows version here with full source code:\n\n<!-- m --><a class=\"postlink\" href=\"http://gnuwin32.sourceforge.net/packages/lha.htm\">http://gnuwin32.sourceforge.net/packages/lha.htm</a><!-- m -->\n\nHaving the source code it may help to trace where the GPF comes from.[/quote:ikcx8i4p]\n\nDoes anyone know whether unlha32.dll runs on Vista and whether it might be an acceptable alternative to lha.dll which does not run on Vista?  It is written and maintained by a Japanese programmer, who does not accept email written in English.  Could a 16-bit Clipper program call this 32-bit dll on Vista?\n\nHarlan\n\nHarlan','',0,'gA==','ikcx8i4p',1,0,'',1188,0,0),(39185,8273,6,89,0,'213.21.136.60',1191910953,1,0,1,1,1,0,'','','CALLDLL is the LIB that include _wincall.c and _windll.c  compiled \nfor xHArbour . \n\nYou have to include only _wincall.c and _windll.c \n\nRegards MAurizio','',0,'gA==','14jsv103',1,0,'',89,0,0),(39186,8273,6,904,0,'196.25.255.246',1191913006,1,0,1,1,1,1,'','','Ok, I took our CALLDLL, \n\nOlny have label.prg LLX.PRG _wincall.c and _windll.c\n\nStill gives same error on compiling.','',0,'gA==','nkpm6t31',1,0,'',904,0,0),(39187,8439,1,418,0,'83.156.157.172',1191913296,1,0,1,1,1,0,'','HOW TO PRINT CHECK','Hi everybody\ni am looking to print bank checks with a \"normal\" printer  (Lexmark laser Optra 310)\nHave any idea of how make conversion beetween numbers and letters\n( 100 euros  will give  cent euros ,  54  will give cinquante quatre....)?\nThanks','',0,'gA==','3vk0j1wu',1,0,'',418,0,0),(39188,8429,3,2,0,'87.218.146.164',1191913737,1,0,1,1,1,1,'','','NageswaraRao, \n\nYour changes had some troubles. We have fixed it and emailed it to you\n\nPlease let us know how it works for you, thanks','',0,'gA==','wp6856j5',1,0,'',2,0,0),(39189,8429,3,868,0,'219.64.121.60',1191914982,1,0,1,1,1,1,'','','Thanks for your prompt help. Kindly see my mail to you with other issues','',0,'gA==','1sav0zgk',1,0,'',868,0,0),(39190,8440,3,51,0,'80.122.88.242',1191916683,1,0,1,1,1,0,'','SetGetColorFocus()','Is a method: SetGetColorFocus also available for other controls like:\ncombobox\nradiobutton\ncheckbox \nRegards,\nOtto','',0,'gA==','2vsontqg',1,0,'',51,0,0),(39191,8441,3,51,0,'80.122.88.242',1191916961,1,0,1,1,1,0,'','Run Program only once','How to  control that a program only runs once.\n\nRegards,\nOtto','',0,'gA==','e3d1egne',1,0,'',51,0,0),(39192,8441,3,6,0,'87.16.223.192',1191917529,1,0,1,1,1,1,'','Re: Run Program only once','[code:1fv3js18]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    IF ISEXERUNNING&#40; CFILENOEXT&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n        ? &quot;The app is already running&quot;\n        RETURN NIL\n    ENDIF\n\n    ? &quot;This is the app\'s main loop&quot;\n\n    RETURN NIL[/code:1fv3js18]\n\nEMG','',0,'AIA=','1fv3js18',1,0,'',6,0,0),(39193,8440,3,6,0,'87.16.223.192',1191917637,1,0,1,1,1,1,'','Re: SetGetColorFocus()','No, as far as I know. You can use bGotFocus and bLostFocus to respectively set and restore the colors.\n\nEMG','',0,'AIA=','1xudy47s',1,0,'',6,0,0),(39194,8439,1,6,0,'87.16.223.192',1191917765,1,0,1,1,1,1,'','Re: HOW TO PRINT CHECK','I wrote a function years ago but it is in Italian. Do you want to see it anyway?\n\nEMG','',0,'AIA=','35twpclm',1,0,'',6,0,0),(39195,8441,3,51,0,'80.122.88.242',1191918899,1,0,1,1,1,0,'','','Thank you.\nOtto','',0,'AIA=','15oznce2',1,0,'',51,0,0),(39196,8429,3,2,0,'87.218.146.164',1191919818,1,0,1,1,1,1,'','','NageswaraRao,\n\nMany thanks for your feedback,\n\nWe are going to review it asap','',0,'AIA=','1v77k1nf',1,0,'',2,0,0),(39197,8442,3,6,0,'87.16.223.192',1191923978,1,0,1,1,1,1,'','Bug in the new 2007 clause','This is the sample. If you uncomment the 2007 clause the bitmap will be shifted up.\n\n[code:2m22kxux]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd //2007\n\n    DEFINE BUTTON OF oBar;\n           FILE &quot;C&#58;\\FWH\\BITMAPS\\CLIENT&#46;BMP&quot;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2m22kxux]\n\nEMG','',0,'AIA=','2m22kxux',1,0,'',6,0,0),(39198,8443,7,720,0,'81.32.127.147',1191928387,1,0,1,1,1,0,'','Error al compilar el ftp.prg','Hola a todos....\n\nEstoy intentando compilar el ftp.prg pero me da el siguiente error:\n\nftp.obj : error LNK2019: unresolved external symbol \"unsinged short * __cdecl AnsiToWide(char *)\" (?AnsiToWide@@YAPAGPAD@Z) referenced in function HB_FUN_INTERNETOPEN\n\n\nAlguien puede decirme que me hace falta??\n\nGracias...\n\nSaludos.\n\nElías Torres.','',0,'AIA=','20or9awd',1,0,'',720,0,0),(39199,8261,6,1158,0,'200.233.185.181',1191930278,1,0,1,1,1,0,'','','Rene, works fine here, thanks\n\nmore one question: i dont need use VIA [dbfcdxax]?? if i put this clause an error is made.\n\nthis works:\nUSE \\\\srv_pdc\\srv_app\\Videfarm\\cadasco.dat\nbrowse()\n\nbut this no works\nUSE \\\\srv_pdc\\srv_app\\Videfarm\\cadasco.dat VIA .....\nbrowse()\n\nand to open the index? use the same way?\n\ni need share the directory or not?\n\nvery thans\n\n(i use ads server and local to tests)\n\nnorberto','',0,'','v3axtz5h',1,0,'',1158,0,0),(39200,8439,1,418,0,'83.156.157.172',1191930493,1,0,1,1,1,0,'','','Yes may be i will be able to translate from italian to french\nThanks','',0,'','2kg9erpz',1,0,'',418,0,0),(39201,8413,6,41,0,'200.105.194.234',1191930591,1,0,1,1,1,0,'','','Patricio,\n\nya lo decia <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, muchas gracias\n\nsaludos\n\nMarcelo','',0,'','30k7aipu',1,0,'',41,0,0),(39202,8261,6,1158,0,'200.233.185.181',1191931533,1,0,1,1,1,0,'','','Rene, one more (sorry), and to use set default to ...., if i use unc notation in this clause , works? thanks','',0,'','2eukf2vk',1,0,'',1158,0,0),(39203,8439,1,6,0,'87.16.223.192',1191931745,1,0,1,1,1,1,'','','Sent to your private email.\n\nEMG','',0,'','3gvemb87',1,0,'',6,0,0),(39204,8439,1,1077,0,'80.77.147.50',1191932733,1,0,1,1,1,0,'','I HOPE THIS IS IT','// Testing\n\n#include \"FiveWin.ch\"\n\n//------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg\n   local oGet\n   local nGet := 0\n\n   DEFINE DIALOG oDlg TITLE \"Number To Word\"\n\n   @   5,  5 SAY \"Number:\" OF oDlg PIXEL\n   @   5, 50 GET oGet VAR nGet OF oDlg SIZE 35, 12 PIXEL PICTURE \"999999999999\"\n\n   @  25,  5 BUTTON \"&amp;Word\" OF oDlg SIZE 35,12 ACTION Convert(nGet) PIXEL\n   @  25, 50 BUTTON \"&amp;End\"  OF oDlg SIZE 35,12 ACTION oDlg:End()    PIXEL\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nfunction Convert(nGet)\n\nlocal cWords := \"\"\nlocal nRest  := 0\nlocal nNum   := 0\n\ncDigits := { \"one \",     \"two \",      \"three \",   \"four \",    \"five \" ,;\n             \"six \",     \"seven \",    \"eight \",   \"nine \",    \"ten \" ,;\n             \"eleven \",  \"twelve \",   \"thirteen \",\"fourteen \",\"fifteen \" ,;\n             \"sixteen \", \"seventeen \",\"eighteen \",\"nineteen \" ;\n           }\n\ncTens   := { \"twenty \", \"thirty \",  \"forty \",  \"fifty \",\"sixty \" ,;\n             \"seventy \", \"eighty \", \"ninety \" ;\n           }\n\nnRest := nGet\n\nIF nRest &gt; 999999999\n   nNum := INT(nRest/1000000000)\n   nRest := nRest - INT(nRest/1000000000)*1000000000\n   cWords := cWords + Text(nNum) + \"billion \"\nENDIF\nIF nRest &gt; 999999\n   nNum := INT(nRest/1000000)\n   nRest := nRest - INT(nRest/1000000)*1000000\n   cWords := cWords + Text(nNum) + \"million \"\nENDIF\nIF nRest &gt; 999\n   nNum := INT(nRest/1000)\n   nRest := nRest - INT(nRest/1000)*1000\n   cWords := cWords + Text(nNum) + \"thousand \"\nENDIF\nIF nRest &gt; 0\n   nNum := nRest\n   cWords := cWords + Text(nNum)\nENDIF\n\nmsginfo(cWords)\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nfunction Text(nNum)\n\nlocal cText := \"\"\n\nIF nNum &gt; 99\n   cText := cText + cDigits[INT(nNum/100)] + \"hundred \"\nENDIF\n\nnRest := nNum - INT(nNum/100)*100\n\nIF nRest &gt; 0\n   IF nRest &lt; 20\n      cText := cText + cDigits[nRest]\n    ELSE\n      cText := cText + cTens[INT(nRest/10)-1]\n      IF nRest - INT(nRest/10)*10 &gt; 0\n         cText := cText + cDigits[nRest-INT(nRest/10)*10]\n      ENDIF\n   ENDIF\nENDIF\n\nreturn cText','',0,'','3l3zv1bb',1,0,'',1077,0,0),(39205,8444,3,460,0,'217.37.54.49',1191934647,1,0,1,1,1,0,'','DDEConnect','Hi,\n\nJust updated to 7.09 and recompiling my app now gives me an unresolved external DDEConnect (amongst other unresolved external DDE functions)  What do i need to change to link this in?\n\nMany Thanks\n\nPete','',0,'','39jx74fl',1,0,'',460,0,0),(39206,8445,6,694,0,'200.146.114.73',1191935512,1,0,1,1,1,1,'','BTNBMP e BUTTONBMP nTop - nLeft ???','Antonio, utilizei a classe BTNBMP para colocar varios botões em uma WINDOW, e criei um segundo PRG, onde o usuário poderá desenhar a posição dos botões. Para isso utilizo a clausula DESIGN.\n\nPorém, acontece que a classe BTNBMP não aceita DESIGN, sendo assim tive que usar a classe BUTTONBMP para desenhar, ficou perfeito, a não pelas coordenadas (ntop,nleft,nWidth,nHeight) que parece ser diferentes em ambas as classes, resultando em diferenças de posicionamento.\n\nGrato Antonio\n\nAoki','',0,'','yxgrqt0r',1,0,'',694,0,0),(39207,8422,6,1072,0,'200.83.124.137',1191936500,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias por tu respuesta.\n\nFunciono perfecto.\n\nSaludos,\nAntonio\n\n\n\n[quote=&quot;Antonio Linares&quot;:2mq476ev]cAction = cAcc_opc[i] \n\nif ! Empty( cAction )\n... ACTION &amp;cAction\nelse\n... (sin ACTION ) // Creas menuitem sin action\nendif[/quote:2mq476ev]','',0,'gA==','2mq476ev',1,0,'',1072,0,0),(39208,8424,3,1158,0,'200.139.130.189',1191937433,1,0,1,1,1,0,'','','Antonio, my appl have this errors too, in workstations using windows nt 4 ocour. how to solve this? thanks','',0,'gA==','1g8shb72',1,0,'',1158,0,0),(39209,8444,3,138,0,'189.141.70.33',1191938600,1,0,1,1,1,1,'','','As far as I know DDE calls are not longer supported under 32 bits enviroment.\n\nYou will need to change them to use OLE calls instead to the DDE components you are using.','',0,'gA==','2g8sq1of',1,0,'',138,0,0),(39210,8444,3,460,0,'217.37.54.49',1191938765,1,0,1,1,1,0,'','','It worked with FWH 7.05','',0,'gA==','14fuvvzy',1,0,'',460,0,0),(39211,8273,6,904,0,'196.25.255.250',1191939229,1,0,1,1,1,1,'','','got the program compiled.  gives error:\n\nCannot find: cm32lx.dll','',0,'gA==','haug0o2r',1,0,'',904,0,0),(39212,8444,3,868,0,'219.64.121.60',1191939256,1,0,1,1,1,1,'','','In any case 7.09 has DDEConnect function and it gets linked. We should not get unresoleved external error.  May be you need to check the library and installation.  I am using BCC version','',0,'gA==','3hyhvueh',1,0,'',868,0,0),(39213,8446,6,582,0,'200.82.114.218',1191939544,1,0,1,1,1,0,'','No se que pasa','Antonio, recien termine de bajar el FTDN del Octubre, instale y fijate que cuando ejecuto cualquier programa, ya sea compilado con Harbour o xHarbour sale primero la una pantalla DOS y despues el programa.\n\nPorque es?\nUn abrazo. El Loco =&gt;))','',0,'gA==','3agxbeot',1,0,'',582,0,0),(39214,8435,6,92,0,'83.53.82.208',1191939610,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:izzjfypf]Como yo siempre he dicho.... donde este un buen ADS que se quite todo lo demas:\n\nAdsBeginTransaction()\n....\n....\n\nAppend.....\nReplaces......\ncommites.....\n......\n.....\nAdsCommitTransaction()\n\nSi el programa se \"rompe\" entre un ADSBeginTransaction() y un ADSCommitTransaction() el Rollback se hace automaticamente.\n\nTambien es posible llamar directamente a AdsRollBackTransaction()\n\nNos vemos en Santiago de Chile el dia 13 de Octubre\nBuenos Aires del 3 al 5 de Noviembre.[/quote:izzjfypf]\n\nRene,\n\nBuscando integridad, SQL (aunque yo de eso sólo se escribir su nombre).\n\nHay que tener en cuenta lo que dice Jose:\n\"El tema es que muchos softs pequeños, no son vendibles con ADS o pagando MySQL. \"\n\nPara estos soft pequeños que solución les darías?\n\nSaludos\nCarlos G.','',0,'gA==','izzjfypf',1,0,'',92,0,0),(39215,8447,3,1158,0,'200.139.130.189',1191939949,1,0,1,1,1,0,'','Preview with fwh709','hi, how to solve this?? (picture included), note in footer location in page left and font in this page.\nthanks\n[/img]','',0,'','2tbrrqvi',1,0,'',1158,0,0),(39216,8447,3,1158,0,'200.139.130.189',1191939977,1,0,1,1,1,0,'','','Hi, how to put an image here??','',0,'','2mjr9ku2',1,0,'',1158,0,0),(39217,8447,3,1158,0,'200.139.130.189',1191940054,1,0,1,1,1,0,'','','hi, \n\nimage here: <!-- m --><a class=\"postlink\" href=\"http://depositfiles.com/files/2003439\">http://depositfiles.com/files/2003439</a><!-- m -->','',0,'','2e0yxg22',1,0,'',1158,0,0),(39218,8435,6,41,0,'200.105.194.234',1191942706,1,0,1,1,1,0,'','','Hola\n\nuna solucion podria ser SQLite, mira productos cono RealSQL (REALBASIC) han desarrollado sobre SQLite, pongo SQLlite por que es peque~no, ahora si quieres algo robusto de verdad (comparado con Oracle)  ademas de gratis lo tienes a Postgres\n\nsolo una opinion personal\n\nsaludos\n\nMarcelo  \n\n[quote=&quot;FiveWiDi&quot;:23i0z3n3][quote=&quot;RF&quot;:23i0z3n3]Como yo siempre he dicho.... donde este un buen ADS que se quite todo lo demas:\n\nAdsBeginTransaction()\n....\n....\n\nAppend.....\nReplaces......\ncommites.....\n......\n.....\nAdsCommitTransaction()\n\nSi el programa se &quot;rompe&quot; entre un ADSBeginTransaction() y un ADSCommitTransaction() el Rollback se hace automaticamente.\n\nTambien es posible llamar directamente a AdsRollBackTransaction()\n\nNos vemos en Santiago de Chile el dia 13 de Octubre\nBuenos Aires del 3 al 5 de Noviembre.[/quote:23i0z3n3]\n\nRene,\n\nBuscando integridad, SQL (aunque yo de eso sólo se escribir su nombre).\n\nHay que tener en cuenta lo que dice Jose:\n&quot;El tema es que muchos softs pequeños, no son vendibles con ADS o pagando MySQL. &quot;\n\nPara estos soft pequeños que solución les darías?\n\nSaludos\nCarlos G.[/quote:23i0z3n3]','d22d8a68e4d1d3fc0fbc137622c3eecc',0,'gA==','23i0z3n3',1,0,'',41,0,0),(39219,8448,3,1158,0,'200.139.130.189',1191942787,1,0,1,1,1,0,'','Fwh 709 and easyreport error','HI, using fwh709 and easyreport cause an gpf when close preview screen using exit on buttobar, BUT, if i click in minimize button of preview before close, the error dont ocur...','',0,'gA==','2eopmqna',1,0,'',1158,0,0),(39220,8449,6,174,0,'83.230.243.154',1191943060,1,0,1,1,1,0,'','Bug en Clase TToolBar de FwH 7.10','En el Metodo ToggleCheck de la clase TToolBar pone:\n[code:16vl9je1]METHOD ToggleCheck&#40; nButton &#41; INLINE ;\n          &#58;&#58;SetCheck&#40; nButton, ! &#58;&#58;IsChecked&#40; nButton &#41; &#41;, &#58;&#58;IsChecked&#40; nButton &#41;[/code:16vl9je1]\ncuando debería poner:\n[code:16vl9je1]METHOD ToggleCheck&#40; nButton &#41; INLINE ;\n          &#58;&#58;SetChecked&#40; nButton, ! &#58;&#58;IsChecked&#40; nButton &#41; &#41;, &#58;&#58;IsChecked&#40; nButton &#41;[/code:16vl9je1]','',0,'AIA=','16vl9je1',1,0,'',174,0,0),(39221,8450,6,73,0,'200.23.18.132',1191943984,1,0,1,1,1,0,'','confusion en color tprinter','Antonio,\nal imprimie con tprinter y tener esto:\n\noPrn:CmSay( nRow,nCol,Transform(aInfo[x,34],\'@Z 99999\'),oFont[4],,CLR_BLUE,,1)\n\nlo hace correcto, si imprime el texto en azul, peroooo\nal continuar con la demas impresion todo el texto posterior lo imprime en azul aunque no le defina color, no se supone que debe tomar el color por defaul y si mandas imprimir a color unicamente saque ese texto?,\n\noPrn:CmSay( nRow,nCol,Transform(aInfo[x,(y+2)],\'@Z 9999\'),oFont[1],,,,1)\n\nya que de otra forma tengo que especificar a la siguiente linea de impresion del color negro para que continue imprimiendo en negro.\nsalu2\npaco','',0,'','2dscqb11',1,0,'',73,0,0),(39222,8367,6,911,0,'200.72.141.51',1191944085,1,0,1,1,1,1,'','','Sebastián favor mira tu correo.\nSaludos','',0,'','1pgklvex',1,0,'',911,0,0),(39223,8273,6,89,0,'213.21.136.60',1191944098,1,0,1,1,1,0,'','','Ollie\n\nI say again that I use List&amp;LAbel 4 and for this version cm32lx.dll is the main DLL . \nEasly List&amp;LAbel 10 use another DLL. ( is so for version 5) .\nYou have to look at the Help file .\n\nRegards MAurizio','',0,'','22vu7isg',1,0,'',89,0,0),(39224,8273,6,904,0,'196.25.255.250',1191944263,1,0,1,1,1,1,'','','Yes, the correct file was: cmll12.dll','',0,'','1pyxdf0w',1,0,'',904,0,0),(39225,8450,6,73,0,'200.23.18.132',1191944351,1,0,1,1,1,0,'','','bueno, modifique la clase en el say y ya quedo...\ngracias\nPaco','',0,'','2r1g24uq',1,0,'',73,0,0),(39226,8368,6,180,0,'83.34.56.109',1191945448,1,0,1,1,1,0,'','','El preview debería mostrarlo correctamente. Sólo en el caso de pulsar en el menú del preview es cuando se produce un error. Revisa que todos los mandatos MENU, END MENU, SEPARATOR Y MENUITEM comiencen por c5.\nSi se te ha escapado alguno esa es la razón de que el preview no se muestre y de error.\n\nUn saludo,\nManuel Aranda','',0,'','705sp3bk',1,0,'',180,0,0),(39227,8367,6,350,0,'80.32.243.219',1191945626,1,0,1,1,1,0,'','','[quote=&quot;metaldrummer&quot;:15j9wrfo]Sebastián favor mira tu correo.\nSaludos[/quote:15j9wrfo]\n\nGracias David. Ahora mismo le hecho un vistazo.\n\nSaludos','',0,'gA==','15j9wrfo',1,0,'',350,0,0),(39228,8389,6,987,0,'189.132.25.76',1191946828,1,0,1,1,1,0,'','','Hola Colegas del Foro:\n\nDesafortunadamente no he conseguido hacer que la pc hable en Español, he instalado SAPI 5.0 y los paquetes de lenguaje, los cuales son el Ingles, El Chino Simplificado y el Japones, Solo la Versión de SAPI 4.0 y posteriores esta disponible al Español, pero no es compatible con windows XP y Vista, de hecho las dos versiones del SAPI se pueden instalar y funcionan mediante programas de terceros, pero no desde Xhabour... si les interesa les dejo unos links y revisen, por ahi puede que alguien encuentre respuesta.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=5e86ec97-40a7-453f-b0ee-6583171b4530&amp;DisplayLang=en\">http://www.microsoft.com/downloads/deta ... layLang=en</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.htmlbible.com/MicrosoftSpeechComponents/\">http://www.htmlbible.com/MicrosoftSpeechComponents/</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mvp-access.com/buho/agentes.htm\">http://www.mvp-access.com/buho/agentes.htm</a><!-- m -->\n\nQue lastima que mocosoft solo se preocupe por el lenguaje ingles y no por el habla español para la realización de utilidades como estas..\n\nSi alguien encuentra la solución no duden en comentarla, vale la pena.\n\nSaludos..','',0,'gA==','su6e3o3l',1,0,'',987,0,0),(39229,8448,3,51,0,'80.122.88.242',1191946871,1,0,1,1,1,0,'','','Hello,\nI did only few tests but here EasyReport is working as suspected.\nI use Harbour and EasyReport 2 .\nRegards,\nOtto','',0,'gA==','299t9ahy',1,0,'',51,0,0),(39230,8446,6,54,0,'189.132.98.126',1191946976,1,0,1,1,1,1,'','Re: No se que pasa','[quote=&quot;El Loco&quot;:nszg5mla]Antonio, recien termine de bajar el FTDN del Octubre, instale y fijate que cuando ejecuto cualquier programa, ya sea compilado con Harbour o xHarbour sale primero la una pantalla DOS y despues el programa.\n\nPorque es?\nUn abrazo. El Loco =&gt;))[/quote:nszg5mla]\n\nLoco,\n\nen lugar de gtwin.lib usa gtgui.lib\n\nsaludos','',0,'gA==','nszg5mla',1,0,'',54,0,0),(39231,8448,3,1158,0,'200.139.130.189',1191947290,1,0,1,1,1,0,'','','you use an mdi main window?? is related with this...','',0,'gA==','l6s85fn5',1,0,'',1158,0,0),(39232,8446,6,582,0,'200.82.114.218',1191947951,1,0,1,1,1,0,'','Re: No se que pasa','[quote=&quot;wmormar&quot;:lnd48hyy][quote=&quot;El Loco&quot;:lnd48hyy]Antonio, recien termine de bajar el FTDN del Octubre, instale y fijate que cuando ejecuto cualquier programa, ya sea compilado con Harbour o xHarbour sale primero la una pantalla DOS y despues el programa.\n\nPorque es?\nUn abrazo. El Loco =&gt;))[/quote:lnd48hyy]\n\nLoco,\n\nen lugar de gtwin.lib usa gtgui.lib\n\nsaludos[/quote:lnd48hyy]\nQue grande que sos hermano !!!!\nGracias\nUn abrazo. El Loco =&gt;))','',0,'gA==','lnd48hyy',1,0,'',582,0,0),(39233,8451,3,89,0,'213.21.136.60',1191948299,1,0,1,1,1,0,'','Same function in Fw e xHArbour','If there are a same function in Fw and xHArbour is it \npossible to use the function in xHarbour instead of the Fw Function ? \n\nRegards MAurizio','',0,'gA==','3edm4f7z',1,0,'',89,0,0),(39234,8452,3,51,0,'80.122.88.242',1191949575,1,0,1,1,1,0,'','OfficeBar','I bought OfficeBar months ago but only now I started to use\nHarbour/Fivewin.\nNow I plan to link in OfficeBar. Does someone have experience?\nDoes someone use OfficeBar in production use? What is the latest version?\nThanks in advance\nOtto','',0,'gA==','2cg1h68p',1,0,'',51,0,0),(39235,8368,6,1063,0,'200.27.109.129',1191950291,1,0,1,1,1,1,'','','no me explique bien,es solo cuando presiono el boton derecho del mouse me sale ese error','',0,'gA==','2wlyxrkn',1,0,'',1063,0,0),(39236,8451,3,6,0,'87.1.198.74',1191950495,1,0,1,1,1,1,'','Re: Same function in Fw e xHArbour','Do you mean two functions with identical names? If yes, no as the FWH one overrides the xHarbour one.\n\nEMG','',0,'gA==','1qncnzmy',1,0,'',6,0,0),(39237,8453,3,51,0,'80.122.88.242',1191950571,1,0,1,1,1,0,'','Long filenames for dbf-files','Only to ensure \n\nNo more limitation in naming the dbf-files. Is it correct?\n   \n  use (cdatawin+\"marketingliste\") new\n  select marketingliste\n\nRegards,\nOtto','',0,'gA==','1ldxwby7',1,0,'',51,0,0),(39238,8428,16,2,0,'87.218.146.164',1191952289,1,0,1,1,1,1,'','','Construccion Octubre 2007\n===================\n\n* Corrección: El método EndPaint() de la clase TWindow devuelve cero para evitar errores de pintado. Todas las clases que usan el método Display() devuelven cero, para evitar errores de pintado.\n\n* Mejora: La función MsgGet() muestra las dimensiones apropiadas si no se usa ningún \"bitmap\". \n\n* Corrección: La vista previa de la ventana se muestra maximizada si se usa un ventana principal no MDI.\n\n* Nuevo: Nuevo método nAt() en la clase TXBrowse, devuelve la columna seleccionada actual. \n\n* Nuevo: La clase TFolder soporta \"bitmaps\". Por favor, revisa el ejemplo samples\\TestFold.prg.\n\n* Corrección: Pequeña corrección en la clase TDTPicker cuando se usa fechas vacias. Ahora está bien. \n\n* Mejora: Pequeño cambios en la clase TXBrowse en el método SetArray(). Gracias a Biel ! \n\n* Nuevo: Nueva función SetGetColorFocus( [ nClrFocus ] ), en los Gets activados cambia el color cuando tienen el foco y opcionalmente\n  pone el color del foco a usar. \n\n* Mejora: La clase TOutLook2003 ha sido modificada para trabajar también con FW de 16 bits.\n\n* Nuevo: Fivewin de 16 bits soporta la función TrackMouseEvent().  \n\n* Nuevo: Nueva clase TOutLook2003, también disponible para Fivewin para Clipper (16 bits). \n\n* Nuevo: Barra de botones tipo Office 2007 !!! Tan fácil como añadir la clausula 2007, ejemplo: \n  DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007\n\n* Corrección: Pequeños cambios en la clase TPreview. \n\n* Mejora: Ha sido mejorado el manejo de los puertos serie (COMx) para soportar el manejo de un número ilimitado de puertos simultáneamente. \n\n* Corrección: Pequeño cambio en el método Margin() de la clase TReport. Gracias a Carlos Mora ! \n\n* Mejora: Soporte en FWH para la clase TButtonBmp, Clausula REDEFINE BUTTONBMP ... TOOLTIP ...\n\n* Mejora: Pequeña corrección en la previsualización de la impresión para evitar mostrar el documento ampliado la primera vez que la previsualización es mostrada.\n\n* Nuevo: Apariencia Office 2007 para la barra de mensajes. Simplemente añade la clausula 2007 para ello:\n  SET MESSAGE OF oWnd TO \"Testing the ButtonBar 2007 Office look\" ; \n  CENTERED 2007 CLOCK KEYBOARD','',0,'','3eko2abo',1,0,'',2,0,0),(39239,8452,3,2,0,'87.218.146.164',1191952546,1,0,1,1,1,1,'','','Otto,\n\nViaOpen will make a great announcement this same week. \n\nPlease wait to see their new product <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','corb3ovl',1,0,'',2,0,0),(39240,8439,1,418,0,'83.156.157.172',1191952928,1,0,1,1,1,0,'','','Thanks at you two\nI will test this two functions.\nregards\nPatrick','',0,'','1c7sgfzh',1,0,'',418,0,0),(39241,8447,3,2,0,'87.218.146.164',1191952992,1,0,1,1,1,1,'','','This is your picture, whats wrong ?\n[url=http&#58;//imageshack&#46;us:1wtprb05][img:1wtprb05]http&#58;//img411&#46;imageshack&#46;us/img411/9827/imagemhn6&#46;jpg[/img:1wtprb05][/url:1wtprb05]','',0,'GA==','1wtprb05',1,0,'',2,0,0),(39242,8443,7,2,0,'87.218.146.164',1191953256,1,0,1,1,1,1,'','','Elias,\n\nComprueba que estos sean los flags que usas al llamar al compilador de C:\n\n%vcdir%\\bin\\clarm -W3 -c /DARM /DUNICODE /I%hdir%\\include /I..\\include %1.c','',0,'GA==','2q7xorw2',1,0,'',2,0,0),(39243,8442,3,2,0,'87.218.146.164',1191953608,1,0,1,1,1,1,'','','Enrico,\n\nFixed:\n\n         TransBmp( ::hBitmap1, nBmpWidth( ::hBitmap1 ), nBmpHeight( ::hBitmap1 ), nZeroZeroClr, ::hDC,;\n                   ( ::nWidth / 2 ) - ( nBmpWidth( ::hBitmap1 ) / 2 ) + If( ::lPressed, 2, 1 ),;\n                   Max( 0, ( ::nHeight / 3 ) - ( nBmpHeight( ::hBitmap1 ) / 2 ) + If( ::lPressed, 2, 1 ) ),;\n                   nBmpWidth( ::hBitmap1 ), nBmpHeight( ::hBitmap1 ) )\n\nmany thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe plan to publish a modified 7.10 build this same week with late-changes on Class TBtnBmp','',0,'GA==','16b4hjzg',1,0,'',2,0,0),(39244,8453,3,2,0,'87.218.146.164',1191953798,1,0,1,1,1,1,'','','Otto,\n\nYes, no lenght limit <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','2h91l0x0',1,0,'',2,0,0),(39245,8453,3,138,0,'189.141.70.33',1191953898,1,0,1,1,1,1,'','','Otto:\n\nNot limite in the dbf NAME but ....\n\nYES IN THE FIELD NAME, field names cannot support long names.','',0,'GA==','wsghbwi3',1,0,'',138,0,0),(39246,8399,6,278,0,'200.126.93.198',1191953905,1,0,1,1,1,1,'','','GRACIAS Mantonio y jacksoft :\n\nMe parece muy buena idea tambien, la voy a probar como funciona.\n\nDisculpen no responder pronto, pero no habia podido, por estar fuera de mi ciudad.\n\nSaludos ,','',0,'GA==','16m51h1c',1,0,'',278,0,0),(39247,8424,3,2,0,'87.218.146.164',1191953916,1,0,1,1,1,1,'','','Norberto,\n\nWe provide you a free upgrade for rpreview.prg','',0,'GA==','31mbsa21',1,0,'',2,0,0),(39248,8444,3,2,0,'87.218.146.164',1191954102,1,0,1,1,1,1,'','','Peter,\n\nAre you using xHB commercial ?','',0,'GA==','3g9w43m3',1,0,'',2,0,0),(39249,8449,6,2,0,'87.218.146.164',1191954252,1,0,1,1,1,1,'','','Moisés,\n\nArreglado, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','ki3w1aom',1,0,'',2,0,0),(39250,6332,6,904,0,'196.25.255.250',1191954746,1,0,1,1,1,1,'','','I hear you use List &amp; Label 12 with ActiveX\n\nCould you please help me with some sample code that can get me started.\n\n----\n\nHe escuchado que usted usa una List &amp; Label 12 con ActiveX \n\n¿Podría usted por favor me ayude con algunos ejemplos de código que puede llegar yo iniciamos.','',0,'GA==','2nykzxml',1,0,'',904,0,0),(39251,8447,3,1158,0,'200.233.185.181',1191954942,1,0,1,1,1,0,'','','Antonio, after patch rpreview with :\n\nif ! ::lZoom .and. ! lInit \n      // ::Zoom( .T. )    A.L. 08 Oct 2007 \n   endif \n\nposted in this forum, to user NageswaraRao, the left page is corrected, the font is wrong in left page, fixed with lines above.\n\nthanks','',0,'GA==','3tq0r82m',1,0,'',1158,0,0),(39252,8424,3,1158,0,'200.233.185.181',1191955049,1,0,1,1,1,0,'','','thanks, best regards.','',0,'GA==','1qxotcrf',1,0,'',1158,0,0),(39253,6332,6,137,0,'151.38.8.195',1191955635,1,0,1,1,1,0,'','','Jairo, I\'m interested too.\n\nThx in advance,\nRoberto Parisi','',0,'GA==','127jzqpo',1,0,'',137,0,0),(39254,8453,3,51,0,'80.122.88.242',1191960129,1,0,1,1,1,0,'','','Thank you. Good news. Friendly filenames are much easier to support and maintain.\nRegards,\nOtto','',0,'GA==','b5cmqvo9',1,0,'',51,0,0),(39255,8440,3,51,0,'80.122.88.242',1191960726,1,0,1,1,1,0,'','','Antonio,\nDo you plan to provide a similar function to SetGetColorFocus\n for the other controls too.\nRegards,\nOtto','',0,'GA==','2j85tp3o',1,0,'',51,0,0),(39256,8440,3,2,0,'87.218.146.164',1191962051,1,0,1,1,1,1,'','','Otto,\n\nNo, it is only for GETs, because they easily allow to change their colors.\n\nActually you are not using Win32 themes, but soon you will <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> and then it has little sense to change the colors of those controls','',0,'GA==','330rgds6',1,0,'',2,0,0),(39257,8447,3,2,0,'87.218.146.164',1191962171,1,0,1,1,1,1,'','','Norberto,\n\nOk, I see. So now is ok, right ?','',0,'GA==','38vbtd1q',1,0,'',2,0,0),(39258,8447,3,1158,0,'200.139.130.189',1191962272,1,0,1,1,1,0,'','','Yes. works fine. thanks','',0,'GA==','dyqhuh48',1,0,'',1158,0,0),(39259,8399,6,36,0,'164.77.81.210',1191962716,1,0,1,1,1,1,'','','Puedes Usar la libreria CT.LIB y utilizar las funciones de red\n\n[code:27vkxgyv]//NETREDIR&#40; cLocalDevice, cSharedDevice, &#91; cPassword &#93;, &#91; lShowError&#93; &#41; -&gt; lSuccess\n\nALERT&#40;NETREDIR&#40; &quot;LPT1&quot;, &quot;\\\\REPUESTOS\\OK320TURBO&quot; &#41;&#41;\n//seria con net use lpt1&#58; \\\\repuestos\\ok320turbo\n\n//si quieres saber si existe el puerto compartido&#46;&#46;\n//NETRMTNAME&#40; cLocalDevice &#41; -&gt; cSharedName\nALERT&#40;NETRMTNAME&#40; &quot;LPT1&quot; &#41;&#41;\n\n//Si quieres eliminar una conexion,&#46;&#46;\n//NETCANCEL&#40; &lt;cLocalDevice&gt; &#41; -&gt; lReleased\nalert&#40; NETCANCEL&#40; &quot;LPT1&quot; &#41; &#41;[/code:27vkxgyv]\n\nAhi puedes jugar con esas funciones..','',0,'AIA=','27vkxgyv',1,0,'',36,0,0),(39260,8447,3,1158,0,'200.139.130.189',1191962767,1,0,1,1,1,0,'','','Antonio, i try, works, but now have an another thing... i send to you private email now, because to you understand the problem, you have see 3 images..\nthanks\nnorberto','',0,'AIA=','3kqt2p13',1,0,'',1158,0,0),(39262,8427,6,72,0,'189.146.242.84',1191970579,1,0,1,1,1,0,'','','Definitivamente, nuestras aplicaciones van adquiriendo mejor vista.\n\nGracias Antonio.\n\n[url=http&#58;//img131&#46;imageshack&#46;us/my&#46;php?image=rcnewvs1&#46;jpg:2706o99j][img:2706o99j]http&#58;//img131&#46;imageshack&#46;us/img131/8292/rcnewvs1&#46;th&#46;jpg[/img:2706o99j][/url:2706o99j]','',0,'GA==','2706o99j',1,0,'',72,0,0),(39263,8442,3,6,0,'82.55.208.100',1191971352,1,0,1,1,1,1,'','','Thank you!\n\nEMG','',0,'GA==','328rcdc6',1,0,'',6,0,0),(39264,6332,6,439,0,'200.125.50.33',1191972592,1,0,1,1,1,1,'','Re: Probando List &amp; Label 12','[quote=&quot;Jairo Centeno&quot;:2wwsfehy]JoseLuis,\n\nYa tengo el programita de prueba para usar List &amp; Label con FWH, lo modifiqué del ejemplo originalmente diseñado para xBase++\n\nSi te interesa, envíame tu correo.\n\nSaludos.[/quote:2wwsfehy]\n\nSeria bueno que pudieras subirlo a un servidor tipo mediafire u otro y poner el link aqui beneficiando asi a todo interesado','',0,'gA==','2wwsfehy',1,0,'',439,0,0),(39265,8427,6,940,0,'201.163.91.187',1191973433,1,0,1,1,1,1,'','','Upsss eso es lo que siempre hemos esperado,\n\ngracias antonio.','',0,'gA==','4rzsu56d',1,0,'',940,0,0),(39266,8427,6,215,0,'189.136.54.156',1191975930,1,0,1,1,1,1,'','otro más...','Otro más \nBuen trabajo Antonio. \n\n<!-- m --><a class=\"postlink\" href=\"http://www.captura-digital.com/files/look2007.png\">http://www.captura-digital.com/files/look2007.png</a><!-- m -->\n\nFernando Leal\nMéxico, DF','',0,'gA==','1b10adzw',1,0,'',215,0,0),(39267,6332,6,215,0,'189.136.54.156',1191976225,1,0,1,1,1,1,'','Hola','Hola,\nsupongo que es este producto\n\n<!-- m --><a class=\"postlink\" href=\"http://www.abox.com/productos.asp?pid=146\">http://www.abox.com/productos.asp?pid=146</a><!-- m -->\n\nEn los lenguajes en los que se puede usar incluye FiveWin\n\nTe agradecería me enviaras el ejemplo a mi tambien.\n\nGracias\nFernando\nMéxico, DF','',0,'gA==','xq1zxpmt',1,0,'',215,0,0),(39268,8451,3,89,0,'213.21.136.60',1191997473,1,0,1,1,1,0,'','','Ciao Enrico \n\nYes , CallDll is in Xharbour and in FW and I need to use the one in xHArbour .\n\nRegards Maurizio','',0,'gA==','1icwaxg1',1,0,'',89,0,0),(39269,8444,3,460,0,'217.37.54.49',1191999403,1,0,1,1,1,0,'','','Yes','',0,'gA==','316w3xdv',1,0,'',460,0,0),(39270,8442,3,6,0,'87.18.215.206',1192000025,1,0,1,1,1,1,'','','A little change to your fix:\n\n[code:3q2670sa]         TransBmp&#40; &#58;&#58;hBitmap1, nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41;, nZeroZeroClr, &#58;&#58;hDC,;\n                   &#40; &#58;&#58;nWidth / 2 &#41; - &#40; nBmpWidth&#40; &#58;&#58;hBitmap1 &#41; / 2 &#41; + If&#40; &#58;&#58;lPressed, 2, 1 &#41;,;\n                   Max&#40; 0, &#40; &#58;&#58;nHeight / 3 &#41; - &#40; nBmpHeight&#40; &#58;&#58;hBitmap1 &#41; / 2 &#41; &#41; + If&#40; &#58;&#58;lPressed, 2, 1 &#41;,; \n                   nBmpWidth&#40; &#58;&#58;hBitmap1 &#41;, nBmpHeight&#40; &#58;&#58;hBitmap1 &#41; &#41;[/code:3q2670sa]\n\nWithout this the buttons are shifted on right instead of right-down when pressed.\n\nEMG','',0,'AIA=','3q2670sa',1,1192007077,'',6,1,0),(39271,8442,3,6,0,'87.18.215.206',1192001086,1,0,1,1,1,1,'','','Another problem: it seems that the height of the buttons is shorter with 2007 clause. Can you check?\n\nEMG','',0,'AIA=','39z441ws',1,0,'',6,0,0),(39272,8442,3,6,0,'87.18.215.206',1192001184,1,0,1,1,1,1,'','','One more bug. In the following sample try to move the mouse over the button and you will see that the font of the messagebar is changed.\n\n[code:20a66cf9]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd\n\n    DEFINE BUTTON OF oBar;\n           TOOLTIP &quot;Test&quot;\n\n    SET MESSAGE OF oWnd TO &quot;This is a test&quot; 2007\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:20a66cf9]\n\nEMG','',0,'AIA=','20a66cf9',1,0,'',6,0,0),(39273,8426,3,6,0,'87.18.215.206',1192001704,1,0,1,1,1,1,'','Re: FWH 7.10 - Office 2007 look for MsgBar','I noticed that in your image the menu is painted in gradient color. Is it a feature of Vista or can we get it in XP too?\n\nEMG','',0,'AIA=','3gkl5ags',1,0,'',6,0,0),(39274,8442,3,2,0,'87.218.146.164',1192005415,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Without this the buttons are shifted on right instead of right-down when pressed. \n\nMy mistake. Yes, you are right, as usual <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2zqqq4g6',1,0,'',2,0,0),(39275,8443,7,720,0,'80.36.244.134',1192006509,1,0,1,1,1,0,'','','Gracias Antonio...\n\nHe quitado lo que me comentas. De todas formas vi por el foro que con poner extern \'C\'{} ...se solucionó.\n\nAhora resulta que me lanza dos errores más al incorporar funciones para conexón GPRS. Los dos errores son los siguientes:\n\n- Unresolved external symbol ConnMgrEstablishConnection refereced in function HB_FUN_GPRSCONNECTION\n\n- Unresolved external symbol ConnMgrConnectionStatus refereced in function HB_FUN_GPRSCONNECTION\n\nSupongo que esto también sea por lo mismo pero nose como quitar esos errores.\n\n\nMuchas gracias..\n\nSaludos.\n\nElías Torres.','',0,'AIA=','3qkyhwwb',1,0,'',720,0,0),(39276,8442,3,2,0,'87.218.146.164',1192006636,1,0,1,1,1,1,'','','Enrico,\n\n&gt;\nIn the following sample try to move the mouse over the button and you will see that the font of the messagebar is changed. \n&gt;\n\nFixed. Many thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease make this change in Class TMsgBar Method Paint():\n[code:1vi9uz48]\n      &#58;&#58;Say&#40; &#58;&#58;nHeight / 4,;\n             If&#40; &#58;&#58;lCentered, &#40; &#58;&#58;nWidth / 2 &#41; - &#40; GetTextWidth&#40; &#58;&#58;hDC,;\n             If&#40; Empty&#40; &#58;&#58;cMsg &#41;, &#58;&#58;cMsgDef, &#58;&#58;cMsg &#41;,;\n             &#58;&#58;oWnd&#58;oFont&#58;hFont &#41; / 2 &#41;, 10 &#41;, If&#40; Empty&#40; &#58;&#58;cMsg &#41;, &#58;&#58;cMsgDef, &#58;&#58;cMsg &#41;,;\n             &#58;&#58;nClrText,,, &#46;T&#46;, &#46;T&#46; &#41;\n[/code:1vi9uz48]','',0,'AIA=','1vi9uz48',1,0,'',2,0,0),(39277,8442,3,6,0,'87.18.215.206',1192007027,1,0,1,1,1,1,'','','Thank you. Can you check this too?\n\n[quote=&quot;EnricoMaria&quot;:3no4aw4e]Another problem: it seems that the height of the buttons is shorter with 2007 clause.[/quote:3no4aw4e]\n\nEMG','',0,'gA==','3no4aw4e',1,0,'',6,0,0),(39278,8442,3,2,0,'87.218.146.164',1192007858,1,0,1,1,1,1,'','','Enrico,\n\nIt seems ok. Please check this example using and removing 2007:\n[code:8gekryzh]\n#include &quot;Fivewin&#46;ch&quot; \n\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL oWnd, oBar \n\n    DEFINE WINDOW oWnd \n\n    DEFINE BUTTONBAR oBar OF oWnd SIZE 40, 40 // 2007\n\n    DEFINE BUTTON OF oBar ; \n           TOOLTIP &quot;Test&quot; ACTION MsgInfo&#40; oBar&#58;aControls&#91; 1 &#93;&#58;nHeight &#41;\n\n    SET MESSAGE OF oWnd TO &quot;This is a test&quot; 2007 \n\n    ACTIVATE WINDOW oWnd \n\n    RETURN NIL\n[/code:8gekryzh]','',0,'AIA=','8gekryzh',1,0,'',2,0,0),(39279,8442,3,6,0,'87.18.215.206',1192008257,1,0,1,1,1,1,'','','Ok, but try with 3D clause:\n\n[code:aa44ghuw]DEFINE BUTTONBAR oBar OF oWnd SIZE 40, 40 2007 3D[/code:aa44ghuw]\n\nEMG','',0,'AIA=','aa44ghuw',1,0,'',6,0,0),(39280,8442,3,6,0,'87.18.215.206',1192008415,1,0,1,1,1,1,'','','With the following change we get the same position for message of 2007 and not 2007 style msgbar:\n\n[code:35me5pkk]      &#58;&#58;Say&#40; &#58;&#58;nHeight / 4 - 2,;\n             If&#40; &#58;&#58;lCentered, &#40; &#58;&#58;nWidth / 2 &#41; - &#40; GetTextWidth&#40; &#58;&#58;hDC,;\n             If&#40; Empty&#40; &#58;&#58;cMsg &#41;, &#58;&#58;cMsgDef, &#58;&#58;cMsg &#41;,;\n             &#58;&#58;oWnd&#58;oFont&#58;hFont &#41; / 2 &#41;, 4 &#41;, If&#40; Empty&#40; &#58;&#58;cMsg &#41;, &#58;&#58;cMsgDef, &#58;&#58;cMsg &#41;,;\n             &#58;&#58;nClrText,,, &#46;T&#46;, &#46;T&#46; &#41;[/code:35me5pkk]\n\nEMG','',0,'AIA=','35me5pkk',1,0,'',6,0,0),(39281,8442,3,6,0,'87.18.215.206',1192009368,1,0,1,1,1,1,'','','The bitmaps are no longer centered inside the buttons with 2007 clause:\n\n[code:lfxlviv8]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd SIZE 40, 40 2007\n\n    DEFINE BUTTON OF oBar;\n           FILE &quot;C&#58;\\FWH\\BITMAPS\\CLIENT&#46;BMP&quot;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:lfxlviv8]\n\nEMG','',0,'AIA=','lfxlviv8',1,0,'',6,0,0),(39282,8426,3,2,0,'87.218.146.164',1192009627,1,0,1,1,1,1,'','','Enrico,\n\nIts a Vista feature','',0,'AIA=','u5kb3uiy',1,0,'',2,0,0),(39283,8442,3,2,0,'87.218.146.164',1192009962,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Ok, but try with 3D clause:\n\nYes, you are right, 3D clause should not be used with 2007 clause together, or buttons will not cover all the bar height','',0,'AIA=','2q2irah0',1,0,'',2,0,0),(39284,8426,3,6,0,'87.18.215.206',1192009994,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'AIA=','33irwzwp',1,0,'',6,0,0),(39285,8442,3,6,0,'87.18.215.206',1192010060,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2prucmlc]Enrico,\n\n&gt; Ok, but try with 3D clause:\n\nYes, you are right, 3D clause should not be used with 2007 clause together, or buttons will not cover all the bar height[/quote:2prucmlc]\n\nRight.\n\nEMG','',0,'gA==','2prucmlc',1,0,'',6,0,0),(39286,8455,3,47,0,'203.144.160.247',1192010374,1,0,1,1,1,0,'','Sbutton problem with Valid in Get?','Dear All, \n\nI use FWH707+Sbutton5.  Have any one found this TSbutton problem as me? When I use Alt+s for \"&amp;Save\" the problem is the valid on TGET is skiped. It means any function on TGET Valid do nothing. It is my big problem right now because I use a lot TSbutton in my program. \n\nThank in advance\n[quote:1yrsb51h]\nExample \n====== \n#include \'Fivewin.ch\' \n#include \'Tsbutton.ch\' \n\nStatic oDlg \n\nProcedure Main \nlocal oGet, oBtn, cVar \ncVar := 0 \n\nDEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 TITLE \'Test TSbutton\' \n\n@ 1, 1 GET oGet VAR cVar SIZE 30,12 PIXEL Valid (cVar&gt;0) \n\n@ 40,50 SBUTTON oBtn PROMPT \'&amp;Test\' ; \nSIZE 30, 20 ; \nPIXEL ; \nACTION MsgInfo(\' Test \') \n\nACTIVATE DIALOG oDlg CENTER \n\nreturn[/quote:1yrsb51h]','',0,'gA==','1yrsb51h',1,0,'',47,0,0),(39287,8442,3,2,0,'87.218.146.164',1192010492,1,0,1,1,1,1,'','','Enrico,\n\nThis is the right code to center the bitmaps. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:jevswn7h]\n         TransBmp&#40; hBmp, nBmpWidth&#40; hBmp &#41;, nBmpHeight&#40; hBmp &#41;, nZeroZeroClr, &#58;&#58;hDC,;\n                   &#40; &#58;&#58;nWidth / 2 &#41; - &#40; nBmpWidth&#40; hBmp &#41; / 2 &#41; + If&#40; &#58;&#58;lPressed, 2, 1 &#41;,;\n                   Max&#40; 0, &#40; &#58;&#58;nHeight / &#40; 2 + If&#40; ! Empty&#40; &#58;&#58;cCaption &#41;, 1, 0 &#41; &#41; &#41; - ;\n                   &#40; nBmpHeight&#40; hBmp &#41; / 2 &#41; &#41; + If&#40; &#58;&#58;lPressed, 2, 1 &#41;,;\n                   nBmpWidth&#40; hBmp &#41;, nBmpHeight&#40; hBmp &#41; &#41;\n[/code:jevswn7h]','',0,'AIA=','jevswn7h',1,0,'',2,0,0),(39288,8427,6,2,0,'87.218.146.164',1192011963,1,0,1,1,1,1,'','','Hemos publicado un nuevo build 7.10 con unas modificaciones de última hora en la apariencia 2007. Por favor descargadlo, gracias','',0,'AIA=','rs5tmh9l',1,0,'',2,0,0),(39289,8430,6,2,0,'87.218.146.164',1192012022,1,0,1,1,1,1,'','','Hemos publicado un nuevo build 7.10 con unas modificaciones de última hora en la apariencia 2007. Por favor descargadlo, gracias','',0,'AIA=','1ekir552',1,0,'',2,0,0),(39290,8429,3,2,0,'87.218.146.164',1192012078,1,0,1,1,1,1,'','','We have published a new 7.10 build including some late changes on the 2007 look. Please download again, thanks!','',0,'AIA=','1xp2sua4',1,0,'',2,0,0),(39291,6332,6,456,0,'217.127.39.57',1192012214,1,0,1,1,1,1,'','','Jairo ya compartio el fuente de como utilizar List&amp;Label con fivewin y activex , revisar el siguiente post [url:ll1tk3rk]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6256[/url:ll1tk3rk], hay un ejemplo de uso del diseñador.','',0,'EA==','ll1tk3rk',1,0,'',456,0,0),(39292,8443,7,2,0,'87.218.146.164',1192012227,1,0,1,1,1,1,'','','Elías,\n\nPara usar esas funciones parece que tienes que enlazar CellCore.lib de las librerías de VCE.','',0,'EA==','3vkarv4v',1,0,'',2,0,0),(39293,8442,3,6,0,'87.18.215.206',1192012858,1,0,1,1,1,1,'','','Great! Is it already in the new FWH build?\n\nEMG','',0,'EA==','1r1y8w8w',1,0,'',6,0,0),(39294,8442,3,6,0,'87.18.215.206',1192013024,1,0,1,1,1,1,'','','Ops! What is hBmp?\n\nEMG','',0,'EA==','1mku3a34',1,0,'',6,0,0),(39295,8456,6,316,0,'213.97.245.163',1192013258,1,0,1,1,1,0,'','Problema con Harbour.','Antonio,\n\nEstoy con el problema que apareció en :\n\n[url:2vknbem7]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=8017&amp;highlight=combobox[/url:2vknbem7]\n\ndeduzco que el error es el mismo porque en el error log referencia exactamente a la misma linea.\n\nHe bajado el harbour.exe nuevamente de la página web de Fivetechsoft, las libs estan fechadas 13/09/07 08:53, pero el error continua.\nEl harbour.exe (instalable) es de 1.823.469 bytes.\n\nSería posible que me enviaras el harbour corregido x mail? \n\nPor cierto, es el harbour para BCC 5.5. \ncarlos.mora arroba atisa.es. \n\nGracias,\n\nCarlos.','',0,'EA==','2vknbem7',1,0,'',316,0,0),(39296,8443,7,720,0,'80.36.244.134',1192013994,1,0,1,1,1,0,'','','De nuevo, gracias Antonio...solucionado.\n\nUn saludo.\n\nElías Torres.','',0,'EA==','25wrapov',1,0,'',720,0,0),(39297,8442,3,2,0,'87.218.146.164',1192014988,1,0,1,1,1,1,'','','Enrico,\n\nPlease download FWH 7.10 again, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','ep7z2fhu',1,0,'',2,0,0),(39298,8442,3,2,0,'87.218.146.164',1192015550,1,0,1,1,1,1,'','','Enrico,\n\n&gt;\nWith the following change we get the same position for message of 2007 and not 2007 style msgbar: \n&gt;\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','mreldsp5',1,0,'',2,0,0),(39299,8456,6,2,0,'87.218.146.164',1192015764,1,0,1,1,1,1,'','','Carlos,\n\nPor favor prueba samples\\combos.prg y escribe en los combos editables. \n\nAqui está funcionando perfectamente con el build de Harbour que tenemos publicado en nuestra web','',0,'EA==','104i92er',1,0,'',2,0,0),(39300,8456,6,316,0,'213.97.245.163',1192017743,1,0,1,1,1,0,'','','Antonio,\n\nMe sigue fallando, te paso la pantalla.\npuedo escribir en el combo, pero en el siguiente, cuando cambio con el raton de valor casca.\n\n[img:2c3lukgk]http&#58;//img408&#46;imageshack&#46;us/img408/1319/combostm7&#46;jpg[/img:2c3lukgk]\n\nSi prefieres te puedo enviar el exe compilado.\n\nSaludos,\nCarlos.','',0,'CA==','2c3lukgk',1,0,'',316,0,0),(39301,8457,6,694,0,'200.146.114.73',1192020161,1,0,1,1,1,1,'','TWBROWSE celulas editaveis!','Amigos, estou com o seguinte problema com a TWBROWSE, quando teclo ENTER em uma celula(editavel) e entra e modo de edição, não consigo executar mais nenhuma ação com o mouse em botões na mesma dialog. Só consigo executar alguma ação depois de sair do modo de edição. Alguem sabe como resolver isso?\n\n\nGrato\n\nAoki','',0,'CA==','3i3v5g84',1,0,'',694,0,0),(39302,8458,6,694,0,'200.146.114.73',1192024954,1,0,1,1,1,1,'','Dica muito boa de transparencia em Dialog!','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8083\">http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=8083</a><!-- m -->\n\n\nAoki','',0,'CA==','2qrx9py9',1,0,'',694,0,0),(39303,8459,3,972,0,'81.164.117.81',1192027377,1,0,1,1,1,0,'','GTP with ActiveX with Internet Explorer','Hello,\n\nWhen I try to use AxtiveX with Internet Explorer I get a GPF. Please try following code:\n\n[code:1d8z2gjt]#include &quot;FiveWin&#46;ch&quot;\n\nPROCEDURE Main&#40;&#41;\n\n   LOCAL oWnd, oActiveX\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;InternetExplorer&#46;Application&quot; &#41;\n   oWnd&#58;oClient = oActiveX\n   \n   oActiveX&#58;SetProp&#40; &quot;Navigate&quot;, &quot;http&#58;//www&#46;fivetechsoft&#46;com&quot; &#41;\n\n   ACTIVATE WINDOW oWnd CENTER\n\nRETURN[/code:1d8z2gjt]\n\nI compiled it with latest xHarbour from CVS with BCC and/or XCC. I tried on Vista and Windows XP, but on both it GPF\'s\n\nCan someone please confirm?\n\nThanks!\n\nPatrick','',0,'AIA=','1d8z2gjt',1,0,'',972,0,0),(39304,8456,6,316,0,'213.97.245.163',1192028345,1,0,1,1,1,0,'','','Hola gente,\n\npor favor, si algun compañero me puede enviar una copia del Harbour que no tenga el problema del Type del get que provoca el error en el combobox se lo agradecería mucho. El Harbour fallido tiene fecha 13/09/07 en los archivos del directorio LIB.\n\nLo necesito porque el get de fechas me falla si lo compilo con el Harbour que venia con la version 7.07, con las libs de fechas 15/07/07, y si lo compilo con la ultima version me falla el combobox, y es urgente, estoy con mi aplicación de contabilidad parada.\n\nGracias por adelantado, \n\nCarlos','',0,'AIA=','8rmtihmc',1,0,'',316,0,0),(39305,8444,3,365,0,'207.188.233.100',1192032007,1,0,1,1,1,0,'','','Getting the same DDE related unresolved externals when linking with xHB commercial (latest) with FWH latest.','',0,'AIA=','3mfdckf4',1,0,'',365,0,0),(39306,8457,6,362,0,'200.158.18.115',1192032397,1,0,1,1,1,1,'','','está correto.\n\nevite usar browse editavel, e sim, disparar para um DIALOGO, assim, seu usuario, fica com o controle total sobre o mouse. \n\nQuando voce edita uma celula, o CURSOR fica preso na mesma, igual no EXCEL.','',0,'AIA=','2wex9hd1',1,0,'',362,0,0),(39307,8389,6,362,0,'200.158.18.115',1192033017,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://search.microsoft.com/results.aspx?l=4&amp;qsc0=0&amp;SearchBtn0=Pesquisar&amp;q=sapi&amp;setlang=es-MX&amp;mkt=es-MX&amp;FORM=ZZMW41\">http://search.microsoft.com/results.asp ... ORM=ZZMW41</a><!-- m -->','',0,'AIA=','260iskem',1,0,'',362,0,0),(39308,8456,6,2,0,'87.218.146.164',1192034766,1,0,1,1,1,1,'','','Carlos,\n\nTe enviamos por email la RTL.LIB de Harbour que nosotros usamos y que funciona bien','',0,'AIA=','14l0sfyt',1,0,'',2,0,0),(39309,8457,6,694,0,'200.146.114.73',1192035247,1,0,1,1,1,1,'','','viche!!!','',0,'AIA=','3oeps8ae',1,0,'',694,0,0),(39310,8456,6,316,0,'213.97.245.163',1192035696,1,0,1,1,1,0,'','','Antonio,\n\nSi, lo he recibido. El problema es que es exactamente el mismo, fc no encuentra diferencias  son de = fecha y tamaño.\n\nTe he enviado el combo del samples completo, con el link script que genera el buildh.bat, y me produce el error.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','8nhz5xw2',1,0,'',316,0,0),(39311,8444,3,2,0,'87.218.146.164',1192035841,1,0,1,1,1,1,'','','Here you have the missing DDEML.OBJ for FWH for xHB\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/61616112/DDEML.zip.html\">http://rapidshare.com/files/61616112/DDEML.zip.html</a><!-- m -->','',0,'AIA=','2usbzqfa',1,0,'',2,0,0),(39312,8459,3,2,0,'87.218.146.164',1192036067,1,0,1,1,1,1,'','','Patrick,\n\nPlease review samples\\WebExp.prg\n\nit shows the right way to use it','',0,'AIA=','1tzym2sa',1,0,'',2,0,0),(39313,8456,6,2,0,'87.218.146.164',1192036174,1,0,1,1,1,1,'','','Carlos,\n\nNecesitas una versión modificada de la clase TGet de FWH. \n\nSe incluye con FWH 7.09 y 7.10\n\nPuedes modificar tu clase TGet de FWH buscando :Type = ... y quitándolo','',0,'AIA=','3fzon4i0',1,0,'',2,0,0),(39314,8459,3,972,0,'81.164.117.81',1192036657,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3s19h68o]Please review samples\\WebExp.prg\nit shows the right way to use it[/quote:3s19h68o]\n\nOk, great. These work OK!\n\nThank you.\n\nPatrick','',0,'gA==','3s19h68o',1,0,'',972,0,0),(39315,8443,7,2,0,'87.218.146.164',1192037167,1,0,1,1,1,1,'','','Bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1j9btreb',1,0,'',2,0,0),(39316,8460,3,51,0,'80.122.88.242',1192037996,1,0,1,1,1,0,'','www.fivewin.info','Hello Patrick,\non\nFiveWin in Practice part 2\nBy Patrick Mast\nthe links a broken.\nRegards,\nOtto\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/general_info.php?id=24\">http://www.fivewin.info/html/general_info.php?id=24</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/images/FiveWi3.jpg\">http://www.fivewin.info/html/images/FiveWi3.jpg</a><!-- m -->','',0,'gA==','1xmq99x7',1,0,'',51,0,0),(39317,8461,12,179,0,'200.125.135.241',1192041460,1,0,1,1,1,1,'','necesito el harb y xharb for linux con fecha 13/12/2005','buenas tardes\nnecesito esos programas, trato de probar la version de fivelinux que compre por esas fechas, fivelinux esta ok pero harbour y xharbour solo sacan una pantalla inicial y no instalan nada\n\nsi alguien los tiene, gracias\n\nGracias x todo\nsaludos','',0,'gA==','inq5ypq1',1,0,'',179,0,0),(39318,8461,12,2,0,'87.218.146.164',1192041938,1,0,1,1,1,1,'','','Wilson,\n\nEnvíanos un email y te ayudamos a localizarlos, gracias','',0,'gA==','2vuikpq2',1,0,'',2,0,0),(39319,8416,3,63,0,'88.0.164.66',1192043028,1,0,1,1,1,0,'','','Antonio has suggested a way to make my DLL accesible from Visual Basic that just completes the receipt to make DLLs callables from another language. Just add the following to the .prg:\n\n[code:b18dtxkn]long _export pascal TEST&#40; char * cProcName, char * cParam &#41;\n&#123;\n   PHB_ITEM pItem = hb_itemPutC&#40; NULL, cParam &#41;;\n\n   hb_itemDoC&#40; cProcName, 1, &#40; PHB_ITEM &#41; pItem, 0 &#41;;\n   hb_itemRelease&#40; pItem &#41;;\n\n   return 0;\n&#125; \n\nand declare the DLL in VB as follows&#58;\n\nDeclare Function TEST Lib &quot;C&#58;\\Path\\MyDll&quot; &#40;ByVal cProcName As String, ByVal cParam As String&#41; As Long\n[/code:b18dtxkn]\n\nThen, from VB5 just call the function as always:\n[code:b18dtxkn]\nn = TEST&#40;&quot;TEST&quot;, &quot;My_parameter&quot;&#41;\n[/code:b18dtxkn]\n\nI\'m sure many people will find this info valuable. Thanks a lot, Antonio!\n\nRafael','',0,'AIA=','b18dtxkn',1,0,'',63,0,0),(39320,8416,3,2,0,'87.218.146.164',1192043271,1,0,1,1,1,1,'','','Rafael,\n\nGlad to know it is working <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1turc6or',1,0,'',2,0,0),(39321,8461,12,179,0,'200.125.135.241',1192045887,1,0,1,1,1,1,'','','Antonio, buenas tardes\n\ngracias x responder\n ya te he enviado el email\n\nSaludos','',0,'AIA=','gor2edt8',1,0,'',179,0,0),(39322,8461,12,2,0,'87.218.146.164',1192047127,1,0,1,1,1,1,'','','gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1hhqw11o',1,0,'',2,0,0),(39323,8462,3,73,0,'200.23.18.132',1192047609,1,0,1,1,1,0,'','to Stefan Haupt RMCHART','Stefan, I would greatly appreciate you emailing the RMChart wrappers to me at\n<!-- e --><a href=\"mailto:fjhorta@yahoo.com.mx\">fjhorta@yahoo.com.mx</a><!-- e -->\ntks\nPako','',0,'AIA=','pwlhond5',1,0,'',73,0,0),(39324,8463,3,51,0,'80.122.88.242',1192048777,1,0,1,1,1,0,'','RC-File TFolder','If you change from FW to FWH do you have to change all \n\nCONTROL \"\",999, \"TFolder\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 11, 2, 383, 246\nin Rc file to: FOLDER32?\n\n#include \"..\\..\\..\\fwh\\include\\winapi.ch\"\n\nCONTROL \"\", 110, FOLDER32, 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 8, 4, 398, 234\nRegards,\nOtto','',0,'AIA=','igqqufjz',1,0,'',51,0,0),(39325,8463,3,2,0,'87.218.146.164',1192049317,1,0,1,1,1,1,'','','Otto,\n\nYes, or simply change \"TFolder\" into \"SysTabControl32\"\n\nFOLDER32 is a define that gets translated into \"SysTabControl32\"','',0,'AIA=','3bb14918',1,0,'',2,0,0),(39326,8461,12,179,0,'200.125.135.241',1192049688,1,0,1,1,1,1,'','','gracias x todo Antonio\n\nUn Abrazo\n\natt.','',0,'AIA=','3ff1e8yz',1,0,'',179,0,0),(39327,8464,6,774,0,'200.72.70.248',1192050429,1,0,1,1,1,1,'','SOBRE MENUSAT A LOS Q LO USAMOS ?????','Tengo un problema al tratar de hacer menus popup de menusat,, sobre un browse...\n\ncon el menu nativo de FWH no tengo problema,, asi q debe ser el menusat \n\nalguien le ha ocurrido me marca cprompt como !NIL\n\n\no alguien ha usado menu popup sobre browser... \n\nGRACIAS_--','',0,'AIA=','2h86zjy3',1,0,'',774,0,0),(39328,8465,3,51,0,'80.122.88.242',1192053130,1,0,1,1,1,0,'','Dialog, Button PIXEL','If I use PIXEL then the Pixels from the Button count double i.e.\n@ 125, 100 BTNBMP SIZE BTN_WIDTH, BTN_HEIGHT ;\n      FILENAME \"..\\bitmaps\\arrow.bmp\" OF oDlg\nIs shown on 250, 200.\n\nWhat is the right syntax?\n\nPS:\nScreen Ruler (free) is a useful tool to measure the coordinates:\n<!-- m --><a class=\"postlink\" href=\"http://delphi.about.com/library/weekly/aa080205a.htm\">http://delphi.about.com/library/weekly/aa080205a.htm</a><!-- m -->','',0,'AIA=','1hylv3uq',1,0,'',51,0,0),(39329,8466,3,34,0,'68.5.217.82',1192053457,1,0,1,1,1,1,'','Suggested enhancement','Antonio,\n\nYou are bringing a lot of things up to date in their appearance in .09 and .10, but I believe a significant enhancement would be to address the browse issue.  tWBrowse may be fast but it lacks in appearance and flexibility.\n\nI\'ve been using tSBrowse for a much better capability, but I do notice it can be slow to load and it flickers.  However, it adds some nice features that make it very helpful in a \"real world\" application.\n\n1)  The size of rows can be easily increased ( vertical ) to make the display more readable\n2)  Gradient colors can be used for the header ( and footer )\n3)  Cells can be editable\n4)  A column can be used for instant searching ( ie. you can set the order on a column, and start typing and reposition the highlight immediately ).\n5)  Column widths and alignment are easy to enact\n6)  It is easy to use alternate background colors on alternate rows.\n\nThe problem with tSBrowse is that it loads slowly, and it has not been updated in quite awhile, so it can lose compatibility with other improvements in FiveWin that we would assume are handled in the normal browses.\n\nSo ... perhaps others will contribute their thoughts on this being a positive enhancement area to follow your work with the outlook, button bar, and message bar improvements.\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1kyf67ss',1,0,'',34,0,0),(39330,8467,3,34,0,'68.5.217.82',1192053820,1,0,1,1,1,1,'','Dialog Centering','I am curious about centering dialogs in the primary window.  I open the program with a Window oWnd.  Then, I create dialogs  OF oWnd.  The window takes up the whole monitor ( wide angle ) and the dialogs are activated CENTERED.  This is fine until I reduce the size of the window.  The dialogs still center on the screen and not the window area.\n\nI would think that the OF oWnd would translate to centering the dialog on the window area of the opening program.  Why not ?  Is there a way around this ?\n\nThanks.','',0,'AIA=','1iqxnby2',1,0,'',34,0,0),(39331,8466,3,51,0,'80.122.88.242',1192054364,1,0,1,1,1,0,'','','Hello Tim,\nad 4)\nto get this functionality I use the following code.\nRegards,\nOtto\n\n    @ 3, 1 LISTBOX oLbx FIELDs STR(umsatz-&gt;renr)   ...\n\n\n    @ 0.3,38 GET oSay VAR cFind OF oBar SIZE 160,26 UPDATE READONLY\n\n    oLbx:bkeyChar :={|nKey|iif(nKey == K_ENTER, ;\n        prn_RgKOPIE(nhorzM,nVertM), ;\n        cFind := KeySeek(nKey,oLbx_PR,oSay,@cFind) ) , ;\n        oLbx:SetFocus(),oLbx:Refresh() }\n\n    oLbx:bChange  := {|| cFind := \"\" , oSay:Refresh() }\n\n   oLbx:aActions = Array( (  Alias())-&gt;(FCount() )  )\n\n    FOR n := 1 TO Len( oLbx:aActions)\n        IF n = 1\n            oLbx:aActions [n] ={|| cFind := \"\",oSay:Refresh()    ,index_mrez(n:=1,oLbx)}\n        elseif n = 6\n            oLbx:aActions [n] ={|| cFind := \"\" , oSay:Refresh()  ,index_mrez(n:=2,oLbx)}\n        elseif n = 2\n            oLbx:aActions [n] ={|| cFind := \"\" , oSay:Refresh()  ,index_mrez(n:=3,oLbx)}\n        else\n            oLbx:aActions [n] ={|| cFind := \"\",oSay:Refresh(), tone(300,4)}\n        ENDIF\n    NEXT\n\n\n+++++++++++++++++++++++++++++++++++++++++++++\n\n\nfunc index_mrez(n,oLbX)\n    *--------------------------------------------\n\n    select lager\n    if n = 1\n        oLbx:aHeaders:={ \"-&gt; Bezeichnung\", \"|| Kategorie\",\"Kartenpreis\",\"Wareneinsatz\",\"Nettorohaufschlag\",\"|| Artikel-NR\" }\n        set order to 5\n    elseif n = 2\n        oLbx:aHeaders:={ \"|| Bezeichnung\", \"|| Kategorie\",\"Kartenpreis\",\"Wareneinsatz\",\"Nettorohaufschlag\",\"-&gt; Artikel-NR\" }\n        set order to 1\n    elseif n = 3\n        oLbx:aHeaders:={ \"|| Bezeichnung\", \"-&gt; Kategorie\",\"Kartenpreis\",\"Wareneinsatz\",\"Nettorohaufschlag\",\"|| Artikel-NR\" }\n        set order to 3\n    endif\n    oLbx:refresh()\n    oLbx:SetFocus()\nRETURN NIL\n\n\n\nfunc KeySeek(nKey, oBrw, oSay, cSeek)\n    LOCAL cKey           := upper( chr(nKey) )\n    LOCAL nRecno         := recno()\n    LOCAL test           := cSeek\n    *   MSGINFO(str(nkey))\n    do case\n    CASE nKey == K_UP         ; oBrw:up()           ; cSeek := \"\"\n    CASE nKey == K_DOWN       ; oBrw:down()         ; cSeek := \"\"\n        *     CASE nkey == K_LEFT       ; oBrw:left()         ; cSeek := \"\"\n        *    CASE nkey == K_RIGHT      ; oBrw:right()        ; cSeek := \"\"\n    CASE nKey == K_PGUP       ; oBrw:pageup()       ; cSeek := \"\"\n    CASE nKey == K_PGDN       ; oBrw:pagedown()     ; cSeek := \"\"\n    CASE nKey == K_CTRL_PGUP  ; oBrw:GoTop()        ; cSeek := \"\"\n    CASE nKey == K_CTRL_PGDN  ; oBrw:GoBottom()     ; cSeek := \"\"\n    CASE nKey == K_HOME       ; oBrw:GoTop()        ; cSeek := \"\"\n    CASE nKey == K_END        ; oBrw:GoBottom()     ; cSeek := \"\"\n    OTHERWISE\n\n        IF nKey == K_BS\n            cSeek := Left(cSeek, Len(cSeek) - 1 )\n        else\n            cSeek := cSeek + cKey\n        ENDIF\n        if len(Alltrim(indexkey())) &gt; 0\n\n            if \"UPPER\"$upper(ordkey())\n\n                cSeek=UPPER( (cSeek))\n            else\n                cSeek= (cSeek)\n            endif\n\n            dbseek(cSeek , .T. )\n            cSeek= (cSeek)\n\n        else\n            MsgInfo(\"Kein Index ausgewählt\")\n        endif\n        IF Found()\n            oBrw:Refresh()\n            test := cSeek\n            oBrw:Upstable()\n            cSeek := test\n        else\n            cSeek := Left(cSeek, Len(cSeek) - 1 )\n            DbGoTo(nRecno)\n        ENDIF\n    endcase\n\n    oSay:Refresh()                              // ;  oSay:SetText( cSeek )\n\nRETURN( cSeek )','',0,'','2pxunqjz',1,0,'',51,0,0),(39332,8467,3,51,0,'80.122.88.242',1192054601,1,0,1,1,1,0,'','','Tim,\nmaybe you can use resize?\nRegards,\nOtto\n\n    ACTIVATE WINDOW oWnd\n        ON RESIZE ( ;\n        oLbxl:nTop  := oWndt:nHeight()- 280 ,;\n        oSay:nLeft       := oWnd:nWidth() - 240,;\n        cCbx:nLeft       := oWnd:nWidth() - 130) VALID (oWnd:=NIL, .T.)','',0,'','36fravgv',1,0,'',51,0,0),(39333,8467,3,868,0,'219.64.121.60',1192055908,1,0,1,1,1,1,'','','This works\n\nACTIVATE DIALOG oDlg ON INIT oDlg:center(oWndMain)','',0,'','1yt1k7kr',1,0,'',868,0,0),(39334,8466,3,34,0,'68.5.217.82',1192056362,1,0,1,1,1,1,'','Browse','Thats a lot of code for a single listbox.  The following code does all I mentioned when using tSBrowse:\n\n   REDEFINE BROWSE  oLbu1 ID 2100 OF oDlu ON DBLCLICK ( cCode := oCod:code, oDlu:end( ) ) UPDATE\n   oLbu1:setoDBF( oCod )\n   add column to oLbu1 header \"Code\" data oCod:code ALIGN 0,1 size 150 ORDER \"erfcod\"\n   add column to oLbu1 Header \"Description\" data oCod:detail ALIGN 0,1 size 350\n   oDlu:oClient:= oLbu1\n   oLbu1:nLineStyle:=0\n   oLbu1:nHeightCell += 4\n   oLbu1:nHeightHead += 6\n   oLbu1:lNoHScroll := .T.\n   oLbu1:setColor( {1}, {CLR_BROWSETEXT} )      // cell text color\n   oLbu1:setColor( {4}, {{ CLR_HEADERTOP, CLR_HEADERBOT }} ) // degraded headers background color\n   oLbu1:setColor( {14}, {{ CLR_HEADERTOP, CLR_HEADERBOT }} ) // degraded headers background color\n   // Show alternating color in rows\n   lClrFlag:=.f.\n   oLbu1:bSkip:={| nRecs |  (nRecs:= oCod:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) }\n   oLbu1:setColor( { 2 }, { { || if(lClrFlag, CLR_PANE1, CLR_PANE2 ) }} )','',0,'','12c4vycw',1,0,'',34,0,0),(39335,8466,3,51,0,'80.122.88.242',1192057429,1,0,1,1,1,0,'','','Tim,\n\nfunc KeySeek you only need once.\n\nBut what serves short code if as you wrote:\n \n&gt; but I do notice it can be slow to load and it flickers.\n\n&#61656;	loads slowly, and it has not been updated in quite awhile, so it can lose compatibility with other improvements\nRegards,\nOtto','',0,'','1ou1807o',1,0,'',51,0,0),(39336,8465,3,303,0,'72.220.100.171',1192060758,1,0,1,1,1,0,'','','Otto,\n\nFor some strange reason the units used for dialogs are not the same as those for windows (you may thank Microsoft for this). I guess this means they are really not pixels. Google \"dialog units\" if you interested in more info.\n\nI find that if you divide the dialog units by 2.05 they are about the same as they would be for a window. You can do something like this to make it easier to read since you can still see the pixel equivalent values.\n\n@ 125/2.05, 100/2.05 BTNBMP...PIXEL\n\nJames','',0,'','2m2ra52g',1,0,'',303,0,0),(39337,8466,3,303,0,'72.220.100.171',1192062023,1,0,1,1,1,0,'','','Tim,\n\nI thought we had solved the flickering problem?\n\nThe slower loading is due to the fact that it has all the additional features that you like. If all those features were added to TWBrowse then I\'m sure it would be just as slow. If you look at the size of the PRGs, TWBrowse is 68K and TSBrowse is 273K (and that is not counting the other modules for columns, etc.).\n\nYou can use alternating row colors with TWBrowse by defining a bSkip block. Here is an example using a database object.\n\n[code:3bko8koi]lClrFlag&#58;=&#46;f&#46;\n\noLbx&#58;bSkip&#58;=&#123;| nRecs |  &#40;nRecs&#58;= &#58;&#58;oInvmast&#58;skipper&#40; nRecs &#41;, lClrFlag&#58;=if&#40;nRecs/2 = int&#40;nRecs/2&#41;, lClrFlag,!lClrFlag&#41;, nRecs&#41; &#125; \n\noLbx&#58;nClrPane &#58;= &#123; || if&#40;lClrFlag, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125;[/code:3bko8koi]\n\nThe above works with or without indexes and/or filters. Granted it would be nice to have this capability built into TWBrowse. Adjustable line heights would also be a welcome addition, as would header gradient colors. However, making it cell oriented would slow it down considerably. \n\nJames','',0,'AIA=','3bko8koi',1,0,'',303,0,0),(39338,8467,3,303,0,'72.220.100.171',1192062323,1,0,1,1,1,0,'','','Note that wndMain() always returns the main window object so you never need to pass it around as a parameter. So you can do:\n\nACTIVATE DIALOG oDlg ON INIT oDlg:center( wndMain() )\n\ninstead.','',0,'AIA=','15amipsh',1,0,'',303,0,0),(39343,8467,3,34,0,'68.5.217.82',1192070013,1,0,1,1,1,1,'','Thanks','It works fine ... oh for some documentation !','',0,'AIA=','3q6uwylu',1,0,'',34,0,0),(39344,7603,3,234,0,'75.34.217.174',1192070715,1,0,1,1,1,1,'','','Hi James,\n\nThank you for your help. I really appreciate it!!!','',0,'AIA=','3ptlzxku',1,0,'',234,0,0),(39345,7603,3,303,0,'72.220.100.171',1192071603,1,0,1,1,1,0,'','','Glad I could be of help.\n\nJames','',0,'AIA=','8ci7ei3a',1,0,'',303,0,0),(39346,8462,3,130,0,'141.51.32.24',1192088051,1,0,1,1,1,1,'','','Hello Francisco,\n\nDone.','',0,'AIA=','3tds4ub2',1,0,'',130,0,0),(39347,8448,3,1146,0,'87.223.177.191',1192089744,1,0,1,1,1,0,'','','before purchasing Easyreport, be careful of:\n\n- it is a product that since 2004 it has not been updated.\n- the ide is quite unestable. Try to create boxes, lines and move items. Soon, it will crash.\n- the support is very bad. In fact, what kind of proffesional product does not provide the latest libs for FW?.\n\nI suggest you other products, such as List &amp; Label, which costs the same as Easyreport or the new canal-5 control.','',0,'AIA=','39qds132',1,0,'',1146,0,0),(39348,8418,3,1146,0,'87.223.177.191',1192089948,1,0,1,1,1,0,'','','This is an example from Jairo Centeno. Hope it helps!!. \n\nAlso, the List &amp; Label 13 will include the designer in the basic version. So it is even cheaper than EasyReport and, the best, it works!!!!.\n\n\n\n\ncmbtll12.ch is located at \"C:\\Archivos de programa\\combit\\LL12\\Programmable Samples and Declarations\\Alaska Xbase++\".\n\n\n\n#xtranslate LL_PROJECT_LIST =&gt; 2\n\n#include \"FiveWin.ch\" \n#include \"cmbtll12.ch\" \nGlobal oActiveX, oWnd, hJob, nRet \n\nFunction Main() \nLocal cEvents := \"\" \nLOCAL aField, aType, aLen, aDec, sName \nLOCAL FldType, FldContent, DateBuffer, lExpr, I:=1, bAsField:=.T. \n\nUSE ARTICLE NEW \nGO TOP \n\naField := Array( ARTICLE-&gt;(FCount()) ) \naType := Array( ARTICLE-&gt;(FCount()) ) \naLen := Array( ARTICLE-&gt;(FCount()) ) \naDec := Array( ARTICLE-&gt;(FCount()) ) \nsname := \"article.lst\" \n\nDEFINE WINDOW oWnd TITLE \"FiveWin ActiveX Support\" \n\noActiveX = TActiveX():New( oWnd, \"L12.List-Label12_Ctrl_32.1\" ) \n\noWnd:oClient = oActiveX // To fill the entire window surface \n\n//US: Read field info from database \nAFields( aField, aType, aLen, aDec ) \n\n//US: open List &amp; Label job, retrieve job handle \nhJob := 1 \n\n//US: Enable multiple table lines \noActiveX&#058;Do( \"LlSetOption\", LL_OPTION_MULTIPLETABLELINES, 1) \n\n//US: clear DLL-internal field buffer \noActiveX&#058;Do( \"LlDefineFieldStart\" ) \n\n// US: Define Fields \n\nFOR I = 1 to ARTICLE-&gt;(Fcount()) \n\nDateBuffer = Replicate(chr(0), 255) \n\nDO CASE \nCASE aType[i] == \"N\" \nFldType=LL_NUMERIC \nFldContent=Str( FieldGet(i) ) \nCASE aType[i] == \"D\" \nFldType=LL_DATE \n\n//US: Convert to Julian Date \n//US: Create function tree \nlExpr = oActiveX&#058;Do(\"LlExprParse\", \"CTOD( FieldGet(i) )\", .F. ) \n\n//US: Evaluate expression \noActiveX&#058;Do(\"LlExprEvaluate\", lExpr, @DateBuffer ) \n\n//US: Free expression \noActiveX&#058;Do(\"LlExprFree\", lExpr ) \nFldContent = DateBuffer \n\nCASE aType[i] == \"L\" \nFldType=LL_BOOLEAN \nif FieldGet(i) = .F. \nFldContent=\"FALSE\" \nelse \nFldContent=\"TRUE\" endif \n\nCASE aType[i] == \"C\" \nFldType=LL_TEXT \nFldContent=Trim(FieldGet(i)) \n\n// US: for article number generate EAN128-barcode \nif i=1 \nDO CASE \n\n// US: Distinguish between field and variable declaration \nCASE bAsField==.F. \noActiveX&#058;Do(\"LlDefineVariableExt\", \"ARTICLENO_EAN128\", Trim(FieldGet(i)), LL_BARCODE_EAN128 ) \n\nCASE bAsField==.T. \noActiveX&#058;Do(\"LlDefineFieldExt\", \"ARTICLENO_EAN128\", Trim(FieldGet(i)), LL_BARCODE_EAN128 ) \n\nEND CASE \nendif \n\nCASE aType[i] == \"M\" \nFldType=LL_TEXT \nFldContent=FieldGet(i) \n\nEND CASE \n\n//US: pass data to List &amp; Label \n\nDO CASE \nCASE bAsField==.F. \n\noActiveX&#058;Do(\"LlDefineVariableExt\", aField[i], FldContent, FldType ) \nCASE bAsField==.T. \n\noActiveX&#058;Do(\"LlDefineFieldExt\",aField[i], FldContent, FldType ) \nEND CASE \n\nNEXT I \n\n// US: start designer \noActiveX&#058;Do(\"LlSetPrinterDefaultsDir\",hJob,\"C:\\Windows\\Temp\") \noActiveX&#058;Do(\"LlDefineLayout\",oWnd:hWnd,\"Designer\",LL_PROJECT_LIST, \"article.lst\") \n\nACTIVATE WINDOW oWnd VALID ( dbCloseArea(),.t. ) \n\nReturn','',0,'','7m2sp3h6',1,0,'',1146,0,0),(39349,8470,3,239,0,'59.41.190.157',1192090057,1,0,1,1,1,0,'','delete the last char create by MemoWrit()','Hi, \n  I found the MemoWrit()  created txt files with strange chars in the last. How to avoid this or delete ?\nThanks !\nShuming Wang','',0,'','1v34jw6r',1,0,'',239,0,0),(39350,8470,3,6,0,'79.3.216.66',1192090259,1,0,1,1,1,1,'','Re: delete the last char create by MemoWrit()','Use FCREATE()/FWRITE()/FCLOSE() instead.\n\nEMG','',0,'','3afr9ioq',1,0,'',6,0,0),(39351,8444,3,460,0,'217.37.54.49',1192090912,1,0,1,1,1,0,'','','Thanks antonio - that now compiles when i link the obj.\n\nIs there any specific location i should install this obj?\n\nIs this a temporary fix and will it be corrected in a future release or shall we continue to link the obj?\n\nThanks for your response\n\nPete','',0,'','3rkey3k7',1,0,'',460,0,0),(39352,8471,20,1082,0,'82.187.120.133',1192090917,1,0,1,1,1,0,'','Novità file .exe dopo aggiornamento FWH','da quando ho installato l\'ultima versione di FWH, quando lancio il mio exe si apre anche una finestra tipo command del dos senza niente all\'interno, perchè, ma con la vecchia versione che avevo non succedeva,\nperchè?','',0,'','1y3mhcw9',1,0,'',1082,0,0),(39353,8444,3,2,0,'87.218.146.164',1192091546,1,0,1,1,1,1,'','','Pete,\n\n&gt; Is there any specific location i should install this obj? \n\nYou can place it anywhere\n\n&gt;\nIs this a temporary fix and will it be corrected in a future release or shall we continue to link the obj?\n&gt;\n\nIt has been already corrected and FWH 7.11 and higher will include it inside FiveHCM.lib, so it will not be needed to keep linking it','',0,'','3umw9jzd',1,0,'',2,0,0),(39354,8448,3,2,0,'87.218.146.164',1192091754,1,0,1,1,1,1,'','','Moises,\n\nHave you tried yourself to contact Timm ? \n\nWe always get a quick answer from him.','',0,'','2k4o65hv',1,0,'',2,0,0),(39355,8472,6,911,0,'200.72.141.51',1192094257,1,0,1,1,1,1,'','xHarbour+tipos de datos+ado+oracle-VER SOLUCION!!!','A ver:\nMe encuentro con un gran problema:\n\nCuando hago lo siguiente:\n[code:2qamzmne]\nobjetoado&#58;AddNew&#40;&#41;\nobjetoado&#58;Fields&#40;&quot;idproducto&quot;&#41;&#58;value&#58;=1234567890\nobjetoado&#58;Update&#40;&#41;\n[/code:2qamzmne]\n\nNo hay problemas.\n\nSin embargo si hago lo mismo pero utilizo un número de longitud mayor a 10 dígitos ado se cae. Por ejemplo\n[code:2qamzmne]\nobjetoado&#58;Fields&#40;&quot;idproducto&quot;&#41;&#58;value&#58;=123456789012345\n[/code:2qamzmne]\n\nSe cae.\n\nEste problema se me presenta ya que estoy utilizando código ean13 en el idproducto que son de largo 13.\nAlguien que me indique si puedo declarar una variable como real, double, etc en xHarbour.\nDonde puedo obtener todos los tipos de datos que maneja xharbour y como declararlos?\n\nEsto me tiene parado y tenemos un sistema en producción que desde hoy debe comenzar a trabajar todos los idproducto con el código ean13.\n\nEsto es muy urgente. Debo solucionar esto antes de 3 horas.\nMuchas gracias.','',0,'AIA=','2qamzmne',1,1192103747,'',911,1,0),(39356,8471,20,6,0,'79.3.216.66',1192095758,1,0,1,1,1,1,'','Re: Novità file .exe dopo aggiornamento FWH','Sostituisci gtwin.lib con gtgui.lib nel tuo link script.\n\nEMG','',0,'AIA=','3updfbq3',1,0,'',6,0,0),(39357,8472,6,177,0,'194.30.62.6',1192096114,1,0,1,1,1,0,'','','Hola David,\n\nel problema no será por el tipo de dato definido en Oracle y el tamaño de este. xHarbour utiliza los tipos de datos de Clipper.\n\nSaludos,\n\nFélix','',0,'AIA=','1uu5z6kn',1,0,'',177,0,0),(39358,8473,16,161,0,'213.119.247.161',1192097212,1,0,1,1,1,0,'','FWH710 Office 2007 look for the msgbar','Hi,\n\nI see in the new feature :\n\n* New: Office 2007 look for the msgbar. Simply add the 2007 clause to it: \nSET MESSAGE OF oWnd TO \"Testing the ButtonBar 2007 Office look\" ; \nCENTERED 2007 CLOCK KEYBOARD\n\nWhat is the difference between this and the normal one? I don\'t see a difference.\n\nThanks,\nMarc','',0,'AIA=','cto9j6ti',1,0,'',161,0,0),(39359,8473,16,6,0,'79.3.216.66',1192097304,1,0,1,1,1,1,'','Re: FWH710 Office 2007 look for the msgbar','The difference is the light-blue gradient color.\n\nEMG','',0,'AIA=','ehw8hz39',1,0,'',6,0,0),(39360,8474,3,161,0,'213.119.247.161',1192097618,1,0,1,1,1,0,'','Menu 2007 look?','Hi,\n\nIs it possible to give the menu also a 2007 look?\nNow the buttonbar is blue, but my menu is still grey <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nThanks,\nMarc','',0,'AIA=','xeq0o1xl',1,0,'',161,0,0),(39361,8474,3,2,0,'87.218.146.164',1192099453,1,0,1,1,1,1,'','','Marc,\n\nWe plan to publish a new menu system for FWH, but can not say a date yet','',0,'AIA=','19nb6uhy',1,0,'',2,0,0),(39362,8473,16,161,0,'213.119.247.161',1192099472,1,0,1,1,1,0,'','','Enrico,\n\nI see it now.\n\nMarc','',0,'AIA=','2yw25181',1,0,'',161,0,0),(39363,8474,3,868,0,'219.64.121.60',1192100966,1,0,1,1,1,1,'','','Mr Antonio\n\nAll of us are eagerly awaiting','',0,'AIA=','1ej2gmsz',1,0,'',868,0,0),(39364,8475,6,914,0,'87.235.251.160',1192101698,1,0,1,1,1,0,'','No puedo crear directorios con mayúsculas','Saludos, estoy intentando generar archivos [b:1z4bpt39].ods[/b:1z4bpt39] a pelo  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \ny necesito crear una estructura de ficheros para posteriormente comprimirlo y renombrarlo a .ods\n\nPara ello necesito crear una carpeta llamada [b:1z4bpt39]\"META-INF\"[/b:1z4bpt39] el problema es que cuando utilizo [b:1z4bpt39]MakeDir()[/b:1z4bpt39] siempre me la crea en minúsculas \"meta-inf\". He realizado pruebas con otros comando como fcreate y se comporta exactamente igual, pasa de las maýusculas. \n\nEs muy importante, ya que si está en minúsculas OpenOffice detecta que el archivo tiene algún problema. (aunque da la posibilidad de recuperarlo)\n\nComo se puede crear un directorio cuyo nombre tiene caracteres en mayúsculas?\n\nTambien se agradece saber manera alternativa de crear ficheros osd.\n\nGracias.','',0,'QA==','1z4bpt39',1,0,'',914,0,0),(39365,8472,6,911,0,'200.72.141.51',1192103717,1,0,1,1,1,1,'','','[quote=&quot;Baxajaun&quot;:1m0zoqob]Hola David,\n\nel problema no será por el tipo de dato definido en Oracle y el tamaño de este. xHarbour utiliza los tipos de datos de Clipper.\n\nSaludos,\n\nFélix[/quote:1m0zoqob]\n\nGracias por tu respuesta.\nEl tema ya lo solucioné. Hay una limitación en ADO para el tamaño de los números.\nSe resuelve simplemente enviando como string el valor numérico. No importa si el campo que recibe el dato es numérico ya que el motor, en este caso oracle, se encarga de evaluar de forma adecuada el dato.\n\nEspero que esto les sirva a muchos.\nSaludos','',0,'gA==','1m0zoqob',1,0,'',911,0,0),(39366,8474,3,161,0,'213.119.247.161',1192105415,1,0,1,1,1,0,'','','Thanks Antonio,\n\nIs there already a way to change the color of the menu in a fix blue color? That would allready be nicer then the color difference grey/blue.\n\nThanks,\nMarc','',0,'gA==','1u9wj2xs',1,0,'',161,0,0),(39367,8448,3,1146,0,'87.223.177.191',1192105496,1,0,1,1,1,0,'','','Antonio,\n\nYes, I sent several emails to him. But he does not provide good support as yours!!. It is a pitty...','',0,'gA==','32l0o5ym',1,0,'',1146,0,0),(39368,8404,6,294,0,'201.254.179.30',1192105749,1,0,1,1,1,1,'','','Todavia no hay ningun Gaucho Argentino en Capital para armar algo? \nEspero noticias.','',0,'gA==','1k509ysu',1,0,'',294,0,0),(39369,8404,6,105,0,'200.72.140.34',1192107210,1,0,1,1,1,1,'','','Ultimo LLamado.. ja ja\n\nPor Favor... a los Fivewinners Chilenos, contactarse conmigo antes de mañana viernes 12 de Octubre para confirmar cupos, lugar, cuota etc.\n\n<!-- e --><a href=\"mailto:adolfo_lagos@hotmail.com\">adolfo_lagos@hotmail.com</a><!-- e -->\n\nDesde Chile\n\nAdolfo\n\n<!-- w --><a class=\"postlink\" href=\"http://www.xdata.cl\">www.xdata.cl</a><!-- w --> - Desarrollo Inteligente','',0,'gA==','3emxbup7',1,0,'',105,0,0),(39370,8474,3,190,0,'124.7.115.41',1192108358,1,0,1,1,1,0,'','','This link may be useful to you. Take a look.\n\n[url:ylk7mgop]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5569[/url:ylk7mgop]\n\n- Ramesh Babu','',0,'EA==','ylk7mgop',1,0,'',190,0,0),(39371,8476,3,190,0,'124.7.115.41',1192109054,1,0,1,1,1,0,'','How to save the Wndcopy()\'s Clipboard\'s output to a BMP ?','Hello friends,\n\nAs per the subject.\n\n- Ramesh Babu','',0,'EA==','3sn8sxlg',1,0,'',190,0,0),(39372,8477,3,177,0,'194.30.62.6',1192109237,1,0,1,1,1,0,'','OO4O &amp; [x]Harbour','Hi,\n\nhas anybody used OO4O (Oracle Objects for OLE) with [x]Harbour ?\n\nRegards,\n\nFelix','',0,'','37ohre5x',1,0,'',177,0,0),(39373,8478,6,177,0,'194.30.62.6',1192109301,1,0,1,1,1,0,'','OO4O &amp; [x]Harbour','Hola,\n\nalguien ha usado OO4O (Oracle Objects to OLE) con [x]Harbour ?\n\nSaludos,\n\nFélix','',0,'','my7l2leg',1,0,'',177,0,0),(39374,8410,6,23,0,'213.96.85.49',1192111518,1,0,1,1,1,1,'','','A mi me ocurre lo mismo, pero no tengo ese ejemplo en mi directorio SAMPLES. Uso FWH 2.7.\n\n¿Me podeis dar alguna pista?\n\nUn saludo','',0,'','q71lyz5e',1,0,'',23,0,0),(39375,8476,3,54,0,'189.132.90.225',1192111779,1,0,1,1,1,1,'','Re: How to save the Wndcopy()\'s Clipboard\'s output to a BMP','[quote=&quot;RAMESHBABU&quot;:opis0cqv]Hello friends,\n\nAs per the subject.\n\n- Ramesh Babu[/quote:opis0cqv]\n\nRamesh,\n\noWnd:SaveToBmp( \"mibmp.bmp\" )','',0,'gA==','opis0cqv',1,0,'',54,0,0),(39376,8475,6,362,0,'200.158.19.180',1192113210,1,0,1,1,1,1,'','','// Sample managing directories - Original by TESTDIRS.PRG\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nFUNCTION Main()\n\n   IF lMkDir( UPPER( \"c:\\fwh27\\samples\\teste\" ) )\n\n      MsgInfo( \"Directorio creado con succeso!\" )\n\n      /*\n      IF lRmDir( \"d:test\" )\n         MsgInfo( \"Directory successfully deleted!\" )\n      ENDIF\n      */\n\n   ENDIF\n\nRETURN NIL\n\n//----------------------------------------------------------------------------//','',0,'gA==','eftlmcp0',1,0,'',362,0,0),(39377,8410,6,362,0,'200.158.19.180',1192113428,1,0,1,1,1,1,'','','[code:3mvd7cmd]\n1 VERSIONINFO \nFILEVERSION 2, 4, 0, 1\nPRODUCTVERSION 4, 2, 0, 0\nFILEOS VOS__WINDOWS16\nFILETYPE VFT_DLL\n&#123;\n BLOCK &quot;StringFileInfo&quot;\n &#123;\n  BLOCK &quot;040904E4&quot;\n  &#123;\n   VALUE &quot;CompanyName&quot;, &quot;Borland International\\000\\000&quot;\n   VALUE &quot;FileDescription&quot;, &quot;Borland Windows Custom Control Library\\000&quot;\n   VALUE &quot;FileVersion&quot;, &quot;2&#46;04\\000\\000&quot;\n   VALUE &quot;InternalName&quot;, &quot;BWCC\\000&quot;\n   VALUE &quot;LegalCopyright&quot;, &quot;Copyright \\251 Borland Int\'l&#46; 1991-1993\\000\\000&quot;\n   VALUE &quot;OriginalFilename&quot;, &quot;BWCC&#46;DLL\\000&quot;\n  &#125;\n\n &#125;\n\n BLOCK &quot;VarFileInfo&quot;\n &#123;\n  VALUE &quot;Translation&quot;, 1033, 1252\n &#125;\n\n&#125;\n[/code:3mvd7cmd]','',0,'AIA=','3mvd7cmd',1,0,'',362,0,0),(39378,8453,3,678,0,'41.206.160.2',1192115307,1,0,1,1,1,1,'','','Beware - using Advantage Server RDD, alias names cannot be any length, so you may need to specify a shorter alias name thasn the file name','',0,'AIA=','3jx25vpt',1,0,'',678,0,0),(39379,8475,6,914,0,'87.235.251.160',1192117838,1,0,1,1,1,0,'','','Gracias Joao,\n\nNo puedo utlizar lmkdir sólo puedo usar funciones de harbour, utilizo archivos .hrb para CGI y no puedo acceder a funciones FW. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'AIA=','voob7j8a',1,0,'',914,0,0),(39380,8453,3,303,0,'72.220.100.171',1192117840,1,0,1,1,1,0,'','','&gt;Beware - using Advantage Server RDD, alias names cannot be any length, so you may need to specify a shorter alias name thasn the file name.\n\nMy TData database class automatically handle alias names and they are only 5 characters long. You never have to deal with aliases again.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nRegards,\nJames','',0,'AIA=','3vvqcslg',1,0,'',303,0,0),(39381,8475,6,362,0,'200.158.19.180',1192118155,1,0,1,1,1,1,'','','[quote=&quot;damosi&quot;:2m1w4e9e]Gracias Joao,\n\nNo puedo utlizar lmkdir sólo puedo usar funciones de harbour, utilizo archivos .hrb para CGI y no puedo acceder a funciones FW. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->[/quote:2m1w4e9e]\n\nÉS EN MODO CONSOLA???','',0,'gA==','2m1w4e9e',1,0,'',362,0,0),(39382,7202,7,779,0,'201.141.74.109',1192118239,1,0,1,1,1,0,'','yo uso http','Estimado Luis, me hubiera gustado estar en tu encuesta, yo utilizo en la parte movil http y como servidor FiveWin, asi nunca tengo que instalar nada en los dispositivos moviles y siempre estoy \"En Linea\", solo en lugares donde no hay señal, utilizo FWPPC, sobre todo para cobradores y vendedores con proceso batch posterior.\n\nTu Articulo está digno de ser publicado en las mejores revistas!!!\n\nFelicidades','',0,'gA==','zh4oqt8q',1,0,'',779,0,0),(39383,8475,6,914,0,'87.235.251.160',1192118608,1,0,1,1,1,0,'','','Compilo con harbour y los hrb los interpreta bajo IIS una aplicación CGI llamada clipxnet. Parecido a lo que haría hbrun.\n\nNo puedo utilizar funciones que no estén en harbour ya que requieren que estan sean incluidas en el programa CGI clipxnet . (Por tanto no depende de mi)','',0,'gA==','7u7tkn7w',1,0,'',914,0,0),(39384,8479,6,255,0,'201.122.36.212',1192119614,1,0,1,1,1,1,'','Verce 4.4 !!!!','Buenos dias a todos.\n\nTal como lo prometimos y gracias al apoyo de William Morales\nestamos de regreso con la version 4.4 de verce.\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/\">http://incos.sytes.net/fivewin/</a><!-- m -->\n\nHe puesto tambien en la pagina mis pequeños aportes a la\ncomunidad.\n\nCualquier duda de las aportaciones por favor a <!-- e --><a href=\"mailto:saliasj@geainternacional.com\">saliasj@geainternacional.com</a><!-- e -->\n\ny cualquier comentario y/o sugerencia de verce a:\n<!-- e --><a href=\"mailto:salinasj@geainternacional.com\">salinasj@geainternacional.com</a><!-- e -->\n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->\n\n\nSaludos cordiales.','',0,'gA==','19uhaujr',1,0,'',255,0,0),(39385,8476,3,190,0,'124.7.112.129',1192120524,1,0,1,1,1,0,'','','Hello Mr. Wmormar \n\nThis is not that much simple. At least in FWH 2.8 xHarbour (0.99.71 Simplex) !.\n\nWhich version of FWH and xHarbour you are using and you got it working?\n\nI have used several methods to achive this well with in FWH.  But I did\nnot suceeed.  I had to adopt a long work around to achive this.\n\nThanks for your response.\n\n- Ramesh Babu P','',0,'gA==','36brj79t',1,0,'',190,0,0),(39386,8475,6,875,0,'64.76.108.182',1192121131,1,0,1,1,1,0,'','','prueba con esto:\n\nRun(\'MD META-INF\')\n\n\n\n\njaime','',0,'gA==','2katqne4',1,0,'',875,0,0),(39387,8476,3,2,0,'87.218.146.164',1192122088,1,0,1,1,1,1,'','','Ramesh,\n\n[code:10v70ry6]\nMETHOD SaveToBmp&#40; cBmpFile &#41; CLASS TWindow\n\n   local hBmp &#58;= WndBitmap&#40; &#58;&#58;hWnd &#41;\n   local hDib &#58;= DibFromBitmap&#40; hBmp &#41;\n\n   DibWrite&#40; cBmpFile, hDib &#41;\n   GloBalFree&#40; hDib &#41;\n   DeleteObject&#40; hBmp &#41;\n\nreturn &#40; File&#40; cBmpFile &#41; &#41;\n[/code:10v70ry6]','',0,'AIA=','10v70ry6',1,0,'',2,0,0),(39388,8479,6,396,0,'200.71.186.110',1192122772,1,0,1,1,1,1,'','','A buena hora, esperando gran utlidad, bajandolo a ver que hay de nuevo...Gracias..por sus aportes.es impresindible esta herramienta para mi uso y rapidez de compilacion.....ya lo baje, pero no esta un instalador si no una carpeta que la coloque en la raiz del disco duro.... esta asi bien...?','',0,'AIA=','9zuckrpy',1,0,'',396,0,0),(39389,8480,3,51,0,'80.122.88.242',1192122960,1,0,1,1,1,0,'','ON PAINT oWnd','If I open a window with on paint is there a method to terminate the on paint and to restart?\n\nRegards,\nOtto','',0,'AIA=','13ufsz2b',1,0,'',51,0,0),(39390,8480,3,2,0,'87.218.146.164',1192123068,1,0,1,1,1,1,'','','Otto,\n\nPlease provide a small example of what you want to do ? thanks','',0,'AIA=','wvq484s2',1,0,'',2,0,0),(39391,8475,6,914,0,'87.235.251.160',1192123380,1,0,1,1,1,0,'','','Funciona!!\n\nPero no comprendo el comportamiento de makedir y resto de funciones de creación de ficheros.\n\nGracias Jaime <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'AIA=','2lkz87jg',1,0,'',914,0,0),(39392,8480,3,51,0,'80.122.88.242',1192124658,1,0,1,1,1,0,'','','I repaint the plan with the on paint but sometimes I would like to stop this behavior.\nFor example the tooltip executes a on paint. \nBest regards,\nOtto \n\n ACTIVATE WINDOW oWndPlan MAXIMIZED;\n            ON PAINT     (ziplan:=.F., MiPaint(ZZ,hdatum,A,Monat,hOben,nAnzeige) );\n       \n[img:286mnxol]http&#58;//www&#46;atzwanger&#46;com/fw/clip1&#46;jpg[/img:286mnxol]','',0,'CA==','286mnxol',1,0,'',51,0,0),(39393,8481,1,418,0,'83.156.148.89',1192129072,1,0,1,1,1,0,'','FILE NAME','Hi \ni use Clipper 5.2e and the function dbinfo() didn\'t work\nI want to get the full name of the . dbf in use , not the alias .\nHow can i do?\nThanks','',0,'CA==','2z21hxji',1,0,'',418,0,0),(39394,8474,3,161,0,'81.83.249.31',1192130988,1,0,1,1,1,0,'','','Ramesh,\n\nI can\'t find the library on that site. Did you manage to download it?\n\nThank,\n\nMarc','',0,'CA==','cwi30uee',1,0,'',161,0,0),(39395,8476,3,303,0,'72.220.100.171',1192133485,1,0,1,1,1,0,'','','Antonio,\n\nIs that saving a bitmap snapshot of the window to a BMP file? \n\nI think Ramesh wants to save a bitmap that is in the clipboard to a file. Is that right Ramesh?\n\nJames','',0,'CA==','2xbo7fdb',1,0,'',303,0,0),(39396,8480,3,303,0,'72.220.100.171',1192133745,1,0,1,1,1,0,'','','&gt; repaint the plan with the on paint but sometimes I would like to stop this behavior. \nFor example the tooltip executes a on paint. \n\nIt looks like you are being redundant, you are repainting every time windows repaints. I think you want to use ON RESIZE instead of ON PAINT.\n\nGive it a try.\n\nJames','',0,'CA==','xivxzls2',1,0,'',303,0,0),(39397,8479,6,439,0,'200.125.41.196',1192135358,1,0,1,1,1,1,'','','Excelente!!!\n\nMe alegra ver la web nuevamente!!!! y que vuelva con renovada fuerza la aplicación que ha sido mi elección durante los últimos dos años.\n\nLos mejores augurios!!!!!!','',0,'CA==','2c39fnp3',1,0,'',439,0,0),(39398,8481,1,303,0,'72.220.100.171',1192135866,1,0,1,1,1,0,'','','Are you doing it like this?\n\nMyAlias-&gt;(dbinfo(DBI_FULLPATH))','',0,'CA==','3a409d6u',1,0,'',303,0,0),(39399,8481,1,418,0,'83.156.148.89',1192136900,1,0,1,1,1,0,'','','Yes\nrtlink gives the error l2029 \"unresolved external\"\nit seems that dbinfo is not in clipper 5.2e','',0,'CA==','1bkqk1dh',1,0,'',418,0,0),(39400,8481,1,303,0,'72.220.100.171',1192138299,1,0,1,1,1,0,'','','&gt;it seems that dbinfo is not in clipper 5.2e\n\nI think you are right, it is only in Clipper 5.3.','',0,'CA==','1kgq7l3j',1,0,'',303,0,0),(39401,8480,3,6,0,'79.3.216.66',1192139493,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:2v24zwm0]I repaint the plan with the on paint but sometimes I would like to stop this behavior.\nFor example the tooltip executes a on paint.[/quote:2v24zwm0]\n\nYou should repaint only the invalidated area and not the whole window. But sorry I can\'t help you more on this subject.\n\nEMG','',0,'gA==','2v24zwm0',1,0,'',6,0,0),(39402,8452,3,439,0,'200.125.40.198',1192151234,1,0,1,1,1,1,'','Re: OfficeBar','[quote=&quot;Otto&quot;:17c60jzq]I bought OfficeBar months ago but only now I started to use\nHarbour/Fivewin.\nNow I plan to link in OfficeBar. Does someone have experience?\nDoes someone use OfficeBar in production use? What is the latest version?\nThanks in advance\nOtto[/quote:17c60jzq]\n\nIf you refer to the OfficeBar I think, please mail me may be I can help you\n\n<!-- e --><a href=\"mailto:jmurugosa@respuestasintegradas.com\">jmurugosa@respuestasintegradas.com</a><!-- e -->','',0,'gA==','17c60jzq',1,0,'',439,0,0),(39403,8476,3,190,0,'124.7.112.181',1192151954,1,0,1,1,1,0,'','','Mr.Antonio\n\nThanks for your attention.\n\nThe following code is a \"savedbmp.bmp\" with only 14 bytes !.\n\n[code:xnj4e5r8]\n#include &quot;Fivewin&#46;ch&quot; \n\nFUNCTION Main&#40;&#41; \n\n   LOCAL oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;SaveToBmp&quot; \n\n   @ 9, 2 BUTTON &quot;Save To Bmp&quot; ; \n          SIZE 210, 30 ; \n          ACTION  &#40; oWnd&#58;SaveToBmp&#40;&quot;SavedBmp&#46;Bmp&quot;&#41;, MsgInfo&#40;&quot;Saved&quot;&#41; &#41;\n      \n   ACTIVATE WINDOW oWnd \n    \nRETURN nil      \n[/code:xnj4e5r8]\n\n\nAs Mr.James said, I need to save the contents of clipboard  to a BMP file.\n\nI am using FWH 2.8 (Sep. build) + xHarbour 0.99.71 (Simplex)\n\nThis was working very well in our earlier versioins.  But it is not working.\n\nAnd I have come across several postings on our forum with the same\ncomplaint that they are getting a saved BMP file only with 14 bytes.\n\nCurrently I have adopted a very long work around using some 3 party utilitys to achive this result.\n\nPlase do help.\n\n\n- Ramesh Babu P','',0,'AIA=','xnj4e5r8',1,0,'',190,0,0),(39404,8474,3,190,0,'124.7.112.181',1192153364,1,0,1,1,1,0,'','','Mr.Marc\n\nPlease write a private e-mail to me.\n\nI will send it to you.\n\n- Ramesh Babu P','',0,'AIA=','dr5okhq9',1,0,'',190,0,0),(39405,8476,3,2,0,'87.218.146.164',1192169595,1,0,1,1,1,1,'','','Ramesh,\n\nYour code is working fine here using FWH 7.10 and Vista Ultimate 32 bits:\n\nUsing Harbour:\n10/12/2007  08:12             1,168 b32.bc\n10/12/2007  08:11                 0 clip.log\n10/12/2007  08:12           630,074 SavedBmp.Bmp\n10/12/2007  08:11             4,694 test.c\n10/12/2007  08:12         1,086,976 test.exe\n10/12/2007  08:12           373,443 test.map\n10/12/2007  08:12             2,096 test.obj\n10/12/2007  08:11             1,147 test.ppo\n10/12/2007  08:11               293 test.prg\n10/12/2007  08:12           458,752 test.tds\n              10 File(s)      2,558,643 bytes\n\nUsing xHarbour:\n10/12/2007  08:16    &lt;DIR&gt;          .\n10/12/2007  08:16    &lt;DIR&gt;          ..\n10/12/2007  08:16               964 b32.bc\n10/12/2007  08:16               480 clip.log\n10/12/2007  08:16           630,074 SavedBmp.Bmp\n10/12/2007  08:16         1,278,464 test.exe\n10/12/2007  08:16           435,917 test.map\n10/12/2007  08:16            10,604 test.obj\n10/12/2007  08:16             1,253 test.ppo\n10/12/2007  08:11               293 test.prg\n10/12/2007  08:16           655,360 test.tds\n               9 File(s)      3,013,409 bytes','',0,'AIA=','32oii5j1',1,0,'',2,0,0),(39406,8480,3,89,0,'213.21.136.60',1192171461,1,0,1,1,1,0,'','','Ciao  Otto\n\n[url=http&#58;//img341&#46;imageshack&#46;us/my&#46;php?image=immaginewq6&#46;jpg:259geqvb][img:259geqvb]http&#58;//img341&#46;imageshack&#46;us/img341/78/immaginewq6&#46;th&#46;jpg[/img:259geqvb][/url:259geqvb]\nI dont use ON PAINT in ACTIVATE WINDOW \nBut after ACTIVATE WINDOW \n\nDO WHILE ! m-&gt;lExitTb \nSysWait(0.3) //0.3 \nENDDO \n\n\n\n\nI dont use ON PAINT  in ACTIVATE WINDOW \nBut after  ACTIVATE WINDOW \n\n  DO WHILE ! m-&gt;lExitTb\n        SysWait(0.3)       //0.3\n   ENDDO\n\nMaurizio','',0,'GA==','259geqvb',1,0,'',89,0,0),(39407,8482,3,868,0,'219.64.121.60',1192175968,1,0,1,1,1,1,'','Dragging Errors in 7.10','In version 7.10 using :bDragBegin is giving errors and not working. As an example, we may try TestDrp3.Prg in fwh\\samples folder. We get the following runtime error:\n[code:1w2ghfr3]\nApplication\n===========\n   Path and name&#58; C&#58;\\FWH\\SAMPLES\\TESTDRP3&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,283,584 bytes\n   Time from start&#58; 0 hours 0 mins 2 secs \n   Error occurred at&#58; 10/12/07, 13&#58;22&#58;33\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; EVAL\n   Args&#58;\n     &#91;   1&#93; = U   \n     &#91;   2&#93; = N   19\n     &#91;   3&#93; = N   110\n     &#91;   4&#93; = N   1\n     &#91;   5&#93; = L   &#46;T&#46;\n\nStack Calls\n===========\n   Called from&#58;  =&gt; EVAL&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;MOUSEMOVE&#40;0&#41;\n   Called from&#58; BUTTON&#46;PRG =&gt; &#40;b&#41;TBUTTON&#58;TBUTTON&#40;0&#41;\n   Called from&#58;  =&gt; TBUTTON&#58;MOUSEMOVE&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TBUTTON&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; TESTDRP3&#46;PRG =&gt; MAIN&#40;38&#41;\n[/code:1w2ghfr3]\n\nThis is happening because of the 2 new lines of code inserted in the MouseMove method of Control.Prg in version 7.10. The error is occuring at line 629, because ::bMMoved is NIL  :-\n[code:1w2ghfr3]\n628&#58;         else\n629&#58;            Eval&#40; &#58;&#58;bMMoved, nRow, nCol, nKeyFlags, &#46;T&#46; &#41;   \n630&#58;         endif\n[/code:1w2ghfr3]\nI do not know the purpose of introducing the two new lines but if we change \"else\" in line 628 to \"elseif VALTYPE(::bMMoved) == \'B\'\", all code using drag and drop is working fine.  I do not know if my proposed change  will create any other side effects but for the time being I am able to make my present software work with the above small change.\n\nI would be grateful if Mr. Antonio can look into this and advise.','',0,'AIA=','1w2ghfr3',1,0,'',868,0,0),(39408,8476,3,190,0,'124.7.114.43',1192177649,1,0,1,1,1,0,'','','Mr.Antonio\n\nAs I have already pointed, the same functionality was working OK prior to\nFWH 2.8 and it stopped working in 2.8 I don\'t know why.  \n\nCan you please check with FWH 2.8 (Sep. build) + xHarbour 0.99.71 (Simplex) and suggest me any way out ?\n\nFor your information, we have spoken several times in the forum earlier on\nthe same issue.  And you said the same thing.  I hope atleast this time so\nwill suggest me a way out.  Because the working around way I am following presently is not giving the expected result some times and I am\nfacing problems.\n\nMy previous posting on the same subject for your reference:\n\n[url]\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7716&amp;highlight=save2bmp\">http://fivetechsoft.com/forums/viewtopi ... t=save2bmp</a><!-- m -->\n[/url]\n\nThanks\n\n- Ramesh Babu P','',0,'','yrpo5jrz',1,0,'',190,0,0),(39409,8476,3,2,0,'87.218.146.164',1192181466,1,0,1,1,1,1,'','','Ramesh,\n\n&gt; Can you please check with FWH 2.8 (Sep. build)\n\nWe can\'t provide tech support for 2.8 september year 2006. There have been lots of changes both in Harbour/xHarbour and FWH. Please understand it.\n\nWe can only suggest you to upgrade to FWH 7.10','',0,'','2ckx1g1t',1,0,'',2,0,0),(39412,8482,3,2,0,'87.218.146.164',1192182400,1,0,1,1,1,1,'','','This is the right fix:\n[code:cckg2fv3]\n         if ! lDragging\n            &#58;&#58;DragBegin&#40; nRow, nCol, nKeyFlags &#41;\n         else\n            if ValType&#40; &#58;&#58;bMMoved &#41; == &quot;B&quot;\n               Eval&#40; &#58;&#58;bMMoved, nRow, nCol, nKeyFlags, &#46;T&#46; &#41;   \n            endif   \n         endif\n[/code:cckg2fv3]\nMany thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','cckg2fv3',1,0,'',2,0,0),(39414,8485,6,960,0,'84.125.196.99',1192187797,1,0,1,1,1,0,'','Pregunta de examen','Hola compañeros: Os solicito ayuda para este caso tan asombroso.\n\nLlevo utilizando la clase Wbrowse.prg en mis listbox bastante tiempo sin problemas... incluso tengo programas circulando por ahí sin problemas ninguno.\n\nAhora estoy escribiendo otro nuevo, pero me di cuenta que al incluir el modulo de GASTOS.PRG, en el listbox cuando utilizo las teclas de cursor esconde todos los registros y solo me muestra 1 (donde está situado el registro). Es más, el resto de los LISTBOX de la aplicación (clientes, artículos, proveedores...) muestran la misma situación !  ;-(\n\nHe reducido el PRG al límite:\n\nfunct gastos.prg\n use gastos shared\n define dialog w_gas resource \'GASTOS\'\n  redefine listbox listgas fields gastos-&gt;Nombre id 107 of w_gas headers \'Nombre\'\n activate dialog w_gas center\nreturn \n\nPero ni aún así consigo corregir el problema.\nSin embargo cuando compilo SIN este modulo, el resto de los LISTBOX de la aplicación funcionan perfectamente.\n¿ Como es posible ? ¿cual es el error?\nRevise el dialogs en RC y el DBF. No encontré nada. \nLlevo 2 horas con esta tontería y no doy con la solución.\n\nMil gracias.\nLoren.','',0,'GIA=','1by4evq1',1,0,'',960,0,0),(39415,8481,1,418,0,'91.163.240.216',1192188039,1,0,1,1,1,0,'','','HOW CAN I EXTRACT THE FUNCTION DBINFO() FROM THE CLIP 5.3 .lLIB AND PUT IT IN MY CLIP5.2E.LIB?\nI HAVE TLIB FROM BORLAND BUT I DON\'T  KNOW IT WELL.\nI DON\'T USE CLIP 5.3 BECAUSE SOME FUNCTIONS OF MY APPLICATION DON\'T WORK WITH 5.3\nTHANKS','',0,'GIA=','1d9jteqp',1,0,'',418,0,0),(39416,8486,1,418,0,'91.163.240.216',1192188089,1,0,1,1,1,0,'','HELP TLIB','SEE MY TOPIC IN \"FILE NAME\"\nTHANKS','',0,'GIA=','axni1awx',1,0,'',418,0,0),(39417,8485,6,2,0,'87.218.146.164',1192188171,1,0,1,1,1,1,'','','Prueba a borrar todos los ficheros índices y regenéralos\n\nPrueba a añadir new:\n\nuse gastos shared [color=red:2ngual39]new[/color:2ngual39]','',0,'Ag==','2ngual39',1,0,'',2,0,0),(39418,8470,3,247,0,'193.92.131.194',1192188298,1,0,1,1,1,0,'','Memowrt','See:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2630&amp;highlight=memowrit\">http://fivetechsoft.com/forums/viewtopi ... t=memowrit</a><!-- m -->\n\nregards\nA.S.K','',0,'Ag==','1efaf0qf',1,0,'',247,0,0),(39419,8481,1,2,0,'87.218.146.164',1192188846,1,0,1,1,1,1,'','','Patrick,\n\nDbInfo() is highly related to the RDD Clipper internal architecture, so you probably can not extract it from 5.3 and use it with 5.2','',0,'Ag==','1ctn862y',1,0,'',2,0,0),(39420,8486,1,2,0,'87.218.146.164',1192188974,1,0,1,1,1,1,'','','Extract a module:\nTLib.exe Name.lib * module.obj\n\nReplace a module:\nTLib.exe Name.lib -+ module.obj\n\nSimply add a module:\nTLib.exe Name.lib + module.obj','',0,'Ag==','36lwfgbe',1,0,'',2,0,0),(39421,8486,1,418,0,'91.163.240.216',1192189345,1,0,1,1,1,0,'','','thanks','',0,'Ag==','oykh5na6',1,0,'',418,0,0),(39422,8481,1,418,0,'91.163.240.216',1192189462,1,0,1,1,1,0,'','','Aie\nhave you an idea to retrieve the name of the file in use in 5.2e?','',0,'Ag==','19sv6ubd',1,0,'',418,0,0),(39423,8363,6,850,0,'201.255.106.226',1192189867,1,0,1,1,1,0,'','','Aparentemente descubri donde esta el problema, si los indices se generan con Clipper+Fivewin, xHarbour tiene problemas en  encontrar algunos registros  y si los genero con xHarbour, cuando los abro con Clipper+Fivewin da error al realizar busquedas. No son compatibles entre si los indices generados con aplicaciones de 16 y 32 bits utilizando ADS 8.1.','',0,'Ag==','1jh86s3g',1,0,'',850,0,0),(39424,8481,1,2,0,'87.218.146.164',1192190404,1,0,1,1,1,1,'','','No, sorry <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'Ag==','3ep6r1s9',1,0,'',2,0,0),(39425,8485,6,36,0,'164.77.81.210',1192196096,1,0,1,1,1,1,'','','hola\n\nConsulta,\n\nComo estas compilando\n\nrmake //utileria de clipper\nmake //utileria de borland\notra?\n\nmira este post..\n[url:zkr7h2x0]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=7135&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=[/url:zkr7h2x0]\n\nsuerte...','',0,'EA==','zkr7h2x0',1,0,'',36,0,0),(39426,8363,6,36,0,'164.77.81.210',1192196440,1,0,1,1,1,1,'','','Hola\n\nLa version de clipper es la 5.3, si no lo es puedes recompilar con esta version y probar','',0,'EA==','30go43we',1,0,'',36,0,0),(39427,8363,6,850,0,'201.255.106.226',1192197341,1,0,1,1,1,0,'','','La generacion de indices la hace el servidor ADS no el clipper. Gracias\n\nAndres','',0,'EA==','1iusiwoa',1,0,'',850,0,0),(39428,8484,6,519,0,'88.22.131.179',1192198274,1,0,1,1,1,0,'','','Muy bonito Fernando, estamos a la espera de la nueva versión.\n\n    Para cuando estara lista la Viaupdate  ?\n\n\n   un saludo','',0,'EA==','3swg2jwo',1,0,'',519,0,0),(39429,8480,3,51,0,'80.122.88.242',1192198747,1,0,1,1,1,0,'','','Hello James, Enrico and Mauricio,\n\nThank you for your answer.\nI will try your suggestions. \n\nMaurizio, can you share a little bit of code.  How you do this?\n\n\n\nBest regards,\nOtto','',0,'EA==','2pg0ed3e',1,0,'',51,0,0),(39430,8487,6,1178,0,'200.24.127.11',1192200263,1,0,1,1,1,0,'','Definicion de Variables de Clipper a Harbour /Fwh 2.7','Hola compañeros antes en clipper 5.3 tenia una rutina para el registro fastasma, la duda como la haria en Harbour /Fwh 2.7 me genera un error Adunto codigo\n\nIF !USAFILE(MEMVAR-&gt;DIR_CATA+\"ktipmod.ve2\",MEMVAR-&gt;DIR_CATA+\"ktipmod\",\"b_tipmod\",.F.,.F.)\n      RETURN\n   ENDIF  \ninit_var()   //inicializo variables de la tabla\ninit_asivar() //asigna valores de la tabla.\n\n\n\nStatic Function init_var()\n local a,i\n For i = 1 to fcount()\n   a:=\"M_\"+fieldname(i)\n   public &amp;a\n Next\n return(.t.)\n\nStatic Function init_asivar()\n local a,i\n For i = 1 to fcount()\n   a:=\"M_\"+fieldname(i)\n   &amp;a := &amp;(fieldname(i)) \n Next\n return(.t.)\n\nStatic Function repl_var()\n local a,i\n For i = 1 to fcount()\n   a:=\"M_\"+fieldname(i)\n   replace &amp;(fieldname(i)) with &amp;a\n Next\n return(.t.)\n\nStatic Function rele_var()\n local a,i\n For i = 1 to fcount()\n   a:=\"M_\"+fieldname(i)\n   release &amp;a\n Next\n return(.t.)','',0,'EA==','148e9koo',1,0,'',1178,0,0),(39431,8480,3,89,0,'213.21.136.60',1192206078,1,0,1,1,1,0,'','','Otto \nCi sentiamo via email \nMaurizio','',0,'EA==','vysan96j',1,0,'',89,0,0),(39432,8476,3,303,0,'72.220.100.171',1192206307,1,0,1,1,1,0,'','','Ramesh,\n\nTry this:\n\n[code:u0583pwo]oClipBoard &#58;= TClipBoard&#40;&#41;&#58;New&#40; CF_BITMAP &#41;\noClipBoard&#58;Open&#40;&#41;\nhBmp &#58;= oClipBoard&#58;GetData&#40;&#41;  // Get handle  bitmap\noClipBoard&#58;Close&#40;&#41;\nhDib &#58;= DibFromBitmap&#40; hBmp &#41;      // Write from handle\nIf Empty&#40; hDib &#41;\n   MsgInfo&#40;&quot;Can\'t make a bitmap&quot;,&quot;Error&quot;&#41;\n   RETURN\nEndIf\nDibWrite&#40; &quot;BmpFile&#46;bmp&quot;, hDib &#41;\nGlobalFree&#40; hDib &#41;\nDeleteObject&#40; hBmp &#41;[/code:u0583pwo]','',0,'AIA=','u0583pwo',1,0,'',303,0,0),(39433,8488,6,975,0,'190.90.131.5',1192208584,1,0,1,1,1,0,'','Duda con Twbrowse','<!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> \nSeñores\n\nTenemos duda en twbrowse, en el cual utilizamos un archivo llamado catastro que tiene  Diez (10) Campos; donde solamente deseo mostrar dos (2) de ellos.\n\nLo he realizado como lo ven en el siguiente ejemplo, pero al compilarlo me muestra todos los campos, mas los dos que deseo que me muestre \n\nEstoy utilizando FWH 7.01\n\nQue debo hacer para que no muestre todos los campos?.\n\n\n\nSTATIC FUNCTION ChgColors\n\n#define DIALOG_15       15\n\nlocal oChild, oBrw,oDlg11,oCOL\n   select 1\n   USE CATASTRO \n   go top\n\n   DEFINE DIALOG oDlg11 RESOURCE DIALOG_15 of oWnd\n   oBrw := TXBrowse():New( oDlg11 )\n\n\n   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW\n   oBrw:nColDividerStyle    := LINESTYLE_BLACK\n   oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n   oBrw:lColDividerComplete := .t.\n   oBrw:SetRDD()\n\n\n   oBrw:bClrStd := {|| {CLR_BLACK, iif( Field-&gt;color1, CLR_WHITE, CLR_HCYAN ) } }\n   oBrw:CreateFromResource( 101 ) \n\n   oCol := oBrw:AddCol()\n   oCol:bStrData := { || _FIELD-&gt;CODIP01}\n   oCol:cHeader  := \"Código Catastral\"\n   oCol:nHeadStrAlign := AL_LEFT \n   oCol:nDataStrAlign := AL_LEFT \n   oCol:nWidth        := 100 \n\n\n   oCol := oBrw:AddCol()\n   oCol:bStrData := { || _FIELD-&gt;NOMIP01}\n   oCol:cHeader  := \"Propietario\"\n   oCol:nHeadStrAlign := AL_LEFT \n   oCol:nDataStrAlign := AL_LEFT \n   oCol:nWidth        := 400 \n\n   oDlg11:oClient := oBrw\n  activate window oDlg11\n\nreturn nil','',0,'AIA=','2wa7f6u5',1,0,'',975,0,0),(39434,8489,12,179,0,'190.10.198.97',1192209256,1,0,1,1,1,1,'','queriendo iniciar con fivelinux','Antonio, tengo linux red hat version 9 , al intentar construir el tutor01 me da este error\n\ncompiling...\n./../../harbour/bin/harbour: /lib/tls/libc.so.6: version `GLIBC_2.4\' not found (required by ./../../harbour/bin/harbour)\ncompiling C module...\ngcc: tutor01.c: No existe el fichero o el directorio\ngcc: no hay ficheros de entrada\nlinking...\nPackage libgnomeprintui-2.2 was not found in the pkg-config search path.\nPerhaps you should add the directory containing `libgnomeprintui-2.2.pc\'\nto the PKG_CONFIG_PATH environment variable\nNo package \'libgnomeprintui-2.2\' found\ngcc: tutor01.o: No existe el fichero o el directorio\nrm: no se puede efectuar `lstat\' sobre `tutor01.c\': No existe el fichero o el directorio\nrm: no se puede efectuar `lstat\' sobre `tutor01.o\': No existe el fichero o el directorio\ndone!\n./build.sh: line 23: ./tutor01: No existe el fichero o el directorio\n\nque me esta faltando instalar y como lo instalo ??\nal digitar \nrpm -q gtk2-devel\nobtengo como respuesta\ngtk2-devel-2.2.1-4\n\nperdon por la ignorancia\ngracias x todo\n\nSaludo','',0,'AIA=','1jkt94wu',1,0,'',179,0,0),(39436,8438,6,1168,0,'84.121.94.45',1192211763,1,0,1,1,1,0,'','','Jose,\n\nAunque ese error te desaparezca, el C5Menu tiene, entre otros, el inconveniente de que los when no funcionan apropiadamente; en mi caso hace que el menu se vuelva terriblemente lento en pintarse...\n\nGracias en todo caso a J.C.Salinas por su valiosa aportacion y a Canal 5 por su donacion.\n\nSaludos','',0,'AIA=','1lvycfpf',1,0,'',1168,0,0),(39437,8491,3,851,0,'212.160.70.175',1192211789,1,0,1,1,1,0,'','error when I run my application','I used xHarbour \nxHarbour Compiler build 0.99.71 (SimpLex) \n\nand FWH 7.05 \n\nwhen I run my application I got a message in windows Xp \nInstrukcja spod \"0x00000000: odwo&#322;uje si&#281; do pami&#281;ci pod \"0x00000000\". \nPami&#281;&#263; nie mo&#380;e by&#263; \"read\".','',0,'AIA=','1czx2x7j',1,0,'',851,0,0),(39438,8492,3,161,0,'81.83.249.31',1192213333,1,0,1,1,1,0,'','Bug in FWH with TRANSPARENT &amp; ICON?','Hi,\n\nI have a strange effect when using the TRANSPARENT option in a dialog.\n\nThe code is:\n[code:2vymt9yw]#INCLUDE &quot;FiveWin&#46;ch&quot;\n#include &quot;fwinkey&#46;ch&quot;\n\nFUNCTION test&#40;&#41;\n   local oDlg\n   local oBrush\n   DEFINE BRUSH oBrush  COLOR nRGB&#40;240,240,245&#41;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;OPENENDATABASE&quot; BRUSH oBrush  TRANSPARENT\n   ACTIVATE DIALOG oDlg CENTERED\n\nRETURN nil\n[/code:2vymt9yw]\n[code:2vymt9yw]\n#include &quot;c&#58;\\fwh\\FWH710\\include\\WinApi&#46;ch&quot;\n\nOPEN  ICON    folder2&#46;ico\n\n#ifdef __FLAT__\n  1 24 &quot;c&#58;\\fwh\\FWH710\\samples\\WinXP\\WindowsXP&#46;Manifest&quot;\n#endif\n\n\nOPENENDATABASE DIALOG 73, 37, 144, 48\nSTYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION &quot;Opening database&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n LTEXT &quot;Please wait&#46;&#46;&#46;&quot;, -1, 55, 19, 57, 8\n ICON &quot;open&quot;, -1, 20, 12, 21, 20\n GROUPBOX &quot;&quot;, -1, 5, 2, 134, 38, BS_GROUPBOX\n&#125;[/code:2vymt9yw]\n\nIf I comment the TRANSPARENT, I see a dialog with ICON &amp; Text.\nIf I use TRANSPARENT I see a text \'open\' on the place where the icon should be.\n\nIs this a bug in FWH?\n\nThanks,\nMarc','',0,'AIA=','2vymt9yw',1,0,'',161,0,0),(39439,8489,12,2,0,'87.218.146.164',1192215966,1,0,1,1,1,1,'','','Wilson,\n\nPrueba lo siguiente desde una ventana de consola:\n\nsudo yum install glibc \nsudo yum install gtk2-devel \nsudo yum install libgnomeprintui22-devel','',0,'AIA=','1o5anteu',1,0,'',2,0,0),(39440,8491,3,2,0,'87.218.146.164',1192216365,1,0,1,1,1,1,'','','Please go to FWH\\samples directory and try this:\n\nbuildx.bat tutor01\n\nand check if it works fine for you. Please do the same for tutor02','',0,'AIA=','2jatsn17',1,0,'',2,0,0),(39441,8492,3,2,0,'87.218.146.164',1192216994,1,0,1,1,1,1,'','','Marc,\n\nIt was a bug. Already fixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe email you a modified FiveHC.lib\n\nThanks for your feedback! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2hsj8ovk',1,0,'',2,0,0),(39442,8488,6,2,0,'87.218.146.164',1192217604,1,0,1,1,1,1,'','','JHON,\n\nEl método SetRdd() por defecto añade las columnas correspondientes a los campos de la DBF en uso. Para poder evitarlo tienes que modificar este método así:\n[code:1f8k6s32]\nMETHOD SetRDD&#40; lAddColumns &#41; CLASS TXBrowse\n&#46;&#46;&#46;\n   DEFAULT lAddColumns &#58;= &#46;T&#46;\n&#46;&#46;&#46;\n   if lAddColumns\n      if len&#40; &#58;&#58;aCols &#41; == 0\n         nFields &#58;= &#40; cAlias &#41;-&gt;&#40; FCount&#40;&#41; &#41;\n         for nFor &#58;= 1 to nFields\n            oCol &#58;= &#58;&#58;AddCol&#40;&#41;\n            oCol&#58;cHeader  &#58;= &#40; cAlias &#41;-&gt;&#40; FieldName&#40; nFor &#41; &#41;\n            oCol&#58;bStrData &#58;= GenFieldBlock&#40; cAlias, nFor &#41;\n         next\n      endif\n   endif   \n[/code:1f8k6s32]\nAhora en tu código sólo tienes que hacer:\noBrw:SetRdd( .F. )','',0,'AIA=','1f8k6s32',1,0,'',2,0,0),(39443,8487,6,2,0,'87.218.146.164',1192217894,1,0,1,1,1,1,'','','Que error da ?','',0,'AIA=','3iyot216',1,0,'',2,0,0),(39444,8489,12,179,0,'190.10.198.97',1192218763,1,0,1,1,1,1,'','','Antonio, gracias ya sse instalaaron esass librerias, ahora me sale este otro error\n\ncompiling...\nHarbour devel build 1.1-1 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\'...\nLines 1015, Functions/Procedures 1\nGenerating C source output to \'tutor01.c\'... Done.\ncompiling C module...\n./build.sh: line 14: gcc: command not found\nlinking...\n./build.sh: line 17: gcc: command not found\nrm: no se puede borrar «tutor01.o»: No existe el fichero o el directorio\ndone!\n./build.sh: line 23: ./tutor01: No existe el fichero o el directorio\n[root@localhost samples]#                       \n\nque estara mall ?\ngracias x todo\n\nx cierto como coonnnfiiguro el teclado para que no se repitan laas teclas ??\n\nsaludos','',0,'','45uaq9xl',1,0,'',179,0,0),(39445,8493,12,1189,0,'200.27.117.26',1192220234,1,0,1,1,1,0,'','Iniciandome en Clipper','Estimado Foro,\n\nsoy nuevo en esto, les cuento mi problema a ver si me pueden ayudar o aconsejarme como proseguir.\n\nTengo una aplicacion en Clipper 5.3, con bases DBF. (Hay que tomar encuenta,  Yo no he tenido ninguna experiencia con clipper mas que como usuario de la aplicacion)\n\nQue corre en un servidore novell 5.0, y esta en 16 bits, por lo que no puedo migrar mis maquinas windows 98 a windows xp, por que los equipos se ponen muy lentos y la aplicacion no anda bien, y sigo obligado a vivir entre novell, dos, 2003, linux y otras mesclas de sistemas, open edge, sql, oracle y dbf.\n\nTengo la siguiente idea, compilar la aplicacion para que corra en linux, y luego accesarla via telnet o ssh.\n\nPero tengo las siguientes dificultades \n\nCon que Programa lo compilo..?\nQue Distribucion de Linux Uso..?\nComo reemplazo los comandos novell, Capture y Nprinter en linux..?\n\nBueno espero que puedan ayudar a este pobre, perdido y desesperado administrador de sistemas, a llegar a buen puerto tratando de llegar a la utopia de llegar a la unificacion de sus sistemas.\n\nGracias\n\nDavid.','',0,'','gldzu0uf',1,0,'',1189,0,0),(39446,8492,3,161,0,'81.83.249.31',1192220682,1,0,1,1,1,0,'','','Thanks Antonio,\n\nIt\'s working fine now  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\n\nMarc','',0,'','1ll2mhgw',1,0,'',161,0,0),(39447,8494,20,29,0,'88.149.161.198',1192220726,1,0,1,1,1,0,'','Archivio sql','Salve a tutti,\nvorrei sapere se è possibile creare un file SQL con FWH &amp; xHarbour.\n\nSul newsgroup si parla di una libreria tmysql (che non trovo però da nessuna parte) ma mi sembra che serva solo ad interfacciarsi ad un archivio esistente e non a crearne di nuovi o sbaglio.\n\nGrazie in anticipo\n\nSaluti\n\nMarco Turco','',0,'','rjue944i',1,0,'',29,0,0),(39448,8492,3,161,0,'81.83.249.31',1192223191,1,0,1,1,1,0,'','','Antonio,\n\nWith new new lib you have send me I, the SAY\'s aren\'t transparant anymore  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n[url:aa1okq4h]http&#58;//www&#46;vms&#46;be/FWTest/trasparent&#46;bmp[/url:aa1okq4h]\n\nRegards,\nMarc','',0,'EA==','aa1okq4h',1,0,'',161,0,0),(39449,8487,6,1178,0,'200.24.127.11',1192224348,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3o9m212z]Que error da ?[/quote:3o9m212z]\n\nPerdon Verifique mal No me da Error.\n\nEl problema que tengo es el siguiente. No me esta refrescando las variables en el Formulario\n\nAnexo Codigo.\n\n[code:3o9m212z]\nProcedure PROG_TIPMOD&#40;&#41;\n   local oBar01,  oBrw, oFnt01, oBrush01,oBtnBmp\n   local oBtnNew, oBtnTop, oBtnPrev, oBtnNext, oBtnBottom, oBtnEnd\n   local oSay\n   local getNombre, gettipmod\n   local oGet\n   Public reg_edit,reg_nue\n   reg_edit &#58;= reg_nue &#58;=0\n\n   IF !USAFILE&#40;MEMVAR-&gt;DIR_CATA+&quot;ktipmod&#46;ve2&quot;,MEMVAR-&gt;DIR_CATA+&quot;ktipmod&quot;,&quot;b_tipmod&quot;,&#46;F&#46;,&#46;F&#46;&#41;\n      RETURN\n   ENDIF  \n   init_var&#40;&#41;\n    if RecCount&#40;&#41; == 0\n     go bottom\n     skip+1\n     init_asivar&#40;&#41;\n   else\n    GO TOP\n      init_asivar&#40;&#41;\n   endif\n   DEFINE BRUSH oBrush01 STYLE NULL\n   DEFINE FONT  oFnt01 NAME &quot;Arial&quot; size 08,14 BOLD    DEFINE DIALOG oDlg01 FROM 12,10 TO 42,85  TITLE &quot;Tipos de Modulos&quot;;\n   COLOR RGB&#40;255,255,255&#41;,RGB&#40;51,51,255&#41;;\n   STYLE nOR&#40;WS_MINIMIZEBOX&#41;\n   @ 2&#46;7,12 SAY oSay PROMPT &quot;Codigo   &#58;&quot; OF oDlg01  FONT oFnt01 SIZE 40,10; oSay&#58;lTransparent = &#46;T&#46;  \n   @ 3,  14 GET gettipmod Var m_tipmod   OF oDlg01 PICTURE &quot;@!&quot;;\n         WHEN m-&gt;reg_nue=1 MESSAGE &quot;Ingrese Tipo de Modulo&quot; COLORS RGB&#40;0,051,0&#41;,RGB&#40; 255,255,204&#41; UPDATE  \n   @ 4&#46;5,12 SAY oSay PROMPT &quot;Nombre   &#58;&quot; OF oDlg01  FONT oFnt01 SIZE 40,10; oSay&#58;lTransparent = &#46;T&#46;  \n   @ 5,  14 GET getnombre Var m_nombre OF oDlg01  PICTURE &quot;@!&quot;  ;\n      WHEN m-&gt;reg_edit = 1 MESSAGE &quot;Ingrese el Nombre&quot; COLORS RGB&#40;0,051,0&#41;,nRGB&#40; 255,255,204&#41; UPDATE  //oDbf02&#58;nombre \n    ACTIVATE DIALOG  oDlg01 CENTERED VALID NoSalir&#40;&#41; ON INIT &#40; CREABARRA&#40;0,0,1,385,35,oDlg01&#41;,ShowMenu&#40;oDlg01&#41;&#41;\n\nFUNCTION CREABARRA&#40;tmen,li,lc,lb,lr,oDlg01&#41; Local oFon2,oFon1,oBar,oBtnBmp,li_r,li_c,li_p,li_p1,l_mayu\n   li_r &#58;= 20;li_c&#58;=1&#46;4;li_p&#58;=4;li_p1&#58;=1&#46;7;l_mayu&#58;=0\n   DEFINE MSGBAR OF oDlg01 PROMPT &quot; &quot;   \n    DEFINE BUTTONBAR oBar12 _3D SIZE 26, 27 OF oDlg01 TOP \n   DEFINE BUTTON oBNew OF oBar12 FILENAME &quot;reg_nue&#46;bmp&quot; FLAT MESSAGE  &quot;Registro Nuevo&quot;;\n      ACTION  &#40;Autoper&#40;&quot;A&quot;,tmen,oBar12&#41;&#41; TOOLTIP &quot;Nuevo Registro &quot;\n   DEFINE BUTTON oBEdi OF oBar12 FILENAME  &quot;reg_edit&#46;bmp&quot; FLAT MESSAGE  &quot;Modificar Registro&quot;;\n      ACTION &#40;Autoper&#40;&quot;M&quot;,tmen,oBar12&#41;&#41; TOOLTIP &quot;Edita Registro&quot; \n  DEFINE BUTTON oBFres OF oBar12 FILENAME  &quot;reg_refr&#46;bmp&quot; FLAT  MESSAGE  &quot;Refrescar Registro &quot;; \n       TOOLTIP &quot;Refrescar Regisro&quot; GROUP\n \n&#46;&#46;&#46;&#46;\n&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;\nFunction Autoper&#40;Tper,tbar,Barr_1&#41;\n//X_PERNIV &#58;= &quot;A-M-E-C-R&quot;  /Adicion Modificacion Eliminar Consulta Reporte\n IF &#46;not&#46;Tper$&quot;CA-BU-BE-HE-00&quot;\n  if &#46;not&#46;Tper$x_perniv\n    alert&#40;&quot;No Tiene Autorizacion&quot;&#41;  //msg&#40;&quot;No tiene Autorizacion&quot;&#41;\n    return&#40;&#46;t&#46;&#41;\n  endif\n Endif\n if Tper==&quot;A&quot;  // cuando ingreso Registro Nuevo\n    go bottom\n    skip+1\n    init_asivar&#40;&#41;\n   oBNew&#58;Disable&#40;&#41; \n   oBEdi&#58;Disable&#40;&#41;\n   oBElim&#58;Disable&#40;&#41;\n   oBGrab&#58;Enable&#40;&#41;\n   oBCanc&#58;Enable&#40;&#41;\n   oBBusq&#58;Disable&#40;&#41;\n   oBFind&#58;Disable&#40;&#41;\n   oBBrow&#58;Disable&#40;&#41;\n   oBPrim&#58;Disable&#40;&#41;\n   oBNext&#58;Disable&#40;&#41;\n   oBAnt&#58;Disable&#40;&#41;\n   oBUlti&#58;Disable&#40;&#41;\n   oBFres&#58;Enable&#40;&#41;\n   oBPrin&#58;Disable&#40;&#41;\n   m-&gt;reg_edit&#58;=1\n   m-&gt;reg_nue&#58;=1\n   \n elseif Tper==&quot;M&quot;  // Edito Registro\n   oBNew&#58;Disable&#40;&#41;\n   oBEdi&#58;Disable&#40;&#41;\n   oBElim&#58;Disable&#40;&#41;\n   oBGrab&#58;Enable&#40;&#41;\n   oBCanc&#58;Enable&#40;&#41;\n   oBBusq&#58;Disable&#40;&#41;\n   oBFind&#58;Disable&#40;&#41;\n   oBBrow&#58;Disable&#40;&#41;\n   oBPrim&#58;Disable&#40;&#41;\n   oBNext&#58;Disable&#40;&#41;\n   oBAnt&#58;Disable&#40;&#41;\n   oBUlti&#58;Disable&#40;&#41;\n   oBFres&#58;Enable&#40;&#41;\n   oBPrin&#58;Disable&#40;&#41;\n   m-&gt;reg_edit&#58;= 1\n   m-&gt;reg_nue &#58;=0\n   alert&#40;m-&gt;reg_edit&#41;\n\n&#46;&#46;\n&#46;&#46;\n&#46;&#46;\n sysrefresh&#40;&#41; \n\nFunction ShowMenu&#40;oDlg01&#41;  Local oMenu12\n      MENU oMenu12\n      MENUITEM &quot;&amp;Datos&quot;\n      MENU\n         MENUITEM &quot;&amp;Nuevo&quot; ;\n            MESSAGE &quot;Nuevo Registro&quot;; \n             ACTION Accesos&#40; alter&#40;&quot;dsd&quot;&#41;,0&#41;  FILENAME   reg_nue&#46;bmp&quot;\n         MENUITEM &quot;&amp;Modificacion/Edicion&#46;&#46;&#46;&quot;;\n           MESSAGE &quot;Modifica Registro&quot; ACTION  &#40;Autoper&#40;&quot;M&quot;,0,oBar12&#41;&#41; ;\n            FILENAME  &quot;reg_edit&#46;bmp&quot;\n****\n\n\n\n\nMe carga el formulario con los con la barra de Botones&#46;\nEl cargue inicial si carga el dato del Primer Registro&#46;\nEl problema es cuando Edito El registro para Modificar debo le cambio los valores a estas variables para habilitar los Get\n  m-&gt;reg_edit&#58;=1\n  m-&gt;reg_nue&#58;=1\n\nLo mismo Seria Cuando es Registro Nuevo se ejecuta la funcion init_asivar&#40;&#41;&#46; No Refresca el formulario&#46;\nSi Lo Ejecuto desde el menu Tambien Pasa Lo mismo\n\nEl problema es que no Refresca el formulario&#46;\n\nHE Utilizado varias formas Incusive pasar la Vble &#40;@reg_edit,@reg_nue&#41;\n\n\nGracias Si no puede sacar de esta duda o me falta alguna Instruccion&#46;\n[/code:3o9m212z]','',0,'gIA=','3o9m212z',1,0,'',1178,0,0),(39450,8487,6,1178,0,'200.24.127.11',1192224741,1,0,1,1,1,0,'','','[quote=&quot;ruben Dario&quot;:jo8sl4he][quote=&quot;Antonio Linares&quot;:jo8sl4he]Que error da ?[/quote:jo8sl4he]\n\nPerdon Verifique mal No me da Error.\n\nEl problema que tengo es el siguiente. No me esta refrescando las variables en el Formulario\n\nAnexo Codigo.\n\n[code:jo8sl4he]\nProcedure PROG_TIPMOD&#40;&#41;\n   local oBar01,  oBrw, oFnt01, oBrush01,oBtnBmp\n   local oBtnNew, oBtnTop, oBtnPrev, oBtnNext, oBtnBottom, oBtnEnd\n   local oSay\n   local getNombre, gettipmod\n   local oGet\n   Public reg_edit,reg_nue\n   reg_edit &#58;= reg_nue &#58;=0\n\n   IF !USAFILE&#40;MEMVAR-&gt;DIR_CATA+&quot;ktipmod&#46;ve2&quot;,MEMVAR-&gt;DIR_CATA+&quot;ktipmod&quot;,&quot;b_tipmod&quot;,&#46;F&#46;,&#46;F&#46;&#41;\n      RETURN\n   ENDIF  \n   init_var&#40;&#41;\n    if RecCount&#40;&#41; == 0\n     go bottom\n     skip+1\n     init_asivar&#40;&#41;\n   else\n    GO TOP\n      init_asivar&#40;&#41;\n   endif\n   DEFINE BRUSH oBrush01 STYLE NULL\n   DEFINE FONT  oFnt01 NAME &quot;Arial&quot; size 08,14 BOLD    DEFINE DIALOG oDlg01 FROM 12,10 TO 42,85  TITLE &quot;Tipos de Modulos&quot;;\n   COLOR RGB&#40;255,255,255&#41;,RGB&#40;51,51,255&#41;;\n   STYLE nOR&#40;WS_MINIMIZEBOX&#41;\n   @ 2&#46;7,12 SAY oSay PROMPT &quot;Codigo   &#58;&quot; OF oDlg01  FONT oFnt01 SIZE 40,10; oSay&#58;lTransparent = &#46;T&#46;  \n   @ 3,  14 GET gettipmod Var m_tipmod   OF oDlg01 PICTURE &quot;@!&quot;;\n         WHEN m-&gt;reg_nue=1 MESSAGE &quot;Ingrese Tipo de Modulo&quot; COLORS RGB&#40;0,051,0&#41;,RGB&#40; 255,255,204&#41; UPDATE  \n   @ 4&#46;5,12 SAY oSay PROMPT &quot;Nombre   &#58;&quot; OF oDlg01  FONT oFnt01 SIZE 40,10; oSay&#58;lTransparent = &#46;T&#46;  \n   @ 5,  14 GET getnombre Var m_nombre OF oDlg01  PICTURE &quot;@!&quot;  ;\n      WHEN m-&gt;reg_edit = 1 MESSAGE &quot;Ingrese el Nombre&quot; COLORS RGB&#40;0,051,0&#41;,nRGB&#40; 255,255,204&#41; UPDATE  //oDbf02&#58;nombre \n    ACTIVATE DIALOG  oDlg01 CENTERED VALID NoSalir&#40;&#41; ON INIT &#40; CREABARRA&#40;0,0,1,385,35,oDlg01&#41;,ShowMenu&#40;oDlg01&#41;&#41;\n\nFUNCTION CREABARRA&#40;tmen,li,lc,lb,lr,oDlg01&#41; Local oFon2,oFon1,oBar,oBtnBmp,li_r,li_c,li_p,li_p1,l_mayu\n   li_r &#58;= 20;li_c&#58;=1&#46;4;li_p&#58;=4;li_p1&#58;=1&#46;7;l_mayu&#58;=0\n   DEFINE MSGBAR OF oDlg01 PROMPT &quot; &quot;   \n    DEFINE BUTTONBAR oBar12 _3D SIZE 26, 27 OF oDlg01 TOP \n   DEFINE BUTTON oBNew OF oBar12 FILENAME &quot;reg_nue&#46;bmp&quot; FLAT MESSAGE  &quot;Registro Nuevo&quot;;\n      ACTION  &#40;Autoper&#40;&quot;A&quot;,tmen,oBar12&#41;&#41; TOOLTIP &quot;Nuevo Registro &quot;\n   DEFINE BUTTON oBEdi OF oBar12 FILENAME  &quot;reg_edit&#46;bmp&quot; FLAT MESSAGE  &quot;Modificar Registro&quot;;\n      ACTION &#40;Autoper&#40;&quot;M&quot;,tmen,oBar12&#41;&#41; TOOLTIP &quot;Edita Registro&quot; \n  DEFINE BUTTON oBFres OF oBar12 FILENAME  &quot;reg_refr&#46;bmp&quot; FLAT  MESSAGE  &quot;Refrescar Registro &quot;; \n       TOOLTIP &quot;Refrescar Regisro&quot; GROUP\n \n&#46;&#46;&#46;&#46;\n&#46;&#46;\n&#46;&#46;&#46;\n&#46;&#46;\nFunction Autoper&#40;Tper,tbar,Barr_1&#41;\n//X_PERNIV &#58;= &quot;A-M-E-C-R&quot;  /Adicion Modificacion Eliminar Consulta Reporte\n IF &#46;not&#46;Tper$&quot;CA-BU-BE-HE-00&quot;\n  if &#46;not&#46;Tper$x_perniv\n    alert&#40;&quot;No Tiene Autorizacion&quot;&#41;  //msg&#40;&quot;No tiene Autorizacion&quot;&#41;\n    return&#40;&#46;t&#46;&#41;\n  endif\n Endif\n if Tper==&quot;A&quot;  // cuando ingreso Registro Nuevo\n    go bottom\n    skip+1\n    init_asivar&#40;&#41;\n   oBNew&#58;Disable&#40;&#41; \n   oBEdi&#58;Disable&#40;&#41;\n   oBElim&#58;Disable&#40;&#41;\n   oBGrab&#58;Enable&#40;&#41;\n   oBCanc&#58;Enable&#40;&#41;\n   oBBusq&#58;Disable&#40;&#41;\n   oBFind&#58;Disable&#40;&#41;\n   oBBrow&#58;Disable&#40;&#41;\n   oBPrim&#58;Disable&#40;&#41;\n   oBNext&#58;Disable&#40;&#41;\n   oBAnt&#58;Disable&#40;&#41;\n   oBUlti&#58;Disable&#40;&#41;\n   oBFres&#58;Enable&#40;&#41;\n   oBPrin&#58;Disable&#40;&#41;\n   m-&gt;reg_edit&#58;=1\n   m-&gt;reg_nue&#58;=1\n   \n elseif Tper==&quot;M&quot;  // Edito Registro\n   oBNew&#58;Disable&#40;&#41;\n   oBEdi&#58;Disable&#40;&#41;\n   oBElim&#58;Disable&#40;&#41;\n   oBGrab&#58;Enable&#40;&#41;\n   oBCanc&#58;Enable&#40;&#41;\n   oBBusq&#58;Disable&#40;&#41;\n   oBFind&#58;Disable&#40;&#41;\n   oBBrow&#58;Disable&#40;&#41;\n   oBPrim&#58;Disable&#40;&#41;\n   oBNext&#58;Disable&#40;&#41;\n   oBAnt&#58;Disable&#40;&#41;\n   oBUlti&#58;Disable&#40;&#41;\n   oBFres&#58;Enable&#40;&#41;\n   oBPrin&#58;Disable&#40;&#41;\n   m-&gt;reg_edit&#58;= 1\n   m-&gt;reg_nue &#58;=0\n   alert&#40;m-&gt;reg_edit&#41;\n\n&#46;&#46;\n&#46;&#46;\n&#46;&#46;\n sysrefresh&#40;&#41; \n\nFunction ShowMenu&#40;oDlg01&#41;  Local oMenu12\n      MENU oMenu12\n      MENUITEM &quot;&amp;Datos&quot;\n      MENU\n         MENUITEM &quot;&amp;Nuevo&quot; ;\n            MESSAGE &quot;Nuevo Registro&quot;; \n             ACTION Accesos&#40; alter&#40;&quot;dsd&quot;&#41;,0&#41;  FILENAME   reg_nue&#46;bmp&quot;\n         MENUITEM &quot;&amp;Modificacion/Edicion&#46;&#46;&#46;&quot;;\n           MESSAGE &quot;Modifica Registro&quot; ACTION  &#40;Autoper&#40;&quot;M&quot;,0,oBar12&#41;&#41; ;\n            FILENAME  &quot;reg_edit&#46;bmp&quot;\n****\n\n\n\n\nMe carga el formulario con los con la barra de Botones&#46;\nEl cargue inicial si carga el dato del Primer Registro&#46;\nEl problema es cuando Edito El registro para Modificar debo le cambio los valores a estas variables para habilitar los Get\n  m-&gt;reg_edit&#58;=1\n  m-&gt;reg_nue&#58;=1\n\nLo mismo Seria Cuando es Registro Nuevo se ejecuta la funcion init_asivar&#40;&#41;&#46; No Refresca el formulario&#46;\nSi Lo Ejecuto desde el menu Tambien Pasa Lo mismo\n\nEl problema es que no Refresca el formulario&#46;\n\nHE Utilizado varias formas Incusive pasar la Vble &#40;@reg_edit,@reg_nue&#41;\n\n\nGracias Si no puede sacar de esta duda o me falta alguna Instruccion&#46;\n[/code:jo8sl4he][/quote:jo8sl4he]\n[img]c:\\formul.jpg[/img]','',0,'iIA=','jo8sl4he',1,0,'',1178,0,0),(39451,8494,20,6,0,'79.2.222.96',1192225136,1,0,1,1,1,1,'','Re: Archivio sql','Il modo più semplice è forse quello di utilizzare ADO.\n\nEMG','',0,'iIA=','3sa8t2fh',1,0,'',6,0,0),(39452,8488,6,228,0,'200.119.52.243',1192229802,1,0,1,1,1,1,'','Las puedes quitar asi....','Las puedes quitar de la siguiente Manera:\n\n[code:2jvuv3gr]\n\nSTATIC FUNCTION ChgColors \n\n#define DIALOG_15 15 \n\nlocal oChild, oBrw,oDlg11,oCOL \nselect 1 \nUSE CATASTRO \ngo top \n\nDEFINE DIALOG oDlg11 RESOURCE DIALOG_15 of oWnd \noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg11 &#41; \n\n\noBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW \noBrw&#58;nColDividerStyle &#58;= LINESTYLE_BLACK \noBrw&#58;nRowDividerStyle &#58;= LINESTYLE_BLACK \noBrw&#58;lColDividerComplete &#58;= &#46;t&#46; \noBrw&#58;SetRDD&#40;&#41; \n\n\noBrw&#58;bClrStd &#58;= &#123;|| &#123;CLR_BLACK, iif&#40; Field-&gt;color1, CLR_WHITE, CLR_HCYAN &#41; &#125; &#125; \noBrw&#58;CreateFromResource&#40; 101 &#41; \n\noCol &#58;= oBrw&#58;AddCol&#40;&#41; \noCol&#58;bStrData &#58;= &#123; || _FIELD-&gt;CODIP01&#125; \noCol&#58;cHeader &#58;= &quot;Código Catastral&quot; \noCol&#58;nHeadStrAlign &#58;= AL_LEFT \noCol&#58;nDataStrAlign &#58;= AL_LEFT \noCol&#58;nWidth &#58;= 100 \n\n\noCol &#58;= oBrw&#58;AddCol&#40;&#41; \noCol&#58;bStrData &#58;= &#123; || _FIELD-&gt;NOMIP01&#125; \noCol&#58;cHeader &#58;= &quot;Propietario&quot; \noCol&#58;nHeadStrAlign &#58;= AL_LEFT \noCol&#58;nDataStrAlign &#58;= AL_LEFT \noCol&#58;nWidth &#58;= 400 \n\noBrw&#58;DelCol&#40;3&#41;\noBrw&#58;DelCol&#40;4&#41;\noBrw&#58;DelCol&#40;5&#41;\noBrw&#58;DelCol&#40;6&#41;\n\noDlg11&#58;oClient &#58;= oBrw \nactivate window oDlg11 \n\nreturn nil\n\n[/code:2jvuv3gr]\n\nEspero te sirva...','',0,'AIA=','2jvuv3gr',1,0,'',228,0,0),(39453,8470,3,239,0,'121.33.137.211',1192235903,1,0,1,1,1,0,'','','Thanks EMG,ASK!\n\nShuming Wang','',0,'AIA=','2e5yhl2w',1,0,'',239,0,0),(39454,8480,3,51,0,'80.122.88.242',1192252454,1,0,1,1,1,0,'','','Hello James,\nthank you for your answer. \nIn case I would start using your database class is it possible to implement it in a gentle way.\nI mean could I implement the class parallel to conventional data access in one prg.\nBest regards,\nOtto','',0,'AIA=','2dq9vwtr',1,0,'',51,0,0),(39455,8491,3,851,0,'80.51.66.32',1192258286,1,0,1,1,1,0,'','','I got the same error\nwhen I run buildx tutor01','',0,'AIA=','23hmnjy1',1,0,'',851,0,0),(39456,8480,3,303,0,'72.220.100.171',1192258497,1,0,1,1,1,0,'','','Otto,\n\n&gt;In case I would start using your database class is it possible to implement it in a gentle way. I mean could I implement the class parallel to conventional data access in one prg. \n\nYes you can.\n\nJames','',0,'AIA=','1yu01flx',1,0,'',303,0,0),(39457,8491,3,303,0,'72.220.100.171',1192258964,1,0,1,1,1,0,'','','I don\'t think that is the version of xHabour that came with that version of FWH. You need to use the version that came with it.\n\nJames','',0,'AIA=','3u73g5t2',1,0,'',303,0,0),(39458,8476,3,190,0,'124.7.123.231',1192269360,1,0,1,1,1,0,'','','Mr.James\n\nThank you very much for your support.\n\nActually the DibWrite(...) function it self not functioning properly.\nIt is generating a BMP file with only 14 bytes !.  I have tried several\nways including yours.\n\nStill the same problem.\n\nThank you once again.\n\n- Ramesh Babu P','',0,'AIA=','16clpe31',1,0,'',190,0,0),(39459,8495,6,1146,0,'87.223.177.191',1192271418,1,0,1,1,1,0,'','errores de harbour en castellano','Hola:\n\n¿Alguno tenéis, por favor, un listado con los errores y descripción de los mismos en castellano?.\npej:\n\nDBFNTX/1012 Corrupción detectada. El fichero está corrupto. Posibles soluciones, bla bla\n\n\nMuchas gracias. Un saludo','',0,'AIA=','1k74qpu4',1,0,'',1146,0,0),(39460,8476,3,2,0,'87.218.146.164',1192273644,1,0,1,1,1,1,'','','Ramesh,\n\nPlease copy here the source code of your FWH DibWrite(), thanks','',0,'AIA=','2jlz18pq',1,0,'',2,0,0),(39461,8476,3,190,0,'124.7.123.231',1192275305,1,0,1,1,1,0,'','','Mr.Antonio\n\nThank you very much for not leaving me in vain.\n\n[code:1v6xpw9a]\nBOOL DibWrite&#40; LPSTR szFileName, HGLOBAL hDIB &#41; \n&#123; \n   LPBITMAPINFO Info = &#40; LPBITMAPINFO &#41; GlobalLock&#40; hDIB &#41;; \n   void huge * Bits  = &#40; void huge * &#41; &#40; &#40; FARP &#41; Info + Info-&gt;bmiHeader&#46;biSize + \n                       wDIBColors&#40; &#40; LPBITMAPINFOHEADER &#41; Info &#41; * sizeof&#40; RGBQUAD &#41; &#41;; \n   long lSize = GlobalSize&#40; &#40; HGLOBAL &#41; Info &#41;; \n   BITMAPFILEHEADER bmf; \n   int hBmp; \n\n   bmf&#46;bfType      = \'BM\'; \n   bmf&#46;bfSize      = sizeof&#40; bmf &#41; + lSize; \n   bmf&#46;bfReserved1 = 0; \n   bmf&#46;bfReserved2 = 0; \n   bmf&#46;bfOffBits   = sizeof&#40; bmf &#41; + &#40; FARP &#41; Bits - &#40; FARP &#41; Info; \n\n   #ifndef UNICODE \n   if&#40; &#40; hBmp = _lcreat&#40; szFileName, 0 &#41; &#41; != HFILE_ERROR &#41; \n   &#123; \n      _hwrite&#40; hBmp, &#40; const char * &#41; &amp;bmf, sizeof&#40; bmf &#41; &#41;; \n      _hwrite&#40; hBmp, &#40; const char * &#41; Info, lSize &#41;; \n      _lclose&#40; hBmp &#41;; \n      GlobalUnlock&#40; hDIB &#41;; \n      return TRUE; \n   &#125; \n   #else \n   if&#40; &#40; hBmp = hb_fsCreate&#40; &#40; unsigned char * &#41; szFileName, 0 &#41; &#41; != &#40; int &#41; INVALID_HANDLE_VALUE &#41; \n   &#123; \n      hb_fsWriteLarge&#40; hBmp, &#40; unsigned char * &#41; &amp;bmf, sizeof&#40; bmf &#41; &#41;; \n      hb_fsWriteLarge&#40; hBmp, &#40; unsigned char * &#41; Info, lSize &#41;; \n      hb_fsClose&#40; hBmp &#41;; \n      GlobalUnlock&#40; hDIB &#41;; \n      return TRUE; \n   &#125; \n   #endif \n   else \n   &#123; \n      GlobalUnlock&#40; hDIB &#41;; \n      return FALSE; \n   &#125; \n&#125; \n\n//---------------------------------------------------------------------------// \n\nCLIPPER DIBWRITE&#40; PARAMS &#41;  // &#40; cFileName, hDib &#41; --&gt; lSuccess \n&#123; \n   _retl&#40; DibWrite&#40; _parc&#40; 1 &#41;, &#40; HGLOBAL &#41; _parnl&#40; 2 &#41; &#41; &#41;; \n&#125; \n[/code:1v6xpw9a]\n\nPlease look into it and suggest me, if any thing is to be modified.\n\nThank you once again,\n\n- Ramesh Babu P\n\nFWH 2.8 (Sep Build) + xHarbour 0.99.71 (Simplex)','',0,'AIA=','1v6xpw9a',1,0,'',190,0,0),(39462,8476,3,6,0,'79.19.242.46',1192275634,1,0,1,1,1,1,'','','It seems identical to the one in the current FWH release.\n\nEMG','',0,'AIA=','18f4zbfp',1,0,'',6,0,0),(39463,8476,3,2,0,'87.218.146.164',1192275745,1,0,1,1,1,1,'','','Ramesh,\n\nPlease email it to me, the entire dib.c, thanks','',0,'AIA=','3dn435hm',1,0,'',2,0,0),(39464,8491,3,2,0,'87.218.146.164',1192275919,1,0,1,1,1,1,'','','If you are using a more recent xHarbour, then you need to recompile ALL your PRGs and FWH PRGs, and all third party libs PRGs that you may be using','',0,'AIA=','26ki3t9y',1,0,'',2,0,0),(39465,8495,6,2,0,'87.218.146.164',1192276086,1,0,1,1,1,1,'','','Moises,\n\nTienes que añadir estas líneas al comienzo de tu PRG principal:\n\nREQUEST HB_Lang_ES \nREQUEST HB_CODEPAGE_ESWIN \n\nHB_LangSelect(\"ES\") // Para mensajes, fechas, etc.. \nHB_SetCodePage(\"ESWIN\") // Para ordenación, requiere CodePage.lib','',0,'AIA=','23txmoub',1,0,'',2,0,0),(39466,8489,12,2,0,'87.218.146.164',1192276237,1,0,1,1,1,1,'','','Wilson,\n\nTe falta el compilador de C. Es raro que no venga incluido:\n\nsudo yum install gcc\n\nPara el teclado, no se. Yo te recomiendo usar Ubuntu. En la opinión de muchos es el Linux más amigable y más fácil de configurar, y posiblemente el que mejor soporte técnico y actualizaciones ofrece.','',0,'AIA=','l3mbx1yw',1,0,'',2,0,0),(39467,8476,3,190,0,'124.7.123.231',1192276238,1,0,1,1,1,0,'','','Mr.Antinio\n\nDone.\n\nThanks\n\n- Ramesh Babu P','',0,'AIA=','i0gxly87',1,0,'',190,0,0),(39468,8493,12,2,0,'87.218.146.164',1192276418,1,0,1,1,1,1,'','','David,\n\nEn base a mi experiencia, te diría que Windows XP y Linux funcionan a la misma velocidad más ó menos. Con Linux no vas a ganar en velocidad.\n\nTendrás que plantearte adquirir hardware más moderno','',0,'AIA=','2g9wse92',1,0,'',2,0,0),(39469,8476,3,2,0,'87.218.146.164',1192276874,1,0,1,1,1,1,'','','Ramesh,\n\nThe files are the same as Enrico said. \n\nI am going to email you the EXE. Please run it and lets see if the problem comes from the EXE or from Windows.','',0,'AIA=','vpwdom50',1,0,'',2,0,0),(39470,8372,2,890,0,'200.24.110.241',1192279189,1,0,1,1,1,0,'','','[quote=&quot;jaba&quot;:2x2vw2jh][quote=&quot;Antonio Linares&quot;:2x2vw2jh]Jairo,\n\nTienes que usar un timer y que la acción del timer sea volver a hacer oAvi:Play()[/quote\n\nAntonio\nEn verdad muchas gracias\n\nJair Barbosa[/quote:2x2vw2jh][/quote:2x2vw2jh]\n\n//--------------------------------------------------------------------------//\n\n\nAntonio \n\nCon el cordial saludo y mis mejores deseos para ti y para los que tu mas quieres\n\nAntonio funciono muy bien solo que agregando un uno (1)en la funcion play() por favor enseñame porque se comporta de esa manera, es decir porque hay que poner un uno, si pongo cero no funciona pero si pongo dos o tres etc si funciona adjunto el codigo de la probeta que emplee.\n \n#include \"FiveWin.ch\"\n\nfunction Main()\n\nlocal  oAvi, oWnd,oTm\n\n   DEFINE WINDOW oWnd  FROM 3, 3 TO 20, 40 ;\n      TITLE  \"Probando avi con temporizador\"  \n   DEFINE TIMER oTm of oWnd action oAvi:Play(1) interval 1500\n\n @ 3, 2 VIDEO oAvi FILE \"C:\\varios\\video\\Download.avi\" SIZE 260, 55 PIXEL NOBORDER  \n   \n   ACTIVATE WINDOW oWnd ON INIT(oTm:activate())  \n   \nreturn NIL','',0,'gA==','2x2vw2jh',1,0,'',890,0,0),(39472,8476,3,190,0,'124.7.113.60',1192279293,1,0,1,1,1,0,'','','Mr. Antonio\n\nThanks to you for the TEST.EXE and Mr.Enrico for his attention.\n\nAs you have suspected, the EXE did not work on WIN98 (SE) and generated savedbmp.bmp with 14 bytes.  When I tested the same \nEXE in WINXP Professional, it has created the savedbmp correctly.\n\nThe following is log recorded in both OSs: \n\n[code:1bem069o]\nWindows 98 &#91;Version 4&#46;10&#46;2222&#93;\n\n Volume in drive C is RAMESHBABU \n Volume Serial Number is 4255-1DD5\n Directory of C&#58;\\\n\nSAVEDBMP BMP            14  10-13-07  5&#58;52p SavedBmp&#46;Bmp\n         1 file&#40;s&#41;             14 bytes\n         0 dir&#40;s&#41;          421&#46;06 MB free\n\n****\n\nMicrosoft Windows XP &#91;Version 5&#46;1&#46;2600&#93;\n\n Volume in drive C is RAMESHBABU\n Volume Serial Number is 4255-1DD5\n\n Directory of C&#58;\\\n\n13/10/2007  17&#58;57           630,074 SavedBmp&#46;Bmp\n               1 File&#40;s&#41;        630,074 bytes\n               0 Dir&#40;s&#41;     487,456,768 bytes free\n\n[/code:1bem069o]\n\nIs Dibwrite(..)  is not compatiable with WIN98 ?\n\nThanks to you both\n\n- Ramesh Babu P','',0,'AIA=','1bem069o',1,0,'',190,0,0),(39473,8491,3,851,0,'80.48.68.76',1192280584,1,0,1,1,1,0,'','','how can I recomplite all FWH PRGs ?','',0,'AIA=','392rak8a',1,0,'',851,0,0),(39474,8491,3,6,0,'79.19.242.46',1192282267,1,0,1,1,1,1,'','','XHARBOUR.BAT:\n\n@ ECHO OFF\n\nCOPY c:\\fwh\\source\\function\\*.prg\nCOPY c:\\fwh\\source\\winapi\\*.prg\nCOPY c:\\fwh\\source\\classes\\*.prg\n\nDEL expbuild.prg\nDEL db10.prg\nDEL odbc32.prg\nDEL dbm.prg\nDEL vbxctrl.prg\nDEL _index.prg\nDEL dbms.prg\nDEL ddeserv.prg\nDEL field.prg\nDEL tnewsins.prg\nDEL c3.prg\n\nSET HARBOURCMD=/a /es1 /gc0 /l /m /n /q /w\nSET INCLUDE=c:\\fwh\\include;c:\\xharbour\\include\nFOR %%i IN (*.prg) DO c:\\xharbour\\bin\\harbour %%i\nSET HARBOURCMD=\nSET INCLUDE=\nIF EXIST *.prg DEL *.prg\n\nFOR %%i IN (*.c) DO c:\\bcc55\\bin\\bcc32 +xharbour.cfg -c %%i\nIF EXIST *.c DEL *.c\n\nFOR %%i IN (*.obj) DO c:\\bcc55\\bin\\tlib Fivehx /P32 +%%i\nIF EXIST *.obj DEL *.obj\nIF EXIST *.bak DEL *.bak\n\nIF EXIST fivehx.lib COPY fivehx.lib c:\\fwh\\lib\nIF EXIST fivehx.lib DEL fivehx.lib\n\n\nXHARBOUR.CFG:\n\n-5\n-DHB_FM_STATISTICS_OFF\n-DHB_GUI\n-DHB_NO_PROFILER\n-DHB_NO_TRACE\n-DHB_WIN32_IO\n-Ic:\\fwh\\include;c:\\xharbour\\include;c:\\bcc55\\include\n-k-\n-O1\n-O2\n-OS\n-Ov\n-v-\n-W\n-w\n-w-inl-\n\nPlease check the paths.\n\nEMG','',0,'AIA=','1q8ms47e',1,0,'',6,0,0),(39475,8496,3,2,0,'87.218.146.164',1192283422,1,0,1,1,1,1,'','FWH - New Office 2007 menus !!!','We are currently testing and completing the new FWH 7.11 Office 2007 menus. No need to change your source code at all <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIf you want to test them and help to fine tune them, please send me an email and specify is you use Harbour or xHarbour. You have to be already a FWH 7.10 user in order to test them.\n\n[url=http&#58;//imageshack&#46;us:1qld2ma9][img:1qld2ma9]http&#58;//img91&#46;imageshack&#46;us/img91/4185/fwhmg6&#46;png[/img:1qld2ma9][/url:1qld2ma9]\n\n[url=http&#58;//imageshack&#46;us:1qld2ma9][img:1qld2ma9]http&#58;//img340&#46;imageshack&#46;us/img340/7374/fwh2mx1&#46;png[/img:1qld2ma9][/url:1qld2ma9]','',0,'GA==','1qld2ma9',1,0,'',2,0,0),(39476,8497,6,2,0,'87.218.146.164',1192283738,1,0,1,1,1,1,'','FWH - Nuevos menus Office 2007 !!!','Estamos probando y completando los nuevos menus de FWH con apariencia de Office 2007. No hay que cambiar nada en vuestro código fuente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi quereis probarlos y ayudar a afinarlos, por favor enviadme un email, indicando si usais Harbour ó xHarbour. Es necesario que seais usuarios de FWH 7.10 para usarlos.\n\n[url=http&#58;//imageshack&#46;us:cwihind6][img:cwihind6]http&#58;//img91&#46;imageshack&#46;us/img91/4185/fwhmg6&#46;png[/img:cwihind6][/url:cwihind6]\n\n[url=http&#58;//imageshack&#46;us:cwihind6][img:cwihind6]http&#58;//img340&#46;imageshack&#46;us/img340/7374/fwh2mx1&#46;png[/img:cwihind6][/url:cwihind6]','',0,'GA==','cwihind6',1,0,'',2,0,0),(39477,8491,3,851,0,'80.48.68.76',1192285355,1,0,1,1,1,0,'','','I used \nxHarbour Compiler build 0.99.71 (SimpLex)','',0,'GA==','171krvx8',1,0,'',851,0,0),(39478,8491,3,851,0,'80.48.68.76',1192286826,1,0,1,1,1,0,'','','I am using commercial xHarbour\n\nxHarbour Compiler build 0.99.71 (SimpLex)','',0,'GA==','2at5q0dp',1,0,'',851,0,0),(39479,8491,3,2,0,'87.218.146.164',1192287263,1,0,1,1,1,1,'','','Please ask Patrick Mast for a xHarbour commercial upgrade (or beta).\n\nProbably thats the problem: that you are using an outdated xHarbour builder build with FWH.','',0,'GA==','1mg2j14z',1,0,'',2,0,0),(39480,8491,3,851,0,'80.48.68.76',1192287414,1,0,1,1,1,0,'','','I have xHrabour from 02.2007','',0,'GA==','286bf9ul',1,0,'',851,0,0),(39481,8491,3,2,0,'87.218.146.164',1192287655,1,0,1,1,1,1,'','','FWH 7.05 is from May 2007. You need an updated xHarbour builder.','',0,'GA==','2iszzc8f',1,0,'',2,0,0),(39482,8491,3,851,0,'80.48.68.76',1192287696,1,0,1,1,1,0,'','','I used xHarbour ver 02.2007 and FWH 05.2007','',0,'GA==','3hk9uqwz',1,0,'',851,0,0),(39483,8491,3,851,0,'80.48.68.76',1192287874,1,0,1,1,1,0,'','','if I must recomplite source FWH','',0,'GA==','14zmcwol',1,0,'',851,0,0),(39484,8496,3,171,0,'71.233.232.238',1192288099,1,0,1,1,1,0,'','','Great Job Antonio!!!\n\nThis is the feature that I was waiting for in order to upgrade my FWH 2.8 Version\n\nRegards\n\nGeorge','',0,'GA==','3d2hkoi2',1,0,'',171,0,0),(39485,8491,3,2,0,'87.218.146.164',1192289578,1,0,1,1,1,1,'','','Yes.\n\nPatrick Mast has a xHarbour builder project to automatically rebuild FWH. \n\nWe have asked him for that file to provide it to you.','',0,'GA==','27o0ae6h',1,0,'',2,0,0),(39486,8491,3,851,0,'80.48.68.76',1192289813,1,0,1,1,1,0,'','','where is this xHarbour builder project','',0,'GA==','3qq2w38q',1,0,'',851,0,0),(39487,8476,3,2,0,'87.218.146.164',1192289920,1,0,1,1,1,1,'','','Ramesh,\n\nIt should be compatible. \n\nAnyhow, we are going to make some tests','',0,'GA==','2ifjfq5m',1,0,'',2,0,0),(39488,8496,3,51,0,'80.122.88.242',1192290067,1,0,1,1,1,0,'','','Hello Antonio,\nI am a FWH 7.10 er.\nI would like to test the new menu.\nBest regards,\nOtto','',0,'GA==','pr7ronk4',1,0,'',51,0,0),(39489,8389,6,987,0,'189.133.17.42',1192290082,1,0,1,1,1,0,'','','Saludos de nuevo colegas del foro:\n\nBuscando por la red encontre algo que podría semejarse o acercarse a la petición de todos nosotros de este post.\n\nSe trata de agregar un asistente animado con motor de voz en español como el \"clip\" que se ve en office, solo es cuestion de probar y adquidir una librería OCX de terceros, de hecho biene con una de prueba.\n\nExcelente trabajo de Juan Carlos Salinas Ojeda y mi estimado amigo William Morales, ambos un equipo de trabajo nuevo y que augura excelentes resultados y aportaciones a esta maravillosa herramienta de programación.\n\nSaludos a ambos y gracias por todo..\n \nPrueben este enlace y comenten sus resultados, se van a quedar de a 4  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> como yo..\n\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/tmsagent32.htm\">http://incos.sytes.net/fivewin/tmsagent32.htm</a><!-- m -->\n\n\nMe cae que Fivewin y Xharbour son la 8 Mavarilla, sabiendola explotar al máxico se pueden lograr cosas asombrosas como estas..\n\nNos escribimos pronto...  y ya saben:  comenten, comenten.','',0,'GA==','l4b64tk2',1,0,'',987,0,0),(39490,8491,3,851,0,'80.48.68.76',1192290096,1,0,1,1,1,0,'','','where is that xHarbour builder project to automatically rebuild FWH','',0,'GA==','2afmid6d',1,0,'',851,0,0),(39491,8491,3,2,0,'87.218.146.164',1192290231,1,0,1,1,1,1,'','','Patrick Mast is going to give it to us, and we will publish here.\n\nProbably today,','',0,'GA==','e4x560f9',1,0,'',2,0,0),(39492,8491,3,851,0,'80.48.68.76',1192290309,1,0,1,1,1,0,'','','when','',0,'GA==','30b2u9f6',1,0,'',851,0,0),(39493,8491,3,2,0,'87.218.146.164',1192290417,1,0,1,1,1,1,'','','Today, probably \n\nJust wait a little, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','2cszbyax',1,0,'',2,0,0),(39494,8491,3,851,0,'80.48.68.76',1192290675,1,0,1,1,1,0,'','','thanks','',0,'GA==','yfrna83x',1,0,'',851,0,0),(39495,8476,3,303,0,'72.220.100.171',1192291395,1,0,1,1,1,0,'','','Ramesh,\n\n&gt;Is Dibwrite(..) is not compatiable with WIN98?\n\nOK, now back in the begining of this thread you said it worked in previous versions of FWH. Are you sure, or were you actually running it on XP with a previous version of FWH, and on Win98 with a later version of FWH?\n\nTry comparing the previous version of the dib.c file with the latest one you have. Are they the same? If so, then perhaps it never worked under Win98. Can you test and older version of your application EXE running on Win98 to see it is working?\n\nJames','',0,'GA==','cinl0pby',1,0,'',303,0,0),(39497,8495,6,1146,0,'87.223.177.191',1192292080,1,0,1,1,1,0,'','','Antonio:\n\nNo me refiero a que salgan en el programa, sino tenerlos en papel para el soporte técnico,\n\nMuchas gracias.','',0,'GA==','2o3rwf0v',1,0,'',1146,0,0),(39498,8495,6,2,0,'87.218.146.164',1192293196,1,0,1,1,1,1,'','','Aqui tienes el fichero fuente:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/62296215/msgeswin.zip.html\">http://rapidshare.com/files/62296215/msgeswin.zip.html</a><!-- m -->','',0,'GA==','37l4idig',1,0,'',2,0,0),(39499,8480,3,51,0,'80.122.88.242',1192293724,1,0,1,1,1,0,'','','Thank you James.\nI downloaded the file from your homepage. \nRegards,\nOtto','',0,'GA==','2o8e2rr1',1,0,'',51,0,0),(39500,8498,6,1192,0,'84.78.231.58',1192294030,1,0,1,1,1,0,'','FAST-REPORT PARA XBASE++','Han adaptado el FastReport para xBase++, en la demo se incluye la clase que ejecuta el preview y el diseñador de la FRSyst.dll.\n\nEchad un vistazo a: [url:shb3655h]http&#58;//www&#46;hotsoft&#46;ru/ALASKA/frax_eng&#46;htm[/url:shb3655h]\n\nSe podría adaptar facilmente a FWH <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://fast-report.com/screenshots/2_designer.gif\">http://fast-report.com/screenshots/2_designer.gif</a><!-- m -->\n\nSaludos.\n\nAngel','',0,'EA==','shb3655h',1,0,'',1192,0,0),(39501,8499,6,1192,0,'84.78.231.58',1192294675,1,0,1,1,1,0,'','NUEVO FAST-REPORT PARA XBASE','Han adaptado el FastReport para xBase++, en la demo se incluye los fuentes de la clase que ejecuta el preview y el diseñador de la FRSyst.dll. \n\nEn teoría se podría adaptar a FWH y es mucho más económico ( 299 euros) que el List &amp; Label.\n\nEchad un vistazo a: [url:35ajfy83]http&#58;//www&#46;hotsoft&#46;ru/ALASKA/frax_eng&#46;htm[/url:35ajfy83]\n\nSi queréis probar el ejecutable de la demo para xBase++ os lo he compilado aquí: [url:35ajfy83]http&#58;//www&#46;canudas&#46;com/xbase[/url:35ajfy83]\n\nSaludos.\n\nAngel','',0,'EA==','35ajfy83',1,0,'',1192,0,0),(39502,8496,3,51,0,'80.122.88.242',1192295031,1,0,1,1,1,0,'','','Thanks Antonio,\n\nhere a screen shot of my first Office 2007 menu . \n\n\nBmp size 16x16\n\nMENUITEM (\"&amp;Ende\")      FileNAME \".\\bmpMenu\\Delete.bmp\"    ;\n        ACTION msginfo(“Test”)      ;\n        MESSAGE \"Menu beenden\"\n[img:3kxywu3g]http&#58;//www&#46;atzwanger&#46;com/fw/clip2&#46;jpg[/img:3kxywu3g]','',0,'CA==','3kxywu3g',1,0,'',51,0,0),(39505,8480,3,303,0,'72.220.100.171',1192297549,1,0,1,1,1,0,'','','Otto,\n\n&gt;I downloaded the file from your homepage. \n\nKeep in mind that the demo only works with FW/Clipper.\n\nJames','',0,'GIA=','1arys1uv',1,0,'',303,0,0),(39506,8496,3,303,0,'72.220.100.171',1192301301,1,0,1,1,1,0,'','','Antonio,\n\nI tried compiling samples\\testmenu.prg and it is quite messed up. Take a look at it.\n\nJames','',0,'GIA=','1wzzii9a',1,0,'',303,0,0),(39507,8489,12,179,0,'190.10.198.97',1192302896,1,0,1,1,1,1,'','','gracias Antonio, tengo un problema y es que el teclado dejo de funcionar en la parte grafica, tengo instalado centos 5 en mi laptop virtualizado con Microsoft Virtual Pc 2007 que estan regalando\n\nVoy a ver si vuelco a instalar todo  con ubunto, aunque en mi laptop no arranco me voy a bajar la version 7\n\nGracias x todo\n\nSaludos\n\nAtt','',0,'GIA=','2yjynlze',1,0,'',179,0,0),(39508,8502,3,303,0,'72.220.100.171',1192305001,1,0,1,1,1,0,'','Trace.log','Antionio,\n\nFor the last several versions all my apps generate a file called trace.log which contains the following:\n\n*** WARNING! Function: GETNEW in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG\n\nIs this something that can easily be fixed? I would rather not have all those log files generated.\n\nJames','',0,'GIA=','3qezbde5',1,0,'',303,0,0),(39509,8496,3,2,0,'87.218.146.164',1192307747,1,0,1,1,1,1,'','','James,\n\nWell, its not that bad. Those bitmaps are automatically painted by Windows, and I guess most users don\'t use them that way\n\nMany thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','2ks7ndms',1,0,'',2,0,0),(39510,8496,3,303,0,'72.220.100.171',1192308513,1,0,1,1,1,0,'','','Antonio,\n\nMine is showing the pulldown menu wrapped instead of one vertical menu\n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:o0wrbif2][img:o0wrbif2]http&#58;//img3&#46;freeimagehosting&#46;net/uploads/ec33304713&#46;jpg[/img:o0wrbif2][/url:o0wrbif2]\n\n[/img]','',0,'GA==','o0wrbif2',1,0,'',303,0,0),(39511,8496,3,303,0,'72.220.100.171',1192308762,1,0,1,1,1,0,'','','OK, I see it has the BREAK clause and that is what is causing it. I never knew there was a BREAK clause.\n\nOh, nevermind...\n\nJames','',0,'GA==','3p8594pf',1,0,'',303,0,0),(39512,8496,3,2,0,'87.218.146.164',1192309383,1,0,1,1,1,1,'','','Yes, its the BREAK clause <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3257r5e8',1,0,'',2,0,0),(39513,8502,3,2,0,'87.218.146.164',1192309560,1,0,1,1,1,1,'','','James,\n\nIts a xHarbour issue. I heard that they were going to set it as optional\n\nDon\'t know if they already did it. With FWH 7.10 we have not provided Harbour/xHarbour new builds as there were many changes lately and we prefeer to wait some time to provide a real stable version','',0,'GA==','1tx0wsyr',1,0,'',2,0,0),(39514,8502,3,6,0,'79.19.242.46',1192309683,1,0,1,1,1,1,'','Re: Trace.log','Unfortunately not. This log comes from xHarbour not from FWH and is not currently optional. While waiting for the new xHarbour official release, you can comment out the line with the string \"WARNING!\" from hvm.c of the CVS (or I can send you harbour.exe with that change).\n\nEMG','',0,'GA==','1mdhfad6',1,0,'',6,0,0),(39515,8502,3,6,0,'79.19.242.46',1192309748,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:qva2f3m7]we prefeer to wait some time to provide a real stable version[/quote:qva2f3m7]\n\nCurrent xHarbour from CVS is super-stable for me.\n\nEMG','',0,'gA==','qva2f3m7',1,0,'',6,0,0),(39516,8502,3,2,0,'87.218.146.164',1192312685,1,0,1,1,1,1,'','','Enrico,\n\nI meant Harbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1fn4btjc',1,0,'',2,0,0),(39517,8496,3,868,0,'219.64.121.60',1192315215,1,0,1,1,1,1,'','','The new menu 2007 works great. 16x16 bitmaps come out very attractively.\n\n[img:21ljt1nt]http&#58;//img229&#46;imageshack&#46;us/img229/4963/picture2zo2&#46;png[/img:21ljt1nt]\nBy [url=http&#58;//profile&#46;imageshack&#46;us/user/nagesh_g:21ljt1nt]nagesh_g[/url:21ljt1nt] at 2007-10-13\n\nIt is a choice of Mr. Antonio if he likes to keep the separator lines to fit width of menu breaking the vertical bar or provide a continuous vertical bar\n\nmany thanks to Mr. Antonio to have provided this new menu','',0,'GA==','21ljt1nt',1,0,'',868,0,0),(39518,8496,3,868,0,'219.64.121.60',1192317185,1,0,1,1,1,1,'','','There is  a minor problem with popup menus. First level is not painted properly but second level onwards are painted properly\n\n[img:2jwgtnr3]http&#58;//img84&#46;imageshack&#46;us/img84/9446/picture3cc0&#46;png[/img:2jwgtnr3]\nBy [url=http&#58;//profile&#46;imageshack&#46;us/user/nagesh_g:2jwgtnr3]nagesh_g[/url:2jwgtnr3]\n\nSubject to this, I applied the new menus to my regular applications and they are looking great.\n\nRegards','',0,'GA==','2jwgtnr3',1,0,'',868,0,0),(39519,8502,3,303,0,'72.220.100.171',1192323096,1,0,1,1,1,0,'','','Antonio and Enrico,\n\nThanks for the explanation. I think for now I will just use a workaround--I will just delete the file when exiting the program.\n\nJames','',0,'GA==','2ggwhciw',1,0,'',303,0,0),(39520,8476,3,190,0,'124.7.113.36',1192328644,1,0,1,1,1,0,'','','Mr.Antonio and Mr.James\n\nThanks for your attension.\n\nMr.James\n\nI will check it with my previous versions of FWH and let you know.\n\n- Ramesh Babu P','',0,'GA==','1cfv09h2',1,0,'',190,0,0),(39521,8496,3,2,0,'87.218.146.164',1192339456,1,0,1,1,1,1,'','','NageswaraRao,\n\nPopups are already fixed. We email you the modified LIBs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','16rwqwuj',1,0,'',2,0,0),(39522,8496,3,2,0,'87.218.146.164',1192343440,1,0,1,1,1,1,'','','Separators are ready <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:1scseoxn][img:1scseoxn]http&#58;//img148&#46;imageshack&#46;us/img148/4533/sepqb5&#46;png[/img:1scseoxn][/url:1scseoxn]','',0,'GA==','1scseoxn',1,0,'',2,0,0),(39523,8496,3,2,0,'87.218.146.164',1192344066,1,0,1,1,1,1,'','','Office 2007 menu sample (just for the reference):\n\n[url=http&#58;//imageshack&#46;us:1i1roomv][img:1i1roomv]http&#58;//img148&#46;imageshack&#46;us/img148/9190/offmenuqg9&#46;png[/img:1i1roomv][/url:1i1roomv]','',0,'GA==','1i1roomv',1,0,'',2,0,0),(39524,8497,6,2,0,'87.218.146.164',1192344218,1,0,1,1,1,1,'','','Los separadores estan listos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:2m2rss66][img:2m2rss66]http&#58;//img148&#46;imageshack&#46;us/img148/4533/sepqb5&#46;png[/img:2m2rss66][/url:2m2rss66]','',0,'GA==','2m2rss66',1,0,'',2,0,0),(39525,8497,6,2,0,'87.218.146.164',1192344348,1,0,1,1,1,1,'','','Ejemplo del menu de Office 2007 (como referencia):\n\n[url=http&#58;//imageshack&#46;us:4hen14zq][img:4hen14zq]http&#58;//img148&#46;imageshack&#46;us/img148/9190/offmenuqg9&#46;png[/img:4hen14zq][/url:4hen14zq]','',0,'GA==','4hen14zq',1,0,'',2,0,0),(39526,8394,7,2,0,'87.218.146.164',1192345295,1,0,1,1,1,1,'','','Arturo,\n\nHas localizado algo al respecto ?','',0,'GA==','21mfr4nf',1,0,'',2,0,0),(39527,8489,12,2,0,'87.218.146.164',1192345345,1,0,1,1,1,1,'','','Ubuntu es excelente. En la opinión de muchos, es el Linux con más futuro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','2o9mmd9o',1,0,'',2,0,0),(39528,8372,2,2,0,'87.218.146.164',1192345542,1,0,1,1,1,1,'','','1 es el punto de comienzo. Es como si \"rebobinases\" el video <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi te funciona, pues ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','c0hm6t6u',1,0,'',2,0,0),(39529,8496,3,51,0,'80.122.88.242',1192345884,1,0,1,1,1,0,'','','And here another screenshot:\n\n[img:1wkvyh9t]http&#58;//www&#46;atzwanger&#46;com/fw/clip3&#46;jpg[/img:1wkvyh9t]','',0,'CA==','1wkvyh9t',1,0,'',51,0,0),(39530,8489,12,179,0,'190.10.198.97',1192346106,1,0,1,1,1,1,'','','Antonio, ahora ya estoy con Ubuntu 7.04 lo instale con vmware player, ya instale la secuencia de programas:\n\nsudo apt-get install libgtk2.0-dev\nsudo apt-get install gcc\nsudo apt-get install libncurses5-dev\nsudo apt-get install libgpmg1-dev\nsudo apt-get install libgnomeprintui2.2-dev\n\n\n\nahora obtengo este error\n\nHarbour devel build 1.1-1 Intl.\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\'...\nLines 1015, Functions/Procedures 1\nGenerating C source output to \'tutor01.c\'... Done.\ncompiling C module...\nlinking...\nPackage libglade-2.0 was not found in the pkg-config search path.\nPerhaps you should add the directory containing `libglade-2.0.pc\'\nto the PKG_CONFIG_PATH environment variable\nNo package \'libglade-2.0\' found\n/home/user/wilson/fivelinux/lib/libfivec.a(lnx.o): In function `HB_FUN_SETRESOURCES\':\nlnx.c:(.text+0x27b): undefined reference to `glade_xml_new\'\n/home/user/wilson/fivelinux/lib/libfivec.a(lnx.o): In function `HB_FUN_LOADDIALOG\':\nlnx.c:(.text+0x2a7): undefined reference to `glade_xml_get_widget\'\n/home/user/wilson/fivelinux/lib/libfivec.a(lnx.o): In function `HB_FUN_LOADBUTTON\':\nlnx.c:(.text+0x3a8): undefined reference to `glade_xml_get_widget\'\ncollect2: ld returned 1 exit status\ndone!\n./build: line 23: ./tutor01: No such file or directory\n\nGracias x Todo\nSaludos\npd: por cierto Ubuntu esta muuuuuy bonito','',0,'CA==','241s7nat',1,0,'',179,0,0),(39531,8496,3,2,0,'87.218.146.164',1192347704,1,0,1,1,1,1,'','','Otto,\n\nvery nice! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','r9e39a92',1,0,'',2,0,0),(39532,8489,12,2,0,'87.218.146.164',1192347808,1,0,1,1,1,1,'','','Wilson,\n\nsudo apt-get install glade-2','',0,'CA==','338jhkbo',1,0,'',2,0,0),(39533,8489,12,179,0,'190.10.198.97',1192348485,1,0,1,1,1,1,'','','Antonio, gracias\nEXITO TOTAL!!!!\nya compile , estoy muy emocionado, gracias nuevamente\nexiste un programa que viene con ubuntu llamado\nSynaptic Package Manager\ncon ese he resuelto todos esos problemas !!!\nla verdad que esto se ve oK\n\npor cierto de mis experiencias de esto\nMicrosoft Virtual Pc es un fraude no funciona, me hizo perder una semana de trabajo, tiene erroes de memoria, no deja funcionar bien al linux, etc\nVmware Player funciona muuuuy bien, me baje una maquina virtual ya lista, claro que esta en ingles pero me sirve\naclaro que soy novato\n\naca una imagen \n\n[url=http&#58;//img355&#46;imageshack&#46;us/my&#46;php?image=screenshotff2&#46;png:1m4gs3vy][img:1m4gs3vy]http&#58;//img355&#46;imageshack&#46;us/img355/310/screenshotff2&#46;th&#46;png[/img:1m4gs3vy][/url:1m4gs3vy]\n\ngracias nuevamente','',0,'GA==','1m4gs3vy',1,0,'',179,0,0),(39534,8489,12,2,0,'87.218.146.164',1192349587,1,0,1,1,1,1,'','','Wilson,\n\nBien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nYo tambien prefiero vmware, aunque tengo instalados multiples sistemas operativos en el ordenador, ya que asi usas Linux a su velocidad real.\n\nEn el ordenador tengo tres discos duros internos: uno para Vista/XP, otro para Linux y el tercero para Mac. Asi no intefieren unos con otros. El arranque de Linux (grub) controla todos los sistemas operativos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3vnj54va',1,0,'',2,0,0),(39535,8394,7,2,0,'87.218.146.164',1192353759,1,0,1,1,1,1,'','','Gracias a Felix por la información:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcdn.com/sections/mail.html\">http://www.pocketpcdn.com/sections/mail.html</a><!-- m -->','',0,'GA==','zegembsj',1,0,'',2,0,0),(39536,8496,3,868,0,'219.64.121.60',1192355953,1,0,1,1,1,1,'','','Mr Antonio\n\nThank you very much. Everything is working wonderful. Also glad you gave the sample illustration of typical Office2007 menu screen shot for the benefit of those like me. Now our menus exactly look like that.\n\nNow what in my view is still remaining is that the List of windows under MDI Windows menu do not have the left vertical bar. I think MRU also look like the same. Here is the example:\n\n[url=http&#58;//img84&#46;imageshack&#46;us/my&#46;php?image=menusdd6&#46;png:33i22q3x][img:33i22q3x]http&#58;//img84&#46;imageshack&#46;us/img84/3263/menusdd6&#46;th&#46;png[/img:33i22q3x][/url:33i22q3x]\n\n\nIs it the intended behaviour? Or will you make this change also so that the numbers appear in the left vertical bar?','',0,'GA==','33i22q3x',1,0,'',868,0,0),(39537,8496,3,868,0,'219.64.121.60',1192357338,1,0,1,1,1,1,'','','Mr Antonio\n\nA few more points. The checkbox in our menus still do not appear in Orange boxes like in the sample of Office2007 menu.\n\nAre you planning to provide for graying of bitmaps also for the disabled menu items?','',0,'GA==','1is1hbn2',1,0,'',868,0,0),(39538,8496,3,2,0,'87.218.146.164',1192358103,1,0,1,1,1,1,'','','&gt; Or will you make this change also so that the numbers appear in the left vertical bar?\n\nWe are working to find a way to implement it\n\n&gt; A few more points. The checkbox in our menus still do not appear in Orange boxes like in the sample of Office2007 menu. \n\nYes, we are aware of it. Its planned.\n\n&gt; Are you planning to provide for graying of bitmaps also for the disabled menu items?\n\nWe want to see first how Office 2007 does it','',0,'GA==','4993nyr0',1,0,'',2,0,0),(39539,8503,3,1146,0,'217.127.105.137',1192359097,1,0,1,1,1,0,'','FAST REPORT for Xbase','FastReport has been adapted to xBase++, the demo source code is provided and the designer.\n\nFast Report can be easily adapted to Fivewin and it is easier and cheaper than List &amp; Label (299 €).\n\nMore info at : <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m --> \n\nThanks to Angel Canudas, you can see a working demo at: <!-- m --><a class=\"postlink\" href=\"http://www.canudas.com/xbase\">http://www.canudas.com/xbase</a><!-- m --> \n\nRegards,','',0,'GA==','1ggf5xyv',1,0,'',1146,0,0),(39540,8499,6,1146,0,'217.127.105.137',1192359166,1,0,1,1,1,0,'','','Muchas gracias, interesante aportación!!!','',0,'GA==','22qg52f5',1,0,'',1146,0,0),(39541,8496,3,2,0,'87.218.146.164',1192361701,1,0,1,1,1,1,'','','Checked items are ready <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:11bm87dw][img:11bm87dw]http&#58;//img148&#46;imageshack&#46;us/img148/5457/checkvt1&#46;png[/img:11bm87dw][/url:11bm87dw]','',0,'GA==','11bm87dw',1,0,'',2,0,0),(39542,8497,6,2,0,'87.218.146.164',1192361813,1,0,1,1,1,1,'','','\"Checked\" items estan listos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:1kz3jdrf][img:1kz3jdrf]http&#58;//img148&#46;imageshack&#46;us/img148/5457/checkvt1&#46;png[/img:1kz3jdrf][/url:1kz3jdrf]','',0,'GA==','1kz3jdrf',1,0,'',2,0,0),(39543,8496,3,868,0,'219.64.121.60',1192365335,1,0,1,1,1,1,'','','Thats very nice.\nCan you please provide me the updated lib pls?','',0,'GA==','3r3i3r0g',1,0,'',868,0,0),(39544,8485,6,960,0,'84.125.196.99',1192367937,1,0,1,1,1,0,'','','Por fin di con el error!!\n\nNo eran los INDICES ni problema de la Clase WBrowse, era simplemente que la DBF estaba corrupta (aunque DBU no lo detectaba ni mostraba anomalias).\nSimplemente hice un ZAP, regeneré los indices y listo el pollo!!\n\nMil gracias, por todo.\nLORENZO','',0,'GA==','d6b0c6du',1,0,'',960,0,0),(39545,8504,6,960,0,'84.125.196.99',1192368067,1,0,1,1,1,0,'','Para el Master Antonio, sobre TPRINT','Estimado master Antonio:\n\nCuando visualizo un PREVIEW en la clase TPRINT necesito que por defecto el zoom esté activo, sin necesidad, por tanto, que el usuario tenga que hacer doble-click sobre la pagina para ampliar.\n\n¿Es posible? ¿Como sería? Estuve resivando la carpeta SAMPLE pero no vi nada.\n\nMil gracias. LORENZO','',0,'GA==','2su6e2hc',1,0,'',960,0,0),(39546,8504,6,2,0,'87.218.146.164',1192371814,1,0,1,1,1,1,'','','En FWH 7.10 el preview es un objeto, y solo hay que hacer:\n\noPreview:Zoom( .T. )','',0,'GA==','c5kmrdvo',1,0,'',2,0,0),(39547,8496,3,6,0,'79.19.244.89',1192373408,1,0,1,1,1,1,'','','Me too! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'GA==','3dkrnvlo',1,0,'',6,0,0),(39549,8496,3,6,0,'79.19.244.89',1192374361,1,0,1,1,1,1,'','','The following sample GPFs when you right click on the listbox:\n\n[code:lucbqgxy]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oLbx, nItem\n\n    DEFINE DIALOG oDlg\n\n    @ 0, 0 LISTBOX oLbx VAR nItem\n\n    oLbx&#58;bRClicked = &#123; || MyPopup&#40; oLbx &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MYPOPUP&#40; oLbx &#41;\n\n    LOCAL oMenu\n\n    MENU oMenu POPUP\n        MENUITEM &quot;Test&quot;\n    ENDMENU\n\n    ACTIVATE MENU oMenu OF oLbx\n\n    RETURN NIL[/code:lucbqgxy]\n\nEMG','',0,'AIA=','lucbqgxy',1,0,'',6,0,0),(39550,8496,3,6,0,'79.19.244.89',1192376391,1,0,1,1,1,1,'','','It is not possible to set preview buttonbar and statusbar to 2007 look.\n\nEMG','',0,'AIA=','2jxxxsmo',1,0,'',6,0,0),(39551,8496,3,6,0,'79.19.244.89',1192378780,1,0,1,1,1,1,'','','Sometimes I get the disabled menu items longer than the enabled ones (ie. they break the blue bar of the new menu style) but I\'m not able to build a sample of the problem yet.\n\nEMG','',0,'AIA=','21r8tcir',1,0,'',6,0,0),(39552,8496,3,2,0,'87.218.146.164',1192382308,1,0,1,1,1,1,'','','Enrico,\n\n&gt; The following sample GPFs when you right click on the listbox: \n\nThats a listbox bug. This is the fix:\n[code:3iihjmuh]\nMETHOD DrawItem&#40; nIdCtl, nPStruct &#41; CLASS TListBox\n\nreturn If&#40; &#58;&#58;lOwnerDraw,;\n           LbxDrawItem&#40; nPStruct, &#58;&#58;aBitmaps, &#58;&#58;aItems, &#58;&#58;nBmpWidth, &#58;&#58;bDrawItem &#41;,;\n           Super&#58;DrawItem&#40; nIdCtl, nPStruct &#41; &#41;\n[/code:3iihjmuh]\nMany thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3iihjmuh',1,0,'',2,0,0),(39553,8496,3,2,0,'87.218.146.164',1192382602,1,0,1,1,1,1,'','','Enrico,\n\n&gt; It is not possible to set preview buttonbar and statusbar to 2007 look. \n\nFrom rpreview.prg we could check if the main bar is ::l2007 and then build a buttonbar 2007 instead of a toolbar. \n\nIs that fine ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','wfz4ztps',1,0,'',2,0,0),(39554,8506,3,51,0,'80.122.88.242',1192385327,1,0,1,1,1,0,'','BTNBMP - oBtn:l2007=.t.','Hello Antonio,\nis there oBtn:l2007=.t.\navailable for BtnBmp?\n\n@ x,y BTNBMP oBtn  FILENAME \".\\bitmaps2\\test.bmp\"  SIZE 60, 60   PROMPT \"TimeLox\" ACTION msginfo(\"test\")  OF oDlg\n   oBtn:l2007 = .T.\n\nRegards,\nOtto','',0,'AIA=','p5pi73fo',1,0,'',51,0,0),(39555,8506,3,2,0,'87.218.146.164',1192385773,1,0,1,1,1,1,'','','Otto,\n\nNo, Class TBtnBmp does not provide a DATA l2007. A TBtnBmp object checks if its container is a buttonbar and if it has its l2007 as .T.\n\nYou could easily modify class TBtnBmp and add that DATA and change its painting behavior if you need it','',0,'AIA=','s9sjjbr5',1,0,'',2,0,0),(39556,8506,3,51,0,'80.122.88.242',1192386290,1,0,1,1,1,0,'','','Hello Antonio,\n\nTo get the painting I placed 2 buttonBars (TOP and BOTTOM) on 1 Dialog.\nIt seems that these to BtnBars are working correctly.\n\nIs it save  to use 2 or more BtnBars on one Dialog?\n\nRegards,\nOtto\n\n\n[img:al0qlzwv]http&#58;//www&#46;atzwanger&#46;com/fw/2btnbars&#46;jpg[/img:al0qlzwv]','',0,'CA==','al0qlzwv',1,0,'',51,0,0),(39557,8506,3,2,0,'87.218.146.164',1192386722,1,0,1,1,1,1,'','','Otto,\n\n&gt; Is it save to use 2 or more BtnBars on one Dialog? \n\nYes, it should be ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','11cl5mj7',1,0,'',2,0,0),(39558,8496,3,6,0,'79.19.244.89',1192388686,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:380y18bm]Thats a listbox bug. This is the fix:\n[code:380y18bm]\nMETHOD DrawItem&#40; nIdCtl, nPStruct &#41; CLASS TListBox\n\nreturn If&#40; &#58;&#58;lOwnerDraw,;\n           LbxDrawItem&#40; nPStruct, &#58;&#58;aBitmaps, &#58;&#58;aItems, &#58;&#58;nBmpWidth, &#58;&#58;bDrawItem &#41;,;\n           Super&#58;DrawItem&#40; nIdCtl, nPStruct &#41; &#41;\n[/code:380y18bm]\nMany thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:380y18bm]\n\nThank you!\n\nEMG','',0,'gIA=','380y18bm',1,0,'',6,0,0),(39559,8496,3,6,0,'79.19.244.89',1192388712,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:rjef800b]Enrico,\n\n&gt; It is not possible to set preview buttonbar and statusbar to 2007 look. \n\nFrom rpreview.prg we could check if the main bar is ::l2007 and then build a buttonbar 2007 instead of a toolbar. \n\nIs that fine ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:rjef800b]\n\nPerfect! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','rjef800b',1,0,'',6,0,0),(39560,8496,3,2,0,'87.218.146.164',1192390035,1,0,1,1,1,1,'','','Enrico,\n\ngetting closer <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:3s6kd7tn][img:3s6kd7tn]http&#58;//img118&#46;imageshack&#46;us/img118/1301/previewyg9&#46;png[/img:3s6kd7tn][/url:3s6kd7tn]','',0,'GA==','3s6kd7tn',1,0,'',2,0,0),(39561,8497,6,2,0,'87.218.146.164',1192390157,1,0,1,1,1,1,'','','Preview casi terminado de adaptar al nuevo look Office 2007 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:155vj7zr][img:155vj7zr]http&#58;//img118&#46;imageshack&#46;us/img118/1301/previewyg9&#46;png[/img:155vj7zr][/url:155vj7zr]','',0,'GA==','155vj7zr',1,0,'',2,0,0),(39562,8496,3,303,0,'72.220.100.171',1192390591,1,0,1,1,1,0,'','','Antonio,\n\nDid you change the checked items to look like your last screenshot, or do they only look like that under Vista?\n\nJames','',0,'GA==','24b7wqzg',1,0,'',303,0,0),(39563,8496,3,2,0,'87.218.146.164',1192390683,1,0,1,1,1,1,'','','James,\n\nI changed them. I email you the new LIBs','',0,'GA==','1isaaxtl',1,0,'',2,0,0),(39564,8496,3,6,0,'79.19.244.89',1192391573,1,0,1,1,1,1,'','','Me too, please. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'GA==','2z9ungct',1,0,'',6,0,0),(39565,8496,3,868,0,'219.64.121.60',1192391671,1,0,1,1,1,1,'','','Me too please','',0,'GA==','13i5micj',1,0,'',868,0,0),(39566,8496,3,303,0,'72.220.100.171',1192391977,1,0,1,1,1,0,'','','Antonio,\n\nThe checked items look great!\n\nI note that the disabled items are still not displaying correctly.\n\nJames','',0,'GA==','3v7uxomv',1,0,'',303,0,0),(39567,8496,3,2,0,'87.218.146.164',1192394312,1,0,1,1,1,1,'','','James,\n\n&gt; I note that the disabled items are still not displaying correctly. \n\nPlease post a screenshot','',0,'GA==','2tdowiwa',1,0,'',2,0,0),(39568,8496,3,303,0,'72.220.100.171',1192394381,1,0,1,1,1,0,'','','Antonio,\n\nThere are some slight repainting problems when using a 2007 menu and buttonbar. When you move the cursor over the menu item it repaints the white line between the buttonbar and menu into blue. When I enlarged the screenshot I found another artifact--not too important but you can see it.\n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:2rwcdiy9][img:2rwcdiy9]http&#58;//img3&#46;freeimagehosting&#46;net/uploads/00644a5be3&#46;jpg[/img:2rwcdiy9][/url:2rwcdiy9]','',0,'GA==','2rwcdiy9',1,0,'',303,0,0),(39569,8496,3,2,0,'87.218.146.164',1192394626,1,0,1,1,1,1,'','','Bars separators working properly:\n\n[url=http&#58;//imageshack&#46;us:23t8e5p0][img:23t8e5p0]http&#58;//img68&#46;imageshack&#46;us/img68/2507/barsix5&#46;png[/img:23t8e5p0][/url:23t8e5p0]','',0,'GA==','23t8e5p0',1,0,'',2,0,0),(39570,8496,3,303,0,'72.220.100.171',1192394646,1,0,1,1,1,0,'','','Antonio,\n\nBelow is the disabled item screenshot. Here is the code:\n\nMENUITEM \"Disabled item\" disabled \n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:3lg7m9th][img:3lg7m9th]http&#58;//img3&#46;freeimagehosting&#46;net/uploads/d585ac1df3&#46;jpg[/img:3lg7m9th][/url:3lg7m9th]','',0,'GA==','3lg7m9th',1,0,'',303,0,0),(39571,8496,3,2,0,'87.218.146.164',1192394892,1,0,1,1,1,1,'','','James,\n\n&gt; slight repainting problems\n\nThanks. Yes, I have noticed them too. Its easy to fix them <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','2t2c3j18',1,0,'',2,0,0),(39572,8496,3,868,0,'210.212.216.67',1192395034,1,0,1,1,1,1,'','','Peculiarly, if a menu item is diabled with a when clause ( eg menuitem \'xyz\' when .f.) it is painted correctly as disabled.  but if we say meniteitem \'xyz\'  disabled only this incorrect painting occurs','',0,'GA==','2yqne1as',1,0,'',868,0,0),(39573,8496,3,6,0,'79.19.244.89',1192398142,1,0,1,1,1,1,'','','Can the new menu style be optional?\n\nEMG','',0,'GA==','2flylo3t',1,0,'',6,0,0),(39574,8496,3,6,0,'79.19.244.89',1192398316,1,0,1,1,1,1,'','','Or at least optional for popup menus?\n\nEMG','',0,'GA==','1227w3pr',1,0,'',6,0,0),(39575,8507,3,868,0,'219.64.121.60',1192398325,1,0,1,1,1,1,'','ButtonBar 3D','The new button bars with 2007 look great. For a while going back to the old 3d style button bars I noticed a small problem.\n\nIf we normally define a button bar as \"DEFINE BUTTONBAR oBar OF oWnd SIZE 60,60 3D\", it is working. But if we try the following code :\n[code:204fwugz]\nDEFINE BUTTONBAR oBar OF oWnd SIZE 60,60\noBar&#58;l3D &#58;= &#46;T&#46;\n[/code:204fwugz]\nI am getting this kind of appearance.\n\n[url=http&#58;//imageshack&#46;us:204fwugz][img:204fwugz]http&#58;//img87&#46;imageshack&#46;us/img87/5752/bar3diw7&#46;png[/img:204fwugz][/url:204fwugz]\n\nI noticed this when I was writing code for conditional use of 2007 style depending on the ColorsQty(). Though right now, I am getting what I want by coding in a different way, I feel that the button bars should paint correctly even for the above code','',0,'GIA=','204fwugz',1,0,'',868,0,0),(39576,8496,3,303,0,'72.220.100.171',1192398497,1,0,1,1,1,0,'','','&gt;Can the new menu style be optional? \n\nI second that opinion.\n\nAlso, it might be nice if we could specify the colors, for either the 2007 style or the old style menus.\n\nJames','',0,'GIA=','2y250dq4',1,0,'',303,0,0),(39577,8496,3,868,0,'219.64.121.60',1192401833,1,0,1,1,1,1,'','','Atleast for me, this option is not only desirable but necessary also. In some cases the same program has to run on 256 colors also.\n\nI have made the 2007 style for button bars and message bars conditional on ColorsQty(). Wish such an option is available for menus also.\n\nWe may try the tests for compatibility with 256 colors.\n\nIn 256 colors situation, the items in the top bar are getting erased when we move the mouse over the items. When we move the mouse over the erased items they are again coming back. Anyway we can expect the color of the menus not to look good at all on 256 colors.','',0,'GIA=','2o083ttx',1,0,'',868,0,0),(39578,8496,3,2,0,'87.218.146.164',1192405429,1,0,1,1,1,1,'','','&gt; Can the new menu style be optional? \n\nYes, on the final release it will be optional.\n\nActually it is automatic for easy of testing','',0,'GIA=','3kb7qhxq',1,0,'',2,0,0),(39579,8507,3,2,0,'87.218.146.164',1192405602,1,0,1,1,1,1,'','','You can not set that property later on. It has to be specified when you create the buttonbar:\n\noBar:l3D := .T.\n\nIf you want to use it or not, use two different sentences:\n\nif lWant3D\nDEFINE BUTTONBAR ... 3D\nelse\nDEFINE BUTTONBAR ...\nendif','',0,'GIA=','1tdwcijz',1,0,'',2,0,0),(39580,8496,3,2,0,'87.218.146.164',1192405970,1,0,1,1,1,1,'','','James,\n\n&gt; I note that the disabled items are still not displaying correctly. \n\nFixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[code:3muefkl2]\n         &#46;&#46;&#46;\n         MENU\n            MENUITEM &quot;&amp;One&#46;&#46;&#46;&quot; DISABLED\n            MENUITEM &quot;&amp;Two&#46;&#46;&#46;&quot; CHECKED\n            MENUITEM &quot;&amp;Three&#46;&#46;&#46;&quot; WHEN &#46;F&#46;\n         ENDMENU\n         &#46;&#46;&#46;\n[/code:3muefkl2]\n[url=http&#58;//imageshack&#46;us:3muefkl2][img:3muefkl2]http&#58;//img148&#46;imageshack&#46;us/img148/3065/disabledmw7&#46;png[/img:3muefkl2][/url:3muefkl2]','',0,'GIA=','3muefkl2',1,0,'',2,0,0),(39581,8496,3,868,0,'210.212.216.67',1192407425,1,0,1,1,1,1,'','','&gt; Yes, on the final release it will be optional. \n\nWe understand and we shall wait.\n\nWill the issue of top bar prompts getting erased in 256 color mode will be addressed?   All items to the right of the item on which the mouse is placed disappear.','',0,'GIA=','1rj033bw',1,0,'',868,0,0),(39582,8508,6,207,0,'189.158.85.170',1192409666,1,0,1,1,1,0,'','busqueda incremental y scope','Que tal a Todos:\n\nNecesito lo siguente: En el campo \"cuenta\" del catalogo tengo 999-99-99-99-999-9999, quiero que cada vez que complete un nivel haga un scope en la tabla CatCtas para mostrar en un listbox  solo las cuentas que van quedando disponibles .\n\nSe me ocurre que puede ser con un treeview solo que nunca los he utilizado.\n\nOtra forma que me ayudaría es ¿como lanzar un evento por cada vez que se complete un nivel y refrescar cada oSay de cada nivel?\n\nde antemano gracias por la ayuda que pueda surgir.\n\nAtte MSalas','',0,'GIA=','33auuy7p',1,0,'',207,0,0),(39583,8509,12,179,0,'190.10.198.97',1192417799,1,0,1,1,1,1,'','Resolucion de Dialogos','Antonio, buenas noches en los dialogos (los estoy armando a mano), aparentemente no se ponen en pixels ciertos controles, por ejemplo el control Button de cancelar le tuve que poner a una distancia horizontal de 40 ?? del button de ejecutar  imagino que no son pixels ??\n\nadjunto la imagen\n\n[url=http&#58;//img80&#46;imageshack&#46;us/my&#46;php?image=screenshotutilitariosdedg5&#46;png:27juh6ei][img:27juh6ei]http&#58;//img80&#46;imageshack&#46;us/img80/6089/screenshotutilitariosdedg5&#46;th&#46;png[/img:27juh6ei][/url:27juh6ei]\n\naca el codigo fuente \n\n\n\n[code:27juh6ei]\n#include &quot;FiveLinux&#46;ch&quot;\n\n#define CRLF chr&#40; 10 &#41;\n\n#define CRLF_WINDOWS chr&#40; 13 &#41; + chr&#40; 10 &#41;\n\n\n#define COPYRIGHT    &quot;Wilson \'W\' Gamboa A&quot;\n\nFunction Main\n\n    Local oWnd \n    Local nRow0    &#58;= 2\n    Local nCol0    &#58;= 3\n    Local oRadio\n    Local oCambio  &#58;= tWg_UtilCambioLinux&#40;&#41;&#58;New&#40;&#41;\n    Local nRadio   &#58;= 1\n    Local oMeter\n    Local nVar     &#58;= 0\n    Local nTotal   &#58;= 100\n    Local lWhen    &#58;= &#46;T&#46;\n    Local acItems  &#58;= &#123;\'Nombres de Archivos a Minúsculas\',\'Traducir caracter de fin de lineas en Codigo Fuente\'&#125;\n\n    DEFINE DIALOG oDlg SIZE 640, 280 Title \'Utilitarios de Conversión Windows - Linux \' + COPYRIGHT \n\n    @ 1, 45 IMAGE FILENAME &quot;wilson&#46;gif&quot; OF oDlg SIZE 140, 140\n\n    @ nRow0 -2, 1 GROUP oGrp LABEL &quot;Acciones a Realizar&quot; OF oDlg SIZE 600, 160\n\n    @ nRow0   , nCol0 RADIO oRadio VAR nRadio ;\n                           OF oDlg ;\n		   	   ITEMS  acItems ;\n			   SIZE 400, 20 ;\n			   WHEN lWhen ;\n			   UPDATE\n\n    @ nRow0 + 10, nCol0 METER oMeter VAR nVar ;\n                       TOTAL nTotal ;\n                       OF oDlg ;\n		       SIZE 300, 30 UPDATE\n		\n\n    @ nRow0 +20, nCol0       BUTTON &quot;_Ejecutar&quot; OF oDlg ACTION &#40; oCambio&#58;nRadio &#58;= nRadio ,;\n                                                                 oCambio&#58;oMeter &#58;= oMeter ,;\n                                                                 oCambio&#58;ejecute&#40;&#41; &#41; SIZE 100, 30\n\n    @ nRow0 +20, nCol0 + 40 BUTTON &quot;_Cancelar&quot; OF oDlg ACTION oDlg&#58;End&#40;&#41; SIZE 100, 30\n\n\n    ACTIVATE DIALOG oDlg CENTER\n\nReturn Nil\n\nClass tWg_UtilCambioLinux\n\n    \n    Data oMeter\n    Data nRadio\n    \n    Method New&#40;&#41; constructor\n    Method Minusculas&#40;&#41;\n    Method Ejecute&#40; nRadio &#41;\n    Method CambiaFinDeLinea&#40;&#41;\n\nEndClass\n\nMethod New&#40;&#41; Class tWg_UtilCambioLinux\n\nReturn Self\n\nMethod Minusculas&#40;&#41; Class tWg_UtilCambioLinux\n\n    Local aDirec  &#58;= directory&#40; \'*&#46;*\' &#41;\n    Local i\n    Local aCambio &#58;= &#123;&#125;\n    Local cLoFile\n    Local nOp\n    Local lMeter    &#58;= &#40; Valtype&#40; &#58;&#58;oMeter &#41; == \'O\' &#41;\n  \n    if !MsgYesno&#40;\'Seguro de cambiar a minúsculas los nombres de todos \' + CRLF +;\n                 \'los archivos del presente directorio\' &#41;\n        Return Nil\n    end\n   \n    for i&#58;= 1 to len&#40; aDirec &#41;\n        cLoFile &#58;= aDirec&#91; i, 1 &#93; \n        if cLofile &lt;&gt; Lower &#40; cLofile &#41;\n            aadd&#40; aCambio, &#123; cLofile, Lower&#40; cLoFile &#41; &#125; &#41;\n        end\n        \n    next\n\n    if lMeter\n         &#58;&#58;oMeter&#58;nTotal &#58;= Len&#40; aCambio &#41;\n         &#58;&#58;oMeter&#58;Set&#40; 0 &#41;\n    end\n\n    for i&#58;= 1 to len&#40; aCambio &#41;\n\n        if lMeter\n            &#58;&#58;oMeter&#58;Set&#40; i &#41;\n        end\n\n        Frename&#40; aCambio&#91; i, 1&#93;, aCambio&#91; i, 2 &#93; &#41;\n\n    end\n\nReturn Nil\n\nMethod Ejecute&#40; nRadio &#41; Class tWg_UtilCambioLinux\n\n    if &#58;&#58;nRadio == 1\n        &#58;&#58;Minusculas&#40;&#41;\n    elseif &#58;&#58;nRadio == 2\n        &#58;&#58;CambiaFinDeLinea&#40;&#41;\n    end\n\nReturn Nil\n\nMethod CambiaFinDeLinea&#40; &#41; Class tWg_UtilCambioLinux\n\n    Local cMemo\n    Local aDirec\n    Local i\n    Local lMeter    &#58;= &#40; Valtype&#40; &#58;&#58;oMeter &#41; == \'O\' &#41;\n\n    if !MsgYesno&#40;\'Seguro de cambiar el fin de linea de windows a Linux\' &#41;\n        Return Nil\n    end\n\n    \n\n    aDirec &#58;= directory&#40; \'*&#46;prg\'&#41;\n    \n    if lMeter\n        &#58;&#58;oMeter&#58;nTotal &#58;= Len&#40; aDirec &#41;\n        &#58;&#58;oMeter&#58;Set&#40; 0 &#41;\n    end\n    \n    for i&#58;= 1 to len&#40; aDirec &#41;\n        \n        if lMeter\n            &#58;&#58;oMeter&#58;Set&#40; i &#41;\n        end\n        \n        cMemo &#58;= Memoread&#40; aDirec&#91; i, 1 &#93; &#41;\n        cMemo &#58;= StrTran&#40; cMemo, CRLF_WINDOWS, CRLF&#41;\n        MemoWrit&#40; cMemo &#41;\n        \n    Next\n\nReturn Nil\n\n\n[/code:27juh6ei]\n\n\nperdon por la ignorancia, aun no se implementa la clausula Pixels ??\nfavor observa como tuve que cuadrar a mano la foto ? porque aparentemente no son pixels esos valores horizontales\n\nde todas formas esta fantastico esto\ngracias x todo','',0,'GIA=','27juh6ei',1,0,'',179,0,0),(39584,8509,12,2,0,'87.218.146.164',1192427627,1,0,1,1,1,1,'','','Wilson,\n\nSon coordenadas \"simuladas\" tipo MsDos. Si revisas los fuentes de la clase TButton verás esto:\n\n   SetCoors( ::hWnd, nRow * 10, nCol * 10 ) \n\nLuego estamos multiplicando los valores que usas por 10. Se podría cambiar esa constante (10), ó añadir la claúsula PIXEL.\n\nTambien es posible usar el editor de recursos Glade y dibujar los diálogos. No está terminado al 100% Tienes un ejemplo en samples\\TestRes.prg. El recurso está en samples\\Test.glade','',0,'GIA=','2bqoence',1,0,'',2,0,0),(39585,8509,12,179,0,'190.10.198.97',1192428161,1,0,1,1,1,1,'','','gracias ya lo reviso\natt','',0,'GIA=','j68ezx4t',1,0,'',179,0,0),(39586,8510,3,2,0,'87.218.146.164',1192428306,1,0,1,1,1,1,'','Variable row height on a WBrowse - Otto','Otto,\n\nHere you have a simple working sample for making font zoom in/out on a wbrowse:\n[code:pnoih4ce]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oBrw, oFont, nSize &#58;= -10\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   USE customer\n\n   DEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 0, nSize\n\n   DEFINE WINDOW oWnd TITLE &quot;Browses - zoom&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   @ 0, 0 LISTBOX oBrw FIELDS FONT oFont\n\n   oWnd&#58;oClient = oBrw\n \n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   MENU oMenu\n      MENUITEM &quot;Zoom&quot;\n      MENU\n         MENUITEM &quot;Larger&quot; ACTION Larger&#40;&#41;\n         MENUITEM &quot;Smaller&quot; ACTION Smaller&#40;&#41;\n      ENDMENU\n   ENDMENU\n   \nreturn oMenu         \n\nfunction Larger&#40;&#41;\n\n   nSize -= 2\n\n   DEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 0, nSize\n   \n   oBrw&#58;SetFont&#40; oFont &#41;\n   oBrw&#58;Refresh&#40;&#41;\n   \nreturn nil   \n\nfunction Smaller&#40;&#41;\n\n   nSize += 2\n\n   DEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 0, nSize\n   \n   oBrw&#58;SetFont&#40; oFont &#41;\n   oBrw&#58;Refresh&#40;&#41;\n   \nreturn nil   \n[/code:pnoih4ce]','',0,'AIA=','pnoih4ce',1,0,'',2,0,0),(39587,8508,6,2,0,'87.218.146.164',1192428842,1,0,1,1,1,1,'','','Miguel,\n\nRevisa este ejemplo:\n[code:3k89cph2]\n#include &quot;FiveWin&#46;ch&quot; \n\nREQUEST DBFCDX \n\n* Incremental Search with a get object Example \n\n//-----------------------------------------------------------------------// \n\nFUNCTION Main&#40;&#41; \n\nLOCAL oWnd, oBrw \nLOCAL cSearch, oSearch \n\nUSE Customer VIA &quot;DBFCDX&quot; \nINDEX ON Customer-&gt;Last TO LAST  \nOrdSetFocus&#40; &quot;LAST&quot; &#41; \nDbGoTop&#40;&#41; \n\ncSearch &#58;= SPACE&#40;LEN&#40;Customer-&gt;Last&#41;&#41; \n\nDEFINE WINDOW oWnd TITLE &quot;IncSearch&quot;                ; \n       FROM 1,100 TO 212,408 PIXEL NOMAXIMIZE \n    \n@  4,3 GET oSearch VAR cSearch OF oWnd              ; \n       PIXEL size 145,17                            ; \n       PICTURE &quot;@!&quot;                                  \n\n@ 30,1 LISTBOX oBrw                                 ; \n       FIELDS Customer-&gt;Last, Customer-&gt;First       ; \n       HEADERS &quot;Last&quot;,&quot;First&quot;                       ; \n       SIZE 300, 155 PIXEL \n\n* This is the main trick&#46; \noSearch&#58;bPostKey = &#123; || Search&#40;oSearch&#58;oGet&#58;buffer&#41;,; \n                        oBrw&#58;Refresh&#40;&#41; &#125; \n    \nACTIVATE WINDOW oWnd ON INIT WndCenter&#40;oWnd&#58;hWnd&#41; \n    \nRETURN nil \n\n//-----------------------------------------------------------------------// \n\nFUNCTION Search&#40;cSearch &#41; \n\nDbSeek&#40; cSearch, &#46;t&#46; &#41; \n\nRETURN nil \n[/code:3k89cph2]','',0,'AIA=','3k89cph2',1,0,'',2,0,0),(39588,8496,3,2,0,'87.218.146.164',1192429413,1,0,1,1,1,1,'','','James,\n\n&gt; the menu item repaints the white line between the buttonbar and menu into blue.\n\nFixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3trjkjwp',1,0,'',2,0,0),(39589,8496,3,2,0,'87.218.146.164',1192429460,1,0,1,1,1,1,'','','&gt; Will the issue of top bar prompts getting erased in 256 color mode will be addressed? \n\nYes','',0,'AIA=','36uxozwb',1,0,'',2,0,0),(39590,8349,6,596,0,'85.62.69.206',1192430100,1,0,1,1,1,1,'','','Supongo que tanto oWnd:HardCopy([&lt;nZoom&gt;]) como oActiveX&#058;HardCopy([&lt;nZoom&gt;]) me devuelven un string con el contenido del JPG.\n¿ Es asi ?','',0,'','2ra1es6w',1,0,'',596,0,0),(39591,8349,6,2,0,'87.218.146.164',1192430392,1,0,1,1,1,1,'','','No, no es asi\n\nRevisa el código fuente de Class TWindow Method HardCopy <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3i81k8re',1,0,'',2,0,0),(39592,8349,6,596,0,'85.62.69.206',1192431061,1,0,1,1,1,1,'','','[quote=&quot;JmGarcia&quot;:1jg99a4u]Supongo que tanto oWnd:HardCopy([&lt;nZoom&gt;]) como oActiveX&#058;HardCopy([&lt;nZoom&gt;]) me devuelven un string con el contenido del JPG.\n¿ Es asi ?[/quote:1jg99a4u]\nPues he comprobado que tanto uno como otro lo que me hacen el llamar a la impresora y sacarme un hardcopy por impresora.\nSigo como estaba  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','1jg99a4u',1,0,'',596,0,0),(39593,8349,6,596,0,'85.62.69.206',1192431416,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:g0wgyzsw]Revisa el código fuente de Class TWindow Method HardCopy <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:g0wgyzsw]\n\n[code:g0wgyzsw]METHOD HardCopy&#40; nScale, lUser &#41; CLASS TWindow\n\n   local oPrn\n\n   DEFAULT lUser &#58;= &#46;t&#46;\n\n   if lUser\n      PRINT oPrn NAME &#58;&#58;cTitle FROM USER\n   else\n      PRINT oPrn NAME &#58;&#58;cTitle\n   endif\n\n      PAGE\n         &#58;&#58;Refresh&#40;&#41;\n         SysRefresh&#40;&#41;                      // Let Windows process\n         &#58;&#58;Print&#40; oPrn, 0, 0, nScale &#41;\n      ENDPAGE\n   ENDPRINT\n\nreturn nil[/code:g0wgyzsw][code:g0wgyzsw]METHOD Print&#40; oTarget, nRow, nCol, nScale &#41; CLASS TWindow\n\n   local lNew &#58;= &#46;f&#46;\n\n   DEFAULT nRow &#58;= 0, nCol &#58;= 0, nScale &#58;= 4\n\n   if &#58;&#58;bPrint != nil\n      Eval&#40; &#58;&#58;bPrint, Self &#41;\n      return nil\n   endif\n\n   if oTarget == nil\n      lNew = &#46;t&#46;\n      PRINTER oTarget NAME &#58;&#58;GetText&#40;&#41;\n         PAGE\n         SysRefresh&#40;&#41;\n   endif\n\n   WndPrint&#40; &#58;&#58;hWnd, oTarget&#58;hDC, nRow, nCol, nScale &#41;\n\n   if lNew\n         ENDPAGE\n      ENDPRINT\n   endif\n\nreturn nil[/code:g0wgyzsw]\n\n¿ Alguna pista ?','',0,'gIA=','g0wgyzsw',1,0,'',596,0,0),(39594,8349,6,2,0,'87.218.146.164',1192432710,1,0,1,1,1,1,'','','Te refieres a que quieres guardar la imagen de la ventana ?\n\nEntonces usa oWnd:SaveToBmp( cFileName )\n\nSe crea un fichero en disco, que luego puedes \"cargar\" en memoria como una cadena usando MemoRead( cFileName )','',0,'gIA=','213ox1fn',1,0,'',2,0,0),(39595,8511,3,904,0,'196.25.255.250',1192434701,1,0,1,1,1,1,'','Strange Problem with ActiveX (Harbour Exception)','I have modified some code from Jairo to use List &amp; Label in my program.\n\nWhen I compile and run it on its own - it works perfectly.\n\nWhen I link the PRG into my main program and call TESTLL() , it gives the following error:\n\nWindow title: Harbour Exception\nCalled from ACTXINVOKE(0)\nCalled from TACTIVEX&#058;DO(415)\nCalled from DEFINEDATA(304)\nCalled from LLPRINTER(156)\nCalled from EVAL(48)\nCalled from TMENU:COMMAND(0)\netc.\nwith only an OK button.\nWhen you click OK, it says My.EXE has encounted a problem and needs to close. We are sorry for the incovenience. etc.\n\nAny idea why?\n\n[code:2g1qy33c]// Modified by Ollie from the original by&#58;\n// Probando Combit List &amp; Label 12\n// Modificado por Jairo Centeno\n// 14 de Marzo 2007\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;ListLabel&#46;ch&quot;\n\n#ifndef __XPP__\n   #define  HKEY_CLASSES_ROOT       2147483648\n#else\n   #define  HKEY_CLASSES_ROOT       1\n#endif\n\n//Global oActiveX, oWindow, hJob, nRet//, cTempPath //, cFileName\n//Global oWindow\n//Global oActiveX, hJob, nRet //, cTempPath //, cFileName\n\nFUNCTION TESTLL&#40;&#41;\n   LOCAL oMainWindow\n\n   USE ARTICLE NEW\n\n   DEFINE WINDOW oMainWindow TITLE &quot;FiveWin ActiveX Support&quot; MENU BuildMenu&#40;&#41;\n\n   //oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWindow, &quot;L12&#46;List-Label12_Ctrl_32&#46;1&quot; &#41;\n\n   //USE ARTICLE NEW\n   // ARTICLE-&gt;&#40; dbGoTop&#40;&#41; &#41;\n\n   //oWindow&#58;oClient = oActiveX // To fill the entire window surface\n\n   ACTIVATE WINDOW oMainWindow VALID MsgYesNo&#40; &quot;Exit ?&quot; &#41;\n\n   dbCloseArea&#40;&#41;\n\n   RETURN NIL\n\n//-------------------------------------------------------------------\nSTATIC FUNCTION BuildMenu&#40;&#41;\n//-------------------------------------------------------------------\n   LOCAL oMenu\n\n   MENU oMenu\n   MENUITEM &quot;&amp;Information&quot;\n   MENU\n   MENUITEM &quot;&amp;Designer&quot; ACTION LLDesigner&#40; &quot;ARTICLE&quot;, &quot;article&#46;lst&quot; &#41; //MsgAbout&#40; &quot;FiveWin&quot;, &quot;FiveTech&quot; &#41;\n   SEPARATOR\n   MENUITEM &quot;&amp;Print&quot; ACTION LLPrinter&#40; &quot;ARTICLE&quot;, &quot;article&#46;lst&quot; &#41;\n   SEPARATOR\n   MENUITEM &quot;&amp;Exit&quot; ACTION oWindow&#58;End&#40;&#41;  //dbCloseAll&#40;&#41;,\n   ENDMENU\n   ENDMENU\n\n   RETURN oMenu\n\n//List &amp; Label specific print and design routines start\n//     here\n//-------------------------------------------------------------------\nFUNCTION LLDesigner&#40; cAlias, cReportName &#41;\n//-------------------------------------------------------------------\n   LOCAL cTempPath &#58;= &quot;C&#58;\\WINDOWS\\TEMP&quot;\n   LOCAL aField, aType, aLen, aDec\n   LOCAL oWnd &#58;= GetWndDefault&#40;&#41;\n   PUBLIC oActiveX, hJob, nRet\n\n   //storage arrays for field info\n   aField &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aType  &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aLen   &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aDec   &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n\n   //USE &#40; cAlias &#41; NEW\n   &#40; cAlias &#41; -&gt;&#40; dbGoTop&#40;&#41; &#41;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40;, &quot;L12&#46;List-Label12_Ctrl_32&#46;1&quot; &#41;\n\n   //Read field info from database\n   AFields&#40; aField, aType, aLen, aDec &#41;\n\n   //open List &amp; Label job, retrieve job handle\n   hJob &#58;= 1\n   //LlJobOpen&#40;-1&#41;\n\n   //Enable multiple table lines\n   oActiveX&#58;Do&#40; &quot;LlSetOption&quot;, LL_OPTION_MULTIPLETABLELINES, 1 &#41;\n\n   //call file open dialog\n   //oActiveX&#58;Do&#40;&quot;LlSelectFileDlgTitleEx&quot;, oWindow&#58;hWnd, &quot;Select File&quot;, LL_PROJECT_LIST, @cReportName &#41;\n   //Ollie&#58; I replaced  oWindow&#58;hWnd with GETFOCUS&#40;&#41; - Retrieves the handle of the window that has focus\n\n   //if nRet != LL_ERR_USER_ABORTED\n\n   //clear DLL-internal field buffer\n   oActiveX&#58;Do&#40; &quot;LlDefineFieldStart&quot; &#41;\n\n   //Define Fields\n   DefineData&#40; cAlias, &#46;T&#46; &#41; //, aField, aType, aLen, aDec &#41;\n\n   //start designer\n   oActiveX&#58;Do&#40; &quot;LlSetPrinterDefaultsDir&quot;, cTempPath &#41;\n   oActiveX&#58;Do&#40; &quot;LlDefineLayout&quot;, oWnd&#58;hWnd /* GETFOCUS&#40;&#41; Ollie&#58; was oWindow&#58;hWnd */, &quot;Designer&quot;, LL_PROJECT_LIST, cReportName &#41;\n   //endif\n\n   oActiveX &#58;= NIL\n   RELEASE oActiveX, hJob, nRet\n   RETURN NIL\n\n\n\n//-------------------------------------------------------------------\nFUNCTION LLPrinter&#40; cAlias, cReportName &#41;\n//-------------------------------------------------------------------\n\n   LOCAL cTempPath &#58;= &quot;C&#58;\\WINDOWS\\TEMP&quot;\n   LOCAL aField, aType, aLen, aDec, nCount, nAkt\n      LOCAL oWnd &#58;= GetWndDefault&#40;&#41;\n   PUBLIC oActiveX, hJob, nRet\n\n   //storage arrays for field info\n   aField &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aType  &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aLen   &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aDec   &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n\n   cTempPath &#58;= &quot;C&#58;\\WINDOWS\\TEMP&quot;\n\n   //USE &#40; cAlias &#41; NEW\n   &#40; cAlias &#41; -&gt;&#40; dbGoTop&#40;&#41; &#41;\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40;, &quot;L12&#46;List-Label12_Ctrl_32&#46;1&quot; &#41;\n\n   nRet &#58;= 0\n\n   //Read field info from database\n   AFields&#40; aField, aType, aLen, aDec &#41;\n\n   //open List &amp; Label job, retrieve job handle\n   hJob &#58;= 1\n   //hJob &#58;= LlJobOpen&#40;-1&#41;\n\n   //Enable multiple table lines\n   oActiveX&#58;Do&#40; &quot;LlSetOption&quot;, LL_OPTION_MULTIPLETABLELINES, 1 &#41;\n\n   //call file open dialog\n//     nRet&#58;= oActiveX&#58;Do&#40; &quot;LlSelectFileDlgTitle&quot;, oWindow&#58;hWnd, &quot;Select File&quot;, LL_PROJECT_LIST, @cReportName &#41;\n\n//    if nRet != LL_ERR_USER_ABORTED\n\n   nCount &#58;= &#40; cAlias &#41; -&gt;&#40; RECCOUNT&#40;&#41; &#41;\n   nAkt &#58;= 0\n\n   //clear DLL-internal field buffer\n   oActiveX&#58;Do&#40; &quot;LlDefineFieldStart&quot; &#41;\n\n   //Define Fields\n   DefineData&#40; cAlias, &#46;T&#46; &#41; //, aField, aType, aLen, aDec &#41;\n\n   //start List &amp; Label print job\n   oActiveX&#58;Do&#40; &quot;LlSetPrinterDefaultsDir&quot;, cTempPath &#41;\n\n   //nRet &#58;= oActiveX&#58;Do&#40; &quot;LlPrintWithBoxStart&quot;, LL_PROJECT_LIST, cReportName, LL_PRINT_PREVIEW, LL_BOXTYPE_STDWAIT, oWindow&#58;hWnd , &quot;Preview&quot; &#41;\n   nRet &#58;= oActiveX&#58;Do&#40; &quot;LlPrintWithBoxStart&quot;, LL_PROJECT_LIST, cReportName, LL_PRINT_PREVIEW, LL_BOXTYPE_STDWAIT,;\n   oWnd&#58;hWnd /*GETFOCUS&#40;&#41; Ollie&#58; was oWindow&#58;hWnd */ , &quot;Preview&quot; &#41;\n\n   oActiveX&#58;Do&#40; &quot;LlPreviewSetTempPath&quot;, cTempPath &#41;\n\n   //Print header for first page\n   oActiveX&#58;Do&#40; &quot;LlPrint&quot; &#41;\n   //  nRet &#58;= LlPrint&#40;hJob&#41;  //No utilizar nRet aqui, porque revienta error\n\n   //outer loop&#58; repeat for each page\n   DO WHILE &#40; nCount &gt; 0 &#41; &#46;AND&#46; &#40; nRet = 0 &#41; &#46;AND&#46; &#40; ! &#40; cAlias &#41; -&gt;&#40; EOF&#40;&#41; &#41; &#41;\n\n      //inner loop&#58; repeat for each record\n      DO WHILE &#40; nCount &gt; 0 &#41; &#46;AND&#46; &#40; nRet = 0 &#41; &#46;AND&#46; &#40; ! &#40; cAlias &#41; -&gt;&#40; EOF&#40;&#41; &#41; &#41;\n\n         //define fields\n         DefineData&#40; cAlias, &#46;T&#46;, aField, aType, aLen, aDec &#41;\n\n         //print table line\n         nRet &#58;= oActiveX&#58;Do&#40; &quot;LlPrintFields&quot; &#41;\n\n         //move to next record\n         &#40; cAlias &#41; -&gt;&#40; DBSkip&#40; 1 &#41; &#41;\n         nAkt &#58;= nAkt + 1\n\n         //update meter info\n         oActiveX&#58;Do&#40; &quot;LlPrintSetBoxText&quot;, &quot;Printing&quot;, &#40; &#40; 100 * nAkt &#41; / nCount &#41; &#41;\n\n      ENDDO\n\n      //on pagebreak print new header and repeat last data\n      DO WHILE nRet = LL_WRN_REPEAT_DATA\n         oActiveX&#58;Do&#40; &quot;LlPrint&quot; &#41;\n         nRet &#58;= oActiveX&#58;Do&#40; &quot;LlPrintFields&quot; &#41;\n      ENDDO\n   ENDDO\n\n   //print footer of last page\n   nRet &#58;= oActiveX&#58;Do&#40; &quot;LlPrintFieldsEnd&quot; &#41;\n\n   //Page break for last footer, if necessary\n   DO WHILE nRet = LL_WRN_REPEAT_DATA\n      nRet &#58;= oActiveX&#58;Do&#40; &quot;LlPrintFieldsEnd&quot; &#41;\n   END DO\n\n   //end List &amp; Label print job\n   oActiveX&#58;Do&#40; &quot;LlPrintEnd&quot;, 0 &#41;\n\n   //display preview if no error occurred\n   IF nRet = 0\n      //oActiveX&#58;Do&#40; &quot;LlPreviewDisplay&quot;, cReportName, cTempPath, oWindow&#58;hWnd &#41;\n      oActiveX&#58;Do&#40; &quot;LlPreviewDisplay&quot;, cReportName, cTempPath, oWnd&#58;hWnd /*GETFOCUS&#40;&#41; Ollie&#58; was oWindow&#58;hWnd */ &#41;\n\n      //delete temporary preview files\n      oActiveX&#58;Do&#40; &quot;LlPreviewDeleteFiles&quot;, cReportName, cTempPath &#41;\n   ENDIF\n\n//  ENDIF //LL_ERR_USER_ABORTED\n\n   oActiveX &#58;= NIL\n   RELEASE oActiveX, hJob, nRet\n   RETURN NIL\n\n\nSTATIC FUNCTION DefineData&#40; cAlias, bAsField &#41; //, aField, aType, aLen, aDec &#41;\n//-------------------------------------------------------------------\n\n//Is called by the program to define the variables according\n//    to the new record&#46; bAsField distinguishes between field and\n//    variable declaration to List &amp; Label\n\n   LOCAL FldType, FldContent, DateBuffer, lExpr, I &#58;= 1\n   LOCAL aField, aType, aLen, aDec\n\n   //storage arrays for field info\n   aField &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aType  &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aLen   &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n   aDec   &#58;= Array&#40; &#40; cAlias &#41; -&gt;&#40; FCount&#40;&#41; &#41; &#41;\n\n   //Read field info from database\n   AFields&#40; aField, aType, aLen, aDec &#41;\n\n   //convert FiveWin field types to List &amp; Label field types\n\n   FOR I = 1 to &#40; cAlias &#41; -&gt;&#40; Fcount&#40;&#41; &#41;\n\n      DateBuffer = Replicate&#40; chr&#40; 0 &#41;, 255 &#41;\n\n      DO CASE\n      CASE aType&#91; I &#93; == &quot;N&quot;\n         FldType = LL_NUMERIC\n         FldContent = Str&#40; &#40; cAlias &#41; -&gt;&#40; FieldGet&#40; I &#41; &#41; &#41;\n      CASE aType&#91; I &#93; == &quot;D&quot;\n         FldType = LL_DATE\n\n         //Convert to Julian Date\n         //Create function tree\n         lExpr = oActiveX&#58;Do&#40; &quot;LlExprParse&quot;, &quot;CTOD&#40; &#40;cAlias&#41;-&gt;&#40;FieldGet&#40;i&#41;&#41; &#41;&quot;, &#46;F&#46; &#41;\n//                  lExpr = oActiveX&#58;Do&#40;&quot;LlExprParse&quot;, &quot;DTOC&#40; &#40;cAlias&#41;-&gt;&#40;FieldGet&#40;i&#41;&#41; &#41;&quot;, &#46;F&#46; &#41;\n         //lExpr = LlExprParse&#40;hJob,&quot;DateToJulian&#40;DATE&#40;&quot;+chr&#40;34&#41;+DTOC&#40; FieldGet&#40;i&#41; &#41;+chr&#40;34&#41;+&quot;&#41;&#41;&quot;, &#46;F&#46;&#41;\n\n         //Evaluate expression\n         oActiveX&#58;Do&#40; &quot;LlExprEvaluate&quot;, lExpr, @DateBuffer &#41;\n\n         //Free expression\n         oActiveX&#58;Do&#40; &quot;LlExprFree&quot;, lExpr &#41;\n\n         FldContent = DateBuffer\n         \n      CASE aType&#91; I &#93; == &quot;L&quot;\n         FldType = LL_BOOLEAN\n         IF &#40; cAlias &#41; -&gt;&#40; FieldGet&#40; I &#41; &#41; = &#46;F&#46;\n            FldContent = &quot;FALSE&quot;\n         ELSE\n            FldContent = &quot;TRUE&quot;\n         ENDIF\n      CASE aType&#91; I &#93; == &quot;C&quot;\n         FldType = LL_TEXT\n         FldContent = Trim&#40; &#40; cAlias &#41; -&gt;&#40; FieldGet&#40; I &#41; &#41; &#41;\n         \n         //for &#40;cAlias&#41; number generate EAN128-barcode\n         IF I = 1\n            DO CASE\n               //Distinguish between field and variable declaration\n            CASE bAsField == &#46;F&#46;\n               oActiveX&#58;Do&#40; &quot;LlDefineVariableExt&quot;, &quot;&#40;cAlias&#41;NO_EAN128&quot;, Trim&#40; &#40; cAlias &#41; -&gt;&#40; FieldGet&#40; I &#41; &#41; &#41;, LL_BARCODE_EAN128 &#41;\n            CASE bAsField == &#46;T&#46;\n               oActiveX&#58;Do&#40; &quot;LlDefineFieldExt&quot;, &quot;&#40;cAlias&#41;NO_EAN128&quot;, Trim&#40; &#40; cAlias &#41; -&gt;&#40; FieldGet&#40; I &#41; &#41; &#41;, LL_BARCODE_EAN128 &#41;\n            END CASE\n         ENDIF\n\n      CASE aType&#91; I &#93; == &quot;M&quot;\n         FldType = LL_TEXT\n         FldContent = &#40; cAlias &#41; -&gt;&#40; FieldGet&#40; I &#41; &#41;\n      END CASE\n      \n      //pass data to List &amp; Label\n      DO CASE\n      CASE bAsField == &#46;F&#46;\n         oActiveX&#58;Do&#40; &quot;LlDefineVariableExt&quot;, aField&#91; I &#93;, FldContent, FldType &#41;\n      CASE bAsField == &#46;T&#46;\n         oActiveX&#58;Do&#40; &quot;LlDefineFieldExt&quot;, aField&#91; I &#93;, FldContent, FldType &#41;\n      END CASE\n      \n   NEXT I\n   \n   RETURN NIL\n   \n   \n   \n/*\n-----\nDLLFUNCTION GetTempPathA&#40; buffsize, @buffer &#41; ;\n         USING STDCALL ;\n          FROM KERNEL32&#46;DLL\n\n\nFUNCTION MyGetTempPath&#40;&#41;\n\nLOCAL nBuffSize &#58;= 261\nLOCAL sBuffer &#58;= Replicate&#40;chr&#40;0&#41;,261&#41;\n\nGetTempPathA&#40;nBuffsize, @sBuffer&#41;\n\nreturn sBuffer\n-----\n*/\n// La utilizo para ampliar parámetros &#40;uParam6&#41;\n//----------------------------------------------------------------------------//\nCLASS TActiveX FROM TControl\n   \n   CLASSDATA lRegistered AS LOGICAL\n   \n   DATA   hActiveX\n   DATA   cProgID\n   DATA   cString\n   DATA   aProperties, aMethods, aEvents\n   DATA   bOnEvent\n   \n   METHOD New&#40; oWindow, cProgID &#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nId, oWindow, cProgID &#41; CONSTRUCTOR\n\n   METHOD Do&#40; cMethodName, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 &#41;\n   \n   METHOD Display&#40;&#41; INLINE &#58;&#58;BeginPaint&#40;&#41;, &#58;&#58;Paint&#40;&#41;, &#58;&#58;EndPaint&#40;&#41;, 0\n   \n   METHOD EraseBkGnd&#40; hDC &#41; INLINE 1\n   \n   METHOD GetProp&#40; cPropName &#41; INLINE ;\n   ActXGetProperty&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cPropName &#41;\n   \n   METHOD Initiate&#40; hDlg &#41;\n   \n   METHOD OnEvent&#40; nEvent, aParams &#41;\n   \n   METHOD ReadTypes&#40;&#41;\n   \n   METHOD ReSize&#40; nFlags, nWidth, nHeight &#41; INLINE ;\n   ActXSetLocation&#40; &#58;&#58;hActiveX, 0, 0, nWidth, nHeight &#41;\n\n   METHOD SetProp&#40; cPropName, uParam1 &#41; INLINE ;\n   ActXSetProperty&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cPropName, uParam1 &#41;\n   \nENDCLASS\n\n//----------------------------------------------------------------------------//\nMETHOD New&#40; oWnd, cProgID &#41; CLASS TActiveX\n\n   DEFAULT oWnd &#58;= GetWndDefault&#40;&#41;\n   \n   &#58;&#58;nTop    = 0\n   &#58;&#58;nLeft   = 0\n   &#58;&#58;nBottom = 200\n   &#58;&#58;nRight  = 200\n   &#58;&#58;oWnd    = oWnd\n   &#58;&#58;nId     = &#58;&#58;GetNewId&#40;&#41;\n   &#58;&#58;nStyle  = nOR&#40; WS_CHILD, WS_VISIBLE &#41;\n   &#58;&#58;cProgID = cProgID\n   &#58;&#58;cString = ActXString&#40; cProgID &#41;\n   \n   &#58;&#58;Register&#40;&#41;\n   \n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40;&#41;\n      oWnd&#58;AddControl&#40; Self &#41;\n      &#58;&#58;hActiveX = CreateActiveX&#40; &#58;&#58;hWnd, cProgID, Self &#41;\n      &#58;&#58;ReadTypes&#40;&#41;\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\n   return Self\n   \n//----------------------------------------------------------------------------//\n   \nMETHOD Do&#40; cMethodName, uParam1, uParam2, uParam3, uParam4, uParam5, uParam6 &#41; CLASS TActiveX\n   \n   local uRet\n   \n   do case\n   case PCount&#40;&#41; == 1\n      uRet = ActXInvoke&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cMethodName &#41;\n      \n   case PCount&#40;&#41; == 2\n      uRet = ActXInvoke&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cMethodName, uParam1 &#41;\n      \n   case PCount&#40;&#41; == 3\n      uRet = ActXInvoke&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cMethodName, uParam1, uParam2 &#41;\n      \n   case PCount&#40;&#41; == 4\n      uRet = ActXInvoke&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cMethodName, uParam1, uParam2, ;\n                         uParam3 &#41;\n   case PCount&#40;&#41; == 5\n      uRet = ActXInvoke&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cMethodName, uParam1, uParam2, ;\n                         uParam3, uParam4 &#41;\n   case PCount&#40;&#41; == 6\n      uRet = ActXInvoke&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cMethodName, uParam1, uParam2, ;\n                         uParam3, uParam4, uParam5  &#41;\n   case PCount&#40;&#41; == 7\n      uRet = ActXInvoke&#40; ActXPdisp&#40; &#58;&#58;hActiveX &#41;, cMethodName, uParam1, uParam2, ;\n                         uParam3, uParam4, uParam5, uParam6 &#41;\n   endcase\n   \n   return uRet\n   \n//----------------------------------------------------------------------------//\n   \nMETHOD ReDefine&#40; nId, oWnd, cProgID &#41; CLASS TActiveX\n   \n   &#58;&#58;nId     = nId\n   &#58;&#58;oWnd    = oWnd\n   &#58;&#58;cProgID = cProgID\n   &#58;&#58;cString = ActXString&#40; cProgID &#41;\n   \n   &#58;&#58;Register&#40; nOR&#40; CS_VREDRAW, CS_HREDRAW &#41; &#41;\n   \n   oWnd&#58;DefControl&#40; Self &#41;\n   \n   return Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD Initiate&#40; hDlg &#41; CLASS TActiveX\n   \n   Super&#58;Initiate&#40; hDlg &#41;\n   \n   &#58;&#58;hActiveX = CreateActiveX&#40; &#58;&#58;hWnd, &#58;&#58;cProgID, Self &#41;\n   &#58;&#58;ReadTypes&#40;&#41;\n   \n   return nil\n   \n//----------------------------------------------------------------------------//\n   \nMETHOD OnEvent&#40; nEvent, aParams &#41; CLASS TActiveX\n   \n   local nAt &#58;= AScan&#40; &#58;&#58;aEvents, &#123; | aEvent | aEvent&#91; 2 &#93; == nEvent &#125; &#41;\n   local cEvent &#58;= If&#40; nAt != 0, &#58;&#58;aEvents&#91; nAt &#93;&#91; 1 &#93;, &quot;&quot; &#41;\n   \n   if ! Empty&#40; &#58;&#58;bOnEvent &#41;\n      Eval&#40; &#58;&#58;bOnEvent, If&#40; ! Empty&#40; cEvent &#41;, cEvent, nEvent &#41;, aParams &#41;\n   endif\n   \n   return nil\n   \n//----------------------------------------------------------------------------//\n   \nMETHOD ReadTypes&#40;&#41; CLASS TActiveX\n   \n   local oReg &#58;= TReg32&#40;&#41;&#58;New&#40; HKEY_CLASSES_ROOT, &quot;CLSID\\&quot; + &#58;&#58;cString + ;\n         &quot;\\InprocServer32&quot; &#41;\n   local cTypeLib &#58;= oReg&#58;Get&#40; &quot;&quot; &#41;\n   \n   oReg&#58;Close&#40;&#41;\n   \n   if ! Empty&#40; cTypeLib &#41; &#46;and&#46; File&#40; cTypeLib &#41;\n      &#58;&#58;aEvents = ActXEvents&#40; cTypeLib, &#58;&#58;hActiveX &#41;\n   endif\n   \n   return nil\n   \n//----------------------------------------------------------------------------//\n[/code:2g1qy33c]','',0,'AIA=','2g1qy33c',1,0,'',904,0,0),(39596,8481,1,1077,0,'80.77.147.50',1192435660,1,0,1,1,1,0,'','','-&gt; I DON\'T USE CLIP 5.3 BECAUSE SOME FUNCTIONS OF MY APPLICATION DON\'T WORK WITH 5.3 \n\n?? which functions dont work in 53 ??','',0,'AIA=','qrxafb9c',1,0,'',1077,0,0),(39597,8511,3,2,0,'87.218.146.164',1192435795,1,0,1,1,1,1,'','','Ollie,\n\nJairo has included a modified Class TActiveX in his sample. Are you including it also in your PRG ?\n\nAre you using Harbour, xHarbour or xHB commercial ?','',0,'AIA=','21qqtlxt',1,0,'',2,0,0),(39598,8511,3,904,0,'198.54.202.250',1192436706,1,0,1,1,1,1,'','','[quote:22k466hm]Jairo has included a modified Class TActiveX in his sample. Are you including it also in your PRG ? \n[/quote:22k466hm]  \nYES. The code given here is all in a file called TESTLL.PRG - I link the whole file as it is into my program.\n\n[quote:22k466hm]Are you using Harbour, xHarbour or xHB commercial ?[/quote:22k466hm]\nxHarbour','',0,'gA==','22k466hm',1,0,'',904,0,0),(39599,8272,6,316,0,'213.97.245.163',1192436899,1,0,1,1,1,0,'','','Otro tema para resolver, y para este no tengo el codigo fuente.\n\nModifica en testxbrw el código del ejemplo de uso de xBrowse en diálogo\n[code:21zdst47]\n\nSTATIC FUNCTION NewDialog&#40; oWnd &#41;\n\n   local oDlg, oBrw\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TEST&quot; OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   //-----------8&lt;----------- Añadido desde acá\n   oBrw&#58;lRecordSelector    &#58;= &#46;F&#46;\n   oBrw&#58;nHeaderLines       &#58;= 2\n\n   oBrw&#58;nMarqueeStyle      &#58;= MARQSTYLE_HIGHLROW\n   oBrw&#58;nColDividerStyle   &#58;= ;\n   oBrw&#58;nRowDividerStyle   &#58;= LINESTYLE_BLACK\n   //-----------8&lt;----------- Añadido hasta acá\n\n   oBrw&#58;CreateFromResource&#40; 101 &#41;\n\n   ACTIVATE DIALOG oDlg\n\nRETURN NIL\n[/code:21zdst47]\n\ncuando hagas el scroll vertical con la rueda del raton o bien con las teclas arriba y abajo, verás que se pintan mal las últimas líneas.\n\nEs un problema que están en el XBrwScroll() , que estan en C y que no está el código fuente, por lo que no puedo buscarle una solución.\n\nEn general el fallo me aparece cuando tengo headers de más de 1 línea de alto.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','21zdst47',1,0,'',316,0,0),(39600,8272,6,2,0,'87.218.146.164',1192437665,1,0,1,1,1,1,'','','Carlos,\n\nAqui tienes el código:\n[code:2amzka1l]\n#ifdef __HARBOUR__\nHB_FUNC&#40; XBRWSCROLL &#41; // &#40; hWnd, nRows, nRowHeight, nHeaderHeight, nFooterHeight &#41; --&gt; nil\n#else\nCLIPPER XBRWSCROLL&#40; PARAMS &#41; // &#40; hWnd, nRows, nRowHeight, nHeaderHeight, nFooterHeight &#41; --&gt; nil\n#endif\n&#123;\n   HWND hWnd   = &#40; HWND &#41; _parnl&#40; 1 &#41;;\n   int wRows   = _parni&#40; 2 &#41;;\n   int wHeight = _parnl&#40; 3 &#41;;\n   RECT rct;\n\n   GetClientRect&#40; hWnd, &amp;rct &#41;;\n\n   rct&#46;top += &#40; _parnl&#40; 4 &#41; &#41;;\n   rct&#46;bottom -= &#40; _parnl&#40; 5 &#41; &#41;;\n   rct&#46;bottom -= &#40; &#40; rct&#46;bottom - rct&#46;top &#41; % _parnl&#40; 3 &#41; &#41; + 1;\n\n   ScrollWindowEx&#40; hWnd, 0, -&#40; wHeight * wRows &#41;, 0, &amp;rct, 0, 0, 0 &#41;;\n&#125;\n[/code:2amzka1l]\nComo ves, el XBrowse fué un regalito que nos dejaron con bastantes \"bichitos\" dentro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSe me habían pasado estos mensajes tuyos, discúlpame, voy a echarles un vistazo cuanto antes','',0,'AIA=','2amzka1l',1,1192442265,'',2,1,0),(39601,8511,3,2,0,'87.218.146.164',1192437880,1,0,1,1,1,1,'','','Ollie,\n\nPlease place a MsgInfo() at the bottom of method New() to be sure that the modified class TActiveX is the one that gets linked:\n\n MsgInfo( \"here\" )  \n\n return Self','',0,'AIA=','2yqmen3z',1,0,'',2,0,0),(39602,8511,3,904,0,'198.54.202.195',1192438713,1,0,1,1,1,1,'','','I did that. It is executing the right method - The MSG \"here\" comes up.\n\n(And then the error occurs)','',0,'AIA=','2je8kxzy',1,0,'',904,0,0),(39603,8272,6,316,0,'213.97.245.163',1192440781,1,0,1,1,1,0,'','','Antonio,\n\ngracias por el código. Para más detalle respecto del problema del scroll, se pinta mal cuando hacemos el scroll hacia arriba, y luego ese pintado mal hecho afecta al scroll hacia arriba.\n\nYa te cuento si le doy en el fallo.\n\nCarlos','',0,'AIA=','31dgz3m9',1,0,'',316,0,0),(39604,8511,3,2,0,'87.218.146.164',1192442161,1,0,1,1,1,1,'','','Ollie, \n\nPlease place several traces to find what is the offending code:\n\n  oActiveX = TActiveX():New(, \"L12.List-Label12_Ctrl_32.1\" ) \n\n  MsgInfo( oActiveX&#058;hActiveX )\n \n   //Read field info from database \n   AFields( aField, aType, aLen, aDec ) \n\n   //open List &amp; Label job, retrieve job handle \n   hJob := 1 \n   //LlJobOpen(-1) \n\n   //Enable multiple table lines \n   oActiveX&#058;Do( \"LlSetOption\", LL_OPTION_MULTIPLETABLELINES, 1 ) \n   MsgInfo( \"after LlSetOption\" )\n...','',0,'AIA=','3l170elw',1,0,'',2,0,0),(39605,8510,3,51,0,'80.122.88.242',1192443559,1,0,1,1,1,0,'','','Thank you, Antonio.','',0,'AIA=','1vi72vng',1,0,'',51,0,0),(39606,8272,6,316,0,'213.97.245.163',1192444653,1,0,1,1,1,0,'','','Antonio,\n\npara que no digan que solo doy problemas  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nen el método goup()\ndebe cambiarse la llamada a EraseData\n[code:3jovsk6b]\n            // &#58;&#58;EraseData&#40; &#40; &#40; Int&#40;nHeight/&#58;&#58;nRowHeight&#41; + 1 &#41; * &#58;&#58;nRowHeight &#41; + 10 &#41; lo quité por los problemas de pintado, con esto lo resuelve&#46;\n            &#58;&#58;EraseData&#40; &#58;&#58;HeaderHeight&#40;&#41; + &#58;&#58;nRowHeight * &#58;&#58;RowCount&#40;&#41; &#41;\n\n[/code:3jovsk6b]\n\nLo que se calculaba mal era la posición desde donde hay que borrar. Al menos en mis pruebas funciona correctamente, si alguien más me lo confirma...\n\nEs cierto que el Xbrowse adolece de muchos bugs, pero de los que he probado es el mejor estructurado, y aunque eventualmente falla es el más sencillo de extender. Tal vez hay algunos detalles mejorables pero en lo personal es el que más me gusta. Añadirle prestaciones no es muy complicado, según sé hay algunos compañeros que le han añadido Headers con temas de Windows usando los THeaders de Windows y algunas otras extensiones. \n\nSigo en el tema XBrowse como habras notado, creo que al final lo vamos a dejar bien.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','3jovsk6b',1,0,'',316,0,0),(39607,8481,1,418,0,'83.156.150.24',1192447124,1,0,1,1,1,0,'','','I use Hypersix Driver v1.1 which don\'t work with Clipper 5.3.','',0,'AIA=','2t0y8a4d',1,0,'',418,0,0),(39608,8512,3,448,0,'82.155.0.197',1192448429,1,0,1,1,1,0,'','MDIchild window Focus behavior','Hello,\n\nIn FW CaClipper when any control on MDIchild is clicked the MDIchild gets focus. On FWH this doesn\'t happens anymore.\nHow can I make it work the same way ?\n\nAntonio','',0,'AIA=','2viwqdpp',1,0,'',448,0,0),(39609,8500,3,1158,0,'200.233.185.181',1192449602,1,0,1,1,1,0,'','','hi, this is ready to buy? thanks','',0,'AIA=','2mcev1ti',1,0,'',1158,0,0),(39610,8272,6,2,0,'87.218.146.164',1192451312,1,0,1,1,1,1,'','','Carlos,\n\n&gt; ::EraseData( ::HeaderHeight() + ::nRowHeight * ::RowCount() ) \n\nModificado. Gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','st7995p7',1,0,'',2,0,0),(39611,8512,3,2,0,'87.218.146.164',1192451634,1,0,1,1,1,1,'','','Antonio,\n\nPlease test samples\\TestMdi5.prg and click on the GET, the focus its given to its mdichild window','',0,'AIA=','1gb141ls',1,0,'',2,0,0),(39613,8500,3,868,0,'219.64.121.60',1192457321,1,0,1,1,1,1,'','','is your viaupdate ready also ?','',0,'kA==','vh3q776w',1,0,'',868,0,0),(39614,8512,3,448,0,'82.155.0.197',1192457798,1,0,1,1,1,0,'','','This app wich works fine in 16bt however in 32 bt xharbour has the following diferences :\n\n1) You can\'t click a get in a unfocused mdichil. you must 1st click teh mdichild to get it focused then click the get.\n\n2) You can however click buttons and browses and scrollbars on unfocused mdichild without focused on it.\n\nThis is a totally diferent behavior than 16bt.\nAll mdichilds have a dialog inside and all controls are in the dialog not in the mdichild directly.\n\nHow can I solve it ?','',0,'kA==','2k2pqhjg',1,0,'',448,0,0),(39616,8326,6,106,0,'85.34.123.173',1192459318,1,0,1,1,1,1,'','','Buenisimo, se podrá implementar en la clase original de FWH? asi no tenemos que modificarla en cada actualizacion.\n\n\nGracias','',0,'gA==','2qwcuovr',1,0,'',106,0,0),(39617,8513,3,51,0,'80.122.88.242',1192459458,1,0,1,1,1,0,'','Preview','FW/Clipper\nI start my reports from a modal dialog in a MDI window.\nIn FW/Clipper the preview opens in an own window in the foreground -\nin FWH in the MDI window. \nBut then the dialog remains in the foreground.\n\nWhat is the best way to resolve this.\nThanks in advance\nOtto','',0,'gA==','2omhgrkn',1,0,'',51,0,0),(39618,8326,6,456,0,'217.127.39.57',1192459867,1,0,1,1,1,1,'','','Contento de que os haya servido.\nComo todos mis aportes al foro, esta a disposicón de Antonio para ser incluido en la clase original.','',0,'gA==','336q149c',1,0,'',456,0,0),(39619,8326,6,106,0,'85.34.123.173',1192459879,1,0,1,1,1,1,'','','El tema es que usando una ventana child, los footers quedan muy abajo y no se ven. Alguna idea de como subirlos?','',0,'gA==','2oxzr2yg',1,0,'',106,0,0),(39620,7202,7,598,0,'201.209.1.134',1192460366,1,0,1,1,1,1,'','','Muchas gracias! sus comentarios animan a seguir escribiendo   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nun saludo!','',0,'gA==','3e1xlnzh',1,0,'',598,0,0),(39621,8326,6,106,0,'85.34.123.173',1192460774,1,0,1,1,1,1,'','','Ejemplo en la segunda ventana que está debajo:\nLos footers estàn, pero no se ven...\n\n[img:hbhefmoi]http&#58;//img155&#46;imageshack&#46;us/img155/9377/schermatawinprogresskc8&#46;jpg[/img:hbhefmoi]\nBy [url=http&#58;//profile&#46;imageshack&#46;us/user/pymsoft:hbhefmoi]pymsoft[/url:hbhefmoi] at 2007-10-15','',0,'GA==','hbhefmoi',1,0,'',106,0,0),(39622,8500,3,1158,0,'200.139.130.189',1192460958,1,0,1,1,1,0,'','','Fernando, only to clarify: viacoral is an 3rdpart lib for xharbour/fivewin 32 ok? theres any issue with anothers lib? viaupdate is included in viacoral? thanks','',0,'GA==','3iv69b8b',1,0,'',1158,0,0),(39623,8326,6,456,0,'217.127.39.57',1192461438,1,0,1,1,1,1,'','','Hola Pedro,\nNo he podido revisar el codigo fuente, me pillas que me estoy yendo de vacaciones unos dias a Barcelona. De todas formas, los footer, cuando hay valor en ellos, siempre debieran estar visibles.\n[url=http&#58;//imageshack&#46;us:330d9i7n][img:330d9i7n]http&#58;//img80&#46;imageshack&#46;us/img80/8931/screenly8&#46;jpg[/img:330d9i7n][/url:330d9i7n]','',0,'GA==','330d9i7n',1,0,'',456,0,0),(39625,8514,6,72,0,'189.146.242.84',1192461878,1,0,1,1,1,0,'','OT:  Gracias Familia!','Antonio, JCSO, Willy, Miguel Angel, René...\n\nNo creí que en tan pocos días lograría ver tantos cambios.\n\nHoy mi Proyecto RC tiene un aspecto profesional, y lo mejor, funcionando totalmente en modo Clientes/Servidor con SQL y/o ADS (más de 100 PRGs y 75 tablas).\n\nMe costó mas trabajo superar mi ignorancia que hacer los cambios.\n\nEs sorprendente lo que se puede lograr con FiveWin y [x]Harbour!\n\n[url=http&#58;//img340&#46;imageshack&#46;us/my&#46;php?image=sqlus6&#46;jpg:15uxaulx][img:15uxaulx]http&#58;//img340&#46;imageshack&#46;us/img340/2768/sqlus6&#46;th&#46;jpg[/img:15uxaulx][/url:15uxaulx]','',0,'GA==','15uxaulx',1,0,'',72,0,0),(39626,8481,1,47,0,'203.144.160.247',1192461917,1,0,1,1,1,0,'','','I use Clip5.2e/Comix/FW for many years and it is good couple for 16 bits.  These set is compatible with xHarbour/FWH/RMDBFCDX or ADS for 32bits.\n\nDutch','',0,'GA==','l057rmqp',1,0,'',47,0,0),(39627,8511,3,904,0,'198.54.202.250',1192462050,1,0,1,1,1,1,'','','I feel stupid for not having tried that first.\n\nI found the problem was relating to the line:\n\nAFields( aField, aType, aLen, aDec ) \n\nIt gave NIL values.\n\nI replaced it with (cAlias)-&gt;(AFields( aField, aType, aLen, aDec ) )\n\nand problem solved.\n\nThanks Antonio for your prompt response. (I\'ve been struggling with this for some time now.)  THANKS AGAIN.','',0,'GA==','35gq013k',1,0,'',904,0,0),(39628,8326,6,106,0,'85.34.123.173',1192463405,1,0,1,1,1,1,'','','Gracias por tu tiempo, veo que a ti te funciona, se ve que hago algo mal.\n\n\nSaludos y buenas vacaciones.','',0,'GA==','1kmhe35z',1,0,'',106,0,0),(39629,8514,6,694,0,'200.146.115.174',1192463907,1,0,1,1,1,1,'','','Belo trabalho meu amigo Alfredo!\n\nMeus parabéns!\n\nAoki','',0,'GA==','ulvoaw6q',1,0,'',694,0,0),(39630,8512,3,2,0,'87.218.146.164',1192464164,1,0,1,1,1,1,'','','Antonio,\n\nIf you find some difference behaviors from 16 bits apps to 32 bits apps is due to Windows, as we use exactly the same code for both FW and FWH.\n\nWe don\'t place dialogs inside the MDICHILD windows. It can be done, but we don\'t do it by default.','',0,'GA==','7jgnbpzf',1,0,'',2,0,0),(39631,8326,6,106,0,'85.34.123.173',1192464229,1,0,1,1,1,1,'','','Bueno, ahora funciona.\n\nlo unico que hice, fue poner uno de los footers como texto fijo\n\n          oCol:cFooter := \"Totali:\"\n\ny ahora muestra todos.','',0,'GA==','2i6xspdn',1,0,'',106,0,0),(39632,8511,3,2,0,'87.218.146.164',1192464295,1,0,1,1,1,1,'','','Ollie,\n\nglad to know it is solved <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3mi6zm3o',1,0,'',2,0,0),(39633,8513,3,2,0,'87.218.146.164',1192464397,1,0,1,1,1,1,'','','Otto,\n\nYou should close the dialog yourself before you call the preview','',0,'GA==','1ufkexu1',1,0,'',2,0,0),(39634,8513,3,51,0,'80.122.88.242',1192464639,1,0,1,1,1,0,'','','Hello Antonio,\n\nSince you implemented     oBar:l2007 = .T. which does rather magic on the whole program I always have the feeling that there must be something similar for all the other problems.\nBest regards,\nOtto','',0,'GA==','43e7bm60',1,0,'',51,0,0),(39635,8514,6,2,0,'87.218.146.164',1192464657,1,0,1,1,1,1,'','','Alfredo,\n\nMuy buen trabajo! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','8qks9s9h',1,0,'',2,0,0),(39636,8513,3,2,0,'87.218.146.164',1192464794,1,0,1,1,1,1,'','','<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','1jlmi82c',1,0,'',2,0,0),(39637,8462,3,73,0,'200.23.18.132',1192465416,1,0,1,1,1,0,'','','Regards,\nPako','',0,'GA==','2sajbxul',1,0,'',73,0,0),(39638,8513,3,51,0,'80.122.88.242',1192465472,1,0,1,1,1,0,'','','Hello Antonio,\n\nI tried to use BtnBar with Menu to call the print jobs.\n\nThe first time I open the menu is exactly positioned. \nThen I print – close the preview window and open again the button with the menu on it.\nThe menu is not under the button.\n\nRegards,\nOtto\n[img:2j5s76oz]http&#58;//www&#46;atzwanger&#46;com/fw/buttonmenu2&#46;jpg[/img:2j5s76oz]','',0,'CA==','2j5s76oz',1,0,'',51,0,0),(39639,8515,6,73,0,'200.23.18.132',1192465981,1,0,1,1,1,0,'','grafico bajo tdosprn...','alguien sabra como imprimir un grafico con la clase tdosprn?\nes para una miniprinter epson de matriz de puntos y otra termica y pues estas si aceptan graficos, no quiero usar tprinter por cuestion de papel en forma continua, que no lo he podido configurar bajo tprinter\ngracias,\nPaco','',0,'CA==','gmglj0n0',1,0,'',73,0,0),(39640,8513,3,2,0,'87.218.146.164',1192466885,1,0,1,1,1,1,'','','Otto,\n\nWe are testing it here and its ok. \n\nHave you tried it with the original FWH 7.10 libs, without the new Menu 2007 implementation ?','',0,'CA==','21063nqr',1,0,'',2,0,0),(39641,8394,7,1135,0,'189.136.184.222',1192466917,1,0,1,1,1,1,'','','Antonio:\n\nNo, en realidad no he invertido el tiempo necesario para resolver toda la parte de conectividad desarrollando con FWPPC.\n\nEs mi primera aplicacion  FWPPC. Estoy apenas a punto de concluir la parte de interfaz de usuario, se trata de un sistema de venta en campo.\n\nAhora estoy preocupado porque no he visto respuestas concretas a como  resolver la parte de impresion por IRDA. Desde este foro, RF de google Mexico me habia sugerido utilizar una libreria de terceros, me puse encontacto con el, pero finalmente no pudo recordar el nombre del programa que utilizo en su momento.  \n\nRespecto al envio de datos por GPRS-FTP, espero el programa de ejemplo, segun lo que he seguido en el foro, trabaja sin problemas.\n\nMUCHAS GRACIAS de antemano por cualquier informacion concreta referente a conectividad, DEBO ACLARAR:no me siento capacitado aun como para desarrollar yo mismo una DLL con C++ y resolver los problemas. SALUDOS.\n\n\n[quote=&quot;Antonio Linares&quot;:1r5va4qz]Arturo,\n\nHas localizado algo al respecto ?[/quote:1r5va4qz]','',0,'gA==','1r5va4qz',1,0,'',1135,0,0),(39642,8496,3,303,0,'72.220.100.171',1192468774,1,0,1,1,1,0,'','','Antonio,\n\nI think this may be a buttonbar issue, but when I add a dropdown menu to the buttonbar, the buttonbar image is shifted to the right.\n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:2hv9g51f][img:2hv9g51f]http&#58;//img3&#46;freeimagehosting&#46;net/uploads/860ce53800&#46;jpg[/img:2hv9g51f][/url:2hv9g51f]','',0,'GA==','2hv9g51f',1,0,'',303,0,0),(39643,8394,7,2,0,'87.218.146.164',1192469141,1,0,1,1,1,1,'','','Arturo,\n\nNosotros te ayudaremos en todo lo posible, quedate tranquilo\n\nHay alguna razón específica para que sea por IRDA ?','',0,'GA==','vhkoai3m',1,0,'',2,0,0),(39644,8496,3,303,0,'72.220.100.171',1192469226,1,0,1,1,1,0,'','','Antonio,\n\nI note that disabled menu items that are disabled with a WHEN clause do not show the highlight bar when the cursor is over them. \n\nDisabled menu items that are disabled with the DISABLED clause DO show the highlight bar. I think that this behavior is incorrect.\n\nJames','',0,'GA==','22ulf9m3',1,0,'',303,0,0),(39645,8496,3,2,0,'87.218.146.164',1192469425,1,0,1,1,1,1,'','','James,\n\nIts already fixed. I send you the new LIBs','',0,'GA==','2y33as3d',1,0,'',2,0,0),(39646,8479,6,255,0,'201.122.36.212',1192471347,1,0,1,1,1,1,'','','Si... se ha omitido el instalador que traia mas problemas que ventajas... saludos a todos.','',0,'GA==','1kd2fe4u',1,0,'',255,0,0),(39647,8394,7,1135,0,'189.136.45.126',1192471879,1,0,1,1,1,1,'','','Tu pregunta es lógica, pues en general hoy la impresion tiende a ir por BT, el problema es que tengo un usuario final que conserva aún  impresoras IRDA en perfecto funcionamiento, están operando con la plataforma que estamos por migrar y desea conservarlas.\n\nGracias por tus comentarios. No dudo que será todo un éxito la migración a FWPPC.\n\ntiene [quote=&quot;Antonio Linares&quot;:8s0n2z2i]Arturo,\n\nNosotros te ayudaremos en todo lo posible, quedate tranquilo\n\nHay alguna razón específica para que sea por IRDA ?[/quote:8s0n2z2i]','',0,'gA==','8s0n2z2i',1,0,'',1135,0,0),(39648,8496,3,6,0,'87.20.214.154',1192472487,1,0,1,1,1,1,'','','Me too, please. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','39kd1mgo',1,0,'',6,0,0),(39649,8496,3,6,0,'87.20.214.154',1192472573,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3m7tsaz5]Antonio,\n\nI think this may be a buttonbar issue, but when I add a dropdown menu to the buttonbar, the buttonbar image is shifted to the right.\n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:3m7tsaz5][img:3m7tsaz5]http&#58;//img3&#46;freeimagehosting&#46;net/uploads/860ce53800&#46;jpg[/img:3m7tsaz5][/url:3m7tsaz5][/quote:3m7tsaz5]\n\nHow do you put the separator on the new style buttonbar? GROUP clause seems no longer working.\n\nEMG','',0,'mA==','3m7tsaz5',1,0,'',6,0,0),(39650,8496,3,6,0,'87.20.214.154',1192473030,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:1ukf9lu8]How do you put the separator on the new style buttonbar? GROUP clause seems no longer working.[/quote:1ukf9lu8]\n\nOk, they are magically came back. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1ukf9lu8',1,0,'',6,0,0),(39651,8479,6,1072,0,'201.214.54.17',1192474965,1,0,1,1,1,0,'','','Hola Verce:\n\nDesde ya muchas gracias por tu aporte, que nos ha facilitado mucho la vida.\n\nLa version 4.4 las ventanas de compilacion van quedando abiertas, produciendose una cascada, por otro lado, la pantalla se divide en dos, generandose las MDI, en la parte inferior de la pantalla no mostrando completamente el resultado de la compilacion. \n\nHe probrado en dos pc y me sucede lo mismo: ¿ Es normal  que suceda, o solo me sucede a mi?\n\nSaludos,\nAntonio\n\n\n[quote=&quot;VeRCE&quot;:dj3v4vz3]Si... se ha omitido el instalador que traia mas problemas que ventajas... saludos a todos.[/quote:dj3v4vz3]','',0,'gA==','dj3v4vz3',1,0,'',1072,0,0),(39652,8513,3,51,0,'80.122.88.242',1192476249,1,0,1,1,1,0,'','','Antonio,\nI tried to make an example. But all is working. \nIf I move the BUTTEN from the first to the second place in my own application it works too.\nRegards,\nOtto','',0,'gA==','1muigiio',1,0,'',51,0,0),(39653,8513,3,2,0,'87.218.146.164',1192476353,1,0,1,1,1,1,'','','Otto,\n\nYou can try samples\\re.prg that uses a POPUP on the first button of the buttonbar and it works ok too.\n\nAnyhow, I trust you, so it has to be something else <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1kq4fchu',1,0,'',2,0,0),(39657,8508,6,207,0,'189.158.85.170',1192485276,1,0,1,1,1,0,'','','marca tget bPostkey message not found[/img]','',0,'','1ewt5hn6',1,0,'',207,0,0),(39658,8496,3,868,0,'210.212.216.67',1192485590,1,0,1,1,1,1,'','','I think we all dont have the same versions. For me also group separtors dont work. In the sample shot posted by Mr. Antonio group separators are working. I did not get the version after fixing the disabled menuitem painting issue. Possible that the latest version with Mr Antonio has fixed all the issues.','',0,'','22au42xo',1,0,'',868,0,0),(39659,8518,6,389,0,'189.132.7.163',1192487223,1,0,1,1,1,0,'','OT: SVN de Harbour-Project','Hola !\nAlguien me podra indicar como se hace la configuracion del cliente SVN Tortoise.. para bajar Harbour del repositorio he probado con el link que esta en la pagina \n svn co <!-- m --><a class=\"postlink\" href=\"https://harbour-project.svn.sourceforge.net/svnroot/harbour-project\">https://harbour-project.svn.sourceforge ... ur-project</a><!-- m --> harbour-project\npero me marca error y no he podido bajar los archivos..\nSaludos\nGABO','',0,'','3dlgazuj',1,0,'',389,0,0),(39660,8496,3,868,0,'210.212.216.67',1192487522,1,0,1,1,1,1,'','','In the version I have this is the behavior with disabled and when .f. items:\n\n1) top bar items\n    disabled :  top menu item is painted gray.  we can not click the item also. painting is okay\n    when .f. :  top menu item looks normal ( not grayed ). we can click the item. It gets highlighted in orange color.  but all menutitems in the dropdown appear grayed and can not navigate to them\n\n2) dropdowns ( submens )\n     disabled items (without submenus):  in my version still painted wrongly ( this is corrected later).  but the mouse can navigate to the item, and the item is highlighed in gray color ( not orange highlight)\n     disabled items with submenus:  Painted \"correctly\" even in my version. Cursor can not go to the item. ( not like the case when this is a normal item without submenus)\n     when .f. ( without submenus) Item is grayed. Painted correctly. Mouse can not go there.\n     when .f. ( with submenus ): Item is grayed. Painted correctly. But mouse can go there. Highlighed in Orange color. But all the submenu items under this item appear grayed and we can not navigate there.  (similar to top bar items )\n\n( Now I am wondering how was the behaviour earlier. I never tested it like i am doing now )','',0,'','3hmz0lg2',1,0,'',868,0,0),(39661,8519,6,73,0,'200.23.18.132',1192488161,1,0,1,1,1,0,'','checkbox transparente...','hola foro,\ncomo hago un checkbox transparente? estan desde recurso y ahi ya le especifique tambien transparente...\nya probe:\n\n define dialog ..... TRANSPARENT\n activate dialog on init crea()\n\nstat fun crea()\n      FOR x := 1 TO 16\n          REDEFINE CHECKBOX oChk[x]  VAR lChk[x]  ID (nID+x)  OF oDlg\n          oChk[x]:lTransparent := .T.\n      NEXT\nRETURN NIL\n\ny nada, alguna otra idea?\ngracias\npaco','',0,'','28q64rwv',1,0,'',73,0,0),(39662,8518,6,2,0,'87.218.146.164',1192490594,1,0,1,1,1,1,'','','Nosotros usamos el SVN directamente. No usamos el Tortoise:\n\nsvn checkout <!-- m --><a class=\"postlink\" href=\"https://harbour-project.svn.sourceforge.net/svnroot/harbour-project/trunk/harbour\">https://harbour-project.svn.sourceforge ... nk/harbour</a><!-- m -->','',0,'','3lu3os07',1,0,'',2,0,0),(39663,8508,6,2,0,'87.218.146.164',1192490696,1,0,1,1,1,1,'','','Miguel,\n\nNecesitas usar una versión más reciente de la clase TGet de FWH\n\nQue versión de FWH estás usando ?','',0,'','19pdz9ak',1,0,'',2,0,0),(39664,8519,6,2,0,'87.218.146.164',1192490810,1,0,1,1,1,1,'','','Paco,\n\nUsas un brush en el diálogo ?','',0,'','77e89l27',1,0,'',2,0,0),(39665,8137,2,661,0,'189.155.207.62',1192491416,1,0,1,1,1,0,'','','bueno pues baje la clase y la compile, esta un poco confuso todo ya que no encontre documentacion muy explicita pero despues de un rato logre Mi Primer PDF!!!!!... aun me falta mucho por probar pero les doy la entrada de como mandar texto....\n\nfunction creapdf()\n   opdf := tpdf():new(\'e:\\mipdf.pdf\')\n   opdf:Pdfnewpage(\"A4\",\"P\")\n   opdf:Pdfatsay(\"HOLA MUNDO!!!!!!!!!!!\",800,10,.t.)\n   opdf:Pdfclosepage()\n   opdf:pdfclose()\nreturn .t.\n\n\nPD. Tube que agregar la siguiente funcion  en mi PRG ya que me decia que no estaba al momento de compilar:\n\nfunction filesize(cfile)\n   LOCAL nfiles := directory(cfile)\nreturn nfiles[1,2]\n\n\n\nSaludos desde Chihuahua,Mexico.\nAlex.\nSaludos','',0,'','22zzuosh',1,0,'',661,0,0),(39666,8519,6,73,0,'189.157.189.209',1192493644,1,0,1,1,1,0,'','','No, uso simplemente color..\n\n Define dialog oDlg COLOR nRGB(232,232,208),nRGB(232,232,208) TRANSPARENT\n\ntengo say e bitmap y esos si los toma transparentes...\ngracias\nPaco','',0,'','2r7e1p3w',1,0,'',73,0,0),(39667,8520,1,173,0,'202.28.179.13',1192501355,1,0,1,1,1,0,'','How to use [ Ctrl ]+[ C] in TGET ?','Dear all,\n\n     I\'m use FiveWin 2.1c and clipper 5.2e now. So I try to use [ Ctrl ]+[ C ]  for copy text in get box and [ Ctrl ]+[ V ] for paste some text in get box of TGET, but not work. How I do for use them ?\n\nBest Regard,\n\nPeter','',0,'','1069bv80',1,0,'',173,0,0),(39668,8496,3,868,0,'219.64.121.60',1192505540,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks for the latest libs.  \n\nThe issue pointed out by Mr. James regarding the white line between the menu and buttonbar is still to be fixed. \n\nIntersting are the differences between the look and functionality of menuteims disabled vs. when .f.\n\nDisabled menuitems work fine everywhere on the top bar as well as in the submenus both appearancewise and functionalitywise. They are grayed and do not function.\n\nBehaviour of items disabled with When .F. clause is interesting:\n\nTOPBAR: Initially they look normal. Not grayed. We can click on them. They get highlighed in orange color like any other item. If the top item has  a dropdown menu all the items in the dropdown menu are grayed and we can not click them.\n\nBUT ...... after we keep toying with other working menus and their dropdown items, the topmenu (when .f.) items turn Gray .. When do they turn is a bit unpredictable. Once they turn gray we can not click on them.\n\nSUBMENUS:\n\nItems disabled with \'disabled\' clause work correctly in everyway.\n\nWhen the item is disabled with When .F., if the item does not have a child submenu, it is like normal disabled items and is fine.\n\nBut if it has a child submenu, the item looks normal, gets orange high light when mouse hovers and displays the child submenu with all the child itemgs grayed.\n\nThese are my quick observations.','',0,'','1impu3v8',1,0,'',868,0,0),(39669,8496,3,868,0,'219.64.121.60',1192506137,1,0,1,1,1,1,'','','On 256 colors:\n\nI understand that time could not be devoted for this.  The issue of top menu items getting erased is still there.\n\nI have a few suggestions for 256 colors ( whenever time can be spared for this ):\n\n1.  TopBar:\nThe library can paint the menus with the new look if colors &gt; 256 and otherwise retain the earlier colors.\n2.  Dropdowns:\nif the colors &gt; 256 paint in new colors else paint the vertical bar with buttonface color and menuitems themselves on pure white background.  This still gives a neat \"NEW\"  look even with 256 colors. Better look than earlier normal menus.','',0,'','d8qamofb',1,0,'',868,0,0),(39670,8496,3,303,0,'72.220.100.171',1192506233,1,0,1,1,1,0,'','','&gt;The issue pointed out by Mr. James regarding the white line between the menu and buttonbar is still to be fixed. \n\nActually, that is not what I meant. What was happening was that the section of the white line under the menu was changing to blue when the cursor was moved over the menu choice. That has been fixed--it no longer changes to blue.\n\nI think the white line is supposed to be there--it is a highlighted edge of the buttonbar. I don\'t have a copy of Office 2007 here to compare it to though.\n\nI agree that there is still a problem with top level menu choices that are disabled with the WHEN clause.\n\nJames','',0,'','3l7mbepn',1,0,'',303,0,0),(39671,8518,6,389,0,'189.132.7.163',1192507005,1,0,1,1,1,0,'','Gracias !','Gracias antonio.. funciona perfecto ese link..\nSaludos\nGABO','',0,'','1gppkf17',1,0,'',389,0,0),(39672,8496,3,868,0,'219.64.121.60',1192507465,1,0,1,1,1,1,'','','Mr James\n\n&gt; What was happening was that the section of the white line under the menu &gt; was changing to blue when the cursor was moved over the menu choice\n\nI did understand you correctly. In the latest version I got a few hours back, the white line is still turning blue in the circumstances you explained above.\n\nI also remember Mr. Antonio said he fixed it. Sure he must have and you might have tested it then.  \n\n&gt; That has been fixed--it no longer changes to blue.\n\nThe point is in the latest libs I got now the problem is there. Dont know why the problem resurfaced. I never had the earlier version you checked.\n\nAfter seeing your post, I redownloaded, unzipped again and confirm this.','',0,'','5frptifl',1,0,'',868,0,0),(39673,8426,3,303,0,'72.220.100.171',1192507500,1,0,1,1,1,0,'','','Antonio,\n\nYour graphic shows the background color of the message bar text insets as white. Mine is showing as gray. White would be better.\n\nI am using the latest libs you sent; today (Oct 15) I think.\n\nJames','',0,'','1rffzu01',1,0,'',303,0,0),(39674,8496,3,303,0,'72.220.100.171',1192507761,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;&gt; What was happening was that the section of the white line under the menu &gt; was changing to blue when the cursor was moved over the menu choice \n\n&gt;I did understand you correctly. In the latest version I got a few hours back, the white line is still turning blue in the circumstances you explained above.\n\nAnd right you are! It is late here and my eyes are tired and not as good as they used to be. I used a maginfier to look at it again, and the blue is still there.\n\nJames','',0,'','2o8p455f',1,0,'',303,0,0),(39675,8479,6,54,0,'189.132.100.144',1192509439,1,0,1,1,1,1,'','','Antonio,\n\nEl problema de la mitad de la MDI se ha corregido, lo de las compilaciones en cascada, lo reviso a la brevedad.\n\nahora se ha liberado la 4.5\n\nsaludos\n\npd. esperemos Juán Carlos modifique la página de verce','',0,'','3royzitp',1,0,'',54,0,0),(39676,8479,6,54,0,'189.132.100.144',1192511255,1,0,1,1,1,1,'','','Antonio,\n\nCorregido el problema de las multiples ventanas de compilación, ahora se cierra automaticamente al recompilar.','',0,'','2d20ma1y',1,0,'',54,0,0),(39677,8491,3,2,0,'87.218.146.29',1192512685,1,0,1,1,1,1,'','','Here you have the file:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/62873161/Fivehmx.xbp.zip.html\">http://rapidshare.com/files/62873161/Fi ... p.zip.html</a><!-- m -->','',0,'','2xgzlp38',1,0,'',2,0,0),(39678,8519,6,2,0,'87.218.146.29',1192512991,1,0,1,1,1,1,'','','Paco,\n\nTu aplicación usa temas ? (fichero WindowsXP.Manifest incluido en los recursos)','',0,'','1dqibt8l',1,0,'',2,0,0),(39679,8496,3,2,0,'87.218.146.29',1192513580,1,0,1,1,1,1,'','','James,\n\nAre you testing on Windows XP ? On Vista is fine.','',0,'','35ve8f7z',1,0,'',2,0,0),(39680,8496,3,868,0,'210.212.216.67',1192513674,1,0,1,1,1,1,'','','I am testing on XP','',0,'','2j8j3hxv',1,0,'',868,0,0),(39681,8520,1,2,0,'87.218.146.29',1192513678,1,0,1,1,1,1,'','','Peter,\n\nThose bugs were fixed in more recent FW versions. There are many changes in Class TGet so you need to upgrade your FW version.','',0,'','ddyl3wr6',1,0,'',2,0,0),(39682,8496,3,2,0,'87.218.146.29',1192516427,1,0,1,1,1,1,'','','&gt; and the blue is still there. \n\nFixed. There was a different behavior between XP and Vista\n\nNageswararao, could you please email me a 256 colors screenshot with the menus ? thanks','',0,'','1gsvxqiq',1,0,'',2,0,0),(39683,8496,3,2,0,'87.218.146.29',1192516845,1,0,1,1,1,1,'','','James,\n\n&gt; I agree that there is still a problem with top level menu choices that are disabled with the WHEN clause. \n\nTo disable top menu items, the DISABLE clause has to be used. We can\'t use WHEN ... there as WHEN is only evaluated when the menuitem is clicked','',0,'','2fwcbrur',1,0,'',2,0,0),(39684,8496,3,2,0,'87.218.146.29',1192517349,1,0,1,1,1,1,'','','&gt;\nTo disable top menu items, the DISABLE clause has to be used. We can\'t use WHEN ... there as WHEN is only evaluated when the menuitem is clicked\n&gt;\n\nWe found a workaround <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nNow both WHEN .F. and DISABLE are fine on the top bar menuitems','',0,'','11jah3ar',1,0,'',2,0,0),(39685,8521,3,6,0,'87.19.210.63',1192520830,1,0,1,1,1,1,'','Bug in TBar?','With the latest libs I get\n\n[code:27hm8gzx]Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; OBAR[/code:27hm8gzx]\n\nrunning the following sample:\n\n[code:27hm8gzx]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oPrn\n\n    PRINT oPrn PREVIEW\n        PAGE\n        ENDPAGE\n    ENDPRINT\n\n    RETURN NIL[/code:27hm8gzx]\n\nEMG','',0,'AIA=','27hm8gzx',1,0,'',6,0,0),(39686,8521,3,868,0,'210.212.216.67',1192522203,1,0,1,1,1,1,'','','Guess RPreview is checking for oBar of WndMain().  In this example WndMain() returns NIL.   This is my guess but this is the most likely possiblity.\n\nMr. Antonio to Fix it in notime.','',0,'AIA=','d6xio4mi',1,0,'',868,0,0),(39687,8521,3,868,0,'210.212.216.67',1192522287,1,0,1,1,1,1,'','','Sorry,  I meant \nMt Antonio \"can\" fix in no time.','',0,'AIA=','19plin6v',1,0,'',868,0,0),(39688,8521,3,2,0,'87.218.146.29',1192522520,1,0,1,1,1,1,'','','Fixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThanks','',0,'AIA=','1ti57uhc',1,0,'',2,0,0),(39689,8496,3,2,0,'87.218.146.29',1192522648,1,0,1,1,1,1,'','','Preview seems to be ready:\n\n[url=http&#58;//imageshack&#46;us:uwd2jk3h][img:uwd2jk3h]http&#58;//img152&#46;imageshack&#46;us/img152/2437/previewdj3&#46;png[/img:uwd2jk3h][/url:uwd2jk3h]','',0,'GA==','uwd2jk3h',1,0,'',2,0,0),(39690,8497,6,2,0,'87.218.146.29',1192522793,1,0,1,1,1,1,'','','Previews terminados:\n\n[url=http&#58;//imageshack&#46;us:aw8iolfm][img:aw8iolfm]http&#58;//img152&#46;imageshack&#46;us/img152/2437/previewdj3&#46;png[/img:aw8iolfm][/url:aw8iolfm]','',0,'GA==','aw8iolfm',1,0,'',2,0,0),(39691,8496,3,868,0,'219.64.121.60',1192526155,1,0,1,1,1,1,'','','Again the old problem with RPreview.Prg has cropped up. Earlier it was fixed but now after adopting the new color scheme the fix seems to have been lost.\nIn MDI environment when I am closing the last Mdi Preview window, error is occuring.\n\nError is reproduced here: ( Though I dont have the line numbers I suspect that the error may  be in the PaintMeta function )\n\n[code:rl1ilpwb]\nApplication\n===========\n   Path and name&#58; C&#58;\\TESTS\\Bin\\PREVUE&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,355,264 bytes\n   Time from start&#58; 0 hours 0 mins 7 secs \n   Error occurred at&#58; 10/16/07, 14&#58;53&#58;27\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; END\n   Args&#58;\n     &#91;   1&#93; = U   \n\nStack Calls\n===========\n   Called from&#58;  =&gt; END&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; &#40;b&#41;TPREVIEW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; MDICHILD&#46;PRG =&gt; TMDICHILD&#58;END&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; &#40;b&#41;TPREVIEW&#58;BUILDBUTTONBAR&#40;0&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;CLICK&#40;0&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;LBUTTONUP&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; PREVUE&#46;prg =&gt; MAIN&#40;41&#41;\n[/code:rl1ilpwb]','',0,'AIA=','rl1ilpwb',1,0,'',868,0,0),(39692,8496,3,2,0,'87.218.146.29',1192526718,1,0,1,1,1,1,'','','NageswaraRao,\n\nPlease test with the new LIBs that I have just emailed you','',0,'AIA=','13rrl1pm',1,0,'',2,0,0),(39693,8496,3,868,0,'219.64.121.60',1192527216,1,0,1,1,1,1,'','','I just tried. Preview is working okay now. The error does not occur any more\nThanks','',0,'AIA=','3rppn6mz',1,0,'',868,0,0),(39694,8496,3,868,0,'219.64.121.60',1192527678,1,0,1,1,1,1,'','','About the new libs:\n\n1. Chaning the whiteline\'s color to blue is fixed. Working well on XP.\n\n2. When.f. Issue:\n    Both top bar items and dropdown items are grayed with When.F. also, but ONLY when the item does not have a submenu. (This is very unlikely with topbar menu items)\n\n    If the top bar item has a dropdown menu or the submenu has a child submenu, even if the item is disabled with When..F. clause, the menuitem ( both on top bar and dropdown ) looks enabled, we can navigate to the item, item gets highlighted with orange color. However all its submenu items are grayed.  Seems this is still to be addressed.','',0,'AIA=','b26o6khj',1,0,'',868,0,0),(39695,8496,3,2,0,'87.218.146.29',1192527866,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt;\n2. When.f. Issue: \nBoth top bar items and dropdown items are grayed with When.F. also, but ONLY when the item does not have a submenu. (This is very unlikely with topbar menu items) \n\nIf the top bar item has a dropdown menu or the submenu has a child submenu, even if the item is disabled with When..F. clause, the menuitem ( both on top bar and dropdown ) looks enabled, we can navigate to the item, item gets highlighted with orange color. However all its submenu items are grayed. Seems this is still to be addressed.\n&gt;\n\nCould you please provide me a sample PRG ? thanks','',0,'AIA=','p3n7u7su',1,0,'',2,0,0),(39696,8522,3,51,0,'80.122.88.242',1192528110,1,0,1,1,1,0,'','Harbour Set date to GERMAN','Does harbour respect the set date to GERMAN function?\n\nMy FW program is showing the names of the days correct in GERMAN the  FWH version in English.\n\n\nRegards,\nOtto','',0,'AIA=','2z1sxmp4',1,0,'',51,0,0),(39697,8521,3,6,0,'87.19.210.63',1192528441,1,0,1,1,1,1,'','','Sorry, now it gives\n\n[code:12fizbnl]Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; L2007[/code:12fizbnl]\n\nEMG','',0,'AIA=','12fizbnl',1,0,'',6,0,0),(39698,8521,3,2,0,'87.218.146.29',1192528954,1,0,1,1,1,1,'','','Fixed, thanks Enrico <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2pfybcbz',1,0,'',2,0,0),(39699,8521,3,868,0,'219.64.121.60',1192528997,1,0,1,1,1,1,'','','It is the same issue. The intention was to ascertain if the WndMain()\'s oBar and oMsgBar\'s l2007 is true.\n\nAnother peaceful look at the code will bring out where all the nil checks are to be made.','',0,'AIA=','k9yow9kz',1,0,'',868,0,0),(39700,8521,3,2,0,'87.218.146.29',1192529055,1,0,1,1,1,1,'','','Please check with the new LIBs just sent, thanks!','',0,'AIA=','g0vn7yv6',1,0,'',2,0,0),(39701,8522,3,2,0,'87.218.146.29',1192529193,1,0,1,1,1,1,'','','Otto,\n\nYou have to use:\n\nREQUEST HB_Lang_DE\nREQUEST HB_CODEPAGE_DEWIN \n\nHB_LangSelect(\"DE\") \nHB_SetCodePage(\"DEWIN\")','',0,'AIA=','2tlcjuew',1,0,'',2,0,0),(39702,8521,3,6,0,'87.19.210.63',1192529195,1,0,1,1,1,1,'','','Sorry, no change.\n\nEMG','',0,'AIA=','uldas1gr',1,0,'',6,0,0),(39703,8521,3,2,0,'87.218.146.29',1192529493,1,0,1,1,1,1,'','','Damn, I left one. Fixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1dtp18is',1,0,'',2,0,0),(39704,8521,3,6,0,'87.19.210.63',1192529604,1,0,1,1,1,1,'','','It\'s ok now, thank you.\n\nEMG','',0,'AIA=','1mdmkopm',1,0,'',6,0,0),(39705,8522,3,51,0,'80.122.88.242',1192530019,1,0,1,1,1,0,'','','Thank you Antonio,\n  REQUEST HB_Lang_DE\n   // REQUEST HB_CODEPAGE_DEWIN\n\n    HB_LangSelect(\"DE\")\n  //  HB_SetCodePage(\"DEWIN\")\n\nThis way it compiles and the names are correct.\nWhat do I have to link in for the Codepage?\n\nRegards,\nOtto\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_CODEPAGE_DEWIN\' referenced from C:\\DEVELO\nP8\\WH_FWH\\XWINHOTEL\\OBJ\\WINHOTEL.OBJ','',0,'AIA=','1346mn57',1,0,'',51,0,0),(39706,8522,3,51,0,'80.122.88.242',1192531202,1,0,1,1,1,0,'','','echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc \n\nI found the lib.','',0,'AIA=','3blai5w8',1,0,'',51,0,0),(39707,8497,6,362,0,'200.158.19.16',1192533362,1,0,1,1,1,1,'','','QUE MARABILLOSO, ANTONIO. CONGRATULATIONS!','',0,'AIA=','a59te46j',1,0,'',362,0,0),(39709,8524,6,774,0,'164.77.167.245',1192536512,1,0,1,1,1,1,'','TRANSPARENT EN SAY NO FUNCIONA::::','colegas nose porque motivo si se hace esto:\n\nREDEFINE SAY oSay VAR vSay blablablabla\noSay:lTransparent=.T.\n!!! la de lujo la transparencia:::\n\nsi se hace asi:: tiene problemas\n\nREDEFINE SAY oSay[1] VAR vSay[1] blablabla\noSay[1]:lTransparent=.T.\n\n\nen resumen si el transparent se aplica sobre un array no funciona y marce un error , de dimension del array,,, DBF/1132 si no mal recuerdo:::\n\n\n\nalguien sabe como arreglarlo... si es q se puede...\n\n\nGRACIAS','',0,'','eooj7tqx',1,0,'',774,0,0),(39710,8496,3,303,0,'72.220.100.171',1192536890,1,0,1,1,1,0,'','','Antonio,\n\nThe last item on the top menu (on the right) is not displaying items in the pulldown. It only shows a separator bar and it shows this bar even if no seperator bar was specified and if there are no items in the pulldown. \n\nJames','',0,'','3ol4k0is',1,0,'',303,0,0),(39711,8496,3,868,0,'219.64.121.60',1192537122,1,0,1,1,1,1,'','','But here it is working well.  I am able to click on the last item and see the dropdown menu. I have no such problem here','',0,'','2w7f3dgo',1,0,'',868,0,0),(39712,8496,3,303,0,'72.220.100.171',1192537541,1,0,1,1,1,0,'','','NageswaraRao,\n\nI looked at my code again, and you are right again. I had some old code under the menu item that I forgot to comment out. Now it is working properly.\n\nJames','',0,'','hh37k3ul',1,0,'',303,0,0),(39713,8524,6,2,0,'87.218.146.29',1192538035,1,0,1,1,1,1,'','','No será que en vez de [1] estás usando una variable tipo [n] ó similar ?','',0,'','1czcpdaj',1,0,'',2,0,0),(39714,8479,6,1072,0,'200.83.124.16',1192538140,1,0,1,1,1,0,'','','Wmormar:\n\nHola Amigo, muchas gracias por el esfuerzo y el aporte, esperamos que se habilite la actualizacion, para poder bajarla.\n\nSaludos,\nAntonio.\n\n\n\n\n[quote=&quot;wmormar&quot;:36gzzxcw]Antonio,\n\nCorregido el problema de las multiples ventanas de compilación, ahora se cierra automaticamente al recompilar.[/quote:36gzzxcw]','',0,'gA==','36gzzxcw',1,0,'',1072,0,0),(39715,8522,3,2,0,'87.218.146.29',1192538162,1,0,1,1,1,1,'','','Otto,\n\ncodepage is for indexes, sort, etc.','',0,'gA==','2qys3tj9',1,0,'',2,0,0),(39716,8257,3,3,0,'80.81.159.19',1192540636,1,0,1,1,1,1,'','','Stefan\n\nCan you share the source code of the class ?\n\nTim, Are you using it ?\n\nThanks for response,\n\nRichard','',0,'gA==','1n82husj',1,0,'',3,0,0),(39717,8493,12,1189,0,'200.27.117.26',1192545818,1,0,1,1,1,0,'','','Gracias Antonio, \n\npero el problema no es de hardware, si no software, al correr mis actuales aplicaciones Clipper en equipos windows xp o windows 2000 en proceso de sistema ntdvm.exe se va al 100%, por lo tanto solo puedo ocupar la aplicacion clipper dejandome el pc tomado para cualquier otro proceso, por lo que lei podia compilar mis aplicaciones con harbour, para 23 bits y solucionar este problema.','',0,'gA==','22gniwn7',1,0,'',1189,0,0),(39718,8479,6,72,0,'189.146.242.84',1192546537,1,0,1,1,1,0,'','','Willy, puedes agrandar eltamaño de la cadena \'Parámetros del EXE\'?\n\nGracias.','',0,'gA==','2il8l9uc',1,0,'',72,0,0),(39719,8493,12,103,0,'189.43.121.190',1192547279,1,0,1,1,1,1,'','','Hola David,\n\n   Sobre el tema de Clipper rodando en Win XP, puedes simplemente añadir el Timeslic.obj a tu proyecto y creo que esto solucionará tu problema con el consumo de la CPU. Cuanto a pasar para Harbour o xHarbour es una buena idea, especialmente si deseas aplicaciones Windows pasate a FWH y no tendrás problemas.\n\nSaludos','',0,'gA==','2rgld4ge',1,0,'',103,0,0),(39720,8525,6,362,0,'200.158.19.16',1192547726,1,0,1,1,1,1,'','IDENTIFICADOR DE LLAMADAS DE TELÉFONO','Buenas amigos, necesito alguna información sobre: identificador de(llamadas/llamamientos)-&gt;   ( calling number identification ), de TELÉFONO.\n\nComo puedo hacer en FIVEWIN FOR XHARBOUR.\n\nAlguién de ustedes tiene un Programa ejemplo que pueda enviarme?\n\n<!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->\n\nMuchas gracias.\n\nRegards, saludos.','',0,'gA==','l9k9j492',1,0,'',362,0,0),(39721,8496,3,868,0,'219.64.121.60',1192549498,1,0,1,1,1,1,'','','Mr Antonio\n\nWe have been discussing here about the difference in looks and funtionality of menuitems disabled by \'disabled\' clause Vs when condition.\n\nI took sometime to relink the programs with old menustyle (FWH 7.10).  The differences were exactly the same earlier also, including left shifting of disabled menuitem painting. \n\nWe did not pay attention to these nuanaces earlier. \n\nProbably you may be aware of this.  Now you may decide what kind of functionality you would like to provide in the final release.','',0,'gA==','2oa9wry1',1,0,'',868,0,0),(39722,8526,6,23,0,'81.39.42.141',1192549769,1,0,1,1,1,1,'','Comprobar ZIP','Buenaaaas, ¿existe alguna función para comprobar la integridad de un fichero ZIP en (x)Harbour ? \n\nSe me ocurrió ir descomprimiendo todos los archivos y si no obtenía ningún error darlo por bueno, pero ... es algo engorroso.\n\n¿Alguien puede arrojar un poco de sabiduria con este tema?\n\nGracias','',0,'gA==','3n24npvz',1,0,'',23,0,0),(39723,8257,3,34,0,'68.5.217.82',1192552569,1,0,1,1,1,1,'','Class','Richard,\n\nNo, I\'m not using it.  I commented back directly on some issues, but in fact, it doesn\'t work like the calendar/scheduling classes we see today.  I\'m doing some extensive cleanup work ( about 100,000 lines of code ), and when I finish that ( hopefully next week ), I\'m going to look into this issue more extensively, and perhaps build a component that gets me closer to what I want.\n\nI\'ve looked at some existing controls but they don\'t address DBF files, and they are inherently single user.  I want to build a scheduler for a shop that can be accessed from any computer, updated from any computer, and which displays like the current day/week/month schedulers ( ie. Outlook appearance ).  I have one right now that is a modification of a DOS scheduler, and it works, but it doesn\'t have the visual type interface our clients will expect today.  Its an enhancement of the old Grumpfish program, turned into a GUI.\n\nTim','',0,'gA==','1u5izz6m',1,0,'',34,0,0),(39724,8527,6,1072,0,'200.83.124.16',1192552732,1,0,1,1,1,0,'','Ayuda sobre esta Duda','Hola Amigos:\n\nTengo dos dudas que necesito aclarar:\n\n. Cuantas bases de datos y archivos indices puedo abrir simultanemente en Fwh 7.01 y xharbour.?\n\n. Que beneficio tiene el pasar un programa de utilidades que uso para mis sistemas a una libreria y enlazarla con cada uno de mis sistemas?, existe alguna diferencia entre ambas opciones?\n\nSaludos,\nAntonio','',0,'gA==','1oxj8td5',1,0,'',1072,0,0),(39725,8496,3,2,0,'87.218.146.29',1192553209,1,0,1,1,1,1,'','','NageswaraRao,\n\nI have seen your 256 colors screenshots, thanks.\n\nIMO it has no sense to use the 2007 look on 256 colors, so once it is implemented as optional, you chould check the amount of colors and if they are 256 then don\'t use the 2007 clause','',0,'gA==','32zxgm91',1,0,'',2,0,0),(39726,8496,3,868,0,'219.64.121.60',1192555943,1,0,1,1,1,1,'','','Thanks Mr Antonio\n\nThat is ok about 256 colors issue, though I still have a nagging feeling that buttonface color vertical bars can be provided for 256 color situations.\n\nI suggest we may treat the issue of differences in \'disabled\' Vs when .f. also as closed. The present behaviour is the same as it was in the earlier menu system. In fact there is an improvement now that the disabled prompts are properly aligned.  This fix may be applied to non-2007 style also.  It may not be that important to achieve identical behaviour in both the cases.\n\nWhy cant we accept these differences as the feature of our menu system? As programmers we decide when to enable / disable menuitems or control the accessibility through when clause.\n\nIf this is acceptable to other friends also, Mr Antonio can devote his time for other developments treating this issue as closed.  This is my personal opinion.','',0,'gA==','2yjoiye5',1,0,'',868,0,0),(39727,8519,6,73,0,'200.23.18.132',1192559530,1,0,1,1,1,0,'','','no estoy usando temas, pero si tengo incluido el windowsxp.manifest en el archivo de recursos..\nsalu2\nPaco','',0,'gA==','2wz7he2e',1,0,'',73,0,0),(39728,8527,6,1072,0,'190.82.39.153',1192560341,1,0,1,1,1,0,'','Re: Ayuda sobre esta Duda','Amigos\n\nNadie lo tiene claro.......????????????????\n\n\n[quote=&quot;mantonio_08&quot;:1ttsaz7c]Hola Amigos:\n\nTengo dos dudas que necesito aclarar:\n\n. Cuantas bases de datos y archivos indices puedo abrir simultanemente en Fwh 7.01 y xharbour.?\n\n. Que beneficio tiene el pasar un programa de utilidades que uso para mis sistemas a una libreria y enlazarla con cada uno de mis sistemas?, existe alguna diferencia entre ambas opciones?\n\nSaludos,\nAntonio[/quote:1ttsaz7c]','',0,'gA==','1ttsaz7c',1,0,'',1072,0,0),(39729,8479,6,278,0,'200.126.104.68',1192560818,1,0,1,1,1,1,'','','Hola Wmormar: \n\nGracias a JC y a ti por tu trabajo, es una herramienta excelente que me ayuda mucho.\n\nCuando se podrá bajar la version 4.5 ??\n\nSaludos,','',0,'gA==','2o5li1uy',1,0,'',278,0,0),(39730,8519,6,2,0,'87.218.146.29',1192561449,1,0,1,1,1,1,'','','Paco,\n\nAunque no los uses, al incluir ese fichero, FWH entiende que estás usando temas y eso modifica ciertos comportamientos (busca en los PRGs de FWH por IsAppThemed() )\n\nSi tienes un color de fondo y quieres que el checkbox sea transparente, porque no le asignas el mismo color que el del diálogo ? Pero posiblemente tendrás que quitar el fichero de temas del RC','',0,'gA==','3dlnc0tp',1,0,'',2,0,0),(39731,8527,6,2,0,'87.218.146.29',1192561568,1,0,1,1,1,1,'','','Antonio,\n\n&gt;\nCuantas bases de datos y archivos indices puedo abrir simultanemente en Fwh 7.01 y xharbour.? \n&gt;\n\nEn principio no hay límite\n\n&gt;\n. Que beneficio tiene el pasar un programa de utilidades que uso para mis sistemas a una libreria y enlazarla con cada uno de mis sistemas?, existe alguna diferencia entre ambas opciones?\n&gt;\n\nEs una opción. Hazlo como te sea más útil','',0,'gA==','2oehzjxs',1,0,'',2,0,0),(39732,8527,6,1072,0,'190.82.39.153',1192562379,1,0,1,1,1,0,'','','Muchas Gracias maestro. Me queda muy claro.\n\n\n[quote=&quot;Antonio Linares&quot;:u9dijmji]Antonio,\n\n&gt;\nCuantas bases de datos y archivos indices puedo abrir simultanemente en Fwh 7.01 y xharbour.? \n&gt;\n\nEn principio no hay límite\n\n&gt;\n. Que beneficio tiene el pasar un programa de utilidades que uso para mis sistemas a una libreria y enlazarla con cada uno de mis sistemas?, existe alguna diferencia entre ambas opciones?\n&gt;\n\nEs una opción. Hazlo como te sea más útil[/quote:u9dijmji]','',0,'gA==','u9dijmji',1,0,'',1072,0,0),(39733,8488,6,975,0,'190.90.131.5',1192563129,1,0,1,1,1,0,'','','gracias, nos funcionó.\n\n\n\n//////////////////////////////////\n\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> Otra de Las dudas que tenemos; Es como hacer que dentro del mismo TXBROWSE dando doble clic sobre un registro, nos despliegue una ventana, para modificarlo.\n\n\n\nLeandro, Necesito tu teléfono ó Celular Para Contactarnos. \n\n\n\n\nGracias;\n\nJhon Jairo Valencia Diaz Y Adolfredo Martinez\n\"Aracataca - Magdalena\" Colombia','',0,'gA==','28fwj2s0',1,0,'',975,0,0),(39734,8488,6,53,0,'189.139.17.241',1192563574,1,0,1,1,1,1,'','','Jhon:\n\nCon doble clic:\noLbx:blDblClick := { | nRow, nCol, nKey | TuFuncion()}\n\nY con ENTER:\noLbx:bKeyDown  := { | nKey, nFlags | TuFuncion()}\n\nSaludos','',0,'gA==','skat8466',1,0,'',53,0,0),(39735,8527,6,53,0,'189.139.17.241',1192564273,1,0,1,1,1,1,'','','Antonio:\n\nUmmm, razonando un poco sobre el segundo punto deduzco que cuando compilas el PRG de utilidades como parte de una aplicación el EXE debe aumentar su tamaño con el 100% del tamaño del PRG de utilidades pues todas las funciones (utilidades) que forman el PRG se incluyen en el EXE de la aplicación, por el contrario si haces una LIB con el PRG de utilidades y despues la LINKAS al EXE de la aplicación este debera aumentar solo con las funciones que utilices en la aplicación y no con el 100% del tamaño.\n\nHabrá que probar ambos casos para probar esta teoría y ver cuanto es la diferencia de tamaño entre un caso y otro.\n\nSaludos','',0,'gA==','31qhuc20',1,0,'',53,0,0),(39736,8524,6,774,0,'164.77.167.245',1192566978,1,0,1,1,1,1,'','','Si antonio asi lo uso:: con un \n\nfor x= 1 to ???\n\nREDEFINE SAY oSay[x] VAR blblalalala\noSay[x]:lTransparent=.T. \n\nnext x\n\nq no se puede hacer asi::: \n\nentonces tiene limitantes el transparent:::\n\n\nGRACIAS','',0,'','1ge3i75e',1,0,'',774,0,0),(39737,8519,6,73,0,'200.23.18.132',1192570448,1,0,1,1,1,0,'','','bien\ngracias Antonio\nsalu2\nPaco','',0,'','1o7fn1cd',1,0,'',73,0,0),(39739,8529,6,1178,0,'200.24.127.11',1192574051,1,0,1,1,1,0,'','Cual es la Diferencia entre twbrowse txBrowse y Browse','He visto en la Documentacion estos tipos de Browser, twbrowse txBrowse y Browse y Listbox , cual es la diferencia de cada uno de ellos todos hacen lo mismo hay una uno mas potente de todos. \n\nPra usar twbrowse txBrowse se requieren algunas librerias especificas , actualmente tewngo FWH 2.7 y HArbour Build 45','',0,'','3plp0ypd',1,0,'',1178,0,0),(39740,8524,6,2,0,'87.218.146.29',1192575798,1,0,1,1,1,1,'','','&gt;\nen resumen si el transparent se aplica sobre un array no funciona y marce un error , de dimension del array,,, DBF/1132 si no mal recuerdo:::\n&gt;\n\nQue error exactamente te da y como reproducirlo ?','',0,'','w7zbs8eo',1,0,'',2,0,0),(39741,8529,6,2,0,'87.218.146.29',1192575988,1,0,1,1,1,1,'','','El primer browse que se implementó en FW es el TWBrowse. Es muy rápido, ya que se diseñó para ordenadores lentos.\n\nA partir de ese, se deriva la clase TCBrowse, que ya usa objetos columna.\n\nFinalmente el TXBrowse es el más completo y por lo tanto el más complicado de usar.\n\nA parte de esos tres propios de FWH, varios usuarios han implementado otros browses, como el de Hernán, Manuel Mercado, etc.','',0,'','trkowr02',1,0,'',2,0,0),(39743,8527,6,138,0,'201.221.200.142',1192580500,1,0,1,1,1,1,'','','Y ahora yo pregunto....\n\n¿ para que preocuparse del tamaño del EXE ?.... es Windows !!!!! no hay limite en los tamaños del EXE !!!!!\n\nSi el Excel mide 15 megas y el Word 11, nuestros PRGs pueden tranquilamente llegar a ese tamaño.','',0,'','1erb9xfd',1,0,'',138,0,0),(39744,8530,6,215,0,'189.136.198.28',1192582376,1,0,1,1,1,1,'','¿Qué le ven de raro a este código?','Según yo... nunca, bajo ninguna circunstancia debe de aparecer me msgstop... lo curioso es que a veces me aparece a veces no. Siempre en la misma base de datos. \n\nEsta es una función que uso para asegurarme de puedo agregar o bloquear un registros antes de actualizarlo.\n\nSaludos\nFernando\n\n\n\n\nFunction Seguro( cAlias, cTipo)         // B - Rlock    A - Append Blank\n  local  nSegundos := 1\n\n  Do Case\n  Case cTipo == \"B\"\n\n       If ( cAlias)-&gt;( DbRlock() )\n          Return TRUE\n       Else\n          Do While ( cAlias )-&gt;( !DbRlock() )\n             nSegundos++\n             Inkey(1)\n\n             If ( cAlias )-&gt;( DbRlock() )\n                Return TRUE\n             Endif\n\n             If nSegundos &gt;= 5\n                MsgAlert(\"No se puede actualizar el registro\"+Chr(13)+;\n                            \"Reintentar nuevamente\")\n                nSegundos := 1\n             Endif\n          EndDo\n       Endif\n\n\n  Case cTipo == \"A\"\n\n       ( cAlias )-&gt;( dbappend() )\n       If !NetErr()\n          Return TRUE\n       Endif\n\n       Do While TRUE\n          nSegundos++\n          Inkey(1)\n\n          ( cAlias )-&gt;( dbappend() )\n          If !Neterr()\n             Return TRUE\n          Endif\n\n          If nSegundos &gt;= 5\n             MsgAlert(\"No se puede actualizar el registro\"+Chr(13)+;\n                         \"Reintentar nuevamente\")\n             nSegundos := 1\n          Endif\n\n       EndDo\n\n  EndCase\n\n  MsgStop(\"Código de seguridad. Tipo \"+cTipo+\" Alias \"+( cAlias ) +chr(13)+;\n          \"REPORTELO AL PROGRAMADOR\")\nReturn FALSE','',0,'','34b6b2xg',1,0,'',215,0,0),(39745,8530,6,396,0,'200.71.186.109',1192593008,1,0,1,1,1,1,'','','Fleal, nose si los valores A y B son dados o si son basados en algo, pero si el valor entrado es diferente a alguno de estos 2 A y B, no lo validara el CASE y pasara directo al MSSTOP(), es lo unico que veo de extraño, faltaria saber de donde provienen los valores de la variable cTipo...','',0,'','3fdf22mk',1,0,'',396,0,0),(39746,8257,3,89,0,'213.21.136.60',1192602025,1,0,1,1,1,0,'','','Hello \n\nI have almost finish this control .\n\n[url=http&#58;//img143&#46;imageshack&#46;us/my&#46;php?image=immaginems7&#46;jpg:3inz2pfl][img:3inz2pfl]http&#58;//img143&#46;imageshack&#46;us/img143/6248/immaginems7&#46;th&#46;jpg[/img:3inz2pfl][/url:3inz2pfl]\n\nRegards MAurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'GA==','3inz2pfl',1,0,'',89,0,0),(39747,8257,3,6,0,'79.3.216.70',1192604245,1,0,1,1,1,1,'','','Wonderful!\n\nEMG','',0,'GA==','hnbp11pi',1,0,'',6,0,0),(39748,8257,3,130,0,'141.51.32.24',1192607290,1,0,1,1,1,1,'','','Richard,\n\n[quote=&quot;Richard Chidiak&quot;:27i6xnta]Stefan\n\nCan you share the source code of the class ?\n\nRichard[/quote:27i6xnta]\n\nNo, not at the moment, it´s a project still in progress. At first it was planned to be commercial product, but my actual work in our university as a teacher of CAD takes much time. At the moment I have not much time for programming. \n\nBut I will think about it.','',0,'gA==','27i6xnta',1,0,'',130,0,0),(39749,8496,3,2,0,'87.218.146.29',1192610640,1,0,1,1,1,1,'','','MDI child windows list properly painted:\n\n[url=http&#58;//imageshack&#46;us:1nbstmvu][img:1nbstmvu]http&#58;//img135&#46;imageshack&#46;us/img135/2639/mdivk0&#46;png[/img:1nbstmvu][/url:1nbstmvu]','',0,'GA==','1nbstmvu',1,0,'',2,0,0),(39750,8497,6,2,0,'87.218.146.29',1192610734,1,0,1,1,1,1,'','','La lista de ventanas MDI con estilo 2007:\n\n[url=http&#58;//imageshack&#46;us:8erjw076][img:8erjw076]http&#58;//img135&#46;imageshack&#46;us/img135/2639/mdivk0&#46;png[/img:8erjw076][/url:8erjw076]','',0,'GA==','8erjw076',1,0,'',2,0,0),(39751,8496,3,868,0,'219.64.121.60',1192610823,1,0,1,1,1,1,'','','Thats wonderful.  \n\nDoes it mean MRU also getting painted like this ?','',0,'GA==','2gst1ldd',1,0,'',868,0,0),(39752,8496,3,2,0,'87.218.146.29',1192610970,1,0,1,1,1,1,'','','&gt; Does it mean MRU also getting painted like this ?\n\nyes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3taxssaf',1,0,'',2,0,0),(39753,8426,3,2,0,'87.218.146.29',1192611492,1,0,1,1,1,1,'','','James,\n\nPlease post a screenshot, thanks','',0,'GA==','oetobc7h',1,0,'',2,0,0),(39754,8531,3,51,0,'80.122.88.242',1192616844,1,0,1,1,1,0,'','Office 2007 like msgInfo','Does someone know how a Office 2007 like msgInfo  should looks like?\nAlthough I noticed that Office 2007 has standard MsgBoxes.\nBut for my feeling the FW standard msginfo with the Borland button \nIs not nice with the new style.\n\nRegards,\nOtto','',0,'GA==','3myiowwm',1,0,'',51,0,0),(39755,8497,6,519,0,'88.24.106.206',1192616854,1,0,1,1,1,0,'','','Antonio, puedes poner algun  exe con  para que se puedan ver como quedan los menus   ?\n\n   un saludo','',0,'GA==','11ezefla',1,0,'',519,0,0),(39756,8497,6,2,0,'87.218.146.29',1192617188,1,0,1,1,1,1,'','','Aqui esta:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/63162261/TEST2007.zip.html\">http://rapidshare.com/files/63162261/TEST2007.zip.html</a><!-- m -->','',0,'GA==','3g0ekd2n',1,0,'',2,0,0),(39757,8532,3,161,0,'213.119.247.215',1192617413,1,0,1,1,1,0,'','BTNBMP text on 2 lines','Hi,\n\nIs there a possiblity to set the text of a BTNBMP on 2 lines?\nI already tested \'LINE1\'+CRLF+\'LINE2\', but it doesn\'t work <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> .\n\n\nThanks,\nMarc','',0,'GA==','1g2zapyz',1,0,'',161,0,0),(39758,8531,3,6,0,'79.3.216.70',1192617837,1,0,1,1,1,1,'','Re: Office 2007 like msgInfo','MsgInfo() doesn\'t have a Borland button. It is a standard Windows message box.\n\nEMG','',0,'GA==','36xepu80',1,0,'',6,0,0),(39759,8532,3,2,0,'87.218.146.29',1192618028,1,0,1,1,1,1,'','','Marc,\n\nYou have to modify the Class TBtnBmp to paint more than one line.\n\nIs it placed on a buttonbar 2007 style ?','',0,'GA==','3tai8a0l',1,0,'',2,0,0),(39760,8532,3,161,0,'213.119.247.215',1192620487,1,0,1,1,1,0,'','','Antonio,\n\nIt\'s not placed on a buttonbar 2007 style.\n\nThe text should change depending of data from a database. Sometimes the text is longer then the width of th button. I can\'t enlarge the size of the button because there is no room anymore. The height of the button is large enough to have two lines.\n\nRegards,\nMarc','',0,'GA==','3mzql8lr',1,0,'',161,0,0),(39761,8530,6,41,0,'200.87.167.162',1192622310,1,0,1,1,1,0,'','','Hola,\n\n1.  primero, no puedes bloquear el registro, entoces ingresas en el DO WHILE\n2.- en el IF ( cAlias )-&gt;( DbRlock() ) sigue sin poder bloquearse\n3.- pero justo despues del IF se libera el registro y entonces cuando vuelve a DO WHILE\n     ya no cumple la condicion y sale del DO WHILE, sale de CASE y va a lo que queda     del codigo posterior al CASE\n\n[code:89g0e4zu]\nDo While &#40; cAlias &#41;-&gt;&#40; !DbRlock&#40;&#41; &#41;\nnSegundos++\nInkey&#40;1&#41;\n\nIf &#40; cAlias &#41;-&gt;&#40; DbRlock&#40;&#41; &#41;\nReturn TRUE\nEndif\n\nIf nSegundos &gt;= 5\nMsgAlert&#40;&quot;No se puede actualizar el registro&quot;+Chr&#40;13&#41;+;\n&quot;Reintentar nuevamente&quot;&#41;\nnSegundos &#58;= 1\nEndif\nEndDo \n[/code:89g0e4zu]','',0,'AIA=','89g0e4zu',1,0,'',41,0,0),(39762,8532,3,2,0,'87.218.146.29',1192622823,1,0,1,1,1,1,'','','Marc,\n\nWe email you a modified LIB. \n\nPlease test it using CRLF in the text, thanks','',0,'AIA=','119w1h0q',1,0,'',2,0,0),(39763,8514,6,582,0,'200.117.97.154',1192623941,1,0,1,1,1,0,'','Re: OT:  Gracias Familia!','Te felicito TROESMA !!!\n\nUn abrazo. El Loco =&gt;))','',0,'AIA=','33iskgyy',1,0,'',582,0,0),(39764,8527,6,1072,0,'200.83.124.16',1192624156,1,0,1,1,1,0,'','','Muchas gracias por las respuestas.\n\nLo que necesitaba aclarar sobre el uso de la LIB, era efectivamente por el tamaño que puede influir en el EXE, con sus respuestas, me queda muy claro, de todas formas, llevare las utilidades a una lib y la enlazare.\n\nEternamente agradecido,\nSaludos,\nAntonio','',0,'AIA=','3mizss9u',1,0,'',1072,0,0),(39765,8525,6,362,0,'200.158.19.170',1192625069,1,0,1,1,1,1,'','','Necesito algo +- asi:\n\n/*\n*	Este e\' um programa de demonstracao que utiliza praticamente todas as rotinas\n* disponiveis no PARLA!\n*	A sequencia de escolha das opcoes deste programa reflete a ordem que deve ser\n* ser obedecida ao se desenvolver um novo aplicativo, ou seja, ao executa-lo\n* voce podera ter uma boa ideia da sequencia de operacoes a seu primeiro progra-\n* ma devera seguir.\n*	Em linhas gerais siga o seguinte roteiro:\n*		1. AA_OpenMo\n*		2. AA_SelLin ou AA_SelHds\n*		3. AA_SpkOn ou AA_SpkOff\n*		4. AA_RingCnt ou (AA_SetPref + AA_CallNum) Nao e\' necessario para handset\n*		5. AA_PlayXX ou AA_RecXX ou AA_TxFax ou AA_RxFax ...\n*		   para encerrar a ligacao AA_Rst\n*		   para encerrar o programa AA_CloseMo\n*/\n[code:20xci65t]\nCLEAR\nSET CONFIRM ON\nsingle =  CHR&#40;218&#41; + CHR&#40;196&#41; + CHR&#40;191&#41; + CHR&#40;179&#41; + CHR&#40;217&#41; +;\nCHR&#40;196&#41; + CHR&#40;192&#41; + CHR&#40;179&#41; + &quot; &quot;\ndouble = CHR&#40;201&#41; + CHR&#40;205&#41; + CHR&#40;187&#41; + CHR&#40;186&#41; + CHR&#40;188&#41; +;\nCHR&#40;205&#41; + CHR&#40;200&#41; + CHR&#40;186&#41; + &quot; &quot;\n\nCOM        = 4\nARQUIVO    = &quot;SAAT&#46;71     &quot;\nARQTXT     = &quot;SAAT&#46;TXT    &quot;\nARQPCX     = &quot;SAAT&#46;PCX    &quot;\nARQAPF     = &quot;SAAT&#46;APF    &quot;\nARQFINAL   = &quot;TUDO&#46;APF    &quot;\nARQAPP     = &quot;SAAT&#46;TXT    &quot;\nQUEBRA     = 1\nALTARES    = 1\nNDIG       = 5\nDIGVALIDOS = &quot;0123456789&quot;\nnum_falar  = &quot;1234567890&quot;\nval_falar  = &quot;77,77&quot;\ndat_falar  = &quot;01/09/95&quot;\nntoques    = 03\ntoqatend   = 18\nprefixo    = &quot;ATDP       &quot;\ntelefone   = &quot;0192545433&quot;\nnramal     = &quot;0192545433&quot;\ntoutdisc   = 5000\nfeed       = 0\nprim       = 900\npausai     = 700\ncomaberta  = 0\nlinhacmd   = &quot;AT&amp;V                  &quot;\nbaud       = 9600\nparity     = 0\nstopbits   = 1\ndatabits   = 7\nctsenab    = 0\nxonxoff    = 1\nfbaudrate  = 1\nfparity    = 2\nfdatabits  = 3\nfstopbits  = 4\nfxonxoff   = 6\nfctsenab   = 9\nTAM_FONTE  = 80\n\nDECLARE opc1&#91;11&#93;\n        opc1&#91;1&#93;  = &quot;Definir a COM&quot;\n        opc1&#91;2&#93;  = &quot;Abrir o Modem&quot;\n        opc1&#91;3&#93;  = &quot;Ativar Local&quot;\n        opc1&#91;4&#93;  = &quot;Ativar Linha&quot;\n        opc1&#91;5&#93;  = &quot;Ativar Linha+Speaker&quot;\n        opc1&#91;6&#93;  = &quot;Enviar comandos ao Modem&quot;\n        opc1&#91;7&#93;  = &quot;Configurar Modem &#40;dados&#41;&quot;\n        opc1&#91;8&#93;  = &quot;Fechar o Modem&quot;\n        opc1&#91;9&#93;  = &quot;Testar conexao de dados&quot;\n        opc1&#91;10&#93; = &quot;Voltar ao menu anterior&quot;\nDECLARE opc2&#91;5&#93;\n        opc2&#91;1&#93;  = &quot;Gravar um arquivo ate tecla&quot;\n        opc2&#91;2&#93;  = &quot;Gravar ate digito discado&quot;\n        opc2&#91;3&#93;  = &quot;Tocar um arquivo&quot;\n        opc2&#91;4&#93;  = &quot;Tocar arquivo ate digitos&quot;\n        opc2&#91;5&#93;  = &quot;Voltar ao menu anterior&quot;\nDECLARE opc3&#91;8&#93;\n        opc3&#91;1&#93;  = &quot;Definir numero de digitos&quot;\n        opc3&#91;2&#93;  = &quot;Definir temporizacao para discar&quot;\n        opc3&#91;3&#93;  = &quot;Ativar feedback sonoro&quot;\n        opc3&#91;4&#93;  = &quot;Definir tempo p/ primeiro digito&quot;\n        opc3&#91;5&#93;  = &quot;Definir pausa interdigital&quot;\n        opc3&#91;6&#93;  = &quot;Reconhecer digitos&quot;\n        opc3&#91;7&#93;  = &quot;Reconhecer digitos falando&quot;\n        opc3&#91;8&#93;  = &quot;Voltar ao menu anterior&quot;\nDECLARE opc4&#91;5&#93;\n        opc4&#91;1&#93;  = &quot;Falar um numero&quot;\n        opc4&#91;2&#93;  = &quot;Falar um valor&quot;\n        opc4&#91;3&#93;  = &quot;Falar uma data&quot;\n        opc4&#91;4&#93;  = &quot;Falar a hora certa&quot;\n        opc4&#91;5&#93;  = &quot;Voltar ao menu anterior&quot;\nDECLARE opc5&#91;12&#93;\n        opc5&#91;1&#93;  = &quot;Definir numero de toques&quot;\n        opc5&#91;2&#93;  = &quot;Atender apos n toques&quot;\n        opc5&#91;3&#93;  = &quot;Ligar para um telefone&quot;\n        opc5&#91;4&#93;  = &quot;Transferir para um ramal&quot;\n        opc5&#91;5&#93;  = &quot;Converter TXT - APF&quot;\n        opc5&#91;6&#93;  = &quot;Converter PCX - APF&quot;\n        opc5&#91;7&#93;  = &quot;Setup Multi Page FAX&quot;\n        opc5&#91;8&#93;  = &quot;Append Page&quot;\n        opc5&#91;9&#93;  = &quot;Enviar Fax&quot;\n        opc5&#91;10&#93; = &quot;Receber Fax&quot;\n        opc5&#91;11&#93; = &quot;Imprimir Fax&quot;\n        opc5&#91;12&#93; = &quot;Voltar ao menu anterior&quot;\nIF &#40;AA_DriveOn &#40;&#41; = 0&#41;	\n   CLEAR SCREEN\n   @ 1, 0 say &quot;PARLA! nao instalado&#46; Abortando &#46;&#46;&#46;&quot;\n   CANCEL\nENDIF\nDO WHILE &#46;T&#46;\n   CLEAR SCREEN\n   CLEAR\n   offset=5\n   @1,0,3,79 BOX double \n   @22,0,24,79 BOX double \n   @2,23 SAY &quot;SAAT - Sistemas de Auto Atendimento&quot;\n   SET MESSAGE TO 23 CENTER\n   @ 4, offset PROMPT &quot;Modem&quot; MESSAGE &quot;Configuracao, iniciacao e comandos para o Modem&quot;\n   @ 4, COL&#40;&#41; + offset PROMPT &quot;Arquivos&quot; MESSAGE &quot;Gravacao e Reproducao de arquivos&quot;\n   @ 4, COL&#40;&#41; + offset PROMPT &quot;Digitos&quot; MESSAGE &quot;Reconhecimento de digitos discados&quot;\n   @ 4, COL&#40;&#41; + offset PROMPT &quot;Numeros&quot; MESSAGE &quot;Falar sequencia de digitos&quot;\n   @ 4, COL&#40;&#41; + offset PROMPT &quot;Chamadas&quot; MESSAGE &quot;Ligacoes e Faxes&quot;\n   @ 4, COL&#40;&#41; + offset PROMPT &quot;Sair&quot; MESSAGE &quot;Voltar para o DOS&quot;\n   MENU TO escolha\n   IF escolha = 6\n      IF comaberta = 1\n         AA_RstMode &#40; COM &#41;\n         AA_CloseMo &#40; COM &#41;\n      ENDIF\n      CLEAR SCREEN\n      CANCEL\n   ENDIF\n   menupop &#40;escolha&#41;\nENDDO\n\nFUNCTION menupop\nPARAMETER opcao\nIF opcao = 1\n   opcao = ACHOICE &#40;5,5,15,3+30,opc1&#41;\n      DO CASE\n         CASE opcao = 1 ; defcom &#40;&#41;\n         CASE opcao = 2 ; abrcom  &#40;&#41;\n         CASE opcao = 3 ; ativhs  &#40;&#41;\n         CASE opcao = 4 ; atlinha  &#40;&#41;\n         CASE opcao = 5 ; atlinpspk  &#40;&#41;\n         CASE opcao = 6 ; comandos &#40;&#41;\n         CASE opcao = 7 ; confcom  &#40;&#41;\n         CASE opcao = 8 ; fechacom  &#40;&#41;\n         CASE opcao = 9 ; testcon &#40;&#41;\n      OTHERWISE      ; RETURN\n      ENDCASE\nELSEIF opcao = 2\n   opcao = ACHOICE &#40;5,15,10,17+30,opc2&#41;\n      DO CASE\n         CASE opcao = 1 ; gravarq &#40;&#41;\n         CASE opcao = 2 ; gravadig &#40;&#41;\n         CASE opcao = 3 ; tocarq &#40;&#41;\n         CASE opcao = 4 ; tocarqdig &#40;&#41;\n      OTHERWISE      ; RETURN\n      ENDCASE\nELSEIF opcao = 3\n   opcao = ACHOICE &#40;5,28,12,33+35,opc3&#41;\n      DO CASE\n         CASE opcao = 1 ; defndig &#40;&#41;\n         CASE opcao = 2 ; deftemp  &#40;&#41;\n         CASE opcao = 3 ; feedback  &#40;&#41;\n         CASE opcao = 4 ; primeiro &#40;&#41;\n         CASE opcao = 5 ; pausainter &#40;&#41;\n         CASE opcao = 6 ; recdig  &#40;&#41;\n         CASE opcao = 7 ; recdigpi &#40;&#41;\n      OTHERWISE      ; RETURN\n      ENDCASE\nELSEIF opcao = 4\n   opcao = ACHOICE &#40;5,40,13,45+23,opc4&#41;\n      DO CASE\n         CASE opcao = 1 ; falnum &#40;&#41;\n         CASE opcao = 2 ; falval &#40;&#41;\n         CASE opcao = 3 ; faldat &#40;&#41;\n         CASE opcao = 4 ; falhor &#40;&#41;\n      OTHERWISE      ; RETURN\n      ENDCASE\nELSEIF opcao = 5\n   opcao = ACHOICE &#40;5,52,16,56+23,opc5&#41;\n      DO CASE\n         CASE opcao = 1 ; defntoq  &#40;&#41;\n         CASE opcao = 2 ; atend &#40;&#41;\n         CASE opcao = 3 ; disca &#40;&#41;\n         CASE opcao = 4 ; ramal &#40;&#41;\n         CASE opcao = 5 ; convtxt &#40;&#41;\n         CASE opcao = 6 ; convpcx &#40;&#41;\n         CASE opcao = 7 ; setupfax &#40;&#41;\n         CASE opcao = 8 ; appendfax &#40;&#41;\n         CASE opcao = 9 ; enviaF &#40;&#41;\n         CASE opcao = 10 ; recebF &#40;&#41;\n         CASE opcao = 11 ; imprimF &#40;&#41;\n      OTHERWISE      ; RETURN\n      ENDCASE\nENDIF\nRETURN\n\nFUNCTION defcom\nlimpatela &#40;&#41;\n@ 8,18,10,30 BOX single\n@ 9,19 SAY &quot;Com   &#58;&quot; GET COM PICTURE &quot;9&quot;\nREAD\nRETURN\n\nFUNCTION abrcom\nlimpatela &#40;&#41;\nAA_OpenMo &#40; COM &#41;\ncomaberta = 1\n@ 23,19 SAY &quot;COM ABERTA !&quot;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION fechacom\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\nAA_RstMode &#40; COM &#41;\nAA_CloseMo &#40; COM &#41;\ncomaberta = 0\n@ 23,19 SAY &quot;COM FECHADA !&quot;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION testcon\nlimpatela &#40;&#41;\nIF AA_Connect &#40;COM&#41; = 0\n   @ 23,19 SAY &quot;Nao Conectado!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nELSE\n   @ 23,19 SAY &quot;Conectado!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nENDIF\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION ativhs\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\nAA_SpkOff &#40;COM&#41;\n/*** Em modems 33k o handset foi substituido por microfone + caixas &#40;local&#41;\n **   AA_SelHds &#40; COM &#41;\n **   @ 23,19 SAY &quot;HANDSET ATIVADO!&quot;\n****/\nAA_SelLoc &#40; COM &#41;\n@ 23,19 SAY &quot;Modo Local Ativado!&quot;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION atlinha  &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\nAA_SeLine &#40;COM&#41;\nAA_SpkOff &#40;COM&#41;\n@ 23,19 SAY &quot;LINHA ATIVADA!&quot;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION atlinpspk  &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\nAA_SeLine &#40;COM&#41;\nAA_SpkOn &#40;COM&#41;\n@ 23,19 SAY &quot;LINHA+SPEAKER ATIVADOS!&quot;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION comandos &#40;&#41;\nc = &quot; &quot;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Linha de comando&#58; &quot; GET linhacmd PICTURE &quot;@S22 !!!!!!!!!!!!!!!!!!!!!&quot;\nREAD\n@ 12,1,20,79 BOX single\n@ 13,2 SAY &quot;Respostas do Modem&#58; &quot;\nlinhacmd = linhacmd + CHR &#40;13&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nRETORNO = AA_FlushRX &#40;com&#41;\nRETQRDY = AA_InpQRdy &#40;com&#41;\nRETORNO = AA_CmdMode &#40; linhacmd, com&#41;\nRETQRDY = 0\nDEVPOS &#40;19, 2&#41;\nDO WHILE INKEY&#40;1&#41; != 13\n   RETQRDY = AA_InpQRdy &#40;com&#41;\n   IF RETQRDY &gt; 0\n      RETORNO = AA_ModemAn &#40;com&#41;\n      FOR I&#58;=1 TO LEN &#40;RETORNO&#41;\n         c = CHR &#40;ASC &#40;SUBSTR &#40;RETORNO, I, 1&#41;&#41; % 128&#41;\n         IF c == CHR&#40;13&#41;\n            SCROLL &#40;14,2,19,78,1&#41;\n            DEVPOS &#40;19, 2&#41;\n         ELSEIF c == CHR&#40;10&#41;\n            ;\n         ELSE\n            @ 19, COL&#40;&#41; SAY c\n         ENDIF\n      NEXT\n   ENDIF\nENDDO\nRETURN\n\nFUNCTION confcom &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,12,50 BOX single\n@ 9,19 SAY  &quot;Baud Rate  &#58; &quot; GET baud PICTURE &quot;99999&quot;\n@ 10,19 SAY &quot;Stop Bits  &#58; &quot; GET stopbits PICTURE &quot;9&quot;\n@ 11,19 SAY &quot;Data Bits  &#58; &quot; GET databits PICTURE &quot;9&quot;\nREAD\nDO CASE\n   CASE baud == 110\n        baud = 0\n   CASE baud == 150\n        baud = 1\n   CASE baud == 300\n        baud = 2\n   CASE baud == 600\n        baud = 3\n   CASE baud == 1200\n        baud = 4\n   CASE baud == 2400\n        baud = 5\n   CASE baud == 4800\n        baud = 6\n   CASE baud == 9600\n        baud = 7\n   CASE baud == 19200\n        baud = 8\n   CASE baud == 38400\n        baud = 9\n   CASE baud == 57600\n        baud = 10\n   CASE baud == 115200\n        baud = 11\nENDCASE\nAA_SetSer &#40; fbaudrate, baud, com&#41;\nAA_SetSer &#40; fparity, parity, com&#41;\nAA_SetSer &#40; fdatabits, databits, com&#41;\nAA_SetSer &#40; fstopbits, stopbits, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION gravarq &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,50 BOX single\n@ 9,19 SAY &quot;Nome do Aquivo&#58; &quot; GET arquivo PICTURE &quot;@K !!!!!!!!!!!!&quot;\nREAD\nRETORNO = AA_RecFKey &#40; arquivo, 3000, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION gravadig &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,12,50 BOX single\n@ 9,19 SAY &quot;Nome do Aquivo&#58; &quot; GET arquivo PICTURE &quot;@K !!!!!!!!!!!!&quot;\n@ 10,19 SAY &quot;Numero de digitos &quot; GET ndig PICTURE &quot;99&quot;\n@ 11,19 SAY &quot;Digitos validos &quot; GET digvalidos PICTURE &quot;9999999999&quot;\nREAD\nRETORNO = AA_RecFDig &#40; arquivo, ndig, digvalidos, 3000, com&#41;\n@ 23,30 SAY &quot;Digitos = &quot;\n@ 23,40 SAY RETORNO\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION tocarq  &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,50 BOX single\n@ 9,19 SAY &quot;Nome do Aquivo&#58; &quot; GET arquivo PICTURE &quot;@K !!!!!!!!!!!!&quot;\nREAD\nRETORNO = AA_PlayFi &#40; arquivo, 3000, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION tocarqdig &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,12,50 BOX single\n@ 9,19 SAY &quot;Nome do Aquivo&#58; &quot; GET arquivo PICTURE &quot;@K !!!!!!!!!!!!&quot;\n@ 10,19 SAY &quot;Numero de digitos &quot; GET ndig PICTURE &quot;99&quot;\n@ 11,19 SAY &quot;Digitos validos &quot; GET digvalidos PICTURE &quot;9999999999&quot;\nREAD\nRETORNO = &quot;&quot;\nRETORNO = AA_PlayFDi &#40; arquivo, 3000, com, digvalidos, ndig&#41;\n@ 23,30 SAY &quot;Digitos = &quot;\n@ 23,40 SAY RETORNO\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION defndig &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,40 BOX single\n@ 9,19 SAY &quot;Numero de digitos &quot; GET ndig PICTURE &quot;99&quot;\nREAD\nRETURN\n\nFUNCTION deftemp  &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Tempo maximo para discar&#58; &quot; GET toutdisc PICTURE &quot;99999&quot;\nREAD\nRETURN\n\nFUNCTION feedback  &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,52 BOX single\n@ 9,19 SAY &quot;Feedback &#91;0-desativa  1-ativa&#93; &quot; GET feed PICTURE &quot;9&quot;\nREAD\nRETURN\n\nFUNCTION primeiro &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,58 BOX single\n@ 9,19 SAY &quot;Tempo p/ discar primeiro digito &quot; GET prim PICTURE &quot;99999&quot;\nREAD\nRETURN\n\nFUNCTION pausainter  &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,55 BOX single\n@ 9,19 SAY &quot;Pausa Interdigital &quot; GET pausai PICTURE &quot;99999&quot;\nREAD\nRETURN\n\nFUNCTION recdig &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\nRETORNO = AA_FlushRX &#40;com&#41;\nIF prim = 0\n   @ 8,18,10,60 BOX single\n   @ 9,19 SAY &quot;Reconhecendo digitos &#46;&#46;&#46;&quot;\n   RETORNO = AA_ReadN &#40;feed, ndig, &quot;0123456789&quot;, toutdisc, com&#41;\nELSE\n   @ 8,18,10,60 BOX single\n   @ 9,19 SAY &quot;Reconhecendo c/ pausa interdigital &#46;&#46;&#46;&quot;\n   RETORNO = AA_RdNPI &#40;feed, ndig, &quot;0123456789&quot;, toutdisc, com, prim, pausai&#41;\nENDIF\n@ 9, 19 SAY &quot;                                      &quot;\n@ 9, 19 SAY &quot;      Digitos  lidos  =  &quot;\n@ 9, 46 SAY  RETORNO\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION recdigpi &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Reconhecendo digitos &#46;&#46;&#46;&quot;\nRETORNO = AA_PlayFPI &#40;&quot;playwdig&#46;71&quot;, toutdisc, com, &quot;0123456789&quot;, ndig, feed, prim, pausai&#41;\n@ 9, 19 SAY &quot;      Digitos  lidos  =  &quot;\n@ 9, 46 SAY  RETORNO\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION falnum &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Numero a ser falado&#58; &quot; GET num_falar\nREAD\nRETORNO = AA_Talk &#40;num_falar, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION faldat &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Data a ser falada&#58; &quot; GET dat_falar PICTURE &quot;XX/XX/XX&quot;\nREAD\nRETORNO = AA_TalkDat &#40;dat_falar, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION falval &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Valor a ser falado&#58; &quot; GET val_falar PICTURE &quot;XX,XX&quot;\nREAD\nRETORNO = AA_TalkMon &#40;val_falar, 53, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION falhor &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\nval_hora = SUBSTR &#40;TIME &#40;&#41;, 1, 5&#41;\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Falando a hora certa&#58; &quot;\n@ 9,41 SAY val_hora\nAA_TalkTim &#40;val_hora, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION defntoq  &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,70 BOX single\n@ 9,19 SAY &quot;Numero de toques antes de atender&#58; &quot; GET ntoques\nREAD\nRETURN\n\nFUNCTION atend &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 8,18,10,60 BOX single\n@ 9,19 SAY &quot;Esperando tocar o telefone&#46;&quot;\nRETORNO = AA_RingCnt &#40; com &#41;\nDO WHILE &#40;RETORNO &lt; ntoques&#41; &#46;OR&#46; &#40;RETORNO &gt; 18&#41;\n   IF RETORNO &gt; 0\n      @ 9, 40 SAY RETORNO\n      @ 9, 53 SAY &quot; toques&quot;\n   ENDIF\n   RETORNO = AA_RingCnt &#40; com &#41;\n   IF &#40;INKEY &#40;&#41; = 27&#41;\n      RETURN\n   ENDIF\nENDDO\n@ 9,19 SAY &quot;Atendendo e tocando arquivo &#46;&#46;&#46;           &quot;\nAA_SeLine &#40;COM&#41;\nAA_DDCBLOCK &#40;COM&#41;\nRETORNO = AA_PlayFi &#40; arquivo, 3000, com&#41;\n@ 9,19 SAY &quot;Desligando &#46;&#46;&#46;                           &quot;\nAA_RstMode &#40; COM &#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION disca &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 9,19 SAY &quot;Prefixo de discagem&#58; &quot; GET prefixo PICTURE &quot;XXXXXXXXXX&quot;\n@ 10,19 SAY &quot;Numero a chamar&#58; &quot; GET telefone PICTURE &quot;XXXXXXXXXXXX&quot;\n@ 11,19 SAY &quot;Toques p/ atender&#58; &quot; GET toqatend PICTURE 99\nREAD\nAA_SetPref &#40; prefixo, com&#41;\nAA_SeLine &#40;COM&#41;\nAA_SpkOn &#40;COM&#41;\nlimpatela &#40;&#41;\n@ 8,18,10,70 BOX single\n@ 9,19 SAY &quot;Linha+Handset selecionados, chamando&#46;&#46;&#46;&quot;\nRETORNO = AA_CallNum &#40;telefone, toqatend * 500, com&#41;\nDO CASE\n   CASE RETORNO = 1 ; @ 9,19 SAY &quot;ocupado&quot;\n   CASE RETORNO = 2 ; @ 9,19 SAY &quot;&quot;\n   CASE RETORNO = 3 ; @ 9,19 SAY &quot;atendeu, tocando saat&#46;71 &#46;&#46;&#46;          &quot;\n        RETORNO = AA_PlayFi &#40; &quot;saat&#46;71&quot; , 3000, com&#41;\n                  AA_RstMode &#40; COM &#41;\n   CASE RETORNO = 4 ; @ 9,19 SAY &quot;nao atendeu&quot;\n   CASE RETORNO = 5 ; @ 9,19 SAY &quot;prefixo de discagem nao ok&quot;\n   CASE RETORNO = 6 ; @ 9,19 SAY &quot;tom de discar nao foi reconhecido&quot;\n   CASE RETORNO = 7 ; @ 9,19 SAY &quot;nao foi possivel discar&quot;\nOTHERWISE      ; RETURN\nENDCASE\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION Ramal &#40;&#41;\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 9,19 SAY &quot;Toques p/ atender&#58; &quot; GET toqatend PICTURE 99\n@ 10,19 SAY &quot;Ramal&#58; &quot; GET nramal PICTURE &quot;XXXXXXXXXX&quot;\nREAD\nAA_SeLine &#40;COM&#41;\nAA_SpkOn &#40;COM&#41;\n@ 8,18,10,70 BOX single\n@ 9,19 SAY &quot;Linha+Speaker selecionados, aguardando ligacao &#46;&#46;&#46;&quot;\nRETORNO = AA_RingCnt &#40; com &#41;\nDO WHILE &#40;RETORNO &lt; ntoques&#41; &#46;OR&#46; &#40;RETORNO &gt; 18&#41;\n   IF RETORNO &gt; 0\n      limpatela &#40;&#41;\n      @ 9, 40 SAY RETORNO\n      @ 9, 53 SAY &quot; toques&quot;\n   ENDIF\n   RETORNO = AA_RingCnt &#40; com &#41;\n   IF &#40;INKEY &#40;&#41; = 27&#41;\n      RETURN\n   ENDIF\nENDDO\n@ 9,19 SAY &quot;Atendeu! Informando transferencia de ramal &#46;&#46;&#46;&quot;\nRETORNO = AA_PlayFi &#40; &quot;transf&#46;71&quot; , 3000, com&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\n@ 9,19 say &quot;Transferindo a ligacao &#46;&#46;&#46;&quot;\nRETORNO = AA_Transf &#40;nramal, toqatend * 500, com&#41;\nDO CASE\n   CASE RETORNO = 1 ; @ 9,19 SAY &quot;ocupado&quot;\n   CASE RETORNO = 2 ; @ 9,19 SAY &quot;&quot;\n   CASE RETORNO = 3 ; @ 9,19 SAY &quot;atendeu, tocando transf&#46;71 &#46;&#46;&#46;          &quot;\n        RETORNO = AA_PlayFi &#40; &quot;transf&#46;71&quot; , 3000, com&#41;\n                  AA_RstMode &#40; COM &#41;\n   CASE RETORNO = 4 ; @ 9,19 SAY &quot;nao atendeu&quot;\n   CASE RETORNO = 5 ; @ 9,19 SAY &quot;prefixo de discagem nao ok&quot;\n   CASE RETORNO = 6 ; @ 9,19 SAY &quot;tom de discar nao foi reconhecido&quot;\n   CASE RETORNO = 7 ; @ 9,19 SAY &quot;nao foi possivel discar&quot;\nOTHERWISE      ; RETURN\nENDCASE\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION convtxt\nlimpatela &#40;&#41;\n@ 9,19 SAY &quot;Nome do arquivo&#58; &quot; GET ARQTXT PICTURE &quot;@K XXXXXXXXXXXX&quot;\n@ 10,19 SAY &quot;Caracteres por linha &#91;80/144&#93;&#58; &quot; GET TAM_FONTE PICTURE &quot;@k 999&quot;\nREAD\nRETORNO = AA_FontSiz &#40;TAM_FONTE&#41;\nIF &#40;RETORNO = 0&#41;\n   @ 23,19 SAY &quot;Fonte OK !&quot;\nELSE\n   @ 23,19 SAY &quot;Fonte NOK !&quot;\nENDIF\nRETORNO = AA_ConvTXT &#40; ARQTXT &#41;\nIF &#40;RETORNO = 0&#41;	\n   @ 23,19 SAY &quot;Conversao OK !&quot;\nELSE\n   @ 23,19 SAY &quot;Conversao NAO OK !&quot;\nENDIF\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION convpcx\nlimpatela &#40;&#41;\n@ 9,19 SAY &quot;Nome do arquivo&#58; &quot; GET ARQPCX PICTURE &quot;@K XXXXXXXXXXXX&quot;\nREAD\nRETORNO = AA_ConvPCX &#40; ARQPCX &#41;\nIF &#40;RETORNO = 0&#41;	\n   @ 23,19 SAY &quot;Conversao OK !&quot;\nELSE\n   @ 23,19 SAY &quot;Conversao NAO OK !&quot;\nENDIF\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION setupfax\nlimpatela &#40;&#41;\n@ 9,19 SAY &quot;Nome do arquivo&#58; &quot; GET ARQFINAL PICTURE &quot;@K XXXXXXXXXXXX&quot;\nREAD\nAA_MPFStup &#40; ARQFINAL &#41;\n@ 23,19 SAY &quot;OK !&quot;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION appendfax\nlimpatela &#40;&#41;\n@ 9,19 SAY &quot;Arquivo final&#58; &quot; GET ARQFINAL PICTURE &quot;@K XXXXXXXXXXXX&quot;\n@ 10,19 SAY &quot;Arquivo p/ adicionar&#58; &quot; GET ARQAPP PICTURE &quot;@K XXXXXXXXXXXX&quot;\n@ 11,19 SAY &quot;Quebra de pagina&#58; &quot; GET QUEBRA PICTURE 9\n@ 12,19 SAY &quot;Alta Resolucao&#58; &quot; GET ALTARES PICTURE 9\nREAD\nRETORNO = AA_MPFApp &#40; ARQFINAL, ARQAPP, QUEBRA, ALTARES &#41;\nIF &#40;RETORNO = 0&#41;\n   @ 23,19 SAY &quot;OK !&quot;\nELSE\n   @ 23,19 SAY &quot;NAO OK !&quot;\nENDIF\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION enviaF\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\n@ 9,19 SAY &quot;Nome do arquivo&#58; &quot; GET ARQAPF PICTURE &quot;@K XXXXXXXXXXXX&quot;\n@ 10,19 SAY &quot;Fone&#58; &quot; GET TELEFONE PICTURE &quot;XXXXXXXXXX&quot;\nREAD\nALLTRIM &#40;TELEFONE&#41;\nRETORNO = AA_TxFax &#40; 3000, ARQAPF, TELEFONE, com&#41;\nAA_RstMode &#40; COM &#41;\nIF &#40;RETORNO = 0&#41;\n   @ 23,19 SAY &quot;Transmissao OK !&quot;\nELSE\n   @ 23,19 SAY &quot;Transmissao NAO OK !&quot;\nENDIF\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION recebF\nlimpatela &#40;&#41;\nIF comaberta = 0\n   @ 23,19 SAY &quot;ABRA O MODEM ANTES DESTA OPERACAO!&quot;\n   @ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\n   INKEY &#40;0&#41;\n   RETURN       \nENDIF\nTELEFONE = &quot;&quot;\n@ 9,19 SAY &quot;Nome do arquivo&#58; &quot; GET ARQAPF PICTURE &quot;@K XXXXXXXXXXXX&quot;\nREAD\nRETORNO = AA_RxFax &#40; 3000, ARQAPF, com&#41;\nAA_RstMode &#40; COM &#41;\nIF &#40;RETORNO = 0&#41;\n   @ 23,19 SAY &quot;Recepcao OK !&quot;\nELSE\n   @ 23,19 SAY &quot;Recepcao NAO OK !&quot;\nENDIF\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION imprimF\nlimpatela &#40;&#41;\ntipoimp = 0\nARQUIVO = &quot;SAAT&#46;PRN&quot;\n@ 9,19 SAY &quot;Nome do arquivo&#58; &quot; GET ARQAPF PICTURE &quot;@K XXXXXXXXXXXX&quot;\n@ 10,19 SAY &quot;Imprimir p/ arquivo&#58; &quot; GET ARQUIVO PICTURE &quot;@K XXXXXXXXXXXX&quot;\n@ 11,19 SAY &quot;Tipo de impressora&#58; &quot; GET TIPOIMP PICTURE &quot;@K 9&quot;\nREAD\nAA_PrtFax &#40; ARQAPF, ARQUIVO, tipoimp&#41;\n@ 23,60 SAY &quot; &#91;&lt;ENTER&gt;&#93;&quot;\nINKEY &#40;0&#41;\nRETURN\n\nFUNCTION limpatela\n@ 5,0 CLEAR TO 24,79\nRETURN\n[/code:20xci65t]','',0,'AIA=','20xci65t',1,0,'',362,0,0),(39766,8533,6,300,0,'200.103.111.202',1192625170,1,0,1,1,1,0,'','Copiar objecto database a otro','Olá,\n\nComo copiar o conteudo del objecto database a otro?\n\n\nSalu2.','',0,'AIA=','a76zebp8',1,0,'',300,0,0),(39767,8533,6,362,0,'200.158.19.170',1192625427,1,0,1,1,1,1,'','Re: Copiar objecto database a otro','[quote=&quot;Wanderson&quot;:2cmmonsh]Olá,\n\nComo copiar o conteudo del objecto database a otro?\n\n\nSalu2.[/quote:2cmmonsh]\n\nse entendi...\n[code:2cmmonsh]\n        oDbf3&#58;Load&#40;&#41;\n\n        //--- Carrega os Dados do Produto\n        oDbf2&#58;Matricula  &#58;= oDbf1&#58;Raz_Matric   // Matricula\n        oDbf2&#58;Nome_Cli   &#58;= oDbf1&#58;Dest_Nome    // Nome do Cliente\n        oDbf2&#58;Telefone   &#58;= oDbf1&#58;Tel          // 1º Telefone\n        oDbf2&#58;Tel2       &#58;= oDbf1&#58;Tel2         // 2º Telefone\n        oDbf2&#58;Nome_func  &#58;= cNome_Func         // Nome do Funcionario\n        oDbf2&#58;DinCheq    &#58;= cDinCheq           // Forma de Pagamento\n        oDbf2&#58;MesAno     &#58;= Date&#40;&#41;             // Data do Or‡amento\n        oDbf2&#58;Codigo     &#58;= oDbf3&#58;Codigo       // Codigo do produto\n        oDbf2&#58;Descricao  &#58;= oDbf3&#58;Descricao    // Descricao do produto\n        oDbf2&#58;Marca      &#58;= oDbf3&#58;Marca        // Marca do Produto\n        oDbf2&#58;PrCusto    &#58;= 0&#46;00               // oDbf3&#58;PrCusto // Preco de Custo\n[/code:2cmmonsh]','',0,'gIA=','2cmmonsh',1,0,'',362,0,0),(39768,8533,6,300,0,'200.103.111.202',1192625649,1,0,1,1,1,0,'','Re: Copiar objecto database a otro','queria evitar atribuir um por um entende? A tabela tem mais de 50 campos e são iguais. Algo como um laço para atribuição. Valeu.\n\n\n\n[quote=&quot;karinha&quot;:9qsrxtd7][quote=&quot;Wanderson&quot;:9qsrxtd7]Olá,\n\nComo copiar o conteudo del objecto database a otro?\n\n\nSalu2.[/quote:9qsrxtd7]\n\nse entendi...\n[code:9qsrxtd7]\n        oDbf3&#58;Load&#40;&#41;\n\n        //--- Carrega os Dados do Produto\n        oDbf2&#58;Matricula  &#58;= oDbf1&#58;Raz_Matric   // Matricula\n        oDbf2&#58;Nome_Cli   &#58;= oDbf1&#58;Dest_Nome    // Nome do Cliente\n        oDbf2&#58;Telefone   &#58;= oDbf1&#58;Tel          // 1º Telefone\n        oDbf2&#58;Tel2       &#58;= oDbf1&#58;Tel2         // 2º Telefone\n        oDbf2&#58;Nome_func  &#58;= cNome_Func         // Nome do Funcionario\n        oDbf2&#58;DinCheq    &#58;= cDinCheq           // Forma de Pagamento\n        oDbf2&#58;MesAno     &#58;= Date&#40;&#41;             // Data do Or‡amento\n        oDbf2&#58;Codigo     &#58;= oDbf3&#58;Codigo       // Codigo do produto\n        oDbf2&#58;Descricao  &#58;= oDbf3&#58;Descricao    // Descricao do produto\n        oDbf2&#58;Marca      &#58;= oDbf3&#58;Marca        // Marca do Produto\n        oDbf2&#58;PrCusto    &#58;= 0&#46;00               // oDbf3&#58;PrCusto // Preco de Custo\n[/code:9qsrxtd7][/quote:9qsrxtd7]','',0,'gIA=','9qsrxtd7',1,0,'',300,0,0),(39769,8529,6,1178,0,'200.24.127.11',1192625849,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3wkgc7ig]El primer browse que se implementó en FW es el TWBrowse. Es muy rápido, ya que se diseñó para ordenadores lentos.\n\nA partir de ese, se deriva la clase TCBrowse, que ya usa objetos columna.\n\nFinalmente el TXBrowse es el más completo y por lo tanto el más complicado de usar.\n\nA parte de esos tres propios de FWH, varios usuarios han implementado otros browses, como el de Hernán, Manuel Mercado, etc.[/quote:3wkgc7ig]\n\nGracias, me quedo claro Antonio.\n\nUna pregunta adicional , con la version FWH 2.7 tiene el TCBrowse, el TXBrowse biene con FWH o se requiere alguna libreria adicional.','',0,'gA==','3wkgc7ig',1,0,'',1178,0,0),(39770,8534,6,1178,0,'200.24.127.11',1192626418,1,0,1,1,1,0,'','Capturar Error Para Evitar que se caiga el sistema','Segun el siguiente ejemplo que tome del Forum para capturar el Error.\nLOCAL oError \n\nTRY //Esta es la linea 895\n     //operacion que puede fallar \nCATCH oError // linea 998\n     //mensaje de error \n     Alert(\"Error: \" + oError:description ) \nFINALLY \n     //mensaje indicando que todo esta bien \n     Alert(\"La operacion se realizo corrctamente\") \nEND  //linea 901\n\nPregunta , este EJemplo Funciona con Harbour estoy trabajando con FWH 2.7 y Harbour build 45\n\nMe genera este error\nCompilado y Enlazado de: [C:\\proy_harb\\plastwin.Exe]\nEjecución No. 1\nEjecutada a las: 08:00:07\n============================================================\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'C:\\proy_harb\\PRG\\pxp0001.prg\'...\nC:\\proy_harb\\PRG\\pxp0001.prg(885) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\nC:\\proy_harb\\PRG\\pxp0001.prg(895) Error E0030  Syntax error: \"parse error at \'OERROR\'\"\nC:\\proy_harb\\PRG\\pxp0001.prg(898) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\nC:\\proy_harb\\PRG\\pxp0001.prg(901) Error E0030  Syntax error: \"parse error at \'&lt;eol&gt;\'\"\n4 errors\nNo code generated\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 1 ** deleting C:\\proy_harb\\OBJ\\pxp0001.hrb\nHa habido ERRORES al intentar Generar la Aplicacion\n============================================================\nVERCE v4.3 -&gt; Ver Resultados de Compilación y Enlazado v4.3\nJuan Carlos Salinas Ojeda\n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->,  <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e -->\nMinatitlán, Veracruz. MEXICO\nY Solo Veracruz es bello !!!\nFiveWin for Harbour!!','',0,'','11qu270f',1,0,'',1178,0,0),(39771,8535,3,1158,0,'200.139.130.189',1192626550,1,0,1,1,1,0,'','Migrating to adt format','hi, i am migrating to adt file format, i see an blog of RF about this, but this page is deleted, my doubt is about numeric field type, adt files dont support this type, i should use another? thanks','',0,'','1qa0z0vj',1,0,'',1158,0,0),(39772,8533,6,362,0,'200.158.19.170',1192627058,1,0,1,1,1,1,'','','Bem, somente vendo. Mas, para agilizar, a pessoa mais indicada para te ajudar com objeto database que eu conheço, é :\n\nEDNALDO ALVES ROLIM, que inclusive, estará nos PRESTIGIANDO COM SUA HONROSA PRESENÇA, no QUINTO ENCONTRO DE FIVEWINNERS em 24/11/2007,  à realizar-se em GUARULHOS-SP.\n\nEnvie um email ao mesmo:  <!-- e --><a href=\"mailto:ednaldorolim@uol.com.br\">ednaldorolim@uol.com.br</a><!-- e -->\n\nAbraços.\n\nRegards, saludos.','',0,'','17js2zzl',1,0,'',362,0,0),(39773,8536,6,1178,0,'200.24.127.11',1192627302,1,0,1,1,1,0,'','Alguien tiene un ejemplo Un Browse Maestro Detalle','Alguien tiene un ejemplo Un Browse Maestro Detalle , se manejan dos Browser y los dos deben estar sincronizados.\n\n\n[img]URL=http://www.phpbb.com/images/][c:\\browse.jpg][/img][/img]','',0,'CA==','3nzmnyqp',1,0,'',1178,0,0),(39774,8534,6,644,0,'200.45.114.200',1192627738,1,0,1,1,1,0,'','','Rubén: Try - catch es una sentencia de xHarbour no de Harbour. Tenés que usar el control de errores de clipper. Saludos','',0,'CA==','2a5sve4w',1,0,'',644,0,0),(39775,8531,3,51,0,'80.122.88.242',1192629904,1,0,1,1,1,0,'','','Hello Enrico,\n\nWith Borland „You are right as always“.\n\nIt was my fault. I used a modified YesNoBox.\n[img:311p45la]http&#58;//www&#46;atzwanger&#46;com/fw/YesNo&#46;jpg[/img:311p45la]\n\n\n[img:311p45la]http&#58;//www&#46;atzwanger&#46;com/fw/orgYesNo&#46;jpg[/img:311p45la]\n\n\nRegards,\nOtto','',0,'CA==','311p45la',1,0,'',51,0,0),(39776,8537,3,51,0,'80.122.88.242',1192631327,1,0,1,1,1,0,'','Office 2007 buttons CENTER, TOP, LEFT, BOTTOM, RIGHT','Hello Antonio,\nIs CENTER, TOP, LEFT, BOTTOM, RIGHT for the PROMPT clause on Office 2007 buttons working?\nRegards,\nOtto','',0,'CA==','2ibiqfvc',1,0,'',51,0,0),(39777,8479,6,54,0,'189.132.108.142',1192633349,1,0,1,1,1,1,'','','[quote=&quot;jcaro&quot;:2czuwqak]Hola Wmormar: \n\nGracias a JC y a ti por tu trabajo, es una herramienta excelente que me ayuda mucho.\n\nCuando se podrá bajar la version 4.5 ??\n\nSaludos,[/quote:2czuwqak]\n\nEsperemos pronto se actualice la descarga.','',0,'gA==','2czuwqak',1,0,'',54,0,0),(39778,8479,6,54,0,'189.132.108.142',1192633425,1,0,1,1,1,1,'','','[quote=&quot;Alfredo Arteaga&quot;:145jy7mm]Willy, puedes agrandar eltamaño de la cadena \'Parámetros del EXE\'?\n\nGracias.[/quote:145jy7mm]\n\nServido sr.\n\nchecado y verificado\n\nahora tiene un espacio de 200','',0,'gA==','145jy7mm',1,0,'',54,0,0),(39779,8537,3,868,0,'210.212.216.67',1192635949,1,0,1,1,1,1,'','','Not working.\nIs there such option in office 2007 ?','',0,'gA==','dre2070u',1,0,'',868,0,0),(39780,8533,6,300,0,'200.103.111.202',1192637135,1,0,1,1,1,0,'','Consegui','Eis a solução.\n\n...\noArqCli:Load()\noCli1:Blank()\n\nFor x=1 to oArqCli:FCount()\n     oCli1:aBuffer[x] := oArqCli:FieldGet(x)\nNext x\n\nSalu2','',0,'','pd8gwvvq',1,0,'',300,0,0),(39781,8538,6,960,0,'84.125.196.99',1192638203,1,0,1,1,1,0,'','Problema con los focus()','estimados compañeros:\n\nExpongo un caso algo raro con los setfocus:\n\nTengo un Dialog con 5 gets (del 1 al 5 y en el 5º hace una validación) y necesito que cuando el usuario cumplimente los 5 gets (del 1 al 5), el foco haga solo el recorrido del 3 al 5 sucesivamente.\n\nLo he intentado haciendo:\n....\n redefine get oget1 var cget1 id 101 of odlg picture \'9999999.99\' \n redefine get oget2 var cget2 id 102 of odlg picture \'9999999.99\' \n redefine get oget3 var cget3 id 103 of odlg picture \'9999999.99\' \n redefine get oget4 var cget4 id 104 of odlg picture \'9999999.99\' \n redefine get oget5 var cget5 id 105 of odlg picture \'9999999.99\' valid(validar())\n....\nfunct validar()\n total+=cget2*cget3\n oget3:setfocus(.t.)\nreturn .t.\n\nEn el RC todos los GETS tienen activado el TABSTOP, pero de esta manera no va.... sin embargo si inserto un msginfo en validar() funciona!! Siempre se situa en el oget1 por defecto.\nTambien probé con oget5:bkeydown := {|nKey| iif(nKey==VK_RETURN, oget3:setfocus(.T.),)}\npero tampoco funciona!!\n\n¿ Como lo consigo ? Mil gracias.\nLORENZO','',0,'','24o4i899',1,0,'',960,0,0),(39782,8537,3,2,0,'87.218.146.106',1192639163,1,0,1,1,1,1,'','','2007 clause for BtnBmps is supposed to be used only on buttonbars.\n\nShould we support those position clauses on the buttonbars ?','',0,'','2bljs4nt',1,0,'',2,0,0),(39783,8539,3,448,0,'83.132.54.239',1192639445,1,0,1,1,1,0,'','MDIchild window Focus diferent behavior as FW16','Hello ,\n\nI\'ve tried with other w32 bit programs like excel, etc and when you click any control in the back mdichild window (unfocused) it immediatly brings it to front focused before processing the click event control.\nIn FW16 it worked like this but in FWH it doesn\'t anymore.\n\nCan anyone confirms this?\n\nAntonio','',0,'','3216u7ws',1,0,'',448,0,0),(39784,8529,6,2,0,'87.218.146.106',1192639463,1,0,1,1,1,1,'','','Los tres vienen incluidos en FWH. No se necesita nada adicional','',0,'','1x4q727k',1,0,'',2,0,0),(39785,8536,6,2,0,'87.218.146.106',1192639533,1,0,1,1,1,1,'','','Ruben,\n\nTienes un ejemplo en samples\\gallery\\onemany\\onemany.prg','',0,'','1hbx732p',1,0,'',2,0,0),(39786,8540,3,448,0,'83.132.54.239',1192639582,1,0,1,1,1,0,'','window:center() doesn´t work right','Hello,\n\nIssuing a window:center method it doesn\'t center the window correctly. It seems to work only correct with dialogs.\n\nIs is a bug, anyone has some work around ?\n\nAntonio','',0,'','1zii7elh',1,0,'',448,0,0),(39787,8537,3,868,0,'210.212.216.67',1192639859,1,0,1,1,1,1,'','','I feel it would be nice to continue this support in 2007 style also for buttonbars.','',0,'','3l1967rz',1,0,'',868,0,0),(39788,8538,6,2,0,'87.218.146.106',1192640057,1,0,1,1,1,1,'','','Prueba asi:\n\nfunct validar() \ntotal+=cget2*cget3 \noGet5:oJump = oGet3 \nreturn .t.','',0,'','2byga1xn',1,0,'',2,0,0),(39789,8534,6,2,0,'87.218.146.106',1192640218,1,0,1,1,1,1,'','','En Harbour puedes usar TRY ... CATCH incluyendo estos defines al comienzo del PRG:\n[code:3tgxn3yj]\n   #xcommand TRY              =&gt; bError &#58;= errorBlock&#40; &#123;|oErr| break&#40; oErr &#41; &#125; &#41; ;;\n                                 BEGIN SEQUENCE\n   #xcommand CATCH &#91;&lt;!oErr!&gt;&#93; =&gt; errorBlock&#40; bError &#41; ;;\n                                 RECOVER &#91;USING &lt;oErr&gt;&#93; &lt;-oErr-&gt; ;;\n                                 errorBlock&#40; bError &#41;\n[/code:3tgxn3yj]\nTienes que delarar una variable bError','',0,'AIA=','3tgxn3yj',1,0,'',2,0,0),(39790,8540,3,2,0,'87.218.146.106',1192640411,1,0,1,1,1,1,'','','Its working fine used this way:\n[code:1cxwhfom]\n   ACTIVATE WINDOW oWnd ;\n      ON INIT oWnd&#58;Center&#40;&#41;\n[/code:1cxwhfom]','',0,'AIA=','1cxwhfom',1,0,'',2,0,0),(39791,8539,3,2,0,'87.218.146.106',1192640553,1,0,1,1,1,1,'','','Antonio,\n\nPlease test samples\\TestMdi5.prg and click on the GET from another MDICHILD window. It works fine.','',0,'AIA=','2bugvykj',1,0,'',2,0,0),(39792,8426,3,303,0,'72.220.100.171',1192640554,1,0,1,1,1,0,'','','Here is a screenshot showing the gray inset. This under XP Pro.\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:1j1uaysw][img:1j1uaysw]http&#58;//img3&#46;freeimagehosting&#46;net/uploads/a82b3e83d7&#46;jpg[/img:1j1uaysw][/url:1j1uaysw]','',0,'GA==','1j1uaysw',1,0,'',303,0,0),(39793,8540,3,448,0,'83.132.54.239',1192640831,1,0,1,1,1,0,'','','I\'m using build Marhc 2006. Is it ok ?','',0,'GA==','87zry3dv',1,0,'',448,0,0),(39794,8540,3,2,0,'87.218.146.106',1192640881,1,0,1,1,1,1,'','','Please try it that way, thanks','',0,'GA==','2vipon7c',1,0,'',2,0,0),(39795,8460,3,972,0,'81.164.117.81',1192644589,1,0,1,1,1,0,'','Re: www.fivewin.info','[quote=&quot;Otto&quot;:so9l1cu1]Hello Patrick,\non\nFiveWin in Practice part 2\nBy Patrick Mast\nthe links a broken.\nRegards,\nOtto\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/general_info.php?id=24\">http://www.fivewin.info/html/general_info.php?id=24</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/html/images/FiveWi3.jpg\">http://www.fivewin.info/html/images/FiveWi3.jpg</a><!-- m -->[/quote:so9l1cu1]\nHello Otto,\n\nDid not know this site was still used <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nWill try to update asap.\n\nThanks for noticing it.\n\nPatrick','',0,'gA==','so9l1cu1',1,0,'',972,0,0),(39796,8538,6,960,0,'84.125.196.99',1192645015,1,0,1,1,1,0,'','','Gracias Master.... funcionó perfectamente!!\n\nMil gracias de nuevo.','',0,'gA==','2bw98a18',1,0,'',960,0,0),(39797,8533,6,92,0,'81.38.201.201',1192645177,1,0,1,1,1,0,'','Re: Copiar objecto database a otro','[quote=&quot;Wanderson&quot;:3fust1ar]Olá,\n\nComo copiar o conteudo del objecto database a otro?\n\n\nSalu2.[/quote:3fust1ar]\n\nTdbf es similar a TDataBase pero más potente.\n\nEn Tdbf se haría:\n\noTDbfexDomi := oTDbfDomici:Clone( lNewArea, cComment )\n\ny para copiar los valores de los campos:\n\n    For nContador := 1 To Len( oTDbfDomici:aTField )\n        AEVAL( oTDbfexDomi:aTField, { |oCampo| If( oCampo:cName == oTDbfDomici:aTField[nContador]:cName, oCampo:Val := oTDbfDomici:aTField[nContador]:Val, Nil ) }  )\n    EndFor\n\nSaludos\nCarlos G.','',0,'gA==','3fust1ar',1,0,'',92,0,0),(39798,8460,3,51,0,'80.122.88.242',1192647575,1,0,1,1,1,0,'','','Hello Patrick,\n\nIt is still a great resource for Fivewin.\nThanks for keeping up the work.\nBest regards,\nOtto','',0,'gA==','3587eyzw',1,0,'',51,0,0),(39799,8532,3,161,0,'81.83.249.31',1192650192,1,0,1,1,1,0,'','','Thanks Antonio,\n\nIt\'s working very nice!!!\n\nBest regards,\nMarc','',0,'gA==','31m8tz8f',1,0,'',161,0,0),(39800,8488,6,975,0,'190.90.131.5',1192650906,1,0,1,1,1,0,'','','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Gracias, Armando.\n\n\nEspera llamada en cualquier momento.\n\n\nSi tienes ejemplos de manejo completo con TXBROWSE, te lo agradezco me lo envies al siguiente correo. <!-- e --><a href=\"mailto:jhonjvd@yahoo.es\">jhonjvd@yahoo.es</a><!-- e --> ó <!-- e --><a href=\"mailto:adolfredomartinez_1963@yahoo.com\">adolfredomartinez_1963@yahoo.com</a><!-- e -->','',0,'gA==','13v5zomx',1,0,'',975,0,0),(39801,8534,6,1178,0,'200.24.127.11',1192652041,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:sinwllgx]En Harbour puedes usar TRY ... CATCH incluyendo estos defines al comienzo del PRG:\n[code:sinwllgx]\n   #xcommand TRY              =&gt; bError &#58;= errorBlock&#40; &#123;|oErr| break&#40; oErr &#41; &#125; &#41; ;;\n                                 BEGIN SEQUENCE\n   #xcommand CATCH &#91;&lt;!oErr!&gt;&#93; =&gt; errorBlock&#40; bError &#41; ;;\n                                 RECOVER &#91;USING &lt;oErr&gt;&#93; &lt;-oErr-&gt; ;;\n                                 errorBlock&#40; bError &#41;\n[/code:sinwllgx]\nTienes que delarar una variable bError[/quote:sinwllgx]\n\nGracias Antonio por aclarar la Duda. \nDefini lo que Usted me dijo pero Ahora genera el Error de los \nFINALLY y el  END    Como se definen estos parametros.\n\n***\n\nLo Implemente como se Hace lo APlique en clipper y me Funciono\n\n\n[/code]\n      BULTIMOMANEJADOR := ErrorBlock( { | oError |  MIMANEJADOR(oError, .t. ) } )\n\n  BEGIN SEQUENCE\n      COHELP := Prog2\n      mtpapel:=\"1\";mncopias:=1;MWinDos=\"D\"\n      select b_loco\n      Eval(aPrim2[1, 2])\n  RECOVER USING OBJLOCAL\n? \"Error No Identificado -&gt;\"\n       CLOSE DATABASES\n       SET DEVICE TO SCREEN\n    END SEQUENCE\n    ERRORBLOCK(bUltimoManejador)\n//    op_xod := op_mod\n    COHELP := \"menu\"\n//     ErrorBlock( objErr )\nRETURN (.t.)\n\n\nFUNCTION MIMANEJADOR(objErr,LMANLOCAL)\n IF LMANLOCAL\n? \"Error ***  -&gt;\", ltrim( str( objErr:gencode ) ), objErr:description + \":\", objErr:operation,\":\"+ErrorMessage(objErr)\n   BREAK objErr\n  ENDIF\nRETURN NIL','',0,'gIA=','sinwllgx',1,0,'',1178,0,0),(39802,8541,6,255,0,'201.122.36.212',1192653109,1,0,1,1,1,1,'','Verce 4.5','Ya esta disponible la version 4.5 de VERCE...\n\nPueden descargarla de\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/index.htm\">http://incos.sytes.net/fivewin/index.htm</a><!-- m -->\n\n\nSaludos a todos.','',0,'gIA=','2o1dgpf6',1,0,'',255,0,0),(39803,8529,6,221,0,'200.109.27.176',1192656474,1,0,1,1,1,1,'','','ruben yo te recomendaria que primero uses el listbox, cuando lo entiendas y domines bien pasa al twbrowse, es un cambio sencillo, y luego haz el gran cambio al txbrowse que si cambia muchas cosas pero los resultados son extraordinarios','',0,'gIA=','3uyhr07x',1,0,'',221,0,0),(39804,8426,3,868,0,'219.64.121.60',1192657389,1,0,1,1,1,1,'','','The insets were gray even without 2007 style. In fact there is no change in the color with or without 2007 style. Perhaps it looks slightly different on Vista. Is it a pure white even in Mr. Antonio\'s sample?','',0,'gIA=','3w15cg2m',1,0,'',868,0,0),(39805,8426,3,868,0,'219.64.121.60',1192657957,1,0,1,1,1,1,'','','By default the msgitem\'s nclrpane is msgbar\'s nclrpane, which is buttonface color. So depending on the setting of different pc\'s the msgitem\'s background can change.','',0,'gIA=','qr64mbtu',1,0,'',868,0,0),(39806,8534,6,2,0,'87.218.146.246',1192658272,1,0,1,1,1,1,'','','Aqui tienes un ejemplo usado en el código del ADORDD:\n[code:2hvz6wkl]\n   TRY\n      oConnection&#58;Execute&#40; &quot;CREATE TABLE &#91;&quot; + cTableName + &quot;&#93; &#40;&quot; + aWAData&#91; WA_SQLSTRUCT &#93; + &quot;&#41;&quot; &#41;\n   CATCH\n      oError &#58;= ErrorNew&#40;&#41;\n      oError&#58;GenCode     &#58;= EG_CREATE\n      oError&#58;SubCode     &#58;= 1004\n      oError&#58;Description &#58;= HB_LANGERRMSG&#40; EG_CREATE &#41; + &quot; &#40;&quot; + ;\n                            HB_LANGERRMSG&#40; EG_UNSUPPORTED &#41; + &quot;&#41;&quot;\n      oError&#58;FileName    &#58;= aOpenInfo&#91; UR_OI_NAME &#93;\n      oError&#58;CanDefault  &#58;= &#46;T&#46;\n      UR_SUPER_ERROR&#40; nWA, oError &#41;\n   END\n[/code:2hvz6wkl]','',0,'AIA=','2hvz6wkl',1,0,'',2,0,0),(39807,8514,6,322,0,'201.134.185.82',1192660266,1,0,1,1,1,0,'','Re: OT:  Gracias Familia!','Ing. Alfredo\n\nFelicidades y en horabuena\n\nAtte. Nazario Salazar Nájera','',0,'AIA=','1u6gu4z7',1,0,'',322,0,0),(39808,8426,3,868,0,'219.64.121.60',1192660473,1,0,1,1,1,1,'','','I dont know how office 2007 msgbars look.  But in office 2003 or in any other software the different msgs on the msg bars are not painted as depressed like in fivewin.  Mostly they are painted at different portions of the Status Bar or shown in \"Parts\" of Status Bar. They look as msgs between two vertical lines.\n\nPersonally I prefer that look. Still I prefer to use FW msgbar and msgitems than FW Status Bar and parts because MsgItems have a lot more functionality than the Parts of StatusBar provided by FW.\n\nI am using a minor change to the TMsgItem.Prg, to paint (optionally) MsgItems like parts of statusbar.  With this change my software\'s msgbar appears like any other software purchased and used by the users.\n\nHere is a sample screen shot  2007 style: \n\n[url=http&#58;//imageshack&#46;us:3qu1wsrh][img:3qu1wsrh]http&#58;//img85&#46;imageshack&#46;us/img85/9093/msgbariq3&#46;png[/img:3qu1wsrh][/url:3qu1wsrh]\n\nScreen shot Non 2007 style\n\n[url=http&#58;//img84&#46;imageshack&#46;us/my&#46;php?image=msbar2vu0&#46;png:3qu1wsrh][img:3qu1wsrh]http&#58;//img84&#46;imageshack&#46;us/img84/3034/msbar2vu0&#46;th&#46;png[/img:3qu1wsrh][/url:3qu1wsrh]\n\nHere is the code\n\n[code:3qu1wsrh]\n   IF StatBarLook&#40;&#41;\n      WndBoxIn&#40; hDC, 0, nLeft - 8, &#58;&#58;oMsgBar&#58;nHeight - 1, nLeft - 7 &#41; // Statusbar Parts look\n   ELSE\n      WndBoxIn&#40; hDC, 3, nLeft - 2, &#58;&#58;oMsgBar&#58;nHeight-5, nLeft + &#58;&#58;nWidth - 6 &#41; // Original Depressed Look\n   ENDIF\n[/code:3qu1wsrh]\n\nThe code I adopted is from some post I had seen long back in this forurm. I dont remember the author.','',0,'GIA=','3qu1wsrh',1,0,'',868,0,0),(39809,8534,6,1178,0,'200.24.127.11',1192660592,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:124mfg2h]Aqui tienes un ejemplo usado en el código del ADORDD:\n[code:124mfg2h]\n   TRY\n      oConnection&#58;Execute&#40; &quot;CREATE TABLE &#91;&quot; + cTableName + &quot;&#93; &#40;&quot; + aWAData&#91; WA_SQLSTRUCT &#93; + &quot;&#41;&quot; &#41;\n   CATCH\n      oError &#58;= ErrorNew&#40;&#41;\n      oError&#58;GenCode     &#58;= EG_CREATE\n      oError&#58;SubCode     &#58;= 1004\n      oError&#58;Description &#58;= HB_LANGERRMSG&#40; EG_CREATE &#41; + &quot; &#40;&quot; + ;\n                            HB_LANGERRMSG&#40; EG_UNSUPPORTED &#41; + &quot;&#41;&quot;\n      oError&#58;FileName    &#58;= aOpenInfo&#91; UR_OI_NAME &#93;\n      oError&#58;CanDefault  &#58;= &#46;T&#46;\n      UR_SUPER_ERROR&#40; nWA, oError &#41;\n   END\n\n\nGracias Antonio \n[/code:124mfg2h][/quote:124mfg2h]','',0,'gIA=','124mfg2h',1,0,'',1178,0,0),(39810,8535,3,868,0,'219.64.121.60',1192666336,1,0,1,1,1,1,'','','Now version 8.1 supports numeric field type like in dbf.\n\nEven earlier, we could use integer or double or money formats as it fits our needs.  Money format does not lose precision in mathematical computations like SUM(..) even on very large tables. So no worries about getting occassional rounding errors.  Even the present compatible numeric field is said to be so.\n\nIt is always a better world with ADT than DBF.','',0,'gIA=','29hbypmy',1,0,'',868,0,0),(39811,8542,3,1158,0,'200.139.130.189',1192668384,1,0,1,1,1,0,'','New msgbar 2007','Antonio, in fivewin.ch,\n\n#xcommand DEFINE &lt;msg: MESSAGE, MESSAGE BAR, MSGBAR&gt; [&lt;oMsg&gt;] ;\n             [ OF &lt;oWnd&gt; ] ;\n             [ &lt;prm: PROMPT, TITLE&gt; &lt;cMsg&gt; ] ;\n             [ &lt;center: CENTER, CENTERED&gt; ] ;\n             [ &lt;clock: CLOCK, TIME&gt; ] ;\n             [ &lt;date: DATE&gt; ] ;\n             [ &lt;kbd: KEYBOARD&gt; ] ;\n             [ FONT &lt;oFont&gt; ] ;\n             [ &lt;color: COLOR, COLORS&gt; &lt;nClrFore&gt; [,&lt;nClrBack&gt; ] ] ;\n             [ &lt;inset: NO INSET, NOINSET&gt; ] ;\n\nmissing :\n\n             [ &lt;l2007: 2007, _2007&gt; ] ;\n\nI have an inset too. \n\nNorberto','',0,'','uvnfvz87',1,0,'',1158,0,0),(39812,8535,3,1158,0,'200.139.130.189',1192668491,1,0,1,1,1,0,'','','nageswaragunupudi,\n\nin adt documentation says : only 2 ou more to numeric fields, 1 digit is to sign\n\nthanks\n\nNorberto','',0,'','38dkzu2w',1,0,'',1158,0,0),(39813,8496,3,1158,0,'200.139.130.189',1192669021,1,0,1,1,1,0,'','','Antonio, my menus dont have an 2007 look, i see in menu.ch , dont have 2007 clause, this is right?\n\nthanks','',0,'','tlu5r1gn',1,0,'',1158,0,0),(39814,8426,3,303,0,'72.220.100.171',1192678356,1,0,1,1,1,0,'','','NageswaraRao,\n\nI like the new look you have created, but I see that the background of the text is still gray. If we can make this transparent then it will look really nice.\n\nIf all controls were transparent by default then they would always look good on any background.\n\nJames','',0,'','2rwb9zrs',1,0,'',303,0,0),(39815,8496,3,303,0,'72.220.100.171',1192679383,1,0,1,1,1,0,'','','Norberto,\n\nOffice style menus are in beta test right now. Unless you are on the beta test team you won\'t have the libs for the new menus.\n\nJames','',0,'','2ruiqm05',1,0,'',303,0,0),(39816,8367,6,9,0,'85.53.87.7',1192679605,1,0,1,1,1,1,'','','[quote=&quot;metaldrummer&quot;:wja4x36v]Sebastian:\nDame un correo donde enviarte un ejemplo.\nLa idea es que te olvides del concepto de .dbf\nYo por lo menos trabajo con ADO duro y puro y no tengo problemas.\nSaludos\nDavid[/quote:wja4x36v]\n\nDavid, podrias enviarme el ejemplo a mi correo:  \n\n<!-- e --><a href=\"mailto:soporte@lebsoft.es\">soporte@lebsoft.es</a><!-- e -->\n\nMuchas gracias','',0,'gA==','wja4x36v',1,0,'',9,0,0),(39817,8514,6,72,0,'189.137.115.90',1192680918,1,0,1,1,1,0,'','','Nazario, hace tiempo que no te veo.\n\nImagino que sigues trabajando con Informix, si es así confirmame, armo un test y me dices si esto funciona.','',0,'gA==','1yo4c7az',1,0,'',72,0,0),(39818,8514,6,78,0,'190.43.34.60',1192681075,1,0,1,1,1,0,'','','Congratulations,,,\nSalu2','',0,'gA==','14p5vvsd',1,0,'',78,0,0),(39819,8273,6,439,0,'200.125.47.228',1192681474,1,0,1,1,1,1,'','Test File for List and Labels sent by Jairo Centero','This is a sample of using Fivewin y List &amp; Labels, sent to me by Jayro Centero, He sent it to me and just ask me to post it in the forum.\n\nSo that is exactly what I´m doing.\n\nI still didn´t prove it.\n\nThanks Jairo!\n\nThis is the link\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?9ll90cstmxj\">http://www.mediafire.com/?9ll90cstmxj</a><!-- m -->','',0,'gA==','2y3mtqe2',1,0,'',439,0,0),(39820,8273,6,439,0,'200.125.47.228',1192681722,1,0,1,1,1,1,'','','Je, con tanto post en inglés, recién caigo que este es el foro en español! <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nEste es un ejemplo de List &amp; Labels con Fivewin, me fué enviado por Jairo Centero, El me lo envió solicitándome solo que lo posteara en el foro, dado que momentaneamente no está programando, de modo que eso es precisamente lo que hago.\n\nAún no lo he probado.\n\nMuchas Gracias Jairo\n \nAquí va el link\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?9ll90cstmxj\">http://www.mediafire.com/?9ll90cstmxj</a><!-- m -->','',0,'gA==','3gezh2yv',1,0,'',439,0,0),(39821,8543,3,904,0,'198.54.202.250',1192685253,1,0,1,1,1,1,'','The memory could not be “read”. Click OK to terminate the pr','When I exit my program sometimes, I get:\n\n0x0046e633 referenced memory at 0x00000000 The memory could not be “read”. Click OK to terminate the program. \n\n0x004577d6 referenced memory at 0x00164b70 The memory could not be “read”. Click OK to terminate the program. \n\nI am sure all databases etc. are closed.\n\nMicrosoft says: This problem is caused by a file extension that contains more than 260 characters to the right of the period. The buffer overfills and causes the error message to occur.  (<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/267858\">http://support.microsoft.com/kb/267858</a><!-- m -->) - This is CANNOT be my problem.\n\nHas anyone come across this before?','',0,'gA==','2r5jzj7i',1,0,'',904,0,0),(39822,8532,3,89,0,'213.21.136.60',1192688254,1,0,1,1,1,0,'','','Hello Antonio \n\nIs this modify present in the new FW ? \n\nRegards MAurizio','',0,'gA==','b8y2ofys',1,0,'',89,0,0),(39823,8426,3,868,0,'210.212.216.67',1192690269,1,0,1,1,1,1,'','','Mr James\n\nIf you like you may adopt the code. As I already acknowledged the code is not mine.  It was from a post I found here.\n\nWe can specify colors for a msgitem if we want a specific background color while definining the msgitem.  If we dont specify colors, by default it is transparent painting on non 2007 style.\n\nTransparent painting in 2007 style should be possible, like the default message on msgbar is painted transparently.  For msgitems it is not now possible unless the library provides a way.','',0,'gA==','1aknij10',1,0,'',868,0,0),(39824,8426,3,6,0,'82.61.68.146',1192692194,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:z85qmim3]Personally I prefer that look.[/quote:z85qmim3]\n\nI agree. It would be great if the inset status of the msgitems were optional and following by default the inset status of the msgbar.\n\nEMG','',0,'gA==','z85qmim3',1,0,'',6,0,0),(39825,8532,3,2,0,'87.218.146.246',1192694219,1,0,1,1,1,1,'','','Maurizio,\n\nIt will be included in FWH 7.11.\n\nAnyhow, if you need it now, please email me and we will provide you the modified OBJs','',0,'gA==','2hx7723j',1,0,'',2,0,0),(39826,8532,3,3,0,'80.81.159.19',1192695123,1,0,1,1,1,1,'','','Antonio\n\nWill you provide the same change for buttonbmp ?\n\nRichard','',0,'gA==','2836086z',1,0,'',3,0,0),(39827,3552,3,32,0,'41.206.160.2',1192698051,1,0,1,1,1,0,'','Checked items','Hi,\n\nI\'ve gotten menus.c to compile, and highlighted menu items are ok, but unhighlighted items still have the gray background?','',0,'gA==','3ob1zeoi',1,0,'',32,0,0),(39828,8532,3,2,0,'87.218.146.246',1192698761,1,0,1,1,1,1,'','','Richard,\n\nIts not that simple as we are calling the standard Windows Button paint procedure and if we override it, then we will not get the standard button painting <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n   CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )\n\nMaybe we find a way','',0,'gA==','ryp5w0mh',1,0,'',2,0,0),(39829,8543,3,2,0,'87.218.146.246',1192698923,1,0,1,1,1,1,'','','Ollie,\n\nPlease place a MsgInfo() before the exit point of your main PRG just to check if the error happens before or after it','',0,'gA==','2gh015qf',1,0,'',2,0,0),(39830,3552,3,2,0,'87.218.146.246',1192699553,1,0,1,1,1,1,'','','Alex,\n\nAre you still using DrawMasked() ? If yes, does your bitmap has the transparent color at pixel 0, 0 ?\n\nPlease post a screenshot of the bitmap and how it looks in the menu. Thanks','',0,'gA==','835otzys',1,0,'',2,0,0),(39831,3552,3,32,0,'41.206.160.2',1192699810,1,0,1,1,1,0,'','Menu items','Hi,\n\nThis is the gray background of unselected menu items, as below\n\n[img:wy8mp9bw]http&#58;//home&#46;quicksoftware&#46;co&#46;za/menuitems&#46;jpg[/img:wy8mp9bw]','',0,'CA==','wy8mp9bw',1,0,'',32,0,0),(39832,8273,6,838,0,'80.34.222.112',1192700266,1,0,1,1,1,0,'','','Hola a todos\n\nComo ya puse en algún post, necesitaba imprimir en codigo de barras tipo PDF417, y como he dado vueltas, y vueltas y no he encontrado la manera de poder imprimir éste tipo de código en mis listados, pues leí que se podía con List&amp;Label.\n\nGracias a Jairo, que me envió un ejemplo de utilización, hice un report como yo quería, pero sólo funciona en la máquina que tengo instalado List&amp;Label.\n\nComo ando pobre en inglés, y las instrucciones están en inglés y alemán, no se cómo hacer para que le funcione donde corrra mi aplicación sin instalar éste programa, me imagino que habrá que copiar alguna dll, o registran algun ocx con el número de la licencia.\n\nSi alguien tiene instrucciones en español y me las manda, a lo mejor me entero de algo.\n\nSaludos\n\nJose Luis','',0,'CA==','3brp8umc',1,0,'',838,0,0),(39833,8496,3,1158,0,'200.139.130.189',1192702565,1,0,1,1,1,0,'','','sorry.... antonio , can you include me in beta test? thanks','',0,'CA==','2i23wnu7',1,0,'',1158,0,0),(39834,3552,3,2,0,'87.218.146.246',1192704563,1,0,1,1,1,1,'','','Alex,\n\nAre those menuitems \"checked\" ?','',0,'CA==','2mcbv9ve',1,0,'',2,0,0),(39835,8496,3,2,0,'87.218.146.246',1192704686,1,0,1,1,1,1,'','','Norberto,\n\nPlease email me your FWH 7.10 serial number, thanks','',0,'CA==','10vj0st8',1,0,'',2,0,0),(39836,3552,3,32,0,'41.206.160.2',1192704688,1,0,1,1,1,0,'','','Yes, they are <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'CA==','2b1dvhmm',1,0,'',32,0,0),(39837,3552,3,2,0,'87.218.146.246',1192705526,1,0,1,1,1,1,'','','Alex,\n\nPlease make this change in your menus.c:\n[code:dxhlu1sb]\n           if&#40; lpdis-&gt;itemState &amp; ODS_CHECKED &#41;\n           &#123;\n              HBITMAP hBmp = LoadBitmap&#40; 0, MAKEINTRESOURCE&#40; OBM_CHECK &#41; &#41;;\n\n              DrawMasked&#40; lpdis-&gt;hDC, hBmp, lpdis-&gt;rcItem&#46;top + 1,\n                          lpdis-&gt;rcItem&#46;left + 1 &#41;;\n              DeleteObject&#40; hBmp &#41;;\n           &#125;\n[/code:dxhlu1sb]','',0,'AIA=','dxhlu1sb',1,0,'',2,0,0),(39838,8544,3,3,0,'80.81.159.19',1192706243,1,0,1,1,1,1,'','browse control','Antonio\n\nThis is a wonderful browse control.\n\nif Fw could do something similar, it would be fantastic\n\nThe product is commercial from codejock, i have tested it, the interface is not easy but the result is great\n\nimage attached\n\n[img]http://www.cbati.com/codejock.gif\n\nRichard[/img][/list]','',0,'','1p3t4c8m',1,0,'',3,0,0),(39839,8520,1,173,0,'203.113.38.13',1192706823,1,0,1,1,1,0,'','Dear Antonio','[quote=&quot;Antonio Linares&quot;:n2t62b2f]Peter,\n\nThose bugs were fixed in more recent FW versions. There are many changes in Class TGet so you need to upgrade your FW version.[/quote:n2t62b2f]\n\n\nI must to buy some upgrade FW version of your meaning ? Did you have not Service Pack for fixed this bugs to free ?\n\nBest Regard,\n\nPeter','',0,'gA==','n2t62b2f',1,0,'',173,0,0),(39840,8541,6,319,0,'201.52.234.57',1192708654,1,0,1,1,1,0,'','','esta com problema quando usamos o arquivo RC... precisamos apagar o RES quando alteramos o RC e o verce não funciona pois não localiza o RES... como corrigir','',0,'gA==','2yxuolpl',1,0,'',319,0,0),(39841,3552,3,32,0,'41.206.160.2',1192708785,1,0,1,1,1,0,'','','Did that change from your earlier post.\n\nSelected items are ok, unselected are not','',0,'gA==','lj8uf5a2',1,0,'',32,0,0),(39843,8546,3,58,0,'84.149.76.66',1192715917,1,0,1,1,1,0,'','iconize window','Hi all,\n\nI want to activate a timer in the moment a window is iconized to the taskbar.\nSince there  is no ON ICONIZE clause, i don\'t know what event i can use. \n\nThanks for any hint,\nDetlef','',0,'gA==','1d7hvrla',1,0,'',58,0,0),(39844,8539,3,448,0,'82.155.5.85',1192717773,1,0,1,1,1,0,'','','Antonio,\n\nPlease try testmdi4 and you\'ll see what I mean. This is not the standard behavior of focus controls inside MDI\'s. The MDI should be brought to front (focused) immediatly.\n\nAntonio','',0,'gA==','raxwb63c',1,0,'',448,0,0),(39845,8540,3,448,0,'82.155.5.85',1192718149,1,0,1,1,1,0,'','','Antonio,\n\nThis is not working the center() is not caculated right.\n\nAntonio','',0,'gA==','2gqk70ku',1,0,'',448,0,0),(39846,3552,3,2,0,'87.218.146.246',1192719214,1,0,1,1,1,1,'','','Alex,\n\nYou are using white as the menu color, please select another menu color and check if that makes a difference, thanks','',0,'gA==','1p7kb0c5',1,0,'',2,0,0),(39847,8520,1,2,0,'87.218.146.246',1192719376,1,0,1,1,1,1,'','','Peter,\n\nWe can only email you current Class TGet and you check if that helps.\n\nFW 2.1 is a very old FW version. We can\'t provide service packs for such old builds.','',0,'gA==','adblzlmn',1,0,'',2,0,0),(39848,8497,6,106,0,'85.34.123.173',1192720738,1,0,1,1,1,1,'','','Buenisimo!!! ya está pronto?   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','i4m4fwdp',1,0,'',106,0,0),(39849,8541,6,102,0,'87.217.67.139',1192720954,1,0,1,1,1,1,'','','Juan carlos el verce 4.5 me da este error\n fatal: Unable to open file \'GTGUI.LIB\'\n\nQue puede ser?\n\nGracias','',0,'gA==','1rlajr3o',1,0,'',102,0,0),(39850,8546,3,303,0,'72.220.100.171',1192722515,1,0,1,1,1,0,'','','Detlef,\n\nYou could use another timer to periodically check isIconic(), then start the timer you want when it is true.\n\nJames','',0,'gA==','2arp8mpp',1,0,'',303,0,0),(39851,8546,3,6,0,'82.61.68.146',1192723306,1,0,1,1,1,1,'','','Or use ON RESIZE.\n\nEMG','',0,'gA==','2ssay251',1,0,'',6,0,0),(39852,8539,3,303,0,'72.220.100.171',1192724254,1,0,1,1,1,0,'','','AHF,\n\nTestmdi5 is a standard MDI child window and it does work properly.\n\nTestmdi4 is a dialog inside of a MDI child so this is not the same. You are clicking on a control on the dialog not on the MDI child window.\n\nI don\'t know how to get the behavior you want. \n\nJames','',0,'gA==','8yx1fllb',1,0,'',303,0,0),(39853,8546,3,303,0,'72.220.100.171',1192724536,1,0,1,1,1,0,'','','&gt;Or use ON RESIZE. \n\nA good idea, but the timer would be triggered for any resize not just iconizeng.\n\nDetlef, I do wonder what you are attempting to do? What if they don\'t iconize it but merely switch to another application? I rarely iconize an app, but just switch to another using the taskbar.\n\nIf you are trying to find out if the app is inactive, then I think you are going to have to monitor the event handler or something.\n\nJames','',0,'gA==','2n9zcq0v',1,0,'',303,0,0),(39854,8547,19,92,0,'80.33.133.32',1192724675,1,0,1,1,1,0,'','Captura de avisos Windows.','Buenas,\n\nSé que existe una combinación de teclas que bajo Windows permite capturar en una cadena MODO TEXTO el título del aviso y su mensaje de error (y creo que hasta el texto de los botones).\n\nEstoy hablando de ventanas de mensajes del tipo de:\nTitulo: \"L:\\\"\nMensaje: \"No puede tener acceso a L:\\CepOof\"\n         \"Acceso denegado.\"\nBotón: \"Aceptar\"\n\nNo estoy hablando de pulsar Alt+ImprPant para capturar la ventanita del mensaje en el portapapeles como una imagen.\n\nAlguién sabe lo conoce?\n\nSaludos\nCarlos G.','',0,'gA==','2h8peq20',1,0,'',92,0,0),(39855,8548,6,396,0,'190.72.207.174',1192724744,1,0,1,1,1,1,'','Libreria del TWBROWSE de Hernan...','1. Descargue la clase de Hernan TWBROWSE pero cuando compilo usando Verce, me da un error de antiguedad, usando FWH 7.01, se me dijo que debia buscar la libreria para esa version o recompilar la libreria con la version de xharbour que uso, la cual es la que se usa con FWH7.01, mucho agradeceria una orientaccion, ojo, la que baje de RAPISHARE esta zipeada y da error al tratar de abrirlo, use una que tenia guardada, debe ser un poco vieja...\n\n2. Mis .DBF no manejan mucha informacion, podria usar el mismo TWBROWSE nativo de FHW...para le edicion de celdas, tendran algun ejemplo de edicion de celdas bajo cualquie version de TWBROWSE? desde ya gracias....','',0,'gA==','2w6vy2w7',1,0,'',396,0,0),(39856,8546,3,868,0,'210.212.216.67',1192725525,1,0,1,1,1,1,'','','I have this working code in my programs:\n\n........ ON RESIZE WinResize(oWnd) .......\n\n[code:272f0npk]\nSTATIC FUNCTION WinResize&#40; oWnd &#41;\n\n  IF IsIconic&#40; oWnd&#58;nWnd &#41;\n         // my code what to do when first iconized\n   ELSE\n        // do what is needed here\n   ENDIF\n\nRETURN &#46;T&#46;\n[/code:272f0npk]\nI use this not for starting timer but for other purposes. this works for starting  a timer also','',0,'AIA=','272f0npk',1,0,'',868,0,0),(39857,8546,3,58,0,'84.149.123.150',1192725645,1,0,1,1,1,0,'','','Enrico and James,\n\nthank you for jumping in.\n\nAs James said, \"on resize\" would trigger the timer start every time a user resizes the window of my app.\n\nThe intention is the following:\nIn our company there are 5 workstations which create invoices.\n\nIf a new invoice has been created a popup window with a browse should open to show the most recent invoices which not yet have been printed.\n\nMy timer looks in 5 different dbf files for new invoices. If he found one i do deactivate the timer.\nSo the user can start all printing and optical storage routines.\nWhen he is finished he will collapse the app window into the task bar.\n\nFor the moment i have a extra button to iconize.\nBut our users are usesd to click on the iconize symbol.\n\nThat\'s my problem.\n\nRegards,\nDetlef','',0,'AIA=','u2osynvq',1,0,'',58,0,0),(39858,8546,3,303,0,'72.220.100.171',1192726096,1,0,1,1,1,0,'','','Detlef,\n\nPerhaps what you want is to start the timer on bLostFocus and stop it on bGotFocus.\n\nJames','',0,'AIA=','20ajy5y4',1,0,'',303,0,0),(39859,8546,3,58,0,'84.149.123.150',1192726517,1,0,1,1,1,0,'','','James,\n\nthis sounds like a good idea.\nI\'ll try it.\n\nThanks, James','',0,'AIA=','1wu6e75p',1,0,'',58,0,0),(39860,8546,3,6,0,'82.61.68.146',1192727486,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1rpmb3sy]&gt;Or use ON RESIZE. \n\nA good idea, but the timer would be triggered for any resize not just iconizeng.[/quote:1rpmb3sy]\n\nThis is not true. ON RESIZE automatically provides nSizeType that can be any of the following values:\n\n[code:1rpmb3sy]#define SIZE_RESTORED   0\n#define SIZE_MINIMIZED  1\n#define SIZE_MAXIMIZED  2\n#define SIZE_MAXSHOW    3\n#define SIZE_MAXHIDE    4[/code:1rpmb3sy]\n\nEMG','',0,'gIA=','1rpmb3sy',1,0,'',6,0,0),(39861,8546,3,303,0,'72.220.100.171',1192727674,1,0,1,1,1,0,'','','Detlef,\n\n&gt;If a new invoice has been created a popup window with a browse should open to show the most recent invoices which not yet have been printed. \n\nI assume you mean that the app is iconized (or better, not in focus) when this window pops up? Is this so they know there is a new invoice to handle? Wouldn\'t you really want a popup notice of a new invoice even if the app isn\'t iconized and they were working in it?\n\nIs this happening on all 5 workstations? Are any one of the five people supposed to handle the new invoice? Can\'t the invoices just be printed automatically without user intervention?\n\n&gt;My timer looks in 5 different dbf files for new invoices. \n\nHmm. You have a different DBF for each workstation? Why? Can\'t you put them all in the same DBF?\n\n&gt;If he found one i do deactivate the timer. So the user can start all printing and optical storage routines. When he is finished he will collapse the app window into the task bar.\n\nI don\'t see why you would need to deactivate the timer. After the timer routine finds a new invoice it pops up the window, then ignores that new invoice and starts looking for another. If the timer isn\'t checking too often (say once a minute), it isn\'t going to affect the performance of the program while the user is working. That way while they are working it would still notify them of a new invioce.\n\n&gt;For the moment i have a extra button to iconize. \n&gt;But our users are usesd to click on the iconize symbol.\n\nAs I mentioned in my previous message, lots of users are just going to click on another task on the taskbar or open another task on the menu--this is one less click than iconizing then clicking on another task. There is no need to iconize an app. \n\nI think there are better ways to handle your problem.\n\nJames','',0,'gIA=','8ouhpqyl',1,0,'',303,0,0),(39862,8546,3,303,0,'72.220.100.171',1192727874,1,0,1,1,1,0,'','','Enrico,\n\n&gt;This is not true. ON RESIZE automatically provides nSizeType that can be any of the following values: \n\nAh, I didn\'t know that. But in his situation I think checking for iconized is not going to work. See my other message discussing his problem.\n\nJames','',0,'gIA=','1cze46yp',1,0,'',303,0,0),(39863,8539,3,2,0,'87.218.146.246',1192728380,1,0,1,1,1,1,'','','Antonio,\n\nPlease review this thread for a very interesting way to avoid the use of a dialog box inside the mdichild:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7034&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=setparent+mdi\">http://fivetechsoft.com/forums/viewtopi ... parent+mdi</a><!-- m -->','',0,'gIA=','3uuz3l4o',1,0,'',2,0,0),(39864,8497,6,2,0,'87.218.146.246',1192728875,1,0,1,1,1,1,'','','Pedro,\n\nYa está disponible para los usuarios de FWH 7.10 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','1y2icpq5',1,0,'',2,0,0),(39865,8546,3,6,0,'82.61.68.146',1192730059,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:vg8s7oxj]But in his situation I think checking for iconized is not going to work. See my other message discussing his problem.[/quote:vg8s7oxj]\n\nI\'m not sure to have understood  the Detlef\'s problem but I tend to agree.\n\nEMG','',0,'gA==','vg8s7oxj',1,0,'',6,0,0),(39866,8548,6,2,0,'87.218.146.246',1192731809,1,0,1,1,1,1,'','','Jose Luis,\n\n&gt;\n2. Mis .DBF no manejan mucha informacion, podria usar el mismo TWBROWSE nativo de FHW...para le edicion de celdas, tendran algun ejemplo de edicion de celdas bajo cualquie version de TWBROWSE? desde ya gracias....\n&gt;\n\nPuedes usar los métodos oBrw:lEditCell() que es modal, ó oBrw:EditCell() que es no modal. Revisa su código en source\\classes\\wbrowse.prg','',0,'gA==','3mwfc7g2',1,0,'',2,0,0),(39867,8549,6,911,0,'200.72.141.51',1192732770,1,0,1,1,1,1,'','Consulta sobre puerto LPT','Hola a todos:\nLo que hacíamos antiguamente con el isprinter() se puede hacer con xharbour+fw hacia un lpt en windows?\nHay alguna manera que yo pueda consultar por los estados del puerto lpt antes de imprimir. Específicamente al utilizar tdosprn.\nsaludos\nDavid Lagos S.\nCoquimbo-Chile','',0,'gA==','18cun2yj',1,0,'',911,0,0),(39868,8541,6,415,0,'190.84.72.61',1192735619,1,0,1,1,1,1,'','','Juan Carlos:\n\nDentro de la carpeta de \\Xharbour\\lib\n\nPuedes renombrar la gtwin.lib  a gtgui.lib\n\nPero YO prefiero hacer una copia y dejar las dos librerias y asi puedes seguir utilizando VERCE 4.3 y la 4.5 al tiempo, mientras que la 4.5 queda bien estable...\n\nEspero te sirva\n\nMauricio Arevalo','',0,'gA==','ocabhz7r',1,0,'',415,0,0),(39869,8550,6,36,0,'164.77.81.210',1192736736,1,0,1,1,1,1,'','AdsRestructureTable()','Estimados \n\nalguien a utilizado la funcion de Ads AdsRestructureTable()\n\na ver si me dan una manito para esta funcion\n\ndesde ya gracias...\n\nviendo los fuentes me da esta pista, pero no he podido como implementarla..[code:3d3vb5td]\n\nHB_FUNC&#40; ADSRESTRUCTURETABLE &#41;\n&#123;\n   // call&#58;\n   // AdsRestructureTable&#40; cTable, cAddFields, cDeleteFields, cChangeFields &#41;\n\n   //UNSIGNED32  AdsRestructureTable&#40; ADSHANDLE hConnect,UNSIGNED8 *pucName,\n   //   UNSIGNED8 *pucAlias,UNSIGNED16 usTableType,UNSIGNED16 usCharType,\n   //   UNSIGNED16 usLockType,UNSIGNED16 usCheckRights,UNSIGNED8\n   //   *pucAddFields,UNSIGNED8 *pucDeleteFields,UNSIGNED8 *pucChangeFields &#41;;\n   //adsFileType ADS_DEFAULT, ADS_ADT, ADS_NTX and ADS_CDX\n\n   UNSIGNED32 ulRetVal;\n   UNSIGNED8 *pTableName      = &#40;UNSIGNED8 *&#41; hb_parcx&#40; 1 &#41;;\n   UNSIGNED8 *pucAddFields    = &#40;UNSIGNED8 *&#41; hb_parcx&#40; 2 &#41;;\n   UNSIGNED8 *pucDeleteFields = &#40;UNSIGNED8 *&#41; hb_parcx&#40; 3 &#41;;\n   UNSIGNED8 *pucChangeFields = &#40;UNSIGNED8 *&#41; hb_parcx&#40; 4 &#41;;\n   ADSHANDLE hConnect = HB_ADS_PARCONNECTION&#40; 5 &#41;;\n\n   ulRetVal = AdsRestructureTable&#40; hConnect, pTableName, NULL,\n                  adsFileType, adsCharType, adsLockType,\n                  adsRights,\n                  pucAddFields,\n                  pucDeleteFields,\n                  pucChangeFields &#41;;\n\n   hb_retl&#40; &#40;long&#41; ulRetVal &#41;;[/code:3d3vb5td]','',0,'AIA=','3d3vb5td',1,0,'',36,0,0),(39870,8546,3,58,0,'84.149.123.150',1192737406,1,0,1,1,1,0,'','','James,\n\nthanks for your thorough thoughts about my problem.\nI know that there are better ways to handle this task.\n\nBut this would end in a deep redesign of our invoicing system.\nUnfortunatelly my boss would only accept such work if it would be done in a week <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSo i must must find a quick ( and dirty ) solution for my problem.\n\nEnrico helped me with his information about nSizeType which i didn\'t know before.\n\nThanks Enrico and James,\nDetlef','',0,'AIA=','2tyqmzzx',1,0,'',58,0,0),(39871,8551,3,486,0,'200.184.85.3',1192738466,1,0,1,1,1,0,'','all function','Hi,\n\nIt would like to make the following one, I have these functions in the\nsystem:\ntest1()\ntest2()\ntest3()\netc...\n\nwhen I to execute any function that I created in the system to pass for a\nfunction; master()\n\nClemerson','',0,'AIA=','1b4l9ia5',1,0,'',486,0,0),(39872,8551,3,2,0,'87.218.146.246',1192738745,1,0,1,1,1,1,'','','Clemerson,\n\nWhy don\'t you call master() from inside each of them ?','',0,'AIA=','3o9rdgz5',1,0,'',2,0,0),(39873,8529,6,1178,0,'200.24.127.11',1192740038,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:mttlc1p9]Los tres vienen incluidos en FWH. No se necesita nada adicional[/quote:mttlc1p9]\n\nGracias Antonio, Ya me quedo claro la duda que tenia','',0,'gA==','mttlc1p9',1,0,'',1178,0,0),(39874,8529,6,1178,0,'200.24.127.11',1192740187,1,0,1,1,1,0,'','','[quote=&quot;QAZWSX2K&quot;:3pkuhewj]ruben yo te recomendaria que primero uses el listbox, cuando lo entiendas y domines bien pasa al twbrowse, es un cambio sencillo, y luego haz el gran cambio al txbrowse que si cambia muchas cosas pero los resultados son extraordinarios[/quote:3pkuhewj]\n\nGracias, Lo tendre en cuenta,','',0,'gA==','3pkuhewj',1,0,'',1178,0,0),(39875,8544,3,34,0,'68.5.217.82',1192740393,1,0,1,1,1,1,'','Code Jock Calendar Control','Richard,\n\nDid you actually use this with FWH / xHarbour and develop some good ?  Examples would be appreciated.\n\nI looked at this and talked to them, but they told me they have no experience / guidelines for FWH / xHarbour, and they do not support DBF\'s although we might be able to handle that through the Memory model.\n\nTim','',0,'gA==','1xkh7x7p',1,0,'',34,0,0),(39876,8546,3,303,0,'72.220.100.171',1192740394,1,0,1,1,1,0,'','','Detlef,\n\n&gt;So i must must find a quick ( and dirty ) solution for my problem. \n\n&gt;Enrico helped me with his information about nSizeType which i didn\'t know before.\n\nOK, I understand. However, checking for iconized is not going to tell you if they just switched to another app (without iconizing), so the bLostFocus/bGotFocus system would be a better solution and doesn\'t require any more work.\n\nHowever, I still think you should just run the timer all the time. I don\'t see any problem with that. This should require even less work.\n\nYou should be able to do either one in an hour or less.\n\nJames','',0,'gA==','vxo5thmx',1,0,'',303,0,0),(39877,8552,6,1178,0,'200.24.127.11',1192743209,1,0,1,1,1,0,'','Error Harbour Mes de Septiembre del 2007','Instale la Nueva Version De Harbour de Septiembre del 2007 , compilo la Aplicacion,\nAl Ejecutarla me genera el siguiente Error.\n\nError Base/1004 No Existe el Metodo NEW From Errorsys, line:0.\n\n\nLa version anterior con la que estaba trabajando es Harbour Build 45','',0,'gA==','68gwx5tb',1,0,'',1178,0,0),(39878,2080,3,36,0,'164.77.81.210',1192743328,1,0,1,1,1,1,'','','Hello\n\nYou would be able to place an example of like using AdsRestructureTable','',0,'gA==','3m7nfak6',1,0,'',36,0,0),(39879,8551,3,486,0,'201.82.142.26',1192747089,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1oie300o]Clemerson,\n\nWhy don\'t you call master() from inside each of them ?[/quote:1oie300o]\n\nit would function, so that ai I would have that to modify many funcoes in the system, does not have another alternative?\n\nClemerson','',0,'gA==','1oie300o',1,0,'',486,0,0),(39880,8544,3,1193,0,'203.70.51.188',1192750201,1,0,1,1,1,0,'','Re: browse control','[quote=&quot;Richard Chidiak&quot;:1xktauoz]Antonio\n\nThis is a wonderful browse control.\n\nif Fw could do something similar, it would be fantastic\n\nThe product is commercial from codejock, i have tested it, the interface is not easy but the result is great\n\nimage attached\n\n[img]http://www.cbati.com/codejock.gif\n\nRichard[/img][/list][/quote:1xktauoz]\n\nHi Richard,\n\nLook it.\nI test codejock some function.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/1e9cc9/\">http://www.filefactory.com/file/1e9cc9/</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.filefactory.com/file/99d85f/\">http://www.filefactory.com/file/99d85f/</a><!-- m -->\n\nRegards,\n\nRichard','',0,'gA==','1xktauoz',1,0,'',1193,0,0),(39881,8497,6,215,0,'189.136.200.19',1192761914,1,0,1,1,1,1,'','¿Como?','Hola Antonio,\n\n¿Cómo se activa en el menú y en el preview el look 2007?\nYa descargé nuevamente, instalé y compile y solo veo mi barra de botones y la de mensajes con el nuevo look.\n\n\nGracias\nFernando\nMéxico, DF','',0,'gA==','cnjtqnp2',1,0,'',215,0,0),(39882,8541,6,102,0,'87.217.67.139',1192772557,1,0,1,1,1,1,'','','Gracias Maurcio.\n\nahoar da otro error:\n\nFatal: Unable to open file \'PCREPOS.LIB\'\n\nHay que cambiar alguna otra el nombre?\n\nGracias','',0,'gA==','162ywyvc',1,0,'',102,0,0),(39883,8497,6,519,0,'83.32.149.231',1192776596,1,0,1,1,1,0,'','','Antonio, el Test2007.exe no funciona en Windows 98 de un gpf\n\n\n  Saludos','',0,'gA==','12u87k23',1,0,'',519,0,0),(39884,8546,3,130,0,'141.51.32.24',1192778913,1,0,1,1,1,1,'','','Detlef,\n\ntry the following\n\n[code:1s4uds4q]ACTIVATE WINDOW &#58;&#58;oWnd ;\n             ;//ON INIT ;\n             ON RESIZE If&#40; nSizeType == SIZE_MINIMIZED, &lt;StartTimer&gt;, &lt;EndTimer&gt; &#41; ;\n             VALID &#58;&#58;End&#40;&#41;[/code:1s4uds4q]\n\nIt should work','',0,'AIA=','1s4uds4q',1,0,'',130,0,0),(39885,8497,6,2,0,'87.218.146.246',1192780361,1,0,1,1,1,1,'','','Fernando,\n\nTienes que enviarnos un email solicitando las librerías modificadas, y especificando si son para Harbour, xHarbour ó xHB comercial <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEs preciso ser usuario de FWH 7.10, ya que no funcionan con versiones anteriores.','',0,'AIA=','fl4awe65',1,0,'',2,0,0),(39886,8497,6,2,0,'87.218.146.246',1192780407,1,0,1,1,1,1,'','','&gt; Test2007.exe no funciona en Windows 98 de un gpf \n\nVamos a revisarlo, gracias!','',0,'AIA=','24o0a29b',1,0,'',2,0,0),(39887,8541,6,2,0,'87.218.146.246',1192780475,1,0,1,1,1,1,'','','José Martin,\n\n&gt; PCREPOS.LIB\n\nComprueba que tengas esa librería en el directorio LIB de xHarbour','',0,'AIA=','2zu405js',1,0,'',2,0,0),(39888,8552,6,2,0,'87.218.146.246',1192780572,1,0,1,1,1,1,'','','Ruben,\n\nEstas usando FWH 7.09 ó 7.10 ?\n\nEn caso contrario necesitas recompilar todos tus PRGs y los de FWH','',0,'AIA=','3id8dgs4',1,0,'',2,0,0),(39889,8544,3,2,0,'87.218.146.246',1192780957,1,0,1,1,1,1,'','','Richard,\n\nWe could easily implement such \"Calendar\" control for FWH (or a full self contained calendar.prg similar to the FWH print preview window).\n\nAFAIK, ViaOpen is already working on it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','17uy4mbg',1,0,'',2,0,0),(39890,8182,6,127,0,'83.34.19.88',1192784028,1,0,1,1,1,0,'','','He bajado la version de este mes de FWH y he probado la clase TPreview y he visto que ya está arreglada y no sale comprimida vericalmente como salía antes.\nLa cuestion es que llamo a \"PRINTER oPrn PREVIEW\" y aparece la previsualización pero queda en segundo plano detrás de la ventana desde donde la llamo, y hasta que no cierro la ventana desde donde llamo a la función de imprimir, no me deja actuar sobre la previsualización.\nLa previsualización se me queda dentro de la ventana principal del programa, con la versión anterior me salía como una ventan independiente.\n\nSaludos.','',0,'AIA=','1ecw36p7',1,0,'',127,0,0),(39891,8182,6,2,0,'87.218.146.246',1192784334,1,0,1,1,1,1,'','','Julio,\n\nTu ventana principal es MDI ? \n\nEn caso afirmativo, lo que ahora hacemos es integrarla dentro del entorno MDI principal','',0,'AIA=','2egcfh5e',1,0,'',2,0,0),(39892,8182,6,127,0,'83.34.19.88',1192784914,1,0,1,1,1,0,'','','Ventana principal:\n\n DEFINE WINDOW oWnd [u:1gxkfz4b]MDI[/u:1gxkfz4b] FROM 04, 10 TO 30, 90;\n        TITLE \"Gestión de Obras\" ;\n        MENU Menu() ;\n        ICON oIcon ;\n        BRUSH oBrush\n        SET FONT OF oWnd TO oFont\n        SET MESSAGE OF oWnd TO ;\n        \"Gestión de Obras           Usuario = \" + WNetGetUser();\n        TIME DATE KEYBOARD\n        ...\n ACTIVATE WINDOW oWnd MAXIMIZED ;\n          ON INIT ( oWnd:cTitle := VERSION + COMPILADO, ;\n		    VerifFiles(), ;\n		    AbreFicher(), ;  \n		    Set( _SET_DECIMALS, 2 ) ) ;\n          VALID IF( MsgYesNo( \"¿ Realmente desea salir ?\", \"Elija una opción\" ), CierraDbfs(), .F. ) \n       \nDesde esta ventana llamo a los dialogos y desde los dialogos a las funciones de imprimir:\n\n DEFINE	DIALOG oDlg TITLE \"Listado Clientes\";\n	FROM  0, 0 TO 140, 374 ;                 //Alto y Ancho\n	OF oWnd                ;\n	PIXEL STYLE { WS_SYSMENU, WS_CHILD, WS_VISIBLE, WS_TABSTOP }\n\n...\n Static Function Listado_01( cDbf, nRadio, xIni, xFin )\n \n    local oPrn\n    \n    PRINTER oPrn PREVIEW\n\n¿ Cómo lo tengo que llamar para que aparezca independiente y me permita actuar soble la ventana de previsualización ?\n\nSaludos','',0,'AQ==','1gxkfz4b',1,0,'',127,0,0),(39893,8544,3,3,0,'80.81.159.19',1192785267,1,0,1,1,1,1,'','Re: Code Jock Calendar Control','Tim\n\nI talked to them as well, no dbf support (this is almost everywhere.!)\n\nI did some xml work on the interface and i could read/write to and from the control\n\nI did not integrate it to my fwh app, i have only the demo version. I have not yet made the decision to purchase the product (rather expensive). I prefer fwh controls if available, this is why i asked... \n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nRichard','',0,'AQ==','11fingkf',1,0,'',3,0,0),(39894,8544,3,3,0,'80.81.159.19',1192785382,1,0,1,1,1,1,'','','Antonio \n\nif you can do it,  go go go  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nit will be a great enhancement to fw.\n\nRichard\n\nPS : I will take a look at viaopen','',0,'AQ==','23smag9s',1,0,'',3,0,0),(39895,8541,6,102,0,'87.217.67.139',1192785535,1,0,1,1,1,1,'','','Antonio.\nSi tengo esta libreria en el directorio de xHarbour pero yo estoy utilizando harbour\naunque en Verce si hay que pner la carpeta don esta xharbour\nNo entiendo nada\nGracias','',0,'AQ==','14rwpnjg',1,0,'',102,0,0),(39896,8544,3,2,0,'87.218.146.246',1192786745,1,0,1,1,1,1,'','','Richard,\n\nIf our friends from ViaOpen gets delayed, then we will do it for FWH, and it will be part of FWH, same as the print preview <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIts quite simple <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AQ==','2m4ix71l',1,0,'',2,0,0),(39897,8541,6,2,0,'87.218.146.246',1192786919,1,0,1,1,1,1,'','','José Martin,\n\nPrueba a renombrar una libraría de Harbour de esta forma desde el MsDos:\n\ncopy usrrdd.lib pcrepos.lib\n\ny ya debería funcionarte','',0,'AQ==','hvz7wheh',1,0,'',2,0,0),(39898,8182,6,2,0,'87.218.146.246',1192787074,1,0,1,1,1,1,'','','Julio,\n\nSi la necesitas independiente tienes dos soluciones rápidas:\n\n1. Usa el módulo rpreview.prg de la versión anterior de FWH\n\n2. Modifica el actual rpreview.prg y quitale MDICHILD, para que la cree independiente','',0,'AQ==','qxvhdo5w',1,0,'',2,0,0),(39899,8182,6,127,0,'83.34.19.88',1192790839,1,0,1,1,1,0,'','','Correcto Antonio, compilando con rpreview.prg de la version anterior funciona perfectamente. Gacias.\n\nNo obstante si hubiera alguna solución para poder hacerlo con la nueva sin modificarla, de alguna forma diferente de llamar a la función o algo, te agradeceria que lo pusieras en el foro, o me lo comuniques, pues quitando lo de que hay que cerrar la ventana desde donde se llama, queda muy bien  dentro de la ventana principal de la aplicación, y además si se pueden abrir varias \"preview\" pues tanto mejor.\n\nHe probado los ejemplos que vienen en FWH\\samples:\ntestpre2.prg\ntestprev.prg\ny funcionan perfectamente, la cuestión es cómo hacerlo así en mis programas, es lo que no se.\n\nSaludos','',0,'AQ==','2k12hna6',1,0,'',127,0,0),(39900,8539,3,448,0,'82.155.5.85',1192791525,1,0,1,1,1,0,'','','Thanks for your reply, however and although it is a very nice solution for me doesn\'t work.\nI treat every Mdichild container for each dialog that corresponds to a particular program rotine. \nI navigate through the dialogs (rotines) foward and backward inside the mdichild. \nIt is not very common but it has been working without any probelms for some yeras now using FW16.\nThe only problem in xHarbour is that you can click a chebox or any other control on another child without focusing it it is still active and works wihtout focusing the mdichild.\n\nIs it possible to disable all controls when the mdichild loose focus and enable them when it gain focus again ?\n\nAntonio','',0,'AQ==','sjctxikk',1,0,'',448,0,0),(39901,8206,6,362,0,'200.158.19.244',1192793712,1,0,1,1,1,1,'','','NAME\nupx - compress or expand executable files\n\n\n\n--------------------------------------------------------------------------------\n\nSYNOPSIS\nupx [ command ] [ options ] filename...\n\n\n\n--------------------------------------------------------------------------------\n\nABSTRACT\n            The Ultimate Packer for eXecutables\n  Copyright (c) 1996-2005 Markus Oberhumer &amp; Laszlo Molnar\n               <!-- m --><a class=\"postlink\" href=\"http://upx.sourceforge.netUPX\">http://upx.sourceforge.netUPX</a><!-- m --> is a portable, extendable, high-performance executable packer for several different executable formats. It achieves an excellent compression ratio and offers *very* fast decompression. Your executables suffer no memory overhead or other drawbacks for most of the formats supported, because of in-place decompression.\n\nWhile you may use UPX freely for both non-commercial and commercial executables (for details see the file LICENSE), we would highly appreciate if you credit UPX and ourselves in the documentation, possibly including a reference to the UPX home page. Thanks.\n\n[ Using UPX in non-OpenSource applications without proper credits is considered not politically correct <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> ]\n\n\n\n--------------------------------------------------------------------------------\n\nDISCLAIMER\nUPX comes with ABSOLUTELY NO WARRANTY; for details see the file LICENSE.\n\nThis is the first production quality release, and we plan that future 1.xx releases will be backward compatible with this version.\n\nPlease report all problems or suggestions to the authors. Thanks.\n\n\n\n--------------------------------------------------------------------------------\n\nDESCRIPTION\nUPX is a versatile executable packer with the following features:\n\n  - excellent compression ratio: compresses better than zip/gzip,\n      use UPX to decrease the size of your distribution !  - very fast decompression: about 10 MB/sec on an ancient Pentium 133,\n      about 200 MB/sec on an Athlon XP 2000+.  - no memory overhead for your compressed executables for most of the\n      supported formats  - safe: you can list, test and unpack your executables\n      Also, a checksum of both the compressed and uncompressed file is\n      maintained internally.  - universal: UPX can pack a number of executable formats:\n      * atari/tos\n      * bvmlinuz/386    [bootable Linux kernel]\n      * djgpp2/coff\n      * dos/com\n      * dos/exe\n      * dos/sys\n      * linux/386\n      * linux/elf386\n      * linux/sh386\n      * ps1/exe\n      * rtm32/pe\n      * tmt/adam\n      * vmlinuz/386     [bootable Linux kernel]\n      * watcom/le (supporting DOS4G, PMODE/W, DOS32a and CauseWay)\n      * win32/pe  - portable: UPX is written in portable endian-neutral C++  - extendable: because of the class layout it\'s very easy to support\n      new executable formats or add new compression algorithms  - free: UPX can be distributed and used freely. And from version 0.99\n      the full source code of UPX is released under the GNU General Public\n      License (GPL) !You probably understand now why we call UPX the ``ultimate\'\' executable packer.\n\n\n\n--------------------------------------------------------------------------------\n\nCOMMANDS\n\nCompress\nThis is the default operation, eg. upx yourfile.exe will compress the file specified on the command line.\n\n\nDecompress\nAll UPX supported file formats can be unpacked using the -d switch, eg. upx -d yourfile.exe will uncompress the file you\'ve just compressed.\n\n\nTest\nThe -t command tests the integrity of the compressed and uncompressed data, eg. upx -t yourfile.exe check whether your file can be safely decompressed. Note, that this command doesn\'t check the whole file, only the part that will be uncompressed during program execution. This means that you should not use this command instead of a virus checker.\n\n\nList\nThe -l command prints out some information about the compressed files specified on the command line as parameters, eg upx -l yourfile.exe shows the compressed / uncompressed size and the compression ratio of yourfile.exe.\n\n\n\n--------------------------------------------------------------------------------\n\nOPTIONS\n-q: be quiet, suppress warnings\n\n-q -q (or -qq): be very quiet, suppress errors\n\n-q -q -q (or -qqq): produce no output at all\n\n--help: prints the help\n\n--version: print the version of UPX\n\n[ ...to be written... - type `upx --help\' for now ]\n\n\n\n--------------------------------------------------------------------------------\n\nCOMPRESSION LEVELS &amp; TUNING\nUPX offers ten different compression levels from -1 to -9, and --best. The default compression level is -8 for files smaller than 512 kB, and -7 otherwise.\n\nCompression levels 1, 2 and 3 are pretty fast. \n\nCompression levels 4, 5 and 6 achieve a good time/ratio performance. \n\nCompression levels 7, 8 and 9 favor compression ratio over speed. \n\nCompression level --best may take a long time. \n\nNote that compression level --best can be somewhat slow for large files, but you definitely should use it when releasing a final version of your program.\n\nQuick start for achieving the best compression ratio:\n\nTry upx --brute myfile.exe.\n\nDetails for achieving the best compression ratio:\n\nUse the compression level --best. \n\nTry one or both of the options --all-methods and --all-filters. \n\nTry the option --crp-ms=NUMBER. This uses more memory during compression to achieve a (slightly) better compression ratio. \nNUMBER must be a decimal value from 10000 to 999999, inclusive. The default value is 10000 (ten thousand).\n\n\nInfo: the option --brute is an abbrevation for the options --best --all-methods --all-filters --crp-ms=999999. \n\nTry if --overlay=strip works. \n\nFor win32/pe programs there\'s --strip-relocs=0. See notes below. \n\n\n\n--------------------------------------------------------------------------------\n\nOVERLAY HANDLING OPTIONS\nInfo: An ``overlay\'\' means auxillary data atached after the logical end of an executable, and it often contains application specific data (this is a common practice to avoid an extra data file, though it would be better to use resource sections).\n\nUPX handles overlays like many other executable packers do: it simply copies the overlay after the compressed image. This works with some files, but doesn\'t work with others, depending on how an application actually accesses this overlayed data.\n\n  --overlay=copy    Copy any extra data attached to the file. [DEFAULT]  --overlay=strip   Strip any overlay from the program instead of\n                    copying it. Be warned, this may make the compressed\n                    program crash or otherwise unusable.  --overlay=skip    Refuse to compress any program which has an overlay.\n\n--------------------------------------------------------------------------------\n\nENVIRONMENT\nThe environment variable UPX can hold a set of default options for UPX. These options are interpreted first and can be overwritten by explicit command line parameters. For example:\n\n    for DOS/Windows:   set UPX=-9 --compress-icons#0\n    for sh/ksh/zsh:    UPX=\"-9 --compress-icons=0\"; export UPX\n    for csh/tcsh:      setenv UPX \"-9 --compress-icons=0\"Under DOS/Windows you must use \'#\' instead of \'=\' when setting the environment variable because of a COMMAND.COM limitation.\n\nNot all of the options are valid in the environment variable - UPX will tell you.\n\nYou can explicitly use the --no-env option to ignore the environment variable.\n\n\n\n--------------------------------------------------------------------------------\n\nNOTES FOR THE SUPPORTED EXECUTABLE FORMATS\n\nNOTES FOR ATARI/TOS\nThis is the executable format used by the Atari ST/TT, a Motorola 68000 based personal computer which was popular in the late \'80s. Support of this format is only because of nostalgic feelings of one of the authors and serves no practical purpose <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->. See <!-- m --><a class=\"postlink\" href=\"http://www.freemint.de\">http://www.freemint.de</a><!-- m --> for more info.\n\nPacked programs will be byte-identical to the original after uncompression. All debug information will be stripped, though.\n\nExtra options available for this executable format:\n\n  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.\nNOTES FOR BVMLINUZ/I386\nSame as vmlinuz/i386.\n\n\nNOTES FOR DOS/COM\nObviously UPX won\'t work with executables that want to read data from themselves (like some commandline utilities that ship with Win95/98/ME).\n\nCompressed programs only work on a 286+.\n\nPacked programs will be byte-identical to the original after uncompression.\n\nMaximum uncompressed size: ~65100 bytes.\n\nExtra options available for this executable format:\n\n  --8086              Create an executable that works on any 8086 CPU.  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.  --all-filters       Compress the program several times, using all\n                      available preprocessing filters. This may improve\n                      the compression ratio in some cases, but usually\n                      the default filter gives the best results anyway.\nNOTES FOR DOS/EXE\ndos/exe stands for all ``normal\'\' 16-bit DOS executables.\n\nObviously UPX won\'t work with executables that want to read data from themselves (like some command line utilities that ship with Win95/98/ME).\n\nCompressed programs only work on a 286+.\n\nExtra options available for this executable format:\n\n  --8086              Create an executable that works on any 8086 CPU.  --no-reloc          Use no relocation records in the exe header.  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.\nNOTES FOR DOS/SYS\nYou can only compress plain sys files, sys/exe (two in one) combos are not supported.\n\nCompressed programs only work on a 286+.\n\nPacked programs will be byte-identical to the original after uncompression.\n\nMaximum uncompressed size: ~65350 bytes.\n\nExtra options available for this executable format:\n\n  --8086              Create an executable that works on any 8086 CPU.  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.  --all-filters       Compress the program several times, using all\n                      available preprocessing filters. This may improve\n                      the compression ratio in some cases, but usually\n                      the default filter gives the best results anyway.\nNOTES FOR DJGPP2/COFF\nFirst of all, it is recommended to use UPX *instead* of strip. strip has the very bad habit of replacing your stub with its own (outdated) version. Additionally UPX corrects a bug/feature in strip v2.8.x: it will fix the 4 KByte aligment of the stub.\n\nUPX includes the full functionality of stubify. This means it will automatically stubify your COFF files. Use the option --coff to disable this functionality (see below).\n\nUPX automatically handles Allegro packfiles.\n\nThe DLM format (a rather exotic shared library extension) is not supported.\n\nPacked programs will be byte-identical to the original after uncompression. All debug information and trailing garbage will be stripped, though.\n\nExtra options available for this executable format:\n\n  --coff              Produce COFF output instead of EXE. By default\n                      UPX keeps your current stub.  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.  --all-filters       Compress the program several times, using all\n                      available preprocessing filters. This may improve\n                      the compression ratio in some cases, but usually\n                      the default filter gives the best results anyway.\nNOTES FOR LINUX [general]\nIntroduction\n\n  Linux/386 support in UPX consists of 3 different executable formats,\n  one optimized for ELF excutables (\"linux/elf386\"), one optimized\n  for shell scripts (\"linux/sh386\"), and one generic format\n  (\"linux/386\").  We will start with a general discussion first, but please\n  also read the relevant docs for each of the individual formats.  Also, there is special support for bootable kernels - see the\n  description of the vmlinuz/386 format.General user\'s overview\n\n  Running a compressed executable program trades less space on a\n  ``permanent\'\' storage medium (such as a hard disk, floppy disk,\n  CD-ROM, flash memory, EPROM, etc.) for more space in one or more\n  ``temporary\'\' storage media (such as RAM, swap space, /tmp, etc.).\n  Running a compressed executable also requires some additional CPU\n  cycles to generate the compressed executable in the first place,\n  and to decompress it at each invocation.  How much space is traded?  It depends on the executable, but many\n  programs save 30% to 50% of permanent disk space.  How much CPU\n  overhead is there?  Again, it depends on the executable, but\n  decompression speed generally is at least many megabytes per second,\n  and frequently is limited by the speed of the underlying disk\n  or network I/O.  Depending on the statistics of usage and access, and the relative\n  speeds of CPU, RAM, swap space, /tmp, and filesystem storage, then\n  invoking and running a compressed executable can be faster than\n  directly running the corresponding uncompressed program.\n  The operating system might perfrom fewer expensive I/O operations\n  to invoke the compressed program.  Paging to or from swap space\n  or /tmp might be faster than paging from the general filesystem.\n  ``Medium-sized\'\' programs which access about 1/3 to 1/2 of their\n  stored program bytes can do particulary well with compression.\n  Small programs tend not to benefit as much because the absolute\n  savings is less.  Big programs tend not to benefit proportionally\n  because each invocation may use only a small fraction of the program,\n  yet UPX decompresses the entire program before invoking it.\n  But in environments where disk or flash memory storage is limited,\n  then compression may win anyway.  Currently, executables compressed by UPX do not share RAM at runtime\n  in the way that executables mapped from a filesystem do.  As a\n  result, if the same program is run simultaneously by more than one\n  process, then using the compressed version will require more RAM and/or\n  swap space.  So, shell programs (bash, csh, etc.)  and ``make\'\'\n  might not be good candidates for compression.  UPX recognizes three executable formats for Linux: Linux/elf386,\n  Linux/sh386, and Linux/386.  Linux/386 is the most generic format;\n  it accommodates any file that can be executed.  At runtime, the UPX\n  decompression stub re-creates in /tmp a copy of the original file,\n  and then the copy is (re-)executed with the same arguments.\n  ELF binary executables prefer the Linux/elf386 format by default,\n  because UPX decompresses them directly into RAM, uses only one\n  exec, does not use space in /tmp, and does not use /proc.\n  Shell scripts where the underlying shell accepts a ``-c\'\' argument\n  can use the Linux/sh386 format.  UPX decompresses the shell script\n  into low memory, then maps the shell and passes the entire text of the\n  script as an argument with a leading ``-c\'\'.General benefits:\n\n  - UPX can compress all executables, be it AOUT, ELF, libc4, libc5,\n    libc6, Shell/Perl/Python/... scripts, standalone Java .class\n    binaries, or whatever...\n    All scripts and programs will work just as before.  - Compressed programs are completely self-contained. No need for\n    any external program.  - UPX keeps your original program untouched. This means that\n    after decompression you will have a byte-identical version,\n    and you can use UPX as a file compressor just like gzip.\n    [ Note that UPX maintains a checksum of the file internally,\n      so it is indeed a reliable alternative. ]  - As the stub only uses syscalls and isn\'t linked against libc it\n    should run under any Linux configuration that can run ELF\n    binaries.  - For the same reason compressed executables should run under\n    FreeBSD and other systems which can run Linux binaries.\n    [ Please send feedback on this topic ]General drawbacks:\n\n  - It is not advisable to compress programs which usually have many\n    instances running (like `sh\' or `make\') because the common segments of\n    compressed programs won\'t be shared any longer between different\n    processes.  - `ldd\' and `size\' won\'t show anything useful because all they\n    see is the statically linked stub.  Since version 0.82 the section\n    headers are stripped from the UPX stub and `size\' doesn\'t even\n    recognize the file format.  The file patches/patch-elfcode.h has a\n    patch to fix this bug in `size\' and other programs which use GNU BFD.General notes:\n\n  - As UPX leaves your original program untouched it is advantageous\n    to strip it before compression.  - If you compress a script you will lose platform independence -\n    this could be a problem if you are using NFS mounted disks.  - Compression of suid, guid and sticky-bit programs is rejected\n    because of possible security implications.  - For the same reason there is no sense in making any compressed\n    program suid.  - Obviously UPX won\'t work with executables that want to read data\n    from themselves. E.g., this might be a problem for Perl scripts\n    which access their __DATA__ lines.  - In case of internal errors the stub will abort with exitcode 127.\n    Typical reasons for this to happen are that the program has somehow\n    been modified after compression.\n    Running `strace -o strace.log compressed_file\' will tell you more.\nNOTES FOR LINUX/ELF386\nPlease read the general Linux description first.\n\nThe linux/elf386 format decompresses directly into RAM, uses only one exec, does not use space in /tmp, and does not use /proc.\n\nLinux/elf386 is automatically selected for Linux ELF exectuables.\n\nPacked programs will be byte-identical to the original after uncompression.\n\nHow it works:\n\n  For ELF executables, UPX decompresses directly to memory, simulating\n  the mapping that the operating system kernel uses during exec(),\n  including the PT_INTERP program interpreter (if any).\n  The brk() is set by a special PT_LOAD segment in the compressed\n  executable itself.  UPX then wipes the stack clean except for\n  arguments, environment variables, and Elf_auxv entries (this is\n  required by bugs in the startup code of /lib/ld-linux.so as of\n  May 2000), and transfers control to the program interpreter or\n  the e_entry address of the original executable.  The UPX stub is about 1700 bytes long, partly written in assembler\n  and only uses kernel syscalls. It is not linked against any libc.Specific drawbacks:\n\n  - For linux/elf386 and linux/sh386 formats, you will be relying on\n    RAM and swap space to hold all of the decompressed program during\n    the lifetime of the process.  If you already use most of your swap\n    space, then you may run out.  A system that is \"out of memory\"\n    can become fragile.  Many programs do not react gracefully when\n    malloc() returns 0.  With newer Linux kernels, the kernel\n    may decide to kill some processes to regain memory, and you\n    may not like the kernel\'s choice of which to kill.  Running\n    /usr/bin/top is one way to check on the usage of swap space.Extra options available for this executable format:\n\n  (none)\nNOTES FOR LINUX/SH386\nPlease read the general Linux description first.\n\nShell scripts where the underling shell accepts a ``-c\'\' argument can use the Linux/sh386 format. UPX decompresses the shell script into low memory, then maps the shell and passes the entire text of the script as an argument with a leading ``-c\'\'. It does not use space in /tmp, and does not use /proc.\n\nLinux/sh386 is automatically selected for shell scripts that use a known shell.\n\nPacked programs will be byte-identical to the original after uncompression.\n\nHow it works:\n\n  For shell script executables (files beginning with \"#!/\" or \"#! /\")\n  where the shell is known to accept \"-c &lt;command&gt;\", UPX decompresses\n  the file into low memory, then maps the shell (and its PT_INTERP),\n  and passes control to the shell with the entire decompressed file\n  as the argument after \"-c\".  Known shells are sh, ash, bash, bsh, csh,\n  ksh, tcsh, pdksh.  Restriction: UPX cannot use this method\n  for shell scripts which use the one optional string argument after\n  the shell name in the script (example: \"#! /bin/sh option3\\n\".)  The UPX stub is about 1700 bytes long, partly written in assembler\n  and only uses kernel syscalls. It is not linked against any libc.Specific drawbacks:\n\n  - For linux/elf386 and linux/sh386 formats, you will be relying on\n    RAM and swap space to hold all of the decompressed program during\n    the lifetime of the process.  If you already use most of your swap\n    space, then you may run out.  A system that is \"out of memory\"\n    can become fragile.  Many programs do not react gracefully when\n    malloc() returns 0.  With newer Linux kernels, the kernel\n    may decide to kill some processes to regain memory, and you\n    may not like the kernel\'s choice of which to kill.  Running\n    /usr/bin/top is one way to check on the usage of swap space.Extra options available for this executable format:\n\n  (none)\nNOTES FOR LINUX/386\nPlease read the general Linux description first.\n\nThe generic linux/386 format decompresses to /tmp and needs /proc filesystem support. It starts the decompressed program via the execve() syscall.\n\nLinux/386 is only selected if the specialized linux/elf386 and linux/sh386 won\'t recognize a file.\n\nPacked programs will be byte-identical to the original after uncompression.\n\nHow it works:\n\n  For files which are not ELF and not a script for a known \"-c\" shell,\n  UPX uses kernel execve(), which first requires decompressing to a\n  temporary file in the filesystem.  Interestingly -\n  because of the good memory management of the Linux kernel - this\n  often does not introduce a noticable delay, and in fact there\n  will be no disk access at all if you have enough free memory as\n  the entire process takes places within the filesystem buffers.  A compressed executable consists of the UPX stub and an overlay\n  which contains the original program in a compressed form.  The UPX stub is a statically linked ELF executable and does\n  the following at program startup:    1) decompress the overlay to a temporary location in /tmp\n    2) open the temporary file for reading\n    3) try to delete the temporary file and start (execve)\n       the uncompressed program in /tmp using /proc/&lt;pid&gt;/fd/X as\n       attained by step 2)\n    4) if that fails, fork off a subprocess to clean up and\n       start the program in /tmp in the meantime  The UPX stub is about 1700 bytes long, partly written in assembler\n  and only uses kernel syscalls. It is not linked against any libc.Specific drawbacks:\n\n  - You need additional free disk space for the uncompressed program\n    in your /tmp directory. This program is deleted immediately after\n    decompression, but you still need it for the full execution time\n    of the program.  - You must have /proc filesystem support as the stub wants to open\n    /proc/&lt;pid&gt;/exe and needs /proc/&lt;pid&gt;/fd/X. This also means that you\n    cannot compress programs that are used during the boot sequence\n    before /proc is mounted.  - Utilities like `top\' will display numerical values in the process\n    name field. This is because Linux computes the process name from\n    the first argument of the last execve syscall (which is typically\n    something like /proc/&lt;pid&gt;/fd/3).  - Because of temporary decompression to disk the decompression speed\n    is not as fast as with the other executable formats. Still, I can see\n    no noticable delay when starting programs like my ~3 MB emacs (which\n    is less than 1 MB when compressed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.Extra options available for this executable format:\n\n  --force-execve      Force the use of the generic linux/386 \"execve\"\n                      format, i.e. do not try the linux/elf386 and\n                      linux/sh386 formats.\nNOTES FOR PS1/EXE\nThis is the executable format used by the Sony PlayStation (PSone), a Mips R3000 based gaming console which is popular since the late \'90s. Support of this format is very similar to the Atari one, because of nostalgic feelings of one of the authors.\n\nPacked programs will be byte-identical to the original after uncompression, until further notice.\n\nMaximum uncompressed size: ~1998848 bytes.\n\nNotes:\n\n  - UPX creates as default a \'CD-Rom only\' PS1/PS2 compatible executable.\n    For transfer between client/target use options below.  - Normally the packed files use the same memory areas like the uncompressed\n    versions, so they will not override other memory areas while unpacking.\n    If this isn\'t possible UPX will abort showing a \'packed data overlap\'\n    error. With the \"--force\" option UPX will set a few \'bytes higher\' loading\n    offset for the packed file, but this isn\'t a real problem if it is a\n    single or boot-only executable.Extra options available for this executable format:\n\n  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.  --boot-only         The format will only run from a CD and may slightly\n                      improves the compression ratio. The decompression\n                      routines are faster than default ones.\n                      But it cannot be used for host/client transfer !  --no-align          This option disables CD mode 2 data sector format\n                      alignment. May slightly improves the compression ratio,\n                      but the compressed executable will not boot from a CD.\n                      Use it for client/target transfer only !\nNOTES FOR RTM32/PE\nSame as win32/pe.\n\n\nNOTES FOR TMT/ADAM\nThis format is used by the TMT Pascal compiler - see <!-- m --><a class=\"postlink\" href=\"http://www.tmt.com/\">http://www.tmt.com/</a><!-- m --> .\n\nExtra options available for this executable format:\n\n  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.  --all-filters       Compress the program several times, using all\n                      available preprocessing filters. This may improve\n                      the compression ratio in some cases, but usually\n                      the default filter gives the best results anyway.\nNOTES FOR VMLINUZ/386\nThe vmlinuz/386 and bvmlinuz/386 formats take a gzip-compressed bootable Linux kernel image (``vmlinuz\'\', ``zImage\'\', ``bzImage\'\'), gzip-decompress it and re-compress it with the UPX compression method.\n\nvmlinuz/386 is completely unrelated to the other Linux executable formats, and it does not share any of their drawbacks.\n\nNotes:\n\n  - Be sure that \"vmlinuz/386\" or \"bvmlinuz/386\" is displayed\n  during compression - otherwise a wrong executable format\n  may have been used, and the kernel won\'t boot.Benefits:\n\n  - Better compression (but note that the kernel was already compressed,\n  so the improvement is not as large as with other formats).\n  Still, the bytes saved may be essential for special needs like\n  bootdisks.     For example, this is what I get for my 2.2.16 kernel:\n        1589708  vmlinux\n         641073  bzImage        [original]\n         560755  bzImage.upx    [compressed by \"upx -9\"]  - Much faster decompression at kernel boot time (but kernel\n    decompression speed is not really an issue these days).Drawbacks:\n\n  (none)Extra options available for this executable format:\n\n  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.  --all-filters       Compress the program several times, using all\n                      available preprocessing filters. This may improve\n                      the compression ratio in some cases, but usually\n                      the default filter gives the best results anyway.\nNOTES FOR WATCOM/LE\nUPX has been successfully tested with the following extenders: DOS4G, DOS4GW, PMODE/W, DOS32a, CauseWay. The WDOS/X extender is partly supported (for details see the file bugs BUGS).\n\nDLLs and the LX format are not supported.\n\nExtra options available for this executable format:\n\n  --le                Produce an unbound LE output instead of\n                      keeping the current stub.\nNOTES FOR WIN32/PE\nThe PE support in UPX is quite stable now, but probably there are still some incompabilities with some files.\n\nBecause of the way UPX (and other packers for this format) works, you can see increased memory usage of your compressed files because the whole program is loaded into memory at startup. If you start several instances of huge compressed programs you\'re wasting memory because the common segements of the program won\'t get shared across the instances. On the other hand if you\'re compressing only smaller programs, or running only one instance of larger programs, then this penalty is smaller, but it\'s still there.\n\nIf you\'re running executables from network, then compressed programs will load faster, and require less bandwidth during execution.\n\nDLLs are supported.\n\nScreensavers are supported, with the restriction that the filename must end with ``.scr\'\' (as screensavers are handled slightly different than normal exe files).\n\nExtra options available for this executable format:\n\n --compress-exports=0 Don\'t compress the export section.\n                      Use this if you plan to run the compressed\n                      program under Wine.\n --compress-exports=1 Compress the export section. [DEFAULT]\n                      Compression of the export section can improve the\n                      compression ratio quite a bit but may not work\n                      with all programs (like winword.exe).\n                      UPX never compresses the export section of a DLL\n                      regardless of this option.  --compress-icons=0  Don\'t compress any icons.\n  --compress-icons=1  Compress all but the first icon.\n  --compress-icons=2  Compress all icons which are not in the\n                      first icon directory. [DEFAULT]  --compress-resources=0  Don\'t compress any resources at all.  --force             Force compression even when there is an\n                      unexpected value in a header field.\n                      Use with care.  --strip-loadconf=0  Don\'t strip Structured Exception Handling load config [DEFAULT].\n  --strip-loadconf=1  Strip Structured Exception Handling load config.  --strip-relocs=0    Don\'t strip relocation records.\n  --strip-relocs=1    Strip relocation records. [DEFAULT]\n                      This option only works on executables with base\n                      address greater or equal to 0x400000. Usually the\n                      compressed files becomes smaller, but some files\n                      may become larger. Note that the resulting file will\n                      not work under Windows 3.x (Win32s).\n                      UPX never strips relocations from a DLL\n                      regardless of this option.  --all-methods       Compress the program several times, using all\n                      available compression methods. This may improve\n                      the compression ratio in some cases, but usually\n                      the default method gives the best results anyway.  --all-filters       Compress the program several times, using all\n                      available preprocessing filters. This may improve\n                      the compression ratio in some cases, but usually\n                      the default filter gives the best results anyway.\n\n--------------------------------------------------------------------------------\n\nDIAGNOSTICS\nExit status is normally 0; if an error occurs, exit status is 1. If a warning occurs, exit status is 2.\n\nUPX\'s diagnostics are intended to be self-explanatory.\n\n\n\n--------------------------------------------------------------------------------\n\nBUGS\nPlease report all bugs immediately to the authors.\n\n\n\n--------------------------------------------------------------------------------\n\nAUTHORS\n Markus F.X.J. Oberhumer &lt;markus@oberhumer.com&gt;\n <!-- m --><a class=\"postlink\" href=\"http://www.oberhumer.com\">http://www.oberhumer.com</a><!-- m --> Laszlo Molnar &lt;ml1050@users.sourceforge.net&gt; John F. Reiser &lt;jreiser@BitWagon.com&gt; Jens Medoch &lt;jssg@users.sourceforge.net&gt;\n\n--------------------------------------------------------------------------------\n\nCOPYRIGHT\nCopyright (C) 1996-2005 Markus Franz Xaver Johannes Oberhumer\n\nCopyright (C) 1996-2005 Laszlo Molnar\n\nCopyright (C) 2000-2005 John F. Reiser\n\nCopyright (C) 2002-2005 Jens Medoch\n\nThis program may be used freely, and you are welcome to redistribute it under certain conditions.\n\nThis program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the UPX License Agreement for more details.\n\nYou should have received a copy of the UPX License Agreement along with this program; see the file LICENSE. If not, visit the UPX home page.','',0,'','1653srrm',1,0,'',362,0,0),(39902,8530,6,215,0,'189.136.208.25',1192795696,1,0,1,1,1,1,'','Gracias','Gracias a todos por los comentarios.\nHe notado que de 12 DBFs en las que uso ésta función. Siempre falla en una sola. Entonces, voy a revisar por que solo falla en esa DBF\n\nFernando.','',0,'','1kysve6t',1,0,'',215,0,0),(39903,8553,6,63,0,'88.6.235.117',1192796875,1,0,1,1,1,0,'','Cómo editar celdas en un TxBrowse','Tengo un TxBrowse con cuatro columnas.  Quiero editar las celdas correspondientes a las columnas 2, 3 y 4.  Hasta ahora lo hago definiendo\n[code:1k7hsvn1]\nbPostEdit2  &#58;= &#123;|o,v,nKey| &#58;&#58;GrabarUnDato&#40;nKey, Val&#40;v&#41; , &quot;CAMPO2&quot;&#41;&#125;\nbPostEdit3  &#58;= &#123;|o,v,nKey| &#58;&#58;GrabarUnDato&#40;nKey, Val&#40;v&#41; , &quot;CAMPO3&quot;&#41;&#125;\nbPostEdit4  &#58;= &#123;|o,v,nKey| &#58;&#58;GrabarUnDato&#40;nKey, Val&#40;v&#41; , &quot;CAMPO4&quot;&#41;&#125;\n[/code:1k7hsvn1]\nHasta aquí, todo bien.  Un doble click en cualquier celda me permite editarla y grabar su contenido.  Ahora bien: Me gustaría que una vez editado el campo 2, al pulsar Intro, entrase automáticamente en modo de edición de la celda siguiente (la 3), sin necesidad de hacer doble click en ella.  Alguien me podría dar una solución?  Gracias\n\nRafael','',0,'AIA=','1k7hsvn1',1,0,'',63,0,0),(39904,8548,6,400,0,'201.68.33.139',1192797886,1,0,1,1,1,1,'','','Hola Jose....\n\nPuedes Descarega-la el twbrowse 1.7 de Herman, com los Fontes para recompilar la libreria con la version de xharbour que usas,\naki:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=409\">http://www.fivewin.com.br/exibedicas.asp?id=409</a><!-- m -->\n\nSaludos','',0,'AIA=','3q4n3e6w',1,0,'',400,0,0),(39905,8546,3,58,0,'84.149.100.12',1192797892,1,0,1,1,1,0,'','','Danke Stefan,\n\nwerde versuchen, deinen Tipp zu verwerten.\n\nGruß,\nDetlef','',0,'AIA=','23v8l5xv',1,0,'',58,0,0),(39906,8539,3,2,0,'87.218.146.246',1192799743,1,0,1,1,1,1,'','','Antonio,\n\nYes, you can disable any control just doing:\noControl:Disable()\n\nand enable it doing:\noControl:Enable()\n\ni.e. to disable all controls of a dialog, or a window, just do:\nAEval( oWnd:aControls, { | o | o:Disable() } )\n\nYou can use oWnd:bGotFocus = { || AEval( oWnd:aControls, { | o | o:Enable() } ) } and oWnd:bLostFocus = { || AEval( oWnd:aControls, { | o | o:Disable() } ) }','',0,'AIA=','1v2rf0eu',1,0,'',2,0,0),(39907,8182,6,2,0,'87.218.146.246',1192800246,1,0,1,1,1,1,'','','Julio,\n\nVamos a implementar la forma de hacerlo opcional.\n\n&gt; testpre2.prg \n\nEste ejemplo no usa ventana MDI\n\n&gt; testprev.prg \n\nEste si es MDI y curiosamente no hace el preview como ventana hija. Vamos a revisarlo, gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3id0azva',1,0,'',2,0,0),(39908,8553,6,582,0,'200.117.97.154',1192800852,1,0,1,1,1,0,'','Re: Cómo editar celdas en un TxBrowse','[quote=&quot;Rafael Clemente&quot;:237xblhp]Tengo un TxBrowse con cuatro columnas.  Quiero editar las celdas correspondientes a las columnas 2, 3 y 4.  Hasta ahora lo hago definiendo\n[code:237xblhp]\nbPostEdit2  &#58;= &#123;|o,v,nKey| &#58;&#58;GrabarUnDato&#40;nKey, Val&#40;v&#41; , &quot;CAMPO2&quot;&#41;&#125;\nbPostEdit3  &#58;= &#123;|o,v,nKey| &#58;&#58;GrabarUnDato&#40;nKey, Val&#40;v&#41; , &quot;CAMPO3&quot;&#41;&#125;\nbPostEdit4  &#58;= &#123;|o,v,nKey| &#58;&#58;GrabarUnDato&#40;nKey, Val&#40;v&#41; , &quot;CAMPO4&quot;&#41;&#125;\n[/code:237xblhp]\nHasta aquí, todo bien.  Un doble click en cualquier celda me permite editarla y grabar su contenido.  Ahora bien: Me gustaría que una vez editado el campo 2, al pulsar Intro, entrase automáticamente en modo de edición de la celda siguiente (la 3), sin necesidad de hacer doble click en ella.  Alguien me podría dar una solución?  Gracias\n\nRafael[/quote:237xblhp]\nRafa, solo una idea asi al vuelo, en la misma rutina de GrabarUndato() tendrias que ver la posibilidad de pasarle el foco al proximo campo. \nYo no uso la TxBrowse, pero quizas con un :SelectCol( nCol ) podrias hacerlo.\nNo se solo una idea, habria que ver la rutina GrabarUndato() \nUn abrazo. El Loco =&gt;))','',0,'gIA=','237xblhp',1,0,'',582,0,0),(39909,8553,6,63,0,'88.6.235.117',1192801515,1,0,1,1,1,0,'','','Sí; el problema es que no basta con pasar el foco.  Para entrar en modo de edición de una celda, el TXBrowse exige un doble click en la celda en cuestión.  Yo supongo que habría que hacer un PostMessage() o algo así, pero no sé como.  Esa era mi pregunta\nRafael','',0,'gIA=','ukva3cv7',1,0,'',63,0,0),(39910,8553,6,63,0,'88.6.235.117',1192801847,1,0,1,1,1,0,'','','Sólo como referencia, mi función GrabarUnDato() es muy simple:\n[code:18f3j2so]\nMETHOD GrabarUnDato&#40;nKey, v, cFld&#41;\nLocal cAlias &#58;= Alias&#40;&#41;\nIf nKey = VK_RETURN\n   &#40;cAlias&#41;-&gt;&#40;RLock&#40;&#41;&#41;\n         &#40;cAlias&#41;-&gt;&#40;FieldPut&#40;&#40;cAlias&#41;-&gt;&#40;Fieldpos&#40;cFld&#41;&#41;, v&#41;&#41;\n    &#40;cAlias&#41;-&gt;&#40;DbUnLock&#40;&#41;&#41;\nEndIf\nReturn Nil\n[/code:18f3j2so]\nRafael','',0,'AIA=','18f3j2so',1,0,'',63,0,0),(39911,8553,6,495,0,'200.120.233.150',1192802555,1,0,1,1,1,0,'','','Rafa, yo lo hago utilizando arrays de esta forma:\n\n      WITH OBJECT :aCols[ BB_NOMANA ]\n         :cHeader      := \"Nombre de Titular \"\n         :nEditType    := 1\n         :bStrData     := { |a| a := ::aDetChq[::oBrw:nArrayAt][BB_NOMANA] , IF( Empty( a ), \"\",  Upper(a)  ) }\n         :bOnPostedit  := { |o| ::aDetChq[::oBrw:nArrayAt][BB_NOMANA] := Upper( o:oEditGet:cText ) }\n         :bEditValue   := { ||  ::aDetChq[::oBrw:nArrayAt][BB_NOMANA] }\n         :nWidth       := 140\n      END\n\n      WITH OBJECT :aCols[ BB_GLOMOV ]\n         :cHeader := \"Glosa\"\n         :neditType    := 1\n         :bStrData     := { |a| a := ::aDetChq[::oBrw:nArrayAt][BB_GLOMOV] , IF( Empty( a ), \"\",  a  ) }\n         :bOnPostedit  := { |o| ::aDetChq[::oBrw:nArrayAt][BB_GLOMOV] := ( o:oEditGet:cText ),;\n                          IF(::oBrw:nArrayAt == Len( ::aDetChq ), AAdd( ::aDetChq, ::AddReg() ), NIL ),;\n                                ::oBrw:GoDown(), ::oBrw:GoLeftMost() }\n         :bEditValue   := { ||  ::aDetChq[::oBrw:nArrayAt][BB_GLOMOV] }\n         :nWidth       := 140\n      END\n\nPresiono INTRO y el primer objeto pasa a modo edición, luego con INTRO pasa el segundo, luego INTRO y paso a la siguiente linea del browse con modo edición. (::oBrw:GoDown, ::oBrw:GoLeftMost() )\n\nespero te sirva\n\nsalu2\nMauro','',0,'','2u1cfqca',1,0,'',495,0,0),(39912,8553,6,63,0,'88.6.235.117',1192804020,1,0,1,1,1,0,'','','Mauro:  \nSí, tu sistema funciona bien en edición de arrays y en edición de DBFs, si trabajas con MARQSTYLE_CELL;  el problema es que yo utilizo MARQSTYLE_HIGHLROW, o sea, ilumino en azul toda la línea, no sólo la celda que tiene el foco.  Por eso hay que hacer doble click en el dato que quieres editar.   Mi pregunta es si al salir de editar una calda (pulsando Intro) hay forma de simular automáticamente un doble click en la celda siguiente.\n\nDe todas formas, muchas gracias.  Si no consigo resolverlo de otra forma, tu sistema me da una posible alternativa.\nRafael','',0,'','39tq3vu2',1,0,'',63,0,0),(39913,8554,6,1078,0,'200.206.139.121',1192804704,1,0,1,1,1,0,'','FWPPC X Pocket PC Color HP iPaq rx1950','Este produto funciona com FWPPC\nOU ALGUEM TERIA ALGUMA RECOMENDAÇÃO ?\n\nPocket PC Color HP iPaq rx1950\nProcessador 300MHz Samsung SC32442\n32MB de Memória SDRAM/ 64MB de memória SDROM\nIRDA integrado / Wireless LAN 802.11b integrado \nSlot SD integrado\nTela Colorida de Matriz Ativa Transrefletiva \nBateria de Lition ion 1100mAh recarregável e removível \nCabo de Sincronismo USB\nMicrosoft Windows Mobile 5.0.','',0,'','1ddtmuy3',1,0,'',1078,0,0),(39914,8553,6,495,0,'200.120.233.150',1192804792,1,0,1,1,1,0,'','','Rafa,\nEn el ejmplo que te adjunte MARQSTYLE_HIGHLROW igual funciona al presionar INTRO y pasar a modo edición, el problema es que no sabes la posición del curso, te recomomiendo utilizar:\n::oBrw:nMarqueeStyle := 002 // MARQSTYLE_HIGHLROW\n\nsalu2\n\nmauro','',0,'','2qhiuxvw',1,0,'',495,0,0),(39915,8555,6,644,0,'201.253.129.7',1192804866,1,0,1,1,1,0,'','Problemas con edición','Tengo el siguiente código\n\n/******************/\n   Local nValor := 0\n   Local oGet\n   Local oDlg\n   Local lSalgo := .f.\n   \n   Define Dialog oDlg From 10, 10 To 50, 180 Pixel Style nOr( WS_POPUP, WS_THICKFRAME )\n\n      @ 06, 05 Say \'Ingrese Valor\' Of oDlg Size 50, 10 Pixel\n      @ 05, 40 Get oGet Var nValor Size 35, 10 Pixel Of oDlg Picture \'999999.99\'\n      oGet : bKeyDown := { | nKey | If( nKey == VK_RETURN, ( If( nValor != 0, ( lSalgo := .t., oDlg : End() ), BorraRubroDeCarga( oDlg, oGet, @lSalgo, @nValor ) ) ), If( nKey == VK_ESCAPE, BorraRubroDeCarga( oDlg, oGet, @lSalgo, @nValor ), ) ) }\n\n   Activate Dialog oDlg Centered Valid lSalgo\n   Return nValor\n\n\n                        Function BorraRubroDeCarga( oDlg, oGet, lSalgo )\n                        \nIf( !MsgNoYes( \' ¿  Desea cancelar la operación  ?  \', \'Atención\' ) )\n   oGet : SetFocus()\n   Return 0\nEnd\nlSalgo := .t.\noDlg : End()\nReturn 0\n\nSi ingreso un valor = 0, el sistema me dice si quiero cancelar la operación. Si le digo que no e ingreso un valor # 0, supuestamente el programa debería validarme el get y continuar. Pero me vuelve a preguntar  si quiero cancelar la operación. Si le digo que no y vuelvo a pulsar enter ahí si me lo valida. Espero haber sido claro. Que estoy haciendo Mal ????\nMuchas gracias a todos','',0,'','2i9z8eiy',1,0,'',644,0,0),(39916,8541,6,102,0,'87.217.67.139',1192805327,1,0,1,1,1,1,'','','Antonio \n\nFunciono muchas gracias\n\nUn saludo','',0,'','1c4x3qmz',1,0,'',102,0,0),(39917,8553,6,63,0,'88.6.235.117',1192805564,1,0,1,1,1,0,'','','Mauro:\nSí señor, tienes razón: Con MARQSTYLE_HIGHLROW también funciona. Lo que pasa es que, como tú dices, no ves fácilmente en qué celda estás.  Pulsando Intro, confirmo que entras en modo edición.  Se trata, pues, de cambiar el foco de la celda a la siguiente y enviar un Intro. Voy a hacer unas pruebas a ver si con este enfoque lo soluciono.  Muchas gracias y un saludo,\nRafael','',0,'','2iylp1po',1,0,'',63,0,0),(39918,8556,3,6,0,'87.17.186.178',1192806194,1,0,1,1,1,1,'','Transparent SAY','Dear friends, how to get a transparent SAY in the following sample?\n\n[code:1t1z53kt]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar, oSay\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd 2007\n\n    @ 9, 100 SAY oSay PROMPT &quot;This is not transparent       &quot; OF oBar PIXEL\n\n    oSay&#58;lTransparent = &#46;T&#46;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1t1z53kt]\n\nEMG','',0,'AIA=','1t1z53kt',1,0,'',6,0,0),(39919,8544,3,51,0,'80.122.88.242',1192807204,1,0,1,1,1,0,'','','What is the \"print preview\"?\nRegards,\nOtto','',0,'AIA=','2dmmo77o',1,0,'',51,0,0),(39920,8182,6,1158,0,'200.139.130.189',1192807791,1,0,1,1,1,0,'','','Antonio, sorry for my english, this my problem... my main window is MDI, i use easyreport and call an dialog before preview, and close this dialog, but after fwh709, the focus come to this dialog , not to main window.\n\nthanks','',0,'AIA=','3tbruwdq',1,0,'',1158,0,0),(39921,8552,6,1178,0,'200.24.127.11',1192808007,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:12cl5giz]Ruben,\n\nEstas usando FWH 7.09 ó 7.10 ?\n\nEn caso contrario necesitas recompilar todos tus PRGs y los de FWH[/quote:12cl5giz]\n\nEstoy Usando FWH 2.7 con Harbour Build 48','',0,'gA==','12cl5giz',1,0,'',1178,0,0),(39922,7498,6,1178,0,'200.24.127.11',1192808799,1,0,1,1,1,0,'','','[quote=&quot;acartucho&quot;:3d6ievom]Hola Antonio, tengo el mismo problema:\n. Tengo FWH701 \n. XHARBOUR 0.99.71 \n\nCuando quiero compilar con esta version del xHarbour luego de recompilar todos los programas me da el mismo error con el Activex.prg (PCODE version 7), el programa no esta en ningun lado, cuando compre la version de FiveWin me dieron el codigo: 031106-CREDIL.\n\nGracias\n\nAndres[/quote:3d6ievom]\n\nHice la Prueba y tambien me genera el mismo Error\n\"Activex.prg\" was compiled by older version, PCODE version 7 is longer supported, please recompile\n\nPero Estoy Usando FWH 2.7 y compilo con Verce 4.3 No se si sera compatible','',0,'gA==','3d6ievom',1,0,'',1178,0,0),(39923,8556,3,36,0,'164.77.81.210',1192810081,1,0,1,1,1,1,'','','Ademas un bug en BUTTONBAR AL presionar boton derecho\n\n[code:291931ks]Application\n===========\n   Path and name&#58; D&#58;\\Apl\\PRGS\\Carmona\\dbf\\wcta&#46;exe &#40;32 bits&#41;\n   Size&#58; 4,009,472 bytes\n   Time from start&#58; 0 hours 0 mins 2 secs \n   Error occurred at&#58; 19/10/2007, 13&#58;05&#58;07\n   Error description&#58; Error BASE/1004  Message not found&#58; TSAY&#58;LGROUP\n\nStack Calls\n===========\n   Called from&#58; tobject&#46;prg =&gt; TSAY&#58;ERROR&#40;172&#41;\n   Called from&#58; tobject&#46;prg =&gt; TSAY&#58;MSGNOTFOUND&#40;205&#41;\n   Called from&#58; tobject&#46;prg =&gt; TSAY&#58;LGROUP&#40;0&#41;\n   Called from&#58; BAR&#46;PRG =&gt; TBAR&#58;BTNADJUST&#40;0&#41;\n   Called from&#58; BAR&#46;PRG =&gt; TBAR&#58;GORIGHT&#40;0&#41;\n   Called from&#58; BAR&#46;PRG =&gt; &#40;b&#41;TBAR&#58;RBUTTONDOWN&#40;0&#41;\n   Called from&#58; MENU&#46;PRG =&gt; TMENU&#58;ACTIVATE&#40;503&#41;\n   Called from&#58; BAR&#46;PRG =&gt; TBAR&#58;RBUTTONDOWN&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;prg =&gt; TBAR&#58;HANDLEEVENT&#40;1362&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; Wcta&#46;PRG =&gt; _MAIN&#40;1496&#41;\n   Called from&#58; Wcta&#46;PRG =&gt; MAIN&#40;25&#41;[/code:291931ks]','',0,'AIA=','291931ks',1,0,'',36,0,0),(39924,8555,6,875,0,'64.76.108.182',1192810476,1,0,1,1,1,0,'','','asi deberia ser:\n\noGet : bKeyDown := { | nKey | If( nKey == VK_RETURN, ;\n        If( nValor != 0, (lSalgo:=.t., oDlg:End()), ;\n       BorraRubroDeCarga(oDlg, oGet,@lSalgo,@nValor)),nValor:=Val(Chr(nKey)) )  }\n\n\nJaime','',0,'AIA=','88tcjjib',1,0,'',875,0,0),(39925,8544,3,34,0,'68.5.217.82',1192810662,1,0,1,1,1,1,'','Via Open','Antonio,\n\nAre you saying you could incorporate an interface with the CodeJock calendar control ?   \n\nWhen I communicated with them, they indicated the best way to handle the transition from their product to a DBF file might be by using their \"memory model\", and reading the memory into a dbf, and saving to memory from a dbf.  I haven\'t tried it, but it would make sense if it is doable.\n\nHowever, if your friends are making a true calendar control as part of their work, it would be nice if they could weigh in here.  I first started a thread on this subject about a month ago, and I think there are several people looking at the same interest.\n\nTim','',0,'AIA=','1zjwmauh',1,0,'',34,0,0),(39926,8497,6,106,0,'85.34.123.173',1192811126,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3szpnsw7]Pedro,\n\nYa está disponible para los usuarios de FWH 7.10 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3szpnsw7]\n\n\nEntonces me lo bajaré el lunes proximo.\n\nGracias  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3szpnsw7',1,0,'',106,0,0),(39927,8544,3,2,0,'87.218.146.246',1192811342,1,0,1,1,1,1,'','','Otto, Tim,\n\nYes, we mean that we could create a Class TCalendar to have calendars like OutLook, etc. without using codejock.\n\nThe \"print preview\" is the window that you get in FWH when you are going to use the printer and want to preview the printout before. Same way, we could offer a Calendar() that will provide a self-contained, ready to use, calendar window.','',0,'gA==','21j5a8ar',1,0,'',2,0,0),(39928,8539,3,303,0,'72.220.100.171',1192811598,1,0,1,1,1,0,'','','&gt;Is it possible to disable all controls when the mdichild loose focus and enable them when it gain focus again ? \n\nI\'m not sure how this is going to solve your problem?\n \nWhat I think you need to do is to oWndChild:setFocus() when a user clicks on any control.\n\nJames','',0,'gA==','l2pztrh0',1,0,'',303,0,0),(39929,8544,3,34,0,'68.5.217.82',1192811621,1,0,1,1,1,1,'','tCalendar','OK ... thats exactly what many of us are looking for ...\n\nI\'ve looked at a lot of options and done some thinking about it for awhile.  \n\nWith the new additions to date in FWH, we can now have applications that can compete visually with other current products on the market.  The Calendar has been the one area that is lacking.\n\nTim','',0,'gA==','1earwpta',1,0,'',34,0,0),(39930,8556,3,2,0,'87.218.146.246',1192811768,1,0,1,1,1,1,'','','Enrico,\n\nYou have to modify the Class TBar not to use WS_CLIPCHILDREN style, but then you will get some \"flickering\" when resizing the window.\n\nAnother way is to use oBar:bPainted and call oBar:Say( ... ) from it.','',0,'gA==','3qc7uev2',1,0,'',2,0,0),(39931,8557,3,34,0,'68.5.217.82',1192811898,1,0,1,1,1,1,'','Calls in Vista','In Windows XP I could call the computer address book with the command:\n\nFUNCTION emswab( )\n   // Execute the program\n   SHELLEXECUTE( nil, \"open\", regEd(\"wab\") )\nRETURN nil\n\n/*  FUNCTION \nFUNCTION\n      Description:  Check registry for address book files\n      Date updated: 9/28/2007\n      Return Value: cVar2\n*/\nFUNCTION RegEd(cExt)\n\n   // Declare LOCAL variables\n   LOCAL nHandler := 0, cVar1, cVar2\n\n   // Find the registry values for an address book\n   cExt:=if(left(cExt,1)!=\".\",\".\"+cExt,cExt)\n   RegOpenkey(HKEY_CLASSES_ROOT,\"\",@nHandler)\n   RegQueryValue(nHandler,cExt,@cVar1)\n   RegCloseKey(nHandler)\n   RegOpenKey(HKEY_CLASSES_ROOT,cVar1,@nHandler)\n   RegQueryValue(nHandler,\"DefaultIcon\",@cVar2)\n   RegCloseKey(nHandler)\n   cVar2 := SubStr(cVar2,1,LEN(cVar2)-3)\n\nRETURN(cVar2)\n\nThis is no longer valid with Vista.  Does anyone know what changes are necessary in Vista to call up the computer\'s address book ?\n\nThanks.','',0,'gA==','2ertefoj',1,0,'',34,0,0),(39932,8558,6,180,0,'88.23.56.212',1192812653,1,0,1,1,1,0,'','Diálogo NOMODAL y variable PRIVATE','En un diálogo MODAL tengo un BROWSE que se va filtrando según voy tecleando letras; para ello uso una variable PRIVATE y todo va perfectamente. Al convertir el dialogo a NOMODAL me salta el error de que la variable cKey no existe. ¿Por qué?\n\n[code:39k6rzzn]\nPRIVATE cKey\ncKey=&quot;&quot;\n//\n  DEFINE DIALOG oDlg RESOURCE &quot;AGENDA&quot; TITLE cTitulo FONT oFont1\n   oDlg&#58;lHelpIcon&#58;=&#46;F&#46;\n\n     REDEFINE LISTBOX oLbx ;\n            FIELDS IIF&#40;EMPTY&#40;AGENDA-&gt;Ubicado&#41;,&quot; &quot;,aLevel&#91; 5 &#93; &#41;,;\n            +&quot; &quot;+AGENDA-&gt;Texto+&quot; &quot;;\n            FIELDSIZES 16,300;\n            HEADERS &quot;A&quot;, &quot;       Texto&quot;;\n            ID 200;\n            OF oDlg\n\n     oLbx&#58;bkeydown&#58;=&#123;|nKey|DOKEYCHECK&#40;nKey,oLbx,oDlg,oSay&#41;&#125;\n[/code:39k6rzzn]','',0,'AIA=','39k6rzzn',1,0,'',180,0,0),(39933,8552,6,1178,0,'200.24.127.11',1192813323,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:10mqxhv5]Ruben,\n\nEstas usando FWH 7.09 ó 7.10 ?\n\nEn caso contrario necesitas recompilar todos tus PRGs y los de FWH[/quote:10mqxhv5]\n\nAntonio Tengo Un Duda, En la carptera de FWH aparace una carpeta de SOURCE \n y dentro de estas aparace [b:10mqxhv5]Function, classes y winapi[/b:10mqxhv5]\ny los Samples.\n\nLo que tu me dices es compilar de Nuevo Toda la carpeta [color=red:10mqxhv5][b:10mqxhv5]Source [/b:10mqxhv5][/color:10mqxhv5] o alguna subcarpeta  especificamente ?\ny la otra parte seria adicionar todos los prg al Proyecto o Construir una nueva libreria.\n\nGracias por todo Antonio.','',0,'wg==','10mqxhv5',1,0,'',1178,0,0),(39934,8544,3,303,0,'72.220.100.171',1192813659,1,0,1,1,1,0,'','','Antonio,\n\nI you are thinking of a print preview as just a method to display the data like a print preview, then I don\'t think that is what users want. They need to be able to click on dates and appointments to manipulate them (drag &amp; drop, edit, etc.). I think it needs to be a control.\n\nAnd I don\'t think it will be simple but rather very complex. It needs to have multiple displays (overview, day, week, month, quarter, year), it needs to handle appointments (date and time) and events (date, no time), repeating appointments and events, events that span more than one day, different colors for certain appointments and events, overlapping appointments and events, workdays, holidays, alarms, mutiple users, etc. \n\nThis will not be simple.\n\nJames','',0,'wg==','3krvbni0',1,0,'',303,0,0),(39935,8544,3,2,0,'87.218.146.246',1192815561,1,0,1,1,1,1,'','','This is a very early idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[code:3p8jxa6j]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;Calendar&quot;\n\n   ACTIVATE WINDOW oWnd ;\n      ON PAINT PaintGrid&#40; hDC &#41;\n\nreturn nil\n\nfunction PaintGrid&#40; hDC &#41;\n\n   local n, m\n   local nHeight &#58;= &#40; oWnd&#58;nHeight - 20 &#41; / 7\n   local nWidth &#58;= &#40; oWnd&#58;nWidth - 10 &#41; / 7\n   local cDay, dDate\n   \n   for n = 0 to 6\n      MoveTo&#40; hDC, 0, 20 + n * nHeight &#41;\n      LineTo&#40; hDC, oWnd&#58;nWidth, 20 + n * nHeight &#41;\n   next\n\n   for n = 1 to 6\n      MoveTo&#40; hDC, n * nWidth, 0 &#41;\n      LineTo&#40; hDC, n * nWidth, oWnd&#58;nHeight &#41;\n   next\n   \n   for n = 0 to 6\n      cDay = &#123; &quot;Monday&quot;, &quot;Tuesday&quot;, &quot;Wednesday&quot;, &quot;Thursday&quot;,;\n               &quot;Friday&quot;, &quot;Saturday&quot;, &quot;Sunday&quot; &#125;&#91; n + 1 &#93;\n      oWnd&#58;Say&#40; 3, 5 + &#40; n * nWidth &#41; + &#40; nWidth / 2 &#41; - &#40; GetTextWidth&#40; hDC, cDay &#41; / 2 &#41;,;\n                cDay,,,, &#46;T&#46;, &#46;T&#46;	&#41;\n   next    \n   \n   dDate = Date&#40;&#41; - Day&#40; Date&#40;&#41; &#41; + 1\n   for n = 0 to 5\n      for m = 1 to 7          \n         oWnd&#58;Say&#40; 25 + n * nHeight, &#40; m * nWidth &#41; - 25,;\n                   AllTrim&#40; Str&#40; Day&#40; dDate &#41; &#41; &#41;,;\n                   If&#40; Day&#40; Date&#40;&#41; &#41; == Day&#40; dDate &#41;, CLR_HRED, If&#40; Month&#40; Date&#40;&#41; &#41; == Month&#40; dDate &#41;, CLR_YELLOW, CLR_HGREEN &#41; &#41;,;\n                   ,, &#46;T&#46;, &#46;T&#46; &#41;\n         dDate++          \n      next m\n   next n                \n   \nreturn nil       \n[/code:3p8jxa6j]','',0,'AIA=','3p8jxa6j',1,0,'',2,0,0),(39936,8556,3,868,0,'219.64.121.60',1192817084,1,0,1,1,1,1,'','','Mr Antonio\n\nYes\nIn 2007 style,  obar:say in obar:bpainted gives transparent look. Normal Say does not make it transparent\n\nIn non 2007 3D style Say works transparently\n\nIt would be nice if you can give us a consistent behaviour in 3D and 2007. This helps us to avoid conditional coding.','',0,'AIA=','tqg6dtze',1,0,'',868,0,0),(39937,8558,6,362,0,'200.148.67.62',1192818604,1,0,1,1,1,1,'','','MEMVAR cKey\nPRIVATE cKey \n\ncKey := \"\" \n\nRepita en las otras funciones, si usas la variable en las otras funciones.','',0,'AIA=','1rr750m0',1,0,'',362,0,0),(39938,8544,3,303,0,'72.220.100.171',1192819783,1,0,1,1,1,0,'','','Antonio,\n\n&gt;This is a very early idea\n\nGreat start!\n\nHere is another issue that needs to be handled, how calendars are displayed in different countries. Here we display Sunday on the left and Saturday on the right.\n\nJames','',0,'AIA=','1jatn2bi',1,0,'',303,0,0),(39939,8558,6,180,0,'88.23.56.212',1192820101,1,0,1,1,1,0,'','','Gracias karinha, pero persiste el error. La variable cKey se usa en la función DOKEYCHECK(nKey,oLbx,oDlg,oSay), y como ya dije, cuando el diálogo es MODAL no hay problema. \n\nUn  saludo,\nManuel','',0,'AIA=','1yxw42ye',1,0,'',180,0,0),(39940,8558,6,362,0,'200.148.67.62',1192821120,1,0,1,1,1,1,'','','#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------//\n[code:2ll2ehnn]\nfunction Main&#40;&#41;\n\nLOCAL oLbx, oDlg, oSay, nKey &#58;= VK_RETURN\n\nMEMVAR  cKey\nPRIVATE cKey\n\ncKey &#58;= &quot;teste de cKey, Manuel Aranda&quot;\n\n? ckey\n\n  DEFINE DIALOG oDlg RESOURCE &quot;AGENDA&quot; TITLE cTitulo FONT oFont1 \n\n   oDlg&#58;lHelpIcon&#58;=&#46;F&#46; \n\n  REDEFINE LISTBOX oLbx ;\n           FIELDS IIF&#40;EMPTY&#40;AGENDA-&gt;Ubicado&#41;,&quot; &quot;,aLevel&#91; 5 &#93; &#41;,;\n           +&quot; &quot;+AGENDA-&gt;Texto+&quot; &quot;;\n           FIELDSIZES 16,300;\n           HEADERS &quot;A&quot;, &quot;       Texto&quot;;\n           ID 200;\n           OF oDlg\n\n     oLbx&#58;bkeydown&#58;=&#123;|nKey|DOKEYCHECK&#40;nKey,oLbx,oDlg,oSay&#41;&#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n\n    DOKEYCHECK&#40;nKey,oLbx,oDlg,oSay&#41;\n\nRETURN NIL\n\nSTATIC FUNCTION DOKEYCHECK&#40;nKey,oLbx,oDlg,oSay&#41;\n\n    MEMVAR  cKey\n\n    ? cKey\n\nRETURN&#40; &#46;T&#46; &#41;\n[/code:2ll2ehnn]','',0,'AIA=','2ll2ehnn',1,0,'',362,0,0),(39941,8558,6,180,0,'88.23.56.212',1192821813,1,0,1,1,1,0,'','','Así si funciona, pero si haces el diálogo NOMODAL es cuando se produce el error\n\nACTIVATE DIALOG oDlg CENTERED[color=red:2j0ptbvm] NOMODAL[/color:2j0ptbvm]','',0,'Ag==','2j0ptbvm',1,0,'',180,0,0),(39942,8558,6,362,0,'200.148.67.62',1192822507,1,0,1,1,1,1,'','','ACTIVATE DIALOG oDlg CENTERED NOMODAL\n\nSI USAS RECURSOS, DESHABILITE EN EL RECURSO DEL WORKSHOP.EXE LA CLAUSULA MODAL FRAME SOLAMENTE.\n\nCREO, QUE SEA APENAS ESTO.\n\nRegards, saludos.\n\nQUE INTENTAS HACER???','',0,'Ag==','11j0w45c',1,0,'',362,0,0),(39943,8544,3,34,0,'68.5.217.82',1192823774,1,0,1,1,1,1,'','Grid','Hmmm ...\n\nI did a quick build on that ... didn\'t see the days displayed and the numbers in yellow were hard to read so I couldn\'t tell too much.\n\nHowever, it makes sense that it can be done ... and James is right, there are a lot of ramifications to be considered.  However, if we can get the display elements in order ( an Outlook style of display ), driving the data to it shouldn\'t be a problem.  Essentially, each \"appointment\" posted must be a control with its own events, so you probably need a calendar class, and perhaps an appointment class.\n\nTim','',0,'Ag==','zles1lek',1,0,'',34,0,0),(39944,8206,6,439,0,'200.125.47.164',1192824344,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:bpbpgaib]NAME\nupx - compress or expand executable files\n[/quote:bpbpgaib]\n\n\nPara los que usan verce, esta esta utilidad está incluída y marcando en valores globales \"Comprimir el exe generado\", lo comprime utilizando esta aplicación, la versión que viene con verce es de 2002, pero puede reemplazarse por la 3.01 para windows cosola, lo he probado y funciona perfectamente.','',0,'gA==','bpbpgaib',1,0,'',439,0,0),(39945,8544,3,2,0,'87.218.146.246',1192825539,1,0,1,1,1,1,'','','Tim,\n\nHere you have a screenshot:\n[url=http&#58;//imageshack&#46;us:oz4bgbso][img:oz4bgbso]http&#58;//img136&#46;imageshack&#46;us/img136/6508/calendarte5&#46;png[/img:oz4bgbso][/url:oz4bgbso]','',0,'GA==','oz4bgbso',1,0,'',2,0,0),(39946,8556,3,2,0,'87.218.146.246',1192825723,1,0,1,1,1,1,'','','NageswaraRao,\n\nAs we use a gradient for the background, then we can only remove WS_CLIPCHILDREN from Class TBar, but that will bring some \"flickering\"','',0,'GA==','3rkwatfw',1,0,'',2,0,0),(39947,8552,6,2,0,'87.218.146.246',1192826051,1,0,1,1,1,1,'','','Ruben,\n\nSolo los *.PRG. Si usas xHB builder, puedes usar este proyecto:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/63752550/Fivehmx.xbp.zip.html\">http://rapidshare.com/files/63752550/Fi ... p.zip.html</a><!-- m -->','',0,'GA==','ra0t02ur',1,0,'',2,0,0),(39948,8558,6,875,0,'64.76.108.182',1192826976,1,0,1,1,1,0,'','','pues declara como Publica y listo\n\nPublic cKey','',0,'GA==','3uy8wjtq',1,0,'',875,0,0),(39949,8544,3,51,0,'80.122.88.242',1192830119,1,0,1,1,1,0,'','','... and mousesupport\nRegards,\nOtto\n\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\nstatic nHeight\nstatic nWidth\nstatic aDate := {}\n\n\nfunction Main()\n\n    DEFINE WINDOW oWnd TITLE \"Calendar\"\n\n    aadd(aDate,{date(),date(),date(),date(),date(),date(),date()})\n    aadd(aDate,{date(),date(),date(),date(),date(),date(),date()})\n    aadd(aDate,{date(),date(),date(),date(),date(),date(),date()})\n    aadd(aDate,{date(),date(),date(),date(),date(),date(),date()})\n    aadd(aDate,{date(),date(),date(),date(),date(),date(),date()})\n    aadd(aDate,{date(),date(),date(),date(),date(),date(),date()})\n\n    oWnd:bLClicked    := { |y,x,flags |f_info(x,y) }\n\n    ACTIVATE WINDOW oWnd ;\n        ON PAINT PaintGrid( hDC )\n\nreturn nil\n\nfunction PaintGrid( hDC )\n    local  n, m\n    local n1\n\n    local cDay, dDate\n\n    nHeight := ( oWnd:nHeight - 20 ) / 7\n    nWidth := ( oWnd:nWidth - 10 ) / 7\n\n\n\n    for n = 0 to 6\n        MoveTo( hDC, 0, 20 + n * nHeight )\n        LineTo( hDC, oWnd:nWidth, 20 + n * nHeight )\n    next\n\n    for n = 1 to 6\n        MoveTo( hDC, n * nWidth, 0 )\n        LineTo( hDC, n * nWidth, oWnd:nHeight )\n    next\n\n    for n = 0 to 6\n        cDay = { \"Monday\", \"Tuesday\", \"Wednesday\", \"Thursday\",;\n            \"Friday\", \"Saturday\", \"Sunday\" }[ n + 1 ]\n        oWnd:Say( 3, 5 + ( n * nWidth ) + ( nWidth / 2 ) - ( GetTextWidth( hDC, cDay ) / 2 ),;\n            cDay,,,, .T., .T.   )\n    next\n\n    dDate = Date() - Day( Date() ) + 1\n    for n = 0 to 5                              //rows\n        for m = 1 to 7                          //cols\n            oWnd:Say( 25 + n * nHeight, ( m * nWidth ) - 25,;\n                AllTrim( Str( Day( dDate ) ) ),;\n                If( Day( Date() ) == Day( dDate ), CLR_HRED, If( Month( Date() ) == Month( dDate ), CLR_YELLOW, CLR_HGREEN ) ),;\n                ,, .T., .T. )\n\n            n1:=n+1\n            aDate[n1,m] := dDate\n\n            dDate++\n        next m\n    next n\n\nreturn nil\n\n\n\nfunc f_info(x,y)\n\n    local n,m\n    m:=INT(x/nWidth)+1\n\n    n:=INT((y-20)/ nHeight)+1\n\n    msginfo(dtoc(aDate[n,m]))\n\n\nreturn nil','',0,'','10lkur87',1,0,'',51,0,0),(39950,8559,6,1178,0,'200.24.127.11',1192831153,1,0,1,1,1,0,'','Caso Captura Errores Captura el Error Pero Sale del sistema.','El caso que usted me recomendo, que lo aplicara Igual a Clipper, lo implemente, Si estoy en el archivo.prg principal si genera un Error, el sisatema me lo captura pero no se sale del sistema, el problema que tengo es cuando Hago un llamado a otro archivo.PRG , el sistema captura el Error , Pero se Sale del sistema. \n\nEstoy Usando FWH 2.7 y Harbour build 45 Anexo Codigo , Hize la Prueba con Xharbour No se sale Pero se Bloquea el sistema.\n\nCaso Primer Archivo PRG .\n\nEste Codigo lo tengo Definido en clipper y me caprtura el Error y retorna al Menu Princiapal.\n\n\n\n[code:2761jrbp]\n&#46;&#46;\n&#46;&#46;\n&#46;\n&#46;\n&#46;\n\nFUNCTION Accesos&#40;Prog1,Prog2,Prog&#41;\n  Local aPrim2, nChoice, aCols,oError,bManejadorerror,bUltimoManejador,cMsgErr,objErr,OBJLOCAL\n  local lOk &#58;= &#46;T&#46;\n  aPrim2  &#58;= &#123; &#123;&quot; &quot;, &#123;|| MyGoTop&#40;&#41; &#125; ,&quot; &quot;&#125; &#125;\n  aPrim2&#91;1,2&#93; &#58;= &#123;|| &amp;Prog1 &#125;\n\n\n      BULTIMOMANEJADOR &#58;= ErrorBlock&#40; &#123; | oError |  MIMANEJADOR&#40;oError, &#46;t&#46; &#41; &#125; &#41;\n\n \n  BEGIN SEQUENCE\n      COHELP &#58;= Prog2\n      mtpapel&#58;=&quot;1&quot;;mncopias&#58;=1;MWinDos=&quot;D&quot;\n//      select b_loco  \n** Simulo usando un Select loco que no tengo definido el sistema lo captura pero no se sale&#46; HAsta Aqui todo Bien \n\n      Eval&#40;aPrim2&#91;1, 2&#93;&#41;  \n// Aqui Ejecuto o hago el llamado del siguiente Procedimiento que es otro PRG Me captura el Error y se sale&#46; Lo que noto es que no Pasa por El RECOVER definido y se sale&#46; \n\n\n  RECOVER USING OBJLOCAL\n? &quot;Error No Identificado -&gt;&quot;\n       CLOSE DATABASES\n       SET DEVICE TO SCREEN\n    END SEQUENCE\n    ERRORBLOCK&#40;bUltimoManejador&#41;\n//    op_xod &#58;= op_mod\n    COHELP &#58;= &quot;menu&quot;\n//     ErrorBlock&#40; objErr &#41;\nRETURN &#40;&#46;t&#46;&#41;\n\n\n// RETURN NIL\n\nFUNCTION MIMANEJADOR&#40;objErr,LMANLOCAL&#41;\n IF LMANLOCAL\n? &quot;Error ***  -&gt;&quot;, ltrim&#40; str&#40; objErr&#58;gencode &#41; &#41;, objErr&#58;description + &quot;&#58;&quot;, objErr&#58;operation,&quot;&#58;&quot;+ErrorMessage&#40;objErr&#41;\n//   &#58;End&#40;&#41;  \n//   SysRefresh&#40;&#41;\n   BREAK objErr\n  ENDIF\nRETURN NI\n\n[/code:2761jrbp]\n\nEl Segundo PRG Codigo\n\n[code:2761jrbp]\n&#46;&#46;&#46;\n&#46;&#46;\n&#46;&#46;\nDentro de este PRG Hago el llamado de la Funcion Graba_Dato&#40;Tper&#41;\n\nNota &#58; Estoy Simulado el Error para ver que pasa Inclusive le he Colocado los Instrutivos BEGIN SEQUENCE &#46;&#46; Etc\n\nStatic FUNCTION Graba_Dato&#40;Tper&#41;\nLocal App_ok\n *  if reg_nue=1;append blank;app_ok&#58;=!neterr&#40;&#41;;else;app_ok&#58;=rlock&#40;&#41;;endif\n*   if app_ok\n     repl_var&#40;&#41;\n     dbcommit&#40;&#41;  \n     Bloq_Gets&#40;Tper&#41;\n     Boto_cancela&#40;Tper&#41;\n*   else\n*     MsgInfo&#40; &quot;No es posible Actualizar Registro&quot; &#41; \n*   endif\n\n \nRETURN NIL\n\n \n\n[/code:2761jrbp]','',0,'AIA=','2761jrbp',1,0,'',1178,0,0),(39951,8544,3,34,0,'68.5.217.82',1192832247,1,0,1,1,1,1,'','Background','I was getting a white background ... added a color and it shows up.','',0,'AIA=','18126jh7',1,0,'',34,0,0),(39952,8496,3,868,0,'219.64.121.60',1192868644,1,0,1,1,1,1,'','','Mr Antonio\n\nHave you made 2007 style optional in the new library now please?','',0,'AIA=','1z9fyw8c',1,0,'',868,0,0),(39953,8558,6,180,0,'88.23.56.212',1192875867,1,0,1,1,1,0,'','','karinha, sigue el mismo error independientemente de que la ventana sea modal o no modal en el recurso.\n\njacgsoft, gracias. Haciendo pública la variable ya funciona correctamente.\nPero me intriga saber por qué no funciona como private si hago el diálogo NOMODAL. En fín, como tantas otras cosas. Correremos un tupido velo y aplicaremos la máxima \"si funciona no lo toques\".\n\nUn saludo,\nManuel','',0,'AIA=','2wcsyq88',1,0,'',180,0,0),(39954,8496,3,6,0,'79.19.229.137',1192876569,1,0,1,1,1,1,'','','I heard from a friend of mine that old style popup menus look as 2007 new style in Vista. Is it true? If yes, what is the point in having 2007 style optional?\n\nEMG','',0,'AIA=','2vnm0k1l',1,0,'',6,0,0),(39955,8206,6,1146,0,'87.223.177.191',1192879513,1,0,1,1,1,0,'','','A mi el upx me ha dado algun problema y lo he abandonado.','',0,'AIA=','daj4sb94',1,0,'',1146,0,0),(39956,8560,3,6,0,'79.19.229.137',1192881217,1,0,1,1,1,1,'','Two bug in menus and MDI','Look at the following sample:\n\n[code:1m66idra]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd MDI\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1m66idra]\n\nFirst bug:\n\n[list:1m66idra]- run the sample\n- click on Childs then New\n- maximize the MDI child window\n- press ALT-C and you will get the system menu instead of Childs menu\n- press ALT-W and you will get the Childs menu instead of Window menu[/list:u:1m66idra]\n\nSecond bug:\n\n[list:1m66idra]- run the sample\n- click on Childs then New\n- maximize the MDI child window\n- press ALT-C\n- press ESC\n- press ESC again and the child icon will disappear[/list:u:1m66idra]\n\nEMG','',0,'AMA=','1m66idra',1,0,'',6,0,0),(39957,8561,6,1072,0,'201.214.54.17',1192888292,1,0,1,1,1,0,'','Una Duda Simple','Amigos:\n\nTengo una duda simple, pasa a ser una inquetud.\n\nDesde clipper siempre he declarado la apertura de una base de datos como sigue:\nSele 1\nUse Clientes Shared \n\nEs necesario poner el Sele 1, para indicar en que numero debe abrirse la base, o solo puedo omitirla, y esta se abrira en la siguiente disponible?\n\nUso Fwh701 y Xharbour\n\nSaludos,\nAntonio','',0,'AMA=','120wjaot',1,0,'',1072,0,0),(39958,8562,3,51,0,'80.122.88.242',1192889793,1,0,1,1,1,0,'','Folders Tabs','Coult someone please tell me  the difference between folders and tabs?\nThanks in advance\nOtto','',0,'AMA=','32c4xdrh',1,0,'',51,0,0),(39959,8251,3,51,0,'80.122.88.242',1192892742,1,0,1,1,1,0,'','','Hello Antonio,\ncould you please post a bit of code how to change the color of the folder dialogs.\nThanks in advance\nOtto','',0,'AMA=','22q330c7',1,0,'',51,0,0),(39960,8561,6,54,0,'189.132.93.218',1192893558,1,0,1,1,1,1,'','Re: Una Duda Simple','[quote=&quot;mantonio_08&quot;:3k2jronm]Amigos:\n\nTengo una duda simple, pasa a ser una inquetud.\n\nDesde clipper siempre he declarado la apertura de una base de datos como sigue:\nSele 1\nUse Clientes Shared \n\nEs necesario poner el Sele 1, para indicar en que numero debe abrirse la base, o solo puedo omitirla, y esta se abrira en la siguiente disponible?\n\nUso Fwh701 y Xharbour\n\nSaludos,\nAntonio[/quote:3k2jronm]\n\nAntonio,\n\nsi usas:\nUSE cliente ALIAS clie NEW SHARED\n\nno es necesario colocar el SELECT\n\nSi lo usas como lo tienes tú si es necesario.\n\nsaludos','',0,'gA==','3k2jronm',1,0,'',54,0,0),(39961,8562,3,868,0,'219.64.121.60',1192896781,1,0,1,1,1,1,'','','please see  testtabs.prg and testtab2.prg in samples folder','',0,'gA==','jdbm9y8n',1,0,'',868,0,0),(39962,8496,3,51,0,'80.122.88.242',1192902920,1,0,1,1,1,0,'','','If you use the buttonbar with the RIGHT clause and you have a PoPUp menu attached to a button the opener \nis undersize.\nRegards,\nOtto','',0,'gA==','jpybllz1',1,0,'',51,0,0),(39963,8558,6,73,0,'189.157.189.209',1192904424,1,0,1,1,1,0,'','','Miguel, prueba a pasarla como referencia a ver si funciona DOKEYCHECK(nKey,oLbx,oDlg,oSay,@cKey)\n\nSTATIC FUNCTION DOKEYCHECK(nKey,oLbx,oDlg,oSay,cKey) \nsalu2\nPaco','',0,'gA==','221t3pvx',1,0,'',73,0,0),(39964,8558,6,180,0,'88.23.56.212',1192905168,1,0,1,1,1,0,'','','Gracias Francisco, pero tampoco funciona así.\n\nUn saludo,\nManuel\n\n[quote=&quot;Francisco Horta&quot;:39p6tvar]Miguel, prueba a pasarla como referencia a ver si funciona DOKEYCHECK(nKey,oLbx,oDlg,oSay,@cKey)\n\nSTATIC FUNCTION DOKEYCHECK(nKey,oLbx,oDlg,oSay,cKey) \nsalu2\nPaco[/quote:39p6tvar]','',0,'gA==','39p6tvar',1,0,'',180,0,0),(39965,8561,6,1072,0,'201.214.54.17',1192910928,1,0,1,1,1,0,'','Re: Una Duda Simple','Muchas Gracias Amigo, me queda muy claro.\n\nSaludos,\nAntonio\n\n\n\n\n[quote=&quot;wmormar&quot;:3kg02nnm][quote=&quot;mantonio_08&quot;:3kg02nnm]Amigos:\n\nTengo una duda simple, pasa a ser una inquetud.\n\nDesde clipper siempre he declarado la apertura de una base de datos como sigue:\nSele 1\nUse Clientes Shared \n\nEs necesario poner el Sele 1, para indicar en que numero debe abrirse la base, o solo puedo omitirla, y esta se abrira en la siguiente disponible?\n\nUso Fwh701 y Xharbour\n\nSaludos,\nAntonio[/quote:3kg02nnm]\n\nAntonio,\n\nsi usas:\nUSE cliente ALIAS clie NEW SHARED\n\nno es necesario colocar el SELECT\n\nSi lo usas como lo tienes tú si es necesario.\n\nsaludos[/quote:3kg02nnm]','',0,'gA==','3kg02nnm',1,0,'',1072,0,0),(39966,8558,6,73,0,'189.157.189.209',1192928899,1,0,1,1,1,0,'','','Migeul, probaste a declararla STATIC y probaste tambien como LOCAL ? preba pasandola como refer aver si funciona. sino lo mas facil es declararla PUBLIC\nsalu2\npaco','',0,'gA==','1r7sg9l8',1,0,'',73,0,0),(39967,8558,6,179,0,'201.217.103.6',1192930451,1,0,1,1,1,1,'','','Manuel\nme parece que cuando es nomodal el dialogo, la funcion donde declaras private  a la variable ya termino de ejecutarse y solo queda activado el dialogo, porque la ejecucion del programa no se detiene, y por eso ya no existe esa variable, mejor la trabajas como local, porque igual si la declaras public el contenido de la misma variaria si acceden al mismo dialogo varias veces\n\nbueno espero te ayude\n\nSaludos','',0,'gA==','2ct2crpy',1,0,'',179,0,0),(39968,8549,6,925,0,'190.20.152.231',1192932964,1,0,1,1,1,0,'','estado del puerto lpt','Hola \nyo uso lo siguiente clase tprinter :\n\nif Empty(oprn:hdc())\n msgstop(\"impresora no preparada\")\n return nil \nendif\n\nespero que sea de tu ayuda. \n\npablo','',0,'gA==','36rsz7k9',1,0,'',925,0,0),(39969,8563,1,51,0,'80.122.88.242',1192952645,1,0,1,1,1,0,'','exchange data','What is the best way to exchange data between two running FWH programs?\nThanks in advance,\nOtto','',0,'gA==','3gdhc7sf',1,0,'',51,0,0),(39970,8251,3,473,0,'81.82.10.56',1192955145,1,0,1,1,1,0,'','','[code:1wt0gu26]1 24 &quot;Windows&#46;Man&quot;[/code:1wt0gu26]\n\nWhen you use this line in your Resources file, it will not work\n\nOtherwise you can use this\n\n[code:1wt0gu26]oDlg&#58;SetColor&#40;Rgb&#40;0,0,0&#41;,Rgb&#40;200,200,255&#41;&#41;\n\noFold1&#58;SetColor&#40;Rgb&#40;0,0,0&#41;,Rgb&#40;200,200,255&#41;&#41;\n\noFold1&#58;aDialogs&#91;1&#93;&#58;SetColor&#40;Rgb&#40;0,0,0&#41;,Rgb&#40;200,200,255&#41;&#41;\noFold1&#58;aDialogs&#91;2&#93;&#58;SetColor&#40;Rgb&#40;0,0,0&#41;,Rgb&#40;200,200,255&#41;&#41;\noFold1&#58;aDialogs&#91;3&#93;&#58;SetColor&#40;Rgb&#40;0,0,0&#41;,Rgb&#40;200,200,255&#41;&#41;\noFold1&#58;aDialogs&#91;4&#93;&#58;SetColor&#40;Rgb&#40;0,0,0&#41;,Rgb&#40;200,200,255&#41;&#41;\noFold1&#58;aDialogs&#91;5&#93;&#58;SetColor&#40;Rgb&#40;0,0,0&#41;,Rgb&#40;200,200,255&#41;&#41;[/code:1wt0gu26]\n\nIt works with me.\n\nGreetings\n\nWilly','',0,'AIA=','1wt0gu26',1,0,'',473,0,0),(39971,8563,1,6,0,'79.2.214.244',1192955672,1,0,1,1,1,1,'','Re: exchange data','A file? TCP/IP (look at sockcli.prg and sockserv.prg)?\n\nEMG','',0,'AIA=','2n830gl1',1,0,'',6,0,0),(39972,8251,3,51,0,'80.122.88.242',1192955933,1,0,1,1,1,0,'','','Thank you, Willy. It is working.\nDo you also know how to change the TAB of the folder?\nThanks in advance,\nOtto','',0,'AIA=','dgzrbej5',1,0,'',51,0,0),(39973,8251,3,6,0,'79.2.214.244',1192956889,1,0,1,1,1,1,'','','Try assigning oFolder:aPrompts[ n ] and refresh the folder (not tested).\n\nEMG','',0,'','3fgnyf96',1,0,'',6,0,0),(39974,8496,3,2,0,'87.218.146.246',1192959348,1,0,1,1,1,1,'','','Enrico,\n\n&gt; I heard from a friend of mine that old style popup menus look as 2007 new style in Vista. Is it true?\n\nNo, its not true <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:38x0rata][img:38x0rata]http&#58;//img136&#46;imageshack&#46;us/img136/1537/popupek6&#46;png[/img:38x0rata][/url:38x0rata]','',0,'GA==','38x0rata',1,0,'',2,0,0),(39975,8558,6,180,0,'88.23.56.212',1192959414,1,0,1,1,1,0,'','','Gracias a todos, especialmente a Francisco Horta. Pasándola como referencia funciona si se define como  LOCAL o STATIC pero no como PRIVATE que es como la tenía cuando el diálogo era MODAL. De todas formas prefiero esta solución a declararla PUBLICA.\n\nUn saludo,\nManuel','',0,'GA==','1htde99r',1,0,'',180,0,0),(39976,8558,6,2,0,'87.218.146.246',1192959745,1,0,1,1,1,1,'','','Manuel,\n\nComo te indica Wilson, la ejecución no se detiene y entonces sales del ámbito en donde la variable private fué creada y la maquina virtual de Harbour la destruye','',0,'GA==','3jl0ijg5',1,0,'',2,0,0),(39977,8496,3,6,0,'87.9.34.195',1192960182,1,0,1,1,1,1,'','','Uhm... from your image it seems that it is indeed different...\n\nWell, this is what I wanted to know, thank you.\n\nEMG','',0,'GA==','3chh0xzx',1,0,'',6,0,0),(39978,8251,3,51,0,'80.122.88.242',1192965362,1,0,1,1,1,0,'','','How do you assingn?\nI tried \n       oFld:aPrompts[ 1 ]:SetColor(Rgb(0,0,0),Rgb(168,207,110))\nbut get no exported method.\n\nRegards,\nOtto','',0,'','kq9ghqmb',1,0,'',51,0,0),(39979,8251,3,6,0,'87.9.34.195',1192965583,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:101w1jri]Do you also know how to change the TAB of the folder?[/quote:101w1jri]\n\nI thought you wanted to change the prompt of a TAB.\n\nEMG','',0,'gA==','101w1jri',1,0,'',6,0,0),(39980,8563,1,51,0,'80.122.88.242',1192965791,1,0,1,1,1,0,'','','Hello Enrico,\n\nI have a billing software and a customer administration software.\nIf I need a new customer in the billing software I have up to now a function inside the billing software to add a new customer.\nBut I think it would be easier to call the administration software and add there the new customer and then to have the data inside the billing software.\nRegards,\nOtto','',0,'gA==','39btketv',1,0,'',51,0,0),(39981,8564,3,51,0,'80.122.88.242',1192973405,1,0,1,1,1,0,'','wBrowse','Could someone please tell me the syntax for how to detect if a listbox is eof() or bof() or rather empty.\nOr is it possible to evaluate oBrw:bLine if yes how?\nThanks in advance.\n Regards,\n\nOtto','',0,'gA==','1ljcj9ne',1,0,'',51,0,0),(39982,8564,3,6,0,'87.9.34.195',1192974141,1,0,1,1,1,1,'','Re: wBrowse','Can\'t you just use\n\n( oBrw:cAlias ) -&gt; ( EOF() )\n( oBrw:cAlias ) -&gt; ( BOF() )\n( oBrw:cAlias ) -&gt; ( ORDKEYCOUNT() ) = 0\n\n?\n\nEMG','',0,'gA==','1qfqrub9',1,0,'',6,0,0),(39983,8564,3,51,0,'80.122.88.242',1192975387,1,0,1,1,1,0,'','','Thank you, Enrico.','',0,'gA==','1jjjetl8',1,0,'',51,0,0),(39984,8544,3,47,0,'58.8.106.113',1192978258,1,0,1,1,1,0,'','','Dear All,\n\nI used to do as the same idea in FW 16bits.  I\'ve used twbrowse for each day record.   If it can help, I will upload it.\n[url=http&#58;//img524&#46;imageshack&#46;us/my&#46;php?image=eventsf2&#46;jpg:1sf0piv4][img:1sf0piv4]http&#58;//img524&#46;imageshack&#46;us/img524/176/eventsf2&#46;th&#46;jpg[/img:1sf0piv4][/url:1sf0piv4]','',0,'GA==','1sf0piv4',1,0,'',47,0,0),(39985,8563,1,303,0,'72.220.100.171',1192981178,1,0,1,1,1,0,'','','Otto,\n\n&gt;But I think it would be easier to call the administration software and add there the new customer and then to have the data inside the billing software\n\nWhy not just compile the add customer routines from the customer software into the billing software? Then you can add a customer from inside either program.\n\nJames','',0,'GA==','1dpidaxz',1,0,'',303,0,0),(39986,8497,6,519,0,'80.31.153.29',1192983331,1,0,1,1,1,0,'','','Hola Antonio\n\n   Me quiero actualizar a la nueva versión  de fwh,  los menus office 2007 y msgbar funcionan ya en windows 98   ?\n\n\n   un saludo','',0,'GA==','1dbpqddw',1,0,'',519,0,0),(39987,8565,3,247,0,'77.49.76.82',1192983347,1,0,1,1,1,0,'','Crystal Reports OEM -&gt; ANSI Problem','Hi,\nWhen I try to use crystal reports and I enter XBASE (.dbf) file converts the fields from OEM to ANSI and I can not change it .This problem has to do with a default value inside the registry . Does anybody knows how to change this? I remember that years ago I have found a solution for  this by changing the registry but I can not remember how. \n\nThanks in advance\nA.S.K','',0,'GA==','exoiruuq',1,0,'',247,0,0),(39988,8520,1,173,0,'203.113.38.9',1192985291,1,0,1,1,1,0,'','Dear Antonio','Dear Antonio,\n\nCan I get some TGET of you at <!-- e --><a href=\"mailto:peter_ezfo@hotmail.com\">peter_ezfo@hotmail.com</a><!-- e --> ? And Thank you very much of your kindness with my problem.\n\n\nBest regard,\n\nPeter','',0,'GA==','rv9x40i3',1,0,'',173,0,0),(39989,8566,2,77,0,'83.60.107.159',1192991276,1,0,1,1,1,0,'','ejemplo de foto jpg en un dialogo desde resources','Hola tengo el fw21, y cuando intento poner un tbitmap desde resource que coja un fichero jpg, este no lo pinta, sin embargo el mismo jpg desde el ejemplo de fw21 testimg.prg si que lo pinta, utilizo lo siguiente:\n\n \n[code:24f7hvcz]\n  REDEFINE BITMAP oImage file aDat&#91;36&#93; ID 13 OF oDlt ADJUST UPDATE\n\n\n\n      REDEFINE BUTTON ID 1001 OF oDlt ACTION &#40;lReg&#58;=&#46;T&#46;,oDlt&#58;End&#40;&#41;&#41;\n      REDEFINE BUTTON ID 1002 OF oDlt ACTION oDlt&#58;End&#40;&#41;\n      redefine button id 134 of oDlt action &#40;prepro&#40;cart,aDat&#41;&#41; when !lnew\n\n      REDEFINE BUTTON ID   16 OF ODLT ACTION  &#40;adat&#91;36&#93;&#58;=GETIMAGE&#40;oImage,oDlt&#41;,ot&#58;oDat&#91;12&#93;&#58;refresh&#40;&#41;&#41;\n\nstatic Function GetImage&#40; oImage ,oDlt&#41;\n\n   local gcFile &#58;= cGetFile&#40; &quot;JPEG   &#40;*&#46;jpg&#41;| *&#46;jpg|&quot; +         ;\n                             &quot;DIB   &#40;*&#46;dib&#41;| *&#46;dib|&quot; +          ;\n                             &quot;PCX   &#40;*&#46;pcx&#41;| *&#46;pcx|&quot;  +         ;\n                             &quot;BITMAP &#40;*&#46;bmp&#41;| *&#46;bmp|&quot; +         ;\n                             &quot;GIF   &#40;*&#46;gif&#41;| *&#46;gif|&quot;  +         ;\n                             &quot;TARGA &#40;*&#46;tga&#41;| *&#46;tga|&quot; +          ;\n                             &quot;RLE   &#40;*&#46;rle&#41;| *&#46;rle|&quot; +          ;\n                             &quot;Todo Tipo &#40;*&#46;*&#41;| *&#46;*&quot;             ;\n                            ,&quot;Seleccione un Fichero de imagen&quot;, 4 &#41;\n\n *  oiMAGE&#58;SetBMP&#40;&quot;&quot;,gcfile&#41;\n *  oimage&#58;Reload&#40;&quot;&quot;,gcfile&#41;\n *  oimage&#58;Refresh&#40;&#41;\n *  oDlt&#58;Update&#40;&#41;\n   if ! Empty&#40; gcFile &#41; &#46;and&#46; File&#40; gcFile &#41;\n*      oImage&#58;LoadBmp&#40; gcFile &#41;\n   oiMAGE&#58;SetBMP&#40;&quot;&quot;,gcfile&#41;\n   oimage&#58;Reload&#40;&quot;&quot;,gcfile&#41;\n   oimage&#58;Refresh&#40;&#41;\n   oDlt&#58;Update&#40;&#41;\n\n   endif\n\nreturn gcfile\n[/code:24f7hvcz]\n\ngracias a todos','',0,'AIA=','24f7hvcz',1,0,'',77,0,0),(39990,8567,3,51,0,'80.122.88.242',1192992858,1,0,1,1,1,0,'','folder  aPrompts problem','FWH  samples genfold.prg\n\nEdit aPrompts does not change the TAB only if you add a new TAB\nthe edited Tab is changed, too.\nRegards,\nOtto','',0,'AIA=','2ckhk14q',1,1192997034,'',51,1,0),(39991,8544,3,2,0,'87.218.146.128',1192993196,1,0,1,1,1,1,'','','Dutch,\n\nIt looks really nice <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nI am sure many users will appreciate if you want to share its source code. You may use <!-- w --><a class=\"postlink\" href=\"http://www.rapidshare.com\">www.rapidshare.com</a><!-- w --> or similar to upload it, thanks','',0,'AIA=','3ncief2z',1,0,'',2,0,0),(39992,8497,6,2,0,'87.218.146.128',1192993293,1,0,1,1,1,1,'','','&gt;\nMe quiero actualizar a la nueva versión de fwh, los menus office 2007 y msgbar funcionan ya en windows 98 ?\n&gt;\n\nEstamos en ello <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2sxfgfpk',1,0,'',2,0,0),(39993,8497,6,2,0,'87.218.146.128',1192994377,1,0,1,1,1,1,'','','Funcionando en Windows 98:\n\n[url=http&#58;//imageshack&#46;us:1c8vics4][img:1c8vics4]http&#58;//img248&#46;imageshack&#46;us/img248/8780/menuseb6&#46;png[/img:1c8vics4][/url:1c8vics4]','',0,'GA==','1c8vics4',1,0,'',2,0,0),(39994,8566,2,2,0,'87.218.146.128',1192995635,1,0,1,1,1,1,'','','En vez de \n\nREDEFINE BITMAP oImage ...\n\ntienes que usar:\n\nREDEFINE IMAGE oImage ...\n\ny en el recurso usa \"TImage\" en vez de \"TBitmap\"','',0,'GA==','30cr9q1g',1,0,'',2,0,0),(39995,8520,1,2,0,'87.218.146.128',1192995777,1,0,1,1,1,1,'','','Peter,\n\nAlready sent','',0,'GA==','3py409b9',1,0,'',2,0,0),(39996,8520,1,2,0,'87.218.146.128',1192995881,1,0,1,1,1,1,'','','Peter,\n\nYour email account refused it:\n\n&lt;peter_ezfo@hotmail.com&gt;:\n65.54.244.136 does not like recipient.\nRemote host said: 550 Requested action not taken: mailbox unavailable Giving up on 65.54.244.136.','',0,'GA==','n2526g7c',1,0,'',2,0,0),(39997,8567,3,51,0,'80.122.88.242',1192997002,1,0,1,1,1,0,'','','If you change the sample genfold from: \noFld:aPrompts[ oFld:nOption ] := AllTrim( cTemp )           \noFld:Refresh() )\n\nto:\n oFld:SetPrompts({ \"TEST\", \"&amp;Two\", \"T&amp;hree\" })\n\nthan the tab prompt changes.\n\nRegards,\nOtto','',0,'','1ygknkng',1,0,'',51,0,0),(39998,8568,6,207,0,'189.158.85.170',1192997641,1,0,1,1,1,0,'','no salen encabezados con tReport','que tal a todos:\n\nTengo un sistema que venia generando reportes muy bien, le hice algunos cambios y  ya no le salen los encabezados sin embargo  toda la informacion si se imprime, caso raro , en una version anterior si salen bien, que podrá ser?','',0,'','oto0aus4',1,0,'',207,0,0),(39999,8569,6,552,0,'200.140.238.81',1193002318,1,0,1,1,1,1,'','Gracias a todos que ayudaram!! problema resolvido!!!','Antonio, \n\nTengo en un DIALOG 18 listbox de array, 1 e 18 tem el mismo array, que son horarios. Lo que pasa es que quando clico en el button executo outra tarefa, que sea, abro una otra DIALOG e retorno sem problemas. Pero, quando clico en una celda del browse, executa la misma tarefa, mas ao retornar, mostra los browses como se tivesse ocorrido un scroll, mira la imagem.\n\nimagem normal\n\n[img:12czzh55]http&#58;//al5&#46;us/image/thumbs/871098mapa1&#46;JPG[/img:12czzh55]\n\nimagem ao retornar quando dou click en la celda del browse\n\n[img:12czzh55]http&#58;//al5&#46;us/image/thumbs/55377mapa2&#46;JPG[/img:12czzh55]\n\nNo se como proceder para que não aconteça el problema, o sea, no ocorra scroll en los browses.\n\nSaludos desde Brasil,','',0,'CA==','12czzh55',1,1193191408,'',552,5,0),(40000,8566,2,53,0,'189.139.9.118',1193003278,1,0,1,1,1,1,'','','Mestro:\n\nY cómo hacer para re pintar una nueva imagen ?, tengo un browse desde recursos con datos de varios productos y un espacio para mostrar la imagen.JPG de cada uno de esos producto tambien desde recursos. lo que necesito es que cuando el usuario se mueva por el browse se muestre la imagen correspondiente al producto.\n\nSi alguien tuviera un ejemplo sera bienvenido.\n\nSaludos','',0,'CA==','3ljebfzd',1,0,'',53,0,0),(40001,8570,3,51,0,'80.122.88.242',1193004358,1,0,1,1,1,0,'','Preview','Hello Antonio,\ncan we have an answer to the MDI/PREVIEW also in the English forum.\nThanks in advance\nOtto\n\nJulio, \n\nVamos a implementar la forma de hacerlo opcional. \n\n&gt; testpre2.prg \n\nEste ejemplo no usa ventana MDI \n\n&gt; testprev.prg \n\nEste si es MDI y curiosamente no hace el preview como ventana hija. Vamos a revisarlo, gracias \n_________________\nregards, saludos \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> \n \nBack to top         \n \n \nnorberto\n\n\n\nJoined: 30 Aug 2007\nPosts: 20\n\n Posted: Fri Oct 19, 2007 3:29 pm    Post subject:    \n\n--------------------------------------------------------------------------------\n \nAntonio, sorry for my english, this my problem... my main window is MDI, i use easyreport and call an dialog before preview, and close this dialog, but after fwh709, the focus come to this dialog , not to main window. \n\nthanks','',0,'CA==','1ehrunfg',1,0,'',51,0,0),(40002,8563,1,51,0,'80.122.88.242',1193005222,1,0,1,1,1,0,'','','Thank you for your answer, James.\nregards,\nOtto','',0,'CA==','26ryxi4y',1,0,'',51,0,0),(40004,8569,6,2,0,'87.218.146.128',1193006275,1,0,1,1,1,1,'','','Luiz Augusto,\n\nPuedes poner las imágenes más grandes para que se vea con más detalle ? gracias','',0,'gA==','1u5he27d',1,0,'',2,0,0),(40005,8571,3,51,0,'80.122.88.242',1193006323,1,0,1,1,1,0,'','BUTTONBAR RIGHT','Office 2007 style\n\nIf there is a menu attached on a botton the open files tor the popup menu is too small.\nRegards,\nOtto','',0,'gA==','309oheze',1,0,'',51,0,0),(40006,8566,2,1095,0,'80.35.166.25',1193007114,1,0,1,1,1,0,'','','Hola Armando:\n\n...\nREDEFINE LISTBOX oLbx ... ;\n   [b:298ee2m0]ON CHANGE ( ChgImagen(oImg) )[/b:298ee2m0]\n\n...\nREDEFINE IMAGE oImg ID xxx OF oDlg FILE ( cFichero )\n\n....\n\n[b:298ee2m0]FUNCTION ChgImagen(oImg)\noImg:LoadImage( ,cFichero )\noIm:Refresh()\nRETURN NIL[/b:298ee2m0]\n\nSaludos.','',0,'QA==','298ee2m0',1,0,'',1095,0,0),(40007,8569,6,552,0,'200.140.238.81',1193010278,1,0,1,1,1,1,'','','Antonio, \n\nPido disculpas por las imagenes, ai vão mas grandes.\n\nla primera vez estou nesta tela\n<!-- m --><a class=\"postlink\" href=\"http://al5.us/image/images/112637mapa1.JPG\">http://al5.us/image/images/112637mapa1.JPG</a><!-- m -->\n\nvou para esta otra tela \n<!-- m --><a class=\"postlink\" href=\"http://al5.us/image/images/906771mapa4.JPG\">http://al5.us/image/images/906771mapa4.JPG</a><!-- m -->\n\ne quando retorno minha tela fica deformada \n<!-- m --><a class=\"postlink\" href=\"http://al5.us/image/images/384837mapa2.JPG\">http://al5.us/image/images/384837mapa2.JPG</a><!-- m -->\n\nSaludos desde Brasil','',0,'QA==','1je02r6p',1,0,'',552,0,0),(40008,8566,2,53,0,'189.139.9.118',1193014801,1,0,1,1,1,1,'','','vlmsoft:\n\nExcelente, funciona de 10 muchas gracias.\n\nAhora hay este otro detalle, cuando alguna imagen no existe se queda \"pegada\" la imagen anterior, ¿ cómo lograr quitar la imagen anterior y que quede el espacio vacio cuando la imagen a presentar no exista ?.\n\nSaludos','',0,'QA==','vt9zi5nf',1,0,'',53,0,0),(40009,8544,3,47,0,'203.144.160.247',1193023029,1,0,1,1,1,0,'','','[url:1bodkeet]http&#58;//rapidshare&#46;com/files/64272580/EVENT&#46;ZIP[/url:1bodkeet]\n\nRegards,\nDutch','',0,'EA==','1bodkeet',1,0,'',47,0,0),(40010,8566,2,78,0,'190.43.190.62',1193025782,1,0,1,1,1,0,'','','Hola Armando...\nCuando requiero \"repintar\" una imagen, y esta no existe, pues le cargo una imagen en blanco, o una inagen que diga \"Imagen No Disponible\"\n\nFUNCTION ChgImagen(oImg) \nlocal cFile\ncFile := ALLTRIM(Almmas-&gt;imag  )\nIf FILE(cFile) .AND. !EMPTY(cFile)\n  oImg:LoadImage(cFile)\n Else                       \n  oImg:LoadImage(M-&gt;cRutaBmp + \"Blanco.Bmp\")\nEndIf\noImg:Refresh()\nReturn nil\n\nDonde \"Blanco.Bmp\" en un grafico con el color del dialogo contenedor y con un mensaje que dice \"Imagen No Disponible\"...\n\nSalu2','',0,'EA==','yxypl6k7',1,0,'',78,0,0),(40011,8544,3,89,0,'213.21.136.60',1193034337,1,0,1,1,1,0,'','','This is another class \n[url=http&#58;//img143&#46;imageshack&#46;us/my&#46;php?image=immaginems7&#46;jpg:3plo715g][img:3plo715g]http&#58;//img143&#46;imageshack&#46;us/img143/6248/immaginems7&#46;th&#46;jpg[/img:3plo715g][/url:3plo715g]\n\nRegards Maurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->','',0,'GA==','3plo715g',1,0,'',89,0,0),(40012,8497,6,106,0,'85.34.123.173',1193039811,1,0,1,1,1,1,'','','Antonio,\n\nAcabo de bajar nuevamente el FTDN pero no veo el nuevo menu, tengo que hacer algo?\n\nSaludos','',0,'GA==','303wq6en',1,0,'',106,0,0),(40013,8567,3,2,0,'87.218.146.128',1193040660,1,0,1,1,1,1,'','','Otto,\n\nThanks, yes its the way to do it in 32 bits <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','rkdh9zy6',1,0,'',2,0,0),(40014,8497,6,2,0,'87.218.146.128',1193040822,1,0,1,1,1,1,'','','Pedro,\n\nPor favor envíame un email indicándome si usas Harbour ó xHarbour ó xHB. Gracias','',0,'GA==','31azb2ee',1,0,'',2,0,0),(40015,8572,3,86,0,'81.83.151.142',1193045452,1,0,1,1,1,1,'','Urgent problem','Hello,\n\nAlready several times, I asked about some more information concerning communications with Microsoft Outlook through OLE.\n\nMy customers are asking for more possibilities in this almost every day.\n\nUntil now, nobody has given me a satisfying answer.\n\nWhat do I need :\n\n- Sending and receiving emails from Outlook\n- Synchronisation with the Outlook Calender\n- Saving the attachments from a e-mail-message\n- Exporting data to Excel\n- ...\n\nPlease can someone tell me if a solution is possible ? To my opinion there is a great need for such solutions. It\'s one of the issues of modern software.\n\nI hope someone can help me because I\'m getting disperate.\n\nThank you very much in advance.','',0,'GA==','1t72r039',1,0,'',86,0,0),(40016,8544,3,2,0,'87.218.146.128',1193045477,1,0,1,1,1,1,'','','Dutch,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','1g8w95ij',1,0,'',2,0,0),(40017,8573,20,1009,0,'82.187.221.169',1193045561,1,0,1,1,1,0,'','checkbox in tcbrowse','salve a tutti,\nin un programma uso le classi tcbrowse e tccolumn per gestire un dbase,\nè possibile cambiare dati logici con una checkbox invece di inserire F o T?\n(fwh7.1 con xHarbour 0.99.71)\n\ngrazie, marzio','',0,'GA==','28t6pade',1,0,'',1009,0,0),(40018,8572,3,3,0,'80.81.159.19',1193047394,1,0,1,1,1,1,'','Re: Urgent problem','Michel \n\nhere are some handy functions for outlook\n\nFor email, there has been many threads in this forum.\n\nFunctions below are used by my app\n\n\n#define outlookFolderCalendar 9\n#define olFolderContacts 10\n\nFUNCTION AJRDV( cDate, cTime, nLenInMin, cObjet, cNote ) // cdate format jj/mm/aaaa  ctime format hh:mns EXEMPLE 10:20\nLOCAL oOutlook,hApptItem,oNameSpace,ocalendar,hOutlook, ;\n      lSave    := .F., ;\n      lFOUND   := .F., ;\n      I        := 0\nTRY\n   oOutlook   := CREATEOBJECT( \"Outlook.Application\" )\n\n   oNameSpace := oOutlook:GetNameSpace(\"MAPI\")\n   ocalendar  := oNameSpace:GetDefaultFolder(outlookFolderCalendar )\n\n   FOR I = 1 TO ocalendar:Items:Count\n       IF DTOS(ocalendar:Items[ i ]:START) = DTOS(CTOD(CDATE)) .AND. ocalendar:Items[ i ]:SUBJECT = cObjet ;\n        .AND. ocalendar:Items[ i ]:Body = cNote .AND. ocalendar:Items[ i ]:Duration = NLeninmin\n          LFOUND := TRUE\n          I      := 1000000\n       ENDIF\n   NEXT\n\n   IF ! LFOUND // NOUVEAU\n\n      hOutlook  := CreateOLEObject( \"Outlook.Application\" )\n      hAppItem  := OLEInvoke( hOutlook, \"CreateItem\", 1 )\n\n      OLESetProperty( hAppItem, \"Start\", CDate + \" \" + cTime)\n\n      OLESetProperty( hAppItem, \"Duration\", nLenInMin )\n      OLESetProperty( hAppItem, \"Subject\", cObjet )\n      OLESetProperty( hAppItem, \"Body\", cNote )\n      OLESetProperty( hAppItem, \"Mileage\", 225 )\n      OLEInvoke( hAppItem, \"Save\" )\n      hAppItem := NIL\n      hOutlook := NIL\n   ENDIF\n\n   OOutlook := NIL\n   lSave    := .t.\nCATCH\n   lSave    := .f.\nEND\nRETURN (lSave)\n\nFUNCTION AJTACHE( cDate, cObjet, cNote, cTime )\nLOCAL hOutlook, hAppItem, dDate\nLOCAL lSave := .f.\nTRY\n   hOutlook := CreateOLEObject( \"Outlook.Application\")\n   hAppItem := OLEInvoke( hOutlook, \"CreateItem\", 3 )\n   dDate := CToD( cDate )\n   OLESetProperty( hAppItem, \"DueDate\", dDate )\n   OLESetProperty( hAppItem, \"Remindertime\", cDate + \" \" + cTime )\n   OLESetProperty( hAppItem, \"ReminderSet\", \"Y\" )\n   OLESetProperty( hAppItem, \"StartDate\", Date() )\n   OLESetProperty( hAppItem, \"Duration\", 60 )\n   OLESetProperty( hAppItem, \"Subject\", cObjet )\n   OLESetProperty( hAppItem, \"Body\", cNote )\n   OLESetProperty( hAppItem, \"StartTime\", cTime + \":00\" )\n   OLEInvoke( hAppItem, \"Save\" )\n   hAppItem := NIL\n   hOutlook := NIL\n   lSave := .t.\nCATCH\n   lSave := .f.\nEND\nRETURN (lSave)\n\nFUNCTION READOUTLOOK()\n\n    LOCAL oOutlook := CREATEOBJECT( \"Outlook.Application\" )\n    LOCAL oNameSpace := oOutlook:GetNameSpace(\"MAPI\")\n    LOCAL oContacts := oNameSpace:GetDefaultFolder( olFolderContacts )\n\n\n    LOCAL i\n\n    FOR i = 1 TO oContacts:Items:Count\n        ? oContacts:Items[ i ]:FullName\n        ? oContacts:Items[ i ]:BusinessAddressStreet\n        ? oContacts:Items[ i ]:BusinessAddressPostalCode\n        ? oContacts:Items[ i ]:BusinessAddressCity\n        ? oContacts:Items[ i ]:BusinessAddressState\n        ? oContacts:Items[ i ]:BusinessAddressCountry\n        ? oContacts:Items[ i ]:BusinessTelephoneNumber\n        ? oContacts:Items[ i ]:Email1Address\n        ? oContacts:Items[ i ]:LastModificationTime\n        ?\n    NEXT\n\n    oOutlook:Quit()\n\nRETURN NIL\n\n\n\nhth\n\nRichard','',0,'','2imxe4hu',1,0,'',3,0,0),(40019,8569,6,694,0,'201.47.67.46',1193047534,1,0,1,1,1,1,'','','laugusto\n\n\nColoque um pedaço do seu PRG, principalmente quando retorna ao browse para que possamos ajuda-lo.\n\nOk\n\nAoki','',0,'','1mofdmy0',1,0,'',694,0,0),(40020,8572,3,86,0,'81.83.151.142',1193048958,1,0,1,1,1,1,'','','Richard,\n\nThank you very much.\n\nI\'ll try it out as soon as possible.\n\nThis is a step I was looking for.\n\nMany, many thanks.','',0,'','14yky5mf',1,0,'',86,0,0),(40021,8573,20,6,0,'80.181.217.250',1193050067,1,0,1,1,1,1,'','Re: checkbox in tcbrowse','Questo è un esempio con TWBrowse immediatamente adattabile a TCBrowse.:\n\n[code:1g4cakzc]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    LOCAL hBmp1 &#58;= READBITMAP&#40; 0, &quot;SELECT&#46;BMP&quot; &#41;\n    LOCAL hBmp2 &#58;= READBITMAP&#40; 0, &quot;UNSELECT&#46;BMP&quot; &#41;\n\n    USE TEST\n\n    DEFINE DIALOG oDlg SIZE 400, 300\n\n    @ 0, 0 LISTBOX oBrw FIELDS FIELD -&gt; last,;\n                               FIELD -&gt; first,;\n                               IF&#40; FIELD -&gt; married, hBmp1, hBmp2 &#41;,;\n                               &quot;&quot;;\n           HEADERS &quot;LAST&quot;, &quot;FIRST&quot;, &quot;M&quot;, &quot;&quot;;\n           SIZES 100, 100, 16, 0\n\n    oBrw&#58;bLClicked = &#123; | nRow, nCol | Cambia&#40; oBrw, nCol &#41; &#125;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    DELETEOBJECT&#40; hBmp1 &#41;\n    DELETEOBJECT&#40; hBmp2 &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION CAMBIA&#40; oBrw, nCol &#41;\n\n    IF oBrw&#58;nAtCol&#40; nCol &#41; = 3\n        REPLACE FIELD -&gt; married WITH !FIELD -&gt; married\n        oBrw&#58;Refresh&#40; &#46;F&#46; &#41;\n    ENDIF\n\n    RETURN NIL[/code:1g4cakzc]\n\nEMG','',0,'AIA=','1g4cakzc',1,0,'',6,0,0),(40022,8566,2,77,0,'217.126.90.142',1193050238,1,0,1,1,1,0,'','','Hola antonio, si introduzco REDEFINE IMAGE, me da error que no reconoce el comando, he mirado el fivewin.ch y no existe el redefine image, solo existe el redefine BITMAP, tengo fw21, podrías decirme cual es el problema.\n\nsaludos.','',0,'AIA=','35gq47jx',1,0,'',77,0,0),(40023,8566,2,2,0,'87.218.146.128',1193053489,1,0,1,1,1,1,'','','Manolo,\n\nNecesitas una versión más reciente de FW. \n\nPuedes actualizarte desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos, gracias','',0,'AIA=','3doga0zg',1,0,'',2,0,0),(40024,8567,3,439,0,'200.125.34.82',1193053714,1,0,1,1,1,1,'','','oFld:aPrompts[ oFld:nOption ] := AllTrim( cTemp ),;\noFld:SetPrompts(oFld:aPrompts) )','',0,'','2uit755d',1,0,'',439,0,0),(40025,8569,6,2,0,'87.218.146.128',1193053751,1,0,1,1,1,1,'','','Luiz Augusto, \n\nHaz como te dice Aoki, muéstranos parte del código cuando vas y regresas al browse. \n\nEn la imagen la última fecha es 22:30. Es como si hubieses cambiado el comienzo del browse a una hora más adelantada','',0,'','wdyn92fn',1,0,'',2,0,0),(40026,8567,3,2,0,'87.218.146.128',1193053873,1,0,1,1,1,1,'','','José,\n\nthanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3jmsxky8',1,0,'',2,0,0),(40027,8544,3,103,0,'189.43.121.190',1193055337,1,0,1,1,1,1,'','','[quote:rfg3c3yd]This is another class [/quote:rfg3c3yd]\n\nHi, Maurizio,\n\n    Are you selling this class or are you sharing this class with all of us? I\'m really interested on it.\n\nRegards','',0,'gA==','rfg3c3yd',1,0,'',103,0,0);
INSERT INTO `phpbb_posts` VALUES (40028,8569,6,552,0,'200.140.238.81',1193055847,1,0,1,1,1,1,'','','Buenos dias a todos, \n\nSegue abajo el codigo:\n\n- montagem do button 1 e 18, horarios do mapa:\n[code:20c0mwcb]\n\n   // Monta o Cabeçalho dos Horarios\n   a_Mapa&#91; 1&#93; &#58;= &#123; \'07&#58;00\', \'07&#58;30\', \'08&#58;00\', \'08&#58;30\', \'09&#58;00\', \'09&#58;30\', \'10&#58;00\', \'10&#58;30\',;\n                   \'11&#58;00\', \'11&#58;30\', \'12&#58;00\', \'12&#58;30\', \'13&#58;00\', \'13&#58;30\', \'14&#58;00\', \'14&#58;30\',;\n                   \'15&#58;00\', \'15&#58;30\', \'16&#58;00\', \'16&#58;30\', \'17&#58;00\', \'17&#58;30\', \'18&#58;00\', \'18&#58;30\',;\n                   \'19&#58;00\', \'19&#58;30\', \'20&#58;00\', \'20&#58;30\', \'21&#58;00\', \'21&#58;30\', \'22&#58;00\', \'22&#58;30\' &#125;\n   a_Cor&#91; 1&#93; &#58;= &#123;&#125;\n   // Inicializa o Restante dos ARRAYs\n   For X &#58;= 2 to 32\n      a_Mapa&#91; X&#93; &#58;= Array&#40;32&#41;\n       a_Cor&#91; X&#93; &#58;= Array&#40;32&#41;\n   Next\n\n//monta o listbox dos horarios do mapa\n\n   //--------------------------------------------------------------------------\n   // Mostra o Cabeçalho das Horas da Agenda - lado Esquerdo\n\n      TWBrowse&#40;&#41;&#58;lHScroll &#58;= &#46;f&#46;\n      REDEFINE LISTBOX oBrw&#91; 1&#93;;\n         FIELDS a_Mapa&#91; 1&#93;&#91; n&#93; ID 70 OF oMap30\n\n      oBrw&#91; 1&#93;&#58;SetArray&#40; a_Mapa&#91; 1&#93; &#41;\n\n      oBrw&#91; 1&#93;&#58;bGotop       &#58;= &#123; || n &#58;= 1 &#125;\n      oBrw&#91; 1&#93;&#58;bGoBottom    &#58;= &#123; || n &#58;= Eval&#40; oBrw&#91; 1&#93;&#58;bLogicLen &#41; &#125;\n      oBrw&#91; 1&#93;&#58;bSkip        &#58;= &#123; | nwant, nold | nold &#58;= n , n += nwant, n &#58;= Max&#40; 1, Min&#40; n, Eval&#40; oBrw&#91; 1&#93;&#58;bLogicLen &#41;&#41;&#41;, n - nOld &#125;\n      oBrw&#91; 1&#93;&#58;bLogicLen    &#58;= &#123; || Len&#40; a_Mapa&#91; 1&#93; &#41; &#125;\n\n      // Força o browse a trabalhar com celulas\n      oBrw&#91; 1&#93;&#58;lCellStyle    &#58;= &#46;t&#46;\n      oBrw&#91; 1&#93;&#58;nLineStyle    &#58;=  4\n      oBrw&#91; 1&#93;&#58;lDrawHeaders  &#58;= &#46;f&#46;\n\n      // Cor da Linha\n      oBrw&#91; 1&#93;&#58;nClrText &#58;= &#123; || CLR_BLACK &#125;\n\n      // Cor de fundo da planilha\n      oBrw&#91; 1&#93;&#58;nClrPane &#58;= &#123; || nRGB&#40; 209, 209, 209 &#41; &#125;\n      oBrw&#91; 1&#93;&#58;lDrawSelect &#58;= &#46;f&#46;\n\n      oBrw&#91; 1&#93;&#58;Refresh&#40;&#41;\n\n\n   //--------------------------------------------------------------------------\n   // Mostra o Mapa 1 \n  //  Esta montagem é exatamente igual para os mapas\n  //  1 a 17, o mapa 18 mostra os horarios do lado direito&#46;\n\n      TWBrowse&#40;&#41;&#58;lHScroll &#58;= &#46;f&#46;\n      REDEFINE LISTBOX oBrw&#91; 2&#93;;\n         FIELDS a_Mapa&#91; 2&#93;&#91; n&#93; ID 71 OF oMap30\n\n      oBrw&#91; 2&#93;&#58;SetArray&#40; a_Mapa&#91; 2&#93; &#41;\n\n      oBrw&#91; 2&#93;&#58;bGotop       &#58;= &#123; || n &#58;= 1 &#125;\n      oBrw&#91; 2&#93;&#58;bGoBottom    &#58;= &#123; || n &#58;= Eval&#40; oBrw&#91; 2&#93;&#58;bLogicLen &#41; &#125;\n      oBrw&#91; 2&#93;&#58;bSkip        &#58;= &#123; | nwant, nold | nold &#58;= n , n += nwant, n &#58;= Max&#40; 1, Min&#40; n, Eval&#40; oBrw&#91; 2&#93;&#58;bLogicLen &#41;&#41;&#41;, n - nOld &#125;\n      oBrw&#91; 2&#93;&#58;bLogicLen    &#58;= &#123; || Len&#40; a_Mapa&#91; 2&#93; &#41; &#125;\n\n      // Força o browse a trabalhar com celulas\n      oBrw&#91; 2&#93;&#58;lCellStyle    &#58;= &#46;t&#46;\n      oBrw&#91; 2&#93;&#58;nLineStyle    &#58;=  4\n      oBrw&#91; 2&#93;&#58;lDrawHeaders  &#58;= &#46;f&#46;\n\n      // Cor da Linha\n      oBrw&#91; 2&#93;&#58;nClrText &#58;= &#123; || CLR_WHITE &#125;\n\n      // Cor de fundo da planilha\n      oBrw&#91; 2&#93;&#58;nClrPane   &#58;= &#123; || IF&#40; a_Mapa&#91; 2&#93;&#91; n&#93; = \'BLOQ\', CLR_HRED,;\n                                  IF&#40; Substr&#40; a_Cor&#91; 2&#93;&#91; n&#93;, 20, 1 &#41; = \'*\', nRgb&#40;   0, 193,   0 &#41;,;\n                                  IF&#40; Substr&#40; a_Cor&#91; 2&#93;&#91; n&#93;, 20, 1 &#41; = \'+\', nRgb&#40; 255,   0,   0 &#41;, aBrush_&#91;TCOR&#91; 1&#93;&#93; &#41;&#41;&#41; &#125;\n\n      oBrw&#91; 2&#93;&#58;bLDblClick   &#58;= &#123; | nRow, nCol | pPR_A_COD &#58;= TMP&#91; 1&#93;,;\n                                                bPos &#58;= 1, cPos &#58;= n,;\n                                                TESTE2&#40; oWnd, oAgen, oMap30, pPR_A_COD, oBtn_, &#46;t&#46; &#41; &#125;\n      /*\n      Obs&#46;&#58; bPos equivale ao button do profissional\n            cPos equivale a coluna onde se deu o click do mouse\n            necessários pra que possa ser feito RETORNO CORRETAMENTE&#46;\n      */\n\n      // Tooltip do conteudo da Celula, funcionalidade futura&#40;18&#46;10&#46;2007 by lAugusto&#41;\n      oBrw&#91; 2&#93;&#58;cTooltip &#58;= &quot;Duplo Clique para Selecionar &quot; + CRLF + &quot; Horario/Profissional&#46;&quot;\n    //oBrw&#91; 2&#93;&#58;bChange  &#58;= &#123; || oBrw&#91; 2&#93;&#58;cToolTip &#58;= a_Mapa&#91; 2&#93;&#91; oBrw&#91; 2&#93;&#58;nAt &#93; &#125;\n      \n      oBrw&#91; 2&#93;&#58;lDrawSelect &#58;= &#46;f&#46;\n      oBrw&#91; 2&#93;&#58;Refresh&#40;&#41;\n      oBrw&#91; 2&#93;&#58;nDlgCode &#58;= DLGC_WANTALLKEYS\n      //SysRefresh&#40;&#41;\n\n   //--------------------------------------------------------------------------\n\n// Montagem dos Buttons dos profissionais, de 1 a 18\n\n   REDEFINE SBUTTON oBtn&#91; 1&#93; ID 635 OF oMap30;\n      PROMPT aCbc&#91; 1&#93;;\n      ACTION&#40; pPR_A_COD &#58;= TMP&#91; 1&#93;, bPos &#58;= oMap30&#58;oCtlFocus&#58;nId,;\n              TESTE2&#40; oWnd, oAgen, oMap30, pPR_A_COD, oBtn_ &#41; &#41; CANCEL;\n      COLORS &#123; |oB| IF&#40; oB&#58;lMouseOver,CLR_WHITE, CLR_BLACK &#41;&#125;,;\n             &#123; |oB| IF&#40; oB&#58;lMouseOver,&#123; CLR_WHITE, CLR_BLUE &#125;,;\n                                      &#123; CLR_HGRAY, CLR_HGRAY &#125; &#41; &#125;;\n      BORDER TEXT POSITION ON_CENTER\n\n   oBtn&#91; 1&#93;&#58;lCancel  &#58;= &#46;t&#46;\n   oBtn&#91; 1&#93;&#58;bKeyDown &#58;= &#123; |nKey|;\n   IF&#40; nKey = VK_ESCAPE,&#40; Ver_Tecla1&#40; oAgen &#41; &#41;,;\n   IF&#40; nKey = VK_LEFT,&#40; Anterior&#40; 1 &#41; &#41;,;\n   IF&#40; nKey = VK_RIGHT,&#40; Proximo&#40; 1 &#41; &#41;, nil &#41;&#41;&#41; &#125;\n   oBtn&#91; 1&#93;&#58;nDlgCode &#58;= DLGC_WANTALLKEYS\n\n//-----------------------------------------------------------------\n//------------ CLICK NO HBUTTON ------------------------------------------------------------\nFunction TESTE2&#40; oWnd, oAgen, oMap30, pPR_A_COD, oBtn_, lEdita &#41;\n\n   local oFont\n   DEFAULT lEdita &#58;= &#46;f&#46;  // Quando TRUE, clicou diretamente na Célula&#46;\n\n   pPR_A_COD &#58;= Substr&#40; PPR_A_COD, 1, 2 &#41; + &#40; Strzero&#40; Val&#40; Substr&#40; pPR_A_COD, 3, 3 &#41; &#41;, 3 &#41; &#41;\n   oPR_A_COD&#58;Refresh&#40;&#41;\n\n   dbSelectArea&#40; &quot;Pro_A01&quot; &#41;  //  sele 7\n   dbSetOrder&#40; \'IPro_A01\' &#41;   //  set order to 1\n   dbGotop&#40;&#41;\n   dbSeek&#40; pPR_A_COD &#41;\n   IF EOF&#40;&#41;\n      tone&#40; 2000, 3 &#41;\n      msginfo&#40; \'O código selecionado não consta do cadastro de profissionais&#46;\', \'Atenção Operador\' &#41;\n      xSetFocus&#40; oBtn&#91;bPos&#93; &#41;\n      Return nil\n   EndIF\n\n   oMap30&#58;Hide&#40;&#41;\n\n   oAgen&#58;Show&#40;&#41;\n   //oAgen&#58;Enable&#40;&#41;\n   //oAgen&#58;SetFocus&#40;&#41;\n\n   pPR_A_NOM &#58;= Pro_A01-&gt;PR_A_NOM\n   oPR_A_NOM&#58;Refresh&#40;&#41;\n \n   dbSelectArea&#40; &quot;Pro_C01&quot; &#41;  // Sele 11\n   dbSetOrder&#40; \'IPRO_C01\' &#41;\n   dbSeek&#40; pPR_A_COD &#41;\n   TFOLGAT    &#58;= Pro_C01-&gt;PR_C_FOLG\n   pPR_C_FUN  &#58;= Pro_C01-&gt;PR_C_FUN\n   pPR_C_HENT &#58;= Pro_C01-&gt;PR_C_HENT\n\n   oPR_C_FUN&#58;Refresh&#40;&#41;\n   oPR_C_HENT&#58;Refresh&#40;&#41;\n\n// pAG_DATA &#58;= m-&gt;tDATA  by lAugusto 12/09/2007\n   DIA_SEMANA&#40; oAgen &#41;\n   oAgen&#58;aControls&#91; 5&#93;&#58;Refresh&#40;&#41;            //  oAG_DATA&#58;Refresh&#40;&#41;\n   oAgen&#58;aControls&#91; 6&#93;&#58;SetText&#40; tDIA_SEM &#41;  //  oDIA_SEM&#58;Refresh&#40;&#41;\n\n   // Vai para AGENDA\n   HORARIO&#40; oAgen, oBtn_ &#41;  // Rotina no AG_002&#46;PRG\n\n   // Mostra Botoes Extras de Navegacao do Calendario\n   oBtn_&#91; 3&#93;&#58;Show&#40;&#41;\n   oBtn_&#91; 4&#93;&#58;Show&#40;&#41;\n   oBtn_&#91; 5&#93;&#58;Show&#40;&#41;\n   oBtn_&#91; 6&#93;&#58;Show&#40;&#41;\n\n   DIA&#40; oAgen, lEdita, cpos &#41;  // Rotina no AG_002&#46;PRG\n\nReturn nil\n\n//-------------------------------------------------------------------\nFunction Ver_Tecla1&#40; oAgen &#41;\n\n   local X\n\n   tMapa &#58;= &#46;t&#46;  // Se TRUE, esta na MAPA&#46;\n   tAgen &#58;= &#46;f&#46;  // Se TRUE, esta na AGENDA&#46;\n   lProc &#58;= &#46;f&#46;\n\n   lSai &#58;= &#46;f&#46;  // SE FALSE, habilita buttons de funções e coloca o FOCO na data no MAPA\n   // destrava Buttons de Movimentação do MAPA\n   For X &#58;= 22 to 33\n      oBtn&#91; X&#93;&#58;Enable&#40;&#41;\n      oBtn&#91; X&#93;&#58;Refresh&#40;&#41;\n   Next\n\n   // desabilita botoes de escolha do profissional&#40; 1 a 17, inclusive&#46; &#41;\n   For X &#58;= 1 to 17\n      oBtn&#91; X&#93;&#58;Refresh&#40;&#41;\n      oBtn&#91; X&#93;&#58;Disable&#40;&#41;\n   Next\n\n   oAG_DATA&#58;Enable&#40;&#41;\n   oAG_DATA&#58;Refresh&#40;&#41;\n\n   SET DATE FRENCH\n   DIA_SEMM&#40; &#41;\n\n   // Se AGENDA de 30min\n   IF _TPA = \'N3\'\n      MOSTRAM1&#40; oAgen &#41;\n   Else  // Se AGENDA de 20min\n      // \n   EndIF\n\n   xSetFocus&#40; oAG_DATA &#41;\n\nReturn nil\n//----------------------------------------------------------------------\nFunction DIA_SEMM&#40; &#41;\n\n   DO CASE\n      Case dow&#40; pAG_DATA &#41; = 1\n         tDIA_SEM &#58;= \'Domingo\'\n      Case dow&#40; pAG_DATA &#41; = 2\n         tDIA_SEM &#58;= \'Segunda\'\n      Case dow&#40; pAG_DATA &#41; = 3\n         tDIA_SEM &#58;= \'Terça  \'\n      Case dow&#40; pAG_DATA &#41; = 4\n         tDIA_SEM &#58;= \'Quarta \'\n      Case dow&#40; pAG_DATA &#41; = 5\n         tDIA_SEM &#58;= \'Quinta \'\n      case dow&#40; pAG_DATA &#41; = 6\n         tDIA_SEM &#58;= \'Sexta  \'\n      Case dow&#40; pAG_DATA &#41; = 7\n         tDIA_SEM &#58;= \'Sábado \'\n   ENDCASE\n   oDIA_SEM&#58;Refresh&#40;&#41;\n\nReturn nil\n//-----------------------------------------------------------------------\nFunction MOSTRAM1&#40; oAgen &#41;\n\n   local I, X, Z, nInd &#58;= 2, n\n   TC &#58;= 7\n\n   FOR I = 1 TO 17\n\n      DO CASE\n       Case i = 1\n            pPR_A_COD = TMP&#91; 1&#93;\n       Case i = 2\n            pPR_A_COD = TMP&#91; 2&#93;\n        &#46;&#46;&#46; \n        &#46;&#46;&#46;\n        &#46;&#46;&#46;\n       Case i = 17\n            pPR_A_COD = TMP&#91;17&#93;\n      ENDCASE\n\n      dbSelectArea&#40; &quot;Ag_Pri&quot; &#41;  // sele 8\n      dbSetOrder&#40; &quot;IAg_002&quot; &#41;   // set order to 2\n      dbSeek&#40; pPR_A_COD + Dtos&#40; pAG_DATA &#41; &#41;\n\n      //----------------------------------------------------------------------\n      // Limpa os Campos do ARRAY do Listbox dos Mapas - 2 a 17\n      \n      IF Len&#40; a_Mapa&#91;nInd&#93; &#41; &gt; 0\n         Z &#58;= Len&#40; a_Mapa&#91;nInd&#93; &#41;\n         oBrw&#91;nInd&#93;&#58;bGotop &#58;= &#123; || n &#58;= 1 &#125;\n         For X &#58;= 1 To Z\n            Adel&#40; a_Mapa&#91;nInd&#93;&#91; oBrw&#91;nInd&#93;&#58;nAt &#93; &#41;\n            ASize&#40; a_Mapa&#91;nInd&#93;, Len&#40; a_Mapa&#91;nInd&#93; &#41; - 1 &#41;\n         Next\n         // Inicializa o Restante dos ARRAYs\n         a_Mapa&#91;nInd&#93; &#58;= Array&#40;32&#41;\n      EndIF\n      \n      // Preenche o Array Mapas com os dados da AGENDA do Profissional\n      a_Mapa&#91;nInd&#93;&#91; 1&#93; &#58;= AG_0700A\n      a_Mapa&#91;nInd&#93;&#91; 2&#93; &#58;= AG_0730A\n      &#46;&#46;&#46;\n      &#46;&#46;&#46;\n      &#46;&#46;&#46; \n      a_Mapa&#91;nInd&#93;&#91;30&#93; &#58;= AG_0930P\n      a_Mapa&#91;nInd&#93;&#91;31&#93; &#58;= AG_1000P\n      a_Mapa&#91;nInd&#93;&#91;32&#93; &#58;= AG_1030P\n\n      //- Verifica se Substr&#40; a_Cor&#91;nInd&#93;&#91; n&#93;, 20, 1 &#41; = \'*\', SE SIM, pinta a celula de verde limão\n      a_Cor&#91;nInd&#93;&#91; 1&#93; &#58;= AG_0700AT\n      a_Cor&#91;nInd&#93;&#91; 2&#93; &#58;= AG_0730AT\n      &#46;&#46;&#46;\n      &#46;&#46;&#46;\n      &#46;&#46;&#46;\n      a_Cor&#91;nInd&#93;&#91;31&#93; &#58;= AG_1000PT\n      a_Cor&#91;nInd&#93;&#91;32&#93; &#58;= AG_1030PT\n      //----------------------------\n\n      dbSelectArea&#40; &quot;Bloqueio&quot; &#41;  //  sele 25\n      SET FILTER TO Bloqueio-&gt;BL_SEM = Dow&#40; pAG_DATA &#41;\n      dbSeek&#40; pPR_A_COD &#41;\n      IF !Bloqueio-&gt;&#40; EOF&#40;&#41; &#41;\n         While pPR_A_COD = BL_COD\n            X &#58;= BL_HOR\n            a_Mapa&#91;nInd&#93;&#91; X&#93; &#58;= \'BLOQ\'\n            dbSkip&#40;&#41;\n         Enddo\n      EndIF\n      SET FILTER TO\n\n      oBrw&#91;nInd&#93;&#58;bGotop &#58;= &#123; || n &#58;= 1 &#125;\n      oBrw&#91;nInd&#93;&#58;Refresh&#40;&#41;\n\n      dbSelectArea&#40; &quot;Ag_Pri&quot; &#41;  // sele 8\n      nInd += 1\n\n   Next\n\nReturn nil\n[/code:20c0mwcb]\n\nSaludos desde Brasil,','',0,'AIA=','20c0mwcb',1,0,'',552,0,0),(40029,8574,3,234,0,'75.34.217.174',1193056195,1,0,1,1,1,1,'','hb_cdxPageSeekKey','Hello,\n\nI am trying to read and write information to a xBase++ database (RDD=FOXCDX) application from my xHarbour/FWH application. However, I continue to receive the following error = hb_cdxPageSeekKey - wrong parent key. What can I do to eliminate the error. How can I change the xBase++ application to DBFCDX so the memo fields are read properly? I tried to change the xBase++ before but had problems with the memo fields not reading properly when using DBFCDX. Thank you in advance for your help!\n\nSincerely,','',0,'AIA=','1kg4avme',1,0,'',234,0,0),(40030,8566,2,53,0,'189.139.95.116',1193057262,1,0,1,1,1,1,'','','Willi:\n\nMuchas gracias, todo bajo control.\n\nSaludos\n\nPD por la tarde noche te busco en el messenger','',0,'AIA=','2z18yugl',1,0,'',53,0,0),(40031,8575,6,1200,0,'201.48.242.33',1193058758,1,0,1,1,1,0,'','VRMM - Visual FW - FREE','Colegas,\n\nNova atualização da VRMM - Visual FW no link:\n\n<!-- m --><a class=\"postlink\" href=\"http://vrmmcombr.pagebr.com\">http://vrmmcombr.pagebr.com</a><!-- m -->\n\n\nRicardo Marques\nVRMM - Visual Fivewin','',0,'AIA=','20uki8w1',1,0,'',1200,0,0),(40032,8576,3,1200,0,'201.48.242.33',1193058943,1,0,1,1,1,0,'','VRMM - Visual Fivewin (FREE)','Friends,\n\nVRMM - Visual Fivewin (FREE):\n\n<!-- m --><a class=\"postlink\" href=\"http://vrmmcombr.pagebr.com\">http://vrmmcombr.pagebr.com</a><!-- m -->\n\n\nRicardo Marques\nVRMM - Visual Fivewin','',0,'AIA=','t6iug7ev',1,0,'',1200,0,0),(40033,8576,3,2,0,'87.218.146.128',1193060101,1,0,1,1,1,1,'','','Ricardo,\n\nNice contribution, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','16ni7jxt',1,0,'',2,0,0),(40034,8575,6,2,0,'87.218.146.128',1193060164,1,0,1,1,1,1,'','','Ricardo,\n\nEs interesante. Gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','ugmyw5jy',1,0,'',2,0,0),(40035,8577,3,69,0,'206.210.100.104',1193060221,1,0,1,1,1,1,'','Accessing a Delphi DLL function.','Hi Everybody,\n\nI have a Test DLL from a company that has a cost effective way of converting a standard USB Jump drive into a software protection device.\nThe software is called AntiDuplicate.  It modifies a standard USB Jump drive so that it knows the difference between the original and a copy thus allowing you to use it as a hardware key (sells for $129.00 U.S.)\n\nI need to know if it is possible to read data form this file.\n\nThe test dll can be downloaded from my site:\n\n[url]\n<!-- w --><a class=\"postlink\" href=\"http://www.can-soft.net/dl/TestDLL.zip\">www.can-soft.net/dl/TestDLL.zip</a><!-- w -->\n[/url]\n\nThey also gave me this info:\n\n[quote:316pl7p2]\nIf Fivewin can call functions with the array as argument and use the result from the same array, we can use AntiDuplicate DLL.\n\nThis package contains the DLL and an example of the test function call (on Delphi Pascal). If you prefer example on other program language, please let me know.\nIf you\'ll call function correctly, after the function call you\'ll get A[99] = 8300.\n\n[/quote:316pl7p2]\n\nDoes anyone know if Fivewin can work with this?\nCan someone provide a sample of how to read it?\n\nThanks,\nJeff','',0,'gA==','316pl7p2',1,0,'',69,0,0),(40036,8577,3,2,0,'87.218.146.128',1193060362,1,0,1,1,1,1,'','','Jeff,\n\nPlease review samples\\dlls\\delphi32\\*.prg to access a Delphi DLL from FW','',0,'gA==','lnrjos6k',1,0,'',2,0,0),(40037,8496,3,2,0,'87.218.146.128',1193060453,1,0,1,1,1,1,'','','&gt; Windows 98 GPF\n\nFixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2det4gyx',1,0,'',2,0,0),(40038,8577,3,69,0,'206.210.100.104',1193062409,1,0,1,1,1,1,'','','Antonio,\n\nI have looked at the sample but how do you return an array from a Delphi DLL?  \n\nThe samples seem to work fine for text but I get NIL returned with the array.\n\n\nThanks,\nJeff','',0,'gA==','2hwm9o9z',1,0,'',69,0,0),(40039,8577,3,2,0,'87.218.146.128',1193063009,1,0,1,1,1,1,'','','Jeff,\n\n&gt; If you prefer example on other program language, please let me know\n\nCould you please ask them for a C language sample ? thanks','',0,'gA==','2u3ciajl',1,0,'',2,0,0),(40040,8569,6,362,0,'200.158.19.131',1193063368,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://al5.us/image/images/384837mapa2.JPG\">http://al5.us/image/images/384837mapa2.JPG</a><!-- m -->\n\nLuiz, Não consigo identificar o DEFEITO. Olhei as tres tela, e não vejo o ERRO.\n\nExpliqe onde está o problema.','',0,'gA==','29180o1n',1,0,'',362,0,0),(40041,8577,3,2,0,'87.218.146.128',1193063614,1,0,1,1,1,1,'','','Jeff,\n\nPlease try this:\n[code:1lrjvjq1]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Struct&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oStruct, cBuffer\n\n   STRUCT oStruct\n      MEMBER n1 AS LONG\n      MEMBER n2 AS LONG\n      &#46;&#46;&#46; // please repeat it up to 128\n      MEMBER n128 AS LONG\n   ENDSTRUCT\n\n    cBuffer = oStruct&#58;cBuffer\n   TestFunc1&#40; cBuffer &#41;\n   oStruct&#58;cBuffer = cBuffer\n\n   MsgInfo&#40; oStruct&#58;n1 &#41;\n\nreturn nil\n\nDLL FUNCTION TESTFUNC1&#40; pValues as LPSTR &#41; AS BOOL PASCAL LIB &quot;\nTestLib12&#46;dll\'\n[/code:1lrjvjq1]','',0,'AIA=','1lrjvjq1',1,0,'',2,0,0),(40042,8574,3,2,0,'87.218.146.128',1193063785,1,0,1,1,1,1,'','','Darrell,\n\nI forward your question to the [x]Harbour RDD\'s guru Przemek\n\nI will let you know what he says','',0,'','1r802gkc',1,0,'',2,0,0),(40043,8578,6,409,0,'201.222.220.47',1193063937,1,0,1,1,1,0,'','AJUSTAR TEXO A AMBOS LADOS TPRINTER','NECESITO AJUSTAR UN TEXTO A AMBOS LADOS CON LA CLASE TPRINTER. QUE ESTA EN UN CAMPO MEMO.\n\nSALUDOS','',0,'','3bo9g1f6',1,0,'',409,0,0),(40044,8569,6,552,0,'200.140.238.81',1193064138,1,0,1,1,1,1,'','','João, \n\nOlhe as imagens, parece que esta ocorrendo um scroll nos listbox, se voce observar o primeiro listbox, vera que os horarios forma movidos acima, e acontece a mesma coisa com os outros.  Este problema não ocorre se clico direto no button, executo a outra tarefa e retorno normal, mas, se clico na CELULA do listbox, ao retornar, causa um scroll.\n\nEspero ter explicado corretamente, \n\nSaludos,','',0,'','3v8q3kdd',1,0,'',552,0,0),(40045,8569,6,362,0,'200.158.19.131',1193065023,1,0,1,1,1,1,'','','TWBrowse():lHScroll := .f. \n\nLuiz, Este comando, é da TWBROWSE.PRG By Hernan???\n\nLuiz, como esta as PROPRIEDADES da sua TWBROWSE(ListBox) no teu ARQUIVO DE RECURSOS.  Se entendi, voce não quer que a LISTBOX, APRESENTE UM SCROLL, ele está desligado(desmarcado) na DIALOG??\nVefifique e reporte. \n\nA LISTBOX que voce definui no EDITOR DE RECURSOS, é mesmo uma TWBROWSE??? Verifique.\n\nAbraços.\n\nRegards, saludos.','',0,'','4uvp79iz',1,0,'',362,0,0),(40046,8578,6,72,0,'189.146.242.84',1193065767,1,0,1,1,1,0,'','','Descarga: <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/imprimir.zip\">http://www.despachoarteaga.com.mx/imprimir.zip</a><!-- m -->\n\nAhí encontrarás un ejemplo, al final de Printer.Prg va una función que permite eso.','',0,'','ww3erm05',1,0,'',72,0,0),(40047,8569,6,73,0,'200.23.18.132',1193065982,1,0,1,1,1,0,'','','augusto,\nprueba al entrar a la segunda opcion guardar el no. re registro en donde esta posicionado el browse original, luego cuando vuelvas, posiciona el registro nuevamente y refresca el browse\nsalu2\npaco','',0,'','1wbfg3mh',1,0,'',73,0,0),(40048,8569,6,552,0,'200.140.238.81',1193066707,1,0,1,1,1,1,'','','João, \n\nEste comando,\n[quote:xh28wc2r]\nTWBrowse():lHScroll := .f. \n\nLuiz, Este comando, é da TWBROWSE.PRG By Hernan??? \n[/quote:xh28wc2r]\nSim, é do Hernan, codigo fonte compilado com FWH2.6 + Harbour45;\n\n[quote:xh28wc2r]\ncomo esta as PROPRIEDADES da sua TWBROWSE(ListBox) no teu ARQUIVO DE RECURSOS.[/quote:xh28wc2r]\n CONTROL \"\", 71, \"TWBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 46, 59, 30, 281\n\n[quote:xh28wc2r]\nA LISTBOX que voce definui no EDITOR DE RECURSOS, é mesmo uma TWBROWSE??? Verifique. \n[/quote:xh28wc2r]\nSim!\n\nPra que voce possa entender o problema, tenho a dizer que, ao clicar na celula do listbox, escondo a dialog, oMap30:Hide(), onde estão os listbox, abro uma outra tela, oAgen:Show() que é a tela dos horarios, ao retornar, escondo oAgen:Hide() e torno a mostrar a tela do mapa, oMap30:Show(), neste momento, é que acontece o problema nos listbox, uma especie de scroll involuntario, bagunçando a tela.  É como se os dados dos listbox fossem movidos para cima deixando a parte de baixo vazia, espero ter explicado corretamente.\n\nSaludos, [/code]','',0,'gA==','xh28wc2r',1,0,'',552,0,0),(40049,8578,6,362,0,'200.158.19.131',1193067003,1,0,1,1,1,1,'','','[quote=&quot;Alfredo Arteaga&quot;:2bz77s6q]Descarga: <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/imprimir.zip\">http://www.despachoarteaga.com.mx/imprimir.zip</a><!-- m -->\n\nAhí encontrarás un ejemplo, al final de Printer.Prg va una función que permite eso.[/quote:2bz77s6q]\n\nEXCELENTE EJEMPLO, MAESTRO ALFREDO. CONGRATULATIONS!!\n\nGracias,\n\nRegards, saludos.','',0,'gA==','2bz77s6q',1,0,'',362,0,0),(40050,8569,6,552,0,'200.140.238.81',1193067327,1,0,1,1,1,1,'','','Paco, \n\nO mas incrivel é que, en el listbox que recebeu o clique do mouse, retorna correto, não acontece o problema. \n\nSaludos desde Brasil,','',0,'gA==','2eg2l7zz',1,0,'',552,0,0),(40051,8569,6,362,0,'200.158.19.131',1193067355,1,0,1,1,1,1,'','','Tente fazer, como o Francisco Horta Falou, além disso, mande REFRESCAR A TELA COM oDlg:Refresh(), oDlg:UpDate(), Veja também se a LISTBOX está sendo REFRESCADA.','',0,'gA==','1hgwmefv',1,0,'',362,0,0),(40052,8579,3,171,0,'71.233.232.238',1193070056,1,0,1,1,1,0,'','Link/Cluster Diagrams','Hi Forum,\n\nDoes have anybody experience with Link/Cluster Diagrams?\n\nAny Class or third party software that I can be use along FWH + xHarbour \nin order to preview Link/Cluster Diagrams into my application?\n\nRegards,\n\nGeorge','',0,'gA==','3scj6h3s',1,0,'',171,0,0),(40053,8580,2,1198,0,'201.155.129.182',1193070135,1,0,1,1,1,0,'','Archivo de Impresion','Cuando se hace una impresion,  el archivo temporal que se crea, como se llama?   en que ubicacion esta?   Como lo puedo tomar para enviarlo por correo? ó simplemente hacerle una copia y guardarlo en alguna carpeta. Gracias por su ayuda.','',0,'gA==','1kuhufcl',1,0,'',1198,0,0),(40055,8569,6,552,0,'200.140.238.81',1193070436,1,0,1,1,1,1,'','','Amigos, \n\nSegue link pra baixar o exe e arquivos, ao descompactar, deixar criar a pasta bellewin, e chamar o exe pelo atalho, caso o disco seja diferente de C, trocar a letra no segundo parametro do atalho de C para D.  Escolher a opção agenda de profissionais e teclar F5 pra abrir o mapa.\n\n<!-- m --><a class=\"postlink\" href=\"http://discovirtual.terra.com.br/vd.cgi?+_wi=1193070278-23615-1111719&amp;_we=13\">http://discovirtual.terra.com.br/vd.cgi ... 719&amp;_we=13</a><!-- m -->\n\nSenha de acesso: 40AE7257 \n\nSaludos,','',0,'gA==','1u1v328y',1,0,'',552,0,0),(40056,8539,3,448,0,'82.155.3.80',1193071334,1,0,1,1,1,0,'','','Thanks for your help, now the behaviour it\'s like win16.\n\nI\'ve solved the problem with the code below following the James idea that clicking in every control should give the focus to windchild.\n\naEval(odlg:acontrols,{|octrl|(octrl:bgotfocus:= {||::setfocus() })})\n   nlist1 := len(odlg:acontrols)\n   for n:= 1 to nlist1\n       odlg:acontrols[n]:bgotfocus:= {||::setfocus() }\n       if odlg:acontrols[n]:classname == \"TFOLDER\"\n          nlist2 := len(odlg:acontrols[n]:adialogs)\n          for x := 1 to nlist2\n              nlist3 := len(odlg:acontrols[n]:adialogs[x]:acontrols)\n              for z := 1 to nlist3\n                  odlg:acontrols[n]:adialogs[x]:acontrols[z]:bgotfocus:= {||::setfocus() }\n              next\n          next\n       endif\n   next\n\nAntonio','',0,'','3jqjvqtm',1,0,'',448,0,0),(40057,8540,3,448,0,'82.155.3.80',1193071440,1,0,1,1,1,0,'','','Antonio,\n\nI\'ve tried it but it doesn\'t centers the window. \n\n\nAntonio','',0,'','31ayv0vo',1,0,'',448,0,0),(40058,8574,3,234,0,'75.34.217.174',1193071820,1,0,1,1,1,1,'','','Thank you Antonio','',0,'','343e5gaf',1,0,'',234,0,0),(40059,8569,6,362,0,'200.158.19.131',1193072701,1,0,1,1,1,1,'','','[quote=&quot;laugusto&quot;:3r2agx2q]Amigos, \n\nSegue link pra baixar o exe e arquivos, ao descompactar, deixar criar a pasta bellewin, e chamar o exe pelo atalho, caso o disco seja diferente de C, trocar a letra no segundo parametro do atalho de C para D.  Escolher a opção agenda de profissionais e teclar F5 pra abrir o mapa.\n\n<!-- m --><a class=\"postlink\" href=\"http://discovirtual.terra.com.br/vd.cgi?+_wi=1193070278-23615-1111719&amp;_we=13\">http://discovirtual.terra.com.br/vd.cgi ... 719&amp;_we=13</a><!-- m -->\n\nSenha de acesso: 40AE7257 \n\nSaludos,[/quote:3r2agx2q]\n\n\nFALTA USUARIO E SENHA DE ACESSO LUIZ... DO PROGRAMA, NÃO DO TERRA.','',0,'gA==','3r2agx2q',1,0,'',362,0,0),(40060,8582,6,63,0,'88.6.235.117',1193072906,1,0,1,1,1,0,'','Rendimiento de ADS','Estoy probando ADS (versión de evaluación para 2 usuarios).  Tengo una LAN de tres ordenadores, uno de los cuales contiene los datos del programa. Los demás leen de él.\n\nMi prueba consiste en aplicar un SET FILTER para \"TALLER\"$CLIENTE en una tabla de unos 7000 registros y presentar los resultados en un TxBrowse().  Resultados:\n\nSin activar ADS:\nUn usuario.  Tiempo de acceso: 3 seg (muy bueno)\nDos usuarios - 40 SEGS!!!\n\nActivando ADS:\nUn usuario:  14 segundos\nDos usuarios: 14 segundos\n\nUtilizar ADS mejora la respuesta en el caso de dos usuarios pero todavía me parece bastante lenta, teniendo en cuenta que la tabla no es especialmente grande.  ¿Alguien tiene experiencia con ADS y me puede decir si estos tiempos son mejorables y cómo?\n\nGracias,\nRafael','',0,'gA==','214hwp2q',1,0,'',63,0,0),(40061,8571,3,51,0,'80.122.88.242',1193073169,1,0,1,1,1,0,'','','Will there be a solution?\nRegards,\nOtto','',0,'gA==','dgv23w07',1,0,'',51,0,0),(40062,8570,3,51,0,'80.122.88.242',1193073264,1,0,1,1,1,0,'','','Is it ok to use  preview from an older version as a workaround?\nRegards,\nOtto','',0,'gA==','1w2r7605',1,0,'',51,0,0),(40063,8574,3,234,0,'75.34.217.174',1193073455,1,0,1,1,1,1,'','','Antonio,\n\nI am try to build the search keys using xHarbour. Will the xBase++ corrupt the keys when writing to the database and index files?','',0,'gA==','17tbq7oi',1,0,'',234,0,0),(40064,8583,3,63,0,'88.6.235.117',1193073540,1,0,1,1,1,0,'','ADS performance','I am trying ADS (evaluation version for 2 users).  I am using 3 PCs connected throug a 100 Mb LAN.  One of them holds the data; the other two read from these data.\n\nMy test consists of applying a SET FILTER for \"TALLER\"$CLIENTE on a 7000 register table, and show the results on a TxBrowse().  Here are the results:\n\n\n[quote:1rfgdt3h]\nWithout ADS:\nOne user.  Access time: 3 secs (very good)\nTwo users - 40 SECS!!!\n\nWith ADS:\nOne user:  14 secs.\nTwo users: 14 secs.\n[/quote:1rfgdt3h]\nCertainly, ADS improves the response time whith two simultaneous users but even so, I feel that it is still quite slow, specially considering that the  table is not very big (7000 recs, 4.5 Mb). ¿Anybody has experience with ADS and can comment on these results? ¿Is it possible to achieve better times and how? ¿Perhaps the commercial version offers better performance?\n\nThanks,\nRafael','',0,'gA==','1rfgdt3h',1,0,'',63,0,0),(40065,8569,6,552,0,'200.140.238.81',1193073899,1,0,1,1,1,1,'','','João, \n\nVoce não entendeu, eu disse: execute o programa chamando pelo atalho, pelo atalho, ok?\n\nSaludos,','',0,'gA==','2aq93x1g',1,0,'',552,0,0),(40066,8574,3,2,0,'87.218.146.128',1193076567,1,0,1,1,1,1,'','','Darrell,\n\nI can\'t say it for sure, but its a good practise not to use different RDD engines even if they are supossedly compatibles','',0,'gA==','3mjgvfc9',1,0,'',2,0,0),(40067,8580,2,2,0,'87.218.146.128',1193077737,1,0,1,1,1,1,'','','Ramón,\n\nAl seleccionar imprimir en un fichero, Windows te pregunta el nombre del fichero incluyendo el directorio','',0,'gA==','39ceucry',1,0,'',2,0,0),(40068,8540,3,2,0,'87.218.146.128',1193077911,1,0,1,1,1,1,'','','Antonio,\n\nDo you want to center it in the main screen, or regarding its parent window (or dialog) ?','',0,'gA==','2hljq0xo',1,0,'',2,0,0),(40069,8568,6,207,0,'189.158.97.212',1193078650,1,0,1,1,1,0,'','','Listo compañeros, no se porque pero como el titulo (que es el nombre de la empresa) viene del archivo .ini  y se carga en la variable cEmpresa, se debe convertir con  oEmToAnsi(cEmpresa), caso especial ya que lo tenia solo en una empresa y ahora que me lo solicitaron en otra me sucedió lo comentadoo , lo bueno que ya se solucionó..\n\ngracias por el interes, (vi varios accesos)','',0,'gA==','vta8c1pp',1,0,'',207,0,0),(40070,8580,2,1095,0,'80.35.166.25',1193078721,1,0,1,1,1,0,'','','Hola Ramón:\n\nTambién puedes enviarlo a una impresora PDF guardándolo en la ruta + nombre de archivo que tu quieras y que después podrás adjuntar a tu correo.\n\nSaludos.','',0,'gA==','26h5aj7q',1,0,'',1095,0,0),(40071,8566,2,77,0,'83.60.107.159',1193078985,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2lpkk431]Manolo,\n\nNecesitas una versión más reciente de FW. \n\nPuedes actualizarte desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos, gracias[/quote:2lpkk431]\n\ngracias, ya lo solucione integrando xcommand de redefine image en el fivewin.ch\n\nSaludos.\nManolo.','',0,'gA==','2lpkk431',1,0,'',77,0,0),(40072,8570,3,1158,0,'200.139.130.189',1193079986,1,0,1,1,1,0,'','','Otto, i compile fwh709 with preview 707, works fine.','',0,'gA==','8bv0vvlq',1,0,'',1158,0,0),(40073,8584,6,774,0,'200.72.190.236',1193080576,1,0,1,1,1,1,'','SQL y FWH','Amigos una duda::\n\nno entiendo mucho del tema pero quiciera saber,, fivewin 32 bits. FWH 7.04 + xharb.. que compatibilidad tiene con SQL SERVER,, no digo MySQL,, sino SERVER..\n\ncuales son lo q soporta y lo q aun no soporta  FWH\n\n\nGRACIAS::::\n\nojala me orienten en el tema,, pues quiero empezar a meterme de lleno si es que se puede el cambio,,, de DBF a SQL:::','',0,'gA==','2qmjry6s',1,0,'',774,0,0),(40075,8576,3,35,0,'167.7.140.254',1193081014,1,0,1,1,1,0,'','','Ricardo\n\nI have been looking for a good resource editor in 32 bit as well as a project manager .. any chance you can translate the program into English ??  I did not see a configuration for language ??\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','5dpil3k4',1,0,'',35,0,0),(40076,8570,3,51,0,'80.122.88.242',1193081352,1,0,1,1,1,0,'','','Thank you. It works with an older preview.\nRegards,\nOtto','',0,'gA==','py1b0p7n',1,0,'',51,0,0),(40077,8585,6,221,0,'200.109.27.176',1193082432,1,0,1,1,1,1,'','en tmysql, update no sirve, le ha pasado a alguien mas','cuando trato de hacer update sencillamente no hace nada, ni error ni nada, pero si le pongo getblankron y append si lo agrega sin problemas, que podrias ser\n\naqui el codigo\n\n    WITH OBJECT oQuery2\n      :GetRow( )             // para agregar getblankrow\n      :hacer    := fixed    // campo, valor nuevo, viene de atras\n      if !:update()           // ignoro porque pero no sirve update ni save, solo append, tanto directo como por oRow\n        Alert(:Error())\n      endif\n    end\n\n\ngracias','',0,'gA==','1cpye0dc',1,0,'',221,0,0),(40078,8584,6,221,0,'200.109.27.176',1193082512,1,0,1,1,1,1,'','','estimado amigo, jeje, por ahi comence algo para ti pero no lo he podido terminar, estamos pendiente','',0,'gA==','1jlhkzmg',1,0,'',221,0,0),(40079,8582,6,36,0,'164.77.81.210',1193084049,1,0,1,1,1,1,'','','Hola Rafael\n\nYo utilizo de esta manera los filtros\n\n[code:33yjtnb7]cFiltro &#58;= \'taller$ &quot;\'+Cliente + \'&quot;\'\n//siendo cliente un variable\n//o sea deberia quedar asi taller $ &quot;pedro&quot;\n\nAdsSetAof&#40; cFiltro &#41;\n[/code:33yjtnb7]\n\npara sacar filtro\n\n[code:33yjtnb7]AdsClearAof&#40;&#41;[/code:33yjtnb7]\n\nEspero que te sirva','',0,'AIA=','33yjtnb7',1,0,'',36,0,0),(40080,8584,6,774,0,'200.72.190.236',1193084631,1,0,1,1,1,1,'','','Gracias Amigaso;;; espero con ganas que lleguen esos ejemplos de aplicacion :: \n\nun eterno agradecido::\n\nCLAUDIO (A&amp;C)','',0,'AIA=','22hu2ars',1,0,'',774,0,0),(40081,8582,6,63,0,'88.6.235.117',1193085043,1,0,1,1,1,0,'','','Patricio: Muchas gracias por su comentario.  Yo utilizo una sintaxis similar\n(por cierto, en mi ejemplo  \"TALLER\"$CLIENTE prenetnde filtrar todos los clientes como \"TALLERES LOPEZ\", \"GRANDES TALLERES XXX\", etc; \"Taller\" el el String a buscar; CLIENTES es el campo; pero es un detalle sin importancia)\n\nMi preocupación es que el filtro con ADS resulta mucho más lento de lo que yo suponía.  Yo esperaba una respuesta en menos de un segundo y se toma casi 15!.  A tí también te responde tan lentamente? Puede ser porque yo estoy utilizando la versión de demo?  O hay algún ajuste que he olvidado?\n\nRafael','',0,'AIA=','349xmacu',1,0,'',63,0,0),(40082,8575,6,348,0,'201.240.95.50',1193085852,1,0,1,1,1,0,'','','Holas Amigos\n\nSolo para comentar que al bajar el archivo de esta herramienta\nme salio un aviso de Virus \n\ntomen sus precauciones\n\nSaludos y buen dia\n\nLubin\n[url=http&#58;//img220&#46;imageshack&#46;us/my&#46;php?image=vichofilepd7&#46;png:3g635utk][img:3g635utk]http&#58;//img220&#46;imageshack&#46;us/img220/6311/vichofilepd7&#46;th&#46;png[/img:3g635utk][/url:3g635utk]\n\n[quote=&quot;Antonio Linares&quot;:3g635utk]Ricardo,\n\nEs interesante. Gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3g635utk]','',0,'mA==','3g635utk',1,0,'',348,0,0),(40083,8514,6,121,0,'189.138.160.193',1193090037,1,0,1,1,1,1,'','','SALUDOS, QUISIERA PREGUNTARLE AL SR. ALFREDO ARTEAGA\nQUE UTILIZO PARA LA CONVERSION A SQL:\n\nADORDD ?\nMYSQL ?\n\nSALUDOS Y FELICIDADES','',0,'mA==','vg92n1uq',1,0,'',121,0,0),(40084,8586,3,51,0,'80.122.88.242',1193090196,1,0,1,1,1,0,'','How to override  a method in Fivewin','To all,\nHow could you override a method in FW?\nI would like to disable VK_LEFT and VK_RIGHT and to use this keys to navigate between the different tabs of a folder.\nThanks in advance,\nOtto\n\n\n\nMETHOD KeyDown( nKey, nFlags ) CLASS TWBrowse\n\n   do case\n      case nKey == VK_UP\n           ::GoUp()\n\n      case nKey == VK_DOWN\n           ::GoDown()\n\n      case nKey == VK_LEFT\n           ::GoLeft()\n\n      case nKey == VK_RIGHT\n           ::GoRight()\n\n      case nKey == VK_HOME\n           ::GoTop()\n\n      case nKey == VK_END\n           ::GoBottom()\n\n      case nKey == VK_PRIOR\n           if GetKeyState( VK_CONTROL )\n              ::GoTop()\n           else\n              ::PageUp()\n           endif\n\n      case nKey == VK_NEXT\n           if GetKeyState( VK_CONTROL )\n              ::GoBottom()\n           else\n              ::PageDown()\n           endif\n\n      otherwise\n           return Super:KeyDown( nKey, nFlags )\n   endcase\n\nreturn 0','',0,'mA==','d3pm7e1i',1,0,'',51,0,0),(40085,8576,3,1200,0,'201.48.242.33',1193091884,1,0,1,1,1,0,'','','Mr Lipkin,\n\nWe are working on the translation into English and Spanish.\n\nRicardo','',0,'mA==','2o2lwjxg',1,0,'',1200,0,0),(40086,8575,6,1200,0,'201.48.242.33',1193092518,1,0,1,1,1,0,'','','Lubin,\n\nQual anti-virus está usando?\n\nEstou desarrolando a VRMM há mas de 2 anos.\nA comunidade FIVEWIN no Brasil esta usando esta ferramenta a 1 ano e meio e não há assim como nunca houve nenhum relato parecido.\n\n\nSaludos,\n\nRicardo Marques\n\nVRMM-Visual Fivewin\nCidade: Araguari\nEstado: Minas Gerais\nPais: Brasil\nFone: (34)8405-9689\ne-mail:\n<!-- e --><a href=\"mailto:ricardo.m.marques@caixa.gov.br\">ricardo.m.marques@caixa.gov.br</a><!-- e -->\n<!-- e --><a href=\"mailto:ricardomouramarques@hotmail.com\">ricardomouramarques@hotmail.com</a><!-- e -->','',0,'mA==','2bfr3ey9',1,0,'',1200,0,0),(40087,8587,6,1178,0,'200.24.127.11',1193094108,1,0,1,1,1,0,'','Como definir el tamaño del papel y Oridentaciion al REPORTE','Como se Define el tipo de papel que voy a Utilizar si es Carta o Oficio.\nLa Orientacion si es Horizontal o Vertical , y direccionarlo a una impresora especifica en este caso tengo una red y son varias impresoras.','',0,'mA==','3igh75on',1,0,'',1178,0,0),(40088,8586,3,103,0,'189.43.121.190',1193095793,1,0,1,1,1,1,'','','Hi Otto,\n\n   If you are using xHarbour, you can use this, in your main prg:\n\nOVERRIDE METHOD &lt;Method&gt; IN CLASS &lt;Class&gt; WITH &lt;YourMethod&gt;\n\nIn my case, I use this way:\n\nOVERRIDE METHOD SayBitmap IN CLASS TREPORT WITH KSayBitMap\n\nHope this helps,\n\nBest regards,','',0,'mA==','qrkgh5h2',1,0,'',103,0,0),(40089,8580,2,1198,0,'201.155.129.182',1193098962,1,0,1,1,1,0,'','impresion','Creo que no me explique bien, ya hago el procedimiento de impresion, veo mi documento con Preview, y lo imprimo o no segun sea el caso. Aqui es donde no se como hacerle para tomar esa impresion ( es un archivo metafile ????) y mandarla a un archivo , para poder posteriormente enviarla por correo como un archivo adjunto.  Gracias por contestar.','',0,'mA==','mgxn8fcu',1,0,'',1198,0,0),(40090,8587,6,854,0,'189.131.35.246',1193100696,1,0,1,1,1,0,'','','Mas Informacion\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=5795&amp;highlight=papel\">http://fivetechsoft.com/forums/viewtopi ... ight=papel</a><!-- m -->','',0,'mA==','vx3qnobz',1,0,'',854,0,0),(40091,8577,3,69,0,'74.13.44.69',1193103536,1,0,1,1,1,1,'','','Antonio,\n\nThe code you gave me will only return a 0 (zero).\n\nI asked for a C Language sample and this is what they sent me:\n\n[code:nyaj8k2k]\n\n=======================\n\ntypedef VOID &#40;CALLBACK* LPFNDLLACC1&#41;&#40;LONG&#91;127&#93;&#41;;\n\n&#46;&#46;&#46;&#46;&#46;\n\nHINSTANCE hDLL;              // Handle to DLL\nLPFNDLLACC1 lpfnDllFunc1;    // Function pointer\nLONG a&#91;128&#93;;\nINT i;\n\n&#46;&#46;&#46;&#46;&#46;\n\nhDLL = LoadLibrary&#40;&quot;TestLib12&#46;dll&quot;&#41;;\nif &#40;hDLL != NULL&#41;\n&#123;\n        for &#40;i = 0; i &lt; 128; i++&#41;\n                a&#91;i&#93; = i;\n        lpfnDllFunc1 = &#40;LPFNDLLACC1&#41;GetProcAddress&#40;hDLL, &quot;TestFunc1&quot;&#41;;\n        if &#40;!lpfnDllFunc1&#41;\n        &#123;\n                printf&#40;&quot;Function not found!\\n&quot;&#41;;\n        &#125;\n        else\n        &#123;\n                // call the function\n                lpfnDllFunc1&#40;a&#41;;\n                printf&#40;&quot;Result = %u\\n&quot;, a&#91;99&#93;&#41;;\n        &#125;\n        FreeLibrary&#40;hDLL&#41;;\n&#125;\n\n=======================\n\n[/code:nyaj8k2k]\n\n\n\nThanks,\nJeff','',0,'AIA=','nyaj8k2k',1,0,'',69,0,0),(40092,8520,1,173,0,'203.113.38.10',1193116001,1,0,1,1,1,0,'','Dear Antonio','Dear Antonio,\n\nI\'m very sorry for not convenience with sending mail to me. Can you send it again at <!-- e --><a href=\"mailto:tesjj@mahidol.ac.th\">tesjj@mahidol.ac.th</a><!-- e --> ? \n\nBest regard,\n\nPeter','',0,'AIA=','2l05ppmk',1,0,'',173,0,0),(40093,8586,3,51,0,'80.122.88.242',1193119799,1,0,1,1,1,0,'','','Hello Kleyber,\nthank you for your help. Do you think this should also work with harbour?\nRegards,\nOtto','',0,'AIA=','3nbhwwud',1,0,'',51,0,0),(40094,8588,6,413,0,'195.55.176.112',1193122927,1,0,1,1,1,1,'','STRZERO','Que puede estar ocurriendo para que me falle, precisamente la funcion STRZERO, parece como si no la tubiera FWH25.\n[code:3re9n8bw]FUNC CTRComunicados&#40;&#41;\nLOCAL nSelect  &#58;= Select&#40;&#41;,  nOrden   &#58;= IndexOrd&#40;&#41;\n\nSelect&#40;60&#41;\nUSE S&#58;COMUNICA SHARED\nSET INDEX TO S&#58;COFECHAO, S&#58;CONUMOR, S&#58;COFECHOR\n\n  APPEND BLANK\n  IF !NETERR&#40;&#41;\n	REPLACE CNUMOR   WITH SUBSTR&#40;STRZERO&#40;RECNO&#40;&#41;&#41;,-6&#41; &lt;&lt;&lt;&lt;&lt;&lt;Aqui es donde falla&#46;\n	REPLACE CFECHA   WITH CTR-&gt;FECHA\n	REPLACE CCODINT  WITH &quot;SC004&quot;\n     	REPLACE CDESC    WITH alltrim&#40;PAP-&gt;ACTIVIDAD&#41; + &quot; OS&#46; Nº &quot;+ CTR-&gt;EXPED+ &quot;, DIST&#46;&#58; &quot; +alltrim&#40;CTR-&gt;DISTINTIVO&#41;+&quot;, DURACION&#58; &quot;+&#40;CTR-&gt;HORAS&#41;+&quot;&#46; DENUNCIAS&#58; TRAF&#46;&#58; &quot; +STR&#40;CTR-&gt;DENTRAF&#41;+ &quot;, OOMM&#46;&#58; &quot;+ STR&#40;CTR-&gt;DENCOR&#41;+&quot;, INDENTIF&#46;&#58;&quot;+ STR&#40;CTR-&gt;IDENTIF&#41;+ &quot;, VEHICULOS&#58; &quot; + STR&#40;CTR-&gt;VEHICULOS&#41;\n    	REPLACE CHORA    WITH VAL&#40;SUBSTR&#40;CTR-&gt;HINI,1,2&#41;&#41;\n    	REPLACE CMINU    WITH VAL&#40;SUBSTR&#40;CTR-&gt;HINI,4,2&#41;&#41;\n     	REPLACE CZONA    WITH VAL&#40;PAP-&gt;ZONA&#41;\n    	REPLACE CSECT    WITH PAP-&gt;SECTOR\n    	REPLACE CCALLE   WITH VAL&#40;PAP-&gt;CALLE&#41;\n	REPLACE CNUMER   WITH &quot;&quot;\n    	REPLACE CTEXTO   WITH &quot;&quot;\n    	REPLACE CLISTA   WITH 0\n    	REPLACE CUSUARIO WITH x_user\n\n		dBCommit&#40;&#41;\n  ENDIF\n\ndBClosearea&#40;&#41;\ndBselectar&#40;nSelect&#41;\ndBsetorder&#40;nOrden&#41;\n\nRETURN  &#46;T&#46;\n[/code:3re9n8bw]\n\nSi en vez de strzero pongo solo str no me da error, pero claro el indice queda feo.\nSi pongo ? STRZERO(Recno()) Falla, pero si pongo ? STR(RECNO()) no falla.\n\nDebo de enlazar algun módulo especifico para que me cargue esa función.','',0,'AIA=','3re9n8bw',1,0,'',413,0,0),(40095,8588,6,2,0,'87.218.146.128',1193124049,1,0,1,1,1,1,'','','Andrés,\n\nLa función StrZero() no es de FWH, sino de Harbour/xHarbour.\n\nPrueba a hacer: MsgInfo( StrZero( 123 ) )','',0,'AIA=','2h40s8zm',1,0,'',2,0,0),(40096,8580,2,2,0,'87.218.146.128',1193124190,1,0,1,1,1,1,'','','Ramón,\n\nEn oPrinter:aMeta tienes un array con los nombres de todos los archivos WMF que se usan en el preview','',0,'AIA=','57a1v2cw',1,0,'',2,0,0),(40097,8577,3,2,0,'87.218.146.128',1193124406,1,0,1,1,1,1,'','','Jeff,\n\nPlease change this line:\n\nDLL FUNCTION TESTFUNC1( pValues AS LPSTR ) AS BOOL PASCAL FROM \"TestFunc1\" LIB \"TestLib12.dll\"','',0,'AIA=','lqkteo9t',1,0,'',2,0,0),(40098,8520,1,2,0,'87.218.146.128',1193124769,1,0,1,1,1,1,'','','Peter,\n\nAlready sent','',0,'AIA=','jb2mrju8',1,0,'',2,0,0),(40099,8588,6,413,0,'195.55.176.112',1193125287,1,0,1,1,1,1,'','','Antonio se puede variar las condiciones de STRZERO desde el compilador, te lo digo pues ahora esto no me funciona (antes sí):\n\nSUBSTR(STRZERO(RECNO()),-6)\n\nPero encambio si incluyo un segundo parametro en el strzero si funciona:\n\nSTRZERO(RECNO(), 6)\n\nTodo el programa me falla por esta funcion, a raiz de una rotura del disco duro, en el que he tenido que volver a montarlo todo de nuevo. La primera instruccion es logica que funcione bien, primero añado ceros a la izquierda del numero hasta completar la longitud total del campo y luego hago el substr de lo que a mi me interesa. \n\nComo el STRZERO no esta documentada ni en clipper, yo no sabia que se podia incluir el segundo parametro.\n\nNOTA: Aunque pensandolo bien mas vale hacer la segunda instruccion que no la primera.','',0,'AIA=','1cphq3c5',1,1193126578,'',413,1,0),(40100,8496,3,2,0,'87.218.146.128',1193126136,1,0,1,1,1,1,'','','Style 2007 is already optional <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nMENU oMenu 2007\n...\nENDMENU','',0,'AIA=','13jz9byq',1,0,'',2,0,0),(40101,8573,20,1009,0,'82.187.221.169',1193126350,1,0,1,1,1,0,'','','funziona bene con listbox.\ncon column browse:\n@ 0, 5 COLUMN BROWSE oBrw OF oDlg SIZE 360, 195 PIXEL ALIAS \"test\"\n\noBrw:AddColumn(TCColumn():New(, {|| FIELD-&gt;first}...\noBrw:AddColumn(TCColumn():New(, {|| FIELD-&gt;last}...\n\noBrw:AddColumn(TCColumn():New(, {|| IF(FIELD-&gt;married, hBmp1, hBmp2)},, ,,, 10, .F., .t.,,,, .f., ))\n\nal posto dell\'icona mi visualizza l\'handle del file, che cambia cliccando.\ncome faccio a far comparire l\'icona?\n\nciao, marzio','',0,'AIA=','26rr8bq3',1,0,'',1009,0,0),(40102,8588,6,2,0,'87.218.146.128',1193126457,1,0,1,1,1,1,'','','Andrés,\n\nHas actualizado la versión que usas de xHarbour ? \n\nDe ser así podrías reemplazar en RTL.LIB strzero.obj por el antiguo que usabas','',0,'AIA=','2gn8nfns',1,0,'',2,0,0),(40103,8496,3,868,0,'219.64.121.60',1193126476,1,0,1,1,1,1,'','','Thanks Mr Antonio\n\nI am eagerly waiting for this. Hope you will provide me the new library.','',0,'AIA=','1xilxm70',1,0,'',868,0,0),(40104,8497,6,2,0,'87.218.146.128',1193126555,1,0,1,1,1,1,'','','La apariencia 2007 en los menus ya es opcional:\n\nMENU oMenu 2007\n...\nENDMENU','',0,'AIA=','18e1te2z',1,0,'',2,0,0),(40105,8496,3,2,0,'87.218.146.128',1193126657,1,0,1,1,1,1,'','','Already sent <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','4x99g1a8',1,0,'',2,0,0),(40106,8588,6,413,0,'195.55.176.112',1193126884,1,0,1,1,1,1,'','','Utilizo FWH25 + Harbour25, y no he recompilado nada. Solo he vuelto ha montar el link de compilacion con AJMAKE. Ahora funciona bien pero solo incluyendo el segundo parametro, por eso era la pregunta si se podia cambiar la actuacion de esa funcion desde compilación.\n\nDe todas formas ahora variando la funcion y poniendo en segundo parametro funciona bien y como seguro que no encuentro la razon porque me ha pasado esto, lo voy a dejar de momento.\n\nGracias.','',0,'AIA=','39c3eacf',1,0,'',413,0,0),(40107,8588,6,2,0,'87.218.146.128',1193128095,1,0,1,1,1,1,'','','Andrés,\n\nBueno, lo importante es que te esté funcionando <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLas funciones de la RTL (run time library) de Harbour no se pueden cambiar en tiempo de ejecución (bueno, existen algunas \"maneras\"), solo en tiempo de enlazado, habiendo modificado la librería previamente.','',0,'AIA=','3cetrfe2',1,0,'',2,0,0),(40108,8394,7,2,0,'87.218.146.128',1193128898,1,0,1,1,1,1,'','','Arturo,\n\nAvísame cuando vayas a necesitar las funciones de IRDA y nos ponemos a ayudarte con ellas,','',0,'AIA=','224f6fjr',1,0,'',2,0,0),(40109,8496,3,868,0,'210.212.216.67',1193129175,1,0,1,1,1,1,'','','Mr Antonio\n\nI am getting unresolved external MENUDRAW2007.\nHelp me please.','',0,'AIA=','19iq13oo',1,0,'',868,0,0),(40110,8540,3,448,0,'82.155.3.80',1193131074,1,0,1,1,1,0,'','','Antonio,\n\nI want to center it regarding its parent window.\n\nRegards\nAntonio','',0,'AIA=','3aaptnpy',1,0,'',448,0,0),(40111,8496,3,2,0,'87.218.146.128',1193131520,1,0,1,1,1,1,'','','Please check that you are using the right libraries.\n\nHere it is working ok with both Harbour/xHarbour','',0,'AIA=','2vj0m27z',1,0,'',2,0,0),(40112,8540,3,2,0,'87.218.146.128',1193131614,1,0,1,1,1,1,'','','Hazlo así:\n\noWnd:Center( oWndParent )','',0,'AIA=','16eolukr',1,0,'',2,0,0),(40113,8496,3,868,0,'210.212.216.67',1193131787,1,0,1,1,1,1,'','','Regrets\nMy mistake\nEverything is working ok here too.\nThanks','',0,'AIA=','fpiuoo39',1,0,'',868,0,0),(40114,8496,3,2,0,'87.218.146.128',1193132327,1,0,1,1,1,1,'','','ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','60z0qpq0',1,0,'',2,0,0),(40115,8540,3,448,0,'82.155.3.80',1193132728,1,0,1,1,1,0,'','','Antonio,\n\nIt doesn\'t work result it\'s the same, not centered.\n\nRegards','',0,'AIA=','1d16h1mt',1,0,'',448,0,0),(40116,8539,3,448,0,'82.155.3.80',1193132855,1,0,1,1,1,0,'','','Antonio,\n\nI\'ve forgot that some of controls sometimes have defined elsewere on the code their own bgotfocus blocks. How can I join both code blocks into one ?\n\nRegards Antonio','',0,'AIA=','39y0wp0e',1,0,'',448,0,0),(40117,8540,3,2,0,'87.218.146.128',1193133114,1,0,1,1,1,1,'','','Antonio,\n\nPlease try this test:\n[code:a970ko0j]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Center test&quot;\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT BuildDlg&#40; oWnd &#41;\n\nreturn nil\n\nfunction BuildDlg&#40; oWnd &#41;\n\n   local oDlg\n\n   DEFINE DIALOG oDlg TITLE &quot;Test&quot;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT oDlg&#58;Center&#40; oWnd &#41;\n\nreturn nil\n[/code:a970ko0j]\n[url=http&#58;//imageshack&#46;us:a970ko0j][img:a970ko0j]http&#58;//img516&#46;imageshack&#46;us/img516/407/centerdg5&#46;png[/img:a970ko0j][/url:a970ko0j]','',0,'GIA=','a970ko0j',1,0,'',2,0,0),(40118,8539,3,2,0,'87.218.146.128',1193133327,1,0,1,1,1,1,'','','bOldGotFocus = oControl:bGotFocus\n\noControl:bGotFocus = { || Eval( bOldGotFocus ), ... new code ... }','',0,'GIA=','oz2361hd',1,0,'',2,0,0),(40119,8496,3,1158,0,'200.233.185.181',1193135456,1,0,1,1,1,0,'','','Antonio, can you send to me too? thanks','',0,'GIA=','2ez04m6h',1,0,'',1158,0,0),(40120,6332,6,456,0,'217.127.39.57',1193135719,1,0,1,1,1,1,'','','He estado probando List &amp; Label, y aunque al principio me ha costado un poco cojerle el hilo, despues de perder algo de tiempo, ya tengo un pequeño ejemplo funcional. \nHe colgado en mi blog una entrada, explicando un poco su funcionamiento, y el código fuente de un secillo informe. Espero os guste. \n[url:16q780g8]http&#58;//bielsys&#46;blogspot&#46;com/2007/10/usando-list-label-12&#46;html[/url:16q780g8]','',0,'EA==','16q780g8',1,0,'',456,0,0),(40121,8497,6,519,0,'80.39.179.145',1193135870,1,0,1,1,1,0,'','','Hola\n  \n  Antonio , en windows 98 los menus no van bien, cuando haces click en los menus y te mueves horizontalmente se van ocultando.\n\n\n  un saludo','',0,'EA==','3grhefm8',1,0,'',519,0,0),(40122,6332,6,53,0,'189.139.10.129',1193136534,1,0,1,1,1,1,'','','Biel:\n\nExcelente aporte de L&amp;L, se que eres de los pocos gurus en ADO, te importaría escribir algunas entradas en tu BLOG sobre \"ADO para principiantes\" ?, creo que muchos del foro te lo vamos a agradecer.\n\nSaludos','',0,'EA==','2in9djte',1,0,'',53,0,0),(40123,8496,3,2,0,'87.218.146.128',1193137029,1,0,1,1,1,1,'','','Please send me an email to request the files, thanks','',0,'EA==','x2a3uyjs',1,0,'',2,0,0),(40124,8497,6,2,0,'87.218.146.128',1193137118,1,0,1,1,1,1,'','','Gabriel,\n\nCuantos colores usas en Windows 98 ? 32 bits ? 16 bits ? 256 colores ?','',0,'EA==','1yr9gsr9',1,0,'',2,0,0),(40125,8573,20,6,0,'87.3.228.175',1193139882,1,0,1,1,1,1,'','','L\'ottavo parametro di TCColumn():New() è lBitmap.\n\nEMG','',0,'EA==','1ivj04eb',1,0,'',6,0,0),(40126,8588,6,413,0,'195.55.176.112',1193140655,1,0,1,1,1,1,'','','Gacias Antonio. De esta manera funciona igual y hace menos procesos de maquina.','',0,'EA==','1lvx03aj',1,0,'',413,0,0),(40127,8497,6,519,0,'83.32.110.51',1193141992,1,0,1,1,1,0,'','','Antonio, la pantalla la tengo configurada en a 16 bits , otro cosilla que me esta pasando con la nueva versión es que cada vez que ejecuto el exe me lanza tambien la ventana  de msdos.\n\n   un saludo','',0,'EA==','30n8neto',1,0,'',519,0,0),(40128,8497,6,2,0,'87.218.146.128',1193142537,1,0,1,1,1,1,'','','Gabriel,\n\nTienes que enlazar GTGUI.lib en vez de GTWIN.lib para que no te salga la ventana de MsDos.\n\nPuedes probar con colores a 32 bits ? gracias!','',0,'EA==','2zhcx0f7',1,0,'',2,0,0),(40129,8588,6,1201,0,'200.90.17.154',1193142571,1,0,1,1,1,0,'','','prueba con STRZERO(PAB-&gt;(RECNO()))','',0,'EA==','s33kg5ce',1,0,'',1201,0,0),(40130,8588,6,1201,0,'200.90.17.154',1193142803,1,0,1,1,1,0,'','','PERDON: PRUEBAB CON STRZERO(COMUNICA-&gt;(RECNO()))','',0,'EA==','1j83amh7',1,0,'',1201,0,0),(40131,8589,6,36,0,'164.77.81.210',1193143141,1,0,1,1,1,1,'','IMAGEN JPG','Estimados \n\nEs posible cargar una imagen JPG y luego grabar con diferente dimension?\n\nLo que quiero es cargar una imagen que no sea mayor de 800X600 y si es dejarlo en 800X600\n\ndesde ya muchas gracias','',0,'EA==','jfh5e6qa',1,0,'',36,0,0),(40132,8588,6,319,0,'201.52.234.57',1193144022,1,0,1,1,1,0,'','','voicê precisa informar o tamanho para a strzero(nro, tamanho), ou então use simplesmente o str()','',0,'EA==','1ipqijyi',1,0,'',319,0,0),(40133,8582,6,316,0,'213.97.245.163',1193145607,1,0,1,1,1,0,'','','Rafael,\n\n¿podrías postear el trozo de código que usas para hacer las pruebas? Es para ver si está correctamente parametrizado.\n\nUn punto a destacar es que una vez que consumió los 15 segundos iniciales, el resto del tiempo es (debería ser) instantaneo, ya que ya ha creado el filtro como mapa en el servidor, lo que no ocurre con versiones no cliente servidor.\n\nUn saludo,\n\nCarlos','',0,'EA==','u4bogfcx',1,0,'',316,0,0),(40134,6332,6,1146,0,'87.223.177.191',1193146726,1,0,1,1,1,0,'','','Yo también probaría Fast Report, que es mucho más barato y ocupa muchísimo menos.\n\nUn demo en <!-- m --><a class=\"postlink\" href=\"http://www.canudas.com/xbase/FastDemo.rar\">http://www.canudas.com/xbase/FastDemo.rar</a><!-- m -->\n\nSalu2','',0,'EA==','1ku2kteb',1,0,'',1146,0,0),(40135,8394,7,1135,0,'189.136.52.12',1193149633,1,0,1,1,1,1,'','','Gracias Antonio. El inicio sera enviar alguna cadena exitosamente por COM3: De hecho ayer comence a probar las funciones y clases documentadas de comunicacion serial, aunque no pude obtener respuesta de la impresora. Hoy voy a probar el codigo de respuesta que le envio Salvador Gallardo a Joop Hermsen desde este foro. Estare en contacto.\n\n[quote=&quot;Antonio Linares&quot;:39q7kzkh]Arturo,\n\nAvísame cuando vayas a necesitar las funciones de IRDA y nos ponemos a ayudarte con ellas,[/quote:39q7kzkh]','',0,'gA==','39q7kzkh',1,0,'',1135,0,0),(40136,8590,2,146,0,'190.30.40.104',1193150278,1,0,1,1,1,0,'','control de errores para impresoras con clase tdosprn','Hola:\nEstoy usando la clase TDOSPRN para las salidas por impresora, trabajo el sistema por terminal server con un operativo WINDOWS 2003 SERVER y las impresoras se encuentran localmente en otros equipos con windows xp y windows 98. Trabajo la impresora de la siguiente forma:\n\noPrn := TDosPrn():New( \\\\NomPc\\NomImpr )\n\nMe sucede que si la PC esta apagada se me va del sistema. Compilo con  CLIPPER 5.2 y FW 2.7  Tengo dentro del prg usando la función ISPRINTER() de clipper. \nSi alguien puede darme una idea de como usar control de errores en esta situación mil gracias.\n\nLeonor\n<!-- e --><a href=\"mailto:lgonzalez@evosistemas.com.ar\">lgonzalez@evosistemas.com.ar</a><!-- e -->','',0,'gA==','16cxt78n',1,0,'',146,0,0),(40137,8503,3,904,0,'198.54.202.226',1193150646,1,0,1,1,1,1,'','','Have you got a working demo with FWH?','',0,'gA==','14gsptld',1,0,'',904,0,0),(40138,7202,7,1135,0,'189.136.52.12',1193151122,1,0,1,1,1,1,'','Re: Guia de Comunicaciones en fwppc, Preambulo.','Luis: Yo soy relativamente nuevo en FiveWin, (relativamente porque utilicé mucho CA-Clipper) y he retomado esta ruta desde hace muy poco tiempo con FWPPC. Apenas tengo mi primera aplicación a nivel interfaz de usuario, me falta la parte de comunicaciones. \n\nEfectivamente desde la primera vez que exploré estos foros me fue de gran utilidad tu encuesta-exposición de comuniciones.\n\nYo pretendo usar FTP, ya sea via GPRS para las comunicaciones remotas, y vía WiFi para las comunicaciones locales.\n\nSaludos a todos.','',0,'gA==','3aemqg1d',1,0,'',1135,0,0),(40139,5674,3,904,0,'196.25.255.210',1193151231,1,0,1,1,1,1,'','','I found FAST REPORT which I thought may be interesting to this thread.\n\nTheir site is : <!-- m --><a class=\"postlink\" href=\"http://fast-report.com/en/\">http://fast-report.com/en/</a><!-- m -->\n\nThey have a working XBase++ Demo, so I\'m sure it can be used with FWH. See: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->\n\nThanks to Angel Canudas, you can see a working demo at: <!-- m --><a class=\"postlink\" href=\"http://www.canudas.com/xbase\">http://www.canudas.com/xbase</a><!-- m --> \n\nThere is a FREE Report Generator as well.\n\n<!-- m --><a class=\"postlink\" href=\"http://fast-report.com/en/products/free-report-generator-for-delphi.html\">http://fast-report.com/en/products/free ... elphi.html</a><!-- m -->\n\nAnother topic in this forum: <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8503&amp;highlight=fast+report\">http://fivetechsoft.com/forums/viewtopi ... ast+report</a><!-- m -->','',0,'gA==','47dkvpou',1,0,'',904,0,0),(40140,8539,3,448,0,'81.84.171.90',1193151331,1,0,1,1,1,0,'','','Antonio,\n\nI use this code :\n\n nlist1 := len(odlg:acontrols)\n    for n:= 1 to nlist1\n        bBlock = odlg:acontrols[n]:bgotfocus\n        odlg:acontrols[n]:bgotfocus:= {||::setfocus(),eval(bBlock) }\n        if odlg:acontrols[n]:classname == \"TFOLDER\"\n           nlist2 := len(odlg:acontrols[n]:adialogs)\n           for x := 1 to nlist2\n               nlist3 := len(odlg:acontrols[n]:adialogs[x]:acontrols)\n               for z := 1 to nlist3\n                   bBlock = odlg:acontrols[n]:adialogs[x]:acontrols[z]:bgotfocus\n                   odlg:acontrols[n]:adialogs[x]:acontrols[z]:bgotfocus:= {||::setfocus(),eval(bBlock) }\n               next\n           next\n        endif\n    next\n\nbut I get error :\n\nArgs:\n   argumentos    &lt;nenhuma&gt;\n   descrição     Class: \'NIL\' has no exported method\n   ficheiro      &lt;nenhuma&gt;\n   genCode       13: EG_NOMETHOD\n   operação     EVAL\n   osCode        (Não é erro do sistema operativo)\n   severity      2\n   subCode       1004\n   subSystem     BASE\n   tries         0\n\nRegards\nAntonio','',0,'','3532wzgi',1,0,'',448,0,0),(40141,8206,6,362,0,'200.158.19.125',1193151762,1,0,1,1,1,1,'','','[quote=&quot;MOISES&quot;:2oo1m7i6]A mi el upx me ha dado algun problema y lo he abandonado.[/quote:2oo1m7i6]\n\nCual problema MOISES, reporte. No tengo Problemas.','',0,'gA==','2oo1m7i6',1,0,'',362,0,0),(40142,8575,6,348,0,'201.240.95.50',1193152252,1,0,1,1,1,0,'','','Hola Ricardo\n\nEl Antivirus utilizado es The Hacker Antivirus\nes un software de Peru\n\nmayor informacion en <!-- w --><a class=\"postlink\" href=\"http://www.hacksoft.com.pe\">www.hacksoft.com.pe</a><!-- w -->\n\nSaludos\nLubin\n\n[quote=&quot;ricardomouramarques&quot;:2xopptdy]Lubin,\n\nQual anti-virus está usando?\n\nEstou desarrolando a VRMM há mas de 2 anos.\nA comunidade FIVEWIN no Brasil esta usando esta ferramenta a 1 ano e meio e não há assim como nunca houve nenhum relato parecido.\n\n\nSaludos,\n\nRicardo Marques\n\nVRMM-Visual Fivewin\nCidade: Araguari\nEstado: Minas Gerais\nPais: Brasil\nFone: (34)8405-9689\ne-mail:\n<!-- e --><a href=\"mailto:ricardo.m.marques@caixa.gov.br\">ricardo.m.marques@caixa.gov.br</a><!-- e -->\n<!-- e --><a href=\"mailto:ricardomouramarques@hotmail.com\">ricardomouramarques@hotmail.com</a><!-- e -->[/quote:2xopptdy]','',0,'gA==','2xopptdy',1,0,'',348,0,0),(40143,8582,6,63,0,'88.6.235.117',1193152290,1,0,1,1,1,0,'','','Carlos:\nMe es un poco difícil postear todo el código porque está bastante imbricado en el programa, pero no tiene ningún misterio.  En resumen es así:\n[code:m93n9k65]\n&#46;&#46;&#46;&#46; etc\noBrw &#58;= TcBrowse&#40;&#41;&#58;New&#40;&#46;&#46;&#46;&#41;   // El browse de clientes&#46; Tiene seis columnas&#46;\nRedefine Get   cBuscar Of Self Valid &#58;&#58;Filtrar&#40;cBuscar, oBrw&#41;   // Un campo get para buscar el cliente&#46;  Lo busca al pulsar intro\n&#46;&#46;&#46;&#46; etc\n//--------------------------------------------------------------------\nMethod Filtrar&#40;cBuscar, oBrw&#41;  // Presentar todos los clientes que CONTENGAN el string cBuscar y refrescar el Browse oBrw \nSelect CLIENTES\ncFiltro &#58;= &quot;\'&quot;+Alltrim&#40;Upper&#40;cBuscar&#41;&#41; + &quot;\' $ Upper&#40;NOMBRE&#41;&quot;\nbFiltro &#58;= cToBlock&#40;cFiltro&#41;\nDbSetFilter&#40;bFiltro, cFiltro&#41;\nCLIENTES-&gt;&#40;dbGoTop&#40;&#41;&#41;\noBrw&#58;GoTop&#40;&#41;\noBrw&#58;Refresh&#40;&#41;\nReturn &#46;T&#46;\n[/code:m93n9k65]\n\nNo utilizo Data Dictionary ni ninguna otra característica avanzada de ADS. Tan solo lo he instalado en el PC que tiene los datos y he copiado las tres DLLs a las carpetas de programa en todos los ordenadores.\n\nEfectivamente, al pulsar Intro el primer registro filtrado aparece inmediatamente en la primera línea del Browse.  El resto de líneas se mantienen como antes, o sea, sin filtrar.  Al cabo de los 15 segundos, se refresca el Browse:  Desaparecen de golpe las lineas no relevantes y  aparecen de golpe los -por ejemplo- cuatro o cinco registros restantes que sí cumplen la condición de filtro.\n\nAntes de comprar la versión comercial de ADS sólo quiero saber si este comportamiento es normal para la versión de prueba y la de pago es más rápida o si es que estoy haciendo algo mal.\n\nGracias por vuestro tiempo\n\nRafael','',0,'AIA=','m93n9k65',1,0,'',63,0,0),(40144,8503,3,1146,0,'87.223.177.191',1193152623,1,0,1,1,1,0,'','','No, I am stuck with dll calls.','',0,'AIA=','1wbp1hyx',1,0,'',1146,0,0),(40145,8206,6,1146,0,'87.223.177.191',1193152730,1,0,1,1,1,0,'','','Pues que en algunos PCS el ejecutable no se carga. Le das y no muestra nada de nada','',0,'AIA=','2nzqio5t',1,0,'',1146,0,0),(40146,5466,3,226,0,'201.12.146.22',1193153277,1,0,1,1,1,1,'','Dialog com scroll...','Rochinha, boa tarde\n\nbaixei estes fontes relativos a Scrollbar na Dialog e na TPage más pra mim não funcionaram...\n\nvc sabe se tem alguma restrição quanto a versão do FWH .. estou utilizando a 2.8 / xHarbour\n\n[]s','',0,'','dudmd4ix',1,0,'',226,0,0),(40147,8589,6,221,0,'200.109.27.176',1193153419,1,0,1,1,1,1,'','','no te quiero desanimar pero hace tiempo... pregunte algo similar y todavia estoy esperando la primera respuesta, yo queria cargar una imagen y en tiempo de ejecucion cambiarle el tamaño, creo similar a lo que tu quieres, bueno en fin como comprobaras si preguntas algo mas complicado, osea un reto a un guru quizas te respondan del resto no ayudan mucho, lo siento, yo lo resolvi cambiando el tamaña por fuera y a manopla, no me quedo otra','',0,'','2hptvnov',1,0,'',221,0,0),(40148,8206,6,362,0,'200.158.19.125',1193153492,1,0,1,1,1,1,'','','[quote=&quot;MOISES&quot;:3in7audo]Pues que en algunos PCS el ejecutable no se carga. Le das y no muestra nada de nada[/quote:3in7audo]\n\nMOISES, cual es tu VERSION?  1.93 beta?\n\nComo usted haces para compilar? Yo hago asi:\n\nUPX.EXE -9 MIEXE.EXE\n\nFunciona tanto en Windows 98 bién como en Windows XP.','',0,'gA==','3in7audo',1,0,'',362,0,0),(40149,8206,6,362,0,'200.158.19.125',1193153571,1,0,1,1,1,1,'','','[quote=&quot;MOISES&quot;:2zqobdj9]Pues que en algunos PCS el ejecutable no se carga. Le das y no muestra nada de nada[/quote:2zqobdj9]\n\nMOISES, SI FUNCIONA EN UNA COMPUTADORA EN OTRAS NO, PUEDE SER VIRUS.','',0,'gA==','2zqobdj9',1,0,'',362,0,0),(40150,8497,6,519,0,'88.19.38.22',1193154974,1,0,1,1,1,0,'','','Antonio, con colores de 32 bits se muestra bien, pero lo ideal es que se vea bien  con colores de 16 bits.\n\n\n  un saludo','',0,'gA==','210pl2c1',1,0,'',519,0,0),(40151,8574,3,234,0,'75.34.217.174',1193155276,1,0,1,1,1,1,'','','Antonio,\n\nI added the following code to the xBase++ dbesys after the \nDbeBuild( \'FOXCDX\', \'FOXDBE\', \'CDXDBE\' ) function\n\nDbeInfo( COMPONENT_DATA, FOXDBE_CREATE_2X, .T. )\n\nDbeInfo( COMPONENT_DATA, FOXDBE_LOCKMODE, FOXDBE_LOCKMODE_2X )\n\nAnd the application seems to working ok and we have not received any error messages.\n\nRegards,','',0,'gA==','3sw2n4fi',1,0,'',234,0,0),(40152,8591,6,348,0,'201.240.95.50',1193157610,1,0,1,1,1,0,'','El Estado del proyecto AdoRDD','Buenos dias con todos \n\nCon la idea de comenzar a cambiar mis sistemas a Cliente/Servidor usando MySql y hacerlo lo menos traumatico posible por mis limitados conocimientos de MySql  podrian ayudarme a encontrar o disponer de algun ejemplo usando esta libreria AdoRDD  que muestre: \n \n1. Un manteniento de una tabla (Crear registro, editarlo, anularlo o borrarlo)\n2. Una Dialogo con solitud e de codigo de Cliente por ejemplo y obtener su nombre y otros datos. \n3. Un simple reporte de una tabla\n\nSolo una pregunta adicional.. es posible hacer todas las operaciones como hacemos con las Dbfs... ???  esta operativo ??\n\no Existe alguna otra alternativa para Mysql u otro adminstrador de bases de datos. ??\n\n\nMil gracias\n\nLubin\n \n\n\n\nLubin','',0,'gA==','1hadcgnl',1,0,'',348,0,0),(40154,8577,3,69,0,'206.210.100.104',1193159527,1,0,1,1,1,1,'','','Same thing ... Always shows 0 (zero)','',0,'gA==','1kpf5sor',1,0,'',69,0,0),(40155,8593,6,1178,0,'200.24.127.11',1193160969,1,0,1,1,1,0,'','En Reporte a un SHADOW se le puede cambiar de Color','Es posible cambiar a un SHADOW de color diferente al gris y blanco\n\n\n[code:30r4w4xk]\n    REPORT oReport ;\n          TITLE  &quot;LISTADO DE TIPO DE MODULOS&quot;,;\n                 OemtoAnsi&#40;&quot;&quot;&#41;;\n          FONT   oFon1,;\n                 oFon2,;\n                 oFon3 ;\n          PEN    oPen1,;\n                 oPen2 ;\n          HEADER  &quot; Fecha &#58; &quot;+dtoc&#40;date&#40;&#41;&#41;,;\n                  &quot;Hora  &#58; &quot;+time&#40;&#41;,;\n                  &quot;Pagina&#58; &quot;+str&#40;oReport&#58;nPage,3&#41;;\n                  RIGHT ;\n          FOOTER OemtoAnsi&#40;memvar-&gt;X_SIGLA+&quot;       &quot;+memvar-&gt;X_TPAQU &#41;  CENTERED;\n          PREVIEW  //TO DEVICE oPrn PREVIEW     //      TO FILE &quot;d&#58;\\test&#46;txt&quot; TO PRINTER\n     COLUMN TITLE &quot;Codigo&quot; DATA  b_tipmod-&gt;tipmod  FONT 1 GRID 1 SHADOW grid \n     COLUMN TITLE &quot;Nombre&quot; DATA  b_tipmod-&gt;nombre  FONT 1 GRID 1 SHADOW grid \n    END REPORT\n[/code:30r4w4xk]','',0,'AIA=','30r4w4xk',1,0,'',1178,0,0),(40156,8594,3,51,0,'80.122.88.242',1193163245,1,0,1,1,1,0,'','Reservation tool new Calendar','Back in 1994/95 I developed my reservation tool.\nAs time goes by users now need more features. \n\nI saw the thread about New Calendar and thought maybe my reservation tool could be adapted or integrated. \n\nYou must consider, however, that it is a rather old part of my software: no classes, only functions, many hard codes. \nIt was the first part of my software that I adapted to Windows in 1994 FW1.6. Up to now I have never changed it. \nI extracted it from the whole application, that is why there is some overhead, too.\n \nIf you introduce changes, I\'d appreciate to be shown what you do - in order to learn in turn.\n\n\nLooking forward to your answer,\n\n\nOtto\n\nDownload - Link with source code\n\n[url:rhgqzgut]http&#58;//www&#46;atzwanger&#46;com/fw/reservation&#46;zip[/url:rhgqzgut]\n\n[img:rhgqzgut]http&#58;//www&#46;atzwanger&#46;com/fw/reservation&#46;jpg[/img:rhgqzgut]','',0,'GA==','rhgqzgut',1,0,'',51,0,0),(40157,8496,3,1158,0,'200.233.185.181',1193163333,1,0,1,1,1,0,'','','Antonio, theres an behavior with menus 2007 and windows nt 4 workstation, i sent to you private email an image. thanks','',0,'GA==','yxfuhuwp',1,0,'',1158,0,0),(40158,8595,6,51,0,'80.122.88.242',1193165503,1,0,1,1,1,0,'','Reservation tool new Calendar','Back in 1994/95 I developed my reservation tool.\nAs time goes by users now need more features. \n\nI saw the thread about New Calendar and thought maybe my reservation tool could be adapted or integrated. \n\nYou must consider, however, that it is a rather old part of my software: no classes, only functions, many hard codes. \nIt was the first part of my software that I adapted to Windows in 1994 FW1.6. Up to now I have never changed it. \nI extracted it from the whole application, that is why there is some overhead, too.\n \nIf you introduce changes, I\'d appreciate to be shown what you do - in order to learn in turn.\n\n\nLooking forward to your answer,\n\n\nOtto\n\nDownload - Link with source code\n\n[url:duba6vir]http&#58;//www&#46;atzwanger&#46;com/fw/reservation&#46;zip[/url:duba6vir]\n\n[img:duba6vir]http&#58;//www&#46;atzwanger&#46;com/fw/reservation&#46;jpg[/img:duba6vir]','',0,'GA==','duba6vir',1,0,'',51,0,0),(40159,8496,3,2,0,'87.218.146.128',1193166372,1,0,1,1,1,1,'','','Norberto,\n\nI see, there is an extra gray bar. Are you using all service packs (sistem upgrades) availables for NT ?','',0,'GA==','378oaeoe',1,0,'',2,0,0),(40160,8577,3,2,0,'87.218.146.128',1193166477,1,0,1,1,1,1,'','','Jeff,\n\nCould you please ask the developers to place a MessageBox( 0, \"here\", \"inside the DLL\", 0 ); inside that DLL function just to check if we properly access it ? thanks','',0,'GA==','3011knxk',1,0,'',2,0,0),(40161,8206,6,1146,0,'87.223.174.162',1193166478,1,0,1,1,1,0,'','','Muchas gracias por responder.\n\nResulta que el exe sin proteger si funciona correctamente en el equipo de ese cliente.','',0,'GA==','1a5t5hx1',1,0,'',1146,0,0),(40162,8591,6,2,0,'87.218.146.128',1193166568,1,0,1,1,1,1,'','','Lubin,\n\nRevisa los ejemplos que se proporcionan con AdoRdd:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->','',0,'GA==','3q79bjkp',1,0,'',2,0,0),(40163,8574,3,2,0,'87.218.146.128',1193166620,1,0,1,1,1,1,'','','Excellent! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','7lyfeno2',1,0,'',2,0,0),(40164,8496,3,1158,0,'200.139.130.189',1193167031,1,0,1,1,1,0,'','','Antonio, yes. windows nt4 work sp6a. (last).\n\ni found an issue in msgbar header (ch) , missing clause 2007, already corrected below: (when using define, not set).\n\n#xcommand DEFINE &lt;msg: MESSAGE, MESSAGE BAR, MSGBAR&gt; [&lt;oMsg&gt;] ;\n             [ OF &lt;oWnd&gt; ] ;\n             [ &lt;prm: PROMPT, TITLE&gt; &lt;cMsg&gt; ] ;\n             [ &lt;center: CENTER, CENTERED&gt; ] ;\n             [ &lt;clock: CLOCK, TIME&gt; ] ;\n             [ &lt;date: DATE&gt; ] ;\n             [ &lt;kbd: KEYBOARD&gt; ] ;\n             [ FONT &lt;oFont&gt; ] ;\n             [ &lt;color: COLOR, COLORS&gt; &lt;nClrFore&gt; [,&lt;nClrBack&gt; ] ] ;\n             [ &lt;inset: NO INSET, NOINSET&gt; ] ;\n             [ &lt;l2007: 2007, _2007&gt; ] ;\n      =&gt; ;\n         [&lt;oMsg&gt;:=] &lt;oWnd&gt;:oMsgBar := TMsgBar():New( &lt;oWnd&gt;, &lt;cMsg&gt;, &lt;.center.&gt;,;\n                                      &lt;.clock.&gt;, &lt;.date.&gt;, &lt;.kbd.&gt;,;\n                                      &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;oFont&gt;,;\n                                      [!&lt;.inset.&gt;], [&lt;.l2007.&gt;] )\n\nthanks','',0,'','3vjmr5n7',1,0,'',1158,0,0),(40165,8596,6,215,0,'189.136.193.25',1193167405,1,0,1,1,1,1,'','Poner password a un archivo excel','Buena la cosa.\nYa genero hojas excel desde FWH, ahora el jefe quiere que le ponga un password al archivo excel para que nadie lo modifique y se envie por email y asi se mantenga la información intacta generada por el programa.\n\nLo de enviar por email ya lo hago pero ¿Cómo poner un password al archivo excel que he creado desde el  programa?\n\n\nFernando Leal\nMéxico, DF','',0,'','1t3906kv',1,0,'',215,0,0),(40166,8496,3,1158,0,'200.139.130.189',1193167415,1,0,1,1,1,0,'','','ops, sorry, missing this clause in fivewin.ch.','',0,'','390ba7tr',1,0,'',1158,0,0),(40167,8361,4,1135,0,'189.136.52.12',1193167616,1,0,1,1,1,1,'','','Salvador. Gracias por el fuente. Lo probe con el codigo que pongo abajo.\n\nNOTAS DE LAS PRUEBAS CON TUS FUENTES: \n1.- Al compilar no reconocio las constantes, por lo que tuve que cambiar estas lineas:\n//   SetupComm(( HANDLE) hb_parnl( 1 ), BUFF_IN, BUFF_OUT ) ;\n   SetupComm(( HANDLE) hb_parnl( 1 ), 1024, 1024 ) ;\n\n2.-En el dispositivo solo corre con lIRmode:=.F.. Por favor, podrias explicarnos que cambios en el control de flujo conlleva habilitar este parametro?\n\n3.-Deshabilitando lIRMode pude Abrir el puerto COM3:, pero no puede enviar ni recibir datos. Tal vez hagan falta funciones del tipo Comm_DTR/DTS, o XON/XOFF ?? En tal caso, alguien podria explicarme los valores y como establecer el control de flujo?\n\n4.-Aun cerrando el puerto debo reiniciar el programa para poder volver a abrir el puerto.\n\nSALUDOS. LO PROBE CON ESTE CODIGO:\n\n#include \"FWCE.ch\"\n\n#define BUFF_IN               1024\n#define BUFF_OUT              1024\n#define GENERIC_READ          0x80000000\n#define GENERIC_WRITE         0x40000000\n#define OPEN_EXISTING         3\n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n#define NOPARITY            0\n#define ODDPARITY           1\n#define EVENPARITY          2\n#define MARKPARITY          3\n#define SPACEPARITY         4\n#define ONESTOPBIT          0\n#define ONE5STOPBITS        1\n#define TWOSTOPBITS         2\n\n*--------------\nFUNCTION Main()\n*--------------\n    LOCAL ochk1l, lchk1:=.f., oWnd\n\n    DEFINE WINDOW oWnd TITLE \"TestComm3\"\n\n    @ 2, 1 CHECKBOX oChk1 VAR lChk1 PROMPT \"lIRmode\" OF oWnd COLOR \"N/N*\" SIZE 80, 20\n\n    @ 6, 1 BUTTON oBtn PROMPT \"TstCom3\" SIZE 80, 25 ;\n      ACTION  SerialTrials(lchk1)\n\n    ACTIVATE WINDOW oWnd \n\nRETU NIL\n\n\n****************************************************************************\n\nFunction SerialTrials(lIRmode)\nlocal hComm\nIF (hComm:=OpenCom(3, 9600,,,, lIRmode )) &gt; 0\n   msginfo(\"Ok Com3: \"+str(hComm) + \", lIRmode:\"+if(lIRmode,\".t.\",\".f.\"))\n   IF ComSend( hComm, \"hi there\" )\n      msginfo(\"ComSend(hithere) regreso .T.\")\n      cRead:=ComRead( nHdlCom, nChars )\n      msginfo(\"ComRead() regreso: \"+cRead+ \",(\"+alltrim(str(len(cRead)))+\" chs)\")\n   else\n      msginfo(\"ComSend(hithere) regreso .FALSO.\")\n   ENDIF\n   ComClose( hComm )\n   msginfo(\"puerto cerrado\")\nENDIF\n****************************************************************************\n\n\n\n\n[quote=&quot;Salvador&quot;:35ajddsv]joop.\n\nEste fuente puede servirte de ayuda.\n\nSaludos.\n\nSalvador Gallardo\n\n[code:35ajddsv]/////////////////////////////////////////////\n//\n// Funciones de comunicacion por Rs232\n//\n////////////////////////////////////////////\n#include &quot;Fwce&#46;ch&quot;\n\n#define BUFF_IN               1024\n#define BUFF_OUT              1024\n#define GENERIC_READ          0x80000000\n#define GENERIC_WRITE         0x40000000\n#define OPEN_EXISTING         3\n#define FILE_ATTRIBUTE_NORMAL 0x00000080\n\n#define NOPARITY            0\n#define ODDPARITY           1\n#define EVENPARITY          2\n#define MARKPARITY          3\n#define SPACEPARITY         4\n\n#define ONESTOPBIT          0\n#define ONE5STOPBITS        1\n#define TWOSTOPBITS         2\n\n///////////////////////////////////////////////\n//\n// OpenCom\n// Abre el puerto especificado y lo configura\n//////////////////////////////////////////////\nFunction OpenCom&#40; nCom, nBauds, nParity, nDataByt, nStopBits, lIRmode &#41;\nLOCAL hComm, cComm\n\nDEFAULT nCom &#58;= 1, nBauds &#58;= 2400, nParity &#58;= NOPARITY, nDataByt &#58;= 8, lIRmode &#58;= &#46;f&#46;\nDEFAULT nStopBits &#58;= ONESTOPBIT\ncComm &#58;= &quot;Com&quot;+ AllTrim&#40; Str&#40; nCom, 2 &#41; &#41;+ &quot;&#58;&quot;\n\nhComm &#58;= CreateFile&#40; cComm, nOr&#40;GENERIC_WRITE, GENERIC_READ&#41; , 0, 0, OPEN_EXISTING, 0,0 &#41;\n\nIF hComm ==-1\n  Msginfo&#40;&quot;Fallo al abrir &quot;+ cComm&#41;\n  Return -1\nENDIF\n\nIF lIRMode\n  IF !RAWIRON&#40; hComm &#41;\n    Msginfo&#40; &quot;Fallo al iniciar RAWIR&quot;&#41;\n    ComClose&#40; hComm &#41;\n    RETURN -1\n  ENDIF\nENDIF\n\n\nIF !SetComm&#40; hComm, nBauds, nParity, nDataByt, nStopBits &#41;\n  MsgInfo&#40;&quot;Fallo al configurar &quot;+ cComm&#41;\n  ComClose&#40; hComm &#41;\n  RETURN -1\nENDIF\n\nRETURN hComm\n\n\n///////////////////////////////////\n//\n// ComSend&#40; nHdlCom, cString &#41;\n//\n////////////////////////////////////////////\n\nFunction  ComSend&#40; hComm, cString &#41;\n\nLOCAL nBytesend, nBytes&#58;= Len&#40; cString &#41;\n\nnByteSend &#58;= WriteComm&#40; hComm, @cString, nBytes &#41;\n\nReturn  &#40; nByteSend == nBytes &#41;\n\n\n////////////////////////////////////\n//\n// ComRead&#40; nHdlCom, nChars &#41;\n//\n////////////////////////////////////////////\nFunction ComRead&#40; nHdlCom, nChars &#41;\nLOCAL nBytes, cBuffIn &#58;= Space&#40;BUFF_IN&#41;\n\nnBytes &#58;= ReadComm&#40; nHdlCom, @cBuffIn, nChars &#41;\n\nRETURN if&#40; nBytes &gt;0, Left&#40; cBuffIn, nBytes &#41;,&quot;&quot; &#41;\n\n\n////////////////////////////////////\n//\n// ComClose&#40; nHdlCom&#41;\n//\n////////////////////////////////////////////\nFUNCTION ComClose&#40; hComm &#41;\n\nRAWIROFF&#40; hComm &#41;\nCloseHandle&#40; hComm &#41;\n\nRETURN &#46;t&#46;\n\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;winbase&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n#include &lt;aygshell&#46;h&gt;\n\nHB_FUNC&#40; SETCOMM &#41;\n&#123;\n   DCB dcb;\n   COMMTIMEOUTS timeouts;\n\n   SetupComm&#40;&#40; HANDLE&#41; hb_parnl&#40; 1 &#41;, BUFF_IN, BUFF_OUT &#41; ;\n\n   GetCommState&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &amp;dcb &#41;;\n\n   dcb&#46;BaudRate             = hb_parnl&#40; 2 &#41;;\n   dcb&#46;Parity               = hb_parni&#40; 3 &#41;;\n   dcb&#46;ByteSize             = hb_parni&#40; 4 &#41;;\n   dcb&#46;StopBits             = hb_parni&#40; 5 &#41;;\n\n   dcb&#46;fBinary              = TRUE;\n   dcb&#46;fParity              = TRUE;\n   dcb&#46;fOutxCtsFlow         = FALSE;\n   dcb&#46;fOutxDsrFlow         = FALSE;\n   dcb&#46;fDtrControl          = DTR_CONTROL_DISABLE;\n   dcb&#46;fDsrSensitivity      = FALSE;\n   dcb&#46;fTXContinueOnXoff    = FALSE;\n   dcb&#46;fOutX                = FALSE;\n   dcb&#46;fInX                 = FALSE;\n   dcb&#46;fErrorChar           = FALSE;\n   dcb&#46;fNull                = FALSE;\n   dcb&#46;fRtsControl          = RTS_CONTROL_DISABLE;\n   dcb&#46;fAbortOnError        = FALSE;\n\n   GetCommTimeouts&#40;&#40; HANDLE&#41; hb_parnl, &amp;timeouts&#41;;\n\n   timeouts&#46;ReadIntervalTimeout         = 0;\n   timeouts&#46;ReadTotalTimeoutMultiplier  = 0;\n   timeouts&#46;ReadTotalTimeoutConstant    = 1000;\n   timeouts&#46;WriteTotalTimeoutMultiplier = 0;\n   timeouts&#46;WriteTotalTimeoutConstant   = 0;\n\n\n   SetCommTimeouts&#40;&#40; HANDLE&#41; hb_parnl&#40; 1 &#41;, &amp;timeouts &#41;;\n\n   hb_retl&#40;SetCommState&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &amp;dcb &#41;&#41;;\n&#125;\n\nHB_FUNC&#40; READCOMM &#41;\n&#123;\n  DWORD dw = 0;\n  ReadFile&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, &#40; LPVOID &#41; hb_parc&#40; 2 &#41;, &#40; DWORD &#41; hb_parni&#40; 3 &#41;, &amp;dw, NULL &#41;;\n\n  hb_retni&#40; &#40; int &#41; dw ? dw &#58; -1 &#41;;\n&#125;\n\nHB_FUNC&#40; WRITECOMM &#41;\n&#123;\n  DWORD dw = 0;\n  WriteFile&#40; &#40;HANDLE &#41; hb_parnl&#40; 1 &#41;, &#40; LPVOID &#41; hb_parc&#40; 2 &#41;, &#40; DWORD &#41; hb_parni&#40; 3 &#41;, &amp;dw, NULL &#41;;\n  hb_retni&#40; &#40; int &#41; dw ? dw &#58; -1&#41;;\n&#125;\n\n\nHB_FUNC&#40; RAWIRON &#41;\n&#123;\n\n   hb_retl&#40; EscapeCommFunction&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, SETIR &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; RAWIROFF &#41;\n&#123;\n\n   hb_retl&#40; EscapeCommFunction&#40; &#40; HANDLE &#41; hb_parnl&#40; 1 &#41;, CLRIR &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:35ajddsv][/quote:35ajddsv]','',0,'gIA=','35ajddsv',1,0,'',1135,0,0),(40168,8206,6,1158,0,'200.139.130.189',1193167622,1,0,1,1,1,0,'','','Karinha, ocorre comigo tb, as vezes funciona, outras não. nao he virus.','',0,'gIA=','xntu114p',1,0,'',1158,0,0),(40169,8206,6,362,0,'200.158.19.125',1193169563,1,0,1,1,1,1,'','','[quote=&quot;norberto&quot;:4pri11su]Karinha, ocorre comigo tb, as vezes funciona, outras não. nao he virus.[/quote:4pri11su]\n\nNorberto... Cual WINDOWS?? Cual la VERSION del UPX.EXE?','',0,'gA==','4pri11su',1,0,'',362,0,0),(40170,8591,6,348,0,'201.240.95.50',1193170102,1,0,1,1,1,0,'','','Gracias Antonio\nen este momento le doy una mirada\n\nLubin\n\n\n[quote=&quot;Antonio Linares&quot;:3jbf1t7w]Lubin,\n\nRevisa los ejemplos que se proporcionan con AdoRdd:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->[/quote:3jbf1t7w]','',0,'gA==','3jbf1t7w',1,0,'',348,0,0),(40171,8594,3,47,0,'203.144.160.247',1193171041,1,0,1,1,1,0,'','','Thanks Otto, I got it.\n\nRegards,\nDutch','',0,'gA==','3505agks',1,0,'',47,0,0),(40172,8589,6,36,0,'164.77.81.210',1193171287,1,0,1,1,1,1,'','','Gracias QAZWSX2k\n\nhe bajado esta utilidad [url:2vwjtrcs]http&#58;//www&#46;irfanview&#46;com/[/url:2vwjtrcs] para ver y convertir imagen\n\nadjunto codigo si alguien le sirve, por el momento hasta que haya algo en la clase tImage\n\n[code:2vwjtrcs]static function Abrir&#40; cFile, oImage &#41;\n   local cArch, cEjecute\n   cArch &#58;= cGetFile32&#40;&quot;JPEG  | *&#46;jpg |&quot; , &quot;Seleccione una imagen&quot;,1,,,&#46;T&#46; &#41;\n   if !empty&#40;cArch&#41;\n		oImage&#58;LoadImage&#40; , cArch &#41;\n		if oImage&#58;nWidth&#40;&#41; &gt; 700 &#46;and&#46; oImage&#58;nHeight&#40;&#41; &gt; 900\n			if file&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\File&#46;jpg&quot; &#41;\n				fErase&#40; ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\File&#46;jpg&quot; &#41;\n			endif\n			cEjecute &#58;= &quot;i_view32&#46;exe &quot;+cFile + &quot; /resize=&#40;800,600&#41; /aspectratio /resample /convert=&quot;+ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\File&#46;jpg&quot;\n			WinExec&#40; cEjecute &#41;\n			cArchi &#58;= ViewUsu&#40;&#41;&#58;cPathTmp + &quot;\\File&#46;jpg&quot;\n			oImage&#58;LoadImage&#40; , cArchi &#41;\n			if oImage&#58;nWidth&#40;&#41; &gt; 700 &#46;and&#46; oImage&#58;nHeight&#40;&#41; &gt; 900\n				MsgInfo&#40; &quot;Favor reducir las dimensiones de la imagen a 600x800 como máximo&#46;&#46;&#46;&quot;, &quot;Usuario&quot; &#41;\n			else\n				cFile &#58;= cArch\n			endif\n		else\n			cFile &#58;= cArch\n		endif\n		oImage&#58;Refresh&#40;&#41;\n	endif\n\nreturn&#40; &#46;t&#46; &#41;\n//----------------------------------------------------------------------------// &gt;[/code:2vwjtrcs]','',0,'EIA=','2vwjtrcs',1,0,'',36,0,0),(40173,8591,6,348,0,'201.240.95.50',1193171604,1,0,1,1,1,0,'','','Estimado Antonio\n\nRevise el Link que me enviaste, y efectivamente esta la libreria y los elementos necesarios para compilar con AdoRDD, adicionalmente  tiene 2 ejemplos los cuales solo muestran como conectarse con un MySql de pocas lineas sumamente elemental y quizas insuficiente para lanzarme a cambiar un sistema con ello.  \n\nRecurro a ustedes para pedirles un ejemplo un poco mas completo que nos de una norma en la programacion si fuera posible \n\nMucho recuerdo el Ejemplo de aquella contabilidad Acount.prg  que enseña mucho para los que nos inciamos con FiVeWin, bueno seria mucho pedir quizas algo com para sab er como manejar los archivos las tablas y bases de datos con Mysql.. el uso de un Listbox, o un Seek o Relations  u otras aplicaciones... \n\ndesde ya las gracias a Antonio y al Foro por su ayuda que sera para muchos de los que deseamos dar ese salto a FWH con MYSQL !!\n\nGracias \nLubin\n\n\nLubin','',0,'EIA=','3ocarhfs',1,0,'',348,0,0),(40174,8206,6,1158,0,'200.139.130.189',1193171731,1,0,1,1,1,0,'','','Karinha, windows xp sp2 with updates, fwh7.09, xharbour cvs, upx 3.01w','',0,'EIA=','1do44hzt',1,0,'',1158,0,0),(40175,8591,6,774,0,'200.72.190.236',1193172180,1,0,1,1,1,1,'','','ME SUMO A TU PETICION AMIGO,, PUES COMO BIEN TU DICES QUIZAS SOMOS MUCHOS LOS Q NECESITAMOS EL CAMBIO SQL-MYSQL.. \n\nPERO LOS EJEMPLOS NO SON CLAROS,,, MUCHO MENOS CUANDO NO SE TIENE CONOCIMIENTOS DE SQL... AUN AMIGO DE MSN,, ME DIJO Q SIN CONOCIMIENTOS DE SQL,, ME SERIA MUY DIFICIL EL COMPRENDER EL CAMBIO QUE SE NECESITA::.\n\nPERO DIGO YO,, COMO EL FORO EN QUE SIEMPRE NOS HEMOS AYUDADOS UNOS A OTROS...  AHORA LOS QUE SALTARON A CLIENTE/SERVIDOR NOS DEJARAN CON LAS GANAS DE SEGUIR EL MISMO CAMINO,, no creo q eso pase::\n\nASI QUE : AMIGOS DEL FORO QUE TIENEN CONOCIMIENTOS DEL CAMBIO A CLIENTE / SERVIDOR::\n\nPODRIAN ENTREGAR ALGUNOS EJEMPLOS OPERATIVOS,, COMO BIEN LO DIJO LUBIN\n\n\nGRACIAS::: Y ESPERANDO RESPUESTAS::','',0,'EIA=','174hhzhb',1,0,'',774,0,0),(40176,8361,4,358,0,'87.219.145.164',1193173275,1,0,1,1,1,0,'','','Arturo,\nLa función EscapeCommFunction( ( HANDLE ) , SETIR ), lo que hace es habilitar el modo RAWIR en un puerto IR previamente abierto, en este modo no hay control de flujo de ningún tipo es decir en todo momento debemos saber cuando escribir o leer en el para que no se produzcan colisiones en la comunicación. Solo funcionan  las señales RX y TX . \nPara que el IR funcione en modo RAW en la configuración de la PPC en conexiones-&gt;infrarrojos, hay que desactivar \"aceptar conexiones.\"\nLo utilizo en una aplicación que hace  la lectura de unos dispositivos electrónicos controlados por PIC, que contabilizan las jugadas y los premios realizados en máquinas recreativas (tragaperras), funciona sin problemas. \n\nSaludos.\nSalvador','',0,'EIA=','3jvc6h1e',1,0,'',358,0,0),(40177,8597,7,179,0,'200.24.221.138',1193174496,1,0,1,1,1,1,'','Actualizacion de Harbour_Ce','Antonio buenas tardes\nMe actualice a la ultima version de fwppc por el problema de la memoria (manejo de parte de harbour), mas ahora me hallo ante otro problema con la version de Harbour ( hablo de la del 13 de septiembre ), los usuarios me estan trayendo las pocket pc con un problema de corrupcion de indices y datos y lo peor es que cuando sales del programa la data queda inservible, ya no se puede acceder, por favor podrias actualizar a la version actual de harbour del cvs el harbour_ce del 13 de septiembre, al menos tendria una nueva posibilidad de probar, aclaro que con la version del 2006 que tengo de harbour_ce y fwppc no tengo este problema\n\ngracias x todo\n\nSaludos','',0,'EIA=','1kqqx27i',1,0,'',179,0,0),(40178,5674,3,47,0,'203.144.160.247',1193175187,1,0,1,1,1,0,'','','Dear All,\n\nI develop my program with R&amp;R V.5 for DOS since 1997.  All my program use R&amp;R.  I\'ve no hardcode printing because all my client need to change some in all forms.  While we use R&amp;R and now R&amp;R is version 12 with support SQL.  I can import all form since DOS Version to Windows Version and I can distribute my Report Format to any client without any change in my program.  I just send only setup screen image and report format file (.RRW).  R&amp;R can export to many format but not quite good in some format.  \n\nAnyway, The R&amp;R support is very good and helpful.  \n\nThis is the screen in my program.\n[url=http&#58;//img88&#46;imageshack&#46;us/my&#46;php?image=rptproppj5&#46;jpg:1tbj88my][img:1tbj88my]http&#58;//img88&#46;imageshack&#46;us/img88/3861/rptproppj5&#46;th&#46;jpg[/img:1tbj88my][/url:1tbj88my]\nThis is my Report Properties (my code) you can use Query in program or send Query from setup screen to override in R&amp;R.\n[url=http&#58;//img88&#46;imageshack&#46;us/my&#46;php?image=rptseteq4&#46;jpg:1tbj88my][img:1tbj88my]http&#58;//img88&#46;imageshack&#46;us/img88/1638/rptseteq4&#46;th&#46;jpg[/img:1tbj88my][/url:1tbj88my]\nThis is the R&amp;R Designer call from source code.\n[url=http&#58;//img88&#46;imageshack&#46;us/my&#46;php?image=callrnrzs2&#46;jpg:1tbj88my][img:1tbj88my]http&#58;//img88&#46;imageshack&#46;us/img88/6424/callrnrzs2&#46;th&#46;jpg[/img:1tbj88my][/url:1tbj88my]\nThis is user define prompt from setup screen.\n[url=http&#58;//img86&#46;imageshack&#46;us/my&#46;php?image=userpromptov6&#46;jpg:1tbj88my][img:1tbj88my]http&#58;//img86&#46;imageshack&#46;us/img86/4645/userpromptov6&#46;th&#46;jpg[/img:1tbj88my][/url:1tbj88my]\n\nBest regards,\nDutch','',0,'GA==','1tbj88my',1,0,'',47,0,0),(40179,8541,6,760,0,'200.37.76.93',1193175375,1,0,1,1,1,0,'','Verce 4.5','Hola a todos del Foro\n\nPero el link no esta disponible....\n\nSalu2\n\nFrancis','',0,'GA==','3l5bs1uv',1,0,'',760,0,0),(40180,8598,6,73,0,'200.23.18.132',1193175895,1,0,1,1,1,0,'','Error al agregar un prg','Hola Antonio,\ntengo un sistema con 13 prgs, modifique la clase tprinter la agregue al proyecto (verce) y de pronto me trono, quito cualquier prg y funciona, agrego un prg y me truena, alguna pista?\neste es el error...\n\nApplication\n===========\n   Path and name: E:\\Proyectos\\Combustibles\\Gasol.Exe (32 bits)\n   Size: 2,391,040 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 23/10/2007, 16:38:16\n   Error description: Error BASE/1004  Message not found: TMENU:SETSTYLE\n   Args:\n     [   1] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TMENU:ERROR(174)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(105)\n   Called from:  =&gt; TMENU:MSGNOTFOUND(0)\n   Called from:  =&gt; TMENU:SETSTYLE(164)\n   Called from: E:\\Proyectos\\Combustibles\\fuentes\\cb01.prg =&gt; MIMENU(342)\n   Called from: E:\\Proyectos\\Combustibles\\fuentes\\cb01.prg =&gt; MAIN(209)\n\nsalu2\npaco','',0,'','322st4sm',1,0,'',73,0,0),(40181,8361,4,1135,0,'189.136.52.12',1193176841,1,0,1,1,1,1,'','','Gracias Salvador. Ahora voy a probar porqué no me aparece la configuración del puerto infrarojo en la PPC con WMobile 5.0\n\n[quote=&quot;Salvador&quot;:1v8cxalm]Arturo,\nLa función EscapeCommFunction( ( HANDLE ) , SETIR ), lo que hace es habilitar el modo RAWIR en un puerto IR previamente abierto, en este modo no hay control de flujo de ningún tipo es decir en todo momento debemos saber cuando escribir o leer en el para que no se produzcan colisiones en la comunicación. Solo funcionan  las señales RX y TX . \nPara que el IR funcione en modo RAW en la configuración de la PPC en conexiones-&gt;infrarrojos, hay que desactivar \"aceptar conexiones.\"\nLo utilizo en una aplicación que hace  la lectura de unos dispositivos electrónicos controlados por PIC, que contabilizan las jugadas y los premios realizados en máquinas recreativas (tragaperras), funciona sin problemas. \n\nSaludos.\nSalvador[/quote:1v8cxalm]','',0,'gA==','1v8cxalm',1,0,'',1135,0,0),(40182,8361,4,358,0,'87.219.145.164',1193176947,1,0,1,1,1,0,'','','Arturo me olvidaba !!\n\nNo todas las PDA son compatibles con el modo RAWIR. He utilizado  HP2210 y HP HX2490 y no dan problemas.\n\nSaludos.\nSalvador','',0,'gA==','n0getc3i',1,0,'',358,0,0),(40183,8361,4,1135,0,'189.136.52.12',1193177168,1,0,1,1,1,1,'','','Entiendo. Yo estoy probando con la Symbol MC35. Aun asi creo que deberia haber algun parametro de configuracion relativo al IRDA en mi PPC y por algun arazon no lo encuentro.\nGracias.\n\n[quote=&quot;Salvador&quot;:165vknvx]Arturo me olvidaba !!\n\nNo todas las PDA son compatibles con el modo RAWIR. He utilizado  HP2210 y HP HX2490 y no dan problemas.\n\nSaludos.\nSalvador[/quote:165vknvx]','',0,'gA==','165vknvx',1,0,'',1135,0,0),(40184,8586,3,103,0,'189.43.121.190',1193178500,1,0,1,1,1,1,'','','Hi Otto,\n\n   I really don\'t know, because I don\'t use Harbour... maybe Antonio can answer your question about the OVERRIDE command.\n\nBest Regards,','',0,'gA==','o2wenwx5',1,0,'',103,0,0),(40185,8597,7,2,0,'87.218.146.128',1193180799,1,0,1,1,1,1,'','','Wilson,\n\nLos ficheros los mantienes en la tarjeta de memoria ó en un directorio del pocket pc ?\n\nUsas CDX ?','',0,'gA==','2l710bu7',1,0,'',2,0,0),(40186,8599,6,438,0,'200.87.162.166',1193185175,1,0,1,1,1,0,'','error de la funcion Val() en numeros largos','Hola amigos el foro:\n\nAyuda por favor, la oficina de Impuestos de Bolivia requiere que los datos de una Factura sean encriptados, previo el añadido de un digito verificador, por lo cual necesito hacer la siguiente operacion:\n \n      VAL(\"4209253717027162\"+\"1\") \n\npero el resultado que me arroja la funcion Val() es:\n\n       42092537170271624     \n\n... el ultimo digito, en el valor numerico, se vuelve 4 (en vez e 1).\n\nesto en realidad es un error de xHarbour??\n\nestoy usando FWH26 y xharbour 0.99.3\n\nDe antemano gracias por la ayuda.\nRolando','',0,'gA==','1oa4bzdz',1,0,'',438,0,0),(40187,8591,6,940,0,'189.164.17.139',1193187471,1,0,1,1,1,1,'','','Amigos,  animo,\n\nsql no es nada del otro mundo,  se puede atacar con ADO puro,\n\ndiganeme ustedes que es facil en este mundo de la informatica,\n\nseria aburrido si fuese facil,,\n\nsi en algo puedo apoyar,  nomas preguntame k!!!\n\n\nsaludos..','',0,'gA==','2jrshsuy',1,0,'',940,0,0),(40188,8600,19,105,0,'201.246.183.136',1193188228,1,0,1,1,1,1,'','OT : Palm OS Help','Hi Everybody...\n\nI need a simple and basic solution to create a txt file in a palm.\nI need to capture 3 data, a Code, a name and a number, then save them secuentially in a text file to read afterwards with a FWH/XHB program.\n\nIf you know of any programming languaje, SDK or something of the sort, please comment.\n\nAny idea, help will be appreciated.\n\nThanks In Advance\n\nPD: I do not have FWPPC, and the program is so simple that I don\'t think I\'ll need it ( now, at least )','',0,'gA==','1bkwtz3g',1,0,'',105,0,0),(40189,8601,6,105,0,'201.246.183.136',1193188635,1,0,1,1,1,1,'','OT : Ayuda con Palm OS','Hola a todos...\n\nNecesito una solucion basica y sencilla para crear un archivo txt en una Palm.\n\nNecesito capturar 3 datos, un codigo, un nombre y un numero, luego grabarlos secuencialmente en un archivo txt para ser leido por una aplizacion FWH/XHB\n\nSi saben de cualquier lenguaje, utileria o SDK por favor comentenmelo.\n\nGracias\n\nPD: No utilizo FWPPC, y la aplicacion es tan sencilla que no creo lo necesite, por lo menos por ahora.','',0,'gA==','3et1cwv6',1,0,'',105,0,0),(40190,8597,7,179,0,'201.217.103.6',1193191510,1,0,1,1,1,1,'','','Antonio, perdon por no contestar rapido, pues no uso la tarjeta, esta en la memoria principal, uso CDX, el error es el  siguiente:\nHb_CdxIndexPageRead\nRead index Page Fail\nConsole error \nCalled from DbUseArea(0)\nCalled From .....\nlo que hago es abrir los archivos una sola vez al iniciar el programa, al mismo tiempo los reindexo, este problema me da solo con la ultima version, con la anterior lo que tenia de problema era que a las 2 de la tarde daba un error de memoria Harbour\n\ngracias x todo\natt','',0,'gA==','2u2nuorw',1,0,'',179,0,0),(40191,8591,6,228,0,'200.106.203.46',1193192556,1,0,1,1,1,1,'','Ejemplo...','Amigo sysctrl2:\n\nA mi me gustaria tener un ejemplo de conexion via ADO con ms-sql. Al mismo tiempo la forma de mostrar un recorset en un browse.\n\nUn saludo\n\n\nLEANDRO ALFONSO','',0,'gA==','2fqr42lm',1,0,'',228,0,0),(40192,8541,6,54,0,'189.132.100.220',1193201851,1,0,1,1,1,1,'','Re: Verce 4.5','[quote=&quot;Francis&quot;:2ylbsiu0]Hola a todos del Foro\n\nPero el link no esta disponible....\n\nSalu2\n\nFrancis[/quote:2ylbsiu0]\n\nDisponible ya...','',0,'gA==','2ylbsiu0',1,0,'',54,0,0),(40193,5466,3,397,0,'201.42.54.25',1193203368,1,0,1,0,1,1,'','','Amiguinho\n\nNa verdade até a versão 2.7 este recurso serviria, mas como voce possui a 2.8 provavelmente ele ja seja suportado.\n\nDe uma olhada em sua classe TPages.PRG e verifique se ha diferenças.','',0,'gA==','2qbcax7k',1,0,'',397,0,0),(40194,8597,7,2,0,'87.218.146.128',1193204781,1,0,1,1,1,1,'','','Wilson,\n\nVoy a preguntarle a Przemek acerca de ese error, gracias','',0,'gA==','13r2sydd',1,0,'',2,0,0),(40195,8601,6,2,0,'87.218.146.128',1193205238,1,0,1,1,1,1,'','','Adolfo,\n\nQue sistema operativo usa ?','',0,'gA==','2brc7y5t',1,0,'',2,0,0),(40196,8598,6,2,0,'87.218.146.128',1193205643,1,0,1,1,1,1,'','','Paco,\n\nTienes algún método en tu aplicación que se llame SetStyle() ?\n\nMe suena a bug en el diccionario de métodos de Harbour. De momento, para salir del paso, añade este método a la clase TMenu:\n\nMETHOD SetStyle() VIRTUAL','',0,'gA==','3qhsqg07',1,0,'',2,0,0),(40197,8602,3,160,0,'59.95.245.153',1193205826,1,0,1,1,1,0,'','How to use Access Database with my xHarbour App ?','Dear All,\n\nI have one of my application with DBFCDX structure. There is no problem with that app. But the user wants the data converted into MS Access Database. \n\nHow can I do it ? Is SQLRDD  the answer ? If so so how much coding needs to be changed ?\n\nTIA\nMilan.','',0,'gA==','1rvm0uu1',1,0,'',160,0,0),(40198,8599,6,2,0,'87.218.146.128',1193205988,1,0,1,1,1,1,'','','Rolando,\n\nLo hemos preguntado en la lista de desarrollo de Harbour.\n\nFalla por igual en Harbour y xHarbour. No es error de FWH, ya que Val() pertenece a ellos.','',0,'gA==','23wrclds',1,0,'',2,0,0),(40199,8593,6,2,0,'87.218.146.128',1193206158,1,0,1,1,1,1,'','','Ruben,\n\nPrueba así:\n\noReport:SetShdColor( CLR_GREEN )','',0,'gA==','12zzqs87',1,0,'',2,0,0),(40200,8590,2,2,0,'87.218.146.128',1193206465,1,0,1,1,1,1,'','','Leonor,\n\nPrueba así:\n[code:32e7wnos]\n   BEGIN SEQUENCE\n      &#46;&#46;&#46; tu código &#46;&#46;&#46;\n   RECOVER USING oError\n      MsgInfo&#40; &quot;error de impresión&quot; &#41;\n   END SEQUENCE\n[/code:32e7wnos]','',0,'AIA=','32e7wnos',1,0,'',2,0,0),(40201,8600,19,2,0,'87.218.146.128',1193206570,1,0,1,1,1,1,'','','Adolfo,\n\nWhat operating system does that palm uses ?','',0,'AIA=','kixzii6m',1,0,'',2,0,0),(40202,8586,3,2,0,'87.218.146.128',1193206690,1,0,1,1,1,1,'','','Otto,\n\nJust try it. I have never used it and I don\'t recommend it, as thats not the way object oriented programming should be used','',0,'AIA=','1ioxnffa',1,0,'',2,0,0),(40203,8603,2,542,0,'83.42.233.93',1193208380,1,0,1,1,1,0,'','Poner y quitar opciones del Menu Principal','Hola amigos:\n\nMi pregunta es la siguiente:\n\nTengo que hacer que en  el programa cuando se cambie de usuario en el menú principal de la aplicacion a parezcan o desaparezcan las opciones que puede usar.\n\nLo que he echo es crear una base de datos con las opciones que se pueden usar y con un IF en cada opcion para ponerla o quitarla, pero lo que no se como se hace es refrescar el menu para que cuando cambie el IF aparezcan o desaparezcan.\n\nAlguien me podria ayudar.\n\nGracias, un saludo\n\nCarlos','',0,'AIA=','28xhkftf',1,0,'',542,0,0),(40204,8588,6,396,0,'200.71.186.108',1193208676,1,0,1,1,1,1,'','','Uso es funcion pero de la siguiente manera: strzero(var,n), donde n es el tamaño de la variables que normalmente contiene solo numeros, ya sea de tipo numerico o de tipo char... o deberias de invertir las funciones...','',0,'AIA=','2fj71cre',1,0,'',396,0,0),(40205,8604,6,413,0,'195.55.176.112',1193209585,1,0,1,1,1,1,'','tWord con Metodo de abrir un fichero con READONLY','Alguien ha creado el metodo de solo lectura para abrir un documento word, en la clase tWord, para que asi no se pueda variar el documento original. Me lo prodrian mandar por favor.[code:34w0e5me]\nSub SoloLectura&#40;&#41;\n\'\n\' SoloLectura Macro\n\' Macro grabada el 24/10/2007 por &#46;\n\'\n    Documents&#46;Open FileName&#58;=&quot;&quot;&quot;capituo 1 al 5&#46;doc&quot;&quot;&quot;, ConfirmConversions&#58;= _\n        False, ReadOnly&#58;=True, AddToRecentFiles&#58;=False, PasswordDocument&#58;=&quot;&quot;, _\n        PasswordTemplate&#58;=&quot;&quot;, Revert&#58;=False, WritePasswordDocument&#58;=&quot;&quot;, _\n        WritePasswordTemplate&#58;=&quot;&quot;, Format&#58;=wdOpenFormatAuto\nEnd Sub\n[/code:34w0e5me]','',0,'AIA=','34w0e5me',1,0,'',413,0,0),(40207,8606,1,86,0,'81.83.151.142',1193212446,1,0,1,1,1,1,'','Calulating with dates','Hello, \n\nDoes someone have a function which returns the exact date in a month if I ask for the first, the second, the third, the fourth of the last wednesday (but this can be any day of the week) of a month ? \n\nThanks a lot in advance.','',0,'AIA=','2tf3p6ey',1,0,'',86,0,0),(40208,8496,3,2,0,'87.218.146.128',1193214533,1,0,1,1,1,1,'','','16 bits colors support ready <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1lb9co58',1,0,'',2,0,0),(40209,8496,3,868,0,'210.212.216.67',1193214686,1,0,1,1,1,1,'','','Thanks\nThat makes me happier. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3pgofvhi',1,0,'',868,0,0),(40210,8496,3,2,0,'87.218.146.128',1193215562,1,0,1,1,1,1,'','','It should also work for 256 colors <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1nhm4dg0',1,0,'',2,0,0),(40211,8496,3,868,0,'210.212.216.67',1193215656,1,0,1,1,1,1,'','','Thanks Mr Antonio\n\nAwaiting the new libs','',0,'AIA=','javpcpbs',1,0,'',868,0,0),(40212,8496,3,868,0,'219.64.121.60',1193217299,1,0,1,1,1,1,'','','Mr Antonio\n\nJust now I have tested on 32,16 and 8 bit colors.\n\n1) Now it is not painting the left vertical bars for MDI child list.  It is ok for the selected MDI child but paints white for unslected child windows.\n\n2) Menu looks well on both 32 &amp; 16 bit colors, but _does_not_ look good on 8 bit (256 colors).  ( Earlier I checked only on 32 and 8 bit colors, not on 16 bit)\n\nFor your information.','',0,'AIA=','1i9awlk8',1,0,'',868,0,0),(40213,8602,3,130,0,'141.51.32.24',1193218528,1,0,1,1,1,1,'','','Milan,\n\nyou can try the new AdoRDD.\n\n[url:3gjrxs4a]http&#58;//www&#46;fivetechsoft&#46;com/files/adordd&#46;zip[/url:3gjrxs4a]\n\nSee this thread:\n\n[url:3gjrxs4a]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=6814[/url:3gjrxs4a]','',0,'EA==','3gjrxs4a',1,0,'',130,0,0),(40214,8539,3,448,0,'82.155.3.32',1193219184,1,0,1,1,1,0,'','','I need help on the problem found in my previous message ?\n\nRegards\nAntonio','',0,'EA==','90vnr6gs',1,0,'',448,0,0),(40215,8496,3,868,0,'219.64.121.60',1193219365,1,0,1,1,1,1,'','','I checked with old libs. MDI &amp; MRU painting stopped working from the version when 2007 option with new menu.ch was given.','',0,'EA==','1trhgwl3',1,0,'',868,0,0),(40216,6332,6,456,0,'217.127.39.57',1193219697,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:j4xhklli]Biel:\n\nExcelente aporte de L&amp;L, se que eres de los pocos gurus en ADO, te importaría escribir algunas entradas en tu BLOG sobre \"ADO para principiantes\" ?, creo que muchos del foro te lo vamos a agradecer.\n\nSaludos[/quote:j4xhklli]\nGracias Armando por el comentario, de Guru nada, un aprendiz. El tema ADO es muy extenso, pero bueno intentare buscar tiempo para escribir algo sobre ADO en el Blog.','',0,'gA==','j4xhklli',1,0,'',456,0,0),(40217,8496,3,1158,0,'200.139.130.189',1193220023,1,0,1,1,1,0,'','','Anotonio, any solution for windows nt? thanks','',0,'gA==','3p07equu',1,0,'',1158,0,0),(40218,8607,3,58,0,'84.149.66.190',1193222123,1,0,1,1,1,0,'','OT macro operator','Hi All,\n\na very stupid question but it\'s driving me nuts.\nI want to update a field in a dbf.\nThe field name is defined in an array.\n\n[code:255sjedo]\n#define DB_DBF 1\n#define DB_FLD 2\n\nLOCAL aDbf &#58;= &#123;;\n            &#123; &quot;dbf_1&quot;, &quot;fiel_name_1&quot; &#125;,;\n            &#123; &quot;dbf_2&quot;, &quot;fiel_name_2&quot; &#125;,;\n             &#46;&#46;&#46;\n            &#123; &quot;dbf_n&quot;, &quot;fiel_name_n&quot; &#125;,;\n    &#125;\n[/code:255sjedo]\nI can do  \n[code:255sjedo]use &#40; aDbf&#91;n&#93;&#91;DB_DBF&#93; &#41; shared alias wrk new[/code:255sjedo]\nBut i can not [code:255sjedo]wrk-&gt;&amp;aDbf&#91;n&#93;&#91;DB_FLD&#93; &#58;= uVal[/code:255sjedo]\n\nI tried several variations. Either i get \"invalid lvalue\" at compile time or \"&amp;syntax error\" at runtime.\n\nSo many years clippering but stumbling over such stupidity.\nSorry for bothering you.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nRegards,\nDetlef','',0,'AIA=','255sjedo',1,0,'',58,0,0),(40219,8496,3,2,0,'87.218.146.128',1193222829,1,0,1,1,1,1,'','','&gt;\n1) Now it is not painting the left vertical bars for MDI child list. It is ok for the selected MDI child but paints white for unslected child windows. \n&gt;\n\nPlease provide a screenshot using <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->\n\n&gt;\n2) Menu looks well on both 32 &amp; 16 bit colors, but _does_not_ look good on 8 bit (256 colors). ( Earlier I checked only on 32 and 8 bit colors, not on 16 bit) \n&gt;\n\nPlease email me a 256 colors screenshot, thanks','',0,'AIA=','25h7q3kt',1,0,'',2,0,0),(40220,8496,3,2,0,'87.218.146.128',1193222863,1,0,1,1,1,1,'','','&gt;\nI checked with old libs. MDI &amp; MRU painting stopped working from the version when 2007 option with new menu.ch was given.\n&gt;\n\nAre you using XP ?','',0,'AIA=','28lfeeh1',1,0,'',2,0,0),(40221,8496,3,868,0,'210.212.216.67',1193222961,1,0,1,1,1,1,'','','yes i am using xp','',0,'AIA=','1xyb3o7y',1,0,'',868,0,0),(40222,8496,3,868,0,'219.64.121.60',1193223725,1,0,1,1,1,1,'','','Here is the screenshot of MDI menu on XP \n\n[url=http&#58;//imageshack&#46;us:3unvafhh][img:3unvafhh]http&#58;//img89&#46;imageshack&#46;us/img89/2825/menu20011vn7&#46;png[/img:3unvafhh][/url:3unvafhh]\n\nIt is the same look with or without enabling themes.','',0,'GA==','3unvafhh',1,0,'',868,0,0),(40223,8600,19,105,0,'200.72.140.34',1193223878,1,0,1,1,1,1,'','','Antonio...\n\nPalm OS 5.4 (Garnet) para una Tunsteng E2\n\nGracias','',0,'GA==','3os6766d',1,0,'',105,0,0),(40224,8600,19,105,0,'200.72.140.34',1193223912,1,0,1,1,1,1,'','','Antonio...\n\nPalm OS 5.4 (Garnet) for a Tunsteng E2 Palm\n\n\nThanks','',0,'GA==','2083c3sh',1,0,'',105,0,0),(40225,8601,6,105,0,'200.72.140.34',1193225448,1,0,1,1,1,1,'','','Antonio...\n\nPalm OS 5.4 (Garnet) para una Tunsteng E2\n\nGracias','',0,'GA==','3i33xjtg',1,0,'',105,0,0),(40226,8607,3,3,0,'80.81.159.19',1193225528,1,0,1,1,1,1,'','Re: OT macro operator','Detlef,\n\nI remember some time ago having a similar problem\n\nThis is how i got it working\n\nDT      := \"CLIENT\" + ALLTRIM(SUBS(TABVAR[15][J],63,6))\nREPLACE (MYFILE)-&gt;&amp;DT WITH .....\n\nHTH\n\nRichard','',0,'','3dunsh6x',1,0,'',3,0,0),(40227,5674,3,972,0,'81.164.53.65',1193225669,1,0,1,1,1,0,'','Re: GX Reports','[quote=&quot;TimStone&quot;:3g5792on]I think its fair to say he was frustrated with the same type of line I often see on this forum which is \"we need something for free.\"  I\'m not against Open Source projects, but I am amazed at how often people assume they should get professional products without paying.  Most of us know we can\'t live in a home, eat a good diet, and care for our families without an income.  Sometimes the idea that \"it should be free\" is quickly translated to \"its ok to pass it around and not pay the programmer.\"  When that happens, the 3rd party vendors finally walk away.[/quote:3g5792on]\n\nFINALLY someone who understands.. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nPatrick','',0,'gA==','3g5792on',1,0,'',972,0,0),(40228,8206,6,362,0,'200.158.19.131',1193225747,1,0,1,1,1,1,'','','[quote=&quot;norberto&quot;:3ge1dhzs]Karinha, windows xp sp2 with updates, fwh7.09, xharbour cvs, upx 3.01w[/quote:3ge1dhzs]\n\nNorberto, teste con la VERSION UPX193w modo consola. És la que uso.\n\n<!-- m --><a class=\"postlink\" href=\"http://upx.sourceforge.net/download/00-OLD-VERSIONS/\">http://upx.sourceforge.net/download/00-OLD-VERSIONS/</a><!-- m -->','',0,'gA==','3ge1dhzs',1,0,'',362,0,0),(40229,8607,3,58,0,'84.149.66.190',1193226259,1,0,1,1,1,0,'','','Richard,\n\nthanks a lot for your answer.\nI just found an other workaround which i will also show, allthough it is dangerous code if the field doesn\' t exist.\n\n[code:2poltvc2]wrk-&gt;&#40; fieldput&#40; fieldpos&#40; aDbf&#91; n &#93;&#91; DB_FLD &#93; &#41;, uVal &#41; &#41; [/code:2poltvc2]\n\nBut thanks again, Richard.\nRegards,\nDetlef','',0,'AIA=','2poltvc2',1,0,'',58,0,0),(40230,8607,3,868,0,'219.64.121.60',1193227224,1,0,1,1,1,1,'','','This works:\n\n[code:180wbl24]\nwrk-&gt;&amp;&#40; aDbf&#91;n&#93;&#91;DB_FLD&#93; &#41; &#58;= uVal\n[/code:180wbl24]\n\nAnyway my personal preference in such cases is fieldput and fieldpos. I try to avoid macros.  Again its a matter of choice.','',0,'AIA=','180wbl24',1,0,'',868,0,0),(40231,8607,3,58,0,'84.149.122.31',1193228055,1,0,1,1,1,0,'','','NageswaraRao,\n\nmany thanks for your answer.\nAs you i always avoided the use of the macro operator.\nBut therefor i have a poor knowledge about it.\n\nThanks again for your hint.\n\nRegards,\nDetlef','',0,'AIA=','2is27wa0',1,0,'',58,0,0),(40232,8599,6,36,0,'164.77.81.210',1193229424,1,0,1,1,1,1,'','','Hola\n\nEn xHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nFunciona correctamente el ejemplo','',0,'AIA=','2rygad3j',1,0,'',36,0,0),(40233,8599,6,221,0,'200.109.27.176',1193230223,1,0,1,1,1,1,'','','y porque no haces  VAL(\"4209253717027162\")+val(\"1\")','',0,'AIA=','1flyzlip',1,0,'',221,0,0),(40234,8598,6,73,0,'189.157.189.8',1193232329,1,0,1,1,1,0,'','','Antonio,\nutilizo la clase menu de canal5 de paco garcia, ahi se define el tipo de menu (setstyle()), entonces quiero pensar que el bug es en su clase y no en harbour, si quito cualquier prg funciona y si agrego otro truena...\nde cualquier forma ya publique en le foro de canal5 a ver que me responde paco, alguna pista para comentarle?\ngracias\nsalu2\npaco','',0,'AIA=','1rt4vitd',1,0,'',73,0,0),(40235,8607,3,1154,0,'217.37.54.49',1193233764,1,0,1,1,1,0,'','','Hi Detlef,\n\nI had a similar problem just yesterday trying to do:\n\n[code:3fq7lkka]cDBField &#58;= &quot;ACNT_NBR&quot;\nREPLACE PAYMENT-&gt;&amp;cDBField WITH cValue[/code:3fq7lkka]\n\nThis was causing the \"&amp;syntax error\" you mentioned.\n\nI fixed it by doing the following:\n\n[code:3fq7lkka]cDBField &#58;= &quot;PAYMENT-&gt;ACNT_NBR&quot;\nREPLACE &amp;cDBField WITH cValue[/code:3fq7lkka]\n\nNot sure if this will help in your circumstances but it worked for me.\n\nKind regards,\n\nBarry','',0,'AIA=','3fq7lkka',1,0,'',1154,0,0),(40236,8599,6,362,0,'200.158.19.131',1193234263,1,0,1,1,1,1,'','','[code:372grjbi]\n\n// Testing a VAL&#40;&#41;\n\n#Include &quot;FiveWin&#46;Ch&quot;\n\n//------------------------------------------------------------------------//\n\nFunction Main&#40;&#41;\n\n   LOCAL oDlg\n   LOCAL cVAL &#58;= &quot;4209253717027162&quot;\n   LOCAL oGet\n\n   DEFINE DIALOG oDlg TITLE &quot;Just a get&quot;\n\n   @ 1&#46;5,  2 SAY &quot;Val&#58;&quot; OF oDlg\n\n   @ 2,  6 GET oGet VAR cVAL OF oDlg SIZE 80, 12  ;\n           VALID ! Empty&#40; cVAL &#41;\n\n   @ 3,  7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12       ;\n           ACTION &#40; Calcula_Val&#40; cVAL &#41; &#41;\n\n   @ 3, 16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg   ;\n           ACTION &#40; oDlg&#58;End&#40;&#41; &#41; CANCEL\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\n/*\nVAL&#40;&quot;4209253717027162&quot;+&quot;1&quot;&#41;\n\npero el resultado que me arroja la funcion Val&#40;&#41; es&#58; \n\n42092537170271624\n\nDesde Clipper&#58;  VAL&#40;A&#41; + VAL&#40;B&#41;\n*/\n\nStatic Function Calcula_Val&#40; cVAL &#41;\n\n    LOCAL bVal &#58;= &quot;1&quot;\n    LOCAL A, B, nResuelta\n\n    A &#58;=  VAL&#40; cVAL &#41;\n    B &#58;=  VAL&#40; bVAL &#41;\n\n    nResuelta &#58;= A + B\n\n    ? nResuelta\n\nReturn&#40; &#46;T&#46; &#41;\n\n//-&gt; FIN\n[/code:372grjbi]','',0,'AIA=','372grjbi',1,0,'',362,0,0),(40237,8607,3,58,0,'84.149.71.237',1193235163,1,0,1,1,1,0,'','','Thanks, Barry\n\nthe response in this forum is unbelievable.\n\nRegards,\nDetlef','',0,'AIA=','3omhcct8',1,0,'',58,0,0),(40238,8606,1,1077,0,'80.77.147.50',1193236248,1,0,1,1,1,0,'','hi','I AM NOT SURE WHAT EXACTLY YOU NEED BUT I THINK THIS IS IT ...\nAsk if you need something to explain ...\nBest Regards,\n\n----------------------------------------------------\n\n// Testing\n\n#include \"FiveWin.ch\"\n\n//------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg\n   local nYear  := 2000\n   local nMonth := 1\n   local nOrder := 1\n   local oDay\n   local cDay   := \"Monday\"\n   local aDays  := { \"Monday\", \"Tuesday\", \"Wednesday\", \"Thursday\", ;\n                     \"Friday\", \"Saturday\", \"Sunday\" ;\n                   }\n\n   SET DATE GERMAN\n   SET EPOCH TO 1980\n\n   DEFINE DIALOG oDlg TITLE \"Date ...\" SIZE 300,200 PIXEL\n\n   @   5,  5 SAY \"Year:\"  OF oDlg PIXEL\n   @  20,  5 SAY \"Month:\" OF oDlg PIXEL\n   @  35,  5 SAY \"Order:\" OF oDlg PIXEL\n   @  35, 90 SAY \"St\"     OF oDlg PIXEL\n   @  50,  5 SAY \"Day:\"   OF oDlg PIXEL\n\n   @   5, 50 GET nYear     OF oDlg SIZE 35, 12 PIXEL PICTURE \"9999\" ;\n             VALID nYear   &gt;= 2000 .and. nYear  &lt;= 2999\n   @  20, 50 GET nMonth    OF oDlg SIZE 35, 12 PIXEL PICTURE \"99\" ;\n             VALID nMonth  &gt;= 1    .and. nMonth &lt;= 12\n   @  35, 50 GET nOrder    OF oDlg SIZE 35, 12 PIXEL PICTURE \"9\" ;\n             VALID nOrder  &gt;= 1    .and. nOrder &lt;= 5\n   @  50, 50 COMBOBOX oDay VAR cDay ITEMS aDays OF oDlg SIZE 55,100 PIXEL\n\n   @  65,  5 BUTTON \"&amp;Date\" OF oDlg SIZE 35,12 ;\n             ACTION MsgInfo(GetDate(oDlg,nYear,nMonth,nOrder,cDay)) ;\n             PIXEL\n   @  65, 50 BUTTON \"&amp;End\"  OF oDlg SIZE 35,12 ACTION oDlg:End()    PIXEL\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nfunction GetDate(oDlg,nYear,nMonth,nOrder,cDay)\n\nlocal aDaysInMonth := {}\nlocal dDate := ctod (\" \")\nlocal nOrdered := 0\nlocal i := 0\n\nfor i = 1 to 31\n    dDate := ctod( strzero(i,2)+\".\"+strzero(nMonth,2)+\".\"+right(strzero(nYear,4),2) )\n    if day(dDate) &gt; 0\n       aadd( aDaysInMonth , {dDate, cdow(dDate)} )\n    endif\nnext\n\nnOrdered := 0\n\nfor i = 1 to len(aDaysInMonth)\n    if aDaysInMonth[i,2] = cDay\n       nOrdered := nOrdered + 1\n       if nOrdered = nOrder\n          return aDaysInMonth[i,1]\n       endif\n    endif\nnext\n\nreturn \"No requested day !\"','',0,'','3lfybr1u',1,0,'',1077,0,0),(40239,8427,6,106,0,'85.34.123.173',1193238722,1,0,1,1,1,1,'','','Antonio,\n\nEn la barra de mensajes encuentro un problema.\nSiempre pongo mensajes de lo que está sucediendo en la barra de mensajes, sobre todo cuando son procesos largos, por ejemplo recalculo de stock. Luego de cambiar muchas veces el mensaje en la barra (ademas de que es muchisimo mas lento que sin la apariencia 2007, me hace lio con la grafica, ralentando todo el sistema.\n\noWnd:SetMsg( cMsg ) \n(Mientras tanto, tambien uso un meter)\n\n\nClaramente lo llamo cada vez que cambio articulo (producto) en el caso que sean muchos, mas de 10 mil, se comporta en el modo anteriormente descripto.\n\n\nSaludos.\n\n\nP.D. probé a crear un ejemplo autocontenido con un FOR, y claramente no me da el error... lo hice sin el meter...','',0,'','20bmzfxy',1,0,'',106,0,0),(40240,8601,6,255,0,'201.122.36.212',1193238968,1,0,1,1,1,1,'','','Puedes usar \"HandHeld Basic\" es el mejor ambiente de desarrollo para PalmOS (desde mi punto de visa)\n\n<!-- m --><a class=\"postlink\" href=\"http://www.handheld-basic.com/\">http://www.handheld-basic.com/</a><!-- m -->\n\n\nSaludos','',0,'','3p1l7q4e',1,0,'',255,0,0),(40241,8427,6,2,0,'87.218.146.128',1193238971,1,0,1,1,1,1,'','','Pedro,\n\nEl error solo aparece al usar tambien el meter ?','',0,'','3u7lrg6s',1,0,'',2,0,0),(40242,5674,3,34,0,'68.5.217.82',1193239615,1,0,1,1,1,1,'','Understanding','Patrick,\n\nIts not just programmers and their tools.  I have hundreds of clients who have used the DOS version of my program for 10, 15, 20 years and still think I should support it for Free.  Since it works, they don\'t want to pay to upgrade to windows.  I hear every excuse in the book, like \"Bob didn\'t treat me right so you owe me.\"  Of course, Bob hasn\'t been with the company for about 19 years.\n\nTHe problem is that I have to base my purchase decisions on being able to sell product which, when slow, means I can\'t afford to invest in new or updated tools.  Its a delicate balancing act.  Making improvements may satisfy my current client base, but means nothing to buyers of upgrades or new clients.  Thats why I appreciate reasonable pricing for updates offered by many companies.\n\nTim','',0,'','vy4k9grz',1,0,'',34,0,0),(40243,8427,6,106,0,'85.34.123.173',1193239965,1,0,1,1,1,1,'','','Antonio,\n\nexacto','',0,'','ctowgmim',1,0,'',106,0,0),(40244,8540,3,448,0,'82.155.3.32',1193242611,1,0,1,1,1,0,'','','It works with dialogs but not with mdichilds.\n\nAntonio','',0,'','3rs77qze',1,0,'',448,0,0),(40245,8608,3,234,0,'75.34.217.174',1193242671,1,0,1,1,1,1,'','DOS Error 64','I have a client receiving a strange DOS error 64. They have installed server 2003 standard edition without active directory. However they copied data from another server 2003 standard edition running active directory. Is it possible permission rights are causing a problem?\n\nThank you,','',0,'','2gklawqj',1,0,'',234,0,0),(40246,8593,6,1178,0,'200.24.127.11',1193244359,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3ufwog3u]Ruben,\n\nPrueba así:\n\noReport:SetShdColor( CLR_GREEN )[/quote:3ufwog3u]\n\nGracias Antonio , Me funciono Correctamente.','',0,'gA==','3ufwog3u',1,0,'',1178,0,0),(40247,8552,6,1178,0,'200.24.127.11',1193246209,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2uftgrc4]Ruben,\n\nSolo los *.PRG. Si usas xHB builder, puedes usar este proyecto:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/63752550/Fivehmx.xbp.zip.html\">http://rapidshare.com/files/63752550/Fi ... p.zip.html</a><!-- m -->[/quote:2uftgrc4]\n\n\nGracias Antonio, Al desempaquetar el archivo aparece este archivo  [b:2uftgrc4]Fivehmx.lib.xbp[/b:2uftgrc4]\n\nMi pregunta como ejecuto este archivo en xharbour para contruir la libreria .\n\nExiste otro similar para Harbour o sirbe el mismo, hay algun utilitario para recopilar las FWH Tengo la version 2.7\n\nSaludos.','',0,'wA==','2uftgrc4',1,0,'',1178,0,0),(40248,8608,3,6,0,'87.20.214.182',1193250149,1,0,1,1,1,1,'','Re: DOS Error 64','[quote:uysz0eg4]64 Network name was denied[/quote:uysz0eg4]\n\nEMG','',0,'gA==','uysz0eg4',1,0,'',6,0,0),(40249,8540,3,2,0,'87.218.146.128',1193250531,1,0,1,1,1,1,'','','Antonio,\n\nPlease try this:\n[code:31j6colk]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Center test&quot; MDI\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT BuildChild&#40; oWnd &#41;\n\nreturn nil\n\nfunction BuildChild&#40; oWnd &#41;\n\n   local oChild\n\n   DEFINE WINDOW oChild TITLE &quot;Test&quot; MDICHILD\n\n   WndTop&#40; oChild&#58;hWnd, oWnd&#58;nHeight / 7 &#41;\n   WndLeft&#40; oChild&#58;hWnd, oWnd&#58;nWidth / 10 &#41;\n\nreturn nil\n[/code:31j6colk]','',0,'AIA=','31j6colk',1,0,'',2,0,0),(40250,8608,3,234,0,'75.34.217.174',1193250577,1,0,1,1,1,1,'','','Hi Enrico,\n\nThank you. I did look up the code but I wanted to find out what caused the message in the first place.','',0,'AIA=','3qqwpmux',1,0,'',234,0,0),(40251,8552,6,2,0,'87.218.146.170',1193251880,1,0,1,1,1,1,'','','&gt; este archivo Fivehmx.lib.xbp \n\nDisculpa, ese archivo es sólo para xharbour builder (versión comercial).\n\nPuedes recompilar los PRGs de FWH usando este BAT:\n\nfor %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fivehx.lib -+ %%f /0 /P32,,','',0,'AIA=','3vzmkzsl',1,0,'',2,0,0),(40252,8427,6,2,0,'87.218.146.170',1193252139,1,0,1,1,1,1,'','','Pedro,\n\nPor favor prueba a modificar la Clase TMsgBar y añádele este estilo: WS_CLIPCHILDREN\n\nEspero tus comentarios, gracias','',0,'AIA=','2mhf7pqv',1,0,'',2,0,0),(40253,5674,3,103,0,'189.43.121.190',1193252451,1,0,1,1,1,1,'','','Tim,\n\n[quote:3c7j9kh9]Its not just programmers and their tools. I have hundreds of clients who have used the DOS version of my program for 10, 15, 20 years and still think I should support it for Free. Since it works, they don\'t want to pay to upgrade to windows. I hear every excuse in the book, like \"Bob didn\'t treat me right so you owe me.\" Of course, Bob hasn\'t been with the company for about 19 years. \n\nTHe problem is that I have to base my purchase decisions on being able to sell product which, when slow, means I can\'t afford to invest in new or updated tools. Its a delicate balancing act. Making improvements may satisfy my current client base, but means nothing to buyers of upgrades or new clients. Thats why I appreciate reasonable pricing for updates offered by many companies.[/quote:3c7j9kh9]\n\nI have the same situation here in Brazil and I entirely agree with you.\n\nBest regards,','',0,'gA==','3c7j9kh9',1,0,'',103,0,0),(40254,8586,3,103,0,'189.43.121.190',1193252710,1,0,1,1,1,1,'','','Antonio,\n\n    Can you tell me why you don\'t recommend this way? I use this instead of changing the original method and have to recreate the FIVEHX or recompile the prg with my project.\n\nBest regards,','',0,'gA==','27qicsjh',1,0,'',103,0,0),(40255,8496,3,2,0,'87.218.146.170',1193253261,1,0,1,1,1,1,'','','NageswaraRao,\n\nFixed, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nI send you the new libs','',0,'gA==','ptf9ode1',1,0,'',2,0,0),(40256,8586,3,2,0,'87.218.146.170',1193253439,1,0,1,1,1,1,'','','Kleyber,\n\nIt may work fine, I agree, but the right way to modify a class is to inherit a new one from it, using object oriented programming','',0,'gA==','68urufo3',1,0,'',2,0,0),(40257,8586,3,103,0,'189.43.121.190',1193253835,1,0,1,1,1,1,'','','Antonio,\n\n    Now I understand. Thanks for clarifyng.\n\nBest regards,','',0,'gA==','28lx4ps0',1,0,'',103,0,0),(40258,8609,3,51,0,'80.122.88.242',1193253899,1,0,1,1,1,0,'','Buttonbar 2007 button with a attached Popup menu','Does someone know how to open the attached popup menu with a click on the button.\n(Like in WORD  Button: “Formatvorlagen”)\nRegards,\nOtto','',0,'gA==','3cgrsv72',1,0,'',51,0,0),(40259,8591,6,940,0,'189.175.212.254',1193255702,1,0,1,1,1,1,'','','claro Leandro,\n\ncontactame, a <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\nsaludos..','',0,'gA==','1yldpfy6',1,0,'',940,0,0),(40260,8603,2,2,0,'87.218.146.170',1193258342,1,0,1,1,1,1,'','','Carlos,\n\nPuedes volver a crear un menu nuevo y asignarlo de nuevo a la ventana:\n\noWnd:oMenu:End()\noWnd:SetMenu( BuildMenu() )\n\nfunction BuildMenu()\n...aqui construyes el menu nuevo...\nreturn oMenu','',0,'gA==','1ug4tqxy',1,0,'',2,0,0),(40261,8610,2,542,0,'79.144.221.243',1193262267,1,0,1,1,1,0,'','Picture para claves','Hola de nuevo:\n\nTengo que pedir una clave y quiero que en vez de escribir el caracter escriba un *, alguien me puede recordar como se hace.\n\nGracias','',0,'gA==','c4gpwtdo',1,0,'',542,0,0),(40262,8591,6,348,0,'201.240.95.50',1193265766,1,0,1,1,1,0,'','','Gracias Cesar por tu ofrecimiento, seguro yo tambien te estare molestando\n\n\nEsperemos con esto motivar a abrir quizas una nueva seccion o blog en este foro que reunan las experiencias con esta alternativa de AdoRDD??? o para aplicaciones con SQL usando (x)Harbour\n  \nY a la comunidad de Harbour con manejo de SQl ,,  nos dan una mano ?? \n\nGracias de antemano\n\nLubin \n\n\n[quote=&quot;sysctrl2&quot;:1de5ay2i]claro Leandro,\n\ncontactame, a <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\nsaludos..[/quote:1de5ay2i]','',0,'gA==','1de5ay2i',1,0,'',348,0,0),(40263,8609,3,868,0,'219.64.121.60',1193267523,1,0,1,1,1,1,'','','[code:3ui8pmr3]\nDEFINE BUTTON OF oBar NOBORDER ;\n   PROMPT \'SubMenu\' ;\n   MENU MyPopUp&#40;&#41; ;\n   ACTION MsgInfo&#40;\'Can have action and also submenu\'&#41;\n\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\n\n// -------------------\nSTATIC FUNCTION MyPopUp&#40;&#41;\n\nLOCAL oPop\n\n   MENU oPop POPUP\n      MENUITEM \'One\'\n      MENUITEM \'Two\'\n   ENDMENU\n\nRETURN oPop\n[/code:3ui8pmr3]','',0,'AIA=','3ui8pmr3',1,0,'',868,0,0),(40264,8611,2,890,0,'200.24.110.241',1193271932,1,0,1,1,1,0,'','Avi desde recursos','Hola a todos\nDios bendiga vuestros caminos\n\nTengo puesto un pequño .avi desde recursos, alguien sabe como lo redefino en el codigo ? he escrito \n\nREDEFINE VIDEO oVideo ID \"#2020\"\n\nPero no me funciona \n\nCordialmente\n\nJairo Barbosa','',0,'AIA=','39wdvhvg',1,0,'',890,0,0),(40265,8612,7,358,0,'87.219.144.82',1193272593,1,0,1,1,1,0,'','Leer Gps','Hola a todos,\n\nLes dejo esta sencilla clase que permite conectar con un gps y obtener algunos de los parámetros de navegación que estos dispositivos proporcionan.\nEspero que sea de interés y podamos mejorarla entre todos.\nUtiliza unas funciones de comunicación que se pueden encontrar en:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8361\">http://fivetechsoft.com/forums/viewtopic.php?t=8361</a><!-- m -->\n\nSaludos.\nSalvador Gallardo \n\n[code:2jaerxkt]#include &quot;fwce&#46;ch&quot;\nFunction Main&#40; cCom &#41; // especifica el puerto como parámetro\n     LOCAL oWnd, oGps, nCom, oTimer\n     DEFAULT cCom &#58;= &quot;8&quot; // puerto Com&#58;8\n     nCom &#58;= VAL&#40;cCom&#41;\n\n\n    DEFINE WINDOW oWnd TITLE &quot;GPS TEST&quot;\n\n\n    oGps   &#58;= Tgps&#40;&#41;&#58;New&#40; oWnd &#41;\n    oTimer &#58;= Ttimer&#40;&#41;&#58;New&#40; 1000, &#123; || UpdateControls&#40; oWnd, oTimer &#41; &#125;, oWnd &#41;\n\n    @ 5,    5 SAY &quot;Fecha&quot;    SIZE 53, 20 RIGHT PIXEL\n    @ 5,   60 GET oGps&#58;cDate SIZE 80, 20 WHEN &#46;f&#46; PIXEL OF oWnd\n    @ 5,  145 GET oGps&#58;cTime SIZE 60, 20 WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 27,   5 SAY &quot;Lat&#46;&quot;    SIZE 53,20 RIGHT PIXEL\n    @ 27,  60 GET oGps&#58;cLat SIZE 80,20 WHEN &#46;f&#46; PIXEL OF oWnd\n    @ 27, 145 GET oGps&#58;cNS  SIZE 20,20 WHEN &#46;f&#46; PIXEL  OF oWnd\n\n    @ 50,   5 SAY &quot;Long&#46;&quot;    SIZE 53,20 RIGHT PIXEL\n    @ 50,  60 GET oGps&#58;cLong SIZE 80,20 WHEN &#46;f&#46; PIXEL OF oWnd\n    @ 50, 145 GET oGps&#58;cEW   SIZE 20,20 WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 72,  5 SAY &quot;Lat dec&#46;&quot;  SIZE 50,20 RIGHT PIXEL\n    @ 72, 60 GET oGps&#58;nLat   SIZE 80,20 PICTURE &quot;999&#46;999999&quot; RIGHT;\n    WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 94,  5 SAY &quot;Lon dec&#46;&quot;  SIZE 50,20 RIGHT PIXEL\n    @ 94, 60 GET oGps&#58;nLong  SIZE 80,20 PICTURE &quot;999&#46;999999&quot; RIGHT;\n    WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 118,  5 SAY &quot;Fix&quot;     SIZE 50,20 RIGHT PIXEL\n    @ 116, 60 GET oGps&#58;cFix SIZE 30,20 WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 140,  5 SAY &quot;Sats&quot;     SIZE 50,20 RIGHT PIXEL\n    @ 138, 60 GET oGps&#58;cSats SIZE 30,20 WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 162,  5 SAY &quot;Alt&#46;&quot;    SIZE 50,20 RIGHT PIXEL\n    @ 160, 60 GET oGps&#58;cAlt SIZE 60,20 WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 184,  5 SAY &quot;Veloc&#46;&quot;    SIZE 50,20 RIGHT PIXEL\n    @ 182, 60 GET oGps&#58;cSpeed SIZE 60,20 WHEN &#46;f&#46; PIXEL OF oWnd\n\n    @ 204, 5  GET oGps&#58;cNMEA SIZE 232,40 WHEN &#46;f&#46; MULTILINE;\n     NO VSCROLL PIXEL OF oWnd\n\n    @ 258, 5 BUTTON &quot;CONECTAR&quot; SIZE 95, 25 PIXEL;\n    ACTION &#40; oGps&#58;Conecta&#40; nCom &#41;, oTimer&#58;Activate&#40;&#41;&#41;;\n\n     @ 258, 110 BUTTON &quot;DESCONECTAR&quot; SIZE 95, 25 PIXEL;\n    ACTION &#40; oTimer&#58;Deactivate&#40;&#41;, oGps&#58;Desconecta&#40;&#41; &#41;\n\n    ACTIVATE WINDOW oWnd;\n    VALID &#40; oTimer&#58;End&#40;&#41;, oGps&#58;end&#40;&#41;, &#46;t&#46;&#41;\n\n\nRETURN &#46;t&#46;\n\n\n///////////////////////////////////////////////////////\n// Mini Clase TGps\n//\n// Lectura de sentencias NMEA GPGGA y GPRMC de un GPS\n// son las necesarias para conocer fecha, hora, posición, velocidad\n// Probado con GPS bluetooth en Com&#58;8 e IPAQ HP2210\n//\n// Autor&#58; Salvador Gallardo 2007\n//\n///////////////////////////////////////////////////////\n\n#define LENNMEA      1024     // longitud cadena leida 3 sentencias minimo\n#define READINTERVAL 1500     // intervalo de lectura del puerto en ms&#46;\n#define NRETRY       10       // reintentos de lectura del puerto\n#define BAUDS        4800     // velocidad de recepcion\n\n\nCLASS TGps\n\nDATA lGps                  // hay conexion con el gps\nDATA oTimer                // intervalo de tiempo para leer el puerto\nDATA oWnd                  // ventana asociada los timers estan asociados a una window\nDATA aNMEA                 // array con las sentencias nmea leidas\nDATA cNMEA                 // ultima sentencia interpretada\nDATA cTime                 // hora\nDATA cDate                 // fecha\nDATA cLat, cLong           // latitud y longitud en formato //dddmm&#46;mmmm,ddddmm&#46;mmmm\nDATA cNS, cEW              // indicadores de N/S E/O\nDATA nLat, nLong           // latitud y longitud en formato decimal dd&#46;mmmmmmmm\nDATA cFix                  // fix del gps 0= invalido 1= valido\nDATA cSats                 // satelites usados\nDATA cAlt                  // altitud\nDATA cSpeed                // velocidad\nDATA CMsgErr               // guarda estado conexion con gps\nDATA nHdlCom               // handle del puerto de comunicaciones\nDATA nRetry                // reintentos sin recibir datos del GPS\nDATA lLog                  // hace log de los datos en una dbf\n\nMETHOD New&#40; oWnd &#41; CONSTRUCTOR\nMETHOD Conecta&#40; nCom &#41;\nMETHOD Desconecta&#40; &#41;\nMETHOD LeeNMEA&#40;&#41;          // lee datos del gps\nMETHOD GPGGA&#40; cCad &#41;     // procesa sentencia GPGGA\nMETHOD GPRMC&#40; cCad &#41;     // procesa sentencia GPRMC\nMETHOD End&#40;&#41;\n\nENDCLASS\n\nMETHOD New&#40; oWnd &#41; CLASS TGps\n\n&#58;&#58;aNMEA     &#58;= Array&#40;3&#41; // se leen 3 sentencias cada vez\n&#58;&#58;lGps      &#58;= &#46;f&#46;\n&#58;&#58;cMsgErr   &#58;= &quot;INIT&quot;\n&#58;&#58;oWnd      &#58;= oWnd\n&#58;&#58;nRetry    &#58;= 0\n&#58;&#58;oTimer    &#58;= TTimer&#40;&#41;&#58;New&#40; READINTERVAL, &#123; || &#58;&#58;LeeNMEA&#40;&#41;&#125;, &#58;&#58;oWnd &#41;\n&#58;&#58;lLog      &#58;= &#46;f&#46;\n&#58;&#58;nLat      &#58;= 0\n&#58;&#58;nLong     &#58;= 0\nRETURN self\n\n\n////////////////////////////////////////////////////////////////\nMETHOD Conecta&#40; nCom &#41; CLASS TGps\n\n&#58;&#58;nHdlCom &#58;= OpenCom&#40; nCom, BAUDS &#41;\n\n IF &#58;&#58;nHdlCom &lt; 0\n    &#58;&#58;lGps    &#58;= &#46;f&#46;\n    &#58;&#58;cMsgErr &#58;=  &quot;FALLO AL ABRIR EL COM&#58;&quot;+ Str&#40; nCom,2 &#41;\n ENDIF\n &#58;&#58;cMsgErr &#58;=  &quot;PUERTO ABIERTO&quot;\n &#58;&#58;oTimer&#58;Activate&#40;&#41;\nRETURN nil\n\n/////////////////////////////////////////////////////////////////\nMETHOD DesConecta&#40;&#41; CLASS TGps\n\n&#58;&#58;oTimer&#58;Deactivate&#40;&#41;\nComClose&#40; &#58;&#58;nHdlCom &#41;\n&#58;&#58;lGps    &#58;= &#46;f&#46;\n&#58;&#58;cMsgErr &#58;=  &quot;DESCONECTADO DEL GPS&quot;\n\nRETURN nil\n\n//////////////////////////////////////////////////////////////////\n//\n// LeeNMEA&#40;&#41;\n// Lee el puerto y si hay datos los interpreta\n///////////////////////////////////////////////////////////////////\nMETHOD LeeNMEA&#40;&#41;  CLASS TGps\nLOCAL  c, cBuffer\n\n&#58;&#58;oTimer&#58;Deactivate&#40;&#41;\ncBuffer &#58;= ComRead&#40; &#58;&#58;nHdlCom, LENNMEA &#41;\n\nIF Len&#40; cBuffer &#41; &lt;= 0\n  &#58;&#58;nRetry ++\n  IF&#58;&#58;nRetry &gt; NRETRY\n     &#58;&#58;lGps    &#58;= &#46;f&#46;\n     &#58;&#58;cMsgErr &#58;= &quot;PERDIDA CONEXION&quot;\n  ENDIF\n  ELSE\n    &#58;&#58;nRetry &#58;= 0\n    FOR c &#58;= 1 TO LEN&#40; &#58;&#58;aNMEA &#41;\n      &#58;&#58;aNMEA&#91;c&#93; &#58;= StrToken&#40; cBuffer, c, &quot;$&quot; &#41; \n    NEXT\n\n    FOR c &#58;=  LEN&#40; &#58;&#58;aNMEA &#41; TO 1 STEP -1  // leemos ultimas sentencias\n\n      DO CASE\n        CASE AT&#40; &quot;GPGGA&quot;, &#58;&#58;aNMEA&#91;c&#93; &#41; ==1\n          IF ChkSum&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n              &#58;&#58;cNMEA   &#58;= &#58;&#58;aNMEA&#91;c&#93;\n              &#58;&#58;GPGGA&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n          ENDIF\n          EXIT\n        CASE AT&#40; &quot;GPRMC&quot;, &#58;&#58;aNMEA&#91;c&#93; &#41; ==1\n          IF ChkSum&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n              &#58;&#58;cNMEA   &#58;= &#58;&#58;aNMEA&#91;c&#93;\n              &#58;&#58;GPRMC&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n          ENDIF\n          EXIT\n      ENDCASE\n\n    NEXT\n\nENDIF\n\n&#58;&#58;oTimer&#58;Activate&#40;&#41;\n\nRETURN nil\n\n\n//////////////////////////////////////////////////////////////\n//\n// GPGGA&#40; cCad &#41;\n// Extrae los datos de una sentencia GPGGA\n////////////////////////////////////////////////////////////\nMETHOD GPGGA&#40; cCad &#41;  CLASS TGps\nLOCAL cHora, nLat, nLon, nGrados, nMinutos\n\nSET DECIMALS TO 6\n\ncHora     &#58;= StrToken&#40; cCad, 2, &quot;,&quot; &#41;\n&#58;&#58;cTime   &#58;= Substr&#40; cHora,1,2&#41;+&quot;&#58;&quot;+Substr&#40; cHora,3,2&#41;+&quot;&#58;&quot;+Substr&#40; cHora,5,2&#41;\n&#58;&#58;cLat    &#58;= StrToken&#40; cCad, 3, &quot;,&quot; &#41;\n&#58;&#58;cNS     &#58;= StrToken&#40; cCad, 4, &quot;,&quot; &#41;\n&#58;&#58;cLong   &#58;= StrToken&#40; cCad, 5, &quot;,&quot; &#41;\n&#58;&#58;cEW     &#58;= StrToken&#40; cCad, 6, &quot;,&quot; &#41;\n&#58;&#58;cFix    &#58;= StrToken&#40; cCad, 7, &quot;,&quot; &#41;\n&#58;&#58;cSats   &#58;= StrToken&#40; cCad, 8, &quot;,&quot; &#41;\n&#58;&#58;cAlt    &#58;= StrToken&#40; cCad, 10, &quot;,&quot; &#41;\n\n// calculamos latitud y longitud en decimal\n// es la que utiliza Google Maps\nnGrados  &#58;= Val&#40;SubStr&#40; &#58;&#58;cLat, 1, 2&#41; &#41;\nnMinutos &#58;= Val&#40;SubStr&#40; &#58;&#58;cLat, 3, 7&#41; &#41; /60\n&#58;&#58;nLat   &#58;= nGrados+ nMinutos* IIF&#40; &#58;&#58;cNS =&quot;S&quot;, -1, 1 &#41;\n\n// longitud\nnGrados   &#58;= Val&#40;SubStr&#40; &#58;&#58;cLong, 1, 3 &#41; &#41;\nnMinutos  &#58;= Val&#40;SubStr&#40; &#58;&#58;cLong, 4, 7 &#41; &#41; /60\n&#58;&#58;nLong   &#58;= nGrados+ nMinutos* IIF&#40; &#58;&#58;cNS =&quot;W&quot;, -1, 1 &#41;\n&#58;&#58;lGps    &#58;= &#46;t&#46;\n&#58;&#58;cMsgErr &#58;= &quot;OK&quot;\n\n\n// log de los datos leidos\n// hay que mejorar la gestion de la dbf\n// añadir fecha y hora\nIF  &#58;&#58;lLog &#46;AND&#46; VAL&#40; &#58;&#58;cFix &#41; != 0\n  use &#40;CURDIR&#40;&#41;+&quot;\\gps&#46;dbf&quot; &#41; VIA &quot;DBFCDX&quot;\n  append blank\n  replace lon with &#58;&#58;nLong\n  replace lat WITH &#58;&#58;nlat\n  replace fix WITH VAL&#40;&#58;&#58;cFix&#41;\n  replace sats WITH val&#40;&#58;&#58;cSats&#41;\n  replace clong WITH &#58;&#58;cLong\n  replace cLat  WITH &#58;&#58;cLat\n  USE\nendif\n\nRETURN nil\n\n////////////////////////////////////////////////////////////\n//\n// GPRMC&#40; cCad &#41;\n// Extrae los datos de una sentencia GPRMC\n////////////////////////////////////////////////////////////\n\nMETHOD GPRMC&#40; cCad &#41;  CLASS TGps\nLocal cFecha\n\ncFecha    &#58;= StrToken&#40; cCad, 10, &quot;,&quot; &#41;\n&#58;&#58;cDate   &#58;= Substr&#40; cFecha, 1, 2 &#41; + &quot;/&quot;+ Substr&#40; cFecha, 3, 2&#41; + &quot;/&quot;+ Substr&#40;cFecha, 5, 2 &#41;\n&#58;&#58;cSpeed  &#58;= StrToken&#40; cCad, 8, &quot;,&quot; &#41;\n&#58;&#58;lGps    &#58;= &#46;t&#46;\n&#58;&#58;cMsgErr &#58;= &quot;OK&quot;\n\nRETURN nil\n\n\n/////////////////////////////////////////////////////////\nMETHOD End&#40;&#41; CLASS TGps\n&#58;&#58;OTimer&#58;Deactivate&#40;&#41;\n&#58;&#58;oTimer&#58;End&#40;&#41;\nComClose&#40; &#58;&#58;nHdlCom &#41;\nRETURN nil\n\n\n//////////////////////////////////////////////////////////////////////\n// ChkSum&#40; cCad &#41;\n//\n// Calcula el checksum de la sentencia NMEA\n////////////////////////////////////////////////////////////////////7\nSTATIC Function ChkSum&#40; cCad &#41;\nLOCAL c, nLen, nSum1, nSum2\n\nnLen  &#58;= AT&#40; &quot;*&quot;, cCad &#41;\nnSum1 &#58;= HexToDec&#40; Substr&#40; cCad, nLen +1, 2 &#41; &#41; // el checksum esta apartir de &quot;*&quot;\nnSum2 &#58;= Asc&#40; Substr&#40; cCad, 1, 1 &#41; &#41; // cogemos el primer caracter a sumar\n\nFOR c &#58;= 2 TO nLen -1\n   nSum2 &#58;= nXor&#40; nSum2, Asc&#40; Substr&#40; cCad, c, 1 &#41; &#41; &#41;\nNEXT\n\nRETURN IIF&#40; nSum1 == nSum2, &#46;t&#46;, &#46;f&#46; &#41;\n\n\n\n//////////////////////////////////////////\n//\n// Actualiza los datos de la ventana\n//////////////////////////////////////////\n\nFunction UpdateControls&#40; oWnd, oTimer &#41;\nLOCAL c\noTimer&#58;Deactivate&#40;&#41;\nFor c = 1 to Len&#40;oWnd&#58;aControls&#41;\noWnd&#58;aControls&#91;c&#93;&#58;Refresh&#40;&#41;\nnext\n\noTimer&#58;Activate&#40;&#41;\nreturn &#46;t&#46;\n\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;math&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\n// funcion de FW adaptada a FWPPC\nHB_FUNC &#40;HEXTODEC&#41; \n&#123;\n   LPBYTE pString = &#40; LPBYTE &#41; hb_parc&#40; 1 &#41;;\n   WORD  w = 0, wLen = hb_parclen&#40; 1 &#41;;\n   BYTE  bChar;\n   LONG  nHex = 0;\n\n   while&#40; w &lt; wLen &#41;\n   &#123;\n      bChar = pString&#91; w &#93; ;\n      if &#40; bChar &gt;= 97 &#41; bChar -= 39;  // lowercase\n      if &#40; bChar &gt;= 65 &#41; bChar -= 7 ;  // uppercase\n      bChar -= 48;\n      nHex += bChar * pow&#40; 16, wLen - w - 1 &#41;;\n      w++;\n   &#125;\n\n   hb_retnl&#40; nHex &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:2jaerxkt]','',0,'AIA=','2jaerxkt',1,0,'',358,0,0),(40266,8600,19,303,0,'72.220.100.171',1193275111,1,0,1,1,1,0,'','','Adolfo,\n\nGo to this site and search for database software.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.palmgear.com/\">http://www.palmgear.com/</a><!-- m -->\n\nJames','',0,'AIA=','15pf6fdl',1,0,'',303,0,0),(40267,8607,3,303,0,'72.220.100.171',1193275734,1,0,1,1,1,0,'','','Detlef,\n\nAren\'t you using TData? Did you know that the data is already buffered?\n\nIn TData the fieldnames are stored in aFldnames.\n\nPerhaps if you explain what you are trying to do, I can help with a TData solution.\n\nJames','',0,'AIA=','51yx9mlu',1,0,'',303,0,0),(40268,5674,3,47,0,'203.144.160.247',1193277889,1,0,1,1,1,0,'','','I absolutely agree with you Tim.  My client thought we don\'t do anything only keep the system stable (support).  They do not get anything new, why they have to pay for help&amp;support.  I say, how can we serve (alive) you without pay (forever).  It has nothing for free, you have to pay in some way (money or labor).\n\nRegards,\nDutch','',0,'AIA=','3dignqzj',1,0,'',47,0,0),(40269,8612,7,2,0,'87.218.146.170',1193296489,1,0,1,1,1,1,'','','Salvador,\n\nMuchas gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2r862hgg',1,0,'',2,0,0),(40270,8609,3,51,0,'80.122.88.242',1193296824,1,0,1,1,1,0,'','','nageswaragunupudi , thank you for your answer.\nBut that is the code how to attach a popup menu.\n\nBut I need to open the attached popup menu with a click on the button. \n(Like in WORD Button: “Formatvorlagen”)\n\nHere a jpg:\n[img:3u4fuuhz]http&#58;//www&#46;atzwanger&#46;com/fw/buttonPopup&#46;jpg[/img:3u4fuuhz][img:3u4fuuhz]http&#58;//www&#46;atzwanger&#46;com/fw/word&#46;jpg[/img:3u4fuuhz]','',0,'CA==','3u4fuuhz',1,0,'',51,0,0),(40271,6332,6,456,0,'217.127.39.57',1193298664,1,0,1,1,1,1,'','','[quote=&quot;MOISES&quot;:2yojr5d0]Yo también probaría Fast Report, que es mucho más barato y ocupa muchísimo menos.\n\nUn demo en <!-- m --><a class=\"postlink\" href=\"http://www.canudas.com/xbase/FastDemo.rar\">http://www.canudas.com/xbase/FastDemo.rar</a><!-- m -->\n\nSalu2[/quote:2yojr5d0]\nHola Moises, la verdad es que no me importaria probarlo, pero hay que encontrar tiempo para tantas cosas. Por ahora no puedo probar Fast Report, así que espero que alguien lo testee y nos diga que tal funciona con FiveWin.','',0,'gA==','2yojr5d0',1,0,'',456,0,0),(40272,8613,3,22,0,'88.41.18.74',1193298962,1,0,1,1,1,0,'','Cyrillic translation','I need to translate an application to cyrillic (only static text and message).\nCan I do this with FWH?\nHow can I show unicode text on a dialog?\n\nThank in advance\nGianni','',0,'gA==','1kx5dmqk',1,0,'',22,0,0),(40273,8614,3,1082,0,'82.187.120.133',1193299165,1,0,1,1,1,0,'','Convert obj from 16 to 32 bit','Hallo,\nI have a old \"FILEXY.obj\", when I link it by borland Link 5.00 it send me that message: \nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unsupported 16-bit segment(s) in module FILEXY\n\nis there any utility to converte it in 32 bit?\n\nthanks','',0,'gA==','oc0sudm5',1,0,'',1082,0,0),(40274,8607,3,58,0,'84.149.69.23',1193299583,1,0,1,1,1,0,'','','James,\n\nthanks for your kind offer.\nBut my problem concerned a mere MS DOS program where i had dbf and field names in an array and had to update those fields in a loop from each dbf.\n\nThanks and regards,\nDetlef','',0,'gA==','3lv3q6hh',1,0,'',58,0,0),(40275,8612,7,456,0,'217.127.39.57',1193299696,1,0,1,1,1,1,'','','Gracias Salvador, buen aporte. \nJusto antes de irme de vacaciones, estaba con el tema GPS y mirando las sentencias NMEA. Tenia en mente desarrollar una clase para conexion y lectura de datos del GPS. Y mira por donde que tu tambien estabas en lo mismo.\n Muchas gracias por compartir la clase, la probare y ya te comentare que tal me ha funcionado.','',0,'gA==','1wgz82ix',1,0,'',456,0,0),(40276,8614,3,2,0,'87.218.146.170',1193302104,1,0,1,1,1,1,'','','Damiano,\n\n&gt; is there any utility to converte it in 32 bit?\n\nNo, sorry. You need the original source code to build the OBJ again, this time in 32 bits','',0,'gA==','3exkeb9u',1,0,'',2,0,0),(40277,8540,3,448,0,'82.155.3.32',1193303862,1,0,1,1,1,0,'','','Antonio,\n\nIt doesn\'t center it. My resolution is 1400x1050.\n\nAntonio','',0,'gA==','ngy6pjhq',1,0,'',448,0,0),(40278,8609,3,2,0,'87.218.146.170',1193304168,1,0,1,1,1,1,'','','Otto,\n\nPlease add this method to class TBtnBmp:\n[code:j0hrnnnj]\nMETHOD ShowPopup&#40;&#41; CLASS TBtnBmp\n\n   local oWnd\n\n   if &#58;&#58;oPopup != nil\n      if &#58;&#58;oWnd&#58;oWnd != nil &#46;and&#46; Upper&#40; &#58;&#58;oWnd&#58;oWnd&#58;Classname&#40;&#41; &#41; == &quot;TBAR&quot;\n         oWnd &#58;= &#58;&#58;oWnd&#58;oWnd\n      else\n         oWnd &#58;= &#58;&#58;oWnd\n      endif\n      if GetClassName&#40; GetParent&#40; Self&#58;hWnd &#41; &#41; != &quot;TBAR&quot;\n         oWnd = oWndFromhWnd&#40; GetParent&#40; Self&#58;hWnd &#41; &#41;\n      endif\n      oWnd&#58;NcMouseMove&#40;&#41; // close the tooltip\n      oWnd&#58;oPopup = &#58;&#58;oPopup\n      &#58;&#58;oPopup&#58;Activate&#40; &#58;&#58;nTop + &#58;&#58;nHeight&#40;&#41;, &#58;&#58;nLeft, oWnd, &#46;f&#46; &#41;\n      oWnd&#58;oPopup = nil\n      &#58;&#58;Refresh&#40;&#41;\n   endif   \n\nreturn nil\n[/code:j0hrnnnj]\nTo use it, simply do:\n[code:j0hrnnnj]\n   MENU oPopup POPUP\n      MENUITEM &quot;One&quot; ACTION MsgInfo&#40; 1 &#41;\n      MENUITEM &quot;Two&quot; ACTION MsgInfo&#40; 2 &#41;\n   ENDMENU\n\n   DEFINE BUTTON oBtn OF oBar ACTION oBtn&#58;ShowPopup&#40;&#41; ;\n      RESOURCE &quot;people&quot; PROMPT &quot;Clients&quot; GROUP ;\n      MENU oPopup\n[/code:j0hrnnnj]','',0,'AIA=','j0hrnnnj',1,0,'',2,0,0),(40279,8615,3,1082,0,'82.187.120.133',1193304291,1,0,1,1,1,0,'','error on myfile.exe','I compiled my .prg (about 50 files) and created myfile.exe about 2800KB\nrun myfile.exe and exit the error\n\nUnrecoverable ERROR 9000:\n\',yX\' was compiled by older version, PCODE  version 4907805 in no longer supported - please recompile','',0,'AIA=','21vqynjm',1,0,'',1082,0,0),(40280,8540,3,2,0,'87.218.146.170',1193304466,1,0,1,1,1,1,'','','Antonio,\n\nHere it is working fine on 1280x1024.\n\nAre you running the same test ?','',0,'AIA=','17ozv4jr',1,0,'',2,0,0),(40281,8615,3,2,0,'87.218.146.170',1193304604,1,0,1,1,1,1,'','','You have not used the same xHarbour build to compile all your PRGs including FWH ones, and third party libraries\n\nPlease recompile all the PRGs using your current compiler build','',0,'AIA=','3r6njs50',1,0,'',2,0,0),(40282,8615,3,2,0,'87.218.146.170',1193304679,1,0,1,1,1,1,'','','What xHarbour build are you using ?\n\n&gt; \',yX\' was compiled by older version, PCODE version 4907805\n\nthat looks like a xHarbour bug','',0,'AIA=','288ha7qo',1,0,'',2,0,0),(40283,8610,2,2,0,'87.218.146.170',1193304790,1,0,1,1,1,1,'','','Añade la cláusula PASSWORD al GET:\n\n@ 2, 2 GET oGet VAR cPassword OF oDlg PASSWORD\n\nó \n\nREDEFINE GET oGet ... PASSWORD','',0,'AIA=','v6yt4ios',1,0,'',2,0,0),(40284,8611,2,2,0,'87.218.146.170',1193304944,1,0,1,1,1,1,'','','Jairo,\n\nTienes que incluir el AVI en el recurso de esta forma:\n\n2020 AVI \"test.avi\"\n\ny desde el código hacer:\n\nREDEFINE VIDEO oVideo ID 2020\n\nEl número 2020 es arbitrario. Puedes usar el que quieras','',0,'AIA=','39ikh96m',1,0,'',2,0,0),(40285,8615,3,1082,0,'82.187.120.133',1193305188,1,0,1,1,1,0,'','','I use FWH 7.10 and compile my files by .bat with follow...\n\nFOR %%i IN (*.prg) DO c:\\xharbour\\bin\\harbour %%i /es2 /n /ic:\\FWH\\include;%hdir%\\include /w0 /p %2 %3 &gt;&gt; clip.log\n....','',0,'AIA=','29gxt6vm',1,0,'',1082,0,0),(40286,8608,3,6,0,'87.3.228.122',1193305486,1,0,1,1,1,1,'','','I don\'t know, sorry. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','c88bss6g',1,0,'',6,0,0),(40287,8608,3,2,0,'87.218.146.170',1193305944,1,0,1,1,1,1,'','','Darrell,\n\nAre you using \\\\machine_name\\... somewhere in your app ?','',0,'AIA=','1ahwoyqo',1,0,'',2,0,0),(40288,8575,6,1200,0,'201.48.242.33',1193306159,1,0,1,1,1,0,'','','Lubin e amigos,\n\nMe parece haver um entendimento equivocado do Anti-Virus com o gerador de instalação ( CREATE INSTALL ).\n\nDe qualquer forma disponibilizei o VRMM sem o instalador.\n\nAgora há uma opção de download do VRMM em ZIP FILE. ( Lubin, descarregue a opção ZIP e verifique, por favor. Me dê una resposta. )\n\nMas una novidade: O VRMM ganhou site definitivo: <!-- w --><a class=\"postlink\" href=\"http://www.vrmm.com.br\">www.vrmm.com.br</a><!-- w -->\n\n\nsaludos,\n\nRicardo Marques','',0,'AIA=','3u2n4vqb',1,0,'',1200,0,0),(40289,8616,3,1200,0,'201.48.242.33',1193306783,1,0,1,1,1,0,'','VRMM - Visual FW - Official website','Friends,\n\nThe official website of VRMM is: <!-- w --><a class=\"postlink\" href=\"http://www.vrmm.com.br\">www.vrmm.com.br</a><!-- w -->\n\nNow, option zip-file download.\n\n\nRicardo Marques','',0,'AIA=','1h6qtmvi',1,0,'',1200,0,0),(40290,2486,16,2,0,'87.218.146.170',1193307523,1,0,1,1,1,1,'','','October builds:\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/65044914/xharbour.exe.html\">http://rapidshare.com/files/65044914/xharbour.exe.html</a><!-- m -->','',0,'AIA=','141zl8bp',1,0,'',2,0,0),(40291,8615,3,2,0,'87.218.146.170',1193307560,1,0,1,1,1,1,'','','Damiano,\n\nPlease install and try it again with this new xHarbour build:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=40290#40290\">http://fivetechsoft.com/forums/viewtopi ... 0290#40290</a><!-- m -->','',0,'AIA=','h6vwym7l',1,0,'',2,0,0),(40292,8617,6,1200,0,'201.48.242.33',1193307676,1,0,1,1,1,0,'','VRMM - Visual FW - Sitio oficial','Amigos,\n\nSitio oficial de VRMM-Visual FW: <!-- w --><a class=\"postlink\" href=\"http://www.vrmm.com.br\">www.vrmm.com.br</a><!-- w -->\n\n\nSaludos,\n\nRicardo Marques','',0,'AIA=','2dxo4tui',1,0,'',1200,0,0),(40293,8616,3,2,0,'87.218.146.170',1193307839,1,0,1,1,1,1,'','','Ricardo,\n\n\"FiveWin\" is a registered brand name that belongs to FiveTech Software company.\n\nWe kindly request you to rename your tool in a different way, as it may cause confusion to FiveWin users. Many thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nA proposal: \"Visual FW\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3ahpbdrg',1,0,'',2,0,0),(40294,8617,6,2,0,'87.218.146.170',1193308046,1,0,1,1,1,1,'','','Ricardo,\n\n\"FiveWin\" es una marca registrada perteneciente a la empresa FiveTech Software.\n\nAmablemente te pedimos que nombres tu producto de otra forma. Visual FW, por ejemplo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\ngracias,','',0,'AIA=','1hqqej2f',1,0,'',2,0,0),(40295,8607,3,92,0,'80.33.133.32',1193309984,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:qag7deey]Detlef,\n\nAren\'t you using TData? Did you know that the data is already buffered?\n\nIn TData the fieldnames are stored in aFldnames.\n\nPerhaps if you explain what you are trying to do, I can help with a TData solution.\n\nJames[/quote:qag7deey]\n\nWhere is Tdata class?\n\nThanks,\nCarlos G.','',0,'gA==','qag7deey',1,0,'',92,0,0),(40296,8427,6,106,0,'85.34.123.173',1193310938,1,0,1,1,1,1,'','','Antonio, \n\ncontinúa a dar el problema\n\n\ny cuando da el problema no puedo hacer un prit screen para mostrarlo.\n\nRalenta toda la parte grafica, me pinta la progressbar en el borde superior izquierdo, pero sigue pintando tambien la progressbar original, ademas de demorar muhicimo mas en pintar los mensajes.\n\n\nSaludos','',0,'gA==','12xox404',1,0,'',106,0,0),(40297,8427,6,2,0,'87.218.146.170',1193311710,1,0,1,1,1,1,'','','Pedro,\n\nEl problema es que el pintado del gradiente realiza bastante trabajo en el GDI (gráficos) creando muchos brushes y eliminándolos. Aunque la función está escrita en C, a Windows se le amontona el trabajo.\n\nMi sugerencia es que no uses el meter encima del statusbar, ó que pruebes a cambiarlo por un control \"progress\" propio de Win32, a ver si asi mejora','',0,'gA==','12ov4iaj',1,0,'',2,0,0),(40298,8618,2,1099,0,'88.14.181.110',1193311891,1,0,1,1,1,0,'','Como saber si existe la unidad A','Hola amigos,\n\nNecesitaría alguna rutina para saber si el PC tiene o no unidad A.\n\nTodo lo que he probado me dice si tengo o no disco en la unidad y, por tanto, el no tener disco es equivalente a no tener unidad, que no es lo que yo necesito.\n\nLo he probado con dirchange(), diskspace() e incluso directory()\n\nGracias por vuestra ayuda','',0,'gA==','2of4uyt3',1,0,'',1099,0,0),(40299,8606,1,1077,0,'80.77.147.50',1193314394,1,0,1,1,1,0,'','so','So is that or no ?\nAsk if need something else ....\nBest regards','',0,'gA==','36a2lgy4',1,0,'',1077,0,0),(40300,8427,6,106,0,'85.34.123.173',1193315102,1,0,1,1,1,1,'','','Antonio,\n\nVoy a buscar informacion entonces sobre \"progress\"\n\n\nGracias','',0,'gA==','3s21y2n9',1,0,'',106,0,0),(40301,8603,2,542,0,'80.30.47.90',1193315257,1,0,1,1,1,0,'','','Gracias Antonio ya me funciona como me has dicho','',0,'gA==','2crmnd0p',1,0,'',542,0,0),(40302,8608,3,234,0,'75.34.217.174',1193316999,1,0,1,1,1,1,'','','Dear Antonio,\n\nYes, we are using UNC to access databases. We have created the share name name and set the permissions on the server. For example \\\\njprosvr\\winpack\\mr.dbf to open database.\n\nRegards,','',0,'gA==','3jkbok9o',1,0,'',234,0,0),(40303,8427,6,106,0,'85.34.123.173',1193317950,1,0,1,1,1,1,'','','Antonio, \n\nEfectivamente, con tProgress no hace ese efecto, pero tampoco me cambia los mensajes en la progress bar, solo si hago un sysrefresh cada tanto, y en ese caso, hace el mismo efecto que con el meter.\n\nSaludos','',0,'gA==','23hn5c1c',1,0,'',106,0,0),(40304,8609,3,51,0,'80.122.88.242',1193319990,1,0,1,1,1,0,'','','Thank you, Antonio.\nIt is working.\nRegards,\nOtto','',0,'gA==','76m1mt4x',1,0,'',51,0,0),(40305,8427,6,2,0,'87.218.146.170',1193321103,1,0,1,1,1,1,'','','La cuestión es que con ese tipo de degradados no se puede abusar de los repintados <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gA==','3h3hh187',1,0,'',2,0,0),(40306,8619,6,36,0,'164.77.81.210',1193321209,1,0,1,1,1,1,'','ADS y Archivos ADT','Estimados\n\nUna consulta archivos ADT de ADS\n\nresulta que cuando elimino un registro este desaparece como se hiciera un PACK, buscando las opciones tengo que muestre archvios deleted, le cambio e igual no los muestra, pero con archvos DBF funcionan sin ningun problema\n\nMi pregunta es si alguien le sucede lo mismo o hay que configurar algo?\n\nhe probado tanto en mi aplicacion y con el Data Arquitec de ADS e igual no los muestra\n\nCualquier ayuda es bienvenida','',0,'gA==','35ltbft6',1,0,'',36,0,0),(40307,8620,6,945,0,'217.216.162.0',1193322145,1,0,1,1,1,0,'','Borrar Directorio FTP con sus subdirectorio y archivos','Muy buenas foro, pos eso me gustaría saber como puedo borrar un directorio con sus archivos y subdirectorios de este, estoy usando la clase tftp, pero en ella no está ningún método para realizar esto.\n\nUn Saludo.','',0,'gA==','1fb05mug',1,0,'',945,0,0),(40308,8621,7,1185,0,'77.210.141.234',1193323127,1,0,1,1,1,1,'','Un principiante','Hola a todos.\n\nAcabo de empezar con FWPPC, trabajo normalmente con Visual Foxpro y me estoy haciendo un lío.\n\nHe mirado algún manual sobre FW, no sé si los comandos, sintxis etc. son iguales para FWPPC que para FW y el resto de versiones. He intentado hacer algo con PellesC y no soy capaz de abrir una simple ventana, en el emulador me muestra un mensaje que dice: \"imposible crear dialogo\". No sé si es que el entorno hay que configurarlo de alguna forma.\n\nPodría alguien echarme una mano, algún manual, guía, etc.\n\nMuchas gracias a todos.','',0,'gA==','1y0els71',1,0,'',1185,0,0),(40309,8612,7,456,0,'217.127.39.57',1193323549,1,0,1,1,1,1,'','','Hola Salvador, he probado la clase con un  GPS bluetooth y una PDA Symbol MC90, y funciona perfectamente.\nHe cambiado el metodo conecta, creo que lo correcto es un else para el caso en que no consigue abrir el puerto.\n\nAdemas le he añadido un retorno de valor logico a conecta, si bien ese dato se podria conseguir del data lGps, o nHdlCom.\n[code:37ai47vw]\n////////////////////////////////////////////////////////////////\nMETHOD Conecta&#40; nCom &#41; CLASS TGps \n\n   &#58;&#58;nHdlCom &#58;= OpenCom&#40; nCom, BAUDS &#41;\n\n   IF &#58;&#58;nHdlCom &lt; 0\n      &#58;&#58;lGps    &#58;= &#46;f&#46;\n      &#58;&#58;cMsgErr &#58;=  &quot;FALLO AL ABRIR EL COM&#58;&quot;+ Str&#40; nCom,2 &#41;\n   ELSE\n      &#58;&#58;cMsgErr &#58;=  &quot;PUERTO ABIERTO&quot;\n      &#58;&#58;lGps    &#58;= &#46;T&#46;\n      &#58;&#58;oTimer&#58;Activate&#40;&#41;\n   ENDIF\nRETURN &#58;&#58;lGps[/code:37ai47vw]','',0,'AIA=','37ai47vw',1,0,'',456,0,0),(40310,8577,3,69,0,'206.210.100.104',1193323594,1,0,1,1,1,1,'','','Hi Antonio,\n\nOk ... here is the latest DLL from the company:\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.antiduplicate.com/t/TestDLL.zip\">http://www.antiduplicate.com/t/TestDLL.zip</a><!-- m -->\n\n\n\nThanks,\nJeff','',0,'AIA=','3dhw3lgr',1,0,'',69,0,0),(40311,8577,3,2,0,'87.218.146.170',1193325264,1,0,1,1,1,1,'','','Jeff,\n\nThe function is getting called as the MessageBox() is shown.\n\nCould you provide me the PRG declaring the 128 members of the struct ? Thanks,','',0,'AIA=','2ohq5r0r',1,0,'',2,0,0),(40312,8586,3,456,0,'217.127.39.57',1193325672,1,0,1,1,1,1,'','','I agree Antonio, but if you want to change for example a method from tGet. \nIf I inherit a new class from tGet and i want to use REDEFINE GET... , I must change the CH files too.\nAny other easy way. Thanks in advance.','',0,'AIA=','1zm1hmyv',1,0,'',456,0,0),(40313,8621,7,2,0,'87.218.146.170',1193325842,1,0,1,1,1,1,'','','Juan Antonio,\n\nBienvenido! y ánimo, que verás que en solo unos dias tienes tu aplicación en Pocket PC muy avanzada <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLo primero es ir al directorio samples y ejecutar lo siguiente:\nbuildce.bat tutor01\n\nSi tienes configurados los paths correctamente dentro de buildce.bat entonces debes obtener un tutor01.exe que ya podrás ejecutar desde el emulador ó copiar a tu Pocket PC.\nA continuación prueba con tutor02, tutor..., y familiarízate un poco con la sintaxis usada en los PRGs. \n\nComéntanos si llegas hasta aqui, o si aún te falta configurar algo. Gracias,','',0,'AIA=','16n1r2us',1,0,'',2,0,0),(40314,8622,20,1082,0,'82.187.120.133',1193326135,1,0,1,1,1,0,'','consiglio su gestione file','Ciao Enrico, ho alcune domande da farti e gradirei che tu mi consigliassi. Ho una mia vecchia procedura fatta con fivewin 1.9.2 che sto risistemando con FWH 7.10. Nella vecchia procedura utilizzavo le librerie RDD comix ed utilizzavo la procedura con tre PC dei quali su uno era la base dati e gli altri si collegavano a quello per manipolare i file, naturalmente su ogni PC c\'era il file exe della procedura, quindi:\n1) lavorando con FWH ed utilizzando la stesso tipo di procedura pensi possa usare lo stesso tipo di configurazione con 5 o più PC ?\n\n2) quale RDD mi consigli?\n\n3) Con la vecchia procedura utilizzando comix avevo per ogni file DBF l\'indice associato, alcuni dbf però avevano più indici... esempio il file mio.dbf aveva vari  indici creati con l\'istruzione \nINDEX ON ...... TAG A TO mio.ntx\nINDEX ON ...... TAG B TO mio.ntx\nINDEX ON ...... TAG C TO mio.ntx\nquesto tipo di configurazione indici funziona lo stesso con l\'RDD di FWH... (sto facendo delle prove ma pare che l\'istruzione INDEX ON ... TAG... con FWH non funziona)\n\nspero in qualche tua dritta.....\n\nsaluti','',0,'AIA=','zgtjqjad',1,0,'',1082,0,0),(40315,8616,3,1200,0,'201.48.242.33',1193326388,1,0,1,1,1,0,'','','Linares,\n\nI renaming the application.\n\nThanks\n\nRicardo','',0,'AIA=','2hf6nh1m',1,0,'',1200,0,0),(40316,8623,7,720,0,'80.36.244.134',1193326497,1,0,1,1,1,0,'','Manejo de funciones para conexiones gprs','Hola a todos. \nAhora mismo estoy metido con las conexiones por gprs. Mi intención es que desde código puede lanzar la conexión, ver el estado y desconectarla. Gracias al amigo Biel que me ha suministrado estas funciones he empezado a mirarlas pero no se como usarlas. Las funciones, para empezar son estas:\n\nHB_FUNC (GPRSCONNECT)\n{ \n   HANDLE phWebConnection = NULL; \n   DWORD pdwStatus = 0; \n\n   ConnMgrConnectionStatus (phWebConnection, &amp;pdwStatus); \n   if (pdwStatus == CONNMGR_STATUS_CONNECTED) \n   { \n      hb_retl (TRUE); \n   } \n   else \n   { \n      CONNMGR_CONNECTIONINFO sConInfo; \n      memset (&amp;sConInfo,0, sizeof (CONNMGR_CONNECTIONINFO)); \n      sConInfo.cbSize = sizeof (CONNMGR_CONNECTIONINFO); \n      sConInfo.dwParams = CONNMGR_PARAM_GUIDDESTNET; \n      sConInfo.dwPriority = CONNMGR_PRIORITY_USERINTERACTIVE; \n      sConInfo.dwFlags = CONNMGR_FLAG_PROXY_HTTP; \n      sConInfo.bExclusive = FALSE; \n      sConInfo.bDisabled = FALSE; \n      sConInfo.guidDestNet = IID_DestNetInternet; \n\n\n      if (ConnMgrEstablishConnection (&amp;sConInfo, &amp;phWebConnection) == S_OK) \n      { \n         unsigned int k; \n          \n         for( k = 0; k &lt; 8; k ++) \n         { \n            ConnMgrConnectionStatus(phWebConnection,&amp;pdwStatus); \n            if (pdwStatus == CONNMGR_STATUS_CONNECTED) \n            { \n               hb_retl (TRUE); \n            } \n            else \n            { \n               if (pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT) \n               { \n                  hb_retl (FALSE); \n               } \n               Sleep (2500); \n               ConnMgrConnectionStatus (phWebConnection, &amp;pdwStatus); \n               if (pdwStatus == CONNMGR_STATUS_WAITINGCONNECTION) \n               {} \n               if (pdwStatus == CONNMGR_STATUS_CONNECTIONCANCELED || pdwStatus == CONNMGR_STATUS_WAITINGCONNECTIONABORT) \n               { \n                  hb_retl (FALSE); \n               } \n            } \n         } \n         hb_retl (FALSE); \n      } \n      else \n      { \n         hb_retl (FALSE); \n      } \n   } \n} \n\nSi alguien puede echarme una mano para ver como puedo llamar a esas funciones se lo agradeceria....\n\nSaludos.\n\nElías Torres.','',0,'AIA=','tcgvduqq',1,0,'',720,0,0),(40317,8586,3,2,0,'87.218.146.170',1193326819,1,0,1,1,1,1,'','','Biel,\n\nYes, OVERRIDE METHOD is very usefull, but its \"dangerous\" for object oriented programming beginners <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1bdfatua',1,0,'',2,0,0),(40318,8577,3,69,0,'206.210.100.104',1193326854,1,0,1,1,1,1,'','','Antonio,\n\nPlease check your email.\n\nJeff','',0,'AIA=','5crdpjas',1,0,'',69,0,0),(40319,8577,3,2,0,'87.218.146.170',1193326915,1,0,1,1,1,1,'','','Jeff,\n\nI am testing it this way, so it can be simpler:\n[code:2ea4dl6v]\n#include &quot;FiveWin&#46;ch&quot; \n#include &quot;Struct&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oStruct, cBuffer, n\n\n   STRUCT oStruct \n      MEMBER cData AS STRING LEN 4 * 128 \n   ENDSTRUCT \n\n   oStruct&#58;cData = Replicate&#40; &quot; &quot;, 4 * 128 &#41;\n   MsgInfo&#40; Empty&#40; oStruct&#58;cData &#41; &#41;\n\n   cBuffer = oStruct&#58;cBuffer \n   TestFunc1&#40; cBuffer &#41; \n   oStruct&#58;cBuffer = cBuffer \n\n   MsgInfo&#40; Empty&#40; oStruct&#58;cData &#41; &#41;\n   \n   for n = 1 to Len&#40; oStruct&#58;cData &#41;\n      if SubStr&#40; oStruct&#58;cData, n, 1 &#41; != &quot; &quot;\n         MsgInfo&#40; n &#41;\n      endif\n   next      \n\nreturn nil \n\nDLL FUNCTION TESTFUNC1&#40; pValues as LPSTR &#41; AS BOOL PASCAL ;\nFROM &quot;TestFunc1&quot; LIB &quot;TestLib12&#46;dll&quot; \n[/code:2ea4dl6v]','',0,'AIA=','2ea4dl6v',1,0,'',2,0,0),(40320,8622,20,6,0,'79.19.233.170',1193327218,1,0,1,1,1,1,'','Re: consiglio su gestione file','1) Sì.\n2) DBFCDX.\n3) I tag funzionano perfettamente.\n\nEMG','',0,'AIA=','3ejg2eii',1,0,'',6,0,0),(40321,8577,3,2,0,'87.218.146.170',1193327230,1,0,1,1,1,1,'','','Jeff,\n\nThere you have the MessageBox() shown value:\n[code:3g2rt5ct]\n   for n = 1 to Len&#40; oStruct&#58;cData &#41; \n      if SubStr&#40; oStruct&#58;cData, n, 1 &#41; != &quot; &quot; \n         MsgInfo&#40; n &#41; \n      endif \n   next\n   \n   MsgInfo&#40; Bin2L&#40; SubStr&#40; oStruct&#58;cData, 1, 4 &#41; &#41; &#41; // &lt;=====\n[/code:3g2rt5ct]\nDon\'t know why they show [99], when they are placing it at zero <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3g2rt5ct',1,0,'',2,0,0),(40322,8624,6,1026,0,'201.143.189.57',1193327443,1,0,1,1,1,0,'','MI MENU NO ACTIVA LOOK 2007','LA BARRA DE BOTONES SI SE VE LOOK 2007 MUY BONITO\nSET MESSAGE TAMBIEN \nPERO EL MENU SE VE IGUAL','',0,'AIA=','12t1jtto',1,0,'',1026,0,0),(40323,8624,6,2,0,'87.218.146.170',1193327643,1,0,1,1,1,1,'','','Julio,\n\nPor favor envíame un email solicitando las librerías con los menus incluidos, y especifica en el email si usas Harbour, xHarbour ó xHarbour comercial. Y especifica tambien a nombre de quien está comprado FWH, Gracias,','',0,'AIA=','1086oxav',1,0,'',2,0,0),(40324,8623,7,720,0,'80.36.244.134',1193327984,1,0,1,1,1,0,'','','Hola a todos....\n\nYa he conseguido que me haga la conexión desde código, pero no consigo que me desconecte una vez enviado el fichero.\n\nLa función que estoy utilizando es:\n\nHB_FUNC (GPRSRELEASE)\n{\n  HANDLE hCon= NULL;\n  ConnMgrReleaseConnection( ( HANDLE ) hb_parnl( 1 ),2 );\n }\n\nNose si me falta algo..No da error pero no me desconecta.. Alguna idea??\n\nSaludos.\n\nElías Torres.','',0,'AIA=','1vex7gh5',1,0,'',720,0,0),(40325,8427,6,106,0,'85.34.123.173',1193329119,1,0,1,1,1,1,'','','Antonio,\n\nPor ahora entonces dejo sin degradado la barra de mensajes, a ver si mando los mensajes en otro modo y la reactivo.\n\n\nSaludos','',0,'AIA=','4g5nh5dk',1,0,'',106,0,0),(40326,8619,6,41,0,'200.87.162.67',1193329336,1,0,1,1,1,0,'','','Patricio,\n\nen los archivos ADT se reciclan automaticamente los registros borrados, por lo que no se pueden recuperar una vez borrados, por lo menos es lo que yo entendi.\n\nsaludos\n\nMarcelo','',0,'AIA=','gjpd4j01',1,0,'',41,0,0),(40327,8540,3,448,0,'82.155.3.32',1193329427,1,0,1,1,1,0,'','','Yes. The first mdichild is centered. How can I use it?','',0,'AIA=','2gyn0mk8',1,0,'',448,0,0),(40328,8625,20,1082,0,'82.187.120.133',1193330148,1,0,1,1,1,0,'','Dialog con folder','ho una dialog con tre folder in un file mio.rc\nProvo ad aprire la dialog e mi da errore, presumo sia il folder nel file .rc.\nSe entro con Resource workshop vedo che i resource son dichiarati con Tfolder, ma negli esempi di FWH sono dichiarati con FOLDER32, non riesco a variare nel mio rc la dichiarazione in FOLDER32 perche automaticamente mette le virgolette \"FOLDER32\"... e la dialog (anche se lascio \"FOLDER32\") non la apre comunque, perchè?','',0,'AIA=','1ggmxvqb',1,0,'',1082,0,0),(40329,8577,3,69,0,'206.210.100.104',1193331019,1,0,1,1,1,1,'','','Antonio,\n\nAre you sure this is right?  They told me that the value should be 8300 at a[99].\n\nWith this code we get a value of 808464534.\n\nIt looks like the input and output values are the same?\n\nJeff','',0,'','d93qs16v',1,0,'',69,0,0),(40330,8616,3,51,0,'80.122.88.242',1193332094,1,0,1,1,1,0,'','','... from the old forum - maybe you could take this name?\nRegards,\nOtto\n \n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.info/oldsite/NGArchive/visualfw.htm\">http://www.fivewin.info/oldsite/NGArchive/visualfw.htm</a><!-- m -->\n\n\nwhat do you think of \"Gimme Five\" as a name for your visual designer?\n\n\nI don\'t know what \"Gimme\" means, I consulted my dictionary and I didn\'tfound the term.\nI think it would be a good slogan, considering it\'s a slang for \"Give Me Five\" (not for gimmick five <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->)\n\n\n We should ask the native speakers. If it is really slang for \"Give Me\".\n\n\n\n Yes it is ...\n\n\n Yes, it is. The term \"gimme five\" is actually slang for a handshake (five being the fingers, of course).\n\n\n I support your idea too. How long will you continue to support/fix bug after the delivery of product ?\n\n\n Mr. Manuel Mercado\nAll of us are confident that you are THE best one to develop this. I shall contribute too. But being in India, it looks difficult to send the money\nthrough the transfer route. I shall wait for Mr.Patrck Mast\'s webpage to accept VISA payments. No sooner it is ready, I shall make the payment.\nI also advise you to sell the product at a price later also, to help those programmers taking up FW in the future.\nWish you all the best.\n\n\n Hi Manual\nYou can count me in also.\nI\'ll await the details to be posted on Patrick\'s page or I could send the $50 by Western Union if you wish.','',0,'','2cn3wow5',1,0,'',51,0,0),(40331,8427,6,2,0,'87.218.146.170',1193335202,1,0,1,1,1,1,'','','Si, buena idea, ó a ver si encontramos la forma de evitar esos efectos','',0,'','3rh9rdlz',1,0,'',2,0,0),(40332,8612,7,358,0,'87.219.145.189',1193335922,1,0,1,1,1,0,'','','Gracias Biel.\n\nTienes razón en la modificación.\nCon esta clase y las funciones de conexión GPRS, y el API de Google Maps tenemos el camino abierto para incluir en las aplicaciones móviles la posibilidad de localizar geográficamente cualquier persona o vehículo en un mapa.\n\nUna aportación de José Luis Capel que puede darnos ideas:\n<!-- m --><a class=\"postlink\" href=\"http://www.capelblog.com/?p=83\">http://www.capelblog.com/?p=83</a><!-- m -->\n\nSaludos desde El Baix Empordà\n\nSalvador Gallardo','',0,'','3jkmveus',1,0,'',358,0,0),(40333,8577,3,2,0,'87.218.146.170',1193336037,1,0,1,1,1,1,'','','Jeff,\n\nI am not showing a[99], my code shows a[0]. \n\nIn C language arrays are zero based, not 1 based, like in Clipper','',0,'','2l01ju1v',1,0,'',2,0,0),(40334,8577,3,2,0,'87.218.146.170',1193336163,1,0,1,1,1,1,'','','Considering that a long value uses four bytes, then you could inspect a[99] using SubStr( oStruct:cData, 99 * 4, 4 ).\n\nPlease also try 98 * 4 and 100 * 4','',0,'','332er9j0',1,0,'',2,0,0),(40335,8540,3,2,0,'87.218.146.170',1193336365,1,0,1,1,1,1,'','','Do you want to center all of them ?\n\nPlease explain a little what you want to do, thanks','',0,'','2u3atbr6',1,0,'',2,0,0),(40336,8619,6,940,0,'189.175.212.254',1193336388,1,0,1,1,1,1,'','','entonces no es tan bueno como parece ser,,\n\nese punto es un lado flaco,\n\nte inmaginas que el usuario borre por error los registros?\n\n\ntendrias que reprogramar tu aplicacion, \n\nagregar un campo logico a las tablas,,\n\n\nsaludos..','',0,'','en5fn2rr',1,0,'',940,0,0),(40337,8626,6,1090,0,'201.254.63.119',1193336885,1,0,1,1,1,0,'','¿ordenar un listbox haciendo click en el nombre de columna?','Hola. ¿conocen alguna manera de odenar un listbox por alguna columna, haciendo click en el nombre de la columna?\nGracias. Atte.','',0,'','30od1llf',1,0,'',1090,0,0),(40338,8627,3,6,0,'79.19.233.170',1193337197,1,0,1,1,1,1,'','Menu accelerators - changed behavior','In the following sample try to press ALT-T and then T. Previously it just moved the hilite bar cyclically through the two menuitem. Now it just activates the first one. Is it possible to go back to the previous behavior?\n\n[code:d83rcise]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oMenu\n\n    MENU oMenu\n        MENUITEM &quot;&amp;Test&quot;\n\n        MENU\n            MENUITEM &quot;&amp;Test1&quot;;\n                     ACTION MSGINFO&#40; &quot;Test1&quot; &#41;\n            MENUITEM &quot;&amp;Test2&quot;;\n                     ACTION MSGINFO&#40; &quot;Test2&quot; &#41;\n        ENDMENU\n    ENDMENU\n\n    DEFINE WINDOW oWnd;\n           MENU oMenu\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:d83rcise]\n\nEMG','',0,'AIA=','d83rcise',1,0,'',6,0,0),(40339,8626,6,940,0,'189.175.212.254',1193337305,1,0,1,1,1,1,'','','con txbrowse  se hace asi:\n\n\n   oBrw:aCols[ 2 ]:bLClickHeader := {|r,c,f,o| (cAlias)-&gt;( ordsetfocus(1) ), oBrw:refresh() }\n\n\nespero te oriente .. \n\nsaludos,','',0,'','3t7sf5xk',1,0,'',940,0,0),(40340,8625,20,6,0,'79.19.233.170',1193337524,1,0,1,1,1,1,'','Re: Dialog con folder','Mettici \"SysTabControl32\".\n\nEMG','',0,'','3hmzfqr9',1,0,'',6,0,0),(40341,8628,6,1178,0,'200.24.127.11',1193337721,1,0,1,1,1,0,'','Como Direcionar un reporte a Una Bandeja Especifica','En posible enviar un reporte a una Bandeja especifica, en este caso tengo varias impresora , y tienen 3 bandejas','',0,'','14utpbma',1,0,'',1178,0,0),(40342,8619,6,36,0,'164.77.81.210',1193337825,1,0,1,1,1,1,'','','Gracias Marcelo por la aclaracion \n\nvoy a tener que hacer una nueva base e insertar los archivos borrados, ya que me gusta saber que usuario ha borrado..','',0,'','yg5t9f6b',1,0,'',36,0,0),(40343,8629,6,1195,0,'190.38.63.65',1193339364,1,0,1,1,1,0,'','BUTTON, como cambio el color de fondo y de texto','@ nRow, nCol BUTTON \"mi Boton\" \n\n       quiero que salga \"mi Boton\" en negro con fondo Rojo. Como hago ?\n       o que comando utilzo ?','',0,'','224qkmdm',1,0,'',1195,0,0),(40344,5674,3,213,0,'98.196.64.111',1193340389,1,0,1,1,1,0,'','','Dutch,\n\nYour customers are willing to pay for the R&amp;R report designer?\n\nRegards,\nRandal\n\n[quote=&quot;dutch&quot;:sdk5g77g]Dear All,\n\nI develop my program with R&amp;R V.5 for DOS since 1997.  All my program use R&amp;R.  I\'ve no hardcode printing because all my client need to change some in all forms.  While we use R&amp;R and now R&amp;R is version 12 with support SQL.  I can import all form since DOS Version to Windows Version and I can distribute my Report Format to any client without any change in my program.  I just send only setup screen image and report format file (.RRW).  R&amp;R can export to many format but not quite good in some format.  \n\nAnyway, The R&amp;R support is very good and helpful.  \n\nThis is the screen in my program.\n[url=http&#58;//img88&#46;imageshack&#46;us/my&#46;php?image=rptproppj5&#46;jpg:sdk5g77g][img:sdk5g77g]http&#58;//img88&#46;imageshack&#46;us/img88/3861/rptproppj5&#46;th&#46;jpg[/img:sdk5g77g][/url:sdk5g77g]\nThis is my Report Properties (my code) you can use Query in program or send Query from setup screen to override in R&amp;R.\n[url=http&#58;//img88&#46;imageshack&#46;us/my&#46;php?image=rptseteq4&#46;jpg:sdk5g77g][img:sdk5g77g]http&#58;//img88&#46;imageshack&#46;us/img88/1638/rptseteq4&#46;th&#46;jpg[/img:sdk5g77g][/url:sdk5g77g]\nThis is the R&amp;R Designer call from source code.\n[url=http&#58;//img88&#46;imageshack&#46;us/my&#46;php?image=callrnrzs2&#46;jpg:sdk5g77g][img:sdk5g77g]http&#58;//img88&#46;imageshack&#46;us/img88/6424/callrnrzs2&#46;th&#46;jpg[/img:sdk5g77g][/url:sdk5g77g]\nThis is user define prompt from setup screen.\n[url=http&#58;//img86&#46;imageshack&#46;us/my&#46;php?image=userpromptov6&#46;jpg:sdk5g77g][img:sdk5g77g]http&#58;//img86&#46;imageshack&#46;us/img86/4645/userpromptov6&#46;th&#46;jpg[/img:sdk5g77g][/url:sdk5g77g]\n\nBest regards,\nDutch[/quote:sdk5g77g]','',0,'mA==','sdk5g77g',1,0,'',213,0,0),(40345,8630,6,743,0,'201.116.76.180',1193341301,1,0,1,1,1,0,'','tengo una duda por favor','tengo un programa con extencion xxxx.ccp, como lo compilo para integrarlo en mi programa\n\n\n\nsaludos gracias','',0,'mA==','2c7x9j9h',1,0,'',743,0,0),(40346,8631,3,213,0,'98.196.64.111',1193342140,1,0,1,1,1,0,'','Problem with @K picture clause','All,\n\nI have a problem when using \"@K\" picture clause.  If I have several controls on a window or dialog and the user tabs or presses enter to move through the controls the get text is correctly deleted if they user types a character in a get.  However, if the user clicks on a control using the mouse and types a character the text of the get is not deleted and the character typed is simply inserted (or overwrites) the text in the control.  \n\nCan someone confirm (or not) this problem?\n\nUsing Fivewin April 2006 &amp; xHarbour.\n\nThanks,\nRandal Ferguson','',0,'mA==','3ocdqt59',1,0,'',213,0,0),(40347,8620,6,1206,0,'84.77.179.199',1193342473,1,0,1,1,1,0,'','QFTP','Tienes todas las coluciones en la clase QFTP mañana te mando un e-mail con la clse y ejemplos.','',0,'mA==','1ub9jozg',1,0,'',1206,0,0),(40348,8627,3,2,0,'87.218.146.170',1193342519,1,0,1,1,1,1,'','','Enrico,\n\nWe have not modified anything there. \n\nIn fact those are default Windows behaviors, unless there is some kind of conflict.','',0,'mA==','34ljgx4b',1,0,'',2,0,0),(40349,8627,3,2,0,'87.218.146.170',1193343348,1,0,1,1,1,1,'','','Enrico,\n\nIn Vista the first Alt+T opens the pulldown menu, then pressing T again fires the first menuitem action','',0,'mA==','2pv6j9py',1,0,'',2,0,0),(40350,8627,3,6,0,'79.19.233.170',1193344399,1,0,1,1,1,1,'','','But in some earlier FWH version it worked differently...  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEMG','',0,'mA==','uw7u5kjo',1,0,'',6,0,0),(40351,8607,3,303,0,'72.220.100.171',1193346325,1,0,1,1,1,0,'','','&gt;Where is Tdata class? \n\nTData is a commercial product I developed. You can read more about it and download a demo on my website.\n\n<!-- m --><a class=\"postlink\" href=\"http://ourworld.compuserve.com/homepages/jbott/program.htm\">http://ourworld.compuserve.com/homepage ... rogram.htm</a><!-- m -->\n\nJames','',0,'mA==','3711h8e7',1,0,'',303,0,0),(40352,8630,6,54,0,'189.132.117.32',1193347820,1,0,1,1,1,1,'','Re: tengo una duda por favor','[quote=&quot;tomafa&quot;:3tgjvou4]tengo un programa con extencion xxxx.ccp, como lo compilo para integrarlo en mi programa\n\n\n\nsaludos gracias[/quote:3tgjvou4]\n\nDepende de lo que usa para compilar\n\nVERCE: Agregalo como un .c\nXMATE: agregalo al proyecto\nBAT: compilalo como un .c','',0,'gA==','3tgjvou4',1,0,'',54,0,0),(40353,8619,6,138,0,'200.3.212.42',1193349278,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:6ldty1i6]entonces no es tan bueno como parece ser,,\n\nese punto es un lado flaco,\n\n[/quote:6ldty1i6]\n\nJe je je, los SQLs \"reales\" tampoco hacen un \"pack\" cuando un registro se borra, adios, se borró.\n\nrecuerda que ADS ahora esta mas enfocado a un mercado basado en SQL que en el modelo xBase tradicional\n\nSaludos desde Chile, la proxima semana en Buenos Aires','',0,'gA==','6ldty1i6',1,0,'',138,0,0),(40354,8627,3,2,0,'87.218.146.170',1193349378,1,0,1,1,1,1,'','','Enrico,\n\nWith XP I get the same behavior. Going to try with Win98...','',0,'gA==','2xxda9r5',1,0,'',2,0,0),(40355,8582,6,138,0,'200.3.212.42',1193349823,1,0,1,1,1,1,'','','Rafael:\n\nEsta mal tu filtro:\n\ntienes que hacer esto:\n\ncFiltro := \"\'TALLER\' $ CLIENTE\"\nbFiltro := \"{||\"+cFiltro+\"}\"\n\nEstoy asumiendo que estas buscando la palabra \"TALLER\" dentro del campo CLIENTE, nota como solo la palabra taller lleva comillas sencillas, y que toda la expresion de filtro es una sola cadena.\n\nAhora, puedes usar la funcion AdsSetAof() o bien un DBSETFILTER() de esta manera:\n\nalias-&gt;(DBSETFILTER(&amp;bFiltro,cFiltro)\n\nSaludos desde Chile, la proxima semana en Buenos Aires.','',0,'gA==','17dn7vqw',1,0,'',138,0,0),(40356,8627,3,2,0,'87.218.146.170',1193353361,1,0,1,1,1,1,'','','Enrico,\n\nWin98 behaves exactly as you describes, moving from one menuitem to another without firing the action \n\nBut XP and Vista execute the action','',0,'gA==','2yeny4xe',1,0,'',2,0,0),(40357,8631,3,1173,0,'190.6.194.162',1193354790,1,0,1,1,1,1,'','','I have experienced the same problem with FWH 2.6 and xHabour 0.99.2  \n  \nMy English is not very good, please excuse me <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRegards from Honduras','',0,'gA==','1c0u4y4g',1,0,'',1173,0,0),(40358,8632,6,53,0,'189.139.9.233',1193355318,1,0,1,1,1,1,'','TXbrowse vacio con ADO','Buenas tardes al foro:\n\nAmigos, necesito crear un browse usando TXBrowse y ADO pero cuando el RECORDSET esta vacio, truena  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nMe interesa crear el browse a pesar de que el RS este vacio, como hacerlo ?.\n\nGracias, saludos','',0,'gA==','3qnb5tgs',1,0,'',53,0,0),(40359,8611,2,890,0,'200.24.110.241',1193356043,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1ihumf60]Jairo,\n\nTienes que incluir el AVI en el recurso de esta forma:\n\n2020 AVI \"test.avi\"\n\ny desde el código hacer:\n\nREDEFINE VIDEO oVideo ID 2020\n\nEl número 2020 es arbitrario. Puedes usar el que quieras[/quote:1ihumf60]\n\nGracias Antonio lo intentare\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','1ihumf60',1,0,'',890,0,0),(40360,8631,3,303,0,'72.220.100.171',1193361899,1,0,1,1,1,0,'','','Randal,\n\nI had a problem with the @K picture also, but I don\'t remember exactly what the problem was. I made this change to the goHome() method of the TGet class (version 7.05).\n\nTry it, and if it works for you, then perhaps Antonio will add this fix to FWH.\n\nJames\n\n\n[code:11hcoqyd]METHOD GoHome&#40;&#41; CLASS TGet\n\n   &#58;&#58;oGet&#58;Home&#40;&#41;\n   //if &#58;&#58;oGet&#58;Type == &quot;N&quot;  // flag to clear buffer if typing is detected\n   if &#58;&#58;oGet&#58;Type == &quot;N&quot; &#46;or&#46; &quot;K&quot; $ upper&#40;&#58;&#58;oGet&#58;Picture&#41;  // J Bott\n      &#58;&#58;oGet&#58;Clear &#58;= &#46;t&#46;\n   endif\n   &#58;&#58;SetPos&#40; &#58;&#58;oGet&#58;Pos &#41;\n\nreturn Self[/code:11hcoqyd]','',0,'AIA=','11hcoqyd',1,0,'',303,0,0),(40361,8633,6,78,0,'190.43.176.212',1193364112,1,0,1,1,1,0,'','TDosPrn  con  USB','Hola Amigos\nResulta que las placa nuevas, ya no traen el puerto paralelo LPT1, ahora solo traen puertos USB, y claro, las impresoras matriciales no se quedan atras y tambien vienen con puerto USB, el lio es que TDosPrn no va con USB, alguna idea??\n\nSalu2\nWilli','',0,'AIA=','ugxg5op3',1,0,'',78,0,0),(40362,8631,3,868,0,'219.64.121.60',1193366857,1,0,1,1,1,1,'','','Mr James\n\nI too have the same problem. But your fix has not solved the problem for me.  If the user clicks on the get, despite the @K, the get is not cleared.','',0,'AIA=','3kowlvv9',1,0,'',868,0,0),(40363,5674,3,47,0,'203.144.160.247',1193367083,1,0,1,1,1,0,'','','Dear Randal,\n\nI give them only runtime, the designer is in my laptop.  The customer site can only change the query and user prompt only.  If they need to change just ask me to do it.  \n\nRegards,\nDutch','',0,'AIA=','1q4w7tc6',1,0,'',47,0,0),(40364,8634,6,37,0,'201.230.92.32',1193377628,1,0,1,1,1,1,'','Error al Compilar FWH 7.10 con xHrb 99.71','Antonio, algo esta mal pero no entiendo que, al compilar y ejecutar mi programa me arroja este error :\n\n\'wBrowse.prg\' was compiled by older version, PCODE version 7 is not longer support - Please recompiled\n\nEsta claro que esto indica que debo recompilar todas mis fuentes, pero \'wBrowse.prg\' no pertenece al propio FWH, me esta diciendo acaso que debo recompilar FHH ???\n\nGracias por tu atencion','',0,'AIA=','2izqpvl8',1,0,'',37,0,0),(40365,8635,3,51,0,'80.122.88.242',1193380676,1,0,1,1,1,0,'','Database question','What would be a secure way to append a small database ( &lt; 1000 records) to a journal dbf file and\nthen delete the small database.\nThank in advance \nOtto','',0,'AIA=','2z94720d',1,0,'',51,0,0),(40366,8623,7,456,0,'62.43.18.83',1193382761,1,0,1,1,1,1,'','','Hola Elias,\nLa función GprsConnect que te pase, tiene un pequeño cambio con respecto a la de Pawel, y es que en lugar de devolver verdadero o falso, devuelve el numero de handler de la conexion. \nGuarda ese numero en una variable, y despues pasalo como parametro a GprsRelease.\n\nEspero te funcione.','',0,'AIA=','1xzup027',1,0,'',456,0,0),(40367,8636,6,960,0,'84.125.196.99',1193383018,1,0,1,1,1,0,'','Mal funcionamiento en RED','Estimados compañeros:\ntengo instalado en RED mi aplicación de gestión de facturas y todo va de maravillas, excepto 1 cosa: la correlación en los números de facturas!!\n\nSi 2 o más usuarios entran a la vez en el módulo de \"nueva factura\", cuando la imprimen el programa asigna el mismo numero a todas las facturas impresas, ¿Como es posible? Sin embargo utilizo el mismo procedimiento en el stock y las cantidades se refrescan perfectamente si ambos usuarios entran a la vez en ese modulo.\nSi cada usuario entra individualmente al modulo \"nueva factura\" la correlación de los numeros de facturas van de maravilla!!\n\n¿ Alguna sugerencia ? Mil gracias\nLorenzo','',0,'AIA=','11qcgwkg',1,0,'',960,0,0),(40368,8621,7,456,0,'62.43.18.83',1193383584,1,0,1,1,1,1,'','','Bienvenido Juan Antonio, \nsi vienes del mundo de Visual FoxPro, no te costara mucho cojerle el tranquillo. Yo llevo poco mas de un año con FWPPC, y aunque habia programado con clipper, hacia mas de 10 años que no tocaba nada en xBase, y con poco tiempo me he puesto al dia.\n\nLa sintaxis de FW y FWPPC en lo general son iguales, aunque no todas las clases de FW estan soportadas en FWPPC, pero en lo basico es igual.\n\nComo te ha comentado Antonio, en los samples veras un poco la idea de general de como funciona. Y cuando tengas dudas aqui en el foro encontraras bastante información, y sino encuentras pregunta,  siempre habra alguine disupuesto a darte una mano.','',0,'AIA=','2bumihmq',1,0,'',456,0,0),(40369,8634,6,2,0,'87.218.146.170',1193384719,1,0,1,1,1,1,'','','Enrique,\n\nEstas usando el browse propio de FWH ó usas algún otro ?','',0,'AIA=','1uhogfzu',1,0,'',2,0,0),(40370,8632,6,456,0,'62.43.18.83',1193384744,1,0,1,1,1,1,'','','Que error te da?.  \nNo se si esto te servira, prueba a comentar la linea RETURN NIL de la clase txBrowse, metodo Paint, en el apartado Paint cols data.\n\n[code:2opbtsnm]\n/*\n   Paint cols data\n   */\n\n   &#58;&#58;lRefreshOnlyData &#58;= &#46;f&#46;\n\n   if &#58;&#58;nLen == 0\n      &#58;&#58;EraseData&#40; nFirstRow  &#41;\n      //return nil    //Marcado por Biel, asi visualiza correctamente Browses sobre ficheros vacios o scopes vacios sin registros\n   endif[/code:2opbtsnm]','',0,'AIA=','2opbtsnm',1,0,'',456,0,0),(40371,8623,7,720,0,'80.36.244.134',1193389844,1,0,1,1,1,0,'','','Biel, gracias por la ayuda. He hecho lo que me comentabas y todo ha funcionado correctamente....\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','28kyv36o',1,0,'',720,0,0),(40372,8635,3,6,0,'82.57.160.164',1193393091,1,0,1,1,1,1,'','Re: Database question','APPEND FROM? Record by record?\n\nEMG','',0,'AIA=','fwo3xi9s',1,0,'',6,0,0),(40373,8627,3,6,0,'82.57.160.164',1193393262,1,0,1,1,1,1,'','','But I had W98 behavior under XP using some earlier FWH version.\n\nBut it\'s not so important, don\'t worry.\n\nEMG','',0,'AIA=','2nc0d83x',1,0,'',6,0,0),(40374,8635,3,51,0,'80.122.88.242',1193394392,1,0,1,1,1,0,'','','Thank you, Enrico,\n\n&gt;Record by record?\n\nBut what it a record fails? How could a “Rollback” be made.\nAre there some coding guidelines, examples?\n\n\nRegards,\nOtto','',0,'AIA=','nbovni32',1,0,'',51,0,0),(40375,8637,6,439,0,'200.125.48.41',1193396174,1,0,1,1,1,1,'','Color de Barra de Menú','Existe alguna forma de cambiar el color de la barra de menú de una ventana?\n\nGracias desde ya por su ayuda... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3rltypy2',1,0,'',439,0,0),(40376,8635,3,995,0,'81.11.193.29',1193396960,1,0,1,1,1,0,'','','Otto ,\n\nTo append safely records i use : \n\n[code:37l5hxil]\nFUNCTION APND&#40;lAdd&#41;\n*************\nLOCAL cAlias &#58;= Alias&#40;&#41;\nDEFAULT Toevoegen &#58;= &#46;F&#46;\n\nDO WHILE &#46;T&#46;\n  //APPEND BLANK\n  &#40;cAlias&#41;-&gt;&#40;DBAPPEND&#40;! lAdd&#41;&#41;\n  IF ! &#40;cAlias&#41;-&gt;&#40;NETERR&#40;&#41;&#41;\n    RETU &#46;T&#46;\n  ELSE\n    IF msgNoYes&#40;&quot;Not appended&#46; Try again &#40;5 sec&#41; ?&quot;&#41;\n      MtrWait&#40;&quot;Wait 5 sec&quot;,&quot;Append again&quot;&#41;\n    ELSE\n      RETU &#46;F&#46;\n    END\n  END\nEND\nRETU &#46;T&#46;\n********************************************\nproc mtrWait&#40;cMessage,cTitle,nSec&#41;\n***************************************\n// Wait with oMeter\nMsgMeter&#40; &#123; | oMeter, oText, oDlg, lEnd | ;\n             TestMMt&#40; oMeter, oText, oDlg, @lEnd , nSec  &#41; &#125;,;\n              cMessage , cTitle &#41;\n\nRETURN\nfunction TestMMT&#40; oMeter, oText, oDlg, lEnd , nSec  &#41;\n*****************************************************\nLOCAL start &#58;= seconds&#40;&#41;\nDEFAULT nSec &#58;= 5\noMeter&#58;nTotal = nSec //seconds&#40;&#41;\nDO WHIL seconds&#40;&#41; &lt; start + nSec\n  EVAL&#40;&#123;||oMeter&#58;Set&#40;seconds&#40;&#41;-start &#41; , SysRefresh&#40;&#41;, ! lEnd &#125;&#41;\nEND\nreturn nil\n\n[/code:37l5hxil]','',0,'AIA=','37l5hxil',1,0,'',995,0,0),(40377,8636,6,1106,0,'190.64.146.155',1193397597,1,0,1,1,1,0,'','','Lorenzo:\n\nSegún he leido aquí en el foro, deberías asignarle\nel número a la factura cuando el usuario \"Acepta\" esa factura y\nla manda a imprimir o sea en el ultimo momento.\n\nEs una idea.\n\nsaludos\n\nRuben Fernandez','',0,'AIA=','2ws3dck4',1,0,'',1106,0,0),(40378,8540,3,448,0,'82.155.3.32',1193398738,1,0,1,1,1,0,'','','Antonio,\n\nI need that the ::center() method on mdichilds places them in the center of the main window.\n\nAntonio','',0,'AIA=','3talo0sy',1,0,'',448,0,0),(40379,8539,3,448,0,'82.155.3.32',1193398792,1,0,1,1,1,0,'','','Antonio\n\nDo you have any idea on solving the previous problem.\n\nThanks,\n\nAntonio','',0,'AIA=','cuh3sc70',1,0,'',448,0,0),(40380,8633,6,294,0,'201.254.179.132',1193398885,1,0,1,1,1,1,'','','Willy:\nExiste un programa que lo instalás en la pc y te permite imprimir desde programas DOS a USB, te dejo el link para ver si te sirve\n<!-- w --><a class=\"postlink\" href=\"http://www.todoprogramas.com/recursos/impresoras/738.asp\">www.todoprogramas.com/recursos/impresoras/738.asp</a><!-- w -->\nEspero que te sea de utilidad.','',0,'AIA=','1l9z2ob2',1,0,'',294,0,0),(40381,8635,3,51,0,'80.122.88.242',1193399441,1,0,1,1,1,0,'','','Thank you for sharing. \n\nWe have a ECR program. There the consumption  of a guest is stored in a single dbf file. I the guest checks out the dbf file is added to the file where the sales volume of the whole day is stored.\n\nThe question is:\nHow to be secure that the whole file is imported?\nAnd if something goes wrong to do a roll back in automatic mode. \nRegards,\nOtto','',0,'AIA=','x5an8yyt',1,0,'',51,0,0),(40382,8635,3,6,0,'87.3.228.34',1193400545,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:1quielgz]But what it a record fails? How could a “Rollback” be made.[/quote:1quielgz]\n\nWhy do you need to rollback the succesfully appended records?\n\nEMG','',0,'gA==','1quielgz',1,0,'',6,0,0),(40383,8638,3,162,0,'62.47.181.250',1193400824,1,0,1,1,1,0,'','FGet enhancement','Our application displays a lot of plain text using the FGet-Class.\nNow I\'m looking for a way to make the control \"senitive\" to some words in the text when the words are unterlined (or something else) so that the user can click on it and some action is performed.\nCan this be done?\nI was playing around with the MouseMove method without success...\nCan anybody give me a clue?\n\nThanks, \nDietmar\n\n[code:atlrax2h]\nMETHOD MouseMove&#40; nRow, nCol, nKeyFlags &#41; CLASS TFGet\n\n   if &#58;&#58;lDrag\n      return Super&#58;MouseMove&#40; nRow, nCol, nKeyFlags &#41;\n   endif\n\n   if &#58;&#58;lCaptured\n\n      if nRow &gt;= 32768\n         nRow -= 65536\n      endif\n      if nCol &gt;= 32768\n         nCol -= 65536\n      endif\n\n      &#58;&#58;MoveCaret&#40; nRow, nCol &#41;\n      &#58;&#58;BlockUp&#40;&#41;\n\n      // &#58;&#58;SendMsg&#40; WM_MOUSEMOVE, nKeyFlags, nMakeLong&#40; nCol, nRow &#41; &#41;\n\n      do while GetAsyncKey&#40; VK_LBUTTON &#41; &#46;and&#46; ;\n               &#40; &#40; nRow &lt; 0 &#46;and&#46; !&#40; &#58;&#58;oLine == &#58;&#58;oLineInit &#41; &#41; &#46;or&#46; ;\n               &#40; nRow &gt; &#58;&#58;nHeight  &#46;and&#46; !&#40; &#58;&#58;oLine == &#58;&#58;oLineEnd &#41; &#41; &#41;\n         &#58;&#58;MoveCaret&#40; nRow, nCol &#41;\n         &#58;&#58;BlockUp&#40;&#41;\n         Delay&#40; 0&#46;03 &#41;\n         nRow &#58;= aCursorCoors&#40; &#58;&#58;hWnd &#41;&#91;1&#93;\n         nCol &#58;= aCursorCoors&#40; &#58;&#58;hWnd &#41;&#91;2&#93;\n      enddo\n\n      return 0\n\n   endif\n\n   &#58;&#58;oWnd&#58;SetMsg&#40; &#58;&#58;cMsg &#41;\n   if &#58;&#58;oCursor != nil\n      SetCursor&#40; &#58;&#58;oCursor&#58;hCursor &#41;\n   else\n      CursorIBeam&#40;&#41;\n   endif\n\n   &#58;&#58;CheckToolTip&#40;&#41;\n\n///Test+\n\n    IF &#58;&#58;oFont&#58;lUnderline != nil\n      //Verlinkung nur bei unterstrichenen Normen\n//?&#58;&#58;oFont&#58;lUnderline\n      IF &#58;&#58;oFont&#58;lUnderline\n         CursorHAND&#40;&#41;\n      ELSE\n         CursorARROW&#40;&#41;\n      ENDIF\n    ENDIF\n\n///Test-\n\n\n   if &#58;&#58;bMMoved != nil\n      Eval&#40; &#58;&#58;bMMoved, nRow, nCol, nKeyFlags &#41;\n   endif\n\nreturn nil\n[/code:atlrax2h]','',0,'AIA=','atlrax2h',1,0,'',162,0,0),(40384,8633,6,36,0,'164.77.81.210',1193400825,1,0,1,1,1,1,'','','Hola\n\nA mi me paso lo mismo con un cliente que tiene un notebook y no tiene puerto paralelo, entonces lo que hize fue compartir la impresora\nmatriz de punto okidata 321turbo USB y luego capturarla en el mismo pc\n\n[b:2478li0q]net use lpt1: \\\\pc\\impresora /persistent:yes[/b:2478li0q]\n\nespero que te sirva..','',0,'QA==','2478li0q',1,0,'',36,0,0),(40385,8634,6,37,0,'201.230.92.32',1193402422,1,0,1,1,1,1,'','','Uso tambien TSBROWSE y TWBROWSE, revisando ninguno de ellos tiene \'wBrowse.prg\' ?','',0,'QA==','9s58y36o',1,0,'',37,0,0),(40386,8633,6,78,0,'190.43.176.212',1193402445,1,0,1,1,1,0,'','','Gracias srs.. probare la opciones y luego comento,\nSalu2','',0,'QA==','2iftnpqt',1,0,'',78,0,0),(40387,8631,3,213,0,'98.196.64.111',1193403123,1,0,1,1,1,0,'','','James,\n\nThanks for the update however it did not work for me.\n\nThanks guys for confirming this problem.  To clarify, I\'m using xHarbour 99.70.\n\nAntonio, can you help us out here?\n\nThanks,\nRandal Ferguson','',0,'QA==','3l7nkaut',1,0,'',213,0,0),(40388,8632,6,53,0,'189.139.17.180',1193403191,1,0,1,1,1,1,'','','Biel:\n\nGracias por tu interes, el error que tira es:\n\nError Base/1111 Argument error: LEN from Errorsys, Line: 0\n\nTe reproduzco un poco del Error.Log por si ayuda en algo\n\n\n[code:pjfbawds]Application\n===========\n   Path and name&#58; C&#58;\\SapWinAdo\\SapWin&#46;Exe &#40;32 bits&#41;\n   Size&#58;   626,176 bytes\n   Time from start&#58; 0 hours 0 mins 2 secs \n   Error occurred at&#58; 26/10/2007, 07&#58;49&#58;11\n   Error description&#58; Error adodb&#46;recordset&#58;FIELDS/16389  E_FAIL&#58; VALUE\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;VALUE&#40;0&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; &#40;b&#41;ADOGENFLDBLK&#40;3041&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBRWCOLUMN&#58;DATAWIDTH&#40;3488&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBRWCOLUMN&#58;ADJUST&#40;3334&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBROWSE&#58;ADJUST&#40;584&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBROWSE&#58;INITIATE&#40;568&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBROWSE&#58;CREATEFROMCODE&#40;506&#41;\n   Called from&#58; sapwin6a&#46;prg =&gt; SAPWIN6A&#40;132&#41;\n   Called from&#58; sapwin&#46;prg =&gt; &#40;b&#41;HAZMENU&#40;309&#41;\n   Called from&#58; MENU&#46;PRG =&gt; TMENU&#58;COMMAND&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;COMMAND&#40;0&#41;\n   Called from&#58; MDIFRAME&#46;PRG =&gt; TMDIFRAME&#58;COMMAND&#40;0&#41;\n   Called from&#58;  =&gt; TMDIFRAME&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; sapwin&#46;prg =&gt; MAIN&#40;129&#41;\n\nSystem\n======\n   CPU type&#58;               Intel&#40;R&#41; Pentium&#40;R&#41; 4 CPU 3&#46;00GHz 3000 Mhz\n   Hardware memory&#58; 503 megs\n\n   Free System resources&#58; 90 %\n        GDI    resources&#58; 90 %\n        User   resources&#58; 90 %\n\n   Compiler version&#58; xHarbour build 0&#46;99&#46;71 Intl&#46; &#40;SimpLex&#41;\n   Windows version&#58; 5&#46;1, Build 2600 Service Pack 2[/code:pjfbawds]\n\nSaludos','',0,'AIA=','pjfbawds',1,0,'',53,0,0),(40389,8577,3,69,0,'206.210.100.104',1193403273,1,0,1,1,1,1,'','','Antonio,\n\nOk,  I am lost.  I really don\'t understand how we are connecting to this dll.\n\nI guess my main question is ... are we accessing the dll correctly and getting the correct response  ?  \n\nI don\'t want to spend $129.00 if it will not work with Fivewin   <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nThanks,\nJeff','',0,'AIA=','24anph58',1,0,'',69,0,0),(40390,5674,3,213,0,'98.196.64.111',1193403627,1,0,1,1,1,0,'','','Dutch,\n\nI see.  I\'ve used R&amp;R for a long time.  One of my major gripes about it is you cannot create a report with a custom page size on one computer and have that report work on another computer.  We have a lot of customers that use dot matrix printers with forms other than 11\" in length.  If I create a report with a page size other than 11\" it will not work on their computer (unless they have the report designer).  The way Windows handles page sizes changed in NT and above and R&amp;R - well aware of this problem - will not update their program to fix this.  Too bad.\n\nThanks,\nRandal \n\n[quote=&quot;dutch&quot;:2kx4m51e]Dear Randal,\n\nI give them only runtime, the designer is in my laptop.  The customer site can only change the query and user prompt only.  If they need to change just ask me to do it.  \n\nRegards,\nDutch[/quote:2kx4m51e]','',0,'gA==','2kx4m51e',1,0,'',213,0,0),(40391,8639,6,439,0,'200.125.48.41',1193406200,1,0,1,1,1,1,'','Brush en dialog con page','Una preguntilla....\n\nTengo una dialog dentro de una función que se define así:\n[code:o1qfs0ca]\nDEFINE DIALOG oDlg RESOURCE &quot;DLG_PAGE&quot; TITLE cTitulo\n		REDEFINE SAY oSay&#91;1&#93; PROMPT cId    ID 200 OF oDlg\n    REDEFINE SAY oSay&#91;2&#93; PROMPT cTexto ID 201 OF oDlg\n    REDEFINE PAGES oPage ID 102 OF oDlg DIALOGS cDlg_Hija\n[/code:o1qfs0ca]\nLa función siempre me ha funcionado perfecto, pero cuando intento hacer que la dialog aparezca transparente si le paso un brush a la función y que tome ese brush en la dialog y en la page, haciendo esto:\n[code:o1qfs0ca]\n    IF oBrush != NIL  \n    	oDlg&#58;lTransparent &#58;= &#46;t&#46;\n    	oPage&#58;aDialogs&#91;1&#93;&#58;lTransparent &#58;= &#46;t&#46;\n    	oDlg&#58;oBrush &#58;= oBrush\n    	oPage&#58;aDialogs&#91;1&#93;&#58;oBrush &#58;= oBrush\n    	oPage&#58;aDialogs&#91;1&#93;&#58;Refresh&#40;&#41;\n    ENDIF\n[/code:o1qfs0ca]\nMe pone transparente la dialog pero no la dialog en el page, como puedo solucionarlo para que pueda verse todo con el mismo brush?\n\nse ve así\n\n[url=http&#58;//img80&#46;imageshack&#46;us/my&#46;php?image=dibujopb1&#46;jpg:o1qfs0ca][img:o1qfs0ca]http&#58;//img80&#46;imageshack&#46;us/img80/2620/dibujopb1&#46;th&#46;jpg[/img:o1qfs0ca][/url:o1qfs0ca]\n\nGracias desde ya por la ayuda que puedan darme','',0,'GIA=','o1qfs0ca',1,0,'',439,0,0),(40392,8604,6,18,0,'200.78.75.166',1193406365,1,0,1,1,1,1,'','Re: tWord con Metodo de abrir un fichero con READONLY','[quote=&quot;Andrés González&quot;:2h6gvri1]Alguien ha creado el metodo de solo lectura para abrir un documento word, en la clase tWord, para que asi no se pueda variar el documento original. Me lo prodrian mandar por favor.[code:2h6gvri1]\nSub SoloLectura&#40;&#41;\n\'\n\' SoloLectura Macro\n\' Macro grabada el 24/10/2007 por &#46;\n\'\n    Documents&#46;Open FileName&#58;=&quot;&quot;&quot;capituo 1 al 5&#46;doc&quot;&quot;&quot;, ConfirmConversions&#58;= _\n        False, ReadOnly&#58;=True, AddToRecentFiles&#58;=False, PasswordDocument&#58;=&quot;&quot;, _\n        PasswordTemplate&#58;=&quot;&quot;, Revert&#58;=False, WritePasswordDocument&#58;=&quot;&quot;, _\n        WritePasswordTemplate&#58;=&quot;&quot;, Format&#58;=wdOpenFormatAuto\nEnd Sub\n[/code:2h6gvri1][/quote:2h6gvri1]\n\nAndres :\n\nMira este código : [code:2h6gvri1]METHOD OpenDoc&#40; cNombreDoc &#41;  CLASS TWord\n       local sal &#58;= &#46;t&#46;\n       &#58;&#58;oDocs &#58;= &#58;&#58;oWord&#58;Get&#40; &quot;Documents&quot; &#41;\n       if file&#40; cNombreDoc &#41;\n          &#58;&#58;oActiveDoc  &#58;= &#58;&#58;oDocs&#58;Invoke&#40; &quot;Open&quot;,cNombreDoc &#41;\n[/code:2h6gvri1]\n\nEsta linea \n[b:2h6gvri1]          ::oActiveDoc  := ::oDocs:Invoke( \"Open\",cNombreDoc )\n[/b:2h6gvri1] Hace el llamado de la función Open()  donde el tercer paramatro indicado en el código que publicas es tipo logico.\n\nEntonces el método open de la clase tword quedaría de esta forma :\n[code:2h6gvri1]METHOD OpenDoc&#40; cNombreDoc , lReadOnly &#41;  CLASS TWord\n       local sal &#58;= &#46;t&#46;\n       &#58;&#58;oDocs &#58;= &#58;&#58;oWord&#58;Get&#40; &quot;Documents&quot; &#41;\n       if file&#40; cNombreDoc &#41;\n          &#58;&#58;oActiveDoc  &#58;= &#58;&#58;oDocs&#58;Invoke&#40; &quot;Open&quot;,cNombreDoc , &#46;F&#46; , lReadOnly &#41;\n[/code:2h6gvri1]','',0,'wIA=','2h6gvri1',1,0,'',18,0,0),(40393,8635,3,51,0,'80.122.88.242',1193407424,1,0,1,1,1,0,'','','What if the append is successfully but the delete in the dbf file not?\n\nExample:\nTransfer of money from one account to another.\nThe append is successfully the delete not. Who pays the difference?\nRegards,\nOtto','',0,'wIA=','tfrvo5pj',1,0,'',51,0,0),(40394,8635,3,303,0,'72.220.100.171',1193408785,1,0,1,1,1,0,'','','Otto,\n\nDid you know that you can lock more than one record at a time?\n\nLock all the records to be moved, then attempt the append, if the append works, then delete all the locked records. If the append isn\'t successful, then unlock all the locked records.\n\nJames','',0,'wIA=','3b25asy4',1,0,'',303,0,0),(40395,8639,6,492,0,'189.147.71.87',1193409347,1,0,1,1,1,1,'','','Hola Jose\n\nPrueba asi :\n\noPage:aDialogs[1]:SetBruhs( oBrush ) \noPage:aDialogs[1]:lTransparent := .t. \n\nSaludos','',0,'','10ya7nc3',1,0,'',492,0,0),(40396,8635,3,303,0,'72.220.100.171',1193410506,1,0,1,1,1,0,'','','Otto,\n\nYou may find this info useful.\n\n[quote:1c2r5akb]     DBAPPEND()        Append a new record to the current Lock List\n     DBRLOCK()         Lock the record at the current or specified identity\n     DBRLOCKLIST()     Return an array of the current Lock List\n     DBRUNLOCK         Release all or specified record locks[/quote:1c2r5akb]\n\nJames','',0,'gA==','1c2r5akb',1,0,'',303,0,0),(40397,8628,6,110,0,'148.168.40.4',1193411072,1,0,1,1,1,1,'','','Yo lo que hago es hacer una instalacion de una nueva impresora con una bandeja determinada y hacia esa dirijo la impresion.\n\npor ejemplo solo tengo una impresora con tres bandejas. como hago para dirigirla a determinada bandeja?\n\npues creo instalo tres veces la impresora y cada una de la instalaciones en una bandeja especifica. luego dirigo la impresion a la impresora y badeja especifica. \n\nme explico?\n\nsalu2\ncarlos vargas','',0,'gA==','1zzs5zut',1,0,'',110,0,0),(40398,8640,3,210,0,'81.24.159.58',1193412072,1,0,1,1,1,0,'','GDI+','How to use the GDI+ in Harbour/Fivewin? Does anywhere use it?','',0,'gA==','2fr75tvn',1,0,'',210,0,0),(40399,8586,3,110,0,'148.168.40.4',1193412900,1,0,1,1,1,1,'','','Kleyber\n\nSaludos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\npodrias traducirme por favor.\n\nSobre el topico, puedo decir que efectivamente la mejor y mas adecuada manera es la que indica Antonio Linares, pero es necesario modificar la definiciones de Comandos, y para usuario noveles como yo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> es dificil.\n\nPero en algunos casos donde el cambio es minimos es posible la redifinicion o agregar nuevos metodos, sin mayores traumas.\n\nyo personalmente tego un prg con los metodos modificados o agregados y sin necesidad de recompilar los fuentes de fwh.\n \npero por experiencia el algunos casos aislados podria presentar una dificultad.\n\nhoy pondre un ejemplo de uso. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'gA==','2h6m6ld2',1,0,'',110,0,0),(40400,8641,6,1201,0,'200.90.17.154',1193414482,1,0,1,1,1,0,'','Problemas con Eagle (mysql) y el Wbrowse','Tengo Problemas con el comportamiento del Wbrowse accesando una tabla desde mysql con Eagle.\nAl desplegar la lista o darle Fin o Inicio, aparentemente pierde el foco, y si\nse le da PgUp o PgDn, trabaja de forma erronea, a que se puede deber esto??\n\nTengo xHarbour 7.1 y Fw 7.09\n\n*************************************************************\nFUNCTION prueba()                       &amp;&amp; Programa de prueba\n*************************************************************\nLOCAL oDlg       ,;\n      oButSalir  ,;\n      oTabla     ,;\n      oLbx       ,;\n      cTabla := \"DtsCiudad\"\n\n   DEFINE TABLE oTabla ;\n          NAME cTabla DATAFIELD ;\n          ORDER BY 1 ;\n          OF oDtBase\n\n      // Traemos el resultado a nuestro cliente\n   OPEN TABLE oTabla\n\n\n   *oTabla := TMsTable( cTabla ):New( oDtBase, cTabla )\n   // Con DataFields:\n   //   oTabla := TMyTable( cTabla ):New( oDtBase, cTabla )\n\n   // Traemos el resultado a nuestro cliente\n   IF oTabla:lOpened\n\n\n     DEFINE    DIALOG      oDlg        RESOURCE \"prueba\";\n              TITLE       \'Prueba con oTabla\'\n       oDlg:lHelpIcon  :=.f.  &amp;&amp; Apago el Icono de Help\n\n       REDEFINE LISTBOX oLbx ;\n                FIELDS PadL( oTabla:FieldGet( 1 ), 6, \" \" ),;\n                       oTabla:xFieldGet( 3 ), ;\n                       oTabla:xFieldGet( 4 ), ;\n                       oTabla:xFieldGet( 5 ), ;\n                       oTabla:xFieldGet( 6 ) ;\n                HEADERS \"Codigo\", ;\n                        \"Cod/Estado\", ;\n                        \"Ciudad\", ;\n                        \"Abreviatura\", ;\n                        \"Cod.Area\" ID 401 OF oDlg\n\n       REDEFINE  BUTTON      oButSalir     ID  101  OF oDlg;\n                 ACTION  oDlg:End()      \n\n       oTabla:GoTop():Read() // No se olvide nunca de esta linea\n       MySetBrowse( oLbx, oTabla )\n       oDlg:oClient := oLbx\n\n     ACTIVATE DIALOG oDlg CENTER\n\n     oTabla:close()\n   ELSE\n     MSGALERT(\"No se puede abrir la tabla: \" + cTabla )\n   ENDIF\nRETURN   NIL','',0,'gA==','3r9r6vr4',1,0,'',1201,0,0),(40401,8577,3,2,0,'87.218.146.170',1193414792,1,0,1,1,1,1,'','','Jeff,\n\nThe DLL expects an array of 128 long numbers (a long number uses 4 bytes = 32 bits).\n\nInstead of using 128 struct members, we are using one single string that has 128 * 4 bytes. \n\nThe DLL is being accessed as the MessageBox() is shown, though they show a [99], and according to our test they are changing the first long (SubStr( oStruct:cData, 1, 4 ) ) of the array, not the 99. \n\nCould you please ask them about this ? Could they confirm you that they are modifying the 99 element of the array instead of the first one ?','',0,'','2t2z3hov',1,0,'',2,0,0),(40402,8586,3,103,0,'189.43.121.190',1193414794,1,0,1,1,1,1,'','','Hola Carlos,\n\nCon gusto haré la trducción.\n\n-- SET ENGLISH ON\n\n[i:38j58n2s]\nAbout the subject, I can say that the best and adequate way to override a method is what Antonio said, but it\'s necessary to change all commands \ndefinitions, and for a beginner like me it\'s difficult.\n\nBut in some cases, where the changes are minimal, it\'s possible to redefine or append new methods, without problems.\n\nI personally have a prg with modified or appended methods and without need to recompile the fwh source codes.\n\nBut in my experience, in some isolated cases, this could present some difficulties.\n\nToday I\'ll post an example about it.\n\nRegards,\n\nCarlos Vargas\n[/i:38j58n2s]\n\nSaludos,','',0,'IA==','38j58n2s',1,0,'',103,0,0),(40403,5674,3,47,0,'203.144.160.247',1193414944,1,0,1,1,1,0,'','','I got it.  It has other problem such as \n- xBase edition report form save the database location in form.  The problem is you cannot copy form one folder to another folder (two set of database)\n- Export to Excel cannot to do all line (can only one selected line)\n\nBut it still have many good features and easy to distribute to customer.\n\nI love it.\n\nRegards,\nDutch','',0,'IA==','f8ov3kir',1,0,'',47,0,0),(40404,8634,6,2,0,'87.218.146.170',1193414998,1,0,1,1,1,1,'','','Enrique,\n\nTienes que recompilar todos los PRGs que se usen en la aplicación, incluidos los de cualquier librería que uses, a excepción de FWH, ya que si usas la versión más reciente nosotros ya hemos recompilado todos nuestros PRGs.','',0,'IA==','4pb2ahnv',1,0,'',2,0,0),(40405,8639,6,439,0,'200.125.48.41',1193416150,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:1yig30zt]Hola Jose\n\nPrueba asi :\n\noPage:aDialogs[1]:SetBruhs( oBrush ) \noPage:aDialogs[1]:lTransparent := .t. \n\nSaludos[/quote:1yig30zt]\n\nGracias Ray por tu respuesta, lo probé así:\n\n[code:1yig30zt]\nIF oBrush != NIL\n\n    	oDlg&#58;lTransparent &#58;= &#46;t&#46;\n    	oPage&#58;lTransparent &#58;= &#46;t&#46;\n    	oPage&#58;aDialogs&#91;1&#93;&#58;lTransparent &#58;= &#46;t&#46; \n\n    	oDlg&#58;SetBrush&#40;oBrush&#41; \n    	oPage&#58;SetBrush&#40;oBrush&#41; \n    	oPage&#58;aDialogs&#91;1&#93;&#58;SetBrush&#40; oBrush &#41;\n\n    	oDlg&#58;Refresh&#40;&#41;\n    	oPage&#58;Refresh&#40;&#41;\n    	oPage&#58;aDialogs&#91;1&#93;&#58;Refresh&#40;&#41;\n    ENDIF\n[/code:1yig30zt]\n\nPero con el mismo resultado\n\nrecibo cualquier sugerencia del foro, porfis <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gIA=','1yig30zt',1,0,'',439,0,0),(40406,8635,3,51,0,'80.122.88.242',1193417413,1,0,1,1,1,0,'','','Does someone use the Transaction Processing System (TPS) from\nAdvantage database server?\n\nRegards,\nOtto\n\nA Transaction Processing System (TPS) allow an application to perform multiple insert, update, and delete operations to any number of tables with complete confidence that either all of the insert, update, and delete operations will be successful or that none of the operations will occur. In other words, a TPS processes multiple insertions, updates, and deletions as though they were a single operation.\n\nIn networked environments, tables and their associated index files are susceptible to corruption if a workstation crashes or a network failure occurs while the tables and index files are being updated. Building an audit trail to monitor these failures is difficult. Developing a method to recover from incomplete updates is even more difficult. Transaction Processing Systems eliminate these problems and protect database integrity by automatically undoing any updates that were performed in the event of workstation or network failure. This leaves a database exactly as it was before a transaction began. \n\nTransaction Processing is not supported in the Advantage Local Server. Use of Advantage Transaction Processing functionality may appear to complete successfully when using Advantage Local Server, but in fact, use of Transaction Processing features will be ignored by Advantage Local Server applications.\n\nSee Transaction Processing System (TPS) for a full explanation of the Transaction Processing System available in the Advantage Database Server.\n\n \n \n\n\n\nThe Advantage Database Server provides the powerful features of a Transaction Processing System (TPS) for your Advantage applications. Advantage TPS allows an application to perform multiple insert, update, and delete operations to any number of tables with complete confidence that either all of the insert, update, and delete operations will be successful or that none of the operations will occur. In other words, Advantage TPS processes multiple insertions, updates, and deletions as though they were a single operation.','',0,'gIA=','2gnc4z04',1,0,'',51,0,0),(40407,6905,6,450,0,'189.20.37.10',1193417928,1,0,1,1,1,1,'','','Arturo, \n\nMe gustaria mui em usar tu clase... por favor mi correo es <!-- e --><a href=\"mailto:valdir.brando@itelefonica.com.br\">valdir.brando@itelefonica.com.br</a><!-- e --> \n\nSaludos','',0,'gIA=','3alh9a8x',1,0,'',450,0,0),(40408,8642,3,1158,0,'200.139.130.189',1193418037,1,0,1,1,1,0,'','Disable drag &amp; drop','HI, i need disable drag &amp; drop in memo fields, to users dont copy information, how to make this??\n\nthanks','',0,'gIA=','3hui14oy',1,0,'',1158,0,0),(40409,8496,3,1158,0,'200.139.130.189',1193418671,1,0,1,1,1,0,'','','Antonio, how change color of gradient of menus? thanks','',0,'gIA=','1rea3l18',1,0,'',1158,0,0),(40410,8639,6,362,0,'200.158.19.23',1193420537,1,0,1,1,1,1,'','','[code:1czqy6j1]\n    LOCAL oBrush\n\n    DEFINE BRUSH oBrush FILE &quot;MIBITMAP&#46;BMP&quot;\n\n    DEFINE DIALOG oDlg RESOURCE &quot;DLG_PAGE&quot; TITLE cTitulo ;\n           BRUSH oBrush TRANSPARENT\n[/code:1czqy6j1]','',0,'AIA=','1czqy6j1',1,0,'',362,0,0),(40411,8496,3,2,0,'87.218.146.170',1193421949,1,0,1,1,1,1,'','','Norberto,\n\nNow its not possible, but we plan to support it','',0,'AIA=','c5ycch07',1,0,'',2,0,0),(40412,8635,3,41,0,'200.87.162.67',1193422911,1,0,1,1,1,0,'','','Otto,\n\nTPS work good in ADS, but only in ADS server version, this is main differnece between LOCAL and Server version of ADS, and TPS work only if the record affected in the transaction are locked\n\nregards\n\nMarcelo\n\n[quote=&quot;Otto&quot;:3vxjqc6p]Does someone use the Transaction Processing System (TPS) from\nAdvantage database server?\n\nRegards,\nOtto\n\nA Transaction Processing System (TPS) allow an application to perform multiple insert, update, and delete operations to any number of tables with complete confidence that either all of the insert, update, and delete operations will be successful or that none of the operations will occur. In other words, a TPS processes multiple insertions, updates, and deletions as though they were a single operation.\n\nIn networked environments, tables and their associated index files are susceptible to corruption if a workstation crashes or a network failure occurs while the tables and index files are being updated. Building an audit trail to monitor these failures is difficult. Developing a method to recover from incomplete updates is even more difficult. Transaction Processing Systems eliminate these problems and protect database integrity by automatically undoing any updates that were performed in the event of workstation or network failure. This leaves a database exactly as it was before a transaction began. \n\nTransaction Processing is not supported in the Advantage Local Server. Use of Advantage Transaction Processing functionality may appear to complete successfully when using Advantage Local Server, but in fact, use of Transaction Processing features will be ignored by Advantage Local Server applications.\n\nSee Transaction Processing System (TPS) for a full explanation of the Transaction Processing System available in the Advantage Database Server.\n\n \n \n\n\n\nThe Advantage Database Server provides the powerful features of a Transaction Processing System (TPS) for your Advantage applications. Advantage TPS allows an application to perform multiple insert, update, and delete operations to any number of tables with complete confidence that either all of the insert, update, and delete operations will be successful or that none of the operations will occur. In other words, Advantage TPS processes multiple insertions, updates, and deletions as though they were a single operation.[/quote:3vxjqc6p]','',0,'gA==','3vxjqc6p',1,0,'',41,0,0),(40413,6905,6,221,0,'200.109.27.176',1193423744,1,0,1,1,1,1,'','','amigo, es lamentable lo que dices pero te notifico que \"echa la ley, echa la trampa\", osea asi como existen descompiladores, existen tanbien anti-descompiladores, para el rtlink existe un anti-descompilador, escribeme y con mucho gusto te lo envio y te explico','',0,'gA==','23n9qgqg',1,0,'',221,0,0),(40414,8635,3,6,0,'87.3.228.34',1193424535,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:5ryz4wcj]What if the append is successfully but the delete in the dbf file not?[/quote:5ryz4wcj]\n\nYou can trap DELETE error and, in the case, delete the appended record.\n\nI really don\'t see any problem.\n\nEMG','',0,'gA==','5ryz4wcj',1,0,'',6,0,0),(40415,8635,3,51,0,'80.122.88.242',1193424901,1,0,1,1,1,0,'','','&gt; I really don\'t see any problem.\n\nPlease google for:\ntransaction concepts database\n\nTransaction concepts are one of the main problems of database handling. Therefore dbf files are substituted more and more though SQL tables in bigger applications. There you have start transaction end transaction and roll back.\n\nHere a good starting point:\n<!-- m --><a class=\"postlink\" href=\"http://www.cs.utexas.edu/users/dahlin/Classes/GradOS/papers/Gray81.pdf\">http://www.cs.utexas.edu/users/dahlin/C ... Gray81.pdf</a><!-- m --> \n\n\nPlease see what ADS says about this:\n\nIn networked environments, tables and their associated index files are susceptible to corruption if a workstation crashes or a network failure occurs while the tables and index files are being updated. Building an audit trail to monitor these failures is difficult. Developing a method to recover from incomplete updates is even more difficult. Transaction Processing Systems eliminate these problems and protect database integrity by automatically undoing any updates that were performed in the event of workstation or network failure. This leaves a database exactly as it was before a transaction began.','',0,'gA==','1fc92616',1,0,'',51,0,0),(40416,8635,3,51,0,'80.122.88.242',1193425765,1,0,1,1,1,0,'','','Marcelo, \ndoes TPS work with dbf-files or only with the ADS own files?\nRegards,\nOtto','',0,'gA==','3h5ur054',1,0,'',51,0,0),(40417,8635,3,41,0,'200.87.162.67',1193426120,1,0,1,1,1,0,'','','Otto,\n\nADS work with dbf,ntx,cdx and propietary adt, my experience is with ADT, but I think there are not difference with DBF.\n\nregards\n\nMarcelo \n\n\n[quote=&quot;Otto&quot;:1t4indau]Marcelo, \ndoes TPS work with dbf-files or only with the ADS own files?\nRegards,\nOtto[/quote:1t4indau]','',0,'gA==','1t4indau',1,0,'',41,0,0),(40418,6905,6,362,0,'200.158.19.23',1193426161,1,0,1,1,1,1,'','','[quote=&quot;QAZWSX2K&quot;:rxk93a8h]amigo, es lamentable lo que dices pero te notifico que \"echa la ley, echa la trampa\", osea asi como existen descompiladores, existen tanbien anti-descompiladores, para el rtlink existe un anti-descompilador, escribeme y con mucho gusto te lo envio y te explico[/quote:rxk93a8h]\n\n???????????\n\nMis desculpas, mas no te comprendo!\n\nA que te referis??????\n\nTanbién tengo interés:\n\n<!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->','',0,'gA==','rxk93a8h',1,0,'',362,0,0),(40419,8635,3,51,0,'80.122.88.242',1193426735,1,0,1,1,1,0,'','','Thank you.\n\nCould you please post some code how to open a ADT file with FW.\nIs there much to change necessary to  convert from dbf to ADT?\nRegards,\nOtto','',0,'gA==','1991szkq',1,0,'',51,0,0),(40420,6905,6,221,0,'200.109.27.176',1193427441,1,0,1,1,1,1,'','','todos venimos de clipper pero no todos saben que existen programas \"descompiladores\" estos descompiladores van muy ligados a un enlazados especificos, si bien valkyrie o unclip, o cualquiera que haya, tanbien existen librerias y funciones para prevenir que estos programas no sirvan y nadie los pueda descompilar, el amigo arturo especifico que un programa enlazado con rtlink, bien el valkyrie lo descompila, entonces tiene 2 alternativas, o cambia el enlazado a por ejemplo blinker (y dependiendo de la version) o usa rutinas y librerias para que el descomplilador no reconozca con que se enlazo, por ende no lo pueda descompilar, si bien el clipper es vox populi, los descompiladores no los son, y menos aun los anti-descompiladores, solo es cuestion de investigar\n\ny como las cosas dichas a medias hacen el mismo efecto de no decirlas, el anti-descompilador para valkirie bien sea el programa linkeado con rtlink o blinker se llama proteggi','',0,'gA==','2mc4wlr6',1,0,'',221,0,0),(40421,8635,3,41,0,'200.87.162.67',1193428192,1,0,1,1,1,0,'','','Hi,\n\n[code:1lm2qmvx]\n\n   REQUEST ADS\n   \n   rddRegister&#40; &quot;ADS&quot;, 1 &#41;\n   rddsetdefault&#40; &quot;ADS&quot; &#41;\n\n   Set SERVER &lt;LOCAL|REMOTE&gt;\n   Set FILETYPE TO ADT //CDX or NTX\n\n   adsConnect60&#40; &quot;&lt;DICTIONARY&#46;ADD&gt;&quot;, &lt;SERVER TYPE&gt;, &quot;&lt;USER&gt;&quot;, &quot;&lt;PASSWD&gt;&quot; &#41;\n\n   adsRightsCheck&#40; &#46;F&#46; &#41;\n\n[/code:1lm2qmvx]\n\nADSConnect60 is used only if you are usigng dictionary, then all work in the same way, you don\'t need to change nothing \n\nregards\n\nMarcelo','',0,'AIA=','1lm2qmvx',1,0,'',41,0,0),(40422,8643,3,3,0,'80.81.159.19',1193428422,1,0,1,1,1,1,'','fwh october with xhb ?','Hello\n\nAnyone using last fwh (october) with last beta from xharbour.com ?\n\nI have downloaded last beta, recompiled all my libs (pcode fun ....), did a clean build and my program does not start under vista.   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nI did not recompile fw libs with xcc (i ususally use latest fwh without problems).\n\nAnyone has experienced problems with the latest configuration from xharbour\'s last beta and fwh ?\n\nThanks for sharing experience.\n\nRichard','',0,'AIA=','uc7bhyqm',1,0,'',3,0,0),(40423,6905,6,362,0,'200.158.19.23',1193428708,1,0,1,1,1,1,'','','OK. RESUELTO.\n\nGracias a diós, uso UPX.EXE para proteger mis executables.\n\nMuchas gracias, por aclarar la duda.\n\nRegards, saludos.','',0,'AIA=','1ntkmvet',1,0,'',362,0,0),(40424,8635,3,51,0,'80.122.88.242',1193428822,1,0,1,1,1,0,'','','Thank you very much. \nADS offers a free server for developers to test.\nI think I will install the server and have a look.\nRegards,\nOtto','',0,'AIA=','3rcv8pqb',1,0,'',51,0,0),(40425,6905,6,221,0,'200.109.27.176',1193429094,1,0,1,1,1,1,'','','amigo carinha, asi como hay compresores de ejecutables tanbien existe lo contrario, jaja','',0,'AIA=','2c2u24ri',1,0,'',221,0,0),(40426,8623,7,18,0,'200.67.188.236',1193429258,1,0,1,1,1,1,'','','[quote=&quot;Elias Torres&quot;:1zo7uxo9]Biel, gracias por la ayuda. He hecho lo que me comentabas y todo ha funcionado correctamente....\n\n\nSaludos.\n\nElías Torres.[/quote:1zo7uxo9]\n\nQue versión de FWPCC y de Wmobile están usando ?','',0,'gA==','1zo7uxo9',1,0,'',18,0,0),(40427,8639,6,492,0,'189.147.71.87',1193430365,1,0,1,1,1,1,'','','Jose, tienes razon.\n\nAlgo esta pasando, el codigo que te mande funciona correctamente en la version anterior que usaba ( 2.7 ), estoy probando el nuevo update ( 7.10) y mis pantallas perdieron la transparencia en los pages.\n\n\nMira :\n\n\nAntes\n[img:904t2k8m]http&#58;//img229&#46;imageshack&#46;us/img229/7850/scrtrnsokyv2&#46;jpg[/img:904t2k8m]\n\n\nDespues\n[img:904t2k8m]http&#58;//img229&#46;imageshack&#46;us/img229/7017/scrtransdg8&#46;jpg[/img:904t2k8m]\n\n\nA ver que pudiera decir Antonio al respecto.\n\n\nSaludos','',0,'CA==','904t2k8m',1,0,'',492,0,0),(40428,6905,6,1158,0,'200.139.130.189',1193432476,1,0,1,1,1,0,'','','and los debug , disassembler , like softice, ida pro, several protection methods can broke with simple ret or nop.\nsorry for my portunhol.','',0,'CA==','i3lpxypc',1,0,'',1158,0,0),(40429,8636,6,1072,0,'190.82.8.15',1193433871,1,0,1,1,1,0,'','','Loren:\n\nLa solucion pasa por que el numero de factura lo obtengas cuando realices el bloqueo de la base para grabar, en ese momento el folio de la factura sera en ULTIMO GRABADO + 1, grabas, imprimes desbloqueas y muestra en pantalla en Numero de la factura grabada.\n\nEspero te sirva, esta es la forma en que yo lo realizo.\n\nSaludos,\nAntonio','',0,'CA==','177sl22g',1,0,'',1072,0,0),(40430,6905,6,1178,0,'200.24.127.11',1193434652,1,0,1,1,1,0,'','','Arturo: \n\n\nSi es posible me interesa tu clase, Muchas gracias. \n\nSaludos y disculpa mi atrevimiento de pedirtela, pero esta demasiado buena , mi correo es <!-- e --><a href=\"mailto:rubendariogd@hotmail.com\">rubendariogd@hotmail.com</a><!-- e -->\n\n\n\nRuben Gonzalez\nColombia','',0,'CA==','61a2tcw8',1,0,'',1178,0,0),(40431,8586,3,110,0,'190.184.22.56',1193435266,1,0,1,1,1,1,'','','In my Main PRG\n[code:3pffjysg]\n#include &quot;fivewin&#46;ch&quot;\n\nprocedure main&#40;&#41;\n    &#46;&#46;&#46;\n   OverrideAndExtend&#40;&#41;\n    &#46;&#46;&#46;\n    define window &#46;&#46;&#46;\n    &#46;&#46;&#46;\n    activate window &#46;&#46;&#46;\nreturn\n[/code:3pffjysg]\n\nin other .prg\n[code:3pffjysg]\n/*-------------------------------------------------------------------------------------------------*/\n\nPROCEDURE OverrideAndExtend&#40;&#41;\n   EXTEND CLASS TFOLDER  WITH METHOD RefreshPages\n   EXTEND CLASS TFOLDER  WITH METHOD GoFirstControl\n   EXTEND CLASS TDIALOG  WITH METHOD RefreshDialog\n   RETURN\n\n/*-------------------------------------------------------------------------------------------------*/\nSTATIC FUNCTION RefreshDialog&#40; nPos &#41;\n   LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n   DEFAULT nPos &#58;= 0\n   AEval&#40; &#58;&#58;aControls, &#123; | oCtrl | oCtrl&#58;Refresh&#40;&#41; &#125; &#41;\n   IF nPos &gt; 0 &#46;AND&#46; Len&#40; &#58;&#58;aControls &#41; &gt; 0\n      &#58;&#58;aControls&#91; nPos &#93;&#58;SetFocus&#40;&#41;\n   ENDIF\n   RETURN NIL\n\n/*-------------------------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION RefreshPages&#40;&#41;\n   LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n   LOCAL oPage\n   FOR EACH oPage IN &#58;&#58;aDialogs\n      AEval&#40; oPage&#58;aControls, &#123; | oCtrl | oCtrl&#58;Refresh&#40;&#41; &#125; &#41;\n   NEXT\n   RETURN NIL\n\n/*-------------------------------------------------------------------------------------------------*/\n\nSTATIC FUNCTION GoFirstControl&#40;&#41;\n   LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n   &#58;&#58;aDialogs&#91; 1 &#93;&#58;aControls&#91; 1 &#93;&#58;SetFocus&#40;&#41;\n   RETURN NIL\n\n/*-------------------------------------------------------------------------------------------------*/\n[/code:3pffjysg]','',0,'AIA=','3pffjysg',1,0,'',110,0,0),(40432,8586,3,110,0,'190.184.22.56',1193437712,1,0,1,1,1,1,'','','Aca un codigo inicial para hacer lo que pides, falta codificar un poco \nlo referente al movimiento de las page del folder, en este ejemplo solamente pasa de la pagina 1 a la pagina 2.\n\notra cosa es que no he probado el codigo, pero en teoria deberia funcionar. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, si no pues habria que hacerle pequeños ajustes, pero la idea esta plasmada <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[code:ku1tsvww]\n\n#include &quot;fivewin&#46;ch&quot;\n\nPROCEDURE main&#40;&#41;\n  &#46;&#46;&#46;\n\n  OverrideAndExtend&#40;&#41;\n  &#46;&#46;&#46;\n  redefine folder oFolder &#46;&#46;&#46;\n  &#46;&#46;&#46;\n  redefine listbox oBrw &#46;&#46;&#46;\n\n  oBrw&#58;oFolder &#58;= oFolder\n  &#46;&#46;&#46;\n\nRETURN\n\n[/code:ku1tsvww]\n\n[code:ku1tsvww]\n\n/*---------------------------------------------------------------------------*/\n\n#include &quot;vkey&#46;ch&quot;\n\nPROCEDURE OverrideAndExtend&#40;&#41;\n   \n   /*new data and method*/\n   EXTEND CLASS TWBROWSE WITH DATA   oFolder\n   EXTEND CLASS TWBROWSE WITH METHOD NextPageOnFolder\n   EXTEND CLASS TWBROWSE WITH METHOD PrevPageOnFolder\n\n   /*change method*/\n   OVERRIDE METHOD KeyDown CLASS TWBROWSE WITH METHOD MyKeyDown\n\n   RETURN \n\n/*---------------------------------------------------------------------------*/\n\nSTATIC FUNCTION NextPageOnFolder&#40;&#41;\n   LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n   LOCAL nCountPage &#58;= len&#40; &#58;&#58;oFolder&#58;aDialogs &#41;\n\n   //TODO&#58; Make code correct &#58;-&#41;\n \n   &#58;&#58;oFolder&#58;SetOption&#40;1&#41;\n\n   RETURN NIL\n\n/*---------------------------------------------------------------------------*/\n\nSTATIC FUNCTION PrevPageOnFolder&#40;&#41;\n   LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n   LOCAL nCountPage &#58;= len&#40; &#58;&#58;oFolder&#58;aDialogs &#41;\n\n   //TODO&#58; Make code correct &#58;-&#41;\n\n   &#58;&#58;oFolder&#58;SetOption&#40;2&#41;\n\n   RETURN NIL\n\n/*---------------------------------------------------------------------------*/\n\nSTATIC FUNCTION MyKeyDown&#40; nKey, nFlags &#41;\n    LOCAL SELF &#58;= HB_QSelf&#40;&#41;\n   \n    DO CASE\n    CASE nKey == VK_UP\n        &#58;&#58;GoUp&#40;&#41;\n    CASE nKey == VK_DOWN\n        &#58;&#58;GoDown&#40;&#41;\n    CASE nKey == VK_LEFT //modify\n        IF &#58;&#58;oFolder=NIL\n            &#58;&#58;GoLeft&#40;&#41;\n        ELSE\n            &#58;&#58;PrevPageOnFolder&#40;&#41;\n        ENDIF        \n    CASE nKey == VK_RIGHT //modify\n        IF &#58;&#58;oFolder=NIL\n            &#58;&#58;GoRight&#40;&#41;\n        ELSE\n            &#58;&#58;NextPageOnFolder&#40;&#41;\n        ENDIF\n    CASE nKey == VK_HOME\n        &#58;&#58;GoTop&#40;&#41;\n    CASE nKey == VK_END\n        &#58;&#58;GoBottom&#40;&#41;\n    CASE nKey == VK_PRIOR\n        IF GetKeyState&#40; VK_CONTROL &#41;\n            &#58;&#58;GoTop&#40;&#41;\n        ELSE\n            &#58;&#58;PageUp&#40;&#41;\n        ENDIF\n\n     CASE nKey == VK_NEXT\n         IF GetKeyState&#40; VK_CONTROL &#41;\n             &#58;&#58;GoBottom&#40;&#41;\n         ELSE\n             &#58;&#58;PageDown&#40;&#41;\n         ENDIF\n\n     OTHEWISE\n         RETURN Super&#58;KeyDown&#40; nKey, nFlags &#41;\n     ENDCASE\n\nRETURN 0\n\n/*---------------------------------------------------------------------------*/\n[/code:ku1tsvww]\n\nsalu2\ncarlos vargas','',0,'AIA=','ku1tsvww',1,0,'',110,0,0),(40433,8639,6,439,0,'200.125.43.225',1193442240,1,0,1,1,1,1,'','','Con la 7.01 es lo mismo que es la que yo tengo.\n\nAntonio,\n\nAlguna solución?','',0,'AIA=','2wnwpqbh',1,0,'',439,0,0),(40434,6905,6,105,0,'201.246.189.120',1193442527,1,0,1,1,1,1,'','','Arturo\n\nyo tambien me uno a la solicitud.\n\nMi mail  <!-- e --><a href=\"mailto:desarollo@xdata.cl\">desarollo@xdata.cl</a><!-- e -->\n\nMuchas gracias por tu aporte.\n\nDesde Chile \n\nAdolfo','',0,'AIA=','2a2jva2m',1,0,'',105,0,0),(40435,8636,6,940,0,'189.175.212.254',1193442713,1,0,1,1,1,1,'','','Lorenzo\n\naqui se habla del tema y la sulucion\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7522&amp;highlight=factura\">http://fivetechsoft.com/forums/viewtopi ... ht=factura</a><!-- m -->\n\nsaludos..','',0,'AIA=','1b25fjps',1,0,'',940,0,0),(40436,8632,6,940,0,'189.175.212.254',1193443039,1,0,1,1,1,1,'','','Armando, \n\nlo mas facil creo es poner un array en caso de que el recorset\n\neste vacio,  pero desconozco el como hacerlo\n\ncon xbrowse,   algun guro que nos pueda hechar un hilo,\n\nsaludos..','',0,'AIA=','1ok09o4a',1,0,'',940,0,0),(40437,8577,3,69,0,'74.13.56.228',1193443471,1,0,1,1,1,1,'','','Hi Antonio,\n\nHere is the reply:\n\n\nYes, in the DLL we change a[99] only, a[0] remains the same.\n\nWe\'ve compiled a test application (using the code from our C.txt sample), and placed this to the TestDLL.zip at the same address, please download it.\nBy this application you can set a[0] value before the DLL function call ( = 0 by default), click the button to call DLL, and then see both a[0] and a[99] result values.\nIf a[0] is equal to 0, a[1] = 1 ... a[127] = 127 before the function call, after the function call a[99] would be equal to 8300.','',0,'','3ajxx0ye',1,0,'',69,0,0),(40438,8575,6,348,0,'201.230.4.84',1193447405,1,0,1,1,1,0,'','','Hola Ricardo\nen este momento estoy fuera de oficina, el fin de semana le doy una revisada y te comento. \nGracias \nLubin\n\n\n[quote=&quot;ricardomouramarques&quot;:1kenzpzp]Lubin e amigos,\n\nMe parece haver um entendimento equivocado do Anti-Virus com o gerador de instalação ( CREATE INSTALL ).\n\nDe qualquer forma disponibilizei o VRMM sem o instalador.\n\nAgora há uma opção de download do VRMM em ZIP FILE. ( Lubin, descarregue a opção ZIP e verifique, por favor. Me dê una resposta. )\n\nMas una novidade: O VRMM ganhou site definitivo: <!-- w --><a class=\"postlink\" href=\"http://www.vrmm.com.br\">www.vrmm.com.br</a><!-- w -->\n\n\nsaludos,\n\nRicardo Marques[/quote:1kenzpzp]','',0,'gA==','1kenzpzp',1,0,'',348,0,0),(40439,6905,6,1158,0,'200.139.130.189',1193449110,1,0,1,1,1,0,'','','me too... <!-- e --><a href=\"mailto:norberto@windowslive.com\">norberto@windowslive.com</a><!-- e -->','',0,'gA==','1jwegq7o',1,0,'',1158,0,0),(40440,6905,6,135,0,'87.23.168.190',1193462751,1,0,1,1,1,0,'','','please send class to <!-- e --><a href=\"mailto:vensanto@tiscali.it\">vensanto@tiscali.it</a><!-- e -->\nthanks','',0,'gA==','3sppcugt',1,0,'',135,0,0),(40441,8577,3,2,0,'87.218.146.170',1193470798,1,0,1,1,1,1,'','','Jeff,\n\nOk, here you having it working fine. I redesigned it in a total different way:\n[code:2u3wtsc5]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local cArray &#58;= FillArray&#40;&#41;\n\n   MsgInfo&#40; A99&#40; cArray &#41; &#41;\n\n   TestFunc1&#40; cArray &#41; \n\n   MsgInfo&#40; A99&#40; cArray &#41; &#41;\n   \nreturn nil \n\nDLL FUNCTION TESTFUNC1&#40; pValues AS LPSTR &#41; AS BOOL PASCAL ;\nFROM &quot;TestFunc1&quot; LIB &quot;TestLib12&#46;dll&quot; \n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; FILLARRAY &#41;\n&#123;\n   LONG a&#91; 128 &#93;;\n   int i;\n   \n   for&#40; i = 0; i &lt; 128; i++ &#41;\n      a&#91; i &#93; = i;\n      \n   hb_retclen&#40; &#40; char * &#41; a, 128 * sizeof&#40; LONG &#41; &#41;;\n&#125;      \n\nHB_FUNC&#40; A99 &#41;\n&#123;\n   LONG * a =  &#40; LONG * &#41; hb_parc&#40; 1 &#41;;\n   \n   hb_retnl&#40; a&#91; 99 &#93; &#41;;\n&#125;   \n   \n#pragma ENDDUMP         \n[/code:2u3wtsc5]','',0,'AIA=','2u3wtsc5',1,0,'',2,0,0),(40442,8640,3,2,0,'87.218.146.170',1193471133,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/forums/viewtopic.php?t=7807&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://www.fivetechsoft.com/forums/view ... highlight=</a><!-- m -->','',0,'AIA=','2x8ukfcb',1,0,'',2,0,0),(40443,8643,3,3,0,'80.81.159.19',1193471366,1,0,1,1,1,1,'','Re: fwh october with xhb ?','problem fixed \n\nagain pcode.....gotta love xharbour pcode ! <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> \n\nsorry for inconvenience\n\nRichard','',0,'AIA=','1j3mruzd',1,0,'',3,0,0),(40444,8643,3,2,0,'87.218.146.170',1193471371,1,0,1,1,1,1,'','','Richard, \n\nThe last beta that we have for xHB is June2007-RC14, and its working fine\n\nIs that the one that you are using ?\n\nWe are going to check their website','',0,'AIA=','doem1uva',1,0,'',2,0,0),(40445,8643,3,2,0,'87.218.146.170',1193471595,1,0,1,1,1,1,'','','Richard,\n\n&gt; problem fixed \n\nOk <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWhats the latest available beta ?','',0,'AIA=','tz1fu975',1,1193483173,'',2,1,0),(40446,8586,3,51,0,'80.122.88.242',1193472033,1,0,1,1,1,0,'','','Hello Carlos,\nThank you for your help. Could it be that EXTEND CLASS is only avaiable in xHarbour?\nSyntax error: \"syntax error at \'CLASS\'\"\n\nI will try with inherit.\nThanks again,\nRegards,\nOtto','',0,'AIA=','2li7np4n',1,0,'',51,0,0),(40447,8586,3,2,0,'87.218.146.170',1193477635,1,0,1,1,1,1,'','','Otto,\n\nWhy don\'t you simply modify the class source code ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','f757ku3j',1,0,'',2,0,0),(40448,8639,6,2,0,'87.218.146.170',1193477953,1,0,1,1,1,1,'','','Raymundo,\n\nPuedes por favor comparar el código fuente de TPages en la 2.7 y en la 7.10 ? gracias','',0,'AIA=','9eur989k',1,0,'',2,0,0),(40449,8586,3,6,0,'80.181.217.252',1193479625,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:9o3cjymu]Could it be that EXTEND CLASS is only avaiable in xHarbour?[/quote:9o3cjymu]\n\nYes, as far as I know.\n\nEMG','',0,'gA==','9o3cjymu',1,0,'',6,0,0),(40450,8644,6,838,0,'80.59.225.15',1193480462,1,0,1,1,1,0,'','A ver si alguien me aclara éste error','Hola a todos\n\nTengo éste código[code:3grhj11v]cFile&#58;=&quot;ALBARAN&quot;\ndbUseArea&#40;&#46;T&#46;,,&#40;cFile&#41;,&quot;Pedidos&quot;,&#46;T&#46;&#41;\nPedidos-&gt;&#40;OrdSetFocus&#40;&quot;Codigo&quot;&#41;&#41;\npedidos-&gt;&#40;Dbgotop&#40;&#41;&#41;\nCursorWait&#40;&#41;\n//***** _DIAS = 90\ndStartDate&#58;=DATE&#40;&#41;-_DIAS\nCOPY TO POD2WEB1 FOR pedidos-&gt;FECHA &gt; dStartDate [/code:3grhj11v]\n\nLa base de datos ALBARAN.DBF, tiene campo memo, por lo tanto tiene ALBARAN.FPT.\n\nBien, pues cuando llega al copy, me hace bien la copia en el fichero POD2WEB1.DBF, y me genera un POD2WEB1.FPT, pero se queda aquí, no continua y me lanza el siguiente error:\n[list:3grhj11v]   Error description: Error DBFCDX/1010  Read error: G:\\mocwin\\2007\\ALBARAN.fpt\n\nStack Calls\n===========\n   Called from:  =&gt; __DBCOPY(0)\n   Called from: subesube.prg =&gt; CREATEMPCLI(229)\n[/list:u:3grhj11v]\n\nSi pongo el codeblock para averiguar el error delante de la línea en cuestión, me da los siguientes errores\n[img][url=http&#58;//img528&#46;imageshack&#46;us/my&#46;php?image=error1pv1&#46;jpg:3grhj11v][img]http://img528.imageshack.us/img528/4216/error1pv1.th.jpg[/img][/url:3grhj11v] [/img]\n[img][url=http&#58;//img150&#46;imageshack&#46;us/my&#46;php?image=error2oh0&#46;jpg:3grhj11v][img]http://img150.imageshack.us/img150/9868/error2oh0.th.jpg[/img][/url:3grhj11v][/img]\n\nQue podrá ser?  Será por el fpt? \nSerá mejor que en lugar de un copy to, cree la base en blanco y haga un append from?\n\nSaludos','',0,'GMA=','3grhj11v',1,0,'',838,0,0),(40451,8643,3,3,0,'80.81.159.19',1193482966,1,0,1,1,1,1,'','','Antonio\n\nRC 21  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nHopefully they have promised a stable build this week.  \n\nI have it working now, thanks for your concern  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRichard','',0,'GMA=','30zrwl78',1,0,'',3,0,0),(40452,8586,3,51,0,'80.122.88.242',1193486256,1,0,1,1,1,0,'','','Antonio,\nthank you. I did it. Never thought it is that easy.\nRegards,\nOtto','',0,'GMA=','2sm2u9gw',1,0,'',51,0,0),(40453,8645,3,51,0,'80.122.88.242',1193487086,1,0,1,1,1,0,'','Inherit a class from another to add new methods for FW WIKI','(div. posts from the NG)\nI am trying to inherit a class from another because I need to add a method.\n\nI am getting an error that I don´t have if I use the original class.\nThe object seems not to be created at all...\nThe code is something like this:\n\nClass CL2 from CL1\nMETHOD PrintCl()\nENDCLASS\n\nMETHOD PrintCl() class CL2\nalert(\"CL2\")\nreturn NIL\n\nQuestions:\nAl the CL1 methods are avaiable in CL2 ?\nDo I need a constructor/destructor method or the CL1 one is used ?\n--------------------------------------------------------------------------------\n\nDon\'t forget to add:\n\nCLASSDATA lRegistered AS LOGICAL\n--------------------------------------------------------------------------------\n\nWhy ?\nWhat is \"lRegistered\" ?\n\n\n-It is a flag that allows a one-time registration of a control class. It is\nneeded to get Windows aware of the new control.\n\n-Ok, but could you tell me when I need it and when I do not ?\n\n-If you are creating a temporary stand alone class from scratch and you will\nnot inherit from it then it is not required\n\n-If you plan on inheriting from your class or your class is inheriting from\nanother, then you will need to add it.\n\n-And apparently you need it only sometimes when it is a control. For instance,\nthe DBCombo class inherits from the TCombobox class but doesn\'t have\nlRegistered (and it works fine). Perhaps lRegistered should be added, but one\nwonders why it works without it.\n\n-Because you are inheriting from a standard Windows control and not creating a\nnew custom control.\n\n-Thanks for clarifying that.\n\n\nThen add your new class to a .ch file.\nExample:\nxTWbrowse inherits from tWbrose\n\n#xcommand @ &lt;nRow&gt;, &lt;nCol&gt; XLISTBOX [ &lt;oBrw&gt; ] FIELDS [&lt;Flds,...&gt;] ;\n               [ ALIAS &lt;cAlias&gt; ] ;\n               [ &lt;sizes:FIELDSIZES, SIZES, COLSIZES&gt; &lt;aColSizes,...&gt; ] ;\n               [ &lt;head:HEAD,HEADER,HEADERS,TITLE&gt; &lt;aHeaders,...&gt; ] ;\n               [ SIZE &lt;nWidth&gt;, &lt;nHeigth&gt; ] ;\n               [ &lt;dlg:OF,DIALOG&gt; &lt;oDlg&gt; ] ;\n               [ SELECT &lt;cField&gt; FOR &lt;uValue1&gt; [ TO &lt;uValue2&gt; ] ] ;\n               [ ON CHANGE &lt;uChange&gt; ] ;\n               [ ON [ LEFT ] CLICK &lt;uLClick&gt; ] ;\n               [ ON [ LEFT ] DBLCLICK &lt;uLDblClick&gt; ] ;\n               [ ON RIGHT CLICK &lt;uRClick&gt; ] ;\n               [ FONT &lt;oFont&gt; ] ;\n               [ CURSOR &lt;oCursor&gt; ] ;\n               [ &lt;color: COLOR, COLORS&gt; &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ;\n               [ MESSAGE &lt;cMsg&gt; ] ;\n               [ &lt;update: UPDATE&gt; ] ;\n               [ &lt;pixel: PIXEL&gt; ] ;\n               [ WHEN &lt;uWhen&gt; ] ;\n               [ &lt;design: DESIGN&gt; ] ;\n               [ VALID &lt;uValid&gt; ] ;\n               [ ACTION &lt;uAction,...&gt; ] ;\n      =&gt; ;\n          [ &lt;oBrw&gt; := ] xTWBrowse():New( &lt;nRow&gt;, &lt;nCol&gt;, &lt;nWidth&gt;, &lt;nHeigth&gt;,;\n                           [\\{|| \\{&lt;Flds&gt; \\} \\}], ;\n                           [\\{&lt;aHeaders&gt;\\}], [\\{&lt;aColSizes&gt;\\}], ;\n                           &lt;oDlg&gt;, &lt;(cField)&gt;, &lt;uValue1&gt;, &lt;uValue2&gt;,;\n                           [&lt;{uChange}&gt;],;\n                           [\\{|nRow,nCol,nFlags|&lt;uLDblClick&gt;\\}],;\n                           [\\{|nRow,nCol,nFlags|&lt;uRClick&gt;\\}],;\n                           &lt;oFont&gt;, &lt;oCursor&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;cMsg&gt;,;\n                           &lt;.update.&gt;, &lt;cAlias&gt;, &lt;.pixel.&gt;, &lt;{uWhen}&gt;,;\n                           &lt;.design.&gt;, &lt;{uValid}&gt;, &lt;{uLClick}&gt;,;\n                           [\\{&lt;{uAction}&gt;\\}] )','',0,'','3s0fuito',1,0,'',51,0,0),(40454,8639,6,492,0,'189.147.71.87',1193491273,1,0,1,1,1,1,'','','Master Antonio :\n\nExiste una Linea con diferencias en el Metodo Redefine :\n\n\nEn la version 2.7 esta asi :\n\nDEFAULT nOption := 1, oFont := ::GetFont()\n\n\ny en la 7.10 :\n\nDEFAULT nOption := 1, oWnd := GetWndDefault(), oFont := ::GetFont()\n\n\nEspero te sirva.\n\nSaludos','',0,'','ai0uos2y',1,0,'',492,0,0),(40455,8639,6,2,0,'87.218.146.170',1193492596,1,0,1,1,1,1,'','','Raymundo,\n\nGracias. Es lo que suponía: no hay cambios en TPages.\n\nPuedes probar a quitar el cero que añadimos en window.prg en el método EndPaint() y probar tu aplicación ? gracias,\n[code:7ma71wuj]\n   METHOD EndPaint&#40;&#41; INLINE &#58;&#58;nPaintCount--,;\n                     EndPaint&#40; &#58;&#58;hWnd, &#58;&#58;cPS &#41;, &#58;&#58;cPS &#58;= nil, &#58;&#58;hDC &#58;= nil // , 0 \n[/code:7ma71wuj]','',0,'AIA=','7ma71wuj',1,0,'',2,0,0),(40456,8632,6,496,0,'200.107.36.176',1193494563,1,0,1,1,1,0,'','','Armando\n\nNo uso xbrowse, yo uso wbrowse, y lo que hago es controlar si el recordset NO está vacio muestro datos caso contrario no , así:\n\n @ 1, 1 LISTBOX oBrw FIELDS if(!ors:EOF .and. !oRs:BOF,  oRs:Fields(0):value,  )\n\nEl principio es el mismo, así que no creo que tengas problemas en aplicarlo en el xbrowse.\n\nEspero te ayude,\n\nUn Saludo\n\nMarcelo Jingo','',0,'AIA=','zxk77pd4',1,1193533190,'',496,2,0),(40457,8639,6,492,0,'189.147.71.87',1193494607,1,0,1,1,1,1,'','','Antonio\n\nSigue igual, pero ahora perdi el look 2007 en el menu, la barra de mensajes sigue bien.\n\nAhora, me estoy dando cuenta de algo :\n\nPara dar la apariencia XP estoy usando un archivo con el mismo nombre del ejecutable p.e. MiApp.EXE.Manifest si esta \"activo\" es cuando veo un desastre en las pantallas,si lo renombro ya no se ven los problemas (brush de fondo y transparencias ), pero pierdo lo agradable de la apariencia.\n\nSaludos','',0,'AIA=','1fq9qrcr',1,0,'',492,0,0),(40458,8639,6,439,0,'200.125.39.228',1193494875,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:cwqd46gm]Antonio\n\nSigue igual, pero ahora perdi el look 2007 en el menu, la barra de mensajes sigue bien.\n\nAhora, me estoy dando cuenta de algo :\n\nPara dar la apariencia XP estoy usando un archivo con el mismo nombre del ejecutable p.e. MiApp.EXE.Manifest si esta \"activo\" es cuando veo un desastre en las pantallas,si lo renombro ya no se ven los problemas (brush de fondo y transparencias ), pero pierdo lo agradable de la apariencia.\n\nSaludos[/quote:cwqd46gm]\n\nAntonio, \n\nUtilizo la versión 7.01, que creo fué la primera con transparencia y allí en la clase twindow no está el cero referido, y presenta la falla.\n\nIncluso hay un topico mío por enero 2007 referido a ese problema con las pages en el foro, que no fué respondido.\n\nPienso que los tiros deben venir por otro lado...','',0,'gA==','cwqd46gm',1,0,'',439,0,0),(40459,8644,6,838,0,'80.59.225.15',1193498159,1,0,1,1,1,0,'','','Solucionado\n\nDebía de estar corrupto el fpt, le he pasado el Advanced Dbf Repair, y ya funciona\n\nSaludos','',0,'gA==','3hpojoin',1,0,'',838,0,0),(40460,8596,6,496,0,'200.107.36.176',1193498796,1,0,1,1,1,0,'','','Hola Fernando\n\nEsto es lo que debes hacer:\n\noExcel := TOleAuto():New( \"Excel.Application\" )\noExcel:WorkBooks:Add()\n[b:342scmjg]oExcel:ActiveWorkbook:password=\"miclave\"[/b:342scmjg]\noHoja := oExcel:Get( \"ActiveSheet\" )\n\nUn Saludo\n\n\nMarcelo Jingo','',0,'QA==','342scmjg',1,0,'',496,0,0),(40461,8646,7,18,0,'189.143.56.248',1193501341,1,0,1,1,1,1,'','imagenes jpg','Antonio :\n\nHay alguna forma de mostrar archivos .jpg con FWPPC ?\n\nSaludos','',0,'QA==','ywup4dtm',1,0,'',18,0,0),(40462,8647,3,1193,0,'59.105.14.100',1193502205,1,0,1,1,1,0,'','FWH support TaskDialog ActiveX for Vista OS','Hi\n\nJust test a ActiveX like Vista TaskDialog interface.\n\n[url=http&#58;//img46&#46;imageshack&#46;us/my&#46;php?image=taskdialog1qr2&#46;jpg:1yi7xw9d][img:1yi7xw9d]http&#58;//img46&#46;imageshack&#46;us/img46/865/taskdialog1qr2&#46;th&#46;jpg[/img:1yi7xw9d][/url:1yi7xw9d]\n\n[url=http&#58;//img113&#46;imageshack&#46;us/my&#46;php?image=taskdialog2ij8&#46;jpg:1yi7xw9d][img:1yi7xw9d]http&#58;//img113&#46;imageshack&#46;us/img113/5263/taskdialog2ij8&#46;th&#46;jpg[/img:1yi7xw9d][/url:1yi7xw9d]\n\n[url=http&#58;//img132&#46;imageshack&#46;us/my&#46;php?image=taskdialog3yk4&#46;jpg:1yi7xw9d][img:1yi7xw9d]http&#58;//img132&#46;imageshack&#46;us/img132/7835/taskdialog3yk4&#46;th&#46;jpg[/img:1yi7xw9d][/url:1yi7xw9d]\n\n[url=http&#58;//img113&#46;imageshack&#46;us/my&#46;php?image=taskdialog4oo4&#46;jpg:1yi7xw9d][img:1yi7xw9d]http&#58;//img113&#46;imageshack&#46;us/img113/399/taskdialog4oo4&#46;th&#46;jpg[/img:1yi7xw9d][/url:1yi7xw9d]\n\n[url=http&#58;//img132&#46;imageshack&#46;us/my&#46;php?image=taskdialog5qk6&#46;jpg:1yi7xw9d][img:1yi7xw9d]http&#58;//img132&#46;imageshack&#46;us/img132/3186/taskdialog5qk6&#46;th&#46;jpg[/img:1yi7xw9d][/url:1yi7xw9d]\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/65687379/Vista-TaskDialog-2.rar.html\">http://rapidshare.com/files/65687379/Vi ... 2.rar.html</a><!-- m -->\n\n\nRegards,\n\nRichard','',0,'GA==','1yi7xw9d',1,0,'',1193,0,0),(40463,8648,6,1195,0,'190.38.52.6',1193504410,1,0,1,1,1,0,'','Como creo un Boton con el Color de Texto y Fondo que desee','Como crear un Boton con el Color de Texto y Fondo que desee, por ejm :\nFondo Rojo con Texto Negro.\n\n\nProbe con el comando @ nRow, nCol BUTTON ...... y no se puede cambiar\nel color. Lo toma predeterminado de Windows.\n\nMaster Antonio, me dice que pruebe con el comando @ nRow, nCol BTNBMP ... pero tampoco veo el atributo COLOR.\n\nGracias por la atencion prestada,\n\nRegards, \n\nSaludos,','',0,'GA==','12mcf8sf',1,0,'',1195,0,0),(40464,6905,6,1146,0,'87.223.174.162',1193505203,1,0,1,1,1,0,'','','A mi también me interesa.\nMuchas gracias!!!!. Moisés','36326104799dc0669c224b41bd7b17e0',0,'','13dc7611',1,1476806956,'',1146,1,0),(40465,8619,6,43,0,'189.188.19.154',1193510530,1,0,1,1,1,0,'','','Hola\n\nCompañeros para eso existen los triggers en SQL, para estos casos.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos\nMarco A. Delgado','',0,'GA==','1vxniv1u',1,0,'',43,0,0),(40466,8632,6,53,0,'189.139.97.250',1193512792,1,0,1,1,1,1,'','','Marcelo:\n\nGracias por la idea, voy a tirarle por ahí.\n\nSaludos','',0,'GA==','1vbsbbrn',1,0,'',53,0,0),(40467,8645,3,303,0,'72.220.100.171',1193517895,1,0,1,1,1,0,'','','Otto,\n\n&gt;I am getting an error that I don´t have if I use the original class. \n&gt;The object seems not to be created at all... \n\nThe code looks OK. What is the error you are getting? Are you inheriting from an existing FWH class or one that you wrote? Have you read my OOP articles on my website?\n\nI advise not naming your method PrintCl but rather just Print. Remember that one of the great features of OOP is that you can use the same method name in more than one class. This allows you to call the same method name without even knowing which object you are dealing with. Later you will see how valuable this feature is.\n\n&gt;All the CL1 methods are avaiable in CL2 ? \n\nYes.\n\n&gt;Do I need a constructor/destructor method or the CL1 one is used ? \n\nThe CL1 is used.\n\nJames','',0,'GA==','2cay2xuu',1,0,'',303,0,0),(40468,8586,3,303,0,'72.220.100.171',1193518223,1,0,1,1,1,0,'','','The negative of modifing the FW source code is that you have to make any modifications to each new version of FW. Remembering to do this is difficult.\n\nJames','',0,'GA==','2tq5ur56',1,0,'',303,0,0),(40469,8645,3,51,0,'80.122.88.242',1193518417,1,0,1,1,1,0,'','','Sorry James, \nI expressed my self wrong.\nAll is working. I though this could be transferred into the new Fivewin WIKI.\nRegards,\nOtto\n\n[quote:3f6a3bb8]Hua, \n\nWe are organizing a FiveTech wiki at: \n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/wiki\">www.fivetechsoft.com/wiki</a><!-- w --> \n\nIts empty by now. If someone wants to cooperate on its development, please request a login and password from us.\n_________________\nregards, saludos \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->[/quote:3f6a3bb8]','',0,'gA==','3f6a3bb8',1,0,'',51,0,0),(40470,8586,3,103,0,'189.43.121.190',1193519900,1,0,1,1,1,1,'','','James,\n[quote:36rctsm2]The negative of modifing the FW source code is that you have to make any modifications to each new version of FW. Remembering to do this is difficult. \n[/quote:36rctsm2]\n\nThat\'s why I\'m using OVERRIDE METHOD command. But I think it\'s a matter of each one\'s choice. \nBest regards,','',0,'gA==','36rctsm2',1,0,'',103,0,0),(40471,8648,6,2,0,'87.218.146.170',1193520313,1,0,1,1,1,1,'','','@ nRow, nCol BTNBMP oBtn ...\n\noBtn:SetColor( nColorTexto, nClrFondo )','',0,'gA==','1ifosv8f',1,0,'',2,0,0),(40472,8649,3,51,0,'80.122.88.242',1193520797,1,0,1,1,1,0,'','oWdn:Say  - SAY class','would someone  be so kind to explain the difference of\noWdn:Say\n\nand the SAY class.\n oSay is repainted automatically what does this mean for the memory usage.\nThanks in advance\nOtto','',0,'gA==','2wzfitya',1,0,'',51,0,0),(40473,8636,6,396,0,'200.71.188.210',1193521168,1,0,1,1,1,1,'','','Loren, \nTe recomiendo lo siguiente, imagino muchos otros lo haran asi, sino, es un buen metodo, crea una DBF donde controlas la numeracion de tus documentos; pedidos, facturas, recibos de cobro, etc; y como ya te han dicho todos, aunmentas el numero al finalizar tu documento siendo num_actual= num_actual +1, funciona super...SPERO TE AYUDE...','',0,'gA==','1dwwbhb1',1,0,'',396,0,0),(40474,8649,3,6,0,'87.9.34.178',1193522610,1,0,1,1,1,1,'','Re: oWdn:Say  - SAY class','[quote=&quot;Otto&quot;:jlkb3eo0]would someone  be so kind to explain the difference of\noWdn:Say\n\nand the SAY class.\n oSay is repainted automatically what does this mean for the memory usage.\nThanks in advance\nOtto[/quote:jlkb3eo0]\n\noWnd:Say() is just a text printed on the specified window while TSay is a real control. And yes, it surely uses more resources but I wouldn\'t care.\n\nEMG','',0,'gA==','jlkb3eo0',1,0,'',6,0,0),(40475,8619,6,940,0,'189.175.212.254',1193523204,1,0,1,1,1,1,'','','Hi Rene,,\n\nestamos tan acostumbrados a los delted en xbase\n\nque se nos hace preocupante este tema jejeje,\n\npero bueno meteremos un campo bolean en las tablas\n\npara controlar esto,,\n\n\nsaludos....','',0,'gA==','p0nm540u',1,0,'',940,0,0),(40476,8583,3,299,0,'24.233.172.101',1193527852,1,0,1,0,1,0,'','','Rafael;\n\nAre you using a Data Dictionary?  If you are not, then seriously consider creating a data dictionary.  It enhances functionality and many times speed to data access.  \n\nTo begin debugging try to execute the same from ARC32 using an SQL statement:\n\nSELECT * FROM [dbftablename] WHERE contains( fieldname, \"taller\" )\n\nARC32 shows the time of execution on the status line.  A similar request on my test Linux server yields 0.375 secs on a dbf populated with 734,000 records.  It also depends on how many records are returned.\n\nAdvantage supports a better type of filter named AOF().  These are optimized indexes that perform much faster.\n\nDon\'t give up on learning how to use ADS.  Advantage has opened much larger markets for my product.  I can now install my system on LANS with more than 250 users.  I\'m able to have multiple satellite stores with 50 or so workstations and all satellite servers connect to a single central server via an internet connection.  The central server contains all the data from all the satellite servers.  --A user can not delete (not even on purpose) a dbf table nor can it be taken on an USB flash stick.  Data is secure.  --I have never done a reindex.  On one of my customers a single table is 95 GB.  --Triggers, --fast text search, --Referential Integrity,  --Replication, --SQL and ISAM access to data, -- .NET integration.\n\nFinally, using ADS I\'m now writing PHP code that runs on a browser that accesses dbf/cdx data on a Linux server running ADS and Apache.  It flies.   You could use PHP as I am, or Java, or Pearl, or ASP .net to write your web pages and still use xharbour for your win32 apps sharing the very same data (dbf/cdx or dbf/ntx or adt/adi). \n\nThe biggest problem we face is that Advantage does not know that we exist.  They support Delphi, C#, VB, .Net, Visual Studio, even Clipper, but harbour is not in their minds.   Notice how there is not even an xharbour forum in their ng.  We need collaboration from the harbour/xharbour people, including Antonio, to work with Sybase ADS and get better tools for xharbour to have access to ADS, specially having all the API functions added to the ads.lib.  Currently less than one half are included.\n\n\nReinaldo.','',0,'','1guy6yzb',1,0,'',299,0,0),(40477,8635,3,299,0,'24.233.172.101',1193528572,1,0,1,0,1,0,'','','Otto;\n\nTransactions works in ADS with DBFs just perfectly.  Without ADS you\'d have to implement the logic your self.  For example:\n\n[code:2jonnfak]\nTry\n\nwhile ok\n   copy record to tempfile\n   delete record\n   skip\nendwhile\n\ncatch\n  restore records to original file from tempfile\nend\n\n[/code:2jonnfak]\n\nHope this helps.\n\n\nReinaldo.','',0,'AIA=','2jonnfak',1,0,'',299,0,0),(40478,8650,3,299,0,'24.233.172.101',1193535532,1,0,1,0,1,0,'','Access to Web Services','I need to access web services.  From the documentation for the web service, I quote below:\n[quote:3sw2dme8]\nThis method lets providers list and download available files (reports and circular letters).\nThe method that lists available files for download is called getProvidersFiles. It expects\nthe following parameters:\n• username – string containing username.\n• password – string containing password.\nThis method returns an array of ProviderFile objects. Following is a description of the\nproperties of a ProviderFile object:\nProperty Name Type Description\ncreated String Date when file was created\nfileId Integer ID used to look for the file\nfileName String Name of file\nfileType String Type of File\nprovider String provider owner of file\nnpiNumber String Provider’s NPI\ntaxIDNumber String Provider’s Tax ID\n[/quote:3sw2dme8]\n\nNotice how web services has access to web methods that can recieve parameters and return data.  In this case it returns an object.\n\nIs it possible with fw to gain access to web services?\n\n\n\nReinaldo.','',0,'gA==','3sw2dme8',1,0,'',299,0,0),(40479,8575,6,348,0,'201.230.4.84',1193540192,1,0,1,1,1,0,'','','Hola Ricardo \n\nEsta vez a bajado correctamente los dos enlaces que dejaste en tu Web. \n\ny es un interesante trabajo \n\nle dare una vuelta por aqui\n\nGracias.\n\nLubin','',0,'gA==','6qg2jonh',1,0,'',348,0,0),(40480,6905,6,439,0,'200.125.42.23',1193540358,1,0,1,1,1,1,'','','En verdad, la clase parece excelente, en su oportunidad en cuanto se publicó el post, envié mails (2 distanciados unos días) consultado por esta clase a su autor, pero ... sin respuesta.\n\nMe interesaría saber si alguien ha tenido respuesta sobre el tema y si la clase verdaderamente está disponible','',0,'gA==','2m0pw7pi',1,0,'',439,0,0),(40481,8651,3,868,0,'219.64.121.60',1193541179,1,0,1,1,1,1,'','How to make 32-bit pure C-code DLLs?','I am using FWH 7.10 with xHarbour (provided by fw)  and bcc55.\n\nI write some computational intensive code in C and link with my xharbour applications.\n\nBut I have a need for creating pure C-code DLLs which can be either statically linked or dynamically loaded in my harbour applications as well as applications written in other languages.\n\nCan any knowledgeable friend guide me how to create a 32 bit DLL with bcc55 that can be linked or dynamically loaded by a harbour program or any other 32-bit program, with a brief sample code, compilation and link switches please?','',0,'gA==','eunpljes',1,0,'',868,0,0),(40482,6905,6,54,0,'189.132.99.55',1193549586,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:1bgo97u8]En verdad, la clase parece excelente, en su oportunidad en cuanto se publicó el post, envié mails (2 distanciados unos días) consultado por esta clase a su autor, pero ... sin respuesta.\n\nMe interesaría saber si alguien ha tenido respuesta sobre el tema y si la clase verdaderamente está disponible[/quote:1bgo97u8]\n\nJosé,\n\ntengo entendido que la clase se hizo de paga.\n\ncontacta a su autor directamente para saber del medio de pago y la cantidad.','',0,'gA==','1bgo97u8',1,0,'',54,0,0),(40483,6905,6,439,0,'200.125.42.23',1193549792,1,0,1,1,1,1,'','','[quote=&quot;wmormar&quot;:bs1jj4y2][quote=&quot;jose_murugosa&quot;:bs1jj4y2]En verdad, la clase parece excelente, en su oportunidad en cuanto se publicó el post, envié mails (2 distanciados unos días) consultado por esta clase a su autor, pero ... sin respuesta.\n\nMe interesaría saber si alguien ha tenido respuesta sobre el tema y si la clase verdaderamente está disponible[/quote:bs1jj4y2]\n\nJosé,\n\ntengo entendido que la clase se hizo de paga.\n\ncontacta a su autor directamente para saber del medio de pago y la cantidad.[/quote:bs1jj4y2]\n\nWilliam, gracias por tu respuesta, pero le envié al autor 2 mails, uno preguntando por la clase y un segundo aclarando que si era paga, que quería saber el precio, dado que están ofrenciéndome hacer un sistema para el control del mantenimiento de edificios.\n\nEl tema es que no he recibido respuesta en la ocasión (por ahí por principios de setiembre) y tampoco ahora.\n\nEn fin..... si alguien llega a saber algo, por favor avísenme.','',0,'gA==','bs1jj4y2',1,0,'',439,0,0),(40484,8651,3,2,0,'87.218.146.201',1193552828,1,0,1,1,1,1,'','','Please review samples\\dlls\\c_lang\\32BITS\\','',0,'gA==','18rjqqts',1,0,'',2,0,0),(40485,8649,3,51,0,'80.122.88.242',1193554439,1,0,1,1,1,0,'','','Hello Enrico,\nthank you.\nBut memory seems to be a problem. See  my test - prg.\nMaybe I call it the wrong way.\nBut if you call the test function with oSay more times the program crashes.\n\n\nRegards,\nOtto\n\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\nSTATIC n\nfunction Main()\n\n    local oWnd, oFont\n    N:=1\n    DEFINE FONT oFont NAME \"Arial\" SIZE 20, 30\n\n    DEFINE WINDOW oWnd FROM 1, 1 TO 30, 80 TITLE \"Testing Method Say()\"\n\n    @ 1, 1 BUTTON \" oWnd : Say \" OF oWnd SIZE 60, 25 ;\n        ACTION  test2(oWnd,oFont)\n\n    @ 1, 30 BUTTON \" oSay \" OF oWnd SIZE 60, 25 ;\n        ACTION  test(oWnd,oFont)\n\n\n\n    ACTIVATE WINDOW oWnd MAXIMIZED\n\n    RELEASE FONT oFont\n\nreturn\n\n//----------------------------------------------------------------------------//\n\n\n\nfunc test(oWnd,oFont)\n    LOCAL I:=0\n\n    FOR N := 1 TO 60  STEP 2\n        FOR I := 1 TO 200  STEP 4\n            @ n,I  SAY  ALLTRIM(STR(i))+\"  .\" OF oWnd    FONT ofont COLORS   nRGB( 255, 0, 0 ) , nRGB( 55, 55, 255)\n        NEXT\n\n\n\n    NEXT\n    msginfo(\"ENDE\")\n\nreturn nil\n\nfunc test2(oWnd,oFont)\n    LOCAL I:=0\n\n    FOR N := 1 TO 60  STEP 2\n        FOR I := 1 TO 200  STEP 4\n            oWnd:Say( n, I, ALLTRIM(STR(i))+\"  .\", nRGB( 255, 0, 0 ) , nRGB( 255, 2255, 255),oFont )\n        NEXT\n    NEXT\n    msginfo(\"ENDE\")\n\nreturn nil','',0,'gA==','raukm5z8',1,0,'',51,0,0),(40486,8652,3,3,0,'80.81.159.19',1193555449,1,0,1,1,1,1,'','logical character Read','Hello\n\nI want to write a small program that checks integrity of a dbf file. We have more and more customers having corrupted data in their dbf files.\n\nI have observed the corrupted files and noticed that numeric fields are corrupted with nonsense data but always numeric nonsense, so not easy to track.\n\nThe key point is \"logical fields\" that should contain .t. or .f. \nIt seems that dbf\'s integrity is completely broken in these fields where i can find any nonsense chartacter.\n\nI have tried to write a function but i get stuck on reading the logical character\n\nThe idea is , read the structure of a dbf file, if the field is loigical test the content of the field and make sure there is .t. or .f.\n\nHow can i read the content of the field ?\n\nVALTYPE(...) will always return  L for those fields\nCVALTOCHAR()  willreturn .F. for corrupted fields but not the content\n\nWhat other function i can use ? Any clue ?\n\nThanks for your time,\n\nRichard','',0,'gA==','247yvrx3',1,0,'',3,0,0),(40487,8652,3,51,0,'80.122.88.242',1193556614,1,0,1,1,1,0,'','','Maybe this function could help you. \nRegards,\nOtto\n\nFUNCTION Translate( cDateiname)\n    *lMode,oMeter,oOk,oCancel,oDlg,oDbfWnd,lRun)\n\n    LOCAL aData\n    LOCAL bBlock\n    LOCAL nCounter, nRecno, nStep, nUpd, nFor\n    LOCAL lAlert\n    local lMode :=.f.\n\n\n    LOCAL oGaugeDlg\n    LOCAL oGet1\n    LOCAL oMeter\n    LOCAL nActual     := 0\n    LOCAL nTotal := 0\n    LOCAL cStatusMsg  :=  cDateiname\n\n    DbGoBottom()\n    nTotal := recno()\n\n    DEFINE DIALOG   oGaugeDlg RESOURCE \"DLG_GAUGE\" TITLE (\" \" )\n    REDEFINE GET    oGet1     VAR cStatusMsg                ID 2051 OF oGaugeDlg\n    REDEFINE METER  oMeter    VAR nActual   TOTAL  nTotal  ID 2052 OF oGaugeDlg\n\n    ACTIVATE DIALOG oGaugeDlg                                           ;\n        CENTERED                                                         ;\n        NOWAIT\n    oGet1:Refresh()\n\n\n\n\n    DbGotop()\n\n    IF !lMode\n       bBlock := {|val,elem| Fieldput(elem,f_isOEM(@val,elem))}\n    ENDIF\n\n    DO WHILE !Eof()\n        oMeter:Set(nActual+1)\n        SysRefresh()\n        aData := Scatter()\n        Aeval(aData ,bBlock)\n        dbSkip()\n\n    ENDDO\n\n    DbUnlock()\n\n\n    oMeter:End()\n    oGaugeDlg:End()\n    sysrefresh()\n\nRETURN NIL\n\n\nFUNCTION scatter(nInicial,nFinal)\n\n    local fvals := {} , fnum := 1\n\n    nInicial := iif(nInicial == NIL, 1,nInicial )\n    nFinal   := iif(nFinal   == NIL, fcount(),nFinal )\n\n    Asize(fvals,nFinal-nInicial+1)\n\n    aeval(fvals, {|elem| fvals[fnum++] := fieldget(fnum+nInicial-1)})\n\nReturn(fvals)\n\nfunc f_isOEM(val,elem)\n    local i:=0\n\n                 msginfo(valtype(elem))\n\n\n    IF valtype(elem)=\"C\"\n            msginfo(val)\n    ENDIF\n    /*\n    FOR I := 1 TO len(val)\n\n        IF  ASC(substr(val,i,1)) &gt; 128\n\n         VAL:=STRTRAN(VAL,chr(132),\"ä\")\n         VAL:=STRTRAN(VAL,chr(148),\"ö\")\n         VAL:=STRTRAN(VAL,chr(129),\"ü\")\n         VAL:=STRTRAN(VAL,chr(142),\"Ä\")\n         VAL:=STRTRAN(VAL,chr(154),\"Ü\")\n         VAL:=STRTRAN(VAL,chr(153),\"Ö\")\n         VAL:=STRTRAN(VAL,chr(225),\"ß\")\n         VAL:=STRTRAN(VAL,chr(179),\"ü\")\n         VAL:=STRTRAN(VAL,chr(245),\"ä\")\n         VAL:=STRTRAN(VAL,chr(175),\"ß\")\n         VAL:=STRTRAN(VAL,chr(247),\"ö\")\n            msginfo(VAL+\"    \"+ substr(val,i,1)+\"  \"+ str(ASC(substr(val,i,1))))\n        ENDIF\n\n      */\n\nreturn (val)','',0,'','3l66i90r',1,0,'',51,0,0),(40488,8646,7,527,0,'83.36.28.184',1193558913,1,0,1,1,1,0,'','De momento creo que no.','Solo se pueden mostrar imagenes BMP.','',0,'','1vtxp5qz',1,0,'',527,0,0),(40489,8583,3,63,0,'88.6.235.117',1193559570,1,0,1,1,1,0,'','','Reinaldo:\n\nThank you for your comments which really sound encouraging.  The truth is that I am just beggining with ADS in an attemp to solve a problem of slow response in an application already installed in an customer\'s office. \n\nIn these tests, I just installed ADS and followed the basic procedures to test my old program (such a modifying the filters syntax).  No data dictionary, so no SQL.\n\nHowever, the response is still slow.  Therefore, I am investigating other causes.  Maybe there is a fault in the logic of my program.  I still don\'t know and the application is far to big to post it here for discussion. \n\nThe only thing that seems clear is that the program performs very well when there is only one user accessing the main table.  Two simultaneous users make the system very slow. Three just collapse it making it almost impossible to use.  I am always talking about performing simple filters such as \"TALLER PEREZ\" $ CLIENTE on a 7000 records table...\n\nAgain, thank you for your comment.  It seems clear that ADS performs very well, so I\'ll have to look somewhere in my program to find the cause of the slow response.\n\nThank you very much\n\nRafael','',0,'','3br4a0ct',1,0,'',63,0,0),(40490,8652,3,995,0,'81.11.193.29',1193560625,1,0,1,1,1,0,'','','Richard\n\nI think it can only be done when each record from the dbf is read with freadstr \n\n[code:2m7k9thl]\nFUNC MAIN&#40;cDbf&#41;\nLOCAL nHandle , nPos , nRecSize , nRecords\nLOCAL i , el\nLOCAL cRecord\nLOCAL aStruct\nLOCAL aPos&#91;0&#93; , Sum\nIF pCount&#40;&#41; == 0\n  cDbf &#58;= &quot;TestDbf&quot;\n  DbCreate&#40; cDbf ,&#123;&#123;&quot;String&quot;,&quot;C&quot;,10,0&#125;,&#123;&quot;Logical&quot;,&quot;L&quot;,1,0&#125;&#125;&#41;\n  USE &#40;cDbf&#41;\n  APPEND BLANK\n  TestDbf-&gt;String &#58;= &quot;Record  1&quot;\n  TestDbf-&gt;Logical &#58;= &#46;F&#46;\n  APPEND BLANK\n  TestDbf-&gt;String &#58;= &quot;Record  2&quot;\n  TestDbf-&gt;Logical &#58;= &#46;T&#46;\n  CLOS All\nEND\nUSE &#40;cDbf&#41;\nnPos     &#58;= Header&#40;&#41;\nnRecSize &#58;= RecSize&#40;&#41;\nnRecords &#58;= Reccount&#40;&#41;\naStruct &#58;= DbStruct&#40;&#41;\nsum &#58;= 0\nFOR EACH el IN aStruct\n  sum += el&#91;3&#93;\n  IF el&#91;2&#93; == &quot;L&quot;\n    AADD&#40;aPos,Sum+1&#41;\n  END\nNEXT\nCLOS ALL\nnHandle &#58;= fopen&#40;&quot;TestDbf&#46;dbf&quot;&#41;\nfSeek&#40;nHandle,nPos&#41;\nFOR i &#58;= 1 TO nRecords\n  cRecord &#58;= fReadStr&#40;nHandle,nRecSize&#41;\n  ? cRecord\n  FOR EACH el In aPos\n    ? cRecord&#91;el&#93;\n  NEXT\nNEXT\nWAIT\nfclose&#40;nHandle&#41;\nRETURN\n[/code:2m7k9thl]','',0,'AIA=','2m7k9thl',1,0,'',995,0,0),(40491,8651,3,868,0,'219.64.121.60',1193560822,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks. I see DLL32.DLL there, but I can not find Dllcode.c source file anywhere in FWH. Can you pls provide me the source file dllcode.c ?','',0,'AIA=','h3gr7qpp',1,0,'',868,0,0),(40492,8651,3,868,0,'219.64.121.60',1193560955,1,0,1,1,1,1,'','','in fact there is not file with extention .c in sample folder or any of its subfolders','',0,'AIA=','1fekzt2g',1,0,'',868,0,0),(40493,8583,3,868,0,'219.64.121.60',1193561659,1,0,1,1,1,1,'','','I am really surpised how could you make an ADS progrm so slow to run.  My experience with huge tables of several hundred thousand rows and more than hundred users work quite fast even on slower wide area network connections.\n\nFilters like \"TALLER PEREZ\" $ CLIENTE are inherently the most inefficient. Even such filters give good performance even on huge tables.  By the way itis better to use CONTAINS( CLINEENTE, \'TALLER PEREZ\') instead.  If we have an FTS index on CLEINTE column the results are instantaneous','',0,'AIA=','3ojdexa3',1,0,'',868,0,0),(40494,8636,6,92,0,'81.38.193.197',1193564888,1,0,1,1,1,0,'','Numeraciçon facturas.','Tal como ya han comentado, yo también utilizo un DBF para las numeraciones (referencieas únicas, albaranes, facturas, etc).\n\nPero sobre el orden de ejecución de los pasos no estoy del todo de acuerdo.\n\nYo hago: cuando detecto el primer movimiento a facturar y éste se puede facturar, lo bloqueo, accedo a la DBF de numeraciones, bloqueo el registro de la DBF, obtengo el nuevo número de factura, grabo la DBF, la desbloqueo, facturo el movimiento y lo desbloqueo.\nPara el siguiente movimiento si pertenece a la misma factura ya tengo su número y no tengo de volver a acceder y además la DBF ya está disponible para los demás usuarios.\n\nCuando quiera imprimirla no deberé hacer nada estra sino imprimir.\nEl tiempo que la DBF de numeraciones ha estado \'pillada\' es bajísimo y si en el proceso de su bloqueo tienes un While que espera a que no esté \'pillada\' por otro usuario, el usuario que quiere facturar ni se entera de que alguien más estaba facturando.\n\nPara mi una cosa es facturar y otra imprimir facturas. Son procesos independientes y el de impresión naturalmente reutilizable en cualquier momento.\n\nSaludos\nCarlos G.','',0,'AIA=','1e3ma4ty',1,0,'',92,0,0),(40495,8583,3,63,0,'88.6.235.117',1193566349,1,0,1,1,1,0,'','','NageswaraRao,\n\nI am not blaming ADS; on the contrary, I am convinced that it is a great tool.  I am just stating the problem I am experiencing:\n\nLAN with three users\nTable of 7000 records\nADS with no Data Dictionary.  Just the basic configuration.\nBrowser: TxBrowse()\noBrw:bChanged := {|| ::LoadDetail()}   // This Method just loads and shows the fields such as Name, Address, etc... every time the Browse selects another record\nFilter :  \"TALLER PEREZ\"$CLIENTE.  About 10 records fulfill than condition.\nWith just one user, it responds very fast.  Two or more users degrade the response time up to the point of making it almost unusable.\n\nBy the way: I have tested the same program with and without ADS.  With ADS it shows a better response time, but still much slower that what Reinaldo and yourself and many other ADS users are getting.\n\nTherefore, I must conclude that something else is wrong either with my program or the LAN configuraction (although, remember that with just one single user it goes lightning fast).  Maybe the bChange block? \n\nThanks for your coments.  Best regards\n\nRafael','',0,'AIA=','a4noepjo',1,0,'',63,0,0),(40496,8583,3,868,0,'210.212.216.67',1193568765,1,0,1,1,1,1,'','','1) Are you using Server version or Local ADS server on lan ? \n2) To simplify the tests, please temporarliy remove the bchanged block. ( Note: TXBrowse calls bchanged block even when a column is changed.)','',0,'AIA=','37n9ampz',1,0,'',868,0,0),(40497,8653,3,47,0,'203.144.160.247',1193569640,1,0,1,1,1,0,'','xHB &amp; ViaCoral question','Dear All,\n\nI bought the ViaCoral.lib from Viaopen.com.  When I try to compile and link.  It show the error message.  I think the ViaCoral.lib is not compatible with xHb.com.  \n\nWho have ever success with Viacoral.lib with xHb.com?\n\nRegards,\nDutch','',0,'AIA=','1j1hefr4',1,1193735033,'',47,2,0),(40499,8651,3,2,0,'87.218.146.201',1193572405,1,0,1,1,1,1,'','','Here you have the files:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/65753983/32BITS.ZIP.html\">http://rapidshare.com/files/65753983/32BITS.ZIP.html</a><!-- m -->','',0,'gA==','qkvtdneo',1,0,'',2,0,0),(40500,8642,3,2,0,'87.218.146.201',1193572673,1,0,1,1,1,1,'','','Norberto,\n\nHave you tried to disable the control ?\n\noMemo:Disable()','',0,'gA==','2tljrtom',1,0,'',2,0,0),(40501,8642,3,1158,0,'200.139.130.189',1193574747,1,0,1,1,1,0,'','','Antonio, i want only view, scroll the text , but not copy, copy&amp; past.\n\nthanks','',0,'gA==','36y9a4au',1,0,'',1158,0,0),(40502,8583,3,63,0,'88.6.235.117',1193575570,1,0,1,1,1,0,'','','NageswaraRao, \n[quote:huuz9oew]1) Are you using Server version or Local ADS server on lan ? \n[/quote:huuz9oew]\nYes.  I installed ADS in the PC that holds the data.  Every other PC has one copy of my program installed in its own directory, includinf the three ADS DLLs.\n[quote:huuz9oew]2) To simplify the tests, please temporarliy remove the bchanged block. ( Note: TXBrowse calls bchanged block even when a column is changed.)\n[/quote:huuz9oew]\nI removed the bChanged.  Still, no noticeable improvement.  However, I noticed something:\nI placed a seconds counter like this:\n[code:huuz9oew]\n&#46;&#46;&#46;&#46;&#46;\nnSecons0 &#58;= Seconds&#40;&#41;\nSet Filter&#46;&#46;&#46;\n? Seconds&#40;&#41;-nSeconds\nBrowse&#40;&#41;\n&#46;&#46;&#46;&#46;\n[/code:huuz9oew]\nThe filter itself is now very fast.  The problem seems to be in loading the Browse which takes forever.  Also, there is heavy LAN traffic while loading the browse() even when only one record fill the filter condition. In fact, every record in the main table is related to four other tables and it seems as if all the relations are being processed, regardless the filter is satisfied or not...   Obviously there is something wrong with my code.  I\'ll have to look at it in depth.\n\nThe bottom line is: The filter in itself works well. Now, let\'s see what am I doing wrong...\n\nThank you for your suggestions and help\n\nRafael','',0,'gIA=','huuz9oew',1,0,'',63,0,0),(40503,8583,3,868,0,'210.212.216.67',1193575995,1,0,1,1,1,1,'','','To further simplify, please remove browse also.\n\nrun this small simple code\n\nopen the table\nset filter\ngo top\nskip each row and print a value\nclose table\n\nmeasure seconds lapsed at each step\n\npl let me know if you are on any instant messenger','',0,'gIA=','34pcrdt2',1,0,'',868,0,0),(40504,8651,3,868,0,'210.212.216.67',1193580204,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks. With your help I am now making and using small DLLs.  \n\nI had to move the \'#pragma argsused\' from the first line to the line next to \'#include &lt;windows.h&gt;\'  to avoid the warnings.\n\nThanks again.','',0,'gIA=','33lzkquo',1,0,'',868,0,0),(40505,8583,3,63,0,'88.6.235.117',1193581026,1,0,1,1,1,0,'','','NageswaraRao,\nDone the test:\n[code:21agwgqb]\nnSeconds &#58;= Seconds&#40;&#41;\nDo While !Eof&#40;&#41;\n     dbSkip&#40;1&#41;\nEnddo\n? Seconds&#40;&#41;-nSeconds0\n[/code:21agwgqb]\n\nResults:  From the main PC (the one with the data): 0.02 secs\nFrom the remote PC: 7.83 seconds\n\nIf we were working in the old MS-DOS, I woud say that I had I problem with SET BUFFERS=.  But, of course, in Windows XP there is no such command.  I wonder why the LAN is runing so slow\n\nRafael','',0,'AIA=','21agwgqb',1,0,'',63,0,0),(40506,8583,3,51,0,'80.122.88.242',1193583427,1,0,1,1,1,0,'','','Could the problem be the antivirus software?\nRegards,\nOtto','',0,'AIA=','1q46vrlz',1,0,'',51,0,0),(40507,8642,3,6,0,'87.1.225.54',1193583826,1,0,1,1,1,1,'','','Try also the READONLY clause.\n\nEMG','',0,'AIA=','2240lv1r',1,0,'',6,0,0),(40508,8652,3,6,0,'87.1.225.54',1193584098,1,0,1,1,1,1,'','Re: logical character Read','[quote=&quot;Richard Chidiak&quot;:1jtq0nr5]We have more and more customers having corrupted data in their dbf files.[/quote:1jtq0nr5]\n\nI would search for the real reason. Only three possible causes come up to my mind:\n\n- you are using a bugged xHarbour version\n- an hardware/software problem in the customers PC\n- a bug in your code\n\nEMG','',0,'gA==','1jtq0nr5',1,0,'',6,0,0),(40509,8649,3,6,0,'87.1.225.54',1193584292,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:3qvw0d8r]Hello Enrico,\nthank you.\nBut memory seems to be a problem. See  my test - prg.\nMaybe I call it the wrong way.\nBut if you call the test function with oSay more times the program crashes.[/quote:3qvw0d8r]\n\nYes, because you are creating more and more TSay objects while one would be enough. Once created you can simply refresh it or change its text.\n\nEMG','',0,'gA==','3qvw0d8r',1,0,'',6,0,0),(40510,6905,6,932,0,'201.230.52.122',1193584653,1,0,1,1,1,0,'','por favor si pudireas enviarmela a mi tambien','Mi correo es <!-- e --><a href=\"mailto:noa_net_srl@hotmail.com\">noa_net_srl@hotmail.com</a><!-- e -->\nMuchas gracias!!!!.','',0,'gA==','x7d50o7n',1,0,'',932,0,0),(40511,8649,3,51,0,'80.122.88.242',1193585970,1,0,1,1,1,0,'','','Hello Enrico,\ncould you show me how to do, please.\n\nThanks in advance\nOtto','',0,'gA==','3tqa2fu3',1,0,'',51,0,0),(40512,8583,3,868,0,'210.212.216.67',1193586752,1,0,1,1,1,1,'','','ADS 8.1 (server version) when executed on the server where ads server and data is installed is made to work faster than accessing from network. So the difference always exists.\n\nNow about your benchmark: On local area network I got a speed of 1.4 secs for skipping 7000 records in a 500,000 records table. Ofcourse this is very highspeed lan. \n\ncan you send me your simple source code to my personal email?','',0,'gA==','2glnylrv',1,0,'',868,0,0),(40513,8649,3,6,0,'87.1.225.54',1193590906,1,0,1,1,1,1,'','','It depends on what you are trying to do. Generally speaking, consider TSay as any other control. Try to change your sample replacing SAYs with GETs: would it make sense?\n\nMoreover, look at Refresh() and SetText() methods.\n\nEMG','',0,'gA==','80xr3qro',1,0,'',6,0,0),(40514,8583,3,63,0,'88.6.235.117',1193591986,1,0,1,1,1,0,'','','Otto:\n[quote:3kyty7kl]Could the problem be the antivirus software? \n[/quote:3kyty7kl]I doubt it for the problem appears both in my development LAN and in the customer LAN (which, by the way, has a dedicated server)\n\nNageswaraRao:[quote:3kyty7kl]can you send me your simple source code to my personal email?[/quote:3kyty7kl]\nIt is difficult to send you the whole app.  However, I will try to prepare an small sample and send it to you ASAP.\n\nThanks to you both\nRafael','',0,'gA==','3kyty7kl',1,0,'',63,0,0),(40515,8654,7,18,0,'189.143.70.233',1193592930,1,0,1,1,1,1,'','TOleAuto()','Antonio :\n\nFWPPC soporta TOleAuto()\n\n\nSaludos','',0,'gA==','y8ciw049',1,0,'',18,0,0),(40516,8655,3,1157,0,'168.209.97.34',1193593050,1,0,1,1,1,0,'','XBrowse problems with drop downs','Hi all\n\nWhen I use a drop down list, and the list is \"dropped down\", if the user clicks anywhere else on the browse (that is, the drop down loses focus) then a gap is left on the browse (it does not refresh). You can see this in samples\\testxbrw.prg (the \"Bitmaps on browse\" menu selection). It is much worse if the drop down is longer. The only way to cure it seems to be to scroll the offending column off the screen. XBrowse:refresh() does not seem to help. In the example a bitmap is displayed but it happens without a bitmap as well.\n\nAny help appreciated.\n\nRegards\nAlex\n\n\nPS, I think this line at about line 1251 in XBrowse.prg is wrong:\n\n    nAt     := Ascan( ::aEditListBound, Eval( ::bEditValue ) )\n\nI think it should be :\n\n   nAt     := Ascan( ::aEditListTxt, Eval( ::bEditValue ) )\n\nWithout this the drop down does not select the current value in the browse cell.','',0,'gA==','3j3fp53y',1,0,'',1157,0,0),(40517,8649,3,51,0,'80.122.88.242',1193598327,1,0,1,1,1,0,'','','I think osay / oget does not work for this job because I need all the information on the proper place.\nIf I try with Settext, nTop, nLeft  and refresh I lose the former information.\n \nThanks again.\nRegards,\nOtto','',0,'gA==','3ce26jj5',1,0,'',51,0,0),(40518,8656,6,1014,0,'190.40.185.167',1193598522,1,0,1,1,1,1,'','Browse de Hernan','Hola Amigos.\nEstoy tratando de compilar el ejemplo 01 de los que trae el TwBrowse17 de Hernán, pero me da error: Unresolved external ‘_hb_stack” referenced from C:\\fwh\\samples\\BrwHdc\\wBrwLine.obj.  Ya sea compilando wBrowse.prg o linkando  TwBrw32.lib. no se que hago mal.\nAlguien ha solucionado esto?\nMuchas gracias\nJorge Vargas','',0,'gA==','1pvktqut',1,0,'',1014,0,0),(40519,8636,6,396,0,'200.71.188.210',1193600762,1,0,1,1,1,1,'','','Fivewidi, reza un dicho...\"entre gustos y colores no han escrito los pintores...\", pero creo que una cosa es gusto y otra es logica, no quiero entrar en polemica sobre tu metodo, eso depende como se maneje los procesos de facturacion de algunos paises, fijate, tu bloqueas el numero, que pasaria si se va la luz o si no se finaliza la factura..?, ademas otro usuario podria terminar de facturar antes que el que bloqueastes, son solo analisis de situaciones, se dice que las mayorias no pueden estar equivocados, pero eso tambien es discutible,  lo bueno es que Loren ya tiene alternativas para escojer la que mas le convenga y que sea mas seguro para su informacion, para eso estamos, pero el metodo propuesto por la mayoria, es muy viable y seguro, por no decir que es el correcto y unico.saludos.','',0,'gA==','105au3mk',1,0,'',396,0,0),(40520,6905,6,979,0,'83.38.169.7',1193606529,1,0,1,1,1,0,'','Clase Tgantt.','Hola Arturo,\n\n      Gracias por compartir el codigo de Tgantt. Estoy interesado en ella y mi correo <!-- e --><a href=\"mailto:jose_de_alfonso@yahoo.es\">jose_de_alfonso@yahoo.es</a><!-- e -->\n\nGracias,[/u][/url]','',0,'','3oy6zewl',1,0,'',979,0,0),(40521,8654,7,2,0,'87.218.146.201',1193608661,1,0,1,1,1,1,'','','Vikthor,\n\nDebería funcionar, pero aún no lo hemos construido\n\nVamos a compilarlo para Pocket PC','',0,'','2cpuk3a3',1,0,'',2,0,0),(40522,8657,12,179,0,'201.217.103.6',1193610625,1,0,1,1,1,1,'','sobre gets en linux','Antonio buenas tardes\nsigo con las pruebas ahora tengo problemas con los gets, cuando inicio a introducir datos en un campo get de texto, inicia a hacer el ingreso desde el cantro hacia la derecha, prueba el ejemplo testrad.prg ahi se observa ese efecto, asi mismo los say se presentan centrados Existe alguna forma de hacerlos que inicien bien los gets y poder poner alineacion a los say, aca una pantalla de ejemplo\n\n[url=http&#58;//imajr&#46;com/lower_389538:124p5kt0][img:124p5kt0]http&#58;//thumbnails&#46;imajr&#46;com/lower_389538&#46;png[/img:124p5kt0][/url:124p5kt0]\n\ngracias x todo tu apoyo\n\nSaludos','',0,'GA==','124p5kt0',1,0,'',179,0,0),(40523,8636,6,179,0,'201.217.103.6',1193611320,1,0,1,1,1,1,'','','Lorenzo yo lo hago asi\n\n[code:1d7y88cy]\n\nFunction NuewNum&#40; Num &#41;\n\n    select factura //esta con indice activo de str&#40;num_Fact,6&#41;\n\n    while &#46;t&#46;\n        dbgobottom&#40;&#41;\n        num &#58;= factura-&gt;num_Fact + 1\n        if !dbseek&#40; str&#40;Num,6 &#41; &#41;\n            exit\n        end\n    end\n    \n   dbappend&#40;&#41;\n    \n   factura-&gt;num_Fact &#58;= num\n   unlock\nReturn Num\n\n[/code:1d7y88cy]\n\nesto lo hago cuando ya hayas terminado la factura en este caso el que gane el numero graba primero, bueno es solo mi humilde criterio\n\nespero te ayude\n\nSaludos','',0,'AIA=','1d7y88cy',1,0,'',179,0,0),(40524,8541,6,54,0,'189.132.102.177',1193622394,1,0,1,1,1,1,'','','Ronaldo,\n\nCorregido la parte del RC, ahora ya sin problemas.\n\nhay que copiar la carpeta DATA y el EXE\n\nsaludos\n\n[quote=&quot;ronaldo&quot;:1gcoqabr]esta com problema quando usamos o arquivo RC... precisamos apagar o RES quando alteramos o RC e o verce não funciona pois não localiza o RES... como corrigir[/quote:1gcoqabr]','',0,'gA==','1gcoqabr',1,0,'',54,0,0),(40525,8541,6,54,0,'189.132.102.177',1193622494,1,0,1,1,1,1,'','','José Martín,\n\nahora ya identifica cuando es Harbour o xHarbour, incluye o no PC_REPOS\ncopiar la carpeta DATA\nsaludos\n\n\n[quote=&quot;jmua&quot;:29szm3cp]Juan carlos el verce 4.5 me da este error\n fatal: Unable to open file \'GTGUI.LIB\'\n\nQue puede ser?\n\nGracias[/quote:29szm3cp]','',0,'gA==','29szm3cp',1,0,'',54,0,0),(40526,8541,6,54,0,'189.132.102.177',1193622573,1,0,1,1,1,1,'','','Mauro,\n\nAhora ya identifica cuando es modo consola o windows.\n\ngtwin = consola\ngtgui = window\n\nsaludos\n\n[quote=&quot;MauroArevalo&quot;:3ictk8lq]Juan Carlos:\n\nDentro de la carpeta de \\Xharbour\\lib\n\nPuedes renombrar la gtwin.lib  a gtgui.lib\n\nPero YO prefiero hacer una copia y dejar las dos librerias y asi puedes seguir utilizando VERCE 4.3 y la 4.5 al tiempo, mientras que la 4.5 queda bien estable...\n\nEspero te sirva\n\nMauricio Arevalo[/quote:3ictk8lq]','',0,'gA==','3ictk8lq',1,0,'',54,0,0),(40527,8658,6,439,0,'200.125.48.19',1193629976,1,0,1,1,1,1,'','Error DBFCDX/1025  Escritura no autorizada','Error DBFCDX/1025  Escritura no autorizada <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nEste es el error que estoy recibiendo donde indico en las siguientes líneas de código:\n[code:h6ftlemx]\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nIF !AbroDbf&#40; &#46;T&#46;, &quot;DBFCDX&quot;, &quot;BANCOS&quot;, &quot;BANCOS&quot;, &quot;i_ban&quot;&#41;\n      MsgInfo&#40;&quot;No fué posible verificar cuenta&quot;&#41;\n      RETURN &#46;F&#46;\nENDIF\nseek ncta\nIF BANCOS-&gt;&#40; Found&#40;&#41; &#41;\n   DO WHILE &#46;T&#46;\n      IF BANCOS-&gt;&#40; RLock&#40;&#41; &#41;\naca-----&gt;REPLACE BANCOS-&gt;saldo WITH BANCOS-&gt;saldo + wmonto\n         BANCOS-&gt;&#40; DbUnlock&#40;&#41; &#41;\n         EXIT\n      ENDIF\n   ENDDO\nENDIF\nCierroDbf&#40;&#41;\n[/code:h6ftlemx]\nLo curioso, como se puede ver es que el registro es bloqueado sin problemas y luego al intentar reemplazar produce un error de no poder acceder al registro bloqueado para escribir.\n\nIntente buscar el error pero no se porque se produce.\nCualquier ayuda sera muy apreciada.\n\nGracias desde ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','h6ftlemx',1,0,'',439,0,0),(40528,8655,3,1157,0,'198.54.202.214',1193641707,1,0,1,1,1,0,'','','Sorry, that should be line 4386.\n\nRegards\nAlex','',0,'AIA=','21k822no',1,0,'',1157,0,0),(40529,8623,7,720,0,'80.36.244.134',1193649926,1,0,1,1,1,0,'','','Hola Viktor.\n\nEstoy usando el build de febrero \'07 y el compilador del Harbour es 46.2 (Flex). En cuanto a WMobile utilizo una PDA Qtek s200 con Windows Mobile 5 y todo me ha funcionado perfectamente gracias a la ayuda de Biel.\n\n\n\nSaludos. \nElías Torres.','',0,'AIA=','hpy2pocg',1,0,'',720,0,0),(40530,8642,3,1158,0,'200.233.185.181',1193657384,1,0,1,1,1,0,'','','Antonio, Enrico, i try both, readonly dont work, when .f. works, but disable scrollbar too, i need disable only copy , but need scroll the memo with scrollbar.\n\nany sugestions?\n\nthanks','',0,'AIA=','1niyk77p',1,0,'',1158,0,0),(40531,8642,3,1158,0,'200.233.185.181',1193657574,1,0,1,1,1,0,'','','i can disable right click in memo?','',0,'AIA=','13m0buib',1,0,'',1158,0,0),(40532,8658,6,362,0,'200.158.19.206',1193658235,1,0,1,1,1,1,'','','[code:7kbrqyvn]\nIF !AbroDbf&#40; &#46;T&#46;, &quot;DBFCDX&quot;, &quot;BANCOS&quot;, &quot;BANCOS&quot;, &quot;i_ban&quot;&#41; \n      MsgInfo&#40;&quot;No fué posible verificar cuenta&quot;&#41;\n      RETURN &#46;F&#46; \nENDIF\n \nseek ncta\n \nIF BANCOS-&gt;&#40; Found&#40;&#41; &#41;\n   WHILE&#40; &#46;T&#46; &#41;\n      SYSREFRESH&#40;&#41;\n      IF BANCOS-&gt;&#40; RLock&#40;&#41; &#41; \n         REPLACE BANCOS-&gt;saldo WITH BANCOS-&gt;saldo + wmonto\n         EXIT\n      ELSE\n          MsgInfo&#40;&quot;No fué posible verificar cuenta&quot;&#41;\n      ENDIF \n   ENDDO\n   BANCOS-&gt;&#40; DbComittAll&#40;&#41; &#41;\n   BANCOS-&gt;&#40; DbUnlock&#40;&#41; &#41;\nELSE\n   MsgInfo&#40;&quot;No fué posible Abrir la cuenta&quot;&#41;\nENDIF\n \nCierroDbf&#40;&#41;  //?????\n[/code:7kbrqyvn]','',0,'AIA=','7kbrqyvn',1,0,'',362,0,0),(40533,8642,3,1158,0,'200.233.185.181',1193659077,1,0,1,1,1,0,'','','sometime ago, READONLY clause works , disable drag &amp; drop, but dont scrollbar , but in lasts versions of fwh reaonly dont disable drag $ drop.','',0,'AIA=','1ck8z6cl',1,0,'',1158,0,0),(40534,8658,6,439,0,'200.125.40.60',1193659238,1,0,1,1,1,1,'','','Gracias por tu respuesta Joao,\n\nHe probado con el código que me enviaste y sigue dándome el mismo error.','',0,'AIA=','47l7q13q',1,0,'',439,0,0),(40535,8658,6,316,0,'213.97.245.163',1193659494,1,0,1,1,1,0,'','Re: Error DBFCDX/1025  Escritura no autorizada','[quote=&quot;jose_murugosa&quot;:3bz2qs4x]Error DBFCDX/1025  Escritura no autorizada <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nEste es el error que estoy recibiendo donde indico en las siguientes líneas de código:\n[code:3bz2qs4x]\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nIF !AbroDbf&#40; &#46;T&#46;, &quot;DBFCDX&quot;, &quot;BANCOS&quot;, &quot;BANCOS&quot;, &quot;i_ban&quot;&#41;\n      MsgInfo&#40;&quot;No fué posible verificar cuenta&quot;&#41;\n      RETURN &#46;F&#46;\nENDIF\nseek ncta\nIF BANCOS-&gt;&#40; Found&#40;&#41; &#41;\n   DO WHILE &#46;T&#46;\n      IF BANCOS-&gt;&#40; RLock&#40;&#41; &#41;\naca-----&gt;REPLACE BANCOS-&gt;saldo WITH BANCOS-&gt;saldo + wmonto\n         BANCOS-&gt;&#40; DbUnlock&#40;&#41; &#41;\n         EXIT\n      ENDIF\n   ENDDO\nENDIF\nCierroDbf&#40;&#41;\n[/code:3bz2qs4x]\nLo curioso, como se puede ver es que el registro es bloqueado sin problemas y luego al intentar reemplazar produce un error de no poder acceder al registro bloqueado para escribir.\n\nIntente buscar el error pero no se porque se produce.\nCualquier ayuda sera muy apreciada.\n\nGracias desde ya <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:3bz2qs4x]\n\nel seek ncta, en que área lo haces? no tiene el \"Bancos-&gt;\" delante\n\nSi pones MSGINFO( BANCOS-&gt;( DBINFO( DBI_CANPUTREC ) ) ) justo antes del replace que muestra?\n\nAntes del dBUnlock() es imprescindible el dBCommit() si quieres evitar corrupción de datos. Ya sé, es más lento, pero para mis programas eso no es negociable: dBcommit() antes del Unlock y 0 corrupción con ntx y con cdx.\n\nUn saludo,\n\nCarlos.','',0,'gIA=','3bz2qs4x',1,0,'',316,0,0),(40536,8658,6,362,0,'200.158.19.206',1193660055,1,0,1,1,1,1,'','','saldo + wmonto  -&gt; los dos son numericos??','',0,'gIA=','2b77liyi',1,0,'',362,0,0),(40537,8658,6,439,0,'200.125.40.60',1193663377,1,0,1,1,1,1,'','','Carlos, Joao:\n\nMuchas gracias por sus respuestas, este es el código como lo estoy usando ahora y continúa el mismo error: <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n[code:pbz11pal]\n   IF wmonto = 0\n      RETURN &#46;T&#46;\n   ENDIF\n   warea = Select&#40;&#41;\n   IF !AbroDbf&#40; &#46;T&#46;, &quot;DBFCDX&quot;, &quot;BANCOS&quot;, &quot;BANCOS&quot;, &quot;i_ban&quot;&#41;\n      MsgInfo&#40;&quot;No fué posible verificar cuenta&quot;&#41;\n      RETURN &#46;F&#46;\n   ENDIF\n   BANCOS-&gt;&#40; DbSeek&#40;ncta, &#46;f&#46;&#41; &#41;\n   IF BANCOS-&gt;&#40; Found&#40;&#41; &#41;\n      DO WHILE &#46;T&#46;\n         SysRefresh&#40;&#41;\n         IF BANCOS-&gt;&#40; RLock&#40;&#41; &#41;\naca-&gt;    REPLACE BANCOS-&gt;saldo WITH BANCOS-&gt;saldo + wmonto\n            BANCOS-&gt;&#40; DbCommit&#40;&#41; &#41; \n            BANCOS-&gt;&#40; DbUnlock&#40;&#41; &#41;\n            EXIT\n         ENDIF\n      ENDDO\n   ENDIF\n   BANCOS-&gt;&#40; DbCloseArea&#40;&#41; &#41;[/code:pbz11pal]\n\nSaldo efectivamente es una variable numérica.\n\nGracias por vuestro interes y sugerencias que como veis he adoptado en el codigo. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','pbz11pal',1,0,'',439,0,0),(40538,8659,6,36,0,'164.77.81.210',1193663428,1,0,1,1,1,1,'','Ads - Campos ADT','Estimados\n\nPara los usuarios de ADS y Archivos ADT\n\nConsulta, como solucionaron los tipos de datos ADT\nya que un tipo de dato numerico tiene 3 alternativas\n[b:2y0fst0o]SHORTINT, DOUBLE, INTEGER[/b:2y0fst0o]\n\npor ejemplo en la clase tDbf \n[code:2y0fst0o]case &#58;&#58;cType  == &quot;N&quot;[/code:2y0fst0o]\ntuve que agregar esto \n[code:2y0fst0o]case &#58;&#58;cType  == &quot;N&quot; &#46;or&#46; &#58;&#58;cType $ &quot;DOUBLE;SHORTINT;INTEGER&quot;[/code:2y0fst0o]\n\nDesde ya muchas gracias','',0,'QIA=','2y0fst0o',1,0,'',36,0,0),(40539,8658,6,36,0,'164.77.81.210',1193663716,1,0,1,1,1,1,'','','Hola\n\nPrueba con \n\n  [code:h8gh4207]bancos-&gt;&#40; dbRLock&#40;&#41; &#41;[/code:h8gh4207]','',0,'AIA=','h8gh4207',1,0,'',36,0,0),(40540,8658,6,439,0,'200.125.40.60',1193663923,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:6566b0hf]Hola\n\nPrueba con \n\n  [code:6566b0hf]bancos-&gt;&#40; dbRLock&#40;&#41; &#41;[/code:6566b0hf][/quote:6566b0hf]\n\nProbado,\n\nEl mismo error en el mismo lugar......\n\nGracias por la sugerencia, sigo buscando....','',0,'gIA=','6566b0hf',1,0,'',439,0,0),(40541,8658,6,362,0,'200.158.19.206',1193664840,1,0,1,1,1,1,'','','Muestranos: \n\nAbroDbf()','',0,'gIA=','upq60ljx',1,0,'',362,0,0),(40542,8658,6,78,0,'190.43.176.212',1193664869,1,0,1,1,1,0,'','','...\nIF !AbroDbf( .T., \"DBFCDX\", \"BANCOS\", \"BANCOS\", \"i_ban\") \n      MsgInfo(\"No fué posible verificar cuenta\") \n      RETURN .F. \nENDIF \n\nSelect Bancos\n\nIf !DbSeek(nCta)\n      MsgInfo(\"No existe la cuenta\") \n      RETURN .F. \nEndIf\n\nIf !RLock()\n      MsgInfo(\"No fué posible bloquear la cuenta\") \n      RETURN .F. \nEndIf\n\nREPLACE BANCOS-&gt;saldo WITH BANCOS-&gt;saldo + wmonto \n\nDbCommit()\nDbUnLock() \nCierroDbf() \n...\n\nDebe funcionar...........\nSalu2','',0,'gIA=','1le9lwq0',1,0,'',78,0,0),(40543,8660,3,3,0,'80.81.159.19',1193665402,1,0,1,1,1,1,'','fwh 7.10 preview at startup','Hello\n\nI need to initiate my preview window with zoom on \n\nIf i set on init ::zoom(.t.) and lzoom := .t. before, the result is badly painted.\n\nHas anyone succeeded doing this ?\n\nThanks for help\n\nRichard','',0,'gIA=','3l3kdbwc',1,0,'',3,0,0),(40544,8652,3,3,0,'80.81.159.19',1193665703,1,0,1,1,1,1,'','Re: logical character Read','Enrico\n\n- you are using a bugged xHarbour version \n\nThe problem is old and i think dbf integrity has always been broken in Harbour / xharbour.\n\n- an hardware/software problem in the customers PC \n\nIt is possible but i do not think so, too many hardware problems at one time ?\n\n- a bug in your code \n\nI wish it was so, i could correct it. But how can i dump into dbf something like word dcouments or any other stuff i don\'t know about ...  This is what we usually find in these corrupted files or \"cabalistic unreadable characters\". This is why i want an inhouse maintenance program that can remove them\n\nThanks for your concern,  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nRichard','',0,'gIA=','6xupi3on',1,0,'',3,0,0),(40545,8648,6,362,0,'200.158.19.206',1193666508,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:38mllowe]@ nRow, nCol BTNBMP oBtn ...\n\noBtn:SetColor( nColorTexto, nClrFondo )[/quote:38mllowe]\n\nMAESTRO ANTONIO...\n\nPUEDO HACER ESTO CON BUTTONBMP TANBIÉN??? \n\nUSO DESDE RECURSOS DEL WORKSHOP.EXE the best.\n\n\nGracias,\n\nRegards, saludos.','',0,'gA==','38mllowe',1,0,'',362,0,0),(40546,8656,6,147,0,'200.45.54.134',1193669052,1,0,1,0,1,1,'','','JVargas\nEstás utilizando una librería compilada que bajaste con el wBrowse?\nSi es así, lo mejor es compilarla de nuevo.\nAsegurate de incluir wbrwline.c\n\nSi bien uso xHarbour 0.99.60.1 y FWH 26May05, no tengo ningún problema con su uso\n\nsaludos','',0,'gA==','wfyqe63a',1,0,'',147,0,0),(40547,8641,6,147,0,'200.45.54.134',1193669879,1,0,1,0,1,1,'','','ADBlanco\n\nProba así:\n\n[code:2gahsx68]\nREDEFINE LISTBOX oLbx ;\nFIELDS &quot;&quot; ;\nHEADERS &quot;Codigo&quot;, ;\n               &quot;Cod/Estado&quot;, ;\n               &quot;Ciudad&quot;, ;\n               &quot;Abreviatura&quot;, ;\n               &quot;Cod&#46;Area&quot; ;\nID 401 OF oDlg\n\noLbx&#58;bLine&#58;= &#123;|| &#123; oTabla&#58;Load&#40;&#41;, ;\n                            &#123; PadL&#40; oTabla&#58;FieldGet&#40; 1 &#41;, 6, &quot; &quot; &#41;,;\n                               oTabla&#58;xFieldGet&#40; 3 &#41;, ;\n                               oTabla&#58;xFieldGet&#40; 4 &#41;, ;\n                               oTabla&#58;xFieldGet&#40; 5 &#41;, ;\n                               oTabla&#58;xFieldGet&#40; 6 &#41; &#125; &#125;\n\n&#46;&#46;&#46;[/code:2gahsx68]\n\nSobre este tema (Eagle1), también podes dejar tu consulta en \n[url:2gahsx68]http&#58;//ar&#46;groups&#46;yahoo&#46;com/group/eagle1/?yguid=312688556[/url:2gahsx68]\n\nsaludos','',0,'EIA=','2gahsx68',1,0,'',147,0,0),(40548,8652,3,6,0,'82.57.161.159',1193671751,1,0,1,1,1,1,'','Re: logical character Read','[quote=&quot;Richard Chidiak&quot;:2bfgxgtk]The problem is old and i think dbf integrity has always been broken in Harbour / xharbour.[/quote:2bfgxgtk]\n\nI never heard of such problems in [x]Harbour RDDs.\n\nEMG','',0,'gA==','2bfgxgtk',1,0,'',6,0,0),(40549,8642,3,6,0,'82.57.161.159',1193671851,1,0,1,1,1,1,'','','[quote=&quot;norberto&quot;:1hah1ztr]i can disable right click in memo?[/quote:1hah1ztr]\n\nTry\n\noGet:bRClicked = { || NIL }\n\nEMG','',0,'gA==','1hah1ztr',1,0,'',6,0,0),(40550,8547,19,110,0,'148.168.40.4',1193671900,1,0,1,1,1,1,'','','Control+C normalito <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> te captura los mensaje de de los dialogos de windows de MessageBox, solo texto, no imagen.','',0,'gA==','3bayjcat',1,0,'',110,0,0),(40551,8641,6,1201,0,'200.90.17.154',1193674424,1,0,1,1,1,0,'','','Gracias Mario G., Ya hice la prueba y el comportamiento erróneo sigue igual:\nAl activarse presenta la lista, Hay que hacer click sobre una línea para que responda a las teclas de PgUp o PgDn o Inicio o Final, después se vuelve loco con la informaciób presentada, como si perdiera algún apuntador.\nSi paso el resultado del query a un arreglo o a una tabla tipo dbf trabaja bién. Pero la idea es no tener que efectuar estos pasos previos y trabajar directamente.\nParece que el problema tiene su origen en las definiciones que hace el eagle en MySetBrowse() de los bloques:\n\noLbx:bGoTop    := { || oTabla:GoTop(), MsFetchRow( oTabla:hResult ) }\noLbx:bGoBottom :={||oTabla:GoBottom(),MsFetchRow(oTabla:hResult ) }\noLbx:bSkip     := { | n | oTabla:Skipper( n )}\noLbx:bLogicLen := { || oTabla:nRowCount }','',0,'gA==','h0m0i5v6',1,0,'',1201,0,0),(40552,8661,3,234,0,'75.34.217.174',1193678648,1,0,1,1,1,1,'','Outlook prompt question','Is there a way for the prompt data to display complete? I am using the following syntax for prompts when I want to show prompt on two or more lines, PROMPT \'text line1\' + CHR(13) + CHR(10) + \'test line2\'; however the text is cutting off on the second or third lines. Also, we have noticed that the text of the last bitmap is not displaying when the bitmap is at the bottom of the display area. Can you anyone help me with this?','',0,'gA==','1otca7zl',1,0,'',234,0,0),(40553,8652,3,303,0,'72.220.100.171',1193681072,1,0,1,1,1,0,'','','Richard,\n\nThe corruption may be related to Windows and Novell settings. Here are some old messages about this.\n\nJames\n\n[quote:31l1k27g]---------------------------------\nFrom: \"Peter Kohler\" &lt;peter.kohler@pixie.co.za&gt;\nSubject: Dbf / Cdx corruption\nDate: Monday, November 17, 2003 4:40 AM\n\nWe have been and are still experiencing a lot of dbf / cdx database\ncorruption in our apps.\nWe know this is related to oplocks and client caching.\nWe now turn off oplcocks and cacheing via the registry settings below\n\nHowever we are still having problems at clients that use XP workstations\nXP seems to cache data and we seem to not have found the correct settings to\nturn this off\n\nCan anybody comment on any other registry settings thay they use to prevent\ndbf/cdx problems?\n\nThanks\nPeter\n\n***************************************\nWINDOWS CLIENT OPLOCK ENTRIES\n      + Windows NT/2000/XP clients only\n        1) HKEY_LOCAL_MACHINE,\n\"System\\CurrentControlSet\\Services\\LanmanWorkstation\\Parameters\",\n           \"EnableOpLocks\" Sets to 0 to disable oplock requesting by client\n\n        2) HKEY_LOCAL_MACHINE,\n\"System\\CurrentControlSet\\Services\\LanmanWorkstation\\Parameters\",\n\"EnableOpLockForceClosed\"\n           Set to 1 to disable oplock file open caching requesting by client\n\n        3) Windows 2000/XP clients only (newer setting for Win2K)\n          HKEY_LOCAL_MACHINE,\n\"System\\CurrentControlSet\\Services\\MRXSmb\\Parameters\", \"OpLocksDisabled\"\n          Sets to 1 to turn off oplock requesting by client\n\n       + Windows 98 clients only\n        4) HKEY_LOCAL_MACHINE,\n\"System\\CurrentControlSet\\Services\\VxD\\VREDIR\", \"DiscardCacheOnOpen\"\n           Sets to 1 to turn off read caching.\n           Win 98 clients do not know about oplocks and do not use them.\n\n WINDOWS SERVER OPLOCK ENTRIES\n      + Win NT/2000/XP/Win2003 server\n        1) HKEY_LOCAL_MACHINE,\n\"System\\CurrentControlSet\\Services\\LanmanServer\\Parameters\",\n           \"EnableOplocks\" Set to 0 to disable oplocks\n\n        2) HKEY_LOCAL_MACHINE,\n\"System\\CurrentControlSet\\Services\\LanmanServer\\Parameters\",\n           EnableOplockForceClose\" Set to 1 to disable oplock open/close\ncaching\n\n        3) HKEY_LOCAL_MACHINE,\n\"System\\CurrentControlSet\\Services\\LanmanServer\\Parameters\",\n           \"CachedOpenLimit\" Set to 0 to disable oplock open/close caching\n\n-- \nPeter Kohler\nQuick Software SA\n<!-- e --><a href=\"mailto:peter.kohler@pixie.co.za\">peter.kohler@pixie.co.za</a><!-- e --> (home office)\n<!-- e --><a href=\"mailto:peterk@quicksoftware.co.za\">peterk@quicksoftware.co.za</a><!-- e --> (office)\n--------------------------------------------------\nFrom: \"Rick Lipkin\" &lt;lipkinrm@yahoo.com&gt;\nSubject: Re: Dbf / Cdx corruption\nDate: Monday, November 17, 2003 2:17 PM\n\nPeter\n\nIf you are on a Novell 5x or greater server .. put this line in the\nAutoexec.ncf:\nSET CLIENT FILE CACHING ENABLED = OFF\n\nThis will turn off any optlock requests from the clients without having to\ndig into each desktop registry.\n\nI am not a M$ server guru .. my guess is that you will have to do thr\nregedit thing if your app is on a M$ server.\n\nRick Lipkin[/quote:31l1k27g]','',0,'gA==','31l1k27g',1,0,'',303,0,0),(40554,8620,6,945,0,'80.32.177.143',1193681363,1,0,1,1,1,0,'','Solucionado','Muy buenas, muchas gracias por todo, ya lo he solucionado, al final he utilizado la librearia wininet.dll con sus funciones, si alguien quiere el código que lo diga.\n\nUn Saludo.','',0,'gA==','2agscvut',1,0,'',945,0,0),(40555,8658,6,439,0,'190.64.38.91',1193682212,1,0,1,1,1,1,'','','[quote=&quot;Willi Quintana&quot;:28v541ep]...\nIF !AbroDbf( .T., \"DBFCDX\", \"BANCOS\", \"BANCOS\", \"i_ban\") \n      MsgInfo(\"No fué posible verificar cuenta\") \n      RETURN .F. \nENDIF \n\nSelect Bancos\n\nIf !DbSeek(nCta)\n      MsgInfo(\"No existe la cuenta\") \n      RETURN .F. \nEndIf\n\nIf !RLock()\n      MsgInfo(\"No fué posible bloquear la cuenta\") \n      RETURN .F. \nEndIf\n\nREPLACE BANCOS-&gt;saldo WITH BANCOS-&gt;saldo + wmonto \n\nDbCommit()\nDbUnLock() \nCierroDbf() \n...\n\nDebe funcionar...........\nSalu2[/quote:28v541ep]\n\nWilly, \n\ngracias por tu respuesta, probé de poner el código que sugieres, y me da nuevamente el mismo error.  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nCualquier guía adicional se recibe gratitud. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','28v541ep',1,0,'',439,0,0),(40556,8658,6,46,0,'217.168.114.118',1193683018,1,0,1,1,1,0,'','','El tamanho del campo \'SALDO\' soporta la cantadid a grabar?... es decir verifica el tamanho del campo','',0,'gA==','51don9zp',1,0,'',46,0,0),(40557,8658,6,1072,0,'190.82.13.125',1193683660,1,0,1,1,1,0,'','','Amigo:\n\nTe propongo dos cosas:\n\n1. Borra el Archivo Indices y Generalo de nuevo.\n\n2 Cambia esta Linea  *** IF BANCOS-&gt;( Found() )\n Por \nIF BANCOS-&gt;( !eof() ) \n      DO WHILE .T. \n         SysRefresh() \n         IF BANCOS-&gt;( RLock() ) \naca-&gt;    REPLACE BANCOS-&gt;saldo WITH BANCOS-&gt;saldo + wmonto \n            BANCOS-&gt;( DbCommit() ) \n            BANCOS-&gt;( DbUnlock() ) \n            EXIT \n         ENDIF \n      ENDDO \n   ENDIF \n\nEspero te sirva,\n\nSaludos,\nAntonio','',0,'gA==','oiohq9tg',1,0,'',1072,0,0),(40558,8652,3,3,0,'80.81.159.19',1193684466,1,0,1,1,1,1,'','','James \n\nThanks for your concern,\n\nI am aware about oplocks settings, and we do not have \"novell\" customers. Though we have a big amount of customers running our app, no Novell, just Microsoft .\n\nI still have to find how to read a logical field... It is the solution to cure, Otto\'s idea is good, scan all characters to check for valid fields, but this might take quite a while, we have some big databases. I will keep searching.\n\nthank you\n\nRichard','',0,'gA==','3ahy9y9y',1,0,'',3,0,0),(40559,8658,6,362,0,'200.158.18.203',1193684482,1,0,1,1,1,1,'','','COMO ESTÁ EL INDICE??\n\nHago asi,\n[code:3otwouuy]\n    AEVAL&#40;DIRECTORY&#40; &quot;IPOSTO&#46;CDX&quot;    &#41;,&#123; |aFILE| FERASE&#40;aFILE&#91;F_NAME&#93;&#41; &#125; &#41;\n[/code:3otwouuy]','',0,'AIA=','3otwouuy',1,0,'',362,0,0),(40560,8653,3,3,0,'80.81.159.19',1193684633,1,0,1,1,1,1,'','Re: xHB question','Dutch\n\nI can compile and use viacoral.lib with xhb (latest build) and fwh 7.10 \n\nWhat is your problem ?\n\nJust a clue, did you add #include \"viacoral.ch\" in your program and in your development dir or change your xbp to make it available\n\nHTH\n\nRichard','',0,'AIA=','1lohzsfd',1,0,'',3,0,0),(40561,8662,6,1201,0,'200.90.17.154',1193688168,1,0,1,1,1,0,'','LAS ETIQUETAS DE LOS FOLDER NO SE PRENDEN O APAGAN!!','En la versión anterior de Fw. Cuando un folder tenia la clausula WHEN .F.\nSu correspondiente Etiqueta se mostraba apagada.\nPero con la Versión 7.09 esto no ocurre, Que debo hacer para corregir este comportamiento, o es una omisión de la versión??.','',0,'AIA=','3avb6pvs',1,0,'',1201,0,0),(40562,8641,6,147,0,'190.138.166.119',1193688367,1,0,1,0,1,1,'','','Puede ser algún problema con tu versión de Eagle; 1.33 si mal no interpreto por la llamada a ::Read(), que en la última version ya no existe más.\nTe sugiero que dejes la consulta en el Link que te dejé\n\nSaludos','',0,'AIA=','vgt3r1ej',1,0,'',147,0,0),(40563,8656,6,1014,0,'190.42.126.24',1193688621,1,0,1,1,1,1,'','','Hola Mario. muchas gracias por tu respuesta\nestoy compilando el Wbrowse sin problemas, el wBrwLine.c lo compilo para convertirlo en obj pero da muchos errores (26) como \"unable to open WinTen.h\" y muchos \"error E2219 wBrwLIne wrong number of arguments in call of macro \'_parnl\'\", en el sample01 no hay problemas, y al momento de linkarlo toma el wBrwLine.obj que existia en el ZIP y da el error \'unresolved external \'_hb_stack\' referenced from wBrwLine.obj.\nel problema es al parecer el wBrwLine.c del 10/02/2006 y el wBrwLIne.obj. del 15/02/2005\nno incluyo el TwBrw32.lib\npodrias por favor verificar las fechas de los wBrwLine que tienes?\n\nagradeceria tu ayuda\nJorge Vargas','',0,'AIA=','2vhtdznk',1,0,'',1014,0,0),(40564,8658,6,875,0,'64.76.108.182',1193689832,1,0,1,1,1,0,'','','Ese error solo se da cuando el Archivo esta como solo Lectura,','',0,'AIA=','9y5t438y',1,0,'',875,0,0),(40565,8656,6,147,0,'190.138.166.119',1193690797,1,0,1,0,1,1,'','','Te envio los fuentes que tengo y uso\n\nSaludos','',0,'AIA=','2djzf2oe',1,0,'',147,0,0),(40566,8663,12,1089,0,'190.82.1.105',1193690852,1,0,1,1,1,0,'','Fivelinux','Antonio, te escribo este topic, puesto que me interesa muchísimo ser usuario de FiveLinux, cómo programador independiente en chile, me cuesta mucho adquirir software, y me gustaría saber cómo puedo conseguir legalmente Fivelinux y harbour para linux, y qué facilidades se pueden otorgar.\n\nSe que es complicado, pero preguntar no cuesta nada.\n\nUn afectuoso saludo a todo el equipo de Fivewin, Leonel.','',0,'AIA=','1mjr1cj2',1,0,'',1089,0,0),(40567,8658,6,73,0,'200.23.18.132',1193691246,1,0,1,1,1,0,'','','jose,\n\nrevisa los permisos sobre los archivos y carpetas, otra, crea una dbf nueva en blacno y agregale los registros de la anterior y prueba usando la nueva\nsalu2\npaco','',0,'AIA=','14p4ibmw',1,0,'',73,0,0),(40568,8547,19,92,0,'213.98.200.74',1193692220,1,0,1,1,1,0,'','','[quote=&quot;carlos vargas&quot;:2wsimaqa]Control+C normalito <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> te captura los mensaje de de los dialogos de windows de MessageBox, solo texto, no imagen.[/quote:2wsimaqa]\n\nBuenas,\n\nA mi con XP no me funciona. Estas seguro?\n\nSaludos\nCarlos G.','',0,'gA==','2wsimaqa',1,0,'',92,0,0),(40569,8658,6,439,0,'200.125.51.233',1193692400,1,0,1,1,1,1,'','','Joao, Carlos, Patricio, Willi, RenOmaS, Antonio, Jacgsoft, Francisco\n\nGracias por sus respuestas, no se como agradecer la forma en que siempre los compañeros del foro están dispuestos a dar de su tiempo para ayudarme, probaré las últimas sugerencias y luego les cuento.\n\nMuchas gracias <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2gkmlcx8',1,0,'',439,0,0),(40570,8600,19,618,0,'217.216.192.225',1193692418,1,0,1,1,1,1,'','GoDb plataform to develop in Gbasic PalmOs/PPC devices','Check GoDb developper studio.','',0,'gA==','28p9mral',1,0,'',618,0,0),(40571,8663,12,2,0,'87.218.146.201',1193692418,1,0,1,1,1,1,'','','Leonel,\n\nEnvíame un email y te comento','',0,'gA==','28p9mral',1,0,'',2,0,0),(40572,8657,12,2,0,'87.218.146.201',1193692480,1,0,1,1,1,1,'','','Wilson,\n\nAndo atareado configurando el nuevo OSX Leopard de Apple <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLo revisamos cuanto antes y te comento,','',0,'gA==','wknw9dy6',1,0,'',2,0,0),(40573,8662,6,2,0,'87.218.146.201',1193692565,1,0,1,1,1,1,'','','En FiveWin 16 bits si se pueden \"apagar\" pero el API de Win32 no lo pemite de forma estandard','',0,'gA==','2muwmnnd',1,0,'',2,0,0),(40574,8664,6,255,0,'201.122.36.212',1193703545,1,0,1,1,1,1,'','Verce 5.0','Ya esta disponible la version 5.0 de VERCE...\nTrae excelentes mejoras !!!\n\nPueden descargarla de\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/index.htm\">http://incos.sytes.net/fivewin/index.htm</a><!-- m -->\n\nSaludos','',0,'gA==','2xeq0svz',1,0,'',255,0,0),(40575,8664,6,431,0,'190.76.2.89',1193706338,1,0,1,1,1,1,'','Verce 5.0','me genera \nFatal: Unable to open file \'CT.LIB\'\nUSO harbour.\n\nmuy agradecido por tan útil herramientas para los que no somos muy expertos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.','',0,'gA==','3ldkh6cp',1,0,'',431,0,0),(40576,8657,12,179,0,'201.217.103.6',1193709385,1,0,1,1,1,1,'','','ok Antonio , gracias x todo\nUn Abrazo','',0,'gA==','22b93myw',1,0,'',179,0,0),(40577,8653,3,47,0,'203.144.160.247',1193710798,1,0,1,1,1,0,'','','Dear Richard,\n\nI use xHb.com 701 / FW 707.  I try to compile with ViaCoral but it doesn\'t show anything.  \n\nI add #include \'viacoral.ch\'\nI add c:\\viacoral\\lib\\xharbour\\vc\\viacoral.lib in XBP\n\nWhat does it mean, \"in your development dir\"\n[quote:1q95crn6]and in your development dir [/quote:1q95crn6]\n\nRegards,\nDutch','',0,'gA==','1q95crn6',1,0,'',47,0,0),(40578,8664,6,54,0,'189.132.92.200',1193710988,1,0,1,1,1,1,'','Re: Verce 5.0','[quote=&quot;mag071&quot;:1cwfqlvw]me genera \nFatal: Unable to open file \'CT.LIB\'\nUSO harbour.\n\nmuy agradecido por tan útil herramientas para los que no somos muy expertos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.[/quote:1cwfqlvw]\n\nSolucionado\n\nVuelve a descargar VERCE por favor\n\nsolo copia la carpeta DATA\n\ncomenta como queda','',0,'gA==','1cwfqlvw',1,0,'',54,0,0),(40579,8658,6,439,0,'200.125.51.157',1193711335,1,0,1,1,1,1,'','','Gracias por toda la ayuda que me están dando y las sugerencias!!!\n\n1) Verifiqué que carpetas y archivos no tuvieran atributo solo lectura u oculto.\n\n2) Borré los CDX y los regeneré\n\n3) Reparé las bases con Advance DBF Repair y para mayor seguridad luego creé bases de igual estructura y les di un append from utilizando estas como bases.\n\n4) Cree nueva estructura de directorios y transferí los archivos a la nueva estructura, recompilé el ejecutable y la dll.\n\n... Caballeros, sigo en la misma...\n\nGracias nuevamente por toda la ayuda y buena fe que han puesto para ayudarme, seguiré buscando la solución y si la encuentro prometo reportarla para que no les suceda.\n\nSe siguen recibiendo sugerencias... que ciertamente son todas agradecidas y probadas  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3jp8lxu9',1,0,'',439,0,0),(40580,6905,6,54,0,'189.132.92.200',1193713054,1,0,1,1,1,1,'','','José,\n\nMe he comunicado con Arturo.\n\ncomenta que el costo es de 90 euros.\n\ntendrías que tratar directamente la forma y manera de envio.','',0,'gA==','3n814wy6',1,0,'',54,0,0),(40581,6905,6,439,0,'200.125.51.157',1193713179,1,0,1,1,1,1,'','','[quote=&quot;wmormar&quot;:1658nvml]José,\n\nMe he comunicado con Arturo.\n\ncomenta que el costo es de 90 euros.\n\ntendrías que tratar directamente la forma y manera de envio.[/quote:1658nvml]\n\nWilliam!!!!\n\nMuchísimas Gracias !!!!\n\nLe enviaré mail en cuanto al asunto.','',0,'gA==','1658nvml',1,0,'',439,0,0),(40582,8664,6,431,0,'190.76.2.89',1193713624,1,0,1,1,1,1,'','Verce 5.0','Ahora Sip, <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  \n\ntodo correcto pude compilar y enlazar sin problemas. Ok.\n\nGracias.','',0,'gA==','1liezcmp',1,0,'',431,0,0),(40583,8664,6,54,0,'189.132.92.200',1193714543,1,0,1,1,1,1,'','Re: Verce 5.0','[quote=&quot;mag071&quot;:13qccz76]Ahora Sip, <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  \n\ntodo correcto pude compilar y enlazar sin problemas. Ok.\n\nGracias.[/quote:13qccz76]\n\nQue bien\n\nsaludos','',0,'gA==','13qccz76',1,0,'',54,0,0),(40584,8658,6,396,0,'200.71.186.108',1193716761,1,0,1,1,1,1,'','','Jose, a mi me paso algo parecido, y el problema era los niveles de seguridad de escritura de windows XP, si estas en red, verifica los niveles permitido al usuario con que te conectas o entra como administrador, tu codigo aparentemente esta bien, para evaluar el nivel del usuario, bajo DOS trate de crear una carpeta en el directorio donde estan tud DBF o crea un archivo .txt y trata salvarlo.... no solo FWH esta en interaccion, recuerda que se esta bajo un WINDOWS que controla niveles de seguridad y escritura... ojala pueda ayudarte mi observacion...saludos... que bueno es saber como se abocan todos para ayudarnos uno a los otros..  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  sin ningun interes.','',0,'gA==','7s7u6rsc',1,0,'',396,0,0),(40585,8665,19,396,0,'200.71.186.108',1193719547,1,0,1,1,1,1,'','Pagina de buenos recursos Pagos y gratuitos...','Aca les dejo una pagina para su evaluacion, alguno podra sacarle probecho, mas que todo para nosotros los novatos, me parecio interesante y por eso la comparto, espero ayude a alguien... <!-- m --><a class=\"postlink\" href=\"http://www.freedownloadscenter.com/es/Programacion/\">http://www.freedownloadscenter.com/es/Programacion/</a><!-- m -->','',0,'gA==','22l7693c',1,0,'',396,0,0),(40586,8658,6,492,0,'189.147.71.87',1193719754,1,0,1,1,1,1,'','','Hola Jose\n\nNo indicas si el archivo lo accesas de forma local o por red, pero coincido con Jose Luis, en caso que sea por red,checa que activaste la opcion de :\n- Permitir que los usuarios modifiquen los archivos, al momento de crear tu unidad de red.\nYa que si no, los archivos los abriras como solo lectura.\n\nSaludos','',0,'gA==','31c2ufdu',1,0,'',492,0,0),(40587,8666,3,32,0,'41.206.160.2',1193728875,1,0,1,1,1,0,'','cGetDir dialog, and make new folder button','Hi,\n\nIs there a way to hide the New folder button when using cGetDir()?\n\nI\'ve been reading through the GetOpenFileName API docs, but can\'t find it in the flags...\n\nAlex','',0,'gA==','1czotm8k',1,0,'',32,0,0),(40588,8666,3,6,0,'87.3.212.43',1193732052,1,0,1,1,1,1,'','Re: cGetDir dialog, and make new folder button','It seems you can\'t.\n\nEMG','',0,'gA==','34fufqaf',1,0,'',6,0,0),(40589,8577,3,69,0,'74.13.38.248',1193738405,1,0,1,1,1,1,'','','Thanks for all the help Antonio.\n\nI am going to buy the software today.\n\nI will let you know you well it works.\n\n\n\nJeff','',0,'gA==','2v9p5vb0',1,0,'',69,0,0),(40590,8666,3,2,0,'87.218.146.165',1193738514,1,0,1,1,1,1,'','','Alex, Enrico,\n\nI guess that you could locate the button handle and hide it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nStepping through the dialog controls, checking the control classname and once found a button, hide it, until the right one is located. winapi\\getdir.c ComDlgHkFile() seems the right place to do it','',0,'gA==','3ki0udga',1,0,'',2,0,0),(40591,8577,3,2,0,'87.218.146.165',1193738848,1,0,1,1,1,1,'','','Jeff,\n\nYou are welcome,\n\nIMO it will work fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3udq1f3z',1,0,'',2,0,0),(40592,8658,6,439,0,'200.125.49.110',1193740470,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:lqxx8ess]Hola Jose\n\nNo indicas si el archivo lo accesas de forma local o por red, pero coincido con Jose Luis, en caso que sea por red,checa que activaste la opcion de :\n- Permitir que los usuarios modifiquen los archivos, al momento de crear tu unidad de red.\nYa que si no, los archivos los abriras como solo lectura.\n\nSaludos[/quote:lqxx8ess]\n\nEl programa está en mi equipo de trabajo, que no está en red.\n\nProbé la aplicación en otra máquina (la del cliente) y tengo el mismo problema, si bien esta está en red, lo probé en una carpeta no compartida.\n\nSigo investigando......\n\nMuchas Gracias Ray por tu respuesta.','',0,'gA==','lqxx8ess',1,0,'',439,0,0),(40593,8658,6,2,0,'87.218.146.165',1193741000,1,0,1,1,1,1,'','','José,\n\nPodrías proporcionar un ejemplo pequeño y autocontenido que reproduzca el error ? gracias','',0,'gA==','2oobwcen',1,0,'',2,0,0),(40594,8667,19,2,0,'87.218.146.165',1193741571,1,0,1,1,1,1,'','BSOD on Leopard','<!-- m --><a class=\"postlink\" href=\"http://www.theregister.co.uk/2007/10/27/leopard_install_problems/\">http://www.theregister.co.uk/2007/10/27 ... _problems/</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://discussions.apple.com/thread.jspa?threadID=1195031&amp;tstart=0\">http://discussions.apple.com/thread.jsp ... 1&amp;tstart=0</a><!-- m -->\n\nno comments <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2d8prcsz',1,0,'',2,0,0),(40595,8666,3,6,0,'87.3.212.43',1193742705,1,0,1,1,1,1,'','','Yes, it could work. But is it worth the pain?\n\nEMG','',0,'gA==','2qf7pzkp',1,0,'',6,0,0),(40596,8666,3,2,0,'87.218.146.165',1193743048,1,0,1,1,1,1,'','','Probably not <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','12r4hcps',1,0,'',2,0,0),(40597,8666,3,32,0,'41.206.160.2',1193745913,1,0,1,1,1,0,'','','I found that ShBrowseForFolder is used. A google search found the following constant:\n\n#define BIF_NONEWFOLDERBUTTON 0x200\n\nBut it had no effect. Will keep trying...','',0,'gA==','17zxatga',1,0,'',32,0,0),(40598,8600,19,105,0,'201.246.183.78',1193747851,1,0,1,1,1,1,'','','Thanks for your anwsers.. gonna check\'em all\n\nThanks Again.','',0,'gA==','2yl45y74',1,0,'',105,0,0),(40599,8666,3,32,0,'41.206.160.2',1193749840,1,0,1,1,1,0,'','','Found the problem\n\nHad to change:\n\n   if ( ISNUM( 5 ) ) {\n[b:2fvbpaoe]//      lpbi.ulFlags = _parni( 5 ) ;\n      lpbi.ulFlags = _parnl( 5 ) ;\n[/b:2fvbpaoe]   }\n\n   lpIDList = SHBrowseForFolder( &amp;lpbi );','',0,'QA==','2fvbpaoe',1,0,'',32,0,0),(40600,8666,3,32,0,'41.206.160.2',1193750517,1,0,1,1,1,0,'','cGetDir - more','Hi again,\n\nHave to call as follows:\n\n\n[code:22bd1fj9]\n\n#define BIF_NONEWFOLDERBUTTON 0x200\n#define BIF_RETURNONLYFSDIRS  0x0001\n#define BIF_DONTGOBELOWDOMAIN  0x0002\n#define BIF_STATUSTEXT  0x0004\n#define BIF_RETURNFSANCESTORS  0x0008\n#define BIF_EDITBOX  0x0010\n#define BIF_VALIDATE  0x0020\n#define BIF_NEWDIALOGSTYLE  0x0040\n#define BIF_USENEWUI  &#40;BIF_NEWDIALOGSTYLE|BIF_EDITBOX&#41;\n#define BIF_BROWSEINCLUDEURLS  0x0080\n#define BIF_BROWSEFORCOMPUTER  0x1000\n#define BIF_BROWSEFORPRINTER  0x2000\n#define BIF_BROWSEINCLUDEFILES 0x4000\n#define BIF_SHAREABLE  0x8000\n\ncGetDir&#40; cTitle, cPath,,, BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN + BIF_USENEWUI + BIF_NONEWFOLDERBUTTON &#41;\n[/code:22bd1fj9]','',0,'AIA=','22bd1fj9',1,0,'',32,0,0),(40601,8666,3,2,0,'87.218.146.201',1193751644,1,0,1,1,1,1,'','','Alex,\n\nVery good, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ns1lg2d',1,0,'',2,0,0),(40602,8668,6,50,0,'80.35.225.154',1193757029,1,0,1,1,1,0,'','BtnGet','Hola a todos, alguien tiene BtnGet para xHarbour 0.99.71, es que si bien tengo los fuentes, cuando reconstruyo la libreria, no me da ningún error , pero tampoco actua correctamente, solo cambia el color del Get Activo, omitiendo la clausula Action y el Bmp que debería figurar a la derecha del get.\ndesde ya muchas gracias.\n\nsaludos a todos.\n\nAntonio F. Ortega','',0,'AIA=','irxo009t',1,0,'',50,0,0),(40603,8668,6,316,0,'213.97.245.163',1193758879,1,0,1,1,1,0,'','','Se me acaba de ocurrir... No sé en que orden aparece el btnget en la lista de libs, pero asegúrate de que esté antes del tsbrowse.lib, asi no te enlaza la clase que trae este browse.','',0,'AIA=','3gtzsy5c',1,0,'',316,0,0),(40604,8666,3,6,0,'87.3.212.43',1193759146,1,0,1,1,1,1,'','','[quote=&quot;AlexSchaft&quot;:2oraw4se]I found that ShBrowseForFolder is used.[/quote:2oraw4se]\n\nOps! Right!\n\nEMG','',0,'gA==','2oraw4se',1,0,'',6,0,0),(40605,8668,6,50,0,'80.35.225.154',1193759304,1,0,1,1,1,0,'','BtnGet','Está puesta delante de TSBrowse.\n\nGracias.','',0,'gA==','28i2jufe',1,0,'',50,0,0),(40606,8669,6,519,0,'88.6.96.217',1193760063,1,0,1,1,1,0,'','Image2PDF con xharbour 0.99.71','Hola \n\n\n   Estoy utlizando la dll Image2PDF.dll para exportar a pdf, con fwh26 va de maravilla, ahora me actualizado a la nueva version de fwh y xharbour  0.99.71  y me da un gpf el mismo codigo , alguien tiene funcionando esta dll con xharbour  0.99.71  ?\n\n\n   un saludo','',0,'gA==','3byu4jik',1,0,'',519,0,0),(40607,8668,6,362,0,'200.158.19.38',1193760216,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=585\">http://www.fivewin.com.br/exibedicas.asp?id=585</a><!-- m -->\n\nRegards, saludos.','',0,'gA==','3t9pf9gr',1,0,'',362,0,0),(40608,8670,19,439,0,'190.64.33.112',1193760475,1,0,1,1,1,1,'','Licenciamiento de FWH','Antonio,\n\nUna consulta.\n\nHabiendo yo comprado FWH 7.01.....\n\nEs lícito tenerlo instalado en mi máquina personal y en la de mi oficina (en una empresa para la que programo) siendo que lo uso unicamente yo?\n\nO el soft debería instalarse en una sola máquina?','',0,'gA==','34qj4h7q',1,0,'',439,0,0),(40609,8658,6,439,0,'190.64.33.112',1193760792,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:32oudrzk]José,\n\nPodrías proporcionar un ejemplo pequeño y autocontenido que reproduzca el error ? gracias[/quote:32oudrzk]\n\nGracias por tu respuesta, procuraré elaborar uno a la brevedad.','',0,'gA==','32oudrzk',1,0,'',439,0,0),(40610,8671,6,228,0,'201.244.65.30',1193763039,1,0,1,1,1,1,'','Cadena de conexion ADO mssql','Amigos del foro tengan todos buen dia, como dice en encabezado alguien me puede indicar cual es la cadena de conexion para accesar a un SQLSERVER 2005 por AUTENTICACION DE WINDOWS via ADO.\n\nDe antemano gracias','',0,'gA==','i32ux7fk',1,0,'',228,0,0),(40611,8668,6,50,0,'84.121.121.53',1193765403,1,0,1,1,1,0,'','Gracias','¿ la estás usando con xHarbour 0.99.71 ? , lo digo porque la lib tiene fecha de 2003 .... al igual que los fuentes y los obj.\n\nSaludos.\n\nAntonio F. Ortega','',0,'gA==','1cnsqoji',1,0,'',50,0,0),(40612,8670,19,2,0,'87.218.146.201',1193765564,1,0,1,1,1,1,'','','José,\n\nNunca hemos sido restrictivos en ese sentido, pues luego los usuarios hacen lo que quieren <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi el software lo has comprado tu, se supone que es para que sólo tu lo uses. Si una empresa va a usarlo, entonces debería comprar una nueva licencia.\n\nSi un usuario de FiveWin se dirige a nosotros, entonces podemos pedirle su código de licencia y por ahí comprobaríamos si es de él ó usa una copia que no le pertenece.','',0,'gA==','2okhspwo',1,0,'',2,0,0),(40613,8668,6,362,0,'200.158.19.38',1193766710,1,0,1,1,1,1,'','Re: Gracias','[quote=&quot;antonio.ortega&quot;:1psbpzhm]¿ la estás usando con xHarbour 0.99.71 ? , lo digo porque la lib tiene fecha de 2003 .... al igual que los fuentes y los obj.\n\nSaludos.\n\nAntonio F. Ortega[/quote:1psbpzhm]\n\nHola...\nNo necesitas de la libreria, te basta transformar el archivo.c en archivo.obj y incorporar a tu aplicacion, de esta forma:\n\n%FwhDir%\\Tools\\CLP2HARB GetBtn.C GetBtn.HC\n\n\n%bcdir%\\Bin\\bcc32 -c -D__HARBOUR__;HB_API_MACROS -I%FwhDir%\\Include;%hDir%\\Include -tW GetBtn.HC','',0,'gA==','1psbpzhm',1,0,'',362,0,0),(40614,8658,6,940,0,'189.175.212.254',1193768011,1,0,1,1,1,1,'','','Exacto Jose,,\n\nun pedazo de codigo mas completo,\n\npara poder nosotros aplicar tu logica,,\n\n\nusas ADS local ?\n\n\nsaludos..','',0,'gA==','1ny5onu2',1,0,'',940,0,0),(40615,8672,19,69,0,'206.210.100.104',1193769231,1,0,1,1,1,1,'','OT: USB Flash Drive supplier','Hi Everyone,\n\nDoes anyone know a good supplier of small capacity usb flash drives (32mb).\n\nThanks,\nJeff','',0,'gA==','1i2dxdy6',1,0,'',69,0,0),(40616,8248,6,63,0,'88.6.235.117',1193770530,1,0,1,1,1,0,'','','Mauro:\nYo tenía el mismo problema.  Prueba esto:\n[code:3zjfux2g]\netc &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n       oBrw&#58;aCols&#91;i&#93;&#58;AddResource&#40;&quot;MARCA_ON&quot;&#41;\n       oBrw&#58;aCols&#91;i&#93;&#58;AddResource&#40;&quot;MARCA_OFF&quot;&#41;\n       oBrw&#58;aCols&#91;i&#93;&#58;bBmpData      &#58;= &#123; || FnMarca&#40;oBrw, i&#41; &#125;\n       oBrw&#58;aCols&#91;i&#93;&#58;nHeadBmpNo    &#58;= 3\n       oBrw&#58;aCols&#91;i&#93;&#58;nHeadBmpAlign &#58;= AL_LEFT\n       oBrw&#58;aCols&#91;i&#93;&#58;cHeader       &#58;= &quot;&quot;\netc &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\n// --------------------------------------------------------\nStatic Function FnMarca&#40;oBrw, i&#41;\nLocal n &#58;= oBrw&#58;nArrayAt\nLocal nBmp\nIf oBrw&#58;aArrayData&#91;n, 3&#93; = &quot;S&quot;   // mi tercera columna es el CheckOn/Check Off\n    nBmp &#58;= 3      // Parece que los resursos 1 y 2 son los indicadores de sort up/down\nElse\n    nBmp &#58;= 4\nEndif\nReturn nBmp\n[/code:3zjfux2g]\n\nA mí me funciona.  Suerte!\nRafael','',0,'AIA=','3zjfux2g',1,0,'',63,0,0),(40617,8658,6,73,0,'200.23.18.132',1193770869,1,0,1,1,1,0,'','','jose, si pudieras subir un exe o enviarmelo con ese pequeño ejemplo para reproducirlo en mi pc a ver si aca jala bien.\nsalu2\npaco','',0,'AIA=','k3bmwiij',1,0,'',73,0,0),(40618,8670,19,439,0,'200.125.32.61',1193772342,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:14kqv9hr]José,\n\nNunca hemos sido restrictivos en ese sentido, pues luego los usuarios hacen lo que quieren <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi el software lo has comprado tu, se supone que es para que sólo tu lo uses. Si una empresa va a usarlo, entonces debería comprar una nueva licencia.\n\nSi un usuario de FiveWin se dirige a nosotros, entonces podemos pedirle su código de licencia y por ahí comprobaríamos si es de él ó usa una copia que no le pertenece.[/quote:14kqv9hr]\n\nOk, si entendí bien, entonces no habría problema, porque el caso que planteo es una empresa que es mi cliente (no desarrollan software sino usan el que les desarrollo), y me han montado un espacio allí para cuando voy, a fin de que pueda hacer modificaciones a su solicitud, por lo cual nadie utiliza ese software salvo yo que muy bien lo he comprado el 29/01/2006 y actualizado 12/2007.\n\nAgradezco esta información y el que no sean restrictivos en esta área, ya que para mí resulta una comodidad el que esta empresa me haya montado este espacio.\n\n[b:14kqv9hr]El tema es que en uruguay existe una cámara de software sumamente activa que monitorea especialmente las empresas grandes para que usen software original[/b:14kqv9hr], al tener montada una oficina mía allí, si llega una inspección [b:14kqv9hr]me consultarán sobre el licenciamiento del software a lo que responderé que el mismo me pertenece y está a mi nombre (no al de la empresa donde está el equipo) y tal vez les consulten a Uds. si tienen algún reparo.[/b:14kqv9hr]\nNo quiero tener problemas ni con Uds. ni con ellos.','',0,'wA==','14kqv9hr',1,0,'',439,0,0),(40619,8670,19,2,0,'87.218.146.201',1193773286,1,0,1,1,1,1,'','','José,\n\n&gt; y tal vez les consulten a Uds. si tienen algún reparo. \n\nLes atenderemos con mucho gusto,\n\n&gt; No quiero tener problemas ni con Uds. ni con ellos.\n\nNo los tendrás <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'wA==','14gzbz2a',1,0,'',2,0,0),(40620,8669,6,2,0,'87.218.146.201',1193773514,1,0,1,1,1,1,'','','Gabriel,\n\nPuedes poner un ejemplo autocontenido y pequeño de como usarlo y la DLL para que lo podamos probar aqui ? gracias','',0,'wA==','vl6kahfa',1,0,'',2,0,0),(40621,8658,6,396,0,'190.72.207.72',1193775739,1,0,1,1,1,1,'','','Sube a algun servidor de descargar la rutina con la dbf a ver que podemos hacer, se que encontraremos respuesta logica, la pregunta de las mil lochas, te sucede eso en todas las DBF o solo los que usa esa rutina..?','',0,'wA==','3rjwy98j',1,0,'',396,0,0),(40622,8668,6,396,0,'190.72.207.72',1193775899,1,0,1,1,1,1,'','','Si alguien tiene esta clase pero para Harbour...','',0,'wA==','3jogpufh',1,0,'',396,0,0),(40623,8673,6,396,0,'190.72.207.72',1193776125,1,0,1,1,1,1,'','Clase para BOTONES con imagen .JPG','Estoy usando la clase BTNBMP, hay alguna que pueda usar imagenes .JPG, las BMP con muy pesadas y si paso las JPG a BMP algunas pierden calidad. gracias de antemano...','',0,'wA==','1k368ks4',1,0,'',396,0,0),(40624,8673,6,221,0,'200.109.27.176',1193777266,1,0,1,1,1,1,'','','caramba amigo hasta ahora que me do cuenta que eres de guatire, yo estoy en guarenas...','',0,'wA==','2mkb5eud',1,0,'',221,0,0),(40625,8670,19,439,0,'200.125.32.61',1193777359,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2t1w4keh]José,\n\n&gt; y tal vez les consulten a Uds. si tienen algún reparo. \n\nLes atenderemos con mucho gusto,\n\n&gt; No quiero tener problemas ni con Uds. ni con ellos.\n\nNo los tendrás <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2t1w4keh]\n\nGracias Antonio.','',0,'gA==','2t1w4keh',1,0,'',439,0,0),(40626,8620,6,221,0,'200.109.27.176',1193777552,1,0,1,1,1,1,'','','pues lo digo, jeje si podrian compartilos, gracias','',0,'gA==','18zd92ah',1,0,'',221,0,0),(40627,8656,6,1014,0,'200.121.177.196',1193780495,1,0,1,1,1,1,'','','Hola Mario. \nmuchisimas gracias por tu ayuda\n\notro si pregunto.\nalguien sabe como se usa los archivos .MAK para crear una libreria?\ngracias \nJorge Vargas','',0,'gA==','1sk8cfpj',1,0,'',1014,0,0),(40628,6815,6,800,0,'200.163.198.135',1193780540,1,0,1,1,1,0,'','','Esse topico foi encerrado em Outubro/07 !?','',0,'gA==','3t3fessf',1,0,'',800,0,0),(40629,8671,6,278,0,'200.126.65.169',1193780579,1,0,1,1,1,1,'','','Hola Leandro:\n\nPuedes utilizar las siguientes formas, que detallo mas abajo.\n\nDe todas formas visita este sitio, donde estan muchas otras formas\nde conexion para sql, ado y muchos tipos de bases de datos.\n\n <!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->\n\nSaludos ,\n\n\n[code:2kc0kfru]\n\nSQL Server 2005 Set your custom connection string values » \n \n\nStandard security \n  \nDriver=&#123;SQL Native Client&#125;;Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword; \n \n\nTrusted Connection \n  \nDriver=&#123;SQL Native Client&#125;;Server=myServerAddress;Database=myDataBase;Trusted_Connection=yes; \n\n \n[/code:2kc0kfru]','',0,'AIA=','2kc0kfru',1,0,'',278,0,0),(40630,8673,6,2,0,'87.218.146.201',1193782875,1,0,1,1,1,1,'','','Jose Luis,\n\nPodríamos modificar la clase TBtnBmp para que pueda usar la FreeImage.dll que usa la clase TImage, y asi poder soportar distintos tipos de ficheros de imágenes','',0,'AIA=','ii424s2g',1,0,'',2,0,0),(40631,8671,6,348,0,'201.240.124.127',1193782982,1,0,1,1,1,0,'','','Hola Juan \n\nDe hecho  que buen link, creo muy buen complemento y hallazgo !!! \n\nSoy un principiante en esos lares de Conexiones pero se ve que la informacion es interesante\nSeria importante tener mayor informacion para el manejo de estas Bases de Datos, sea usando con ADORDD  o ODBC  con Harbour y FWH ,, tanto como crear, editar , buscar, borrar registros, listbox  etc.  muchos estamos en busca de ellos,  Quiza tengas alguna informacion adicional bienvenido sea !!!\n   \nGracias\n\nLubin','',0,'AIA=','11ag0ka3',1,0,'',348,0,0),(40632,8620,6,348,0,'201.240.124.127',1193783407,1,0,1,1,1,0,'','Re: QFTP','Te agradeceria si pudieras mandar tambien  esa clase QFTP \nme seria de mucha utilidad \n\nEMail <!-- e --><a href=\"mailto:lubin.am@speedy.com.pe\">lubin.am@speedy.com.pe</a><!-- e -->\n\nMuchas Grcacias.\n\nLubin \n\n[quote=&quot;JARO&quot;:ue816vi9]Tienes todas las coluciones en la clase QFTP mañana te mando un e-mail con la clse y ejemplos.[/quote:ue816vi9]','',0,'gA==','ue816vi9',1,0,'',348,0,0),(40633,8656,6,54,0,'189.132.92.200',1193784134,1,0,1,1,1,1,'','','[quote=&quot;jvargas&quot;:1r02zumi]Hola Mario. \nmuchisimas gracias por tu ayuda\n\notro si pregunto.\nalguien sabe como se usa los archivos .MAK para crear una libreria?\ngracias \nJorge Vargas[/quote:1r02zumi]\n\nUsar VERCE\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin\">http://incos.sytes.net/fivewin</a><!-- m -->','',0,'gA==','1r02zumi',1,0,'',54,0,0),(40634,8674,3,69,0,'74.13.58.195',1193786846,1,0,1,1,1,1,'','Help.  Convert C++ file to Fivewin','Hi Everyone,\n\nCan someone please convert this Visual C++ code into Fivewin for me.\n\nI have no experience with C++\n\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/66375855/FileTest.c.html\">http://rapidshare.com/files/66375855/FileTest.c.html</a><!-- m -->\n\n\nThanks in advance,\nJeff','',0,'gA==','2xpcqo1j',1,0,'',69,0,0),(40635,8248,6,495,0,'200.120.233.150',1193792592,1,0,1,1,1,0,'','','Rafael, te pasaste por la información funciono perfecto solo me faltaba cambiar 3, 4 los indicadores.\n\nWITH OBJECT :aCols[ESTADO]\n  :AddResource( \"CHECK_ON\" )\n  :AddResource( \"CHECK_OFF\" )\n  :bBmpData    := { || IF( AR_MES[::oBrw:nArrayAt][ESTADO ] == .T., 3, 4) }\nEND\ntenia mucho tiempo con esta cosa, super agradecido con tu información\n\nsalu2\n\nMauro','',0,'','1gpgkz1q',1,0,'',495,0,0),(40636,8671,6,228,0,'190.25.127.207',1193793809,1,0,1,1,1,1,'','Solucionado....','Amigos.. Con esta cadena me funciono... Hay cosas que no se para que sirven, pero fue la forma en que subio la conexión. \n\n[code:1iocehxj]\noCon&#58;ConnectionString&#58;= &quot;Provider=SQLOLEDB&#46;1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=CONSOLIDACION;Data Source=SERVER\\SQLEXPRESS;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=GERENCIA;Use Encryption for Data=False;Tag with column collation when possible=False&quot;\n[/code:1iocehxj]','',0,'AIA=','1iocehxj',1,0,'',228,0,0),(40637,8664,6,228,0,'190.25.127.207',1193794614,1,0,1,1,1,1,'','Excelente...','Amigazo Willi y Juan Carlos muchas gracias me esta funcionando de maravilla. Solo tengo una petición mas, seria posible que se incluyera la forma de crear eejcutables para FWPPC. ¿no se si tecnicamente sea posible?\n\nUn saludo','',0,'AIA=','30jh3uor',1,0,'',228,0,0),(40638,8659,6,138,0,'200.55.14.77',1193804273,1,0,1,1,1,1,'','','Yo por eso NO utilizo clases externas, trabajo los ADTs con instrucciones nativas de Xbase porque las distintas clases que existen para trabajar tablas DBF no soportan todas las características de los ADTs.\n\nMi consejo: trabajar las tablas ADT con instrucciones nativas, o.... como haz hecho tu, modificar las clases existentes.\n\nSaludos desde Buenos Aires','',0,'AIA=','crjds92t',1,0,'',138,0,0),(40639,8673,6,396,0,'200.71.188.209',1193806127,1,0,1,1,1,1,'','','[quote=&quot;QAZWSX2K&quot;:pia8i0km]caramba amigo hasta ahora que me do cuenta que eres de guatire, yo estoy en guarenas...[/quote:pia8i0km]\n\nQAZWSX2K, saludos, que bueno vaya creciendo los usuarios de FWH de la zona, por aca estoy a la orden para ideas e intercambio de notas... saludos.','',0,'gA==','pia8i0km',1,1193806706,'',396,1,0),(40640,8673,6,396,0,'200.71.188.208',1193806484,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1agyjy0z]Jose Luis,\n\nPodríamos modificar la clase TBtnBmp para que pueda usar la FreeImage.dll que usa la clase TImage, y asi poder soportar distintos tipos de ficheros de imágenes[/quote:1agyjy0z]\n\nAntonio, uds es el master, seria bueno tener estos detalles en las clases nativas, si es asi, bienvenida sea, mientras probare TIMAGE, me entere habia una clase de tercero que ya colocaba imagenes JPG en los botones con y sin texto, la he visto en algunos sistemas, como por ejemplo VERCE, nose si es gratuita o Paga, y de donde la podria descargar, revise las utilierias del foro y no vi nada por alli, en 16bit usaba TSBUTTON, pero formatie el laptop y perdi mucha informacion, si sirve para FHW mucho agradeceria obtenerla, gracias, saludos...','',0,'gA==','1agyjy0z',1,0,'',396,0,0),(40641,8661,3,2,0,'87.218.146.201',1193815265,1,0,1,1,1,1,'','','Darrel,\n\nPlease provide a screenshot. Use <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> to upload the image and copy here the provided url, thanks','',0,'gA==','8qeea5tf',1,0,'',2,0,0),(40642,8669,6,519,0,'88.14.204.174',1193816637,1,0,1,1,1,0,'','','Aqui va un ejemplo compilado con fwh26  y xharbour  0.99.50\n\n  <!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/66432687/Testpdf.zip.html\">http://rapidshare.com/files/66432687/Testpdf.zip.html</a><!-- m -->\n\n\n   un saludo','',0,'gA==','zahvnwhs',1,0,'',519,0,0),(40643,8669,6,2,0,'87.218.146.201',1193819226,1,0,1,1,1,1,'','','Gabriel,\n\nTu ejemplo funciona aqui perfectamente con Vista 32 y Adobe Reader 8\n\nLa DLL Image2PDF.dll es de libre distribución ?','',0,'gA==','3sr53b03',1,0,'',2,0,0),(40644,8668,6,362,0,'200.158.19.209',1193831471,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:en84upez]Si alguien tiene esta clase pero para Harbour...[/quote:en84upez]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=585\">http://www.fivewin.com.br/exibedicas.asp?id=585</a><!-- m -->\n\nPuedes usar sin problemas.\n\nTanbién no necesitas de la libreria. \n\nHARBOUR Y XHARBOUR ÉS LA MISMA COSA. COM ALGUNAS MODIFICACIONES. MAS...','',0,'gA==','en84upez',1,0,'',362,0,0),(40645,8669,6,519,0,'81.32.158.57',1193831680,1,0,1,1,1,0,'','','Antonio, has compilado el testpdf.prg con la ultima versión de fwh  ? el exe que va en el zip esta compilado con fwh 2.6  y con esta versión funciona perfectamente, el gpf lo da con la última versión de fwh.\n\n\n  La dll es de pago pero merece la pena, mas informacion \n \n  <!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/\">http://www.utilitywarrior.com/</a><!-- m -->\n\n    un saludo','',0,'gA==','p4fwkmn7',1,0,'',519,0,0),(40646,8657,12,2,0,'87.218.146.201',1193832909,1,0,1,1,1,1,'','','Wilson,\n\nEstamos ya trabajando para encontrarle una solución. El problema es que se selecciona todo el texto al tomar el foco. De momento prueba a inicializar las variables a editar con menos espacios. \n\nA ver si podemos enviarte nuevas librerías lo antes posible, gracias','',0,'gA==','30c1xjgw',1,0,'',2,0,0),(40647,8657,12,179,0,'190.152.24.60',1193834561,1,0,1,1,1,1,'','','ok Antonio ya lo prueba\ngracias \natt','',0,'gA==','b61ohnm1',1,0,'',179,0,0),(40648,8675,3,247,0,'83.171.242.103',1193836056,1,0,1,1,1,0,'','Fivewin 7.10','Hi,\nWhen i compile anything (e.g testdlg.prg ) using buildx.bat a dos window along with my executable program is showing .Why is that. \n\n[url=http&#58;//img505&#46;imageshack&#46;us/my&#46;php?image=testdlgtw0&#46;png:321c0kbl][img:321c0kbl]http&#58;//img505&#46;imageshack&#46;us/img505/1016/testdlgtw0&#46;th&#46;png[/img:321c0kbl][/url:321c0kbl]\n\nregards,\nA.S.K','',0,'GA==','321c0kbl',1,0,'',247,0,0),(40649,8676,6,1104,0,'190.55.55.16',1193837184,1,0,1,1,1,0,'','Problemas con RadioButtons','Hola a todos,\n\nEstoy intentando definir un grupo de RadioButtons pero cuando ejecuto mi programa están los dos Radios seleccionados.\nComo puedo hacer para que solo esté uno solo seleccionado y el otro no.\nCuando selecciono uno el otro debe estar .f. y viceversa.\n\nLo estoy haciendo así:\n\n[code:22om103r]\nDEFINE DIALOG oDlg RESOURCE &quot;CEM44_LIQ_FEC&quot; OF oWnd ICON &quot;ICONO_PPAL&quot;;\n   TITLE &quot;Por favor, seleccione&quot;\n\n   REDEFINE BTNBMP Btn1 ID 200 OF oDlg RESOURCE &quot;ACEPTAR&quot; LEFT;\n      ACTION IfImp&#58;=&#46;t&#46;, oDlg&#58;End&#40;&#41;;\n      TOOLTIP &quot;Aceptar&quot;;\n      PROMPT &quot;Aceptar&quot;\n\n   REDEFINE BTNBMP Btn2 ID 201 OF oDlg RESOURCE &quot;CANCELAR&quot; LEFT;\n      ACTION  oDlg&#58;End&#40;&#41;,L&#58;=0;\n      TOOLTIP &quot;Cancelar y salir&quot;;\n      PROMPT &quot;Cancelar&quot;\n\n   REDEFINE RADIO oTur VAR vTur    ID 100 OF oDlg ON CLICK &#40;Tipo1&#58;=&quot;T&quot;&#41; UPDATE\n   REDEFINE RADIO oTot VAR vTot    ID 101 OF oDlg ON CLICK &#40;Tipo1&#58;=&quot;O&quot;&#41; UPDATE\n   REDEFINE GET oFech1 VAR vFech1  ID 102 OF oDlg PICTURE &quot;@D&quot; VALID&#40;!EMPTY&#40;vFech1&#41;&#41;\n   REDEFINE GET oFech2 VAR vFech2  ID 103 OF oDlg PICTURE &quot;@D&quot; VALID&#40;vFech2&gt;vFech1&#41;\n\nACTIVATE DIALOG oDlg CENTERED\n[/code:22om103r]\n\nProbé poniendo en el workshop los Radio como \"Auto Radio Button\"\nPero no funciona correctamente.\nEl problema es cuando se abre el diálogo los dos Radio Buttons estan en .t.\n\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'AIA=','22om103r',1,0,'',1104,0,0),(40650,8675,3,6,0,'87.16.213.187',1193837636,1,0,1,1,1,1,'','Re: Fivewin 7.10','Replace gtwin.lib with gtgui.lib.\n\nEMG','',0,'AIA=','1pw0kci7',1,0,'',6,0,0),(40651,8675,3,247,0,'83.171.242.103',1193837877,1,0,1,1,1,0,'','Re: Fivewin 7.10','[quote=&quot;EnricoMaria&quot;:27bxq1ab]Replace gtwin.lib with gtgui.lib.\n\nEMG[/quote:27bxq1ab]\n\nThank you Enrico it works.\n\nregards,\nA.S.K','',0,'gA==','27bxq1ab',1,0,'',247,0,0),(40652,8676,6,228,0,'201.244.210.20',1193838384,1,0,1,1,1,1,'','Amigo...','Amigo creo que estan mal definidos los radio button, ya que minimo deben de tener dos opciones para que funcionen:\n\n[code:cadnbv75]\nDEFINE DIALOG oDlg RESOURCE &quot;CEM44_LIQ_FEC&quot; OF oWnd ICON &quot;ICONO_PPAL&quot;; \n   TITLE &quot;Por favor, seleccione&quot; \n\n   REDEFINE BTNBMP Btn1 ID 200 OF oDlg RESOURCE &quot;ACEPTAR&quot; LEFT; \n      ACTION IfImp&#58;=&#46;t&#46;, oDlg&#58;End&#40;&#41;; \n      TOOLTIP &quot;Aceptar&quot;; \n      PROMPT &quot;Aceptar&quot; \n\n   REDEFINE BTNBMP Btn2 ID 201 OF oDlg RESOURCE &quot;CANCELAR&quot; LEFT; \n      ACTION  oDlg&#58;End&#40;&#41;,L&#58;=0; \n      TOOLTIP &quot;Cancelar y salir&quot;; \n      PROMPT &quot;Cancelar&quot; \n\n   REDEFINE RADIO oTur VAR vTur    ID 100,105 OF oDlg ON CLICK &#40;Tipo1&#58;=&quot;T&quot;&#41; UPDATE \n   REDEFINE RADIO oTot VAR vTot    ID 101,106 OF oDlg ON CLICK &#40;Tipo1&#58;=&quot;O&quot;&#41; UPDATE \n   REDEFINE GET oFech1 VAR vFech1  ID 102 OF oDlg PICTURE &quot;@D&quot; VALID&#40;!EMPTY&#40;vFech1&#41;&#41; \n   REDEFINE GET oFech2 VAR vFech2  ID 103 OF oDlg PICTURE &quot;@D&quot; VALID&#40;vFech2&gt;vFech1&#41; \n\nACTIVATE DIALOG oDlg CENTERED\n\n[/code:cadnbv75]\n\nEspero te sirva','',0,'AIA=','cadnbv75',1,0,'',228,0,0),(40653,8676,6,294,0,'201.254.178.104',1193839149,1,0,1,1,1,1,'','','Creo que tendrias que poner algo asi\n[code:1oa98uje]\nDEFINE DIALOG oDlg RESOURCE &quot;CEM44_LIQ_FEC&quot; OF oWnd ICON &quot;ICONO_PPAL&quot;; \n   TITLE &quot;Por favor, seleccione&quot; \n\n   REDEFINE BTNBMP Btn1 ID 200 OF oDlg RESOURCE &quot;ACEPTAR&quot; LEFT; \n      ACTION IfImp&#58;=&#46;t&#46;, oDlg&#58;End&#40;&#41;; \n      TOOLTIP &quot;Aceptar&quot;; \n      PROMPT &quot;Aceptar&quot; \n\n   REDEFINE BTNBMP Btn2 ID 201 OF oDlg RESOURCE &quot;CANCELAR&quot; LEFT; \n      ACTION  oDlg&#58;End&#40;&#41;,L&#58;=0; \n      TOOLTIP &quot;Cancelar y salir&quot;; \n      PROMPT &quot;Cancelar&quot; \n\n   REDEFINE RADIO oTur VAR vTur    ID 100,101 OF oDlg ON CLICK IF&#40;vTur,Tipo1&#58;=&quot;T&quot;,Tipo1&#58;=&quot;O&quot;&#41; UPDATE \n   REDEFINE GET oFech1 VAR vFech1  ID 102 OF oDlg PICTURE &quot;@D&quot; VALID&#40;!EMPTY&#40;vFech1&#41;&#41; \n   REDEFINE GET oFech2 VAR vFech2  ID 103 OF oDlg PICTURE &quot;@D&quot; VALID&#40;vFech2&gt;vFech1&#41; \n\nACTIVATE DIALOG oDlg CENTERED [/code:1oa98uje]\nEspero que te sirva el ejemplo','',0,'AIA=','1oa98uje',1,0,'',294,0,0),(40654,8669,6,54,0,'189.132.92.200',1193839998,1,0,1,1,1,1,'','','[quote=&quot;Frafive&quot;:3pxddyng]Antonio, has compilado el testpdf.prg con la ultima versión de fwh  ? el exe que va en el zip esta compilado con fwh 2.6  y con esta versión funciona perfectamente, el gpf lo da con la última versión de fwh.\n\n\n  La dll es de pago pero merece la pena, mas informacion \n \n  <!-- m --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/\">http://www.utilitywarrior.com/</a><!-- m -->\n\n    un saludo[/quote:3pxddyng]\n\nFrafive,\n\nagrega al prg la siguiente linea.\n\n#include \"hbdll.ch\"\n\nasi debe de funcionar','',0,'gA==','3pxddyng',1,0,'',54,0,0),(40655,8676,6,1104,0,'190.55.55.16',1193840473,1,0,1,1,1,0,'','','Gracias a todos por su ayuda.\n\nYa he logrado solucionarlo con una combinación de las dos ayudas.\nHice como dice \"cmsoft\" pero con la unica diferencia que con el condicional tiraba un error. Solo le saque el condiconal y funcionó perfecto.\n\nQuedó así:\n[code:3qk5rgo1]\n   REDEFINE RADIO oTur VAR vTur    ID 100,101 OF oDlg;\n      ON CLICK Tipo1&#58;=&quot;T&quot;,Tipo1&#58;=&quot;O&quot; UPDATE\n\n[/code:3qk5rgo1]\n\nGracias a todos por su ayuda.\nSaludos, Esteban','',0,'AIA=','3qk5rgo1',1,0,'',1104,0,0),(40656,8677,3,299,0,'24.233.172.101',1193841173,1,0,1,0,1,0,'','TimeStamp data types from xharbour','Hi.\n\nLately I\'ve been wanting to use some \"new\" data types offered by ADT tables.  A classical example is a field of data type \"timestamp\".  But I find that this data type is not available from xharbour.\n\nHow can I write to a timestamp, double, short, etc... data type field of an  ADT table from xharbour?\n\nAny ideas?\n\n\nReinaldo.','',0,'AIA=','1ctdqf8e',1,0,'',299,0,0),(40657,8668,6,396,0,'200.71.186.108',1193844245,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:1m4axd5u][quote=&quot;joseluisysturiz&quot;:1m4axd5u]Si alguien tiene esta clase pero para Harbour...[/quote:1m4axd5u]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=585\">http://www.fivewin.com.br/exibedicas.asp?id=585</a><!-- m -->\n\nPuedes usar sin problemas.\n\nTanbién no necesitas de la libreria. \n\nHARBOUR Y XHARBOUR ÉS LA MISMA COSA. COM ALGUNAS MODIFICACIONES. MAS...[/quote:1m4axd5u]\nGracias Karinha.... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','1m4axd5u',1,0,'',396,0,0),(40658,8674,3,2,0,'87.218.146.201',1193847305,1,0,1,1,1,1,'','','Jeff,\n\nAre you using FWH 7.10 ? Please answer me in an email','',0,'gA==','2nmahi3k',1,0,'',2,0,0),(40659,8677,3,2,0,'87.218.146.201',1193847409,1,0,1,1,1,1,'','','Reinaldo,\n\nWhats the size in bytes and the contents of a timestamp field in ADT ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','36upmi0q',1,0,'',2,0,0),(40660,8678,6,396,0,'200.71.186.108',1193847432,1,0,1,1,1,1,'','Quiero saber si esta PROHIBIDO...Para Antonio','He conseguido muchos recursos y ayuda tanto de colaboradores del foro como de link que algunos han hecho, encontre una pagina que habla de lenguaje C y otros recursos, algunos Pagos y otros gratuitos, lo publique en un TEMA, queria buscar algo alli y no recordaba la pagina, vine al foro a buscar la direccion pero veo que ha sido borrado el tema, quiero saber si esta prohibido hacer estos link o si fue algun problema, para no volver a caer y cometer faltas.gracias...','',0,'gA==','2ryggan2',1,0,'',396,0,0),(40661,8678,6,2,0,'87.218.146.201',1193847513,1,0,1,1,1,1,'','','Jose Luis,\n\nNo está prohibido, lo que está es fuera de tema y por eso lo hemos movido a la sección \"Off Topic\". Búscalo ahí <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','25xx61p7',1,0,'',2,0,0),(40662,8678,6,396,0,'200.71.186.108',1193847953,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1jvz6gug]Jose Luis,\n\nNo está prohibido, lo que está es fuera de tema y por eso lo hemos movido a la sección \"Off Topic\". Búscalo ahí <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1jvz6gug]\nGracias Antonio, eso si es respuesta rapida, parecio una llamada telefonica... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1jvz6gug',1,0,'',396,0,0),(40663,8656,6,1014,0,'201.230.245.63',1193848838,1,0,1,1,1,1,'','','Hola William.\nmuchas gracias por tu info.\nvoy a descargarlo y ver lo que hago\nsaludos\nJorge Vargas','',0,'gA==','37r70rot',1,0,'',1014,0,0),(40664,8668,6,316,0,'213.97.245.163',1193849914,1,0,1,1,1,0,'','Re: BtnGet','[quote=&quot;antonio.ortega&quot;:2nwdv5yo]Está puesta delante de TSBrowse.\n\nGracias.[/quote:2nwdv5yo]\n\nY que pasa si agregas el prg en lugar de la lib?','',0,'gA==','2nwdv5yo',1,0,'',316,0,0),(40665,8679,3,34,0,'68.5.217.82',1193850998,1,0,1,1,1,1,'','Delete not updating ?','Here is a section of code that uses FWH 7.10, xHarbour, tSBrowse, and tData ( data object extension ).  If I click on the delete button, the browse removes the record, moves to the next record, but the edit control is not updating.  I have a feeling I\'m missing something ... just not getting through to my brain right now.  This code is cut from the full function which has some more edit and label controls.\n\nTim\n\nFUNCTION list01\n\n   // Declare LOCAL variables\n   LOCAL oDbl, oEdit, lFirst := .F.\n\n   // Open the labor rate reference database and index\n   oDbl := tdata():new(, \"erflab\" )\n   oDbl:use()\n   oDbl:setorder( \"erflab\" )\n   oDbl:gotop()\n\n      DEFINE DIALOG oDlg RESOURCE \"LISTS\"  OF oWnd TITLE \"Labor Rates\" FONT oWnd:oFont\n\n   // Build the button controls\n   REDEFINE BUTTON ID 107 of oDlg ACTION( IIF( MsgYesNo( \"Do you wish to delete this item ?\"), ( oDBl:delete( ),;\n      oDlg:update()),))  MESSAGE \"Delete the current item\"\n\n.....\n\n   // Build the edit controls\n   REDEFINE GET oEdit VAR oDbl:charge ID 102 OF oDlg PICTURE \"$99999.99\" MESSAGE \"The charge for this service\" UPDATE\n   REDEFINE GET oDbl:servic ID 103 OF oDlg MESSAGE \"A description of the service type\" UPDATE\n\n.....\n\n   // Create the BROWSE control\n   REDEFINE BROWSE  oLbx1 ID 101 OF oDlg ON CHANGE oDlg:update() UPDATE\n   oLbx1:setoDBF( oDbl )\n   add column to oLbx1 header \"Charge\" data oDbl:charge ALIGN 2,1 size 120\n   add column to oLbx1 size 25\n   add column to oLbx1 Header \"Service\" data oDbl:servic ALIGN 0,1 size 400\n\n.....\n\n   // Activate the dialog screen\n   ACTIVATE DIALOG oDlg   \n\n   // Close the file\n   oDbl:close()\n\nRETURN NIL\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','3r6un3r8',1,0,'',34,0,0),(40666,8677,3,41,0,'200.87.167.162',1193853698,1,0,1,1,1,0,'','','Antonio,\n\nfrom ADS help file\n\n[quote:4r58s5z7]\n8-byte value where the high order 4 bytes are an integer containing a Julian date, and the low order 4 bytes are internally stored as the number of milliseconds since midnight. If using the Advantage CA-Visual Objects RDDs, this is a string type.\n[/quote:4r58s5z7]\n\nand, I have interest in MONEY type too, but I get error when I try to assign some value to this field type\n\n[quote:4r58s5z7]\nCurrency data stored internally as a 64-bit integer, with 4 implied decimal digits from -922,337,203,685,477.5807 to +922,337,203,685,477.5807. The Money data type will not lose precision.\n[/quote:4r58s5z7]\n\nObviously this is [x]Harbour issue (ADSRDD), but maybe some body in the forum have some solution <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsaludos\n\nMarcelo\n\n[quote=&quot;Antonio Linares&quot;:4r58s5z7]Reinaldo,\n\nWhats the size in bytes and the contents of a timestamp field in ADT ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:4r58s5z7]','',0,'gA==','4r58s5z7',1,0,'',41,0,0),(40667,8680,3,31,0,'78.56.50.234',1193854112,1,0,1,1,1,1,'','Scripting ...','This question is adressed to Antonio. I know that xHB have \"xHbScript\" . It\'s requirement to have something to FWH , that script will support good FWH things ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> . What you can say , Antonio ? ... Or maybe it\'s any other technique which can support FWH libs ? I\'m asking for that , because it\'s ideas to do own ERP more flexible and , I\'m thinking , scripting with FWH can do this job ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWith best regards ! Rimantas','',0,'gA==','34ehsyft',1,0,'',31,0,0),(40668,8656,6,54,0,'189.132.92.200',1193854966,1,0,1,1,1,1,'','','[quote=&quot;jvargas&quot;:hnxc1vdj]Hola William.\nmuchas gracias por tu info.\nvoy a descargarlo y ver lo que hago\nsaludos\nJorge Vargas[/quote:hnxc1vdj]\n\nPor cualquier duda a:\n\n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->\n\no por messenger en: <!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e -->','',0,'gA==','hnxc1vdj',1,0,'',54,0,0),(40669,8681,6,1104,0,'190.55.55.16',1193855554,1,0,1,1,1,0,'','Pintar Combobox','Hola a todos,\n\nEstoy intentando pintar en el Combobox con un color distinto al predeterminado de windows por sobre de donde está el puntero del mouse.\nNo he encontrado algun método que me permita hacer eso.\nHay alguna forma?\n\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'gA==','24vettcf',1,0,'',1104,0,0),(40670,8682,3,51,0,'80.122.88.242',1193856419,1,0,1,1,1,0,'','xBrowse','Today I tried for the first time the FWH own xBrowse.\nA great piece of software.\n\nRegards,\nOtto','',0,'gA==','zsc36o41',1,0,'',51,0,0),(40671,8679,3,53,0,'189.139.27.227',1193856453,1,0,1,1,1,1,'','','Timm:\n\nI don\'t know TDATA, but.....\n\nPerhaps you need read the new record to fill the bufer.\n\noDbl:Read()\n\njust a tip\n\nRegards','',0,'gA==','1noer7rs',1,0,'',53,0,0),(40672,8679,3,34,0,'68.5.217.82',1193858351,1,0,1,1,1,1,'','Buffer','tData has a load() method ... it makes no difference ...','',0,'gA==','te26rk09',1,0,'',34,0,0),(40673,8677,3,2,0,'87.218.146.96',1193860507,1,0,1,1,1,1,'','','Marcelo,\n\nPlease try this and lets see if the ADS RDD allows it:\n\ntest-&gt;tstamp := L2Bin( 0 ) + L2Bin( 0 )\n\nMsgInfo( test-&gt;tstamp )\n\nwhere tstamp is a timestamp field','',0,'gA==','28v78hiw',1,0,'',2,0,0),(40674,8679,3,343,0,'204.57.111.194',1193863381,1,0,1,1,1,0,'','','I have a varying degrees of success with this subject. \nI think one of the issues is that when you delete the record it is still visible and the msgyesno() function displays a dialog and the when it goes away the browse gets refreshed.\n\nI ended up using a method/function that does the following.\n\n\n[code:3u41826r]\nMETHOD DataDelete\n   local nRecNo, nNewRecNo, lAnswer\n   // store current record before window has a chance to move record pointer\n   nRecno &#58;= &#58;&#58;oDbf&#58;Recno&#40;&#41;\n   // to stop refresh\n   &#58;&#58;oWnd&#58;disable&#40;&#41;\n   lAnswer &#58;= MsgYesNo &#40; &quot;Delete record&#58; Are you sure ?&quot;, &quot;DELETE&quot; &#41;\n   if lAnswer\n      // Get next good record if possible\n      &#58;&#58;oDbf&#58;goto&#40; nRecNo &#41;\n      &#58;&#58;oDbf&#58;skip&#40;&#41;\n      if &#58;&#58;oDbf&#58;eof&#40;&#41;\n         &#58;&#58;oDbf&#58;goto&#40; nRecNo &#41;\n         &#58;&#58;oDbf&#58;skip&#40; -1 &#41;\n      endif\n      nNewRecNo &#58;= &#58;&#58;oDbf&#58;recno&#40;&#41;\n      // Now go back and delete record\n      &#58;&#58;oDbf&#58;goto&#40; nRecNo &#41;\n      &#58;&#58;oDbf&#58;delete&#40;&#41;\n      &#58;&#58;oDbf&#58;unlock&#40;&#41;\n      // go to new record\n      &#58;&#58;oDbf&#58;goto&#40; nNewRecNo &#41;\n   endif\n   // enable window\n   &#58;&#58;oWnd&#58;enable&#40;&#41;\n   sysrefresh&#40;&#41;\n   if lAnswer\n      // There is a question whether to use upstable&#40;&#41; with database object\n      // or use refresh&#40;&#41;&#46; I am using refresh&#40;&#41; with database object\n      //&#58;&#58;oBrw&#58;Upstable&#40;&#41;\n      &#58;&#58;oBrw&#58;Refresh&#40;&#41;\n      &#58;&#58;oBrw&#58;setfocus&#40;&#41;\n   endif\nreturn&#40; nil &#41;\n[/code:3u41826r]','',0,'AIA=','3u41826r',1,0,'',343,0,0),(40675,8674,3,2,0,'87.218.146.65',1193864759,1,0,1,1,1,1,'','','Jeff,\n\nPlease provide me the FTest.h file used in FileTest.c.\n\nAlso, in their example the variable accm is not declared anywhere, unless its inside FTest.h.\n\nPlease ask them about this, thanks','',0,'AIA=','7o1hioap',1,0,'',2,0,0),(40676,8669,6,519,0,'88.22.134.166',1193865968,1,0,1,1,1,0,'','','Gracias , ahora me funciona perfectamente  \n\n\n  un saludo','',0,'AIA=','1qmc19zp',1,0,'',519,0,0),(40677,8682,3,868,0,'210.212.216.67',1193866948,1,0,1,1,1,1,'','','Yes. I love xbrowse. Though I have a short  wishlist','',0,'AIA=','2lipvqg6',1,0,'',868,0,0),(40678,8683,3,868,0,'210.212.216.67',1193867256,1,0,1,1,1,1,'','Error while zooming in RPreview','Mr Antonio\n\nWhen I try to zoom in Rpreview I am getting the following error:\n[code:30k6m2pa]\n   Called from&#58; tobject&#46;prg =&gt; TBAR&#58;ERROR&#40;172&#41;\n   Called from&#58; tobject&#46;prg =&gt; TBAR&#58;MSGNOTFOUND&#40;205&#41;\n   Called from&#58; tobject&#46;prg =&gt; TBAR&#58;CHANGEBITMAP&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; TPREVIEW&#58;ZOOM&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; TPREVIEW&#58;SETORG1&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; &#40;b&#41;TPREVIEW&#58;BUILDWINDOW&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TMETAFILE&#58;LDBLCLICK&#40;1786&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; control&#46;prg =&gt; TMETAFILE&#58;HANDLEEVENT&#40;1362&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3197&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TMDIFRAME&#58;ACTIVATE&#40;895&#41;\n[/code:30k6m2pa]\nI am using FWH 7.10 ( with new libraries for 2007 style menus ).\n\nPlease help','',0,'AIA=','30k6m2pa',1,0,'',868,0,0),(40679,8684,3,51,0,'80.122.88.242',1193868539,1,0,1,1,1,0,'','XBrowse creation – a small helptool','1) Create a xBrowse with all the fields from your database\n\n   FWH-sample testxbr2.prg\nModified:\n\nprg-file-&gt;[url:1x6zc7am]http&#58;//www&#46;atzwanger&#46;com/fw/testxbr&#46;prg[/url:1x6zc7am]  \n   prg- + exe-file -&gt;[url:1x6zc7am]http&#58;//www&#46;atzwanger&#46;com/fw/samples&#46;zip[/url:1x6zc7am]\n\n   oBrw:SetRDD()\n\n   for nFor := 1 to len( oBrw:aCols )\n      oCol := oBrw:aCols[ nFor ]\n      oCol:nEditType := 1\n      oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, FieldPut( o:nCreationOrder, v ), ) }\n   next\n\n2) Start your xBrowser.  Right click to the header and select the columns you will show in your final program. Drag &amp; drop the columns to the order you would like them to display and  resize the columns and rows.  \n\n[img:1x6zc7am]http&#58;//www&#46;atzwanger&#46;com/fw/clipx&#46;jpg[/img:1x6zc7am]\n\n3) Call the the function: f_SaveState(oBrw) which you have to insert into the program which copies a prototype for your [size=150:1x6zc7am]xbrowse  to the clipboard[/size:1x6zc7am].\n\n[color=blue:1x6zc7am]oBrw:nRowHeight := 18\n //  2\noCol := oBrw:AddCol()\noCol:cHeader :=  \"LAST\"\noCol:bStrData :=  { || _FIELD-&gt;LAST}\noCol:nWidth := 146\n //  1\noCol := oBrw:AddCol()\noCol:cHeader :=  \"FIRST\"\noCol:bStrData :=  { || _FIELD-&gt;FIRST}\noCol:nWidth := 146\n...[/color:1x6zc7am]\n\n****************************************************\nfunc  f_SaveState(oBrw)\n****************************************************\n     local oCol\n     local cState\n     local nFor, nLen\n     local cdata\n     local oClp\n\n     nLen   := Len( oBrw:aCols )\n     cState :=    \"oBrw:nRowHeight := \" + Ltrim( Str( oBrw:nRowHeight ) ) +CRLF\n     cState += CRLF\n\n     for nFor := 1 to nLen\n         oCol   := oBrw:aCols[ nFor ]\n\n         if oCol:lHide = .F.                    // show only the visible ones\n\n             cState = cState+ \" //  \" + Ltrim( Str( oCol:nCreationOrder ) ) + CRLF\n\n             cState +=  \'oCol := oBrw:AddCol()\' + CRLF\n             cState +=  \'oCol:cHeader :=  \"\' + oCol:cHeader  +\'\"\'+ CRLF\n             //Todo Check the Field Valuetype\n             cState +=  \"oCol:bStrData :=  { || _FIELD-&gt;\" + oCol:cHeader +\"}\" + CRLF\n             cState +=  \"oCol:nWidth := \" +  Ltrim( str( oCol:nWidth ) )  + CRLF\n             cState +=  CRLF\n         else\n             cState += \"//  \" + Ltrim( Str( oCol:nCreationOrder ) ) + CRLF\n             cState += \"// H  \"    + oCol:cHeader\n\n             cState += CRLF\n         endif\n         if nFor &lt; nLen\n             cState += CRLF\n         endif\n\n     next\n     DEFINE CLIPBOARD oClp OF oWnd\n     oClp:Clear()\n     oClp:SetText( cState )\n\n     msginfo(\"Structure to Clipboard\")\n\n\n\n return cState','',0,'Hg==','1x6zc7am',1,0,'',51,0,0),(40680,8682,3,239,0,'59.42.111.22',1193877228,1,0,1,1,1,0,'','','All our browses changed into xbrowse since 2003 .\n\nThis our modifyed xbrowse:\n  [img:yxh56pi3]http&#58;//www&#46;xtech&#46;com&#46;cn/down/xbrowse&#46;jpg[/img:yxh56pi3]\n[img:yxh56pi3]http&#58;//www&#46;xtech&#46;com&#46;cn/down/xbrowse2&#46;jpg[/img:yxh56pi3]\n\nShuming Wang','',0,'CA==','yxh56pi3',1,1193963265,'',239,1,0),(40681,8685,6,987,0,'189.133.9.35',1193881576,1,0,1,1,1,0,'','Problemas al generar Indices','Saludos a todos los colegas de foro:\n\nHaber si a alguien le ha pasado lo siguiente: <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nLa mayoria de nosotros tenemos en nuestras aplicaciones alguna funcion que permite compactar y regenerar indices y vizualizar el progreso con un meter, antes en 16bits todo trabajaba de maravillas desde una pc en red o en una pc local, ahora con 32bits me genera el siguiente error:\n\nDescripción del Error: \n___________________________________________________\n\nError DBCMD/2001  \nArea de trabajo no usada: ORDCREATE\n\n\nLlamadas al Stack:\n___________________________________________________\n\nLlamado desde ORDCREATE(0)\nLlamado desde METER(1177)\nLlamado desde (b)INDEXA(140)\nLlamado desde (b)TDIALOG:TDIALOG(85)\nLlamado desde TDIALOG:DISPLAY(0)\n\nEstas son las funciones con que trabajo, no se si lo estoy implementando mal o si algo se me esta pasando:\n\n(Asumo que ya estan Compactadas con ZAP las bases de Datos y eliminados los archivos indices..)\n\n//------------------------//\nFUNCTION PackBF()\n\nLOCAL oMeter1, oPackDBase\nLOCAL lSalir:= .F.\n\nDEFINE DIALOG oPackDBase RESOURCE \"OPTIMIZA\" Title \"Organizando Información\" OF oPackDBase \n \noMeter1 = TProgress():Redefine( 200,   oPackDBase )\noPackDBase:lHelpIcon:= .F.\nbDialogTask  := { || Indexa(oMeter1) }\n                     \nACTIVATE DIALOG oPackDBase CENTERED VALID (lSalir) ON PAINT EVAL(bDialogTask)\n\n\nRETURN nil\n\n\n//------------------------//\nSTATIC FUNCTION METER(oMeter)\n\nIF !FILE(\".\\CLIENTES.CDX\")\n        SET UNIQUE OFF     \n        DBUSEAREA(.T., \"DBFCDX\",\".\\CLIENTES.DBF\", \"CLIENTES\",.T.,.F.)\n    IF !NETERR()        \n        SYSREFRESH()\n        PreIndex( oMeter, nRec, \"CLIENTES\" )\n 	INDEX ON STRZERO( IdCliente, 10 )   TAG IdCliente  FOR ! DELETED() EVAL( oMeter:SETPOS( nRec++ ), SYSREFRESH() )   &lt;--(Aki Falla)\n	Postindex(nRec)\n	nRec := 0\n 	\n 	SYSREFRESH()\n 	PreIndex( oMeter, nRec, \"CLIENTES\" )\n 	INDEX ON UPPER(NomClient)           TAG NomClient  FOR ! DELETED() EVAL( oMeter:SETPOS( nRec++ ), SYSREFRESH() )   &lt;--(Aki Falla)\n	Postindex(nRec)\n	nRec := 0\n		\n        DBSELECTAREA(\"CLIENTES\")\n        DBCLOSEAREA(\"CLIENTES\")\n    ENDIF           \nENDIF\n\n//------------------------//\nSTATIC FUNCTION PreIndex( oMeter, nRec, cAlias )\n\n	oMeter:SetRange( 0, (cAlias)-&gt;( LASTREC() ))\n	nRec := 0\n	oMeter:SETPOS(nRec)\n	SYSREFRESH()\n\nRETURN nRec\n\n\n//------------------------//\nSTATIC FUNCTION Postindex(nRec)\n\n	oMeter:SETPOS(nRec++)\n	SYSREFRESH()\n\nRETURN nil\n\nEl fallo se produce en la linea donde esta el comando:\n\nINDEX ON ..\n\nLos Campos de la Base de Datos CLIENTES son:\n\nIdCliente     Numerico   10\nNomClient   Caracter    20\n\nY tambien esta enlazadas las librerias para generar indices DBFCDX\n\nAgradecería toda la ayuda que fuera posible y tambien nuevas propuestas para generar indices..\n\nSaludos..  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','jg7k6iay',1,0,'',987,0,0),(40682,8685,6,396,0,'200.71.188.210',1193885892,1,0,1,1,1,1,'','','Prueba aca con\nINDEX ON STRZERO( clientes-&gt;IdCliente, 10 ) TAG IdCliente FOR ! DELETED() EVAL( oMeter:SETPOS( nRec++ ), SYSREFRESH() ) &lt;--(Aki Falla) \n\nSi tienes varios archivos abiertos debes usar las alias para indicar cual DBF usas, espero te ayude, abajo un ejemplo que uso y nunca me ha dado error, claro no le tengo incorporado METER... pero me genera los CDX sin problemas...saludos\n\n\n SET AUTOPEN OFF // IMPIDE APERTURA AUTOMATICA DE LOS BAG\n\n   IF NETERR() // CONTROL NADIE USE SISTEMA\n      MSGALERT(\"Existen Usuarios en el Sistema,\"+CHR(13)+\"deben Salir todos para Indexar\",\" ATENCIÓN\")\n      RETURN .F.\n   ENDIF\n\n*   FERASE(\"jlinven.cdx\") // PARA BORRAR TODOS LOS .CDX\n\n   USE JLBENEFI NEW                                                            // MAESTRO BENEFICIARIOS - PROVEEDORES\n       INDEX ON jlbenefi-&gt;BEN_CODIGO TAG CODIGO // 1 CODIGO ASCENDENTE\n       INDEX ON jlbenefi-&gt;BEN_NOMBRE TAG NOMBRE // 2 NOMBRE ASCENDENTE\n   CLOSE ALL\n   SET AUTOPEN ON // REACTIVAMOS APERTURA','',0,'CA==','6c49b3m5',1,0,'',396,0,0),(40683,8682,3,868,0,'219.64.121.60',1193892533,1,0,1,1,1,1,'','','Nice\n\nAlmost all my browses are also on xbrowse.\n\nBut I wish someone makses an improvement to provide grouped headers like in tsbrowse','',0,'CA==','320nc6xj',1,0,'',868,0,0),(40684,8686,6,102,0,'87.217.66.15',1193895885,1,0,1,1,1,1,'','Envio emails','Hola foro.\nTengo que hacer una pequeña aplicacion para enviar emails diferidos.\nMe gustaria poder hacerlo de forma que el operador no lo vea en pantalla mientras trabaja en otra cosa.\nAlguien puede darme una idea o un ejemplo si lo tiene ya hecho.\nMuchas gracias','',0,'CA==','2ynu3jhh',1,0,'',102,0,0),(40685,8680,3,2,0,'87.218.146.246',1193898657,1,0,1,1,1,1,'','','Rimantas,\n\nYou may use xHB\'s \"xHbScript\", it works fine with FWH','',0,'CA==','1cm96cij',1,0,'',2,0,0),(40686,8637,6,2,0,'87.218.146.246',1193899190,1,0,1,1,1,1,'','','José,\n\nCon las librerías de FWH 7.10 puedes modificar el menu y darle apariencia de Office 2007, y en un paso siguiente, podrás asignarle los colores que desees','',0,'CA==','26owocxv',1,0,'',2,0,0),(40687,8629,6,2,0,'87.218.146.246',1193899266,1,0,1,1,1,1,'','','Tienes que usar BTNBMP en vez de BUTTON:\n\n@ nRow, nCol BTNBMP oBtn PROMPT \"mi Boton\" ...\n\noBtn:SetColor( ..., ... )','',0,'CA==','15uhuys7',1,0,'',2,0,0),(40688,8679,3,303,0,'72.220.100.171',1193901376,1,0,1,1,1,0,'','','Tim,\n\nTry adding oDbl:skip() right after oDbl:delete(). This will force the record pointer to the next record and reload the buffer.\n\nJames','',0,'CA==','smu8oim9',1,0,'',303,0,0),(40689,8686,6,54,0,'189.132.92.200',1193901409,1,0,1,1,1,1,'','Re: Envio emails','[quote=&quot;jmua&quot;:6g4efay1]Hola foro.\nTengo que hacer una pequeña aplicacion para enviar emails diferidos.\nMe gustaria poder hacerlo de forma que el operador no lo vea en pantalla mientras trabaja en otra cosa.\nAlguien puede darme una idea o un ejemplo si lo tiene ya hecho.\nMuchas gracias[/quote:6g4efay1]\n\njmua,\n\nsi usas xHarbour ultimas versión, podrías usar:\n\nHB_SendMail()\n\nespero te sirva','',0,'gA==','6g4efay1',1,0,'',54,0,0),(40690,8686,6,102,0,'87.217.66.15',1193904276,1,0,1,1,1,1,'','','William.\nTengo el xHarbour que me vino con fwh10 y en la documentacion no encuentro hb_sendmail(), y claro si no conocco la funcion malamanete podre hacer nada.\nAdemas es la primera vez que voy ha hacer esto\nMe lo explicas un poco, tienes un ejemplo\nGracias','',0,'gA==','8tksi4eo',1,0,'',102,0,0),(40691,8686,6,177,0,'194.30.62.6',1193906091,1,0,1,1,1,0,'','','Hola José,\n\nlo tienes también en el CVS de Harbour, en Contrib/Tip.\n\nPero por si no lo tienes, lo puedes descargar de [url:2liqpj2t]http&#58;//www&#46;megaupload&#46;com/es/?d=CD1770KE[/url:2liqpj2t]\n\nSaludos,\n\nFélix','',0,'EA==','2liqpj2t',1,0,'',177,0,0),(40692,8687,3,161,0,'81.83.249.31',1193908160,1,0,1,1,1,0,'','Split browse','Hi,\n \nIs there a posibility to \'split\' a browse?\nNow I have make 2 browse, and the left one is showing the first part, and the right one the rest. It would be nice if it work automatic. So when the select the last row on the left and go down, that the first on the right is selected, and also update he scroll-bar.\n\n[img:h1x78sd6]http&#58;//www&#46;vms&#46;be/FWTest/browse&#46;JPG[/img:h1x78sd6]\n\nThanks,\nMarc','',0,'CA==','h1x78sd6',1,0,'',161,0,0),(40693,8680,3,31,0,'78.56.50.234',1193908615,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1vgyhsbc]Rimantas,\n\nYou may use xHB\'s \"xHbScript\", it works fine with FWH[/quote:1vgyhsbc]\n\n  I know xhbScript . But I have in mind scripts which can work with FWH syntax . As a sample - open dialog with some controls - gets , buttons :\n\n[code:1vgyhsbc]\n#include &quot;FiveWin&#46;ch&quot;\nfunction Main&#40;&#41;\n\n   local oDlg, lExit &#58;= &#46;f&#46;, oBtn\n\n   DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE &quot;A Dialog Box&quot;\n\n   @ 3,  4 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 40, 12\n\n   @ 3, 12 BUTTON oBtn PROMPT &quot;&amp;Cancel&quot; OF oDlg SIZE 40, 12 ;\n      ACTION &#40; MsgInfo&#40; &quot;Cancel&quot; &#41;, lExit &#58;= &#46;t&#46;, oDlg&#58;End&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg VALID lExit\n\nreturn nil\n[/code:1vgyhsbc]\n\n  Will this code work with xHbScript ?\n\n  Regards !','',0,'gIA=','1vgyhsbc',1,0,'',31,0,0),(40694,8680,3,2,0,'87.218.146.65',1193910101,1,0,1,1,1,1,'','','Rimantas,\n\nI have not tested it myself, but it should work ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','2vunhqbb',1,0,'',2,0,0),(40695,8687,3,2,0,'87.218.146.65',1193910657,1,0,1,1,1,1,'','','Marc,\n\nUse oBrowse1:bChange = { || ..., oBrowse2:Refresh() }\n\nwhere in ... you do a DbSeek(), etc.','',0,'gIA=','249n2k9t',1,0,'',2,0,0),(40696,8687,3,161,0,'81.83.249.31',1193913367,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the suggestion. I will give it a try.\n\nMarc','',0,'gIA=','1bpotj9c',1,0,'',161,0,0),(40697,8637,6,439,0,'200.125.50.146',1193914205,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ueqtq6g]José,\n\nCon las librerías de FWH 7.10 puedes modificar el menu y darle apariencia de Office 2007, y en un paso siguiente, podrás asignarle los colores que desees[/quote:1ueqtq6g]\n\nGracias Antonio.\n\nEstoy planeando actualizar para enero próximo, así que es bueno saber que estarán disponibles estas mejoras.','',0,'gA==','1ueqtq6g',1,0,'',439,0,0),(40698,8686,6,102,0,'87.217.66.15',1193915089,1,0,1,1,1,1,'','','Muchas gracias,\nNo tendreis un ejemplo','',0,'gA==','1o4y5byc',1,0,'',102,0,0),(40699,8686,6,2,0,'87.218.146.65',1193921974,1,0,1,1,1,1,'','','HB_SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer,nPriority, lRead, lTrace, lPopAuth)\nWhere:\ncServer -&gt; Required. IP or domain name of the mail server\nnPort -&gt; Optional. Port used my email server\ncFrom -&gt; Required. Email address of the sender\naTo -&gt; Required. Character string or array of email addresses to send the email to\naCC -&gt; Optional. Character string or array of email adresses for CC (Carbon Copy)\naBCC -&gt; Optional. Character string or array of email adresses for BCC (Blind Carbon Copy)\ncBody -&gt; Optional. The body message of the email as text, or the filename of the HTML message to send.\ncSubject -&gt; Optional. Subject of the sending email\naFiles -&gt; Optional. Array of attachments to the email to send\ncUser -&gt; Required. User name for the POP3 server\ncPass -&gt; Required. Password for cUser\ncPopServer -&gt; Requered. IP or domain name of the pop3 mail server\nnPriority -&gt; Optional. Email priority: 1=High, 3=Normal (Standard), 5=Low\nlRead -&gt; Optional. If set to .T., a confirmation request is send. Standard setting is .F.\nlTrace -&gt; Optional. If set to .T., a log file is created (sendmail&lt;nNr&gt;.log). Standard setting is .F.\nlPopAuth -&gt; Optional. Flag to indicate that pop3 autentication is used. Standard setting is .T.','',0,'gA==','lw2tufc7',1,0,'',2,0,0),(40700,8688,6,439,0,'200.125.50.146',1193922833,1,0,1,1,1,1,'','Necesito dormir más?','Vean este sencillo trozo de código....\n\nEs necesario en la base 3 eliminar todos los registros que esten repetidos\nes decir si se repiten registros con un mismo campo5, todos se eliminan (no queda ninguno con ese numero) donde base3-&gt;campo5 es un campo de texto de 40 caracteres que contiene un numero.\n\nSe corre el proceso sobre la base (que tiene repeticiones) y no hace nada.\n\n[code:4j9g2gi4]\nFUNCTION Main&#40;&#41;\n	LOCAL wdotant&#58;=&quot;&quot;\n	SET AUTOPEN OFF\n	SET DELETED OFF\n	USE BASE3 EXCLUSIVE\n	IF File&#40;&quot;TMP&#46;CDX&quot;&#41;\n		ERASE &quot;TMP&#46;CDX&quot;\n	ENDIF\n	INDEX ON Campo5 TO TMP\n	GO TOP\n	wdotant = BASE3-&gt;Campo5\n	SKIP\n	WHILE ! Eof&#40;&#41;\n		IF BASE3-&gt;Campo5 = wdotant\n			SKIP -1\n			DO WHILE BASE3-&gt;Campo5 = wdotant\n				DELETE\n				SKIP 1\n			ENDDO\n		ENDIF\n		wdotn = BASE3-&gt;Campo5\n		SKIP\n	ENDDO\n	PACK\nRETURN NIL\n[/code:4j9g2gi4]\n\nAqui les dejo el prg y la base:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?3mml0o1mntd\">http://www.mediafire.com/?3mml0o1mntd</a><!-- m -->','',0,'AIA=','4j9g2gi4',1,1193929827,'',439,1,0),(40701,8688,6,439,0,'200.125.50.146',1193924047,1,0,1,1,1,1,'','','Cada vez más comienzo a pensar que debo dormir más.\n\nReemplacé algunos comandos por sus funciones y sigo igual.....\n\n[code:16xeqs6g]FUNCTION Main&#40;&#41;\n	LOCAL wdotant&#58;=&quot;&quot;\n	SET AUTOPEN OFF\n	SET DELETED OFF\n	USE BASE3 EXCLUSIVE\n	IF File&#40;&quot;TMP&#46;CDX&quot;&#41;\n		ERASE &quot;TMP&#46;CDX&quot;\n	ENDIF\n	INDEX ON Campo5 TO TMP\n	GO TOP\n	wdotant = BASE3-&gt;Campo5\n	DbSkip&#40;&#41;\n	WHILE ! Eof&#40;&#41;\n		IF BASE3-&gt;Campo5 = wdotant\n			DbSkip&#40;-1&#41;\n			WHILE BASE3-&gt;Campo5 = wdotant\n				DbDelete&#40;&#41;\n				DbSkip&#40;&#41;\n			ENDDO\n		ENDIF\n		wdotn = BASE3-&gt;Campo5\n		DbSkip&#40;&#41;\n	ENDDO\n	PACK\nRETURN NIL[/code:16xeqs6g]','',0,'AIA=','16xeqs6g',1,0,'',439,0,0),(40702,8681,6,582,0,'200.117.112.141',1193925568,1,0,1,1,1,0,'','Re: Pintar Combobox','[quote=&quot;jrestojeda&quot;:2siqqgit]Hola a todos,\n\nEstoy intentando pintar en el Combobox con un color distinto al predeterminado de windows por sobre de donde está el puntero del mouse.\nNo he encontrado algun método que me permita hacer eso.\nHay alguna forma?\n\nDesde ya muchas gracias.\nSaludos, Esteban[/quote:2siqqgit]\nProbaste con oComboBox:SetColor()   ???\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','2siqqgit',1,0,'',582,0,0),(40703,8680,3,303,0,'72.220.100.171',1193926430,1,0,1,1,1,0,'','','Rimantas,\n\nI\'m just curious, where are you going with this? What is the advantage to using script insead of code?\n\nJames','',0,'gA==','1fcral93',1,0,'',303,0,0),(40704,8688,6,294,0,'201.254.184.172',1193928414,1,0,1,1,1,1,'','','Proba asi\n[code:39kcsxyl]\nFUNCTION Main&#40;&#41; \n   LOCAL wdotant&#58;=&quot;&quot; \n   SET AUTOPEN OFF \n   SET DELETED OFF \n   USE BASE3 EXCLUSIVE \n   IF File&#40;&quot;TMP&#46;CDX&quot;&#41; \n      ERASE &quot;TMP&#46;CDX&quot; \n   ENDIF \n   INDEX ON Campo5 TO TMP \n   SET INDEX TO TMP  // Agrega esta linea\n   GO TOP \n   wdotant = BASE3-&gt;Campo5 \n   DbSkip&#40;&#41; \n   WHILE ! Eof&#40;&#41; \n      IF BASE3-&gt;Campo5 = wdotant \n         DbSkip&#40;-1&#41; \n         WHILE BASE3-&gt;Campo5 = wdotant \n            DbDelete&#40;&#41; \n            DbSkip&#40;&#41; \n         ENDDO \n      ENDIF \n      wdotn = BASE3-&gt;Campo5 \n      DbSkip&#40;&#41; \n   ENDDO \n   PACK \nRETURN NIL\n[/code:39kcsxyl]','',0,'AIA=','39kcsxyl',1,0,'',294,0,0),(40705,8688,6,492,0,'189.147.71.87',1193928561,1,0,1,1,1,1,'','','Hola Jose\n\nDefinitivamente debes descansar un poco mas  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->    <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nPrueba asi :\n\n[code:xfh1j2nf]	IF File&#40;&quot;TMP&#46;CDX&quot;&#41;\n		ERASE &quot;TMP&#46;CDX&quot;\n	ENDIF\n	INDEX ON BASE3-&gt;Campo5 TO TMP\n	GO TOP\n	wdotant &#58;= AllTrim&#40; BASE3-&gt;Campo5 &#41;\n	SKIP\n	WHILE ! Eof&#40;&#41;\n		DO WHILE AllTrim&#40; BASE3-&gt;Campo5 &#41; == wdotant\n			DELETE\n			SKIP 1\n		ENDDO\n		wdotant &#58;= AllTrim&#40; BASE3-&gt;Campo5 &#41;\n		SKIP\n	ENDDO\n	PACK\n[/code:xfh1j2nf]\n\nEstas usando \"otra\" variable al momente de reasignar el valor del campo, ahi es donde se pierde la validacion.\n\nSaludos','',0,'AIA=','xfh1j2nf',1,0,'',492,0,0),(40706,8688,6,439,0,'200.125.50.146',1193928591,1,0,1,1,1,1,'','','[quote=&quot;cmsoft&quot;:qde6bng0]Proba asi\n[code:qde6bng0]\nFUNCTION Main&#40;&#41; \n   LOCAL wdotant&#58;=&quot;&quot; \n   SET AUTOPEN OFF \n   SET DELETED OFF \n   USE BASE3 EXCLUSIVE \n   IF File&#40;&quot;TMP&#46;CDX&quot;&#41; \n      ERASE &quot;TMP&#46;CDX&quot; \n   ENDIF \n   INDEX ON Campo5 TO TMP \n   SET INDEX TO TMP  // Agrega esta linea\n   GO TOP \n   wdotant = BASE3-&gt;Campo5 \n   DbSkip&#40;&#41; \n   WHILE ! Eof&#40;&#41; \n      IF BASE3-&gt;Campo5 = wdotant \n         DbSkip&#40;-1&#41; \n         WHILE BASE3-&gt;Campo5 = wdotant \n            DbDelete&#40;&#41; \n            DbSkip&#40;&#41; \n         ENDDO \n      ENDIF \n      wdotn = BASE3-&gt;Campo5 \n      DbSkip&#40;&#41; \n   ENDDO \n   PACK \nRETURN NIL\n[/code:qde6bng0][/quote:qde6bng0]\n\nGracias por tu ayuda amigo, pero es obvio que necesito dormir más, el problema es que la variable wdotant no cambia porque actualizo wdotn por error.\n\nMe voy a dormir una siesta, la necesito.','',0,'gIA=','qde6bng0',1,0,'',439,0,0),(40707,8688,6,439,0,'200.125.50.146',1193928783,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:1wrv0i9n]Hola Jose\n\nDefinitivamente debes descansar un poco mas  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->    <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\nPrueba asi :\n\n[code:1wrv0i9n]	IF File&#40;&quot;TMP&#46;CDX&quot;&#41;\n		ERASE &quot;TMP&#46;CDX&quot;\n	ENDIF\n	INDEX ON BASE3-&gt;Campo5 TO TMP\n	GO TOP\n	wdotant &#58;= AllTrim&#40; BASE3-&gt;Campo5 &#41;\n	SKIP\n	WHILE ! Eof&#40;&#41;\n		DO WHILE AllTrim&#40; BASE3-&gt;Campo5 &#41; == wdotant\n			DELETE\n			SKIP 1\n		ENDDO\n		wdotant &#58;= AllTrim&#40; BASE3-&gt;Campo5 &#41;\n		SKIP\n	ENDDO\n	PACK\n[/code:1wrv0i9n]\n\nEstas usando \"otra\" variable al momente de reasignar el valor del campo, ahi es donde se pierde la validacion.\n\nSaludos[/quote:1wrv0i9n]\n\nGracias amigo, increíblemente acababa de darme cuenta y posteamos al mismo momento.\n\nEs bueno contar con nuestros amigos....\n(especialmente cuando dormimos poco  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  )','',0,'gIA=','1wrv0i9n',1,0,'',439,0,0),(40708,8688,6,362,0,'200.158.19.199',1193929197,1,0,1,1,1,1,'','','#Include \"Fivewin.Ch\"\n[code:f5u7s5j5]\nFUNCTION MAIN&#40;&#41;\n\n    FIELD CAMPO5\n\n    LOCAL WDOTANT &#58;= &quot;&quot;\n\n    SET AUTOPEN OFF\n    SET DELETED OFF\n\n    USE BASE3 ALIAS BASE3 EXCLUSIVE NEW\n\n    IF FILE&#40;&quot;TMP&#46;CDX&quot;&#41;\n        ERASE &quot;TMP&#46;CDX&quot;\n    ENDIF\n\n    INDEX ON CAMPO5 TO TMP\n\n    GO TOP\n\n    WDOTANT = BASE3-&gt;CAMPO5\n\n    SKIP\n\n    //-&gt;  10011171 solo debes borrar uno registro -&gt; Este&#58; 10011171 del CAMPO5\n    ? WDOTANT\n\n    DBSEEK&#40; WDOTANT &#41;\n\n    BROWSE&#40;&#41;\n\n    WHILE ! EOF&#40;&#41;\n\n        SYSREFRESH&#40;&#41;\n\n        IF EOF&#40;&#41;\n            EXIT\n        ENDIF\n\n        IF BASE3-&gt;CAMPO5 = WDOTANT\n\n            SKIP -1\n\n            WHILE BASE3-&gt;CAMPO5 = WDOTANT\n\n                SYSREFRESH&#40;&#41;\n\n                DELETE\n\n                SKIP\n\n            ENDDO\n\n        ENDIF\n\n        WDOTANT &#58;= BASE3-&gt;CAMPO5\n\n        SKIP\n\n    ENDDO\n\n    //PACK\n\n    RELEASE ALL\n    DBCLOSEALL&#40;&#41;\n\nRETURN NIL\n[/code:f5u7s5j5]\n//-&gt; FIN\n\nRegards, saludos.','',0,'AIA=','f5u7s5j5',1,0,'',362,0,0),(40709,8686,6,92,0,'213.98.203.150',1193929274,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:6m582lps]HB_SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer,nPriority, lRead, lTrace, lPopAuth)\nWhere:\ncServer -&gt; Required. IP or domain name of the mail server\nnPort -&gt; Optional. Port used my email server\ncFrom -&gt; Required. Email address of the sender\naTo -&gt; Required. Character string or array of email addresses to send the email to\naCC -&gt; Optional. Character string or array of email adresses for CC (Carbon Copy)\naBCC -&gt; Optional. Character string or array of email adresses for BCC (Blind Carbon Copy)\ncBody -&gt; Optional. The body message of the email as text, or the filename of the HTML message to send.\ncSubject -&gt; Optional. Subject of the sending email\naFiles -&gt; Optional. Array of attachments to the email to send\ncUser -&gt; Required. User name for the POP3 server\ncPass -&gt; Required. Password for cUser\ncPopServer -&gt; Requered. IP or domain name of the pop3 mail server\nnPriority -&gt; Optional. Email priority: 1=High, 3=Normal (Standard), 5=Low\nlRead -&gt; Optional. If set to .T., a confirmation request is send. Standard setting is .F.\nlTrace -&gt; Optional. If set to .T., a log file is created (sendmail&lt;nNr&gt;.log). Standard setting is .F.\nlPopAuth -&gt; Optional. Flag to indicate that pop3 autentication is used. Standard setting is .T.[/quote:6m582lps]\n\nY bajo Harbour, no existe esta posibilidad?\n\nSaludos\nCarlos G.','',0,'gA==','6m582lps',1,0,'',92,0,0),(40710,8689,6,975,0,'200.21.137.146',1193929949,1,0,1,1,1,0,'','error en append from','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> Estamos abriendo una tabla temporal que se llama tempava.dbf, donde queremos sumarle ciertos registros que cumplan una condicion dada, pero nos sale error. Así es la línea que hacemos.\n\nuse tempava.dbf\nappend from avaluo1.dbf for codigo=codip02\n\n\nestamos utilizando fwh 7.01\n\nGracias;','',0,'gA==','19fi3ac0',1,0,'',975,0,0),(40711,8689,6,362,0,'200.158.19.199',1193930918,1,0,1,1,1,1,'','','Intente:\n\nuse tempava alias tempava exclusive new\n\nappend from avaluo1  for codigo=codip02','',0,'gA==','1saxr6na',1,0,'',362,0,0),(40712,8690,6,644,0,'200.82.29.213',1193931559,1,0,1,1,1,0,'','crear tabla en MySql','He podido conectarme con el servidor sin problemas mediante ado. Pero al momento de crear una tabla me da error. Esta es la cadena del comando:\n\noCn : Execute( \"create table alumnos( codigo int( 10 ) default 0 primary key auto_increment, nombre varchar(30), fecha_nacimiento varchar(15), Importe decimal( 10, 2 ) Default 0.00 ) TYPE=InnoDB \", \"CREATE\" )\n\nSin embargo si la creo sin la sentencia \"primary key auto_increment\" el comando funciona. Alguien tiene alguna punta sobre este asunto. Desde ya muchas gracias','',0,'gA==','3imioyia',1,0,'',644,0,0),(40713,8674,3,69,0,'206.210.100.104',1193932706,1,0,1,1,1,1,'','','Antonio,\n\nIt has been sent to your email.','',0,'gA==','1o4ouz3o',1,0,'',69,0,0),(40714,8677,3,41,0,'200.87.162.67',1193933360,1,0,1,1,1,0,'','','Antonio,\n\nI tryed, but a get ADSADT/1020 Data type error on the assign command, maybe we need to move the question to the [x]Harbor develop team\n\ngracias\n\nMarcelo\n\n[quote=&quot;Antonio Linares&quot;:2zf2anbn]Marcelo,\n\nPlease try this and lets see if the ADS RDD allows it:\n\ntest-&gt;tstamp := L2Bin( 0 ) + L2Bin( 0 )\n\nMsgInfo( test-&gt;tstamp )\n\nwhere tstamp is a timestamp field[/quote:2zf2anbn]','',0,'gA==','2zf2anbn',1,0,'',41,0,0),(40715,8685,6,987,0,'189.132.10.52',1193936260,1,0,1,1,1,0,'','','[b:3aqfar5w]joseluisysturiz:[/b:3aqfar5w]\n\n\nSaludos desde México <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , y agradesco por su respusta, le comento que el procedimiento lo realizo con varias bases de datos, a los cuales les asigno un alias correspondiente, de todas maneras pruebo la sugerencia que me da y comento como me fue.. \n\nGracias.. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->\n\nI.S.C. Víctor Daniel Cuatécatl León','',0,'QA==','3aqfar5w',1,0,'',987,0,0),(40716,8680,3,31,0,'78.56.50.234',1193936701,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:9sk6ghw3]\nI\'m just curious, where are you going with this? What is the advantage to using script insead of code?\n[/quote:9sk6ghw3]\n\n   Hello James ,\n\n  At first I want to to specify , that I\'m talking about separate prgs as scripts ... It can be prg as script can run , or xbs , ppo files as they are supported from xharbour.com ... \n\n  Exist many places where the scripts are better than code . One of the best place to fit scripts are reports ... Today I\'m addidng code inside exe for any report . I\'m thinking that this can be changed in other way - put prg\'s or ppo\'s files in special directory , from main program in report menu ( generated from DBF ,which contain list of reports ) call needful report = script ... With database it\'s all working OK . But at the beggining of report I\'m calling dialog/window in which user direct needfulls parameters for report . Of course , all the code is with FWH ... \n \n   I begin from reports , because this place must be very flexible - at the begining of new project users don\'t know possibilities of programmer and programmer can\'t to see future - what users will ask ... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> . So , in mine mind , directory with prg\'s or precompiled ppo\'s ,  maybe xbs\'s , files it\'s the easiest way to manage such things . Now , I\'m adding code , rebuilding exe , and then placing the new exe remotely in users servers . I\'m thinkig that remotely to do new prg file or modify old its more easy ... \n\n  Antonio , sorry , but xbScript don\'t support FWH syntax . I renamed dlg.prg to dlg.xbs and tried to open that . It return error dialog with \"compilation error\" message ... <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> Maybe it\'s working and I don\'t know how to to run that . \n\nSo I\'m asking you , that maybe something similar  exist in FWH or xHarbour ...\n  \n   Regards , Rimantas','',0,'gA==','9sk6ghw3',1,0,'',31,0,0),(40717,8657,12,179,0,'200.24.221.138',1193936763,1,0,1,1,1,1,'','','Antonio, obtengo el mism oresultado, no te preocupes no es de apuro cuando puedas me ayudas \ngracias x todo\n\natt','',0,'gA==','vf27iuhv',1,0,'',179,0,0),(40718,8637,6,492,0,'189.147.71.87',1193937899,1,0,1,1,1,1,'','','Antonio :\n\n- Y sera posible tambien hacer un poco mas \"grandes\" las opciones ??\nLos bmps 16X16 estan muy chicos\n\n- Cambiar la combinacion de color\n\n- Cambiar el Font\n\n\nSaludos','',0,'gA==','34q8sll6',1,0,'',492,0,0),(40719,8691,6,935,0,'200.62.123.43',1193938198,1,0,1,1,1,1,'','Ayuda con seleccion de impresora','Hola amigos del foro,\n\nTengo una aplicacion que emite facturas a una impresora matricial y el reporte de facturas y demas reportes del dia en una impresora lasser, para alternar entre una y otra le puse el FROM USER a la emision de facturas ya que el resto de rportes se imprimen en lasser , el problema es que cuando se imprime una factura y se selecciona la matricial queda pillada esa configuracion, como hacer para que se use la matricial y despues quede la laser por defecto ?\n\nDesde ya gracias a todos, por su desinteresada colaboracion,\n\nSaludes','',0,'gA==','urwwmn2a',1,0,'',935,0,0),(40720,8690,6,940,0,'189.128.112.106',1193938760,1,0,1,1,1,1,'','','Prueba cambiando el primary key al final ,\n\n\n\ncQry := \"CREATE TABLA IF NOT EXISTS ALUMNOS ( \" \n\ncQry += \"codigo      INT(10) DEFAULT 0, \"\n\ncQry += \"nombre    VARCHAR(30) NOT NULL,\"\n\ncQry += \"auto  INT NOT NULL AUTO_INCREMENT,\"\n\ncQry += \"PRIMARY KEY (codigo))\"\n\ncQry += \"ENGINE = INNODB\"\n\noCn:Execute( cQry )\n\n\nSaludos Cordiales..','',0,'gA==','ov1su6ga',1,0,'',940,0,0),(40721,8691,6,940,0,'189.128.112.106',1193939319,1,0,1,1,1,1,'','','El truco esta en que la facturacion la envies,,\n\n\ndirecto a la matriz,,\n\nlocal aModelos := { \'\\\\Servidor\\Lexmark 4200 Series\', \'PaperlessPrinter\' }\n\nPRINT oPrn TITLE cTitulo TO alltrim( aModelos[1] )\n\n\ny la laser la pongas como impresora predeterminada  desde windows,\n\n\nsaludos...','',0,'','387cwky8',1,0,'',940,0,0),(40722,8692,7,1078,0,'200.206.139.121',1193939895,1,0,1,1,1,0,'','exemplo MAKE','Alguem\nteria um exemplo usando HBMAKE com fwppc ???\nou outro make \ncom mais de 2 fontes de programa ?????????\n\ntest1.prg\ntest2.prg','',0,'','304uqs5b',1,0,'',1078,0,0),(40723,8686,6,102,0,'87.217.67.91',1193941439,1,0,1,1,1,1,'','','Gracias a todos.\nLo probare y ya dire algo','',0,'','608rd9jo',1,0,'',102,0,0),(40724,8681,6,1104,0,'190.51.113.13',1193944330,1,0,1,1,1,0,'','','Hola,\n\nSi he probado pero pinta todo el combobox completo, yo necesito que pinte solo donde esta el puntero del mouse.\n\nMuchas gracias\nSaludos, Esteban','',0,'','gdqbhy5w',1,0,'',1104,0,0),(40725,8690,6,496,0,'157.100.180.226',1193946374,1,0,1,1,1,0,'','','Prueba a quitarle el default 0\n\nasí:\n\noCn : Execute( \"create table alumnos( codigo int( 10 ) primary key auto_increment, nombre varchar(30), fecha_nacimiento varchar(15), Importe decimal( 10, 2 ) Default 0.00 ) TYPE=InnoDB \", \"CREATE\" ) \n\nUn Saludo\n\nMarcelo Jingo','',0,'','8ng2vmmq',1,0,'',496,0,0),(40726,8658,6,439,0,'200.125.50.146',1193947431,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:3myj5dda]Sube a algun servidor de descargar la rutina con la dbf a ver que podemos hacer, se que encontraremos respuesta logica, la pregunta de las mil lochas, te sucede eso en todas las DBF o solo los que usa esa rutina..?[/quote:3myj5dda]\n\nEsta rutina usa exclusivamente estas dos bases.\n\nAdjunto ahora un zip con un pequeño ejemplo que reproduce el error, utilicé y puse la rutina de apertura de archivos para que no haya dudas cuando revisen el código.\n\nAl compilarla da el mismo error 1025.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?dbafynn2nyb\">http://www.mediafire.com/?dbafynn2nyb</a><!-- m -->\n\nApreciaré cualquier ayuda, y sobre todo espero no sea otra de esas tonterías que uno no ve por cansancio o sino me voy a tener que internar en terapia de sueño. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nGracias desde ya por todo el apoyo que me han dado <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3myj5dda',1,0,'',439,0,0),(40727,8679,3,34,0,'68.5.217.82',1193948061,1,0,1,1,1,1,'','Skip','I just did that ( prior to your post, but after thinking about Gale\'s post) and it does indeed force the two records ( browse and data object ) to match up.  I\'m thinking perhaps this is a problem in TSBrowse as it currently stands.\n\nThe oDbf:skip() does work and I can add it throughout the code.\n\nThanks <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1qsd6p5q',1,0,'',34,0,0),(40728,8680,3,2,0,'87.218.146.65',1193952412,1,0,1,1,1,1,'','','Rimantas,\n\nI just forgot this: Harbour natively supports dynamic scripting! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> There is no need for you to use a third party scripting tool! \n\nYou create a HRB file on runtime and execute it from the application, so there is no limitations at all and you can execute any Harbour code <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLet me find some samples for you.\n\nJames, runtime scripting is an incredible powerfull feature, that allows to have full data driven support in your applications <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Its the foundation of ERP applications','',0,'gA==','2jgx1kzg',1,0,'',2,0,0),(40729,8677,3,2,0,'87.218.146.65',1193952562,1,0,1,1,1,1,'','','Marcelo,\n\n&gt;\nI tryed, but a get ADSADT/1020 Data type error on the assign command, maybe we need to move the question to the [x]Harbour develop team \n&gt;\n\nYes, it looks as a RDD limitation','',0,'','3rqgp16i',1,0,'',2,0,0),(40730,8686,6,2,0,'87.218.146.65',1193952775,1,0,1,1,1,1,'','','Carlos,\n\nHabrá que tomar el módulo de xHarbour y compilarlo en Harbour','',0,'','2bno8pod',1,0,'',2,0,0),(40731,8688,6,73,0,'200.23.18.132',1193953525,1,0,1,1,1,0,'','','jose,\nyo lo haria asi\n\nlocal aCampo := {}, nPos\n\nuse base3 new exclusive\nbase3-&gt;(dbgotop())\ndo while !base3-&gt;(Eof())\n   nPos := 0\n   if ( nPos := Ascan( aCampo , base3-&gt;campo5 ) ) &lt;&gt; 0\n      base3-&gt;(dbdelete())\n   else\n      AADD(aCampo, base3-&gt;campo5)\n   endif\n   base3-&gt;(dbskip())\nenddo\nbase3-&gt;(dbpack())\nuse\n\n\nsalu2\npaco','',0,'','tqvzadzk',1,0,'',73,0,0),(40732,8664,6,255,0,'201.122.36.212',1193953745,1,0,1,1,1,1,'','Re: Excelente...','[quote=&quot;leandro&quot;:3r2zuqag]Amigazo Willi y Juan Carlos muchas gracias me esta funcionando de maravilla. Solo tengo una petición mas, seria posible que se incluyera la forma de crear eejcutables para FWPPC. ¿no se si tecnicamente sea posible?\n\nUn saludo[/quote:3r2zuqag]\n\n\n\nClaro que es posible.... ya lo revisaremos...','',0,'gA==','3r2zuqag',1,0,'',255,0,0),(40733,8690,6,644,0,'200.82.34.22',1193953813,1,0,1,1,1,0,'','','Cesar, Marcelo muchas gracias por las respuestas. He probado las dos soluciones que me propusieron pero no funcionan ( por lo menos en mi servidor ). Estoy utilizando MySql 5.0. MI pregunta si esta secuencia de comandos soporta estas instrucciones ( primary key, foreign key, etc. ). No sé si hay otra manera de hacerlo. Seguiré investigando','',0,'gA==','318ct42e',1,0,'',644,0,0),(40734,8693,6,255,0,'201.122.36.212',1193953828,1,0,1,1,1,1,'','Verce 5.1','Disponible desde ya !!!!\n\nChequen en:\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/index.htm\">http://incos.sytes.net/fivewin/index.htm</a><!-- m -->\n\nSaludos cordiales','',0,'gA==','1ds08vdq',1,0,'',255,0,0),(40735,8691,6,935,0,'200.62.120.187',1193956332,1,0,1,1,1,1,'','ok, probare','Gracias Cesar, probare como me indicas\n\nSaludes','',0,'gA==','1e9b5wvh',1,0,'',935,0,0),(40736,8658,6,78,0,'190.43.177.55',1193961998,1,0,1,1,1,0,'','Solucionado','El error esta al abrir las DBFs, pueba asi: \n\n#include \"Fivewin.ch\"\n\nFUNCTION MAIN()\n	LOCAL nCta, wMonto, wFecha_ven\n	REQUEST DBFCDX\n	RddSetDefault(\"DBFCDX\")\n	nCta=\"1212\"\n	wmonto=120\n	wFecha_Ven=Ctod(\"20/01/2006\")\n	CreoIndices()\n	ModCta( ncta, wmonto, wFecha_Ven )\nRETURN NIL\n\n\nFunction ModCta( ncta, wmonto, wfecha_ven )\nlocal nSaldo	//1-Actualizo saldo en bancos.dbf\n	MsgInfo(wmonto)\n	IF wmonto = 0\n		RETURN nil\n	ENDIF\n	//IF !AbroDbf( .T., \"DBFCDX\", \"BANCOS\", \"BANCOS\", \"i_ban\")\n	//	MsgInfo(\"No fu posible verificar cuenta\" + CRLF + \"Base de datos no disponible\")\n//		RETURN .F.\n	//ENDIF\n	USE BANCOS ALIAS BANCOS SHARED NEW\n	SET INDEX TO BANCOS\n	If FLOCK()\n	   browse()\n	EndIf\n	BANCOS-&gt;( DbSeek(ncta, .f.) )\n	IF BANCOS-&gt;( Found() )\n//		DO WHILE .T.\n//			IF BANCOS-&gt;( DbRLock() )\n			        nSaldo := BANCOS-&gt;saldo + wmonto\n			        ? _field-&gt;saldo\n				_field-&gt;saldo := nSaldo\n				BANCOS-&gt;( DbCommit() )\n				BANCOS-&gt;( DbUnlock() )\n//				EXIT\n//			ENDIF\n//		ENDDO\n	ENDIF\n	BANCOS-&gt;( DbCloseArea() )\n	//2-Cargo el monto de movimientos en el saldo de la fecha correspondiente en saldos.dbf\n//	IF !AbroDbf( .T., \"DBFCDX\", \"SALDOS\", \"SALDOS\", \"i_Saldos\")\n//		MsgInfo(\"No fu posible verificar cuenta\" + CRLF + \"Base de datos no disponible\")\n//		RETURN .F.\n//	ENDIF\n\n	USE SALDOS ALIAS SALDOS SHARED NEW\n	SET INDEX TO SALDOS\n\n	SALDOS-&gt;( DbSeek( ncta+Dtos(wfecha_ven), .t. ) ) //softseek\n	IF ! SALDOS-&gt;( Eof() ) .and. SALDOS-&gt;cta = ncta .and. SALDOS-&gt;fecha = wfecha_ven\n		DO WHILE  .t.\n			IF SALDOS-&gt;( DbRLock() )\n				REPLACE SALDOS-&gt;saldo WITH SALDOS-&gt;saldo + wmonto\n				SALDOS-&gt;( DbCommit() )\n				SALDOS-&gt;( DbUnlock() )\n				EXIT\n			ENDIF\n		ENDDO\n	ELSE\n		SALDOS-&gt;( DbSkip( -1 ) )\n		IF ! SALDOS-&gt;( Bof() ) .and. SALDOS-&gt;cta = ncta\n			sald_ant = SALDOS-&gt;saldo\n			DO WHILE .t.\n				IF SALDOS-&gt; ( DbRLock() )\n					SALDOS-&gt;( DbAppend() )\n					IF ! SALDOS-&gt;( Neterr() )\n						REPLACE SALDOS-&gt;cta   WITH ncta\n						REPLACE SALDOS-&gt;fecha WITH wfecha\n						REPLACE SALDOS-&gt;saldo WITH sald_ant+wmonto\n						SALDOS-&gt;( DBCommit() )\n						SALDOS-&gt;( DbUnlock() )\n						EXIT\n					ENDIF\n				ENDIF\n			ENDDO\n		ELSE\n			DO WHILE .t.\n				SALDOS-&gt;( DbAppend() )\n				IF ! SALDOS-&gt;( Neterr() )\n					REPLACE SALDOS-&gt;cta   WITH ncta\n					REPLACE SALDOS-&gt;fecha WITH wfecha_ven\n					REPLACE SALDOS-&gt;saldo WITH wmonto\n					SALDOS-&gt;( DbCommit() )\n					SALDOS-&gt;( DBUnlock() )\n					EXIT\n				ENDIF\n			ENDDO\n		ENDIF\n	ENDIF\n	//3-Actualizo todos los saldos de la cuenta desde la fecha del movimiento incrementndolos\n	//en ese monto (siempre en saldos.dbf).\n	SALDOS-&gt;( DbSkip() )\n	DO WHILE ! SALDOS-&gt;( Eof() ) .and. SALDOS-&gt;cta = ncta\n		DO WHILE .t.\n			IF SALDOS-&gt;( DbRLock() )\n				REPLACE SALDOS-&gt;saldo WITH SALDOS-&gt;saldo + wmonto\n				SALDOS-&gt;( DbCommit() )\n				SALDOS-&gt;( DBUnlock() )\n				EXIT\n			ENDIF\n		ENDDO\n		SALDOS-&gt;( DbSkip() )\n	ENDDO\n	SALDOS-&gt;( DbCloseArea() )\n	//verifico que anduvo\n//	IF !AbroDbf( .T., \"DBFCDX\", \"BANCOS\", \"BANCOS\", \"i_ban\")\n//		MsgInfo(\"No fu posible verificar cuenta\" + CRLF + \"Base de datos no disponible\")\n//		RETURN .F.\n//	ENDIF\n\n	USE BANCOS ALIAS BANCOS SHARED NEW\n	SET INDEX TO BANCOS\n\n	SELECT BANCOS\n	BANCOS-&gt;( DbSeek(ncta, .f.) )\n	MsgInfo(BANCOS-&gt;Saldo)\n	CLOSE DATABASES\n\nRETURN .T.\n/*Fin Funcin ModCta\n-------------------------------------------------------------------------------------------*/\nFUNCTION CreoIndices()\n	IF FILE(\"SALDOS.CDX\")\n		ERASE \"SALDOS.CDX\"\n	ENDIF\n	IF FILE(\"BANCOS.CDX\")\n		ERASE \"BANCOS.CDX\"\n	ENDIF\n	use saldos exclusive\n		if .not. neterr()\n			pack\n			index on cta+dtos(fecha) TAG i_saldos\n		endif\n	commit\n	close\n	use bancos exclusive\n		if .not. neterr()\n			pack\n			index on cuenta TAG i_ban\n			index on banco  TAG i_ban2\n		endif\n	commit\n	close data\n/*Fin Funcin CreoIndices\n-------------------------------------------------------------------------------------------*/\n //Funciones de Apertura y Cierre\nFUNCTION AbroDbf( lNew, cDriver, cNom_dbf, cAlias, uOrden, lShared, lReadOnly )\n	LOCAL intentos:=0, Result:=.F.\n	IF cDriver=NIL\n		cDriver=cRDD\n	ENDIF\n	IF cAlias=NIL\n		cAlias=cNom_dbf\n	ENDIF\n	IF lReadOnly=NIL\n		lReadOnly=.T.\n	ENDIF\n	IF lShared=NIL\n		lShared=.T.\n	ENDIF\n	IF uOrden=NIL\n		uOrden:=1\n	ENDIF\n	DbUseArea(lNew, cDriver, cNom_dbf, cAlias, lShared, lReadOnly)\n	DO WHILE .T.\n		DO WHILE NetErr() .and. Intentos&lt;100\n			DbUseArea(lNew, cDriver, cNom_dbf, cAlias, lShared, lReadOnly)\n			Intentos++\n		ENDDO\n		IF UPPER( Alias() ) = UPPER( cAlias )\n			Intentos=0\n			Result:=.T.\n			EXIT\n		ELSE\n			IF ! MsgYesNo(\"No se pudo acceder a la base, Reintenta?\")\n				Intentos:=0\n				EXIT\n			ELSE\n				Intentos=0\n			ENDIF\n		ENDIF\n	ENDDO\n	IF Result\n   	OrdSetFocus(uOrden)\n  ENDIF\nRETURN Result\n/*Fin Funcin AbroDbf\n\nSalu2','',0,'gA==','28ypetv9',1,0,'',78,0,0),(40737,8680,3,2,0,'87.218.146.65',1193962144,1,0,1,1,1,1,'','','Rimantas,\n\nDo you use Harbour or xHarbour ?','',0,'gA==','3vne0ndj',1,0,'',2,0,0),(40738,8694,3,69,0,'74.13.51.62',1193969840,1,0,1,1,1,1,'','Software Protection','Hi Everybody,\n\nWith help from Antonio, I have tested some software that could be a very cost effective way to protect your software from unwanted copying.\n\nThe software is called AntiDuplicate.\n( <!-- m --><a class=\"postlink\" href=\"http://www.alkonost.com/antiduplicate/\">http://www.alkonost.com/antiduplicate/</a><!-- m --> )\n\nIs basically modifies a standard USB Flash drive and allows you to check the USB Flash drive to see if it has this modification.  You can NOT make a copy of the USB Flash drive ... You MUST use the AntiDuplicate software to create the drives.\n\nThe software costs $129.00 (usd).\n\nI have also located a company in the US that will sell me some 32MB usb flash drives for $3.50each ... I have a couple on order so I can test and make sure these drives will work with AntiDuplicate.\n\nYou can see how this can offer a decent protection at a very low cost.\n\nI just thought I\'d pass this one along ... Enjoy.','',0,'gA==','2o7tk569',1,0,'',69,0,0),(40739,8688,6,439,0,'200.125.40.156',1193971600,1,0,1,1,1,1,'','','Gracias Francisco, Gracias Joao\n\nProbaré y me quedo con la que me guste, la verdad que con sus aportes aprendo mucho.\n\nUn abrazo para todos los amigos que han aportado a este tema.','',0,'gA==','561scwbe',1,0,'',439,0,0),(40740,8661,3,234,0,'75.34.217.174',1193972164,1,0,1,1,1,1,'','','Hi Antonio,\n\nI have posted two examples.\n\n[url=http&#58;//img151&#46;imageshack&#46;us/my&#46;php?image=sample1sk9&#46;png:14nzee6s][img:14nzee6s]http&#58;//img151&#46;imageshack&#46;us/img151/4849/sample1sk9&#46;th&#46;png[/img:14nzee6s][/url:14nzee6s]\n\n[url=http&#58;//img444&#46;imageshack&#46;us/my&#46;php?image=sample2qt9&#46;png:14nzee6s][img:14nzee6s]http&#58;//img444&#46;imageshack&#46;us/img444/9075/sample2qt9&#46;th&#46;png[/img:14nzee6s][/url:14nzee6s]','',0,'GA==','14nzee6s',1,0,'',234,0,0),(40741,8680,3,868,0,'219.64.121.60',1193972256,1,0,1,1,1,1,'','','I have been watching this topic with interest.  I am using xharbour (bcc) now. But like to know the possibilities of creating hrb files on the fly and running them both in harbour and xharbour.  In principle what I am looking for is something similar.  Have some code as data somewhere and run it at runtime, instead of replacing the exe for every small modification.','',0,'GA==','3q3s133j',1,0,'',868,0,0),(40742,8683,3,868,0,'219.64.121.60',1193972626,1,0,1,1,1,1,'','','Mr Antonio\n\nCould you find a fix to the above problem please ?','',0,'GA==','1nrsysdu',1,0,'',868,0,0),(40743,8677,3,868,0,'219.64.121.60',1193974192,1,0,1,1,1,1,'','','Time stamp fields work well with xHarbour without any extra efforts.\n\nWhen we read a timestamp field into a memory variable it is a datetime value.  And we can straight away assign a datetime value to a timestamp field.  For creating an  adt table through dbcreate, use \'T\' as the field type.\n\nNo special effort is needed on our part.','',0,'GA==','2ow5rees',1,0,'',868,0,0),(40744,8677,3,868,0,'219.64.121.60',1193974390,1,0,1,1,1,1,'','','In the above example, we can simply say :\n[code:3c8wvjnc]\ntest-&gt;tstamp  &#58;= datetime&#40;&#41; // or any other datetime variable\n// for testing, check\nmsginfo&#40; ttoc&#40; test-&gt;tstamp &#41; &#41;\n[/code:3c8wvjnc]','',0,'AIA=','3c8wvjnc',1,0,'',868,0,0),(40745,8677,3,2,0,'87.218.146.65',1193992700,1,0,1,1,1,1,'','','NageswaraRao,\n\nThanks!','',0,'AIA=','wnxxn6vp',1,0,'',2,0,0),(40746,8680,3,2,0,'87.218.146.65',1193992858,1,0,1,1,1,1,'','','This is a simple test. Please have a copy of harbour.exe where you run this:\n\ntest.prg\n[code:3a8ra6aa]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   Compile&#40; &quot;another&#46;prg&quot; &#41;\n\n   __HrbRun&#40; &quot;another&#46;hrb&quot; &#41;\n   \n   MsgInfo&#40; &quot;done&quot; &#41;\n\nreturn nil\n\nfunction Compile&#40; cPrgName &#41;\n\n   WinExec&#40; &quot;harbour&#46;exe &quot; + cPrgName + &quot; /n /gh&quot;, 0 &#41;\n   \n   while ! File&#40; cFileNoExt&#40; cPrgName &#41; + &quot;&#46;hrb&quot; &#41;\n      SysRefresh&#40;&#41;\n   end   \n   \nreturn nil   \n[/code:3a8ra6aa]\nAnother.prg\n[code:3a8ra6aa]\nfunction DontNameThisMain&#40;&#41;\n\n   MsgInfo&#40; &quot;Hello world!&quot; &#41;\n\nreturn nil\n[/code:3a8ra6aa]\nPlease notice that Harbour users don\'t need to keep an external harbour.exe as they can use hb_CompileBuf() that compiles from the application itself','',0,'AIA=','3a8ra6aa',1,0,'',2,0,0),(40747,8680,3,868,0,'219.64.121.60',1193993069,1,0,1,1,1,1,'','','Thanks\n\nAssuming that we precompiled a program is .hrb and stored it as data.  We read the .hrb into a memory variable.  How can we execute it direclty? ( without having .hrb file on disk ) ?','',0,'AIA=','1g5qjsh8',1,0,'',868,0,0),(40748,8680,3,2,0,'87.218.146.65',1193993177,1,0,1,1,1,1,'','','NageswaraRao,\n\nJust copy the data to a temporal external file:\n\nMemoWrit( \"test.hrb\", cHrbData )\n\nlater on, erase it:\n\nFErase( \"test.hrb\" )','',0,'AIA=','17lr6gst',1,1193993602,'',2,1,0),(40749,8680,3,2,0,'87.218.146.65',1193993453,1,0,1,1,1,1,'','','My mistake, you can directly execute it from memory too <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n   __HrbRun( MemoRead( \"another.hrb\" ) )','',0,'AIA=','c05901le',1,0,'',2,0,0),(40750,8694,3,2,0,'87.218.146.65',1193994047,1,0,1,1,1,1,'','','Jeff,\n\nGlad to know that it is working fine for you.\n\nIf someone else is interested, we can publish here the required PRG functions (and C code) to use this protection','',0,'AIA=','2j1tzsqa',1,0,'',2,0,0),(40751,8680,3,868,0,'219.64.121.60',1193994208,1,0,1,1,1,1,'','','Yes. This is better .. Thanks','',0,'AIA=','2eix7qxw',1,0,'',868,0,0),(40752,8683,3,2,0,'87.218.146.65',1193994326,1,0,1,1,1,1,'','','NageswaraRao,\n\nJust modify these lines:\n\n908:    if ! IsAppThemed() .or. l2007\n\n934:    if ! IsAppThemed() .or. l2007','',0,'AIA=','38scrxz2',1,0,'',2,0,0),(40753,8683,3,868,0,'219.64.121.60',1193994689,1,0,1,1,1,1,'','','Thanks\nBut I dont have the RPreview.Prg compatible with the latest libs ( 2007 menus ) you supplied.  Does my original rpreview.prg ( downloaded with 7.10 ) work ?','',0,'AIA=','1u6cgeka',1,0,'',868,0,0),(40754,8664,6,102,0,'87.217.67.91',1193994935,1,0,1,1,1,1,'','','Hola,\nYo utilizo recursos RES y al compilar me sale :\nFATAL: No fué encontrado D:\\Emails\\Resource\\Emails.RC\nQue puede ser\nGracias','',0,'AIA=','2xi2zdnx',1,0,'',102,0,0),(40755,8680,3,868,0,'219.64.121.60',1193995040,1,0,1,1,1,1,'','','I have tested with xharbour.  In xharbour __hrbrun requires the filename as parameter.  it looks like __hrbrun calls __hrbload with the file name.  now if _hrbrun uses __hrbload to load the hrb file into memory, then what is the function that executes the code in the memory ?  i guess we need to use that function to execute code in memory','',0,'AIA=','30re9xqz',1,0,'',868,0,0),(40756,8683,3,2,0,'87.218.146.65',1193995863,1,0,1,1,1,1,'','','We email you the modified file','',0,'AIA=','u313yxwq',1,0,'',2,0,0),(40757,8695,6,102,0,'87.217.67.91',1193995927,1,0,1,1,1,1,'','Error en FWH10','Buenas.\nUtilizo fwh10 u [x]harbour que venia con la esta version de fwh y verce 5.0\nCompilo  programa y al ejecutarlo me da el siguiente error:\nUnrecoverable error 9000:\n\'source\\dbfdbt\\dbfdbt1.c\' was compiled by older version, PCODE version 7 is no longer soported - Please recompile\nA que puede ser debido.\nGracias','',0,'','1im05e9g',1,0,'',102,0,0),(40758,8693,6,102,0,'87.217.67.91',1193996013,1,0,1,1,1,1,'','','Hola al tratar de cambiar los colores de pantalla estos no se ven como se veian el la version 4.5, no es que sea importante, pero asi es\nUn saludo','',0,'','2cpbw5dy',1,0,'',102,0,0),(40759,8680,3,2,0,'87.218.146.65',1193996415,1,0,1,1,1,1,'','','There are some differences between Harbour and xHarbour. \n\nHarbour hb_compileBuf() is very powerfull as no external Harbour.exe is required. xHarbour should provide it.\n\nAlso, as you have seen, __HrbRun() is a little different too. But using it with HRB files from disk, they will behave the same.','',0,'','1k15l1b1',1,0,'',2,0,0),(40760,8694,3,1158,0,'200.139.130.189',1193996641,1,0,1,1,1,0,'','','Antonio, please publish it... thanks','',0,'','1maj2ixn',1,0,'',1158,0,0),(40761,8688,6,316,0,'213.97.245.163',1193996912,1,0,1,1,1,0,'','','Otra alternativa:\n\nAunque la opción \"unique\" de los índices no es muy usada, porque en la mayoría de las veces no es práctica, creo que en este caso si lo es.\n\n[code:2je0bjzr]\nFUNCTION Main&#40;&#41;\n   SET AUTOPEN OFF\n   SET DELETED OFF\n   USE BASE3 EXCLUSIVE\n   IF File&#40;&quot;TMP&#46;CDX&quot;&#41;\n      ERASE &quot;TMP&#46;CDX&quot;\n   ENDIF\n   INDEX ON Campo5 TO TMP UNIQUE\n   COPY TO TEMPO\n   OrdListClear&#40;&#41;\n   ZAP\n   APPEND FROM TEMPO\n\nRETURN NIL \n[/code:2je0bjzr]\n\nFaltaría algo de higiene, es decir borrar los temporales y demás, pero la idea está.\n\nOtra alternativa sería usar un indice normal y hacer un OrdSkipUnique() para el copy, pero creo que la solucion está.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','2je0bjzr',1,0,'',316,0,0),(40762,8661,3,2,0,'87.218.146.65',1193998111,1,0,1,1,1,1,'','','Darrell,\n\nIn class TOutLook (source\\classes\\outlook.prg) there are three constants:\n\n#define BTN_HEIGHT  25\n#define BMP_SIZE    36\n#define STEP_BMP     5\n\nYou may increase BTN_HEIGHT and STEP_BMP to have more space between buttons. Please try first increasing STEP_BMP only.','',0,'AIA=','286hd8qa',1,0,'',2,0,0),(40763,8694,3,2,0,'87.218.146.65',1193998339,1,0,1,1,1,1,'','','Here it is the code:\n[code:2ylxyg5v]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41;\n\n  CheckIt&#40;&#41;\n  \nreturn nil  \n\nfunction CheckIt&#40;&#41; \n\n   local cArray &#58;= FillArray&#40;&#41;, aInfo\n\n   if Fddig1&#40; 0 &#41; &lt; 7\n      MsgAlert&#40; &quot;No Key drive in the USB port!&quot; &#41;\n      return 0\n   endif   \n\n   Accdd1&#40; cArray &#41;\n   aInfo = GetValues&#40; cArray &#41; \n\n   MsgInfo&#40; aInfo&#91; 1 &#93;, &quot;LicType&quot; &#41;\n   MsgInfo&#40; aInfo&#91; 2 &#93;, &quot;TokenId1&quot; &#41;\n   MsgInfo&#40; aInfo&#91; 3 &#93;, &quot;TokenId3&quot; &#41;\n   \nreturn nil \n\nDLL FUNCTION ACCDD1&#40; pValues AS LPSTR &#41; AS VOID PASCAL ;\nFROM &quot;Accdd1&quot; LIB &quot;Aas973&#46;dll&quot; \n\nDLL FUNCTION FDDIG1&#40; nVal AS LONG &#41; AS LONG PASCAL ;\nFROM &quot;Fddig1&quot; LIB &quot;Aas973&#46;dll&quot; \n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nstatic LONG accm&#91;&#93; = &#123;\n        0,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;,\n        0x&#46;&#46;&#46;\n&#125;;\n\nHB_FUNC&#40; FILLARRAY &#41;\n&#123;\n   LONG acck&#91; 100 &#93;;\n   LONG accNa, accUr;\n   int i;\n   \n   srand&#40; GetTickCount&#40;&#41; &#41;;\n   accUr = rand&#40;&#41;;\n	\n   for&#40; i = 1; i &lt; 100; i++ &#41;\n     acck&#91; i &#93; = rand&#40;&#41;;\n\n   for&#40; i = 1; i &lt; 100; i++ &#41;\n     accUr = acck&#91; &#40; acck&#91; i &#93; ^ &#40; accUr &amp; 0x0ff &#41; &#41; % 99 &#93; ^ &#40; accUr &gt;&gt; 8 &#41;;\n\n   accUr = &#40; accm&#91; 6 &#93; ^ accUr &#41; &amp; 0x0ffff;\n   \n   hb_retclen&#40; &#40; char * &#41; acck, 100 * sizeof&#40; LONG &#41; &#41;;\n&#125;      \n\nHB_FUNC&#40; GETVALUES &#41;\n&#123;\n   LONG * acck = &#40; LONG * &#41; hb_parc&#40; 1 &#41;;\n   LONG accr1, accr2, accr3, accr4;\n   LONG accNa, accUr;\n   LONG LicType, TokenId1, TokenId2;\n   BOOL OrigDrive;\n   \n   accNa = &#40; acck&#91; 99 &#93; ^ accm&#91; 5 &#93; &#41; &amp; 1061109567;\n   accr1 = accm&#91; 1 &#93; ^ acck&#91; LOBYTE&#40; LOWORD&#40; accNa &#41; &#41; &#93;;\n   accr2 = accm&#91; 2 &#93; ^ acck&#91; HIBYTE&#40; LOWORD&#40; accNa &#41; &#41; &#93;;\n   accr3 = accm&#91; 3 &#93; ^ acck&#91; LOBYTE&#40; HIWORD&#40; accNa &#41; &#41; &#93;;\n   accr4 = accm&#91; 4 &#93; ^ acck&#91; HIBYTE&#40; HIWORD&#40; accNa &#41; &#41; &#93;;\n\n   OrigDrive = accr4 == &#40; &#40; &#40; accr2 - ~accr1 / accUr &#41; ^ accr3 &#41; - accUr &#41;;\n   LicType = TokenId1 = TokenId2 = 0;\n\n   hb_reta&#40; 3 &#41;;\n   \n   if&#40; OrigDrive &#41;\n   &#123;\n      LicType = acck&#91; 64 + &#40; HIBYTE&#40; HIWORD&#40; accNa &#41; &#41; % 35 &#41; &#93; ^ acck&#91; LOBYTE&#40; LOWORD&#40; accNa &#41; &#41; &#93;;\n      if&#40; LicType == &#40; accm&#91; 1 &#93; ^ accm&#91; 3 &#93; ^ accm&#91; 4 &#93; ^ accm&#91; 5 &#93; &#41; &#41;  \n         LicType = 1; \n      else\n			   if&#40; LicType == &#40; accm&#91; 1 &#93; ^ accm&#91; 2 &#93; ^ accm&#91; 4 &#93; ^ accm&#91; 5 &#93; &#41; &#41;  \n			      LicType = 2; \n			   else\n				    LicType = 0;\n\n			TokenId1 = accm&#91; 7 &#93; ^ acck&#91; LOBYTE&#40; LOWORD&#40; accNa &#41; &#41; + 1 &#93;;\n			TokenId2 = accm&#91; 8 &#93; ^ acck&#91; HIBYTE&#40; LOWORD&#40; accNa &#41; &#41; + 1 &#93;;\n\n      hb_stornl&#40; LicType, -1, 1 &#41;;\n      hb_stornl&#40; TokenId1, -1, 2 &#41;;\n      hb_stornl&#40; TokenId2, -1, 3 &#41;;\n   &#125;\n   else\n   &#123;\n      hb_stornl&#40; 0, -1, 1 &#41;;\n      hb_stornl&#40; 0, -1, 2 &#41;;\n      hb_stornl&#40; 0, -1, 3 &#41;;\n   &#125;   \n&#125;   \n   \n#pragma ENDDUMP         \n[/code:2ylxyg5v]','',0,'AIA=','2ylxyg5v',1,1194012198,'',2,1,0),(40764,8692,7,2,0,'87.218.146.65',1193998508,1,0,1,1,1,1,'','','Luiz,\n\nTienes un ejemplo de make con múltiples ficheros en:\n\nFWPPC\\makes\\fwcemake.zip','',0,'AIA=','34kunx0q',1,0,'',2,0,0),(40765,8694,3,161,0,'81.83.249.31',1193998742,1,0,1,1,1,0,'','','Jeff,\n\nDoes the software install some files on the flash-drive that are visible?\nI\'am just wondering because if the client delete them, the drive won\'t work anymore...\n\nThanks,\nMarc','',0,'AIA=','qu0e9cyv',1,0,'',161,0,0),(40766,8695,6,2,0,'87.218.146.65',1193999025,1,0,1,1,1,1,'','','José,\n\nPor favor comprueba que no tengas instaladas algunas versiones anteriores a la 7.10, tanto de FWH como de xharbour, y que los estes usando en vez de los actuales.\n\nTambien, si usas alguna librería de terceros, ó un módulo OBJ, tienes que recompilarlos con el nuevo build de xharbour','',0,'AIA=','2uybobzn',1,0,'',2,0,0),(40767,8686,6,92,0,'81.38.195.254',1193999335,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2d11yult]Carlos,\n\nHabrá que tomar el módulo de xHarbour y compilarlo en Harbour[/quote:2d11yult]\n\nGracias Antonio,\n\nesperaré que alguna alma caritativa lo haga por mi; yo no tengo conocimientos para modifidar/alterar Harbour.\n\nSaludos\nCarlos G.','',0,'gA==','2d11yult',1,0,'',92,0,0),(40768,8660,3,2,0,'87.218.146.65',1193999474,1,0,1,1,1,1,'','','Richard,\n\nWhere do you call ::zoom(.t.) from ?','',0,'gA==','328ccs1c',1,0,'',2,0,0),(40769,8638,3,2,0,'87.218.146.65',1193999768,1,0,1,1,1,1,'','','Dietmar,\n\nYou may consider to use Class TRichEdit instead of Class TFGet, as standard Win32 richedit provides what you are looking for, besides many interesting features not supported in Class TFGet.\n\nPlease review samples\\TestRtf.prg and scroll down in the provided RTF sample and you will find some URLs that you can click on','',0,'gA==','e23fdwzm',1,0,'',2,0,0),(40770,8680,3,868,0,'219.64.121.60',1193999922,1,0,1,1,1,1,'','','In xharbour ,\n\nwe can do :\n[code:1jt2zkv4]\n__HrbRun&#40; &lt;file&#46;hrb&gt; &#41;\n\n// or\n\ncHrb &#58;= memoread&#40; &quot;file&#46;hrb&quot; &#41;\npBody &#58;= __hrbload&#40; cHrb &#41; //   __hrbload&#40; &quot;file&#46;hrb&quot; &#41; also works\n                                        //  pBody is pointer variable\n__hrbdo &#40; pBody &#41;\n\n// or we can make a small function\nFUNCTION XHRBRUN &#40; cSource &#41;  // can be file on disk or buffer in memory\nRETURN __HrbDo&#40; __HrbLoad&#40; cSource &#41; &#41; \n\n// note&#58; this is from the sourc of ver 99&#46;70\n// works with ver 99&#46;71\n[/code:1jt2zkv4]','',0,'AIA=','1jt2zkv4',1,0,'',868,0,0),(40771,8680,3,2,0,'87.218.146.65',1194000171,1,0,1,1,1,1,'','','NageswaraRao,\n\nBetter rename cSource as cHRBFileName to avoid confusions, thanks','',0,'AIA=','5de0cu35',1,0,'',2,0,0),(40772,8695,6,102,0,'87.217.67.91',1194000197,1,0,1,1,1,1,'','','Antonio.\nSolamente tengo un PRG y es el menu principal con unos botones, no estoy utilizando nada mas,\nHe configurado el verce a xharbour que vino con Fwh10\nEste es todo lo que quiero compilar de momento:\n//---------------------------------------------------------------------------//\n//\n//    Function........: PRINCIPAL.PRG\n//    Parameters......:\n//    System..........: Menu principal Envio emails\n//    Author..........: José_Martin Uriarte Aguirre\n//    Date............: 02/11/2007  8:35:29\n//\n//---------------------------------------------------------------------------//\n\n//---------------------------------------------------------------------------//\n//REQUEST DBFCDX,DBFFPT,ORDKEYCOUNT,ORDKEYNO,ORDKEYGOTO,rddsys\n//_ADS,ADSKEYCOUNT,ADSGETRELKEYPOS,ADSKEYNO,ADSSetRelKeyPos,rddsys,ORDKEYGOTO,;\n//---------------------------------------------------------------------------//\n#Include \"FiveWin.ch\"\n//---------------------------------------------------------------------------//\nStatic oWnd\n//---------------------------------------------------------------------------//\nFunction Main()\n//---------------------------------------------------------------------------//\n//Variables locales\nLocal oFont,oIcon,lSalir := .f.\nLocal cTitle := \'Envio emails\'\n//Variables privadas\nPublic oMsgBar\nPrivate oBtn101,oBtn102,oBtn103,oBtn104,oBtn105,oBtn106\nPrivate aRrBtns:= {}\n//Variables publicas\n//---------------------------------------------------------------------------//\n//Parametros SET\n//RDDSETDEFAULT(\'DBFCDX\')\nSet(_SET_CANCEL,.T.)\nSet Epoch To 2000       //Minima fecha de datos año 2000\nSet Scoreboard Off\nSet Date British        //Formato de fecha europea\nSet Century On          //Activacion de la centuria\nSet Confirm Off         //Confirmacion de datos\nSet Deleted On          //Ocultar registros eliminados\nSet Exclusive Off       //datos exclusivos\nSET _3DLOOK ON\nSet AutOpen ON          //Abrir ficheros de indice al abrir las tablas\n//---------------------------------------------------------------------------//\nDEFINE ICON   oIcon RESNAME \"#8001\"\nDEFINE FONT   oFont    NAME \"MS Sans Serif\" SIZE 0, -12\nDEFINE DIALOG oWnd  RESNAME \"PRINCIPAL\" FONT oFont ICON oIcon TITLE cTitle\n\n      REDEFINE BUTTON oBtn101 ID 101 OF oWnd FONT oFont\n      REDEFINE BUTTON oBtn102 ID 102 OF oWnd FONT oFont\n      REDEFINE BUTTON oBtn103 ID 103 OF oWnd FONT oFont\n      REDEFINE BUTTON oBtn104 ID 104 OF oWnd FONT oFont\n      REDEFINE BUTTON oBtn105 ID 105 OF oWnd FONT oFont\n      REDEFINE BUTTON oBtn106 ID 106 OF oWnd ACTION (oWnd:End()) FONT oFont\n\n     aRrBtns := { oBtn101,oBtn102,oBtn103,oBtn104,oBtn105,oBtn106 }\n   //oWnd:SetColor(CLR_WHITE,CLR_WHITE)\nACTIVATE DIALOG oWnd CENTERED ;\n   ON INIT  (PonStatusBar(oWnd,cTiTle))\n             //If(AccesoAplic(oWnd),.t.,(oWnd:End(),.f.)),;\n             //\noIcon:End()\noFont:End()\naFont:End()\nIf Used()\n   DbCloseAll()\nEndif\nReturn Nil\n//---------------------------------------------------------------------------//\nStatic Function PonStatusBar(oWnd,cTiTle)\n\n   DEFINE MSGBAR oMsgBar OF oWnd PROMPT cTiTle  ;\n      NOINSET CLOCK DATE KEYBOARD CENTERED\n\nReturn nil\n//---------------------------------------------------------------------------//\n#pragma BEGINDUMP\n\n#include \"hbstack.h\"\n#include \"hbapiitm.h\"\n\nvoid * hb_stack = &amp;HB_VM_STACK;\n\nPHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )\n{\nreturn pDynSym-&gt;pSymbol;\n}\n\n#pragma ENDDUMP\n\n//---------------------------------------------------------------------------//','',0,'AIA=','2pcqzgae',1,0,'',102,0,0),(40773,8695,6,2,0,'87.218.146.65',1194000395,1,0,1,1,1,1,'','','José,\n\nEl #pragma BEGINDUMP ... #pragma ENDDUMP ya no te hace falta con la versión de xHarbour que usas. Prueba a quitarlo.\n\nDe todas formas, ese error que te aparece es debido a que estás usando algún módulo compilado con una versión anterior de xHarbour. Aqui nuestros ejemplos funcionan bien.\n\nPuedes probar en otro ordenador ? gracias,','',0,'AIA=','36q4ropr',1,0,'',2,0,0),(40774,8695,6,2,0,'87.218.146.65',1194000459,1,0,1,1,1,1,'','','Asegúrate de que no tengas alguna librería LIB de una versión anterior de FWH ó de xHarbour','',0,'AIA=','2edhcm6g',1,0,'',2,0,0),(40775,8680,3,868,0,'219.64.121.60',1194001416,1,0,1,1,1,1,'','','Yes thanks. I forgot to unload the pointer.\n\n[code:3q1wtibn]\nFUNCTION xHrbRun&#40; cHRBfileNameOrcHRBCode &#41;\n\nLOCAL pHrb\n\n   __HrbRun&#40; pHrb &#58;= __HrbLoad&#40; cHRBfileNameOrcHRBCode &#41; &#41;\n   __HrbUnload&#40; pHrb &#41;\n\nRETURN NIL\n// Note&#58; arguments support still to be added\n[/code:3q1wtibn]\nThe above function can be used for .hrb file on disk or hrb compiled code in memory ( ideal for storing in database and execute retrieved code )','',0,'AIA=','3q1wtibn',1,0,'',868,0,0),(40776,8696,20,1082,0,'85.43.122.34',1194001804,1,0,1,1,1,0,'','ADORDD','sto provando ad utilizzare l\'accesso a SQL con adordd ed ho questo problema. Ho FHW 7.10 ed ho provato a collegarmi ad un database con la seguente istruzione:\n#include \"adordd.ch\"\n#include \"FiveWin.ch\" \nREQUEST ADORDD\nfunction Main()\n   USE \"MioDBTest\" VIA \"ADORDD\" TABLE \"TABELLA\" SQL ;\n      FROM \"192.168.1.203\" USER \"saa\" PASSWORD \"saa\"\nBrowse()\nUSE\nreturn nil\n\ned è tutto OK, il browse funziona. Cambio il database e di conseguenza il programma:\n#include \"adordd.ch\"\n#include \"FiveWin.ch\" \nREQUEST ADORDD\nfunction Main()\n   USE \"MioDB_PDZ\" VIA \"ADORDD\" TABLE \"TABELLA\" SQL ;\n      FROM \"192.168.1.203\" USER \"saa\" PASSWORD \"saa\"\nBrowse()\nUSE\nreturn nil\n\ned ho il seguente errore :\nApplication\n===========\n   Path and name: C:\\ado\\mysql4.exe (32 bits)\n   Size: 1,434,112 bytes\n   Time from start: 0 hours 0 mins 17 secs \n   Error occurred at: 11/02/07, 12:02:31\n   Error description: Error ADODB.Connection/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   Provider=SQLOLEDB;server=192.168.1.203;database=MioDB_PDZ;uid=saa;pwd=saa\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: adordd.prg =&gt; ADO_OPEN(248)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: mysql4.prg =&gt; MAIN(11)\n\nCome mai?\nil carattere underscore non è riconosciuto?','',0,'','1y6io4jo',1,0,'',1082,0,0),(40777,8695,6,102,0,'87.217.67.91',1194003419,1,0,1,1,1,1,'','','Antonio,\nHe probado en otro pc que formatee el el otro dia el disco duro y me pasa lo mismo.\n sigue este error:\n\'source\\rdd\\dbfdbt\\dbfdbt1.c\' was compiled by older version, PCODE version 7 is no longer supported - Please recompile.','',0,'','ogw0tdp1',1,0,'',102,0,0),(40778,8638,3,162,0,'62.47.191.75',1194003722,1,0,1,1,1,0,'','','I tried to build testrtf. \nThat\'s what I get:\n\nxLINK: error: Unresolved external symbol \'_OleUIPasteSpecialA\'.\nxLINK: error: Unresolved external symbol \'_GetFileVersionInfoSizeA\'.\nxLINK: error: Unresolved external symbol \'_GetFileVersionInfoA\'.\nxLINK: error: Unresolved external symbol \'_VerQueryValueA\'.\nxLINK: fatal error: 4 unresolved external(s).\n\nwhat is missing?\n\nRegards,\nDietmar','',0,'','b19sb8tm',1,0,'',162,0,0),(40779,8695,6,102,0,'87.217.67.91',1194003857,1,0,1,1,1,1,'','','Antonio,\nSi quito EL BEGINDUMP me da esto:\nError: Unresolved external \'_hb_stack\' referenced from C:\\MYSISTEMA\\XHARBOUR\\LIB\\DBFDBT.LIB|dbfdbt1','',0,'','3hudd6l6',1,0,'',102,0,0),(40780,8694,3,868,0,'219.64.121.60',1194004050,1,0,1,1,1,1,'','','A bit out of topic, if the friends here dont mind answering me. \n\nI used to think that piracy and unauthorised use / distribution of software are problems only developing countries like mine ( India ).  Is it a problem in developed countries too? like canada or usa ?  Now even in India things have changed a lot and we see authorised software only in all corporate sector.  Though students and small timers still run for pirated software.  I am just curious to know whats happening in developed countries.\n\nFor copy protection, I still like my old friend\'s solution. He used to encrypt and store company name and address , etc in the exe file. No other company likes to print invoices or documents with other company\'s name and address. That way redistribution of software or resale of software is prevented ( even among sister companies in a group).\n\nWhat remains is the number of users in the client organisation using the software simultaneously.  In the good old Novell days we could mornitor this very easily with Semaphores. ( Novell\'s API was ( and is ) very simple and reliable )\n\nEven now with windows servers there should be some easier way. A crude but sure way is to manage the count of record locks on a specified shared table on the server.  Or if we are using ADS, we can find the number of users who opened a particular table.\n\nThough I dont need any protection for my software, I do keep track of number of users and simultaneous users (for information purposes), using ADS management functions. \n\nWon\'t these simpler methods be adequate and protect the developers\' interests? Merit being that it costs nothing and the customer does not get the feeling that we \"do not trust\" him.','',0,'','7z0d4l0d',1,0,'',868,0,0),(40781,8638,3,2,0,'87.218.146.65',1194004623,1,0,1,1,1,1,'','','Dietmar,\n\nFor a quick test, please try to add this code to the PRG:\n\n#pragma BEGINDUMP\n\nvoid OleUIPasteSpecialA( void ) {}\nvoid GetFileVersionInfoSizeA( void ) {}\nvoid GetFileVersionInfoA( void ) {}\nvoid VerQueryValueA( void ) {} \n\n#pragma ENDDUMP\n\n&gt; what is missing?\n\nxHB commercial should provide those Windows API import functions, as Microsoft and Borland perfectly do <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'','1p7wlqo5',1,0,'',2,0,0),(40782,8695,6,2,0,'87.218.146.65',1194005252,1,0,1,1,1,1,'','','José,\n\nPor favor descarga xHarbour desde \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->\ny comprueba que es el que estás usando, gracias','',0,'','1rysdm3o',1,0,'',2,0,0),(40783,8695,6,2,0,'87.218.146.65',1194005487,1,0,1,1,1,1,'','','José,\n\nYa se lo que te ocurre: Estas enlazando DBFDBT.LIB que ya no se usa y que no está incluida en la versión actual de xHarbour!\n\nPor favor cambia ese fichero por DBFFPT.LIB, gracias','',0,'','3igay6c8',1,0,'',2,0,0),(40784,8693,6,221,0,'200.109.27.176',1194005493,1,0,1,1,1,1,'','','SALUDOS\n\nNO VEO DONDE COLOCAR %HOME% PARA PONER LA RUTA, SERA PORQUE ABRO LOS VRC YA CREADOS O DEBOS CREARLOS DESDE CERO\nGRACIAS','',0,'','3nvl4tk7',1,0,'',221,0,0),(40785,8693,6,221,0,'200.109.27.176',1194006169,1,0,1,1,1,1,'','','ah otra tonteria realmente, dice en la dialogo inicial o en ?, la version 5.1 ok, pero 17 de nov de 2005\n\ny donde pones \"solo veracruz es bello\" pos pon una fotico a ver, jajaja o pon  \"caracas tambien lo es\", bueno es solo por molestar\n\nyo pienso que motivado a que esto es cedido gentilmente por el amigo y realemente lo hace sin ningun interes de lucro, podria darnos una direccion para mandarle una postal, asi podria saber si solo veracruz es bello, juan carlos podrias hacer una buena coleccion de postales','',0,'','gkhyz03n',1,0,'',221,0,0),(40786,8696,20,6,0,'79.19.233.40',1194006303,1,0,1,1,1,1,'','Re: ADORDD','Naturalmente sei sicuro che il nome della tabella sia scritto giusto, vero? Se sì, non mi vengono in mente altri motivi per quell\'errore, se non che devi controllare bene tutti i dati della stringa di connessione risultante (indirizzo IP, nome tabella, userid e password) e magari provare a fare la stessa cosa via ADO.\n\nEMG','',0,'','2kz82gfn',1,0,'',6,0,0),(40787,8697,6,221,0,'200.109.27.176',1194006443,1,0,1,1,1,1,'','alguien usa eagle1 o condor1','solo quiero saber si alguien tiene el archivo eagle1.h y me lo puede mandar, gracias','',0,'','tcklf1rd',1,0,'',221,0,0),(40788,8694,3,69,0,'206.210.100.104',1194007669,1,0,1,1,1,1,'','','Hi Marc,\n\nYes ... There will be some Hidden Protected Operating System Files added to the USB Drive.\n\nIf the customer completely deletes the drive you can re-make the drive in seconds (you will need to physically have the drive to do this)\n\n\nI am sure there is software out there that can \"lock\" a flash drive from accidental deletes ... I will take a look.','',0,'','2o4a4hr5',1,0,'',69,0,0),(40789,8677,3,41,0,'200.87.167.162',1194009258,1,0,1,1,1,0,'','','NageswaraRao,\n\nthanks for the sample, but the others field type like MONEY how we can work with these. I have special interest in MONEY field for the precision, there are some issues in DOUBLE field type with this issue\n\nregards\n\nMarcelo','',0,'','14t42ny0',1,0,'',41,0,0),(40790,8677,3,868,0,'219.64.121.60',1194009514,1,0,1,1,1,1,'','','Mr Marcelo\n\nYou simply assign and retrieve numerical values to and from these fields also as usual.  \n\nYou are mentioning about the precision of Money fields. When we ask the server to do the totals and sums of large number this precision helps.  We never get rounding errors.  For exaample \'SELECT SUM(FIELDMONEY) FROM SALESTABLE\' ...','',0,'','7o8lhwxe',1,0,'',868,0,0),(40791,8697,6,1201,0,'200.90.17.154',1194009576,1,0,1,1,1,0,'','','Eagle de cual versión???','',0,'','tjxwjpxu',1,0,'',1201,0,0),(40792,8661,3,234,0,'75.34.217.174',1194010521,1,0,1,1,1,1,'','','Hi Antonio,\n\nI tried that and it did not work. Are there any other options?','',0,'','47jp7qxo',1,0,'',234,0,0),(40793,8698,6,176,0,'201.255.169.124',1194010887,1,0,1,1,1,0,'','pack','Tengo el siguiente código\n\n    texto(\"Borrando pedidos antiguos\")\n    delete  for dfecha &lt;= (date() - 90) while (estado = \"R\" )\n    PACK\n\n    delete tag nroped\n    delete tag nrorem\n    delete tag fentrega\n \n\n    index on pedido  tag nroped\n    oMtr:set(++nactual)\n    index on remito  tag nrorem\n    oMtr:set(++nactual)\n    index on dentrega  tag fentrega\n\nEn esta base de datos tengo un campo memo, fpt me dí cuenta que el pack en la ftp no funciona, pero si despues de utilizar el código precedente, salgo del programa y lo hago con dbwide (prometheus), los borra perfectamente. Uso fwh2.6 con xh 99.61 sumplex\n\nGracias desde ya\n\nLuis','',0,'','2b858y8k',1,0,'',176,0,0),(40794,8658,6,36,0,'164.77.81.210',1194011296,1,0,1,1,1,1,'','','Jose \n\nEl problema esta que abres la bases de datos en READONLY\n\n[code:123ja1y9]	IF !AbroDbf&#40; &#46;T&#46;, &quot;DBFCDX&quot;, &quot;BANCOS&quot;, &quot;BANCOS&quot;, &quot;i_ban&quot;&#41;\n		MsgInfo&#40;&quot;No fué posible verificar cuenta&quot; + CRLF + &quot;Base de datos no disponible&quot;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n[/code:123ja1y9]\n\nsi vez el parametro readonly es nil..\n\n[code:123ja1y9]FUNCTION AbroDbf&#40; lNew, cDriver, cNom_dbf, cAlias, uOrden, lShared, lReadOnly &#41;\n	LOCAL intentos&#58;=0, Result&#58;=&#46;F&#46;\n\n	IF cDriver=NIL\n		cDriver=&quot;DBFCDX&quot;\n	ENDIF\n	IF cAlias=NIL\n		cAlias=cNom_dbf\n	ENDIF\n	IF lReadOnly=NIL\n		lReadOnly=&#46;T&#46;\n	ENDIF\n[/code:123ja1y9]','',0,'AIA=','123ja1y9',1,0,'',36,0,0),(40795,8661,3,2,0,'87.218.146.65',1194012307,1,0,1,1,1,1,'','','Darrell,\n\n&gt; STEP_BMP\n\nDid the increase of its value cause any visible effect ? thanks,','',0,'AIA=','2scha1bq',1,0,'',2,0,0),(40796,8658,6,439,0,'200.125.50.252',1194013609,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:206wfant]Jose \n\nEl problema esta que abres la bases de datos en READONLY\n\n[code:206wfant]	IF !AbroDbf&#40; &#46;T&#46;, &quot;DBFCDX&quot;, &quot;BANCOS&quot;, &quot;BANCOS&quot;, &quot;i_ban&quot;&#41;\n		MsgInfo&#40;&quot;No fué posible verificar cuenta&quot; + CRLF + &quot;Base de datos no disponible&quot;&#41;\n		RETURN &#46;F&#46;\n	ENDIF\n[/code:206wfant]\n\nsi vez el parametro readonly es nil..\n\n[code:206wfant]FUNCTION AbroDbf&#40; lNew, cDriver, cNom_dbf, cAlias, uOrden, lShared, lReadOnly &#41;\n	LOCAL intentos&#58;=0, Result&#58;=&#46;F&#46;\n\n	IF cDriver=NIL\n		cDriver=&quot;DBFCDX&quot;\n	ENDIF\n	IF cAlias=NIL\n		cAlias=cNom_dbf\n	ENDIF\n	IF lReadOnly=NIL\n		lReadOnly=&#46;T&#46;\n	ENDIF\n[/code:206wfant][/quote:206wfant]\n\n\nPatricio,\nGracias, había hecho una modificación en esta rutina y al hacerlo cambién por .t. sin darme cuenta.\n\nGracias!!','',0,'gIA=','206wfant',1,0,'',439,0,0),(40797,8661,3,234,0,'75.34.217.174',1194014393,1,0,1,1,1,1,'','','Yes, but the text was still cut off','',0,'gIA=','2dixcxnc',1,0,'',234,0,0),(40798,8694,3,161,0,'81.83.249.31',1194015017,1,0,1,1,1,0,'','','Jeff,\n\nThe problem is that you need to physically have the drive to re-make the drive. Then the customer have to send the key to me, and I have to send it back. \n\nRegards,\nMarc','',0,'gIA=','hun6orac',1,0,'',161,0,0),(40799,8697,6,221,0,'200.109.27.176',1194016437,1,0,1,1,1,1,'','','5 o 6 no pero no se exactamente donde verlo','',0,'gIA=','3dmg5sc9',1,0,'',221,0,0),(40800,8697,6,221,0,'200.109.27.176',1194016532,1,0,1,1,1,1,'','','ya lo vi en el mem, es 5.02','',0,'gIA=','2810uj6v',1,0,'',221,0,0),(40801,8690,6,496,0,'200.107.36.176',1194016580,1,0,1,1,1,0,'','','Qué error te devuelve?\n\nPorque probé tu código de la forma como te indiqué y la tabla se creó sin problema en mi base de datos.\n\n\nUn Saludo\n\nMarcelo Jingo','',0,'gIA=','1c1vokl6',1,0,'',496,0,0),(40802,2502,17,1178,0,'200.24.127.11',1194017175,1,0,1,1,1,0,'','','[quote=&quot;jvargas&quot;:1zheuuj0]Hola Antonio\nNo puedo abrir este archivo con el winzip\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27920493/TWBrowse_Hernan.zip.html\">http://rapidshare.com/files/27920493/TW ... n.zip.html</a><!-- m -->\nhay algun otro archivo?\nSaludos y Gracias\nJorge Vargas[/quote:1zheuuj0]\n\nLo he bajado varias veces , y al abrir con winzip no abre, hay otra direccion para descargar','',0,'gA==','1zheuuj0',1,0,'',1178,0,0),(40803,8688,6,171,0,'71.233.232.238',1194017302,1,0,1,1,1,0,'','','Es interesante ver como programadores expertos, usando todos el mismo lenguaje de programacion, escriben la misma funcion desde 11 lineas la mas corta hasta 32 lineas la mas larga.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGeorge','',0,'gA==','3ohczypg',1,0,'',171,0,0),(40804,8621,7,1185,0,'88.2.204.212',1194017712,1,0,1,1,1,1,'','','Gracias a los dos por sus respuestas.\n\nHe hecho lo que Antonio me comenta. Todo funciona perfectamente y he visto más o menos la lógica y estructura de los programas. No se ve muy complicada y parece bastante entendible. ¿Cuál es la mejor manera para editar los PRG y los resources? ¿Ambos con PellesC? ¿Usando un proyecto que contenga todos los archivos?.','',0,'gA==','1tqzivaj',1,0,'',1185,0,0),(40805,8699,6,492,0,'189.147.71.87',1194017823,1,0,1,1,1,1,'','TPages + XP Manifest + FWH 7.10 No quieren Funcionar OK','Hola Antonio\n\nLLevo un par de dias buscandole al asunto y nomas no le encuentro pies ni cabeza a esto.\n\nEn la version anterior que estaba usando 2.7 ( Build Abril \'06 ) no tenia ese problema.\n\nCon la version actual 7.10 en las Apps que tengo TPages con Brush de fondo, se muestran en forma sumamente rara.\n\n[img:a7voy0oj]http&#58;//img516&#46;imageshack&#46;us/img516/9330/pages2pu1&#46;jpg[/img:a7voy0oj]\n\n\n[img:a7voy0oj]http&#58;//img516&#46;imageshack&#46;us/img516/8275/pages1kk9&#46;jpg[/img:a7voy0oj]\n\n\nComo puedes observar, se \"pierde\" el brush en el dialog pero se conserva dentro del Group, ahora si le quito lo referente a la Apariencia XP, ya sale correctamente el brush pero, por supuesto, no obtengo el agradable look en los controles.\n\n\nAlguna sugerencia por donde seguir checando ?\n\n\nGracias y Saludos','',0,'CA==','a7voy0oj',1,0,'',492,0,0),(40806,8661,3,303,0,'72.220.100.171',1194019113,1,0,1,1,1,0,'','','I find it interesting that in your graphic one of the buttons is displaying two lines of prompt, but the other two are not.\n\nJames','',0,'CA==','g2yxie5o',1,0,'',303,0,0),(40807,7976,6,1178,0,'200.24.127.11',1194019578,1,0,1,1,1,0,'','Re: busco este ejemplo','[quote=&quot;MOISES&quot;:3jrzcnzi]Hola:\n\nEstoy buscando este ejemplo en la carpeta SAMPLES, pero no lo encuentro. Por favor, ¿sabéis su nombre?.  Muchas gracias.\n\n[url=http&#58;//imageshack&#46;us:3jrzcnzi][img:3jrzcnzi]http&#58;//img442&#46;imageshack&#46;us/img442/1085/listadoosslq0&#46;jpg[/img:3jrzcnzi][/url:3jrzcnzi]\n\n\nSalu2[/quote:3jrzcnzi]\n\nme pueden indicar como lo compilaron porque me genera un error, trabajo con harbour build 45 y fwh 2.7 y lo construyo el ejecutable con Verce 4.5 al ejecutarlo me genera el sgte error\n\nApplication\n===========\n   Path and name: C:\\Temp\\GESTION.Exe (32 bits)\n   Size:   392,192 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 11/02/07, 10:50:00\n  [b:3jrzcnzi] [color=red:3jrzcnzi]Error description: Error BASE/1003  Variable does not exist: PUBLICAS[/b:3jrzcnzi][/color:3jrzcnzi]\n\nStack Calls\n===========\n   Called from:  =&gt; RUNADHOC(92)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.80GHz 2800 Mhz\n   Hardware memory: 248 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 45.0 Intl. (Flex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   RUNADHOC\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    N    0\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n\nDataBases in use\n================','',0,'2g==','3jrzcnzi',1,0,'',1178,0,0),(40808,8694,3,69,0,'206.210.100.104',1194019580,1,0,1,1,1,1,'','','Hi Marc,\n\nI never said it was the \"perfect\" way to protect your software, just cost effective  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nIf you write-protect the drive and the customer still manages to delete the data than I guess they should not complain about any down time or the cost of sending the key back for re-programming.','',0,'2g==','1qy8spl4',1,0,'',69,0,0),(40809,8695,6,102,0,'87.217.67.91',1194019653,1,0,1,1,1,1,'','','Antonio.\nDescargjue y funciono.\neres un artista.\nMuchas gracias maestro','',0,'2g==','1dio5vl7',1,0,'',102,0,0),(40810,8661,3,234,0,'75.34.217.174',1194019728,1,0,1,1,1,1,'','','Hi James,\n\nI am using the end of line character to force two or more lines in the prompt.','',0,'2g==','1h8c6yqq',1,0,'',234,0,0),(40811,8680,3,31,0,'78.56.50.234',1194020743,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3btepjhp]My mistake, you can directly execute it from memory too <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n   __HrbRun( MemoRead( \"another.hrb\" ) )[/quote:3btepjhp] \n\n\n   Thanks for the samples and explanations , Antonio . I\'ll tried that . Only one question - can we use FWH syntax in this externals prgs ? That\'s the \"another.prg\" can contain DIALOG , BUTTONS , GET in FWH syntax ? Also it\'s one important - will that suport native class ? I\'m using xHarbour Bcc ...\n\n  With best regards ! Rimantas','',0,'gA==','3btepjhp',1,0,'',31,0,0),(40812,8693,6,102,0,'87.217.67.91',1194021110,1,0,1,1,1,1,'','','Juan Carlos\nUtilizo ficheros RES y al final de la compilacion y enlace da el siguiente error aunque si ejecuta la aplicacion:\nFATAL: No fué encontrado D:\\Emails\\Resource\\Emails.RC','',0,'gA==','19p2rrvp',1,0,'',102,0,0),(40813,8660,3,3,0,'80.81.159.19',1194021822,1,0,1,1,1,1,'','','Antonio\n\ntried several locations, \n\nOn init the result is bad, \n\ntried lzoom := .t.  same bad painting\n\nAny idea where i should call it from ?\n\nRichard','',0,'gA==','1cpnrlj2',1,0,'',3,0,0),(40814,7976,6,439,0,'200.125.50.252',1194022268,1,0,1,1,1,1,'','','cuelgo una version  operativa\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?cxxmxhbtsul\">http://www.mediafire.com/?cxxmxhbtsul</a><!-- m -->','',0,'gA==','vi77oo0o',1,0,'',439,0,0),(40815,8680,3,31,0,'78.56.50.234',1194022302,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:6os73id6]Yes thanks. I forgot to unload the pointer.\n\n[code:6os73id6]\nFUNCTION xHrbRun&#40; cHRBfileNameOrcHRBCode &#41;\n\nLOCAL pHrb\n\n   __HrbRun&#40; pHrb &#58;= __HrbLoad&#40; cHRBfileNameOrcHRBCode &#41; &#41;\n   __HrbUnload&#40; pHrb &#41;\n\nRETURN NIL\n// Note&#58; arguments support still to be added\n[/code:6os73id6]\nThe above function can be used for .hrb file on disk or hrb compiled code in memory ( ideal for storing in database and execute retrieved code )[/quote:6os73id6]\n\n\n  Always get error :\n\n[code:6os73id6]\nApplication\n===========\n   Path and name&#58; C&#58;\\A\\AMDI\\eng32&#46;exe &#40;32 bits&#41;\n   Size&#58; 2,767,360 bytes\n   Time from start&#58; 0 hours 0 mins 7 secs \n   Error occurred at&#58; 2007&#46;11&#46;02, 18&#58;43&#58;23\n   Error description&#58; Error BASE/9999  Corruption detected&#58; __HRBLOAD\n   Args&#58;\n\nStack Calls\n===========\n   Called from&#58;  =&gt; __HRBRUN&#40;0&#41;\n   Called from&#58; ENG32&#46;PRG =&gt; XHRBRUN&#40;2190&#41;\n   Called from&#58; ENG32&#46;PRG =&gt; TAPPLIC&#58;SCRPT&#40;1819&#41;\n   Called from&#58; ENG32&#46;PRG =&gt; &#40;b&#41;TAPPLIC&#58;BUILDBAR&#40;691&#41;\n   Called from&#58; btnbmp&#46;prg =&gt; TBTNBMP&#58;CLICK&#40;0&#41;\n   Called from&#58; btnbmp&#46;prg =&gt; TBTNBMP&#58;LBUTTONUP&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; control&#46;prg =&gt; TBTNBMP&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; ENG32&#46;PRG =&gt; TAPPLIC&#58;ACTIVATE&#40;344&#41;\n   Called from&#58; ENG32&#46;PRG =&gt; MAIN&#40;109&#41;\n[/code:6os73id6]\n\n  What I\'m doing bad ? \n\n  Regards ! Rimantas','',0,'gIA=','6os73id6',1,0,'',31,0,0),(40816,6999,6,1178,0,'200.24.127.11',1194022979,1,0,1,1,1,0,'','','[quote=&quot;ralph&quot;:1bgsi5tz]parece que no estas usando la clase Tdosprn que viene en el ejemplo, verifica.\n\nRalph[/quote:1bgsi5tz]\n\nCuando genero la impreion me genera el siguiente error. \n\nCLASS:\"NUMERIC\" has no Exported method;\nSAYBITMAP\nError BAse 1004/Class: Numeric has no Exported method SAYBITMAP\n\nDe todas maneras el reporte lo genera\n\n\n\n\nComo se podria corregir este error o me falta algun Instructivo','',0,'gA==','1bgsi5tz',1,0,'',1178,0,0),(40817,8680,3,2,0,'87.218.146.65',1194024113,1,0,1,1,1,1,'','','Rimantas,\n\n&gt;\nOnly one question - can we use FWH syntax in this externals prgs ? That\'s the \"another.prg\" can contain DIALOG , BUTTONS , GET in FWH syntax ? Also it\'s one important - will that suport native class ? I\'m using xHarbour Bcc ...\n&gt;\n\nYes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1h9ty9nm',1,0,'',2,0,0),(40818,8680,3,2,0,'87.218.146.65',1194024452,1,0,1,1,1,1,'','','Rimantas,\n\nPlease try the test I posted','',0,'gA==','s3fo4chk',1,0,'',2,0,0),(40819,8660,3,2,0,'87.218.146.65',1194024751,1,0,1,1,1,1,'','','Richard,\n\nIf you do a:\n\nPRINT oPrn PREVIEW\n...\nENDPRINT\n\nthen you have no way to access to oPreview object. And you need to send it the :Zoom() msg. Unless I am missing something.\n\nYou could easily modify source/classes/rpreview.prg and do it here:\n[code:543lkcjr]\nfunction RPreview&#40; oDevice &#41;\n\n   local oPreview &#58;= TPreview&#40;&#41;&#58;New&#40; oDevice &#41;\n\n   oPreview&#58;Zoom&#40;&#41;\n   oPreview&#58;Activate&#40;&#41;\n\nreturn nil\n[/code:543lkcjr]','',0,'AIA=','543lkcjr',1,0,'',2,0,0),(40820,8621,7,2,0,'87.218.146.65',1194025057,1,0,1,1,1,1,'','','Juan Antonio,\n\n&gt; ¿Cuál es la mejor manera para editar los PRG y los resources? ¿Ambos con PellesC? ¿Usando un proyecto que contenga todos los archivos?\n\nNosotros usamos y recomendamos \"UEStudio\":\n<!-- m --><a class=\"postlink\" href=\"http://www.ultraedit.com/index.php?name=Downloads&amp;d_op=viewdownload&amp;cid=13\">http://www.ultraedit.com/index.php?name ... oad&amp;cid=13</a><!-- m -->\n\nUsando un fichero de configuración para UEStudio que te proporcionaremos, puedes escribir tus aplicaciones en FWPPC y construir los EXEs.\n\nUEStudio lleva incluido un editor de recursos aunque es más simple que el que proporciona PellesC. Por lo que puedes usar UEStudio para los recursos tambien, ó editarlos con el PellesC. Como prefieras.','',0,'AIA=','2u978cap',1,0,'',2,0,0),(40821,8700,3,448,0,'81.84.210.208',1194025060,1,0,1,1,1,0,'','Returning the focus to the previous control','Hi,\n\nWhen I have 2 browses in a window and I press a button when it returns it doesn\'t give the focus to the previously focused control but instead always to the ::acontrols[1]. \n\nIt seems to be a bug.\n\nAnyone knows turn around ?\n\nAntonio','',0,'','14dpo094',1,0,'',448,0,0),(40822,8697,6,1201,0,'200.90.17.154',1194025179,1,0,1,1,1,0,'','','PARA DONDE TE LO MANDO???','',0,'','312o3gmt',1,0,'',1201,0,0),(40823,8701,3,148,0,'196.205.216.10',1194025364,1,0,1,1,1,0,'','xBrowse Database fields','What method to be used to choose certain fields in certain order to browse using xbrowse.\n[code:2l34avcu]\nmethod browser&#40;&#41;\n\n   local oDlg,oBrw,oMeter,oFont,oCol,nFor,oChild\n\n   &#58;&#58;setOrder&#40;2&#41;\n   &#58;&#58;gotop&#40;&#41;\n\n\n   define font oFont name &quot;Ms Sans Serif&quot; size 0,-14 BOLD\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;meter reads browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n   oBrw&#58;SetRDD&#40;&#41;\n   \n\n\n      for nFor &#58;= 1 to &#58;&#58;Fcount&#40;&#41;\n      	oBrw&#58;aCols&#91; nFor &#93;&#58;oDataFont &#58;= oFont\n      next\n    \n   // Setup for using database class\n   oBrw&#58;cAlias&#58;= &#58;&#58;cAlias\n   oBrw&#58;bSkip&#58;= &#123;|nRecs| &#58;&#58;skipper&#40; nRecs &#41; &#125;\n   oBrw&#58;bGotop&#58;= &#123;|| &#58;&#58;gotop&#40;&#41; &#125;\n   oBrw&#58;bGoBottom&#58;= &#123;|| &#58;&#58;goBottom&#40;&#41; &#125;\n   oBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil, &#58;&#58;RecNo&#40;&#41; , &#58;&#58;Goto&#40; n &#41; &#41; &#125;\n   \n\noMeter&#58;= self\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;, BuildButtons&#40; oMeter,oBrw,oDlg&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;, oDlg&#58;Refresh&#40;&#46;t&#46;&#41;&#41; \n\n\n\n\n\n\nRETURN nil\n[/code:2l34avcu]','',0,'AIA=','2l34avcu',1,0,'',148,0,0),(40824,8700,3,2,0,'87.218.146.65',1194025581,1,0,1,1,1,1,'','','Antonio,\n\nWhen you click a button the focus is given to the button before firing its action. What you can do is give the focus to the browse that you want, later on:\n\n... BUTTON ... ACTION ( ..., SetFocus( oBrowse1:hWnd ) )\n\nor use oBrowse2 instead of oBrowse1 there','',0,'AIA=','odgh0pak',1,0,'',2,0,0),(40825,8657,12,2,0,'87.218.146.65',1194026294,1,0,1,1,1,1,'','','Wilson,\n\nUsas la tecla tab para pasar desde un GET al siguiente ?','',0,'AIA=','2omb08op',1,0,'',2,0,0),(40826,8702,3,1193,0,'59.105.14.100',1194026318,1,0,1,1,1,0,'','FWH0710 BtnBMP question?','Hi\n\nI copy FWH0710 Bar.prg and BtnBmp.prg and some .C files to my old FWH\nversion( not use New FWH0710 Fivehc.lib and Fivehx.lib )\n\nI found my BtnBmp bitmap disappear. Look it below:\n\n[url=http&#58;//img258&#46;imageshack&#46;us/my&#46;php?image=20071103014906rb0&#46;jpg:29xterl7][img:29xterl7]http&#58;//img258&#46;imageshack&#46;us/img258/4962/20071103014906rb0&#46;th&#46;jpg[/img:29xterl7][/url:29xterl7]\n\nIf I remove new BtnBmp.prg and keep old, work fine. Look it below:\n\n[url=http&#58;//img258&#46;imageshack&#46;us/my&#46;php?image=20071103015026jo7&#46;jpg:29xterl7][img:29xterl7]http&#58;//img258&#46;imageshack&#46;us/img258/966/20071103015026jo7&#46;th&#46;jpg[/img:29xterl7][/url:29xterl7]\n\nBut ButtonBar 2007 + BtnBmp can show 2007 style.\n\nAny idea for it?\n\nRegards,\n\nRichard','',0,'GA==','29xterl7',1,0,'',1193,0,0),(40827,8700,3,448,0,'81.84.210.208',1194026578,1,0,1,1,1,0,'','','Antonio,\n\nThe explanation below demonstrates what I mean. It works fine on win16 but as previuously discussed the process win32 is handling focusing it\'s totally diferent:\n\nb:bgotfocus := {... configure buttons in the window etc. to recognize this browse is active (focused)}\n\nc:bgotfocus := {same for the seconed browse, it configures all the buttons in the window to know that this is the active browse.}\n\nThe problem is that every time I click a button it always gives the focus to the first browse before it runs the ACTION of the button although the second it\'s focused before clikc the button.\n\nAntonio','',0,'GA==','5iqm7hwr',1,0,'',448,0,0),(40828,8641,6,1201,0,'200.90.17.154',1194027101,1,0,1,1,1,0,'','','YA LO RESOLVÍ, GRACIAS.....\n\nAQUI LO DEJO, POR SI ACASO A ALGUIEN LE OCURRE LO MISMO...\n\n\n\n************************************************************* \nFUNCTION prueba() &amp;&amp; Programa de prueba \n************************************************************* \nLOCAL oDlg ,; \noButSalir ,; \noTabla ,; \noLbx ,; \ncTabla := \"DtsCiudad\" \n\nDEFINE TABLE oTabla ; \nNAME cTabla DATAFIELD ; \nORDER BY 1 ; \nOF oDtBase \n\n// Traemos el resultado a nuestro cliente \nOPEN TABLE oTabla \n\n\n*oTabla := TMsTable( cTabla ):New( oDtBase, cTabla ) \n// Con DataFields: \n// oTabla := TMyTable( cTabla ):New( oDtBase, cTabla ) \n\n// Traemos el resultado a nuestro cliente \nIF oTabla:lOpened \n\n\nDEFINE DIALOG oDlg RESOURCE \"prueba\"; \nTITLE \'Prueba con oTabla\' \noDlg:lHelpIcon :=.f. &amp;&amp; Apago el Icono de Help \n\nREDEFINE LISTBOX oLbx ; \nFIELDS PadL( oTabla:FieldGet( 1 ), 6, \" \" ),; \noTabla:xFieldGet( 3 ), ; \noTabla:xFieldGet( 4 ), ; \noTabla:xFieldGet( 5 ), ; \noTabla:xFieldGet( 6 ) ; \nHEADERS \"Codigo\", ; \n\"Cod/Estado\", ; \n\"Ciudad\", ; \n\"Abreviatura\", ; \n\"Cod.Area\" ID 401 OF oDlg \n\nREDEFINE BUTTON oButSalir ID 101 OF oDlg; \nACTION oDlg:End() \n\noTabla:GoTop():Read() // No se olvide nunca de esta linea \nMySetBrowse( oLbx, oTabla ) \n\noLbx:cAlias:=\"ARRAY\"  // &lt;==== SIN ESTO NO TRABAJA &lt;&lt;===\n\noDlg:oClient := oLbx \n\nACTIVATE DIALOG oDlg CENTER \n\noTabla:close() \nELSE \nMSGALERT(\"No se puede abrir la tabla: \" + cTabla ) \nENDIF \nRETURN NIL','',0,'GA==','wt9gkop5',1,0,'',1201,0,0),(40829,8701,3,51,0,'80.122.88.242',1194028510,1,0,1,1,1,0,'','','Hello Ehab,\nmaybe this can help you.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8684\">http://fivetechsoft.com/forums/viewtopic.php?t=8684</a><!-- m -->','',0,'GA==','2fhysr42',1,0,'',51,0,0),(40830,8621,7,1185,0,'88.2.204.212',1194028617,1,0,1,1,1,1,'','','Gracias Antonio, ya lo he descargado. ¿Desde donde puedo bajar elfichero de configuración?','',0,'GA==','pwp7y28v',1,0,'',1185,0,0),(40831,8680,3,31,0,'78.56.50.234',1194029003,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3g6sxdpr]Rimantas,\n\nPlease try the test I posted[/quote:3g6sxdpr]\n\n Thanks Antonio ! Your test is working - simply __HbRun() . Also I tried with __HbRun( MemoRead( cFile ) ) - it return the same error \"Corupption detected __HbLoad\" . It seems that works only HbRun ... \n\n  Many thanks Antonio , it seems that you directed me to true way ... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n  With best regards ! Rimantas','',0,'gA==','3g6sxdpr',1,0,'',31,0,0),(40833,6999,6,305,0,'200.106.36.75',1194030280,1,0,1,1,1,0,'','','ese metodo SayBitmap() es de la clase tPrinter, verifica que estes linkeando con una version actualizada.\n\nSaludos\n\nRalph','',0,'gA==','15misv00',1,0,'',305,0,0),(40834,8697,6,221,0,'200.109.27.176',1194031962,1,0,1,1,1,1,'','','vaya muy agradecido, a <!-- e --><a href=\"mailto:alex_patino74@hotmail.com\">alex_patino74@hotmail.com</a><!-- e -->','',0,'gA==','21mb4wk7',1,0,'',221,0,0),(40835,8690,6,644,0,'200.82.33.167',1194035256,1,0,1,1,1,0,'','','Gracias marcelo por tu respuesta. Te adjunto el codigo y puedes mirar que está mal. Yo no he podido hacerlo funcionar.\n[code][/code]\nFunction Creatabla()\n\nLocal i\nLocal cCadena\nLocal oCn      :=CreateObject(&quot;ADODB.Connection&quot;)\nLocal aNombres := { { &quot;Pedro&quot;, &quot;3222551.00&quot;, &quot;1998-10-15&quot; }, { &quot;Juan&quot;, &quot;2.21&quot;, &quot;1998-10-15&quot; }, { &quot;Tadeo&quot;, &quot;3.58&quot;, &quot;1998-10-15&quot; } }\n\noCn : Open( &quot;Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=alumnos;User=root;Password=root;Option=3;&quot;)\noCn : Execute( &quot;drop database if exists alumnos&quot;, &quot;DROP&quot; )\noCn : Execute( &quot;create database alumnos&quot;, &quot;CREATE&quot; )\noCn : Execute( &quot;create table alumnos( codigo int( 10 )  primary key auto_increment, nombre varchar(30), fecha_nacimiento varchar(15), Importe decimal( 10, 2 ) Default 0.00 ) TYPE=InnoDB &quot;, &quot;CREATE&quot; )\n\nFor i := 1 To Len( aNombres )\n   cCadena := &quot;insert into alumnos(nombre,fecha_nacimiento,importe) values ( \'&quot; + aNombres[ i ][ 1 ] + &quot;\', \'&quot; + aNombres[ i ][ 3 ] + &quot;\', &quot; + aNombres[ i ][ 2 ] + &quot; )&quot;\n   oCn : Execute( cCadena, \'INSERT\' ) &lt;- aqui marca error\nNext i\noCn : Close()\nReturn 0\n\nFichero de error\n\n   Path and name: C:\\ado\\T-REX.EXE (32 bits)\n   Size: 1,702,400 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 11/02/07, 17:24:42\n   Error description: Error ADODB.Connection/16389  E_FAIL: EXECUTE\n   Args:\n     [   1] = C   create table alumnos( codigo int( 10 )  primary key auto_increment, nombre varchar(30), fecha_nacimiento varchar(15), Importe decimal( 10, 2 ) Default 0.00 ) TYPE=InnoDB \n     [   2] = C   CREATE\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:EXECUTE(0)\n   Called from: ado.prg =&gt; CREATABLA(213)\n   Called from: ado.prg =&gt; (b)MUESTRASQL(127)\n   Called from: TOOLBAR.PRG =&gt; TTOOLBAR:COMMAND(0)\n   Called from: window.prg =&gt; TMDICHILD:COMMAND(949)\n   Called from: window.prg =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3159)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TMDIFRAME:ACTIVATE(895)\n   Called from: ado.prg =&gt; MAIN(14)','31d0e53cd81c24f96c970f940d05e576',0,'','1ba0jkcr',1,1291946038,'',644,1,0),(40836,8680,3,303,0,'72.220.100.171',1194035577,1,0,1,1,1,0,'','','__HrbRun( MemoRead( \"another.hrb\" ) )\n\nI\'m confused. What is in an .HRB file? Is it simply FW code? If so, then could we just read a PRG? Any PRG?\n\n__HrbRun( MemoRead( \"another.prg\" ) ) \n\nJames','',0,'','in03bwz6',1,0,'',303,0,0),(40837,8700,3,303,0,'72.220.100.171',1194035944,1,0,1,1,1,0,'','','&gt;The explanation below demonstrates what I mean. It works fine on win16 but as previuously discussed the process win32 is handling focusing it\'s totally diferent:\n\nAre you comparing the same version of FW compiled as both 16bit and 32bit? If not, then it may be due to a change in a newer version of FW. If yes, then it is a difference in Windows which you will have to code around.\n\nCan you provide a VERY small example showing the problem?\n\nJames','',0,'','3ghbdhyp',1,0,'',303,0,0),(40838,8621,7,2,0,'87.218.146.65',1194040352,1,0,1,1,1,1,'','','Juan Antonio,\n\nEl fichero de configuración lo puedes descargar desde aqui:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/67026364/fwppc.zip.html\">http://rapidshare.com/files/67026364/fwppc.zip.html</a><!-- m -->\n\nLuego crea un directorio en:\nc:\\Archivos de Programa\\IDM Computer Solutions\\UEStudio \'06\\configs\\FWPPC\ny copia ahí el contenido del fichero ZIP\n\nAqui tienes unas pantallas que muestran como se usa el UEStudio:\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img352&#46;imageshack&#46;us/img352/5883/uestudio1vn1&#46;png[/img:1uob47cx][/url:1uob47cx]\n\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img482&#46;imageshack&#46;us/img482/5296/uestudio2dk8&#46;png[/img:1uob47cx][/url:1uob47cx]\n\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img482&#46;imageshack&#46;us/img482/9103/uestudio3qh7&#46;png[/img:1uob47cx][/url:1uob47cx]\n\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img352&#46;imageshack&#46;us/img352/200/uestudio4ua5&#46;png[/img:1uob47cx][/url:1uob47cx]\n\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img482&#46;imageshack&#46;us/img482/9171/uestudio5ym3&#46;png[/img:1uob47cx][/url:1uob47cx]\n\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img352&#46;imageshack&#46;us/img352/278/uestudio6rf0&#46;png[/img:1uob47cx][/url:1uob47cx]\n\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img482&#46;imageshack&#46;us/img482/6035/uestudio7dm5&#46;png[/img:1uob47cx][/url:1uob47cx]\n\n[url=http&#58;//imageshack&#46;us:1uob47cx][img:1uob47cx]http&#58;//img352&#46;imageshack&#46;us/img352/160/uestudio8ru4&#46;png[/img:1uob47cx][/url:1uob47cx]','',0,'GA==','1uob47cx',1,0,'',2,0,0),(40839,8621,7,2,0,'87.218.146.65',1194040520,1,0,1,1,1,1,'','','En el ejemplo cambia #include \"FiveWin.ch\" por \"FWCE.ch\"\n\nSi tienes alguna dificultad, por favor no dudes en preguntarme','',0,'GA==','3ugsxh52',1,0,'',2,0,0),(40840,8680,3,2,0,'87.218.146.65',1194042418,1,0,1,1,1,1,'','','James,\n\n&gt; What is in an .HRB file?\n\nHRB is a binary file (not ascii) that contains some specific Harbour information (pcode, symbols table). \n\nIts called \"Harbour portable file\" as theoretically could be executed on any operating system, as it does not include any operating system related info.','',0,'GA==','30gxgblp',1,0,'',2,0,0),(40841,8703,6,760,0,'200.37.76.91',1194043003,1,0,1,1,1,0,'','Bitmaps en Header del TWBrowse','Hola a todos del foro\n\nComo puedo poner bitmaps en el header del twbrowse de hernan, es que no tengo ningun ejemplo sobre ello.\nQuiero que en una columna aparesca un bitmap con una señal que indique que esta ordenado por esa columna y si cambio de columna, el de la primera aparesca el bitmap desactivado, y la otra activado.\n\nGracias\n\nSalu2','',0,'GA==','58fv4elh',1,0,'',760,0,0),(40842,8690,6,228,0,'201.244.208.205',1194045504,1,0,1,1,1,1,'','Amigo...','Amigo prueba con este a mi me funciona de maravilla\n\n[code:m1az8ym1]\n\ncCommandSql	&#58;= &quot;CREATE TABLE IF NOT EXISTS Cliente &#40;&quot; +;\n					&quot;CLI_NUM INTEGER UNSIGNED COMMENT \'Número de cliente\',&quot; +;\n					&quot;CLI_NOM VARCHAR&#40;70&#41; DEFAULT \'\'COMMENT \'Nombre del cliente\',&quot; +;\n					&quot;PRIMARY KEY&#40;CLI_NUM&#41; &#41;&quot; +;\n					&quot;ENGINE = InnoDB COMMENT = \'Maestro de clientes\';&quot;\n\n[/code:m1az8ym1]\n\nSi tienes los permisos para crear tablas?\n\nEspero te sirva..','',0,'AIA=','m1az8ym1',1,0,'',228,0,0),(40843,2502,17,582,0,'200.117.112.141',1194052793,1,0,1,1,1,0,'','','[quote=&quot;ruben Dario&quot;:1xlu65dx][quote=&quot;jvargas&quot;:1xlu65dx]Hola Antonio\nNo puedo abrir este archivo con el winzip\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27920493/TWBrowse_Hernan.zip.html\">http://rapidshare.com/files/27920493/TW ... n.zip.html</a><!-- m -->\nhay algun otro archivo?\nSaludos y Gracias\nJorge Vargas[/quote:1xlu65dx]\n\nLo he bajado varias veces , y al abrir con winzip no abre, hay otra direccion para descargar[/quote:1xlu65dx]\n\nProba con cambiarle la extencion a .exe y fijate.\n\nUn abrazo. El Loco =&gt;))','',0,'gA==','1xlu65dx',1,0,'',582,0,0),(40844,8697,6,138,0,'200.123.174.115',1194055168,1,0,1,1,1,1,'','','¿ Que Eagle no es un producto comercial ?...\n\ndigo, hasta donde yo se, no lo han dejado al dominio publico, y hay que pagar por el.... ¿¿¿ Manu ????','',0,'gA==','3tqaezys',1,0,'',138,0,0),(40845,8704,19,911,0,'200.72.141.51',1194055729,1,0,1,1,1,1,'','Software para testeo TCP/UDP','Hola a todos:\nSabe alguien de algún software para poder testear conexiones tcp/udp en modo cliente/servidor?, es decir: una parte del software se carga sobre la máquina que va a actuar como cliente y la otra parte debe correr desde la máquina que actúa como cliente enviando los paquetes que uno necesite en cuanto a longitud, puerto de escucha, etc.','',0,'gA==','8y0xfana',1,0,'',911,0,0),(40846,8660,3,3,0,'80.81.159.19',1194067927,1,0,1,1,1,1,'','','Antonio\n\nI had done this also and the result is not good.\n\nI think an image shows better the problem\n\nI have uploaded two images\n\n<!-- w --><a class=\"postlink\" href=\"http://www.cbati.com/ZOOMNORMAL.jpg\">www.cbati.com/ZOOMNORMAL.jpg</a><!-- w -->  this image is obtained when zooming (not at init)\n\n<!-- w --><a class=\"postlink\" href=\"http://www.cbati.com/ZOOMONINIT.jpg\">www.cbati.com/ZOOMONINIT.jpg</a><!-- w --> this image is obtained when zooming at startup\n\nThanks for your help,\n\nRichard\n\nSee the difference in paiting','',0,'gA==','1479r7yv',1,0,'',3,0,0),(40847,8690,6,496,0,'200.107.36.176',1194068411,1,0,1,1,1,0,'','','Horacio\n\nProbé tu código tal cual (comentando las líneas de eliminación , creacion de la BD), creando la tabla en mi base de datos y funcionó bien insertando los registros en la tabla creada.\n\nA lo mejor tu problema es de privilegios del usuario sobre la Base de datos o algo así.\n\nPerdona por no poder ayudar más\n\nUn saludo\n\nMarcelo Jingo','',0,'gA==','huj9834o',1,0,'',496,0,0),(40848,8693,6,102,0,'87.217.67.91',1194070529,1,0,1,1,1,1,'','','Juan Carlos.\n\nAl tratar de añadir fuentes compartidas (.PRG/.C) casca este herror:\n\nApplication\n===========\n   Path and name: C:\\MySistema\\verce51\\xverce.Exe (32 bits)\n   Size: 2,088,960 bytes\n   Time from start: 0 hours 0 mins 41 secs\n   Error occurred at: 03/11/2007, 07:12:20\n   Error description: Error BASE/1003  Variable does not exist: CDIRPRG\n\nStack Calls\n===========\n   Called from: VERCE2.Prg =&gt; ADDUNFTE(528)\n   Called from: VERCE2.Prg =&gt; (b)NUEVO(255)\n   Called from: BUTTON.PRG =&gt; TBUTTONBMP:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: BUTTONB.PRG =&gt; TBUTTONBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: VERCE2.Prg =&gt; NUEVO(315)\n   Called from: VERCE.Prg =&gt; MODIFICAPROP(656)\n   Called from: VERCE.Prg =&gt; (b)MAIN(168)\n   Called from: TOOLBAR.PRG =&gt; TTOOLBAR:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: VERCE.Prg =&gt; MAIN(251)\n\n\nMuchas gracias','',0,'gA==','2w0yeoua',1,0,'',102,0,0),(40849,8705,3,51,0,'80.122.88.242',1194071496,1,0,1,1,1,0,'','xBrowse - numerical pad on keyboard','the numerical pad returns if you press 1   - &gt; 97 which is the ASC value for the a .\n\nCould someone please help on that.\n\nRegards,\nOtto','',0,'gA==','24q2z60c',1,0,'',51,0,0),(40850,8693,6,396,0,'200.71.186.108',1194073896,1,0,1,1,1,1,'','','[quote=&quot;QAZWSX2K&quot;:304hjpk1]ah otra tonteria realmente, dice en la dialogo inicial o en ?, la version 5.1 ok, pero 17 de nov de 2005\n\ny donde pones \"solo veracruz es bello\" pos pon una fotico a ver, jajaja o pon  \"caracas tambien lo es\", bueno es solo por molestar\n\nyo pienso que motivado a que esto es cedido gentilmente por el amigo y realemente lo hace sin ningun interes de lucro, podria darnos una direccion para mandarle una postal, asi podria saber si solo veracruz es bello, juan carlos podrias hacer una buena coleccion de postales[/quote:304hjpk1]\nQAZWSX2K, \nel %HOME% es solo con proyectos nuevos y me parece que lo de la fecha del 2005 es el nacimiento del VERCE, algo como Copyright(c) 2005-2007, imagino, nose...saludos, como esta Guarenas..?, Guatire en el mismo sitio hasta ahora... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->.\n\nHabia compilado con las versiones anteriores, solo agregue mis .VRC o los directorios donde estan y todo funcion bien, ese error 1003 normalmente es la falta de una variable en una DBF que se le hace un llamado... nose si hay otra causa por el cual se genere ese error... , el error 1003 que nombra JMUA solo lo hace cuando se crean proyectos nuevos, se podria colocar seleccion multiple de los .PRG que se van agregar compartidos, solo permite uno por uno, estoy descompilando VERCE en la raiz del disco duro y de verdad, todo bien, lo que si veo es que los detalles que te envie me respondio Willian que estaba resuelto, mas aun sigue apareciendo el error del TIPS No, 1 de los que te envie...saludos.\n\nEl error 1003 lo hace cuando el proyecto es NUEVO o si se le agrega otro archivo al proyecto existente...','',0,'gA==','304hjpk1',1,0,'',396,0,0),(40851,8686,6,102,0,'87.217.67.91',1194076714,1,0,1,1,1,1,'','','Antonio no me dijiste que HB_Sendmail() ya estava incluido en Xharbour, o entendi mal.\nMe dice:\nError: Unresolved external \'_HB_FUN_SENDMAIL\' referenced from D:\\EMAILS\\MYOBJ\\PRINCIPAL.OBJ\n\nGracias','',0,'gA==','2u136g6w',1,0,'',102,0,0),(40852,8686,6,2,0,'87.218.146.65',1194079194,1,0,1,1,1,1,'','','José,\n\nTienes que enlazar la librería Tip.lib de xHarbour','',0,'gA==','32cssl4j',1,0,'',2,0,0),(40853,8686,6,102,0,'87.217.67.91',1194081461,1,0,1,1,1,1,'','','Antonio quizas sea muy torpe pero añado la libreria tip.lib  y me sigue cascando el mismo error.\nEstoy utilizando verce y la añado en lib/obj de terceros, no veo otro sitio.\nNo tendras un ejemplo por hay \nGracias','',0,'gA==','1o5d214g',1,0,'',102,0,0),(40854,8686,6,2,0,'87.218.146.65',1194082869,1,0,1,1,1,1,'','','José,\n\nOjo que la función se llama HB_Sendmail() y no SendMail()\n\nLa estás usando con HB_ delante ?','',0,'gA==','uze5umju',1,0,'',2,0,0),(40855,8621,7,1185,0,'88.2.204.212',1194083538,1,0,1,1,1,1,'','','¿Es posible que la versión de pruebas no permita el uso de proyectos?\n\nMostraría con una imagen la ventana principal de UEstudio que se muestra al arrancar. No tiene nada que ver con los menús que tu tienes, como \"Proyecto\", etc.\n\nTengo una imagen capturada en jpg en la unidad C: ¿Como puedo insertarla en el mensaje?','',0,'gA==','3m4b5qku',1,0,'',1185,0,0),(40856,8701,3,148,0,'41.196.195.180',1194086587,1,0,1,1,1,0,'','','No I mean to force fields from a database using code and fix (always) browse .\nThanks','',0,'gA==','31ofjp7u',1,0,'',148,0,0),(40857,8696,20,1082,0,'82.187.120.133',1194086819,1,0,1,1,1,0,'','','Ok, ho trovato il problema....\nIl server 192.168.1.203 della mia azienda è in un\'altra sede dalla mia, se io cerco di collegarmi tramite il mio programma dalla mia sede mi da quell\'errore, se invece lo faccio dalla sede dove è il server va tutto bene.  Ho parlato con il mio sistemista di rete del problema e deve farmi sapere.... ai qualche idea tu?','',0,'gA==','j0blf406',1,0,'',1082,0,0),(40858,8693,6,246,0,'85.84.216.96',1194087771,1,0,1,1,1,0,'','Error al querer incluir un prg para compilación','He comenzado a utilizar Verce 5.1 y me parece genial para los que tenemos problemas con Make\nNo tengo experiencia con otras versiones anteriores,pero la actual me parece muy buena.\nEL error se produce al incluir un prg único (no da error al leer todos los prg del directorio).\n\nUn saludo y gracias','',0,'gA==','1vexa1m9',1,0,'',246,0,0),(40859,8706,6,246,0,'85.84.216.96',1194088129,1,0,1,1,1,0,'','NECESITO UNA VERSION DEL WBROWSE FUNCIONAL','He adquirido recientemente la version FVH 7.10 ,pero no consigo que me funcione la wbrowse de Hernan. La necesito porque quiero migrar de 16 a 32 mis aplicaciones.\n\nHe descargado una version 17 y he compilado los fuentes y el .c con verce 5.1 .Hasta aquí todo bien .\n\nAl ejecutar la aplicacion me genera el siguiente error que no entiendo pues OrdKeyCount() es nativo de CDX ó no ?\n\n\nError description: Error BASE/1001  Undefined function: ORDKEYCOUNT\n\nStack Calls\n===========\n   Called from:  =&gt; ORDKEYCOUNT(0)\n   Called from: wbrowse.prg =&gt; (b)TWBROWSE:SETFILTER(2670)\n   Called from: wbrowse.prg =&gt; (b)TWBROWSE:SETFILTER(2671)\n   Called from: wbrowse.prg =&gt; TWBROWSE:SETFILTER(2707)\n   Called from: wbrowse.prg =&gt; TWBROWSE:REDEFINE(861)\n   Called from: clientes.prg =&gt; CLIENTES(51)\n   Called from: bilbao.prg =&gt; (b)MAIN(52)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: bilbao.prg =&gt; MAIN(99)\n\nGracias de antemano por la ayuda','',0,'gA==','1uwqnilt',1,0,'',246,0,0),(40860,8705,3,138,0,'200.123.174.115',1194088518,1,0,1,1,1,1,'','','Otto:\n\nYou don\'t have to use the ASCII code for the keypad keys or the function keys.\n\nYou have to use the \"Virtual Key\" value provided in the VKEY.CH (linked automatically with Fivewin.ch).\n\nIn VKEY.CH you will find the value for the numeric key pad.\n\nGreetings from Argentina','',0,'gA==','1xn47cg1',1,0,'',138,0,0),(40861,8621,7,2,0,'87.218.146.65',1194088782,1,0,1,1,1,1,'','','Juan Antonio,\n\n&gt; Tengo una imagen capturada en jpg en la unidad C: ¿Como puedo insertarla en el mensaje?\n\nEntra a <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> y desde ahí selecciona tu imagen y envíala. Te proporcionaran un enlace para ver la imagen que tienes que copiar aqui, en tu mensaje. Gracias,','',0,'gA==','z3e38bzr',1,0,'',2,0,0),(40863,8702,3,2,0,'87.218.146.65',1194089570,1,0,1,1,1,1,'','','Richard,\n\nYou can not mix old and new FWH modules','',0,'gA==','sdmaz0po',1,0,'',2,0,0),(40864,8621,7,1185,0,'88.2.204.212',1194090614,1,0,1,1,1,1,'','','Aqui esta la imagen\n\n[img:b5ph0crt]http&#58;//img112&#46;imageshack&#46;us/img112/3513/uestudiovg6&#46;jpg[/img:b5ph0crt]','',0,'CA==','b5ph0crt',1,0,'',1185,0,0),(40865,8706,6,774,0,'200.72.65.102',1194090774,1,0,1,1,1,1,'','','CREO QUE DEBERIAS AGREGAR ESTAS LINEAS AL COMIENZA DE TU PRG PRINCIPAL:::\n\n\nREQUEST DBFCDX\nREQUEST OrdKeyCount, OrdKeyNo         // Para trabajar con DbfCdx\nREQUEST OrdKeyGoto\nEXTERNAL DBFCDX, DBFFPT\nRddSetDefault(\"dbfcdx\")\n\n\nSi es que mal no recuerdo, ese error es por querer usar CDX y no enganchas las lineas que te comento::\n\nojala te sirva','',0,'CA==','35n8a0be',1,0,'',774,0,0),(40866,8706,6,246,0,'85.84.216.96',1194091679,1,0,1,1,1,0,'','Asunto Resuelto .Muchas Gracias','Efectivamente me faltaba incorporar los REQUEST \n\nGracias por vuestra colaboración.','',0,'CA==','gq63g4ko',1,0,'',246,0,0),(40867,8696,20,6,0,'82.58.168.242',1194092077,1,0,1,1,1,1,'','','Probabilmente un problema di firewall.\n\nEMG','',0,'CA==','334w8igz',1,0,'',6,0,0),(40868,8702,3,1158,0,'200.139.130.189',1194093138,1,0,1,1,1,0,'','','Where you found this new modules??? you buy then ou someone give to you?? if you buy new fwh, why dont use this?','',0,'CA==','17ib05il',1,0,'',1158,0,0),(40869,8701,3,51,0,'80.122.88.242',1194093805,1,0,1,1,1,0,'','','I don’t know if I understand you well. \n\nDo you mean you want selected fields of a dbf file not all and these in a certain order.\n\nThen you have to use not:\noBrw:SetRDD() \nfor nFor := 1 to ::Fcount() \n         oBrw:aCols[ nFor ]:oDataFont := oFont \nnext\n\nbut for every field you want something like this:\n\noBrw:nRowHeight := 18 \n// 2 \noCol := oBrw:AddCol() \noCol:cHeader := \"LAST\" \noCol:bStrData := { || _FIELD-&gt;LAST} \noCol:nWidth := 146 \n// 1 \noCol := oBrw:AddCol() \noCol:cHeader := \"FIRST\" \noCol:bStrData := { || _FIELD-&gt;FIRST} \noCol:nWidth := 146','',0,'','3m5azeg7',1,0,'',51,0,0),(40870,8621,7,2,0,'87.218.146.65',1194094141,1,0,1,1,1,1,'','','Juan Antonio,\n\nPulsa el botón derecho del ratón sobre el menú arriba y selecciona \"Advanced\":\n\n[url=http&#58;//imageshack&#46;us:3ltzylb1][img:3ltzylb1]http&#58;//img528&#46;imageshack&#46;us/img528/7562/uestudiomc5&#46;png[/img:3ltzylb1][/url:3ltzylb1]','',0,'GA==','3ltzylb1',1,0,'',2,0,0),(40871,8707,3,868,0,'219.64.121.60',1194094868,1,0,1,1,1,1,'','On Init SetFocus Issue','When I have button and wbrowse controls in a dialog, I can not start with the browse focussed even when i use on init browse:setfocus.  Here is an example.\n\n[code:2v1p7tlh]\nFUNCTION BrwFocusTest\n\n   LOCAL oDlg, oBrw, oBtn\n\n   USE CUSTOMER NEW ALIAS CUST\n\n   DEFINE DIALOG oDlg SIZE 200,200 PIXEL\n\n   @ 10,10 BUTTON oBtn PROMPT \'Button\' SIZE 40,12 PIXEL OF oDlg\n\n   @ 30,10 LISTBOX oBrw FIELDS ;\n         SIZE 80, 60 PIXEL OF oDlg ;\n         ALIAS \'CUST\'\n\n\n   oBrw&#58;nClrBackFocus   &#58;= CLR_GREEN\n   oBrw&#58;nClrForeFocus   &#58;= CLR_WHITE\n\n   ACTIVATE DIALOG oDlg CENTER ;\n      ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n[/code:2v1p7tlh]\n\nI want the browse to get focus when the dialog starts. Despite the ON INIT clause, the focus is on the button.\n\nThere are two workarounds though. But I think this should work without workarounds. Can someone help me how to set focus to the browse initially ?\n\nI adopt one of the following two workarounds, but they are workarounds. I guess it should work without any workarounds:\n\n1.  After defining the button, oBtn:nStyle -= WS_TABSTOP.  Then naturally oBrw is the first control with tabstop and so it gets the focus anyway.\n\n2. Define the browse first and define the button in the subsequent program code. That way browse gets 1st tab stop and button gets the second tabstop despite their appearance.\n\nBut I want to focus on the browse initially without disturbing the taborders of the controls. How can I do  this please?','',0,'AIA=','2v1p7tlh',1,0,'',868,0,0),(40872,8707,3,2,0,'87.218.146.65',1194095110,1,0,1,1,1,1,'','','[code:guwifix2]\n   ACTIVATE DIALOG oDlg CENTER ; \n      ON INIT &#40; oBrw&#58;SetFocus&#40;&#41;, &#46;F&#46; &#41; \n[/code:guwifix2]','',0,'AIA=','guwifix2',1,0,'',2,0,0),(40873,8690,6,644,0,'200.82.29.144',1194095400,1,0,1,1,1,0,'','','Marcelo: Ya lo solucioné. No entiendo bien la lógica del motor. Supuse que eliminando la base de datos se eliminaba la tabla, pero parece que no es así. Si elimino solamente la tabla la crea perfectamente pero si elimino la database y vuelvo a crear la base de datos y la tabla me marca un error. Gracias a todos por haber seguido este hilo y la ayuda que me brindaron','',0,'AIA=','1i808cbq',1,0,'',644,0,0),(40874,8707,3,3,0,'80.81.159.19',1194096203,1,0,1,1,1,1,'','Re: On Init SetFocus Issue','An easy way that always works for me\n\nODLG:bSTART := { || OBRW:SETFOCUS() }\n\nHth\n\nRichard','',0,'AIA=','1i1s8dnn',1,0,'',3,0,0),(40875,8680,3,868,0,'219.64.121.60',1194096500,1,0,1,1,1,1,'','','Does any one know the equivalent of Harbour\'s hb_compileBuf() in xHarbour please?','',0,'AIA=','18gfd3ib',1,0,'',868,0,0),(40876,8680,3,2,0,'87.218.146.65',1194097127,1,0,1,1,1,1,'','','afaik, it is not implemented in xharbour <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'AIA=','78ingxaw',1,0,'',2,0,0),(40877,8688,6,46,0,'217.168.114.35',1194097632,1,0,1,1,1,0,'','','Un metodo adicional para TDataBase\n\n[code:14cj21ho]\n//eliminando duplicado para indices UNIQUE&#46;&#46;&#46; \n//puede tener varias ordenes por esos no se puede hacer zap\n\n&#46;&#46;&#46;\nUSE BASE3 EXCLUSIVE\nDATABASE oDbf\noDbf&#58;SetOrder&#40; &quot;TuOrdenUnique&quot; &#41;\noDbf&#58;CheckUnique&#40;&#41;\n\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\nMETHOD CheckUnique&#40;&#41; CLASS TDataBase\n   Local cTmpFile &#58;= cTempFile&#40;&#41;\n\n   &#40; &#58;&#58;nArea &#41;-&gt;&#40; __dbCopy&#40; cTmpFile &#41; &#41;\n\n  // Elimando haste que no kede ninguno\n   Do While &#40; &#58;&#58;cAlias &#41;-&gt;&#40; DbOrderInfo&#40; DBOI_KEYCOUNT &#41; &#41; &gt; 0\n\n      &#58;&#58;GoTop&#40;&#41;\n\n      &#58;&#58;Eval&#40; &#123; || dbDelete&#40;&#41; &#125; &#41;\n      &#40; &#58;&#58;nArea &#41;-&gt;&#40; __dbPack&#40;&#41; &#41;\n      SysRefresh&#40;&#41;\n\n   EndDo\n\n   &#40; &#58;&#58;nArea &#41;-&gt;&#40; __dbApp&#40; cTmpFile &#41; &#41;\n\n   FErase&#40; cTmpFile + \'&#46;Dbf\' &#41;\n   Return Nil[/code:14cj21ho]\n\nSaludos\n.........','',0,'AIA=','14cj21ho',1,0,'',46,0,0),(40878,8707,3,868,0,'219.64.121.60',1194099834,1,0,1,1,1,1,'','','Mr Antonio and Mr Richard\n\nThank you both very much. Yes both solutions work. \n\nBut Mr Antonio, will you kindly enlighten me what magic does this .F. return value do ? Why is it important?','',0,'AIA=','7x9pyw3m',1,0,'',868,0,0),(40879,8708,6,1014,0,'201.230.241.157',1194100577,1,0,1,1,1,1,'','Browse de Hernan','Hola Amigos\nTodavía no puedo hacer funcionar el Browse de Hernán ,\nCuando compilo el wBrwLine.c me da 26 errores. Para compilar uso:\necho -O2 -ewBrwLine.exe -I%hdir%\\include;%fwh%\\include wBrwLine.c &gt;b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc &gt; clip.log\n\nTratando de averiguar cual es el origen del error, compilo el wBrwLine.c que trae el Fw 7.05 y me da el sgte. Diagnostico:\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\n\\fwh\\source\\function\\wbrwline.c:\nError E2451 \\fwh\\source\\function\\wbrwline.c 655: Undefined symbol \'params\' in function ABRWPOSREC\nWarning W8065 \\fwh\\source\\function\\wbrwline.c 655: Call to function \'PARNL\' with no prototype in function ABRWPOSREC\n*** 1 errors in Compile ***\n que es esta línea\n\n        l = _parnl( 3, wIndex );\n\nY como el Lenguaje C es igual que chino para mí. Alguno de Uds. conocedores de C, podría echarme una manito? \no hago algun error?\n\nMuchas gracias\nJorge Vargas','',0,'AIA=','jljziptg',1,0,'',1014,0,0),(40880,8708,6,53,0,'189.139.15.127',1194101050,1,0,1,1,1,1,'','','Jorge:\n\nYo la he compilado con VERCE y no he tenido problemas, funciona bien.\n\nQue usas para compilar ?\n\nSaludos','',0,'AIA=','1wc9dj6y',1,0,'',53,0,0),(40881,8680,3,868,0,'219.64.121.60',1194104160,1,0,1,1,1,1,'','','Sad. Missing a really powerful and very useful function.','',0,'AIA=','2zrxwxtz',1,0,'',868,0,0),(40882,8705,3,51,0,'80.122.88.242',1194105151,1,0,1,1,1,0,'','','Hello Rene,\nare you on holidays in Argentina or working?\nDo you have a code sample how to use “virtual key”?\n\nWhy does xBowse return other values than wbrowse.\nAs far as I understand both inherit from TControl and the method keydown is\nthe same in xBrowse than in wbrowse.\n\nRegards,\nOtto','',0,'AIA=','3cl4f3k4',1,0,'',51,0,0),(40883,8657,12,179,0,'200.105.231.142',1194106487,1,0,1,1,1,1,'','','da lo mismo la tecla tab o el mouse, la diferencia esta que si paso con tab se selecciona todo el bloque del get, pero si lo hago con el mouse, no se selecciona pero igual se coloca en una posicion mayor a la primera lo que sigue estando mal\n\ngracias\n\natt','',0,'AIA=','1yww8tno',1,0,'',179,0,0),(40884,8703,6,73,0,'189.157.189.8',1194109334,1,0,1,1,1,0,'','','Francis\naqui la respuesta por RF\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=151&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\nsalu2\npaco','',0,'AIA=','2w6us556',1,0,'',73,0,0),(40885,8707,3,2,0,'87.218.146.65',1194110733,1,0,1,1,1,1,'','','&gt;\nBut Mr Antonio, will you kindly enlighten me what magic does this .F. return value do ? Why is it important?\n&gt;\n\nIt is the way the Windows API has been designed. FWH uses the standard Windows dialogbox procedure. From the Microsoft API docs:\n\n&gt;\nThe dialog box procedure should return TRUE to direct the system to set the keyboard focus to the control specified by wParam. Otherwise, it should return FALSE to prevent the system from setting the default keyboard focus.\n&gt;','',0,'AIA=','2alsy7pf',1,0,'',2,0,0),(40886,5952,3,154,0,'151.21.33.72',1194111283,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:35kmb6jv]Try this:\n\n[code:35kmb6jv]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExplorer &#58;= CREATEOBJECT&#40; &quot;InternetExplorer&#46;Application&quot; &#41;\n\n    oExplorer&#58;Navigate2&#40; &quot;www&#46;emagsoftware&#46;it/gratis&#46;htm&quot; &#41;\n\n    WHILE oExplorer&#58;ReadyState &lt;&gt; 4\n        HB_IDLESLEEP&#40; 1 &#41;\n    ENDDO\n\n    ? oExplorer&#58;Document&#58;Body&#58;InnerText\n\n    oExplorer&#58;Quit&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:35kmb6jv]\n\nEMG[/quote:35kmb6jv]\n\nDear Enrico,\nthis function on Vista Business and IE7 return this error:\n\"Error InternetExplorer.Application/1722  Unknown error: READYSTATE\"\ni do not know on ther O.S.  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \ncan you confirm and help me to fix?','',0,'gIA=','35kmb6jv',1,0,'',154,0,0),(40887,8707,3,868,0,'219.64.121.60',1194111418,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks for the clarification. Quite educative.','',0,'gIA=','1qdvfpko',1,0,'',868,0,0),(40888,8708,6,1014,0,'190.40.124.2',1194111721,1,0,1,1,1,1,'','','Hola Armando\nmuchas gracias por reponder\nyo uso el buildx.bat que viene con Fw, lo mismo que para compilar cualquier Prg. despues de hacerlo con Harbour que lo convierte a C viene:\n\necho -O2 -ewBrwLine.exe -I%hdir%\\include;%fwh%\\include wBrwLine.c         &gt;b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc &gt; clip.log \n\n y eso lo debe convertir a Obj\nLa verdad es que deseo quedarme con solamente lo que trae Fw. \nes bastante simple, pero parece que solo a mi me sucede esto.\notra vez gracias\nJorge Vargas','',0,'gIA=','cnidb6jo',1,0,'',1014,0,0),(40889,8705,3,2,0,'87.218.146.65',1194113620,1,0,1,1,1,1,'','','Otto,\n\nIf you do oXBrowse:bKeyDown = { | nKey | MsgInfo( nKey ) } and press 1 on the numeric keypad, then you get 97 which it is from vkey.ch:\n\n#define VK_NUMPAD1   97','',0,'gIA=','2egxsk9d',1,0,'',2,0,0),(40890,8709,6,121,0,'189.138.162.41',1194115372,1,0,1,1,1,1,'','WBROWSE DE HERNAN CON VERCE 5.1','Solicito su ayuda para generar libreria del wbrowse de Hernan\n\nHago lo siguiente:\nUTLIZO VERCE 5.1 Y LE DOY LOS SIGUIENTES PARAMETROS\n                                                                                                                                        \n[b:clyli71c]PROGRAMAS (PRG )[/b:clyli71c]\n\nC:\\HBROWSE\\PRUEBA\\WBROWSE.PRG\nC:\\HBROWSE\\PRUEBA\\TMULTISE.PRG\n\n[b:clyli71c]ARCHIVOS (C)[/b:clyli71c]\n\nC:\\HBROWSE\\PRUEBA\\WBRWLINE.C\n\n[b:clyli71c]PARAMETROS DE COMPILACION[/b:clyli71c]\n\nBCC32=/c /O2\nILINK1=/Gn /aa /Tpe /s\nILINK2=/Gn /Tpe /s\nXHARBOUR=/n /m /es2 /gc1\n\nTODO PARACE OK, PERO AL COMPILAR EL  ARCHIVO WBRLINE.C\nMANDA LOS SIGUIENTES ERRORES:\n\nWarning W8065 C:\\HBROWSE\\PRUEBA\\WBRWLINE.C 1183: Call to function\n\'hb_dynsymSymbol\' with no prototype in function HB_FUN_WBRWPANE\nError E2342 C:\\HBROWSE\\PRUEBA\\WBRWLINE.C 1183: Type mismatch in parameter\n\'pSym\' (wanted \'HB_SYMB *\', got \'int\') in function HB_FUN_WBRWPANE\n\nY POR LO TANTO LA LIBRERIA QUEDA INCOMPLETA\nALGUIEN TENDRA ALGUNA SOLUCION\n\nSALUDOS','',0,'QA==','clyli71c',1,0,'',121,0,0),(40891,8709,6,2,0,'87.218.146.65',1194117013,1,0,1,1,1,1,'','','Marco Augusto,\n\nAñade esta línea en el fichero en C, al principio:\n[code:351ckb1t]\nvoid * hb_dynsymSymbol&#40; void * &#41;;\n[/code:351ckb1t]','',0,'AIA=','351ckb1t',1,0,'',2,0,0),(40892,8705,3,51,0,'80.122.88.242',1194118414,1,0,1,1,1,0,'','','THank you, Antonio,\nNow I understand. For the small a  do I have to check the “Cap look” state?\n\n----------------------------------\n\nBut I don’t understand why these to browsers have different values.\n\nMethod keydown filters out some keys and passes if there is no hit the value \nto:\n           return Super:KeyDown( nKey, nFlags )\nwhich I think is the attached window?\nMaybe someone can explain this. Thanks in advance.','',0,'AIA=','3rd0i004',1,0,'',51,0,0),(40893,8710,6,73,0,'189.157.189.8',1194118437,1,0,1,1,1,0,'','ayuda tprinter forma continua','Por cuestion de graficas tengo que usar tprinter en un pdv en miniprinter epson; uso tdosprn sin problemas, pero ahora quiero usar tprinter, mi pregunta es:\nComo indicar con tprinter el papel de forma continua y no salte pagina?\nalguien que me pueda echar una mano.....\n\nsalu2\npaco','',0,'AIA=','2ep4jti1',1,0,'',73,0,0),(40894,5952,3,6,0,'87.20.227.56',1194119993,1,0,1,1,1,1,'','','A bug on Vista?\n\nEMG','',0,'AIA=','9hw516gi',1,0,'',6,0,0),(40895,5952,3,51,0,'80.122.88.242',1194120318,1,0,1,1,1,0,'','','Have you tried to run the program as Administrator?','',0,'AIA=','3syk4dj5',1,0,'',51,0,0),(40896,8710,6,644,0,'190.136.252.94',1194124015,1,0,1,1,1,0,'','','Francisco: para utilizar papel continuo debes configurar la página desde la impresora. Lo demás es fácil si utilizaste TPrinter. Espero te sirva\nsaludos','',0,'AIA=','1d8kmb5c',1,0,'',644,0,0),(40897,5952,3,308,0,'84.148.41.158',1194132200,1,0,1,1,1,0,'','Re: To clean up the files from HTML code','[quote=&quot;Ugo&quot;:8tpkhdvk]Hi fwh\'s,\n\nto clean up the files from HTML code,\nexists some function?[/quote:8tpkhdvk]\n\nlook at this tool:\n\n[url:8tpkhdvk]http&#58;//www&#46;baccan&#46;it/opensource/html2txt201&#46;zip[/url:8tpkhdvk]\n\nRegards, Norbert','',0,'kA==','8tpkhdvk',1,0,'',308,0,0),(40898,8705,3,2,0,'87.218.146.65',1194133665,1,0,1,1,1,1,'','','Otto,\n\n&gt;\nreturn Super:KeyDown( nKey, nFlags ) \nwhich I think is the attached window? \n&gt;\n\nIt is not the attached window. Its the Method KeyDown() from its parent Class TControl.','',0,'kA==','fcxgtnb8',1,0,'',2,0,0),(40899,2502,17,147,0,'190.136.75.188',1194134294,1,0,1,0,1,1,'','','Jorge:\nEl que intentás  bajar es exactamete el mismo que te mandé. Tampoco pudiste con el bmake y el .mak que te mandé?\n\nsaludos','',0,'kA==','135rmeuc',1,0,'',147,0,0),(40900,8702,3,1193,0,'59.105.14.100',1194143590,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1y1y674y]Richard,\n\nYou can not mix old and new FWH modules[/quote:1y1y674y]\n\nI see.\n\nRichard','',0,'gA==','1y1y674y',1,0,'',1193,0,0),(40901,8702,3,1193,0,'59.105.14.100',1194143752,1,0,1,1,1,0,'','','[quote=&quot;norberto&quot;:18wbh43n]Where you found this new modules??? you buy then ou someone give to you?? if you buy new fwh, why dont use this?[/quote:18wbh43n]\n\nI use some 3rd party, if I use new FWH0710 LIB files, my 3rd party appear pccode error message. So I copy FWH0710 new functions(MsgBar/Outlook2003) to my old project. But it work fine. Only Btnbmp not work.\n\nRegards,\n\nRichard','',0,'gA==','18wbh43n',1,0,'',1193,0,0),(40902,8711,3,868,0,'219.64.121.60',1194146892,1,0,1,1,1,1,'','Animation of Windows','I am trying to make some alert message dialogs, which pop up (sliding upwards) in the right bottom corner of the screen, like some instant messengers do.\n\nI am trying with the AnimateWindow( HWND hWnd, DWORD dwTime, DWORD dwFlags) of user32.dll.  Borland\'s winuser.h has the constants and prototype of this function.\n\nI am able to close a window with animation effects by calling this function in the valid clause. But actually I want to activate a window with the animation. ON INIT is of no use because bInit is evaluated after the window is shown. I think this animatewindow should be used in the Activate method instead of the Showwindow function. Perhaps it would be a lot nicer if we can specify the animation type in the cShow parameter of the Activate method and the Activate method responds to it.\n\nAny advice about how can I accomplish this?','',0,'gA==','3iom6m0w',1,0,'',868,0,0),(40903,8686,6,102,0,'87.217.67.91',1194170652,1,0,1,1,1,1,'','','Antonio.\nHe usado HB_Sendmail() y SendMail() y no me va de ninguna manera\nGracias','',0,'gA==','1vjynmhy',1,0,'',102,0,0),(40904,8621,7,1185,0,'88.2.204.212',1194174681,1,0,1,1,1,1,'','','Muchas gracias Antonio ya lo he conseguido. Imagino que para poder acceder al editor de recursos también hay algún truquito de estos, he mirado en la ayuda y solo veo que dice \"[i:3ophrp2c]... cuando un proyecto compilable se carga en UEStudio, la barra de herramientas Editor de recursos está activa[/i:3ophrp2c]\"\n\n¿Hay alguna forma de hacerlo?. Con el botón [i:3ophrp2c]Ver Como[/i:3ophrp2c] se puede colorear la sintaxis en el editor, ¿Se puede agregar una propia?\n\nDe nuevo muchas gracias.\n\nPD. ¿Hay previsto algún tipo de seminario y/o conferencia técnica sobre FWPPC próximamente?','',0,'IA==','3ophrp2c',1,0,'',1185,0,0),(40905,8621,7,2,0,'87.218.146.65',1194178300,1,0,1,1,1,1,'','','Juan Antonio,\n\nAqui tienes un video tutorial de como usar el UEStudio con FWPPC:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/25683729/fwppc.avi.html\">http://rapidshare.com/files/25683729/fwppc.avi.html</a><!-- m -->\n\nPara tener sintaxis coloreada añade este texto al fichero wordfile.txt que hay en la carpeta c:\\Archivos de Programa\\IDM Computer Solutions\\UEStudio \'06\\wordfile.txt\n\n/L12\"Clipper\" Nocase Line Comment = // Block Comment On = /* Block Comment Off = */ File Extensions = PRG CH \n/Function String = \"%*^{Function^}^{Method^}*(\" \n/Function String 1 = \"%^{Class^}%[a-zA-Z_0-9^]\" \n/Function String 2 = \"%^{Class^}%[a-zA-Z_0-9^]%^{From^}%[a-zA-Z_0-9^]\" \n/Function String 3 = \"%*^{Procedure^}*\" \n/C1 \n.and. .not. .or. .t. .f. \n#include #define #ifdef #endif #else \naadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan \nbegin button buttonbar brush break \ncase class classdata close color colors checkbox create character column centered commit copy constructor \ndate do data dblclick declare deleted default delete design device dialog define dbcloseall dbskip dbclosearea dbsetorder dbseek dbrelation dbsetrelation dbgobottom dbgotop dbgoto dbsetfilter dbusearea dbcommit dbrecall dbdelete dbunlock dbappend \nexit else elseif endif export empty endclass endcase end endmenu enddo endpage endprint erase eof eval exact \nfile for function from of footer font filter field fieldget fieldput fcount flock ferase fields \nget go goto gotop \nhidden header headers \nicon id if iif inline index init in \nleft len locate listbox listview loop lower \nmaximized mdichild method memvar msgInfo msgBeep message menu menuitem msglogo \nnext numeric name \nof otherwise on off order ordsetfocus \npath pixel protected print page parameters procedure prompts preview picture \nquit \nreturn recall resource resources redefine read report replace right rlock recno \nsizes sequence self super set say separator size style sysrefresh shared select store skip seek softseek \ntime title tone to tooltip top total transform \nvar val valid valtype \nwhile when window with \nuse update upper \nzap \n/C2 \nnew \n/C3 \nlocal \nstatic \npublic \nprivate \nnil \n: \n, \n; \n@ \n| \n{ \n} \n( \n) \n. \n[ \n] \n&lt; \n&gt; \n= \n! \n+ \n- \n* \n/ \n%\n\nPuedes añadirle y modificar las palabras claves que quieras.\n\nDe momento no tenemos fecha prevista de un próximo seminario de FWPPC. Lo anunciaremos','',0,'','2valpger',1,0,'',2,0,0),(40906,8621,7,1185,0,'88.2.204.212',1194179460,1,0,1,1,1,1,'','','Antonio, muchas gracias y disculpa por las molestias. Me pondré a trabajar con toda esta información. Espero no tener que molestar mucho más.\n\nNo se si puede interesar, pero creo que sería interesante divulgar el FWPPC en algunos foros de FoxPro, yo soy un asiduo a foxite y tan pronto como tenga una pequeña aplicación terminada la mostraré en ese foro; muchas veces hay preguntas sobre como hacer aplicaciones para pockets con VFP y creo que esta herramienta es la solución.\n\nPor otra parte, sería también una buena forma contactar con los organizadores de Prague DevCon y/o Frankfurt DevCon, aunque las de este año ya han pasado. Yo he asistido a la de Praga de este año y creo que se puede hacer una sesión técnica en la que se muestre el producto, etc.','',0,'','1j49o03p',1,0,'',1185,0,0),(40907,8621,7,2,0,'87.218.146.65',1194180928,1,0,1,1,1,1,'','','Juan Antonio,\n\nEste video muestra como se usa el editor de recursos en el UEStudio aunque se ve bastante mal. Vamos a ver si subimos algunos nuevos:\n\n<!-- m --><a class=\"postlink\" href=\"http://video.google.es/videoplay?docid=9088858141713451295&amp;q=uestudio&amp;total=1&amp;start=0&amp;num=10&amp;so=0&amp;type=search&amp;plindex=0\">http://video.google.es/videoplay?docid= ... &amp;plindex=0</a><!-- m -->','',0,'','s85931iw',1,0,'',2,0,0),(40908,8621,7,2,0,'87.218.146.65',1194181237,1,0,1,1,1,1,'','','Juan Antonio,\n\nCuenta con todo nuestro apoyo para que aprendas a usar FWPPC. Por favor haz todas las preguntas que quieras. Dentro de poco seguro que dominas a fondo FWPPC.\n\nEn cuanto a ir a conferencias de FoxPro, estaremos encantados de organizarlo contigo e ir juntos. De hecho tambien tenemos una herramienta de desarrollo para Mac OSX (FiveMac), que seguro a muchos usuarios de FoxPro les encantaría <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLa sintaxis de nuestros productos es compatible, por lo que si aprendes FWPPC, tambien sabrás hacer aplicaciones para Mac (FiveMac), para Linux (FiveLinux) y para Windows (FWH)','',0,'','y3sdb1qm',1,0,'',2,0,0),(40909,8712,6,37,0,'200.121.247.206',1194190535,1,0,1,1,1,1,'','Recuadro con pantalla negra de fondo','Sres. un favor, Yo compilaba 100% Ok con mi version de FWH 7.04 y xHb 99.70, ahora he actualizado a la Version de FWH 7.10 y el ultmo xHb que viene con la distribucion de FiveTech, y al ejecutar el EXE resultante me sale primero un recuadro negro tipo DOS y luego el dialogo de inicio de mi programa, cuando cierro ese cuadrado negro se cierra mi programa ?.\nCompilo y Enlazo con el mismo Verce que la version anterior, alguien tiene idea de que puede ser ?\nCual era el flag en xHb para desabilitar esa pantalla o en BCC\nGracias','',0,'','5tqz0g2g',1,0,'',37,0,0),(40910,8709,6,121,0,'189.138.162.41',1194197933,1,0,1,1,1,1,'','','GRACIAS ANTONIO\n\nYA COMPILO LA LIBRERIA SIN ERRORES\n\nAL INTENTAR COMPILAR UN EJEMPLO CON VERCE\nME INDICA QUE FALTA UNA LIBRERIA PCREPOS.LIB\n\nAL COMPILAR EL EJEMPLO  CON UN BATCH\nMANDA EL SIGUIENTE ERROR\n\nunresolved external \'_hb_dynsymbol\' referenced from whernan.lib|wbrwline\n\ncompilo de la siguente manera:\n\nset hdir=C:\\xhARBOUR\nset bcdir=C:\\bcc55\n\n%hdir%\\bin\\harbour SAMPLE01    /n /i\\FWH\\include;%hdir%\\include /w /p %2 %3 &gt; err0\n\necho -O2 -eSAMPLE01.exe -I%hdir%\\include SAMPLE01.c    &gt; b32.bc\n%bcdir%\\bin\\bcc32 -M -c -v @b32.bc\n%bcdir%\\bin\\brc32 -r SAMPLE01\necho c0w32.obj   + &gt; b32.bc\necho SAMPLE01, + &gt;&gt; B32.BC\necho SAMPLE01.exe, + &gt;&gt; b32.bc\necho SAMPLE01.map, + &gt;&gt; b32.bc\necho WHERNAN.LIB \\FWH\\lib\\Fivehx.lib \\FWH\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n\necho %hdir%\\lib\\rtl.lib          +  &gt;&gt; b32.bc\necho %hdir%\\lib\\vm.lib           +  &gt;&gt; b32.bc\necho %hdir%\\lib\\gtwin.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\lang.lib         +  &gt;&gt; b32.bc\necho %hdir%\\lib\\macro.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\rdd.lib          +  &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfntx.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\dbfcdx.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\dbffpt.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\hbsix.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\debug.lib        +  &gt;&gt; b32.bc\necho %hdir%\\lib\\common.lib       +  &gt;&gt; b32.bc\necho %hdir%\\lib\\pp.lib           +  &gt;&gt; b32.bc\n\necho %bcdir%\\lib\\cw32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\n\nIF EXIST SAMPLE01.res echo SAMPLE01.res &gt;&gt; b32.bc\n%bcdir%\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32.bc\nSAMPLE01','',0,'','nfsf4yyw',1,0,'',121,0,0),(40911,8686,6,54,0,'189.132.102.236',1194200822,1,0,1,1,1,1,'','','[quote=&quot;jmua&quot;:7c8q2hid]Antonio.\nHe usado HB_Sendmail() y SendMail() y no me va de ninguna manera\nGracias[/quote:7c8q2hid]\n\njmua,\n\nasi lo uso\n\n[code:7c8q2hid]      SendMail&#40; cMail,&#123;cFile&#125;,, ;\n                &quot;Mensaje de error generado por el sistema&quot;, ;\n                &quot;Incos&quot;,&quot;wmormar@yahoo&#46;com&#46;mx&quot;, ;\n                cUsuario, ;\n                cClave, ;\n                cSmtp,,lAutentifica,nSegundos &#41;\n[/code:7c8q2hid]\n\nespero te ayude','',0,'gIA=','7c8q2hid',1,0,'',54,0,0),(40912,8712,6,54,0,'189.132.102.236',1194200891,1,0,1,1,1,1,'','Re: Recuadro con pantalla negra de fondo','[quote=&quot;Enrrique Vertiz&quot;:bxlkq6jc]Sres. un favor, Yo compilaba 100% Ok con mi version de FWH 7.04 y xHb 99.70, ahora he actualizado a la Version de FWH 7.10 y el ultmo xHb que viene con la distribucion de FiveTech, y al ejecutar el EXE resultante me sale primero un recuadro negro tipo DOS y luego el dialogo de inicio de mi programa, cuando cierro ese cuadrado negro se cierra mi programa ?.\nCompilo y Enlazo con el mismo Verce que la version anterior, alguien tiene idea de que puede ser ?\nCual era el flag en xHb para desabilitar esa pantalla o en BCC\nGracias[/quote:bxlkq6jc]\n\nEnlaza gtgui.lib en lugar de gtwin.lib','',0,'gA==','bxlkq6jc',1,0,'',54,0,0),(40913,8709,6,54,0,'189.132.102.236',1194200983,1,0,1,1,1,1,'','','Marco Augusto,\n\ndescarga de nuevo VERCE, vienen corregidos varios bugs.\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin\">http://incos.sytes.net/fivewin</a><!-- m -->\n\nalguna duda contactame por messenger.\n\n<!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e -->','',0,'gA==','1t4xrdhb',1,0,'',54,0,0),(40914,8709,6,2,0,'87.218.146.65',1194201114,1,0,1,1,1,1,'','','&gt; ME INDICA QUE FALTA UNA LIBRERIA PCREPOS.LIB \n\nEsa librería viene incluida en las versiones más recientes de xharbour. De momento, para continuar, haz lo siguiente:\n\ncopy nulsys.lib pcrepos.lib\n\nen el directorio LIB de xharbour\n\n&gt;\nAL COMPILAR EL EJEMPLO CON UN BATCH \nMANDA EL SIGUIENTE ERROR \n\nunresolved external \'_hb_dynsymbol\' referenced from whernan.lib|wbrwline \n&gt;\n\nAñade el siguiente código a tu PRG principal:\n[code:1sxqxwjx]\n#pragma BEGINDUMP \n\n#define _HB_API_INTERNAL_ \n#include &lt;hbapi&#46;h&gt; \n#include &lt;hbapiitm&#46;h&gt; \n\nPHB_SYMB hb_dynsymSymbol&#40; PHB_DYNS pDynSym &#41; \n&#123; \n   return pDynSym-&gt;pSymbol; \n&#125; \n\n#pragma ENDDUMP \n[/code:1sxqxwjx]','',0,'AIA=','1sxqxwjx',1,0,'',2,0,0),(40915,8686,6,102,0,'87.217.67.91',1194202128,1,0,1,1,1,1,'','','Willian.\nEl problema es  como si no existiese la funcion. dentro de la libreria.\nNo acabo de entenderlo.\nGracias','',0,'AIA=','1k58b7px',1,0,'',102,0,0),(40916,8711,3,2,0,'87.218.146.65',1194203005,1,0,1,1,1,1,'','','[code:1nnq0xfu]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define AW_HOR_POSITIVE             0x00000001\n#define AW_HOR_NEGATIVE             0x00000002\n#define AW_VER_POSITIVE             0x00000004\n#define AW_VER_NEGATIVE             0x00000008\n#define AW_CENTER                   0x00000010\n#define AW_HIDE                     0x00010000\n#define AW_ACTIVATE                 0x00020000\n#define AW_SLIDE                    0x00040000\n#define AW_BLEND                    0x00080000\n\nfunction Main&#40;&#41;\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot;\n\n   AnimateWindow&#40; oWnd&#58;hWnd, 600, nOr&#40; AW_SLIDE, AW_HOR_POSITIVE &#41; &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON INIT oWnd&#58;Refresh&#40;&#41;\n\nreturn nil\n\nDLL FUNCTION AnimateWindow&#40; hWnd AS LONG, nTime AS LONG, nFlags AS LONG &#41; AS BOOL PASCAL ;\n   LIB &quot;user32&#46;dll&quot;\n[/code:1nnq0xfu]','',0,'AIA=','1nnq0xfu',1,0,'',2,0,0),(40917,8686,6,2,0,'87.218.146.65',1194203228,1,0,1,1,1,1,'','','José,\n\nEstás enlazando la librería TIP.lib de xharbour ? Tienes que enlazarla','',0,'AIA=','1as8xppt',1,0,'',2,0,0),(40918,8657,12,2,0,'87.218.146.65',1194204783,1,0,1,1,1,1,'','','Wilson,\n\nTe enviamos nuevas librerías. Con el ratón está funcionando bien, sim embargo con el Tab no, pues selecciona todo el contenido del GET y se va al final, y eso que hemos implementado el método GotFocus() para corregirlo.','',0,'AIA=','2bpk3nzd',1,0,'',2,0,0),(40919,8712,6,37,0,'201.230.158.46',1194204944,1,0,1,1,1,1,'','','Wiliam, muchas gracias, una vez mas aca se soluciona todo !!!','',0,'AIA=','2kxpp3me',1,0,'',37,0,0),(40920,8708,6,1014,0,'190.40.101.250',1194206204,1,0,1,1,1,1,'','','Hola Amigos\nAlguna pequeña ayuda de mis amigos????\nque hago mal?\ngracias \nJorge Vargas','',0,'AIA=','2ot0u6o0',1,0,'',1014,0,0),(40921,8710,6,935,0,'200.62.80.88',1194206559,1,0,1,1,1,1,'','Francisco,','Francisco, asi lo uso y si problemas no hay salto de pagina\n\nPRINT oPrn PREVIEW\n\n     DEFINE FONT oFont   NAME \"Times New Roman\"  SIZE 0, -11 of oPrn\n     DEFINE FONT oFont1  NAME \"Times New Roman\"  SIZE 0, -10 of oPrn\n\n     oPrn:Setsize(190*10,186*10)\n\n     SELECT A\n     DO WHILE .NOT. EOF()\n        INUM = A-&gt;NUM_DOC\n        PAGE\n\n        oPrn:CmSay( 2.2,13,+dtoc(A-&gt;FEC_DOC),oFont)\n        oPrn:CmSay( 2.9,4,+ALLTRIM(A-&gt;Benefi),oFont)\n        oPrn:CmSay( 2.9,15.5,+transform(A-&gt;VALOR,\"99,999,999.99\"),oFont)\n        oPrn:CmSay( 3.8,4,+A-&gt;Detalle,oFont)\n        oPrn:CmSay( 9.2,2,+A-&gt;DESC1,oFont1)\n        oPrn:CmSay( 9.7,2,+A-&gt;DESC2,oFont1)\n        SELECT b\n        IF DbSeek(iNum)\n           store 0 to gini,gdeb,ghab,gfin\n           mLinea = 11.7\n           DO WHILE b-&gt;Num_Doc = iNum\n              oPrn:CmSay(mLinea,2,+OemToAnsi(alltrim(b-&gt;NOMBRE)),oFont1)\n              oPrn:CmSay(mLinea,11,+B-&gt;Codigo,oFont1)\n              oPrn:CmSay(mLinea,14,+Transform(b-&gt;DEBE,\"@Z 999,999,999.99\"),oFont1)\n              oPrn:CmSay(mLinea,17,+Transform(b-&gt;HABER,\"@Z 999,999,999.99\"),oFont1)\n\n              gdeb = gdeb + b-&gt;debe\n              ghab = ghab + b-&gt;haber\n              skip\n              mLinea = mLinea + 0.5\n           ENDDO\n        ENDIF\n        mLinea = mLinea + 1\n        oPrn:CmSay(mLinea,2,\"Totales  \",oFont)\n        oPrn:CmSay(mLinea,14,+transform(gdeb,\"999,999,999.99\"),oFont1)\n        oPrn:CmSay(mLinea,17,+transform(ghab,\"999,999,999.99\"),oFont1)\n        SELECT A\n        ENDPAGE\n        SKIP\n     ENDDO\n     ENDPRINT\n\n     oFont:End()\n     oFont1:End()\n\n     CLOSE MOVCK\n     CLOSE DETCK\n\nRETURN NIL\n\nesta es una rutina desde donde imprimo cheques en forma continua y el tamaño es especial.\n\nRamon Paredes\nManagua, Nicaragua','',0,'AIA=','3btw93do',1,0,'',935,0,0),(40922,8708,6,1014,0,'190.40.101.250',1194206652,1,0,1,1,1,1,'','','Hola Amigos\nAlguna pequeña ayuda de mis amigos????\nque hago mal?\ngracias \nJorge Vargas','',0,'AIA=','2xlaodb1',1,0,'',1014,0,0),(40923,8708,6,2,0,'87.218.146.65',1194206770,1,0,1,1,1,1,'','','Jorge,\n\nLos archivos en C que usa FWH requieren llamar a fwh\\tools\\clp2harb.exe fichero.c nuevo.c ya que sirven para varios compiladores distintos, y clp2harb.exe se encarga de adaptar un módulo en C a Harbour.\n\nSi aún así no lo consigues, envíame por email un ZIP con los ficheros y los compilamos aqui y te los enviamos compilados','',0,'AIA=','1nkcui8t',1,0,'',2,0,0),(40924,8713,6,109,0,'200.56.188.51',1194227486,1,0,1,1,1,0,'','Ayuda con TGraph del Sr. Arteaga','Estoy desarrollando una aplicacion de Tests Psicologicos, y necesito \"graficar\" las interpretaciones de los mismos.\n\n  Alguien me puede decir como realizar una grafica con los siguientes datos:\n  \n   SERIES : \"D\", \"I\", \"S\", \"C\"\n   En los valores de X deberán aparecer los siguientes valores :\n    0,5,10,16,20,30,40,50,60,70,80,84,90,95,99\n \n    Los Valores de D,I,S,C  serian\n\n     24 , 40, 15, 82\n    ya que estos son los valores de la \"Interpretación\".\n\n    Por su ayuda muchas gracias','',0,'AIA=','k1n42mbz',1,0,'',109,0,0),(40930,8711,3,868,0,'219.64.121.60',1194238984,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks. It is working. But I dont know why is not working with a Dialog. Why shd not dialog behave like window?','',0,'AIA=','j3ghrqtm',1,0,'',868,0,0),(40931,8711,3,2,0,'87.218.146.65',1194248912,1,0,1,1,1,1,'','','NageswaraRao,\n\nThe dialog hWnd is not valid until the ACTIVATE of the dialog\n\nYou may use oDlg:bStart = { || ... }','',0,'AIA=','zfjjvda8',1,0,'',2,0,0),(40932,8686,6,102,0,'87.217.67.91',1194249610,1,0,1,1,1,1,'','','antonio si enlazo la libreri TIP.LIB de harbour, como te dije uso verce y la añado en LIB/OBJ de terceros','',0,'AIA=','qfcsoguz',1,0,'',102,0,0),(40933,8711,3,868,0,'219.64.121.60',1194251905,1,0,1,1,1,1,'','','So far my observations:\n\n1) Animation is not working with dialogs. Even with bStart.\n\n2) Working with windows both while opening and closing.  While opening, both AW_SLIDE and AW_ACTIVATE are giving the same effect. While closing we need to set flags to AW_HIDE. ( or\'d with direction flag ofcourse).\n\n3) Important:  While hiding (or closing ) the part of the window that overlaps any FWH window does not get cleared till it is fully closed.\n\n4) Important:  I put an xbrowse or wbrowse in the window. During opening and closing animation, the window is totally black. Browse appears after the window is fully open and window gets black immediately before commencing the closing animation. I shall continue experimenting with on paint ownd:say, etc.\n\nI am using opening activation as Mr. Antonio suggested. For closing I am using \" VALID ( AnimateWindow( oWnd:hWnd, 200, nOr ( AW_HIDE, AW_VER_POSITVE ), .T. )\".  Mr. Antonio may suggest, with this usage is the window properly closed and released?.','',0,'AIA=','2mfzhfan',1,0,'',868,0,0),(40934,8711,3,2,0,'87.218.146.65',1194252568,1,0,1,1,1,1,'','','&gt; with this usage is the window properly closed and released?\n\nyes','',0,'AIA=','3miovkxe',1,0,'',2,0,0),(40935,8686,6,2,0,'87.218.146.65',1194252611,1,0,1,1,1,1,'','','Que error obtienes al intentar construir el EXE ?','',0,'AIA=','hjuuffae',1,0,'',2,0,0),(40936,8711,3,868,0,'219.64.121.60',1194252637,1,0,1,1,1,1,'','','ownd:bpainted does not work during animation. colors of window also do not show up during animations.','',0,'AIA=','b2nl9x9p',1,0,'',868,0,0),(40937,8711,3,2,0,'87.218.146.65',1194252945,1,0,1,1,1,1,'','','NageswaraRao,\n\nYes, I have noticed that too. \n\nI would not recommend to use AnimateWindow() as it does not uses FWH windows procedure, but the standard (default) one','',0,'AIA=','3dsp7ibw',1,0,'',2,0,0),(40938,8713,6,2,0,'87.218.146.65',1194253123,1,0,1,1,1,1,'','','Ricardo,\n\nRevisa samples\\graph.prg\n\nEs un ejemplo muy ilustrativo y fácil de entender','',0,'AIA=','21si2hhw',1,0,'',2,0,0),(40939,5952,3,154,0,'151.21.55.66',1194253467,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2nkmo738]A bug on Vista?[/quote:2nkmo738]\nor IE7 Bug?','',0,'gA==','2nkmo738',1,0,'',154,0,0),(40940,5952,3,154,0,'151.21.55.66',1194253563,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:12vg1urp]Have you tried to run the program as Administrator?[/quote:12vg1urp]\nOtto,\nYes, i\'m administrator of my computer  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','12vg1urp',1,0,'',154,0,0),(40941,5952,3,154,0,'151.21.55.66',1194253730,1,0,1,1,1,1,'','Re: To clean up the files from HTML code','[quote=&quot;NK&quot;:x0spiwim]\nlook at this tool:\n\n[url:x0spiwim]http&#58;//www&#46;baccan&#46;it/opensource/html2txt201&#46;zip[/url:x0spiwim]\n\nRegards, Norbert[/quote:x0spiwim]\n\nNorbert,\nthanks but the problem now is to receive the html page!','',0,'kA==','x0spiwim',1,0,'',154,0,0),(40942,8711,3,130,0,'141.51.32.24',1194253962,1,0,1,1,1,1,'','','here is another solution with transparent or fading dialogs. Maybe it´s helpful or you\n\n[code:2hzn16qb]#include &quot;Fivewin&#46;ch&quot;\n\n#define LWA_ALPHA 2\n\n#define GWL_EXSTYLE -20\n\n#define WS_EX_LAYERED 524288\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, nFactor &#58;= 210, btnmais, btnmenos, btnloops\n\n    DEFINE DIALOG oDlg;\n           TITLE &quot;Transparent dialog&quot; pixel from 0, 0 to 400, 400\n\n    @10, 10 SAY &quot;This is a test&quot; SIZE 30, 7 pixel\n\n    oDlg&#58;bpainted &#58;= &#123; || SETTRANSP&#40; oDlg, nFactor &#41; &#125;\n\n    @050, 10  button btnMais  prompt &quot;Mais Transparencia&quot;  ;\n     action TRANSPAR&#40; oDlg, @nFactor, &quot;+&quot;, btnmais  &#41; size 70, 20 pixel\n    @050, 100 button btnMenos prompt &quot;Menos Transparencia&quot; ;\n     action TRANSPAR&#40; oDlg, @nFactor, &quot;-&quot;, btnmenos &#41; size 70, 20 pixel\n    @100, 50  button btnloops prompt &quot;Alternando Transparencia&quot; ;\n     action TRANSLOOP&#40; oDlg, @nFactor &#41; size 70, 20 pixel\n\n    ACTIVATE DIALOG oDlg CENTER\n\n    RETURN NIL\n\nSTATIC FUNCTION SETTRANSP&#40; oDlg, nFactor &#41;\n\n    SETWINDOWLONG&#40; oDlg&#58;hWnd, GWL_EXSTYLE, ;\n                                 NOR&#40; GETWINDOWLONG&#40; oDlg&#58;hWnd, ;\n                                          GWL_EXSTYLE &#41;, WS_EX_LAYERED &#41; &#41;\n\n    SETLAYEREDWINDOWATTRIBUTES&#40; oDlg&#58;hWnd, , ;\n                                                          nFactor, LWA_ALPHA &#41;\n\nRETURN NIL\n\nstatic function TRANSPAR&#40; oDlg, nFactor, Sinal, oBtn &#41;\n\n    if Sinal = &quot;+&quot;\n       if nFactor &lt; 10 ; nFactor &#58;= 260 ; endif\n       nFactor -= 5\n    else\n       if nFactor &gt; 250 ; nFactor &#58;= 5  ; endif\n       nFactor += 5\n    endif\n\n    SetWindowText&#40; oDlg&#58;hWnd, &quot;Transparent dialog&#46; Transparencia&#58; &quot; + alltrim&#40;str&#40;nFactor&#41;&#41; &#41;\n\n    SETLAYEREDWINDOWATTRIBUTES&#40; oDlg&#58;hWnd, , nFactor, LWA_ALPHA &#41;\n\n    sysrefresh&#40;&#41;\n\nreturn &#40;nil&#41;\n\nstatic function TRANSLOOP&#40; oDlg, nFactor, Sinal, oBtn &#41;\n\n    local X\n\n    for X = 1 to 255\n        SetWindowText&#40; oDlg&#58;hWnd, &quot;Transparent dialog&#46; Transparencia&#58; &quot; + alltrim&#40;str&#40;x&#41;&#41; &#41;\n        SETLAYEREDWINDOWATTRIBUTES&#40; oDlg&#58;hWnd, , x, LWA_ALPHA &#41;\n    next\n\n    for X = 255 to 1 step -1\n        SetWindowText&#40; oDlg&#58;hWnd, &quot;Transparent dialog&#46; Transparencia&#58; &quot; + alltrim&#40;str&#40;x&#41;&#41; &#41;\n        SETLAYEREDWINDOWATTRIBUTES&#40; oDlg&#58;hWnd, , x, LWA_ALPHA &#41;\n    next\n    SetWindowText&#40; oDlg&#58;hWnd, &quot;Transparent dialog&#46; Transparencia&#58; &quot; + alltrim&#40;str&#40;nFactor&#41;&#41; &#41;\n    SETLAYEREDWINDOWATTRIBUTES&#40; oDlg&#58;hWnd, , nFactor, LWA_ALPHA &#41;\n    sysrefresh&#40;&#41;\n\nreturn NIL\n\nDLL32 function SetLayeredWindowAttributes&#40; hWnd   As LONG, crKey   As LONG,;\n                                           bAlpha As LONG, dwFlags As LONG &#41; AS LONG PASCAL ;\n      from &quot;SetLayeredWindowAttributes&quot; lib &quot;user32&#46;DLL&quot;\n\n\n[/code:2hzn16qb]','',0,'AIA=','2hzn16qb',1,0,'',130,0,0),(40943,5952,3,6,0,'87.6.210.50',1194255018,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:t4x9fm3q][quote=&quot;EnricoMaria&quot;:t4x9fm3q]A bug on Vista?[/quote:t4x9fm3q]\nor IE7 Bug?[/quote:t4x9fm3q]\n\nDoesn\'t seem so. I\'m also using IE7 (Windows XP) and not having that problem.\n\nEMG','',0,'gA==','t4x9fm3q',1,0,'',6,0,0),(40944,8686,6,102,0,'87.217.67.91',1194255278,1,0,1,1,1,1,'','','Antonio.\nEvio esto:\nHB_SendMail( cServer, nPort, cFrom, aTo, aCC, aBCC, cBody, cSubject, aFiles, cUser, cPass, cPopServer,nPriority, lRead, lTrace, lPopAuth)\nEste es el error:\nError: Unresolved external \'_HB_FUN_HB_SENDMAIL\' referenced from D:\\EMAILS\\MYOBJ\\PRINCIPAL.OBJ\n\nGracias','',0,'gA==','po9u8ode',1,0,'',102,0,0),(40945,8719,3,86,0,'81.83.151.142',1194255631,1,0,1,1,1,1,'','Sizes of the screen','Hello,\n\nHow can I read the sizes of my screen ?\n\nMaxCol() and MaxRow() don\'t work properly, respectivally returning 79 x 23, knowing I use a screen 1280 x 1024.\n\nThanks.','',0,'gA==','314j8rxb',1,0,'',86,0,0),(40946,8686,6,102,0,'87.217.67.91',1194255730,1,0,1,1,1,1,'','','Antonio.\ntengo otro problema  desde que utilizo FWH10.\nComo te digo utilizo Verce, ahora al compilar, enlazar y ejecutar me abre una ventana del DOS y  si la cierro me cierra la aplicacion, ademas me pone dos enlaces la barra de tareas como si tuviera dos aplicaciones abiertas.\nSabes a que puede ser debido.\nGracias','',0,'gA==','30fw4cam',1,0,'',102,0,0),(40947,8720,16,2,0,'87.218.146.65',1194255838,1,0,1,1,1,1,'','New FTDN November/Noviembre 2007 (7.11)','November 2007\r\n===========\r\n\r\n* New: Office 2007 look for the menus! Please review samples\\Test2007.prg\r\n\r\n* Fix: Minor fix on Class TToolBar. Thanks to Moises!\r\n\r\n* Enhancement: Class TBar and TMsgBar were not evaluating ::bPainted if 2007 was used. Now it is ok.\r\n\r\n* Fix: Minor fix on Class TControl regarding ::bMMoved use.\r\n\r\n* Fix: FixSays() was not properly managing all types of icons. Now it is ok.\r\n\r\n* Enhancement: Class TXBrowse Method SetRdd( [lAddColumns] ), now you can provide a lAddColumns parameter as .F. (it is .T. by default) to avoid the automatic creation of the browse columns from the DBF in use.\r\n  \r\n* Enhancement: Class TBar no longer draws an invert rect when the mouse is clicked over it.\r\n\r\n* Fix: Class TListBox Method DrawItem() was wrongly calling LbxDrawItem() Method when a POPUP MENU is on top. Now it is ok.\r\n  \r\n* Fix: Class TXBrowse Method GoUp(). Thanks to Carlos Mora!\r\n  \r\n* Fix: Bitmaps were not properly centered on BtnBmps when a popup was used with the BtnBmp. Now it is ok.  \r\n\r\n* Enhancement: Class TBtnBmp supports multiple lines of text as the button prompt, using CRLFs.\r\n  \r\n* New: FWPPC, samples\\Gps.prg shows how to use the GPS with FiveWin for Pocket PC. Many thanks to Salvador Gallardo!  \r\n  \r\n* New: Class TBtnBmp() Method ShowPopup(), lets you show the popup of the BtnBmp object, if a popup for it is defined, as the action of the button. Please review samples\\Test2007.prg\r\n\r\n* New: xHarbour new build requires to link pcrepos.lib. If you are using a makefile or a bat file of your own, please include that library.\r\n  \r\n* Enhancement: Class TWindow Methods GoNextCtrl() and GoPrevCtrl() now work on windows (main or mdichilds) too.\r\n  \r\n* New: Built-in Print Preview automatically uses Office 2007 look if such style is used on the main window buttonbar.\r\n  \r\n* New: Class TControl Method SysChar( nKey, nFlags ). Please review samples\\TestMdiR.prg and check the controls Alt+... accelerators.\r\n  \r\n* Fix: Class TXBrowse several fixes.  \r\n    \r\n* Enhancement: Please notice that FiveWin.ch has been modified due to recent changes in Harbour. Please use this new FiveWin.ch. Also if you are using your own ErrSysW.prg module, please notice there are some new lines at the bottom of the FWH\'s one that you have to copy to yours.','',0,'','20eef6st',1,1220710850,'',2,1,0),(40948,8721,3,2,0,'87.218.146.65',1194255993,1,0,1,1,1,1,'','New FWH 7.11','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8720&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->','',0,'','15f3wqve',1,0,'',2,0,0),(40949,8722,6,2,0,'87.218.146.65',1194256081,1,0,1,1,1,1,'','Nuevo FWH 7.11','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8720\">http://fivetechsoft.com/forums/viewtopic.php?t=8720</a><!-- m -->','',0,'','2htwukmr',1,0,'',2,0,0),(40950,8719,3,3,0,'80.81.159.19',1194256195,1,0,1,1,1,1,'','Re: Sizes of the screen','Michel\n\nOWND:nHorzRes()\n\nOWND:nVertRes()','',0,'','3p1n47q9',1,0,'',3,0,0),(40951,8711,3,868,0,'219.64.121.60',1194256417,1,0,1,1,1,1,'','','Mr Antonio\n\nI take your advice. Thanks\n\nMr. Stephan\n\nYou know this was not what I was looking for to start with. \n\nBut surely I am happier that you shared such a wonderful program with all of us. The effects are amazing and I thank you very much for it. Yes I would definitely use this code.  May I ask if you already know any limitations about various windows versions? or should we test now?','',0,'','8tuy8402',1,0,'',868,0,0),(40952,2486,16,2,0,'87.218.146.65',1194256597,1,0,1,1,1,1,'','','November builds\n============\n\nHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/67562346/harbour.exe.html\">http://rapidshare.com/files/67562346/harbour.exe.html</a><!-- m -->','',0,'','1oo25tln',1,0,'',2,0,0),(40953,8686,6,2,0,'87.218.146.65',1194256908,1,0,1,1,1,1,'','','José,\n\nTienes que enlazar GTGUI.lib en vez de GTWIN.lib, y tambien tienes que enlazar TIP.lib que por lo que me dices, no la estás enlazando','',0,'','1dlpuc5w',1,0,'',2,0,0),(40954,8721,3,309,0,'194.204.28.27',1194257799,1,0,1,1,1,0,'','New FWH 7.11','Hello,\n   can FWH 7.11 be used with xHarbour Builder January 2007 release?\n\nTaavi.','',0,'','9cxl5lbx',1,0,'',309,0,0),(40955,8686,6,102,0,'87.217.67.91',1194258344,1,0,1,1,1,1,'','','Antonio he añadido GETGUI.LIB y ya no sale la ventana del DOS pero sigue dandome el error:\nError: Unresolved external \'_HB_FUN_HB_SENDMAIL\' referenced from D:\\EMAILS\\MYOBJ\\PRINCIPAL.OBJ\n Este las lineas entan el el projecto de Verce\n[LIB-OBJ TERCEROS]\nREINICIAR=.F.\n1=C:\\MYSISTEMA\\XHARBOUR\\LIB\\TIP.LIB\n2=C:\\MYSISTEMA\\XHARBOUR\\LIB\\GTGUI.LIB','',0,'','2ysmc6yb',1,0,'',102,0,0),(40956,8719,3,86,0,'81.83.151.142',1194259056,1,0,1,1,1,1,'','','Richard,\n\nThanks a lot for you answer.\n\nI\'m afraid though that this doesn\'t solve my problem.\n\nI use this code to position a Word-window from my FWH-application :\n\n[code:1qk6ejad]      OleSetProperty&#40;hWordOle,&quot;Top&quot;,43&#41;\n      OleSetProperty&#40;hWordOle,&quot;Left&quot;,0&#41;\n      OleSetProperty&#40;hWordOle,&quot;Width&quot;,768&#41;\n      OleSetProperty&#40;hWordOle,&quot;Height&quot;,553&#41;\n[/code:1qk6ejad]\n\nThis way, I always can see my FWH-bar and everything from Word.\n\nI need to use 768 as a value for maximum width and 553 for the height (it is the maximum height - 2 cm) to present my Word-window the way I want to.\n\nI can\'t see the link between 1280 (returned by oWnd:nHorzRes()) and the value 768 I have to use.\n\nAny idea ?\n\nThanks.','',0,'AIA=','1qk6ejad',1,0,'',86,0,0),(40957,8686,6,102,0,'87.217.67.91',1194259108,1,0,1,1,1,1,'','','Antonio.\nEste el fichero tmp de verce.\nC:\\MySistema\\Borland\\BCC55\\Lib\\c0w32.obj + \nD:\\Emails\\MyObj\\principal.obj D:\\Emails\\MyObj\\mybrowse.obj  , + \nD:\\Emails\\Emails.exe, + \nD:\\Emails\\Resource\\Emails.map, + \nC:\\MYSISTEMA\\XHARBOUR\\LIB\\TIP.LIB + \nC:\\MYSISTEMA\\XHARBOUR\\LIB\\GTGUI.LIB + \nC:\\MySistema\\xHarbour\\LIB\\HBSIX.LIB + \nC:\\MySistema\\xHarbour\\LIB\\DBFFPT.LIB + \nC:\\MySistema\\FWH10\\lib\\Fivehx.lib + \nC:\\MySistema\\FWH10\\LIB\\fiveHC.lib + \nC:\\MySistema\\xHarbour\\Lib\\rtl.lib + \nC:\\MySistema\\xHarbour\\Lib\\vm.lib + \nC:\\MySistema\\xHarbour\\Lib\\gtwin.lib + \nC:\\MySistema\\xHarbour\\Lib\\lang.lib + \nC:\\MySistema\\xHarbour\\Lib\\macro.lib + \nC:\\MySistema\\xHarbour\\Lib\\rdd.lib + \nC:\\MySistema\\xHarbour\\Lib\\dbfntx.lib + \nC:\\MySistema\\xHarbour\\Lib\\dbfcdx.lib + \nC:\\MySistema\\xHarbour\\Lib\\common.lib + \nC:\\MySistema\\xHarbour\\Lib\\pp.lib + \nC:\\MySistema\\Borland\\BCC55\\Lib\\cw32.lib + \nC:\\MySistema\\Borland\\BCC55\\Lib\\import32.lib, + \n,D:\\Emails\\Resource\\Emails.res \n\nComo veras si esta TIP.LIB','',0,'AIA=','3tuuar5e',1,0,'',102,0,0),(40958,8700,3,448,0,'82.155.6.10',1194260004,1,0,1,1,1,0,'','','Sorry it was my mistake as the button class had been altered in order to setfocus to mdichild before action of the button. Problem solved.\n\nThanks\nAntonio','',0,'AIA=','1cga0esr',1,0,'',448,0,0),(40959,8539,3,448,0,'82.155.6.10',1194260561,1,0,1,1,1,0,'','','Hello, \n\nAfter several trials I \'m convince that something is wrong either with xHarbour or FWH. \nThe windows behaviour on focusing mdichilds is exactly the same for win xp for both 32bits and 16 bits apps and with FW16 it works as expected.\nIf you try with excel when you have 2 mdichilds and you click the one without focus first it focus first that window, after you must click again to initiate click action on that window. In FH16 it\'s working like that but FWH isn\'t anymore. \nThis brings big problems when programing with Mdichilds where you are in a non modal programing and the events must work absolutly as expected.\n\nFWH March 2006 build\nFW16 2.3\n\nPerhaps Antonio Linares could check this ?\n\nAntonio','',0,'AIA=','171ofsyp',1,0,'',448,0,0),(40960,8540,3,448,0,'82.155.6.10',1194260769,1,0,1,1,1,0,'','','Antonio,\n\nI need that windows are centered in order that all the mdichild is automacticly visible otherwise the user will have to center the window by hand to begin toi work. The Mdichilds can\'t be maximized or chanhed in size.\n\nAntonio','',0,'AIA=','y34j5l5c',1,0,'',448,0,0),(40961,8721,3,2,0,'87.218.146.65',1194261109,1,0,1,1,1,1,'','','Taavi,\n\nYou may need to rebuild the FWH PRGs because as far as we remember there was a pcode change in xharbour after january','',0,'AIA=','1yh8qq5t',1,0,'',2,0,0),(40962,8540,3,2,0,'87.218.146.65',1194261182,1,0,1,1,1,1,'','','Antonio,\n\nWe are going to review it again asap. Its on our todo list.','',0,'AIA=','anx5nuae',1,0,'',2,0,0),(40963,8540,3,448,0,'82.155.6.10',1194261497,1,0,1,1,1,0,'','','Antonio,\n\nThanks,\n\nAntonio','',0,'AIA=','1s1abszp',1,0,'',448,0,0),(40964,8686,6,2,0,'87.218.146.65',1194262127,1,0,1,1,1,1,'','','José,\n\nPor favor envíame por email, en un ZIP, TIP.lib. Gracias,','',0,'AIA=','3p8lvekd',1,0,'',2,0,0),(40965,8721,3,309,0,'194.204.28.27',1194262629,1,0,1,1,1,0,'','','Hi,\n  would rebuilding fivehmx.lib /and of course all other our .prg sources/ be enough?\n\nTaavi','',0,'AIA=','mcy5aznl',1,0,'',309,0,0),(40966,8686,6,102,0,'87.217.67.91',1194262733,1,0,1,1,1,1,'','','Antonio ya esta enviada\n\nGracias','',0,'AIA=','3uojelnj',1,0,'',102,0,0),(40967,8621,7,456,0,'62.43.18.83',1194263793,1,0,1,1,1,1,'','','Yo personalmente no he usado uEstudio, aunque si es cierto que más de uno me ha comentado que es una muy buena herramienta. De hecho que mejor recomendación que la del propio Antonio.\n\nPero para darle un poco de variedad a las posibles soluciones, y tengas otra opción, te comento lo que yo uso.\n\nCuando empece con fivewin, lei y relei el foro con referencia a editores, tanto de codigo como de recursos, y probe varias opciones. \nMi intención era encontrar un editor freeware, y ademas que solucionase la papeleta de una manera digna. \n\nPara recursos utilizo PellesC, y como editor y gestor de proyectos xMate. \n\n[img:2wxw68nv]http&#58;//img80&#46;imageshack&#46;us/img80/8887/pan1er4&#46;jpg[/img:2wxw68nv]\n[img:2wxw68nv]http&#58;//img80&#46;imageshack&#46;us/img80/6748/pan2se3&#46;jpg[/img:2wxw68nv]\n[img:2wxw68nv]http&#58;//img80&#46;imageshack&#46;us/img80/4602/pan3ov3&#46;jpg[/img:2wxw68nv]','',0,'CA==','2wxw68nv',1,0,'',456,0,0),(40968,8721,3,2,0,'87.218.146.65',1194263925,1,0,1,1,1,1,'','','Taavi,\n\nYes, it should be enough','',0,'CA==','1ay1n9zm',1,0,'',2,0,0),(40969,8539,3,2,0,'87.218.146.65',1194264150,1,0,1,1,1,1,'','','Antonio,\n\nThere is a different behavior from Win16 to Win32 when using embeded dialogboxes into mdichild windows. This is a workaround that seems ok for samples\\TestMdi4.prg:\n[code:rtunneua]\n   for n = 1 to Len&#40; oDlg&#58;aControls &#41;\n      oDlg&#58;aControls&#91; n &#93;&#58;bLClicked = GenBlock&#40; oWndChild, oDlg&#58;aControls&#91; n &#93; &#41;\n   next 	 \n   	\n   ACTIVATE DIALOG oDlg NOWAIT ;\n   &#46;&#46;&#46;\n\nfunction GenBlock&#40; oWndChild, oControl &#41;\n\nreturn &#123; || oWndChild&#58;SetFocus&#40;&#41;, oControl&#58;SetFocus&#40;&#41; &#125;\n[/code:rtunneua]\nYou also need to make this change in Class TGet:\n[code:rtunneua]\nMETHOD LButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TGet\n&#46;&#46;&#46;\n      if &#58;&#58;bLClicked != nil  // new\n         Eval&#40; &#58;&#58;bLClicked &#41; // new\n      endif   // new \n      return 1\n[/code:rtunneua]\nAnyhow, in recent FWH builds we do recommend a better way to place controls in mdichild windows. Please review samples\\TestMdiR.prg. That sample has been improved in FWH 7.11','',0,'AIA=','rtunneua',1,0,'',2,0,0),(40970,8686,6,2,0,'87.218.146.65',1194264517,1,0,1,1,1,1,'','','José,\n\nUsa este xHarbour:\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.exe\">www.fivetechsoft.com/files/xharbour.exe</a><!-- w -->','',0,'AIA=','2yb2oblh',1,0,'',2,0,0),(40972,8700,3,2,0,'87.218.146.65',1194264618,1,0,1,1,1,1,'','','glad to know it is ok <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','f4rjtttu',1,0,'',2,0,0),(40973,8697,6,221,0,'200.109.27.176',1194265852,1,0,1,1,1,1,'','','ES CORRECTO RENE, ES PAGO Y LO TENGO PORQUE SE COMPRO PERO NO TRAJO EL AEGLE1.H Y YA EN MI TRABAJO SE LE HAN MANDADO VARIOS MENSAJES A MANU U NO NOS HA CONTESTADO, POR ESO ME IMAGINO QUE QUIEN LO ENVIE ES PORQUE TANBIEN LO COMPRO, SI NO PIDIERA TODA LA LIBRERIA NO CREES? \n\nA NOMBRE DE QUIEN ESTA COMPRADO, ESO EVIDENTEMENTE NO LO DIRE AQUI, MANU DEBE SABER QUIEN LE ESTA PIDIENDO ESE ARCHIVO DESDE HACE CASI UN MES, ASI RENE QUE SI QUIERES CAZAR BRUJAS DEBERIAS EMPEZAR POR MEXICO....\n\nSALUDOS','',0,'AIA=','19wt5h3j',1,0,'',221,0,0),(40974,8693,6,221,0,'200.109.27.176',1194266173,1,0,1,1,1,1,'','','QUE HUBO JOSE LUIS, GUARENAS AUN QUEDA ANTES DE GUATIRE A MENOS QUE CAMBIAN LA CAPITAL DE CARACAS A CAUCAGUA...JEJEJE A VER SI NOS REUNIMOS UN DIA E INTERCAMBIAMOS OPINIONES, TENGO VARIOS CLIENTES EN GUATIRE DESDE HACE MAS DE 15 AñOS, A LO MEJOR TE INTERESARIA TE PICHARA ALGUNO O HAS IDO A MONTAR ALGO DE DONDE YO HE SALIDO Y VICEVERSA, ADEMAS QUIEN QUITA SI ENTRE LOS DOS ACAPARAMOS EL MONOPOLIO EN LA ZONA....PODRIA SER INTERESANTE','',0,'AIA=','ea910unu',1,0,'',221,0,0),(40975,8723,3,51,0,'80.122.88.242',1194266361,1,0,1,1,1,0,'','oWnd:say - transparent','I try to give out text to a window\n\nSome text with the argument Transparent = true other with false but the argument is not respected.\nAfter the first use of transparent the rest is transparent although the argument is set to false.\n    oWndPlan:Say( 150, 50, \"TEST1\", 8421504 ,\"B\",oLbxFont,.t.,.f.)&lt;------\n    oWndPlan:Say( 200, 50, \"TEST2\", 8421504 ,\"B\",oLbxFont,.t.,.t.)&lt;------\n    oWndPlan:Say( 250, 50, \"TEST3\", 8421504 ,\"B\",oLbxFont,.t.,.t.)&lt;------\n    oWndPlan:Say( 300, 50, \"TEST4\", 8421504 ,\"B\",oLbxFont,.t.,.f.)&lt;------\n\n[img:3dw0g6r5]http&#58;//www&#46;atzwanger&#46;com/fw/transparent&#46;jpg[/img:3dw0g6r5]\n\n#INCLUDE \"FIVEWIN.CH\"\n\nSTATIC oLbxFont\nSTATIC oWnd\nSTATIC oWndPlan\n\nfunc Main()\n    DEFINE FONT oLbxFont    NAME \"MS Sans Serif\" SIZE  10.3,15\n\n    DEFINE WINDOW oWnd FROM 1, 1 TO 35, 80 ;\n        TITLE  \"test\"  ;\n        COLOR CLR_BLACK, CLR_WHITE  ;           //CLR_LIGHTGRAY           ;\n        MDI\n\n    ACTIVATE WINDOW oWnd MAXIMIZED    ON INIT (planScreen())\n\nRETURN NIL\n\nfunc planScreen()\n    DEFINE WINDOW oWndPlan ;\n        MDICHILD  ;\n        FROM 0,0 TO 800,1024 PIXEL;\n        TITLE  (\"Zimmerplan\") ;\n        OF oWnd\n\n    ACTIVATE WINDOW  oWndPlan  MAXIMIZED;\n        ON PAINT          MiPaint()\n\nRETURN NIL\n\nfunc MiPaint()\n    oWndPlan:Say( 150, 50, \"TEST1\", 8421504 ,\"B\",oLbxFont,.t.,.f.)\n    oWndPlan:Say( 200, 50, \"TEST2\", 8421504 ,\"B\",oLbxFont,.t.,.t.)\n    oWndPlan:Say( 250, 50, \"TEST3\", 8421504 ,\"B\",oLbxFont,.t.,.t.)\n    oWndPlan:Say( 300, 50, \"TEST4\", 8421504 ,\"B\",oLbxFont,.t.,.f.)\nRETURN NIL','',0,'CA==','3dw0g6r5',1,0,'',51,0,0),(40976,8621,7,1185,0,'88.2.204.212',1194266379,1,0,1,1,1,1,'','','Gracias Biel, como tú has dicho quizás la de Antonio sea la mejor recomendación, por lo que he dirigido mi atención en ese sentido.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','1ug8wztp',1,0,'',1185,0,0),(40977,8721,3,162,0,'62.47.185.139',1194266643,1,0,1,1,1,0,'','','Antonio,\nAre the 2007 menus now working under Win98 as well?\n\nDo you or anybody else know a good source for 16x16 bitmaps that look nice with 2007 bars?\n\nRegards,\nDietmar','',0,'CA==','3vuj8o1x',1,0,'',162,0,0),(40978,8621,7,2,0,'87.218.146.65',1194266790,1,0,1,1,1,1,'','','Juan Antonio,\n\nQue tal vas con el UEStudio ? Puedes ya construir un proyecto desde él ?\n\nPor favor, pregunta todo lo que te haga falta. Estamos aqui para ayudarte y para que lo consigas.','',0,'CA==','mbjuizt5',1,0,'',2,0,0),(40979,8721,3,2,0,'87.218.146.65',1194267080,1,0,1,1,1,1,'','','Dietmar,\n\n&gt; Are the 2007 menus now working under Win98 as well? \n\nYes, they are working fine, no GPFs, though we still have some issues when using low resolution colors','',0,'CA==','1hrpolvr',1,0,'',2,0,0),(40980,8723,3,2,0,'87.218.146.65',1194267936,1,0,1,1,1,1,'','','Otto,\n\nDo it this way:\n[code:2tki9c6u]\nfunc MiPaint&#40;&#41; \noWndPlan&#58;Say&#40; 150, 50, &quot;TEST1&quot;, 8421504 ,&quot;B&quot;,oLbxFont,&#46;t&#46;,&#46;f&#46;&#41; \noWndPlan&#58;Say&#40; 200, 50, &quot;TEST2&quot;, 8421504 ,&quot;B&quot;,oLbxFont,&#46;t&#46;,&#46;t&#46;&#41; \noWndPlan&#58;Say&#40; 250, 50, &quot;TEST3&quot;, 8421504 ,&quot;B&quot;,oLbxFont,&#46;t&#46;,&#46;t&#46;&#41; \nSetBkMode&#40; oWndPlan&#58;hDC, 2 &#41; // #define OPAQUE              2\noWndPlan&#58;Say&#40; 300, 50, &quot;TEST4&quot;, 8421504 ,&quot;B&quot;,oLbxFont,&#46;t&#46;,&#46;f&#46;&#41; \nRETURN NIL\n[/code:2tki9c6u]','',0,'AIA=','2tki9c6u',1,0,'',2,0,0),(40981,8723,3,2,0,'87.218.146.65',1194268136,1,0,1,1,1,1,'','','Its a little bug in function WSay() in source\\winapi\\wndsay.c:\n[code:8jym1i6h]\n   if&#40; bTransparent &#41;\n      SetBkMode&#40; hDC, TRANSPARENT &#41;;\n   else    // new \n      SetBkMode&#40; hDC, OPAQUE &#41;; // new\n[/code:8jym1i6h]\nFixed. Thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','8jym1i6h',1,0,'',2,0,0),(40982,8712,6,362,0,'200.158.19.9',1194268324,1,0,1,1,1,1,'','','[quote=&quot;Enrrique Vertiz&quot;:r1ox9n9y]Wiliam, muchas gracias, una vez mas aca se soluciona todo !!![/quote:r1ox9n9y]\n\n\nENRIQUE, POR FAVOR, MIRA TU CORREO.\n\nSea Bienvenido al QUINTO ENCUENTRO DE FIVEWINNERS - DIA 24/11/2007.\n\nRegards, saludos.','',0,'gA==','r1ox9n9y',1,0,'',362,0,0),(40983,8723,3,51,0,'80.122.88.242',1194269299,1,0,1,1,1,0,'','','Is is OK if I download the 7.11 version?','',0,'gA==','p3l2jyre',1,0,'',51,0,0),(40984,8723,3,2,0,'87.218.146.65',1194269809,1,0,1,1,1,1,'','','Otto,\n\nThis fix is not included in 7.11, but if we publish it again, then we will include it','',0,'gA==','2pzdadac',1,0,'',2,0,0),(40985,8723,3,51,0,'80.122.88.242',1194270242,1,0,1,1,1,0,'','','To you plan to publish it soon?','',0,'gA==','1s06n0up',1,1194278019,'',51,1,0),(40986,8719,3,35,0,'167.7.140.254',1194270372,1,0,1,1,1,0,'','','Driessen\n\nUse the following to get the screen resolution :\n\nnSCR1 := GetSysMetrics(0)  // 1024\nnSCR2 := GetSysMetrics(1)  // 768\n\nRick Lipkin\nSC Dept of Health, USA','',0,'gA==','2igw4om4',1,0,'',35,0,0),(40987,8723,3,2,0,'87.218.146.65',1194271192,1,0,1,1,1,1,'','','Otto,\n\nIf some bugs appear (hopefully not) then we may publish it again <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3h7f2ltg',1,0,'',2,0,0),(40988,8621,7,1185,0,'88.2.204.212',1194271914,1,0,1,1,1,1,'','','Hola Antonio,\n\nHe estado mirando UEstudio, leyendo en el foro he visto como se puede hacer para crear plantillas de aplicaciones y he estado crendo una para FWPPC, tambien he visto el video; pero no ha desarrollar todavía no he empezado.\n\nEsta semana va a ser un pelín complicada porque mi esposa tiene el segundo control oncológico después de un tratamiento de quimioterapia que finalizó en Abril de este año y psao mucho tiempo en salas de espera mientras le hacen las pruebas.\n\nImagino que para el viernes ya pueda empezar a ver más cosas, pero ahora mismo lo único que puedo hacer es leer algo en internet con mi PPC..','',0,'gA==','2cb0bmgm',1,0,'',1185,0,0),(40989,8621,7,2,0,'87.218.146.65',1194273151,1,0,1,1,1,1,'','','Juan Antonio,\n\nToma tu tiempo y dale todo tu apoyo a tu esposa, deseando que todo vaya muy bien. \n\nPara cualquier ayuda aqui nos tienes, cuando nos necesites','',0,'gA==','34jam28y',1,0,'',2,0,0),(40990,8712,6,316,0,'213.97.245.163',1194273190,1,0,1,1,1,0,'','','Hola,\n\na ver si los FiveWinners ibéricos nos ponemos de acuerdo y hacemos un encuentro, que los colegas brasileros me están dando mucha envidia, jeje!\n\nUn saludo,\n\nCarlos.','',0,'gA==','2e0j17r0',1,0,'',316,0,0),(40991,8712,6,362,0,'200.158.19.9',1194274226,1,0,1,1,1,1,'','','[quote=&quot;Carlos Mora&quot;:up95u5jj]Hola,\n\na ver si los FiveWinners ibéricos nos ponemos de acuerdo y hacemos un encuentro, que los colegas brasileros me están dando mucha envidia, jeje!\n\nUn saludo,\n\nCarlos.[/quote:up95u5jj]\n\nQUE DIÓS TE AYUDE, CARLOS!!  ÉS MUCHO IMPORTANTE ESTES ENCUENTROS.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.congressofivewin.com.br/\">http://www.congressofivewin.com.br/</a><!-- m -->\n\nI LOVE FIVEWIN THE BEST!\n\nRegards, saludos.','',0,'gA==','up95u5jj',1,0,'',362,0,0),(40992,8721,3,868,0,'219.64.121.60',1194275159,1,0,1,1,1,1,'','','How latest is the xHarbour (bcc) build provided with FWH please?','',0,'gA==','36coes38',1,0,'',868,0,0),(40993,8721,3,2,0,'87.218.146.65',1194275396,1,0,1,1,1,1,'','','October 25 2007','',0,'gA==','b5us5trk',1,0,'',2,0,0),(40994,8612,7,456,0,'62.43.18.83',1194275647,1,0,1,1,1,1,'','','Hola Salvador y demas lectores de este foro. \n\nHe variado, y creo que mejorado un poco la gestion de log a DBF. He  cambiado el punto donde comprobar si se debe registrar en el log, lo he incluido en el metodo LeeNMEA()\n[code:11gjqrv1]\nMETHOD LeeNMEA&#40;&#41;  CLASS TGps\n   LOCAL  c, cBuffer\n\n   &#58;&#58;oTimer&#58;Deactivate&#40;&#41;\n   cBuffer &#58;= ComRead&#40; &#58;&#58;nHdlCom, LENNMEA &#41;\n\n   IF Len&#40; cBuffer &#41; &lt;= 0\n      &#58;&#58;nRetry ++\n      IF&#58;&#58;nRetry &gt; NRETRY\n        &#58;&#58;lGps    &#58;= &#46;f&#46;\n        &#58;&#58;cMsgErr &#58;= &quot;PERDIDA CONEXION&quot;\n      ENDIF\n   ELSE\n      &#58;&#58;nRetry &#58;= 0\n      FOR c &#58;= 1 TO LEN&#40; &#58;&#58;aNMEA &#41;\n         &#58;&#58;aNMEA&#91;c&#93; &#58;= StrToken&#40; cBuffer, c, &quot;$&quot; &#41;\n      NEXT\n      FOR c &#58;=  LEN&#40; &#58;&#58;aNMEA &#41; TO 1 STEP -1  // leemos ultimas sentencias\n         DO CASE\n         CASE AT&#40; &quot;GPGGA&quot;, &#58;&#58;aNMEA&#91;c&#93; &#41; ==1\n            IF ChkSum&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n               &#58;&#58;cNMEA   &#58;= &#58;&#58;aNMEA&#91;c&#93;\n               &#58;&#58;GPGGA&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n            ENDIF\n            EXIT\n         CASE AT&#40; &quot;GPRMC&quot;, &#58;&#58;aNMEA&#91;c&#93; &#41; ==1\n           IF ChkSum&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n              &#58;&#58;cNMEA   &#58;= &#58;&#58;aNMEA&#91;c&#93;\n              &#58;&#58;GPRMC&#40; &#58;&#58;aNMEA&#91;c&#93; &#41;\n           ENDIF\n           EXIT\n        ENDCASE\n     NEXT\n     //Comprobar si hay que registrar el log&#46;\n     IF &#58;&#58;lLog &#46;AND&#46; Val&#40;&#58;&#58;cFix&#41;!=0 //Log datos leidos\n         LogDbf&#40; SELF &#41;                      \n      ENDIF\n   ENDIF\n   &#58;&#58;oTimer&#58;Activate&#40;&#41;\nRETURN nil[/code:11gjqrv1]\nY el log lo proceso por medio de una funciona estatica interna (en principio no le he visto necesidad de que fuera metodo, ni que fuera accesible desde el exterior)\n[code:11gjqrv1]\n\n///////////////////////////////////////////////////////////////////////7\n//\n// LogDbf&#40;&#41;\n// Graba log de los datos leidos del GPS&#46;\n///////////////////////////////////////////////////////////////////////\nSTATIC FUNCTION  LogDbf&#40; SELF &#41;\n   IF !File&#40;CurDir&#40;&#41;+&quot;\\gps&#46;dbf&quot;&#41;\n      DBCreate&#40;CurDir&#40;&#41;+&quot;\\gps&#46;dbf&quot;,&#123;;\n                                     &#123; &quot;FECHA&quot;  , &quot;D&quot;,     8,    0 &#125;,;\n                                     &#123; &quot;HORA&quot;   , &quot;C&quot;,     8,    0 &#125;,;\n                                     &#123; &quot;LAT&quot;    , &quot;N&quot;,    10,    6 &#125;,;\n                                     &#123; &quot;LON&quot;    , &quot;N&quot;,    10,    6 &#125;,;\n                                     &#123; &quot;SAT&quot;    , &quot;N&quot;,     1,    0 &#125;,;\n                                     &#123; &quot;ALT&quot;    , &quot;N&quot;,     5,    0 &#125;,;\n                                     &#123; &quot;VEL&quot;    , &quot;N&quot;,     6,    2 &#125; ;\n                                   &#125;&#41;\n\n   ENDIF\n   IF Select&#40;\'gps\'&#41;==0\n      DBUseArea&#40;&#46;T&#46;,\'DBFCDX\',CurDir&#40;&#41;+\'\\GPS\',,&#46;F&#46;&#41;\n   ENDIF\n   Gps-&gt;&#40;DBAppend&#40;&#41;&#41;\n   Gps-&gt;Fecha &#58;= CToD&#40;&#58;&#58;cDate&#41;\n   Gps-&gt;Hora  &#58;= &#58;&#58;cTime\n   Gps-&gt;Lon   &#58;= &#58;&#58;nLong\n   Gps-&gt;Lat   &#58;= &#58;&#58;nLat\n   Gps-&gt;Sat   &#58;= Val&#40;&#58;&#58;cSats&#41;\n   Gps-&gt;Alt   &#58;= Val&#40;&#58;&#58;cAlt&#41;\n   Gps-&gt;Vel   &#58;= Val&#40;&#58;&#58;cSpeed&#41;\nRETURN NIL[/code:11gjqrv1]\nEstá función crea el DBF si no existe, y abre la tabla si no lo está. Deja la tabala abierta, luego debiera cerrarse en el meotodo end. \n\nNo he colgado toda la clase, para no aburrir con lineas y lineas de codigo que no cambian. De todas formas si a alguine le interesa, solo tiene que pedirla.','',0,'AIA=','11gjqrv1',1,0,'',456,0,0),(40995,8686,6,102,0,'87.217.67.91',1194276770,1,0,1,1,1,1,'','','Antonio,,\nSeguimos igual sigue dando el mismo error.\nError: Unresolved external \'_HB_FUN_HB_SENDMAIL\' referenced from D:\\EMAILS\\MYOBJ\\PRINCIPAL.OBJ','',0,'AIA=','5fhqiwjd',1,0,'',102,0,0),(40996,8719,3,86,0,'81.83.151.142',1194277020,1,0,1,1,1,1,'','','Hello Rick,\n\nThanks for your reaction.\n\nUnfortunately I don\'t see any difference between GetSysMetrics() and oWnd:nHorzRes() or oWnd:nVertRes(). The results are the same.\n\nProblem is that Word needs other value to set a maximum width. I tested it by using the example I sent before. The Value 768 results in a Word window with a maximum width.\n\nThanks anyway.','',0,'AIA=','27fthx8p',1,0,'',86,0,0),(40997,8539,3,448,0,'82.155.6.10',1194277431,1,0,1,1,1,0,'','','Antoino,\n\nThanks the button solution seems to work. \nOn the gets this problem doesn\'t exist. If you click the get it doesn\'t happen anything. Also it doesn\'t focus the mdichild. But at least this beahviour it\'s ok. Th user must tehn click anywere on the window to get focus of it.\n\nAntonio','',0,'AIA=','wvk4hmp2',1,0,'',448,0,0),(40998,481,1,455,0,'195.97.105.161',1194278988,1,0,1,1,1,0,'','Conversion of greek characters to Upper Case','I have made my own function to do this job called GR_UPPER(cString)\nwhich does the conversion, including accented characters (e.g. our\ngreek language \"i\" and \"I\".\nIt does not cooperate with the PICTURE clause (I never tried that)\nbut it works fine before saving GET\'s.\n\nIf you are intersted I can send by private email to anyone interested.\nPlease notice that it\'s still in 16 bit (OBJ is compiled with C 6.00)\n\nPerhaps someone could re-compile this in xHarbour so we could use\nit with xHarbour too.\n\nRegards to all\nEvans','',0,'AIA=','11m5erro',1,0,'',455,0,0),(40999,8686,6,102,0,'87.217.67.91',1194279102,1,0,1,1,1,1,'','','antonio,\nyo he sacdo un listado de las funciones de tip.lib y no veo por ninguna parte que este HB_SENDMAIL()\nTengo una utilidad para abrir liberias y no la veo por ningun lado','',0,'AIA=','1ofdezs4',1,0,'',102,0,0),(41000,8703,6,760,0,'200.37.76.89',1194279391,1,0,1,1,1,0,'','Bitmaps en Header del TWBrowse','Hola a todos del foro\n\nGracias Paco, eso era lo que estaba buscando, y la verdad no recordaba en que parte del foro estaba.\nMil gracias nuevamente...\n\nSalu2\n\nFrancis','',0,'AIA=','4ohldhec',1,0,'',760,0,0),(41001,8621,7,1185,0,'217.127.11.134',1194282411,1,0,1,1,1,1,'','','Antonio muchas gracias por tus palabras de apoyo.\n\nHe hecho la primera pruebita. Intento generar una ventana principal con un menu que llamará a las sucesivas opciones, como cualquier aplicación windows. \n\nPara hacer la prueba solo he creado la opción de salir, pero tengo 2 errores al ejecutar la opcion Generar\\Generar (May+F8) de UEstudio.\n\nTe adjunto imagen de la pantalla en la que puedes ver los errores.\n[img:1sfr9w0n]http&#58;//img100&#46;imageshack&#46;us/img100/6018/uestudio1hd5&#46;jpg[/img:1sfr9w0n]','',0,'CA==','1sfr9w0n',1,0,'',1185,0,0),(41002,8693,6,396,0,'200.71.186.110',1194282889,1,0,1,1,1,1,'','','[quote=&quot;QAZWSX2K&quot;:2pkefwul]QUE HUBO JOSE LUIS, GUARENAS AUN QUEDA ANTES DE GUATIRE A MENOS QUE CAMBIAN LA CAPITAL DE CARACAS A CAUCAGUA...JEJEJE A VER SI NOS REUNIMOS UN DIA E INTERCAMBIAMOS OPINIONES, TENGO VARIOS CLIENTES EN GUATIRE DESDE HACE MAS DE 15 AñOS, A LO MEJOR TE INTERESARIA TE PICHARA ALGUNO O HAS IDO A MONTAR ALGO DE DONDE YO HE SALIDO Y VICEVERSA, ADEMAS QUIEN QUITA SI ENTRE LOS DOS ACAPARAMOS EL MONOPOLIO EN LA ZONA....PODRIA SER INTERESANTE[/quote:2pkefwul]\nSaludos, dale, agregame al msn y stamos en contacto mas cercano, no soy ningun experto, pero me defiendo... en guarenas hay otro colega, si seguimos apareciendo haremos EL PRIMER ENCUENTRO DE FIVEWANEROS DE MIRANDA..... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','2pkefwul',1,0,'',396,0,0),(41003,8724,6,1106,0,'190.64.135.233',1194283151,1,0,1,1,1,0,'','ADS para 2 usuarios ?','Hola Fivewineros:\n\nHay una versión de ADS para 2 usuarios que es \ncomprando un libro en la pagina de ADS.\n\nAlguien la ha testeado.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernanddez.','',0,'gA==','47odd04w',1,0,'',1106,0,0),(41004,8620,6,926,0,'189.134.37.221',1194283382,1,0,1,1,1,0,'','','hola sobre el asunto de QFTP me interesa veo que  softruz tiene solucionado el porblema me gustaria si se puedes pasar el codigo se lo agradeceria mucho... saludos a todos y gracis.','',0,'gA==','8smd12pq',1,0,'',926,0,0),(41005,8620,6,926,0,'189.134.37.221',1194283456,1,0,1,1,1,0,'','Ayuda','En el post se me olvidor poner mi correo es <!-- e --><a href=\"mailto:edmundo_pato@hotmail.com\">edmundo_pato@hotmail.com</a><!-- e -->\nGracias.','',0,'gA==','17ka3x5y',1,0,'',926,0,0),(41006,481,1,455,0,'195.97.105.161',1194283671,1,0,1,1,1,0,'','Re: Conversion of greek characters to Upper Case','I have made a modification in both TGET.PRG for FW and FWH.\n\nNow greek users can use this clause\nREDEFINE GET oget VAR cGet Picture \"@g\" ID 1001 OF oDlg\netc.\n\nThe old picture \"@!\", still works, but only for upper case english characters,\nin the \"@g\" picture, it converts both english and greek characters to upper\ncase.\n\nI hereby paste the code changed in TGET.PRG (it works for both 16 bit and 32 bit)\nYou\'d need to include TGET.PRG in your programs, but have to modify\nthe METHOD KeyChar( nKey, nFlags ) CLASS TGet as follows:\n\n[code:2gxyp2ld]\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TGet\n\n   local nHi, nLo\n   local lAccept\n   local bKeyAction &#58;= SetKey&#40; nKey &#41;\n   local nDefButton\n   local n, xKey                                       // added this local variable 11/sep/2006 V&#46;\n\n\n   if ! Empty&#40; &#58;&#58;cPicture &#41; &#46;and&#46; \'@!\' $ &#58;&#58;cPicture \n      xKey &#58;= Chr&#40;nKey&#41;\n      if xKey $ &quot;abcdefghijklmnopqrstuvwxyz&quot;    // added this if - endif 11/sep/2006 V&#46;\n         xKey &#58;= Upper&#40; xKey &#41;\n         nKey &#58;= Asc&#40;xKey&#41;\n      endif xKey $ &quot;abcdefghijklmnopqrstuvwxyz&quot;    // added this if - endif 11/sep/2006 V&#46;\n   endif\n\n  if ! Empty&#40; &#58;&#58;cPicture &#41; &#46;and&#46; Upper&#40;\'@g\'&#41; $ Upper&#40;&#58;&#58;cPicture&#41;\n      * Translate to upper case - English characters first!\n      xKey &#58;= Chr&#40;nKey&#41;\n      if xKey $ &quot;abcdefghijklmnopqrstuvwxyz&quot;    // added this if - endif 11/sep/2006 V&#46;\n         xKey &#58;= Upper&#40; xKey &#41;\n         nKey &#58;= Asc&#40;xKey&#41;\n      endif xKey $ &quot;abcdefghijklmnopqrstuvwxyz&quot;    // added this if - endif 11/sep/2006 V&#46;\n      * Translate to upper case - Greek characters now!\n      xKey &#58;= Chr&#40;nKey&#41;\n      if xKey $ &quot;&#945;&#940;&#946;&#947;&#948;&#949;&#941;&#950;&#951;&#942;&#952;&#953;&#943;&#970;&#954;&#955;&#956;&#957;&#958;&#959;&#972;&#960;&#961;&#963;&#962;&#964;&#965;&#973;&#971;&#966;&#967;&#968;&#969;&#974;&quot;    // added this if - endif 11/sep/2006 V&#46;\n         n &#58;= At&#40;xKey, &quot;&#945;&#940;&#946;&#947;&#948;&#949;&#941;&#950;&#951;&#942;&#952;&#953;&#943;&#970;&#954;&#955;&#956;&#957;&#958;&#959;&#972;&#960;&#961;&#963;&#962;&#964;&#965;&#973;&#971;&#966;&#967;&#968;&#969;&#974;&quot;&#41;\n         xKey &#58;= Subs&#40;&quot;&#913;&#902;&#914;&#915;&#916;&#917;&#904;&#918;&#919;&#905;&#920;&#921;&#906;&#938;&#922;&#923;&#924;&#925;&#926;&#927;&#908;&#928;&#929;&#931;&#931;&#932;&#933;&#910;&#939;&#934;&#935;&#936;&#937;&#911;&quot;, n, 1&#41;\n         nKey &#58;= Asc&#40;xKey&#41;\n     endif xKey $ &quot;&#945;&#940;&#946;&#947;&#948;&#949;&#941;&#950;&#951;&#942;&#952;&#953;&#943;&#970;&#954;&#955;&#956;&#957;&#958;&#959;&#972;&#960;&#961;&#963;&#962;&#964;&#965;&#973;&#971;&#966;&#967;&#968;&#969;&#974;&quot;    // added this if - endif 11/sep/2006 V&#46;\n   endif\n\n\n   if bKeyAction != nil &#46;and&#46; lAnd&#40; nFlags, 16777216 &#41; // function Key\n      Eval&#40; bKeyAction, ProcName&#40; 4 &#41;, ProcLine&#40; 4 &#41;, Self &#41;\n      return 0         // Already processed, API do nothing\n   endif\n[/code:2gxyp2ld]\n\n1. The code from if bKeyAction..... and below remains unchanged\n2. If someone wants the code exactly as it should be, I can submit my own TGET.PRG\'s (16 bit and 32 bits)\n\nI believe that this is a better solution than the function GR_UPPER() above.\n\nKind regards to all\n\nEvans','',0,'AIA=','2gxyp2ld',1,0,'',455,0,0),(41007,8621,7,2,0,'87.218.146.65',1194285258,1,0,1,1,1,1,'','','Juan Antonio,\n\nQue código tienes en la primera línea de CFutbol.rc ?','',0,'AIA=','3j58zn0k',1,0,'',2,0,0),(41008,8693,6,221,0,'200.109.27.176',1194285310,1,0,1,1,1,1,'','','YO TAMPOCO SOY UN GURU PERO AHI ALGO ALGUITO, TE AGREGE AL MSN LA SEMANA PASADA','',0,'AIA=','2vzf6d7r',1,0,'',221,0,0),(41009,8686,6,2,0,'87.218.146.65',1194285546,1,0,1,1,1,1,'','','Prueba de nuevo con el fichero que te envio, gracias','',0,'AIA=','28mv058h',1,0,'',2,0,0),(41010,481,1,2,0,'87.218.146.65',1194286176,1,0,1,1,1,1,'','','Evans,\n\nThanks!','',0,'AIA=','eepkq3ol',1,0,'',2,0,0),(41011,8721,3,47,0,'58.8.102.93',1194286837,1,0,1,1,1,0,'','','Dear Antonio,\n\nI recompile FWH 707 with xHb Builder but it shows this error message.  What\'s wrong with it?\n\nThanks&amp;Regards,\nDutch\n\n[code:23etrt3h]\nType&#58; C &gt;&gt;&gt;xhb&#46;exe -o&quot;xbp\\objm\\folder&#46;c&quot; -m -n -p -q -gc0 -D__HARBOUR__   -I&quot;C&#58;\\fwh\\include&quot; -I&quot;C&#58;\\xHB\\include&quot; -I&quot;C&#58;\\xHB\\include\\w32&quot; &quot;source\\classes\\folder&#46;prg&quot;&lt;&lt;&lt;\n\nxHarbour Compiler build 0&#46;99&#46;70 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nsource\\classes\\folder&#46;prg&#40;33&#41; Error E0030  Syntax error&#58; &quot;parse error at \'FUNCTION\'&quot;\nsource\\classes\\folder&#46;prg&#40;35&#41; Error E0001  Statement not allowed outside of procedure or function\n&#46;&#46;&#46;&#46;&#46;\n[/code:23etrt3h]','',0,'AIA=','23etrt3h',1,0,'',47,0,0),(41012,8686,6,102,0,'87.217.67.91',1194286853,1,0,1,1,1,1,'','','Bueno ahora si que reconoce la funcion.\nNo tienes un ejemlo de los parametros para meter en cada una de las variables.\nGracias','',0,'AIA=','3ewmyxvz',1,0,'',102,0,0),(41013,8686,6,2,0,'87.218.146.65',1194287002,1,0,1,1,1,1,'','','José,\n\nComo te ha indicado William:\n[code:1epozwpb]\n    HB_SendMail&#40; cMail,&#123;cFile&#125;,, ; \n                &quot;Mensaje de error generado por el sistema&quot;, ; \n                &quot;Incos&quot;,&quot;wmormar@yahoo&#46;com&#46;mx&quot;, ; \n                cUsuario, ; \n                cClave, ; \n                cSmtp,,lAutentifica,nSegundos &#41; \n[/code:1epozwpb]','',0,'AIA=','1epozwpb',1,0,'',2,0,0),(41014,8710,6,73,0,'189.157.189.8',1194287218,1,0,1,1,1,0,'','','Gracias a ambos, hare algunas pruebas\nsalu2\npaco','',0,'AIA=','2rtdkpxn',1,0,'',73,0,0),(41015,8721,3,2,0,'87.218.146.65',1194287388,1,0,1,1,1,1,'','','Dutch,\n\n&gt; source\\classes\\folder.prg(33)\n\nPlease check the source code of folder.prg line 33.\n\nIt seems as if you are using a wrong hbclass.ch','',0,'AIA=','154ovfl5',1,0,'',2,0,0),(41016,8719,3,303,0,'72.220.100.171',1194287913,1,0,1,1,1,0,'','','Michel,\n\n&gt;I can\'t see the link between 1280 (returned by oWnd:nHorzRes()) and the value 768 I have to use. \n\nI assume you want to know how to do the same thing for different screen resolutions? It seems that Word is not using pixels, so perhaps you can just use the ratios:\n\nnWidth := GetSysMetrics(0) * ( 768 / 1280 )\nnHeight := GetSysMetrics(1) * ( 553 / 1024 ) \n\nJames','',0,'AIA=','266kj4dv',1,0,'',303,0,0),(41017,8725,3,51,0,'80.122.88.242',1194288181,1,0,1,1,1,0,'','oWnd:bKeyDown','I would like to find out if the control key is press.\nI tried like that but it doesn\'t work:\nThanks in advance,\nOtto\n\noWnd:bLClicked  := { |y,x,flags | test() }\n\nfunc test\nif oWnd:bKeyDown() =  VK_CONTROL \n\nelse\n\nendif','',0,'AIA=','1kd0umxg',1,0,'',51,0,0),(41018,8726,6,131,0,'83.49.187.28',1194288801,1,0,1,1,1,0,'','tprogress y windows vista','Hola,\ntengo una función de reindexar que usa la clase tprogress para mostrar el avance por pantalla. Algo asi,\n\n[code:105ou9kz]\n\n   Db_OpenNoIndex&#40; &quot;Libros&quot;, &quot;LI&quot; &#41;\n   oMeter&#58;setRange&#40; 0, LI-&gt;&#40;LastRec&#40;&#41;&#41; &#41;\n   pack\n   nMeter &#58;= 0\n   index on upper&#40;LiCodigo&#41;;\n         tag CODIGO;\n         for ! deleted&#40;&#41;;\n         eval&#40; oMeter&#58;SetPos&#40; nMeter++ &#41;, oMeter&#58;Refresh&#40;&#41;, &#46;t&#46; &#41;;\n         every 1\n\n[/code:105ou9kz]\nEl caso es que en XP va perfecto, pero en Windows Vista el meter no arranca, como que se queda parado. ¿ Alguna idea ?\n\nSaludos,','',0,'AIA=','105ou9kz',1,0,'',131,0,0),(41019,8725,3,51,0,'80.122.88.242',1194288870,1,0,1,1,1,0,'','','I find a solution with:\n  if GetKeyState( VK_CONTROL )\nelse\nendif','',0,'AIA=','6leua5pd',1,0,'',51,0,0),(41020,8686,6,102,0,'87.217.67.91',1194289195,1,0,1,1,1,1,'','','Antonio,\nahora me da un error de sistema.\nAhora tengo que irme pero mañana volvere.\nSiento darte la lata, pero necesito hacer esto.\nHB_SendMail( cMail,{cFile},, ; \n                \"Mensaje de error generado por el sistema\", ; \n                \"Incos\",\"wmormar@yahoo.com.mx\", ; \n                cUsuario, ; \n                cClave, ; \n                cSmtp,,lAutentifica,nSegundos ) \ncMail   = ? Destinatario ?\n{cFile } = ? Fichero a enviar ?\nIncos = ???\ncUsuario = ? \ncClave = ?\ncsmtp = ?\nlAutentifica = ?\nnSegundos = ?\n\nPerdona que sea tan topr pero hay cosa que no entiendo pues los parametros que tu me distes no coinciden con esto\n\nGracias','',0,'AIA=','1xiki3zo',1,0,'',102,0,0),(41021,8686,6,2,0,'87.218.146.65',1194289623,1,0,1,1,1,1,'','','José,\n\nLa función HB_SendMail() no es de FWH, sino de xHarbour. \n\nEstamos intentando ayudarte todo lo que podemos, pero posiblemente tengas que preguntar en comp.lang.xharbour accesible desde google grupos','',0,'AIA=','1qxp20j5',1,0,'',2,0,0),(41022,8726,6,2,0,'87.218.146.65',1194290066,1,0,1,1,1,1,'','','Jose Luis,\n\nRevisa samples\\ProgTime.prg, aqui funciona bien en Vista.\n\nPrueba a aumentarle el incremento:\noMeter:SetPos( nMeter += 5 )','',0,'AIA=','1p4lab7t',1,0,'',2,0,0),(41023,8727,6,1104,0,'190.55.44.81',1194293034,1,0,1,1,1,0,'','Compilar','Hola a todos,\nAlguien sabe si hay alguna forma de que cuando compilo ejecutando un archivo compilar.bat este me genere un archivo solo con los errores y warnings que tenga el prg?\n\nMi compilar.log es así:\n\n[code:2slpjh88]\nHARBOUR INICIO   /a /n /w /oC\\   &gt;COMPILAR&#46;LOG\necho -------------------------------------------------------------------- &gt;&gt;COMPILAR&#46;LOG\n\nBCC32 -M -c -nOBJ\\ C\\INICIO&#46;C    &gt;&gt;COMPILAR&#46;LOG\necho -------------------------------------------------------------------- &gt;&gt;COMPILAR&#46;LOG\n\n[/code:2slpjh88]\n\nDesde ya muchas gracias a todos.\nSaludos, Esteban','',0,'AIA=','2slpjh88',1,0,'',1104,0,0),(41024,8727,6,2,0,'87.218.146.65',1194293219,1,0,1,1,1,1,'','','Esteban,\n\nSi sólo quieres la información del PRG entonces no uses &gt;&gt; COMPILAR.LOG en esta línea:\n\nBCC32 -M -c -nOBJ\\ C\\INICIO.C','',0,'AIA=','312k3mpy',1,0,'',2,0,0),(41025,8727,6,1104,0,'190.55.44.81',1194295138,1,0,1,1,1,0,'','','Gracias Antonio, \nAun así sigue generando muchas lineas solo con los numeros de lineas de los prg.\nAsí me genera el compilar.log\n[code:ujqy0wye]\nHarbour Alpha build 1&#46;0 Intl&#46;\nCopyright 1999-2007, http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'RECIBOS&#46;prg\'&#46;&#46;&#46;\n\n100\n\n100\n\n200\n\n300\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\n1200\n\nRECIBOS&#46;prg&#40;1201&#41; Warning W0001  Ambiguous reference&#58; \'IMP2\'\n\n1300\n\nRECIBOS&#46;prg&#40;1317&#41; Warning W0001  Ambiguous reference&#58; \'G\'\n\n1400\n\n1500\n\nLines 5927, Functions/Procedures 27\nGenerating C source output to \'C\\RECIBOS&#46;c\'&#46;&#46;&#46; Done&#46;\n--------------------------------------------------------------------\n[/code:ujqy0wye]\n\nYo solo quisiera si se puede solo lo siguiente:\n\n[code:ujqy0wye]\nHarbour Alpha build 1&#46;0 Intl&#46; \nCopyright 1999-2007, http&#58;//www&#46;harbour-project&#46;org/ \nCompiling \'RECIBOS&#46;prg\'&#46;&#46;&#46; \n\nRECIBOS&#46;prg&#40;1201&#41; Warning W0001  Ambiguous reference&#58; \'IMP2\'\n\nRECIBOS&#46;prg&#40;1317&#41; Warning W0001  Ambiguous reference&#58; \'G\'\n\n[/code:ujqy0wye]\n\nAdemas de esto desearia que el archivo compilar.log solo se genere si existen Warnings o errores en el prg.','',0,'AIA=','ujqy0wye',1,0,'',1104,0,0),(41026,8719,3,86,0,'81.83.151.142',1194295401,1,0,1,1,1,1,'','','James,\n\nThanks for you suggestion.\n\nI\'ll try it out.','',0,'AIA=','2rckevv8',1,0,'',86,0,0),(41027,8728,6,500,0,'83.43.217.179',1194297152,1,0,1,1,1,0,'','No exported method: NHEIGHT','Hola a todos.\nHace ya tiempo que no programo, y ahora me toca de nuevo, he comprado Harbour/(x)Harbour y me pongo a compilar un módulo en el que solo hay un menú, y despues de algunas vicisitudes con Verce para poder compilar, me arroja el siguiente error\n\nApplication\n===========\n   Path and name: D:\\clientes\\REGEL2\\REGELW\\REGEL.Exe (32 bits)\n   Size:   375,808 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 04-11-2007, 11:39:30\n   Error description: Error BASE/1004  No exported method: NHEIGHT\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; NHEIGHT(0)\n   Called from: D:\\clientes\\REGEL2\\REGELW\\geshinic.prg =&gt; (b)MAIN(69)\n   Called from:  =&gt; TMDIFRAME:PAINT(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; UPDATEWINDOW(0)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: D:\\clientes\\REGEL2\\REGELW\\geshinic.prg =&gt; MAIN(69)\n\nSystem\n======\n   CPU type:                 Intel(R) Celeron(R) CPU 2.80GHz 2683 Mhz\n   Hardware memory: 256 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour devel build 1.1-1 Intl.\n   Windows version: 5.0, Build 2195 Service Pack 4\n\nLa línea que produce el error es esta\n\n[i:3nft6lrb]ACTIVATE WINDOW oWMain MAXIMIZED ;\n   ON PAINT PalBmpDraw( hDC, ;\n   ( oWMain:nHeight() / 4 ) - ( oBmp:nHeight() / 4 ) - 50,;\n   ( oWMain:nWidth() / 4 ) - ( oBmp:nWidth() / 4 ), oBmp:hBmpPal ) ;\n   ON INIT EscogeArea() ;\n   VALID MsgYesNo( \"Realmente desea salir?\",\"Elija\" )\n[/i:3nft6lrb]\n\nEsto funciona bien en Fivewin, pero parece que no en Harbour,\n\n¿Alguna ayudita?\n\nGracias a todos\n\nPedro','',0,'IA==','3nft6lrb',1,0,'',500,0,0),(41028,8729,3,51,0,'80.122.88.242',1194298329,1,0,1,1,1,0,'','drag drop oSay','Could someone show me what I am doing wrong that oSay drag doesn’t fire a oWnd:bDropOver?\n\n// FiveWin - own Drag&amp;Drop new features !!!\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oSay, oCrs, oIco1, oIco2, oIco3\n\n   DEFINE CURSOR oCrs DRAG\n\n   DEFINE WINDOW oWnd TITLE \"FiveWin own Drag&amp;Drop features\"\n\n   oWnd:bDropOver = { || MsgStop( \"Hey, don\'t litter here !!!\" ) }\n\n   @ 4,  5 ICON oIco1 FILENAME \"..\\icons\\Recycle2.ico\" OF oWnd\n   @ 8, 15 SAY oSay PROMPT \"Test\"    COLORS   nRGB( 255, 0, 0 ) , nRGB( 55, 55, 255)    of Ownd\n\n   oSay:lDrag = .t.\n   oSay:oDragCursor = oCrs\n\n   oIco1:oDragCursor = oCrs\n\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil','',0,'IA==','j6sfbukf',1,0,'',51,0,0),(41030,8728,6,2,0,'87.218.146.65',1194300265,1,0,1,1,1,1,'','','Pedro,\n\nComprueba que oBmp sea distinto de nil (busca en el PRG en donde creas oBmp):\n\nMsgInfo( oBmp:ClassName() )\n\nACTIVATE WINDOW ...\n\ntambien tienes que cambiar oBmp:hBmpPal por oBmp:hBitmap','',0,'IA==','2cv8daj3',1,0,'',2,0,0),(41031,8686,6,54,0,'189.132.93.112',1194310946,1,0,1,1,1,1,'','','Contáctame por messenger y con gusto te ayudo\n\nmi cuenta eS:\n\n<!-- e --><a href=\"mailto:wmormar@hotmail.com\">wmormar@hotmail.com</a><!-- e -->\n\nsaludos\n\n[quote=&quot;jmua&quot;:2hip4wa4]Antonio,\nahora me da un error de sistema.\nAhora tengo que irme pero mañana volvere.\nSiento darte la lata, pero necesito hacer esto.\nHB_SendMail( cMail,{cFile},, ; \n                \"Mensaje de error generado por el sistema\", ; \n                \"Incos\",\"wmormar@yahoo.com.mx\", ; \n                cUsuario, ; \n                cClave, ; \n                cSmtp,,lAutentifica,nSegundos ) \ncMail   = ? Destinatario ?\n{cFile } = ? Fichero a enviar ?\nIncos = ???\ncUsuario = ? \ncClave = ?\ncsmtp = ?\nlAutentifica = ?\nnSegundos = ?\n\nPerdona que sea tan topr pero hay cosa que no entiendo pues los parametros que tu me distes no coinciden con esto\n\nGracias[/quote:2hip4wa4]','',0,'gA==','2hip4wa4',1,0,'',54,0,0),(41032,8727,6,54,0,'189.132.93.112',1194311967,1,0,1,1,1,1,'','','jrestojeda,\n\nPuedes usar VERCE\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin\">http://incos.sytes.net/fivewin</a><!-- m -->\n\ncon gusto te ayudamos a hacer lo que necesites para compilar con VERCE\n\no puedes contactarme via messenger','',0,'gA==','15oiy1k8',1,0,'',54,0,0),(41033,8721,3,47,0,'203.144.160.247',1194313382,1,0,1,1,1,0,'','','Dear Antonio,\n\nYes, it absolutely right.  \n\nYou are the one.\n\nRegards,\nDutch','',0,'gA==','1gh3y92z',1,0,'',47,0,0),(41034,8731,6,121,0,'189.138.188.45',1194313918,1,0,1,1,1,1,'','YA CASI BROWSE DE HERNAN','Finalmente ( gracias a Antonio) pude compilar\nla libreria y compilar los ejemplos que vienen con la clase\npero.....\nel cualquiera de los ejemplos al ejecutarlos me manda\nun error\nError description: Error BASE/1003  Variable does not exist: NELEMENTS\n\ntuve que declarar un variable public nelements:=0\n\nes eso normal?','',0,'gA==','3afd2ezl',1,0,'',121,0,0),(41035,8657,12,179,0,'190.154.84.240',1194315008,1,0,1,1,1,1,'','','gracias Antonio, lo pruebo y te aviso\n\nsaludos\n\natt','',0,'gA==','3s4ucwm9',1,0,'',179,0,0),(41036,8724,6,179,0,'190.154.84.240',1194315367,1,0,1,1,1,1,'','','Ruben\nyo he comprado el libro y he testeado esa version funciona bien\nlamentablemente el libro trata de varios lenguajes de programacion menos de (x)Harbour\n\nsaludos','',0,'gA==','33398cl4',1,0,'',179,0,0),(41037,8732,3,868,0,'210.212.216.67',1194322422,1,0,1,1,1,1,'','Error on TBar Float','When the user clicks on the buttonbar and selects float we are getting the folloing error:\n[code:3opjykbg]\nStack Calls\n===========\n   Called from&#58; MENU&#46;PRG =&gt; TMENU&#58;ADD&#40;0&#41;\n   Called from&#58; PDMENU&#46;PRG =&gt; &#40;b&#41;MENUEND&#40;0&#41;\n   Called from&#58;  =&gt; AEVAL&#40;0&#41;\n   Called from&#58; PDMENU&#46;PRG =&gt; MENUEND&#40;0&#41;\n   Called from&#58; BAR&#46;PRG =&gt; TBAR&#58;FLOAT&#40;0&#41;\n   Called from&#58; BAR&#46;PRG =&gt; &#40;b&#41;TBAR&#58;RBUTTONDOWN&#40;0&#41;\n   Called from&#58; MENU&#46;PRG =&gt; TMENU&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; BAR&#46;PRG =&gt; TBAR&#58;RBUTTONDOWN&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TBAR&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; _FWH&#40;3221&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; window&#46;prg =&gt; TMDIFRAME&#58;ACTIVATE&#40;895&#41;\n[/code:3opjykbg]\nI have tested this with 2007 style bar only.','',0,'AIA=','3opjykbg',1,0,'',868,0,0),(41038,8733,3,868,0,'210.212.216.67',1194327245,1,0,1,1,1,1,'','How to find coordinates of display area of window','Many times I experience difficulty in placing the controls in a window to decide the exact coordinates. What is the simplest and reliable way to find the top,left,bottom and right of the display area of a window, after removing the area occupied by button bar and message bar?\n\nFor example if i want to position a control at 0,0 then I need to say something like @ IIF( oWnd:oBar:nMode == 1, oWnd:oBar:nHeight, 0 ), IIF( oWnd:oBar:nMode == 2, oWnd:oBar:nWidth, 0 ) CONTROL ....   .\n\nSimilarly if I have to set the height of a control to occupy full window heght, I may have to say something like oWnd:GetCliRect():nHeight - oWnd:oBar:nheight - oWnd:oMsgBar:nHeight .... \n\nIs there a better and simpler way to find these coordinates?  Can Window class be improved to provide these values like oWnd:ClientTop ,, etc ?','',0,'AIA=','38q39byj',1,0,'',868,0,0),(41039,8734,3,868,0,'210.212.216.67',1194328063,1,0,1,1,1,1,'','window methods','I find so many interesting datas and methods in Window class, but I dont know what do they do.  The documentation does not throw any light on these methods. \n\nIn particular I would be glad if some light can be thrown on the use and potential of methods/data like :taskbar(), bTaskBar, :ClientEdge(), ::NcActivate()','',0,'AIA=','2uvnvn8m',1,0,'',868,0,0),(41040,8735,3,3,0,'80.81.159.19',1194328369,1,0,1,1,1,1,'','FWH 7.11 menu 2007 painting','Antonio, \n\nHorizontal menus are badly painted when 2007 is used \n\nI join 2 images, one with standard menu and one with 2007 menu\n\nNote , vertical menus (sub menus) are correctly painted\n\n\n[img]www.cbati.com/MENU.jpg\n\n[/img]www.cbati.com/MENU2007.jpg\n\nRichard\n[/img]','',0,'','xv5jlliu',1,0,'',3,0,0),(41041,8686,6,102,0,'87.217.67.91',1194329947,1,0,1,1,1,1,'','','Antonio,\nMuchas gracias, sabes que yo suelo dar poco la lata, se  puede comprobar viendo los pocos mensajes de ayuda que envie desde que estamos en este foro.\nYa se que HB_SENDMAIL() no es FWH, pero de seguro  que vosotros habeis utilizado esta funcion en vuestras aplicaciones y sabeis de que va el tema.\nBueno el problema es que como no hay debug no puedo ver donde casca\nTratare de entrar en los grupos que dices a ver si consigo algo.\nDe todas formas Como Willian esta dispuesto a ayudarme, me pondre en contacto con el.\nEn fin un millon de gracias.\nUn saludo','',0,'','viiarcbc',1,0,'',102,0,0),(41042,8735,3,51,0,'80.122.88.242',1194331381,1,0,1,1,1,0,'','','To all,\nI found out that:\nthe image link in this NG needs the \n1) http: \n2) Backslash must be slash\n3) no spaces\nRegards,\nOtto\nHere the screens from Richards post:\n[img:10adqf5l]http&#58;//www&#46;cbati&#46;com/MENU&#46;jpg[/img:10adqf5l] \n\n[img:10adqf5l]http&#58;//www&#46;cbati&#46;com/MENU2007&#46;jpg[/img:10adqf5l][/img]','',0,'CA==','10adqf5l',1,0,'',51,0,0),(41043,8731,6,2,0,'87.218.146.65',1194335440,1,0,1,1,1,1,'','','Busca en los PRGs a ver donde se usa esa variable','',0,'CA==','1e61iwiz',1,0,'',2,0,0),(41044,8735,3,2,0,'87.218.146.65',1194335601,1,0,1,1,1,1,'','','Richard,\n\nAre you using a larger font than the Windows default one for menus strings ?','',0,'CA==','31gvgmnv',1,0,'',2,0,0),(41045,8726,6,131,0,'81.34.218.41',1194336193,1,0,1,1,1,0,'','','Antonio,\nla unica manera de hacerlo funcionar ha sido metiendole un inkey para que vaya más despacito la cosa. Algo así:\n\n[code:2bpjg4zh]\n   index on upper&#40;LiCodigo&#41;;\n         tag CODIGO;\n         for ! deleted&#40;&#41;;\n         eval &#40; inkey&#40;0&#46;01&#41;, oMeter&#58;SetPos&#40; nMeter+=5 &#41;, oMeter&#58;Refresh&#40;&#41;, &#46;t&#46; &#41;;\n         every 5\n[/code:2bpjg4zh]\n\nAhora lo que me pasa es que el meter no llega hasta el final, se queda como en la mitad, y eso que cuando termina oMeter:nPos vale lo mismo que oMeter:nMax.\n\nSaludos,','',0,'AIA=','2bpjg4zh',1,0,'',131,0,0),(41046,8735,3,3,0,'80.81.159.19',1194336973,1,0,1,1,1,1,'','','Antonio,\n\nNo just standard font, in fact i am not defining any font\n\nRichard','',0,'AIA=','1iakj0z1',1,0,'',3,0,0),(41047,8729,3,51,0,'80.122.88.242',1194340253,1,0,1,1,1,0,'','','I think there is  SendMessage missing in the \nMETHOD LButtonUp CLASS TControl\n   if lDragging\n...    \n\n   if ::lDrag\n    ???    SendMessage()\n    \nCould this be?\n\nRegards,\nOtto','',0,'AIA=','2tq1r49i',1,0,'',51,0,0),(41048,8711,3,130,0,'141.51.32.24',1194340388,1,0,1,1,1,1,'','','NageswaraRao, \n\nthe sample is working with XP and Vista. Not tested with W98.','',0,'AIA=','350pewjp',1,0,'',130,0,0),(41049,8726,6,2,0,'87.218.146.65',1194340453,1,0,1,1,1,1,'','','José Luis,\n\nHas probado a usar SysRefresh() en vez de Inkey() ? Es más aconsejable','',0,'AIA=','139crvhk',1,0,'',2,0,0),(41050,8735,3,2,0,'87.218.146.65',1194340593,1,0,1,1,1,1,'','','Richard,\n\nI don\'t mean in your application. In Windows general settings.','',0,'AIA=','2mb0667f',1,0,'',2,0,0),(41051,8729,3,2,0,'87.218.146.65',1194340748,1,0,1,1,1,1,'','','Otto,\n\nPlease add this in your PRG:\n\noSay:lWantClick = .T.','',0,'AIA=','32mqxai1',1,0,'',2,0,0),(41052,8733,3,2,0,'87.218.146.65',1194340923,1,0,1,1,1,1,'','','NageswaraRao,\n\nThe buttonbar and the messagebar are also controls, in the same way as SAYs, GETs, Buttons, etc.\n\nYou just need to use oBar:nHeight and oMsgBar:nHeight to calculate the right coordinates for the other controls\n\nWhen you do oWnd:oClient = oControl the FWH calculates the remaining client area automatically','',0,'AIA=','2xh62vp0',1,0,'',2,0,0),(41053,8540,3,2,0,'87.218.146.65',1194341084,1,0,1,1,1,1,'','','Antonio,\n\nHave you tried to use this code:\n[code:1s25qzqx]\nfunction BuildChild&#40; oWnd &#41; \n\n   local oChild \n\n   DEFINE WINDOW oChild TITLE &quot;Test&quot; MDICHILD \n\n   WndTop&#40; oChild&#58;hWnd, 30 &#41;  // change 30 for your own needs\n   WndLeft&#40; oChild&#58;hWnd, 30 &#41;  //    &quot;\n\nreturn nil \n[/code:1s25qzqx]','',0,'AIA=','1s25qzqx',1,0,'',2,0,0),(41054,8733,3,868,0,'210.212.216.67',1194341250,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks\n\n&gt; When you do oWnd:oClient = oControl the FWH calculates the remaining client area automatically\n\nI am doing that for single controls like browses and also ownd:oleft := ocontrol, etc. if i use two or three controls, like browses, listboxes, etc.','',0,'AIA=','198k460a',1,0,'',868,0,0),(41055,8732,3,2,0,'87.218.146.65',1194341533,1,0,1,1,1,1,'','','NageswaraRao,\n\nPlease add this code to source\\classes\\menu.prg:\n[code:18nkc4l9]\nMETHOD Add&#40; oMenuItem, lRoot &#41; CLASS TMenu\n\n   DEFAULT lRoot &#58;= &#46;F&#46;, &#58;&#58;l2007 &#58;= &#46;F&#46;  // here!\n   &#46;&#46;&#46;\n[/code:18nkc4l9]','',0,'AIA=','18nkc4l9',1,0,'',2,0,0),(41056,8720,16,2,0,'87.218.146.65',1194341938,1,0,1,1,1,1,'','','Construccion Noviembre 2007 \n=====================\n\n* Nuevo: Apariencia Office 2007 en los menús. Por favor, revise samples\\Test2007.prg\n\n* Corrección: Pequeña corrección en la clase TToolBar. Gracias a Moises !!! \n\n* Mejora: Las clases TBar y TMsgBar no estaban evaluando ::bPainted si la clausula 2007 era usada. Ahora está correcta. \n\n* Corrección: Pequeña corrección en la clase TControl con respecto al uso de ::bMMoved. \n\n* Corrección: La función FixSays() no estaba manejando correctamente todos los iconos. Ahora está correcta. \n\n* Mejora: El método SetRdd( [lAddColumns] ) de la clase TXBrowse, ahora puedes proporcionar el parámetro lAddColumns como .F. (es .T. por defecto) para evitar la creación de columnas automáticas de columnas en el \"browse\" de la DBF en uso. \n\n* Mejora: La clase TBar ya no dibuja un recuadro invertido cuando se pulsa el ratón estando sobre ella. \n\n* Corrección: El método DrawItem() de la clase TListBox estaba llamando erróneamente al método LbxDrawItem() cuando un menú POPUP está en la parte superior. Ahora está correcta.  \n\n* Corrección: Método GoUp() de la clase TXBrowse. Gracias a Carlos Mora !!! \n\n* Corrección: Los \"bitmaps\" no se centraban correctamente en los botones de bitmaps \"BtnBmps\" cuando se usaba un \"popup\" con los \"BtnBmps\". Ahora esta correcto.\n\n* Mejora: La clase TbtnBmp soporta múltiples líneas de texto en los botones, usando CRLFs.\n\n* Nuevo: En FWPPC, el ejemplo samples\\Gps.prg, muestra como usar el GPS desde Fivewin para PPC. Muchas gracias a Salvador Gallardo !!! \n\n* Nuevo: Método ShowPopup() en la clase TBtnBmp, permite mostrar el \"popup\" de un objeto BtnBmp, si un \"popup\" es definido para ello, como la acción del botón. Por favor, revisa el ejemplo samples\\Test2007.prg\n\n* Nuevo: La nueva construcción de xHarbour requiere enlazar el fichero pcrepos.lib. Por favor, incluya este fichero en sus ficheros makefile o bat que esté usando. \n\n* Mejora: Los métodos GoNextCtrl() y GoPrevCtrl() de la clase TWindow ahora funcionan en ventanas (principal ó mdichilds) también. \n\n* Nuevo: La previsualización de la impresión automáticamente usa la apariencia Office 2007 si dicha apariencia es usada en la barra de botones de la ventana principal. \n\n* Nuevo: Método SysChar( nKey, nFlags ) en la clase TControl. Por favor, revise el ejemplo samples\\TestMdiR.prg y comprueba los aceleradores Alt+... \n\n* Corrección: Varias correcciones en la clase TXBrowse. \n\n* Mejora: Tened en cuenta que el fichero Fivewin.ch ha sido modificado, debido a recientes cambios en Harbour. Por favor, use este nuevo Fivewin.ch. También si estas usando tu propio módulo ErrSysW.prg, hay algunas nuevas líneas al final del nuestro que deberías copiar en el tuyo.','',0,'','1b9k5fu4',1,0,'',2,0,0),(41057,8735,3,3,0,'80.81.159.19',1194342810,1,0,1,1,1,1,'','','Antonio\n\nYes i have a larger font for menus in windows settings\n\nI use it for my POS system\n\nRichard','',0,'','2vm6oic6',1,0,'',3,0,0),(41058,8726,6,131,0,'81.34.218.41',1194345780,1,0,1,1,1,0,'','','Si, antes lo tenía con sysrefresh pero no iba bien. Acabo de volverlo a probar y sin inkey no hay tutia. ¿ Cual es la cantidad menor de tiempo que le puedo poner a un inkey ?\nSobre lo de que el meter llegue a la mitad, al estar en un dialogo... ¿ el valor de oMeter:nMax tiene que ser la mitad que si estuviera en una ventana ? Lo digo por el lio de las coordenadas en dialogos que son la mitad y todo eso.\n\nSaludos,','',0,'','3rhlvf0b',1,0,'',131,0,0),(41059,8729,3,51,0,'80.122.88.242',1194345862,1,0,1,1,1,0,'','','Does not help:\n\nPlease could you check the LButtonUp method.\nIf you are in drag modus ::lDrag is true and in the \nif ::lDrag\nendif \nthere is no sendmessage.\nRegards,\nOtto','',0,'','78ugsumv',1,0,'',51,0,0),(41060,8726,6,2,0,'87.218.146.65',1194345915,1,0,1,1,1,1,'','','No tendría porque ser la mitad. Cosas de Windows <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','19avqsrl',1,0,'',2,0,0),(41061,8726,6,131,0,'81.34.218.41',1194345936,1,0,1,1,1,0,'','','Lo que no entiendo es que pase con Vista, porque con XP iba de coña.\n\nSaludos,','',0,'','3rojkpj7',1,0,'',131,0,0),(41062,8726,6,2,0,'87.218.146.65',1194346039,1,0,1,1,1,1,'','','Cuando haces oMeter:setRange( 0, LI-&gt;(LastRec()) ) el meter ya tiene un handle de control válido ? Es decir, tendrías que hacerlo desde la claúsula ON INIT del diálogo.\n\nExisten algunas diferencias entre XP y Vista. Son pocas, pero las hay.','',0,'','2cbgd79h',1,0,'',2,0,0),(41063,8729,3,2,0,'87.218.146.65',1194346568,1,0,1,1,1,1,'','','Otto,\n\nThe SAYs don\'t react to the mouse. Its a standard Windows behavior. \n\nYou have to modify Class TSay Method HandleEvent()','',0,'','338j9stm',1,0,'',2,0,0),(41064,8729,3,51,0,'80.122.88.242',1194347113,1,0,1,1,1,0,'','','Hello Antonio,\nI don\'t understand this.\nI thought if you inherit you have the methods of the parent object.\nIs this wrong?\nRegards,\nOtto','',0,'','1ipdip9h',1,0,'',51,0,0),(41065,8729,3,2,0,'87.218.146.65',1194347861,1,0,1,1,1,1,'','','Otto,\n\nYou are right. But as I have commented you, a SAY control will not receive mouse events. You can test this modifying method HandleEvent(), or consider to use another control, not a SAY.','',0,'','11ze28b1',1,0,'',2,0,0),(41066,8729,3,51,0,'80.122.88.242',1194348544,1,0,1,1,1,0,'','','Hello Antonio,\n\nI think it is the same with the other controls.\n\nWhat is the problem if I change \n      return 0  to \n\n      return Super:LButtonUp( nRow, nCol, nKeyFlags )\n\nin the LButtonUp method.\n\nThen it is working. Do we face other problems.\nRegards,\nOtto','',0,'','10z6unom',1,0,'',51,0,0),(41067,6219,6,774,0,'200.72.70.198',1194349755,1,0,1,1,1,1,'','','AMIGOS MIOS ::\n\nLA FUNCTION PARA EL SCROLL,, EN WINDOW Y EN DIALOG,, FUNCIONAN OK\n\n\nEL UNICO DETALLE QUE LE QUEDA ,, ES LA RUEDA DEL MOUSE,,, NO FUNCIONA CON ESTA CLASE,, ALGUIEN SABE COMO HACERLA FUNCIONAR..\n\n\nGRACIAS','',0,'','90ladxek',1,0,'',774,0,0),(41068,8726,6,131,0,'81.34.218.41',1194350128,1,0,1,1,1,0,'','','Antonio,\nyo defino el meter en una función, de esta manera:\n\n[code:1c5rri5d]\n   DEFINE DIALOG oDlg OF oApp&#40;&#41;&#58;oWndMain RESOURCE &quot;UT_INDEXAR&quot; TITLE oApp&#40;&#41;&#58;cAppName\n   oDlg&#58;oFont&#58;= oApp&#40;&#41;&#58;oFont\n\n      REDEFINE BITMAP oBmp ID 111 OF oDlg RESOURCE &quot;BB_INDEX&quot; TRANSPARENT\n\n      REDEFINE SAY aSay&#91;01&#93; ID  99 OF oDlg PROMPT i18n&#40; &quot;Generando índices&#46;&#46;&#46;&quot; &#41;\n      REDEFINE SAY aSay&#91;02&#93; ID 100 OF oDlg PROMPT &quot;&quot;\n\n      oMeter &#58;= TProgress&#40;&#41;&#58;Redefine&#40; 101, oDlg &#41;\n\n   oDlg&#58;bStart &#58;= &#123; || SysRefresh&#40;&#41;, Ut_CrearCdx&#40; aSay&#91;02&#93;, oMeter, lMsg &#41;, oDlg&#58;End&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT DlgCenter&#40;oDlg,oApp&#40;&#41;&#58;oWndMain&#41;\n[/code:1c5rri5d]\n\ny en Ut_CrearCdx está el código del reindexado. Asi es como lo he hecho siempre y ha funcionado en 95, 98, Me y XP. Dime que hago para que vaya en Vista, y siga funcionando en XP.\n\nGracias,','',0,'AIA=','1c5rri5d',1,0,'',131,0,0),(41069,8736,3,473,0,'81.82.10.56',1194350984,1,0,1,1,1,0,'','Shortkeys via ALT key in resource Workshop screens','Hello,\n\nWhen you use an &amp; in the label of a button like \"&amp;New\" you can use Alt-N on the keyboard to press the button.\n\nThe letter N in the word New is underlined so the user can see wich buttons can be used with alt-shortcuts.\n\nThis works fine but there is one little problem.\n\nWhen the screen is first opened the letter N is not underlined. You have to pres the alt key once before the buttons are displayed with the underlining.\n\nSomeone an idea how to fix this.\n\nThanks\n\nWilly.','',0,'AIA=','ej0pefs7',1,0,'',473,0,0),(41070,8736,3,868,0,'219.64.121.60',1194351587,1,0,1,1,1,1,'','','This is the default behavior of Windows XP.  User can change the behavior if he wants through system Display Properties Appearance folder Effects option. FWH\'s menu is the same as Windows menu system.','',0,'AIA=','3di6huu3',1,0,'',868,0,0),(41071,8731,6,36,0,'164.77.81.210',1194351647,1,0,1,1,1,1,'','','Mira estos Post\n\n\n[url:16x8w0ab]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3253&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=nelements[/url:16x8w0ab]\n[url:16x8w0ab]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=7342&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=nelements[/url:16x8w0ab]','',0,'EA==','16x8w0ab',1,0,'',36,0,0),(41072,8736,3,473,0,'81.82.10.56',1194352320,1,0,1,1,1,0,'','','Thanks,\n\nIt is working fine now.','',0,'EA==','3fqfrz7o',1,0,'',473,0,0),(41073,8737,1,477,0,'69.159.178.212',1194357793,1,0,1,1,1,0,'','error compiling 2','Software used : Clipper 5.3c, Blinker 4, Fw 7.1, Windows 98\n\nWhen compiling this error occur : constant.ch (61) fatal c3048 preprocessor table overflow\nHow can l fix it\n\nmany tanks\n\nI put #define clipper501 at first and l try to compile tget.prg (class). It give me a lots of\nerror c2001 syntax error. Like the name of method or \":\"\n\nmany tanks','',0,'EA==','3vo24k1a',1,1194372323,'',477,1,0),(41074,8621,7,1185,0,'217.127.11.134',1194360414,1,0,1,1,1,1,'','','Hola Antonio, temiendo que el problema estuviera en el fichero de recursos, que haía sido hecho con PellesC, he vuelto a crearlo con UEstudio. Si te fijas ahora solo tiene la opción archivo, pero al ejecutarlo en el emulador el menú no se ve. Te adjunto imagen de los dos monitores que uso para trabajar.\n\n[img:2jzc3rid]http&#58;//img207&#46;imageshack&#46;us/img207/3/uestudio2gb1&#46;jpg[/img:2jzc3rid]','',0,'CA==','2jzc3rid',1,0,'',1185,0,0),(41075,6999,6,1178,0,'200.24.127.11',1194360811,1,0,1,1,1,0,'','','[quote=&quot;ralph&quot;:2came3wl]ese metodo SayBitmap() es de la clase tPrinter, verifica que estes linkeando con una version actualizada.\n\nSaludos\n\nRalph[/quote:2came3wl]\n\nAgrege a mi proyecto el archivo report.prg y printer.prg y me sigue generando el error, \nLo curioso es que vuelvo a compilar tu ejemplo y no pasa esto, es solo cuando lo agreso a mi proyecto\nLa clase a que tu te refieres estan el el archivo clases el archivo se llama printer.prg este lo agrege al proyecto.','',0,'gA==','2came3wl',1,0,'',1178,0,0),(41076,8621,7,2,0,'87.218.146.65',1194361818,1,0,1,1,1,1,'','','Juan Antonio,\n\nLos menus de Pocket PC no puedes editarlos con Pelles C, ni con otro editor de recursos, ya que usan una configuración especial.\n\nPor favor revisa/samples/TestMenu.prg y TestMenu.rc para que veas como hay que construir los menus en el fichero RC de recursos','',0,'gA==','6atfq4zv',1,0,'',2,0,0),(41077,8726,6,2,0,'87.218.146.65',1194361934,1,0,1,1,1,1,'','','Jose Luis,\n\nEl rango del meter, lo defines en Ut_CrearCdx() ?','',0,'gA==','2bjzw740',1,0,'',2,0,0),(41078,8737,1,2,0,'87.218.146.65',1194362080,1,0,1,1,1,1,'','','Please add this line in your PRG before #include \"FiveWin.ch\":\n\n#define CLIPPER501\n#include \"FiveWin.ch\"','',0,'gA==','1zyndcoz',1,0,'',2,0,0),(41079,8711,3,190,0,'124.7.114.86',1194362986,1,0,1,1,1,0,'','','[quote:2s61bfcv]\nthe sample is working with XP and Vista. Not tested with W98.\n[/quote:2s61bfcv]\n\nNot working in Win98!\n\n- Ramesh Babu P','',0,'gA==','2s61bfcv',1,0,'',190,0,0),(41080,8621,7,1185,0,'217.127.11.134',1194363749,1,0,1,1,1,1,'','','Antonio, \n\nLo he visto, incluso también he mirado [i:3knqd61k]testmenu2.prg[/i:3knqd61k] y [i:3knqd61k]testmnu2.rc[/i:3knqd61k] \n\nHe modificado según mis necesidades, pero me gustaría entender un poco más la estrcutura del archivo testmnu2.rc ¿Hay alguna documentación que explique la sintaxis que en el se ve?\n\nGracias.','',0,'IA==','3knqd61k',1,0,'',1185,0,0),(41081,8621,7,2,0,'87.218.146.65',1194364767,1,0,1,1,1,1,'','','Juan Antonio,\n\nNosotros no hemos encontrado ninguna documentación de Microsoft que explique \ncomo se definen los menús en recursos para Pocket PC, así que lo hemos aprendido\n a base de buscar y revisar ejemplos y de hacer pruebas.\n\nBasicamente consta de 3 partes:\n\n1. Parte de datos (RCDATA):\n102 RCDATA\nBEGIN\n  102, 3,\n  I_IMAGENONE, 100, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 100, 0, 0,  \n  I_IMAGENONE, 200, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 200, 0, 1,  \n  I_IMAGENONE, 300, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 300, 0, 2  \nEND\n\nEl 102 indica que se refiere al menu identificado como 102. El 3 que tiene tres items definidos. El 100, 200 y 300 se refieren a los literales que se declaran a continuación.\n\n2. Definición de literales:\nSTRINGTABLE DISCARDABLE \nBEGIN\n   100 \"Maestros\"\n   200 \"Varios\"\n   300 \"Ayuda\"\nEND\n\n3. Definición del menú:\n102 MENU DISCARDABLE \n...\n\nEsta tercera parte es habitual de la programación en Windows. En realidad la parte que no es \"habitual\" en Windows es la 1ª parte. Pero bueno, ellos lo han hecho así y asi tenemos que usarlos.','',0,'IA==','3s85pe0p',1,0,'',2,0,0),(41082,6999,6,305,0,'201.230.209.116',1194366963,1,0,1,1,1,0,'','','en alguna parte de tu codigo usas la funcion saybitmap(), o quizas estas imprimiendo alguna imagen.  Verifica o envianos un ejemplo de tu programa para analizarlo.\n\nSaludos\n\nRalph','',0,'IA==','2oodhyt2',1,0,'',305,0,0),(41083,8726,6,131,0,'83.53.152.95',1194367000,1,0,1,1,1,0,'','','Antonio,\nel rango del meter lo defino en Ut_CrearCdx y varía para cada dbf que indexo. Cada vez que abro un dbf modifico el rango del meter. Esto me ha funcionado siempre bien.\n\nSaludos,','',0,'IA==','1hv9xgqv',1,0,'',131,0,0),(41084,8726,6,2,0,'87.218.146.65',1194367102,1,0,1,1,1,1,'','','Jose Luis,\n\nRevisa samples\\ProgTime.prg','',0,'IA==','wtwjw58c',1,0,'',2,0,0),(41085,8738,20,49,0,'213.82.134.66',1194367135,1,0,1,1,1,1,'','Per Emg','Mi spieghi in poche parole quali passi devo eseguire per una corretta installazione di fwppc e la compilazione di un programmino, l\'emulatore ecc.\nGrazie','',0,'IA==','2ac2znu2',1,0,'',49,0,0),(41086,8724,6,1106,0,'190.64.132.150',1194367305,1,0,1,1,1,0,'','','Wilson:\n\nMuchas gracias... que version de ADS te envian.\n\nMuchas gracias de nuevo.\n\nSaludos\n\nRuben Fernandez','',0,'IA==','3nbeq9oq',1,0,'',1106,0,0),(41087,8738,20,6,0,'79.19.231.71',1194368080,1,0,1,1,1,1,'','Re: Per Emg','Riporto quello che ti ho scritto in privato:\n\n[quote:2c5q0585]Io uso il seguente batch:\n\n@ ECHO OFF\nSET HARBOURCMD=/a /es2 /gc0 /m /n /q /w\nSET INCLUDE=e:\\fwppc\\include;e:\\harbour_ce\\include;e:\\vce\\include\\arm\nIF EXIST %1.prg e:\\harbour_ce\\bin\\harbour %1\nSET HARBOURCMD=\nIF EXIST %1.c e:\\vce\\bin\\clarm -W3 -c /DARM /DUNICODE %1.c\nIF EXIST %1.rc e:\\vce\\bin\\rc -r -d_CE %1\nSET INCLUDE=\nSET LIB=e:\\fwppc\\lib;e:\\harbour_ce\\lib;e:\\vce\\lib\\arm\nIF EXIST %1.obj IF NOT EXIST %1.res e:\\vce\\bin\\link %1.obj @e:\\fwce\\vce.rsp \n/nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM /OUT:%1.EXE\nIF EXIST %1.obj IF EXIST %1.res e:\\vce\\bin\\link %1.obj @e:\\fwce\\vce.rsp \n%1.res /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM /OUT:%1.EXE\nSET LIB=\nIF ERRORLEVEL 1 PAUSE\nIF EXIST %1.c DEL %1.c\nIF EXIST %1.rc DEL %1.res\nIF EXIST %1.obj DEL %1.obj\nIF EXIST %1.lib DEL %1.lib\nIF EXIST %1.exp DEL %1.exp\n\ndove VCE.RSP contiene:\n\nfivece.lib\nfivecec.lib\nrtl.lib\nvm.lib\ncommon.lib\ngtgui.lib\nlang.lib\nrdd.lib\ndbffpt.lib\ndbfntx.lib\ndbfcdx.lib\nhbsix.lib\nmacro.lib\ncoredll.lib\ncorelibc.lib\naygshell.lib\nole32.lib\nceshell.lib\nwininet.lib\ncommctrl.lib\n\nNaturalmente devi installare il compilatore VCE, Harbour_CE e FWPPC.[/quote:2c5q0585]\n\nEMG','',0,'gA==','2c5q0585',1,0,'',6,0,0),(41088,8738,20,49,0,'213.82.134.66',1194368241,1,0,1,1,1,1,'','','Bene allora  mo\' provo... e l\'emulatore come funziona?\n\ne allora facctio vai.bat xx.prg per unprogramma e se ho altri prg ?','',0,'gA==','1zxrw9yk',1,0,'',49,0,0),(41089,8739,3,868,0,'219.64.121.60',1194370181,1,0,1,1,1,1,'','Test2007.prg - button bar with MDI window','Change the main widow in Test2007.prg as MDI window. Now right click on button bar and choose Left.  The bar is moved to left vertically and looks good. Then again right click and choose Right. Now the button bar is painted broken like this :\n\n[url=http&#58;//imageshack&#46;us:2103fctt][img:2103fctt]http&#58;//img215&#46;imageshack&#46;us/img215/4030/brokenbarvl8&#46;png[/img:2103fctt][/url:2103fctt]\n\nThen if we resize the window, the bar gets painted correctly.\n\nThis happens only when the window is MDI and bar is moved from Left to Right or Right to Left. After this resize of window repaints the bar correctly.','',0,'GA==','2103fctt',1,0,'',868,0,0),(41090,8740,6,1195,0,'190.38.55.34',1194370454,1,0,1,1,1,0,'','Como configuro a 1024 por 768 pixeles ?','Hola a todos, \n\nMi pregunta ? como puedo hacer que mi aplicacion trabaje en \nmodo 1024 por 768 pixeles, desde fiveWin, sin tener que cambiar las propiedades de pantalla de windows ?\n\nDesde ya muchas gracias,\n\nsaludos,\n\nAntonio Albeiro,','',0,'GA==','2a1u52y7',1,0,'',1195,0,0),(41091,8724,6,179,0,'200.24.221.138',1194370497,1,0,1,1,1,1,'','','del ultimo libro de Cary Gensen es la 8.1\ncomo te dije funciona ok y se instala sin problemas\n\nsaludos\n\natt','',0,'GA==','12n89rp6',1,0,'',179,0,0),(41092,8741,7,18,0,'200.67.188.236',1194371086,1,0,1,1,1,1,'','Mostrar una imagen jpg','Hola a todos :\n\nAlguien tiene algún tips, para mostrar imagenes .jpg con FWPCC ?\n\n\nSaludos','',0,'GA==','2eobm7yu',1,0,'',18,0,0),(41093,8686,6,102,0,'87.217.67.91',1194372038,1,0,1,1,1,1,'','','Hola william.\nPerdona pero el caso es que yo no tengo ninguna cuenta Hotmail, si quieres podemos conectar con skype o por cualquier otro medio que digas\nNo consigo echar esto adelante y me estan apretando.\nAgradeceria mucho tu ayuda.\nGracias\nUn saludo','',0,'GA==','2amzg1s2',1,0,'',102,0,0),(41094,8693,6,102,0,'87.217.67.91',1194372742,1,0,1,1,1,1,'','','Da errores al añadir FUENTES *.PRG Y C\nTambien en Fuentes compartidos\nSaludos','',0,'GA==','2fcvahou',1,0,'',102,0,0),(41095,8724,6,1106,0,'190.64.147.220',1194373695,1,0,1,1,1,0,'','','Gracias, gracias.\n\nSaludos.\n\nRuben Fernandez','',0,'GA==','2kf1dixr',1,0,'',1106,0,0),(41096,8686,6,54,0,'189.132.96.97',1194373748,1,0,1,1,1,1,'','','[quote=&quot;jmua&quot;:28p74hub]Hola william.\nPerdona pero el caso es que yo no tengo ninguna cuenta Hotmail, si quieres podemos conectar con skype o por cualquier otro medio que digas\nNo consigo echar esto adelante y me estan apretando.\nAgradeceria mucho tu ayuda.\nGracias\nUn saludo[/quote:28p74hub]\n\nwmormar es mi usuario por skype','',0,'gA==','28p74hub',1,0,'',54,0,0),(41097,8693,6,54,0,'189.132.96.97',1194373993,1,0,1,1,1,1,'','','[quote=&quot;jmua&quot;:l5oee0lq]Da errores al añadir FUENTES *.PRG Y C\nTambien en Fuentes compartidos\nSaludos[/quote:l5oee0lq]\n\nEstamos trabajando en ello','',0,'gA==','l5oee0lq',1,0,'',54,0,0),(41098,8738,20,6,0,'79.19.231.71',1194374283,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3rfxw9sm]Bene allora  mo\' provo... e l\'emulatore come funziona?[/quote:3rfxw9sm]\n\nChe vuoi sapere esattamente? Per funzionare funziona bene. Magari una prova sul palmare reale prima di dare il prodotto al cliente ci vuole.\n\n[quote=&quot;Silvio&quot;:3rfxw9sm]e allora facctio vai.bat xx.prg per unprogramma e se ho altri prg ?[/quote:3rfxw9sm]\n\nIl concetto è esattamente identico a quello di [x]Harbour/FWH.\n\nEMG','',0,'gA==','3rfxw9sm',1,0,'',6,0,0),(41099,8742,6,1059,0,'201.252.206.203',1194377279,1,0,1,1,1,0,'','colorizar frase en tRichedit','Buenas tardes, \nNecesitaría que dentro de un archivo que edito con la clase richedit, una frase o alguna palabra que previamente defina, salga \"colorizada\" en todas las posiciones que esta se encuentre.\nEsto es para poder distinguir la frase palabra buscada dentro del .RTF que estoy editando.\n¿Es esto posible?. Uso FWH 2.7 + xHarbour.\nGracias. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3fisjjr8',1,0,'',1059,0,0),(41100,8740,6,221,0,'200.109.27.176',1194378240,1,0,1,1,1,1,'','','hola si estas diciendo que tu desde fivewin cambies la resolucion de windows a esa y cuando salga la restaure, como un juego, pues tecnicamente deberia ser posible aunque nunca he leido sobre eso en particular, ahora si es mas facil determinar si esta en la resolucion que tu necesitas y si no es asi mandarle un mensaje al usuario diciendole que la coloque y que vuelva a entrar al sistema cuando la haya colocado','',0,'gA==','14ftufh3',1,0,'',221,0,0),(41101,8686,6,102,0,'87.217.67.91',1194378326,1,0,1,1,1,1,'','','Gracias William, dime que horario podemos conectar, ahora me es imposible pues tengo que salir, yo estoy aqui desde las 7 de la mañana hora española.\nSaludos','',0,'gA==','2wgr1vfy',1,0,'',102,0,0),(41102,8742,6,221,0,'200.109.27.176',1194378356,1,0,1,1,1,1,'','','creo que el amigo \"verce\" te podria ayudar con eso ya que el lo hace en verce, valga la redundancia','',0,'gA==','1x9riw0l',1,0,'',221,0,0),(41103,8742,6,2,0,'87.218.146.65',1194381015,1,0,1,1,1,1,'','','Rolando,\n\nRevisa el código del método Colorize() de la Clase TRichEdit.\n\nHace exactamente lo que quieres','',0,'gA==','32g7yluo',1,0,'',2,0,0),(41104,8734,3,2,0,'87.218.146.65',1194381356,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms632633.aspx\">http://msdn2.microsoft.com/en-us/library/ms632633.aspx</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms632680.aspx\">http://msdn2.microsoft.com/en-us/library/ms632680.aspx</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://arbel.net/dev/articles/client.aspx\">http://arbel.net/dev/articles/client.aspx</a><!-- m -->','',0,'gA==','2qotlix0',1,0,'',2,0,0),(41105,8708,6,1014,0,'190.42.10.254',1194382243,1,0,1,1,1,1,'','','Hola Antonio.\nmuchas gracias por tu apoyo.\nya funcionó.\ntodavia me estoy riendo de fichero.c nuevo.c....\nSaludos\nJorge Vargas','',0,'gA==','1i19f578',1,0,'',1014,0,0),(41106,8708,6,2,0,'87.218.146.65',1194382323,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3pzwcxmm',1,0,'',2,0,0),(41107,8743,3,6,0,'79.19.231.71',1194386457,1,0,1,1,1,1,'','Bug in Harbour version of toolbar','In the following sample try to move the mouse over the button and the program will terminate without errors. The problem is only with Harbour and not with xHarbour:\n\n[code:291sbjqs]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR OF oWnd\n\n    DEFINE BUTTON;\n           OF oWnd&#58;oBar\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:291sbjqs]\n\nEMG','',0,'AIA=','291sbjqs',1,0,'',6,0,0),(41108,6999,6,1178,0,'200.24.127.11',1194389417,1,0,1,1,1,0,'','','[quote=&quot;ralph&quot;:2e1tyy5i]en alguna parte de tu codigo usas la funcion saybitmap(), o quizas estas imprimiendo alguna imagen.  Verifica o envianos un ejemplo de tu programa para analizarlo.\n\nSaludos\n\nRalph[/quote:2e1tyy5i]\n\nGracias por tu ayuda, ya quedo solucionado el problema, si tenia definida esta funcion.\n\nGracias','',0,'gA==','2e1tyy5i',1,0,'',1178,0,0),(41109,8738,20,49,0,'62.13.172.67',1194393524,1,0,1,1,1,1,'','','ok ho capito \nper l\'emulatore volevo sapere se doveva fare qualcosa in piu...cioè ho nella cartella client un file exe come lo posso vedere nell\'emulatore ?\nc\'è un procedura ?','',0,'gA==','2dch715l',1,0,'',49,0,0),(41110,8744,20,49,0,'62.13.172.67',1194393905,1,0,1,1,1,1,'','MSGItem 2007','Avevo fatto una piccola modifica sul vecchio msgitem per non vedere i item incavati per questione di estetica infatti avevo modificato nel metodo paint solo la riga :\n\n WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1)\n\nanzichè\n\nWndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 )\n\nil mio problema è adesso che i text li scrive sul fondo bianco ma ho visto che la classe originale lo fa lo stesso anche se crea un Box raised cioè incavato\n\ncome posso fare per scrivere il testo in trasparenza cioè senza lo sfondo bianco ?\n\ngrazie','',0,'gA==','2sdrvwnr',1,0,'',49,0,0),(41111,8745,4,49,0,'62.13.172.67',1194396155,1,0,1,1,1,1,'','Skin emulator','Where I can found a skin emulator for Qtek or HTC tnt series ?','',0,'gA==','3s79itkt',1,0,'',49,0,0),(41112,8742,6,1059,0,'190.137.127.182',1194396738,1,0,1,1,1,0,'','','Buenas noches,\n\nRevisé el método Colorize() y, en principio me sirve para lo que necesito.\n\nAhora necesitaría un método o función para obtener todas las posiciones  nStart en la que se encuentra la palabra para pasarle como parámetro al método y me \"colorice\" todas las palabras. ¿Existe o debo crearlo?. Si debo crearlo, por favor alguna ayuda. Gracias. Rolando <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','mblehj8l',1,0,'',1059,0,0),(41113,8686,6,54,0,'189.132.96.97',1194397862,1,0,1,1,1,1,'','','[quote=&quot;jmua&quot;:2uovocds]Gracias William, dime que horario podemos conectar, ahora me es imposible pues tengo que salir, yo estoy aqui desde las 7 de la mañana hora española.\nSaludos[/quote:2uovocds]\n\nHorario de: 19 horas en adelante hora México','',0,'gA==','2uovocds',1,0,'',54,0,0),(41114,8746,6,396,0,'200.71.186.108',1194417341,1,0,1,1,1,1,'','ORDKEYCOUNT() con el WNROWSE de Hernan','Hola a todos, un pequeño gran problema, despues de tanto darle vuelta, pude usando VERCE, compilar SAMPLES01 del Browse de Hernan y me corrio muy bien, llego la hora de implementarlo en mi aplicacion, agregue las mismas cosas que hice cuando cree SAMPLES, cuando ejecuto mi aplicacion me da este error, como ya dije en el SAMPLES01 no dio ese error, buque ayuda en el foro pero todos los temas respondidos estaban en ingles, por lo que veo a ninguno de habla hispana le paso esto o mi error es muy obvio, pero no lo veo, gracias de antemano:\n\nApplication\n===========\n   Path and name: C:\\SISINGE\\CMDNA\\CMDNA.Exe (32 bits)\n   Size:   493,056 bytes\n   Time from start: 0 hours 1 mins 28 secs \n   Error occurred at: 07/11/2007, 02:17:44\n   Error description: Error BASE/1001  Undefined function: ORDKEYCOUNT\n\nStack Calls\n===========\n   Called from:  =&gt; ORDKEYCOUNT(0)\n   Called from:  =&gt; (b)SETFILTER(2670)\n   Called from:  =&gt; (b)SETFILTER(2671)\n   Called from:  =&gt; TWBROWSE:SETFILTER(2707)\n   Called from:  =&gt; TWBROWSE:REDEFINE(861)\n   Called from: C:\\SISINGE\\CMDNA\\mcompras.prg =&gt; ORDCOMPRAS(72)\n   Called from: C:\\SISINGE\\CMDNA\\cmdna.prg =&gt; (b)MAIN(76)\n   Called from:  =&gt; TBTNBMP:CLICK(0)\n   Called from:  =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: C:\\SISINGE\\CMDNA\\PRG3\\WINDOW.PRG =&gt; _FWH(3166)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(883)\n   Called from: C:\\SISINGE\\CMDNA\\cmdna.prg =&gt; MAIN(102)','',0,'gA==','1bma91c4',1,0,'',396,0,0),(41115,8746,6,439,0,'200.125.37.101',1194418283,1,0,1,1,1,1,'','','Al inicio del programa coloca lo siguiente:\n\nexternal dbfcdx, ordkeyno, ordkeycount, ordkeygoto \n\nEs imprescindible para que funcione la TWBrowse de Hernán.\n\n[code:1i22usxl]#include &quot;Fivewin&#46;ch&quot;\nexternal dbfcdx, ordkeyno, ordkeycount, ordkeygoto \nFUNCTION Main&#40;&#41;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n[/code:1i22usxl]','',0,'AIA=','1i22usxl',1,0,'',439,0,0),(41116,8747,6,519,0,'88.22.128.37',1194421142,1,0,1,1,1,0,'','Dialog No Modal','Hola amigos\n\n   Se puede saber cuando un dialog NO MODAL  se ha cerrado  ? \n\n La idea es poder ejecutar una funcion justo en el momento que se cierra ese dialog, el valid no me vale se dispara antes de que se cierre el dialog.\n\n\n\n  un saludo','',0,'AIA=','1943n3op',1,0,'',519,0,0),(41117,8744,20,6,0,'87.10.2.241',1194421847,1,0,1,1,1,1,'','Re: MSGItem 2007','Prova a mettere\n\nSetBkMode( hDC, 1 )\n\nprima della chiamata a DrawMsgItem(). Se non funziona allora ci vuole Antonio.\n\nEMG','',0,'AIA=','17nhzgf5',1,0,'',6,0,0),(41118,8738,20,6,0,'87.10.2.241',1194421921,1,0,1,1,1,1,'','','Sì, devi specificare quella cartella nell\'opzione dell\'emulatore chiamata \"Shared folder\".\n\nEMG','',0,'AIA=','ym6s8hjk',1,0,'',6,0,0),(41119,8748,20,49,0,'213.82.134.66',1194422129,1,0,1,1,1,1,'','Skin per emulatore','ho installato tutto ed ho provato a compilare gli esempi di PPC a parte che c\'è ne sono pochissimi e non aiutano  molto\n \nho aperto l\'emulatore e ho caricato un programmino ad esempio tutor10\n \nnell\'emulatore non vedo i bottoni e penso che il video sia troppo piccolo rispetto alla finestra programmata \n \ne allora mi sono chiesto magari esistono skin che mi possano emulare il HTC ( tipo Qtek)\n \nperchè ho visto che nella configurazione potrei settare il video ma sta disabilitato','',0,'AIA=','g5bn4x0m',1,0,'',49,0,0),(41120,8738,20,49,0,'213.82.134.66',1194422537,1,0,1,1,1,1,'','','bene ho trovato\nma come ti ho scritto non vedo nell\'emulatore tutto lo schermo: è normale ?','',0,'AIA=','2hliyqh0',1,0,'',49,0,0),(41121,8738,20,6,0,'87.10.2.241',1194423327,1,0,1,1,1,1,'','','Spiegami bene: cos\'è che non vedi?\n\nEMG','',0,'AIA=','byss193l',1,0,'',6,0,0),(41122,8743,3,2,0,'87.218.146.65',1194423503,1,0,1,1,1,1,'','','Enrico,\n\nHere it is working fine. \n\nWhat errors do you get ? Thanks,','',0,'AIA=','1b98vakn',1,0,'',2,0,0),(41123,8747,6,49,0,'213.82.134.66',1194423665,1,0,1,1,1,1,'','','Yes,\n\n[code:20e8hzpe]\n   IF oApp&#40;&#41;&#58;oDlg != NIL\n      IF oApp&#40;&#41;&#58;nEdit &gt; 0\n         RETURN NIL\n      ELSE\n         oApp&#40;&#41;&#58;oDlg&#58;End&#40;&#41;\n         SysRefresh&#40;&#41;\n      ENDIF\n   ENDIF\n\n[/code:20e8hzpe]\n\nSaludos,','',0,'AIA=','20e8hzpe',1,0,'',49,0,0),(41124,8742,6,2,0,'87.218.146.65',1194423734,1,0,1,1,1,1,'','','Rolando,\n\nTienes que hacerlo tu recorriendo cada una de las líneas del richedit.\n\nFíjate en como lo hacemos en el método HighLightAllText():\n[code:2wo8lkbw]\n   for nLine &#58;= 1 to &#58;&#58;GetLineCount&#40;&#41;\n       &#58;&#58;HighLightLine&#40; nLine &#41;\n       SysRefresh&#40;&#41;\n   next\n[/code:2wo8lkbw]\nDesde ::HighLightLine() llamamos a ::GetLine( nLine ) que nos da el texto de cada línea','',0,'AIA=','2wo8lkbw',1,0,'',2,0,0),(41125,8728,6,500,0,'80.36.47.143',1194423741,1,0,1,1,1,0,'','','Gracias Antonio, funcionó, el Bitmap venía a nil.\nAhora me ocurre algo extraño, cuando finalizo la aplicación algunos programas no funcionan, incluso al cerrar el pc se queda como loco y no lo cierra, alguna biblioteca debe quedarse residente.\n\nTe comento que libero todos los recursos que uso.\n\nPedro','',0,'AIA=','fst8x13s',1,0,'',500,0,0),(41126,8748,20,6,0,'87.10.2.241',1194423779,1,0,1,1,1,1,'','Re: Skin per emulatore','[quote=&quot;Silvio&quot;:2kqy3s3b]ho installato tutto ed ho provato a compilare gli esempi di PPC a parte che c\'è ne sono pochissimi e non aiutano  molto[/quote:2kqy3s3b]\n\nSe sai usare FWH allora sai usare anche FWPPC. Che difficoltà incontri esattamente?\n\n[quote=&quot;Silvio&quot;:2kqy3s3b]ho aperto l\'emulatore e ho caricato un programmino ad esempio tutor10\n \nnell\'emulatore non vedo i bottoni e penso che il video sia troppo piccolo rispetto alla finestra programmata[/quote:2kqy3s3b]\n\nHo appena provato e qui li vedo regolarmente. Che tipo di emulatore hai lanciato?\n\nEMG','',0,'gA==','2kqy3s3b',1,0,'',6,0,0),(41127,8743,3,6,0,'87.10.2.241',1194423889,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2tce1klb]Enrico,\n\nHere it is working fine. \n\nWhat errors do you get ? Thanks,[/quote:2tce1klb]\n\nNo errors. The app just vanishes with a sound when i put the mouse on the button in the toolbar. Please try with latest Harbour (not xHarbour) from SVN.\n\nEMG','',0,'gA==','2tce1klb',1,0,'',6,0,0),(41128,8743,3,6,0,'87.10.2.241',1194423923,1,0,1,1,1,1,'','','Do you want my EXE to test it there?\n\nEMG','',0,'gA==','ipu6z266',1,0,'',6,0,0),(41129,8728,6,2,0,'87.218.146.65',1194423932,1,0,1,1,1,1,'','','Pedro,\n\nUsas XP ó Vista ?\n\nSi quieres envíame por email en un ZIP el PRG y el EXE y lo probamos aqui, gracias','',0,'gA==','i2wg1je9',1,0,'',2,0,0),(41130,8747,6,2,0,'87.218.146.65',1194424140,1,0,1,1,1,1,'','','Gabriel,\n\nIsWindow( oDlg:hWnd ) devolverá .F. cuando el handle ya no sea válido.\n\nIgual puedes comprobarlo desde un timer, desde una opción del menú, desde un WHEN, etc.','',0,'gA==','2944kgqs',1,0,'',2,0,0),(41131,8738,20,49,0,'213.82.134.66',1194424390,1,0,1,1,1,1,'','','allora se prendi qualsiasi dialog con i buttons  io vedo i campi manon vedo i button sotto per esempio l\'applicazione client nella cartella omonima','',0,'gA==','576oufc1',1,0,'',49,0,0),(41132,8743,3,2,0,'87.218.146.65',1194424429,1,0,1,1,1,1,'','','Enrico,\n\nWe have tested FWH 7.11 with Harbour svn 05 Nov, and it works fine. Its the one distributed with FWH 7.11.\n\nSo it has to be a change in Harbour since 05 Nov.\n\nDo you get an error.log file ?','',0,'gA==','28249i9b',1,0,'',2,0,0),(41133,8748,20,49,0,'213.82.134.66',1194424638,1,0,1,1,1,1,'','','Ho lanciato quasi tutti  per provare \nmaio ho bisogno di uno che si avvicina al mio HTC  TNT I ( che sarebbe poi il vecchio Qtek 9000)\nlo schermo è piu\' grande nel palmare \ne come ti ho già spiegato in un \'altro tread non vedo tutti i controlli della dialog \n\n<!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1z68dh67',1,0,'',49,0,0),(41134,8748,20,6,0,'87.10.2.241',1194425069,1,0,1,1,1,1,'','','Allora non ti resta altro da fare che posizionare i tuoi controlli in modo che entrino nello schermo del palmare che devi utilizzare.\n\nEMG','',0,'gA==','1rbjwxsh',1,0,'',6,0,0),(41135,8748,20,49,0,'213.82.134.66',1194425141,1,0,1,1,1,1,'','','io sto ancora provando gli esempi \ncomunque\nil mio palmare è questo :\n\n[url=http&#58;//img232&#46;imageshack&#46;us/my&#46;php?image=htc2gj6&#46;jpg:9wl0ss0r][img:9wl0ss0r]http&#58;//img232&#46;imageshack&#46;us/img232/1515/htc2gj6&#46;th&#46;jpg[/img:9wl0ss0r][/url:9wl0ss0r]','',0,'GA==','9wl0ss0r',1,0,'',49,0,0),(41136,8741,7,2,0,'87.218.146.65',1194425197,1,0,1,1,1,1,'','','Vikthor,\n\nAqui hay información de Microsoft pero parece bastante compleja:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms932606.aspx\">http://msdn2.microsoft.com/en-us/library/ms932606.aspx</a><!-- m -->','',0,'GA==','101of4vn',1,0,'',2,0,0),(41137,8743,3,6,0,'87.10.2.241',1194425266,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:36nnfhtq]Enrico,\n\nWe have tested FWH 7.11 with Harbour svn 05 Nov, and it works fine. Its the one distributed with FWH 7.11.\n\nSo it has to be a change in Harbour since 05 Nov.[/quote:36nnfhtq]\n\nIt maybe. Or I\'m doing something wrong.\n\n[quote=&quot;Antonio Linares&quot;:36nnfhtq]Do you get an error.log file ?[/quote:36nnfhtq]\n\nUnfortunately not. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','36nnfhtq',1,0,'',6,0,0),(41138,8749,20,49,0,'213.82.134.66',1194425333,1,0,1,1,1,1,'','xharbour version','c\'è una funzione per vedere la versione installata?\ngrazie','',0,'gA==','17nzcciz',1,0,'',49,0,0),(41139,8748,20,6,0,'87.10.2.241',1194425533,1,0,1,1,1,1,'','','Se ha veramente una risoluzione inferiore a quella comune a tutti i palmari allora non c\'è altra soluzione che quella che ti ho detto. E\' lo stesso problema che si ha su un normale desktop quando si scrive un software che deve girare a 1280 x 1024 ma anche a 800 x 600 (ad esempio).\n\nEMG','',0,'gA==','273qxyuq',1,0,'',6,0,0),(41140,8741,7,2,0,'87.218.146.65',1194425575,1,0,1,1,1,1,'','','Quizás podamos usar OleLoadPicture():\n\n<!-- m --><a class=\"postlink\" href=\"http://forums.devshed.com/c-programming-42/reading-image-file-jpeg-63516.html\">http://forums.devshed.com/c-programming ... 63516.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/bitmap/render.asp\">http://www.codeproject.com/bitmap/render.asp</a><!-- m -->','',0,'gA==','372rcvo1',1,0,'',2,0,0),(41141,8749,20,6,0,'87.10.2.241',1194425610,1,0,1,1,1,1,'','Re: xharbour version','Version()\n\nEMG','',0,'gA==','ocp1rmr3',1,0,'',6,0,0),(41142,8738,20,6,0,'87.10.2.241',1194425697,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:2m1gudtm]allora se prendi qualsiasi dialog con i buttons  io vedo i campi manon vedo i button sotto per esempio l\'applicazione client nella cartella omonima[/quote:2m1gudtm]\n\nVa bene, ormai la cosa è chiara: devi posizionare i tuoi controlli in modo tale che entrino nella finestra a tua disposizione.\n\nEMG','',0,'gA==','2m1gudtm',1,0,'',6,0,0),(41143,8741,7,2,0,'87.218.146.65',1194426442,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.codeproject.com/bitmap/load_jpeg__gif_resource.asp\">http://www.codeproject.com/bitmap/load_ ... source.asp</a><!-- m -->','',0,'gA==','1878kznq',1,0,'',2,0,0),(41144,8743,3,2,0,'87.218.146.65',1194427146,1,0,1,1,1,1,'','','Enrico,\n\nWe have just done a fresh checkout from the Harbour svn, and your test code works fine here','',0,'gA==','1u0h55l2',1,0,'',2,0,0),(41145,8743,3,6,0,'87.10.2.241',1194427661,1,0,1,1,1,1,'','','Can I see the batch you are using to build Harbour?\n\nEMG','',0,'gA==','146xhfc7',1,0,'',6,0,0),(41146,8743,3,6,0,'87.10.2.241',1194427778,1,0,1,1,1,1,'','','Is this the latest changelog you see in your changelog file?\n\n2007-11-07 01:47 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)\n  * harbour/source/rtl/filesys.c\n    * updated hb_fsTell() and hb_fsEof() to respect platform dependent\n      API calls used in hb_fsSeek[Large]()\n\nEMG','',0,'','3unrfa6l',1,0,'',6,0,0),(41147,8743,3,6,0,'87.10.2.241',1194427905,1,0,1,1,1,1,'','','This is the batch I\'m using to build Harbour:\n\n@ ECHO OFF\nSET PATH=e:\\bcc55\\bin;e:\\harbour cvs\\harbour\\bin\\b32\nSET C_USR=-DHB_FM_STATISTICS_OFF\nSET PRG_USR=-l\nCALL make_b32 clean\nCALL make_b32\nCD contrib\\hbzlib\nCALL make_b32 clean\nCALL make_b32\nCD ..\\win32\nCALL make_b32 clean\nCALL make_b32\nCD ..\\adordd\nCALL make_b32 clean\nCALL make_b32\n\nEMG','',0,'','6d2w2e13',1,0,'',6,0,0),(41148,8743,3,2,0,'87.218.146.65',1194427907,1,0,1,1,1,1,'','','Enrico,\n\nWe name this makeb32.bat:\n\nSET PATH=%PATH%;%DEVDRIVE%\\bcc55\\bin;%DEVDRIVE%\\util\nSET BISON_SIMPLE=%DEVDRIVE%\\util\\bison.simple\nSET CFLAGS=-D__EXPORT__ -DHB_GUI -tWM -DHB_COMPAT_XHB -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -DHARBOUR_MAIN_WIN -d -a8 -OS -O2 -5 -6  \nmake_b32.bat %1\n\n2007-11-07 01:47 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)\n  * harbour/source/rtl/filesys.c\n    * updated hb_fsTell() and hb_fsEof() to respect platform dependent\n      API calls used in hb_fsSeek[Large]()','',0,'','26k90qqg',1,0,'',2,0,0),(41149,8743,3,2,0,'87.218.146.65',1194428082,1,0,1,1,1,1,'','','Enrico,\n\nI email you the most recent FWH Harbour libs, just to be sure we use the same files','',0,'','3hlpdljn',1,0,'',2,0,0),(41150,8738,20,49,0,'213.82.134.66',1194428169,1,0,1,1,1,1,'','','ma io sto provando ancora gli esempi dati infattise guardi questa picture puoi notare che non vedo i botton in fondo alla dialog e il primo get è sotto al menu dell\'emulatore :\n\n[img:37p1t9db]http&#58;//img401&#46;imageshack&#46;us/img401/8388/palm1ch8&#46;th&#46;png[/img:37p1t9db]','',0,'CA==','37p1t9db',1,0,'',49,0,0),(41151,8694,3,137,0,'151.38.8.195',1194428271,1,0,1,1,1,0,'','','How to get aaa973.dll? I have only acc_de.dll.\n\nRegards,\nRoberto Parisi','',0,'CA==','2ehdcpga',1,0,'',137,0,0),(41152,8728,6,500,0,'80.36.47.143',1194428284,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3gnsrkbm]Pedro,\n\nUsas XP ó Vista ?\n\nSi quieres envíame por email en un ZIP el PRG y el EXE y lo probamos aqui, gracias[/quote:3gnsrkbm]\n\nNi Xp ni Vista, Windows 2000 profesional\n\nEsta noche te envío un zip con el prg y el exe.\n\nGracias\n\nPedro','',0,'gA==','3gnsrkbm',1,0,'',500,0,0),(41153,8738,20,49,0,'213.82.134.66',1194428975,1,0,1,1,1,1,'','','Ho risolto !!!!!!!!!!!!!!!\n\nho provato adesso con Emulate Pocket PC-WM 2003 SE(Restore)\n\ne...vedo tutto anche i bottoni \n\nSe a Linares fa piacere...cioè sto facendo una piccola guida per usare l\'emulatore posso pubblicarla ?','',0,'gA==','jnlyqq21',1,0,'',49,0,0),(41154,8743,3,6,0,'87.10.2.241',1194429040,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2w9vtltc]Enrico,\n\nWe have just done a fresh checkout from the Harbour svn, and your test code works fine here[/quote:2w9vtltc]\n\nI just done a fresh checkout too: no changes. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','2w9vtltc',1,0,'',6,0,0),(41155,8743,3,2,0,'87.218.146.65',1194429104,1,0,1,1,1,1,'','','Enrico,\n\nAre you using the most recent FWH Harbour libs that I have emailed you ?','',0,'gA==','zuxifxsy',1,0,'',2,0,0),(41156,8743,3,6,0,'87.10.2.241',1194429188,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:fkfsuhwc]Enrico,\n\nWe name this makeb32.bat:\n\nSET PATH=%PATH%;%DEVDRIVE%\\bcc55\\bin;%DEVDRIVE%\\util\nSET BISON_SIMPLE=%DEVDRIVE%\\util\\bison.simple\nSET CFLAGS=-D__EXPORT__ -DHB_GUI -tWM -DHB_COMPAT_XHB -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -DHARBOUR_MAIN_WIN -d -a8 -OS -O2 -5 -6  \nmake_b32.bat %1[/quote:fkfsuhwc]\n\nAs far as I know, Bison is no longer required.\n\nAnyway, all I get running your batch is a make_b32.log containing\n\n[quote:fkfsuhwc]MAKE Version 5.2  Copyright (c) 1987, 2000 Borland[/quote:fkfsuhwc]\n\nWhat am I doing wrong?\n\nEMG','',0,'gA==','fkfsuhwc',1,0,'',6,0,0),(41157,8743,3,6,0,'87.10.2.241',1194429214,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:10z5egu3]Enrico,\n\nI email you the most recent FWH Harbour libs, just to be sure we use the same files[/quote:10z5egu3]\n\nTried. No changes. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','10z5egu3',1,0,'',6,0,0),(41158,8743,3,6,0,'87.10.2.241',1194429906,1,0,1,1,1,1,'','','I tracked down the error. It seems that is the call\n\n[code:26km7cep]TrackMouseEvent&#40; &#58;&#58;hWnd, TME_LEAVE &#41;[/code:26km7cep]\n\nin MouseMove() method of TBtnBmp class that recursively calls MouseMove() again and again.\n\nAny thought?\n\nEMG','',0,'AIA=','26km7cep',1,0,'',6,0,0),(41159,8743,3,2,0,'87.218.146.65',1194431104,1,0,1,1,1,1,'','','Enrico,\n\nBut TrackMouseEvent( ::hWnd, TME_LEAVE ) is called with TME_LEAVE parameter, so it just notifies when the mouse leaves the control, not when the mouse is moved.\n\nAnyhow, an error like the one that you describe looks as a recursive call that forces the operating system to quit the task','',0,'AIA=','trjt7i42',1,0,'',2,0,0),(41160,8750,6,54,0,'189.132.96.97',1194431419,1,0,1,1,1,1,'','Posible error en dll.ch','Antonio,\n\nEstá asi:\n\n#define _DLL_CH\n#ifndef _DLL_CH\n\ny debería de estar así:\n\n#ifndef _DLL_CH\n#define _DLL_CH','',0,'AIA=','3qm9n99v',1,0,'',54,0,0),(41161,8741,7,2,0,'87.218.146.65',1194431759,1,0,1,1,1,1,'','','Este podría ser el camino más corto:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms221680.aspx\">http://msdn2.microsoft.com/en-us/library/ms221680.aspx</a><!-- m -->\n\npero la función OleLoadPictureFile() parece que no está incluida en Pocket PC, sólo en Windows CE.','',0,'AIA=','1oo7zcko',1,0,'',2,0,0),(41162,8743,3,6,0,'87.3.212.70',1194431820,1,0,1,1,1,1,'','','Can you compile my sample and send me the resulting EXE?\n\nEMG','',0,'AIA=','195mx5jn',1,0,'',6,0,0),(41163,8750,6,2,0,'87.218.146.65',1194431881,1,0,1,1,1,1,'','','En nuestro DLL.ch está así:\n\n#ifndef _DLL_CH\n#define _DLL_CH\n\ny debió corregirse hace ya tiempo, pues no es un cambio reciente.\n\nMuchas gracias de todas formas! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','st58ulj2',1,0,'',2,0,0),(41164,8743,3,2,0,'87.218.146.65',1194432257,1,0,1,1,1,1,'','','Enrico,\n\nAlready sent','',0,'AIA=','3gpuhrub',1,0,'',2,0,0),(41165,8743,3,6,0,'87.3.212.70',1194432561,1,0,1,1,1,1,'','','Your EXE works fine here too.\n\nEMG','',0,'AIA=','1rbj30vz',1,0,'',6,0,0),(41166,8743,3,6,0,'87.3.212.70',1194432684,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ttfhsdi]Enrico,\n\nBut TrackMouseEvent( ::hWnd, TME_LEAVE ) is called with TME_LEAVE parameter, so it just notifies when the mouse leaves the control, not when the mouse is moved.\n\nAnyhow, an error like the one that you describe looks as a recursive call that forces the operating system to quit the task[/quote:1ttfhsdi]\n\nIt seems that TrackMouseEvent( ::hWnd, TME_LEAVE ) calls HandleEvent() that, in turn, calls MouseMove() again but I can\'t understand how...\n\nEMG','',0,'gA==','1ttfhsdi',1,0,'',6,0,0),(41167,8743,3,6,0,'87.3.212.70',1194433277,1,0,1,1,1,1,'','','Can you send me a ZIP file containing:\n\n- HARBOUR.EXE\n- inlcude folder\n- lib folder\n\nfrom your Harbour installation?\n\nEMG','',0,'gA==','2spigu24',1,0,'',6,0,0),(41168,8743,3,2,0,'87.218.146.65',1194434148,1,0,1,1,1,1,'','','Enrico,\n\nHave you used the libraries that I just sent you ? If we use the same libraries and the same Harbour, then we should get the same EXE','',0,'gA==','ap33p55r',1,0,'',2,0,0),(41169,8743,3,6,0,'87.3.212.70',1194434422,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3fcqhuhz]Enrico,\n\nHave you used the libraries that I just sent you ? If we use the same libraries and the same Harbour, then we should get the same EXE[/quote:3fcqhuhz]\n\nYes, as I wrote some messages ago, I tried with your libraries and found no differences.\n\nEMG','',0,'gA==','3fcqhuhz',1,0,'',6,0,0),(41170,8747,6,519,0,'83.52.66.132',1194434651,1,0,1,1,1,0,'','','Gracias Antonio,  he puesto este codigo  dentro del metodo close de la clase tdialog:\n\n     if ValType( ::bClose ) == \"B\"\n      if ! IsWindow(::hWnd )\n      Eval( ::bClose, Self )\n      Endif\n      Endif\n\n   He creado una data nueva bClose  y desde mi prg  puede hacer lo siguiente :   oDlg:bClose:={||cualquiercosa()}\n \n Esta bien esto o  me va dar algun tipo de problema   ?\n\n\n\n un saludo','',0,'gA==','3sdk99yb',1,0,'',519,0,0),(41171,8743,3,6,0,'87.3.212.70',1194435124,1,0,1,1,1,1,'','','Using your Harbour libraries the problem goes away. The size of your libraries are different from those I have. I\'m going to investigate why...\n\nEMG','',0,'gA==','2geab5a9',1,0,'',6,0,0),(41172,8751,4,49,0,'62.13.172.67',1194435161,1,0,1,1,1,1,'','Emulator Guide','I made a mini guide to install and run application from Device Emulator Preview \nyou can download it from   [url:gpjm2asr]http&#58;//www&#46;bpascal&#46;it/guide_for_emulator&#46;rar[/url:gpjm2asr]','',0,'EA==','gpjm2asr',1,0,'',49,0,0),(41173,8743,3,6,0,'87.3.212.70',1194435563,1,0,1,1,1,1,'','','It is vm.lib. I have to find what I\'m doing wrong building Harbour...\n\nEMG','',0,'EA==','2l0vx6ry',1,0,'',6,0,0),(41174,8742,6,1059,0,'190.31.27.192',1194435713,1,0,1,1,1,0,'','','Mi idea es que una función me entregue todos los nStart en un array para poder de este modo \"colorizar\".\nAhora tengo una orientación y trataré de crear esa función.\nAntonio, muchas Gracias por la Ayuda.\nRolando <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','2rsg36sr',1,0,'',1059,0,0),(41175,8743,3,6,0,'87.3.212.70',1194436059,1,0,1,1,1,1,'','','I tried all the differences from your compile batch and mine. The only one that I\'ve not tried yet is Bison. I don\'t have bison.simple here. Can you send it to me? Are you sure it is required?\n\nEMG','',0,'EA==','2byswcsx',1,0,'',6,0,0),(41176,8738,20,49,0,'62.13.172.67',1194436527,1,0,1,1,1,1,'','','l\'ho messo in questo messaggio \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8751\">http://fivetechsoft.com/forums/viewtopic.php?t=8751</a><!-- m -->','',0,'EA==','er9ndvmc',1,0,'',49,0,0),(41177,8743,3,2,0,'87.218.146.65',1194437230,1,0,1,1,1,1,'','','Enrico,\n\nAlready sent\n\nI don\'t know if it is still required, but I use it','',0,'EA==','2yaj4hi4',1,0,'',2,0,0),(41178,8751,4,2,0,'87.218.146.65',1194437613,1,0,1,1,1,1,'','','Silvio,\n\nWe use a simple BAT file that easier the emulator configuration:\nc:\\Program Files\\Microsoft\\Device Emulator Preview\\PPC_2003_SE\\go.bat\n\n..\\deviceemulator ppc_2003_se_wwe_armv4.bin /skin Pocketpc_2003_skin.xml /memsize 128 /sharedfolder c:\\pocket\n\nthat way you don\'t need ActiveSync at all. Simply copy your EXEs to c:\\pocket and they are accesible from the emulator \"memory\" card','',0,'EA==','18fd04hi',1,0,'',2,0,0),(41179,8747,6,2,0,'87.218.146.65',1194437808,1,0,1,1,1,1,'','','Gabriel,\n\nParece una buena solución. \n\nPruébalo y si no te da errores, pues podrías usarlo','',0,'EA==','1ksp9dpl',1,0,'',2,0,0),(41180,8752,3,3,0,'80.81.159.19',1194438851,1,0,1,1,1,1,'','UEStudio - Build a library','Hello\n\nHas anyone used UESTUDIO to build a lib with Borland ?\n\nIf yes, can you please share a prj file to see how it is done.\n\nThanks for your time,\n\nRichard','',0,'EA==','10135zd9',1,0,'',3,0,0),(41181,8751,4,49,0,'213.82.134.66',1194439087,1,0,1,1,1,1,'','','thanks\n\n..And If I want install a fwppc program into palm How I can make it ?\n\nit\' is possible call from a setup program ( made with fwh) to call Activesync  and  Activesync must install this my application into palm ?\n\nI saw into many program ( I saw into chess game)  there is a simply setup window program  : it call activesync and insert chess.exe  and all files into palm \n\nCan we create it also ?','',0,'EA==','2zk2jia9',1,0,'',49,0,0),(41182,8751,4,2,0,'87.218.146.65',1194439525,1,0,1,1,1,1,'','','Silvio,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4281&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=instalador\">http://fivetechsoft.com/forums/viewtopi ... instalador</a><!-- m -->\n\nYou can also copy your EXE into a memory card and simply place it into the real Pocket PC','',0,'EA==','27n5jqzg',1,0,'',2,0,0),(41183,8751,4,49,0,'213.82.134.66',1194439869,1,0,1,1,1,1,'','','thanks , gracias.. it was that I searching....\n\nsaludos !!!!','',0,'EA==','2hov7pya',1,0,'',49,0,0),(41184,8753,3,161,0,'81.83.249.31',1194440086,1,0,1,1,1,0,'','Acrobat command-line','Hi,\n\nTill now I used Robohelp to create help-files. But I was wondering that if I can use PDF-files for help. I know how to open a PDF-file from FWH, but can I open directly a specific page? Does anyone use this?\n\nThanks,\nMarc','',0,'EA==','pzw8jun5',1,0,'',161,0,0),(41185,8743,3,6,0,'87.18.215.96',1194441897,1,0,1,1,1,1,'','','Tried with Bison. No differences. I\'m running out of ideas... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'EA==','z3720d7u',1,0,'',6,0,0),(41186,8737,1,477,0,'70.55.101.87',1194443741,1,0,1,1,1,0,'','compille error 2','I try it  with #define clipper501 and it makes many c2001 error syntax error','',0,'EA==','qhbanufe',1,0,'',477,0,0),(41187,8737,1,2,0,'87.218.146.65',1194445057,1,0,1,1,1,1,'','','Richard,\n\nIf you review FiveWin.ch then you will see there are several #include ... inside it, and some of them may be removed if you don\'t use them. \n\nUsually a #define CLIPPER501 is enough, but it seems as you are using some of them, thats why you get the errors.\n\nAnother solution is to compile using Clipper 5.2 as it has a larger preprocessor capability. And later on you link with 5.3 libraries. Its fine.','',0,'EA==','1xzminx9',1,0,'',2,0,0),(41188,8743,3,2,0,'87.218.146.65',1194445303,1,0,1,1,1,1,'','','Enrico,\n\nIf you comment TrackMouseEvent() call then it gets fixed ?','',0,'EA==','s8utdsz8',1,0,'',2,0,0),(41189,8753,3,47,0,'203.144.160.247',1194446179,1,0,1,1,1,0,'','','Dear Marc,\n\nCan You open PDF file without Acrobat Reader?  If so, How do you do?\n\nRegards,\nDutch','',0,'EA==','2xbgks0l',1,0,'',47,0,0),(41190,6999,6,1178,0,'200.24.127.11',1194446274,1,0,1,1,1,0,'','','[quote=&quot;ruben Dario&quot;:13u1wbop][quote=&quot;ralph&quot;:13u1wbop]en alguna parte de tu codigo usas la funcion saybitmap(), o quizas estas imprimiendo alguna imagen.  Verifica o envianos un ejemplo de tu programa para analizarlo.\n\nSaludos\n\nRalph[/quote:13u1wbop]\n\nGracias por tu ayuda, ya quedo solucionado el problema, si tenia definida esta funcion.\n\nGracias[/quote:13u1wbop]\n\nEn conclusion, esta funcion es equivalente a clipper cuando imprimo de esta manera.\n  @ fila,col say variable pict \"999\"\n\n  etc.','',0,'gA==','13u1wbop',1,0,'',1178,0,0),(41191,8746,6,396,0,'190.36.62.184',1194446315,1,0,1,1,1,1,'','','[quote=&quot;jose_murugosa&quot;:2rh72njl]Al inicio del programa coloca lo siguiente:\n\nexternal dbfcdx, ordkeyno, ordkeycount, ordkeygoto \n\nEs imprescindible para que funcione la TWBrowse de Hernán.\n\n[code:2rh72njl]#include &quot;Fivewin&#46;ch&quot;\nexternal dbfcdx, ordkeyno, ordkeycount, ordkeygoto \nFUNCTION Main&#40;&#41;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n[/code:2rh72njl][/quote:2rh72njl]\nGracias Jose, hago lo que me dijistes y te aviso, por casualidad tendras los pasos exactos para la inplementacion de este BROWSE, es decir, los archivos que hay que incluir, solo agregue los .prg y .lib, pero vi un archivo .C y no se si es necesario, aun no me ha dado problemas, bueno, solo probe SAMPLES01, apenas la agrego a mi aplicacion, esto lo digo para no tener que estar haciendo tantas preguntas, gracias de antemano.saludos desde la sucursal del cielo...VENEZUELA!...modestia aparte... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','2rh72njl',1,0,'',396,0,0),(41192,8753,3,255,0,'148.233.251.35',1194450366,1,0,1,1,1,1,'','','When you install Acrobat Reader an activex control is installed at the same time. You can access that activex control with the TActiveX Class.\n\nFor more information check the ActiveX samples and more information can be found in google.\n\nRegards','',0,'gIA=','2tq10jkg',1,0,'',255,0,0),(41193,8753,3,47,0,'203.144.160.247',1194452080,1,0,1,1,1,0,'','','Thanks Juan Carlos Salinas Ojeda,\n\nRegards,\nDutch','',0,'gIA=','v7r3hf2w',1,0,'',47,0,0),(41194,8743,3,6,0,'87.18.215.96',1194454708,1,0,1,1,1,1,'','','Yes.\n\nEMG','',0,'gIA=','1si5qjwt',1,0,'',6,0,0),(41195,8694,3,69,0,'74.14.138.133',1194454864,1,0,1,1,1,1,'','','Roberto,\n\nAas993.dll is only provided when you purchase the software.\n(might be different for each version purchased)\n\nYou can download a demo copy of the software from:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.alkonost.com/antiduplicate/\">http://www.alkonost.com/antiduplicate/</a><!-- m -->\n\n\n\nJeff','',0,'gIA=','3ju0zgil',1,0,'',69,0,0),(41196,8754,6,106,0,'85.34.123.173',1194455287,1,0,1,1,1,1,'','xBrowse cambiando columnas de lugar','Da un error cuando cambio una columna de lugar, por ejemplo:\n\nLa columna 5 la cambio de lugar y la pongo entre la 1 y la 2, me posiciono sobre la nueva columna 2 (la que acabo de cambiar de lugar que en realidad es la 5) luego trato de moverme a la derecha, sea con el teclado que con el mouse me da error\n\n[code:1nk683tv]\n   Error description&#58; Error BASE/1132  Bound error&#58; array access\n   Args&#58;\n     &#91;   1&#93; = A   &#123; &#46;&#46;&#46; &#125;\n     &#91;   2&#93; = N   6\n\nStack Calls\n===========\n   Called from&#58; xbrowse&#46;prg =&gt; &#40;b&#41;TXBROWSE&#58;TXBROWSE&#40;340&#41;\n[/code:1nk683tv]\n\nSaludos','',0,'AIA=','1nk683tv',1,0,'',106,0,0),(41197,8755,3,167,0,'207.119.126.13',1194456460,1,0,1,1,1,1,'','GetPvProfString','I\'m using:\nxHarbour Compiler build 0.99.71 (SimpLex)\nFWH Version 7 - binaries dated 7.10 from October 2007.\nBorland BCC 5.5\n\n1.  I\'m calling GetPvProfString() function as follows:\n\nMYFILE.INI:\n\n[XYZ]\nMyVar=\n\nx := GetPvProfString( \'XYZ\', \'MyVar\', \'1\', MYFILE.INI  ) \n\nIn this instance, with x is set to empty, the default value seems to not be working.\n\nIf I set ini file value as follows:\n\nMyVar=2  - function works fine.\n\n2.  I checked the documentation to see if I was callling the FWH version of the function and I noticed within the documentation the function name is mis-spelled --- \"GetPvpProfString\" which, I believe is a typo - extra \"p\" ???  The program would not link when referencing the documented function.','',0,'','301voa9e',1,0,'',167,0,0),(41198,8755,3,167,0,'207.119.126.13',1194457291,1,0,1,1,1,1,'','','I see now - if entry is not found, the default value is used.  However, if Entry is found and the entry is set to empty string - function returns an empty string.\n\nSorry to waste your time.','',0,'','18dhb49g',1,0,'',167,0,0),(41200,8726,6,215,0,'189.136.50.22',1194459756,1,0,1,1,1,1,'','ok','Jose Luis,\n\nyo uso una pc con vista home basic para desarrollar y he notado que el meter con Progress no llega al 100% o no arranca como tu dices... \n¿Puede ser por que el PC es muy rápido?. \nDuo core, 1 Giga en Ram.\n\nLa verdad no le he dado más importancia... pero lo que si me ha gustado es que antes usaba el METER y al cambiarme a Progress he notado una super velocidad al momento de indexar.\nDe 1:08 minutos a 8 segundos es un tiempo super rápido al indexar las mismas dbfs.\n\nSaludos\nFernando\nMéxico DF','',0,'','2w7igmw6',1,0,'',215,0,0),(41201,8685,6,987,0,'189.132.9.56',1194459807,1,0,1,1,1,0,'','','Saludos de Nuevo compañeros del foro:\n\nDe nuevo molestando a toda la comunidad, he estado realizando pruebas desde hace unos días para tratar\nde solucionar el problema que tengo al reindexar las 25 bases de datos de mi sistema, estuve buscando y \nprobando varias opciones y nada funciona ya que ahora me genera el siguiente error:\n\nhb_cdxIndexFree: index file still locked.\n\nHe buscado en la red pero no encuentro respuesta a como solucionar este error, solo si borro manualmente\nlos indices puedo trabajar y al volver a reindexar aparece otro error:\n\nError DBCMD/2001  \nArea de trabajo no usada: ORDCREATE\n\nPara evitar éste último error me sugirieron que realizara estos cambios:\n\nSET AUTOPEN OFF\n         DBUSEAREA(.T., \"DBFCDX\",\".\\PROVEDOR\", \"PROVEDOR\",.F.,.F.)\n           IF !NETERR()\n              FERASE(\".\\PROVEDOR.CDX\")\n        \n              PreIndex( oMeter, nRec, \"PROVEDOR\")\n 	      INDEX ON STRZERO(PROVEDOR-&gt;NumId,5)          TAG NumId      FOR ! DELETED() EVAL( oMeter:SETPOS( nRec++ ), SYSREFRESH() )\n	      Postindex(nRec)\n	      nRec:= 0\n	   ENDIF   \n	  DBSELECTAREA(\"PROVEDOR\")\n          PROVEDOR-&gt;(DBCLOSEAREA())\nSET AUTOPEN ON\n\nya que antes estaba así (sin Autopen xxx):\n\n         DBUSEAREA(.T., \"DBFCDX\",\".\\PROVEDOR\", \"PROVEDOR\",.F.,.F.)\n           IF !NETERR()\n              FERASE(\".\\PROVEDOR.CDX\")\n        \n              PreIndex( oMeter, nRec, \"PROVEDOR\")\n 	      INDEX ON STRZERO(NumId,5)          TAG NumId      FOR ! DELETED() EVAL( oMeter:SETPOS( nRec++ ), SYSREFRESH() )\n	      Postindex(nRec)\n	      nRec:= 0\n	   ENDIF   \n	  DBSELECTAREA(\"PROVEDOR\")\n          DBCLOSEAREA(\"PROVEDOR\")\n\nY es que creo que a casi nadie le ha ocurido esto porque solo encontre un enlace con el mismo problema\npero no comentan como lo soluciono.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=34814&amp;sid=44a0ceed84edd56ab968a91b4fcaf8b6\">http://fivetechsoft.com/forums/viewtopi ... 1b4fcaf8b6</a><!-- m -->\n\nAsí que de nuevo recurro a la comunidad para que me orienten y me ayuden a solucionar este problema\nya que como muchos sabemos la reindexacion es solo una utilidad que casi no tiene importancia, pero que\ngarantizan que nuestras aplicaciones trabajen de forma optimizada...\n\nOjala y el maestro Antonio Linares tenga un tiempesito y le de una revisada para que me de mi respectivo \njalón de orejas... <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos...','',0,'QA==','22ediphz',1,0,'',987,0,0),(41202,8685,6,935,0,'200.62.123.43',1194463807,1,0,1,1,1,1,'','ASI ME FUNCIONA','Estimado cuatecatl82 :\n\nYo no he tenido problemas con la generacion de los indices, lo hago de la siguiente manera : \n\n- tengo una tabla llamada LISTADBF con los siguientes campos: \n\nNOMDBF  Caracter 12 ( Nombre de la Tabla en mi Programa)\nMARCA    Numerico 1 ( Marca para generar o no el indice )\nCONCEPTO Caracter 40 (Breve descricion de la tabla )\n\n- Tengo otra tabla llamada INDICES con los siguientes campos :\n\nNOMDBF   Caracter 12 ( Nombre de cada tabla de mi programa)\nNomcam  Caracter 50 (Campos por los que creo cada indice)\nNOMNTX   Caracter 12 ( Nombre del indice)\n\nPara generar los indices uso la siguiente funcion :\n\n//==================\nFUNCTION INDICES()\n//==================\nLOCAL oDlg, oLbx, oFont1\n\nLOCAL aHBitMaps:= { ReadBitmap( 0, \"Check1.bmp\" ), ;\n                    ReadBitmap( 0, \"Check2.bmp\" ) }\n\nLOCAL n\n\n   **  Genera el Archivo Tag\n\n// BORRO LOS INDICES DE LAS TABLAS \n\nFERASE(\"LISTADBF.CDX\")\nFERASE(\"INDICES.CDX\")\n\n\n   SELECT A\n   IF ABRE_BD(\"LISTADBF\",.T.) = .F.\n      CLOSE DATA\n      RETURN NIL\n   ENDIF\n   INDEX ON LISTADBF-&gt;Nomdbf TAG Listad1\n   CLOSE DATA\n\n   SELECT A\n   IF ABRE_BD(\"INDICES\",.T.) = .F.\n      CLOSE DATA\n      RETURN NIL\n   ENDIF\n   INDEX On INDICES-&gt;nomdbf TAG Iindex1\n   CLOSE DATA\n\n   SELECT C\n   IF ABRE_BD(\"LISTADBF\",.T.) = .F.\n      CLOSE DATA\n      RETURN NIL\n   ENDIF\n   SET INDEX TO listadbf\n   GO TOP\n\n   SELECT A\n   IF ABRE_BD(\"INDICES\",.T.) = .F.\n      CLOSE DATA\n      RETURN NIL\n   Endif\n   SET INDEX TO INDICES\n\n   DEFINE FONT oFont1 NAME \"Tahoma\" size 0,14 BOLD\n   ACTIVATE FONT oFont1\n\n   DEFINE DIALOG oDlg FROM 3, 3 TO 26, 79 TITLE \"Mantenimiento a Indices del Sistema\"\n\n   @ 0,  1 SAY \" &amp;Indices del Sistema\"  OF oDlg\n\n   SELECT C\n\n   @ 1, 1 LISTBOX oLbx FIELDS aHBitmaps[ Max( 1, C-&gt;Marca ) ],;\n                              C-&gt;nomdbf, C-&gt;Concepto ;\n          HEADERS    \"S\", \"Tabla\", \"Descripcion de la Tabla\" ;\n          FIELDSIZES 20, 64, 400 ;\n          SIZE 284, 137 OF oDlg ;\n          FONT oFont1\n\n    oLbx:bLClicked     = { || MarcaReg(oLbx) }\n    oLbx:nLineStyle = 1\n    oLbx:aJustify = { .T., .f., .f.}\n    oLbx:bRClicked = { || oLbx:ShowSizes() }\n\n\n   @ 8.7,  1.4 BUTTON \"&amp;Todos\"    OF oDlg ACTION SelTodo( oLbx, 2 )     SIZE 40, 12\n   @ 8.7,  9.4 BUTTON \"&amp;Ninguno\"  OF oDlg ACTION SelTodo( oLbx, 1 )     SIZE 40, 12\n   @ 8.7, 17.4 BUTTON \"&amp;Generar\"  OF oDlg ACTION GeneraI( oLbx, oDlg )  SIZE 40, 12\n   @ 8.7, 25.4 BUTTON \"&amp;Salir\"    OF oDlg ACTION oDlg:End()             SIZE 40, 12\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   AEval( aHBitmaps, { | hBmp | DeleteObject( hBmp ) } )\n   RELEASE FONT oFont1\n\nRETURN NIL\n\n\n//  Funcion para Marcar Registro\n//============================\nSTATIC FUNCTION MarcaReg(oLbx)\n//============================\n\n  IF C-&gt;marca = 1\n     C-&gt;Marca := 2\n  ELSE\n     C-&gt;Marca := 1\n  ENDIF\n\n  oLbx:Refresh()          // Refresca el Listbox (Los datos de la tabla)\n\nRETURN .T.\n\n//  Funcion para Marcar/Desmarcar todos\n//==================================\nSTATIC FUNCTION SelTodo(oLbx,fMarca)\n//==================================\n\nSELECT C\nGO TOP\nDO WHILE .NOT. EOF()\n   C-&gt;Marca := fMarca\n   SKIP\nENDDO\nGO TOP\n\noLbx:Refresh()          // Refresca el Listbox (Los datos de la tabla)\n\nRETURN .T.\n\n//  Funcion para Generar Archivos Indices\n//================================\nSTATIC FUNCTION GeneraI(oLbx,oDlg)\n//================================\n\nLOCAL wnomdbf,mfil_dbf,mfil_cdx\n\nSELECT C\nGO TOP\n\nDO WHILE ! EOF()\n\n     IF C-&gt;Marca = 2\n        wnomdbf = C-&gt;nomdbf\n        mFil_dbf := ALLTRIM(C-&gt;nomdbf)+\".DBF\"\n	mFil_cdx := ALLTRIM(C-&gt;nomdbf)+\".CDX\"\n\n        IF !FILE(mFil_dbf)\n           MSGALERT(\"No Existe La Base De Datos \"+MFIL_DBF,\"Error Indices\")\n           RETURN .F.\n        ENDIF\n\n	FERASE(mfil_cdx)\n\n        SELECT B\n\n        IF ABRE_BD(mFil_Dbf,.T.) = .f.\n           CLOSE DATA\n           RETURN .F.\n        ENDIF\n        PACK\n\n        SELECT A\n        SEEK wnomdbf\n        IF FOUND()\n           IF !GEN_IND(oLbx,oDlg,mfil_dbf,mfil_cdx)\n              RETURN .F.\n           ENDIF\n        ENDIF\n     ENDIF\n\n     SELECT C\n     SKIP\n  ENDDO\n\n  SELECT C\n  GO TOP\n\n  oLbx:Refresh()          // Refresca el Listbox (Los datos de la tabla)\n\nRETURN .T.\n\n//===========================================\nFUNCTION GEN_IND(oLbx,oDlg,ffil_dbf,ffil_cdx)\n//===========================================\nLOCAL mConcep, mempaque, l1_file,mfil_ntx\n\n   l1_file  := A-&gt;nomdbf\n\n   DO WHILE l1_file == A-&gt;nomdbf\n\n      mcampo   := ALLTRIM(A-&gt;nomcam)\n      mFil_ntx := ALLTRIM(A-&gt;nomntx)\n      mConcep  := ALLTRIM(A-&gt;concep)\n\n//      mEmpaque := A-&gt;empaque\n\n      SELECT B\n\n      MSGMETER( { | oMeter, oText, oDlg, lEnd | ;\n             CreaIndex( oMeter, oText, oDlg, @lEnd,mfil_ntx ) },;\n             \"Tabla : \" + ffil_dbf+\" Tag : \"+mfil_ntx,\"Generando Indices\")\n\n      SELECT A\n      SKIP\n   ENDDO\n\nRETURN .T.\n\n//======================================================\nFUNCTION CREAINDEX( oMeter, oText, oDlg, lEnd,mfil_ntx )\n//======================================================\n   oMeter:nTotal = RECCOUNT()\n\n   INDEX ON &amp;MCAMPO TAG (mFil_Ntx) TO (mfil_cdx) ;\n      EVAL ( oMeter:SET( RECNO() ), SysRefresh(), ! lEnd )\n\nRETURN NIL\n\n//================================\nFunction ABRE_BD(FBase,fTipo)\n//================================\n\nLOCAL mSioNo, Regre\n\nDo While .T.\n\n   If ftipo = .t.\n      Use (fBase) Exclusive\n   Else\n      Use (fbase) Shared\n   Endif\n\n   If !NetErr()\n      Regre = .T.\n      Exit\n   Else\n      mSioNo = MsgNoYes(\"La base de datos \" + fbase +\" esta siendo utilizada por otro usuario, Desea Volver a Intentar? \" , \"Error al abrir\")\n      If mSioNo\n         loop\n      Else\n         Regre = .F.\n         Exit\n      Endif\n\n   Endif\n\nEndDo\n\nReturn Regre\n\nEspero te sea de alguna utilidad,\n\nRamon Antonio Paredes\nManagua, Nicaragua','',0,'','rhtmzts9',1,0,'',935,0,0),(41203,8753,3,161,0,'81.83.249.31',1194464872,1,0,1,1,1,0,'','','Dutch,\n\nI don\'t open a PDF without Acrobat Reader. The problem is that I can only open a PDF-file in Acrobat Reader without jumping directly to a specefic page. It open allways with the first page..\n\nRegards,\nMarc','',0,'','d0hifog3',1,0,'',161,0,0),(41204,8743,3,2,0,'87.218.146.65',1194464968,1,0,1,1,1,1,'','','Enrico,\n\nDo you use any library or OBJ of your own ?','',0,'','1uycxrvt',1,0,'',2,0,0),(41205,8744,20,49,0,'62.13.172.67',1194465712,1,0,1,1,1,1,'','','Mi ero perso a vedere ppc ...solo oggi hoprovato ma non succede niente \n\n\nMETHOD Paint() CLASS TMsgItem\n\n   local nCount, nClrBack\n   local nLeft := ::nLeft()\n   local hBmp, nBmpWidth := 0\n   local hDC := ::oMsgBar:GetDC()\n\n   if ::hBitmap1 != nil\n      hBmp = If( ::lActive, ::hBitmap1, ;\n                 If( ::hBitmap2 != nil, ::hBitmap2, ::hBitmap1 ) )\n      nBmpWidth  = nBmpWidth( hBmp )\n      DrawMasked( hDC, hBmp, 4, nLeft + 1 )\n   endif\n\n   DrawMsgItem( hDC, ::cMsg,;\n                { 5, nLeft + nBmpWidth, ::oMsgBar:nHeight-6, nLeft + ( ::nWidth - 7 ) },;\n                If( ::lActive, ::nClrText, ::nClrDisabled ),;\n                ::nClrPane, ::oFont:hFont )\n  * WndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 )\n   [b:c391bxf8] SetBkMode( hDC, 1 )[/b:c391bxf8]    \n[b:c391bxf8]WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1)[/b:c391bxf8]  \n ::oMsgBar:ReleaseDC()\n\nreturn nil\n[img:c391bxf8]http&#58;//img146&#46;imageshack&#46;us/img146/5645/msgitm2007zn2&#46;th&#46;jpg[/img:c391bxf8]','',0,'SA==','c391bxf8',1,0,'',49,0,0),(41206,8694,3,1146,0,'87.223.174.155',1194465974,1,0,1,1,1,0,'','','Jeff,\n\nWhen I compile Antonio´s code, I get some errors on the c part. I am using Harbour and FWH from octouber. Can you upload, please, the files to Rapidshare to do a test?. Thank you very much!!!\n\n\nThese are the errors:\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for Harbour 7.10 - Oct. 2007            Harbour development power  ³Ü\n³ (c) FiveTech, 1993-2007    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ndemo.c:\nError E2322 demo.prg 40: Incorrect number format\nError E2039 demo.prg 40: Misplaced decimal point\nError E2223 demo.prg 40: Too many decimal points\nError E2322 demo.prg 41: Incorrect number format\nError E2039 demo.prg 41: Misplaced decimal point\nError E2223 demo.prg 41: Too many decimal points\nError E2322 demo.prg 42: Incorrect number format\nError E2039 demo.prg 42: Misplaced decimal point\nError E2223 demo.prg 42: Too many decimal points\nError E2322 demo.prg 43: Incorrect number format\nError E2039 demo.prg 43: Misplaced decimal point\nError E2223 demo.prg 43: Too many decimal points\nError E2322 demo.prg 44: Incorrect number format\nError E2039 demo.prg 44: Misplaced decimal point\nError E2223 demo.prg 44: Too many decimal points\nError E2322 demo.prg 45: Incorrect number format\nError E2039 demo.prg 45: Misplaced decimal point\nError E2223 demo.prg 45: Too many decimal points\nError E2322 demo.prg 46: Incorrect number format\nError E2039 demo.prg 46: Misplaced decimal point\nError E2223 demo.prg 46: Too many decimal points\nError E2322 demo.prg 47: Incorrect number format\nError E2039 demo.prg 47: Misplaced decimal point\nError E2223 demo.prg 47: Too many decimal points\nError E2322 demo.prg 48: Incorrect number format\nError E2228 demo.prg 48: Too many error or warning messages\n*** 26 errors in Compile ***\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'DEMO.OBJ\'\n* There are errors','',0,'SA==','23xb51nz',1,0,'',1146,0,0),(41207,8744,20,49,0,'62.13.172.67',1194466046,1,0,1,1,1,1,'','','l\'ho messo anche prima di DrawMsgItem ma non accade niente....\n\n[img:hru84oxv]http&#58;//img146&#46;imageshack&#46;us/img146/5645/msgitm2007zn2&#46;jpg[/img:hru84oxv]','',0,'CA==','hru84oxv',1,0,'',49,0,0),(41208,8621,7,1185,0,'88.2.204.212',1194466817,1,0,1,1,1,1,'','','OK Antonio, cojo la idea.\n\nEstoy empezando con el formulario de mantenimiento de un archivo, lo diseño con el UEstudio, pero al compilar me encuentro con errores debido a que no se encuentran las constantes de los valores de las propiedades, por ejemplo me muestra un error al no encontrar DS_SYSMODAL, que se escribe al decirle al formulario que es modal.\n\n¿Sabes que archivo debe incluirse para reconocer las constantes?\n\nGracias.','',0,'CA==','zrjwcf8d',1,0,'',1185,0,0),(41209,8694,3,69,0,'74.13.37.150',1194468755,1,0,1,1,1,1,'','','Moises,\n\nYou will not be able to do a test in Fivewin.  \n\nIf you download the demo version you can do the following:\n-create a usb key\n-test the usb key you created\n\nThen you can try to manually make a \"copy\" of the usb key and run the test program again.\n\nYou will get a message from the test program that tells you if the key is real or not.\n\nIf they were to supply an actual working sample, they would be giving away the software.','',0,'CA==','36p4btta',1,0,'',69,0,0),(41210,8757,3,49,0,'62.13.172.67',1194469736,1,0,1,1,1,1,'','MSGItem 2007','I have modify the method paint to change the msgbar \nI rem \n\nWndBoxIn( hDC, 3, nLeft - 2, ::oMsgBar:nHeight-5, nLeft + ::nWidth - 6 )\n\nand I insert \n\n WndBoxRaised( hDC, 0, nLeft - 4, 22, nLeft + ::nWidth -1)\n\nNow when I define a msgitem ( txt)  it show the txt on white background\n\nI insert also before the  DrawMsgItem function the command SetBkMode( hDC, 1 )\n\nbut it not change the error ... How I can make it ?','',0,'CA==','vbbm2m5p',1,0,'',49,0,0),(41211,8758,11,578,0,'218.214.35.132',1194469950,1,0,1,0,1,0,'','Strange Function of Keyboard','I have had to go live with my first FiveLinux application although I still have a few minor issues.  One problem that I hadn\'t noticed is as follows:\n\nThe left [Shift] key works normally but the right [Shift] key inserts the question mark (?) but also has the expected effect of shifting characters to upper case while it is held down. HELP!  I didn\'t pick the problem up because I almost always use the left [Shift] key (not being a typist).\n\nReproduced on 2 different PCs (both Ubuntu 7.04) and 4 different brands of keyboard (nearly threw good keyboard away thinking that it must be faulty).\n\nI need to know what I have done wrong? Or do I need a software fix?\n\nSame problem exists with your sample testdlg.\n\nThanks\n\nDoug\n(xProgrammer)','',0,'','2w9llbwx',1,0,'',578,0,0),(41212,8621,7,2,0,'87.218.146.65',1194473467,1,0,1,1,1,1,'','','Juan Antonio,\n\n#include &lt;windows.h&gt;','',0,'','hj03u3ne',1,0,'',2,0,0),(41213,8759,6,867,0,'201.140.184.46',1194474455,1,0,1,1,1,0,'','Hola amigos sobre Testxbrw.prg','Hola amigos como estan todos pues, necesito de su ayuda, uso verce 4.30 y fivewin 2.7 y necesito compilar el ejemplo de testxbrw.prg que trae en los samples de fivewin, pero me marca orrores o que archivos me faltan por enlazar\n\nError: Unresolved external \'_HB_FUN_ADSSETSERVERTYPE\n_HB_FUN_ADSSETFILETYPE\n_HB_FUN_ADSKEYCOUNT\n_HB_FUN_ADSGETRELKEYPOS\n_HB_FUN_ADSSETRELKEYPOS\nError: Unresolved external \'_HB_FUN_ADS\' referenced from \n\nme podran ayudar amigos pues, para tomar como ejemplo de iniciarme con el modelo y adaptarlo a mi programa de facturacion\nsu amiga Susy ....y millones de gracias en ayudarme please \n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'','ifus5cxi',1,0,'',867,0,0),(41214,7600,6,1178,0,'200.24.127.11',1194477198,1,0,1,1,1,0,'','','[quote=&quot;RF&quot;:3pqxx1ot]A ver a ver...\n\n1) El Turbo C++ Explorer se puede descargar de la pagina de Borland:\n\n<!-- m --><a class=\"postlink\" href=\"http://cc.codegear.com/Free.aspx?id=24724\">http://cc.codegear.com/Free.aspx?id=24724</a><!-- m -->\n\nNecesitas registarte y Borland te va a enviar un numero de serie que va a activar por 3000 y algo dias la version \"demo\".\n\n2) Para descargar el C++ que viene completito, vamos, que trae de todo, el IDE, las librerias, todo todo, vas a necesitar descargar primero los \"pre requisitos\" que son un monton de archivo y run times de .NET, algo así como poco menos de 120 megas de programas que tienes que instalar ANTES de descargar el software de instalacion del C++.\n\n3) La licencia indica muy claramente que la parte \"no visual\" es gratis, vamos, que es igual que el otro C++, las command line utilities son gratis, lo que no es gratis y esta en forma de \"demo\" son las herramientas visuales. Pero la licencia tambien es muy clara en que puedes desarrollar aplicaciones comerciales con todo el producto aunque sea un DEMO.\n\n4) Y si, funciona con FW, y con otras GUIS sin problema, ya lo hemos probado aqui.[/quote:3pqxx1ot]\n\nRene , bajo la version son como 390 Megas, la Instale pero me pido un serial y un codigo de Autorizacion, me podrias indicar como lo consiguio. o tu tienes alguno. Gracias','',0,'gA==','3pqxx1ot',1,0,'',1178,0,0),(41215,8743,3,6,0,'87.18.215.96',1194477920,1,0,1,1,1,1,'','','No, I made the test with pure xHarbour/FWH.\n\nEMG','',0,'gA==','98opxnj2',1,0,'',6,0,0),(41216,8612,7,49,0,'62.13.172.67',1194479256,1,0,1,1,1,1,'','','this class run on bluetooth gps \nBut if I have a gps into palm How I can see if it run ok ?','',0,'gA==','15o7jprg',1,0,'',49,0,0),(41217,8760,6,1059,0,'190.31.50.181',1194481470,1,0,1,1,1,0,'','Hipervínculo en Trichedit','Buenas noches,\n\n¿Hay alguna forma de establecer un hipervínculo dentro de un texto editado con Trichedit?.\n\nPor ejemplo, quisiera hacer hipervínculos a JPG\'s o PDF\'s que obviamente están dentro de mi pc.\n\nSi no fuera posible, pensé en hacerlo con el IE pero no tengo idea de como hacer para buscar dentro la PC con el IE.\n\nGracias.\n\nRolando <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2iv2ie0u',1,0,'',1059,0,0),(41218,8753,3,47,0,'203.144.160.246',1194487386,1,0,1,1,1,0,'','','Dear Marc,\n\nI\'ve got it.\n\nRegards,\nDutch','',0,'gA==','14mo6frt',1,0,'',47,0,0),(41221,8757,3,2,0,'87.218.146.65',1194502649,1,0,1,1,1,1,'','','Silvio,\n\nDo you want the msgitem to paint transparent over the light blue gradient ?','',0,'EA==','28fn2jjm',1,0,'',2,0,0),(41222,7600,6,2,0,'87.218.146.65',1194502884,1,0,1,1,1,1,'','','Ruben,\n\nAl registrarte ellos te proporcionan el código','',0,'EA==','2ux8xsf2',1,0,'',2,0,0),(41223,8759,6,2,0,'87.218.146.65',1194503049,1,0,1,1,1,1,'','','Susy,\n\nTienes que enlazar RDDADS.LIB y ACE32.LIB\n\nACE32.LIB lo generas a partir de ACE32.DLL haciendo:\n\nimplib.exe ACE32.LIB ACE32.DLL','',0,'EA==','3oqyvzcw',1,0,'',2,0,0),(41224,8760,6,2,0,'87.218.146.65',1194503107,1,0,1,1,1,1,'','','Rolando,\n\nTienes un ejemplo en samples\\TestRtf.prg','',0,'EA==','35cv3gqb',1,0,'',2,0,0),(41225,8612,7,2,0,'87.218.146.65',1194503181,1,0,1,1,1,1,'','','Silvio,\n\nTu palm tiene Windows Mobile ?','',0,'EA==','2s5kmxig',1,0,'',2,0,0),(41226,8726,6,131,0,'83.53.152.240',1194509889,1,0,1,1,1,0,'','','Yo creo que la cosa va por ahi, o que la clausula every no se evalua bien en un PC rápido. Si al every le pones un WaitSeconds a la clausula every el meter se actualiza, pero no llega al final. He probado también a modificar el valor del meter con oMeter:DeltaPos y hace lo mismo que con SetPos.\n\nYo tengo un iMac Core2 duo a 2GHz y 2MB de RAM. El bicho vuela, pero los meter no despegan. Algo pasa, pero no se que. El ejemplo de Antonio si que funciona, pero ahi el intervalo de movimiento es mayor. Tampoco se si en versiones recientes de FWH la clase meter se ha modifcado, yo tengo una de hace más de un año, y me ha ido siempre bien hasta ahora. Con XP iba divinamente.\n\nSaludos,','',0,'EA==','31iovibf',1,0,'',131,0,0),(41227,8762,3,58,0,'84.149.84.132',1194509971,1,0,1,1,1,0,'','','Fernando,\n\nthis looks very promising.\nI\'m very interested to buy your product as soon as it\'s available.\n\nRegards,\nDetlef','',0,'EA==','2nfh32d6',1,0,'',58,0,0),(41228,8757,3,49,0,'213.82.134.66',1194512491,1,0,1,1,1,1,'','','yes look thi s message on footer <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8744\">http://fivetechsoft.com/forums/viewtopic.php?t=8744</a><!-- m -->\n\nthere is the picture','',0,'EA==','n5vmojrx',1,0,'',49,0,0),(41229,8612,7,49,0,'213.82.134.66',1194512913,1,0,1,1,1,1,'','','yes HTC TNT I and HTC TNT II ( with gps)','',0,'EA==','3kj3hrju',1,0,'',49,0,0),(41230,8726,6,2,0,'87.218.146.65',1194514099,1,0,1,1,1,1,'','','Jose Luis,\n\nYo lo estoy usando en un Core Quad y funciona bien. Por lo que no creo que sea cuestion de velocidad, sino tal vez de tiempo de refresco para Windows, de ahí que el WaitSeconds() ayude.\n\nEstas usando Vista en modo nativo ó desde vmware/Parallels ?','',0,'EA==','3av2bxtq',1,0,'',2,0,0),(41231,8726,6,2,0,'87.218.146.65',1194514257,1,0,1,1,1,1,'','','Jose Luis,\n\nCuriosidad \"geek\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> :\n\nEstas usando ya Leopard ? Que \"geekbench\" te da tu máquina ? <!-- m --><a class=\"postlink\" href=\"http://www.primatelabs.ca/geekbench\">http://www.primatelabs.ca/geekbench</a><!-- m -->\n\nY Xbench ?\n<!-- m --><a class=\"postlink\" href=\"http://www.xbench.com/\">http://www.xbench.com/</a><!-- m -->','',0,'EA==','m0a0hzps',1,0,'',2,0,0),(41232,8612,7,2,0,'87.218.146.65',1194514569,1,0,1,1,1,1,'','','Silvio,\n\nWindows Mobile 2003 or 2005 ?','',0,'EA==','3sr7da2g',1,0,'',2,0,0),(41233,8760,6,1059,0,'190.137.121.47',1194516156,1,0,1,1,1,0,'','','Antonio:\n\nCompilé el ejemplo pero no veo la forma de incluirle un Hipervínculo.\n\nSi cargo un archivo previamente generado con el WORD y que contiene un hipervínculo, este sale subrayado y en color azul pero no realiza el hipervínculo al presionar Ctrol+click izquierdo.\n\nGracias','',0,'EA==','2fvuqisk',1,0,'',1059,0,0),(41234,8612,7,49,0,'213.82.134.66',1194517171,1,0,1,1,1,1,'','','on HTC TNT I I have installed WINDOWs MOBILE 5.0 ( s.o. 5.1.465) con Feature Pack ( AKU)\n\non HTCTNT II there is Windows Mobile 6 Professional\n\n\nI downloading wm6 because I want installed on HTC TNT I  because wm5 have many problems when there is a wifi connections\n\n\nthe first is a samsung processor 400 MHz the second is a Qualcomm MSM 7200, 400MHz\n\nAll have Bluetooth 2.0, IRDA, Wi-Fi IEEE 802.11 b/g and only the HTC TNT II  have a gps antenna connector internal \n\nTHE FIRST have  a 2.0 MB Pixel camera the second ( HTC TNT II) have two cameras with 3.0 MB pixel\n\n\n\nI trying all sample on each Machine : not have problems!!!!\n\nHTC IS GOOD Pocket PC!!!','',0,'EA==','11kv3gmy',1,0,'',49,0,0),(41235,8694,3,1146,0,'87.223.174.155',1194517683,1,0,1,1,1,0,'','','oK. THANK YOU, but I would like to test the Fivewin code. If I buy now the software, I still get the same compilation error.\n\nCan you please, provide, us a working example, without the registered dll?. Thank you.','',0,'EA==','2w3r671h',1,0,'',1146,0,0),(41236,8744,20,49,0,'213.82.134.66',1194519608,1,0,1,1,1,1,'','','ENRICO,\n\nadesso l\'ho chiesto a Linares...','',0,'EA==','2x8ivzo0',1,0,'',49,0,0),(41237,8694,3,69,0,'74.13.62.63',1194520630,1,0,1,1,1,1,'','','Sorry, I can not supply a working sample without giving away the software.\n\nWith the purchased version you still need to use the \"make key\" program (which is slightly different for each purchased version via the dll)\n\nThis section will be different for each user:\n\nstatic LONG accm[] = {\n        0,\n        0x...,\n        0x...,\n        0x...,\n        0x...,\n        0x...,\n        0x...,\n        0x...,\n        0x...,\n        0x... \n\n\n\nJeff','',0,'','28jj0vfo',1,0,'',69,0,0),(41238,8757,3,49,0,'213.82.134.66',1194524433,1,0,1,1,1,1,'','','can i insert gradient color on tabs class ?\nI must create a new variable ( l2007) ?','',0,'','7dp0avvo',1,0,'',49,0,0),(41239,8694,3,1146,0,'87.223.174.155',1194525655,1,0,1,1,1,0,'','','Thank you jeff. Now I understand, the array musy be completed with proper values provided when you buy the product.\n\nAlso, I suppose that you have to include a dll into the software folder. Do you have to include the .exe file in the usb?\n\nAnd, by the way, are you happy with this software?. \n\nThank you!!!','',0,'','36ts927c',1,0,'',1146,0,0),(41240,8760,6,2,0,'87.218.146.65',1194525836,1,0,1,1,1,1,'','','Rolando,\n\nEn el ejemplo samples\\TestRtf.prg pulsa el primer botón de la barra de botones y desplázate hacia abajo hasta encontrar esta sección. Verás que con un simple click de ratón en ellas funcionan correctamente (salvo que estes usando una versión antigua de FWH):\n[url=http&#58;//imageshack&#46;us:2920afxh][img:2920afxh]http&#58;//img487&#46;imageshack&#46;us/img487/1482/rtffv5&#46;png[/img:2920afxh][/url:2920afxh]','',0,'GA==','2920afxh',1,0,'',2,0,0),(41241,8743,3,6,0,'87.10.10.3',1194526414,1,0,1,1,1,1,'','','Another sample that bombs out as soon as I move the mouse over the link (please note that also TUrlLink uses TrackMouseEvent()):\n\n[code:1rh0ufa9]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Urllink&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oUrl\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 URLLINK oUrl URL &quot;This is a test&quot;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1rh0ufa9]\n\nI don\'t understand... <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEMG','',0,'AIA=','1rh0ufa9',1,0,'',6,0,0),(41242,8757,3,2,0,'87.218.146.65',1194526470,1,0,1,1,1,1,'','','Silvio,\n\nMsgItems can be painted transparent, modifying the DRAWMSGITEM() function this way:\n[code:2ltm6vhd]\n&#46;&#46;&#46;\n   SetBkMode&#40; hDC, TRANSPARENT &#41;;  // new\n\n   // ExtTextOut&#40; hDC, 2, 4, ETO_OPAQUE, &amp;rc, &quot;&quot;, 0, 0 &#41;; no\n   DrawText&#40; hDC, cMsg, wLen, &amp;rc, DT_CENTER&#41;;\n[/code:2ltm6vhd]\nThe problem is that the background is not erased, so the new text does not erase the previous one. i.e.: see the clock running. We need to find a workaround for it','',0,'AIA=','2ltm6vhd',1,0,'',2,0,0),(41243,8763,3,86,0,'81.83.151.142',1194526552,1,0,1,1,1,1,'','Resizing a window','Hello,\n\nIn my application I have defined a window oWnd like this :\n[code:3t1uytu9]DEFINE WINDOW oWnd FROM xTop,xLeft TO xBottom,xRight &#46;&#46;&#46;\n[/code:3t1uytu9]\nAfter having changed the sizes of oWnd in a certain dialog box, I tried to change the sizes of my window (unfortunately without any succes) with this code :\n[code:3t1uytu9]oWnd&#58;nTop&#40;&#41;    &#58;= xTop\noWnd&#58;nLeft&#40;&#41;   &#58;= xLeft\noWnd&#58;nBottom&#40;&#41; &#58;= xBottom\noWnd&#58;nRight&#40;&#41;  &#58;= xRight\noWnd&#58;Refresh&#40;&#41;\n[/code:3t1uytu9]\nWhat do I do wrong ?\n\nOf course, quitting and restarting my application solves the problem too, but that is not what I want.\n\nThanks a lot in advance.','',0,'AIA=','3t1uytu9',1,0,'',86,0,0),(41244,8757,3,2,0,'87.218.146.65',1194526594,1,0,1,1,1,1,'','','Silvio,\n\n&gt; can i insert gradient color on tabs class ? \n\nDo you mean Class TTabs ?\n\n&gt; I must create a new variable ( l2007) ?\n\nyes, that would be the right way','',0,'AIA=','26nkap49',1,0,'',2,0,0),(41245,8743,3,2,0,'87.218.146.65',1194526741,1,0,1,1,1,1,'','','Enrico,\n\nHere it is working fine too <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nAre you testing on XP ? I am testing on Vista 32','',0,'AIA=','3sws3sjg',1,0,'',2,0,0),(41247,8743,3,6,0,'87.10.10.3',1194527948,1,0,1,1,1,1,'','','Yes, XP. Do you still have an XP to try my samples on it?\n\nEMG','',0,'AIA=','301mpwoh',1,0,'',6,0,0),(41248,8757,3,6,0,'87.10.10.3',1194528090,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2h5i2k9o]The problem is that the background is not erased, so the new text does not erase the previous one. i.e.: see the clock running. We need to find a workaround for it[/quote:2h5i2k9o]\n\nJust draw a series of spaces and then the proper cMsg.\n\nEMG','',0,'gA==','2h5i2k9o',1,0,'',6,0,0),(41249,8763,3,6,0,'87.10.10.3',1194528147,1,0,1,1,1,1,'','Re: Resizing a window','Use oWnd:Move() method instead.\n\nEMG','',0,'gA==','2mvfhf2b',1,0,'',6,0,0),(41250,8764,6,36,0,'200.113.56.235',1194528764,1,0,1,1,1,1,'','Ads y ADT Campo vacio ( Solucionado )','Estimados\n\nTengo un campo caracter y esta vacio\n\nahora como puedo filtrar este campo si esta vacio?\n\nsabiendo que al grabar en el campo en la base de dato se puso asi\n\n[code:3tdo520u]Field-&gt;Campo &#58;= &quot;&quot;[/code:3tdo520u]\n\n[b:3tdo520u]ahora filtrando esto no resulta!![/b:3tdo520u]\n\n[code:3tdo520u]\nSET FILTER TO EMPTY&#40; field-&gt;CAMPO &#41;\nadsSetAof&#40; \'empty&#40;campo&#41;\' &#41;\nSET FILTER TO FIELD-&gt;CAMPO = NIL[/code:3tdo520u]\n\n\n\nCualquier ayudita es bienvenida','',0,'QIA=','3tdo520u',1,0,'',36,0,0),(41251,8757,3,49,0,'62.13.172.67',1194528887,1,0,1,1,1,1,'','','where i can found drawmsgitem function ?','',0,'QIA=','3hhxsjxe',1,0,'',49,0,0),(41252,8694,3,69,0,'206.210.100.104',1194529601,1,0,1,1,1,1,'','','You do need to include the DLL in the folder where your exe is.\n\nYou do not need to add anything to the usb drive, just use the make program to set it as a valid key and that\'s all you need to do the the usb drive.\n\nNote: the usb drive can still be used as a regular drive, you can copy and delete files as normal.\n\n&gt;&gt;Am I happy with the software&lt;&lt;\nAntonio and I are still working out some Fivewin code setup.\nWhat I have tested so far is very promising.\n\nOnce the final changes have been completed we will post the code here.','',0,'QIA=','1xan529d',1,0,'',69,0,0),(41253,8743,3,2,0,'87.218.146.65',1194529634,1,0,1,1,1,1,'','','Enrico,\n\nYes, I have XP and Vista here on the same computer <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> We are going to try it.\n\nWell, in fact, I use five different operating systems on my computer <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> XP/Vista, Ubuntu and OSX Tiger/Leopard','',0,'QIA=','1xmx0h45',1,0,'',2,0,0),(41254,8757,3,2,0,'87.218.146.65',1194529834,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Just draw a series of spaces and then the proper cMsg. \n\nFWH uses to do that, but if the backgound has a gradient painting then its not a longer valid solution <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'QIA=','1cdc1ve8',1,0,'',2,0,0),(41255,8757,3,2,0,'87.218.146.65',1194529902,1,0,1,1,1,1,'','','Silvio,\n\n&gt; where i can found drawmsgitem function ?\n\nsource\\function\\drawitem.c','',0,'QIA=','2p5kt4ab',1,0,'',2,0,0),(41256,8763,3,2,0,'87.218.146.65',1194530086,1,0,1,1,1,1,'','','Michel,\n\nYou can also do it this way:\n\nWndTop( oWnd:hWnd, xTop )\nWndLeft( oWnd:hWnd, xLeft )\noWnd:nWidth = xWidth\noWnd:nHeight  := xHeight \n\nfor controls, you can simply do:\n\noControl:nTop = ...\noControl:nLeft = ...','',0,'QIA=','2tc5x882',1,0,'',2,0,0),(41257,8743,3,2,0,'87.218.146.65',1194531892,1,0,1,1,1,1,'','','Enrico,\n\nBoth examples work fine on XP\n\nDo you have your XP upgraded with all automatic updates ?','',0,'QIA=','1r5tkr46',1,0,'',2,0,0),(41258,6219,6,774,0,'200.72.179.85',1194532399,1,0,1,1,1,1,'','','alguien sabe','',0,'QIA=','n6enk8xn',1,0,'',774,0,0),(41259,8765,6,53,0,'189.139.11.34',1194532723,1,0,1,1,1,1,'','Gracias Biel','Amigos, públicamente quiero dar las gracias a Gabriel Maimó (Biel) por atender mis peticiones y empezar a crear posts sobre ADO en su Blog.\n\n<!-- m --><a class=\"postlink\" href=\"http://bielsys.blogspot.com\">http://bielsys.blogspot.com</a><!-- m -->\n\nGracias Biel, nuevamente','',0,'QIA=','3h5rlvfl',1,0,'',53,0,0),(41260,8757,3,868,0,'219.64.121.60',1194532888,1,0,1,1,1,1,'','','&gt; can i insert gradient color on tabs class ?\n\nDo you mean Class TTabs ?\n\n&gt; I must create a new variable ( l2007) ?\n\nyes, that would be the right way\n\n---------------\nIs it possible to have 2007 look for TTabs control also ?','',0,'QIA=','12524jxa',1,0,'',868,0,0),(41261,8726,6,131,0,'83.53.152.240',1194533220,1,0,1,1,1,0,'','','Lo uso nativo, instalado con BootCamp. Probé Parallels pero el refresco del teclado era muy lento, asi que lo dejé estar. \nAl final la solución pasará por el WaitSeconds, pero tengo que ver también lo del tamaño del meter, que parece que no funciona igual que en XP.\n\nSaludos,','',0,'QIA=','2vaclv38',1,0,'',131,0,0),(41262,8764,6,36,0,'200.113.56.235',1194533388,1,0,1,1,1,1,'','','La solucion era simple, pero igual que revisar todo el programa <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n\n[code:271m9fd5]SET FILTER TO CAMPO=&quot;&quot;\nAdsSetAof&#40; \'campo=&quot;&quot;\'  &#41;\n[/code:271m9fd5]','',0,'AIA=','271m9fd5',1,0,'',36,0,0),(41263,8726,6,131,0,'83.53.152.240',1194533705,1,0,1,1,1,0,'','','Antonio, uso Tiger. Todavía me queda mucha tela que aprender ahi como para pasar a Leopard. Y también está lo de los 129 euros, que también hay que pagarlos y la cosa se amontona.\nDesconocía lo del GeekBench, cuando vuelva a arrancar en OS X te cuento.\n\nSaludos,','',0,'AIA=','19e6w22f',1,0,'',131,0,0),(41264,8621,7,1185,0,'217.127.11.134',1194534503,1,0,1,1,1,1,'','','Antonio, lo tengo en el fichero .RC\n\nTambien tengo el commctrl.h y el richedit.h\n\nAl editarlo veo que no está la cadena ni en ese ni en ninguno de los include que a su vez tiene.\n\nGracias.','',0,'AIA=','nvunl0nu',1,0,'',1185,0,0),(41265,8757,3,49,0,'62.13.172.67',1194535996,1,0,1,1,1,1,'','','thanks Antonio','',0,'AIA=','3lddxeov',1,0,'',49,0,0),(41266,8621,7,2,0,'87.218.146.65',1194536083,1,0,1,1,1,1,'','','Juan Antonio,\n\nDS_SYSMODAL es una constante de windows en el PC y no viene en los includes de Windows Mobile, por lo que no se si te va a funcionar:\n\n#define DS_SYSMODAL   2\n\nDe todas formas, DS_SYSMODAL sirve para hacer modal una caja de diálogo a todo el sistema operativo, y no creo que Windows Mobile admita eso ya que supondría deshabilitar el menu del sistema','',0,'AIA=','1ha28qya',1,0,'',2,0,0),(41267,8737,1,477,0,'70.55.96.220',1194536204,1,0,1,1,1,0,'','compil error 3','With fw 2.1 l can compile tget, tcbrowse, windows and l never have those problems. When l\ncompile them l change nothing of the prg.','',0,'AIA=','fbw9ktv3',1,0,'',477,0,0),(41268,8737,1,2,0,'87.218.146.65',1194537056,1,0,1,1,1,1,'','','Richard,\n\nYou don\'t have to modify your PRGs, just comment out some #includes that you may not be using from inside FiveWin.ch\n\nFiveWin has grown and thats why Clipper preprocessor capability sometimes is not enough. Clipper 5.2 has more preprocessor capability than Clipper 5.3\n\nAlso, if you are using Clipper rmake.exe, it consumes memory that its not available for Clipper. We recommend using Borland maker.exe instead of rmake.exe as it frees all MsDos memory before calling Clipper.exe','',0,'AIA=','2izda3ic',1,0,'',2,0,0),(41270,8766,4,1218,0,'81.84.76.100',1194537150,1,0,1,1,1,0,'','Platform ???','Hi, the FWPPC work in CE4.10.\n\nI tested all the samples, and all give the error.\n\nCannot find \'Application\' (or one of its components).\nMahe sure the path and filename are correct and that all the requied libraries are available.\n\nRegards.','',0,'GA==','3ea851cn',1,0,'',1218,0,0),(41271,8766,4,2,0,'87.218.146.65',1194537499,1,0,1,1,1,1,'','','You have to add these lines for WinCE:\n\n// function CeSetmenu() ; return nil\n// function GetMenu() ; return nil\n// function ReadBitmap() ; return nil\n// function PalBmpRead() ; return nil\n\nPlease test this sample:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/68314392/tutor01.zip.html\">http://rapidshare.com/files/68314392/tutor01.zip.html</a><!-- m -->','',0,'GA==','1tktks5t',1,0,'',2,0,0),(41272,8739,3,868,0,'219.64.121.60',1194540215,1,0,1,1,1,1,'','','Mr Antonio\n\nDid you find a fix for this problem please?','',0,'GA==','2cllzm6z',1,0,'',868,0,0),(41273,8765,6,228,0,'190.84.2.150',1194541044,1,0,1,1,1,1,'','Gracias...','Armando muchas gracias por el articulo... esta bien interesante para aquellos que apenas estamos empezando en el mundo de ADO.\n\nDe nuevo Gracias','',0,'GA==','1ro5qutn',1,0,'',228,0,0),(41274,8761,6,935,0,'200.62.80.63',1194541049,1,0,1,1,1,1,'','fernando,estamos esperando','Hola Fernando,\n\nPara cuando VIAupdate ??? estamos a la espera\n\n\nRamon Paredes\nManagua, Nicaragua','',0,'GA==','337dtd2b',1,0,'',935,0,0),(41275,8767,8,1216,0,'190.38.206.217',1194541458,1,0,1,1,1,0,'','Tutorial / Manual','Buenas\n\nSoy nouevo en este lenguaje he estado buscando algun manual o tutorial que me ayude a entender mejor dicho programa\n\nsi puede ayudar en esto agradeceria\n\n\nSaludos\n\nGracias\n\nExito.........................','',0,'GA==','23fc7mze',1,0,'',1216,0,0),(41276,8766,4,1218,0,'81.84.76.100',1194541842,1,0,1,1,1,0,'','Platform ???','No !!!\n\nGive the same error.\n\nRegards','',0,'GA==','3m1e98ki',1,0,'',1218,0,0),(41278,8757,3,49,0,'62.13.172.67',1194545007,1,0,1,1,1,1,'','','Antonio, I insert the code you sent me :\n\n SetBkMode( hDC, TRANSPARENT );  // new \n\n   // ExtTextOut( hDC, 2, 4, ETO_OPAQUE, &amp;rc, \"\", 0, 0 ); no \n   DrawText( hDC, cMsg, wLen, &amp;rc, DT_CENTER); \n\n\nbut not run ok \n\nThen Another question I wanted modify the color when the mouse is over the msgitem \nwhere I must modify this color ?','',0,'GA==','etawckkg',1,0,'',49,0,0),(41279,8765,6,53,0,'189.139.11.34',1194545151,1,0,1,1,1,1,'','','Leandro:\n\nEl post y Blog es de  Garbiel Maimó a él debemos agradecerle.\n\nSaludos','',0,'GA==','wd4z7xtd',1,0,'',53,0,0),(41280,8766,4,2,0,'87.218.146.65',1194545910,1,0,1,1,1,1,'','','Are you testing on a real WinCE or on an emulator ?','',0,'GA==','rtn4upgw',1,0,'',2,0,0),(41281,8767,8,2,0,'87.218.146.65',1194545976,1,0,1,1,1,1,'','','Alberto,\n\nTe refieres a Xbase++ ó a FiveWin++ ?','',0,'GA==','1rlfw8et',1,0,'',2,0,0),(41282,8739,3,2,0,'87.218.146.65',1194546773,1,0,1,1,1,1,'','','NageswaraRao,\n\nIn Class TBar Methods GoLeft() and GoRight() add this line before final endif:\n\n      ::Refresh()\n   endif','',0,'GA==','1eesl0kv',1,0,'',2,0,0),(41283,8757,3,2,0,'87.218.146.65',1194547043,1,0,1,1,1,1,'','','Silvio,\n\nyes, I know, thats what I commented. We need to find a way to repaint the background properly.\n\nDo you want to change the color of the msgitem text when the mouse is over ?','',0,'GA==','e40u3gvt',1,0,'',2,0,0),(41284,8757,3,6,0,'79.19.240.242',1194548608,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:11qizfkc]Enrico,\n\n&gt; Just draw a series of spaces and then the proper cMsg. \n\nFWH uses to do that, but if the backgound has a gradient painting then its not a longer valid solution <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->[/quote:11qizfkc]\n\nCan\'t you use the same technique used for the page number  in rpreview.prg?\n\nEMG','',0,'gA==','11qizfkc',1,0,'',6,0,0),(41285,8757,3,49,0,'62.13.172.67',1194548834,1,0,1,1,1,1,'','','Perhaps I resolve \nthis is ttabs look 2007\n\n[code:378kq7x8]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Constant&#46;ch&quot;\n// #include &quot;WColors&#46;ch&quot;\n\n#define COLOR_ACTIVECAPTION   2\n#define COLOR_INACTIVECAPTION 3\n#define COLOR_WINDOW          5\n#define COLOR_WINDOWTEXT      8\n#define COLOR_BTNFACE        15\n#define COLOR_BTNSHADOW      16\n#define COLOR_INACTIVECAPTIONTEXT  19\n#define COLOR_BTNHIGHLIGHT   20\n\n\n#define FD_BORDER             8\n#define FD_HEIGHT            22\n\n#define DT_CENTER             1\n#define DT_LEFT               0\n#define DT_VCENTER            4\n#define DT_TOP                0\n\n#define WINDING               2\n#define SC_KEYMENU        61696   // 0xF100\n\n#ifdef __XPP__\n   #define Super &#58;&#58;TControl\n   #define New   _New\n#endif\n\n//----------------------------------------------------------------------------//\n\nCLASS TTabs FROM TControl\n\n   CLASSDATA lRegistered AS LOGICAL\n   CLASSDATA aProperties INIT &#123; &quot;aPrompts&quot;, &quot;nAlign&quot;, &quot;nClrText&quot;, &quot;nClrPane&quot;,;\n                                &quot;nOption&quot;, &quot;nTop&quot;, &quot;nLeft&quot;, &quot;nWidth&quot;,;\n                                &quot;nHeight&quot;, &quot;Cargo&quot; &#125;\n\n   DATA   aPrompts, aSizes\n   DATA   nOption\n   DATA   bAction\n\n   METHOD New&#40; nTop, nLeft, aPrompts, bAction, oWnd, nOption, nClrFore,;\n               nClrBack, lPixel, lDesign, nWidth, nHeight,;\n               cMsg &#41; CONSTRUCTOR\n\n   METHOD ReDefine&#40; nId, aPrompts, bAction, oWnd, nOption, nClrFore,;\n                    nClrBack &#41; CONSTRUCTOR\n\n   METHOD Display&#40;&#41;\n   METHOD Paint&#40;&#41;\n   METHOD Initiate&#40; hDlg &#41;\n   METHOD LButtonDown&#40; nRow, nCol, nFlags &#41;\n   METHOD Default&#40;&#41;\n   METHOD AddItem&#40; cItem &#41;\n\n   METHOD DelItem&#40;&#41;\n\n   METHOD SetOption&#40; nOption &#41;\n\n   METHOD SetTabs&#40; aTabs, nOption &#41;\n\n   METHOD GetHotPos&#40; nChar &#41;\n\n   METHOD SysCommand&#40; nType, nLoWord, nHiWord &#41;\n\n   METHOD Inspect&#40; cData &#41;\n\n   METHOD EditPrompts&#40;&#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; nTop, nLeft, aPrompts, bAction, oWnd, nOption, nClrFore,;\n            nClrBack, lPixel, lDesign, nWidth, nHeight, cMsg &#41; CLASS TTabs\n\n   #ifdef __XPP__\n      #undef New\n   #endif\n\n   DEFAULT nTop     &#58;= 0, nLeft &#58;= 0,;\n           aPrompts &#58;= &#123; &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot; &#125;,;\n           oWnd     &#58;= GetWndDefault&#40;&#41;,;\n           nOption  &#58;= 1,;\n           nClrFore &#58;= CLR_BLACK ,;//oWnd&#58;nClrText,;\n           nClrBack &#58;= GetSysColor&#40; COLOR_BTNFACE &#41;,;\n           lPixel   &#58;= &#46;f&#46;,;\n           lDesign  &#58;= &#46;f&#46;,;\n           nWidth   &#58;= 200, nHeight &#58;= 26\n\n   &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE,;\n                      If&#40; lDesign, WS_CLIPSIBLINGS, 0 &#41;, WS_TABSTOP &#41;\n   &#58;&#58;nId       = &#58;&#58;GetNewId&#40;&#41;\n   &#58;&#58;oWnd      = oWnd\n   &#58;&#58;aPrompts  = aPrompts\n   &#58;&#58;bAction   = bAction\n   &#58;&#58;nOption   = nOption\n   &#58;&#58;cMsg      = cMsg\n   &#58;&#58;nTop      = If&#40; lPixel, nTop, nTop * SAY_CHARPIX_H &#41;\n   &#58;&#58;nLeft     = If&#40; lPixel, nLeft, nLeft * SAY_CHARPIX_W &#41;\n   &#58;&#58;nBottom   = &#58;&#58;nTop + nHeight - 1\n   &#58;&#58;nRight    = &#58;&#58;nLeft + nWidth - 1\n   &#58;&#58;lDrag     = lDesign\n   &#58;&#58;lCaptured = &#46;f&#46;\n   &#58;&#58;oFont   = TFont&#40;&#41;&#58;New&#40; GetDefaultFontName&#40;&#41;, 0, GetDefaultFontHeight&#40;&#41;,, &#41;\n   // &#58;&#58;oFont     = TFont&#40;&#41;&#58;New&#40; &quot;Ms Sans Serif&quot;, 0, -9 &#41;\n   &#58;&#58;nClrText  = nClrFore\n   &#58;&#58;nClrPane  = nClrBack\n\n   &#58;&#58;oBrush &#58;= TBrush&#40;&#41;&#58;New&#40;,GetSysColor&#40;15&#41;-RGB&#40;30,30,30&#41;&#41;\n\n   #ifdef __XPP__\n      DEFAULT &#58;&#58;lRegistered &#58;= &#46;f&#46;\n   #endif\n\n   &#58;&#58;Register&#40;&#41;\n\n   if ! Empty&#40; oWnd&#58;hWnd &#41;\n      &#58;&#58;Create&#40;&#41;\n      oWnd&#58;AddControl&#40; Self &#41;\n   else\n      oWnd&#58;DefControl&#40; Self &#41;\n   endif\n\n   &#58;&#58;Default&#40;&#41;\n\n   if lDesign\n      &#58;&#58;CheckDots&#40;&#41;\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine&#40; nId, aPrompts, bAction, oWnd, nOption, nClrFore,;\n                 nClrBack &#41; CLASS TTabs\n\n   local n, oDlg\n\n   DEFAULT nOption  &#58;= 1,;\n           nClrFore &#58;= oWnd&#58;nClrText,;\n           nClrBack &#58;= GetSysColor&#40; COLOR_BTNFACE &#41;\n\n   &#58;&#58;nId      = nId\n   &#58;&#58;oWnd     = oWnd\n   &#58;&#58;aPrompts = aPrompts\n   &#58;&#58;bAction  = bAction\n   &#58;&#58;nOption  = nOption\n   &#58;&#58;oFont    = TFont&#40;&#41;&#58;New&#40; &quot;Ms Sans Serif&quot;, 0, -9 &#41;\n   &#58;&#58;nClrText = nClrFore\n   &#58;&#58;nClrPane = nClrBack\n\n   &#58;&#58;Register&#40;&#41;\n\n   oWnd&#58;DefControl&#40; Self &#41;\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD Display&#40;&#41; CLASS TTabs\n\n   &#58;&#58;BeginPaint&#40;&#41;\n   &#58;&#58;Paint&#40;&#41;\n   &#58;&#58;EndPaint&#40;&#41;\n\nreturn 0\n\n//----------------------------------------------------------------------------//\n\nMETHOD Paint&#40;&#41; CLASS TTabs\n\n  \n   local hDarkPen  &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_BTNSHADOW &#41; &#41;\n   local hGrayPen  &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_BTNFACE &#41; &#41;\n   local hLightPen &#58;= CreatePen&#40; PS_SOLID, 1, GetSysColor&#40; COLOR_ACTIVECAPTION &#41; &#41;\n   local n, nCol &#58;= 8\n   local hOldFont, hOldBrush, hOldPen\n   local hDC &#58;= &#58;&#58;GetDC&#40;&#41;\n   local hGrayBrush &#58;= CreateSolidBrush&#40; GetSysColor&#40;15&#41; &#41;\n   local hDarkBrush &#58;= CreateSolidBrush&#40; CLR_WHITE &#41;\n\n   hOldFont  = SelectObject&#40; hDC, &#58;&#58;oFont&#58;hFont &#41;\n   hOldPen   = SelectObject&#40; hDC, hDarkPen &#41;\n   hOldBrush = SelectObject&#40; hDC, hDarkBrush &#41;\n\n   MoveTo&#40; hDC, 0, 0 &#41;\n   LineTo&#40; hDC, &#58;&#58;nWidth&#40;&#41;, 0 &#41;\n\n   SetBlackPen&#40; hDC &#41;\n   MoveTo&#40; hDC, 0, 1 &#41;\n   LineTo&#40; hDC, &#58;&#58;nWidth&#40;&#41;, 1 &#41;\n\n   SetTextColor&#40; hDC, CLR_WHITE &#41;\n\n   if Len&#40; &#58;&#58;aSizes &#41; &lt; Len&#40; &#58;&#58;aPrompts &#41;\n      &#58;&#58;Default&#40;&#41;\n   endif\n\n   for n = 1 to Len&#40; &#58;&#58;aPrompts &#41;\n      SelectObject&#40; hDC, If&#40; n != &#58;&#58;nOption, hGrayBrush, hDarkBrush &#41; &#41;\n      SetBlackPen&#40; hDC &#41;\n/*\n      PolyPolygon&#40; hDC, &#123; &#123; nCol , 2 &#125;,;\n                          &#123; nCol , 20 &#125;,;\n                          &#123; nCol + 2, 22 &#125;,;\n                          &#123; nCol + 08 + &#58;&#58;aSizes&#91; n &#93;, 22 &#125;,;\n                          &#123; nCol + 18 + &#58;&#58;aSizes&#91; n &#93;, 12 &#125;,;\n                          &#123; nCol + 18 + &#58;&#58;aSizes&#91; n &#93;, 1 &#125;,;\n                          &#123; nCol , 1 &#125; &#125; &#41;\n*/\n      if n == 1 &#46;or&#46; n == &#58;&#58;nOption\n         PolyPolygon&#40; hDC, &#123; &#123; nCol , 2 &#125;,;\n                             &#123; nCol , 20 &#125;,;\n                             &#123; nCol + 2, 22 &#125;,;\n                             &#123; nCol + 08 + &#58;&#58;aSizes&#91; n &#93;, 22 &#125;,;\n                             &#123; nCol + 29 + &#58;&#58;aSizes&#91; n &#93;, 1  &#125;,;\n                             &#123; nCol , 1 &#125; &#125; &#41;\n      else\n         PolyPolygon&#40; hDC, &#123; &#123; nCol , 13 &#125;,;\n                             &#123; nCol , 20 &#125;,;\n                             &#123; nCol + 2, 22 &#125;,;\n                             &#123; nCol + 08 + &#58;&#58;aSizes&#91; n &#93;, 22 &#125;,;\n                             &#123; nCol + 29 + &#58;&#58;aSizes&#91; n &#93;, 1  &#125;,;\n                             &#123; nCol + 12, 1 &#125;  &#125; &#41;\n      endif\n      If n == &#58;&#58;noption\n         SelectObject&#40; hDC, hLightPen &#41;\n         MoveTo&#40; hDC, nCol+1, 19 &#41;\n         LineTo&#40; hDC, nCol+9+&#58;&#58;aSizes&#91;n&#93;+2, 19 &#41;\n         MoveTo&#40; hDC, nCol+1, 20 &#41;\n         LineTo&#40; hDC, nCol+9+&#58;&#58;aSizes&#91;n&#93;+1, 20 &#41;\n         MoveTo&#40; hDC, nCol+2, 21 &#41;\n         LineTo&#40; hDC, nCol+9+&#58;&#58;aSizes&#91;n&#93;  , 21 &#41;\n         //MoveTo&#40; hDC, nCol + 3 , 23 &#41;\n         //LineTo&#40; hDC, nCol + 8 + &#58;&#58;aSizes&#91; n &#93; - 2, 23 &#41;\n\n         SetTextColor&#40; hDC, &#58;&#58;nClrText &#41;\n         SetBkColor&#40; hDC, &#58;&#58;nClrPane &#41;\n         SetBkColor&#40; hDC, CLR_WHITE &#41;\n         DrawText&#40; hDC, &#58;&#58;aPrompts&#91; n &#93;,;\n                   &#123; iif&#40;largefonts&#40;&#41;,4,5&#41;, nCol+7, 19, nCol + 8 + &#58;&#58;aSizes&#91; n &#93; &#125;,;\n                    nOr&#40; DT_LEFT, DT_VCENTER &#41; &#41;\n      else\n         SetTextColor&#40; hDC, &#58;&#58;nClrText &#41;\n         SetBkColor&#40; hDC, GetSysColor&#40;15&#41; &#41;\n         DrawText&#40; hDC, &#58;&#58;aPrompts&#91; n &#93;,;\n                   &#123; iif&#40;largefonts&#40;&#41;,4,5&#41;, nCol+6 , 19, nCol + 8 + &#58;&#58;aSizes&#91; n &#93; &#125;,;\n                    nOr&#40; DT_CENTER, DT_VCENTER &#41; &#41;\n      endif\n      if n &gt; 1 &#46;AND&#46; n != &#58;&#58;nOption\n         SetBlackPen&#40; hDC &#41;\n         MoveTo&#40; hDC, nCol, 13 &#41;\n         LineTo&#40; hDC, nCol+12, 1 &#41;\n      endif\n      nCol += &#58;&#58;aSizes&#91; n &#93; + 17 // + 4 + 6\n   next\n\n   SelectObject&#40; hDC, hOldPen &#41;\n   SelectObject&#40; hDC, hOldFont &#41;\n   SelectObject&#40; hDC, hOldBrush &#41;\n\n   DeleteObject&#40; hDarkPen &#41;\n   DeleteObject&#40; hGrayPen &#41;\n   DeleteObject&#40; hLightPen &#41;\n   DeleteObject&#40; hDarkBrush &#41;\n   DeleteObject&#40; hGrayBrush &#41;\n\n   &#58;&#58;ReleaseDC&#40;&#41;\n   sysrefresh&#40;&#41;\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Initiate&#40; hDlg &#41; CLASS TTabs\n\n   Super&#58;Initiate&#40; hDlg &#41;\n\n   if &#58;&#58;oBrush == nil\n      &#58;&#58;oBrush &#58;= TBrush&#40;&#41;&#58;New&#40;,CLR_WHITE&#41;\n      // DEFINE BRUSH &#58;&#58;oBrush STYLE TABS\n   endif\n\n   &#58;&#58;Default&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD LButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TTabs\n\n   local n &#58;= 1, nPos &#58;= 5, nDesp &#58;= 18\n\n   if &#58;&#58;lDrag\n      return Super&#58;LButtonDown&#40; nRow, nCol, nFlags &#41;\n   else\n      if nRow &lt;= FD_HEIGHT\n         while nCol &gt; nPos + &#58;&#58;aSizes&#91; n &#93; + nDesp &#46;and&#46; n &lt; Len&#40; &#58;&#58;aPrompts &#41;\n            nPos += &#58;&#58;aSizes&#91; n &#93; + nDesp // + 10\n            n++\n         end\n         &#58;&#58;SetOption&#40; n &#41;\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Default&#40;&#41; CLASS TTabs\n\n   local n\n\n   &#58;&#58;aSizes = Array&#40; Len&#40; &#58;&#58;aPrompts &#41; &#41;\n\n   for n = 1 to Len&#40; &#58;&#58;aPrompts &#41;\n      &#58;&#58;aSizes&#91; n &#93; = GetTextWidth&#40; 0, StrTran&#40; &#58;&#58;aPrompts&#91; n &#93;, &quot;&amp;&quot;, &quot;&quot; &#41;,;\n                                    &#58;&#58;oFont&#58;hFont &#41;\n   next\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD AddItem&#40; cItem &#41; CLASS TTabs\n\n   AAdd&#40; &#58;&#58;aPrompts, cItem &#41;\n   &#58;&#58;Default&#40;&#41;\n   &#58;&#58;Refresh&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD DelItem&#40;&#41; CLASS TTabs\n\n   if Len&#40; &#58;&#58;aPrompts &#41; &gt; 1\n      &#58;&#58;aPrompts = ADel&#40; &#58;&#58;aPrompts, &#58;&#58;nOption &#41;\n      &#58;&#58;aPrompts = ASize&#40; &#58;&#58;aPrompts, Len&#40; &#58;&#58;aPrompts &#41; - 1 &#41;\n   else\n      &#58;&#58;aPrompts = &#123; &quot;No Defined&quot; &#125;\n   endif\n   &#58;&#58;Default&#40;&#41;\n   &#58;&#58;Refresh&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetOption&#40; nOption &#41; CLASS TTabs\n\n   if nOption != &#58;&#58;nOption\n      &#58;&#58;nOption = nOption\n      &#58;&#58;Paint&#40;&#41;\n      if ! Empty&#40; &#58;&#58;bAction &#41;\n         Eval&#40; &#58;&#58;bAction, nOption &#41;\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD GetHotPos&#40; nChar &#41; CLASS TTabs\n\n   local n &#58;= 1\n   local nAt\n\n   while n &lt;= Len&#40; &#58;&#58;aPrompts &#41;\n     if &#40; nAt &#58;= At&#40; &quot;&amp;&quot;, &#58;&#58;aPrompts&#91; n &#93; &#41; &#41; != 0 &#46;and&#46; ;\n        Lower&#40; SubStr&#40; &#58;&#58;aPrompts&#91; n &#93;, nAt + 1, 1 &#41; &#41; == Chr&#40; nChar &#41;\n        return n\n     endif\n     n++\n   end\n\nreturn 0\n\n//----------------------------------------------------------------------------//\n\nMETHOD SysCommand&#40; nType, nLoWord, nHiWord &#41; CLASS TTabs\n\n   local nItem\n\n   do case\n      case nType == SC_KEYMENU      // Alt+&#46;&#46;&#46; control accelerator pressed\n           if &#40; nItem &#58;= &#58;&#58;GetHotPos&#40; nLoWord &#41; &#41; &gt; 0\n              &#58;&#58;SetOption&#40; nItem &#41;\n              return 0\n           endif\n   endcase\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetTabs&#40; aTabs, nOption &#41; CLASS TTabs\n\n   DEFAULT aTabs &#58;= &#123; &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot; &#125;, nOption &#58;= 1\n\n   &#58;&#58;aPrompts = aTabs\n   &#58;&#58;nOption  = nOption\n   &#58;&#58;Default&#40;&#41;\n   &#58;&#58;Refresh&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Inspect&#40; cData &#41; CLASS TTabs\n\n   if cData == &quot;aPrompts&quot;\n      return &#123; || &#58;&#58;EditPrompts&#40;&#41; &#125;\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD EditPrompts&#40;&#41; CLASS TTabs\n\n   local oDlg, n\n   local cPrompts &#58;= &quot;&quot;\n   local oFont\n   local lOk &#58;= &#46;f&#46;\n   local aPrompts &#58;= &#123;&#125;\n\n   for n = 1 to Len&#40; &#58;&#58;aPrompts &#41;\n      cPrompts += &#58;&#58;aPrompts&#91; n &#93; + CRLF\n   next\n\n   DEFINE FONT oFont NAME &quot;Ms Sans Serif&quot; SIZE 0, -8\n\n   DEFINE DIALOG oDlg SIZE 300, 178 TITLE &quot;Edit prompts&quot; FONT oFont\n\n   @ 0&#46;2, 0&#46;3 GET cPrompts MEMO SIZE 145, 70\n\n   @ 7&#46;5, 10&#46;1 BUTTON &quot;&amp;Ok&quot;     SIZE 30, 11 ACTION &#40; lOk &#58;= &#46;t&#46;, oDlg&#58;End&#40;&#41; &#41;\n   @ 7&#46;5, 22&#46;1 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 11 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   if lOk\n      for n = 1 to MLCount&#40; cPrompts &#41;\n         AAdd&#40; aPrompts, AllTrim&#40; MemoLine&#40; cPrompts,, n &#41; &#41; &#41;\n      next\n      &#58;&#58;SetTabs&#40; aPrompts, 1 &#41;\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n#pragma BEGINDUMP\n#include &quot;Windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; GETDEFAULTFONTNAME &#41;\n&#123;\n   LOGFONT lf;\n   GetObject&#40; &#40; HFONT &#41; GetStockObject&#40; DEFAULT_GUI_FONT &#41;  , sizeof&#40; LOGFONT &#41;, &amp;lf &#41;;\n   hb_retc&#40; lf&#46;lfFaceName &#41;;\n&#125;\n\nHB_FUNC&#40; GETDEFAULTFONTHEIGHT &#41;\n&#123;\n   LOGFONT lf;\n   GetObject&#40; &#40; HFONT &#41; GetStockObject&#40; DEFAULT_GUI_FONT &#41;  , sizeof&#40; LOGFONT &#41;, &amp;lf &#41;;\n   hb_retni&#40; lf&#46;lfHeight &#41;;\n&#125;\n\nHB_FUNC&#40; GETDEFAULTFONTWIDTH &#41;\n&#123;\n   LOGFONT lf;\n   GetObject&#40; &#40; HFONT &#41; GetStockObject&#40; DEFAULT_GUI_FONT &#41;  , sizeof&#40; LOGFONT &#41;, &amp;lf &#41;;\n   hb_retni&#40; lf&#46;lfWidth &#41;;\n&#125;\n\nHB_FUNC&#40; GETDEFAULTFONTITALIC &#41;\n&#123;\n   LOGFONT lf;\n   GetObject&#40; &#40; HFONT &#41; GetStockObject&#40; DEFAULT_GUI_FONT &#41;  , sizeof&#40; LOGFONT &#41;, &amp;lf &#41;;\n   hb_retl&#40; &#40;BOOL&#41; lf&#46;lfItalic &#41;;\n&#125;\n\nHB_FUNC&#40; GETDEFAULTFONTUNDERLINE &#41;\n&#123;\n   LOGFONT lf;\n   GetObject&#40; &#40; HFONT &#41; GetStockObject&#40; DEFAULT_GUI_FONT &#41;  , sizeof&#40; LOGFONT &#41;, &amp;lf &#41;;\n   hb_retl&#40; &#40;BOOL&#41; lf&#46;lfUnderline &#41;;\n&#125;\n\nHB_FUNC&#40; GETDEFAULTFONTBOLD &#41;\n&#123;\n   LOGFONT lf;\n   GetObject&#40; &#40; HFONT &#41; GetStockObject&#40; DEFAULT_GUI_FONT &#41;  , sizeof&#40; LOGFONT &#41;, &amp;lf &#41;;\n   hb_retl&#40; &#40;BOOL&#41; &#40; lf&#46;lfWeight == 700 &#41; &#41;;\n&#125;\n\nHB_FUNC&#40; GETDEFAULTFONTSTRIKEOUT &#41;\n&#123;\n      LOGFONT lf;\n      GetObject&#40; &#40; HFONT &#41; GetStockObject&#40; DEFAULT_GUI_FONT &#41;  , sizeof&#40; LOGFONT &#41;, &amp;lf &#41;;\n      hb_retl&#40; &#40;BOOL&#41; lf&#46;lfStrikeOut &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:378kq7x8]\n[url=http&#58;//img215&#46;imageshack&#46;us/my&#46;php?image=sociuz4&#46;jpg:378kq7x8][img=http://img215.imageshack.us/img215/2880/sociuz4.th.jpg][/url:378kq7x8][/img]','',0,'EIA=','378kq7x8',1,1194549484,'',49,3,0),(41286,8743,3,6,0,'79.19.240.242',1194549211,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2tbt4evz]Enrico,\n\nBoth examples work fine on XP\n\nDo you have your XP upgraded with all automatic updates ?[/quote:2tbt4evz]\n\nOf course. But sorry, these tests are a waste of time. The facts are that if I replace my vm.lib with the one you sent me yesterday then the problem vanishes. Keep in mind that I\'m building Harbour for myself since years. I really can\'t imagine what the difference is...\n\nEMG','',0,'gA==','2tbt4evz',1,0,'',6,0,0),(41287,8757,3,2,0,'87.218.146.65',1194549234,1,0,1,1,1,1,'','','&gt; Can\'t you use the same technique used for the page number in rpreview.prg? \n\nYes, the idea is to force a background refresh','',0,'gA==','2tz888hk',1,0,'',2,0,0),(41288,8743,3,2,0,'87.218.146.65',1194549503,1,0,1,1,1,1,'','','&gt; I really can\'t imagine what the difference is...\n\nSame here <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gA==','2kxwpzbj',1,0,'',2,0,0),(41289,8743,3,6,0,'79.19.240.242',1194550867,1,0,1,1,1,1,'','','Don\'t worry: sooner or later we will find the reason. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1uspgoxt',1,0,'',6,0,0),(41290,8758,11,2,0,'87.218.146.65',1194550909,1,0,1,1,1,1,'','','Doug,\n\nAlready fixed. We email you the new libraries and a modified FiveLinux.ch\n\nThanks for your feedback,','',0,'gA==','q0pdkumj',1,0,'',2,0,0),(41291,8768,3,51,0,'80.122.88.242',1194552156,1,0,1,1,1,0,'','xbrowse cols smaller than bmp or row lower than bmp height','[img:3n33xxyn]http&#58;//www&#46;atzwanger&#46;com/fw/xbrw2&#46;jpg[/img:3n33xxyn]\n\n[img:3n33xxyn]http&#58;//www&#46;atzwanger&#46;com/fw/xbrw1&#46;jpg[/img:3n33xxyn]','',0,'CA==','3n33xxyn',1,0,'',51,0,0),(41292,8694,3,1146,0,'87.223.174.155',1194553512,1,0,1,1,1,0,'','','Thank you very much to you and Antonio for your work!!!!','',0,'CA==','1ai4c8a2',1,0,'',1146,0,0),(41293,8758,11,578,0,'218.214.35.132',1194554392,1,0,1,0,1,0,'','Thank You','Thanks Antonio\n\nI will build new version of application and recheck remaining issues.\n\nCurrently getting around the list box problem (when tabbing in for the first time) by going through the options twice, adding the selected one on the first pass and all the rest on the second pass.  This means that the selected option is always the first one in the list box.  It means that the order the options appear in changes which is not ideal but its workable.\n\nI had assumed that the tab order of items on a screen would be determined by the order of being added to the dialog but that doesn\'t appear to be the case.  Haven\'t done a great deal of experimentation but it appears to by row then by column.  Do you know if that is the case?  If not, what is? How can we control it? I wanted the screen to work as if in two columns - that is down the left hand column first and then down the right hand column.\n\nWhen you tab into a GET the cursor seems to move to the end of its contents including blank spaces at the end.  So if you have initialised the data to say SPACE(16) the cursor goes to the end of 16 spaces and you have to hit [Home} or use a mouse click.  Also blocking text doesn\'t work as one would expect.\n\nA very minor issue is that if you hit [Enter] in a Get with the password option it adds the enter key to the password - and users (although told) seem to forget and say they are unable to log in to the application.','',0,'','2hugfjbh',1,0,'',578,0,0),(41294,8766,4,92,0,'81.38.203.181',1194557005,1,0,1,1,1,0,'','Re: Platform ???','[quote=&quot;pjmfelix&quot;:12e0zkax]No !!!\n\nGive the same error.\n\nRegards[/quote:12e0zkax]\n\nWithout \'//\'?\n\nRegards\nCarlos G.','',0,'gA==','12e0zkax',1,0,'',92,0,0),(41295,8769,6,1072,0,'190.82.27.238',1194558300,1,0,1,1,1,0,'','ERROR EN VERCE 5.1','Hola Amigos.\n\nHe cambiado la version de Verce a 5.1, pero al tratar de agregar un programa en la opcion \" fuentes PRG y C del Proyecto \" , me arroja el siguiente error.\n\nSi alguien le ha sucedido, favor indicar la forma de corregir.\n\nDesde ya muchas gracias,\n\nSaludos,\nAntonio\n\n*** Error\n\nApplication\n===========\n   Path and name: C:\\UTIL\\DESA32\\VERCE51\\XVERCE.EXE (32 bits)\n   Size: 2,088,960 bytes\n   Time from start: 0 hours 4 mins 2 secs \n   Error occurred at: 08/11/2007, 18:37:12\n   Error description: Error BASE/1003  Variable does not exist: CDIRPRG\n\nStack Calls\n===========\n   Called from: VERCE2.Prg =&gt; ADDUNPRG(471)\n   Called from: VERCE2.Prg =&gt; (b)NUEVO(189)\n   Called from: BUTTON.PRG =&gt; TBUTTONBMP:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: BUTTONB.PRG =&gt; TBUTTONBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: VERCE2.Prg =&gt; NUEVO(315)\n   Called from: VERCE.Prg =&gt; MODIFICAPROP(656)\n   Called from: VERCE.Prg =&gt; (b)BUILDMENU(456)\n   Called from: Menu.prg =&gt; TC5MENU:COMMAND(714)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: VERCE.Prg =&gt; MAIN(251)','',0,'gA==','2auf9036',1,0,'',1072,0,0),(41296,8604,6,413,0,'80.37.214.60',1194560155,1,0,1,1,1,1,'','','Gracias Vikthor','',0,'gA==','2iwhx17s',1,0,'',413,0,0),(41297,8743,3,2,0,'87.218.146.65',1194563859,1,0,1,1,1,1,'','','Enrico,\n\nYour example is even running on new OSX Leopard <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:3rdjp4lx][img:3rdjp4lx]http&#58;//img228&#46;imageshack&#46;us/img228/6734/picture1lg8&#46;png[/img:3rdjp4lx][/url:3rdjp4lx]\n\nCrossOver is a \"Wine\" alike Windows emulator for OSX, so you can directly run Windows EXEs on Mac OSX','',0,'GA==','3rdjp4lx',1,0,'',2,0,0),(41298,8757,3,49,0,'62.13.172.67',1194564397,1,0,1,1,1,1,'','','yes Antonio I\'d like create something of it \nwhen the mouse is over the item must change color ( orange  as 2003 style).','',0,'GA==','hzosba2i',1,0,'',49,0,0),(41299,8757,3,49,0,'62.13.172.67',1194564452,1,0,1,1,1,1,'','','Antonio, explain me How corrct background of msgitem','',0,'GA==','jdce3ge9',1,0,'',49,0,0),(41300,8765,6,348,0,'201.230.6.174',1194573355,1,0,1,1,1,0,'','','Mis estimados amigos, me uno al comentario y las gracias a quien lo inicio, y a todos los aportes que surgan en este Blog. es lo que necesitamos para especializarnos en el tema, pues hoy en dia es importante para desarrollar sistemas competitivos con el mercado de software actual y esta alternativa con AdoRDD es una gran alternativa.\n\nLubin \n\n[quote=&quot;Armando&quot;:3js5metm]Leandro:\n\nEl post y Blog es de  Garbiel Maimó a él debemos agradecerle.\n\nSaludos[/quote:3js5metm]','',0,'gA==','3js5metm',1,0,'',348,0,0),(41301,8769,6,396,0,'200.71.188.208',1194576742,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8693\">http://fivetechsoft.com/forums/viewtopic.php?t=8693</a><!-- m -->\n\nAntonio,\nlos amigos de VERCE estan resolviendo estos detalles de la version 5.1, te recomiendo que uses la 5.0 que esta estable hasta ahora, es la que uso y no me ha dado ningun tipo de problema, mientras resuelven, son pocas las diferencias para todo lo basico que puedas usar, por lo menos todo lo de compilacion lo hace sin problema, para mi es la herramienta principal, sin ella, no sabria como compilar tantas cosas... .prg, .c, .lib, VERCE hace su trabajo, gracias....  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3aoil0jg',1,0,'',396,0,0),(41302,6219,6,774,0,'200.72.126.184',1194577036,1,0,1,1,1,1,'','','AL PARECER NADIE','',0,'gA==','3hilyq1d',1,0,'',774,0,0),(41303,6219,6,2,0,'87.218.146.65',1194595045,1,0,1,1,1,1,'','','William,\n\nLa solución es muy simple y no hay que usar ninguna clase nueva <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEn la clase TWindow hay que incluir estos cambios: (los if ... que comprueban \"TMDIFRAME\")\n[code:25uz8d5y]\n   if oVScroll != nil       // When using VSCROLL clause\n      if bUp != nil\n         oVScroll&#58;bGoUp = bUp\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oVScroll&#58;bGoUp = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, 0, 20, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n      if bDown != nil\n         oVScroll&#58;bGoDown = bDown\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oVScroll&#58;bGoDown = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, 0, -20, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n   &#46;&#46;&#46;\n   if oHScroll != nil       // When using HSCROLL clause\n      if bLeft != nil\n         oHScroll&#58;bGoUp = bLeft\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oHScroll&#58;bGoUp = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, 20, 0, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n      if bRight != nil\n         oHScroll&#58;bGoDown = bRight\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oHScroll&#58;bGoDown = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, -20, 0, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n   &#46;&#46;&#46;\n[/code:25uz8d5y]\nAqui tienes un ejemplo funcionando:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/68462085/Wormar.zip.html\">http://rapidshare.com/files/68462085/Wormar.zip.html</a><!-- m -->','',0,'AIA=','25uz8d5y',1,0,'',2,0,0),(41304,8769,6,54,0,'189.132.92.161',1194598084,1,0,1,1,1,1,'','Re: ERROR EN VERCE 5.1','mantonio_08\n\nEstamos trabajando sobre los reportes de errores.\n\npronto liberaremos la correcciones con unas novedades.\n\nestamos checando a fondo VERCE para no tener estos \"detalles\"\n\nLe doy las gracias a José Murugosa por su tiempo para testear VERCE','',0,'AIA=','1gns9b43',1,0,'',54,0,0),(41305,6219,6,54,0,'189.132.92.161',1194598261,1,0,1,1,1,1,'','','Antonio,\n\ngracias, lo checo y aviso\n\nsaludos\n\n[quote=&quot;Antonio Linares&quot;:6vq0zire]William,\n\nLa solución es muy simple y no hay que usar ninguna clase nueva <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEn la clase TWindow hay que incluir estos cambios: (los if ... que comprueban \"TMDIFRAME\")\n[code:6vq0zire]\n   if oVScroll != nil       // When using VSCROLL clause\n      if bUp != nil\n         oVScroll&#58;bGoUp = bUp\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oVScroll&#58;bGoUp = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, 0, 20, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n      if bDown != nil\n         oVScroll&#58;bGoDown = bDown\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oVScroll&#58;bGoDown = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, 0, -20, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n   &#46;&#46;&#46;\n   if oHScroll != nil       // When using HSCROLL clause\n      if bLeft != nil\n         oHScroll&#58;bGoUp = bLeft\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oHScroll&#58;bGoUp = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, 20, 0, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n      if bRight != nil\n         oHScroll&#58;bGoDown = bRight\n      else   \n         if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n            oHScroll&#58;bGoDown = &#123; || ScrollWindow&#40; &#58;&#58;oWndClient&#58;hWnd, -20, 0, 0, GetClientRect&#40; &#58;&#58;oWndClient&#58;hWnd &#41; &#41;, ReleaseCapture&#40;&#41; &#125;\n         endif   \n      endif\n   &#46;&#46;&#46;\n[/code:6vq0zire]\nAqui tienes un ejemplo funcionando:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/68462085/Wormar.zip.html\">http://rapidshare.com/files/68462085/Wormar.zip.html</a><!-- m -->[/quote:6vq0zire]','',0,'gIA=','6vq0zire',1,0,'',54,0,0),(41307,8753,3,161,0,'81.83.249.31',1194598705,1,0,1,1,1,0,'','','Juan Carlos Salinas Ojeda,\n\nDo you have a list of commands for activex for acrobat?\n\nI have search google a found some commands, but there was no info how to use them  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nBest regards,\nMarc','',0,'gIA=','1vyeebr4',1,0,'',161,0,0),(41308,6219,6,2,0,'87.218.146.65',1194598786,1,0,1,1,1,1,'','','William,\n\nHay un efecto colateral extraño al que hay que intentar buscarle solución:\n\nLa llamada a ReleaseCapture() la hago para evitar que el scrollbar se quede el ratón capturado cuando la barra desaparece. Pero al usar el ReleaseCapture() y luego clickar en el \"ascensor\" entonces se produce un extraño repintado no deseado. \n\nLa solución sería llamar a ReleaseCapture() solo cuando el scrollbar desaparece, pero desconozco si Windows nos notifica de ese evento.\n\nA ver si encontramos la solución...','',0,'gIA=','1okn0zdz',1,0,'',2,0,0),(41309,8754,6,106,0,'85.34.123.173',1194598898,1,0,1,1,1,1,'','','A nadie que use xBrowse le pasa este error? o deshabilitan la posibilidad de cambiar las columnas de lugar a sus clientes?\n\nEl error es que si tomo la ultima columna del browse, la pongo al principio y luego me muevo hacia la derecha, me da ERROR.\n\n\nSaludos.','',0,'gIA=','ddlm0tv9',1,0,'',106,0,0),(41310,6219,6,54,0,'189.132.92.161',1194599122,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:k59g6kap]William,\n\nHay un efecto colateral extraño al que hay que intentar buscarle solución:\n\nLa llamada a ReleaseCapture() la hago para evitar que el scrollbar se quede el ratón capturado cuando la barra desaparece. Pero al usar el ReleaseCapture() y luego clickar en el \"ascensor\" entonces se produce un extraño repintado no deseado. \n\nLa solución sería llamar a ReleaseCapture() solo cuando el scrollbar desaparece, pero desconozco si Windows nos notifica de ese evento.\n\nA ver si encontramos la solución...[/quote:k59g6kap]\n\nAntonio,\n\nefectivamente, me di cuenta del pintado incorrecto. esperamos impacientes la solución. Mil gracias','',0,'gA==','k59g6kap',1,0,'',54,0,0),(41312,6219,6,2,0,'87.218.146.65',1194599453,1,0,1,1,1,1,'','','El ReleaseCapture() no le gusta nada a la barra de scroll, y sin usar ReleaseCapture() cuando la barra desaparece deja \"pillado\" el ratón, por lo menos en Vista','',0,'gA==','3vf5ho8b',1,0,'',2,0,0),(41313,8754,6,2,0,'87.218.146.65',1194599648,1,0,1,1,1,1,'','','Pedro,\n\nCuantas columnas tienes, cinco ?','',0,'gA==','34y6vdr7',1,0,'',2,0,0),(41314,8754,6,2,0,'87.218.146.65',1194599839,1,0,1,1,1,1,'','','Pedro,\n\nPuedes reproducir el error en samples\\TestXBrw.prg ?','',0,'gA==','36kajap1',1,0,'',2,0,0),(41315,8754,6,456,0,'62.43.18.83',1194599950,1,0,1,1,1,1,'','','Hola Pedro, he intentado reproducir tu error. Pero a mi no me casca.  Te sucede con cualquier browse?','',0,'gA==','ys37mfcy',1,0,'',456,0,0),(41316,8743,3,6,0,'79.9.233.184',1194600295,1,0,1,1,1,1,'','','Wonderful!\n\nEMG','',0,'gA==','33bzopy3',1,0,'',6,0,0),(41317,8754,6,106,0,'85.34.123.173',1194600543,1,0,1,1,1,1,'','','Antonio,\n\nEn realidad tengo 6 columnas.\n\nPero como una imagen dice mas que mil palabras aqui pongo la imagen\n\nCon las columnas en su orden normal:\n[url=http&#58;//imageshack&#46;us:i4ogi4yd][img:i4ogi4yd]http&#58;//img142&#46;imageshack&#46;us/img142/4701/xbrw01jf3&#46;jpg[/img:i4ogi4yd][/url:i4ogi4yd]\n\n\nCuando cambio la columna de lugar\n\n[url=http&#58;//imageshack&#46;us:i4ogi4yd][img:i4ogi4yd]http&#58;//img232&#46;imageshack&#46;us/img232/2059/xbrw02rw1&#46;jpg[/img:i4ogi4yd][/url:i4ogi4yd]\n\n\n\n\ny aqui cuando voy a la ultima columna, presiono flecha a la derecha y me da el error\n\n[url=http&#58;//imageshack&#46;us:i4ogi4yd][img:i4ogi4yd]http&#58;//img140&#46;imageshack&#46;us/img140/6220/xbrw03sj6&#46;jpg[/img:i4ogi4yd][/url:i4ogi4yd]\n\n\n\n\n\nSaludos\n\n\nP.D.\n\n\nAca pongo el error con el testxbrw\n\n\n[url=http&#58;//imageshack&#46;us:i4ogi4yd][img:i4ogi4yd]http&#58;//img88&#46;imageshack&#46;us/img88/6179/xbrw04xv3&#46;jpg[/img:i4ogi4yd][/url:i4ogi4yd]','',0,'GA==','i4ogi4yd',1,0,'',106,0,0),(41318,8766,4,1218,0,'81.84.76.100',1194601365,1,0,1,1,1,0,'','','Hi !\n\nI´m try in CASIO IT-3000M53E with CE4.10 and the CPU Type Intel Corp. ARM XScale.\n\nAnd yes, i put the lines without the //, but the Linares sample give the same error.\n\nRegards.','',0,'GA==','2zdzt8au',1,0,'',1218,0,0),(41319,8753,3,130,0,'141.51.32.24',1194602001,1,0,1,1,1,1,'','','Marc,\n\nyou can use ActiveXXX to get detailed informations about an activeX control.\n\n[url:2ynoxt8s]http&#58;//www&#46;winsite&#46;com/bin/Info?4580[/url:2ynoxt8s]','',0,'EA==','2ynoxt8s',1,0,'',130,0,0),(41320,8753,3,161,0,'81.83.249.31',1194602734,1,0,1,1,1,0,'','','Thanks Stefan,\n\nThat program is working very nice!\n\nRegards,\nMarc','',0,'EA==','1e3czr97',1,0,'',161,0,0),(41321,8770,6,945,0,'80.32.177.143',1194602878,1,0,1,1,1,0,'','No crea EXE Uestudio','Muy buenas, por fin he \"casi\" configurado el Uestudio y ahora cuando todo me compila y me crea mi .c y .obj no me crea el .exe por favor decirme en que me puedo estar equivocando mi archivo de configuracion es:\n\n------------------------------------------------------------------------------------\n\n# --------- CLIPPER Compiler configuration ---------\n# --- general --------------------------------------\n# $P  - project name\n# $Pp - path to project directory\n# $Pn - project name\n# --- compile --------------------------------------\n# $I  - input full name\n# $Ip - input path\n# $In - input name\n# $Ie - input extension\n# $O  - output file\n# $Op - path to output file\n# $On - output filename (without path)\n# $Oe - output extension\n# $R  - release/debug setting for compiler\n# --- build ----------------------------------------\n# $T  - target full name\n# $Tp - target path\n# $Tn - target name\n# $O  - output file\n# $Op - path to output file\n# $On - output filename (without path)\n# $Oe - output extension\n# $R  - release/debug setting for linker\n\n[Settings]\nTarget = \nCategory&amp;01 = DEFAULT RUN CONFIGURATION\nWorking Directory =.\nCommand Line Arguments =\nCategory&amp;02 = COMPILER OPTIONS\nWarnings = no|yes\nAssumed Variables = no|yes\nCompiler Options = \nLibraries = \n\n[SettingsInfo]\nTarget = Provides a space for you to specify an output file and location of the program that the linker creates.\nWorking Directory = Provides a space for you to specify the directory in which executing occurs. If you do not specify a directory, executing occurs in the directory where the executable is located.\nCommand Line Arguments = Provides a space for you to specify command-line arguments you want to pass to the program at startup.\nCompiler Options = Provides a space for you to specify an additional compiler options.\nLinker Options = Provides a space for you to specify an additional linker options.\nDebugger=Provides a space for you to set the debugger you want to use to debug application.\n\n[SettingsReps]\nWarnings = yes=/w|no=\nAssumed Variables = no=|yes=/v\n\n[Variables]\nBPATH = Z:\\proyecto\\compiler\\BCC55\nCPATH = Z:\\proyecto\\compiler\\xharbour\nCOPT = /m /n /o$In $(Warnings) $(Compiler Options)\nLOPT = $(Linker Options)\nFWH = Z:\\proyecto\\libreria\\general\nLINKER = $(BPATH)\\BIN\\ILINK32\nINCLU = Z:\\proyecto\\libreria\n\n[Environment]\nPATH = $(CPATH)\\BIN;%PATH%;$(BPATH)\\BIN\nINCLUDE = $(CPATH)\\INCLUDE;$(FWH)\\INCLUDE;$(INCLU)\\INCLUDE\nLIB = $(CPATH)\\LIB\nOBJ = $(CPATH)\\OBJ\n\n[General]\nTargetExt = .EXE\nReleaseOut = Release\nDebugOut = Debug\nUseFullPaths = 0\nUseDosNames = 1\nExcludes = $(Excluded Files)\n\n[MakeCommands]\nrun = Execute Application\ndebug = Start Debugger\nmakef = Show Makefile\n\n[Execute Application]\nTitle = Execute $T\nCmd0 = $(Command Line Arguments)\nDepends = $T\nShowWindow = 1\nDisplayConsole = 0\n\n[Start Debugger]\nTitle=Debug $T\nCmd0=$(Debugger) $T\nDepends=$T\nShowWindow=1\n\n[Show Makefile]\nTitle=Show makefile\nCmd0=uestudio makefile\nShowWindow=1\nDisplayConsole=0\n\n[InsertFiles]\ngroup0 = $(Libraries)\n\n[FileGroups]\nFGO = .obj;\nFGR = .res;\nFGL = .lib;\n\n[GroupFormats]\nFGO = %s\nFGR = %s\nFGL = %s\n\n[Build]\nOut = $T\nDepends = $FGO $FGR\nCmd23 = echo  $Tn.exe , + &gt;&gt;b32.bc\nCmd24 = echo  $Tn.map , + &gt;&gt;b32.bc\nCmd0 = echo $(INCLU)\\alllib\\FiveHx.lib $(INCLU)\\alllib\\FiveHC.lib + &gt; b32.bc\nCmd1 = echo $(INCLU)\\alllib\\rtl.lib + &gt;&gt; b32.bc\nCmd2 = echo $(INCLU)\\alllib\\vm.lib + &gt;&gt; b32.bc\nCmd3 = echo $(INCLU)\\alllib\\gtgui.lib + &gt;&gt; b32.bc\nCmd4 = echo $(INCLU)\\alllib\\lang.lib + &gt;&gt; b32.bc\nCmd5 = echo $(INCLU)\\alllib\\macro.lib + &gt;&gt; b32.bc\nCmd6 = echo $(INCLU)\\alllib\\rdd.lib + &gt;&gt; b32.bc\nCmd7 = echo $(INCLU)\\alllib\\dbfntx.lib + &gt;&gt; b32.bc\nCmd8 = echo $(INCLU)\\alllib\\dbfcdx.lib + &gt;&gt; b32.bc\nCmd9 = echo $(INCLU)\\alllib\\dbffpt.lib + &gt;&gt; b32.bc\nCmd10 = echo $(INCLU)\\alllib\\hbsix.lib + &gt;&gt; b32.bc\nCmd11 = echo $(INCLU)\\alllib\\debug.lib + &gt;&gt; b32.bc\nCmd12 = echo $(INCLU)\\alllib\\common.lib + &gt;&gt; b32.bc\nCmd13 = echo $(INCLU)\\alllib\\pp.lib + &gt;&gt; b32.bc\nCmd15 = echo $(BPATH)\\lib\\cw32.lib + &gt;&gt; b32.bc\nCmd16 = echo $(BPATH)\\lib\\import32.lib + &gt;&gt; b32.bc\nCmd17 = echo $(BPATH)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\nCmd18 = echo $(BPATH)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\nCmd19 = echo $(BPATH)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\nCmd20 = echo $(BPATH)\\lib\\psdk\\rasapi32.lib, &gt;&gt; b32.bc\nCmd21 = echo ..\\$Tn.res &gt;&gt; b32.bc\nCmd22 = $(LINKER) -Gn -aa -Tpe -s -v c0w32.obj $FGO, $Tn.EXE,, @b32.bc\n\n[.PRG]\nOut = $In.c\nDebugFlag = /b\nReleaseFlag = /l\nCmd0 = harbour $(COPT) $R $I\n\n[.C]\nOut = $In.obj\nCmd0 = bcc32 -c -IZ:\\proyecto\\compiler\\xharbour\\INCLUDE $In.c\n\n[.RC]\nOut = $In.res\nCmd0 = brc32 -r ..\\$In.rc\n\n-----------------------------------------------------------------------------\n\nUn Saludo y Mil Gracias.','',0,'','3bevknmq',1,0,'',945,0,0),(41322,8766,4,2,0,'87.218.146.65',1194603835,1,0,1,1,1,1,'','','Please try this EXE:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/68481535/tutor01.zip.html\">http://rapidshare.com/files/68481535/tutor01.zip.html</a><!-- m -->\n\nThat EXE is just using CoreDLL.DLL from Windows Mobile, so it should work, unless that WinCE does not provide a compatible CoreDLL.DLL:\n[url=http&#58;//imageshack&#46;us:2bcmm3de][img:2bcmm3de]http&#58;//img340&#46;imageshack&#46;us/img340/2662/headerty6&#46;png[/img:2bcmm3de][/url:2bcmm3de]','',0,'GA==','2bcmm3de',1,0,'',2,0,0),(41323,8743,3,6,0,'79.9.233.184',1194604386,1,0,1,1,1,1,'','','Another question: are you using BCC 5.5.1 or a newer version?\n\nEMG','',0,'GA==','1fov5sur',1,0,'',6,0,0),(41324,8743,3,2,0,'87.218.146.65',1194605185,1,0,1,1,1,1,'','','Enrico,\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland','',0,'GA==','p50helqt',1,0,'',2,0,0),(41325,8757,3,2,0,'87.218.146.65',1194605233,1,0,1,1,1,1,'','','Silvio,\n\nI am working on it to find a way','',0,'GA==','mb4oowtn',1,0,'',2,0,0),(41326,8743,3,6,0,'79.9.233.184',1194605591,1,0,1,1,1,1,'','','Ok. I still trying to find the difference. Even your HARBOUR.EXE is different from mine and I don\'t know why. C compiler is the same. Harbour sources are the same. I tried all the switches you use in your batch. What am I missing?\n\nEMG','',0,'GA==','2zw28olt',1,0,'',6,0,0),(41327,8770,6,945,0,'80.32.177.143',1194605680,1,0,1,1,1,0,'','Ya esta solucionado','Muy buenas, ya lo he solucionado, se me había olvidado poner el c0w32.obj, para crear el .exe.\n\nGracias.','',0,'GA==','2y6j2enk',1,0,'',945,0,0),(41328,8743,3,6,0,'79.9.233.184',1194606024,1,0,1,1,1,1,'','','Can I see your BCC32.CFG and ILINK32.CFG?\n\nEMG','',0,'GA==','xygazio8',1,0,'',6,0,0),(41329,8754,6,2,0,'87.218.146.65',1194606625,1,0,1,1,1,1,'','','Pedro,\n\nModifica este método en la Clase TXBrowse:\n\n   METHOD ColAtPos( nPos ) INLINE ::aCols[ ::aDisplay[ Min( nPos, Len( ::aDisplay ) ) ] ]\n\nNo es que sea la solución perfecta, pero funciona <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','ztxb1twr',1,0,'',2,0,0),(41330,8771,20,1009,0,'82.187.221.169',1194606720,1,0,1,1,1,0,'','problema con archivio dbf','salve a tutti,\nho un archivio dbf di circa 300 righe, tra i vari campi ci sono alcuni campi memo che contengono istruzioni fivewin / xharbour che vengono eseguite da una apposita funzione.\nquesto archivio è  indicizzato su un campo numerico che da una priorità di esecuzione, in uso ho anche la classe tOdbc con select che leggono altri archivi.\nil problema è che a volte alcune righe del file dbf non vengono eseguite, mentre magari ripetendo l\'esecuzione le vengono eseguite tutte.\npenso che se fosse un errore di programmazione si ripeterebbe ogni volta, forse è un problema di memoria.\nuso i driver standard dbfntx, dbfdbt, potrebbe essere il caso di cambiare la gestione degli indici e dei campi memo?\nquale driver rdd mi conviene provare? dbfcdx?\n\ngrazie, marzio','',0,'','boghu4aj',1,0,'',1009,0,0),(41331,8770,6,2,0,'87.218.146.65',1194606768,1,0,1,1,1,1,'','','Bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','jwotqyfh',1,0,'',2,0,0),(41332,8771,20,6,0,'79.9.233.184',1194606925,1,0,1,1,1,1,'','Re: problema con archivio dbf','In che senso le righe non vengono eseguite? Fammi un esempio di come \"esegui\" le righe.\n\nEMG','',0,'','1i09g046',1,0,'',6,0,0),(41333,8743,3,2,0,'87.218.146.65',1194607184,1,0,1,1,1,1,'','','bcc32.cfg\n\n-I\"c:\\Bcc55\\include\" \n-L\"c:\\Bcc55\\lib\" \n\nilink32.cfg\n\n-L\"c:\\Bcc55\\lib\"','',0,'','3b85usv5',1,0,'',2,0,0),(41334,8754,6,106,0,'85.34.123.173',1194607352,1,0,1,1,1,1,'','','Antonio,\n\nFunciona.\nEl unico problema es que si me posiciono en la primera columna y me muevo con las flechas, se mueve solo hasta donde puse la ultima columna.\nSi haglo click con el mouse en la celda siguiente, despues me puedo mover hacia la derecha, ahora sin errores.\n\nGracias','',0,'','am0l8zqr',1,0,'',106,0,0),(41335,8772,6,106,0,'85.34.123.173',1194607833,1,0,1,1,1,1,'','No me funciona mas en windows 98','Tengo algunos clientes (pocos por suerte) que aun tienen windows 98.\nLa version a 32 bits que usaba hace un año no daba problemas con windows 98.\nLa actual version de mi programa al intentar cargar el programa me da un error de pagina no valida:\n\n\n[code:2ihmnqf9]\nWP32 ha provocato un errore di pagina non valida nel\nmodulo &lt;sconosciuto&gt; in 0000&#58;000000b9&#46;\nRegistri&#58;\nEAX=00837574 CS=0167 EIP=000000b9 EFLGS=00010216\nEBX=004875d5 SS=016f ESP=00bff5bc EBP=00000000\nECX=00000001 DS=016f ESI=00bff5d0 FS=38b7\nEDX=00000007 ES=016f EDI=00000000 GS=1146\nByte all\'indirizzo CS&#58;EIP&#58;\n00 92 0a f6 03 55 0c ea e4 0f c9 00 e7 00 f0 6c \nImmagine dello stack&#58;\n00837564 00000000 00000000 0000131e 00000000 00bff848 0047d019 00000003 00000000 0040150c 00523c54 00000000 00a085a4 00a08730 00000063 00000000 \n[/code:2ihmnqf9]\n\n\nalguien tiene idea de que puede ser?\n\nLa version que usaba antes era con una version bastante vieja de FWH por consiguiente, la version de xharbour tambien era vieja.\nUno de los cambios que tuve que hacer fue agregar gtgui.lib (si mal no recuerdo) \n\nLa version actual de FW es la de octubre de 2007 con xharbour descargado en octubre 2007 del sitio de FW.\nEl error tambien lo daba con la version de julio de 2007.\n\nSaludos.','',0,'AIA=','2ihmnqf9',1,0,'',106,0,0),(41336,8743,3,6,0,'79.9.233.184',1194608815,1,0,1,1,1,1,'','','Found! It was\n\n-DHB_NO_TRACE\n\nCan you test with it?\n\nEMG','',0,'AIA=','20ea8xex',1,0,'',6,0,0),(41337,8754,6,2,0,'87.218.146.65',1194610087,1,0,1,1,1,1,'','','Pedro,\n\nPor eso te he comentado que soluciona el error, pero aún hay algunos comportamientos extraños','',0,'AIA=','9p5gx7xs',1,0,'',2,0,0),(41338,8766,4,1218,0,'81.84.76.100',1194610281,1,0,1,1,1,0,'','','Antonio ! give the same error, but in the the CE Enulator say that is not a valid Windows CE application.\n\n\n??? To the SD i only copy the executable, correct ???\n\nRegards','',0,'AIA=','32suw5al',1,0,'',1218,0,0),(41339,8772,6,2,0,'87.218.146.65',1194610282,1,0,1,1,1,1,'','','Pedro,\n\nPrueba a reconstruir el EXE con las versiones más recientes. \n\nQue tamaño tiene el EXE ?\n\nSi quieres envíame el EXE como ZIP por email y lo revisamos aqui, por si localizamos algo extraño en él','',0,'AIA=','3fkd5imo',1,0,'',2,0,0),(41340,8766,4,2,0,'87.218.146.65',1194610443,1,0,1,1,1,1,'','','&gt;\nAntonio ! give the same error, but in the the CE Enulator say that is not a valid Windows CE application. \n&gt;\n\nThe Microsoft WinCE emulator does not use ARM architecture, so you can not use it to test the applications on it.\n\nThe Pocket PC emulator uses ARM architecture.\n\nWhat year is that WinCE from ? What version ?\n\n&gt; To the SD i only copy the executable, correct ??? \n\nYes','',0,'AIA=','3v1uicq6',1,0,'',2,0,0),(41341,8743,3,2,0,'87.218.146.65',1194610676,1,0,1,1,1,1,'','','Enrico,\n\nWere you using -DHB_NO_TRACE  ?\n\nIs it fine now, without it ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','f68nmila',1,0,'',2,0,0),(41342,8757,3,49,0,'213.82.134.66',1194611980,1,0,1,1,1,1,'','','thanks, antonio\n\nDo you saw my changes into TTabs class ?\n\nI now I\'m trying to change the direction odf poligon and insert \n\ndefine TAB oTAbs..... LEFT - RIGHT - TOP - BOTTOM command','',0,'AIA=','2gf1w7dv',1,0,'',49,0,0),(41343,8766,4,1218,0,'81.84.76.100',1194612106,1,0,1,1,1,0,'','','Antonio !\n\nThe System Properties of the machine says:\n\nSystem: Microsoft Windows CE .NET\n             Version 4.10 (Build 908)\n\n             Copyright 1996-2002\n\nComputer: Processor Corp., ARM-XScale\n                 Memory 63552 KB RAM\n\nRegards.','',0,'AIA=','3sfzsfz1',1,0,'',1218,0,0),(41344,8766,4,2,0,'87.218.146.18',1194613136,1,0,1,1,1,1,'','','&gt; Copyright 1996-2002\n\nThat is old. Try to upgrade the Windows CE to 2003 version or above','',0,'AIA=','1eu5nfmp',1,0,'',2,0,0),(41345,8772,6,106,0,'85.34.123.173',1194613170,1,0,1,1,1,1,'','','Envíado','',0,'AIA=','jmrsw13f',1,0,'',106,0,0),(41346,8773,3,330,0,'217.37.54.49',1194613266,1,0,1,1,1,0,'','Thai characters','Hi all\n\nIs it possible to store and display Thai characters from within dbf tables\n\nThanks\nPeter','',0,'AIA=','b4d75e0t',1,0,'',330,0,0),(41347,8757,3,1193,0,'203.70.51.136',1194615951,1,0,1,1,1,0,'','','Hi Antonio,\n\nSame as STATUSBAR component?\nHow to make it like MsgBar? \nEx. put bitmap or easy put item in STATUSBAR?\n\nRegards,\n\nRichard','',0,'AIA=','sgrfg2dm',1,0,'',1193,0,0),(41348,8774,6,1104,0,'190.55.44.158',1194617880,1,0,1,1,1,0,'','Duda con Workshop','Hola a todos,\nTengo un una pregunta: \nAlguien sabe si existe la posibilidad de poder crear dentro de mi rc un bitmap con la cantidad de colores que yo quiera?\nEstoy probando y solo puedo crear bitmaps con 2, 16 o 256 colores y necesitaría la posibildad de incorporar a mi rc bitmaps con colores verdaderos.\nHay alguna dll, que me falte instalar a mi workshop?\nDesde ya muchas gracias.\nSaludos, \nEsteban','',0,'AIA=','4b75sf1w',1,0,'',1104,0,0),(41349,8743,3,6,0,'87.18.232.207',1194618646,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:34lobkm0]Enrico,\n\nWere you using -DHB_NO_TRACE  ?[/quote:34lobkm0]\n\nYes.\n\n[quote=&quot;Antonio Linares&quot;:34lobkm0]Is it fine now, without it ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:34lobkm0]\n\nYes. Anyway, I would want to report it to the Harbour developers list, if you confirm the problem.\n\nEMG','',0,'gA==','34lobkm0',1,0,'',6,0,0),(41350,8766,4,1218,0,'81.84.76.100',1194623796,1,0,1,1,1,0,'','','<!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> !!!\n\nIs there any other solution ???\n\nWe byed this machine that only have this Windows CE version, and now we can\'t change to another machine, because already passed the time to exchange the equipment.\n\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gA==','27yc7euh',1,0,'',1218,0,0),(41351,8775,6,36,0,'200.113.56.235',1194624102,1,0,1,1,1,1,'','Ads y ADT y OrdScope','Estimados\n\nSegun la funcion OrdScope debiera devolver el scope actual\npero con ADT este devuelve unos caracteres extraños\ne igual con la funcion dbOrderInfo(40) y 41\n\nHay alguna otra forma de saber el scope actual\n\nEjemplo como lo hago\n\n[code:k9r7ujlj]select paso\n\nOrdScope&#40; 0, &quot;TIP&quot; &#41;\nOrdScope&#40; 1, &quot;TIP&quot; &#41;\n//FUNCIONA BIEN EL ORDSCOPE\n\nahora \nx1 &#58;= OrdScope&#40; 0, &quot;SP&quot; &#41;\nx2 &#58;= OrdScope&#40; 1, &quot;SP&quot; &#41;\nfunciona bien\n\npero \nx1 = cualquier cosa &quot;!&quot;&quot;·\nx2 = cualquier cosa ·$%\n[/code:k9r7ujlj]\n\n\nSe agradece cualquier ayuda','',0,'AIA=','k9r7ujlj',1,0,'',36,0,0),(41352,8743,3,2,0,'87.218.146.18',1194626419,1,0,1,1,1,1,'','','Enrico,\n\nI am currently reinstalling an operating system on the computer\n\nAs soon as I finish I will check it, thanks','',0,'AIA=','1i4a621m',1,1194626880,'',2,1,0),(41353,8743,3,6,0,'87.18.232.207',1194626453,1,0,1,1,1,1,'','','Ok, thank you.\n\nEMG','',0,'AIA=','1ocosbc9',1,0,'',6,0,0),(41354,8766,4,2,0,'87.218.146.18',1194627032,1,0,1,1,1,1,'','','Please check the manufacturer website and see how to get a Windows CE upgrade for it.\n\nIf its CoreDll.DLL is not compatible because it is too old, then there is nothing that we can do, sorry','',0,'AIA=','24ht0sjf',1,0,'',2,0,0),(41356,8774,6,2,0,'87.218.146.18',1194627245,1,0,1,1,1,1,'','','Esteban,\n\nSi incluyes el bitmap en el RC como un fichero externo, entonces podrás usarlo con la cantidad de colores que desees. Lo que no podrás es modificar el bitmap desde el resources workshop.\n\nfichero.rc\n\nnombre BITMAP \"fichero.bmp\"','',0,'AIA=','26o31s1z',1,0,'',2,0,0),(41357,8774,6,1104,0,'190.55.44.158',1194629627,1,0,1,1,1,0,'','','Antonio,\nProbé lo que me recomendaste, en mi RC con la opcion del workshop File-&gt; Add to project... e inclui los dos BMP que utilizo como imagen de fondo dentro de mi programa.\nCompila perfecto pero surge un error cuando quiero enlazar para generar el punto exe.\n\nEl error es el siguiente:\n\n[code:24dwmztg]\nC&#58;\\KUNZ\\TRABAJO\\ILINK32&#46;EXE -Gn -aa -Tpe -s @l&#46;bc\nTurbo incremental link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nFatal&#58; Access violation&#46; Link terminated\n[/code:24dwmztg]\n\nPorque puede ser este error?\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'AIA=','24dwmztg',1,0,'',1104,0,0),(41358,8776,3,210,0,'81.24.159.58',1194630274,1,0,1,1,1,0,'','Backgroundcolor on SAY in folders','I cant define the backgroundcolor from REDEFINE SAY.....COLOR...  in folders on Windows VISTA. Any solution?','',0,'AIA=','1cqktdbj',1,0,'',210,0,0),(41359,8773,3,47,0,'203.144.160.245',1194630580,1,0,1,1,1,0,'','','Dear Peter,\n\nYes, of course.\n\nRegards,\nDutch','',0,'AIA=','1jsskqn9',1,0,'',47,0,0),(41360,8774,6,362,0,'200.158.19.116',1194631564,1,0,1,1,1,1,'','','DEBES ENTONCES CREAR UN FICHERO.RC PROPRIO PARA LOS BITMAPS YA QUE EL ILINK32.EXE NO SUPORTA ARCHIVOS.RES Ó *.RC CON TAMAÑO SUPERIOR A 1.052.000 Bytes.\n\nUSE CUANTOS ARCHIVOS.RC SEAN NECESARIOS.\n\nRegards, saludos.','',0,'AIA=','3mmfsnsx',1,0,'',362,0,0),(41361,8769,6,1072,0,'190.82.27.135',1194631845,1,0,1,1,1,0,'','Re: ERROR EN VERCE 5.1','Joseluisysturiz y Wmormar, muchas gracias por su respuesta,\n\nSaludos\nAntonio\n\n\n\n[quote=&quot;wmormar&quot;:2oeykjjp]mantonio_08\n\nEstamos trabajando sobre los reportes de errores.\n\npronto liberaremos la correcciones con unas novedades.\n\nestamos checando a fondo VERCE para no tener estos \"detalles\"\n\nLe doy las gracias a José Murugosa por su tiempo para testear VERCE[/quote:2oeykjjp]','',0,'gA==','2oeykjjp',1,0,'',1072,0,0),(41362,8743,3,2,0,'87.218.146.65',1194632555,1,0,1,1,1,1,'','','Enrico,\n\nProblem confirmed: -DHB_NO_TRACE can\'t be used. It also GPFs here.\n\nI appreciate if you report it on the list, thanks','',0,'gA==','34qo75fv',1,0,'',2,0,0),(41363,8743,3,6,0,'87.18.232.207',1194633441,1,0,1,1,1,1,'','','Great! Thank you.\n\nEMG','',0,'gA==','2kp19ey5',1,0,'',6,0,0),(41364,8774,6,1104,0,'190.55.44.158',1194634929,1,0,1,1,1,0,'','','Gracias Karinha,\nEstá muy buena la idea, el problema es que los BMP que necesito incorporar tienen una resolucion de 800 x 600 y 1024 x 768 respectivamente, y ambas imágenes tienen un tamaño supeior al que soporta el Ilink32.exe. \nVeo que no voy a poder incorporar los fondos de mi aplicación dentro del recurso debido a este problema con el enlazador.\nDe todas formas, si a alguién se le ocurre alguna idea por favor avise a si la pruebo.\nEl problema que tengo es que yo cargaba las imágenes del fondo del programa dentro del código fuente llamándolas desde su path, pero me he encontrado en varias oportunidades que han cambiado esas imágenes por otras que son fuera de lugar, ya que con solo poner una imagen en el mismo lugar con el mismo nombre y sacando la que yo utilizo ya bastaba para que el programa las utilice como fondo.\nEstoy intentando solucionar este problema y que los usuarios no puedan cambiar el fondo que utiliza mi sistema.\nGracias de todos modos.\nSaludos, Esteban.','',0,'gA==','311fmgbx',1,0,'',1104,0,0),(41365,8694,3,233,0,'60.49.69.214',1194637324,1,0,1,1,1,0,'','','Jeff, thanks for the tip. This looks interesting. I\'m curious however whether softwares that are protected using this method can run on Win9x? Their webpage states among the system requirement is XP/2000/Vista etc. No mention of win 9x at all.','',0,'gA==','2cnc9qc9',1,0,'',233,0,0),(41366,8774,6,362,0,'200.158.19.116',1194637359,1,0,1,1,1,1,'','','PORQUE NO???\n\nTE BASTA  USAR LAS BITMAPS DIRECTAMENTE EN EL DIRECTORIO DE TRABAJO Y NO EN TU ARQCHIVO.RC\n\nRegards, saludos.','',0,'gA==','1k6952xa',1,0,'',362,0,0),(41367,8618,2,362,0,'200.158.19.116',1194638230,1,0,1,1,1,1,'','','// FiveWin new nSerialHD() number to check a HardDisk serial number\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   MsgInfo( nSerialHD() )         // Check default drive\n\n   MsgInfo( nSerialHD( \"C:\" ) )   // Serial number on HardDisk\n\n   MsgInfo( nSerialHD( \"D:\" ) )\n\n   MsgInfo( nSerialHD( \"A:\" ) )\n\n   if IsDiskette()\n      MsgInfo( nSerialA() )    // Serial number on drive A\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//','',0,'gA==','3um7tmyp',1,0,'',362,0,0),(41368,8774,6,1104,0,'190.55.44.158',1194638455,1,0,1,1,1,0,'','','Claro pasa que es lo que estoy haciendo, tengo los bitmaps dentro del directorio de mi programa pero de esta manera cualquiera que tenga acceso a ese directorio puede reemplazar o eliminar mis bitmaps.\nLa idea de meterlos dentro del recurso era para que este incluido en mi .exe y sea invisible al usuario, pero esto me fue imposible ya que el enlazador no soporta el volumen de mi rc (el cual solo contiene un bitmap).\n\nGracias!','',0,'gA==','1ixjrofe',1,0,'',1104,0,0),(41369,8774,6,46,0,'217.168.114.114',1194639881,1,0,1,1,1,0,'','','Esto es solo una idea.\n\nSi utilizas cdx /ads puedes meter tu imagen dentro de un campo memo en formato binario','',0,'gA==','1grfkqia',1,0,'',46,0,0),(41370,8773,3,51,0,'80.122.88.242',1194643948,1,0,1,1,1,0,'','','For me it would be very interesting to know how a Thai character functions. How many characters does the Thai alphabet have? Could you post some words as a short explanation?\n\nRegards,\nOtto','',0,'gA==','23jrlutp',1,0,'',51,0,0),(41371,8767,8,1216,0,'201.210.78.174',1194645235,1,0,1,1,1,0,'','','xbase\n\nya que la aplicacion que estoy manejando \nesta con este lenguaje \n\n\nSaludos\n\nGracias..............','',0,'gA==','xoezh0y2',1,0,'',1216,0,0),(41372,8767,8,2,0,'87.218.146.65',1194645575,1,0,1,1,1,1,'','','Alberto,\n\nxbase se le dice al conjunto de dialectos que se desarrollaron a partir del lenguaje implementado por dBase.\n\nTe refieres a xbase en general, ó concretamente al producto Xbase++ desarrollado por la empresa Alaska Software ?','',0,'gA==','3bcjf7te',1,0,'',2,0,0),(41373,6219,6,774,0,'200.72.74.8',1194658833,1,0,1,1,1,1,'','','Y REFERENTE A LA RUEDA DEL MOUSE,,, CON ESTOS CAMBIOS FUNCIONA O AUN NO .....\n\n\nGRACIAS','',0,'gA==','uy4hh5qj',1,0,'',774,0,0),(41374,8774,6,348,0,'201.230.72.116',1194661354,1,0,1,1,1,0,'','','Holas , por aqui te lanzo una idea que a mi me funciono como alternativa.\n\nA nivel de Windows el archivo (BMP  imagen) ocultalo para que no lo vean, haciendo Click con la derecha al archivo, escojes propiedades  y le pones check al atributo de Ocultar, esto lo ocultaria a nivel del Windows y los usuarios \"Comunes\"no lo verian, salvo que este configurado como mostrar ocultos. y luego simplemente llamalo como siempre  desde tu sistema, deberia de cargarlo igual. \n\notra recomendacion si son varios los archivos bitmap, metelos dentro de una carpeta y ocultas usando el mismo metodo pero aplicado a la carpeta, asi evitas estar ocultando archivo por archivo.. .\n\nSuerte \n\n[quote=&quot;jrestojeda&quot;:1bp6kpon]Claro pasa que es lo que estoy haciendo, tengo los bitmaps dentro del directorio de mi programa pero de esta manera cualquiera que tenga acceso a ese directorio puede reemplazar o eliminar mis bitmaps.\nLa idea de meterlos dentro del recurso era para que este incluido en mi .exe y sea invisible al usuario, pero esto me fue imposible ya que el enlazador no soporta el volumen de mi rc (el cual solo contiene un bitmap).\n\nGracias![/quote:1bp6kpon]','',0,'gA==','1bp6kpon',1,0,'',348,0,0),(41375,8777,6,1106,0,'190.64.139.231',1194662197,1,0,1,1,1,0,'','Consulta FWH 7.05 y Harbour de Noviembre Error','Antonio una consulta:\n\nMe da este error:\nError: Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from C:\\HARBOUR\\LIB\\RTL.LIB|gtsys\n\n\nDesaparece si me actualizo al FWH de Noviembre ?\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez','',0,'gA==','30xvo7zk',1,0,'',1106,0,0),(41376,8774,6,396,0,'200.71.188.208',1194667239,1,0,1,1,1,1,'','','jrestojeda,\nproba con PELLES C, es gratiuto, tengo .BMP  24 bit real y no he penido errores, compilo con VERCE o prueba el editor de recursos de visual C, es muy bueno.... o como ya te dijeron, coloca los BMP dentro de una DBF como binario...','',0,'gA==','2qdb00pr',1,0,'',396,0,0),(41377,6219,6,54,0,'189.132.109.34',1194676837,1,0,1,1,1,1,'','','Antonio,\n\nlo dicho, esperamos impacientes la solución\n\ngracias\n\n[quote=&quot;Antonio Linares&quot;:2i78x8kk]El ReleaseCapture() no le gusta nada a la barra de scroll, y sin usar ReleaseCapture() cuando la barra desaparece deja \"pillado\" el ratón, por lo menos en Vista[/quote:2i78x8kk]','',0,'gA==','2i78x8kk',1,0,'',54,0,0),(41378,8778,3,851,0,'80.51.66.114',1194680650,1,0,1,1,1,0,'','problem with polish chars in print','in msginfo polish chars are ok\n\nbut in object print oPrn I don\'t have polish chars ( in view )\n\nmy source:\n#include \"Fivewin.ch\"\n\n REQUEST HB_LANG_PL852\n REQUEST HB_LANG_PLMAZ\n REQUEST HB_LANG_PLISO\n REQUEST HB_LANG_PLWIN\n REQUEST HB_CODEPAGE_PLMAZ\n REQUEST HB_CODEPAGE_PLISO\n REQUEST HB_CODEPAGE_PL852\n REQUEST HB_CODEPAGE_PLWIN\n\nFUNCTION MAIN()\n\n    LOCAL oWnd, oMenu\n\n\n       HB_LANGSELECT( \"PLWIN\" )\n       HB_SETCODEPAGE( \"PLWIN\" )\n\n//          HB_SETKEYCP(\"PLMAZ\",INIT_CP)\n//          HB_SETDISPCP(INIT_CP,\'PLMAZ\',.t.)\n\n    MENU oMenu\n        MENUITEM \"&amp;Test\"\n\n        MENU\n            MENUITEM \"&amp;Test1\";\n                     ACTION test1()\n            MENUITEM \"&amp;Test2\";\n                     ACTION MSGINFO( \"Test z j&#281;zyka polskiego (&#261;&#263;&#281;&#322;&#324;ó&#378;&#380;&#260;&#262;&#280;&#321;&#323;Ó&#377;&#379;)\" )\n        ENDMENU\n    ENDMENU\n\n    DEFINE WINDOW oWnd;\n           MENU oMenu\n\n    ACTIVATE WINDOW oWnd ;\n        ON INIT oWnd:Center() \n\n\nfunction test1()\n  PRINT oPrn PREVIEW\n   PAGE\n      oPrn:Say( 2, 2, \"Test z j&#281;zyka polskiego (&#261;&#263;&#281;&#322;&#324;ó&#378;&#380;&#260;&#262;&#280;&#321;&#323;Ó&#377;&#379;\" )\n   ENDPAGE\nENDPRINT \nreturn nil','',0,'gA==','1myekj4u',1,0,'',851,0,0),(41379,6219,6,2,0,'87.218.146.65',1194681571,1,0,1,1,1,1,'','','A&amp;C,\n\nUn poco de paciencia que lo vamos a revisar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWilliam,\n\nHemos estado haciendo muchas pruebas y nada aún. Seguimos intentando buscar una solución','',0,'gA==','3bpqcbqn',1,0,'',2,0,0),(41380,8777,6,2,0,'87.218.146.65',1194681701,1,0,1,1,1,1,'','','Ruben,\n\nEl sistema GT se ha modificado en Harbour desde el build de Noviembre. FWH 7.11 lo soluciona.\n\nLo idóneo es que te actualices, gracias','',0,'gA==','3j68q2w0',1,0,'',2,0,0),(41381,8774,6,2,0,'87.218.146.65',1194681839,1,0,1,1,1,1,'','','jrestojeda,\n\nPuedes calcular el CRC de tus bitmaps usando nCrcFile() de FWH. Si varia su valor entonces es que te han cambiado tus ficheros y puedes terminar la aplicación de inmediato','',0,'gA==','1kubxzql',1,0,'',2,0,0),(41382,8776,3,2,0,'87.218.146.65',1194682023,1,0,1,1,1,1,'','','When themes are used, the SAY parent background is used to have a proper looking.\n\nIf you need a specific color for SAYs then you have to modify the Class TSay and include a static function IsAppThemed() that returns .F.','',0,'gA==','1gi1r5t9',1,0,'',2,0,0),(41383,8776,3,210,0,'81.24.159.58',1194697764,1,0,1,1,1,1,'','','Oh, thanks!','',0,'gA==','3a8h79r1',1,0,'',210,0,0),(41384,8777,6,1106,0,'190.64.128.153',1194704474,1,0,1,1,1,0,'','','Gracias Maestro.\n\nSaludos\n\nRuben Fernandez.','',0,'gA==','zyqe9r23',1,0,'',1106,0,0),(41385,8773,3,47,0,'203.144.160.245',1194708551,1,0,1,1,1,0,'','','There are 44 Thai character\n[color=blue:2aj9hgld][size=150:2aj9hgld]&#3585;&#3586;&#3587;&#3588;&#3589;&#3590;&#3591;&#3592;&#3593;&#3594;&#3595;&#3596;&#3597;&#3598;&#3599;&#3600;&#3601;&#3602;&#3603;&#3604;&#3605;&#3606;&#3607;&#3608;&#3609;&#3610;&#3611;&#3612;&#3613;&#3614;&#3615;&#3616;&#3617;&#3618;&#3628;&#3619;&#3620;&#3621;&#3623;&#3624;&#3625;&#3626;&#3627;&#3629;&#3630;[/size:2aj9hgld][/color:2aj9hgld]\n\n&#3626;&#3623;&#3633;&#3626;&#3604;&#3637; (Sawasdee)= Good morning\n&#3586;&#3629;&#3610;&#3588;&#3640;&#3603; (Kwobkhun)= Thank you\n&#3621;&#3634;&#3585;&#3656;&#3629;&#3609; (Lakorn)= Good bye','',0,'Bg==','2aj9hgld',1,0,'',47,0,0),(41386,8773,3,6,0,'87.16.223.141',1194710750,1,0,1,1,1,1,'','','Wonderful!\n\nEMG','',0,'Bg==','woy48o6a',1,0,'',6,0,0),(41387,8779,6,987,0,'189.132.35.238',1194710958,1,0,1,1,1,0,'','Costo de Actualización','Estimado Maestro Antonio: <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o --> \n\nQuisiera saber como puedo actualizar o adquirir la version más reciente de Fivewin y XHarbour, y si es posible adquirirla aki en México por medio de quien, cuanto sería el costo en moneda nacional y que contiene la actualizacion...\n\nYa que estoy pensando en cambiar mi versión para el próximo mes o para el proximo año a mas tardar, ya que la versión que uso esta un poco obsoleta.\n\nSaludos y en espera de respuesta..','',0,'Bg==','1pyo4ah5',1,0,'',987,0,0),(41388,8780,6,1114,0,'190.18.32.251',1194719057,1,0,1,1,1,0,'','Camaras ip','Estimados Colegas\n\nALguien ha hecho alguna experiencia con camaras ip, como puedo\nconectar mi aplicacion con dichas camaras,alguien me podria\norientar gracias\n\n\nSaludos\nFabian\n<!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->','',0,'Bg==','e296cz7a',1,0,'',1114,0,0),(41389,8780,6,49,0,'62.13.172.67',1194720693,1,0,1,1,1,1,'','','there was a class of the full ( Rafa Carmona)  but only one camera fron one IP  this was the limit','',0,'Bg==','1o2as8re',1,0,'',49,0,0),(41390,8780,6,456,0,'88.8.11.190',1194721439,1,0,1,1,1,1,'','','Hola Fabian, \nyo tengo una aplicacion de video vigilancia, con monitorización y grabación. Esta conectada a camaras IP, de la marca AXIS. Este fabricante dispone de un control activeX que permite manejar sus camaras. \n\nSupongo que otros fabricantes tambien tendran su API o control activeX para gestionar las camaras.\n\nBusca en el fabricante de las camaras informacion para programadores, y tendras un buen punto de partida.','',0,'Bg==','3fm50622',1,0,'',456,0,0),(41391,8781,3,49,0,'62.13.172.67',1194723034,1,0,1,1,1,1,'','small animation','How I can make a small animation\nWhen  the user mouse over a button ( 16x16) the button become big(48x48)\n\nhave an sample to test?','',0,'Bg==','3fildxy4',1,0,'',49,0,0),(41392,8773,3,51,0,'80.122.88.242',1194724034,1,0,1,1,1,0,'','','&#3586;&#3629;&#3610;&#3588;&#3640;&#3603; \nRegards,\nOtto','',0,'Bg==','3si8q2vx',1,0,'',51,0,0),(41393,8779,6,2,0,'87.218.146.65',1194725101,1,0,1,1,1,1,'','','Dany,\n\nTodas nuestras ventas las hacemos directamente desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos. Seleccionando la opción de entrega por Internet, recibes el software en solo unos minutos desde que haces la orden de compra. Si no quieres usar tarjeta de crédito, puedes hacer una transferencia bancaria, ó hacer un envio desde una oficina de \"Western Union\", ó usar <!-- w --><a class=\"postlink\" href=\"http://www.paypal.com\">www.paypal.com</a><!-- w -->\n\nEl precio es 139,2 euros. Puedes convertirlo a la moneda de tu pais desde Yahoo sección finanzas, ahí hay un conversor de divisas. Gracias,','',0,'Bg==','35xp6113',1,0,'',2,0,0),(41394,8781,3,2,0,'87.218.146.65',1194725305,1,0,1,1,1,1,'','','Silvio,\n\nDo you mean a button of Class TBtnBmp ?','',0,'Bg==','24ue0o5t',1,0,'',2,0,0),(41395,8782,6,1114,0,'190.18.32.251',1194727120,1,0,1,1,1,0,'','Problema con Webcam','Estimados Colegas\n\nTengo una aplicacion que captura la foto de los empleados con una\ncamarita WEB y segun la camarita web que tenga la maquina funciona\no no , alguien me puede orientar\n\nGracias\nFabian','',0,'Bg==','3q9599yj',1,0,'',1114,0,0),(41396,8783,19,1114,0,'190.18.32.251',1194728017,1,0,1,1,1,0,'','OT:Busco asociados para Canal de Ventas','Estimados Colegas\n\nEstoy tratando de expandirme , busco asociados y/o vendedores\n\nProductos\nGestion Comercial para todo tipo de Comercios\nSoftware para Kiosco de Golosinas y Cigarrillos \nSoftware  Para  Administracion de Colegios \nSoftware para Hoteles &amp; Spa\n\na los interesados contactarme a <!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->\n\nSaludos\nFabian','',0,'Bg==','3fprsaod',1,0,'',1114,0,0),(41397,8757,3,2,0,'87.218.146.65',1194730088,1,0,1,1,1,1,'','','Silvio,\n\n&gt; Do you saw my changes into TTabs class ? \n\nPlease post a screenshot, thanks','',0,'Bg==','3v4x78zu',1,0,'',2,0,0),(41398,8778,3,2,0,'87.218.146.65',1194730371,1,0,1,1,1,1,'','','You may need to implement a function of your own to properly convert the chars into the right ones:\n\noPrn:Say( 2, 2, [color=red:4gmhj2zi]FixText[/color:4gmhj2zi]( \"Test z j&#281;zyka polskiego (&#261;&#263;&#281;&#322;&#324;ó&#378;&#380;&#260;&#262;&#280;&#321;&#323;Ó&#377;&#379;\" ) )','',0,'Ag==','4gmhj2zi',1,0,'',2,0,0),(41399,8784,6,760,0,'200.37.76.86',1194733588,1,0,1,1,1,0,'','bitmaps en listbox','Hola a todos del foro\n\nQuiero insertar unos bitmaps en un listbox, pero solo me salen los stringso letras mas los bitmaps no, ya probe con los ejemplos del fwh7.40 y sale bien, si ese codigo del ownerdraw.prg lo copio a mi carpeta de trabajo, compilo y me sale igual solo los strings.\n\nQue puede estar pasando, uso FWH7.4, workshop4.5.\n\nSalu2\n\nFrancis','',0,'Ag==','2xp6wpu5',1,0,'',760,0,0),(41400,8779,6,987,0,'189.132.35.238',1194739179,1,0,1,1,1,0,'','','Maestro Antonio:\n\nGracias por el Dato y me dispongo a invstigar y a apartar un poco de pasta para la actualización..\n\nSaludos y Gracias de nuevo...','',0,'Ag==','1fza1ptn',1,0,'',987,0,0),(41401,8781,3,49,0,'72.14.214.136',1194741194,1,0,1,1,1,1,'','','do you know googleX ?\ngo to my site <!-- w --><a class=\"postlink\" href=\"http://www.bpascal.it\">www.bpascal.it</a><!-- w --> \ni want try create it\nit is called bubble button','',0,'Ag==','1aesn2fn',1,0,'',49,0,0),(41402,8757,3,49,0,'62.13.172.67',1194742977,1,0,1,1,1,1,'','','OLD TTABS \n\n[url=http&#58;//img118&#46;imageshack&#46;us/my&#46;php?image=oldttabsna4&#46;png:26ydcypo][img:26ydcypo]http&#58;//img118&#46;imageshack&#46;us/img118/1129/oldttabsna4&#46;th&#46;png[/img:26ydcypo][/url:26ydcypo]\n\n\nTTABS 2003\n\n[url=http&#58;//img413&#46;imageshack&#46;us/my&#46;php?image=ttab2003ln6&#46;png:26ydcypo][img:26ydcypo]http&#58;//img413&#46;imageshack&#46;us/img413/7238/ttab2003ln6&#46;th&#46;png[/img:26ydcypo][/url:26ydcypo]\n\n\n\nTTABS 2007\n\n[url=http&#58;//img413&#46;imageshack&#46;us/my&#46;php?image=ttab2007mu9&#46;png:26ydcypo][img=http://img413.imageshack.us/img413/2860/ttab2007mu9.th.png][/url:26ydcypo]','',0,'GA==','26ydcypo',1,0,'',49,0,0),(41403,8784,6,396,0,'200.71.188.210',1194748052,1,0,1,1,1,1,'','','Fracis, \nrevisa esto al principio de tu sistema\n\nhBmp := ReadBitMap( 0, \"finger.bmp\" ) // LLAMADA A LOS .BMP','',0,'GA==','3cw60vjs',1,0,'',396,0,0),(41404,8757,3,2,0,'87.218.146.18',1194774061,1,0,1,1,1,1,'','','This is how Tabs look in Office 2007:\n\n[url=http&#58;//imageshack&#46;us:yznarvrc][img:yznarvrc]http&#58;//img210&#46;imageshack&#46;us/img210/5567/tabsmc3&#46;png[/img:yznarvrc][/url:yznarvrc]','',0,'GA==','yznarvrc',1,0,'',2,0,0),(41405,8785,2,542,0,'83.42.235.159',1194777379,1,0,1,1,1,0,'','encriptacion de archivo','Hola amigos :\n\nMe gustaria saber si se puede encriptar y desencriptar un archivo determinado, yo tengo una aplicacion y genera unos documentos word y me gustaria saber si se pueden encriptar para que no se vea lo que es y cuando los tenga que utilizar desencriptarlos.\n\nUn saludo\n\nCarlos','',0,'GA==','35qdq33w',1,0,'',542,0,0),(41406,8778,3,851,0,'80.51.66.143',1194781013,1,0,1,1,1,0,'','','where is the function FixText ?','',0,'GA==','kmiv46gu',1,0,'',851,0,0),(41407,8778,3,851,0,'80.51.66.143',1194781394,1,0,1,1,1,0,'','','I looked formy mistake \n\nfunction test1()\n  PRINT oPrn PREVIEW\n   DEFINE FONT oFnt  NAME \"Arial CE\" SIZE 0, -10 OF oPrn\n   PAGE\n      oPrn:Say( 2, 2, \"Test z j&#281;zyka polskiego (&#261;&#263;&#281;&#322;&#324;ó&#378;&#380;&#260;&#262;&#280;&#321;&#323;Ó&#377;&#379;)\",oFnt  )\n   ENDPAGE\nENDPRINT \nreturn nil','',0,'GA==','3eq0mj1a',1,0,'',851,0,0),(41408,8757,3,868,0,'219.64.121.60',1194781942,1,0,1,1,1,1,'','','Mr Antonio\n\nDo you have Tabs 2007 style in your todo list ? We shall be too glad if you can provide it to us.','',0,'GA==','1ftzpog3',1,0,'',868,0,0),(41409,8757,3,49,0,'62.13.172.67',1194785801,1,0,1,1,1,1,'','','Antonio,\nGive me time I\'m working on it \n\nDo you want bitmaps also into ?','',0,'GA==','3s8j1cv1',1,0,'',49,0,0),(41410,8785,2,2,0,'87.218.146.65',1194802930,1,0,1,1,1,1,'','','Carlos,\n\nPuedes usar las funciones Encrypt() y Decrypt() de FiveWin\n\nEs tan sencillo como: \n\nMemoWrit( \"nombre.ext\", Encrypt( MemoRead( \"reporte_original\" ), \"clave tuya\" ) ) \n\ny luego para usarlo: \n\nMemoWrit( \"reporte_original\", Decrypt( MemoRead( \"nombre.ext\" ), \"clave tuya\" ) ) \n\nlo usas y luego borras \"reporte_original\".','',0,'GA==','123zt296',1,0,'',2,0,0),(41411,8757,3,2,0,'87.218.146.65',1194804813,1,0,1,1,1,1,'','','NageswaraRao,\n\nWe are planning how it could be implemented','',0,'GA==','1tl5vpu5',1,0,'',2,0,0),(41412,8778,3,2,0,'87.218.146.65',1194804932,1,0,1,1,1,1,'','','Is it working fine now ?','',0,'GA==','2d692qc6',1,0,'',2,0,0),(41413,8786,3,6,0,'87.18.239.67',1194805327,1,0,1,1,1,1,'','Bug in combobox','In the following sample it\'s impossible to move the focus from the combobox using TAB o ENTER:\n\n[code:16a0553n]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    LOCAL cVar &#58;= SPACE&#40; 20 &#41;\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 COMBOBOX cVar;\n           ITEMS &#123; &quot;First&quot;, &quot;Second&quot;, &quot;Third&quot; &#125;;\n           STYLE CBS_DROPDOWN\n\n    @ 3, 1 BUTTON &quot;&amp;Close&quot; ACTION oDlg&#58;End&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:16a0553n]\n\nEMG','',0,'AIA=','16a0553n',1,0,'',6,0,0),(41414,8786,3,86,0,'81.83.151.142',1194812052,1,0,1,1,1,1,'','','Enrico,\n\nIndeed, and it is not the only one.\n\nIn the FWH version prior to 7.09, one could choose an item in a combobox, using the first character. In your example, choosing used to be possible by typing a \"F\", \"S\" or \"T\".\n\nSince FWH version 7.09, that isn\'t possible anymore. Therefor I still use the combobox class of FWH 7.04.\n\nMaybe Antonio can use both our problems.\n\nThanks.','',0,'AIA=','2mdlbxc5',1,0,'',86,0,0),(41415,8694,3,394,0,'207.219.124.134',1194817166,1,0,1,1,1,0,'','','I found this vb6 code on the net. I tested it here under xp home, xp pro and vista and it returned the usb memory drive info. Id does not work on win98.\n\nIf anyone can translate this vp6 app we could all use usb memory drives as software protection keys.\n\n[color=red:2a22nvjj]Private Sub Form_Load()\nDim colProcessList\nDim objprocess\nSet colProcessList = GetObject(\"Winmgmts:\").ExecQuery(\"Select * from Win32_DiskDrive \")\nFor Each objprocess In colProcessList\nIf Mid(objprocess.PnPDeviceID, 1, 7) = \"USBSTOR\" Then\n    List1.AddItem objprocess.PnPDeviceID\nEnd If\nNext\nSet colProcessList = Nothing\nSet objprocess = Nothing\nEnd Sub[/color:2a22nvjj]\n\nThis would make one of the simplest and inexpensive software protection methods around. The thought is - save the usb drive info to an encrypted dbf file that is already in your software package, preferably a file that holds a lot of setting for your application. Then on startup check the key.\nYou will have to select usb ram drives carefully not all have serial numbers.\n\nAny thoughts or comments appreciated.\nMike Buckler','',0,'Ag==','2a22nvjj',1,0,'',394,0,0),(41416,8787,3,51,0,'80.122.88.242',1194817812,1,0,1,1,1,0,'','xBrowser: How to repaint the header','If I change nHeadBmpNo how do I repaint the header?\n\noCol:bLClickHeader := {|r,c,f,o| IIF( oCol:nHeadBmpNo = 2, oCol:nHeadBmpNo := 1 ,oCol:nHeadBmpNo := 2 ) ))  }\nPaintHeader?? \nThanks in advance\nOtto','',0,'Ag==','1fytxjk1',1,0,'',51,0,0),(41417,8694,3,6,0,'87.18.239.67',1194819355,1,0,1,1,1,1,'','','[code:o0a5gojr]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oLoc &#58;= CREATEOBJECT&#40; &quot;wbemScripting&#46;SwbemLocator&quot; &#41;\n    LOCAL oSrv &#58;= oLoc&#58;ConnectServer&#40;&#41;\n    LOCAL oJbs &#58;= oSrv&#58;ExecQuery&#40; &quot;SELECT * FROM Win32_DiskDrive&quot; &#41;\n\n    LOCAL oJob\n\n    FOR EACH oJob IN oJbs\n//        IF SUBSTR&#40; oJob&#58;PnPDeviceID, 1, 7 &#41; = &quot;USBSTOR&quot; Then\n            ? oJob&#58;PnPDeviceID\n//        ENDIF\n    NEXT\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:o0a5gojr]\n\nEMG','',0,'AIA=','o0a5gojr',1,0,'',6,0,0),(41418,8786,3,2,0,'87.218.146.65',1194826999,1,0,1,1,1,1,'','','Enrico,\n\nFixed, several changes are required:\n\nClass TGet Method KeyChar:\n[code:28689k8j]\n   if &#58;&#58;bKeyChar != nil\n      if Eval&#40; &#58;&#58;bKeyChar, nKey, nFlags, Self &#41; == 0\n         return 0\n      endif   \n   endif   \n[/code:28689k8j]\nClass TComboBox:\n[code:28689k8j]\n      &#58;&#58;oGet&#58;bKeyChar = &#123; | nKey | If&#40; nKey == VK_TAB &#46;or&#46; nKey == VK_RETURN,;\n      	                               &#40; &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;, 0 &#41;, &#41; &#125;\n[/code:28689k8j]','',0,'AIA=','28689k8j',1,0,'',2,0,0),(41419,8786,3,2,0,'87.218.146.65',1194827337,1,0,1,1,1,1,'','','Michel,\n\nThe problem is that following the advise of a FW user, incremental search was implemented on comboboxes and that browse backwards compatibility.\n\nShould we avoid the incremental search feature and restore Windows default behavior there ? Or allow the incremental search as an optional clause ?\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6882&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=incremental\">http://fivetechsoft.com/forums/viewtopi ... ncremental</a><!-- m -->','',0,'AIA=','2m9i8ftq',1,0,'',2,0,0),(41420,8694,3,2,0,'87.218.146.65',1194827638,1,0,1,1,1,1,'','','I wonder how good is this protection system if the USB pendrive containts get cloned...','',0,'AIA=','3hrncnh6',1,0,'',2,0,0),(41421,8787,3,239,0,'59.42.111.160',1194828106,1,0,1,1,1,0,'','','for nFor := 1 TO 4\n	\n		obrow:aCols[nFor]:AddBmpHandle( obrow:hBmpSortAsc )\n		obrow:aCols[nFor]:AddBmpHandle( obrow:hBmpSortdes )\n		obrow:aCols[nFor]:nHeadBmpAlign := AL_RIGHT\n		if nfor&gt;1;obrow:aCols[nFor]:nHeadBmpNo := -1; end\n		obrow:aCols[nFor]:bLClickHeader := {|r,c,f,o| SortSal1( o ) }\n	\n	next\n\nFUNCTION SortSal1(oCol)\n	local aCols,cOrder,nFor,nLen\n\n	aCols	 := oCol:oBrw:aCols\n	cOrder := oCol:cOrder\n	nAt 	 := oCol:nCreationOrder\n	nLen	 := LEN(aCols)\n\n	for nFor := 1 to nLen\n		aCols[ nFor ]:nHeadBmpNo := 0\n		aCols[ nFor ]:cOrder := \"\"\n	next\n\n	if cOrder == \"\" .or. cOrder == \"D\"\n//      aData := Asort( aData,,, {|x,y| x[ nAt ] &lt; y[ nAt ] } )\n		do case\n			case nAt==1\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by custid\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:custid\")}\n			case nAt==2\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by custm\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:custm\")}\n			case nAt==3\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by sales\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:sales\")}\n			case nAt==4\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by addrc\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:addrc\")}\n		endcase\n		oCol:cOrder := \"A\"\n		oCol:nHeadBmpNo := 1\n	else\n//      aData := Asort( aData,,, {|x,y| x[ nAt ] &gt; y[ nAt ] } )\n		do case\n			case nAt==1\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by custid DESC\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:custid\")}\n			case nAt==2\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by custm DESC\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:custm\")}\n			case nAt==3\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by sales DESC\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:sales\")}\n			case nAt==4\n				odb1:cQuery:=\"select * from custm1 \"+if(len(ofcomid)&gt;0,\"where comid=\'\"+ofcomid+\"\'\",\"\")+\" order by addrc DESC\"\n				odb1:refresh()\n				obrow:bseek:={|v|odb1:SEEK(v,,\"odb1:addrc\")}\n			\n		endcase\n		oCol:cOrder := \"D\"\n		oCol:nHeadBmpNo := 2\n	endif\n\n	oCol:oBrw:Refresh()\n\nreturn\n\nRegards\nShuming Wang','',0,'','vum44r0j',1,0,'',239,0,0),(41422,8760,6,1059,0,'190.31.227.110',1194829099,1,0,1,1,1,0,'','','Buenas Noches,\n\nSeguramente estoy usando una versión antigua de FWH (2.7) pero no me rindo y, desde mis pocos conocimientos, estoy tratando de hacer que funcione un hipervínculo en un archivo .RTF editado con la clase Trichedit.\n\nLa cuestión es que funcionan los links a web´s e e-mails pero no lo que justamente necesito que es un hipervínculo a JPG´s, PDF´s, etc. dentro de mi pc.\n\nBuscandole la solución encontré que si dentro de mi aplicación, desde un botón que uso para testear, hago esto:\n\naction oRich:SendMsg( EM_GETAUTOURLDETECT, 0, 0 ) == 1\n\nNo me reconoce los links y al cambiarle el primer cero por 1, si los reconoce.\n\nMi consulta es la siguiente:\n\n¿No hay algún \"EM_???????\" para \"decirle\" que me reconozca los Hipervínculos?.\n\nGracias.\n\nRolando','',0,'','t6prgen3',1,0,'',1059,0,0),(41423,8786,3,868,0,'219.64.121.60',1194831581,1,0,1,1,1,1,'','','My personal opinion is that by default we should provide Windows default behavior.   That is how generally users expect any windows software to behave.\n\nIncremental search has its own benefits and can be offered as an option. \n\nFor consideration','',0,'','1d6zlufy',1,0,'',868,0,0),(41424,8788,6,109,0,'200.56.188.245',1194833762,1,0,1,1,1,0,'','Ayuda con Bitmap','Buenas noches.\n\n     Tengo un bitmap que simula una grafica , pues bien, necesito trazar  en el bitmap, 3 lineas, que uniran 4 puntos, y que estos \"simularan\" una grafica.\n     Lo hago de la siguiente manera.\n\n    function DrawLine(aLineas)\n    /*\n      AQUI SOLO TRAZAREMOS UNOS PEQUEÑOS PUNTOS EN CADA\n      COORDENADA DEL BITMAP\n    */\n                 hDc := oCv:oBmpHdc:GetDc() \n   \n   hPen := CreatePen( 0, 5, RGB(0,0,0))     \n   hOldPen := SelectObject( hDc, hPen )\n   \n//***** Primer Trazo\n\n   MoveTo( hDc, aLineas[1,1], aLineas[1,2] )\n   LineTo( hDc, aLineas[1,1], aLineas[1,2] )\n   \n   MoveTo( hDc, aLineas[2,1], aLineas[2,2] )\n   LineTo( hDc, aLineas[2,1], aLineas[2,2] )\n   \n   MoveTo( hDc, aLineas[3,1], aLineas[3,2] )\n   LineTo( hDc, aLineas[3,1], aLineas[3,2] )\n   \n   MoveTo( hDc, aLineas[4,1], aLineas[4,2] )\n   LineTo( hDc, aLineas[4,1], aLineas[4,2] )\n   \n   //***** Segundo Trazo\n\n   MoveTo( hDc, aLineas[5,1], aLineas[5,2] )\n   LineTo( hDc, aLineas[5,1], aLineas[5,2] )\n   \n   MoveTo( hDc, aLineas[6,1], aLineas[6,2] )\n   LineTo( hDc, aLineas[6,1], aLineas[6,2] )\n   \n   MoveTo( hDc, aLineas[7,1], aLineas[7,2] )\n   LineTo( hDc, aLineas[7,1], aLineas[7,2] )\n   \n   MoveTo( hDc, aLineas[8,1], aLineas[8,2] )\n   LineTo( hDc, aLineas[8,1], aLineas[8,2] )\n   \n   //***** Tercer Trazo\n\n   MoveTo( hDc, aLineas[9,1], aLineas[9,2] )\n   LineTo( hDc, aLineas[9,1], aLineas[9,2] )\n   \n   MoveTo( hDc, aLineas[10,1], aLineas[10,2] )\n   LineTo( hDc, aLineas[10,1], aLineas[10,2] )\n   \n   MoveTo( hDc, aLineas[11,1], aLineas[11,2] )\n   LineTo( hDc, aLineas[11,1], aLineas[11,2] )\n   \n   MoveTo( hDc, aLineas[12,1], aLineas[12,2] )\n   LineTo( hDc, aLineas[12,1], aLineas[12,2] )\n   \n   \n   SelectObject( hDc, hOldPen )\n   DeleteObject( hPen )\n\n   oCv:oBmpHdc:ReleaseDC()\n\n    reuturn nil\n\n    Pues bien, tan solo dibuja la parte del TERCER TRAZO, y los restantes no los dibuja. Ademas de que cuando dejo el dialogo con ALT + TAB, esos trazos que dibujo se \"Desaparecen\".\n\n    Si alguien me puede echar una mano.\n\n    Por su atencion gracias\n\n    Ricardo E. Guardado Flores.','',0,'','17e9uhjv',1,0,'',109,0,0),(41425,8213,7,1135,0,'189.136.50.148',1194836540,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:35prr4rs]Arturo,\n\nHaz una búsqueda en estos foros por IRDA (botón \"search\" arriba) y encontrarás muchos comentarios que se han hecho de ese tema, gracias[/quote:35prr4rs]\n\nAntonio:\nHe leído ya cada uno de los distintos protocolos disponibles para IRDA. Hasta donde he podido entender el código siguiente debe funcionar. Sólo necesitaría de tu ayuda para ponerlo de manera adecuada usando las sentencias de BEGIN..PRAGMA dump.\nSaludos. He Aquí:\n\n---------------------------\n// Tomado de \n// <!-- m --><a class=\"postlink\" href=\"http://www.pocketpcjunkies.com/Uwe/Forum.aspx/pocketpc-dev/5622/FREE-FREE-FREE-PRINTING-101-IrDA-and-Network-Printing-FREE\">http://www.pocketpcjunkies.com/Uwe/Foru ... nting-FREE</a><!-- m -->\n// By Kevin\n\nBOOL CWarehouseClientApp::IrDAPrint(CString tText)\n{\n\nSOCKET   sock;           // Socket bound to the server\nDEVICELIST  devList;          // Device list\nint    iCount = 0,         // Number of retries\n     index = 0,         // Integer index\n     iDevListLen = sizeof(devList);  // Size of the device list\nTCHAR    szError[100];        // Error message string\nWSADATA   wsaData;\nWORD    wVersion = MAKEWORD(1,1);    // Winsock Version 1.1\nBYTE    IASQueryBuff[sizeof(IAS_QUERY) - 3 + IAS_MAX_ATTRIBNAME];\nint    IASQueryLen = sizeof(IASQueryBuff);\nPIAS_QUERY  pIASQuery = (PIAS_QUERY) &amp;IASQueryBuff;\nchar    szServiceName[12];\nSOCKADDR_IRDA iraddr;\nlinger   l;\n\n// -------------------------------------------------\n\nif(WSAStartup(wVersion, &amp;wsaData) != 0)\n{\n wsprintf(szError, TEXT(\"WSAStartup failed. Error: %d\"),\nWSAGetLastError());\n AfxMessageBox(szError, MB_OK);\n return FALSE;\n}\n\n// Create a socket that is bound to the server.\nif((sock = socket(AF_IRDA, SOCK_STREAM, 0)) == INVALID_SOCKET)\n{\n wsprintf(szError, TEXT(\"Allocating socket failed. Error: %d\"),\nWSAGetLastError());\n AfxMessageBox(szError, MB_OK);\n WSACleanup();\n return FALSE;\n}\n\n// Initialize the number of devices to zero.\ndevList.numDevice = 0;\n\nwhile((devList.numDevice == 0) &amp;&amp; (iCount &lt;= NUMRETRY))\n{\n // Retrieve the socket option\n if(getsockopt(sock, SOL_IRLMP, IRLMP_ENUMDEVICES, (char *)&amp;devList,\n&amp;iDevListLen) == SOCKET_ERROR)\n {\n  wsprintf(szError, TEXT(\"Server could not be located, getsockopt failed.\nError: %d\"), WSAGetLastError());\n  AfxMessageBox(szError, MB_OK);\n  closesocket(sock);\n  WSACleanup();\n  return FALSE;\n }\n if(devList.numDevice == 0)\n {\n  iCount++;\n  Sleep(1000);\n }\n}\n\nif(iCount &gt; NUMRETRY)\n{\n AfxMessageBox(TEXT(\"Server could not be located!\"), MB_OK);\n closesocket(sock);\n WSACleanup();\n return FALSE;\n}\n\n// ------------------------------------------------\n\nmemcpy(&amp;pIASQuery-&gt;irdaDeviceID, devList.Device[0].irdaDeviceID, 4);\nmemcpy(&amp;pIASQuery-&gt;irdaClassName,  \"IrLPT\", 6);\nmemcpy(&amp;pIASQuery-&gt;irdaAttribName, \"IrDA:IrLMP:LsapSel\", 19);\n\nif (getsockopt(sock, SOL_IRLMP, IRLMP_IAS_QUERY, (char *)pIASQuery,\n&amp;IASQueryLen) == SOCKET_ERROR)\n{\n wsprintf(szError, TEXT(\"getsockopt failed. Error: %d\"),\nWSAGetLastError());\n AfxMessageBox(szError, MB_OK);\n closesocket(sock);\n WSACleanup();\n return FALSE;\n}\n\nsprintf(szServiceName, \"LSAP-SEL%d\",\npIASQuery-&gt;irdaAttribute.irdaAttribInt);\n\nmemset(&amp;iraddr, 0, sizeof(iraddr));\niraddr.irdaAddressFamily = AF_IRDA;\nmemcpy (iraddr.irdaDeviceID, devList.Device[0].irdaDeviceID, 4);\nmemcpy (iraddr.irdaServiceName, szServiceName, strlen(szServiceName) + 1);\n\n// Establish a connection to the socket.\nif(connect(sock, (struct sockaddr *)&amp;iraddr, sizeof(iraddr)) ==\nSOCKET_ERROR )\n{\n wsprintf(szError, TEXT(\"Connecting to the server failed. Error: %d\"),\nWSAGetLastError());\n AfxMessageBox(szError, MB_OK);\n closesocket(sock);\n WSACleanup();\n return FALSE;\n}\n\n// Turn on SO_LINGER\nl.l_onoff = 1;\nl.l_linger = 0;\nif(setsockopt(sock, SOL_SOCKET, SO_LINGER, (char *)&amp;l, sizeof(struct\nlinger)) == SOCKET_ERROR )\n{\n wsprintf(szError, TEXT(\"setsockopt failed. Error: %d\"),\nWSAGetLastError());\n AfxMessageBox(szError, MB_OK);\n closesocket(sock);\n WSACleanup();\n return FALSE;\n}\n\n// Send a string from the client socket to the server socket.\nchar * aText = StringUtil::ConvertCStringToCharPtr(tText);\nif(send(sock, aText, tText.GetLength() + 1, 0) == SOCKET_ERROR)\n{\n free(aText);\n wsprintf(szError, TEXT(\"Sending data to the server failed. Error: %d\"),\nWSAGetLastError());\n AfxMessageBox(szError, MB_OK);\n closesocket(sock);\n WSACleanup();\n return FALSE;\n}\nfree(aText);\n\n// Close the socket.\nif(closesocket(sock) == SOCKET_ERROR)\n{\n wsprintf(szError, TEXT(\"closesocket failed. Error: %d\"),\nWSAGetLastError());\n AfxMessageBox(szError, MB_OK);\n WSACleanup();\n return FALSE;\n}\n\n//\nWSACleanup();\nreturn TRUE;\n\n}\n\nBOOL CWarehouseClientApp::NetworkPrint(CString tText, CString tPrinterShare)\n{\n//\nBOOL aRetVal = TRUE;\n// create file name\nCString aFileName = _T(\"\\\\Temp\\\\report.prn\");\n// open the file\nFILE *aFile = NULL;\naFile = _tfopen(aFileName, _T(\"wt\"));\n//\nif(aFile == NULL)\n{\n aRetVal = FALSE;\n}\nelse\n{\n // put the text\n _fputts(tText, aFile);\n // close the file\n fclose(aFile);\n // copy file to network share\n if(CopyFile(aFileName, tPrinterShare, FALSE) == FALSE)\n {\n  AfxMessageBox(_T(\"Failed to Print to Network Shared Printer\"),\nMB_ICONEXCLAMATION);\n  aRetVal = FALSE;\n }\n}\n//\nreturn aRetVal;\n}','',0,'gA==','35prr4rs',1,0,'',1135,0,0),(41426,8213,7,1135,0,'189.136.50.148',1194836724,1,0,1,1,1,1,'','','[quote=&quot;Arturo Lopesoria&quot;:2m5fd74e]\n\nAntonio:\nHe leído ya cada uno de los distintos protocolos disponibles para IRDA. Hasta donde he podido entender el código siguiente debe funcionar. Sólo necesitaría de tu ayuda para ponerlo de manera adecuada usando las sentencias de BEGIN..PRAGMA dump.\nSaludos. He Aquí:\n[/quote:2m5fd74e]\n\nAdemás en el mismo foro, este código ha sido comentado y aparentemente mejorado: (Agradecería sus comentarios)\n\nLooks pretty much the right sort of thing to me.\n\nExcept... Have you tried printing a large amount of text?  I would expect\nthat after 10 or 10\'s of KB of data the data transfer will stop and will\nnever restart on that connection.  This is explained, and fixed, in #1.\nThere is also a code simplification, see #2.  There are other things in the\ncode that could be tidied up too, including that I\'m not sure why you set\nthe linger mode to the \'abort/discard\' mode.\n\nAnyway:\n1. Change the socket to use IrLMP\n\nIrLPT uses IrLMP alone (note that the IAS attribute name used is,\n\"IrDA:IrLMP:LsapSel\") and not also the usual TinyTP layer.  The code you\nhave posted does not enable IrLMP mode.  This has two effects.  Firstly\nthere is a extra byte (the TinyTP header) being sent to the printer in each\npacket of data, it will luckily be zero in most cases--which for text only\nprinting will likely be ignored.\n\nHowever in the reverse direction the PPC is using a credit based protocol\n(TinyTP) but the printer is not, and is therefore not advancing credits.\nThe PPC will eventually run out of credit and stop sending data.\n\nTo fix this add a setsockopt ( IRLMP_IRLPT_MODE ) after you create the\nsocket, immediately after the socket creation would be easiest.\n\nSee\n<!-- m --><a class=\"postlink\" href=\"http://homepage.ntlworld.com/alanjmcf/comms/infrared/Microsoft%20Windows%20IrDA\">http://homepage.ntlworld.com/alanjmcf/c ... ows%20IrDA</a><!-- m -->%\n20programming.html#_Toc46813385\n\n2. The IAS_QUERY does not need to be explicit\n\nConnecting to a service name requires: 1) looking up the service name to\nfind the \'port number\' then, 2) connecting to the port number.  Your code\ndoes this explicitly, however connect() will do both if it is given the\nservice name.\n\nSee\n<!-- m --><a class=\"postlink\" href=\"http://homepage.ntlworld.com/alanjmcf/comms/infrared/Microsoft%20Windows%20IrDA\">http://homepage.ntlworld.com/alanjmcf/c ... ows%20IrDA</a><!-- m -->%\n20programming.html#_Toc46813377\n\nOnly do this after you\'ve done step 1...  You can remove all the code from\n\"memcpy(&amp;pIASQuery-&gt;irdaDeviceID\" all the way through to \"// Establish a\nconnection\".  Then change the line:\n memcpy (iraddr.irdaServiceName, szServiceName,\n   strlen(szServiceName) + 1);\nto\n memcpy (iraddr.irdaServiceName, \"IrLPT\", 6);\n\nLet me know how that works out.\n\n[...]\n\nSo for step 2, instead of:\n\n&gt;&gt;  memcpy(&amp;pIASQuery-&gt;irdaDeviceID, devList.Device[0].irdaDeviceID, 4);\n&gt;&gt;  memcpy(&amp;pIASQuery-&gt;irdaClassName,  \"IrLPT\", 6);\n&gt;&gt;  memcpy(&amp;pIASQuery-&gt;irdaAttribName, \"IrDA:IrLMP:LsapSel\", 19);\n&gt;&gt;\n&gt;&gt;  if (getsockopt(sock, SOL_IRLMP, IRLMP_IAS_QUERY, (char *)pIASQuery,\n&gt;&gt; &amp;IASQueryLen) == SOCKET_ERROR)\n[...]\n\n&gt;&gt;  sprintf(szServiceName, \"LSAP-SEL%d\",\n&gt;&gt; pIASQuery-&gt;irdaAttribute.irdaAttribInt);\n[quoted text clipped - 6 lines]\n&gt;&gt;\n&gt;&gt;  // Establish a connection to the socket.\n\nUse the following:\n\nmemset(&amp;iraddr, 0, sizeof(iraddr));\niraddr.irdaAddressFamily = AF_IRDA;\nmemcpy (iraddr.irdaDeviceID, devList.Device[0].irdaDeviceID, 4);\nmemcpy (iraddr.irdaServiceName, \"IrLPT\", 6);\n\n// Establish a connection to the socket.\n\n Signature\n\n\nAlan J. McFarlane\n<!-- m --><a class=\"postlink\" href=\"http://homepage.ntlworld.com/alanjmcf/\">http://homepage.ntlworld.com/alanjmcf/</a><!-- m -->\nPlease follow-up in the newsgroup for the benefit of all.\n\n\nReply to this Message   KS - 25 Mar 2004 19:12 GMT\nThanks for the updates, I\'ll incorporate them and test them.\n\nI had to set the linger mode because for some reason the ONeil printer\nwouldn\'t disconnect properly and would print a \"** VOID ** VOID ** VOID **\nVOID **\" after I printed.  The manufacturer said that it does this if the\nsocket wasn\'t closed properly.  From what I can tell the SO_LINGER makes the\ndata transfer wait since it\'s set to 1 (true) and the timeout is set to 0.\n\nThanks,\nKS\n\n\n&gt; &gt; PS.. Let me know if you have any comments either <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n&gt; &gt;\n[quoted text clipped - 25 lines]\n&gt;\n&gt; See\n\n<!-- m --><a class=\"postlink\" href=\"http://homepage.ntlworld.com/alanjmcf/comms/infrared/Microsoft%20Windows%20IrDA\">http://homepage.ntlworld.com/alanjmcf/c ... ows%20IrDA</a><!-- m -->%\n20programming.html#_Toc46813385\n\n\n&gt; 2. The IAS_QUERY does not need to be explicit\n&gt;\n[quoted text clipped - 4 lines]\n&gt;\n&gt; See\n\n<!-- m --><a class=\"postlink\" href=\"http://homepage.ntlworld.com/alanjmcf/comms/infrared/Microsoft%20Windows%20IrDA\">http://homepage.ntlworld.com/alanjmcf/c ... ows%20IrDA</a><!-- m -->%\n20programming.html#_Toc46813377\n\n\n&gt; Only do this after you\'ve done step 1...  You can remove all the code from\n&gt; \"memcpy(&amp;pIASQuery-&gt;irdaDeviceID\" all the way through to \"// Establish a\n[quoted text clipped - 35 lines]\n&gt;\n&gt; // Establish a connection to the socket.\nReply to this Message   KS - 25 Mar 2004 21:43 GMT\nActually setting the IRLMP_IRLPT_MODE seems to be causing problems, same\nthing with changing the irdaServiceName name.\n\nYou\'re right about the number of bytes, It seems to stop printing after\nabout 816 characters.  Going to do some more digging ....\n\nKS\n\n\n&gt; &gt; PS.. Let me know if you have any comments either <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n&gt; &gt;\n[quoted text clipped - 25 lines]\n&gt;\n&gt; See\n\n<!-- m --><a class=\"postlink\" href=\"http://homepage.ntlworld.com/alanjmcf/comms/infrared/Microsoft%20Windows%20IrDA\">http://homepage.ntlworld.com/alanjmcf/c ... ows%20IrDA</a><!-- m -->%\n20programming.html#_Toc46813385\n\n\n&gt; 2. The IAS_QUERY does not need to be explicit\n&gt;\n[quoted text clipped - 4 lines]\n&gt;\n&gt; See\n\n<!-- m --><a class=\"postlink\" href=\"http://homepage.ntlworld.com/alanjmcf/comms/infrared/Microsoft%20Windows%20IrDA\">http://homepage.ntlworld.com/alanjmcf/c ... ows%20IrDA</a><!-- m -->%\n20programming.html#_Toc46813377\n\n\n&gt; Only do this after you\'ve done step 1...  You can remove all the code from\n&gt; \"memcpy(&amp;pIASQuery-&gt;irdaDeviceID\" all the way through to \"// Establish a\n[quoted text clipped - 35 lines]\n&gt;\n&gt; // Establish a connection to the socket.','',0,'gA==','2m5fd74e',1,0,'',1135,0,0),(41427,8213,7,2,0,'87.218.146.65',1194845962,1,0,1,1,1,1,'','','Arturo,\n\nAqui tienes el código que he ido ordenando y poniendo en formato que podamos usar desde FWPPC:\n[code:oqqp39so]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;WinSock2&#46;h&gt;\n\nHB_FUNC&#40; WSASTARTUP &#41;\n&#123;\n   WORD WSAVerReq = MAKEWORD&#40; 1, 1 &#41;;\n   WSADATA WSAData;\n\n   if&#40; WSAStartup&#40; WSAVerReq, &amp;WSAData &#41; != 0 &#41;\n   &#123;\n      // wrong winsock dlls?\n   &#125;\n&#125;\n\nSOCKET ServSock;\n\nHB_FUNC&#40; SOCKET &#41;\n&#123;\n   if&#40; &#40; ServSock = socket&#40; AF_IRDA, SOCK_STREAM, 0 &#41; &#41; == INVALID_SOCKET &#41;\n   &#123;\n      // WSAGetLastError&#40;&#41;\n   &#125;\n&#125;\n\ntypedef struct _SOCKADDR_IRDA\n&#123;\n   u_short irdaAddressFamily;\n   u_char  irdaDeviceID&#91; 4 &#93;;\n   char    irdaServiceName&#91; 25 &#93;;\n&#125; SOCKADDR_IRDA, * PSOCKADDR_IRDA, FAR * LPSOCKADDR_IRDA;\n\nint sizeOfSockAddr;\n\nHB_FUNC&#40; BIND &#41;\n&#123;\n   SOCKADDR_IRDA ServSockAddr = &#123; AF_IRDA, 0, 0, 0, 0, &quot;SampleIrDAService&quot; &#125;;\n\n   if&#40; bind&#40; ServSock, &#40; const struct sockaddr * &#41; &amp;ServSockAddr,\n             sizeof&#40; SOCKADDR_IRDA &#41; &#41; == SOCKET_ERROR &#41;\n   &#123;\n      // WSAGetLastError&#40;&#41;\n   &#125;\n&#125;   \n\nHB_FUNC&#40; LISTEN &#41;\n&#123;\n   if&#40; listen&#40; ServSock, 2 &#41; == SOCKET_ERROR &#41;\n   &#123;\n      // WSAGetLastError&#40;&#41;\n   &#125;\n&#125;	\n\nHB_FUNC&#40; ACCEPT &#41;\n&#123;\n   SOCKET NewSock;\n\n   while&#40; 1 &#41;\n   &#123;\n      sizeOfSockAddr = sizeof&#40; SOCKADDR_IRDA &#41;;\n\n      if&#40; &#40; NewSock = accept&#40; ServSock, &#40; struct sockaddr * &#41; &amp;PeerSockAddr,\n                              &amp;sizeOfSockAddr &#41; &#41; == INVALID_SOCKET &#41;\n      &#123;\n         // WSAGetLastError&#40;&#41;\n         // exit\n      &#125;\n\n      // NewSock is a connected socket\n      // create a new thread and pass it NewSock, return to accept&#40;&#41; on main\n      // or use NewSock here until done, then close it\n   &#125;\n&#125;	\n\n#define BUFF_LEN 4096\n\nint  BytesRead, BytesSent;\nchar Buffer&#91; BUFF_LEN &#93;;\n\nHB_FUNC&#40; RECV &#41;\n&#123;\n   if&#40; &#40; BytesRead = recv&#40; ServSock, Buffer, sizeof&#40; Buffer &#41;, 0 &#41; &#41; == SOCKET_ERROR &#41;\n   &#123;\n      // WSAGetLastError&#40;&#41;\n   &#125;\n   if&#40; BytesRead == 0 &#41;\n   &#123;\n      // peer has closed the connection and I have all the data\n      // close the socket now\n   &#125;\n&#125;\n\nHB_FUNC&#40; SEND &#41;\n&#123;\n   if&#40; &#40; BytesSent = send&#40; ServSock, Buffer, sizeof&#40; Buffer &#41;, 0 &#41; &#41; == SOCKET_ERROR &#41;\n   &#123;\n      // WSAGetLastError&#40;&#41;\n   &#125;\n   // check that BytesSent == sizeof&#40;Buffer&#41;\n&#125;		\n\nHB_FUNC&#40; CLOSESOCKET &#41;\n&#123;\n   if&#40; closesocket&#40; ServSock &#41; == SOCKET_ERROR &#41;\n   &#123;\n      // WSAGetLastError&#40;&#41;\n   &#125;\n&#125;	\n\n#pragma ENDDUMP\n[/code:oqqp39so]\nCompila bien a excepción de PeerSockAddr, que no se aún de donde lo obtiene exactamente','',0,'AIA=','oqqp39so',1,0,'',2,0,0),(41428,8213,7,2,0,'87.218.146.65',1194846838,1,0,1,1,1,1,'','','Al final del texto él muestra dos ejemplos un un servidor IrComm y de un cliente IrComm, pero usa datos que no están declarados en el texo. \n\nTampoco he podido acceder a las direcciones de las páginas que has facilitado. Solo he podido revisar el documento Word que me has enviado por email:\n[code:dy0m4o3v]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;WinSock2&#46;h&gt;\n\n#define IAS_SET_ATTRIB_MAX_LEN 32\n\n// buffer for IAS set\nBYTE          IASSetBuff&#91;sizeof&#40;IAS_SET&#41; - 3 + IAS_SET_ATTRIB_MAX_LEN&#93;;\nint           IASSetLen = sizeof&#40;IASSetBuff&#41;;\nPIAS_SET      pIASSet   = &#40;PIAS_SET&#41; &amp;IASSetBuff;\n\n// for the setsockopt call to enable 9 wire IrCOMM\nint           Enable9WireMode  = 1;\n\n// server sockaddr with IrCOMM name\nSOCKADDR_IRDA ServSockAddr = &#123; AF_IRDA, 0, 0, 0, 0, &quot;IrDA&#58;IrCOMM&quot; &#125;;\nSOCKADDR_IRDA PeerSockAddr;\nint           sizeofSockAddr;\n\nSOCKET        ServSock;\nSOCKET        NewSock;\n\nif &#40;&#40;ServSock = socket&#40;AF_IRDA, SOCK_STREAM, 0&#41;&#41; == INVALID_SOCKET&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n    \n// add IrCOMM IAS attributes for 3 wire cooked and 9 wire raw, see IrCOMM spec\nmemcpy&#40;&amp;pIASSet-&gt;irdaClassName&#91;0&#93;,  &quot;IrDA&#58;IrCOMM&quot;, 12&#41;;\nmemcpy&#40;&amp;pIASSet-&gt;irdaAttribName&#91;0&#93;, &quot;Parameters&quot;,  11&#41;;\n    \npIASSet-&gt;irdaAttribType                       = IAS_ATTRIB_OCTETSEQ;\npIASSet-&gt;irdaAttribute&#46;irdaAttribOctetSeq&#46;Len = 6;\n\nmemcpy&#40;&amp;pIASSet-&gt;irdaAttribute&#46;irdaAttribOctetSeq&#46;OctetSeq&#91;0&#93;,\n       &quot;\\000\\001\\006\\001\\001\\001&quot;, 6&#41;;\n\nif &#40;setsockopt&#40;ServSock, SOL_IRLMP, IRLMP_IAS_SET, &#40;const char *&#41; pIASSet, IASSetLen&#41; \n    == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\n// enable 9wire mode before bind&#40;&#41;\nif &#40;setsockopt&#40;ServSock, SOL_IRLMP, IRLMP_9WIRE_MODE, &#40;const char *&#41; &amp;Enable9WireMode,\n               sizeof&#40;int&#41;&#41;  == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\nif &#40;bind&#40;ServSock, &#40;const struct sockaddr *&#41; &amp;ServSockAddr, sizeof&#40;SOCKADDR_IRDA&#41;&#41;\n    == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\n// nothing special for IrCOMM from now on&#46;&#46;&#46;\nif &#40;listen&#40;ServSock, SERV_BACKLOG&#41; == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\n// IrCOMM Client\n// The following code shows the steps necessary to build a client that connects via 9 Wire IrCOMM&#58;\n\n#define DEVICE_LIST_LEN 5\n\n// discovery buffer\nBYTE          DevListBuff&#91;sizeof&#40;DEVICELIST&#41; - sizeof&#40;IRDA_DEVICE_INFO&#41; + \n                          &#40;sizeof&#40;IRDA_DEVICE_INFO&#41; * DEVICE_LIST_LEN&#41;&#93;;\nint           DevListLen = sizeof&#40;DevListBuff&#41;;\nPDEVICELIST   pDevList   = &#40;PDEVICELIST&#41; &amp;DevListBuff;\nint           DevNum;\n\n#define IAS_QUERY_ATTRIB_MAX_LEN 32\n\n// buffer for IAS query\nBYTE          IASQueryBuff&#91;sizeof&#40;IAS_QUERY&#41; - 3 + IAS_QUERY_ATTRIB_MAX_LEN&#93;;\nInt           IASQueryLen = sizeof&#40;IASQueryBuff&#41;;\nPIAS_QUERY    pIASQuery   = &#40;PIAS_QUERY&#41; &amp;IASQueryBuff;\n    \n// for searching through peers IAS response\nBOOL          Found = FALSE;\nUCHAR        *pPI, *pPL, *pPV;\n    \n// for the setsockopt call to enbale 9 wire IrCOMM\nint           Enable9WireMode  = 1;\n\nSOCKADDR_IRDA DstAddrIR = &#123; AF_IRDA, 0, 0, 0, 0, &quot;IrDA&#58;IrCOMM&quot; &#125;;\n\nif &#40;&#40;pConn-&gt;Sock = socket&#40;AF_IRDA, SOCK_STREAM, 0&#41;&#41; == INVALID_SOCKET&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\n// search for the peer device\npDevList-&gt;numDevice = 0;\nif &#40;getsockopt&#40;pConn-&gt;Sock, SOL_IRLMP, IRLMP_ENUMDEVICES, &#40;CHAR *&#41; pDevList, &amp;DevListLen&#41;\n    == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\n// if &#40;pDevList-&gt;numDevice == 0&#41;\n&#123;\n    // no devices found, tell the user\n&#125;\n\n// assume first device, we should have a common dialog here\nmemcpy&#40;&amp;DstAddrIR&#46;irdaDeviceID&#91;0&#93;, &amp;pDevList-&gt;Device&#91;0&#93;&#46;irdaDeviceID&#91;0&#93;, 4&#41;;\n\n// query the peer to check for 9wire IrCOMM support\nmemcpy&#40;&amp;pIASQuery-&gt;irdaDeviceID&#91;0&#93;, &amp;pDevList-&gt;Device&#91;0&#93;&#46;irdaDeviceID&#91;0&#93;, 4&#41;;\n\n// IrCOMM IAS attributes\nmemcpy&#40;&amp;pIASQuery-&gt;irdaClassName&#91;0&#93;,  &quot;IrDA&#58;IrCOMM&quot;, 12&#41;;\nmemcpy&#40;&amp;pIASQuery-&gt;irdaAttribName&#91;0&#93;, &quot;Parameters&quot;,  11&#41;;\n\nif &#40;getsockopt&#40;pConn-&gt;Sock, SOL_IRLMP, IRLMP_IAS_QUERY,  &#40;char *&#41; pIASQuery, \n               &amp;IASQueryLen&#41; == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\nif &#40;pIASQuery-&gt;irdaAttribType != IAS_ATTRIB_OCTETSEQ&#41;\n&#123;\n    // peer\'s IAS database entry for IrCOMM is bad\n    // error\n&#125;\n\nif &#40;pIASQuery-&gt;irdaAttribute&#46;irdaAttribOctetSeq&#46;Len &lt; 3&#41;\n&#123;\n    // peer\'s IAS database entry for IrCOMM is bad\n    // error\n&#125;\n\n// search for the PI value 0x00 and check 9 wire, see IrCOMM spec&#46;\npPI = pIASQuery-&gt;irdaAttribute&#46;irdaAttribOctetSeq&#46;OctetSeq;\npPL = pPI + 1;\npPV = pPI + 2;\n\nwhile &#40;1&#41;\n&#123;\n    if &#40;*pPI == 0 &amp;&amp; &#40;*pPV &amp; 0x04&#41;&#41;\n    &#123;\n        Found = TRUE;\n        break;\n    &#125;\n        \n    if &#40;pPL + *pPL &gt;= pIASQuery-&gt;irdaAttribute&#46;irdaAttribOctetSeq&#46;OctetSeq + \n                      pIASQuery-&gt;irdaAttribute&#46;irdaAttribOctetSeq&#46;Len&#41;\n    &#123;\n        break;\n    &#125;\n        \n     pPI = pPL + *pPL;\n     pPL = pPI + 1;\n     pPV = pPI + 2;\n&#125;\n\nif &#40;! Found&#41;\n&#123;\n    // peer doesn\'t support 9 wire mode\n    // error\n&#125;\n\n// enable 9wire mode before connect&#40;&#41;\nif &#40;setsockopt&#40;ServSock, SOL_IRLMP, IRLMP_9WIRE_MODE, &#40;const char *&#41; &amp;Enable9WireMode,\n               sizeof&#40;int&#41;&#41;  == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\n// nothing special for IrCOMM from now on&#46;&#46;&#46;\nif &#40;connect&#40;pConn-&gt;Sock, &#40;const struct sockaddr *&#41; &amp;DstAddrIR, sizeof&#40;SOCKADDR_IRDA&#41;&#41; \n    == SOCKET_ERROR&#41;\n&#123;\n    // WSAGetLastError\n&#125;\n\n#pragma ENDDUMP\n[/code:dy0m4o3v]\nQue es IAS_SET ? De donde lo obtiene ?','',0,'AIA=','dy0m4o3v',1,0,'',2,0,0),(41429,8787,3,51,0,'80.122.88.242',1194849280,1,0,1,1,1,0,'','','Thank you for your help.\n\nThe line\n\noCol:oxBrw:Refresh()\n\ncauses an error. I don\'t find out what is wrong.\n\nRegards,\nOtto\n\n  Error description: Error BASE/1004  Message not found: TXBRWCOLUMN:OXBRW\n   Args:\n     [   1] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TXBRWCOLUMN:ERROR(172)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(103)\n   Called from:  =&gt; TXBRWCOLUMN:MSGNOTFOUND(0)\n   Called from:  =&gt; TXBRWCOLUMN:OXBRW(162)','',0,'','172ynpvf',1,0,'',51,0,0),(41430,8213,7,2,0,'87.218.146.65',1194849423,1,0,1,1,1,1,'','','Esta es la primera función que has localizado y creo que es la que tiene más posibilidades de funcionar bien. No le falta nada:\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcjunkies.com/Uwe/Forum.aspx/pocketpc-dev/5622/FREE-FREE-FREE-PRINTING-101-IrDA-and-Network-Printing-FREE\">http://www.pocketpcjunkies.com/Uwe/Foru ... nting-FREE</a><!-- m -->\n[code:1bcepexv]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   IrdaPrint&#40; &quot;Hello World!&quot; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\n#define _WIN32_WCE \n\n#include &lt;WinSock2&#46;h&gt;\n#include &lt;af_irda&#46;h&gt;\n\n#define NUMRETRY 10 // No está definido en el ejemplo&#46; Usamos 10 a ver que tal\n\nHB_FUNC&#40; IRDAPRINT &#41; // cText\n&#123;\n   SOCKET   sock;           // Socket bound to the server\n   DEVICELIST  devList;     // Device list\n   int    iCount = 0,       // Number of retries\n          index = 0,        // Integer index\n          iDevListLen = sizeof&#40;devList&#41;;  // Size of the device list\n   TCHAR    szError&#91; 100 &#93;; // Error message string\n   WSADATA   wsaData;\n   WORD    wVersion = MAKEWORD&#40; 1, 1 &#41;;  // Winsock Version 1&#46;1\n   BYTE    IASQueryBuff&#91; sizeof&#40; IAS_QUERY &#41; - 3 + IAS_MAX_ATTRIBNAME &#93;;\n   int    IASQueryLen = sizeof&#40; IASQueryBuff &#41;;\n   PIAS_QUERY  pIASQuery = &#40; PIAS_QUERY &#41; &amp;IASQueryBuff;\n   char    szServiceName&#91; 12 &#93;;\n   SOCKADDR_IRDA iraddr;\n   struct linger   l;   \n\n   if&#40; WSAStartup&#40; wVersion, &amp;wsaData &#41; != 0 &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;WSAStartup failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;error&quot; &#41;, 0 &#41;;\n      return;\n   &#125;\n   \n   // Create a socket that is bound to the server&#46;\n   if&#40; &#40; sock = socket&#40; AF_IRDA, SOCK_STREAM, 0 &#41; &#41; == INVALID_SOCKET &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;Allocating socket failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;error&quot; &#41;, 0 &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   // Initialize the number of devices to zero&#46;\n   devList&#46;numDevice = 0;\n\n   while&#40; &#40; devList&#46;numDevice == 0 &#41; &amp;&amp; &#40; iCount &lt;= NUMRETRY &#41; &#41;\n   &#123;\n      // Retrieve the socket option\n      if&#40; getsockopt&#40; sock, SOL_IRLMP, IRLMP_ENUMDEVICES, &#40; char * &#41; &amp;devList,\n                      &amp;iDevListLen&#41; == SOCKET_ERROR &#41;\n      &#123;\n         wsprintf&#40; szError, TEXT&#40; &quot;Server could not be located, getsockopt failed&#46; Error&#58; %d&quot;&#41;, WSAGetLastError&#40;&#41; &#41;;\n         MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n         closesocket&#40; sock &#41;;\n         WSACleanup&#40;&#41;;\n         return;\n      &#125;\n      if&#40; devList&#46;numDevice == 0 &#41;\n      &#123;\n         iCount++;\n         Sleep&#40; 1000 &#41;;\n      &#125;\n   &#125;\n\n   if&#40; iCount &gt; NUMRETRY &#41;\n   &#123;\n      MessageBox&#40; 0, TEXT&#40; &quot;Server could not be located!&quot; &#41;,  TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   memcpy&#40; &amp;pIASQuery-&gt;irdaDeviceID, devList&#46;Device&#91; 0 &#93;&#46;irdaDeviceID, 4 &#41;;\n   memcpy&#40; &amp;pIASQuery-&gt;irdaClassName,  &quot;IrLPT&quot;, 6 &#41;;\n   memcpy&#40; &amp;pIASQuery-&gt;irdaAttribName, &quot;IrDA&#58;IrLMP&#58;LsapSel&quot;, 19 &#41;;\n\n   if&#40; getsockopt&#40; sock, SOL_IRLMP, IRLMP_IAS_QUERY, &#40; char * &#41; pIASQuery,\n                   &amp;IASQueryLen&#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;getsockopt failed&#46; Error&#58; %d&quot; &#41;, WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   sprintf&#40; szServiceName, &quot;LSAP-SEL%d&quot;, pIASQuery-&gt;irdaAttribute&#46;irdaAttribInt &#41;;\n\n   memset&#40; &amp;iraddr, 0, sizeof&#40; iraddr &#41; &#41;;\n   iraddr&#46;irdaAddressFamily = AF_IRDA;\n   memcpy&#40; iraddr&#46;irdaDeviceID, devList&#46;Device&#91; 0 &#93;&#46;irdaDeviceID, 4 &#41;;\n   memcpy&#40; iraddr&#46;irdaServiceName, szServiceName, strlen&#40; szServiceName &#41; + 1 &#41;;\n\n   // Establish a connection to the socket&#46;\n   if&#40; connect&#40; sock, &#40; struct sockaddr * &#41; &amp;iraddr, sizeof&#40; iraddr &#41; &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;Connecting to the server failed&#46; Error&#58; %d&quot; &#41;, WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, MB_OK &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n   \n   // Turn on SO_LINGER\n   l&#46;l_onoff = 1;\n   l&#46;l_linger = 0;\n   if&#40; setsockopt&#40; sock, SOL_SOCKET, SO_LINGER, &#40; char * &#41; &amp;l, \n                   sizeof&#40; struct linger &#41; &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;setsockopt failed&#46; Error&#58; %d&quot; &#41;, WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, MB_OK &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n   \n   // Send a string from the client socket to the server socket&#46;\n   if&#40; send&#40; sock, hb_parc&#40; 1 &#41;, hb_parclen&#40; 1 &#41; + 1, 0 &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;Sending data to the server failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, MB_OK &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   // Close the socket&#46;\n   if&#40; closesocket&#40; sock &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;closesocket failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   WSACleanup&#40;&#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:1bcepexv]','',0,'AIA=','1bcepexv',1,0,'',2,0,0),(41431,8760,6,2,0,'87.218.146.65',1194850288,1,0,1,1,1,1,'','','Rolando,\n\nEM_AUTOURLDETECT\n\nPero el código es bastante complejo. No quiero desanimarte, pero te ahorrarias dolores de cabeza actualizándote a la versión más reciente de FWH.','',0,'AIA=','308ymrti',1,0,'',2,0,0),(41432,8788,6,2,0,'87.218.146.65',1194850552,1,0,1,1,1,1,'','','Ricardo,\n\nTienes que definir ese código para ser llamado desde:\n\noBitmap:bPainted = { | hDC | ...tu código... }\n\nasí cada vez que se repinte el bitmap, volverá a dibujar las líneas.\n\nSi la tercera aparece, las otras tambien deben aparecer, salvo que te estés equivocando en las coordenadas. Revísalas','',0,'AIA=','3tim40og',1,0,'',2,0,0),(41433,8787,3,2,0,'87.218.146.65',1194850744,1,0,1,1,1,1,'','','Otto,\n\nTry:\n\noCol:oBrw:Refresh()','',0,'AIA=','5hifd9gn',1,0,'',2,0,0),(41434,8787,3,51,0,'80.122.88.242',1194851900,1,0,1,1,1,0,'','','Hello Antonio,\nthank you. I see the msgInfo correctly but the changes of the bmp are not visible.\n\n\n oCol:AddBmpHandle( FwBmpAsc() )\n oCol:AddBmpHandle( FwBmpDes() )\n oCol:nHeadBmpNo := 1\n oCol:bLClickHeader := {|r,c,f,o| IIF( oCol:nHeadBmpNo = 2, (oCol:nHeadBmpNo := 1 ,msginfo(1)),(oCol:nHeadBmpNo := 2,msginfo(2) )),oCol:oBrw:Refresh(),msginfo(\"test\")    }\n\n\nCould you please extend the testxbrw.prg \nto show how \noCol:nHeadBmpNo = \n\nshould be used.\n\nSuggestion:\nI would  comment for the standard sample  ADS out  - for a beginner the error this causes  is no so easy to find out.\nYou should also reindex customer automatically. Otherwise the incremental search gives an error.\nRegards,\nOtto','',0,'AIA=','23hz75q3',1,0,'',51,0,0),(41435,8787,3,2,0,'87.218.146.65',1194852538,1,0,1,1,1,1,'','','Otto,\n\nYou may use:\nMETHOD PaintHeader( nRow, nCol, nHeight, lInvert, hDC ) CLASS TXBrwColumn','',0,'AIA=','37nt5h78',1,0,'',2,0,0),(41436,8787,3,51,0,'80.122.88.242',1194852918,1,0,1,1,1,0,'','','METHOD PaintHeader( nRow, nCol, nHeight, lInvert, hDC ) CLASS TXBrwColumn\n\nIsn\'t this called by HeaderLButtonDown?\n\nMETHOD HeaderLButtonDown( nMRow, nMCol, nFlags ) CLASS TXBrwColumn\n\n   if ::oBrw:nCaptured == 0 .and. ::oBrw:lAllowColSwapping\n      ::oBrw:oCapCol   := Self\n      ::oBrw:nCaptured := 1\n      ::oBrw:Capture()\n      ::PaintHeader( 2, nil, ::oBrw:nHeaderHeight - 3, .t. )\n   endif\n\nreturn nil\n\n\n\nMETHOD PaintHeader( nRow, nCol, nHeight, lInvert, hDC ) CLASS TXBrwColumn','',0,'AIA=','2sotsi1j',1,0,'',51,0,0),(41437,8789,3,51,0,'80.122.88.242',1194853071,1,0,1,1,1,0,'','xBrowse - incremental search','If I search and the find position is not on the first page I lose the header and the row pointer.\n\n[img:39zcjw0q]http&#58;//www&#46;atzwanger&#46;com/fw/xbrw4&#46;jpg[/img:39zcjw0q]\n[img:39zcjw0q]http&#58;//www&#46;atzwanger&#46;com/fw/xbrw3&#46;jpg[/img:39zcjw0q]','',0,'CA==','39zcjw0q',1,0,'',51,0,0),(41438,8787,3,2,0,'87.218.146.65',1194853415,1,0,1,1,1,1,'','','Otto,\n\n&gt; Isn\'t this called by HeaderLButtonDown?\n\nYes','',0,'CA==','2t7zet29',1,0,'',2,0,0),(41439,8771,20,1009,0,'82.187.221.169',1194853459,1,0,1,1,1,0,'','','all\'interno del campo memo ci sono istruzioni del tipo:\nAggComm(\"GR02009\", nVal * nCap, \"1B\")\nuna funzione che è nel mio eseguibile che aggiunge righe ad un\'altro dbase, è in questo nuovo dbase che a volte mi mancano alcune righe.','',0,'CA==','2syhlh18',1,0,'',1009,0,0),(41440,8787,3,51,0,'80.122.88.242',1194853812,1,0,1,1,1,0,'','','But the header does not change.\n\n[img:1mtklpmb]http&#58;//www&#46;atzwanger&#46;com/fw/header1&#46;jpg[/img:1mtklpmb]\n[img:1mtklpmb]http&#58;//www&#46;atzwanger&#46;com/fw/header2&#46;jpg[/img:1mtklpmb]','',0,'CA==','1mtklpmb',1,0,'',51,0,0),(41441,8789,3,456,0,'62.43.18.83',1194856102,1,0,1,1,1,1,'','','Search the string ::lRefreshOnlyData := .T. (2 times) in the method Seek of txBrowse, coment it.','',0,'CA==','1a54jrbq',1,0,'',456,0,0),(41442,8789,3,51,0,'80.122.88.242',1194856427,1,0,1,1,1,0,'','','Thank you.\nI have verion 07.11 and I can\'t find lRefreshOnlyData 2 times in the methode.\nRegards,\nOtto\n\nMETHOD Seek( cSeek ) CLASS TXBrowse\n\n   local uBook, uSeek\n   local nFor, nRows\n   local lRefresh\n\n   if ::bSeek == nil\n      return nil\n   endif\n\n   If cSeek == nil\n      if !Empty(::cSeek)\n         ::cSeek := \"\"\n         If ::oSeek != nil\n            ::oSeek:SetText(\"\")\n         Endif\n      endif\n      return nil\n   Endif\n\n   uBook := Eval( ::bBookMark )\n\n   if !Eval( ::bSeek, cSeek )\n      Eval( ::bBookMark, uBook )\n      MsgBeep()\n      return nil\n   endif\n\n   if ::nRowSel &gt; Eval( ::bKeyNo )\n      ::nRowsel := 1              \n   else                           \n      ::lRefreshOnlyData := .t.   \n   endif                          \n\n   ::cSeek  := cSeek\n   uSeek    := Eval( ::bBookMark )\n   nRows    := ::nDataRows\n   lRefresh := .t.\n\n   if ::oSeek != nil\n      ::oSeek:SetText( cSeek )\n   endif\n\n   Eval( ::bBookMark, uBook )\n   Eval( ::bSkip, 1 - ::nRowSel )\n\n   for nFor := 1 to nRows\n      if Eval( ::bBookMark ) == uSeek\n         lRefresh := .f.\n         exit\n      endif\n      if Eval( ::bSkip, 1) == 0\n         exit\n      endif\n   next\n\n   if lRefresh\n      Eval( ::bBookMark, uSeek )\n    if ::bChange != nil\n       Eval( ::bChange, Self )\n    endif\n      // ::lRefreshOnlyData := .t.\n      ::Super:Refresh(.f.)\n   else\n      Eval( ::bBookMark, uBook )\n      ::DrawLine( .f. )\n      ::nRowSel := nFor\n      Eval( ::bBookMark, uSeek )\n    if ::bChange != nil\n       Eval( ::bChange, Self )\n    endif\n      ::DrawLine( .t. )\n   endif\n\n   if ::oVScroll != nil\n      ::VSetPos( Eval( ::bKeyNo,,Self ) )\n   endif\n\nreturn nil','',0,'CA==','1ecptbs7',1,0,'',51,0,0),(41443,8789,3,2,0,'87.218.146.65',1194856760,1,0,1,1,1,1,'','','Otto,\n\nUse this code:\n[code:1t4bnngz]\nMETHOD Seek&#40; cSeek &#41; CLASS TXBrowse\n\n   local uBook, uSeek\n   local nFor, nRows\n   local lRefresh\n\n   if &#58;&#58;bSeek == nil\n      return nil\n   endif\n\n   If cSeek == nil\n      if ! Empty&#40; &#58;&#58;cSeek &#41;\n         &#58;&#58;cSeek &#58;= &quot;&quot;\n         If &#58;&#58;oSeek != nil\n            &#58;&#58;oSeek&#58;SetText&#40; &quot;&quot; &#41;\n         Endif\n      endif\n      return nil\n   Endif\n\n   uBook &#58;= Eval&#40; &#58;&#58;bBookMark &#41;\n\n   if !Eval&#40; &#58;&#58;bSeek, cSeek &#41;\n      Eval&#40; &#58;&#58;bBookMark, uBook &#41;\n      MsgBeep&#40;&#41;\n      return nil\n   endif\n\n   if &#58;&#58;nRowSel &gt; Eval&#40; &#58;&#58;bKeyNo,, Self &#41;\n      &#58;&#58;nRowsel &#58;= 1              \n   endif                          \n\n   &#58;&#58;cSeek  &#58;= cSeek\n   uSeek    &#58;= Eval&#40; &#58;&#58;bBookMark &#41;\n   nRows    &#58;= &#58;&#58;nDataRows\n   lRefresh &#58;= &#46;t&#46;\n\n   if &#58;&#58;oSeek != nil\n      &#58;&#58;oSeek&#58;SetText&#40; cSeek &#41;\n   endif\n\n   Eval&#40; &#58;&#58;bBookMark, uBook &#41;\n   Eval&#40; &#58;&#58;bSkip, 1 - &#58;&#58;nRowSel &#41;\n\n   for nFor &#58;= 1 to nRows\n      if Eval&#40; &#58;&#58;bBookMark &#41; == uSeek\n         lRefresh &#58;= &#46;f&#46;\n         exit\n      endif\n      if Eval&#40; &#58;&#58;bSkip, 1 &#41; == 0\n         exit\n      endif\n   next\n\n   if lRefresh\n      Eval&#40; &#58;&#58;bBookMark, uSeek &#41;\n   	  if &#58;&#58;bChange != nil\n   	     Eval&#40; &#58;&#58;bChange, Self &#41;\n   	  endif\n   	  &#58;&#58;Super&#58;Refresh&#40; &#46;F&#46; &#41;\n   else\n      Eval&#40; &#58;&#58;bBookMark, uBook &#41;\n      &#58;&#58;DrawLine&#40; &#46;f&#46; &#41;\n      &#58;&#58;nRowSel &#58;= nFor\n      Eval&#40; &#58;&#58;bBookMark, uSeek &#41;\n     	if &#58;&#58;bChange != nil\n   	     Eval&#40; &#58;&#58;bChange, Self &#41;\n   	  endif\n      &#58;&#58;DrawLine&#40; &#46;t&#46; &#41;\n   endif\n\n   if &#58;&#58;oVScroll != nil\n      &#58;&#58;VSetPos&#40; Eval&#40; &#58;&#58;bKeyNo,,Self &#41; &#41;\n   endif\n\nreturn nil\n[/code:1t4bnngz]','',0,'AIA=','1t4bnngz',1,0,'',2,0,0),(41444,8789,3,456,0,'62.43.18.83',1194856896,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:4vz3byfx]Thank you.\nI have verion 07.11 and I can\'t find lRefreshOnlyData 2 times in the methode.\nRegards,\nOtto\n\nMETHOD Seek( cSeek ) CLASS TXBrowse\n\n   local uBook, uSeek\n   local nFor, nRows\n   local lRefresh\n\n   if ::bSeek == nil\n      return nil\n   endif\n\n   If cSeek == nil\n      if !Empty(::cSeek)\n         ::cSeek := \"\"\n         If ::oSeek != nil\n            ::oSeek:SetText(\"\")\n         Endif\n      endif\n      return nil\n   Endif\n\n   uBook := Eval( ::bBookMark )\n\n   if !Eval( ::bSeek, cSeek )\n      Eval( ::bBookMark, uBook )\n      MsgBeep()\n      return nil\n   endif\n\n   if ::nRowSel &gt; Eval( ::bKeyNo )\n      ::nRowsel := 1              \n   else                           \n      ::lRefreshOnlyData := .t.   //&lt;======================here\n   endif                          \n\n   ::cSeek  := cSeek\n   uSeek    := Eval( ::bBookMark )\n   nRows    := ::nDataRows\n   lRefresh := .t.\n\n   if ::oSeek != nil\n      ::oSeek:SetText( cSeek )\n   endif\n\n   Eval( ::bBookMark, uBook )\n   Eval( ::bSkip, 1 - ::nRowSel )\n\n   for nFor := 1 to nRows\n      if Eval( ::bBookMark ) == uSeek\n         lRefresh := .f.\n         exit\n      endif\n      if Eval( ::bSkip, 1) == 0\n         exit\n      endif\n   next\n\n   if lRefresh\n      Eval( ::bBookMark, uSeek )\n    if ::bChange != nil\n       Eval( ::bChange, Self )\n    endif\n      // ::lRefreshOnlyData := .t. //&lt;===================here\n      ::Super:Refresh(.f.)\n   else\n      Eval( ::bBookMark, uBook )\n      ::DrawLine( .f. )\n      ::nRowSel := nFor\n      Eval( ::bBookMark, uSeek )\n    if ::bChange != nil\n       Eval( ::bChange, Self )\n    endif\n      ::DrawLine( .t. )\n   endif\n\n   if ::oVScroll != nil\n      ::VSetPos( Eval( ::bKeyNo,,Self ) )\n   endif\n\nreturn nil[/quote:4vz3byfx]','',0,'gA==','4vz3byfx',1,0,'',456,0,0),(41445,8786,3,130,0,'141.51.32.24',1194857327,1,0,1,1,1,1,'','','Antonio,\n\nI agree with nageswaragunupudi, windows standard behavior should be the standard of fivewin. Enhanced incremental search should be optional, it can be a very useful feature.\n\nIn TCombobox, where must the patch be inserted ?','',0,'gA==','1w8kdoo4',1,0,'',130,0,0),(41446,8789,3,51,0,'80.122.88.242',1194857891,1,0,1,1,1,0,'','','Antonio, thank you this code works.\n\nRegards,\nOtto','',0,'gA==','s19nh9ra',1,0,'',51,0,0),(41447,8787,3,2,0,'87.218.146.65',1194858203,1,0,1,1,1,1,'','','Otto,\n\nIn samples\\TestXBrw.prg, STATIC FUNCTION Bitmaps( oWnd ):\n\n   oCol := oBrw:AddCol()\n   oCol:AddResource( \"CLIP\" )\n   oCol:AddResource( \"star\" )\n   oCol:bLClickHeader = { | nMRow, nMCol, nFlags, Self | If( ::nHeadBmpNo == 2, ::nHeadBmpNo := 1, ::nHeadBmpNo := 2 ), ::oBrw:Refresh() }\n\nAnd add this to TestXBrw.rc:\nSTAR BITMAP \"../bitmaps/16x16/favorite.bmp\"','',0,'gA==','w9hsas08',1,0,'',2,0,0),(41448,8786,3,2,0,'87.218.146.65',1194858543,1,0,1,1,1,1,'','','Stefan,\n\nLines 247 and 320','',0,'gA==','2rkqtpx5',1,0,'',2,0,0),(41449,8787,3,51,0,'80.122.88.242',1194858585,1,0,1,1,1,0,'','','I did it this way. But the header does not change.\nRegards,\nOtto\n\nSTATIC FUNCTION Bitmaps( oWnd )\n\n   local oChild, oBrw, oCol, oFont\n   local nFor\n\n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -8 BOLD\n\n   DEFINE WINDOW oChild TITLE \"Bitmaps on browse and bold font on first column\" MDICHILD OF oWnd\n\n   oBrw := TXBrowse():New( oWnd )\n\n   oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLCELL\n   oBrw:nColDividerStyle    := LINESTYLE_BLACK\n   oBrw:nRowDividerStyle    := LINESTYLE_BLACK\n   oBrw:lColDividerComplete := .t.\n\n\noCol := oBrw:AddCol()\noCol:AddResource( \"CLIP\" )\noCol:AddResource( \"star\" )\noCol:bLClickHeader = { | nMRow, nMCol, nFlags, Self | If( ::nHeadBmpNo == 2, ::nHeadBmpNo := 1, ::nHeadBmpNo := 2 ), ::oBrw:Refresh() }\n\n\n\n\n\n\n   oCol := oBrw:AddCol()\n   oCol:AddResource(\"CLIP\")\n   oCol:cHeader       := \"CLIP\"\n   oCol:nHeadBmpNo    := 1\n   oCol:nHeadBmpAlign := AL_RIGHT\n\n   oCol := oBrw:AddCol()\n   oCol:bStrData  := { || _FIELD-&gt;First}\n   oCol:cHeader   := \"First\"\n   oCol:oDataFont := oFont\n\n   oCol := oBrw:AddCol()\n   oCol:bStrData := { || _FIELD-&gt;Last}\n   oCol:cHeader  := \"Last\"\n\n   oCol := oBrw:AddCol()\n   oCol:AddResource(\"GREEN\")\n   oCol:AddResource(\"RED\")\n   oCol:cHeader  := \"Married\"\n   oCol:bBmpData   := { || iif( _FIELD-&gt;Married, 1, 2) }\n   oCol:bStrData   := { || iif( _FIELD-&gt;Married, \"Yes\", \"No \")}\n   oCol:bEditValue := { || _FIELD-&gt;Married }\n   oCol:nDataStyle := oCol:DefStyle( AL_RIGHT, .T.)\n   oCol:nEditType := EDIT_LISTBOX\n   oCol:aEditListTxt   := { \"Yes\", \"No\"}\n   oCol:aEditListBound := { .t., .f. }\n   oCol:bOnPostEdit := {|o, v| _FIELD-&gt;Married := v }\n\n   oBrw:SetRDD()\n\n   oBrw:CreateFromCode()\n   oChild:oClient := oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw:SetFocus()\n\n   oFont:End()\n\nRETURN NIL','',0,'gA==','24zgxaqm',1,0,'',51,0,0),(41450,8773,3,330,0,'217.37.54.49',1194858678,1,0,1,1,1,0,'','','Great but what do I need to do to get these characters stored in a dbf and then displayed on the screen. Do I need to use a combination of functions or what?\n\nMany thanks\nPeter','',0,'gA==','143zy0da',1,0,'',330,0,0),(41451,8787,3,2,0,'87.218.146.65',1194858750,1,0,1,1,1,1,'','','Otto,\n\nClick on the column to see the bitmap change, and don\'t forget to modify the RC file\n[code:pql1ahpo]\nSTATIC FUNCTION Bitmaps&#40; oWnd &#41;\n\n   local oChild, oBrw, oCol, oFont\n   local nFor\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -8 BOLD\n\n   DEFINE WINDOW oChild TITLE &quot;Bitmaps on browse and bold font on first column&quot; MDICHILD OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;AddResource&#40; &quot;CLIP&quot; &#41;\n   oCol&#58;AddResource&#40; &quot;star&quot; &#41;\n   oCol&#58;bLClickHeader = &#123; | nMRow, nMCol, nFlags, Self | If&#40; &#58;&#58;nHeadBmpNo == 2, &#58;&#58;nHeadBmpNo &#58;= 1, &#58;&#58;nHeadBmpNo &#58;= 2 &#41;, &#58;&#58;oBrw&#58;Refresh&#40;&#41; &#125;\n   oCol&#58;cHeader       &#58;= &quot;CLIP&quot;\n   oCol&#58;nHeadBmpNo    &#58;= 1\n   oCol&#58;nHeadBmpAlign &#58;= AL_RIGHT\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData  &#58;= &#123; || _FIELD-&gt;First&#125;\n   oCol&#58;cHeader   &#58;= &quot;First&quot;\n   oCol&#58;oDataFont &#58;= oFont\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData &#58;= &#123; || _FIELD-&gt;Last&#125;\n   oCol&#58;cHeader  &#58;= &quot;Last&quot;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;AddResource&#40;&quot;GREEN&quot;&#41;\n   oCol&#58;AddResource&#40;&quot;RED&quot;&#41;\n   oCol&#58;cHeader  &#58;= &quot;Married&quot;\n   oCol&#58;bBmpData   &#58;= &#123; || iif&#40; _FIELD-&gt;Married, 1, 2&#41; &#125;\n   oCol&#58;bStrData   &#58;= &#123; || iif&#40; _FIELD-&gt;Married, &quot;Yes&quot;, &quot;No &quot;&#41;&#125;\n   oCol&#58;bEditValue &#58;= &#123; || _FIELD-&gt;Married &#125;\n   oCol&#58;nDataStyle &#58;= oCol&#58;DefStyle&#40; AL_RIGHT, &#46;T&#46;&#41;\n   oCol&#58;nEditType &#58;= EDIT_LISTBOX\n   oCol&#58;aEditListTxt   &#58;= &#123; &quot;Yes&quot;, &quot;No&quot;&#125;\n   oCol&#58;aEditListBound &#58;= &#123; &#46;t&#46;, &#46;f&#46; &#125;\n   oCol&#58;bOnPostEdit &#58;= &#123;|o, v| _FIELD-&gt;Married &#58;= v &#125;\n\n   oBrw&#58;SetRDD&#40;&#41;\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\n\n   oFont&#58;End&#40;&#41;\n\nRETURN NIL\n[/code:pql1ahpo]','',0,'AIA=','pql1ahpo',1,0,'',2,0,0),(41452,8757,3,49,0,'213.82.134.66',1194859112,1,0,1,1,1,1,'','','Antonio,\nI trying to create it\nI made the bar graph style 2007\nBut I not Know how refill each tab with the gradient function \nperhaps we can create a new class Brush with the possibility to create color gradient , then we can modifiy the each prompts because the txt is not trasparent.\nI think to insert also a image on each tab as we can  with foldbmp','',0,'AIA=','1cqfe2gc',1,0,'',49,0,0),(41453,8757,3,2,0,'87.218.146.65',1194859347,1,0,1,1,1,1,'','','Silvio,\n\n&gt; But I not Know how refill each tab with the gradient function \n\nThats the real dificulty there <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2w77q3kj',1,0,'',2,0,0),(41454,8771,20,6,0,'87.3.184.203',1194860079,1,0,1,1,1,1,'','','Purtroppo senza un microesempio del problema non è possibile aiutarti. Però mi sento di escludere che la causa sia nell\'RDD (a meno che tu non stia utilizzando una versione preistorica di xHarbour).\n\nEMG','',0,'AIA=','24qpimkx',1,0,'',6,0,0),(41455,8757,3,49,0,'213.82.134.66',1194860436,1,0,1,1,1,1,'','','if we use a brush ?\n[code:2arv3vcm]#include &quot;fivewin&#46;ch&quot;\n\nCLASS TBrushNew FROM TBrush\n\n      METHOD New&#40; nColor, nColor2, lVGrad &#41; CONSTRUCTOR\n\nENDCLASS\n\n\n  METHOD New&#40; nWidth, nHeight, nColor, nColor2, lGradient &#41; CLASS TBrushNew\n\n    &#58;&#58;hBitmap &#58;= CreaBitmap2Color&#40;nWidth, nHeight, nColor, nColor2, lGradient &#41;\n    &#58;&#58;hBrush = If&#40; &#58;&#58;hBitmap != 0, CreatePatternBrush&#40; &#58;&#58;hBitmap &#41;, &#41;\n    &#58;&#58;nCount &#58;= 1\n     AAdd&#40; &#58;&#58;aBrushes, Self &#41;\n\nreturn Self\n\n\n\nfunction CreaBitmap2Color&#40; nWidth, nHeight, nColor, nColor2, lGradient &#41;\n\nlocal hDC     &#58;= CreateDC&#40; &quot;DISPLAY&quot;,0,0,0 &#41;\nlocal hDCMem  &#58;= CreateCompatibleDC&#40; hDC &#41;\nlocal hBmpMem &#58;= CreateCompatibleBitmap&#40; hDC, nWidth, nHeight &#41;\nlocal hOldBmp &#58;= SelectObject&#40; hDCMem, hBmpMem &#41;\nlocal rc      &#58;= &#123;0,0,nHeight,nWidth&#125;\n\nif lGradient == nil; lGradient &#58;= &#46;t&#46;; endif\nif nColor2 == nil; nColor2 &#58;= nColor; endif\n\nif lGradient\n \n   Gradient&#40; hDCMem, &#123;rc&#91;1&#93;,rc&#91;2&#93;,rc&#91;3&#93;+2,rc&#91;4&#93;&#125;, nColor, nColor2, &#46;t&#46; &#41;\nelse\n   Gradient&#40; hDCMem, &#123;rc&#91;1&#93;,rc&#91;2&#93;,rc&#91;3&#93;+2,rc&#91;4&#93;&#125;, nColor, nColor2, &#46;F&#46; &#41;\nendif\n\nSelectObject&#40; hDCMem, hOldBmp &#41;\nDeleteDC&#40; hDCMem &#41;\nDeleteDC&#40; hDC &#41;\n\nreturn hBmpMem[/code:2arv3vcm]\n\nCan run it ?','',0,'AIA=','2arv3vcm',1,0,'',49,0,0),(41456,8757,3,49,0,'213.82.134.66',1194860863,1,0,1,1,1,1,'','','[code:ix7srbzd]\n\nDLL32 STATIC FUNCTION CREATEDIBITMAP&#40; hDC AS LONG, hInfoH AS LONG,nFlags AS LONG, hBits AS LONG, hInfo AS LONG, nUsage AS LONG &#41; AS LONG;\nPASCAL FROM &quot;CreateDIBitmap&quot; LIB &quot;gdi32&#46;dll&quot;\n\n[/code:ix7srbzd]','',0,'AIA=','ix7srbzd',1,0,'',49,0,0),(41457,8787,3,51,0,'80.122.88.242',1194863119,1,0,1,1,1,0,'','','Antonio, thank you. Now the bmp changes.\nBest regards,\nOtto','',0,'AIA=','gof5puox',1,0,'',51,0,0),(41461,8760,6,1059,0,'190.30.56.193',1194867971,1,0,1,1,1,0,'','','Gracias, pero no me desanimo. Intento que alguien con más experiencia me ayude.\nEl 2.7 tiene todo lo que por ahora necesito, salvo el asunto del hipervínculo en cuestión.\nYo no programo profesionalmente, soy un caso medio raro ya que lo hago como hobby y ocupo en él las pocas horas que tengo libres. Esto hace que mi cerebro esté permanentemente activo y no se me mueran las neuronas, je je.\nEl único sistema que tengo funcionando es el que ocupo en mi trabajo, soy técnico electrónico dedicado a la reparación de cámaras digitales, videomovies, etc..\nLo que más me interesan son los retos en todos los órdenes de la vida, obviamente nadie nació sabiendo y la única forma que conozco de aprender, es preguntando a los que más saben.\nDe nuevo, muchas gracias por vuestra atención y, por este foro que es un punto de referencia maravilloso para el aprendizaje (por lo menos para mí).\n\nRolando <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','7mjb6bgg',1,0,'',1059,0,0),(41462,8792,6,274,0,'189.68.186.34',1194871851,1,0,1,1,1,0,'','Erros aleatórios com Windows Vista','Olá a todos\n\nmeus sistemas têm apresentado alguns erros aleatórios somente com windows Vista:\n\nClass: \'NIL\' has no exported method: GOUP\n\ne\nClass: \'NIL\' has no exported method: GODOWN\n\nutilizo  FWHX - FiveWin for xHarbour  December 2004 build\ne\nxHarbour Compiler build 0.99.2\n\nJá tentei atualizar o xHarbour porém muitos erros acontecem na compilação.\nParece que deveria então recompilar as LIBs de FWH mas não sei como faze-lo.\n\nAlguém já teve esses problemas e resolveu como?\nComo recompilar as LIBs?\n\n[]\'s\n\nRogerio','',0,'','wfpku1yl',1,0,'',274,0,0),(41463,8792,6,2,0,'87.218.146.65',1194872648,1,0,1,1,1,1,'','','Rogerio,\n\nYou should consider to upgrade FWH\n\nIn the meantime you may use this:\nfor %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fivehx.lib -+ %%f /0 /P32,,','',0,'','c58fk5z1',1,0,'',2,0,0),(41464,3391,6,1221,0,'200.161.79.239',1194873109,1,0,1,1,1,0,'','','Colegas gustaría saber si alguien ya ha utilizar la característica aquí usando esta clase, porque no me ta el logro de un error en la línea 283 de tgsay.prg:\n\n::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)\n\nAgradecido a todos\n\nLuiz Fernando','',0,'','9tl6jm51',1,0,'',1221,0,0),(41465,8792,6,274,0,'189.68.186.34',1194874121,1,0,1,1,1,0,'','','Antonio\n\nobrigado pela pronta resposta.\n\nEu pretendo atualizar o FWH e o FWPPC porém somente para fevereiro ou março pois as vendas aqui estão bem ruins.\n\nEnquanto isso tentarei a correção indicada.\nEsses comandos devem ser incluidos no arquivo .MAK ?\nou então onde?\n\n[]\'s\n\nRogerio','',0,'','1p7k2bm3',1,0,'',274,0,0),(41466,8792,6,2,0,'87.218.146.65',1194875231,1,0,1,1,1,1,'','','Rogerio,\n\n&gt; Esses comandos devem ser incluidos no arquivo .MAK ? \n\nEn un fichero .BAT','',0,'','2el2z9xa',1,0,'',2,0,0),(41467,8762,3,51,0,'80.122.88.242',1194875802,1,0,1,1,1,0,'','','I didn\'t found 2.1 in your shop.\nRegards,\nOtto','',0,'','1a91jfij',1,0,'',51,0,0),(41469,8213,7,1135,0,'189.136.185.112',1194877858,1,0,1,1,1,1,'','','Gracias Antonio\nAhora mismo las pruebo\nSaludos.\n\n[quote=&quot;Antonio Linares&quot;:aayym33n]Esta es la primera función que has localizado y creo que es la que tiene más posibilidades de funcionar bien. No le falta nada:\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcjunkies.com/Uwe/Forum.aspx/pocketpc-dev/5622/FREE-FREE-FREE-PRINTING-101-IrDA-and-Network-Printing-FREE\">http://www.pocketpcjunkies.com/Uwe/Foru ... nting-FREE</a><!-- m -->\n[code:aayym33n]\n#include &quot;FWCE&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   IrdaPrint&#40; &quot;Hello World!&quot; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\n#define _WIN32_WCE \n\n#include &lt;WinSock2&#46;h&gt;\n#include &lt;af_irda&#46;h&gt;\n\n#define NUMRETRY 10 // No está definido en el ejemplo&#46; Usamos 10 a ver que tal\n\nHB_FUNC&#40; IRDAPRINT &#41; // cText\n&#123;\n   SOCKET   sock;           // Socket bound to the server\n   DEVICELIST  devList;     // Device list\n   int    iCount = 0,       // Number of retries\n          index = 0,        // Integer index\n          iDevListLen = sizeof&#40;devList&#41;;  // Size of the device list\n   TCHAR    szError&#91; 100 &#93;; // Error message string\n   WSADATA   wsaData;\n   WORD    wVersion = MAKEWORD&#40; 1, 1 &#41;;  // Winsock Version 1&#46;1\n   BYTE    IASQueryBuff&#91; sizeof&#40; IAS_QUERY &#41; - 3 + IAS_MAX_ATTRIBNAME &#93;;\n   int    IASQueryLen = sizeof&#40; IASQueryBuff &#41;;\n   PIAS_QUERY  pIASQuery = &#40; PIAS_QUERY &#41; &amp;IASQueryBuff;\n   char    szServiceName&#91; 12 &#93;;\n   SOCKADDR_IRDA iraddr;\n   struct linger   l;   \n\n   if&#40; WSAStartup&#40; wVersion, &amp;wsaData &#41; != 0 &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;WSAStartup failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;error&quot; &#41;, 0 &#41;;\n      return;\n   &#125;\n   \n   // Create a socket that is bound to the server&#46;\n   if&#40; &#40; sock = socket&#40; AF_IRDA, SOCK_STREAM, 0 &#41; &#41; == INVALID_SOCKET &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;Allocating socket failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;error&quot; &#41;, 0 &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   // Initialize the number of devices to zero&#46;\n   devList&#46;numDevice = 0;\n\n   while&#40; &#40; devList&#46;numDevice == 0 &#41; &amp;&amp; &#40; iCount &lt;= NUMRETRY &#41; &#41;\n   &#123;\n      // Retrieve the socket option\n      if&#40; getsockopt&#40; sock, SOL_IRLMP, IRLMP_ENUMDEVICES, &#40; char * &#41; &amp;devList,\n                      &amp;iDevListLen&#41; == SOCKET_ERROR &#41;\n      &#123;\n         wsprintf&#40; szError, TEXT&#40; &quot;Server could not be located, getsockopt failed&#46; Error&#58; %d&quot;&#41;, WSAGetLastError&#40;&#41; &#41;;\n         MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n         closesocket&#40; sock &#41;;\n         WSACleanup&#40;&#41;;\n         return;\n      &#125;\n      if&#40; devList&#46;numDevice == 0 &#41;\n      &#123;\n         iCount++;\n         Sleep&#40; 1000 &#41;;\n      &#125;\n   &#125;\n\n   if&#40; iCount &gt; NUMRETRY &#41;\n   &#123;\n      MessageBox&#40; 0, TEXT&#40; &quot;Server could not be located!&quot; &#41;,  TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   memcpy&#40; &amp;pIASQuery-&gt;irdaDeviceID, devList&#46;Device&#91; 0 &#93;&#46;irdaDeviceID, 4 &#41;;\n   memcpy&#40; &amp;pIASQuery-&gt;irdaClassName,  &quot;IrLPT&quot;, 6 &#41;;\n   memcpy&#40; &amp;pIASQuery-&gt;irdaAttribName, &quot;IrDA&#58;IrLMP&#58;LsapSel&quot;, 19 &#41;;\n\n   if&#40; getsockopt&#40; sock, SOL_IRLMP, IRLMP_IAS_QUERY, &#40; char * &#41; pIASQuery,\n                   &amp;IASQueryLen&#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;getsockopt failed&#46; Error&#58; %d&quot; &#41;, WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   sprintf&#40; szServiceName, &quot;LSAP-SEL%d&quot;, pIASQuery-&gt;irdaAttribute&#46;irdaAttribInt &#41;;\n\n   memset&#40; &amp;iraddr, 0, sizeof&#40; iraddr &#41; &#41;;\n   iraddr&#46;irdaAddressFamily = AF_IRDA;\n   memcpy&#40; iraddr&#46;irdaDeviceID, devList&#46;Device&#91; 0 &#93;&#46;irdaDeviceID, 4 &#41;;\n   memcpy&#40; iraddr&#46;irdaServiceName, szServiceName, strlen&#40; szServiceName &#41; + 1 &#41;;\n\n   // Establish a connection to the socket&#46;\n   if&#40; connect&#40; sock, &#40; struct sockaddr * &#41; &amp;iraddr, sizeof&#40; iraddr &#41; &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;Connecting to the server failed&#46; Error&#58; %d&quot; &#41;, WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, MB_OK &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n   \n   // Turn on SO_LINGER\n   l&#46;l_onoff = 1;\n   l&#46;l_linger = 0;\n   if&#40; setsockopt&#40; sock, SOL_SOCKET, SO_LINGER, &#40; char * &#41; &amp;l, \n                   sizeof&#40; struct linger &#41; &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;setsockopt failed&#46; Error&#58; %d&quot; &#41;, WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, MB_OK &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n   \n   // Send a string from the client socket to the server socket&#46;\n   if&#40; send&#40; sock, hb_parc&#40; 1 &#41;, hb_parclen&#40; 1 &#41; + 1, 0 &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;Sending data to the server failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, MB_OK &#41;;\n      closesocket&#40; sock &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   // Close the socket&#46;\n   if&#40; closesocket&#40; sock &#41; == SOCKET_ERROR &#41;\n   &#123;\n      wsprintf&#40; szError, TEXT&#40; &quot;closesocket failed&#46; Error&#58; %d&quot; &#41;,\n                WSAGetLastError&#40;&#41; &#41;;\n      MessageBox&#40; 0, szError, TEXT&#40; &quot;Error&quot; &#41;, 0 &#41;;\n      WSACleanup&#40;&#41;;\n      return;\n   &#125;\n\n   WSACleanup&#40;&#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:aayym33n][/quote:aayym33n]','',0,'gIA=','aayym33n',1,0,'',1135,0,0),(41470,8793,6,1222,0,'85.155.87.121',1194878149,1,0,1,1,1,0,'','Error seleccion menú (FWH 7.11)','Buenas tardes,\n\n\nAl seleccionar cualquiera de las opciones del menú superior de la aplicacion muestra un error, actualmente uso FiveWin 7.11, Harbour y BCC55. Con versiones anteriores no pasa esto. \nGracias de antemano por la ayuda.\n\n[code:2oi2ce4n]Application\n===========\n   Path and name&#58; C&#58;\\Fuentes\\HARBOUR\\GESTORES\\McarHar\\MCARHAR&#46;exe &#40;32 bits&#41;\n   Size&#58; 1,762,304 bytes\n   Time from start&#58; 0 hours 0 mins 3 secs \n   Error occurred at&#58; 12/11/2007, 14&#58;29&#58;30\n   Error description&#58; Error BASE/1004  Message not found&#58; TMENU&#58;L2007\n   Args&#58;\n     &#91;   1&#93; = O   Object\n\nStack Calls\n===========\n   Called from&#58;  =&gt; __ERRRT_SBASE&#40;0&#41;\n   Called from&#58;  =&gt; TMENU&#58;ERROR&#40;172&#41;\n   Called from&#58; source\\rtl\\tobject&#46;prg =&gt; &#40;b&#41;HBOBJECT&#40;103&#41;\n   Called from&#58;  =&gt; TMENU&#58;MSGNOTFOUND&#40;0&#41;\n   Called from&#58;  =&gt; TMENU&#58;L2007&#40;162&#41;\n   Called from&#58;  =&gt; TMDIFRAME&#58;DRAWITEM&#40;0&#41;\n   Called from&#58;  =&gt; TMDIFRAME&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; &#46;\\source\\classes\\WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58;  =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; &#46;\\MCARHAR&#46;prg =&gt; MENUPAL&#40;193&#41;\n   Called from&#58; &#46;\\MCARHAR&#46;prg =&gt; MAIN&#40;53&#41;\n\nSystem\n======\n   CPU type&#58;               Intel&#40;R&#41; Pentium&#40;R&#41; D CPU 2&#46;80GHz 2817 Mhz\n   Hardware memory&#58; 2048 megs\n\n   Free System resources&#58; 90 %\n        GDI    resources&#58; 90 %\n        User   resources&#58; 90 %\n\n   Compiler version&#58; Harbour devel build 1&#46;1-1 Intl&#46;\n   Windows version&#58; 5&#46;1, Build 2600 Service Pack 2\n\n   Windows total applications running&#58; 40\n      1 \n      2 Menú desplegable de Autosugerir\n      3 SysFader\n      4 M\n      5 Default IME\n      6 CiceroUIWndFrame\n      7 DirectDBListenWndProc\n      8 O\n      9 AutoVPNAlertDlg\n     10 ZoneAlarm Pro\n     11 Alerta de seguridad de ZoneAlarm\n     12 TF_FloatingLangBar_WndTitle\n     13 M C A R\n     14 cmd&#46;exe\n     15 www&#46;FiveTechSoft&#46;com &#58;&#58; Ver tema - SCROLL en WINDOW - Windows Internet Explorer\n     16 Acrobat IEHelper\n     17 MCI command handling window\n     18 www&#46;FiveTechSoft&#46;com &#58;&#58; Ver tema - Nuevo FWH 7&#46;11 - Windows Internet Explorer\n     19 DDE Server Window\n     20 WOWExec\n     21 Identity Mgr Notify\n     22 Outlook Express\n     23 ControlCenter2\n     24 NMIndexStoreSvr_EndSessionHandling\n     25 CCALERT\n     26 Connections Tray\n     27 CDirectoryChangeWatcherHelperWindow\n     28 Medidor de energía\n     29 AcrobatTrayIcon\n     30 MS_WebcheckMonitor\n     31 Controlador de impresión de PaperPort\n     32 SMax4PNP\n     33 AEBalloonTip\n     34 SoundMax4\n     35 ccApp\n     36 ATI video bios poller client\n     37 BrSplSvc\n     38 ATI video bios poller\n     39 GDI+ Window\n     40 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   __ERRRT_SBASE\n     Param   1&#58;    N    13\n     Param   2&#58;    N    1004\n     Param   3&#58;    C    &quot;Message not found&quot;\n     Param   4&#58;    C    &quot;TMENU&#58;L2007&quot;\n     Param   5&#58;    N    1\n     Param   6&#58;    O    Class&#58; TMENU\n     Local   1&#58;    U    \n   TMENU&#58;ERROR\n     Param   1&#58;    C    &quot;Message not found&quot;\n     Param   2&#58;    C    &quot;TMENU&quot;\n     Param   3&#58;    C    &quot;L2007&quot;\n     Param   4&#58;    N    1004\n   &#40;b&#41;HBOBJECT\n     Param   1&#58;    O    Class&#58; TMENU\n     Param   2&#58;    C    &quot;L2007&quot;\n   TMENU&#58;MSGNOTFOUND\n     Param   1&#58;    C    &quot;L2007&quot;\n   TMENU&#58;L2007\n   TMDIFRAME&#58;DRAWITEM\n     Param   1&#58;    N    0\n     Param   2&#58;    N    1241024\n     Local   1&#58;    O    Class&#58; TMDIFRAME\n     Local   2&#58;    O    Class&#58; TMENUITEM\n     Local   3&#58;    U    \n   TMDIFRAME&#58;HANDLEEVENT\n     Param   1&#58;    N    43\n     Param   2&#58;    N    0\n     Param   3&#58;    N    1241024\n   _FWH\n     Param   1&#58;    N    1241024\n     Param   2&#58;    N    43\n     Param   3&#58;    N    0\n     Param   4&#58;    N    1241024\n     Param   5&#58;    N    1\n     Local   1&#58;    O    Class&#58; TMDIFRAME\n   WINRUN\n     Param   1&#58;    N    1836292\n   TMDIFRAME&#58;ACTIVATE\n     Param   1&#58;    C    &quot;MAXIMIZED&quot;\n     Param   2&#58;    U    \n     Param   3&#58;    U    \n     Param   4&#58;    U    \n     Param   5&#58;    U    \n     Param   6&#58;    U    \n     Param   7&#58;    U    \n     Param   8&#58;    U    \n     Param   9&#58;    U    \n     Param  10&#58;    U    \n     Param  11&#58;    U    \n     Param  12&#58;    U    \n     Param  13&#58;    U    \n     Param  14&#58;    U    \n     Param  15&#58;    U    \n     Param  16&#58;    U    \n     Param  17&#58;    U    \n     Param  18&#58;    U    \n     Param  19&#58;    U    \n     Local   1&#58;    O    Class&#58; TMDIFRAME\n     Local   2&#58;    U    \n     Local   3&#58;    U    \n   MENUPAL\n   MAIN\n     Local   1&#58;    U    \n     Local   2&#58;    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n\nDataBases in use\n================\n\nClasses in use&#58;\n===============\n     1 ERROR\n     2 HBCLASS\n     3 HBOBJECT\n     4 TBRUSH\n     5 TWINDOW\n     6 TDIALOG\n     7 TCONTROL\n     8 TGET\n     9 GET\n    10 TCLIPGET\n    11 TFONT\n    12 TICON\n    13 TMDIFRAME\n    14 TMENU\n    15 TMENUITEM\n    16 TMDICLIENT\n    17 TMSGBAR\n    18 TRECT\n    19 TREG32\n\nMemory Analysis\n===============\n      136 Static variables\n\n   Dynamic memory consume&#58;\n      Actual  Value&#58;          0 bytes\n      Highest Value&#58;          0 bytes\n[/code:2oi2ce4n]','',0,'AIA=','2oi2ce4n',1,0,'',1222,0,0),(41471,8794,3,3,0,'80.81.159.19',1194880036,1,0,1,1,1,1,'','internet ip address','Hello\n\nIs there an esay way to know the INTERNET ip address from a computer ?\n\nI think Enrico published solething on it some time ago, i did a search but did not find, \n\nif anyone has a sample, thanks for the help\n\nPS : I was previously using tip functions from xharbour but they do not work anymore, i plan to replace them with fwh functions,\n\nThanks for help,\n\nRichard','',0,'AIA=','2u8teid9',1,0,'',3,0,0),(41472,8213,7,1135,0,'189.136.46.26',1194881331,1,0,1,1,1,1,'','','Antonio:\nTanto en dispositivo como el emulador marcan el mismo error:\nAllocating socket failed Error:10047. No es un error crítico, y en cada intento lo marca. \n\nAlguna Idea?\n\n\n[quote=&quot;Antonio Linares&quot;]Esta es la primera función que has localizado y creo que es la que tiene más posibilidades de funcionar bien. No le falta nada:\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcjunkies.com/Uwe/Forum.aspx/pocketpc-dev/5622/FREE-FREE-FREE-PRINTING-101-IrDA-and-Network-Printing-FREE\">http://www.pocketpcjunkies.com/Uwe/Foru ... nting-FREE</a><!-- m -->\n[code]...','',0,'','1fe3fvw2',1,0,'',1135,0,0),(41473,8213,7,1135,0,'189.136.46.26',1194881996,1,0,1,1,1,1,'','','Aparentemente el error corresponde a:\n[Error=10047] Address family not supported by protocol family \n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[quote=&quot;Arturo Lopesoria&quot;:17xwtwhw]Antonio:\nTanto en dispositivo como el emulador marcan el mismo error:\nAllocating socket failed Error:10047. No es un error crítico, y en cada intento lo marca. \n\nAlguna Idea?\n\n\n[quote=&quot;Antonio Linares&quot;:17xwtwhw]Esta es la primera función que has localizado y creo que es la que tiene más posibilidades de funcionar bien. No le falta nada:\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcjunkies.com/Uwe/Forum.aspx/pocketpc-dev/5622/FREE-FREE-FREE-PRINTING-101-IrDA-and-Network-Printing-FREE\">http://www.pocketpcjunkies.com/Uwe/Foru ... nting-FREE</a><!-- m -->\n[code]...[/quote:17xwtwhw][/quote:17xwtwhw]','',0,'gA==','17xwtwhw',1,0,'',1135,0,0),(41474,8762,3,58,0,'84.149.101.203',1194884019,1,0,1,1,1,0,'','','Fernando,\n\ni just purchased ViaCoral 2.1  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\nDetlef','',0,'gA==','1jlln2or',1,0,'',58,0,0),(41475,8694,3,394,0,'207.219.124.134',1194884932,1,0,1,1,1,0,'','','That is why I proposed to embedded id of the usb drive.','',0,'gA==','2axdttff',1,0,'',394,0,0),(41476,8795,6,1214,0,'189.143.113.77',1194885911,1,0,0,0,1,0,'','Abrir base de datos Nativa de Advantage','Hola buen día a la comunicad.\n\nTengo el siguiente problema al intentar abrir una tabla de mi base de datos qu acabo de migrar de DBF\'s a ADT\'s de advantage, pero al realizar el comando USE \n\nUSE (\"\\\\arturocervantes\\bw\\ads\\estados\") NEW ALIAS Estados\n\nMe envia el siguiente mensaje de error.\n\nError ADSADT/5004  Open error: \\\\arturocervantes\\bw\\ads\\estados.adt\n\nLa configuración que tengo es la siguiente:\n   \n   REQUEST _ADS, ADSKeyCount, ADSKeyNo, OrdKeyCount, OrdKeyNo\n   RddRegister(\"ADS\",1)\n   RddSetDefault(\"ADS\")\n   AdsRightsCheck(.F.)\n   AdsSetServerType(4) //SET SERVER AIS\n   AdsSetFileType(2)\n\nAl parecer todo esta bien, pero deseo saber cual es el motivo de ese error. También la ruta es correcta \n\nPor su atención gracias y reciban un cordial saludo.\n\nAtentamente\nArturo Cervantes.\nMéxico','',0,'gA==','24opr0j5',1,0,'',1214,0,0),(41477,8794,3,49,0,'62.13.172.67',1194886667,1,0,1,1,1,1,'','','[code:3ldq7ue1]#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n \n   local oSocket &#58;= TSocket&#40;&#41;&#58;New&#40; 2000 &#41;\n   local cIp &#58;= oSocket&#58;cIPAddr \n   ?cIp\n   oSocket&#58;End&#40;&#41; \n   \nreturn NIL[/code:3ldq7ue1]','',0,'AIA=','3ldq7ue1',1,0,'',49,0,0),(41478,8762,3,868,0,'219.64.121.60',1194887768,1,0,1,1,1,1,'','','Mr Fernando\n\nI too placed order and eagerly awaiting the product.','',0,'AIA=','27488d8c',1,0,'',868,0,0),(41479,8796,3,34,0,'68.5.217.82',1194887803,1,0,1,1,1,1,'','xBrowse Header : Themes','Is it possible to have the xbrowse header respond to the themes as with other controls ( message bar, menus, etc ), or is it possible to paint the header with a gradient ( like tsbrowse ) ?','',0,'AIA=','3bhlivmr',1,0,'',34,0,0),(41480,8213,7,2,0,'87.218.146.65',1194890209,1,0,1,1,1,1,'','','Arturo,\n\nEsta es la línea que falla:\nif( ( sock = socket( AF_IRDA, SOCK_STREAM, 0 ) ) == INVALID_SOCKET )\n\na ver que podemos cambiar ahí...','',0,'AIA=','3dwknb3l',1,0,'',2,0,0),(41481,8793,6,2,0,'87.218.146.65',1194890430,1,0,1,1,1,1,'','','Estás usando una Clase TMenu modificada por ti ?','',0,'AIA=','254v73o6',1,0,'',2,0,0),(41482,8795,6,661,0,'189.155.207.62',1194890600,1,0,1,1,1,0,'','','Arturo,\n\nintenta conectandote primero al diccionario de datos , luego has el USE sin ruta ya que la toma del diccionario...\n\nsaludos\nalex','',0,'AIA=','71he5d0a',1,0,'',661,0,0),(41483,8694,3,2,0,'87.218.146.65',1194890712,1,0,1,1,1,1,'','','Mike,\n\nBut the usb drive id is defined by software or hardware ?\n\nWhen you do a dir of it, you get its id. Will it will remain the same if we reformat it ?','',0,'AIA=','eb9ch1ox',1,0,'',2,0,0),(41484,8794,3,2,0,'87.218.146.65',1194891239,1,0,1,1,1,1,'','','Richard,\n\nThis may help:\n<!-- m --><a class=\"postlink\" href=\"http://www.paulsadowski.com/sadowski/currentip.htm\">http://www.paulsadowski.com/sadowski/currentip.htm</a><!-- m -->\n\nSilvio,\n\nYour code returns the local IP not the public IP on Internet','',0,'AIA=','1thctdoq',1,0,'',2,0,0),(41485,8794,3,49,0,'62.13.172.67',1194891723,1,0,1,1,1,1,'','','Antonio, sorry I not read good the text of Richard , sorry','',0,'AIA=','1hfnvzx3',1,0,'',49,0,0),(41486,8213,7,1135,0,'189.136.46.26',1194892040,1,0,1,1,1,1,'','','Asi es, al abrir el socket, el motivo aparentemente se describe asi:\n\nERROR: WSAEAFNOSUPPORT 10047\n \nAddress family not supported by protocol family. \nAn address incompatible with the requested protocol was used. All sockets are created with an associated address family (that is, AF_INET for Internet Protocols) and a generic protocol type (that is, SOCK_STREAM). This error is returned if an incorrect protocol is explicitly requested in the socket call, or if an address of the wrong family is used for a socket, for example, in sendto\n\nAhora mismo estoy incluyendo los cambios que en el foro de origen hizo AlanMcFlane respecto del protocolo, para atacar todo junto de una vez.\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\n[quote=&quot;Antonio Linares&quot;:2crs6w0f]Arturo,\n\nEsta es la línea que falla:\nif( ( sock = socket( AF_IRDA, SOCK_STREAM, 0 ) ) == INVALID_SOCKET )\n\na ver que podemos cambiar ahí...[/quote:2crs6w0f]','',0,'gA==','2crs6w0f',1,0,'',1135,0,0),(41487,8793,6,1222,0,'85.155.87.121',1194892230,1,0,1,1,1,0,'','','SIP!  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\n\nHabía tomado la clase y modificado los literales.\nMuchas gracias Antonio.','',0,'gA==','6y8sxhwf',1,0,'',1222,0,0),(41489,8694,3,394,0,'207.219.124.134',1194894480,1,0,1,1,1,0,'','','To Test I checked the serial before and after format of the use drive and it returned the same.\nI also tried formatting it on an ex pro station and a vista home station and it returned the same.\n\nSo I believe that it is returning the hardware id.','',0,'gA==','1pso7wwl',1,0,'',394,0,0),(41490,8694,3,2,0,'87.218.146.65',1194894899,1,0,1,1,1,1,'','','&gt; So I believe that it is returning the hardware id.\n\nIn that case then its a valid tool for software protection, though no extra software should be required. Just check the usb drive ID, encrypt it and store it.','',0,'gA==','1y0gmvig',1,0,'',2,0,0),(41491,8797,6,850,0,'201.255.115.87',1194896014,1,0,1,1,1,0,'','Para Antonio Linares','Antonio, estoy por actualizar el FWH con la compra del FTDN, y ademas comprar el xHarbour comercial. EL FWH viene para trabajar con el xHarbour comercial o hay que recompilar?\n\nGracias\n\nAndres','',0,'gA==','3ewwq2e2',1,0,'',850,0,0),(41492,8762,3,58,0,'84.149.101.203',1194900510,1,0,1,1,1,0,'','','Fernando,\n\ni already downloaded ViaCoral.\nImpationally i tried to build the first example with \n\'do welcome xhb\'.\n\nAfter building the eample the exe file complains that pcode version 9 is no more supported.\n\nCan you give me instructions, please how to rebuild your lib for xHarbour and Borland C++?\n\nThanks and Regards,\nDetlef','',0,'gA==','2ol5h4e0',1,0,'',58,0,0),(41494,8798,3,394,0,'207.219.124.134',1194901562,1,0,1,1,1,0,'','Dll Question','Is it possible to make a dll with Fivewin that can be read by any other language and uses ads server, sockets etc.','',0,'gA==','2z3jeuga',1,0,'',394,0,0),(41495,8795,6,1214,0,'189.143.113.77',1194901865,1,0,0,0,1,0,'','','alex_cyr.\n\nGracias efectivamente resolvi el problema de esa forma no se me ocurrio haberlo hecho así, muchas gracias .\n\nSaludos.','',0,'gA==','evf75rjk',1,0,'',1214,0,0),(41496,8794,3,6,0,'79.19.244.224',1194902626,1,0,1,1,1,1,'','Re: internet ip address','[code:2lt688sr]FUNCTION MAIN&#40;&#41;\n\n    LOCAL aHosts\n\n    INETINIT&#40;&#41;\n\n    aHosts = INETGETHOSTS&#40; NETNAME&#40;&#41; &#41;\n\n    INETCLEANUP&#40;&#41;\n\n    ? aHosts&#91; 2 &#93;\n\n    RETURN NIL[/code:2lt688sr]\n\nEMG','',0,'AIA=','2lt688sr',1,0,'',6,0,0),(41497,8795,6,18,0,'200.67.188.236',1194902661,1,0,1,1,1,1,'','','[quote=&quot;arturo_cervantes&quot;:9r24vsof]alex_cyr.\n\nGracias efectivamente resolvi el problema de esa forma no se me ocurrio haberlo hecho así, muchas gracias .\n\nSaludos.[/quote:9r24vsof]\n\nCómo haces la conexión al diccionario de datos ?','',0,'gA==','9r24vsof',1,0,'',18,0,0),(41498,8794,3,2,0,'87.218.146.65',1194903508,1,0,1,1,1,1,'','','Enrico,\n\nI get this error:\n[code:nrbpzs9r]\n   Error description&#58; Error BASE/1132  Bound error&#58; array access\n   Args&#58;\n     &#91;   1&#93; = A   &#123; &#46;&#46;&#46; &#125;\n     &#91;   2&#93; = N   2\n[/code:nrbpzs9r]\nUsing [ 1 ] then I get the local IP','',0,'AIA=','nrbpzs9r',1,0,'',2,0,0),(41499,8694,3,2,0,'87.218.146.65',1194903654,1,0,1,1,1,1,'','','Jeff, Mike,\n\nIf we are able to locate the UDB pendrive ID then we can protect the application using standard FWH code <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','v292gsnn',1,0,'',2,0,0),(41500,8797,6,2,0,'87.218.146.65',1194903747,1,0,1,1,1,1,'','','Andrés,\n\nFWH es compatible con xHarbour comercial, directamente, sin necesidad de recompilar. Gracias,','',0,'AIA=','3r2krsr8',1,0,'',2,0,0),(41501,8798,3,2,0,'87.218.146.65',1194903857,1,0,1,1,1,1,'','','Mike,\n\nYes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease review this docs:\n\n/*\n * $Id: windll.txt 5836 2002-12-28 00:32:44Z brianhays $\n */\n\nWindows 32-bit DLLs with Harbour code\n=====================================\n\nPrograms created with Clipper or Harbour are traditionally a\nmonolithic EXE containing all executable code.  This includes\nthe Virtual Machine (VM) and the RunTime Library (RTL) as well as\nyour own code.  Running under Windows (Win32) with Harbour, you\ncan now also create and use Windows DLLs that contain PRG code.\n\nHarbour supports Win32 DLLs in 3 ways.\n\n  1) Self-contained DLLs containing functions from any platform.\n     (These are not what we call a \"Harbour.dll\", although they may\n     be named that. The DLL entry points are different.)\n     These have the VM/RTL inside them and can be used by any other\n     Windows program. You can create a .lib for static linking,\n     or use GetProcAddress as in any standard Win32 DLL.\n     Calling Harbour/Prg functions directly is limited to\n     those that take no parameters unless you include C functions\n     in the DLL that take parameters and then call the PRG-level\n     code.\n\n     To do static linking, do this to create the .lib:\n        implib harbour.lib harbour.dll\n     For the Borland C platform, use that library and import32.lib\n     and cw32.lib from Borland, and you are ready to go.\n\n     See contrib\\delphi\\hbdll for an example of a Delphi program that can\n     use all of Harbour\'s functionality by accessing a self-contained DLL.\n     BLD_SDLL.BAT is used there to create the DLL.\n\n\n  2) PCode EXEs using a Harbour.dll\n\n     A Harbour.dll is designed to be called from a Harbour app.\n     A pcode EXE is a small Harbour executable that does not contain the\n     VM/RTL. To execute its functions, it must load and access a\n     Harbour.dll.\n     If you want dynamic linking, then use this to execute a Harbour\n     dynamically loaded pcode DLL function or procedure:\n        HB_DllDo( &lt;cFuncName&gt; [,&lt;params...&gt;] ) --&gt; [&lt;uResult&gt;]\n\n     This lets you have all your common code in a DLL, and have lots\n     of small EXEs that use it.  Realize however that, even though this\n     may be a nice way to manage your code, each EXE may\n     load its own image of the Harbour.dll into memory at runtime.\n     In terms of Windows memory, there may not be a benefit to using pcode\n     EXEs over monolithic EXEs. But it may be a worthwhile maintenance\n     benefit to have lots of replaceable small exes.\n\n  3) PCode DLLs used from traditional EXEs\n     A pcode DLL does not contain the VM/RTL.\n     It is a library of Harbour-compiled PRG code that uses the VM/RTL\n     of the EXE that calls it.  This has the benefit of having\n     replaceable modules in DLLs that don\'t necessarily require updating\n     your EXE.\n\n\nThe following is clipped from a msg by Antonio Linares to the Harbour\ndeveloper list explaining some of the details:\n\nPlease notice that there are three different Windows DLL entry points:\n   + source/vm/\n   * maindll.c     Windows self-contained DLL entry point\n   * maindllh.c    Windows Harbour DLL entry point  (harbour.dll)\n   * maindllp.c    Windows pcode DLL entry point and VM/RTL routing functions\n\n   &gt;    * maindll.c     Windows self-contained DLL entry point\n   To produce Harbour code, as DLLs, that may be used\n   from other programming languages applications (as VB,\n   Delphi, C++, etc...)\n\n   &gt;    * maindllh.c    Windows Harbour DLL entry point  (harbour.dll)\n   To produce Harbour.dll, to be just used from small pcode Harbour EXEs\n\n   &gt;    * maindllp.c    Windows pcode DLL entry point and VM/RTL routing\n   To produce small pcode DLLs, to be used just from Harbour EXE apps.\n   maindllp.c is the entry point for the Harbour pcode DLLs. pcode DLLs\n   are quite small DLLs, that just contain pcode and/or C (using extend\n   api) functions.\n\n   mainwin.c is the entry point for Windows EXEs, not for DLLs.\n\n   You may use maindll.c, maindllh.c or maindllp.c based on\n   your needs.\n\n   If you are looking to build a Harbour.dll, then you must use\n   maindllh.c','',0,'','2gw4vkdo',1,0,'',2,0,0),(41502,8762,3,58,0,'84.149.101.203',1194904699,1,0,1,1,1,0,'','','Fernando,\n\nthanks for your fast support.\n\nIt\'s working now and the screens look like a dream.\nA really great product.\n\nThanks and regards,\nDetlef','',0,'','jbez0mlm',1,0,'',58,0,0),(41503,8795,6,1214,0,'189.143.113.77',1194905590,1,0,0,0,1,0,'','','Vikthor\n\nLa conexion al diccionario de datos la hago de la siguiente forma:\n\nAdsConnect60( \"\\\\servidor\\ads_data\\MyDiccionario.add\", 3,\"ADSSYS\",&lt;cPassword&gt;)\n\nEn caso de haberle puesto password en el parametro &lt;cPassword&gt; iria este.\n\nSaludos.\n\nUna más que deseara saber: como puedo abrir una vista? ya que el USE intenta abrir un archivo adt y la vista como tal no existe solamente en el diccionario de datos.\n\nAgradecere su ayuda.','',0,'','2l2ra7ra',1,0,'',1214,0,0),(41504,8795,6,661,0,'189.155.207.62',1194906324,1,0,1,1,1,0,'','','Arturo, \n\npara abrir una vista previamente creada en el architect yo uso ADO\n\n oConexionAdo:Open(\"Provider=Advantage.OLEDB.1;User ID=adssys;Data Source=diccionario.add;Persist Security Info=False;ServerType=ADS_REMOTE_SERVER;LockMode=ADS_COMPATIBLE_LOCKING\")\n oComando:ActiveConnection(oConexionAdo)\n   \n[b:u2589qh6]   cQuery:= \"select * from vista\"[/b:u2589qh6]\n   oComando:CommandText := cQuery\n                             \n   oRecordSet := oComando:Execute()\n\n\nespero te sirva,\nsaludos','',0,'QA==','u2589qh6',1,0,'',661,0,0),(41505,8694,3,2,0,'87.218.146.65',1194908188,1,0,1,1,1,1,'','','This code detects the USB pendrives. Next step, get their IDs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:2yebt92a]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define DRIVE_REMOVABLE   2\n\nfunction Main&#40;&#41;\n\n   local nBitDrives &#58;= GetLogicalDrives&#40;&#41;, n, cDrive\n   \n   for n = 1 to 32\n      if lAnd&#40; nBitDrives, 2 ^ &#40; n - 1 &#41; &#41;\n         cDrive = Chr&#40; Asc&#40; &quot;A&quot; &#41; - 1 + n &#41; + &quot;&#58;\\&quot;\n         if n != 1 &#46;and&#46; GetDriveType&#40; cDrive &#41; == DRIVE_REMOVABLE        \n            MsgInfo&#40; &quot;USB pendrive&#58; &quot; + CRLF + cDrive &#41;\n         endif   \n      endif\n   next\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; GETLOGICALDRIVES &#41;\n&#123;\n   hb_retnl&#40; GetLogicalDrives&#40;&#41; &#41;;\n&#125;\n\nHB_FUNC&#40; GETDRIVETYPE &#41;\n&#123;\n   hb_retnl&#40; GetDriveType&#40; hb_parc&#40; 1 &#41; &#41; &#41;;\n&#125;   	\n\n#pragma ENDDUMP\n[/code:2yebt92a]','',0,'AIA=','2yebt92a',1,0,'',2,0,0),(41506,8694,3,2,0,'87.218.146.65',1194908915,1,0,1,1,1,1,'','','To get the USB pendrive is as easy as (in the above code):\n\n            MsgInfo( \"USB pendrive: \" + CRLF + cDrive, nSerialHD( cDrive ) )\n\nGetting closer to have our own based USB pendrive copy protection system... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2bfl4u24',1,0,'',2,0,0),(41507,8694,3,2,0,'87.218.146.65',1194909764,1,0,1,1,1,1,'','','Mike,\n\nI have formated a pendrive several times here, and everytime it gets a new volume ID. A complete format, not a quick one.\n\nNot good...','',0,'AIA=','ym063z9x',1,0,'',2,0,0),(41508,8795,6,18,0,'200.67.188.236',1194912956,1,0,1,1,1,1,'','','ahhh, ok, muchas gracias.\n\nAprovechando.... algún tip para migrar la información de tablas .dbf a .adt ?\n\n[quote=&quot;arturo_cervantes&quot;:24fy5l73]Vikthor\n\nLa conexion al diccionario de datos la hago de la siguiente forma:\n\nAdsConnect60( \"\\\\servidor\\ads_data\\MyDiccionario.add\", 3,\"ADSSYS\",&lt;cPassword&gt;)\n\nEn caso de haberle puesto password en el parametro &lt;cPassword&gt; iria este.\n\nSaludos.\n\nUna más que deseara saber: como puedo abrir una vista? ya que el USE intenta abrir un archivo adt y la vista como tal no existe solamente en el diccionario de datos.\n\nAgradecere su ayuda.[/quote:24fy5l73]','',0,'gA==','24fy5l73',1,0,'',18,0,0),(41509,8694,3,2,0,'87.218.146.65',1194914430,1,0,1,1,1,1,'','','Inspecting the pendrive from Linux (Ubuntu) it seems as a pendrive has a hardware \"serial\" <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> so if we could get that serial from code...','',0,'gA==','1a62qlwm',1,0,'',2,0,0),(41510,8762,3,34,0,'68.5.217.82',1194918111,1,0,1,1,1,1,'','Tabs or Folders','You\'ve upgraded in 2.1 to add Office 2007 effects to Tabs but how about for folders ?\n\nI have a nice layout with folders / dialogs that make editing quite easy.  I haven\'t tried this with the Tab control ... but since that control does not appear to support Dialogs it would not seem to be the same.\n\nAre you planning to provide an enhancement for the Folder class also ?\n\nThanks.','',0,'gA==','6wnkffia',1,0,'',34,0,0),(41512,8786,3,130,0,'141.51.32.24',1194942208,1,0,1,1,1,1,'','','Ok, thanks','',0,'gA==','3dumgvgm',1,0,'',130,0,0),(41513,8799,3,49,0,'213.82.134.66',1194943057,1,0,1,1,1,1,'','BAR 2007','when I write a say into BAR  style 2007  the say not is trasparent \nwhen I insert the clausole trasparent to say it make error','',0,'gA==','1gemvwjw',1,0,'',49,0,0),(41514,8796,3,130,0,'141.51.32.24',1194943075,1,0,1,1,1,1,'','','Tim,\n\nto paint the header with a gradient change these lines in the class TXBrwColumn, Method PaintHeader()\n\n[code:1zd9mvky]//FillRect&#40; hDC, &#123;nRow, nCol, nRow + nHeight, nCol + nWidth&#125;, hBrush &#41;[/code:1zd9mvky]\nto\n[code:1zd9mvky]Gradient &#40;hDC, &#123;nRow, nCol, nRow+nHeight, nCol+nWidth&#125;, aColors&#91;2&#93;,nRGB&#40;245,245,245&#41;, &#46;t&#46;&#41; // SH\n[/code:1zd9mvky]\nand then before drawing the text:\n\n[code:1zd9mvky]SetBkMode &#40;hDC, 1&#41;     // transparent SH\n   DrawTextEx&#40; hDC, cHeader,&#46;&#46;&#46;&#46;&#46;&#46;&#46; &#41;\n[/code:1zd9mvky]\n\nThe second color is hardcoded at the moment, there would have been to many changes in the class.','',0,'AIA=','1zd9mvky',1,0,'',130,0,0),(41515,8771,20,1009,0,'82.187.221.169',1194943611,1,0,1,1,1,0,'','','fivewin 7.1 con xHarbour 0.99.71\nnon volevo stressarti con le ricerca di un possiblile errore, inserirò ulteriori punti di controllo con salvataggio dati in un file log poi magari più avanti ci risentiamo.\n\nil mio dubbio è dato dal fatto che partendo da comtmp vuoto e ripetendo più volte la stessa procedura non ottengo sempre lo stesso risultato.\n\ncome ti dicevo Aggcomm() è la funzione chiamata dai campi memo, di circa  300 righe di codice, con diverse select odbc di controllo, che chiama in diversi punti la funzione qui sotto che aggiunge righe al file comtmp dove io ho il risultato finale.\n\nDbSelectArea(\"ComTmp\")\nDbGoBottom()\n\nWHILE aComTes[1] == comtmp-&gt;idcomtes .AND. !Bof()     // controllo se esiste su tutto il file, stesso numero commessa.\n   IF comtmp-&gt;idartico = oArtico:id .AND. cGruppo = __gruppi__ .AND. (cSttGrp = NIL .OR. (cSttGrp # NIL .AND. cSttGrp = __sttgrp__))\n      lExist := .t.\nEXIT\n   ENDIF\n   DbSkip(-1)\nEND\n\nIF lExist      // componente già aggiunto da prec. calcolo.\n   IF RecLock(1, \"comtmp\")\n      comtmp-&gt;__qtaord__ += nQuantPri\n      comtmp-&gt;qta1       := comtmp-&gt;__qtaord__ + (comtmp-&gt;__qtaord__ * nQtaPlus / 100)\n      DbUnLock()\n   ELSE\n      DbSetOrder(nOrdine)\nReturn(lExist)\n   ENDIF\nELSE\n   comtmp-&gt;(DbAppend())\n   comtmp-&gt;__gruppi__ := cGruppo\n   comtmp-&gt;__qtaord__ := nQuantPri\n   comtmp-&gt;__codart__ := If(oArtico:codice = NIL, \"\", oArtico:codice)\n   comtmp-&gt;__idarti__ := If(oArtico:id = NIL, 0, oArtico:id)\n   comtmp-&gt;__idlots__ := IdArt2IdLot(comtmp-&gt;__idarti__)\n\n   oSelect := oOdbc:Query( \"SELECT CAST(prezzo * 10000.0 AS BigInt) / 10000.0 AS prezzo, \" +;\n           \"idlistes FROM lisrig WHERE idlistes = \" + cValToChar(aComTes[7]) +;\n           \"AND idartico = \" + cValToChar(comtmp-&gt;__idlots__) );       oSelect:Open()\n   IF oSelect:RecCount() = 0\n      cText := LoadValue(1180, CH) + AllTrim(oArtico:codice) + \" (\" +;  // \"Manca articolo in riga di listino (LisRig): \"\n      cValToChar(aComTes[8]) + \"  \" + dToc(cTod(DT_1899) + aComTes[9]) + \"  \" + dToc(cTod(DT_1899) + aComTes[10]) + \")\" + CRLF\n   ENDIF\n\n   comtmp-&gt;prezzo  := oSelect:prezzo\n   comtmp-&gt;idlistes:= oSelect:idlistes\n   oSelect:End();    DbSelectArea(\"ComTmp\")\n\n   comtmp-&gt;idcomtes:= aComTes[1]\n   comtmp-&gt;idartico:= comtmp-&gt;__idarti__\n   comtmp-&gt;idiva   := aComTes[5]\n   comtmp-&gt;qta1    := nQuantPri + (nQuantPri * nQtaPlus / 100)\n   comtmp-&gt;oripre  := If(oArtico:oripre = NIL, \"\", oArtico:oripre)\nENDIF','',0,'','3h2pjjt7',1,0,'',1009,0,0),(41516,8800,3,51,0,'80.122.88.242',1194944223,1,0,1,1,1,0,'','Preview-How  to pass a parameter','Preview\nCould someone suggest an easy way to pass a parameter to preview?\n\nIn certain cases I need more buttons than the standard preview menu has.\nHow could I pass a parameter  for example cCalledFrom to rpreview to know which function called the preview  to adapt the menu.\n\nIf cCalledFrom = “Billing”\n\n        DEFINE BUTTON RESOURCE \"Printer\" OF oBar GROUP ;\n             MESSAGE TXT_PRINT_CURRENT_PAGE            ;\n             ACTION f_name()                        ;\n          prompt \"T e s t\"             TOOLTIP Strtran(TXT_PRINT,\"&amp;\",\"\")\n\nendif\n\nThanks in advance\nOtto\n[img:265zbxfn]http&#58;//www&#46;atzwanger&#46;com/fw/preview&#46;jpg[/img:265zbxfn]','',0,'CA==','265zbxfn',1,0,'',51,0,0),(41517,8800,3,3,0,'80.81.159.19',1194946534,1,0,1,1,1,1,'','Re: Preview-How  to pass a parameter','Otto\n\nI write to a txt file username.txt and the preview checks to see if the file is there, it erases it at the end\n\nHth\n\nRichard','',0,'CA==','2miycgx7',1,0,'',3,0,0),(41518,8800,3,51,0,'80.122.88.242',1194948484,1,0,1,1,1,0,'','','Richard, thank you for your tip.\nHow do you care if the txt is deleted after printing. What if the system crashes.\n\nRegards,\nOtto','',0,'CA==','2mffym4g',1,0,'',51,0,0),(41519,8800,3,3,0,'80.81.159.19',1194949077,1,0,1,1,1,1,'','','Otto\n\nif i understood correctly your question, the data is needed to be used by the preview, so it has to be deleted after printing in order to load some other data if needed next time.\n\nThe file i use is unique per user, so the information is there. The name of the file is retreived from netname() + \'.txt\' . i use it to pass to the preview the customer\'s email from the customer file and then the preview email\'s at the correct address.\n\nAnother solution would be to chane the preview and add data to the classs , cargo or anything else.\n\nThis depends what you want to do at preview\n\nHth\n\nRichard','',0,'CA==','14h0m4n3',1,0,'',3,0,0),(41520,8801,18,1146,0,'87.223.174.155',1194949147,1,0,1,1,1,0,'','error de impresión en red','Hola:\n\nResulta que si un ordenador que accede a una impresora de red, y sólo tiene esa impresora, a la hora de generar un REPORT o usar la clase TPRINT no funciona, creo que no coge los parámetros de la misma para generar el metafile.\n\nSalu2','',0,'CA==','1x83dth5',1,0,'',1146,0,0),(41521,8800,3,6,0,'87.16.213.122',1194950833,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:3rxa0j35]Another solution would be to chane the preview and add data to the classs , cargo or anything else.[/quote:3rxa0j35]\n\nOr, better, inherit from TPreview and add to the inherited class what you need to.\n\nEMG','',0,'gA==','3rxa0j35',1,0,'',6,0,0),(41522,8799,3,6,0,'87.16.213.122',1194951032,1,0,1,1,1,1,'','Re: BAR 2007','You have to use oBar:Say() method instead.\n\nEMG','',0,'gA==','1phkgxmh',1,0,'',6,0,0),(41524,8800,3,51,0,'80.122.88.242',1194951399,1,0,1,1,1,0,'','','Thank you for your answers.\n\nEnrico, do you have some code how this could be done.\n\nDo I have to start in printer.prg which calls rpreview?\n\nDo you think this could work?\n\nadd xPreview to printer.prg\n\n METHOD xPreview() INLINE If( ::lMeta .and. Len( ::aMeta ) &gt; 0 .and. ::hDC != 0,;\n                   xRPreview( Self ), ::End() )\n\nand add  xRPreview.prg with the changes.','',0,'gA==','1s78t77u',1,1194951638,'',51,1,0),(41526,8800,3,6,0,'87.16.213.122',1194951571,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:3u8o63in]Enrico, do you have some code how this could be done.[/quote:3u8o63in]\n\nNo, sorry.\n\n[quote=&quot;Otto&quot;:3u8o63in]Do I have to start in printer.prg which calls rpreview?[/quote:3u8o63in]\n\nYes, TPreview is used by TPrinter so you have to inherit a class from TPrinter also, I\'m afraid.\n\nEMG','',0,'gA==','3u8o63in',1,0,'',6,0,0),(41527,8800,3,51,0,'80.122.88.242',1194951683,1,0,1,1,1,0,'','','Sorry Enrico, I edited my post. Could you please read the post again?','',0,'gA==','2oxqgypp',1,0,'',51,0,0),(41528,8794,3,6,0,'87.16.213.122',1194951714,1,0,1,1,1,1,'','','Works fine here. Are you using Harbour or xHarbour?\n\nEMG','',0,'gA==','1bzcy9cp',1,0,'',6,0,0),(41530,8800,3,6,0,'87.16.213.122',1194951902,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:gvdu7jwp]Do you think this could work?\n\nadd xPreview to printer.prg\n\n METHOD xPreview() INLINE If( ::lMeta .and. Len( ::aMeta ) &gt; 0 .and. ::hDC != 0,;\n                   xRPreview( Self ), ::End() )\n\nand add  xRPreview.prg with the changes.[/quote:gvdu7jwp]\n\nYes, but the problem in creating a modified copy of rpreview.prg is that you have to apply to it any changes/fixes made later to the original file. I recommend inheritance instead.\n\nEMG','',0,'gA==','gvdu7jwp',1,1194958181,'',6,1,0),(41531,8800,3,51,0,'80.122.88.242',1194952226,1,0,1,1,1,0,'','','Enrico, if you inherit a class could you also overwrite the new method?','',0,'gA==','12enq6i6',1,0,'',51,0,0),(41533,8794,3,2,0,'87.218.146.167',1194952811,1,0,1,1,1,1,'','','Enrico,\n\nxHarbour, as Harbour does not provide those functions afaik','',0,'gA==','302taatk',1,0,'',2,0,0),(41534,8800,3,2,0,'87.218.146.167',1194953033,1,0,1,1,1,1,'','','Otto,\n\nyes','',0,'gA==','3lkot92x',1,0,'',2,0,0),(41535,8794,3,104,0,'201.58.147.149',1194953089,1,0,1,1,1,0,'','','Hello,\n\nI use like this:  \n\n[code:17x3t6ej]\n\n#include &quot;fivewin&#46;ch&quot;\n\nfunction MAIN\n\nmsgstop&#40; getip&#40;&#41; &#41;\n\nreturn NIL\n\nFunction GetIP&#40;&#41;\n\nLocal cVar1\n\nWsaStartUp&#40;&#41;\n\ncVar1 &#58;= GetHostByName&#40; GetHostName&#40;&#41; &#41;\n\nWsaCleanUp&#40;&#41;\n\nreturn cVar1\n[/code:17x3t6ej]\n\n...or like this:\n\n[code:17x3t6ej]\n\nFUNCTION MAIN&#40;&#41; \n\n    LOCAL aHosts \n\n    INETINIT&#40;&#41; \n\n    aHosts = INETGETHOSTS&#40; NETNAME&#40;&#41; &#41; \n\n    INETCLEANUP&#40;&#41; \n\n*   ? aHosts&#91; 2 &#93; \n    ? valtoprg&#40; aHosts &#41;\n[/code:17x3t6ej]\n\nRegards,\n\nRossine.','',0,'AIA=','17x3t6ej',1,0,'',104,0,0),(41536,8800,3,51,0,'80.122.88.242',1194953697,1,0,1,1,1,0,'','','Antonio\nif I use in the inherited class, example xPrinter from TPrinter\n\nMETHOD New(cMyData ) CONSTRUCTOR\n\ndo I have all the data in the new class\n\n  METHOD New( cDocument, lUser, lMeta, cModel, lModal, lSelection ) CONSTRUCTOR  \nplus \ncMyData?\nThanks in advance\nOtto','',0,'AIA=','cvykp08o',1,0,'',51,0,0),(41541,8800,3,2,0,'87.218.146.167',1194955305,1,0,1,1,1,1,'','','Otto,\n\nyes','',0,'mA==','33hgll09',1,0,'',2,0,0),(41542,8795,6,36,0,'164.77.81.210',1194956058,1,0,1,1,1,1,'','','Hola a Todos\n\nTener encuenta en tablas ADT\n\nAds version 7.1..\n\n1.- Los CAMPOS NUMERIC pueden ser 3\n     INTEGER, SHORTINT, DOUBLE\n\n2.- Los OrdScope no devuelven su valor ni tampoco la funcion dbOrderInfo( 40 ) y dbOrderInfo(41)\n\nEso es lo que he podido VER en mi cambio de DBF a ADT','',0,'mA==','38opi3n5',1,0,'',36,0,0),(41543,8795,6,436,0,'201.253.3.148',1194960202,1,0,1,1,1,0,'','Para migrar de DBF a ADT','Hola Vikhtor, existe un utilitario \"Advantage Data Architect\" (entiendo que es de uso libre??) que tiene una función de \"Import\" y luego te permite administrar las tablas ADT tal como lo hace por ej. el Prometheus o el viejo DBU.\nTambién había un utilitario (creo que del maestro RF y estaba disponible en su blog en el artículo \"Cronica de una Migración Exitosa\") que hacía el trabajo de migración.\nA tus órdenes y saludos a todos.','',0,'mA==','yef66u2o',1,0,'',436,0,0),(41544,8766,4,1218,0,'81.84.76.100',1194963062,1,0,1,1,1,0,'','','Hi again!\n\nIt is possible included this dll or other files in the same directory of the EXE file to solve this problem ???\n\nRegards.','',0,'mA==','2kfu70fg',1,0,'',1218,0,0),(41545,8766,4,2,0,'87.218.146.167',1194964340,1,0,1,1,1,1,'','','No, Microsoft does not allow to modify, copy or replace Windows Mobile DLLs. Sorry','',0,'mA==','pqfowp42',1,0,'',2,0,0),(41546,8694,3,394,0,'207.219.124.134',1194964391,1,0,1,1,1,0,'','','Try this test program generated with vb6 I believe that it is giving the embedded serial number not the volume number generated by windows.\nYou can download it here. [url:5v15b0ws]http&#58;//www&#46;trimpos&#46;net/test1&#46;exe[/url:5v15b0ws]\n\nIf you would like to generate it yourself with vb6 here is the source just put a list box on a form and copy in the following code?\n\n[color=red:5v15b0ws]Private Sub Form_Load()\nDim colProcessList\nDim objprocess\n Set colProcessList = GetObject(\"Winmgmts:\").ExecQuery(\"Select * from Win32_DiskDrive \")\nFor Each objprocess In colProcessList\nIf Mid(objprocess.PnPDeviceID, 1, 7) = \"USBSTOR\" Then\n    List1.AddItem objprocess.PnPDeviceID\nEnd If\nNext\nSet colProcessList = Nothing\nSet objprocess = Nothing\nEnd Sub[/color:5v15b0ws]\n\nI found the above code on the web, if it is not returning the actual hardware id please let me know.','',0,'Eg==','5v15b0ws',1,0,'',394,0,0),(41547,8694,3,2,0,'87.218.146.167',1194964573,1,0,1,1,1,1,'','','Mike,\n\nThe code is fine and Enrico\'s adaptation is very good, but we still need to know the drive letter, so we can write/read an encrypted file into it.\n\nWe need to locate the drive letter (i.e. \"K:\\\") where the USB drive is, and its corresponding serial code. Actually we know the serial, but we don\'t know the drive letter for that serial\n\nThere could be more than one pendrive inserted in the computer','',0,'Eg==','1gmi0d11',1,0,'',2,0,0),(41548,8694,3,2,0,'87.218.146.167',1194968211,1,0,1,1,1,1,'','','Got it! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease download this EXE and tes tit with several USB pendrives, thanks!\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/16342-6394189d08.html\">http://www.hotshare.net/file/16342-6394189d08.html</a><!-- m -->','',0,'Eg==','382nrp9q',1,0,'',2,0,0),(41549,8693,6,1178,0,'200.24.127.22',1194968409,1,0,1,1,1,0,'','Re: Verce 5.1','[quote=&quot;VeRCE&quot;:2v5alml3]Disponible desde ya !!!!\n\nChequen en:\n<!-- m --><a class=\"postlink\" href=\"http://incos...net/fivewin/index.htm\">http://incos...net/fivewin/index.htm</a><!-- m -->\n\nSaludos cordiales[/quote:2v5alml3]\nError.\n\nCompilo el proyecto, cuando voy a compilar otro proyecto , al cambiar me genera el siguiente Error. Seleccionar la ventana de Proyectos para cambiar. En esta parte genera el Error. \n\n\n\nApplication\n===========\n   Path and name: C:\\verce51\\xverce.Exe (32 bits)\n   Size: 2,088,960 bytes\n   Time from start: 0 hours 1 mins 49 secs \n   Error occurred at: 13/11/2007, 10:28:35\n   Error description: Error DBCMD/2001  Workarea not in use: DBSKIPPER\n\nStack Calls\n===========\n   Called from:  =&gt; DBSKIPPER(0)\n   Called from: XBrowse.prg =&gt; (b)TXBROWSE:SETRDD(3355)\n   Called from: XBrowse.prg =&gt; TXBROWSE:PAINT(1481)\n   Called from: XBrowse.prg =&gt; TXBROWSE:DISPLAY(1302)\n   Called from: CONTROL.PRG =&gt; TXBROWSE:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: VERCE.Prg =&gt; MAIN(251)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.80GHz 2800 Mhz\n   Hardware memory: 248 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 30\n      1 \n      2 CiceroUIWndFrame\n      3 SysFader\n      4 Browser Helper Object\n      5 TF_FloatingLangBar_WndTitle\n      6 Ventana de proyectos\n      7 VERCE v5.1+, C:\\proy_harb\\libreria.VRC\n      8 verce51\n      9 Memoria Usb (F:)\n     10 AIMP2\n     11 Reproducir\n     12 *** 22. artist - Pagina blanca_Los fantasmas - Winamp\n     13 AIMP2_RemoteInfo\n     14 ca_Los fantasmas ***AIMP2: artist - Pagina blan\n     15 DDE Server Window\n     16 Acrobat IEHelper\n     17 MCI command handling window\n     18 Form3\n     19 Form2\n     20 Acerca de Selección Rápida WinZip\n     21 IsaTray\n     22 Connections Tray\n     23 CTicketManagerWnd\n     24 Form1\n     25 systemb\n     26 Medidor de energía\n     27 CDirectoryChangeWatcherHelperWindow\n     28 MS_WebcheckMonitor\n     29 GDI+ Window\n     30 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   DBSKIPPER\n     Param   1:    N    0\n     Local   1:    U    \n     Local   2:    N    0\n   (b)TXBROWSE:SETRDD\n     Param   1:    N    0\n     Param   2:    O    Class: TXBROWSE\n     Local   1:    N    1\n   TXBROWSE:PAINT\n     Local   1:    O    Class: TXBROWSE\n     Local   2:    A    Len:    3\n     Local   3:    U    \n     Local   4:    O    Class: TXBRWCOLUMN\n     Local   5:    N    3\n     Local   6:    N    2\n     Local   7:    N    23\n     Local   8:    N    781\n     Local   9:    N    20\n     Local  10:    N    2\n     Local  11:    N    593\n     Local  12:    U    \n     Local  13:    N    487\n     Local  14:    N    590\n     Local  15:    U    \n     Local  16:    U    \n     Local  17:    N    -1778315934\n     Local  18:    N    422577586\n     Local  19:    N    1194329498\n     Local  20:    U    \n     Local  21:    U    \n     Local  22:    U    \n     Local  23:    N    23\n     Local  24:    N    590\n     Local  25:    N    28\n     Local  26:    N    0\n     Local  27:    N    0\n     Local  28:    N    1\n     Local  29:    N    20\n     Local  30:    N    5\n     Local  31:    U    \n     Local  32:    L    .T.\n     Local  33:    L    .F.\n     Local  34:    L    .F.\n   TXBROWSE:DISPLAY\n     Local   1:    O    Class: TXBROWSE\n   TXBROWSE:HANDLEEVENT\n     Param   1:    N    15\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TXBROWSE\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    15\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    6\n     Local   1:    O    Class: TXBROWSE\n   WINRUN\n     Param   1:    N    2031956\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    B    {|| ... }\n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    O    Class: TBRUSH\n     Local   3:    O    Class: TICON\n     Local   4:    U    \n     Local   5:    N    6\n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFNTX\n   DBFBLOB\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TWINDOW\n     5 TCONTROL\n     6 TXBROWSE\n     7 TICON\n     8 TBRUSH\n     9 TINI\n    10 TMDIFRAME\n    11 TC5MENU\n    12 TMENUITEMC5\n    13 TMDICLIENT\n    14 TFONT\n    15 TIMAGELIST\n    16 TBITMAP\n    17 TTOOLBAR\n    18 TMSGBAR\n    19 TRECT\n    20 TMSGITEM\n    21 TTIMER\n    22 TDIALOG\n    23 TSAY\n    24 TURLLINK\n    25 TCURSOR\n    26 TBUTTON\n    27 TBUTTONBMP\n    28 TMDICHILD\n    29 TREBAR\n    30 TICONGROUP\n    31 TSCROLLBAR\n    32 TMULTIGET\n    33 TANIMATE\n    34 TXBRWCOLUMN\n    35 TBTNBMP\n    36 THEADER\n    37 ERROR\n    38 TREG32\n\nMemory Analysis\n===============\n      159 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'gA==','2v5alml3',1,0,'',1178,0,0),(41550,8804,3,1193,0,'203.70.51.136',1194968475,1,0,1,1,1,0,'','FWH0711 ButtonBar 2007 problem?','Hi\n\nI test sample Test2007.prg code.\n\n\n[code:k3v41kx7]\nDEFINE BUTTONBAR &#58;&#58;oMBar OF &#58;&#58;oWnd SIZE 60, 60 2007\n\n   &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n\n   DEFINE BUTTON OF &#58;&#58;oMBar ACTION MsgInfo&#40; &quot;Calendar&quot; &#41; ;\n      RESOURCE &quot;calendar&quot; PROMPT &quot;calendar&quot; WHEN &#46;F&#46;\n\n[/code:k3v41kx7]\n\nCalendar Button Text Gray color no problem.\nBut Bitmap disappear Gray color not work.\n\nLook attach file below:\n\n[url=http&#58;//img209&#46;imageshack&#46;us/my&#46;php?image=20071113230501lc6&#46;jpg:k3v41kx7][img:k3v41kx7]http&#58;//img209&#46;imageshack&#46;us/img209/5665/20071113230501lc6&#46;th&#46;jpg[/img:k3v41kx7][/url:k3v41kx7]\n\nLook C5Bar\nI think Working fine below:\n[url=http&#58;//img225&#46;imageshack&#46;us/my&#46;php?image=20071114115947mq0&#46;jpg:k3v41kx7][img:k3v41kx7]http&#58;//img225&#46;imageshack&#46;us/img225/8932/20071114115947mq0&#46;th&#46;jpg[/img:k3v41kx7][/url:k3v41kx7]\nWhen Button oBtn object SET Disable() or use WHEN .F. syntax,\nbitmap and text change gray color and No Action\n\n\nRegards,\n\nRichard','',0,'GIA=','k3v41kx7',1,0,'',1193,0,0),(41551,8805,3,2,0,'87.218.146.167',1194969253,1,0,1,1,1,1,'','Anti-piracy using a USB pendrive','FWH 7.12 is going to provide several functions to use a USB pendrive as anti-piracy protection system.\n\nPlease run this test with a pendrive (plugged or unplugged):\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/16342-6394189d08.html\">http://www.hotshare.net/file/16342-6394189d08.html</a><!-- m -->\n\nThere is no way to clone the USB and even if you reformat it, its serial remains the same <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','3nkel8xx',1,0,'',2,0,0),(41552,8806,6,2,0,'87.218.146.167',1194969433,1,0,1,1,1,1,'','Anti-pirateria usando un pendrive USB','FWH 7.12 va a proporcionar varias funciones para usar un pendrive USB como sistema de protección de copia ilegal de aplicaciones:\n\nPor favor probad este EXE con un pendrive (conectado y desconectado): \n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/16336-20565867c3.html\">http://www.hotshare.net/file/16336-20565867c3.html</a><!-- m --> \n\nNo hay forma de clonar el USB pendrive y aunque se vuelva a formatear, su código de serie permanece igual <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','3uvv4w52',1,0,'',2,0,0),(41553,8806,6,106,0,'85.34.123.173',1194970157,1,0,1,1,1,1,'','','hice la prueba\n\n---------------------------\nInformation\n---------------------------\nUSB pendrive info: \n\ndrive: E:\\\n\nSerial: 7\n---------------------------\nOK   \n---------------------------\n\nSaludos.\n\n\nP.D. No es chico el numero \"7\" como serial?','',0,'GIA=','2v1kna5z',1,0,'',106,0,0),(41554,8790,6,217,0,'200.159.120.34',1194970796,1,0,1,1,1,0,'','Re: ANN: ViaCORAL 2.1 : Set Theme Office 2007 y Tabs Look 20','Great work!!!!\n\nRegards,\nMaurilio','',0,'GIA=','1zra426v',1,0,'',217,0,0),(41555,8807,6,960,0,'84.125.196.99',1194971231,1,0,1,1,1,0,'','usando la Tecla F1 para otras funciones','estimados compañeros\n\n¿ Se le puede asignar a la tecla F1 otra función que no sea la de ayuda ?\nProbé con  SetKey( VK_F1, { || (mifuncion()) })\npero no me dio resultado...\n¿ Que otra solución tendría ?\n\nmil gracias.\nLORENZO.','',0,'GIA=','1ohhh4y3',1,0,'',960,0,0),(41556,8806,6,2,0,'87.218.146.167',1194971308,1,0,1,1,1,1,'','','Pedro,\n\nVuelve a probar con este por favor:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/16342-6394189d08.html\">http://www.hotshare.net/file/16342-6394189d08.html</a><!-- m -->\n\ngracias!','',0,'GIA=','dj162xox',1,0,'',2,0,0),(41557,8805,3,2,0,'87.218.146.167',1194971360,1,0,1,1,1,1,'','','New test:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/16342-6394189d08.html\">http://www.hotshare.net/file/16342-6394189d08.html</a><!-- m -->\n\nThanks!','',0,'GIA=','1qpswekf',1,0,'',2,0,0),(41558,8762,3,34,0,'68.5.217.82',1194972080,1,0,1,1,1,1,'','Folder','I suppose I could, but I think of the Office Ribbon Bar as a smaller navigation system at the top of a window, and in this case, my folders have a lot of data controls and browses that take up the full screen of the dialog.  Its not exactly the look you would see in a program using the Ribbon Bar.\n\nThat might be a consideration for a major design change in our program further down the road but right now I\'m trying to keep a clean transition.\n\nOf course, I do try to keep my mind open to new ideas.','',0,'GIA=','30iv6grd',1,0,'',34,0,0),(41559,8808,4,49,0,'213.82.134.66',1194972084,1,0,1,1,1,1,'','Format Card Memory','Someone have a function to format storage Micro SD memory card of PPC ?\n\nthanks','',0,'GIA=','3l4l6a73',1,0,'',49,0,0),(41560,8796,3,34,0,'68.5.217.82',1194972363,1,0,1,1,1,1,'','xBrowse Header Gradient','Thanks ... that gets me started.','',0,'GIA=','28rl8z24',1,0,'',34,0,0),(41561,8806,6,456,0,'62.43.18.83',1194972598,1,0,1,1,1,1,'','','Lo he probado con varios pen drive, en diferentes PC, formateando, ... y parece que funciona ok. Me devuelve los serial de todas discos estraibles, incluso de las tarjetas de memoria SD. El string tipo \"0C60DA60E2B1E9A7\"','',0,'GIA=','1564mlt9',1,0,'',456,0,0),(41562,8809,6,21,0,'83.38.22.91',1194973636,1,0,1,1,1,1,'','Transform xHarbour','Mi intención es poder renombar la función Trasform() de xHarbour.\n\n Renombrar por Transform2() y crear otra función con el Nombre Transform(), que se encargará de llamar despues de realizar algunos ajustes en los variables numericas concretamente, a la funcion Transform2().\n\n\nSaludos Cordiales\nMariano González\nALSIS Gestión de Empresa','',0,'GIA=','36eb31zy',1,0,'',21,0,0),(41563,8794,3,86,0,'81.83.151.142',1194974029,1,0,1,1,1,1,'','','I tried the several possibilities.\n\nBy using the example of Enrico, I got the same error as Antonio.\n\nThe first example of Rossine returns my local IP.\n\nThe second example returns something like this :\n\n[quote:19ee5nlc]M-&gt;__ValToPrg_Array := Array(1)\nM-&gt;__ValToPrg_Array[1] := \"192.168.1.101\"\n[/quote:19ee5nlc]\nwhich is my local IP too.','',0,'gA==','19ee5nlc',1,0,'',86,0,0),(41564,8810,3,213,0,'98.196.64.111',1194975110,1,0,1,1,1,0,'','Folder Colors','All,\n\nIs there anyway to change the folder colors and use xp themes? I\'ve been using xp themes with FWH Apr 2006 and my folders had the same background color as the dialogs.  I  just upgraded to latest FWH and now my folders have a white background.  On one window where we have 2 folders and a lot of controls it\'s just too white!  I saw another thread about this topic and tried the suggestion:\n\noFld:SetColor(Rgb(0,0,0),Rgb(200,200,255)) \noFld:aDialogs[1]:SetColor(Rgb(0,0,0),Rgb(200,200,255)) \noFld:aDialogs[2]:SetColor(Rgb(0,0,0),Rgb(200,200,255)) \n\nbut this has no effect.  Am I doing something wrong or is there another way?\n\nThanks,\nRandal','',0,'','176l6onp',1,0,'',213,0,0),(41565,8811,6,1090,0,'201.254.48.225',1194975144,1,0,1,1,1,0,'','validar licencias','Hola. Tengo un pequeño soft de facturacion que estoy vendiendo y estoy buscando algun metodo para evitar que me lo copien y me lo roben, que no sea tan complicado; ¿conocen alguna funcion de fivewin h que me devuelva caracteristicas del mother o del bios? o bien si tienen algun algoritmo que valide este tipo de cosas (para evitar que con una copia del disco, o que con el transpaso del disco a otro cpu me roben el sistema). Gracias. Atte.\n\n\nDiego.','',0,'','3l9kge0n',1,0,'',1090,0,0),(41566,8810,3,2,0,'87.218.146.167',1194976141,1,0,1,1,1,1,'','','Randal,\n\nIn class TFolder, search for these lines and comment them out:\n[code:scpzocdc]\n            // if Empty&#40; oDlg&#58;oBrush&#58;hBitmap &#41;\n            //    oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n            // endif   \n[/code:scpzocdc]','',0,'AIA=','scpzocdc',1,0,'',2,0,0),(41567,8811,6,2,0,'87.218.146.167',1194976427,1,0,1,1,1,1,'','','Diego,\n\nPuedes usar el número de serie del disco duro, y tambien el número de serie de la tarjeta de red.\n\nRevisa nSerialHD() y GetNetCardID()\n\nTambien podrias usar un pendrive, de forma parecida. Hoy hemos puesto un ejemplo.','',0,'AIA=','228nawhv',1,0,'',2,0,0),(41568,8809,6,221,0,'200.109.0.102',1194976708,1,0,1,1,1,1,'','','no veo el problema, la funcion transform() definida por ti en el prg tendra prioridad sobre la de la libreria, ya que queda la que se enlaza primero','',0,'AIA=','2expbmma',1,0,'',221,0,0),(41569,8807,6,221,0,'200.109.0.102',1194976889,1,0,1,1,1,1,'','','recuerda incluir el inkey.ch sino pensaras que no lo tomo, me ha pasado','',0,'AIA=','2fidx7go',1,0,'',221,0,0),(41570,8811,6,221,0,'200.109.0.102',1194976949,1,0,1,1,1,1,'','','tanbien lo puede validar via el registro de windows','',0,'AIA=','13l0p5yd',1,0,'',221,0,0),(41571,8809,6,21,0,'83.38.22.91',1194978062,1,0,1,1,1,1,'','','Como comprenderas eso ya lo habia probado, y sencillamente no es posible. \nGracias por la respuesta.','',0,'AIA=','3n4hkdyk',1,0,'',21,0,0),(41572,8794,3,6,0,'87.9.34.187',1194978078,1,0,1,1,1,1,'','','[quote=&quot;driessen&quot;:yte5jksr]By using the example of Enrico, I got the same error as Antonio.[/quote:yte5jksr]\n\nI don\'t understand. Do you want my EXE to test it there?\n\nEMG','',0,'gA==','yte5jksr',1,0,'',6,0,0),(41573,8807,6,987,0,'189.133.18.171',1194978854,1,0,1,1,1,0,'','','Saludos Loren:\n\nYo lo hago así:\n\n1.- Busca en la carpeta de tu fivewin: FWH\\source\\winapi\\ el archivo HELP32.prg, pon comentarios las lineas donde dice:  \nMsgStop( \"No Help file available\", \" Attention\" )\nya que por defecto al presionar la tecla F1 busca un archivo de ayuda definido por el usuario y si no esta muestra el mensaje de error, son 4 lineas a comentar (41,64,81 y 96, puede estar en otras lineas), una vez modificado el archivo agregalo a tu proyecto con tu generador de aplicaciones.\n\n2.- En tu programa principal la cabecera #Include \"VKEY.CH\", agrega esta linea despues de la funcion main()\nSET Key VK_F1 TO Ayuda()\n\nen este caso hace referencia al modulo ayuda, el cual puede ser cualquier funcion:\n\n//-------------------------------------------------------------//\nFUNCTION Ayuda()\n\nmsginfo(\"¡¡ NO HAY AYUDA !!\"+CRLF+CRLF+\"En Construcción\" ,\"Prueba de Ayuda\") \n\nRETURN NIL\n\nCompila tu aplicacion y prueba presionando la tecla..\n\nA mi me funciona y tengo mi módulo de ayuda independiente de la aplicacion, solo haces referencia a ella con las modificaciones que te indico.\n\nSi tienes dudas no dudes en contactarme y con gusto te ayudo:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar,com\">www.sisa.unlugar,com</a><!-- w -->\n<!-- e --><a href=\"mailto:danyleon82@hotmail.com\">danyleon82@hotmail.com</a><!-- e -->\n\nSaludos... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n\n[/b]','',0,'','1mvi0a8u',1,0,'',987,0,0),(41574,8811,6,1178,0,'200.24.127.22',1194982275,1,0,1,1,1,0,'','','[quote=&quot;QAZWSX2K&quot;:33j5u9ha]tanbien lo puede validar via el registro de windows[/quote:33j5u9ha]\n\nTienes un ejemplo con via Registro Windows','',0,'gA==','33j5u9ha',1,0,'',1178,0,0),(41575,8810,3,34,0,'68.5.217.82',1194984891,1,0,1,1,1,1,'','Folder background','You could also use a BMP background for a nice result.','',0,'gA==','345s88xn',1,0,'',34,0,0),(41576,8809,6,867,0,'201.140.184.46',1194985083,1,0,1,1,1,0,'','','[quote=&quot;fgondi&quot;:203qophh]Como comprenderas eso ya lo habia probado, y sencillamente no es posible. \nGracias por la respuesta.[/quote:203qophh]\n\nHola amigo como esta pues, prueba a crear la funcion Transfr2()  de 8 caracteres, recuerda que Transform() contiene 9 caracteres y creo que FiveWin, solo reconoce 8 caracteres en las funciones propias.\nespero haber sido de su gran ayuda amigo.\n\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','203qophh',1,0,'',867,0,0),(41577,8805,3,161,0,'81.83.249.31',1194985481,1,0,1,1,1,0,'','','Antonio,\n\nNow I\'m getting a Serial-nr on both USB-drives that did\'t return a number with the previous test!!!!\n\nMarc','',0,'gA==','zzighftu',1,1194986912,'',161,1,0),(41578,8805,3,137,0,'151.38.8.195',1194985693,1,0,1,1,1,0,'','','Does it works in Win 98/me?\n\nRegards,\nRoberto Parisi','',0,'gA==','w12hwfmm',1,0,'',137,0,0),(41579,8759,6,867,0,'201.140.184.46',1194985956,1,0,1,1,1,0,'','Gracias Antonio, pero....:(','[quote=&quot;Antonio Linares&quot;:2b0uido5]Susy,\n\nTienes que enlazar RDDADS.LIB y ACE32.LIB\n\nACE32.LIB lo generas a partir de ACE32.DLL haciendo:\n\nimplib.exe ACE32.LIB ACE32.DLL[/quote:2b0uido5]\n\nGracias Antonio,pero no logre compilar bien el testxbrw.prg, me marca error no habra un ejemplo con los DBFS pues,que no tenga que usar ACE32.DLL.\nGracias espero su pronta ayuda o alguien mas que me envie un ejemplo de como iniciarme con la clase de testxbrw.prg y desarrollar un modulo de facturacion\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','2b0uido5',1,0,'',867,0,0),(41580,8805,3,2,0,'87.218.146.167',1194986749,1,0,1,1,1,1,'','','Marc,\n\nThanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','18497lv7',1,0,'',2,0,0),(41581,8809,6,221,0,'200.109.0.102',1194986773,1,0,1,1,1,1,'','','bueno claro, asi pierdes la transform original, lo que tiene que hacer no es renombrar la de xharbour, eso si es imposible, sino creo la transf2, entonces al numero tu le mandas asi por ejemplo transf2(numero, \"999\") en tu prg\n\ny en tu funcion \n\nfunction transf2(para1, para2)\n  tu decisiones sobre el numero, variables, etc\n  transform(para lo que lo uses despues, el de xharbour)\nreturn algo\n\nyo realmente no le veo el rollo, si quizas te explicaras mejor y no dices que has probado o no','',0,'gA==','rm67gopb',1,0,'',221,0,0),(41582,8805,3,2,0,'87.218.146.167',1194986794,1,0,1,1,1,1,'','','Roberto,\n\n&gt; Does it works in Win 98/me? \n\nWe have not tested it yet under Win 98/Me','',0,'gA==','2jkhud0x',1,0,'',2,0,0),(41583,8759,6,221,0,'200.109.0.102',1194986885,1,0,1,1,1,1,'','','susy mandame un mail a mi hotmail, yo lo tengo compilado en xharbour y sin ads, te hare reply','',0,'gA==','2n93cphv',1,0,'',221,0,0),(41584,8809,6,2,0,'87.218.146.167',1194986901,1,0,1,1,1,1,'','','Susy,\n\nFWH no impone ninguna restricción sobre la longitud de los nombres.\n\nEso es algo que soporta directamente el compilador Harbour/xHarbour','',0,'gA==','3nlgaps0',1,0,'',2,0,0),(41585,6815,6,1214,0,'189.143.191.55',1194987180,1,0,0,0,1,0,'','ADORDD','Buenas tardes,\n\nVeo que mencionan que actualmente el código funciona, donde puedo conseguir una versión para FiveWin 2.6 y xHarbour 0.99.51 y ya poder contar con una versión profesional que no sea de prueba o la libreria va ser libre.\n\nPer si me gustaria hacer algunas pruebas de ello para comunicarlo al Gerente de Sistemas.\n\nYa que deseamos migrar a MYSQL o cualquier base de datos sin cambiar el codigo que se tiene con dbf y veo que esta rdd es la solución.\n\nSaludos.\nArturo.\nMéxico','',0,'gA==','395yy00o',1,0,'',1214,0,0),(41586,8811,6,221,0,'200.109.0.102',1194987198,1,0,1,1,1,1,'','','ahi va para todos\n\nEN EL MAIN COLOCAR\n\n#define  HKEY_LOCAL_MACHINE      2147483650\n\nLUEGO LLAMAR A LAS FUNCIONES SEGUN CORRESPONDA\n\nfunction gregistro()  // PARA INTRODUCIR, SI NO EXISTE LA CREA Y SI EXISTE LA REEMPLAZA\n   LOCAL oReg\n   oReg := TReg32():Create( HKEY_LOCAL_MACHINE, \"SOFTWARE\\FiveWin\\siaperca\" )\n   oReg:Set( \"\", \"Sistema cualquiera\" )\n   oReg:Set( \"Version\", 4 )\n   oReg:Set( \"Instalado\", DATE() )\n   oReg:Set( \"Vencido\", .F. )\n   MsgStop( \"Clave introducida en el Registro OK\" )\n   oReg:Close()\nreturn nil\n\nfunction lregistro()  // PARA LEER\n   LOCAL oReg, uVar1, uVar2, uVar3, uVar4\n   oReg := TReg32():New( HKEY_LOCAL_MACHINE, \"SOFTWARE\\FiveWin\\siaperca\" )\n   uVar1 := oReg:Get( \"\" )\n   uVar2 := oReg:Get( \"Version\",0 )\n   uVar3 := oReg:Get( \"Instalado\" )\n   uVar4 := oReg:Get( \"Vencido\" )\n   if uVar4=\".F.\"\n     msginfo(\"El sistema:\"+uVar1+\", Version:\"+strzero(Uvar2,2)+\", instalado el dia:\"+uVar3+\", NO Esta en Demo\")\n   endif\nreturn nil\n\n\na mi me funciona perfecto en xharbour','',0,'gA==','1suwih9a',1,0,'',221,0,0),(41587,8810,3,213,0,'98.196.64.111',1194987429,1,0,1,1,1,0,'','','Antonio,\n\nThanks, that worked great.\n\nRandal\n\n\n[quote=&quot;Antonio Linares&quot;:kq9xqyse]Randal,\n\nIn class TFolder, search for these lines and comment them out:\n[code:kq9xqyse]\n            // if Empty&#40; oDlg&#58;oBrush&#58;hBitmap &#41;\n            //    oDlg&#58;bEraseBkGnd = &#123; | hDC | DrawPBack&#40; oDlg&#58;hWnd, hDC &#41;, 1 &#125;\n            // endif   \n[/code:kq9xqyse][/quote:kq9xqyse]','',0,'gIA=','kq9xqyse',1,0,'',213,0,0),(41588,8810,3,213,0,'98.196.64.111',1194987476,1,0,1,1,1,0,'','Re: Folder background','[quote=&quot;TimStone&quot;:i6m6kajt]You could also use a BMP background for a nice result.[/quote:i6m6kajt]\n\n\nTim,\n\nThanks for the suggestion.  Do you have an example of that?\n\nThanks,\nRandal','',0,'gA==','i6m6kajt',1,0,'',213,0,0),(41589,8810,3,34,0,'68.5.217.82',1194988237,1,0,1,1,1,1,'','BMP background','Sure.\n\n   DEFINE BRUSH oBrush RESOURCE \"SKY\"\n    DEFINE DIALOG oDlg RESOURCE \"RES001\" BRUSH oBrush TRANSPARENT OF oWnd FONT oWnd:oFont\n\nRES001 is the dialog resource stored in your .rc file\nSKY is the BMP resource also stored in your .rc file\n\nYou can use a pattern bitmap, that tiles or you can use a picture converted to a BMP that would fit into the background.  I use both.  It may not be just like Office 2007, but it does give good contrast.','',0,'gA==','25ywt9j7',1,0,'',34,0,0),(41590,8812,6,1072,0,'190.82.13.23',1194989913,1,0,1,1,1,0,'','Favor Ayuda, Error al compilar.','Amigos:\n\nEstoy usando Fwh 701 y Xharbour 00.99.71, Bcc55 y Verce 5.1. \n\nEl problema es que en Fw siempre use variables Publicas, hoy he agregado una variable publica en en mi sistema, pero me arroja un error al compilar.\n\nDefino asi:\n   Public c_base\n   c_base=\"Men_cla\"\n\n** Error al compilar\nc:\\util\\sistemas\\menusis.prg(34) Warning W0001  Ambiguous\n\nSaludos,\nAntonio','',0,'gA==','3arbp6u7',1,0,'',1072,0,0),(41592,8805,3,137,0,'151.51.4.75',1194990751,1,0,1,1,1,0,'','','No, it doesn\'t work on Win98/Me, serial number is empty. \nDo you us wmi to read values? I tried it too and I got the same result.\n\nRegards,\nRoberto Parisi','',0,'gA==','1vor3o1a',1,0,'',137,0,0),(41593,8540,3,448,0,'83.132.21.105',1194991737,1,0,1,1,1,0,'','','I´ve re writen the:center method and now works ok!.\nThanks.\n\nAntonio','',0,'gA==','2hsfjv3d',1,0,'',448,0,0),(41594,8813,3,448,0,'83.132.21.105',1194992009,1,0,1,1,1,0,'','ADS Rdd problems','I\'ve just finished converting a big application to xharbour and it runs wihtout any errors with rmdbfcdx rdd.\n\nI\'v tried first with ADs rdd local server (the code is the same) but I\'ve given up because I had all kind of problems :\n\nIndex keys repetition \nIndex corruption\nFunctions that work diferently\netc.\n\nThe exact same code with rmdbfcdx or dbfcdx it runs ok.\n\nDoes anyone had such experience?\n\nAntonio','',0,'gA==','1kv3udtt',1,0,'',448,0,0),(41595,8809,6,867,0,'201.140.184.46',1194992073,1,0,1,1,1,0,'','Gracias Antonio...disculpa','[quote=&quot;Antonio Linares&quot;:2xdiw1to]Susy,\n\nFWH no impone ninguna restricción sobre la longitud de los nombres.\n\nEso es algo que soporta directamente el compilador Harbour/xHarbour[/quote:2xdiw1to]\n\nGracias Antonio Disculpa, fui muy torpe al explicarme, quise decir que probablemente reconozca los 8 caracteres Transform() en lugar de Transform2() de la funcion propia creada por el programador,  pero gracias .   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \nSu amiga Susy\n<!-- e --><a href=\"mailto:Susan_mx@hotmail.com\">Susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','2xdiw1to',1,0,'',867,0,0),(41596,8762,3,34,0,'68.5.217.82',1194992141,1,0,1,1,1,1,'','Folders','OK ... of course my main interest is the Calendar control.  I will be glad to buy your lib when I know that the Calendar control will be in reach in the upgrades ... can\'t afford to buy it then have to buy an upgrade a few months down the road when the calendar is included ...\n\nThanks.','',0,'gA==','20zjfmxx',1,0,'',34,0,0),(41597,8813,3,34,0,'68.5.217.82',1194992343,1,0,1,1,1,1,'','ADS','I, and many other people, use ADS both with Local Server and Client Server.  I do not believe there are any known bugs at this time, at least for most operations.  \n\nPlease make sure you look at the documentation and have setup the configuration for ADS properly.  It should be relatively flawless.\n\nTim','',0,'gA==','3fv89ynm',1,0,'',34,0,0),(41598,8812,6,867,0,'201.140.184.46',1194992353,1,0,1,1,1,0,'','Re: Favor Ayuda, Error al compilar.','[quote=&quot;mantonio_08&quot;:22esx9hq]Amigos:\n\nEstoy usando Fwh 701 y Xharbour 00.99.71, Bcc55 y Verce 5.1. \n\nEl problema es que en Fw siempre use variables Publicas, hoy he agregado una variable publica en en mi sistema, pero me arroja un error al compilar.\n\nDefino asi:\n   Public c_base\n   c_base=\"Men_cla\"\n\n** Error al compilar\nc:\\util\\sistemas\\menusis.prg(34) Warning W0001  Ambiguous\n\nSaludos,\nAntonio[/quote:22esx9hq]\n\nHola amigo Antonio como esta pues, si defines variables publicas c_base, tendras que definir igual desde antes de la funcion Memvar c_base y si es en el procedimiento del programa, tendras que definir Static c_base para tus dialogos , espero que sea de gran ayuda amigo.\nsu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','22esx9hq',1,0,'',867,0,0),(41599,8788,6,109,0,'189.192.66.252',1194994728,1,0,1,1,1,0,'','','Sr. Linares \n    Muchas gracias por su ayuda, efectivamente, estaba pasando mal unas coordenadas.\n    Ahora ya las dibuja correctamente, pero ahora se presenta lo siguiente.\n\n    Tengo el dialogo (DIALOGO PAPA), donde se presentan las \"graficas\", y 2 botones, uno  de los botones es para \"CAPTURAR\" la informacion que se interpretara, y el otro es para terminar. Antes de \"dibujar\" las lineas y los puntos, a los valores que me daran las coordenadas les asigino un valor de (CERO), y las \"graficas\" se dibujan correctamente, pero cuando oprimo el valor de la CAPTURA de los valores para interpretar la grafica, el dialogo de CAPTURA (DIALOGO HIJO), no aparece a menos que \"CIERRE\" el dialogo (PAPA). Si quito el codeblock del BITMAP, si me permite pasar al dialogo de la \"CAPTURA\", pero obviamente no me dibuja la \"grafica\".\n    \n    Me podria ayudar con este detalle para encontrar el error?\n\n    Gracias.\n    Ricardo E. Guardado Flores.','',0,'gA==','3lb7iz3n',1,0,'',109,0,0),(41600,8799,3,49,0,'62.13.172.67',1194994750,1,0,1,1,1,1,'','','I not see none method on Tbar \n\nI have \n\n DEFINE BUTTONBAR obar 3D OF oWnd SIZE 42,42   2007\n\n @ 8, 987 SAY oSay PROMPT \"Manager \" SIZE 200,15 OF obar FONT oFont PIXEL\n\nHow I can do ?','',0,'gA==','14wwta1p',1,0,'',49,0,0),(41601,8805,3,2,0,'87.218.146.167',1194995939,1,0,1,1,1,1,'','','Roberto,\n\n&gt; No, it doesn\'t work on Win98/Me, serial number is empty. \n\n<!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->  Well, at least it is usefull for other Windows versions\n\n&gt; Do you us wmi to read values? I tried it too and I got the same result.\n\nPart of the code is based on wmi, other portions, no','',0,'gA==','1lmudw5b',1,0,'',2,0,0),(41602,8799,3,2,0,'87.218.146.167',1194996115,1,0,1,1,1,1,'','','Silvio,\n\noBar:bPainted := { || oBar:Say( ... ) }\n\nPlease review source\\classes\\rpreview.prg for a oBar:Say( ... ) full sample','',0,'gA==','1n5xks4m',1,0,'',2,0,0),(41603,8540,3,2,0,'87.218.146.167',1194996173,1,0,1,1,1,1,'','','Antonio,\n\n&gt; I´ve re writen the:center method and now works ok!. \n\nExcellent! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWill you mind to share the code with us ? thanks!','',0,'gA==','l1u9bl8q',1,0,'',2,0,0),(41604,8814,6,987,0,'189.132.7.169',1194996662,1,0,1,1,1,0,'','Asociar Extencion de Archivos a mi Aplicación','Saludos:\n\nDe nuevo aqui con mis marcianadas <!-- s:twisted: --><img src=\"{SMILIES_PATH}/icon_twisted.gif\" alt=\":twisted:\" title=\"Twisted Evil\" /><!-- s:twisted: -->  y preguntas extrañas  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> para todo el foro:\n\nEs posible asociar una extencion de un archivo (p.e. *.VIC) con mi aplicación y a la vez colocar un ícono para distinguirlo, pongo como ejemplo una utilidad muy conocida por todos nosotros y que es para visualizar archivos .DBF (me refiero a Prometehus DATABASE WORKSHOP de Andrade A. Daniel). lo necesito para mi aplicación ya que pretendo asociar archivos de ayuda en la misma.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEsperando propuestas y soluciones:\n\nSoluciones y Diseño de Software Empresarial\nI.S.C Víctor Daniel Cuatécatl León\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'gA==','ig02wa4l',1,0,'',987,0,0),(41605,8812,6,2,0,'87.218.146.167',1194997559,1,0,1,1,1,1,'','','Antonio,\n\nUsa:\n\nmemvar-&gt;c_base=\"Men_cla\" \n\nó compila usando /v','',0,'gA==','3lh7eo23',1,0,'',2,0,0),(41606,8788,6,2,0,'87.218.146.167',1194997734,1,0,1,1,1,1,'','','Ricardo,\n\nMuéstranos el código para ver cómo lo estás haciendo, y a ser posible proporciónanos un ejemplo pequeño y autocontenido que podamos probar rapidamente para darte soporte. Gracias','',0,'gA==','tbnmynz9',1,0,'',2,0,0),(41607,8796,3,49,0,'62.13.172.67',1194998873,1,0,1,1,1,1,'','','this run ok but the BITmap not are trasparent !!!!!!!!!!!\n\n[url=http&#58;//img134&#46;imageshack&#46;us/my&#46;php?image=xbrowsegradhe6&#46;jpg:3tzrzurk][img:3tzrzurk]http&#58;//img134&#46;imageshack&#46;us/img134/334/xbrowsegradhe6&#46;th&#46;jpg[/img:3tzrzurk][/url:3tzrzurk]','',0,'GA==','3tzrzurk',1,0,'',49,0,0),(41608,8799,3,49,0,'62.13.172.67',1194999685,1,0,1,1,1,1,'','','thanks antonio I resolve It','',0,'GA==','3h923tir',1,0,'',49,0,0),(41609,8796,3,2,0,'87.218.146.167',1195002553,1,0,1,1,1,1,'','','You have to paint the bitmaps using FWH TransBmp() function','',0,'GA==','26t90ie0',1,0,'',2,0,0),(41610,8693,6,396,0,'200.71.188.209',1195005051,1,0,1,1,1,1,'','','Ruben,\nparece la version 5.1 tiene unos bug que estan resolviendo, utiliza la 5.0, es la que uso en estos momentos, trabajo con varios proyectos, lib de terceros, .prg compartidos, .res, .rc, en xHarbour y no he tenido problemas.','',0,'GA==','36r3njdg',1,0,'',396,0,0),(41611,8805,3,2,0,'87.218.146.167',1195005581,1,0,1,1,1,1,'','','Here you have a full working sample:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/16421-89987245cf.html\">http://www.hotshare.net/file/16421-89987245cf.html</a><!-- m -->\n\n[url=http&#58;//imageshack&#46;us:1w70ce0n][img:1w70ce0n]http&#58;//img267&#46;imageshack&#46;us/img267/5065/protectad0&#46;png[/img:1w70ce0n][/url:1w70ce0n]','',0,'GA==','1w70ce0n',1,0,'',2,0,0),(41612,8806,6,2,0,'87.218.146.167',1195005615,1,0,1,1,1,1,'','','Aqui teneis un ejemplo totalmente operativo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/16421-89987245cf.html\">http://www.hotshare.net/file/16421-89987245cf.html</a><!-- m -->\n\n[url=http&#58;//imageshack&#46;us:1wdo6p33][img:1wdo6p33]http&#58;//img267&#46;imageshack&#46;us/img267/5065/protectad0&#46;png[/img:1wdo6p33][/url:1wdo6p33]','',0,'GA==','1wdo6p33',1,0,'',2,0,0),(41613,8811,6,72,0,'189.146.242.84',1195008175,1,0,1,1,1,0,'','','Bueno, en mi caso creo que conviene dejar que todo el mundo conozca mis productos y que los usen.\n\nCon restricciones, porsupuesto.\n\nInicié con esta forma de trabajo hace unos tres años, hoy mi sitio refleja mas de 20,000 descargas, tengo registrados a mas de 2,000 usuarios y sospecho que hay otros miles que lo tienen en uso sin solicitar registro.\n\nEl resultado es a largo plazo y se está haciendo publicidad por si solo, al menos una revista ya ha publicado algunas referencias (Emprendedores de la FCA UNAM, bimestre sep-oct).\n\nHay mas de una forma de restringir el uso por tiempo indefinido, en mi caso utilizo fechas, acumuladores (de usuarios y empresas) y  contracuentas para identificar a los clientes.\n\nEn mis versiones DOS fui muy celoso y restrictivo, solo yo y unos cuantos clientes conocimos la funcionalidad.','',0,'GA==','19wzl4v0',1,0,'',72,0,0),(41614,8794,3,439,0,'200.125.44.90',1195010124,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:328obop1][quote=&quot;driessen&quot;:328obop1]By using the example of Enrico, I got the same error as Antonio.[/quote:328obop1]\n\nI don\'t understand. Do you want my EXE to test it there?\n\nEMG[/quote:328obop1]\n[code:328obop1]\nFUNCTION MAIN&#40;&#41; \n\n   LOCAL aHosts \n\n   INETINIT&#40;&#41; \n   aHosts = INETGETHOSTS&#40; NETNAME&#40;&#41; &#41; \n   INETCLEANUP&#40;&#41; \n   MsgInfo&#40; aHosts&#91; 2 &#93; &#41;     &lt;&lt;&lt;&lt; aqui el cambio\n\nRETURN NIL[/code:328obop1]\n\nEnrico I prove your sample and change ? with MsgInfo and then it works perfectly','',0,'gIA=','328obop1',1,0,'',439,0,0),(41615,8815,6,1035,0,'201.211.229.7',1195010621,1,0,1,1,1,1,'','Utilizar FaxModem','Saludos Cordiales Colegas!!!\n\nSe puede utilizar un control o algo que me permita controlar el faxmodem?\n\nq pueda hacer llamadas, caller id e inclusive!.... enviar documentos via fax\n\n\nSi alguien sabe de algo! muchas gracias!!!','',0,'gIA=','3q1dcnb7',1,0,'',1035,0,0),(41616,8693,6,54,0,'189.132.88.152',1195012501,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:7lgoawwz]Ruben,\nparece la version 5.1 tiene unos bug que estan resolviendo, utiliza la 5.0, es la que uso en estos momentos, trabajo con varios proyectos, lib de terceros, .prg compartidos, .res, .rc, en xHarbour y no he tenido problemas.[/quote:7lgoawwz]\n\nAsi es,\n\nla 5.0 es estable en este momento, aunque solo faltan un par de detalles para liberar la 5.3, que incluye unas novedades.','',0,'gA==','7lgoawwz',1,0,'',54,0,0),(41617,8796,3,868,0,'219.64.121.60',1195018424,1,0,1,1,1,1,'','','XBrowse with Gradient Fill\n\n[url=http&#58;//imageshack&#46;us:3h82hb8s][img:3h82hb8s]http&#58;//img228&#46;imageshack&#46;us/img228/8683/xbrowseyv8&#46;png[/img:3h82hb8s][/url:3h82hb8s]\n\nWorks on 32-bt and 16-bit colors','',0,'GA==','3h82hb8s',1,0,'',868,0,0),(41618,8794,3,2,0,'87.218.146.167',1195022983,1,0,1,1,1,1,'','','José,\n\n[code:1qhan3wl]\n   Error description&#58; Error BASE/1132  Bound error&#58; array access\n   Args&#58;\n     &#91;   1&#93; = A   &#123; &#46;&#46;&#46; &#125;\n     &#91;   2&#93; = N   2\n[/code:1qhan3wl]','',0,'AIA=','1qhan3wl',1,0,'',2,0,0),(41619,8804,3,2,0,'87.218.146.167',1195023143,1,0,1,1,1,1,'','','Richard,\n\nAre you using a modified class of your own ? \n\nHere, samples\\Test2007.prg works ok, the bitmap is shown and the text painted in gray color','',0,'AIA=','2veou1vr',1,0,'',2,0,0),(41620,8815,6,2,0,'87.218.146.167',1195023315,1,0,1,1,1,1,'','','Daniel,\n\nRevisa samples\\Phone.prg\n\naunque es solo para marcar via modem. No controla el envio por fax.','',0,'AIA=','xprbrz7o',1,0,'',2,0,0),(41621,8804,3,868,0,'219.64.121.60',1195023509,1,0,1,1,1,1,'','','What Mr. Richard says is that Bitmap is not grayed.  We knew from the beginning that in FWH 2007 style Bar, prompt gets grayed but Bitmap remains the same. ( in case of disabled or when.f. )','',0,'AIA=','38o027jr',1,0,'',868,0,0),(41622,8804,3,2,0,'87.218.146.167',1195024044,1,0,1,1,1,1,'','','NageswaraRao,\n\nActually we can\'t paint it grayed on top of a gradient.\n\nHave you received my email that I sent you some minutes ago ? We wait for your answer <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','iud5nqao',1,0,'',2,0,0),(41623,8806,6,1146,0,'87.223.174.155',1195027206,1,0,1,1,1,0,'','','Antonio:\n\nEnhorabuena por el aporte!!. Me gustaría hacerte una sugerencia.\n\nEn concreto, la mochila debe poder ser utilizada para proteger varias aplicaciones de modo simultáneo y, a su vez, con posibilidad de indicar el tipo de versión (básica, pro, red, etc).\n\nSería más o menos:\n\na) A la hora de programarla, se crearía un fichero en el que se encripta el numero de serie de la mochila, el nombre del programa y el tipo de la versión.\n\nb) En el programa, se comprueba que el numero de serie del fichero sea igual al de la mochila, y luego se comprueba el tipo de programa y de versión.\n\nCon esto te quedaría de 10!!. Un abrazo','',0,'AIA=','1l402wj9',1,0,'',1146,0,0),(41624,8801,18,1146,0,'87.223.174.155',1195027495,1,0,1,1,1,0,'','','Se me ocurre una solución. Que cuando no se puedan obtener los datos de la impresora, se asignen unos por defecto. \n\nEstos serían standard A4, para que se vea el reporte o el metafile en el preview. Para obtenerlos, se pueden obtener instalando un generador de ficheros pdf que funcione como una impresora. No se si me explico.\n\nMuchas gracias!!','',0,'AIA=','38tct5zd',1,0,'',1146,0,0),(41625,8806,6,2,0,'87.218.146.167',1195027821,1,0,1,1,1,1,'','','Moises,\n\nComo FWH 7.12 incluirá todo el código fuente de la protección, entonces cada uno puede modificarla como desee <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAl usar una clave encriptada, nadie -excepto quien tenga el password- podrá saber lo que se guarda en el fichero <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','380yp749',1,0,'',2,0,0),(41626,8794,3,3,0,'80.81.159.19',1195029703,1,0,1,1,1,1,'','','Antonio,\n\nUnfortunately all the samples above retreive the Local ip code not the internet one\n\nI have a function that retreives a html page and reads it, the problem it is not a 100% secure function as the page might change....\n\nThis is why i was looking for a replacement,\n\nhere is the function anyway,\n\nfunction getmyip()\nLOCAL aEol  := { Chr(13) + Chr(10), Chr(10) }, ;\n      ctr   := 0, ;\n      lok   := .f., ;\n      myip  := space(80), ;\n      sLine,cfile\n\ncfile := CURDRIVE() + \":\\\" + CURDIR() + \"\\myip.txt\"\n\nIF FILE(CFILE)\n   ERASE (CFILE)\nENDIF\noUrl := tURL():New( \"http://www.adresseip.com/\"  )\nIF Empty( OUrl )\n   MSGINFO(\"URL NOT FOUND\")\n   RETURN NIL\nENDIF\n\noclient:=tipclienthttp():new(oUrl)\n\nIF Empty( oClient )\n   MSGINFO(\"Invalid url \")\n   RETURN NIL\nENDIF\n\noClient:nConnTimeout := 20000\nIF oClient:Open( oUrl )\n   IF ! oClient:ReadToFile( cFile )\n        MSGINFO(\"Generic error in writing.\"  + cFile)\n    ENDIF\n   oClient:Close()\nendif\n\nIF FILE(CFILE)\n   hFile := FOPEN(CFILE)\n   WHILE HB_FReadLine( hFile, @sLine, aEol ) == 0\n      ctr++\n      IF subs(ALLTRIM(sLine),1,8) == \"&lt;SPAN ID\"  // ip is next line\n         ctr := 1\n         lok := .t.\n      ENDIF\n      IF CTR = 2 .AND. lok\n         myip := sline\n      ENDIF\n   END\n   fclose(hFile)\n   erase (cfile)\nENDIF\nreturn ALLTRIM(myip)\n\nRichard','',0,'AIA=','3d8amp8b',1,0,'',3,0,0),(41627,8816,3,2,0,'87.218.146.167',1195030616,1,0,1,1,1,1,'','XBrowse - Office 2007 look','In FWH 7.12 XBrowses provide Office 2007 look:\n\n[url=http&#58;//imageshack&#46;us:1gpoat19][img:1gpoat19]http&#58;//img266&#46;imageshack&#46;us/img266/6892/xbrowseqw3&#46;png[/img:1gpoat19][/url:1gpoat19]','',0,'GA==','1gpoat19',1,0,'',2,0,0),(41628,8817,6,2,0,'87.218.146.167',1195031262,1,0,1,1,1,1,'','XBrowse - Apariencia Office 2007','En FWH 7.12 XBrowse proporciona apariencia Office 2007:\n\n[url=http&#58;//imageshack&#46;us:3bcjgwob][img:3bcjgwob]http&#58;//img266&#46;imageshack&#46;us/img266/6892/xbrowseqw3&#46;png[/img:3bcjgwob][/url:3bcjgwob]','',0,'GA==','3bcjgwob',1,0,'',2,0,0),(41629,8816,3,868,0,'219.64.121.60',1195031358,1,0,1,1,1,1,'','','This is excellant Mr. Antonio\n\nWe are all awaiting eagerly.\n\nxBrowse is one of the excellant browses with better looks as well as great functionality.\n\nThere is only one __wish__.  \n\nTSBrowse is the only browse that provides Super Headers, i.e., a common header in the first line for two or more columns with headers in the second line.  Except that we have everything else, with much better looks in xBrowse. This feature has many advantages for presentation of management information.\n\nWish you consider it fit to keep in your to-do list.','',0,'GA==','1eeh3y4s',1,0,'',868,0,0),(41630,8794,3,370,0,'88.33.43.186',1195031424,1,0,1,1,1,0,'','','func GetMyIP( cURL )\n#include \"tip.ch\"\nlocal cMyIP := \"\"\nlocal oUrl, oClient\ncURL  := if( empty(cURL), \"http://www.whatismyip.org/\", cURL )\noUrl  := tURL():New( cURL )\nif !empty( oUrl )\n   oClient := tIPclient():new( oUrl )\n   if !empty( oClient )\n      oClient:nConnTimeOut := 20000\n      if oClient:Open( oUrl )\n         cMyIP := oClient:Read(80)\n         oClient:Close()\n      endif\n   endif\nendif\nreturn cMyIP','',0,'GA==','1ms3smk6',1,0,'',370,0,0),(41631,8804,3,868,0,'219.64.121.60',1195032216,1,0,1,1,1,1,'','','Mr Antonio\n\nI am sorry I did not look at my mails till I saw your posting. I sent my reply now. \n\nRegards','',0,'GA==','2c1tx2po',1,0,'',868,0,0),(41632,8817,6,456,0,'62.43.18.83',1195032993,1,0,1,1,1,1,'','','Excelente Antonio, eso le da un look mucho más vistoso. Buen trabajo, este cambio añadido a todos los arreglos que ultimamente se le ha hecho a la clase, dejan al xBrose fenomenal.','',0,'GA==','cb9464ap',1,0,'',456,0,0),(41633,8804,3,2,0,'87.218.146.167',1195033329,1,0,1,1,1,1,'','','NageswaraRao,\n\nOk, thanks','',0,'GA==','39joudzd',1,0,'',2,0,0),(41634,8806,6,106,0,'85.34.123.173',1195033543,1,0,1,1,1,1,'','','Buenisimo!!\n\nEn la misma llave ahora me da esta info:\n\n---------------------------\nInformation\n---------------------------\nUSB pendrive info: \n\ndrive: E:\\\n\nSerial: 8945FFB\n---------------------------\nOK   \n---------------------------\n\nSaludos','',0,'GA==','2tk3b7ha',1,0,'',106,0,0),(41635,8540,3,448,0,'82.155.0.167',1195036057,1,0,1,1,1,0,'','','Antonio,\n\nRight! Here it is :\n\nMETHOD Center() CLASS TDMdiChild //own class redefinition\n LOCAL nLargura,nAltura,ntop,nleft\n LOCAL nlrgmain,naltmain\n LOCAL meioljan, meiolmain,meioajan,meioamain\n\n   nlargura := ::nwidth() //dialog width\n   naltura := ::nheight() //dialog height\n\n   nlrgmain := Wmain():owndclient:nwidth() //container width\n   naltmain := Wmain():owndclient:nheight()//container height\n\n   //middle of each dialog and container\n   meioljan := nlargura /2\n   meioajan := naltura /2\n   meiolmain := nlrgmain /2\n   meioamain := naltmain/2\n\n   //coordinates to place the mdichild\n   ntop := meioamain-meioajan\n   nleft := meiolmain-meioljan\n\n   WndTop( ::hWnd, ntop )\n   WndLeft( ::hWnd, nleft )\nRETURN nil\n\nAntonio','',0,'GA==','2bzrqotj',1,0,'',448,0,0),(41636,8794,3,439,0,'200.125.45.230',1195036381,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:t46fej02]José,\n\n[code:t46fej02]\n   Error description&#58; Error BASE/1132  Bound error&#58; array access\n   Args&#58;\n     &#91;   1&#93; = A   &#123; &#46;&#46;&#46; &#125;\n     &#91;   2&#93; = N   2\n[/code:t46fej02][/quote:t46fej02]\n\nAntonio, \nVerdaderamente, no entiendo, yo lo pruebo en mi equipo y me devuelve la IP pública, lo he verificado con \"MyIP.es\" y el resultado es el mismo.\n\nQuisieras por favor probar el exe que te envío junto con el código fuente correspondiente?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.mediafire.com/?5wd1bu19cdk\">http://www.mediafire.com/?5wd1bu19cdk</a><!-- m -->\n\nGracias desde ya.','',0,'gIA=','t46fej02',1,0,'',439,0,0),(41637,8794,3,2,0,'87.218.146.167',1195036491,1,0,1,1,1,1,'','','Jose,\n\nProbado tu EXE y el mismo error <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEn Vista 32','',0,'gIA=','2vwym288',1,0,'',2,0,0),(41638,8818,3,448,0,'82.155.0.167',1195036729,1,0,1,1,1,0,'','Making Skype phone calls and sms','I\'ve been trying with the code below but it doesn\'t work.\n\nFUNCTION PhoneTO(cPhone,cNome,cComment)\n  Local oSkype,oCall,oUser\n\n\ncPhone := alltrim(cPhone)\n\nTry\n   oSkype := CreateObject(\"Skype4COM.Skype\")\nCatch\n   alert(\"Skype4Com não está instalado!\")\n   return\nEnd\n\n   If .not. oSkype:Client:IsRunning()\n      MsgRun(\"Informação\",\"Activando o Skipe\",{||oSkype:Client:Start()})\n   Endif\n\n   Try\n      oCall := oSkype:PlaceCall(cphone)\n   Catch\n      MsgInfo(\"Chamada falhada! Telefone: \"+cPhone)\n      return 0\n   End\n\noSkype := Nil\nRETURN 1\n\nI get the following error :\n\n  Args:\n     [   1] = C   \'echo123\'\n   argumentos    { \'echo123\' }\n   descrição     E_FAIL\n   ficheiro      &lt;nenhuma&gt;\n   genCode       41: Unknown or reserved\n   operação     PLACECALL\n   osCode        (Não é erro do sistema operativo)\n   severity      2\n   subCode       16389\n   subSystem     SKYPE4COM.Skype\n   tries         0\n\nDoes anyone knows how to work with it ?\nI\'ve chech already this newsgroup but the code I\'ve found it\'s for old API.\n\nRegards\nAntonio','',0,'','1dprgkep',1,0,'',448,0,0),(41639,8794,3,439,0,'200.125.45.230',1195036765,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2tgr0rep]Jose,\n\nProbado tu EXE y el mismo error <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEn Vista 32[/quote:2tgr0rep]\n\nEn XP el resultado es este:\n\n[url=http&#58;//img145&#46;imageshack&#46;us/my&#46;php?image=dibujozz9&#46;jpg:2tgr0rep][img:2tgr0rep]http&#58;//img145&#46;imageshack&#46;us/img145/4299/dibujozz9&#46;th&#46;jpg[/img:2tgr0rep][/url:2tgr0rep]\n\nSerán diferencias entre sistemas operativos?','',0,'mA==','2tgr0rep',1,0,'',439,0,0),(41640,8804,3,1193,0,'203.67.96.155',1195037256,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1aky80bp]Richard,\n\nAre you using a modified class of your own ? \n\nHere, samples\\Test2007.prg works ok, the bitmap is shown and the text painted in gray color[/quote:1aky80bp]\n\nHi Antonio,\n\nMy first attach jpg within FWH0711 not modify any code.\nMy Second attach jpg that I want (disable() / When .f.) bitmap became gray color.\n\nRegards,\n\nRichard','',0,'gA==','1aky80bp',1,0,'',1193,0,0),(41641,8796,3,49,0,'213.82.134.66',1195037586,1,0,1,1,1,1,'','','Antonio  you said \n&gt;You have to paint the bitmaps using FWH TransBmp() function\nhave you an idea or where i must modify it ?\n\n\nThanks','',0,'gA==','xotrhqfn',1,0,'',49,0,0),(41642,8796,3,2,0,'87.218.146.167',1195038968,1,0,1,1,1,1,'','','Silvio,\n\nMake a search for TransBmp() in FWH PRGs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3e76j3ny',1,0,'',2,0,0),(41643,8804,3,2,0,'87.218.146.167',1195039088,1,0,1,1,1,1,'','','Richard,\n\nI may send you samples\\Test2007.exe and you will see it works fine.\n\nYou may have changed something in your used classes or in your code','',0,'gA==','3417rsi5',1,0,'',2,0,0),(41644,8794,3,2,0,'87.218.146.167',1195039140,1,0,1,1,1,1,'','','Posiblemente...','',0,'gA==','2ssbbs7b',1,0,'',2,0,0),(41645,8693,6,246,0,'85.84.222.237',1195039499,1,0,1,1,1,0,'','Necesito version estable verce 5.0','Puesto que la version de VERCE (gran herramienta) 5.1 es tan inestable ,necesitaria para empezar mis proyectos la version anterior .Si sois tan amables alguien podría enviarme la instalación a mi email ?. Gracias y ánimo a los desarrolladores.','',0,'gA==','1rn2isg5',1,0,'',246,0,0),(41646,8813,3,448,0,'82.155.0.167',1195040320,1,0,1,1,1,0,'','','I \'ve check and recheck everything, adslocal config file, collation, etc. \nI\'ve contacted ads suport, nothing !\n\nI can\'t find out a reason for these problems.\n\nI know however that when I lock the records in one function and I replace them in another index entries are repteated. The fields being replaced are not index keys!!\n\nDo you have any tricks or tips to help find out what might be the problem?\n\nIt seems to me that by the evolution of the sqlrdd that this will be the future for xharbour developers. What do you think ?\n\nAntonio','',0,'gA==','3n4b75hw',1,0,'',448,0,0),(41647,8794,3,6,0,'79.19.242.213',1195040926,1,0,1,1,1,1,'','','[quote=&quot;Richard Chidiak&quot;:2roav306]Antonio,\n\nUnfortunately all the samples above retreive the Local ip code not the internet one[/quote:2roav306]\n\nNo, my sample retrieve the public IP.\n\nEMG','',0,'gA==','2roav306',1,0,'',6,0,0),(41648,8794,3,2,0,'87.218.146.167',1195041476,1,0,1,1,1,1,'','','Enrico,\n\nDo you use a router ?','',0,'gA==','1ambt19q',1,0,'',2,0,0),(41649,8809,6,21,0,'83.38.22.91',1195042429,1,0,1,1,1,1,'','','hola,\n\nA ver si me explico correctamente:\n\nLo que necesito es que la función transform pase primero por una condiciones propias y posteriormente haga el transform normal.\n\nPara ello tengo dos alternativas:\n\nLa primera:\n[code:3umusu44]Func Transform2&#40; xValue, cPicture &#41;\nxValue &#58;= MiFunc&#40; xValue &#41;\nreturn Transform&#40; xValue, cPicture &#41;[/code:3umusu44]\nEsta es la que me comentaís que haga. El problema es que tanto xharbour como fivewin llaman a la función transform, por ejemplo al hacer cualquier get.\nCon lo que tendría que renombar todo el código fuente de xharbour y fivewin para que donde llama a transform llame a transform2\n\nLa segunda:\n[code:3umusu44]Func Transform&#40; xValue, cPicture &#41;\nxValue &#58;= MiFunc&#40; xValue &#41;\nreturn Transform2&#40; xValue, cPicture &#41;[/code:3umusu44]\nCon esta sólo tendría que renombrar la función transfom a transform2 y crea esta nueva función transform.\nMe parece mas sencillo porque sólo tengo que renombrar una única función perteneciente a xharbour.\n\nEl problema es que no puedo sustituir al función transform de xharbour por la propia. El error que muestra es:\n[code:3umusu44]Transform&#58; Redefinition of predefined function[/code:3umusu44]','',0,'AIA=','3umusu44',1,0,'',21,0,0),(41650,8812,6,1072,0,'200.83.124.187',1195042902,1,0,1,1,1,0,'','','Susy y Antonio:\n\nMil gracias, eternamente agradecido, me queda super claro.\n\nSaludos,\nAntonio','',0,'AIA=','3vq5hnqx',1,0,'',1072,0,0),(41651,3308,6,180,0,'79.145.97.157',1195044785,1,0,1,1,1,0,'','Pintado de XBrowse','Pues eso, se solucionó el problema de pintado de XBrowse en las nuevas versiones?\n<!-- m --><a class=\"postlink\" href=\"http://img512.imageshack.us/img512/1092/pintadolb5.png\">http://img512.imageshack.us/img512/1092/pintadolb5.png</a><!-- m -->\n\n\n[quote=&quot;Manuel Aranda&quot;:jfof2ynb]Hola de nuevo Antonio, \n¿ Hay algo nuevo sobre este asunto ?\n<!-- m --><a class=\"postlink\" href=\"http://img512.imageshack.us/img512/1092/pintadolb5.png\">http://img512.imageshack.us/img512/1092/pintadolb5.png</a><!-- m -->\n\nEl efecto queda bastante antiestético.\n\nUn saludo,\nManuel[/quote:jfof2ynb]','',0,'gA==','jfof2ynb',1,0,'',180,0,0),(41652,8809,6,362,0,'200.158.18.251',1195045108,1,0,1,1,1,1,'','','Creo, que TRANSFORM no sea una FUNCTION y si un COMANDO del CLIPPER. \n\nDesde la vérsion AUTUMM 86 no se puede usar ningun NOMBRE de COMANDO, internamente en nuestros programas.  Mas...','',0,'gA==','2yg7iz35',1,0,'',362,0,0),(41653,8819,6,1220,0,'80.32.177.143',1195046247,1,0,1,1,1,0,'','Añadiendo Nodos a un Arbol','Buenas Foro!!\n\nSoy nueva por estos lares, y me gustaría saber si me podeis echar una mano en un problema que tengo, que es el siguiente:\n\n En una ventana tengo un listbox y un arbol asociado. Si hago una inserción en el listbox, necesito que me añada un nodo al árbol. Lo he intentado de muchas formas pero no consigo que se añada correctamente. \n\n   ¿Alguién tiene un codigo de ejemplo para añadir los nodos o algo parecido? \n\nMUCHAS GRACIAS\n\nFWH 2.4 + harbour','',0,'gA==','38boef38',1,0,'',1220,0,0),(41654,8790,6,37,0,'201.230.67.240',1195047219,1,0,1,1,1,1,'','','Fernando, muy bonito, aprovecho este post para consultarte sobre ViaUpdate, existe fecha para la salida de esa clase, estamos interesados.','',0,'gA==','2uagsifp',1,0,'',37,0,0),(41655,8819,6,2,0,'87.218.146.167',1195047379,1,0,1,1,1,1,'','','Revisa samples\\TestTree.prg, samples\\Re.prg','',0,'gA==','3cm7lzmw',1,0,'',2,0,0),(41656,8794,3,6,0,'82.55.208.97',1195047955,1,0,1,1,1,1,'','','No, just a modem. Anyway, maybe the difference is XP vs. Vista. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','1dsh1lkw',1,0,'',6,0,0),(41657,8693,6,1178,0,'200.24.127.22',1195048008,1,0,1,1,1,0,'','','[quote=&quot;joseluisysturiz&quot;:3aku7o08]Ruben,\nparece la version 5.1 tiene unos bug que estan resolviendo, utiliza la 5.0, es la que uso en estos momentos, trabajo con varios proyectos, lib de terceros, .prg compartidos, .res, .rc, en xHarbour y no he tenido problemas.[/quote:3aku7o08]\n\nJOse he trabado de bajar la 5.0 pero el link salta a la version 5.1, como lo puedo conseguir.','',0,'gA==','3aku7o08',1,0,'',1178,0,0),(41658,8794,3,303,0,'72.220.100.171',1195048870,1,0,1,1,1,0,'','','Enrico,\n\n&gt;No, just a modem. Anyway, maybe the difference is XP vs. Vista.\n\nI am using XP Pro and a router. aHosts has a length of 1 and aHosts[1] returns my local IP address not my interent IP address.\n\nIt must be that your function only works without a router.\n\nJames','',0,'','31ql0ji6',1,0,'',303,0,0),(41659,8820,6,519,0,'88.27.41.182',1195050261,1,0,1,1,1,0,'','Ayuda Filtros','Hola amigos \n\n  Tengo un problema con los filtros,  una ayuda   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n\n   Esto codigo me funciona perfectamente\n\n\n    ncodigocli:=517\n   cFil:=\"ncodigo=\"+str(ncodigocli)\n  (oData:narea)-&gt;(dbSetFilter({||&amp;cFil},cFil))\n\n\n   Pero esto no me va \n\n   cNombre:=\" Juan\"\n   cFil:=\"cliente=\"+trim(cNombre)\n   (oData:narea)-&gt;(dbSetFilter({||&amp;cFil},cFil))\n\n   Me da un error y me dice que la variable JUAN no existe.\n\n  \n    un saludo','',0,'','2qf8d3v3',1,0,'',519,0,0),(41660,8804,3,1193,0,'203.67.96.155',1195052023,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3rlrw6zt]Richard,\n\nI may send you samples\\Test2007.exe and you will see it works fine.\n\nYou may have changed something in your used classes or in your code[/quote:3rlrw6zt]\n\nPlease send to me. <!-- e --><a href=\"mailto:richard-service@hotmail.com\">richard-service@hotmail.com</a><!-- e -->\n\nThank you.','',0,'gA==','3rlrw6zt',1,0,'',1193,0,0),(41661,8821,3,343,0,'204.57.111.194',1195052509,1,0,1,1,1,0,'','xBrowse valid works correctly?','There are a couple of issues that I am having a problem with.\n\n1. Pressing escape should revert cell back to the value prior to editing.\n2. While editing you can select other cells while still editing field. You should not be able to select another cell or row while the edit is still invoked.\n3. Is there any way to goto the next editable cell?\n4. While editing cell with a valid, enter something that the valid function returns false so the cell cannot save. Then alt-tab to another application, then return to window with edited cell. The focus is no longer on the cell even though the cell thinks it is still in edit mode.\n\nAll the test were done with mallorca.prg in the samples folder.\n\nThanks,\nGale','',0,'gA==','3vjb482m',1,0,'',343,0,0),(41662,8822,6,278,0,'200.126.79.236',1195052625,1,0,1,1,1,1,'','Verce 5.0 - Nuevo error','Hola a todos:\n\nTengo una aplicacion que tiene como 120 prg.\n\nEl problema es que cuando quiero agregar uno mas , aparece el siguiente mensaje\n\n[b:2flk65ei]  Fatal: Command arguments too long[/b:2flk65ei]\n\ny no se crea el programa.\n\nParece que es el make, que no acepta tantos parametros.\n\nComo aumento o corrigo esto ??\n\nHay alguna variable que modificar. \n\nUtilizo el Verce 5.0 \n\nAlguna idea por favor ?\n\nSaludos,','',0,'QA==','2flk65ei',1,0,'',278,0,0),(41663,8794,3,6,0,'82.55.208.97',1195052948,1,0,1,1,1,1,'','','Probably.\n\nEMG','',0,'QA==','36jqqd0n',1,0,'',6,0,0),(41665,8796,3,217,0,'200.159.120.34',1195054209,1,0,1,1,1,0,'','','&gt;&gt; XBrowse with Gradient Fill\n\nGreat, Nageswaragunupudi!!!\ncan you share with us how do it?\n\nRegards,\nMaurilio','',0,'QA==','36y3cqyi',1,0,'',217,0,0),(41666,8820,6,1201,0,'200.90.17.154',1195054839,1,0,1,1,1,0,'','','Prueba Asi\n\ncNombre:=\" Juan\" \ncFil:=\"cliente=\'\"+trim(cNombre)+\"\'\" \n(oData:narea)-&gt;(dbSetFilter({||&amp;cFil},cFil))','',0,'QA==','2git7fuy',1,0,'',1201,0,0),(41667,8820,6,867,0,'201.140.184.46',1195054944,1,0,1,1,1,0,'','','[quote=&quot;ADBLANCO&quot;:3givdo8n]Prueba Asi\n\ncNombre:=\" Juan\" \ncFil:=\"cliente=\'\"+trim(cNombre)+\"\'\" \n(oData:narea)-&gt;(dbSetFilter({||&amp;cFil},cFil))[/quote:3givdo8n]\n\nHola amigo buenos dias pues, como esta, quitale la funcion trim y sustituye la funcion alltrim()\n\nSu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'gA==','3givdo8n',1,0,'',867,0,0),(41668,8822,6,867,0,'201.140.184.46',1195055094,1,0,1,1,1,0,'','Re: Verce 5.0 - Nuevo error','[quote=&quot;jcaro&quot;:9s5y1qj7]Hola a todos:\n\nTengo una aplicacion que tiene como 120 prg.\n\nEl problema es que cuando quiero agregar uno mas , aparece el siguiente mensaje\n\n[b:9s5y1qj7]  Fatal: Command arguments too long[/b:9s5y1qj7]\n\ny no se crea el programa.\n\nParece que es el make, que no acepta tantos parametros.\n\nComo aumento o corrigo esto ??\n\nHay alguna variable que modificar. \n\nUtilizo el Verce 5.0 \n\nAlguna idea por favor ?\n\nSaludos,[/quote:9s5y1qj7]\n\nHola amigo como esta pues, yo uso verce 4.3 y no he tenido problemas, mirar en el menu de opciones y elige la opcion de valores glabales y aumentale hasta 150 prgs o mas ,espero haverle ayudado amigo\nsu amiga Susy\n<!-- e --><a href=\"mailto:susan_mx@hotmail.com\">susan_mx@hotmail.com</a><!-- e -->','',0,'wA==','9s5y1qj7',1,0,'',867,0,0),(41669,8823,6,1173,0,'190.6.194.162',1195056053,1,0,1,1,1,1,'','Acerca del BUTTONBAR tipo OFFICE2007','Saludos amigos del foro.\n\nRecien Acobo de actualizarme a la FiveWin 7.11, y tengo un problema con la BUTTONBAR, y es en cuanto a la clausula WHEN de los botones.\nDe forma nativa los botones se desactivan sin problema pero no asi con la clausula 2007.\nClaro al querer pulsar los botones no se ejecuta la accion del boton si es Deshabilitado.\n\nSaludos desde Honduras','',0,'wA==','2fz0r8tk',1,0,'',1173,0,0),(41670,8824,6,1214,0,'189.143.191.55',1195056496,1,0,0,0,1,0,'','Advantage Data Server con ADO','Buen día a la comunicad.\n\nDeseo saber como puedo abrir la base de datos con advantage via ADO ya baje el odbc incluso el OLE Provider, lo único cual sería el string para realizar la conexión.\n\nSaludos.\nArturo.\nMéxico','',0,'wA==','1wdefo16',1,0,'',1214,0,0),(41671,8796,3,2,0,'87.218.146.167',1195056537,1,0,1,1,1,1,'','','Maurilio,\n\nWe are going to include it in FWH 7.12 and its better if there is just one version around, so it will be easier for tech support. \n\nJust wait a few days and it will be available, thanks','',0,'wA==','3c8fjl57',1,0,'',2,0,0),(41672,8794,3,2,0,'87.218.146.167',1195056635,1,0,1,1,1,1,'','','Yes, thats my guess, that the function is only valid with a modem, not with a router','',0,'wA==','3qeusj4n',1,0,'',2,0,0),(41673,8794,3,439,0,'200.125.40.154',1195056826,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3oc1sxqe]Yes, thats my guess, that the function is only valid with a modem, not with a router[/quote:3oc1sxqe]\n\nProbably that is the reason becouse I use a modem too.','',0,'gA==','3oc1sxqe',1,0,'',439,0,0),(41674,8822,6,221,0,'200.109.0.102',1195057014,1,0,1,1,1,1,'','','en todas las versiones de verce, existe un menu con dos variables creo, numero de prg y numero de programas c, el prg trae por defecto 100, cambialo y ya','',0,'gA==','caxz67kd',1,0,'',221,0,0),(41675,8822,6,278,0,'190.95.23.219',1195057043,1,0,1,1,1,1,'','','Hola Susan:\n\nNo es ese el problema, pues tengo definido en valores globales hasta 200 prg.  y sucede lo mismo.\n\nAlguna otra idea ??\n\nSaludos ,','',0,'gA==','11u4s5lm',1,0,'',278,0,0),(41676,8796,3,868,0,'219.64.121.60',1195057465,1,0,1,1,1,1,'','','I fully agree with Mr. Antonio. The FWH sample shot released is excellent. I am eagerly awaiting 7.12.\n\nI have to say that my code is amateurish and works just as a stop gap arrangement till I get 7.12,  It is better for all of us to stick to official release by FWH','',0,'gA==','19pgyt3x',1,0,'',868,0,0),(41677,8816,3,6,0,'82.55.208.97',1195057992,1,0,1,1,1,1,'','Re: XBrowse - Office 2007 look','[quote=&quot;Antonio Linares&quot;:1wf7hdqx]In FWH 7.12 XBrowses provide Office 2007 look:[/quote:1wf7hdqx]\n\nWonderful! Is it possible to have it for TWBrowse and TCBrowse too?\n\nEMG','',0,'gA==','1wf7hdqx',1,0,'',6,0,0),(41678,8825,3,34,0,'68.5.217.82',1195059464,1,0,1,1,1,1,'','Tooltip request','Antonio,\n\nTo use balloon tool tips, with each release we have to modify windows.prg and link it into our application.\n\nWould it be possible to set this as an option, ie. a data element ( logical ) within the class code ?\n\nTim','',0,'gA==','2lb7bjls',1,0,'',34,0,0),(41679,8813,3,34,0,'68.5.217.82',1195059667,1,0,1,1,1,1,'','Using basics','I\'m satisfied with ADS and with its performance for clients with multiple workstations.  I\'d rather not go to SQL personally.  My reason is strictly support ... its so nice to be able to fix a single DBF and have my client up and running quickly.\n\nI\'ve done nothing unusual in the implementation.  Look at the documentation for the setup guidelines / sample and be sure you have the lib files included.\n\nTim','',0,'gA==','39z7fxxs',1,0,'',34,0,0),(41680,8825,3,868,0,'219.64.121.60',1195059843,1,0,1,1,1,1,'','','I too support this proposal','',0,'gA==','1dh6vind',1,0,'',868,0,0),(41681,8816,3,868,0,'219.64.121.60',1195060339,1,0,1,1,1,1,'','','That would be most welcome.\n\nOther requests are :\n1. To add the method SetAdo to TWBrowse and TCBrowse also.\n2. To bring uniformity of naming the methods like DrawSelect and Drawline, nAt of xBrowse and nColAct, etc.','',0,'gA==','21yvujyn',1,0,'',868,0,0),(41682,8826,3,1082,0,'85.43.122.34',1195061364,1,0,1,1,1,0,'','adordd error','my problem:\nMy company has two centers office.\nIn center Office A there is the server 192.168.1.203\nIn center Office B (another city from office A) is connects with center A by router etc..\nthen,\nI have my exe with this code:\n....\n   USE \"DB_one\" VIA \"ADORDD\" TABLE \"Table\" SQL ;\n      FROM \"192.168.1.203\" USER \"xx\" PASSWORD \"xx\"\nBrowse()\n....\n....\n\nif I run my EXE from center office A the Browse() is OK, instead if I run my EXE from center office B I get this error:\nApplication\n===========\n   Path and name: C:\\ado\\mysql4.exe (32 bits)\n   Size: 1,441,280 bytes\n   Time from start: 0 hours 0 mins 17 secs \n   Error occurred at: 11/14/07, 18:25:58\n   Error description: Error ADODB.Connection/16389  E_FAIL: OPEN\n   Args:\n     [   1] = C   Provider=SQLOLEDB;server=192.168.1.203;database=DB_one;uid=xx;pwd=xx\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: adordd.prg =&gt; ADO_OPEN(248)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: mysql4.prg =&gt; MAIN(12)\n\nI use FWH 7.11 xHarbour\n\nhelp me please....','',0,'','1veiawcd',1,0,'',1082,0,0),(41683,8796,3,217,0,'200.159.120.34',1195062925,1,0,1,1,1,0,'','','Antonio, thanks a lot! I\'d not seen post about this xBrowse new feature.\nDo you plan implement Office look to other classes?\n\nRegards\nMaurilio','',0,'','36gslkxs',1,0,'',217,0,0),(41684,8813,3,448,0,'83.132.21.105',1195063664,1,0,1,1,1,0,'','','Ok. But the problems I have are related to ADS local server. I didn\'t tryed remote server.\n\nAntonio','',0,'','h97jpbdm',1,0,'',448,0,0),(41685,8827,3,694,0,'201.22.71.114',1195065569,1,0,1,1,1,1,'','PDF activex search text method please!','My friends, what PDF activex search text method ?\n\n\nAoki','',0,'','1cs42zwp',1,0,'',694,0,0),(41686,8828,6,694,0,'201.22.71.114',1195065670,1,0,1,1,1,1,'','PDF activex - qual o metodo para pesquisar um texto?','Amigos, qual metodo usar para abrir automaticamente um documento PDF já com a opção SEARCH TEXT ativa?\n\n\nGrato\n\n\nAoki','',0,'','2ptlqzju',1,0,'',694,0,0),(41687,8818,3,47,0,'58.8.105.140',1195065694,1,0,1,1,1,0,'','','Dear AHF,\n\nTry \n\noCall := oSkype:SendSms(cPhone, cComment)\n\n[code:1k65xxsy]oCall &#58;= oSkype&#58;PlaceCall&#40;cphone&#41; [/code:1k65xxsy]\n\nRegards,\nDutch','',0,'AIA=','1k65xxsy',1,0,'',47,0,0),(41688,8816,3,2,0,'87.218.146.167',1195065759,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Is it possible to have it for TWBrowse and TCBrowse too? \n\nYes, we may also implement it on them','',0,'AIA=','2gfwztxb',1,0,'',2,0,0),(41689,8796,3,2,0,'87.218.146.167',1195065887,1,0,1,1,1,1,'','','Maurilio,\n\nYes, we plan to use the Office 2007 look as much as possible','',0,'AIA=','1hsl5hvc',1,0,'',2,0,0),(41690,8825,3,2,0,'87.218.146.167',1195066315,1,0,1,1,1,1,'','','Tim, NageswaraRao,\n\nAlready implemented for FWH 7.12 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nDATA lBalloon\n\nThanks,','',0,'AIA=','1j66qx92',1,0,'',2,0,0),(41691,8823,6,2,0,'87.218.146.167',1195066443,1,0,1,1,1,1,'','','Con la apariencia de Office 2007, los bitmaps se ven igual, salvo que el botón no cambia de color al pasar el ratón por encima.\n\nEl texto se ve en color gris en vez de negro','',0,'AIA=','1vakefvo',1,0,'',2,0,0),(41692,8818,3,51,0,'80.122.88.242',1195066496,1,0,1,1,1,0,'','','I would suggest a own forum for the SMS and phone stuff also outlook.\nI think this  becomes a very important theme in future and it would be easier for someone who starts if all the information is sorted.\nAt the moment I don’t need this info’s but I know I will need this in near future.','',0,'AIA=','1vd5jmpl',1,0,'',51,0,0),(41693,8816,3,47,0,'58.8.105.140',1195066738,1,0,1,1,1,0,'','','Dear Antonio,\n\nWill you adapt TXbrowse() to use the #xcommand with all properties and event as TWbrowse()?.\n\nI\'ll be nice and easy to use.\n\nRegards,\nDutch','',0,'AIA=','ttc59sry',1,0,'',47,0,0),(41694,8821,3,2,0,'87.218.146.167',1195067331,1,0,1,1,1,1,'','','Gale,\n\nYes, we are aware of those issues and we plan to solve/implement them asap, thanks','',0,'AIA=','ixbvvis3',1,0,'',2,0,0),(41695,8816,3,2,0,'87.218.146.167',1195067905,1,0,1,1,1,1,'','','Dutch,\n\nYes, we plan to continue working on XBrowse development. Bugs fixing, improvements and better backwards compatibility for TWBrowse and TCBrowse users','',0,'AIA=','jyraqomt',1,0,'',2,0,0),(41696,8826,3,2,0,'87.218.146.167',1195068399,1,0,1,1,1,1,'','','Damiano,\n\nWe don\'t know what may be wrong. Hopefully other ADORDD users may help','',0,'AIA=','3p5do9rn',1,0,'',2,0,0),(41697,8824,6,661,0,'189.155.207.62',1195068634,1,0,1,1,1,0,'','','oConexionAdo:Open(\"Provider=Advantage.OLEDB.1;User ID=adssys;Data Source=diccionario.add;Persist Security Info=False;ServerType=ADS_REMOTE_SERVER;LockMode=ADS_COMPATIBLE_LOCKING\") \n\nsaludos','',0,'AIA=','1adppziv',1,0,'',661,0,0),(41698,8816,3,47,0,'58.8.105.140',1195068722,1,0,1,1,1,0,'','','Dear Antionio,\n\nGreat news, wonderful.\n\nThanks&amp;regards,\nDutch','',0,'AIA=','39hj2d52',1,0,'',47,0,0),(41699,8819,6,661,0,'189.155.207.62',1195069260,1,0,1,1,1,0,'','','que tal, yo tenia un problema similar y lo solucione destruyendo el arborl y creandolo de nuevo...\n\nsaludos','',0,'AIA=','2z6jw2el',1,0,'',661,0,0),(41700,8784,6,760,0,'200.37.76.89',1195069938,1,0,1,1,1,0,'','bitmaps en listbox','Hola a todos\n\nbueno la carga de imagen la hace la misma clase, distinguiendo si los bitmaps estan en archivos o en recursos.\nEl problema era que tomaba la carga de imagenes del vtaskbar, quite la libreria y use las del fwh y ok.\n\nGracias a todos\n\nSalu2\n\nFrancis','',0,'AIA=','fhw7b92u',1,0,'',760,0,0),(41701,8829,22,1146,0,'87.223.174.155',1195072661,1,0,1,1,1,0,'','color GET','Antonio:\n\nCuando usas en REDEFINE GET la cláusula NO MODIFY o WHEN .f. el color del texto del get no se ve bien, la combinación no es buena. Por favor, ¿por qué no pones otro color que se vea mejor?. Muchas gracias.\n\nSalu2','',0,'AIA=','3nl222nz',1,0,'',1146,0,0),(41702,8390,22,1146,0,'87.223.174.155',1195072703,1,0,1,1,1,0,'','','¿Lo podrías incluir en FW.7.12, por favor?. Muchas gracias!!!.','',0,'AIA=','1xby0kmz',1,0,'',1146,0,0),(41703,8829,22,2,0,'87.218.146.167',1195073926,1,0,1,1,1,1,'','','Eso está ya implementado. Haz:\n\noGet:lDisColors = .F.','',0,'AIA=','2vnvyg03',1,0,'',2,0,0),(41704,8830,3,1011,0,'203.84.187.62',1195074723,1,0,1,1,1,0,'','Error Base/1005 Message Not Found: TFONT_END','Please help,\n\nPops up when trying to activate a report class with preview.\nBut does not always popup running the same code with\ndifferent data.  However, seems to have a favorite data\nwhen it pops up.\n\nWhat triggers this?\n\nToyet','',0,'AIA=','3vrwegyy',1,0,'',1011,0,0),(41705,8824,6,1214,0,'189.143.191.55',1195074825,1,0,0,0,1,0,'','Gracias.','Y sabras de que forma se puede hacer mediante ODBC igual con ADO.\n\nSaludos','',0,'AIA=','2vmyp5x4',1,0,'',1214,0,0),(41706,8831,3,394,0,'207.219.124.134',1195075517,1,0,1,1,1,0,'','OleServer.lib  With Fivewin','Is it possible to include fivewin code in an OleServer dll created with xharbour from xharbour.com and xcc as compiler?\nThanks Mike Buckler','',0,'AIA=','2ke0plp8',1,0,'',394,0,0),(41707,8830,3,2,0,'87.218.146.167',1195076481,1,0,1,1,1,1,'','','Toyet,\n\nPlease post the complete callstack, thanks','',0,'AIA=','obiutk4k',1,0,'',2,0,0),(41708,8831,3,2,0,'87.218.146.167',1195076583,1,0,1,1,1,1,'','','Mike,\n\nWe have never tried it. Please let us know what steps to take and we may try to help you, thanks','',0,'AIA=','2bt7rqmr',1,0,'',2,0,0),(41709,8788,6,109,0,'200.92.129.42',1195076735,1,0,1,1,1,0,'','','Sr. Linares\n    Solucionado.\n\n    Estaba refrescando el bitmap despues de haber trazado las \"graficas\", quite esa instruccion, y listo\n\n    Por su atencion muchas gracias\n\n\n  Ricardo E. Guardado Flores.','',0,'AIA=','3ysyd72y',1,0,'',109,0,0),(41710,8830,3,1011,0,'203.84.187.62',1195076876,1,0,1,1,1,0,'','','Antonio,\n\nApplication\n===========\n   Path and name: C:\\TEST.EXE (32 bits)\n   Size: 6,428,672 bytes\n   Time from start: 0 hours 0 mins 20 secs \n   Error occurred at: 11/14/07, 06:37:03\n   Error description: Error BASE/1005  Message not found: TFONT:_END\n\nStack Calls\n===========\n   Called from:  =&gt; TFONT:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TFONT:MSGNOTFOUND(0)\n   Called from: FONT.PRG =&gt; TFONT:_END(167)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: HARBOUR.PRG =&gt; OSEND(0)\n   Called from: HARBOUR.PRG =&gt; ASEND(0)\n   Called from: REPORT.PRG =&gt; TREPORT2:END(1402)\n   Called from: REPORT.PRG =&gt; TREPORT2:ACTIVATE(890)\n   Called from: PAYMREF1.PRG =&gt; REPMAGMED(2717)\n   Called from: PAYMREF1.PRG =&gt; (b)PREREPMAGMED(2224)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: PAYMREF1.PRG =&gt; PREREPMAGMED(2235)\n   Called from: PAY_FSET.PRG =&gt; (b)MAG_SUMMARRY(57)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: PAY_FSET.PRG =&gt; MAG_SUMMARRY(62)\n   Called from:  =&gt; FSXML_SWT_SUM(3291)\n   Called from:  =&gt; FSXML_941SUM(1553)\n   Called from: PAY_FSET.PRG =&gt; (b)FSGOMAKEFILE(830)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; FSGOMAKEFILE(835)\n   Called from: PAY_FSET.PRG =&gt; FSETNEWXMLFLNM(668)\n   Called from: PAYMAG.PRG =&gt; MAG_FILE(1408)\n   Called from: PAYMAG.PRG =&gt; (b)MAGFORMS(1136)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: PAYMAG.PRG =&gt; MAGFORMS(1205)\n   Called from:  =&gt; MAG_RPT(1483)\n   Called from: pay2.prg =&gt; (b)ACC_RPT(1361)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: pay1.prg =&gt; MAIN(1412)','',0,'AIA=','38mgd1pq',1,0,'',1011,0,0),(41711,8788,6,2,0,'87.218.146.167',1195078168,1,0,1,1,1,1,'','','bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3apaartp',1,0,'',2,0,0),(41712,8693,6,396,0,'190.36.221.179',1195078345,1,0,1,1,1,1,'','','Ok, ya me di cuenta, lo busco y lo subo y coloco el link, tengo todas las versiones anteriores, si no es problema para los creadores Jose y Willian...\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/verce/verce50.zip\">http://incos.sytes.net/fivewin/verce/verce50.zip</a><!-- m -->','',0,'AIA=','37mvdydo',1,0,'',396,0,0),(41713,8830,3,2,0,'87.218.146.167',1195078447,1,0,1,1,1,1,'','','It looks as you have created a new Class TReport2 and there you have a typo: you have written oFont:_End() instead of oFont:End()\n\nPlease review your Class TReport2, thanks','',0,'AIA=','3ishx665',1,0,'',2,0,0),(41714,8824,6,1214,0,'189.143.191.55',1195078636,1,0,0,0,1,0,'','Hola Alex_cyr','Saludos.\n\nSabrás como puedo solucionar el siguiente error?\n\nError ador.recordset/9  El proveedor actual no admite la interfaz necesaria para la funcionalidad Índice.: SEEK\n\nEl código que tengo es el siguiente:\n\noDatos:LockType 		 := 4 //adLockOptimistic = 3, adReadOnly = 1\n            oDatos:CursorLocation := 3 //adUseServer = 2 , adUseClient = 3\n            oDatos:CursorType 	 := 2 //adOpenKeyset = 1\n            oDatos:Source:=cComando\n            oDatos:ActiveConnection(oCon)\n            oDatos:Open()\n            oDatos:Sort := \"Nom_Prod DESC\"\n            oDatos:Seek(\"RESISTENCIAS\", 1)\n\nAgradecere tu ayuda.','',0,'AIA=','633g7dec',1,0,'',1214,0,0),(41715,8825,3,34,0,'68.5.217.82',1195078673,1,0,1,1,1,1,'','Balloon','Thanks ... \n\nI much prefer leaving the lib intact.\n\nTim','',0,'AIA=','31gzz2lc',1,0,'',34,0,0),(41716,8813,3,34,0,'68.5.217.82',1195078860,1,0,1,1,1,1,'','ADS','Please check the extended reply I made on the xHarbour message board where you posted the same question.  Then, please respond after making sure you have the proper elements included.','',0,'AIA=','mqu5fohp',1,0,'',34,0,0),(41717,8830,3,1011,0,'203.84.187.62',1195078923,1,0,1,1,1,0,'','','Ok thanks Antonio,\n\nI have tried to change :_End() to :End().  The error is gone.\n\nI\'ll check with my colleagues why the need for a different\nTReport class prg.\n\nToyet','',0,'AIA=','3uhj5nn3',1,0,'',1011,0,0),(41718,8832,3,34,0,'68.5.217.82',1195079047,1,0,1,1,1,1,'','TSBrowse w/ checkbox and data object','I have discovered a problem that maybe someone encountered and knows a fix.\n\nUsing TSBrowse, with the Checkbox capability:\n\nWhen browsing an array, the checkbox on a logical element works fine.\n\nWhen browsing a database object, the checkbox will display a checkmark on a logical field marked True, but if the field is false, checking on the box will not toggle the logical field.\n\nHas anyone seen this, and if so, do you know the cause ?\n\nThanks \n\nTim','',0,'AIA=','10jer933',1,0,'',34,0,0),(41719,8816,3,6,0,'82.55.208.97',1195079176,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2cf637ky]Enrico,\n\n&gt; Is it possible to have it for TWBrowse and TCBrowse too? \n\nYes, we may also implement it on them[/quote:2cf637ky]\n\nGreat! Thank you!\n\nEMG','',0,'gA==','2cf637ky',1,0,'',6,0,0),(41720,8833,6,396,0,'190.36.221.179',1195079572,1,0,1,1,1,1,'','Mis Primeros Reportes...que uso que sea nativo...?','Srs. del foro, voy emepezar a trabajar con reportes, me gustaria segun sus experiencias que mejor opcion nativa de FWH, que le de un buen diseño a mi sistema, con algunas sombras y eso detalles, tambien hare listado, lo mas importante de todo es que me permita hacer preview antes de imprmir y que pueda sellecionar la impresora que quiera, gracias, espero sus comentarios.saludos.','',0,'gA==','39gkgh6a',1,0,'',396,0,0),(41721,8825,3,868,0,'219.64.121.60',1195079744,1,0,1,1,1,1,'','','Can a global setting be provided ?\n\nOtherwise we may have to keep writing o:lBallon := .t.  for each and every instance of control and other derived class from windows.  We may forget at some places and the user interface will not be consistent.','',0,'gA==','13mt83do',1,0,'',868,0,0),(41722,8794,3,154,0,'151.21.32.73',1195085386,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2izddldw]Yes, thats my guess, that the function is only valid with a modem, not with a router[/quote:2izddldw]\nAntonio and all fws,\nI use a router and Vista business.\nThe Enrico\'s function return 3 addresses:\n1) my local ip address 192.168.2.100\n2) my local ip address 192.168.147.1  \n3) my local ip address 192.168.172.1  \n\nOnly the Otto\'s function return the external IP\n\nWith the router, i think that is not present the external ip on the computer.','',0,'gA==','2izddldw',1,0,'',154,0,0),(41723,8815,6,1035,0,'201.211.229.7',1195086145,1,0,1,1,1,1,'','','Saludos Cordiales Colegas!!!\n\nSr. Linares un placer! en otras oportunidades me ha pasado esto pero no lo he dicho por pena! pero he conseguido un frase que me justifique!\n\n\"Si no entiendes una cosa y preguntas seras tonto durante 5 minutos, pero si no preguntas seras tonto durante toda la vida\" \n\nYo no no manejo la capa de FiveWin o xHarbour como tal trabajo bajo un entorno de desarrollo un poco mas arriba que es el de un ERP de aqui de Venezuela DATAPRO el Sr. Juan Navas mi amigo me ha ayudado bastante pero con su tiempo se queda corto, espero q lo conosca y sea de buena referencia!\n\nPor tal motivo no tengo esos ejemplos del empaquetado de FiveWin!\n\nSi me podria ayudar muy agradecido!!\n\nGracias por todo!','',0,'gA==','390tglq7',1,0,'',1035,0,0),(41724,8822,6,54,0,'189.132.88.152',1195086344,1,0,1,1,1,1,'','','[quote=&quot;jcaro&quot;:rznwu2zk]Hola Susan:\n\nNo es ese el problema, pues tengo definido en valores globales hasta 200 prg.  y sucede lo mismo.\n\nAlguna otra idea ??\n\nSaludos ,[/quote:rznwu2zk]\n\nJuan,\n\nen unos dias, liberaremos VERCE 5.3, donde se han corregido varios BUG comentados.\n\nsentimos le hayamos causado algún contratiempo','',0,'gA==','rznwu2zk',1,0,'',54,0,0),(41725,8693,6,54,0,'189.132.88.152',1195086582,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:24bnynya]Ok, ya me di cuenta, lo busco y lo subo y coloco el link, tengo todas las versiones anteriores, si no es problema para los creadores Jose y Willian...\n<!-- m --><a class=\"postlink\" href=\"http://incos...net/fivewin/verce/verce50.zip\">http://incos...net/fivewin/verce/verce50.zip</a><!-- m -->[/quote:24bnynya]\n\nJosé Luis,\n\nle pediremos a Juan Carlos que coloque los otros links.\n\nsería lo conveniente','',0,'gA==','24bnynya',1,0,'',54,0,0),(41726,8834,19,911,0,'200.72.141.51',1195086917,1,0,1,1,1,1,'','Consulta sobre software ERP','Hola:\nAlguien que haya o esté desarrollando un ERP me pueda orientar sobre la materia.\nComo afrontar un proyecto de esta naturaleza y como desarrollar e implementar los procedimientos ERP para luego plasmarlos en un software.\nAyudas, sugerencias o comentarios favor hacerlos llegar a: <!-- e --><a href=\"mailto:dlagoss@manejatuvida.cl\">dlagoss@manejatuvida.cl</a><!-- e -->\nGracias','',0,'gA==','2ohyowuf',1,0,'',911,0,0),(41727,8330,19,911,0,'200.72.141.51',1195087048,1,0,1,1,1,1,'','','Ya no está disponible tu archivo donde lo subiste. Me lo podrías enviar a <!-- e --><a href=\"mailto:dlagoss@manejatuvida.cl\">dlagoss@manejatuvida.cl</a><!-- e -->\nMuchas gracias','',0,'gA==','2o0645hq',1,0,'',911,0,0),(41728,8835,6,400,0,'201.92.34.245',1195093513,1,0,1,1,1,1,'','Centralizar Titulo em Dialog ????/','¿Es posible centralizar el título en un cuadro de diálogo, en la barra de título?\n\nSaludos','',0,'gA==','oq08eubn',1,0,'',400,0,0),(41731,8693,6,396,0,'200.71.186.108',1195097978,1,0,1,1,1,1,'','','[quote=&quot;wmormar&quot;:tfgwr4xn][quote=&quot;joseluisysturiz&quot;:tfgwr4xn]Ok, ya me di cuenta, lo busco y lo subo y coloco el link, tengo todas las versiones anteriores, si no es problema para los creadores Jose y Willian...\n<!-- m --><a class=\"postlink\" href=\"http://incos...net/fivewin/verce/verce50.zip\">http://incos...net/fivewin/verce/verce50.zip</a><!-- m -->[/quote:tfgwr4xn]\n\nJosé Luis,\n\nle pediremos a Juan Carlos que coloque los otros links.\n\nsería lo conveniente[/quote:tfgwr4xn]\nWillian, este link me lo dio el propio Juan Carlos, esta colocado bajo su autorizacion , previa conversacion con el por MSN.','',0,'gA==','tfgwr4xn',1,0,'',396,0,0),(41732,8822,6,396,0,'200.71.186.109',1195098746,1,0,1,1,1,1,'','','Willian, es solo algo de chiste, tienes algo en contra el 52, ya que la ultima version con problema y donde salieron los BUG fue la 5.1, pero veo que anuncias la 5.3...? como dije, es solo algo de humor..para tomar un respiro con tantos problemas que tenems dia a dia en todos los sentidos.... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->     Riamos un poco antes los inconvenientes y tomemolo con calma. nose que decir sobre la pregunta del colega, ya que ninnguno de mis sistemas tiene tantos .prg','',0,'gA==','kpmq3u5q',1,0,'',396,0,0),(41733,8825,3,34,0,'68.5.217.82',1195101225,1,0,1,1,1,1,'','Balloon','Just set a template pattern for button bars that includes that data item.  Its no different then setting up a browse or other \"large\" control.','',0,'gA==','2ha3ntzv',1,0,'',34,0,0),(41734,8832,3,34,0,'68.5.217.82',1195101283,1,0,1,1,1,1,'','Solved','Ah ... problem solved with the use of a postedit codeblock.','',0,'gA==','n4pbz9l4',1,0,'',34,0,0),(41735,8693,6,54,0,'189.132.88.152',1195103360,1,0,1,1,1,1,'','','José Luis,\n\ngracias, a lo que me refiero es solicitarle a Juán Carlos que coloque los links en la página de VERCE de las versiones anteriores, para que puedan estar disponibles a todos','',0,'gA==','39y70d7z',1,0,'',54,0,0),(41736,8838,3,962,0,'201.27.235.230',1195104015,1,0,1,1,1,1,'','how display item superior width ComboBox ?','Hi.\n\nhow display item superior it width ComboBox (open) ?\n<!-- m --><a class=\"postlink\" href=\"http://br.geocities.com/ericmagaldi/screen/combobox.jpg\">http://br.geocities.com/ericmagaldi/screen/combobox.jpg</a><!-- m -->\n\nI use Pelles C.','',0,'gA==','19o1w044',1,0,'',962,0,0),(41737,8822,6,54,0,'189.132.88.152',1195104199,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:iy7jur1n]Willian, es solo algo de chiste, tienes algo en contra el 52, ya que la ultima version con problema y donde salieron los BUG fue la 5.1, pero veo que anuncias la 5.3...? como dije, es solo algo de humor..para tomar un respiro con tantos problemas que tenems dia a dia en todos los sentidos.... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->     Riamos un poco antes los inconvenientes y tomemolo con calma. nose que decir sobre la pregunta del colega, ya que ninnguno de mis sistemas tiene tantos .prg[/quote:iy7jur1n]\n\nJosé Luis,\n\nefectivamente, que sería la vida sin risas. jjejjejjejje\n\npor otro lado, el aviso es porque vienen nuevas \"cosillas\", y no tengo nada con el 52, aunque personalmente, no me gusta, jjejjejjejje','',0,'gA==','iy7jur1n',1,0,'',54,0,0),(41738,8825,3,868,0,'219.64.121.60',1195104516,1,0,1,1,1,1,'','','I use tooltips for many controls including Gets','',0,'gA==','2hxurmm8',1,0,'',868,0,0),(41739,8805,3,160,0,'59.95.239.109',1195104570,1,0,1,1,1,0,'','','Dear Antonio,\n\nThis can be a great boon. I soon will have to update my FWH !\n\nKeep it up.\n\nWith best regards,\n\nMilan.','',0,'gA==','2tusp795',1,0,'',160,0,0),(41740,8838,3,2,0,'87.218.146.167',1195110841,1,0,1,1,1,1,'','','Éric,\n\nI don\'t understand your question. Why don\'t you increase its width ?','',0,'gA==','3pgz75mc',1,0,'',2,0,0),(41741,8835,6,2,0,'87.218.146.167',1195111038,1,0,1,1,1,1,'','','Puedes añadirle espacios a la izquierda del título\nSpace( 40 ) + cTitulo','',0,'gA==','2lwcs9e9',1,0,'',2,0,0),(41742,8825,3,2,0,'87.218.146.167',1195111184,1,0,1,1,1,1,'','','If we set it as a global option, then the entire application will use only one kind of tooltips, unless its :lBalloon is changed. Is that fine ?','',0,'gA==','47rajhlu',1,0,'',2,0,0),(41743,8829,22,92,0,'213.96.45.9',1195112384,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:35a9z13l]Eso está ya implementado. Haz:\n\noGet:lDisColors = .F.[/quote:35a9z13l]\n\nAntonio,\n\nen los checkbox y los combobox también es aplicable?\n(mi versión de momento <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> es vieja).\n\nSaludos\nCarlos G.','',0,'gA==','35a9z13l',1,0,'',92,0,0),(41744,8833,6,92,0,'80.33.133.32',1195114235,1,0,1,1,1,0,'','Re: Mis Primeros Reportes...que uso que sea nativo...?','[quote=&quot;joseluisysturiz&quot;:gbgbm5bl]Srs. del foro, voy emepezar a trabajar con reportes, me gustaria segun sus experiencias que mejor opcion nativa de FWH, que le de un buen diseño a mi sistema, con algunas sombras y eso detalles, tambien hare listado, lo mas importante de todo es que me permita hacer preview antes de imprmir y que pueda sellecionar la impresora que quiera, gracias, espero sus comentarios.saludos.[/quote:gbgbm5bl]\n\nSi lo que quieres es hacer efectos en los listados o impresiones (ya sean facturas, recibos, tiquets, etc.) yo utilizaría la clase TUtilPrn de The Full.\n\nEs poderosa y permite imprimir imágenes (creo que de varios tipos), así como utilizar la Barlib de Cayetano para imprimir códigos de barra.\n\nCon estas posibilidades puedes hacer casi cualquier documento con el diseño que quieras.\n\nEn contra: el código del listado lo gestionas tú (mediante While, skip, subtotales, totales, etc.), no hay un \'motor\' que genere el listado automáticamente.\nAun así el esfuerzo que se requiere para comprender como funciona esa clase/utilidad vale la pena: el gobierno lo tienes tu, tu decides como será el diseño.\n\nSaludos\nCarlos G.','',0,'gA==','gbgbm5bl',1,0,'',92,0,0),(41745,8693,6,246,0,'85.84.222.237',1195115269,1,0,1,1,1,0,'','Gracias por vuestra rápida atención','Gracias.','',0,'gA==','1ovxjc9y',1,0,'',246,0,0),(41747,8796,3,49,0,'213.82.134.66',1195116088,1,0,1,1,1,1,'','','this is another class\n\n[url=http&#58;//img146&#46;imageshack&#46;us/my&#46;php?image=tab2007to3&#46;jpg:2rj4oaza][img:2rj4oaza]http&#58;//img146&#46;imageshack&#46;us/img146/9576/tab2007to3&#46;th&#46;jpg[/img:2rj4oaza][/url:2rj4oaza]\n\nWe made another class to create brush with two color gradient\nWith this class we can translate all brush of all classes !!!','',0,'GA==','2rj4oaza',1,0,'',49,0,0),(41748,8824,6,456,0,'62.43.18.83',1195116172,1,0,1,1,1,1,'','','Para el tema de connections string tanto via ole db como odbc, puedes mirar esta entrada de mi blog ( [url:17nz3fpc]http&#58;//bielsys&#46;blogspot&#46;com/2007/11/ado-connectionstring&#46;html[/url:17nz3fpc] ). \nCon referencia a lo del seek, no sabria decirte, pues no utilizo el metodo seek, ni el motor ADS. En este link pone algo de documentación de como usar seek con ADO [url:17nz3fpc]http&#58;//support&#46;microsoft&#46;com/kb/287638/es[/url:17nz3fpc].\n\nSuponiendo que fuera una limitación del motor de base de datos, otra alternativa sin indice seria con el metodo FIND.\n[code:17nz3fpc]\noRs&#58;Find&#40; &quot;Campo LIKE \'&quot;+cBuscar,,1&#41;\n[/code:17nz3fpc]','',0,'EIA=','17nz3fpc',1,0,'',456,0,0),(41749,8825,3,868,0,'219.64.121.60',1195116208,1,0,1,1,1,1,'','','I think yes. Because for each application we need to provide one consistent interface.  We can purposefully override in the code at specific places if that is what is required in the context.\n\nI suggest global setting for ballon tips and office2007 style both, which will be the default throughout the application with facility to optionaly override in specific cases','',0,'EIA=','3j71t9qc',1,0,'',868,0,0),(41750,8794,3,6,0,'82.61.157.65',1195116881,1,0,1,1,1,1,'','','[quote=&quot;Ugo&quot;:1fv0pdxb]Only the Otto\'s function return the external IP[/quote:1fv0pdxb]\n\nWhere is the Otto\'s function? I can\'t find it in this thread.\n\nEMG','',0,'gA==','1fv0pdxb',1,0,'',6,0,0),(41751,8796,3,49,0,'213.82.134.66',1195117945,1,0,1,1,1,1,'','','Antonio ,\nwhere I can see the parameters of transbmp() function ?','',0,'gA==','2nnq1drc',1,0,'',49,0,0),(41752,8796,3,2,0,'87.218.146.167',1195119767,1,0,1,1,1,1,'','','Silvio,\n\nSearch for TransBmp() in source\\classes\\*.prg\n\nIt is used in several classes','',0,'gA==','31d92idf',1,0,'',2,0,0),(41753,8829,22,1146,0,'87.223.173.186',1195121812,1,0,1,1,1,0,'','','Antonio:\n\nYo no defino los GETS con una variable oGet, sino tal que REDEFINE GET ID 200, por lo que no puedo usar eso.\n\nLo que hago es modificar la clase TGET y cambiar el color, pero creo que es un cambio que debería hacer de serie, pues la combinación que está por defecto no se ve bien. Por favor, ¿podrías cambiar esa combinación?.  Además, serviría también para los comboboxes, etc. Muchas gracias!!!.','',0,'gA==','2fgmw04q',1,0,'',1146,0,0),(41754,8820,6,294,0,'201.254.179.144',1195122193,1,0,1,1,1,1,'','','Exacatamente como dice ADBLANCO te faltan las comillas simples en JUAN puesto que es una cadena de caracteres','',0,'gA==','n5j05tjs',1,0,'',294,0,0),(41755,8838,3,962,0,'201.1.161.192',1195128615,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1vr84phj]Why don\'t you increase its width ?[/quote:1vr84phj]\nLayOut and not need adjust for every item insert.\n\nWhile it is closed, not need display all character, but during choose (Open), is much important (+informative).\n\nIs possible ???','',0,'gA==','1vr84phj',1,0,'',962,0,0),(41756,8794,3,868,0,'219.64.121.60',1195129093,1,0,1,1,1,1,'','','I tested Mr. EMG\'s code.\n\nWhen my pc has two ip addresses, which i can see with ipconfig /all,  the funtion returns two element array with two ip addresses.\n\nwhen ipconfig /all shows only one ip address it returns one element array only','',0,'gA==','140xr7rn',1,0,'',868,0,0),(41757,8829,22,92,0,'213.96.45.6',1195129356,1,0,1,1,1,0,'','','[quote=&quot;MOISES&quot;:e697mmrj]Antonio:\n\nYo no defino los GETS con una variable oGet, sino tal que REDEFINE GET ID 200, por lo que no puedo usar eso.\n\nLo que hago es modificar la clase TGET y cambiar el color, pero creo que es un cambio que debería hacer de serie, pues la combinación que está por defecto no se ve bien. Por favor, ¿podrías cambiar esa combinación?.  Además, serviría también para los comboboxes, etc. Muchas gracias!!!.[/quote:e697mmrj]\n\n\nNo estoy del todo de acuerdo con cambiar la combinación.\n\nSi no me equivoco el funcionamiento estàndard en windows es el que hacia hasta ahora FiveWin y por tanto si queremos lo contrario, ello debería ser la excepción.\nMal que nos pese windows es nuestro referente en cuanto a funcionamiento; todo lo que modifiquemos deberían ser, en lo posible, mejoras opcionales.\n\nOtra cosa es el ámbito de aplicación del cambio de comportamiento, posiblemente ahí si que debería ser a nivel de aplicación.\n\nEs decir, por defecto el comportamiento estándard de windows y si se cambia, que afecte a toda la aplicación; aun permitiendo (entonces si uno a uno) que el control que yo elija vuelva a tener el comportamiento estándar de windows.\n\nSaludos\nCarlos G.','',0,'gA==','e697mmrj',1,0,'',92,0,0),(41758,8839,6,960,0,'84.125.196.99',1195130957,1,0,1,1,1,0,'','Implantación de un Calendario','Estimados compañeros:\n\nen mis sistemas tengo implantado un mini calendario para que el usuario defina las fechas sin necesidad de teclear en los gets. Este calendario está obsoleto y poco atractivo, así que buscando encontré uno diseñado por Rodrigo Soto y Bingen Ugaldebere muy buenos.\n\nAl adaptarlo a mis sistemas, encontré que al compilarlos me genera el siguiente error:\n\nC:\\programacion\\Manzanares\\prg\\TCALENDA.prg(37) Error E0030  Syntax error: \"syntax error at \'ADIASEMANA\'\"\n\nEl PRG en la linea 37 es el siguiente:\nDATA aDiaSemana    AS ARRAY INSTANTIATE ARRAY( 7)\n\nNo consigo contactar con los creadores del codigo y mis conocimientos son limitados como para modificar el código. ¿Que modificación tendría que hacer?\nMil gracias\nLORENZO','',0,'gA==','1uj23nf8',1,0,'',960,0,0),(41759,8829,22,1146,0,'87.223.173.186',1195131189,1,0,1,1,1,0,'','','Pues que quieres que te diga, mira la foto:\n\n[url=http&#58;//img408&#46;imageshack&#46;us/my&#46;php?image=dibujoav5&#46;jpg:2dgrcplv][img:2dgrcplv]http&#58;//img408&#46;imageshack&#46;us/img408/2527/dibujoav5&#46;th&#46;jpg[/img:2dgrcplv][/url:2dgrcplv]\n\nY en Windows Vista se ve peor. Creo que sería bueno que el color del get fuera más intenso, pues no se ve nada bien.\n\nAntonio, ¿qué opinas?.','',0,'GA==','2dgrcplv',1,0,'',1146,0,0),(41760,8822,6,278,0,'200.126.90.29',1195131342,1,0,1,1,1,1,'','','Gracias William por responder y por el trabajo que estas haciendo.\n\nEsperare las mejoras , saludos','',0,'GA==','1u41oego',1,0,'',278,0,0),(41761,8839,6,221,0,'200.109.0.102',1195134239,1,0,1,1,1,1,'','','SALUDOS, mandamela a mi hotmail yo la convierto a xharbour y te le reenvio','',0,'GA==','3irea4jp',1,0,'',221,0,0),(41762,8840,3,213,0,'98.196.64.111',1195135131,1,0,1,1,1,0,'','xbrowse print/report method?','All,\n\nDoes anyone have a report or print method for xbrowse?\n\nThanks,\nRandal','',0,'GA==','jb4thbgf',1,0,'',213,0,0),(41763,8804,3,1193,0,'203.67.96.155',1195136735,1,0,1,1,1,0,'','','Hi Antonio,\n\nI try to compile test2007.prg for full FWH0711.\n\nI\'m sure fwh0711 Btnbmp within ButtonBar 2007 have bug or problem.\nPlease check it again.\n\nRegards,\n\nRichard','',0,'GA==','rup5mykq',1,0,'',1193,0,0),(41764,8804,3,49,0,'213.82.134.66',1195139560,1,0,1,1,1,1,'','','Richard,\ni compiled test2007 \ni not have problems','',0,'GA==','3r451np5',1,0,'',49,0,0),(41765,8840,3,49,0,'213.82.134.66',1195139610,1,0,1,1,1,1,'','','wich version you have?','',0,'GA==','kdgm0o3f',1,0,'',49,0,0),(41766,8841,3,86,0,'81.83.151.142',1195139619,1,0,1,1,1,1,'','Problem with ViaCoral in Dialog box','Hello,\n\nI encountered a problem in my Dialog box while activating ViaCoral.\n\nI have made my dialog boxes so that the ENTER-key can be used to switch from one GET to another.\n\nIf ViaCoral is activated, the ENTER-key can\'t be used any more to switch from one GET to another, but the first button in stead is activated.\n\nWhat is the problem ?\n\nThanks.','',0,'GA==','2bg2k9q2',1,0,'',86,0,0),(41767,8817,6,49,0,'213.82.134.66',1195140047,1,0,1,1,1,1,'','','Antonio,\nhave you change also bitmaps  trasparent on header ?','',0,'GA==','d6qbwre1',1,0,'',49,0,0),(41768,8840,3,49,0,'213.82.134.66',1195140644,1,0,1,1,1,1,'','','Sorry there\'s not in new version , try it please\n\n[code:29ehpuw2]\nMETHOD Print&#40; lPreview, lModal, cTitle &#41; CLASS TXBrowse \n\n   local oPrn, oRep, oCol \n   local aCols \n   local xValue \n   local cAlias \n   local nFor, nLines, nLine, nBookMark \n\n   DEFAULT lPreview &#58;= &#46;t&#46;,; \n           lModal   &#58;= &#46;f&#46;,; \n           cTitle   &#58;= &#58;&#58;oWnd&#58;cCaption \n\n   If Empty&#40; cTitle &#41; \n      cTitle &#58;= &quot;No Title&quot; \n   Endif \n\n   If lPreview \n      If lModal \n         PRINTER oPrn NAME cTitle PREVIEW MODAL \n      else \n         PRINTER oPrn NAME cTitle PREVIEW \n      Endif \n   else \n      PRINTER oPrn NAME cTitle \n   Endif \n\n   If oPrn&#58;hDC == 0 \n      return &#46;f&#46; \n   Endif \n\n   If !Empty&#40; &#58;&#58;cAlias &#41; \n      cAlias &#58;= DbSelectArea&#40; &#58;&#58;cAlias &#41; \n   Endif \n\n   REPORT oRep TITLE &quot;*** &quot; + cTitle + &quot; ***&quot;, &quot;&quot; ; \n      HEADER DToC&#40; Date&#40;&#41; &#41; + &quot;-&quot; + Left&#40;Time&#40;&#41;, 5&#41;, &quot;&quot; RIGHT ; \n      FOOTER &quot;#&#58; &quot; + Str&#40; oRep&#58;nPage, 3 &#41; CENTER; \n      TO DEVICE oPrn \n\n   aCols &#58;= &#58;&#58;GetVisibleCols&#40;&#41; \n\n   for nFor &#58;= 1 to len&#40; aCols &#41; \n      If !aCols&#91;nFor&#93;&#58;lHide \n         oCol &#58;= oRep&#58;AddColumn&#40; TrColumn&#40;&#41;&#58;New&#40; &#123; FInfo1&#40;aCols, nFor&#41; &#125; ,,; \n                                &#123; FInfo2&#40;aCols, nFor&#41; &#125;,,,,,,,,,, oRep &#41; &#41; \n         xValue &#58;= Eval&#40;aCols&#91;nFor&#93;&#58;bStrData&#41; \n         nLines &#58;= MlCount&#40;xValue, 250&#41; \n         oCol&#58;nPad &#58;= aCols&#91;nFor&#93;&#58;nDataStrAlign + 1 \n         If nLines &gt; 1 \n            oCol&#58;aData    &#58;= Array&#40;nLines&#41; \n            oCol&#58;aPicture &#58;= Afill&#40;Array&#40;nLines&#41;, &quot;&quot;&#41; \n            For nLine &#58;= 1 to nLines \n               oCol&#58;aData&#91;nLine&#93; &#58;= FInfo3&#40;aCols, nFor, nLine&#41; \n            Next \n         Endif \n      Endif \n   next \n\n   ENDREPORT \n\n   nBookMark &#58;= Eval&#40; &#58;&#58;bBookMark &#41; \n\n   If &#58;&#58;aArrayData != nil &#46;and&#46; len&#40; &#58;&#58;aArrayData &#41; &gt; 0 \n      &#58;&#58;nArrayAt &#58;= 1 \n      oRep&#58;bSkip  &#58;= &#123; || &#58;&#58;nArrayAt++ &#125; \n      ACTIVATE REPORT oRep WHILE &#58;&#58;nArrayAt &lt;= len&#40; &#58;&#58;aArrayData &#41; ON END &#58;&#58;nArrayAt &#58;= 1 \n   else \n      ACTIVATE REPORT oRep \n   Endif \n\n   Eval&#40;&#58;&#58;bBookMark, nBookMark &#41; \n\n   If !Empty&#40; cAlias &#41; \n      DbSelectArea&#40; cAlias &#41; \n   Endif \n\nreturn &#46;t&#46; \n[/code:29ehpuw2]','',0,'AIA=','29ehpuw2',1,0,'',49,0,0),(41769,8840,3,213,0,'98.196.64.111',1195140725,1,0,1,1,1,0,'','','Silvio,\n\nI have the latest version 7.11.  Thanks for the code, I\'ll give this a try.\n\nBest Regards,\nRandal','',0,'AIA=','320jbxsa',1,0,'',213,0,0),(41770,8840,3,49,0,'213.82.134.66',1195140832,1,0,1,1,1,1,'','','Randal \nI wait your comment','',0,'AIA=','26hpu4qs',1,0,'',49,0,0),(41771,8804,3,1193,0,'203.67.96.155',1195141128,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:1nm6cv92]Richard,\ni compiled test2007 \ni not have problems[/quote:1nm6cv92]\n\nHi Silvio,\n\nHave you rebuild all source to LIB? \nIf not, same as me to use FWH0711\\LIB\\Fivehc.lib and Fivehx.lib\n\nCould you show your Test2007 screenshot and post it?\n\n[url=http&#58;//img221&#46;imageshack&#46;us/my&#46;php?image=20071115234044na6&#46;jpg:1nm6cv92][img:1nm6cv92]http&#58;//img221&#46;imageshack&#46;us/img221/7531/20071115234044na6&#46;th&#46;jpg[/img:1nm6cv92][/url:1nm6cv92]\n\nThank you.\n\nRegards,\n\nRichard','',0,'mA==','1nm6cv92',1,0,'',1193,0,0),(41772,8842,3,448,0,'82.155.0.167',1195141405,1,0,1,1,1,0,'','Tcbrowse 2 colour one for each line','Hi,\n\nIs there any way to have a 2 colours one for each line in tcbrowse with / wihtou lcellstyle\n\nAntonio','',0,'mA==','3jjb0qhs',1,0,'',448,0,0),(41773,8840,3,213,0,'98.196.64.111',1195141564,1,0,1,1,1,0,'','','Silvio,\n\nI found finfo1 and finfo2 in the browse.prg.  Where can I find finfo3 function?\n\nThanks,\nRandal','',0,'mA==','2jt7ak79',1,0,'',213,0,0),(41774,8843,3,49,0,'213.82.134.66',1195145620,1,0,1,1,1,1,'','bntbmp 2007','the class btnbmp  have not 2007 style ?','',0,'mA==','1wa6shz9',1,0,'',49,0,0),(41775,8844,6,1106,0,'190.64.134.154',1195145653,1,0,1,1,1,0,'','Driver de impresora que...','Amigos:\n\nHay algun driver de impresora que peremita...\nSalvar en diferentes formatos\nEnviar por mail\nImprimir...\netc.\n\ny que sea de facil inclusion en los programas\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'mA==','xbbudtj1',1,0,'',1106,0,0),(41776,8804,3,49,0,'213.82.134.66',1195146084,1,0,1,1,1,1,'','','Sorry\nbut I think you must to use a variable to show gray also the bitmap\n\nobtn[n] enable/disable','',0,'','37epnoo9',1,0,'',49,0,0),(41777,8804,3,868,0,'219.64.121.60',1195146384,1,0,1,1,1,1,'','','I use different bitmaps for enabled and disabled status','',0,'','2jdn6l3z',1,0,'',868,0,0),(41778,8804,3,1193,0,'203.67.96.155',1195146964,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:228trj35]Sorry\nbut I think you must to use a variable to show gray also the bitmap\n\nobtn[n] enable/disable[/quote:228trj35]\n\nHi Silvio,\n\nIf use oBtn:Disable() =&gt; not work.','',0,'gA==','228trj35',1,0,'',1193,0,0),(41779,8804,3,1193,0,'203.67.96.155',1195147107,1,0,1,1,1,0,'','','[quote=&quot;nageswaragunupudi&quot;:10yg57la]I use different bitmaps for enabled and disabled status[/quote:10yg57la]\n\nHi\n\nI think so.\n\nI don\'t know this is FWH problem or bug.\nOld Bar/Btnbmp version work fine.\n\nSo I hope Antonio have solution for it.\n\nRegards,\n\nRichard','',0,'gA==','10yg57la',1,0,'',1193,0,0),(41780,8839,6,221,0,'200.109.0.102',1195152233,1,0,1,1,1,1,'','','hotmail me dice que tiene un virus desconocido, y no me da la opcion de descargarlo','',0,'gA==','3sgqozab',1,0,'',221,0,0),(41781,8825,3,34,0,'68.5.217.82',1195153255,1,0,1,1,1,1,'','Global','Since I would only use the newer balloon style universally, its OK with me, but adding a line of code for a button bar isn\'t that hard.  Of course, tooltips with gets would add a lot if each one was set individually.','',0,'gA==','vtksbad0',1,0,'',34,0,0),(41783,8845,6,1104,0,'190.55.44.161',1195157917,1,0,1,1,1,0,'','Caracteres especiales en Windows','Hola a todos,\n\nAlguién se acuerda cual es la función que me permite imprimir los caracteres especiales como \"ñ, Ñ, á, é, í, ó, ú\" entre otros.\nNecesito poner como título de una columna de un reporte la palabra \"Mañana\" y en el reporte sale mal.\n\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'gA==','qg38f4ru',1,0,'',1104,0,0),(41784,8833,6,1104,0,'190.55.44.161',1195158794,1,0,1,1,1,0,'','','Funcion que permite seleccionar impresora\n\nGetPrintDc()\n\nSi deseas que se emita un Preview, lo debes agregar cuando defines el Report.\n\nEjemplo:\n\n[code:2eaipmde]\n   REPORT oReport TITLE &quot;Listado de clientes&quot; CENTER;\n          PREVIEW;\n          CAPTION &quot;Vista previa del listado&quot;\n[/code:2eaipmde]\n\nYo generalmente también genero los reportes manualmente utilizando un \"while\" y \"skip\", se puede tener mayor control de lo que deseas imprimir con los métodos \"Say\", \"StartLine\", \"EndLine\", \"EndPage\", etc.\n\nEspero te sirva esto.\nSaludos, Esteban','',0,'AIA=','2eaipmde',1,0,'',1104,0,0),(41785,8794,3,154,0,'151.21.32.73',1195159834,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:2oo8cppo][quote=&quot;Ugo&quot;:2oo8cppo]Only the Otto\'s function return the external IP[/quote:2oo8cppo]\nWhere is the Otto\'s function? I can\'t find it in this thread.[/quote:2oo8cppo]\nI\'m sorry, I was wrong is the function of Richard Chidiak','',0,'gA==','2oo8cppo',1,0,'',154,0,0),(41786,8846,6,1072,0,'190.82.18.86',1195162845,1,0,1,1,1,0,'','Nuevamente Molestando ERROR URGENTE','Amigos: \n\nCreo que pasar de 16 a 32 bits, ha sido mas traumatico de lo que pensaba, ya que lo que funcionaba, aqui es un error. Me tiene de cabezas y no logro dar con el error, por eso recurro a los maestros.\n\nTengo lo siguiente:\n\n**INICIO DE PROGRAMA\n\nMEMVAR c_base\n\nFunction Main()\n   ....\n   ....\n   Local oBar\n\n   MeMvar-&gt;c_base=\"Men_cla\"     &amp;&amp; Asigno Valor a Variable\n\n   **** EN ESTA LINEA SE PRODUCE EL ERROR\n--&gt;  if !Usored(&amp;c_base,1,.f.,,&amp;c_base)     // Aqui Mando a Abrir la Base de Datos que va en la variable c_base\n     Tone(3000,1);Tone(4000,1);Tone(5000,1)\n     MsgInfo(\"Error No Pudo Abrir Base de Dato\")\n     Return (.F.)\n  Endif\n\nAL tratar de pasar la variable con el nombre de la base de datos, me arroja el siguiente error:\n\nc:\\util\\sistemas\\rutina.prg(16) Warning W0001  Ambiguou\n\nEstoy usando Fwh 701 y Xharbour 00.99.71, Bcc55 y Verce 5.1. \nLos Flags para Xhabour que uso en verce es:\n/n /m /w /es2 /gc1   \n\nSaludos,\nAntonio','',0,'gA==','14qpevlb',1,0,'',1072,0,0),(41787,8817,6,100,0,'200.174.95.131',1195163174,1,0,1,1,1,1,'','','Antonio\n\nEs possible cambiar las colores de los headers ??','',0,'gA==','3lhqi2jo',1,0,'',100,0,0),(41788,8390,22,41,0,'200.87.67.11',1195163519,1,0,1,1,1,0,'','','MOISES,\n\nprueba esta modificacion de uno de los ejemplos de fw\n\n[code:13k98zgt]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\nfunction Main&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;Testing Class TPreview&quot; MDI ;\n      MENU BuildMenu&#40;&#41;\n\n   DEFINE STATUSBAR OF oWnd PROMPT &quot;FWH Multiple previews management&quot;\n\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   MENU oMenu\n      MENUITEM &quot;Build a Preview&quot;\n      MENU\n         MENUITEM &quot;First&quot; ACTION Preview1&#40;&#41;\n         SEPARATOR\n         MENUITEM &quot;&amp;Exit&quot; ACTION oWnd&#58;End&#40;&#41;\n      ENDMENU\n      \n      oMenu&#58;AddMdi&#40;&#41;\n      \n      MENUITEM &quot;&amp;Help&quot;\n   ENDMENU\n   \nreturn oMenu      \n\nfunction Preview1&#40;&#41;\n\n   local oPrn, odlg, osay, npagina &#58;= 1, i\n\n   DEFINE DIALOG oDlg FROM 100,100 TO 200,300 PIXEL\n   @ 10,10 SAY oSay VAR STR&#40;npagina&#41; OF oDlg PIXEL\n   ACTIVATE DIALOG oDlg CENTER NOWAIT\n   \n   PRINTER oPrn PREVIEW\n\n      FOR i &#58;= 1 TO 30\n      PAGE\n         oPrn&#58;ImportWMF&#40; &quot;invoice&#46;emf&quot; &#41;\n      ENDPAGE\n      oSay&#58;refresh&#40;&#41; \n      npagina++\n      NEXT\n    \n   oDlg&#58;end&#40;&#41;\n\n   ENDPRINT\n   \nreturn nil      [/code:13k98zgt][/quote][/code]','',0,'AIA=','13k98zgt',1,0,'',41,0,0),(41789,8794,3,6,0,'79.3.217.49',1195164309,1,0,1,1,1,1,'','','Ok, but I don\'t like a function that relies on a specific web address.\n\nEMG','',0,'AIA=','2o2quodi',1,0,'',6,0,0),(41790,8817,6,2,0,'87.218.146.167',1195166705,1,0,1,1,1,1,'','','Jackson,\n\n&gt; Es possible cambiar las colores de los headers ??\n\nSi, muy facil\n\nSilvio,\n\n&gt; have you change also bitmaps trasparent on header ?\n\nYes, using FWH TransBmp()','',0,'AIA=','3ayc4c6p',1,0,'',2,0,0),(41791,8846,6,2,0,'87.218.146.167',1195166912,1,0,1,1,1,1,'','','Prueba así:\n\nif !Usored(&amp;( Memvar-&gt;c_base ),1,.f.,,&amp;( MemVar-&gt;c_base ) )','',0,'AIA=','2awcz0ux',1,0,'',2,0,0),(41792,8842,3,2,0,'87.218.146.167',1195167178,1,0,1,1,1,1,'','','Antonio,\n\nDo you mean using FWH own Class TCBrowse ?','',0,'AIA=','cc29havl',1,0,'',2,0,0),(41793,8804,3,2,0,'87.218.146.167',1195167988,1,0,1,1,1,1,'','','Richard,\n\nPlease make this change in samples\\Test2007.prg:\n[code:37pxcrjt]\n   DEFINE BUTTON OF oBar ACTION oBar&#58;aControls&#91; 1 &#93;&#58;Disable&#40;&#41; ; // Print&#40;&#41; ;\n      RESOURCE &quot;attach&quot; PROMPT &quot;Attach&quot;\n[/code:37pxcrjt]\nHere it works fine and disable the first button, though the bitmap is shown the same, but the button can\'t be selected','',0,'AIA=','37pxcrjt',1,0,'',2,0,0),(41794,8842,3,448,0,'83.132.21.105',1195168288,1,0,1,1,1,0,'','','Yes. \n\nAntonio','',0,'AIA=','34733144',1,0,'',448,0,0),(41795,8804,3,1193,0,'203.67.96.155',1195168641,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:z4ybqyfu]Richard,\n\nPlease make this change in samples\\Test2007.prg:\n[code:z4ybqyfu]\n   DEFINE BUTTON OF oBar ACTION oBar&#58;aControls&#91; 1 &#93;&#58;Disable&#40;&#41; ; // Print&#40;&#41; ;\n      RESOURCE &quot;attach&quot; PROMPT &quot;Attach&quot;\n[/code:z4ybqyfu]\nHere it works fine and disable the first button, though the bitmap is shown the same, but the button can\'t be selected[/quote:z4ybqyfu]\n\nHi Antonio,\n\nYes, It can run. But bitmap have not become gray color.','',0,'gIA=','z4ybqyfu',1,0,'',1193,0,0),(41796,8842,3,303,0,'72.220.100.171',1195169031,1,0,1,1,1,0,'','','AHF,\n\nThe below info is from my notes file. Note that you have indexes, filters, and deleted records to handle, so the solution has to consider these.\n\nJames\n\n---------------------------------\n8/24/2007 Update: Antonio posted this one.\n\noBrw:nClrPane := { || If( OrdKeyNo() % 2 == 0, RGB( 230, 230, 230), RGB( 190, 215, 190 ) ) }\n----------------------\n\nThis is a much better one, but only for objects. Unfortunately dbskip() only returns nil so you can\'t do this without a database object. [Update: There is an undocumented function _dbskipper() that does return the number of records skipped, so perhaps this could be done without a database object.]\n\nlClrFlag:=.f.\n\noLbx:bSkip:={| nRecs |  (nRecs:= ::oInvmast:skipper( nRecs ), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) } \n\noLbx:nClrPane := { || if(lClrFlag, rgb(255,255,235), rgb(192,208,179)) }\n\nThe above works with or without indexes, filters, and deleted records.\n\n// end','',0,'','3afj1h4n',1,0,'',303,0,0),(41797,8842,3,448,0,'83.132.21.105',1195170631,1,0,1,1,1,0,'','','James,\n\nThanks.\n\nAntonio','',0,'','3thf71pr',1,0,'',448,0,0),(41798,8833,6,396,0,'200.71.186.111',1195171232,1,0,1,1,1,1,'','','Gracias por sus respuesta, es lo que habia hecho en otros sistemas, pero lo que mas quiero saber es que usar mejor, si Treport o Tprint o si habia alguna otra clase mejor que sea nativa, he visto List y crystal, pero quiero trabajar lo mas nativo posible a nivel de las compatibilidades, bueno, revisare ambas clases y empezare con lo que hay, gracias colegas...','',0,'','3tfpypmw',1,0,'',396,0,0),(41799,8804,3,2,0,'87.218.146.167',1195172524,1,0,1,1,1,1,'','','Bitmap remains the same color, only the text color changes. Thats the Office 2007 behavior','',0,'','1yieipac',1,0,'',2,0,0),(41800,8829,22,92,0,'217.125.167.109',1195173557,1,0,1,1,1,0,'','','[quote=&quot;MOISES&quot;:2wjg4abf]Pues que quieres que te diga, mira la foto:\n\n[url=http&#58;//img408&#46;imageshack&#46;us/my&#46;php?image=dibujoav5&#46;jpg:2wjg4abf][img:2wjg4abf]http&#58;//img408&#46;imageshack&#46;us/img408/2527/dibujoav5&#46;th&#46;jpg[/img:2wjg4abf][/url:2wjg4abf]\n\nY en Windows Vista se ve peor. Creo que sería bueno que el color del get fuera más intenso, pues no se ve nada bien.\n\nAntonio, ¿qué opinas?.[/quote:2wjg4abf]\n\nFácil,\n\nSe aplica lo que he mencionado, se intenta conseguir que nuestra aplicación sea certificada microsoft y le subimos el precio.\nEso si, que el usuario pueda habilitar esa visibilidad a su voluntad.\n\nTodos contentos no?\n\nSaludos\nCarlos G.\n\n(Es broma).','',0,'mA==','2wjg4abf',1,0,'',92,0,0),(41801,8847,3,234,0,'75.34.217.174',1195173612,1,0,1,1,1,1,'','Create appointment in outlook','Hello,\n\nCan you someone provide an example of how to create an appointment in outlook.\n\nThank you,','',0,'mA==','3h51i87o',1,0,'',234,0,0),(41802,8839,6,92,0,'217.125.167.109',1195173896,1,0,1,1,1,0,'','Re: Implantación de un Calendario','[quote=&quot;Loren&quot;:1iyr9l6v]Estimados compañeros:\n\nen mis sistemas tengo implantado un mini calendario para que el usuario defina las fechas sin necesidad de teclear en los gets. Este calendario está obsoleto y poco atractivo, así que buscando encontré uno diseñado por Rodrigo Soto y Bingen Ugaldebere muy buenos.\n\nAl adaptarlo a mis sistemas, encontré que al compilarlos me genera el siguiente error:\n\nC:\\programacion\\Manzanares\\prg\\TCALENDA.prg(37) Error E0030  Syntax error: \"syntax error at \'ADIASEMANA\'\"\n\nEl PRG en la linea 37 es el siguiente:\nDATA aDiaSemana    AS ARRAY INSTANTIATE ARRAY( 7)\n\nNo consigo contactar con los creadores del codigo y mis conocimientos son limitados como para modificar el código. ¿Que modificación tendría que hacer?\nMil gracias\nLORENZO[/quote:1iyr9l6v]\n\nPrueba esto:\n\nDATA aDiaSemana    AS ARRAY INIT {,,,,,,}\n\nSaludos\nCarlos G.','',0,'gA==','1iyr9l6v',1,0,'',92,0,0),(41803,8847,3,303,0,'72.220.100.171',1195176445,1,0,1,1,1,0,'','','I copied this from another message. I have never tried it and you probably don\'t need the SET DATE TO GERMAN unless you are Germany.\n\nJames\n\n\n[code:437x47hr]FUNCTION AddOLappointment&#40; cDate, cTime, nLenInMin, cSubject, cNotiz &#41; \n\n   LOCAL hOutlook \n   LOCAL hApptItem \n   LOCAL dDate \n   LOCAL lSave &#58;= &#46;F&#46; \n   TRY \n      hOutlook  &#58;= CreateOLEObject&#40; &quot;Outlook&#46;Application&quot; &#41; \n      hAppItem  &#58;= OLEInvoke&#40; hOutlook, &quot;CreateItem&quot;, 1 &#41; \n\n      SET CENTURY ON \n      dDate &#58;= CToD&#40; cDate &#41; \n      OLESetProperty&#40; hAppItem, &quot;Start&quot;, cDate + &quot; &quot; + cTime &#41; \n      OLESetProperty&#40; hAppItem, &quot;StartTime&quot;, cTime + &quot;&#58;00&quot; &#41; \n      SET CENTURY ON \n      SET Date TO GERMAN \n      OLESetProperty&#40; hAppItem, &quot;Duration&quot;, nLenInMin * 60 &#41; \n      OLESetProperty&#40; hAppItem, &quot;Subject&quot;, cSubject &#41; \n      OLESetProperty&#40; hAppItem, &quot;Body&quot;, cNotiz &#41; \n      OLESetProperty&#40; hAppItem, &quot;Mileage&quot;, 225 &#41; \n      OLEInvoke&#40; hAppItem, &quot;Save&quot; &#41; \n      hAppItem &#58;= NIL \n      hOutlook &#58;= NIL \n      lSave &#58;= &#46;t&#46; \n   CATCH \n      lSave &#58;= &#46;f&#46; \n   END \nRETURN &#40;lSave&#41; [/code:437x47hr]','',0,'AIA=','437x47hr',1,0,'',303,0,0),(41804,8804,3,1193,0,'203.67.96.155',1195176656,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2ebjdonv]Bitmap remains the same color, only the text color changes. Thats the Office 2007 behavior[/quote:2ebjdonv]\n\nHi Antonio,\n\nI see.\nJust think any solution or add this function.\n\nRegards,\n\nRichard','',0,'gA==','2ebjdonv',1,0,'',1193,0,0),(41805,8804,3,303,0,'72.220.100.171',1195177032,1,0,1,1,1,0,'','','&gt;Bitmap remains the same color, only the text color changes. Thats the Office 2007 behavior\n\nAs Charlie Brown (a cartoon character here in the US) always says, \"Good grief!\"\n\n<!-- m --><a class=\"postlink\" href=\"http://en.wikipedia.org/wiki/Charlie_Brown\">http://en.wikipedia.org/wiki/Charlie_Brown</a><!-- m -->\n\nJames','',0,'gA==','17zr1be1',1,0,'',303,0,0),(41806,8847,3,234,0,'75.34.217.174',1195179127,1,0,1,1,1,1,'','','Hi James,\n\nThanks for your help!\n\nRegards,','',0,'gA==','1sz5d6l0',1,0,'',234,0,0),(41807,7562,22,239,0,'121.32.19.185',1195181376,1,0,1,1,1,0,'','','Antonio,\n  A video file made shows theme mode tget face Chinese words input. mian problem is the cursor more right the positon .\n  <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/theme-tget.rar\">http://www.xtech.com.cn/down/theme-tget.rar</a><!-- m -->\n\n Regards!\n\nShuming Wang','',0,'gA==','29wc8jg2',1,0,'',239,0,0),(41808,8848,3,239,0,'121.32.19.185',1195190078,1,0,1,1,1,0,'','How to convert C++--&gt; CPP ?','Hi\n \nvoid BIG52GBK(char *szBuf)\n{\n&#12288; if(!strcmp(szBuf, \"\"))\n&#12288;&#12288; return;\n&#12288; int nStrLen = strlen(szBuf);\n&#12288; wchar_t *pws = new wchar_t[nStrLen + 1];\n&#12288; try\n&#12288; {\n&#12288;&#12288; int nReturn = MultiByteToWideChar(950, 0, szBuf, nStrLen, pws, nStrLen + 1);\n&#12288;&#12288; BOOL bValue = false;\n&#12288;&#12288; nReturn = WideCharToMultiByte(936, 0, pws, nReturn, szBuf, nStrLen + 1, \"?\", &amp;bValue);\n&#12288;&#12288; szBuf[nReturn] = 0;\n&#12288; }\n&#12288; __finally\n&#12288; {\n&#12288;&#12288; delete[] pws;\n&#12288; }\n}\n\nharbour request :  HB_FUNC(BIG52GBK) \n\nRegards\n\nShuming Wang','',0,'','1f624reo',1,0,'',239,0,0),(41809,8829,22,2,0,'87.218.146.167',1195201553,1,0,1,1,1,1,'','','&gt; Antonio, ¿qué opinas?.\n\nPara eso se usa oGet:lDisColors = .F.\n\nLo que podemos hacer es establecerlo de forma global para toda la aplicación para así no tener que ir cambiando cada GET','',0,'','3h6y092a',1,0,'',2,0,0),(41810,8829,22,1146,0,'87.223.173.186',1195202022,1,0,1,1,1,0,'','','Mucho mejor Antonio, así todos contentos.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> . Por favor, que en este nuevo parámetro global se pudiera especificar el nuevo color para todos los gets cuando se usa la cláusula NO MODIFY o WHEN .F.\n\nEste nuevo cambio global, ¿funcionará para los gets definidos tipo REDEFINE GET ID 100, es decir, sin la variable oGet?.\n\nMuchas gracias Antonio. Siempre das en el clavo!!!.','',0,'','3a8pyr3l',1,0,'',1146,0,0),(41811,8848,3,2,0,'87.218.146.167',1195202062,1,0,1,1,1,1,'','','[code:mc06pzzd]\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; BIG52GBK &#41;\n&#123;\n   char * szBuf = hb_parc&#40; 1 &#41;;\n   int nStrLen = strlen&#40; szBuf &#41;; \n   LPWSTR pws = &#40; LPWSTR &#41; hb_xgrab&#40; &#40; sStrLen + 1 &#41; * 2 &#41;;\n   int nReturn = MultiByteToWideChar&#40; 950, 0, szBuf, nStrLen, pws,          \n                                                        nStrLen + 1&#41;; \n   BOOL bValue = FALSE;\n \n   nReturn = WideCharToMultiByte&#40; 936, 0, pws, nReturn, szBuf, \n                                                    nStrLen + 1, &quot;?&quot;, &amp;bValue&#41;; \n   szBuf&#91; nReturn &#93; = 0; \n   hb_retclen&#40; &#40; char * &#41; pws, nReturn &#41;;\n   hb_xfree&#40; pws &#41;; \n&#125; \n[/code:mc06pzzd]','',0,'AIA=','mc06pzzd',1,0,'',2,0,0),(41812,8842,3,130,0,'141.51.32.24',1195202119,1,0,1,1,1,1,'','','AHF,\n\nhere is another working solution\n\n[code:2eymeszl]\n&#46;&#46;&#46;\n&#58;&#58;oBrw&#58;bBkColor &#58;= &#123;|nRow,nCol,nStyle| TcBrwCol &#40;nRow,nStyle,&#58;&#58;oBrw,  aColorK&#41; &#125;\n&#46;&#46;&#46;\n\nFUNCTION TcBrwCol &#40; nRow, nStyle, oBrw, aColor &#41;\n\nLOCAL nColor\n\nDEFAULT aColor &#58;= &#123;RGB&#40; 102, 205, 170 &#41;,RGB&#40; 32, 178, 170 &#41;&#125;\n\n//IF nStyle = 0\n   IF IsEven&#40; nRow &#41;\n      nColor &#58;= aColor&#91;1&#93;\n   ELSE\n      nColor &#58;= aColor&#91;2&#93;\n   ENDIF\n//ENDIF\n\nRETURN &#40; nColor &#41;\n\n\nFUNCTION IsEven&#40; nVal &#41;\nRETURN IIF&#40; nVal = Round&#40; nVal/2, 0 &#41;*2, &#46;T&#46;, &#46;F&#46; &#41;\n\n[/code:2eymeszl]','',0,'AIA=','2eymeszl',1,0,'',130,0,0),(41813,8804,3,2,0,'87.218.146.167',1195202302,1,0,1,1,1,1,'','','Richard,\n\nDo you want it to look grayed ?\n\nJames,\n\nWhats the translation into spanish ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1443dw9z',1,0,'',2,0,0),(41814,8829,22,2,0,'87.218.146.167',1195202443,1,0,1,1,1,1,'','','Moisés,\n\n&gt;\nPor favor, que en este nuevo parámetro global se pudiera especificar el nuevo color para todos los gets cuando se usa la cláusula NO MODIFY o WHEN .F. \n&gt;\n\nSí, buena idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;\nEste nuevo cambio global, ¿funcionará para los gets definidos tipo REDEFINE GET ID 100, es decir, sin la variable oGet?. \n&gt;\n\nSí <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3gz2t3h4',1,0,'',2,0,0),(41815,8845,6,2,0,'87.218.146.167',1195202641,1,0,1,1,1,1,'','','AnsiToOem( cAnsiTexto ) --&gt; cOemTexto\n\nOemToAnsi( cOemTexto ) --&gt; cAnsiTexto','',0,'AIA=','1tmt8s8k',1,0,'',2,0,0),(41816,8847,3,6,0,'82.61.157.176',1195202907,1,0,1,1,1,1,'','','James, why do you use OLEInvoke() and OLESetProperty() instead of the common object oriented syntax? As an example:\n\nhAppItem := hOutlook:CreateItem( 1 )\n\nAnd, by the way, I would name hOutlook and hAppItem as oOutlook and oAppItem.\n\nEMG','',0,'AIA=','2kr60m2n',1,0,'',6,0,0),(41817,8847,3,303,0,'72.220.100.171',1195203261,1,0,1,1,1,0,'','','Enrico,\n\n&gt;James, why do you...\n\nI didn\'t write it.\n\nJames','',0,'AIA=','iyh6bc9a',1,0,'',303,0,0),(41818,8825,3,2,0,'87.218.146.167',1195203595,1,0,1,1,1,1,'','','A new function SetBalloon( lOnOff ) has been added.\n\nBalloon shape is not used by default. To show tooltips as balloon:\n\nSetBalloon( .T. )\n\nIf you want a specific control to show its tooltip in a different way, just do:\n\noControl:lBalloon = .F.','',0,'AIA=','2p28th0j',1,0,'',2,0,0),(41819,8843,3,2,0,'87.218.146.167',1195205156,1,0,1,1,1,1,'','','Silvio,\n\nBy now, only when it is placed on a 2007 buttonbar','',0,'AIA=','3qp7d3as',1,0,'',2,0,0),(41820,8794,3,154,0,'84.220.81.103',1195205168,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:3d7y4sva]Ok, but I don\'t like a function that relies on a specific web address.[/quote:3d7y4sva]\n\nYes, I also don\'t like, but work.\n\nThe router is a little computer with a O.S. (Linux normally).\nIn this case i do not think that is possible to unify one standard function for return the external IP.','',0,'gA==','3d7y4sva',1,0,'',154,0,0),(41821,8842,3,448,0,'83.132.21.105',1195206576,1,0,1,1,1,0,'','','Problem solved. Thanks for your help.\n\nAntonio','',0,'gA==','1tw7c568',1,0,'',448,0,0),(41822,8794,3,3,0,'80.81.159.19',1195207008,1,0,1,1,1,1,'','','Enrico,\n\nI do not like the idea neither, this is why i was looking at another function.\n\nThis one works ok, we do all our software Maintenance with VNC using this function to  show the internet ip\n\nRichard','',0,'gA==','2wm6gt6j',1,0,'',3,0,0),(41823,8804,3,1193,0,'203.67.96.155',1195207334,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3iv3481t]Richard,\n\nDo you want it to look grayed ?\n\nJames,\n\nWhats the translation into spanish ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3iv3481t]\n\nHi Antonio,\n\nYes, I want it look grayed.\nI look Office2007 Ribbonbar, some bitmaps appear grayed.\n\nRegards,\n\nRichard','',0,'gA==','3iv3481t',1,0,'',1193,0,0),(41824,8390,22,1146,0,'87.223.173.186',1195208590,1,0,1,1,1,0,'','','Hola, ¡¡Muchas gracias!!.\n\nPues sí, se trata más o menos de eso. \n\nAntonio, por favor, ¿puedes modificar la clase para que se comporte igual que TREPORT, sacando el mismo diálogo que está en prev32.dll/preview.dll?.\n\nMuchas gracias.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nPD: Lo chulo sería que TREPORT y TPRINTER sacaran una Progessbar, eso sería de 10.  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'gA==','2u7x093s',1,0,'',1146,0,0),(41825,8847,3,6,0,'82.61.157.176',1195209441,1,0,1,1,1,1,'','','Ops! Sorry. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','1fbd7noz',1,0,'',6,0,0),(41826,8390,22,2,0,'87.218.146.167',1195210976,1,0,1,1,1,1,'','','Moisés,\n\nEse es un cambio que habría que consultar primero con los usuarios, pues afectaría a la \"estética\" de la aplicación y no todo el mundo puede estar de acuerdo','',0,'gA==','2es7la76',1,0,'',2,0,0),(41827,8843,3,49,0,'88.38.121.105',1195211050,1,0,1,1,1,1,'','','Antonio,\nin a famous  class we have  btnbmp button \nI want create it with 2007 style \nHow I can make it ?\n\nthey are predefined bitmaps  but they are not 2007 style','',0,'gA==','2jtzcevi',1,1195211168,'',49,1,0),(41828,8843,3,2,0,'87.218.146.167',1195211108,1,0,1,1,1,1,'','','Silvio,\n\nJust modify its Method Paint(). Its very easy <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','345vp4c6',1,0,'',2,0,0),(41829,8843,3,49,0,'88.38.121.105',1195211405,1,0,1,1,1,1,'','','ok I trying it','',0,'gA==','3fft7p3d',1,0,'',49,0,0),(41830,7317,6,316,0,'213.97.245.163',1195211704,1,0,1,1,1,0,'','','Antonio,\ntengo el mismo problema. Me he bajado el harbour de Fivetech y lo he instalado, tiene fecha 05/11/2007, pero no he podido solucionarlo.\nDe hecho me falla el enlazado\n[code:scu514f3]\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_HB_GT_WIN\' referenced from C&#58;\\HARBOUR711\\LIB\\RTL&#46;LIB|gtsys\n[/code:scu514f3]\nPor que el gtsys pide GT_WIN? No es suficiente con GT_GUI?\n\n\n::oGet:TypeOut = .f. en LostFocus es lo que dá el problema, luego de mecanizar una fecha inválida. Aparentemente desde que se fijó como PROTECTED TypeOut no va a poder ser asignada. \nHe probado reemplazando oGet:TypeOut con el método Home() pero me vacía el buffer del get, que no es lo que busco.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','scu514f3',1,0,'',316,0,0),(41831,7562,22,2,0,'87.218.146.167',1195212054,1,0,1,1,1,1,'','','Shuming,\n\nPlease email me that EXE and PRG as a ZIP file and we will try to fix it here, thanks','',0,'AIA=','1crpies5',1,0,'',2,0,0),(41832,7317,6,2,0,'87.218.146.167',1195212290,1,0,1,1,1,1,'','','Carlos,\n\nEl sistema GT se ha cambiado en Harbour. Ya no es como antes y hay que incluir cambios que están en FWH 7.11\n\nPuedes construir samples\\TestGet2.prg y comprobar si falla ? Aqui funciona bien','',0,'AIA=','geuoekqn',1,0,'',2,0,0),(41833,8849,6,24,0,'80.24.12.168',1195213136,1,0,1,1,1,1,'','TPages pintado','Antonio, bajo la 7.04, tengo un problema con TPages.\nPuedes ver el problema con el ejemplo TestPage.prg de Fivewin,\ncuando se ejecuta no se muestran los checkbox, aparecen cuando pasamos\npor encima.\n\nAdemas , si ocultamos el contenido con otro ventana, cuando volvemos\nal ejemplo, el contenido DESAPARECE, y aparece si pasamos el raton\npor encima.\n\n¿ Alguien puede darme una solución temporal a este problema, al menos ?\nMe urge MUCHISIMO esto!','',0,'AIA=','2sgixxj3',1,0,'',24,0,0),(41834,8818,3,448,0,'83.132.21.105',1195213706,1,0,1,1,1,0,'','','Can somone who can help me ?\nI\'ve tried everything.\n\nAntonio','',0,'AIA=','28dnuxgn',1,0,'',448,0,0),(41835,8390,22,41,0,'200.87.162.67',1195214068,1,0,1,1,1,0,'','','Antonio,\n\npodria ser opcional a traves de un atributo (DATA) de la clase, que por defecto no esta activo, solo ideas\n\nsaludos\n\nMarcelo','',0,'AIA=','wr61tzyo',1,0,'',41,0,0),(41836,8848,3,239,0,'121.32.19.185',1195214214,1,0,1,1,1,0,'','','Antonio,\n Thank you very much!\nShuming Wang','',0,'AIA=','1czn7bi0',1,0,'',239,0,0),(41837,8850,3,448,0,'83.132.21.105',1195214288,1,0,1,1,1,0,'','Increasing row height in tcbrowse','Hi,\n\nIs there some way to increase row height in tcbrowse ?\n\nAntonio','',0,'AIA=','t5hpi8a7',1,0,'',448,0,0),(41838,8390,22,1146,0,'87.223.173.186',1195214469,1,0,1,1,1,0,'','','Eso es. Un parámetro adicional para especificarlo a voluntad!!.\n\nEn todo caso, lo del diálogo en TPRINTER  como en que hay en Report no creo que le importe a nadie.','',0,'AIA=','2a3m6n1p',1,0,'',1146,0,0),(41840,7562,22,239,0,'121.32.19.185',1195214570,1,0,1,1,1,0,'','','Antonio,\n  Any normal   tget with sring type var  input under WinXP themes mode will show this .\n\nBest Regards!\n\nShuming Wang','',0,'AIA=','hkvcwz3f',1,0,'',239,0,0),(41841,8106,18,1146,0,'87.223.173.186',1195214577,1,0,1,1,1,0,'','','Antonio,\n\nSigue pendiente que los botones se muestran en inglés. Deberían mostrarse en el mismo idioma que el sistema operativo, como sucede con msgstop, msgalert, etc. \n\nMuchas gracias!!.','',0,'AIA=','eyl2e5z0',1,0,'',1146,0,0),(41842,7562,22,2,0,'87.218.146.167',1195214891,1,0,1,1,1,1,'','','Shuming,\n\nI send you an email','',0,'AIA=','ux8kedl2',1,0,'',2,0,0),(41843,8849,6,1146,0,'87.223.173.186',1195215596,1,0,1,1,1,0,'','','Rafa, perdona que escriba en este post. Me gustaría preguntarte si tienes una versión nueva de tus clases timprime y tUtilPrn para Harbour en 32 bits. Asimismo, en el link que tiene Antonio no hay ejemplos, y los de 16 bits no los encuentro. Muchas gracias y enhorabuena por el trabajo  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','',0,'AIA=','3ff54gil',1,0,'',1146,0,0),(41844,8849,6,2,0,'87.218.146.167',1195216216,1,0,1,1,1,1,'','','Rafa,\n\nQuita esta línea de samples\\TestPage.rc:\n\nCONTROL \"\", -1, \"static\", SS_WHITERECT, 67, 5, 192, 131\n\ny ya funciona bien','',0,'AIA=','32l1yeth',1,0,'',2,0,0),(41845,8845,6,1104,0,'200.115.249.191',1195216394,1,0,1,1,1,0,'','','Antonio, \nProbé lo siguiente:\n\n[code:18lm9lyu]\n\nAnsiToOem&#40;&quot;Mañana&quot;&#41;\n\nOemToAnsi&#40;&quot;Mañana&quot;&#41;\n[/code:18lm9lyu]\n\nDe ninguna de las dos formas está poniendo bien la letra \"ñ\"\n\nPorqué puede ser?\nMuchas gracias.\nSaludos, Esteban','',0,'AIA=','18lm9lyu',1,0,'',1104,0,0),(41846,8849,6,24,0,'80.24.12.168',1195216942,1,0,1,1,1,1,'','','[quote=&quot;MOISES&quot;:1bntdzcd]Rafa, perdona que escriba en este post. Me gustaría preguntarte si tienes una versión nueva de tus clases timprime y tUtilPrn para Harbour en 32 bits. Asimismo, en el link que tiene Antonio no hay ejemplos, y los de 16 bits no los encuentro. Muchas gracias y enhorabuena por el trabajo  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->[/quote:1bntdzcd]\n\nUmm... las clases de 32 bits estan listas casi desde la primera version de Harbour, de eso hace mucho.... creo que por aqui estan, las dejo Antonio en el foro de contribuciones.\n\n¿ Puedes indicar que problemas tienes con Harbour ?\n\nAqui tengo los ejemplos originales que hice, dime donde te los envio.','',0,'gA==','1bntdzcd',1,0,'',24,0,0),(41847,8849,6,24,0,'80.24.12.168',1195217095,1,0,1,1,1,1,'','Re:','[quote=&quot;Antonio Linares&quot;:1p3efej6]Rafa,\n\nQuita esta línea de samples\\TestPage.rc:\n\nCONTROL \"\", -1, \"static\", SS_WHITERECT, 67, 5, 192, 131\n\ny ya funciona bien[/quote:1p3efej6]\n\nGua! Perfecto! \nMe basé exactamente en ese ejemplo, que malo es el copy/paste por dios!,\njajaja, dios, menos mal que  no me maree con el tema del doblebuffer , paint y demás , jajaja.\n\nGracias Antonio.','',0,'gA==','1p3efej6',1,0,'',24,0,0),(41848,8766,4,1218,0,'81.84.76.100',1195217408,1,0,1,1,1,0,'','','Hi Antonio.\n\nThe manufacturer asked what de dll´s needed to solve the problem !\n\nThey know what are saying ???\n\nRegards.','',0,'gA==','idkuq541',1,0,'',1218,0,0),(41849,8849,6,1146,0,'87.223.173.186',1195217533,1,0,1,1,1,0,'','','Mi correo es . Muchas gracias!!.\n\nAún no las he probado en Harbour, porque no encontré los ejemplos. Lo pruebo y te comento.\n\nGracias nuevamente  <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->','a44fbdc511077610d61971b5bdf9668e',0,'','2871hdhk',1,0,'',1146,0,0),(41850,8851,6,362,0,'200.158.19.60',1195218711,1,0,1,1,1,1,'','Propriedades de red','Buenas amigos, como puedo hacer para Mostrar el diálogo \'Propiedades de red en WINDOWS XP??\n\n   //Mostrar el diálogo \'Propiedades de red\'\n   DEFINE BUTTON OF oBar  PROMPT \"Propriedades da Rede\" ;\n          FONT oFnt ;\n          ACTION (Control(\'shell32.dll,Control_RunDLL netcpl.cpl\',oWnd))\n\n   //Mostrar el diálogo \'Asistente para conexión de red\'\n   DEFINE BUTTON OF oBar  PROMPT \"Assistente Conexao Rede\" ;\n          FONT oFnt ;\n          ACTION (Control(\'rnaui.dll,RnaWizard\',oWnd))\n\nAsi, solo funciona en WINDOWS 98, no en WINDOWS XP.\n\nGracias, Regards saludos.','',0,'gA==','201vi8lc',1,0,'',362,0,0),(41851,8852,6,400,0,'201.92.34.245',1195220863,1,0,1,1,1,1,'','WNetBrowseDialog(), Como usar ???','Estou testando a WNetBrowseDialog()...mas...ela só esta retornando NIL.\n\nMsgInfo( WNetBrowseDialog( 0, TYPE_PRINTER, \"e:\\\" ), \"Informação\" )\n\nAlguem sabe como posso usar ela corretamente ?\n\nSaludos','',0,'gA==','3razeene',1,0,'',400,0,0),(41852,8853,3,3,0,'80.81.159.19',1195222141,1,0,1,1,1,1,'','DBCOMBO question to James','James\n\nWhat would be the reason a dbcombo would show the \"relative\" position in the file for a numeric item instead of the real value ?\n\nThe combobox is redefined from resource and is not defined \"sorted\'\n\nThanks for help,\n\nRichard','',0,'gA==','2xm0vck8',1,0,'',3,0,0),(41853,8818,3,1193,0,'211.74.15.220',1195226087,1,0,1,1,1,0,'','','Hi Antonio,\n\nI think this is you want it.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetech.com.tw/big5/FWH-ActiveX-Skype.html\">http://www.fivetech.com.tw/big5/FWH-ActiveX-Skype.html</a><!-- m -->\n\nI use ActiveX to call Skype ActiveX and direct call within contract name or phone number. Runing OK. If you use hardware device PHONE no problem.\n\nRegards,\n\nRichard','',0,'gA==','msaf2zih',1,0,'',1193,0,0),(41854,8844,6,362,0,'200.158.19.60',1195226167,1,0,1,1,1,1,'','','Que formato deseas??','',0,'gA==','28bifqxd',1,0,'',362,0,0),(41855,8825,3,868,0,'219.64.121.60',1195226371,1,0,1,1,1,1,'','','This is very convinient for us to use\n\nSimilarly can we have a switch for Office2007 look also? \n\nWhile converting or upgrading a large application it is possible that we may leave a few popup menus or button or msg bars. ( happened to me ). Global switch is much better to convert a whole application\'s interface look uniformly\n\nThis applies even for any such future major gui enhancements','',0,'gA==','38fgpx8b',1,0,'',868,0,0),(41856,8835,6,396,0,'201.208.8.160',1195227475,1,0,1,1,1,1,'','','Habia una forma en clipper que se usaba para el centrado de titulos en la pantalla o documentos a imprimir, que era diviendo el tamaño de columnas creo que entre 2 y restandole el tamaño del texto o algo asi, si alguien recuerda eso, bueno te serviria, deja revisar en mi clipoteca a ver si la encuentro y te la envio o publico.practica lo que te dije de la division.saludos.... lo bueno de esto es que si cambias el tamaño del dialogo se centra igual en cambio como te dice antonio te va a quedar movido en titulo y vas a tener que estar incrementando SPACE(), podrias hacerte una funcioncita, bye.','',0,'gA==','2713oeg5',1,0,'',396,0,0),(41857,8818,3,448,0,'82.155.9.123',1195229672,1,0,1,1,1,0,'','','With Activex I get error but I have the Skyp4com.dll and skype 3 installed. Do you have some clue ?\n\nAntonio','',0,'gA==','re2fg97c',1,0,'',448,0,0),(41858,8766,4,358,0,'81.45.226.9',1195230101,1,0,1,1,1,0,'','','Pjmfelix.\n\nEl fabricante CASIO debería proporcionarte el “ IT-3000 EXPORT SDK For eV++C 4.0”. En este sdk hay “COREDLL.LIB” y “COREDLL.EXP” que tienes que copiar al directorio vce\\lib\\arm, para que las aplicaciones de Fwppc funcionen en el IT3000. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos.','',0,'gA==','12o0mtcc',1,0,'',358,0,0),(41859,8835,6,456,0,'62.43.18.83',1195230227,1,0,1,1,1,1,'','','Supongo que lo que comenta Jose Luis es algo similar a esto:\n[code:3q3fmqot]\nFUNCTION Centra&#40;cCadena,nLon,cRelleno&#41;\n    DEFAULT nLon&#58;=78\n    DEFAULT cRelleno&#58;=Space&#40;1&#41; \n    cCadena&#58;= Replicate&#40;cRelleno,Int&#40;&#40;nLon-Len&#40;cCadena&#41;&#41;/2&#41;&#41;+cCadena+Replicate&#40;cRelleno,Int&#40;&#40;nLon-Len&#40;cCadena&#41;&#41;/2&#41;&#41;\nRETURN cCadena[/code:3q3fmqot]\nPero para que te funcione ok, necesitas saber el ancho donde lo quieres centrar.','',0,'AIA=','3q3fmqot',1,0,'',456,0,0),(41860,8854,3,34,0,'68.5.217.82',1195230566,1,0,1,1,1,1,'','Office 2007','Hmmm ...\n\nButton Bar bitmap buttons display the right background ( highlight ) color when in focus.\n\nMenu items display the right background ( highlight ) color when in focus.\n\nButton bars, menus, message bars, etc. all respond correctly to the theme.\n\nShouldn\'t normal control buttons show the right color when in focus ?\n\nJust a thought.\n\nTim','',0,'AIA=','u4sbdx0i',1,0,'',34,0,0),(41861,8825,3,34,0,'68.5.217.82',1195231483,1,0,1,1,1,1,'','With Gets ?','A post indicated tooltips are used with \"everything\" including Get controls .\n\nJust curious ... but I don\'t see Tooltips implemented in Gets ?  How\'s that done ?\n\nTim','',0,'AIA=','izpb8jef',1,0,'',34,0,0),(41862,8766,4,1218,0,'81.84.76.100',1195231960,1,0,1,1,1,0,'','','Gracias Salvador vou hablar com el fabricante.\n\nSaludos.','',0,'AIA=','14mgs9e6',1,0,'',1218,0,0),(41864,8845,6,2,0,'87.218.146.167',1195232483,1,0,1,1,1,1,'','','Esteban,\n\nSi estás usando un editor en Windows, entonces no te hace falta:\n\n   MsgInfo( \"Mañana\" )\n\naqui se ve bien','',0,'AIA=','urf5h78y',1,0,'',2,0,0),(41865,8825,3,2,0,'87.218.146.167',1195232838,1,0,1,1,1,1,'','','Tim,\n\noGet:cTooltip = \"Text\"','',0,'AIA=','3nhlyt5g',1,0,'',2,0,0),(41866,8817,6,180,0,'79.145.97.157',1195234409,1,0,1,1,1,0,'','','Antonio,  se ha solucionado este problema en Xbrowse?\n\n<!-- m --><a class=\"postlink\" href=\"http://img512.imageshack.us/img512/1092/pintadolb5.png\">http://img512.imageshack.us/img512/1092/pintadolb5.png</a><!-- m -->','',0,'AIA=','56u1t49l',1,0,'',180,0,0),(41867,8817,6,2,0,'87.218.146.167',1195234469,1,0,1,1,1,1,'','','Manuel,\n\nSí, se solucionó (si mal no recuerdo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','27udny1c',1,0,'',2,0,0),(41868,8850,3,2,0,'87.218.146.167',1195234801,1,0,1,1,1,1,'','','Antonio,\n\nNo. You need to use TXBrowse','',0,'AIA=','pa5txjck',1,0,'',2,0,0),(41869,8853,3,303,0,'72.220.100.171',1195234891,1,0,1,1,1,0,'','','Richard,\n\nYou can\'t use numeric data with either Combobox or DBComobo--the data must be converted to string. If numeric data values are passed as parameters to methods then they are assumed to be locations, not data elements.\n\nDBCombo inherits from the Combobox class so it inherits the same behavior. Some time ago I tried to modify DBCombo to handle numeric data but it turned out to a huge amount of work since I would have to rewrite most of the combobox methods too.\n\nSince DBCombo\'s can also use arrays, then you can just convert the database info to an array of strings before initializing DBCombo, then convert the selected value back to a number.\n\nRegards,\nJames','',0,'AIA=','26dhguge',1,0,'',303,0,0),(41870,8853,3,3,0,'80.81.159.19',1195235044,1,0,1,1,1,1,'','','James\n\nThanks for the reply, it is quite clear now\n\ni will convert to string\n\nRichard','',0,'AIA=','gsflotan',1,0,'',3,0,0),(41871,8850,3,448,0,'83.132.21.105',1195235393,1,0,1,1,1,0,'','','Antonio,\n\nOK.\nIs Txbrowse totally compatible with Tcbrowse ?\n\nAntonio','',0,'AIA=','35p7v9m4',1,0,'',448,0,0),(41872,8856,2,1224,0,'190.30.53.226',1195235513,1,0,1,1,1,0,'','Clase para drill down en un report?','Hola\nNecesito hacer un drilldown sobre los datos de un reporte, para detallar el histórico.\nExiste alguna clase que me permita hacerlo?.\nGracias, y saludos.\nGabriela','',0,'AIA=','1bn1133i',1,0,'',1224,0,0),(41873,8846,6,1072,0,'190.82.15.206',1195237179,1,0,1,1,1,0,'','','Antonio:\n\nMaestro como siempre, funciono perfecto, un millon de gracias.\n\nSaludos,\nAntonio\n\n\n\n[quote=&quot;Antonio Linares&quot;:2srpqv64]Prueba así:\n\nif !Usored(&amp;( Memvar-&gt;c_base ),1,.f.,,&amp;( MemVar-&gt;c_base ) )[/quote:2srpqv64]','',0,'gA==','2srpqv64',1,0,'',1072,0,0),(41874,8845,6,1104,0,'190.55.55.237',1195237564,1,0,1,1,1,0,'','','Antonio, \n\nEstoy definiendo la columna del reporte de la siguiente manera:\n[code:1h0vsahp]\nCOLUMN TITLE &quot;Turno&quot;,&quot;Mañana&quot; DATA &quot; &quot; CENTER\nCOLUMN TITLE &quot;Turno&quot;,&quot;Tarde&quot;  DATA &quot; &quot; CENTER\nCOLUMN TITLE &quot;Turno&quot;,&quot;Noche&quot;  DATA &quot; &quot; CENTER\n[/code:1h0vsahp]\n\nDonde está la ñ sale cualquier cosa estoy usando un editor en windows.\nAntes no me pasaba esto, pero de repente todos los acentos y las ñ se ven con cualquier símbolo.\nGracias de todas formas por tu atención.\nSaludos, Esteban.','',0,'AIA=','1h0vsahp',1,0,'',1104,0,0),(41875,8427,6,2,0,'87.218.146.167',1195237829,1,0,1,1,1,1,'','','Pedro,\n\nTenemos una nueva versión que debe solucionar completamente esos efectos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1sfp1b1k',1,0,'',2,0,0),(41876,8845,6,2,0,'87.218.146.167',1195237935,1,0,1,1,1,1,'','','Esteban,\n\nHas probado con ?\n\nCOLUMN TITLE \"Turno\", OemToAnsi( \"Mañana\" ) DATA \" \" CENTER \n\nó\n\nCOLUMN TITLE \"Turno\", AnsiToOem( \"Mañana\" ) DATA \" \" CENTER','',0,'AIA=','3t2np9yy',1,0,'',2,0,0),(41877,8850,3,2,0,'87.218.146.167',1195238172,1,0,1,1,1,1,'','','Antonio,\n\nNo, it is not. \n\nIt is more complex though it is much more powerfull. \n\nPlease review samples\\TestXBrw.prg','',0,'AIA=','2qejhnv3',1,0,'',2,0,0),(41878,8825,3,34,0,'68.5.217.82',1195238907,1,0,1,1,1,1,'','Get','OK ... nice to know.  My GET\'s are REDEFINED from a resource using a command line so I\'ll have to consider the benefit of recoding a bit.','',0,'AIA=','2grxgtw5',1,0,'',34,0,0),(41879,8857,3,1011,0,'203.84.187.62',1195241445,1,0,1,1,1,0,'','Add image to this forum','Dear All,\n\nHow do we add/insert an image to this forum.\n\nToyet','',0,'AIA=','1lyry960',1,0,'',1011,0,0),(41880,8857,3,2,0,'87.218.146.167',1195244559,1,0,1,1,1,1,'','','Toyet,\n\nUse <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> and copy here the fourth provided URL once you upload an image','',0,'AIA=','1ef5t1ab',1,0,'',2,0,0),(41882,8859,3,1011,0,'203.84.187.62',1195246207,1,0,1,1,1,0,'','TFolder Class strange behavior','Dear All,\n\nThis is a screenshot (private data erased) of the strange behavior.\n\n<!-- m --><a class=\"postlink\" href=\"http://img236.imageshack.us/img236/1425/sourceoneerrorix2.jpg\">http://img236.imageshack.us/img236/1425 ... rorix2.jpg</a><!-- m -->\n\nAs you can see, the dialog information for page 1 is not displayed in full.  Only a portion of it.\n\nThis happened on a Windows Server 2003 - Small Business Server Service Pack 2.\n\nAny ideas?\n\nToyet','',0,'AIA=','3s4m9qa1',1,0,'',1011,0,0),(41883,8859,3,2,0,'87.218.146.167',1195246700,1,0,1,1,1,1,'','','It looks as you have to use larger folder to show the entire dialog','',0,'AIA=','3tmgd0xm',1,0,'',2,0,0),(41884,8859,3,1011,0,'203.84.187.62',1195246857,1,0,1,1,1,0,'','','Antonio,\n\nThis does not happen to all other stations not having Windows Server 2003.\n\nToyet','',0,'AIA=','61wkacy9',1,0,'',1011,0,0),(41885,8835,6,396,0,'201.209.58.107',1195248315,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:7wek935e]Supongo que lo que comenta Jose Luis es algo similar a esto:\n[code:7wek935e]\nFUNCTION Centra&#40;cCadena,nLon,cRelleno&#41;\n    DEFAULT nLon&#58;=78\n    DEFAULT cRelleno&#58;=Space&#40;1&#41; \n    cCadena&#58;= Replicate&#40;cRelleno,Int&#40;&#40;nLon-Len&#40;cCadena&#41;&#41;/2&#41;&#41;+cCadena+Replicate&#40;cRelleno,Int&#40;&#40;nLon-Len&#40;cCadena&#41;&#41;/2&#41;&#41;\nRETURN cCadena[/code:7wek935e]\nPero para que te funcione ok, necesitas saber el ancho donde lo quieres centrar.[/quote:7wek935e]\nEse mismo Biel, logico que como dices, debe saber el ancho del dialogo y creo es lo mas facil de todo y depende si usa tamaño por pixeles u otra forma.Gracias por esa Biel..., voy probarla a ver que tal va...  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gIA=','7wek935e',1,0,'',396,0,0),(41886,8818,3,448,0,'83.132.21.105',1195250040,1,0,1,1,1,0,'','','I\'ve found the error. Application was forbbiden by skype. It\'s solved!\nThanks to all.\n\nAntonio','',0,'gIA=','1nzg3lcg',1,0,'',448,0,0),(41887,8818,3,2,0,'87.218.146.167',1195252164,1,0,1,1,1,1,'','','Antonio,\n\n&gt; I\'ve found the error. Application was forbbiden by skype. It\'s solved! \n\nHow did you solve it ? thanks,','',0,'gIA=','309hqx78',1,0,'',2,0,0),(41888,8760,6,1059,0,'190.31.60.34',1195254502,1,0,1,1,1,0,'','','Buenas tardes,\n\nSigo con lo del hipervínculo.\n\nSi bién ya logré hacer algo similar a lo que me interesaría realmente (selecciono con el mouse un  pseudo-hipervínculo, por ej. \"D:\\prueba.jpg\" que en realidad es una frase más dentro del archivo .RTF, y le agregué una opción al menú contextual que al seleccionarla procesa esa frase y la ejecuta con ShellExecute() lo cual vendría a ser mi solución \"casera\" para el hipervínculo.\n\nPero... en realidad me sigue interesando el tema y noté que si dentro del archivo .RTF a editar, escribo: \"file:d:\\muestra.jpg\", esta frase sale colorizada y subrayada como los link\'s y al pasar el cursor sobre ella se transforma en una mano, pero al pulsar sobre ella no hace absolutamente nada.\n\nMi pregunta son: \n¿Porqué pasa esto?, ¿Que es lo que determina que se colorize, subraye y aparezca la mano como cursor?, ¿Como o donde podría actuar para aprovechar el momento que se pulsa sobre esta frase?.\n\nSi alguien puede ayudarme, le estaré agradecido.\n\nRolando <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','2rovs1o9',1,0,'',1059,0,0),(41889,8844,6,1106,0,'190.64.137.173',1195255128,1,0,1,1,1,0,'','','Karinha:\n\nDeseo PDF, Word y Excel\n\nMuchas gracias.\n\n\nSaludos.\n\nRuben Fernandez.','',0,'gIA=','2qpmqt9h',1,0,'',1106,0,0),(41890,8857,3,303,0,'72.220.100.171',1195256496,1,0,1,1,1,0,'','','This is another good site (also free).\n\n<!-- m --><a class=\"postlink\" href=\"http://www.freeimagehosting.net/\">http://www.freeimagehosting.net/</a><!-- m -->\n\nJames','',0,'gIA=','3q0yb1ly',1,0,'',303,0,0),(41891,8825,3,303,0,'72.220.100.171',1195257012,1,0,1,1,1,0,'','','I only use tooltips on a GET or similar control very rarely and then only when the user either enters invalid or questionable data. Having a tooltip popup every time a control gets focus would be very irritating after the first couple of times.\n\nAntonio, one thing that would be useful is to have a tooltip class that is exported so we could replace it or easily control it. The current oTooltip used in TWindow is a static var so we can\'t access it. I have written a TTooltip class if you would like a copy. I created this to implement the procedures described in the above paragraph.\n\nJames','',0,'gIA=','205t0q8c',1,0,'',303,0,0),(41892,8804,3,303,0,'72.220.100.171',1195257246,1,0,1,1,1,0,'','','Antonio,\n\n&gt;&gt;Good Grief!\n\n&gt;Whats the translation into spanish ? \n\nI don\'t know Spanish very well, but perhaps this is a good definition, \"expresión de la consternación\" (expression of dismay).\n\nJames','',0,'gIA=','27h51vyq',1,0,'',303,0,0),(41893,8860,2,1164,0,'72.252.55.186',1195257253,1,0,1,1,1,0,'','Urgente necesito RICHEDIT.ch','Hola alguien podria enviarme RichEdit.ch a mi correo\nGracias!!','',0,'gIA=','3mx1jdlt',1,0,'',1164,0,0),(41894,8861,6,53,0,'189.139.16.16',1195257259,1,0,1,1,1,1,'','Crear un PICTURE especial','Amigos del foro, buenas tardes:\n\nEn una aplicación necesito un PICTURE algo especial, trataré de explicarme, por ejemplo cuando recibimos números con decimales en un get usamos un picture así \"@Z 999,999.999\", cuando el usuario necesita registrar solo fracciones digamos .300  pues simplemente teclea el punto luego el 3 y puede o no teclear los 0, [x]Harbour se encarga de llenarlo correctamente y queda así  .300, como es de esperarse.\n\nPues bien yo necesito usar un picture de este tipo \"999-999\" entonces para registrar 001-001  el usuario debería teclear solamente 1-1 y que el programa haga los ajustes, así el usuario se ahorra teclear los 0, ojalá me haya explicado.\n\nSaludos','',0,'','3nzn5hhz',1,0,'',53,0,0),(41895,8825,3,2,0,'87.218.146.167',1195257267,1,0,1,1,1,1,'','','James,\n\nWe also considered to use a class for it but we thought it was an unnecessary overload of memory for just displaying a quick tooltip on the screen.\n\nWe could provide a function to access the static variable','',0,'','35qbs5mf',1,0,'',2,0,0),(41896,8862,3,2,0,'87.218.146.167',1195257361,1,0,1,1,1,1,'','Fix for FWH 7.11','This is a necesary fix for FWH 7.11 in Class TMsgBar:\n[code:mryak24i]\nMETHOD SetMsg&#40; cText &#41; CLASS TMsgBar\n\n   DEFAULT &#58;&#58;cMsg &#58;= &quot;&quot;\n   \n   if &#58;&#58;l2007\n      &#58;&#58;cMsg = cText\n      &#58;&#58;Refresh&#40;&#41;\n      return nil\n   endif   \n   \n   &#58;&#58;GetDC&#40;&#41;   // must be placed here!!!\n   &#46;&#46;&#46;\n[/code:mryak24i]','',0,'AIA=','mryak24i',1,0,'',2,0,0),(41897,8863,6,2,0,'87.218.146.167',1195257440,1,0,1,1,1,1,'','Fix para FWH 7.11','Este es un cambio necesario para FWH 7.11 en la Clase TMsgBar:\n[code:32vpgv3s]\nMETHOD SetMsg&#40; cText &#41; CLASS TMsgBar\n\n   DEFAULT &#58;&#58;cMsg &#58;= &quot;&quot;\n   \n   if &#58;&#58;l2007\n      &#58;&#58;cMsg = cText\n      &#58;&#58;Refresh&#40;&#41;\n      return nil\n   endif   \n   \n   &#58;&#58;GetDC&#40;&#41;   // debe estar aquí !!!\n   &#46;&#46;&#46;\n[/code:32vpgv3s]','',0,'AIA=','32vpgv3s',1,0,'',2,0,0),(41898,8860,2,2,0,'87.218.146.167',1195257547,1,0,1,1,1,1,'','','Raul,\n\nEl control richedit no funciona en aplicaciones de 16 bits. Windows no lo permite.','',0,'AIA=','300wrz1g',1,0,'',2,0,0),(41899,8760,6,2,0,'87.218.146.167',1195257663,1,0,1,1,1,1,'','','Rolando,\n\nSe generan eventos que se envían al control y que hay que procesar adecuadamente. \n\nComo te he he indicado en otros mensajes, no es un arreglo simple.','',0,'AIA=','24h1ygj6',1,0,'',2,0,0),(41900,8861,6,278,0,'190.95.29.194',1195259031,1,0,1,1,1,1,'','','Hola Armando:\n\nSe me ocurre que hagas una funcion que se ejecute en el valid del get ,\n\nen esta funcion rellenas el picture , por ejemplo:\n\n\n[code:2czvkcpx]\n\nFunction LlenaGet&#40; cCodigo &#41;\nLocal cCod &#58;= &quot;&quot;\n\n cCod &#58;= Padl&#40; Left&#40; cCodigo, 3 &#41; , 3, &quot;0&quot;  &#41; + &quot;-&quot; +  Padl&#40; Right&#40; cCodigo, 3 &#41; , 3, &quot;0&quot;  &#41; \n\nRETURN&#40; cCod &#41;\n\n[/code:2czvkcpx]\n\nLa pense a la rápida, pero deberia funcionar , es solo una idea  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSaludos','',0,'AIA=','2czvkcpx',1,0,'',278,0,0),(41901,8864,3,324,0,'89.216.32.242',1195265006,1,0,1,1,1,0,'','LISDIR() and Windows 2000 Server Servoce Pack 3','Hi all,\n\nI have problem with OS Windows 2000 Server Service pack3\nThe function LISDIR() works perfect on any other OS, than this one.\n\nAnyone has this experience?\nIS there any help?\n\nRegards','',0,'AIA=','qc656f3q',1,0,'',324,0,0),(41902,8825,3,303,0,'72.220.100.171',1195268268,1,0,1,1,1,0,'','','Antonio,\n\n&gt;We also considered to use a class for it but we thought it was an unnecessary overload of memory for just displaying a quick tooltip on the screen. \n\nAh, speed is important. \n\n&gt;We could provide a function to access the static variable.\n\nSince it is already an instance of TWindow, it is already an object. Is it faster as a static than an exported instance variable?\n\nJames','',0,'AIA=','12bfak7s',1,0,'',303,0,0),(41903,8864,3,303,0,'72.220.100.171',1195268711,1,0,1,1,1,0,'','','Hi Boris,\n\nI don\'t know about your specific problem, but I had this code in my notes file for Win98. Perhaps it will work for you.\n\nJames\n\n[code:22n271wi]-----------------------\n// Replacement for FW\'s lisDir&#40;&#41; which can\'t handle Win 98 network\n// paths like \\\\compaq\\c\\faxserve\nfunction lisDir&#40;cPath&#41;\n   local nHandle,lSuccess&#58;=&#46;f&#46;\n   cPath&#58;=lfn2sfn&#40;alltrim&#40;cPath&#41;&#41;\n   cPath&#58;=if&#40;right&#40;cPath,1&#41;=&quot;\\&quot;,left&#40;cPath,len&#40;cPath&#41;-1&#41;,cPath&#41;\n   if file&#40;cPath+&quot;\\testfile&#46;$$$&quot;&#41;\n      lSuccess&#58;=&#46;T&#46;\n   elseif &#40; nHandle &#58;= fcreate&#40; cPath + &quot;\\testfile&#46;$$$&quot; &#41;&#41; &gt; 0\n      fclose&#40;nHandle&#41;\n      ferase&#40;cPath + &quot;\\testfile&#46;$$$&quot;&#41;\n      lSuccess &#58;= &#46;T&#46;\n   endif\nreturn lSuccess[/code:22n271wi]','',0,'AIA=','22n271wi',1,0,'',303,0,0),(41904,8825,3,868,0,'219.64.121.60',1195277107,1,0,1,1,1,1,'','','Mr James\n\n&gt; Having a tooltip popup every time a control gets focus would be very irritating after the first couple of times. \n\nI request you to reconsider. Tooltips do not pop up when the user is navigating the controls or entering any data. Tooltips popup only when the user hovers the mouse over the control ( normally he does not do it unless he is curious about it ).\n\nI am aware of the importance you give to user interface and look at software from the perspective of the user.\n\nI use both \"message\" and tooltips for gets. Experienced users never look at them. For new users the \"message\' makes them reassured about what they are entering. Tooltips help a new user to get an idea of what is all about the dialog before he proceeds with using it.  For gets, ballon type are more nonintrusive than normal tooltips. \n\nWould you mind sharing your TToolTip class with me?','',0,'AIA=','3s8ww56u',1,0,'',868,0,0),(41905,8825,3,2,0,'87.218.146.167',1195277724,1,0,1,1,1,1,'','','James,\n\n&gt; Is it faster as a static than an exported instance variable? \n\nYes, we access the static with no search. An instance variable has to be searched from inside the Harbour classes engine.\n\nAnyhow, its not a big difference. What do you need to do with the tooltip variable ?','',0,'AIA=','xe2rz7a2',1,0,'',2,0,0),(41906,8864,3,868,0,'219.64.121.60',1195280568,1,0,1,1,1,1,'','','you may try this code also:\n\n[code:3kdkmb4e]\nfunction direxists&#40; cpath &#41;\n\nlocal adir\n\nreturn &#40; len&#40; adir &#58;= directory&#40; cpath, \'D\' &#41; &#41; &gt; 0 &#46;and&#46; adir&#91;1&#93;&#91;5&#93; == \'D\' &#41;\n[/code:3kdkmb4e]\n\nThis works with directories where the user does not have write permissions also. This works even without removing the trailing slash, if any. Hope it works on all versions of windows.','',0,'AIA=','3kdkmb4e',1,0,'',868,0,0),(41907,8752,3,2,0,'87.218.146.167',1195282073,1,0,1,1,1,1,'','','Richard,\n\nPlease copy \"Library\" file to:\nc:\\Program Files\\IDM Computer Solutions\\UEStudio \'06\\configs\\Harbour\\\n\nThen create a folder somewhere and copy inside:\nTest.prj\nTest1.prg\nTest2.prg\n\nAnd open Test.prj as a [b:2khnxehz]Project[/b:2khnxehz] from UEStudio. Then select [b:2khnxehz]Build[/b:2khnxehz] and you get the LIB <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[b:2khnxehz]Library file:[/b:2khnxehz]\n# --------- Harbour y FWH configuration --------\n# --- general --------------------------------------\n# $P  - project name\n# $Pp - path to project directory\n# $Pn - project name\n# --- compile --------------------------------------\n# $I  - input full name\n# $Ip - input path\n# $In - input name\n# $Ie - input extension\n# $O  - output file\n# $Op - path to output file\n# $On - output filename (without path)\n# $Oe - output extension\n# $R  - release/debug setting for compiler\n# --- build ----------------------------------------\n# $T  - target full name\n# $Tp - target path\n# $Tn - target name\n# $O  - output file\n# $Op - path to output file\n# $On - output filename (without path)\n# $Oe - output extension\n# $R  - release/debug setting for linker\n\n[Settings]\nTarget = \nCategory&amp;01 = DEFAULT RUN CONFIGURATION\nWorking Directory =.\nCommand Line Arguments =\n\nCategory&amp;02 = Harbour Options\nAutomatic Memvar Declaration = no|yes\nVariables Are Assumed = no|yes\nGenerate Preprocessed Output = no|yes\nWarning Level = 1|2|3|4|0\nUser Include Path =\nUser Defines =\n\nCompiler Options =\n\nExcluded Files = Excludes\n\n[SettingsInfo]\nTarget = Provides a space for you to specify an output file and location of the program that the linker creates.\nWorking Directory = Provides a space for you to specify the directory in which executing occurs. If you do not specify a directory, executing occurs in the directory where the executable is located.\nCommand Line Arguments = Provides a space for you to specify command-line arguments you want to pass to the program at startup.\nCompiler Options = Provides a space for you to specify an additional compiler options.\nUser Defines = Shows the switches the tool will use to build. Use \';\' as delimiter.\nExcluded Files = This will exclude the file(s) included in this UE project group from the build.\n\n[SettingsReps]\nUser Defines = @[;|-D%s]\nAutomatic Memvar Declaration = no=|yes=/a\nVariables Are Assumed = no=|yes=/v\nGenerate Preprocessed Output = no=|yes=/p\nUser Include Path = ^^@[;|;%s]\nUser Include Path&amp;1 = ^^@[;| /i%s]\nUse Multi Thread Library = no|yes\nWarning Level = @/w%s\n\n[Variables]\nFWH = c:\\FWH\nHPATH = c:\\Harbour\nCPATH = c:\\bcc55\nHOPT = /n /gc0 /q $(Compiler Options) /i$(HPATH)\\INCLUDE $(User Include Path&amp;1) $(User Defines) $(Automatic Memvar Declaration) $(Variables Are Assumed) $(Generate Preprocessed Output) $(Warning Level)\nCOPT = -O2 -M -c -v -I$(HPATH)\\INCLUDE \n\n[Environment]\nPATH = $(HPATH)\\BIN;$(CPATH)\\BIN;%PATH%\nINCLUDE = $(HPATH)\\INCLUDE;$(CPATH)\\INCLUDE;$(FWH)\\INCLUDE\nLIB = $(HPATH)\\LIB;$(CPATH)\\LIB\nBuildMode = %UESMode%\n\n[General]\nTargetExt = .LIB\nReleaseOut = Release\nDebugOut = Debug\nUseFullPaths = 1\nUseDosNames = 1\nExcludes = $(Excluded Files)\nGenerateEDGroup=$(External Dependencies)\n.CPP = .C\n\n[MakeCommands]\nrun = Show Makefile\nmakef = Show Makefile\n\n[Show Makefile]\nTitle=Show makefile\nCmd0=uestudio makefile\nShowWindow=1\nDisplayConsole=0\n\n[InsertFiles]\n\n[FileGroups]\nFGO = .obj;\n\n[GroupFormats]\nFGO = %s\n\n[Build]\nOut = $T\nDepends = $FGO\nDebugFlag = \nReleaseFlag = \n\n[.PRG]\nOut = $In.c\nDebugFlag = /b\nReleaseFlag = /l\nCmd0 = harbour $I $(HOPT) $R /o$O \n\nCaseSensitive = 0\nIncDirs = .;$(INCLUDE);\nIncKeyWords = #include;\nComments = /*.*/.//.eol.\n\n[.C]\nOut = $In.obj\nCmd0 = bcc32 $(COPT) -o$O $I\nCmd1 = $(CPATH)\\bin\\tlib $T -+ $O\n\nCaseSensitive = 0\nIncDirs = .;$(INCLUDE);\nIncKeyWords = #include;\nComments = /*.*/.//.eol.\n\n[b:2khnxehz]Test.prj file:[/b:2khnxehz]\n[Files]\n0=test1.prg\n1=test2.prg\n[Debug Settings]\nProgram Arguments=\nSelected Debugger=0\nSource Paths=\nSymbol Paths=\nWorking Directory=\n[Open Files]\nActive File Display Mode=-1\nOpen File0=\n[uemakeXp]\nCompiler=Configs\\Harbour\\Library\nReleaseMode=1\n[Configs\\Harbour\\Library]\nAutomatic Memvar Declaration=no\nCommand Line Arguments=test.LIB\nCompiler Options=\nExcluded Files=Excludes\nGenerate Preprocessed Output=no\nLinker Options=\nOutputDirectory_DebugMode=Debug\nOutputDirectory_ReleaseMode=Release\nTarget=test.LIB\nUser Defines=\nUser Include Path=\nVariables Are Assumed=no\nWarning Level=1\nWorking Directory=.\n[Project Information]\nCompilable=1\nUse Relative Directory=1\nRelative to Project File=1\nInclude Sub Directories=1\nProject Tagfile=\nProject Wordfile=\nFilter=\nUsing VCS=0\nSave Account=0\nCreate Tagfile=0\nCTags Legacy Support=0\n[Project ID]\nSignature=UE Proj: v.1\n\n[b:2khnxehz]Test1.prg[/b:2khnxehz]\n[code:2khnxehz]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Test1&#40;&#41;\n\n   MsgInfo&#40; &quot;inside Test1&quot; &#41;\n\nreturn nil\n[/code:2khnxehz]\n\n[b:2khnxehz]Test2.prg[/b:2khnxehz]\n[code:2khnxehz]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Test2&#40;&#41;\n\n   MsgInfo&#40; &quot;inside Test2&quot; &#41;\n\nreturn nil\n[/code:2khnxehz]','',0,'QIA=','2khnxehz',1,0,'',2,0,0),(41908,8796,3,868,0,'219.64.121.60',1195282523,1,0,1,1,1,1,'','','Mr Silvio\n\n&gt; We made another class to create brush with two color gradient\n&gt; With this class we can translate all brush of all classes !!!\n\nWould you mind sharing your ttabs with gradient with me please ?','',0,'QIA=','jewsgheg',1,0,'',868,0,0),(41909,8752,3,3,0,'80.81.159.19',1195287812,1,0,1,1,1,1,'','','Antonio  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nThank you, the lib is correctly built with harbour or xharbour\n\nJust a last question, how to add a \"C file\" to a project and not have it compiled by harbour or xharbour\n\nThanks for your help,\n\nRichard','',0,'QIA=','3aetofof',1,0,'',3,0,0),(41910,8752,3,2,0,'87.218.146.167',1195288847,1,0,1,1,1,1,'','','Richard,\n\nHave you tried to add it here ?\n\nTest.prj file: \n[Files] \n0=test1.prg \n1=test2.prg \n2=test3.c','',0,'','q2jruk94',1,0,'',2,0,0),(41911,8818,3,448,0,'83.132.21.105',1195291674,1,0,1,1,1,0,'','','From Skype last version you need to give permission to any program to use skype api. You can do it on :\n\nTools -&gt; Options -&gt; Advanced\n\nOtherwise all the api requests will be rejected.\n\nIt seems next version will return to the way it was before (no permisson necessary) because of the claims.\n\nBy the way, the code has the following diference to the one post previously :\n\n[i:3jqec3ra]      oUser:= oSkype:user(cPhone)\n      oCall := oSkype:PlaceCall(oUser:Handle)[/i:3jqec3ra]\n\nIt works perfectly. And it can process a call to a number or if you have the skype user name to a user directly (no cost involved).\n\nIn order to avoid any errors the phone number must be in the following format :\n\n\"+\"country code+phone number without spaces.\n\nIf you have \"00\" in the number it must be taken out.\n\nI\'ll post the complete code  as soon I have it finnished.\n\nHope this will help.\n\nAntonio','',0,'IA==','3jqec3ra',1,0,'',448,0,0),(41912,8818,3,2,0,'87.218.146.167',1195291748,1,0,1,1,1,1,'','','Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'IA==','1zdnk16t',1,0,'',2,0,0),(41913,8752,3,3,0,'80.81.159.19',1195291920,1,0,1,1,1,1,'','','Antonio\n\nI did, but io am getting errors on all .h files \n\nSeems that include directories are not being searched correctly, if i specify full path for .h files, generation is ok \n\nRichard','',0,'IA==','227oeqgc',1,0,'',3,0,0),(41914,8752,3,2,0,'87.218.146.167',1195292721,1,0,1,1,1,1,'','','Richard,\n\nPlease try this:\n\nCOPT = -O2 -M -c -v -I$(HPATH)\\INCLUDE  -I$(CPATH)\\INCLUDE','',0,'IA==','1zo68w0r',1,0,'',2,0,0),(41915,8752,3,3,0,'80.81.159.19',1195293013,1,0,1,1,1,1,'','','Antonio\n\nStill missing, with this one it is OK\n\nCOPT = -O2 -M -c -v -I$(HPATH)\\INCLUDE -I$(CPATH)\\INCLUDE -I$(FWH)\\INCLUDE\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'IA==','7dt0918z',1,0,'',3,0,0),(41916,8752,3,2,0,'87.218.146.167',1195293657,1,0,1,1,1,1,'','','Excellent! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'IA==','2o4ssvj3',1,0,'',2,0,0),(41917,8862,3,851,0,'212.160.69.96',1195297823,1,0,1,1,1,0,'','','I can\'t complite this source ( FWH 7.11 and xAHRBOUR.COM November 2007)\n\nmy log:\nType: C &gt;&gt;&gt;xhb.exe -o\"Obj\\msgbar.c\" -m -n -p -q -gc0 -B -D-w2   -I\"C:\\fwh\\include\" -I\"R:\\include\" -I\"R:\\include\\w32\" \"Source\\Classes\\msgbar.prg\"&lt;&lt;&lt;\n\nxHarbour Compiler build 1.0.0 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\n\nSource\\Classes\\msgbar.prg(304) Error E0020  Incomplete statement or unbalanced delimiters\n\nSource\\Classes\\msgbar.prg(379) Warning W0003  Variable: \'NFLAGS\' declared but not used in function: \'TMSGBAR_LBUTTONDOWN(364)\'\n\n1 error\n\nNo code generated\n\nType: C &gt;&gt;&gt;Couldn\'t build: msgbar.obj&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEOBJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1322&lt;&lt;&lt;','',0,'IA==','26j5tbe0',1,0,'',851,0,0),(41918,8862,3,2,0,'87.218.146.167',1195303367,1,0,1,1,1,1,'','','&gt; Source\\Classes\\msgbar.prg(304) Error E0020 Incomplete statement or unbalanced delimiters \n\nWhat source code do you have at line 304 ?','',0,'IA==','28l5m4bv',1,0,'',2,0,0),(41919,8862,3,851,0,'80.48.221.232',1195306087,1,0,1,1,1,0,'','','sorry, I leave one )','',0,'IA==','8bwtc5e1',1,0,'',851,0,0),(41920,8818,3,448,0,'83.132.21.105',1195306551,1,0,1,1,1,0,'','','Below is the code to make phone calls and send sms through skype. \nFunction Countrycode() not included.\n\nHope you\'ll enjoy it. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nAntonio \n \n[i:3lq45ths][b:3lq45ths]FUNCTION PhoneTO(cPhone,cNome,cComment,CodeCountry)\n  Local oSkype,oCall,oUser\n\n DEFAULT CodeCountry := CountryCode()\n\nif empty(cPhone)\n   return 0\nendif\n\n//if its a user do nothing\nif val(cPhone) &lt;&gt;0\n   //phone number build format\n   cPhone := alltrim(cPhone)\n   // in the databse all international numbers have 00\n   //it must be taken out\n   if substr(cPhone,1,2) == \"00\"\n      cPhone := substr(cPhone,3)\n   else\n      //all others are national numbers code country must be added\n      cPhone := CodeCountry+cPhone\n   endif\n   cPhone :=\"+\"+cPhone\nendif\n\nTry\n   oSkype := GetActiveObject(\"Skype4COM.Skype\")\nCatch\n   Try\n       oSkype := CreateObject(\"Skype4COM.Skype\")\n   Catch\n       alert(\"Skype4Com não está instalado!\"+;\n            \";\"+ole2txterror())\n       return 0\n    End\nEnd\n\n   If .not. oSkype:Client:IsRunning()\n      MsgRun(\"Informação\",\"Activando o Skipe\",{||oSkype:Client:Start()})\n   Endif\n\n   //not online\n   if oSkype:CurrentUserStatus &lt;&gt; oSkype:Convert:TextToUserStatus(\"ONLINE\")\n      //lets pout it on line\n      oSkype:changeUserStatus(oSkype:Convert:textToUserStatus(\"ONLINE\"))\n   endif\n\n   Try\n      oUser:= oSkype:user(cPhone)\n      oCall := oSkype:PlaceCall(oUser:Handle)\n   Catch\n      MsgInfo(\"Chamada falhada! Telefone: \"+cPhone)\n      return 0\n   End\n\noSkype := Nil\nRETURN 1\n\nFUNCTION EnviaSms(t_sms,cnome,t_mess,CodeCountry)\n  Local oSkype,oSMS,oTarget,oChunk,oCall,oUser\n\n DEFAULT CodeCountry := CountryCode()\n\nif empty(t_sms)\n   return 0\nendif\n\n//if its a user do nothing\nif val(t_sms) &lt;&gt;0\n   //phone number build format\n   t_sms := alltrim(t_sms)\n   // in the databse all international numbers have 00\n   //it must be taken out\n   if substr(t_sms,1,2) == \"00\"\n      t_sms := substr(t_sms,3)\n   else\n      //all others are national numbers code country must be added\n      t_sms := CodeCountry+t_sms\n   endif\n   t_sms :=\"+\"+t_sms\nendif\n\n//format message\nt_mess := alltrim(t_mess)\nt_mess := strtran(t_mess,\"\",chr(12)+CHR(13))\nt_mess := strtran(t_mess,\"\",CHR(13))\nt_mess := strtran(t_mess,\"\",chr(26))\n\nTry\n   oSkype := GetActiveObject(\"Skype4COM.Skype\")\nCatch\n   Try\n       oSkype := CreateObject(\"Skype4COM.Skype\")\n   Catch\n       alert(\"Skype4Com não está instalado!\"+;\n            \";\"+ole2txterror())\n       return 0\n    End\nEnd\n\n   If .not. oSkype:Client:IsRunning()\n      MsgRun(\"Informação\",\"Activando o Skip\",{||oSkype:Client:Start()})\n   Endif\n\n    //not online\n   if oSkype:CurrentUserStatus &lt;&gt; oSkype:Convert:TextToUserStatus(\"ONLINE\")\n      //lets pout it on line\n      oSkype:changeUserStatus(oSkype:Convert:textToUserStatus(\"ONLINE\"))\n   endif\n\n   Try\n      oUser:= oSkype:user(t_sms)\n      oSMS := oSkype:SendSms(oUser:Handle, t_mess)  // generic\n   Catch\n      msginfo(\"Não foi possivel enviar o SMS!\")\n      return 0\n   End\n\n   MsgWait( \"A aguardar confirmação de envio da sms para: \"+t_sms, \"Skype SMS\", 10 )\n\n   If oSms:Status()&lt;&gt;5  // not delivered ?\n\n      Msginfo(\"O envio da SMS pode ter falhado! \")\n      return 0  // erro SMS\n\n   Endif\n\noSkype := Nil\nRETURN 1[/b:3lq45ths][/i:3lq45ths]','',0,'YA==','3lq45ths',1,0,'',448,0,0),(41921,8865,3,324,0,'89.216.32.242',1195308377,1,0,1,1,1,0,'','LISDIR()','Thank you both for your answers.\nI will implement both suggestions in a test EXE and will run it as the test on Monday on client\'s machine.\n\nThe questions is how comes that Windows 2000 makes me trouble only. The sam app runs on dozens of machines around the USA and no problem occured for years. Now this particular machine makes me trouble.\n\nIs this possible cuase of the problem is that this machine runs Service pack 3 ?\n\nAlso, maybe it might help if I say that the program in question is part of a web site application which runs on this server. The EXE has to determine some folders and to decide which DBF to use. Because of failing to do this, the app cannot continue\n\n@James \n- Off topic Starts\nHey old frien, hope everything\'s ok there? <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n- Off topic Ends','',0,'YA==','or4qu3hr',1,0,'',324,0,0),(41922,8861,6,935,0,'200.62.78.168',1195330978,1,0,1,1,1,1,'','separalos','Hola Armando,\n\nPor que no los separa en get independientes y a cada uno de ellos los rellenas con cualquier caracter \"0\" u otro y despues en el reemplazo los unes si quieres con sus guiones etc.\n\nSaludes,\n\nRamon Antonio Paredes\nManagua, Nicaragua','',0,'YA==','1nvdq5rd',1,0,'',935,0,0),(41923,8861,6,53,0,'189.139.25.202',1195332764,1,0,1,1,1,1,'','','Amigos:\n\nGracias por las respuestas y sugerencias, tal vez sea posible modificar la clase TGET para meter esas carácteristicas, solo que de eso \"yo solo se que no se nada\", a ver si algun guru nos aporta algo para empezar a tirar.\n\nSaludos','',0,'YA==','39lw7fue',1,0,'',53,0,0),(41924,8866,6,78,0,'190.43.177.69',1195337997,1,0,1,1,1,0,'','Auxilio con MySQL','Hola Amigos\nDisculpen el Off Topic, pero estoy en un gran lio, resulta que en una pc donde estaba instalado el MySQL 5.0, en una de las tablas, simplemente al hacer un Select o algun otro comando el MySQL hacia un shutdown, asi que para seguir haciendo qiue la app. funcionara, se hizo una reinstalacion del MySQL, pero se hizo una copia de toda la carpeta deonde estaba instaldo el MySQL, asi que si alguien podria guiarme como recuperar la info de esa tabla,,,,\nSalu2','',0,'YA==','i4x8vtq7',1,0,'',78,0,0),(41925,8825,3,303,0,'72.220.100.171',1195338153,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;I request you to reconsider. Tooltips do not pop up when the user is navigating the controls or entering any data. Tooltips popup only when the user hovers the mouse over the control ( normally he does not do it unless he is curious about it ).\n\nI will do some testing again--it has been a very long time since I worked on this. \n\n&gt;I am aware of the importance you give to user interface and look at software from the perspective of the user.\n\nYes, I do consider the interface to be extremely important. \n\n&gt;I use both \"message\" and tooltips for gets. Experienced users never look at them. For new users the \"message\' makes them reassured about what they are entering. Tooltips help a new user to get an idea of what is all about the dialog before he proceeds with using it. For gets, ballon type are more nonintrusive than normal tooltips.\n\nIt seems like overkill to use both. I note that Microsoft\'s solution is the help button on the dialog titlebar. The user clicks on this then on the control of interest. I do expect that lots of users don\'t understand this.\n\nAt the very least, I would give each user the option to turn off tooltips.\n\nJames','',0,'YA==','3936uu2r',1,0,'',303,0,0),(41926,8866,6,935,0,'200.62.120.135',1195347295,1,0,1,1,1,1,'','','Willi;\n\nAl instalarse el Mysql se instala por defecto en archivos de programa. en la carpeta mysql en la sub_carpeta Mysql Server (Version x), si accesas a esa carpeta veras que existe una carpeta que se llama data y ahi hay una carpeta por cada base de datos que tu creas y dentro estan las tablas que se crean , escoge la que necesitas y la pegas a tu nueva instalacion, debe recuperarse con el administrador del mysql \n\nOjala me haya explicado,\n\n\nRamon Antonio Paredes\nManagua, Nicaragua','',0,'YA==','gi8lmg71',1,0,'',935,0,0),(41927,8866,6,78,0,'190.43.177.69',1195349568,1,0,1,1,1,0,'','','Gracias por contestar, pero el tema es que se estan utilizando la base de datos InoDB, y esta tiene la data en un solo archivo.... lo que indicas funciona para las bd tipo MyISAM\n\nSalu2','',0,'YA==','30594623',1,0,'',78,0,0),(41928,8796,3,49,0,'62.13.172.67',1195354905,1,0,1,1,1,1,'','','Dear Sir ,\n\nthe ttabs 2007 is not finished \n\ni\'m working to insert bitmaps on it\n\n[url=http&#58;//img208&#46;imageshack&#46;us/my&#46;php?image=ttab2007va5&#46;png:3fy1y978][img:3fy1y978]http&#58;//img208&#46;imageshack&#46;us/img208/9301/ttab2007va5&#46;th&#46;png[/img:3fy1y978][/url:3fy1y978]','',0,'GA==','3fy1y978',1,0,'',49,0,0),(41929,8867,3,49,0,'62.13.172.67',1195354999,1,0,1,1,1,1,'','draw and bitmaps','if a draw an arrow can transform it to bitmap ? and give it an action ?','',0,'GA==','3gy7tq65',1,0,'',49,0,0),(41930,8866,6,53,0,'189.139.25.202',1195362388,1,0,1,1,1,1,'','','Willi:\n\nAhora yo no entendi, creo que lo que te recomienda Ramón aplica para cualquier tipo de tablas.\n\nYo utilizo InnoDb y la distribución de las carpetas es la misma.\n\nOtra alternativa es que desde el administrador hagas un Backup de las tablas \"viejas\" y las recuperes tambien con el administrador en la nueva instalación.\n\nSaludos amigo','',0,'GA==','2e7uigy8',1,0,'',53,0,0),(41931,8867,3,2,0,'87.218.146.167',1195372743,1,0,1,1,1,1,'','','You can use a TBtnBmp','',0,'GA==','8x37fphl',1,0,'',2,0,0),(41932,8817,6,180,0,'79.145.97.157',1195382008,1,0,1,1,1,0,'','','Para mí es importante que me lo confirmaras al 100%, pues es una de las cuestiones por las que actualizaría a la última versión. Gracias.','',0,'GA==','3br0ht3f',1,0,'',180,0,0),(41933,8867,3,49,0,'72.14.220.136',1195386640,1,0,1,1,1,1,'','','perhaps U not understand me \ni made an small arrow and i show it on my window now i want transform it as a bitmap as an control and i want click on it to make an action..it is possible?','',0,'GA==','1xrnqqhh',1,0,'',49,0,0),(41934,8866,6,936,0,'72.252.100.79',1195389435,1,0,1,1,1,0,'','','Willi, podrías intentar editar el archibo my.ini, que se encuentra en la raíz del directorio en donde se instalo el MySQL, y busca la linea en donde se encuntra la dirección de  la data:\n[code:3vsz0d84]\n#Path to the database root\ndatadir=&quot;C&#58;/Archivos de programa/MySQL/MySQL Server 5&#46;0/Data/&quot;\n[/code:3vsz0d84]\n\nY cambia esa dirección en la cual tienes el backup enterior.\nLuego reinicia tu equipo y debería de levantar tus datos anteriores. No lo he probado, pero por simple lógica debería de fucionar. \n\nSaludos.\n\nCarlos.','',0,'AIA=','3vsz0d84',1,0,'',936,0,0),(41935,8835,6,400,0,'201.68.33.102',1195393047,1,0,1,1,1,1,'','','Gracias amigos para las pistas !\n\nSauludos','',0,'AIA=','3nkwpzkg',1,0,'',400,0,0),(41936,8867,3,51,0,'80.122.88.242',1195397555,1,0,1,1,1,0,'','','Silvio, could you post a screenshot?\nRegards,\nOtto','',0,'AIA=','e5uxuu26',1,0,'',51,0,0),(41937,8868,6,1090,0,'201.213.118.72',1195404285,1,0,1,1,1,0,'','jpg como fondo deja estela al arrastrar ventanas','Hola. Tengo una aplicacion que abre una ventana con un .jpg de fondo; desde esa aplicacion llamo a otros exes. El tema es que en algunas maquinas al arrastrar esos exes que abro, van dejando una estela en el logo de fondo. Obviamente es alguna caracteristica de esas PC\'s, pero me paso en varias diferentes, y no encontre un punto comun. Placas de video integradas, por ej, pero en algunas maquinas funciona bien con esa configuracion. Utilizo la funcion: \n\n   DEFINE WINDOW oWnd FROM 4, 4 TO 25, 75 ;\n      TITLE \" Solucion de Gestion Integral de Negocios para Empresas *** Saros *** \"\n\n                   @ 0 , 0 IMAGE oBmpMain FILENAME XLOGO OF oWnd no border ;\n                   adjust SIZE 800,600\n\n   SET MESSAGE OF oWnd TO \'Version 2.0.01 para Windows 95/98/XP/2000 \'\n\n   ACTIVATE WINDOW oWnd MAXIMIZED VALID CONFIRMA(XCONFIRMA) ON INIT LOGIN(EMPRE,EMPREST,1)\n\n\neso en caso de que la resulucion sea 800x600; segun la resolucion hace el adjust; probe con logos en cada resolucion, como para que no tenga que pasar de un logo en 640x480 a uno de 600x800... o sea, tengo 4 o 5 logos uno para cada resolucion de las comunes. Alguna idea acerca de lo que puede estar ocurriendo???\n\nInsisto, es un exe \"main\", desde el cual llamo a otros exes que serian modulos. Gracias.','',0,'AIA=','12divj9o',1,0,'',1090,0,0),(41938,8868,6,2,0,'87.218.146.167',1195405180,1,0,1,1,1,1,'','','Diego,\n\nEsta es la solución:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8191\">http://fivetechsoft.com/forums/viewtopic.php?t=8191</a><!-- m -->','',0,'AIA=','140fbuqc',1,0,'',2,0,0),(41939,8817,6,2,0,'87.218.146.167',1195405318,1,0,1,1,1,1,'','','Manuel,\n\nSe han arreglado un montón de cosas en XBrowse y esa se arregló si no recuerdo mal. Yo juraría que está arreglado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nDe todas formas, puedes reproducir el error con samples/TestXBrw.prg para que lo problemos y te lo confirmemos ?','',0,'AIA=','1ev9cho9',1,0,'',2,0,0),(41940,8869,6,63,0,'88.6.235.117',1195409883,1,0,1,1,1,0,'','Dos preguntas sobre TxBrowse','1.- Quiero visualizar y editar el contenido de un DBF de aprox. 5000 registros y 20 campos (tamaño total: aprox.2 Mb)  Para acelerar la respuesta, he pensado en volcarla a un array y editarlo mediante TxBrowse() en modo Array.   Funciona perfectamente.  Ahora bien, me pregunto si hay algún límite a este sistema: ¿Funcionará igual de bien con una Dbf de 200 Mb (aparte, obviamente, del mayor tiempo de carga)?  ¿Está limitada por la RAM disponible o hará swaping a disco?¿Alguien tiene experiencia con esta forma de trabajar?\n\n2.- Me gustaría poder poner unas ventanas o rectángulos fijos sobre determinadas casillas del TxBrowse 8y que sigan al Browse al hacer scroll en él.  Algo más o menos así:[code:p0qmi40z]\n&#46;&#46;&#46;&#46;&#46;\noBrw &#58;= TxBrowse&#40;&#41;&#58;New&#40;&#41;\nCrearBarra&#40;oBrw, nRow, nCol&#41;\n&#46;&#46;&#46;&#46; etc\n\nFunction CrearBarra&#40;oBrw, nR, nC&#41;\nLocal oWnd\nDefine Window oWnd From nR, nC To nR+20, nC+50 Pixel Of oBrw Color CLR_WHITE, CLR_BLUE\nActivate Window oWnd\nReturn Nil[/code:p0qmi40z]\n\nQuisiera que la barra pueda dimensionarse arrastrando de sus bordes. Por eso utilizo un TWindow, aunque quizás TWindow no sea la forma más adecuada. ¿Alguna sugerencia?\nGracias\nRafael','',0,'AIA=','p0qmi40z',1,0,'',63,0,0),(41941,8870,3,879,0,'70.53.45.207',1195410080,1,0,1,1,1,0,'','A Better Resource Editor?','For the past year, I have used the Resource Editor in UEStudio. For about the same time I have been communicating with IDM support urging them to fix a multitude of problems I was having with it. I was told extensive time was spent looking into all my reported problems. I did see a couple of visual changes after UEStudio was updated this past summer; however, there was no mention of any Resource Editor changes/fixes in the “Changes.txt” file.\n\nAs a result, I began looking for a replacement Resource Editor. After trying several applications, I finally found one I like and can work with. It can be downloaded from [url:19xq46nh]http&#58;//www&#46;radasm&#46;com[/url:19xq46nh]. On the left hand side of the page, about halfway down, is the download for the Resource Editor (ResEd Resource Editor) and, just above it, a source code editor (FbEdit FreeBASIC editor). The best part from a cost perspective is that these two applications are FREE. From what I can determine ResEd does not write any values to the registry so the application can be copied to, and loaded from any drive or folder.\n\nI have been in contact with the developer and I am currently using an as yet unreleased version which includes a couple of my suggestions. There are a few other changes in the works. I am told this is a 32-bit application, so it should work on a 64-bit Vista OS.\n\nAs many other readers here are far more knowledgeable and experienced than I am, it would be a good idea if some other opinions about this application could be added.\n\n\nKen','',0,'EA==','19xq46nh',1,0,'',879,0,0),(41942,8817,6,180,0,'79.146.64.65',1195411082,1,0,1,1,1,0,'','','Antonio,\nen samples/TestXBrw.prg  funciona perfectamente. El problema ocurre cuando se crea el control desde recursos.\n\nUn saludo,\nManuel','',0,'EA==','pc285da7',1,0,'',180,0,0),(41943,8817,6,2,0,'87.218.146.139',1195412402,1,0,1,1,1,1,'','','Manuel,\n\nPuedes proporcionar un PRG que reproduzca el error ? \n\nPequeño y autocontenido, a ser posible, gracias.','',0,'EA==','1l7kfrel',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (41944,8869,6,2,0,'87.218.146.139',1195412585,1,0,1,1,1,1,'','','Rafael,\n\nPorque no lees directamente desde la DBF ? Además si el contenido de la DBF cambia, tu array no tendrá los cambios.\n\nEn cuanto al pintado, puedes modificar el método de pintado de la clase columna para que dibuje el marco que necesitas','',0,'EA==','1xf718hq',1,0,'',2,0,0),(41945,8867,3,49,0,'62.13.168.67',1195413380,1,0,1,1,1,1,'','','i\'ll wish not show this but Ucan understand me.\ni made tabs with office 2007 style with bmps and now i see btnbmp to navigate on each tab .\ni tryed to modify btnbmp to office 2007 but on tabs the btnbmps are smaller and i cannot see the difference.\nNow i thinked to create two arrows left and right , i draw  with graphics functions , now i want transform it to create a bitmap or link to each arrow an action , i also created a box with an Xon centre to simulate a close to close each tab.\n\nto see ttabs 2007 U can see on this forum i posted an images yesterday.','',0,'EA==','31mjpf7h',1,0,'',49,0,0),(41946,8871,3,210,0,'81.24.159.58',1195415598,1,0,1,1,1,1,'','Help-System','Mr. Linares,\nI found, that dialogs are not produces HelpIDs. This is also, when an ...HELPID NN.. are defined. GETS etc. with ...HELPID NN.. are OK. But in almost circumstances are a general help for this dialog are to show. The controls-helpid should overwrite the dialog-helpid if not 0, then it is perfect! MfG Günther','',0,'EA==','3ny3fo8t',1,0,'',210,0,0),(41947,8870,3,51,0,'80.122.88.242',1195416754,1,0,1,1,1,0,'','','Hello Ken, thank you for your post.\nDo you have an example how to use prg-files with Fbedit?\nRegards,\nOtto','',0,'EA==','36zpacm3',1,0,'',51,0,0),(41948,8870,3,6,0,'82.54.221.104',1195420022,1,0,1,1,1,1,'','Re: A Better Resource Editor?','[quote=&quot;Ken Wantz&quot;:ha3l3jla]It can be downloaded from [url:ha3l3jla]http&#58;//www&#46;radasm&#46;com[/url:ha3l3jla].[/quote:ha3l3jla]\n\nI just tried to open one of my RC made using Borland Resource Workshop and the very first thing I get was a very bad GPF! Sorry but I deleted it immediately.\n\nEMG','',0,'kA==','ha3l3jla',1,0,'',6,0,0),(41949,8817,6,180,0,'79.146.64.65',1195421140,1,0,1,1,1,0,'','','Aquí lo tienes:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/70657119/prueba.zip.html\">http://rapidshare.com/files/70657119/prueba.zip.html</a><!-- m -->','',0,'kA==','3ql9ktjd',1,0,'',180,0,0),(41950,8865,3,303,0,'72.220.100.171',1195422227,1,0,1,1,1,0,'','','Boris,\n\n&gt;Is this possible cuase of the problem is that this machine runs Service pack 3 ?\n\nIt could be. Maybe someone who has Win 2000 SP3 could test this for Boris?\n\n&gt;Hey old friend, hope everything\'s ok there?\n\nRecently we had terrible wild-fires here in San Diego. They burned hundreds of thousands of acres and thousands of homes. Over a half million people had to evacuate.\n\nOne file came within a mile of our house and we have friends that lost their business to the fire.\n\nIt is times like this that make us realise how lucky we are.\n\nRegards,\nJames','',0,'kA==','l3mkjl96',1,0,'',303,0,0),(41951,8817,6,2,0,'87.218.146.139',1195433122,1,0,1,1,1,1,'','','Manuel,\n\nGracias por el ejemplo,\n\nEfectivamente, como creía recordar, está arreglado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:12ul425y][img:12ul425y]http&#58;//img260&#46;imageshack&#46;us/img260/4808/xbrowseva4&#46;png[/img:12ul425y][/url:12ul425y]','',0,'GA==','12ul425y',1,0,'',2,0,0),(41952,7562,22,1193,0,'203.70.6.9',1195436011,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:y738rbdf]Shuming,\n\nI send you an email[/quote:y738rbdf]\n\nHi Antonio,\n\nPlease add me for this plan.\n\nRegards,\n\nRichard','',0,'gA==','y738rbdf',1,0,'',1193,0,0),(41953,8870,3,53,0,'189.139.25.99',1195436039,1,0,1,1,1,1,'','','It seem there is no way to work with .RES files.  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nBest regards','',0,'gA==','1gf749f3',1,0,'',53,0,0),(41954,8870,3,439,0,'200.125.42.245',1195438505,1,0,1,1,1,1,'','Re: A Better Resource Editor?','[quote=&quot;EnricoMaria&quot;:5eqo60kv][quote=&quot;Ken Wantz&quot;:5eqo60kv]It can be downloaded from [url:5eqo60kv]http&#58;//www&#46;radasm&#46;com[/url:5eqo60kv].[/quote:5eqo60kv]\n\nI just tried to open one of my RC made using Borland Resource Workshop and the very first thing I get was a very bad GPF! Sorry but I deleted it immediately.\n\nEMG[/quote:5eqo60kv]\n\nI am testing it and at the moment I didn´t have any dificulty, I open my rc files without problems.\n\nWhen I save the files, the sintax change and I can´t open them with Resource Workshop again, so it looks  I don´t have any chance to use both tools <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> .\n\nBut I see is a very atractive, little and easy tool.\n\nyou can run it even with only te exe file wich is 230k size.\n\nI will keep testing it, and report my results.','',0,'kA==','5eqo60kv',1,0,'',439,0,0),(41955,8843,3,400,0,'201.68.33.102',1195450519,1,0,1,1,1,1,'','','Silvio, you managed to change the btnBmp for use in the style 2007?\n\nBest Regards,','',0,'kA==','f92sq8sc',1,0,'',400,0,0),(41956,8872,3,51,0,'80.122.88.242',1195456397,1,0,1,1,1,0,'','Drag &amp; drop folder','Why does oFld:bDropOver return a different value for nCol if you drop on the same point depending from nLeft of the object (here from xBrowse) you drag from?\nHow could I find out on what folder you drop?\n\noFld:bDropOver = { |uDropInfo,nRow,nCol,nKeyFlags| msginfo(nCol) }\n\n[b:3kqs2zt1]oxBrwFolio1:nLeft    :=  0[/b:3kqs2zt1]\n[img:3kqs2zt1]http&#58;//www&#46;atzwanger&#46;com/fw/drag1&#46;jpg[/img:3kqs2zt1]\n[b:3kqs2zt1]oxBrwFolio1:nLeft    :=  10[/b:3kqs2zt1]\n\n[img:3kqs2zt1]http&#58;//www&#46;atzwanger&#46;com/fw/drag2&#46;jpg[/img:3kqs2zt1]','',0,'SA==','3kqs2zt1',1,0,'',51,0,0),(41957,8843,3,49,0,'213.82.134.66',1195462833,1,0,1,1,1,1,'','','yes we have transform it \nit\'s easy to do\n\nYou\' have Biometrics class finger reader ? ( I saw on your website of Vcongress of fivewin) can i have it?','',0,'SA==','20x1nkg9',1,0,'',49,0,0),(41958,8796,3,49,0,'213.82.134.66',1195463534,1,0,1,1,1,1,'','','Antonio,\n How Increase the space on each tabs to  move each aprompts to right ?','',0,'SA==','1od4hl7w',1,0,'',49,0,0),(41959,8427,6,106,0,'85.34.123.173',1195464718,1,0,1,1,1,1,'','','Antonio, espero entonces las librerias con la nueva version para xHarbour.\n\n\nGracias.\n\n\nP.D. en este momento tengo un cliente con la nueva version del programa, que no se aun por cual motivo los menúes con apariencia 2007, se pierden (los titulos de los menúes), basta pasar por encima de ellos y aparecen nuevamente, es rarísimo. Portatil con XP home.\n\nSaludos','',0,'SA==','1orpb2bz',1,0,'',106,0,0),(41960,8873,3,247,0,'193.92.131.194',1195465714,1,0,1,1,1,0,'','MDI &amp; Splitter Problem','Hi, \nWhen i try to use MDI Window with splitter does not work .See for example testspl1.prg use MDI .I found a previous forum witch shows the problem \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4253&amp;highlight=splitter+mdichild\">http://fivetechsoft.com/forums/viewtopi ... r+mdichild</a><!-- m -->\n\nIs there any solution for this?\nThank you \nA.S.K','',0,'SA==','1uf5nlyi',1,0,'',247,0,0),(41961,8427,6,2,0,'87.218.146.139',1195466084,1,0,1,1,1,1,'','','Pedro,\n\nQue resolución de color usa tu cliente en el XP ?','',0,'SA==','5z1o0855',1,0,'',2,0,0),(41962,8865,3,6,0,'87.18.215.204',1195467264,1,0,1,1,1,1,'','','<!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'SA==','2ujawp1u',1,0,'',6,0,0),(41963,8874,3,995,0,'81.11.193.29',1195468567,1,0,1,1,1,0,'','Xbrowse : using \'&amp;\' in data','Hello,\n\nTested in testxbrw.prg . In custumer.dbf i change the first field from record 1 as :\n\nHomer --&gt; H&amp;omer\n\nIn the first column from the browse i see :\n\n    Hmer , with \'m\' underscored\n\nWhy is the appersand not there ?\n\nI know that this character is used in menu\'s ... as accelerator , but it has no sense in data from a dbf\n\nFrank','',0,'SA==','nru578mq',1,0,'',995,0,0),(41964,7562,22,2,0,'87.218.146.139',1195470348,1,0,1,1,1,1,'','','We have already installed NJStar to emulate Chinese characters.\n\nWhat should we type to reproduce the error ? thanks!','',0,'SA==','1tl4y8k1',1,0,'',2,0,0),(41965,8844,6,362,0,'200.158.19.207',1195470690,1,0,1,1,1,1,'','','[quote=&quot;Ruben D. Fernandez&quot;:32ljwcd5]Karinha:\n\nDeseo PDF, Word y Excel\n\nMuchas gracias.\n\n\nSaludos.\n\nRuben Fernandez.[/quote:32ljwcd5]\n\nPara PDF, procure en la NET&lt;Google&gt; Por PDFCREATOR.EXE.','',0,'gA==','32ljwcd5',1,0,'',362,0,0),(41966,8875,20,1082,0,'85.43.122.34',1195470805,1,0,1,1,1,0,'','funzione SEEK','Enrico,\nhai un esempio di utilizzo di seek per adordd con SQL?\ngrazie?','',0,'gA==','1nkrx6r1',1,0,'',1082,0,0),(41967,8875,20,6,0,'87.18.215.204',1195471346,1,0,1,1,1,1,'','Re: funzione SEEK','Ammesso e non concesso che ADORDD funzioni, non dovrebbe essere differente dalla normale SEEK.\n\nEMG','',0,'gA==','80w65pi5',1,0,'',6,0,0),(41968,8873,3,2,0,'87.218.146.139',1195471692,1,0,1,1,1,1,'','','A.S.K.\n\nYou can do it this way. Anyhow when you try to create a Child window it GPFs and we need to find the reason\n[code:2z75au8d]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\nstatic oWnd\nstatic oLbx, oGet\nstatic oSplit\n\nfunction Main&#40;&#41;\n\n   local cTitle &#58;= &quot;Testing the Splitter controls&quot;\n   local cText\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 400, 600 PIXEL ;\n      TITLE cTitle ;\n      BORDER NONE MDI\n\n   SELECT 1\n   USE EJEMPLO1&#46;DBF\n\n   @ 20,20 LISTBOX oLbx FIELDS SIZE 200,300 PIXEL OF oWnd ;\n      ON CHANGE cText &#58;= Ejemplo1-&gt;Sintax\n\n   SetParent&#40; oLbx&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   @ 20,225 GET oGet VAR cText TEXT SIZE 300,300 PIXEL OF oWnd\n\n   oLbx&#58;bChange&#58;=&#123;|| oGet&#58;Refresh&#40;&#41; &#125;\n\n   SetParent&#40; oGet&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   @ 20, 220  SPLITTER oSplit ;\n              VERTICAL ;\n              PREVIOUS CONTROLS oLbx ;\n              HINDS CONTROLS oGet ;\n              LEFT MARGIN 100 ;\n              RIGHT MARGIN 140 ;\n              SIZE 4, 300  PIXEL ;\n              OF oWnd ;\n              _3DLOOK ;\n              UPDATE\n\n  SetParent&#40; oSplit&#58;hWnd, oWnd&#58;hWnd &#41;\n\n  ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:2z75au8d]','',0,'AIA=','2z75au8d',1,0,'',2,0,0),(41969,8873,3,247,0,'193.92.131.194',1195472234,1,0,1,1,1,0,'','','thank you Antonio.','',0,'AIA=','2bxecasi',1,0,'',247,0,0),(41970,8874,3,2,0,'87.218.146.139',1195472993,1,0,1,1,1,1,'','','Frank,\n\nPlease modify line 4029 in Class TXBrowse this way:\n\n   nStyle := nOr( DT_MODIFYSTRING, DT_EDITCONTROL, DT_NOPREFIX )','',0,'AIA=','2oskspen',1,0,'',2,0,0),(41971,8876,2,1099,0,'83.33.184.14',1195474699,1,0,1,1,1,0,'','Errores con Tsocket en Windows Vista','Hola a todos,\n\nTengo un programa que se conecta a un FTP para cargar y descargar un archivo y para ello uso la clase Tsocket.\n\nFunciona perfectamente en todos los sistemas pero cuando lo pongo en Windows Vista me sale el siguiente error:\n\nYou must create a main window in order to use Tsocket object\n\nNo se a que puede deberse, lo bueno es que luego hace la descarga del fichero, pero hay que aceptar este error. Si hago una carga al FTP pasa lo mismo, primero el error y luego al aceptar funciona.\n\nA ver si alguien tiene alguna pista de como solucionar éste problema.\n\nGracias de antemano.\n\nAndrés González','',0,'AIA=','3irg4qox',1,0,'',1099,0,0),(41972,8877,19,316,0,'213.97.245.163',1195477032,1,0,1,1,1,0,'','Wow32.dll','Perdón por el offtopic, pero esto nos tiene parados. Tenemos un problema on aplicaciones antiguas y necesito el archivo Wow32.dll\n\nFile name  File version      File size    Date    Time    Platform\nWow32.dll  5.2.3790.4087    285,696 23-May-2007    12:41    x86\n\ndel 2003 Server. El único hotfix que tiene microsoft está en inglés y no se aplica a productos en español, y dicen que viene en el SP3 que ya esta casi listo...  Increible! Mientras tanto te jodes.\n\nSaludos','',0,'AIA=','lwg4f5ec',1,0,'',316,0,0),(41973,8874,3,868,0,'219.64.121.60',1195477430,1,0,1,1,1,1,'','','That is in line 4006 for me.','',0,'AIA=','2p6ure9i',1,0,'',868,0,0),(41974,8876,2,2,0,'87.218.146.139',1195477525,1,0,1,1,1,1,'','','Andrés,\n\nTienes una ventana principal en tu aplicación ? \n\nO la aplicación no usa ninguna ventana ?','',0,'AIA=','3l73zt6o',1,0,'',2,0,0),(41975,8878,3,210,0,'81.24.159.58',1195478497,1,0,1,1,1,1,'','HTML-Help','Mr. Linares,\nin which way i can produce the required structure for the function HTMLHelpPopup() with the class Tstruct?\nMfG Günther','',0,'AIA=','41jyiper',1,0,'',210,0,0),(41976,8845,6,1104,0,'200.115.249.75',1195479087,1,0,1,1,1,0,'','','Hola Antonio,\n\nSi he probado como tu me dices, pero no funciona correctamente, utilicé las dos funciones \"OemToAnsi\" y \"AnsiToOem\", y sin utilizarlas también he probado sin ningun resultado satifactorio.\n\nGracias por tu ayuda.\nSaludos, Esteban','',0,'AIA=','240u9xt2',1,0,'',1104,0,0),(41977,8865,3,324,0,'89.216.32.242',1195479115,1,0,1,1,1,0,'','','@James\nI tried on Windows 2000, Service pack 4 and have no problem... Unfortunately, I don\'t have an access to any machine with Service pack 3, except the one which makes me trouble <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nBTW: glad to hear you were lucku, regarding that fires. I followed all this on CNN for days...','',0,'AIA=','3i1591ha',1,0,'',324,0,0),(41978,8427,6,106,0,'85.34.123.173',1195479359,1,0,1,1,1,1,'','','Antonio, \n\napenas tenga el portatil del cliente esta semana me fijo.\n\n\nSaludos','',0,'AIA=','35vx4ny4',1,0,'',106,0,0),(41979,8427,6,2,0,'87.218.146.139',1195480022,1,0,1,1,1,1,'','','Pedro,\n\nOk, gracias.\n\nPrueba a ponerle los colores en 32 bits','',0,'AIA=','2n0yv28u',1,0,'',2,0,0),(41980,8845,6,2,0,'87.218.146.139',1195480130,1,0,1,1,1,1,'','','El reporte se visualiza mal y se imprime mal ? Ambas cosas ?','',0,'AIA=','1e244zug',1,0,'',2,0,0),(41981,8876,2,1099,0,'83.33.185.219',1195483503,1,0,1,1,1,0,'','','Hola Antonio,\n\nTengo una ventana principal en la aplicacion. De hecho la funcion la llamo cuando se carga esta:\n\nACTIVATE WINDOW PRINCIPAL MAXIMIZED VALID SORTIR() ON INIT ([color=red:3up7z0fv][b:3up7z0fv]BUSCAVER(),[/b:3up7z0fv][/color:3up7z0fv]PRINCIPAL:UPDATE()) ON PAINT PalBmpDraw(hDC,MFS,MFE,PTC:hBitmap)\n\ny la funcion es la siguiente:\n\nFUNCTION BUSCAVER()\n\nLOCAL VDES,ARCH,L,NOTA,SE\nIF INTERNET() .AND. (!FILE(ARREL+\"versio\") .OR. DIRECTORY(\"versio\")[1][3]&lt;&gt;DATE())\n    OKSOR=.F.\n    OKSOR=FetchFile(\"ftp.hhhhh.hhh\",\"uuuuu\",\"ppppp\",\"programa\",\"versio\",,,.F.)\nELSE\n    OKSOR:=.T.\nENDIF\nSE=MEMOREAD(\"versio\")\n.....\n\nLo que hago es descargar un fichero de texto donde me indica la version mas actual y si el programa no esta actualizado propone al usuario que se actualice.\n\nSaludos,\n\nAndrés','',0,'Qg==','3up7z0fv',1,0,'',1099,0,0),(41982,8845,6,1104,0,'200.115.249.75',1195484303,1,0,1,1,1,0,'','','Si antonio, se ve mal en el Preview y en la impresion.\nSaludos, Esteban','',0,'Qg==','e4o62c8m',1,0,'',1104,0,0),(41983,8876,2,2,0,'87.218.146.139',1195485106,1,0,1,1,1,1,'','','Andrés,\n\nPara solucionarlo, modifica la clase TSocket. Busca esta línea:\n\n      MsgAlert( \"You must create a main window in order to use a TSocket object\" )\n\ny coméntala','',0,'Qg==','2elqhb42',1,0,'',2,0,0),(41984,8845,6,221,0,'200.109.0.102',1195485480,1,0,1,1,1,1,'','','cambia el codigo de pagina de windows, osea el juego de caracteres','',0,'Qg==','wsgdcnc2',1,0,'',221,0,0),(41985,8877,19,316,0,'213.97.245.163',1195486182,1,0,1,1,1,0,'','','Listo. Resuelto el problema.','',0,'Qg==','y1jqh48h',1,0,'',316,0,0),(41986,8845,6,1104,0,'200.115.249.75',1195486236,1,0,1,1,1,0,'','','[quote:bjfmccv6]\ncambia el codigo de pagina de windows, osea el juego de caracteres\n[/quote:bjfmccv6]\n\nRealmente desconozco como debo hacer esto que me dices.\nPodrías explicarlo?\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'gA==','bjfmccv6',1,0,'',1104,0,0),(41987,8879,3,1117,0,'125.24.38.26',1195486960,1,0,1,1,1,0,'','Sample ftpserv','I try to test sample file c:\\fwh\\samples\\ftpserv.prg\nbut function TftpServer not found.\nPlease tell me how to solve this problem.\nThank..........\n\n\n************  Sample Source Code ***************\n// FiveWin Class TFtpServer demo\n#include \"FiveWin.ch\"\nstatic oWnd, oFTPServer\nfunction Main()\n   local oBar\n   DEFINE WINDOW oWnd TITLE \"FiveWin FTP server\"\n   DEFINE BUTTONBAR oBar _3D OF oWnd\n   DEFINE BUTTON OF oBar ACTION BuildServer()\n   ACTIVATE WINDOW oWnd\nreturn nil\n\nfunction BuildServer()\n   oFTPServer := TFtpServer():New()\n   oFtpServer:cLogFile = \"ftpserv.log\"\n   oFtpServer:lDebug   = .t.\n   oFTPServer:Activate()\nreturn nil\n\n\n******************* Complie Resulte **********************\n&#3642;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3615;\n&#3603; FiveWin for Harbour 7.11 - Nov. 2007            Harbour development power  &#3603;&#63682;\n&#3603; (c) FiveTech, 1993-2007    for Microsoft Windows 95/98/NT/2000/ME/XP/Vista &#3603;&#63681;\n&#3616;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3620;&#3641;&#63681;\n&#63688; &#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;&#3647;\nCompiling...\nHarbour devel build 1.1-1 Intl.\nCopyright (c) 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'ftpserv.prg\' and generating preprocessed output to \'ftpserv.ppo\'...\nLines 3539, Functions/Procedures 3\nGenerating C source output to \'ftpserv.c\'... Done.\nPress any key to continue . . .\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nftpserv.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_TFTPSERVER\' referenced from C:\\PROJECT\\TEMP\\\nFTPSERV.OBJ','',0,'gA==','129myru2',1,0,'',1117,0,0),(41988,8861,6,891,0,'201.140.184.46',1195487278,1,0,1,1,1,0,'','Hola','[quote=&quot;Armando&quot;:1uvg3gbz]Amigos:\n\nGracias por las respuestas y sugerencias, tal vez sea posible modificar la clase TGET para meter esas carácteristicas, solo que de eso \"yo solo se que no se nada\", a ver si algun guru nos aporta algo para empezar a tirar.\n\nSaludos[/quote:1uvg3gbz]\n\nHola Armando buenos dias, tu necesitas una funcion que capture como cuentas contables verdad ? no hay necesidad de modificar la clase Tegt, yo tengo esa funcion que me rellena los ceros en el valid del get para captura de cuentas especiales de 1 a 4 niveles de cuentas, espero que te sirva.\n\n\n//------------------------------------------------------------------------------\n* FORMATO1 CON GUION  0000-0000-0000-0000 ó SIN GUION 000000000000\nFUNCTION FORMATO1(VarCta, Ctaf,lGuion)\n Local lcad1, lcad2, lcad3, lCad4, I, cFormCta\n\n I     := 0\n lcad1 := \"\"\n lcad2 := \"\"\n lcad3 := \"\"\n lcad4 := \"\"\n\n //Procesa el primer campo de 4 Digitos: 0000-   // Nivel 1\n Do While .T.\n     I=I+1\n\n     IF SubStr(Ctaf, I, 1) == \'-\' .OR. I &gt; Len(Ctaf)\n         Exit\n     EndIF\n\n     lcad1 :=  lcad1 + SubStr(Ctaf, I , 1)\n EndDo\n\n //Procesa el segundo campo de 4 Digitos: 0000-0000  // Nivel 2\n Do While .T.\n     I=I+1\n\n     IF SubStr(Ctaf, I, 1) == \'-\' .OR. I &gt; Len(Ctaf)\n         Exit\n     EndIF\n\n     lcad2 :=  lcad2 + SubStr(Ctaf, I , 1)\n EndDo\n\n //Procesa el tercer campo de 4 Digitos: 0000-0000-0000  // Nivel 3\n Do While .T.\n     I=I+1\n\n     IF SubStr(Ctaf, I, 1) == \'-\' .OR. I &gt; Len(Ctaf)\n        Exit\n     EndIF\n\n     lcad3 :=  lcad3 + SubStr(Ctaf, I, 1)\n EndDo\n\n //Procesa el cuarto campo de 4 Digitos: 0000-0000-0000-0000  // Nivel 4\n Do While .T.\n     I=I+1\n\n     IF SubStr(Ctaf, I, 1) == \'-\' .OR. I &gt; Len(Ctaf)\n        Exit\n     EndIF\n\n     lcad4 :=  lcad4 + SubStr(Ctaf, I, 1)\n EndDo\n\n *Nota: Tienes que indicar los 3 \'-\', ej: 1--, y como resultado: 00001-0000-0000-0000\n\n IF lGuion\n     cFormCta := STRZERO(Val(lcad1),4) +\'-\'+ STRZERO(Val(lcad2),4)+\'-\'+ STRZERO(Val(lcad3),4)+\'-\'+ STRZERO(Val(lcad4),4)\n ELSE\n     cFormCta := STRZERO(Val(lcad1),4) + STRZERO(Val(lcad2),4) + STRZERO(Val(lcad3),4) + STRZERO(Val(lcad4),4)\n ENDIF\n *MsgInfo(cFormCta)\n RETURN (cFormCta)\n\nAdriano C. C.','',0,'gA==','1uvg3gbz',1,0,'',891,0,0),(41989,8712,6,456,0,'217.127.39.57',1195487639,1,0,1,1,1,1,'','','Carlos, repesco este mensaje, porque al final paso sin pena ni gloria, igual es que no interesa. \n\nPero por lo menos que sepas que a mi si me parece una buena idea lo de organizar un encuentro de FiveWinners ibéricos. Yo me apunto.','',0,'gA==','g69h3vc5',1,0,'',456,0,0),(41990,8873,3,2,0,'87.218.146.139',1195487906,1,0,1,1,1,1,'','','It looks as a Windows MDI internal procedure GPF but we found a way to bypass it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:3vy501bd][img:3vy501bd]http&#58;//img138&#46;imageshack&#46;us/img138/7237/mdigy0&#46;png[/img:3vy501bd][/url:3vy501bd]','',0,'GA==','3vy501bd',1,1195488689,'',2,1,0),(41991,8873,3,2,0,'87.218.146.139',1195487986,1,0,1,1,1,1,'','','Here it is the source code:\n[code:12odp7cg]\n// FWH Class TOutLook2003\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue &#58;= 1\n   local oFont\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH new Class TOutLook2003&quot; MDI // ;\n      // MENU BuildMenu&#40;&#41;\n\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Mail&quot;, &quot;Calendar&quot;, &quot;Contacts&quot;, &quot;&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot;\n      \n   oWnd&#58;oLeft = nil // Because the splitter is going to control the resize   \n      \n   @ 1, 2 BUTTON &quot;New&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION BuildDlg&#40;&#41;\n\n   @ 3, 2 BUTTON &quot;Edit&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Edit&quot; &#41;   \n\n   @ 5, 2 BUTTON &quot;Search&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Search&quot; &#41;   \n\n   @ 1, 1 COMBOBOX cCombo ITEMS &#123; &quot;January&quot;, &quot;February&quot;, &quot;March&quot;, &quot;April&quot;, &quot;May&quot; &#125; ;\n      OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 170, 100 \n   \n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -10\n   \n   @ 12, 10 SAY Date&#40;&#41; OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 80, 20 FONT oFont\n   \n   @ 3, 1 RADIO oRad VAR nValue OF oOutLook2003&#58;aDialogs&#91; 2 &#93; ;\n      ITEMS &quot;&amp;Day&quot;, &quot;&amp;Week&quot;, &quot;&amp;Month&quot; SIZE 100, 20\n      \n   oRad&#58;SetFont&#40; oFont &#41;   \n\n   #ifndef __CLIPPER__\n      DEFINE STATUSBAR oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #else   \n      DEFINE MESSAGE oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #endif   \n\n   SetParent&#40; oOutLook2003&#58;hWnd, oWnd&#58;hWnd &#41;\n   \n   oWnd&#58;oClient = nil\n   \n   @ 0, 191 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oOutLook2003 ; \n      HINDS CONTROLS oWnd&#58;oWndClient ;\n      SIZE 4, oWnd&#58;nHeight - 70 PIXEL ;\n      OF oWnd\n\n   SetParent&#40; oSplit&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit&#58;Adjust&#40;&#41; ;\n      VALID PostQuitMessage&#40; 0 &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   MENU oMenu\n      MENUITEM &quot;&amp;One&quot;\n      MENUITEM &quot;&amp;Two&quot;\n      MENUITEM &quot;&amp;Three&quot;\n   ENDMENU\n   \nreturn oMenu   \n\n//----------------------------------------------------------------------------//\n\nfunction BuildDlg&#40;&#41;\n\n   local oDlg, oOutL2003\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n   \n   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;\n      PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot; ;\n      DIALOGS &quot;Page1&quot;, &quot;Page2&quot;, &quot;Page3&quot;\n\n   REDEFINE BUTTON ID 110 OF oOutL2003&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;Click&quot; &#41;\n      \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil      \n\n//----------------------------------------------------------------------------//\n\nfunction WinRun&#40;&#41;\n\n   while NoGPF&#40;&#41;\n   end\n   \nreturn nil         \n                \n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nBOOL SysRefresh&#40; void &#41;;\n\nHB_FUNC&#40; NOGPF &#41;\n&#123;\n   __try\n   &#123;\n      hb_retl&#40; SysRefresh&#40;&#41; &#41;;\n   &#125;\n   __except &#40; &#40; hb_retl&#40; TRUE &#41;, TRUE &#41; &#41;\n   &#123;&#125; \n&#125;\n\n#pragma ENDDUMP	\n[/code:12odp7cg]','',0,'AIA=','12odp7cg',1,0,'',2,0,0),(41992,8870,3,879,0,'70.53.45.207',1195489261,1,0,1,1,1,0,'','','Otto,\n\nNo, I have not looked at or tried Fbedit at all. I have used Ultra Edit for years and I am quite comfortable with it just as Antonio is with using the Borland Resource Editor. It could be that Fbedit was designed more for creating ASM files.\n\nEnrico,\n\nI extracted all 114 files to a folder. Most, if not all look to be samples. There are a couple of dll\'s and lib\'s but may be ASM samples. I ran ResEd on two other XP Pro systems with no GPF’s. Are running Vista and, if so, is it 32 or 64 bit?\n\nUsing WinZip, I checked the CRC under “Properties” and got 72E93015. Could it be your download was corrupted? To check which version was currently posted, I had to download it a couple of times before WinZip would open the file.\n\nI tried opening several FiveWin .RC sample files and had no problems opening any of them. A couple samples I opened (i.e. Testtrer.rc or testdlg4.rc) had “produced by Borland Resource Workshop” at the top of the file. The ResEd zip file also contains several demo .RC files which I also had no trouble opening.\n\nThe original zip file I downloaded had a ResEd.exe date of 8/24/2007; however, the latest version is 11/9/2007. According to Ketil, “ResEd 1.1.4.3 contains many improvements and a few bug fixes.”\n\nArmando,\n\nNo, for use with FiveWin, it seems that it only works with .RC files which are also used with UEStudio. I do not know for certain, but it seems these applications were originally designed to be used with assembler applications. It just so happens that the same RC files also work with C, FiveWin and (x)Harbour.\n\nJose,\n\nI too also had a similar problem at first. In the latest version go to “Options” “Options” and select the Behaviour tab. In the right there is a check box labled as “Styles as Hex.” Deselect it. What I found was I could compile using Borland either way but the UEStudio Resource Editor didn’t like the Hex values at all. I assume Borland Resource Editor is the same.\n\nWhat OS are you using, i.e. XP or Vista?\n\nFor All,\n\nIn the same Behaviour tab as above there is also an option to “Keep Toolbox selection.” It was a suggestion of mine but implemented poorly. A further change will be made to replace the option with either holing down the ALT, CTRL or whatever to make things more efficient.\n\nA second addition coming is Undo. I found it worked in certain cases but not for control placement.\n\nI also suggested that Reload and/or Close icons be added. When I switch to UES, I might make changes to the RC file directly and if not reloaded into ResEd, any changes would not be updated.','',0,'AIA=','1gvgvffs',1,0,'',879,0,0),(41993,8712,6,2,0,'87.218.146.139',1195489302,1,0,1,1,1,1,'','','Biel,\n\nYa se que no es lo mismo, pero que mejor encuentro que estos foros! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','25ooxogs',1,0,'',2,0,0),(41994,7317,6,316,0,'213.97.245.163',1195490436,1,0,1,1,1,0,'','','Antonio,\n\nCompilando con el build de Harbour publicado en Octubre junto a FWH 7.10 anterior en TGet, \n\n\n[code:1x5y8y32]\n&#9484;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9488;\n&#9474; FiveWin for Harbour 7&#46;07 - July 2007            Harbour development power  &#9474;&#9604;\n&#9474; &#40;c&#41; FiveTech, 1993-2007      for Microsoft Windows 95/98/NT/2000/ME and XP &#9474;&#9608;\n&#9492;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9472;&#9496;&#9608;\n  &#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;&#9600;\nCompiling&#46;&#46;&#46;\nHarbour devel build 1&#46;1-1 Intl&#46;\nCopyright 1999-2007, http&#58;//www&#46;harbour-project&#46;org/\nCompiling \'TESTGET2&#46;prg\' and generating preprocessed output to \'TESTGET2&#46;ppo\'&#46;&#46;&#46;\n\nLines 3496, Functions/Procedures 2\nGenerating C source output to \'TESTGET2&#46;c\'&#46;&#46;&#46; Done&#46;\nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nTESTGET2&#46;c&#58;\nBorland Resource Compiler  Version 5&#46;40\nCopyright &#40;c&#41; 1990, 1999 Inprise Corporation&#46;  All rights reserved&#46;\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\n* Application successfully built\n\nC&#58;\\FWH707\\samples&gt;\n[/code:1x5y8y32]\n\n[img:1x5y8y32]http&#58;//img152&#46;imageshack&#46;us/img152/476/tgetjc2&#46;png[/img:1x5y8y32]\n\ndefinitivamente es el typeout, que ahora es protected y no se puede asignar.\n\nQue simpático cambio el de Harbour.\n\nUn saludo,\n\nCarlos.','',0,'CIA=','1x5y8y32',1,0,'',316,0,0),(41995,8712,6,362,0,'200.158.19.207',1195490824,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:14kgvt44]Biel,\n\nYa se que no es lo mismo, pero que mejor encuentro que estos foros! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:14kgvt44]\n\nPERDÓN AMADO MAESTRO. NO ÉS LA MISMA COSA. ACÁ EN BRASIL, ESTE AÑO, VIENES +- 100 PERSONAS, INCLUSIVE, DEL PERÚ, PERSONAS DE IDIOMA ESPAÑOL. \n\nESTAMOS TODOS MUI FELICES.\n\nVIVA, GILMER TAVARES!!\n\n<!-- m --><a class=\"postlink\" href=\"http://www.congressofivewin.com.br/\">http://www.congressofivewin.com.br/</a><!-- m -->\n\nRegards, saludos.','',0,'gA==','14kgvt44',1,0,'',362,0,0),(41996,8868,6,1090,0,'201.254.59.244',1195494413,1,0,1,1,1,0,'','sigue el error','Compilo el window.prg, despues hago en el build.bat\n\nIF %1==EC echo WINDOW.OBJ + &gt;&gt; b32.bc\nIF %1==ec echo WINDOW.OBJ + &gt;&gt; b32.bc\n\ny cuando ejecuto build ec, y corro el ec.exe, me da este error.\n¿que puede ser? gracias. Atte. \n\nApplication\n===========\n   Path and name: C:\\FW192\\SAROSH\\ec.exe (32 bits)\n   Size: 1,542,144 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 19-11-2007, 14:49:24\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   1\n\nStack Calls\n===========\n   Called from: window.prg =&gt; _FWH(3162)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TWINDOW:GETFONT(0)\n   Called from:  =&gt; TWINDOW:NEW(0)\n   Called from: EC.prg =&gt; MAIN(168)\n\n\n\n[quote=&quot;Antonio Linares&quot;:1vpxtqhu]Diego,\n\nEsta es la solución:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8191\">http://fivetechsoft.com/forums/viewtopic.php?t=8191</a><!-- m -->[/quote:1vpxtqhu]','',0,'gA==','1vpxtqhu',1,0,'',1090,0,0),(41997,8880,6,92,0,'81.44.86.233',1195494750,1,0,1,1,1,0,'','PICTUREs personalizados','Como se hacercan los reyes, yo también voy a hacer la carta.\n\nEs España (y creo que en otros paises sucede algo parecido), en la banca se usa el CCC (Código Cuenta Cliente). Éste es un número de 20 cifras con 4 grupos de cifras:\n\n4 para entidad\n4 para oficina\n2 para dígitos de control\n10 para número de cuenta\n\ny el formato sería: 1234.5678.90.1234567890\n\nEs posible hacer un PICTURE para introducir datos de este tipo?\n\nSe puede complicar aún más. También existe el IBAN que es el CCC precedido de 2 caracteres que identifican el pais.\n\nEn fin sólo era un deseo para estas Navidades.\n\nSaludos\nCarlos G.','',0,'gA==','2ndw7ibv',1,0,'',92,0,0),(41998,8881,7,1135,0,'189.136.45.220',1195495121,1,0,1,1,1,1,'','emulador compatible con shared','Hola a Todos\nDonde se puede bajar una emulador de WM2005 que sea compatible con la clausula SHARED?','',0,'gA==','nwhe96zf',1,0,'',1135,0,0),(41999,8880,6,316,0,'213.97.245.163',1195497173,1,0,1,1,1,0,'','','Hola Carlos,\n\nNo te sirve el picture \'@R 9999-9999-99-9999999999\' ?\nDigamos que estaría bien si conaras que tienes editar, que quieres obtener, el formato en que esta la variable, etc.\n\nSaludos','',0,'gA==','3ixt31oe',1,0,'',316,0,0),(42000,8712,6,316,0,'213.97.245.163',1195497847,1,0,1,1,1,0,'','','Los foros, tal como siempre dices, son solo para soporte, el contacto es siempre superficial y esporádico. Muy distinto es poder ver a la gente con la que se comparte tanto por acá, poder conversar e intercambiar experiencias, proyectos y sobre todo conocimientos.\nAlguna vez te comenté lo interesante que sería para muchos de nosotros aprender sobre FWPPC, al menos para mí es un mundo paralelo. Tambien se estan poniendo muy de moda los motores de BBDD, Rafa Carmona está trabajando sobre un modelo de acceso a SQL pero que apunta a ser para todos los motores.\nTambien se me ocurren ponencias sobre técnicas de desarrollo, tips, muchísimas cosas más.\nHace poco se hizo una reunion de xBase acá en Madrid y me han dejado boquiabierto ponencias sobre Patrones de Software, Modelo Vista Controlador, y otras cosas técnicas que me parece imprescindibles que vamos conociendo, además de POO. \nTambien se presento MIDAS, que es un generador de informes gratuito y opensource.\nEl año pasado Walter Negro explicó via teleconferencia el motor de objetos de xHarbour y las novedades de xHarbour respecto de Clipper 5.3.\n\nBueno, y despues nos comimos un cordero DPM, pero eso ya es otra cosa, jeje.\n\nUn saludo,\n\nCarlos.','',0,'gA==','26ljz14l',1,0,'',316,0,0),(42001,8882,3,29,0,'88.149.162.100',1195498544,1,0,1,1,1,0,'','xBrowse, lAutoOrder and Colums swapping','Hi,\nlAutoOrder runs only if lAllowColSwapping=.t..\nIf lAllowColSwapping=.f. the user can\'t select the column to order. \n\nIs there any way to bypass this problem ? I want the lAutoOrder feature available without the ColSwapping feature enabled.\n\nAny ideas?\n\nThanks,\n\nBest Regards,\n\nMarco Turco','',0,'gA==','2fcelgja',1,0,'',29,0,0),(42002,8879,3,2,0,'87.218.146.139',1195499143,1,0,1,1,1,1,'','','The class source code is located at source\\classes\\tftpserv.prg','',0,'gA==','1p9w2mor',1,0,'',2,0,0),(42003,8845,6,1168,0,'84.121.87.247',1195500381,1,0,1,1,1,0,'','','El comando es chcp','',0,'gA==','12i57rwh',1,0,'',1168,0,0),(42005,8712,6,2,0,'87.218.146.139',1195500777,1,0,1,1,1,1,'','','Carlos, João,\n\nTotalmente de acuerdo con vosotros, pero por lo menos, a través de estos foros, mantenemos un contacto a diario <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLa informática es cada vez más amplia, y hay infinidad de temas que pueden abordarse. Gracias a Internet, podemos buscar información acerca de los temas que nos interesan más a cada uno, bien sea en foros, irc, proyectos open source, etc. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2nwabnxe',1,0,'',2,0,0),(42006,8868,6,2,0,'87.218.146.139',1195501190,1,0,1,1,1,1,'','','Diego,\n\nQue versión de FWH usas ?','',0,'gA==','3ptxr5s4',1,0,'',2,0,0),(42007,7317,6,2,0,'87.218.146.139',1195501304,1,0,1,1,1,1,'','','Carlos,\n\n&gt; definitivamente es el typeout, que ahora es protected y no se puede asignar\n\nSi, así es, por eso hay que modificar la clase TGet y eliminar el uso de typeout','',0,'gA==','197z8jh8',1,0,'',2,0,0),(42008,8881,7,2,0,'87.218.146.139',1195501433,1,0,1,1,1,1,'','','Arturo,\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/70865992/PPC_2005.ZIP.html\">http://rapidshare.com/files/70865992/PPC_2005.ZIP.html</a><!-- m -->','',0,'gA==','2j7x6j7l',1,0,'',2,0,0),(42009,8882,3,2,0,'87.218.146.139',1195501582,1,0,1,1,1,1,'','','Marco,\n\nI can only found a reference to lAutoOrder in Method SetArray().\n\nIsn\'t it a different DATA name ?\n\nCoud you provide a small and self contained sample ? Thanks,','',0,'gA==','35phpnvb',1,0,'',2,0,0),(42010,8843,3,400,0,'201.68.33.102',1195502793,1,0,1,1,1,1,'','','Silvio, for you that are masters, I believe that it is very easy, but, for an apprentice like me, I don\'t know nor through where to begin.....hehehheehe  \n  \nYou were able to, to share with us, what should do, to alter the btnBmp style 2007.\n\nOn Biometria....me still no ultilizo, will go 24/11/2007 to participate in V Congresso of FiveWin (where it is clear, you this also invited) to know the integration of FiveWin with the biometria.  \n  \nHe/she already has some programmers of FiveWin, testing this Lib for Biometria, but, I still don\'t know a lot of thing regarding her.  \n  \nIn case you have interest in knowing better on this subject, I can make some researches for you.  \n\n<!-- m --><a class=\"postlink\" href=\"http://www.congressofivewin.com.br/\">http://www.congressofivewin.com.br/</a><!-- m -->\n\nBest Regards,','',0,'gA==','moted3oj',1,0,'',400,0,0),(42011,8878,3,2,0,'87.218.146.139',1195502856,1,0,1,1,1,1,'','','Günther,\n\nThere is no need to use a struct for HTMLHelpPopup(), afaik\n\nHTMLHelpPopup() is already declared in source\\winapi\\help32.prg and this is an example of use:\n\nHtmlHelpPopup( 0, \"test.chm\",  0, \"introduction.htm\" )','',0,'gA==','if1c4b4i',1,0,'',2,0,0),(42012,8876,2,1099,0,'80.58.234.229',1195503857,1,0,1,1,1,0,'','','Gracias Antonio asi lo haré.','',0,'gA==','321jfdki',1,0,'',1099,0,0),(42013,8712,6,1146,0,'87.223.173.186',1195503995,1,0,1,1,1,0,'','','Hola Carlos:\n\n¿Podrías, por favor, índicarme dónde puedo bajarme MIDAS?. ¿Quién es su autor?.\n\nMuchas gracias','',0,'gA==','1ddq374r',1,0,'',1146,0,0),(42014,8712,6,50,0,'84.121.121.53',1195504168,1,0,1,1,1,0,'','Cuando y donde','Me parece una excelente idea la de juntarnos todos aquellos que desarrollamos en fwh, ya que si bien estamos muy diversificados, la gran mayoría podría aprovechar de mejor manera las experiencias que nos puedan transmitir grandes gurues, desde luego Antonio que si tu pudieras asistir, esto ya sería un lujo, a ver si nos ponemos de acuerdo en fecha y lugar y organizamos el evento mas impoprtante de xBase de todos esto años, porque creo que somos muchos y juntos seremos mas.','',0,'gA==','2lvh7oyn',1,0,'',50,0,0),(42015,8880,6,180,0,'79.146.64.65',1195504343,1,0,1,1,1,0,'','','Hola Carlos,\ncomo dice Carlos Mora el PICTURE \"@R 9999-9999-99-9999999999\" va perfecto.\nYa puestos, te pego también un par de funciones para validarlo, por si te son de utilidad.\nUn saludo,\nManuel\n\n[code:xa2v887o]REDEFINE GET oGet&#91;18&#93; VAR  cCuenta  WHEN nPago=2 VALID ValidaCuenta&#40;cCuenta,nPago&#41; ID 428 OF oFolder&#58;aDialogs&#91;2&#93; PICTURE &quot;@R 9999-9999-99-9999999999&quot; FONT oFont2\n\n*******************************************\nFUNCTION VALIDACUENTA&#40;cCuenta,nPago&#41;\n*******************************************\nLocal lValor&#58;=&#46;T&#46;\nLocal cDigito\n//\nIF EMPTY&#40;cCuenta&#41; &#46;AND&#46; nPago = 2\n   MsgSTOP&#40;OemToAnsi&#40;&quot;El n£mero de cuenta bancaria debe tener 20 d¡gitos&quot;&#41;,OemToAnsi&#40;&quot;­­­ Atenci¢n !!!&quot;&#41;&#41;\n   lValor=&#46;F&#46;\nENDIF\n//\nIF !EMPTY&#40;cCuenta&#41;\n   //\n   IF LEN&#40;ALLTRIM&#40;cCuenta&#41;&#41; &lt; 20\n      MsgSTOP&#40;OemToAnsi&#40;&quot;El n£mero de cuenta bancaria debe tener 20 d¡gitos&quot;&#41;,OemToAnsi&#40;&quot;­­­ Atenci¢n !!!&quot;&#41;&#41;\n      lValor=&#46;F&#46;\n   ELSE\n   //\n   cDigito=DigBanco&#40;SUBSTR&#40;cCuenta,1,8&#41;,SUBSTR&#40;cCuenta,11,10&#41;&#41;\n   //\n      IF cDigito &lt;&gt; SUBSTR&#40;cCuenta,9,2&#41;\n         MsgSTOP&#40;OemToAnsi&#40;&quot;El n£mero de cuenta bancaria es incorrecto&quot;&#41;,OemToAnsi&#40;&quot;­­­ Atenci¢n !!!&quot;&#41;&#41;\n         lValor=&#46;F&#46;\n      ENDIF\n      //\n   ENDIF\n   //\nENDIF\n//\nRETURN lValor\n\n*************************************************************************\nFUNCTION Digbanco&#40;cRefer1,cRefer2&#41;\n*************************************************************************\nLOCAL nDigitos &#58;= 10\nLOCAL aDigito  &#58;= ARRAY&#40; nDigitos &#41;\nLOCAL aPeso    &#58;= &#123; 1, 2, 4, 8, 5, 10, 9, 7, 3, 6 &#125;\nLOCAL nSuma    &#58;= 0\nLOCAL nCont\nLOCAL nModulo\nLOCAL nResto\nLOCAL cDigito1\nLOCAL cDigito2\n\ncRefer1 &#58;= STRTRAN&#40;cRefer1,\'-\'&#41;\ncRefer1 &#58;= STRTRAN&#40;cRefer1,\'&#46;\'&#41;\ncRefer1 &#58;= STRTRAN&#40;cRefer1,\'/\'&#41;\ncRefer1 &#58;= STRTRAN&#40;cRefer1,\' \'&#41;\ncRefer1 &#58;= RIGHT&#40;cRefer1,nDigitos&#41;\ncRefer1 &#58;= PADL&#40;cRefer1,nDigitos,\'0\'&#41;\n\ncRefer2 &#58;= STRTRAN&#40;cRefer2,\'-\'&#41;\ncRefer2 &#58;= STRTRAN&#40;cRefer2,\'&#46;\'&#41;\ncRefer2 &#58;= STRTRAN&#40;cRefer2,\'/\'&#41;\ncRefer2 &#58;= STRTRAN&#40;cRefer2,\' \'&#41;\ncRefer2 &#58;= RIGHT&#40;cRefer2,nDigitos&#41;\ncRefer2 &#58;= PADL&#40;cRefer2,nDigitos,\'0\'&#41;\n\nFOR nCont &#58;= 1 to nDigitos\n   aDigito&#91; nCont &#93; &#58;= VAL&#40; SUBSTR&#40; cRefer1, nCont, 1 &#41; &#41;\n   nSuma += &#40; aDigito&#91; nCont &#93; * aPeso&#91; nCont &#93; &#41;\nNEXT\nnModulo  &#58;= 11 - INT&#40; nSuma % 11 &#41;\nnResto   &#58;= IF&#40; nModulo == 10, 1, IF&#40; nModulo == 11, 0, nModulo &#41; &#41;\ncDigito1 &#58;= LTRIM&#40;STR&#40;nResto&#41;&#41;\n\nnSuma &#58;= 0\nFOR nCont &#58;= 1 to nDigitos\n   aDigito&#91; nCont &#93; &#58;= VAL&#40; SUBSTR&#40; cRefer2, nCont, 1 &#41; &#41;\n   nSuma += &#40; aDigito&#91; nCont &#93; * aPeso&#91; nCont &#93; &#41;\nNEXT\nnModulo  &#58;= 11 - INT&#40; nSuma % 11 &#41;\nnResto   &#58;= IF&#40; nModulo == 10, 1, IF&#40; nModulo == 11, 0, nModulo &#41; &#41;\ncDigito2 &#58;= LTRIM&#40;STR&#40;nResto&#41;&#41;\n\nRETURN&#40;cDigito1+cDigito2&#41;\n[/code:xa2v887o]','',0,'AIA=','xa2v887o',1,0,'',180,0,0),(42016,8712,6,50,0,'84.121.121.53',1195504357,1,0,1,1,1,0,'','Midas','Midas es un excelente trabajo de Bingen Ugaldebere, que viene desarrollando desde MS-DOS, FWH y ahora con otro producto, pero que es altamente aprovechable, como casi todo lo que se hace en el mundo xBase, lo podemos aprovechar todos.\n\nSaludos.','',0,'AIA=','3fvr4iww',1,0,'',50,0,0),(42017,8712,6,316,0,'87.218.186.214',1195504711,1,0,1,1,1,0,'','','Moises,\n\nTodavia no se ha publicado porque Bingen está terminando un par de detalles que tiene pendientes. Realmente no son significativos pero el es muy detallista y le gusta tener todo controlado.\n\nEn cuanto esté seguro publico los enlaces.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','1m0e4frd',1,0,'',316,0,0),(42018,8712,6,316,0,'87.218.186.214',1195505187,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1n7ezgai]Carlos, João,\n\nTotalmente de acuerdo con vosotros, pero por lo menos, a través de estos foros, mantenemos un contacto a diario <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nLa informática es cada vez más amplia, y hay infinidad de temas que pueden abordarse. Gracias a Internet, podemos buscar información acerca de los temas que nos interesan más a cada uno, bien sea en foros, irc, proyectos open source, etc. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1n7ezgai]\n\nEn ningun momento quise decir que el foro no sea importante, al contrario, siempre lo consulto. Pero no veo que hacer una reunión vaya en contra del foro, muy por el contrario, me gustaría verle la cara a la gente que siempre me hecha una mano. \nInternet es una gran fuente de [b:1n7ezgai]información[/b:1n7ezgai], pero las reuniones con gente que expone temas hace la [b:1n7ezgai]formación[/b:1n7ezgai], y a la transmisión de conociemientos y experiencias.\nEl foro es de soporte, nadie postea acá algún tema teórico que no tenga que ver explícitamente con FW y un tema concreto, y siempre es práctico. No hablamos mucho en el foro de SQL, y de otras cosas que aca resultan OffTopic. \nUna exposición se escucha y luego se plantean las dudas, y se aprovecha la experiencia de otros capitalizándola como propia.\n\nY la camaradería tambien es importante, y no puedo compartir una birra con los colegas. ¡Vamos, que la vida no tiene forma de pantalla y teclado!\n\nUn saludo,\nCarlos\n\n[/b]','',0,'wA==','1n7ezgai',1,0,'',316,0,0),(42019,8868,6,1090,0,'201.254.59.244',1195505737,1,0,1,1,1,0,'','fwh 7.05 de mayo 2007','uso fwh 7.05 de mayo 2007\n\n[quote=&quot;Antonio Linares&quot;:11g75fxx]Diego,\n\nQue versión de FWH usas ?[/quote:11g75fxx]','',0,'gA==','11g75fxx',1,0,'',1090,0,0),(42020,8712,6,456,0,'88.8.9.185',1195506661,1,0,1,1,1,1,'','','El foro es muy importante, eso no lo duda nadie, y es un muy buen lugar para compartir, consultar y ayudarnos.\n\nPero como comenta Carlos, una reunion donde vernos las caras, contar las experiencias propias, poder tomar unas cervezas juntos, pues que eso tambien estaria muy bien, crea buen rollo entre nosotros y nos une mas como grupo de usuarios de una misma herramienta.\n\nEl tema es planterarnoslo en serio y tirar palante, aunque al final terminemos solo media docena cenando juntos, pues incluso eso seguro que vale la pena.','',0,'gA==','2m0e6vti',1,0,'',456,0,0),(42021,8872,3,2,0,'87.218.146.139',1195506774,1,0,1,1,1,1,'','','Otto,\n\nThis is a working sample that shows the right way to do it:\n[code:2m40njow]\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, oFld\n   LOCAL oBrw1\n   LOCAL oBrw2\n   local oCursor\n\n\n   DEFINE CURSOR oCursor HAND\n\n   USE customer New\n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ;\n      FROM 5, 5 TO 40, 150\n\n   @ 0&#46;5, 10 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n      OF oDlg SIZE 160, 90\n\n        @ 1, 1 LISTBOX oBrw1 FIELDs  &#40;field-&gt;first&#41; ;\n            HEADERS &quot;Name&quot;  ;\n            FIELDSIZES 140                                           ;\n            SIZE       140, 60  ;\n  OF oFld&#58;aDialogs&#91; 1 &#93;\n\n\n        @ 1, 10 LISTBOX oBrw2 FIELDs  &#40;field-&gt;first&#41; ;\n            HEADERS &quot;Name&quot;  ;\n            FIELDSIZES 140                                           ;\n            SIZE       140, 60  ;\n  OF oFld&#58;aDialogs&#91; 2 &#93;\n\noBrw1&#58;oDragCursor  &#58;= oCursor\noBrw2&#58;oDragCursor  &#58;= oCursor\n\n\n   oFld&#58;bDropOver = &#123; | uDropInfo, nRow, nCol, nKeyFlags | ShowPos&#40; nRow, nCol, oFld &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction ShowPos&#40; nRow, nCol, oFld &#41;\n\n   local aPoint\n   \n   if nRow &gt; 32000\n      nRow = - &#40; 65535 - nRow &#41;\n   endif    \n\n   if nCol &gt; 32000\n      nCol = - &#40; 65535 - nCol &#41;\n   endif    \n   \n   aPoint = &#123; nRow, nCol &#125;\n   \n   aPoint = ClientToScreen&#40; GetFocus&#40;&#41;, aPoint &#41;\n   ScreenToClient&#40; oFld&#58;hWnd, aPoint &#41;\n   \n   MsgInfo&#40; &quot;Row&#58; &quot; + Str&#40; aPoint&#91; 1 &#93; &#41; + &quot;, Col&#58; &quot; + Str&#40; aPoint&#91; 2 &#93; &#41; &#41;\n   \nreturn nil   \n\n//----------------------------------------------------------------------------//\n[/code:2m40njow]','',0,'AIA=','2m40njow',1,0,'',2,0,0),(42022,8868,6,2,0,'87.218.146.139',1195507048,1,0,1,1,1,1,'','','Diego,\n\nSolo se me ocurre que estés usando una versión incorrecta de window.prg. Solo tienes que modificar el método EndPaint().\n\nSi sigue dándote errores, lo más aconsejable es que te actualices a la versión actual 7.11 que incluye todas esas mejoras y no tienes que andar recompilando, ni cambiando cosas, etc.','',0,'AIA=','32zslg4f',1,0,'',2,0,0),(42023,8861,6,316,0,'87.218.186.214',1195507389,1,0,1,1,1,0,'','','Armando,\n[quote=&quot;Armando&quot;:jex74xot]Amigos:\n\nGracias por las respuestas y sugerencias, tal vez sea posible modificar la clase TGET para meter esas carácteristicas, solo que de eso \"yo solo se que no se nada\", a ver si algun guru nos aporta algo para empezar a tirar.\n\nSaludos[/quote:jex74xot]\n\nPara añadir o cambiar el comportamiento de una clase te recomiendo que uses la herencia, porque modificar la TGet sería algo inmanejable. ¿QUe vas a hacer si sale una version nueva? Si lo haces por herencia, aun cuando cambie la clase tget tu clase seguirá manteniendo las correcciones que tu hiciste y recibirá las novedades por herencia. A la larga vas a ver que es todo más mantenible.\nEsto de la herencia es un patron de programación que se llama Variaciones Protegidas\n\n<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/Grasp#Variaciones_Protegidas\">http://es.wikipedia.org/wiki/Grasp#Vari ... Protegidas</a><!-- m -->\n\nEsto no es nuevo, es un modelo que usaba Visual Object en el IDE para editar los formularios. Luego tu codigo se implementaba en otra clase, sublcase del formularoi original.\n\nOtro efecto colateral de hacer modificaciones sobre el mismo código es que tu NO PUEDES COMPARTIR tu trabajo con los demás porque no puedes redistribuir el código de la clase TGET completo, es trabajo con copyright. \nEn cambio, de la otra forma tu puedes distribuir tu clase ya que solo contiene los aspectos reelaborados. Ayudas a proteger a FW sin perder la libertad de hacer con el código lo que quieras.\n\nAunque... yo a tu caso lo resuelvo de una manera mas sencilla:\n[code:jex74xot]\ncVar&#58;= Space&#40;8&#41; // para alojar un \'001-0001\'\n\n@ &#46;&#46;&#46; GET cVar &#46;&#46;&#46;&#46; VALID Ajusta&#40; @cVar &#41;\n\n&#46;&#46;&#46;\n\nFunction Ajusta&#40; cVar &#41;\n   Local c1, c2\nLocal nPos&#58;= AT&#40; \'-\', cVar &#41;\n   If nPos &gt; 0\n      cVar&#58;= StrZero&#40; Val&#40; Left&#40; cVar, nPos - 1 &#41; &#41;, 3 &#41; + \'-\' +StrZero&#40; Val&#40; SubStr&#40; cVar, nPos +1 &#41; &#41;, 4 &#41; \n      Return &#46;T&#46;\n   Else\n     // ver que hace en caso de que no ponga el guion\n   EndIf\nREturn &#46;F&#46;\n\n[/code:jex74xot]\n  \nUn saludo,\n\nCarlos.','',0,'gIA=','jex74xot',1,0,'',316,0,0),(42024,8880,6,316,0,'87.218.186.214',1195507692,1,0,1,1,1,0,'','','Ya mismo hago un cut &amp; paste y guardo en la libreria de recortes. No lo necesito YA, pero seguro que en breve me va a hacer falta.\n\n¡Gracias por la perla!\n\nCarlos Mora','',0,'gIA=','d27ypfn9',1,0,'',316,0,0),(42025,8883,7,1226,0,'200.88.5.101',1195512371,1,0,1,1,1,0,'','Como puedo relacionar mi rc de Resource Builder .','Buenas..\nEste es un gran foro.\n\nActualmente tengo Resource Builder y realizo los diseños por ahi, pero a la hora de compilar y colocar la programacion estoy perdido.\n\nLes Agradesco su coolaboracion.\n\nBien, Gracias.','',0,'gIA=','hw7tbv1x',1,0,'',1226,0,0),(42026,8880,6,92,0,'217.125.171.94',1195513468,1,0,1,1,1,0,'','','Gracias a ambos,\n\nde momento haré lo mismo que dice Carlos.\n\nLo guardo y a ver cuando lo implanto.\n\nGracias de nuevo.\nCarlos G.','',0,'gIA=','3np53fwk',1,0,'',92,0,0),(42027,8884,2,890,0,'190.9.66.224',1195516311,1,0,1,1,1,0,'','Presentar un texto especifico','Hola Antonio\n\nMis buenos deseos para ti y para todos en el foro\nMi cuestión es la siguiente, en un dialogo presento un texto con memoread y funciona muy bien, ¿Como puedo presentar el texto en el sitio o titulo especifico? Si el texto tiene por decir un ejemplo diez títulos se requiere presentar el texto eligiendo cualquier titulo. ¿ Como lo puedo hacer?\nComo siempre Antonio expreso mis agradecimientos por tus enseñanzas \n\nCordialmente\n\nJairo Barbosa','',0,'gIA=','1m29qjmi',1,0,'',890,0,0),(42028,8884,2,2,0,'87.218.146.139',1195516772,1,0,1,1,1,1,'','','Jairo,\n\nPuedes buscar el texto que desees con la función At() y luego posicionarte con el método SetPos(). Ejemplo:\n\nnAt = At( \"Capitulo 1\", oMGet:GetText() )\n\noMGet:SetPos( nAt )','',0,'gIA=','512wppn2',1,0,'',2,0,0),(42029,8883,7,2,0,'87.218.146.139',1195516911,1,0,1,1,1,1,'','','Salvas los recursos en formato RC ó RES ?\n\nSegún sea el caso, revisa samples/buildh.bat para que veas como se construye el EXE llamando a ilink32.exe, y en su caso a brc32.exe para generar el RES a partir del RC','',0,'gIA=','24pn6aet',1,0,'',2,0,0),(42030,8878,3,210,0,'81.24.159.58',1195517572,1,0,1,1,1,1,'','POPUP','Mr. Linares, I will call not the HTML-Topic! I will call the topics in *.txt embedded in *.CHM. This is a code from c++. Can I do the structure from Fivewin?\n\nThanks for your help!\nGünther\n\nvoid CTechniques::ShowContextHelp(CWnd* pWnd, POINT pt, int iCtrlID)\n{\n	HH_POPUP popup ;\n	POINT ptPoint ;\n	RECT rRect ;\n	\n	// Set the popup\'s margins\n	rRect.top = -1 ;\n	rRect.left = -1 ;\n	rRect.bottom = -1 ;\n	rRect.right = -1 ;\n\n	GetCursorPos(&amp;ptPoint);\n\n	memset(&amp;popup, 0, sizeof(HH_POPUP));\n    popup.cbStruct = sizeof(HH_POPUP);\n    popup.hinst = 0;\n    popup.idString = iCtrlID;      \n    popup.pszText = \"\";       \n    popup.pt = pt;\n    popup.clrForeground = 0; \n    popup.clrBackground = RGB(255, 255, 208); \n    popup.rcMargins = rRect;     \n    popup.pszFont = \"Arial, 8, ascii, , , \";\n    \n	HtmlHelp(pWnd-&gt;GetSafeHwnd(), \"hh4mfc.chm::/popups.txt\", \n		HH_DISPLAY_TEXT_POPUP, (DWORD)&amp;popup);\n}','',0,'gIA=','1u9kb50f',1,0,'',210,0,0),(42031,8881,7,1135,0,'189.136.45.220',1195517674,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2wdczdgo]Arturo,\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/70865992/PPC_2005.ZIP.html\">http://rapidshare.com/files/70865992/PPC_2005.ZIP.html</a><!-- m -->[/quote:2wdczdgo]\n\nGracias Antonio. Pero al parecer no me explique bien. \n\nMe refiero a la clausula SHARED DEL USE en FWPPC:\nUSE ( CurDir() + \"\\arch.dbf\" ) SHARED NEW \n\nTrabaja correctamente en mi dispositivo, pero no asi en el emulador de microsoft para PocketPC, el cual es el que se recomienda en el proceso de instalacion de FWPPC, aun cuando opera en MODO WIN MOBILE 2005.\n\nLa pregunta es: Alguien conoce alguna version de emulador de POCKET-PC que soporte abrir DBF\'s en modo SHARED?','',0,'gA==','2wdczdgo',1,0,'',1135,0,0),(42032,8881,7,2,0,'87.218.146.139',1195518111,1,0,1,1,1,1,'','','Arturo,\n\nNo posiciones las DBFs en la tarjeta de memoria del emulador sino en un directorio del Pocket PC y SHARED debe funcionar bien','',0,'gA==','1nwnxe2a',1,0,'',2,0,0),(42033,8843,3,49,0,'62.13.172.67',1195518180,1,0,1,1,1,1,'','','I made first ttabs 2007 style ( made with another friend) how you can see here \n\n[url=http&#58;//img222&#46;imageshack&#46;us/my&#46;php?image=ttab2007ur7&#46;png:17jyd2a6][img:17jyd2a6]http&#58;//img222&#46;imageshack&#46;us/img222/9590/ttab2007ur7&#46;th&#46;png[/img:17jyd2a6][/url:17jyd2a6]\n\nthen I try to create btnbmp style 2007 modifying paint method :\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d4612787/testbtnb.zip.html\">http://hyperupload.com/download/02d4612 ... b.zip.html</a><!-- m -->\n\n\n\n\n I wanted it because on tabs ( style 2007) there are two button btnbmp , but these button are smaller  and I now creating another solution.\n\nFor the biometrics lib I saw the programmacao of this congress : the lib is a freeware , I hope you and your friends give to antonio and fivewin community this possibility.','',0,'GA==','17jyd2a6',1,1195549494,'',49,1,0),(42034,8878,3,2,0,'87.218.146.139',1195518494,1,0,1,1,1,1,'','','Better implement the function in C code, from inside your PRG and use it this way:  ShowContextHelp( oWnd:hWnd, \"hh4mfc.chm::/popups.txt\" )\n[code:gjp7qtsk]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; SHOWCONTEXTHELP &#41;\n&#123;\n   HH_POPUP popup ; \n   POINT ptPoint ; \n   RECT rRect ; \n\n   // Set the popup\'s margins \n   rRect&#46;top = -1 ; \n   rRect&#46;left = -1 ; \n   rRect&#46;bottom = -1 ; \n   rRect&#46;right = -1 ; \n\n   GetCursorPos&#40;&amp;ptPoint&#41;; \n\n   memset&#40;&amp;popup, 0, sizeof&#40;HH_POPUP&#41;&#41;; \n   popup&#46;cbStruct = sizeof&#40;HH_POPUP&#41;; \n   popup&#46;hinst = 0; \n   popup&#46;idString = iCtrlID; \n   popup&#46;pszText = &quot;&quot;; \n   popup&#46;pt = pt; \n   popup&#46;clrForeground = 0; \n   popup&#46;clrBackground = RGB&#40;255, 255, 208&#41;; \n   popup&#46;rcMargins = rRect; \n   popup&#46;pszFont = &quot;Arial, 8, ascii, , , &quot;; \n\n   HtmlHelp&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, \n                  HH_DISPLAY_TEXT_POPUP, &#40;DWORD&#41; &amp;popup &#41;; \n&#125;\n\n#pragma EDNDDUMP\n[/code:gjp7qtsk]','',0,'AIA=','gjp7qtsk',1,0,'',2,0,0),(42035,8873,3,49,0,'62.13.172.67',1195519899,1,0,1,1,1,1,'','','Antonio,\nwhen I run it run ok but when i close it xp professional make an error','',0,'AIA=','3s00zlro',1,0,'',49,0,0),(42036,8712,6,940,0,'189.175.181.88',1195521111,1,0,1,1,1,1,'','','Ojala sea en mexico, \n\nasi los mortales podamos asistir,\n\nun saludos','',0,'AIA=','unjzfoc7',1,0,'',940,0,0),(42037,8859,3,1011,0,'203.84.187.62',1195521602,1,0,1,1,1,0,'','','Antonio,\n\nWhen run on other Oses (ie, WindowsXP) this display does not happen.\n\nIt only happens on a Windows Server 2003 Small Business Server with Service Pack 2.\n\nThat\'s why it is \'ODD\'.\n\nToyet','',0,'AIA=','5b77bvti',1,0,'',1011,0,0),(42038,3,3,1011,0,'203.84.187.62',1195521747,1,0,1,1,1,0,'','','Please count me in.\n\nToyet','',0,'AIA=','vy2zszib',1,0,'',1011,0,0),(42039,8843,3,400,0,'201.68.33.102',1195522893,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:34uc69ol]I made first ttabs 2007 style  how you can see here \n\n[url=http&#58;//img222&#46;imageshack&#46;us/my&#46;php?image=ttab2007ur7&#46;png:34uc69ol][img:34uc69ol]http&#58;//img222&#46;imageshack&#46;us/img222/9590/ttab2007ur7&#46;th&#46;png[/img:34uc69ol][/url:34uc69ol]\n\nthen I try to create btnbmp style 2007 modifying paint method :\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/02d4612787/testbtnb.zip.html\">http://hyperupload.com/download/02d4612 ... b.zip.html</a><!-- m -->\n\n\n\n\n I wanted it because on tabs ( style 2007) there are two button btnbmp , but these button are smaller  and I now creating another solution.\n[/quote:34uc69ol]\nSilvio, Perfect! He/she was great!  \nI use TTabs a lot with VTaskBar, but this his/her TTbas this great one same, congratulations.  \n  \nI lowered the file..but..this emptiness...heheheh  \nIf it can order me her, I will be very thankful.\n\n\nBest Regards,','',0,'mA==','34uc69ol',1,0,'',400,0,0),(42040,8861,6,53,0,'189.139.26.136',1195523067,1,0,1,1,1,1,'','','Adriano:\n\nSip, efectivamente son cuentas contables.\n\nCarlos, muchas gracias por los comentarios y el ejemplo.\n\nVoy a probar ambos ejemplos y veré cual me ajusta mejor, ya les contare.\n\nSaluds','',0,'mA==','ivv9q5ky',1,0,'',53,0,0),(42041,8885,3,239,0,'121.8.41.4',1195538468,1,0,1,1,1,0,'','Who could replace tsbutton ?','Hi,\n  What class can do the same result as tsbutton  text +bmp img  ,enable or disable 2 status?\n  [img:2xo0j2dw]http&#58;//www&#46;xtech&#46;com&#46;cn/down/sbutton&#46;jpg[/img:2xo0j2dw]\n\nRegards!\n\nShuming Wang','',0,'CA==','2xo0j2dw',1,0,'',239,0,0),(42042,8879,3,1117,0,'203.144.143.4',1195542665,1,0,1,1,1,0,'','','Thank So Much...\n\nComplie is Ok. after I add class to source code.\nBut when I ACTION BuildServer() have some error ( No exported variable: ) in line No. 25,26 and 28\n\nSource Code Line 25   oFtpServer:cLogFile = \"ftpserv.log\"\nSource Code Line 26   oFtpServer:lDebug   = .t.\n\nSource Code Line 28   oFTPServer:Activate()\n\n\n\nApplication\n===========\n   Path and name: C:\\ProjectH\\Test\\ftpserv.exe (32 bits)\n   Size: 1,102,336 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 11/20/07, 14:04:22\n   Error description: Error BASE/1005  No exported variable: CLOGFILE\n   Args:\n     [   1] = U   \n     [   2] = C   ftpserv.log\n\nStack Calls\n===========\n   Called from:  =&gt; _CLOGFILE(0)\n   Called from: ftpserv.prg =&gt; BUILDSERVER(25)\n   Called from: ftpserv.prg =&gt; (b)MAIN(15)\n   Called from:  =&gt; TBTNBMP:CLICK(0)\n   Called from:  =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: ftpserv.prg =&gt; MAIN(17)','',0,'','3px8y6la',1,0,'',1117,0,0),(42043,3,3,2,0,'87.218.146.139',1195543919,1,0,1,1,1,1,'','','Its a standard phpBB behavior','',0,'','5rm1n5px',1,0,'',2,0,0),(42044,8873,3,2,0,'87.218.146.139',1195543963,1,0,1,1,1,1,'','','Silvio,\n\nWhat error ?\n\nProbably the error get fixed with this code:\n\nVALID ( PostQuitMessage( 0 ), .T. )','',0,'','3e201vs6',1,0,'',2,0,0),(42045,8879,3,2,0,'87.218.146.139',1195544165,1,0,1,1,1,1,'','','Whats the size of your tftpserv.prg file ?','',0,'','2h6fprzw',1,0,'',2,0,0),(42046,8859,3,2,0,'87.218.146.139',1195544237,1,0,1,1,1,1,'','','Please increase the folder size so the dialog fits into it','',0,'','32ozu0bk',1,0,'',2,0,0),(42047,8885,3,2,0,'87.218.146.139',1195544320,1,0,1,1,1,1,'','','Shuming,\n\nYou can use FWH Class TBtnBmp or Class TButtonBmp','',0,'','3w1fn5re',1,0,'',2,0,0),(42048,8878,3,210,0,'81.24.159.58',1195545132,1,0,1,1,1,1,'','','Oh, thanks! Thats the way! I will send for all FIVE-Winners the function to use.\n\nPlease look also to my topic: \n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8871&amp;sid=026b7f822c37d444869c25c735b52e0d\">http://fivetechsoft.com/forums/viewtopi ... c735b52e0d</a><!-- m -->\n\nFor professional help-system this HTML-Help is required!\n\nGreetings from Austria.\nGünther','',0,'','3gzot7r6',1,0,'',210,0,0),(42049,8873,3,130,0,'141.51.32.24',1195548072,1,0,1,1,1,1,'','','Antonio,\n\nthis is the error:\n\n[code:2bkgdbip]Application\n===========\n   Path and name&#58; D&#58;\\FWH\\samples\\testspl7&#46;exe &#40;32 bits&#41;\n   Size&#58; 1,295,360 bytes\n   Time from start&#58; 0 hours 0 mins 36 secs \n   Error occurred at&#58; 11/20/07, 09&#58;36&#58;36\n   Error description&#58; Error BASE/1066  Argument error&#58; conditional\n   Args&#58;\n     &#91;   1&#93; = U   \n\nStack Calls\n===========\n   Called from&#58; MDIFRAME&#46;PRG =&gt; TMDIFRAME&#58;END&#40;0&#41;\n   Called from&#58; MDIFRAME&#46;PRG =&gt; &#40;b&#41;TMDIFRAME&#58;NEW&#40;0&#41;\n   Called from&#58; MENU&#46;PRG =&gt; TMENU&#58;COMMAND&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;COMMAND&#40;0&#41;\n   Called from&#58; MDIFRAME&#46;PRG =&gt; TMDIFRAME&#58;COMMAND&#40;0&#41;\n   Called from&#58;  =&gt; TMDIFRAME&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58; testspl7&#46;prg =&gt; NOGPF&#40;0&#41;\n   Called from&#58; testspl7&#46;prg =&gt; WINRUN&#40;102&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; testspl7&#46;prg =&gt; MAIN&#40;61&#41;\n\n[/code:2bkgdbip]','',0,'AIA=','2bkgdbip',1,0,'',130,0,0),(42050,8873,3,130,0,'141.51.32.24',1195548368,1,0,1,1,1,1,'','','Antonio,\n\n[quote=&quot;Antonio Linares&quot;:11boxbid]Silvio,\n\nWhat error ?\n\nProbably the error get fixed with this code:\n\nVALID ( PostQuitMessage( 0 ), .T. )[/quote:11boxbid]\n\ndoes not work, same error.\n\nAnother problem, if you maximize the mdi window, you can´t resize it nor select other open mdi windows','',0,'gA==','11boxbid',1,0,'',130,0,0),(42051,8859,3,130,0,'141.51.32.24',1195548828,1,0,1,1,1,1,'','','Toyet,\n\nthe same behavior you can see with XP 64bit, your app uses a bigger font with these Os than with XP 32bit and others.\n\nTry to define a font for your dialog and don´t let the app automatically choose one.','',0,'gA==','1lbil30o',1,0,'',130,0,0),(42052,8106,18,1146,0,'87.223.173.186',1195549107,1,0,1,1,1,0,'','','Antonio:\n\n¿Lo podrás incluir en el build de diciembre?. Muchas gracias. <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\nUn saludo,','',0,'gA==','3qwpja0a',1,0,'',1146,0,0),(42053,8886,3,49,0,'213.82.134.66',1195549160,1,0,1,1,1,1,'','Creating a bmp from a draw...','Can I create a bmp or button from a arrow I created drawing it\n\n\n\n[code:15idlztx]\n\n#include &quot;FiveWin&#46;ch&quot;\n\n\n\nFunction Main&#40;&#41;\n\nLocal obtn,oWnd\n Local oGrayBrush &#58;= CreateSolidBrush&#40; GetSysColor&#40;15&#41; &#41;\n local hDC &#58;= GetDC&#40;&#41;\n\nDEFINE WINDOW oWnd TITLE &quot;Testing button&quot; ;\n      FROM 3, 3 TO 20, 80 ;\n      COLOR CLR_BLACK, GetSysColor&#40; COLOR_BTNFACE &#41;\n\n     obtn&#58;=Arrow_SX&#40;hDC,11,   oWnd&#58;nWidth - 25 + 2     , oGrayBrush&#41;\n\n\n\n\n   ACTIVATE WINDOW oWnd\nReturn nil\n\n\n\n\n\nstatic Function DrawPolygon&#40; hDC, aPoints, nColor &#41;\nlocal n\nlocal nLen &#58;= len&#40; aPoints &#41;\nlocal hPen, hOldPen\n\nif nColor != nil\n  hPen &#58;= CreatePen&#40; PS_SOLID,1,nColor&#41;\n  hOldPen &#58;= SelectObject&#40; hDC, hPen &#41;\nendif\n\nMoveto&#40; hDC, aPoints&#91;1,1&#93;, aPoints&#91;1,2&#93;&#41;\nfor n &#58;= 2 to nLen\n   Lineto&#40; hDC, aPoints&#91;n,1&#93;, aPoints&#91;n,2&#93;&#41; \nnext\nLineto&#40; hDC, aPoints&#91;1,1&#93;, aPoints&#91;1,2&#93;&#41;\n\nif nColor != nil\n  SelectObject&#40;hDC,hOldPen&#41;\n  DeleteObject&#40; hPen &#41;\nendif\n\nreturn 0\n\n\nFunction Arrow_SX &#40; hDC,nTop,nLeft, nColor &#41;\n\n     DrawPolygon&#40; hDC, &#123; &#123;nLeft+4,nTop   &#125; ,;\n                  &#123;nLeft  ,nTop+4 &#125; ,;\n                  &#123;nLeft+4,nTop+8 &#125; ,;\n                  &#123;nLeft+4,nTop   &#125; &#125;, nColor &#41;\n\nreturn 0[/code:15idlztx]','',0,'AIA=','15idlztx',1,0,'',49,0,0),(42054,8879,3,1117,0,'203.144.143.4',1195549197,1,0,1,1,1,0,'','','\\fwh\\source\\classes\\tftpserv.prg size 12,288 bytes 299 Lines 11/11/1999\ncomplie with bcc55 and fhw','',0,'AIA=','3ioijd8w',1,0,'',1117,0,0),(42055,5446,3,49,0,'213.82.134.66',1195550375,1,0,1,1,1,1,'','','Antonio,\nthis is the code \n#include \"FiveWin.ch\" \n\n\n\nFunction Main() \n\nLocal obtn,oWnd \n Local oGrayBrush := CreateSolidBrush( GetSysColor(15) ) \n local hDC := GetDC() \n\nDEFINE WINDOW oWnd TITLE \"Testing button\" ; \n      FROM 3, 3 TO 20, 80 ; \n      COLOR CLR_BLACK, GetSysColor( COLOR_BTNFACE ) \n\n     obtn:=Arrow_SX(hDC,11,   oWnd:nWidth - 25 + 2     , oGrayBrush) \n\n\n\n\n   ACTIVATE WINDOW oWnd \nReturn nil \n\n\n\n\n\nstatic Function DrawPolygon( hDC, aPoints, nColor ) \nlocal n \nlocal nLen := len( aPoints ) \nlocal hPen, hOldPen \n\nif nColor != nil \n  hPen := CreatePen( PS_SOLID,1,nColor) \n  hOldPen := SelectObject( hDC, hPen ) \nendif \n\nMoveto( hDC, aPoints[1,1], aPoints[1,2]) \nfor n := 2 to nLen \n   Lineto( hDC, aPoints[n,1], aPoints[n,2]) \nnext \nLineto( hDC, aPoints[1,1], aPoints[1,2]) \n\nif nColor != nil \n  SelectObject(hDC,hOldPen) \n  DeleteObject( hPen ) \nendif \n\nreturn 0 \n\n\nFunction Arrow_SX ( hDC,nTop,nLeft, nColor ) \n\n     DrawPolygon( hDC, { {nLeft+4,nTop   } ,; \n                  {nLeft  ,nTop+4 } ,; \n                  {nLeft+4,nTop+8 } ,; \n                  {nLeft+4,nTop   } }, nColor ) \n\nreturn 0\n\n\nHow I can move it ?','',0,'','3ekgc8pi',1,0,'',49,0,0),(42056,8873,3,2,0,'87.218.146.139',1195550667,1,0,1,1,1,1,'','','This version fixes the exit error on XP (on Vista is ok):\n[code:3vxn14dd]\n// FWH Class TOutLook2003\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\nstatic lExit &#58;= &#46;F&#46;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue &#58;= 1\n   local oFont\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH new Class TOutLook2003&quot; MDI // ;\n      // MENU BuildMenu&#40;&#41;\n\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Mail&quot;, &quot;Calendar&quot;, &quot;Contacts&quot;, &quot;&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot;\n      \n   oWnd&#58;oLeft = nil // Because the splitter is going to control the resize   \n      \n   @ 1, 2 BUTTON &quot;New&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION BuildDlg&#40;&#41;\n\n   @ 3, 2 BUTTON &quot;Edit&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Edit&quot; &#41;   \n\n   @ 5, 2 BUTTON &quot;Search&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Search&quot; &#41;   \n\n   @ 1, 1 COMBOBOX cCombo ITEMS &#123; &quot;January&quot;, &quot;February&quot;, &quot;March&quot;, &quot;April&quot;, &quot;May&quot; &#125; ;\n      OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 170, 100 \n   \n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -10\n   \n   @ 12, 10 SAY Date&#40;&#41; OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 80, 20 FONT oFont\n   \n   @ 3, 1 RADIO oRad VAR nValue OF oOutLook2003&#58;aDialogs&#91; 2 &#93; ;\n      ITEMS &quot;&amp;Day&quot;, &quot;&amp;Week&quot;, &quot;&amp;Month&quot; SIZE 100, 20\n      \n   oRad&#58;SetFont&#40; oFont &#41;   \n\n   #ifndef __CLIPPER__\n      DEFINE STATUSBAR oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #else   \n      DEFINE MESSAGE oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #endif   \n\n   SetParent&#40; oOutLook2003&#58;hWnd, oWnd&#58;hWnd &#41;\n   \n   oWnd&#58;oClient = nil\n   \n   @ 0, 191 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oOutLook2003 ; \n      HINDS CONTROLS oWnd&#58;oWndClient ;\n      SIZE 4, oWnd&#58;nHeight - 70 PIXEL ;\n      OF oWnd\n\n   SetParent&#40; oSplit&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit&#58;Adjust&#40;&#41; ;\n      VALID lExit &#58;= &#46;T&#46;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   MENU oMenu\n      MENUITEM &quot;&amp;One&quot;\n      MENUITEM &quot;&amp;Two&quot;\n      MENUITEM &quot;&amp;Three&quot;\n   ENDMENU\n   \nreturn oMenu   \n\n//----------------------------------------------------------------------------//\n\nfunction BuildDlg&#40;&#41;\n\n   local oDlg, oOutL2003\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n   \n   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;\n      PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot; ;\n      DIALOGS &quot;Page1&quot;, &quot;Page2&quot;, &quot;Page3&quot;\n\n   REDEFINE BUTTON ID 110 OF oOutL2003&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;Click&quot; &#41;\n      \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil      \n\n//----------------------------------------------------------------------------//\n\nfunction WinRun&#40;&#41;\n\n   while NoGPF&#40;&#41;\n      if lExit\n         PostQuitMessage&#40; 0 &#41;\n      endif   \n   end\n   \nreturn nil         \n                \n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nBOOL SysRefresh&#40; void &#41;;\n\nHB_FUNC&#40; NOGPF &#41;\n&#123;\n   __try\n   &#123;\n      hb_retl&#40; SysRefresh&#40;&#41; &#41;;\n   &#125;\n   __except &#40; &#40; hb_retl&#40; TRUE &#41;, TRUE &#41; &#41;\n   &#123;&#125; \n&#125;\n\n#pragma ENDDUMP	\n[/code:3vxn14dd]','',0,'AIA=','3vxn14dd',1,0,'',2,0,0),(42057,8873,3,2,0,'87.218.146.139',1195550822,1,0,1,1,1,1,'','','Stefan,\n\n&gt; if you maximize the mdi window, you can´t resize it nor select other open mdi windows\n\nYes, we have noticed it. \n\nThe problem is that we are not using the FWH standard windows procedure as the MDI GPFs internally (even if we use a standard Windows procedure and not the FWH one).\n\nIts a tricky code tu push MDI environment to its limits, but lets see if we can solve those problems','',0,'AIA=','1fygprtj',1,0,'',2,0,0),(42058,8859,3,2,0,'87.218.146.139',1195550954,1,0,1,1,1,1,'','','Stefan,\n\n&gt; Try to define a font for your dialog and don´t let the app automatically choose one.\n\nYes, that may be a valid solution too. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1h4374jw',1,0,'',2,0,0),(42059,8873,3,2,0,'87.218.146.139',1195551091,1,0,1,1,1,1,'','','Stefan,\n\n&gt; if you maximize the mdi window, you can´t resize it nor select other open mdi windows\n\nAs a temporary workaround, the \"cascade\" MDI menu option can be selected to restore the maximized mdichild.','',0,'AIA=','3g20upw6',1,0,'',2,0,0),(42060,8873,3,2,0,'87.218.146.139',1195551535,1,0,1,1,1,1,'','','Also we can \"restore\" the mdichild:\n\n   @ 3, 2 BUTTON \"Edit\" OF oOutLook2003:aDialogs[ 1 ] SIZE 80, 22 ACTION oWnd:oWndClient:aWnd[ 1 ]:Restore()\n\nAnyhow we need to find why the WM_SYSCOMMANDs are not properly being processed','',0,'','3rrqohg8',1,0,'',2,0,0),(42061,8106,18,2,0,'87.218.146.139',1195551621,1,0,1,1,1,1,'','','Moises,\n\nDe momento la solución es que modifiques el código fuente de MsgGet() y que pongas el texto en español','',0,'','2y9ki9p1',1,0,'',2,0,0),(42062,8879,3,2,0,'87.218.146.139',1195551773,1,0,1,1,1,1,'','','Please check if the Class TFTPServer has these DATAs:\n\n   DATA   lDebug\n   DATA   cLogFile','',0,'','aklekr77',1,0,'',2,0,0),(42063,8886,3,2,0,'87.218.146.139',1195551941,1,0,1,1,1,1,'','','Silvio,\n\nYou have to create manually a TBtnBmp or a TButton. \n\nThere is no way to create them automatically from a drawing','',0,'','w5ayf67j',1,0,'',2,0,0),(42064,5446,3,2,0,'87.218.146.139',1195552104,1,0,1,1,1,1,'','','Silvio,\n\nYou have to find the area where the mouse is clicked and then select a mouse cursor based on the underlying drawing','',0,'','1pmsn6ec',1,0,'',2,0,0),(42065,8879,3,1117,0,'203.144.143.4',1195552195,1,0,1,1,1,0,'','','Class Source Code Beginning with\n\n// FiveWin InterNet FTP Server\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nCLASS TFtpServer\n\n   DATA   oSocket                       // main listening socket object\n\n   DATA   aSockets INIT {}              // clients attending sockets objects\n\n   DATA   cAddress\n   DATA   cDefPath                      // default FTP directory\n\n   DATA   lDebug\n   DATA   cLogFile\n\n   METHOD New( nPort ) CONSTRUCTOR\n\n   METHOD Activate() INLINE ::oSocket:Listen()\n\n   METHOD End() INLINE ::oSocket:End()\n\n   METHOD OnAccept()\n   METHOD OnRead()\n\n   METHOD Sockets() INLINE MsgInfo( Len( ::oSocket:aSockets ) )\n\n   METHOD Dir( cMask )\n\nENDCLASS','',0,'','1la4wlcn',1,0,'',1117,0,0),(42066,8886,3,49,0,'213.82.134.66',1195554838,1,0,1,1,1,1,'','','But i remeber something..\nsomeone from a draw created a compatiblebmp and then made an action on it','',0,'','1b82cklu',1,0,'',49,0,0),(42067,8887,3,239,0,'121.8.41.4',1195555628,1,0,1,1,1,0,'','harbour 1.1 rc  and btnget','Hi,\n  Anyone could use btnget with harbour 1.1 rc ?\n  It\' shows a run time error :\n\nError occurred at: 2007.11.20, 18:40:44\n   Error description: Error BASE/1081  Argument error: +\n   Args:\n     [   1] = U   \n     [   2] = N   1\n\nStack Calls\n===========\n   Called from:  =&gt; TBTNGET(0)\n\n  makfile.bc:\n\n   INCLUDE_DIR = \\borland\\bcc55\\include;\\harbour\\include;d:\\fw711\\include;.\\include\n\nBIN_DIR = \\harbour\\bin\nOBJ_DIR = \\contrib\\btnget\\obj\nLIB_DIR = \\contrib\\btnget\\lib\n\n$(LIB_DIR)\\btnget.lib :\\\n$(OBJ_DIR)\\btnget.obj  \\\n$(OBJ_DIR)\\btndown.obj  \\\n$(OBJ_DIR)\\fwcal.obj  \\\n$(OBJ_DIR)\\zoomlbx.obj  \\\n$(OBJ_DIR)\\getbtn.obj  \\\n$(OBJ_DIR)\\fwbmp.obj  \n\n$(OBJ_DIR)\\btnget.c      : source\\btnget.prg\n$(OBJ_DIR)\\btnget.obj    : $(OBJ_DIR)\\btnget.c\n\n$(OBJ_DIR)\\btndown.c      : source\\btndown.prg\n$(OBJ_DIR)\\btndown.obj    : $(OBJ_DIR)\\btndown.c\n\n$(OBJ_DIR)\\fwcal.c      : source\\fwcal.prg\n$(OBJ_DIR)\\fwcal.obj    : $(OBJ_DIR)\\fwcal.c\n\n$(OBJ_DIR)\\zoomlbx.c      : source\\zoomlbx.prg\n$(OBJ_DIR)\\zoomlbx.obj    : $(OBJ_DIR)\\zoomlbx.c\n\n$(OBJ_DIR)\\getbtn.obj : source\\getbtn.c\n$(OBJ_DIR)\\fwbmp.obj : source\\fwbmp.c\n\n.c.obj:\n \\borland\\bcc55\\bin\\bcc32 $(CLIBFLAGS) -c -O2 -I$(INCLUDE_DIR) -DHB_OS_WIN_32_USED -o$@ $&lt;\n  \\borland\\bcc55\\bin\\tlib $(LIB_DIR)\\btnget.lib -+$@,,\n\n.prg.c:\n  $(BIN_DIR)\\harbour.exe $&lt; -q0  -es2 -gc0 -n -i$(INCLUDE_DIR) -o$@\n\nRegards !\nShuming Wang','',0,'','2qlofvwi',1,0,'',239,0,0),(42068,8888,6,1059,0,'190.137.127.144',1195555723,1,0,1,1,1,0,'','Trichedit - filas y columnas','Buen día,\n\n¿Hay algun modo de conocer la fila y la columna en la que se encuentra posicionado el cursor?\n\nYa probé con GetRow y GetCol pero me devuelve valores erróneos.\n\nGracias.\n\nRolando\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1n6i2alj',1,0,'',1059,0,0),(42069,8106,18,1146,0,'87.223.173.186',1195558060,1,0,1,1,1,0,'','','Antonio,\n\nYa claro, pero me parece una solución chapucera, ¿no crees?. En fin, creo que es una cosa que debe solucionarse, no entiendo el comportamiento distinto de esta función frente a msgalert, msgabout,etc.\n\nOtra cosilla, ¿cómo va el tema del error de impresión que te comenté?. Eso es más urgente y priotirario.\n\nUn saludo','',0,'','2rtsbdta',1,0,'',1146,0,0),(42070,8889,3,49,0,'213.82.134.66',1195559299,1,0,1,1,1,1,'','error with Metafile','why  it  let me  show this message \n\n\"Could not find the enchaned metafile, please check your TEMP enviroment variable\"\n\nand the it make a gpf ???\n\n\n\n\n[code:3hg8yb72]\n\nfunction GenChild&#40;&#41;\n\n   local oWndChild, oBar, oBmp\n\n   DEFINE WINDOW oWndChild OF oWnd MDICHILD COLOR &quot;N/W&quot;   VSCROLL HSCROLL\n\n   DEFINE BUTTONBAR oBar 3D SIZE 25, 25 OF oWndChild\n\n   DEFINE BUTTON OF oBar ACTION PutLabel&#40; oBmp &#41; TOOLTIP &quot;Label&quot;\n   DEFINE BUTTON OF oBar ACTION PutBitmap&#40; oBmp &#41; TOOLTIP &quot;Bitmap&quot;\n\n   DEFINE BUTTON OF oBar ACTION PreView&#40; oBmp &#41; TOOLTIP &quot;Preview&quot;\n\n\n\n   oBmp&#58;=TEnhMetaFile&#40;&#41;&#58;New&#40; 20, 40, 535, 784, &quot;TEST&quot;, oWndChild,;\n               CLR_WHITE, CLR_BLACK &#41;\n\n\n   ACTIVATE WINDOW oWndChild\n\n   \n\nreturn nil\n[/code:3hg8yb72]','',0,'AIA=','3hg8yb72',1,0,'',49,0,0),(42071,8427,6,106,0,'85.34.123.173',1195559338,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2qbiyxuw]Pedro,\n\nTenemos una nueva versión que debe solucionar completamente esos efectos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2qbiyxuw]\n\n\nAntonio, \n\n\nacabo de probar las nuevas librerías, pero sigue dando el mismo problema con la tmsgbar. Además que la misma funcion de calcula demora 8 veces más. Por ahora (para estas operaciones) la barra de mensajes no es usable para mí.\nSin la apariencia 2007 funciona muy rapido.\n\nSaludos\n\n\n\n\nP.D. Estaba compilando con las librerias nuevas pero con la msgbar vieja, efectivamente la version nueva no da problemas. Es un poco mas lenta que sin el degradado (3 veces mas lenta, aumentó muchisimo la velocidad!!), pero no tiene comportamientos extraños.\n\nGracias.','',0,'gA==','2qbiyxuw',1,0,'',106,0,0),(42072,8427,6,2,0,'87.218.146.139',1195560153,1,0,1,1,1,1,'','','&gt; (3 veces mas lenta, aumentó muchisimo la velocidad!!), pero no tiene comportamientos extraños.\n\nBien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','25c4kcm1',1,0,'',2,0,0),(42073,8888,6,2,0,'87.218.146.139',1195560301,1,0,1,1,1,1,'','','Los métodos GetRow() y GetCol() son los que hay que usar.\n\nQue valores erróneos te devuelven ?','',0,'gA==','3bt3bxdu',1,0,'',2,0,0),(42074,8879,3,2,0,'87.218.146.139',1195560592,1,0,1,1,1,1,'','','The error you get is:\nError description: Error BASE/1005 No exported variable: CLOGFILE\n\nbut you see that there is a DATA cLogFile','',0,'gA==','3pv559v3',1,0,'',2,0,0),(42075,8879,3,2,0,'87.218.146.139',1195560662,1,0,1,1,1,1,'','','Ok, I found the problem <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIn Method New() please replace:\n\nreturn nil\n\nwith\n\nreturn Self\n\nAnyhow, please keep in mind that this Class TFTPServer is a work in progress as we need full multithreading support in Harbour/xHarbour in order to get it properly working','',0,'gA==','36th8f64',1,0,'',2,0,0),(42076,8106,18,2,0,'87.218.146.139',1195561346,1,0,1,1,1,1,'','','Moisés,\n\n&gt;\nYa claro, pero me parece una solución chapucera, ¿no crees?. En fin, creo que es una cosa que debe solucionarse, no entiendo el comportamiento distinto de esta función frente a msgalert, msgabout,etc. \n&gt;\n\nMsgAlert(), etc. son funciones propias de Windows, y Windows usa el lenguaje instalado en el ordenador. MsgGet() no es de Windows, es propia de FW, y aún no hemos encontrado en donde se guarda el \"aceptar\", \"cancelar\" en Windows. De todas formas, si tu aplicación sólo se va a usar en español, que importa modificar el código de MsgGet() ?\n\n&gt;\nOtra cosilla, ¿cómo va el tema del error de impresión que te comenté?. Eso es más urgente y priotirario.\n&gt;\n\nA que error te refieres ? Por favor proporcioname el enlace al mensaje en donde lo hayas publicado, gracias','',0,'gA==','1fcyhmhh',1,0,'',2,0,0),(42077,8887,3,2,0,'87.218.146.139',1195561494,1,0,1,1,1,1,'','','Shuming,\n\nPlease compile that class with line numbers info, so you may find the source code for the error:\n\n&gt;\nError description: Error BASE/1081 Argument error: + \nArgs: \n[ 1] = U \n[ 2] = N 1\n&gt;\n\nIt looks as a number (1) is tried to be added to a nil value','',0,'','2o4buugp',1,0,'',2,0,0),(42078,8886,3,2,0,'87.218.146.139',1195561564,1,0,1,1,1,1,'','','Silvio,\n\nA bitmap has no action. A (Class) TBitmap object, yes','',0,'','15khhrav',1,0,'',2,0,0),(42079,8889,3,2,0,'87.218.146.139',1195561752,1,0,1,1,1,1,'','','Silvio,\n\nBecause the metafile file is not found\n[code:3m9qpaxt]\n      if file&#40; &#58;&#58;cCaption &#41;\n         &#58;&#58;hMeta = GetEnhMetaFile&#40; &#58;&#58;cCaption &#41;\n      elseif ! Empty&#40; &#58;&#58;cCaption &#41;\n         Alert&#40; &quot;Could not find the enhanced Metafile,&quot; + CRLF + ;\n                &quot;please check your TEMP environment variable&quot; &#41;\n      endif\n[/code:3m9qpaxt]','',0,'AIA=','3m9qpaxt',1,0,'',2,0,0),(42080,8889,3,49,0,'213.82.134.66',1195562069,1,0,1,1,1,1,'','','and How I must make to not show it ?','',0,'AIA=','3t555fmm',1,0,'',49,0,0),(42081,8889,3,2,0,'87.218.146.139',1195562411,1,0,1,1,1,1,'','','Use the filename of an existing metafile file','',0,'AIA=','gx9f9kwk',1,0,'',2,0,0),(42082,8859,3,1011,0,'61.9.96.97',1195562536,1,0,1,1,1,0,'','','Thank you all guys, seems to be working.\n\nToyet','',0,'AIA=','1va3r4ha',1,0,'',1011,0,0),(42083,8106,18,1146,0,'87.223.173.186',1195563023,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias por tu pronta respuesta.\n\nSi, claro, tengo modificado el Código fuente, lo que sucede es que prefiero evitar modifcar las clases de fivewin, porque luego con las actualizaciones es un follón, pero vamos, que el tema NO es urgente.\n\nEn cuanto al segundo error, que si es imprtante, el link es <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8801\">http://fivetechsoft.com/forums/viewtopic.php?t=8801</a><!-- m -->\n\nUn saludo','',0,'AIA=','23qzp129',1,0,'',1146,0,0),(42084,8889,3,49,0,'213.82.134.66',1195563252,1,0,1,1,1,1,'','','and if I create an temp metafile How I must make it ?','',0,'AIA=','16tinea4',1,0,'',49,0,0),(42085,8866,6,78,0,'190.43.180.86',1195565591,1,0,1,1,1,0,'','','Nonis, sigo sin recuperar la data, aun cuando cambie la ruta de datos em my.ini, el MySQL no levanta...   buaaaaaaaaaaa!!!\nSalu2','',0,'AIA=','wwbh8vhk',1,0,'',78,0,0),(42086,8890,3,49,0,'213.82.134.66',1195566280,1,0,1,1,1,1,'','ANN: TTABS 2007 with bitmaps and look 2007','Hello,\n\nwe are very happy to announce  the new TTABS 2007\n\n\n\n[img:2g7knuxu]http&#58;//img225&#46;imageshack&#46;us/img225/1791/ttabs2007fi3&#46;jpg[/img:2g7knuxu]\n\n\n\n\nthis is made with a Italy/Germany collaboration\nthis is easy  to create :\n\n [code:2g7knuxu] \n\n@ 8, 0 TABS oTabs2 PROMPTS &quot;&amp;One Tab&quot;, &quot;&amp;Two Tabs&quot;, &quot;T&amp;hree Tabs&quot;, &quot;&amp;Four Tabs&quot; OF oWnd ;\n      ACTION oWnd&#58;Say&#40; 5, 5, oTabs2&#58;nOption &#41; L2007 ;\n      IMAGES &quot;&#46;\\BMPS\\IMAGE1&#46;BMP&quot;, &quot;&#46;\\BMPS\\IMAGE2&#46;BMP&quot;, &quot;&#46;\\BMPS\\IMAGE3&#46;BMP&quot;, &quot;&#46;\\BMPS\\IMAGE4&#46;BMP&quot;\n\n   //oTabs&#58;l2007 &#58;= &#46;t&#46;\n     oTabs2&#58;cTopBottom&#58;=&quot;BOTTOM&quot;\n     oWnd&#58;oBottom = oTabs2\n[/code:2g7knuxu]\n\nWITHOUT CHANGING YOUR SOURCE CODE \n\n\nI WAIT YOUR COMMENT HERE','',0,'CIA=','2g7knuxu',1,1195566726,'',49,1,0),(42087,8890,3,868,0,'219.64.121.60',1195566634,1,0,1,1,1,1,'','','Mr Silvio\n\nVery impressive.\n\nDo you intend  to share your code with others here ?','',0,'CIA=','1ic4l245',1,0,'',868,0,0),(42088,8886,3,41,0,'200.87.162.67',1195567131,1,0,1,1,1,0,'','','Hi,\n\nif you start with a blank bmp, and draw on these, you can save this modification in other bmp file, try this\n\n   hBmp := WndBitmap( obmp:hWnd )  \n   hDib := DibFromBitmap( hBmp )\n   DibWrite( \"bak.bmp\", hDib )\n\nI don\'t know if it\'s what do you want\n\nsaludos\n\nMarcelo','',0,'CIA=','34vegiqm',1,0,'',41,0,0),(42089,8889,3,2,0,'87.218.146.139',1195567649,1,0,1,1,1,1,'','','Silvio,\n\nUse CreateEnhMetaFile()','',0,'CIA=','1ouwmmoy',1,0,'',2,0,0),(42090,8879,3,1117,0,'125.24.173.181',1195568159,1,0,1,1,1,0,'','','It work now.\n\nnew() method in tftpsession class allso have to change return to selt too.\n\nThank you so much <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nS. Jintanawason','',0,'CIA=','1unr1pq1',1,0,'',1117,0,0),(42091,8891,3,487,0,'151.16.86.244',1195568442,1,0,1,1,1,0,'','oPrn:SetCopies() bug ?','Hello guys,\n\nI\'ve just noticed that oPrn:SetCopies(nCopies) works ok if the printed document is longer than 1 page, otherwise I always obtain a single copy.\nI tried with different printers and machines, with or without PREVIEW (If PREVIEW a 2+ pages document and print them all I obtain n copies, while if I print only 1 page on a multipage preview I obtain only a single printed page)\n\nAny clues ?\n\nTIA \nDavide\nFWH 7.09','',0,'CIA=','qnrne3a1',1,0,'',487,0,0),(42092,8866,6,147,0,'200.45.54.134',1195568819,1,0,1,0,1,1,'','','Wlli:\nAca tenes un acceso con instrucciones MySQL. Como realizar/recuperar copias de seguridad está en el punto 9\n\n[url:2ucaw0dr]http&#58;//www&#46;xtec&#46;net/%7Eacastan/textos/Administracion%20de%20MySQL&#46;html#USUARIOS[/url:2ucaw0dr]','',0,'EA==','2ucaw0dr',1,0,'',147,0,0),(42093,8892,6,106,0,'85.34.123.173',1195569626,1,0,1,1,1,1,'','Preview de impresion, maximiza las otras ventanas...','El preview de impresion, maximiza las otras ventanas que tengo abiertas dentro de una MDI, se puede cambiar ese comportamiento?\n\n\nGracias\n\n\nP.D. Ademas, cuando antes llamaba el preview con un msgrun, ahora me queda el mensaje arriba de la ventana del preview.','',0,'EA==','1im8s69r',1,0,'',106,0,0),(42094,8893,3,86,0,'81.83.151.142',1195571459,1,0,1,1,1,1,'','Question about SQL','Hello,\n\nI am thinking about transferring my DBF-files in my FWH-application to a SQL-database.\n\nUntil now, I have no experience at all with SQL.\n\nWhat do I need to do ?\n\nOr where can I find a good manual to do the transfer ?\n\nThank you in advance.','',0,'EA==','ysjdkwf2',1,0,'',86,0,0),(42095,8892,6,36,0,'200.113.56.235',1195572119,1,0,1,1,1,1,'','','pymsoft\n\ncambia la linea 362 de la rpreview\n\n[code:3nt21nmd]   DEFINE FONT &#58;&#58;oFont NAME GetSysFont&#40;&#41; SIZE 0,-12\n\n  /*if &#58;&#58;oWndMain != nil &#46;and&#46; Upper&#40; &#58;&#58;oWndMain&#58;ClassName&#40;&#41; &#41; == &quot;TMDIFRAME&quot;\n      DEFINE WINDOW &#58;&#58;oWnd ;\n         TITLE cTitle ;\n         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;\n         ICON  oIcon                        ;\n         VSCROLL HSCROLL MDICHILD\n   else      */\n      DEFINE WINDOW &#58;&#58;oWnd FROM 0, 0 TO 24, 80  ;\n         TITLE cTitle ;\n         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;\n         ICON  oIcon                        ;\n         VSCROLL HSCROLL MENU &#58;&#58;BuildMenu&#40;&#41;\n   //endif [/code:3nt21nmd]','',0,'AIA=','3nt21nmd',1,0,'',36,0,0),(42096,8892,6,106,0,'85.34.123.173',1195572898,1,0,1,1,1,1,'','','Patricio,\n\n\nGracias!!','',0,'AIA=','1sumez8o',1,0,'',106,0,0),(42099,8861,6,891,0,'201.140.184.46',1195575256,1,0,1,1,1,0,'','Ejemplo...','[quote=&quot;Armando&quot;:3twghgnk]Adriano:\n\nSip, efectivamente son cuentas contables.\n\nCarlos, muchas gracias por los comentarios y el ejemplo.\n\nVoy a probar ambos ejemplos y veré cual me ajusta mejor, ya les contare.\n\nSaluds[/quote:3twghgnk]\n\nBuenos dias amigo, te pongo un ejemplo de como funciona la funcion dentro de un solo campo get, espero que te sirva de gran ayuda, y si alguien la puede mejorar el codigo sera bienvenido.\nEn ese ejemplo uso la clase BtnGet o lo puedes aplicar al get normal.\n\n\ncCtaIni  := SPACE(19)\nREDEFINE BTNGET oGet[01] VAR cCtaIni ID 101 OF oDlg RESOURCE \"AYUDA\" PICTURE \"@K ###################\";\n                                                                ACTION (ListCat(@cCtaIni,S07,\"cCtaIni\",oGet[01]));\n                                                                VALID V_FormCta(\"cCtaIni\",cCtaIni)\n\n\n//------------------------------------------------------------------------------\nStatic FUNCTION V_FormCta(VarCta, CtAf)\n Local FormCtas\n\n IF EMPTY(Ctaf)\n    MsgAlert(\"Error: Campo no puede quedar vacío\")\n    RETURN .F.\n ENDIF\n\n FormCtas := FORMATO1(VarCta, Ctaf,.T.)\n\n DO CASE\n    CASE VarCta == \"cCtaIni\"\n          cCtaIni := FormCtas\n\n    CASE VarCta == \"cCtaFin\"\n          cCtaFin := FormCtas\n\n          IF cCtaIni &gt; cCtaFin\n             MsgInfo(\'ERROR: Cuenta debe ser mayor o igual que el inicial\')\n\n             RETURN .F.\n          ENDIF\n ENDCASE\n\n oGet[01]:Refresh()\n oGet[02]:Refresh()\n\n Release FormCtas\nRETURN (.T.)\n\nSaludos\nAtte: Adriano C. C.','',0,'gA==','3twghgnk',1,0,'',891,0,0),(42100,8895,6,1146,0,'87.223.173.186',1195575591,1,0,1,1,1,0,'','','Fernando:\n\nNo aparece en el link.\n\nOtra cosa, ¿cómo puedo contactar contigo por teléfono?.\n\nUn saludo,','',0,'gA==','1km5uc5p',1,0,'',1146,0,0),(42101,8893,3,35,0,'167.7.140.254',1195580525,1,0,1,1,1,0,'','','Driessen\n\nADO is the best choice for me .. there is the \'free\' ado rdd available on this forum or you can do it the way I do and code everything manually with recordsets.\n\nI wrote a thread on the subject with samples:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6691&amp;highlight\">http://fivetechsoft.com/forums/viewtopi ... &amp;highlight</a><!-- m -->\n\nIf I can be of any help just drop me a message.\n\nRick Lipkin\nSC Dept of Health, USA\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'gA==','38r43enc',1,0,'',35,0,0),(42102,8879,3,2,0,'87.218.146.139',1195583436,1,0,1,1,1,1,'','','&gt; new() method in tftpsession class allso have to change return to selt too\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','13zlgjax',1,0,'',2,0,0),(42103,8893,3,86,0,'81.83.151.142',1195585593,1,0,1,1,1,1,'','','Rick,\n\nThanks a lot for your answer.\n\nI\'ll read your topic very carrefully. If necessary I\'ll send you a mail for some more help.\n\nThanks.','',0,'gA==','2tvpbcvp',1,0,'',86,0,0),(42104,8868,6,180,0,'79.146.64.65',1195586105,1,0,1,1,1,0,'','','Hola Diego:\n\nYo tengo una versión anterior a la tuya y modificando el método EndPaint de window.prg, como dice Antonio, se soluciona el problema. \n\nSaludos,\nManuel','',0,'gA==','214ehdd9',1,0,'',180,0,0),(42105,8888,6,1059,0,'190.31.228.125',1195587960,1,0,1,1,1,0,'','','Lo siento, estaba haciendo algo mal. No se que fue pero rehice esa parte y funciona correctamente con GetRow y GetCol.\n\nGracias.\n\nRolando\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1mz28d44',1,0,'',1059,0,0),(42106,8896,6,1059,0,'190.31.228.125',1195591339,1,0,1,1,1,0,'','Trichedit - Metodo LButtonDown','Hola,\n\nNo consigo entender como funciona el método \"LButtonDown\" de esta clase, es decir, necesitaría un ejemplo de como puedo detectar que se presionó el botón izquierdo del mouse para, a partir de esa acción, ejecutar una función propia.\n\nGracias.\n\nRolando.\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2zg6weyo',1,0,'',1059,0,0),(42107,6999,6,495,0,'200.120.232.179',1195594055,1,0,1,1,1,0,'','Re: Nueva TdosPrn con Preview (tRichedit)','Ralph, intento utilizar la nueva Tdosprn, pero me el siguiente problema:\n\nApplication\n===========\n   Path and name: C:\\app\\FastTrackv3\\Bin\\Fast Track v3.Exe (32 bits)\n   Size: 3,879,936 bytes\n   Time from start: 0 hours 0 mins 13 secs \n   Error occurred at: 20/11/2007, 18:26:54\n   Error description: Error BASE/1004  Message not found: TDOSPRN:CNEGON\n\nStack Calls\n===========\n   Called from:  =&gt; TDOSPRN:ERROR(179)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TDOSPRN:MSGNOTFOUND(0)\n   Called from: TDOSPRN.PRG =&gt; TDOSPRN:CNEGON(167)\n   Called from: TXTprev.PRG =&gt; TTXTPREVIEW:NEW(282)\n   Called from: TXTprev.PRG =&gt; TXTPREVIEW(139)\n   Called from: FT500.prg =&gt; FT500:LIB_MAYOR_AUX(430)\n   Called from: FT500.prg =&gt; FT500:IMPRIME(133)\n   Called from: FT500.prg =&gt; (b)FT500:NEW(119)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: FT500.prg =&gt; FT500:NEW(124)\n   Called from: FT.prg =&gt; (b)TAPP:MENU(596)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: FT.prg =&gt; TAPP:NEW(241)\n   Called from: FT.prg =&gt; MAIN(55)\n\n\n[quote=&quot;ralph&quot;:36ab32l7]Estimados amigos del foro: \n\nPara los interesados (como yo) en seguir usando la clase TdosPrn modificada por Ednaldo Rolim que nos da la opcion de previsualizar los reportes he hecho una modificacion para que el Preview lo haga usando la clase Richedit (FWH 2.7 en adelante).  Con esto se elimina un problema que habia en 32 bits que hacia desaparecer el reporte cuando se desplazaba hacia la derecha.\n\nSi alguien quiere ayudar a mejorar esta clase es bienvenido (el metodo TxtToRTF() esta todavia incompleto).  Por ahora solo reconoce 2 tamaños de fuentes el modo \"normal\" y \"comprimido\" (que para mi es suficiente), pero no puedo mezclar (aun) distintos tamaños de font en la misma linea.\n\nSe puede hacer zoom con doble click o con el boton en la barra superior.\n\nPueden descargar los fuentes y un ejemplo desde <!-- w --><a class=\"postlink\" href=\"http://www.solupymes.com/fwin/testprev.zip\">www.solupymes.com/fwin/testprev.zip</a><!-- w -->\n\nSaludos \n\nRalph del Castillo[/quote:36ab32l7]','',0,'gA==','36ab32l7',1,0,'',495,0,0),(42108,8889,3,49,0,'62.13.172.67',1195604097,1,0,1,1,1,1,'','','I not found the parameters for it','',0,'gA==','1ukoqb90',1,0,'',49,0,0),(42109,8893,3,35,0,'65.188.6.143',1195604418,1,0,1,1,1,0,'','','Michel\n\nHere is some specific code and listbox for MS Sql server .. note the connection string .. :\n\n// public defined in Main.prg:\n \nxPROVIDER := \"SQLOLEDB\"\nxSOURCE   := \"MSSQL01\"\nxCATALOG  := \"PCAS\"\nxUSERID   := \"pcasuser\"\nxPASSWORD := \"pcas\"\n\n \n \n// grpbrow.prg\n//\n#INCLUDE \"FIVEWIN.CH\"\nSTATIC oBROW,oGRP\nSTATIC lOK\n//----------------------------\nFUNCTION _GRPbrow( oWndMDI )\nLOCAL SAYING, oRs,oErr, cSQL, cTITLE\nlOK := .F.\nIF xSUPER = \'Y\' .or. xADMIN = \'Y\'\nELSE\n   SAYING := \"SORRY ... Supervisor or Admin Rights only\"\n   MsgAlert( SAYING )\n   _CleanUp()\n   RETURN(.F.)\nENDIF\n\noRs := TOleAuto():New( \"ADODB.Recordset\" )\noRs:CursorType     := 1        // opendkeyset\noRs:CursorLocation := 3        // local cache\noRs:LockType       := 3        // lockoportunistic\nIF xADMIN = \'Y\'\n   cSQL   := \"SELECT * FROM GROUPS ORDER BY PROGID,CODE\"\n   cTITLE := \"Group Records Browse for ALL\"\nELSE\n   cSQL := \"SELECT * FROM GROUPS where progid = \'\"+xPROGID+\"\' ORDER BY CODE\"\n   cTITLE := \"Group Records Browse for Progid \"+xPROGID\nENDIF\nTRY\n   oRs:Open( cSQL,\'Provider=\'+xPROVIDER+\';Data Source=\'+xSOURCE+\';Initial Catalog=\'+xCATALOG+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD )\nCATCH oErr\n   MsgInfo( \"Error in Opening GROUPS table\" )\n   _CleanUp()\n   RETURN(.F.)\nEND TRY\nIF oRs:EOF\n   oRs:Close()\n   SAYING := \"Could not find any matching records for \"+cSQL\n   MsgInfo( SAYING )\n   _CleanUp()\n   RETURN(.F.)\nENDIF\noRs:MoveFirst()\nDEFINE WINDOW oGRP                         ;\n      FROM 2,2 to 30,70                    ;\n      of oWndMDI                           ;\n      TITLE cTITLE                         ;\n      MENU BuildMenu( oRs )                ;\n      NOMINIMIZE                           ;\n      NOZOOM                               ;\n      MDICHILD\n@ 0, 0 LISTBOX oBrow FIELDS                ;\n       oRs:Fields(\"CODE\"):Value,           ;\n       oRs:Fields(\"DESC\"):Value,           ;\n       oRs:Fields(\"progid\"):Value          ;\n       SIZES 80,250,80                     ;\n       HEADERS \"Code\",                     ;\n               \"Description\",              ;\n               \"ProgID\"                    ;\n       of oGRP                             ;\n       ON DBLCLICK( _GrpView( \"V\", oRs ))  ;\n       UPDATE\n      oBrow:bLogicLen := { || oRs:RecordCount }\n      oBrow:bGoTop    := { || oRs:MoveFirst() }\n      oBrow:bGoBottom := { || oRs:MoveLast() }\n      oBrow:bSkip     := { | nSkip | Skipper( oRs, nSkip ) }\n      oBrow:cAlias    := \"ARRAY\"\n      oGrp:oClient := oBROW\n      oGrp:SetControl( oBrow )\n\nACTIVATE WINDOW oGRP           ;\n      VALID ( IIF( !lOK, GrpCLose( .T. , oRs ), .F. ))\nRETURN( NIL )\n//-------------------------------\nStatic Func _Cleanup()\noBROW   := NIL\noGRP    := NIL\nRETURN(.T.)\n//------------------//\nstatic FUNCTION BuildMenu( oRs )\nLOCAL oMenu1\nMENU oMenu1\n     MENUITEM \"&amp;Add ...\"                             ;\n               ACTION ( _GRPVIEW( \"A\", oRs ),        ;\n                        oBROW:Refresh() )            ;\n               MESSAGE \"Add a new record\"\n     MENUITEM \"&amp;Edit ...\"                            ;\n               ACTION ( _GRPVIEW( \"E\", oRs ),        ;\n                        oBROW:ReFresh() )            ;\n               MESSAGE \"Edit this record\"\n     MENUITEM \"&amp;Delete ...\"                          ;\n               ACTION GRPDEL( oRs)                   ;\n               MESSAGE \"Delete this record\"\n     MENUITEM \"&amp;View ...\"                            ;\n               ACTION _GRPVIEW( \"V\", oRs )           ;\n               MESSAGE \"View this record\"\n     MENUITEM \"&amp;Quit\"                                ;\n               ACTION oGRP:END()\n   ENDMENU\nRETURN( oMenu1 )\n//------------------------\nStatic FUNCTION GRPCLOSE(lCLEAN, oRs )\nIF lCLEAN = .T.\n   lOK := .T.\n   oBROW:cALIAS := nil\n   oRs:Close()\n   _CleanUp()\nENDIF\nRETURN(lOK)\n//--------------------\nStatic FUNCTION GRPDEL( oRs )\n   LOCAL SAYING\nIF xSUPER = \'Y\' .or. xADMIN = \'Y\'\nELSE\n   SAYING := \"Sorry ... Supervisor or Admin Rights Only\"\n   MsgAlert( SAYING )\n   RETURN(NIL)\nENDIF\nIF oRs:EOF\n   SAYING := \"Sorry ... Before you can Delete a \"\n   SAYING += \"record, you have to Add one first\"\n   MsgAlert( SAYING )\n   RETURN(NIL)\nENDIF\nIF MsgYesNo( \"Are you SURE you want to DELETE this?\" )\n   oRs:Delete()\n   oRs:MoveNext()\n   IF oRs:eof .and. .not. oRs:bof\n      oRs:MoveFirst()\n   ENDIF\nENDIF\n\noBROW:Refresh(.T.)\nSysReFresh()\nRETURN(NIL)\n//-------------------------------\nSTATIC FUNCTION SKIPPER( oRsx, nSkip )\nLOCAL nRec := oRsx:AbsolutePosition\noRsx:Move( nSkip )\nIF oRsx:EOF; oRsx:MoveLast(); ENDIF\nIF oRsx:BOF; oRsx:MoveFirst(); ENDIF\nRETURN( oRsx:AbsolutePosition - nRec )\n// end GRPBROW.PRG','',0,'gA==','3b3bvs41',1,0,'',35,0,0),(42110,8762,3,34,0,'68.5.217.82',1195605127,1,0,1,1,1,1,'','Skins','OK ... maybe I misunderstand this, or maybe I don\'t implement it correctly.  \n\nWhen I implement SET THEMES ... all of the buttons are skinned as if they were in focus.  However, that is not the behavior of Office 2007.  Antonio has the correct implementation in the menus and button bar.\n\nI also looked at the sample and it appears to work like Office 2007, and not like mine.\n\nEvery one of my buttons is colored, and not like the theme.\n\nDid I goof somewhere, or is this the intended behavior.\n\nThank you.','',0,'gA==','1ybs1m23',1,0,'',34,0,0),(42111,8866,6,78,0,'190.43.180.86',1195607035,1,0,1,1,1,0,'','','Segui esas instrucciones, pero nada, la info esta en el archivo ibdata1 pero no es posible accesarla, talvez alguien conoca algun otro programa que pueda leer la data,,,\nSalu2','',0,'gA==','3l1t899w',1,0,'',78,0,0),(42113,8891,3,487,0,'151.16.72.230',1195607203,1,0,1,1,1,0,'','','I\'ve just tested FWH27 (xH) and found it behaved the same.\n\nI\'ve also found this function in printdc.c, but cannot see why it should work only for multipage documents.\n\nAny idea ?\n\nThanks,\nDavide\n\n[code:2b4g5bgh]#ifdef __HARBOUR__\n   CLIPPER PRNSETCOPIES&#40; PARAMS &#41; // &#40; nCopies &#41;  --&gt; lSuccess\n#else\n   CLIPPER PRNSETCOPI&#40; PARAMS &#41; // ES&#40; nCopies &#41;  --&gt; lSuccess\n#endif\n&#123;\n   LPDEVMODE lpDevMode;\n\n   PrinterInit&#40;&#41;;\n\n   lpDevMode = &#40;LPDEVMODE&#41; GlobalLock&#40; pd&#46;hDevMode &#41;;\n\n   lpDevMode-&gt;dmCopies = _parni&#40; 1 &#41;;\n\n   if&#40; PCOUNT&#40;&#41; == 2 &#41;  // Compatibility with previous syntax!\n      lpDevMode-&gt;dmCopies = _parni&#40; 2 &#41;;\n\n   GlobalUnlock&#40; pd&#46;hDevMode &#41;;\n\n   _retl&#40; TRUE &#41;;\n&#125;\n[/code:2b4g5bgh]','',0,'AIA=','2b4g5bgh',1,0,'',487,0,0),(42114,8891,3,487,0,'151.16.72.230',1195609976,1,0,1,1,1,0,'','','Ok, I\'ve found out another printer (Brother) which works correctly, so it seems the problem is in the driver of the \"HP LaserJet 5/5M PS\" and the \"HP LaserJet 4100\" (maybe they both use the same driver).\n\nDoes that happened to anyone else before ?','',0,'AIA=','19rh32al',1,0,'',487,0,0),(42115,8357,19,1227,0,'190.18.50.177',1195611960,1,0,1,1,1,0,'','','Estimado Fabian\n\nMe podrias decir si  tienes  zonas disponibles para distribuidores \nen España\n\nSaludos\nPaco','',0,'AIA=','1450v3d6',1,0,'',1227,0,0),(42116,8897,6,495,0,'200.120.232.179',1195613642,1,0,1,1,1,0,'','Problemas con Report','Hola amigos, haber si a alguien le ha ocurrido.\n\nGenero un reporte desde un array y necesito poner los datos de un campo memo final del reporte, luego de mostrar los totales.\n\neste es el código actual, que funciona especificando la posición.\n\nMETHOD Impnota() CLASS FT617Add\n   LOCAL oRte, acol,nFor\n   nFor := 1\n      nSaldo := 0\n      Report oRte;\n      Title \"***INFORME CLIENTE***\" ,;\n      \"Número    : \" + ::vGet[03] ,;\n      \"Nombre    : \" + ::vGet[01] + \" Rut : \"+  Trans(::vGet[02], \"@R 99,999,999-!\")  CENTER;\n      Header \"Razón social : \", \"Rut : \" , \"Página :\" + Trans( oRte:nPage, \"99\" ) Left;\n      Caption \"CLIENTES\"  Footer \"Elaborado por:\";\n      Font oFont1, oFont2;\n      Preview\n       Column  Title \"Descripción\"   DATA AR_DATOS[nFor][VD_DESPRO] size 35\n       Column  Title \"Total\"         DATA AR_DATOS[nFor][VD_SUBTOT] size 10 TOTAL PICTURE \"999,999,999\"\n\n      END REPORT\n   oRte:bSkip := {|| nFor++}\n\n       oRte:bEnd := { || ::NuevosDatos( oRte ) }\n\n       Activate Report oRte WHILE Len( AR_DATOS ) &gt;= nFor;\n       ON STARTPAGE StartPage()\nRETURN NIL\n\nMETHOD NuevosDatos(oRte)\n   LOCAL x, nCanlin, nRow := 0\n   oRte:oDevice:cmSay( 10 ,01, MemoLine( ::vGet[22],40,1 ) ,oRte:aFont[01],,)\n   nRow++\n   nCANLIN := MLCOUNT (::vGet[22],40)\n   IF nCANLIN &gt; 1\n      FOR X := 2 TO nCANLIN\n         oRte:oDevice:CmSay( (10 + nRow ),01, MemoLine( ::vGet[22],40,x ),oRte:aFont[01],, )\n         nRow++\n      NEXT\n   ENDIF\n\nRETURN NIL\n\n\n¿como se si los reportes estan en centimetros o milimetros? por que los datos se muestranen la posicion que especifique, pero muy distante una linea de otra.\n\nde ante mano gracias\n\nsalu2\n\nMauro','',0,'','2lo88g71',1,0,'',495,0,0),(42117,8890,3,303,0,'72.220.100.171',1195614347,1,0,1,1,1,0,'','','Nice work, Falconi. Very professional looking!\n\nJames','',0,'','2tfc2f7h',1,0,'',303,0,0),(42118,8796,3,400,0,'201.68.33.102',1195626658,1,0,1,1,1,1,'','','How can I color the  sides of the xbrowse?  \n  \nI only got to put the Gradient in the header and in the Folder.  \n  \nAs they can see in the image, below :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.sbsistemas.eti.br/Bmp/xbrowse1.JPG\">http://www.sbsistemas.eti.br/Bmp/xbrowse1.JPG</a><!-- m -->\n\nRegards, Ale','',0,'','2qmqbeu9',1,0,'',400,0,0),(42119,8898,3,1158,0,'200.139.130.7',1195627278,1,0,1,1,1,0,'','xharbour cvs and fwh711','hi, i try compile xharbour cvs (05/11/2007) and fwh711, and receive gpf error, i see in fivetechs distro of xharbour is dated 09/2007, theres some issue?? thanks','',0,'','1fsarahd',1,0,'',1158,0,0),(42120,8898,3,2,0,'87.218.146.139',1195628483,1,0,1,1,1,1,'','','Norberto,\n\nWhere the GPF comes from ? Do you get a callstack ?','',0,'','2iiztudn',1,0,'',2,0,0),(42121,8898,3,1158,0,'200.139.130.7',1195628626,1,0,1,1,1,0,'','','Antonio, is something related with rddads, i compile again with cvs from 30/10/07, and now works... but cvs after this , in init of appl cause an gpf, now i try to compile last cvs with rddads old to see if work. thanks','',0,'','ydvhhs0y',1,0,'',1158,0,0),(42122,8898,3,2,0,'87.218.146.139',1195628705,1,0,1,1,1,1,'','','Afaik there is a pending bug with RddAds that they were working to fix','',0,'','28xgc1mm',1,0,'',2,0,0),(42123,8898,3,1158,0,'200.139.130.7',1195628846,1,0,1,1,1,0,'','','something here?? ==&gt;\n\n2007-11-05 06:25 UTC-0500 Ron Pinkas &lt;ron/at/xharbour.com&gt;\n   * contrib/rdd_ads/ads1.c\n   * Typos','',0,'','1wja2ar5',1,0,'',1158,0,0),(42124,8889,3,2,0,'87.218.146.139',1195628886,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms534576.aspx\">http://msdn2.microsoft.com/en-us/library/ms534576.aspx</a><!-- m -->','',0,'','1w3ywvrh',1,0,'',2,0,0),(42125,8898,3,2,0,'87.218.146.139',1195628968,1,0,1,1,1,1,'','','Norberto,\n\nCan\'t tell you for sure. We need to check it again,','',0,'','2u62syhk',1,0,'',2,0,0),(42126,8766,4,2,0,'87.218.146.139',1195634377,1,0,1,1,1,1,'','','Salvador,\n\nThanks for your help <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','18u1guoz',1,0,'',2,0,0),(42127,8893,3,6,0,'82.54.221.192',1195635306,1,0,1,1,1,1,'','','Rick, do you have a connection string for MySQL remote?\n\nEMG','',0,'','6r4kt22p',1,0,'',6,0,0),(42128,8893,3,2,0,'87.218.146.139',1195635993,1,0,1,1,1,1,'','','Enrico,\n\nThere is one included in the ADORDD samples <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','14qutrvz',1,0,'',2,0,0),(42129,8873,3,130,0,'141.51.32.24',1195636104,1,0,1,1,1,1,'','','Antonio,\n\n\"restoring\" the window as a work around is working fine.\n\nCascading the windows changes their sizes to their original size, is that standard behavior?','',0,'','1stkflih',1,0,'',130,0,0),(42130,8899,2,211,0,'83.35.93.157',1195636174,1,0,1,1,1,0,'','Menú contextual en inglés','Hola. Quisiera que cuando estoy sobre un get y hago click con el botón derecho, el menú contextual me salga en castellano en vez del cut, copy, paste, undo, ... que me sale en inglés. He googleado y nada. ¿Alguna solución?\n\nCLIP 5.2, FW2.4','',0,'','3mgqo0mx',1,0,'',211,0,0),(42131,8900,3,6,0,'82.54.221.192',1195636665,1,0,1,1,1,1,'','Bug in TBtnBmp prompt','In the following sample the prompt is not splitted across two lines and two little squares are displayed instead:\n\n[code:33f79spz]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oBar\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR oBar OF oWnd 2007;\n           SIZE 50, 70\n\n    DEFINE BUTTON OF oBar;\n           ACTION oWnd&#58;End&#40;&#41;;\n           PROMPT &quot;Close&quot; + CRLF + &quot;Window&quot;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:33f79spz]\n\nEMG','',0,'AIA=','33f79spz',1,0,'',6,0,0),(42132,8873,3,2,0,'87.218.146.139',1195636908,1,0,1,1,1,1,'','','Stefan,\n\n&gt; Cascading the windows changes their sizes to their original size, is that standard behavior?\n\nYes, I think so','',0,'AIA=','3o1gg5np',1,0,'',2,0,0),(42133,8873,3,130,0,'141.51.32.24',1195636966,1,0,1,1,1,1,'','','Ok, thank you','',0,'AIA=','m9713a5n',1,0,'',130,0,0),(42134,8899,2,2,0,'87.218.146.139',1195636997,1,0,1,1,1,1,'','','Tienes que modificar el código fuente de la clase TGet en source\\classes\\tget.prg','',0,'AIA=','o32jxv1k',1,0,'',2,0,0),(42135,8893,3,6,0,'82.54.221.192',1195637019,1,0,1,1,1,1,'','','The following sample stops with DISP_E_UNKNOWNNAME:\n\n[code:2qy8smlj]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRs&#58;Open&#40; &quot;SELECT * FROM Table&quot;, &quot;DRIVER=&#123;MySQL ODBC 3&#46;51 Driver&#125;;server=xxx&#46;xxx&#46;xxx&#46;xxx;database=dbname;uid=username;pwd=password&quot;, 0, 3 &#41;\n\n    oRS&#58;Close&#40;&#41;\n\n    RETURN NIL[/code:2qy8smlj]\n\nDo I have to install something MySQL related on the client?\n\nEMG','',0,'AIA=','2qy8smlj',1,0,'',6,0,0),(42136,8893,3,2,0,'87.218.146.139',1195637179,1,0,1,1,1,1,'','','Enrico,\n\n&gt; Do I have to install something MySQL related on the client? \n\nYes, you have to install the MySQL client software','',0,'AIA=','1ebsic58',1,0,'',2,0,0),(42137,8873,3,49,0,'213.82.134.66',1195637475,1,0,1,1,1,1,'','','There are some problems :\n\n\n1 . if I click on new dialog it not is on the ownd main and the oWnd not create vertical scroll and horizontal scroll.\n\n2. the mdi windows must be create from the end of the splitter to nwidth of ownd main','',0,'AIA=','1d1hv5wv',1,0,'',49,0,0),(42138,8893,3,6,0,'82.54.221.192',1195638835,1,0,1,1,1,1,'','','Do you have the link at hand? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','1uyad90p',1,0,'',6,0,0),(42139,6999,6,694,0,'200.146.114.17',1195638978,1,0,1,1,1,1,'','','un_jeepero, \n\nPor experiência própria, acho q vc não esta usando a tdos correta, ou seja a do Ralph.\n\n\nAoki','',0,'AIA=','2jsa9h52',1,0,'',694,0,0),(42140,8901,3,51,0,'80.122.88.242',1195640762,1,0,1,1,1,0,'','freeimage','Which files does one need and where to place the files.\n(VISTA system32 only as Admin possible)\n\nRegards,\nOtto','',0,'AIA=','2mqfgw2r',1,0,'',51,0,0),(42141,8902,20,1009,0,'82.187.221.169',1195643526,1,0,1,1,1,0,'','versione fivewin','ciao a tutti,\n1) esiste una funzione per avere la versione FiveWin come con Version() di xHarbour?\n\n2) ho ricompilato le fw 7.10 con xHarbour 0.99.70 ed ho ottenuto molti messaggi come qui sotto:\nTLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation\nWarning: public \'_HB_FUN_MSGGET\' in module \'msgget\' clashes with prior module \'fwppc\'\n\nforse c\'è un file bat di conversione aggiornato?\n\nciao, marzio','',0,'AIA=','33zyckzc',1,0,'',1009,0,0),(42142,8903,3,63,0,'88.6.235.117',1195643937,1,0,1,1,1,0,'','How to know first record displayed in TxBrowse()','I am using a TxBrowse for editing an array.\nWhen I scroll up or down, how can I get a reference (i.e: the element / record number) of the first array element being displayed? \nThanks\nRafael','',0,'AIA=','2180uo0p',1,0,'',63,0,0),(42143,8904,6,63,0,'88.6.235.117',1195644248,1,0,1,1,1,0,'','Cómo saber el primer elemento en un TxBrowse','Estoy utilizando un TxBrowse para editar un largo array (aunque esta preguna también vale para Dbfs)\n\nCuando hago scroll up/down, ¿cómo puedo saber una referencia al primer elemento presentado en el browse?  P. Ej, el núm de elemento en oBrw:aArrayData o el Recno() en una Dbf?\n\nGracias\n\nRafael','',0,'AIA=','a08lteeb',1,0,'',63,0,0),(42144,8905,3,995,0,'212.239.175.8',1195644399,1,0,1,1,1,0,'','Print problem in network (fw7.11)','Hello,\n\nI try to install a new program at the client , compiled with fw7.11\n\nIt is impossible to print , preview screen appears behind the main screen and the program is frozen.\n\nWhen i run the aplication locally , there are no problems\nRunning the aplication on the server (as all the users) , it gives the problems as described.\n\nIt is impossible to switch to fw7.11 , i hope to have a solution very soon !!!\n\nFrank','',0,'AIA=','3s5dd7v4',1,0,'',995,0,0),(42145,8903,3,63,0,'88.6.235.117',1195645324,1,0,1,1,1,0,'','','Got it:[code:ri7lff56]Solved&#58;  nFirstElement &#58;= oBrw&#58;nArrayAt - oBrw&#58;nRowSel + 1\n[/code:ri7lff56]','',0,'AIA=','ri7lff56',1,0,'',63,0,0),(42146,8904,6,63,0,'88.6.235.117',1195645405,1,0,1,1,1,0,'','','Me respondo a mí mismo:[code:1uoq0tdg]nFirstElement &#58;= oBrw&#58;nArrayAt - oBrw&#58;nRowSel + 1 \n[/code:1uoq0tdg]','',0,'AIA=','1uoq0tdg',1,0,'',63,0,0),(42147,8902,20,6,0,'82.54.221.192',1195645741,1,0,1,1,1,1,'','Re: versione fivewin','Parli di FWH o di FWPPC?\n\nEMG','',0,'AIA=','2pge7at9',1,0,'',6,0,0),(42148,8901,3,6,0,'82.54.221.192',1195645811,1,0,1,1,1,1,'','Re: freeimage','FreeImage.dll placed in the EXE folder or in system32.\n\nEMG','',0,'AIA=','1vldpsvi',1,0,'',6,0,0),(42149,8712,6,362,0,'200.158.19.233',1195646050,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:3c0upp9w]El foro es muy importante, eso no lo duda nadie, y es un muy buen lugar para compartir, consultar y ayudarnos.\n\nPero como comenta Carlos, una reunion donde vernos las caras, contar las experiencias propias, poder tomar unas cervezas juntos, pues que eso tambien estaria muy bien, crea buen rollo entre nosotros y nos une mas como grupo de usuarios de una misma herramienta.\n\nEl tema es planterarnoslo en serio y tirar palante, aunque al final terminemos solo media docena cenando juntos, pues incluso eso seguro que vale la pena.[/quote:3c0upp9w]\n\nBIEL, EXPLENDIDO!! ADELANTE CON LA IDEA. NO ÉS EN INICIO, IMPORTANTE, LA CANTIDAD DE PERSONAS, MAS SI, LA CUALIDAD.','',0,'gA==','3c0upp9w',1,0,'',362,0,0),(42150,8893,3,2,0,'87.218.146.139',1195646334,1,0,1,1,1,1,'','','Enrico,\n\nNo, sorry <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nAs far as I remember you can download it from the MySQL website.\n\nIts a long time since we tested it','',0,'gA==','24w7wc60',1,0,'',2,0,0),(42151,8905,3,2,0,'87.218.146.139',1195646424,1,0,1,1,1,1,'','','Frank,\n\nAre you using a main MDI window ?\n\nHave you modified the rpreview.prg source code ?\n\nIn the meantime, you can use the rpreview.prg module from previous FWH build','',0,'gA==','17mil5aj',1,0,'',2,0,0),(42152,8906,3,425,0,'193.164.0.63',1195646810,1,0,1,1,1,0,'','Numeric get from right to left','Hi \n\nis possible in :\n\nredefine get oGet var num PICTURE \'9999.999\'\n\ninstead of numbers being writen from left to Right , being writen from right to left like calculators do .  The number can have decimals.\n\nBest regards\n                         Pedro Faro','',0,'gA==','28p3w6n4',1,0,'',425,0,0),(42153,8905,3,995,0,'81.11.193.29',1195649692,1,0,1,1,1,0,'','','Antonio,\n\nYes , i use a MDI window , but i have\'nt made any change in repreview.prg\n\nI\'ll try it with the previous version','',0,'gA==','3lxkrd4w',1,0,'',995,0,0),(42154,8427,6,106,0,'85.34.123.173',1195649941,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:trdr1ck0]Pedro,\n\nOk, gracias.\n\nPrueba a ponerle los colores en 32 bits[/quote:trdr1ck0]\n\nAntonio,\n\ncon los colores a 32 bits funciona bien.\n\nGracias.','',0,'gA==','trdr1ck0',1,0,'',106,0,0),(42155,8905,3,995,0,'81.11.193.29',1195651827,1,0,1,1,1,0,'','Antonio','Replacing rpreview seems to work.\n\nThis error occur also localy (not only in network envirronnement)\n\nWhen is a correction available ?\n\nFrank','',0,'gA==','2e43727m',1,0,'',995,0,0),(42156,8796,3,400,0,'201.68.33.102',1195651849,1,0,1,1,1,1,'','','I already got, to solve...  \n\nRegards, Ale','',0,'gA==','3nv9qe0x',1,0,'',400,0,0),(42157,8905,3,1158,0,'200.233.185.181',1195652845,1,0,1,1,1,0,'','','hi, i have this problem, i use now rpreview of fwh707.','',0,'gA==','2uy314kb',1,0,'',1158,0,0),(42158,8907,3,20,0,'62.94.208.218',1195655750,1,0,1,1,1,0,'','Combobox problem','In the sample program combos.prg when I press the enter key the dialog is closed.\n\nRegards\nPier Luigi','',0,'gA==','38v8efmc',1,0,'',20,0,0),(42159,8908,6,36,0,'164.77.81.210',1195655763,1,0,1,1,1,1,'','Codigo de Autorización','Estimados\n\nTengo el siguiente problemilla, que hay ocasiones que el sistema necesita una clave maestra para poder siguir el proceso, pero hay que ir al puesto de trabajo e ingresarla, pero la idea es que el sistema pida como un codigo de autorizacion y por telefono darle el codigo, alguien a hecho algo parecido o alguna idea\n\ndesde ya se agradece..','',0,'gA==','oxpepioz',1,0,'',36,0,0),(42160,8909,6,596,0,'85.62.69.206',1195657882,1,0,1,1,1,1,'','Formato ficheros WAB (Libreta de direcciones)','Necesito pasar datos de la \"Libreta de direcciones\" de Windows a DBF.\n\n¿ Alguien conoce el formato de este tipo de ficheros ?\n\nTiene la extension WAB.\n\nGracias  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','36dzssq1',1,0,'',596,0,0),(42161,8908,6,106,0,'85.34.123.173',1195657990,1,0,1,1,1,1,'','','Que es lo que necesitas, hacer teleasistencia o un codigo de autorizacion para poder usar tu programa?\n\nComo teleasistencia puedes usar varias opciones, algunas de pago y otras free. Desktop remoto de windows, vnc, ultravnc, logmein...\n\nespero te sirva.','',0,'gA==','2d9039iw',1,0,'',106,0,0),(42162,8910,6,75,0,'83.38.77.34',1195658144,1,0,1,1,1,0,'','Letra DNI','¿Tiene alguien una función para validar las letras de los DNI en España?. Tengo entendido que la letra es el resultado de un cálculo con los números.\n\nGracias.','',0,'gA==','17dq52qt',1,0,'',75,0,0),(42163,8796,3,400,0,'201.68.33.102',1195659022,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:k843f33i]XBrowse with Gradient Fill\n\n[url=http&#58;//imageshack&#46;us:k843f33i][img:k843f33i]http&#58;//img228&#46;imageshack&#46;us/img228/8683/xbrowseyv8&#46;png[/img:k843f33i][/url:k843f33i]\n\nWorks on 32-bt and 16-bit colors[/quote:k843f33i]\n\nWhich are the nRGB (), done use in this Header and in Footers?\n\nRegards, Ale','',0,'mA==','k843f33i',1,0,'',400,0,0),(42164,8910,6,456,0,'62.43.24.65',1195659240,1,0,1,1,1,1,'','','[code:1cu399k7]\nFUNCTION LetraDni&#40;nDni&#41;\n    LOCAL aLetra&#58;=&#123;&quot;T&quot;,&quot;R&quot;,&quot;W&quot;,&quot;A&quot;,&quot;G&quot;,&quot;M&quot;,&quot;Y&quot;,&quot;F&quot;,&quot;P&quot;,&quot;D&quot;,&quot;X&quot;,&quot;B&quot;,;\n                   &quot;N&quot;,&quot;J&quot;,&quot;Z&quot;,&quot;S&quot;,&quot;Q&quot;,&quot;V&quot;,&quot;H&quot;,&quot;L&quot;,&quot;C&quot;,&quot;K&quot;,&quot;E&quot;&#125;\nRETURN &#40;aLetra&#91;&#40;nDni-&#40;Int&#40;nDni/23&#41;*23&#41;&#41;+1&#93;&#41;[/code:1cu399k7]','',0,'AIA=','1cu399k7',1,0,'',456,0,0),(42165,8427,6,2,0,'87.218.146.139',1195661388,1,0,1,1,1,1,'','','Pedro,\n\nEn que resolución de colores estaba antes ?','',0,'AIA=','1uipxp5p',1,0,'',2,0,0),(42166,8907,3,2,0,'87.218.146.139',1195661519,1,0,1,1,1,1,'','','Pier,\n\nThats because the pushbutton is a default pushbutton and traps the Enter key','',0,'AIA=','10h7m6f2',1,0,'',2,0,0),(42167,8905,3,2,0,'87.218.146.139',1195661642,1,0,1,1,1,1,'','','We have created a new Class TPreview and it detects if the main window is MDI and if yes, then the preview window is created as a mdichild.\n\nYou can modify the rpreview.prg source code to avoid this, if you prefer the preview to be in a different window apart from the MDI environment','',0,'AIA=','8nu89zge',1,0,'',2,0,0),(42168,8893,3,6,0,'87.3.232.72',1195662537,1,0,1,1,1,1,'','','Already found, thank you.\n\nEMG','',0,'AIA=','2q9dmyrh',1,0,'',6,0,0),(42169,8909,6,174,0,'83.230.243.215',1195664638,1,0,1,1,1,0,'','','Con Outlook Express:\n\nArchivo&gt;Exportar&gt;Otra Libreta de direcciones... [Intro]\n\n        Archivo de Texto(Valores separados por comas)\n\nTe da el fichero plano separado por comas (CSV). Las primeras lineas son la cabecera del fichero.\n\n\nDespués lo importas con SDF','',0,'','zxc6nnyn',1,0,'',174,0,0),(42170,8900,3,2,0,'87.218.146.139',1195664692,1,0,1,1,1,1,'','','Enrico,\n\nIn Class TBtnBmp please replace:\n[code:3h9j3ah8]\n         &#58;&#58;Say&#40; 2 * &#40; &#58;&#58;nHeight / 3 &#41; + If&#40; &#58;&#58;lPressed, 1, 0 &#41;,;\n                &#40; &#58;&#58;nWidth / 2 &#41; - &#40; GetTextWidth&#40; &#58;&#58;hDC, &#58;&#58;cCaption,;\n                &#58;&#58;oWnd&#58;oFont&#58;hFont &#41; / 2 &#41; + If&#40; &#58;&#58;lPressed, 1, 0 &#41;,;\n                &#58;&#58;cCaption, nClr,, &#58;&#58;oWnd&#58;oFont, &#46;T&#46;, &#46;T&#46; &#41;\n[/code:3h9j3ah8]\nwith\n[code:3h9j3ah8]\n         nTop = 2 * &#40; &#58;&#58;nHeight / 3 &#41; + If&#40; &#58;&#58;lPressed, 1, 0 &#41; + If&#40; At&#40; CRLF, &#58;&#58;cCaption &#41; == 0, 5, 0 &#41; \n         SetBkMode&#40; &#58;&#58;hDC, 1 &#41;\n         hOldFont = SelectObject&#40; &#58;&#58;hDC, &#58;&#58;oWnd&#58;oFont&#58;hFont &#41;         \n         DrawText&#40; &#58;&#58;hDC, &#58;&#58;cCaption,;\n                   &#123; nTop - 5, If&#40; &#58;&#58;lPressed, 1, 0 &#41;, nTop + &#58;&#58;nHeight / 3, &#58;&#58;nWidth + If&#40; &#58;&#58;lPressed, 1, 0 &#41; &#125;,;\n                   nOr&#40; DT_VCENTER, DT_CENTER, DT_WORDBREAK &#41; &#41;\n         SelectObject&#40; &#58;&#58;hDC, hOldFont &#41;          \n[/code:3h9j3ah8]\nYou need these defines:\n[code:3h9j3ah8]\n#define DT_CENTER           1\n#define DT_VCENTER          4\n#define DT_WORDBREAK       16\n[/code:3h9j3ah8]\n[url=http&#58;//imageshack&#46;us:3h9j3ah8][img:3h9j3ah8]http&#58;//img48&#46;imageshack&#46;us/img48/6335/enricoeq8&#46;png[/img:3h9j3ah8][/url:3h9j3ah8]\nThanks!','',0,'GIA=','3h9j3ah8',1,0,'',2,0,0),(42171,8866,6,43,0,'189.188.19.154',1195664727,1,0,1,1,1,0,'','','ya probaste analizar la tabla con algun administrador para mysql.\n\nSi aun no te levanta el servidor mysql, te recomiendo volver a instalarlo, en una carpeta diferente y copies solo la carpeta de tu base de datos a la nueva instalación.\n\n\nSaludos\nMarco A. Delgado','',0,'GIA=','1ctjiers',1,0,'',43,0,0),(42172,8427,6,106,0,'85.34.123.173',1195665047,1,0,1,1,1,1,'','','Antonio, \n\n1024x768 16 bits.','',0,'GIA=','1oxkyc2b',1,0,'',106,0,0),(42173,8893,3,2,0,'87.218.146.139',1195665302,1,0,1,1,1,1,'','','Enrico,\n\nWould you mind to post here the download url ? Thanks!','',0,'GIA=','24wsbrat',1,0,'',2,0,0),(42174,8427,6,2,0,'87.218.146.139',1195665426,1,0,1,1,1,1,'','','Pedro,\n\nGracias por la información. Tendremos que hacer más pruebas con colores de 16 bits','',0,'GIA=','24zaq71v',1,0,'',2,0,0),(42175,8796,3,400,0,'201.92.34.232',1195666531,1,0,1,1,1,1,'','','I already solved also, thank you!  \n\nRegards, Ale','',0,'GIA=','d5j1xzew',1,0,'',400,0,0),(42176,8796,3,400,0,'201.92.34.232',1195667625,1,0,1,1,1,1,'','','Resolved !\n\n<!-- m --><a class=\"postlink\" href=\"http://www.sbsistemas.eti.br/Bmp/xbrowse2.JPG\">http://www.sbsistemas.eti.br/Bmp/xbrowse2.JPG</a><!-- m -->\n\nRegards, Ale','',0,'GIA=','1ykg7vpy',1,0,'',400,0,0),(42177,8796,3,2,0,'87.218.146.139',1195668106,1,0,1,1,1,1,'','','Very nice! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','6twcq7wm',1,0,'',2,0,0),(42178,8908,6,812,0,'190.82.24.151',1195668533,1,0,1,1,1,0,'','','Patricio:\n\nHola, podrias hacerlo tipo consulta cheques, haces una llamada a un ejecutivo, el cual genera un codigo de autorizacion en un pc, guardas el codigo generado, la clave quien lo genero,  fecha, hora y punto solicitante, luego se entrega al solicitante, quien digita el codigo para ejecutar la opcion, guardas el codigo de autorizacion, clave del solicitante, fecha, hora y datos pricipales del documento que se este procesando, de esta forma tendras, todos los datos al momento de una fiscalizacion.\n\nTambien, podrias hacerlo via algun programa externo tipo Pc-Anywhere, programa que puede generar una llamada a un numero indicado, el cual permitira que una persona en un pc remoto, pueda realizar la digitacion de un codigo, desconectar y permitir que el solicitante puede proceder su proceso.\n\nSon las dos formas que conozco, espero te sirva.\n\nSaludos,\nMiguel Rivera \nSantiago,\ntu tienes mi cuenta del msn: <!-- e --><a href=\"mailto:riveraferrada@hotmail.com\">riveraferrada@hotmail.com</a><!-- e -->','',0,'GIA=','398kkjk1',1,0,'',812,0,0),(42179,8911,6,1104,0,'200.115.249.119',1195670093,1,0,1,1,1,0,'','Duda en reporte.','Hola a todos, \nTengo una duda con un reporte, necesito envíar un reporte a un archivo de word, probé poniendo extensión .doc y .rtf, pero no he logrado que respete los Font con los que creo el reporte.\nEstoy haciendo un Preview y también grabando en un archivo llamando dos veces la misma función pero cambiando un parametro que indica si es vista previa o envia a un archivo.\nEn la vista previa el reporte se emite con los fonts correctos pero en el archivo sale todo con el mismo font.\nAlguién sabe como puedo solucionar esto?\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'GIA=','27cjr536',1,0,'',1104,0,0),(42180,8908,6,36,0,'164.77.81.210',1195671108,1,0,1,1,1,1,'','','muchas Gracias por sus sugerencias\n\nEn realidad la finalidad de hacer esto es hacer responsable a las personas, y que mejor con un codigo de validación, asi no van a decir que. ¿ que la clave se la pase a tal fulano, que a lo mejor me vieron la clave, etc..','',0,'GIA=','qi8qnf12',1,0,'',36,0,0),(42181,8893,3,6,0,'87.3.232.72',1195671629,1,0,1,1,1,1,'','','Here it is:\n\n[url:1642994j]http&#58;//dev&#46;mysql&#46;com/downloads/connector/odbc/3&#46;51&#46;html[/url:1642994j]\n\nEMG','',0,'EA==','1642994j',1,0,'',6,0,0),(42182,8900,3,6,0,'87.3.232.72',1195671702,1,0,1,1,1,1,'','','I can wait for the new FWH release, thank you. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'EA==','10bwvizw',1,1195684216,'',6,1,0),(42183,8893,3,2,0,'87.218.146.139',1195671713,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','1o88d2z0',1,0,'',2,0,0),(42184,8900,3,2,0,'87.218.146.139',1195671777,1,0,1,1,1,1,'','','Enrico,\n\nIt will be available by early December <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','1a7kfnd4',1,0,'',2,0,0),(42185,8905,3,92,0,'81.44.83.144',1195672467,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1zoucnpt]We have created a new Class TPreview and it detects if the main window is MDI and if yes, then the preview window is created as a mdichild.\n\nYou can modify the rpreview.prg source code to avoid this, if you prefer the preview to be in a different window apart from the MDI environment[/quote:1zoucnpt]\n\nAntonio,\n\nno sería mejor poder disponer de un parámetro para evitar tener que tocar la clase cada vez que actualicemos?\n\nSaludos\nCarlso G.','',0,'gA==','1zoucnpt',1,0,'',92,0,0),(42186,8862,3,972,0,'81.164.117.253',1195672690,1,0,1,1,1,0,'','Re: Fix for FWH 7.11','[quote=&quot;Antonio Linares&quot;:3urx8b8j]This is a necesary fix for FWH 7.11 in Class TMsgBar:\n[code:3urx8b8j]\nMETHOD SetMsg&#40; cText &#41; CLASS TMsgBar\n\n   DEFAULT &#58;&#58;cMsg &#58;= &quot;&quot;\n   \n   if &#58;&#58;l2007\n      &#58;&#58;cMsg = cText\n      &#58;&#58;Refresh&#40;&#41;\n      return nil\n   endif   \n   \n   &#58;&#58;GetDC&#40;&#41;   // must be placed here!!!\n   &#46;&#46;&#46;\n[/code:3urx8b8j][/quote:3urx8b8j]\n\nWhat goes wrong if we don\'t do this fix?\n\nPatrick','',0,'gIA=','3urx8b8j',1,0,'',972,0,0),(42187,8862,3,2,0,'87.218.146.139',1195672770,1,0,1,1,1,1,'','','Patrick,\n\nIts a bad memory leak, as a hDC is created everytime the mouse is moved, and it is not released!\n\nThat fix should be applied inmediately if 2007 clause is used','',0,'gIA=','2ssoe3c4',1,0,'',2,0,0),(42188,8905,3,2,0,'87.218.146.139',1195672975,1,0,1,1,1,1,'','','Carlos, \n\nLa idea es afinar la clase TPreview y llegar a un punto en que no sea necesario modificarla. \n\nSon cambios importantes, que suponen grandes mejoras, pero que requiren de un tiempo de prueba, para asegurarnos que que no haya fallos posibles','',0,'gIA=','33fee7ca',1,0,'',2,0,0),(42189,8895,6,519,0,'80.31.154.36',1195675452,1,0,1,1,1,0,'','','Hola Fernando \n\n  Muy bonito este control, para cuando tienes pensado que este terminado  ?\n\n  y viaupdate  para cuando  ?  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n\n  un saludo','',0,'gIA=','o6vbl6am',1,0,'',519,0,0),(42190,8912,6,203,0,'200.25.207.122',1195675581,1,0,1,1,1,1,'','AYUDA CON TSBROWSE','Buenas Tardes amigos de foro\nMi problemas es que necesito en una determinada columna mediante una condicion obtener un resultado y cuando no se cumpla ingresar yo valor, no lo he logrado ya que ingreso un valor y me pone cero, el codigo es el siguiente.\n\n\n bData := { || If( oBrw:aArray[ oBrw:nAt, 6 ]  &gt; 0.00 , Obrw:aArray[ oBrw:nAt, 6 ] * (Obrw:aArray[ oBrw:nAt, 7 ]/100) , Obrw:aArray[ oBrw:nAt, 8 ] ) }\n\nGracias de antemano\nSaludos.\nOscar','',0,'','1l3y9wb6',1,0,'',203,0,0),(42191,8913,6,1146,0,'87.223.173.186',1195675790,1,0,1,1,1,0,'','problema extraño con get','Hola:\n\nTengo un comportamiento muy extraño con get: cuando le metes el número 208605040000027483 lo redondea y lo convierte en  208605040000027500 al darle al TAB o al OK, y no sé por qué razón, pues yo no quiero nada de eso.\n\n¿Alguien sabe por qué? Muchas gracias.\n\nEl código es:\n\n// Testing GETs\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n   LOCAL oDlg, oGet\n   LOCAL cCad := \"Testing    \" // pad(\"Testing Gets\",40)\n   LOCAL nNum := 0\n   LOCAL dDat := Date()\n\n   Set century On\n   Set Date Ansi\n   Set Date format \"mm/dd/yyyy\"\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg TITLE \"TGet from \" + FWDESCRIPTION\n                                                                                \n   @ 1.8,  2 SAY \"Number:\" OF oDlg\n   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 80, 10 PICTURE \"99999999999999999999999999\" \n\n\n   @ 3,    7 BUTTON \"&amp;Ok\" OF oDlg SIZE 30, 12 ACTION oDlg:End()\n   @ 3,   16 BUTTON \"&amp;Cancel\" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL\n\n   \n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//','',0,'','1zvv1q8m',1,0,'',1146,0,0),(42192,8883,7,1226,0,'200.88.5.101',1195675942,1,0,1,1,1,0,'','Utilizar el .rc en un Prg, para hacer .exe','[quote=&quot;Antonio Linares&quot;:30h6warz]Salvas los recursos en formato RC ó RES ?\n\nSegún sea el caso, revisa samples/buildh.bat para que veas como se construye el EXE llamando a ilink32.exe, y en su caso a brc32.exe para generar el RES a partir del RC[/quote:30h6warz]\n\n\nANTONIO, Thank..\n1-Ok, hago el diseño en resource Builder\n2-como lo utilizo en el .prg \n3-ejecuto Builce.bat + .prg, esto me crea el .exe','',0,'gA==','30h6warz',1,0,'',1226,0,0),(42193,8913,6,221,0,'200.109.0.102',1195676005,1,0,1,1,1,1,'','','creo no estoy seguro si se me salen los años que la longitud maxima en clipper de un numero son de 16 digitos, de hecho agarras un nuymero y lo conviertes a string y te da los 16 espacios, de todos modos no me creas mucho porque no estoy muy seguro','',0,'gA==','2dsouq5i',1,0,'',221,0,0),(42194,8866,6,221,0,'200.109.0.102',1195676395,1,0,1,1,1,1,'','','instala heidiSql','',0,'gA==','1kuxqgbx',1,0,'',221,0,0),(42195,8883,7,2,0,'87.218.146.139',1195676835,1,0,1,1,1,1,'','','Revisa en el directorio samples los ejemplos PRG que tambien tienen un fichero con el mismo nombre y extension RC, por ejemplo: tutor04.prg y tutor04.rc\n\nLee la documentación en el cápitulo referente a recursos: que son y cómo se usan','',0,'gA==','2wtzfx2s',1,0,'',2,0,0),(42196,2645,7,1226,0,'200.88.5.101',1195678724,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3vxra2ml]Manuel,\n\nNosotros proporcionamos un manual de referencia y otro de guia de programación, pero son tantos los conceptos que es preferible ir de lo más sencillo a lo más complejo. Por eso lo idóneo es comenzar revisando los ejemplos y haciendo tantas preguntas como necesites <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->[/quote:3vxra2ml]\n\nNecesito esos Manuales!!!!','',0,'gA==','3vxra2ml',1,0,'',1226,0,0),(42197,8912,6,774,0,'164.77.54.117',1195678878,1,0,1,1,1,1,'','','Si quieres ubicame por MSN,, estoy conectado casi siempre a ver q sacamos en claro... aca no somos muchos los q usamos TSBROWSE:::\n\nSALUDOS','',0,'gA==','9jnallpl',1,0,'',774,0,0),(42198,2645,7,2,0,'87.218.146.139',1195681036,1,0,1,1,1,1,'','','Te los acabamos de enviar a tu dirección de hotmail','',0,'gA==','2oaxht88',1,0,'',2,0,0),(42199,8912,6,36,0,'164.77.81.210',1195681443,1,0,1,1,1,1,'','','EasySoft\n\nYo lo utilzo de esta manera, a lo mejor te sirve\n\n[code:26kzdopw]ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 4;\n      HEADER &quot;Bruto&quot;+CRLF+&quot;Venta&quot; ;\n		PICTURE &quot;@E 99,999,999&#46;9&quot; ;\n		EDITABLE;\n		POSTEDIT &#40;;\n				  Articu-&gt;&#40; dbSeek&#40; oLbx&#58;aArray&#91;oLbx&#58;nAt,1&#93; &#41;&#41;,;\n				 _cbruto &#58;= oLbx&#58;aArray&#91;oLbx&#58;nAt,4&#93;,;\n				 _cdesc  &#58;= oLbx&#58;aArray&#91;oLbx&#58;nAt,5&#93;,;\n				 _netprod &#58;= round&#40;_cbruto - &#40;&#40;_cbruto * _cdesc&#41;/100&#41;,1&#41;,;\n				 ;\n				 iif&#40; alltrim&#40;oLbx&#58;aArray&#91;oLbx&#58;nAt,1&#93;&#41; &lt;&gt; &quot;TXT&quot; &#46;and&#46;  _netprod &lt; Articu-&gt;Ar_P_Med,;\n				 			MsgInfo&#40; &quot;Precio Unitario esta bajo el precio costo medio&quot;+CRLF+;\n										&quot;medio&#58;&quot;+trans&#40; Articu-&gt;Ar_P_Med,&quot;@E 99,999,999&quot; &#41;+CRLF+;\n										&quot;Vta  &#58;&quot;+trans&#40; Articu-&gt;&#40;vPrecioArt&#40;&#41;&#41;,&quot;@E 99,999,999&quot; &#41;, &quot;Revise&quot; &#41;, &quot;&quot; &#41;,;\n				oLbx&#58;aArray&#91;oLbx&#58;nAt,6&#93; &#58;= _netprod,;\n				oLbx&#58;aArray&#91;oLbx&#58;nAt,7&#93; &#58;= round&#40;_netprod*oLbx&#58;aArray&#91;oLbx&#58;nAt,3&#93;,0&#41;,;\n				_cbruto &#58;= 0,;\n				_cdesc &#58;= 0,;\n				_netprod &#58;= 0,;\n				Calculo&#40; oLbx, aGet, &#46;t&#46; &#41;   ;\n				  &#41;;\n		WHEN Docu_BF-&gt;&#40; !found&#40;&#41; &#41; ;\n		SIZE 82 PIXELS ;\n      3DLOOK TRUE,TRUE,FALSE ;  // cels, header, footer\n      ALIGN DT_CENTER,DT_CENTER,DT_CENTER ;   // cells, header, footer\n      COLORS CLR_HMAGENTA, RGB&#40; 255, 255, 235&#41;//COLORS CLR_BLACK, CLR_HGRAY\n[/code:26kzdopw]','',0,'AIA=','26kzdopw',1,0,'',36,0,0),(42200,8906,3,303,0,'72.220.100.171',1195681691,1,0,1,1,1,0,'','','Pedro,\n\nThis is from an old forum messge:\n\n------------------------------\n&gt; Like many on this NG, I\'ve been using FW for so long that I\'ve forgotten WHY\n&gt; I do certain things a certain way.\n&gt;\n&gt; On the basis of recommendations in the early years, I\'ve ALWAYS been in the\n&gt; habit of setting a numeric GET control in BRW as \"Text\" (not \"Number\"),\n&gt; \"Right\", \"Multiple line\"  (not \"Single line\").  Can anyone remind me why we\n&gt; were advised to create numerics as \"Multiple line\" and if the reasoning\n&gt; behind it is still relevant.  i.e Is there any down side to reverting to\n&gt; \"Single line\"?  What do you guys specify for your numeric GETs?\n&gt;\n\nThis is the only way to make get objects handling numeric vars to align them to the right properly.  What I do remember is that the height of the get has to be at lease 13 pixels or it will show nothing under Win 3.x.-----------------------\n\nJames','',0,'AIA=','32g0u4lg',1,0,'',303,0,0),(42201,8911,6,221,0,'200.109.0.102',1195681808,1,0,1,1,1,1,'','','has usado toleauto','',0,'AIA=','35aoiugm',1,0,'',221,0,0),(42202,8907,3,303,0,'72.220.100.171',1195681841,1,0,1,1,1,0,'','','Peir,\n\n&gt;Thats because the pushbutton is a default pushbutton and traps the Enter key.\n\nAnd this is standard Windows behavior. In the old DOS apps you could use Enter to select an item in a combo, but it is not advisable to do this with a windows app, since users will not be expecting it to work that way.\n\nJames','',0,'AIA=','18sjil8e',1,0,'',303,0,0),(42205,8900,3,6,0,'87.3.232.72',1195684231,1,0,1,1,1,1,'','','Great! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','12pfxee2',1,0,'',6,0,0),(42206,8900,3,49,0,'62.13.172.67',1195688028,1,0,1,1,1,1,'','','Antonio,\nHave you modify msgitem ( clock and date ) on msgbar ?','',0,'gA==','1tyu7yme',1,0,'',49,0,0),(42207,8906,3,34,0,'68.5.217.82',1195688669,1,0,1,1,1,1,'','Numbers','The edit control in the resource should be set as shown in this one:\n\n  CONTROL \"\", 403, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 104, 52, 56, 10\n\nOf course the ID number would be different, as would the last 4 digits identifying the control position and size.','',0,'gA==','hnkp4jiu',1,0,'',34,0,0),(42211,8914,19,2,0,'87.218.146.139',1195692119,1,0,1,1,1,1,'','HRH Leopard','[url=http&#58;//imageshack&#46;us:6d6f1ji6][img:6d6f1ji6]http&#58;//img208&#46;imageshack&#46;us/img208/9947/picture1ij4&#46;png[/img:6d6f1ji6][/url:6d6f1ji6]','',0,'GA==','6d6f1ji6',1,0,'',2,0,0),(42212,8915,20,49,0,'62.13.172.67',1195692151,1,0,1,1,1,1,'','Sei mancino ?????','Ho trovato un utilità per chi èun mancino ....senza offesa !!!\n\n[code:15kd2vs4]\n\n\n#include &quot;fivewin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n//per quelli mancini\nSwapMouseButton&#40;1&#41;\n\n// Normale\nSwapMouseButton&#40;0&#41;\n\nreturn nil\n******************************\nDLL32 FUNCTION SwapMouseButton&#40;swap AS 7&#41; AS 7 PASCAL LIB &quot;USER32&#46;dll&quot;[/code:15kd2vs4]\n\n\nE\' sola una funzione che scambia i bottoni del mouse  cosi anche i mancini possono cliccare .....','',0,'AIA=','15kd2vs4',1,0,'',49,0,0),(42213,8885,3,239,0,'121.32.166.120',1195698684,1,0,1,1,1,0,'','','Antonio,\n  buttonbmp always with border.\n TEXTBOTTOM clause seems not work,it always paint the text on the midle side of the button.\n\nRegards!\n\nShuming Wang','',0,'AIA=','2vuru14y',1,0,'',239,0,0),(42217,8893,3,239,0,'121.32.166.120',1195699106,1,0,1,1,1,0,'','','Use  harbour\\contrib\\Tmysql.prg ,without any windows setting ,direct TCP/IP using, like Xbase.\n   t1:=oserver:query(\"select * from table1 \")\n   t1:gotop()\n   t1:skip(1)\n   t1:fieldname1:=\"aaaa\"\n   t1:save()\n   t1:delete()\n   t1:end()\n  ...\n\n  Our modified tmysql.prg:\n  <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/tmysql.prg\">http://www.xtech.com.cn/down/tmysql.prg</a><!-- m -->\n  <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sample1.prg\">http://www.xtech.com.cn/down/sample1.prg</a><!-- m -->\n  <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/sample2.prg\">http://www.xtech.com.cn/down/sample2.prg</a><!-- m -->\n\nRegards!\nShuming Wang','',0,'AIA=','2hw3gj0u',1,0,'',239,0,0),(42218,8916,6,400,0,'201.92.34.232',1195704802,1,0,1,1,1,1,'','Problemas com la barra de la selección..xbrowse..twbrowse..','Yo tengo un Diálogo con un Browse y algunos botones que yo uso para cambiar de índice, pero, cuando cambiando la barra de la selección de Índice él no va a la 1º registración de Browse, se detiene en la misma registración.    \n    \nYo probé con TwBrowse nativo de FW y con el xBrowse.    \n    \nEn el caso del xBrowse la situación es más peor, el índice empieza donde esto detuvo la barra de la selección y no avanza hacia arriba. \n<!-- m --><a class=\"postlink\" href=\"http://www.sbsistemas.eti.br/Bmp/errobrowse.JPG\">http://www.sbsistemas.eti.br/Bmp/errobrowse.JPG</a><!-- m -->   \n    \nYa con Twbrowse de Hernan, funciona perfectamente.    \n    \n¿Cómo yo puedo resolver esta situación?\n\nSaluds','',0,'AIA=','1472hp72',1,0,'',400,0,0),(42219,8917,3,161,0,'213.119.247.208',1195714607,1,0,1,1,1,0,'','Checking for valid fieldname','Hi,\n\nMy program import data from an other system. These files include a parameter and info about this parameter. When I import it I create a fieldname with the same name as the parameter from the imported file. Till now I had no problem but a client wanted to import a file that contains wrong info. My program wanted to create a fieldname containing \'*\' and other strange characters. Is there a way to chech if a fieldname is correct?\n\nThanks,\nMarc','',0,'AIA=','2pmtptyd',1,0,'',161,0,0),(42220,8917,3,51,0,'80.122.88.242',1195716933,1,0,1,1,1,0,'','','Maybe this func could help you.\nRegards,\nOtto\n\nfunc f_isOK(cTest) \nlocal cReturn:=\"\"\nlocal i:=0 \n \nFOR I := 1 TO len(cTestl) \n\nIF ASC(substr(cTest,i,1)) &gt;= 33 .and.     ASC(substr(cTest,i,1)) &lt;= 90  \ncReturn:=cReturn+substr(cTest,i,1)\n\nelseif ASC(substr(cTest,i,1)) &gt;= 97 .and.     ASC(substr(cTest,i,1)) &lt;= 122  \ncReturn:=cReturn+substr(cTest,i,1)\n\nelseif ...\n\nENDIF \nNEXT\nreturn (cReturn)','',0,'AIA=','2eiybx2d',1,0,'',51,0,0),(42221,8902,20,1009,0,'82.187.221.169',1195717002,1,0,1,1,1,0,'','','FWH','',0,'AIA=','3mc5itme',1,0,'',1009,0,0),(42222,8910,6,838,0,'80.34.222.112',1195718055,1,0,1,1,1,0,'','','Y si no es persona fisica, aqui tienes para el calculo en personas juridicas.\n\n[code:qe7jg2zp]\n/*\n   ADAPTACION DE RUTINAS DEL CALCULO DEL NIF Y DEL CIF PARA PODER\n   INTRODUCIR CUALQUIERA DE LOS DOS DATOS A TRAVES DEL MISMO CAMPO\n*/\n\n// ***********************************************************************\n//  Esta rutina comprueba que el CIF es correcto&#46;\n//  CIF en formato !99999!!! &#40; A-&gt;letra, 9-&gt;N£mero, X-&gt;letra o n£mero &#41;&#46;\n\n//  OJO AL FORMATO !A9999!!!, ya que exiten DNI con numeros muy bajos\n//  de solo seis cifras&#46;\n\n//  Existen 3 tipos de sociedades&#58;\n//  - Sociedades Espa¤olas &#46;&#46;&#46;&#46; la £ltima cifra es un n£mero&#46;\n//  - Sociedades Especiales &#46;&#46;&#46; empiez&#46; por P, Q o S y acaban en letra&#46;\n//  - Sociedades Extranjeras &#46;&#46; el resto de las que acaban en letra&#46;\n\n//  letras de tipos de sociedades\n//  A -&gt; Sociedad An¢nima\n//  B -&gt; Sociedades Limitadas\n//  C -&gt; Sociedades Colectivas\n//  D -&gt; Sociedades Comanditarias\n//  E -&gt; Comunidades de Bienes\n//  F -&gt; Sociedades Cooperativas\n//  G -&gt; Asociaciones y otros tipos no definidos\n//  H -&gt; Comunidades de Propietarios\n//  P -&gt; Corporaci¢n local\n//  Q -&gt; Org&#46; Aut¢nomos Estables\n//  S -&gt; Org&#46; Dependientes de Admin&#46; Locales\n// ***********************************************************************\n\n*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±\n*+\n*+    Function Cheq_CIF&#40;&#41;\n*+\n*+    Called from &#40; empresa&#46;prg  &#41;   1 - function empresa&#40;&#41;\n*+                &#40; prove&#46;prg    &#41;   1 - function entreg&#40;&#41;\n*+\n*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±\n*+\nfunction Cheq_CIF&#40;cNif&#41;\n\nlocal cSoci   &#58;= &quot;ABCDEFGHPQS&quot;\nlocal cLetras &#58;= &quot;JABCDEFGHI&quot;\nlocal cSerie1 &#58;= &quot;TXLMK&quot;\nlocal cSerie2 &#58;= &quot;PQS&quot;\nlocal nPares  &#58;= 0\nlocal nNones  &#58;= 0\nlocal nNum\nlocal nTotal\nlocal nCompl\nlocal nCod\nlocal aLetras &#58;= &#123;\'R\',;\n                     \'W\',;\n                     \'A\',;\n                     \'G\',;\n                     \'M\',;\n                     \'Y\',;\n                     \'F\',;\n                     \'P\',;\n                     \'D\',;\n                     \'X\',;\n                     \'B\',;\n                     \'N\',;\n                     \'J\',;\n                     \'Z\',;\n                     \'S\',;\n                     \'Q\',;\n                     \'V\',;\n                     \'H\',;\n                     \'L\',;\n                     \'C\',;\n                     \'K\',;\n                     \'E\'&#125;\nlocal nPos\nlocal nCif\nlocal cLet\nlocal cLetraCif\nlocal ni\nif empty&#40;cNif&#41; &#46;or&#46; cNif=&quot;00000000 &quot;\n   // Permitimos que se pueda introducir un NIF o CIF vacio&#46;\n//   return &#46;T&#46;\n cNif&#58;=&quot;99999999 &quot;\nend if\n\nif isdigit&#40;substr&#40;cNif,1,1&#41;&#41;\n   // Al comenzar con un n§ lo tomamos como un NIF\n   cNif &#58;= padl&#40;alltrim&#40;cNif&#41;,9&#41;\n   nCif &#58;= val&#40;substr&#40;cNif,1,8&#41;&#41;\n   cLet &#58;= substr&#40;cNif,9,1&#41;\n\n   if nCif &lt;= 0\n      // No se permiten NIF menores o iguales a cero&#46;\n      MsgAlert&#40;&quot;NIF no puede ser menor o igual a CERO&quot;,&quot;INFORMACION&quot;&#41;\n      return &#46;F&#46;\n   end if\n\n   if isdigit&#40;cLet&#41;\n      // En el caso de no poner la letra, al no saberla, por ejemplo&#46;\n      cLet &#58;= &quot; &quot;\n      nCif &#58;= val&#40;cNif&#41;\n   end if\n\n   nPos &#58;= nCif % 23                    // Esto es para calcular la letra del NIF&#46;\n\n   if nPos == 0\n      cLetraCif &#58;= \'T\'\n   else\n      cLetraCif &#58;= aLetras&#91;nPos&#93;\n   end if\n\n   if cLet != cLetraCif\n      MsgAlert&#40;&quot;Letra de NIF erronea, deberia ser &quot;+cLetraCif,&quot;INFORMACION&quot;&#41;\n      return cLetraCif  //&#46;F&#46;\n   else\n      //          MsgInfo&#40; &quot; Correcto &quot;,&quot;Hemos atinado&quot; &#41;\n      return &quot;&quot;//&#46;T&#46;\n   end if\n\nend if\n\nif substr&#40;cNif,9&#41; == &quot; &quot;\n   MsgAlert&#40;&quot;Ultimo caracter debe ser un número o una letra&quot;+chr&#40;13&#41;+chr&#40;10&#41;+&quot;Te dejo que lo pongas, pero te aviso&quot;,&quot;INFORMACION&quot;&#41;\n   return &quot;000000000&quot;//&#46;F&#46;\nend if\n\nif !IsStrNum&#40;substr&#40;cNif,2,7&#41;&#41;\n   MsgAlert&#40;\'CIF erroneo&#46;\'+;\n                         substr&#40;cNif,2,7&#41;+;\n                         \' debe ser numérico&#46;\'+chr&#40;13&#41;+chr&#40;10&#41;+&quot;Te dejo que lo pongas, pero te aviso&quot;,\'INFORMACION\'&#41;\n   return &quot;000000000&quot;//&#46;F&#46;\nend if\n\nif at&#40;substr&#40;cNif,1,1&#41;,cSerie1&#41; &gt; 0\n   // NIF especial sin validaci¢n\n   return &quot;&quot;//&#46;T&#46;\nelse\n   // Validamos si existe la sociedad\n\n   if at&#40;substr&#40;cNif,1,1&#41;,cSoci&#41; == 0\n      MsgAlert&#40;\'CIF erroneo&#46; Letra \'+;\n                                   substr&#40;cNif,1,1&#41;+;\n                                   \' de Sociedad no existe&#46;\'+chr&#40;13&#41;+chr&#40;10&#41;+&quot;Te dejo que lo pongas, pero te aviso&quot;,\'INFORMACION\'&#41;\n      return &quot;000000000&quot;//&#46;F&#46;\n   else\n      // Todo este barullo es para calcular el £ltimo n£mero del CIF&#46;\n      for nI &#58;= 3 to 7 Step 2\n         nPares += val&#40;substr&#40;cNif,nI,1&#41;&#41;\n      next\n\n      for nI &#58;= 2 to 8 Step 2\n         nNum &#58;= val&#40;substr&#40;cNif,nI,1&#41;&#41; * 2\n         if nNum &gt;= 10\n            nNones += nNum - 9\n         else\n            nNones += nNum\n         end if\n      next\n\n      nTotal &#58;= nPares+nNones\n      if nTotal % 10 != 0\n         nCompl &#58;= &#40;int&#40;nTotal / 10&#41;+1&#41; * 10\n         nCod   &#58;= nCompl - nTotal\n      else\n         nCod &#58;= 0\n      end if\n      // Hasta aqu¡&#46;\n\n      if isdigit&#40;substr&#40;cNif,9&#41;&#41; &#46;and&#46; ;\n                       at&#40;substr&#40;cNif,1,1&#41;,cSerie2&#41; == 0\n\n         /* Sociedades Espa¤olas */\n         if val&#40;substr&#40;cNif,9&#41;&#41; == nCod\n            //                MsgInfo&#40; &quot; Correcto &quot;,&quot;Hemos atinado&quot; &#41;\n            return &quot;&quot;//&#46;T&#46;\n\n         else\n            MsgAlert&#40;OemToAnsi&#40;\'CIF erroneo&#46; El £ltimo n£mero debe ser \'&#41; ;\n                             +str&#40;nCod,1&#41;+chr&#40;13&#41;+chr&#40;10&#41;+&quot;Te dejo que lo pongas, pero te aviso&quot;,\'INFORMACION\'&#41;\n            return &quot;000000000&quot;//&#46;F&#46;\n         end if\n\n      else          // sociedades especiales y extranjeras\n\n         if substr&#40;cLetras,nCod+1,1&#41; == upper&#40;substr&#40;cNif,9&#41;&#41;\n            //               MsgInfo&#40; &quot; Correcto &quot;,&quot;Hemos atinado&quot; &#41;\n            return &quot;&quot;//&#46;T&#46;\n         else\n            MsgAlert&#40;OemToAnsi&#40;\'CIF erroneo&#46; La £ltima cifra debe ser \'&#41; ;\n                             +substr&#40;cLetras,nCod+1,1&#41;+chr&#40;13&#41;+chr&#40;10&#41;+&quot;Te dejo que lo pongas, pero te aviso&quot;,\'INFORMACION\'&#41;\n            return &quot;000000000&quot;//&#46;F&#46;\n         end if\n\n      end if\n\n   end if\nend if\n\nreturn &#46;F&#46;\n\n[/code:qe7jg2zp]\n\nSaludos\n\nJose Luis','',0,'AIA=','qe7jg2zp',1,0,'',838,0,0),(42223,8885,3,2,0,'87.218.146.139',1195718892,1,0,1,1,1,1,'','','Shuming,\n\nIf you don\'t want border then you should use Class TBtnBmp','',0,'AIA=','160j0imh',1,0,'',2,0,0),(42224,8917,3,995,0,'81.11.193.29',1195718934,1,0,1,1,1,0,'','','Using charonly :\n\n[code:jy9dfnhy]\nLOCAL CharAllowed &#58;= &quot;&quot; , i , lOk\nFOR i &#58;= 65 TO 90\n  CharAllowed += CHR&#40;i&#41; + CHR&#40;i+32&#41;\nNEXT\n// Are numbers allowed in fieldnames ? If yes add the range 48-57\nlOk &#58;= &#40; LEN&#40;CharOnly&#40;CharAllowed,cString&#41; == LEN&#40;cString&#41; &#41;\nRETURN lOk   // Or CharOnly&#40;CharAllowed,cString&#41; \n[/code:jy9dfnhy]','',0,'AIA=','jy9dfnhy',1,0,'',995,0,0),(42225,8916,6,2,0,'87.218.146.139',1195719218,1,0,1,1,1,1,'','','Ale,\n\nPuedes hacer:\n\noBrw:GoTop()\nDbSeek( &lt;valor&gt; )\noBrw:Refresh()','',0,'AIA=','1kq7jk9k',1,0,'',2,0,0),(42226,8899,2,211,0,'83.35.93.157',1195720070,1,0,1,1,1,0,'','','Hola Antonio. Gracias por tu pronta respuesta. He encontrado el código que he de modificar, pero nunca había modificado una clase antes. Ahora, una vez modificado, ¿qué he de hacer? ¿tengo que enlazarlo con mis otros prgs, tengo que compilarlo, ...? perdona pero nunca antes lo he hecho. Gracias.','',0,'AIA=','fabpveug',1,0,'',211,0,0),(42227,8899,2,2,0,'87.218.146.139',1195720145,1,0,1,1,1,1,'','','Compilas el PRG y enlazas el OBJ como si fuese uno más de tu aplicación','',0,'AIA=','2sbwv9gj',1,0,'',2,0,0),(42228,8907,3,20,0,'87.3.215.57',1195720184,1,0,1,1,1,0,'','','Now I understand.\n\nThanks.\nPier Luigi','',0,'AIA=','1st74zy4',1,0,'',20,0,0),(42229,8918,3,995,0,'81.11.193.29',1195720187,1,0,1,1,1,0,'','fwh7.11 , errorsysw','Antonio ,\n\nAt line 357 i see :\n[code:1p0v2tmz]\n   if lRet == nil &#46;or&#46; &#40; !LWRunning&#40;&#41; &#46;and&#46; lRet &#41;\n      SET RESOURCES TO\n      ErrorLevel&#40; 1 &#41;\n      // Add these lines if using MDI child windows with dialogboxes\n      // for n = 1 to Len&#40; GetAllWin&#40;&#41; &#41;\n      //    if ValType&#40; GetAllWin&#40;&#41;&#91; n &#93; &#41; == &quot;O&quot;\n      //       GetAllWin&#40;&#41;&#91; n &#93;&#58;UnLink&#40;&#41;\n      //    endif   \n      // next   \n      QUIT              // must be QUIT !!!\n   endif\n\n[/code:1p0v2tmz]\n\nWhy are this lines not automatic included ? I suppose that when no MDI child windows are used len(GetAllWin()) = 0 ?\n\nIt has no sense that we have to check the source to make changes for our aplication\n\nAre MDI child windows with dialogboxes constructions as : \n[code:1p0v2tmz]\nDEFINE WINDOW oWndChild MDICHILD OF oWnd\nDEFINE DIALOG oDlg RESOURCE &quot;TESTXbrowse&quot; OF oWndChild \n[/code:1p0v2tmz]\n\nI don\'t use this contruction anymore , but i have a MDI window with \n[code:1p0v2tmz]\nDEFINE DIALOG oDlg RESOURCE &quot;TESTXbrowse&quot; OF oWnd \n[/code:1p0v2tmz]\n\nWhat i have to do in this case ?\n\nFrank','',0,'AIA=','1p0v2tmz',1,0,'',995,0,0),(42230,8900,3,2,0,'87.218.146.139',1195720207,1,0,1,1,1,1,'','','Silvio,\n\nNo, not yet','',0,'AIA=','sme8581s',1,0,'',2,0,0),(42231,8899,2,211,0,'83.35.93.157',1195720423,1,0,1,1,1,0,'','','Grande, grande, grande !!!','',0,'AIA=','3dfz3j08',1,0,'',211,0,0),(42232,8918,3,2,0,'87.218.146.139',1195720580,1,0,1,1,1,1,'','','Frank,\n\n&gt;\nAre MDI child windows with dialogboxes constructions as : \n[code:2qwsqzoe]\nDEFINE WINDOW oWndChild MDICHILD OF oWnd\nDEFINE DIALOG oDlg RESOURCE &quot;TESTXbrowse&quot; OF oWndChild \n[/code:2qwsqzoe]\n&gt;\n\nYes,\n\n&gt;\nI don\'t use this contruction anymore , but i have a MDI window with \n[code:2qwsqzoe]\nDEFINE DIALOG oDlg RESOURCE &quot;TESTXbrowse&quot; OF oWnd \n[/code:2qwsqzoe]\n\nWhat i have to do in this case ?\n&gt;\n\nNothing, that code is fine\n\nWe left that code there to be used on some circumstances where embedded dialogboxes are not properly destroyed','',0,'AIA=','2qwsqzoe',1,0,'',2,0,0),(42233,8919,3,2,0,'87.218.146.139',1195725070,1,0,1,1,1,1,'','OSX beauty','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=42211\">http://fivetechsoft.com/forums/viewtopic.php?p=42211</a><!-- m -->','',0,'AIA=','328i96dg',1,0,'',2,0,0),(42234,8920,6,2,0,'87.218.146.139',1195725124,1,0,1,1,1,1,'','OSX - pura belleza','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=42211\">http://fivetechsoft.com/forums/viewtopic.php?p=42211</a><!-- m -->','',0,'AIA=','1yzze7n3',1,0,'',2,0,0),(42235,2645,7,1185,0,'88.2.204.212',1195726378,1,0,1,1,1,1,'','','Antonio me podrías mandar esos manuales a mi también. Sería de gran ayuda para mí.\n\nGracias.','',0,'AIA=','3twx1x3h',1,0,'',1185,0,0),(42236,8913,6,1146,0,'87.223.173.186',1195726543,1,0,1,1,1,0,'','','Con números mayores funciona sin problemas. Lo que sucede es que algunas combinaciones numéricas, como la que he adjuntado, producen ese extrañísimo comportamiento.','',0,'AIA=','33ti2p77',1,0,'',1146,0,0),(42237,8914,19,972,0,'81.164.117.253',1195727706,1,0,1,1,1,0,'','Re: HRH Leopard','Antonio,\n\nI LOVE Apple. My co workers work in Windows, and they have to reboot, reformat etc.. My Apple? None of that. It just RUNS. Plain simple. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nAntonio, I wish you would develop FiveWin for Mac further. \n\nPatrick','',0,'AIA=','3hydc4py',1,0,'',972,0,0),(42238,8862,3,972,0,'81.164.117.253',1195728018,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:ay4nf9be]Patrick,\n\nIts a bad memory leak, as a hDC is created everytime the mouse is moved, and it is not released!\n\nThat fix should be applied inmediately if 2007 clause is used[/quote:ay4nf9be]\n\nOk, thank you.\n\nPatrick','',0,'gA==','ay4nf9be',1,0,'',972,0,0),(42239,8893,3,392,0,'201.1.1.96',1195728144,1,0,1,1,1,1,'','','If DB is MySQL, try:\n<!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/fw/dbf2sql-2.4.zip\">http://www.sqllib.com.br/fw/dbf2sql-2.4.zip</a><!-- m -->','',0,'gA==','32e0ngii',1,0,'',392,0,0),(42240,8902,20,6,0,'79.19.244.217',1195729274,1,0,1,1,1,1,'','','[quote=&quot;marzio&quot;:dvbnpwc2]FWH[/quote:dvbnpwc2]\n\nAllora usa FWVERSION. Da fivewin.ch:\n\n[code:dvbnpwc2]#define FWVERSION     &quot;FWHX 7&#46;11&quot;[/code:dvbnpwc2]\n\nPer l\'altra domanda devi sentire Antonio.\n\nEMG','',0,'gIA=','dvbnpwc2',1,0,'',6,0,0),(42241,8917,3,161,0,'213.119.247.208',1195729563,1,0,1,1,1,0,'','','Otto, Frank,\n\nThanks for the info. I will try it.\n\nMarc','',0,'gIA=','7ve7xnrt',1,0,'',161,0,0),(42242,8914,19,2,0,'87.218.146.139',1195731090,1,0,1,1,1,1,'','','Patrick,\n\nI love OSX, its an incredible operating system. Mac users don\'t realize the power that they have <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIts simply amazing the power that OSX provides. I don\'t stop learning from it. I love its architecture. The more I learn its internals the more I am more and more fascinated with it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWindows is technically years behind it. I wish that Apple realizes that OSX is too important to keep it just for Mac hardware. This operating system needs to be available for all the modern hardware.\n\nFiveMac will continue because I can\'t stop loving this operating system <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','2yjs87cs',1,0,'',2,0,0),(42243,2645,7,2,0,'87.218.146.139',1195732049,1,0,1,1,1,1,'','','Juan Antonio,\n\nEnviados <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nDe todas formas vamos a revisar los ficheros del FTP, porque estabamos convencidos de que estos manuales estan incluidos.','',0,'gIA=','2l68di3q',1,0,'',2,0,0),(42244,8921,3,1158,0,'200.233.185.181',1195732793,1,0,1,1,1,0,'','menus 2007','HI, clause omenu:l2007 := .t. is working only in main menu, but menuitens still in normal mode.\n\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'gIA=','3tzts9rv',1,0,'',1158,0,0),(42245,8914,19,20,0,'62.94.208.218',1195735445,1,0,1,1,1,0,'','','Also I love Mac  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGo Antonio, go  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nPier luigi','',0,'gIA=','2cg2el55',1,0,'',20,0,0),(42246,8922,3,330,0,'217.37.54.49',1195738381,1,0,1,1,1,0,'','Set Multiple','Hi all\nIf I call SetMultiple(.F.) at the tope of my main function this does not prevent my app from running more than once on the same PC\n\nIs there something else that I should be doing\n\nThanks\nPeter','',0,'gIA=','atwz6rep',1,0,'',330,0,0),(42247,8326,6,106,0,'85.34.123.173',1195739976,1,0,1,1,1,1,'','','Antonio, \n\n\nSe podrán implementar las modificaciones hechas por Biel para xbrowse, asi no hay que modificar la clase cada vez que actualizamos?\n\n\ngracias\n\n\nP.D. Hice las modificaciones en la xbrowse incluida en FWH0711 para poder poner los footers, pero no me muestra el estilo 2007, por lo que supongo que lo que descargué es anterior a las librerias que me enviaste mas tarde.','',0,'gIA=','1b2yf8z4',1,0,'',106,0,0),(42248,8922,3,86,0,'81.83.151.142',1195740646,1,0,1,1,1,1,'','','Peter,\n\nYou could add this code at the beginning of your main function :\n\n[code:2dvdqapy]IF IsExeRunning&#40;cFileName&#40;HB_ARGV&#40;0&#41;&#41;&#41;\n   MsgAlert&#40;&quot;Your application is already running !&quot;,&quot;Attention&quot;&#41;\n   Quit\nENDIF[/code:2dvdqapy]\nThis function tests if your current application is already running on your system.\n\nGood luck.','',0,'AIA=','2dvdqapy',1,1195746086,'',86,1,0),(42249,8913,6,316,0,'213.97.245.163',1195742452,1,0,1,1,1,0,'','','Moises,\n\nel comportamiento no es para nada extraño, es el esperado. El tipo numérico en Clipper/Harbour puede ser LONG o DOUBLE, segun sea el valor almacenado.\nLONG tiene un rango de valores de -2147483648 al 2147483647. \n<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/Tipo_de_dato_entero\">http://es.wikipedia.org/wiki/Tipo_de_dato_entero</a><!-- m -->\n\nSuperados los límites del LONG, el número se almacena como DOUBLE con las limitaciones del caso: Valor absoluto de 5.0 x 10^–324  a 1.7 x 10^308, con [b:3w572uhw]15 o 16 dígitos significativos[/b:3w572uhw]. En tu caso superas esos dígitos significativos, por lo que no puede representar los últimos de manera exacta y tiene el comportamiento que tu comentas.\n\n<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/Double\">http://es.wikipedia.org/wiki/Double</a><!-- m -->\n\nUn saludo,\n\nCarlos.[/b]','',0,'QA==','3w572uhw',1,0,'',316,0,0),(42250,8922,3,330,0,'217.37.54.49',1195742672,1,0,1,1,1,0,'','','Many thanks that works well','',0,'QA==','3vxpa759',1,0,'',330,0,0),(42251,8921,3,2,0,'87.218.146.139',1195744099,1,0,1,1,1,1,'','','Norberto,\n\nYou have to use the clause 2007 when you create the MENU:\n\nMENU oMenu 2007\n\nif you modify it later on, it will not properly work','',0,'QA==','gbhbdwcv',1,0,'',2,0,0),(42252,8923,3,6,0,'79.19.244.217',1195744385,1,0,1,1,1,1,'','Bug in nDbl2Flt()','This is the fixed line:\n\n[code:1zd0rvdg]ui = &#40; &#40; short * &#41;&#40; &amp;d &#41; &#41;&#91;3&#93; &amp; 0xfff0;             // Get exponent[/code:1zd0rvdg]\n\nNote short type instead of int.\n\nEMG','',0,'AIA=','1zd0rvdg',1,0,'',6,0,0),(42253,8916,6,400,0,'201.92.34.232',1195744826,1,0,1,1,1,1,'','','Perfect, Mestre !\n\nSaluds','',0,'AIA=','1gliwdz1',1,0,'',400,0,0),(42254,8924,6,36,0,'164.77.81.210',1195745336,1,0,1,1,1,1,'','FileXLS','Estimados\n\nAl exportar sobre 5921 registro el excel me arroja un mensaje \"Excel ha encontrado contenido que no se puede leer en ...desea recuperarlo..\"\n\nPero si exporto menos de 5921 no tiene ningun problema\n\nAlguien sabe como solucionar este comportamiento?\n\ndesde ya muchas gracias','',0,'AIA=','1lrf7s8k',1,0,'',36,0,0),(42255,8921,3,1158,0,'200.139.130.7',1195746000,1,0,1,1,1,0,'','','i try like this:\n\n#Define _2007_ .T.\n\n.\n.\n.\nMENU oWndMnuMain\n\noMainMenu:l2007  := _2007_\n.\n.\n.\nBUT ONLY menumain (top) is 2007, menuitems still in normal mode.','',0,'AIA=','2ykqg92d',1,0,'',1158,0,0),(42256,8913,6,1146,0,'87.223.173.186',1195746380,1,0,1,1,1,0,'','','Carlos:\n\nMuchas gracias por tu respuesta. La verdad, siempre tan atinado y experto en tus aportes al foro <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->. Supongo que no podré hacer nada por arreglarlo, verdad?\n\nOtra cosilla, ¿dónde puedo encontrar información del MIDAS- generador de informes?. Creo que es de Binguen, verdad?.\n\nMuchas gracias por todo. \n\nUn saludo','',0,'AIA=','2j6p15kp',1,0,'',1146,0,0),(42257,8766,4,1218,0,'81.84.76.100',1195748262,1,0,1,1,1,0,'','','Hi again !\n\nI already copy the two files to the directory, but now when i make buildce.bat, give this error:\n\ncoredll.lib(COREDLL.dll) : fatal error LNK12: module machine type \'THUMB\' conflicts with target machine type \'ARM\'\n...\n...\n* Application successfully built\n\nBut the EXE file is not created.\n\nRegards.','',0,'AIA=','21h2nq8s',1,0,'',1218,0,0),(42258,8916,6,400,0,'201.92.34.232',1195748399,1,0,1,1,1,1,'','','Antonio...\n\nDelcupe-yo ..I sólo había probado con TwBrowse de Fivewin.    \n    \nAhora yo probé con el xBrowse y el problema de la barra de la selección continúa, los índices son perfectos, pero, la barra de la selección no se levanta para la 1º registración.    \n    \nCuando cambiando la barra de índice él se posiciona en la registración seleccionada y mí la necesidad Barra para levantarse para la 1º registración.    \n    \n¿Qué yo puedo estar haciendo extraviarse?\n\n[code:1nsixd95]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;&#46;\\include\\AleSB&#46;Ch&quot;  //--&gt; Minhas Fontes e Cores\n#include &quot;xbrowse&#46;ch&quot; \n\nFUNCTION Brw_Contatos&#40;&#41;\n\n local oDlg, oBrw, oCol, oBtn&#91;8&#93;, oFont\n \n USE &#46;\\SB_Dados\\contatos&#46;dbf Alias Contatos NEW VIA &quot;DBFCDX&quot;\n      INDEX ON nome TAG inome TO ixContTable\n      INDEX ON sobr TAG isobr TO ixContTable\n      INDEX ON ende TAG iende TO ixContTable\n      INDEX ON cida TAG icida TO ixContTable              \n      INDEX ON codi TAG icodi TO ixContTable\n     \n   dbSetIndex&#40;&quot;ixContTable&quot;&#41;   \n   OrdSetFocus&#40;&quot;inome&quot;&#41;\n   DbGotop&#40;&#41;\n   \n  \n  DEFINE DIALOG oDlg RESOURCE 1001 TITLE &quot;LISTA DOS CONTATOS&quot; \n     oDlg&#58;oFont&#58;=Arial12B\n     oDlg&#58;lTransparent&#58;=&#46;T&#46;\n  \n     oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;     \n       oBrw&#58;CreateFromResource&#40; 101 &#41;  //--&gt; Chamada ao Resource Browse&#46;\n       oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW  //--&gt; Estilo da barra de seleçao&#46;       \n       oBrw&#58;bClrSelFocus &#58;= &#123;|| &#123; CLR_BRANCO, CLR_PRETO &#125; &#125;  //--&gt; Cor da barra de seleçao&#46;\n       oBrw&#58;bGotop&#58;= &#123;|| oBrw&#58;gotop&#40;&#41; &#125; \n\n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || STR&#40;codi&#41;&#125;\n       oCol&#58;cHeader &#58;= &quot;CÓDIGO&quot;\n       \n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || nome&#125;\n       oCol&#58;cHeader &#58;= &quot;NOME&quot;\n      \n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || sobr&#125;\n       oCol&#58;cHeader &#58;= &quot;SOBRENOME&quot;\n       \n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || ende&#125;\n       oCol&#58;cHeader &#58;= &quot;ENDEREÇO&quot;\n       \n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || ncep&#125;\n       oCol&#58;cHeader &#58;= &quot;CEP&quot;\n       \n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || cida&#125;\n       oCol&#58;cHeader &#58;= &quot;CIDADE&quot;\n       \n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || esta&#125;\n       oCol&#58;cHeader &#58;= &quot;UF&quot;\n       \n       oCol&#58;= oBrw&#58;AddCol&#40;&#41;\n       oCol&#58;bStrData &#58;= &#123; || obs1&#125;\n       oCol&#58;cHeader &#58;= &quot;NOTAS&quot;\n		 \n       oBrw&#58;SetRDD&#40;&#46;F&#46;&#41;  //--&gt; Add todos os campos do DBF&#46;      \n       \n\n\n	  REDEFINE BUTTON oBtn&#91;5&#93; PROMPT &quot;Nome&quot;      ID 705 OF oDlg   ;\n        ACTION &#40; _Ordem&#40;oBrw,&quot;inome&quot;&#41;, oBrw&#58;SetFocus&#40;&#41; &#41;  UPDATE\n     REDEFINE BUTTON oBtn&#91;6&#93; PROMPT &quot;Sobrenome&quot; ID 706 OF oDlg   ;\n        ACTION &#40; _Ordem&#40;oBrw,&quot;isobr&quot;&#41;, oBrw&#58;SetFocus&#40;&#41; &#41;  UPDATE\n     REDEFINE BUTTON oBtn&#91;7&#93; PROMPT &quot;Ender&#46;&quot;    ID 707 OF oDlg   ;\n        ACTION &#40; _Ordem&#40;oBrw,&quot;iende&quot;&#41;, oBrw&#58;SetFocus&#40;&#41; &#41;  UPDATE        \n     REDEFINE BUTTON oBtn&#91;8&#93; PROMPT &quot;Cidade&quot;    ID 708 OF oDlg   ;\n        ACTION &#40; _Ordem&#40;oBrw,&quot;icida&quot;&#41;, oBrw&#58;SetFocus&#40;&#41; &#41;  UPDATE\n     FOR i = 1 TO 8\n         oBtn&#91;i&#93;&#58;oFont&#58;= Courier12         \n     NEXT    \n     \n                 \n ACTIVATE DIALOG oDlg CENTERED VALID lSair \n\n CLOSE DATA\n\nRETURN nil\n*****************************\n****************************\nSTATIC FUNCTION _Ordem&#40;_oBrw,cTag&#41;\n\n  OrdSetFocus&#40;cTag&#41;\n  _oBrw&#58;bGotop &#58;= &#123;|| _oBrw&#58;gotop&#40;&#41; &#125;   \n  _oBrw&#58;Refresh&#40;&#41;\n \n Return &#46;T&#46;\n[/code:1nsixd95]\n\nSaluds','',0,'AIA=','1nsixd95',1,0,'',400,0,0),(42259,8925,3,86,0,'81.83.151.142',1195748413,1,0,1,1,1,1,'','Question about the buttonbar','Hello,\n\nIn my buttonbar, I\'d like to change the icon of one button to give a certain indication to the user.\n\nHow can I do this ?\n\nThank you','',0,'AIA=','3hzzhb0r',1,0,'',86,0,0),(42260,8914,19,255,0,'201.122.36.212',1195753588,1,0,1,1,1,1,'','','Mac OS X ....... is there something better ??? i dont think so... <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->\n\ni\'ve been using Mac from 2 years ago and i wont go back to windows.','',0,'AIA=','1j962hmh',1,0,'',255,0,0),(42261,8906,3,425,0,'81.84.76.100',1195754593,1,0,1,1,1,0,'','','Hi \n\nTanks for your replies.\n\nThe solution is specify in workshop \"multiple lines\".\n\nBest regards','',0,'AIA=','2fs1848r',1,0,'',425,0,0),(42262,8925,3,6,0,'87.18.233.59',1195758119,1,0,1,1,1,1,'','Re: Question about the buttonbar','Try using SetFile() method of TBtnBmp class.\n\nEMG','',0,'AIA=','2pj5qsby',1,0,'',6,0,0),(42263,8923,3,2,0,'87.218.146.139',1195758239,1,0,1,1,1,1,'','','Enrico,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1j3urdup',1,0,'',2,0,0),(42264,8924,6,960,0,'84.125.196.99',1195759122,1,0,1,1,1,0,'','','patricio,\n\nSi intentas exportar un DBF, posiblemente tengas algun registro corrupto y posiblemente sea el # 5921.\n\nYo utilizo esta clase en mis aplicaciones y corren perfectamente.\n\nRevisa tu DBF.\n\n1 saludo.\nLORENZO','',0,'AIA=','qmb5xwde',1,0,'',960,0,0),(42265,8801,18,1146,0,'87.223.173.186',1195759834,1,0,1,1,1,0,'','','Anotnio, \n\n¿Cómo vas con este error, pues nos corre cierta prisa?. Muchas gracias.  \n\nUn saludo, \n\nMoisés','',0,'AIA=','3boucsn6',1,0,'',1146,0,0),(42266,8921,3,2,0,'87.218.146.139',1195760508,1,0,1,1,1,1,'','','Norberto,\n\nDo it this way:\n[code:23vbdihg]\nif lUse2007 // Your user wants 2007 look\n   MENU oMenu 2007\n      &#46;&#46;&#46;\nelse\n   MENU oMenu\n      &#46;&#46;&#46;\nendif\n[/code:23vbdihg]','',0,'AIA=','23vbdihg',1,0,'',2,0,0),(42267,8924,6,36,0,'164.77.81.210',1195760912,1,0,1,1,1,1,'','','Lorenzo, Gracias por responder\n\nEn realidad ya se cual fue el problema, resulta que excel \ntiene varias limitaciones, y una de estas era la cantidad de caracteres\npor columnas, si que se la saque y funciona perfectamente\n\ndejo el link por si alguien quere verlo\n\n[url:1mqydk30]http&#58;//office&#46;microsoft&#46;com/es-es/excel/HP051992913082&#46;aspx[/url:1mqydk30]','',0,'EA==','1mqydk30',1,0,'',36,0,0),(42268,8912,6,203,0,'201.217.107.193',1195761276,1,0,1,1,1,1,'','','Gracias\nA&amp;C y Patricio si tengo alguna pregunta les molesto otra vez\n\n\nSaludos\nOscar','',0,'EA==','26fkas2d',1,0,'',203,0,0),(42269,8766,4,2,0,'87.218.146.139',1195761365,1,0,1,1,1,1,'','','Change this inside buildce.bat:\n\n\"MACHINE:ARM\" --&gt; \"MACHINE:THUMB\"','',0,'EA==','3ig5xqln',1,0,'',2,0,0),(42270,8801,18,2,0,'87.218.146.139',1195761687,1,0,1,1,1,1,'','','Si tienes instalados los drivers de esa impresora en el ordenador local, tiene que funcionarte todo correctamente','',0,'EA==','bziw16xm',1,0,'',2,0,0),(42271,8801,18,1146,0,'87.223.173.186',1195763210,1,0,1,1,1,0,'','','Si, en el ordenador local funciona OK, pero no en red, que es lo que necesitamos, pues el programa está en red.\n\nMuchas gracias.','',0,'EA==','6f0xsbx9',1,0,'',1146,0,0),(42272,8326,6,2,0,'87.218.146.139',1195763469,1,0,1,1,1,1,'','','Biel,\n\n&gt; Yo añadi un data a la clase TXBrwColumn, el data bStrFooter, que contiene un codeblock que nos debe retornar lo que queremos visualizar en el pie de la columna. \n\nImplementado como bFooter, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','2jbjn1e6',1,0,'',2,0,0),(42273,8922,3,51,0,'80.122.88.242',1195763471,1,0,1,1,1,0,'','','What do you pass as cFileName - the name of the EXE or the Title of the window? Does it work if the exe is minimized?\nRegards,\nOtto','',0,'EA==','1af9wda5',1,0,'',51,0,0),(42274,8801,18,2,0,'87.218.146.139',1195763551,1,0,1,1,1,1,'','','Me refiero a que aunque esté en red, en cada ordenador en donde se use la aplicación, tienen que estar instalados los drivers de la impresora remota','',0,'EA==','1agspfcc',1,0,'',2,0,0),(42275,8922,3,2,0,'87.218.146.139',1195763939,1,0,1,1,1,1,'','','Otto,\n\nThe parameter is HB_ARGV(0) which it is the name and path of the EXE','',0,'EA==','3ean41ra',1,0,'',2,0,0),(42276,8872,3,51,0,'80.122.88.242',1195769607,1,0,1,1,1,0,'','','Hello Antonio,\ncould you please show the right way how to detect the drop folder?\n\nI tried with this function but I always get  different results depending on the length of the folder caption.\nRegards,\nOtto\n\nwhile nCol &gt; (nPos + (nTabSize := GetTextWidth( 0, Right(oFld:aPrompts[n],len(oFld:aPrompts[n])-1),    oFld:oFont) + iif(n=1,5,5)) ) .and. n &lt; Len(oFld:aPrompts)\n        nPos += nTabSize\n        n++\n    end\n\n\n\n\n*******************Test.prg\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n    local oDlg, oFld\n    LOCAL oBrw1\n    LOCAL oBrw2\n    local oCursor\n\n\n    DEFINE CURSOR oCursor HAND\n\n    USE fivetest New\n\n    DEFINE DIALOG oDlg TITLE \"FiveWin Dynamic folders\" ;\n        FROM 5, 5 TO 40, 150\n\n    @ 0.5, 10 FOLDER oFld PROMPT \"&amp;xBase Test drag position how to find\", \"&amp;And OOP\", \"&amp;Power\" ;\n        OF oDlg SIZE 160, 90\n\n    @ 1, 1 LISTBOX oBrw1 FIELDs  (fivetest-&gt;first) ;\n        HEADERS \"Name\"  ;\n        FIELDSIZES 140                                           ;\n        SIZE       140, 60  ;\n        OF oFld:aDialogs[ 1 ]\n\n\n    @ 1, 10 LISTBOX oBrw2 FIELDs  (fivetest-&gt;first) ;\n        HEADERS \"Name\"  ;\n        FIELDSIZES 140                                           ;\n        SIZE       140, 60  ;\n        OF oFld:aDialogs[ 2 ]\n\n    oBrw1:oDragCursor  := oCursor\n    oBrw2:oDragCursor  := oCursor\n\n    oFld:bDropOver = { |uDropInfo,nRow,nCol,nKeyFlags|ShowPos( nRow, nCol, oFld ) }\n\n    ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\nfunc ShowPos( nRow, nCol, oFld )\n    local nFolioNo\n    local cChk, n, cOrgChk\n    local nAmt\n    LOCAL cBezeichnung := \"\"\n    local nSatzNr := recno()\n    local aPoint\n\n    nFolioNo   := oFld:nOption\n    cOrgChk := str(oFld:nOption)\n    cChk := \'\'\n\n\n\n    if nRow &gt; 32000\n        nRow = - ( 65535 - nRow )\n    endif\n\n    if nCol &gt; 32000\n        nCol = - ( 65535 - nCol )\n    endif\n\n    aPoint = { nRow, nCol }\n\n    aPoint = ClientToScreen( GetFocus(), aPoint )\n    ScreenToClient( oFld:hWnd, aPoint )\n\n\n    cChk := str(TabChk( aPoint[ 2 ],oFld ),1)\n\nreturn\n\n*---------------------*\nFunction TabChk( nCol,oFld )\n    local n := 1, nPos := 0\n    local nTabSize := 0\n\n    while nCol &gt; (nPos + (nTabSize := GetTextWidth( 0, Right(oFld:aPrompts[n],len(oFld:aPrompts[n])-1), oFld:oFont) + iif(n=1,5,5)) ) .and. n &lt; Len(oFld:aPrompts)\n\n        msginfo(str(nCol)+  \"  \"  +str(n) +\"  \"+oFld:aPrompts[n] + str(GetTextWidth( 0, Right(oFld:aPrompts[n],len(oFld:aPrompts[n])-1), oFld:oFont))+\"  -  \"+str(nPos) )\n\n\n        nPos += nTabSize\n        n++\n    end\n    msginfo(\"Drop to \"+oFld:aPrompts[n])\nreturn n\n************************************************************','',0,'','1onz68h5',1,0,'',51,0,0),(42277,8909,6,596,0,'84.76.66.27',1195769912,1,0,1,1,1,1,'','','[quote=&quot;Moisoft&quot;:a2vdc9bp]Con Outlook Express:[/quote:a2vdc9bp]\nYa, pero quiero hacerlo SIN ayuda \"externa\".\nQuisiera programarlo y que fuera lo mas automatizado posible.\nDe ahi el formato, para poder leerlo, aunque sea binario.\n\nMoisoft, gracias de todos modos','',0,'gA==','a2vdc9bp',1,0,'',596,0,0),(42278,8922,3,6,0,'87.18.233.59',1195770765,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:wcebbqi3]What do you pass as cFileName[/quote:wcebbqi3]\n\nPlease note that cFileName() is a function.\n\nEMG','',0,'gA==','wcebbqi3',1,0,'',6,0,0),(42279,8925,3,303,0,'72.220.100.171',1195776194,1,0,1,1,1,0,'','','&gt;In my buttonbar, I\'d like to change the icon of one button to give a certain indication to the user. \n\nGenerally, I would advise against doing that. It is disconcerting to the user to have the button change into something else. The one exception would to be to gray it out (with the same icon) when disabled.\n\nI would be interested to know what you want to indicate?\n\nJames','',0,'gA==','3zkm484g',1,0,'',303,0,0),(42280,8922,3,303,0,'72.220.100.171',1195776715,1,0,1,1,1,0,'','','This works similar to the old 16bit way; if the EXE is already running it maximizes it and brings it to the foreground.\n\nJames\n\n9/15/2005 5:28 PM\nRun only 1 instance of an exe\n\n[code:xlakfpj0]// Author&#58; &quot;hua&quot; &lt;tomyam At rocketmail Dot com&gt;\n\n function main&#40;&#41;\n  if AlreadyRunning&#40;&#41;\n     return\n  endif\n  &#46;\n  &#46;\nreturn\n/**************************************************************************\n\n  If an exe is already running, bring window to front and maximize it&#46;\n\n  NOTE&#58; Though the exe is the same, but if it\'s being run from a different\n        path, they\'re considered different exe when using this routine&#46;\n*********/\n#include &quot;fivewin&#46;ch&quot;\n#define GW_HWNDFIRST     0\n#define GW_HWNDLAST         1\n#define GW_HWNDNEXT         2\n#define GW_HWNDPREV         3\n#define GW_OWNER         4\n#define GW_CHILD         5\n\n#define SW_SHOWMAXIMIZED 3\n\nfunction AlreadyRunning&#40;&#41;\n  local lRet &#58;= &#46;f&#46;, cMod &#58;= hb_Argv&#40; 0 &#41;, hWnd\n  if isExeRunning&#40; cFileName&#40; cMod &#41; &#41;\n     hWnd &#58;= findWindowByModuleFilename&#40; cMod &#41;\n     setForeGroundWindow&#40;hWnd&#41;\n     showWindow&#40; hWnd, SW_SHOWMAXIMIZED&#41;\n     lRet &#58;= &#46;t&#46;\n  endif\nreturn lRet\n//----------------------------------------------------------------------\nstatic function FINDWINDOWBYMODULEFILENAME&#40; cModuleFileName &#41;\n\n    LOCAL hWnd &#58;= getForegroundWindow&#40;&#41;, cFile, hRet\n\n    while hWnd != 0\n        cFile &#58;= getWindowModuleFilename&#40; hWnd &#41;\n        cFile &#58;= left&#40;cFile, len&#40;cFile&#41;-1&#41; // remove null-termination char\n        IF cFile == cModuleFileName\n           hRet &#58;= hWnd\n           exit\n        ENDIF\n\n        hWnd &#58;= getWindow&#40; hWnd, GW_HWNDNEXT &#41;\n    enddo\nreturn hRet\n//--------------------------------------------------------------------------\nDLL32 FUNCTION GETFOREGROUNDWINDOW&#40;&#41; AS LONG;\n      PASCAL FROM &quot;GetForegroundWindow&quot; LIB &quot;user32&#46;dll&quot;\n//--------------------------------------------------------------------------\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; GETWINDOWMODULEFILENAME &#41; // &#40; hWnd &#41; --&gt; cFileName\n&#123;\n    char szFileName&#91; 256 &#93;;\n\n    UINT wChar = GetWindowModuleFileName&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;,\nszFileName, 256 &#41;;\n\n    hb_retclen&#40; szFileName, wChar &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:xlakfpj0]','',0,'AIA=','xlakfpj0',1,0,'',303,0,0),(42281,8922,3,51,0,'80.122.88.242',1195805009,1,0,1,1,1,0,'','','Thanks to all.  Thank you James.\n\nI was too quick with my question.\nWhat I search is a method to bring the running prg to the forground.\n\nAt the moment I do the task the following way but I thought there would be a better  method without a fix coded Window title - as I check for a previous exe before I create the main window.\n\n\nif IsExeRunning( cFileName( HB_ARGV( 0 ) ) )\n      ShowApplication()\n   else\n        /*\n        Main Programm\n********** -&gt; On first start of the program I write   oWnd:cTitle()  to a ini-file. \n        */\nendif\n\nThen I test with IsExeRunning and if YES \nI call function ShowApplication  \nin the FindWnd() function I use the Window-title which is stored in the Ini-file.\n\nI will try as James suggested with FINDWINDOWBYMODULEFILENAME in stet of FindWnd().','',0,'AIA=','ntukkdew',1,0,'',51,0,0),(42282,8922,3,3,0,'80.81.159.19',1195805607,1,0,1,1,1,1,'','','Otto\n\nThis is a sample\n\n#include \"FiveWin.ch\"\n\n#define GW_CHILD      5\n#define GW_HWNDNEXT   2\n\nfunction Main()\n\n   local oWnd\n\n   if IsExeRunning( cFileName( HB_ARGV( 0 ) ) )\n      ShowApplication()\n   else\n      DEFINE WINDOW oWnd TITLE \"Test\"\n\n      ACTIVATE WINDOW oWnd\n   endif\n\nreturn nil\n\nfunction ShowApplication()\n\n   local hWnd := FindWnd( cFileNoExt( HB_ARGV( 0 ) ) )\n\n   if hWnd != nil\n      SetForeGroundWindow( hWnd )\n   endif\n\nreturn nil\n\nfunction FindWnd( cTitle )\n\n   local hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )\n\n   while hWnd != 0\n      if Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )\n         return hWnd\n      endif\n\n      hWnd = GetWindow( hWnd, GW_HWNDNEXT )\n   end\n\nreturn nil','',0,'AIA=','3k19k28k',1,0,'',3,0,0),(42283,8801,18,1146,0,'87.223.173.186',1195805831,1,0,1,1,1,0,'','','Sí claro. De hecho, pueden imprimir perfectamente con el resto de programas, por lo que no es un problema informático o de la red.\n\nTe comentaba la solución anterior para, al menos, lanzar el Preview, ya que lo he modificado para exportar a PDF y podría solucionar el problema.\n\nUn saludo,','',0,'AIA=','1pv3tmhe',1,0,'',1146,0,0),(42284,8801,18,2,0,'87.218.146.139',1195806651,1,0,1,1,1,1,'','','&gt; Te comentaba la solución anterior para, al menos, lanzar el Preview\n\nQue solución ?','',0,'AIA=','1nqfsp2b',1,0,'',2,0,0),(42285,8922,3,51,0,'80.122.88.242',1195806876,1,0,1,1,1,0,'','','Thank you Richard. Does this work on minimized?\nI tested your code but it does not bring a minimized window to the foreground.\nThis is my test:\nFindWnd1 is your code \n\nFindWnd1 \nhWnd = 36700336 and cTitle = xRechnung\nFindWnd the way with INI-file \nhWnd=38732612  and cTitle = W i n H o t e l * 2007-Juni  Demo     -     Computer-Nr:           5\nThis way it works. I use Vista.\n\nfunction FindWnd1( cTitle )\nlocal hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )\nmsginfo(cTitle )\nwhile hWnd != 0\nif Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )\nreturn hWnd\nendif\nhWnd = GetWindow( hWnd, GW_HWNDNEXT )\nend\nreturn nil\n\n\nfunction FindWnd( cTitle )\n   local hWnd := GetWindow( GetDesktopWindow(), GW_CHILD )\nmsginfo(cTitle )\n   while hWnd != 0\n      if Upper( cTitle ) $ Upper( GetWindowText( hWnd ) )\n         return hWnd\n      endif\n      hWnd = GetWindow( hWnd, GW_HWNDNEXT )\n   end\nreturn nil','',0,'AIA=','b14lxfxg',1,0,'',51,0,0),(42286,8926,20,1009,0,'82.187.221.169',1195807564,1,0,1,1,1,0,'','harbour x ppc','salve a tutti,\nil compilatore harbour per pocket pc è liberamente scaricabile o è prodotto da linares insieme a fwppc?\nè adatto per smartphone con symbian?\naltrimenti c\'è un linguaggio per sistemi symbian simile a xHarbour?\n\ngrazie, marzio','',0,'AIA=','2n9d8u1i',1,0,'',1009,0,0),(42287,8913,6,316,0,'213.97.245.163',1195808854,1,0,1,1,1,0,'','','Hola Moises,\n\nCon el tema del formato NUMERIC no hay mucho para hacer, no al menos de forma sencilla. Las soluciones que se me ocurren son un poco complejas y creo que no ameritan. \n\nRespecto del MIDAS, Bingen prometió publicarlo pero aún no ha podido, está como todos, liado con el trabajo. Cualquier novedad paso el aviso.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','2yfp17jt',1,0,'',316,0,0),(42288,8926,20,6,0,'82.59.188.242',1195810726,1,0,1,1,1,1,'','Re: harbour x ppc','[quote=&quot;marzio&quot;:20shle1q]salve a tutti,\nil compilatore harbour per pocket pc è liberamente scaricabile o è prodotto da linares insieme a fwppc?[/quote:20shle1q]\n\nQuello che distribuisce Antonio attualmente credo sia un suo porting. Però è stata recentemente realizzata anche la versione ufficiale che trovi nell\'SVN di Harbour (io non l\'ho provata).\n\nEMG','',0,'gA==','20shle1q',1,0,'',6,0,0),(42289,8801,18,1146,0,'87.223.173.186',1195811002,1,0,1,1,1,0,'','','Se me ocurre una solución: que cuando no se puedan obtener los datos de la impresora, se asignen unos por defecto. \n\nEstos serían standard A4, para que se vea el reporte o el metafile en el preview. Para obtenerlos, se pueden obtener instalando un generador de ficheros pdf que funcione como una impresora y usar estos valores. \n\nMuchas gracias!!','',0,'gA==','2pmfznjl',1,0,'',1146,0,0),(42290,8913,6,1146,0,'87.223.173.186',1195816011,1,0,1,1,1,0,'','','Muchas gracias, Carlos.\n\nPor cierto, ¿me podrías, por favor, indicar el email de Binguen a ?. La web de muniser no funciona.\n\nUn saludo','c3c61e45bb6418f3c903e2371ada8de0',0,'','1l7dt7h4',1,0,'',1146,0,0),(42291,8796,3,239,0,'218.20.49.206',1195816835,1,0,1,1,1,0,'','','What are the color nrgb ? for I  use aColors := {CLR_WHITE, CLR_CYAN } \nAlso When mouse click on the column  heaher, the color return to white.\n\nThanks !\nShuming Wang','',0,'gA==','3tqu6eqh',1,0,'',239,0,0),(42292,8796,3,2,0,'87.218.146.139',1195817945,1,0,1,1,1,1,'','','Shuming,\n\nIn just few days we will publish FWH 7.12 with all those changes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2g25unx6',1,0,'',2,0,0),(42293,8796,3,868,0,'219.64.121.60',1195818192,1,0,1,1,1,1,'','','can we expect 2007 style tabs in 7.12 ?','',0,'gA==','2cfwe3ec',1,0,'',868,0,0),(42294,8796,3,49,0,'213.82.134.66',1195818641,1,0,1,1,1,1,'','','Yes, of course.','',0,'gA==','1tpqllrp',1,0,'',49,0,0),(42295,8911,6,1104,0,'190.55.55.60',1195823848,1,0,1,1,1,0,'','','Hola, no he usado \"toleauto\".\nComo debo hacer para utilizarlo?\nYa que soy bastante nuevo con este tema y hay muchas cosas que todavía desconozco.\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'gA==','1x88ccg5',1,0,'',1104,0,0),(42296,8900,3,217,0,'200.159.120.34',1195830943,1,0,1,1,1,0,'','','Antonio, I don\'t found this code in my BtnBmp.prg... My version is FWH 7.1 and I have this problem, when I use CRLF to \"break\" the text in more than 1 line text is displayed in same line and CRLF turn into a square character.\n\nThanks!\nMaurilio','',0,'gA==','2zl9n25b',1,0,'',217,0,0),(42297,8900,3,2,0,'87.218.146.139',1195834638,1,0,1,1,1,1,'','','Maurilio,\n\nBasically the function used to paint the text has to be (Window\'s) DrawText() instead of TextOut().\n\nThe published patch is for FWH 7.11. We have to build another for 7.01','',0,'gA==','28pi3rhg',1,0,'',2,0,0),(42298,8927,6,760,0,'200.37.76.88',1195835839,1,0,1,1,1,0,'','Problemas con Get','Hola a todos del foro\n\nTengo el siguiente problema, tengo 04 gets hecho con recursos, seguido de 02 buttonBmp, el problema es que ingreso desde el 1º Get y todo bien hasta el 4º, al llegar al 1º boton, alli hay una sentencia oGet1:Setfocus(), para saltar al 1º Get, pero no salta al 1º Get sino el foco toma el 2º buttonBmp. Que puede estar pasando?\n\nREDEFINE OGET1 VAR CODIGO ...\nREDEFINE OGET2 VAR NOMBRE ...\nREDEFINE OGET3 VAR DIRECC1 ...\nREDEFINE OGET4 VAR DIRECC2 ...\nREDEFINE BUTTONBMP BTN1 ...ACTION OGET1:SETFOCUS()... // --ERROR\nREDEFINE BUTTONBMP BTN2 ...CANCEL // VIENE ACA NO VA AL OGET1\n\nSalu2\n\nFrancis\n\nUso FWH7.40, xHarbour 0.99.71, WSHop 4.5','',0,'gA==','220r9flq',1,0,'',760,0,0),(42299,8927,6,1104,0,'190.55.55.60',1195836894,1,0,1,1,1,0,'','','Yo en reiteradas oportunidades tengo el mismo problema.\nVas a ver que si antes de poner OGET1:SetFocus() pones un MsgInfo funciona correctamente, es como si saltara la instrucción y no estuviese el setfocus. Yo no he encontrado solución a este problema, pero lo que estoy haciendo es, desde el generador de recursos le saco el TabStop al segundo botón y de esa forma funciona, el problema es que ahora dejas sin TabStop al segundo boton.\n\nSaludos, Esteban','',0,'gA==','3q80b3oz',1,0,'',1104,0,0),(42300,8927,6,2,0,'87.218.146.139',1195837055,1,0,1,1,1,1,'','','&gt; oGet1:Setfocus()\n\nUsa oControl:oJump := oGet1 en donde oControl es el control en donde estas','',0,'gA==','2f4y7afh',1,0,'',2,0,0),(42301,8900,3,868,0,'219.64.121.60',1195837128,1,0,1,1,1,1,'','','This modification is working for 2007 style only. For non 2007 style both lines of text are painted in the middle of the bitmap\n\n[url=http&#58;//img220&#46;imageshack&#46;us/my&#46;php?image=tbmpoz9&#46;png:1awif05t][img:1awif05t]http&#58;//img220&#46;imageshack&#46;us/img220/3185/tbmpoz9&#46;th&#46;png[/img:1awif05t][/url:1awif05t]','',0,'GA==','1awif05t',1,0,'',868,0,0),(42302,8928,20,29,0,'88.149.162.100',1195839500,1,0,1,1,1,0,'','Eseguire uno script su internet','Salve,\ndovrei eseguire uno script php (tipo \"http://www.test.it/script.php\") da un programma fivewin.\n\nVorrei evitare di usare però shellexecute (perché rimarrebbe traccia dello script chiamato); esiste una funzione specifica per fare questo ?\n\nGrazie\n\nSaluti\n\nMarco Turco','',0,'GA==','29484ce3',1,0,'',29,0,0),(42303,8928,20,6,0,'87.19.210.4',1195841391,1,0,1,1,1,1,'','Re: Eseguire uno script su internet','Io di solito uso questo:\n\n[code:22elyvxi]oIe = CREATEOBJECT&#40; &quot;InternetExplorer&#46;Application&quot; &#41;\n\noIe&#58;Navigate&#40; &quot;http&#58;//www&#46;test&#46;it/script&#46;php&quot; &#41;\n\nWHILE oIe&#58;Busy\n    SYSREFRESH&#40;&#41;\nENDDO\n\noIe&#58;Quit&#40;&#41;[/code:22elyvxi]\n\nEMG','',0,'AIA=','22elyvxi',1,0,'',6,0,0),(42304,8922,3,303,0,'72.220.100.171',1195841548,1,0,1,1,1,0,'','','I found a bug in the code I posted above. This line:\n\n[code:3evp5fi8]        cFile &#58;= left&#40;cFile, len&#40;cFile&#41;-1&#41; // remove null-termination char [/code:3evp5fi8]\n\nApparently there is no null-termination character so it is truncating the name by one character and this the funcion is returning hWnd as nil always. I fixed it like this:\n\n[code:3evp5fi8]if right&#40; cFile, 1&#41; == chr&#40;0&#41;\n   cFile &#58;= left&#40;cFile, len&#40;cFile&#41;-1&#41; // remove null-termination char \nendif[/code:3evp5fi8]\n\nSo hWnd is found.\n\nHowever setForegroundWindow() window doesn\'t appear to do anything. I researched this via Google and it seems that you have to call allowSetForegroundWindow() first, but xHarbour does not have this function. I found it in xHarbour\\contrib\\what32\\source\\_winwnd.c and I cut and pasted it into the test program. But still no luck. Anyone have any ideas?\n\nJames\n\n[code:3evp5fi8]#pragma BEGINDUMP\n\n\n#ifndef ASFW_ANY\n  #define ASFW_ANY    &#40;&#40;DWORD&#41;-1&#41;\n#endif\n\nHB_FUNC&#40; ALLOWSETFOREGROUNDWINDOW &#41;\n&#123;\n\n   HINSTANCE h = LoadLibraryEx&#40; &quot;user32&#46;dll&quot;, NULL, 0 &#41;;\n   BOOL bASFWRet = &#40;BOOL&#41; FALSE ;\n   DWORD dwProcessId = ISNIL&#40; 1 &#41; ? ASFW_ANY &#58; &#40;DWORD&#41; hb_parnl&#40; 1 &#41;;\n\n   if&#40; h &#41;\n   &#123;\n      typedef BOOL &#40;WINAPI *xbAllowSetForegroundWindow&#41;&#40; DWORD dwProcessId &#41;;\n      xbAllowSetForegroundWindow pfnASFW = &#40;xbAllowSetForegroundWindow&#41;\n      GetProcAddress&#40; h, &quot;AllowSetForegroundWindow&quot;&#41; ;\n\n      if&#40; pfnASFW &#41;\n      &#123;\n         bASFWRet = &#40;BOOL&#41; pfnASFW&#40; dwProcessId &#41; ;\n      &#125;\n\n      FreeLibrary&#40; h &#41;;\n   &#125;\n\n   hb_retl&#40; bASFWRet &#41;;\n&#125;\n#pragma ENDDUMP[/code:3evp5fi8]','',0,'AIA=','3evp5fi8',1,0,'',303,0,0),(42305,8922,3,303,0,'72.220.100.171',1195842782,1,0,1,1,1,0,'','','I forgot to mention that oWnd:hWnd and findWindowByModuleFilename( cMod ) don\'t have the same value. I would think that they should. Perhaps we are sending the wrong hWnd to setForeground()?\n\nJames','',0,'AIA=','21jvy3ow',1,0,'',303,0,0),(42306,8928,20,29,0,'88.149.162.100',1195843724,1,0,1,1,1,0,'','','Grazie,\nl\'unica cosa è che ho diversi clienti con Firefox, devo verificare se installando Firefox come browser di default la tua routine funziona ugualmente.\n\nCiao\n\nMarco','',0,'AIA=','knsp774y',1,0,'',29,0,0),(42307,8928,20,6,0,'87.19.210.4',1195844343,1,0,1,1,1,1,'','','Penso di sì, dato che l\'ActiveX di IE dovrebbe essere comunque installato nel sistema.\n\nEMG','',0,'AIA=','lpj14vzp',1,0,'',6,0,0),(42308,8922,3,6,0,'87.19.210.4',1195845624,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:3n3rmail]What do you pass as cFileName - the name of the EXE or the Title of the window? Does it work if the exe is minimized?\nRegards,\nOtto[/quote:3n3rmail]\n\nTry this:\n\n[code:3n3rmail]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cTitle &#58;= &quot;This is a test&quot;\n\n    IF ISEXERUNNING&#40; CFILENAME&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n        SHOWWINDOW&#40; FINDWINDOW&#40; 0, cTitle &#41;, 9 &#41;\n        SETFOREGROUNDWINDOW&#40; FINDWINDOW&#40; 0, cTitle &#41; &#41;\n        RETURN NIL\n    ENDIF\n\n    DEFINE WINDOW oWnd;\n           TITLE cTitle\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:3n3rmail]\n\nEMG','',0,'gIA=','3n3rmail',1,0,'',6,0,0),(42309,8922,3,303,0,'72.220.100.171',1195846628,1,0,1,1,1,0,'','','Enrico,\n\nYour function works. I note that FindWindow() and oWnd:hWnd have the same value. I don\'t know why the findWindowByModuleFilename( cMod ) in the code I posted doesn\'t return the same value as oWnd:hWnd.\n\nThere are issues when using the window title. If you have a folder open with the same name, then it can get confused. I expect this is not a big issue as normally a user wouldn\'t have the folder open, but it did happen to me when testing.\n\nAlso, what if you are running a MDI application and the name changes when you open a MDI child. Does it still find a match even though the complete titles are different?\n\nJames','',0,'gIA=','bebum1du',1,0,'',303,0,0),(42310,8922,3,6,0,'87.19.210.4',1195849911,1,0,1,1,1,1,'','','Try this other:\n\n[code:2hmf34ad]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL cTitle &#58;= &quot;This is a test&quot;\n\n    IF ISEXERUNNING&#40; CFILENAME&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n        SHOWWINDOW&#40; FINDWND&#40; cTitle &#41;, 9 &#41;\n        SETFOREGROUNDWINDOW&#40; FINDWND&#40; cTitle &#41; &#41;\n        RETURN NIL\n    ENDIF\n\n    DEFINE WINDOW oWnd;\n           TITLE &quot;Prefix - &quot; + cTitle + &quot; - Postfix&quot;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL\n\n\n#define GW_HWNDFIRST 0\n#define GW_HWNDLAST  1\n#define GW_HWNDNEXT  2\n#define GW_HWNDPREV  3\n#define GW_OWNER     4\n#define GW_CHILD     5\n\n\nFUNCTION FINDWND&#40; cTitle &#41;\n\n    LOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41;\n\n    WHILE hWnd != 0\n        IF UPPER&#40; cTitle &#41; $ UPPER&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41;\n            RETURN hWnd\n        ENDIF\n\n        hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\n    ENDDO\n\n    RETURN NIL[/code:2hmf34ad]\n\nEMG','',0,'AIA=','2hmf34ad',1,0,'',6,0,0),(42311,8922,3,51,0,'80.122.88.242',1195852023,1,0,1,1,1,0,'','','Thank you Enrico,\nI knew that there is a better way as to write to an ini-file and then read the file:\n\n\nLOCAL cTitle := \"This is a test\"\n\nDEFINE WINDOW oWnd; \n           TITLE \"Prefix - \" + cTitle + \" - Postfix\"\n\nThanks again.\n\nBest regards, \nOtto','',0,'AIA=','1is2jotz',1,0,'',51,0,0),(42312,8929,6,228,0,'200.119.53.105',1195853011,1,0,1,1,1,1,'','Abrir archivo desde la aplicacion','AmigoS del foro tengan buen dia....\n\nAlguien me puede indicar como se puede abrir un archivo de excel desde mi aplicacion. Como si ejecutara un doble clic al archivo en el explorador de windows?\n\nDe antemano gracias...','',0,'AIA=','1hplmgbf',1,0,'',228,0,0),(42313,8929,6,228,0,'200.119.53.105',1195854369,1,0,1,1,1,1,'','Ok...','Amigos buscando en el foro encontre la solución:\n\nSHELLEXECUTE(,\"OPEN\",\"c:\\hosting\\premios.xls\",,,)\n\nPero ahora me surge otra duda..\n\nMe pueden explicar para que sirve cada uno de los espacios del array del shellexecute?\n\nDe antemano gracias..','',0,'AIA=','2syte1ne',1,0,'',228,0,0),(42314,8922,3,303,0,'72.220.100.171',1195860686,1,0,1,1,1,0,'','','Enrico,\n\nIt looks like your new code might solve the MDI-Child issue. Although this line:\n\nIF UPPER( cTitle ) $ UPPER( GETWINDOWTEXT( hWnd ) ) \n\nMight be safer done this way:\n\nIF UPPER( cTitle ) == left( UPPER( GETWINDOWTEXT( hWnd ), len(cTitle) ) \n\nIn the code I posted, I discovered that GETWINDOWMODULEFILENAME() is returning some strange results. I created some code to just list the module names with the window handles and here is a section of the results. The number is the window handle, followed by the module filename.\n\n-------------------\n11/23/07 13:26:09: Init:   21300590 &lt;&lt;-- this is the correct handle	\n11/23/07 13:26:18: 	     65954	\n11/23/07 13:26:18:      65954		\n11/23/07 13:26:18:      65956		\n11/23/07 13:26:18:     394182		\n11/23/07 13:26:18:    3080390	C:\\FW\\Test\\Test26.exe	\n11/23/07 13:26:18:     459312	C:\\FW\\Test\\Test26.exe	\n11/23/07 13:26:18:      65694	C:\\WINDOWS\\WinSxS\\x86_Microsoft.Windows.Common-Controls_6595b64144ccf1df_6.0.2600.2982_x-ww_ac3f9c03\\comctl32.dll	\n11/23/07 13:26:18:     196676		\n11/23/07 13:26:18:    1180570		\n11/23/07 13:26:18:    7079288	C:\\FW\\Test\\Test26.exe	\n11/23/07 13:26:18:      65680		\n11/23/07 13:26:18:     131210		\n11/23/07 13:26:18:     196682		\n11/23/07 13:26:18:     196678\n...\n------------------------\n\nStrangely, lots of the window handles don\'t have module names and some of the module names are listed multiple times (my test program is test26.exe) and there are others including some by Microsoft. Test26 was listed probably about 50 times. Since GETWINDOWMODULEFILENAME() is just an API call, I am at a loss as to why it isn\'t working properly.\n\nJames','',0,'AIA=','lknt7pto',1,0,'',303,0,0),(42315,8796,3,239,0,'218.20.49.206',1195864266,1,0,1,1,1,0,'','','Antonio,\n  It\'s a greate news !\n  Thank you !\nShuming Wang','',0,'AIA=','33jh0rok',1,0,'',239,0,0),(42316,983,6,264,0,'201.239.66.156',1195865658,1,0,1,1,1,1,'','','Yamil.\nPuedo contactarme contigo via correo ?\nLo agradeceria\nSaludos','',0,'AIA=','2znqlf0o',1,0,'',264,0,0),(42317,8930,3,86,0,'81.83.151.142',1195866447,1,0,1,1,1,1,'','Question about SET KEY','Hello,\n\nIf I use this code :\n[code:2br7dx11]SET KEY VK_F5 TO TestPro[/code:2br7dx11]\n\nthen the function TestPro() will be executed if the F5-key is pressed.\n\nBut now my question :\n\nHow can I read in another part of my appliction to which function the F5-key is linked ?\n\nThank you.','',0,'AIA=','2br7dx11',1,0,'',86,0,0),(42318,8931,3,868,0,'219.64.121.60',1195875054,1,0,1,1,1,1,'','xBrowse - lFastEdit (not respected by browse)','Any key press should trigger edit of a cell only when oBrw:lFastEdit is set to .T.. When lFastEdit is set to false, only pressing Enter key or Double Click should invoke the edit.\n\nPresently xBrowse ignores lFastEdit data and triggers edit on any keypress.\nAlso only alphanumeric keys only trigger edit. For numeric columns \'-\' (minus) also should trigger edit.\n\nSuggested modification is to change the following line in Otherwise clause in KeyPress method:\n[code:22h5rwo9]\nOldCode&#58;\n         If &#58;&#58;nMarqueeStyle &lt;= MARQSTYLE_HIGHLCELL &#46;and&#46; oCol&#58;nEditType &gt; 0 &#46;and&#46; ;\n            &#40; IsAlpha&#40; cKey &#41; &#46;or&#46; IsDigit&#40; cKey &#41; &#41;\n            oCol&#58;Edit&#40; nKey &#41;\n\nNewCode&#58;\n\n         If &#58;&#58;lFastEdit &#46;and&#46; &#58;&#58;nMarqueeStyle &lt;= MARQSTYLE_HIGHLCELL &#46;and&#46; oCol&#58;nEditType &gt; 0 &#46;and&#46; ;\n            &#40; IsAlpha&#40; cKey &#41; &#46;or&#46; IsDigit&#40; cKey &#41; &#46;or&#46; cKey == \'-\' &#41;\n            oCol&#58;Edit&#40; nKey &#41;\n[/code:22h5rwo9]\nIt would be even nicer if the trigger keys are decided on the basis of the valtype of the editvalue. Code would be longer but it is worth.\n\nIn addition to Enter and DoubleClick, F2 also may be added to the trigger keys to make xBrowse behave like Excel, which many users are accustomed to.','',0,'AIA=','22h5rwo9',1,0,'',868,0,0),(42319,8932,6,109,0,'200.92.125.53',1195885956,1,0,1,1,1,0,'','Dudas con Operadores','Alguien me puede hechar una mano con lo siguiente :\n    \n    En VB :\n    Dim resultValue As Integer\n          resultValue = 11 \\ 4\n          resultValue = 9 \\ 3\n          resultValue = 100 \\ 3\n          resultValue = 67 \\ -3\n\n      !! OJO CON EL OPERADOR   \" \\ \"\n      Divide dos números y devuelve un resultado de número entero.\n      en el ejemplo anterior devuelven valores de 2, 3, 33 y -22    \n\n     Cual seria su equivalente en XHarbour ?.\n\n      Por su atencion Gracias.\n      \n      Ricardo E. Guardado Flores.','',0,'AIA=','e7kes0kg',1,0,'',109,0,0),(42321,8932,6,2,0,'87.218.146.139',1195890695,1,0,1,1,1,1,'','','resultValue = Int( 11 \\ 4 ) \nresultValue = Int( 9 \\ 3 ) \nresultValue = Int( 100 \\ 3 ) \nresultValue = Int( 67 \\ -3 )','',0,'AIA=','3tyatpwz',1,0,'',2,0,0),(42322,8934,3,239,0,'218.20.49.206',1195890927,1,0,1,1,1,0,'','Tabs on top of a browse ?','Hi,\n  I do not see anything about tabke a tabs on top of a browse ,likes a folder.\n Thanks !\nShuming Wang','',0,'AIA=','3m9zjqzt',1,0,'',239,0,0),(42323,8935,3,851,0,'80.51.66.14',1195894770,1,0,1,1,1,0,'','many samples with ListBox','I\'m looking for samples with ListBox as browser database','',0,'AIA=','2h3qm8od',1,0,'',851,0,0),(42325,8936,3,51,0,'80.122.88.242',1195898003,1,0,1,1,1,0,'','xBrowse -array - how to add, del and select an item?','Hello Antonio, \nCould you please post an example for: \nxBrowser - ARRAY \n\nAdd, Del, Select a Item \nThanks in advance \nOtto \n\n\n???? does not work: \n@ 300, 25 BUTTON \"&amp;Add\" OF oChild PIXEL ; \nACTION ( AAdd( aStruc, Time() ), oBrw:Refresh() ) \n\n@ 300, 125 BUTTON \"&amp;SELECT\" OF oChild PIXEL ; \nACTION (oBrw:Select(2) )','',0,'AIA=','2iwnldrh',1,0,'',51,0,0),(42326,8922,3,6,0,'79.19.230.28',1195899696,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:s148a1vs]IF UPPER( cTitle ) == left( UPPER( GETWINDOWTEXT( hWnd ), len(cTitle) )[/quote:s148a1vs]\n\nThis wouldn\'t work if cTitle were contained inside the window caption.\n\n[quote=&quot;James Bott&quot;:s148a1vs]In the code I posted, I discovered that GETWINDOWMODULEFILENAME() is returning some strange results.[/quote:s148a1vs]\n\nYes, I know. That\'s why I searched a different solution. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','s148a1vs',1,0,'',6,0,0),(42327,8935,3,2,0,'87.218.146.139',1195901774,1,0,1,1,1,1,'','','Please review samples\\FwBrow.prg','',0,'gA==','1qdt15za',1,0,'',2,0,0),(42328,8931,3,2,0,'87.218.146.139',1195902109,1,0,1,1,1,1,'','','&gt; ::lFastEdit ... cKey == \'-\'\n\nAdded. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1p3231w5',1,0,'',2,0,0),(42329,8935,3,851,0,'80.51.66.14',1195902318,1,0,1,1,1,0,'','','may I use array  in FIELDS ( LISTBOX FIELDS)\n\n(fields database define in array  )','',0,'gA==','2dfogv55',1,0,'',851,0,0),(42330,8935,3,2,0,'87.218.146.139',1195903782,1,0,1,1,1,1,'','','Please review samples\\TestArr.prg and TestBrAr.prg\n\n(search for \"SetArray\" in samples\\*.prg)','',0,'gA==','3fhjo0zd',1,0,'',2,0,0),(42331,8930,3,2,0,'87.218.146.139',1195904026,1,0,1,1,1,1,'','','Michel,\n\nYou can\'t unless you store the function name yourself, and later on you search for it:\n\npublic aKeys := {}\n\nSET KEY VK_F5 TO TestPro\n\nAAdd( aKeys, { VK_F5, \"TestPro\" } )\n\nYou could modify the #xcommand SET KEY ... so it does it automatically for you','',0,'gA==','1gvo13be',1,0,'',2,0,0),(42332,8936,3,2,0,'87.218.146.139',1195905628,1,0,1,1,1,1,'','','Otto,\n\nHere you have samples\\mallorca.prg modified with your requirements. Right click on it to show a popup menu:\n[code:2f52k385]\n# INCLUDE &quot;FiveWin&#46;ch&quot; \n# INCLUDE &quot;XBrowse&#46;ch&quot; \n//------------- \nFUNCTION Main&#40;&#41; \n//------------- \n   LOCAL oWnd,aLin&#58;=&#123;&#125;,i,oBrw \n   FOR i&#58;=1 TO 6 \n      AAdd&#40;aLin,&#123;i,\'Descripción \'+Str&#40;i&#41;&#125;&#41; \n   NEXT \n   DEFINE WINDOW oWnd \n   //--Definición Objeto TxBrowse \n   oBrw&#58;=TxBrowse&#40;&#41;&#58;New&#40;oWnd&#41; \n   oBrw&#58;SetArray&#40;aLin&#41; \n   oBrw&#58;nColDividerStyle &#58;= LINESTYLE_BLACK \n   oBrw&#58;nRowDividerStyle &#58;= LINESTYLE_BLACK \n   oBrw&#58;nMarqueeStyle    &#58;= MARQSTYLE_HIGHLCELL \n\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader      &#58;= \'Cod\' \n   oBrw&#58;aCols&#91;1&#93;&#58;cEditPicture &#58;= \'@k 99\' \n   oBrw&#58;aCols&#91;1&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd \n   oBrw&#58;aCols&#91;1&#93;&#58;bOnPostEdit  &#58;= &#123;|o,x| aLin&#91; oBrw&#58;nArrayAt,1&#93; &#58;= x &#125; \n   oBrw&#58;aCols&#91;1&#93;&#58;nEditType    &#58;= EDIT_GET \n   oBrw&#58;aCols&#91;1&#93;&#58;bEditValid   &#58;= &#123;|oGet| Valida&#40; oGet &#41; &#125; //&lt;======== \n   //-- \n   oBrw&#58;aCols&#91;2&#93;&#58;cHeader      &#58;= \'Descripción\' \n   oBrw&#58;aCols&#91;2&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd \n   oBrw&#58;aCols&#91;2&#93;&#58;bOnPostEdit  &#58;= &#123;|o,x| aLin&#91; oBrw&#58;nArrayAt,2&#93; &#58;= x &#125; \n   oBrw&#58;aCols&#91;2&#93;&#58;nEditType    &#58;= EDIT_GET \n   //-- \n   oBrw&#58;CreateFromCode&#40;&#41; \n   oBrw&#58;bRClicked = &#123; | nRow, nCol | ShowPopup&#40; nRow, nCol, oBrw, aLin &#41; &#125;\n   oWnd&#58;oClient&#58;=oBrw \n   \n   ACTIVATE WINDOW oWnd \n   \nRETURN NIL \n//----------------------------------- \nSTATIC FUNCTION Valida&#40; oGet &#41; \n//----------------------------------- \n    LOCAL lValRet&#58;=&#46;T&#46; \n    local bValid &#58;= oGet&#58;bValid\n    local nVal &#58;= oGet&#58;Value&#40;&#41;\n    \n    oGet&#58;bValid = nil\n    \n    IF nVal&gt;6 \n        // MsgAlert&#40;\'No puede ser mayor que 6\'&#41; \n        lValRet&#58;=&#46;f&#46; \n    ENDIF \n    \n    oGet&#58;bValid = bValid\nRETURN lValRet \n\nfunction ShowPopup&#40; nRow, nCol, oBrw, aLin &#41;\n\n   local oMenu\n   \n   MENU oMenu POPUP\n      MENUITEM &quot;Add&quot; ACTION &#40; AAdd&#40; aLin, &#123; AllTrim&#40; Str&#40; Len&#40; aLin &#41; + 1 &#41; &#41;, &quot;New item&quot; &#125; &#41;, oBrw&#58;SetArray&#40; aLin &#41;, oBrw&#58;Refresh&#40;&#41; &#41;\n      MENUITEM &quot;Del&quot; ACTION &#40; ADel&#40; aLin, oBrw&#58;nArrayAt &#41;, ASize&#40; aLin, Len&#40; aLin &#41; - 1 &#41;, oBrw&#58;SetArray&#40; aLin &#41;, oBrw&#58;Refresh&#40;&#41; &#41;\n      MENUITEM &quot;Select&quot; ACTION &#40; oBrw&#58;GoTop&#40;&#41;, oBrw&#58;nArrayAt &#58;= 3, oBrw&#58;Refresh&#40;&#41; &#41;\n   ENDMENU\n   \n   ACTIVATE POPUP oMenu WINDOW oBrw AT nRow, nCol\n   \nreturn nil\n[/code:2f52k385]','',0,'AIA=','2f52k385',1,0,'',2,0,0),(42333,8872,3,2,0,'87.218.146.139',1195906768,1,0,1,1,1,1,'','','Otto,\n\nThis one seems good enough:\n[code:2c5s081m]\nFunction TabChk&#40; nCol, oFld &#41; \n   \n   local n &#58;= 1, nPos &#58;= 0 \n\n   while nPos &lt; nCol &#46;and&#46; n &lt;= Len&#40; oFld&#58;aPrompts &#41;\n      nPos += GetTextWidth&#40; 0, oFld&#58;aPrompts&#91; n++ &#93;, oFld&#58;oFont&#58;hFont &#41; + 5\n   end\n   \n   msginfo&#40; &quot;Drop to &quot; + oFld&#58;aPrompts&#91;--n&#93;&#41; \n\nreturn n \n[/code:2c5s081m]','',0,'AIA=','2c5s081m',1,0,'',2,0,0),(42334,8934,3,2,0,'87.218.146.139',1195907069,1,0,1,1,1,1,'','','Please review Class TTabControl in samples\\Win32.prg','',0,'AIA=','2zi77gb4',1,0,'',2,0,0),(42335,8936,3,868,0,'219.64.121.60',1195907180,1,0,1,1,1,1,'','','I would like to bring to notice some major problems with inline Edit in TxBrowse. In the above example input of a number greater than 6 is invalid and should be rejected.\n\nCase-1\n-----------\nEnter 7 in the first column and pess Enter. As expected the valid clause does not accept it.  Then press \'Esc\' key. The edit accepts 7 and writes 7.  Valid clause is not honoured.\n\nCase-2\n------------\nNow press any key on any cell. Edit is invoked. If we decide not to modify the value only option as a user for us to press Esc.  Now press Esc.  Edit writes \'0\' for numeric and blank for Character fields.\n\nCase-3\n------------\nIn Case-2, invoke edit, enter partly and click on any other cell or click outside the window.  Even an invalid value is written.\n\nAs it is, it is not safe to use the inline edit features of xbrowse in real applications.','',0,'AIA=','92ev3l4b',1,0,'',868,0,0),(42336,8936,3,2,0,'87.218.146.139',1195907369,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; As it is, it is not safe to use the inline edit features of xbrowse in real applications.\n\nYes, you are right, we need to fix those wrong behaviors.','',0,'AIA=','12z681dx',1,0,'',2,0,0),(42337,8872,3,51,0,'80.122.88.242',1195907559,1,0,1,1,1,0,'','','Hello Antonio,\nthank you very much for your help. Now I get the right folder.\nRegards,\nOtto','',0,'AIA=','2i8ey9p1',1,0,'',51,0,0),(42338,8930,3,86,0,'81.83.151.142',1195908740,1,0,1,1,1,1,'','','Antonio,\n\nThanks a lot for your answer.\n\nUntil now, I never used #xcommand.\n\nPlease could you tell me how to solve my problem using #xcommand ?\n\nThanks a lot in advance.','',0,'AIA=','1994360s',1,0,'',86,0,0),(42339,8930,3,2,0,'87.218.146.139',1195909581,1,0,1,1,1,1,'','','Michel,\n\nHere you have it working:\n[code:1gh3nsmh]\n#include &quot;FiveWin&#46;ch&quot;\n\n#command SET KEY &lt;n&gt; TO &lt;proc&gt; ;\n      =&gt; SetKey&#40; &lt;n&gt;, &#123;|p, l, v| &lt;proc&gt;&#40;p, l, v&#41;&#125; &#41; ;;\n         AddKey&#40; &lt;n&gt;, &lt;&#40;proc&#41;&gt; &#41; \n\nmemvar aKeys\n\nfunction Main&#40;&#41;\n\n   public aKeys &#58;= &#123;&#125;\n\n   SET KEY VK_F5 TO Test\n\n   MsgInfo&#40; KeyProc&#40; VK_F5 &#41; &#41;\n\n   SET KEY VK_F5 TO Another\n\n   MsgInfo&#40; KeyProc&#40; VK_F5 &#41; &#41;\n\nreturn nil\n\nfunction AddKey&#40; nKey, cProc &#41;\n\n   local nAt\n\n   if Len&#40; aKeys &#41; == 0 &#46;or&#46; &#40; nAt &#58;= AScan&#40; aKeys, &#123; | a | a&#91; 1 &#93; == nKey &#125; &#41; &#41; == 0\n      AAdd&#40; akeys, &#123; nKey, cProc &#125; &#41;\n   else\n      aKeys&#91; nAt &#93; = &#123; nKey, cProc &#125;\n   endif\n\nreturn nil\n\nfunction KeyProc&#40; nKey &#41;   \n\n   local nAt &#58;= AScan&#40; aKeys, &#123; | a | a&#91; 1 &#93; == nKey &#125; &#41;\n\n   if nAt != 0\n      return aKeys&#91; nAt &#93;&#91; 2 &#93;\n   endif\n\nreturn &quot;&quot;\n\nfunction Test&#40;&#41;\n\nreturn nil\n\nfunction Another&#40;&#41;\n\nreturn nil\n[/code:1gh3nsmh]','',0,'AIA=','1gh3nsmh',1,0,'',2,0,0),(42340,8936,3,868,0,'219.64.121.60',1195910887,1,0,1,1,1,1,'','','A few quick suggestions, though a lot more is need to be done. This is to atleast ensure that invalid and unintended values are not written to the data.\n\n1. bPostEdit block receives three paramters. ( oCol, uValueEntered, oGet\'snLastkey).  Programmer should write bPostEditBlock to write changes to the database after checking the nLastKey.  Safe to write data when the 3rd parameter nLastKey == VK_ENTER.  In the above example the postedit block would be :\n[code:1hfvtupq]\n   oBrw&#58;aCols&#91;1&#93;&#58;bOnPostEdit  &#58;= &#123;|o,x,n| if &#40; n == 13, aLin&#91; oBrw&#58;nArrayAt,1&#93; &#58;= x, &#41; &#125;\n[/code:1hfvtupq]\n\n2. While this is what the programmer has to do, this does not solve the problem, because due the way CancelEdit method is written, bPostEdit is always called with VK_RETURN as the last key even though the Get is exited by Escape or losing focus.  A fix in CancelEdit method is required;\n[code:1hfvtupq]\n   if oCol&#58;oEditGet != nil\n//      The nexline should be commented out\n//      oCol&#58;oEditGet&#58;nLastKey &#58;= VK_RETURN\n      oCol&#58;PostEdit&#40;&#41;\n   endif\n[/code:1hfvtupq]\n\n3. Now the PostEdit block is expected to be called with the real oGet\'s last key.  If the user exited with Escape or by losing focus of get, VK_ENTER is not expected to be the last key as seen by the PostEdit block. \n\nStill there is a problem in some cases.  User enters invalid value and presses Enterkey. Valid Block does not allow the input. User wants to give up and clicks on another cell so that get loses its focus.  Then also PostEdit block is called and in this case the last key is VK_ENTER. When Get is created get\'s bLostFocus is set to {||::PostEdit()}.  So when the get loses focus it calls PostEdit method without parameters.  This call to postedit does not go through CancelEdit method.  \nA suggested fix is :\n[code:1hfvtupq]\nwhile initializing the Get&#58;\n&#58;&#58;oEditGet&#58;bLostFous &#58;= &#123;|| PostEdit&#40;nil,nil, VK_ESCAPE&#41;&#125;  // can be any value to indicate loss of focus&#46;\n\nPostEdit method&#58;\nmethod postedit&#40; xValue, lButton, nLastKey &#41;\n\n&#46;&#46;&#46;\n&#46;&#46;\n&#46;&#46;\n   case &#58;&#58;nEditType == EDIT_GET\n      If &#58;&#58;oEditGet != nil\n       // insert the following 3 lines\n         if nLastKey != nil\n         	&#58;&#58;oEditGet&#58;nLastKey &#58;= nLastKey\n        endif\n[/code:1hfvtupq]\n\nWith these changes I could prevent writing of invalid data.  By abundant caution I am once again checking bValidBlock within PostEdit block, which will not be necessary once the edit behaviour is fully rectified.\n\nStill I have a problem and not able to find a solution. Enter an invalid value and press enter. Later with escape key or losing focus, exit edit ( atleast user thinks he exited the edit ).  But I find that the GetObject is still there. When we navigate back to that cell, Get is shown again.  Yet to find what to do for this.\n\nThis discussion is limited to single line edit in case of nEditType = 1 only. I have not mentioned the problems with edittypes 2 and above.\n\nHope we can get xBrowse with inline edit that can be used in real applications with 7.12','',0,'AIA=','1hfvtupq',1,0,'',868,0,0),(42341,8937,3,851,0,'80.51.66.14',1195916718,1,0,1,1,1,0,'','say and get','while say and get weren\'t the same rows\n\nmy sample\n\n\n   DEFINE DIALOG oDlg FROM 1, 1 TO 35, 75 ;\n      TITLE If( lAppend, \"Nowy\", \"Modyfikacja\" )\n\n   @ 1,  1 SAY \"Paczka:\" OF oDlg\n   @ 1,  6 GET cPaczka OF oDlg\n   @ 2,  1 SAY \"Typ:\" OF oDlg\n   @ 2,  6 GET cTYP_DOK OF oDlg\n   @ 3,  1 SAY \"Nr dok:\" OF oDlg\n   @ 3,  6 GET cNR_DOK OF oDlg\n   @ 4,  1 SAY \"Data:\" OF oDlg\n   @ 4,  6 GET cDATA_OPER OF oDlg\n   @ 5,  1 SAY \"Nr id:\" OF oDlg\n   @ 5,  6 GET cNR_ID OF oDlg\n   @ 6,  1 SAY \"Tre&#347;&#263;:\" OF oDlg\n   @ 6,  6 GET cOPIS OF oDlg\n   @ 7,  1 SAY \"Syn:\" OF oDlg\n   @ 7,  6 GET cSYN  OF oDlg\n   @ 8,  1 SAY \"Sub:\" OF oDlg\n   @ 8,  6 GET cSUB  OF oDlg\n   @ 9,  1 SAY \"Nr:\" OF oDlg\n   @ 9,  6 GET cNR  OF oDlg\n   @10,  1 SAY \"Nazwa:\"  OF oDlg\n   @10,  6 GET cNazwa  OF oDlg\n   @11,  1 SAY \"Przychód:\" OF oDlg\n   @11,  6 GET cPrzychod OF oDlg\n   @12,  1 SAY \"Rozchód:\" OF oDlg\n   @12,  6 GET cRozchod OF oDlg\n\n   @13,  9 BUTTON \"&amp;Acept\"  OF oDlg SIZE 50, 12 ACTION ( lSave := .t. , oDlg:End() )\n   @13, 19 BUTTON \"&amp;Cancel\" OF oDlg SIZE 50, 12 ACTION oDlg:End()\n\n   ACTIVATE DIALOG oDlg CENTERED','',0,'AIA=','28ryfd0m',1,0,'',851,0,0),(42342,8938,6,1168,0,'84.121.87.247',1195921923,1,0,1,1,1,0,'','Disabled+ mouseover','Hola a todos,\n\nCuando un control esta inactivo (disabled), por las pruebas que he hecho, no recibe mensajes WM_movemouse (o como se llame). Me parece que esto es filosofia Windows y comportamiento Windows... pero no se podria cambiar este comportamiento? Lo digo porque creo que resulta muy interesante que cuando un control esta disabled, por ejemplo un button, pudiera mostrar un tooltip... porque una cosa es que este disabled y otra que muestre lo que haria si estuviera encendido (tooltip)... incluso se podria adaptar el tooltip para que indicase el motivo de por que esta apagado.\n\nSaludos','',0,'AIA=','2teyg7dm',1,0,'',1168,0,0),(42343,8932,6,53,0,'189.139.20.199',1195924465,1,0,1,1,1,1,'','','Maestro:\n\nNo debería ser así ?\n\nresultValue = Int( 11 / 4 ) \nresultValue = Int( 9 / 3 ) \nresultValue = Int( 100 / 3 ) \nresultValue = Int( 67 / -3 )\n\nSaludos','',0,'AIA=','1ifktytd',1,0,'',53,0,0),(42344,8937,3,2,0,'87.218.146.139',1195924583,1,0,1,1,1,1,'','','Because screen coordinates are based on each control height, so they don\'t overlap, and controls have different heights.\n\nYou may use decimals numbers, i.e.:\n\n   @ 1, 1 SAY \"Paczka:\" OF oDlg \n   @ 1.2, 6 GET cPaczka OF oDlg \n\nor use the PIXEL clause:\n\n   @ 12, 10 SAY \"Paczka:\" OF oDlg PIXEL\n   @ 10, 40 GET cPaczka OF oDlg PIXEL','',0,'AIA=','3do73emf',1,0,'',2,0,0),(42345,8932,6,2,0,'87.218.146.139',1195924672,1,0,1,1,1,1,'','','Si, asi es. Me limite a copiar y pegar las lineas de Ricardo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1uelrfe7',1,0,'',2,0,0),(42346,8938,6,2,0,'87.218.146.139',1195924884,1,0,1,1,1,1,'','','Antonio,\n\nSería interesante como dices, pero no es algo simple de implementar, ya que Windows está hecho así.\n\nEs preferible que lo dejes activo y que le quites su acción.\n\noBtn:bAction = { || nil }\n\ny que más tarde se la vuelvas a asignar','',0,'AIA=','185sk900',1,0,'',2,0,0),(42347,8939,3,487,0,'151.16.72.141',1195924989,1,0,1,1,1,0,'','Missing method oPrn:GetCopies()','In Printer.prg, please add:\n[code:2j88hwpt]METHOD GetCopies&#40;&#41; INLINE  PrnGetCopies&#40;&#41;[/code:2j88hwpt]\nanyway, I\'ve seen it works only if you\'ve previously performed a oPrn:SetCopies(), while, by setting up the copies by the FROM USER clause, it always returns 1 (and I always obtain a single sheet printed)\nAny clue ?\nThanks \nDavide\nFWH 7.09 - xH 0.99.71','',0,'AIA=','2j88hwpt',1,0,'',487,0,0),(42348,8938,6,1168,0,'84.121.87.247',1195925714,1,0,1,1,1,0,'','','Antonio,\n\n[quote=&quot;Antonio Linares&quot;:oqu1eolk]Antonio,\n\nSería interesante como dices, pero no es algo simple de implementar, ya que Windows está hecho así.\n\nEs preferible que lo dejes activo y que le quites su acción.\n\noBtn:bAction = { || nil }\n\ny que más tarde se la vuelvas a asignar[/quote:oqu1eolk]\n\nUna de las cosas que me gustan de los entornos GUI es que se hacen mas intuitivos para el usuario. \nCuando el usuario ve que un boton esta apagado enseguida comprende que esa opcion existe pero no esta disponible... y no tiene que pinchar para saber que en determinado punto esta inactiva.\nPor ejemplo, en un browse de un plan de cuentas, cuando una cuenta tiene movimiento contable,  el boton de [u:oqu1eolk][b:oqu1eolk]borrar[/b:oqu1eolk][/u:oqu1eolk] cuenta aparece apagado, si la cuenta no tiene movimiento aparece encendido... es una forma, a mi modo de ver muy clara de saber por un lado que la cuenta tiene movimiento y por otro que la puede borrar o no.\n\nSaludos','',0,'wQ==','oqu1eolk',1,0,'',1168,0,0),(42349,8922,3,303,0,'72.220.100.171',1195927530,1,0,1,1,1,0,'','','Enrico,\n\n&gt;This wouldn\'t work if cTitle were contained inside the window caption. \n\nTrue. MDI apps, by default, append the title of the child window to the app title, so it would work fine under these circumstances. Of course the programmer could change the title and this would break it.\n\nAlternately, any given title could also occur within another apps title so searching for the title anywere in the window title of all windows could likewise fail to work properly. That is why using the module file name would be a better solution (provided the needed function was working).\n\nJamess','',0,'wQ==','21vk5wfb',1,0,'',303,0,0),(42350,8940,3,448,0,'83.132.165.110',1195928787,1,0,1,1,1,0,'','Rdd ADS','Should dbf files clipper Sixdriver 3.0 be convert it to work with rdd ads ?\n\nAntonio','',0,'wQ==','189xq11w',1,0,'',448,0,0),(42351,8938,6,2,0,'87.218.146.139',1195928828,1,0,1,1,1,1,'','','Si, pero el problema es el que comentas, que al estar \"disabled\" no recibe eventos y entonces no se le puede poner un tooltip','',0,'wQ==','2nk4ko7q',1,0,'',2,0,0),(42352,8922,3,868,0,'219.64.121.60',1195928911,1,0,1,1,1,1,'','','Relying on Mutex is the best way and thats what IsExeRunning() function does. I have been using Mutex for this purpose earlier. \n\nBut I have a doubt which I would be glad if the author of the function Mr Enrico clarifies.\n\nI used to Create the mutex at the beginning of the program and ReleaeMutex at the end of the program ( even otherwise Windows is supposed to do the cleanup of releasing the handle and destroy the mutex object).  Because the Mutex was owned by the Initial Owner ( first invocation of the program ) through out its execution, second and subsequent  invocations of the same program fail.\n\nBut in the IsExeRunning() function the Mutex is created and also Released immediately.  And the program continues its execution. I am not able to understand why the second initiation is unable to create the mutex again, when it was already released by the first instance?   I agree this function is working but I am unable to understand how? Can you kindly clarify Mr Enrico ?','',0,'wQ==','1xfkt4gd',1,0,'',868,0,0),(42353,8941,6,960,0,'84.125.196.99',1195932402,1,0,1,1,1,0,'','metter con look Wxp','Estimados compañeros:\n\nTengo la inquietud de saber como dar un look Wxp a mis metters\n\nMil gracias\nLorenzo\nFWH 2.7 + xHarbour','',0,'wQ==','3niu461v',1,0,'',960,0,0),(42354,8942,3,51,0,'80.122.88.242',1195933515,1,0,1,1,1,0,'','xBrowser – equivalent for listbox oLbx:GetPos()','Could someone tell me what the equivalent for the listbox syntax oLbx:GetPos() for xBrowser is?\n\nThanks in advance\nOtto','',0,'wQ==','3oqw5uvn',1,0,'',51,0,0),(42355,8922,3,6,0,'79.19.230.28',1195936605,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:uawxtras]But in the IsExeRunning() function the Mutex is created and also Released immediately.  And the program continues its execution. I am not able to understand why the second initiation is unable to create the mutex again, when it was already released by the first instance?[/quote:uawxtras]\n\nThe answer is simple: ReleaseMutex() only \"releases ownership of the specified mutex object\" and doesn\'t destroy the mutex object itself.\n\nEMG','',0,'gA==','uawxtras',1,1195986957,'',6,1,0),(42356,8932,6,53,0,'189.139.20.199',1195936641,1,0,1,1,1,1,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3byymq9b',1,0,'',53,0,0),(42357,8884,2,890,0,'190.9.66.224',1195936683,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:jy4s2n93]Jairo,\n\nPuedes buscar el texto que desees con la función At() y luego posicionarte con el método SetPos(). Ejemplo:\n\nnAt = At( \"Capitulo 1\", oMGet:GetText() )\n\noMGet:SetPos( nAt )[/quote:jy4s2n93]\n--------------------------------------------------------------------------------\nAntonio \nhe tenido dificultad en hacer funcionar tu sugerencia, talvez si me indicaras un ejemplo te lo agradecere.\nEl problema basicamente es con GetText(), pero en general no he tenido exito.\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','jy4s2n93',1,0,'',890,0,0),(42358,8941,6,53,0,'189.139.20.199',1195936769,1,0,1,1,1,1,'','','Loren:\n\nEn lugar de metters utiliza TProgressBar.\n\nSaludos','',0,'gA==','5tnc270i',1,0,'',53,0,0),(42359,8932,6,109,0,'189.192.70.4',1195938798,1,0,1,0,1,0,'','','Asi es, Estaba aplicando la funcion INT(x/i......)\n  Pero el resultado no era el mismo que VB asi que por eso mi pregunta.\n\n\n  Entonces:\n\n    VB\n    \n    xNumber = (((37 + _\n        ((512 - 448) \\ 8)) \\ _\n        (512 \\ 8) + 1) * _\n        (512 \\ 32))\n\n   EL valor de xNumber es 16  (Segun el Debugger de VB )\n\n      XHB\n      \n  xNumber := Int( ((( 37 + ;\n        ( Int( ( 512 - 448)  / 8)) ) / ;\n        ( Int( 512 / 8)) )  + 1) * ;\n        ( Int( 512 / 32)) )\n\n       EL valor de xNumber es 27\n   \n Estoy aplicando mal la funcion INT(.....)  ????????????????????????\'\n\n   Ricardo E. Guardado Flores','',0,'gA==','1i92cewh',1,0,'',109,0,0),(42360,8930,3,86,0,'81.83.151.142',1195942907,1,0,1,1,1,1,'','','Antonio,\n\nThanks a lot for your help.\n\nI\'ll try it out ASAP.\n\nHave a good weekend.','',0,'gA==','1wc3ral5',1,0,'',86,0,0),(42361,8943,6,1233,0,'190.83.79.132',1195945511,1,0,1,1,1,0,'','Error al compilar source de FiveWin 2.6','Saludos a todos,\n\nEstoy intentando compilar el source de FiveWin 2.6 a ver si logro que funcione con xHarbour 1.0.0, y me arroja este error:\n\nCompiling \'dbm.prg\'...\ndbm.prg( 38 ) Error E0030  Syntax error: \"syntax error at \'ODICT\'\"\ndbm.prg( 51 ) Error E0030  Syntax error: \"syntax error at \'AFIELDS\'\"\n\ny en el archivo dmb.prg dice:\n\nMETHOD New( cAlias, cFile, cDriver, lShared, lReadOnly, aFields, aIndexes, oDict ) CLASS TDbm\n   local n\n\n   Super:New( cAlias, cFile, cDriver, lShared, lReadOnly )\n\n   BYNAME oDict  // [b:2u9miffs]Linea 38 ERROR[/b:2u9miffs]\n\n   if aFields != nil\n          for n = 1 to len( aFields )\n                  ::AddField( aFields[n] )\n   	  next\n   end\n   if aIndexes != nil\n          for n = 1 to len( aIndexes )\n                  ::AddIndex( aIndexes[n] )\n   	  next\n   end\n\n   BYNAME aFields, aIndexes   // [b:2u9miffs]Linea 51 ERROR[/b:2u9miffs]\n\n   oDict:AddDb( Self )\n\n   ::WriteFields()\n\nReturn Self\n\n\nQué pasa ??\n\nGracias','',0,'QA==','2u9miffs',1,0,'',1233,0,0),(42362,8927,6,760,0,'200.37.76.93',1195951052,1,0,1,1,1,0,'','Problemas con Get','Hola Master\n\nEntonces deberia hacer asi BTN1:oJump:=Get1, o a que control te refieres, ya que el control que presiono es el bottonbmp con BTN1, para que luego depresionarlo vaya al GET1.\n\nSalu2\n\nFrancis','',0,'QA==','2axjsiui',1,0,'',760,0,0),(42363,8934,3,239,0,'218.20.49.206',1195952233,1,0,1,1,1,0,'','','Antonio,\n  Thank you !\nShuming Wang','',0,'QA==','2f1w00rk',1,0,'',239,0,0),(42364,8936,3,239,0,'218.20.49.206',1195952515,1,0,1,1,1,0,'','','We\'d changed xbrowse\' nedittype  from \'N\' to \'B\' type, so to fit  dynamic  lWhen clause .\n\nShuming Wang','',0,'QA==','12ml8tov',1,0,'',239,0,0),(42365,8937,3,239,0,'218.20.49.206',1195952827,1,0,1,1,1,0,'','','Antonio,\n  Could change the default height of the Tsay,Tget,tbutton,Tcombobox source code to the same default height if they create from soruce code ,not from resource redefine ?  like dos/char .\n\nThanks !\nShuming Wang','',0,'QA==','3nesiq4k',1,0,'',239,0,0),(42366,8944,3,80,0,'202.72.164.124',1195953065,1,0,1,1,1,0,'','Focus Problem','To All\n\nI have a window with a buttonbar and one of the buttons is a find button ,\nwhen that is activated a get on the buttonbar is made visible and as the users types in letters an incremental search is done and the browse is refreshed on each keypress - when the enter key is pressed the get is \nhidden and the focus is set to the browse - the browse does get focus but them loses it and I cant find which control or if any control has focus - I hit the tab key but there is movement on the other controls.\n\n\nDEFINE BUTTON oBtn5 of oBar RESOURCE \"EYE\" ;\n       FLAT ;\n       PROMPT \'Find\' ;\n       ACTION(cCode := space(5),oCode:Top(),oCust:SetPos(0),oCust:Show(),oCust:SetFocus());\n       TOOLTIP(\'Find Customer\')\n\n       @ 15,450 GET oCust VAR cCode picture \'@!\' UPDATE of oBar SIZE 80,20 ;\n       on change(if(oCust:nLastKey&gt;32,chr(oCust:nLastKey),\"\"),self:cargo:seek(trim(oCust:cText)),;\n       if(oCust:nLastkey==13,(oCust:Hide(),oLbx:SetFocus(),oLbx:GoToCol(2)),oLbx:Refresh())) ;\n       FONT oFont ;\n       PIXEL\n       oCust:cargo := oCode\n\nThanks for any ideas\n\nRegards\n\nColin','',0,'QA==','16ftpfa2',1,0,'',80,0,0),(42367,7562,22,239,0,'218.20.49.206',1195953262,1,0,1,1,1,0,'','','Antonio,\n  Or create a temp  \'tget32\' like textbox class, direct call C function ,reach the basic use : pictures char upper ,lower ,numeric masks ,valid ,when .\n  That \'s  enough for us  input Chinse words \'Get under XP themes \'.\n  Thanks!\nShuming Wang','',0,'QA==','7zo9hwly',1,0,'',239,0,0),(42368,8945,3,239,0,'218.20.49.206',1195953677,1,0,1,1,1,0,'','To add combobox to xbrowse on top of each colum header','Hi, \n  Someone added the features like excel, combobox to xbrowse on top of each colum header so could search each colum datas .\nBest regards!\nShuming Wang','',0,'QA==','2b2secyj',1,0,'',239,0,0),(42369,8934,3,49,0,'62.13.172.67',1195955270,1,0,1,1,1,1,'','','Antonio,\nWich is the file class for tabcontrol class ?','',0,'QA==','25xhv8ql',1,0,'',49,0,0),(42370,8934,3,49,0,'62.13.172.67',1195955364,1,0,1,1,1,1,'','','Sorry I found it now \n\nbut tabcontrol with class run ? folder class ?','',0,'QA==','1f312ydu',1,0,'',49,0,0),(42371,8946,6,1059,0,'190.137.125.230',1195956635,1,0,1,1,1,0,'','VERCE 5.2','Buenas Noches\n\nAcabo de bajar la 5.2 del VERCE que tiene muchos bugs resueltos, sobre todo, los de nombres largos y adicion de recursos.\n\nAdemás tiene un visor de código PRG para testear.\n\nel link es: <!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/verce/verce52.zip\">http://incos.sytes.net/fivewin/verce/verce52.zip</a><!-- m -->  \n\nGracias William por el VERCE!!!\n\nRolando','',0,'QA==','1cpr61ve',1,0,'',1059,0,0),(42372,8922,3,868,0,'219.64.121.60',1195958449,1,0,1,1,1,1,'','','Mr Enrico\n\nThanks. \n\nIs it possible to destroy the mutex in the application and continue application? I did not find DestroyMutex function in msdn.\n\nMy requirement is this. When one instance is performing cetrain function, the other instances should wait to do some dependent functions.','',0,'QA==','10zgz7dv',1,0,'',868,0,0),(42373,8936,3,868,0,'219.64.121.60',1195958819,1,0,1,1,1,1,'','','Mr ShumingWang\n\nHave you modified xbrowse\'s Edit method to make it reliable? If so can you share your logic please?','',0,'QA==','3ogeg5vd',1,0,'',868,0,0),(42374,8947,3,868,0,'219.64.121.60',1195960022,1,0,1,1,1,1,'','is updated 7.11 library available for download?','Mr Antonio\n\nIs an updated FWH 7.11  with all the fixes published so far in the forum available for download? Or is it planned ?','',0,'QA==','17cey0j7',1,0,'',868,0,0),(42375,8922,3,303,0,'72.220.100.171',1195960969,1,0,1,1,1,0,'','','Nageswara,\n\n&gt;My requirement is this. When one instance is performing cetrain function, the other instances should wait to do some dependent functions.\n\nWhy not just use a function containing a static var. When one process is complete it changes the static to .t. and the other process keeps checking the value.\n\nJames','',0,'QA==','2sb3v4w9',1,0,'',303,0,0),(42376,8944,3,303,0,'72.220.100.171',1195961352,1,0,1,1,1,0,'','','Colin,\n\nI would suggest taking a different approach. Just leave the GET visible and do the search when the users type something in. This is common behavior.\n\nJames','',0,'QA==','1zqvlka5',1,0,'',303,0,0),(42377,8922,3,868,0,'219.64.121.60',1195962863,1,0,1,1,1,1,'','','This is in the context of several instances running on a server.  While one instance is performing a particular task, other instances need to wait to do some dependent tasks.  I use Globa/ namespace for mutexes.\n\nI am considering using semaphores or some other ipc mechanism.  But still interested to know how to destroy a mutex without closing the application.\n\nRight now I am adopting crude but dependable method of locking some records on ads table. Works but I think its not elegant.','',0,'QA==','3tfzywse',1,0,'',868,0,0),(42378,8944,3,80,0,'202.72.164.124',1195965275,1,0,1,1,1,0,'','Focus','Hi James\n\nI have tried leaving the get visible but it did not make any difference - \nI have even added a delay after the focus goes to the browse and I can\nsee the browse get focus and then after the delay it loses focus - I dont what is causing the browse to lose focus.\n\nRegards\n\nColin','',0,'QA==','3o7mwu3l',1,0,'',80,0,0),(42379,8944,3,303,0,'72.220.100.171',1195967863,1,0,1,1,1,0,'','','Colin,\n\nI think we need a small self-contained example to be able to see the problem.\n\nJames','',0,'QA==','3mpc20iu',1,0,'',303,0,0),(42380,8934,3,239,0,'121.33.139.73',1195970416,1,0,1,1,1,0,'','','source\\classes\\ttabctrl.prg\n\nShuming Wang','',0,'QA==','2y3xwwm9',1,0,'',239,0,0),(42381,8948,6,9,0,'85.60.51.8',1195973012,1,0,1,1,1,1,'','Problemas con Excel','En una aplicación que viene funcionando perfectamente, abriendo hojas Excel y documentos Word, en un ordenador no funciona correctamente. \n\nAl llegal a la linea:  oExcel := CREATEOBJECT( \"Excel.Application\" )\n\nda el error: Error description Error Toleauto/-1 Unknown error: Toleauto:NEW\n   Args:\n     [   1] = C   Excel.Application\n\nStack Calls\n===========\n   Called from:  =&gt; THROW(0)\n   Called from: win32ole.prg =&gt; TOLEAUTO:NEW(309)\n   Called from: win32ole.prg =&gt; CREATEOBJECT(67)\n\nMe imagino que es problema de esa máquina, donde tienen instalado Office funcionando. ¿A alguien se le ocurre donde puede estar el problema?','',0,'','mjitbxyb',1,0,'',9,0,0),(42382,8943,6,2,0,'87.218.146.139',1195980632,1,0,1,1,1,1,'','','Añade esto a FiveWin.ch:\n[code:3kv1s2rc]\n#xtranslate BYNAME &lt;V&gt; &#91;, &lt;VN&gt; &#93;     =&gt; &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; &#91;; &#58;&#58;&lt;VN&gt; &#58;= &lt;VN&gt; &#93;\n#xtranslate BYNAME &lt;V&gt; DEFAULT &lt;Val&gt; =&gt; &#58;&#58;&lt;V&gt; &#58;= BYDEFAULT &lt;V&gt;, &lt;Val&gt;\n#xtranslate BYNAME &lt;V&gt; IFNONIL       =&gt; ;\n                            if &lt;V&gt; != NIL ;;\n                                &#58;&#58;&lt;V&gt; &#58;= &lt;V&gt; ;;\n                            end\n[/code:3kv1s2rc]\nó no incluyas dbm.prg, ya que no se usa <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3kv1s2rc',1,0,'',2,0,0),(42383,8927,6,2,0,'87.218.146.139',1195980696,1,0,1,1,1,1,'','','Francis,\n\nSí, así','',0,'AIA=','1hxp3hfk',1,0,'',2,0,0),(42384,8937,3,2,0,'87.218.146.139',1195980799,1,0,1,1,1,1,'','','Shuming,\n\nNo, we can\'t do it or we will break lots of FiveWin applications.\n\nYou can do it yourself just modifying the values in include\\constant.ch and recompiling all the PRGs.','',0,'AIA=','24yea55u',1,0,'',2,0,0),(42385,8944,3,2,0,'87.218.146.139',1195981001,1,0,1,1,1,1,'','','Colin,\n\nTry to add this code at the end of the ON CHANGE clause of the GET:\n\noCust:oJump := oLbx','',0,'AIA=','1bc86plm',1,0,'',2,0,0),(42386,8947,3,2,0,'87.218.146.139',1195981141,1,0,1,1,1,1,'','','NageswaraRao,\n\nNo, it is not available. \n\nWe will publish FWH 7.12 by early december','',0,'AIA=','3mmcasza',1,0,'',2,0,0),(42387,8948,6,2,0,'87.218.146.139',1195981210,1,0,1,1,1,1,'','','Manuel,\n\nComprueba que sea la misma versión de Excel que en los otros ordenadores','',0,'AIA=','19p6stt1',1,0,'',2,0,0),(42388,7562,22,2,0,'87.218.146.139',1195981396,1,0,1,1,1,1,'','','Shuming,\n\nPlease modify Class TGet to call ::oGet:Left() after every typed char','',0,'AIA=','vnzgj1fb',1,0,'',2,0,0),(42389,8922,3,6,0,'82.55.208.225',1195982588,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1udl8zwp]Is it possible to destroy the mutex in the application and continue application? I did not find DestroyMutex function in msdn.[/quote:1udl8zwp]\n\nCloseHandle( hMutex ).\n\nEMG','',0,'gA==','1udl8zwp',1,0,'',6,0,0),(42390,8922,3,868,0,'219.64.121.60',1195984469,1,0,1,1,1,1,'','','Thanks Mr Enrico\n\nRechecked MSDN. I should have noticed it. Thanks again','',0,'gA==','3ckc4s84',1,0,'',868,0,0),(42391,8949,3,868,0,'219.64.121.60',1195986889,1,0,1,1,1,1,'','TXBrowse EditType 1 Suggested fixes','With the following 3 changes TXBrowse inline Edit ( edittype 1 singleline ) seem to be working reliably.  \n\n[code:1tbyv31c]\nMETHOD CancelEdit&#40;&#41; CLASS TXBrowse\n\n	&lt;&#46;&#46;&#46; code &#46;&#46;&#46;&gt;\n\n//  oCol&#58;oEditGet&#58;nLastKey &#58;= VK_RETURN // comment this line\n\n        &lt; &#46;&#46;&#46; code &#46;&#46;&#46;&gt;\nreturn nil\n//--------------------------------------------------------//\nMETHOD Edit&#40; nKey &#41; CLASS TXBrwColumn\n\n   &lt; &#46;&#46;&#46;&#46; code &#46;&#46;&#46;&#46; &gt;\n\n//   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; || &#58;&#58;PostEdit&#40;&#41; &#125;		  // oldcode  &lt;--------\n   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; || &#58;&#58;PostEdit&#40;,,VK_ESCAPE&#41; &#125; // new coce &lt;----------\n\n   &lt; &#46;&#46;&#46;&#46;&#46;code&#46;&#46;&#46;&#46;&#46;&#46;&gt;\n\nreturn &#46;t&#46;\n//----------------------------------------------------------//\nMETHOD PostEdit&#40; xValue, lButton, nLastKey &#41; CLASS TXBrwColumn  // new code &lt;----\n// METHOD PostEdit&#40; xValue, lButton &#41; CLASS TXBrwColumn  // old code &lt;-----\n\n   &lt; &#46;&#46;&#46; code &#46;&#46; &gt;\n\n   do case\n   case &#58;&#58;nEditType == EDIT_GET\n      If &#58;&#58;oEditGet != nil\n\n// new code insert - begin\n         if nLastKey != nil\n         	&#58;&#58;oEditGet&#58;nLastKey &#58;= nLastKey\n			endif\n			if &#58;&#58;oEditGet&#58;nLastKey == VK_ESCAPE\n				&#58;&#58;oEditGet&#58;undo&#40;&#41;\n				&#58;&#58;oEditGet&#58;Refresh&#40;&#41;\n			endif\n// new code insert - end\n\n         Eval&#40; &#58;&#58;bOnPostEdit, Self, Eval&#40; &#58;&#58;oEditGet&#58;bSetGet &#41;, &#58;&#58;oEditGet&#58;nLastKey &#41;\n         lGoNext &#58;= &#40; &#58;&#58;oEditGet&#58;nLastKey == VK_RETURN &#41;\n         &#58;&#58;oEditGet&#58;End&#40;&#41;\n         &#58;&#58;oEditGet &#58;= nil\n      endif\n      &lt; &#46;&#46;&#46; further code &#46;&#46;&#46;&gt;\n[/code:1tbyv31c]','',0,'AIA=','1tbyv31c',1,0,'',868,0,0),(42392,8944,3,80,0,'202.72.164.124',1195987218,1,0,1,1,1,0,'','','Hi Antonio\n\nThanks that worked great - still cant understand why the browse\nlost focus and what control the focus went to.\n\nAre you using parallels on your mac or vmware to run Vista and XP.\n\nCheers\n\nColin','',0,'AIA=','1sdejpji',1,0,'',80,0,0),(42393,8884,2,2,0,'87.218.146.139',1195991829,1,0,1,1,1,1,'','','Jairo,\n\nBueno ha sido un poco más complicado pero aqui tienes un ejemplo funcionando <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\ntest.prg\n[code:2id5ccbb]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oGet, cText &#58;= MemoRead&#40; &quot;test&#46;prg&quot; &#41;\n   local n &#58;= 1, nCRLFs &#58;= 0, nAt &#58;= At&#40; &quot;DEFINE DIALOG&quot;, cText &#41;\n   \n   while n &lt; nAt\n      if SubStr&#40; cText, n++, 2 &#41; == CRLF\n         nCRLFs++\n      endif\n   end      \n\n   DEFINE DIALOG oDlg SIZE 300, 200\n\n   @ 0, 0 GET oGet VAR cText OF oDlg SIZE 150, 100 MEMO\n\n   oGet&#58;bGotFocus = &#123; || oGet&#58;SetSel&#40; 0, 0 &#41;, oGet&#58;SetPos&#40; nAt - 1 &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT SkipLines&#40; nCRLFs, oGet, nAt &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction SkipLines&#40; nLines, oGet, nAt &#41;\n\n   local n\n   \n   for n = 1 to nLines\n      oGet&#58;PostMsg&#40; WM_VSCROLL, 1 &#41;\n   next\n\nreturn nil      \n   \n//----------------------------------------------------------------------------//\n[/code:2id5ccbb]','',0,'AIA=','2id5ccbb',1,0,'',2,0,0),(42394,8944,3,2,0,'87.218.146.139',1195991981,1,0,1,1,1,1,'','','Colin,\n\n&gt; Thanks that worked great\n\ngood <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; Are you using parallels on your mac or vmware to run Vista and XP\n\nI run OSX, Vista and Linux natively, all of them, to have the fastest speed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAnyhow, I prefer vmware as I can use the same virtual machines files from Windows, OSX and Linux','',0,'AIA=','iw7x6byn',1,0,'',2,0,0),(42395,8900,3,868,0,'219.64.121.60',1195997800,1,0,1,1,1,1,'','','Mr Antonio\n\nCan a fix be made available for multi-line prompts for tbar without 2007 style please?','',0,'AIA=','103295gb',1,0,'',868,0,0),(42396,8943,6,1233,0,'190.83.79.132',1196004818,1,0,1,1,1,0,'','Re: Error al compilar source de FiveWin 2.6','Bueno, muchas gracias, eso me resolvió el problema, pero cada vez salen más problemas.\n\nAhora me arroja esto:\n\ndbms.prg( 29 ) Warning W0027  Meaningless use of expression: \':\'\ndbms.prg( 29 ) Warning W0027  Meaningless use of expression: \':\'\ndbms.prg( 30 ) Warning W0027  Meaningless use of expression: \':\'\ndbms.prg( 30 ) Warning W0027  Meaningless use of expression: \':\'\ndbms.prg( 38 ) Error E0030  Syntax error: \"syntax error at \'CFILE\'\"\n\nestas son las líneas de dbms.prg\n\nCLASS TDbms\n\n   DATA   cFile                AS CHARACTER\n   DATA   aDb, aField, aIndex  AS ARRAY\n\n   METHOD New( cName )      CONSTRUCTOR\n   \n   METHOD Redefine( cFile ) INLINE ::New( cFile ), ::Read(), Self\n   \n   METHOD Update( oSelf )\n\n   METHOD AddField( cName, cTipo, nLen, nDec )\n   METHOD AddIndex( cName, cKey, bKey, cFor, bFor, lUnique )\n   METHOD AddDb( oDbm )\n\n   METHOD ReadFields()\n   METHOD ReadIndexs() VIRTUAL\n   METHOD ReadDb()\n      \n   METHOD WriteFields()\n   METHOD WriteIndexs() VIRTUAL\n   METHOD WriteDb()\n\n   [b:sr53iowu]// LINEA 29[/b:sr53iowu]\n   METHOD Create()      INLINE ::WriteFields, ::WriteIndex, ::WriteDb\n\n   [b:sr53iowu]// LINEA 30[/b:sr53iowu]\n   METHOD Read()        INLINE ::ReadFields, ::ReadIndex, ::ReadDb\n\nENDCLASS\n\nMETHOD New( cFile ) CLASS TDbms\n\n   BYNAME cFile DEFAULT \"DBMS\"  [b:sr53iowu]// LINEA 38[/b:sr53iowu]\n\n   ::aDb    := {}\n   ::aField := {}\n   ::aIndex := {}\n\nreturn nil\n\nQué pasa ahora ??\n\nGracias','',0,'QA==','sr53iowu',1,0,'',1233,0,0),(42397,8948,6,9,0,'85.60.51.8',1196009599,1,0,1,1,1,1,'','','Antonio,\n\nEs la misma versión.- Yo creo que es un problema con Windows Object Linking (OLE) que está dañado.- ¿Alguien sabe como puedo comprobar si es eso y como arreglarlo?','',0,'QA==','1lkn71qf',1,0,'',9,0,0),(42398,8948,6,9,0,'85.60.51.8',1196010816,1,0,1,1,1,1,'','','Solucionado:\n\nTenia COM+ y DCOM manual en services.msc','',0,'QA==','12jg6nkt',1,0,'',9,0,0),(42399,8950,3,851,0,'212.160.69.43',1196011358,1,0,1,1,1,0,'','color in gets','how may I change color in gets \nget in which there is cursor is yellow othets gets  white','',0,'QA==','35wvb3nn',1,0,'',851,0,0),(42400,8951,6,1146,0,'87.223.173.186',1196011847,1,0,1,1,1,0,'','error deleting enhanced metafile','Antonio,\n\nA veces, usando la clase Trpinter cuando imprimo a mitad del folio o dejo uno en blanco me salta el siguiente error:\n\n[url=http&#58;//img233&#46;imageshack&#46;us/my&#46;php?image=errorit8&#46;png:purz5mk3][img:purz5mk3]http&#58;//img233&#46;imageshack&#46;us/img233/1364/errorit8&#46;th&#46;png[/img:purz5mk3][/url:purz5mk3]\n\n¿Por qué sucede?. Un saludo,\n\nMoisés\n\nHarbour  + FW.10','',0,'GA==','purz5mk3',1,0,'',1146,0,0),(42401,8950,3,2,0,'87.218.146.139',1196020164,1,0,1,1,1,1,'','','kajot,\n\nDo you want white all of them ? \n\nOr yellow the focused one ?','',0,'GA==','1vhwl9tb',1,0,'',2,0,0),(42402,8943,6,2,0,'87.218.146.139',1196020909,1,0,1,1,1,1,'','','Los warnings los puedes ignorar, y esto debería solucionar el problema de la línea 38:\n\n#xtranslate BYDEFAULT &lt;V&gt;, &lt;Val&gt;     =&gt; if( &lt;V&gt; == NIL, &lt;Val&gt;, &lt;V&gt; )','',0,'GA==','3v5uc443',1,0,'',2,0,0),(42403,8943,6,1233,0,'190.83.79.132',1196021435,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1oc6aygh]Los warnings los puedes ignorar, y esto debería solucionar el problema de la línea 38:\n\n#xtranslate BYDEFAULT &lt;V&gt;, &lt;Val&gt;     =&gt; if( &lt;V&gt; == NIL, &lt;Val&gt;, &lt;V&gt; )[/quote:1oc6aygh]\n\nYa eso lo había colocado siguiendo las instrucciones que me diste en una respuesta previa, pero continúa con el error','',0,'gA==','1oc6aygh',1,0,'',1233,0,0),(42404,8943,6,2,0,'87.218.146.139',1196021648,1,0,1,1,1,1,'','','Cambia la línea 38 por estas:\n\nDEFAULT cFile := \"DBMS\"\n\n::cFile = cFile','',0,'gA==','3bfzky7q',1,0,'',2,0,0),(42405,8952,3,210,0,'81.24.159.58',1196028510,1,0,1,1,1,1,'','error.log not writable','[b:1zzmyhdm]I found, that in VISTA the error.log are not writable, if the programm runs in Program Files folder and the user are not administrator! [/b:1zzmyhdm]This error.log should in this cases writing to another directory!? Also should to every programm, that uses VISTA, included a modified manifest!\nMfG\nGünther','',0,'QA==','1zzmyhdm',1,0,'',210,0,0),(42406,8952,3,6,0,'79.3.217.165',1196029978,1,0,1,1,1,1,'','Re: error.log not writable','[quote=&quot;byte-one&quot;:1f0es5s9][b:1f0es5s9]I found, that in VISTA the error.log are not writable, if the programm runs in Program Files folder and the user are not administrator! [/b:1f0es5s9]This error.log should in this cases writing to another directory!?[/quote:1f0es5s9]\n\nTry using the following command:\n\nSET ERRORLOG TO &lt;cLogFile&gt; [ADDITIVE]\n\nEMG','',0,'wA==','1f0es5s9',1,0,'',6,0,0),(42407,8943,6,1233,0,'190.83.79.132',1196030297,1,0,1,1,1,0,'','','Asi sigue saliendo error, pero le quité la cláusula DEFAULT y lo dejé asi:\n\nBYNAME cFile //DEFAULT cFile:=\"DBMS\"\n::cFile := cFile\n\nAsí funcionó.\n\nPero ahora me da este error:\n\nddeserv.prg(11) Error F0028  Can\'t open #include file: \'DdeFV.ch\'\n\nNo entiendo por qué me da este tipo de errores cuando se supone que en el include deben estar todos los archivos .ch\n\n[quote=&quot;Antonio Linares&quot;:3p3chnzf]Cambia la línea 38 por estas:\n\nDEFAULT cFile := \"DBMS\"\n\n::cFile = cFile[/quote:3p3chnzf]','',0,'gA==','3p3chnzf',1,0,'',1233,0,0),(42408,8943,6,2,0,'87.218.146.139',1196031494,1,0,1,1,1,1,'','','Johan,\n\nNo todos los PRGs que hay en source/classes se usan al construir FWH. \n\nAlgunos son contribuciones ó ejemplos de algunos usuarios, pero no estan incluidos en las librerías','',0,'gA==','v1hjbhrf',1,0,'',2,0,0),(42409,8953,3,1151,0,'203.173.141.70',1196041405,1,0,1,1,1,0,'','Insert Row/Column into Excel','Can anyone tell me how to insert a new row using OLE?','',0,'gA==','2d193t8i',1,0,'',1151,0,0),(42410,8954,3,239,0,'121.33.139.73',1196047135,1,0,1,1,1,0,'','DBF could not open','Hi ,\n  Sorry for long time not use DBF but tmysql, now:\n  use adbffile\n  ?used() \n// .f.\n \n harbour 1.1rc +fwh711\n\nBest regards\nShuming Wang','',0,'gA==','33hz311u',1,0,'',239,0,0),(42411,8955,6,439,0,'200.125.42.72',1196050757,1,0,1,1,1,1,'','Nueva Versión de VeRCE!!!!!','He tenido el placer de ser Betatester de la nueva versión de VeRCE, y mi buen amigo William Morales, me ha pedido que sea quien se los anuncie. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n[b:m1elfrwm]Ya está disponible la nueva versión de VeRCE 5.2 !!!!!!!![/b:m1elfrwm]\n\nLa pueden descargar de:\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/verce/verce52.zip\">http://incos.sytes.net/fivewin/verce/verce52.zip</a><!-- m -->\n\nAlgunas de sus mejoras:\nSe pueden agregar archivos .cpp a las compilaciones\nmúltiples .RC o .RES\nVeRCEDitor 1.0 actualmente un visualizador de código, el cual pronto será editor.\n\nLa hemos probado exaustivamente y no hemos hallado fallas, Juan Carlos Salinas Ojeda y William Morales, el equipo de desarrollo de VeRCE, esperan que sea de vuestro agrado.\n\nNaturalmente ante cualquier consulta o sugerencias o para reportar una falla pueden dirigirse a:\n[i:m1elfrwm][b:m1elfrwm] <!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e --> y <!-- e --><a href=\"mailto:jcso@esm.com.mx\">jcso@esm.com.mx</a><!-- e --> ASUNTO: VeRCE[/b:m1elfrwm][/i:m1elfrwm]','',0,'YA==','m1elfrwm',1,0,'',439,0,0),(42412,8956,3,239,0,'121.33.139.73',1196056568,1,0,1,1,1,0,'','otreeview of a dialog and cprompt editable','Hi,\n   Someone who could define a treeview of a dialog ? now must of a window.\n   Someone who could define a tree prompt editable  at runtime?\nThanks !\nShuming Wang','',0,'YA==','2rrxfba9',1,0,'',239,0,0),(42413,8950,3,851,0,'80.48.68.134',1196058595,1,0,1,1,1,0,'','','yellow the focused one','',0,'YA==','3lccfp3c',1,0,'',851,0,0),(42414,8951,6,838,0,'80.34.222.112',1196062198,1,0,1,1,1,0,'','','Revisa los page ... endpage\n\nEsto suele ocurrir cuando no se cierra correctamente un endpage, cuando hay algún if..... endpage y al salir se encuentra con otro endpage.\n\nSaludos\n\nJose Luis','',0,'YA==','3nnq572y',1,0,'',838,0,0),(42415,8926,20,1009,0,'82.187.221.169',1196066979,1,0,1,1,1,0,'','','mi puoi dare il link per favore, non riesco atrovarlo.\n\nciao, marzio','',0,'YA==','klopxjza',1,0,'',1009,0,0),(42416,8950,3,2,0,'87.218.146.139',1196067634,1,0,1,1,1,1,'','','In any of the GETs that you use do this\n\n@ ..., ... GET oGet VAR ... \n\noGet:SetColorFocus( nRGB( 140, 140, 140 ) )\n\nIt will modify ALL the GETs of your application','',0,'YA==','fo53h56d',1,0,'',2,0,0),(42417,8926,20,6,0,'79.2.214.143',1196068558,1,0,1,1,1,1,'','','Non c\'è un link. All\'SVN, così come al CVS, si accede con un client apposito, ad esempio TortoiseSVN.\n\nEMG','',0,'YA==','3ggs8w92',1,0,'',6,0,0),(42418,8953,3,6,0,'79.2.214.143',1196069051,1,0,1,1,1,1,'','Re: Insert Row/Column into Excel','[code:220sjdc7]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oExcel &#58;= CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n\n    LOCAL oWorkbook &#58;= oExcel&#58;Workbooks&#58;Add&#40;&#41;\n\n    LOCAL oSheet &#58;= oExcel&#58;ActiveSheet\n\n    oSheet&#58;Cells&#40; 1, 1 &#41;&#58;Value = &quot;Test 1A&quot;\n    oSheet&#58;Cells&#40; 1, 2 &#41;&#58;Value = &quot;Test 1B&quot;\n\n    oSheet&#58;Cells&#40; 2, 1 &#41;&#58;Value = &quot;Test 3A&quot;\n    oSheet&#58;Cells&#40; 2, 2 &#41;&#58;Value = &quot;Test 3B&quot;\n\n    oSheet&#58;Rows&#40; 2 &#41;&#58;Insert&#40;&#41;\n\n    oSheet&#58;Cells&#40; 2, 1 &#41;&#58;Value = &quot;Test 2A&quot;\n    oSheet&#58;Cells&#40; 2, 2 &#41;&#58;Value = &quot;Test 2B&quot;\n\n    oExcel&#58;Visible = &#46;T&#46;\n\n    RETURN NIL[/code:220sjdc7]\n\nEMG','',0,'AIA=','220sjdc7',1,0,'',6,0,0),(42419,8957,3,49,0,'213.82.134.66',1196069197,1,0,1,1,1,1,'','Box Round','I want create a Box with RoundBox function but I want only the top angles must be round\n\nHow I can Create it ?','',0,'AIA=','2w6mv6tu',1,0,'',49,0,0),(42420,8531,3,49,0,'213.82.134.66',1196069365,1,0,1,1,1,1,'','','Dear Otoo,\nHow it must be ?\nCan you insert here or send at private email some screencaputures of Msgbox of Offeice 2007 \'\n\nTHANKS','',0,'AIA=','2f0yzn6u',1,0,'',49,0,0),(42421,8926,20,49,0,'213.82.134.66',1196069888,1,0,1,1,1,1,'','','..... e non credo vada bene per i sistemi Symbian ma solo per quelli con Windows Mobile e che abbiamo un processore del tipo ARM\n\nper gli altri puoi provare hb++','',0,'AIA=','1o0rwhu6',1,0,'',49,0,0),(42422,8531,3,51,0,'80.122.88.242',1196070470,1,0,1,1,1,0,'','','Hello Silvio,\nI think the design  is as simple like the bitmap above shows.\n\nRegards,\nOtto','',0,'AIA=','2b906vgg',1,0,'',51,0,0),(42423,8958,3,51,0,'80.122.88.242',1196070678,1,0,1,1,1,0,'','OT: Multiedit','Does someone know where to setup:\nFile specification and Starting path in the search window?\nThanks in advance\nOtto\n\n[img:2ihxb6ep]http&#58;//www&#46;atzwanger&#46;com/fw/multiedit&#46;jpg[/img:2ihxb6ep]','',0,'CA==','2ihxb6ep',1,0,'',51,0,0),(42424,8951,6,1146,0,'87.223.173.186',1196072075,1,0,1,1,1,0,'','','Muchas gracias. Sin embargo, todo se imprime correctamente, por lo que si hubiera algún error de PAGE ENDPAGE, ¿se debería imprimir mal, verdad?','',0,'CA==','2ykjjhm2',1,0,'',1146,0,0),(42425,8951,6,838,0,'80.34.222.112',1196072989,1,0,1,1,1,0,'','','Que va\n\nIncluso éste error no detiene la ejecución de la impresión. Simplemente se elimina el error, y la impresión continua correctamente, pero es una castaña tener que estar siempre quitando el error.\n\nHazme caso, revisa algún bucle que tengas dentro del page, que lo que pasa es que sale bruscamente.\n\nSaludos\n\nJose Luis','',0,'CA==','1d5ksnug',1,0,'',838,0,0),(42426,8872,3,51,0,'80.122.88.242',1196074602,1,0,1,1,1,0,'','','Antonio, if you change the folder caption to\n\n@ 0.5, 10 FOLDER oFld PROMPT \"Hotel\",\"Kasse\",\"Telefon\",\"Diverse\",\"frei\" ;\nOF oDlg SIZE 160, 90\nthen you get wrong folders back.\nRegards,\nOtto\n\n\n\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\nlocal oDlg, oFld\nLOCAL oBrw1\nLOCAL oBrw2\nlocal oCursor\n\n\nDEFINE CURSOR oCursor HAND\n\nUSE fivetest New\n\nDEFINE DIALOG oDlg TITLE \"FiveWin Dynamic folders\" ;\nFROM 5, 5 TO 40, 150\n\n@ 0.5, 10 FOLDER oFld PROMPT \"Hotel\",\"Kasse\",\"Telefon\",\"Diverse\",\"frei\" ;\nOF oDlg SIZE 160, 90\n\n\n@ 1, 1 LISTBOX oBrw1 FIELDs (fivetest-&gt;first) ;\nHEADERS \"Name\" ;\nFIELDSIZES 140 ;\nSIZE 140, 60 ;\nOF oFld:aDialogs[ 1 ]\n\n\n@ 1, 10 LISTBOX oBrw2 FIELDs (fivetest-&gt;first) ;\nHEADERS \"Name\" ;\nFIELDSIZES 140 ;\nSIZE 140, 60 ;\nOF oFld:aDialogs[ 2 ]\n\noBrw1:oDragCursor := oCursor\noBrw2:oDragCursor := oCursor\n\noFld:bDropOver = { |uDropInfo,nRow,nCol,nKeyFlags|ShowPos( nRow, nCol, oFld ) }\n\nACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\nfunc ShowPos( nRow, nCol, oFld )\nlocal nFolioNo\nlocal cChk, n, cOrgChk\nlocal nAmt\nLOCAL cBezeichnung := \"\"\nlocal nSatzNr := recno()\nlocal aPoint\n\nnFolioNo := oFld:nOption\ncOrgChk := str(oFld:nOption)\ncChk := \'\'\n\n\n\nif nRow &gt; 32000\nnRow = - ( 65535 - nRow )\nendif\n\nif nCol &gt; 32000\nnCol = - ( 65535 - nCol )\nendif\n\naPoint = { nRow, nCol }\n\naPoint = ClientToScreen( GetFocus(), aPoint )\nScreenToClient( oFld:hWnd, aPoint )\n\n\ncChk := str(TabChk( aPoint[ 2 ],oFld ),1)\n\nreturn\n\n************************************************************\nFunction TabChk( nCol, oFld )\n\n   local n := 1, nPos := 0\n\n   while nPos &lt; nCol .and. n &lt;= Len( oFld:aPrompts )\n      nPos += GetTextWidth( 0, oFld:aPrompts[ n++ ], oFld:oFont:hFont ) + 5\n   end\n\n   msginfo( \"Drop to \" + oFld:aPrompts[--n])\n\nreturn n','',0,'','212xeqfj',1,0,'',51,0,0),(42428,8951,6,1146,0,'87.223.173.186',1196077546,1,0,1,1,1,0,'','','José Luis,\n\nEfectivamente, tenías razón, tenía un error en el bucle. Lo que me desconcertó es que se imprimía bien.\n\nMuchas gracias por tu ayuda <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->.\n\nUn saludo,\n\nMoisés','',0,'GA==','21ibayxd',1,0,'',1146,0,0),(42429,8531,3,392,0,'201.1.1.96',1196077673,1,0,1,1,1,1,'','','Run only on Windows Vista?','',0,'GA==','1npltnix',1,0,'',392,0,0),(42430,8958,3,19,0,'83.238.24.193',1196077912,1,0,1,1,1,0,'','','Otto.\n\nTools-&gt;Customize-&gt;Search-&gt;File Find-&gt;Starting Path\n\nregards Eugeniusz','',0,'GA==','3ld8qt6i',1,0,'',19,0,0),(42432,8958,3,2,0,'87.218.146.139',1196079089,1,0,1,1,1,1,'','','Otto,\n\nI recommend you to review UEStudio:\n<!-- m --><a class=\"postlink\" href=\"http://www.ultraedit.com/index.php?name=Content&amp;pid=150\">http://www.ultraedit.com/index.php?name=Content&amp;pid=150</a><!-- m -->\n\nI was a multiedit user until I found UEStudio. It is excellent and very friendly <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','onyj64n8',1,0,'',2,0,0),(42433,8872,3,2,0,'87.218.146.139',1196079324,1,0,1,1,1,1,'','','Otto,\n\nTry with different values instead of + 5 in TabChk()','',0,'GA==','3dgp94w8',1,0,'',2,0,0),(42434,8957,3,217,0,'200.159.120.34',1196079899,1,0,1,1,1,0,'','Re: Box Round','Silvio,\n\nTry search for TSLines.prg from Manuel Mercado. See Paint method it can help you to get an idea to do what you want.\nSorry if I can\'t send you this file, I have it in home but I\'m not in home now...\n\nRegards,\nMaurilio','',0,'GA==','1qdqe7z6',1,0,'',217,0,0),(42435,8942,3,217,0,'200.159.120.34',1196080215,1,0,1,1,1,0,'','Re: xBrowser – equivalent for listbox oLbx:GetPos()','Otto, if I\'m not wrong:\n\noBrowse:nRowSel  ==&gt; current row selected\noBrowse:nColSel  ==&gt; current col selected\n\n\nRegards,\nMaurilio','',0,'GA==','2bcfuhio',1,0,'',217,0,0),(42439,8942,3,51,0,'80.122.88.242',1196083571,1,0,1,1,1,0,'','','Thank you. \nOtto','',0,'gA==','32wxshsw',1,0,'',51,0,0),(42440,8959,6,644,0,'201.253.212.37',1196083942,1,0,1,1,1,0,'','Barras de Scroll en wbrowse','Estoy usando el wbrowse de Cecarelli y quisiera saber si puede aparecer la barra de scroll vertical aunque el browse no tenga registros que mostrar. Si lo hago desde recursos lo puedo hacer pero desde código no se como hacerlo. Hay alguna manera ??. Desde ya muchas gracias.','',0,'gA==','34xfrs4a',1,0,'',644,0,0),(42441,8872,3,51,0,'80.122.88.242',1196083965,1,0,1,1,1,0,'','','Thank you Antonio,\nI can hardcode  the values.  But this syntax is not dbase-like.\nRegards,\nOtto','',0,'gA==','3b7i1sk5',1,0,'',51,0,0),(42442,8958,3,51,0,'80.122.88.242',1196084301,1,0,1,1,1,0,'','','Thank you Eugeniuzs. I never found this setup-window.\nThanks again.\n\n@Antonio\nI tried ultraedit but at the moment I don\'t see any adantage for me.\nI use ME since the DOS-version ...','',0,'gA==','ebg0ukrn',1,0,'',51,0,0),(42443,8960,3,995,0,'81.11.193.29',1196086351,1,0,1,1,1,0,'','Can not create dialog 7.11','Hello,\n\nLast week we have made a upgrade to fwh7.11\n\nFrom that moment we have many error\'s , \'can not create dialog\', at random . Today , with 5 customers , +/- 10\n\nThis error occurs only after some time ( 30 min) , so i suppose it has something to do with memory management.\n\nHow can i test memory and controle were it go\'s down ?\n\nFrank','',0,'gA==','w4kmui1u',1,0,'',995,0,0),(42444,8960,3,51,0,'80.122.88.242',1196089236,1,0,1,1,1,0,'','','Do you have this fix?\n\nThis is a necesary fix for FWH 7.11 in Class TMsgBar: \nCode: \n\nMETHOD SetMsg( cText ) CLASS TMsgBar \n\n   DEFAULT ::cMsg := \"\" \n    \n   if ::l2007 \n      ::cMsg = cText \n      ::Refresh() \n      return nil \n   endif    \n    \n   ::GetDC()   // must be placed here!!! \n   ... \n \n\n_________________\nregards, saludos \n\nAntonio Linares \n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'gA==','247wob6q',1,0,'',51,0,0),(42445,8961,3,51,0,'80.122.88.242',1196089401,1,0,1,1,1,0,'','Tool to admin the fivewin demos','I add here a CHANGE LOG  and replace the source to the newest one.\n*************************************************************\n- direct visualization, order in the header, enter and dblclick to compile  by Marcelo Via Giglio\n- button for “Open with TextEditor” by Otto\n*************************************************************\n\nMaybe there are tools around to manage the FW demos. \nI don’t know. For my private use I made this little tool.\n\n\n[img:163zvuc9]http&#58;//www&#46;atzwanger&#46;com/fw/demotool&#46;jpg[/img:163zvuc9]\n\n****************\n2007-11-27  13:55\n****************\n\n#include \"FiveWin.ch\"\n#include \"InKey.ch\"\n#include \"xbrowse.ch\"\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\nlocal oWnd, oBmp\nlocal oBrw, oCol\nlocal aStruc\nlocal oRes, cRes\nLOCAL aInhalt := directory(\"*.prg\",\"D\")\nLOCAL oFnt\n\nDEFINE FONT oFnt NAME \"ARIAL\" SIZE 6 ,15 BOLD\n\nDEFINE WINDOW oWnd TITLE \"DemoTool\" ;\nFROM 50,50 TO 700,1030 PIXEL\noWnd:SetFont(oFnt)\n\noBrw := TXBrowse():New( oWnd )\noBrw:nTop := 10\noBrw:nLeft := 20\noBrw:nBottom := 600\noBrw:nRight := 300\n\naStruc :={}\naadd(aStruc,{\"SOURCE\"})\naadd(aStruc,{\"2\"})\naadd(aStruc,{\"3\"})\n\noBrw:SetArray( ainHalt,  .T. )\noBrw:aCols[1]:cHeader := \'Source\'\noBrw:aCols[1]:nWidth := 157\n\noBrw:aCols[2]:cHeader := \'Size\'\noBrw:aCols[3]:cHeader := \'Date\'\n\n\noBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW\noBrw:nRowDividerStyle := LINESTYLE_BLACK\n\noBrw:lRecordSelector := .f.\n\noBrw:bChange := {|| fmemoread(oBrw,oRes) }\n\noBrw:bLDblClick := {|| compile( oBrw ) }\n\noBrw:bKeyDown := {|nkey| iF( nkey = 13, compile( oBrw ), ) }\n\noBrw:lHScroll := .f.\n\noBrw:CreateFromCode()\n\n@ 10,350 GET oRes VAR cRes OF oWnd PIXEL;\nMULTILINE ;\nSIZE 600, 550 COLOR CLR_BLUE, CLR_WHITE READONLY\n\n@ 570, 350 BUTTON \"&amp;Compile\" OF oWnd PIXEL SIZE 100,30;\nACTION compile( oBrw )\n\n@ 570, 850 BUTTON \"&amp;Exit\" OF oWnd PIXEL SIZE 100,30;\nACTION oWnd:end()\n\n@ 570, 500 BUTTON \"&amp;Open with TextEditor\" OF oWnd PIXEL SIZE 150,30;\n        ACTION TextEditor( oBrw )\n\nACTIVATE WINDOW oWnd ON INIT fmemoread(oBrw,oRes)\nreturn nil\n\n//----------------------------------------------------------------------------//\nfunc fmemoread(oBrw,oRes)\nlocal cFile := oBrw:aArrayData[oBrw:nArrayAt,1]\noRes:cText( MemoRead( cFile ) )\nreturn nil\n\n//----------------------------------------------------------------------------//\nfunction compile( oBrw )\n        //winexec(\"buildx.bat \" + substr(oBrw:aArrayData[oBrw:nArrayAt,1],1,( len(oBrw:aArrayData[oBrw:nArrayAt,1])-4) ) )\n        winexec(\"buildh.bat \" + substr(oBrw:aArrayData[oBrw:nArrayAt,1],1,( len(oBrw:aArrayData[oBrw:nArrayAt,1])-4) ) )\nreturn nil\n\n//----------------------------------------------------------------------------//\nfunction TextEditor( oBrw )\n        winexec(\"c:\\MEW8\\MEW32.exe \" + oBrw:aArrayData[oBrw:nArrayAt,1] )\nreturn nil','',0,'CA==','163zvuc9',1,1196168183,'',51,3,0),(42446,8960,3,995,0,'81.11.193.29',1196089714,1,0,1,1,1,0,'','','Otto ,\n\nYes , it is applyed. It seems to be very bad , since the previous thread , 3 other errors are reported , all \'cannot create dialog\' , at random.\n\nMost off them occurs after +/- 1 hour\n\nFrank','',0,'CA==','2x5dcglk',1,0,'',995,0,0),(42447,8962,3,167,0,'207.119.126.13',1196091174,1,0,1,1,1,1,'','xharbour version 1.0','I\'m using xharbour .9971.\nMy FWH version is Oct 2007 (7.10) \nMy complier is Borland C++ 5.5\n\nWill these FWH files work with the latest Xharbour beta 1.0 of November 9th, 2007 ??','',0,'CA==','59g4wzmf',1,0,'',167,0,0),(42448,8960,3,51,0,'80.122.88.242',1196092308,1,0,1,1,1,0,'','','Hello Frank,\n\nI don’t have FWH versions at my clients. In-house we use the program 7*24 hours with no problem on Vista PC\'s.\nI use Harbour what do you use?\n\nSure you are a harbor expert but I mention what problems I faced:\n\nI had fieldnames and function names in clipper where sometimes from the 10 position on the names were not identically.\nClipper does not care about but in harbor you get an error.\n\n\nRegards,\nOtto','',0,'CA==','izhe5acn',1,0,'',51,0,0),(42449,8963,3,210,0,'81.24.159.58',1196092435,1,0,1,1,1,1,'','error.log not writable','Hello EMG, your tip\n\nTry using the following command: \nSET ERRORLOG TO &lt;cLogFile&gt; [ADDITIVE] \n\nis not practicable in Harbour! \nI show to source and i see that the file for errorlog is hard-coded. Mr. Linares, for VISTA i cannot write this errorlog to Program Files folder. Please allow also the command  SET ERRORLOG TO &lt;cLogFile&gt; [ADDITIVE] !\nMfG\nGünther','',0,'','2iu7ukai',1,0,'',210,0,0),(42450,8964,6,1090,0,'201.254.62.37',1196092675,1,0,1,1,1,0,'','Error FiveWin/3  Cannot create Dialog Box','Hola. Estoy desesperado: tengo un programa que funciona perfectamente; copie una funcion a otro prg, compilo con lo mismo que el que anda, pero me dice que \"Cannon Create Dialog Box\":\n\nApplication\n===========\n   Path and name: C:\\FW192\\SAROSH\\pp.exe (32 bits)\n   Size: 1,118,720 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 26-11-2007, 12:59:48\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Resource: ART_PARAM_MOV2B\n\nStack Calls\n===========\n   Called from: .\\source\\classes\\DIALOG.PRG =&gt; CREATEDLGERROR(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from:  =&gt; TFOLDER:DEFAULT(0)\n   Called from:  =&gt; TFOLDER:INITIATE(0)\n   Called from:  =&gt; __OBJSENDMSG(0)\n   Called from: .\\source\\function\\HARBOUR.PRG =&gt; OSEND(0)\n   Called from: .\\source\\function\\HARBOUR.PRG =&gt; ASEND(0)\n   Called from:  =&gt; TDIALOG:INITIATE(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: pp.prg =&gt; MAIN(27)\n\n\nlo que no me cierra es por que anda el otro programa; ambos apuntan a la misma dll, ambos se compilan con el mismo build.bat\n\nles paso el programa que no anda a ver si se dan cuenta que es... yo me estoy volviendo loco... ademas, ¿por que funciona el otro... ? si no funcionara ninguno de los 2, bueno, pruebo hasta que arranque... compile de nuevo ambos mas o menos 10 veces, eliminando previamente los archivos .c y .ppo, por las dudas, y sigue igual, uno funciona, y el otro, que tiene la funcion con copy paste, no.\nBueno, si alguien tiene idea que puedo hacer antes de cortarme las quete jedi... le agradecere. CHAU...!!!\n\n\n\n#include \"FiveWin.ch\"\n#include \"Report.ch\"\n#include \"dtpicker.ch\"\n\n\nFUNCTION MAIN (XEMPRESA, XFUNCION, USERID, XEMPREST, CODEMP)\nLOCAL OFLD1, ODLG\n\nlocal hDLL := LoadLibrary( \"bwcc32.dll\" )\nSET RESOURCES TO \"EC32.DLL\"\nBWCCRegister( GetResources() )\n\nSET 3DLOOK ON\nset date italian\nset dele on\nset century on\n\n\n   DEFINE DIALOG oDlg RESOURCE \"ART_REPOR_MAES\" TITLE \"REPORTE MOVIMIENTOS DE STOCK\"\n\n        REDEFINE FOLDER oFld1 ID 126 OF oDlg               ;\n                PROMPT \"PARAMETROS\" , \"COMPROBANTES\", \"FORMATO\" ;\n                DIALOGS \"ART_PARAM_MOV2\" ,  \"ART_PARAM_MOV2B\", \"REPOR_IMPRE\"\n\n\n\n        ACTIVATE DIALOG oDlg centered\n\n\n\n\n\nCLOSE ALL\nSET RESOURCES TO\nSYSREFRESH()\n\n\n\n\n// ---------------------------\n\n#ifdef __XPP__\n\nprocedure AppSys  //  XBase++ requirement\n\nreturn\n\n#endif\n\n\n\nDLL32 FUNCTION BWCCRegister( hInst AS LONG  ) AS WORD PASCAL LIB \"BWCC32.DLL\"','',0,'','1zduexf4',1,0,'',1090,0,0),(42451,6999,6,875,0,'64.76.108.182',1196094315,1,0,1,1,1,0,'','','Por que no usar el  NOTEPAD para hacer un PREVIEW a nuestros reportes, ya que es mas comodo y practico en vez de  \"TxtPreview\".','',0,'','2929qeio',1,0,'',875,0,0),(42452,8965,7,57,0,'81.34.76.202',1196094972,1,0,1,1,1,1,'','Say transparente desde recursos','Antonio\n¿Es posible que un SAY desde recursos se muestre transparente?\n\nSaludos','',0,'','1zfc2ie7',1,0,'',57,0,0),(42453,8962,3,34,0,'68.5.217.82',1196095784,1,0,1,1,1,1,'','Version','I believe so.  I use 7.11 now with the November xHarbour release, but the PCode change was a while back, so you should be OK. I do not use the Borland compiler, however.  I use the MS compatible compiler included with xHarbour.','',0,'','3d5qoewt',1,0,'',34,0,0),(42454,8960,3,995,0,'81.11.193.29',1196095882,1,0,1,1,1,0,'','','Otto,\n\nFrom the moment we changed to fwh7.11 , we have at least 10 errors a day , all \'cannot create dialog\' , at random\n\n2 hours ago i went back to 7.7 , from then no errors.\n\nSo i am convinced it is a memory problem from 7.11\n\nAntonio ???\n\nFrank','',0,'','2fv949ph',1,0,'',995,0,0),(42455,8958,3,34,0,'68.5.217.82',1196095981,1,0,1,1,1,1,'','Editor','Antonio,\n\nI also use Multi-Edit.  With the xBase add on that is included, it does a great job with .prg files ( and virtually anything else ).  It also has an included file compare ( line by line ) utility that is excellent.  Formatting is important, and it works well.\n\nI have also used it since the DOS version and have looked at ( and tried ) other editors, but none provide a reason to switch.\n\nTim','',0,'','39wcj8bp',1,0,'',34,0,0),(42456,8963,3,34,0,'68.5.217.82',1196096041,1,0,1,1,1,1,'','Error log','My error log file writes just fine in Vista ...','',0,'','sqd0718a',1,0,'',34,0,0),(42457,8963,3,6,0,'79.19.240.1',1196096590,1,0,1,1,1,1,'','Re: error.log not writable','[quote=&quot;byte-one&quot;:3rujbv94]Hello EMG, your tip\n\nTry using the following command: \nSET ERRORLOG TO &lt;cLogFile&gt; [ADDITIVE] \n\nis not practicable in Harbour![/quote:3rujbv94]\n\nYes, it works with xHarbour.\n\nEMG','',0,'gA==','3rujbv94',1,0,'',6,0,0),(42458,8958,3,51,0,'80.122.88.242',1196097571,1,0,1,1,1,0,'','','Hello Tim,\nthank you for your answer.\nLast Sunday I spend some time on the macro possibilities ME has and I tried to find out how ME does the editing of TAGs in htm view.\nDo you think this could be done with prg-files, too?\n\nAnother question:\nMany times I have to convert data from other formats to dbf. It would be fine if you could go from column to column and press a key and a macro would write the position to the place (see example: Pos1 18, Pos2 27 …). Sometimes clients have databases with more than 100 columns.  Then you could extract this line and you could create very easy a dbf-structure programmatically.\nDo you think this could work?\n\n1            19940226  45023          Sehr geehrter Herr              Herrn            Liebmann\n             Pos1 18   Pos2 27        Pos3 43                         Pos4 74          Pos5 91\n1**          19930212    123          Liebe Familie                   Familie          Adebahr\nA            19950313  6057HR         Sehr geehrte Damen und Herren   Firma            Alpine May\nFXA          20060603 111596          Sehr geehrter Herr              Herrn            Fischer\nM            19950603  63874          Sehr geehrter Herr              Herrn            Aber\n\nRegards,\nOtto','',0,'gA==','1ux51f97',1,0,'',51,0,0),(42459,8960,3,51,0,'80.122.88.242',1196097634,1,0,1,1,1,0,'','','Do you use harbour or xHarbour?\nRegards,\nOtto','',0,'gA==','2s9nvy69',1,0,'',51,0,0),(42460,8963,3,3,0,'80.81.159.19',1196098141,1,0,1,1,1,1,'','Re: Error log','Tim,\n\nVista \"Pro\" does not allow to write on the root disk (\"c\"), i guess it is the same with program files\n\nVista Home is ok , no problem,\n\nRichard','',0,'gA==','33p4qug5',1,0,'',3,0,0),(42461,8955,6,228,0,'190.25.168.51',1196100948,1,0,1,1,1,1,'','Link?','Amigazo willi? Gracias por tu trabajo de verdad que si.... \n\nTe molesto por que el link de tu server no me ha funcionado...\n\nSaludos','',0,'gA==','2sndrvkk',1,0,'',228,0,0),(42462,8960,3,2,0,'87.218.146.139',1196101214,1,0,1,1,1,1,'','','Frank,\n\nWe haven\'t modified anything in 7.11 that could cause those \"can\'t create dialog\" errors.\n\nIt has to be something else that you have recently changed in your application, or something related to Harbour/xharbour\n\nDo you use Borland controls in your dialog boxes ?','',0,'gA==','gwrpwbgc',1,0,'',2,0,0),(42463,8964,6,180,0,'79.146.64.94',1196101733,1,0,1,1,1,0,'','','Hola Diego:\n\nSi has creado la DLL de recursos con el WORKSHOP y luego la has pasado a 32 bit, recuerda que  el control TFOLDER pasa a llamarse SYSTABCONTROL32, a ver si es ese el problema. Busca en estas news por \"systabcontrol32\" y encontrarás información al respecto.\n\nUn saludo,\nManuel','',0,'gA==','1bkjc6wn',1,0,'',180,0,0),(42464,8960,3,2,0,'87.218.146.139',1196102791,1,0,1,1,1,1,'','','What controls do you use in those dialogboxes ?','',0,'gA==','btm9i4ae',1,0,'',2,0,0),(42465,8964,6,1090,0,'201.254.62.37',1196103582,1,0,1,1,1,0,'','el systab esta correcto','aca esta la parte del .rc que estoy usando. Y esta el systab... ademas con otro prg funciona... es alguna diferencia entre los 2 prgs... no puedo encontrar que es. Gracias igual\n\n\nART_REPOR_MAES DIALOG LOADONCALL MOVEABLE DISCARDABLE 21, -3, 322, 272\nSTYLE WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX | WS_MAXIMIZEBOX\nCAPTION \"REPORTE\"\nFONT 10, \"System\"\n{\n CONTROL \"\", 126, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 4, 312, 242\n DEFPUSHBUTTON \"Aceptar\", 1, 219, 252, 44, 14\n PUSHBUTTON \"Cancelar\", 2, 272, 252, 44, 14\n}\n\n\n\n\n\n[quote=&quot;Manuel Aranda&quot;:i18w8unv]Hola Diego:\n\nSi has creado la DLL de recursos con el WORKSHOP y luego la has pasado a 32 bit, recuerda que  el control TFOLDER pasa a llamarse SYSTABCONTROL32, a ver si es ese el problema. Busca en estas news por \"systabcontrol32\" y encontrarás información al respecto.\n\nUn saludo,\nManuel[/quote:i18w8unv]','',0,'gA==','i18w8unv',1,0,'',1090,0,0),(42466,8964,6,2,0,'87.218.146.139',1196104270,1,0,1,1,1,1,'','','Diego,\n\n&gt; DIALOGS \"ART_PARAM_MOV2\" , \"ART_PARAM_MOV2B\", \"REPOR_IMPRE\" \n\nPublica tambien el RC de esas cajas de diálogo, gracias','',0,'gA==','2pl0p46m',1,1196106135,'',2,1,0),(42467,8955,6,1072,0,'190.82.11.112',1196104733,1,0,1,1,1,0,'','','Amigos:\n\nMuchas gracias por el aporte y el esfuerzo que realizan en beneficio de esta gran herramienta.\n\nEl link que han publicado, no funciona, sera posible que chequeen.\n\nSaludos,\nAntonio','',0,'gA==','32ljmy11',1,0,'',1072,0,0),(42468,8961,3,2,0,'87.218.146.139',1196105290,1,0,1,1,1,1,'','','Otto,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','ybzs0ps3',1,0,'',2,0,0),(42469,8965,7,2,0,'87.218.146.139',1196105445,1,0,1,1,1,1,'','','Toni,\n\nNo lo permite Windows de forma estandard que yo sepa. \n\nTendrás que usar oWnd:Say( ... )','',0,'gA==','2tst7ym7',1,0,'',2,0,0),(42470,8963,3,34,0,'68.5.217.82',1196105734,1,0,1,1,1,1,'','Vista','It must be setup.  I use Vista Ultimate.  I never use Home versions.\n\nWhen programming, I often will have error files pop up.\n\nTim','',0,'gA==','14xjkl3n',1,0,'',34,0,0),(42471,8964,6,1090,0,'201.254.62.37',1196105912,1,0,1,1,1,0,'','dialogos solicitados','dale... lo que me desconcierta es que funciona, con un prg, del que copie con copy paste las lineas de codigo que invocan la dll. Aca van:\n\nART_PARAM_MOV2 DIALOG LOADONCALL MOVEABLE DISCARDABLE 67, 19, 363, 288\nSTYLE WS_CHILD | WS_SYSMENU\nFONT 6, \"MS Sans Serif\"\n{\n COMBOBOX 101, 44, 93, 120, 95, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"DESDE:\", -1, 13, 95, 37, 11, SS_SIMPLE | WS_GROUP\n EDITTEXT 109, 53, 32, 55, 13, ES_AUTOHSCROLL | ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n LTEXT \"DESDE:\", -1, 13, 35, 43, 11, SS_SIMPLE | WS_GROUP\n LTEXT \"Codigo Articulo:\", -1, 12, 20, 56, 11, SS_SIMPLE | WS_GROUP\n EDITTEXT 103, 53, 50, 55, 13, ES_AUTOHSCROLL | ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n LTEXT \"HASTA:\", -1, 13, 53, 43, 11, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 70, 24, 175, 2\n LTEXT \"Deposito:\", -1, 13, 81, 31, 11, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 47, 87, 199, 3\n PUSHBUTTON \"...\", 104, 113, 32, 16, 14\n PUSHBUTTON \"...\", 105, 113, 50, 16, 14\n COMBOBOX 102, 201, 93, 116, 100, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"HASTA:\", -1, 170, 95, 28, 11, SS_SIMPLE | WS_GROUP\n RADIOBUTTON \"Orden por Articulo\", 107, 13, 66, 69, 12, BS_AUTORADIOBUTTON\n RADIOBUTTON \"Orden por Deposito\", 108, 89, 66, 74, 12, BS_AUTORADIOBUTTON\n COMBOBOX 110, 598, 161, 137, 86, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"DESDE:\", -1, 593, 152, 37, 8, SS_SIMPLE | WS_GROUP\n LTEXT \"Linea:\", -1, 14, 112, 28, 11, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 37, 117, 210, 3\n COMBOBOX 111, 744, 161, 132, 76, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"HASTA:\", -1, 739, 152, 37, 11, SS_SIMPLE | WS_GROUP\n CHECKBOX \"Filtra por linea\", 106, 16, 121, 61, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n LTEXT \"Tipo de movimiento:\", -1, 15, 227, 68, 10, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 85, 232, 163, 2\n CHECKBOX \"Ajustes\", 112, 17, 237, 38, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Ingresos\", 113, 68, 237, 38, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Egresos\", 114, 124, 237, 38, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Transferencias\", 115, 177, 237, 64, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n EDITTEXT 116, 70, -89, 55, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n LTEXT \"FECHA DESDE:\", -1, 13, 8, 65, 11, SS_SIMPLE | WS_GROUP\n EDITTEXT 117, 191, -89, 55, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n LTEXT \"FECHA HASTA:\", -1, 134, 7, 65, 11, SS_SIMPLE | WS_GROUP\n LTEXT \"Otros:\", -1, 15, 249, 68, 10, SS_SIMPLE | WS_GROUP\n CHECKBOX \"Detallado\", 118, 17, 262, 45, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 38, 253, 212, 2\n EDITTEXT 119, 136, 32, 117, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n EDITTEXT 120, 136, 51, 117, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n RADIOBUTTON \"Orden por Formulario\", 121, 168, 66, 89, 12, BS_AUTORADIOBUTTON\n COMBOBOX 122, 18, 204, 137, 79, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"DESDE:\", -1, 14, 195, 37, 11, SS_SIMPLE | WS_GROUP\n LTEXT \"Rubro:\", -1, 13, 174, 28, 11, SS_SIMPLE | WS_GROUP\n CONTROL \"\", -1, \"BorShade\", 2 | WS_CHILD | WS_VISIBLE, 47, 179, 199, 3\n COMBOBOX 123, 165, 203, 132, 77, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"HASTA:\", -1, 160, 194, 37, 11, SS_SIMPLE | WS_GROUP\n CHECKBOX \"Filtra por rubro\", 124, 15, 183, 61, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Valorizado\", 125, 65, 262, 45, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n EDITTEXT 128, 56, 133, 55, 13, ES_AUTOHSCROLL | ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n LTEXT \"DESDE:\", -1, 16, 136, 43, 11, SS_SIMPLE | WS_GROUP\n EDITTEXT 129, 56, 151, 55, 13, ES_AUTOHSCROLL | ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n LTEXT \"HASTA:\", -1, 16, 154, 43, 11, SS_SIMPLE | WS_GROUP\n PUSHBUTTON \"...\", 130, 116, 133, 16, 14\n PUSHBUTTON \"...\", 131, 116, 151, 16, 14\n EDITTEXT 132, 139, 133, 117, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n EDITTEXT 133, 139, 152, 117, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n CONTROL \"\", 134, \"SysDateTimePick32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 69, 5, 56, 13\n CONTROL \"\", 126, \"SysDateTimePick32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 190, 5, 56, 13\n CHECKBOX \"Calcula Saldo Inicial\", 127, 115, 262, 78, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Solo Articulos c/mov.\", 135, 197, 262, 83, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n CHECKBOX \"Saldo fin. dif. 0\", 136, 283, 262, 64, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n}\n\n\nART_PARAM_MOV2B DIALOG LOADONCALL MOVEABLE DISCARDABLE 67, 19, 318, 288\nSTYLE WS_CHILD | WS_SYSMENU\nFONT 6, \"MS Sans Serif\"\n{\n COMBOBOX 110, 602, 156, 137, 86, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"DESDE:\", -1, 597, 147, 37, 8, SS_SIMPLE | WS_GROUP\n COMBOBOX 111, 748, 156, 132, 76, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP\n LTEXT \"HASTA:\", -1, 743, 147, 37, 11, SS_SIMPLE | WS_GROUP\n CONTROL \"\", 101, \"twbrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 19, 23, 268, 189\n LTEXT \"Seleccione los comprobantes que desee:\", -1, 19, 10, 148, 9, SS_SIMPLE | WS_GROUP\n CHECKBOX \"Marcar todos\", 102, 235, 216, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n}\n\n\nREPOR_IMPRE DIALOG LOADONCALL MOVEABLE DISCARDABLE 69, 57, 265, 59\nSTYLE WS_CHILD | WS_SYSMENU\nFONT 6, \"MS Sans Serif\"\n{\n COMBOBOX 101, 53, 11, 115, 60, CBS_DROPDOWNLIST | WS_TABSTOP\n LTEXT \"Formato:\", -1, 6, 12, 37, 11, SS_SIMPLE | WS_GROUP\n CHECKBOX \"Abrir al finalizar\", 102, 179, 11, 60, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n EDITTEXT 109, 52, 32, 189, 13, ES_UPPERCASE | ES_READONLY | WS_BORDER | WS_TABSTOP\n LTEXT \"Ruta destino:\", -1, 6, 34, 43, 11, SS_SIMPLE | WS_GROUP\n PUSHBUTTON \"...\", 104, 243, 31, 16, 14\n}\n\n\n\nProbé renombrar la dll, y cambiar el prg nuevo que no anda y el otro, y otra vez igual, el viejo funciona de 10, y el otro no.  \nGracias...!!!\n\n\n[quote=&quot;Antonio Linares&quot;:3r4vd9tv]Diego,\n\n&gt; DIALOGS \"ART_PARAM_MOV2\" , \"ART_PARAM_MOV2B\", \"REPOR_IMPRE\" \n\nPublica tambien el RC de esas cajas da diálogo, gracias[/quote:3r4vd9tv]','',0,'gA==','3r4vd9tv',1,0,'',1090,0,0),(42472,8958,3,34,0,'68.5.217.82',1196106074,1,0,1,1,1,1,'','Macros','Thats probably a post that would get answers on the Multi-Edit forum.  They have a whole section on Macros.  I only use the keystroke Macro recorder which is not working in Vista ... but they are trying to fix it.\n\nGo to <!-- w --><a class=\"postlink\" href=\"http://www.multiedit.com\">www.multiedit.com</a><!-- w --> and under support look at the forum.  There is a section for Macros and I\'ll bet you will get an immediate reply on how to handle that issue.\n\nTim','',0,'gA==','1klvpgfs',1,0,'',34,0,0),(42473,8964,6,2,0,'87.218.146.139',1196106091,1,0,1,1,1,1,'','','Tienes un \"twbrowse\", estás haciendo el REDEFINE LISTBOX ... FIELDS ... ?\n\nEn la DLL mantienes los recursos ? Que editor de recursos estás usando ?','',0,'gA==','1gfvgkab',1,0,'',2,0,0),(42474,8963,3,2,0,'87.218.146.139',1196106318,1,0,1,1,1,1,'','','Günther\n\nAs a workaround, please modify the errorsys (source\\function\\errsysw.prg) source code and hardcode there the file path that you want','',0,'gA==','233zyfq0',1,0,'',2,0,0),(42475,8872,3,51,0,'80.122.88.242',1196106588,1,0,1,1,1,0,'','','Antonio, I can’t belief that you find with\nGetTextWidth( 0, oFld:aPrompts[ 1 ], oFld:oFont:hFont )\nthe right folder. \n\nRegards,\nOtto\nnCol values is the borderline between folders\n[img:yfikdjim]http&#58;//www&#46;atzwanger&#46;com/fw/drag4&#46;jpg[/img:yfikdjim]','',0,'CA==','yfikdjim',1,0,'',51,0,0),(42476,8958,3,51,0,'80.122.88.242',1196106833,1,0,1,1,1,0,'','','Thank you, Tim. I post this question on the ME forum.\nRegards,\nOtto','',0,'CA==','1n0a8usz',1,0,'',51,0,0),(42477,8960,3,1158,0,'200.139.130.7',1196107398,1,0,1,1,1,0,'','','HI, i use fwh 7.10 and 7.11, with fix, in 7*24, 15 workstations, 1000000 records without problems.\n\nxharbour cvs 1.00 30/10/2007 (compile myself)\nfwh 7.11 (compile myself)\nbcc 551 sp2\nads server (local to tests)\nwindows server network with nt4 workstation and xp workstations\n\nare you using borland controls??','',0,'CA==','3id9s2o4',1,0,'',1158,0,0),(42478,8872,3,2,0,'87.218.146.139',1196107494,1,0,1,1,1,1,'','','Otto,\n\nPlease notice that when you use short prompts, Windows keep using a min width for the prompts, so you have to modify it to use a Max() value.\n\nSimilar to this:\n[code:3hu2u5cn]\nFunction TabChk&#40; nCol, oFld &#41; \n\n   local n &#58;= 1, nPos &#58;= 0 \n\n   while nPos &lt; nCol &#46;and&#46; n &lt;= Len&#40; oFld&#58;aPrompts &#41; \n      nPos += Max&#40; GetTextWidth&#40; 0, oFld&#58;aPrompts&#91; n++ &#93;, oFld&#58;oFont&#58;hFont &#41;, &lt;try some values here&gt; &#41; + 5 \n   end \n\nmsginfo&#40; &quot;Drop to &quot; + oFld&#58;aPrompts&#91;--n&#93;&#41; \n\nreturn n\n[/code:3hu2u5cn]\nAnyhow, let me tell you that this is the first time that I see such desired behavior in Windows. I guess that no other software uses what you are trying to implement','',0,'AIA=','3hu2u5cn',1,0,'',2,0,0),(42479,8966,7,1226,0,'190.166.100.66',1196108391,1,0,1,1,1,0,'','Mensaje en la ventana principal y uso de la camara de la Poc','Hey..\nComo estan?, espero que Bien.\n\nBueno mi pregunta es como, puedo utilizar la camara de la pocket pc y capturar la foto, asignandole un nombre a la captura automatico.\n\nAdemas tengo un menu con Bitmap y quiero que cuando realizen un click sobre la x de salir, enviar un mensaje de que si realmente quieren Salir.\n\nThank.','',0,'AIA=','26rm6xik',1,0,'',1226,0,0),(42480,8966,7,2,0,'87.218.146.139',1196108648,1,0,1,1,1,1,'','','&gt;\nBueno mi pregunta es como, puedo utilizar la camara de la pocket pc y capturar la foto, asignandole un nombre a la captura automatico. \n&gt;\n\nNosotros nunca lo hemos intentado. Habrá que investigar como se puede hacer.\n\n&gt;\nAdemas tengo un menu con Bitmap y quiero que cuando realizen un click sobre la x de salir, enviar un mensaje de que si realmente quieren Salir. \n&gt;\n\nACTIVATE WINDOW oWnd VALID MsgYesNo( \"¿ Quiere salir ?\" )','',0,'AIA=','3lmbf7z8',1,0,'',2,0,0),(42481,8959,6,396,0,'201.209.46.186',1196110079,1,0,1,1,1,1,'','','deberia ser algo asi como esto, antes de tu Browse, TWBrowse():lVScroll:= .T.  de igual manera revisate las clausulas de la clase twbrose.prg... a ver si alguien confirma esto, estoy comenzando con esta clase.','',0,'AIA=','2l96ee6c',1,0,'',396,0,0),(42482,8952,3,130,0,'84.138.44.90',1196110151,1,0,1,1,1,1,'','','Günther,\n\nin Vista it is not allowed to normal users to write in the \"program files\" directory and its subfolders. It´also not possible to have the dbf´s in the program dir. I would put the data with write acess in the users or all users directory. There you can also write the errorlog, see Enrico´s answer. \n\nIf I remember right, there is a new manifest for Vista, but the old one for XP works fine without problems.','',0,'AIA=','36tiu14y',1,0,'',130,0,0),(42483,8953,3,1151,0,'203.173.141.70',1196110567,1,0,1,1,1,0,'','','Thanks Enrico','',0,'AIA=','16i9unyk',1,0,'',1151,0,0),(42484,8959,6,2,0,'87.218.146.139',1196111884,1,0,1,1,1,1,'','','Horacio,\n\nPrueba con oBrowse:oVScroll:SetRange( 1, 10 ) // prueba a variar esos números','',0,'AIA=','2l8qo27v',1,0,'',2,0,0),(42485,8967,6,1195,0,'190.38.61.224',1196112423,1,0,1,1,1,0,'','Como uso @ nRow, nCol LISTBOX con array Multidimensional...','Buenas tardes a todos, estoy tratando de hacer un Browse de un array Multidimensional con LISTBOX pero no funciona solo funciona con arrays de una sola dimension 1xN... no se si lo estoy haciendo mal o debo usar otro comando ante todo muchas gracias...  y disculpen la molestia maestros...','',0,'AIA=','106hxd57',1,0,'',1195,0,0),(42486,8956,3,1151,0,'203.173.141.70',1196114288,1,0,1,1,1,0,'','','Maybe I could help.\nI have been using a tree control for many years now.\nFW included the same one a short time ago.\nThe author of this is Goran Savic (Yugoslavia)\nModified by Luis Krause and Felipe Faccinetto\nAnd a further modified by myself.\nCan I contact you through your hotmail account?','',0,'AIA=','2ms4l8fg',1,0,'',1151,0,0),(42487,8912,6,203,0,'200.107.2.151',1196114576,1,0,1,1,1,1,'','','Hola amigos de foro\n\nEstoy muy preocupado ya que via MSN se me ha dado ha entender que estoy perjudicando de alguna manera a alguien del foro, nada más lejos de mis intenciones jamas lo he intentado siquiera, lo unico que he pedido es la ayuda a todas las maravillosas personas que he visto que sin ningun interes me han colaborado.\nSi alguna persona se ha sentido perjidicada pues hagamelo saber a mi correo o directamente en este foro, ya que de haberlo hecho, que no creo, saber que hice y no volver a cometer este error ya que creo que este foro no es solo para pedir y dar ayuda sino que he visto que tambien se pueden hacer amigos.\n\nUna vez más gracias a todos los que me han ayudado en forma personal y en general al foro por todos sus valiosos aportes.','',0,'AIA=','3lg32qhz',1,0,'',203,0,0),(42488,8967,6,2,0,'87.218.146.139',1196116318,1,0,1,1,1,1,'','','Revisa samples/TestArr.prg','',0,'AIA=','16wyncx0',1,0,'',2,0,0),(42489,8912,6,2,0,'87.218.146.139',1196116698,1,0,1,1,1,1,'','','Oscar,\n\nEres bienvenido a este foro y no estás perjudicando a nadie. No se quien te habrá contado esa tontería, pero no le hagas ni caso <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','23lb67wu',1,0,'',2,0,0),(42490,8968,3,130,0,'84.138.44.90',1196117354,1,0,1,1,1,1,'','Get with spinner to high','Dear friends,\n\nI noticed, that a get with a spinner defined from source is nearly twice as high as a normal get. The SIZE clause seems to be ignored. Is there any way to get a normal height ?\n\n[url=http&#58;//img107&#46;imageshack&#46;us/my&#46;php?image=spinnervh8&#46;jpg:o5jxzsxj][img:o5jxzsxj]http&#58;//img107&#46;imageshack&#46;us/img107/9020/spinnervh8&#46;th&#46;jpg[/img:o5jxzsxj][/url:o5jxzsxj]','',0,'GA==','o5jxzsxj',1,0,'',130,0,0),(42491,8955,6,439,0,'200.125.32.119',1196117612,1,0,1,1,1,1,'','','Amigos,\n\nhe probado el link y me funciona, de todos modos aqui les dejo otro.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/x5oz4sf99h\">http://www.box.net/shared/x5oz4sf99h</a><!-- m -->','',0,'GA==','1napf0ky',1,0,'',439,0,0),(42492,8872,3,51,0,'80.122.88.242',1196118108,1,0,1,1,1,0,'','','What about\n n = TabCtrl_HitTest( oFld:hWnd ) + 1\n\nRegards,\n\nOtto','',0,'GA==','19ukxwao',1,0,'',51,0,0),(42493,8969,3,167,0,'207.119.126.13',1196118403,1,0,1,1,1,1,'','LIST BOX on Button Bar','I have a main window which has a buttonbar object on it.\n\nCurrently I add buttons to this buttonbar - no problem. \n\nHow can I add a listbox to this buttonbar, similar to MS-Word which combines button-bitmaps, listboxes, etc, all on a single \"button bar\"?','',0,'GA==','14oxolsw',1,0,'',167,0,0),(42494,8872,3,2,0,'87.218.146.139',1196118587,1,0,1,1,1,1,'','','Otto,\n\nYes! very good solution! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> I forgot it,\n\nIs it working fine ?','',0,'GA==','kgpeteuz',1,0,'',2,0,0),(42495,8969,3,2,0,'87.218.146.139',1196118717,1,0,1,1,1,1,'','','Don,\n\nyes, sure, you can do it this way:\n\n@ ..., ... LISTBOX cItem ITEMS ... OF oBar SIZE ..., ... PIXEL','',0,'GA==','25lsq4bi',1,0,'',2,0,0),(42496,8970,6,53,0,'189.139.10.149',1196119180,1,0,1,1,1,1,'','Que método','Amigos del foro:\n\nNecesito saber que método de la ventana principal puedo utilizar pero despues de tener creada y pintada la ventana.\n\nExiste el método ON PAINT pero no me sirve, necesito tener ya pintada la ventana\n\nDEFINE WINDOW oWnd bla bla bla\n....\n....\n....\nACTIVATE WINDOW oWnd ON ????????????\n\n\nEspero haberme explicado\n\nSaludos a todos','',0,'GA==','2wfxa2sl',1,0,'',53,0,0),(42497,8970,6,2,0,'87.218.146.139',1196119547,1,0,1,1,1,1,'','','Armando,\n\nQue necesitas hacer desde ahí ?','',0,'GA==','2gefxp5q',1,0,'',2,0,0),(42498,8971,3,51,0,'80.122.88.242',1196122211,1,0,1,1,1,0,'','How to bind an object to a xBrowser?','How can I display the selected value during scrolling up and down a xBrowser with the Up and down keys?','',0,'GA==','3u9ib5c3',1,0,'',51,0,0),(42499,8912,6,203,0,'190.11.21.76',1196122314,1,0,1,1,1,1,'','','Gracias a Patricio Avalos\nme funciono de maravilla utilizando POSTEDIT','',0,'GA==','f97g2l2r',1,0,'',203,0,0),(42500,8971,3,34,0,'68.5.217.82',1196123216,1,0,1,1,1,1,'','Browser','Otto,\n\nI have many screens where I have a list on the bottom half of the dialog and the edit boxes on the top.  As the browser moves up and down through the database, the data changes in the edit controls.\n\nThe process is simple ( if this is what you are asking ).  Simply mark all the controls UPDATE and do a ON CHANGE oDlg:update() on the browser control.\n\nI have it even simpler because I use data objects ( James tData is a class derived from, and supplementing, tDatabase ).  Speed is quite nice.  I like it much better then the windows method of using a popup to display an edit dialog.\n\nI hope this was the question you were asking.\n\nTim','',0,'GA==','1hd36v1a',1,0,'',34,0,0),(42501,8956,3,239,0,'121.33.139.73',1196123230,1,0,1,1,1,0,'','','Jonathan,\n  Yes!\nThanks !\nShuming Wang','',0,'GA==','222f14wp',1,0,'',239,0,0),(42502,8970,6,53,0,'189.139.10.149',1196123869,1,0,1,1,1,1,'','','Master:\n\nGracias por el´interes, necesito mostrar un browse con todas las empresas disponible y que el usuario elija con la que quiere trabajar.\n\nDebe ser lo primero que haga el usuario despues de mostrar la ventana y menú principales.\n\nSaludos','',0,'GA==','3lhkd7w2',1,0,'',53,0,0),(42503,8952,3,210,0,'81.24.159.58',1196125005,1,0,1,1,1,1,'','VISTA','There is an \"order\" from Microsoft, all executable programs should be in the directory Program Files but NO!! data. The errorlog writes automatically to the directory from the EXE and this is not allowed.\nAlso in VISTA it is required, to use an anhanced manifest. Add these to your manifest:\n\n  &lt;!-- Identify the application security requirements. --&gt;\n  &lt;trustInfo xmlns=\"urn:schemas-microsoft-com:asm.v2\"&gt;\n    &lt;security&gt;\n      &lt;requestedPrivileges&gt;\n        &lt;requestedExecutionLevel\n          level=\"asInvoker|highestAvailable|requireAdministrator\" \n          uiAccess=\"false\"/&gt;\n        &lt;/requestedPrivileges&gt;\n       &lt;/security&gt;\n  &lt;/trustInfo&gt;\n\nMfG\nGünther','',0,'GA==','shfe31zc',1,0,'',210,0,0),(42504,8970,6,121,0,'189.138.166.26',1196125020,1,0,1,1,1,1,'','','ACTIVATE WINDOW oWnd ON INIT ELIGECIA()\n\n\nFUNCTION ELIGECIA\n REDEFINE LISTBOX ......\nRETURN NIL\n\n\nCREO QUE ES LO QUE BUSCAS','',0,'GA==','3bd6n1w0',1,0,'',121,0,0),(42505,8968,3,49,0,'62.13.172.67',1196126084,1,0,1,1,1,1,'','','you must  insert \n\nACTIVATE DIALOG oDlg ;\nON INIT  (oGet:nheight:=21.8 )','',0,'GA==','swmfnct1',1,0,'',49,0,0),(42506,8955,6,54,0,'189.132.89.9',1196126737,1,0,1,1,1,1,'','Re: Link?','[quote=&quot;leandro&quot;:2uos1u86]Amigazo willi? Gracias por tu trabajo de verdad que si.... \n\nTe molesto por que el link de tu server no me ha funcionado...\n\nSaludos[/quote:2uos1u86]\n\nAmigos,\n\nhe tenidp problemas con el servicio de internet, esperemos ya esté funcionando correctamente.\npor lo pronto funciona ahora muy bien\n\nsaludos\n\npd. amigos disfruten VERCE','',0,'gA==','2uos1u86',1,0,'',54,0,0),(42507,8955,6,255,0,'201.122.36.212',1196127077,1,0,1,1,1,1,'','','CORRECCION CUENTAS DE CORREO....\n\njeje.. hubo una confusion... las cuentas de correo son:\n\n<!-- e --><a href=\"mailto:salinasj@geainternacional.com\">salinasj@geainternacional.com</a><!-- e -->\n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->\n\nDisponible en la pagina oficial de VERCE\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/index.htm\">http://incos.sytes.net/fivewin/index.htm</a><!-- m -->\n\n\nSaludos','',0,'gA==','5spa3e6f',1,0,'',255,0,0),(42508,8958,3,34,0,'68.5.217.82',1196128642,1,0,1,1,1,1,'','Ultra Edit questions','Antonio,\n\nI found your list for highlighting, reserved words and that works ( I\'m taking another look at UE ).\n\nHere are a couple of questions:\n\n1)  Multi-Edit has a nice Comment capability that allows us to display a recorded macro for placing a comment table above a function.  Does UE have a similar capability ?\n\n2)  I noticed the FUNCTION list.  However, the only functions it adds are those in the format FUNCTION abc( ) and if the ( ) is not included, it doesn\'t show it on the list.  I did a cut and paste of your list from another thread ( for the word file ).  Is there a way to get it to recognise FUNCTION abc  ?\n\nTim','',0,'gA==','21xqyn5h',1,0,'',34,0,0),(42509,8955,6,54,0,'189.132.89.9',1196133150,1,0,1,1,1,1,'','Re: Nueva Versión de VeRCE!!!!!','José,\n\nhe actualizado VeRCE a la versión 5.3\n\n+ Corregido las direcciones de correo de Juán Carlos\n+ Bug corregido sobre la creación de archivo MAP, TDS\n\n[url=http&#58;//incos&#46;sytes&#46;net/fivewin/verce/verce53&#46;zip:v27siyxq][b:v27siyxq]descargar VeRCE 5.3 aquí...[/b:v27siyxq][/url:v27siyxq]\n\nSaludos\nVeRCE Team','',0,'UA==','v27siyxq',1,0,'',54,0,0),(42510,8970,6,53,0,'189.139.10.149',1196137452,1,0,1,1,1,1,'','','Maestro Antonio L. y Marco Augusto:\n\nSolucionado, efectivamente con el método INIT, lo había intentado pero no me funcionaba porque la barra de botones se me pintaba dos veces, cambie de lugar la creación de la button bar y todo solucionado.\n\nMuchas Gracias a ambos\n\nSaludos','',0,'UA==','fr85gt28',1,0,'',53,0,0),(42511,8971,3,51,0,'80.122.88.242',1196142617,1,0,1,1,1,0,'','','Hello Tim,\n\nThank you for your answer. I can’t find bChange in the data declaration of xbrowse nor in the \'new method\' or a \nON CHANGE clause in the ch-files for xbrowse  and the manual.\nTherefore I thought oBrow:bChange could not work. \n\nHave you seen my little tool to browse through the Fivewin demos? I would like exactly this behavior you describe:\n\n&gt;I have many screens where I have a list on the bottom half of the dialog and the edit boxes on the top. As the browser moves up and down through the database, the data changes in the edit controls.\n\n\n\nRegards,\nOtto','',0,'UA==','2n3iqze6',1,0,'',51,0,0),(42512,8972,6,109,0,'189.192.15.233',1196145438,1,0,1,1,1,0,'','Comparaciones binarias','Compañeros, Buenas Noches:\n   \n   Como haria lo siguiente en XHarbour ?\n// --------------------------------------------------------------------\n     \n\n     ( OPERADOR     \'AND\'   de vb )\n\n     [b:18qtrqmv]Dim x As Integer\n     x = 3 And 5[/b:18qtrqmv]\n     El ejemplo anterior establece el valor de x en 1. Esto ocurre por las     razones siguientes:\n\nLos valores se tratan como binarios:\n\n3 en formato binario = 011\n\n5 en formato binario = 101\n\nEl operador And compara las representaciones binarias, una posición binaria (bit) a la vez. Si los dos bits en una posición dada son 1, entonces se coloca un 1 en esa posición del resultado. Si uno de los dos bits es 0, entonces se coloca un 0 en esa posición del resultado. En el ejemplo anterior, esto funciona como sigue:\n\n011 (3 en formato binario)\n\n101 (5 en formato binario)\n\n001 (el resultado, en formato binario)\n\nEl resultado se trata como decimal. El valor 001 es la representación binaria de 1, por lo que x = 1.','',0,'QA==','18qtrqmv',1,0,'',109,0,0),(42513,8965,7,57,0,'81.34.76.202',1196148537,1,0,1,1,1,1,'','','Gracias Antonio\nSaludos','',0,'QA==','gb3mckg3',1,0,'',57,0,0),(42514,8960,3,995,0,'81.11.193.29',1196150462,1,0,1,1,1,0,'','','Antonio,\n\nI am working in a MDI environnement with dialog\'s.\nEach dialog is executed from xbrowse. The dialog\'s have in some cases a tsbrowse or xbrowse object , together with the common control\'s from fw (no borland controls).\n\n\nI am using xhb 1.01\n\nHow can i follow the memory ammount during execution ?\nCan i place some tracelog\'s to see which value it has ?\n\nFrank','',0,'QA==','2f5mdqd5',1,0,'',995,0,0),(42515,8952,3,86,0,'81.83.151.142',1196151949,1,0,1,1,1,1,'','','Günther,\n\nIt is not true that the error.log is written in the directory of the EXE-file.\n\nMy application runs on the local disk and the data are on the networkdisk. The directory of the data is the current disk and the current directory. It is to this directory that the error.log is written.\n\nWith a little enhancement to the errsysw.prg, the directory where the error.log will be written, can be changed quite easily.','',0,'QA==','1v3r89ll',1,0,'',86,0,0),(42516,8960,3,2,0,'87.218.146.139',1196154125,1,0,1,1,1,1,'','','Frank,\n\n&gt; I am using xhb 1.01 \n\nDo you mean xHarbour commercial ?\n\n&gt; How can i follow the memory ammount during execution ? \n\nThe cannot create dialog box is a not a memory related issue. Anyhow you can open Windows\'s tasks manager and locate your application and check what memory amount is using','',0,'QA==','32ljqroz',1,1196177389,'',2,1,0),(42517,8971,3,2,0,'87.218.146.139',1196154348,1,0,1,1,1,1,'','','Otto,\n\nYou can use oXBrowse:bChange = { || ... }','',0,'QA==','rz4hexc3',1,0,'',2,0,0),(42518,8958,3,2,0,'87.218.146.139',1196154785,1,0,1,1,1,1,'','','Tim,\n\n1) UEStudio has macros support but I have never used them <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n2) Add this to wordlist.txt:\n/Function String 4 = \"%*^{Function^}^{Method^}*\" \n\nNotice that there is no a ( at the end','',0,'QA==','2f8pr38m',1,0,'',2,0,0),(42519,8972,6,2,0,'87.218.146.139',1196155025,1,0,1,1,1,1,'','','Ricardo,\n\nnAnd( 3, 5 ) --&gt; nResult\n\nPuedes usar tantos valores como desees separados por comas\n\nTambien tienes lAnd( 3, 5 ) que devuelve un valor lógico si ambos valores tienen algún bit en común','',0,'QA==','g8xyte0c',1,0,'',2,0,0),(42520,8970,6,2,0,'87.218.146.139',1196155170,1,0,1,1,1,1,'','','Bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\np.d.: No soy maestro de nada. Sólo soy aprendiz de todo lo que puedo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','2xdtwcvb',1,0,'',2,0,0),(42521,8973,3,995,0,'81.11.193.29',1196155917,1,0,1,1,1,0,'','xBrowse : oBrw:ColAtPos(nPos)','Hello,\n\nI have a button with as action : \n\nATAIL(oBrw:aCols):Hide() ,  Prnt(oBrw ) ,  ATAIL(oBrw:aCols):Show() \n\nThis give a error in : \n\nMETHOD ColAtPos( nPos ) INLINE ::aCols[ ::aDisplay[ nPos ] ]\n\nLEN(::aDisplay) &lt; LEN(::aCols) while npos == LEN(::aCols)\n\nMaybe is better :\n\n[code:i7j0illi]\n# xtranslate MinMax&#40;&lt;xValue&gt; , &lt;nMin&gt; , &lt;nMax&gt; &#41;     =&gt;  Min &#40; Max&#40;  &lt;xValue&gt; , &lt;nMin&gt; &#41; , &lt;nMax&gt; &#41;\n\nMETHOD ColAtPos&#40; nPos &#41; INLINE &#58;&#58;aCols&#91; &#58;&#58;aDisplay&#91;MinMax&#40;IIF&#40;npos==nil,1,nPos&#41;,1,LEN&#40;&#58;&#58;aDisplay&#41;&#41; &#93; &#93;\n[/code:i7j0illi]','',0,'AIA=','i7j0illi',1,0,'',995,0,0),(42522,8974,3,6,0,'87.16.238.182',1196155944,1,0,1,1,1,1,'','Bug in 2007 menu and MDI','In the following sample, please:\n\n- press ALT-1 and the system menu will popup instead of Changed1 menu\n\n- then press ALT and the MDICHILD icon will disappear\n\n[code:285bvd5v]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd, oMenu\n\n    MENU oMenu 2007\n        MENUITEM &quot;Test&amp;1&quot;\n        MENUITEM &quot;Test&amp;2&quot;\n        MENUITEM &quot;Test&amp;3&quot;\n    ENDMENU\n\n    DEFINE WINDOW oWnd MDI;\n           TITLE &quot;MDI Test&quot;;\n           MENU oMenu\n\n    ACTIVATE WINDOW oWnd;\n             ON INIT CREATECHILD&#40; oWnd &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION CREATECHILD&#40; oMdi &#41;\n\n    LOCAL oWnd, oMenu\n\n    MENU oMenu 2007\n        MENUITEM &quot;Changed&amp;1&quot;\n        MENUITEM &quot;Changed&amp;2&quot;\n        MENUITEM &quot;Changed&amp;3&quot;\n    ENDMENU\n\n    DEFINE WINDOW oWnd MDICHILD OF oMdi;\n           TITLE &quot;MDI Child Test&quot;;\n           MENU oMenu\n\n    ACTIVATE WINDOW oWnd;\n             VALID !GETKEYSTATE&#40; VK_ESCAPE &#41;;\n             MAXIMIZED\n\n    RETURN NIL[/code:285bvd5v]\n\nEMG','',0,'AIA=','285bvd5v',1,0,'',6,0,0),(42523,8971,3,51,0,'80.122.88.242',1196163520,1,0,1,1,1,0,'','','Thank you. \n\nRegards,\nOtto','',0,'AIA=','3mfkejc6',1,0,'',51,0,0),(42524,8960,3,995,0,'81.11.193.29',1196163795,1,0,1,1,1,0,'','','Antonio,\n\nComercial version\n\nCompiling with fwh7.11 , i can reproduce the error :\n\n     xbrowse is used to select a record (dialog)\n\n     Opening the dialog , closing it and repeat this ( +/- 20 or more , unpredictable) , result in a error\n\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Title: Bijsluiters : 930920 /1   Aantal : 4800   BWB /MW  \n\nStack Calls\n===========\n   Called from: DIALOG.PRG =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: INVBEST.PRG =&gt; SHOWAOFB(3826)\n   Called from: INVBEST.PRG =&gt; (b)INPDLGDOSA(1279)\n   Called from: XBrowse.prg =&gt; TXBROWSE:LBUTTONDOWN(2408)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TXBROWSE:HANDLEEVENT(0)\n   Called from: window.prg =&gt; _FWH(3233)\n   Called from:  =&gt; WINRUN(0)\n   Called from: window.prg =&gt; TMDIFRAME:ACTIVATE(900)\n   Called from: HENMAIN.PRG =&gt; MAIN(149)\n\nDuring this test memory increases from 744 to 790 (maybe 50 cycles)\n\nThe same test , after compiling with 7.7 , has not given an error\n\nAfter memory was 800 , and maybe 100 x openening and closing , i give it up\n\nIs it normal that memory increases during this test ?\n\nFrank','',0,'AIA=','1s34y1zb',1,0,'',995,0,0),(42525,8961,3,41,0,'200.87.162.67',1196166157,1,0,1,1,1,0,'','','Otto,\n\ninteresting and usefull, I added some things, direct visualization, order in the header, enter and dblclick to compile.\n\nsaludos y gracias\n\nMarcelo\n\n[code:1qvd6xvy]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;InKey&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\nlocal oWnd, oBmp\nlocal oBrw, oCol\nlocal aStruc\nlocal oRes, cRes\nLOCAL aInhalt &#58;= directory&#40;&quot;*&#46;prg&quot;,&quot;D&quot;&#41; \nLOCAL oFnt\n\nDEFINE FONT oFnt NAME &quot;ARIAL&quot; SIZE 6 ,15 BOLD\n\nDEFINE WINDOW oWnd TITLE &quot;DemoTool&quot; ;\nFROM 50,50 TO 700,1030 PIXEL\noWnd&#58;SetFont&#40;oFnt&#41;\n\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\noBrw&#58;nTop &#58;= 10\noBrw&#58;nLeft &#58;= 20\noBrw&#58;nBottom &#58;= 600\noBrw&#58;nRight &#58;= 300\n\naStruc &#58;=&#123;&#125;\naadd&#40;aStruc,&#123;&quot;SOURCE&quot;&#125;&#41;\naadd&#40;aStruc,&#123;&quot;2&quot;&#125;&#41;\naadd&#40;aStruc,&#123;&quot;3&quot;&#125;&#41;\n\noBrw&#58;SetArray&#40; ainHalt,  &#46;T&#46; &#41;\noBrw&#58;aCols&#91;1&#93;&#58;cHeader &#58;= \'Source\'\noBrw&#58;aCols&#91;1&#93;&#58;nWidth &#58;= 157\n\noBrw&#58;aCols&#91;2&#93;&#58;cHeader &#58;= \'Size\'\noBrw&#58;aCols&#91;3&#93;&#58;cHeader &#58;= \'Date\'\n\n\noBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\noBrw&#58;nRowDividerStyle &#58;= LINESTYLE_BLACK\n\noBrw&#58;lRecordSelector &#58;= &#46;f&#46;\n\noBrw&#58;bChange &#58;= &#123;|| fmemoread&#40;oBrw,oRes&#41; &#125;\n\noBrw&#58;bLDblClick &#58;= &#123;|| compile&#40; oBrw &#41; &#125;\n\noBrw&#58;bKeyDown &#58;= &#123;|nkey| iF&#40; nkey = 13, compile&#40; oBrw &#41;, &#41; &#125;\n\noBrw&#58;lHScroll &#58;= &#46;f&#46;\n\noBrw&#58;CreateFromCode&#40;&#41;\n\n@ 10,350 GET oRes VAR cRes OF oWnd PIXEL;\nMULTILINE ;\nSIZE 600, 550 COLOR CLR_BLUE, CLR_WHITE READONLY\n\n@ 570, 350 BUTTON &quot;&amp;Compile&quot; OF oWnd PIXEL SIZE 100,30;\nACTION compile&#40; oBrw &#41;\n\n@ 570, 850 BUTTON &quot;&amp;Exit&quot; OF oWnd PIXEL SIZE 100,30;\nACTION oWnd&#58;end&#40;&#41;\n\nACTIVATE WINDOW oWnd ON INIT fmemoread&#40;oBrw,oRes&#41; \nreturn nil\n\n//----------------------------------------------------------------------------//\nfunc fmemoread&#40;oBrw,oRes&#41;\nlocal cFile &#58;= oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;\noRes&#58;cText&#40; MemoRead&#40; cFile &#41; &#41;\nreturn nil\n\n//----------------------------------------------------------------------------//\nfunction compile&#40; oBrw &#41;\n        winexec&#40;&quot;buildx&#46;bat &quot; + substr&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;&#41;-4&#41; &#41; &#41; \nreturn nil\n[/code:1qvd6xvy][/code]','',0,'AIA=','1qvd6xvy',1,0,'',41,0,0),(42526,8968,3,130,0,'141.51.32.24',1196166354,1,0,1,1,1,1,'','','Thanks, that´s working <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','38acx33m',1,0,'',130,0,0),(42527,8975,3,1181,0,'218.111.151.242',1196167024,1,0,0,0,1,1,'','Upgrade to 7.11','After upgraded to 7.11 FWH, I get the followong message \n\nCode: copy file \"pal.dbf\" to &amp;fil + \".dbf\'\"\n\nError Message: Syntax errot : \"Syntax error at \'FILE\'\"\n\nPlease help','',0,'AIA=','2p88hwin',1,0,'',1181,0,0),(42528,8961,3,51,0,'80.122.88.242',1196167976,1,0,1,1,1,0,'','','Hello,\n\nthank you for your contribution.\n\nI added an new button for “Open with TextEditor”\n\n[b:2h8zvspy]I have replaced the source in the first post of this thread.[/b:2h8zvspy]\nIMO, a button for renaming the prg-files next to be done.  Who has time?\n\nRegards,\nOtto','',0,'QA==','2h8zvspy',1,0,'',51,0,0),(42529,8975,3,343,0,'204.57.111.194',1196175511,1,0,1,1,1,0,'','','I do not know what is in fil but you probably need extended syntax like\n\ncopy file (\"pal.dbf\") to ( fil + \".dbf\'\" )','',0,'QA==','36cka8tk',1,0,'',343,0,0),(42530,8970,6,362,0,'200.158.19.250',1196175946,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1m0umtlw]Bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\np.d.: No soy maestro de nada. Sólo soy aprendiz de todo lo que puedo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1m0umtlw]\n\nPERDÓN MAESTRO. \n\nNO ÉS SÓLO APRENDIZ, ÉS EL MAJOR DE TODOS LOS MAESTRO.\n\njejejejeje.\n\nRegards, saludos.','',0,'gA==','1m0umtlw',1,0,'',362,0,0),(42531,8969,3,167,0,'207.119.126.13',1196176615,1,0,1,1,1,1,'','','Works perfectly - thank you.','',0,'gA==','3gj8qw51',1,0,'',167,0,0),(42532,8959,6,644,0,'201.253.212.37',1196176821,1,0,1,1,1,0,'','','Antonio: Gracias por responder. He probado la solución que me propusiste\npero no funciona. Hay alguna manera de cambiar la clase para que esto sea posible ??. Desde ya muchas gracias.','',0,'gA==','f4i0j1po',1,0,'',644,0,0),(42533,8960,3,2,0,'87.218.146.139',1196177614,1,0,1,1,1,1,'','','Frank,\n\nThats a very little memory increase. Its not a problem, as Harbour calls the garbage collector from time to time\n\nAre you using Borland controls in that dialogbox ? How do you End() the dialog ? Please show us a portion of the source code, thanks','',0,'gA==','64kg756e',1,0,'',2,0,0),(42534,8961,3,2,0,'87.218.146.139',1196178754,1,0,1,1,1,1,'','','Otto,\n\nDon\'t you use a professional file manager ? Windows file manager is not enough, its just for final users\n\nWe use \"Total commander\" since many years ago and we can\'t do any professional programming without it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','inmbbucg',1,0,'',2,0,0),(42535,8959,6,2,0,'87.218.146.139',1196178961,1,0,1,1,1,1,'','','Horacio,\n\nBusca las llamadas a oVScroll:SetRange( ... ) en el código de la clase de Hernán. Tendrás que modificarlas ó quitarlas','',0,'gA==','2aeffix1',1,0,'',2,0,0),(42536,8959,6,644,0,'201.253.212.37',1196180275,1,0,1,1,1,0,'','','Antonio: Muchas gracias, probaré','',0,'gA==','3fzcy8zl',1,0,'',644,0,0),(42537,8958,3,303,0,'72.220.100.171',1196180329,1,0,1,1,1,0,'','','Tim\n\n&gt;1) Multi-Edit has a nice Comment capability that allows us to display a recorded macro for placing a comment table above a function. Does UE have a similar capability ?\n\nYes, UE has macros and templates. You can define a section of text and insert it. I use this to insert a complete header to each PRG with date and time automatically inserted. I also have another template that inserts a basic report, then I just modify to suit.\n\nThere is another program, Texter, that does a similar thing, but with all applications. You define a few characters that trigger a replacement when you press Tab. You can use to to insert date and time, a word, or even whole paragraphs. I find it really useful. It is free. Check it out here:\n\n<!-- m --><a class=\"postlink\" href=\"http://lifehacker.com/software//lifehacker-code-texter-windows-238306.php\">http://lifehacker.com/software//lifehac ... 238306.php</a><!-- m -->\n\nJames','',0,'gA==','3b159qjq',1,0,'',303,0,0),(42538,8884,2,890,0,'190.9.66.224',1196181050,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:t7hjoyy2]Jairo,\n\nBueno ha sido un poco más complicado pero aqui tienes un ejemplo funcionando <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\ntest.prg\n[code:t7hjoyy2]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oGet, cText &#58;= MemoRead&#40; &quot;test&#46;prg&quot; &#41;\n   local n &#58;= 1, nCRLFs &#58;= 0, nAt &#58;= At&#40; &quot;DEFINE DIALOG&quot;, cText &#41;\n   \n   while n &lt; nAt\n      if SubStr&#40; cText, n++, 2 &#41; == CRLF\n         nCRLFs++\n      endif\n   end      \n\n   DEFINE DIALOG oDlg SIZE 300, 200\n\n   @ 0, 0 GET oGet VAR cText OF oDlg SIZE 150, 100 MEMO\n\n   oGet&#58;bGotFocus = &#123; || oGet&#58;SetSel&#40; 0, 0 &#41;, oGet&#58;SetPos&#40; nAt - 1 &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT SkipLines&#40; nCRLFs, oGet, nAt &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction SkipLines&#40; nLines, oGet, nAt &#41;\n\n   local n\n   \n   for n = 1 to nLines\n      oGet&#58;PostMsg&#40; WM_VSCROLL, 1 &#41;\n   next\n\nreturn nil    \n\n//----------------------------------------------------------------------------//\n[/code:t7hjoyy2][/quote:t7hjoyy2]\nAntonio\n\nSencillamente fascinante funciona  ok \n\nMuy agradecido\n\nCordialmente\n\nJairo Barbosa','',0,'gIA=','t7hjoyy2',1,0,'',890,0,0),(42539,8971,3,303,0,'72.220.100.171',1196181238,1,0,1,1,1,0,'','','Otto,\n\n&gt;I can’t find bChange in the data declaration of xbrowse nor in the \'new method\' or a ON CHANGE clause in the ch-files for xbrowse and the manual.\n\nDon\'t forget that classes may inherit from another class. TXbrowse inherits from TControl and TControl inherits from TWindow, so you need to check all three classes when you are looking for a var or method.\n\nDid you ever get the TData lib compiled?\n\nJames','',0,'gIA=','25k6eg08',1,0,'',303,0,0),(42540,8976,6,104,0,'201.8.4.249',1196181516,1,0,1,1,1,0,'','Qual o ultimo objeto em foco ?','Olá,\n\nPreciso retornar o foco para o último objeto que estava focado após eu pressionar um botão. Como fazer isto ?\n\nObrigado,\n\nRossine.','',0,'gIA=','olwm6mwn',1,0,'',104,0,0),(42541,8961,3,51,0,'80.122.88.242',1196182428,1,0,1,1,1,0,'','','Hello Antonio,\nI as well use wincmd since ever.\n\nBut in this case you should have – IMO – a inside possibility to easy rename.\n\nWhy do we need an easy tool to manage the demo prgs?\n\nFor example: \nYesterday I saw that copyright in xbrowser is from 2002.   I  could have used this component for years. Only the first try ended badly because  the setup was  for ADS.  And at that moment I had not time to exanimate the error.\nSince then I never touched it again up to now (over 5 years!!!). Although the demo testxbrw is very impressive. But I couldn’t look at the demo because it did not compile on my site.  And if I see all the questions about  TC   browser and the few xbrowser entries in the forum I calculate that not much of us use this wonderful browser.  This must not happen.\n\n\nI would like to have all the samples in the fivewin folder to compile on a click and that we could extend them and if there are  interesting questions on the forum  build immediately a demo prg and distribute it  that all users can profit.\n\nNow where can rename the prg files with user friendly names (now more 8 character limitation).\n\nI thought  much about a organization of the demo prgs – creating a database, etc. – like the fivedemo – project in sample folder … but who does the work, who maintains the database???\n\nWith comments inside the prg-files we have all the information with no extra effort.\n\nNext step I think shoult be a ftp-server where we can share code  snips and  publish code contributions. Then all can download the files save them to there sample folder and the demotool shows immediately the new files and with the compile button one can run the demos.\n\nRegards,\nOtto','',0,'gIA=','10op8idh',1,0,'',51,0,0),(42542,8958,3,34,0,'68.5.217.82',1196182631,1,0,1,1,1,1,'','Macro','I guess I would need to study the Macro routine in UE.  I can click on a function and it builds the header with the name, defined fields, date of revision, etc.  It used to update nicely but that has not been working recently.  Vista did throw ME some curves.\n\nThey advertised multiple monitor support but its not documented and apparently doesn\'t let me move documents outside of the window to another monitor.  This is one thing nice about Word ... you can open two documents, put one on the other monitor, and compare text.  I am enjoying the use of more screen \"real estate\".  That is truly a nice feature I started using in Vista.','',0,'gIA=','2u6amzu3',1,0,'',34,0,0),(42543,8976,6,46,0,'217.168.114.166',1196184032,1,0,1,1,1,0,'','','Voce pode experimentar\n\n[code:1qvpvolt]\nREDEFINE BUTTON oBtn&#46;&#46;&#46;&#46;&#46; OF oDlg ;\n               ACTION   &#46;&#46;&#46;&#46;&#46;;\n                       SetFocus&#40; hPrevControl &#41;\n                            \n\noBtn&#58;bGotFocus &#58;= &#123;||  hPrevControl &#58;= oDlg&#58;hCtlFocus &#125;\n[/code:1qvpvolt]\n\nSalu2','',0,'AIA=','1qvpvolt',1,0,'',46,0,0),(42544,8976,6,2,0,'87.218.146.139',1196184044,1,0,1,1,1,1,'','','Rossine,\n\nTendrás que asignar todos los bLostFocus de los controles, algo asi:\n[code:wxycmxxm]\nfor n = 1 to Len&#40; oDlg&#58;aControls &#41;\n   oDlg&#58;aControls&#91; n &#93;&#58;bLostFocus = &#123; | o | oHadFocus &#58;= o &#125;\nnext\n[/code:wxycmxxm]\noHadFocus ha de ser una variable que contendrá el ultimo control que perdió el foco','',0,'AIA=','wxycmxxm',1,0,'',2,0,0),(42545,8958,3,303,0,'72.220.100.171',1196184934,1,0,1,1,1,0,'','','Tim,\n\n&gt;I guess I would need to study the Macro routine in UE. I can click on a function and it builds the header with the name, defined fields, date of revision, etc. It used to update nicely but that has not been working recently. Vista did throw ME some curves.\n\nI don\'t think it will do what you describe. What do you mean by \"defined fields\" and \"date of revision?\" Do you mean a list of vars used? Revision date of the PRG or of the function inside the PRG? \n\nSince I always declare all vars used in a fuction or method as locals, that is already documented for me. And the last revision is the file date so I don\'t need that either. I document most of my changes to an existing PRG at the top of the PRG in a header there and I can auto-insert the current date and time with a UE macro or Texter.\n\n&gt;They advertised multiple monitor support but its not documented and apparently doesn\'t let me move documents outside of the window to another monitor. This is one thing nice about Word ... you can open two documents, put one on the other monitor, and compare text. I am enjoying the use of more screen \"real estate\". That is truly a nice feature I started using in Vista.\n\nHmm, do you mean opening different MDI child windows on different monitors? Can\'t you just run multiple copies of the editor?','',0,'AIA=','2mchb3vx',1,0,'',303,0,0),(42546,8964,6,1090,0,'201.254.39.228',1196184947,1,0,1,1,1,0,'','funciono!!!','Me funciono. Tenia el tbrowse, pero no sabia que habia que definirlo si o si; lo habia dejado sin definir, solo para verlo, como he hecho 1000 veces con gets, o dtpicker, o checks... GRACIAS...!!!\n\n[quote=&quot;Antonio Linares&quot;:1sz7f1jp]Tienes un \"twbrowse\", estás haciendo el REDEFINE LISTBOX ... FIELDS ... ?\n\nEn la DLL mantienes los recursos ? Que editor de recursos estás usando ?[/quote:1sz7f1jp]','',0,'gA==','1sz7f1jp',1,0,'',1090,0,0),(42547,8961,3,303,0,'72.220.100.171',1196185115,1,0,1,1,1,0,'','','Otto,\n\nI agree, Otto, if the samples were updated with keywords in the comments we could eliminate the database and use fivedemo or a similar program that searches the PRGs for a keyword.\n\nWhat I use now instead is Copernic Desktop Search. This will find any PRG with any specified keyword in a second or two. A double-click on the file will load it into my editor and another click will compile it. Nothing we could make would be as fast as Copernic. Copernic has a free version of their desktop search (which is what I use).\n\n<!-- w --><a class=\"postlink\" href=\"http://www.copernic.com\">www.copernic.com</a><!-- w -->\n\nJames','',0,'gA==','3jyq7v0u',1,0,'',303,0,0),(42548,8977,6,1090,0,'201.254.39.228',1196185383,1,0,1,1,1,0,'','renombrar archivos dbf','Hola. Les hago una pregunta. Por diversas razones, especialmente las de dejar mis bases .dbf un poco mas resguardadas de cualquier usuario que las vea y como estan asociadas a excel las pueda abrir (no puedo implementar seguridad en todas las redes donde corro mis programas). Quiro cambiar la extencion de mis bases de datos e indices dentro de un programa hecho con fwh: de base.dbf a base.sar y de indice.ntx a indice.srx, por ejemplo. Probe y siempre y cuando haga los USE con la extencion, funciona de 10; mi duda es si alguno conoce alguna funcion con la que pueda tener problemas, o si se les ocurre algun error que pueda llegar a tener si hago esto. Como les decía, arme un prg de prueba, y si hago use base.sar en lugar de use base, y set index to indice.srx en lugar de set index to indice, funciona perfecto. Bueno, espero sus comentarios. Gracias desde ya. Atte.','',0,'gA==','3tenqezc',1,0,'',1090,0,0),(42549,8978,2,1235,0,'213.98.8.184',1196185517,1,0,1,1,1,0,'','Programa FW16, en WXP como invitado.','Buenas, a ver si me podeis ayudar.\n\nEl programa en FW16 si el usuario es administrador funciona perfectamente pero con la cuenta invitado no funciona, da error al abrir las tablas.\n\n¿Que puede pasar?.\n\nGracias de antemano.\n\nUn saludo.\nMario.','',0,'gA==','1jso13l8',1,0,'',1235,0,0),(42550,8979,6,542,0,'88.23.156.17',1196186718,1,0,1,1,1,0,'','error al linkar','Hola a Todos:\n\nEstoy compilando por primera vez una aplicacion que tenia y he resuelto casi todo, me queda que me da un error que no se como cojerlo a ver si me podeis ayudar, a la hora de linkar pongo :\n\nilink32 -Gn -aa -Tpe -s @archivo.lnk\n\ny me da \n\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\compilar\\fiveh.lib|errsysw\n\ngracias por vuestra ayuda\n\nCarlos','',0,'gA==','72xjphvt',1,0,'',542,0,0),(42551,8964,6,940,0,'189.175.174.85',1196186737,1,0,1,1,1,1,'','','De todos modos terminastes loco,,\n\njeje\n\n\nsaludos...','',0,'gA==','3059v0e0',1,0,'',940,0,0),(42552,8977,6,1104,0,'190.55.44.64',1196187140,1,0,1,1,1,0,'','','Yo utilizaria las funciones de encriptamiento y desencriptamiento, no vas a tener que cabiar la extensión y si bien van a poder abrir los archivos con excel no se va a entender nada del contenido de la tabla.\nSaludos,','',0,'gA==','3pjzv4tb',1,0,'',1104,0,0),(42553,8953,3,851,0,'195.117.128.87',1196187903,1,0,1,1,1,0,'','','what may I do, I can\'t open application Excell but write sheet to file','',0,'gA==','w2vnx9yp',1,0,'',851,0,0),(42554,8979,6,2,0,'87.218.146.139',1196187927,1,0,1,1,1,1,'','','Carlos,\n\nEstás usando el build de Harbour que distribuimos con FWH ? \n\nComprueba que no tengas otra versión de Harbour instalada. \n\nAsegúrate de que estés enlazando vm.lib de Harbour','',0,'gA==','3e65n6e6',1,0,'',2,0,0),(42555,8953,3,6,0,'79.9.234.202',1196188196,1,0,1,1,1,1,'','','Replace\n\n[code:1tqpxo4h]oExcel&#58;Visible = &#46;T&#46;[/code:1tqpxo4h]\n\nwith\n\n[code:1tqpxo4h]oSheet&#58;SaveAs&#40; &quot;c&#58;\\xharbour\\newfile&#46;xls&quot; &#41;\n\noExcel&#58;Quit&#40;&#41;[/code:1tqpxo4h]\n\nEMG','',0,'AIA=','1tqpxo4h',1,0,'',6,0,0),(42556,8953,3,851,0,'195.117.128.87',1196188731,1,0,1,1,1,0,'','','thanks You\nI want to open two folder in one sheet','',0,'AIA=','1j469hfz',1,0,'',851,0,0),(42557,8979,6,542,0,'88.23.156.17',1196189675,1,0,1,1,1,0,'','','Hola Antonio:\n\nDespues de muchas vueltas lo hago asi:\n\nel fwhcl.bat :\n\ncopy obj\\c0w32.obj\nSET LIB    =C:\\compilar\nSET INCLUDE=C:\\compilar\nharbour cyewin /m/n\nharbour rddsys   /n\nharbour preparar /n\nharbour procesos /n\nharbour gestempr /n\nharbour gestacti /n\nharbour gestdape /n\nharbour gestadfa /n\nharbour gestconc /n\nharbour gestplan /n\nharbour gestasde /n\nharbour gestamor /n\nharbour gestepig /n\nharbour gestdiar /n\nharbour gestfact /n\nharbour gestbapg /n\nharbour gestcuan /n\nharbour gestcipe /n\nharbour gestmodu /n\nharbour gestlist /n\nharbour gestimpr /n\nharbour gestimp2 /n\nharbour gestpres /n\nharbour gestutil /n\nharbour gestauto /n\nharbour oleauto  /n\nbcc32 -c cyewin.c\nbcc32 -c rddsys.c\nbcc32 -c preparar.c\nbcc32 -c procesos.c\nbcc32 -c gestempr.c\nbcc32 -c gestacti.c\nbcc32 -c gestdape.c\nbcc32 -c gestadfa.c\nbcc32 -c gestconc.c\nbcc32 -c gestplan.c\nbcc32 -c gestasde.c\nbcc32 -c gestamor.c\nbcc32 -c gestepig.c\nbcc32 -c gestdiar.c\nbcc32 -c gestfact.c\nbcc32 -c gestbapg.c\nbcc32 -c gestcuan.c\nbcc32 -c gestcipe.c\nbcc32 -c gestmodu.c\nbcc32 -c gestlist.c\nbcc32 -c gestimpr.c\nbcc32 -c gestimp2.c\nbcc32 -c gestpres.c\nbcc32 -c gestutil.c\nbcc32 -c gestauto.c\nbcc32 -c oleauto.c\nilink32 -Gn -aa -Tpe -s @cyewin1.lnk\ncyewin\n\ny el archivo cyewin1.lnk es :\n\nc0w32.obj +\ncyewin.obj   +\nrddsys.obj   +\npreparar.obj +\nprocesos.obj +\ngestempr.obj +\ngestacti.obj +\ngestdape.obj +\ngestadfa.obj +\ngestplan.obj +\ngestasde.obj +\ngestamor.obj +\ngestconc.obj +\ngestepig.obj +\ngestdiar.obj +\ngestfact.obj +\ngestbapg.obj +\ngestcuan.obj +\ngestcipe.obj +\ngestmodu.obj +\ngestlist.obj +\ngestimpr.obj +\ngestimp2.obj +\ngestpres.obj +\ngestutil.obj +\ngestauto.obj +\noleauto.obj, +\ncyewin.exe, +\ncyewin.map, +\nc:\\compilar\\FiveH.lib +\nc:\\compilar\\FiveHC.lib +\nC:\\compilar\\codepage.lib +\nC:\\compilar\\common.lib +\nC:\\compilar\\rdd.lib +\nC:\\compilar\\dbfntx.lib +\nC:\\compilar\\dbfcdx.lib +\nC:\\compilar\\dbffpt.lib +\nC:\\compilar\\hbsix.lib +\nC:\\compilar\\debug.lib +\nC:\\compilar\\lang.lib +\nC:\\compilar\\macro.lib +\nC:\\compilar\\pp.lib +\nC:\\compilar\\rtl.lib +\nC:\\compilar\\vm.lib +\nC:\\compilar\\gtwin.lib +\nC:\\compilar\\wininet.lib +\nC:\\compilar\\cw32.lib +\nC:\\compilar\\import32.lib +\nC:\\compilar\\odbc32.lib +\nC:\\compilar\\nddeapi.lib +\nC:\\compilar\\iphlpapi.lib +\nC:\\compilar\\rasapi32.lib +\nC:\\clipper\\fast.lib\n\ncreo que lo que comentas si esta y es con xharbour no con harbour y si es el que me he bajado esta mañana.\n\nun saludo\n\nGracias','',0,'AIA=','muh7xo2x',1,0,'',542,0,0),(42558,8916,6,400,0,'201.92.41.34',1196189968,1,0,1,1,1,1,'','','Antonio...ainda no consegui resolver el problema de la barra de la selección com la xbrowse.\n\nComo comentei arriba.\n\nSaluds','',0,'AIA=','20bz10h7',1,0,'',400,0,0),(42559,8961,3,51,0,'80.122.88.242',1196190275,1,0,1,1,1,0,'','','Hello James,\nI too use Copernic Desktop Search. But most times you get too much results back.\n\nI must be honest. I rewrote my ECR software in VB because of the limitations listbox had.\nAll the work and money (TrueDbGrid from ComponentOne, Apollo database engine to access the dbf files,VB,… ) and that in a time where xBrowser was there. And I didn’t know about. Although I am around frequently in the forum.\nAs this is a touch screen software I needed higher rows and this was only possible to handle with the font. And the large font does not look very good.\nI think the sample prgs should also be included  as exe files, too.\n\nI can remember well when Patrick did a great marketing job for FW. But now the fivewin.info user contribution page is nearly dead. \nTherefore I think we should establish a new user contribution page because user contributions and 3rd party are very important for our community.\n\n\nRegards,\nOtto','',0,'AIA=','2ys5z743',1,0,'',51,0,0),(42560,8971,3,51,0,'80.122.88.242',1196191508,1,0,1,1,1,0,'','','Hello James,\nI am finishing converting my clipper/fivewin main application to Harbour/Fivewin.\n\nThat is more work than I thought. So much “litter” in all those years  inside my program.\n\nWe have to make so many changes under time pressure.\n\nBut I am very happy with the new  FHW – WINHOTEL program. \n\nTherefore I didn’t start changing to your class yet.\nI have it and as soon as I have some time I start changing.\nRegards,\nOtto','',0,'AIA=','1qzp28kb',1,0,'',51,0,0),(42561,8979,6,2,0,'87.218.146.139',1196192061,1,0,1,1,1,1,'','','Carlos,\n\nTienes que enlazar:\n\nc:\\compilar\\[b:1u25899n]FiveHX.lib[/b:1u25899n] + \n\nen vez de:\n\nc:\\compilar\\FiveH.lib + \n\nya que estás usando xHarbour','',0,'QA==','1u25899n',1,0,'',2,0,0),(42562,8961,3,2,0,'87.218.146.139',1196192422,1,0,1,1,1,1,'','','Otto,\n\nWe are planning to open a new website page just for user contributions and add ons for FiveWin. \n\nWe used rapidshare and other similar hosting companies in the past ( see <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewforum.php?f=17\">http://fivetechsoft.com/forums/viewforum.php?f=17</a><!-- m --> ) but the problem is that files get erased, though we have local copies of all of them here in our company','',0,'QA==','3ogxjxuh',1,0,'',2,0,0),(42563,8916,6,2,0,'87.218.146.139',1196192730,1,0,1,1,1,1,'','','Prueba así:\n[code:20hhsjcq]\nSTATIC FUNCTION _Ordem&#40;_oBrw,cTag&#41; \n\n  OrdSetFocus&#40;cTag&#41;\n  DbGoTop&#40;&#41;  \n  _oBrw&#58;GoTop&#40;&#41;    \n  _oBrw&#58;Refresh&#40;&#41; \n  \n Return &#46;T&#46; \n[/code:20hhsjcq]','',0,'AIA=','20hhsjcq',1,0,'',2,0,0),(42564,8980,6,1201,0,'200.90.17.154',1196193846,1,0,1,1,1,0,'','Como Asignar un Font al Menu','Hay alguna forma de asignar un font al menu  ? (o de esto se encarga el windows)','',0,'AIA=','14w0u0vp',1,0,'',1201,0,0),(42565,8966,7,1226,0,'190.166.100.222',1196194202,1,0,1,1,1,0,'','','antonio no me refiero al Dialog, sino  a la ventana principal de la aplicacion.\n\n[quote=&quot;Antonio Linares&quot;:o27qrdaq]&gt;\nBueno mi pregunta es como, puedo utilizar la camara de la pocket pc y capturar la foto, asignandole un nombre a la captura automatico. \n&gt;\n\nNosotros nunca lo hemos intentado. Habrá que investigar como se puede hacer.\n\n&gt;\nAdemas tengo un menu con Bitmap y quiero que cuando realizen un click sobre la x de salir, enviar un mensaje de que si realmente quieren Salir. \n&gt;\n\nACTIVATE WINDOW oWnd VALID MsgYesNo( \"¿ Quiere salir ?\" )[/quote:o27qrdaq]','',0,'gA==','o27qrdaq',1,0,'',1226,0,0),(42566,8966,7,1226,0,'190.166.100.222',1196194474,1,0,1,1,1,0,'','','thank, antonio..\nFunciona Perfecto..\n\n[quote=&quot;Oserrano&quot;:3jzmxpdc]antonio no me refiero al Dialog, sino  a la ventana principal de la aplicacion.\n\n[quote=&quot;Antonio Linares&quot;:3jzmxpdc]&gt;\nBueno mi pregunta es como, puedo utilizar la camara de la pocket pc y capturar la foto, asignandole un nombre a la captura automatico. \n&gt;\n\nNosotros nunca lo hemos intentado. Habrá que investigar como se puede hacer.\n\n&gt;\nAdemas tengo un menu con Bitmap y quiero que cuando realizen un click sobre la x de salir, enviar un mensaje de que si realmente quieren Salir. \n&gt;\n\nACTIVATE WINDOW oWnd VALID MsgYesNo( \"¿ Quiere salir ?\" )[/quote:3jzmxpdc][/quote:3jzmxpdc]','',0,'gA==','3jzmxpdc',1,0,'',1226,0,0),(42567,8961,3,1146,0,'87.223.173.186',1196195049,1,0,1,1,1,0,'','','Hi,\n\nI think it would be a good idea to create a demo to show the latest controls and features (Outlook XP, XP bars...) all together.\n\nIn fact, the xbrowse demo should have all the features.\n\nBest regards,','',0,'gA==','1ua27y4k',1,0,'',1146,0,0),(42568,8980,6,2,0,'87.218.146.139',1196195102,1,0,1,1,1,1,'','','Windows se encarga','',0,'gA==','2no7xwxa',1,0,'',2,0,0),(42569,8979,6,542,0,'88.23.156.17',1196196079,1,0,1,1,1,0,'','','Gracias Antonio, no me di cuenta del detalle, pero ya funciona.\n\nUn saludo\n\nCarlos','',0,'gA==','3uooa1cz',1,0,'',542,0,0),(42570,8981,6,1201,0,'200.90.17.154',1196196156,1,0,1,1,1,0,'','Activar Una Opción pre-definida (menu)','Existe alguna forma de que al momento de entrar al sistema, se active automáticamente una selección del menú (Como si presionáramos la tecla Alt) ???, Gracias,,','',0,'gA==','mkbfxn3t',1,0,'',1201,0,0),(42571,8980,6,1201,0,'200.90.17.154',1196196224,1,0,1,1,1,0,'','','Gracias !!','',0,'gA==','l91eak5n',1,0,'',1201,0,0),(42572,8958,3,34,0,'68.5.217.82',1196198970,1,0,1,1,1,1,'','Ultra Edit / Multi Edit','To be clearer:\n\nI have a Comment button that runs a macro / template that inserts a header at the highlighted Function or at the top of the PRG ( or Class, or Procedure, or Method ).  It is part of Evolve which comes with Multi - Edit.  It puts in the Function name automatically ( or the file name at the top of the PRG ), a title Description: ( and prompts for the detail ), the date ( which updates if you click on the function line again ), the calling routine ( prompts for the details ), any parameters ( listed ), the return value , and you can add more ( like notes ), etc.  The format is user modifyable.  I looked at Ultra Edit and it doesn\'t have the same range of values that can be automatically inserted.  It does name of a file, date, and some other information, but most of what this includes is not apparently retrieveable in Ultra Edit.\n\nI\'m still looking at it ... some features are nice, but its actually forcing me to look more closely at what I can do in Multi-Edit.\n\nTim','',0,'gA==','5uye9br1',1,0,'',34,0,0),(42573,8977,6,1090,0,'201.254.39.228',1196199169,1,0,1,1,1,0,'','renombrar dbf','Si, pero es muchisimo mas trabajo; es campo por campo; de la otra manera tendría que cambiar mucho menos código. ¿alguno probó renombrar los .dbf alguna vez? yo se que es medio loco, pero como funciónó... ¿alguno que sepa de programacion de las librerias, y de los .ch, tiene idea si esto me puede ocacionar algun quilombo? ¿si cuando se arman las librerías se asume que lo que se lee es .dbf? Gracias. \n\n\n\n[quote=&quot;jrestojeda&quot;:2zjniygm]Yo utilizaria las funciones de encriptamiento y desencriptamiento, no vas a tener que cabiar la extensión y si bien van a poder abrir los archivos con excel no se va a entender nada del contenido de la tabla.\nSaludos,[/quote:2zjniygm]','',0,'gA==','2zjniygm',1,0,'',1090,0,0),(42574,8977,6,221,0,'200.109.0.102',1196199294,1,0,1,1,1,1,'','','DESDE HACE MAS DE 15 AñOS YO NO USO LAS EXTENSIONES DBF Y NTX, TE ASEGURO QUE NINGUN PROBLEMA TENDRAS','',0,'gA==','38aegtb4',1,0,'',221,0,0),(42575,8916,6,400,0,'201.92.41.34',1196201390,1,0,1,1,1,1,'','','Gracias Antonio, foi resolvido assim:\n\n[code:2vht91m5]\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;      \n       oBrw&#58;CreateFromResource&#40; 101 &#41;  //--&gt; Chamada ao Resource Browse&#46; \n       oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW  //--&gt; Estilo da barra de seleçao&#46;        \n       oBrw&#58;bClrSelFocus &#58;= &#123;|| &#123; CLR_BRANCO, CLR_PRETO &#125; &#125;  //--&gt; Cor da barra de seleçao&#46; \n\n      // oBrw&#58;bGotop&#58;=&#123;|| oBrw&#58;gotop&#40;&#41; &#125; //--&gt;El metodo bGotop, estava desestabilizando el xBrowse \n\n       oCol&#58;= oBrw&#58;AddCol&#40;&#41; \n       oCol&#58;bStrData &#58;= &#123; || STR&#40;codi&#41;&#125; \n       oCol&#58;cHeader &#58;= &quot;CÓDIGO&quot; \n[/code:2vht91m5]\n\n[code:2vht91m5]\nSTATIC FUNCTION _Ordem&#40;_oBrw,cTag&#41;\n\n  OrdSetFocus&#40;cTag&#41;  \n  _oBrw&#58;GoTop&#40;&#41; \n  _oBrw&#58;Refresh&#40;&#41;\n[/code:2vht91m5]\n\nSaluds','',0,'AIA=','2vht91m5',1,0,'',400,0,0),(42576,8953,3,6,0,'79.9.234.202',1196203652,1,0,1,1,1,1,'','','[code:wsmf8mmj]oSheet = oWorkSheets&#58;Add&#40;&#41;[/code:wsmf8mmj]\n\nYou should start to seriously review Excel docs. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','wsmf8mmj',1,0,'',6,0,0),(42577,8982,3,35,0,'167.7.140.254',1196204284,1,0,1,1,1,0,'','Update Menu on MDI frame ?','To All\n\nI have the main MDI menu and on that menu is an option to \'login as a different user\'. In the login process .. public variables are changed and based on those changes .. the Menu options need to change.\n\nI am looking for a way to refresh or update the MDI menu options when I complete the login process .. see code in BuildMenu function ..\n\n//--------------------------//\nStatic FUNCTION BuildMenu( xDEFA, dEXE, cRDD,nSCR1,nSCR2 )\n\nLOCAL oMenu\n\nMENU oMenu\n\n      MENUITEM \"&amp;Trips, Dispatch, Gas and CVRP Entry ...\" //   ;\n      *      ACTION _tripmenu( oWIND )                        ;\n      *      MESSAGE \"TRIPS Data Entry\"\n\n      MENUITEM \"&amp;Vehicles\\Equip\\Boats ...\"                   ;\n            ACTION _vehbrow( oWIND )                         ;\n            MESSAGE \"Vehicle, Equipment and Boat Information\"\n\n      MENUITEM \"&amp;Maintenance ...\"        //                    ;\n      *      ACTION _mantmenu( oWIND )                        ;\n      *      MESSAGE \"Work Orders\"\n\n      MENUITEM \"&amp;Reports ...\"     //                           ;\n      *      ACTION _RPTmenu( oWIND )                         ;\n      *      MESSAGE \"Report Menu\"\n\n      MENUITEM \"&amp;Utilities...\"                         ;\n            ACTION _UTILmenu( oWIND )                  ;\n            MESSAGE \"Utilities Programs\"\n\n      IF xADMIN = \'Y\'\n         MENUITEM \"&amp;Login Diff User ..\"                   ;\n             ACTION( _Log_in(),                        ;\n                     cRIGHTS := _Rights(),             ;\n                     xMESSAGE :=  (\"User  \"+xLOGIN+\"    Rights  \"+cRIGHTS+        ;\n                                   \"     Default= \"+xDEFA+\"      Rdd= \"+cRDD+            ;\n                                   \"     Revision \"+DTOC(dEXE)+;\n                                   \"     Agency\\Mp= \"+ALLTRIM(xAGENCY)+\"\\\"+alltrim(xPOOL)+;\n                                   \"  -r\"+str(nSCR1,4)+\" x \"+STR(nSCR2,4)),;\n                              oWind:oMsgBar := TMsgBar():New(oWind,xMESSAGE,.F.,.T.,.F.,.F.,,,,),;\n                              oWind:ReFresh(),;\n                              MsgInfo( \"Current User is now   \"+xLOGIN ),;\n                              SysReFresh() ) ;\n             MESSAGE \"Login as a different User\"\n\n         MENUITEM \"&amp;Change Agency ..\"                   ;\n             ACTION( _ChgAgen(),                        ;\n                     cRIGHTS := _Rights(),              ;\n                     xMESSAGE :=  (\"User  \"+xLOGIN+\"    Rights  \"+cRIGHTS+        ;\n                                   \"     Default= \"+xDEFA+\"      Rdd= \"+cRDD+            ;\n                                   \"     Revision \"+DTOC(dEXE)+;\n                                   \"     Agency\\Mp= \"+ALLTRIM(xAGENCY)+\"\\\"+alltrim(xPOOL)+;\n                                   \"  -r\"+str(nSCR1,4)+\" x \"+STR(nSCR2,4)),;\n                              oWind:oMsgBar := TMsgBar():New(oWind,xMESSAGE,.F.,.T.,.F.,.F.,,,,),;\n                              oWind:ReFresh(),;\n                              MsgInfo( \"Current Agency\\MP is now   \"+alltrim(xAGENCY)+\"\\\"+alltrim(xPOOL )),;\n                              SysReFresh() ) ;\n             MESSAGE \"Change Agency and Motorpool\"\n      ENDIF\n\n      MENUITEM \"&amp;About ..\"                                   ;\n            ACTION _webhelp( xDEFA,dEXE )                    ;\n            MESSAGE \"Version Information\"\n\n      MENUITEM \"&amp;Quit\"                                       ;\n            ACTION oWIND:END()                               ;\n            MESSAGE \"End this Program\"\n\nENDMENU\n\nRETURN( oMenu )\n\n\n\nLogin different user and change Agency menu options need to be hidden if the public var xADMIN is not \"Y\" .. after the manual login\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','1xt4rc6x',1,0,'',35,0,0),(42578,8975,3,1181,0,'218.111.65.96',1196208980,1,0,0,0,1,1,'','ziparchive.lib','Thanks for the prompt reply\n\nIt works.\nNow I have another problem:\n\nziparchive.lib    too many DEF file\n\nHow do I solve the problem\n\nThanks','',0,'AIA=','23hcm8va',1,0,'',1181,0,0),(42579,8983,3,49,0,'62.13.172.67',1196209316,1,0,1,1,1,1,'','Gradient','Antonio, \n\nwhere I can found gradient function ?\n\nI can create Horizontal gradient or vertical gradient also ?\n\nThanks','',0,'AIA=','3jfjfyjc',1,0,'',49,0,0),(42580,8984,6,176,0,'200.61.143.129',1196211500,1,0,1,1,1,0,'','Buscar en archivo txt','La Dirección General de Rentas de Provincia de Buenos Aires de nuestro país no tuvo mejor idea que  hacer un padrón con lo que hay que cobrar\na cada contribuyente de percepciones ó retenciones, siendo nosotros agente recaudador de ellos (Sí Argentina bendito país),\nantes eran alícuotas fijas, pero a algún genio se le ocurrió hacerla más complicada (no tenemos nada que hacer)\ny lo hizo que cada contribuyente pague distinto. Para ello o se baja el padrón o bien cada vez que cobras a un cliente o pagás\na un proveedor entras a internet buscas el nro de Cuit (1) buscas los porcentajes a aplicar y podés facturar ó cobrar...\n(chino mandarin!!! es mas fácil de aprender que ejecutar esto para una empresa que hade 60 facturas por día)\nó bien bajas el padrón de internet, y hacés un prg que lea y encuentre las alícuotas.\nNecesito buscar del padron los clientes que pertenezcan a mi empresa los cuales identifico con los números \nposteriores al 3º punto y coma (1) y de ahí extraer los datos de que necesito, pensaba utilizar memoread, etc pero tengo\nla limitación de 64k. Pensé en utilizar la clase txt, pero no probé todavía, ya que no lo veo claro. Quizás con Fread?\nMe pueden orientar que puedo utilizar.\n\n\n\nson en total 1323270 renglones 82megabytes una bicoca\nLos primeros renglones son los siguientes\n\n21112007;01122007;31122007;20000000028;D;S;N;6,00;1,75;15;10\n21112007;01122007;31122007;20000013677;D;S;N;6,00;1,75;15;10\n21112007;01122007;31122007;20000091635;D;S;N;6,00;1,75;15;10\n21112007;01122007;31122007;20000125327;C;S;N;6,00;1,75;15;10\n21112007;01122007;31122007;20000188426;C;S;N;6,00;1,75;15;10\n21112007;01122007;31122007;20000282465;D;S;N;0,00;0,00;01;01\n\nDisculpen lo largo de la explicación.\n\nLuis','',0,'AIA=','twqsagjp',1,0,'',176,0,0),(42581,8985,6,1059,0,'190.30.48.103',1196211560,1,0,1,1,1,0,'','ctrl+U - como la detecto?','Buenas noches,\n\nNecesito, dentro de un diálogo, detectar cuando se haya pulsado la combinación de teclas \"Ctrl + U\" que antes usaba en Clipper (chr 21)\n\nhago esto:\n\noDlg:bKeyDown := {|nK| if(nK==21, ...hacer una cosa... , ....hace otra cosa ) }\n\nPero siempre me detecta la primera de las dos que presiono (17 para Ctrol y 85 para U).\n\n¿Como puedo hacerlo?.\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3c9s2h5u',1,0,'',1059,0,0),(42582,8986,2,1164,0,'190.56.172.93',1196213947,1,0,1,1,1,0,'','Gracias por tu Respuesta Antonio','... Gracias antonio por tu respuesta, lo que pasa es que me baje un demo para poder ver el Preview con zoom utilizando la clase TXTVIEW, porque en fiveWin cuando uno quiere ver PREVIEW horizontalmente las letras se ven todas juntas y aun no he podido solucionarlo.\n\n\nQue me aconsejas ?\n\nSaludos !!','',0,'AIA=','1qawca1q',1,0,'',1164,0,0),(42583,8971,3,303,0,'72.220.100.171',1196224412,1,0,1,1,1,0,'','','Otto,\n\n&gt;I am finishing converting my clipper/fivewin main application to Harbour/Fivewin. \n...\n&gt;Therefore I didn’t start changing to your class yet.\n\nIt sounds like the best way to do it.\n\nJames','',0,'AIA=','1nys18pc',1,0,'',303,0,0),(42584,8958,3,303,0,'72.220.100.171',1196226132,1,0,1,1,1,0,'','','Tim,\n\n&gt;I have a Comment button that runs a macro...\n\nIt sounds very powerful. For me, I find UE\'s templates adequate for my needs.\n\nJames','',0,'AIA=','3b8pcbls',1,0,'',303,0,0),(42585,8983,3,303,0,'72.220.100.171',1196226442,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7375&amp;highlight=degrade\">http://fivetechsoft.com/forums/viewtopi ... ht=degrade</a><!-- m -->','',0,'AIA=','17tdxy21',1,0,'',303,0,0),(42586,8982,3,303,0,'72.220.100.171',1196226776,1,0,1,1,1,0,'','','Rick,\n\nHow about just destroying and then rebuilding the menu?\n\noWnd:SetMenu( BuildMenu(...) )\n\nJames','',0,'AIA=','1pt1g9y2',1,0,'',303,0,0),(42587,8961,3,303,0,'72.220.100.171',1196230110,1,0,1,1,1,0,'','','Otto,\n\n&gt;I too use Copernic Desktop Search. But most times you get too much results back. \n\nYou can limit the search to a specific file type or directory. For instance, I get 4 results searching for \"xbrowse\" in the FWH\\samples directory.\n\nJames','',0,'AIA=','miyqt6jh',1,0,'',303,0,0),(42588,8984,6,2,0,'87.218.146.139',1196237379,1,0,1,1,1,1,'','','Luis,\n\nPuedes usar perfectamente MemoRead() y luego At(), ya que en 32 bits no existe la limitación de los 64 Ks y los ordenadores 32 bits de hoy en dia tienen memoria de sobra para cargar ficheros grandes (hasta 4 GB) en memoria','',0,'AIA=','2hdyjfg7',1,0,'',2,0,0),(42589,8958,3,2,0,'87.218.146.139',1196237711,1,0,1,1,1,1,'','','Tim,\n\nMultiEdit is very powerfull, it even provides its own programming language, but it is not friendly. Its quite complex to learn it, unless you use Evolve (though it is also quite complex to modify it).\n\nUEStudio is very friendly, so easy to configure it, and you can easily build projects managing multiple PRGs, C modules and RC (using it as a powerful visual make) or just build an EXE from a PRG with a single click on the buttonbar. It also provides UltraCompare to compare files.','',0,'AIA=','83ru05km',1,0,'',2,0,0),(42590,8975,3,2,0,'87.218.146.139',1196237891,1,0,1,1,1,1,'','','&gt; too many DEF file \n\nYou are using an extra \",\" or a missing one. \n\nPlease check your make file or batch file.','',0,'AIA=','2abtgs46',1,0,'',2,0,0),(42591,8983,3,2,0,'87.218.146.139',1196238048,1,0,1,1,1,1,'','','Silvio,\n\nYou can create both of them, just use .T. or .F. as the last parameter when calling Gradient()','',0,'AIA=','2rumb5go',1,0,'',2,0,0),(42592,8974,3,2,0,'87.218.146.139',1196238510,1,0,1,1,1,1,'','','Enrico,\n\nIf the mdichild is not maximized then it works fine.\n\nIt looks as a Windows bug when using all menuitems as ownerdraw, as FWH does not change the way the menu commands are processed <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nThe erase of the icon is our fault as we paint the entire horizontal bar. We need to check if a mdichild is maximized and then don\'t paint in that area','',0,'AIA=','3qzcmkue',1,0,'',2,0,0),(42593,8973,3,2,0,'87.218.146.139',1196238862,1,0,1,1,1,1,'','','Frank,\n\nModified, many thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3hy6t20b',1,0,'',2,0,0),(42595,8986,2,2,0,'87.218.146.139',1196238998,1,0,1,1,1,1,'','','Si aumentas el factor de zoom, debería verse mejor','',0,'AIA=','3he3o88a',1,0,'',2,0,0),(42596,8978,2,2,0,'87.218.146.139',1196239058,1,0,1,1,1,1,'','','Mario,\n\nPosiblemente las tablas estan en un directorio al que sólo tienes acceso de lectura y no de escritura.','',0,'AIA=','zkhmmcwg',1,0,'',2,0,0),(42597,8981,6,2,0,'87.218.146.139',1196239177,1,0,1,1,1,1,'','','oMenu:Hilite( &lt;nOpción&gt; )','',0,'AIA=','fjvib7ha',1,0,'',2,0,0),(42598,8960,3,995,0,'81.11.193.29',1196239310,1,0,1,1,1,0,'','','No borland control\'s. \n\nI try to use in most dialog\'s the same procedure\n\nFirst , in main , a MDI window is opened in a global var ownd. Other modules have GLOBAL EXTERNAL oWnd\n\nWhen in the menu is choosen to edit a dbf , a dialog from oWnd (no wait clausule)with xbrowse is opened to choose the record. This can be done with RETURN or lDblClick. \nI noticed that when lDblClick is used the memory tends to increase, not with RETURN\n\nAll the dialog\'s follow the same procedure :\n[code:1am0wcfs]\nDEFINE DIALOG oDlg RESOURCE &quot;INVLEV&quot; OF oWnd TITLE WinTit\noDlg&#58;bGotFocus  = &#123; ||dbSelectArea&#40;cAlias&#41; &#125;\n&#46;&#46;&#46;&#46;\nDefine xbrowse and some buttons\n&#46;&#46;&#46;&#46;\nACTIVATE DIALOG oDlg NOMODAL;\nON INIT &#40;SetXpos&#40;oBrw,nLast&#41; , oBrw&#58;Setsize&#40;BrwWidth&#41; , InitDlg&#40;oDlg&#41;&#41;;\nVALID  &#40; IIF&#40;lSluit , &#46;T&#46; , IIF&#40;GETKEYSTATE&#40;VK_ESCAPE&#41; , &#40;oBut&#58;Setfocus&#40;&#41; , &#46;F&#46;&#41; , &#46;T&#46;&#41; &#41; &#41;\n[/code:1am0wcfs]\n\nlSluit is set to .T. with the action from the ok-button\n\nFrom this dialog the edit dialog is opened , same procedure \n\nAntonio , it is a serious problem , making it impossible to use fwh7.11\nMonday (+/- 10 customers) , i had 15 errors. After compiling with 7.7 and activating this exe , no errors anymore !!!!!!\n\nOn some computers , the error happens after 30 min , other after one or two hours.\n\nFrank','',0,'AIA=','1am0wcfs',1,0,'',995,0,0),(42599,8985,6,2,0,'87.218.146.139',1196239311,1,0,1,1,1,1,'','','... if( nK == 85 .and. GetKeyState( VK_CONTROL ), ...','',0,'AIA=','1is22g3p',1,0,'',2,0,0),(42600,8960,3,2,0,'87.218.146.139',1196239636,1,0,1,1,1,1,'','','Frank,\n\nPlease post the RC source for RESOURCE \"INVLEV\"\n\nAlso please remove NOMODAL, just for a test, and lets see if that makes a difference. Thanks','',0,'AIA=','n4wnc06c',1,0,'',2,0,0),(42601,8960,3,2,0,'87.218.146.139',1196239900,1,0,1,1,1,1,'','','Frank,\n\nCould you recompile FWH 7.10 PRGs with the xHarbour build used with  7.07 and build your EXE again ? \n\nOr recompile FWH 7.07 PRGs with current xHarbour build. Both tests are fine.\n\nJust to check that it is not a xHarbour related issue, thanks','',0,'AIA=','3a1x3j6l',1,0,'',2,0,0),(42602,8977,6,456,0,'62.43.24.65',1196239971,1,0,1,1,1,1,'','','No tendras ningún problema si cambias las extensiones de los ficheros.\n\nOtra posibilidad que tienes, es cambiar el primer byte del encabezado de los DBF, con esto aunque tenga extensión DBF, el fiechero sera irreconocible para Excel y otros.\nEse primer byte tiene como valor 03H si no tiene campos memo, y 83H si tiene campos memo, lo sustituyes por otro valor y sera irreconocible por otros programas.','',0,'AIA=','nhl8hrda',1,0,'',456,0,0),(42603,8977,6,106,0,'85.34.123.173',1196244331,1,0,1,1,1,1,'','','diegopolverelli,\n\nYo uso desde hace años los archivos con otra extensión... es util para los que meten siempre la mano, para hacersela un poco mas dificil.\nYo los uso asi: nombrearchivo.d?? donde ?? es el año de trabajo, y los indices como nombreindice.i?? donde ?? es el año de trabajo. Nunca hasta hace poco había usado campos memo, y ahi fue donde tuve problemas con un tercer archivo que se genera solo con extensión fpt. Se me complicaron las cosas cuando tuve que modificar automaticamente las bases de datos, agregar o quitar campos, entonces llamé esas bases de datos e indices asi:  nombrearchivo??.d??, nombreindice??.i?? y el archivo con los memos se llama solito nombrearchivo??.fpt y problema resuelto.\n\n\nSaludos y suerte','',0,'AIA=','2qwtf7g8',1,0,'',106,0,0),(42604,8984,6,176,0,'201.255.183.7',1196244440,1,0,1,1,1,0,'','','Gracias Antonio, cuando venía hacia la oficina se me ocurrió que podía ser como con los array, pero nada mejor que me lo confirmen.\n\nLuis','',0,'AIA=','39y18pv3',1,0,'',176,0,0),(42605,8987,3,51,0,'80.122.88.242',1196244631,1,0,1,1,1,0,'','DLL32 FUNCTION - is Pascal in any case necessary','In clipper I declared the function without PASCAL and it worked.  \nHarbour gives you Harbour Exception. \n\nDLL32 FUNCTION MOVEFILE( cExistingFileName AS LPSTR, cNewFileName AS LPSTR ) AS BOOL PASCAL   FROM \"MoveFileA\" LIB \"kernel32.dll\"\n\nIs PASCAL for all DLL32 FUNCTION necessary?  (vrd.prg clipper does it  include without) - if yes double check your code','',0,'AIA=','3hah7y5d',1,0,'',51,0,0),(42606,8988,6,694,0,'201.86.90.85',1196244730,1,0,1,1,1,1,'','OSAKIT - alguem conhece?','<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=11583\">http://www.fivewin.com.br/forum/topic.a ... C_ID=11583</a><!-- m -->\n\n\nGracias \n\nAoki','',0,'AIA=','t0j74n02',1,0,'',694,0,0),(42607,8987,3,6,0,'87.6.210.8',1196246874,1,0,1,1,1,1,'','Re: DLL32 FUNCTION - is Pascal in any case necessary','I\'ve always used PASCAL clause even in 16 bit days. I think it depends on the DLL. All system DLLs need PASCAL clause.\n\nEMG','',0,'AIA=','1xmr087g',1,0,'',6,0,0),(42608,8985,6,1059,0,'190.31.50.57',1196247061,1,0,1,1,1,0,'','','Buen día,\n\nGracias por responder pero, sigue sin funcionar.\n\npara testear hice:\n\noDlg:bKeyDown := {|nK| if(nK == 85 .and. GetKeyState( VK_CONTROL ) , msginfo(\'21\') , msginfo(str(nK)) ) }\n\nY siempre detecta el caracter 17.\n\n¿Debo hacer una funcióna para esto o hay algo que me falta?\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','98h4pd2o',1,0,'',1059,0,0),(42609,8985,6,2,0,'87.218.146.139',1196247608,1,0,1,1,1,1,'','','El 85 es la U mayúscula. Usa entonces el 17:\n\n{|nK| If( nK == 17 .and. GetKeyState( VK_CONTROL ), ...','',0,'AIA=','1m1ohcjt',1,0,'',2,0,0),(42610,8985,6,362,0,'200.158.18.98',1196247792,1,0,1,1,1,1,'','','[code:3nhd7bn4]\n    DO CASE\n\n       CASE &#40; nKey == Asc&#40; &quot;A&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;a&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+A-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;B&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;b&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+B-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;C&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;c&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+C-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;D&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;d&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+D-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;E&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;e&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+E-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;F&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;f&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+F-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;G&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;g&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+G-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;H&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;h&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+H-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;I&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;i&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+I-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;P&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;p&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+P-For Nilson\'\n       CASE &#40; nKey == Asc&#40; &quot;T&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;t&quot; &#41; &#41; &#46;AND&#46; ;\n              GetKeyState&#40; VK_CONTROL &#41;\n              ? \'Control+T-For Nilson\'\n\n       //CASE &#40; nKey == Asc&#40; &quot;Z&quot; &#41; &#46;OR&#46; nKey == Asc&#40; &quot;z&quot; &#41; &#41; &#46;AND&#46; ;\n       //       GetKeyState&#40; VK_CONTROL &#41;\n       //       ? \'Control+Z-For Nilson\'\n\n       CASE &#40; nKey == VK_INSERT  &#46;AND&#46; GetKeyState&#40; VK_SHIFT   &#41; &#41; &#46;OR&#46; ;\n            &#40; nKey == ASC&#40; &quot;V&quot; &#41; &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41; &#46;OR&#46; ;\n            &#40; nKey == ASC&#40; \'X\' &#41; &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n            ? \' Multiplas-For Nilson\'\n\n       /*\n       CASE nKey==VK_F12\n              ? \'F12-For Nilson\'\n       */\n\n       CASE &#40; nKey == VK_F2 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F2-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F3 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F3-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F4 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F4-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F5  &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F5-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F6 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F6-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F7 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F7-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F8 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F8-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F9  &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F9-For Nilson\'\n        // Acao&#40;Action&#41; do seu programa\n       //CASE &#40; nKey == VK_F10 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n       //   ? \'Control+F10-For Nilson\'\n          // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F11 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F11-For Nilson\'\n          // Acao&#40;Action&#41; do seu programa\n       CASE &#40; nKey == VK_F12 &#46;AND&#46; GetKeyState&#40; VK_CONTROL &#41; &#41;\n          ? \'Control+F12-For Nilson\'\n          // Acao&#40;Action&#41; do seu programa\n\n    ENDCASE\n[/code:3nhd7bn4]','',0,'AIA=','3nhd7bn4',1,0,'',362,0,0),(42611,8985,6,1059,0,'190.31.50.57',1196247990,1,0,1,1,1,0,'','','Sigo con el mismo problema, ahora detecta apenas se presiona solamente la tecla ctrl.\n\nLo que necesito es que detecte cuando están ambas presionadas, CTRL y u.\n\nGracias.\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','17jmbtnz',1,0,'',1059,0,0),(42612,8987,3,2,0,'87.218.146.139',1196248060,1,0,1,1,1,1,'','','PASCAL means that the called function rearranges its own C stack, so the calling function hasn\'t to do it. Its very important and yes, it is needed.','',0,'AIA=','dwihllqm',1,0,'',2,0,0),(42613,8989,3,51,0,'80.122.88.242',1196248102,1,0,1,1,1,0,'','RENAME/MoveFile VISTA your program called setup/update.exe','RENAME/MoveFile does not work on Network from VISTA if you have” User-account management” on and your program-name has setup or update inside.\n\nI localized the problem: If you start the exe as WHUPDATE.EXE \nVISTA ask you if you will go ahead. You say yes then the \nMovefile/rename/file/copy function fails.\n\nRenaming the exe WHUPDATE to WHS.EXE all works as suspected.','',0,'AIA=','9x1rz5xh',1,0,'',51,0,0),(42614,8985,6,2,0,'87.218.146.139',1196248240,1,0,1,1,1,1,'','','Debería funcionarte así, como te ha mostrado Joao:\n\n{|nK| If( ( nK == Asc( \"u\" ) ) .and. GetKeyState( VK_CONTROL ), ...','',0,'AIA=','2jyo1z5p',1,0,'',2,0,0),(42615,8985,6,1059,0,'190.31.29.38',1196248727,1,0,1,1,1,0,'','','Gracias, por la tarde lo probaré ya que mi labor diaria me llama.\n\nRolando  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','1p6d0jqi',1,0,'',1059,0,0),(42616,8953,3,51,0,'80.122.88.242',1196252992,1,0,1,1,1,0,'','','Enrico, could you please help me on that.\nThanks in advance\nOtto\nUnresolved external \'_HB_FUN_CREATEOBJECT\' referenced from C:\\FWH\\SAMPLES','',0,'AIA=','1pnt6waa',1,0,'',51,0,0),(42617,8959,6,644,0,'200.69.219.145',1196253035,1,0,1,1,1,0,'','','Antonio: Funcionó. Muchas gracias','',0,'AIA=','11dee8uk',1,0,'',644,0,0),(42618,8990,3,86,0,'81.83.151.142',1196253243,1,0,1,1,1,1,'','Difference between CreateObject() and CreateOleObject()','Hello,\n\nCan anyone tell me what the difference is between CreateObject() and CreateOleObject()\n\nThanks.','',0,'AIA=','2gmi7wm8',1,0,'',86,0,0),(42619,8983,3,217,0,'200.159.120.34',1196253969,1,0,1,1,1,0,'','','How can I create a gradient like Windows Vista buttons?\nThe gradient top is clear, the middle of object is darker and bottom is clear\n\nRegards\nMaurilio','',0,'AIA=','330hcx9l',1,0,'',217,0,0),(42620,8975,3,1181,0,'60.50.125.114',1196254088,1,0,0,0,1,1,'','unresolved external','Thanks for the reply\n\nProblem solved.\nNew problem:\nError: Unresolved external \'_HB_FUN_HB_GT_GUI\' referenced from C:\\FWH\\LIB\\FIVEH.LIB|ERRSYSW\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_DBFFPT\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|rddsys\n\nPlease help\n\nThanks','',0,'AIA=','1suvv634',1,0,'',1181,0,0),(42621,8982,3,35,0,'167.7.140.254',1196254481,1,0,1,1,1,0,'','','James\n\nDid not work .. here is the code snipit I inserted :\n\n[quote:cth13kik]IF xADMIN = \'Y\'\n         MENUITEM \"&amp;Change Agency ..\"                   ;\n             ACTION( _ChgAgen(),                        ;\n                     cRIGHTS := _Rights(),              ;\n                     xMESSAGE :=  (\"User  \"+xLOGIN+\"    Rights  \"+cRIGHTS+        ;\n                                   \"     Default= \"+xDEFA+\"      Rdd= \"+cRDD+            ;\n                                   \"     Revision \"+DTOC(dEXE)+;\n                                   \"     Agency\\Mp= \"+ALLTRIM(xAGENCY)+\"\\\"+alltrim(xPOOL)+;\n                                   \"  -r\"+str(nSCR1,4)+\" x \"+STR(nSCR2,4)),;\n                              oWind:oMsgBar := TMsgBar():New(oWind,xMESSAGE,.F.,.T.,.F.,.F.,,,,),;\n                              oWind:ReFresh(),;\n                              MsgInfo( \"Current Agency\\MP is now   \"+alltrim(xAGENCY)+\"\\\"+alltrim(xPOOL )),;\n                              oWind:SetMenu( BuildMenu( xDEFA, dEXE, cRDD,nSCR1,nSCR2 )),;\n                              SysReFresh() ) ;\n             MESSAGE \"Change Agency and Motorpool\"\n      ENDIF[/quote:cth13kik]','',0,'gA==','cth13kik',1,0,'',35,0,0),(42622,8955,6,278,0,'200.126.77.228',1196255908,1,0,1,1,1,1,'','','[b:8fq1wt5w]GRACIAS[/b:8fq1wt5w]\n\nWilliam y Juan Carlos , la vamos a probar al tiro.\n\nSaludos,','',0,'QA==','8fq1wt5w',1,0,'',278,0,0),(42623,8801,18,2,0,'87.218.146.139',1196259625,1,0,1,1,1,1,'','','No podemos usar un driver \"por defecto\". \n\nEl driver tiene que estar instalado para su correspondiente impresora dada correctamente de alta.','',0,'QA==','2b8nzyxi',1,0,'',2,0,0),(42624,8975,3,2,0,'87.218.146.139',1196259745,1,0,1,1,1,1,'','','You need to link GTGUI.lib, HBSIX.lib and DBFFPT.lib too','',0,'QA==','3t3c90e9',1,0,'',2,0,0),(42625,8982,3,2,0,'87.218.146.139',1196259819,1,0,1,1,1,1,'','','Rick,\n\nMake a call to oWnd:oMenu:End() before doing oWnd:SetMenu( ... )','',0,'QA==','21f3yt9a',1,0,'',2,0,0),(42626,8991,3,210,0,'81.24.159.58',1196261660,1,0,1,1,1,1,'','To all VISTA developers','Visit this site for information to VISTA!\n \n<!-- m --><a class=\"postlink\" href=\"http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1614230&amp;SiteID=1\">http://forums.microsoft.com/MSDN/ShowPo ... 0&amp;SiteID=1</a><!-- m -->','',0,'QA==','ftk7zmw1',1,0,'',210,0,0),(42627,8801,18,1146,0,'87.223.173.186',1196261920,1,0,1,1,1,0,'','','Antonio:\n\nSí claro, parto de lo que me dices. Pero hay veces que con ciertas impresoras instaladas correctamente en red, FWH NO funciona correctamente en los terminales cliente, pero SI lo hacen el resto de aplicaciones en Windows.\n\nEse es el error que tengo.\n\nPor eso te comento dicha solución, ya que si no el programa no puede previsualzar nada.','',0,'QA==','197tqt69',1,0,'',1146,0,0),(42628,8801,18,2,0,'87.218.146.139',1196262336,1,0,1,1,1,1,'','','Que modelos de impresoras son ?\n\nTienes que darnos información más concreta y ejemplos reproducibles para poder darte soporte técnico, gracias','',0,'QA==','1u5df3tg',1,0,'',2,0,0),(42629,8982,3,35,0,'167.7.140.254',1196262798,1,0,1,1,1,0,'','','James and Antonio\n\nYES ... I needed both of your suggestions !!!!!!!!!  Works perfectly !!!\n\nThanks\nRick Lipkin','',0,'QA==','23w83alz',1,0,'',35,0,0),(42630,8981,6,1201,0,'200.90.17.154',1196263774,1,0,1,1,1,0,'','','Gracias, Pero ya lo intenté y lo único que hace es \'pintar\' la Opción, pero realmente no está seleccionado el menú','',0,'QA==','1nr8oudr',1,0,'',1201,0,0),(42631,8981,6,2,0,'87.218.146.139',1196264414,1,0,1,1,1,1,'','','Te refieres a ejecutar la acción de un menuitem ?','',0,'QA==','366bbl71',1,0,'',2,0,0),(42632,8990,3,6,0,'87.21.195.58',1196264977,1,0,1,1,1,1,'','Re: Difference between CreateObject() and CreateOleObject()','CreateObject() is synonymous with TOleAuto():New() (i.e. creates a [x]Harbour class) while CreateOleObject() just returns a Windows handle to an OLE object.\n\nEMG','',0,'','193j0ctv',1,0,'',6,0,0),(42633,8953,3,6,0,'87.21.195.58',1196265041,1,0,1,1,1,1,'','','If you are using Harbour you have to use TOleAuto():New() instead of CreateObject().\n\nEMG','',0,'','1mfbl7w1',1,0,'',6,0,0),(42634,8953,3,51,0,'80.122.88.242',1196266483,1,0,1,1,1,0,'','','Hello Enrico,\nThank you for your help. But I can’t get it working.\n\nI have a original FWH installation 7.11  with original FIVEWIN harbour.\n\nI get this error. The only other file with TOleAuto in Fivewin\\samples\nis mscomm32.prg. If you compile this file you have the same error.\n\nError: Unresolved external \'_HB_FUN_TOLEAUTO\' referenced from C:\\FWH\\SAMPLES\\MSC\nOMM32.OBJ\n\n\nThanks in advance\nOtto\n\n\nFUNCTION MAIN()\n    // LOCAL oExcel := CREATEOBJECT( \"Excel.Application\" )\n    LOCAL oExcel :=  TOleAuto( ):New( \"Excel.Application\" )\n    LOCAL oWorkbook := oExcel:Workbooks:Add()\n    LOCAL oSheet := oExcel:ActiveSheet\n\n    oSheet:Cells( 1, 1 ):Value = \"Test 1A\"\n    oSheet:Cells( 1, 2 ):Value = \"Test 1B\"\n    oSheet:Cells( 2, 1 ):Value = \"Test 3A\"\n    oSheet:Cells( 2, 2 ):Value = \"Test 3B\"\n    oSheet:Rows( 2 ):Insert()\n    oSheet:Cells( 2, 1 ):Value = \"Test 2A\"\n    oSheet:Cells( 2, 2 ):Value = \"Test 2B\"\n    oExcel:Visible = .T.\n\n    //oSheet:SaveAs( \"c:\\xharbour\\newfile.xls\" )\n    //oExcel:Quit()\n\n\nRETURN NIL','',0,'','1sp810vz',1,0,'',51,0,0),(42635,8992,6,456,0,'62.43.24.65',1196266761,1,0,1,1,1,1,'','Problema usando tDatabase','Hola foro,\nNecesito ayuda, estoy algo confuso, y no doy con la solución del siguiente problema. \n\nQuiero utilizar la clase tDatabase, y la estoy probando con un sencillo mantenimiento de fichero maestro. Visualizo una tabla en un browse, y edito o añado datos en un dialogo. \nPretendo que solo exista un objeto tDatabase, que es el que uso en el browse y en dialogo.\n\nHe aqui el problema, puesto que al al intentar añadir registros, ejecuto el metodo Blank, que deja vacio el buffer de edicion, pero mientras estoy editando, o al cerrar el dialogo, supongo que desde el browse se ejecuta el metodo load, con lo que el buffer que estoy editando se carga con los datos del registro sobre el que esta posicionado el browse. \nNo se si me explico, aqui os dejo un ejemplo autocontenido, probad de dar de alta un registro.\n[code:1snadar3]#include &quot;Fivewin&#46;ch&quot; \n#include &quot;xBrowse&#46;ch&quot;\nSTATIC oDbf\nFUNCTION MAIN&#40;&#41; \n   LOCAL oWnd,oBrw,oCol,oBar\n   CrtTmp&#40;&#41;\n   oDbf&#58;=tDatabase&#40;&#41;&#58;New&#40;&#41;\n   DEFINE WINDOW oWnd\n   DEFINE BUTTONBAR oBar OF oWnd \n   *-\n   DEFINE BUTTON OF oBar ACTION EdtTmp&#40;&#46;t&#46;&#41; PROMPT \'Altas\'\n   DEFINE BUTTON OF oBar ACTION EdtTmp&#40;&#46;f&#46;&#41; PROMPT \'Modif\' \n   *--\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40;oWnd&#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;T&#46;\n   *--\n   oCol&#58;=oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData&#58;= &#123;||oDbf&#58;Cod&#125;\n   oCol&#58;cHeader &#58;= \'Cod&#46;\'\n   *--   \n   oCol&#58;=oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;bStrData&#58;= &#123;||oDbf&#58;Nom&#125;\n   oCol&#58;cHeader &#58;= \'Descripción\'\n   *--\n   oBrw&#58;bGoTop    &#58;= &#123;|| oDbf&#58;GoTop&#40;&#41; &#125;\n   oBrw&#58;bGoBottom &#58;= &#123;|| oDbf&#58;GoBottom&#40;&#41; &#125;\n   oBrw&#58;bSkip     &#58;= &#123;| n | iif&#40; n == nil, n &#58;= 1, &#41;, oDbf&#58;Skipper&#40; n &#41;  &#125;\n   oBrw&#58;bBof      &#58;= &#123;|| oDbf&#58;Bof&#40;&#41;  &#125;\n   oBrw&#58;bEof      &#58;= &#123;|| oDbf&#58;Eof&#40;&#41;&#125;\n   oBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == NIL, oDbf&#58;RecNo&#40;&#41; , oDbf&#58;Goto&#40; n &#41; &#41;  &#125;\n   \n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oWnd&#58;oClient &#58;= oBrw\n   oBrw&#58;lRecordSelector&#58;=&#46;t&#46;\n   \n   ACTIVATE WINDOW oWnd\n   RETURN NIL \n//-------------------------------\nSTATIC FUNCTION EdtTmp&#40;lAdd&#41;\n   LOCAL oDlg,lSave &#58;= &#46;F&#46;,oFont,oBtn, cCod,cNom\n   //LOCAL oDbf&#58;=tDatabase&#40;&#41;&#58;New&#40;&#41;  &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;Si defino otro objeto local, funciona Ok&#46;\n   IF &#40;lAdd,oDbf&#58;Blank&#40;&#41;,oDbf&#58;Load&#40;&#41;&#41;\n   \n   DEFINE FONT oFont NAME &quot;MS Sans Serif&quot; SIZE 0, 8\n   DEFINE DIALOG oDlg FROM 100, 100 TO 230,494 PIXEL FONT oFont\n   oDlg&#58;SetText&#40;\'&#40;\'+ProcName&#40;&#41;+\'&#41; \'+ IF&#40;lAdd,\'Alta\',\'Modificación\'&#41;+\' de registros\' &#41;\n   @ 12, 10 SAY &quot;Cod&#58;&quot; OF oDlg SIZE 15, 8 PIXEL FONT oFont\n   @ 26, 10 SAY &quot;Nom&#58;&quot; OF oDlg SIZE 17, 8 PIXEL FONT oFont\n   @ 10, 32 GET oDbf&#58;Cod OF oDlg SIZE 15, 12 PIXEL FONT oFont WHEN lAdd\n   @ 24, 32 GET oDbf&#58;Nom OF oDlg SIZE 155, 12 PIXEL FONT oFont\n\n   @ 46, 107 BUTTON oBtn PROMPT &quot;OK&quot; OF oDlg SIZE 42, 14 PIXEL FONT oFont DEFAULT ;\n                         ACTION &#40;MsgStop&#40;&quot;Valor nombre antes de cerrar el dialogo&#58;&quot;+CRLF+oDbf&#58;Nom&#41;,oDlg&#58;End&#40;&#41;, lSave &#58;= &#46;T&#46;&#41;\n   @ 46, 151 BUTTON oBtn PROMPT &quot;Cancelar&quot; OF oDlg SIZE 42, 14 PIXEL FONT oFont CANCEL ACTION &#40;oDlg&#58;End&#40;&#41;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED \n   MsgStop&#40;&quot;Valor nombre despues de cerrar el dialogo&#58;&quot;+CRLF+oDbf&#58;Nom&#41;\n   IF lSave\n      IF lAdd\n         oDbf&#58;Append&#40;&#41;\n      ENDIF\n      oDbf&#58;Save&#40;&#41;\n   ENDIF\nRETURN NIL\n//-------------------------------\nSTATIC FUNCTION CrtTmp&#40;&#41;\n   LOCAL i\n   DBCreate&#40;\'tmp&#46;dbf\',&#123;;\n                        &#123; &quot;COD&quot;       , &quot;C&quot;,     2,    0 &#125;,;\n                        &#123; &quot;NOM&quot;       , &quot;C&quot;,    30,    0 &#125; ;                                        \n                      &#125;&#41;    \n   DBUseArea&#40;&#46;T&#46;,,\'tmp\',,&#46;T&#46;&#41;\n    \n   FOR i&#58;=1 TO 50\n       Tmp-&gt;&#40;dbAppend&#40;&#41;&#41;\n       Tmp-&gt;Cod&#58;=Str&#40;i,2&#41;\n       Tmp-&gt;Nom&#58;=\'Nombre \'+Tmp-&gt;Cod\n   NEXT          \n   Tmp-&gt;&#40;dbGoTop&#40;&#41;&#41;\n   RETURN NIL[/code:1snadar3]\nVeis alguna posible solucion,  o por el contrario la unica via es crear dos objetos tDatabase, para que sea independiente el browse del dialogo.\nAhora que escribo esto, estoy pensando que si ejecuto el metodo  blank en el browse y no el dialogo,  puede que tambien funcione, ya que tanto el browse como el dialogo estarian sobre un registro vacio.','',0,'AIA=','1snadar3',1,0,'',456,0,0),(42636,8992,6,53,0,'189.139.16.136',1196268838,1,0,1,1,1,1,'','','Biel:\n\nPrueba utilizando el alias de la DBF en el browse y el objeto oDbf para edición, ejemplo del browse:\n\n   *-- \n   oCol:=oBrw:AddCol() \n   oCol:bStrData:= {||cAlias-&gt;Cod} \n   oCol:cHeader := \'Cod.\' \n   *-- \n\nDe esta forma no he tenido problemas.\n\nSaludos','',0,'AIA=','1fip27r9',1,0,'',53,0,0),(42637,8992,6,456,0,'62.43.24.65',1196269380,1,0,1,1,1,1,'','','Gracias Armando, por  la respuesta.\n Bueno la idea original es no usar alias, para que en un futuro y sin retocar más de una linea (oDbf:= ...) pueda servirme indistintamente para DBF como para acceso via ADO.','',0,'AIA=','1yenc8kf',1,0,'',456,0,0),(42638,8992,6,362,0,'200.158.18.98',1196269471,1,0,1,1,1,1,'','','//IF (lAdd,oDbf:Blank(),oDbf:Load())\n\n   SELECT( oDbf:cAlias )\n   DATABASE oDbf\n\n   IF lAdd //-&gt; Para Anadir\n      oDbf:SetBuffer( .T. )\n      oDbf:Blank()\n   ELSE //-&gt; Para Alterar\n      oDbf:Load()\n   ENDIF\n\nO\n\n/*\n    IF NetUse( \"CADETIQ\", .T. )\n        OrdListAdd( \"CADETIQ\", \"RAZ_MATRIC\", \"DEST_NOME\", \"END\",             ;\n                               \"NOME_ARTIS\", \"CPF\",       \"CNPJ\",            ;\n                               \"TELEFONE\" )\n        OrdDescend( ,,.F. ) // - Decrescente\n        DATABASE DbClientes // Como Escrevemos em Ingles\n        DbClientes:Gotop()\n        DbClientes:Load()\n        DbClientes:SetBuffer( .T. )    // Assim, .T. a Op‡Æo (Cancelar) Funciona.\n     ELSE\n        MsgStop( \"Banco de Dados Bloqueado\", \"Cuidado!\" )\n        RETURN NIL\n    ENDIF\n\n    IF lAppend  //-&gt; Inclusao\n\n        DbClientes:SetOrder( 1 )\n        DbClientes:GoBottom()\n\n        nCodigo := ( DbClientes:Raz_Matric )\n\n        DbClientes:SetBuffer( .T. )\n        DbClientes:Blank()\n\n     ELSE //-&gt; Altera‡Æo\n\n        nRecNo := (DbClientes:cAlias)-&gt;( RecNo() )\n        DbClientes:GoTo( nRecNo )\n        nOldRecNo := (DbClientes:cAlias)-&gt;( RecNo() )\n\n    ENDIF\n\n    TRAVEREG(0)  //-&gt; APPEND BLANK O DBAPPEND() Y TRABA DEL REGISTRO\n    DbClientes:Save()\n    DESTRAVA(0)\n*/','',0,'AIA=','nevsj0j7',1,0,'',362,0,0),(42639,8977,6,1090,0,'201.254.54.32',1196271202,1,0,1,1,1,0,'','Gracias','Gracias. Voy a probar entonces. \n\n[quote=&quot;pymsoft&quot;:1y2kgvlt]diegopolverelli,\n\nYo uso desde hace años los archivos con otra extensión... es util para los que meten siempre la mano, para hacersela un poco mas dificil.\nYo los uso asi: nombrearchivo.d?? donde ?? es el año de trabajo, y los indices como nombreindice.i?? donde ?? es el año de trabajo. Nunca hasta hace poco había usado campos memo, y ahi fue donde tuve problemas con un tercer archivo que se genera solo con extensión fpt. Se me complicaron las cosas cuando tuve que modificar automaticamente las bases de datos, agregar o quitar campos, entonces llamé esas bases de datos e indices asi:  nombrearchivo??.d??, nombreindice??.i?? y el archivo con los memos se llama solito nombrearchivo??.fpt y problema resuelto.\n\n\nSaludos y suerte[/quote:1y2kgvlt]','',0,'gA==','1y2kgvlt',1,0,'',1090,0,0),(42640,8992,6,456,0,'62.43.24.65',1196271249,1,0,1,1,1,1,'','','Gracias João,\nHe probado la primera parte de tu codigo, y me produce el mismo efecto erroneo. Das de alta un registro, pero graba los datos del registro sobre el que esta posicionado el browse.\n\n[code:23xsxyzb]\nSELECT&#40; oDbf&#58;cAlias &#41; \nDATABASE oDbf \n[/code:23xsxyzb]\noDbf esta definida como variable estatica, asi lo unico que hace es volver a crear un objeto tDatabase en la misma variable.\nSi oDbf la definimos local,  funciona bien, pero me gustaria no terner que definrla local a la funcion. La idea es usar un solo oDbf generico para todo el programa.\n[code:23xsxyzb]//LOCAL oDbf&#58;=tDatabase&#40;&#41;&#58;New&#40;&#41;  &lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;&lt;Si defino otro objeto local, funciona Ok&#46;[/code:23xsxyzb] Si descomentas esta linea del codigo que he puesto, veras como funciona ok, sin cambiar nada mas.\n[code:23xsxyzb]\nIF lAdd //-&gt; Para Anadir \noDbf&#58;SetBuffer&#40; &#46;T&#46; &#41; \noDbf&#58;Blank&#40;&#41; \nELSE //-&gt; Para Alterar \noDbf&#58;Load&#40;&#41; \nENDIF \n[/code:23xsxyzb]\nEste codigo es practicamente igual al que yo uso\n[code:23xsxyzb]IF &#40;lAdd,oDbf&#58;Blank&#40;&#41;,oDbf&#58;Load&#40;&#41;&#41;[/code:23xsxyzb]\nvaria en que fuerzas el uso del buffer cn Setbuffer(.t.), pero por defecto lBuffer esta a verdadero cuando se crea el objeto, SetBuffer ademas de poner lBuffer a .T. fuerza un Load, pero no varia el comportamiento.','',0,'AIA=','23xsxyzb',1,0,'',456,0,0),(42641,8992,6,362,0,'200.158.18.98',1196271779,1,0,1,1,1,1,'','','nRecNo := (DbClientes:cAlias)-&gt;( RecNo() ) \nDbClientes:GoTo( nRecNo ) \n\nnOldRecNo := (DbClientes:cAlias)-&gt;( RecNo() ) \n\nCuando en la Gravacion:\n\nGoTo( nOldRecno )','',0,'AIA=','q1s8wqzb',1,0,'',362,0,0),(42642,8985,6,1206,0,'213.97.245.163',1196274579,1,0,1,1,1,0,'','PRUEBA CON ESTO','rolando,\neste codigo me funciona bien\n\n#include \"FiveWin.ch\"\nfunction Main()\n   local oDlg\n   DEFINE DIALOG oDlg TITLE \"PRUEBA DE PULSACION DE TECLA\"\n        ODLG:BKEYDOWN:={|NKEY|ULTTECLA(NKEY)}\n   ACTIVATE DIALOG oDlg CENTERED\nreturn nil\n\nFUNCTION ULTTECLA(NKEY)\n// yo por si las \"moscas\" he anulado las teclas de combinación como\n// ctrl en este caso\nIF NKEY=17        \n           RETURN NIL\nENDIF\nIF NKEY=85 .AND. GetKeyState( 17 ) \n       ?\"hola\" // Aqui pones la funcion que quieras ejecutar\nENDIF\nreturn nil\n\nEspero que te sirva','',0,'AIA=','1ejfi46r',1,0,'',1206,0,0),(42643,8953,3,6,0,'87.21.195.58',1196274952,1,0,1,1,1,1,'','','I forgot to say that you need hbole.lib or hbwin32.lib.\n\nEMG','',0,'AIA=','hpr1rre6',1,0,'',6,0,0),(42644,8953,3,2,0,'87.218.146.139',1196275003,1,0,1,1,1,1,'','','Otto,\n\nYou have to link HbWin32.lib from Harbour','',0,'AIA=','2xjjihyh',1,0,'',2,0,0),(42645,8993,6,1072,0,'190.82.12.230',1196275308,1,0,1,1,1,0,'','Duda con VERCE.','Amigos:\n\nTengo una duda, estaba usando Verce 5.1, he instalado la version 5.3, al tratar de compilar el mismo proyecto que funcionaba con la version anterior, hoy jamas termina la compilacion, por lo que debo cerrar verce, no generando el EXE. He borrado todo lo que tenga que ver con verce he instalado nuevamente la version 5.3 y persiste el problema.\n\nAlguna idea?,\n\nSaludos,\nAntonio','',0,'AIA=','2msiktfp',1,0,'',1072,0,0),(42646,8992,6,46,0,'217.168.114.56',1196276132,1,0,1,1,1,0,'','','Experimenta esto\n[code:1lliaznl]\nDEFINE BUTTON OF oBar ACTION EdtTmp&#40;&#46;t&#46;, oClone&#40; oDbf &#41;&#41; PROMPT \'Altas\'\nDEFINE BUTTON OF oBar ACTION EdtTmp&#40;&#46;f&#46;, oClone&#40; oDbf &#41;&#41; PROMPT \'Modif\'\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n\nSTATIC FUNCTION EdtTmp&#40;lAdd, oDbf &#41;\n   LOCAL oDlg,lSave &#58;= &#46;F&#46;,oFont,oBtn, cCod,cNom\n   IF &#40;lAdd,oDbf&#58;Blank&#40;&#41;,oDbf&#58;Load&#40;&#41;&#41; \n\n&#46;&#46;&#46;&#46;&#46;\n\n\n\n[/code:1lliaznl]\nSalu2','',0,'AIA=','1lliaznl',1,0,'',46,0,0),(42647,8977,6,1206,0,'213.97.245.163',1196276191,1,0,1,1,1,0,'','','Podrias cambiar a ADS local son mas rápidos, y en el caso de encriptacion son unas lineas que tienes que declarar al principio y te olvidas de lo demas.\n\nSi no te decides por esta opción, no tienes ningun problemas, SOLO QUE TIENES QUE DECLARA LA EXTENSION A CADA BASE E INDICIE.','',0,'AIA=','1lqsdqom',1,0,'',1206,0,0),(42648,8990,3,86,0,'81.83.151.142',1196276817,1,0,1,1,1,1,'','','Enrico,\n\nThanks a lot for your answer. Now I understand the difference.','',0,'AIA=','2s4n74ff',1,0,'',86,0,0),(42649,8992,6,92,0,'81.44.86.95',1196278263,1,0,1,1,1,0,'','Re: Problema usando tDatabase','Biel,\n\nprueba con esto:\n\n   *--\n   oCol:=oBrw:AddCol()\n   oCol:bStrData:= {|| (oDbf:cAlias)-&gt;Cod }\n   oCol:cHeader := \'Cod.\'\n   *--   \n\nDe esta manera el browse estará leyendo directamente del campo de la DBF, prescindiendo del buffer.\n\nSaludos\nCarlos G.','',0,'AIA=','3ec3ok9j',1,0,'',92,0,0),(42650,8955,6,228,0,'200.119.48.11',1196278459,1,0,1,1,1,1,'','Amigo...','Amigo como estas?   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nNo he podido probar el verce 5.3 siguen los problemas en tu server?  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','3hb8vvs9',1,0,'',228,0,0),(42651,8992,6,92,0,'81.44.86.95',1196278855,1,0,1,1,1,0,'','Re: Problema usando tDatabase','Biel,\n\nolvida mi primer mensaje, entendí mal.\n\nAhora bien si haces:\n\n                         ACTION ( MsgStop(\"Valor nombre antes de cerrar el dialogo:\"+CRLF+oDbf:Nom), ;\n                                  If(lAdd, oDbf:Append(),Nil), ;\n                                  oDbf:Save(), ;\n                                  oDlg:End() )\n\n\nCreo que conseguirás lo que quieres.\n\nSaludos\nCarlos G.','',0,'AIA=','1uy1crus',1,0,'',92,0,0),(42652,8994,3,217,0,'200.159.120.34',1196281227,1,0,1,1,1,0,'','Get with &quot;flat&quot; border','Hi!\n\nHow can I create a get with flat style border? Using FW 16 bits was only set 3D look to false, but with FWH the get border don\'t get \"flat\" style...\nI tryend oGet:l3Dlook := .F.\n\nregards\nMaurilio','',0,'AIA=','2lw2s511',1,0,'',217,0,0),(42653,8995,3,879,0,'70.53.45.207',1196282975,1,0,1,1,1,0,'','MenuItem Prompt','I am trying to create several menu items. On the left is the menu item name and on the right is the accelerator key to use. I can approximate the position using spaces but the information on the right is not in a vertical line. I.E. \n\n[code:39ecxw4y] \n      MENUITEM &quot;Modification Log-On        Ctrl-P&quot; ;\n         ACTION LogOn &#40;&#41; ACCELERATOR ACC_CONTROL, ASC&#40;&quot;P&quot;&#41;\n\n      MENUITEM &quot;E&amp;xit                      Alt-X”;\n         ACTION oWndMain&#58;end&#40;&#41; ACCELERATOR ACC_ALT, ASC&#40;&quot;X&quot;&#41;[/code:39ecxw4y]\n\nAs the text is positioned using a proportional pitch font, I have found nothing in my 7.04 version that will allow me to create 2 aligned columns. Does an ability such as this exist?','',0,'AIA=','39ecxw4y',1,0,'',879,0,0),(42654,8953,3,51,0,'80.122.88.242',1196283633,1,0,1,1,1,0,'','','Where can I download HbWin32.lib ?\nRegards,\nOtto','',0,'AIA=','z06ourkk',1,0,'',51,0,0),(42655,8985,6,1059,0,'190.225.7.223',1196285031,1,0,1,1,1,0,'','','Gracias, ya lo solucioné. Usé como base la función de Jaro que es algo similar a lo de Joao.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','259gqmex',1,0,'',1059,0,0),(42656,8995,3,2,0,'87.218.146.139',1196286245,1,0,1,1,1,1,'','','Ken,\n\nTry to use Tabs Chr( 9 ) instead of spaces','',0,'AIA=','215sf3fm',1,0,'',2,0,0),(42657,8994,3,2,0,'87.218.146.139',1196286360,1,0,1,1,1,1,'','','Maurilio,\n\nWill it be ok just to remove its border or you want to remove the 3D effect in the border ?','',0,'AIA=','2i9db2g3',1,0,'',2,0,0),(42658,8953,3,2,0,'87.218.146.139',1196286588,1,0,1,1,1,1,'','','Otto,\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/72966698/hbwin32.lib.html\">http://rapidshare.com/files/72966698/hbwin32.lib.html</a><!-- m -->\n\nHave you checked if it is included in Harbour libs directory ?','',0,'AIA=','7ox569db',1,0,'',2,0,0),(42659,8953,3,51,0,'80.122.88.242',1196287055,1,0,1,1,1,0,'','','Thank you Enrico and Antonio.\n\n[img:3idh5x0z]http&#58;//www&#46;atzwanger&#46;com/fw/3exceltest&#46;jpg[/img:3idh5x0z]','',0,'CA==','3idh5x0z',1,0,'',51,0,0),(42660,8996,6,39,0,'201.221.218.116',1196289351,1,0,1,1,1,0,'','[ Off Topic ] Alguien tiene algo hecho con xmlsec','Hola,\n\n Disculpen el off topic, pero necesito encontrar si alguien ha hecho algo usando esa libreria para poder usarlo desde harbour + fwh para firmar archivos xml, me interesa saber si ya alguien desarrollo algo y su precio o si alguien puede desarrollarlo con pago contra entrega.\n\n  contactar al mail lautaro.moreira at gmail.com \n\n\nGracias por su atencion\n\nLautaro Moreira','',0,'CA==','2obg3icv',1,0,'',39,0,0),(42661,8994,3,303,0,'72.220.100.171',1196293720,1,0,1,1,1,0,'','','Maurilio,\n\nIf you use the theme manifest you get the flat look.\n\nJames','',0,'CA==','3evhc0j9',1,0,'',303,0,0),(42662,8995,3,879,0,'70.53.45.207',1196296211,1,0,1,1,1,0,'','','Antonio,\n\nIt was so simple,  I didn\'t think of it. Unfortunately though, it did not work exactly as hoped.\n\n[img:2xn4apgj]http&#58;//img504&#46;imageshack&#46;us/img504/7739/menushortcutsci7&#46;gif[/img:2xn4apgj]\n\nThe format used was :\n[code:2xn4apgj]\n      MENUITEM &quot;Next Record&quot; + CHR&#40;9&#41; + &quot;PgDn&quot; MESSAGE &quot;Look at next member&quot; ;\n         ACTION Dn&#40;&#41; ACCELERATOR 0, VK_NEXT\n      MENUITEM &quot;Previous Record&quot; + CHR&#40;9&#41; + &quot;PgUp&quot; MESSAGE &quot;Look at previous member&quot; ;\n         ACTION Up&#40;&#41; ACCELERATOR 0, VK_PRIOR\n      MENUITEM &quot;Locate Record&quot; + CHR&#40;9&#41; + &quot;Alt-L&quot; MESSAGE &quot;Look for a specific member&quot; ;\n         ACTION What &#58;= Find_Fld&#40;&#41; ACCELERATOR ACC_ALT, ASC&#40;&quot;L&quot;&#41;[/code:2xn4apgj]\n\nMight there have been a problem with the 7.04 that has been since fixed?','',0,'CIA=','2xn4apgj',1,0,'',879,0,0),(42663,8983,3,49,0,'62.13.172.67',1196296431,1,0,1,1,1,1,'','','Antonio,\nthanks but which is the file ? \nwhere i can found the function gradient source code ?','',0,'CIA=','tlnl0ovp',1,0,'',49,0,0),(42664,8983,3,384,0,'189.23.199.138',1196297071,1,0,1,1,1,1,'','','Maurilio, para teres uma idéia, faça uma pequena alteração nos exemplos do link acima:\n[code:1568zbei]\n&#46;&#46;&#46;\nfor i = 255 TO 0 STEP -1\n\n\n   DEFINE BRUSH oBrush COLOR RGB&#40; 0, i, 0 &#41; //&lt;--- aqui\n\n\n   FILLRECT&#40; hDC, aRect, oBrush&#58;hBrush &#41;\n   RELEASE BRUSH oBrush\n   aRect&#91; 1 &#93; += nStep\n   aRect&#91; 3 &#93; += nStep\nnext\n&#46;&#46;&#46;\n[/code:1568zbei]','',0,'AIA=','1568zbei',1,0,'',384,0,0),(42665,8983,3,2,0,'87.218.146.139',1196297129,1,0,1,1,1,1,'','','Maurilio,\n\nTwo calls to Gradient() functions are done:\n\n1. From clear to dark\n2. From dark to clear','',0,'AIA=','1xbd9r2w',1,0,'',2,0,0),(42666,8983,3,2,0,'87.218.146.139',1196297156,1,0,1,1,1,1,'','','Silvio,\n\nWe have not published the Gradient() source code yet','',0,'AIA=','3b3x6hbd',1,0,'',2,0,0),(42667,8995,3,2,0,'87.218.146.139',1196297299,1,0,1,1,1,1,'','','Ken,\n\nTry to add some spaces after the tabs\n\n&gt; Might there have been a problem with the 7.04 that has been since fixed?\n\nNot specifically. In FWH 7.11 we have implemented 2007 office look menus, so we do all the painting','',0,'AIA=','1hg56m90',1,0,'',2,0,0),(42668,8975,3,1181,0,'60.50.115.203',1196302265,1,0,0,0,1,1,'','bwcc32.dll','Thanks for your help\n\nAfter linking the libraries, the program start with this message:\n\nerror code: 0 loading BWCC32.DLL\n\nfollowed by\n\nError BASE/1004 message not found:\nTBUTTON:BERASEEKGND form Errorsys, line 0\n\n\nPlease help\n\nThanks','',0,'AIA=','10d46nk0',1,0,'',1181,0,0),(42669,8995,3,879,0,'70.53.45.207',1196303000,1,0,1,1,1,0,'','','Antonio,\n\n\nTried spaces after the Tab with no luck. Spaces after the the shortcut text did shift the data to the left. Looks like data is placed to the left of the tab.\nA close look shows that \"Alt-H\" is lined up slightly to the left of the two lines above.\n\nFor the disabled item  I tried 2 Tabs but ended up with a square box before the shortcut as illustrated.\nThen tried to see what happened if I enabled the menuitem after it was preset to DISABLED. The text remained in the same location.\nIf I removed DISABLED from the MenuItem command and recompiled, it shifted to the same position as the text above. I guess presetting the MenuItem to DISABLED affects any text positioning at the right hand side.\n\n\n[img:el2i4nio]http&#58;//img530&#46;imageshack&#46;us/img530/8516/menushortcuts2ju5&#46;gif[/img:el2i4nio]','',0,'CA==','el2i4nio',1,0,'',879,0,0),(42670,8997,3,47,0,'203.144.143.4',1196304429,1,0,1,1,1,0,'','How to synchronize the Client PC Time with Server W2003?','Dear all,\n\nI\'ve the problem with time at client PC.  The user can change it.  In the past I\'ve use the Netware and the client PC will get the time from File Server but on Windows how can I do that.\n\nRegards,\nDutch','',0,'CA==','2ksw4wd0',1,0,'',47,0,0),(42671,8975,3,233,0,'218.111.22.55',1196311602,1,0,1,1,1,0,'','','Woo,\n  You\'re upgrading from what version?','',0,'CA==','2l5oaavq',1,0,'',233,0,0),(42672,8893,3,234,0,'65.91.105.130',1196313292,1,0,1,1,1,1,'','','Hello,\n\nIs there a small sample program available that allows me to connect to a table, browse, search, add a record, edit a record and delete a record. I am considering switching from DBF to SQL; but I am completely new to SQL. I own MSSQL, but my clients may want to use a less expensive version of SQL, what SQL would you recommend? What would be a good reference guide for converting my application to SQL especially converting the data? I would also need to write web based code to access the same SQL data. I would appreciate your feedback.\n\nThank you!','',0,'CA==','3q0yp2bv',1,0,'',234,0,0),(42673,8983,3,303,0,'72.220.100.171',1196314043,1,0,1,1,1,0,'','','Antonio,\n\nIt would be nice to have gradient capability added to the TWindow class. You could add a couple of parameters to the setColor() method to handle the extra needed color and the vertical/horzontal parameter. Then all the subclasses would inherit the gradient capability.\n\nBut, I expect you have already thought of that.\n\nRegards,\nJames','',0,'CA==','rgzfg1f6',1,0,'',303,0,0),(42674,8992,6,9,0,'85.59.125.120',1196315213,1,0,1,1,1,1,'','','Gabriel,\n\nDesde hace tiempo vengo utilizando la clase Database con Browse, sin ningun tipo de problemas. No comprendo para que necesitas crear el objeto oDbf en el Browse. En el Browse, yo me muevo directamente con los registros de la tabla (DBGOTOP(), DBGOBOTTOM, etc.) y es en la funcion de ALTA y MODIFICACION, donde genero el objeto oDbf como cvariable Local y en su caso, doy de alta un nuevo registro o lo modifico el registro. Al volver al browse, el registro ya esta dado de alta o modificado en la dbf y por tanto realizo un refresh(). Tal cual tu lo haces, creo no va a funcionar, sobretodo, en las altas.\n\nTe envio parte de un código a tu correo, por si fuera de tu interes.\n\nSi deseas continuar, de todos modos, con el mismo sistema, en mi opinión, podrias hacer lo siguiente:\n\n1) Dar de alta en la funcion Browse y como Local oDbf.\n2) Pasar oDbf como parametro a la funcion Alta/Modificar y que esta funcion devolviera en Return (oDbf).\n\nP.D.: Te he enviado un correo a tu dirección <!-- e --><a href=\"mailto:xxxx@ctv.es\">xxxx@ctv.es</a><!-- e --> pero ha venido devuelto.','',0,'CA==','2r5vkypm',1,0,'',9,0,0),(42675,8975,3,1181,0,'60.53.87.147',1196319269,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks your your help\n\nThe upgrade is from:\n\nFWH 2.4\n\n(using bcc55)\n\n\nThanks','',0,'CA==','2sreprmg',1,0,'',1181,0,0),(42676,8975,3,233,0,'218.111.22.55',1196322543,1,0,1,1,1,0,'','Re: Upgrade to FWH 711','[quote=&quot;acwoo&quot;:1j6q2lmz]\nThe upgrade is from:\n\nFWH 2.4\n\n(using bcc55)\n[/quote:1j6q2lmz]\n\nAh, no wonder. That\'s quite a long jump. Ok, after going through the source of my \"upgrade\" ( from FWH2.4 -&gt; 2.5 -&gt; 2.6 -&gt; 2.8 ) utility, these are some points to check:\n\n1. RC file\n- insert the following line if want to use XP theme\n[code:1j6q2lmz]1 24 &quot;f&#58;\\fwh28\\samples\\winxp\\windowsXP&#46;manifest&quot;[/code:1j6q2lmz]\n\n2. Link file\n- if you used to link in dbfntx.lib, replace it with dbffpt.lib plus hbsix.lib\n- there\'s no longer a need to linked-in emf32.lib, bcc640.lib and optgui.lib (if you were using any of them before)\n- replace gtwin.lib with gtgui.lib\n- if you linked nanforum lib make sure you got the lib name correct. At one point it was named nf.lib, then to libnf.lib\n\n3. Prg\'s\n- if you have REQUEST _ADS statement, change it to REQUEST ADS\n- load BWCC32.DLL in the exact sequence as in the sample below:\n[code:1j6q2lmz]\n     hLibrary &#58;= LoadLibrary&#40;&quot;bwcc32&#46;dll&quot;&#41;\n     SET RESOURCES TO &quot;MyDll&#46;DLL&quot;\n     bwccRegister&#40; getResources&#40;&#41; &#41;\n[/code:1j6q2lmz]\n\n\nPlease note, I\'m still using FWH2.8 so any other necessary changes affecting 7.11 are yet to be discovered by me .\n\nHTH','',0,'gIA=','1j6q2lmz',1,0,'',233,0,0),(42677,8998,6,542,0,'83.52.15.216',1196323037,1,0,1,1,1,0,'','Doble boton en barra de tareas','Hoal amigos:\n\nEstoy en proceso de adaptacion a Fivewin para Xharbour y veo que cuando ejecuto la aplicación me salen dos botones en la barra de tareas, si el programa se llama CyEWin sale uno con este nombre solo \"CyEwin\" y otro con el nombre de la ventana Principal. Hay alguna manera de dejar solo uno de los dos.\n\nUn saludo de un recien adaptado\n\nCarlos','',0,'gIA=','1qvrn7zn',1,0,'',542,0,0),(42678,8992,6,449,0,'212.64.224.249',1196327096,1,0,1,1,1,1,'','','Hola Biel,\n\nHace tiempo me encontre con este caso, y el problema esta en que al crear un dialogo, constantemente puedes mandar mensajes de ::Display() a la ventana del TXBrowse, con lo q evalua el metodo ::Paint() y este constantemente esta realizando movimientos de ::Skip(), con lo q es normal esta falta de control del puntero del registro. \n\nPuedes intentar varias soluciones (en principio poco elegantes) para engañar al sistema, pero lo mejor es (por si quieres seguir usando objetos TDatabase y que la aplicacion quede igual tanto para DBF como ADo) el crear, cuando entras en una funcion de mantenimiento, otro objeto q se cree a partir del oDbf del Browse. Al salir del mantenimiento refrescaras el oDbf del Browse y listo. No es decabellado y tienes el completo control tanto en el Browse como en el dialogo.\n\nYo recuerdo que intente cuando entraba en la funcion de mantenimento:\n\n[code:dyo5ypul]\n\n\nFUNCTION Manteniment&#40;&#41;\n&#46;&#46;&#46;\noBrw&#58;lCreated &#58;= &#46;F&#46;  \n&#46;&#46;&#46;\n\nDialogo\n\n\noBrw&#58;lCreated &#58;= &#46;T&#46; // Al final de la funcion\n\nRETU NIL\n\n[/code:dyo5ypul]\n\nCon esto evitaba q se evaluara el metodo ::Paint() con el consiguiente movimiento del puntero del oDbf, pero me quedaba pendiente la solucion del refresco de la pantalla por si movia un dialogo por encima. Total, q empeze a intentar redefinir el metodo ::Paint(), pero desisti  <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> . Creee un metodo para crear objetos TDatabase a partir de otro y listos.\n\nSalutacions.\nC.','',0,'AIA=','dyo5ypul',1,0,'',449,0,0),(42679,8999,6,439,0,'200.125.42.63',1196328962,1,0,1,1,1,1,'','Selección de múltiples archivos','Hay alguna forma de seleccionar los archivos con cGetFile32 u otra función de forma \"multiselect\", es decir usando mayúscula o Ctrl poder seleccionar varios archivos a la vez?\n\nGracias desde ya.','',0,'AIA=','mriuyqod',1,0,'',439,0,0),(42680,8975,3,2,0,'87.218.146.139',1196330995,1,0,1,1,1,1,'','','Acwoo,\n\nThere is an error (typo) in your code:\n\nTBUTTON:BERASEEKGND\n\nshould be:\n\nTBUTTON:BERASE[b:152cknmo]B[/b:152cknmo]KGND\n\nor was it a typo when you typed it here ?','',0,'QA==','152cknmo',1,0,'',2,0,0),(42681,8994,3,217,0,'200.159.120.34',1196331062,1,0,1,1,1,0,'','','Antonio, I want to remove 3D effect (to \'get\' assume single border).\n\nRegards,\nMaurilio','',0,'QA==','3lje86px',1,0,'',217,0,0),(42682,8983,3,2,0,'87.218.146.139',1196331400,1,0,1,1,1,1,'','','James,\n\nGradient() should not be used intensively because it is a very slow function that creates lots of brushes (pushing the GDI to its limits) and takes too long to do its work.\n\nThe right way is to copy a bitmap (stretching it) instead of using gradients. We have used this technique in FWH 7.12 to paint the message bar and now it works much more faster.\n\nKeep in mind that copying a bitmap you can use any drawing design, so the final result is much richer in details <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'QA==','hsw4zifd',1,0,'',2,0,0),(42683,8992,6,456,0,'62.43.24.65',1196331655,1,0,1,1,1,1,'','','Muchas gracias a todos, la verdad no esperaba tantas respuestas. Me encanta el foro, y que siempre haya gente dispuesta a ayudar.\n\nVoy a ir por partes, lo primero de todo es explicar porque quiero usar tDatabase en el browse y en el dialogo. \n\nLa verdad es que es complicarse un poco la vida, de hecho yo hasta ahora no lo usaba así, sino que el browse lo referencia con el alias de la tabla, y en el dialogo de mantenimiento creaba el objeto tDatabase. \nPero claro, soy un poco masoca y me gusta experimentar y darle otra vuelta de tuerca a mis programas, entonces pensando en la posibilidad de usar difierentes motores de base de datos, pense que una buena manera de aislarlo era usar la clase tDatabse por todos lados, y no usar el alias de la tabla. El segundo paso seria crearme una clase clon a tDatabase con los mismos metodos, pero atacando origenes de dato SQL via ADO. \nDe esta forma cambiando la linea donde se crea oDbf, un mismo programa podria ser contra DBF, o cualquier origen ADO.\nPor ejemplo:\n[code:2lnvdpji]\nIF lAdo\n     oDbf&#58;=tAdoDb&#40;&#41;&#58;New&#40;&#41; //Clase para manejor de Rs ADO\nELSE\n     oDbf&#58;=tDatabase&#40;&#41;&#58;New&#40;&#41;\nENDIF\n[/code:2lnvdpji]\n\nTras leer los mensajes, he revisado las soluciones que me comentais,  todas son funcionales, pero por el motivo que os he explicado antes, no son exactamente el tipo de solución que estoy buscando.\nEl controlar el puntero como comenta Joao, es complicado, mas aun cuando el metodo blank se mueve al registro posterior a Eof, y luego reposiciona en registro actual. \n\nCambiar el lugar donde se crea y graba el registro tampoco es valido, pues con solo mover el dialogo, podreis ver que el buffer de edicion cambia.\n\nLo mas sencillo de aplicar, sin usar alias, parece que pasa por clonar el objeto tDatabase, o crear uno de nuevo en el dialogo, en principio esa idea tampoco me gustaba demasiado, pero por ahora me parece la menos mala.\n\nSin duda como comenta Carles, el problema es que la ventana que tiene el browse va recibiendo y evaluando mensajes que hacen que el buffer de edicion cambie. Intentare investigar algo mas por las vias que comenta Carles,  y sino pues clonaremos objetos.','',0,'AIA=','2lnvdpji',1,0,'',456,0,0),(42685,9000,3,49,0,'213.82.134.66',1196334488,1,0,1,1,1,1,'','MIRROR','How create an  mirror Image ?','',0,'AIA=','mopxvazq',1,0,'',49,0,0),(42686,9001,3,49,0,'213.82.134.66',1196334702,1,0,1,1,1,1,'','BOX ROUND','HOW create the header round as the HEADER OF OUTLOOK 2003 ?','',0,'AIA=','u7i35s25',1,0,'',49,0,0),(42687,9002,3,49,0,'213.82.134.66',1196335046,1,0,1,1,1,1,'','MSGBOX','Dear Antonio,\n\nI saw there is an Microsoft function MESSAGEBOXEX to recrate box message gradient ( office style 2007)\n\nI saw  on a guide  MessageBoxEx and MessageBox work the same way\n\nint MessageBoxEx(          HWND hWnd,\n    LPCTSTR lpText,\n    LPCTSTR lpCaption,\n    UINT uType,\n    WORD wLanguageId\n);\n\n\nI think if we modifiy all the source code MSG.c  we c an have the box with this style \n\nit is possible ?','',0,'AIA=','2an2gxgo',1,0,'',49,0,0),(42688,9002,3,2,0,'87.218.146.139',1196335132,1,0,1,1,1,1,'','','Silvio,\n\nI wasn\'t aware of it, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nI am going to review it...','',0,'AIA=','3i0rto53',1,0,'',2,0,0),(42689,9002,3,49,0,'213.82.134.66',1196335187,1,0,1,1,1,1,'','','I found this code \n\n\n[code:a634ffkj]\n#include &lt;9pm/windows&#46;h&gt;\n#include &lt;9pm/u&#46;h&gt;\n#include &lt;9pm/libc&#46;h&gt;\n\nint WINAPI\nMessageBoxEx&#40;HWND hWnd, LPCWSTR lpText, LPCWSTR lpCaption, UINT uType, WORD wLanguageId&#41;\n&#123;\n	/* MessageBoxW implement on Windows 95 */\n	return MessageBoxExW&#40;hWnd, lpText, lpCaption, uType, wLanguageId&#41;;\n&#125;\n[/code:a634ffkj]','',0,'AIA=','a634ffkj',1,0,'',49,0,0),(42690,9003,3,51,0,'80.122.88.242',1196335409,1,0,1,1,1,0,'','Printer metafile','I need a one to one copy. \nIs it possible to print from one preview a original and a copy and to mark the copy with a watermark or a text as copy I mean can you add text or graphics to the metafile.\n\nFor example:\nI print an invoice the preview remains on the screen. Then the \ninvoice get paid.  On the copy I would like to have the way how it is paid (cash, Card, …).\nBut I wouldn’t like to recreate the metafile I would like to add this to the original so that I am sure it is the same.\n\n\nRegards,\nOtto','',0,'AIA=','1tot6msg',1,1196360862,'',51,3,0),(42691,9003,3,49,0,'213.82.134.66',1196335627,1,0,1,1,1,1,'','','yes you must load a bitmaps on the metafile \nthere is an sample on \\sample\\reports','',0,'AIA=','1oypnkdx',1,0,'',49,0,0),(42692,9003,3,51,0,'80.122.88.242',1196335685,1,0,1,1,1,0,'','','Thanks Silvio could you tell me which one.','',0,'AIA=','frvwz6en',1,0,'',51,0,0),(42693,9003,3,49,0,'213.82.134.66',1196336248,1,0,1,1,1,1,'','','ACTIVATE REPORT oReport ON STARTGROUP oReport:NewLine() ;\n                             ON STARTPAGE [b:2wz5akzh]StartPage()[/b:2wz5akzh]\n\nSTATIC Function StartPage()\n\n     oReport:Box(0.1,                            ;\n                 0.1,                            ;\n                 oReport:PhyHeight()-0.1,        ;\n                 oReport:PhyWidth() -0.1         )\n\n     oReport:Line(0.9, 0.55, 2, 0.55, 2 )\n     oReport:Line(0.55, 0.9, 0.55, 2, 2 )\n      oReport:SayBitmap(3,2,\"CONFIDEN.BMP\",4,4)\n\nRETURN NIL\n\n\nyou must create this CONFIDEN.BMP  gray effect and rotate it \nand you can create the effect watermark','',0,'QA==','2wz5akzh',1,0,'',49,0,0),(42694,9000,3,49,0,'213.82.134.66',1196337675,1,0,1,1,1,1,'','','Perhaps I found the solution \n\nFreeImage_RotateClassic(DIB, Angle)\n\nDeclare Function FreeImage_RotateClassic Lib \"FreeImage.dll\" Alias \"_FreeImage_RotateClassic@12\" (ByVal DIB As Long, ByVal Angle As Double) As Long','',0,'QA==','3lcs3ika',1,0,'',49,0,0),(42695,9004,20,49,0,'213.82.134.66',1196337937,1,0,1,1,1,1,'','Specchiare un immagine','EMG,\nè possibile specchiare un immagine con freeimage  ?','',0,'QA==','iwocpsuq',1,0,'',49,0,0),(42696,8981,6,140,0,'190.39.111.156',1196340162,1,0,1,1,1,0,'','','Saludos Antonio...\n\nLo que plantea Angel es lo siguiente...\n\nSe desea que al iniciarse una aplicación se despliegue de una vez el submenu de una de las opciones de la barra de menú, de la misma forma como si el usuario hubiese hecho clic sobre la opción...\n\nEfectivamente se probó usando oMenu:Hilite(), pero lo único que hace el método es resaltar la opción, pero no despliega el submenu.\n\nNo se desea ejecutar ninguna acción de ningún item del menú, solo que la aplicación entre con el submenú ya desplegado.\n\n\n1GB de Gracias de antemano por los comentarios,\n\nGiancarlo J. Sabattino S.\nValencia, Venezuela.','',0,'QA==','ksn9upq0',1,0,'',140,0,0),(42697,9003,3,51,0,'80.122.88.242',1196340401,1,0,1,1,1,0,'','','Thank you, Silvio. But this way you have the bmp on the original and on the copy.\nWhat I would like is only on the copy.\nRegards,\nOtto','',0,'QA==','37qzfyjt',1,0,'',51,0,0),(42698,9005,3,309,0,'194.204.28.27',1196340538,1,0,1,1,1,0,'','7.11  omsgbar:setmsg() different behavior','Hi,\n   in our tests with 7.11 omsgbar:setmsg(ctext) is not enough any more to display message on message bar. We had to add omsgbar:display() to get text shown. With 7.01 just :setmsg(ctext) was enough.\n\nIs this intended behavior?\n\nTaavi.','',0,'QA==','29t10ynn',1,0,'',309,0,0),(42699,9006,2,124,0,'200.82.52.162',1196340988,1,0,1,1,1,0,'','AYUDA POR FAVOR CON ERRORES ALEATORIOS EN EJECUCION','Amigos:\n\nTenemos desarrollado nuestro ERP compilado bajo fw 2.7 dicembre 2005/clipper 5.2e/blinker 6.0, el soft está corriendo bajo win 2003 server (por terminal server) ok en muchos clientes, con varios puestos de trabajo cada uno, pero nos encontramos con errores de ejecución aleatorios de dos tipos:\n- aparece el error ntvdm error y el programa se cierra sin dejar rastros.\n- el segundo es siempre por Error no recuperable 332: Desbordamiento de la memoria para matrices/cadenas desde distintos lugares del soft pero siempre este error, a modo de ejemplo paso dos secuencias que lo generaron:\n\nARRAY (0)  Error no recuperable 332 o 331: Desbordamiento de la memoria para matrices/cadenas\n\nARRAY 0000\nACLONE 0000\nACLONE 0000\nACLONE 0000\nINITFORM 3799\n(b)EXECFORM 2591\nTDIALOGL:INITIATE 0000\nTDIALOGL:HANDLEEVEN 0000\nDIALOGBOXI 0000\nTDIALOGL:ACTIVATE 0000\nEXECFORM 2591\nFORM 2067\n(b)MOVIM 0403\nMOVIM 0707\n(b)GENMENU 0000\nTMENU:COMMAND 0000\nTWINDOW:COMMAND 0000\nTWINDOW:HANDLEEVEN 0000\nWINRUN 0000\nTWINDOW:ACTIVATE 0000\nSYSTEMINIT 0636\nINICIO 0158\n\notra secuencia:\nBEGINPAINT (0)  Error no recuperable 331: Desbordamiento de la memoria para matrices/cadenas\n\nBEGINPAINT 0000\nTGETL:_BEGINPAIN 0000\n(b)TGET 0000\nTGETL:HANDLEEVEN 0000\nDIALOGBOXI 0000\nTDIALOGL:ACTIVATE 0000\nEXECFORM 2591\nFORM 2067\n(b)MOVIM 0403\nMOVIM 0707\n(b)GENMENU 0000\nTMENU:COMMAND 0000\nTWINDOW:COMMAND 0000\nTWINDOW:HANDLEEVEN 0000\nWINRUN 0000\nTWINDOW:ACTIVATE 0000\nSYSTEMINIT 0636\nINICIO 0158\n\nEstamos muy perdidos en como rastrear y eliminar estos errores. Por favor cualquier ayuda vendría excelente.\n\nUn abrazo.\nRicardo.-','',0,'QA==','oqn76pgn',1,0,'',124,0,0),(42700,9005,3,2,0,'87.218.146.139',1196342085,1,0,1,1,1,1,'','','Taavi,\n\nAre you using the 2007 clause ?\n\nPlease notice that this is an important fix that we have recommended to apply to FWH 7.11:\n[code:1ypju2zn]\nMETHOD SetMsg&#40; cText &#41; CLASS TMsgBar\n\n   DEFAULT &#58;&#58;cMsg &#58;= &quot;&quot;\n   \n   if &#58;&#58;l2007\n      &#58;&#58;cMsg = cText\n      &#58;&#58;Refresh&#40;&#41;\n      return nil\n   endif   \n   \n   &#58;&#58;GetDC&#40;&#41;  // here!!!\n[/code:1ypju2zn]','',0,'AIA=','1ypju2zn',1,0,'',2,0,0),(42701,9006,2,2,0,'87.218.146.139',1196342230,1,0,1,1,1,1,'','','Ricardo,\n\nLa mejor ayuda para esos errores es que paseis la aplicación a 32 bits con FWH cuanto antes.\n\nLos errores que describes son típicos de aplicaciones de 16 bits con Clipper y son muy difíciles de solucionar\n\nEl 332 es que ya no teneis más memoria y es porque estais limitados a 64 Ks en 16 bits. Es algo normal ya que la aplicación crece y esa barrera permanece.\n\nEn cuanto al ntvdm aqui tienes algunas indicaciones de MS:\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/220155/es\">http://support.microsoft.com/kb/220155/es</a><!-- m -->\n\nLa solución es migrar a 32 bits cuanto antes','',0,'AIA=','5ztsuvaq',1,0,'',2,0,0),(42702,9007,6,400,0,'201.92.35.104',1196342767,1,0,1,1,1,1,'','WNetAddConnection2 ???','Buenas...\n\nEs possible usar a WNetAddConnection2....com Fivewin xH ?\n\nSe si ? Como ?\n\nSaluds','',0,'AIA=','19ya9q7p',1,0,'',400,0,0),(42703,8992,6,2,0,'87.218.146.139',1196343057,1,0,1,1,1,1,'','','Biel,\n\nAsi es, como comenta Carles, el browse recibe mensajes de pintado y eso afecta al objeto TDataBase que usas tambien desde el diálogo\n\nTal vez te sirva abrir la misma DBF en otra area de trabajo simultaneamente, para que asi una no afecte a la otra','',0,'AIA=','9ra8rlca',1,0,'',2,0,0),(42704,8981,6,2,0,'87.218.146.139',1196343178,1,0,1,1,1,1,'','','Giancarlo,\n\n&gt;\nEfectivamente se probó usando oMenu:Hilite(), pero lo único que hace el método es resaltar la opción, pero no despliega el submenu.\n&gt;\n\nHabeis probado a hacer oMenu:Hilite() con un submenu del menú principal ?','',0,'AIA=','15j7e9hq',1,0,'',2,0,0),(42705,8994,3,868,0,'219.64.121.60',1196343180,1,0,1,1,1,1,'','','Using NOBORDER clause while defining Get displays the Get FLAT without any border.  ( Whether using Themes or not )\n\nIf NOBORDER is NOT used, if the application is Themed Get is displayed with single line border and if the application is Not Themed Get is displayed in 3D box style.','',0,'AIA=','17mvu1tx',1,0,'',868,0,0),(42706,8992,6,519,0,'88.27.42.179',1196343216,1,0,1,1,1,0,'','','Hola Biel \n  \n   Yo lo que hago es clonar el objeto cuando entro en modo de edicion y despues tambien he modificado el metodo blank y me funciona perfectamente.\n\n  un saludo\n\n\n   METHOD Blank() CLASS TDataBase\n\n   local nFor, nLen\n   local cType\n\n  ::aBuffer=Array(::FCount() )\n\n   nLen :=len(::aBuffer)\n\n   for nFor := 1 to nLen\n      cType := ::FieldType( nFor )\n\n\n\n      do case\n    case cType == \"C\"\n          ::aBuffer[ nFor ] := Space(::FieldLen( nFor ) )\n      case cType == \"D\"\n         ::aBuffer[ nFor ] := Ctod(\"\")\n      case cType == \"N\"\n         ::aBuffer[ nFor ] := 0\n      case cType == \"L\"\n         ::aBuffer[ nFor ] := .f.\n      case cType == \"M\"\n         ::aBuffer[ nFor ] := \"\"\n      end case\n\n next\n\n Return Self','',0,'','4u9hkme7',1,0,'',519,0,0),(42707,9003,3,2,0,'87.218.146.139',1196343636,1,0,1,1,1,1,'','','Otto,\n\nYou could paint the watermark and before ending the page, print the metafile on top of it. I haven\'t tried it myself, but maybe it works','',0,'','1ztjnk4m',1,0,'',2,0,0),(42708,9008,6,362,0,'200.158.19.70',1196343757,1,0,1,1,1,1,'','Problemas con BLINKING en la Classe DSAY.PRG','Problemas con BLINKING en la Classe DSAY.PRG\n\nHola Foro... Buenos dias.\n\n[code:1gd7up1b]\n    Se hago asi, funciona perfecto\n    //\n    REDEFINE DYNAMIC SAY ID 801 OF oDlg                                      ;\n             PROMPT &#40; cMsg &#41;                                                 ;\n             CENTERED HORIZONTAL SCROLL SPEED 50 WRAP SHADED                 ;\n             COLOR CLR_BLACK, nRGB&#40; 255, 255, 150 &#41;                          ;\n             FONT oFont\n\n    //\n    Pero, se hago asi, usando BLINKING, no funciona&#46; Traba el dialogo\n    //\n    REDEFINE DYNAMIC SAY ID 801 OF oDlg                                      ;\n             PROMPT &#40; cMsg &#41;                                                 ;\n             CENTERED HORIZONTAL SCROLL SPEED 50 WRAP SHADED BLINKING        ;\n             COLOR CLR_BLACK, nRGB&#40; 255, 255, 150 &#41;                          ;\n             FONT oFont\n    //\n    Que pasa??\n[/code:1gd7up1b]','',0,'AIA=','1gd7up1b',1,0,'',362,0,0),(42709,9004,20,6,0,'87.16.238.99',1196343800,1,0,1,1,1,1,'','Re: Specchiare un immagine','Prova con la funzione FreeImage_FlipHorizontal(). Ma ti devi fare il wrapper.\n\nEMG','',0,'AIA=','wnmjs1jl',1,0,'',6,0,0),(42710,9000,3,6,0,'87.16.238.99',1196343945,1,0,1,1,1,1,'','','No, a rotation is not a mirroring. Try with FreeImage_FlipHorizontal().\n\nEMG','',0,'AIA=','b0av1eai',1,0,'',6,0,0),(42711,8975,3,1181,0,'60.48.218.44',1196348046,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for the reply\n\nThe error message now is:\n\nError Base/1004 Message not found: TDIALOG:BERASEBKGND\n\nPlease help','',0,'AIA=','5rwbo7b4',1,0,'',1181,0,0),(42712,8995,3,86,0,'81.83.151.142',1196348247,1,0,1,1,1,1,'','','Ken,\n\nI use CHR(9) for a long time and it is working fine in my application.\n\nCould there be something wrong with your fonts ?','',0,'AIA=','3qhm3d7n',1,0,'',86,0,0),(42714,8992,6,41,0,'200.87.162.67',1196349187,1,0,1,1,1,0,'','','Biel,\n\nyo hice una clase Tarray para trabajar con arrays como si fuera un dbf (hay varias implemenatciones de esto po ahi) y claro esta, hay cosas basadas en tDatabase, pero este problema que mencionas tambien se reproducia, como lo solucione?, es crear un buffer adicional, algo si\n\n      oData := dbData:buffer_blank()  // te devuelve una estructura en blanco similar a la DB y pudes utilizar oData:&lt;campo&gt;, etc\n      oData := dbData:buffer_load()   // te devuelve la estructura con los datos del reg actual\n      dbData:buffer_save( oData ) // salva el buffer en el registro actual\n\nEspero esto te ayude\n\nsaludos\n\nMarcelo','',0,'AIA=','1xrwfskp',1,0,'',41,0,0),(42715,8795,6,147,0,'200.45.54.134',1196349669,1,0,1,0,1,1,'','','Gente...\nRetomo este tema ya que estoy investigando el uso de tablas ADT.\nPor lo que ARC32 de por medio y a través de la opción Import voy haceindo lo siguiente\nPestaña1\nSelecciono: Paradox, dBase or...\nPestaña2\nSelecciona la DBF a importar e indico en Table Type: Paradox/dBase\nPestaña3\nIndico carpeta destino\nPestaña4\nAl pulsar sobre le botón Import, se despliega un Dlg de error con un texto bastante largo que habla de un indice Primario???y queda registrado como:\n[list:3pdany7w]*************** Start D:\\mgideas\\Sigic\\Bdatos\\Bdgco01.dbf ***************\nError opening source table\nAn error occurred while attempting to initialize the Borland Database Engine (error $2108)\n \n*************** End D:\\mgideas\\Sigic\\Bdatos\\Bdgco01.dbf ***************[/list:u:3pdany7w]\n\nque estoy haciendo mal?\ngracias','',0,'AEA=','3pdany7w',1,0,'',147,0,0),(42716,9003,3,51,0,'80.122.88.242',1196349746,1,0,1,1,1,0,'','','Hello Antonio, \n\nI found this description on google.\n\nBut I think this is by fare to complicated. \n\nWhat I saw by searching our forum (<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8020&amp;highlight=metafile\">http://fivetechsoft.com/forums/viewtopi ... t=metafile</a><!-- m -->)is a thread where you show the import and export to clipboard from metafiles.\nDo you think one could export a metafile to clipboard and then save as bmp to memory add a transparent bmp – but how? - and re-import the bmp\nto clipboard and then back to metafile.\n\nRegards,\nOtto\n\nWindows GDI\nEditing an Enhanced Metafile\nTo edit a picture stored in an enhanced metafile, an application must perform the tasks described in the following procedure.\n To edit a picture stored in an enhanced metafile \n1.	Use hit-testing to capture the cursor coordinates and retrieve the position of the object (line, arc, rectangle, ellipse, polygon, or irregular shape) that the user wants to alter. \n2.	Convert these coordinates to logical (or world) units. \n3.	Call the EnumEnhMetaFile function and examine each metafile record. \n4.	Determine whether a given record corresponds to a GDI drawing function. \n5.	If it does, determine whether the coordinates stored in the record correspond to the line, arc, ellipse, or other graphics element that intersects the coordinates specified by the user. \n6.	Upon finding the record that corresponds to the output that the user wants to alter, erase the object on the screen that corresponds to the original record. \n7.	Delete the corresponding record from the metafile, saving a pointer to its location. \n8.	Permit the user to redraw or replace the object. \n9.	Convert the GDI functions used to draw the new object into one or more enhanced-metafile records. \n10.	Store these records in the enhanced metafile.','',0,'AEA=','1n8db1z9',1,0,'',51,0,0),(42717,9005,3,309,0,'194.204.28.27',1196349900,1,0,1,1,1,0,'','','&gt;Are you using the 2007 clause ?\nYes\n\n\n&gt;Please notice that this is an important fix that we have recommended to &gt;apply to FWH 7.11:\n\nYes, we have this fix and application is stable. The only problem is that with 2007 clause text will not be displayed until sysrefresh() or msgbar:display()\n\nNo problem, we already added omsgbar:display() to our text output procedure but if omsgbar:settext() should display text, then there is some problem with it.\n\n\nTaavi.','',0,'AEA=','1kde1qwe',1,0,'',309,0,0),(42718,8995,3,879,0,'70.53.44.62',1196350074,1,0,1,1,1,0,'','','As far as I am aware the font used in the menu is a system font.\n\nOne thing that is very wrong is if I set up the menuitem and use the DISABLED clause, the right hand margin moves to the left. I proved that by simply removing DISABLED.\n\nPrior to using CHR9(9), movement of the right hand margin was not an issue.','',0,'AEA=','3rgjbuf9',1,0,'',879,0,0),(42719,8983,3,303,0,'72.220.100.171',1196350224,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Gradient() should not be used intensively because it is a very slow function that creates lots of brushes (pushing the GDI to its limits) and takes too long to do its work.\n\nGood point. Are you using a C function for this. I have tried gradients with a few test programs and it didn\'t seem too slow, but these were very small programs like with one dialog. \n\n&gt;The right way is to copy a bitmap (stretching it) instead of using gradients. We have used this technique in FWH 7.12 to paint the message bar and now it works much more faster.\n\nSo where is the bitmap stored? Is it embedded in the FW code somehow?\n\nI have used bitmaps to do this also, but my bitmaps are stored in the RC file and I did not know we could stretch them to fit so it was very tedious making a bitmap of the proper size. Can you show us how to stretch a bitmap to fit a dialog or window? \n\n&gt;Keep in mind that copying a bitmap you can use any drawing design, so the final result is much richer in details.\n\nI like that idea.\n\nJames','',0,'AEA=','1y9aipn2',1,0,'',303,0,0),(42720,8995,3,868,0,'219.64.121.60',1196350404,1,0,1,1,1,1,'','','Working for me correctly whether disabled or not','',0,'AEA=','je04h052',1,0,'',868,0,0),(42721,8994,3,217,0,'200.159.120.34',1196350549,1,0,1,1,1,0,'','','In Delphi I use Ctl3D property to False and cause the effect of this image:\n\n[url=http&#58;//img406&#46;imageshack&#46;us/my&#46;php?image=samplepp2&#46;png:1xu8zvzc][img:1xu8zvzc]http&#58;//img406&#46;imageshack&#46;us/img406/3567/samplepp2&#46;th&#46;png[/img:1xu8zvzc][/url:1xu8zvzc]\n\nAntonio, any idea to quit 3D effect?\n\nRegards\nMaurilio','',0,'GA==','1xu8zvzc',1,0,'',217,0,0),(42722,9009,6,1146,0,'87.223.173.186',1196350630,1,0,1,1,1,0,'','DUDA SOBRE XBROWSE','Hola:\n\nQuiero quitar del XBrowse el margen izquierdo, es decir, lo que en la foto siguiente he pintado de negro:\n\n[url=http&#58;//img255&#46;imageshack&#46;us/my&#46;php?image=xbrowsemd1&#46;jpg:24hfdhkg][img:24hfdhkg]http&#58;//img255&#46;imageshack&#46;us/img255/4239/xbrowsemd1&#46;th&#46;jpg[/img:24hfdhkg][/url:24hfdhkg]\n\n¿Cómo puedo hacerlo?. Muchas gracias.\n\nSalu2,\n\nMoisés','',0,'GA==','24hfdhkg',1,0,'',1146,0,0),(42723,9009,6,41,0,'200.87.162.67',1196351443,1,0,1,1,1,0,'','','oBrw:lRecordSelector := .f.','',0,'GA==','3j97f9ex',1,0,'',41,0,0),(42724,8983,3,2,0,'87.218.146.139',1196351604,1,0,1,1,1,1,'','','James,\n\n&gt; Are you using a C function for this.\n\nYes, and even using C code, it is slow. Thats why we should try to avoid it and use StretchBlt().\n\n&gt; So where is the bitmap stored? Is it embedded in the FW code somehow?\n\nYes, it is embedded in a C module. Its quite simple: You open the bitmap with the Borland resources workshop, edit it as text, and then copy the bytes to a C array. From that C array, the bitmap is dinamically created in memory.\n\n&gt; I did not know we could stretch them to fit\n\nThats what StretchBlt() is for.\n\n&gt; Can you show us how to stretch a bitmap to fit a dialog or window? \n\nIn just few days FWH 7.12 will be published and the source code for stretching a bitmap will be available, and a working sample: the Class TMsgBar.','',0,'GA==','24ugnmci',1,0,'',2,0,0),(42725,8975,3,2,0,'87.218.146.139',1196351859,1,0,1,1,1,1,'','','Acwoo,\n\nPlease post the complete error calls stack. \n\nAre you using the Harbour/xharbour builds that we distribute with FWH 7.11 ?\n\nAre you using any modified FWH Classes ?','',0,'GA==','1fxmkk42',1,0,'',2,0,0),(42726,8983,3,303,0,'72.220.100.171',1196351918,1,0,1,1,1,0,'','','Antonio,\n\nGot it. Thanks.\n\nJames','',0,'GA==','2hs3qmn9',1,0,'',303,0,0),(42727,9005,3,2,0,'87.218.146.139',1196352097,1,0,1,1,1,1,'','','Taavi,\n\n&gt; but if omsgbar:settext() should display text\n\nDo you mean oMsgBar:SetText() or oMsgBar:SetMsg() ?','',0,'GA==','2da4zsl1',1,0,'',2,0,0),(42728,9007,6,400,0,'201.92.35.104',1196352143,1,0,1,1,1,1,'','','Biene...ja descobri q es possible...mas como ?\n\nestou certo asi:\n\ndll32 function ;\n      WNetAddConnection2(lpNetResource As NETRESOURCE, lpPassword As String,lpUserName As String, dwFlags As Long) ;\n      AS LONG PASCAL FROM \"WNetAddConnection2A\" ;\n      Lib \"mpr.dll\"\n\n<!-- m --><a class=\"postlink\" href=\"http://support.microsoft.com/kb/173011\">http://support.microsoft.com/kb/173011</a><!-- m -->\n\n\nMas como declarar los Type ?','',0,'GA==','rkq8cbf4',1,0,'',400,0,0),(42729,9003,3,2,0,'87.218.146.139',1196352955,1,0,1,1,1,1,'','','Otto,\n\nThe modification of a metafile file is very complicated task thats why we should avoid that way.\n\nIf you review Class TMetaFile Method Paint() you will see a call to PlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, .f. ). You could paint the bitmap on the ::hDC just after that function call:\n\nPlayEnhMetaFile( ::hDC, ::hMeta, ::hWnd, .f. )\nEval( ::Cargo, ::hDC, Self ) // Use cargo or add a new DATA to the class\n   \nwhere ::Cargo may contain:\n{ | hDC | If( lWaterMark, PalBmpDraw( hDC, nRow, nCol, oBitmap:hBitmap, oBitmap:hPalette, nWidth, nHeight ),) }','',0,'GA==','2v7pyn15',1,0,'',2,0,0),(42730,9004,20,49,0,'213.82.134.66',1196353000,1,0,1,1,1,1,'','','cioè ?\nscusi sono ignorante...','',0,'GA==','2s17y99s',1,0,'',49,0,0),(42731,9000,3,49,0,'213.82.134.66',1196353259,1,0,1,1,1,1,'','','ok where I can found all the parameters for it func ?','',0,'GA==','2aheyz3q',1,0,'',49,0,0),(42732,9003,3,2,0,'87.218.146.139',1196353826,1,0,1,1,1,1,'','','Otto,\n\nThe same way you could search for PlayEnhMetaFile() call in source\\classes\\rpreview.prg and place an optional call there to paint the bitmap after that function call','',0,'GA==','2odacnlp',1,0,'',2,0,0),(42733,9002,3,49,0,'213.82.134.66',1196353977,1,0,1,1,1,1,'','','Antonio,\nsee <!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms645507.aspx\">http://msdn2.microsoft.com/en-us/library/ms645507.aspx</a><!-- m -->\n\nIf I  make it \n\n[code:21cauiw4]\nfunction MessageBox&#40; cText, cCaption, nType &#41;\nreturn MessageBoxEx&#40; GetActiveWindow&#40;&#41;, cText, cCaption, nType, nil &#41;\n\n\ndll32 static function MessageBoxEx&#40; hWnd AS LONG,;\n                                    lpText AS STRING,;\n                                    lpCaption AS STRING,;\n                                    uType AS LONG, wLanguageId AS LONG &#41; ;\n                                    AS LONG PASCAL  FROM &quot;MessageBoxExA&quot; LIB &quot;User32&#46;dll&quot;[/code:21cauiw4]\n\n\nit is correct ?','',0,'AIA=','21cauiw4',1,0,'',49,0,0),(42734,8995,3,2,0,'87.218.146.139',1196353987,1,0,1,1,1,1,'','','Ken,\n\nWhat Windows version are you using ?','',0,'AIA=','22wjuz28',1,0,'',2,0,0),(42735,9009,6,1146,0,'87.223.173.186',1196354106,1,0,1,1,1,0,'','','Muchas gracias <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','3nc4nhqx',1,0,'',1146,0,0),(42736,9002,3,2,0,'87.218.146.139',1196354117,1,0,1,1,1,1,'','','Silvio,\n\n&gt; it is correct ?\n\nIt seems ok','',0,'AIA=','32cyb0jc',1,0,'',2,0,0),(42737,8997,3,130,0,'84.138.47.201',1196354914,1,0,1,1,1,1,'','','Dutch,\n\nin XP: Control Center/ Date and Time/ Internettime\n\nI hope I translated the german expressions correct <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nor\n\nnet time /setsntp:&lt;timeserver&gt;','',0,'AIA=','1xeduyts',1,0,'',130,0,0),(42738,9010,6,1236,0,'201.22.70.140',1196354958,1,0,1,1,1,0,'','Abrir uma WINDOW normaliza as outras!','Amigos, trabalho com varias WINDOW mdichild em meu sistema, acontece que, se eu tiver uma window aberta (maximizada) e for abrir um segunda window, a primeira deixa de estar maximizada. Como resolver isso?\n\nGrato\n\n\nFWH7.1','',0,'AIA=','3s3a24i1',1,0,'',1236,0,0),(42739,8758,11,2,0,'87.218.146.139',1196355130,1,0,1,1,1,1,'','','Doug,\n\nWe have emailed you a new FiveLinux build that properly uses the numeric keypad\n\nWe are working to review the remaining issues, thanks','',0,'AIA=','191r02dv',1,0,'',2,0,0),(42740,9000,3,130,0,'84.138.47.201',1196355362,1,0,1,1,1,1,'','','Silvio,\n\nhere you can find the documentation of Freeimage\n\n[url:2gjw0hq8]http&#58;//downloads&#46;sourceforge&#46;net/freeimage/FreeImage3100&#46;pdf[/url:2gjw0hq8]','',0,'EA==','2gjw0hq8',1,0,'',130,0,0),(42741,9002,3,868,0,'219.64.121.60',1196355731,1,0,1,1,1,1,'','','But what is its advantage over MessageBox function?  Even according to MSDN the functionality is the same except that we can specify LaguageId in \"Ex\" version of the functions.  Both of them look the same. Am I missing something?','',0,'EA==','1c9pnu8c',1,0,'',868,0,0),(42742,9011,19,868,0,'219.64.121.60',1196356031,1,0,1,1,1,1,'','Office 200T User Interface licencing from Microsoft','Worth looking at\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/office/aa973809.aspx\">http://msdn2.microsoft.com/en-us/office/aa973809.aspx</a><!-- m -->','',0,'EA==','1c4kr06t',1,0,'',868,0,0),(42743,9002,3,130,0,'84.138.47.201',1196356762,1,0,1,1,1,1,'','','Silvio,\n\nI too don´t see any difference between the old function and this new one. No Office 2007 style.','',0,'EA==','1pgr2ccd',1,0,'',130,0,0),(42744,9002,3,49,0,'213.82.134.66',1196357141,1,0,1,1,1,1,'','','You \'re right , I saw it !!!\nBut on a website (vb) I saw this function with a image and the box message was with office style  I not understand How !!!\nI\'m searching....','',0,'EA==','3v02hapd',1,0,'',49,0,0),(42745,9000,3,49,0,'213.82.134.66',1196357263,1,0,1,1,1,1,'','','can you write the wrapper for it ?\nFreeImage_FlipHorizontal\nDLL_API BOOL DLL_CALLCONV FreeImage_FlipHorizontal(FIBITMAP *dib);','',0,'EA==','tcbu6jpt',1,0,'',49,0,0),(42746,9002,3,49,0,'213.82.134.66',1196357511,1,0,1,1,1,1,'','','Perhaps I found a solution ....I\'m trying','',0,'EA==','2fykr1ui',1,0,'',49,0,0),(42747,9012,6,960,0,'84.125.196.99',1196359092,1,0,1,1,1,0,'','Clase tAnimate','Estimados compañeros:\n\n Con objeto de mejorar mis aplicaciones he decidido incluirles algunas mejoras visuales: Por ejemplo: en procesos largos visualizar las tipicas 2 carpetas de windows que se pasan documentos de una a la otra. Esto se consigue con\n\n   oAnimate = TAnimate():Redefine( 160, vera2 )\n   oAnimate:Play()\n\n   ... según el ejemplo de sample\\win32.prg. \n\nTambién modifiqué mi RC, pero en mi EXE no consigo visualizar la animación. No me genera error pero tampoco la visualizo.\n\n¿ Que me falta ?\nMil gracias.\nLORENZO.\nFWH 2.7 + xHarbour','',0,'EA==','36r8p4ay',1,0,'',960,0,0),(42748,9012,6,960,0,'84.125.196.99',1196359460,1,0,1,1,1,0,'','Re: Clase tAnimate','[quote=&quot;Loren&quot;:kwq81rci]Estimados compañeros:\n\n Con objeto de mejorar mis aplicaciones he decidido incluirles algunas mejoras visuales: Por ejemplo: en procesos largos visualizar las tipicas 2 carpetas de windows que se pasan documentos de una a la otra. Esto se consigue con\n\n   oAnimate = TAnimate():Redefine( 160, vera2 )\n   oAnimate:Play()\n\n   ... según el ejemplo de sample\\win32.prg. \n\nTambién modifiqué mi RC, pero en mi EXE no consigo visualizar la animación. No me genera error pero tampoco la visualizo.\n\nMi PRG es:\n\n define dialog vera2 resource \'CONTROL\'\n  REDEFINE SAY on prompt \'AGE\' id 201 of vera2 font ofnt1\n  REDEFINE BITMAP inten id 108 of vera2 resource \'keys\' transparent\n  redefine say otexto prompt texto id 300 of vera2\n  oAnimate = TAnimate():Redefine( 160, vera2 )\n activate dialog vera2 center nowait on init oAnimate:Play()\n\n¿ Que me falta ?\nMil gracias.\nLORENZO.\nFWH 2.7 + xHarbour[/quote:kwq81rci]','',0,'gA==','kwq81rci',1,0,'',960,0,0),(42749,8995,3,879,0,'70.53.44.62',1196360448,1,0,1,1,1,0,'','','Antonio\n\nXP Pro sp2 + all updates up to the present\n\nThe problem is duplicated when I use Testmnu2 in the 7.04 FWH Samples and I change the following code:\n[code:13hc8sou]MENUITEM &quot;Item 1&quot; + CHR&#40;9&#41; +  &quot;Sub 1&quot; MESSAGE &quot;Item 1 - Sub 1&quot; ;\n               ACTION MsgInfo&#40; &quot;any action&quot; &#41; ;\n               ACCELERATOR 0, VK_F2\nMENUITEM &quot;Item 1&quot; + CHR&#40;9&#41; +  &quot;Sub 2&quot; MESSAGE &quot;Item 1 - Sub 2&quot; DISABLED[/code:13hc8sou]\nThe second disabled item is offset to the left more than the first.','',0,'AIA=','13hc8sou',1,0,'',879,0,0),(42750,9003,3,51,0,'80.122.88.242',1196360542,1,0,1,1,1,0,'','','Thank you, Antonio. All works perfectly.\nHere you see the preview= original and the CC made from 1 metafile.\n\n[img:2h23x2df]http&#58;//www&#46;atzwanger&#46;com/fw/rgpreview&#46;jpg[/img:2h23x2df]\n[img:2h23x2df]http&#58;//www&#46;atzwanger&#46;com/fw/cc&#46;jpg[/img:2h23x2df][/img]','',0,'CA==','2h23x2df',1,0,'',51,0,0),(42751,9012,6,940,0,'189.175.174.85',1196361103,1,0,1,1,1,1,'','','hi.\n\nLore\n\nyo lo utilizo sin problemas cuando indexo mis archivos,,,\n\n\n   oAnimate:CopyFiles()\n   _tipoDeAnimacion(oAnimate,4)\n   oAnimate:Play()\n\n*  aqui mi proceso\n\n   oAnimate:stop()\n\n\nfunction _tipoDeAnimacion( oAnimate, nAvi )\n\n   do case\n      case nAVI == 1\n           oAnimate:Search()\n\n      case nAVI == 2\n           oAnimate:FindFile()\n\n      case nAVI == 3\n           oAnimate:Locate()\n\n      case nAVI == 4\n           oAnimate:CopyFiles()\n\n      case nAVI == 5\n           oAnimate:CopyFile()\n\n      case nAVI == 6\n           oAnimate:DelFile()\n\n      case nAVI == 7\n           oAnimate:EmptyCan()\n\n      case nAVI == 8\n           oAnimate:DestFile()\n   endcase\n\nreturn nil\n\n\nsaludos...','',0,'CA==','3oz34dfb',1,0,'',940,0,0),(42752,9013,6,207,0,'189.158.87.34',1196362270,1,0,1,1,1,0,'','HB_FUN_ACTIVEX  , no la ecuentra','Que tal todos, estoy pasando mis lib a mi laptop, pero al compilar me dice que no tengo la fun activex, en donde esta exactamente, para ponerla\n\nsaludos','',0,'CA==','20tlqyy1',1,0,'',207,0,0),(42753,8999,6,940,0,'189.175.174.85',1196362830,1,0,1,1,1,1,'','','Jose  aca esta un pedazo de codigo,,,\n\n\n#include \"Fivewin.ch\"\n\n\n#define OFN_HIDEREADONLY     0x4\n#define OFN_ALLOWMULTISELECT 0x200\n#define OFN_EXPLORER         0x80000\n\n\nFUNCTION _multiSelFile()\n\n    LOCAL cFile := CGETFILE( \"*.*\", \"Test\", , , , , NOR( OFN_ALLOWMULTISELECT, OFN_EXPLORER, OFN_HIDEREADONLY ) )\n\n    LOCAL aFile := {}\n\n    LOCAL cPath\n\n    IF !EMPTY( cFile )\n        cPath = LEFT( cFile, AT( CHR( 0 ), cFile ) - 1 )\n\n        IF RIGHT( cPath, 1 ) != \"\\\"; cPath += \"\\\"; ENDIF\n\n        WHILE .T.\n            cFile = SUBSTR( cFile, AT( CHR( 0 ), cFile ) + 1 )\n            IF LEFT( cFile, 1 ) = CHR( 0 ); EXIT; ENDIF\n            AADD( aFile, cPath + LEFT( cFile, AT( CHR( 0 ), cFile ) - 1 ) )\n        ENDDO\n\n        IF LEN( aFile ) = 1\n            aFile[ 1 ] = LEFT( aFile[ 1 ], LEN( aFile[ 1 ] ) - 1 )\n        ENDIF\n    ENDIF\n\n    WQOUT( aFile )\n\nRETURN NIL','',0,'','36di0fco',1,0,'',940,0,0),(42754,8999,6,940,0,'189.175.174.85',1196362923,1,0,1,1,1,1,'','','JOSE \n\nACA EL COMPLEMENTO,\n\nSACADO DEL FORO EN INGLES\n\nYA LO HE PROBADO FUNCIONA DE PERLAS\n\nSALUDOS..\n\n\n#pragma BEGINDUMP\n\n#include &lt;Windows.h&gt;\n#include &lt;CommDlg.h&gt;\n#include &lt;ClipApi.h&gt;\n#include &lt;HbApi.h&gt;\n\nstatic far WORD wIndex;\nstatic far char Title[] = \"Select the file\";\n\n\nHB_FUNC( CGETFILE )          // ( cFileMask, cTitle, nDefaultMask, ;\n                             // cInitDir, lSave, lLongNames, nFlags, ;\n                             // cIniFile )  --&gt; cFileName\n{\n   OPENFILENAME ofn;\n   LPSTR pFile, pFilter, pDir, pTitle;\n   WORD w = 0, wLen;\n   BYTE bIndex = ( BYTE ) hb_parni( 3 );\n   BOOL bSave = IF( PCOUNT() &gt; 4 &amp;&amp; ISLOGICAL( 5 ), hb_parl( 5 ), FALSE );\n   BOOL bLongNames = hb_parl( 6 );\n   DWORD dwFlags = IF( PCOUNT() &gt; 6 &amp;&amp; ISNUM( 7 ), hb_parnl( 7 ), 2060 );\n\n   if( PCOUNT() &lt; 1 )\n   {\n      hb_retc( \"\" );\n       return;\n   }\n\n   // alloc for title\n\n   pTitle = ( LPSTR ) hb_xgrab( 128 );\n\n   if ( PCOUNT() &gt; 1 &amp;&amp; ISCHAR( 2 ) )\n   {\n      wLen   = ( WORD ) min( ( unsigned long ) 127, hb_parclen( 2 ) );\n      _bcopy( pTitle, hb_parc( 2 ), wLen );\n      * ( pTitle + wLen ) = 0;\n\n   }\n   else\n   {\n      pTitle  = Title;\n   }\n\n   // alloc for initial dir\n\n   pDir = ( LPSTR ) hb_xgrab( 128 );\n\n   if ( PCOUNT() &gt; 3 &amp;&amp; ISCHAR( 4 ) )\n   {\n      wLen  = ( WORD ) min( ( unsigned long ) 127, hb_parclen( 4 ) );\n      _bcopy( pDir, hb_parc( 4 ), wLen );\n      * ( pDir + wLen ) = 0;\n   }\n   else\n   {\n      * ( pDir ) = 0;\n   }\n\n   // alloc for file\n\n   if ( dwFlags &amp; OFN_ALLOWMULTISELECT )\n      pFile = ( LPSTR ) hb_xgrab( 32768 );\n   else\n      pFile = ( LPSTR ) hb_xgrab( 128 );\n\n   if ( PCOUNT() &gt; 7 &amp;&amp; ISCHAR( 8 ) )\n   {\n      wLen = ( WORD ) min( ( unsigned long ) 127, hb_parclen( 8 ) );\n      _bcopy( pFile, hb_parc( 8 ), wLen );\n   }\n   else\n   {\n      wLen = ( WORD ) min( ( unsigned long ) 127, hb_parclen( 1 ) );\n      _bcopy( pFile, hb_parc( 1 ), wLen );\n   }\n   * ( pFile + wLen ) = 0;\n\n   // alloc for mask\n\n   pFilter = ( LPSTR ) hb_xgrab( 400 );\n   wLen    = ( WORD ) min( ( unsigned long ) 398, hb_parclen( 1 ) );\n   _bcopy( pFilter, hb_parc( 1 ), wLen );\n   * ( pFilter + wLen ) = 0;\n\n   while( * ( pFilter + w ) )\n   {\n      if( * ( pFilter + w ) == \'|\' )\n      {\n         * ( pFilter + w ) = 0;\n         if ( PCOUNT() &lt; 8 )\n            * (pFile) = 0;\n      }\n      w++;\n   }\n\n   * ( pFilter + wLen  ) = 0;\n   * ( pFilter + wLen + 1 ) = 0;\n\n   _bset( ( char * ) &amp;ofn, 0, sizeof( OPENFILENAME ) );\n\n   ofn.lStructSize     = sizeof( OPENFILENAME );\n   ofn.hwndOwner       = GetActiveWindow();\n   ofn.lpstrFilter     = pFilter;\n   ofn.lpstrFile       = pFile;\n   ofn.lpstrInitialDir = pDir;\n   ofn.lpstrTitle      = pTitle;\n   ofn.lpstrCustomFilter = 0; // NIL;\n   ofn.nFilterIndex    = bIndex ? bIndex: 1;\n   ofn.nMaxFile        = dwFlags &amp; OFN_ALLOWMULTISELECT ? 32768 : 128;\n   ofn.lpstrFileTitle  = 0; // NIL;\n   ofn.Flags           = OFN_PATHMUSTEXIST | OFN_NOCHANGEDIR |\n                        IF( bSave, OFN_HIDEREADONLY, 0 ) |\n                        IF( bLongNames, OFN_LONGNAMES, 0 );\n\n   if( dwFlags )\n      ofn.Flags = dwFlags;\n\n   wIndex = 0;\n\n   if( bSave )\n   {\n      if( GetSaveFileName( &amp;ofn ) )\n         hb_retc( pFile );\n      else\n         hb_retc( \"\" );\n   }\n   else\n   {\n      if( GetOpenFileName( &amp;ofn ) )\n         if ( dwFlags &amp; OFN_ALLOWMULTISELECT )\n            hb_retclen( pFile, 32768 );\n         else\n            hb_retc( pFile );\n      else\n         hb_retc( \"\" );\n   }\n\n   wIndex = ( WORD ) ofn.nFilterIndex;\n\n   hb_xfree( pFilter );\n   hb_xfree( pFile );\n   hb_xfree( pDir );\n   hb_xfree( pTitle );\n}\n\n#pragma ENDDUMP','',0,'','fj68f0fv',1,0,'',940,0,0),(42755,9014,6,987,0,'189.132.26.107',1196363564,1,0,1,1,1,0,'','Ayuda con TReg32','Saludos a todos los compañeros del foro:\n\nTengan todos muy buen dìa...  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEsta vez para solicitarles de su valiosa colaboraciòn, ya que me encuentro haciendo pruebas con la clase TReg32 y necesito saber como crear valores del tipo Binario y DWord, ya que por el momento solo puedo crear valores alfanumèricos, y al mismo tiempo como asignarle su correspondiente valor.\n\nDe ante mano muchas gracias..  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nSaludos desde Mèxico..\nI.S.C. Vìctor Daniel Cuatécatl León\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'','3ap7k5ux',1,0,'',987,0,0),(42756,9003,3,2,0,'87.218.146.139',1196364275,1,0,1,1,1,1,'','','Otto,\n\nExcellent <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','29v9tja2',1,0,'',2,0,0),(42757,9013,6,2,0,'87.218.146.139',1196364364,1,0,1,1,1,1,'','','Miguel,\n\nEs TActiveX, no ActiveX','',0,'','33qyxn51',1,0,'',2,0,0),(42758,9007,6,2,0,'87.218.146.139',1196364532,1,0,1,1,1,1,'','','Ale,\n\nEs mejor que la implementes en lenguaje C, usando #pragma BEGINDUMP y #pragma ENDDUMP, asi puedes construir facilmente la estructura que solicita desde C','',0,'','ps3u2pjr',1,0,'',2,0,0),(42759,9013,6,207,0,'189.158.87.34',1196364697,1,0,1,1,1,0,'','','perdon, si es TACTIVEX,  me sigue marcando que no esta la FUN_TACTIVEX, ¿QUE ME FALTARA?','',0,'','3gxfgf8p',1,0,'',207,0,0),(42760,9007,6,400,0,'201.92.35.104',1196366280,1,0,1,1,1,1,'','','Esse es o problema Mestre...jejejje\n\nNo sei trabajar com linguagem C.\n\nO que y preciso es:\n\nCria una unidade de rede mapeada no Win Server 2003.\n\nEl wNetAddConnection, no es possible, pois, esta funçao nao me dá a possibilidade de autenticar lo Usuario.\n\nCon wNetAddConnection2, es possible autenticar password e username.\n\n¿ Entienden mi dilema?\n\nSaluds','',0,'','2a7vekup',1,0,'',400,0,0),(42761,9003,3,51,0,'80.122.88.242',1196366484,1,0,1,1,1,0,'','','Antonio, what would be the syntax to send text\noPrn? but how with hDC?\nThanks in advance\nOtto','',0,'','2n8gb728',1,0,'',51,0,0),(42762,8995,3,303,0,'72.220.100.171',1196367185,1,0,1,1,1,0,'','','It is working fine for me under XP Pro SP2 and FWH 7.10, so I am guessing it was fixed after ver 7.04.\n\nJames','',0,'','34ukgr5o',1,0,'',303,0,0),(42763,9005,3,309,0,'194.204.28.27',1196367669,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:23vq0hlv]Taavi,\n\n&gt; but if omsgbar:settext() should display text\n\nDo you mean oMsgBar:SetText() or oMsgBar:SetMsg() ?[/quote:23vq0hlv]\n\nSorry, oMsgbar:SetMsg()\n\nTaavi','',0,'gA==','23vq0hlv',1,0,'',309,0,0),(42764,8955,6,246,0,'81.39.125.167',1196367846,1,0,1,1,1,0,'','','Gracias por vuestra dedicacion .Seria dificil seguir sin vuestra herramienta  .\n\nUn saludo .','',0,'gA==','dgjo3ak1',1,0,'',246,0,0),(42765,9003,3,2,0,'87.218.146.139',1196369752,1,0,1,1,1,1,'','','Otto,\n\noPrn:Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad )\n\nThere is also a method CmSay() and InchSay()','',0,'gA==','3nrzv3rw',1,0,'',2,0,0),(42766,9007,6,400,0,'201.92.35.104',1196369761,1,0,1,1,1,1,'','','Antonio...\n\nEstoy haciendo un esfuerzo, es isto ? estas certo ?\n\n[code:rsz4p6wc]\n#pragma BEGINDUMP \n\n\n#include &lt;windows&#46;h&gt; \n#include &lt;hbapi&#46;h&gt;\n#include &lt;Winnetwk&#46;h&gt; \n\n\nHB_FUNC &#40; NETRESOURCE &#41; \n&#123; \n    hb_dwScope&#40; NetResource&#40; &#40;LONG&#41; &#41; &#41; &#41;; \n\n    hb_dwType&#40; NetResource&#40; &#40;LONG&#41; &#41; &#41; &#41;; \n\n    hb_dwDisplayType&#40; NetResource&#40; &#40;LONG&#41; &#41; &#41; &#41;; \n\n    hb_dwUsage&#40; NetResource&#40; &#40;LONG&#41; &#41; &#41; &#41;; \n\n    hb_lpLocalName&#40; NetResource&#40; &#40;STRING&#41; &#41; &#41; &#41;; \n\n    hb_lpRemotename&#40; NetResource&#40; &#40;STRING&#41; &#41; &#41; &#41;; \n\n    hb_lpComment&#40; NetResource&#40; &#40;STRING&#41; &#41; &#41; &#41;; \n\n    hb_lpProvider&#40; NetResource&#40; &#40;STRING&#41; &#41; &#41; &#41;; \n\n\n&#125; \n\n\n#pragma ENDDUMP \n\n[/code:rsz4p6wc]\n\nSaluds','',0,'AIA=','rsz4p6wc',1,0,'',400,0,0),(42767,9015,6,21,0,'83.61.248.75',1196369889,1,0,1,1,1,1,'','Problemas con Valid, MsgRun y button','Hola gente,\n\nEn mi sistema tengo definido un valid de un get en el que algunas de las tareas que realiza las hace mostrando un msgrun en pantalla.\n\nEl problema viene cuando estando en ese get se intenta pulsar en alguno de los button que tengo definidos en el resto de la ventana. \nComo al pulsar en el button el get pierde el foco ejecuta el valid y tras terminar y debido a que muestra varios msgrun ya no recuerda que se había pulsado el botón y ejecuta la acción del mismo.\n\nEl probado el mismo procedimiento quitando los msgrun y funciona sin problemas, por lo que esta claro que el problema lo tengo por el msgrun.\n\nAlguien me puede ayudar?\nMuchas gracias por vuestra atención','',0,'AIA=','3rlw27y5',1,0,'',21,0,0),(42768,8981,6,1201,0,'200.90.17.154',1196369988,1,0,1,1,1,0,'','expilación','Buenas, el asunto es que el menu al activarse, no muestra nada y lo que se desea es que aparesca como si se pulsara la tecla ALT, que sombrea la primera opcion y coloca la linea subrayada en las letras asignadas\n\ngracias.....','',0,'AIA=','3o7cs1us',1,0,'',1201,0,0),(42769,8955,6,228,0,'201.244.171.146',1196369997,1,0,1,1,1,1,'','Gracias...','Amigo perfecto... creo que la mayoria de los bugs quedaron corregidos. Solamente esta algo lento, compare la velocidad de compilacion de verce 4.3 contra 5.3 y la demora con 5.3 es bien considerable.','',0,'AIA=','4p3gp80a',1,0,'',228,0,0),(42770,9007,6,2,0,'87.218.146.139',1196370243,1,0,1,1,1,1,'','','[code:a2tihu5s]\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nHN_FUNC&#40; WNETADDCONNECTION2 &#41;\n&#123;\n   NETRESOURCE nr;\n\n   nr&#46;dwType = RESOURCETYPE_DISK;\n   nr&#46;lpLocalName = hb_parc&#40; 1 &#41;;\n   nr&#46;lpRemoteName = hb_parc&#40; 2 &#41;;\n   nr&#46;lpProvider = NULL;\n\n   hb_retnl&#40; WNetAddConnection2&#40; &amp;nr, hb_parc&#40; 3 &#41;, hb_parc&#40; 4 &#41;,\n                                                  CONNECT_INTERACTIVE &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n[/code:a2tihu5s]','',0,'AIA=','a2tihu5s',1,0,'',2,0,0),(42771,9013,6,2,0,'87.218.146.139',1196370403,1,0,1,1,1,1,'','','Miguel,\n\nDepende de la versión de FWH que uses, ya que al principio el código de la clase TActiveX no se distribuyó.\n\nSi no usas TActiveX en tu aplicación, puedes añadir esta función a tu PRG:\n\nfunction TActiveX()\n\nreturn nil','',0,'AIA=','2lmt2wjy',1,0,'',2,0,0),(42772,9015,6,2,0,'87.218.146.139',1196372576,1,0,1,1,1,1,'','','Fernando,\n\nEntonces el problema es que no se ejecuta la acción del botón, si ?','',0,'AIA=','217q7u5z',1,0,'',2,0,0),(42773,9015,6,1106,0,'190.64.162.248',1196372759,1,0,1,1,1,0,'','','Fernando:\n\nIntenta colocarle la clausula CANCEL a los botones que\nno deben ejecutar el valid del get.\n\nSaludos.\n\nRuben Fernandez','',0,'AIA=','22quuj1a',1,0,'',1106,0,0),(42774,9014,6,2,0,'87.218.146.139',1196373171,1,0,1,1,1,1,'','','Victor,\n\nLa clase TReg32 usa RegCreateKey() y por lo visto con esa función solo se crean valores tipo cadena. Habría que usar RegCreateKeyEx() que parece ser que permite valores de otros tipos, pero no está claro en la documentación del MSDN como hay que hacerlo. Vamos a investigarlo.','',0,'AIA=','34u78t8l',1,0,'',2,0,0),(42775,9003,3,51,0,'80.122.88.242',1196374402,1,0,1,1,1,0,'','','Thank you. If I use printer-class it does not work.\nWhat I find out is that printer-class uses  GetPrintDC( GetActiveWindow()...\nbut the function TextOut works.\n\n TextOut( oDevice:hDC, 100, 100,\"Does work , horizontal printing\"  )\n\nNow I can do what I wanted - the real CC.','',0,'AIA=','1yfq2kze',1,0,'',51,0,0),(42776,8999,6,130,0,'84.138.47.201',1196374887,1,0,1,1,1,1,'','','Jose,\n\nI enhanced this version sometime ago, so you can hide the placesbar on the left side of the dialog. See 9th parameter.\n\nHope it helps.\n\n[code:21oj37q7]#pragma BEGINDUMP\n\n#include &lt;Windows&#46;h&gt;\n#include &lt;CommDlg&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n#include &lt;HbApi&#46;h&gt;\n\nstatic far WORD wIndex;\nstatic far char Title&#91;&#93; = &quot;Select the file&quot;;\nstatic char szDirName&#91; MAX_PATH &#93;;\n\nHB_FUNC&#40; CGETFILE &#41;          // &#40; cFileMask, cTitle, nDefaultMask, ;\n                             // cInitDir, lSave, lLongNames, nFlags, ;\n                             // cIniFile, lHidePlacesBar  &#41;  --&gt; cFileName\n&#123;\n   OPENFILENAME ofn;\n   LPSTR pFile, pFilter, pDir, pTitle;\n   WORD w = 0, wLen;\n   BYTE bIndex = &#40; BYTE &#41; hb_parni&#40; 3 &#41;;\n   BOOL bSave = IF&#40; PCOUNT&#40;&#41; &gt; 4 &amp;&amp; ISLOGICAL&#40; 5 &#41;, hb_parl&#40; 5 &#41;, FALSE &#41;;\n   BOOL bLongNames = hb_parl&#40; 6 &#41;;\n   DWORD dwFlags = IF&#40; PCOUNT&#40;&#41; &gt; 6 &amp;&amp; ISNUM&#40; 7 &#41;, hb_parnl&#40; 7 &#41;, 2060 &#41;;\n   BOOL bHideBar = IF&#40; PCOUNT&#40;&#41; &gt; 8 &amp;&amp; ISLOGICAL&#40; 9 &#41;, hb_parl&#40; 9 &#41;, FALSE &#41;;   // SH, Sept&#46; 2007\n\n   char cFullName&#91;64&#93;&#91;1024&#93;;\n   char cCurDir&#91;512&#93;;\n   char cFileName&#91;512&#93;;\n   int iPosition = 0;\n   int iNumSelected = 0;\n   int n;\n   char buffer&#91;65536&#93;;\n   DWORD dwErr;\n\n   if&#40; PCOUNT&#40;&#41; &lt; 1 &#41;\n   &#123;\n      hb_retc&#40; &quot;&quot; &#41;;\n       return;\n   &#125;\n\n   // alloc for title\n   pTitle = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; PCOUNT&#40;&#41; &gt; 1 &amp;&amp; ISCHAR&#40; 2 &#41; &#41;\n   &#123;\n      wLen   = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 2 &#41; &#41;;\n      _bcopy&#40; pTitle, hb_parc&#40; 2 &#41;, wLen &#41;;\n      * &#40; pTitle + wLen &#41; = 0;\n   &#125;\n   else\n   &#123;\n      pTitle  = Title;\n   &#125;\n\n   // alloc for initial dir\n   pDir = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; PCOUNT&#40;&#41; &gt; 3 &amp;&amp; ISCHAR&#40; 4 &#41; &#41;\n   &#123;\n      wLen  = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 4 &#41; &#41;;\n      _bcopy&#40; pDir, hb_parc&#40; 4 &#41;, wLen &#41;;\n      * &#40; pDir + wLen &#41; = 0;\n   &#125;\n   else\n   &#123;\n      * &#40; pDir &#41; = 0;\n   &#125;\n\n   // alloc for file\n   if &#40; dwFlags &amp; OFN_ALLOWMULTISELECT &#41;\n      pFile = &#40; LPSTR &#41; hb_xgrab&#40; 32768 &#41;;\n   else\n      pFile = &#40; LPSTR &#41; hb_xgrab&#40; 128 &#41;;\n\n   if &#40; PCOUNT&#40;&#41; &gt; 7 &amp;&amp; ISCHAR&#40; 8 &#41; &#41;\n   &#123;\n      wLen = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 8 &#41; &#41;;\n      _bcopy&#40; pFile, hb_parc&#40; 8 &#41;, wLen &#41;;\n   &#125;\n   else\n   &#123;\n      wLen = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 127, hb_parclen&#40; 1 &#41; &#41;;\n      _bcopy&#40; pFile, hb_parc&#40; 1 &#41;, wLen &#41;;\n   &#125;\n   * &#40; pFile + wLen &#41; = 0;\n\n   // alloc for mask\n   pFilter = &#40; LPSTR &#41; hb_xgrab&#40; 400 &#41;;\n   wLen    = &#40; WORD &#41; min&#40; &#40; unsigned long &#41; 398, hb_parclen&#40; 1 &#41; &#41;;\n   _bcopy&#40; pFilter, hb_parc&#40; 1 &#41;, wLen &#41;;\n   * &#40; pFilter + wLen &#41; = 0;\n\n   while&#40; * &#40; pFilter + w &#41; &#41;\n   &#123;\n      if&#40; * &#40; pFilter + w &#41; == \'|\' &#41;\n      &#123;\n         * &#40; pFilter + w &#41; = 0;\n         if &#40; PCOUNT&#40;&#41; &lt; 8 &#41;\n            * &#40;pFile&#41; = 0;\n      &#125;\n      w++;\n   &#125;\n\n   * &#40; pFilter + wLen  &#41; = 0;\n   * &#40; pFilter + wLen + 1 &#41; = 0;\n\n   _bset&#40; &#40; char * &#41; &amp;ofn, 0, sizeof&#40; OPENFILENAME &#41; &#41;;\n\n   ofn&#46;lStructSize     = sizeof&#40; OPENFILENAME &#41;;\n   ofn&#46;hwndOwner       = GetActiveWindow&#40;&#41;;\n   ofn&#46;lpstrFilter     = pFilter;\n   ofn&#46;lpstrFile       = buffer; //pFile;\n   ofn&#46;lpstrInitialDir = pDir;\n   ofn&#46;lpstrTitle      = pTitle;\n   ofn&#46;lpstrCustomFilter = 0; // NIL;\n   ofn&#46;nFilterIndex    = bIndex ? bIndex&#58; 1;\n   ofn&#46;nMaxFile        = dwFlags &amp; OFN_ALLOWMULTISELECT ? 32768 &#58; 128;\n   ofn&#46;lpstrFileTitle  = 0; // NIL;\n   ofn&#46;Flags           = OFN_PATHMUSTEXIST | OFN_NOCHANGEDIR |\n                        IF&#40; bSave, OFN_HIDEREADONLY, 0 &#41; |\n                        IF&#40; bLongNames, OFN_LONGNAMES, 0 &#41;;\n\n   if&#40; dwFlags &#41;\n      ofn&#46;Flags = dwFlags;\n\n   if&#40; bHideBar &#41;\n      ofn&#46;FlagsEx = OFN_EX_NOPLACESBAR;  // SH Sept&#46; 2007\n\n   wIndex = 0;\n   buffer&#91;0&#93; = 0 ;\n\n   if&#40; bSave &#41;\n   &#123;\n      if&#40; GetSaveFileName&#40; &amp;ofn &#41; &#41;\n         hb_retc&#40; pFile &#41;;\n      else\n         hb_retc&#40; &quot;&quot; &#41;;\n   &#125;\n   else\n   &#123;\n      if&#40; GetOpenFileName&#40; &amp;ofn &#41; &#41;\n         if &#40; dwFlags &amp; OFN_ALLOWMULTISELECT &#41;\n            //hb_retclen&#40; pFile, 32768 &#41;;\n           &#123;\n             wsprintf&#40;cCurDir,&quot;%s\\\\&quot;,&amp;buffer&#91;iPosition&#93;&#41;;\n             iPosition=iPosition+strlen&#40;cCurDir&#41;;//+1;\n\n             do\n             &#123;\n                iNumSelected++;\n                wsprintf&#40;cFileName,&quot;%s&quot;,&amp;buffer&#91;iPosition&#93;&#41;;\n                iPosition=iPosition+strlen&#40;cFileName&#41;+1;\n                wsprintf&#40;cFullName&#91;iNumSelected&#93;,&quot;%s\\%s&quot;,cCurDir,cFileName&#41;;\n             &#125;\n             while&#40;  &#40;strlen&#40;cFileName&#41;!=0&#41; &amp;&amp; &#40; iNumSelected &lt;= 63 &#41; &#41;;\n\n             if&#40;iNumSelected &gt; 1&#41;\n             &#123;\n                hb_reta&#40; iNumSelected - 1 &#41;;\n\n                for &#40;n = 1; n &lt; iNumSelected; n++&#41;\n                &#123;\n                   hb_storc&#40; cFullName&#91;n&#93;, -1, n &#41;;\n                &#125;\n             &#125;\n             else\n             &#123;\n                hb_retc&#40; &amp;buffer&#91;0&#93; &#41;;\n             &#125;\n           &#125;\n         else\n            hb_retc&#40; &amp;buffer&#91;0&#93; &#41;; //&#40; pFile &#41;;\n      else\n        &#123;\n         dwErr = CommDlgExtendedError&#40;&#41;;         // get error code\n         hb_retni&#40; dwErr &#41;;\n        &#125;\n   &#125;\n\n   //wIndex = &#40; WORD &#41; ofn&#46;nFilterIndex;\n\n   hb_xfree&#40; pFilter &#41;;\n   hb_xfree&#40; pFile &#41;;\n   hb_xfree&#40; pDir &#41;;\n   hb_xfree&#40; pTitle &#41;;\n   hb_xfree &#40;buffer&#41;;\n&#125;\n\n#pragma ENDDUMP[/code:21oj37q7]','',0,'AIA=','21oj37q7',1,0,'',130,0,0),(42777,9012,6,960,0,'84.125.196.99',1196376357,1,0,1,1,1,0,'','','Gracias sysctrl2,  me fuiste de mucha ayuda. me faltaba por incluir el tipo de animación.\nAhora ya se visualiza aunque no consigo que tenga animación. Seguiré probanco.\n\nMil gracias.\nLOREN','',0,'AIA=','1sggd0ue',1,0,'',960,0,0),(42778,8989,3,105,0,'201.246.191.125',1196378632,1,0,1,1,1,1,'','','For sure.. Vista Sucks...\nIve\' seen so many network problems, slowness, sometimes it gets frozen for a couple of seconds, I really hate this SO.\nI\'m having problems with almost every client I have and VISTA.\n\nIn XP I have pretty good access to the DBF\'s and MYSQL, in Vista I loose almost 40 % performance.\n\nAccess to matrix printers is also a headache.\n\nWell good news on the net, the SP3 for XP is almost ready, it will bring new capabilities \n\n...and vista is at this point\n\n<!-- m --><a class=\"postlink\" href=\"http://crave.cnet.co.uk/gadgets/0,39029552,49293700-10,00.htm\">http://crave.cnet.co.uk/gadgets/0,39029 ... -10,00.htm</a><!-- m -->\n\nMy 2,5 cents','',0,'AIA=','38lextwu',1,0,'',105,0,0),(42779,9016,6,255,0,'201.122.36.212',1196379913,1,0,1,1,1,1,'','Verce 5.3','Disponible ya en la pagina oficial.\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin/index.htm\">http://incos.sytes.net/fivewin/index.htm</a><!-- m -->\n\n\nSaludos','',0,'AIA=','l6qp4qkr',1,0,'',255,0,0),(42780,8758,11,578,0,'218.214.68.108',1196382935,1,0,1,0,1,0,'','Thanks','Once again thank you for your help Antonio.\n\nFiveLinux is getting better and better as you remove these little gremlins.  Whilst at times it must be a little frustrating, Five Linux is so close to being the truly superb product that it always promised to be, that I am getting really excited about it.\n\nThanks\nDoug\n(xProgrammer)','',0,'AIA=','hhftxgi0',1,0,'',578,0,0),(42781,9017,3,267,0,'201.9.176.151',1196383289,1,0,1,1,1,1,'','Error after update for FWH 7.11','Hi,\n\nError: Unresolved external \'AdsCloseCachedTables\' referenced from C:\\XHARBOUR\\LIB\\RDDADS.LIB|adsfunc\n\n\nSds,\nVilian F. Arraes','',0,'AIA=','1slmfo4s',1,0,'',267,0,0),(42782,8999,6,439,0,'200.125.45.71',1196383485,1,0,1,1,1,1,'','','Queridos amigos del Foro, Gracias por compartir su conocimiento conmigo ayudándome en la tarea de desarrollo.\n\nEs una dicha contar con colegas que con tan buena y desinteresada disposición nos ayudan en la tarea diaria.\n\nMUCHAS GRACIAS !!!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPondré en práctica sus recomendaciones y aportes.','',0,'AIA=','36ywa4ea',1,0,'',439,0,0),(42783,9016,6,439,0,'200.125.45.71',1196383962,1,0,1,1,1,1,'','Re: Verce 5.3','[quote=&quot;VeRCE&quot;:34cqr5ue]Disponible ya en la pagina oficial.\n\n<!-- m --><a class=\"postlink\" href=\"http://incos...net/fivewin/index.htm\">http://incos...net/fivewin/index.htm</a><!-- m -->\n\n\nSaludos[/quote:34cqr5ue]\n\nA todos mis buenos amigos y usuarios de esta aplicación, quisiera invitarles a actualizar su versión a VeRCE 5.3, la he probado exaustivamente (yo utilizo 37 libs externasy las he compilado sin problemas,también he hecho más de 120 tests con aplicaciones mías y ejemplos de FWH con y sin recursos, compilando dlls, libs escritas en C++, en fin todas las opciones imaginales y no he tenido dificultad alguna.\n\nSinceramente es un placer utilizar VeRCE para compilar y enlazar mis aplicaciones y aún mejorará más!!!!!, solo hay que esperar.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->  \n\n( Por cierto nadie piense que yo tengo que ver con el desarrollo, aunque soy fanático de VeRCE, no soy más que un mero \"betatester\" )  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','34cqr5ue',1,0,'',439,0,0),(42784,8758,11,2,0,'87.218.146.139',1196386073,1,0,1,1,1,1,'','','Doug,\n\nWe have just emailed you a new build that fixes your reported bugs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3ivx9wr9',1,0,'',2,0,0),(42785,8657,12,2,0,'87.218.146.139',1196386194,1,0,1,1,1,1,'','','Wilson,\n\nTe acabamos de enviar por email un nuevo build de FiveLinux que soluciona los problemas que nos han reportado ultimamente.','',0,'gA==','c1k3ca4m',1,0,'',2,0,0),(42786,8997,3,233,0,'218.111.22.55',1196386397,1,0,1,1,1,0,'','','At my office, here\'s how I set it up. Set the lan server to sync its time with one of those public time server while workstations are set to sync with the lan server. On my XP machine, I inserted this in autoexec.nt, [code:3nopsjn9]net time \\\\LanServerName /set /yes[/code:3nopsjn9]','',0,'AIA=','3nopsjn9',1,0,'',233,0,0),(42787,8994,3,239,0,'59.42.99.161',1196386428,1,0,1,1,1,0,'','','A  \'Easy dialog \' sample from Easy report site <!-- m --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">http://www.reportdesigner.info</a><!-- m --> shows  thes tget no 3D but with border clause. \n  Some other software \'GET\' only with underline .\n  Someone who knows  this?\nThanks !  \nShuming Wang','',0,'AIA=','3tnbi8up',1,0,'',239,0,0),(42788,9017,3,2,0,'87.218.146.139',1196386515,1,0,1,1,1,1,'','','Vilian,\n\nFrom <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org/index.asp?page=news/20050324\">http://www.xharbour.org/index.asp?page=news/20050324</a><!-- m -->:\n\n# Added AdsCacheOpenTables() and AdsCacheOpenCursors() function. (for all versions Ads) and AdsCloseCachedTables() for Ads 7.x and above. ADS_REQUIRE_VERSION 7 must be set for the last function\n\n# Allow setting of ADS_REQUIRE_VERSION using compiler command line switch','',0,'AIA=','2qifdyfb',1,0,'',2,0,0),(42789,8989,3,34,0,'68.5.217.82',1196386769,1,0,1,1,1,1,'','Vista','Yes, it does take a bit of study to understand the changes in Vista.  However, when I installed it on my dual processor computer, the performance improved very dramatically.\n\nI\'ve been running with an ADS using Vista clients and have no problems.\n\nI\'m using dual monitors ... no problem.\n\nI did switch to Microsoft\'s Live One Care for anti-virus, firewall, and other protection.  The price is better then the competitors offer, the performance of my computer is greatly improved, I have no conflicts with applications I develop, and I\'ve had absolutely no intrusion of viruses, worms, etc.\n\nThe Microsoft model for computing\'s future is driven by those who use the systems in their industries, not by the developers.  So there are changes coming that may require us to learn more, but I have seen many people very pleased with the capabilities of that new direction.  When the 64 bit server products are released in February we should see an even greater performance boost for Vista.\n\nYes, there are some things I would love to have differently.  I find it interesting that I can sync my handheld to Outlook, but I can\'t sync two copies of Outlook ( notebook and desktop ) with an easy sync application from Microsoft.  Networking is a bit more challenging, but when its set right, it is safer and works fine.\n\nIf you don\'t like the security changes, remember that these are the result of hackers causing billions of dollars of damage to computers throughout the world.  These same people would be happy to steal your software if they could gain a benefit, or crash it just for the fun of it.  Maybe with more honesty, we could require less security, and easier operating systems.\n\nI\'ll get off my soapbox now ... <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','1waxmw5i',1,0,'',34,0,0),(42790,9017,3,267,0,'201.9.176.151',1196387929,1,0,1,1,1,1,'','','Antonio,\n\nI did not understand. Not use AdsCloseCachedTables() in my system.','',0,'AIA=','3ixm5cvn',1,0,'',267,0,0),(42791,8997,3,47,0,'203.144.143.4',1196391150,1,0,1,1,1,0,'','','I got it.\nThanks for all,\nDutch','',0,'AIA=','2mtv4z18',1,0,'',47,0,0),(42792,8997,3,51,0,'80.122.88.242',1196400398,1,0,1,1,1,0,'','','Hello Dutch,\ncould you share with us how?\nThanks in advance\nOtto','',0,'AIA=','2anreuin',1,0,'',51,0,0),(42793,8989,3,51,0,'80.122.88.242',1196400842,1,0,1,1,1,0,'','','Adolfo, is \'www.xdata.cl - Desarrollo Inteligente\' your product?\nA nice homepage and a good looking application.\nRegards,\nOtto','',0,'AIA=','2dak0c3j',1,0,'',51,0,0),(42794,8975,3,1181,0,'60.50.118.174',1196401603,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for thr reply\n\nThe error message:\n\nApplication\n===========\n   Path and name: C:\\abc\\abc.exe (32 bits)\n   Size: ********* bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 30/11/2007, 13:36:14\n   Error description: Error BASE/1004  Message not found: TDIALOG:BERASEBKGND\n   Args:\n     [   1] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TDIALOG:ERROR(172)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(103)\n   Called from:  =&gt; TDIALOG:MSGNOTFOUND(0)\n   Called from:  =&gt; TDIALOG:BERASEBKGND(162)\n   Called from:  =&gt; TDIALOG:ERASEBKGND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\abc.prg =&gt; LGETPASSWORD(2509)\n   Called from: .\\abc.prg =&gt; TESTPASS(2298)\n   Called from: .\\abc.prg =&gt; START3A(1186)\n   Called from: .\\abc.prg =&gt; START3(1099)\n   Called from: .\\abc.prg =&gt; STARTUP(2287)\n   Called from: .\\abc.prg =&gt; MAIN(38)\n\nSystem\n======\n   CPU type: AMD Sempron(tm)   2200+ 1500 Mhz\n   Hardware memory: 448 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour devel build 1.1-1 Intl.\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 37\n      1 \n      2 Start Menu\n      3 M\n      4 Default IME\n      5 CiceroUIWndFrame\n      6 SysFader\n      7 fffr\n      8 AVG E-mail Scanner\n      9 TF_FloatingLangBar_WndTitle\n     10 CL RC Engine3 Dummy Winidow\n     11 Password\n     12 Command Prompt - bmake ec\n     13 Acrobat IEHelper\n     14 <!-- w --><a class=\"postlink\" href=\"http://www.FiveTechSoft.com\">www.FiveTechSoft.com</a><!-- w --> :: View topic - Upgrade to 7.11 - Microsoft Internet Explorer\n     15 MCI command handling window\n     16 DDE Server Window\n     17 lxbk POR Monitor\n     18 LEXLMPM\n     19 Vinyl Deck\n     20 Adeck\n     21 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}\n     22 AVG Free Edition - Control Center\n     23 AVGEMC\n     24 Connections Tray\n     25 Power Meter\n     26 ADSL USB MODEM\n     27 VIA RAID Tool\n     28 ÐéÄâDAEMON¹ÜÀíÆ÷ V3.47\n     29 ADIRAS\n     30 LXBKBMON\n     31 LXBKBMGR\n     32 S3Timer\n     33  \n     34 LexPPS BCE Comm Window\n     35 MS_WebcheckMonitor\n     36 Search Results\n     37 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   __ERRRT_SBASE\n     Param   1:    N    13\n     Param   2:    N    1004\n     Param   3:    C    \"Message not found\"\n     Param   4:    C    \"TDIALOG:BERASEBKGND\"\n     Param   5:    N    1\n     Param   6:    O    Class: TDIALOG\n     Local   1:    U    \n   TDIALOG:ERROR\n     Param   1:    C    \"Message not found\"\n     Param   2:    C    \"TDIALOG\"\n     Param   3:    C    \"BERASEBKGND\"\n     Param   4:    N    1004\n   (b)HBOBJECT\n     Param   1:    O    Class: TDIALOG\n     Param   2:    C    \"BERASEBKGND\"\n   TDIALOG:MSGNOTFOUND\n     Param   1:    C    \"BERASEBKGND\"\n   TDIALOG:BERASEBKGND\n   TDIALOG:ERASEBKGND\n     Param   1:    N    16842839\n     Local   1:    O    Class: TDIALOG\n     Local   2:    S    \n     Local   3:    U    \n   TWINDOW:HANDLEEVENT\n     Param   1:    N    20\n     Param   2:    N    16842839\n     Param   3:    N    0\n   TDIALOG:HANDLEEVENT\n     Param   1:    N    20\n     Param   2:    N    16842839\n     Param   3:    N    0\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOXINDIRECT\n     Param   1:    N    4194304\n     Param   2:    C    \"€ È€         9Å     P a s s w o r d     P        9U f B U T T O N         P    Ý U \\ \' g B U T T O N         P    Ý | \\ H h B U T T O N         P     ? 5 i B U T T O N         ‚V       Ü È j T B I T M A P            P      3( k S T A T I C                                                     E C                                                              P       3 l S T A T I C                                                       A C C O U N T I N G                                                                P    à \\ X  m S T A T I C   ( c )   C o p y r i g h t   2 0 0 7 ,          P    à e X  n S T A T I C   E C   C O M P U T E R          P    à n X  o S T A T I C   V E R S I O N   6 . 3 . 1 1        P    à Š 2  p S T A T I C   P a s s w o r d :       €','',0,'AIA=','21bqjbkm',1,0,'',1181,0,0),(42795,9018,3,51,0,'80.122.88.242',1196405050,1,0,1,1,1,0,'','FIVEWIN/samples/win32.prg','ad) TAnimate sample\nFWH\\samples\\win32.prg or  FWH\\samples\\win32_.prg\n\nIf I click on play nothing happens.\nRegards,\nOtto','',0,'AIA=','1qd7gtcb',1,0,'',51,0,0),(42796,8955,6,54,0,'189.132.105.126',1196408537,1,0,1,1,1,1,'','Re: Gracias...','[quote=&quot;leandro&quot;:sglvi757]Amigo perfecto... creo que la mayoria de los bugs quedaron corregidos. Solamente esta algo lento, compare la velocidad de compilacion de verce 4.3 contra 5.3 y la demora con 5.3 es bien considerable.[/quote:sglvi757]\n\nLeandro,\n\nestoy considerando cambiar algunas cuestiones del script de compilación.\n\nestaré informando  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','sglvi757',1,0,'',54,0,0),(42797,8975,3,2,0,'87.218.146.139',1196412976,1,0,1,1,1,1,'','','Acwoo,\n\nAre you using any FWH class modified by yourself ?','',0,'gA==','1p94szmo',1,0,'',2,0,0),(42798,9017,3,2,0,'87.218.146.139',1196413115,1,0,1,1,1,1,'','','Vilian,\n\nAs a workaround try to add this code to your main PRG:\n[code:3dimrhas]\n#pragma BEGINDUMP\n\nvoid AdsCloseCachedTables&#40; void &#41; &#123;&#125;\n\n#pragma ENDDUMP\n[/code:3dimrhas]','',0,'AIA=','3dimrhas',1,0,'',2,0,0),(42799,8989,3,2,0,'87.218.146.139',1196413895,1,0,1,1,1,1,'','','Tim,\n\n&gt; and I\'ve had absolutely no intrusion of viruses, worms, etc.\n\nUsing Windows you are never safe. There are over 40000 viruses and keep growing. A new virus can suddenly appear that has not been detected by your antivirus yet and your computer security may become in serious risk. \n\nThere are no viruses in Linux neither in Mac OSX !!! You really feel safe when you need to manage sensible data and are running on these operating systems.\n\n&gt;\nWhen the 64 bit server products are released in February we should see an even greater performance boost for Vista.\n&gt;\n\n64 bits is only useful for multimedia apps (video editing, etc.). On a non-multimedia app, 32 and 64 bits perform quite similar.\n\n&gt;\nIf you don\'t like the security changes, remember that these are the result of hackers causing billions of dollars of damage to computers throughout the world.\n&gt;\n\nI don\'t agree with you. Viruses are the result of a weakly designed operating system. Microsoft should provide an antivirus for free, because its such a shame the poor security that Windows offer.\n\nI feel so safe when I use Linux or Mac. Unfortunately I don\'t have this feeling when I use Windows.','',0,'AIA=','ezn58nl3',1,0,'',2,0,0),(42800,9018,3,2,0,'87.218.146.139',1196414810,1,0,1,1,1,1,'','','Otto,\n\nAre you testing in Vista ? If so, it seems that Microsoft has not kept backwards compatibility with XP <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'AIA=','27p8jjv7',1,0,'',2,0,0),(42801,8909,6,596,0,'85.62.69.206',1196416434,1,0,1,1,1,1,'','','up...\n\n¡¡¡ Socorro !!!','',0,'AIA=','275ykm76',1,0,'',596,0,0),(42802,8975,3,1181,0,'60.49.118.9',1196417767,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks your for reply\n\n\nNo own FWH class modified \n\n\nThanks','',0,'AIA=','3n5bosmu',1,0,'',1181,0,0),(42803,9015,6,21,0,'83.61.248.75',1196417845,1,0,1,1,1,1,'','','Antonio,\n\nCorrecto, el problema es que no ejecuta la acción del botón.\nPero si quito los msgrun, osea hago las validaciones sin mensaje en pantalla, tras terminar si me ejecuta la acción del botón\n\nRuben,\n\nNo me gustaría tener que poner la clausa CANCEL, porque si me interesa que ejecute el valid.\n\nGracias por vuestras respuestas','',0,'AIA=','1aurip7w',1,0,'',21,0,0),(42804,8992,6,456,0,'62.43.24.65',1196419135,1,0,1,1,1,1,'','','[quote=&quot;Frafive&quot;:nyzcptyi]Hola Biel \n  \n   Yo lo que hago es clonar el objeto cuando entro en modo de edicion y despues tambien he modificado el metodo blank y me funciona perfectamente.\n\n  un saludo\n\n\n   METHOD Blank() CLASS TDataBase\n\n   local nFor, nLen\n   local cType\n....\n  [/quote:nyzcptyi]\n\nLa modificación del metodo, es para no mover el registro de la tabla?','',0,'gA==','nyzcptyi',1,0,'',456,0,0),(42805,8992,6,456,0,'62.43.24.65',1196419379,1,0,1,1,1,1,'','','[quote=&quot;Marcelo Via Giglio&quot;:209rw1sh]Biel,\n\nyo hice una clase Tarray para trabajar con arrays como si fuera un dbf (hay varias implemenatciones de esto po ahi) y claro esta, hay cosas basadas en tDatabase, pero este problema que mencionas tambien se reproducia, como lo solucione?, es crear un buffer adicional, algo si\n\n      oData := dbData:buffer_blank()  // te devuelve una estructura en blanco similar a la DB y pudes utilizar oData:&lt;campo&gt;, etc\n      oData := dbData:buffer_load()   // te devuelve la estructura con los datos del reg actual\n      dbData:buffer_save( oData ) // salva el buffer en el registro actual\n\n\n\n[/quote:209rw1sh]\nGracias Marcelo, si eso es otra idea que tambien me habia rondado por la cabeza. Tener un Buffer separado para la edicion del registro, lo intentare implementar.\n\nYo habia pensado en algo similar, pero dentro de la propia clase. La idea era disponer de un segundo buffer para la edicion, y un data que marcara si se esta editando o añadiendo, y en funcion de ese data devolver de un buffer o del otro.\n\nYa veremos, ahora mismo tengo que seguir adelante con un proyecto y no tengo tiempo para seguir experimentando, pero en cuanto pueda, volvere sobre el tema.','',0,'gA==','209rw1sh',1,0,'',456,0,0),(42806,8801,18,1146,0,'87.223.173.186',1196421640,1,0,1,1,1,0,'','','Antonio:\n\nLa impresora problemática es una epson 570 bajo Windows 2000.\n\nTambién producen errores las brother.\n\nMuchas gracias.','',0,'gA==','obey5p2p',1,0,'',1146,0,0),(42807,9017,3,267,0,'201.9.121.243',1196422229,1,0,1,1,1,1,'','','Antonio,\n\nUnhappyly it did not decide the problem.','',0,'gA==','3v4n9lmh',1,0,'',267,0,0),(42808,8989,3,105,0,'200.72.140.34',1196423226,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:2vd8pcet]Adolfo, is \'www.xdata.cl - Desarrollo Inteligente\' your product?\nA nice homepage and a good looking application.\nRegards,\nOtto[/quote:2vd8pcet]\n\nYes Otto.\n\nThis is my page...\nI only have one program posted there, but soon I\'ll publish screenshoots of another 2.\n\nIm glad you like it\n\nThanks','',0,'gA==','2vd8pcet',1,0,'',105,0,0),(42809,9019,6,1146,0,'87.223.173.186',1196423697,1,0,1,1,1,0,'','PROBLEMA URGENTE CON GET','Hola:\n\nNecesito definir un get indicando como valor un resultado de una función.\n\nAsimismo, el get es tipo NO MODIFY, si bien se refresca periódicamente para actualizar el valor.\n\nSería tal que:\n\nREDEFINE GET cGET2 VAR ActualizaStock( cCLI )  id 100 NO MODIFY\n\n\nSin embargo,  me salta un error al compilar indicando que no se admite la función en VAR. \n\n¿Cómo puedo solucionarlo?.\n\nMuchas gracias!!!','',0,'gA==','2ameipey',1,0,'',1146,0,0),(42810,9018,3,51,0,'80.122.88.242',1196424033,1,0,1,1,1,0,'','','Yes, Vista.\nRegards,\nOtto','',0,'gA==','vodu6dc6',1,0,'',51,0,0),(42811,9019,6,294,0,'201.254.191.181',1196425531,1,0,1,1,1,1,'','','Hola Moises:\nTendrias que poner algo asi\nREDEFINE GET cGET2 VAR nStock ID 100 NO MODIFY\noDlg:bKeyDown := {|| bActualizaStock( cCLI, cGET2 ) } \ny dentro de la funcion bActualizaStock ponerle en la cGET2:cText el valor deseado y refrescar cGET2\nEspero haber sido claro\nSaludos','',0,'gA==','3l2acgcl',1,0,'',294,0,0),(42812,9020,6,1238,0,'217.127.123.34',1196425874,1,0,1,1,1,0,'','Problema con programa en clipper','Tenemos un viejo programa en clipper para nuestro gabinete de peritaciones de inendios y riesgos diversos. \n\nNecesitamos conertirlo en 32 bits con FWH para poder imprimir facturas y documentos de peritación en Windows.\n\nNecesito entrar en contacto con programador en Zaragoza (España) para realizar la conversión (previo pago de su importe).\n\n<!-- e --><a href=\"mailto:fergonm@telefonica.net\">fergonm@telefonica.net</a><!-- e -->\n\nUn saludo. Fernando','',0,'gA==','3oyjqxhh',1,0,'',1238,0,0),(42813,9021,6,1146,0,'87.223.173.186',1196426289,1,0,1,1,1,0,'','rendimiento de dbsetfilter vs. SET FILTER TO','Hola:\n\nBajo Harbour y sin ADS, y usando archivos DBF/NTX, ¿el rendimiento de ambas funciones es igual o, por el contrario, una es mejor que otra?.\n\nMuchas gracias.','',0,'gA==','i9gtwzyu',1,0,'',1146,0,0),(42814,9015,6,1201,0,'200.90.17.154',1196426463,1,0,1,1,1,0,'','','Y, es necesario que sea en el valid ? , no te sirve en \'ON CHANGE\'','',0,'gA==','3gyizn6v',1,0,'',1201,0,0),(42815,8997,3,303,0,'72.220.100.171',1196431278,1,0,1,1,1,0,'','','The problem with Windows built-in time setting is that it only sets the time once a week. I have seen computers that loose several minutes in a week. \n\nI have free software scheduled, using the Windows scheduler, that sets the time once a day. You can get the software here:\n\n<!-- m --><a class=\"postlink\" href=\"http://tf.nist.gov/service/its.htm\">http://tf.nist.gov/service/its.htm</a><!-- m -->\n\nThis software is provided by the US Gov. I don\'t know if it is limited to US time zones or not.\n\nJames','',0,'gA==','3iwlwxde',1,0,'',303,0,0),(42816,9017,3,303,0,'72.220.100.171',1196431647,1,0,1,1,1,0,'','','Vilian,\n\nIf you are not using ADS, then there are two libs you should not be linking into you app. RDDADS.LIB and ACE32.LIB.\n\nJames','',0,'gA==','1j7n4ak7',1,0,'',303,0,0),(42817,9022,6,39,0,'190.95.11.156',1196433050,1,0,1,1,1,0,'','[ Off Topic ] Necesito Desarrollador','Hola,\n\nNecesito si alguien ha hecho interfaz entre xmlsec y harbour,  o si alguien puede hacerlo, al llegar a acuerdo sobre valores se cancelaria al entregar el trabajo.\n\nFavor contactarse a lautaro.moreira at gmail.com\n\n\nGracias\n\nLautaro Moreira','',0,'gA==','1mtvkh5o',1,0,'',39,0,0),(42818,9023,6,542,0,'80.30.45.31',1196434005,1,0,1,1,1,0,'','Consulta de PREVIEW','Hola otra vez:\n\nEstoy haciendo un reporte con PREVIEW y cuando entra en el PREVIEW quita el menu que esta en este momento y pone en la primera linea el menu principal, hay alguna manera de quitar este menu.\n\nGracias','',0,'gA==','27wkrjxj',1,0,'',542,0,0),(42819,8989,3,303,0,'72.220.100.171',1196434228,1,0,1,1,1,0,'','','&gt;There are no viruses in Linux neither in Mac OSX !!!\n\nAccording to Google searches, there are viruses on both OSs. One reason there are fewer viruses is that there are fewer copies of those OSs running. This makes it less attractive to virus creators. Ironically, if those OSs become more popular due to the fact that they have less viruses, then the virus creators will create more viruses for them.\n\nNote too, that there are a lot more Windows programmers than Linux or OSX programmers. Thus there are a lot more programmers with the skills to write viruses for Windows. \n\nAlso, the number of viruses for a particular OS does not mean much. What one needs to compare is percentages. The best comparison would be the percent infection of each OS.\n\n&gt;remember that these are the result of hackers causing billions of dollars of damage to computers throughout the world. \n \n&gt;I don\'t agree with you. Viruses are the result of a weakly designed operating system.\n\nOf course, you are both right. Viruses are created by evil people and they will target weaker OSs because it is easier and they will also target the OSs most widely in use because they can do the most damage (or make the most money) from them.\n\nMicrosoft does have a legacy predicament. Windows was built on DOS and both were designed when PC\'s were not connected thus there was no need for security. Linux was based on UNIX which was designed from the start as a network OS. I\'m not sure about Apple\'s OS.\n\nSo, Microsoft can only try to gradually modify the existing Windows OS to add network security and at the same time they have to keep compatibility with existing hardware and software. It would be much easier to write a completely new OS, than to add security to an OS that wasn\'t designed to be secure at the start.\n\n&gt;Microsoft should provide an antivirus for free, because its such a shame the poor security that Windows offer. \n\nI\'m sure they would be criticized for that too. People would say they are acting like a monopoly and trying to put the anti-virus software vendors out of business.\n\nIt is a complex issue.\n\nJames','',0,'gA==','15v3pixg',1,0,'',303,0,0),(42820,8657,12,179,0,'201.217.103.6',1196435679,1,0,1,1,1,1,'','','gracias Antonio\nya los voy a probar muchas gracias x tu ayuda\n\nSaludos\natt','',0,'gA==','34mf2sy5',1,0,'',179,0,0),(42821,9021,6,110,0,'148.168.40.4',1196436147,1,0,1,1,1,1,'','','EL comando Set Filter es traducido a dbsetfilter por el preprocesador de harbour, por lo que es la misma cosa.\n\nSolamente cuando se trabaja con ADS y en modo C/S es que dbsetfilter es la eleccion a escojer. Es esta modalidad es sujerido no usar variables para realizar el filtro, y evitar el uso de variables.\n\nejemplo\ncCod  := \"001\"\ncFiltro := \"COD_NAME=\" + \"\'\"+cCod+\"\'\" \ndbsetfilter( cFiltro, &amp;(cFiltro) ) //optimizado para C/S\n\nsalu2\ncarlos vargas','',0,'gA==','1zrh847y',1,0,'',110,0,0),(42822,8932,6,1201,0,'200.90.17.154',1196436670,1,0,1,1,1,0,'','','De hecho, el resultado de ambas formulas es 27, estoy tratando de ver como debe ser para que te de 16\n <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'gA==','3qvqu08n',1,0,'',1201,0,0),(42823,9017,3,2,0,'87.218.146.139',1196437252,1,0,1,1,1,1,'','','Vilian,\n\n&gt; Unhappyly it did not decide the problem.\n\nDo you get the same error ?','',0,'gA==','3lp4w9m7',1,0,'',2,0,0),(42824,8932,6,1201,0,'200.90.17.154',1196437557,1,0,1,1,1,0,'','','(int((37 +((512 - 448) / <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->) /(512 / <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> + 1) *(512 / 32))\n\n\n\n\nesto si da 16, revisa, que es lo que quieres hacer\n\n\nFelicidad!!!','',0,'gA==','168i79od',1,0,'',1201,0,0),(42825,8997,3,130,0,'84.138.45.248',1196437579,1,0,1,1,1,1,'','','James,\n\nyou can set this parameter in the registry\n\nHKLM\\SYSTEM\\CurrentControlSet\\Services\\W32Time\\TimeProviders\\NtpClient\\SpecialPollInterval\nReg_DWORD\nDezimal\npoll intervall in Seconds (86400 = 1d)','',0,'gA==','25ult9h5',1,0,'',130,0,0),(42826,8975,3,2,0,'87.218.146.139',1196437642,1,0,1,1,1,1,'','','Acwoo,\n\nDo you think that you could provide a small sample to reproduce the error ? thanks!','',0,'gA==','2aokxkzy',1,0,'',2,0,0),(42827,8955,6,228,0,'190.24.208.208',1196437666,1,0,1,1,1,1,'','','Amigo de nuevo gracias por tu pronta respuesta.. Estare al tanto.','',0,'gA==','2zbsjjzx',1,0,'',228,0,0),(42828,9015,6,21,0,'83.61.248.75',1196437669,1,0,1,1,1,1,'','','Hola ADBLANCO,\n\nLa validación debe hacerla aunque no cambie el contenido del get, por lo no que no puedo usar ON CHANGE\n\nGracias por tu respuesta.','',0,'gA==','12ffjh9p',1,0,'',21,0,0),(42829,9015,6,2,0,'87.218.146.139',1196437840,1,0,1,1,1,1,'','','Fernando,\n\nY ese Get puede pasarle el foco a otro control que no sea el botón ?\n\nEl botón se queda con el foco ?','',0,'gA==','1sa3t4fo',1,0,'',2,0,0),(42830,8938,6,1168,0,'84.121.87.247',1196437964,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2r7yg80a]Si, pero el problema es el que comentas, que al estar \"disabled\" no recibe eventos y entonces no se le puede poner un tooltip[/quote:2r7yg80a]\n\nSe me ocurre pensar que cuando un control este disabled, habria que controlar las posiciones del raton a ver si estan sobre un control disabled y si es asi mostra el tooltip de ese control.... Quiza esto habria que organizarlo en la ventana contenedora window/dialog... no se si mexplico.... o quiza lo que digo no tenga sentido...\n\nSaludos','',0,'gA==','2r7yg80a',1,0,'',1168,0,0),(42831,8938,6,2,0,'87.218.146.139',1196438200,1,0,1,1,1,1,'','','Antonio,\n\nSi tiene sentido lo que comentas, lo que ocurre es que no es algo simple de implementar. \n\nY además puede enlentecer el movimiento del ratón, pues constantemente habría que estar comprobando encima de que control está y en que estado está ese control','',0,'gA==','1p0z7ard',1,0,'',2,0,0),(42832,8909,6,1168,0,'84.121.87.247',1196438357,1,0,1,1,1,0,'','','[quote=&quot;JmGarcia&quot;:vge0lyb7]up...\n\n¡¡¡ Socorro !!![/quote:vge0lyb7]\n\nYo lo intentaria con el activex para M.Outlook','',0,'gA==','vge0lyb7',1,0,'',1168,0,0),(42833,8938,6,1168,0,'84.121.87.247',1196438671,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:22jzv9f3]Antonio,\n\nSi tiene sentido lo que comentas, lo que ocurre es que no es algo simple de implementar. \n\nY además puede enlentecer el movimiento del ratón, pues constantemente habría que estar comprobando encima de que control está y en que estado está ese control[/quote:22jzv9f3]\n\nAntonio, gracias por tu atencion. \nProbablemente solo tendria sentido implementarlo si:\n1. Hubiera una mayor demanda de gente que lo pidiera... y parece que no es el caso; parece que la gente no lo necesita...\n2. Implementarlo de manera muy \"fina\" para evitar ralentizaciones.\n\nSaludos','',0,'gA==','22jzv9f3',1,0,'',1168,0,0),(42834,9024,6,1168,0,'84.121.87.247',1196438762,1,0,1,1,1,0,'','Hardcopy','Hola a todos,\n\nAlguna manera de que el ::Hardcopy() muestre el titulo de la ventana que imprima ?\n\nSaludos','',0,'gA==','3qx5yfc3',1,0,'',1168,0,0),(42835,8997,3,303,0,'72.220.100.171',1196439074,1,0,1,1,1,0,'','','Stefan,\n\nThanks for the tip. Nice.\n\nJames','',0,'gA==','1uhbqrm2',1,0,'',303,0,0),(42836,9025,3,234,0,'209.113.164.218',1196439641,1,0,1,1,1,1,'','Setting paper size','I am having a problem setting the paper size for a 12\" document for a dot matrix printer using the following code. The first page prints fine but it does not feed properly to the next form. I have tried PrnSetSize(nWid, nLen ) as well with no luck.\n\nnWid := ROUND( 8.5 * 254, 0)\nnLen := ROUND( 12  * 254, 0)\n\nPRINT oPrinter FROM USER NAME \"Air WayBill: \"\n\nif empty( oPrinter:hDC )\n   return nil\nendif\n\noPrinter:SetSize( nWid, nLen )\n\n.\n.\n.\n\n// Done...\nnWid := ROUND( 8.5 * 254, 0)\nnLen := ROUND( 11  * 254, 0)\noPrinter:SetSize( nWid, nLen )\n\nENDPRINT','',0,'gA==','d2enwqap',1,0,'',234,0,0),(42837,9026,4,394,0,'207.219.124.134',1196440963,1,0,1,1,1,0,'','Advantage Data Base Server','Can I use ads local and server with fivewin for pocket pc.','',0,'gA==','3pz4cb75',1,0,'',394,0,0),(42838,8994,3,2,0,'87.218.146.139',1196441247,1,0,1,1,1,1,'','','Maurilio,\n\nThis is a working solution. Maybe there is a simpler code for it, but we haven\'t found it yet. The advantage of this system is that you can choose the border color and thickness:\n[code:2go7i7u3]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oGet, cTest &#58;= Space&#40; 20 &#41;\n\n   DEFINE DIALOG oDlg \n\n   @ 2, 2 GET oGet VAR cTest SIZE 80, 10 NOBORDER\n\n   oGet&#58;bPainted = &#123; || PaintBorder&#40; oGet, oDlg &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\nfunction PaintBorder&#40; oGet, oDlg &#41;\n\n   local aPoint1 &#58;= &#123; -1, -1 &#125;\n   local aPoint2 &#58;= &#123; oGet&#58;nHeight, oGet&#58;nWidth &#125;\n   \n   aPoint1 = ClientToScreen&#40; oGet&#58;hWnd, aPoint1 &#41;\n   aPoint1 = ScreenToClient&#40; oDlg&#58;hWnd, aPoint1 &#41;\n   aPoint2 = ClientToScreen&#40; oGet&#58;hWnd, aPoint2 &#41;\n   aPoint2 = ScreenToClient&#40; oDlg&#58;hWnd, aPoint2 &#41;\n   \n   WndBox&#40; oDlg&#58;GetDC&#40;&#41;, aPoint1&#91; 1 &#93;, aPoint1&#91; 2 &#93;, aPoint2&#91; 1 &#93;, aPoint2&#91; 2 &#93; &#41;\n   oDlg&#58;ReleaseDC&#40;&#41;\n   \nreturn nil\n[/code:2go7i7u3]\n[url=http&#58;//imageshack&#46;us:2go7i7u3][img:2go7i7u3]http&#58;//img520&#46;imageshack&#46;us/img520/3812/flathu6&#46;png[/img:2go7i7u3][/url:2go7i7u3]','',0,'GIA=','2go7i7u3',1,0,'',2,0,0),(42839,9027,6,542,0,'80.30.45.31',1196442248,1,0,1,1,1,0,'','quitar boton','Hola:\n\nComo podria quitar el boton que aparece en la barra de tareas de la ventana principal de la aplicación sin quitar o ocultar esta.\n\nUn saludo\n\nCarlos','',0,'GIA=','1v5k801l',1,0,'',542,0,0),(42840,8989,3,34,0,'68.5.217.82',1196442707,1,0,1,1,1,1,'','Viruses and Vista','Antonio,\n\nYes, there are viruses aimed at MacIntosh.  Mac has never had a large installed base because there simply was not a large enough pool of software on the shelves that provided businesses with office solutions.  Now that Macs are running Windows applications, you can look for sales to increase.  You can also look for viruses to increase.\n\nThe criminal mind says \"if I can do it, then its OK\".  I\'m sure you have glass windows on your house.  If a criminal breaks into your house and steals everything of value, is it your fault because you had windows which could be penetrated ?  I think you would hold the criminal accountable.  Hackers are no different.  They have no business destroying the computers of other people.  Its not their property.  Making excuses that the security is weak doesn\'t make it OK.\n\nJames point is extremely important.  Much of the problem with enhancing security is the need to make the OS backward compatible.  That leaves holes which can be penetrated.  Also the system is so massive that surely problems will exist.  Nothing in life is perfect, and it doesn\'t matter how many bright people come together to create it !\n\nVista is the most secure windows out there.  THe price of the Microsoft anti-malware solution is so low its almost free.  However, nothing will ever stop the criminal mind from trying to break in.\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GIA=','2pqx01h5',1,0,'',34,0,0),(42841,9026,4,2,0,'87.218.146.139',1196443462,1,0,1,1,1,1,'','','Mike,\n\nAs far as we know there is no an Advantage DLL for Pocket PC.\n\nYou may ask Advantage tech support to confirm it, thanks','',0,'GIA=','bnoiyja1',1,0,'',2,0,0),(42842,9023,6,542,0,'79.144.216.205',1196443528,1,0,1,1,1,0,'','','Hola de nuevo:\nSigo investigando y lo que hace al crearme el PREVIEW es crear una nueva ventana maximizada y le incorpora el menu principal y la barra de botones, me podrias indicar si sabeis como se puede quitar el codigo es:\n\nDEFINE FONT oFont1 NAME \"LUCIDA CONSOLE\" SIZE 0, -12 BOLD\nDEFINE FONT oFont2 NAME \"LUCIDA CONSOLE\" SIZE 0, -9\nPrinterSetup()\nif opci14 = 2\n  REPORT oReporte TITLE \"L I S T A D O   D E   E M P R E S A S\" CENTER ;\n    HEADER \"Empresa : \" + empr, \"Nombre : \" + trim(momb), \" \" LEFT ;\n    FOOTER \" \", \"Fecha : \" + dtoc( datita ), \"Página: \" + STR( oReporte:nPage,10) RIGHT ;\n    FONT oFont1, oFont2 FROM USER\nelse\n  REPORT oReporte TITLE \"L I S T A D O   D E   E M P R E S A S\" CENTER ;\n    HEADER \"Empresa : \" + empr, \"Nombre : \" + trim(momb), \" \" LEFT ;\n    FOOTER \" \", \"Fecha : \" + dtoc( datita ), \"Página: \" + STR( oReporte:nPage,10) RIGHT ;\n    FONT oFont1, oFont2 ;\n    PREVIEW MODAL CAPTION \"Listado Empresas\" FROM USER\nendif\n  COLUMN TITLE \"Número\"            DATA numero                                  SIZE  6 FONT 2\n  COLUMN TITLE \"Apellidos, Nombre\" DATA apellidos+ \",\"+ nombre                  SIZE 53 FONT 2\n  COLUMN TITLE \"N.I.F.\"            DATA cif                                     SIZE  9 FONT 2\n  COLUMN TITLE \"Dirección\"         DATA cladir + \" \" + direccion + \" \" + numdir SIZE 34 FONT 2\n  COLUMN TITLE \"Teléfono\"          DATA Telefono                                SIZE  9 FONT 2\n  COLUMN TITLE \"Teléfono\"          DATA Telefono2                               SIZE  9 FONT 2\n  COLUMN TITLE \"Fax\"               DATA fax                                     SIZE  9 FONT 2\n  COLUMN TITLE \"\"                  DATA \"\"                                      SIZE  0 FONT 1\nEND REPORT\nACTIVATE REPORT oReporte while !eof()\noFont1:End()\noFont2:End()\n\nopci14 determina si desea vista previa o no.\nun saludo','',0,'GIA=','1ggrj9kf',1,0,'',542,0,0),(42843,9027,6,2,0,'87.218.146.139',1196443627,1,0,1,1,1,1,'','','Carlos,\n\nTe refieres a la barra inferior de la pantalla principal de Windows ?','',0,'GIA=','2m6n811y',1,0,'',2,0,0),(42844,9023,6,2,0,'87.218.146.139',1196443753,1,0,1,1,1,1,'','','Carlos,\n\nPuedes quitarle el menu y la barra de botones, modificando el código de source\\classes\\rpreview.prg','',0,'GIA=','tuic6nup',1,0,'',2,0,0),(42845,9027,6,542,0,'79.144.216.205',1196444313,1,0,1,1,1,0,'','','Hola Antonio\n\nSi me refiero a la barra de tareas de windows la que esta a la derecha del boton de inocio.\n\nen la otra pregunta que he realizado la del PREVIEW cuando cambie en \nsource\\classes\\rpreview.prg este archivo el tpreview.prg le tendria que incluir como un fuente más o como incluiria la modificacion, perdona la pregunta si es muy tonta pero me atasco mucho.\n\nUn saludo\n\nCarlos','',0,'GIA=','3pzjghmz',1,0,'',542,0,0),(42847,9029,6,801,0,'201.3.106.16',1196444603,1,0,1,1,1,0,'','Setar Coluna no xBrowse = SetArray(aCols, .T.)','Ola a todos !\n\nComo setar a coluna no xBrowse, usando o \noBrw:SetArray( aCols , .T. ) , aparecendo o bipmap ascentende ou descendente nao na primeira coluna, mas na 5, vamos supor !\n\ndesde ja agradeco: MUITO OBRIGADO !!!\n\n\nGilberto Frohlich - Toledo/PR/BRAZIL','',0,'GIA=','3r2k7d11',1,0,'',801,0,0),(42848,9017,3,267,0,'201.9.121.243',1196444656,1,0,1,1,1,1,'','','Antonio,\n\nThe error message is the same one:\n\n[code:qzo87why]Turbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'AdsCloseCachedTables\' referenced from C&#58;\\XHB\\LIB\\RDDADS&#46;LIB|adsfunc\n[/code:qzo87why]\n\nOne will detail interesting that I observed is that in the installation of xHarbour that comes with FWH 7.11 does not have the Ace32.lib archive.','',0,'AIA=','qzo87why',1,0,'',267,0,0),(42849,9030,6,53,0,'189.139.24.63',1196447198,1,0,1,1,1,1,'','Archivo de Windows','Amigos:\n\nEn una aplicación montada en una red P2P hago referencia a un fichero que esta en la carpeta System32 de Windows (C:\\Windows\\System32) de la PC que hace las veces de servidor con GetSysDir()´mas el nombre del fichero.\n\nSi cargo la aplicación desde el servidor todo bien hace la referencia correcta con GetSysDir() pero si cargo la aplicación en una terminal la referencia la hace al System32 pero del DD de la pc terminal y yo necesito referenciar al servidor.\n\nSaludos y gracias por el apoyo','',0,'AIA=','2hfynodj',1,0,'',53,0,0),(42850,9015,6,21,0,'83.61.248.75',1196447997,1,0,1,1,1,1,'','','Antonio,\n\nEl get no pas el foco al botón. Hay una serie de get\'s en cadena y al intro el foco va cambiando de un get a otro, ejecutando el valid del get que abandona y pasando el foco al get nuevo, y eso funciona sin problemas.\n\nEn la misma ventana hay un boton que al pulsarlo con el ratón hace una determinada tarea. Pues bien cuando con el ratón pulsan en el boton ejecuta el valid del get donde se encontraba el foco y si este contiene mensajes msgrun, no realiza la tarea del boton. Ejecuta el valid y el foco vuelve al mismo get.\nSi el get no contiene mensajes msgrun, ejecuta el valid y posteriormente a tarea enconmendada al action del boton que han pulsado con el ratón.\n\nGracias por vuestras respuestas, espero haberlo aclarado algo.','',0,'AIA=','3mhsrluo',1,0,'',21,0,0),(42851,9015,6,21,0,'83.61.248.75',1196448781,1,0,1,1,1,1,'','','Antonio,\n\nDentro de samples esta el prg dbf01.prg, bien pues para reproducirlo sólo hay que colocar un valid al primer get\'s que se visualiza:\n\n[code:1l5sdcsw]      REDEFINE GET oDbf&#58;First ID ID_NAME OF oDlg UPDATE ;\n      MESSAGE &quot;Please type here the first name of the customer&quot; ;\n      Valid ps_tt&#40;&#41;\n\nstatic func ps_tt&#40;&#41;\nlocal i, j &#58;= 1\nmsgrun&#40;\'hola\', \'hola\', &#123;|| i&#58;= j +1&#125; &#41;\nreturn &#46;T&#46;\n[/code:1l5sdcsw]\n\nDe esta forma al entrar en la ventana el foco está en el primer get. Ahora intentamos pulsar con el ratón en botón \"next\" y la primera vez que se pulsa el botón no salta de registro.','',0,'AIA=','1l5sdcsw',1,0,'',21,0,0),(42852,8994,3,217,0,'200.159.120.34',1196448931,1,0,1,1,1,0,'','','Thanks a lot, Antoio!!!\nWhere can I define border color? \nI think paint blue or red obligatory fields to user get a visual reference.\n\nRegards!\nMaurilio','',0,'AIA=','1ajqzg12',1,0,'',217,0,0),(42853,8994,3,2,0,'87.218.146.139',1196452429,1,0,1,1,1,1,'','','Maurilio,\n\n&gt; Where can I define border color? \n\nPlease review the source code of WndBox() in source\\function\\wndboxes.c\n\nYou could easily implement your own border drawing function with the desired colors and thickness','',0,'AIA=','d3qolc6w',1,0,'',2,0,0),(42854,9017,3,2,0,'87.218.146.139',1196452669,1,0,1,1,1,1,'','','Vilian,\n\n&gt; does not have the Ace32.lib archive\n\nThats because you have to create that library yourself from the used ACE32.dll:\n\nimplib.exe Ace32.lib Ace32.dll','',0,'AIA=','1wcef8uj',1,0,'',2,0,0),(42855,9017,3,2,0,'87.218.146.139',1196453025,1,0,1,1,1,1,'','','Vilian,\n\nTry it this way:\n[code:22d9e9iw]\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt;\n\nvoid pascal AdsCloseCachedTables&#40; void &#41; \n&#123;\n   MessageBox&#40; 0, &quot;inside AdsCloseCachedTables&quot;, &quot;ok&quot;, 0 &#41;;\n&#125; \n\n#pragma ENDDUMP\n[/code:22d9e9iw]','',0,'AIA=','22d9e9iw',1,0,'',2,0,0),(42856,9027,6,2,0,'87.218.146.139',1196453242,1,0,1,1,1,1,'','','Carlos,\n\nSi, una vez modifiques rpreview.prg, lo compilas y lo enlazas como si fuese otro PRG más de tu aplicación','',0,'AIA=','12n9whcx',1,0,'',2,0,0),(42857,8994,3,217,0,'200.159.120.34',1196453538,1,0,1,1,1,0,'','','Thanks a lot again, Antonio!\n\nRegards\nMaurilio','',0,'AIA=','3kcqs6gd',1,0,'',217,0,0),(42858,9015,6,2,0,'87.218.146.139',1196454782,1,0,1,1,1,1,'','','Fernando,\n\nPrueba así <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:lq3cnb55]\nstatic func ps_tt&#40;&#41; \nlocal i, j &#58;= 1 \nlocal h &#58;= GetFocus&#40;&#41;\nmsgrun&#40;\'hola\', \'hola\', &#123;|| i&#58;= j +1&#125; &#41; \nif GetClassName&#40; h &#41; == &quot;Button&quot;\n   PostMessage&#40; h, FM_CLICK &#41;\nendif   \nreturn &#46;T&#46; \n[/code:lq3cnb55]','',0,'AIA=','lq3cnb55',1,0,'',2,0,0),(42859,9024,6,2,0,'87.218.146.139',1196455157,1,0,1,1,1,1,'','','Antonio,\n\nEl método HardCopy() usa la función en C WNDPRINT() en source\\winapi\\wndprint.c. \n\nEn esa función sólo hay que cambiar estas líneas:\n   HDC  hDC      = GetDC( hWnd );\n   ...\n   GetClientRect( hWnd, &amp;rct );\n\npor\n\n   HDC  hDC      = GetWindowDC( hWnd );\n   ...\n   GetWindowRect( hWnd, &amp;rct );  \n\npara que imprima la ventana completa, incluida su título.','',0,'AIA=','cjo6vafs',1,0,'',2,0,0),(42860,9031,3,51,0,'80.122.88.242',1196457402,1,0,1,1,1,0,'','FiveWin Visual IDE','// FiveWin Visual IDE\n// (c) FiveTech 1993-2000\nToday I had a look at FW Visual.\nThe prg-files I have are from 2001 and older. Is someone still working on this IDE?\n\nRegards,\nOtto','',0,'AIA=','n52uf69e',1,0,'',51,0,0),(42861,9017,3,267,0,'201.9.211.167',1196458786,1,0,1,1,1,1,'','','Antonio,\n\nNow it´s fine. Thank you','',0,'AIA=','1chsczr4',1,0,'',267,0,0),(42862,9032,3,34,0,'68.5.217.82',1196458932,1,0,1,1,1,1,'','Saving an array','I can write a function to do this, but why re-invent the wheel if it exists.\n\nIs there a function to save the data contained in the elements of an array to a database [b:2278gjta]field[/b:2278gjta] ?  I\'m using DBFCDX and ADS.','',0,'QA==','2278gjta',1,0,'',34,0,0),(42863,9031,3,2,0,'87.218.146.139',1196460568,1,0,1,1,1,1,'','','Otto,\n\nNo, we are not currently working on it. Anyhow, its code its quite interesting to be reviewed for learning purposes.\n\nWe plan to resume our IDE development once we have completed FiveLinux and FiveMac development, so we get the right knowledge to develop a multiplatform IDE','',0,'QA==','2684v37d',1,0,'',2,0,0),(42864,9030,6,78,0,'190.43.180.11',1196460686,1,0,1,1,1,0,'','','Hi Maese\nprueba asi:\n\ncControl := \"\\\\SERVER\\WINDOWS\\SYTEM32\\ARCHIVO.XXX\"\n\nIf !FILE(cControl)\n   Return(Nil)\nEndIF\n...\n...\n\nDonde \"SERVER\" es el nombre de la PC que hace de servidor... eso funcionara desde cualquier otra pc, siempre i cuando esa carpeta del servidor (system32) este compartida..\n\nSalu2','',0,'QA==','20bjtvkf',1,0,'',78,0,0),(42865,9031,3,35,0,'65.188.6.143',1196463124,1,0,1,1,1,0,'','Dear Santa ..','Antonio\n\nI just wish someone would come up with a 32 bit ( .rc ) resource editor. ALL I want for Christmas is just a 32 bit clone of Borlands Resource Workshop  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nI really don\'t care about an IDE ( although there are those that do ) .. and I prefer to write my own code ( thank you ) not have a class code generator and complicated palate properties .. \n\nI have asked Santa .. and he agrees I am DEFINITLY on the \'good list\' ..\n\nHappy Holidays !!\nRick Lipkin\nSC Dept of Health, USA','',0,'QA==','1j9mpznv',1,0,'',35,0,0),(42866,9031,3,171,0,'71.233.232.238',1196463960,1,0,1,1,1,0,'','','I agree with Rick a \"32 bit clone of Borlands Resource Workshop\" would *ideal*\n\nRegards,\n\nGeorge','',0,'QA==','2ewwg2ng',1,0,'',171,0,0),(42867,9031,3,2,0,'87.218.146.139',1196464441,1,0,1,1,1,1,'','','Rick, George,\n\nBut what problem do you have with Borland Resources Workshop ? \n\nIts 16 bits but it works fine.','',0,'QA==','2qu7dqvo',1,0,'',2,0,0),(42868,9031,3,35,0,'65.188.6.143',1196465364,1,0,1,1,1,0,'','','Antonio\n\nI agree that Borlands Resource Workshop is ( currently ) working under Vista x86 ( not x64 ) .. but that was not early on as Vista RTM was released. Only within the past 6 months ( or so ) has Microsoft made some compatability changes.\n\nI would like to see just a lightweight resource editor that can create ( header free ) .rc files or work from 32 bit .dll .. currently Borland\'s resource workshop can not work with 32 bit .dll\'s .. not that it is a big deal since I work in .rc.\n\nI could care less about an icon editor or other frills nor do I want it to generate code .. just a clean header free  ( text ) .rc and formated correctly !!\n\nRick Lipkin','',0,'QA==','21ujej8i',1,0,'',35,0,0),(42869,8994,3,303,0,'72.220.100.171',1196465490,1,0,1,1,1,0,'','','Maurilio,\n\n&gt;I think paint blue or red obligatory fields to user get a visual reference. \n\nI show the background color of the GET as pink if the field is required and empty, and yellow if the field contains questionable data.\n\nYou may note that Microsoft has starting doing something simlar--the address field in IE is green when the site is safe.\n\nJames','',0,'QA==','3ivjtrn8',1,0,'',303,0,0),(42870,9025,3,303,0,'72.220.100.171',1196465965,1,0,1,1,1,0,'','','Darell,\n\nIt may be that the printer driver doesn\'t support the paper size you are trying to use. See the old message below. I don\'t know if there is a solution if the driver doesn\'t support it.\n\nRegards,\nJames\n\n[quote:109bbjdg]\"Richard Huang\" &lt;richard@easysend.com.tw&gt; ha scritto nel messaggio\nnews:3a19d333@servidor3a.dimasoft.es...\n&gt; Hi FiveWin users:\n&gt;\n&gt;     I want to End-users input any papers length and width.Cause them have many report forms.How to convert to correct position?\n&gt;\n&gt; Richard Huang\n&gt; <!-- e --><a href=\"mailto:richard@easysend.com.tw\">richard@easysend.com.tw</a><!-- e -->\n&gt; <!-- e --><a href=\"mailto:richard@fivetech.net\">richard@fivetech.net</a><!-- e -->\n&gt; <!-- m --><a class=\"postlink\" href=\"http://taiwan.fivetech.net\">http://taiwan.fivetech.net</a><!-- m -->\n&gt; ICQ:70552246\n\n\nFrom: Marco Turco &lt;info@mmdata.net&gt;\nSubject: Re: How to setup paper length and width?\nDate: Wednesday, November 22, 2000 11:06 AM\n\nTry this ...\n\nfunction UserFormat()\n\noPrn:=PrintBegin(\"\",.f.,.T.)\noPrn:SetPortrait()\naa:=oPrn:GetPhysize()\nold1:=round(aa[1],0) &amp;&amp; actual value\nold2:=round(aa[2],0) &amp;&amp; actual value\n\nx1:=old1\nx2:=old2\n\nDimUtente() &amp;&amp; request the new format\n\noPrn:SetSize(x1*10,x2*10) &amp;&amp; setting the new format\n\naa:=oPrn:GetPhysize() &amp;&amp; verify that the driver support it\nnew1:=round(aa[1],0)\nnew2:=round(aa[2],0)\n\nif new1&lt;&gt;x1 .or. new2&lt;&gt;x2 &amp;&amp; if not supported retrive the old value\n    errore(10,10,183)\n    oPrn:SetSize(old1*10,old2*10)\nendif\noPrn:End()\n\n\nFUNCTION DimUtente()\n    DEFINE DIALOG oDlg1 FONT oGenFont RESOURCE \"DIALOG_303\"\n\n    REDEFINE GET x1 ID 101 of oDlg1 picture \"@k 999\" &amp;&amp; enter 210 for A4\n    REDEFINE GET x2 ID 102 of oDlg1 picture \"@k 999\" &amp;&amp; enter 297 for A4\n\n        REDEFINE BUTTON ID 105  OF oDlg1         ;\n            ACTION (oDlg1:End())\n\n        REDEFINE BUTTON ID 106  OF oDlg1         ;\n            ACTION oDlg1:End()\n\n    ACTIVATE DIALOG oDlg1 centered\n\n\n\n\n\n\n\n\nHi\n\nThanks for your reply.But How do I convert to paper size to\n\noPrn:SetSize()?How do I print position form(Ex.1234567890)?Could you please give me sample file how to make it?Thank you.\n\nBest Regards\nRichard Huang\n<!-- e --><a href=\"mailto:richard@easysend.com.tw\">richard@easysend.com.tw</a><!-- e -->\n<!-- e --><a href=\"mailto:richard@fivetech.net\">richard@fivetech.net</a><!-- e -->\n<!-- m --><a class=\"postlink\" href=\"http://taiwan.fivetech.net\">http://taiwan.fivetech.net</a><!-- m -->\nICQ:70552246\n\n----- Original Message -----\n\nFrom: \"MMDATA INFORMATICA\" &lt;INFO@MMDATA.NET&gt;\nTo: &lt;richard@easysend.com.tw&gt;\nSent: Wednesday, November 22, 2000 2:16 AM\nSubject: Re: How to setup paper length and width?\n\n\n\n&gt; I use oPrn:SetSize, so I can support all format,\n&gt; after setting I use oPrn:GetPhysize (it return the actual paper size) to\n&gt; verify that the printer driver\n&gt; supports the new format.\n&gt; RGDS\n&gt; MMDATA INFORMATICA\n&gt; Marco Turco\n&gt; <!-- w --><a class=\"postlink\" href=\"http://www.mmdata.net\">www.mmdata.net</a><!-- w -->\n&gt; <!-- e --><a href=\"mailto:info@mmdata.net\">info@mmdata.net</a><!-- e -->\n\n&gt;\n\n&gt; \"Richard Huang\" &lt;richard@easysend.com.tw&gt; ha scritto nel messaggio\n\n&gt; news:&lt;3a19d333@servidor3a.dimasoft.es&gt;...\n\n&gt; &gt; Hi FiveWin users:\n&gt; &gt; I want to End-users input any papers length and width. Cause them have many report forms.How to convert to correct position?\n&gt; &gt;\n&gt; &gt; Richard Huang\n&gt; &gt; <!-- e --><a href=\"mailto:richard@easysend.com.tw\">richard@easysend.com.tw</a><!-- e -->\n&gt; &gt; <!-- e --><a href=\"mailto:richard@fivetech.net\">richard@fivetech.net</a><!-- e -->\n&gt; &gt; <!-- m --><a class=\"postlink\" href=\"http://taiwan.fivetech.net\">http://taiwan.fivetech.net</a><!-- m -->\n&gt; &gt; ICQ:70552246[/quote:109bbjdg]','',0,'gA==','109bbjdg',1,0,'',303,0,0),(42871,9031,3,343,0,'24.173.70.29',1196466343,1,0,1,1,1,0,'','','Patrick Fan is still updating Visual Fivewin.\n[url:2gwg37w3]http&#58;//www&#46;geocities&#46;com/ksfanhk/freeware&#46;htm#difference[/url:2gwg37w3]\n\nI have not tried his modifications.','',0,'EA==','2gwg37w3',1,0,'',343,0,0),(42872,9032,3,303,0,'72.220.100.171',1196466344,1,0,1,1,1,0,'','','Tim,\n\nHere is one. I haven\'t tried it.\n\nRegards,\nJames\n\n[code:uk16i1nk]From&#58; &quot;Luis Krause Mantilla&quot; &lt;luis_krause@hotmail&#46;com&gt;\nSubject&#58; Re&#58; Flexfile III\nDate&#58; Wednesday, December 22, 2004 6&#58;19 PM\n\nColin\n\nThe 32 dll\'s &#40;or whatever it was&#41; from FF3 are unfinished and don\'t\nwork&#46;  I spend several days trying to make it work, but I realized\nI was just wasting my time&#46;\n\nBecause I only stored text and arrays in FF2 &#40;I didn\'t use FF3&#41;,\nDBFCDX or ADS will work just fine&#46;\n\nFor storing arrays in xHarbour, usind ADS, I just created a function\nto &quot;stringify&quot; the array before storing it in the memo field, and\na simple macro evaluation from the memo to get the array back&#46;\n\nIf you use the V_xxx&#40;&#41; functions, you\'ll also have to work your\nway around this, but it won\'t be that difficult&#46;\n\nSo far it\'s been more than I year since we\'ve been using our app\nwith xHarbour + ADSCDX and we haven\'t missed FF&#46;\n\nThis is the function to convert an array to a string &#40;will work\nwith nested arrays&#41;\n\n* ÉÍÍ¹  Funci¢n  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»\n* º  Nombre     &#58; wfAToC&#40;&#41;                                                   º\n* º  Autor      &#58; C&#46;P&#46; Luis Krause Mantilla                                  º\n* º  Objetivo   &#58; Convierte Arreglo a Cadena para almacenar en campos memo   º\n* º  Fecha      &#58; 31/07/2003                                                 º\n* º  Hora       &#58; 17&#58;38&#58;52                                                   º\n* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶\n* º  Argumentos &#58; aArray                                                     º\n* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶\n* º  Retorna    &#58; cArray                                                     º\n* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼\nFunction wfAToC&#40; aArray &#41;\nLocal nI, nJ, cArray, nLen &#58;= Len&#40; aArray &#41;, cType, cString\n\ncArray &#58;= &quot;&#123;&quot;\nFor nI &#58;= 1 To nLen\n    cType &#58;= ValType&#40; aArray&#91;nI&#93; &#41;\n    If cType == &quot;C&quot; &#46;or&#46; cType == &quot;M&quot;\n       cString &#58;= aArray&#91;nI&#93;\n       // Considerar que la doble comilla puede ser parte de la cadena\n       Do While &#40; nJ &#58;= At&#40; \'&quot;\', cString &#41; &#41; &gt; 0\n          cArray += \'&quot;\' + SubStr&#40; cString, 1, nJ - 1 &#41; + \'&quot;+&#91;&quot;&#93;+\'\n          cString &#58;= SubStr&#40; cString, nJ + 1 &#41;\n       Enddo\n       cArray += \'&quot;\' + cString + \'&quot;\'\n    Elseif cType == &quot;N&quot;\n       cArray += LTrim&#40; Str&#40; aArray&#91;nI&#93; &#41; &#41;\n    Elseif cType == &quot;D&quot;\n       cArray += &quot;SToD&#40;&quot; + DToS&#40; aArray&#91;nI&#93; &#41; + &quot;&#41;&quot;\n    Elseif cType == &quot;L&quot;\n       cArray += If&#40; aArray&#91;nI&#93;, &quot;&#46;T&#46;&quot;, &quot;&#46;F&#46;&quot; &#41;\n    Elseif cType == &quot;A&quot;                           // llamada recursiva para\n       cArray += wfAToC&#40; aArray&#91;nI&#93; &#41;             // procesar arreglos anidados\n    #ifdef __XHARBOUR__\n    Elseif cType == &quot;P&quot;                           // Pointer - s¢lo xHarbour\n       cArray += HB_NumToHex&#40; aArray&#91;nI&#93; &#41;\n    Elseif cType == &quot;H&quot;                           // Hash - s¢lo xHarbour; llamada recursiva para\n       cArray += wfAToC&#40; aArray&#91;nI&#93; &#41;             // procesar hashes anidados\n    #endif\n    Else                                          // objects &amp; codeblocks can\'t be stored anyway\n       cArray += &quot;NIL&quot;\n    Endif\n    If nI &lt; nLen\n       cArray += &quot;,&quot;\n    Endif\nNext\ncArray += &quot;&#125;&quot;\n\nReturn cArray\n\n\nThis is the one that retrieves the array\n\n* ÉÍÍ¹  Funci¢n  ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»\n* º  Nombre     &#58; wfCToA&#40;&#41;                                                   º\n* º  Autor      &#58; C&#46;P&#46; Luis Krause Mantilla                                  º\n* º  Objetivo   &#58; Convierte Cadena a Arreglo para restaurar de campos memo   º\n* º  Fecha      &#58; 31/07/2003                                                 º\n* º  Hora       &#58; 17&#58;38&#58;52                                                   º\n* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶\n* º  Argumentos &#58; cArray                                                     º\n* ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¶\n* º  Retorna    &#58; aArray                                                     º\n* ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼\nFunction wfCToA&#40; cArray &#41;\nLocal aArray, bArray\n\nIf wfCompile&#40; cArray, &#46;F&#46;, @bArray &#41;             // no queremos mensaje si truena\n    aArray &#58;= Eval&#40; bArray &#41;\nEndif\nIf ! ValType&#40; aArray &#41; == &quot;A&quot;                    // par metro no proporcionado o\n    aArray &#58;= &#123;&#125;                                  // error al intentar convertir\nEndif\n\nReturn aArray\n\n\nReplace wfCompile&#40;&#41; for you function that will test and trap\na possible error, i&#46;e&#46; Eval&#40; &amp;&#40; &quot;&#123;||&quot; + cArray + &quot;&#125;&quot; &#41; &#41;\n\nHTH&#46;\n\nColin Wisbey wrote&#58;\n&gt; I am a FW &#40;16 bit&#41; user and have delayed going 32 bit due to extensive use\n&gt; of Flexfile functions in all my current apps&#46; I love Flexfile&#46; ADS doesn\'t\n&gt; suit my needs and I want to avoid using traditional memo fields if at all\n&gt; possible&#46;\n&gt; \n&gt; I had the impression that Flexfile was not available for 32 bit but I just\n&gt; discovered that GrafX currently sell Flexfile III, including 32 bit&#46;\n&gt; \n&gt; Is anyone using it with xHarbour? If so, I\'d be grateful for any feedback on\n&gt; reliability etc in the 32 bit environment&#46;\n&gt; \n&gt; &#40;I\'ve already emailed Grafx too and am awaiting their reply&#41;\n&gt; \n&gt; TIA\n&gt; Colin Wisbey\n&gt; \n&gt; \n\n-- \nLuis Krause Mantilla\nlkrausem at shaw dot ca\nluis_krause at hotmail dot com\n&quot;May the Source be with GNU&quot;[/code:uk16i1nk]','',0,'AIA=','uk16i1nk',1,0,'',303,0,0),(42873,9025,3,234,0,'68.30.205.41',1196466479,1,0,1,1,1,1,'','','Thank you James.','',0,'AIA=','372wcf1z',1,0,'',234,0,0),(42874,9031,3,35,0,'65.188.6.143',1196466768,1,0,1,1,1,0,'','','Gale\n\nI have seen Patrick\'s site and some nice work there .. the resource editor is not bad ... however I do not want a code generator .. just write out the form to .rc ... is that so difficult to ask ????\n\nRick Lipkin','',0,'AIA=','hylp90kk',1,0,'',35,0,0),(42875,9031,3,171,0,'71.233.232.238',1196467364,1,0,1,1,1,0,'','','Antonio,\n\nIt\'s true Borland WS 16 bit is working fine. For me is the better Resource Editor, but Borland WS is over ten years old and sometimes there are unsolved problems with bitmaps. I mean we need a more modern and current resource editor but with the same features like Borland WS 16 bits.\n\nGeorge','',0,'AIA=','eq5rd6f2',1,0,'',171,0,0),(42876,9032,3,34,0,'68.5.217.82',1196467480,1,0,1,1,1,1,'','Array save','Encoding is the way I anticipated.  I\'m a bit puzzled by the decoding logic ... and Replace comment.','',0,'AIA=','16ngdzc7',1,0,'',34,0,0),(42877,9031,3,34,0,'68.5.217.82',1196468009,1,0,1,1,1,1,'','Resorce editor','I agree ... a newer resource editor is on my wish list also ... but I guess sometimes we don\'t get what we want ....\n\nAlthough Borland\'s product works, I don\'t use it anymore.  I use the Pelles editor to create a new RC, fine tune it by hand, and then place it into my project RC file.  I just encountered far too many problems doing it any other way.  I\'ve tried some other products, but \"no joy\" !\n\nMy problem with the Pelles editor came down to a question of where were the log files stored because my project would auto revert after I made some changes, but after waiting for months, I never got a reply !\n\nOh well ....','',0,'AIA=','mndv7hqs',1,0,'',34,0,0),(42878,9032,3,303,0,'72.220.100.171',1196468156,1,0,1,1,1,0,'','','Tim,\n\nHere is another string to array function. It appears that this only works with single dimension arrays though.\n\nJames\n\n[code:3e7impny]// Convert a string to an array\n// cSeparator is the separator character, defaults to TAB\nfunction string2array&#40;cString,cSeparator&#41;\n   local nCount&#58;=1,aArray&#58;=&#123;&#125;,cToken&#58;=&quot;&quot;\n   default cSeparator&#58;=chr&#40;9&#41;\n   do while &#46;t&#46;\n      cToken&#58;= strToken&#40;cString,nCount,cSeparator&#41;\n      if ! empty&#40;cToken&#41;\n         aadd&#40;aArray,cToken&#41;\n         nCount++\n      else\n         exit\n      endif\n   enddo\nreturn aArray[/code:3e7impny]','',0,'AIA=','3e7impny',1,0,'',303,0,0),(42879,9031,3,303,0,'72.220.100.171',1196468528,1,0,1,1,1,0,'','','I too would like a new resource editor, but now almost everyone is using some type of visual IDE so I would guess there isn\'t much of a market for a plane old resource editor. I think we would have to write one ourselves.\n\nJames','',0,'AIA=','1xzet4sz',1,0,'',303,0,0),(42880,9032,3,34,0,'68.5.217.82',1196468745,1,0,1,1,1,1,'','Array','I\'m only using single dimensional arrays with the module I\'m working on.  I was going to store the array elements plus separators to a string, and then save that value to a memo field.  Since it is only a list, one dimension is all that is needed, and it will be only character data.  Of course I could see expanding the capability, needing to do multi-dimensional arrays, plus numeric and logical values, so I\'ll probably \"build it strong\" to start !','',0,'AIA=','11k1w75a',1,0,'',34,0,0),(42881,9032,3,303,0,'72.220.100.171',1196468954,1,0,1,1,1,0,'','','Tim,\n\nI just found this reference in my notes too. You might want to check into it also.\n\nJames\n\n[quote:3drpvokl]From: \"Ron Pinkas\" &lt;Ron@remove-this.xharbour.com&gt;\nSubject: Re: Array in memo field?\nDate: Thursday, December 02, 2004 9:13 AM\n\n&gt; Is it possible write an array in a memo field with xHarbour or\n&gt; Harbour?\n\nYes, xHarbour has ValToPrg() and ValToPrgExp() which will save ANY TYPE \n(Even Objects) into a String.\n\nRon [/quote:3drpvokl]','',0,'gA==','3drpvokl',1,0,'',303,0,0),(42882,9032,3,34,0,'68.5.217.82',1196469750,1,0,1,1,1,1,'','Arrays','I\'ll have to play with that.  You can use ValToPrgExp( ), and then reverse the result with PrgExpToVal( ).  \n\nI did a search on the xHarbour newsgroup, and a search of the docs, but apparently didn\'t have the keywords to find those.\n\nThanks.\n\nIs it wet enough yet ?','',0,'gA==','oq62p2av',1,0,'',34,0,0),(42883,9031,3,879,0,'70.53.44.62',1196470266,1,0,1,1,1,0,'','','A short time ago I posted a link (A better Resource Editor?) to what I believe is a good [i:3aptj95p][b:3aptj95p]PLAIN OLD[/b:3aptj95p][/i:3aptj95p] resource editor. It does not edit bitmaps nor does it handle .RES files. When first started it defaults to writting styles as numbers but that can be changed in the \"Options\" \"Behaviour\" tab. I am told it is 32 bit application but it has not specifically been tested on Vista. The entire program is contained in a single 234KB EXE. Having never used the Borland Resource Editor, I cannot make a comparison between the two. \n\nThere appears to be a problem downloading the file though. The first time downloading it is very fast, however, the zip file doesn\'t download properly. The second time it takes longer but this time the entire file does download. That was my experience.\n\nAccording to Enrico, he got a very bad GPF when he tried to run it. It may have been caused by the bad download. I have not had any problems using it with Win XP Pro.\n\nI can either email it to anyone or upload it to a common site if instructions are posted as to what I have to do.\n\nKen','',0,'YA==','3aptj95p',1,0,'',879,0,0),(42884,9032,3,303,0,'72.220.100.171',1196470272,1,0,1,1,1,0,'','','Tim,\n\n&gt; You can use ValToPrgExp( ), and then reverse the result with PrgExpToVal( ).\n\nI\'m putting this in my notes. Keep us posted on your progress with this.\n\n&gt;Is it wet enough yet ?\n\nJudging from the water in the cat food dish on our patio, we have had over an inch so far today. Boy do we need it! The cats are not happy though...\n\nJames','',0,'YA==','xxp3e4p5',1,0,'',303,0,0),(42885,9031,3,303,0,'72.220.100.171',1196470573,1,0,1,1,1,0,'','','Ken,\n\n&gt;A short time ago I posted a link (A better Resource Editor?) to what I believe is a good PLAIN OLD resource editor. \n...\n&gt;According to Enrico, he got a very bad GPF when he tried to run it. It may have been caused by the bad download. I have not had any problems using it with Win XP Pro.\n\nI remember your posting but I did not pursue it after hearing of Enrico\'s problem. Perhaps it was only a bad download. \n\n&gt;I can either email it to anyone or upload it to a common site if instructions are posted as to what I have to do.\n\nPlease email me a copy. If anyone else wants it I can put a copy up on my website.\n\nJames','',0,'YA==','1zyscyxr',1,0,'',303,0,0),(42886,9032,3,2,0,'87.218.146.139',1196471532,1,0,1,1,1,1,'','','Tim,\n\nFWH provides:\n\nASave( aArray ) --&gt; cText\n\nARead( cText ) --&gt; aArray\n\nHere you have a sample:\n[code:1ec5t4tb]\nfunction Main&#40;&#41;\n\n   local aInfo &#58;= &#123; &#123; &quot;one&quot;, 1, &#46;T&#46; &#125;, &#123; &quot;two&quot;, 2, &#46;F&#46; &#125;, &#123; &quot;three&quot;, 3, Date&#40;&#41; &#125; &#125;\n   local cText &#58;= ASave&#40; aInfo &#41;\n\n   aInfo &#58;= nil\n\n   aInfo = ARead&#40; cText &#41;\n\n   MsgInfo&#40; Len&#40; aInfo &#41; &#41;\n   MsgInfo&#40; aInfo&#91; 1 &#93;&#91; 1 &#93; &#41;\n   MsgInfo&#40; aInfo&#91; 3 &#93;&#91; 3 &#93; &#41;\n\nreturn nil\n[/code:1ec5t4tb]','',0,'AIA=','1ec5t4tb',1,1196471844,'',2,1,0),(42887,9032,3,303,0,'72.220.100.171',1196471805,1,0,1,1,1,0,'','','Antonio,\n\nASave(), ARead()\n\nI am wondering if these will handle multidimensional arrays too? What about numeric and logical arrays?\n\nJames','',0,'AIA=','wjwfbfe5',1,0,'',303,0,0),(42888,9032,3,2,0,'87.218.146.139',1196471909,1,0,1,1,1,1,'','','James,\n\nYes, they manage all of them. The only limitation is nested arrays.\n\nSee the above little working sample','',0,'AIA=','67uchjf1',1,0,'',2,0,0),(42889,9032,3,34,0,'68.5.217.82',1196472216,1,0,1,1,1,1,'','ASave / ARead','OK Antonio ... you\'re working late again ... go hang with your family !\n\nJames and I are getting our first real rain in quite awhile ... and hopefully it will be short enough to not cause mud slides in the fire areas !\n\nI looked at ASave and ARead in the docs, but I thought it meant it put the names of the arrays into memory, not the values of the array elements.\n\nParameters:  \n &lt;aArray&gt; Array to code.  \n   \nReturns: \n &lt;cInfo&gt; String containing the coded array.  \n \nThanks for the sample.  I asked the question after reading that.','',0,'AIA=','270o753h',1,0,'',34,0,0),(42890,9032,3,303,0,'72.220.100.171',1196472267,1,0,1,1,1,0,'','','Antonio,\n\nNice. Thanks for pointing those functions out and the example.\n\nTim, it looks like these functions are all you need.\n\nJames','',0,'AIA=','2ofgmm4h',1,0,'',303,0,0),(42891,9032,3,2,0,'87.218.146.139',1196472459,1,0,1,1,1,1,'','','Tim,\n\n&gt; OK Antonio ... you\'re working late again ...\n\nYou are right <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nTime to go to bed. Good night my friends <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2eej65la',1,0,'',2,0,0),(42892,9031,3,35,0,'65.188.6.143',1196473043,1,0,1,1,1,0,'','','Ken\n\nI looked at it as well .. and it totally re-formatted the .rc file in a way that was un-recognizable .. every line was a \'control\' and did not use the {} as in this BRW .rc\n\nEMPSUMM DIALOG 46, 33, 198, 156\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_THICKFRAME\nFONT 6, \"MS Sans Serif\"\n{\n LTEXT \"Enter a LOW Date\", -1, 10, 38, 102, 12, SS_LEFT | SS_NOPREFIX | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP\n EDITTEXT 110, 127, 38, 60, 12, WS_BORDER | WS_TABSTOP\n LTEXT \"Enter a HIGH Date\", -1, 10, 53, 102, 12, SS_LEFT | SS_NOPREFIX | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP\n EDITTEXT 114, 127, 53, 60, 12, WS_BORDER | WS_TABSTOP\n LTEXT \"Print or View (P/V)\", -1, 10, 74, 102, 12, SS_LEFT | SS_NOPREFIX | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP\n EDITTEXT 113, 127, 74, 19, 12, WS_BORDER | WS_TABSTOP\n LTEXT \"\", 200, 8, 10, 181, 11, SS_LEFT | SS_NOPREFIX | WS_CHILD | WS_VISIBLE | WS_GROUP\n PUSHBUTTON \"&amp;Run\", 111, 103, 125, 37, 23\n PUSHBUTTON \"&amp;Cancel\", 112, 149, 125, 37, 23\n CONTROL \"\", -1, \"static\", SS_BLACKRECT | WS_CHILD | WS_VISIBLE, 8, 116, 181, 1\n}','',0,'AIA=','2be4irgq',1,0,'',35,0,0),(42893,9031,3,879,0,'70.53.44.62',1196476103,1,0,1,1,1,0,'','','Rick,\n\nYou are right but I have also seen the same format with every line begining with \"Control\" in some of the FWH samples as well. One other item I noted was it listed Dialogs as DIALOGEX. Not sure exactly how that differes compared to DIALOG. \n\nIt does compile with BCC32 with no problems. I have even compiled using styles as numbers with no trouble.\n\nOne problem was if I commented out 1 or more lines, BCC32 would compile correctly and ignore the commented lines but if opened and saved the file in ResEd, it would remove any such lines when the file was saved.\n\nI have requested that comments be allowed but I am not sure it that is possible to do.','',0,'AIA=','33qe7ma7',1,0,'',879,0,0),(42894,9033,18,239,0,'121.33.138.9',1196478425,1,0,1,1,1,0,'','A Way of Treeview  of odlg add item Chinese words','DEFINE FONT ofont1 name \"MS Sans Serif\" SIZE 0,-12 \n\noTree:bChanged = { ||oitem:=otree:getselected(),oitem:add(\"Show Chinesse words&#26174;&#31034;&#27721;&#23383;\")}\notree:setfont(ofont1)\n\n// otree of a dialog, \n\nThis works . \n\nIf font changes to \"arial\" will cause wrong display words . \n\nIf otree of a window or of a  dialog from source code, will work.\n\nShuming Wang','',0,'AIA=','3mvq3xr0',1,0,'',239,0,0),(42895,8975,3,1181,0,'60.49.116.143',1196492462,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for your reply\n\nThe prg: (From c:\\fwh\\samples\\msgdate.prg)\n\nThe make file (bmake):\n\n##############################################################################\n# Template make file for FWH and Borland Make tool                           #\n# Copyright FiveTech 2002                                                    #\n##############################################################################\n\n\n# Make directives ############################################################\n\n.autodepend\n.swap\n.suffixes: .prg .hrb\n# .suffixes: .prg .obj\n\n# Flags for modules to include: YES | NO (must be UPPERCASE)##################\n\nRES_FILE      = NO\nLNK_DBFNTX    = YES\nLNK_DBFCDX    = NO\nLNK_DEBUG     = NO\nLNK_ADVANTAGE = NO\nLNK_ODBC      = NO\nMAP_FILE      = NO\n\n# Application directories &amp; filenames ########################################\n\nAPP_NAME         = setup  # (Your EXE name without extension)\nAPP_PRG_DIR      = .\n# APP_OBJ_DIR      = obj  # (create the app\\obj directory first)\nAPP_OBJ_DIR      = .  # (create the app\\obj directory first)\nAPP_INCLUDE_DIR  = .\nAPP_EXE_DIR      = $(APP_PRG_DIR)\nAPP_RES_DIR      = $(APP_PRG_DIR)\n\nAPP_EXE  = $(APP_EXE_DIR)\\$(APP_NAME).exe\nAPP_RC   = $(APP_RES_DIR)\\$(APP_NAME).rc\nAPP_RES  = $(APP_RES_DIR)\\$(APP_NAME).res\nAPP_MAP  = $(APP_RES_DIR)\\$(APP_NAME).map\n\n# Paths for dependent files ##################################################\n\n.path.prg = $(APP_PRG_DIR)\n.path.hrb = $(APP_OBJ_DIR)\n.path.obj = $(APP_OBJ_DIR)\n\n# Application PRG files (your PRG files go here) #############################\n\n APP_PRG_LIST = \\\n      setup.prg \\\n      vrd.prg \\\n      vrdbcode.prg \\\n      vrdini.prg \\\n      vrditem.prg \\\n      window.prg \\\n      easyprev.prg \n\n#      rc.prg\n# Contruction of the rest dependency lists ###################################\n\nAPP_PRGS = $(APP_PRG_LIST)\n# APP_HRBS = $(APP_PRG_LIST:.prg=.hrb)\nAPP_HRBS = $(APP_PRG_LIST:.prg=.obj)\nAPP_OBJS = $(APP_PRG_LIST:.prg=.obj)\n\n# Fivewin directories ########################################################\n\n#FIVEWIN_INCLUDE_DIR = c:\\fw24\\include\n#FIVEWIN_LIB_DIR     = c:\\fw24\\lib\nFIVEWIN_INCLUDE_DIR = c:\\fwh\\include\nFIVEWIN_LIB_DIR     = c:\\fwh\\lib\n\n# Fivewin libraries ##########################################################\n\n# EASYPREV_LIB  = $(FIVEWIN_LIB_DIR)\\easyprev.lib\n# VRD_LIB  = $(FIVEWIN_LIB_DIR)\\vrd.lib\n# EASYPREVIEW_LIB  = $(FIVEWIN_LIB_DIR)\\easypreview.lib\nFIVE_LIB  = $(FIVEWIN_LIB_DIR)\\fiveH.lib\nFIVEC_LIB = $(FIVEWIN_LIB_DIR)\\fiveHC.lib\n\n# Harbour directories &amp; flags ################################################\n\nHARBOUR_INCLUDE_DIR = c:\\harbour\\include\nHARBOUR_EXE_DIR     = c:\\harbour\\bin\nHARBOUR_LIB_DIR     = c:\\harbour\\lib\n// HARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -m -w -es2 -gc0\nHARBOUR_FLAGS       = -i$(APP_INCLUDE_DIR);$(FIVEWIN_INCLUDE_DIR);$(HARBOUR_INCLUDE_DIR) -n -m -w -es2 -gc0 -w0\nHARBOUR_EXE         = $(HARBOUR_EXE_DIR)\\harbour.exe\n\n# Harbour libraries ##########################################################\n\nRTL_LIB    = $(HARBOUR_LIB_DIR)\\rtl.lib\nVM_LIB     = $(HARBOUR_LIB_DIR)\\vm.lib\nGTWIN_LIB  = $(HARBOUR_LIB_DIR)\\gtwin.lib\nLANG_LIB   = $(HARBOUR_LIB_DIR)\\lang.lib\nMACRO_LIB  = $(HARBOUR_LIB_DIR)\\macro.lib\nRDD_LIB    = $(HARBOUR_LIB_DIR)\\rdd.lib\nDBFNTX_LIB = $(HARBOUR_LIB_DIR)\\dbfntx.lib\nDBFCDX_LIB = $(HARBOUR_LIB_DIR)\\dbfcdx.lib\nDEBUG_LIB  = $(HARBOUR_LIB_DIR)\\debug.lib\nCOMMON_LIB = $(HARBOUR_LIB_DIR)\\common.lib\nPP_LIB     = $(HARBOUR_LIB_DIR)\\pp.lib\n\n# Advantage libraries ########################################################\n\nRDDADS_LIB = $(HARBOUR_LIB_DIR)\\rddads.lib\nACE32_LIB  = $(FIVEWIN_LIB_DIR)\\ace32.lib\n\n# Borlanc directories &amp; flags ################################################\n\nBORLANDC_INCLUDE_DIR = c:\\bcc55\\include\nBORLANDC_EXE_DIR     = c:\\bcc55\\bin\nBORLANDC_LIB_DIR     = c:\\bcc55\\lib\nBORLANDC_COMP_FLAGS  = -c -O2 -I$(HARBOUR_INCLUDE_DIR);$(BORLANDC_INCLUDE_DIR)\nBORLANDC_COMP_EXE    = $(BORLANDC_EXE_DIR)\\bcc32.exe\nBORLANDC_LINK_FLAGS  = -Gn -aa -Tpe -s -I$(APP_OBJ_DIR)\nBORLANDC_LINK_EXE    = $(BORLANDC_EXE_DIR)\\ilink32.exe\nBORLANDC_RES_EXE     = $(BORLANDC_EXE_DIR)\\brc32.exe\n\n!if $(MAP_FILE) != YES\n   BORLANDC_LINK_FLAGS = $(BORLANDC_LINK_FLAGS) -x\n!endif\n\n# Borland libraries &amp; files ##################################################\n\nSTARTUP_OBJ  = $(BORLANDC_LIB_DIR)\\c0w32.obj\nCW32_LIB     = $(BORLANDC_LIB_DIR)\\cw32.lib\nIMPORT32_LIB = $(BORLANDC_LIB_DIR)\\import32.lib\nODBC32_LIB   = $(BORLANDC_LIB_DIR)\\psdk\\odbc32.lib\n\n# Dependencies ###############################################################\n\nall: $(APP_OBJS) $(APP_HRBS) $(APP_EXE)\n\n!if $(RES_FILE) == YES\nall: $(APP_RES)\n!endif\n\n# Implicit Rules #############################################################\n\n.prg.hrb:\n   $(HARBOUR_EXE) $(HARBOUR_FLAGS) $** -o$@\n\n.hrb.obj:\n   $(BORLANDC_COMP_EXE) $(BORLANDC_COMP_FLAGS) -o$@ $**\n\n# Explicit Rules #############################################################\n\n!if $(RES_FILE) == YES\n$(APP_RES) : $(APP_RC)\n   $(BORLANDC_RES_EXE) -r $**\n\n$(APP_EXE) :: $(APP_RES)\n   @if exist $(APP_EXE) del $(APP_EXE) &gt; nul\n!endif\n\n$(APP_EXE) :: $(APP_OBJS)\n#   @echo EASYPREV.LIB + &gt;&gt; make.tmp\n   @echo $(STARTUP_OBJ) + &gt; make.tmp\n   @echo $(**), + &gt;&gt; make.tmp\n   @echo $(APP_EXE), + &gt;&gt; make.tmp\n   @echo $(APP_MAP), + &gt;&gt; make.tmp\n   @echo $(FIVE_LIB) + &gt;&gt; make.tmp\n   @echo $(FIVEC_LIB) + &gt;&gt; make.tmp\n   @echo $(RTL_LIB) + &gt;&gt; make.tmp\n   @echo $(VM_LIB) + &gt;&gt; make.tmp\n   @echo $(GTWIN_LIB) + &gt;&gt; make.tmp\n   @echo $(LANG_LIB) + &gt;&gt; make.tmp\n   @echo $(MACRO_LIB) + &gt;&gt; make.tmp\n   @echo $(RDD_LIB) + &gt;&gt; make.tmp\n!if $(LNK_DBFNTX) == YES\n   @echo $(DBFNTX_LIB) + &gt;&gt; make.tmp\n!endif\n!if $(LNK_DBFCDX) == YES\n   @echo $(DBFCDX_LIB) + &gt;&gt; make.tmp\n!endif\n!if $(LNK_DEBUG) == YES\n   @echo $(DEBUG_LIB) + &gt;&gt; make.tmp\n!endif\n   @echo $(COMMON_LIB) + &gt;&gt; make.tmp\n   @echo $(PP_LIB) + &gt;&gt; make.tmp\n!if $(LNK_ADVANTAGE) == YES\n   @echo $(RDDADS_LIB) + &gt;&gt; make.tmp\n   @echo $(ACE32_LIB) + &gt;&gt; make.tmp\n!endif\n!if $(LNK_ODBC) == YES\n   @echo $(ODBC32_LIB) + &gt;&gt; make.tmp\n!endif\n   @echo EASYPREV.LIB + &gt;&gt; make.tmp\n   @echo FIVEHN.LIB + &gt;&gt; make.tmp\n   @echo ZLIB1.LIB + &gt;&gt; make.tmp\n   @echo ZIPARCHIVE.LIB + &gt;&gt; make.tmp\n   @echo HBZLIB.LIB + &gt;&gt; make.tmp\n   @echo MAIL.LIB + &gt;&gt; make.tmp\n   @echo VRD.LIB + &gt;&gt; make.tmp\n   @echo EASYPREVIEW.LIB + &gt;&gt; make.tmp\n   @echo LIBCT.LIB + &gt;&gt; make.tmp\n   @echo $(CW32_LIB) + &gt;&gt; make.tmp\n   @echo $(IMPORT32_LIB) + &gt;&gt; make.tmp\n   @echo DBFFPT.LIB + &gt;&gt; make.tmp\n   @echo HBSIX.LIB + &gt;&gt; make.tmp\n   @echo GTGUI.LIB + &gt;&gt; make.tmp\n!if $(RES_FILE) == YES\n   @echo ,$(APP_RES) &gt;&gt; make.tmp\n!endif\n   $(BORLANDC_LINK_EXE) $(BORLANDC_LINK_FLAGS) @make.tmp\n   @del $(APP_EXE_DIR)\\$(APP_NAME).tds\n   @del make.tmp\n\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\n\nThe error message:\n\nApplication\n===========\n   Path and name: C:\\ecmeterh\\setup.exe (32 bits)\n   Size: 1,500,160 bytes\n   Time from start: 0 hours 0 mins 5 secs \n   Error occurred at: 01/12/2007, 14:34:28\n   Error description: Error BASE/1004  Message not found: TDIALOG:BERASEBKGND\n   Args:\n     [   1] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TDIALOG:ERROR(172)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(103)\n   Called from:  =&gt; TDIALOG:MSGNOTFOUND(0)\n   Called from:  =&gt; TDIALOG:BERASEBKGND(162)\n   Called from:  =&gt; TDIALOG:ERASEBKGND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\setup.prg =&gt; MSGDATE(101)\n   Called from: .\\setup.prg =&gt; (b)MAKEMENU(26)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(915)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\window.prg =&gt; _FWH(3001)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(864)\n   Called from: .\\setup.prg =&gt; MAIN(16)\n\nThanks','',0,'AIA=','2gk9ndlc',1,0,'',1181,0,0),(42896,9031,3,51,0,'80.122.88.242',1196493871,1,0,1,1,1,0,'','','I had a look at Patrick’s IDE and the VISUAL FIVE – IDE.\nCould someone explain how these programs work I mean I get these types of files\n.clp  .fpr  .rc  .ffm .prg. Only in file ffm files seems to be ‘important’ data. Can you access ffm only through the IDE or could you work parallel on a project with an Editor like ME or UE?\n\nRegards,\nOtto','',0,'AIA=','3n19ta8x',1,0,'',51,0,0),(42897,9034,3,51,0,'80.122.88.242',1196494112,1,0,1,1,1,0,'','WORKSHOP - FONTS','Is it possible to set different fonts for different controls using workshop for  creating Dialogs?\nThanks in advance\nOtto','',0,'AIA=','am6alslp',1,0,'',51,0,0),(42898,9027,6,542,0,'80.30.44.148',1196499659,1,0,1,1,1,0,'','','Gracias Antonio ya lo he echo pero todavia no he dado con el lugar donde pone el menu y la barra de tareas del menu principal yo sigo hasta que de con ello. \n\nLo del boton no es posible quitarlo.\n\nUn saludo\n\nCarlos','',0,'AIA=','1ou2u3hy',1,0,'',542,0,0),(42899,9034,3,6,0,'87.17.218.69',1196502215,1,0,1,1,1,1,'','Re: WORKSHOP - FONTS','You have to use oCtl:SetFont( oNewFont ) in your code.\n\nEMG','',0,'AIA=','2edfyje4',1,0,'',6,0,0),(42900,2486,16,2,0,'87.218.146.139',1196502476,1,0,1,1,1,1,'','','December builds \n============ \n\nHarbour for Borland: \n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/73507802/harbour.exe.html\">http://rapidshare.com/files/73507802/harbour.exe.html</a><!-- m -->\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/73510124/xharbour.exe.html\">http://rapidshare.com/files/73510124/xharbour.exe.html</a><!-- m -->','',0,'AIA=','21tbx3cc',1,0,'',2,0,0),(42901,9031,3,6,0,'87.17.218.69',1196502672,1,0,1,1,1,1,'','','[quote=&quot;Ken Wantz&quot;:2ywkw68z]According to Enrico, he got a very bad GPF when he tried to run it. It may have been caused by the bad download.[/quote:2ywkw68z]\n\nDon\'t think so since the EXE started correctly. I suspect an incompatibility with BRW RC-files format.\n\nEMG','',0,'gA==','2ywkw68z',1,0,'',6,0,0),(42902,9035,16,2,0,'87.218.146.139',1196505057,1,0,1,1,1,1,'','New FTDN December/Diciembre 2007 (7.12)','December 2007\r\n===========\r\n\r\n* New: Class TXBrowse provides Office 2007 look. Please review samples\\TestXBrw.prg\r\n\r\n* Fix: Class TWindow Method Say() was not properly changing from TRANSPARENT to OPAQUE. Now it is ok.\r\n \r\n* Fix: Class TMenu Method Add() minor fix for showing the menu as \"float\".\r\n\r\n* New: FWH provides anti-piracy system based on a standard USB pendrive. Please review samples\\Protect.prg for the full source code, ready to be included in your applications.\r\n\r\n* Fix: Class TBar Methods GoLeft() and GoRight(), added missing ::Refresh()\r\n\r\n* Enhancement: On a MDI window, if child windows are moved out of the main area, the scrollbars are automatically shown and allow to restore the child windows position.\r\n  \r\n* Fix: Class TXBrowse Method ColAtPos() was giving out of bound errors sometimes. Now it is ok.\r\n    \r\n* Enhancement: Class TComboBox Style CBS_DROPDOWN allows Tab and Return to skip to next control.\r\n    \r\n* New: A new function SetBalloon( lOnOff ) has been added to have Balloon shape for tooltips globally. Balloon shape is not used by default. To show tooltips as balloons: SetBalloon( .T. ). If you want a specific control to show its tooltip in a different way, just do oControl:lBalloon = .F.\r\n  \r\n* Fix: Class TMsgBar was leaking memory due to recent 2007 changes. Now it is ok.\r\n  \r\n* Enhancement: Class TXBrowse METHOD DefStyle(), DT_NOPREFIX style included.\r\n\r\n* Enhancement: samples\\Test2003.prg uses now a main MDI window. Please review its source code as it uses a tricky way to bypass an internal Windows MDI procedure GPF <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\r\n  \r\n* Enhancement: Class TBtnBmp used in a ButtonBar with Office 2007 look (2007 clause) supports several prompt lines using CRLF.\r\n\r\n* Fix: Small bug in nDbl2Flt(). Thanks to Enrico!\r\n\r\n* Enhancement: Class TXBrwColumn new DATA bFooter. If used, it gets evaluated to paint the footer containt.\r\n  \r\n* Fix: REDEFINE MENUITEM ... were not firing their actions. Now it is ok.\r\n \r\n* New: New @ ..., ... XBROWSE ... commands to emulate the already existing for classes TWBrowse and TCBrowse to easy the migration to TXBrowse. Please review include\\xbrowse.ch Many thanks to Nageswararao!\r\n\r\n* Enhancement: FiveLinux enhanced support for numpad keystrokes, and some other control keys. Several missing command clauses implemented. Please review FiveLinux.ch  \r\n  \r\n* New: FiveMac support for standard Mac OSX toolbars. Please review samples\\osxpro.prg','',0,'gA==','2v0c8zj1',1,1220710827,'',2,1,0),(42903,9036,3,2,0,'87.218.146.139',1196505335,1,0,1,1,1,1,'','New FWH 7.12','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=42902\">http://fivetechsoft.com/forums/viewtopic.php?p=42902</a><!-- m -->','',0,'gA==','2icgd6y8',1,0,'',2,0,0),(42904,9037,6,2,0,'87.218.146.139',1196505436,1,0,1,1,1,1,'','Nuevo FWH 7.12','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=42902\">http://fivetechsoft.com/forums/viewtopic.php?p=42902</a><!-- m -->','',0,'gA==','2bi3ks02',1,0,'',2,0,0),(42906,8975,3,2,0,'87.218.146.139',1196506260,1,0,1,1,1,1,'','','Acwoo,\n\nPlease review fwh\\makes\\bormake.zip\n\nIt is much simpler and easier to use <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','30732n7v',1,0,'',2,0,0),(42907,9038,6,542,0,'80.30.44.148',1196507071,1,0,1,1,1,0,'','Barra de Botones','Hola a Todos:\n\nComo puedo repintar una barra de botones en el menu principal ya que cuando lo hago me la pinta pero es como si estubiera desactivada.\n\nUn saludo\n\nCarlos','',0,'gA==','1mz6ih7g',1,0,'',542,0,0),(42908,9038,6,2,0,'87.218.146.139',1196508057,1,0,1,1,1,1,'','','Carlos,\n\noWnd:oBar:Refresh()\n\nPuedes publicar un pequeño ejemplo de como lo haces y el error que te da ? gracias','',0,'gA==','2gs096zw',1,0,'',2,0,0),(42909,9038,6,542,0,'80.30.44.148',1196509097,1,0,1,1,1,0,'','','Hola Antonio:\n\nNo quiero refrescarla ya que lo que hago es quitarla, y volver a pintarla cuando regrese al menu principal.\n\nLo que hago es lo siguiente esta es la ventana principal:\n\nDEFINE WINDOW oVentPrinc MDI FROM 0, 0 TO 24,80;               // Se define la ventana principal\n  TITLE  \"CYEWIN Contabilidad y Estimaciones en WINDOWS\";      //T¡tulo de la ventana\n  COLORS escri01, fondo01;\n  ICON  \"cyewin.ico\"\n\n  SET FONT OF oVentPrinc TO oFont\n\n  repintar()\n\n  oPre:Show()\n\nACTIVATE WINDOW oVentPrinc MAXIMIZED\n\ndespues en repintar :\n\nPROCEDURE repintar()\noVentPrinc:Setfocus()\nif repin = 1\n  opre:End()\nelse\n  repin = 1\nendif\npublic opre\nDEFINE WINDOW opre MDICHILD OF oVentPrinc FROM 3,5 TO 9,93 TITLE \"Datos de trabajo\" color escri01, fondo01 STYLE nOr(WS_DLGFRAME)\n  @  7, 10 SAY datt4 var \" Persona o Entidad\" OF opre PIXEL SIZE 120, 18 COLOR escri01, fondo01\n  @ 27, 10 SAY datt5 var \" Nombre \"           OF opre PIXEL SIZE  80, 18 COLOR escri01, fondo01\n  @ 47, 10 SAY datt6 var \" Ejercicio\"         OF opre PIXEL SIZE  80, 18 COLOR escri01, fondo01\n  @ 67, 10 SAY datt8 var \" Fecha  \"           OF opre PIXEL SIZE  80, 18 COLOR escri01, fondo01\n  @  7,130 say dat01 var       empr           OF opre PIXEL SIZE  50, 18 COLOR escri03, fondo02 BORDER  CENTER\n  @ 27, 80 say dat02 var \" \" + momb           OF opre PIXEL SIZE 602, 18 COLOR escri03, fondo02 BORDER\n  @ 47, 80 say dat02 var       ejer           OF opre PIXEL SIZE  40, 18 COLOR escri03, fondo02 BORDER  CENTER\n  @ 67, 80 say dat04 var       dtoc(datita)   OF opre PIXEL SIZE  75, 18 COLOR escri03, fondo02 BORDER  CENTER\nACTIVATE WINDOW opre\nSET MESSAGE OF oVentPrinc TO empr + \" - \" + momb + \" Ejercicio : \" + ejer + \" Colt Hop ED., S.L.\" 2007 CLOCK KEYBOARD\noBarra()\noVentPrinc:SetMenu(PepePrin())\noVentPrinc:Refresh()\nSysRefresh()\nRETURN (NIL)\n\nLa llamada a la barra es oBarra() que es:\n\nFUNCTION oBarra()\nDEFINE BUTTONBAR oBar OF oVentPrinc PIXEL _3D SIZE 80,32 2007\n@ 1,  0 BTNBMP oBot01 FILE \"empresa.bmp\"  OF oBar WHEN .T. ACTION gestempr()   SIZE 80,30 NO BORDER MESSAGE \"Gestión de Personas y Entidades\"\n@ 1, 81 BTNBMP oBot02 FILE \"diario.bmp\"   OF oBar WHEN .T. ACTION gestdiar(1)  SIZE 80,30 NO BORDER MESSAGE \"Asientos Comunes\"\n@ 1,162 BTNBMP oBot03 FILE \"compras.bmp\"  OF oBar WHEN .T. ACTION gestfact(6)  SIZE 80,30 NO BORDER MESSAGE \"Compras y Gastos\"\n@ 1,243 BTNBMP oBot04 FILE \"ventas.bmp\"   OF oBar WHEN .T. ACTION gestfact(7)  SIZE 80,30 NO BORDER MESSAGE \"Ventas e Ingresos\"\n@ 1,324 BTNBMP oBot05 FILE \"modulos.bmp\"  OF oBar WHEN .T. ACTION gestmodu(5)  SIZE 80,30 NO BORDER MESSAGE \"Cálculo de Módulos\"\n@ 1,405 BTNBMP oBot06 FILE \"regular.bmp\"  OF oBar WHEN .T. ACTION gestmodu(7)  SIZE 80,30 NO BORDER MESSAGE \"Cálculo de la Regularización\"\n@ 1,486 BTNBMP oBot07 FILE \"cierres.bmp\"  OF oBar WHEN .T. ACTION gestcipe()   SIZE 80,30 NO BORDER MESSAGE \"Cierre Periódico\"\n@ 1,567 BUTTON oBot08 FILE \"salida.bmp\"   OF oBar WHEN .T. ACTION salida()     SIZE 80,30 NO BORDER MESSAGE \"Salir\"\nRETURN (.T.)\n\ny cuando entra en cualquier opcion  hago quitmenu()\n\nProcedure quitmenu()\noPre:Hide()\noVentPrinc:oBar:End()\noVentPrinc:oMenu:End()\noVentPrinc:SetFocus()\noVentPrinc:Refresh()\nSysRefresh()\nRETURN( .T. )\n\nEl funcionamiento sería:\n\nCuando entramos hace la ventana principal que llama a repintar() para poner en la ventana tres cosas, la primera una ventana con el usuario activo, 2 el menu principal y 3 la barra de botones con oBarra().\n\nCuando entra en una opcion del menu hace quitmenu() que lo que hace es eliminar el menu principal y la barra de botones para que no ocupen en la ventana ocultos.\n\nY Cuando sale vuelve a ponerlos con Repintar(), lo que hace ahora es poner bien el menu principal y la barra de botones la pone pero no esta activa se ven los botones pero cuando pinchas o pasas el raton por encima no hace nada.\n\nTambien he detectado una cosa muy rara yo el objeto que contiene el menu principal le he llamado oPepe1 dela siguiente manera:\n\nSTATIC FUNCTION PepePrin()\nPUBLIC oPepe1                  // Objeto que contendr  el Men£\nMENU oPepe1 2007\n  MENUITEM \"&amp;Generales\"\n  MENU\n    MENUITEM  \"Personas o Entidades\" ;\n      ACTION  gestempr();\n      MESSAGE \"Gestión de los datos identificativos de las Personas o Entidades de la aplicaci¢n\"\n  SEPARATOR\n\n....\n....\n\n  ENDMENU\nENDMENU\nRETURN( oPepe1 )\n\nPero si te das cuenta en quitmenu() para borrar el menu principal he tenido que poner :\n\noVentPrinc:oMenu:End()\n\nen vez de :\n\noVentPrinc:oPepe1:End()\n\nGracias por tu interes espero tu respuesta si la hay.\n\nUn saludo\n\nCarlos','',0,'gA==','7r3z2sq0',1,0,'',542,0,0),(42910,9038,6,2,0,'87.218.146.139',1196509306,1,0,1,1,1,1,'','','Carlos,\n\nPara quitarla puedes \"ocultarla\":\n\noWnd:oBar:Hide()\n\ny cuando quieras mostrarla:\n\noWnd:oBar:Show()','',0,'gA==','14f4j2o2',1,0,'',2,0,0),(42911,9038,6,542,0,'80.30.44.148',1196510587,1,0,1,1,1,0,'','','Hola Antonio ya estoy en las ultimas en este tema:\n\nBien en vez de destruir y volver a crear la oculto y la muestro pero para que no ocupe en la parte superior lo que hago es la oculto y la pongo abajo con :\n\noVentPrinc:oBar:Hide()\noVentPrinc:oBar:GoDown()\n\ny a la hora de volver la muestro y la pongo arriba otra vez con:\n\noVentPrinc:oBar:GoTop()\noVentPrinc:oBar:Show()\n\npero me da un error este :\n\nApplication\n===========\n   Path and name: C:\\programa\\cyewin\\cyewin.exe (32 bits)\n   Size: 2,894,848 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 01/12/2007, 13:01:38\n   Error description: Error BASE/1004  Class: \'NIL\' has no exported method: GOTOP\n   Args:\n     [   1] = U   \n\nY pasa cuando vuleve de una opcion y no al principio cuando lo pongo la primera vez.','',0,'','2v4b1alf',1,0,'',542,0,0),(42912,9038,6,2,0,'87.218.146.139',1196511282,1,0,1,1,1,1,'','','Carlos,\n\nNo la cambies de sitio, sino quítala de oWnd:oBar\n\noWnd:oBar:Hide()\noWnd:oBar := nil\noWnd:oTop := nil\n...\noWnd:oBar = oBar // la variable que usastes para crearla ó una nueva\noWnd:oBar:Show()','',0,'','1xkrgqqj',1,0,'',2,0,0),(42913,9031,3,1158,0,'200.139.130.7',1196511482,1,0,1,1,1,0,'','','i test this ide, very good, but... only works with fwh24.','',0,'','3tw2tu4z',1,0,'',1158,0,0),(42914,9039,3,1158,0,'200.139.130.7',1196511819,1,0,1,1,1,0,'','3rd components integrations with fwh, UI calendar','hi, i see some tools , like codejoke xtreme:\n<!-- m --><a class=\"postlink\" href=\"http://www.codejock.com\">http://www.codejock.com</a><!-- m -->, someone has tested this??','',0,'','1yhhvt7b',1,0,'',1158,0,0),(42916,9039,3,51,0,'80.122.88.242',1196516248,1,0,1,1,1,0,'','','Hello Fernando,\n\ncan you drag &amp; drop appointments with the mouse on your new scheduler?\nRegards,\nOtto','',0,'CA==','enlqmy94',1,0,'',51,0,0),(42917,9031,3,51,0,'80.122.88.242',1196516367,1,0,1,1,1,0,'','','Norberto, do you mean FUN\'s IDE?\nRegards,\nOtto','',0,'CA==','1use13jl',1,0,'',51,0,0),(42918,9031,3,51,0,'80.122.88.242',1196517921,1,0,1,1,1,0,'','','Hello Antonio,\n\n&gt;We plan to resume our IDE development once we have completed FiveLinux and FiveMac development, so we &gt;get the right knowledge to develop a multiplatform IDE\n\n\nMay I ask you out of curiosity what the intention is to have a mac and linux version.\n\nOn linux OS all must be freeware and mac OS is not so much used where FW applications aim to (busniss, database, administration, etc.).\n\nSeen from a economical point of view I would do it the other way round:\nfirst the IDE \n\nRegards,\nOtto','',0,'CA==','353e4juc',1,0,'',51,0,0),(42919,9030,6,53,0,'189.139.16.78',1196518490,1,0,1,1,1,1,'','','Willi:\n\nMuchas gracias por tu interes, voy a probar.\n\nAunque parece ser que necesto saber el nombre del servidor y eso de compartir la carpeta System32 de windows se me hace de muy alto riesgo.\n\nLo que sucede es que a mis aplicaciones que son demo por x dias creo un archivo \"disfrazado\" en la carpeta System32 y desde cada terminal debo revisar ese archivo para saber si todavia esta dentro del periodo de prueba o no.\n\nUn Abrazo','',0,'CA==','6prh3dqe',1,0,'',53,0,0),(42920,9038,6,542,0,'88.27.85.30',1196519658,1,0,1,1,1,0,'','','Hola Antonio:\n\nEstoy con ello pero pasa lo mismo que cuando lo hacia antes, se pintan los botones pero se quedan como si estubieran DISABLED y no se pueden utilizar.\n\nEsto lo hace correctamente ya que lo quita y lo oculta bien: \noWnd:oBar:Hide() \noWnd:oBar := nil \noWnd:oTop := nil \n\nPero cuando hace esto lo vuelve a poner y lo deja inactivo es como si faltara algo mas que poner algo como antes era NIL para quitar.\n\noWnd:oBar = oBar // la variable que usastes para crearla ó una nueva \noWnd:oBar:Show()\n\nUn saludo\n\nCarlos','',0,'CA==','3stm63t3',1,0,'',542,0,0),(42921,9038,6,542,0,'88.27.85.30',1196519677,1,0,1,1,1,0,'','','Hola Antonio:\n\nEstoy con ello pero pasa lo mismo que cuando lo hacia antes, se pintan los botones pero se quedan como si estubieran DISABLED y no se pueden utilizar.\n\nEsto lo hace correctamente ya que lo quita y lo oculta bien: \noWnd:oBar:Hide() \noWnd:oBar := nil \noWnd:oTop := nil \n\nPero cuando hace esto lo vuelve a poner y lo deja inactivo es como si faltara algo mas que poner algo como antes era NIL para quitar.\n\noWnd:oBar = oBar // la variable que usastes para crearla ó una nueva \noWnd:oBar:Show()\n\nUn saludo\n\nCarlos','',0,'CA==','5ozgxu8v',1,0,'',542,0,0),(42923,9031,3,2,0,'87.218.146.139',1196521550,1,0,1,1,1,1,'','','Otto,\n\nWe don\'t want to have four different IDEs. Our idea is to use just one IDE model for Windows, Pocket PC, Linux and Mac. But first we need to complete FiveLinux and FiveMac, just a little more.\n\nActually Windows is the more popular, but in our opinion this is going to change very much in the next years. Google is becoming stronger than Microsoft, and Google is already promoting Linux, and probably it will do it much more quite soon. Mac is growing more and more. Vista is not matured enough for companies.\n\nWhen we started coding FiveWin, everybody was using MsDos, and we got lot of comments like \"Windows will never be for bussiness\". See where we are now <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe may be wrong, who knows. Or we may be right <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','3pqomf9t',1,0,'',2,0,0),(42924,9038,6,2,0,'87.218.146.139',1196522375,1,0,1,1,1,1,'','','Carlos,\n\nPrueba solamente a hacerle :Hide() y más tarde :Show() y comprueba si funcionan los botones, gracias','',0,'CA==','39ofxuub',1,0,'',2,0,0),(42925,9031,3,2,0,'87.218.146.139',1196523130,1,0,1,1,1,1,'','','Otto,\n\nBesides the above comments, which are more a kind of a roadmap, we _actually_ use UEStudio as it is a superb IDE for FWH.\n\nYou may ask users here, like Richard Chidiak, that are working with UEStudio, and check how satisfied they are. Using it for FWH and for FWPPC development.','',0,'CA==','7oxwha04',1,0,'',2,0,0),(42927,8814,6,987,0,'189.132.12.229',1196524299,1,0,1,1,1,0,'','','Saludos al todo el distiguido foro:\n\nOk. haciendo pruebas e investigando un poco sobre claves del registro de windows he llegado a la conclusion de que si se puede hacer esta \"trampita\" que permite disfrazar cualquier extenciòn de archivo a y asociarla a nuestra aplicación.\n\n¡¡ CUIDADO  !!  Es pa toda la gente que le gusta ser cremosa y que gustan que sus aplicaciones se vean a veces medias cursis, pero es a fin y al cabo una aportaciòn màs.\n\npor ejemplo: si queremos que nuestros archivos .DBF tengan un ìcono y asosiarlo a nuetra aplicaiòn yo lo hago de la siguiente forma:\n\nRegistra(\".DBF\",\"baseddatos.aplicacion\",\"Mi tabla de trabajo\",14)\n\ny esta el la funciòn que se encarga de este truco:\n\n\n#Include \"FIVEWIN.CH\"\n\n#ifndef __XPP__\n   #define  HKEY_CLASSES_ROOT       2147483648\n   #define  HKEY_CURRENT_USER       2147483649\n   #define  HKEY_LOCAL_MACHINE      2147483650\n   #define  HKEY_USERS              2147483651\n   #define  HKEY_PERFORMANCE_DATA   2147483652\n   #define  HKEY_CURRENT_CONFIG     2147483653\n   #define  HKEY_DYN_DATA           2147483654\n#else\n   #define  HKEY_CLASSES_ROOT       1\n   #define  HKEY_CURRENT_USER       2\n   #define  HKEY_LOCAL_MACHINE      3\n   #define  HKEY_USERS              4\n   #define  HKEY_PERFORMANCE_DATA   5\n   #define  HKEY_CURRENT_CONFIG     6\n   #define  HKEY_DYN_DATA           7\n#endif\n\n//-------------------------------//\nFUNCTION Registra(cExten,cCadena,cTipo,nIcono)\n\nLOCAL oReg\nLOCAL cAplicacion:= UPPER(ALLTRIM(GetModuleFileName(GetInstance()))+\",\"+ALLTRIM(STR(nIcono)))\n \n \n oReg:= TReg32():CREATE( HKEY_CLASSES_ROOT, cExten )\n oReg:SET( \"\", cCadena )\n oReg:CLOSE()\n \n oReg:= TReg32():CREATE( HKEY_CURRENT_USER, \"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\\"+cExten )\n oReg:= TReg32():CREATE( HKEY_CURRENT_USER, \"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\\"+cExten+\"\\OpenWithList\" )\n oReg:= TReg32():CREATE( HKEY_CURRENT_USER, \"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\FileExts\\\"+cExten+\"\\OpenWithProgids\" ) \n oReg:CLOSE()\n \n oReg:= TReg32():CREATE( HKEY_LOCAL_MACHINE, \"Software\\Classes\\\"+cExten )\n oReg:SET( \"\", cCadena )\n oReg:CLOSE()\n \n oReg:= TReg32():CREATE( HKEY_CLASSES_ROOT, cCadena )\n oReg:SET( \"\", cTipo )\n oReg:CLOSE()\n oReg:= TReg32():CREATE( HKEY_CLASSES_ROOT, cCadena+\"\\DefaultIcon\" )\n oReg:SET( \"\", cAplicacion )\n oReg:CLOSE()\n \n oReg:= TReg32():CREATE( HKEY_LOCAL_MACHINE, \"SOFTWARE\\Classes\\\"+cCadena )\n oReg:SET( \"\", cTipo )\n oReg:CLOSE()\n oReg:= TReg32():CREATE( HKEY_LOCAL_MACHINE, \"SOFTWARE\\Classes\\\"+cCadena+\"\\DefaultIcon\" )\n oReg:SET( \"\", cAplicacion )\n oReg:CLOSE()\n \n \nRETURN nil\n\nDonde: \n \ncExten: Es la estención a Asociar. esta debe ser antrecedida por punto (.)\ncCadena: es la cadena de caracteres donde se crea la clave en el registro.\ncTipo: Aky podemos poner una leyenda para verla en el explorador.\nnIcono: Este es el nùmero de icono para identificarlo, comienza desde 0 ya que es el primer icono con el que comienza nuetra aplicaciòn.\n\n\nEsta es la soluciòn que tengo implantada en mi aplicaciòn y le da màs vistosidad a los archivos, es 100% funcional, y no interfiere con otros archivos asociados a otras aplicaciones...\n\nestoy trabajando para que al hacer doble click el archivo sea abierto por nuetra aplicaciòn, esto serà proximamente..\n\n\nSaludos y nos escribimos luego..\n\nI.S.C. Vìctor Daniel Cuatècatl Leòn.  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'CA==','1lntz7tf',1,0,'',987,0,0),(42928,9014,6,987,0,'189.132.12.229',1196524493,1,0,1,1,1,0,'','','Maestro Antonio:\n\nQueda entendido y aclarado, de todas maneras voy a seguir intentando y realizando pruebas, algo se ha de poder rescatar..\n\nDe nuevo gracias..  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','2faxgkyp',1,0,'',987,0,0),(42929,9038,6,542,0,'88.27.85.30',1196525371,1,0,1,1,1,0,'','','Hola Antonio:\n\nNo se porque pero lo que interferia era la ventana que ponia el usuario la he quitado y los datos los he puesto en la barra de mensajes y ya funciona bien de las dos formas y como digo yo, si funciona no busques el porque ya que estas tardando en seguir, gracias por tu interes y ya comentare algo del menu del preview que no me sale pero como no sale no me importa me importa mas el terminar el resto.\n\nGracias\n\ncarlos','',0,'CA==','z1j5fkb8',1,0,'',542,0,0),(42930,9031,3,171,0,'71.233.232.238',1196525378,1,0,1,1,1,0,'','','Antonio,\n\nCould you please indicates the advantage of using UEstudio vs MultiEdit?\n\nGeorge','',0,'CA==','3iz8qj77',1,0,'',171,0,0),(42931,9040,6,1072,0,'201.214.53.36',1196527156,1,0,1,1,1,0,'','Ayuda con un BMP','Amigo:\n\nSe que es una pregunta muy basica, pero hoy en 32 bits, hay cosas que ya no funcionan y me tienen de cabeza.\n\nTengo una dll con recursos que paso a RC, en ella tengo un pantalla que necesito colocar un BMP como una foto de usuarios o clientes, guardada en un direcctorio de imagenes, al momento de digitar su codigo, debo poner esta imagen. el problema que solo aparece un boton, pero jamas muestra la imagen.\n\nCual es el codigo correcto que debo usar?\n\nPor su ayuda muchas gracias.\n\nSaludos,\nAntonio','',0,'CA==','us5a37ng',1,0,'',1072,0,0),(42932,9041,3,868,0,'219.64.121.60',1196528798,1,0,1,1,1,1,'','FWH 7.12 xBrowse - 2007 style','The new look of xBrowse is very attractive.\n\nBut there is no option for setting this 2007 style on / off. I have problems with 256 color monitors where it gives a very bad look, rendering it unacceptable for release versions.\n\nI request that 2007 style be made optional.','',0,'CA==','22rkk7mr',1,0,'',868,0,0),(42933,9031,3,2,0,'87.218.146.139',1196529901,1,0,1,1,1,1,'','','George,\n\n&gt; Could you please indicates the advantage of using UEstudio vs MultiEdit? \n\nUEStudio easily manages an entire project with multiple PRGs, C modules and RC files. So its a kind of a project manager and visual make, extremelly friendly, with a superb integrated source code editor and a (limited) built-in resources editor.\n\nWe can easily configurate it, create templates, customize options, etc. Again, its very friendly and powerfull. Its very well designed.','',0,'CA==','1xt3x3y7',1,0,'',2,0,0),(42934,9040,6,2,0,'87.218.146.139',1196530327,1,0,1,1,1,1,'','','Antonio,\n\nRevisa samples\\TestImg.prg','',0,'CA==','z3yxuf6t',1,0,'',2,0,0),(42935,8814,6,2,0,'87.218.146.139',1196530586,1,0,1,1,1,1,'','','Victor,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','2gr8z2yw',1,0,'',2,0,0),(42936,9042,6,661,0,'189.155.207.1',1196535045,1,0,1,1,1,0,'','se puede buscar archivo en red?','que tal amigos, solicitando su ayuda una vez mas, en esta ocasion me gustaria saber si es posible buscar automaticamente un archivo especifico dentro de mi red local, es decir, sin la intervencion de ningun dialogo como cgetfile32 o cgetdir32...\n\ngracias de antemano y un saludo.\nAlex.','',0,'CA==','2tzsibzx',1,0,'',661,0,0),(42937,9031,3,3,0,'80.81.159.18',1196538209,1,0,1,1,1,1,'','','Antonio\n\nI agree 100 % , Uestudio is a fantastic tool\nWe all have our old habits with different editors, i personally was using and liked a lot multi-edit , but Uestudio has brought a lot of power .\n\nFeature, all the classes are available, all function listed and immediately found,  static or not, debug or release projects, duplicate projects.\n\nAntonio has helped setting library creation templates, so now you can easilly create tsbrowse, tsbutton....etc very easilly, same environment for fwppc , templates available. If you use other programming languages , the appropriate templates are available also. I don\'t personnaly know what an ide can bring more.\n\nI am still using borland resource editor because unfortunately the resource editor is very limited and not performing, it is a pity but as someone stated in this forum not so long ago, development of resource workshops is not very common these days, and i don\'t have major problems with Brw. Note i only use RC files.\n\nMy 2 cents,\n\nRichard','',0,'CA==','3c0tg1wi',1,0,'',3,0,0),(42939,9031,3,35,0,'65.188.6.143',1196545273,1,0,1,1,1,0,'','','To All\n\nI have a good project manager, have a good editor, have a good make tool and using a ( good ) but ageing Borland Reource Workshop.\n\nThe only thing I find in \'all in one\' IDE\'s is that it gets too complicated .. button\'s, tool bars, pallate properties .. just difficult to make a single IDE that has it all .. and like Antonio mentioned .. UE does have a \'limited\' resource editor .. \n\nI am not knocking any one product .. I would pay \'hansomely\' if i could get a first class resource editor .. that just creates forms .. 32 bit, .rc .dll .. a virtual clone od BRW would do nicely.\n\nRick','',0,'CA==','1runrl9p',1,0,'',35,0,0),(42940,9031,3,439,0,'200.125.41.82',1196550748,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:dh3ub9t5]To All\n\nI have a good project manager, have a good editor, have a good make tool and using a ( good ) but ageing Borland Reource Workshop.\n\nThe only thing I find in \'all in one\' IDE\'s is that it gets too complicated .. button\'s, tool bars, pallate properties .. just difficult to make a single IDE that has it all .. and like Antonio mentioned .. UE does have a \'limited\' resource editor .. \n\nI am not knocking any one product .. I would pay \'hansomely\' if i could get a first class resource editor .. that just creates forms .. 32 bit, .rc .dll .. a virtual clone od BRW would do nicely.\n\nRick[/quote:dh3ub9t5]\n\nGooooooooooooooooooooood, I think so.','',0,'gA==','dh3ub9t5',1,0,'',439,0,0),(42941,9006,2,1206,0,'84.77.166.9',1196552381,1,0,1,1,1,0,'','','Respecto a lo que comentas sobre NTVDM, nos ha pasado con las instrucciones de borland y cada vez que invocávamos la orden memory(-1),.\n\nSupongo que la aplicación ha funcionado bien siempre y ahora está fallando, si es así confírmamelo.\n\nOtro de los factores qu teneis que tener en cuentas son las limitaciones con tablas que tiene de clipper.\n\nEspero que haya servido de ayuda','',0,'gA==','1oc33bxi',1,0,'',1206,0,0),(42942,9039,3,34,0,'68.5.217.82',1196553024,1,0,1,1,1,1,'','Codejock','Someone started testing the controls with codejock but didn\'t get very far and stopped reporting.\n\nI downloaded it and communicated with the company.  While it would be possible to run their controls, there is no method for working with the data in a .dbf file.  You could write some functions to perhaps read the data from the file into memory and then work with the memory ( if you can get it into the format they read ), and then you would have to translate the memory data back into the .dbf.  Although its possible, apparently no one followed up and actually did it ...\n\nTim','',0,'gA==','3f60ozvj',1,0,'',34,0,0),(42943,9031,3,49,0,'62.13.172.67',1196556951,1,0,1,1,1,1,'','','We must work together to finish Fivewin Ide , why NOT ?','',0,'gA==','1al41zqx',1,0,'',49,0,0),(42944,9031,3,51,0,'80.122.88.242',1196557400,1,0,1,1,1,0,'','','One again:\n\nCould someone please explain how FIVEVISUAL  works.\nI mean I get these types of files .clp .fpr .rc .ffm .prg. \nIn file ffm files seems to be the source data. \nCan you access ffm only through the IDE or could you work parallel on a project with an Editor like ME or UE? \nIn VB6 you can edit the *.frm files or in VB.NET the *.vb files with an extern editor, too.\nRegards,\nOtto','',0,'gA==','2edpzlgv',1,0,'',51,0,0),(42945,9043,3,49,0,'62.13.172.67',1196558152,1,0,1,1,1,1,'','question about new 7.12 ( xbrowse and msgitem)','this is a image of my application\nand I have some graphics errors\nthe first U can see the arrow on the header of xbrowse  : all not are trasparent \n\nthen there is an image on msgiten the space of each iten not is with the brush of 2007 style \n\nHow to correct it ?\n[url=http&#58;//img404&#46;imageshack&#46;us/my&#46;php?image=err2007ux8&#46;jpg:2bbouh16][img:2bbouh16]http&#58;//img404&#46;imageshack&#46;us/img404/159/err2007ux8&#46;th&#46;jpg[/img:2bbouh16][/url:2bbouh16]','',0,'GA==','2bbouh16',1,0,'',49,0,0),(42946,9040,6,1072,0,'201.214.53.36',1196558571,1,0,1,1,1,0,'','','Antonio:\n\nMil gracias, lo revisare, si tengo problemas re informare.\n\nSaludos,\nAntonio','',0,'GA==','37keni2o',1,0,'',1072,0,0),(42947,9043,3,49,0,'62.13.172.67',1196560167,1,0,1,1,1,1,'','','Antonio,\nI have the same problem with btnbmp\nI have rem line 790 and I have insert these lines\n \n   Gradient( ::hDC, { 0, 0, ::nHeight / 4, ::nWidth },;\n                If( ! ::lMOver, nRGB( 219, 230, 244 ), nRGB( 255, 253, 222 ) ),;\n                If( ! ::lMOver, nRGB( 207, 221, 239 ), nRGB( 255, 231, 151 ) ), .T. )\n      Gradient( ::hDC, { ( ::nHeight / 4 ) + 1, 0, ::nHeight, ::nWidth },;\n                If( ! ::lMOver, nRGB( 201, 217, 237 ), nRGB( 255, 215, 84 ) ),;\n                If( ! ::lMOver, nRGB( 231, 242, 255 ), nRGB( 255, 233, 162 ) ), .T. )\n\n\n\nit run ok when I use this command \n\n[code:2i4a8ww6] REDEFINE BTNBMP oBtn1 ID 1 OF oDlt ;\n                                          FILE &quot;&#46;\\bitmaps\\ok&#46;BMP&quot; ;\n                                          ACTION&#40;lReg&#58;=&#46;T&#46;,oDlt&#58;End&#40;&#41;&#41; ;   \n                                          PROMPT &quot;  Conferma&quot;  LEFT        \n                                                                           \n                          REDEFINE BTNBMP oBtn2 ID 2 OF oDlt ;             \n                                          FILE &quot;&#46;\\bitmaps\\SEL2&#46;BMP&quot;;       \n                                          ACTION oDlt&#58;End&#40;&#41; ;              \n                                          PROMPT &quot;   Annulla&quot;  LEFT[/code:2i4a8ww6]\n\nI can see office style and id the mouse over the button change look\n\nBut the bitmaps are not trasparent\n\nAny Idea ?','',0,'AIA=','2i4a8ww6',1,0,'',49,0,0),(42948,9031,3,51,0,'80.122.88.242',1196561725,1,0,1,1,1,0,'','','I found answers for my previous questions in the help-files from VISUAL FIVEWIN.\n\n&gt;Jkide32.exe is still built with the modified xHarbour 0.99.70 CVS (29/12/06) and FWH 2.4. \n\nDoes someone know if VisualFiveWin from Patrick is compatible with FWH 7.12?\n\nCould someone who uses the IDE report about the experiences.\n\nRegards,\nOtto\n\n------------------------------------------------------------------------\n\n\nTraditional FiveWin\na. No IDE (Integrated Design Environment) is available.\nb. Not a RAD tool (Rapid Application Development).\nc. Windows, MDI Windows, Modal and Non-Modal Dialogs are used.\nd. Dialogs may be stored in DLLs/EXEs using Redefine ... ID...\ne. Resource Folders have to be stored with one resource per dialog page.\nf. Resource Editor such as Workshop has to be used for creating/editing resource dialogs.\ng. Events are implemented by Code Blocks ::bLClicked, ::bLDblClicked etc.\nh. Control Objects are stored in Prg using Variables .\ni. Batch File and Link/Response Script or Make Files have to be prepared for building FW Programs.\n\nVisual FiveWin\na. IDE (Integrated Design Environment) is available.\nb. RAD tool (Rapid Application Development).\nc. Forms are used.\nd. Dialogs are stored in Form Files (.ffm). Redefine ... is not necessary .\ne. Folders are stored in the same Form File as its parent Dialog.\nf. IDE enables you to create/edit Forms and Codes together .\ng. Events are implemented by Class METHODS OnClick, OnDblClick etc.\nh. Control Objects are stored in Form-Prg using Class DATA Variables .\ni. Files required to build applications are produced by IDE and\ncan be modified before the building process.\nj. Traditional FW Programs can also be built.\n\n\nForms are Windows/Mdi Windows/Dialogs  with Visual and non-Visual components,\nstored as a binary Fivewin ForM file (.ffm) together with\nan associated program file with the same name but different extension (.prg).\n\nForms are stored as resource data of type FORMS in the EXE,\njust like Bitmaps are stored as resource data of type BITMAP in the EXE.\n\nForms are used to replace\nthe storing of coding in a prg and layout in resources in DLL/EXE.\n\n\nuilding Traditional FW Programs using Visual FiveWin.\n\nCreate a New Project  of type FiveWin exe without Forms... .\nAdd your Main Prg to the Project using option \"Add Program to Project...\" under menuitem \"Projects\".\nSimilarly, add the other Prgs to the Project.\nSave your resource DLL as RC to a RC file.\nAdd that RC file to the project using tab \"Resource\" in the Project Manager.\nBuild your EXE.\nThat\'s all.','',0,'AIA=','1smz54vy',1,0,'',51,0,0),(42949,9044,18,239,0,'121.33.138.9',1196572712,1,0,1,1,1,0,'','fwh712 btnget - tget.prg- bkeydown error','Hi,\n Input  chars  to btnget, call from Tget.prg, \n\nMETHOD KeyDown( nKey, nFlags ) CLASS TGet\n\n  add the lines compare to v7.11\n if ::bKeyDown != nil\n      if Eval( ::bKeyDown, nKey, nFlags, Self ) == 0  //Runtime Error description: Error BASE/1070  Argument error: ==\n         return 0\n      endif   \n   endif   \n\nBest Regards!\nShuming Wang','',0,'AIA=','34xhnfen',1,0,'',239,0,0),(42950,9045,18,239,0,'121.33.138.9',1196576546,1,0,1,1,1,0,'','fw712\\samples\\buildh.bat','dos&gt; Buildh testxbrw\n\nMany \'ads\' functions can\'t  be found. \n\nRegards !\n\nShuming Wang','',0,'AIA=','1j0t91st',1,0,'',239,0,0),(42951,9043,3,2,0,'87.218.146.139',1196582913,1,0,1,1,1,1,'','','Silvio,\n\nWe have just published a new FWH 7.12 build with the transparent bitmaps painting and optional 2007 look for XBrowse. \n\nPlease review the Class TXBrowse source for TransBmp() and use it in your Class TBtnBmp modifications. Thanks,','',0,'AIA=','16ke0juu',1,0,'',2,0,0),(42952,9041,3,2,0,'87.218.146.139',1196582977,1,0,1,1,1,1,'','','Nageswararao,\n\nWe have just published a new FWH 7.12 build with the transparent bitmaps painting and optional 2007 look for XBrowse.\n\nPlease download it again, thanks','',0,'AIA=','1bessa3q',1,0,'',2,0,0),(42953,9037,6,2,0,'87.218.146.139',1196583124,1,0,1,1,1,1,'','','Hemos publicado un nuevo build de FWH 7.12 con pintado transparente de bitmaps y apariencia 2007 opcional en la clase TXBrowse.\n\nPor favor volved a descargarlo. Gracias','',0,'AIA=','2lxm7kdb',1,0,'',2,0,0),(42954,9045,18,2,0,'87.218.146.139',1196583286,1,0,1,1,1,1,'','','Shuming,\n\nAre you using Harbour or xHarbour ?\n\nAre you using the Harbour/xHarbour build that we have published for FWH 7.12 ? Here it is working fine','',0,'AIA=','3a6yzu2b',1,0,'',2,0,0),(42955,9044,18,2,0,'87.218.146.139',1196583421,1,0,1,1,1,1,'','','Shuming,\n\nYou have to modify bKeyDown in BtnGet so it returns nil or a number','',0,'AIA=','3kchrr43',1,0,'',2,0,0),(42956,9036,3,2,0,'87.218.146.139',1196583847,1,0,1,1,1,1,'','','We have just published a new FWH 7.12 build with the transparent bitmaps painting and optional 2007 look for XBrowse. \n\nPlease download it again, thanks','',0,'AIA=','8bjfbfga',1,0,'',2,0,0),(42957,9045,18,239,0,'121.33.138.9',1196586148,1,0,1,1,1,0,'','','Antonio,\n  Harbour 1 .1-1  ( libs dated Nov 05,2007 ) From fwh package download site.\nRegards!\nShuming Wang','',0,'AIA=','1vxeujgs',1,0,'',239,0,0),(42958,9044,18,239,0,'121.33.138.9',1196587235,1,0,1,1,1,0,'','','Antonio,\n  Done.\n  Thanks !\nShuming Wang','',0,'AIA=','1qkp69fl',1,0,'',239,0,0),(42959,9042,6,400,0,'201.92.37.163',1196587468,1,0,1,1,1,1,'','','Si Amigo....es posible !\n\nUsted podes, mapear la unidade via codigo....e ir directamente para la Carpeta donde se encontra el Archivo.\n\n[code:2jm19v9h]\n IF !File&#40;&quot;S&#58;\\SB_SISTEMAS\\Gerenciador\\SB_Dados\\*&#46;dbf&quot;&#41;\n        MSGRUN&#40; &quot;Conectando ao Servidor de Arquivos&#46;&#46;&#46;  &quot;, ;\n		          &quot;Aguarde Um Momento, Por Favor!         &quot;, ;\n					 &#123; || CONECTA_SERVIDOR&#40;&#41; &#125; &#41;\n     ENDIF\n[/code:2jm19v9h]\n\n[code:2jm19v9h]\n**********************************************************************************************************\nSTATIC FUNCTION CONECTA_SERVIDOR&#40;&#41;    //-&gt; Conecta a Rede\n**********************************************************************************************************\n //-&gt;Memory&#40;-1&#41;\n /*limpia arreglo y llama al colecor de basura de xharbour*/\n\n  hb_gcAll&#40;&#41;\n  WNetAddCon&#40; &quot;\\\\TERMINAL01\\C\\SB_SISTEMAS\\Gerenciador\\SB_Dados,,&quot;S&#58;&quot; &#41;\n\n  SysWait&#40;1&#41;\n\nRETURN NIL\n\n**********************************************************************************************************\nFUNCTION DESCONECTA_SERVIDOR&#40;&#41;  //-&gt; Desconecta a Rede\n**********************************************************************************************************\n //-&gt;Memory&#40;-1&#41;\n /*limpia arreglo y llama al colecor de basura de xharbour*/\n\n  hb_gcAll&#40;&#41;\n  wNetDelConnection&#40; &quot;S&#58;&quot;, &#46;T&#46; &#41;\n  SysWait&#40;1&#41;\n\nRETURN NIL\n[/code:2jm19v9h]\n\nSaluds','',0,'AIA=','2jm19v9h',1,0,'',400,0,0),(42960,8984,6,176,0,'200.61.143.184',1196593958,1,0,1,1,1,0,'','','Bueno pude leer archivos txt y utilizando la función StrToken estraer lo necesario, pero en archivos pequeños. El que necesitaba es de 82 megas, no pude. Utilizando mlcount, me lee los renglones y eso me dio falsas expectativas porque al querer leerlo se queda sin hacer nada, permitiendo entrar a otras áreas del programa como si nada ocurriese, pero al cerrar el programa lo hace pero quedando en memoria una copia del mismo.\n\nLa solución que hallé fue pasar el txt a acces y de ahí a dbf. Lo que implicó tener que quitar campos no imprescindibles pero sí buenos complementos de información, luego modificar la anchura de campos (demoraba casi 10 minutos), ya que el archivo original que venía de acces a dbf era de 450 megas!!!.\n\nLa cuestión es que esto hay que hacerlo todos los meses y necesitaría saber si alguien tiene idea de como puedo leer el archivo usando mi programa , o en su defecto hacer un externo. Quise con fread pero no se como buscar y extraer.  Y si es esta la solución.   \nEspero sus comentarios\n\nEJ de como lee archivos txt Esto funcionó perfecto hasta 28000 bytes, luego de eso lo comentado\n\ndo\n\n     cLinea := memoline(cTexto,60,z)\n     cCuit :=  STRTRAN(odbf:cuit, \"-\", \"\")\n     if substr(cLinea,28,11 ) = cCuit\n        ?  \"HOLA\"\n	MsgInfo( StrToken( cTexto,  9, \";\" ) )\n	odbf:skip()\n	? odbf:cuit\n            return\n      endif	\n      sysrefresh()\n\n       z := z +1\nuntil  z =  nCuento .or. odbf:eof()','',0,'AIA=','2g49qt8p',1,0,'',176,0,0),(42961,9046,6,542,0,'88.23.158.191',1196596970,1,0,1,1,1,0,'','Como puedo crear un archivo PDF','Hoal a todos:\n\nMe gustaria saber como puedo crear un archivo PDF en vez de mandar un reporte a la Impresora.\n\nGracias\n\nCarlos','',0,'AIA=','3un24zk6',1,0,'',542,0,0),(42962,8984,6,2,0,'87.218.146.139',1196597167,1,0,1,1,1,1,'','','MemoLine() es una función muy lenta ya que busca la línea desde el principio del texto, una y otra vez.\n\nHazlo de esta manera:\n[code:3hctjgyn]\n// nFrom hay que pasarlo por referencia &quot;@&quot; y empieza valiendo 1\n\nfunction ExtractLine&#40; cText, nFrom &#41;\n\n  local cLine, nAt\n\n  nAt &#58;= At&#40; CRLF, SubStr&#40; cText, nFrom &#41; &#41;\n\n  if nAt &gt; 0\n    cLine &#58;= Substr&#40; cText, nFrom, nAt - 1 &#41;\n    nFrom += nAt + 1\n  else\n    cLine &#58;= Substr&#40; cText, nFrom &#41;\n    nFrom &#58;= Len&#40; cText &#41; + 1\n  endif\n\nreturn cLine\n[/code:3hctjgyn]','',0,'AIA=','3hctjgyn',1,0,'',2,0,0),(42963,9047,6,1106,0,'190.64.163.11',1196598770,1,0,1,1,1,0,'','Error FWH 7.12 TCLIPGET:_TYPE en un dbcombo','Antonio:\n\nMe da este error en un dbcombo\n\n   \n   Error BASE/1005  Message not found: TCLIPGET:_TYPE\n   Argumentos   :\n     [   1] = O   Object\n\nLlamadas al Stack\n   \n   Called from __ERRRT_SBASE(0)\n   Called from TCLIPGET:ERROR(169)\n   Called from (b)HBOBJECT(103)\n\nGracias\n\nSaludos\n\nRuben Fernandez','',0,'','1pf71iuz',1,0,'',1106,0,0),(42965,9049,6,103,0,'189.43.121.183',1196603424,1,0,1,1,1,1,'','Versión de xHarbour','Hola,\n\n    Quizas esta pregunta sea a Antonio Linares, pero quien tiene la respuesta, porfa dime: ¿Las nuevas versiones de FWH solo van a trabajar con la versión 0.99.71 de xHarbour? O hay alguna intención de trabajar con las nuevas versiones de xHarbour.org?\n\nGracias de antemano,','',0,'','rgx00mv7',1,0,'',103,0,0),(42966,8975,3,1181,0,'60.48.87.122',1196603530,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for your reply\n\nTried the sample. It runs OK.\nI tried some midification to the test.rmk supplied:\n\n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=c:\\harbour\nBCDIR=c:\\bcc55\n#FWDIR=c:\\fwh26\nFWDIR=c:\\fwh\n\n#change these paths as needed\n.path.OBJ = .\\obj\n.path.PRG = .\\\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\n#PRG =        \\\n#setup.PRG    \\\n#one.PRG\n\n\nPRG =        \\\n      test1.PRG \\\n      test2.PRG \\\n       .......   (40 prgs)\n                  easyprev.PRG \n\n\nC =          \\\ntwo.C                 \n\nPROJECT    : test1.exe\n\n#test1.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) test1.res\ntest1.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) \n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n#   echo obj\\ec.obj obj\\one.obj obj\\two.obj, + &gt;&gt; b32.bc\n  echo obj\\test1.obj obj\\test2 ...  obj\\easyprev.obj obj\\two.obj + &gt;&gt;b32.bc\n   echo ec.exe + &gt;&gt; b32.bc\n   echo ec.map + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveH.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\gtgui.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\hbsix.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib + &gt;&gt; b32.bc\n\n   IF EXIST test1.res echo test1.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n   del b32.bc\n\n.PRG.OBJ:\n#  $(HBDIR)\\bin\\b32\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(HBDIR)\\bin\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(BCDIR)\\bin\\bcc32 -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n  del tmp\n\n#test1.res : test1.rc\n#  $(BCDIR)\\bin\\brc32.exe -r test1.rc\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\n\nError Message:   Unable to open fiel \'.OBJ\'\n\nPlease help','',0,'','1vp73rqo',1,0,'',1181,0,0),(42967,9041,3,1190,0,'83.144.114.249',1196605138,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:zdm71qmx]\nPlease download it again, thanks[/quote:zdm71qmx]\n\nAntonio\n\nI\'ve downloaded 7.12 version of FWH.\nMy application hang-up at CreateFromCode()\nProgram working at 50% of CPU but browser doesn\'t start\n\nThe same code work correctly on FWH 7.11.\n\nI make few test of this browser, in my opinion problem exist if I use more then 2 DataLines.\nexample:\n    oBrw:nDataLines:=4\n....\n    sCRLF:=Chr(13)+Chr(10)\n....\n    oCol:bStrData :={|| \'A\'+sCRLF+\'B\'+sCRLF+\'C\'+sCRLF+\'D\' }\n....\n\n\nAny suggestion?\nRobert','',0,'gA==','zdm71qmx',1,0,'',1190,0,0),(42968,9046,6,1146,0,'87.223.173.186',1196607987,1,0,1,1,1,0,'','','Mira <!-- w --><a class=\"postlink\" href=\"http://www.utilitywarrior.com/\">www.utilitywarrior.com/</a><!-- w -->\n\nFunciona de lujo y soporta harbour!!.','',0,'gA==','30oi6d3l',1,0,'',1146,0,0),(42969,9046,6,1106,0,'190.64.163.11',1196608700,1,0,1,1,1,0,'','','Moises:\n\nParece muy bueno... podrías poner un ejemplo de su uso.\n\nMuchas gracias.\n\nRuben Fernandez.','',0,'gA==','1yhec6oc',1,0,'',1106,0,0),(42970,9031,3,58,0,'84.149.101.58',1196610991,1,0,1,1,1,0,'','','After working with C++ Builder and Delphi some years ago i found that i don\'t like an IDE which forms my programs.\n\nI spent much time to repair all those cryptic constructs like[code:jbxhu4l8]void __fastcall TForm1&#58;&#58;FormShow&#40;TObject *Sender&#41;[/code:jbxhu4l8]after having renamed a variable or another component and the ide did not succeed to rename them itself.\n\nThose IDEs slowed down my development cyclus by creating overhead to my source code which only served academic rules.\nMy wish would be a good resource editor to replace the good old Borland one.\n\nOf course this is a personal question. But i prefer coding my programs by \'typing\' and not by \'mousing\'.\nWith pur FiveWin and a good RE i will develop more rapidly as with any IDE.\n\nJust my ( personal ) 2 Cents,\nDetlef','',0,'AIA=','jbxhu4l8',1,0,'',58,0,0),(42971,9046,6,1146,0,'87.223.173.186',1196612049,1,0,1,1,1,0,'','','En el manual tienes un ejemplo para harbour.','',0,'AIA=','s6dnf2n4',1,0,'',1146,0,0),(42972,9031,3,51,0,'80.122.88.242',1196616635,1,0,1,1,1,0,'','','Hallo Detlef,\n\nI think I must accept that no one but me wants a IDE.\n\nRegards,\nOtto','',0,'AIA=','3pt0mps4',1,0,'',51,0,0),(42973,9031,3,103,0,'189.43.121.183',1196616766,1,0,1,1,1,1,'','','Otto,\n\n[quote=&quot;Otto&quot;:tad4n0er]Hallo Detlef,\n\nI think I must accept that no one but me wants a IDE.\n\nRegards,\nOtto[/quote:tad4n0er]\n\nYou\'re not alone in this desire, but the options we have are not so complete and trustable as I need.\n\nBest regards,','',0,'gA==','tad4n0er',1,0,'',103,0,0),(42974,9035,16,2,0,'87.218.146.139',1196617925,1,0,1,1,1,1,'','','Construcción Diciembre 2007 \n==================\n\n* Nuevo: Pintado transparente de \"bitmaps\".\n\n* Nuevo: La clase TXBrowse proporciona apariencia Office 2007, se ha definido 2007 como opcional. Por favor, revise el ejemplo samples\\TestXBrw.prg \n\n* Corrección: En la clase TWindow, el mÈtodo Say() no cambiaba correctamente de \"TRANSPARENT\" a \"OPAQUE\". Ahora lo hace correctamente. \n\n* Corrección: En la clase TMenu, pequeña corrección en el método Add() para mostrar el menú \"flotante\". \n\n* Nuevo: FWH proporciona sistema anti-piraterÌa basado en llaves USB estandar. Por favor, revise el ejemplo samples\\Protect.prg, tiene el\n  todo el código fuente preparado para ser incluido en sus desarrollos. \n\n* Corrección: En la clase TBar, a los métodos GoLeft() y GoRight, se ha añadido ::Refresh() que estaba ausente. \n\n* Mejora: En una ventana MDI, si las ventanas hijas son movidas en el área principal, las barras de scroll son mostradas automáticamente y \n  permite restaurar la posición de las ventanas hijas.  \n\n* Corrección: En la clase TXBrowse, el método ColAtPos() a veces daba error. Ahora está correcto.\n\n* Mejora: En la clase TComboBox, el estilo CBS_DROPDOWN permite saltar al siguiente control, mediante las teclas Tab y Return. \n\n* Nuevo: Se ha añadido la función SetBalloon( lOnOff ), para tener la forma \"Balloon\" globalmente en los \"tooltips\". La forma \"Balloon\" no se usa por defecto. Para mostrar los \"tooltips\" con forma \"Ballon\": SetBalloon( .T. ). Si quieres que un control específico muestre su \"tooltip\" de diferente manera, haz oControl:lBalloon = .F.   \n\n* Corrección: La clase TMsgBar estaba perdiendo memoria debido a recientes cambios por la apariencia Office 2007. Ahora está correcta.\n\n* Mejora: En la clase TXBrowse, en el método DefStyle(), se ha incluido el estilo DT_NOPREFIX. \n\n* Mejora: El ejemplo samples\\Test2003.prg, usa ahora una pantalla principal MDI. Por favor, revisa su código fuente utiliza un complicado método para evitar un error GPF interno con ventanas MDI.\n\n* Mejora: La clase TBtnBmp usada en una barra de botones con apariencia Office 2007 (usando la clausula 2007) soporta varias líneas usando CRLF.  \n\n* Corrección: Pequeño error en la función nDbl2Flt(). Gracias a Enrico ! \n\n* Mejora: En la clase TXBrwColumn, nueva DATA bFooter. Si se usa, se toma para pintar el contenido del pie de la columna.\n\n* Corrección: REDEFINE MENUITEM ... no disparaban sus acciones. Ahora está correcto. \n\n* Nuevo: Nuevo comando @ ..., ... XBROWSE ... para emular las clases TWBrowse y TCBrowse, para facilitar la migración a TXBrowse. Por favor, revisa el fichero include include\\xbrowse.ch. Muchas gracias a Nageswararao!\n\n* Mejora: En FiveLinux, soporte mejorado para los teclados numéricos, y para otras teclas de control. Se han implementado varias claúsulas de comandos pendientes. Por favor, revisa el fichero include include\\FiveLinux.ch \n\n* Nuevo: En FiveMac, soporte para barra de herramientas estandard de Mac OSX. Por favor, revisa el ejemplo samples\\osxpro.prg','',0,'gA==','10g0xj3u',1,0,'',2,0,0),(42975,9047,6,2,0,'87.218.146.139',1196618026,1,0,1,1,1,1,'','','Ruben,\n\nPor favor muestra la lista completa de funciones llamadas cuando sucede el error. Gracias','',0,'gA==','33uxn3ho',1,0,'',2,0,0),(42976,9041,3,2,0,'87.218.146.139',1196619212,1,0,1,1,1,1,'','','Robert,\n\nPlease try samples/TestXBrw.prg and check if it works ok for you.\n\nHere it is working fine.\n\nHave you downloaded and installed the new Harbour/xharbour build for FWH 7.12 ?','',0,'gA==','1x7ypk5i',1,0,'',2,0,0),(42977,9049,6,2,0,'87.218.146.139',1196619310,1,0,1,1,1,1,'','','Kleyber,\n\nLa versión actual FWH 7.12 usa el xHarbour más reciente, descargado desde el CVS de xHarbour','',0,'gA==','5izvnc3o',1,0,'',2,0,0),(42978,9041,3,51,0,'80.122.88.242',1196619851,1,0,1,1,1,0,'','','Robert,\nsure you have noticed that the setup for testxbrw is for ADS.\n\nRegards,\nOtto','',0,'gA==','gw9t00fe',1,0,'',51,0,0),(42979,9041,3,1231,0,'83.144.114.249',1196620007,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:tu029zos]Have you downloaded and installed the new Harbour/xharbour build for FWH 7.12 ?[/quote:tu029zos]\n\nOf course, I\'ve instaled all attached files.\n\nThe point is that this kind of deffinitions doesn\'t work:\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| AllTrim(RR-&gt;OPERATOR)+sCRLF+DToC(RR-&gt;DATA)+sCRLF+RR-&gt;GODZINA }\n   oCol:cHeader   := \"Operator\"+sCRLF+\"Data\"+sCRLF+\"Godzina\" \n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\nWhen I cut it to two lines (instead three in example) browser works correctly\n\nR.','',0,'gA==','tu029zos',1,0,'',1231,0,0),(42980,9031,3,130,0,'84.138.39.58',1196620158,1,0,1,1,1,1,'','','Otto,\n\nI am sorry, but I must agree Detlef. I am faster, too, without an IDE, I just need a resource editor and a text editor/compiler tool for xBase (like xMate, UeStudio, ...).\n\nUnderstanding and correcting the generated code takes much time. Years ago (at the beginning of the \"harbour century\") I had to decide, to use the successor of clipper, Visual Objects, or to use fivewin. I tested both, and the cryptic code from VO was horrible, hardly to understand. So I kept using Fivewin, IMHO the best solution for me and many other users.\n\nWhat we need is only a good resource editor, which fits the need of the modern operating systems.','',0,'gA==','2bjkp5nu',1,0,'',130,0,0),(42981,9031,3,35,0,'65.188.6.143',1196620723,1,0,1,1,1,0,'','','Otto\n\nLots of IDE\'s to chose from .. xHarbour has one  ( very respectable ) .. but remember the IDE you chose determines your programming style ( libraries too ) .. Like Datlef mentions .. if your IDE doesn\'t like some piece of individual code ( try pure ado which is very code intensive ) .. your IDE will ( generally ) not be flexable enough to allow you to work \'outside the box\'.\n\nI have faught DreamWeaver .. our Staff has given up on Dreamweaver.. actually Borlands IDE ( c++ and delphi ) has been replaced by MS Visual Studio in our environment.\n\nWhat is amazing to me is that I can write my programs in half the time the IDE\'rs \'dink\' with Visual Studio .. forgive me as I am not trying to be-little anyones platform .. I am not expecting for free .. SI has a ( close ) Borland replacement .. but .. not quite..\n\nI hope Santa has been listning !!\n\nRick Lipkin','',0,'gA==','1pf084r7',1,0,'',35,0,0),(42982,9041,3,2,0,'87.218.146.139',1196622188,1,0,1,1,1,1,'','','Robert,\n\nAre you using Harbour or xHarbour or xHB ?','',0,'gA==','2tcethvw',1,0,'',2,0,0),(42983,9050,6,1059,0,'190.137.38.180',1196625226,1,0,1,1,1,0,'','Copiar desde Trichedit','Buenas tardes,\n\nSi copia alguna frase al portapapeles en un texto que estoy editando con la clase Trichedit, al querer pegarlo en algúno de los campos de caractéres, el sistema se cierra previo aviso de que detectó un error y consulta si quiero enviar informe del error.\n\nSi hago al revés y quiero, al texto que estoy editando con Trichedit, pegar un texto copiado de un campo de caractéres, esto si funciona bién,\n\nTambién funciona bién si pego, al texto que estoy editando con Trichedit, una frase copiada desde un archivo editado con el word o con el block de notas.\n\n¿A que se debe?, ¿Tiene solución?\n\nGracias.\n\nRolando.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','se39k629',1,0,'',1059,0,0),(42984,9041,3,1231,0,'83.144.114.249',1196625325,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1qwgrhhq]Are you using Harbour or xHarbour [/quote:1qwgrhhq]\n\nxHarbour attached with 7.12 now.\n\nCode:\n   oBRWR := TXBrowse():New( oWNDR )\n   oBRWR:nMarqueeStyle       := MARQSTYLE_HIGHLROW //podkreslony wiersz\n   oBRWR:nColDividerStyle    := LINESTYLE_DARKGRAY\n   oBRWR:nRowDividerStyle    := LINESTYLE_DARKGRAY\n   oBRWR:lColDividerComplete := .t.\n   oBRWR:nHeaderLines        := 3\n   oBRWR:nDataLines          := 3\n   oBRWR:lFooter             := .t.\n   oBRWR:nFreeze             := 2\n   oBRWR:l2007             := .t.\n      \nErrorSys()\n   \n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| sCRLF+Str(RR-&gt;RECNO,8,0)+sCRLF }\n   oCol:cHeader   := \"L.p.\"\n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| sCRLF+Str(RR-&gt;BARCODE,8,0)+sCRLF }\n   oCol:cHeader   := \"Zlecenie\"\n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oCol:= oBRWR:AddCol()\n\n   oCol:AddBmpFile(\"BMP\\B_REJ_ON.BMP\")\n   oCol:AddBmpFile(\"BMP\\B_REJ_OF.BMP\")\n   oCol:AddBmpFile(\"BMP\\B_REJ_WI.BMP\")\n   oCol:bBmpData  := {|| IIF(RR-&gt;WFISK=0,IIF(RR-&gt;FFISK=0,2,3),1) }\n   oCol:bStrData  := {|| IIF(RR-&gt;WFISK=0,IIF(RR-&gt;FFISK=0,\'2\',\'3\'),\'1\') }\n   oCol:cHeader   := \"Druk\"\n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n   oCol:nDataStrAlign := AL_CENTER\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| AllTrim(OemToAnsi(RR-&gt;NAZW))+\' \'+AllTrim(OemToAnsi(RR-&gt;IMIE))+sCRLF+AllTrim(OemToAnsi(RR-&gt;MIASTO))+\' \'+AllTrim(OemToAnsi(RR-&gt;ADRES))+sCRLF+GET_xTABKON(RR-&gt;NR_K,7) }\n   oCol:cHeader   := \"Nazwisko i imie pacjenta\"+sCRLF+\"Adres\"+sCRLF+\"Zleceniodawca\"\n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| AllTrim(RR-&gt;PESEL)+sCRLF+DToC(RR-&gt;DATA_U)+sCRLF+RR-&gt;PLEC }\n   oCol:cHeader   := \"PESEL\"+sCRLF+\"Data urodzenia\"+sCRLF+Ptxt(\"P~le~c\") \n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| OemToANSI(RR-&gt;OPIS_IN)+sCRLF+OemToAnsi(RR-&gt;OPIS_OUT)+sCRLF+OemToAnsi(RR-&gt;CITO) }\n   oCol:cHeader   := \"Opisy\"+sCRLF+sCRLF+\"Cito\"\n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n   \n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| AllTrim(RR-&gt;OPERATOR)+sCRLF+DToC(RR-&gt;DATA)+sCRLF+RR-&gt;GODZINA }\n   oCol:cHeader   := \"Operator\"+sCRLF+\"Data\"+sCRLF+\"Godzina\" \n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| AllTrim(RR-&gt;N_OPER)+sCRLF+DToC(RR-&gt;N_DATA)+sCRLF+RR-&gt;N_TIME }\n   oCol:cHeader   := Ptxt(\"Zmieni~l\")+sCRLF+\"Data\"+sCRLF+\"Godzina\"\n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| Str(RR-&gt;LEKARZ,3,0)+sCRLF+sCRLF+Str(RR-&gt;NR_K,3,0) }\n   oCol:cHeader   := \"Lekarz\"+sCRLF+sCRLF+\"Nr K\" \n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| AllTrim(RR-&gt;A_OPER)+sCRLF+DToC(RR-&gt;A_DATA)+sCRLF+RR-&gt;A_TIME }\n   oCol:cHeader   := Ptxt(\"Odprawi~l\")+sCRLF+\"Data\"+sCRLF+\"Godzina\"\n   oCol:blDClickData  := {|| R_EDYCJA(\'S\') }\n\n   oBRWR:bClrHeader := {|| { nRGB(0,0,0), nRGB(222,227,247) } }\n   oBRWR:bClrFooter := oBRWR:bClrHeader\n   oBRWR:bClrStd    := oBRWR:bClrHeader\n   oBRWR:SetRDD()\n   oBRWR:CreateFromCode()\n   oBRWR:cToolTip = \"Zarejestrowani pacjenci\"\n   oBRWR:bKeyDown:={|nKEY| JAKIRRDOWN(nKEY) }\n   oWNDR:oClient := oBRWR','',0,'gA==','1qwgrhhq',1,0,'',1231,0,0),(42985,9037,6,215,0,'189.136.195.163',1196626778,1,0,1,1,1,1,'','algo','Al compilar con la versión xharbour del 712 que viene en el build obtengo lo siguiente:\n\nError: Unresolved external \'_HB_PCREPOS_LIBRARY\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|regex\n\nSi compilo con la 711 no sucede.\n\n\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for xHarbour FWH712        xHarbour development power              ³Ü\n³ (c) FiveTech, 1993-2007      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nPromotor.c:\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nAcceso.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_PCREPOS_LIBRARY\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|regex\n* There are errors','',0,'gA==','3tjykga0',1,0,'',215,0,0),(42986,9037,6,54,0,'189.132.113.121',1196632514,1,0,1,1,1,1,'','Re: algo','Fer,\n\nagrega la LIB pcrepos de xharbour y se solucionará\n\nsaludos\n\nwilliam\n\n\n[quote=&quot;fleal&quot;:22x2cjas]Al compilar con la versión xharbour del 712 que viene en el build obtengo lo siguiente:\n\nError: Unresolved external \'_HB_PCREPOS_LIBRARY\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|regex\n\nSi compilo con la 711 no sucede.\n\n\n\nÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿\n³ FiveWin for xHarbour FWH712        xHarbour development power              ³Ü\n³ (c) FiveTech, 1993-2007      for Microsoft Windows 95/98/NT/2000/ME and XP ³Û\nÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ\nÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß\nCompiling...\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nPromotor.c:\nBorland C++ 5.5 for Win32 Copyright (c) 1993, 2000 Borland\nAcceso.c:\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_PCREPOS_LIBRARY\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|regex\n* There are errors[/quote:22x2cjas]','',0,'gA==','22x2cjas',1,0,'',54,0,0),(42987,9046,6,1206,0,'84.77.181.21',1196635757,1,0,1,1,1,0,'','','Lo puedes hacer con pdfcreator, lo único que no funciona con vista, pero es la única opción que tienes de forma gratuita.\nLa opcion que comenta Moises es la mejor ya que no necesitas soft de terceros, sólo la DLL suministrada.','',0,'gA==','2jiiaalx',1,0,'',1206,0,0),(42988,9031,3,2,0,'87.218.146.139',1196635824,1,0,1,1,1,1,'','','So just a Borland Resources Workshop 32 bits clone...\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','35hx7j6n',1,0,'',2,0,0),(42989,8975,3,2,0,'87.218.146.139',1196636006,1,0,1,1,1,1,'','','You may need to split this line:\n\necho obj\\test1.obj obj\\test2 ... obj\\easyprev.obj obj\\two.obj + &gt;&gt;b32.bc \n\ninto several ones, if you are managing 40 PRGs\n\nPlease review the resulting b32.bc and post here its containts\n\n&gt; Error Message: Unable to open fiel \'.OBJ\' \n\nPlease copy the complete error here. Which tool reports it ? bcc32.exe ? ilink32.exe ? brc32.exe ?','',0,'gA==','1k80elbf',1,0,'',2,0,0),(42990,9037,6,2,0,'87.218.146.139',1196636592,1,0,1,1,1,1,'','','Fernando,\n\nHemos publicado un nuevo build de xHarbour que incluye PCREPOS.lib\n\nVuelve a descargarlo, gracias!','',0,'gA==','o6ihd9vu',1,0,'',2,0,0),(42991,9031,3,35,0,'65.188.6.143',1196638001,1,0,1,1,1,0,'','','Antonio\n\nJust a 32 bit resource editor .. The componants I use most are:\n\n1: Tool pallate and alignment pallate\n2: standard windows controls and line drawings \n3: Edit as text\n4: generate unique id\'s per control\n5: set order\n6: double click on control to edit properties, captions, attributes, tab stop\n7: create a .rc without header include statements\n8: formated like this .. ( typical brw output ) \n\nAUDIT DIALOG 184, 15, 235, 120\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION\nFONT 6, \"MS Sans Serif\"\n{\n LTEXT \"Audit Date\", -1, 6, 14, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n EDITTEXT 130, 65, 14, 56, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 120, 65, 29, 66, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 123, 65, 44, 66, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 124, 65, 59, 66, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 150, 7, 91, 221, 12, WS_BORDER | WS_TABSTOP\n LTEXT \"Auditor 1\", -1, 6, 29, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Auditor 2\", -1, 6, 44, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"District\", -1, 6, 59, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Comments\", -1, 7, 77, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n PUSHBUTTON \"&amp;Ok\", 121, 148, 56, 37, 25\n PUSHBUTTON \"&amp;Cancel\", 122, 190, 56, 37, 25\n}\n\nThis would capture most everything I need ..\n\nRick Lipkin','',0,'gA==','3cbcuj3l',1,0,'',35,0,0),(42992,9043,3,49,0,'62.13.172.67',1196638006,1,0,1,1,1,1,'','','have you correct only fwh ?\nI must download only fwh new ?','',0,'gA==','1c7q6td2',1,0,'',49,0,0),(42994,9041,3,2,0,'87.218.146.139',1196638893,1,0,1,1,1,1,'','','Robert,\n\nIt seems as there is a bug in Class TXBrowse function ExtractLine().\n\nWe have modified it and now this little sample works fine:\n[code:25jyruky]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local cText &#58;= &quot;One&quot; + CRLF + &quot;Two&quot; + CRLF + &quot;Three&quot;\n   local nFrom &#58;= 1\n   local nLen  &#58;= Len&#40; cText &#41;, cLine\n   \n   while nFrom &lt;= nLen\n      cLine = ExtractLine&#40; cText, @nFrom &#41;\n      MsgInfo&#40; cLine &#41;\n   end\n\nreturn nil\n\nfunction ExtractLine&#40; cText, nFrom &#41;\n\n  local cLine, nAt\n\n  nAt &#58;= At&#40; CRLF, SubStr&#40; cText, nFrom &#41; &#41;\n\n  if nAt &gt; 0\n    cLine &#58;= Substr&#40; cText, nFrom, nAt - 1 &#41;\n    nFrom += nAt + 1\n  else\n    cLine &#58;= Substr&#40; cText, nFrom &#41;\n    nFrom &#58;= Len&#40; cText &#41; + 1\n  endif\n\nreturn cLine\n[/code:25jyruky]\nPlease replace the function ExtractLine() in Class TXBrowse and try your application again, thanks!','',0,'AIA=','25jyruky',1,0,'',2,0,0),(42995,9043,3,49,0,'62.13.172.67',1196638954,1,0,1,1,1,1,'','','Antonio I recompiled with the last lib\nbut there is an error :\n\nI  made a xbrowse with bitmaps on header tosayto user wich field index\n\non the header of Xbrowse I not see the bitmaps\nwhen I click on each header I can see the bitmap on the left of the records\n\nthis is a part of my code \n\n\n oCol:= oApp():oGrid:AddCol()\n                                          [b:2dei8gev]oCol:AddResource(\"sort1\")[/b:2dei8gev]                                         [b:2dei8gev] oCol:AddResource(\"sort2\")[/b:2dei8gev]                                          oCol:bStrData := { ||  (oDCli)-&gt;NOMEINTERO}\n                                          oCol:cHeader  := \"Cognome Nome\"\n                                          oCol:nWidth   := 250\n                                          oCol:nHeadBmpNo    := 2\n                                          oCol:nHeadBmpAlign := AL_RIGHT\n                                          oCol:bLClickHeader :={ ||(Sel_Index(2,oDCli), oApp():oTab:nOption:=2,oApp():oTab:refresh())  }\n\n\n\nAlso in your sample testxbrowse there is an error\nlook it please\n [url=http&#58;//img150&#46;imageshack&#46;us/my&#46;php?image=errorbrwsekv9&#46;png:2dei8gev][img:2dei8gev]http&#58;//img150&#46;imageshack&#46;us/img150/6581/errorbrwsekv9&#46;th&#46;png[/img:2dei8gev][/url:2dei8gev]','',0,'WA==','2dei8gev',1,0,'',49,0,0),(42996,9043,3,2,0,'87.218.146.139',1196640380,1,0,1,1,1,1,'','','Silvio,\n\nFixed. We are uploading a new FWH 7.12 build.\n\nIt will be ready to download in just some minutes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease remember to set RGB( 255, 0, 255 ) as the color for the transparent area of the bitmaps\n\nThanks!\n\n[url=http&#58;//imageshack&#46;us:2q22ar63][img:2q22ar63]http&#58;//img258&#46;imageshack&#46;us/img258/3040/xbrowseqg3&#46;png[/img:2q22ar63][/url:2q22ar63]','',0,'GA==','2q22ar63',1,0,'',2,0,0),(42997,9036,3,2,0,'87.218.146.139',1196640843,1,0,1,1,1,1,'','','There are no two without three <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThere is a new FWH 7.12 build ready to be downloaded that fixes:\n\n* Transparent bitmaps on XBrowse  (reported by Silvio)\n* Class TXBrowse function ExtractLine() (reported by Robert)\n\nThanks!','',0,'GA==','3oyckceg',1,0,'',2,0,0),(42998,9047,6,1106,0,'190.64.164.234',1196640852,1,0,1,1,1,0,'','','Antonio:\n\nTenia una clase tGet modificada por mi, la borre\ny ahora funciona bien.\n\nMuchas gracias y disculpe.\n\nSaludos.\n\nRuben Fernandez.','',0,'GA==','kp1r2c1h',1,0,'',1106,0,0),(42999,9047,6,2,0,'87.218.146.139',1196640907,1,0,1,1,1,1,'','','Ruben,\n\nGracias por comentarlo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3w28kzat',1,0,'',2,0,0),(43000,9037,6,2,0,'87.218.146.139',1196641036,1,0,1,1,1,1,'','','No hay dos sin tres <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  \n\nHemos publicado un nuevo build de FWH 7.12 que ya está listo para ser descargado, que arregla: \n\n* Bitmaps transparentes en XBrowse (reportado por Silvio) \n* Class TXBrowse function ExtractLine() (reportado por Robert)','',0,'GA==','3guqeckt',1,0,'',2,0,0),(43001,9041,3,2,0,'87.218.146.139',1196641724,1,0,1,1,1,1,'','','Robert,\n\nJust download FWH 7.12 again and your app should work fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','27qx5u29',1,0,'',2,0,0),(43002,5953,3,213,0,'76.31.45.189',1196641812,1,0,1,1,1,0,'','Re: TxBrowse: Paint problem','Maurilio,\n\nI\'ve just started using xbrowse and have encountered the same problem.  Did you ever find a solution?\n\nThanks,\nRandal Ferguson\n\n\n[quote=&quot;Maurilio Viana&quot;:33ku444g]Yesterday I tested TxBrowse a long time using a lot of \"styles\" (with header, without header, with footer, without footer, etc) then I could found the main cause of problem:\nDepending on resource height we have the problem on painting browse cells (line level) or width (columns levels).\nData are duplicated on display or cell was wrong painted. It occur when total xbrowse line is more than total visible lines.\n\nWhat do I to solve?\n\nI couldn\'t found in xBrowse.prg the correct place were this paint bug occur then in \"TxBrowse\" resource I enlarged 1 or 2 pixels time of height and/or width and tested several times until get a size were this problem don\'t occur.\n\nThe strange thing is Wbrowse don\'t depend on \"TwBrowse\" resource size and have not this paint problem...\n\nRegards,\nMaurilio[/quote:33ku444g]','',0,'gA==','33ku444g',1,0,'',213,0,0),(43003,5953,3,51,0,'80.122.88.242',1196643006,1,0,1,1,1,0,'','','Which FWH version do you use?\n\nWith early 7.11 I had problems with seek - see the fix:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8789&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\nRegards,\nOtto','',0,'gA==','24okgq5f',1,0,'',51,0,0),(43004,5953,3,2,0,'87.218.146.139',1196643793,1,0,1,1,1,1,'','','Otto,\n\nAnd they got fixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1dtdbk6f',1,0,'',2,0,0),(43005,5953,3,2,0,'87.218.146.139',1196643868,1,0,1,1,1,1,'','','Randal,\n\n&gt; I\'ve just started using xbrowse and have encountered the same problem\n\nCould you please provide a small sample to reproduce it ? Thanks!','',0,'gA==','1q7pdlsv',1,0,'',2,0,0),(43006,9051,3,239,0,'121.33.138.9',1196644344,1,0,1,1,1,0,'','Share add on xbrowse 3D header  codes','Hi, \n  METHOD PaintHeader( nRow, nCol, nHeight, lInvert, hDC ) CLASS TXBrwColumn\n   ...\n// begin add on\n   nTop    = 0  \n   nBottom = nTop + nHeight1 \n   nLeft  := ncol-2   \n   nRight  = Min(  nLeft + ::nwidth  , ::obrw:nWidth )\n      \n   if ncol == Len( ::obrw:acols )\n         nRight = nWidth\n   endif          \n               \n   WndBox( hDC, ntop-1 , nLeft - 2, nBottom+1, nRight-1 )\n   WndBoxRaised( hDC, nTop+1, nLeft-1, nBottom , nRight-1  )   \n\n// end add on\n\n\n oFont:Deactivate( hDC )\n\n   if !lOwnDC\n      ::oBrw:ReleaseDC()\n   endif\n\nreturn nil\n  \n\nMETHOD Paint() CLASS TXBrowse\n\n...\n /*\n   Paint Header\n   */\n\n  \n  replace  \n   if ::lHeader\n    ...\n   end\n\nwith:\n   \n if ::lHeader\n      if !lOnlyData\n         nRow    := 0\n         nHeight := ::nHeaderHeight - 3\n         // top line \n         MoveTo( hDC,1, nRow)\n         LineTo( hDC, nBrwWidth, nRow, hGrayPen )\n         nRow++\n         MoveTo( hDC, 1, nRow )\n         LineTo( hDC, nBrwWidth, nRow, hWhitePen )\n         nRow++\n         MoveTo( hDC, 1, nRow + nHeight)\n         LineTo( hDC, nBrwWidth, nRow +  nHeight , hGrayPen )\n         aColors := Eval( ::bClrHeader, Self )  \n         hBrush  := CreateSolidBrush( aColors[ 2 ] )       \n         FillRect( hDC, {nRow, 2, nRow + nHeight, nBrwWidth}, hBrush )\n         DeleteObject( hBrush )\n      \n        \n         for nFor := 1 to nLast\n            nCol := aCols[ nFor ]\n            oCol := ::ColAtPos( nFor )           \n            oCol:PaintHeader( nRow, nCol, nHeight ) \n         \n         next\n         \n         // paint space right col header, 2007 look\n          nTop    = 0  \n            nBottom = nTop + nHeight \n            nLeft  := ncol   \n            nRight  =  ::nWidth\n            nWidth:=nright\n          nBottom = nRow + ( nHeight / 3 )\n        Gradient( hDC, { nRow - 1, nCol+ocol:nwidth, nBottom, nCol + nWidth + 2 },;\n                nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ), .T. ) \n      Gradient( hDC, { nBottom + 1, nCol+ocol:nwidth, nRow + nHeight - 1, nCol + nWidth },;\n                nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ), .T. )     \n      \n         \n         // 3d header box\n            nTop    = 0  \n            nBottom = nTop + nHeight \n            nLeft  := ncol   \n            nRight  =  ::nWidth\n                        \n               \n            WndBox( hDC, ntop - 1, nLeft+ocol:nwidth, nBottom+1, nRight-1 )\n            WndBoxRaised( hDC, nTop+1, nLeft+1+ocol:nwidth, nBottom , nRight - 1 )         \n         \n      \n      endif\n      nFirstRow += ::nHeaderHeight\n   endif\n\n\n Have a fun\n\nShuming Wang','',0,'','1qldalmh',1,1196645570,'',239,1,0),(43007,9051,3,2,0,'87.218.146.139',1196644607,1,0,1,1,1,1,'','','Shuming,\n\nCould you please post a screenshot of how it looks ? thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1xidlsnw',1,0,'',2,0,0),(43008,9051,3,239,0,'121.33.138.9',1196645119,1,0,1,1,1,0,'','','Antonio,\n  Here is\n  [img:ot2zhld6]http&#58;//www&#46;xtech&#46;com&#46;cn/down/fwh/xbrowse-3d-header&#46;jpg[/img:ot2zhld6]\n  If you want paint space lines below data lines  and right  data columns like excel, there must add another codes .\n\nEngjoy !\n\nShuming Wang','',0,'CA==','ot2zhld6',1,0,'',239,0,0),(43009,9052,3,239,0,'121.33.138.9',1196646664,1,0,1,1,1,0,'','Share add on xbrowse  setmysql(),ntotal(),auto mutilines','1.\nMETHOD SetMySQL(oquery) CLASS TXBrowse\n	      \n	DEFAULT	::bGoTop    := {|| oQuery: GoTop() },;\n				::bGoBottom := {|| oQuery: GoBottom() },;\n   	                        ::bSkip     := {| n |oQuery: SKIP( n ) },;\n   	                        ::bSkipper  := {| n |oQuery: SKIPPER( n ) },; // not reach eof() +1\n				::bBof      := {|| oQuery: Bof() },;\n				::bEof      := {|| oQuery: Eof() },;\n				::bBookMark := {| n | if( n == nil, oQuery:RecNo(),oQuery:Goto( n ))},;\n				::bKeyNo    := ::bBookMark,;\n				::bKeyCount := {|| oQuery:LastRec() },;\n	                        ::odbf:=oQuery\n\nreturn nil\n\n <!-- m --><a class=\"postlink\" href=\"http://www.xtech.com.cn/down/tmysql.prg\">http://www.xtech.com.cn/down/tmysql.prg</a><!-- m -->\n\n2 .\nMethod nTotal() class TXbrowse\nlocal i,i2,i1\n      \n     ::lfooter:=.t.   \n     if len(::acols)&gt;1;   ::acols[1]:cfooter:=\"Total\"; end    \n     \n     for i:=2 to len(::acols)\n         if len(::acols[i]:cfooter)&gt;=1\n            ::acols[i]:cfooter:=\" \"           \n         end\n     next     \n      eval(::bgotop)      \n     while !eval(::bEof)\n           if len(::aSelected)&gt;0.and.aScan(::aSelected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n           for i2:=2 to len(::acols)\n             if len(::acols[i2]:cfooter)&gt;=1\n                 ::acols[i2]:cfooter:=cvaltochar(val(::acols[i2]:cfooter)+val(cvaltochar(eval(::acols[i2]:bStrData))))\n              end\n           next i2\n           eval(::bSkip)\n     end    \n  \n \n   ::adjust()\n   ::GoTop()\n   ::Refresh()\nReturn Nil\n\n\n3. Auto multi lines  data\nMETHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder ) CLASS TXBrwColumn\n\n\n   ...\n\n SetBkColor( hDC, aColors[ 2 ] )\n\n // add the line\n ::nDataStyle := ::DefStyle( ::nDataStrAlign, (::obrw:dataheight()/::DataHeight()&lt;2 ) ) \n     \n\n      DrawTextEx( hDC, cData,;\n   ...\n\n   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nShuming Wang','',0,'','1i0qg1yn',1,0,'',239,0,0),(43010,9050,6,1059,0,'190.31.55.151',1196647242,1,0,1,1,1,0,'','','Más Datos,\n\nSi luego de copiar al portapapeles, pego el mismo en el block de notas y luego lo pego en el campo de caracteres, así si lo toma sin problemas.\n\nEs como si al pegar primero en el block de notas cambiase el formato del portapapeles a solo texto.\n\nDeduzco de esto que el formato que tiene lo copiado desde una edición en Trichedit no es el adecuado para pasarlo a un campo de caracteres.\n\n¿Como podría convertirlo antes de pasarlo al campo de caracteres?\n\nGracias.\n\nRolando  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'','280aos8m',1,0,'',1059,0,0),(43011,9052,3,1193,0,'203.73.9.189',1196647918,1,0,1,1,1,0,'','','Hi ShumingWang,\n\nThanks for your code.\n\nRegards,\n\nRichard','',0,'','1n7bq9lk',1,0,'',1193,0,0),(43012,9041,3,1231,0,'83.144.114.249',1196665623,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1vnankv3]and your app should work fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1vnankv3]\n\nIt works:)\nThanks\n\nR.','',0,'gA==','1vnankv3',1,0,'',1231,0,0),(43013,9015,6,21,0,'83.61.248.75',1196666650,1,0,1,1,1,1,'','','Antonio,\n\nFunciona perfectamente. \n\nMuchas gracias por la respuesta.','',0,'gA==','2yxkonrt',1,0,'',21,0,0),(43014,9053,3,239,0,'59.41.188.73',1196667308,1,0,1,1,1,0,'','button(btnbmp) of buttonbar disable caption color fixed','METHOD Paint() CLASS TBtnBmp\n\n  ...\n\nif ! Empty( ::cCaption )\n         nClr = If( IsWindowEnabled( ::hWnd ), ::nClrText, CLR_HGRAY )\n         SetTextColor( ::hDC, nClr )  // add the line ,show disable button ccaption/text color\n         nTop = 2 * ( ::nHeight / 3 ) + If( ::lPressed, 1, 0 ) + If( At( CRLF, ::cCaption ) == 0, 5, 0 ) \n         SetBkMode( ::hDC, 1 )\n\n  ...\n\nEnjoy this.\n\nShuming Wang','',0,'gA==','dxi35tfr',1,0,'',239,0,0),(43015,9043,3,49,0,'213.82.134.66',1196668383,1,0,1,1,1,1,'','','Antonio,\nthanks\nbut the link is too slow... I must go to school this morning..I \'ll try from there ....wait me!!','',0,'gA==','2gg1b2uq',1,0,'',49,0,0),(43016,9054,6,940,0,'189.175.174.85',1196671436,1,0,1,1,1,1,'','DE PDF A TXT','Hola a todos me he visto en la necesidad de \n\nenviar un archivo PDF a txt o dbf\n\nalguien que ya haya tenido alguna experiencia con este tema?\n\ny quiera compartir sus conocimientos,\n\n\n\n\nsaludos y gracias.','',0,'gA==','2x48bgh3',1,0,'',940,0,0),(43017,9055,20,29,0,'88.149.163.122',1196671960,1,0,1,1,1,0,'','Apertura finestra dos durante il link','Salve a tutti,\nho uno strano problema che non riesco a risolvere.\n\nUtilizzo xMate per la compilazione ed il link delle applicazioni FWH. In pratica xMate non fa altro che eseguire harbour.exe per ogni modulo modificato e poi exegue ilink32.\n\nIl problema è che qualunque applicazione che opera in modalità testo mi determina lo switch dello schermo dalla modalità windows per poi tornare in modalità windows, questo per tutte le volte che viene eseguita.\nOvviamente questo mi rallenta la compilazione.\n\nHo effettivamente verificato anche eseguendo harbour.exe che invece di apparire una piccola finestra windows con i dati dell\'esecuzione, avviene lo switch dello schermo in modalità dos a caratteri per poi terminata l\'esecuzione ritornare in modalità windows.\n\nSapete per caso che opzione di windows cìè da settare affinché non si apra una finestra dos ?\n\nUtilizzo Windows XP sp2 ed il problema mi si verifica da qualche giorno senza un motivo apparente.\n\nGrazie in anticipo\n\nSaluti\n\nMArco','',0,'gA==','2zbobs6x',1,0,'',29,0,0),(43018,9053,3,2,0,'87.218.146.139',1196674985,1,0,1,1,1,1,'','','Shuming,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2ld8dpde',1,0,'',2,0,0),(43019,9031,3,2,0,'87.218.146.139',1196677197,1,0,1,1,1,1,'','','I need some RC files as large as possible.\n\nPlease email them to me as a ZIP file. Please don\'t include external files (.bmp, .ico, etc.)\n\nThey will be kept privately and they will not be published or distributed\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','33k23yzo',1,0,'',2,0,0),(43020,9056,3,86,0,'81.83.151.142',1196678452,1,0,1,1,1,1,'','Zip and unzip','Hello,\n\nI\'am using FW 7.12 with xHarbour Project Builder (version 11/2007).\n\nFor many months I\'m trying to make zip and unzip work with xHarbour, unfortunately without any succes.\n\nTo solve my problem for the moment, I still use my zip- and unzip-function in a small program, made in FiveWin for Clipper (16 bits), which works quite well.\n\nSince all the rest of my application is running in 32 bits now, I\'d like to zip and unzip in 32 bits too, of course.\n\nThe testzip.prg in the sample file doesn\'t work. I keep getting errors the certain functions don\'t exist, although I added the xhbzip.lib library\n\nBut I\'m gettig very disperate.\n\nPlease, can someone provide me a working example to zip or unzip, together with a list of the necessary libraries ?\n\nThank you very much in advance.','',0,'gA==','2agw6vk8',1,0,'',86,0,0),(43021,8766,4,1218,0,'81.84.76.100',1196678599,1,0,1,1,1,0,'','','Hi,\n\nNow the executable is created, but everting back to the begin !\n\nWhen i run the executable the pda shows the same message !\n\nCannot fint \'EXECUTABLE\' (or one of its components).\nMake sure the path and filename are correct and that all the required libraries are available.\n\n <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nRegards.','',0,'gA==','gpa60pdw',1,0,'',1218,0,0),(43022,9057,3,2,0,'87.218.146.139',1196682873,1,0,1,1,1,1,'','FWH Resources Editor - Speed test','This is just a speed test to check how fast we can open a RC file.\n\nPlease download this very early prototype and open the largest RC that you may have:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/73981103/re.zip.html\">http://rapidshare.com/files/73981103/re.zip.html</a><!-- m -->\n\nNow we just need to know if we are fast enough opening and parsing a very large RC file, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2tjxmlhd',1,0,'',2,0,0),(43023,9031,3,2,0,'87.218.146.139',1196682957,1,0,1,1,1,1,'','','Please stop sending RC files, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nNow I just need you to do some speed tests:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9057\">http://fivetechsoft.com/forums/viewtopic.php?t=9057</a><!-- m -->\n\nThanks again!','',0,'gA==','3a0prort',1,0,'',2,0,0),(43024,8766,4,2,0,'87.218.146.139',1196683343,1,0,1,1,1,1,'','','Please try again this test:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/68314392/tutor01.zip.html\">http://rapidshare.com/files/68314392/tutor01.zip.html</a><!-- m -->','',0,'gA==','1a6svwpu',1,0,'',2,0,0),(43026,9037,6,1146,0,'87.223.173.186',1196684984,1,0,1,1,1,0,'','','Antonio:\n\nHe notado un aumento de velocidad en la ejecución del programa bestial de la versión f.10 a la f.12. ¿A qué se debe?. ¿Son anucinaciones mías?.\n\nEnhorabuena por las novedades de diciembre <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'gA==','29rcprfp',1,0,'',1146,0,0),(43027,8766,4,1218,0,'81.84.76.100',1196685342,1,0,1,1,1,0,'','','António,\n\nThe TUTOR01 give the same error !!!\n\nRegards.','',0,'gA==','isr4kgxw',1,0,'',1218,0,0),(43028,9057,3,51,0,'80.122.88.242',1196685555,1,0,1,1,1,0,'','','Speed is realtime!','',0,'gA==','9slexedb',1,0,'',51,0,0),(43029,9057,3,6,0,'87.9.34.238',1196685745,1,0,1,1,1,1,'','Re: FWH Resources Editor - Speed test','Is instantaneous with a 370 KB RC file here.\n\nEMG','',0,'gA==','39phfnle',1,0,'',6,0,0),(43030,9056,3,6,0,'87.9.34.238',1196686462,1,0,1,1,1,1,'','Re: Zip and unzip','If you are using xHarbour.com version then you have to ask them. I used hbzip.lib of xHarbour.org for years without problems.\n\nEMG','',0,'gA==','28uvk1bj',1,0,'',6,0,0),(43031,9057,3,86,0,'81.83.151.142',1196686912,1,0,1,1,1,1,'','','Antonio,\n\nThe biggest RC-file I have is as big as 2.2 MB.\n\nIt contains :\n- 644 Dialog boxes\n- 106 Bitmaps\n- 8 Icons\n\nYour prototype opens my RC-file in approx. 1 min.\n\nBut I\'m looking forward to the evolution of your resource editor.\n\nGood luck.','',0,'gA==','2tukwyqo',1,0,'',86,0,0),(43032,9056,3,3,0,'195.112.192.252',1196687229,1,0,1,1,1,1,'','Re: Zip and unzip','Michel\n\nGive me your email address, i will send you my housekeeping program. \n\nIt use xharbour zip function for zipping and unzipping\n\nHTH\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1a6f25wj',1,0,'',3,0,0),(43033,9057,3,6,0,'87.9.34.238',1196687485,1,0,1,1,1,1,'','','You should test removing bitmaps and icons from the RC.\n\nEMG','',0,'gA==','2sbcg9jo',1,0,'',6,0,0),(43034,9058,3,995,0,'81.11.193.29',1196688789,1,0,1,1,1,0,'','Tooltip','Hello,\n\nI am trying to use tooltips in get\'s, and try to impliment :\n\n  1) When the get has focus , to show the tooltip with a key press , F1 as in clipper ?\n\n  2) Same , but edit the tooltip\n\nSo i can build a dbf with the tooltips . The user can make his own tooltips\n\nFrank','',0,'gA==','d7xik5im',1,0,'',995,0,0),(43035,9031,3,35,0,'167.7.140.254',1196689383,1,0,1,1,1,0,'','','Antonio\n\nOur Agency has the rapidshare.com site blocked .. ( wholesome workplace rules ) ..\n\nIf you would not mind sending me your test program .. I will let you know.\n\nRick Lipkin\n<!-- e --><a href=\"mailto:lipkinrm@dhec.sc.gov\">lipkinrm@dhec.sc.gov</a><!-- e -->','',0,'gA==','2i8d1ahy',1,0,'',35,0,0),(43036,8766,4,2,0,'87.218.146.139',1196690444,1,0,1,1,1,1,'','','Do you have a Pocket PC application that works on your Pocket PC and also on the Pocket PC emulator (the same EXE file) ?\n\nIf yes, then please email it to me as a ZIP file, thanks','',0,'gA==','6kl5ytkp',1,0,'',2,0,0),(43037,9058,3,995,0,'81.11.193.29',1196690602,1,0,1,1,1,0,'','','First test :\n\noGet:bKeydown := {|nKey,bFlags|IIF(nKey==VK_F1 ,trace(\"F1\"),)}\n\nGives first a alert dialog \"Help file not available\". Can it be avoided ?\n\nReplacing VK_F1 with VK_F2 shows that bkeydown is executed twice. Maybe from loosing and regaining focus\n\noGet:bKeydown := {|nKey,bFlags|IIF(nKey==VK_F2 ,trace(\"F2\"),)}\n\nSecond test :\n\noGet:bKeydown := {|nKey,bFlags|IIF(nKey==VK_F2 ,oGet:ShowToolTip(),)}\n\nThis has no result , no tooltip !','',0,'gA==','29i782nz',1,0,'',995,0,0),(43038,9031,3,2,0,'87.218.146.139',1196690671,1,0,1,1,1,1,'','','Rick,\n\nAlready sent to your yahoo email account, thanks!','',0,'gA==','3l15ut6o',1,0,'',2,0,0),(43039,9059,6,911,0,'200.72.141.51',1196694477,1,0,1,1,1,1,'','nro de instancias de un exe','Hola:\nCómo puedo evitar que un ejecutable se cargue dos o más veces en memoria?. Que solamente me permita mantener una instancia a la vez.\nGracias.','',0,'gA==','3p7fxzvf',1,0,'',911,0,0),(43040,5953,3,213,0,'98.196.64.111',1196694529,1,0,1,1,1,0,'','','Antonio,\n\nI\'ll try to put one together for you. Using FWH 7.11\n\nThanks,\nRandal Ferguson\n\n[quote=&quot;Antonio Linares&quot;:22wl4oqv]Randal,\n\n&gt; I\'ve just started using xbrowse and have encountered the same problem\n\nCould you please provide a small sample to reproduce it ? Thanks![/quote:22wl4oqv]','',0,'gA==','22wl4oqv',1,0,'',213,0,0),(43041,9059,6,1201,0,'200.90.17.154',1196694995,1,0,1,1,1,0,'','','Puedes almacenar un archivo temporal en el disco de la estación (si no existe, lo creas),El cual bloqueas exclusivo cuando entras, si no te permite bloquearlo, es que ya está siendo utilizado (ya activastes una vez)\n\n\nSe que es un poco primitivo, pero trabaja para mi.','',0,'gA==','34dqqj97',1,0,'',1201,0,0),(43042,9056,3,1193,0,'203.70.88.141',1196695014,1,0,1,1,1,0,'','Re: Zip and unzip','[quote=&quot;Richard Chidiak&quot;:2pa4w7lx]Michel\n\nGive me your email address, i will send you my housekeeping program. \n\nIt use xharbour zip function for zipping and unzipping\n\nHTH\n\nRichard <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:2pa4w7lx]\n\nHi Richard,\n\nCould you send to me? Thank you.\n<!-- e --><a href=\"mailto:richard-service@hotmail.com\">richard-service@hotmail.com</a><!-- e -->\n\nRegards,\n\nRichard Huang','',0,'gA==','2pa4w7lx',1,0,'',1193,0,0),(43043,9060,3,995,0,'81.11.193.29',1196695237,1,0,1,1,1,0,'','fwh7.12 : Print preview problem','Antonio,\n\nIn 21-11 i reported a print problem, probably with the preview dialog when a MDI dialog as main dialog is used.\n\nI tested it with the last 7.12 : IT IS NOT SOLVED !!!!\n\nFrank','',0,'gA==','txp569ja',1,0,'',995,0,0),(43044,9056,3,86,0,'81.83.151.142',1196695291,1,0,1,1,1,1,'','','Richard,\n\nThanks a lot for your help.\n\nMy email : <!-- e --><a href=\"mailto:michel.driessen@ma-consult.be\">michel.driessen@ma-consult.be</a><!-- e -->','',0,'gA==','1tatysmj',1,0,'',86,0,0),(43045,9059,6,456,0,'62.43.24.65',1196696243,1,0,1,1,1,1,'','','[code:100ek5e9]\n   IF IsExeRunning&#40;cFileName&#40;GetModuleFileName&#40;GetInstance&#40;&#41;&#41;&#41;&#41;   //cFileName&#40;HB_ARGV&#40;0&#41;&#41;\n      MsgStop&#40;&quot;Programa ya se está ejecutando!&quot;+CRLF+CRLF+&quot;Este programa no permite multiples instancias!&quot;&#41;\n      QUIT\n   ENDIF\n[/code:100ek5e9]','',0,'AIA=','100ek5e9',1,0,'',456,0,0),(43046,9059,6,987,0,'189.133.22.1',1196696356,1,0,1,1,1,0,'','','Saludos metaldrummer:  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nHazlo más facil, agrega estas líneas en tu codifo fuente:\n\nFunction Main()\n\n\nIF IsExeRunning( cFileName( HB_ARGV(0) ) ) \n    MsgStop( \"¡¡¡ ERROR CRITICO !!!\"+CRLF+CRLF+\"No es posible cargar más de 1 copia del Programa en su PC  \"+\",\"Mensaje del Sistema\") \n    QUIT \nENDIF\n\n\nReturn nil\n\nProbado <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> , asì no usas ninguna variable que cualquier usuario \"escurridiso\" pueda modificar y entrar cuantas veces quiera..\n\nEspero te sirva.\n\nSaludos...\n\nI.S.C. Victor Daniel Cuatecatl Leon\nSoluciones y Desarrollo de Software Empresarial\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'AIA=','3pi6eb90',1,0,'',987,0,0),(43047,9060,3,995,0,'81.11.193.29',1196696445,1,0,1,1,1,0,'','','Making some more tests :\n\nThe preview window is behind the program window , it can not be set first.\n\nIt is possible to set it normal (not maximized) , and then drag and drop it on a second monitor. Placing it back on the first monitor , it is hided after the program window.\n\nFrank','',0,'AIA=','15jvc34m',1,0,'',995,0,0),(43048,9031,3,35,0,'167.7.140.254',1196697414,1,0,1,1,1,0,'','','Antonio\n\nGot it .. opens one of my most challenging .rc\'s up in text mode .. not a problem... however it just has controls only.\n\nRick Lipkn','',0,'AIA=','26rtwovj',1,0,'',35,0,0),(43049,8984,6,1201,0,'200.90.17.154',1196697723,1,0,1,1,1,0,'','','ESTE ES UN FUENTE PARA LEER ARCHIVOS DE TEXTO, ESPERO QUE TE SIRVA DE ALGO\n\n\nPARAM ARCH_DIC\nMAXLINE=512\nHANDLE=FOPEN(ARCH_DIC)\nDO WHILE .T.\n  BUFFER=SPACE(MAXLINE)\n  NUM_BYTES=FREAD(HANDLE,@BUFFER ,MAXLINE)\n  LINE_END=AT(CHR(13)+CHR(10),BUFFER)\n  IF LINE_END#0\n\n    ? SUBSTR(BUFFER,1,LINE_END)\n\n    FSEEK(HANDLE,LINE_END+1-NUM_BYTES,1)\n  ELSE\n    FSEEK(HANDLE,0)\n    EXIT\n  ENDIF\nENDDO\nFCLOSE(ARCH_DIC)','',0,'AIA=','17mk9qjs',1,0,'',1201,0,0),(43050,9050,6,1059,0,'201.252.202.32',1196698272,1,0,1,1,1,0,'','','Buen día,\n\nDisculpen la insistencia, pero, me urge una solución.\n\n¿Nadie tiene experiencia en el tema?.\n\nGracias.\n\nRolando  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','246qdynn',1,0,'',1059,0,0),(43051,8994,3,217,0,'200.159.120.34',1196700387,1,0,1,1,1,0,'','','Antonio,\n\nI changed my TGet.prg Paint method to draw a rectangle before DispEnd() call. I created a pen with the color I want the border. And worked fine (I must try under Win 98).\n\nBut I want to do the same in combobox control. Do you have idea of a place to insert rectangle call to draw the \"new\" border of combobox?\n\nRegards,\nMaurilio','',0,'AIA=','o7ibc1xi',1,0,'',217,0,0),(43052,9050,6,2,0,'87.218.146.139',1196700449,1,0,1,1,1,1,'','','Rolando,\n\nPrueba samples\\TestRtf.prg, pulsa el primer botón, copia una parte de texto y pulsa el botón buscar y pega el texto. Aqui no da error.','',0,'AIA=','1bk87k8c',1,0,'',2,0,0),(43053,8994,3,2,0,'87.218.146.139',1196700807,1,0,1,1,1,1,'','','Maurilio,\n\nYou have to implement Method Paint() in Class TComboBox and do similar as we do in Class TButtonBmp: (source\\classes\\buttonb.prg)\n[code:oci1j7bb]\nMETHOD Paint&#40;&#41; CLASS TComboBox\n\n   local aInfo &#58;= &#58;&#58;DispBegin&#40;&#41;\n\n   CallWindowProc&#40; &#58;&#58;nOldProc, &#58;&#58;hWnd, WM_PAINT, &#58;&#58;hDC, 0 &#41;\n\n   If&#40; ! Empty&#40; &#58;&#58;bPainted &#41;, Eval&#40; &#58;&#58;bPainted, &#58;&#58;hDC &#41;,&#41;\n\n   &#58;&#58;DispEnd&#40;&#41;\n\nreturn 1\n[/code:oci1j7bb]\nAlso you may need to add:\n[code:oci1j7bb]\n   METHOD Display&#40;&#41; INLINE &#58;&#58;BeginPaint&#40;&#41;, &#58;&#58;Paint&#40;&#41;, &#58;&#58;EndPaint&#40;&#41;, 0\n[/code:oci1j7bb]','',0,'AIA=','oci1j7bb',1,0,'',2,0,0),(43054,9060,3,2,0,'87.218.146.139',1196701021,1,0,1,1,1,1,'','','Frank,\n\nIf your main window is MDI then the preview will show as a MDICHILD child unless you remove the MDICHILD clause from source\\classes\\rpreview.prg','',0,'AIA=','235tyhre',1,0,'',2,0,0),(43055,9031,3,217,0,'200.159.120.34',1196701067,1,0,1,1,1,0,'','','We brazilians use xDevStudio (from Vailton). I ask Vailton times ago and he have plans to translate it to English and Spanish. xDev is a great (free) tool that have all MED editor have and tools like code completion that is very very good (like Delphi, VB, etc.).\nThe only thing xDev have not yet is a RC editor...\n\nRegards\nMaurilio','',0,'AIA=','24t3fuq4',1,0,'',217,0,0),(43056,9056,3,34,0,'68.5.217.82',1196701295,1,0,1,1,1,1,'','Zip','I use xHarbour Builder with zip/unzip and absolutely no problem, and I have for several years.  Make sure the .dll is included','',0,'AIA=','1x3ozv6i',1,0,'',34,0,0),(43057,9060,3,35,0,'167.7.140.254',1196701695,1,0,1,1,1,0,'','','Frank\n\nIf you are calling your print routine from MDI .. you can use this to keep the previewer from running off.\n\noPRINT:lPrvModal:= .T.\n\n\nJust plug this in after you define your printer object.\n\nHope this helps\n\nRick Lipkin','',0,'AIA=','37bbcefa',1,0,'',35,0,0),(43058,9031,3,303,0,'72.220.100.171',1196701728,1,0,1,1,1,0,'','','Perhaps it would be helpful if everyone listed the features that they would like most to have in a new resource editor.\n\nRick Lipkin listed this:\n\n1) just a clean header free ( text ) .rc and formated correctly!\n\nI would most like it to remember the last path when loading bitmaps. Borland forgets each time and I have to make about 10-15 mouse clicks to add each bitmap. This gets very tedious.\n\n2) Remember last path to each resource type added to the project.\n\nHere are a couple more things I would like:\n\n3) Be able to put a dialog on a folder inside the RE so you can get the size and position correct. \n\n4) Be able to set the styles of controls via checkboxes rather than having to add the manifest constants.\n\nOthers?\n\nJames','',0,'AIA=','3n0kkk5j',1,0,'',303,0,0),(43059,8994,3,303,0,'72.220.100.171',1196701888,1,0,1,1,1,0,'','','Maurilio,\n\nIs there a reason you don\'t want to just use the themed look? This would give you the flat border on all controls and it is the way most programs are now.\n\nJames','',0,'AIA=','2cf5go71',1,0,'',303,0,0),(43060,9046,6,542,0,'81.37.170.244',1196701984,1,0,1,1,1,0,'','','Hola y gracias por las recomendaciones, pero yo lo que buscaba era algo como la clase TPDF o similar, Gracias','',0,'AIA=','2trpbx3o',1,0,'',542,0,0),(43061,8994,3,303,0,'72.220.100.171',1196702305,1,0,1,1,1,0,'','','Maurilio, \n\nI re-read the message thread and realized you want to use different border colors as indicators.\n\nStill as I pointed out in a previous message, the method Microsoft has started using is coloring the control\'s background not the border. So you might want to consider doing this instead (and it would not require modification of any of the FW source).\n\nJames','',0,'AIA=','2hbogbn2',1,0,'',303,0,0),(43062,8994,3,303,0,'72.220.100.171',1196703046,1,0,1,1,1,0,'','','Maurilio,\n\nHere is an example using controls with colored backgrounds as indicators. The pink field is missing critical data and the yellow field contains questionable data ( the email address is missing the @).\n\nThese are a way of addressing my philosophy of not requiring even critical data to be entered before allowing the user to close the dialog. I find that forcing the user to enter all critical fields before closing the dialog just puts the user in the pridicament of having to make up data in order to finish what they are doing. I would rather have no data than wrong data--you can never tell if it is wrong, you can tell if it is missing.\n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:2n04k3nl][img:2n04k3nl]http&#58;//img2&#46;freeimagehosting&#46;net/uploads/9ce9759e23&#46;jpg[/img:2n04k3nl][/url:2n04k3nl]','',0,'GA==','2n04k3nl',1,0,'',303,0,0),(43063,9006,2,124,0,'190.225.0.226',1196708279,1,0,1,1,1,0,'','','Esos errores aleatorios nos han acompañado siempre en mayor o menor medida, si bien estamos pensando seriamente el paso a Harbour 32, decime por favor cómo has trabajado para minimizar los errores que tenemos mientras aun estemos en win16.\n\nGracias.','',0,'GA==','2s3t4g38',1,0,'',124,0,0),(43064,9046,6,1206,0,'213.97.245.163',1196708456,1,0,1,1,1,0,'','','En el apartado de fivewin clipper, hay recientemente un post sobre este asunto.\nEspero que te sirva','',0,'GA==','30z0m3an',1,0,'',1206,0,0),(43065,9056,3,86,0,'81.83.151.142',1196709039,1,0,1,1,1,1,'','','Tim,\n\nIs it possible to send me your PRG-file with the ZIP and UNZIP-function ?\n\nIf you should do so, please send them as TXT-file since PRG-files are standard not accepted by Outlook.\n\nMy e-mail : <!-- e --><a href=\"mailto:michel.driessen@ma-consult.be\">michel.driessen@ma-consult.be</a><!-- e -->\n\nThank you very much.','',0,'GA==','3f27dffi',1,0,'',86,0,0),(43066,9061,3,1231,0,'83.144.114.249',1196710136,1,0,1,1,1,0,'','RS232','From few years I used FW 2.3 version of FW. I\'ve used RS232 to print barcodes on serial printers. \nNow when I change my environment to xHarbour and install FWH 7.12 I found that my code doesn\'t work correctly.\n\nI\'ve started do debug my program and I\'ve found that SetCommState(cDcb)\nhangs up my program. Has somebody an idea how to use serial ports with xHarbour?\n\nFunction COM_OPEN(xPORT)\nLocal pNAME:=IIF(xPORT=1,\"COM1\",\"COM2\")\nLocal nError,cDCB\nLocal xRESZTA:=.T.\nhPORT:= OpenComm( pNAME, 2048, 2048 )\nIf ! BuildCommDcb( pNAME+cSPEED, @cDcb )\n    nError = GetCommError( hPORT )\n         MsgInfo( \"BuildCommDcb Error: \" + Str( nError ) )\n   xRESZTA:=.F.\nEndIf\nIf ! SetCommState( cDcb )\n\n// there programs brakes //\n\n         nError = GetCommError( hPORT )\n         MsgInfo( \"SetCommState Error: \" + Str( nError ) )\n   xRESZTA:=.F.\nEndIf\n....\nReturn\n\nRegards\nRobert','',0,'GA==','2qs7wmcg',1,0,'',1231,0,0),(43067,9031,3,1146,0,'87.223.173.186',1196710948,1,0,1,1,1,0,'','','Hi!!,\n\nUestudio is a great tool <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->. I think we better have a visual report designer rather than a resource generator or an IDE.\n\nWe can use pelles or workshop, but, what report designer that works fine and stable do we have?.\n\nBest regards,\n\nMoisés','',0,'GA==','26btnhnf',1,0,'',1146,0,0),(43069,9061,3,34,0,'68.5.217.82',1196711761,1,0,1,1,1,1,'','RS232','You might want to post that on one of the xHarbour newsgroups.','',0,'GA==','35x1xwt5',1,0,'',34,0,0),(43070,9061,3,1231,0,'83.144.114.249',1196712011,1,0,1,1,1,0,'','Re: RS232','[quote=&quot;TimStone&quot;:2o7q4d3p]You might want to post that on one of the xHarbour newsgroups.[/quote:2o7q4d3p]\n\nIt works again\nI\'ve found my mistake, there are small differences between clipper and harbour in using SetCommState()\n\ncorrect line is:\nIf ! SetCommState( hPORT, cDcb )\n\nI\'m going to test RS communication with laboratory analysers now. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRobert','',0,'gA==','2o7q4d3p',1,0,'',1231,0,0),(43071,9031,3,909,0,'71.71.110.50',1196712174,1,0,1,1,1,1,'','','Ditto on the checkboxes for control styles.  RW won\'t even allow \"TCS_MULTILINE\" to be added to a folder style in RW so it has to be added by hand in the RC file.  \n\nAlso, I\'ve found that RC doesn\'t recognise some bitmap files.\n\nRegards,\nCharles Pratt','',0,'gA==','23ixp0un',1,0,'',909,0,0),(43072,9062,6,221,0,'190.78.40.241',1196713617,1,0,1,1,1,1,'','se puede poner un scroll a un dialogo?','se puede poner un scroll a un dialogo u obligatoriamente tiene que ser un window, he probado con oDlg:oVScroll := .T. y nada\n\ngracias de antemano','',0,'gA==','3kaa4ho5',1,0,'',221,0,0),(43073,9037,6,215,0,'189.136.51.65',1196714126,1,0,1,1,1,1,'','gracias','Gracias por la info,\nhe agregado la lib al bat de compilación y todo bien.\n\nFernando','',0,'gA==','hpddogpf',1,0,'',215,0,0),(43074,9061,3,2,0,'87.218.146.139',1196714415,1,0,1,1,1,1,'','','Robert,\n\nVery good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','4655tyg9',1,0,'',2,0,0),(43075,9037,6,2,0,'87.218.146.139',1196714611,1,0,1,1,1,1,'','','Moises,\n\nAlgunos procesos se han optimizado para aumentar velocidad <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nGracias!','',0,'gA==','3eix1y23',1,0,'',2,0,0),(43076,9055,20,29,0,'88.149.163.122',1196714838,1,0,1,1,1,0,'','','Ho risolto ripristinando la configurazione di sistema di windows ad una settimana fa.\n\nStranezze di windows....','',0,'gA==','2so6dxg1',1,0,'',29,0,0),(43077,9006,2,2,0,'87.218.146.139',1196714904,1,0,1,1,1,1,'','','Ricardo,\n\nEl error 332 puede \"mejorarse\" reduciendo el número de variables estáticas usadas, agrupándolas en una sola que las contenga a todas en un array. Que heapsize y stacksize estais usando en el fichero LNK ?\n\nDe todas formas, la verdadera solución es pasar a 32 bits y asi superar las barreras que tienen las aplicaciones en 16 bits.','',0,'gA==','22u4b8pb',1,0,'',2,0,0),(43078,9062,6,644,0,'201.255.250.80',1196714960,1,0,1,1,1,0,'','','En Fivewin Brasil hay una clase para ese tema. Saludos','',0,'gA==','353rp7gm',1,0,'',644,0,0),(43079,9062,6,2,0,'87.218.146.139',1196715055,1,0,1,1,1,1,'','','Puedes usar WS_VSCROLL en el estilo del recurso y luego con cierto código conseguir el desplazamiento vertical del contenido del diálogo.\n\nPero es más práctico usar un folder que obligar al usuario a desplazarse verticalmente','',0,'gA==','1xn9vw8k',1,0,'',2,0,0),(43080,9061,3,1231,0,'83.144.114.249',1196715354,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2s5ghmo5]Robert,\n\nVery good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2s5ghmo5]\n\nAntonio\nLike a beginers, I\'ve started to read examples and sources <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','2s5ghmo5',1,0,'',1231,0,0),(43081,9030,6,147,0,'190.137.240.235',1196716689,1,0,1,0,1,1,'','','Armando:\nSin dudas que compartir ...\\System32 es de alto riesgo. Deberías contemplar poner el archivo \"disfrazado\" en cada PC cliente\n\nsaludos','',0,'gA==','np8j81yk',1,0,'',147,0,0),(43082,9050,6,1059,0,'190.137.126.145',1196717440,1,0,1,1,1,0,'','','Muchas gracias Antonio,\n\nEl TestRtf.prg me sirvió para ver mi error. Lo comento por si a Alguien alguna vez le pase lo pueda solucionar como he hecho yo leyendo este foro.\n\nLa cuestión es que el texto que edito con la Trichedit, está dentro de un diálogo modal. Cuando lo abro hago esto:\n\n-- local hRichDLL := LoadLibrary( \"riched32.dll\" )\n\ny cuando lo cierro:\n\n-- FreeLibrary( hRichDLL ).\n\nComo para seguir con el programa debía cerrarlo, se ejecutaba el FreeLibrary( hRichDLL ) y calculo que ese es el error porque si saco esta última línea FUNCIONA CORRECTAMENTE.\n\nGracias.\n\nRolando\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','iywjxd67',1,0,'',1059,0,0),(43083,9060,3,995,0,'81.11.193.29',1196717528,1,0,1,1,1,0,'','','Antonio\n\nIf you are sugesting that what i described is only possible when i changed rpreview.prg : this is not true\n\nI use the library from fwh , repreview.prg is dated from 2/11/2007\n\nFrank','',0,'gA==','ukiru6x9',1,0,'',995,0,0),(43084,9063,6,1059,0,'190.137.126.145',1196718031,1,0,1,1,1,0,'','Trichedit (más) Hipervínculo EXTRAÑO','Cosa extraña pasa con mi programa.\n\nVez pasada consulté y quedé conforme con que el problema de no ejecutarse los Hipervínculos que escribiera dentro de un richedit se debía a que mi versión de FWH no lo contemplaba.\n\nResulta que trabajé bastante haciendo un método que agregué a la clase Trichedit para que al clickear dos veces sobre ese hipervínculo se ejecutara con mi método y funciona todo bién. Lo probé en dos PC\'s que tengo en mi casa, una de última generación y otra de unos tres años.\n\nAl llevar el programa a las dos pc\'s del lugar donde trabajo, y al probar el funcionamiento de mi método, este funciona correctamente pero, para mi sorpresa, también funciona el hipervínculo original (clickeando una sola vez sobre el hipervínculo). Es muyyy raro y no entiendo porque pasa esto. \n\nEn las cuatro pc tengo instalado el Win xp.\n\n¿Que puede ocasionar esto?, ¿Alguien tiene alguna idea?\n\nGracias. \n\nRolando  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'gA==','2crvrsmu',1,0,'',1059,0,0),(43085,9057,3,1231,0,'83.144.114.249',1196719361,1,0,1,1,1,0,'','','Antonio, your application doesn\'t open strings like:\n\nSTRINGTABLE LOADONCALL MOVEABLE DISCARDABLE \n{\n 8100, \"sekcja bazy danych RR - buttonbar\"\n\n.......\n\n 8110, \"Przyporz\\271dkowanie numeru zlecenia   F11\"\n}\n\nSpeed is realtime.','',0,'gA==','olb4j8yv',1,0,'',1231,0,0),(43086,9030,6,53,0,'189.139.22.40',1196720052,1,0,1,1,1,1,'','','Mario:\n\nGracias por la sugerencia, en verdad agradezco el interes, sin embargo creo que no me soluciona el problema, veras, en ese archivo disfrazado de DLL mantengo la información de los dias transcurridos que lleva de uso el sistema, como mencione lo tengo instalado en un red P2P y no instalo el EXE más que en la PC que hace las veces de servidor, de tal forma que todas las terminales cargar el exe desde el servidor.\n\nMi problema es que la busqueda de la \"DLL\" se hace en el DD de cada terminal y no en el DD del \"servidor\".\n\nSi coloco el archivo \"DLL\" en cada terminal practicamente cada terminal tendría su propio registro de uso y si sale por ahí algun usuario con iniciativa va a lograr usar el sistema durante 30 dias y cuando caduque pues usa otra terminal y tendrá 30 dias mas y así sucesivamente.\n\nCreo que mi solución debe ser que solo haya una sola DLL en el DD del servidor y que todas las terminales lo lean perooo...   esa solución es la que ando buscando  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> .\n\nUn abrazo','',0,'gA==','2yjnvbjq',1,0,'',53,0,0),(43087,9057,3,2,0,'87.218.146.139',1196720354,1,0,1,1,1,1,'','','Robert,\n\nThank you! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2bz7ckyr',1,0,'',2,0,0),(43088,9057,3,34,0,'68.5.217.82',1196722747,1,0,1,1,1,1,'','Speed','Yes, it loads it fast and opens as text ....','',0,'gA==','25xaqbvb',1,0,'',34,0,0),(43089,9050,6,2,0,'87.218.146.139',1196728660,1,0,1,1,1,1,'','','Rolando,\n\nBien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','g1tf0j37',1,0,'',2,0,0),(43090,9046,6,661,0,'189.155.207.1',1196731801,1,0,1,1,1,0,'','','ahi tienes la respuesta, funciona con FWH\n\n[url:2n4661oa]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=8137&amp;postdays=0&amp;postorder=asc&amp;start=15[/url:2n4661oa]\n\nsaludos.\nAlex.','',0,'EA==','2n4661oa',1,0,'',661,0,0),(43091,9057,3,439,0,'200.125.33.51',1196739858,1,0,1,1,1,1,'','','Antonio me parece excelente que se desarrolle un resource editor de Fivewin!!!!!!!!!!\n\nups se me escápó en español\n\nWith a 560K RC with dialogs bitmaps and icons it takes 7 seconds in a Standard P4 3GHz.','',0,'EA==','3br1yckd',1,0,'',439,0,0),(43092,9064,6,215,0,'189.136.51.65',1196743759,1,0,1,1,1,1,'','una corrección','Antonio,\n\nCon el último build obtengo este error.\nEl bkeydown se evalua dos veces, en mi caso he optado por tomar el tget.prg de la FW712  y he comentado las lineas para evitar que truene.\ncon ésta modificación hecha funciona bien.\n\nMETHOD KeyDown( nKey, nFlags ) CLASS TGet\n\n   local nHi, nLo, nPos, nLastHi := -1\n   \n\n   ::nLastKey = nKey\n\n//   if ::bKeyDown != nil\n\n//      if Eval( ::bKeyDown, nKey, nFlags, Self ) == 0\n//         return 0\n//      endif\n//\n//   endif\n\n   do case\n      case nKey == VK_UP\n\n\n\nEste es el error \n\nApplication\n===========\n   Path and name: E:\\ap\\Captura\\Digital.exe (32 bits)\n   Size: 2,400,768 bytes\n   Time from start: 0 hours 0 mins 23 secs \n   Error occurred at: 03/12/2007, 18:45:17\n   Error description: Error BASE/1070  Argument error: ==\n   Args:\n     [   1] = L   .T.\n     [   2] = N   0\n\nStack Calls\n===========\n   Called from: Digital.prg =&gt; TGET:KEYDOWN(677)\n   Called from: Digital.prg =&gt; TGETFER:KEYDOWN(159)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: Digital.prg =&gt; TGET:HANDLEEVENT(486)\n   Called from: Digital.prg =&gt; TGETFER:HANDLEEVENT(82)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: DSuper.prg =&gt; DOBLECAPTURA(2388)\n   Called from: DSuper.prg =&gt; (b)DSUPER(189)\n   Called from: Digital.prg =&gt; TGETFER:LVALID(1002)\n   Called from: CONTROL.PRG =&gt; TGETFER:FWLOSTFOCUS(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: Digital.prg =&gt; TGET:HANDLEEVENT(486)\n   Called from: Digital.prg =&gt; TGETFER:HANDLEEVENT(82)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SYSREFRESH(0)\n\n\n\nFernando Leal\nMéxico, DF','',0,'','2fdlxez1',1,0,'',215,0,0),(43093,8975,3,1181,0,'60.49.118.123',1196750011,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for your reply\n\n\nThe make file:\n\n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=c:\\harbour\nBCDIR=c:\\bcc55\n#FWDIR=c:\\fwh26\nFWDIR=c:\\fwh\n\n#change these paths as needed\n.path.OBJ = .\\obj\n.path.PRG = .\\\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\n#PRG =        \\\n#setup.PRG    \\\n#one.PRG\n\nPRG =        \\\nsetup.PRG    \\\nvrd.PRG      \\\nvrdbcode.PRG \\\nvrdini.PRG   \\\nvrditem.PRG  \\\nwindow.PRG   \\\neasyprev.PRG \\\none.PRG\n\nC =          \\\ntwo.C                 \n\nPROJECT    : setup.exe\n\n#setup.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) setup.res\nsetup.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) \n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n#   echo obj\\setup.obj obj\\one.obj obj\\two.obj, + &gt;&gt; b32.bc\n  echo obj\\setup.obj obj\\vrd.obj obj\\vrdbcode.obj obj\\vrdini.obj obj\\vrditem.obj obj\\window.obj obj\\easyprev.obj obj\\one.obj obj\\two.obj + &gt;&gt; b32.bc\n   echo setup.exe + &gt;&gt; b32.bc\n   echo setup.map + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveH.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\gtgui.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\hbsix.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib &gt;&gt; b32.bc\n\n   IF EXIST setup.res echo setup.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n   del b32.bc\n\n.PRG.OBJ:\n#  $(HBDIR)\\bin\\b32\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(HBDIR)\\bin\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(BCDIR)\\bin\\bcc32 -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n  del tmp\n\n#setup.res : setup.rc\n#  $(BCDIR)\\bin\\brc32.exe -r setup.rc\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\n\Z\Z\Z\Z\Z\n\nb32.bc  :\n\nc:\\bcc55\\bin\\c0w32.obj + \nobj\\setup.obj obj\\vrd.obj obj\\vrdbcode.obj obj\\vrdini.obj obj\\vrditem.obj obj\\window.obj obj\\easyprev.obj obj\\one.obj obj\\two.obj + \nsetup.exe + \nsetup.map + \nc:\\fwh\\lib\\FiveH.lib c:\\fwh\\lib\\FiveHC.lib + \nc:\\harbour\\lib\\rtl.lib + \nc:\\harbour\\lib\\vm.lib + \nc:\\harbour\\lib\\gtgui.lib + \nc:\\harbour\\lib\\lang.lib + \nc:\\harbour\\lib\\macro.lib + \nc:\\harbour\\lib\\rdd.lib + \nc:\\harbour\\lib\\dbfntx.lib + \nc:\\harbour\\lib\\dbfcdx.lib + \nc:\\harbour\\lib\\dbffpt.lib + \nc:\\harbour\\lib\\hbsix.lib + \nc:\\harbour\\lib\\debug.lib + \nc:\\harbour\\lib\\common.lib + \nc:\\harbour\\lib\\pp.lib + \nc:\\harbour\\lib\\codepage.lib + \nc:\\bcc55\\lib\\cw32.lib + \nc:\\bcc55\\lib\\import32.lib + \nc:\\bcc55\\lib\\psdk\\odbc32.lib + \nc:\\bcc55\\lib\\psdk\\nddeapi.lib + \nc:\\bcc55\\lib\\psdk\\iphlpapi.lib + \nc:\\bcc55\\lib\\psdk\\rasapi32.lib \n\nThe Error Message:\n\nUnable to open \'SETUP.EXE\'   (setup.prg is actually c:\\fwh\\samples\\msgdate.prg)\n\n\nPlease help\n\n\nThanks','',0,'','9ymroote',1,0,'',1181,0,0),(43094,9031,3,51,0,'80.122.88.242',1196752921,1,0,1,1,1,0,'','','Ad Editor)\nWhat I would like is a possibility to color parts of the code.\nExample: You create a new function, then you mark the whole function with red what means you have to double check this part of your code – other parts you could mark green meaning you have checked the source or use colors for other tasks.\nSometimes I use MSWord for that.\nRegards,\nOtto','',0,'','zzxigj22',1,0,'',51,0,0),(43095,9046,6,542,0,'88.23.159.100',1196754077,1,0,1,1,1,0,'','','Gracias por vuestera informacion, lo introducire en mi aplicacion y espero que como parece funcione bien \nUn saludo\nCarlos','',0,'','2do46wv1',1,0,'',542,0,0),(43096,9056,3,303,0,'72.220.100.171',1196755049,1,0,1,1,1,0,'','','Michel,\n\n&gt;If you should do so, please send them as TXT-file since PRG-files are standard not accepted by Outlook\n\nThey could also be zipped, but you can configure Outlook to accept PRGs. I Outlook Express you go to Tools, Options, Security, then uncheck \"Do not allow attachments to be saved or opened that could potentially be virus.\" Outlook is probably similar.\n\nJames','',0,'','2zpr2b6n',1,0,'',303,0,0),(43097,8975,3,2,0,'87.218.146.139',1196755142,1,0,1,1,1,1,'','','Acwoo,\n\nThere are three commas missing in your b32.bc:\n\nobj\\setup.obj obj\\vrd.obj obj\\vrdbcode.obj obj\\vrdini.obj obj\\vrditem.obj obj\\window.obj obj\\easyprev.obj obj\\one.obj obj\\two.obj [color=red:364e96i8][b:364e96i8], [/b:364e96i8][/color:364e96i8]+ \nsetup.exe[color=red:364e96i8][b:364e96i8] , [/b:364e96i8][/color:364e96i8]+ \nsetup.map [color=red:364e96i8][b:364e96i8], [/b:364e96i8][/color:364e96i8]+','',0,'Qg==','364e96i8',1,0,'',2,0,0),(43098,9064,6,2,0,'87.218.146.139',1196755252,1,0,1,1,1,1,'','','Fernando,\n\nEs que hay que modificar ::bKeyDown para que devuelva cero ó nil\n\npero vamos a modificar la clase para mantener compatibilidad con el código anterior <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Qg==','2sqixysx',1,0,'',2,0,0),(43099,9064,6,2,0,'87.218.146.139',1196755494,1,0,1,1,1,1,'','','Fernando,\n[code:3r4k3dtq]\n   if &#58;&#58;bKeyDown != nil\n      if ValType&#40; uVal &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41; &#41; == &quot;N&quot; &#46;and&#46; ;\n         uVal == 0\n         return 0\n      endif   \n   endif   \n[/code:3r4k3dtq]\nComo al final se llama a Super:KeyDown() se debe estar llamando dos veces a bKeyDown. A ver como lo solucionamos. Gracias!','',0,'AIA=','3r4k3dtq',1,0,'',2,0,0),(43100,9064,6,2,0,'87.218.146.139',1196755658,1,0,1,1,1,1,'','','Fernando,\n\nEn window.prg hay que modificar esto en el método KeyDown:\n[code:h0etrzxj]\n   if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; != &quot;TGET&quot; &#46;and&#46; &#58;&#58;bKeyDown != nil\n      return Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41;\n   endif\n[/code:h0etrzxj]','',0,'AIA=','h0etrzxj',1,0,'',2,0,0),(43101,9065,20,1009,0,'82.187.221.169',1196757178,1,0,1,1,1,0,'','problemi con testxbrw.prg','ciao a tutti,\nho appena installato fwh 7.12 con harbour e xharobur 1.0 scaricato insieme a fwh.\nnon riesco a compilare testxbrw.prg ne con harbour ne con xharbour \nmi danno diversi unresolved external in alcune funzioni ads.\nla libreria rddads.lib è presente in entrambi i compilatori.\nharbour:\n_HB_FUN_ADSSETSERVERTYPE\n_HB_FUN_ADSSETFILETYPE\n_HB_FUN_ADS\necc.\n\nxHarbour:\nAdsDDAddUserToGroup\nAdsDDCreate\nAdsConnect60\nAdsRestructureTable\necc\n\ngrazie, marzio','',0,'AIA=','2x386fra',1,0,'',1009,0,0),(43102,9066,6,1146,0,'87.223.173.186',1196758030,1,0,1,1,1,0,'','comprobar que exista un campo en la base de datos','Hola:\n\nQuiero hacer lo siguiente. Quiero verificar que exista un campo en la base de datos, del que se el nombre pero no la posición. ¿Por favor, me podéis decir cómo?.\n\nMuchas gracias.\n\nUn saludo,\n\nMoisés','',0,'AIA=','285b1efo',1,0,'',1146,0,0),(43103,9067,3,162,0,'62.47.179.160',1196758343,1,0,1,1,1,0,'','2007 style question','Is there a way to check if someone uses \"classical windows\" desighn in XP or Vista ?\nIsAppThemed() still returns .T.\nIn this case menu and messagebar are 2007 style, dialogs look \"old\" which gives a strange look in that combination.\n\nRegards,\nDietmar','',0,'AIA=','2gk8vcrq',1,0,'',162,0,0),(43104,9068,7,1135,0,'189.136.184.223',1196758657,1,0,1,1,1,1,'','uso de radiobutton desde resources','Antonio:\nNecesito usar RadioButtos desde resources, tengo el siguiente codigo y no se como hacer para conocer el status de los objetos, necesito algo asi como :lIsChecked() o :lChecked, pero no puedo obtener el status.\n\nMI CODIGO:\n\n  REDEFINE RADIO oRadF1 var nRadF1 ID 405 OF oDlg ;// Sel Opcion1\n           on click ( oRadF2:uncheck(), oRadF2:refresh() )\n\n  REDEFINE RADIO oRadF2 var nRadF2 ID 406 OF oDlg ;// Sel Opcion2\n           on click ( oRadF1:uncheck(), oRadF1:refresh() )\n\nLO ANTERIOR SI FUNCIONA, solo que en otra parte del programa no puedo conocer el status de oRadF1, oRadF2. -Que me falta?\n\nGRACIAS. SALUDOS!','',0,'AIA=','3hufx5sp',1,0,'',1135,0,0),(43105,9068,7,456,0,'62.43.24.65',1196760300,1,0,1,1,1,1,'','','Entiendo que no estas definiendo bien el RadioButton, porque los defines como elementos separados, cuando debieras definir un solo radiobutton, con todos los elementos que quieras, en tu caso dos.\n\n[code:1lbthg6g]\nREDEFINE RADIO oRad VAR nRad ID 405,406 OF oDlg\n[/code:1lbthg6g]\nDe esta forma, ya no hace falta que programes nada en on click, puesto que lo gestiona el control, y para saber que elemento tienes seleccionado, consultas la variable nRad que será 1 o 2 dependiendo de la selección.','',0,'AIA=','1lbthg6g',1,0,'',456,0,0),(43106,9066,6,456,0,'62.43.24.65',1196760544,1,0,1,1,1,1,'','','FieldPos( &lt;cFieldName&gt; ) --&gt; nFieldPos\nDevuelve la posicion del campos si existe en la tabla, o cero en el caso de no existir.','',0,'AIA=','1hodeqaw',1,0,'',456,0,0),(43107,9066,6,1146,0,'87.223.173.186',1196761565,1,0,1,1,1,0,'','','Muchas gracias !!','',0,'AIA=','14nr86sa',1,0,'',1146,0,0),(43108,8994,3,217,0,'200.159.120.34',1196763272,1,0,1,1,1,0,'','','Antonio:\nThanks a lot, I\'ll try it!\n\nJames:\nThe intention is paint the border with a different color to mandatory fields (for example) to let the user have a visual reference.\nUsing themes under XP we have controls with line border or \"flat style\" but who don\'t use themes or Win98 don\'t have it. The only way I found to use this flat borders and colored references is changing controls for myself.\n\nBest regards,\nMaurilio','',0,'AIA=','193vulyz',1,0,'',217,0,0),(43110,9067,3,2,0,'87.218.146.139',1196764437,1,0,1,1,1,1,'','','Dietmar,\n\n&gt; IsAppThemed() still returns .T. \n\nIsAppThemed() just checks is the themes manifest file is included in the EXE\n\nWe need to find a way to detect if the user has the classic look','',0,'EA==','3go7y13f',1,0,'',2,0,0),(43111,8975,3,1181,0,'218.111.67.227',1196768604,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for your reply\n\nThe changed make file:\n#Borland make sample, (c) FiveTech Software 2005\n\nHBDIR=c:\\harbour\nBCDIR=c:\\bcc55\n#FWDIR=c:\\fwh26\nFWDIR=c:\\fwh\n\n#change these paths as needed\n.path.OBJ = .\\obj\n.path.PRG = .\\\n.path.CH  = $(FWDIR)\\include;$(HBDIR)\\include\n.path.C   = .\\\n.path.rc  = .\\\n\n#important: Use Uppercase for filenames extensions, in the next two rules!\n\n#PRG =        \\\n#setup.PRG    \\\n#one.PRG\n\nPRG =        \\\nsetup.PRG    \\\nvrd.PRG      \\\nvrdbcode.PRG \\\nvrdini.PRG   \\\nvrditem.PRG  \\\nwindow.PRG   \\\neasyprev.PRG \\\none.PRG\n\nC =          \\\ntwo.C                 \n\nPROJECT    : setup.exe\n\n#setup.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) setup.res\nsetup.exe  : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) \n   echo off\n   echo $(BCDIR)\\bin\\c0w32.obj + &gt; b32.bc\n#   echo obj\\setup.obj obj\\one.obj obj\\two.obj, + &gt;&gt; b32.bc\n  echo obj\\setup.obj obj\\vrd.obj obj\\vrdbcode.obj obj\\vrdini.obj obj\\vrditem.obj obj\\window.obj obj\\easyprev.obj obj\\one.obj obj\\two.obj, + &gt;&gt; b32.bc\n   echo setup.exe, + &gt;&gt; b32.bc\n   echo setup.map, + &gt;&gt; b32.bc\n   echo $(FWDIR)\\lib\\FiveH.lib $(FWDIR)\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n#   echo $(HBDIR)\\lib\\b32\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rtl.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\vm.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\gtgui.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\lang.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\macro.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\rdd.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\hbsix.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\debug.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\common.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\pp.lib + &gt;&gt; b32.bc\n   echo $(HBDIR)\\lib\\codepage.lib + &gt;&gt; b32.bc\n   @echo EASYPREV.LIB + &gt;&gt; b32.bc\n   @echo FIVEHN.LIB + &gt;&gt; b32.bc\n   @echo ZLIB1.LIB + &gt;&gt; b32.bc\n   @echo ZIPARCHIVE.LIB + &gt;&gt; b32.bc\n   @echo HBZLIB.LIB + &gt;&gt; b32.bc\n   @echo MAIL.LIB + &gt;&gt; b32.bc\n   @echo VRD.LIB + &gt;&gt; b32.bc\n   @echo EASYPREVIEW.LIB + &gt;&gt; b32.bc\n   @echo LIBCT.LIB + &gt;&gt; b32.bc\n   @echo $(CW32_LIB) + &gt;&gt; b32.bc\n   @echo $(IMPORT32_LIB) + &gt;&gt; b32.bc\n\n   rem Uncomment these two lines to use Advantage RDD\n   rem echo $(HBDIR)\\lib\\rddads.lib + &gt;&gt; b32.bc\n   rem echo $(HBDIR)\\lib\\Ace32.lib + &gt;&gt; b32.bc\n\n   echo $(BCDIR)\\lib\\cw32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\import32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\iphlpapi.lib + &gt;&gt; b32.bc\n   echo $(BCDIR)\\lib\\psdk\\rasapi32.lib &gt;&gt; b32.bc\n\n   IF EXIST setup.res echo setup.res &gt;&gt; b32.bc\n   $(BCDIR)\\bin\\ilink32 -Gn -aa -Tpe -s @b32.bc\n   del b32.bc\n\n.PRG.OBJ:\n#  $(HBDIR)\\bin\\b32\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(HBDIR)\\bin\\harbour $&lt; /L /N /W /Oobj\\ /I$(FWDIR)\\include;$(HBDIR)\\include\n  $(BCDIR)\\bin\\bcc32 -c -tWM -I$(HBDIR)\\include -oobj\\$&amp; obj\\$&amp;.c\n\n.C.OBJ:\n  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS &gt; tmp\n  echo -I$(HBDIR)\\include;$(FWDIR)\\include &gt;&gt; tmp\n  $(BCDIR)\\bin\\bcc32 -oobj\\$&amp; @tmp $&amp;.c\n  del tmp\n\n#setup.res : setup.rc\n#  $(BCDIR)\\bin\\brc32.exe -r setup.rc\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\Z\n\nThe error.log:\nApplication\n===========\n   Path and name: C:\\fwhtmp7\\setup.exe (32 bits)\n   Size: 1,491,968 bytes\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 04/12/2007, 19:33:31\n   Error description: Error BASE/1004  Message not found: TDIALOG:BERASEBKGND\n   Args:\n     [   1] = O   Object\n\nStack Calls\n===========\n   Called from:  =&gt; __ERRRT_SBASE(0)\n   Called from:  =&gt; TDIALOG:ERROR(172)\n   Called from: source\\rtl\\tobject.prg =&gt; (b)HBOBJECT(103)\n   Called from:  =&gt; TDIALOG:MSGNOTFOUND(0)\n   Called from:  =&gt; TDIALOG:BERASEBKGND(162)\n   Called from:  =&gt; TDIALOG:ERASEBKGND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\setup.PRG =&gt; MSGDATE(0)\n   Called from: .\\setup.PRG =&gt; (b)MAKEMENU(0)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\window.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: .\\setup.PRG =&gt; MAIN(0)\n\nSystem\n======\n   CPU type: AMD Sempron(tm)   2200+ 1500 Mhz\n   Hardware memory: 192 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour devel build 1.1-1 Intl.\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 23\n      1 M\n      2 Default IME\n      3 Start Menu\n      4 CiceroUIWndFrame\n      5 SysFader\n      6 AVG E-mail Scanner\n      7 Select a date\n      8 TEST\n      9 Command Prompt\n     10 <!-- w --><a class=\"postlink\" href=\"http://www.FiveTechSoft.com\">www.FiveTechSoft.com</a><!-- w --> :: View topic - Upgrade to 7.11 - Microsoft Internet Explorer\n     11 MCI command handling window\n     12 Acrobat IEHelper\n     13 DDE Server Window\n     14 lxbk POR Monitor\n     15 LEXLMPM\n     16 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}\n     17 AVGEMC\n     18 Connections Tray\n     19 Power Meter\n     20 MS_WebcheckMonitor\n     21  \n     22 LexPPS BCE Comm Window\n     23 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   __ERRRT_SBASE\n     Param   1:    N    13\n     Param   2:    N    1004\n     Param   3:    C    \"Message not found\"\n     Param   4:    C    \"TDIALOG:BERASEBKGND\"\n     Param   5:    N    1\n     Param   6:    O    Class: TDIALOG\n     Local   1:    U    \n   TDIALOG:ERROR\n     Param   1:    C    \"Message not found\"\n     Param   2:    C    \"TDIALOG\"\n     Param   3:    C    \"BERASEBKGND\"\n     Param   4:    N    1004\n   (b)HBOBJECT\n     Param   1:    O    Class: TDIALOG\n     Param   2:    C    \"BERASEBKGND\"\n   TDIALOG:MSGNOTFOUND\n     Param   1:    C    \"BERASEBKGND\"\n   TDIALOG:BERASEBKGND\n   TDIALOG:ERASEBKGND\n     Param   1:    N    16842837\n     Local   1:    O    Class: TDIALOG\n     Local   2:    S    \n     Local   3:    U    \n   TWINDOW:HANDLEEVENT\n     Param   1:    N    20\n     Param   2:    N    16842837\n     Param   3:    N    0\n   TDIALOG:HANDLEEVENT\n     Param   1:    N    20\n     Param   2:    N    16842837\n     Param   3:    N    0\n     Local   1:    O    Class: TDIALOG\n   DIALOGBOXINDIRECT\n     Param   1:    N    4194304\n     Param   2:    C    \"€\n\nPlease help\n\nThanks','',0,'EA==','2n64sge6',1,0,'',1181,0,0),(43112,8975,3,2,0,'87.218.146.139',1196771174,1,0,1,1,1,1,'','','Acwoo,\n\nPlease check that you have the DATA bEraseBkGnd declared in Class TWindow\n\nAre you using a modified Class TDialog or Class TWindow ?','',0,'EA==','3abbjyd9',1,0,'',2,0,0),(43113,7317,6,316,0,'213.97.245.163',1196771365,1,0,1,1,1,0,'','','Con que se reemplaza el uso del typeout?','',0,'EA==','10foix8n',1,0,'',316,0,0),(43114,9057,3,2,0,'87.218.146.139',1196771602,1,0,1,1,1,1,'','','The FWH resources editor early-prototype is already opening some dialogs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIt uses dynamically built in memory resources (without using an external RC compiler) and not using @ ..., .... See how it looks:\n[url=http&#58;//imageshack&#46;us:3o0idc0z][img:3o0idc0z]http&#58;//img90&#46;imageshack&#46;us/img90/8013/reop8&#46;png[/img:3o0idc0z][/url:3o0idc0z]','',0,'GA==','3o0idc0z',1,0,'',2,0,0),(43115,7317,6,2,0,'87.218.146.139',1196772444,1,0,1,1,1,1,'','','Carlos,\n\nSí se puede usar, lo que no puede hacerse es asignarle un valor, que es lo que se estaba haciendo antes, ya que es un dato de solo lectura','',0,'GA==','25jhzyhs',1,0,'',2,0,0),(43116,9067,3,162,0,'62.47.179.160',1196774081,1,0,1,1,1,0,'','','We need to find a way to detect if the user has the classic look\n\nThat\'s what I was looking for <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> !\n\nHope you can find a way!\n\nRegards,\nDietmar','',0,'GA==','1mofx9so',1,0,'',162,0,0),(43117,9057,3,86,0,'81.83.151.142',1196774190,1,0,1,1,1,1,'','','Antonio,\n\nGreat work. It looks very good.\n\nMaybe, you could reload the program for some more testing.\n\nThank you very much.','',0,'GA==','37f9weso',1,0,'',86,0,0),(43118,9057,3,2,0,'87.218.146.139',1196776350,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:225upxgl][img:225upxgl]http&#58;//img265&#46;imageshack&#46;us/img265/6071/rext6&#46;png[/img:225upxgl][/url:225upxgl]','',0,'GA==','225upxgl',1,0,'',2,0,0),(43119,8975,3,1181,0,'218.111.17.150',1196776903,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for the reply\n\nI did not modify anything in FWH.\nBy the way, where do I find the Class TDialog or Class TWindow.\nI also notice that with the new FWH, there is a also sub-directory of fwh, i.e. c:\\fwh\\fwh. There is no fwh in the old fwh.\n\nThanks','',0,'GA==','3k38fpxs',1,0,'',1181,0,0),(43120,9057,3,2,0,'87.218.146.139',1196776941,1,0,1,1,1,1,'','','Michel,\n\nHere it is, with full source code and two tested and working RCs:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/20427-79991842b4.html\">http://www.hotshare.net/file/20427-79991842b4.html</a><!-- m -->\n\nPlease note that Borland support is not available yet, so you will get an error if you try to open a dialog with Borland controls. Also, not all controls and styles are supported yet, so be patient with errors <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIn case that you want to rebuild RE.prg yourself, you do need new FWH libraries. FWH 7.12 users may request them by email to me, thanks!','',0,'GA==','27h02t07',1,0,'',2,0,0),(43121,9057,3,2,0,'87.218.146.139',1196777468,1,0,1,1,1,1,'','','Please download it again to avoid a nasty popup MsgInfo() <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIf you try to build it with your current FWH build, it will _not_ work, as we have changed several used C functions.\n\nI forgot to mention this: double click on the dialog tree item to open it! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nFinally: You, all, are welcome to participate in its development <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nThanks,','',0,'GA==','1w3ezwiq',1,0,'',2,0,0),(43122,9057,3,2,0,'87.218.146.139',1196778604,1,0,1,1,1,1,'','','Please download it again:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/20432-128346049f.html\">http://www.hotshare.net/file/20432-128346049f.html</a><!-- m -->\n\nThere was a \"confusion\" with nTop and nLeft <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThanks!','',0,'GA==','383f5dvx',1,0,'',2,0,0),(43123,9057,3,2,0,'87.218.146.139',1196778735,1,0,1,1,1,1,'','','More screenshots:\n\n[url=http&#58;//imageshack&#46;us:89ts15ao][img:89ts15ao]http&#58;//img249&#46;imageshack&#46;us/img249/2959/rewj3&#46;png[/img:89ts15ao][/url:89ts15ao]','',0,'GA==','89ts15ao',1,0,'',2,0,0),(43124,9068,7,1135,0,'189.136.185.31',1196778872,1,0,1,1,1,1,'','','Muchas Gracias, lo voy a hacer de esa manera.\nYo no habia entendido como relacionar los dos controles definidos en recursos, hay varios ejemplos pero todos a partir de codigo.\n\n[quote=&quot;Biel EA6DD&quot;:chts10f9]Entiendo que no estas definiendo bien el RadioButton, porque los defines como elementos separados, cuando debieras definir un solo radiobutton, con todos los elementos que quieras, en tu caso dos.\n\n[code:chts10f9]\nREDEFINE RADIO oRad VAR nRad ID 405,406 OF oDlg\n[/code:chts10f9]\nDe esta forma, ya no hace falta que programes nada en on click, puesto que lo gestiona el control, y para saber que elemento tienes seleccionado, consultas la variable nRad que será 1 o 2 dependiendo de la selección.[/quote:chts10f9]','',0,'gIA=','chts10f9',1,0,'',1135,0,0),(43125,7317,6,316,0,'213.97.245.163',1196780589,1,0,1,1,1,0,'','','Eso lo entiendo, la pregunta es: ¿Cual es la modificación en FiveWin para que el comportamiento sea el mismo que antes?','',0,'gIA=','w1zzg8jd',1,0,'',316,0,0),(43126,8975,3,2,0,'87.218.146.139',1196781011,1,0,1,1,1,1,'','','Acwoo,\n\nWhy don\'t you download and install FWH 7.12 ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe don\'t have any c:\\fwh\\fwh folder here','',0,'gIA=','2u2tq26h',1,0,'',2,0,0),(43127,7317,6,2,0,'87.218.146.139',1196781072,1,0,1,1,1,1,'','','Carlos,\n\nNo hay que realizar ningún cambio. Solo quitar la asignación que se le hacía a typeout. Ya no es necesaria.','',0,'gIA=','1yf9vrwe',1,0,'',2,0,0),(43128,9067,3,2,0,'87.218.146.139',1196781281,1,0,1,1,1,1,'','','Dietmar,\n\nGoogle is our friend <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;\nOne possibility would be to check the value of ThemeActive in the registry under: HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\ThemeManager\n\nI believe a value of 0 means that no themes are in use (Windows Classic Style) and a value of 1 means that themes are in use (Windows XP style).\n&gt;','',0,'gIA=','12qxp26e',1,0,'',2,0,0),(43129,9067,3,2,0,'87.218.146.139',1196781502,1,0,1,1,1,1,'','','Dietmar,\n\nMore results <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n&gt;\nCall OpenThemeData. This will return a handle to the theme, which, if NULL indicates that the visual style manager is disabled or there is no information for that control, which means that you should continue to draw using your default routines.\n&gt;','',0,'gIA=','lshgxlj0',1,0,'',2,0,0),(43130,9060,3,2,0,'87.218.146.139',1196781781,1,0,1,1,1,1,'','','Frank,\n\nYou have to use rpreview.prg from FWH 7.10 or remove MDICHILD clause from inside FWH 7.11-12 rpreview.prg\n\nWe are planning to provide a parameter to avoid the creation of a MDICHILD for the print preview if the main window is MDI, as it may bring troubles when dialogboxes are in use','',0,'gIA=','2ublyeuq',1,0,'',2,0,0),(43131,9069,6,542,0,'83.52.13.201',1196781827,1,0,1,1,1,0,'','Crear XLS','Hola a todos:\n\nAlguien me podria decir como se puede crear un archivo XLS (Excell) con una hoja que se llame HOJA 1.\n\nUn saludo a todos\n\nCarlos','',0,'gIA=','30ihq2u1',1,0,'',542,0,0),(43132,9057,3,2,0,'87.218.146.139',1196782558,1,0,1,1,1,1,'','','More supported controls (with included RCs to test):\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/20446-85697987e6.html\">http://www.hotshare.net/file/20446-85697987e6.html</a><!-- m -->\n\n[url=http&#58;//imageshack&#46;us:34wh0i03][img:34wh0i03]http&#58;//img122&#46;imageshack&#46;us/img122/1625/rehl6&#46;png[/img:34wh0i03][/url:34wh0i03]','',0,'GA==','34wh0i03',1,0,'',2,0,0),(43133,8984,6,176,0,'201.255.160.131',1196783317,1,0,1,1,1,0,'','','Antonio con el código que me enviaste probé con un archivo de 7 megas y lo lee perfecto, lo único es que demora unos 12 minutos. Lo que noté que a medida que avanza la lectura, más rápido resuelve.  El archivo completo tiene 82 megas, es decir intratable. no sólo para el programa de fwh  sino que también para editplus2, ya que quise cambiar los ; por comas y quitar las comas en los numéricos, para poder exportarlo a dbf y tambíen se satura y cuelga???.  Lo que quisiera saber si hay algún idioma ya sea c++, delphi, visualbasic ,etc , que lo pueda leer y trabajar en el mismo sin salir del código de programa. \n\nVoy  a probar con la solución que me envió ADBLANCO  a ver que pasa.\nMe interesaría saber lo de otros idiomas por curiosidad\n\nGracias \nEspero sus comentarios','',0,'GA==','avvzplse',1,0,'',176,0,0),(43134,8994,3,303,0,'72.220.181.80',1196784202,1,0,1,1,1,0,'','','Maurilio,\n\n&gt;The intention is paint the border with a different color to mandatory fields (for example) to let the user have a visual reference.\n\nThat is what the pink field is in the example screenshot in my previous message. I have no mandatory fields as explained in my previous message, I call them critical data, but these are what you would call mandatory. They are pink until filled out, then they become white. Or, they could become yellow if the data is suspect.\n\nAs I said, if you make fields mandatory and the user doesn\'t have the needed data, then they will make something up. (I assume by \"mandatory\" you mean that they must be filled out before the dialog can be saved.)\n \n&gt;Using themes under XP we have controls with line border or \"flat style\" but who don\'t use themes or Win98 don\'t have it. The only way I found to use this flat borders and colored references is changing controls for myself.\n\nYou can use field colors in all versions of Windows, and you don\'t need to modify the FW source. Also, it works with or without themes.\n\nRegards,\nJames','',0,'GA==','2vny01eu',1,0,'',303,0,0),(43135,8975,3,303,0,'72.220.181.80',1196784543,1,0,1,1,1,0,'','','Acwoo,\n\n&gt;By the way, where do I find the Class TDialog or Class TWindow. \n\nThey are in FWH\\source\\classes\n\nHave you ever compiled anything successfully with FWH? It sounds like you have a path problem--like the linker is linking in some modified code that may exist elsewhere.\n\nCan you compile one of the FW sample programs containing a dialog using the FWH\\samples\\buildh.bat or buildx.bat (depending on whether you are using Harbour or cHarbour)?\n\nRegards,\nJames','',0,'GA==','1r7kbf0y',1,0,'',303,0,0),(43136,9067,3,303,0,'72.220.181.80',1196785356,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Call OpenThemeData\n\nIs that an existing FW or Harbour function, or is it an API?\n\nJames','',0,'GA==','32ksnih5',1,0,'',303,0,0),(43137,9067,3,162,0,'62.47.179.136',1196786909,1,0,1,1,1,0,'','','&gt;Call OpenThemeData \n\nAntonio,\ncould you please post the code to do that.\nWe are about to release a new version of our software...\n\nThanks,\nDietmar','',0,'GA==','l3tczeju',1,0,'',162,0,0),(43138,9006,2,124,0,'190.225.0.226',1196789250,1,0,1,1,1,0,'','','antonio:\n\nTe paso directamente nuestro archivo de compilación .lnk\nEspero cualquier comentario.\n\nSaludos y Gracias.\n\nBLINKER EXECUTABLE NODELETE\nBLINKER EXECUTABLE CLIPPER F255\nBLINKER INCREMENTAL OFF\nBLINKER PROCEDURE DEPTH 100\nBLINKER CLIPPER SYMBOL ON\n\nPACKCODE\nPACKDATA\n\nDEFBEGIN\n   name        FiveWin\n   description \'Clipper for Windows library\'\n   exetype     Windows 3.1\n   code        moveable discardable\n   data        preload moveable\n   stacksize   9500\n   heapsize    3048\n   segment     \'PLANKTON_TEXT\' nondiscardable\n   segment     \'EXTEND_TEXT\'   nondiscardable\n   segment     \'OM_TEXT\'       nondiscardable\n   segment     \'OSMEM_TEXT\'    nondiscardable\n   segment     \'SORTOF_TEXT\'   nondiscardable\n   segment     \'STACK_TEXT\'    nondiscardable\nDEFEND\n\nSEARCH  s:\\lib\\Five, s:\\lib\\FiveC, s:\\lib\\Objects\n\nLIB r:\\lib\\fiscal\n\n\nLIB s:\\lib\\WinApi\nLIB j:\\evo0703\\clases\\LOGICLAS.lib\nLIB s:\\lib\\filexls.lib\nLIB j:\\evo0703\\library\\LOGIEXEK.lib\n\nLIB r:\\lib\\clipper\nLIB r:\\lib\\extend\nLIB r:\\lib\\terminal\nLIB r:\\lib\\dbfntx\nLIB r:\\lib\\dbfcdx\n\nLIB r:\\lib\\FLEX52\n\nFILE INICIO\nFILE ERRORSYS\n\n// BEGINAREA\n    FILE INICIO2\n    FILE LIBTM300\n    FILE LIBHASAR\n    FILE LIBLX300\n    FILE FILES\n    FILE LIBPROC\n    FILE LIBPROC1\n    FILE LIBPROC2\n    FILE LIBPROC3\n    FILE LIBPROC4\n    FILE LIBESTAD\n    FILE LIBMOVIM\n    FILE LIBCOSTO\n    FILE LIBCONT\n// ENDAREA\n\nOUTPUT  evo.exe','',0,'GA==','3m84f1fv',1,0,'',124,0,0),(43139,9059,6,911,0,'200.72.141.51',1196790382,1,0,1,1,1,1,'','','gracias por las respuestas!!!!\nfunciona de mil maravillas.\nSaludos\nConsultas sobre ado soy todo oídos\nMil gracias nuevamente','',0,'GA==','newjuu3s',1,0,'',911,0,0),(43140,9006,2,124,0,'190.225.0.226',1196790557,1,0,1,1,1,0,'','','Antonio: \nMe quedé pensando, existe alguna funcion que pueda servir para liberar y realocar memoria tipo la GlobalCompact()? esto podría solucionar este error, porque si el usuario cuando se cierra el sistema vuelve a entrar y hace la operación que antes dio error, ahora no lo da. Claro, antes venia haciendo muchas otras operaciones y supongo que algo quedo feo en la memoria.\n\nPodra servir GlobalCompact() u otra similar que no conozco?\nGracias.','',0,'GA==','rkpgp2j6',1,0,'',124,0,0),(43141,9070,2,124,0,'190.225.0.226',1196790694,1,0,1,1,1,0,'','NECESITO AYUDA EN LA CAPTURA DE ERRORES.','Amigos, tenemos un lindo soft (todavia en 16bits, ya por migrarse a harbour) en el que el manejo de errores es muy feo.\n\nAlguien puede indicarme de donde puedo ver algunas variantes a las rutinas manejadoras de errores para poder atrapar bien los mismos (ya que hoy nuestro soft muchas veces se cierra sin previo aviso) y no nos queda registro del mismo para poder revisarlo y corregirlo.\n\nMil gracias.\nRicardo.-','',0,'GA==','1iw5sy79',1,0,'',124,0,0),(43142,9006,2,2,0,'87.218.146.139',1196791605,1,0,1,1,1,1,'','','Ricardo,\n\nPrueba a bajar el heapsize a 2024\n\nNo sirve llamar a una función de compactación de memoria de Windows ya que todo el problema de Clipper reside en un bloque de memoria de 64 Ks que el usa <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'GA==','y5bwmnry',1,0,'',2,0,0),(43143,8984,6,2,0,'87.218.146.139',1196791793,1,0,1,1,1,1,'','','La máxima velocidad la conseguirías escribiendo una función especifica en lenguaje C que haga el trabajo, sin tener que subir a nivel PRG.\n\nEl lenguaje C se traduce directamente a ensamblador. Y el ensamblador es el lenguaje más rápido (código máquina) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3qvs2ifk',1,0,'',2,0,0),(43144,9057,3,217,0,'200.159.120.34',1196796795,1,0,1,1,1,0,'','','Antonio,\nI did any tests as follow\n\nQUESTION 1:\nI use the old Workshop and times ago I have problems to insert a new dialog because I had a lot of dialogs. Then I \"split\" my rc in 2 or more files, like:\nBaseBmp.rc\nBaseRes.rc\nGr_Dlg.rc\n\nI edit each one and I create a main RC file that have a content like:\n\n[code:1gwuts63]\n1 24 &quot;manifest&#46;xml&quot;\n\n#include &quot;&#46;&#46;\\LIB\\RC\\BaseBmp&#46;rc&quot;\n#include &quot;&#46;&#46;\\LIB\\RC\\BaseRes&#46;rc&quot;\n#include &quot;&#46;\\RC\\Gr_Bmp&#46;rc&quot;\n#include &quot;&#46;\\RC\\Gr_Dlg&#46;rc&quot;\n[/code:1gwuts63]\n\nIn my compilation bat I use this main RC to generate the complete RES file and link it with my EXE. To edit the resources (with old and good Workshop) I edit each one (BaseBmp.rc, Gr_Dlg.rc, etc).\nDo you plan make your Resource Editor know the \'#include\' ?\n\nQUESTION 2:\nI use 0x4L style in my dialogs and your RE don\'t know it and an error occur. A sample:\n\n[code:1gwuts63]\nEMP DIALOG 124, 113, 292, 165\nSTYLE 0x4L | WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME\nCAPTION &quot; Regras da Empresa&quot;\nFONT 6, &quot;MS Sans Serif&quot;\n&#123;\n PUSHBUTTON &quot;&amp;Salvar&quot;, 9001, 168, 145, 58, 16\n CONTROL &quot;&quot;, 200, &quot;txbrowse&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 5, 7, 282, 134\n PUSHBUTTON &quot;&amp;Cancelar&quot;, 2, 229, 145, 58, 16\n&#125;\n[/code:1gwuts63]\n\nBest regards,\nMaurilio','',0,'AIA=','1gwuts63',1,0,'',217,0,0),(43145,9071,6,21,0,'83.61.248.75',1196797686,1,0,1,1,1,1,'','Drag &amp; Drop Browse','Hola,\n\nTengo 2 ventanas mdi y en cada una un browse. a los cuales les tengo permitido el arrastrar y soltar.\n\nLo que quiera es controlar en que fila del browse se suelta el botón, ya que la variable nRow que se carga en bDropOver cambia dependiendo de donde se encuentre la ventana.','',0,'AIA=','bsz9ww7v',1,0,'',21,0,0),(43146,9072,3,51,0,'80.122.88.242',1196802855,1,0,1,1,1,0,'','Question to classes','Question to classes:  is it possible/allowed in OOP  to use a class own method within the class?\nThanks in advance\nOtto','',0,'AIA=','2xrh46s9',1,0,'',51,0,0),(43147,9065,20,51,0,'80.122.88.242',1196806442,1,0,1,1,1,0,'','','You have to comment out ADS.\nRegards,\nOtto','',0,'AIA=','jjw2kizr',1,0,'',51,0,0),(43148,9073,20,51,0,'80.122.88.242',1196806633,1,0,1,1,1,0,'','per Silvio','Silvio, do you have a demo of your membership administration software?\nRegards,\nOtto','',0,'AIA=','q20ero62',1,0,'',51,0,0),(43149,9072,3,6,0,'87.3.212.53',1196808223,1,0,1,1,1,1,'','Re: Question to classes','Of course:\n\n[code:3g8ogq4b]&#58;&#58;MethodName&#40; params &#41;[/code:3g8ogq4b]\n\nEMG','',0,'AIA=','3g8ogq4b',1,0,'',6,0,0),(43150,9067,3,6,0,'87.3.212.53',1196808415,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1ygo1c5k]Is that an existing FW or Harbour function, or is it an API?[/quote:1ygo1c5k]\n\nIt\'s an API:\n\n[code:1ygo1c5k]HTHEME OpenThemeData&#40; HWND hwnd, LPCWSTR pszClassList &#41;;[/code:1ygo1c5k]\n\nEMG','',0,'gIA=','1ygo1c5k',1,0,'',6,0,0),(43152,9067,3,2,0,'87.218.146.139',1196812789,1,0,1,1,1,1,'','','Dietmar,\n\nHere you have a working sample:\n[code:37g49j3j]\nfunction Main&#40;&#41;\n\n   MsgInfo&#40; IsThemeActive&#40;&#41; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\ntypedef BOOL &#40; * PFISTHEMEACTIVE &#41; &#40; void &#41;;\n\nHB_FUNC&#40; ISTHEMEACTIVE &#41;\n&#123;\n   HINSTANCE hDLL = LoadLibrary&#40; &quot;UxTheme&#46;dll&quot; &#41;;\n   PFISTHEMEACTIVE IsThemeActive;\n   \n   if&#40; hDLL == NULL &#41;\n   &#123;\n      hb_retl&#40; FALSE &#41;;\n      return;\n   &#125;\n   else\n      IsThemeActive = &#40; void * &#41; GetProcAddress&#40; hDLL, &quot;IsThemeActive&quot; &#41;;\n      \n   if&#40; IsThemeActive &#41;\n      hb_retl&#40; IsThemeActive&#40;&#41; &#41;;\n   else\n      hb_retl&#40; FALSE &#41;;   \n   \n   FreeLibrary&#40; hDLL &#41;;\n&#125;   \n   \n#pragma ENDDUMP\n[/code:37g49j3j]','',0,'AIA=','37g49j3j',1,0,'',2,0,0),(43153,9057,3,2,0,'87.218.146.139',1196813787,1,0,1,1,1,1,'','','Maurilio,\n\nThere should be no problem to manage include files. Actually we just have a very early prototype, but we could easily add that feature.\n\nTo add new styles is as easy as (notice your reported 0x4L):\n[code:2p38mcdi]\nstatic aDlgStyles &#58;= &#123; &#123; &quot;WS_POPUP&quot;,    WS_POPUP &#125;,;\n	                     &#123; &quot;WS_DLGFRAME&quot;, WS_DLGFRAME &#125;,;\n	                     &#123; &quot;WS_SYSMENU&quot;,  WS_SYSMENU &#125;,;\n	                     &#123; &quot;WS_CHILD&quot;,    WS_CHILD &#125;,;\n	                     &#123; &quot;0x4L&quot;,        4 &#125;,;\n	                     &#123; &quot;DS_MODALFRAME&quot;, DS_MODALFRAME &#125; &#125;\n[/code:2p38mcdi]','',0,'AIA=','2p38mcdi',1,0,'',2,0,0),(43154,9071,6,2,0,'87.218.146.139',1196814199,1,0,1,1,1,1,'','','Fernando,\n\nLos parámetros nRow y nCol son relativos al control en donde se inicia la operación de arrastrar y soltar, por lo que has de convertir las coordenadas (relativas) de un control a las coordenadas (relativas) del otro:\n\nlocal aPoint := { nRow, nCol }\n\naPoint = ClientToScreen( oBrw1:hWnd, aPoint } // convierte a absolutas\naPoint = ScreenToClient( oBrw2:hWnd, aPoint ) // convierte a relativas','',0,'AIA=','2hqnh4f8',1,0,'',2,0,0),(43155,9046,6,940,0,'201.170.77.161',1196817880,1,0,1,1,1,1,'','','Colegas yo quiero hacer lo contrario,\n\n\nel pdf ya esta creado  pero lo quiero convertir a txt  desde fwh\n\n\nse puede???\n\n\n\nsaludos.','',0,'AIA=','1ebi5h2y',1,0,'',940,0,0),(43156,8975,3,1181,0,'60.48.223.243',1196819266,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for your help\n\nAfter I put in window.prg and dialog.prg, there is no error meaasge on compilation.\n\nI have this error mesage when I want to print:\nApplication\n===========\n   Path and name: C:\\test\\EPREVIEW.exe (32 bits)\n   Size: 1,858,048 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 12/05/07, 09:25:02\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   1\n\nStack Calls\n===========\n   Called from: epclass.prg =&gt; EPREVIEW:NEW(253)\n   Called from: epclass.prg =&gt; EASYPREVIEW(68)\n   Called from: epreview.prg =&gt; MAIN(68)\n\nPlease help','',0,'AIA=','10q54ovs',1,0,'',1181,0,0),(43157,9064,6,215,0,'189.137.185.209',1196820372,1,0,1,1,1,1,'','Gracias','Antonio,\n\nMil Gracias!!!\n\nFernando','',0,'AIA=','3g1pom70',1,0,'',215,0,0),(43158,9072,3,303,0,'72.220.181.80',1196821765,1,0,1,1,1,0,'','','Otto,\n\nThat is one of the great features. \n\nYou may want to read, or reread, the OOP articles on my website.\n\nJames','',0,'AIA=','6q8ycduo',1,0,'',303,0,0),(43159,9057,3,239,0,'121.33.139.99',1196822154,1,0,1,1,1,0,'','','Antonio,\n  Your RE.exe  ,Get ,combobox in a dialog could supoort Chinese words input in XP themes MODE!\n  Could add this feature to tget of FWH ?\nThanks !\nShuming Wang','',0,'AIA=','2y16cho7',1,0,'',239,0,0),(43160,8975,3,303,0,'72.220.181.80',1196822181,1,0,1,1,1,0,'','','&gt;After I put in window.prg and dialog.prg, there is no error meaasge on compilation. \n\nThese classes are already in the FWH library files, so if you having to link them in, then there is something wrong with your lib files.\n\nJames','',0,'AIA=','1auq1u9b',1,0,'',303,0,0),(43161,8838,3,962,0,'201.1.167.17',1196822844,1,0,1,1,1,1,'','','aff !! never yet one \"YES\" or \"NO\" POSSIBLE ?????!!!!!\n\nalternative temporary in my Class:\n[code:240ya6t9]\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS MComboBox\n\nif nMsg == FM_CLOSEUP\n   &#58;&#58;cToolTip&#58;=&#58;&#58;varget&#40;&#41;\n\n   return &#58;&#58;CloseUp&#40;&#41;\nendif\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\n[/code:240ya6t9]','',0,'AIA=','240ya6t9',1,0,'',962,0,0),(43162,9072,3,51,0,'80.122.88.242',1196822884,1,0,1,1,1,0,'','','Thank you Enrico and James,\n\nI made an ‘invoice class’ and an ‘invoice position (record)’ class.\nNow to calculate the line total I made a function inside the InvoicePositionclass.\nAmount per price – SetText to a oSay.\nHere I don’t know what to use a function or a method\n\n\nMETHOD New\noGet nAmount  valid calculate()    or ::calculate()\noGet  nPrice      valid calculate()   or ::calculate()\noSay nTotal \nreturn Self\n\nfunc calculate()\nreturn\n\nMETHODE calculate \nReturn nil\n\nWhat would be the right way to define the variables (nAmount,nPrice): static, local and pass them, DATA?\n\nHope you will help me on that.\nThanks in advance\nOtto','',0,'AIA=','18uin4g9',1,0,'',51,0,0),(43163,8994,3,239,0,'121.33.139.99',1196824875,1,0,1,1,1,0,'','','This might  Tget add more datas to control features, border color, flat style ,underlined style , etc.\n\n  Shuming Wang','',0,'AIA=','46ddy2n9',1,0,'',239,0,0),(43164,9072,3,303,0,'72.220.181.80',1196825713,1,0,1,1,1,0,'','','Otto,\n\n&gt;I made an ‘invoice class’ and an ‘invoice position (record)’ class. \n&gt;Now to calculate the line total I made a function inside the &gt;InvoicePositionclass.\n\nOk, you picked a very complicated class to start with. An invoice is an object that contains other objects. The invoice object contains a customer object, and multiple line item objects (one for each item). So you need at least three classes to create an Invoice object.\n\n&gt;Amount per price – SetText to a oSay. \n&gt;Here I don’t know what to use a function or a method \n\nIn pure oop you never use functions. However, in our hybrid OOP system you try not to create functions, but you can use all the FW and Harbour functions. So if you need something new, then create a method.\n\n&gt;METHOD New \n&gt;oGet nAmount valid calculate() or ::calculate()\n&gt;oGet nPrice valid calculate() or ::calculate() \n&gt;oSay nTotal \n&gt;return Self\n\nI\'m not sure what you were trying to do with the above. The New() method should only initialize the object.\n\nPerhaps you should start with a Customer class instead. It would much simpler than an Invoice class. There is discussion of a customer class in my OOP articles.\n\nJames','',0,'AIA=','o5cd3i8n',1,0,'',303,0,0),(43165,9074,18,239,0,'121.33.139.99',1196833348,1,0,1,1,1,0,'','Unmoveable  scroll bar of alert?','Antonio,\n\n  fwh711 and fwh712, alert(\"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa\")\nwill display a unmoveable scroll bar  \n\nBest Regards!\nShuming Wang','',0,'AIA=','mh940tyj',1,0,'',239,0,0),(43166,9075,18,239,0,'121.33.139.99',1196833546,1,0,1,1,1,0,'','Can\'t open dbf with harbour1.1-1from fwh download (solved)','Antonio,\n  use aaa\n  ?used() // .f.\nuse aaa via \"dbfcdx\"\n  ?used() // .f.\n\nBest regards!\n\nShuming Wang','',0,'AIA=','226ufstc',1,1196995441,'',239,2,0),(43167,8975,3,1181,0,'60.50.124.8',1196836459,1,0,0,0,1,1,'','Upgrade to FWH 711','Thanks for the help\n\n\nepclass.prg =&gt; EPREVIEW:NEW(253) \nCalled from: epclass.prg =&gt; EASYPREVIEW(68) \nCalled from: epreview.prg =&gt; MAIN(68) \n \n\n\nWhere do I find the epclass.prg and epreview.prg\n\nPlease help\n\nThanks','',0,'AIA=','p07uo21p',1,0,'',1181,0,0),(43168,9071,6,21,0,'83.61.248.75',1196842050,1,0,1,1,1,1,'','','Antonio,\n\nMuchas gracias, funciono perfectamente.\n\nUna vez que aplique lo que comentas tenia un problema en determinadas posiciones de las ventanas, pero en este post indicabas como resolverlo:\n[url:3hqh8db5]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=8872&amp;highlight=drag[/url:3hqh8db5]\n\n[code:3hqh8db5]  if nRow &gt; 32000\n    nRow = - &#40; 65535 - nRow &#41;\n  endif   \n  if nCol &gt; 32000\n    nCol = - &#40; 65535 - nCol &#41;\n  endif    \n  aPoint &#58;= &#123;nRow, nCol&#125;\n  aPoint = ClientToScreen&#40; oBrw1&#58;hWnd, aPoint &#125; // convierte a absolutas\n  aPoint = ScreenToClient&#40; oBrw2&#58;hWnd, aPoint &#41; // convierte a relativas\n[/code:3hqh8db5]','',0,'EIA=','3hqh8db5',1,0,'',21,0,0),(43169,9071,6,2,0,'87.218.146.107',1196844838,1,0,1,1,1,1,'','','Fernando,\n\nBien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EIA=','1kk77exm',1,0,'',2,0,0),(43170,9057,3,2,0,'87.218.146.107',1196844961,1,0,1,1,1,1,'','','Shuming,\n\nThanks for the info. \n\nWe appreciate if you keep testing next RE.EXE builds to see if we keep such compatibility with Chinese language, thanks!','',0,'EIA=','1gsxooza',1,0,'',2,0,0),(43171,8975,3,2,0,'87.218.146.107',1196845184,1,0,1,1,1,1,'','','Acwoo,\n\nThose files are from EasyPreview, they don\'t belong to FWH.\n\nPlease review the folder contains where you have installed EasyPreview','',0,'EIA=','kg1075nj',1,0,'',2,0,0),(43172,8838,3,2,0,'87.218.146.107',1196845437,1,0,1,1,1,1,'','','Eric,\n\nSometimes we don\'t answer a question when we don\'t get enough information in the question, sorry\n\nDo you mean that you want to increase the width of the shown dropdown list ? If so, then please review the API docs for these two listbox messages, in case that they may help:\n\n#define LB_SETHORIZONTALEXTENT  0x0194\n#define LB_SETCOLUMNWIDTH          0x0195','',0,'EIA=','3tgks68j',1,1196845808,'',2,2,0),(43173,8838,3,6,0,'87.10.1.141',1196845514,1,0,1,1,1,1,'','','If I understood correctly, you want the list part of the combobox to be wider than the edit part. I don\'t think this is possible, at least using the standard comboboxes.\n\nEMG','',0,'EIA=','370qm9p5',1,0,'',6,0,0),(43174,9075,18,2,0,'87.218.146.107',1196846134,1,0,1,1,1,1,'','','Shuming,\n\nThere must be something wrong in your aaa file or in your computer (not enough read-write privileges for a folder, etc)\n\nPlease build fwh/samples/fwbrow.prg and you will see that it works fine with DBFs','',0,'EIA=','302j3qj4',1,0,'',2,0,0),(43175,9045,18,2,0,'87.218.146.107',1196846231,1,0,1,1,1,1,'','','Please rebuild your ACE32.lib doing:\n\nimplib.exe ACE32.lib ACE32.dll','',0,'EIA=','boiz7jrm',1,0,'',2,0,0),(43176,9074,18,2,0,'87.218.146.107',1196846320,1,0,1,1,1,1,'','','Shuming,\n\nThats because Alert() uses a disabled multiline GET. You can modify function Alert() source code to allow user input for the multiline GET.\n\nBetter use MsgInfo(), or other Msg... functions','',0,'EIA=','2jkoyg8l',1,0,'',2,0,0),(43177,9074,18,6,0,'87.10.1.141',1196847303,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:209miz09]Shuming,\n\nThats because Alert() uses a disabled multiline GET. You can modify function Alert() source code to allow user input for the multiline GET.[/quote:209miz09]\n\nYou can simply remove WHEN .F. clauses from alert.prg. There are already READONLY clauses that are enough the get the scrollbar working.\n\nEMG','',0,'gA==','209miz09',1,0,'',6,0,0),(43178,9074,18,2,0,'87.218.146.107',1196847497,1,0,1,1,1,1,'','','Enrico,\n\nIts a good solution but then it will accept the user focus\n\nThough its not a big problem <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','12ckc77g',1,0,'',2,0,0),(43179,9076,3,6,0,'87.10.1.141',1196848138,1,0,1,1,1,1,'','Bug in TBtnBmp and dialogs','In the following sample, please place the mouse pointer over the button and try to close the dialog using ALT-F4. It will not close.\n\n[code:h3yhbgap]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BTNBMP;\n           FILE &quot;C&#58;\\FWH\\BITMAPS\\OPEN&#46;BMP&quot;;\n           NOBORDER\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:h3yhbgap]\n\nEMG','',0,'AIA=','h3yhbgap',1,0,'',6,0,0),(43180,9072,3,51,0,'80.122.88.242',1196851726,1,0,1,1,1,0,'','','Hello James,\n\nthanks for your answer. \nWhere did you get all your knowledge from?\nI will re-read your articles. \nRegards,\nOtto','',0,'AIA=','3ldn2tnp',1,0,'',51,0,0),(43181,9075,18,239,0,'121.33.139.99',1196851756,1,0,1,1,1,0,'','','Antonio,\n  the same prg code, fwh2.5 and xhabrour996 do .\n  But now more than 4 customers phoned us the problem.\nBest regards!\nShuming Wang','',0,'AIA=','1et04unk',1,0,'',239,0,0),(43182,9077,6,21,0,'83.61.248.75',1196853119,1,0,1,1,1,1,'','Problemas con verce 5.2','Hola,\n\nEn mi aplicación se incluyen 2 archivos de recursos generados con Pelles.\n\n1º Problema:\n  En la versión 4.3 se podía modificar la forma de compilar el archivo .rc hacia .res en el archivo verce0.dat\n  Ahora esto no se puede y tengo que compilar .rc aparte para luego incluir el .res en el proyecto.\n  Esto no me preocupa mucho ya que lo hago con un bat y solucionado.\n\n2º Problema:\n  Los dos archivos .res tienen que estar en la misma carpeta sino avisa que el archivo seleccionado no pertenece a la carpeta de recursos.\n  Lo tengo solucionado incluyendo un copy en bat que antes he mencionado.\n\n3º Problema y mas grave:\n  Al intentar compilar y enlazar con los recursos .res incluidos en el proyecto da un error. \"Fatal: Too many commas on command line:\".\n  Mensaje este que no sucede si sólo introduzco un archivo .res\n\nMuchas gracias por vuestra atención','',0,'AIA=','zm2j4min',1,0,'',21,0,0),(43183,9075,18,6,0,'87.10.1.141',1196855154,1,0,1,1,1,1,'','','As far as I know, there was no problems on [x]Harbour RDDs since years. Please provide a little sample of the problem to reproduce it here.\n\nEMG','',0,'','1dphphka',1,0,'',6,0,0),(43184,9072,3,6,0,'87.10.1.141',1196855328,1,0,1,1,1,1,'','','There are bunch of books dedicated to the OOP in the libraries and on Internet.\n\nEMG','',0,'','uvn0q69w',1,0,'',6,0,0),(43185,8838,3,104,0,'201.58.143.166',1196858077,1,0,1,1,1,0,'','','Olá Eric, \n\nVeja se este exemplo faz o que você precisa:\n\n[code:21fc6oz7]\n\n#include &quot;FiveWin&#46;ch&quot;\n\n#define COMBO_BASE             320\n#define CB_SETITEMHEIGTH      &#40; COMBO_BASE + 19 &#41;\n#define CB_GETITEMHEIGTH      &#40; COMBO_BASE + 20 &#41;\n\n#define CB_SETDROPPEDWIDTH     0x0160\n#define CB_GETDROPPEDWIDTH     &#40; COMBO_BASE + 25 &#41;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oCbx\n   local aEstados &#58;= &#123; &quot;AC   Acre&quot;, &quot;AL   Alagoas&quot;, &quot;AM   Amazônia&quot;, &quot;AP   Amapá&quot;, &quot;BA   Bahia&quot;, &quot;CE   Ceará&quot;, &quot;DF   Distrito Federal&quot;, &quot;ES   Espirito Santo&quot;, &quot;EX   Exterior&quot;, &quot;GO   Goias&quot;, &quot;MA   Maranhão&quot;, &quot;MG   Minas Gerais&quot;, &quot;MS   Mato Grosso Sul&quot;, &quot;MT   Mato Grosso&quot;, &quot;PA   Pará&quot;, &quot;PB   Paraiba&quot;, &quot;PE   Pernambuco&quot;, &quot;PI   Piauí&quot;, &quot;PR   Paraná&quot;, &quot;RJ   Rio de Janeiro&quot;, &quot;RN   Rio Grande Norte&quot;, &quot;RO   Rondônia&quot;, &quot;RR   Roraima&quot;, &quot;RS   Rio Grande Sul&quot;, &quot;SC   Santa Catarina&quot;, &quot;SE   Sergipe&quot;, &quot;SP   São Paulo&quot;, &quot;TO   Tocantins&quot; &#125;\n   local cText    &#58;= aEstados&#91;1&#93;\n\n* Aqui voce retorna a altura da linha do combobox, quando ele esta aberto\n   extend class TCombobox with message getItemheight&#40; nItem &#41;          inline &#58;&#58;SendMsg&#40; CB_GETITEMHEIGTH, nItem, 0 &#41;\n\n* Aqui voce define a altura da linha do combobox, quando ele esta aberto\n   extend class TCombobox with message setItemheight&#40; nHeight &#41; inline &#58;&#58;SendMsg&#40; CB_SETITEMHEIGTH, , nHeight &#41;\n\n* Aqui voce retorna a largura da linha do combobox, quando ele esta aberto\n   extend class TCombobox with message GETDROPPEDWIDTH&#40;&#41;               inline &#58;&#58;SendMsg&#40; CB_GETDROPPEDWIDTH, 0, 0 &#41;\n\n* Aqui voce define a largura da linha do combobox, quando ele esta aberto\n   extend class TCombobox with message SETDROPPEDWIDTH&#40; nWidth &#41;       inline &#58;&#58;SendMsg&#40; CB_SETDROPPEDWIDTH, nWidth, 0 &#41;\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 200, 200 ;\n      TITLE &quot;DropDown ComboBox Test&quot; pixel\n\n   @ 10, 10 COMBOBOX oCbx VAR cText STYLE CBS_DROPDOWNLIST ;  &amp;&amp; CBS_DROPDOWN ;\n     ITEMS aEstados size 20, 100 ;\n      ON CHANGE oDlg&#58;SetText&#40; cText &#41; pixel\n\n   oCbx&#58;bgotfocus &#58;= &#123; |oObj| &#40; oObj&#58;setItemheight&#40; 20 &#41;, oObj&#58;setdroppedwidth&#40; 200 &#41;, oObj&#58;refresh&#40;&#41; &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n[/code:21fc6oz7]\n\nAbraços,\n\nRossine.','',0,'AIA=','21fc6oz7',1,0,'',104,0,0),(43186,8838,3,51,0,'80.122.88.242',1196858833,1,0,1,1,1,0,'','','Could you please post this in English, too.\nDo we need a changed tComboBox?\nThanks for your code\nOtto','',0,'AIA=','f8r8smyp',1,0,'',51,0,0),(43187,9078,2,1243,0,'164.77.88.149',1196859149,1,0,1,1,1,0,'','Ayuda con Colores en Listbox','Estoy empezando en FW y se me presenta el siguiente problema cuando elimino un registro de un listbox:\n\n- Mi listbox tiene colores al estilo pijama es decir una linea de un color y otra linea de otro color (una amarilla y otra gris) , pero cuando elimino un registro que tiene color gris y al refrescar el lisbox se juntan 2 filas del color amarillo y no quedan intercalados como deberia ser , no se si me he explicado bien, espero que si y ojalas alguien me pueda ayudar.\n\nGracias.','',0,'AIA=','27j3gpk6',1,0,'',1243,0,0),(43188,9078,2,2,0,'87.218.146.107',1196859605,1,0,1,1,1,1,'','','Jesus,\n\nQue sistema has usado para colorear el listbox tipo pijama ? \n\nDe ahí posiblemente venga el fallo','',0,'AIA=','174ybq4i',1,0,'',2,0,0),(43189,8838,3,2,0,'87.218.146.107',1196859726,1,0,1,1,1,1,'','','Rossine,\n\nmany thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nI wrongly thought about a listbox and it is a combobox <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3djr1t2u',1,0,'',2,0,0),(43190,9072,3,2,0,'87.218.146.107',1196859856,1,0,1,1,1,1,'','','Otto,\n\nIn FWH\\source\\classes\\*.prg there are lots of examples <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3402cudw',1,0,'',2,0,0),(43191,9075,18,2,0,'87.218.146.107',1196860396,1,0,1,1,1,1,'','','Shuming,\n\n&gt;  But now more than 4 customers phoned us the problem. \n\nAre those customers using Vista ?','',0,'AIA=','2m1refm5',1,0,'',2,0,0),(43192,8838,3,6,0,'79.3.210.75',1196862818,1,0,1,1,1,1,'','','[quote=&quot;Rossine&quot;:1jag0t0r]Veja se este exemplo faz o que você precisa:[/quote:1jag0t0r]\n\nWonderful!\n\nEMG','',0,'gA==','1jag0t0r',1,0,'',6,0,0),(43193,8838,3,104,0,'201.58.143.166',1196863574,1,0,1,1,1,0,'','','Hello Otto,\n\n[quote:3a60r7xy]\nDo we need a changed tComboBox? \n[/quote:3a60r7xy]\n\nNot.  Only include this stretch in his file .PRG main:\n\n[code:3a60r7xy]\n   extend class TCombobox with message getItemheight&#40; nItem &#41;          inline &#58;&#58;SendMsg&#40; CB_GETITEMHEIGTH, nItem, 0 &#41; \n\n   extend class TCombobox with message setItemheight&#40; nHeight &#41; inline &#58;&#58;SendMsg&#40; CB_SETITEMHEIGTH, , nHeight &#41; \n\n   extend class TCombobox with message GETDROPPEDWIDTH&#40;&#41;               inline &#58;&#58;SendMsg&#40; CB_GETDROPPEDWIDTH, 0, 0 &#41; \n\n   extend class TCombobox with message SETDROPPEDWIDTH&#40; nWidth &#41;       inline &#58;&#58;SendMsg&#40; CB_SETDROPPEDWIDTH, nWidth, 0 &#41; \n\n[/code:3a60r7xy]\n\nHere the example translated into the English:\n\n[code:3a60r7xy]\n#include &quot;FiveWin&#46;ch&quot; \n\n#define COMBO_BASE             320 \n#define CB_SETITEMHEIGTH      &#40; COMBO_BASE + 19 &#41; \n#define CB_GETITEMHEIGTH      &#40; COMBO_BASE + 20 &#41; \n\n#define CB_SETDROPPEDWIDTH     0x0160 \n#define CB_GETDROPPEDWIDTH     &#40; COMBO_BASE + 25 &#41; \n\nfunction Main&#40;&#41; \n\n   local oDlg, oCbx \n   local aEstados &#58;= &#123; &quot;AC   Acre&quot;, &quot;AL   Alagoas&quot;, &quot;AM   Amazônia&quot;, &quot;AP   Amapá&quot;, &quot;BA   Bahia&quot;, &quot;CE   Ceará&quot;, &quot;DF   Distrito Federal&quot;, &quot;ES   Espirito Santo&quot;, &quot;EX   Exterior&quot;, &quot;GO   Goias&quot;, &quot;MA   Maranhão&quot;, &quot;MG   Minas Gerais&quot;, &quot;MS   Mato Grosso Sul&quot;, &quot;MT   Mato Grosso&quot;, &quot;PA   Pará&quot;, &quot;PB   Paraiba&quot;, &quot;PE   Pernambuco&quot;, &quot;PI   Piauí&quot;, &quot;PR   Paraná&quot;, &quot;RJ   Rio de Janeiro&quot;, &quot;RN   Rio Grande Norte&quot;, &quot;RO   Rondônia&quot;, &quot;RR   Roraima&quot;, &quot;RS   Rio Grande Sul&quot;, &quot;SC   Santa Catarina&quot;, &quot;SE   Sergipe&quot;, &quot;SP   São Paulo&quot;, &quot;TO   Tocantins&quot; &#125; \n   local cText    &#58;= aEstados&#91;1&#93; \n\n* Here you return the height of the line of the combobox, when he is open\n   extend class TCombobox with message getItemheight&#40; nItem &#41;          inline &#58;&#58;SendMsg&#40; CB_GETITEMHEIGTH, nItem, 0 &#41; \n\n* Here you defined the height of the line of the combobox, when he is open\n   extend class TCombobox with message setItemheight&#40; nHeight &#41; inline &#58;&#58;SendMsg&#40; CB_SETITEMHEIGTH, , nHeight &#41; \n\n* Here you return the width of the line of the combobox, when he is open\n   extend class TCombobox with message GETDROPPEDWIDTH&#40;&#41;               inline &#58;&#58;SendMsg&#40; CB_GETDROPPEDWIDTH, 0, 0 &#41; \n\n* Here you defined the width of the line of the combobox, when he is open\n   extend class TCombobox with message SETDROPPEDWIDTH&#40; nWidth &#41;       inline &#58;&#58;SendMsg&#40; CB_SETDROPPEDWIDTH, nWidth, 0 &#41; \n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 200, 200 ; \n      TITLE &quot;DropDown ComboBox Test&quot; pixel \n\n   @ 10, 10 COMBOBOX oCbx VAR cText STYLE CBS_DROPDOWNLIST ;  &amp;&amp; CBS_DROPDOWN ; \n     ITEMS aEstados size 20, 100 ; \n      ON CHANGE oDlg&#58;SetText&#40; cText &#41; pixel \n\n   oCbx&#58;bgotfocus &#58;= &#123; |oObj| &#40; oObj&#58;setItemheight&#40; 20 &#41;, oObj&#58;setdroppedwidth&#40; 200 &#41;, oObj&#58;refresh&#40;&#41; &#41; &#125; \n\n   ACTIVATE DIALOG oDlg CENTERED \n\nreturn nil \n[/code:3a60r7xy]','',0,'gIA=','3a60r7xy',1,0,'',104,0,0),(43194,9078,2,1243,0,'164.77.88.149',1196864406,1,0,1,1,1,0,'','','Hola Antonio y gracias por responder, estoy usando TCBROWSE y para poner los colores al listbos lo hago asi:\n\noLbx1:nClrPane:={|| iif((oLbx:cAlias)-&gt;(ordkeyno())%2==0,_gris,_amarillo)}\n\nUso FiveWin 2.4, clipper 5.3 y blinker 7','',0,'gIA=','dm0ji6et',1,0,'',1243,0,0),(43195,8838,3,51,0,'80.122.88.242',1196864887,1,0,1,1,1,0,'','','Hello Rossine,\ntrying to compile I get this error: I use Harbour.\nRegards.\nOtto\n\nNo code generated\n14comobox.prg(22) Error E0030  Syntax error: \"syntax error at \'CLASS\'\"\n14comobox.prg(25) Error E0030  Syntax error: \"syntax error at \'CLASS\'\"\n14comobox.prg(28) Error E0030  Syntax error: \"syntax error at \'CLASS\'\"\n14comobox.prg(31) Error E0030  Syntax error: \"syntax error at \'CLASS\'\"\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nError E2194: Could not find file \'14comobox.c\'','',0,'gIA=','2yzmgoh5',1,0,'',51,0,0),(43196,9079,6,21,0,'83.61.248.75',1196865409,1,0,1,1,1,1,'','Nueva versión xharbour y autoincrementales','Hola,\n\nUso Advantage 8.1 en modo servidor y en las tablas tengo creado un campo en formato autoincremental.\n\nHe actualizado a la nueva versión de fivewin y ahora tengo problemas al leer dicho campo.\nUn simple print de ese campo me retorna asceriscos.\n[code:13ypk9uy]? Articulo-&gt;Id[/code:13ypk9uy]\n\nGracias por vuestro tiempo','',0,'AIA=','13ypk9uy',1,0,'',21,0,0),(43197,8838,3,110,0,'148.168.40.4',1196865686,1,0,1,1,1,1,'','','sorry for my bad english\n\nThe EXTENDED CLASS ... is a extencion for xHarbour Only.\n\n<!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nsalu2\ncarlos vargas','',0,'AIA=','bz1l8szg',1,0,'',110,0,0),(43198,8984,6,110,0,'148.168.40.4',1196866122,1,0,1,1,1,1,'','','Estimados\n\nY si esa informacion en Texto de alguna forma se puede convertir a una tabla dbf la cual podemos perfectamente maipular no seria mejor.\n\npor ejemplo\n\n21112007;01122007;31122007;20000000028;D;S;N;6,00;1,75;15;10 \n21112007;01122007;31122007;20000013677;D;S;N;6,00;1,75;15;10 \n21112007;01122007;31122007;20000091635;D;S;N;6,00;1,75;15;10 \n21112007;01122007;31122007;20000125327;C;S;N;6,00;1,75;15;10 \n21112007;01122007;31122007;20000188426;C;S;N;6,00;1,75;15;10 \n21112007;01122007;31122007;20000282465;D;S;N;0,00;0,00;01;01 \n\nse podria utilizar un COPY DELIMITED  por ejemplo.\n\nsalu2\ncarlos vargas','',0,'AIA=','32old4yj',1,0,'',110,0,0),(43199,8984,6,110,0,'148.168.40.4',1196866394,1,0,1,1,1,1,'','','Antonio\n\nEn XBase++ tienen un RDD que permite manipular Archivos delimitados como si de una tabla se tratase, usando USE, BROWSE, SKIP, GO.. Tec.\n\nno se pudiera implementar algo similar en harbour.\n\nNOTA, si pueden enviarme el txt comprimido podria intentar encontrar la forma.\n\nkarlos.vargas AT gmail.com\n\nsalu2\ncarlos vargas.','',0,'AIA=','1f4o7wt4',1,0,'',110,0,0),(43200,9080,8,1242,0,'189.29.209.156',1196866624,1,0,1,1,1,0,'','Conversion con FW++ e Xbase++ de alaska','Buenos dias Sr. Antonio linares !!!!!\n\nTengo un sistema en Clipper y alguna cosa convertida en FW..\nme gustaria de convertir rápido mi sistema .\nVi en el site en la seccion FW++ , que dice que es posible en menos de una semana hacer esta conversion , esto es una realidad ???','',0,'AIA=','3razzqm8',1,0,'',1242,0,0),(43201,9078,2,2,0,'87.218.146.107',1196866737,1,0,1,1,1,1,'','','Prueba con\n\nSET DELETED ON | OFF','',0,'AIA=','1331b6kx',1,0,'',2,0,0),(43202,9080,8,2,0,'87.218.146.107',1196866947,1,0,1,1,1,1,'','','Pablo,\n\n&gt; esto es una realidad ???\n\nDe FW a FW 32 bits (bien sea FW++ ó FWH), Si <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  \n\nDe todas formas, te recomendamos FWH y Harbour, en vez de FW++, ya que ha demostrado funcionar muchísimo mejor <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3fxagd1a',1,0,'',2,0,0),(43203,8984,6,2,0,'87.218.146.107',1196867094,1,0,1,1,1,1,'','','Carlos,\n\nLuis está buscando el sistema más rápido posible, ya que el fichero es muy grande. \n\nEn esos casos es donde hace falta el lenguaje C, ya que es sin duda, el más rápido de todos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','6oku7vmy',1,0,'',2,0,0),(43204,9078,2,1243,0,'164.77.88.149',1196867281,1,0,1,1,1,0,'','','Ya tengo puesta esa instrucion y tampoco funciona pero al hacerle un PACK al dbf y volver a reindexar si me muestra los colores intercalados como debe ser ... Al parecer no reconoce que los registros estan deleteados pero sin embargo no los muestra en el listbox.','',0,'AIA=','1p7krxcg',1,0,'',1243,0,0),(43205,9079,6,2,0,'87.218.146.107',1196867321,1,0,1,1,1,1,'','','Fernando,\n\nTe recomiendo que le envies un email a Brian Hays  <!-- e --><a href=\"mailto:bhays@abacuslaw.com\">bhays@abacuslaw.com</a><!-- e --> ya que es un gran experto de ADS y siempre usa e investiga las versiones más recientes de ADS, además de tener él, contacto directo con los desarrolladores de ADS','',0,'AIA=','s165k6nj',1,0,'',2,0,0),(43206,9078,2,2,0,'87.218.146.107',1196867478,1,0,1,1,1,1,'','','Has probado con ON ? y con OFF ?','',0,'AIA=','304pu9y2',1,0,'',2,0,0),(43207,9081,19,1242,0,'189.29.209.156',1196867639,1,0,1,1,1,0,'','V congresso de programacion en FW - ( EN BRASIL )','Muito buenos dias a todos de la comunidad !!!!!\n\n   Senhores , se há realizado 24 de noviembre de 2007 en la ciudad de São Paulo - BRASIL  el \"V congresso de programadores en FW\" , fué un exito total, muchos assuntos interessantes, personas de todo BRASIL e otros países como PERU se movieron para este encuentro , la organizacion fué fantástica ,  100 personas participaron deste congreso , la comunidad de FW en BRASIL está en crescimiento constante.\n\n    Nosotros de BRASIL, los gustaria mucho que la comunidade mundial hiciera un evento aca en São Paulo, seria muy importante para FW ... y tenemos grande potencial para hacer-lo con la ayuda de ustedes y de nuestros mentores.','',0,'AIA=','3lxv03e8',1,0,'',1242,0,0),(43208,9078,2,1243,0,'164.77.88.149',1196868226,1,0,1,1,1,0,'','','Con ON no me muestra el registro borrado pero me deja los colores amarillos pegados si he borrado uno gris ... con OFF me deja los colores intercalados pero me muestra el registro borrado lo cual no es la idea.','',0,'AIA=','xfzsc41j',1,0,'',1243,0,0),(43209,9078,2,2,0,'87.218.146.107',1196868555,1,0,1,1,1,1,'','','Construye el indice con la claúsula FOR ! TuAlias-&gt;( Deleted() )','',0,'AIA=','13x2tfba',1,0,'',2,0,0),(43210,9078,2,1243,0,'164.77.88.149',1196868782,1,0,1,1,1,0,'','','Ok antonio lo hare asi y vere que pasa ... te agradezco tus respuestas y te informare como me fue.','',0,'AIA=','2f9xk7go',1,0,'',1243,0,0),(43211,9081,19,2,0,'87.218.146.107',1196868809,1,0,1,1,1,1,'','','Pablo,\n\nEnhorabuena!!! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','6h24umc4',1,0,'',2,0,0),(43212,9077,6,396,0,'190.78.226.57',1196872369,1,0,1,1,1,1,'','','1. actualizate a la version 5.3 que ha sido mejorada y solucionado algunos bug.\n\n2. problema. yo trabajo con pelles, y lo que hago es que convierto el .rc a .res con el mismo pelles y ese es el que llevo a mi aplicacion.\n\nnose si lo de los recursos en diferentes carpetas estara resuelto, como te dije, usa la 5.3 a ver si hay algo alli.','',0,'AIA=','20hcal6n',1,0,'',396,0,0),(43213,8838,3,6,0,'79.3.210.75',1196873344,1,0,1,1,1,1,'','','You can replace the new methods with simple functions and pass them the combobox object variable.\n\nEMG','',0,'AIA=','3jsx3drt',1,0,'',6,0,0),(43214,9031,3,956,0,'189.22.134.130',1196874467,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:1d363fmw]Ad Editor)\nWhat I would like is a possibility to color parts of the code.\nExample: You create a new function, then you mark the whole function with red what means you have to double check this part of your code – other parts you could mark green meaning you have checked the source or use colors for other tasks.\nSometimes I use MSWord for that.\nRegards,\nOtto[/quote:1d363fmw]\n\nTry to use the xDev (Portuguese - Brazil)\n<!-- m --><a class=\"postlink\" href=\"http://www.sqllib.com.br/download.php?id=xDevStudio\">http://www.sqllib.com.br/download.php?id=xDevStudio</a><!-- m -->','',0,'gA==','1d363fmw',1,0,'',956,0,0),(43215,9082,6,1099,0,'88.8.242.165',1196875184,1,0,1,1,1,0,'','Problema con folder','Hola atodos,\n\nEstoy empezando ha programar con harbour y me encuantro con un problema a la hora de hacer folder\'s en mi aplicación.\n\nSiempre ma aprece un cuadro blanco en el fondo de la aplicación y no se como evitarlo, he provado hasta a cambiar el color del folder y siempre me aprece el cuadro blanco. Aquí os dejo una imagen para que veais de lo que hablo:\n\n[img:elxn2uoi]http&#58;//www&#46;arquebisbattarragona&#46;cat/folder&#46;jpg[/img:elxn2uoi]\n\nLa ventana la construí asi:\n\n\nDEFINE DIALOG FINESTRA FROM 1,1 TO 498,672 PIXEL TITLE TIT FONT TLLETRA\n@ 12,10 SAY \"NIF:\" SIZE 12,9 PIXEL OF FINESTRA\n@ 10,26 GET CAMPS[1] SIZE 38,11 PICTURE \"!9999999!\" UPDATE VALID EMPTY(CAMPS[1]) .OR. NNC(CAMPS[1])=\"S\" .OR. IF(LEN(ALLTRIM(NNC(CAMPS[1])))&gt;1,(CAMPS[1]:=NNC(CAMPS[1]),FINESTRA:UPDATE(),.T.),(TONE(900,2),MsgStop(\"Número erroni\",\"Atenció!\"),.F.)) PIXEL WHEN OP $ \"AR\" OF FINESTRA\n@ 12,69 SAY \"Cognoms i nom:\" SIZE 48,9 PIXEL\n@ 10,121 GET C2 VAR CAMPS[2] SIZE 205,11 PIXEL WHEN OP $ \"AR\" OF FINESTRA\n@ 25,10 FOLDER CARPETA PROMPT \"Dades personals\",\"Itinerari\",\"Situació actual\",\"Càrrecs anteriors\",\"Estudis\" SIZE 316,190 PIXEL FONT TLLETRA OF FINESTRA\n@ 227,113 BUTTON \"&amp;D\'acord\" OF FINESTRA SIZE 50,12 PIXEL ACTION ACEPTAFI()\n@ 227,173 BUTTON \"&amp;Cancel·lar\" OF FINESTRA SIZE 50,12 PIXEL ACTION (OK:=.F.,FINESTRA:END())\nACTIVATE DIALOG FINESTRA CENTERED\n\n\nMe aparece en todos los folder\'s.\n\nOs agradeciria me ayudaseis a solucionar este problema.\n\nGracias de antemano.\n\nAndrés González','',0,'CA==','elxn2uoi',1,0,'',1099,0,0),(43216,9083,6,1146,0,'87.223.173.186',1196875233,1,0,1,1,1,0,'','problema con filtro urgente','Hola:\n\nQuiero filtrar todas las facturas desde una serie y un numero hasta otra serie y el número final de esa serie.\n\nPor ejemplo, desde la a1 a la b10, de modo que tiene que imprimir toda la serie A entera y de la B sólo hasta la 5.\n\n\nHago:\n\nlocal ccondicion := \"FIELD-&gt;FSERIE &gt;= \" +CHR(34)+cFSERIE1+CHR(34)+  \" .AND. FIELD-&gt;FNUMERO &gt;= \" AllTrim( Str( nCodigo1 ) ) + \".AND. +\" ;\n    \"FIELD-&gt;FSERIE &lt;= \" +CHR(34)+cFSERIE2+CHR(34)+  \" .AND. FIELD-&gt;FNUMERO &lt;= \" AllTrim( Str( nCodigo2 ) )\n             \nset filter to &amp; cCondicion\n\n\nSin emabrgo, sólo me imprime de la a1 a la a5 y de la b1 a la b5. Falta el resto de la serie A. ¿Qué hago mal?.\n\nMuchas garcias!!!!.\n\nSalu2,\n\nMoisés','',0,'CA==','24tezwig',1,0,'',1146,0,0),(43217,9079,6,21,0,'88.29.43.224',1196875601,1,0,1,1,1,1,'','','Antonio,\n\nYa le he enviado el correo a Brian Hays.\n\nAunque el problema lo tengo desde que he actuliazado fivewin y xharbour. \n\nAntes usaba Ads 8.1 y Fivewin de Marzo con su correspondiente xharbour y funcionaba correctamente.','',0,'CA==','bimazyqq',1,0,'',21,0,0),(43218,9083,6,92,0,'213.98.203.109',1196876382,1,0,1,1,1,0,'','Re: problema con filtro urgente','[quote=&quot;MOISES&quot;:2tmjbwv0]Hola:\n\nQuiero filtrar todas las facturas desde una serie y un numero hasta otra serie y el número final de esa serie.\n\nPor ejemplo, desde la a1 a la b10, de modo que tiene que imprimir toda la serie A entera y de la B sólo hasta la 5.\n\n\nHago:\n\nlocal ccondicion := \"FIELD-&gt;FSERIE &gt;= \" +CHR(34)+cFSERIE1+CHR(34)+  \" .AND. FIELD-&gt;FNUMERO &gt;= \" AllTrim( Str( nCodigo1 ) ) + \".AND. +\" ;\n    \"FIELD-&gt;FSERIE &lt;= \" +CHR(34)+cFSERIE2+CHR(34)+  \" .AND. FIELD-&gt;FNUMERO &lt;= \" AllTrim( Str( nCodigo2 ) )\n             \nset filter to &amp; cCondicion\n\n\nSin emabrgo, sólo me imprime de la a1 a la a5 y de la b1 a la b5. Falta el resto de la serie A. ¿Qué hago mal?.\n\nMuchas garcias!!!!.\n\nSalu2,\n\nMoisés[/quote:2tmjbwv0]\n\nPrueba con:\nStr( nCodigo2, 10, 0 )  en vez de Str( nCodigo2 )\n\nestás comprobando cadenas y no es lo mismo \'1\' que \'1.00\' por ejemplo.\n\nSaludos\nCarlos G.','',0,'gA==','2tmjbwv0',1,0,'',92,0,0),(43219,9084,3,1231,0,'83.144.114.249',1196877133,1,0,1,1,1,1,'','xBrowse on array - headers disappear.','I have problem with xBrowse on array.\nWhen I first time call a dialog with xBrowse all look correctly.\n[img:15zuxmie]http&#58;//www&#46;3ct-phototeam&#46;pl/FWH/xbrowse-step-1&#46;jpg[/img:15zuxmie]\n\nbut when I add one record to array headers disappear \n\n[img:15zuxmie]http&#58;//www&#46;3ct-phototeam&#46;pl/FWH/xbrowse-step-2&#46;jpg[/img:15zuxmie]\n\nAfter append on database I call this three lines\n\noBRWF:SetArray( xTABBAD )\noBRWF:Refresh(.T.)\noBRWF:SetFocus()\n\nAny idea what I\'m doing wrong?\n\nR.','',0,'CA==','15zuxmie',1,0,'',1231,0,0),(43220,9078,2,1243,0,'164.77.88.149',1196877230,1,0,1,1,1,0,'','','Solucionado mi problema ... Muchas gracias por tu ayuda.','',0,'CA==','1om3755f',1,0,'',1243,0,0),(43221,9083,6,456,0,'62.43.24.65',1196877474,1,0,1,1,1,1,'','','Lo primero seria recomendarte una solucion sin filtros, usando scope con un bucle While o similiar.\n\nLa sentencia para filtro debe ser del estilo\n[code:19s883eo]\nlocal ccondicion &#58;= &quot;      FIELD-&gt;FSERIE+Str&#40;FIELD-&gt;FNUMERO,10&#41; &gt;= \'&quot;+cFSERIE1+ Str&#40; nCodigo1,10 &#41; +;\n                   &quot;\'&#46;AND&#46; FIELD-&gt;FSERIE+Str&#40;FIELD-&gt;FNUMERO,10&#41; &lt;= \'&quot;+cFserie2+Str&#40;nCodigo2,10&#41;+&quot;\'&quot;\n[/code:19s883eo]\n\nSuponiendo fnumero un campo númerico, si es caracter quitar el Str(), y ajustar Str(nCodigo, longitud del campo de la tabla)','',0,'AIA=','19s883eo',1,0,'',456,0,0),(43222,9084,3,868,0,'219.64.121.60',1196878797,1,0,1,1,1,1,'','','Please remove the line\noBRWF:SetArray( xTABBAD ) \nand try.','',0,'AIA=','2iuvft68',1,0,'',868,0,0),(43223,9084,3,1231,0,'83.144.114.249',1196879429,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:375lzune]Please remove the line\noBRWF:SetArray( xTABBAD ) \nand try.[/quote:375lzune]\n\nI done it and happend nothing.\nI saw headers but i didn\'t see my new record.\n\nI have to use SetArray becouse I rebuild table and sort it by special order.','',0,'gA==','375lzune',1,0,'',1231,0,0),(43224,9079,6,21,0,'88.28.5.254',1196880131,1,0,1,1,1,1,'','','Antonio, \n\nYa encontre la solución.\n\nEl problema es que la función str, por defecto, transforma a 10 digitos y ahora necesito transforma a 11, osea cambiar en todos los sitios que tengo str(Articulo-&gt;Id) por Str(Articulo-&gt;Id, 11)\n\nLas comprobaciones usando este valor funcionan bien, por ejemplo Articulo-&gt;Id==nId\n\nEl hecho de que no funcione un simple print (?) o un simple browse (sin que esa columna tenga transform), no se que puede ser, me imagino que para presentarlo se convierta internamente a caracteres\n\nGracias por tu tiempo y dedicación.','',0,'gA==','t3ngld13',1,0,'',21,0,0),(43225,9085,6,1236,0,'201.86.90.60',1196880307,1,0,1,1,1,0,'','xharbour 99.70(COMERCIAL) funciona com FWH 7.01 ?','xharbour 99.70(COMERCIAL) funciona com FWH 7.01 ? \n\nGrato\n\nAoki','',0,'gA==','1s165npn',1,0,'',1236,0,0),(43226,9086,6,21,0,'88.28.5.254',1196880531,1,0,1,1,1,1,'','TTimePick','Hola,\n\nAl intentar compilar la nueva versión de fivewin (7.12) me muestra el siguiente error:\n[code:3d4ya4gm]Error&#58; Unresolved external \'_HB_FUN_TTIMEPICK\' referenced from&#46;&#46;&#46;[/code:3d4ya4gm]\n\nError que se soluciona si incluyo en mi compilación el archivo c:\\FWH\\SOURCE\\CLASSES\\ttmpicke.prg.\n\nDa la sensación que el archivo no esta incluido en la libería de fivewin','',0,'AIA=','3d4ya4gm',1,0,'',21,0,0),(43227,9085,6,217,0,'200.159.120.34',1196882775,1,0,1,1,1,0,'','Re: xharbour 99.70(COMERCIAL) funciona com FWH 7.01 ?','Aoki,\n\nUso o Fivewin 7.01 com o xHB comercial de novembro/2007 e funciona muito bem.\n\nMaurilio','',0,'AIA=','33v2zp6a',1,0,'',217,0,0),(43228,9087,7,57,0,'88.17.194.100',1196883625,1,0,1,1,1,1,'','Quitar Ceros de la derecha. Error al compilar','Antonio\n\nLa funcion que te adjunto devuelve la cadena pasada quitando los ceros de la derecha. \nPor ejemplo: cQuitaCeros(\"123.456000\"), devuelve \"123.456\". \n\nCompilada con xHarbour funciona correctamente pero si la compilo con Harbour_CE obtengo el siguiente error de compilación y desconocemos el motivo.\n¿Que estoy haciendo mal?\nTe agradeceria me lanzaras un cable.\n\nSaludos \nToni Sales\n********* ERROR DE COMPILACION *******************\nerror C2223: left of \'-&gt;item\' must point struct/union  \n\n********* LA FUNCION ******************************\n#include \"hbapi.h\"\nHB_FUNC ( CQUITACEROS )\n{\n\n      PHB_ITEM pItem;\n      char *szText;\n      int i;\n      int n;\n      char * szResult;\n\n\n      pItem = hb_param(1, HB_IT_STRING);\n\n      if( pItem )\n      {\n         szText = pItem-&gt;item.asString.value;\n         i       = (int) pItem-&gt;item.asString.length -1 ;\n         n       = 0;\n\n         while( i &gt;= 0)\n         {\n            if(szText[i] != \'0\')\n            {\n                     n = ( n != 0 ? n : i );\n            }\n            i--;\n\n\n         }\n\n         if( n != 0)\n         {\n            szResult = ( char * ) hb_xgrab( n+1  );\n            memcpy(  szResult, szText , n+1);\n            hb_retclenAdopt( szResult, n+1 );\n            return;\n\n         }\n\n\n      }\n\n      hb_ret();\n      return;\n\n}','',0,'','nh4onnon',1,0,'',57,0,0),(43229,9078,2,2,0,'87.218.146.107',1196885071,1,0,1,1,1,1,'','','bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','292zdg2i',1,0,'',2,0,0),(43230,9087,7,2,0,'87.218.146.107',1196885444,1,0,1,1,1,1,'','','Toni,\n\nLa estructura HB_ITEM está protegida en Harbour, igual que en Windows usamos un handle (puntero) de ventana, pero no el contenido de lo apuntado por ese handle. Eso aumenta la seguridad y la compatibilidad con futuros cambios.\n\nAún así, puedes superar esa barrera de esta forma:\n\n#define _HB_API_INTERNAL_\n#include &lt;hbapi.h&gt;','',0,'','2xey7tkv',1,0,'',2,0,0),(43231,9084,3,868,0,'219.64.121.60',1196885861,1,0,1,1,1,1,'','','SetArray again recreates all the columns \"without headers\'\n\nCan you post here lines of code creating the array first and then appending the row ?','',0,'','2wp0w026',1,0,'',868,0,0),(43232,9079,6,2,0,'87.218.146.107',1196886798,1,0,1,1,1,1,'','','Fernando,\n\n&gt; cambiar en todos los sitios que tengo str(Articulo-&gt;Id) por Str(Articulo-&gt;Id, 11) \n\nPodrias buscar y reemplazar Str() por Str11() en tus PRGs y que Str11() llame a Str() usando 11 como segundo parámetro.\n\nPara comprender mejor lo que ocurre: el contenido numérico de ese campo mide 11 dígitos ? Puedes poner un valor de ejemplo ? gracias\n\nPrueba a hacer Len() de ese campo, a ver que valor da','',0,'','2zdf0gqe',1,0,'',2,0,0),(43233,9087,7,123,0,'81.32.12.184',1196886968,1,0,1,1,1,1,'','','Antonio,\n\n[quote:2uer01n0]La estructura HB_ITEM está protegida en Harbour, igual que en Windows usamos un handle (puntero) de ventana, pero no el contenido de lo apuntado por ese handle. Eso aumenta la seguridad y la compatibilidad con futuros cambios.[/quote:2uer01n0]\n\nEntonces... ¿como debemos tratar los punteros a ITEM de Harbour?  ¿Cuales funciones podríamos usar?\n\nSaludos y gracias por tu luz.\nJosé Luis Capel','',0,'gA==','2uer01n0',1,0,'',123,0,0),(43234,9084,3,868,0,'219.64.121.60',1196887417,1,0,1,1,1,1,'','','This is a working sample\n[code:9rxyw0dh]\n#include &quot;FiveWin&#46;Ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL   oWnd, oBrw, oCol\n   LOCAL   aArray, n\n\n   aArray         &#58;= &#123; &#123; 1, \'AAA\' &#125;, &#123; 2, \'BBB\' &#125;, &#123; 3, \'CCC\' &#125; &#125;\n   n					&#58;= LEN&#40; aArray &#41; // used to create append row\n\n   DEFINE WINDOW oWnd\n\n   oBrw        	&#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n   oBrw&#58;SetArray&#40; aArray &#41;\n\n	oBrw&#58;aCols&#91;1&#93;&#58;cHeader	&#58;= \'First\'\n	oBrw&#58;aCols&#91;2&#93;&#58;cHeader	&#58;= \'Second\'\n\n	// right click on browse appends a row\n	oBrw&#58;bRClicked	&#58;= &#123;|| n++, 	;\n								 AADD&#40; aArray, &#123; n, REPLICATE&#40;CHR&#40;64+n&#41;,3&#41; &#125; &#41;, ;\n							    oBrw&#58;Refresh&#40;&#41;, ;\n							    oBrw&#58;GoBottom&#40;&#41; ;\n							&#125;\n\n	oBrw&#58;CreateFromCode&#40;&#41;\n	oWnd&#58;oClient 	&#58;= oBrw\n\n   ACTIVATE WINDOW oWnd\n\nRETURN NIL\n[/code:9rxyw0dh]\nPlease test this sample. It has to work and it works. Modify your code in the same manner.','',0,'AIA=','9rxyw0dh',1,0,'',868,0,0),(43235,9087,7,2,0,'87.218.146.107',1196887433,1,0,1,1,1,1,'','','Jose Luis,\n\n&gt; Entonces... ¿como debemos tratar los punteros a ITEM de Harbour? \n\nComo \"handles\" (no modificables) y no como punteros <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; ¿Cuales funciones podríamos usar? \n\nDepende de lo que querais hacer. En vuestra función es suficiente con usar hb_parc() y hb_retc() <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3i4231w7',1,0,'',2,0,0),(43236,9087,7,2,0,'87.218.146.107',1196888760,1,0,1,1,1,1,'','','Bueno, tambien han hecho falta hb_parclen() y hb_retclen() <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAqui la teneis funcionando:\n[code:jhh5fmio]\nfunction main&#40;&#41;\n\n   MsgInfo&#40; cQuitaCeros&#40; &quot;123&#46;4560000&quot; &#41; &#41;\n\nreturn nil\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n\nHB_FUNC&#40; CQUITACEROS &#41;\n&#123;\n   char * pszText = hb_parc&#40; 1 &#41;;\n   char * psz = pszText; \n\n   while&#40; * psz != \'&#46;\' &amp;&amp; * psz != 0 &#41;\n      psz++;\n\n   if&#40; * psz != 0 &#41;\n   &#123;\n      psz = pszText + hb_parclen&#40; 1 &#41; - 1;\n\n      while&#40; * psz == \'0\' &#41;\n         psz--;\n\n      hb_retclen&#40; pszText, psz - pszText + 1 &#41;;\n   &#125;\n   else\n      hb_retc&#40; pszText &#41;;\n&#125;\n\n#pragma ENDDUMP                 \n[/code:jhh5fmio]','',0,'AIA=','jhh5fmio',1,0,'',2,0,0),(43237,9087,7,123,0,'81.32.12.184',1196889753,1,0,1,1,1,1,'','','Antonio,\n\nEres un  crack!!  Muchas gracias!\n\nSaludos,\nJosé Luis Capel\n\nPD: una pregunta de novatillo en esto del c...\n\n[code:k950t7ko]while&#40; * psz != \'&#46;\' &amp;&amp; * psz != 0 &#41; \n      psz++;[/code:k950t7ko]\n\nVa de izquierda a derecha... ¿verdad?','',0,'AIA=','k950t7ko',1,0,'',123,0,0),(43238,9088,3,51,0,'80.122.88.242',1196889940,1,0,1,1,1,0,'','FW CODE SNIPS','[img:gowwh7v2]http&#58;//www&#46;hochpustertal&#46;at/codesnipys/fwcodesnips&#46;jpg[/img:gowwh7v2]\nHello Fivewinners,\n\nI heartily invite you all to my project “FiveWin code snips”. The idea of “code snips” is to create a pool of codes that can be useful for more than one of us.\n\nWhen I find codes in our newsgroup I copy them and add them to the collection.\n\nI invite you all to participate.\n\nDear greetings,\n\nOtto\n\n[url:gowwh7v2]http&#58;//www&#46;fwcodesnips&#46;com[/url:gowwh7v2]','',0,'GA==','gowwh7v2',1,0,'',51,0,0),(43239,9089,6,51,0,'80.122.88.242',1196890081,1,0,1,1,1,0,'','FW CODE SNIPS','[img:2i27d2fm]http&#58;//www&#46;hochpustertal&#46;at/codesnipys/fwcodesnips&#46;jpg[/img:2i27d2fm]\nHello Fivewinners,\n\nI heartily invite you all to my project “FiveWin code snips”. The idea of “code snips” is to create a pool of codes that can be useful for more than one of us.\n\nWhen I find codes in our newsgroup I copy them and add them to the collection.\n\nI invite you all to participate.\n\nDear greetings,\n\nOtto\n\n[url:2i27d2fm]http&#58;//www&#46;fwcodesnips&#46;com[/url:2i27d2fm]','',0,'GA==','2i27d2fm',1,0,'',51,0,0),(43240,9084,3,1231,0,'83.144.114.249',1196891281,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:3144fgqf]sample[/quote:3144fgqf]\n\nThank you for answer.\nWhen I work on WINDOW my code working ok, but I want in on DIALOG.\n\nYours code work on dialog too, my blame is that I wanted to put another table instead original \"in fly\". xBrowse doesn\'t like it.\nIn TSBrowse I used methods DrawHeader and DrawFooter to correct this kind of situaction, I can\'t find something equal in xBrowse.\n\nR.','',0,'gA==','3144fgqf',1,0,'',1231,0,0),(43241,9089,6,940,0,'201.170.43.154',1196891362,1,0,1,1,1,1,'','','Excelente idea,,\n\nfelicidades..','',0,'gA==','za93ipbb',1,0,'',940,0,0),(43242,9084,3,1231,0,'83.144.114.249',1196891502,1,0,1,1,1,1,'','','Creating a browse:\n\nFunction LISTA_BADAN()\nLocal oBTN:=Array(20)\nLocal xPOZB:=  0\nLocal yPOZB:=  0\nLocal xPOZE:=800 // szerokosc\nLocal yPOZE:=550 // wysokosc\nLocal xRECT\nLocal oBRUSH\n\nDEFINE BRUSH oBRUSH FILENAME \"BACKGRND\\TLO_DG.BMP\"\n\nDEFINE DIALOG oWNDF ;\n   FROM yPOZB,xPOZB TO yPOZE,xPOZE PIXEL ;\n   BRUSH oBRUSH ;\n   TITLE AllTrim(OemToAnsi(RR-&gt;NAZW))+\' \'+AllTrim(OemToAnsi(RR-&gt;IMIE))+\' \'+AllTrim(Str(RR-&gt;RECNO,8,0))+\' / \'+AllTrim(Str(RR-&gt;BARCODE,8,0))\n        \nSelect(\"FF\")\nTABBAD_INIT(RR-&gt;RECNO)\n\noBRWF := TXBrowse():New( oWNDF )\noBRWF :SetArray( xTABBAD,.F.) // nie szukaj po badaniach\noBRWF :nHeaderLines        := 2\noBRWF :nDataLines          := 1\noBRWF :lFooter             :=.t.\n\noBRWF :aCols[3]:cHeader := \"Nazwa\"+sCRLF+\"badania\"  \noBRWF :aCols[3]:cFooter := \"RAZEM : \"\noBRWF :aCols[4]:cHeader := \"Cena\"+sCRLF+\"badania\"\noBRWF :aCols[4]:cFooter := Transform(nRABAT,\"#####.##\")\noBRWF :aCols[6]:cHeader := \"Cena\"+sCRLF+\"amb.\"\noBRWF :aCols[6]:cFooter := Transform(nRAZEM,\"#####.##\")\noBRWF :aCols[5]:cHeader := \"Pracownia\"\noBRWF :aCols[5]:cFooter := IIF(nRAZEM=0,\"\",AllTrim(Transform(ABS((nRABAT/nRAZEM)*100-100),\"#####.##\"))+\"%\")\noBRWF :aCols[7]:cHeader := \"Data i godzina akceptacji\"\noBRWF :aCols[7]:cFooter := \"-\"\noBRWF :aCols[8]:cHeader := \"Tube\"\noBRWF :aCols[8]:cFooter := \"-\"\noBRWF :aCols[9]:cHeader := \"Pozycja\"\noBRWF :aCols[9]:cFooter := \"-\"\n   \n\n\noBRWF :bClrHeader := {|| { nRGB(0,0,0), nRGB(222,227,247) } }\noBRWF :bClrFooter := oBRWF:bClrHeader\noBRWF :bClrStd    := oBRWF:bClrHeader\noBRWF :nMarqueeStyle    := MARQSTYLE_HIGHLROW\noBRWF :nColDividerStyle := LINESTYLE_DARKGRAY\noBRWF :nRowDividerStyle := LINESTYLE_DARKGRAY\noBRWF :nHeaderHeight    :=50\noBRWF :CreateFromCode()\n\noBRWF :nTop = 22\noBRWF :nLeft = 0\noBRWF :nWidth = 600\noBRWF :nHeight =300 \n\noBRWF:bKeyDown:={|nKEY| JAKIFFDown(nKEY) }\n//oBRWF:bKeyChar:={|nKEY| JAKIFFChar(nKEY) }\n@0,  0 BTNBMP oBTN[ 1] FILE \"BMP\\B_REB_1.BMP\" OF oWNDF NOBORDER ;\n   ACTION (F_EDYCJA(\"N\"),oBRWF:SetFocus())\n   oBTN[ 1]:cToolTip:=\"Dodaj badanie\"\n   oBTN[ 1]:lTransparent:=.T.\n@0, 20 BTNBMP oBTN[ 2] FILE \"BMP\\B_REB_2.BMP\" OF oWNDF NOBORDER ;\n   ACTION (F_DODAJP(),oBRWF:SetFocus())\n   oBTN[ 2]:cToolTip:=\"Dodaj profil\"\n   oBTN[ 2]:lTransparent:=.T.\n@0, 40 BTNBMP oBTN[ 3] FILE \"BMP\\B_REB_3.BMP\" OF oWNDF NOBORDER ;\n   ACTION (F_SKASUJ(),oBRWF:SetFocus())\n   oBTN[ 3]:cToolTip:=Ptxt(\"Usu~n badanie\")\n   oBTN[ 3]:lTransparent:=.T.\n@0, 60 BTNBMP oBTN[ 4] FILE \"BMP\\B_REB_4.BMP\" OF oWNDF NOBORDER ;\n   ACTION FAKTURA()\n   oBTN[ 4]:cToolTip:=\"Wydruk faktury\"\n   oBTN[ 4]:lTransparent:=.T.\n@0, 80 BTNBMP oBTN[ 5] FILE \"BMP\\B_REB_5.BMP\" OF oWNDF NOBORDER ;\n   ACTION DRUKUJ()\n   oBTN[ 5]:cToolTip:=\"Wydruk KP\"\n   oBTN[ 5]:lTransparent:=.T.\n@0,100 BTNBMP oBTN[ 6] FILE \"BMP\\B_REB_6.BMP\" OF oWNDF NOBORDER ;\n   ACTION FISZKA()\n   oBTN[ 6]:cToolTip:=Ptxt(\"Wydruk przyj~etych zlece~n\")\n   oBTN[ 6]:lTransparent:=.T.\n@0,120 BTNBMP oBTN[ 7] FILE \"BMP\\B_REB_7.BMP\" OF oWNDF NOBORDER ;\n   ACTION DAJ_RABAT()\n   oBTN[ 7]:cToolTip:=Ptxt(\"Udzielenie rabatu za wykonywane us~lugi\")\n   oBTN[ 7]:lTransparent:=.T.\n@0,140 BTNBMP oBTN[ 8] FILE \"BMP\\B_REB_8.BMP\" OF oWNDF NOBORDER ;\n   ACTION COFNIJ_RABAT()\n   oBTN[ 8]:cToolTip:=Ptxt(\"Przywr~ocenie cen pierwotnych\")\n   oBTN[ 8]:lTransparent:=.T.\n@0,160 BTNBMP oBTN[ 9] FILE \"BMP\\ILOSC.BMP\" OF oWNDF NOBORDER ;\n   ACTION ILOSC_BADAN()\n   oBTN[ 9]:cToolTip:=Ptxt(\"Ilo~s~c bada~n\")\n   oBTN[ 9]:lTransparent:=.T.\n@0,180 BTNBMP oBTN[10] FILE \"BMP\\B_REB_9.BMP\" OF oWNDF NOBORDER ;\n   ACTION oWNDF:End()\n   oBTN[10]:cToolTip:=Ptxt(\"Zamkni~ecie bie~z~acego okna\")\n   oBTN[10]:lTransparent:=.T.\n@0,200 BTNBMP oBTN[11] FILE \"BMP\\DRUKKK.BMP\" OF oWNDF NOBORDER ;\n   ACTION REJ_KK(\'\',Str(RR-&gt;RECNO),{RR-&gt;NAZW,RR-&gt;IMIE},xTABBAD)\n   oBTN[11]:cToolTip:=Ptxt(\"Drukuj kod kreskowy dla punktu pobra~n\")\n   oBTN[11]:lTransparent:=.T.\n@0,220 BTNBMP oBTN[12] FILE \"BMP\\DRUKKKM.BMP\" OF oWNDF NOBORDER ;\n   ACTION FF_WYDRUKUJ_KODY(RR-&gt;RECNO,RR-&gt;BARCODE,xTABBAD)\n   oBTN[12]:cToolTip:=Ptxt(\"Drukuj kody kreskowy dla zlecenia\")\n   oBTN[12]:lTransparent:=.T.\nIf .NOT. CZY_MA_PRAWO(17)\n   oBTN[7]:Disable()\n   oBTN[8]:Disable()\n   oBTN[9]:Disable()\nEndIf\nACTIVATE DIALOG oWNDF VALID ZWOLNIJ() ON INIT (ODSWIEZ(),oBRWF:SetSize( 799, 490 ),oBRWF:SetFocus()) CENTERED\nReturn NIL','',0,'','1rnf1jgv',1,0,'',1231,0,0),(43243,9084,3,1231,0,'83.144.114.249',1196891547,1,0,1,1,1,1,'','','Initialisation of table\n\nStatic Function TABBAD_INIT(xRECNO)\nnRABAT:=0\nnRAZEM:=0\nxTABBAD:={{0,0,\'Brak danych\',\'-\',\'-\',\'-\',\'-\',0,0}}\nIf FF-&gt;(DbSeek(xRECNO))\n   xTABBAD:={}\n   Do While FF-&gt;RECNO=xRECNO .AND. .NOT. FF-&gt;(Eof())\n      AADD(xTABBAD,{;\n         FF-&gt;NR_G,;\n         FF-&gt;NR_T,;\n         OemToAnsi(FF-&gt;NAZWA),;\n         Str(FF-&gt;ILOSC*FF-&gt;CENA_S,8,2),;\n         Get_Naz_Pra(FF-&gt;NR_S),;\n         Str(FF-&gt;ILOSC*GET_xTABCENN(FF-&gt;NR_T,4),8,2),;\n         DToC(FF-&gt;A_DATA)+FF-&gt;A_TIME,;\n         5-&gt;PROBOWKA,;\n         FF-&gt;POZYCJA }) // zeby dobrze sortowal w czasie rejestracji\n      nRABAT+=FF-&gt;ILOSC*FF-&gt;CENA_S\n      nRAZEM+=FF-&gt;ILOSC*GET_xTABCENN(FF-&gt;NR_T,4)\n      FF-&gt;(DbSkip(1))\n   EndDo\n   FF-&gt;(DbSeek(xRECNO))\nElse\n   FF-&gt;(DbGoTop())\nEndIf\ncRABAT:=Str(nRABAT,8,2)\ncRAZEM:=Str(nRAZEM,8,2)\n// tutaj posortowac tak jak bedzie na wydruku\nxTABBAD:=ASORT(xTABBAD,,,{ |X,Y| x[9]&lt;y[9] })\nReturn .T.','',0,'','3hu9b9ic',1,0,'',1231,0,0),(43244,9084,3,1231,0,'83.144.114.249',1196891619,1,0,1,1,1,1,'','','Post append:\n\nFunction APPEND_TO_TABLE()\n.......\nTABBAD_INIT(RR-&gt;RECNO)\noBRWF:SetArray( xTABBAD )\nODSWIEZ()\nReturn (NIL)\n\nStatic Function ODSWIEZ()\noBRWF:Refresh(.T.)\noBRWF:SetFocus()\nReturn .T.','',0,'','1y7xbz89',1,0,'',1231,0,0),(43245,9084,3,1231,0,'83.144.114.249',1196891666,1,0,1,1,1,1,'','','Nageswaragunupudi\n\nWhat do you think, should it works?\n\nR.','',0,'','3jaia1dq',1,0,'',1231,0,0),(43246,8961,3,41,0,'200.87.167.162',1196892550,1,0,1,1,1,0,'','','Hello,\n\nhere another improve to admin samples tools original of Otto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, I tryed to use TtxtEdit class but this has some bug to display the code\n\nRegards\n\n[code:2m0595zs]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;InKey&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\nlocal oWnd\nlocal oBrw, oCol\nlocal oRes, cRes\nLOCAL aInhalt &#58;= directory&#40;&quot;*&#46;prg&quot;,&quot;D&quot;&#41; \nLOCAL oFnt\nLOCAL ob0, ob1, ob2, ob3, ob4, ob5, xRes\n\nDEFINE FONT oFnt NAME &quot;ARIAL&quot; SIZE 6 ,15 BOLD\n\nDEFINE WINDOW oWnd TITLE &quot;DemoTool&quot; ;\nFROM 50,50 TO 700,1030 PIXEL\noWnd&#58;SetFont&#40;oFnt&#41;\n\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\noBrw&#58;nTop &#58;= 10\noBrw&#58;nLeft &#58;= 20\noBrw&#58;nBottom &#58;= 600\noBrw&#58;nRight &#58;= 330\n\noBrw&#58;SetArray&#40; ainHalt,  &#46;T&#46; &#41;\noBrw&#58;aCols&#91;1&#93;&#58;cHeader &#58;= \'Source\'\noBrw&#58;aCols&#91;1&#93;&#58;nWidth &#58;= 157\n\noBrw&#58;aCols&#91;2&#93;&#58;cHeader &#58;= \'Size\'\noBrw&#58;aCols&#91;3&#93;&#58;cHeader &#58;= \'Date\'\n\noBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\noBrw&#58;nRowDividerStyle &#58;= 4\n\noBrw&#58;lRecordSelector &#58;= &#46;t&#46;\n\noBrw&#58;bChange &#58;= &#123;|| fmemoread&#40; oBrw, oRes &#41;, xRes &#58;= cRes,;\n                    IF&#40; FILE&#40;substr&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;&#41;-4&#41; &#41; + &quot;&#46;exe&quot; &#41;, ob4&#58;enable&#40;&#41;, ob4&#58;disable&#40;&#41; &#41;,;\n                    IF&#40; FILE&#40;substr&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;&#41;-4&#41; &#41; + &quot;&#46;rc&quot; &#41;, ob5&#58;enable&#40;&#41;, ob5&#58;disable&#40;&#41; &#41; &#125;\n\noBrw&#58;bLDblClick &#58;= &#123;|| compile&#40; oBrw &#41; &#125;\n\noBrw&#58;bKeyDown &#58;= &#123;|nkey| iF&#40; nkey = 13, compile&#40; oBrw &#41;, &#41; &#125;\n\noBrw&#58;lHScroll &#58;= &#46;f&#46;\n\noBrw&#58;CreateFromCode&#40;&#41;\n\n@ 10, 350 GET oRes VAR cRes MEMO OF oWnd SIZE 600, 550 PIXEL ;\nON CHANGE &#40; ob1&#58;enable&#40;&#41;, oBrw&#58;disable&#40;&#41;, ob3&#58;enable&#40;&#41;, ob0&#58;disable&#40;&#41; &#41;\n\n@ 570, 350 BUTTON ob0 PROMPT &quot;&amp;Compile&quot; OF oWnd PIXEL SIZE 80,30;\nACTION compile&#40; oBrw &#41;\n\n@ 570, 435 BUTTON ob1 PROMPT &quot;&amp;Save&quot; OF oWnd PIXEL SIZE 80,30;\nACTION &#40; memowrit&#40; oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;, cRes &#41;, ob1&#58;disable&#40;&#41;, ob3&#58;disable&#40;&#41;, oBrw&#58;Enable&#40;&#41;, ob0&#58;enable&#40;&#41; &#41;\n\n@ 570, 520 BUTTON ob2 PROMPT &quot;Save &amp;As&quot; OF oWnd PIXEL SIZE 80,30;\nACTION &#40; saveas&#40; oBrw, cRes &#41;, ob1&#58;disable&#40;&#41;, ob3&#58;disable&#40;&#41;, oBrw&#58;Enable&#40;&#41;, ob0&#58;enable&#40;&#41; &#41;\n\n@ 570, 605 BUTTON ob3 PROMPT &quot;&amp;Cancelar&quot; OF oWnd PIXEL SIZE 80,30;\nACTION &#40; ob1&#58;disable&#40;&#41;, oBrw&#58;Enable&#40;&#41;, ob3&#58;disable&#40;&#41;, ob0&#58;enable&#40;&#41;, cRes &#58;= xRes, oRes&#58;refresh&#40;&#41; &#41;\n\n@ 570, 690 BUTTON ob4 PROMPT &quot;&amp;Run&quot; OF oWnd PIXEL SIZE 80,30;\nACTION winexec&#40; substr&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;&#41;-4&#41;  &#41; &#41; \n\n@ 570, 775 BUTTON ob5 PROMPT &quot;RC &amp;File&quot; OF oWnd PIXEL SIZE 80,30;\nACTION ShellExecute&#40; oWnd&#58;hWnd, \'Open\', substr&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;&#41;-4&#41; &#41; + &quot;&#46;rc&quot; &#41; \n       \n@ 570, 870 BUTTON &quot;&amp;Exit&quot; OF oWnd PIXEL SIZE 80,30;\nACTION oWnd&#58;end&#40;&#41;\n\nACTIVATE WINDOW oWnd ON INIT &#40; fmemoread&#40;oBrw,oRes&#41;, ob1&#58;disable&#40;&#41;, ob3&#58;disable&#40;&#41;,;\n                               IF&#40; FILE&#40;substr&#40;oBrw&#58;aArrayData&#91;1,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;1,1&#93;&#41;-4&#41; &#41; + &quot;&#46;exe&quot; &#41;, ob4&#58;enable&#40;&#41;, ob4&#58;disable&#40;&#41; &#41;,;\n			       IF&#40; FILE&#40;substr&#40;oBrw&#58;aArrayData&#91;1,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;1,1&#93;&#41;-4&#41; &#41; + &quot;&#46;rc&quot; &#41;, ob5&#58;enable&#40;&#41;, ob5&#58;disable&#40;&#41; &#41; &#41; \nreturn nil\n\n//----------------------------------------------------------------------------//\nfunc fmemoread&#40;oBrw,oRes&#41;\nlocal cFile &#58;= oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;\noRes&#58;cText&#40; MemoRead&#40; cFile &#41; &#41;\nreturn nil\n\n//----------------------------------------------------------------------------//\nfunction compile&#40; oBrw &#41;\n        winexec&#40;&quot;buildx&#46;bat &quot; + substr&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;,1,&#40; len&#40;oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93;&#41;-4&#41; &#41; &#41; \nreturn nil\n\n//----------------------------------------------------------------------------//\nfunction saveas&#40; oBrw, cRes &#41;\nlocal cFileName\n      cFileName &#58;= oBrw&#58;aArrayData&#91;oBrw&#58;nArrayAt,1&#93; + SPACE&#40;10&#41;\n      IF  msgget&#40;&quot;Save as&#46;&#46;&#46;&#46;&quot;,&quot;File Name&quot;, @cFileName &#41;\n          memowrit&#40; cFileName, cRes &#41;\n          oBrw&#58;SetArray&#40; directory&#40;&quot;*&#46;prg&quot;,&quot;D&quot;&#41;,  &#46;T&#46; &#41;	  \n	  oBrw&#58;gotop&#40;&#41;\n	  oBrw&#58;skip&#40; ASCAN&#40; oBrw&#58;aArrayData,&#123;|a| ALLTRIM&#40;a&#91;1&#93;&#41; == ALLTRIM&#40;cFileName&#41; &#125; &#41; - 1 &#41;\n	  oBrw&#58;refresh&#40;&#41;\n   ENDIF\nreturn nil\n[/code:2m0595zs]','',0,'AIA=','2m0595zs',1,0,'',41,0,0),(43247,9087,7,2,0,'87.218.146.107',1196893993,1,0,1,1,1,1,'','','José Luis,\n\n&gt; Va de izquierda a derecha... ¿verdad?\n\nSi, igual que en lenguaje Clipper <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','16i5ma69',1,0,'',2,0,0),(43248,9084,3,868,0,'219.64.121.60',1196895275,1,0,1,1,1,1,'','','Everytime you are appending you are recreating the array.  Better would be to modify the same array whose reference the browse object knows.\n\nOnce you SetArray in the beginning pl dont use it again. SetArray removes all existing columns and creates all columns again without headers.\n\nPlease try this change\n[code:13evlnyg]\nunction APPEND_TO_TABLE&#40;&#41;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nTABBAD_INIT&#40;RR-&gt;RECNO&#41;\n\noBRWF&#58;aArrayData &#58;= xTABBAD // oBRWF&#58;SetArray&#40; xTABBAD &#41;\n\nODSWIEZ&#40;&#41;\nReturn &#40;NIL&#41;\n[/code:13evlnyg]\n\nPl see it fhis works','',0,'AIA=','13evlnyg',1,0,'',868,0,0),(43249,9084,3,1231,0,'83.144.114.249',1196895520,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1sdfhpo1]Pl see it fhis works[/quote:1sdfhpo1]\nYou\'re GREAT\n\nIt works correctly. \n\nVery,very thanks for it.\n\nRobert','',0,'gA==','1sdfhpo1',1,0,'',1231,0,0),(43250,9084,3,868,0,'219.64.121.60',1196895688,1,0,1,1,1,1,'','','Glad it is working.\nNothing great, it is only that I\'ve been using xbrowse for long','',0,'gA==','2u53kk1t',1,0,'',868,0,0),(43251,9084,3,1231,0,'83.144.114.249',1196895981,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:2sqizbou]Glad it is working.\nNothing great, it is only that I\'ve been using xbrowse for long[/quote:2sqizbou]\n\nI use it for week <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nThank you','',0,'gA==','2sqizbou',1,0,'',1231,0,0),(43252,9057,3,2,0,'87.218.146.107',1196897296,1,0,1,1,1,1,'','','A new build that properly parses and uses the font info:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/20814-8340265994.html\">http://www.hotshare.net/file/20814-8340265994.html</a><!-- m -->','',0,'gA==','g5mv9jn8',1,0,'',2,0,0),(43253,9057,3,2,0,'87.218.146.107',1196898557,1,0,1,1,1,1,'','','A new build with TWBrowse, CHECKBOX and dialog styles support:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/20821-47527219d6.html\">http://www.hotshare.net/file/20821-47527219d6.html</a><!-- m -->','',0,'gA==','3lbrdltu',1,0,'',2,0,0),(43254,9057,3,34,0,'68.5.217.82',1196899078,1,0,1,1,1,1,'','Don\'t get it ...','I must be missing something.  I downloaded and ran the latest build, open the RC, but all I see is the text editor ... no dialog like on your screen shots ...\n\nTim','',0,'gA==','3joctqf1',1,0,'',34,0,0),(43255,9090,6,222,0,'201.211.85.243',1196899252,1,0,1,1,1,0,'','Acción con tecla ESCAPE en tGet','Las siguientes instrucciones en los  metodos KeyChar y KeyDown de tGet y tControl(), no sólo  evitan un beep, sino que también impiden la ejecución de cualquier acción al pulsar la tecla ESC.\n\nif nKey == VK_ESCAPE  // avoids a beep!\n   ::oWnd:KeyChar( nKey, nFlags )\n   return 1\nendif  \n\nTuve que hacer override de esos métodos (quitando estas instrucciones) para que un diálogo con un get se cerrara al pulsar un ESC, es decir,\n   @ 0,0 GET oGet VAR cVar OF oDlg ......\n   oGet:bKeyDown:={|nK,nF| if(nK=VK_ESCAPE,oDlg:End(),nil)}\n\nPregunta: ¿Cuáles pueden ser las consecuencias negativas de estos override?\n\nGracias.\nCésar Lozada','',0,'gA==','2eahdv0v',1,0,'',222,0,0),(43256,9089,6,1106,0,'190.64.183.160',1196900691,1,0,1,1,1,0,'','','Very good Otto.\n\nSaludos.\n\nRuben Fernandez','',0,'gA==','1nqju6gp',1,0,'',1106,0,0),(43257,9057,3,239,0,'121.33.139.99',1196901218,1,0,1,1,1,0,'','','Tim,\n  Double click the left treeview  items .\nRegards!\nShuming Wang','',0,'gA==','13601src',1,0,'',239,0,0),(43258,9079,6,21,0,'83.61.248.75',1196903926,1,0,1,1,1,1,'','','Antonio,\n\n&gt;Podrias buscar y reemplazar Str() por Str11() en tus PRGs y que Str11() llame a Str() usando 11 como segundo parámetro.\n\njeje, Me has leido el pensamiento. Es lo que tenia pensado hacer, escribí lo otro para intentar ser mas claro en la solución\n\n&gt;Para comprender mejor lo que ocurre: el contenido numérico de ese campo mide 11 dígitos ? Puedes poner un valor de ejemplo ? gracias\n\nEso es lo raro. El contenido no llega ni por asomo a 11 dígitos. Un ejemplo es con el valor 510515\n\n&gt;Prueba a hacer Len() de ese campo, a ver que valor da\nEl campo es un valor numérico y por tanto no puedo aplicarle la función len directamente.\n\nEl len(str11(Articulo-&gt;Id)) devuelve 11, como era de esperar\nEl len(str(Articulo-&gt;Id)) devuelve 4. Cuatro astericos','',0,'gA==','8375xhpr',1,0,'',21,0,0),(43259,9091,6,53,0,'189.139.11.144',1196914144,1,0,1,1,1,1,'','Variables de usuario en MySql','Amigos del foro:\n\nAlguien que me pueda proporcionar un pequeño ejemplo de comandos SQL para pasar los datos de una tabla a variables de usuario, se que es algo así como esto:\n\nSELECT @Rfc := CLI_RFC  bla bla bla\n\nPero no logro hacerlos funcionar.\n\nSaludos','',0,'gA==','2o4uj4eb',1,0,'',53,0,0),(43260,9087,7,57,0,'88.17.194.100',1196930962,1,0,1,1,1,1,'','','Antonio, Jose Luis\nGracias a ambos. Funciona perfecto.','',0,'gA==','185xs5vi',1,0,'',57,0,0),(43261,9092,3,460,0,'217.37.54.49',1196934388,1,0,1,1,1,0,'','BtnBMP Error','Hi,\n\nI\'m getting the error below at a customers site:\n\nApplication\n===========\n   Path and name: S:\\winiws5\\Allocinv.EXE (32 bits)\n   Size: 2,813,952 bytes\n   Time from start: 0 hours 0 mins 11 secs \n   Error occurred at: 06/12/2007, 09:24:36\n   Error description: Error BASE/1068  Argument error: array access\n   Args:\n     [   1] = N   1007158280\n     [   2] = N   1\n\nStack Calls\n===========\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LOADBITMAPS(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:NEWBAR(0)\n   Called from: COMMON.PRG =&gt; CONFPOPBAR(3228)\n   Called from: POPUP.PRG =&gt; (b)CUST_LIST(292)\n   Called from: DIALOG.PRG =&gt; TDIALOG:INITIATE(682)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(832)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(262)\n   Called from: POPUP.PRG =&gt; CUST_LIST(292)\n   Called from: REPRANGE.PRG =&gt; RANGEPOP(156)\n   Called from: REPRANGE.PRG =&gt; (b)RANGE_SEL(111)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(262)\n   Called from: REPRANGE.PRG =&gt; RANGE_SEL(123)\n   Called from:  =&gt; GETRANGES(276)\n   Called from: ALLOCINV.PRG =&gt; MAIN(85)\n\nThis error occurs when a dialog box is opened for the second time.  Also, we think that this error only occurs when the application is run through a remote desktop connection.\n\nI\'m currently using the may 2007 build of fivewin with commercial xHarbour.\n\nCould anyone have a look at the error and try and point me in the right directions?\n\nMany Thanks\n\nPete','',0,'','17jgmuk9',1,0,'',460,0,0),(43262,9031,3,131,0,'83.53.158.100',1196935361,1,0,1,1,1,0,'','','Is there an english version of xIde ?\nRegards,','',0,'','11aqi5l6',1,0,'',131,0,0),(43263,9093,2,1245,0,'84.18.1.156',1196936175,1,0,1,1,1,0,'','PROBLEMA CON FONT','Hola a todos, soy nuevo, estoy aprendiendo por mis propios medios con manuales, tutoriales, etc, nunca he estudiado nada de informatica. \n\nEmpeze con clipper y ahora estoy comenzando con fivewin.\n\nMi consulta es la siguiente: \n\nTengo problemas al utilizar font, al compilar mi programa me da el siguiente error:\n\nError C2005  Statement not recognized, match failed at: \'FONT\'\n\n(El font que quiero modificar es el de la ventana principal, no el de una caja de dialogo).\n\nUtilizo clipper 5.3b blinker 5.1 y fivewin eval 1.9.2\n\nGracias por vuestras respuestas.\n\nUn saludo.','',0,'','ok0sv1dz',1,0,'',1245,0,0),(43264,9057,3,2,0,'87.218.146.107',1196936578,1,0,1,1,1,1,'','','A new build supporting COMBOBOX control:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/20899-175768582c.html\">http://www.hotshare.net/file/20899-175768582c.html</a><!-- m -->\n\n[url=http&#58;//imageshack&#46;us:12mv3lzh][img:12mv3lzh]http&#58;//img266&#46;imageshack&#46;us/img266/2315/rezp5&#46;png[/img:12mv3lzh][/url:12mv3lzh]','',0,'GA==','12mv3lzh',1,0,'',2,0,0),(43265,9024,6,1168,0,'84.121.94.45',1196936921,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1769ugao]Antonio,\n\nEl método HardCopy() usa la función en C WNDPRINT() en source\\winapi\\wndprint.c. \n\nEn esa función sólo hay que cambiar estas líneas:\n   HDC  hDC      = GetDC( hWnd );\n   ...\n   GetClientRect( hWnd, &amp;rct );\n\npor\n\n   HDC  hDC      = GetWindowDC( hWnd );\n   ...\n   GetWindowRect( hWnd, &amp;rct );  \n\npara que imprima la ventana completa, incluida su título.[/quote:1769ugao]\n\nMuchas gracias Antonio... me faltaba GetWindowDC <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nLo probare','',0,'gA==','1769ugao',1,0,'',1168,0,0),(43266,8938,6,1168,0,'84.121.94.45',1196937135,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2ef9fng6]Antonio,\n\nSi tiene sentido lo que comentas, lo que ocurre es que no es algo simple de implementar. \n\nY además puede enlentecer el movimiento del ratón, pues constantemente habría que estar comprobando encima de que control está y en que estado está ese control[/quote:2ef9fng6]\n\nHe conseguido ponerle ToolTip a los controles disabled  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \nHe necesitado: ChildWindowFromPoint(), oWndFromHwnd(), oControl:lActive... ha sido mas bien facil...\nComo no me iba con los tooltip de Window.prg he utilizado Ajtip... y la cosa va de muerte.\n\nSaludos','',0,'gA==','2ef9fng6',1,0,'',1168,0,0),(43267,9031,3,1168,0,'84.121.94.45',1196937960,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:3iwo1ank]Ad Editor)\nWhat I would like is a possibility to color parts of the code.\nExample: You create a new function, then you mark the whole function with red what means you have to double check this part of your code – other parts you could mark green meaning you have checked the source or use colors for other tasks.\nSometimes I use MSWord for that.\nRegards,\nOtto[/quote:3iwo1ank]\n\nOtto,\n\nYo nunca he usado un Ide y no lo quiero... al principio de empezar a programar en Fivewin lo primero que hice fue crearme un conjunto de comandos propios que van colocando automaticamente los controles guardando automaticamente las debidas distancias, margenes, anchuras... Estoy seguro que una forma asi de trabajar es mas rapida que cualquier otra cosa.... es decir cree comandos como estos\n\n#Command SET SEPARASAY TO &lt;n&gt; SeparaSays(&lt;n&gt;)\n@ PWSAY &lt;cSay&gt; ;\n   [MAXWORD] ;\n   [SEPARARASAY];\n   [ADJUSTLEFT] =&gt; ........\n@ PWGET &lt;oGet&gt;....\n\nCon estos comandos, con una clase contenedora (como la clase TDialog) pero que contiene el dialogo y otros comandos como los de antes NO necesito Ide ni lo quiero y ademas, perdonad por la soberbia, apuesto con cualquiera a que diseño un formulario yo antes que cualquiera con su Ide. A mi parecer cuando surgieron los entornos GUI todo el mundo dio la espanta a entornos Ide sin plantearse si era lo necesario, sino que se dio por hecho que un entorno GUI precisa un Ide y a mi parecer eso no es necesariamente verdad....\nCiertamente que para el que no tiene ni idea necesita un GUI, pero señores es que nosotros somos profesionales y nos dedicamos a esto... es lo mismito que pasa con los archivos .mak... la gente los ve terribles y es la manera mas rapida de montar una aplicacion.... \nAsi es que mi postura es que Fw no necesita Ide... pero ya se que tener uno, aunque sea de 3ªs partes es bueno para Fw \n\nSaludos','',0,'gA==','3iwo1ank',1,0,'',1168,0,0),(43268,9094,6,542,0,'81.37.170.27',1196938406,1,0,1,1,1,0,'','Error en Toleauto','Hola amigos:\n\nHe pasadfo fuentes de 16 a 32 bits y en uno de ellos creaba un archivo WORD y luego lo abria en word y en 16 bit funcionaba bien.\n\nAhora me da el siguente error :\n\nApplication\n===========\n   Path and name: C:\\programa\\nyswin\\nyswin.exe (32 bits)\n   Size: 2,343,936 bytes\n   Time from start: 0 hours 0 mins 16 secs \n   Error occurred at: 06/12/2007, 11:30:29\n   Error description: Error Word.Application:ACTIVEDOCUMENT/16389  E_FAIL: END\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:END(0)\n   Called from: gestimpr.prg =&gt; CERTRETE(3766)\n   Called from: nyswin.prg =&gt; (b)PREPARAMENU(299)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: nyswin.prg =&gt; MAIN(68)\n\nla fuente es :\n\n  oWord:=TOleAuto():New( \"Word.Application\" )\n  cPlantilla := (fic1)\n  oDoc :=oWord:Documents:Open(cPlantilla)    // abre el doc modelo\n  cViejo := \"[EJER1]\"\n  cCampo := (ejer1)\n  reemplace2 ()\n\n.....\n\n  cViejo := \"[NOMBRE3]\"\n  cCampo := (nombre3)\n  reemplace2 ()\n  oDoc := oWord:Get(\"ActiveDocument\")  // object (documento activo)\n  oDoc:Invoke( \"SaveAs\", cFich )       // graba fichero\n  oDoc:Invoke(\'Close\',0)               // cierra fichero\n  oDoc:End(cFich)\n  oWord:End()\n  OleUninitialize()\n  CLOS DATA\n  oWord:=TOleAuto():New( \"Word.Application\" )\n  oWord:Documents:Open(fich)\n  oWord:Visible := .T.\n  oWord:Set( \"WindowState\", 1 )\n  oWord:End()\n  OleUninitialize()\n\ny la linea 3766 es :\n\noDoc:End()\n\nAlguien me podria ayudar.\n\nGracias','',0,'','8801iylw',1,0,'',542,0,0),(43269,9057,3,217,0,'200.159.120.34',1196939482,1,0,1,1,1,0,'','','Antonio,\n\nI have problem with accented Latin/Brazilian characters. The accented char is wrong displayed in preview (dialogs).\n\n[url=http&#58;//img150&#46;imageshack&#46;us/my&#46;php?image=accentgj2&#46;png:1w4z67f8][img=http://img150.imageshack.us/img150/678/accentgj2.th.png][/url:1w4z67f8]\n\nDialog RC Code:\n[code:1w4z67f8]\nSITUACAO DIALOG 117, 135, 296, 159\nSTYLE 0x4L | WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX\nCAPTION &quot; Situações de Clientes&quot;\nFONT 6, &quot;MS Sans Serif&quot;\n&#123;\n GROUPBOX &quot;&quot;, 30, 5, 4, 273, 126, BS_GROUPBOX\n EDITTEXT 101, 15, 23, 29, 12, ES_CENTER | ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP\n EDITTEXT 102, 51, 23, 217, 12, ES_AUTOHSCROLL | ES_WANTRETURN | WS_BORDER | WS_TABSTOP\n EDITTEXT 103, 15, 52, 252, 51, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP\n CHECKBOX &quot; &amp;Bloquear novos lançamentos&quot;, 104, 16, 109, 167, 12, BS_AUTOCHECKBOX | WS_TABSTOP\n PUSHBUTTON &quot;&amp;Salvar&quot;, 9001, 210, 109, 58, 15\n LTEXT &quot;Código&quot;, -1, 15, 13, 30, 8\n LTEXT &quot;Descrição&quot;, -102, 51, 13, 67, 8\n LTEXT &quot;Mensagem para o usuário&quot;, -1, 15, 42, 109, 8\n CONTROL &quot;TBtnBmp&quot;, 9002, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 43, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9003, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 67, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9004, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 98, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9005, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 122, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9006, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 153, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9007, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 177, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9008, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 201, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9009, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 225, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 9090, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE | WS_TABSTOP, 256, 134, 22, 20\n CONTROL &quot;TBtnBmp&quot;, 7000, &quot;TBtnBmp&quot;, WS_CHILD | WS_VISIBLE, 279, 8, 16, 15\n&#125;\n[/code:1w4z67f8]\n\nIf we double click in treeview item \"icon\", \"bitmap\", \"dialog\", etc an error occur.\n\nWhen I open alask.rc (dialog) the message is displayed:\nDialog style not found: WS_VISIBLE\nIn combos.rc: \nDialog style not found: 4\n\nDialogs style that show this message:\nWS_THICKFRAME\nWS_OVERLAPPED\n\nEditText with style NOT WS_TABSTOP\n\nRegards,\nMaurilio','',0,'EIA=','1w4z67f8',1,0,'',217,0,0),(43270,9095,6,542,0,'81.37.170.27',1196940106,1,0,1,1,1,0,'','Color Menu y Barra de botones  2007','Hola :\n\nMe podrias indicar si es posible que en vez de azul se pueda poner el color de los menus y las barras de botones y mensajes en verde u otro color.\n\nUn saludo\n\nCarlos','',0,'EIA=','1t3iyc76',1,0,'',542,0,0),(43271,9092,3,2,0,'87.218.146.107',1196940284,1,0,1,1,1,1,'','','Peter,\n\n&gt;\nAlso, we think that this error only occurs when the application is run through a remote desktop connection. \n&gt;\n\nIts a quite strange error, because the C functions used in Method LoadBitmaps() always return an array, and in your error that array, somehow, has turned into a number (memory corruption?)\n\nAnyhow, what you can do is to protect that method to avoid the error, this way:\n[code:3pya8761]\n   if ! Empty&#40; cResName1 &#41;\n      aBmpPal = PalBmpLoad&#40; cResName1 &#41;\n      if ValType&#40; aBmpPal &#41; == &quot;A&quot;\n         &#58;&#58;hBitmap1  = aBmpPal&#91; 1 &#93;\n         &#58;&#58;hPalette1 = aBmpPal&#91; 2 &#93;\n      endif\n   endif\n[/code:3pya8761]\nand do that for each use of aBmpPal in the method','',0,'AIA=','3pya8761',1,0,'',2,0,0),(43272,9093,2,2,0,'87.218.146.107',1196940586,1,0,1,1,1,1,'','','Bienvenido! y ánimo que dentro de poco dominaras FiveWin perfectamente <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nMuéstranos el código fuente que tienes en la línea del PRG en donde te da el error: Error C2005 Statement not recognized, match failed at: \'FONT\' \n\nDebes tener un error de sintaxis. Al mostrarnos la línea podremos ayudarte a localizar el error, gracias!','',0,'AIA=','6703mk40',1,0,'',2,0,0),(43273,9031,3,51,0,'80.122.88.242',1196941281,1,0,1,1,1,0,'','','Hello Antonio, thank you for your post.\nI hope I understood all well. I know some Italian and I used \nBabel Fish.\nI think I do the same thing as you but with multiEdit. \nI have templates for diverse task &lt;ALT&gt; F9 and then I have a \ndialog, … .\nBut the IDE is not so much a necessity for us who know FW since \nyears but for new users. If there is no drag &amp; drop around then\na language it is out of fashion for the younger generation! \nIt is a matter of fact that we need a broad user basis. Otherwise \na language has no bright future.\nIf you take VB.NET’s IDE  then I have to say compared to VB6 it\nis very difficult for a beginner.  VB6 is a discharged model a newcomer\nwon’t select. \n\nSo  with an easy to handle IDE Fivewin could be their choice  and\ntake the place CLIPPER had in the market.\n\nI my opinion this must be our main goal -I mean beside making our own programs the best.\nRegards,\nOtto','',0,'AIA=','2t6lit3o',1,0,'',51,0,0),(43274,9057,3,2,0,'87.218.146.107',1196943136,1,0,1,1,1,1,'','','Maurilio,\n\n&gt; I have problem with accented Latin/Brazilian characters. The accented char is wrong displayed in preview (dialogs). \n\nWhen we build the resource in memory we use Windows MultiByteToWideChar() to generate an unicode string. The source code is in source\\winapi\\ctrl2chr. We may need to find the right parameters for accented chars.\n\nWe have fixed the other bugs that you have reported, except the NOT ...\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/20940-1482213c36.html\">http://www.hotshare.net/file/20940-1482213c36.html</a><!-- m -->','',0,'AIA=','2r0kizen',1,0,'',2,0,0),(43275,9096,6,1236,0,'201.86.90.60',1196946392,1,0,1,1,1,0,'','Como saber quais portas COM estão instaladas no sistema?','Amigos,\n\nComo saber quais portas COM estão instaladas no sistema:\n\nex:\nCOM1\nCOM2\nCOM3\n\n\nGrato','',0,'AIA=','116t7onf',1,0,'',1236,0,0),(43276,9097,6,1238,0,'217.127.123.34',1196946862,1,0,1,1,1,0,'','Problemas de principiante','No se compilar y enlazar varios .prg,s utilizando BUILDH.\n\n¿Debo utilizar un fichero .rmk?\n\n¿Como sería ese fichero?\n\nOtro problema. Al recuperar los datos de mi base de datos con GET no me salen ciertos caracteres (ñ, º, ª). He colocado REQUEST HB_LANG_ES y no lo he logrado.\n\nGracias y un saludo. Fernando.','',0,'AIA=','gwrigv9b',1,0,'',1238,0,0),(43277,9098,6,1104,0,'200.115.249.127',1196947299,1,0,1,1,1,0,'','Duda con Prev32.dll','Hola a todos,\nTengo una preguntita acerca del Preview.\nHay alguna forma de que cuando imprimo un reporte aparezca el preview con el zoom activado?\nSiempre debo darle doble click para activar el zoom y quisiera que por default este ya activo.\nDesde ya muchas gracias\nSaludos, Esteban.','',0,'AIA=','3dqxaopz',1,0,'',1104,0,0),(43278,9057,3,35,0,'167.7.140.254',1196947591,1,0,1,1,1,0,'','','Antonio\n\nGet a \'style not found WS_TABSTOP\' .. here is the .rc\n\nRick Lipkin\n\n\nDLG_CALENDAR DIALOG 9, 7, 444, 283\nSTYLE DS_MODALFRAME | WS_CHILD\nFONT 8, \"MS Sans Serif\"\n{\n DEFPUSHBUTTON \"&amp;Quit\", 1, 399, 212, 30, 21\n EDITTEXT 1001, 56, 40, 82, 12, ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n CONTROL \"Sun\", 1005, \"EDIT\", ES_CENTER | ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER, 10, 62, 25, 14\n CONTROL \"Mon\", 1004, \"EDIT\", ES_CENTER | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 40, 62, 25, 14\n CONTROL \"Tue\", 1003, \"EDIT\", ES_CENTER | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 69, 62, 25, 14\n CONTROL \"Wed\", 2155, \"EDIT\", ES_CENTER | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 100, 62, 25, 14\n CONTROL \"Thu\", 1006, \"EDIT\", ES_CENTER | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 130, 62, 25, 14\n CONTROL \"Fri\", 1007, \"EDIT\", ES_CENTER | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 160, 62, 25, 14\n CONTROL \"Sat\", 1008, \"EDIT\", ES_CENTER | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 190, 62, 25, 14\n PUSHBUTTON \"31\", 1009, 10, 82, 25, 21\n PUSHBUTTON \"2\", 1010, 40, 82, 25, 21\n PUSHBUTTON \"3\", 1011, 69, 82, 25, 21\n PUSHBUTTON \"4\", 1012, 100, 82, 25, 21\n PUSHBUTTON \"5\", 1013, 130, 82, 25, 21\n PUSHBUTTON \"6\", 1014, 160, 82, 25, 21\n PUSHBUTTON \"7\", 1015, 190, 82, 25, 21\n PUSHBUTTON \"31\", 1016, 10, 108, 25, 21\n PUSHBUTTON \"2\", 1017, 40, 108, 25, 21\n PUSHBUTTON \"3\", 1018, 69, 108, 25, 21\n PUSHBUTTON \"4\", 1019, 100, 108, 25, 21\n PUSHBUTTON \"5\", 1020, 130, 108, 25, 21\n PUSHBUTTON \"6\", 1021, 160, 108, 25, 21\n PUSHBUTTON \"7\", 1022, 190, 108, 25, 21\n PUSHBUTTON \"31\", 1023, 10, 134, 25, 21\n PUSHBUTTON \"2\", 1024, 40, 134, 25, 21\n PUSHBUTTON \"3\", 1025, 69, 134, 25, 21\n PUSHBUTTON \"4\", 1026, 100, 134, 25, 21\n PUSHBUTTON \"5\", 1027, 130, 134, 25, 21\n PUSHBUTTON \"6\", 1028, 160, 134, 25, 21\n PUSHBUTTON \"7\", 1029, 190, 134, 25, 21\n PUSHBUTTON \"31\", 1030, 10, 160, 25, 21\n PUSHBUTTON \"2\", 1031, 40, 160, 25, 21\n PUSHBUTTON \"3\", 1032, 69, 160, 25, 21\n PUSHBUTTON \"4\", 1033, 100, 160, 25, 21\n PUSHBUTTON \"5\", 1034, 130, 160, 25, 21\n PUSHBUTTON \"6\", 1035, 160, 160, 25, 21\n PUSHBUTTON \"7\", 1036, 190, 160, 25, 21\n PUSHBUTTON \"31\", 1037, 10, 186, 25, 21\n PUSHBUTTON \"2\", 1038, 40, 186, 25, 21\n PUSHBUTTON \"3\", 1039, 69, 186, 25, 21\n PUSHBUTTON \"4\", 1040, 100, 186, 25, 21\n PUSHBUTTON \"5\", 1041, 130, 186, 25, 21\n PUSHBUTTON \"6\", 1042, 160, 186, 25, 21\n PUSHBUTTON \"7\", 1043, 190, 186, 25, 21\n PUSHBUTTON \"31\", 1044, 10, 212, 25, 21\n PUSHBUTTON \"2\", 1045, 40, 212, 25, 21\n PUSHBUTTON \"3\", 1046, 69, 212, 25, 21\n PUSHBUTTON \"4\", 1047, 100, 212, 25, 21\n PUSHBUTTON \"5\", 1048, 130, 212, 25, 21\n PUSHBUTTON \"6\", 1049, 160, 212, 25, 21\n PUSHBUTTON \"7\", 1050, 190, 212, 25, 21\n PUSHBUTTON \"-Y\", 1054, 417, 12, 14, 9\n PUSHBUTTON \"-M\", 1053, 397, 12, 14, 9\n PUSHBUTTON \"+M\", 1051, 397, 24, 14, 9\n PUSHBUTTON \"+Y\", 1052, 417, 24, 14, 9\n PUSHBUTTON \"&amp;Delete\", 1061, 399, 134, 30, 21\n PUSHBUTTON \"&amp;Locate\", 1062, 399, 82, 30, 21\n PUSHBUTTON \"&amp;Print\", 1057, 399, 185, 30, 21\n PUSHBUTTON \"&amp;ErrChk\", 1059, 399, 160, 30, 21\n PUSHBUTTON \"&amp;Smry\", 1060, 399, 108, 30, 21\n EDITTEXT 1002, 56, 10, 82, 12, ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n EDITTEXT 1055, 141, 10, 75, 12, ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n EDITTEXT 1056, 56, 25, 82, 12, ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n EDITTEXT 1058, 141, 40, 75, 12, ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n CONTROL \"Name\", 1063, \"EDIT\", ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 10, 10, 43, 12\n CONTROL \"Status\", 1064, \"EDIT\", ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 10, 25, 43, 12\n CONTROL \"SS Number\", 1065, \"EDIT\", ES_LEFT | ES_READONLY | WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER, 141, 25, 75, 12\n CONTROL \"Mnth - Yr\", 1066, \"EDIT\", ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER, 10, 40, 43, 12\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 37, 62, 1, 175\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 67, 62, 1, 175\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 96, 62, 1, 175\n CONTROL \"\", -1, \"static\", SS_WHITERECT | WS_CHILD | WS_VISIBLE, 127, 62, 1, 175\n CONTROL \"\", -1, \"static\", SS_WHITERECT | WS_CHILD | WS_VISIBLE, 157, 62, 1, 175\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 187, 62, 1, 175\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 217, 6, 1, 231\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 8, 6, 1, 231\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 9, 236, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 9, 59, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 9, 78, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 8, 6, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 10, 105, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 9, 131, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 8, 157, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 8, 183, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 8, 209, 208, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 434, 7, 1, 231\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 391, 7, 1, 230\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 392, 106, 41, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 392, 131, 41, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 392, 183, 41, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 392, 209, 41, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 218, 236, 216, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 217, 6, 217, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 392, 157, 42, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 391, 79, 42, 1\n CONTROL \"\", -1, \"static\", SS_WHITEFRAME | WS_CHILD | WS_VISIBLE, 391, 39, 43, 1\n}','',0,'AIA=','3342sabm',1,0,'',35,0,0),(43279,9099,6,106,0,'85.34.123.173',1196950512,1,0,1,1,1,1,'','Insertar un registro en mitad de la factura...','Una cosa que siempre me han pedido mis clientes y por cuestiones de tiempo nunca lo hice, pero en estos dias me puse a resolver estos problemas pequeños.\nCuando hay un documento/factura con muchas lineas, y el cliente se \"olvida\" de escribir una linea en determinado lugar, luego quiere la posibilidad de insertar una linea a la mitad del documento, lo que hice fue dar la posibilidad de cambiar las lineas que estan en el documento hacia arriba y hacia abajo y que el puntero del browse se quede en el mismo lugar, seguramente existe una manera mejor, yo lo hice asi, supongo que alguien lo podrá \"normalizar\", espero que a alguien le sirva.\n\n(Considerando que no tengo numeradas las lineas de la factura, sino, sería todo mas facil, bastaría un indice y cambiar los numeros de linea y listo el pollo como dijo alguien...)\n\n\n[code:33wmczdo]\n***************\nSTATIC FUNCTION SpostaRiga&#40; nOp, oLbxMov &#41;\n***************\nLOCAL nRec &#58;= tmpcor-&gt;&#40; recno&#40;&#41; &#41;, I, XX\nLOCAL aTmpCor &#58;= &#123;&#125;, aTmpCor2 &#58;= &#123;&#125;\nLOCAL nAt \n\n  IF nOp = 1 // SU\n    IF nRec = 1\n      MsgBeep&#40;&#41;\n      oLbxMov&#58;setFocus&#40;&#41;\n      RETURN NIL\n    ENDIF\n  ELSEIF nOp = 2 // GIU\n    IF nRec = tmpcor-&gt;&#40; RECCOUNT&#40;&#41; &#41;  \n      MsgBeep&#40;&#41;\n      oLbxMov&#58;setFocus&#40;&#41;\n      RETURN NIL\n    ENDIF\n  ENDIF\n\n  CursorWait&#40;&#41;\n  nAt &#58;= oLbxMov&#58;nRowPos\n\n  // CARICO TUTTI I DATI IN UN ARRAY\n  tmpcor-&gt;&#40; DBEVAL&#40; &#123;|| tmpcor-&gt;&#40; aTuttoIlRecord&#40; @aTmpCor &#41; &#41;  &#125; &#41; &#41;\n\n  // cancello dati\n  tmpcor-&gt;&#40; FLOCK&#40;&#41; &#41;\n  tmpcor-&gt;&#40; dbZap&#40;&#41; &#41;\n\n\n  // ordino i dati\n  IF nOp = 1 // SU\n\n    FOR i &#58;= 1 TO nRec - 2 // dove si trova la riga da spostare\n      AADD&#40; aTmpcor2, aTmpCor&#91;i&#93; &#41;\n    NEXT\n\n    AADD&#40; aTmpCor2, aTmpCor&#91;nRec&#93; &#41;\n    AADD&#40; aTmpCor2, aTmpCor&#91;nRec-1&#93; &#41;\n\n    FOR i &#58;= nRec + 1 TO LEN&#40; aTmpCor &#41;\n      AADD&#40; aTmpcor2, aTmpCor&#91;i&#93; &#41;\n    NEXT\n\n  ELSEIF nOp = 2 // GIU\n\n    FOR i &#58;= 1 TO nRec - 1 // dove si trova la riga da spostare\n      AADD&#40; aTmpcor2, aTmpCor&#91;i&#93; &#41;\n    NEXT\n\n    AADD&#40; aTmpCor2, aTmpCor&#91;nRec+1&#93; &#41;\n    AADD&#40; aTmpCor2, aTmpCor&#91;nRec&#93; &#41;\n\n    FOR i &#58;= nRec + 2 TO LEN&#40; aTmpCor &#41;\n      AADD&#40; aTmpcor2, aTmpCor&#91;i&#93; &#41;\n    NEXT\n\n  ENDIF\n\n\n  // inserisco dati\n  FOR i &#58;= 1 TO LEN&#40; aTmpCor2 &#41;\n    tmpcor-&gt;&#40; add_rec&#40;&#41; &#41;\n    FOR xx=1 TO LEN&#40; aTmpCor2&#91;i&#93; &#41;\n      tmpcor-&gt;&#40; fieldput&#40; xx, aTmpcor2&#91;i,xx&#93; &#41; &#41;\n    NEXT\n  NEXT\n\n  tmpcor-&gt;&#40; dbUnLock&#40;&#41; &#41;\n  tmpcor-&gt;&#40; dbGoTo&#40; nRec + IIF&#40; nOp=1, -1, 1 &#41; &#41; &#41;\n\n  IF nOp = 1\n    IF nRec &lt;= nAt\n      oLbxMov&#58;GoUp&#40;&#41;\n    ENDIF\n    IF nRec = 2\n      oLbxMov&#58;BugUp&#40;&#41;\n    ENDIF\n  ELSEIF nOp = 2\n    IF nRec &lt;= nAt\n      //oLbxMov&#58;GoDown&#40;&#41;\n    ENDIF\n  ENDIF\n\n\n  oLbxMov&#58;setFocus&#40;&#41;\n  oLbxMov&#58;refresh&#40;&#46;T&#46;&#41;\n  CursorArrow&#40;&#41;\n\nRETURN NIL\n*\n** eof SpostaRiga\n\n***************\nSTATIC FUNCTION aTuttoIlRecord&#40; aTmpCor &#41;\n***************\nLOCAL aRecord &#58;= &#123;&#125;, I\nLOCAL cAlias &#58;= ALIAS&#40; SELECT&#40;&#41; &#41;\nLOCAL nRC \n\n  nRc &#58;= &#40;cAlias&#41;-&gt;&#40; FCOUNT&#40;&#41; &#41;\n\n  FOR i &#58;= 1 TO nRC\n    AADD&#40; aRecord, &#40;cAlias&#41;-&gt;&#40; fieldGet&#40;i&#41; &#41; &#41;\n  NEXT\n\n  AADD&#40; aTmpCor, aRecord &#41;\n\nRETURN aRecord\n*\n** eof aTuttoIlRecord\n[/code:33wmczdo]\n\nSaludos','',0,'AIA=','33wmczdo',1,0,'',106,0,0),(43280,9092,3,460,0,'217.37.54.49',1196951354,1,0,1,1,1,0,'','','Thanks Antonio,\n\nThat has prevented the error message.  I have now noticed that it is always the same bmp that is missing (which is what i\'m assuming is causing the error)  Could there be a problem with the resource file? - the bitmap used is contained in a resource file.\n\nAlso, what do we do from now on?  Will i have to make the change you mention to all future versions of fivewin or will this be incorporated into future releases?\n\nAs i\'ve found what part of the code is causing the error, is there anything i can do to give you any more info on why this is occurring?  The code that uses the bitmap is:\n\nDEFINE BUTTON OF oBar RESOURCE \"TOP\" NOBORDER GROUP ACTION (CursorWait(), oBrw:GoTop(), oBrw:SetFocus(), CursorArrow()) TOOLTIP \"Top\"\n\nThanks for your help\n\nPete','',0,'AIA=','syksy6he',1,0,'',460,0,0),(43281,5629,3,51,0,'80.122.88.242',1196954887,1,0,1,1,1,0,'','','Hello Antonio,\nI tried:\n ON INIT (oRadMenu:aItems[ 1 ]:SetText( \"Hello\" ), oRadMenu:aItems[ 1 ]:nLeft = 25)\nBut the position of aItems[1] does not change.\nHow do I use nLeft?\nThanks in advance\nOtto\n\n\n\n// Radio Buttons management sample\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n   local oDlg, oRadMenu, oBrush\n   local nOption := 2\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg RESOURCE \"Radios\"\n\n   REDEFINE RADIO oRadMenu VAR nOption ID 110, 120, 130, 140, 150 OF oDlg ;\n      ON CHANGE MsgInfo( \"select\" ) // Beep()\n\n   REDEFINE BUTTON ID 100 OF oDlg ACTION oRadMenu:GoNext() ;\n      WHEN nOption == 3\n\n   REDEFINE BUTTON ID 102 OF oDlg ACTION oRadMenu:GoPrev()\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT (oRadMenu:aItems[ 1 ]:SetText( \"Hello\" ), oRadMenu:aItems[ 1 ]:nLeft = 25)\n\n   SET _3DLOOK OFF\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nprocedure AppSys  // XBase++ requirement\n\nreturn','',0,'','1ipbr2bl',1,0,'',51,0,0),(43282,9097,6,92,0,'81.44.84.100',1196956293,1,0,1,1,1,0,'','Re: Problemas de principiante','[quote=&quot;fergonm&quot;:h75s3951]No se compilar y enlazar varios .prg,s utilizando BUILDH.\n\n¿Debo utilizar un fichero .rmk?\n\n¿Como sería ese fichero?\n\nOtro problema. Al recuperar los datos de mi base de datos con GET no me salen ciertos caracteres (ñ, º, ª). He colocado REQUEST HB_LANG_ES y no lo he logrado.\n\nGracias y un saludo. Fernando.[/quote:h75s3951]\n\nPon tu mail y te envío como lo hago yo.\n\nSaludos\nCarlos G.','',0,'gA==','h75s3951',1,0,'',92,0,0),(43283,9067,3,162,0,'62.47.184.59',1196956382,1,0,1,1,1,0,'','','nice - that\'s it!\n\nBut I noticed that there seems to be a little painting problem with bars without themes. Right of the bitmaps there is a darker grey...\n\nI send the image to your per mail\n\nRegards,\nDietmar','',0,'gA==','3qs2aeej',1,0,'',162,0,0),(43284,9057,3,34,0,'68.5.217.82',1196956467,1,0,1,1,1,1,'','Style not found','My .rc file was originally created in Resource, then it received some modification in Pelles, but now I mostly do alignments, etc. by hand.\n\nWhen trying to look at it with the test rc.exe, it returns the following error when trying to open the dialogs:\n\nStyle not found: WS_VISIBLE\nStyle not found 0x00a00000\n\nIs there a list of styles somewhere where I can see these explained.  It may well be that I don\'t need some of the styles that are put into these dialogs and cleaning them up would be nice.  I use the xHarbour.com xBuild and native compiler ( Microsoft compatible ).  I\'ve also noticed many of the samples posted don\'t have the  same format for controls.  All of my control lines start with the word CONTROL, ie:\n\n  CONTROL \"&amp;Reoccuring\", 1064, \"Button\", WS_TABSTOP, 538, 148, 93, 12\n  CONTROL \"\", 1065, \"Edit\", WS_BORDER|WS_TABSTOP, 296, 24, 60, 10\n\nIs there an article somewhere on how RC files need to be written for xHarbour ( Microsoft compatible ).  Perhaps an MSDN reference ?  \n\nThanks.','',0,'gA==','12clk789',1,0,'',34,0,0),(43285,9100,3,34,0,'68.5.217.82',1196956644,1,0,1,1,1,1,'','XML - Current thinking','In the past there have been some articles on using XML with FWH / xHarbour.  I now have to include this capability in my program.  I must make calls to a DLL in XML format, and the data will be returned in the same manner.\n\nWhat is the current methodology used by FWH programmers for working with XML ?\n\nYou input or links to articles would be appreciated.\n\nTim <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2grjdoby',1,0,'',34,0,0),(43286,9101,6,1104,0,'200.115.249.127',1196957318,1,0,1,1,1,0,'','Ayuda con reporte','Tengo el siguiente problema:\nEn un reporte donde en una columna listo valores numéricos necesito que estos valores se vean alineados a la derecha, pero al mismo tiempo necesito que el título de la columna esté centralizado.\nHay alguna forma de lograr eso?\nDesde ya muchas gracias\nSaludos, Esteban.','',0,'gA==','1s4vu0ky',1,0,'',1104,0,0),(43287,9102,7,18,0,'200.67.188.236',1196957813,1,0,1,1,1,1,'','Alguien ha usado FWPPC y MySql ?','Tengo una propuesta de desarrollo con ese motor.\n\nSaludos','',0,'gA==','3r7vw2mv',1,0,'',18,0,0),(43288,9087,7,123,0,'83.180.165.19',1196958370,1,0,1,1,1,1,'','','Antonio,\n\nA ver que te parece ésta.  Va de derecha a izquierda  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> .\n\n[code:1nne5j7h]FUNCTION MAIN&#40;&#41;\n\nMsgInfo&#40; cQuitaCeros&#40;&quot;29384&#46;234200000&quot;&#41;&#41;\n\nRETURN NIL\n\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n\nHB_FUNC&#40; CQUITACEROS &#41;\n&#123;\n\n   char * s = hb_parc&#40;1&#41;;\n   char * p = s ;\n   p       += hb_parclen&#40;1&#41; -1;\n\n   while &#40; *p == \'0\' || *p == \'&#46;\'&#41;\n   &#123;\n      if&#40; *p == \'&#46;\'&#41;\n      &#123;\n         p--;\n         break;\n      &#125;\n      p-- ;\n   &#125;\n\n   hb_retclen&#40;s, p - s +1 &#41;;\n\n&#125;\n\n#pragma ENDDUMP\n[/code:1nne5j7h]','',0,'AIA=','1nne5j7h',1,0,'',123,0,0),(43289,9057,3,2,0,'87.218.146.107',1196959384,1,0,1,1,1,1,'','','Rick,\n\nA new build that properly manages your RC file:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21003-2152674de7.html\">http://www.hotshare.net/file/21003-2152674de7.html</a><!-- m -->\n\nmany thanks for your feedback! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:2n9hw42h][img:2n9hw42h]http&#58;//img132&#46;imageshack&#46;us/img132/5816/reqr1&#46;png[/img:2n9hw42h][/url:2n9hw42h]','',0,'GA==','2n9hw42h',1,0,'',2,0,0),(43290,9057,3,2,0,'87.218.146.107',1196960061,1,0,1,1,1,1,'','','Tim,\n\n&gt; Style not found: WS_VISIBLE \n&gt; Style not found 0x00a00000 \n\nPlease post here the text lines where they are used, thanks\n\n&gt; Is there a list of styles somewhere where I can see these explained\n\nThere are two ways to write a control:\n\n1) Using a generic \"CONTROL\" sentence:\n\nCONTROL &lt;prompt&gt;, &lt;nId&gt;, &lt;ClassName&gt;, &lt;Style&gt;, &lt;Coordinates and dimensions&gt;\n\n2) Using some standard defined controls, i.e.:\n\n   PUSHBUTTON \"&amp;Done\", IDOK, 137, 76, 31, 14, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n\nUsually this second way uses this syntax (or quite similar):\n\n&lt;RESERVED_CLASSNAME&gt; &lt;Prompt&gt;, &lt;nId&gt;, &lt;Coordinates and dimensions&gt;, &lt;Style&gt;\n\nBoth seem to be valid','',0,'GA==','2qg6qg9k',1,0,'',2,0,0),(43291,9100,3,51,0,'80.122.88.242',1196960756,1,0,1,1,1,0,'','','Hello Tim,\n\n<!-- m --><a class=\"postlink\" href=\"http://reportdesigner.info/\">http://reportdesigner.info/</a><!-- m -->\nFreeware\n \nXMLRead - a class for reading XML files  \n 1.0.2 \n  554 KB \n Regards,\nOtto','',0,'GA==','25qmwyro',1,0,'',51,0,0),(43292,9092,3,2,0,'87.218.146.107',1196960771,1,0,1,1,1,1,'','','Pete,\n\nPlease email me the bitmap file\n\nWhat FWH version are you using ?\n\nWe can include such source code change in FWH source code, though we would like to understand and locate where the error is coming from','',0,'GA==','k6it6c70',1,0,'',2,0,0),(43293,9087,7,2,0,'87.218.146.107',1196961401,1,0,1,1,1,1,'','','Jose Luis,\n\nEstá muy bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','17zmse9h',1,0,'',2,0,0),(43294,9102,7,2,0,'87.218.146.107',1196961514,1,0,1,1,1,1,'','','Vikthor \n\nHabría que averiguar si existe una DLL cliente MySQL para Pocket PC','',0,'GA==','3gbkqhcx',1,0,'',2,0,0),(43295,9097,6,2,0,'87.218.146.107',1196961720,1,0,1,1,1,1,'','','Fernando,\n\n&gt;\nNo se compilar y enlazar varios .prg,s utilizando BUILDH. \n¿Debo utilizar un fichero .rmk? \n¿Como sería ese fichero? \n&gt;\n\nRevisa FWH\\makes\\BorMake.zip Es un ejemplo de fichero make para múltiples PRGs y módulos en C usando el make de Borland.\n\n&gt;\nOtro problema. Al recuperar los datos de mi base de datos con GET no me salen ciertos caracteres (ñ, º, ª). He colocado REQUEST HB_LANG_ES y no lo he logrado. \n&gt;\n\nEsos caracteres los escribistes desde MsDos ó desde una aplicación en Windows ?','',0,'GA==','27ufdx4b',1,0,'',2,0,0),(43296,5629,3,2,0,'87.218.146.107',1196961807,1,0,1,1,1,1,'','','Otto,\n\nYou are missing the \":\" of the assigment:\n\nON INIT (oRadMenu:aItems[ 1 ]:SetText( \"Hello\" ), oRadMenu:aItems[ 1 ]:nLeft [color=red:37olsfsr][b:37olsfsr]:=[/b:37olsfsr][/color:37olsfsr] 25)','',0,'Qg==','37olsfsr',1,0,'',2,0,0),(43297,9103,6,1246,0,'66.82.9.79',1196961868,1,0,1,1,1,0,'','ERROR BASE/1078','HOLA A TODOS:\nSOY NUEVO EN EL FORUM ESTOY TRATANDO DE EMIGRAR DE CLIPPER 5.3+FW24 A HARBOR + FWH. TODO LOBAJE DE MI FTDN ORIGINAL COMPRADO A FIVETECH\nQUIERO TRABAJAR CON DLL EXTERNA YA QUE POR RC SE ME HA DOFICULTADO MAS AUN. EN FIN LOGRO HABRIR MI DIALOGO EN UNPROGRAMA PILOTO TOMADO DEL TUTOR09 Y AGREGANDO UNO DE MIS PROGRAMAS DE VISUALIZACION, HE HECHO TODO LO QUE PODIDO LEER EN LOS FORUM PERO AL EJECUTAR EL PROGRAMA ME ARROJA EL SIG. ERROR: ERROR BASE/1078 ARGUMENT ERROR: .AND. FROM ERRORSYS, LINE: 0\nSI PUEDIERA ALGUEIN HECHARME LA MANO ME URGE EMIGRAR YA QE ME VAN A CAMBIAR DE MAQUINAS Y SON CON S.O. VISTA Y COMO HE LEIDO NO COMPILA LOS 16 BITS.\n TRABAJO TAMBIEN CON EL BORLAND 5.5 Y WORKSHOP 4.5.\nDE ANTEMANO MIL GRACIAS.\nATTE: JOSE MARQUEZ DE J.D. COVARRUBIAS,VERACRUZ, MEX,','',0,'Qg==','12wb0h64',1,0,'',1246,0,0),(43298,9067,3,2,0,'87.218.146.107',1196961979,1,0,1,1,1,1,'','','Dietmar,\n\nIf you don\'t use the 2007 clause then you have to use the 3D clause to get the colors and painting that you want <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Qg==','17d83fcl',1,0,'',2,0,0),(43299,9103,6,2,0,'87.218.146.107',1196962227,1,0,1,1,1,1,'','','Jose,\n\nBienvenido al foro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPor favor copia aqui el contenido del fichero error.log\n\nParece que estás haciendo un .AND. y uno de los valores usados no es de tipo lógico','',0,'Qg==','2pwvfsq7',1,0,'',2,0,0),(43300,9094,6,2,0,'87.218.146.107',1196962491,1,0,1,1,1,1,'','','No parece necesario que le envies ese mensaje.\n\nDeja comentada la línea oDoc:End()','',0,'Qg==','23fm1lu6',1,0,'',2,0,0),(43301,9095,6,2,0,'87.218.146.107',1196962580,1,0,1,1,1,1,'','','Carlos,\n\nEs muy fácil de hacer, lo que ocurre es que de momento no hemos implementado un parámetro ó DATA para definir el color, por lo que tendrías que modificar algunas classes de FWH','',0,'Qg==','xh488u2r',1,0,'',2,0,0),(43302,9057,3,35,0,'167.7.140.254',1196963079,1,0,1,1,1,0,'','','Antonio\n\nControl 1066 does not appear in the calendar .. here is line 72 from the Rick.rc file does not show up in the dialog:\n\nCONTROL \"Mnth - Yr\", 1066, \"EDIT\", ES_READONLY | NOT WS_TABSTOP | WS_DISABLED | WS_BORDER, 10, 40, 43, 12\n\nThanks\nRick Lipkin','',0,'Qg==','3n6xqs8e',1,0,'',35,0,0),(43303,9057,3,490,0,'87.218.84.24',1196963839,1,0,1,1,1,0,'','Problema con diálogo','Hola Antonio,\n\nWS_BORDER me da error en el siguiente RC\n\nPAN0001 DIALOG -32768, 55, 400, 274\nSTYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_BORDER\nFONT 8, \"MS Sans Serif\"\n{\n GROUPBOX \"\", 500, 71, 28, 316, 29, BS_GROUPBOX | WS_GROUP\n RTEXT \"Serie de Facturación:\", 201, 77, 40, 65, 10\n CONTROL \"\", 200, \"SysTabControl32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 84, 65, 268, 179\n EDITTEXT 101, 144, 38, 16, 12, ES_CENTER | ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;Siguiente &gt;&gt;\", 308, 52, 251, 45, 15, NOT WS_TABSTOP\n PUSHBUTTON \"&lt;&lt; &amp;Anterior\", 309, 4, 251, 45, 15, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Imprimir\", 301, 204, 251, 45, 15, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Modifica\", 302, 252, 251, 45, 15, NOT WS_TABSTOP\n PUSHBUTTON \"&amp;Elimina\", 303, 300, 251, 45, 15, NOT WS_TABSTOP\n PUSHBUTTON \"&lt;ESC&gt; FIN\", 311, 348, 251, 45, 15, NOT WS_TABSTOP\n CONTROL \"\", 900, \"TBitmap\", 0 | WS_CHILD | WS_VISIBLE, 7, 13, 50, 50\n EDITTEXT 102, 163, 38, 220, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n}\n\n\nAparte, todos los caracteres acentuados no aparecen escritos correctamente.\n\nUn Saludo,\nJoaquín','',0,'Qg==','3g9qvwbx',1,0,'',490,0,0),(43304,5629,3,51,0,'80.122.88.242',1196963865,1,0,1,1,1,0,'','','Thank you, Antonio. \n I copy and paste it from a forum tip of ???  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> without looking.\n\nRegards,\nOtto','',0,'Qg==','3fxy5aeu',1,0,'',51,0,0),(43305,9103,6,1246,0,'66.82.9.79',1196964242,1,0,1,1,1,0,'','','AUI ESTA EL ERROR.ORG MAESTRO\nApplication\n===========\n   Path and name: c:\\HARBOUR\\bin\\tutor09.exe (32 bits)\n   Size:   985,600 bytes\n   Time from start: 0 hours 0 mins 5 secs \n   Error occurred at: 12/06/07, 10:42:10\n   Error description: Error BASE/1078  Argument error: .AND.\n   Args:\n     [   1] = L   .t.\n     [   2] = N   2\n\nStack Calls\n===========\n   Called from WBRWLINE(0)\n   Called from TWBROWSE:PAINT(0)\n   Called from TWBROWSE:DISPLAY(0)\n   Called from TCONTROL:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from VISA1(85)\n   Called from AVI601(27)\n   Called from EVAL(78)\n   Called from TMENU:COMMAND(0)\n   Called from TWINDOW:COMMAND(0)\n   Called from TWINDOW:HANDLEEVENT(0)\n   Called from _FWH(0)\n   Called from WINRUN(0)\n   Called from TWINDOW:ACTIVATE(0)\n   Called from MAIN(31)\n\nSystem\n======\n   CPU type: GetCPU() failed! 2800 Mhz\n   Hardware memory: 504 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 40.0 Intl. (Flex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 56\n      1 \n      2 M\n      3 Default IME\n      4 Menú Inicio\n      5 CiceroUIWndFrame\n      6 Menú desplegable de Autosugerir\n      7 Search_Glow\n      8 SysFader\n      9 Canon LBP3200\n     10 TF_FloatingLangBar_WndTitle\n     11 Visualiza Padron Alfabetico\n     12 Using a FiveWin quick browse\n     13 MCI command handling window\n     14 Símbolo del sistema - BUILDH TUTOR09\n     15 Foros - Clipper/FiveWin - RE:ERROR BASE/1078 (Jose Flores) - La Web del Programador - Windows Internet Explorer\n     16 WOWExec\n     17 MSNBhoPump\n     18 {E45D665E-2B19-404e-A3EF-79514A24839D}\n     19 Acrobat IEHelper\n     20 IscMsgPump\n     21 AXWIN Frame Window\n     22 {3A59DA8F-0ED9-483c-BE8E-258A09AED07F}\n     23 DDE Server Window\n     24 <!-- e --><a href=\"mailto:AD760EEA-46D4-4e12-BAF5-58E2E3D1D0B2_jmv040@hotmail.com\">AD760EEA-46D4-4e12-BAF5-58E2E3D1D0B2_jmv040@hotmail.com</a><!-- e -->\n     25 <!-- e --><a href=\"mailto:B1E4D14A-F6D0-457d-8F12-711BF924E011_jmv040@hotmail.com\">B1E4D14A-F6D0-457d-8F12-711BF924E011_jmv040@hotmail.com</a><!-- e -->\n     26 IMON Hidden Window\n     27 <!-- e --><a href=\"mailto:D897EE71-E263-449d-9241-5E918A81AF41_jmv040@hotmail.com\">D897EE71-E263-449d-9241-5E918A81AF41_jmv040@hotmail.com</a><!-- e -->\n     28 <!-- e --><a href=\"mailto:0C6C1D2B-CA92-49a1-B5F5-A9BBF3D2921A_jmv040@hotmail.com\">0C6C1D2B-CA92-49a1-B5F5-A9BBF3D2921A_jmv040@hotmail.com</a><!-- e -->\n     29 HiddenFaxWindow\n     30 CTicketManagerWnd\n     31 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}\n     32 Connections Tray\n     33 Medidor de energía\n     34 IHW2\n     35 Acme.PCHButton\n     36 MS_WebcheckMonitor\n     37 HelperMsgListenerWnd\n     38 NOD32KrnSvcWindow\n     39 SMWindow\n     40 GDI+ Window\n     41 NOD32 Update\n     42 NOD32 Scanner\n     43 IMON - Protección para el tráfico de Internet\n     44 EMON - Protección de correo para Microsoft Outlook\n     45 DMON - Protección de documentos Microsoft Office\n     46 AMON - Monitor del sistema de archivos\n     47 NOD32 Kernel\n     48 Configuración general del sistema NOD32\n     49 Información\n     50 Tareas programadas\n     51 Cuarentena\n     52 Registros de NOD32 Scanner\n     53 Registros de amenazas\n     54 Registros del sistema NOD32\n     55 NOD32 2.5 Control Center\n     56 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   WBRWLINE\n     Param   1:    N    459850\n     Param   2:    N    **********\n     Param   3:    N    0\n     Param   4:    A    Len:    5\n     Param   5:    A    Len:    5\n     Param   6:    N    1\n     Param   7:    N    9934336\n     Param   8:    N    14013696\n     Param   9:    N    940182857\n     Param  10:    L    .f.\n     Param  11:    A    Len:    5\n     Param  12:    U    \n     Param  13:    N    11\n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    O    Class: TSCROLLBAR\n     Local   1:    N    15\n     Local   2:    N    25821217\n     Local   3:    N    62\n     Local   4:    N    544\n     Local   5:    N    0\n     Local   6:    N    0\n     Local   7:    N    14\n     Local   8:    N    0\n     Local   9:    N    62\n     Local  10:    N    1\n     Local  11:    L    .f.\n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    L    .t.\n     Local  15:    N    2\n   TWBROWSE:PAINT\n     Local   1:    O    Class: TWBROWSE\n     Local   2:    N    1\n     Local   3:    N    1\n     Local   4:    U    \n   TWBROWSE:DISPLAY\n     Local   1:    O    Class: TWBROWSE\n     Local   2:    N    4670\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    15\n     Param   2:    N    0\n     Param   3:    N    0\n     Local   1:    O    Class: TWBROWSE\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    15\n     Param   3:    N    0\n     Param   4:    N    0\n     Param   5:    N    2\n     Local   1:    O    Class: TWBROWSE\n   DIALOGBOX\n     Param   1:    N    20316160\n     Param   2:    C    \"BRWALFA\"\n     Param   3:    N    2622760\n     Param   4:    O    Class: TDIALOG\n     Local   1:    U    \n     Local   2:    L    .t.\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    N    0\n     Local   9:    U    \n     Local  10:    L    .t.\n     Local  11:    U    \n     Local  12:    L    .f.\n     Local  13:    N    1141902710\n     Local  14:    N    1141902710\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .t.\n     Param   5:    U    \n     Param   6:    L    .t.\n     Param   7:    B    {|| ... }\n     Param   8:    U    \n     Param   9:    U    \n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    2622760\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    O    Class: TDIALOG\n   VISA1\n   AVI601\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n   EVAL\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20009\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TWINDOW:COMMAND\n     Param   1:    N    20009\n     Param   2:    N    0\n     Local   1:    O    Class: TWINDOW\n     Local   2:    N    0\n     Local   3:    N    20009\n     Local   4:    N    0\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    273\n     Param   2:    N    20009\n     Param   3:    N    0\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    273\n     Param   3:    N    20009\n     Param   4:    N    0\n     Param   5:    N    3\n     Local   1:    O    Class: TWINDOW\n   WINRUN\n     Param   1:    N    2622760\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"NORMAL\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TWINDOW\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    O    Class: TBITMAP\n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    15073280\n\nLinked RDDs\n===========\n   DBF\n   DBFNTX\n\nDataBases in use\n================\n\n  1: =&gt; MAEPRO                             RddName: DBFNTX\n     ==============================\n     RecNo    RecCount    BOF   EOF\n     4202       4670      .t.   .f.\n\n     Indexes in use                        TagName\n        =&gt; MAEPRO-&gt;NOMBRE1                    ALFA\n\n     Relations in use\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TWINDOW\n     4 TDIALOG\n     5 TBRUSH\n     6 TCONTROL\n     7 TBITMAP\n     8 TFONT\n     9 TTIMER\n    10 TMENU\n    11 TMENUITEM\n    12 TMSGBAR\n    13 TRECT\n    14 TMSGITEM\n    15 TGET\n    16 GET\n    17 TCLIPGET\n    18 TWBROWSE\n    19 TBTNBMP\n    20 TSCROLLBAR\n    21 ERROR\n\nMemory Analysis\n===============\n      109 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','306fw14l',1,0,'',1246,0,0),(43306,9057,3,2,0,'87.218.146.107',1196965042,1,0,1,1,1,1,'','','Rick,\n\nCuriously controls 1066 and 1005 don\'t have the WS_CHILD and WS_VISIBLE styles. Thats why they are not shown.\n\nAnyhow we have modified RE.EXE to provide those styles by default:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21017-113939461d.html\">http://www.hotshare.net/file/21017-113939461d.html</a><!-- m -->\n\nThanks for your feedback! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3ieftrh0',1,0,'',2,0,0),(43307,9067,3,162,0,'62.47.184.59',1196965677,1,0,1,1,1,0,'','','Many Thanks, now the look is consistent with and without themes! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nDietmar','',0,'','2vr8ju1d',1,0,'',162,0,0),(43308,9103,6,1246,0,'66.82.9.79',1196965913,1,0,1,1,1,0,'','','ANTONIO: LE MANDO MI CODIGO FTE PARA QUE LO REVISE. SI ES TAN AMABLE\nGRACIAS :\nJOSE\n\n\nFunction avi601()\nLOCAL oFont5\nlocal oBtm5\nlocal oBtm6\nlocal oBmp6, oBmp, oBtnbmp\nLOCAL oIcon3\nlocal oBarra\nlocal oDlg2\nCNOMBRE:=space(30)\nCCVECAN:=CIMPORTE:=0\nFUERA:=.T.\nFUERA2:=.T.\nFUERA3:=.T.\nOKEY:=.T.\nRET:=.T.\nset _3dlook on\n//patres:=\"z:\\aviores\"\n// USE C:\\AVIO\\AVIORES\\maepro   ALIAS maepro\nUSE C:\\AVIO\\aviores\\maepro   ALIAS maepro  \nINDEX ON MAEPRO-&gt;NOMBRE1 TO c:\\AVIO\\ALFA\nset index to c:\\AVIO\\ALFA\nclose data\n\n// USE C:\\AVIO\\AVIORES\\maepro alias maepro shared new\n USE C:\\AVIO\\aviores\\maepro alias maepro shared new\nset index to c:\\AVIO\\ALFA\nVISA1()\nclose data\nreturn nil\nfunction VISA1()\n\nDEFINE FONT oFont5 NAME \"arial\" SIZE 05,14   bold\n\nDO WHILE OKEY\n\n// DEFINE ICON oIcon3 resource \"fivewin\"\n\n// DEFINE BITMAP oBmp resource \"pintura5\" \n\n\nDEFINE DIALOG oDlg2 RESOURCE \"BRWALFA\"    OF oWnd \n// oDlg2:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }\n//MsgInfo( \"definio dialogo\" )\n\n oDlg2:bGotFocus = { || SndPlaySound(\"c:\\Windows\\media\\chimes.wav\") }\n//  Odlg2:oIcon=oIcon3\n// oDlg2:nClrText=nRGB(249,16,32)\n//MsgInfo( \"antes del get\" )\n\n  REDEFINE GET oGet VAR CNOMBRE PICTURE \"@!\" ID 101 OF oDlg2 COLOR \"R+/BG+\" font oFont5;\n   VALID (APUNTA(CNOMBRE),FUERA2)\n   //MsgInfo( \"antes del listbox\" )\n\n    REDEFINE LISTBOX oBrow fields transform(MAEPRO-&gt;cvenva,\"9/99-999\"),TRANSFORM(VAL(MAEPRO-&gt;CLAVECONSO),\"9/99-999\"),;\n    OemToansi(MAEPRO-&gt;nombre1),MAEPRO-&gt;asoc,MAEPRO-&gt;pad_0607 alias \"maepro\" font oFont5;\n  ID 102 OF oDlg2  head \"CLAVE\",\"CVECON\",\"NOMBRE DEL PRODUCTOR\",\"ASOC\",\"PADRON\";\n  COLOR \"R+/BG+\"\n//MsgInfo( \"despues del listbox\" )\n                             \noBrow:refresh()\n\noBrow:aJustify={2,2,0,2,2}\n\noBrow:nLinestyle=11\n\noBrow:nClrbackhead=nRGB(0,213,213)\noBrow:nClrforehead=nRGB(0,150,151)\noBrow:nClrforefocus=nRGB(249,216,32)\noBrow:nClrbackfocus=nRGB(249,29,83)\noBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(0,213,213),rgb(0,150,151))}\n\n//oBrow:nClrpane:={||iif((ordkeyno())%2==0,RGB(230,230,230),rgb(190,215,190))}\n\n// REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt \"Salir\" font oFont5 ACTION (FUERA:=.T.,oDlg2:End())\n//  REDEFINE BUTTON oBtm5 ID 103 OF oDlg2 prompt \"Salir\" font oFont5 ACTION (cancel) \n//MsgInfo( \"antes del boton\" )\n// REDEFINE BTNBMP oBtnBmp  ID 103 OF oDlg2  RESOURCE  \"Salida\"  ACTION (FUERA,oDlg2:End()) \n REDEFINE BTNBMP oBtnBmp  ID 103 OF oDlg2  RESOURCE  \"Salida\"  ACTION oDlg2:End() \n oBtnBmp:nClrpane=nRGB(0,151,151)\n//MsgInfo( \"despues del boton\" )\n//oBtnBmp:nClrpane=nRGB(78,20,240)\n// oBtnBmp:nClrtext=nRGB(18,190,71)\n\nACTIVATE DIALOG oDlg2 CENTER;\non init (sndPlaySound(\"c:\\windows\\media\\notify.wav\"),oGet:setfocus())\n//             If GetKeyState(VK_ESCAPE).or.fuera=.t.\n//              IF (FUERA=.T.).OR.CNOMBRE=SPACE(30)\n//           RETURN .F.\n//           ENDIF\n//MsgInfo( \"activo dialogo\" )\n\nRETURN  RET\nENDDO\n\n// set resources to\nrelease font oFont5\noFont5:end()\n\nRETURN NIL\n\nFUNCTION APUNTA(CNOMBRE)\n// MsgInfo( \"antes de apuntar\" )\nMAEPRO-&gt;(DBSEEK(CNOMBRE,FUERA3))\n//oGet:setfocus()\noBrow:upstable()                     \noBrow:refresh()\n//MsgInfo( \"despues de apuntas\" )\nRETURN(cnombre)','',0,'','2zzaq5rc',1,0,'',1246,0,0),(43309,9057,3,2,0,'87.218.146.107',1196965939,1,0,1,1,1,1,'','','Joaquin,\n\nTu ejemplo ya funciona:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21030-3006093121.html\">http://www.hotshare.net/file/21030-3006093121.html</a><!-- m -->\n\n&gt; Aparte, todos los caracteres acentuados no aparecen escritos correctamente. \n\nEsto esta pendiente de que lo solucionemos, ya que los textos se pasan a unicode y por lo visto no estamos usando los parámetros correctos en la conversión a unicode usando MultiByteToWideChar()\n\ngracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','39y1bb11',1,0,'',2,0,0),(43310,9103,6,2,0,'87.218.146.107',1196966271,1,0,1,1,1,1,'','','El fallo está aqui:\n\noBrow:aJustify={2,2,0,2,2} \n\nHas de usar valores lógicos en ese array, no números:\n\noBrow:aJustify={ .T., .T., .F., .T., .T. } \n\nó con los valores que necesites <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2qybf4mm',1,0,'',2,0,0),(43311,8961,3,51,0,'80.122.88.242',1196966521,1,0,1,1,1,0,'','','Thank you, Marcelo. I put the code on <!-- w --><a class=\"postlink\" href=\"http://www.FWCodeSnips.com\">www.FWCodeSnips.com</a><!-- w -->\nRegards,\nOtto','',0,'','2qa4x9eo',1,0,'',51,0,0),(43312,9103,6,1246,0,'66.82.9.79',1196966630,1,0,1,1,1,0,'','','MIL GRACIAS MAESTRO ANTONIO \n TODO SALIO BIEN YA EMEZAREA A HACER UNA EMIGRACION ENSERIO\nSALUDOS\n ATTE:.JOSE','',0,'','2zvlb8h7',1,0,'',1246,0,0),(43313,9057,3,490,0,'87.218.84.24',1196967398,1,0,1,1,1,0,'','Otro diálogo que no va','Antonio,\n\nese ejemplo ya funciona, pero el siguiente no funciona, prueba y verás como no muestra nada o es invisible, se puede cerrar con F4, pero mientras es como si estuviera bloqueado.\n\nPAN00025 DIALOG LOADONCALL MOVEABLE DISCARDABLE -28, 41, 388, 163\nSTYLE 0x4L | WS_CHILD\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT 139, 47, 15, 157, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 140, 238, 15, 142, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 141, 47, 29, 115, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 142, 238, 29, 27, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 143, 47, 43, 115, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n RTEXT \"Dirección:\", 240, 205, 17, 31, 10\n RTEXT \"Población:\", 241, 11, 30, 34, 10\n RTEXT \"Provincia:\", 243, 10, 44, 35, 10\n RTEXT \"Razón Social:\", 239, 1, 16, 44, 10\n RTEXT \"C.P.:\", 242, 219, 30, 17, 10\n EDITTEXT 144, 47, 57, 56, 12\n EDITTEXT 145, 106, 57, 56, 12\n EDITTEXT 146, 275, 57, 105, 12\n RTEXT \"Teléfonos:\", 244, 8, 57, 37, 10\n RTEXT \"Persona de contacto:\", 246, 205, 58, 68, 10\n EDITTEXT 147, 47, 85, 157, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 148, 238, 85, 142, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 149, 47, 99, 115, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 150, 238, 99, 27, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n EDITTEXT 151, 47, 113, 115, 12, ES_AUTOHSCROLL | WS_BORDER | WS_TABSTOP\n RTEXT \"Dirección:\", 248, 205, 86, 31, 10\n RTEXT \"Población:\", 249, 11, 100, 34, 10\n RTEXT \"Provincia:\", 251, 10, 114, 35, 10\n RTEXT \"Razón Social:\", 247, 1, 86, 44, 10\n RTEXT \"C.P.:\", 250, 219, 100, 17, 10\n EDITTEXT 152, 47, 127, 56, 12\n EDITTEXT 153, 106, 127, 56, 12\n EDITTEXT 154, 275, 127, 105, 12\n RTEXT \"Teléfonos:\", 252, 8, 127, 37, 10\n RTEXT \"Persona de contacto:\", 254, 205, 128, 68, 10\n PUSHBUTTON \"\", 502, 287, 35, 83, 12, WS_DISABLED | WS_TABSTOP\n LTEXT \"ENVIO DE MERCANCIAS\", 300, 290, 37, 77, 8\n PUSHBUTTON \"\", 504, 295, 106, 75, 12, WS_DISABLED | WS_TABSTOP\n LTEXT \"ENVIO DE FACTURAS\", 301, 298, 108, 70, 8\n PUSHBUTTON \"\", 503, 1, 76, 381, 2, WS_DISABLED | WS_TABSTOP\n}\n\n\nUn Saludo,\nJoaquín','',0,'','2ue7jve0',1,0,'',490,0,0),(43314,9057,3,34,0,'68.5.217.82',1196969538,1,0,1,1,1,1,'','Sorry for the delay','Hi Antonio,\n\nSorry for the delay ... my mother is 91 and in very poor health so I\'m often away right now at the hospital, nursing home, etc.\n\nHere is the full dialog from the .rc in which I have the two errors I mentioned:\n\nPRO2100 DIALOG DISCARDABLE 4, 25, 660, 350\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_VISIBLE\nCAPTION \"Inventory Master Editor\"\nFONT 8, \"Arial\"\nBEGIN\n  CONTROL \"\", 716, \"TSBrowse\", WS_TABSTOP|0x00a00000, 24, 176, 608, 165\n  CONTROL \"\", 770, \"Edit\", WS_BORDER|WS_TABSTOP, 64, 4, 100, 10\n  CONTROL \"\", 769, \"Edit\", WS_BORDER|WS_TABSTOP, 248, 4, 163, 10\n  CONTROL \"\", 768, \"Edit\", WS_BORDER|WS_TABSTOP, 64, 16, 100, 10\n  CONTROL \"\", 767, \"ComboBox\", WS_BORDER|CBS_DROPDOWN|WS_VSCROLL|WS_TABSTOP, 248, 16, 92, 162\n  CONTROL \"\", 763, \"Edit\", WS_BORDER|WS_TABSTOP, 64, 28, 100, 10\n  CONTROL \"\", 762, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 95, 40, 43, 10\n  CONTROL \"\", 761, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 95, 52, 43, 10\n  CONTROL \"\", 760, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 95, 64, 43, 10\n  CONTROL \"\", 759, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 95, 76, 43, 10\n  CONTROL \"\", 758, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 95, 88, 43, 10\n  CONTROL \"\", 757, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 95, 100, 43, 10\n  CONTROL \"\", 506, \"Edit\", WS_BORDER|WS_TABSTOP, 95, 112, 60, 10\n  CONTROL \"\", 507, \"Button\", WS_TABSTOP, 158, 111, 14, 12\n  CONTROL \"Tax \\?\", 749, \"Button\", BS_AUTOCHECKBOX|WS_TABSTOP, 26, 135, 40, 12\n  CONTROL \"\", 745, \"ComboBox\", WS_BORDER|CBS_DROPDOWN|WS_VSCROLL|WS_TABSTOP, 92, 136, 50, 143\n  CONTROL \"Stock \\?\", 748, \"Button\", BS_AUTOCHECKBOX|WS_TABSTOP, 26, 147, 40, 12\n  CONTROL \"Core \\?\", 750, \"Button\", BS_AUTOCHECKBOX|WS_TABSTOP, 80, 147, 40, 12\n  CONTROL \"List\", 747, \"Button\", BS_AUTOCHECKBOX|WS_TABSTOP, 26, 159, 32, 12\n  CONTROL \"\", 746, \"ComboBox\", WS_BORDER|CBS_DROPDOWN|WS_VSCROLL|WS_TABSTOP, 60, 160, 80, 111\n  CONTROL \"\", 756, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 200, 40, 60, 10\n  CONTROL \"\", 755, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 200, 52, 60, 10\n  CONTROL \"\", 754, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 200, 64, 60, 10\n  CONTROL \"\", 753, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 200, 76, 60, 10\n  CONTROL \"\", 752, \"Edit\", ES_CENTER|WS_BORDER|WS_TABSTOP, 200, 88, 60, 10\n  CONTROL \"\", 751, \"Edit\", ES_CENTER|WS_BORDER|WS_TABSTOP, 200, 100, 60, 10\n  CONTROL \"\", 744, \"Edit\", WS_BORDER|WS_TABSTOP, 200, 124, 36, 10\n  CONTROL \"\", 501, \"Button\", WS_TABSTOP, 236, 123, 14, 12\n  CONTROL \"\", 743, \"Edit\", WS_BORDER|WS_TABSTOP, 200, 136, 36, 10\n  CONTROL \"\", 502, \"Button\", WS_TABSTOP, 236, 135, 14, 12\n  CONTROL \"\", 742, \"Edit\", WS_BORDER|WS_TABSTOP, 200, 148, 36, 10\n  CONTROL \"\", 503, \"Button\", WS_TABSTOP, 236, 147, 14, 12\n  CONTROL \"\", 741, \"Edit\", WS_BORDER|WS_TABSTOP, 200, 160, 36, 10\n  CONTROL \"\", 504, \"Button\", WS_TABSTOP, 236, 159, 14, 12\n  CONTROL \"\", 764, \"Edit\", WS_BORDER|WS_TABSTOP, 504, 4, 15, 10\n  CONTROL \"\", 765, \"Edit\", WS_BORDER|WS_TABSTOP, 476, 16, 26, 10\n  CONTROL \"\", 505, \"Button\", WS_TABSTOP, 504, 15, 14, 12\n  CONTROL \"\", 728, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 28, 60, 10\n  CONTROL \"\", 727, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 40, 60, 10\n  CONTROL \"\", 726, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 52, 60, 10\n  CONTROL \"\", 725, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 64, 60, 10\n  CONTROL \"\", 724, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 76, 60, 10\n  CONTROL \"\", 723, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 88, 60, 10\n  CONTROL \"\", 722, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 100, 60, 10\n  CONTROL \"\", 721, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 112, 60, 10\n  CONTROL \"\", 720, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 124, 60, 10\n  CONTROL \"\", 719, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 136, 60, 10\n  CONTROL \"\", 718, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 148, 60, 10\n  CONTROL \"\", 717, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 476, 160, 60, 10\n  CONTROL \"\", 4001, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 592, 4, 50, 10\n  CONTROL \"\", 4002, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 592, 16, 50, 10\n  CONTROL \"\", 4003, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 592, 28, 50, 10\n  CONTROL \"\", 4004, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 592, 40, 50, 10\n  CONTROL \"&amp;Add\", 711, \"Button\", WS_TABSTOP, 580, 58, 50, 14\n  CONTROL \"&amp;Delete\", 714, \"Button\", WS_TABSTOP, 580, 76, 50, 14\n  CONTROL \"&amp;Save\", 710, \"Button\", WS_TABSTOP, 580, 94, 50, 14\n  CONTROL \"&amp;Locate\", 712, \"Button\", WS_TABSTOP, 580, 112, 50, 14\n  CONTROL \"&amp;Price Calc\", 713, \"Button\", WS_TABSTOP, 580, 130, 50, 14\n  CONTROL \"E&amp;xit\", 715, \"Button\", WS_TABSTOP, 580, 148, 50, 14\n  CONTROL \"Number\", -1, \"Static\", WS_GROUP, 15, 4, 36, 10\n  CONTROL \"Description\", -1, \"Static\", WS_GROUP, 195, 4, 43, 10\n  CONTROL \"Type\", -1, \"Static\", WS_GROUP, 456, 4, 45, 10\n  CONTROL \"Build\", 4005, \"Static\", WS_GROUP, 548, 4, 36, 10\n  CONTROL \"Cross Ref.\", -1, \"Static\", WS_GROUP, 15, 16, 45, 10\n  CONTROL \"Manufacturer\", -1, \"Static\", WS_GROUP, 195, 16, 47, 10\n  CONTROL \"Location\", -1, \"Static\", WS_GROUP, 348, 16, 34, 10\n  CONTROL \"\", 766, \"Edit\", WS_BORDER|WS_TABSTOP, 389, 16, 40, 10\n  CONTROL \"Sort\", -1, \"Static\", WS_GROUP, 448, 16, 21, 10\n  CONTROL \"Move\", 4006, \"Static\", WS_GROUP, 548, 16, 36, 10\n  CONTROL \"Super.\", -1, \"Static\", WS_GROUP, 15, 28, 45, 10\n  CONTROL \"HISTORY:\", -1, \"Static\", SS_CENTER|WS_GROUP, 176, 28, 40, 10\n  CONTROL \"Jan\", -1, \"Static\", WS_GROUP, 296, 28, 16, 10\n  CONTROL \"\", 740, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 28, 44, 10\n  CONTROL \"Average Cost\", -1, \"Static\", WS_GROUP, 408, 28, 59, 10\n  CONTROL \"Return\", 4007, \"Static\", WS_GROUP, 548, 28, 36, 10\n  CONTROL \"Pack\", 4008, \"Static\", WS_GROUP, 548, 40, 36, 10\n  CONTROL \"Stock: Current\", -1, \"Static\", WS_GROUP, 25, 40, 65, 10\n  CONTROL \"M-T-D\", -1, \"Static\", WS_GROUP, 160, 40, 37, 10\n  CONTROL \"Feb\", -1, \"Static\", WS_GROUP, 296, 40, 18, 10\n  CONTROL \"\", 739, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 40, 44, 10\n  CONTROL \"Last Price Paid\", -1, \"Static\", WS_GROUP, 408, 40, 59, 10\n  CONTROL \"       On Order\", -1, \"Static\", WS_GROUP, 25, 52, 65, 10\n  CONTROL \"Y-T-D\", -1, \"Static\", WS_GROUP, 160, 52, 37, 10\n  CONTROL \"Mar\", -1, \"Static\", WS_GROUP, 296, 52, 18, 10\n  CONTROL \"\", 738, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 52, 44, 10\n  CONTROL \"Core Value\", -1, \"Static\", WS_GROUP, 408, 52, 59, 10\n  CONTROL \"Core: Here\", -1, \"Static\", WS_GROUP, 25, 64, 50, 10\n  CONTROL \"-1 Year\", -1, \"Static\", WS_GROUP, 160, 64, 36, 10\n  CONTROL \"Apr\", -1, \"Static\", WS_GROUP, 296, 64, 18, 10\n  CONTROL \"\", 737, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 64, 44, 10\n  CONTROL \"Retail\", -1, \"Static\", WS_GROUP, 408, 64, 59, 10\n  CONTROL \"      Due Back\", -1, \"Static\", WS_GROUP, 25, 76, 65, 10\n  CONTROL \"-2 Years\", -1, \"Static\", WS_GROUP, 160, 76, 37, 10\n  CONTROL \"May\", -1, \"Static\", WS_GROUP, 296, 76, 16, 10\n  CONTROL \"\", 736, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 76, 44, 10\n  CONTROL \"Wholesale 1\", -1, \"Static\", WS_GROUP, 408, 76, 59, 10\n  CONTROL \"Minimum\", -1, \"Static\", WS_GROUP, 25, 88, 65, 10\n  CONTROL \"Purchase\", -1, \"Static\", WS_GROUP, 160, 88, 37, 10\n  CONTROL \"Jun\", -1, \"Static\", WS_GROUP, 296, 88, 18, 10\n  CONTROL \"\", 735, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 88, 44, 10\n  CONTROL \"Wholesale 2\", -1, \"Static\", WS_GROUP, 408, 88, 59, 10\n  CONTROL \"Stock To\", -1, \"Static\", WS_GROUP, 25, 100, 65, 10\n  CONTROL \"Sale\", -1, \"Static\", WS_GROUP, 160, 100, 37, 10\n  CONTROL \"Jul\", -1, \"Static\", WS_GROUP, 296, 100, 18, 10\n  CONTROL \"\", 734, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 100, 44, 10\n  CONTROL \"Wholesale 3\", -1, \"Static\", WS_GROUP, 408, 100, 59, 10\n  CONTROL \"Category \", -1, \"Static\", WS_GROUP, 25, 112, 45, 10\n  CONTROL \"Aug\", -1, \"Static\", WS_GROUP, 296, 112, 18, 10\n  CONTROL \"\", 733, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 112, 44, 10\n  CONTROL \"Wholesale 4\", -1, \"Static\", WS_GROUP, 408, 112, 59, 10\n  CONTROL \"Vendor 1\", -1, \"Static\", WS_GROUP, 160, 124, 37, 10\n  CONTROL \"Sep\", -1, \"Static\", WS_GROUP, 296, 124, 18, 10\n  CONTROL \"\", 732, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 124, 44, 10\n  CONTROL \"Core Charge\", -1, \"Static\", WS_GROUP, 408, 124, 59, 10\n  CONTROL \"Table\", -1, \"Static\", WS_GROUP, 66, 136, 24, 10\n  CONTROL \"Vendor 2\", -1, \"Static\", WS_GROUP, 160, 136, 37, 10\n  CONTROL \"Oct\", -1, \"Static\", WS_GROUP, 296, 136, 18, 10\n  CONTROL \"\", 731, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 136, 44, 10\n  CONTROL \"Assessment\", -1, \"Static\", WS_GROUP, 408, 136, 59, 10\n  CONTROL \"Vendor 3\", -1, \"Static\", WS_GROUP, 160, 148, 37, 10\n  CONTROL \"Nov\", -1, \"Static\", WS_GROUP, 296, 148, 18, 10\n  CONTROL \"\", 730, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 148, 44, 10\n  CONTROL \"Environmental\", -1, \"Static\", WS_GROUP, 408, 148, 59, 10\n  CONTROL \"Vendor 4\", -1, \"Static\", WS_GROUP, 160, 160, 37, 10\n  CONTROL \"Dec\", -1, \"Static\", WS_GROUP, 296, 160, 18, 10\n  CONTROL \"\", 729, \"Edit\", ES_RIGHT|ES_MULTILINE|WS_BORDER|WS_TABSTOP, 316, 160, 44, 10\n  CONTROL \"Weight\", -1, \"Static\", WS_GROUP, 408, 160, 59, 10\nEND\n\nI posted the whole thing because its a large dialog and might be helpful in testing !\n\nTim <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','ih9el1o8',1,0,'',34,0,0),(43315,9100,3,34,0,'68.5.217.82',1196970246,1,0,1,1,1,1,'','Ok ....','I downloaded and ran the test ... it failed on the 2nd and 3rd example.  I tried to look at the help file and it said the links are not valid.\n\nAny other thoughts on XML ?\n\nThanks.','',0,'','35dpbj8o',1,0,'',34,0,0),(43316,9069,6,661,0,'189.155.207.1',1196971842,1,0,1,1,1,0,'','','que tal, esto funciona perfectamente...\n\n\nstatic function hojaxls()\n\n   oxls:=TOleAuto():New( \"Excel.Application\" )\n   oxls:WorkBooks:add()\n   oHoja := oxls:sheets:item(1)\n   oHoja:name := \'MI HOJA 1\'\n   oHoja:activate()\n   oXLS:visible := .t.\n   \nreturn .t.\n\n\nsaludos\nAlex.','',0,'','2896yzip',1,0,'',661,0,0),(43317,9100,3,343,0,'24.173.70.25',1196972322,1,0,1,1,1,0,'','','It can be manipulated by xHarbour XML routines. \nCheck out \\xHarbour\\tests\\xmltests.prg and \\xHarbour\\doc\\hbxml.txt','',0,'','3h0zrxzp',1,0,'',343,0,0),(43318,9057,3,2,0,'87.218.146.107',1196972947,1,0,1,1,1,1,'','','Joaquín,\n\nEs el signo negativo del diálogo:\nPAN00025 DIALOG LOADONCALL MOVEABLE DISCARDABLE [color=red:3h1ykucw]-28[/color:3h1ykucw], 41, 388, 163 \n\nSi le pones un valor positivo, lo carga bien. Hay que averiguar como procesar los valores negativos correctamente','',0,'Ag==','3h1ykucw',1,0,'',2,0,0),(43319,9093,2,1245,0,'84.18.1.214',1196973809,1,0,1,1,1,0,'','PROBLEMA CON FONT','Hola Antonio, gracias por tu rapida respuesta, te adjunto el codigo.\n\nMuchas gracias. \n\n#INCLUDE \"FIVEWIN.CH\"\n\n  STATIC oWnd    //Ventana Principal\n  STATIC oMenu   //Menu de oWnd\n  STATIC oDlg     //Caja 1\n  STATIC oBar     //Barra\n  STATIC oFont    //\n\n  STATIC oSay1,oSay2,oSay3,oSay4,oSay5,oSay6,oSay7,oSay8,;\n              oSay9,oSay10       \n\n  FUNCTION MAIN()\n\n  SET DATE TO BRITISH\n  SET CENTURY ON\n  SET EXCLUSIVE OFF\n\n      IF !FILE(\"TARIFA.DBF\") \n          CREARDBF()\n      ENDIF\n\n     IF !FILE(\"FILTROS.DBF\")\n          CREARFIL()\n     ENDIF\n//-----------------------------------------------------------------------\n\n     DEFINE FONT oFont NAME \"Arial\" SIZE 8,12   <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\n     DEFINE WINDOW oWnd FROM 3,4 TO 30,90;\n     TITLE \"CONVERTIDOR ARCHIVO TARIFA A DBF\";\n     MENU HAZMENU();\n     COLOR \"N/W\";\n     NOSYSMENU          //Quita icono y X de la ventana\n\n     HAZBARRA()\n\n     SET MESSAGE OF oWnd TO \"Conver v:1.0\" CENTERED KEYBOARD      \n     DATE\n\n     ACTIVATE WINDOW oWnd','',0,'Ag==','5y9rvbv5',1,0,'',1245,0,0),(43320,9091,6,1201,0,'200.90.17.154',1196974683,1,0,1,1,1,0,'','','SELECT \n  `BDComun`.`TpoDepartamento`.VchCodigo AS Codigo,\n  `BDComun`.`TpoDepartamento`.VchDescripcion AS Descripcion,\n  `BDComun`.`TpoDepartamento`.TinStatus AS `Status`\nFROM\n  `BDComun`.`TpoDepartamento`','',0,'Ag==','2povbdth',1,0,'',1201,0,0),(43321,9082,6,1201,0,'200.90.17.154',1196975195,1,0,1,1,1,0,'','','TE FALTA DEFINIR CUALES DIALOGOS VA A PRESENTAR CADA FOLDER\n\n\n        REDEFINE FOLDER oFolder ID 501 of oDlg;\n                 Prompt \"Datos Generales\",\"Declaracion\",\"Datos Conductor\";\n                 Dialogs \"SINDATGEN\",\"SINDECLA\",\"SINDATCON\"\n\n\n\nPOR ESO TE PRESENTA ESE ESPACIO EN BLANCO\n\nSUERTE!','',0,'Ag==','b2wczl8h',1,0,'',1201,0,0),(43322,9057,3,2,0,'87.218.146.107',1196977091,1,0,1,1,1,1,'','','Dialog negative values and latin accent texts already supported:\nValores negativos en el diálogo y textos acentuados soportados:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21105-1475381e76.html\">http://www.hotshare.net/file/21105-1475381e76.html</a><!-- m -->','',0,'Ag==','2yuz4kuf',1,0,'',2,0,0),(43323,9057,3,2,0,'87.218.146.107',1196977529,1,0,1,1,1,1,'','','Tim,\n\nMany thanks for your RC example. It works fine if you replace \"TSbrowse\" with \"TWBrowse\". Later on we will support any custom defined control class.\n\nWe need to find what style define 0x00a00000 is.\n\nBest wishes for your mother,','',0,'Ag==','3flbh2uj',1,0,'',2,0,0),(43324,9093,2,2,0,'87.218.146.107',1196977744,1,0,1,1,1,1,'','','Revisa si en el directorio include tienes el fichero font.ch y si dentro está el comando DEFINE FONT ... NAME ... SIZE ..., ...','',0,'Ag==','19tveupy',1,0,'',2,0,0),(43325,9100,3,34,0,'68.5.217.82',1196977907,1,0,1,1,1,1,'','Links','Sorry Gale.  I have xHarbour from xHarbour.com ... those links are not valid references ...','',0,'Ag==','1cngmmat',1,0,'',34,0,0),(43326,9082,6,2,0,'87.218.146.107',1196978662,1,0,1,1,1,1,'','','Andrés,\n\nQue versión de FWH estás usando ? Con FWH 7.12 tu ejemplo, con algunos cambios para poder compilarlo, se muestra correctamente:\n\n[url=http&#58;//imageshack&#46;us:sijif5zi][img:sijif5zi]http&#58;//img209&#46;imageshack&#46;us/img209/1023/foldersss3&#46;png[/img:sijif5zi][/url:sijif5zi]\n[code:sijif5zi]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, n1 &#58;= 123, c2 &#58;= Space&#40; 20 &#41;\n\n   DEFINE DIALOG oDlg FROM 1,1 TO 498,672 PIXEL TITLE &quot;TIT&quot;\n   \n   @ 12,10 SAY &quot;NIF&#58;&quot; SIZE 12,9 PIXEL OF oDlg \n   @ 10,26 GET n1 SIZE 38,11 PICTURE &quot;!9999999!&quot; UPDATE PIXEL OF oDlg \n   @ 12,69 SAY &quot;Cognoms i nom&#58;&quot; SIZE 48,9 PIXEL \n   @ 10,121 GET C2 SIZE 205,11 PIXEL OF oDlg \n   @ 25,10 FOLDER CARPETA PROMPT &quot;Dades personals&quot;,&quot;Itinerari&quot;,&quot;Situació actual&quot;,&quot;Càrrecs anteriors&quot;,&quot;Estudis&quot; SIZE 316,190 PIXEL OF oDlg \n   @ 227,113 BUTTON &quot;&amp;D\'acord&quot; OF oDlg SIZE 50,12 PIXEL\n   @ 227,173 BUTTON &quot;&amp;Cancel·lar&quot; OF oDlg SIZE 50,12 PIXEL\n   \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil   \n[/code:sijif5zi]','',0,'GIA=','sijif5zi',1,0,'',2,0,0),(43327,9100,3,343,0,'24.173.70.25',1196979209,1,0,1,1,1,0,'','','I use the commercial version also,  but I always download and install the source code for reference and examples. \n\nIf you need an example let me know.','',0,'GIA=','28ismc17',1,0,'',343,0,0),(43328,9100,3,343,0,'24.173.70.25',1196979460,1,0,1,1,1,0,'','','I just looked in the xHarbour Language Reference Guide in the commercial version. There you will find information for TXmlDocument(), TXmlNode(), TXmlIterator(), etc.','',0,'GIA=','1mez7sve',1,0,'',343,0,0),(43329,9101,6,41,0,'200.87.167.162',1196979581,1,0,1,1,1,0,'','','Hola,\n\nintenta utilizar\n\noReport:aColumns[n]:nPad := 1|2|3\n\nen los bloques bstarpage y bstartline o donde puedas conmutar entre los titulos y los datos del reporte\n\n\nsaludos','',0,'','139c0jh1',1,0,'',41,0,0),(43330,9100,3,34,0,'68.5.217.82',1196986206,1,0,1,1,1,1,'','Gale','Thanks.  I had already done that.  My mind is rather impacted today.  My mother has rapidly declined in the past few months and its constant trips regarding her care/needs.   However, I did do the XML search, found the references, and will build some test to work with the product ASAP.  I appreciate the focus toward the right place.','',0,'','2slxyeeq',1,0,'',34,0,0),(43331,9057,3,490,0,'87.218.84.24',1196987926,1,0,1,1,1,0,'','Otro diálogo que no va','Hola,\n\nAntonio, solucionado lo demás.\n\nAhora tengo este diálogo que simplemente rompe la aplicación, no sé si son las pestañas:\n\nPAN00026 DIALOG LOADONCALL MOVEABLE DISCARDABLE 10, 46, 389, 154\nSTYLE 0x4L | WS_CHILD\nFONT 8, \"MS Sans Serif\"\n{\n CONTROL \"\", 309, \"Ttabs\", 0 | WS_CHILD | WS_VISIBLE, 2, 4, 375, 12\n CONTROL \"\", 308, \"TwBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_TABSTOP, 2, 15, 383, 119\n CONTROL \"\", 310, \"Ttabs\", 0 | WS_CHILD | WS_VISIBLE, 2, 134, 375, 12\n}\n\nUn Saludo,\nJoaquín','',0,'','207fkxsb',1,0,'',490,0,0),(43332,9091,6,53,0,'189.139.25.146',1196994555,1,0,1,1,1,1,'','','ADBLANCO:\n\nMuchas gracias por el ejemplo, solo una lata más podrías explicarlo un poco ?  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos','',0,'','3sbgqgs0',1,0,'',53,0,0),(43333,9093,2,1245,0,'84.18.1.214',1196995124,1,0,1,1,1,0,'','PROBLEMA CON FONT','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  Ya encontre el problema ¡¡¡\n\nEl font.ch si estaba en el directorio include completo y en perfecto estado, lo he copiado en el directorio del prg y funcionaba.\n\nEl problema estaba en que en este pc tengo instalado alaska xbase el cual tambien tiene un font.ch en su directorio include, como en el autoexec el directorio include del alaska tambien esta en el set, este generaba un conflicto entre ambos y no funcionaba.\n\n <!-- s:idea: --><img src=\"{SMILIES_PATH}/icon_idea.gif\" alt=\":idea:\" title=\"Idea\" /><!-- s:idea: -->  Aveces lo mas facil es lo mas dificil.\n\nAntonio, gracias por tu ayuda.\n\nSaludos.','',0,'','1wsv9dqi',1,0,'',1245,0,0),(43334,9075,18,239,0,'202.105.66.121',1196995198,1,0,1,1,1,0,'','','Oh, it\'s the \\harbour\\lib\\nulsys.lib  before rdd.lib in  mak.bc  link file caused the problem.\n Also, if you add all the unuseable libs to your link file , do not cause exe bigger but genarates the same size exe.\n  you must add dbfntx.lib and dbfcdx.lib, even if you only use of dbfcdx .\n\nThanks Antonio ,E.M.G. !\n\nShuming Wang','',0,'','3izddhqh',1,0,'',239,0,0),(43335,9057,3,2,0,'87.218.146.107',1196999849,1,0,1,1,1,1,'','','Joaquín,\n\nSolucionado en este build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21214-37967988f5.html\">http://www.hotshare.net/file/21214-37967988f5.html</a><!-- m -->\n\nDe momento los controles propios de FiveWin no se ven como tales, sino vacios. \n\nGracias!','',0,'','i1i52av3',1,0,'',2,0,0),(43336,9093,2,2,0,'87.218.146.107',1196999955,1,0,1,1,1,1,'','','bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','3krh5wq9',1,0,'',2,0,0),(43337,9096,6,2,0,'87.218.146.107',1197000036,1,0,1,1,1,1,'','','Puedes probar a ir abriendo cada uno de ellos y ver hasta cual es capaz de abrir correctamente','',0,'','364srznf',1,0,'',2,0,0),(43338,9098,6,2,0,'87.218.146.107',1197000178,1,0,1,1,1,1,'','','Esteban,\n\nQue versión de FWH estás usando ?\n\nEs que en las versiones más recientes de FWH, el preview se ha convertido en una Clase y ya se tiene mucho más control sobre él que antes','',0,'','1k912ar3',1,0,'',2,0,0),(43339,9075,18,2,0,'87.218.146.107',1197000286,1,0,1,1,1,1,'','','Shuming,\n\nGlad to know that you solved it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','7azmp038',1,0,'',2,0,0),(43341,9104,3,1193,0,'203.73.12.42',1197004000,1,0,1,1,1,0,'','FWH+Codejock RibbonBar','Hi \n\nJust test it and work fine.\n\n[url=http&#58;//img261&#46;imageshack&#46;us/my&#46;php?image=20071207125916qm6&#46;png:h5ezc30y][img:h5ezc30y]http&#58;//img261&#46;imageshack&#46;us/img261/5528/20071207125916qm6&#46;th&#46;png[/img:h5ezc30y][/url:h5ezc30y]\n\n[url=http&#58;//img46&#46;imageshack&#46;us/my&#46;php?image=20071204115206gg1&#46;png:h5ezc30y][img:h5ezc30y]http&#58;//img46&#46;imageshack&#46;us/img46/7627/20071204115206gg1&#46;th&#46;png[/img:h5ezc30y][/url:h5ezc30y]\n\n[url=http&#58;//img146&#46;imageshack&#46;us/my&#46;php?image=20071207130848mr2&#46;png:h5ezc30y][img:h5ezc30y]http&#58;//img146&#46;imageshack&#46;us/img146/4900/20071207130848mr2&#46;th&#46;png[/img:h5ezc30y][/url:h5ezc30y]\n\nRegards,\n\nRichard','',0,'GA==','h5ezc30y',1,0,'',1193,0,0),(43342,9105,3,1181,0,'60.50.117.55',1197005204,1,0,0,0,1,1,'','XLS42.lib','After upgrade form FWH 2.4 to FWH 7.11, there is this message  appearing in EXCEL when a report is exported to EXCEL:\n\n\"Unable to read file\"\n\nIs it due to the old XLS42.lib that I am using (dated 20/10/2003) ?\nAnyone has an updated version ?\n\nThanks','',0,'GA==','vpbiumc4',1,0,'',1181,0,0),(43343,9106,3,239,0,'202.105.66.121',1197005751,1,0,1,1,1,0,'','Share add on method report to xbrowse','METHOD Report( cTitle, lPreview, aHeaders, aFooters, cCaption,lModal ) CLASS TXBrowse\n\n   Local oRpt ,nCols := Len( ::acols ), oldbskip:=::bskip\n   local odevice,cmsg:={\"Print\",\"Date\",\"time\",\"Page\"}    \n\n    oDevice  := TPrinter():New(cmsg[1],.t.)\n    if odevice:hdc==0; odevice:end(); return .f.; end\n    odevice:end()\n       \n     Default cTitle := ::oWnd:GetText(), ;\n           lPreview := .T., ;\n           aHeaders := {cmsg[2] + DTOC(DATE())+ \" \"+cmsg[3]+TIME()},;\n           cCaption := ::oWnd:GetText(), ;\n           lModal := .T.\n                 \n    \n   if EVAL(::beof)\n     if (EVAL(::bBookMark)==EVAL(::bKeycount)+1).and.(len(::aSelected)==1) ; return self ; end    \n     ::SKIP(-1)\n   end \n   if ::nDataType==DATATYPE_MYSQL    //3  \n     ::bskip:=::bskipper    \n   end\n  \n   ::gotop()\n \n     \n\n  If lPreview\n      REPORT oRpt TITLE cTitle CAPTION cCaption  PREVIEW ;\n      HEADER aHeaders[1];             \n      FOOTER cmsg[4] + Str( oRpt:nPage, 3 ) ;\n      CENTER\n  Else\n      REPORT oRpt TITLE cTitle CAPTION cCaption  ;\n      HEADER aHeaders[1];            \n      FOOTER cmsg[4]+ Str( oRpt:nPage, 3 ) ;\n      CENTER\n   EndIf\n\n   oRpt:oDevice:lPrvModal := lModal\n   oRpt:bPostEnd  := {|| ::SetFocus() }\n           \n      For nI := 1 To nCols\n             If  len(::aCols[ nI ]:abitmaps)==0 .and. !::aCols[nI]:lHide\n				\n			ocol:=oRpt:AddColumn( TrColumn():New( { GenHead( ::acols, nI ) },, ;\n						 { GenData( ::aCols, nI ) },::acols[ni]:nwidth*0.11, ;							 \n                           { If( ! Empty( ::acols[ nI ]:cEditPicture), ;\n                            ::acols[ nI ]:cEditPicture, \"\" ) },, ;\n                            ( len(::acols[ nI ]:cFooter)&gt;0 .and.::acols[nI]:nDataStrAlign==1 ),, ;  // prints footings if the column has one (numeric only)\n                            If( ::acols[nI]:nDataStrAlign==1, \"RIGHT\", Nil ),,,, oRpt ) )\n                                    \n              endif\n\n	next\n\n	END REPORT\n\n        oRpt:bSkip := { || oRpt:Cargo := ::rptSKIP(  ) }\n        oRpt:Cargo := 1\n        oRpt:cellview()    // option\n              \n        IF len(::aselected)&gt;0\n          While AScan( ::aSelected, ;\n            If( ::NDATATYPE==DATATYPE_ARRAY,::nArrayAt,eval(::bKeyno)))==0\n               ::skip(1)          \n            End       \n        end       \n      \n\n	ACTIVATE REPORT oRpt ;\n		WHILE If( ::ndatatype == DATATYPE_ARRAY,;\n					 oRpt:nCounter &lt;= Max( ( Eval( ::bLogicLen ) ) - 1, 1 ),;\n					 oRpt:Cargo &gt;= 1 )\n					\n    \n   ::bskip:=oldbskip\n   ::GoTop()\n  \n\nReturn Self\n\n\nStatic Function GenHead( aArray, nPos )\nReturn {|| aArray[nPos]:cHeader }\n\n\nStatic Function GenData( aArray, nPos )\nReturn If( ValType(Eval(aArray[nPos]:bStrData)) != \"U\", ;\n           if(len(aArray[nPos]:cfooter)&gt;=1.and.aArray[nPos]:nfootStrAlign==1,aArray[ nPos ]:bStrData,aArray[ nPos ]:bStrData), {|| \"\" } )  \n         \nMethod Rptskip() class Txbrowse\nlocal n1,n1old\n   \n   \n   n1old:=::skip(1)\n   n1:=n1old\n   \n   IF  len(::aSelected)&gt;0                          \n              While AScan( ::aSelected, If( ::nDatatype==DATATYPE_ARRAY,::nArrayAt,eval(::bKeyno)))==0\n                      n1+=::skip(1) \n                     if ::nDATATYPE&lt;&gt;DATATYPE_ARRAY\n                        if eval(::bKeyno)==eval(::bkeyCount)\n                       n1:=0\n                       exit\n                     end\n                   else\n                    if ::nArrayAt==len(::aArray)  \n                      n1:=0\n                      exit\n                    end\n                 end       \n                 if n1==n1old                    \n                    exit\n                 end   \n                 n1old:=n1 \n                \n              enddo     \n    end     \nreturn n1','',0,'','1j8upd4f',1,0,'',239,0,0),(43344,9017,3,233,0,'218.111.23.107',1197009864,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:15zu4ugd]\n\nTry it this way:\n[code:15zu4ugd]\n#pragma BEGINDUMP \n\n#include &lt;windows&#46;h&gt;\n\nvoid pascal AdsCloseCachedTables&#40; void &#41; \n&#123;\n   MessageBox&#40; 0, &quot;inside AdsCloseCachedTables&quot;, &quot;ok&quot;, 0 &#41;;\n&#125; \n\n#pragma ENDDUMP\n[/code:15zu4ugd][/quote:15zu4ugd]\n\nWhen I got this error, initially I just try to create a stub function [code:15zu4ugd]function AdsCLoseCachedTables&#40;&#41;\nreturn nil[/code:15zu4ugd]\n\nBut that didn\'t solve the problem. Only after putting in Antonio\'s code above does it links with no error. Out of curiousity, why is it so?\n\nOk, back to play with 7.12  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gIA=','15zu4ugd',1,0,'',233,0,0),(43345,9017,3,2,0,'87.218.146.107',1197010979,1,0,1,1,1,1,'','','&gt; Out of curiousity, why is it so? \n\nBecause the linker is requiring a C level function, not a PRG level one <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','168i8y5p',1,0,'',2,0,0),(43346,9077,6,54,0,'189.132.107.5',1197010998,1,0,1,1,1,1,'','Re: Problemas con verce 5.2','[quote=&quot;fgondi&quot;:2tz1tito]Hola,\n\nEn mi aplicación se incluyen 2 archivos de recursos generados con Pelles.\n\n1º Problema:\n  En la versión 4.3 se podía modificar la forma de compilar el archivo .rc hacia .res en el archivo verce0.dat\n  Ahora esto no se puede y tengo que compilar .rc aparte para luego incluir el .res en el proyecto.\n  Esto no me preocupa mucho ya que lo hago con un bat y solucionado.\n\n2º Problema:\n  Los dos archivos .res tienen que estar en la misma carpeta sino avisa que el archivo seleccionado no pertenece a la carpeta de recursos.\n  Lo tengo solucionado incluyendo un copy en bat que antes he mencionado.\n\n3º Problema y mas grave:\n  Al intentar compilar y enlazar con los recursos .res incluidos en el proyecto da un error. \"Fatal: Too many commas on command line:\".\n  Mensaje este que no sucede si sólo introduzco un archivo .res\n\nMuchas gracias por vuestra atención[/quote:2tz1tito]\n\n1. resuelto\n2. la carpeta de los recursos sería la ruta especificada a la hora de crear el proyecto (carpeta de los recursos)\n3. resuelto\n\ntodo esto en la 5.3\n\n<!-- m --><a class=\"postlink\" href=\"http://incos.sytes.net/fivewin\">http://incos.sytes.net/fivewin</a><!-- m -->\n\nsaludos, cualquier duda por aqui andamos','',0,'gA==','2tz1tito',1,0,'',54,0,0),(43347,9095,6,542,0,'88.27.84.200',1197015448,1,0,1,1,1,0,'','','Hola Antonio\n\nMe podrias decir cuales\n\nGracias.','',0,'gA==','22qa2e4w',1,0,'',542,0,0),(43348,9107,3,86,0,'81.83.151.142',1197017007,1,0,1,1,1,1,'','Small question concerning memofields','Hello,\n\nHow do I put a CRLF in a memofield.\n\nIn preparation of my memofield, I need to go the the beginning of new line. How do I do that in my PRG-file ?\n\nI already tried CRLF and CHR(13), but they don\'t work.\n\nThank you very much.','',0,'gA==','3gdhnt1p',1,0,'',86,0,0),(43349,9097,6,1238,0,'217.127.123.34',1197018922,1,0,1,1,1,0,'','Problemas','Saludos Antonio.\n\nLos datos de la base de datos se escribieron y se escriben en DOS. En estos momentos pretendo realizar la conversión de la aplicación para que funciones en Windows y ese es el problema, no he tocado la programación, excepto para pequeñas modificaciones del programa desde el año 1995.\n\nSaludos. Fernando.','',0,'gA==','3336h650',1,0,'',1238,0,0),(43350,8983,3,130,0,'141.51.32.24',1197019020,1,0,1,1,1,1,'','','Dear friends,\n\nI wrote a little tool that manages the conversion from a bitmap into a C array . So you can embed the bitmap in your C file very easily.\n\nMay be it´s useful.\n\nYou can download it here:\n[url=http&#58;//www&#46;hotshare&#46;net/file/21239-2805909689&#46;html:2hlo6vqq]BmpInfo.zip (1.66 MB)[/url:2hlo6vqq]\n\n[url=http&#58;//img135&#46;imageshack&#46;us/my&#46;php?image=bmpinfohg7&#46;jpg:2hlo6vqq][img:2hlo6vqq]http&#58;//img135&#46;imageshack&#46;us/img135/2887/bmpinfohg7&#46;th&#46;jpg[/img:2hlo6vqq][/url:2hlo6vqq]','',0,'GA==','2hlo6vqq',1,0,'',130,0,0),(43351,9097,6,1238,0,'217.127.123.34',1197019045,1,0,1,1,1,0,'','Problemas','Hola FiveWiDi:\n\nMi dirección de correo es <!-- e --><a href=\"mailto:fergonm@telefonica.net\">fergonm@telefonica.net</a><!-- e -->.\n\nGracias y un saludo. Fernando.','',0,'GA==','k04skncd',1,0,'',1238,0,0),(43352,9108,3,51,0,'80.122.88.242',1197019177,1,0,1,1,1,0,'','Handy tool to help you find the  coordinates','Handy tool to help you find the  coordinates designing a window/dialog from source.\nRegards,\nOtto\n[img:31czxlgy]http&#58;//www&#46;atzwanger&#46;com/fw/haircross&#46;jpg[/img:31czxlgy]','',0,'CA==','31czxlgy',1,0,'',51,0,0),(43353,9057,3,456,0,'83.58.86.87',1197019695,1,0,1,1,1,1,'','','Hi Antonio,\n\nhere testing with some RC files I get\n\"Dialog stye not found: DS_3DLOOK\"\n\nI thing this style is unused actually, just to avoid the error if still defined in ol RC.\n\n#define DS_3DLOOK 0x0004L','',0,'CA==','2rugwn8h',1,0,'',456,0,0),(43354,9057,3,456,0,'83.58.86.87',1197020772,1,0,1,1,1,1,'','','Another style \n#define WS_NONE   0x00000000\n\n[code:v2krucgy]CONTROL &quot;Fecha      &quot;, -1, &quot;Static&quot;, 0x00000000, 10, 26, 38, 8[/code:v2krucgy]','',0,'AIA=','v2krucgy',1,0,'',456,0,0),(43355,9109,17,102,0,'87.217.67.22',1197020999,1,0,1,1,1,1,'','Clase Tsbutton Y TwBrowse','Hola foro alguien me puede decir de donde puedo bajar la clase TSBUTTON y TwBROWSE de Hernan para FWH10 \nGracias','',0,'AIA=','2jdkoitn',1,0,'',102,0,0),(43356,9110,20,1009,0,'82.187.221.169',1197023183,1,0,1,1,1,0,'','problema con SetBalloon(.t.)','salve a tutti,\nho un problema con SetBalloon(.t.) per il nuovo look 2007 dei tooltips con fw 7.12.\nnon vedo nessun tooltips sulla buttonbar se nel file rc ho:\n1 24 \"themed.manifest\"\ncome risolvere?\n\nciao, marzio','',0,'AIA=','zfw8utal',1,0,'',1009,0,0),(43357,9107,3,6,0,'87.20.230.36',1197023291,1,0,1,1,1,1,'','Re: Small question concerning memofields','CRLF works fine for me.\n\nEMG','',0,'AIA=','3qb6zh1j',1,0,'',6,0,0),(43358,9110,20,6,0,'87.20.230.36',1197023881,1,0,1,1,1,1,'','Re: problema con SetBalloon(.t.)','A me il seguente esempio funziona regolarmente:\n\n[code:2wl8ljnm]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    SETBALLOON&#40; &#46;T&#46; &#41;\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR OF oWnd 2007;\n           SIZE 33, 33\n\n    DEFINE BUTTON OF oWnd&#58;oBar;\n           FILE &quot;C&#58;\\FWH\\BITMAPS\\OPEN&#46;BMP&quot;;\n           ACTION MSGINFO&#40; &quot;Test&quot; &#41;;\n           TOOLTIP &quot;This is a test&quot;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:2wl8ljnm]\n\nEMG','',0,'AIA=','2wl8ljnm',1,0,'',6,0,0),(43359,9107,3,86,0,'81.83.151.142',1197024268,1,0,1,1,1,1,'','','Enrico,\n\nThanks for you answer.\n\nI made a little mistake in my PRG-file.\n\nSorry for bothering you.\n\nCase is closed.','',0,'AIA=','29452mx3',1,0,'',86,0,0),(43360,9110,20,1009,0,'82.187.221.169',1197024440,1,0,1,1,1,0,'','','grazie per la risposta.\nho provato il tuo esempio che funziona solo se non ho inserito themed.manifest nel file rc che contiene le seguenti righe:\n1  ICON   \"write.ico\"\n1 24 \"themed.manifest\"\n\nquesto è il contenuto del file themed.manifest:\n\n&lt;?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?&gt;\n&lt;assembly xmlns=\"urn:schemas-microsoft-com:asm.v1\" \nmanifestVersion=\"1.0\"&gt;\n&lt;assemblyIdentity\n    name=\"Your.Application.Name.Here\"\n    processorArchitecture=\"x86\"\n    version=\"1.0.0.0\"\n    type=\"win32\"/&gt;\n&lt;description&gt;Windows Shell&lt;/description&gt;\n&lt;dependency&gt;\n    &lt;dependentAssembly&gt;\n        &lt;assemblyIdentity\n            type=\"win32\"\n            name=\"Microsoft.Windows.Common-Controls\"\n            version=\"6.0.0.0\"\n            processorArchitecture=\"x86\"\n            publicKeyToken=\"6595b64144ccf1df\"\n            language=\"*\"\n        /&gt;\n    &lt;/dependentAssembly&gt;\n&lt;/dependency&gt;\n&lt;/assembly&gt;\n\nciao, marzio','',0,'AIA=','1to8imck',1,0,'',1009,0,0),(43361,9111,7,720,0,'80.36.244.134',1197024468,1,0,1,1,1,0,'','Como ejecutar directamente una aplicación al encender el PDA','Hola a todos...\n\n¿Quisiera saber si existe alguna función que haga que al encender el dispositivo PDA, éste lance directamente la aplicación?\n\nO si se pudiera bloquear de alguna forma la barra de inicio de windows con lo que sólo pudiera acceder a lo que tiene el escritorio. \n\nNecesito algo así para que el usuario no esté andando para arriba y para abajo con las configuraciones del dispositivo y asi forzarlo a usar sólo la aplicación que se quiera.\n\nSaludos.\n\nElías Torres.','',0,'AIA=','fd9frckr',1,0,'',720,0,0),(43362,9110,20,1009,0,'82.187.221.169',1197025145,1,0,1,1,1,0,'','','se metto no. 2 themed.manifest:\n1 ICON \"write.ico\"\n2 24 \"themed.manifest\"\n\nfunziona SetBalloon() ma non funziona themed.manifest','',0,'AIA=','2pkf3r7f',1,0,'',1009,0,0),(43363,9112,6,102,0,'87.217.67.22',1197025171,1,0,1,1,1,1,'','TsBUTTON','Hola foro alguin puede decirme de don puedo bajarme la clase TSBUTTON\npara fwh10 y xharbour\nMuchas gracias','',0,'AIA=','12inw1oe',1,0,'',102,0,0),(43364,9110,20,6,0,'87.20.230.36',1197025281,1,0,1,1,1,1,'','','A me funziona anche con il manifest. Questo è il contenuto del mio RC:\n\n[code:3a9tjwo3]1 24 &quot;c&#58;\\fwh\\samples\\winxp\\WindowsXP&#46;Manifest&quot;[/code:3a9tjwo3]\n\nEMG','',0,'AIA=','3a9tjwo3',1,0,'',6,0,0),(43365,9110,20,1009,0,'82.187.221.169',1197026232,1,0,1,1,1,0,'','','1 24 \"c:\\fwh\\samples\\winxp\\WindowsXP.Manifest\"\nanche con questo, e solo questo, continua a non funzionare.\ncosa può essere?\n\nciao, marzio','',0,'AIA=','2u9x3lwg',1,0,'',1009,0,0),(43366,9113,3,51,0,'80.122.88.242',1197027043,1,0,1,1,1,0,'','FWCODESNIPS.COM','[img:1jwb4uwy]http&#58;//www&#46;atzwanger&#46;com/fw/logo_klein&#46;jpg[/img:1jwb4uwy]\nDear collegues,\n\nSince in programming and computing knowledge changes faster than in any other business, we need to manage our most important resources, the demo codes. \nAs far as possible I will track the threads on the forum and collect the code samples for publishing them on <!-- w --><a class=\"postlink\" href=\"http://www.FWcodeSnips.com\">www.FWcodeSnips.com</a><!-- w -->  as one-click compiling demos (for habour). \n\nI hope for your inputs and support. \n\nPlease send your contributions to <!-- e --><a href=\"mailto:info@winhotel.at\">info@winhotel.at</a><!-- e -->, so my daughter – she is the webmaster of <!-- w --><a class=\"postlink\" href=\"http://www.FWcodeSnips.com\">www.FWcodeSnips.com</a><!-- w --> - can put them on the web. \n\nIt would be nice if you could include a short description in your prg-files.\n\nWe hope you like FWCodesnips and find it useful.\n\nRegards,\nOtto\n\nOn the picture  you see me and my daughter, who will be our webmaster. \n[img:1jwb4uwy]http&#58;//www&#46;hochpustertal&#46;at/codesnipys/team&#46;jpg[/img:1jwb4uwy]','',0,'CA==','1jwb4uwy',1,0,'',51,0,0),(43367,9057,3,308,0,'84.148.30.117',1197027049,1,0,1,1,1,0,'','DEFPUSHBUTTON','DEFPUSHBUTTON not works on preview.\n\nRegards Norbert','',0,'CA==','ubhkezv6',1,0,'',308,0,0),(43368,9113,3,105,0,'200.72.140.34',1197027321,1,0,1,1,1,1,'','','Thanks OTTO\n\nVery good idea, specially for those beginning to work with FW, please take care of the bitmaps used in the web, those of download, I can\'t see them.\n\nIf I found something of interest within my code, I\'ll send it to you or your daugther <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nFrom Chile\nAdolfo','',0,'CA==','21gsg0sf',1,0,'',105,0,0),(43369,9104,3,308,0,'84.148.30.117',1197027650,1,0,1,1,1,0,'','','Dear Richard,\n\nhave you an working Source Sample ?\n\nRegards, Norbert','',0,'CA==','1246eta7',1,0,'',308,0,0),(43370,9110,20,6,0,'79.9.233.168',1197027859,1,0,1,1,1,1,'','','Diversa versione di Windows? Io uso XP e tu?\n\nDiversa versione di FWH? Io uso la 7.12 e tu?\n\nVuoi il mio EXE da provare?\n\nEMG','',0,'CA==','3b46epha',1,0,'',6,0,0),(43371,9097,6,2,0,'87.218.146.107',1197028065,1,0,1,1,1,1,'','','Fernando,\n\nSi los datos de la DBF se han escrito desde MsDos, para visualizarlos correctamente tienes que usar OemToAnsi( cContenidoCampo ) --&gt; cTextoCorrecto.\n\nSi capturas datos desde Windows, y los vas a almacenar en la DBF, debes usar Campo := AnsiToOem( cContenidoCampo ), para que así puedan verse bien desde MsDos tambien','',0,'CA==','287nvhpf',1,0,'',2,0,0),(43372,9095,6,2,0,'87.218.146.107',1197028537,1,0,1,1,1,1,'','','Carlos,\n\nEn la Clase TBar busca la llamada a la función Gradient() y verás que usa unos colores nRGB(..., ..., ...). Usa los que necesites.\n\nIgualmente revisa la Clase TBtnBmp y busca la llamada a Gradient().','',0,'CA==','1ilj9kmh',1,0,'',2,0,0),(43374,9115,6,226,0,'201.40.171.78',1197028933,1,0,1,1,1,1,'','arrastar imagem pela DIALOG','amigos, boa tarde \n\nveja se podem me dar uma ajuda nisso... \n\ntenho uma DIALOG ou WINDOW (tanto faz) e nesta tenho uma imagem EMP (ou qualquer outra) ... preciso fazer o seguinte: \n\nclicar com o mouse sobre esta imagem e enquanto o botão do mouse estiver pressionado eu possa arrastar a mesma para qualquer ponto da janela... más a imagem tem que \"navegar\" visivel pela janela enquanto eu arrasto... \n\nse algum colega tiver uma ideia, eu agradeço \n\n[]s.. \n\nMarllon Figueiredo \nAnalista de Sistemas ERP/CRM \nPorto Alegre - RS \n<!-- e --><a href=\"mailto:siscatsoftware@hotmail.com\">siscatsoftware@hotmail.com</a><!-- e --> \nSigLCS Sistema Integrado de Gestão \nApp Siscat Server \nFWH for xHarbour + SQL + SQLRDD + xDevStudio','',0,'','2e5semj7',1,0,'',226,0,0),(43375,9116,6,956,0,'189.22.134.130',1197029428,1,0,1,1,1,1,'','ListBox com duas linhas por registro.','Bom dia a todos...\n\nSei que pode parecer invenção de moda mas é realmente necessário...\n\nTenho uma matriz que preciso exibir em um listbox, e o motivo de exibir em duas linhas é a grande quantidade de colunas.\n\nÉ inadmissível o uso da rolagem horizontal, por isto venho pedir ajuda aos amigos.\n\nComo faço para exibir um listbox com duas linhas por coluna?!?!\n\nAlguem?!','',0,'','2334d4ls',1,0,'',956,0,0),(43376,9115,6,2,0,'87.218.146.246',1197031222,1,0,1,1,1,1,'','','Marllon,\n\nHaz lo siguiente:\n\noBmpControl:lDrag := .T.\n\ny ahora podrás moverlo con el ratón','',0,'','3d97rm82',1,0,'',2,0,0),(43377,9098,6,1104,0,'190.55.44.199',1197031364,1,0,1,1,1,0,'','','Hola Antonio,\nEstoy utilizando la versión FiveWin 7.01.\n\nSaludos,','',0,'','344frwkp',1,0,'',1104,0,0),(43378,9104,3,1193,0,'203.70.2.178',1197031540,1,0,1,1,1,0,'','','[quote=&quot;NK&quot;:2nozxp7m]Dear Richard,\n\nhave you an working Source Sample ?\n\nRegards, Norbert[/quote:2nozxp7m]\n\nHi NK,\n\nyes, but some codes not from FWH\'s ActiveX.\nWe\'re modify new ActiveX for Codejock OCX.\n\nRegards,\n\nRichard','',0,'gA==','2nozxp7m',1,0,'',1193,0,0),(43379,9091,6,1201,0,'200.90.17.154',1197031696,1,0,1,1,1,0,'','','SELECT \n`BDComun`.`TpoDepartamento`.VchCodigo AS Codigo, \n`BDComun`.`TpoDepartamento`.VchDescripcion AS Descripcion, \n`BDComun`.`TpoDepartamento`.TinStatus AS `Status` \nFROM \n`BDComun`.`TpoDepartamento`\n\n\nDebes tener en cuenta que MySql es case sensitivo (Debes respetar lo que está en minusculas y mayusculas)\n\nDBComun            =&gt; Nombre de la Base de Datos\nTpoDepartamento =&gt; Nombre de la tabla\nVchCodigo           =&gt; es el nombre del campo en la tabla\nCodigo                =&gt; es la variable con la que asigna el valor\n\nEl ejemplo que te mandé está de acuerdo con las normas SQL\n(Por eso el uso de las comillas)\n \nEspero que te sirva, Angel...\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','22y95atj',1,0,'',1201,0,0),(43380,9091,6,53,0,'189.139.16.160',1197033588,1,0,1,1,1,1,'','','Ángel:\n\nAhora ya esta más que claro, voy a probar y ya te comantaré.\n\nSaludos','',0,'gA==','5bxes12m',1,0,'',53,0,0),(43381,9117,6,131,0,'194.179.55.36',1197033659,1,0,1,1,1,0,'','Problema con ToolBar y TbMenu','Hola,\ntengo una toolbar conv arios botones y un tbmenu que despliega un menu al hacer click en la parte de la lista desplegable. Quiero que cuando se hace click sobre el botón me despliegue el mismo menu, pero no hay manera. ¿ Alguien sabe como se hace ?\n\nSaludos,\nJosé Luis Sánchez','',0,'gA==','3awzt59n',1,0,'',131,0,0),(43382,9057,3,217,0,'200.159.120.34',1197034318,1,0,1,1,1,0,'','','Antonio,\n\nResource editor is in start phase, then what do you think to create a multilanguage version? \nWe can have version in English, Spanish, Brazilian Portuguese, Chinese etc.\n\nBest regards,\nMaurilio','',0,'gA==','2mp0zz2p',1,0,'',217,0,0),(43383,9113,3,1247,0,'80.122.88.242',1197034575,1,0,1,1,1,0,'','','hello, \n\ni´m looking forward to our fwcodesnips-project. i have to say in advance that i am not specifically a technician, but it interests me a lot. so please have some patience with me.\n\na lot of greetings, \nruth','',0,'gA==','1cbab7d0',1,0,'',1247,0,0),(43384,9113,3,103,0,'189.12.229.204',1197035188,1,0,1,1,1,1,'','','Hello,\n\n   I\'ve sent something to your email, but it returned to me, telling me that it`s not a valid email.\n\nRegards,','',0,'gA==','3t26q2g6',1,0,'',103,0,0),(43385,9118,6,1072,0,'200.83.124.148',1197036122,1,0,1,1,1,0,'','Duda Sobre Workshop','Hola Amigos:\n\nSe que es super basico, pero tengo un problema, estoy usando Workshop y necesito agregar a una dll un BMP, para no cargarlo como un bitmap externo llamado desde el programa, solo que sea parte del dialogo.\n\nSaludos,\nAntonio','',0,'gA==','1wbuzbir',1,0,'',1072,0,0),(43386,9095,6,542,0,'88.27.84.200',1197036323,1,0,1,1,1,0,'','','Gracias Antonio:\n\nLo del barra de botones queda bien con estas dos clases, pero tambien quierto cambiar el color de los menus y de la barra de mensajes, me podrias decir en que classes debo buscar, gracias\n\nCarlos','',0,'gA==','3ml8frx8',1,0,'',542,0,0),(43387,9095,6,2,0,'87.218.146.246',1197037979,1,0,1,1,1,1,'','','Carlos,\n\nPara la barra de mensajes necesitas un bitmap y has de cargarlo en el método Paint():\n[code:23mx1es1]\n   if hBmp == nil &#46;and&#46; &#58;&#58;l2007\n      hBmp = MsgBar2007&#40; &#58;&#58;hDC &#41;\n   endif  \n[/code:23mx1es1]\nEn vez de llamar a MsgBar2007(), llama a LoadBitmap( GetResources(), &lt;cResName&gt; ) en donde &lt;cResName&gt; es el nombre del bitmap en tu fichero de recursos. El bitmap se estirará ajustándose al tamaño de la barra.\n\nEn cuanto al menu, de momento no puedes hacerlo. Necesitas que proporcionemos unos parámetros, ya que la función está integramente en C y el código fuente aún no lo hemos proporcionado','',0,'AIA=','23mx1es1',1,0,'',2,0,0),(43388,9113,3,2,0,'87.218.146.246',1197038253,1,0,1,1,1,1,'','','Hello Ruth,\n\nWelcome to these forums and many thanks for your help on the fwcodesnips-project <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2r6ovi1g',1,0,'',2,0,0),(43389,9057,3,2,0,'87.218.146.246',1197038456,1,0,1,1,1,1,'','','Maurilio,\n\nYes, good idea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nActually we are using very few strings so we can take them to the EXE RC file further on','',0,'AIA=','ckely6zi',1,0,'',2,0,0),(43390,9057,3,2,0,'87.218.146.246',1197038765,1,0,1,1,1,1,'','','Norbert,\n\nDEFPUSHBUTTON support on this new build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21297-4429886aea.html\">http://www.hotshare.net/file/21297-4429886aea.html</a><!-- m -->\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3neeoyk7',1,0,'',2,0,0),(43391,9117,6,2,0,'87.218.146.246',1197038926,1,0,1,1,1,1,'','','José Luis,\n\nAqui está el código y un ejemplo:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8609\">http://fivetechsoft.com/forums/viewtopic.php?t=8609</a><!-- m -->','',0,'AIA=','1jvh3vhz',1,0,'',2,0,0),(43392,9095,6,542,0,'88.27.84.200',1197039110,1,0,1,1,1,0,'','','Gracias Antonio por la información.\n\nUn saludo\n\ncarlos','',0,'AIA=','3vvkppki',1,0,'',542,0,0),(43393,9116,6,2,0,'87.218.146.246',1197039249,1,0,1,1,1,1,'','','Anderson,\n\nPor favor revisa fwh\\samples\\TestArr5.prg','',0,'AIA=','3k5ya6nq',1,0,'',2,0,0),(43394,9113,3,6,0,'82.57.159.227',1197041533,1,0,1,1,1,1,'','','[quote=&quot;Ruth&quot;:lfmw7nfs]hello, \n\ni´m looking forward to our fwcodesnips-project. i have to say in advance that i am not specifically a technician, but it interests me a lot. so please have some patience with me.\n\na lot of greetings, \nruth[/quote:lfmw7nfs]\n\nWelcome! If I\'m not wrong you are the first woman in this forum, or I\'m forgetting someone?\n\nEMG','',0,'gA==','lfmw7nfs',1,1197332426,'',6,1,0),(43395,9116,6,956,0,'189.22.134.130',1197043034,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2ley09na]Anderson,\n\nPor favor revisa fwh\\samples\\TestArr5.prg[/quote:2ley09na]\n\nI need to show two lines for each record!\n\n[code:2ley09na]\n-----------------------------------------------\nItem|Código|Descrição                         |\nPr&#46;Unitário|Quantidade|Desconto|    Pr&#46;Líquido|\n-----------------------------------------------\n001 | 00003|SALMOS CID MOREIRA                |\nR$    9&#46;005|kg       1|   0&#46;00%| R$       9&#46;01|\n-----------------------------------------------\n002 | 01996|PRODUTO COM ESTOQUE INFINITO      |\nR$     1&#46;00|un       1|   0&#46;00%| R$       1&#46;00|\n-----------------------------------------------\n003 | 00009|GRUPO LOGOS - TRIBUTO A0 VIVO     |\nR$    19&#46;90|         2|   0&#46;00%| R$      39&#46;80|\n-----------------------------------------------\n\n[/code:2ley09na]','',0,'gIA=','2ley09na',1,0,'',956,0,0),(43396,9115,6,226,0,'201.40.171.78',1197043058,1,0,1,1,1,1,'','','Antonio, \n\nisto resolve em parte meu problema...\n\neu preciso que a imagem fique visivel enquanto é arrastada!\n\nexiste alguma forma para fazer isto ?\n\nobrigado pela atenção','',0,'gIA=','2wc7n4c9',1,0,'',226,0,0),(43397,9096,6,1236,0,'201.86.91.40',1197043202,1,0,1,1,1,0,'','','gracias','',0,'gIA=','okd3q1q2',1,0,'',1236,0,0),(43398,9117,6,131,0,'83.49.185.230',1197043422,1,0,1,1,1,0,'','','Antonio, con una buttonbar lo tengo hecho. El problema de la toolbar es que no encuentro la manera de pasarle la referencia del objeto botón para luego calcular las coordenadas. En las toolbar, no hay referencia al objeto botón por ningun lado, o eso creo.\n\nSaludos,','',0,'gIA=','317yjo6y',1,0,'',131,0,0),(43399,9113,3,1247,0,'80.122.88.242',1197043436,1,0,1,1,1,0,'','','hello,\n\nthank you all for your welcomes. i will check for various problems regarding the email-adress and the pictures immedeately.\n\na lot of greetings, \nruth','',0,'gIA=','1ylns1wh',1,0,'',1247,0,0),(43400,9057,3,131,0,'83.49.185.230',1197043833,1,0,1,1,1,0,'','','Antonio,\nI don\'t undestand what do you want to do. There are some resources editors very goods and for free. Try the RE from Pelles C, or the one of ResEdit.net both them are very good.\nBut if you want to do a new RE, I want to suggest that the editor helps on positioning the resources on the form. In VisualStudio and REALbasic, the form editor puts some lines when you moves the resources on the form to show the right positioning of them.\n \nRegards,\nJosé Luis\n\nPD, No se que hacemos uno de Alicante y otro de Marbella hablando en pitinglis. Si no me he explicado bien.[/img]','',0,'','2vbxgos8',1,0,'',131,0,0),(43401,9119,6,431,0,'190.142.62.142',1197044946,1,0,1,1,1,1,'','Datos XML','Saludos,\nTengo una aplicación que lee desde un archivo XML y guarda en un DBF pero me salen acentos y ciertos caracteres ilegibles me imagino que en formato utf-8,  como hago para guardar bien estos datos.\n\nhe probado oemtoansi() ansitooem() widetoansi() ansitowide() y ninguna me guarda los datos como quiero.\n\nGracias de antemano.','',0,'','2np83kdt',1,0,'',431,0,0),(43402,9113,3,1247,0,'80.122.88.242',1197045640,1,0,1,1,1,0,'','','hello fivewinners, \n\nwe have made a little change to the email-adress. now it´s:\n\n[size=150:3s7h8eqd][b:3s7h8eqd]info@winhotel.net[/b:3s7h8eqd][/size:3s7h8eqd]\n\nthis should work...\n\nlots of greetings, \nruth','',0,'RA==','3s7h8eqd',1,0,'',1247,0,0),(43403,9110,20,1009,0,'87.11.247.174',1197045987,1,0,1,1,1,0,'','','fivewin 7.12 xHarbour 1.0.0 appena installati su windows xp sp2.\nho fatto una prova a casa e qui va bene setBalloon() insieme a themed.manifest,\nmi sono copiato l\'exe da provare in ditta lunedì.\npenso di provare anche a reinstallare bcc55 forse c\'e qualche problema li.\n\ngrazie e ciao, marzio','',0,'RA==','9jshn3df',1,0,'',1009,0,0),(43404,9097,6,1238,0,'217.127.123.34',1197048384,1,0,1,1,1,0,'','Problemas','Antonio.\n\nMuchas gracias y un saldo. Fernando.','',0,'RA==','1t6xwdde',1,0,'',1238,0,0),(43405,9031,3,1168,0,'84.121.87.247',1197048385,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:3gm9ho0y]Hello Antonio, thank you for your post.\nI hope I understood all well. I know some Italian and I used \nBabel Fish.\nI think I do the same thing as you but with multiEdit. \nI have templates for diverse task &lt;ALT&gt; F9 and then I have a \ndialog, … .\nBut the IDE is not so much a necessity for us who know FW since \nyears but for new users. If there is no drag &amp; drop around then\na language it is out of fashion for the younger generation! \nIt is a matter of fact that we need a broad user basis. Otherwise \na language has no bright future.\nIf you take VB.NET’s IDE  then I have to say compared to VB6 it\nis very difficult for a beginner.  VB6 is a discharged model a newcomer\nwon’t select. \n\nSo  with an easy to handle IDE Fivewin could be their choice  and\ntake the place CLIPPER had in the market.\n\nI my opinion this must be our main goal -I mean beside making our own programs the best.\nRegards,\nOtto[/quote:3gm9ho0y]\nOtto,\nIagree with you: perhaps necessary for beginners for expand fw in the world.....\nRegards.','',0,'gA==','3gm9ho0y',1,0,'',1168,0,0),(43406,8213,7,1135,0,'189.137.183.222',1197048795,1,0,1,1,1,1,'','','Antonio:\nPor falta de tiempo se me habia pasado cerrar este asunto del IRDA.\nLa impresion por IRDA trabaja correctamente con el ejemplo de que hablabamos, unicamente cambie el archivo de cabecera:\nwnisock2 por winsock eso fue todo! y asunto solucionado.\nSaludos.\n\n\n[quote=&quot;Antonio Linares&quot;:e5skxprl]Arturo,\n\nEsta es la línea que falla:\nif( ( sock = socket( AF_IRDA, SOCK_STREAM, 0 ) ) == INVALID_SOCKET )\n\na ver que podemos cambiar ahí...[/quote:e5skxprl]','',0,'gA==','e5skxprl',1,0,'',1135,0,0),(43407,9057,3,490,0,'87.218.84.24',1197048831,1,0,1,1,1,0,'','Otro diálogo que no va','Hola Antonio,\n\nOtro díalogo que rompe la aplicación:\n\nPANF0212 DIALOG LOADONCALL MOVEABLE DISCARDABLE 11, 73, 392, 171\nSTYLE 0x4L | WS_CHILD\nFONT 8, \"MS Sans Serif\"\n{\n CONTROL \"\", 308, \"TcBrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 0, 16, 388, 119\n RTEXT \"VENCIMIENTOS DE LA FACTURA\", 101, 143, 3, 244, 13\n RTEXT \"Total Vtos.:\", 102, 69, 142, 34, 10\n RTEXT \"Total Cobrado:\", 104, 166, 142, 47, 10\n RTEXT \"\", 103, 105, 142, 60, 10, SS_RIGHT | WS_BORDER | WS_GROUP\n RTEXT \"\", 105, 215, 142, 60, 10, SS_RIGHT | WS_BORDER | WS_GROUP\n RTEXT \"Total Pendiente:\", 106, 276, 142, 50, 10\n RTEXT \"\", 107, 328, 142, 60, 10, SS_RIGHT | WS_BORDER | WS_GROUP\n PUSHBUTTON \"&lt;F12&gt; Modifica\", 309, 2, 140, 64, 13, NOT WS_TABSTOP\n}\n\nUna vez pasada la 1ª fase, ¿has pensado pasar re.exe a POO? Daría mucha flexibilidad para ampliarla con nuevas clases como la del idioma.\n\nY otra cosa, ¿Has pensado recompilarla con fw Mac y Linux ? porque si no se usan cosas \"extrañas\" debería funcionar y el .rc es multiplataforma.\n\n\n\nUn Saludo,\nJoaquín','',0,'gA==','yr7yywxm',1,0,'',490,0,0),(43408,9057,3,2,0,'87.218.146.246',1197051762,1,0,1,1,1,1,'','','José Luis,\n\n&gt; No se que hacemos uno de Alicante y otro de Marbella hablando en pitinglis. \n\nTienes toda la razón <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nLa cuestión es que bastantes usuarios de FiveWin quieren un editor de recursos de 32 bits y no están satisfechos con los que hay (?) así que pensé que podríamos escribir uno en FiveWin y así podemos modificarlo como queramos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEl tema de las líneas que comentas lo hace tambien el \"Interface Builder\" de Mac OSX. Te ayuda a centrar, distribuir, etc. Es algo que tambien se puede hacer','',0,'gA==','7x1kxqac',1,0,'',2,0,0),(43409,9120,6,63,0,'88.6.226.96',1197053171,1,0,1,1,1,0,'','OnResize para una ventana','Cuando cambio el tamaño de una ventana, puedo ver continuamente su altura mediante: [code:ev3n8vr1]\n&#58;&#58;OnResize &#58;= &#123;|r,c,f|  MsgInfo&#40;&#58;&#58;nHeight&#41;&#125;\n@ 20,20 Say &#58;&#58;cTxt &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n[/code:ev3n8vr1]\nPero ¿cómo hago para detectar el momento en que libero el botón izquierdo y poder leer el tamaño de la ventana en ese momento?.  bLButtonUp := {|r,c| MsgInfo(Str(::nHeight))}  no parece funcionar cuando el cursor está en un vértice de la ventana\nGracias\nRafael','',0,'AIA=','ev3n8vr1',1,0,'',63,0,0),(43410,9057,3,131,0,'83.53.155.185',1197054615,1,0,1,1,1,0,'','','Lo de las lineas de ayuda para alinear los controles es algo que te quita una cantidad de tiempo tremenda, pero los editores de recursos que yo conozco que lo hagan en Windows son de entornos de desarrollo cerrados, y no salvan RC.\nAl interface builder le tengo unas ganas que no te puedes imaginar. Mira en la cebecera de mi blog a ver si te suena...\nSaludos,','',0,'AIA=','33c2ti82',1,0,'',131,0,0),(43411,9101,6,1104,0,'200.115.249.127',1197055992,1,0,1,1,1,0,'','','Hola Marcelo,\nProbé esto que me dices pero aplica la alinieación a toda la columna completa, yo necesito que solo aplique la alineación al título de la columna, y a los datos de cada línea no.\n\nDe todas maneras muchas gracias.\nSaludos, Esteban','',0,'AIA=','xzujxauh',1,0,'',1104,0,0),(43412,9121,6,1236,0,'201.86.91.40',1197056716,1,0,1,1,1,0,'','Microsoft Visual C ou Borland C?','Antonio,  alguma diferença em usar um ou outro com o FWH7.01 + xHarbour 99.71?\n\nGrato','',0,'AIA=','2f3nutzg',1,0,'',1236,0,0),(43413,9101,6,53,0,'189.139.16.160',1197056747,1,0,1,1,1,1,'','','Esteban:\n\nPudes definir la columna con la alineación deseada, en tu caso centrada y despues utilizar el método ON CHANGE de la clase TReport para ir a una función donde imprimas el detalle con oReporte:Say( ,RPT_RIGHT) y ahí alinear el detalle de las columnas\n\nSaludos','',0,'AIA=','1ahqwoxp',1,0,'',53,0,0),(43414,9121,6,362,0,'200.158.19.80',1197057150,1,0,1,1,1,1,'','Re: Microsoft Visual C ou Borland C?','[quote=&quot;FWHISHOW&quot;:1xladqtb]Antonio,  alguma diferença em usar um ou outro com o FWH7.01 + xHarbour 99.71?\n\nGrato[/quote:1xladqtb]\n\n\nMANTENHA-SE EM BORLAND C.','',0,'gA==','1xladqtb',1,0,'',362,0,0),(43416,9097,6,474,0,'189.141.106.103',1197069357,1,0,1,1,1,1,'','Re: Problemas','[quote=&quot;fergonm&quot;:26k9te26]Antonio.\n\nMuchas gracias y un saldo. Fernando.[/quote:26k9te26]','',0,'gA==','26k9te26',1,0,'',474,0,0),(43417,9097,6,474,0,'189.141.106.103',1197069418,1,0,1,1,1,1,'','','[quote][/quote]','',0,'','3j6jpd0h',1,0,'',474,0,0),(43418,9097,6,474,0,'189.141.106.103',1197069438,1,0,1,1,1,1,'','','[quote][/quote]','',0,'','22237pwk',1,0,'',474,0,0),(43419,9097,6,474,0,'189.141.106.103',1197069486,1,0,1,1,1,1,'','Re: Problemas','[quote=&quot;fergonm&quot;:2f830ddw]Saludos Antonio.\n\nLos datos de la base de datos se escribieron y se escriben en DOS. En estos momentos pretendo realizar la conversión de la aplicación para que funciones en Windows y ese es el problema, no he tocado la programación, excepto para pequeñas modificaciones del programa desde el año 1995.\n\nSaludos. Fernando.[/quote:2f830ddw]','',0,'gA==','2f830ddw',1,0,'',474,0,0),(43420,9104,3,1158,0,'200.159.198.27',1197069649,1,0,1,1,1,0,'','','can you share?','',0,'gA==','2980bpil',1,0,'',1158,0,0),(43421,9112,6,439,0,'200.125.50.31',1197069772,1,0,1,1,1,1,'','Re: TsBUTTON','[quote=&quot;jmua&quot;:36llk1j0]Hola foro alguin puede decirme de don puedo bajarme la clase TSBUTTON\npara fwh10 y xharbour\nMuchas gracias[/quote:36llk1j0]\n\n\nla encontraras aqui junto a muchas otras\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6849\">http://fivetechsoft.com/forums/viewtopic.php?t=6849</a><!-- m -->','',0,'gA==','36llk1j0',1,0,'',439,0,0),(43422,9123,6,1106,0,'190.64.164.53',1197071260,1,0,1,1,1,0,'','Es posible asignarle un Font a Buttonbar?','Gracias\n\n\nRuben Fernandez','',0,'gA==','3bxkexn3',1,0,'',1106,0,0),(43423,9124,6,72,0,'189.146.239.78',1197071415,1,0,1,1,1,0,'','Aniversario y obsequio!','¡Les comparto que hace 50 años se hizo la luz!\n\nEste día ocho de diciembre llego al medio siglo, ¡vivito y coleando! ; como no espero regalos me atrevo a obsequiarles un poco de código que uso en mis aplicaciones y creo será de utilidad para ahorrar trabajo con esta excelente herramienta ¡FiveWin!:\n \n- Visor de Tablas, entre otros permite:  revisar el contenido de cualquier DBF y extraer los datos para emitir cualquier reporte o archivo (pantalla, impresora, texto o excel).\n\n[url=http&#58;//img442&#46;imageshack&#46;us/my&#46;php?image=obsequioxe6&#46;jpg:2upj8ce6][img=http://img442.imageshack.us/img442/8393/obsequioxe6.th.jpg][/url:2upj8ce6]\n \n- Diseño de Formatos, con este he podido diseñar prácticamente cualquier documento (pólizas, cheques, facturas, recibos, etc).\n \n- Control de Mensajes, un pequeño programa para envío de mensajes entre usuarios de la aplicación.\n \nDescargas:  <!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/Obsequio.zip\">http://www.despachoarteaga.com.mx/Obsequio.zip</a><!-- m -->\n \nSe aceptan mejoras y sugerencias. Disfrútenlo!  \n \nAlfredo Arteaga\n \n<!-- w --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx\">www.despachoarteaga.com.mx</a><!-- w -->\n<!-- e --><a href=\"mailto:soporte@despachoarteaga.com.mx\">soporte@despachoarteaga.com.mx</a><!-- e -->','',0,'EA==','2upj8ce6',1,0,'',72,0,0),(43424,9057,3,2,0,'87.218.146.98',1197072228,1,0,1,1,1,1,'','','José Luis,\n\n&gt;\nAl interface builder le tengo unas ganas que no te puedes imaginar. Mira en la cebecera de mi blog a ver si te suena...\n&gt;\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nYo ya me defendia lo suficiente con él en Tiger, pero ahora en Leopard lo han cambiado y necesito saber como poder derivar nuevas classes. En fín, aprendiendo siempre <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','104z808w',1,0,'',2,0,0),(43425,9124,6,935,0,'200.62.80.187',1197072353,1,0,1,1,1,1,'','aportes excelentes','Alfredo,\n\nFeliz cumpleaños y que sean muchos mas.........falta mucho camino por recorrer, gracias personalmente por tus aportes siempre han sido excelentes,\n\nSaludes \n\nDesde Managua, Nicaragua\nRamon Antonio Paredes','',0,'EA==','2n5tif9d',1,0,'',935,0,0),(43426,5270,3,1181,0,'218.111.65.110',1197073307,1,0,0,0,1,1,'','Epreview.exe','Hi,\n\nI don\'t speek Spanish, but I have the same problem with Epreview.exe. The same error message. Has anyone found the solution to this.\n\n\nThanks','',0,'EA==','2ooteqgu',1,0,'',1181,0,0),(43427,9104,3,34,0,'68.5.217.82',1197073590,1,0,1,1,1,1,'','Codejock','I looked at Codejock for the calender controls.  It appeared to be a decent set of controls, and my communication with the techs was pleasant.  However, they are unfamiliar with xBase languages, ie. xHarbour, and there was an issue of a clean interface to .dbf files.\n\nWe have several threads on this forum regarding Codejock and no one seemed to have worked through using the product in an application.\n\nWe\'ll be interested in seeing what you share on the subject.','',0,'EA==','2mwy7m4h',1,0,'',34,0,0),(43428,9124,6,1106,0,'190.64.164.53',1197073625,1,0,1,1,1,0,'','','Alfredo:\n\nQUE LOS CUMPLAS MUY FELIZ.\nYo ya los tengo dede hace 7 meses, hay que dar gracias \ntodos los dias por llegar.\n\nSaludos desde Uruguay\n\nRuben Fernandez.','',0,'EA==','eki134x1',1,0,'',1106,0,0),(43429,9125,3,63,0,'88.11.29.98',1197074084,1,0,1,1,1,0,'','Resizing a window','When resizing a window, I can see continuously its vertical size with the following code:\n[code:kq40og3h]&#58;&#58;OnResize &#58;= &#123;|r,c,f|  &#58;&#58;cTxt &#58;= Str&#40;&#58;&#58;nHeight&#41;&#125; \n@ 20,20 Say &#58;&#58;cTxt &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; \n[/code:kq40og3h]\nBut, how can I detect the moment when I release the left button so that I can save the window size at that moment?  I have tried  \nbLButtonUp := {|r,c| MsgInfo(Str(::nHeight))} but it does not seem to work when the cursor in over a window corner or border.\nThanks \nRafael','',0,'AIA=','kq40og3h',1,0,'',63,0,0),(43430,9104,3,303,0,'72.220.181.80',1197074396,1,0,1,1,1,0,'','','Tim,\n\nHow do they handle the data--as a recordset? We should be able to save a recordset to a dbf without too much trouble.\n\nJames','',0,'AIA=','37kia7xm',1,0,'',303,0,0),(43431,9126,3,1181,0,'218.111.65.110',1197075231,1,0,0,0,1,1,'','lEditCol','Hi,\n\nWhere can I find out more about this lEditCol.\nThanks','',0,'AIA=','3s6yzue8',1,0,'',1181,0,0),(43432,9124,6,424,0,'189.136.132.238',1197075355,1,0,1,1,1,0,'','¡Muchas felicidades!','Espero que lo pases de lo mejor y sigan los logros personales y profesionales. Espero que pronto nos veamos para echarnos un tequilita a su salud.... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nRodolfo MG','',0,'AIA=','115d4g71',1,0,'',424,0,0),(43433,5270,3,343,0,'24.173.70.25',1197075761,1,0,1,1,1,0,'','','I don\'t know what versions you are using, but I had a similar array bound error when I upgraded awhile back. \n\nHe sent me an updated version.','',0,'AIA=','2w9suo9x',1,0,'',343,0,0),(43434,9124,6,940,0,'201.143.97.115',1197075938,1,0,1,1,1,1,'','','Alfredo , \n\nfeliz cumpleaños y gracias por la aportacion,\n\nun abrazo,,\n\nte debo un Mezcal de oaxca jeje..\n\nsalduos..','',0,'AIA=','661x0yrb',1,0,'',940,0,0),(43435,5270,3,1181,0,'218.111.65.110',1197076224,1,0,0,0,1,1,'','EasyPreview','Great!\n\nCan I have the update. I upgraded from FWH2.4 to FWH7.11.\n\n\nThanks in advance.','',0,'AIA=','4hnk15zl',1,0,'',1181,0,0),(43436,9127,3,239,0,'202.105.66.121',1197077277,1,0,1,1,1,0,'','Share add on xbrowse  method save() as dbf,excel','METHOD Save() CLASS TXBrowse\nLOCAL oExcel, oHoja\nLOCAL nRow := 1, nCol,i,i2,nchoice:=1,lok:=.f.\nLOCAL cBuffer \nlocal cDBF\nLOCAL cValue  \nLOCAL cTable  \nLOCAL nHandle \nLOCAL nFields \nLOCAL nField  \nLOCAL nPos    ,ofont14,odlg2,cvaltype\nLOCAL aarray1 \nlocal Arry1:={},arry2:={},cfile1:=\"d:\\aaa.dbf\"+SPACE(15),arry3,cAlias1,utmpvar,utmpvar1\nlocal noldrowsel:=::nrowsel\n\n  if Eval(::bKeyCount)==0; Return \"\"; End\n\n  nchoice:=Alert(\"Save as\",{\"Excel\",\"DBF\",\"XML\"})\n\nDo case\n\n Case Nchoice==1\n \n oExcel :=CreateObject( \"Excel.Application\")\n oExcel:WorkBooks:Add()\n oHoja := oExcel:ActiveSheet()\n\n   Eval(::bGotop)\n    i2:=1\n   for i:=1 to len(::Acols)\n    if !::acols[i]:lhide\n      oHoja:Cells( nRow, i2 ):Value := ::acols[i]:cHeader\n      i2++\n     end \n   NEXT\n   Eval(::bGotop)\n \n   DO WHILE !Eval(::bEof)\n      if len(::aSelected)&gt;0.and.aScan(::aSelected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n      nRow++\n      i2:=1\n      FOR nCol := 1 TO len(::Acols) \n        if !::acols[ncol]:lhide     \n           utmpvar1:=EVAL(::acols[nCol]:bStrdata)\n           if VALTYPE(utmpvar1)==\"U\".or.valtype(utmpvar1)==NIL.or.VALTYPE(utmpvar1)==\"D\".and.utmpvar1==CTOD(\"..\")\n               utmpvar:=\" \" \n            elseif VALTYPE(utmpvar1)==\"D\"           \n               utmpvar:=LEFT(DTOC(utmpvar1),4)+\"-\"+SUBSTR(DTOC(utmpvar1),6,2)+\"-\"+RIGHT(DTOC(utmpvar1),2)\n            \n            else\n            \n              utmpvar:=utmpvar1\n           end               \n           if VALTYPE(utmpvar)==\"C\"\n               oHoja:Cells( nRow, i2 ):NumberFormat := \"@\"\n           end\n                    \n           oHoja:Cells( nRow, i2 ):Value := utmpvar\n           \n           i2++\n        end \n      NEXT\n      Eval(::bSkip)\n   ENDDO\n\n   FOR nCol := 1 TO  len(::aCols)\n      oHoja:Columns( nCol ):AutoFit()\n   NEXT\n\n   oExcel:Visible := .T.\n\n   //oHoja:End()\n  // oExcel:End()\n  \n case  nchoice==2\n     \n  if !MsgGet(\"file name first must a letter\",\"Save to path and filename\",@cFile1)\n     \n     return NIL\n  end\n   cFile1:=alltrim(cFile1) \n   \n   	aarray1:={}\n		 \n		 DEFINE dialog odlg2  from 4,6 to len(::acols)*2+5,50 title \" Save to DBF\"  \n		 // style nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU ,WS_VSCROLL)\n		 i:=1\n		 i2:=1\n		for i:=1 to len(::acols)\n		    if !::acols[i]:lhide\n			 @i2*0.86,2 say ::acols[i]:cheader of odlg2\n			 AADD(aarray1,\"a\"+padl(cvaltochar(i2),3,\'0\')+space(11))		         \n			 TGet():New( i2, 5, GenLocalBlock( aarray1, i2), odlg2, 75,12 )			\n			 i2++\n		    end	 \n		next\n			\n		@1,22 BUTTON \"&amp;OK\" OF odlg2 ACTION (lok:=.t.,odlg2:end())\n		@2,22 BUTTON \"&amp;Exit\" OF odlg2 ACTION odlg2:end()\n\n	 ACTIVATE DIALOG odlg2 CENTER\n	 \n         if !lok; return nil; end\n   i2:=1\n  for i:=1  to len(::aCols)\n     \n     if !::acols[i]:lhide\n        utmpvar:=EVAL(::acols[i]:bStrdata)\n        cvaltype:=valtype(utmpvar)\n        if cvaltype&lt;&gt;\"D\".and.cvaltype&lt;&gt;\"L\".and.cvaltype&lt;&gt;\"C\".and.cvaltype&lt;&gt;\"N\"\n           cvaltype:=\"C\"\n        end          \n        \n        aadd(Arry2,{aarray1[i2],cvaltype,max(len(cvaltochar(utmpvar)),int(::acols[i]:nWidth/7)),if(cvaltype==\"N\",len(cvaltochar(utmpvar))-at(\".\",cvaltochar(utmpvar)),0)})\n       \n        i2+=1\n     end  \n  next\n  dbcreate(cFile1,Arry2)\n  use (cfile1)  new\n  cAlias1:=alias()\n  \n  Eval(::bGoTop)\n  while !Eval(::bEof)\n     if len(::Aselected)&gt;0.and.Ascan(::Aselected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n     select (cAlias1)\n     append blank\n     i2:=1\n     for i:=1 to len(::acols)           \n       if !::acols[i]:lhide\n        utmpvar:=eval(::acols[i]:bStrdata)\n        select (cAlias1)\n        fieldput(i2,if(valtype(utmpvar)==\"U\".or.valtype(utmpvar)==NIL,cvaltochar(utmpvar),utmpvar))\n        i2++\n       end \n     next\n     Eval(::bSkip)\n end\n select (cAlias1)\n close\n  msginfo(trans2(\"saved as \")+cfile1)\n\n  case Nchoice==3\n        if !MsgGet(\"Save as\",\"Path and file name\",@cFile1)\n            return NIL\n        end\n                          \n		aarray1:={}\n		 \n		 DEFINE dialog odlg2  from 4,6 to len(::acols)*4+5,50 title \"Save as XML\" \n		 i:=1\n		 i2:=1\n		 \n		for i:=1 to len(::acols)\n		    if !::acols[i]:lhide\n			 @i2*0.9,2 say ::acols[i]:cheader of odlg2\n			 AADD(aarray1,padr(::acols[i]:cheader,15,\" \"))		         \n			 TGet():New( i2, 5, GenLocalBlock( aarray1, i2), odlg2, 75,12 )			\n		    \n		    i2++\n		    end\n		next\n				\n		@i2,6 BUTTON \"&amp;OK\" ACTION (lok:=.t.,odlg2:end())\n		@i2,12 BUTTON \"&amp;Exit\" ACTION odlg2:end()\n\n	 ACTIVATE DIALOG odlg2 CENTER\n	 \n         if !lok; return nil; end\n         \n         cfile1:=alltrim(cfile1)     \n         cDBF   := lower(cfile1)                       \n         cFile1  := StrTran( cfile1, \".dbf\", \".xml\" )  \n         if !\".xml\"$cfile1\n           cfile1+=\".xml\"\n         end   \n         cTable := Left( cDbf, At( \".\", cfile1 ) - 1 )\n         \n         nHandle := fCreate( cFile1 )\n         \n        // Writes XML header \n       fWrite( nHandle, [&lt;?xml version=\"1.0\" encoding=\"latin1\" ?&gt;] + CRLF )\n       fWrite( nHandle, Space( 0 ) + \"&lt;\"  + cDbf + \"&gt;\" + CRLF )\n\n       Eval(::bGoTop)      \n       while !Eval(::bEof)\n             \n             if len(::Aselected)&gt;0.and.Ascan(::Aselected,(Eval(::bKeyNo)))==0; Eval(::bSkip); loop; end\n          \n             cBuffer := Space( 2 ) + \"&lt;\" + cTable + \"&gt;\"  + CRLF\n             fWrite( nHandle, cBuffer )\n             i2:=1\n             for i:=1 to len(::acols)   \n                if !::acols[i]:lhide\n                  cBuffer:= Space( 4 ) + \"&lt;\" + aarray1[i2] + \"&gt;\"\n                  utmpvar:=eval(::acols[i]:bStrdata)                \n                  DO CASE\n                      CASE valtype(utmpvar) == \"D\"\n                            cValue := Dtos(utmpvar)\n\n                      CASE valtype(utmpvar) == \"N\"\n                            cValue := Str( utmpvar)\n\n                      CASE valtype(utmpvar) == \"L\"\n                           cValue := If( utmpvar, \"True\", \"False\" )\n\n                      OTHERWISE\n                           cValue := cvaltochar(utmpvar)\n                  ENDCASE\n                  \n                   cValue:= strTran(cValue,\"&amp;\",\"&amp;amp;\")\n                   cValue:= strTran(cValue,\"&lt;\",\"&amp;lt;\")    \n                   cValue:= strTran(cValue,\"&gt;\",\"&amp;gt;\")    \n                   cValue:= strTran(cValue,\"\'\",\"&amp;apos;\")  \n                   cValue:= strTran(cValue,[\"],[&amp;quot;])  \n                                                          \n                   cBuffer := cBuffer             + ;     \n                              Alltrim( cValue )   + ;     \n                              \"&lt;/\"                + ;     \n                              aarray1[i2]+ ;     \n                              \"&gt;\"                 + ;     \n                              CRLF                        \n                                                          \n                   fWrite( nHandle, cBuffer ) \n                   i2++\n                endif               \n             next\n             fWrite( nHandle, Space( 2 ) + \"&lt;/\" + cTable + \"&gt;\"  + CRLF )\n             Eval(::bSkip)\n       end\n       fWrite( nHandle, Space(0) + \"&lt;/\" + cDbf + \"&gt;\" + CRLF )\n       fClose( nHandle )\n       msginfo(trans2(\"Saved as \")+cfile1)\n endcase \n \n  // Eval(::bGoTo)\n   ::setfocus()\n   ::refresh() \nreturn cfile1','',0,'','1fk1ffsg',1,0,'',239,0,0),(43437,9104,3,1193,0,'203.70.2.178',1197077888,1,0,1,1,1,0,'','Re: Codejock','[quote=&quot;TimStone&quot;:3ewjpda2]I looked at Codejock for the calender controls.  It appeared to be a decent set of controls, and my communication with the techs was pleasant.  However, they are unfamiliar with xBase languages, ie. xHarbour, and there was an issue of a clean interface to .dbf files.\n\nWe have several threads on this forum regarding Codejock and no one seemed to have worked through using the product in an application.\n\nWe\'ll be interested in seeing what you share on the subject.[/quote:3ewjpda2]\n\nHi TimStone,\n\nYes, Codejock Calendar will be make plan for us.\nNow is working below:\nRibbonbar\nMenu\nButtonbar\nTaskbarPanel\nStatusBar\nPoupuControl\nOutLookBar\nSkinFrameWork\n\nThese controls support any Office style( 2000,xp,2003,2007 )\n\nRegards,\n\nRichard','',0,'gA==','3ewjpda2',1,0,'',1193,0,0),(43438,9124,6,73,0,'201.127.73.111',1197080302,1,0,1,1,1,0,'','','Feliz Dia, que vengan muchos mas...\nSalud, trabajo y exito... mis mejores deseos, dentro de 8 te alcanzo,, al menos compartimos otra cosa mas, SAGITARIO!!!\nun abrazo master, sinceramente.\nPaco\nP.D. tus aportaciones de codigo son fabulosas, yo quiero expresar aqui que he sido uno de los afortunados que por medio de tus demos, he logrado mejorar mis sistemas, grandes ideas.','',0,'gA==','1wdjngaw',1,0,'',73,0,0),(43439,9124,6,53,0,'189.139.16.160',1197081986,1,0,1,1,1,1,'','','Alfredo:\n\nSolo te puedo decir F E L I C I D A D E S !\n\nEso es a lo que yo llamo GENEROSIDAD !\n\nSalud(glu glu glu), salud y saludos','',0,'gA==','vg23t12f',1,0,'',53,0,0),(43440,9104,3,400,0,'201.92.34.111',1197083247,1,0,1,1,1,1,'','','Could anybody feel more details of how to work with FWH+Codejock RibbonBar?  \n  \nDo I have to use some Lib?  \n  \nWhich tool should use?  \n  \nIs it possible I to develop my own Themes?\n\nRegards, \n\nAle','',0,'gA==','2b0epmn2',1,0,'',400,0,0),(43441,9124,6,396,0,'200.71.186.108',1197087561,1,0,1,1,1,1,'','','Siempre he dicho que lo unico que le envidio a la gente es la VEJEZ, ya que es algo que no se puede obtener por si mismo, ni comprarla, por eso FELICITACIONES de corazon y dale gracias a Dios en todo momento y te medio siglo mas de vida o por lo menos cerquita... <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->  gracias por el aporte, se que nos servira. GRACIAS.!','',0,'gA==','19nv3qvx',1,0,'',396,0,0),(43443,9129,3,190,0,'124.7.114.182',1197091787,1,0,1,1,1,0,'','Mr.Enrico\'s FTP.PRG Sample','Hi Mr.Enrico \n\nCan I get FTP.PRG developed by you alongwith some working sample please ?. \n\n\n- Ramesh Babu P \n<!-- e --><a href=\"mailto:aksharasoft@hotmail.com\">aksharasoft@hotmail.com</a><!-- e -->','',0,'gA==','9a3sb7va',1,0,'',190,0,0),(43444,8726,6,131,0,'83.53.158.95',1197104043,1,0,1,1,1,0,'','','Antonio,\nel geekbench de 32 bits en mi equipo con Windows Vista es de 2076. \n\nSaludos,','',0,'gA==','18w3qr8r',1,0,'',131,0,0),(43445,8726,6,131,0,'83.53.158.95',1197104090,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://browse.geekbench.ca/geekbench2/view/27962\">http://browse.geekbench.ca/geekbench2/view/27962</a><!-- m -->','',0,'gA==','1q82gcdp',1,0,'',131,0,0),(43446,9129,3,6,0,'87.18.215.110',1197106003,1,0,1,1,1,1,'','Re: Mr.Enrico\'s FTP.PRG Sample','Here it is:\n\n[code:1lpzygyr]#include &quot;Fivewin&#46;ch&quot;\n\n\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hInternet, hConnect\n\n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INTERNETCONNECT&#40; hInternet, &quot;myftpaddress&quot;, INTERNET_INVALID_PORT_NUMBER, &quot;myuserid&quot;, &quot;mypassword&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n    ? FTPGETFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, &quot;atest&#46;prg&quot;, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n\n//    ? FTPPUTFILE&#40; hConnect, &quot;atest&#46;prg&quot;, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, 0, 0 &#41;\n\n    INTERNETCLOSEHANDLE&#40; hConnect &#41;\n\n    INTERNETCLOSEHANDLE&#40; hInternet &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; INTERNETOPEN &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetOpen&#40; hb_parc&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41;\n&#123;\n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCONNECT &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parc&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPGETFILE &#41;\n&#123;\n    hb_retl&#40; FtpGetFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parl&#40; 4 &#41;, hb_parnl&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPPUTFILE &#41;\n&#123;\n    hb_retl&#40; FtpPutFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPDELETEFILE &#41;\n&#123;\n    hb_retl&#40; FtpDeleteFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPCREATEDIRECTORY &#41;\n&#123;\n    hb_retl&#40; FtpCreateDirectory&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPREMOVEDIRECTORY &#41;\n&#123;\n    hb_retl&#40; FtpRemoveDirectory&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPFINDFIRSTFILE &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; FtpFindFirstFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, &#40; WIN32_FIND_DATA * &#41; hb_parc&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETFINDNEXTFILE &#41;\n&#123;\n    hb_retl&#40; InternetFindNextFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:1lpzygyr]\n\nEMG','',0,'AIA=','1lpzygyr',1,0,'',6,0,0),(43447,9057,3,2,0,'87.218.146.98',1197106537,1,0,1,1,1,1,'','','Joaquin,\n\nEste nuevo build ya soporta el diálogo que has mostrado. Era por TCBrowse:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21432-2867742805.html\">http://www.hotshare.net/file/21432-2867742805.html</a><!-- m -->\n\n&gt;\nUna vez pasada la 1ª fase, ¿has pensado pasar re.exe a POO? Daría mucha flexibilidad para ampliarla con nuevas clases como la del idioma. \n&gt;\n\nSi. Ahora mismo es solo un primer prototipo, luego la propia aplicación \"pedirá\" pasarse a POO <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\n&gt;\nY otra cosa, ¿Has pensado recompilarla con fw Mac y Linux ? porque si no se usan cosas \"extrañas\" debería funcionar y el .rc es multiplataforma. \n&gt;\n\nDesafortunadamente el RC no es multiplataforma. Pero si podríamos generar los formatos que deseemos desde el propio editor. Mac usa ficheros NIB (\"Next Interface Builder\") y Linux depende del GUI usado, pero si es Gnome (mi preferido) entonces son ficheros \"glade\" para GTK','',0,'AIA=','yv38hnq5',1,0,'',2,0,0),(43448,9057,3,2,0,'87.218.146.98',1197106774,1,0,1,1,1,1,'','','My apologizes for writting in Spanish, but it was easier to answer them, thanks!','',0,'AIA=','2kbrbwnk',1,0,'',2,0,0),(43449,8726,6,2,0,'87.218.146.98',1197106847,1,0,1,1,1,1,'','','gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1q2fu9ip',1,0,'',2,0,0),(43450,9123,6,2,0,'87.218.146.98',1197107150,1,0,1,1,1,1,'','','Ruben,\n\nPrueba así: \n\nDEFINE FONT oFont NAME \"...\" SIZE 0, -8\n\nAEval( oBar:aControls, { | o | o:SetFont( oFont ) } )','',0,'AIA=','29eil7ly',1,0,'',2,0,0),(43451,9124,6,2,0,'87.218.146.98',1197107240,1,0,1,1,1,1,'','','Alfredo,\n\nMuchas felicidades y un fuerte abrazo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','27uhncof',1,0,'',2,0,0),(43452,9126,3,2,0,'87.218.146.98',1197108068,1,0,1,1,1,1,'','','Acwoo,\n\nPlease review samples\\fwBrow.prg','',0,'AIA=','13vrh8aq',1,0,'',2,0,0),(43453,9124,6,1236,0,'201.86.91.40',1197108440,1,0,1,1,1,0,'','','Alfredo,\n\nMeu amigo, meus parabens, felicidades, que Deus ilumine sua vida sempre, você é muito especial para todos.\n\n\nAoki','',0,'AIA=','2942hkfx',1,0,'',1236,0,0),(43454,9125,3,2,0,'87.218.146.98',1197109077,1,0,1,1,1,1,'','','Rafael,\n\n&gt; it does not seem to work when the cursor in over a window corner or border\n\nbLButtonUp should work. If not then you may need to use a tool like MS Spy to find what message is sent to the window in such event','',0,'AIA=','1vhcfv0r',1,0,'',2,0,0),(43455,9101,6,46,0,'217.168.114.64',1197110993,1,0,1,1,1,0,'','','Puedes intentar esto:\nen el startpage\n[code:1w9thw89]\n\noRtp&#58;bStartPage &#58;= &#123; || oRpt&#58;aColumns&#91; n &#93;&#58;nPad &#58;= RTP_CENTER &#125;\n\n\n[/code:1w9thw89]\n\nDespues en la StartRecord\n[code:1w9thw89]\noRpt&#58;bStartRecord &#58;= &#123; || oRpt&#58;aColumns&#91; n &#93;&#58;nPad &#58;= RTP_RIGHT &#125;\n[/code:1w9thw89]\n\nDonde \'n\' es el numero de columna que quieres modificar.\n\nTambien puedes agregar una data a la clase rColumn que definiria la alineacion para el titulo de la misma. La impresion del titulo de la columna se realiza en el Method SayTitle(), puedes ver ese metodo para ver si puedes hacer los cambios.\n\n\nSalu2','',0,'AIA=','1w9thw89',1,0,'',46,0,0),(43456,9125,3,63,0,'88.11.29.98',1197111816,1,0,1,1,1,0,'','','Antonio:\nStill it doesn\'t seem to work.  Try this: Click within the window and the message pops up; resize the window and when you release the left button, no message appears:\n[code:12dtc0uk]\n#include &quot;Fivewin&#46;ch&quot;\nFUNCTION Main&#40;&#41;\nLOCAL oWnd\nDEFINE Window oWnd  From 0,0 TO 300,400 Pixel Style WS_THICKFRAME\noWnd&#58;bLButtonUp &#58;= &#123;|r,c,f| MsgInfo&#40;str&#40;r&#41;+str&#40;c&#41;&#41;&#125;\nACTIVATE Window oWnd\nReturn Nil\n[/code:12dtc0uk]\nWhat I would like is to be able to read the window height the moment I release the button.  Any suggestion?\nRafael','',0,'AIA=','12dtc0uk',1,0,'',63,0,0),(43457,9125,3,6,0,'87.18.215.110',1197113185,1,0,1,1,1,1,'','','Try using bResize instead.\n\nEMG','',0,'AIA=','1yp1z057',1,0,'',6,0,0),(43458,9125,3,2,0,'87.218.146.98',1197113275,1,0,1,1,1,1,'','','Rafael,\n\nYou may need to use MS Spy and see if we get a message for such event','',0,'AIA=','2hoe50p9',1,0,'',2,0,0),(43459,9126,3,1181,0,'60.49.119.116',1197113919,1,0,0,0,1,1,'','lEditCol','Thanks for the reply\n\n(FwBrow.prg)\nfunction EditRecord( oLbx )\n\n  local i\n  local cVar\n  local cAlias := oLbx:cAlias\n\n   for i := 1 to 4\n      cVar = ( cAlias )-&gt;( FieldGet( i ) )\n      if ! oLbx:lEditCol( i + 1, @cVar,, { || Validate() } )\n         exit\n      endif\n      ( cAlias )-&gt;( FieldPut( i , cVar ) )\n   next\n\nreturn nil\n\nIn FWH2.4, if cVar is an numeric field, it is accepted by @cVar, but in FWH7.11, I have to change cVar to a string before it is accepted by @cVar.\n\nHow do I solve this problem.\n\nThanks','',0,'AIA=','1ckqu4q1',1,0,'',1181,0,0),(43460,9125,3,63,0,'88.11.29.98',1197115607,1,0,1,1,1,0,'','','Antonio:\nWhat is MS Spy and how do I get it?  (In google I have found some references to anti spywares, My Space and so on, but I doubt they are related to this problem)\n\nEnrico:\nYes; in my app I am using bResized updating continuously the window height. Like this:\n[code:1lqcr7j6]\n&#58;&#58;bResize &#58;= &#123;|t,w,h| &#58;&#58;nHeight &#58;= h&#125;\n[/code:1lqcr7j6]\nHowever, I would like to be able to store the final nHeight in a Dbf.  For that, I need to detect the ButtonUp event.  And there is where I am having problems\n\nThanks to you both for your suggestions\nRafael','',0,'AIA=','1lqcr7j6',1,0,'',63,0,0),(43461,9130,3,69,0,'74.13.63.162',1197117757,1,0,1,1,1,1,'','Excel saveas question','Hi Everybody,\n\nI am trying (without success) to have my app save an excel document as an XMLSpreadsheet.\n\nDoes anyone know the correct syntax to do this?','',0,'AIA=','av13853x',1,0,'',69,0,0),(43462,9124,6,103,0,'189.43.121.183',1197119068,1,0,1,1,1,1,'','','Alfredo,\n\n   Feliz cumpleaños y que Diós aumente tu inteligencia por muchos años más.\n\nSaludos,','',0,'AIA=','3evcbz0i',1,0,'',103,0,0),(43463,9130,3,6,0,'87.18.215.110',1197122758,1,0,1,1,1,1,'','Re: Excel saveas question','[code:19be7v7b]#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n#define adPersistXML 1\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs &#58;= CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    FERASE&#40; &quot;MYTEST&#46;XML&quot; &#41;\n\n    oRs&#58;Open&#40; &quot;SELECT * FROM &#91;Sheet name$&#93;&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=e&#58;\\xharbour\\mytest&#46;xls;Extended Properties=\'Excel 8&#46;0;HDR=Yes;IMEX=1\'&quot;, adOpenForwardOnly, adLockReadOnly &#41;\n\n    oRs&#58;Save&#40; &quot;E&#58;\\XHARBOUR\\MYTEST&#46;XML&quot;, adPersistXML &#41;\n\n    oRs&#58;Close&#40;&#41;\n\n    RETURN NIL[/code:19be7v7b]\n\nEMG','',0,'AIA=','19be7v7b',1,0,'',6,0,0),(43464,9125,3,6,0,'87.18.215.110',1197122886,1,0,1,1,1,1,'','','Can\'t you simply save the window height at any bResize event?\n\nEMG','',0,'AIA=','pkdnn345',1,0,'',6,0,0),(43465,9125,3,63,0,'88.11.29.98',1197124277,1,0,1,1,1,0,'','','Enrico:\nYes: That\'s what I am doing now.  I just wondered if there was a way to do it only once, when the resizing is finished.\nRafael','',0,'AIA=','rdknh9er',1,0,'',63,0,0),(43466,9125,3,2,0,'87.218.146.98',1197124878,1,0,1,1,1,1,'','','Rafael,\n\nThis seems to be the msg that you are looking for:\n\n[url=http&#58;//imageshack&#46;us:2rhh1p39][img:2rhh1p39]http&#58;//img360&#46;imageshack&#46;us/img360/476/msgnw2&#46;png[/img:2rhh1p39][/url:2rhh1p39]','',0,'GA==','2rhh1p39',1,0,'',2,0,0),(43467,9130,3,69,0,'74.13.63.162',1197124984,1,0,1,1,1,1,'','','Thanks Enrico,  I should have mentioned that I am using OLE to create the excel file.\n\nDo you know how to do it with OLE?','',0,'GA==','sjvtmal1',1,0,'',69,0,0),(43468,9126,3,2,0,'87.218.146.98',1197125172,1,0,1,1,1,1,'','','Acwoo,\n\n&gt; I have to change cVar to a string before it is accepted by @cVar. \n\nDo you get an error if you don\'t do it ?','',0,'GA==','19vyzcyw',1,0,'',2,0,0),(43469,9131,6,483,0,'190.30.27.25',1197126889,1,0,1,1,1,0,'','Pasar Datos a una Hoja de Calculo','Hola Foro:\nQuisiera saber si es posible enviar datos a un archivo XLS (Excell) ya creado y en lugares determinados del mismo. Por ejemplo a la ubicacion Hoja1!C9 y si es factible con que clase lo debo hacer.\nDesde ya muchas gracias\nSaludos\nCarlos A. Ducca','',0,'GA==','fuzaiarb',1,0,'',483,0,0),(43470,9129,3,190,0,'124.7.115.88',1197126913,1,0,1,1,1,0,'','','Mr.Enrico\n\nThank you very much.\n\n- Ramesh Babu P','',0,'GA==','2hndyj8p',1,0,'',190,0,0),(43471,9124,6,1173,0,'190.6.194.126',1197127544,1,0,1,1,1,1,'','','Alfredo, Que Dios te prospere en todo.\n\nUn fuerte abrazo desde Honduras  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','1cmmehxl',1,0,'',1173,0,0),(43472,9132,3,51,0,'80.122.88.242',1197129779,1,0,1,1,1,0,'','xBrowse - lCloseArea','I changed in testmdi8.prg\n\nlistbox to xbrowser.\n\nIn the original prg there is a method-call   lCloseArea.\nHow can I do that with xBrowser or do I have to write my own function?\nThanks in advance\nOtto','',0,'GA==','29kweogw',1,0,'',51,0,0),(43473,9133,3,51,0,'80.122.88.242',1197131359,1,0,1,1,1,0,'','XBrowse – show lines slashed','Is it possible to show some lines in a crossed out font?\nThanks in advance\nOtto\n[img:340t77a3]http&#58;//www&#46;atzwanger&#46;com/fw/crossedout&#46;jpg[/img:340t77a3]','',0,'CA==','340t77a3',1,0,'',51,0,0),(43474,9104,3,34,0,'68.5.217.82',1197131360,1,0,1,1,1,1,'','Calendar data','James,\n\nThe interface directly to Outlook, or they handle the values in memory, or they write to SQL.  The way they explained it to me was to either use one of their native data formats or capture the memory values and write them to the .dbf.  That would seem normal but the correspondence indicated it is \"theoretically\" possible, but they had no examples of it having actually been accomplished.\n\nI was going to work with it, but then the guys from ViaOpen indicated they were going to have their calendar controls soon so I decided to work with them.  It just seemed it would be better, if possible, to use a product focused on FWH/xHarbour.\n\nTim','',0,'CA==','1rs3xneb',1,0,'',34,0,0),(43475,9124,6,987,0,'189.133.19.104',1197132034,1,0,1,1,1,0,'','','Mi estimado Alfredo Arteaga:  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nMe uno a la felicitacion que los compañeros de foro te han expresado por la celebración de un año más de tu existencia...\n\nQue el todo poderoso te llene de salud, felicidad y trabajo y que nos permita tengamos muchos años más de tu conocimiento y paciensia para todos nosotros, tus colegas fivewineros...\n\nRecibe un fuerte apretón de manos y un cordíal abrazo desde Chiapas...\n\nMuchas Felicidades... y Gracias por todo  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','pobzak39',1,0,'',987,0,0),(43476,9123,6,1106,0,'190.64.164.239',1197132120,1,0,1,1,1,0,'','','Antonio:\n\nFuncionó pefecto...\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'CA==','3n6j212w',1,0,'',1106,0,0),(43477,9134,3,51,0,'80.122.88.242',1197132635,1,0,1,1,1,0,'','Convert kitchen-screen VB.NET to FWH','Convert VB.NET to FWH \n\nHello Antonio,\n\nI am trieing to convert my kitchen screen to Fivewin. Now I have problems with playing wav-files.\nThe kitchen screen has for each meal a wav-file and plays this file to announce the order.\n\nThe error is on loading MMSYSTEM.DLL . \nThis runs on a VISTA PC.\n\nRegards,\nOtto\n\n[img:3my3nanp]http&#58;//www&#46;atzwanger&#46;com/fw/km&#46;jpg[/img:3my3nanp]','',0,'CA==','3my3nanp',1,0,'',51,0,0),(43478,9135,3,51,0,'80.122.88.242',1197132924,1,0,1,1,1,0,'','drag zone on window without title','In this application I can drag the window from everywhere on the red zone.\nDoes someone know how to do this?\nThanks in advance\nOtto\n\n\n[img:182lv5p6]http&#58;//www&#46;atzwanger&#46;com/fw/crossedout&#46;jpg[/img:182lv5p6]','',0,'CA==','182lv5p6',1,0,'',51,0,0),(43479,9124,6,180,0,'83.40.40.234',1197134492,1,0,1,1,1,0,'','','Feliz cumpleaños  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  y muchas gracias por el obsequio.\n\nUn saludo,\nManuel','',0,'CA==','3d2yg4ik',1,0,'',180,0,0),(43480,9104,3,1193,0,'203.73.91.36',1197134504,1,0,1,1,1,0,'','Re: Calendar data','[quote=&quot;TimStone&quot;:2lcnkxr7]James,\n\nThe interface directly to Outlook, or they handle the values in memory, or they write to SQL.  The way they explained it to me was to either use one of their native data formats or capture the memory values and write them to the .dbf.  That would seem normal but the correspondence indicated it is \"theoretically\" possible, but they had no examples of it having actually been accomplished.\n\nI was going to work with it, but then the guys from ViaOpen indicated they were going to have their calendar controls soon so I decided to work with them.  It just seemed it would be better, if possible, to use a product focused on FWH/xHarbour.\n\nTim[/quote:2lcnkxr7]\n\nHi TimStone,\n\nyes, I hope so.\nYour suggestion will be add our thinking way.\n\nRegards,\n\nRichard','',0,'gA==','2lcnkxr7',1,0,'',1193,0,0),(43481,9127,3,51,0,'80.122.88.242',1197134987,1,0,1,1,1,0,'','','Thanks for sharing the code. \nWould you be so kind to post a working example.\nThanks in advance\nOtto','',0,'gA==','2xnoiow4',1,0,'',51,0,0),(43482,9124,6,72,0,'201.137.93.49',1197136238,1,0,1,1,1,0,'','','¡Gracias por todo familia!\n\nHasta hoy todo parece funcionar normalmente, eso dice el médico (o será el tequila?).\n\nBueno todo menos los programas, hice unos ajustes al Visor de Tablas. Estaba trabajando bien pero me olvidé de revisarlo al cambiar de Browse a xBrowse y de Harbour a xHarbour. Pueden volver a descargarlo.\n\nEl EXE no está protegido por lo que pueden extraer los recursos y revisar su funcionalidad (descargar RC-eXtended de mi sitio).\n\nUn abrazo!','',0,'gA==','3atkjsfh',1,0,'',72,0,0),(43483,9131,6,661,0,'189.155.207.1',1197136858,1,0,1,1,1,0,'','','carlos, te anexo un ejemplo:\n\n      oxls:=TOleAuto():New( \"Excel.Application\" )\n      oxls:WorkBooks:OPen(\'c:\\mihoja.xls\')\n      oHoja := oxls:sheets:item(1)\n      oHoja:activate()\n      \n      oHoja:Cells(5,8):value := \'DATO 1\'\n      oHoja:Cells(6,8):value := \'DATO 2\'\n      oHoja:Cells(7,8):value := \'DATO 3\'\n      oHoja:Cells(8,8):value := \'DATO 4\'\n      \n      oxls:visible := .t.\n\n\nsaludos \nAlex.','',0,'gA==','ieo0aa9j',1,0,'',661,0,0),(43484,9130,3,6,0,'87.18.215.110',1197137296,1,0,1,1,1,1,'','','Save the Excel file then use my sample to convert it to XML.\n\nEMG','',0,'gA==','1a51xwoi',1,0,'',6,0,0),(43485,9104,3,400,0,'201.92.37.218',1197138530,1,0,1,1,1,1,'','','Do I have to alter some thing in the class TActivex, to work with Codejock?\n\nRegards','',0,'gA==','11q0pkwp',1,0,'',400,0,0),(43486,9134,3,2,0,'87.218.146.98',1197138665,1,0,1,1,1,1,'','','Otto,\n\n[code:33lco7sm]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   SndPlaySound&#40; &quot;test&#46;wav&quot; &#41;\n\nreturn nil\n\nDLL FUNCTION SndPlaySound&#40; cFile AS LPSTR, nType AS WORD &#41; AS BOOL ;\n  PASCAL FROM &quot;sndPlaySoundA&quot; LIB &quot;WINMM&#46;DLL&quot;\n[/code:33lco7sm]','',0,'AIA=','33lco7sm',1,0,'',2,0,0),(43487,9125,3,63,0,'88.11.29.98',1197139086,1,0,1,1,1,0,'','','Antonio:\n\nThanks for your help but I am afraid this modification is way over my capabilities.  What am I suposed to do with that event?.  I have modified the HandleEvent() method in Windows.prg to capture WM_EXITSIZEDMOVE but it does nothing.  I suppose I have to modify the method (or perhaps WndHandleEvent()) somewhere else but could not find where.  Could you give me still another hint?\nThanks\n\nRafael','',0,'AIA=','nrpwpu29',1,0,'',63,0,0),(43488,9135,3,2,0,'87.218.146.98',1197139462,1,0,1,1,1,1,'','','Otto,\n\nYou have to use bLClicked to set a lDrag variable to .T., then use bMMoved to move the window and finally bLButtonUp to set the lDrag to .F.\n\noWnd:bLClicked = { || lDrag := .T. }\noWnd:bMMoved = { |nRow, nCol | If( lDrag, oWnd:Move( nRow, nCol ),) }\noWnd:bLButtonUp = { || lDrag := .F. }','',0,'AIA=','1z31khif',1,0,'',2,0,0),(43489,9104,3,1193,0,'203.73.91.36',1197140384,1,0,1,1,1,0,'','','[quote=&quot;Ale SB&quot;:nuy98mw5]Do I have to alter some thing in the class TActivex, to work with Codejock?\n\nRegards[/quote:nuy98mw5]\n\nHi\n\nTActiveX can do Codejock\'s SkinFrameWork OCX and work fine.\nOnly problem is FWH\'s menu not working within Codejock\'s SkinFrameWork.\n\nRegards,\n\nRichard','',0,'gA==','nuy98mw5',1,0,'',1193,0,0),(43490,9134,3,86,0,'81.83.151.142',1197142007,1,0,1,1,1,1,'','','Antonio,\n\nI use SndPlaySound() in my application, but I don\'t have DLL FUNCTION SndPlaySound().\n\nWhy is that ? Difference between Harbour and xHarbour ?\n\nThanks.','',0,'gA==','12vw4l63',1,0,'',86,0,0),(43491,9134,3,2,0,'87.218.146.98',1197143255,1,0,1,1,1,1,'','','Michel,\n\n&gt; Why is that ? Difference between Harbour and xHarbour ? \n\nIts a difference between XP and Vista.\n\nXP uses \"MMSYSTEM.DLL\" and Vista uses \"WINMM.DLL\"','',0,'gA==','gvse7k56',1,0,'',2,0,0),(43492,9136,6,1246,0,'69.19.14.15',1197143260,1,0,1,1,1,0,'','PREGUNTA FTDN','EN EL 2004 PARECE LES COMPRAMOS UN FTDN VER 2.4 A NONBRE DE LA\n\"ASOCIACION DE PRODUCTORES DE CAÑA DE AZUCAR DEL INGENIO CTATOTOLAPAN A.C.\"\nESTOY APUNTO DE EMIGRAR YA A FWH CON LA MISMA VERSION.\nMI PREGUNTA ES SI TENGO DERECHO A ALGUNA ACTUALIZACION YA QUE NO HE TENIDO NINGUNA. HE TRATADO DE COMINICARME CON UDS. A LOS TELEFONOS QUE TENIA (015-5240-8160,015-5240-8161) PERO PARECE SER QUE ESTAN BLOQUEADOS O CANCELADOS.POR FAVOR COMINIQUENCE CON MIGO. POR FAVOR\nSALUDOS\nATTE:JOSE MARQUEZ VILLA','',0,'gA==','2lmbxvr1',1,0,'',1246,0,0),(43493,9124,6,1246,0,'69.19.14.15',1197143729,1,0,1,1,1,0,'','','!!!!!!!!!!FELICIDADES ALFREDO !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n QUE CUMPLAS OTROS TANTOS IGUAL\nA MI HACEN FALTA 4 NADA MAS Y AQUI SEGUIMOS CON MUCHO ANIMO\nSALUDOS','',0,'gA==','2lsmx94o',1,0,'',1246,0,0),(43494,9134,3,86,0,'81.83.151.142',1197144261,1,0,1,1,1,1,'','','Antonio,\n\nI habe FWH 7.12 and xHarbour Project Builder Nov. 2007. In my application SNDPLAYSOUND() is working fine on XP and on Vista.\n\nSo, to tell you the thruth : I don\'t understand.\n\nThanks anyway.','',0,'gA==','2p7pdejx',1,0,'',86,0,0),(43495,9134,3,2,0,'87.218.146.98',1197144754,1,0,1,1,1,1,'','','Michel,\n\nIt may be a difference caused by the use of Borland C.\n\nHere testing on Vista Ultimate, FWH SndPlaySound() does not work. \nBut the example code that I have posted is working fine.','',0,'gA==','32e6a41a',1,0,'',2,0,0),(43496,9135,3,2,0,'87.218.146.98',1197144866,1,0,1,1,1,1,'','','Otto,\n\nHere you have a working sample:\n[code:39p8mxes]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oWnd, nRowPos, nColPos, lDrag &#58;= &#46;F&#46;\n\n   DEFINE WINDOW oWnd STYLE WS_POPUP COLOR &quot;W/R&quot;\n\n   oWnd&#58;bLClicked &#58;= &#123; | nRow, nCol | nRowPos &#58;= nRow, nColPos &#58;= nCol, lDrag &#58;= &#46;T&#46; &#125;\n   	\n   oWnd&#58;bMMoved = &#123; | nRow, nCol | If&#40; lDrag, oWnd&#58;Move&#40; oWnd&#58;nTop + nRow - nRowPos,;\n   	                                   oWnd&#58;nLeft + nCol - nColPos &#41;,&#41; &#125;	\n   oWnd&#58;bLButtonUp &#58;= &#123; || lDrag &#58;= &#46;F&#46; &#125;\n\n   ACTIVATE WINDOW oWnd\n      \nreturn nil\n[/code:39p8mxes]','',0,'AIA=','39p8mxes',1,0,'',2,0,0),(43497,9136,6,2,0,'87.218.146.98',1197145817,1,0,1,1,1,1,'','','Jose,\n\nNuestro FTDN te da derecho a seis meses de actualizaciones gratuitas. Puesto que lo comprásteis en el 2004, ya venció.\n\nPodeis renovar la suscripción al FTDN por seis meses más, desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos. Gracias','',0,'AIA=','3lo8u1wk',1,0,'',2,0,0),(43498,9137,6,156,0,'201.245.231.58',1197146136,1,0,1,1,1,0,'','Antonio S.O.S.... PCODE DLL no funciona con FWH 7.12','Hola Antonio y amigos:\n\nTenemos desarrolladas 17 aplicaciones distintas las cuales, a su vez, se personalizan de acuerdo a las necesidades de los clientes. Consecuentemente tenemos un uso intensivo, MUY INTENSIVO, de DLLs externas con funciones contenidas en diferentes PRGs.\n\nHemos venido trabajando con FWH 2.7 (Julio del 2006), xHarbour 0.99.61 en forma perfecta. Sin embargo, aun cuando estaba ansioso por actualizarme a la última versión de FWH, la cual obliga a la última de xHarbour, me contuve por temor a las incompatibilidades entre versiones de xHarbour.\n\nEsta semana me actulicé a FWH 7.12 y xHarbour 1.1.0 y comenzó mi pesadilla. No debería ser así.\n\nDicho y hecho: ahora ya no funciona más el uso de PCode DLLs. Simplemente las invoca pero no ejecuta el código contenido en ellas. Esto adcional a otras incompatibilidades que estamos testeando.\n\nEstoy seguro que no es asunto de FiveWin, sino de xHarbour, pero Antonio, necesitamos tu ayuda al respecto. Es inaceptable que por este tipo de cambios en xHarbour, limiten la actualizacion de tu maravillosa herramienta, pues si no solucionamos esto nos veremos forzados a mantenernos con FWH 2.7. \n\nAntonio y amigos, hemos probado de todo y definitivamente no funciona. Si revisan los ejemplos PCODEDLL.PRG y TESTDLLP.PRG incluídos en FWH, verás que ya no funcionan. Si los compilas con FWH 2.7 y xHarbour 0.99.61 funcionan perfecto, pero no con FWH 7.12 y xHarbour 1.1.0\n\nSi algún compañero ya ha tenido este problema con las DLL y lo ha solucionado por favor tirenme una mano.\n\nAntonio, hay solución que no implique cambio complejo de código ?\n\nUn abrazo para todos,\n\nCarlos Gallego','',0,'AIA=','9edvqbt2',1,0,'',156,0,0),(43499,9119,6,24,0,'88.19.235.33',1197146313,1,0,1,1,1,1,'','Re: Datos XML','[quote=&quot;mag071&quot;:2b8nhmfx]Saludos,\nTengo una aplicación que lee desde un archivo XML y guarda en un DBF pero me salen acentos y ciertos caracteres ilegibles me imagino que en formato utf-8,  como hago para guardar bien estos datos.\n\nhe probado oemtoansi() ansitooem() widetoansi() ansitowide() y ninguna me guarda los datos como quiero.\n\nGracias de antemano.[/quote:2b8nhmfx]\nBueno, si estan en UTF-8, en la lista de Harbour pusieron un código fuente en puro Xbase que es capaz , sin usar tablas externas, de convertir hacia/desde.\nA mi me a ido de perlas, y si se come nuestra querida Ñ, acentos, etc.. no puedo si no decir que esta bien muy bien realizada.\nAhora mismo estoy en casa, pero si quieres, el lunes intento subirla al foro de Fivewin.\nCreo que la van a incorporar a Harbour, pero... ahi ya no se nada más.','',0,'gA==','2b8nhmfx',1,0,'',24,0,0),(43500,9136,6,1246,0,'69.19.14.15',1197146570,1,0,1,1,1,0,'','','muchas gracias antonio\n\nsaludos','',0,'gA==','2c1v40hu',1,0,'',1246,0,0),(43501,9135,3,51,0,'80.122.88.242',1197147248,1,0,1,1,1,0,'','','Hello Antonio, \nthank you for your help.\nCould you please have another look.\n\nI would need this for MDI windows.\nThe ECR prints to the screen and there can be many receipts at one time.\nThe cook  can with a touch screen sort the receipts and click crossed out the meals he so far has prepared.\nA timer watch the directory and brings up the receipt to the screen. First all the meal are announced with Playsound() – thanks to you it is working .\n\nIt would be nice if the zone to drag the receipts would be bigger than the title because you have to use your fingers.\n\n#include \"FiveWin.ch\"\n#include \"InKey.ch\"\n#include \"xbrowse.ch\"\n\nstatic oWnd\nstatic nTop:=0\n//----------------------------------------------------------------------------//\n\nfunction Main()\n    local oBar\n\n\n    DEFINE WINDOW oWnd MDI ;\n        TITLE \"Küchenmeister\"\n\n    DEFINE BUTTONBAR oBar 3D OF oWnd\n\n    DEFINE BUTTON OF oBar ACTION CustomerBrowse()\n\n    //   SET MESSAGE OF oWnd TO \"FiveWin xBase power!\" CENTERED\n\n    ACTIVATE WINDOW oWnd MAXIMIZED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction CustomerBrowse()\n\n    local oWndChild, oBrw\n    local cAlias\n   local  nRowPos, nColPos, lDrag := .F.\n\n    USE Customer NEW ALIAS ( cAlias := GetNewAlias( \"CUST\" ) ) SHARED\n\n    DEFINE WINDOW oWnd ChildSTYLE   MDICHILD  TITLE Alias()          //  WS_POPUP COLOR \"W/R\"\n\n    oBrw := TXBrowse():New( oWndChild )\n\n    oBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW\n    oBrw:nColDividerStyle    := LINESTYLE_BLACK\n    oBrw:lColDividerComplete := .t.\n\n    oBrw:SetRDD()\n    oBrw:CreateFromCode()\n    // oWndChild:oClient := oBrw\n\n\n\n   oWndChild:bLClicked := { | nRow, nCol | nRowPos := nRow, nColPos := nCol, lDrag := .T. }\n\n   oWndChild:bMMoved = { | nRow, nCol | If( lDrag, oWndChild:Move( oWndChild:nTop + nRow - nRowPos,;\n                                         oWndChild:nLeft + nCol - nColPos ),) }\n   oWndChild:bLButtonUp := { || lDrag := .F. }\n\n\nreturn nil\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n    // oWndChild:Center()\n\n    ACTIVATE WINDOW oWndChild ON INIT (oWndChild:nLeft(320),oWndChild:nTop(nTop*20),oWndChild:nWidth(250), oBrw:SetFocus())\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction GetNewAlias( cDbfName )\n\n    static n := 0\n    nTop:=n\n\nreturn cDbfName + StrZero( ++n, 2 )\n\n//----------------------------------------------------------------------------//','',0,'gA==','3gw8eged',1,0,'',51,0,0),(43502,9134,3,51,0,'80.122.88.242',1197147454,1,0,1,1,1,0,'','','With WINMM.DLL it works on my VISTA business .\nThank you.\nBest regards,\nOtto','',0,'gA==','2b24wvd0',1,0,'',51,0,0),(43503,9104,3,303,0,'72.220.181.80',1197147727,1,0,1,1,1,0,'','','Tim,\n\n&gt;The interface directly to Outlook, or they handle the values in memory, or they write to SQL.\n\nI\'m still confused. \n\nWhy would anyone want to use a calander control that was linked to Outlook, since Outlook already has a calendar [that can be accessed outside the program]?\n\nIt would seem no matter how the data is stored on disk that they have to \"handle the values in memory.\" What does this mean?\n\nIf they write the data to SQL, I would assume they use recordsets since it seems most SQL languages do use recordsets. Do they mean that they don\'t use recordsets?\n\nDid they give you some kind of documentation about handling the data?\n\nJames','',0,'','opwlby0z',1,0,'',303,0,0),(43504,9125,3,2,0,'87.218.146.98',1197147955,1,0,1,1,1,1,'','','Rafael,\n\nHere you have a working sample:\n[code:1pcfia7n]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define WM_EXITSIZEMOVE   0x0232\n\nfunction Main&#40;&#41;\n\n   local oWnd &#58;= TMyWindow&#40;&#41;&#58;New&#40;&#41;\n\n   oWnd&#58;Activate&#40;&#41;\n\nreturn nil\n\nCLASS TMyWindow FROM TWindow\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   METHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n\nENDCLASS\n\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS TMyWindow\n\n   if nMsg == WM_EXITSIZEMOVE\n      MsgBeep&#40;&#41;\n   endif\n\nreturn Super&#58;HandleEvent&#40; nMsg, nWParam, nLParam &#41;\n[/code:1pcfia7n]','',0,'AIA=','1pcfia7n',1,0,'',2,0,0),(43505,9138,6,1106,0,'190.64.164.239',1197148170,1,0,1,1,1,0,'','Para Rene Pilon o...','Amigos:\n\nNecesito saber si alguien tiene un print screen de la herramienta\nque estaba desarrolando Rene Pilon Gx2xs.\nEra como u driver de impresora con una posibilidades\nmaravillosas.\n\nMuchas gracias.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','34zddvi4',1,0,'',1106,0,0),(43506,9137,6,2,0,'87.218.146.98',1197148203,1,0,1,1,1,1,'','','Carlos,\n\nHabeis recompilado las DLLs ? \n\nEs necesario por los cambios de pcode de xHarbour','',0,'AIA=','3958czxw',1,0,'',2,0,0),(43507,9137,6,156,0,'201.245.231.58',1197148629,1,0,1,1,1,0,'','','Antonio millón de gracias por tu respuesta.\n\nSip. Hemos compilado las Dll.\n\nSólo para prueba, por favor hazlo con PCODEDLL.PRG y TESTDLLP.PRG utilizando Buildhdp.bat y Buildx.bat. Los cuatro archivos están en FWH\\SAMPLES.\n\nVerás que invocan bien la la función contenida en la PCODEDLL.DLL, devueve bien el resultado, pero no ejecuta las instruciones que están en la función, en el ejemplo, unos MsgInfo\n\nSaludos,\n\nCarlos Gallego','',0,'AIA=','1takz7n9',1,0,'',156,0,0),(43508,9123,6,1106,0,'190.64.164.239',1197148705,1,0,1,1,1,0,'','','Antonio:\n\nNo funciona, estaba trabajando sobre un tsbutton.\n\nSe podra?\n\nsaludos y gracias\n\nRuben Fernandez','',0,'AIA=','28pl3bur',1,0,'',1106,0,0),(43509,9137,6,156,0,'201.245.231.58',1197149546,1,0,1,1,1,0,'','','Antonio,\n\nLos ejemplos que te indico, son lo que vienen con FWH. Tal cual se compilaron.\n\nEstoy realmente preocupado, pues imagínate casi todos nuestros clientes tienen personalizaciones en su aplicaciones a través de las DLL, mismas que con frecuencia toca modificar, pues ya tu sabes como son los clientes, piden cambios, cosas nuevas, etc. Sólo en lo que va de esta semana, hemos hecho seis modificaciones. Las hicimos con FWH 2.7 y funcionan de maravilla. No pudimos con FWH 7.12, y por supuesto que las recompilamos por efectos del pCode. Simplemente no funcionan. \n\nSaludos, \n\nCarlos Gallego','',0,'AIA=','286vzkg1',1,0,'',156,0,0),(43510,9104,3,34,0,'68.5.217.82',1197149602,1,0,1,1,1,1,'','Record Sets','OK ... the native handling of the data is 1) Outlook, 2) Access, or 3) Memory ( which can write to a binary file ).  I dug through the information and finally came across the following information which is about the only thing that explains the linking to data:\n\n<!-- m --><a class=\"postlink\" href=\"http://codejock.com/support/articles/com/calendar/cp_3.asp\">http://codejock.com/support/articles/co ... r/cp_3.asp</a><!-- m -->\n\nThat is probably the best explanation.  My guess is that we could load the calendar data from a .dbf, and save it back to a .dbf.  This would then allow people to access the same data at different locations.','',0,'AIA=','1ewdxsq4',1,0,'',34,0,0),(43511,9137,6,2,0,'87.218.146.98',1197149885,1,0,1,1,1,1,'','','Carlos,\n\nSi, acabamos de construir esos ejemplos y efectivamente la DLL funciona pero no llama a las funciones del EXE, por eso MsgInfo() no funciona.\n\nDe momento, que la DLL se construya y cargue bien es buena señal. \n\nFalta por descubrir porque no se está accediendo a las funciones del EXE. Seguimos revisando...','',0,'AIA=','iac2hzey',1,0,'',2,0,0),(43512,9137,6,156,0,'201.245.231.58',1197150268,1,0,1,1,1,0,'','','Perfecto Antonio,\n\nQuedo tranquilo sabiendo que tu ya estás al tanto. Seguro que lo resuelves y por favor jálale las orejas al equipo de xHarbour  <!-- s:x --><img src=\"{SMILIES_PATH}/icon_mad.gif\" alt=\":x\" title=\"Mad\" /><!-- s:x --> , que no hagan esas locuras, y si atropellan, que primero toquen el claxon  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nLarga, larguísima vida a FiveWin. Es el mejor.\n\nSaludos,\n\nCarlos Gallego','',0,'AIA=','3vye28cw',1,0,'',156,0,0),(43513,9124,6,92,0,'213.98.204.37',1197154864,1,0,1,1,1,0,'','Re: Aniversario y obsequio!','Enhorabuena Alfredo, que cumplas muchos más con salud y con los tuyos.\n\nGracias por tu trabajo.\nCarlos G.','',0,'AIA=','118cfcuv',1,0,'',92,0,0),(43514,9119,6,431,0,'190.142.62.142',1197156002,1,0,1,1,1,1,'','','Gracias por tu repuesta TheFull.\n\nIgualmente aprovecho para darte las gracias, ya que gracias a un manual que pusistes en este foro, fue que pude leer sin problemas los .xml <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.\n\nEspero el lunes cuando subas el codigo fuente.','',0,'AIA=','1kuzi1rr',1,0,'',431,0,0),(43515,9124,6,1106,0,'190.64.168.46',1197156426,1,0,1,1,1,0,'','','Alfredo:\n\nYa te felicité anteriormente pero ahora te molesto porque el PRG\nSDS_VS me da error en la linea 548 y no encuentro\nla solución.\n\nGracias y disculpa mi torpeza.\n\nRuben Fernandez.\nFWH 7.12 y BCC,Harbour','',0,'AIA=','1uizsrpt',1,0,'',1106,0,0),(43516,9126,3,1181,0,'218.111.67.80',1197163028,1,0,0,0,1,1,'','lEditCol','Thanks for the help\n\n&gt; I have to change cVar to a string before it is accepted by @cVar. \n\n&gt;Do you get an error if you don\'t do it ?\n\nYes.  Error description: Error BASE/1099  Argument error: STR\n\nThanks','',0,'AIA=','30m9wkop',1,0,'',1181,0,0),(43517,9124,6,72,0,'201.137.93.49',1197165044,1,0,1,1,1,0,'','','Ruben, no veo el motivo de error. Enviame el ERR_XXXX.LOG a <!-- e --><a href=\"mailto:soporte@despachoarteaga.com.mx\">soporte@despachoarteaga.com.mx</a><!-- e -->.','',0,'AIA=','3nhw9398',1,0,'',72,0,0),(43518,9126,3,2,0,'87.218.146.98',1197165049,1,0,1,1,1,1,'','','Acwoo,\n\nPlease post the error calls stack, thanks','',0,'AIA=','2csecgpj',1,0,'',2,0,0),(43519,9139,2,1245,0,'212.59.193.101',1197165140,1,0,1,1,1,0,'','NO PUEDO FINALIZAR OBJETOS OSAY BOX','Hola a todos, tengo el siguiente problema, necesito finalizar varios objetos oSAY BOX ubicados en la ventana principal para poner otros en su lugar o limpiar la ventana, pero no lo logro.\n\nLos oSAY con texto o variables los finalizo con RELEASE OBJETS o con END(), pero cuando creo un BOX estos no los puedo eliminar, ejm:\n\n@ 1,1 SAY OSAY1 \"HOLA\" OF OWND\n\nRELEASE OBJETS OSAY1 //FUNCIONA o\nOSAY1:END() //FUNCIONA\n\n@ 3,1 SAY OSAY1 SIZE 200,95 OF OWND BOX\n\nRELEASE OBJETS OSAY1 //NO FUNCIONA DA ERROR\nOSAY1:END() //NO FUNCIONA DA ERROR\n\n¿Como se puede finalizar este objeto?.\n\nGracias.\n\nSaludos.','',0,'AIA=','jfbaei3a',1,0,'',1245,0,0),(43520,9137,6,2,0,'87.218.146.98',1197165302,1,0,1,1,1,1,'','','Carlos,\n\nSolucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  Hay que hacer algunos cambios:\n\npcodedll.prg:\n[code:gpyy7k15]\n// Harbour sample of a pcode DLL\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Func1&#40;&#41;\n\n   static cTest\n\n   if cTest == nil\n      cTest = &quot;it works!&quot;\n   endif\n\n   MsgInfo&#40; &quot;Hello from inside the PRG pcode DLL&quot; &#41;\n   MsgInfo&#40; cTest &#41;\n\nreturn nil\n\nfunction Func2&#40; c1, c2 &#41;\n\n   MsgInfo&#40; c1, c2 &#41;\n\nreturn &quot;it works ok!&quot;\n\nDYNAMIC MSGINFO\nDYNAMIC ERRORSYS\nDYNAMIC FW_GT\nDYNAMIC TACTIVEX\nDYNAMIC GETPROCADDRESS\n\n#PRAGMA BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n\ntypedef PHB_SYMB &#40; * VM_PROCESS_SYMBOLS_EX &#41; &#40; PHB_SYMB pSymbols, USHORT uiSymbols, char * szModuleName, ULONG ulID, USHORT uiPcodeVer &#41;;\n\nstatic HB_EXPORT PSYMBOLS hb_vmProcessSymbols&#40; PHB_SYMB pSymbols, USHORT uiModuleSymbols, char *szModule, int iPCodeVer, PHB_ITEM *pGlobals &#41; /* module symbols initialization */\n&#123;	\n   static FARPROC s_pProcessSymbols = NULL;\n   PHB_SYMB pModuleSymbols = NULL;\n\n   if&#40; !s_pProcessSymbols &#41;\n      s_pProcessSymbols = GetProcAddress&#40; GetModuleHandle&#40; NULL &#41;, &quot;_hb_vmProcessSymbols&quot; &#41;;\n\n   if&#40; s_pProcessSymbols &#41;\n      pModuleSymbols = &#40; &#40; VM_PROCESS_SYMBOLS_EX &#41; s_pProcessSymbols &#41;\n                     &#40; pSymbols, uiModuleSymbols, szModule, iPCodeVer, NULL &#41;;\n\n   return pModuleSymbols;\n&#125;\n\n#PRAGMA ENDDUMP\n[/code:gpyy7k15]\nEn testDLLP.prg:\n[code:gpyy7k15]\nfunction Main&#40;&#41;\n\n   local hDll &#58;= LibLoad&#40; &quot;pcodedll&#46;dll&quot; &#41; // LoadLibrary&#40; &quot;pcodedll&#46;dll&quot; &#41;\n\n   // HB_LibDo&#40; &quot;DLLInit&quot; &#41;  ya no es necesaria esta llamada!\n   HB_LibDo&#40; &quot;Func1&quot; &#41;\n\n   MsgInfo&#40; &quot;Back to the EXE&quot; &#41;\n\n   MsgInfo&#40; HB_LibDo&#40; &quot;Func2&quot;, &quot;a parameter from the EXE&quot;, &quot;Inside the DLL&quot; &#41;,;\n            &quot;Value returned from the DLL function&quot; &#41;\n\n   // Ahora podría liberarse\n   LibFree&#40; hDLL &#41; // FreeLibrary&#40; hDll &#41;  don\'t free it\n\nreturn nil\n[/code:gpyy7k15]','',0,'AIA=','gpyy7k15',1,0,'',2,0,0),(43521,9139,2,2,0,'87.218.146.98',1197165721,1,0,1,1,1,1,'','','Debes declararlos así:\n\n@ 1,1 SAY OSAY1 PROMPT \"HOLA\" OF OWND \n\n@ 3,1 SAY OSAY2 PROMPT \"ADIOS\" SIZE 200,95 OF OWND BOX\n\nPruébalo así y si sigue el error, dinos que error es','',0,'AIA=','3gqw10xt',1,0,'',2,0,0),(43522,9127,3,239,0,'116.21.170.185',1197166362,1,0,1,1,1,0,'','','function myfun()\n   define dialog odlg resource \"aaa\" \n\n   xbrowse define ...\n    ...\n\n   redefine button id 202 of odlg  action obrow:save()\n   \nactivate dialog odlg \n\nreturn','',0,'AIA=','28a774a9',1,0,'',239,0,0),(43523,9140,3,239,0,'116.21.170.185',1197167052,1,0,1,1,1,0,'','Fivehm/multi thread vs  child/MDI dialog','Hi,\n  Multi thread use of harbour+fwhm like No modal/ Child dialog?\n  \nfunction myfun()\n local odlg  \n   define dialog odlg\n  \n   browse  ...\n   redefine get  id 201 of odlg\n   redefine  button id 202 of odlg action (call thread 2 myfun1() )\n\n   activate dialog odlg\n\nreturn\n\n   function myfun1()\n  local odlg\n\n    define dialog odlg\n  \n   browse  ...\n   redefine get  id 201 of odlg\n   redefine  button id 202 of odlg action  myfun2()\n\n   activate dialog odlg\n\nreturn\n\n  after call myfun1(), there are 2 dialogs like 2 no modal dialogs ?\n\nThanks !\n\nShuming Wang','',0,'AIA=','3od84z9z',1,0,'',239,0,0),(43524,9141,6,1072,0,'201.214.53.36',1197169405,1,0,1,1,1,0,'','Ayuda Amigos','Hola Amigos:\n\nTengo un problema, por necesidad de un cliente, necesito poner los Say o Get de los Redefine, con colores:\n\n. REDEFINE Say oRut_emp1 Prompt Rut_emp1   ID 20 OF oDlg  Font oFont1\n\n. Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture \"@!\" .\n\nSaludos,\nAntonio','',0,'AIA=','qihyx6xo',1,0,'',1072,0,0),(43525,9139,2,1245,0,'212.59.193.101',1197170218,1,0,1,1,1,0,'','','OK!, Funciona, asi los elimina, aunque si se repite el mismo osay varias veces en distintas posiciones solo eliminia el ultimo declarado:\n\n@  52,137 SAY OSAY1 PROMPT \"\" SIZE 62,19 OF OWND BOX RAISED PIXEL //No lo elimina.\n\n@  79,137 SAY OSAY1 PROMPT \"\" SIZE 62,19 OF OWND BOX RAISED PIXEL //No lo elimina.\n\n@ 105,137 SAY OSAY1 PROMPT \"\" SIZE 62,19 OF OWND BOX RAISED PIXEL //Si lo elimina.\n\n@     3,1 SAY OSAY2 PROMPT \"\" SIZE 200,95 OF OWND BOX //Si lo elimina.\n\n\nOSAY1:END() //Solo elimina el ultimo. \nOSAY2:END()\n\nPara borrarlos todos tendria que declarar un oSay por cada linea, esto no es problema pero se necesitan mas lineas.\n\n¿Es correcto?.\n\nMuchas gracias. \n\nSaludos.','',0,'AIA=','hfsuq0zj',1,0,'',1245,0,0),(43526,9124,6,219,0,'189.132.133.105',1197170824,1,0,1,1,1,0,'','','Alfredo, muchas felicidades, que la pases super en compañia de la Familia.\n\nJosé Luis','',0,'AIA=','2cxw6dm9',1,0,'',219,0,0),(43527,9124,6,439,0,'200.125.42.240',1197178993,1,0,1,1,1,1,'','','Admiro mucho tu trabajo, espero podamos celebrar contigo los siguientes 50 y con mucha salud... y tequila.\n\nGracias por este y muchos otros aportes y conocimientos con los que nos has enriquecido y nos enriqueces.\n\nLos mejores deseos para tí y tu familia.','',0,'AIA=','1zmhlxfj',1,0,'',439,0,0),(43528,9126,3,1181,0,'60.50.127.10',1197179389,1,0,0,0,1,1,'','lEditCol','Thanks for your help\n\n\nApplication\n===========\n   Path and name: C:\\abc\\test.exe (32 bits)\n   Size: ********* bytes\n   Time from start: 0 hours 0 mins 13 secs \n   Error occurred at: 09/12/07, 09:14:44\n   Error description: Error BASE/1099  Argument error: STR\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; STR(0)\n   Called from:  =&gt; TCLIPGET:_PICTURE(1345)\n   Called from:  =&gt; TWBROWSE:LEDITCOL(0)\n   Called from: .\\test1.prg =&gt; EDITOPENBAL(3439)\n   Called from: .\\test1.prg =&gt; (b)GLPRLYBA(3320)\n   Called from:  =&gt; TWINDOW:KEYDOWN(0)\n   Called from:  =&gt; TCONTROL:KEYDOWN(0)\n   Called from:  =&gt; TWBROWSE:KEYDOWN(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWBROWSE:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\test1.prg =&gt; GLPRLYBA(3377)\n   Called from: .\\ec.prg =&gt; (b)BUILDMENU2(2582)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: .\\test.prg =&gt; MAIN(146)\n\nThanks','',0,'AIA=','2qqi5eeg',1,0,'',1181,0,0),(43529,9140,3,2,0,'87.218.146.98',1197189713,1,0,1,1,1,1,'','','Shuming,\n\ndialogs are non modal between them, unless you specify OF ... or the previous dialog has focus:\n\nDEFINE DIALOG oDlg2 OF oDlg1','',0,'AIA=','guify9nq',1,0,'',2,0,0),(43530,9137,6,2,0,'87.218.146.98',1197190372,1,0,1,1,1,1,'','','Carlos,\n\nSi modificas vm\\maindllp.c de esta manera, entonces ya no tienes que incluir ese código en C en el PRG:\n[code:1uttl0k5]\nHB_EXPORT PSYMBOLS hb_vmProcessSymbols&#40; PHB_SYMB pSymbols, USHORT uiModuleSymbols, char *szModule, int iPCodeVer, PHB_ITEM * pGlobals &#41; /* module symbols initialization */\n&#123;\n   FARPROC pProcessSymbols;\n   HB_SYMBOL_UNUSED&#40; pGlobals &#41;;\n\n   /* notice hb_vmProcessDllSymbols&#40;&#41; must be used, and not\n    * hb_vmProcessSymbols&#40;&#41;, as some special symbols pointers\n    * adjustments are required\n    */                                                                   \n   pProcessSymbols = GetProcAddress&#40; GetModuleHandle&#40; NULL &#41;, &quot;_hb_vmProcessSymbols&quot; &#41;;\n\n   if&#40; pProcessSymbols &#41;\n   &#123;\n      return &#40; &#40; VM_PROCESS_SYMBOLS &#41; pProcessSymbols &#41;&#40; pSymbols, uiModuleSymbols, szModule, iPCodeVer, pGlobals &#41;;\n   &#125;\n   /* else\n         may we issue an error ? */\n\n   return NULL;\n&#125;\n[/code:1uttl0k5]\nY tienes que incluir esta definición en include\\hbtypes.h:\n[code:1uttl0k5]\ntypedef PSYMBOLS &#40; * VM_PROCESS_SYMBOLS &#41; &#40; PHB_SYMB pSymbols, USHORT uiModuleSymbols, char *szModule, int iPCodeVer, PHB_ITEM * pGlobals&#41;;\n[/code:1uttl0k5]','',0,'AIA=','1uttl0k5',1,0,'',2,0,0),(43531,9126,3,2,0,'87.218.146.98',1197191653,1,0,1,1,1,1,'','','Acwoo,\n\nPlease modify source\\classes\\wbrowse.prg line 802 this way and try it again, thanks:\n[code:12vi4fy1]\n         if ! Empty&#40; cPicture &#41; \n            oGet&#58;oGet&#58;Picture = cPicture\n         endif   \n[/code:12vi4fy1]','',0,'AIA=','12vi4fy1',1,0,'',2,0,0),(43532,9135,3,2,0,'87.218.146.98',1197191960,1,0,1,1,1,1,'','','Otto,\n\n&gt; It would be nice if the zone to drag the receipts would be bigger than the title because you have to use your fingers. \n\nPlease post a screenshot, thanks\n\nBTW, your proposed example fails to properly run. Please check it before posting it','',0,'AIA=','c3h37o1g',1,0,'',2,0,0),(43533,9139,2,2,0,'87.218.146.98',1197192527,1,0,1,1,1,1,'','','Tienes que darle un nombre diferente a cada uno de ellos.\n\nNo puedes llamarles a todos oSay1.\n\nUsa oSay1, oSay2, oSay3, ...','',0,'AIA=','2ysy3bm8',1,0,'',2,0,0),(43534,9141,6,2,0,'87.218.146.98',1197192706,1,0,1,1,1,1,'','','Antonio,\n\nAñádeles la claúsula COLOR ...\n\nREDEFINE Say oRut_emp1 Prompt Rut_emp1 ID 20 OF oDlg Font oFont1 COLOR \"W/B\"\n\n. Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture \"@!\" COLOR \"R/BG\"\n\nPuedes usar colores RGB así:\n... COLOR nRGB( ..., ..., ... ), nRGB( ..., ..., ... )\n\nen donde esos 3 parámetros son los valores numéricos de rojo, verde y azul.','',0,'AIA=','pt3wrm0e',1,0,'',2,0,0),(43535,9135,3,51,0,'80.122.88.242',1197195582,1,0,1,1,1,0,'','','Antonio, which one do you mean?\nThanks in advance\nOtto','',0,'AIA=','33ss7ged',1,0,'',51,0,0),(43536,9126,3,1181,0,'60.50.127.10',1197198636,1,0,0,0,1,1,'','lEditCol','Thanks a lot. It Works!\n\n\nThanks','',0,'AIA=','hj4hcwn2',1,0,'',1181,0,0),(43537,9135,3,2,0,'87.218.146.98',1197201393,1,0,1,1,1,1,'','','Otto,\n\nHere you have it:\n[code:2yvq4sdh]\n#include &quot;FiveWin&#46;ch&quot; \n#include &quot;InKey&#46;ch&quot; \n#include &quot;xbrowse&#46;ch&quot; \n\nstatic nTop&#58;=0 \n\n//----------------------------------------------------------------------------// \n\nfunction Main&#40;&#41; \n\nlocal oWnd, oBar \n\nDEFINE WINDOW oWnd MDI ; \nTITLE &quot;Küchenmeister&quot; \n\nDEFINE BUTTONBAR oBar 3D OF oWnd \n\nDEFINE BUTTON OF oBar ACTION CustomerBrowse&#40;&#41; \n\n// SET MESSAGE OF oWnd TO &quot;FiveWin xBase power!&quot; CENTERED \n\nACTIVATE WINDOW oWnd MAXIMIZED \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction CustomerBrowse&#40;&#41; \n\nlocal oWnd, oBrw \nlocal cAlias \nlocal nRowPos, nColPos, lDrag &#58;= &#46;F&#46; \n\nUSE Customer NEW ALIAS &#40; cAlias &#58;= GetNewAlias&#40; &quot;CUST&quot; &#41; &#41; SHARED \n\nDEFINE WINDOW oWnd MDICHILD TITLE Alias&#40;&#41; // WS_POPUP COLOR &quot;W/R&quot; \n\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41; \n\noBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW \noBrw&#58;nColDividerStyle &#58;= LINESTYLE_BLACK \noBrw&#58;lColDividerComplete &#58;= &#46;t&#46; \n\noBrw&#58;SetRDD&#40;&#41; \noBrw&#58;CreateFromCode&#40;&#41; \n// oWndChild&#58;oClient &#58;= oBrw \n\noWnd&#58;bLClicked &#58;= &#123; | nRow, nCol | nRowPos &#58;= nRow, nColPos &#58;= nCol, lDrag &#58;= &#46;T&#46; &#125; \n\noWnd&#58;bMMoved = &#123; | nRow, nCol | If&#40; lDrag, oWnd&#58;Move&#40; oWnd&#58;nTop + nRow - nRowPos,; \noWnd&#58;nLeft + nCol - nColPos,,, &#46;T&#46; &#41;,&#41; &#125; \noWnd&#58;bLButtonUp &#58;= &#123; || lDrag &#58;= &#46;F&#46; &#125; \n\nACTIVATE WINDOW oWnd ON INIT &#40;oWnd&#58;nLeft&#40;320&#41;,oWnd&#58;nTop&#40;nTop*20&#41;,oWnd&#58;nWidth&#40;250&#41;, oBrw&#58;SetFocus&#40;&#41;&#41; \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction GetNewAlias&#40; cDbfName &#41; \n\nstatic n &#58;= 0 \nnTop&#58;=n \n\nreturn cDbfName + StrZero&#40; ++n, 2 &#41; \n\n//----------------------------------------------------------------------------//\n[/code:2yvq4sdh]','',0,'AIA=','2yvq4sdh',1,0,'',2,0,0),(43538,9135,3,51,0,'80.122.88.242',1197204525,1,0,1,1,1,0,'','','Antonio, thank you very much.\n\nNow I start the finishing.\n\nRegards,\nOtto\n\nPS: I helped Ruth to set up a portal for our codesnips project. Ruth placed the FW logo on it.\nIs it OK for you?','',0,'AIA=','18jadxnz',1,0,'',51,0,0),(43539,3149,6,596,0,'84.76.66.27',1197204985,1,0,1,1,1,1,'','','Seria lo mismo si la llamada la recibe un teléfono MOVIL conectado al PC.','',0,'AIA=','32xow8tx',1,0,'',596,0,0),(43540,80,6,596,0,'84.76.66.27',1197206353,1,0,1,1,1,1,'','','Bueno... ¿ y dos años mas tarde que opinais ?','',0,'AIA=','15629yfm',1,0,'',596,0,0),(43541,3807,6,596,0,'84.76.66.27',1197206494,1,0,1,1,1,1,'','','Y digo yo...\n\nPuedo manejar el envio de correos desde un programa ejecutado como servicio y sin estar logeado nadie.','',0,'AIA=','1wldcjp2',1,0,'',596,0,0),(43542,2074,6,596,0,'84.76.66.27',1197210513,1,0,1,1,1,1,'','','Y sin saber a priori los nombres de las ventanas ¿ Se pueden saber cuales estan ?\nEs decir, para sacar una lista de las aplicaciones en curso.\nCreo haberme explicado.','',0,'AIA=','1n53z5tn',1,0,'',596,0,0),(43543,9141,6,1072,0,'201.214.53.36',1197210684,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias por tu respuesta, lo probare.\n\nSaludos,\nAntonio','',0,'AIA=','1isudjaj',1,0,'',1072,0,0),(43544,9135,3,2,0,'87.218.146.98',1197210775,1,0,1,1,1,1,'','','Otto,\n\n&gt;\nPS: I helped Ruth to set up a portal for our codesnips project. Ruth placed the FW logo on it.  Is it OK for you?\n&gt;\n\nYes, its fine, you are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','19a73byd',1,0,'',2,0,0),(43545,5709,6,596,0,'84.76.66.27',1197211032,1,0,1,1,1,1,'','','Y no seria posible mandar SMSs con un movil conectado al PC.\nCon comandos HAYES de modem se podria ¿ no ?','',0,'AIA=','3sw1c4zx',1,0,'',596,0,0),(43546,9141,6,1072,0,'201.214.53.36',1197211553,1,0,1,1,1,0,'','','Antonio:\n\nSigo con el problema, extraño, pero asi es:\n\n REDEFINE Say oNom_emp1 Prompt DesDe      ID 21 OF oDlg  Font oFont1 Color \"R/BG\"\n  Redefine Get oCod_usu1 Var Cod_usu1 Id 104 Of oDlg Update Picture \"@!\" Color \"R/BG\"\n\nEsto lo uso con un recurso desde RC, uso FWH 704, Xharbour 00.99.71, Workshop y Verce 5.3\n\nEspero dar con el error.\n\nDesde ya muchas gracias,\n\nSaludos,\nAntonio','',0,'AIA=','22cd285o',1,0,'',1072,0,0),(43547,9118,6,1072,0,'201.214.53.36',1197211953,1,0,1,1,1,0,'','',':::::::::::::\n\nNadie sabe,,,,,','',0,'AIA=','2039tma3',1,0,'',1072,0,0),(43548,9057,3,909,0,'71.71.110.50',1197215613,1,0,1,1,1,1,'','','Antonio - \nI have found a bug in the LTEXT class.  When there is a comma in the text (prompt) the text doesn\'t display properly on the dialog. \n\nLTEXT \"Change Company Name, Address and Phone Numbers\", -1, 22, 10, 208, 10 \n\nRegards,\nCharles','',0,'AIA=','35na9986',1,0,'',909,0,0),(43549,9118,6,103,0,'189.43.121.183',1197216848,1,0,1,1,1,1,'','','Hola,\n\n   Desde Workshop, simplemente abres tu DLL y pulsas en FILE y despues en ADD TO PROJECT. Escoges el tipo que quieras (en tu caso BMP), elijes el archivo y listo.\n\nEspero que te ayude,\n\nsaludos cordiales,','',0,'AIA=','okg76v5r',1,0,'',103,0,0),(43550,9118,6,1246,0,'69.19.14.33',1197218175,1,0,1,1,1,0,'','','HOLA ,\n\nCAMBIATE PELLES C, ES MAS ESTBALE , NO TEVAS A REPENTIR , YO LO ACABO DE HACER.\n\nSALUDOS\nJOSE MARQUEZ','',0,'AIA=','1goj1q0d',1,0,'',1246,0,0),(43551,2074,6,92,0,'217.125.165.83',1197220790,1,0,1,1,1,0,'','','[quote=&quot;Francisco Horta&quot;:x34vejbj]si eso esta bien, el detalle que encuentro es que ese tipo de ventanas no puedo escanear una parte del nombre, tiene que ser completa, asi que si por el internet explorer tiene abierta una pagina que de nombre sea \"Pornografia tu lugar favorito - Microsoft Internet Explorer\" esa pagina no se cierra buscando \"porn\" en todo el texto, como saber el nombre de esa ventana?, por la wcapture no se puede, hay que escribir el nombre completo.. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( --> pero por lo demas todo esta ok,\nalgun guru de c++ que no pudiera echar la mano?\nsalu2\npako[/quote:x34vejbj]\n\nModifica este método en TWCapture y añade la función:\n\n//----------------------------------------------------------------------------//\n\nMETHOD WCapture( cTitle, lSoft ) CLASS TWCapture\n\n   local hWnd := 0\n\n   //traza( \"lSoft\", lSoft )\n\n   If lSoft\n\n       hWnd := SearchWnd( cTitle )\n\n     Else\n\n       hWnd := FindWindow( 0, cTitle )\n\n   EndIf\n\n   ::lCaptured := ( hWnd &gt; 0 )\n   ::hWnd := if( ::lCaptured, hWnd, 0 )\n\nreturn( ::lCaptured )\n\n//----------------------------------------------------------------------------//\n\n/* *********************************************************************************** */\n/* *********************************************************************************** */\n\nSTATIC FUNCTION SearchWnd( cTitle )\n\nLocal nHwnd     := 0\n\nnHwnd := GetDeskTopWindow( )\n\n/*\nnHwnd := GetWindow( nHDesktop, 0 )    // GW_HWNDFIRST\nTraza( nHwnd, \"-\", GetWindowText( nHwnd ) )\n\nnHwnd := GetWindow( nHDesktop, 1 )    // GW_HWNDLAST\nTraza( nHwnd, \"-\", GetWindowText( nHwnd ) )\n\nnHwnd := GetWindow( nHDesktop, 2 )    // GW_HWNDNEXT\nTraza( nHwnd, \"-\", GetWindowText( nHwnd ) )\n\nnHwnd := GetWindow( nHDesktop, 3 )    // GW_HWNDPREV?\nTraza( nHwnd, \"-\", GetWindowText( nHwnd ) )\n\nnHwnd := GetWindow( nHDesktop, 4 )    // GW_OWNER?\nTraza( nHwnd, \"-\", GetWindowText( nHwnd ) )\n*/\n\nnHwnd := GetWindow( nHwnd, 5 )    // GW_CHILD\n//Traza( nHwnd, \"-\", GetWindowText( nHwnd ) )\n\nWhile nHwnd &gt; 0 .and. AT( cTitle, GetWindowText( nHwnd ) ) &lt;&gt; 1\n    //Traza( nHwnd, \"-\", GetWindowText( nHwnd ), \"-\", AT( cTitle, GetWindowText( nHwnd ) ) )\n    //nHwnd :=  GetWindow( nHDesktop, 2 )\n    nHwnd :=  GetWindow( nHwnd, 2 )\nEndDo\n\n//Traza( nHwnd, \"-\", GetWindowText( nHwnd ), \"-\", AT( cTitle, GetWindowText( nHwnd ) ) )\n\nReturn nHwnd\n/* *********************************************************************************** */\n\nSaludos\nCarlos G.','',0,'gA==','x34vejbj',1,0,'',92,0,0),(43552,9118,6,1072,0,'201.214.53.36',1197223282,1,0,1,1,1,0,'','','Amigos:\n\nMil  gracias a ambos, por el momento agregare los bmps a DLL y luego vere la posibilidad de ir a pelles,\n\nSaludos,\nAntonio','',0,'gA==','3rkpjrib',1,0,'',1072,0,0),(43553,9142,3,1181,0,'60.50.127.10',1197225806,1,0,0,0,1,1,'','Argument error: SWITCH','How to solve the following:\n\nApplication\n===========\n   Path and name: C:\\test\\test1.exe (32 bits)\n   Size: ********* bytes\n   Time from start: 0 hours 0 mins 11 secs \n   Error occurred at: 10/12/07, 02:10:20\n   Error description: Error BASE/3104  Argument error: SWITCH\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; XLSFONT(0)\n   Called from: .\\c13.prg =&gt; EXCELFAB(6110)\n   Called from: .\\c13.prg =&gt; (b)EXCELFAA(6067)\n   Called from: .\\source\\function\\MSGRUN.PRG =&gt; (b)MSGRUN(0)\n   Called from: .\\source\\classes\\DIALOG.PRG =&gt; (b)TDIALOG(0)\n   Called from:  =&gt; TDIALOG:DISPLAY(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\source\\function\\MSGRUN.PRG =&gt; MSGRUN(0)\n   Called from: .\\c13.prg =&gt; EXCELFAA(6067)\n   Called from: .\\c13.prg =&gt; (b)EXCELFA(6047)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\c13.prg =&gt; EXCELFA(6056)\n   Called from: .\\c11.prg =&gt; (b)EXCELTRAN(7105)\n   Called from:  =&gt; TWINDOW:LBUTTONDOWN(0)\n   Called from:  =&gt; TBITMAP:LBUTTONDOWN(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TBITMAP:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\c11.prg =&gt; EXCELTRAN(7237)\n   Called from: .\\ec.prg =&gt; (b)BUILDMENU2(4012)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: .\\test1.prg =&gt; MAIN(146)\n\nThe Code:\nFUNCTION excelfab()\n\n#include \"fivewin.ch\" \n#include \"FileXLS.ch\" \n\n#define BORDER_UP nOr( BORDER_TOP ) \n#define BORDER_DOWN nOr( BORDER_BOTTOM ) \n#DEFINE TRUE .T. \n#DEFINE FALSE .F. \n\nstatic oFileXLS \n\n \nLocal nFont1, nFont2 \n\nLocal nFormat1, nFormat2,nXlsLine:=0 \n\nPublic Drive:=\"D:\\\",Directory:=\"TempXLS\",Start:=\"\\\" \nlChDir(\"D:\\\") \nlMkDir(\"TempXLS\") \nlChDir(\"TempXLS\") \n\nDEFINE XLS FONT nFont1 NAME \"Arial\" HEIGHT 12 BOLD &lt;- Why Argument error: SWITCH\n\nPlease help','',0,'gA==','237epfi4',1,0,'',1181,0,0),(43554,9143,6,596,0,'84.76.66.27',1197226242,1,0,1,1,1,1,'','El OutLook me bloquea el envio de correos desde FWH','Cuando trato de mandar e-mail con la clase TMail() y le defino que el enio NO sea \"FROM USER\" el OoutLook me saca este mensaje:\n\n[color=red:132bwbz7]Un programa esta intentando enviar correo electronico automaticamente en su nombre.\n¿ Desea premitirlo ?\nSi esto es inesperado, puede que sea un virus y deberia elegir \"No\".[/color:132bwbz7]\nY los botones de [color=red:132bwbz7]SI-NO-AYUDA[/color:132bwbz7]\n\nY claro la pantallita del mensaje se queda a la espera...\n\n¿ Donde lo arreglo ? en el programa o en el outlook\n\nGracias  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'Ag==','132bwbz7',1,0,'',596,0,0),(43555,9057,3,2,0,'87.218.146.98',1197227681,1,0,1,1,1,1,'','','Charles,\n\nFixed:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21655-9950648f2f.html\">http://www.hotshare.net/file/21655-9950648f2f.html</a><!-- m -->\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','3nilum3q',1,0,'',2,0,0),(43556,9142,3,2,0,'87.218.146.98',1197227952,1,0,1,1,1,1,'','','Acwoo,\n\nThe error is inside XLSFONT()\n\nPlease search for SWITCH statement inside XLSFONT() source code','',0,'Ag==','ubygjad1',1,0,'',2,0,0),(43557,9144,6,1146,0,'87.223.173.186',1197228217,1,0,1,1,1,0,'','rpoblema con combobox','Hola:\n\nPretendo hacer que cuanto se seleccione en el combobox la opción Banco se puedan editar los GETS de la cuenta y del banco. Sin embargo, para que funcione tienes que seleccionar otro campo, pues yo lo que quiero es que en el momento que lo seleccionas en el combo el campo esté activo.\n\nEl Código es:\n\nREDEFINE COMBOBOX cFpago  ITEMS { \"Caja\", OemToAnsi(\"Domiciliaci¢n\") } ;\n      ID 108 OF oDlg ;\n      VALID ( IIF( cFpago != \"Caja\", lBanco := .T., ), oDlg:Update(),  IIF( cFPago = \"Caja\", lBanco := .F., ), oDlg:Update(), .T. ) \n\n   \n   // ----- BANCO\n   REDEFINE GET cBanco      ID 200 OF oDlg  WHEN lBanco = .T.\n   REDEFINE GET cDir_Ban    ID 201 OF oDlg  WHEN lBanco = .T.\n  \n\nTambién he probado a cambiar el VALID por ON CHANGE y el funcionamiento sigue siendo el mismo. ¿Qué hago mal?.\n\nMuchas gracias. Un saludo,\n\nMoisés','',0,'Ag==','172sdmik',1,0,'',1146,0,0),(43558,9083,6,1146,0,'87.223.173.186',1197228320,1,0,1,1,1,0,'','','Muchas gracias, al final opté por SCOPES y funciona OK.','',0,'Ag==','3cnx8uha',1,0,'',1146,0,0),(43559,9144,6,2,0,'87.218.146.98',1197229076,1,0,1,1,1,1,'','','Moisés,\n\nUsa ON CHANGE y directamente activa los Gets desde él:\n\nREDEFINE COMBOBOX cFpago ITEMS { \"Caja\", OemToAnsi(\"Domiciliaci¢n\") } ; \nID 108 OF oDlg ; \nVALID ( IIF( cFpago != \"Caja\", lBanco := .T., ), oDlg:Update(), IIF( cFPago = \"Caja\", lBanco := .F., ), oDlg:Update(), .T. ) ;\n[color=red:1d486csm]ON CHANGE[/color:1d486csm] IIF( cFpago != \"Caja\", ( lBanco := .T., [color=red:1d486csm]oGet1:Enable(), oGet2:Enable()[/color:1d486csm] ),)\n\n// ----- BANCO \nREDEFINE GET [color=red:1d486csm]oGet1[/color:1d486csm] VAR cBanco ID 200 OF oDlg WHEN lBanco = .T. \nREDEFINE GET [color=red:1d486csm]oGet2[/color:1d486csm] VAR cDir_Ban ID 201 OF oDlg WHEN lBanco = .T.','',0,'Ag==','1d486csm',1,0,'',2,0,0),(43560,9141,6,2,0,'87.218.146.98',1197229288,1,0,1,1,1,1,'','','Antonio,\n\nPor favor revisa y prueba samples\\combos.prg, verás que en él se hace:\n\n   REDEFINE SAY oSay PROMPT cItem4 ID ID_SELECTION OF oDlg COLOR \"R+/W\"\n\ny funciona correctamente','',0,'Ag==','3hk7ks0i',1,0,'',2,0,0),(43561,9145,3,234,0,'75.34.217.174',1197229962,1,0,1,1,1,1,'','Mysql and sql lib','I am getting the following link error when using mysql.lib and sql.lib\n\nError: \'C:\\XHARBOUR\\LIB\\MYSQL.LIB\' contains invalid OMF record, type 0x21 (possibly COFF)\n\nError: \'C:\\XHARBOUR\\LIB\\SQL.LIB\' contains invalid OMF record, type 0x21 (possibly COFF)\n\nWhere can I get the correct LIB version?\n\nThank you,','',0,'Ag==','546y96nw',1,0,'',234,0,0),(43562,9077,6,21,0,'83.61.248.75',1197230886,1,0,1,1,1,1,'','','Hola,\n\nYa he bajado la versión 5.3 de verce\n\n[quote:11uuxdzt]1º Problema:\nEn la versión 4.3 se podía modificar la forma de compilar el archivo .rc hacia .res en el archivo verce0.dat\nAhora esto no se puede y tengo que compilar .rc aparte para luego incluir el .res en el proyecto.\nEsto no me preocupa mucho ya que lo hago con un bat y solucionado.\n\n2º Problema:\nLos dos archivos .res tienen que estar en la misma carpeta sino avisa que el archivo seleccionado no pertenece a la carpeta de recursos.\nLo tengo solucionado incluyendo un copy en bat que antes he mencionado.\n\n3º Problema y mas grave:\nAl intentar compilar y enlazar con los recursos .res incluidos en el proyecto da un error. \"Fatal: Too many commas on command line:\".\nMensaje este que no sucede si sólo introduzco un archivo .res [/quote:11uuxdzt]\n\n1.- Perdona, No se si me indicas que esta resuelto al poder incluir el .res y que la compilación se puede hacer desde pelles o que hay alguna forma de indicar a verce la forma de compilar el .rc, ya que no lo encuentro pero no pasa nada porque incluyo los .res y listo\n\n2.- En mis aplicaciones uso una parte de recursos propios de esa aplicación y otra parte de recursos comunes a varias aplicaciones, por eso quería poder indicar rutas distintas para los archivos de recursos. El propio esta en el \"directorio de RCs\", pero el común no esta duplicado por cada \"directorio de RCs\". \nDe todas formas no pasa nada para compilar llamo a un bat que lo primero que hace es copiar el .res al \"directorio de RCs\".\n\n3.- Sigo teniendo el mismo error. Ahora mismo incluyo en recursos dos archivos .res y al compilar me sigue apareciendo el mismo error: \"Fatal: Too many commas on command line:\"','',0,'gA==','11uuxdzt',1,0,'',21,0,0),(43563,9139,2,1245,0,'84.18.6.189',1197232586,1,0,1,1,1,0,'','','OK. Muchas gracias. \n\nSaludos.','',0,'gA==','1bd1e4zz',1,0,'',1245,0,0),(43564,6880,6,596,0,'84.76.66.27',1197234837,1,0,1,1,1,1,'','','[quote=&quot;Raymundo Islas M.&quot;:26x7swjh]Hola, asi lo tengo yo :[code:26x7swjh]\nEDITTEXT 104, 50, 31, 50, 11, ES_PASSWORD | WS_BORDER | WS_TABSTOP[/code:26x7swjh][/quote:26x7swjh]\n\nAsi lo tengo yo y en WinXP salen palotes y en Win2000 asteriscos.\n\nComo consigo que salgan \"pelotitas\" en WinXP.\n\n[img:26x7swjh]http&#58;//www&#46;jmgarcia&#46;org/Password&#46;jpg[/img:26x7swjh]','',0,'iIA=','26x7swjh',1,0,'',596,0,0),(43565,9057,3,909,0,'71.71.110.50',1197235080,1,0,1,1,1,1,'','','Antonio - \nIt still behaves the same way here.  With a comma after one of the words, the text starts showing at the very left of the dialog box and shows the first two letters of the word, then drops down a line and shows the first two letters of the next word, and so on.  \n\nRegards,\nCharles','',0,'iIA=','3bk81fef',1,0,'',909,0,0),(43566,9006,2,779,0,'189.141.77.95',1197238572,1,0,1,1,1,0,'','A mi me funciona de maravilla clipper con FW en W2003 y TS','Lo único que hago es habilitar que cada ejecución corra en memoria separada.\n\nPuedes crearle un acceso directo y en propiedades Avanzadas marca que corra en memoría separada.\n\nCOn FW de 16 el W2K3 corre NTVDM (NT-Virtual Dos Machine) luego adentro corre WOW (Windos de 16 sobre windows de 32)\n\nSi no lo marcas en memoria separada, todos van a correr bajo el mismo ntvdm. y por eso tienes conflictos.\n\nSi lo marcas para que corra en memoria separada, cada ejecucion tendra su propio NTVDM+WOW.\n\nEspero te sirva','',0,'iIA=','37fwoevz',1,0,'',779,0,0),(43567,9146,6,596,0,'84.76.66.27',1197238762,1,0,1,1,1,1,'','Mas de una hoja por fichero excel','Resulta que tengo que pasar mas de 65535 lineas de un fichero a una hoja excel.\nSuelen ser ficheros de unos 200.000 registros... que bruto verdad.\n\nPues eso, como creo ficheros excel con mas de una hoja, para poder meter en un solofichero XLS todos esos registros.','',0,'iIA=','1vjfdjhg',1,0,'',596,0,0),(43568,8758,11,578,0,'218.214.68.108',1197239682,1,0,1,0,1,0,'','Fixed','Hi Antonio\n\nLatest build (09 December 2007) seems  to have fixed everything - will do more extensive testing later today.  I\'m very happy and want to thank you for your continuing support.  I knew we would get there.\n\nMy email has just died - thankfully just after I downloaded latest build.  I guess my ISP is updating something.  At least internet access is still up.\n\nThanks yet again\nDoug / xProgrammer','',0,'iIA=','22yefz9d',1,0,'',578,0,0),(43569,9141,6,1072,0,'201.214.53.36',1197242949,1,0,1,1,1,0,'','','Antonio:\n\nMuchas gracias, lo probare.\n\nSaludos,\nAntonio','',0,'iIA=','lcn5c4v3',1,0,'',1072,0,0),(43570,9147,6,1072,0,'201.214.53.36',1197243723,1,0,1,1,1,0,'','Dudas con Pelles','Amigos:\n\nHe tratado de abrir una dll de workshop y por recomendacion quiero pasar a Pelles, pero me arroja error al tratar de abrirla con pelles, hay que hacer algo antes, pues me dice que no es una dll de 32 bits.\n\nDisculpen las molestias,\n\nSaludos,\nAntonio','',0,'iIA=','7o9ouiwu',1,0,'',1072,0,0),(43571,8758,11,2,0,'87.218.146.98',1197244101,1,0,1,1,1,1,'','','Doug,\n\nGlad to know that you got it and that its working fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nMany thanks for your excellent feedback!','',0,'iIA=','3qovcd0w',1,0,'',2,0,0),(43572,9057,3,2,0,'87.218.146.98',1197244218,1,0,1,1,1,1,'','','Charles,\n\nCould you please post the RC that you are testing ?\n\nmany thanks!','',0,'iIA=','1jejmbrc',1,0,'',2,0,0),(43573,9142,3,1181,0,'218.111.64.79',1197246807,1,0,0,0,1,1,'','Why Argument error: SWITCH','Thanks for the reply\n\nI still can\'t figure out\n\nWhy Argument error: SWITCH \n\nPlease help','',0,'iIA=','2ufdjuna',1,0,'',1181,0,0),(43574,9142,3,2,0,'87.218.146.98',1197247673,1,0,1,1,1,1,'','','Acwoo,\n\nPlease post the source code of XLSFONT()','',0,'iIA=','3qfcoom3',1,0,'',2,0,0),(43575,9148,11,578,0,'218.214.68.108',1197249388,1,0,1,0,1,0,'','Tabbing into an @ GET','Hi Antonio\n\nIf I have a dialog containing code such as\n\nLOCAL test1 := SPACE( 4 )\nLOCAL test2 := SPACE( 4 )\n@3,1 SAY \"Test1\"\n@6,1 SAY \"Test2\"\n@3,11 GET test1 OF dlgTEST\n@6,11 GET test2 OF dlgTEST\n\nThen when the dialog starts up the cursor goes to the start of the first get, but when I use the tab key to go to the second get the cursor goes to the end of that get and in order to enter anything the user has to hit the [Home] key or use arrow keys, the [back space] key or click the mouse.  This has the effect of significantly slowing down data entry.  When users use mouse clicks as an alternative they tend to leave leading spaces in the entered data.  It would be highly preferable for the cursor to go either to the start of the field or the end of the nonblank data currently in the field.  I note that this currently happens with the PASSWORD option.  The code to implement that might possibly suggest how the above could be achieved.  Maybe even suggest how the problem of the selection changing when tabbing into a LISTBOX can be overcome.\n\nThanks\nDoug\n(xProgrammer)','',0,'','3w0f8e5n',1,0,'',578,0,0),(43576,9149,11,578,0,'218.214.68.108',1197249629,1,0,1,0,1,0,'','Tab Order on a Dialog','Hi Antonio\n\nI would like to be able to control the tab order on a dialog box and / or have some controls not included on the tab list.\n\nI note that this does not seem to be able to be controlled by the order in which controls are instantiated - rather tab order seems to be in row then column order.\n\nThanks\nDoug\n(xProgrammer)','',0,'','1kt2nexf',1,0,'',578,0,0),(43577,9109,17,439,0,'200.125.44.82',1197251949,1,0,1,1,1,1,'','Re: Clase Tsbutton Y TwBrowse','[quote=&quot;jmua&quot;:bksfu66s]Hola foro alguien me puede decir de donde puedo bajar la clase TSBUTTON y TwBROWSE de Hernan para FWH10 \nGracias[/quote:bksfu66s]\n\n\nEsas y muchas otras aquí:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6849\">http://fivetechsoft.com/forums/viewtopic.php?t=6849</a><!-- m -->','',0,'gA==','bksfu66s',1,0,'',439,0,0),(43578,9143,6,53,0,'189.139.218.118',1197252252,1,0,1,1,1,1,'','','JMGARCIA:\n\nPrueba en HERRAMIENTAS =&gt; OPCIONES =&gt; folder SEGURIDAD y\nfinalmente en el CheckBox \"Avisame cuando otras aplicaciones intenten enviar un correo electrónico con mi nombre\"\n\nSaludos','',0,'gA==','2ukv86gd',1,0,'',53,0,0),(43579,9031,3,578,0,'218.214.68.108',1197252433,1,0,1,0,1,0,'','','I have read this thread with great interest and wanted to add my thoughts to it.\n\nI\'m no great fan of IDE\'s myself and having been around well before the Windows days am quite happy to code my dialogs rather than drag and drop.\n\nBut drag and drop would be nice and by relatively simple extension you can allow users to modify their own screens (if your underlying program structure is robust enough).\n\nPersonally I don\'t need a resource editor because I do my dialogs in code.  (Easier to implement user modification, live change).  But if we are to work co-operatively towards such an end please structure it such that we can design a dialog visually and then go either the code or resource route.\n\nI also note that I have taken the plunge into Linux.  FiveLinux may have had a few slight issues but Antonio has offered fantastic support and it would be nice to bear Linux and the other emerging platforms in mind in any such project.\n\nAs an aside I may well be missing something but I\'ve never really understood the reason for using resource files rather than coding screens directly other than most languages fall far short of xBase in terms of being natural and expandable.  Maybe someone can enlighten me?\n\nThe most important message, I believe, is that (x)Harbour should put xBase as a language back in the mainstream but this requires windowing capabilities and FiveWin/Linux/Mac/PPC is the required ingredient.  I\'m sure we\'ll all benefit as the user base grows but that may well require some extra tools to attract the newer generations of programmers and administrators.  But the future is also multi-platform capability and that\'s why I think we need to look at covering the various flavors of FiveX.\n\nI am happy to look at co-operating on such projects but remember we all have our own production code to get out.','',0,'gA==','2pjz9ga2',1,0,'',578,0,0),(43580,9142,3,1181,0,'218.111.64.79',1197257135,1,0,0,0,1,1,'','Argument error: SWITCH','Got it fixed. Thanks','',0,'gA==','272zpgsl',1,0,'',1181,0,0),(43581,6435,3,962,0,'189.78.43.169',1197258274,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:21w0v61v]Thanks. Yes, we have confirmed the bug. \n\nIts on our todo list to fix it asap.[/quote:21w0v61v]\n\nPlease Antonio,\nwhat code used for fix.\n\nI temporarily (quebra-galho), deny few keys:\n[code:21w0v61v]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS MGet\n\nif &#58;&#58;oGet&#58;Type=\'C\' &#46;and&#46; ! EMPTY&#40;&#58;&#58;oGet&#58;PICTURE&#41; &#46;and&#46; ;\n    &#40;nKey == VK_LEFT &#46;OR&#46; nKey == VK_RIGHT &#46;or&#46; ;\n    nKey == VK_END &#46;or&#46; nKey == VK_HOME&#41; &#46;and&#46; ;\n    GetKeyState&#40; VK_SHIFT &#41;\n\nelse\n   Super&#58;KeyDown&#40; nKey, nFlags &#41;\n\nendif\n\nreturn self\n\n[/code:21w0v61v]','',0,'gIA=','21w0v61v',1,0,'',962,0,0),(43582,9145,3,239,0,'116.21.170.185',1197262582,1,0,1,1,1,0,'','','You can  /contrib/mysql/make_b32.bat  ,rebuild mysql.lib .  import.exe libmysql.dll libmysql.lib  .\n\nRegards!\nShuming Wang','',0,'gIA=','2qva9dse',1,0,'',239,0,0),(43583,9140,3,239,0,'116.21.170.185',1197263205,1,0,1,1,1,0,'','','Antonio,\n  How could I switch from one dialog to another freely if they are non dialogs?\n\n  Normaly we call and create another dialog odlg2 after ckick /press the first dialog .\n\nfunction main()\n   define dialog odlg1\n\n   redefine  button id 101 of odlg1 action createdialog2()\n   activate dialog odlg1\n\nfunction creatdialog2()\n  define dialog odlg2\n   redefine  ...\n  activate dialog odlg2.\nreturn \n\n  You must close odlg2,then  you  can back/enter/active odlg1.\n\nRegards!\nShuming Wang','',0,'gIA=','dg8gdud9',1,0,'',239,0,0),(43585,9150,3,234,0,'75.34.217.174',1197267432,1,0,1,1,1,1,'','Problems with upgrading to 7.12','I am having problems with icons disappearing after calling a function from my main program. I am using DEFINE GROUP OF OUTLOOK; DEFINE BITMAP OF OUTLOOK.\n\nI never had this problem before. Are there additional changes required for upgrading to 7.12???\n\nThank you,','',0,'gIA=','u5x2d95a',1,0,'',234,0,0),(43586,9082,6,1099,0,'88.14.190.94',1197272824,1,0,1,1,1,0,'','','Antonio,\n\nLo estava compilando con una versión vieja de FWH, ahora lo he probado con la 7.09 y me funciona bien.\n\nGracias por todo.\n\nAndrés','',0,'gIA=','unvjl92n',1,0,'',1099,0,0),(43587,9110,20,1009,0,'82.187.221.169',1197276270,1,0,1,1,1,0,'','','file exe che a casa vedo i tooltips col nuovo look SetBalloon(.t.),\nportato qui in ditta NON mi visualizza nessun tooltip.\nper vedere i nuovi tooltips qui devo linkare senza themed.manifest o settare RES_FILE  = NO in file mak.\n\ncos\'ha questo xp di diverso?\n\ngrazie per l\'attenzione, marzio','',0,'gIA=','50h7qcfm',1,0,'',1009,0,0),(43588,9150,3,2,0,'87.218.146.98',1197276285,1,0,1,1,1,1,'','','Darrell,\n\nPlease test samples\\TestOutL.prg and check if it works fine for you,\n\nHere it is working ok and we have not modified it lately. Thanks,','',0,'gIA=','2a7eqqdh',1,0,'',2,0,0),(43589,9140,3,2,0,'87.218.146.98',1197276441,1,0,1,1,1,1,'','','Shuming,\n\nACTIVATE DIALOG oDlg NOWAIT\n\nthat will execute it as non modal','',0,'gIA=','i2rn3jbr',1,0,'',2,0,0),(43590,6435,3,2,0,'87.218.146.98',1197278705,1,0,1,1,1,1,'','','Eric,\n\nThis seems to be a good fix for it:\n[code:2d7hhgpk]\nMETHOD GetDelSel&#40; nStart, nEnd &#41; CLASS TGet\n\n   &#58;&#58;oGet&#58;buffer = Left&#40; &#58;&#58;oGet&#58;buffer, Min&#40; nEnd, nStart &#41; &#41; ;\n                   + Right&#40; &#58;&#58;oGet&#58;buffer, ;\n                            Len&#40; &#58;&#58;oGet&#58;buffer &#41; - Max&#40; nEnd, nStart &#41; &#41; ;\n                   + Space&#40; Abs&#40; nStart - nEnd &#41; &#41;\n\n   if ! Empty&#40; &#58;&#58;oGet&#58;Picture &#41;         // New !\n      &#58;&#58;SendMsg&#40; WM_KILLFOCUS &#41;  // New !\n      &#58;&#58;SendMsg&#40; WM_SETFOCUS &#41;   // New !\n   endif                                         // New ! \n\n   &#58;&#58;oGet&#58;Assign&#40;&#41;\n   &#46;&#46;&#46;\n[/code:2d7hhgpk]','',0,'AIA=','2d7hhgpk',1,0,'',2,0,0),(43591,9145,3,2,0,'87.218.146.98',1197278976,1,0,1,1,1,1,'','','Darrell,\n\nAre you using Borland ? \n\nThose libraries seems to be for xHB builder (COFF format).','',0,'AIA=','23k7hebi',1,0,'',2,0,0),(43592,9147,6,2,0,'87.218.146.98',1197279196,1,0,1,1,1,1,'','','Antonio,\n\nSi la DLL es de 16 bits, tienes que pasarla a 32 bits:\n\n1. Abre la DLL con Borland Resources Workshop.\n2. Salva su contenido como RC\n3. Usa FWH\\DLL\\rc2dll32.bat &lt;nombre_del_fichero_rc_sin_extension&gt;','',0,'AIA=','1l8wr5wd',1,0,'',2,0,0),(43593,6880,6,2,0,'87.218.146.98',1197279808,1,0,1,1,1,1,'','','Usa la fuente Tahoma en el diálogo.\n\nDefínela en el RC','',0,'AIA=','3ehgo220',1,0,'',2,0,0),(43594,8213,7,2,0,'87.218.146.98',1197280159,1,0,1,1,1,1,'','','Arturo,\n\nEstupendo, gracias por la información! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nTe importaría poner aqui un pequeño ejemplo de prueba, incluyendo el código en C, para que sirva para futuros usuarios ? Gracias!','',0,'AIA=','2ofbad6j',1,0,'',2,0,0),(43595,8574,3,1154,0,'217.37.54.49',1197280721,1,0,1,1,1,0,'','','Hi All,\n\nI have been experiencing the same error mentioned in this topic as well as another:\n\nhb_cdxPageSeekKey: wrong parent key\nhb_cdxIndexPageRead: read index page failed\n\nI am using latest xHarbour.com release and Fivewin 7.05 reading\\writing to standard DBF files using DBFCDX.\n\nWhen one of these errors occurs it has the effect of writing zeroes to the DBF where I would expect a normal number (e.g. 176547).  This number is part of an index so obviousy I get data integrity errors from here on in!\n\nI\'m trying to find out some more information about where the error occurs, but in the meantime I\'m not really sure where to start looking so any suggestions gratefully received!\n\nKind regards,\n\nBarry','',0,'AIA=','2nagvm3y',1,0,'',1154,0,0),(43596,8574,3,2,0,'87.218.146.98',1197281191,1,0,1,1,1,1,'','','Barry,\n\nAre you also accessing the DBF from XBase++ besides xHarbour ?','',0,'AIA=','1rfkt8tn',1,0,'',2,0,0),(43597,8574,3,1154,0,'217.37.54.49',1197281339,1,0,1,1,1,0,'','','Hi Antonio,\n\nNo I am only accessing the DBF via xHarbour.\n\nKind Regards,\n\nBarry','',0,'AIA=','2b4nmpn9',1,0,'',1154,0,0),(43598,9138,6,1146,0,'87.223.173.186',1197281492,1,0,1,1,1,0,'','','Su web es <!-- w --><a class=\"postlink\" href=\"http://www.docwheel.com\">www.docwheel.com</a><!-- w -->.\n\nSalu2','',0,'AIA=','3n3jzzmt',1,0,'',1146,0,0),(43599,8574,3,2,0,'87.218.146.98',1197281558,1,0,1,1,1,1,'','','Barry,\n\nThen if you are using the latest xHarbour.com release, you should report it to xHarbour.com as it seems a RDD issue\n\nFWH does not modify or interfere in the RDD activity','',0,'AIA=','qdl78fzi',1,0,'',2,0,0),(43600,8574,3,1154,0,'217.37.54.49',1197282113,1,0,1,1,1,0,'','','Thanks Antonio,\n\nWhen I get an answer from xHarbour.com I will post it here in case it can help anyone else in future.\n\nKind regards,\n\nBarry','',0,'AIA=','308d3v1b',1,0,'',1154,0,0),(43601,8574,3,2,0,'87.218.146.98',1197283187,1,0,1,1,1,1,'','','Barry,\n\nmany thanks!','',0,'AIA=','2t8wt6zu',1,0,'',2,0,0),(43602,9138,6,1106,0,'190.64.154.82',1197284707,1,0,1,1,1,0,'','','Moises:\n\nEsta es la respuesta allink\n\nThis domain is not valid. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nGracias y saludos\n\nRuben Fernandez','',0,'AIA=','1gz66017',1,0,'',1106,0,0),(43603,9147,6,103,0,'189.12.229.204',1197286060,1,0,1,1,1,1,'','','Antonio, \n \n   No tienes que pasar necesariamente a Pelles C, si el Workshop te funciona correctamente. Te comento que en mi caso he usado Workshop y no he tenido problemas con el. Pero logicamente que no me gusta que Workshop sea 16 bits, por esto estoy esperando el RE hecho por Antonio Linares en FWH y que con certeza hara esto y mucho mas.\n\nEs mi simple opinión,\n\nSaludos,','',0,'AIA=','v1mp5pyu',1,0,'',103,0,0),(43604,80,6,24,0,'80.24.12.168',1197286798,1,0,1,1,1,1,'','','[quote=&quot;JmGarcia&quot;:3uk7zsn1]Bueno... ¿ y dos años mas tarde que opinais ?[/quote:3uk7zsn1]\nCoñe, me a venido al mail... no recordaba yo estas conversacioenes.\n\nPersonalmente, he dejado practicamente de usar los foros, no tengo tiempo de estar conectado para ver que publica la gente.\n\nSi bien es cierto que con los RSS pues estar mas o menos al dia, no resulta cómodo porque estan todos los foros juntos, osease, un desastre.\n\nParticularmente, sigo prefieriendo las news, muchas más rápida, mucho más comodas para estar offline y poder contestar más tranquilamente, además \nde buscar mejor y más rapido la información.\n\nPero para gustos, los colores.\n\nSi me dan a elegir, News antes que Web.','',0,'gA==','3uk7zsn1',1,0,'',24,0,0),(43605,9124,6,294,0,'201.254.181.164',1197287002,1,0,1,1,1,1,'','','Felicidades Alfredo!!!\nQue disfrutes esta mitad de siglo junto a los tuyos. \nSoy un admirador de tu trabajo y me alegra mucho que lo compartas aqui.\nSaludos desde Argentina.','',0,'gA==','1a3brppr',1,0,'',294,0,0),(43606,9119,6,24,0,'80.24.12.168',1197287158,1,0,1,1,1,1,'','','[quote=&quot;mag071&quot;:tk4h8awl]Gracias por tu repuesta TheFull.\n\nIgualmente aprovecho para darte las gracias, ya que gracias a un manual que pusistes en este foro, fue que pude leer sin problemas los .xml <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->.\n\nEspero el lunes cuando subas el codigo fuente.[/quote:tk4h8awl]\n\nMe alegra ver que la ayuda sirvió para algo <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nAqui tienes el enlace;\n<!-- m --><a class=\"postlink\" href=\"http://kevincarmody.com/misc/unicodeconvert.prg\">http://kevincarmody.com/misc/unicodeconvert.prg</a><!-- m -->\n\nYo uso esto ;\n cData :=  U8ToUni( cTextUTF8, 1 )  /* Convertimos UTF-8 a ANSI */\n\nY al reves;\n UNITOU8( cTextAnsi )\n\nEspero que te sirva','',0,'gA==','tk4h8awl',1,0,'',24,0,0),(43607,9147,6,449,0,'212.64.224.249',1197287470,1,0,1,1,1,1,'','','Hola Kleyber,\n\nQue es el RE q hace Antonio ?\n\nUn saludo','',0,'gA==','43agn879',1,0,'',449,0,0),(43608,9124,6,106,0,'85.34.123.173',1197287878,1,0,1,1,1,1,'','','aunque llego tarde,  Felicidades Alfredo!!!','',0,'gA==','1lzzzdls',1,0,'',106,0,0),(43609,9147,6,103,0,'189.12.229.204',1197288424,1,0,1,1,1,1,'','','Hola Carles,\n\n    El nuevo Resource Editor que Antonio LInares esta desarrollando en FWH. Mira en <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9057\">http://fivetechsoft.com/forums/viewtopic.php?t=9057</a><!-- m --> y podras ver como estan los avances.\n\nSaludos,','',0,'gA==','3j5tsm87',1,0,'',103,0,0),(43610,9057,3,217,0,'200.159.120.34',1197289067,1,0,1,1,1,0,'','','Antonio,\n\nA suggestion: when the RE project reach design phase will be very if if you display guide lines to align the controls in dialog.\nNew versions of VB, Delphi, etc do it. When you move a control or object the IDE display align guidelines and tooltip of coordinates.\nBelow we have examples from Turbo Delphi 2006:\n[url=http&#58;//img153&#46;imageshack&#46;us/my&#46;php?image=guidelinescx2&#46;png:522hqkat][img:522hqkat]http&#58;//img153&#46;imageshack&#46;us/img153/9027/guidelinescx2&#46;th&#46;png[/img:522hqkat][/url:522hqkat]\n\nRegards\nMaurilio','',0,'GA==','522hqkat',1,0,'',217,0,0),(43611,9119,6,431,0,'190.142.62.142',1197289582,1,0,1,1,1,1,'','','Muy Agradecido Rafa.','',0,'GA==','1fxx7h1a',1,0,'',431,0,0),(43612,9151,3,51,0,'80.122.88.242',1197291133,1,0,1,1,1,0,'','How can I  convert Borland buttons in rc-files to ButtonBMP','CONTROL \"Schalter\", 1, \"BorBtn\", 1 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 125, 82, 32, 20\n\n\nHow can I  convert Borland buttons in rc-files to ButtonBMP equivalent to if it would have been designed from source like for example:    \n\n@ 100, 200 BUTTONBMP oBtnBmp OF oDlg ACTION msginfo(1) ;\n        BITMAP \".\\bitmaps\\garrow.bmp\" PROMPT \"Test\" TEXTRIGHT SIZE 80, 25 PIXEL;\n        MESSAGE \"From source code\"','',0,'GA==','3281clr1',1,0,'',51,0,0),(43613,9057,3,49,0,'213.82.134.66',1197291241,1,0,1,1,1,1,'','','Antonio,\n\nDo you have corrct Designer forms project  to create Visual Forms and save it on rc ?','',0,'GA==','199izw8r',1,0,'',49,0,0),(43614,9057,3,2,0,'87.218.146.98',1197292455,1,0,1,1,1,1,'','','Maurilio,\n\nYes, its very usefull. \n\nMac OSX \"Interface Builder\" uses those guide-lines since several years ago','',0,'GA==','3lct28he',1,0,'',2,0,0),(43615,9057,3,2,0,'87.218.146.98',1197292535,1,0,1,1,1,1,'','','Silvio,\n\nWe are actually just building and testing an early prototype','',0,'GA==','3scyfgw1',1,0,'',2,0,0),(43616,9151,3,2,0,'87.218.146.98',1197292652,1,0,1,1,1,1,'','','Otto,\n\nSave the related bitmap as an external BMP file and then replace \"BorBtn\" with \"Button\" in the resource file','',0,'GA==','exa71mnz',1,0,'',2,0,0),(43617,9124,6,278,0,'200.126.75.69',1197292941,1,0,1,1,1,1,'','','MUCHAS FELICIDADES ALFREDO .\n\nQue lo pases bomba !!.\n\nSaludos,','',0,'GA==','wgnb276u',1,0,'',278,0,0),(43618,9147,6,1072,0,'200.83.125.52',1197293100,1,0,1,1,1,0,'','','Amigos:\n\nMuchas gracias por su ayuda,\n\nSaludos\nAntonio','',0,'GA==','2p8yqwb3',1,0,'',1072,0,0),(43619,9145,3,234,0,'75.34.217.174',1197295201,1,0,1,1,1,1,'','','Hi Antonio,\n\nYes, I am using Borland','',0,'GA==','33hv8w7e',1,0,'',234,0,0),(43620,9152,6,449,0,'212.64.224.249',1197295655,1,0,1,1,1,1,'','Info FWH','Antonio,\n\n\n- Cuando creis q estarà disponible multi-thread in Harbour ?\n\n- Crees posible la creacion de un debugger q permita puntos de rotura, modificacion de variables, ... ? (y olvidarnos de los msginfo() de una vez por todas  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  )\n\nGracias','',0,'GA==','15u1buby',1,0,'',449,0,0),(43621,9151,3,51,0,'80.122.88.242',1197295922,1,0,1,1,1,0,'','','Thank you Antonio,\nwhat I don’t know is how tell the control which bitmap to use.\n\nCONTROL \"Schalter\", 1, \"Button\", 1 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 125, 82, 32, 20\n\nRegards,\nOtto','',0,'GA==','3m9ix9zk',1,0,'',51,0,0),(43622,9152,6,63,0,'88.11.29.98',1197297181,1,0,1,1,1,0,'','','Carles:\nYo, después de muuuucho tiempo de dudas y de no atreverme a probarlo, me decidí hace poco por probar el debugger de Harbour que se invoca con Altd() y la verdad es que no me fue mal.  Es casi idéntico al debugger tradicional de Clipper, si es que llegaste a trabajar con él.  Hombre: No es como para seguir todo el desarrollo del programa, pero para cazar algún problema aislado sí que va bien.\nRafael','',0,'GA==','va8iju8d',1,0,'',63,0,0),(43623,9152,6,449,0,'212.64.224.249',1197297926,1,0,1,1,1,1,'','','Rafa,\n\nLa verdad, yo creo q ha este producto es algo q le falta de verdad. Si q puedes ir trapeando con trazas usando msginfo() o logs a ficheros, pero mas que un IDE, un RE, o un generador de reports, el Debugger es algo muy necesario.  \n\nNo quiero meter el dedo en la llaga, pero no se si lei por ahi q Xailer realmente, para la ejecucion de la maquina virtual y deja de procesar los mensajes pendientes, y puedes tracear pefectamente el codigo linea a linea, pudiendo modificar valores, etc... Realmente quizas si Antonio marcara una pauta, entre todos podriamos mirar de hacerlo. De la misma manera q crea un \'proyecto\' para RE en la q se puede meter mano al codigo, podriamos hacer o aportar ideas para crear de una vez por todas un Dbg. Ya se q no es tarea facil, pero si AL marca un esquema, yo creo q entre todos podemos hacerlo.\n\nEs solo una idea, eh !','',0,'GA==','1u5mfu7c',1,0,'',449,0,0),(43624,9057,3,909,0,'71.71.110.50',1197298299,1,0,1,1,1,1,'','','Antonio - \nHere is a very simple rc file that shows the problem.  The original file has more LTEXTand EDITTEXT as well as a checkbox, but this simplified version shows the problem when I open it with a doubleclick in the re.exe.  The string will appear normally if the commas are removed.  \n\ntestname.rc\n\nTESTNAME DIALOG LOADONCAL MOVEABLE DISCARDABLE 6, 15, 253, 169\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION \"Edit Company Phone Numbers\"\nFONT 8, \"MS Sans Serif\"\n{\n LTEXT \"Change Company Name, Address, And Phone Numbers\", -1, 8, 10, 232, 10\nPUSHBUTTON \"OK\", 10, 12, 144, 50, 14\nPUSHBUTTON \"Cancel\", 2, 101, 144, 50, 14\nPUSHBUTTON \"Help\", 998, 190, 144, 50, 14\n}','',0,'GA==','3n6953so',1,0,'',909,0,0),(43625,9151,3,2,0,'87.218.146.98',1197298357,1,0,1,1,1,1,'','','Otto,\n\n&gt; how tell the control which bitmap to use\n\nYou specify it from the PRG, not from the RC\n\nPlease review samples\\TestBuBm.prg','',0,'GA==','1zsyl243',1,0,'',2,0,0),(43626,9145,3,2,0,'87.218.146.98',1197298568,1,0,1,1,1,1,'','','Darrell,\n\nThen you need those LIBs versions for Borland','',0,'GA==','3my7ozhz',1,0,'',2,0,0),(43627,9153,3,171,0,'71.233.232.238',1197298609,1,0,1,1,1,0,'','Search Google inside xHarbour + FW aplication','Forum,\n\nWould be possible to develop a xHarbour + FW aplication in order to search for some information in the web?, (i.e search for \"Antonio Linares  AND Fivewin\" through google and yahoo).\nAny clue, sugestion or experience regarding this matter?\n\nSaludos,\n\nGeorge','',0,'GA==','c3wwli8k',1,0,'',171,0,0),(43628,9145,3,234,0,'75.34.217.174',1197298717,1,0,1,1,1,1,'','','Antonio,\n\nWhere do I get them? I downloaded the BCC version from xharhour but I am getting the same errors.','',0,'GA==','1q5izzlf',1,0,'',234,0,0),(43629,9154,6,171,0,'71.233.232.238',1197298861,1,0,1,1,1,0,'','Busqueda a traves de Google','Compañeros del Foro,\n\nSeria posible desarrollar en xHarbour + FW una aplicacion que busque informacion en la web. Por ejemplo que use google o yahoo para traer toda la informacion referente a \"Antonio Linares y Fivewin\".\n\nAlgunas ideas, sugerencias, o experiencia en este tema?\n\nSaludos,\n\nGeorge','',0,'GA==','o6kdk9mg',1,0,'',171,0,0),(43630,9152,6,2,0,'87.218.146.98',1197299559,1,0,1,1,1,1,'','','Carles,\n\nHarbour/xHarbour tienen un debugger pero está construido en PRG y es lento.\n\nxharbour.com tiene implementado uno en lenguaje C, pero sólo está disponible para la versión comercial de xHarbour','',0,'GA==','1xb4z5ti',1,0,'',2,0,0),(43631,9154,6,2,0,'87.218.146.98',1197299782,1,0,1,1,1,1,'','','George,\n\n<!-- m --><a class=\"postlink\" href=\"http://code.google.com/\">http://code.google.com/</a><!-- m -->\n\nAhi estan los APIs que proporciona Google','',0,'GA==','un38iiah',1,0,'',2,0,0),(43632,9153,3,2,0,'87.218.146.98',1197300054,1,0,1,1,1,1,'','','George,\n\nHave a look at \n\n<!-- m --><a class=\"postlink\" href=\"http://code.google.com/\">http://code.google.com/</a><!-- m -->','',0,'GA==','21wis6za',1,0,'',2,0,0),(43633,8726,6,131,0,'83.57.115.32',1197300471,1,0,1,1,1,0,'','','Antonio, insisto en lo de los meter. Mira el siguiente ejemplo:\n\n[code:3yi163u1]// FiveWin Win32 common controls sample\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, oTabs, oSay, oProgress, oAnimate ,oSay1,oSay2 , nAVI &#58;= 1\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Main&quot;\n\n   REDEFINE SAY oSay ID 100 OF oDlg\n   oProgress = TProgress&#40;&#41;&#58;Redefine&#40; 120, oDlg &#41;\n   oDlg&#58;bStart &#58;= &#123; || SysRefresh&#40;&#41;, Ut_CrearNTX&#40;oSay, oProgress&#41;,;\n                            oDlg&#58;End&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//-----------------------------------------------------------------------------//\nfunction Ut_CrearNTX&#40;oSay, oProgress&#41;\n   local nProgress&#58;= 0\n   field first, last\n\n   if File&#40;&quot;CUSTOMER&#46;NTX&quot;&#41;\n      delete file &quot;customer&#46;ntx&quot;&#41;\n   endif\n   USE Customer NEW\n\n	MsgAlert&#40;LastRec&#40;&#41;&#41;\n   oProgress&#58;SetRange&#40;0, RecCount&#40;&#41;&#41;\n   oProgress&#58;SetPos&#40; 0 &#41;\n   nProgress&#58;= 0\n   sysrefresh&#40;&#41;\n   INDEX ON first+last TO &quot;CUST01&quot; FOR ! Deleted&#40;&#41;;\n   	EVAL &#40;oProgress&#58;SetPos&#40;nProgress++&#41;, oSay&#58;SetText&#40;nProgress&#41;, Sysrefresh&#40;&#41;&#41; EVERY 1\n   Msginfo&#40;nProgress&#41;\n   DbCloseAll&#40;&#41;\nreturn nil[/code:3yi163u1]\n\ncon este RC\n\n[code:3yi163u1]\n1 24 &quot;WinXP/WindowsXP&#46;Manifest&quot;\n\n#include &quot;&#46;&#46;\\include\\WinApi&#46;ch&quot;\n\nLANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US\n\nMAIN DIALOG DISCARDABLE 110, 41, 262, 71\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nCAPTION &quot;Vista Progressbar&quot;\nFONT 8, &quot;MS Sans Serif&quot;\nBEGIN\n  CONTROL &quot;&quot;, 120, &quot;msctls_progress32&quot;, 0x00000000, 12, 20, 240, 20\n  CONTROL &quot;Text&quot;, 100, &quot;Static&quot;, WS_GROUP, 12, 48, 240, 8\nEND[/code:3yi163u1]\n\nEn XP funciona perfecto. En Vista, si le quitas la linea del RC donde carga el .manifest funciona bien, pero si le pones en .manifest ya no llega al final, se queda como al 25% del control. El ejemplo usa la dbf que hay en fivewin/samples. \nSaludos,','',0,'AIA=','3yi163u1',1,0,'',131,0,0),(43634,9151,3,51,0,'80.122.88.242',1197300896,1,0,1,1,1,0,'','','Thank you. \nIf you have some extratime have a look at: <!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->','',0,'AIA=','2a7xgkxv',1,0,'',51,0,0),(43635,9057,3,2,0,'87.218.146.98',1197301041,1,0,1,1,1,1,'','','Charles,\n\nFixed:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/21826-3445821ccc.html\">http://www.hotshare.net/file/21826-3445821ccc.html</a><!-- m -->\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','12pyisfu',1,0,'',2,0,0),(43636,9145,3,2,0,'87.218.146.98',1197301254,1,0,1,1,1,1,'','','Darrell,\n\nWe can build them here, we just need to locate mysql.h','',0,'AIA=','jepkeytu',1,1197318545,'',2,1,0),(43637,8213,7,1135,0,'189.136.44.101',1197301883,1,0,1,1,1,1,'','','Siguiendo recomendaciones obtenidas en el foro, logre el siguiente ejemplo, que imprime correctamente via IRDA en una impresora EXTECH. \n\nNo pude conseguir un protocolo bien estructurado para el control de flujo, pero con el parametro de SleepTime (2000 en el ejemplo) es suficiente para darle tiempo a la impresora de no saturar su buffer de impresion. Si alguien puede contribuir con un control de flujo que permita hacerlo mas robusto a fallas seria magnifico.\n\n\n\n#include \"FWCE.ch\"\n*************************************************************************\n\n\nfunction Printx(cFile)\nlocal oDlg, cc, \n\n\n   DEFINE DIALOG oDlg RESOURCE \"printshow\"\n\n   cc:=memoread( cFile )\n\n   REDEFINE BUTTON ID 105 OF oDlg ; // Imprimir\n                ACTION ( IrdaPrint( chr(24) + chr(27) + \"P\" + \"#\" +;\n                                    cc + chr(13) + chr(10), 2000 ) )\n\n   ACTIVATE DIALOG oDlg CENTERED\nreturn nil\n\n*************************************************************************\n*************************************************************************\n\n\n#pragma BEGINDUMP\n//#pragma comment (lib,\"prnIrda\")\n\n\n#include &lt;hbapi.h&gt;\n#include &lt;windows.h&gt;\n\n#define _WIN32_WCE\n//#define _WIN32_WINDOWS\n\n#include &lt;WinSock.h&gt;\n#include &lt;af_irda.h&gt;\n\n#define NUMRETRY 10 // No está definido en el ejemplo. Usamos 10 a ver que tal\n\nint fnTest(LPSTR s);\n\nint WSIrdaSend(SOCKET *pSock, char *Buf, int iLen);\nint WSSendBlocks(SOCKET *pSock, char *Buf, int iLen, int iTout);\n\n\nHB_FUNC( XFNTEST )\n{\n  LPSTR lpStr = hb_parc( 1 );\n  int ret;\n  ret = 0;\n  //fnTest(lpStr);\n  hb_retni( ret );\n }\n\n\n\nHB_FUNC( IRDAPRINT ) // cText\n{\n   SOCKET   sock;           // Socket bound to the server\n   DEVICELIST  devList;     // Device list\n   int    iCount = 0,       // Number of retries\n          index = 0,        // Integer index\n          iDevListLen = sizeof(devList);  // Size of the device list\n   TCHAR    szError[ 100 ]; // Error message string\n   WSADATA   wsaData;\n   WORD    wVersion = MAKEWORD( 1, 1 );  // Winsock Version 1.1\n   BYTE    IASQueryBuff[ sizeof( IAS_QUERY ) - 3 + IAS_MAX_ATTRIBNAME ];\n   int    IASQueryLen = sizeof( IASQueryBuff );\n   PIAS_QUERY  pIASQuery = ( PIAS_QUERY ) &amp;IASQueryBuff;\n   char    szServiceName[ 12 ];\n   SOCKADDR_IRDA iraddr;\n   struct linger   l;\n	LINGER      lingerStruct;\n	int			retries=1, stat_retries;\n	int			stat_connected=0;\n	fd_set      fdread,fdwrite;\n	int nRet;\n	unsigned long    ul=1;\n	TIMEVAL		tvTimeout ;\n	int result;\n\n\n	tvTimeout.tv_sec  = 0 ;\n	tvTimeout.tv_usec = 0 ;\n\n\n   if( WSAStartup( wVersion, &amp;wsaData ) != 0 )\n   {\n      wsprintf( szError, TEXT( \"WSAStartup failed. Error: %d\" ),\n                WSAGetLastError() );\n      MessageBox( 0, szError, TEXT( \"error\" ), 0 );\n      return;\n   }\n\n  // Create a socket that is bound to the server.\n   if( ( sock = socket( AF_IRDA, SOCK_STREAM,0) ) == INVALID_SOCKET )\n   {\n      wsprintf( szError, TEXT( \"Allocating socket failed. Error: %d\" ),\n                WSAGetLastError() );\n      MessageBox( 0, szError, TEXT( \"error\" ), 0 );\n      WSACleanup();\n      return;\n   }\n\n   // Initialize the number of devices to zero.\n   devList.numDevice = 0;\n\n   //while( ( devList.numDevice == 0 ) &amp;&amp; ( iCount &lt;= NUMRETRY ) )\n   {\n      // Retrieve the socket option\n      if( getsockopt( sock, SOL_IRLMP, IRLMP_ENUMDEVICES, ( char * ) &amp;devList,\n                      &amp;iDevListLen) == SOCKET_ERROR )\n      {\n         wsprintf( szError, TEXT( \"Failed to discover devices, Getsockopt failed. Error: %d\"), WSAGetLastError() );\n         MessageBox( 0, szError, TEXT( \"Error\" ), 0 );\n         closesocket( sock );\n         WSACleanup();\n         return;\n      }\n      if( devList.numDevice == 0 )\n      {\n         iCount++;\n      //   Sleep( 100 );\n      }\n   }\n\n   //if( iCount &gt; NUMRETRY )\n   if( iCount &gt; 0)\n   {\n      MessageBox( 0, TEXT( \"Server could not be located! The max number of retries were exceded. \" ),  TEXT( \"Error\" ), 0 );\n      closesocket( sock );\n      WSACleanup();\n      return;\n   }else\n   {\n      //wsprintf( szError, TEXT( \"Addr: %0.2X%0.2X%0.2X%0.2X\"), devList.Device[ 0 ].irdaDeviceID[0],devList.Device[ 0 ].irdaDeviceID[1],devList.Device[ 0 ].irdaDeviceID[2],devList.Device[ 0 ].irdaDeviceID[3] );\n      //MessageBox( 0, szError,  TEXT( \"About to Connect\" ), 0 );\n   }\n\n   memcpy( &amp;pIASQuery-&gt;irdaDeviceID, devList.Device[ 0 ].irdaDeviceID, 4 );\n   memcpy( &amp;pIASQuery-&gt;irdaClassName,  \"IrLPT\", 6 );\n   memcpy( &amp;pIASQuery-&gt;irdaAttribName, \"IrDA:IrLMP:LsapSel\", 19 );\n\n   if( getsockopt( sock, SOL_IRLMP, IRLMP_IAS_QUERY, ( char * ) pIASQuery,\n                   &amp;IASQueryLen) == SOCKET_ERROR )\n   {\n      wsprintf( szError, TEXT( \"Getsockopt failed. Error: %d\" ), WSAGetLastError() );\n      MessageBox( 0, szError, TEXT( \"Error\" ), 0 );\n      closesocket( sock );\n      WSACleanup();\n      return;\n   }\n\n   sprintf( szServiceName, \"LSAP-SEL%d\", pIASQuery-&gt;irdaAttribute.irdaAttribInt );\n\n   memset( &amp;iraddr, 0, sizeof( iraddr ) );\n   iraddr.irdaAddressFamily = AF_IRDA;\n   memcpy( iraddr.irdaDeviceID, devList.Device[ 0 ].irdaDeviceID, 4 );\n   memcpy( iraddr.irdaServiceName, szServiceName, strlen( szServiceName ) + 1 );\n\n\n\n   // Turn on SO_LINGER\n   l.l_onoff = 1;\n   l.l_linger = 0;\n   if( setsockopt( sock, SOL_SOCKET, SO_LINGER, ( char * ) &amp;l,\n                   sizeof( struct linger ) ) == SOCKET_ERROR )\n   {\n      wsprintf( szError, TEXT( \"Setsockopt failed. Error: %d\" ), WSAGetLastError() );\n      MessageBox( 0, szError, TEXT( \"Error\" ), MB_OK );\n      closesocket( sock );\n      WSACleanup();\n      return;\n   }\n\n	//CONNECT SOCKET ASYNCHRONOUSLY\n  Sleep(100);\n	stat_connected=FALSE;\n\n	do{\n		if( connect( sock, ( struct sockaddr * ) &amp;iraddr, sizeof( iraddr ) ) != SOCKET_ERROR )\n		{\n				// At least 1 socket has pending data, in this case only s\n    	  MessageBox(0,TEXT(\"Connected!\"),TEXT(\"Print Irda ExtTech\"), MB_OK | MB_APPLMODAL);\n				stat_connected=TRUE;\n		}\n		if (stat_connected==FALSE)\n		{\n			// error condition\n  	  //MessageBox(0,TEXT(\"Connect Attempt Failed!\"),TEXT(\"Print Irda ExtTech\"), MB_OK | MB_APPLMODAL);\n		}\n	}while( (stat_connected==FALSE) &amp;&amp; (retries++&lt;=4) );\n	if (stat_connected==FALSE)\n	{\n    MessageBox(0,TEXT(\"Connect Failed!\"),TEXT(\"Print Irda ExtTech\"), MB_OK | MB_APPLMODAL);\n	  return;\n	}\n\n\n   // Send a string from the client socket to the server socket.\n   result=WSSendBlocks(&amp;sock,hb_parc( 1 ),hb_parclen( 1 ) + 1, hb_parni(2) );\n	 hb_retni( result );\n\n\n   // Close the socket.\n   if( closesocket( sock ) == SOCKET_ERROR )\n   {\n      wsprintf( szError, TEXT( \"closesocket failed. Error: %d\" ),\n                WSAGetLastError() );\n      MessageBox( 0, szError, TEXT( \"Error\" ), 0 );\n      WSACleanup();\n      return;\n   }\n\n   WSACleanup();\n}\n\n\nint WSSendBlocks(SOCKET *pSock, char *Buf, int iLen, int iTout)\n{\n  TCHAR    szError[ 100 ]; // Error message string\n  int nBlocks;\n  int nBytes;\n  int i;\n  nBlocks=iLen/256;\n  nBytes=iLen % 256;\n  for(i=0;i&lt;nBlocks;i++)\n  {\n    WSIrdaSend(pSock, Buf + i*256, 256);\n    //wsprintf( szError, TEXT( \"block: %d\"),i );\n    //MessageBox(0,szError,TEXT(\"Print Irda ExtTech\"), MB_OK | MB_APPLMODAL);\n    Sleep(iTout);\n  }\n  if(nBytes!=0)\n  {\n    WSIrdaSend(pSock, Buf + nBlocks*256, nBytes);\n    //wsprintf( szError, TEXT( \"bytes: %d\"),nBytes);\n    //MessageBox(0,szError,TEXT(\"Print Irda ExtTech\"), MB_OK | MB_APPLMODAL);\n  }\n  return(0);\n}\n\n\nint WSIrdaSend(SOCKET *pSock, char *Buf, int Len)\n{\n	int			serr ;\n	int			cbSent = 0 ;\n	fd_set		fdsSend ;\n	TIMEVAL		tvTimeout ;\n\n	tvTimeout.tv_sec  = 45 ;\n	tvTimeout.tv_usec = 0 ;\n\n	do\n	{\n		FD_ZERO( &amp;fdsSend );\n		FD_SET( *pSock , &amp;fdsSend );\n\n		serr = select( 0 , NULL , &amp;fdsSend , NULL , &amp;tvTimeout );\n		if( serr == SOCKET_ERROR )\n		{\n			return(101);\n		}\n		else if( serr == 0 )\n		{\n			//DEBUGMSG( DF , (TEXT(\"select(send) timed out. \\r\\n\")));\n			continue;\n		}\n		serr = send( *pSock , Buf + cbSent , Len , 0 );\n		if( serr != SOCKET_ERROR )\n		{\n			Len    -= serr ;\n			cbSent += serr ;\n		}\n		else\n		{\n			return(102);\n		}\n	} while( Len &gt; 0 );\n\n	return(0);\n}\n\n#pragma ENDDUMP\n\n\n\n[quote=&quot;Antonio Linares&quot;:28rpf7gh]Arturo,\n\nEstupendo, gracias por la información! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nTe importaría poner aqui un pequeño ejemplo de prueba, incluyendo el código en C, para que sirva para futuros usuarios ? Gracias![/quote:28rpf7gh]','',0,'gA==','28rpf7gh',1,0,'',1135,0,0),(43638,9113,3,1247,0,'80.122.88.242',1197302176,1,0,1,1,1,0,'','','[img:fprxo6sf]http&#58;//www&#46;hochpustertal&#46;at/codesnipys/new_site&#46;jpg[/img:fprxo6sf]\n\nhello to all, \nthe fwcodesnips-site is online with a new look. i have uploaded an image so you can see it. we have put a newsticker in the upper-right corner, where all sites concerning fivewin are traced. could you please email me the adresses of sites, which could be added? \nthere is also a section where you can put advertisments always in connection with fivewin - it´s understood that they are for free <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \njust email me the jpg you want to add. \n\na lot of greetings from austria, \nruth\n\nPS: we are very happy if you send us your codesnips. the email-adress is <!-- e --><a href=\"mailto:info@winhotel.net\">info@winhotel.net</a><!-- e -->','',0,'CA==','fprxo6sf',1,0,'',1247,0,0),(43639,8213,7,2,0,'87.218.146.98',1197302644,1,0,1,1,1,1,'','','Arturo,\n\nMuchas gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','1qqog95f',1,0,'',2,0,0),(43640,9124,6,43,0,'189.188.13.92',1197302778,1,0,1,1,1,0,'','','Un poco tarde, pero...\n\nFELICIDADES... y que cumplas mas años..  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos\nMarco A. Delgado.','',0,'CA==','135aj03v',1,0,'',43,0,0),(43641,9113,3,2,0,'87.218.146.98',1197302882,1,0,1,1,1,1,'','','Enrico,\n\n&gt; If I\'m not wrong you are the first women in this forum, or I\'m forgetting someone?\n\nThere are some women using FWH and FWPPC in the spanish forums <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','291jwdz4',1,0,'',2,0,0),(43642,9124,6,582,0,'200.117.100.211',1197303908,1,0,1,1,1,0,'','Re: Aniversario y obsequio!','TROESMA  !!!\n\nMuy feliz cumpleaños !!!\n \nUn gran abrazo. El Loco =&gt;))','',0,'CA==','tim5wq2y',1,0,'',582,0,0),(43644,9057,3,909,0,'71.71.110.50',1197310216,1,0,1,1,1,1,'','','Antonio - \nThat fixed it!  Many thanks.  This project is moving along very nicely.  Will you be adding TFOLDER support soon?  \n\nBest regards,\nCharles','',0,'CA==','35fwlwb7',1,0,'',909,0,0),(43645,9124,6,1104,0,'190.55.44.148',1197311715,1,0,1,1,1,0,'','','Felicitaciones!!!\nEspero que cumpla muchos años más. Yo todavía soy un pichoncito aprendiz de tan solo 25 añitos, justo la mitad.\nQue pase un muy buen día junto a los suyos!!\nSaludos,\nDesde Argentina, Esteban.','',0,'CA==','185kjo7s',1,0,'',1104,0,0),(43646,9124,6,1178,0,'200.24.127.60',1197314144,1,0,1,1,1,0,'','','[quote=&quot;Alfredo Arteaga&quot;:f60gwuma]¡Gracias por todo familia!\n\nHasta hoy todo parece funcionar normalmente, eso dice el médico (o será el tequila?).\n\nBueno todo menos los programas, hice unos ajustes al Visor de Tablas. Estaba trabajando bien pero me olvidé de revisarlo al cambiar de Browse a xBrowse y de Harbour a xHarbour. Pueden volver a descargarlo.\n\nEl EXE no está protegido por lo que pueden extraer los recursos y revisar su funcionalidad (descargar RC-eXtended de mi sitio).\n\nUn abrazo![/quote:f60gwuma]\nAlfredo ,\nTe deseo un feliz cumpleaños','',0,'gA==','f60gwuma',1,0,'',1178,0,0),(43647,9145,3,234,0,'75.34.217.174',1197316031,1,0,1,1,1,1,'','','Hi Antonio,\n\nHere is mysql.ch\n\n========================================\n\n#ifndef MYSQL_CH\n\n#define ifndef MYSQL_CH\n\n\n// MySQL field types\n\n#define  MYSQL_DECIMAL_TYPE      0\n#define  MYSQL_TINY_TYPE         1\n#define  MYSQL_SHORT_TYPE        2\n#define  MYSQL_LONG_TYPE         3\n#define  MYSQL_FLOAT_TYPE        4\n#define  MYSQL_DOUBLE_TYPE       5\n#define  MYSQL_NULL_TYPE         6\n#define  MYSQL_TIMESTAMP_TYPE    7\n#define  MYSQL_LONGLONG_TYPE     8\n#define  MYSQL_INT24_TYPE        9\n#define  MYSQL_DATE_TYPE         10\n#define  MYSQL_TIME_TYPE         11\n#define  MYSQL_DATETIME_TYPE     12\n#define  MYSQL_YEAR_TYPE         13\n#define  MYSQL_NEWDATE_TYPE      14\n#define  MYSQL_NEWDECIMAL_TYPE   246\n#define  MYSQL_ENUMTYPE          247\n#define  MYSQL_SET_TYPE          248\n#define  MYSQL_TINY_BLOB_TYPE    249\n#define  MYSQL_MEDIUM_BLOB_TYPE  250\n#define  MYSQL_LONG_BLOB_TYPE    251\n#define  MYSQL_BLOB_TYPE         252\n#define  MYSQL_VAR_STRING_TYPE   253\n#define  MYSQL_STRING_TYPE       254\n\n#define  MYSQL_FS_NAME           1     /* Name of column */\n#define  MYSQL_FS_TABLE          2     /* Table of column if column was a field */\n#define  MYSQL_FS_DEF            3     /* Default value (set by mysql_list_fields) */\n#define  MYSQL_FS_TYPE           4     /* Type of field. Se mysql_com.h for types */\n#define  MYSQL_FS_LENGTH         5     /* Width of column */\n#define  MYSQL_FS_MAXLEN         6     /* Max width of selected set */\n#define  MYSQL_FS_FLAGS          7     /* Div flags */\n#define  MYSQL_FS_DECIMALS       8     /* Number of decimals in field */\n\n// MySQL field flags\n\n#define  NOT_NULL_FLAG           1     /* Field can\'t be NULL */\n#define  PRI_KEY_FLAG            2     /* Field is part of a primary key */\n#define  UNIQUE_KEY_FLAG         4              /* Field is part of a unique key */\n#define  MULTIPLE_KEY_FLAG       8              /* Field is part of a key */\n#define  BLOB_FLAG               16             /* Field is a blob */\n#define  UNSIGNED_FLAG           32             /* Field is unsigned */\n#define  ZEROFILL_FLAG           64             /* Field is zerofill */\n#define  BINARY_FLAG             128\n\n#endif','',0,'gA==','1nouoy50',1,0,'',234,0,0),(43648,9156,6,84,0,'79.144.117.33',1197316385,1,0,1,1,1,0,'','Funcion para obterne el proximo valor','Estoy intentando crear una función para q me devuelva el proximo valor de una cadena de caracteres que puede contener cualquier valor alfanumerico.\n\nCreo lo explico mejor con un ejemplo.\n\nValor previo \"0001\" -&gt; \"0002\"\nValor previo \"ABCD\" -&gt; \"ABCDE\"\nValor previo \"AB99\" -&gt; \"AB100\"\n\nEn fin creo q es un poco jodido, pero espero q alguien se haya visto ante esta situción antes.\n\nGracias','',0,'gA==','wel1r33s',1,0,'',84,0,0),(43650,9057,3,2,0,'87.218.146.98',1197317428,1,0,1,1,1,1,'','','Charles,\n\nYou can already use \"SysTabControl32\" for folders','',0,'gA==','2plgnv9k',1,0,'',2,0,0),(43651,9157,3,51,0,'80.122.88.242',1197317682,1,0,1,1,1,0,'','RELEASE FONT','RELEASE FONT oSayFont\n\nIs it still necessary to release FONTs explicit.\n\nThanks in advance\nOtto','',0,'gA==','2egwvv83',1,0,'',51,0,0),(43652,9145,3,2,0,'87.218.146.98',1197318769,1,0,1,1,1,1,'','','Darrell,\n\nIts mysql.h what we need to build the library, not mysql.ch\n\nThanks,','',0,'gA==','3gcwtsco',1,0,'',2,0,0),(43653,9057,3,909,0,'71.71.110.50',1197319427,1,0,1,1,1,1,'','','Antonio - \n\nI do use SysTabControl32 but I get a message that TCS_MULTILINE style is not found.  Can you add that to the style list?  \n\nRegards,\nCharles','',0,'gA==','obtjm87t',1,0,'',909,0,0),(43654,9057,3,2,0,'87.218.146.98',1197319723,1,0,1,1,1,1,'','','Charles,\n\nEven if the style TCS_MULTILINE is not implemented yet, the SysTabControl32 control should be shown','',0,'gA==','y6wfcvgo',1,0,'',2,0,0),(43655,9150,3,234,0,'75.34.217.174',1197320100,1,0,1,1,1,1,'','','Hi Antonio,\n\nI believe I found the problem. I try to open BMP files in Workshop and I get the following error -&gt; UNKNOWN BITMAP FORMAT. I will try to convert BMP to better version and try again.','',0,'gA==','c4gg14lf',1,0,'',234,0,0),(43656,9157,3,2,0,'87.218.146.98',1197320161,1,0,1,1,1,1,'','','Otto,\n\nFonts use a counter DATA to be reused, and only when the counter is zero then the font is destroyed.\n\nSo, yes, you should issue a RELEASE FONT oSayFont to decrease the counter','',0,'gA==','23w3sgt8',1,0,'',2,0,0),(43657,9143,6,596,0,'84.76.66.27',1197322380,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:1maodkqz]HERRAMIENTAS =&gt; OPCIONES =&gt; folder SEGURIDAD y\nfinalmente en el CheckBox &quot;Avisame cuando otras aplicaciones intenten enviar un correo electrónico con mi nombre&quot;[/quote:1maodkqz]\nPues ni el outlook 2000 ni el outlook 2003 tiene esa opcion... \n\n[img:1maodkqz]http&#58;//personales&#46;ya&#46;com/jmgarcia/OutLook2000&#46;jpg[/img:1maodkqz]\n\n[img:1maodkqz]http&#58;//personales&#46;ya&#46;com/jmgarcia/OutLook2003&#46;jpg[/img:1maodkqz]','99bdf9db834acf566961e129e56e83ff',0,'iA==','1maodkqz',1,1286627288,'',596,1,0),(43658,6880,6,596,0,'84.76.66.27',1197322750,1,0,1,1,1,1,'','','La solucion la he encontrado... aqui \"***** EN PASSWORD COM WORKSHOP.EXE\" &gt;&gt; Foros de discusión &gt;&gt; FiveWin para Harbour/xHarbour\n\n[quote=&quot;surGom&quot;:2wtq5e0j]Hola Karina yo utilizo un get y en el código pongo:\n[code:2wtq5e0j]\nREDEFINE GET oGet VAR cLogin id 101 of odlg valid IIF&#40;buscon&#40;cItem,@cLogin,oGet&#41;,lreturn &#58;= &#46;t&#46;,&#46;f&#46;&#41;\noGet&#58;lpassword &#58;= &#46;t&#46; \n[/code:2wtq5e0j]\nEspero sea la respuest a tu consulta\nUtilizó workshop y fwh26 y xharbour 9.61\nLuis[/quote:2wtq5e0j]\n\nLa solucion es esta oGet:lpassword := .t. \n\nTanto en Win200 como WinXP ya si me salen *****','',0,'gIA=','2wtq5e0j',1,0,'',596,0,0),(43659,8726,6,2,0,'87.218.146.98',1197323217,1,0,1,1,1,1,'','','José Luis,\n\nParece una cuestión de pintado de Windows, porque asi se rellena la barra completamente:\n[code:5wnx763g]\n   INDEX ON first+last TO &quot;CUST01&quot; FOR ! Deleted&#40;&#41;; \n      EVAL &#40;oProgress&#58;SetPos&#40;nProgress++&#41;, MsgInfo&#40; nProgress &#41;, oSay&#58;SetText&#40;nProgress&#41;, Sysrefresh&#40;&#41;&#41; EVERY 1 \n[/code:5wnx763g]','',0,'AIA=','5wnx763g',1,0,'',2,0,0),(43660,9057,3,909,0,'71.71.110.50',1197324143,1,0,1,1,1,1,'','','Antonio - \n\nOK, I can be patient.  \n\nI have another question, though.  My folder pages are all individual dialogs and do not have SYS_MENU on them, nor a button with ID 1 or 2.  As a result I can\'t close these dialogs in RE.EXE so I hit Ctrl. Alt, Del and close the editor.  I suppose at some point you will need some sort of button outside the dialog to close them?   \n\nRegards,\n\nCharles','',0,'AIA=','tk1ruttg',1,0,'',909,0,0),(43661,9158,3,448,0,'81.84.145.34',1197324774,1,0,1,1,1,0,'','Application not safe - Win XP message','Hi,\n\nAfter install the IE 7  a security alert message is displayed by XP before starting our application\n\n\nHow can I avoid this message ? \nHow can the application be made secured to XP?\n\nRegards\nAntonio','',0,'AIA=','24h6xe2h',1,0,'',448,0,0),(43662,9143,6,53,0,'189.139.97.155',1197324947,1,0,1,1,1,1,'','','JmGarcia:\n\nRaro, raro, uso OutLook Express y esa opción sí existe, tal vez este en alguna otra pestaña.\n\nSaludos[/url]','',0,'','1pt4z0h3',1,0,'',53,0,0),(43663,8726,6,2,0,'87.218.146.98',1197325786,1,0,1,1,1,1,'','','José Luis,\n\nHay que usar los métodos SetStep() y StepIt() y asi sí completa:\n[code:2w47tgpa]\n   oProgress&#58;SetRange&#40; 0, RecCount&#40;&#41; &#41;\n   oProgress&#58;SetStep&#40; 2 &#41; \n   nProgress&#58;= 0 \n   sysrefresh&#40;&#41; \n   INDEX ON first+last TO &quot;CUST01&quot; FOR ! Deleted&#40;&#41;; \n      EVAL &#40; oProgress&#58;SetPos&#40; nProgress++ &#41;,;\n             If&#40; nProgress &lt; RecCount&#40;&#41;, oProgress&#58;StepIt&#40;&#41;,&#41;,;\n             oSay&#58;SetText&#40; nProgress &#41;, SysRefresh&#40;&#41;&#41; EVERY 1 \n[/code:2w47tgpa]','',0,'AIA=','2w47tgpa',1,0,'',2,0,0),(43664,9057,3,2,0,'87.218.146.98',1197326317,1,0,1,1,1,1,'','','Charles,\n\nYou can press Esc to close them.\n\nAnyhow, the idea is to use a reasizable border with a close button on it too','',0,'AIA=','2vcih5b9',1,0,'',2,0,0),(43665,9150,3,2,0,'87.218.146.98',1197326572,1,0,1,1,1,1,'','','Darrell,\n\nPlease open the EXE with the Resources Workshop and check that the bitmaps are inside the EXE','',0,'AIA=','71hz6kwh',1,0,'',2,0,0),(43666,9153,3,171,0,'71.233.232.238',1197327464,1,0,1,1,1,0,'','','Thanks Antonio, It\'s a good start.','',0,'AIA=','ybhkymxz',1,0,'',171,0,0),(43667,9154,6,171,0,'71.233.232.238',1197327638,1,0,1,1,1,0,'','','Antonio,\n\nGracias, por ahi voy a iniciar. \n\nSi algun compañero del foro ha hecho algo y quiere compartir ls experiencia estaria muy agradecido.\n\nSaludos,\n\nGeorge','',0,'AIA=','3pq2pjan',1,0,'',171,0,0),(43668,9150,3,234,0,'75.34.217.174',1197329274,1,0,1,1,1,1,'','','Hi Antonio,\n\nI checked the EXE and the bitmaps are there. I found the cause of the problem. It seems the string length for the PROMPT clause was too long. I shortened text within source code and it works. I hope this can be fixed for the next release.\n\nThank you,','',0,'AIA=','14nm68xz',1,0,'',234,0,0),(43669,9158,3,35,0,'65.188.6.143',1197331155,1,0,1,1,1,0,'','','Antonio\n\nIf you are running your app from a server you will need to go to the desktops effected and add the server IP to the \'trusted\' sites tab in Internet options... Vista is the same way.\n\nRick Lipkin','',0,'AIA=','21tk6rsw',1,0,'',35,0,0),(43670,9140,3,239,0,'116.22.210.157',1197336851,1,0,1,1,1,0,'','','Antonio,\n\n  The odlg2 seems does not work properly ,for example, xbrowse unmoveable .\n  Regards!\n\nShuming Wang','',0,'AIA=','3efdket6',1,0,'',239,0,0),(43671,9159,3,1181,0,'60.50.114.125',1197340247,1,0,0,0,1,1,'','Problem Upgrading To FWH7.11','Hi,\n\nAfter upgrading from FWH2.4 to FWH7.11, I have this error message\n(In FW2.4, when I press down arrow key, the listbox can accept both text and numeric field, but not in FWH 7.11):\n\nApplication\n===========\n   Path and name: C:\\test\\test.exe (32 bits)\n   Size: 4,509,184 bytes\n   Time from start: 0 hours 0 mins 26 secs \n   Error occurred at: 11/12/2007, 10:15:12\n   Error description: Error BASE/1073  Argument error: &lt;\n   Args:\n     [   1] = C                                 \n     [   2] = N   0\n\nStack Calls\n===========\n   Called from:  =&gt; TCLIPGET:PUTMASK(1757)\n   Called from:  =&gt; TCLIPGET:UPDATEBUFFER(236)\n   Called from: .\\source\\classes\\TGET.PRG =&gt; (b)TGET(0)\n   Called from:  =&gt; TGET:REFRESH(0)\n   Called from: .\\c4.prg =&gt; (b)FORM6NEW(6229)\n   Called from:  =&gt; TWBROWSE:GODOWN(910)\n   Called from:  =&gt; TWBROWSE:KEYDOWN(1281)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWBROWSE:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\c4.prg =&gt; FORM6NEW(6254)\n   Called from: .\\c4.prg =&gt; (b)FORM6X(5862)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\c4.prg =&gt; FORM6X(5877)\n   Called from: .\\c4.prg =&gt; (b)FORM6(5674)\n   Called from:  =&gt; TWINDOW:LBUTTONDOWN(0)\n   Called from:  =&gt; TBITMAP:LBUTTONDOWN(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TBITMAP:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\c4.prg =&gt; FORM6(5694)\n   Called from: .\\c4.prg =&gt; WORKINGSHEETC1(473)\n   Called from: .\\c4.prg =&gt; (b)WORKINGSHEETC(440)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\c4.prg =&gt; WORKINGSHEETC(447)\n   Called from: .\\c4.prg =&gt; (b)C04A(160)\n   Called from:  =&gt; TBUTTON:CLICK(0)\n   Called from:  =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from:  =&gt; TDIALOG:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOXINDIRECT(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: .\\c4.prg =&gt; C04A(164)\n   Called from: .\\ecs.prg =&gt; (b)BUILDMENU2(2208)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TWINDOW:COMMAND(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TWINDOW:ACTIVATE(0)\n   Called from: .\\test.prg =&gt; MAIN(78)\n\nPlease help','',0,'AIA=','2pc679p9',1,0,'',1181,0,0),(43672,9160,19,233,0,'60.49.103.49',1197341020,1,0,1,1,1,0,'','Optimizing phpBB 2.0 for Search Engines, Page Rank, and Secu','[u:138kkfjw]Optimizing phpBB 2.0 for Search Engines, Page Rank, and Security[/u:138kkfjw]\n\nAntonio, I thought this might interest you, <!-- m --><a class=\"postlink\" href=\"http://www.devside.net/articles/phpbb\">http://www.devside.net/articles/phpbb</a><!-- m -->','',0,'AQ==','138kkfjw',1,0,'',233,0,0),(43673,9057,3,909,0,'71.71.110.50',1197343476,1,0,1,1,1,1,'','','Antonio - \n\nThanks.  If the esc works, that\'s all I should need.\n\nRegards,\nCharles','',0,'AQ==','286fh9lv',1,0,'',909,0,0),(43674,8726,6,131,0,'194.179.55.36',1197358421,1,0,1,1,1,0,'','','Antonio,\nen XP funciona bien así. Esta noche lo pruebo en Vista.\nGracias,','',0,'AQ==','1ic3eud7',1,0,'',131,0,0),(43675,9137,6,156,0,'201.244.243.29',1197361582,1,0,1,1,1,0,'','','Antonio, gracias por tu respuesta, pero definitivamente no funciona.\n\nSeguí las instrucciones que diste. Modifiqué maindllp.c y hbtypes.h\n\nEn un ejemplo simple compila, ejecuta, lee el contenido de la función en la Dll y retorna bien el resultado, perfecto. Pero.....\n\nTengo Dlls conformadas por 5 o más PRGs con más de 10000 líneas de código que controlan procesos complejos de producción industrial, otras controlan sistemas de venta POS y manejo de periféricos POS. Se crean Ventanas, Diálogos, Browses, se capturan datos, se imprimen informes, interactúan con TSBrowse y TSButton, Gráficos, etc. En otras palabras,  hacemos maravillas con las Dll y todas funcionan perfecto con FWH 2.7.\n\nPor lo que pude inferir, ya no hace falta compilar y linkear en las dlls el archivo FWSTUB.PRG pues no hace nada. En su reemplazo, tomé todas esas intrucciones y las cambié de Stub a DYNAMIC. Luego las incorporé como \"includes\", en cada PRG que conforman cada Dll. Si en un prg no están incluídas genera error cuando invoque alguna función en ese prg. Por otro lado, si se linkean como Libreria, como se hacía con FWStub, no reconoce ninguna función.\n\nLo mismo hay que hacer con cada función de Clipper/Harbour que se quiera utilizar en la Dll. Por ejemplo si quieres hacer un dbGoTop, pues debes ponerlo como DYNAMIC, igual con Empty(), File().dbSkip()....... es decir, todas, sin excepción, las que vayas a utilizar.\n\nAdicionalamente, pones un Dialogo con un simple SAY en un prg y funciona bien. Muestra el diálogo y el say, pero si se te ocurre poner OemToAnsi(\"seleccione su opción\"), entoncer revienta, genera error y no indica cuál ni en dónde. Para solucionarlo te quedan dos opciones: O quitas el OemToAnsi() o pasas la rutina al primer Prg de la Dll para que funcione. Entonces nos quedara un PRG de más de 10000 líneas  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->  \n\nTres personas llevamos 24 horas sin dormir intentando hacerlas funcionar y no hemos podido. O somos muy burros o fue un cambio estructural y no damos por dónde buscarlo.  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n\nY esto es apenas el inicio de las dlls. ni hablar de intentar hacer un deSetFilter, un ADSSETAOF o alguna función de mayor peso. Error y no se sabe porqué. Toca ir aislando línea por línea para ver dónde se genera el error, algunos definitivamente no los pudimos solucionar.\n\nCréeme que hemos hecho todos los intentos y es terriblemente desgastador. Tratamos de valernos por nosotros mismos para no molestarte ni molestar a los compañeros del foro, pero el asunto definitivamente se escapó de nuestras manos.\n\nAUXILIO Antonio...................\n\nNo existirá alguna forma de dejar todo el proceso relaciona con el manejo de PCode Dlls como estaba hasta la versión 0.99.61 ?\n\nPor la modificación que me sugeriste, queda claro que fué un cambio en xHarbour, pero lamentablente, a más de que manejo un inglés muy deficiente, no tengo los conocimientos técnicos para lanzarme en una consulta de esta naturaleza y plantearla de la forma en que le gusta a Ron Pinkas.\n\nNo sé si algún otro colega usa intensivamente Dlls y con cuál versión . Si alguno está usando la última versión de FWH y de xharbour, y usa intensivamente código en Dlls y le están funcionando bien, por Dios, que me eche una manito, y me cuente cómo lo hizo.\n\nY como la Ley de Murphy es inexorable, justo en estos días se les ha ocurrido a una buana cantidad de clientes pedir cambios o procesos nuevos por cierre de año e inicio del próximo.\n\nUn abrazo y espero con ansias tu ayuda,\n\nSaludos,\n\nCarlos Gallego','',0,'AQ==','2unotc23',1,0,'',156,0,0),(43676,9057,3,51,0,'80.122.88.242',1197363524,1,0,1,1,1,0,'','','Hello Antonio,\nCould you please test with this rc-file.\nThis does not work here.\nRegards,\nOtto\n\nABREISE DIALOG 18, 18, 142, 70\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION \"Abreiseliste\"\nBEGIN\n        CONTROL \"\", 101, \"EDIT\", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 72, 15, 54, 12\n        LTEXT \"Abreisetag\", 102, 16, 17, 50, 10\n        DEFPUSHBUTTON \"   Speichern\", 1, 75, 44, 55, 20\n        PUSHBUTTON \"   Abbruch\", 2, 11, 44, 55, 20\nEND\n\n\nANKUNFT DIALOG 18, 18, 142, 92\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION \"Ankunftsliste\"\nBEGIN\n        LTEXT \"Ankunftstag\", 102, 22, 15, 65, 10\n        CONTROL \"\", 101, \"EDIT\", ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 70, 15, 54, 12\n        DEFPUSHBUTTON \"   Speichern\", 1, 75, 57, 55, 20\n        PUSHBUTTON \"   Abbruch\", 2, 11, 57, 55, 20\nEND\n\n\nARTEIN DIALOG 18, 18, 162, 110\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nCAPTION \"Artikel - Nr.\"\nBEGIN\n        EDITTEXT 101, 73, 23, 57, 12\n        CONTROL \"\", 103, \"EDIT\", ES_LEFT | ES_NOHIDESEL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 75, 49, 20, 12\n        CONTROL \"\", 106, \"EDIT\", ES_LEFT | ES_NOHIDESEL | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 75, 62, 55, 12\n        PUSHBUTTON \"...\", 109, 134, 25, 9, 9\n        LTEXT \"Eingabe Artikel-Nr.\", 102, 5, 25, 65, 10\n        LTEXT \"Menge\", 104, 5, 51, 25, 8\n        LTEXT \"Preis\", 107, 5, 64, 25, 8\n        EDITTEXT 105, 5, 36, 125, 12\n        DEFPUSHBUTTON \"   Speichern\", 1, 85, 86, 55, 20\n        PUSHBUTTON \"   Abbruch\", 2, 21, 86, 55, 20\nEND','',0,'AQ==','3itx4cyk',1,0,'',51,0,0),(43677,9076,3,6,0,'79.19.230.63',1197364225,1,0,1,1,1,1,'','Re: Bug in TBtnBmp and dialogs','Any news? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AQ==','275qso0m',1,0,'',6,0,0),(43678,9161,6,542,0,'79.144.219.182',1197364245,1,0,1,1,1,0,'','Clase tOleAuto','Hola a todos:\n\nAlgien me podria indicar como puedo crear un archivo Excel con la Clase tOleauto que contenga una Hoja y como añadirle los campos de una base de datos.\n\nO bien algun manual o direccion donde pueda ver ejemplos de esta clase.\n\nSaludos\n\nCarlos','',0,'AQ==','2idqtam7',1,0,'',542,0,0),(43679,9158,3,86,0,'81.83.151.142',1197364468,1,0,1,1,1,1,'','','Ricki,\n\nThe IP-address of my server is 10.0.0.1.\n\nI added this IP-address to my trusted sites in my internet options.\n\n1. What do I add : 10.0.0.1 or <!-- m --><a class=\"postlink\" href=\"http://10.0.0.1\">http://10.0.0.1</a><!-- m --> ?\n\n2. I tried both ways, but no change. The question about security stays appearing.\n\nWhat do I do wrong ?\n\nThanks.','',0,'AQ==','20lvo0l9',1,0,'',86,0,0),(43680,9158,3,51,0,'80.122.88.242',1197364874,1,0,1,1,1,0,'','','Only from curiosity what is the name of your exe?\nIn VISTA I have these problems with names including update, setup, install\nRegards,\nOtto','',0,'AQ==','2s14evvm',1,0,'',51,0,0),(43681,9158,3,448,0,'81.84.145.34',1197366333,1,0,1,1,1,0,'','','Its not a file name problem. I have several application names and all have the same problem. I\'m going to test it but its probably and IP trust site probelm as this situation only begun to occurr when IE was updated to version 7.\n\nAntonio','',0,'AQ==','17mvzpvb',1,0,'',448,0,0),(43682,9162,3,51,0,'80.122.88.242',1197369586,1,0,1,1,1,0,'','To Enrico - ff.exe','Hello Enrico,\n\nI saw the thread about your ff.exe.\nDo you think you could contribute this functionality to the snipkeeper-project.\nIt would be very comfortable to search the prg-files for some string and then to display the \nresults in the xBrowser so you could easily view and edit the source.\n\nRegards,\nOtto\n[img:3j6yd85p]http&#58;//www&#46;atzwanger&#46;com/fw/snipkeeper&#46;jpg[/img:3j6yd85p]','',0,'CA==','3j6yd85p',1,0,'',51,0,0),(43683,9158,3,86,0,'81.83.151.142',1197369836,1,0,1,1,1,1,'','','AHF,\n\nI found this link : <!-- m --><a class=\"postlink\" href=\"http://www.mcse.ms/message1030070.html\">http://www.mcse.ms/message1030070.html</a><!-- m -->\n\nAnd here is said :\n\n[quote:bdkh2mkd]Open Internet Explorer\nClick on Tools\nClick on Internet Options\nClick on Security\nClick on Local intranet\nClick on Sites\nMake sure Automatically detect intranet network is checked\nClick on Advanced\nAdd the name of your server to this zone\nClick Close\n[/quote:bdkh2mkd]\nI tried it out and it works.\n\nGood luck.','',0,'gA==','bdkh2mkd',1,0,'',86,0,0),(43684,9161,6,294,0,'201.254.175.200',1197370677,1,0,1,1,1,1,'','','Hola Carlos:\nSi lo unico que queres es crear una hoja en Excel, por ahí te sirve la clase FILEXLS con la cual le podes poner los campos de una tabla, o lo que fuese (textos, calculos, etc.)\nLa misma tiene su manual y la podes descargar aqui en la zona de utilerias.','',0,'gA==','3k781403',1,0,'',294,0,0),(43685,9076,3,2,0,'87.218.146.98',1197371717,1,0,1,1,1,1,'','','Enrico,\n\nFixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease add this code to Class TDialog:\n[code:1h6axnqv]\nMETHOD SysCommand&#40; nWParam, nLParam &#41; CLASS TDialog\n\n   if nWParam == SC_CLOSE &#46;and&#46; &#58;&#58;lModal\n      if GetCapture&#40;&#41; != 0  // New !\n         ReleaseCapture&#40;&#41;  // New !\n      endif                       // New !\n      return &#46;f&#46;\n   endif\n\n   &#46;&#46;&#46;\n[/code:1h6axnqv]','',0,'AIA=','1h6axnqv',1,0,'',2,0,0),(43686,9158,3,448,0,'82.155.11.205',1197373289,1,0,1,1,1,0,'','','Thanks to all.\n\nProblem solved with last post.\n\nAntonio','',0,'AIA=','2uf8lgmg',1,0,'',448,0,0),(43687,9057,3,49,0,'213.82.134.66',1197373309,1,0,1,1,1,1,'','','Antonio,\nThis is very interesting...\nHow I can contribute for it ?\nCan i help YOU ?','',0,'AIA=','25p5x6e9',1,0,'',49,0,0),(43688,9163,3,267,0,'201.9.168.66',1197373753,1,0,1,1,1,1,'','xBrowse with resources is possible?','Antonio,\n\nIt is possible to use xBrowse in dialogbox resources?','',0,'AIA=','3n3osm1u',1,0,'',267,0,0),(43689,9076,3,86,0,'81.83.151.142',1197374582,1,0,1,1,1,1,'','','Is it possible that the problem doesn\'t occur when creating dialogs from resources ?\n\nI don\'t have the problem in my application.\n\nThanks.','',0,'AIA=','qqhfx93j',1,0,'',86,0,0),(43690,9076,3,2,0,'87.218.146.98',1197375806,1,0,1,1,1,1,'','','Michel,\n\nHave you tested with FWH 7.12 ?','',0,'AIA=','nxq7n9z8',1,0,'',2,0,0),(43691,9163,3,2,0,'87.218.146.98',1197376064,1,0,1,1,1,1,'','','Vilian,\n\nYes, of course.\n\nPlease review samples\\TestXBrw.prg and TestXBrw.rc','',0,'AIA=','8rmj1gq6',1,0,'',2,0,0),(43692,9057,3,2,0,'87.218.146.98',1197376452,1,0,1,1,1,1,'','','Otto,\n\nYour RC is working fine here with latest published RE.EXE\n\nAre you building RE.EXE yourself ? Please remember that it does not work with FWH 7.12, it requires new FWH libraries.','',0,'AIA=','f3tc2qo2',1,0,'',2,0,0),(43693,9057,3,2,0,'87.218.146.98',1197376879,1,0,1,1,1,1,'','','Silvio,\n\nThis is still a very early prototype and full source code is provided to be reviewed.\n\nWe are close to publish a new build with first editing capabilities. Then it will be a good moment to start helping <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','29r5gba1',1,0,'',2,0,0),(43694,9159,3,2,0,'87.218.146.98',1197376992,1,0,1,1,1,1,'','','Acwoo,\n\nCould you please provide a small PRG sample to reproduce the error ? thanks','',0,'AIA=','3oc7udev',1,0,'',2,0,0),(43695,9163,3,267,0,'201.9.168.66',1197377205,1,0,1,1,1,1,'','','Antonio,\n\nBut does not exist a command REDEFINE ?','',0,'AIA=','2lvqh8b6',1,0,'',267,0,0),(43696,9163,3,2,0,'87.218.146.98',1197377320,1,0,1,1,1,1,'','','Vilian,\n\nNo, it is not implemented as a command. Just as a method call.\n\nWe may implement it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','37zejeqj',1,0,'',2,0,0),(43697,9140,3,2,0,'87.218.146.98',1197377403,1,0,1,1,1,1,'','','Shuming,\n\nPlease provide a small and self contained PRG to test, thanks','',0,'AIA=','325tewxe',1,0,'',2,0,0),(43698,9137,6,2,0,'87.218.146.98',1197379224,1,0,1,1,1,1,'','','Carlos,\n\nEste es el resultado de determinadas personas en Harbour que se dedican a cambiar cosas sin importarles mucho si rompen compatibilidad con el código anterior y el programador es el que sufre las consecuencias <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nY tampoco es fácil ir hacia atras, pues muchas veces son cambios que afectan a distintas partes internas.\n\nSe nos ocurre un \"hack\" en la máquina virtual que quizás funcione. Vamos a hacer algunas pruebas...','',0,'AIA=','51oux1fh',1,0,'',2,0,0),(43699,9076,3,6,0,'79.19.230.63',1197379732,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:14i2456p]Enrico,\n\nFixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease add this code to Class TDialog:[/quote:14i2456p]\n\nThank you!\n\nEMG','',0,'gA==','14i2456p',1,0,'',6,0,0),(43700,9162,3,6,0,'79.19.230.63',1197379913,1,0,1,1,1,1,'','Re: To Enrico - ff.exe','I dont\' know. It is entirely written in C. But I can give you the source code if you want.\n\nEMG','',0,'gA==','g58f4kwv',1,0,'',6,0,0),(43701,9161,6,2,0,'87.218.146.98',1197380188,1,0,1,1,1,1,'','','Carlos,\n\nHaz una búsqueda en estos foros (botón superior de busquedas) por:\n\ncreateobject AND excel','',0,'gA==','ph6ok66q',1,0,'',2,0,0),(43702,9164,6,278,0,'200.126.122.91',1197380468,1,0,1,1,1,1,'','URGENTE: Fatal: Access violation.  Link terminated.','Hola Amigos:\n\nTengo este problema grave, al tratar de pone un simple bmp a mi archivo de recursos (RES) , me aparece este mensaje:\n\n  [code:1bw5nh9p] Fatal&#58; Access violation&#46;  Link terminated&#46;[/code:1bw5nh9p]\n\nEstoy usando FWH + BCC5.5 + Verce + xHarbour\n\nAlguien sabe como solucionarlo. Es muy urgente.\nHabra algun parámetro que se podrá agregar, para ampliar la capacidad\ndel archivo RES.  \n\nMe parece que ese es el problema, no puede ser mayor a 1024 bytes .\nNo será muy poco, para ser 32 bits ?\n\nEstoy detenido , cualquier ayudita, se los agradecería.\n\nSaludos,','',0,'AIA=','1bw5nh9p',1,0,'',278,0,0),(43703,9137,6,2,0,'87.218.146.98',1197381135,1,0,1,1,1,1,'','','Carlos,\n\nTendrías algún ejemplo de PRG para construir la DLL que falle y que no use FWH ? gracias','',0,'AIA=','3a95nx7u',1,0,'',2,0,0),(43704,9164,6,2,0,'87.218.146.98',1197381284,1,0,1,1,1,1,'','','Juan,\n\nQue tamaño tiene el bitmap ?','',0,'AIA=','c6vcvw0z',1,0,'',2,0,0),(43705,9162,3,51,0,'80.122.88.242',1197381871,1,0,1,1,1,0,'','','Thank you for answer, Enrico.\n\nUnfortunately it is not written in FIVEWIN. I cannot make anything with C.\nPossibly someone has this functionality in FWH.\nThanks again\nOtto\n\nPS:Where does ff.exe write the results. Do you think we could get access to this from FW.','',0,'AIA=','2tdex0py',1,0,'',51,0,0),(43706,9076,3,1158,0,'200.159.198.27',1197381892,1,0,1,1,1,0,'','','antonio, this is for 7.11 or 7.12 or too?','',0,'AIA=','z4p63a4m',1,0,'',1158,0,0),(43707,9164,6,278,0,'200.126.122.91',1197382008,1,0,1,1,1,1,'','','Hola Antonio:\n\nGracias por responder.\n\nEl RES tiene 1013 kb y el BMP que deseo agregar es chiquito, de solo 10 kb ( bmp de 64x64 y 16 millones de colores).\n\nTienes alguna idea ??','',0,'AIA=','25x7xr3s',1,0,'',278,0,0),(43708,9161,6,542,0,'79.144.219.182',1197382851,1,0,1,1,1,0,'','','Gracias por vuestro interes como pone Antonio he hecho una busqueda y ya lo he realizado y lo tengo casi terminado ya que me hace una cosa que no se como solucionar y es que cuando realiza todo el proceso queda en el Administrador de Tareas del Ordenador una linea con EXCEL.EXE y no se como quitarla.\n\nPodriais decirme como, gracias\n\nCarlos','',0,'AIA=','29twitau',1,0,'',542,0,0),(43709,9164,6,1106,0,'190.64.155.93',1197383012,1,0,1,1,1,0,'','','Juan:\n\nHace otro BMP igual, a veces un archivo\nda problemas.\n\nSaludos\n\nRuben Fernandez.','',0,'AIA=','3v4tpug6',1,0,'',1106,0,0),(43710,9076,3,2,0,'87.218.146.98',1197383210,1,0,1,1,1,1,'','','Norberto,\n\nFor both and previous versions too','',0,'AIA=','35m34xoa',1,0,'',2,0,0),(43711,9164,6,278,0,'200.126.122.91',1197383394,1,0,1,1,1,1,'','','Hola Ruben:\n\nNo es eso, porque si borro otro  BMP antiguo y pongo este nuevo, me funciona bien. \n\nEl problema es que al agregar otro nuevo, me sale ese mensaje.\n\n\nCONSULTA: Hay limites en el tamaño del archivo de recursos RES ??\n\nSaludos,','',0,'AIA=','61c2a2fy',1,0,'',278,0,0),(43712,9165,6,278,0,'200.126.122.91',1197383512,1,0,1,1,1,1,'','CUAL ES EL LIMITE de Tamaño de un archivo RES  ??','Hola cual es el limte de un archivo RES, al usarlo con xharbour y FWH.\n\nTengo problemas, no puedo pasar los 1024 ??\n\nEs esto asi ??? \n\nAlguien puede usar archivos mas grandes ??\n\nSaludos,','',0,'AIA=','374oy8q3',1,0,'',278,0,0),(43713,9137,6,156,0,'201.244.194.67',1197384614,1,0,1,1,1,0,'','','Antonio,\n\nTotalmente cierto.\n\nParece que la gente va perdiendo el horizonte.\n\nYo creo que es el momento en que tú deberías retomar el liderazgo de desarrollo en xHarbour, así como lo tienes en Harbour, y consolidar código en un sólo producto, por ejemplo yHarbour, donde el principal objetivo sea el fortalecimiento de FiveWin.\n\nLo que necesitamos ahora, más que nunca, es fortalecer al máximo a FiveWin. Tu maravillosa herramienta fué la primera opción que tuvimos todos lo programadores puros de Clipper para salir del mundo de los 16 bits. Fué y ha sido indiscutiblemente la mejor. Fuiste el maestro de miles de programadores y el decano de Harbour. Tú lo create. Tu visión, tu capacidad y tu profesionalismo lo crearon.\n\nLástima la desersión, que con la dispersión de esfuerzos, en vez de fortalecer una herramienta y un concepto, los debilitan, y que, en vez de darnos un largo y próspero camino a los miles que venimos de Clipper, crean confusión. Van naciendo xxxVisuales, que en vez de unir, dividen.\n\nYo invito a los amigos que se apartaron de FiveWin y se fueron por otros caminos a que regresen. FiveWin ya está recontra probado, es la plataforma de miles de aplicaciones de todo tipo, hermosas, sólidas y robustas, corriendo por todo el mundo. Los invito a que apoyemos a FiveWin, a que no nos olvidemos, que todos, o casi todos, comenzamos el mundo de los 32 bits con Fivewin, que gracias a tí y a tu producto, aprendimos, vivimos, comimos, creamos empresa, crecimos, etc. Un poco de agradeciemiento hacía tí y hacia tu producto no vendría mal.\n\nFiveWin no es una aventura, es una realidad, una sólida realidad, y si la hacemos más y más grande, todos ganarémos.\n\nNo hay límite a lo que puedes hacer con FiveWin y con un xHarbour (xHarbour estable y compatible, por supuesto). El límite es la capacidad e imaginación del programador. \n\nUfff, amanecí inspirado, que ya parezco político.\n\nLARGA, LARGUISIMA VIDA A FIVEWIN. ES EL MEJOR\n\nUn abrazo y quedo a la espera de tu ayuda,\n\nSaludos,\n\nCarlos Gallego','',0,'AIA=','2mufx8xs',1,0,'',156,0,0),(43714,9166,6,542,0,'79.144.219.182',1197385205,1,0,1,1,1,0,'','Cerrar EXCEL.EXE o WINWORD.EXE','Hola a todos:\n\nUso la clase toleauto para crear archivos en formato excel y word pero cada vez que abro la clase se queda en el Administrador de Tareas del Ordenador EXCEL.EXE o WINWORD.EXE, alguien me podria decir como se pueden cerrar estas aplicaciones desde el programa, gracias.\n\nUn saludo\n\nCarlos','',0,'AIA=','a3u94ckc',1,0,'',542,0,0),(43715,9159,3,1181,0,'60.50.117.63',1197385625,1,0,0,0,1,1,'','Problem Upgrade to FWH7.11','Thanks for your help.\n\n   @ 0.2, 0.4 LISTBOX oLbx FIELDS ;\n     tax3-&gt;desp;\n     HEADERS     \"Description\";\n     FIELDSIZES  400 ;\n     SIZE 307, 160 OF oDlg;\n     FONT oFont\n\n     oLbx:cToolTip = \"Press `Enter\' To Select Item.\"\n     oLbx:bKeyDown := { | nKey, nFlags | If( nKey == VK_RETURN,;\n                    saycusta(,lreturn := .f., oc1desp:SetFocus() ),) }\n     oLbx:bchange:={ || getform6c1desp(oc1desp), oc1desp:Refresh() }  \n\n     @ 12.5, 0.4 Get oc1desp VAR cc1desp size 307, 11 OF oDlG  COLOR;\n        CLR_GREEN\n     @ 9.95, 18.7 BUTTON \"&amp;Accept\" OF oDlg SIZE 40, 12 ;\n        ACTION (getform6cxdesp(oLbx), ;\n         oDlg:SetFocus() ,SysREfresh(), oLbx:SetFocus())  \n     @ 9.95, 25.7 BUTTON \"&amp;Exit\" OF oDlg SIZE 40, 12 ;\n	ACTION ( lreturn := .t., oDlg:End()) \n    ACTIVATE DIALOG oDlg CENTERED\n   ..........................................................\n\nfunction getform6c1desp(oc1desp)\n   \nselect form6\n \n   crecnum = tax3-&gt;recnum\n\n   if crecnum = \"Coynum\"\n      c1desp = mCoynum\n   elseif crecnum = \"Name1\"\n      c1desp = mName1\n   elseif crecnum = \"CoySec1\"\n      c1desp = mCoySec1\n   elseif crecnum = \"ICNum\"\n      c1desp = mICNum\n   elseif crecnum = \"SecAdd\"\n      c1desp = mSecAdd\n   elseif crecnum = \"RegSec\"\n      c1desp = mRegSec\n   elseif crecnum = \"RegState\"\n      c1desp = mRegState\n   elseif crecnum = \"RegPost\"\n      c1desp = mRegPost\n   elseif crecnum = \"PrinOB1\"\n      c1desp = mPrinOB1\n   elseif crecnum = \"PrinOB2\"\n      c1desp = mPrinOB2\n   elseif crecnum = \"PrinOB3\"\n      c1desp = mPrinOB3\n   elseif crecnum = \"AutCap\"\n      c1desp = mAutCap\n   elseif crecnum = \"NumShare\"\n      c1desp = mNumShare\n   elseif crecnum = \"ParValue\"\n      c1desp = mParValue\n   elseif crecnum = \"Declarea\"\n      c1desp = mDeclarea\n   elseif crecnum = \"Day1\"\n      c1desp = mDay1\n   elseif crecnum = \"MonthYr\"\n      c1desp = mMonthYr\n   elseif crecnum = \"CoySec2\"\n      c1desp = mCoySec2\n   elseif crecnum = \"LicenceN\"\n      c1desp = mLicenceN\n   endif\n\n  cc1desp = c1desp\nreturn oc1desp\n********************************************\nfunction getform6cxdesp(oLbx)\n\n   local nOldRec := RecNo()\n   c1desp = cc1desp\n   select form6\n\n   onerror(\"RLOCK\")\n   if crecnum = \"Coynum\"\n      replace Coynum with c1desp \n   elseif crecnum = \"Name1\"\n      replace Name1 with c1desp \n   elseif crecnum = \"CoySec1\"\n      replace CoySec1 with c1desp \n   elseif crecnum = \"ICNum\"\n      replace ICNum with c1desp \n   elseif crecnum = \"SecAdd\"\n      replace SecAdd with c1desp \n   elseif crecnum = \"RegSec\"\n      replace RegSec with c1desp \n   elseif crecnum = \"RegState\"\n      replace RegState with c1desp \n   elseif crecnum = \"RegPost\"\n      replace RegPost with c1desp \n   elseif crecnum = \"PrinOB1\"\n      replace PrinOB1 with c1desp \n   elseif crecnum = \"PrinOB2\"\n      replace PrinOB2 with c1desp \n   elseif crecnum = \"PrinOB3\"\n      replace PrinOB3 with c1desp \n   elseif crecnum = \"AutCap\"\n      replace AutCap with c1desp \n   elseif crecnum = \"NumShare\"\n      replace NumShare with c1desp \n   elseif crecnum = \"ParValue\"\n      replace ParValue with c1desp \n   elseif crecnum = \"Declarea\"\n      replace Declarea with c1desp \n   elseif crecnum = \"Day1\"\n      replace Day1 with c1desp \n   elseif crecnum = \"MonthYr\"\n      replace MonthYr with c1desp \n   elseif crecnum = \"CoySec2\"\n      replace CoySec2 with c1desp \n   elseif crecnum = \"LicenceN\"\n      replace LicenceN with c1desp \n   endif\n\n  cc1desp = c1desp\n  oLbx:SetFocus()\n  oLbx:Refresh()\n\nreturn nil\n********************************************\n\nPlease help\nThanks','',0,'AIA=','dabi5fgl',1,0,'',1181,0,0),(43716,9164,6,1106,0,'190.64.155.93',1197385954,1,0,1,1,1,0,'','','Juan:\n\nCreo que hay algo de eso.\n\nSe ha hablado aqui  de eso y se dijo que una solucion\nseria crear 2 archivos .res.\n\nSaludos.\n\nRuben Fernandez.','',0,'AIA=','3e1z1y6h',1,0,'',1106,0,0),(43717,9057,3,2,0,'87.218.146.98',1197386371,1,0,1,1,1,1,'','','In this new build you can already move the controls around:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/22102-2981558c7d.html\">http://www.hotshare.net/file/22102-2981558c7d.html</a><!-- m -->\n\nNotice: SAYs can\'t be moved yet.','',0,'AIA=','2if3rj59',1,0,'',2,0,0),(43718,9164,6,362,0,'200.158.19.223',1197386530,1,0,1,1,1,1,'','','hola...\n\nEL ILINK32.EXE de Borland, solo soporta archivos.res de tamaño máximo: 1.052.000 kbyte.\n\nPortanto, use cuantos archivos.res sean necesarios.\n\nSaludos.','',0,'AIA=','23nsogdc',1,0,'',362,0,0),(43719,9165,6,362,0,'200.158.19.223',1197386598,1,0,1,1,1,1,'','','Hola...\n\n+- 1.052.000 kBytes...','',0,'AIA=','2o9qb9wz',1,0,'',362,0,0),(43720,9057,3,2,0,'87.218.146.98',1197387194,1,0,1,1,1,1,'','','In this new build you can resize the dialogs:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/22103-396693955e.html\">http://www.hotshare.net/file/22103-396693955e.html</a><!-- m -->\n\nThe controls can\'t be resized yet','',0,'AIA=','31t4kyxu',1,0,'',2,0,0),(43721,9137,6,2,0,'87.218.146.98',1197387490,1,0,1,1,1,1,'','','Carlos,\n\nPrefiero no entrar en polémicas y discusiones sin fín <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nConsígueme un ejemplo que reproduzca el error sin usar FWH <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nGracias!','',0,'AIA=','u9vy7iil',1,0,'',2,0,0),(43722,9164,6,278,0,'200.126.122.91',1197389462,1,0,1,1,1,1,'','','Gracias por responder:\n\nRuben, me puedes dar una pauta como unir varios RES.\n\nComo lo hacen con el PellesC. Nunca me habia tocado hacer esto !!\n\nSaludos,','',0,'AIA=','3d6rvwkr',1,0,'',278,0,0),(43723,9165,6,278,0,'200.126.122.91',1197389535,1,0,1,1,1,1,'','','Gracias Karinha.  \n\nEsto me tranquiliza, pues pensaba que eran mis bmp.\n\nComo se unen varios RES con PellesC ??\n\nSaludos,','',0,'AIA=','1yd0vhkp',1,0,'',278,0,0),(43724,9167,3,51,0,'80.122.88.242',1197389855,1,0,1,1,1,0,'','xBrowser height row','Is it posible to have different heights on diverse rows of the xBrowser.\n[img:dnb0hxuu]http&#58;//www&#46;atzwanger&#46;com/fw/invoice&#46;jpg[/img:dnb0hxuu]','',0,'CA==','dnb0hxuu',1,0,'',51,0,0),(43725,9137,6,156,0,'201.244.194.67',1197390468,1,0,1,1,1,0,'','','Antonio:\n\n[url:3fmtemda]http&#58;//mastersoft3000&#46;com/publico/prudll&#46;zip[/url:3fmtemda]\n\nVa un ejemplo completo super reducido que muestra el problema de los SAY con OemToAnsi. Pero va con FWH  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->\n\nNo sé como simular el mismo comportamiento sin usar FWH.\n\nSaludos,\n\nCarlos Gallego','',0,'EA==','3fmtemda',1,0,'',156,0,0),(43726,9168,6,227,0,'201.28.39.222',1197392568,1,0,1,1,1,1,'','tProgress','Amigos....\n\nGostaria de cria uma barra de progressão com o tempo baseado em uma função de conexão a banco mysql via adodb, é possivel ?\n\nObrigado','',0,'EA==','3f5r8ecc',1,0,'',227,0,0),(43727,9057,3,909,0,'71.71.110.50',1197394779,1,0,1,1,1,1,'','','Antonio - \n\nWhen radio buttons are within a groupbox, they do not display in RE.EXE.  \n\nblend.rc\n\nBLEND DIALOG LOADONCALL MOVEABLE DISCARDABLE 6, 15, 279, 204\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION \"Make/Edit Blends\"\nFONT 8 \"MS Sans Serif\"\n{\n GROUPBOX \"Choose\", 101, 160, 4, 90, 44, BS_GROUPBOX\n RADIOBUTTON \"New Blend Makeup\", 102, 166, 16, 76, 12, BS_AUTORADIOBUTTON | WS_GROUP\n RADIOBUTTON \"Add Data To a Blend\", 103, 166, 32, 76, 12, BS_AUTORADIOBUTTON\n} \n\nThis has been happening all along and not connected with the recent changes you have made.\n\nRegards,\nCharles','',0,'EA==','1wl91p6c',1,0,'',909,0,0),(43728,9166,6,103,0,'189.12.229.204',1197397273,1,0,1,1,1,1,'','','Hola Carlos,\n\n   Pone al final:\n\noExcel:=NIL\n\nSaludos,','',0,'EA==','5g0n4hyr',1,0,'',103,0,0),(43729,9169,6,409,0,'190.82.212.226',1197398100,1,0,1,1,1,0,'','PAGINACION ADO+MYSQL EN BROWSE','QUIEN SABE PAGINAR UNA TABLA EN UN BROWSE:\nEJEMPLO:\nSELECT * FROM TABLA LIMIT 0,10\n\n\nIR  PASANDO INFORMACION DE 10 EN 10\n\nCON BOTON  DE SIGUIENTE  AVANZA 10 MAS ES DECIR \nSELECT * FROM TABLA LIMIT 10,10 Y BOTON ANTERIOR ES DECIR\nSELECT * FROM TABLA LIMIT  0,10 CUAL QUIER AYUDA BIEN VENIDA\nSALUDOS','',0,'EA==','3nvxmc0t',1,0,'',409,0,0),(43730,9166,6,542,0,'83.52.13.159',1197398189,1,0,1,1,1,0,'','','Gracias Kleyber por tu dato, lo he puesto y cuando salgo de la aplicacion lo cierra.\n\nUn saludo y gracias de nuevo\n\nCarlos','',0,'EA==','3r78shk5',1,0,'',542,0,0),(43731,9170,2,1148,0,'190.31.203.120',1197398548,1,0,1,1,1,0,'','Foco en Get de un Folder','Hola a todos y gracias de antemano!!\nDefino un diálogo con 3 folders y necesito que al inicar, el foco esté en el 1er get del primer Folder. He probado de 100 maneras viendo ejemplos y consultas en el foro y no lo puedo solucionar. Algo estoy haciendo mal, no obstante todos los ejemplos que vi en \\SAMPLES, ninguno tiene el foco en el primer objeto del Folder. Siempre hay que clickear con el mouse.\nAdjunto código a ver si alguien me ayuda (FW 1.95,Clp 5.2 y Blinker 3.0):\n\n   local oDlg\n   local oFld\n   local hBorl:=LoadLibrary(\"MIBWCC.DLL\")\n\n   local oCodP1, oRazPro1, oBusP1\n   local oBtnOK, oBtnCancel\n   local nCodP1:=0, nCodP2:=0, cRazPro1\n   \n\n   DEFINE DIALOG oDlg RESOURCE \"MARCO\"\n\n   REDEFINE FOLDER oFld ID 1499 OF oDlg; \n   PROMPTS \"Comprobantes\",\"Valores\",\"Comisión y Gastos\"; \n   DIALOGS \"LIQUI1\",\"LIQUI2\",\"LIQUI3\" \n\n   oFld:aEnable := { .t., .f., .f. }\n\n   REDEFINE GET oCodP1 VAR nCodP1 PICTURE \"9999\" ID LQ1_CODP OF oFld:aDialogs[1] UPDATE ;\n            VALID Eval (ValidaCodp)\n\n   REDEFINE GET oRazPro VAR cRazPro PICTURE \"@K!\" ID LQ1_RAZP OF oFld:aDialogs[1] ;\n            VALID Eval (ValidaRazP)\n\n   REDEFINE BUTTON oBusP ID LQ1_BUSP OF oFld:aDialogs[1] ;\n            ACTION Eval(ValidaBusP)\n\n   REDEFINE BUTTON oBtnCancel ID LQ3_CANCEL OF oDlg ACTION oDlg:End() CANCEL\n\n   REDEFINE BUTTON oBtnOK ID LQ3_OK OF oDlg ACTION ....\n   \n   ACTIVATE DIALOG oDlg CENTERED ;\n   ON INIT (oFld:aDialogs[1]:bGotFocus:={ || oCodP1:SetFocus() } )\n\n\n   He probado con oFld:SetOption(1),oFld:nOption:=1,oCodP1:SetFocus(.T.), etc y nada funciona\n\nSaludos y gracias!!','',0,'','376us4dg',1,0,'',1148,0,0),(43732,9170,2,2,0,'87.218.146.98',1197399401,1,0,1,1,1,1,'','','Prueba así:\n[code:75oxrhcb]\nACTIVATE DIALOG oDlg CENTERED ; \nON INIT &#40; oCodP1&#58;SetFocus&#40;&#41;, &#46;F&#46; &#41; \n[/code:75oxrhcb]\nObserva el uso de [color=red:75oxrhcb].F.[/color:75oxrhcb]','',0,'AoA=','75oxrhcb',1,0,'',2,0,0),(43733,9164,6,1106,0,'190.64.155.93',1197400256,1,0,1,1,1,0,'','','Juan:\n\nComo no he tenido ese problema, creo que solo debes\ncrear el archivo.res y agregarlo a tu proyecto.\n\nYo lo hgo con xMate.\n\nSaludos.\n\nRuben Fernandez.','',0,'AoA=','b7xd7b5q',1,0,'',1106,0,0),(43734,9170,2,1148,0,'190.31.203.120',1197400842,1,0,1,1,1,0,'','','Antonio, Funcionó OK!!\nTe agradezco por las horas ahorradas!! \nSería factible saber que función cumple el .F. ese agregado?? No lo tenía entre mis recursos.....\nUn abrazo!!\nMax','',0,'AoA=','22a5js90',1,0,'',1148,0,0);
INSERT INTO `phpbb_posts` VALUES (43735,9165,6,362,0,'200.158.19.223',1197401120,1,0,1,1,1,1,'','','//-&gt; Yo lo hago asi, en mi archivo.lnk\n\nc0w32.Obj                               +\nVENDAS.Obj                              +\nBTNGET.Obj                              +\nBTNDOWN.Obj                             +\nGETBTN.Obj                              +\nTSBROWSE.Obj                            +\nSBMSGPOR.Obj                            +\nTSCOLUMN.Obj                            +\nTSBTNGET.Obj                            +\nTSGET.Obj                               +\nTSCOMBO.Obj                             +\nTSMULTI.Obj                             +\nSCRLLBAR.Obj                            +\nTMETAFIL.Obj                            +\nTSBFUNCS.Obj                            +\nSCROLL.Obj                              +\nTSBUTTON.Obj                            +\nTSBAR.Obj                               +\nTSLINES.Obj                             +\nBPAINT.Obj                              +\nROUNDREC.Obj                            +\nDBMANT.Obj                              +\nREDE.Obj                                +\nSSAY.Obj                                +\nBMP_RAND.Obj                            +\nREINICIA.Obj                            +\nTSHUT.Obj                               +\nREINICIA.Obj                            +\nREINDEXA.Obj                            +\nDSAY.Obj                                +\nANIMABMP.Obj                            +\nEMPRESAS.Obj                            +\nCRIARDBF.Obj                            +\nMSGMETER.Obj                            +\nCALEND.Obj                              +\nTCALENDA.ObJ                            +\nDIREITOS.Obj                            +\nBMPVIEW.Obj                             +\nCORGET.Obj                              +\nIMAGE.Obj                               +\nMSGGETCP                                +\nMSGGET.Obj                              +\nWBROWSE.Obj                             +\nTGET.Obj                                +\nCONTROL.Obj                             +\nWINDOW.Obj                              +\nRPREVIEW.Obj                            +\nFOLDER.Obj                              +\nERRSYSW.Obj                             +\nFWERROR.Obj                             +\nCLIENTES.Obj                            +\nCADFORNE.Obj                            +\nESTOQUE.Obj                             +\nINCFITAS.Obj                            +\nFUNCOES.Obj                             +\nOPERADOR.Obj                            +\nREPASSA.Obj                             +\nREPASSA2.Obj                            +\nDEL_COMP.Obj                            +\nDELPEDID.Obj                            +\nCBREAJPR.Obj                            +\nCBREAJGL.Obj                            +\nREPMARCA.Obj                            +\nREPNOMES.Obj                            +\nREPCONTA.Obj                            +\nFOTOS.Obj                               +\nUTIL.Obj                                +\nWAGENDA.Obj                             +\nVERFITAS.Obj                            +\nVERFICOD.Obj                            +\nTCBFITAS.Obj                            +\nBROWFITA.Obj                            +\nRECIBO.Obj                              +\nXBLITE.Obj                              +\nBOXGET.Obj                              +\nAPAGADIS.Obj                            +\nBROWSEFA.Obj                            +\nTCBCADFO.Obj                            +\nCADFORN2.Obj                            +\nCALCULAD.Obj                            +\nRELOGIO.Obj                             +\nTIPOEMPR.Obj                            +\nENTREGAD.Obj                            +\nALTTICKT.Obj                            +\nCONTATO.Obj                             +\nDISPLAY.Obj                             +\nCLIEIMOB.Obj                            +\nCAPTADOR.Obj                            +\nTIPOCLIE.Obj                            +\nOPERACAO.Obj                            +\nCONTRATO.Obj                            +\nTIPOIMOV.Obj                            +\nTIPOZONA.Obj                            +\nIMOVEIS.Obj                             +\nFIADORES.Obj                            +\nINQUILIN.Obj                            +\nPROPRIET.Obj,                           +\nVENDAS.exe,                             +\nVENDAS.map,                             +\n\\FwH27\\lib\\FiveHX.Lib                   +\n\\FwH27\\lib\\FiveHC.Lib                   +\n\\FwH27\\lib\\FoldBmp32.lib                +\n\\xHarbour\\Lib\\Ace32.Lib                 +\n\\xHarbour\\Lib\\RddAds.Lib                +\n\\xHarbour\\lib\\hbzip.Lib                 +\n\\xHarbour\\lib\\rtl.Lib                   +\n\\xHarbour\\lib\\vm.Lib                    +\n\\xHarbour\\lib\\gtgui.Lib                 +\n\\xHarbour\\lib\\lang.Lib                  +\n\\xHarbour\\lib\\macro.Lib                 +\n\\xHarbour\\lib\\rdd.Lib                   +\n\\xHarbour\\lib\\dbfntx.Lib                +\n\\xHarbour\\lib\\dbfcdx.Lib                +\n\\xHarbour\\lib\\dbfdbt.Lib                +\n\\xHarbour\\lib\\debug.Lib                 +\n\\xHarbour\\lib\\common.Lib                +\n\\xHarbour\\lib\\tip.Lib                   +\n\\xHarbour\\lib\\pp.Lib                    +\n\\xHarbour\\lib\\dbffpt.Lib                +\n\\xHarbour\\lib\\codepage.Lib              +\n\\xHarbour\\lib\\libmisc.Lib               +\n\\xHarbour\\lib\\HbCt.Lib                  +\n\\xHarbour\\lib\\HbSix.Lib                 +\n\\xHarbour\\lib\\HbComm.Lib                +\n\\xHarbour\\lib\\PcRepos.Lib               +\n\\xHarbour\\Lib\\ct.Lib                    +\n\\Borland\\Bcc55\\lib\\cw32.Lib             +\n\\Borland\\Bcc55\\lib\\psdk\\msimg32.Lib     +\n\\Borland\\Bcc55\\lib\\psdk\\odbc32.Lib      +\n\\Borland\\Bcc55\\lib\\psdk\\rasapi32.Lib    +\n\\Borland\\Bcc55\\lib\\psdk\\nddeapi.Lib     +\n\\Borland\\Bcc55\\lib\\psdk\\iphlpapi.Lib    +\n\\Borland\\Bcc55\\lib\\import32.Lib,\nPIZZAS.RES                              +\nIMOBILIA.RES                            +\nIMAGENS.RES                             +\nXBLITE.RES','',0,'AoA=','2p32ylnq',1,0,'',362,0,0),(43736,9170,2,2,0,'87.218.146.98',1197402121,1,0,1,1,1,1,'','','Max,\n\nEs un comportamiento propio del mensaje WM_INITDIALOG de Windows documentado en su API <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;\nReturn Values\n\nThe dialog box procedure should return TRUE to direct Windows to set the keyboard focus to the control given by hwndFocus. Otherwise, it should return FALSE to prevent Windows from setting the default keyboard focus. \n&gt;','',0,'AoA=','8nbnnwz6',1,0,'',2,0,0),(43737,9162,3,6,0,'79.9.234.159',1197402209,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:21i604x7]PS:Where does ff.exe write the results. Do you think we could get access to this from FW.[/quote:21i604x7]\n\nIt doesn\'t write the results anywhere. It just add them to a listbox.\n\nEMG','',0,'gA==','21i604x7',1,0,'',6,0,0),(43738,9162,3,51,0,'80.122.88.242',1197403239,1,0,1,1,1,0,'','','Would it be much work for you to write the results to a TXT-file?\nRegards,\nOtto','',0,'gA==','naqcuhpq',1,0,'',51,0,0),(43739,9057,3,909,0,'71.71.110.50',1197403566,1,0,1,1,1,1,'','','Antonio - \n\nRe my last post about the radiobuttons.  It is not just the ones inside a group box.  I had a look at your testrad.rc and you used the generic CONTROL rather than classname RADIOBUTTON as Resource Workshop does.  Converting from RW will be a challenge.\n\nRegards,\nCharles','',0,'gA==','19p6rgma',1,0,'',909,0,0),(43740,9165,6,278,0,'200.126.122.91',1197404374,1,0,1,1,1,1,'','','GRACIAS , lo voy a probar.','',0,'gA==','33ucyt9s',1,0,'',278,0,0),(43741,9057,3,2,0,'87.218.146.98',1197404510,1,0,1,1,1,1,'','','Charles,\n\nRADIOBUTTON support already implemented:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/22147-8734875d0d.html\">http://www.hotshare.net/file/22147-8734875d0d.html</a><!-- m -->\n\nMany thanks for your feedback <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','228ovv0t',1,0,'',2,0,0),(43742,9057,3,51,0,'80.122.88.242',1197405580,1,0,1,1,1,0,'','','style not found: 32769\n\nSUB4 DIALOG 53, 30, 340, 184\nSTYLE WS_CHILD\nFONT 8, \"Arial\"\nBEGIN\n        LTEXT \"vermittelt durch\", 77, 8, 37, 54, 7\n        LTEXT \"Meldeblatt-Nr.\", 87, 218, 37, 50, 8\n        LTEXT \"Mailing\", 301, 8, 61, 27, 8\n        LTEXT \"Zielgruppe\", 300, 108, 62, 51, 8\n        CONTROL \"\", 80, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 107, 71, 186, 89\n        CONTROL \"\", 79, \"BorShade\", 32769 | WS_CHILD | WS_VISIBLE, 7, 70, 96, 90\n        EDITTEXT 329, 82, 34, 115, 12\n        PUSHBUTTON \"...\", 400, 202, 36, 9, 9\n        EDITTEXT 331, 218, 47, 55, 12\n        CONTROL \"Weihnachten\", 101, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 14, 74, 75, 10\n        CONTROL \"Geburtstag\", 102, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 14, 86, 75, 10\n        CONTROL \"Sonderangebot\", 103, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 14, 98, 75, 10\n        CONTROL \"Markierung\", 104, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 14, 110, 75, 10\n        CONTROL \"Markierung 2\", 105, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 14, 122, 75, 10\n        CONTROL \"Markierung 3\", 106, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 14, 134, 75, 10\n        CONTROL \"Alpinskifahrer\", 201, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 116, 74, 75, 10\n        CONTROL \"Langläufer\", 202, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 116, 86, 75, 10\n        CONTROL \"Radfahrer\", 203, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 116, 98, 75, 10\n        CONTROL \"Mountainbike\", 204, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 116, 110, 75, 10\n        CONTROL \"Tennis\", 205, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 116, 122, 75, 10\n        CONTROL \"Hundeführer\", 206, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 116, 136, 75, 10\n        CONTROL \"Wandern\", 207, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 74, 75, 11\n        CONTROL \"Business\", 208, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 86, 75, 10\n        CONTROL \"Seminare\", 209, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 98, 75, 10\n        CONTROL \"Gourmet\", 210, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 110, 75, 10\n        CONTROL \"Golfer\", 211, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 122, 75, 10\n        CONTROL \"Drachenflieger\", 212, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 134, 75, 10\n        CONTROL \"Paragleiter\", 213, \"BUTTON\", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 205, 146, 75, 10\nEND','',0,'gA==','3gu2fa2y',1,0,'',51,0,0),(43743,9161,6,935,0,'200.62.80.124',1197406233,1,0,1,1,1,1,'','Termina el Proceso','Carlos,\n\nDebes terminar el proceso, algo asi :\n\noHoja:End() // cierras la hoja activa\noExcel:end() // cierras el Objeto\n\nOjala te sirva\n\nRamon Paredes\nManagua, Nicaragua','',0,'gA==','12akjhe2',1,0,'',935,0,0),(43744,9159,3,2,0,'87.218.146.98',1197406440,1,0,1,1,1,1,'','','Acwoo,\n\nWhats the field type of tax3-&gt;desp ?','',0,'gA==','13iv7s1z',1,0,'',2,0,0),(43745,9057,3,909,0,'71.71.110.50',1197410999,1,0,1,1,1,1,'','','Antonio - \n\nThanks very much for fixing the radiobuttons.  You\'re doing a great job with this.\n\nBest regards,\nCharles','',0,'gA==','2d1r5gme',1,0,'',909,0,0),(43746,9166,6,53,0,'189.139.13.191',1197412591,1,0,1,1,1,1,'','','Carlos:\n\nIntenta con \n\noExcel:WorkBooks:Close()\noExcel:Quit()\n\nSaludos','',0,'gA==','4gplp026',1,0,'',53,0,0),(43747,9162,3,6,0,'79.9.234.159',1197414251,1,0,1,1,1,1,'','','Presumably not, but I wouldn\'t slow down the search with a disk write.\n\nEMG','',0,'gA==','1i15s51p',1,0,'',6,0,0),(43748,9159,3,1181,0,'60.48.83.68',1197417635,1,0,0,0,1,1,'','Problem Upgrade To FWH 7.11','Thanks for yuor help\n\n&gt;Whats the field type of tax3-&gt;desp ?\n\nText field. It describe the items to be updated in form6.dbf\n\nThanks','',0,'gA==','3pk2pjy4',1,0,'',1181,0,0),(43749,9130,3,69,0,'74.13.31.230',1197418051,1,0,1,1,1,1,'','','Thanks Enrico','',0,'gA==','3jddjr0k',1,0,'',69,0,0),(43750,9167,3,239,0,'116.22.210.157',1197423986,1,0,1,1,1,0,'','','Otto,\n  This feature I long time eager ! so to report()\n  This must add a codes to detect max columns text height .\n  Xbrowse now uses DrawTextEx() to paint cell/column text, must input the fixed height and width.\n\nRegards!\nShuming Wang','',0,'gA==','22d0rfog',1,0,'',239,0,0),(43751,9171,3,233,0,'218.111.23.107',1197424795,1,0,1,1,1,0,'','Error E2227 apprun.c 190: Extra parameter in call to hb_vmEx','[u:13vmkpac][b:13vmkpac]Error E2227 apprun.c 190: Extra parameter in call to hb_vmExecute in function HB_FUN_xxxxxxx[/b:13vmkpac][/u:13vmkpac]\n\nWhen attempting to recompile my custom lib with FWH 7.12 and the provided xHarbour, I got a lot of error messages similar to the format stated above.\n\nWhat\'s the cause and how to solve them? If it would help, here are the batch and make file that I\'ve been using to generate the lib.\n\n[b:13vmkpac][u:13vmkpac]Batch file[/u:13vmkpac][/b:13vmkpac]\n[code:13vmkpac]del bash&#46;lib\ndel *&#46;log\nSET FWHDIR=j&#58;\\harbour\\fwh\nSET HDIR=j&#58;\\harbour\\xhb\nSET BCDIR=j&#58;\\harbour\\bcc55\nj&#58;\\harbour\\bcc55\\BIN\\MAKE -f bash&#46;mak\n[/code:13vmkpac]\n\n[b:13vmkpac][u:13vmkpac]Make file (bash.mak)[/u:13vmkpac][/b:13vmkpac]\n[code:13vmkpac]\n#&#46;path&#46;res = obj\n#&#46;path&#46;c   = c\n#&#46;path&#46;prg = prg\n\n\nBCC_OPT =  -d $&#40;CFLAGS&#41;\n&#46;SUFFIXES&#58; &#46;exe &#46;obj &#46;c\n\nFiveHX_LIB_OBJS = \\\nprg1&#46;obj \\\nprg2&#46;obj\n\n\n&#46;prg&#46;c&#58;\n  $&#40;HDIR&#41;\\bin\\harbour&#46;exe $&lt; /n/w  /i$&#40;FWHDIR&#41;\\include;$&#40;HDIR&#41;\\include /o$@  &gt;&gt; bash&#46;log\n\n&#46;c&#46;obj&#58;\n  $&#40;BCDIR&#41;\\bin\\bcc32&#46;exe $&#40;BCC_OPT&#41; -c -v -o$@ -I$&#40;FWHDIR&#41;\\include;$&#40;HDIR&#41;\\include -DHARBOUR_USE_WIN_GTAPI -DHB_COMPAT_C53 $&lt;   &gt;&gt; bash&#46;log\n  $&#40;BCDIR&#41;\\bin\\tlib&#46;exe bash&#46;lib /P32 + $@ &gt;&gt;bash&#46;log\n\nbash&#46;lib &#58; $&#40;FiveHX_LIB_OBJS&#41;\n   echo Harbour dir&#58; $&#40;HDIR&#41; &gt;&gt; bash&#46;log\n[/code:13vmkpac]','',0,'QYA=','13vmkpac',1,0,'',233,0,0),(43754,9174,6,1198,0,'189.155.27.37',1197425460,1,0,1,1,1,0,'','Manual de ODBC','Donde puedo encontrar un Manual de ODBC??? les agradezco mucho su ayuda!!','',0,'GA==','3hxws24n',1,0,'',1198,0,0),(43756,9176,3,47,0,'203.144.143.4',1197426369,1,0,1,1,1,0,'','How to re-connect TSocketServer after re-activate server','Dear All,\n\nI have the problem with TSocket as following. \n\n1. If I start client before server.  It cannot connect and cannot send or receive until re-start the client program (Client must start after Server).\n\n2. If the server down, client cannot re-connect automatically.\n\nHow can I check the connnection and reconnect the server after activate.\n\nRegards,\nDutch','',0,'GA==','20zibg6r',1,0,'',47,0,0),(43757,9165,6,396,0,'200.71.186.110',1197430953,1,0,1,1,1,1,'','','Si usas el administrador de compilacion VERCE, puedes agregar todos los .res, .rc, .lib, .h, .prg que quieras que el hace el resto del trabajo, yo uso varios .res y sin ningun problema.','',0,'GA==','2h853j81',1,0,'',396,0,0),(43758,9177,3,234,0,'70.8.138.188',1197433764,1,0,1,1,1,1,'','Center bitmap','Hello,\n\nI have a blank area between menu and message and I need to place a bitmap (logo) in this area. Can someone send me code to place a bitmap centerd in maximized window based on length and width of bitmap and length and width of display?\n\nThank you,','',0,'GA==','2c9nyuuh',1,0,'',234,0,0),(43759,9160,19,2,0,'87.218.146.98',1197443355,1,0,1,1,1,1,'','','Hua,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','1zif5yqv',1,0,'',2,0,0),(43760,9159,3,2,0,'87.218.146.98',1197443551,1,0,1,1,1,1,'','','Acwoo,\n\nWhat source code do you have here ?\n\nCalled from: .\\c4.prg =&gt; (b)FORM6NEW(6229)','',0,'GA==','1thqmrfq',1,0,'',2,0,0),(43761,9171,3,2,0,'87.218.146.98',1197443763,1,0,1,1,1,1,'','','It looks that the Harbour header files that you are using don\'t match with the used Harbour compiler\n\nPlease check that you are using the right .H files for that Harbour build','',0,'GA==','2zzzqvlw',1,0,'',2,0,0),(43762,9165,6,21,0,'83.61.248.75',1197445741,1,0,1,1,1,1,'','','Hola Jose Luis,\n\nQue versión de verce estas utilizando?\n\nYo estoy intentando usar la versión 5.3 y al incluir mas de un .res aparece el error: \"Fatal: Too many commas on command line:\"','',0,'GA==','15byby9y',1,0,'',21,0,0),(43763,9161,6,542,0,'88.27.85.242',1197445811,1,0,1,1,1,0,'','','Gracias Ramon, puse otro post y me dijeron que ademas de esto que me dices hay que poner al final \n\noExcel:=NIL\n\ny asi despues que cierras la aplicacion cierras el Excel.exe  o Winword.exe\n\nPero gracias por tu interes.\n\nUn saludo\n\nCarlos','',0,'GA==','3jpqpqxa',1,0,'',542,0,0),(43764,9178,3,239,0,'116.22.210.157',1197449120,1,0,1,1,1,0,'','build dll include bmp size 90k,incremental link error','Hi,\n  When build a dll include bmp size 90k,shows a incremental link error.\nbmp file size less than  20 K ,no problem.\nThanks !\nShuming Wang','',0,'GA==','rnm7hc2j',1,0,'',239,0,0),(43765,9177,3,303,0,'72.220.181.80',1197449443,1,0,1,1,1,0,'','','Darrell,\n\nTry the example below.\n\nJames\n\n[code:w2bdfrgv]&gt; #INCLUDE &quot;C&#58;\\FW192\\INCLUDE\\FIVEWIN&#46;CH&quot;\n&gt; *\n&gt; STATIC oWnd,nWndWid,nWndHgt\n&gt; *\n&gt; FUNCTION Main&#40;&#41;\n&gt; DEFINE WINDOW oWnd;\n&gt;             FROM 1,2 TO MaxRow&#40;&#41;-3,MaxCol&#40;&#41;-2;\n&gt;              TITLE &quot;BMP Logo Centering&quot;\n&gt; ACTIVATE WINDOW oWnd ON INIT &#40;Calc_Wnd&#40;&#41;,Disp_Bmp&#40;&#41;&#41;\n&gt; RETURN nil\n&gt; *\n&gt; STATIC FUNCTION Disp_Bmp&#40;&#41;\n&gt; LOCAL oBmp,nRow,nCol,nBmpWid,nBmpHgt,cFile&#58;=&quot;TEST&#46;BMP&quot;\n&gt; IF File&#40;cFile&#41;\n&gt;   DEFINE BITMAP oBmp FILE cFile OF oWnd\n&gt;   nRow = nWndHgt/2 - oBmp&#58;nHeight/2\n&gt;   nCol = nWndWid/2 - oBmp&#58;nWidth/2\n&gt;   oBmp&#58;End&#40;&#41;\n&gt;   @ nRow,nCol BITMAP oBmp FILE cFile PIXEL NOBORDER OF oWnd\n&gt; ENDIF\n&gt; RETURN nil\n&gt; *\n&gt; STATIC FUNCTION Calc_Wnd&#40;&#41;\n&gt; LOCAL x1,y1,x2,y2,aWind&#58;=oWnd&#58;GetRect&#40;&#41;\n&gt; x1 = aWind&#91;1&#93;\n&gt; y1 = aWind&#91;2&#93;\n&gt; x2 = aWind&#91;3&#93;\n&gt; y2 = aWind&#91;4&#93;\n&gt; nWndHgt = x2 - x1\n&gt; nWndWid = y2 - y1\n&gt; RETURN nil\n&gt; **************\n&gt; \n&gt; Hope this helps&#46;\n&gt; \n&gt; Gary Beam\n&gt; Extensions Software Corp&#46;\n&gt; http&#58;//www&#46;ext&#46;com[/code:w2bdfrgv]','',0,'AIA=','w2bdfrgv',1,0,'',303,0,0),(43766,9177,3,303,0,'72.220.181.80',1197449912,1,0,1,1,1,0,'','','Darrell,\n\nI found some old code where I did it like this. This code will redraw the bitmap centered whenever the window is resized.\n\nJames\n\n [code:2hffkrsz]     ACTIVATE WINDOW ownd maximized ;\n          on paint &#40;PalBmpDraw&#40; oWnd&#58;oWndClient&#58;hDC, &#40;oWnd&#58;nHeight/2-oBmp&#58;nHeight/2&#41;-50,&#40;oWnd&#58;nWidth/2-oBmp&#58;nWidth/2&#41;, oBmp&#58;hBitmap, oBmp&#58;hPalette &#41;[/code:2hffkrsz]','',0,'AIA=','2hffkrsz',1,0,'',303,0,0),(43767,9159,3,1181,0,'60.49.118.241',1197451208,1,0,0,0,1,1,'','Problem Upgrade To FWH7.11','Thanks for your help\n\n&gt;Called from: .\\c4.prg =&gt; (b)FORM6NEW(6229)\n\noLbx:bKeyDown := { | nKey, nFlags | If( nKey == VK_RETURN,; \nsaycusta(,lreturn := .f., oc1desp:SetFocus() ),) } \n\n\n.................................\nfunction saycusta()\n\nreturn nil\n***************************\n\nThanks','',0,'AIA=','3a5vymjw',1,0,'',1181,0,0),(43768,9159,3,2,0,'87.218.146.98',1197451325,1,0,1,1,1,1,'','','Acwoo,\n\nThe source code line number may not be 100% correct.\n\nSomewhere you are refreshing (repainting) a GET and thats where the error comes from:\n\nCalled from: =&gt; TGET:REFRESH(0) \nCalled from: .\\c4.prg =&gt; (b)FORM6NEW(6229)\n\nWhere and how is defined that GET ? Thanks,','',0,'AIA=','2hgx1jkw',1,0,'',2,0,0),(43769,9178,3,2,0,'87.218.146.98',1197451439,1,0,1,1,1,1,'','','Shuming,\n\nWhats the size of your RES file ? It can\'t be larger than 1024 Ks.\n\nIf larger, then you have to split your RC into several ones and have several RES files','',0,'AIA=','3ngqmgbl',1,0,'',2,0,0),(43770,9176,3,2,0,'87.218.146.98',1197451923,1,0,1,1,1,1,'','','Dutch,\n\nHave to tried to redo a: ?\n\noClientSocket:Connect( &lt;cIPServerAddress&gt; )','',0,'AIA=','1oin7rrw',1,0,'',2,0,0),(43771,9176,3,47,0,'203.144.143.4',1197455096,1,0,1,1,1,0,'','','Dear Antonio,\n\nYou mean if the server down, I have to reconnect by oClientSocket:Connect() command.\n\nRegards,\nDutch','',0,'AIA=','332d4znq',1,0,'',47,0,0),(43772,9179,6,956,0,'200.222.21.2',1197458897,1,0,1,1,1,1,'','Mudar cor do tema 2007','É possivel mudar a cor do tema 2007 da TBar?\n\nAo inves de azul colocar verde?','',0,'AIA=','2yfxssgc',1,0,'',956,0,0),(43773,9176,3,2,0,'87.218.146.240',1197462578,1,0,1,1,1,1,'','','Dutch,\n\nYes, you may need to reconnect again','',0,'AIA=','20tmte5t',1,0,'',2,0,0),(43774,9179,6,2,0,'87.218.146.240',1197462743,1,0,1,1,1,1,'','','Anderson,\n\nYou have to modify Class TBar source code and change the used nRGB() colors. Same changes for Class TBtnBmp.','',0,'AIA=','18sjq5aw',1,0,'',2,0,0),(43775,9180,6,1236,0,'201.86.91.126',1197463101,1,0,1,1,1,0,'','BTNBMP design ?','Antonio, a classe BTNBMP não conta com a opção DESIGN?\n\n\nObrigado','',0,'AIA=','1tgomazo',1,0,'',1236,0,0),(43776,9179,6,956,0,'200.222.21.2',1197463847,1,0,1,1,1,1,'','','Funcionou perfeitamente!\n\nAgora preciso mudar o TMenu, não achei onde modificar no código fonte.  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'AIA=','1dn0bb33',1,0,'',956,0,0),(43777,9179,6,2,0,'87.218.146.240',1197464811,1,0,1,1,1,1,'','','Anderson,\n\nDe momento no hemos publicado el código fuente, pero proporcionaremos unos parámetros para cambiar los colores usados','',0,'AIA=','19elsun6',1,0,'',2,0,0),(43778,9180,6,2,0,'87.218.146.240',1197464851,1,0,1,1,1,1,'','','oBtnBmp:lDrag := .T.','',0,'AIA=','328oxprs',1,0,'',2,0,0),(43779,9181,6,1236,0,'201.86.91.126',1197465051,1,0,1,1,1,0,'','TWBROWSE - bkeydown não aceita VK_UP?','TWBROWSE - bkeydown não aceita VK_UP ?\n\n\nObrigado','',0,'AIA=','21hwide8',1,0,'',1236,0,0),(43780,9179,6,956,0,'200.222.21.2',1197465082,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3b884m40]Anderson,\n\nDe momento no hemos publicado el código fuente, pero proporcionaremos unos parámetros para cambiar los colores usados[/quote:3b884m40]\n\nhum...\n\nEstou usando FiveWin xHarbour 7.12\n\nEu mudei a cor do TBtnBmp e TBar, estes estão ok.\n\nPreciso mudar a cor do TMenu e TMsgBar, estes eu não vou conseguir?','',0,'gA==','3b884m40',1,0,'',956,0,0),(43781,9180,6,1236,0,'201.86.91.126',1197465096,1,0,1,1,1,0,'','','Grato Antonio','',0,'gA==','kk92gwwm',1,0,'',1236,0,0),(43782,9159,3,1181,0,'60.53.81.142',1197465360,1,0,0,0,1,1,'','Problem Upgrade To FWH 7.11','Thanks for yuor help\n\n&gt;Where and how is defined that GET ? \n\nGET is not defined. \n\nThe first occurance of get is:\n\n@ 12.5, 0.4 Get oc1desp VAR cc1desp size 307, 11 OF oDlG COLOR; \nCLR_GREEN \n\nThe problem will not occur if all the variables are of the same type. If there are text and numeric field, the error will occur. And it only occur if the down-arrow key go immediately pass a nemeric field.\n\nI tried to do something like GET oGet VAR ..., but it does not help.\n\nThanks','',0,'gA==','12ln08vh',1,0,'',1181,0,0),(43783,9180,6,1236,0,'201.86.91.126',1197466033,1,0,1,1,1,0,'','','Antonio, é possível executar uma ação em um objeto SAY (design) depois de clicar sobre o mesmo e arrastar, ou seja, ao soltar o botão do mouse?\n\n\nAcontece que tenho que dar um refresh no objeto depois de arrastar!\n\n\n\nObrigado','',0,'gA==','3t9lqaq9',1,0,'',1236,0,0),(43784,9158,3,213,0,'98.196.64.111',1197466801,1,0,1,1,1,0,'','','All,\n\nIsn\'t there some way to do this via the registry?\n\nThanks,\nRandal','',0,'gA==','d8b69r4k',1,0,'',213,0,0),(43785,9182,3,86,0,'81.83.151.142',1197467601,1,0,1,1,1,1,'','Question about timer','Hello,\n\nI have defined a timer in my application to be able to perform a procedure every x minutes.\n\nHow can I check if the timer is active or not ?\n\nThanks.','',0,'gA==','ltgy209c',1,0,'',86,0,0),(43786,9182,3,6,0,'82.57.159.99',1197467697,1,0,1,1,1,1,'','Re: Question about timer','Try\n\n[code:34jqsdrt]oTimer&#58;lActive[/code:34jqsdrt]\n\nEMG','',0,'AIA=','34jqsdrt',1,0,'',6,0,0),(43787,9180,6,2,0,'87.218.146.240',1197467978,1,0,1,1,1,1,'','','Prueba a usar oSay:bLButtonUp = { || ... }','',0,'AIA=','1ypd4i81',1,0,'',2,0,0),(43788,9179,6,2,0,'87.218.146.240',1197468190,1,0,1,1,1,1,'','','Anderson,\n\nPara la barra de mensajes necesitas un bitmap y has de cargarlo en el método Paint():\n[code:uno2idj2]\n   if hBmp == nil &#46;and&#46; &#58;&#58;l2007\n      hBmp = MsgBar2007&#40; &#58;&#58;hDC &#41;\n   endif  \n[/code:uno2idj2]\nEn vez de llamar a MsgBar2007(), llama a LoadBitmap( GetResources(), &lt;cResName&gt; ) en donde &lt;cResName&gt; es el nombre del bitmap en tu fichero de recursos. El bitmap se estirará ajustándose al tamaño de la barra.','',0,'AIA=','uno2idj2',1,0,'',2,0,0),(43789,9181,6,2,0,'87.218.146.240',1197468413,1,0,1,1,1,1,'','','Tienes que modificar el código del método KeyDown():\n[code:9fakenw2]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   if &#58;&#58;bKeyDown != nil   // nuevo\n      Eval&#40; &#58;&#58;bKeyDown, nKey &#41;  // nuevo\n   endif  // nuevo\n\n   do case\n      case nKey == VK_UP\n           &#58;&#58;GoUp&#40;&#41;\n   &#46;&#46;&#46;\n[/code:9fakenw2]','',0,'AIA=','9fakenw2',1,0,'',2,0,0),(43790,9159,3,2,0,'87.218.146.240',1197468653,1,0,1,1,1,1,'','','Acwoo,\n\n&gt;\n@ 12.5, 0.4 Get oc1desp VAR cc1desp size 307, 11 OF oDlG COLOR; \nCLR_GREEN \n&gt;\n\nWhat type cc1desp has ?\n\n&gt; The problem will not occur if all the variables are of the same type\n\nWhat variables ? The ones used in the GETs ? Or the values shown in the browse ?','',0,'AIA=','1u4owetw',1,0,'',2,0,0),(43791,9174,6,2,0,'87.218.146.240',1197468764,1,0,1,1,1,1,'','','Ramón,\n\nEl ODBC está ya desfasado. Lo idóneo ahora es usar ADO.\n\nBusca por ADO en estos foros y encontrarás mucha información y ejemplos','',0,'AIA=','3dme8eby',1,0,'',2,0,0),(43792,9168,6,2,0,'87.218.146.240',1197468871,1,0,1,1,1,1,'','','Christiano,\n\nPuedes usar un timer que haga avanzar una barra de progreso','',0,'AIA=','1agtl61y',1,0,'',2,0,0),(43793,9169,6,2,0,'87.218.146.240',1197468973,1,0,1,1,1,1,'','','Jose,\n\nSi usas ADO no es necesario que hagas eso, ya que el ADO te proporciona un recordset que el sólo se encarga de darte los datos que necesites\n\nBusca por ADO en estos foros y encontraras muchos ejemplos','',0,'AIA=','19jmgj8f',1,0,'',2,0,0),(43794,9183,3,213,0,'98.196.64.111',1197469058,1,0,1,1,1,0,'','Google Maps','All,\n\nDoes anyone have a sample of how to search Google Maps for an address from within a fwh program?\n\nThanks,\nRandal Ferguson','',0,'AIA=','y60c73hn',1,0,'',213,0,0),(43795,9183,3,2,0,'87.218.146.240',1197469758,1,0,1,1,1,1,'','','Randal,\n\nThis is a working sample developed by JL Capel:\n[code:184dzdxt]\n// Radios and WHEN on a GET\n\n#INCLUDE &quot;FIVEWIN&#46;CH&quot;\n\nFUNCTION MAIN&#40;&#41;\n\n   LOCAL oDlg, oRadio1, oGet1, obtn\n   LOCAL cCurrency &#58;= &quot;USD    &quot;\n   LOCAL nOption &#58;= 1\n\n   DEFINE DIALOG oDlg                                       ;\n      FROM 1, 1 TO 10, 30\n\n   @ 1, 1 RADIO oRadio1 VAR nOption OF oDlg  UPDATE         ;\n      PROMPT &quot;Estatua Libertad &quot;, &quot;Fortaleny - Valencia - EspaÒa&quot;, &quot;Torre Eiffel - ParÌs &quot;\n\n   @ 3, 1 BUTTON oBtn PROMPT &quot;Ver el Mapa&quot; ACTION VerMapa &#40;oDlg, nOption&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nRETURN NIL\n\nFunction VerMapa&#40; oDlgp, nMapa &#41;\nlocal ownd, oactivex\n\n\n\n          LOCAL cHtml\n       LOCAL nLat, nLon, nZoom\n\n        DO CASE\n           CASE nMapa == 1\n                nLat &#58;= 48&#46;858333\n                nLon &#58;= 2&#46;295000\n                nZoom &#58;= 20\n           CASE nMapa == 2\n                nLat &#58;= 39&#46;183994491715936\n                nLon &#58;= -0&#46;31486988067626952\n                nZoom &#58;= 18\n           CASE nMapa == 3\n                nLat &#58;= 40&#46;689360\n                nLon &#58;= -74&#46;044400\n                nZoom &#58;= 20\n         ENDCASE\n\n        cHtml &#58;= &#91;   &lt;html&gt; &lt;head&gt; &#93;+CRLF\n        cHtml += &#91;   &lt;meta http-equiv=&quot;content-type&quot; content=&quot;text/html; charset=utf-8&quot;/&gt; &#93;+CRLF\n        cHtml += &#91;   &lt;title&gt;Google Maps&lt;/title&gt; &#93;+CRLF\n        cHtml += &#91;   &lt;script src=&quot;http&#58;//maps&#46;google&#46;com/maps?file=api&amp;v=2&amp;key=1223&quot; type=&quot;text/javascript&quot;&gt;&lt;/script&gt; &#93;+CRLF\n        cHtml += &#91;   &lt;script type=&quot;text/javascript&quot;&gt; &#93;+CRLF\n        cHtml += &quot;   //&lt;!&#91;CDATA&#91; &quot; +CRLF\n        cHtml += &quot;   function load&#40;&#41; &quot;+CRLF\n        cHtml += &quot;   &#123; if &#40;GBrowserIsCompatible&#40;&#41;&#41; &quot;+CRLF\n        cHtml += &#91;   &#123; var map = new GMap2&#40;document&#46;getElementById&#40;&quot;map&quot;&#41;,G_SATELLITE_TYPE&#41;; &#93; + CRLF\n        cHtml += &quot;   map&#46;addControl&#40;new GLargeMapControl&#40;&#41;&#41;; &quot;+CRLF\n        cHTML += &quot;   map&#46;addControl&#40;new GMapTypeControl&#40;&#41;&#41;;  &quot;+CRLF\n        cHTML += &quot;   map&#46;addControl&#40;new GOverviewMapControl&#40;&#41;&#41;; &quot;+CRLF\n        cHTML += &quot;   map&#46;setCenter&#40;new GLatLng&#40;&lt;&lt;&lt;LAT&gt;&gt;&gt;, &quot;+CRLF\n        CHTML += &quot;   &lt;&lt;&lt;LONG&gt;&gt;&gt;&#41;,&lt;&lt;&lt;ZOOM&gt;&gt;&gt;&#41;; &quot;+CRLF\n        CHTML += &quot;   map&#46;setMapType&#40;G_HYBRID_TYPE&#41;; &quot;+CRLF\n        CHTML += &quot;   &#125; &#125; &quot;+CRLF\n        CHTML += &quot;   //&#93;&#93;&gt; &lt;/script&gt; &lt;/head&gt; &quot;+CRLF\n        CHTML += &#91;   &lt;body scroll=&quot;no&quot; bgcolor=&quot;#CCCCCC&quot; topmargin=&quot;0&quot; leftmargin=&quot;0&quot; &#93; +CRLF\n        CHTML += &#91;   onload=&quot;load&#40;&#41;&quot; onunload=&quot;GUnload&#40;&#41;&quot;&gt; &#93; + CRLF\n        chtml += &#91;   &lt;div id=&quot;map&quot; style=&quot;width&#58;450px;height&#58;300px&quot;&gt;&lt;/div&gt; &#93; + CRLF\n        chtml += &#91;   &lt;/body&gt; &lt;/html&gt; &#93;\n\n        cHtml &#58;= STRTRAN&#40;cHtml, &quot;&lt;&lt;&lt;LONG&gt;&gt;&gt;&quot;,STR&#40;nLon&#41; &#41;\n        cHtml &#58;= STRTRAN&#40;cHtml, &quot;&lt;&lt;&lt;LAT&gt;&gt;&gt;&quot;,STR&#40;nLat&#41; &#41;\n        cHtml &#58;= STRTRAN&#40;cHtml, &quot;&lt;&lt;&lt;ZOOM&gt;&gt;&gt;&quot;,STR&#40;nZoom&#41; &#41;\n\n\n\n        MemoWrit&#40;&quot;mihtml&#46;htm&quot;,chtml&#41;\n\n\n\n\n\n   DEFINE WINDOW oWnd TITLE &quot;FiveWin ActiveX Support&quot;\n\n\n\n   oActiveX = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&#46;2&quot; &#41;\n\n   oWnd&#58;oClient = oActiveX // To fill the entire window surface\n\n   oActiveX&#58;Do&#40;&quot;Navigate2&quot;,&#40;CurDrive&#40;&#41; + &quot;&#58;\\&quot;+CurDir&#40;&#41;+&quot;\\MiHtml&#46;htm&quot;&#41;&#41;\n\n   ACTIVATE WINDOW oWnd\nRETUR NIL\n[/code:184dzdxt]','',0,'AIA=','184dzdxt',1,0,'',2,0,0),(43796,9130,3,343,0,'24.173.70.25',1197469989,1,0,1,1,1,0,'','','#define xlXMLSpreadsheet  46\n\noBook:SaveAs( cXlsFile, xlXMLSpreadsheet )   // -4143 = Normal','',0,'AIA=','7v0sjv1b',1,0,'',343,0,0),(43797,9183,3,51,0,'80.122.88.242',1197470927,1,0,1,1,1,0,'','','Hello Antonio,\nThank you for this post and many thanks to JL Capel.\nIs there an easy way to get the \nlatitude and longitude from a given town name ?\nThanks in advance,\nOtto','',0,'AIA=','3cruu6od',1,0,'',51,0,0),(43798,9162,3,51,0,'80.122.88.242',1197471120,1,0,1,1,1,0,'','','Enrico, could you help with such a solution till we get a better one.\n\nRegards,\nOtto','',0,'AIA=','nifecfqi',1,0,'',51,0,0),(43799,9183,3,2,0,'87.218.146.240',1197471126,1,0,1,1,1,1,'','','Otto,\n\nI don\'t know, you may search in google <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','ocuwuaay',1,0,'',2,0,0),(43800,9184,18,456,0,'62.43.24.65',1197472355,1,0,1,1,1,1,'','cGenPrg Clase tGet','Supongo que este metodo esta en desuso, en cualquier caso para su buen funcionamiento debiera cambiarse el uso de nRight y nBottom, pues siempre vale cero(por lo menos en todas las pruebas que yo he hecho). Y en su lugar en vez de calcular la diferencia, directamente poner el valor de nWidth y nHeight.','',0,'AIA=','1xvyfne5',1,0,'',456,0,0),(43801,9179,6,956,0,'200.222.21.2',1197473010,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:22q3tpo2]Anderson,\n\nPara la barra de mensajes necesitas un bitmap y has de cargarlo en el método Paint():\n[code:22q3tpo2]\n   if hBmp == nil &#46;and&#46; &#58;&#58;l2007\n      hBmp = MsgBar2007&#40; &#58;&#58;hDC &#41;\n   endif  \n[/code:22q3tpo2]\nEn vez de llamar a MsgBar2007(), llama a LoadBitmap( GetResources(), &lt;cResName&gt; ) en donde &lt;cResName&gt; es el nombre del bitmap en tu fichero de recursos. El bitmap se estirará ajustándose al tamaño de la barra.[/quote:22q3tpo2]\n\nPerfeito!! Testei e funcionou. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nObrigado.','',0,'gIA=','22q3tpo2',1,0,'',956,0,0),(43802,9185,6,956,0,'200.222.21.2',1197473809,1,0,1,1,1,1,'','TBtnBmp da TBar','Olá...\n\nPercebi que quando clico 2 vezes rapidamente em um BtnBmp ele só executa a ação uma vez, isto não acontece com o Botão da ToolBar.\n\nComo posso corrigir isto?','',0,'gIA=','3cv9qxal',1,0,'',956,0,0),(43803,9174,6,1198,0,'201.155.129.182',1197474357,1,0,1,1,1,0,'','odbc','y que necesito para utilizar ADO ?????  es una utileria aparte??? o que es???  disculpa mi ignorancia en este tema!!!','',0,'gIA=','2bvzd8m9',1,0,'',1198,0,0),(43804,9183,3,213,0,'98.196.64.111',1197475062,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the sample.   I did search the forum and had found this sample however I need to be able to show a map based on an address, not lat/lon coordinates.  I think the Google API has a method for returning the lat/lon coordinates for a given address.  Unfortunately, I don\'t know enough about java to write a program to do this and I could not find a method for just showing a map based on the address.\n\nThanks,\nRandal','',0,'gIA=','2t5wb9n9',1,0,'',213,0,0),(43805,9180,6,1236,0,'201.86.91.126',1197475358,1,0,1,1,1,0,'','','Obrigado Antonio, mais não funcionou!\n\n\n for i:=1 to len(PoBtc)\n       @ lin,col say PoBtc[i]  OF oWndp DESIGN PIXEL SIZE 100,20 BORDER\n       PoBtc[i]:bLButtonUp = { || PoBtc[i]:refresh(),msg(\"aqui\") }\n next\n\n\nGrato','',0,'','1s1fh9nu',1,0,'',1236,0,0),(43806,9181,6,1236,0,'201.86.91.126',1197475533,1,0,1,1,1,0,'','','grato Antonio!','',0,'','2mb4k8n8',1,0,'',1236,0,0),(43807,9159,3,1181,0,'60.53.81.142',1197476294,1,0,0,0,1,1,'','Problem Upgrade To FWH7.11','Thanks for your help\n\n&gt;What type cc1desp has ? \nText and numeric\n\n&gt;What variables ? The ones used in the GETs ? Or the values shown in the browse ?\nThe variables in GETs (form6.dbf). When the text in the browse changes (by pressing down-arrow key), the data (can be text and numeric) shown in GET will also change.\n\nThanks','',0,'','xooul7s5',1,0,'',1181,0,0),(43808,9183,3,1154,0,'217.37.54.49',1197476295,1,0,1,1,1,0,'','','Hi Randal,\n\nI don\'t know anything about the google maps interface but going back a few months I was under the impression it only worked on lat\\long co-ordinates.\n\nThe last company I worked for had to buy a data set for all UK addresses which also had all the lat\\long co-ordinates in it.  This way they could just do a database lookup using the address to get the lat\\long co-ordinates to then do the google maps lookup.\n\nI wasn\'t involved in the development of this unfortunately so I can\'t tell you any more about how it worked.  In any case I would imagine the google maps api has moved on since then!\n\nKind regards,\n\nBarry','',0,'','32tkqbpg',1,0,'',1154,0,0),(43809,9181,6,1236,0,'201.86.91.126',1197476901,1,0,1,1,1,0,'','','Antonio, adicionei o código e funcionou, porém ao editar uma célula (leditcol),  agora estou tendo que apertar a tecla ESC duas vezes para sair da edição?\n\n\nMINHA TWBROWE:\n\n// Modificaciones y Agregados a la TWBrowse version FW2.1\n// ======================================================\n// 1) Nueva varialble ::bLogicPos. Sirve para el Scroll Vertical en DBf. Si\n//    devuelve nil, se usa el calculo por defecto. Si devuelve un valor\n//    numerico especifica la posicion relativa respecto al total de registros.\n// 2) Todos los movimientos del oVScroll, se controlan con ::bLogicPos si\n//    estuviera definida.\n// 3) Para DBFs se define por defecto a ::bLogicLen y a ::bLogicPos, al\n//    tratarse de Drivers DBFCDX de Clip53, COMIX y DBFCDXAX de ADS Advantage\n//    DataBase Server.\n// 4) Nuevas variables ::lAdjLastCol y ::lAdjBrowse. La primera contiene un\n//    valor logico que indica si se quiere estirar la ultima columna al\n//    tama¤o del control. Por defecto es .T., es lo que hace FW originalmente.\n//    La segunda variable indica si se quiere ajustar el browse hasta el final\n//    del control, osea, cuando se ha seleccionado la modalidad ultima columna\n//    no ajustada, es decir, ::lAdjLastCol:= .F., si asume .T. se pintar  una\n//    una columna ficticia vac¡a.\n//    ....y recordar que sobre gustos, no hay nada escrito !!!!\n// 5) BUG Arrglado en los metodos ::GoRight() y ::GoLeft(). Cuando no\n//    exist¡an elementos en el browse, y siendo lCellStyle:= .t., mostraba\n//    una celda seleccionada si se presionaban las teclas de movimiento. Ha sido\n//    solucionado.\n// 6) Nueva varaible ::aHJustify. Funciona igual que ::aJustify, es decir, un\n//    array cuyos elementos asumen valores, que idicaran a la clase la\n//    justificacion de la columna para Cabeceras (Headers). En caso de no\n//    definirse, o enviarse menor cantidad de elementos, se toma por defecto\n//    los valores de ::aJustify. Valores que puede asumir cada elemento del\n//    Array, (tambien aplicable a ::aJustify) :\n//    a) .F. o 0  -&gt; Indica justificado a la derecha\n//    b) .T. o 1  -&gt; Indica justificado a la izquierda\n//    c)       2  -&gt; Indica justificado al centro.\n// 7) Nueva variable ::lDrawHeaders, permite manejar la visualizacion de las\n//    cabeceras. Por defecto es .T., un valor .F. indicar  la no visualizacion.\n// <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> BUG Arreglado en metodo ::LButtonDown(). Si con el Mouse se accedia a\n//    una celda visualizada parcialmente, estando en modalidad lCellStyle:= .t.,\n//    TWbrowse no se reacomodaba, para su visualizacion completa. Fue corregido.\n// 9) BUG Arreglado en metodo ::IsColVisible(). Fue reescrita y simplificada.\n//    Eventuales errores se producian en ambientes MDI por errores en el codigo.\n//10) Nuevas variables ::bTextColor y ::bBkColor. Son bloques de codigo que\n//    se eval£an en tiempo de pintado. Pueden devolver una valor NUMERICO,\n//    que representa el color RGB con el cual se pintar  el texto o fondo,\n//    segun el bloque. Si devuelve otro valor, los colores ser n los especi-\n//    ficados en las respectivas varialbes de instancia de la clase.\n//    Se env¡an 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n//    nStyleLine, puede asumir los siguientes valores:\n//              0 -&gt; Celda standard normal\n//              1 -&gt; Celda Header\n//              2 -&gt; Celda Footer\n//              3 -&gt; Celda standard normal seleccionada\n//    Ver Pto. 41)\n//11) Nueva variable ::nClrLine. Especifica un color especifico para las lineas\n//    separadoras de celdas. Por defecto se utilizan los colores de linea\n//    especificos, segun el valor de ::nLineSyle. (Jose Gimenez)\n//12) Nuevos Metodos ::DrawHeaders( nColPressed ) y ::DrawFooters( nColPressed ).\n//    Estos metodos son usados internamente por la clase para el pintado de\n//    cabeceras y pies del grid. Puede recibir como parametro el numero de\n//    columna, la cual quiere que se pinte con efecto PUSH, osea presionada.\n//13) Nuevas Variables:\n//      ::lDrawFooters -&gt; Especifica si se quiere pintar los Footers o no.\n//                    Por defecto es .F.\n//      ::aFooters -&gt; Array o Bloque de Codigo que devuelva un Array, de\n//                    cadenas o numeros (Bmp), que se pintaran el el borde\n//                    inferior del browse.\n//      ::aFJustify -&gt; Cumple la misma funcion que aJustify, pero para Footers.\n//                    En caso de no especificarse se toman por defecto, los\n//                    valores de aJustify.\n//      ::nClrFFore y ::nClrFBack -&gt; Color RGB de texto y fondo respectiva-\n//                    mente de los (Pies) Footers. Son analogas a las\n//                    variables ::nClrForeHead y ::nClrBackHead, usadas en\n//                    las Cabeceras (Headers).\n//14) BUG Arreglado en metodo ::LDblClick(). No se procesaba el bloque\n//    ::bDblClick definido por el usuario.\n//15) Nuevos metodos ::GetColHeader() y ::GetColFooter(). A ellos deben\n//    pasarse los siguientes par metros ( nMRow, nMCol ), es decir,\n//    coordenadas de Mouse nRow y nCol. Si me retorta valor &gt; 0 indica que\n//    se presiono sobre el Header o Footer, representando ese valor la columan\n//    en la que se hizo el click. Es util para procesar dentro de ::bLDblClick y\n//    ::bLCkicked.\n//    Analogamente, si se quiere saber la posicion de celda, en la cual se\n//    ha presionado el Mouse, puede usarse el metodo ::nWRow( nMRow ).\n//16) Nuevo metodo ::bGoLogicPos. Bloque que se ejecuta cuando se quiere ir a\n//    un registro especifico de la tabla. Por defecto se define para RDD\n//    DBFCDX de Clip53, COMIX y DBFCDXAX de ADS Advantage DataBase Server.\n//17) Nuevas variables ::nClrNFFore y ::nClrNFBack. NF (no focus). Indican\n//    el color RGB de Texto y Fondo respectivamente de la(s) Celda(s)\n//    seleccionada(s) cuando NO HAY FOCO sobre el control. Ambas son analogas\n//    a las variables ::nClrForeFocus y ::nClrBackFocus.\n//    Resumiendo Color(es) de Celda(s) Seleccionada(s):\n//    +-------------------------+--------------+-----------------+\n//    | Color celda seleccionada|   CON FOCO   |     SIN FOCO    |\n//    +-------------------------+--------------+-----------------+\n//    | Colores de Texto (Fore) | ::nClrNFFore | ::nClrForeFocus |\n//    | Colores de Fondo (Back) | ::nClrNFBack | ::nClrBackFocus |\n//    +-------------------------+--------------+-----------------+\n//18) Modificacion al metodo ::GoRight(), en caso de que no exista Barra Scroll\n//    Horizontal y no exita modalidad ::lCellStyle:= .F., y, ademas, las\n//    columnas sean perfectamente visualizadas en el area del control, no se\n//    corr¡a hacia la derecha. Arreglado.\n//19) Modificacion de Colores: Se arreglaron algunos colores por defecto, que\n//    se tomen los definidos en Windows.\n//20) Se corrigio el metodo para determinar el ancho de los Scrolles verticales\n//    Se usa para ello el GetSysMetrics( SM_CXSCROLL ) y no mas 16 fijo.\n//21) Nuevas variables \"DE CLASE\": ::lVScroll y ::lHScroll. Las mismas fijan\n//    si debe o no crearse los scrolles respectivos cuando se genera el\n//    control \"desde codigo\". Por defecto simpre se crean. PERO OJO: Se crearon\n//    de clase, porque no era posible crearlas de otra forma, debido a que\n//    el encargado de definir el nStyle es el contructor New(). Para no\n//    modificar los comandos xBase, se opto por esta solucion. Por eso deben\n//    setearse ANTES de definir el control.\n//       Ejemplo:  TWBrowse():lHScroll:= .f.\n//                 @y,x LISTBOX ......\n//    Pero OJO, el valor .F. no queda para todos los controles que sean creados\n//    posteriori, sino, la clase se encarg  de volver a .T. a ::lHScroll.\n//22) Los metodos ::DrawHeader() y ::DrawFooters() soportan como argumento el\n//    Nro.de columna que queremos que apresca presionada.\n//    Ver Pto.12)\n//23) Nueva variable ::nFreeze. Indica el numero de columnas que deber n\n//    congelarse a la izquierda. Funciona igual que la variable de instancia\n//    TBrowse:Freeze de CA-Clipper. Por defecto asume 0. Para ello han sido\n//    redefinidos TOTALMENTE y optimizados los metodos ::GoRight() y\n//    ::GoLeft(), y ademas se modific¢ ::HScroll() tambien. ::lButtonUp() y\n//    ::lButtonDown(), y ::VertLine() devuelve la columna que se ha modificado.\n//24) Nuevo metodo GoToCol( &lt;nCol&gt; ). Este desplaza a una determinada columna\n//    y hace el ajuste del browse que corresponda.\n//25) Adios y Chau al parpadeo.... La funcion WBrwPane() se encarga de pintar\n//    las zonas excedetes, es decir, no cobiertas por las celdas, con el color\n//    de fondo del control, por supuesto. Se evita el borrado del control, en\n//    el metodo ::Refresh().\n//26) Los metodos ::lEditCol y ::EditCol, editan con el color de fondo que\n//    tenga la celda en curso, aun cuando tenga color de columna personalizado.\n//27) Se modifico el metodo ::Edit() y se agrego la funcion __Edit(),\n//    para evitar el parpadeo, cuando pasamos de celda en celda, debido a la\n//    modalidad MODAL que tienen los dialogos. Para ello se crea un dialogo\n//    oculto y se evita es parpadeo antiest‚tico.\n//28) El metodo ::Refresh() ha sido redefinido, y estabiliza automaticamente\n//    despues de un ABM, ademas refresca automaticamente los Footers en caso\n//    de que hay sido definido como Bloque de Codigo.\n//---15/11/2000---\n//29) Se incorpor¢ el metodo ::SetPage() en los objetos Scroll, para ver\n//    proporcionales los ThumbPos de los mismos. NOTA: La clase Scroll tiene\n//    este metodo, pero por razones desconocidas esta comentado. Debe borrarse\n//    el comentario e incorporar la clase Scroll.c modificada por Jose Gimenez.\n//30) En bloques ::bLogicPos y ::bLogicLen se incorporo la posibilidad de que\n//    NO haya un alias, osea asignarlo como \"\", para que no se desplace el\n//    browse durante un proceso determinado.\n//31) Se modifico ::LostFocus() y ::GotFocus(). En ambientes MDI, en las\n//    clausulas VALID, generalmente, se usan para cerrar las bases de datos\n//    asociadas al MDICHILD. Ocurria que el metodo ::LostFocus() y en ocasiones\n//    ::GotFocus(), se ejecutaban POSTERIORMENTE al VALID del la MDI, lo cual,\n//    estando las bases ya cerradas, y llamandose en consecuencia a DrawSelect()\n//    osea, hacian uso del (::cAlias)-&gt;, se produc¡a un RunTimeError, dado\n//    que el alias no exitia.\n//    Se soluciono agregando una funcion EmtpyAlias() que verfica si el area\n//    de trabajo esta activa. Ya no sera necesesario, incorporar en los VALIDs\n//    de las MDI, cosas como oLbx:Destroy() o \"artilugios\" similares !!!!\n//32) Nueva variable ::bEdit, que es un bloque de codigo que se ejecuta por\n//    cada edicion de columna. Este bloque permite que el usuario con poco\n//    esfuerzo, (ya que del rastreo y movimiento de columnas se encarga\n//    ::Edit() ), cree su propia edicion, es decir, llame de forma\n//    PERSONALIZADA a ::lEdit() o a un GET creado por el mismo, evite edicion\n//    de determinadas columnas, etc, etc. En pocas palabras, sirve para\n//    personalizar la edicion por celdas. El bloque recibe argumentos:\n//       nCol (Columna a editar)\n//       cBuffer (Buffer de Campo)\n//       lFirstEdit (Valor logico  que indica si es la primera columna que\n//                   se edita en el bucle de rastreo)\n//    El usuario, deber  entonces asignar el valor de edicion a la base de datos\n//    o al Array, dado que no es mas automatico al definirse un ::bEdit.\n//    La asignacion automatica de buffer trae muchos problemas; cuando el orden\n//    de las columnas no coincide con el orden Fisico de la base de datos, o,\n//    cuando la columna tiene una concatenacion o resultado compuesto distinto al\n//    dato real alojado en la base de datos, o tambien cuando se editan campos\n//    en un Browse de Array.\n//    El bloque DEBE DEVOLVER un valor Logico, que indicara al bucle del metodo\n//    ::Edit(), si se quiere o no finalizar el mismo.\n//---15/05/2001---\n//33) Nueva variable ::lDrawSelect, que especifica si el usuario quiere\n//    mostrar o no la celda o linea seleccionada.(Dedicado a mi amigo Giancarlo)\n//    Por defecto es verdadero.\n//34) Nueva variable ::lOnlyBorder, que especifica si el usuario quiere\n//    mostrar solamente el borde de la celda o fila seleccionada, respetandose\n//    entonces los colores de fondo o los bloques de color en su caso. Por\n//    defecto es .F.. No se aplica a nLineStyle==3 (3D).\n//35) Nueva variable ::lDrawFocusRect, por defecto es .T., y especifica si\n//    se quiere el borde punteado cuando hay foco. No aplicable nLineStyle==3.\n//36) Los BitMaps ya no se estiran, se centran en la celda, o se ajustan, en\n//    caso que su tama¤o sea superior a la celda.\n//37) Las coordenadas de EditCell ya se ajustaron, para que no se exceda el\n//    area de celda.\n//38) Las Lineas, Footers y Headers, soportan MULTILINE, que esta dado por\n//    la separacion CRLF de la cadena respectiva. Se ajusta a centrado vertical,\n//    salvo que su alto supere el alto de celda, entoces, se ajustar  al borde\n//    superior de celda.\n//39) Nuevas variables ::nHeaderHeight, nFooterHeight, ::nLineHeight, que\n//    especifican el alto en pixels de Headers, Footers y Linea Standard del\n//    browse. Ya no depende la altura de la fuente. Por defecto las tres\n//    asumen el valor de la fuente, por compatibilidad.\n//40) Nueva variable: ::bFont. Es un bloque de codigo opcional, que se ejecuta\n//    en tiempo de pintado, y envia 3 argumentos: {|nRow,nCol,nStyleLine| ... }\n//    nStyleLine, puede asumir los siguientes valores:\n//              0 -&gt; Celda standard normal\n//              1 -&gt; Celda Header\n//              2 -&gt; Celda Footer\n//              3 -&gt; Celda standard normal seleccionada\n//    Este bloque puede devolver un valor NUMERICO, que representa el handle o\n//    manejador de una fuente de Windows (HFONT). Cualquier otro valor que no\n//    sea numerico ser  rechazado, y se asumir  que debe usarse la fuente del\n//    control standard. Como vemos esto trae una altisima flexibilidad en cuanto\n//    a las fuentes del grid, la cual si quisieramos, cada celda podr¡a asumir\n//    fuentes de distinto tipo, tama¤o y estilo.\n//41) !!!PRECAUCION!!!: Modificaciones a los argumentos de las variables y la\n//    ejecucion de ::bTextColor y ::bBkColor. Al igual que la variable ::bFont,\n//    se agrega tambien ademas de nRow, nCol, un tercer argumento \"nStyleLine\".\n//    Pero AHORA ESTE BLOQUE TAMBIEN SE EJECUTA CUANDO SE PINTEN HEADERS,\n//    FOOTERS Y CELDA(S) SELECCIONADAS. Es por eso que hay que tener mucho\n//    cuidado (MAS LO QUE YA LOS USABAN), dado que antes solo se ejecutaba\n//    el bloque para lineas stardard del grid, y ahora para TODO TIPO DE LINEA.\n//    Es por eso que utilizando el argumento nLineStyle se puede controlar la\n//    TOTALIDAD de los colores del grid en tiempo de ejecucion, aportando alta\n//    flexibilidad.\n//42) Nuevo metodo ::Set3DStyle(). Su sola ejecucion indicar  que el Grid se\n//    pinte como en las viejas epocas de FW, osea los colores y el formato 3D\n//    que ten¡a en versiones 1.8 o inferiores.\n//---27/06/2001---Revision 10.-\n//43) Nueva variable de instancia ::lSelect. Determina si estamos parados en\n//    la fila seleccionada.\n//44) Nueva navegacion por celdas. El bloque lEditCol puede devolver los sig.\n//    nuevos valores numericos tambien:\n//           1 Contiunar en Proxima Celda\n//           2 Contiunar en Proxima Fila (desde 1ra col)\n//           3 Contiunar en Proxima Fila (desde la misma col)\n//          -1 Contiunar en Anterior Celda\n//          -2 Contiunar en Anterior Fila (desde 1ra.Col)\n//          -3 Contiunar en Anterior Fila (desde la misma col)\n//    Recordemos que ::nLastKey es actualizado por este metodo para tener la\n//    ultima tecla presionada.\n//45) Nueva variable de instancia ::bSeek, ::cBuffer, ::nBuffer, ::bUpdateBuffer\n//    y el Metodo DbfSeek().\n//    Sirven  para automamtizar busqueda incremental. Ello implica que\n//    si esta definido el bloque ::bSeek, al presionar las teclas de caracteres\n//    o borrado, la variable ::cBuffer asumira valores, y luego se ejecutara el\n//    code block ::bSeek.\n//    Para bases de datos esta automatizado, con solo usar DbfSeek(),\n//    o sea: oLbx:bSeek:= {|| oLbx:DbfSeek( .T. ) }. Este metodo \"puede\" tener\n//    4 argumentos:\n//       1ro-&gt; Si la busqueda es Soft (default lo es)\n//       2do-&gt; Un codeblock que identifique un error cuando se produsca eof().\n//       3ro-&gt; Tama¤o del Buffer al momento de la busqueda. Por defecto asume\n//             el real.\n//       4to-&gt; Si al momento de la busqueda se quiere que lo haga en mayusculas\n//             (default lo es).\n//    Si el bloque ::bSeek devuelve .T. indicara al sistema que debera hacer el\n//    refresh respectivo, caso contrario, le podemos retornar .F. y estabilizar\n//    de la manera que se nos ocurra el Grid.-\n//    Cuando se ejecuta el codeblock ::bSeek se activa una nueva variable de\n//    instancia llamada ::lWorking, que sirve como bandera para evitar agota-\n//    mientos del stack. El que considere que no es necesario esto, puede poner\n//    el flag a .F., osea, oLbx:bSeek:= {|| oLbx:lWorking:= .F., .... }\n//    El CodeBlock ::bUpdateBuffer se ejecuta cada vez que se produzca alguna\n//    modificacion el la variable de instancia ::cBuffer.\n//    La variable de instancia ::nBuffer determina el tama¤o maximo de caracteres\n//    que puede asumir el ::cBuffer.\n//46) Nuevos codeblocks ::bGoRight, ::bGoLeft, cuyo resultado deben devolver\n//    una variable logica. Un valor false inhabilita ir hacia la derecha/izquirda\n//---03/07/2001---Revision 11.-\n//    Se han corregido algunos bugs que se presentaban en la busqueda incremental\n//47) Nueva Justificacion. Los valores que pueden asumir los elementos de\n//    ::aJustify, ::aHJustify y ::aFJustify, pueden identificar adicionalmente,\n//    la justificacion vertical, ademas de la clasica justificacion horizontal,\n//    usando la funcion nOr() ( similar a | en lenguaje C )\n//    A estos efectos se han definido las constantes respectivas:\n//\n//     Para Justificacion Horizontal\n//      #define HA_LEFT    0     (Default)\n//      #define HA_RIGHT   1\n//      #define HA_CENTER  2\n//\n//     Para Justificacion Horizontal\n//      #define VA_TOP     4\n//      #define VA_BOTTOM  8\n//      #define VA_CENTER  32    (Default)\n//---21/09/2001---Revision 12.-\n//    Se han corregido algunos bugs que se presentaban en la busqueda incremental\n//48) Nuevo Metodo SetTXT(). Este metodo permite mostrar un archivo de texto\n//    automaticamente dentro del area del browse. Es muy facil de usar:\n//      oLbx:SetTXT( [ &lt;uParam&gt; ] )\n//      &lt;uParam&gt; Puede ser:\n//         Character -&gt; Es el nombre del archivo a mostrar. La classe en este\n//                      caso crea automaticamente un objeto TTxtFile que se\n//                      autodestruira al finalizar el ListBox en forma automa-\n//                      tica. No debe preocuparse.\n//         Objeto TTxtFile -&gt; Un objeto creado previamente por el usuario. En\n//                            este caso la classe NO destruye el objeto que\n//                            fue creado por el usuario.\n//         Si no se especifica parametros, se pedira que seleccion el archivo\n//         de texto a mostrar, mediate el Common Dialog de Windows.\n// 49) Nuevas variables de Instancia relacionadas con ::SetTXT()\n//\n//      ::oTXT........... Objeto TTXTFile creado automaticamente, cuando se\n//                        especifica el nombre de archivo en el metodo SetTXT\n//                        Este objeto sera destruido automaticamente.\n//\n//      Estas 3 son de uso interno, y sirven para controlar el desplazamiento\n//      horizontal del browse de datos.\n//\n//      ::nTXTFrom....... Valor que sirve para recortar la cadena de muestra\n//      ::nTXTSkip....... Valor que incrementa/decrementa la ::nTXTFrom cada\n//                        vez que se quiera ir hacia la derecha o izquierda\n//                        respectivamente.\n//      ::nTXTMaxSkip.... Valor tope, que identifica el maximo que puede\n//                        asumir lar variable ::nTXTSkip\n//\n//---26/10/2001---Revision 13.-\n// 50)  Se corrigio un BUG en el metodo KeyDown(). Gracias Ing.Mario Gonzalez\n//\n//---12/12/2001---Revision 14.-\n// 51)  Se incorporo ::nColFPressed y ::nColHPressed, si se quiere mantener o\n//      mostrar como presionada, una celda de las cabeceras o los pies.\n//\n//---11/05/2002---Revision 15.-\n// 52) Compatible con FW para Harbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> MUCHAS gracias a mi amigo Jose Gimenez\n// 53) Soporte automatico para ADS Local para Harbour\n// 54) Nuevos Metodos: nWCol( nMCol )\n//                     IsOverHeader( nMRow, nMCol )\n//                     IsOverFooter( nMRow, nMCol )\n// 55) Nuevas Variables de Instancia: nHeaderStyle\n//     (Similares a nLineStyle)       nFooterStyle\n////---20/02/2004---Revision 16.-\n// 56) Fixes en VScroll y HScroll en ambientes de 32 bits\n// 57) Implementacion de MouseWheel() de Fivewin en ambientes no 16 bits\n// 58) Aumento de Velocidad. Minimización a la máxima expresión de las llamadas de calculos\n//     de Nros. de Registros en Tabla ( ::bLogicLen )\n////---18/08/2004---Revision 17.-\n// 59) El Bloque bChange no se ejecutaba en busquedas incrementales automaticas.\n// 60) Metodo VerifyLogicLen( nLogicLen ) de uso interno, sirve para determinar si realmente existen\n//     registros en una base de datos.\n// 61) Fixes de compatibilidad con xHarbour/Harbour y fixes varios de clase\n// 62) Tecnica de doble buffer\n\n\n\n\n#xtranslate __LOGIC_LEN__ =&gt; ;\n            ( if( ::lLogicLen, ( n:= ::VerifyLogicLen(Eval( bLogicLen )),;\n                                 ::lLogicLen:= .F.,;\n                                 if( \"N\"$ValType(n), ::nLogicLen:= n, nil ) ) ,nil ),;\n              ::nLogicLen )\n\n\n\n#xtranslate __LOGIC_POS__ =&gt; ;\n            ( if( ::lLogicPos, ( n:= Eval( bLogicPos ),;\n                                 ::lLogicPos:= .F.,;\n                                 if( \"N\"$ValType(n), ::nLogicPos:= n, nil ) ) ,nil ),;\n              ::VerifyLogicPos(::nLogicPos) )\n\n\n\n\n#xtranslate VSCROLL_WIDTH =&gt; ;\n            If( ::oVScroll != Nil .and. Eval(::bLogicLen) &gt; 1, 18, 0 )\n#xtranslate _POSVSCROLL_ =&gt;;\n            ( Eval( ::bLogicPos ) - 1 ) / Max( 1, ::nLen - 1 ) * 100\n#xtranslate  _JHEADERS_ =&gt;;\n             If( ::aHJustify != Nil, ::aHJustify, ::aJustify )\n#xtranslate  _JFOOTERS_ =&gt;;\n             If( ::aFJustify != Nil, ::aFJustify, ::aJustify )\n#xtranslate _WBRWSET_ =&gt;;\n             WBrwSet( ::lAdjLastCol, ::lAdjBrowse,;\n                      ::lDrawHeaders, ::lDrawFooters,;\n                      ::nHeaderHeight, ::nFooterHeight,;\n                      ::nLineHeight )\n\n\n#define _DLL_CH\n#define _FOLDER_CH\n#define _ODBC_CH\n#define _DDE_CH\n#define _VIDEO_CH\n#define _TREE_CH\n#include \"FiveWin.ch\"\n#include \"WinApi.ch\"\n#include \"InKey.ch\"\n#include \"Set.ch\"\n#include \"Constant.ch\"\n#include \"Report.ch\"\n#INCLUDE \"BTNGET.ch\"\n\n#define MK_MBUTTON           16\n\n#define HA_LEFT    0  // by CeSoTech Alineaciones Horizontales y Verticales\n#define HA_RIGHT   1\n#define HA_CENTER  2\n#define VA_TOP     4\n#define VA_BOTTOM  8\n#define VA_CENTER  32\n\n#ifdef __CLIPPER__\n   #define EM_SETSEL    (WM_USER+1)\n#else\n   #define EM_SETSEL      177\n#endif\n\n#define GW_HWNDFIRST          0\n#define GW_HWNDLAST           1\n#define GW_HWNDNEXT           2\n#define GWL_STYLE           -16\n\n#define HWND_BROADCAST    65535  // 0xFFFF\n\n#define CS_DBLCLKS            8\n#define COLOR_ACTIVECAPTION   2\n#define COLOR_WINDOW          5\n#define COLOR_CAPTIONTEXT     9\n#define COLOR_HIGHLIGHT      13\n#define COLOR_HIGHLIGHTTEXT  14\n#define COLOR_BTNFACE        15\n#define COLOR_BTNTEXT        18\n\n#define COLOR_WINDOWTEXT      8  // by CeSoTech\n#define COLOR_BTNSHADOW      16  // by CeSoTech\n#define ES_CENTER             1  // by CeSoTech\n\n#define WM_SETFONT           48  // 0x30\n\n// Lines Styles\n#define LINES_NONE            0\n#define LINES_BLACK           1\n#define LINES_GRAY            2\n#define LINES_3D              3\n#define LINES_DOTED           4\n\n#ifdef __XPP__\n   #define Super ::TControl\n   #define New   _New\n   #xtranslate   _DbSkipper =&gt; DbSkipper\n#endif\n\n#ifdef __HARBOUR__\n   #xtranslate   _DbSkipper =&gt; DbSkipper\n#endif\n\nextern DBSKIP\n\n//----------------------------------------------------------------------------//\n\nCLASS TWBrowse FROM TControl\n\n   DATA   cAlias, cField, uValue1, uValue2\n   DATA   bLine, bSkip, bGoTop, bGoBottom, bLogicLen, bChange, bAdd\n   DATA   nRowPos, nColPos, nLen, nAt, nColAct\n   // nColPos -&gt; 1ra. Columna que se muestra en pantalla\n   // nColAct -&gt; Columna Activa\n\n   DATA   aSkipCol                 // no posicionamiento de columnas // fjhg 28-may-07\n   DATA   lFreeze   INIT .T.       // no posicionamiento en columnas freeze  // fjhg 28-may-07\n\n   DATA   nMaxFilter      // Maximum number of records to count\n                          // on indexed filters\n   DATA   lHitTop, lHitBottom, lCaptured, lMChange\n   DATA   lAutoEdit, lAutoSkip\n   DATA   lCellStyle AS LOGICAL INIT .f.\n   DATA   aHeaders, aColSizes\n   DATA   nClrBackHead, nClrForeHead\n   DATA   nClrBackFocus, nClrForeFocus\n   DATA   aJustify, aActions\n   DATA   oGet\n   DATA   nLineStyle\n   DATA   lIconView, aIcons, bIconDraw, bIconText\n   DATA   nIconPos\n\n   DATA   lMouseWheel  INIT .t.       // AAL .F. para evitar refresh en browses asociados\n   DATA   lVScrollMove INIT .t.       // AAL     y posible desbordamiento de stack\n\n   DATA   bLogicPos                  // CeSoTech\n   DATA   bGoLogicPos                // CeSoTech\n   DATA   lAdjLastCol INIT .t.       // CeSoTech\n   DATA   lAdjBrowse  INIT .f.       // CeSoTech\n   DATA   lDrawHeaders INIT .t.      // CeSoTech\n   DATA   aHJustify                  // CeSoTech\n   DATA   bTextColor, bBkColor       // CeSoTech\n   DATA   nClrLine                   // CeSoTech\n\n   DATA   aFooters                   // CeSoTech\n   DATA   lDrawFooters INIT .f.      // CeSoTech\n   DATA   aFJustify                  // CeSoTech\n   DATA   nClrFBack, nClrFFore       // CeSoTech de Footers\n   DATA   nClrNFBack, nClrNFFore     // CeSoTech de Celda Seleccionada\n                                     // cuando no esta lFocused.\n   CLASSDATA lVScroll                // CeSoTech\n   CLASSDATA lHScroll                // CeSoTech\n   DATA   nFreeze INIT 0             // CeSoTech\n   DATA   aTmpColSizes               // CeSoTech\n   DATA   bEdit                      // CeSoTech\n   DATA   lDrawSelect INIT .t.       // CeSoTech\n   DATA   lOnlyBorder INIT .f.       // CeSoTech\n   DATA   lDrawFocusRect INIT .t.    // CeSoTech\n\n   DATA   nHeaderHeight INIT -1      // CeSoTech -&gt;Alto Header\n   DATA   nFooterHeight INIT -1      // CeSoTech -&gt;Alto Footer\n   DATA   nLineHeight   INIT -1      // CeSoTech -&gt;Alto linea Browse\n   DATA   bFont                      // CeSoTech -&gt;Bloque q\'dev.Handle Font\n   DATA   lSelect INIT .f.           // CeSoTech\n   DATA   lFirst  INIT .f.           // AAL\n\n\n   DATA   lWorking INIT .F.          // CeSoTech Evita posibles desbordamientos\n   DATA   cBuffer INIT \"\"            // CeSoTech  Ideas de Jose Maria Torres\n   DATA   nBuffer INIT 50            // CeSoTech\n   DATA   bSeek                      // CeSoTech\n   DATA   bUpdateBuffer              // CeSoTech\n\n   DATA   bGoLeft  INIT {|| .T. }    // CeSoTech\n   DATA   bGoRight INIT {|| .T. }    // CeSoTech\n\n   DATA   oTXT                       // Objetos TXT construidos por TWBrowse\n   DATA   nTXTFrom INIT 1            // CeSoTech\n   DATA   nTXTSkip INIT 4            // CeSoTech\n   DATA   nTXTMaxSkip INIT 49        // CeSoTech\n\n   DATA   nColFPressed               // CeSoTech\n   DATA   nColHPressed               // CeSoTech\n\n   DATA   nHeaderStyle INIT 3        // CeSoTech\n   DATA   nFooterStyle INIT 3        // CeSoTech\n\n   DATA   nLogicLen INIT 0           // CeSoTech\n   DATA   lLogicLen INIT .T.         // CeSoTech\n   DATA   nLogicPos INIT 0           // CeSoTech\n   DATA   lLogicPos INIT .T.         // CeSoTech\n   DATA   lGoTop INIT .F.\n   DATA   lGoBottom INIT .F.\n\n   CLASSDATA lRegistered AS LOGICAL\n\n   METHOD New( nRow, nCol, nWidth, nHeigth, bLine, aHeaders, ;\n               aColSizes, oWnd, cField, uVal1, uVal2, bChange,;\n               bLDblClick, bRClick, oFont, oCursor, nClrFore,;\n               nForeBack, cMsg, lUpdate, cAlias, lPixel, bWhen,;\n               lDesign, bValid, bLClick, aActions, aSkipCol ) CONSTRUCTOR\n\n   METHOD ReDefine( nId, bLine, oDlg, aHeaders, aColSizes, cField, uVal1,;\n                    uVal2, bChange, bLDblClick, bRClick, oFont,;\n                    oCursor, nClrFore, nClrBack, cMsg, lUpdate,;\n                    cAlias, bWhen, bValid, bLClick, aActions, aSkipCol ) CONSTRUCTOR\n\n   METHOD nAtCol( nCol ) INLINE ::nWCol( nCol )\n   METHOD nAtIcon( nRow, nCol )\n\n   METHOD lCloseArea() INLINE ;\n             If( ! Empty( ::cAlias ), ( ::cAlias )-&gt;( DbCloseArea() ),),;\n             If( ! Empty( ::cAlias ), ::cAlias := \"\",), .t.\n\n   METHOD LDblClick( nRow, nCol, nKeyFlags )\n   METHOD Default()\n\n   METHOD BugUp() INLINE ::UpStable()\n\n   METHOD Display()\n\n   METHOD DrawIcons()\n\n   METHOD DrawLine( nRow ) INLINE ;\n               _WBRWSET_,; // CeSoTech\n               wBrwLine( ::hWnd, ::hDC, If( nRow == nil, ::nRowPos, nRow ), ;\n               Eval( ::bLine ), ::GetColSizes(), ::nColPos,;\n               ::nClrText, ::nClrPane,;\n               If( ::oFont != nil, ::oFont:hFont, 0 ),;\n               ValType( ::aColSizes ) == \"B\", ::aJustify, nil, ::nLineStyle,;\n               0, .f., ::bTextColor, ::bBkColor, ::nClrLine,,,::bFont )\n\n   METHOD DrawSelect()\n\n   METHOD lEditCol( nCol, uVar, cPicture, bValid, nClrFore, nClrBack,;\n                    aItems, bAction )\n\n   METHOD Edit( nCol, lModal )\n\n   METHOD EditCol( nCol, uVar, cPicture, bValid, nClrFore, nClrBack,;\n                   aItems, bAction )\n\n   METHOD GetColSizes() INLINE ;\n          If( ValType( ::aColSizes ) == \"A\", ::aColSizes, Eval( ::aColSizes ) )\n\n   METHOD GetDlgCode( nLastKey )\n\n   METHOD GoUp()\n   METHOD GoDown()\n   METHOD GoLeft()\n   METHOD GoRight()\n   METHOD GoTop()\n   METHOD GoBottom()\n\n   METHOD GotFocus() INLINE Super:GotFocus(),;\n                     If( ::nLen &gt; 0 .and. ! EmptyAlias( ::cAlias ) .and. ;\n                     ! ::lIconView, ::DrawSelect(),)\n\n   METHOD HScroll( nWParam, nLParam )\n\n   MESSAGE DrawIcon METHOD _DrawIcon( nIcon, lFocused )\n\n   METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default()\n\n\n   METHOD IsColVisible( nCol )\n   METHOD KeyDown( nKey, nFlags )\n   METHOD KeyChar( nKey, nFlags )\n   METHOD LButtonDown( nRow, nCol, nKeyFlags )\n   METHOD LButtonUp( nRow, nCol, nKeyFlags )\n\n   METHOD LostFocus( hCtlFocus ) INLINE Super:LostFocus( hCtlFocus ),;\n                   If( ::nLen &gt; 0 .and. ! EmptyAlias( ::cAlias ) .and. ;\n                   ! ::lIconView, ::DrawSelect(),)\n\n   METHOD MouseMove( nRow, nCol, nKeyFlags )\n   #ifndef __CLIPPER__\n   METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos )\n   #endif\n   METHOD PageUp( nLines )\n   METHOD PageDown( nLines )\n   METHOD Paint()\n\n   METHOD RecAdd() INLINE If( ::bAdd != nil, Eval( ::bAdd ),)\n\n   MESSAGE RecCount METHOD _RecCount( uSeekValue )\n\n   METHOD Report( cTitle, lPreview )\n\n   METHOD ReSize( nSizeType, nWidth, nHeight )\n\n   METHOD nRowCount()\n\n   METHOD SetArray( aArray )\n   METHOD SetCols( aData, aHeaders, aColSizes )\n   METHOD SetFilter( cField, uVal1, uVal2 )\n   METHOD SetTree( oTree )\n   METHOD ShowSizes()\n   METHOD SetSizes()\n   METHOD Skip( n )\n   METHOD UpStable()\n   METHOD VertLine( nColPos, nColInit )\n   METHOD VScroll( nWParam, nLParam )\n\n   METHOD DrawHeaders( nColPressed )   // CeSoTech\n   METHOD DrawFooters( nColPressed )   // CeSoTech\n   METHOD GetColHeader( nMRow, nMCol ) // CeSoTech\n   METHOD GetColFooter( nMRow, nMCol ) // CeSoTech\n   METHOD GoToCol( nCol )              // CeSoTech\n   METHOD Refresh( lSysRefresh )       // CeSoTech\n   METHOD nWRow( nMRow )               // CeSoTech\n   METHOD nWCol( nMCol )               // CeSoTech\n   METHOD Set3DStyle()                 // CeSoTech -&gt; Estilo del viejo FW\n   METHOD aBrwPosRect()\n   METHOD DbfSeek( lSoftSeek, bEof )   // CeSoTech\n   METHOD SetTXT( uTxt )               // CeSoTech\n   METHOD Destroy() INLINE If( ::oTXT !=Nil, (::oTXT:End(), ::oTXT:= Nil),),;\n                           Super:Destroy()\n   METHOD IsOverHeader( nMRow, nMCol )\n   METHOD IsOverFooter( nMRow, nMCol )\n   METHOD VerifyLogicLen( nLogicLen )\n   METHOD VerifyLogicPos( nLogicPos )\n   METHOD DispBegin( lCreateDC ) // ( [lCreateDC] ) --&gt; aInfo\n   METHOD DispEnd( aInfo )\n\nENDCLASS\n\n\n//----------------------------------------------------------------------------//\nMETHOD nRowCount() CLASS TWBrowse\n   _WBRWSET_\n\n   If ! \"TCBROWSE\" $ ::ClassName\n      return wBrwRows( ::hWnd, 0, If( ::oFont != nil, ::oFont:hFont, 0 ) ) // CeSoTech\n   EndIf\n    // Por defecto para evitar conflictos con TCBrowse\nreturn nWRows( ::hWnd, 0, If( ::oFont != nil, ::oFont:hFont, 0 ) ) - 1\n//----------------------------------------------------------------------------//\n\nMETHOD New( nRow, nCol, nWidth, nHeigth, bLine, aHeaders, aColSizes, oWnd,;\n            cField, uVal1, uVal2, bChange, bLDblClick, bRClick,;\n            oFont, oCursor, nClrFore, nClrBack, cMsg, lUpdate, cAlias,;\n            lPixel, bWhen, lDesign, bValid, bLClick, aActions, aSkipCol ) CLASS TWBrowse\n\n#ifdef __XPP__\n   #undef New\n#endif\n\n   DEFAULT nRow := 0, nCol := 0, nHeigth := 100, nWidth := 100,;\n           oWnd := GetWndDefault(),;\n           nClrFore := GetSysColor( COLOR_WINDOWTEXT ),; // CeSoTech CLR_BLACK,;\n           nClrBack := GetSysColor( COLOR_WINDOW ),;\n           lUpdate  := .f., cAlias := Alias(), lPixel := .f.,;\n           lDesign  := .f.\n\n   #ifdef __XPP__\n      DEFAULT cAlias := \"\"\n   #endif\n\n   ::cCaption   = \"\"\n   ::nTop       = nRow * If( lPixel, 1, BRSE_CHARPIX_H ) // 14\n   ::nLeft      = nCol * If( lPixel, 1, BRSE_CHARPIX_W )  //8\n   ::nBottom    = ::nTop + nHeigth - 1\n   ::nRight     = ::nLeft + nWidth - 1\n   ::oWnd       = oWnd\n   ::lHitTop    = .f.\n   ::lHitBottom = .f.\n   ::lFocused   = .f.\n   ::lCaptured  = .f.\n   ::lMChange   = .t.\n   ::nRowPos    = 1\n   ::nColPos    = 1\n   ::nColAct    = 1\n\n   ::nStyle     = nOr( WS_CHILD, ; //CeSoTech /// WS_VSCROLL, WS_HSCROLL,;\n                       WS_BORDER, WS_VISIBLE, WS_TABSTOP,;\n                       If( lDesign, WS_CLIPSIBLINGS, 0 ) )\n   ::nId        = ::GetNewId()\n   ::cAlias     = cAlias\n   ::bLine      = bLine\n   ::lAutoEdit  = .f.\n   ::lAutoSkip  = .f.\n   ::lIconView  = .f.\n   ::lCellStyle = .f.\n   ::nIconPos   = 0\n\n   ::SetFilter( cField, uVal1, uVal2 )\n\n   ::bAdd       = { || ( ::cAlias )-&gt;( DbAppend() ), ::UpStable() }\n\n   ::aSkipCol   = aSkipCol\n\n   ::aHeaders   = aHeaders\n   ::aColSizes  = aColSizes\n   ::nLen       = 0\n   ::lDrag      = lDesign\n   ::lCaptured  = .f.\n   ::lMChange   = .t.\n   ::bChange    = bChange\n   ::bLClicked  = bLClick\n   ::bLDblClick = bLDblClick\n   ::bRClicked  = bRClick\n\n   ::oCursor    = oCursor\n   ::oFont      = oFont\n\n   //::nLineStyle    := LINES_3D\n   ::nLineStyle    := LINES_GRAY\n\n   ::nLineStyle:= 10    // by CeSoTech\n\n   /// CeSoTech ///\n   If (::lVScroll== Nil .or. (::lVScroll!=Nil .and. ::lVScroll))\n      ::nStyle:= nOr( ::nStyle, WS_VSCROLL )\n   EndIf\n   If (::lHScroll== Nil .or. (::lHScroll!=Nil .and. ::lHScroll))\n      ::nStyle:= nOr( ::nStyle, WS_HSCROLL )\n   EndIf\n   /// CeSoTech ///\n\n   ::nClrBackHead  := GetSysColor( COLOR_BTNFACE )\n   ::nClrForeHead  := GetSysColor( COLOR_BTNTEXT )\n   ::nClrBackFocus := GetSysColor( COLOR_HIGHLIGHT )\n   ::nClrForeFocus := GetSysColor( COLOR_HIGHLIGHTTEXT) // CeSoTech CLR_WHITE\n\n\n   ::nClrFBack     := ::nClrBackHead  // by CeSoTech\n   ::nClrFFore     := ::nClrForeHead  // by CeSoTech\n\n   ::nClrNFBack    := GetSysColor( COLOR_BTNSHADOW ) // by CeSoTech\n   ::nClrNFFore    := ::nClrForeFocus // by CeSoTech\n\n   ::cMsg          = cMsg\n   ::lUpdate       = lUpdate\n   ::bWhen         = bWhen\n   ::bValid        = bValid\n   ::aActions      = aActions\n\n   ::SetColor( nClrFore, nClrBack )\n\n   #ifdef __XPP__\n      DEFAULT ::lRegistered := .f.\n   #endif\n\n   ::Register( nOr( CS_VREDRAW, CS_HREDRAW, CS_DBLCLKS ) )\n\n   if ! Empty( oWnd:hWnd )\n      ::Create()\n      ::Default()\n      ::lVisible = .t.\n      oWnd:AddControl( Self )\n   else\n      oWnd:DefControl( Self )\n      ::lVisible = .f.\n   endif\n\n   if lDesign\n      ::CheckDots()\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReDefine( nId, bLine, oDlg, aHeaders, aColSizes, cField, uVal1, uVal2,;\n                 bChange, bLDblClick, bRClick, oFont, oCursor,;\n                 nClrFore, nClrBack, cMsg, lUpdate, cAlias,;\n                 bWhen, bValid, bLClick, aActions, aSkipCol ) CLASS TWBrowse\n\n   DEFAULT oDlg := GetWndDefault(),;\n           nClrFore := GetSysColor( COLOR_WINDOWTEXT ),; // CeSoTech CLR_BLACK,;\n           nClrBack := GetSysColor( COLOR_WINDOW ), lUpdate := .f., cAlias := Alias()\n\n   ::lHitTop    = .f.\n   ::lHitBottom = .f.\n   ::lFocused   = .f.\n   ::nId        = nId\n   ::nRowPos    = 1\n   ::nColPos    = 1\n   ::nColAct    = 1\n   ::cAlias     = cAlias\n   ::oWnd       = oDlg\n   ::aHeaders   = aHeaders\n   ::aColSizes  = aColSizes\n   ::nClrPane   = CLR_LIGHTGRAY\n   ::nClrText   = CLR_WHITE\n   ::nLen       = 0\n   ::lDrag      = .f.\n   ::lCaptured  = .f.\n   ::lVisible   = .f.\n   ::lCaptured  = .f.\n   ::lMChange   = .t.\n\n   ::aSkipCol   = aSkipCol\n\n   ::bLine      = bLine\n   ::bChange    = bChange\n   ::bLClicked  = bLClick\n   ::bLDblClick = bLDblClick\n   ::bRClicked  = bRClick\n\n   ::oCursor    = oCursor\n   ::oFont      = oFont\n\n   ::nLineStyle    := LINES_GRAY\n   //::nLineStyle    := LINES_3D\n\n   ::nLineStyle:= 10   // by CeSoTech\n\n   ::nClrBackHead  := GetSysColor( COLOR_BTNFACE )\n   ::nClrForeHead  := GetSysColor( COLOR_BTNTEXT ) // CeSoTech CLR_BLACK\n   ::nClrBackFocus := GetSysColor( COLOR_HIGHLIGHT )\n   ::nClrForeFocus := GetSysColor( COLOR_HIGHLIGHTTEXT ) // CeSoTech CLR_WHITE\n\n   ::nClrFBack     := ::nClrBackHead  // by CeSoTech\n   ::nClrFFore     := ::nClrForeHead  // by CeSoTech\n\n   ::nClrNFBack    := GetSysColor( COLOR_BTNSHADOW ) // by CeSoTech\n   ::nClrNFFore    := ::nClrForeFocus // by CeSoTech\n\n   ::cMsg          = cMsg\n   ::lUpdate       = lUpdate\n   ::bWhen         = bWhen\n   ::bValid        = bValid\n   ::aActions      = aActions\n   ::lAutoEdit     = .f.\n   ::lAutoSkip     = .f.\n   ::lIconView     = .f.\n   ::lCellStyle    = .f.\n   ::nIconPos      = 0\n\n   ::SetColor( nClrFore, nClrBack )\n\n   ::SetFilter( cField, uVal1, uVal2 )\n   ::bAdd       = { || ( ::cAlias )-&gt;( DbAppend() ), ::UpStable() }\n\n   ::Register( nOr( CS_VREDRAW, CS_HREDRAW, CS_DBLCLKS ) )\n\n   oDlg:DefControl( Self )\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD DrawSelect() CLASS TWBrowse\n\n LOCAL nTextColor, nBkColor\n\n   _WBRWSET_     /*CeSoTech*/\n   If ::nLen &lt; 1\n      return Nil\n   EndIf\n\n   ::lSelect:= .T.\n\n   If ! ::lDrawSelect  // Si no quiere mostrar celda(s) activa !!!\n      ::DrawLine()\n      ::lSelect:= .F.\n      return Nil\n   EndIf\n\n   If ::lOnlyBorder\n      nTextColor:= ::nClrText\n      nBkColor  := ::nClrPane\n   Else\n      nTextColor:= If( ::lFocused, ::nClrForeFocus, ::nClrNFFore )\n      nBkColor  := If( ::lFocused, ::nClrBackFocus, ::nClrNFBack )\n   EndIf\n\n   if ::lCellStyle\n      ::DrawLine()\n\n      WBrwLine( ::hWnd, ::hDC, ::nRowPos, Eval( ::bLine ),;\n                ::GetColSizes(), ::nColPos,;\n                nTextColor, nBkColor,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ),;\n                ValType( ::aColSizes ) == \"B\", ::aJustify,, ::nLineStyle,;\n                ::nColAct, ::lFocused, ::bTextColor, ::bBkColor, ::nClrLine,;\n                .f., .T., ::bFont, ::lDrawFocusRect )\n\n   else\n\n      WBrwLine( ::hWnd, ::hDC, ::nRowPos, Eval( ::bLine ),;\n                ::GetColSizes(), ::nColPos,;\n                nTextColor, nBkColor,;\n                If( ::oFont != nil, ::oFont:hFont, 0 ),;\n                ValType( ::aColSizes ) == \"B\", ::aJustify,, ::nLineStyle, ;\n                .f., ::lFocused, ::bTextColor, ::bBkColor, ::nClrLine,;\n                .f., .T., ::bFont, ::lDrawFocusRect )\n\n   endif\n   ::lSelect:= .F.\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD DrawIcons() CLASS TWBrowse\n\n   local nWidth := ::nWidth(), nHeight := ::nHeight()\n   local nRow := 10, nCol := 10\n   local n := 1, nIcons := Int( nWidth / 50 ) * Int( nHeight / 50 )\n   local hIcon := ExtractIcon( \"user.exe\", 0 )\n   local oFont, cText\n\n   DEFINE FONT oFont NAME \"Ms Sans Serif\" SIZE 0, -8 UNDERLINE\n\n   SelectObject( ::hDC, oFont:hFont )\n   SetBkColor( ::hDC, CLR_BLUE )\n   SetTextColor( ::hDC, CLR_WHITE )\n\n   while n &lt;= nIcons .and. ! ( ::cAlias )-&gt;( EoF() )\n      if ::bIconDraw != nil .and. ::aIcons != nil\n         hIcon = ::aIcons[ Eval( ::bIconDraw, Self ) ]\n      endif\n      DrawIcon( ::hDC, nRow, nCol, hIcon )\n      if ::bIconText != nil\n         cText = cValToChar( Eval( ::bIconText, Self ) )\n      else\n         cText = Str( ( ::cAlias )-&gt;( RecNo() ) )\n      endif\n      DrawText( ::hDC, cText, { nRow + 35, nCol - 5, nRow + 48, nCol + 40 },;\n                1 )\n      nCol += 50\n      if nCol &gt;= nWidth - 32\n         nRow += 50\n         nCol  = 10\n      endif\n      ( ::cAlias )-&gt;( DbSkip() )\n      n++\n   end\n   ( ::cAlias )-&gt;( DbSkip( 1 - n ) )\n\n   oFont:End()\n\nreturn nil\n\n\n\n//----------------------------------------------------------------------------//\n\nMETHOD ReSize( nSizeType, nWidth, nHeight ) CLASS TWBrowse\n\n   ::nRowPos = Min( ::nRowPos, Max( ::nRowCount(), 1 ) )\n\nreturn Super:ReSize( nSizeType, nWidth, nHeight )\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetArray( aArray ) CLASS TWBrowse\n\n   ::nAt       = 1\n   ::cAlias    = \"ARRAY\"\n   // ::bLine     = { || { aArray[ ::nAt ] } }\n   ::bLogicLen = { || ::nLen := Len( aArray ) }\n\n   ::bLogicPos  := Nil // CeSoTech\n   ::bGoLogicPos:= Nil // CeSoTech\n\n   ::bGoTop    = { || ::nAt := 1 }\n   ::bGoBottom = { || ::nAt := Eval( ::bLogicLen ) }\n   ::bSkip     = { | nSkip, nOld | nOld := ::nAt, ::nAt += nSkip,;\n                  ::nAt := Min( Max( ::nAt, 1 ), Eval( ::bLogicLen ) ),;\n                  ::nAt - nOld }\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetTree( oTree ) CLASS TWBrowse\n\n   local oItem := oTree:oFirst\n\n   ::lMChange   = .f.\n   ::bLine      = { || oItem:GetLabel() }\n   ::aColSizes  = { || oItem:ColSizes() }\n   ::bGoTop     = { || oItem := oTree:oFirst }\n   ::bGoBottom  = { || oItem := oTree:GetLast() }\n   ::bSkip      = { | n | oItem := oItem:Skip( @n ), ::Cargo := oItem, n }\n   ::bLogicLen  = { || ::nLen := oTree:nCount() }\n\n   ::bLogicPos   := Nil // CeSoTech\n   ::bGoLogicPos := Nil // CeSoTech\n   ::lDrawHeaders:= .f. // CeSoTech\n\n   ::bLDblClick = { || If( oItem:oTree != nil,;\n                         ( oItem:Toggle(), ::Refresh() ),) }\n   ::Cargo      = oItem\n\n   ::bKeyChar   = { | nKey | If( nKey == 13 .and. oItem:oTree != nil,;\n                         ( oItem:Toggle(), ::Refresh() ),) }\n\n   if ::oHScroll != nil\n      ::oHScroll:SetRange( 0, 0 )\n      ::oHScroll = nil\n   endif\n\n   oTree:Draw()\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Paint() CLASS TWBrowse\n\n   local n := 1, nSkipped := 1, nLines\n   local nSkip, nRealSkip\n\nlocal aInfo\n\n\n    _WBRWSET_\n   if ::lIconView\n      ::DrawIcons()\n      return 0\n   endif\n\n   aInfo:= ::DispBegin()\n\n   if ::nRowPos == 1 .and. ! Empty( ::cAlias ) .and. ;\n      Upper( ::cAlias ) != \"ARRAY\" .and. Upper( ::cAlias ) != \"_TXT_\"\n      if ! ( ::cAlias )-&gt;( EoF() )\n         ( ::cAlias )-&gt;( DbSkip( -1 ) )\n         if ! ( ::cAlias )-&gt;( BoF() )\n            ( ::cAlias )-&gt;( DbSkip() )\n         endif\n      endif\n   endif\n\n   ::DrawHeaders()  // CeSoTech\n   ::DrawFooters()  // CeSoTech\n\n\n   if ( ::nLen := Eval( ::bLogicLen ) ) &gt; 0\n\n   ////////////////////////////////////\n   // AutoEstabilizacion by CeSoTech //\n   ////////////////////////////////////\n   nSkip    := 1 - ::nRowPos\n   nRealSkip:= ::Skip( nSkip )\n   if nSkip &lt;&gt; nRealSkip\n      ::nRowPos-= nRealSkip - nSkip\n      ::nRowPos:= Max( ::nRowPos, 1 )\n   EndIf\n\n\n      #ifdef __XPP__\n         nLines = ::nRowCount()\n         while n &lt;= nLines .and. nSkipped == 1\n            ::DrawLine( n )\n            nSkipped = ::Skip( 1 )\n            if nSkipped == 1\n               n++\n            endif\n         end\n         ::Skip( ::nRowPos - n )\n      #else\n\n          // WBrwPane() returns the nº of visible rows\n          // WBrwPane recieves at aColSizes the Array or a Block\n          // to get dinamically the Sizes !!!\n         ::Skip( ::nRowPos - wBrwPane( ::hWnd, ::hDC, Self, ::bLine,;\n              ::aColSizes, ::nColPos, ::nClrText, ::nClrPane,;\n              If( ::oFont != nil, ::oFont:hFont, 0 ), ::aJustify, ;\n              ::nLineStyle, 0  , .f., ::bTextColor, ::bBkColor, ::nClrLine,;\n              ::oBrush:nRGBColor, ::bFont ) )\n\n\n      #endif\n\n      if ::nLen &lt; ::nRowPos\n         ::nRowPos = ::nLen\n      endif\n      ::DrawSelect()\n\n   endif\n\n::DispEnd( aInfo )\n\n\n   If ::oVScroll != Nil .and. ::bLogicPos != Nil\n      if ::lHitTop .or. ( ::nLogicPos!= nil .and. ::nLogicPos &lt;= 1 ) .or. ::lGoTop .or. ::nLen &lt;= 1\n         ::oVScroll:SetPos( 1 )\n      elseif ::lHitBottom .or. ::lGoBottom\n         ::oVScroll:SetPos( 100 )\n      else\n         ::oVScroll:SetPos( _POSVSCROLL_ )\n      endif\n   EndIf\n\n   if ! Empty( ::cAlias ) .and. Upper( ::cAlias ) != \"ARRAY\" ;\n       .and. Upper( ::cAlias ) != \"_TXT_\"\n       ::lHitTop    = ( ::cAlias )-&gt;( BoF() )\n       ::lHitBottom = ( ::cAlias )-&gt;( EoF() )\n   endif\n\n\n\n\n\nreturn 0\n\n//----------------------------------------------------------------------------//\n\nMETHOD GoUp() CLASS TWBrowse\n\n   local nSkipped\n   local nLines := ::nRowCount()\nlocal aInfo\n\n   _WBRWSET_\n   ::lGoTop:= .F.\n   ::lGoBottom:= .F.\n\n   if ( ::nLen := Eval( ::bLogicLen ) ) &lt; 1\n      return nil\n   endif\n\n\n   if ! ::lHitTop\n\naInfo:= ::DispBegin( .T. )\n\n      ::DrawLine()\n      if ::Skip( -1 ) == -1\n         ::lHitBottom = .f.\n         if ::nRowPos &gt; 1\n            ::nRowPos--\n         else\n            WBrwScrl( ::hWnd, -1, If( ::oFont != nil, ::oFont:hFont, 0 ), ::nLineStyle, ::hDC )\n         endif\n         ::nLogicPos--\n      else\n         ::lHitTop = .t.\n      endif\n      ::DrawSelect()\n      if ::oVScroll != nil\n\n         If ::bLogicPos != Nil  // By CeSoTech\n            ::oVScroll:SetPos( _POSVSCROLL_ )\n         Else\n            ::oVScroll:GoUp()\n         EndIf\n\n\n      endif\n      if ::bChange != nil\n         Eval( ::bChange, Self )\n      endif\n\n\n::DispEnd( aInfo )\n\n   endif\n\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD GoDown() CLASS TWBrowse\n\n   local nSkipped\n   local nLines := ::nRowCount()\nlocal aInfo\n\n\n    _WBRWSET_\n   ::lGoTop:= .F.\n   ::lGoBottom:= .F.\n\n   if ( ::nLen := Eval( ::bLogicLen ) ) &lt; 1\n      return nil\n   endif\n\n\n   if ! ::lHitBottom\n\naInfo:= ::DispBegin( .T. )\n\n      ::DrawLine()\n      if ::Skip( 1 ) == 1\n         ::lHitTop = .f.\n         if ::nRowPos &lt; nLines\n            ::nRowPos++\n         else\n            WBrwScrl( ::hWnd, 1, If( ::oFont != nil, ::oFont:hFont, 0 ), ::nLineStyle, ::hDC )\n         endif\n         ::nLogicPos++\n      else\n         ::lHitBottom = .t.\n      endif\n\n      ::DrawSelect()\n      if ::oVScroll != nil\n\n         If ::bLogicPos != Nil  // By CeSoTech\n            ::oVScroll:SetPos( _POSVSCROLL_ )\n         Else\n            ::oVScroll:GoDown()\n         EndIf\n\n      endif\n      if ::bChange != nil\n         Eval( ::bChange, Self )\n      endif\n\n::DispEnd( aInfo )\n\n   endif\n\n\n\nreturn nil\n\n//---------------------------------------------------------------------------//\n\nMETHOD GoLeft( lRefresh ) CLASS TWBrowse // by CeSoTech\n LOCAL aSizes:= ::GetColSizes()\n LOCAL nCols := Len( aSizes )\n LOCAL lColVisible, nColAct, lRefreshAll:= .t.\n LOCAL lGoLeft:= Eval( ::bGoLeft )\n LOCAL FWHUltCol:=0\n\n    DEFAULT lRefresh:= .T.\n\n    _WBRWSET_\n\n    If ::cAlias == \"_TXT_\"\n       If lGoLeft .and. ::nTXTFrom &gt; 1\n          ::nTXTFrom-= ::nTXTSkip\n          return .T.\n       Else\n          MsgBeep()\n          return .F.\n       EndIf\n    EndIf\n\n    If !( ::nColAct &gt; 1 ) .or. ! lGoLeft\n       return .f.\n    Else\n         If ::aTmpColSizes == Nil\n            ::aTmpColSizes:= AClone( aSizes ) // Guardo Long. Originales\n         EndIf\n\n       If ::nFreeze &gt; 0\n          ::nFreeze:= Max( Min( ::nFreeze, nCols - 1 ), 1 )\n          ::nColPos:= 1\n          If !::lCellStyle\n             ::nColAct--\n             aSizes[::nColAct]:= ::aTmpColSizes[::nColAct]\n             If ::nColAct &lt;= ::nFreeze + 1\n                ::nColAct:= 1\n             EndIf\n             if lRefresh\n                If( ::nLen &gt; 0, ::Refresh(), )\n             endif\n          Else\n\n//           ::nColAct--\n//           lColVisible:= !( aSizes[::nColAct] == 0 )\n//           aSizes[::nColAct]:= ::aTmpColSizes[::nColAct]\n\n             While .t. .AND. ::nColAct&gt;0                  // AAL  ocultar\n                ::nColAct--\n                aSizes[::nColAct]:= ::aTmpColSizes[::nColAct]\n                lColVisible:= ( aSizes[::nColAct] == 0 )\n                IF !lColVisible\n                   exit\n                ENDIF\n             EndDo\n\n             //   fjhg 28-may-07\n             IF ::lFreeze\n                ::nColAct:=IF(::lFirst .AND. ::nColAct=::nFreeze,(::nFreeze + 1),;\n                           IF(::nColAct=::nFreeze,(::nFreeze + 1),::nColAct))\n             ELSE\n                ::nColAct:=IF(::lFirst .AND. ::nColAct=1,2,::nColAct)\n             ENDIF\n\n\n             if lRefresh\n                If !lColVisible\n                   If( ::nLen &gt; 0, ::Refresh(), )\n                Else\n                   lRefreshAll:= .f.\n                   If( ::nLen &gt; 0, ::DrawSelect(), )\n                EndIf\n             endif\n          EndIf\n\n       Else // No tiene Columnas Freeze\n\n          If !::lCellStyle\n             ::nColAct--\n             ::nColPos--\n             If( ::nLen &gt; 0, ::Refresh(), )\n\n          Else\n             ::nColAct--\n             lColVisible:= .t.\n             ::nColAct:=IF(::lFirst .AND. ::nColAct=1,2,::nColAct)\n             While .t.\n                If ! ::IsColVisible( ::nColAct ) .and. ::nColAct &lt; ::nColPos\n                   lColVisible:= .f.\n                   ::nColPos--\n                   Loop\n                Else\n                   Exit\n                EndIf\n             EndDo\n\n             //bira 21/11/07 - quando edicao e acolsizes era = 0,não pulava a coluna \n             //faço isso agora com as linhas abaixo.\n\n             FWHUltCol:=0 \n             for x:=Len(aSizes) to 1 step -1        \n                 IF !( aSizes[x] == 0 )\n                     FWHUltCol:=x\n                 endif\n             next \n             While .t. .AND. ::nColAct&lt;Len(aSizes)  \n                IF !( aSizes[::nColAct] == 0 )\n                   exit\n                else\n                   lColVisible:=.f.\n                   if ::nColAct &gt; 1\n                      ::nColAct--\n                   else\n                      exit \n                   endif\n                ENDIF\n             EndDo\n             IF  aSizes[::nColAct] == 0 \n                 ::nColAct:=FWHUltCol\n                 lColVisible:=.f.\n             endif \n             //fim bira 21/11/07\n\n             if lRefresh\n                If !lColVisible\n                   If( ::nLen &gt; 0, ::Refresh(), )\n                Else\n                   lRefreshAll:= .f.\n                   If( ::nLen &gt; 0, ::DrawSelect(), )\n                EndIf\n             endif\n          EndIf\n\n       EndIf\n\n       If ::oHScroll != Nil .and. lRefresh\n          ::oHScroll:SetPos( ::nColAct )\n       EndIf\n\n    EndIf\nreturn lRefreshAll\n\n//---------------------------------------------------------------------------//\n\nMETHOD GoRight( lRefresh ) CLASS TWBrowse  // by CeSoTech\n LOCAL aSizes:= ::GetColSizes()\n LOCAL nCols := Len( aSizes )\n LOCAL lColVisible, nColAct, lRefreshAll:= .t.\n LOCAL lGoRight:= Eval( ::bGoRight )\n LOCAL FWHUltCol:=0\n\n    DEFAULT lRefresh:= .T.\n\n    _WBRWSET_\n\n    If ::cAlias == \"_TXT_\"\n       If lGoRight .and. ::nTXTFrom &lt;= ::nTXTMaxSkip\n          ::nTXTFrom+= ::nTXTSkip\n          return .T.\n       Else\n          MsgBeep()\n          return .F.\n       EndIf\n    EndIf\n\n    If !( ::nColAct &lt; nCols ) .or. ! lGoRight\n       return .f.\n    Else\n         If ::aTmpColSizes == Nil\n            ::aTmpColSizes:= AClone( aSizes ) // Guardo Long. Originales\n         EndIf\n\n       ////////////// Hagamos un simple razonamiento <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> que la cabeza no solo\n       ////////////// es para pinarnos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n       If !::lCellStyle .and. ::IsColVisible( nCols ) .and. ::oHScroll == Nil\n                                                      // Si no hay edicion por\n          return .f.                                  // celdas y cabe todo en\n       EndIf                                          // el control no es necesario\n       //////////////                                 // ir hacia la derecha !!!:-)\n\n       If ::nFreeze &gt; 0\n          ::nFreeze:= Max( Min( ::nFreeze, nCols - 1 ), 1 )\n          ::nColPos:= 1\n          If !::lCellStyle\n             ::nColAct:= Max( ::nColAct, ::nFreeze + 1 )\n             If ::nColAct &lt; nCols\n                aSizes[::nColAct]:= 0\n                ::nColAct++\n                if lRefresh\n                   If( ::nLen &gt; 0, ::Refresh(), )\n                endif\n             EndIf\n          Else\n//          lColVisible:= .t.\n//          ::nColAct++\n\n             While .t. .AND. ::nColAct&lt;Len(aSizes)        // AAL  ocultar\n                ::nColAct++\n                lColVisible:= !( aSizes[::nColAct] == 0 )\n                IF lColVisible\n                   exit\n                ENDIF\n             EndDo\n\n             nColAct:= ::nFreeze + 1  // Rellena con Size 0 a su izquierda\n             While .t.                // desde la 1ra.no congelada\n                If ! ::IsColVisible( ::nColAct ) .and. nColAct &lt; ::nColAct\n                   lColVisible:= .f.\n                   aSizes[nColAct]:= 0\n                   nColAct++\n                   Loop\n                Else\n                   Exit\n                EndIf\n             EndDo\n             if lRefresh\n                If !lColVisible\n                   If( ::nLen &gt; 0, ::Refresh(), )\n                Else\n                   lRefreshAll:= .f.\n                   If( ::nLen &gt; 0, ::DrawSelect(), )\n                EndIf\n             endif\n          EndIf\n\n       Else // No tiene Columnas Freeze\n\n          If !::lCellStyle\n             ::nColAct++\n             ::nColPos++\n             If( ::nLen &gt; 0, ::Refresh(), )\n          Else\n             ::nColAct++\n             lColVisible:= .t.\n             While .t.\n                If ! ::IsColVisible( ::nColAct ) .and. ::nColAct &gt; ::nColPos \n                   lColVisible:= .f.\n                   ::nColPos++\n                   Loop\n                Else\n                   Exit\n                EndIf\n             EndDo\n\n             //bira 21/11/07 - quando edicao e acolsizes era = 0,não pulava a coluna \n             //faço isso agora com as linhas abaixo.\n             FWHUltCol:=0 \n             for x:=1 to Len(aSizes)        \n                 IF !( aSizes[x] == 0 )\n                     FWHUltCol:=x\n                 endif\n             next \n             While .t. .AND. ::nColAct&lt;Len(aSizes)        \n                IF !( aSizes[::nColAct] == 0 )\n                   exit\n                else\n                   ::nColAct++\n                   lColVisible:=.f.\n                ENDIF\n             EndDo\n             IF  aSizes[::nColAct] == 0 \n                 ::nColAct:=FWHUltCol\n                 lColVisible:=.f.\n             endif \n             //fim bira 21/11/07\n\n             if lRefresh\n                If !lColVisible\n                   If( ::nLen &gt; 0, ::Refresh(), )\n                Else\n                   lRefreshAll:= .f.\n                   If( ::nLen &gt; 0, ::DrawSelect(), )\n                EndIf\n             endif\n          EndIf\n\n       EndIf\n\n       If ::oHScroll != Nil .and. lRefresh\n          ::oHScroll:SetPos( ::nColAct )\n       EndIf\n\n    EndIf\nreturn lRefreshAll\n\n//----------------------------------------------------------------------------//\n\nMETHOD GoTop() CLASS TWBrowse\n\nlocal aInfo\n\n   ::lGoTop:= .T.\n   ::lGoBottom:= .F.\n\n   _WBRWSET_\n\n   if ( ::nLen := Eval( ::bLogicLen ) ) &lt; 1\n      return nil\n   endif\n\n   if ! ::lHitTop\n\naInfo:= ::DispBegin( .T. )\n\n      Eval( ::bGoTop )\n\n      ::nRowPos = 1\n      ::Refresh()\n      ::lHitTop = .t.\n      ::lHitBottom = .f.\n\n      if ::oVScroll != nil\n\n         If ::bLogicPos != Nil  // By CeSoTech\n            ::oVScroll:SetPos( _POSVSCROLL_ )\n         Else\n            ::oVScroll:GoTop()\n         EndIf\n\n      endif\n\n      if ::bChange != nil\n         Eval( ::bChange, Self )\n      endif\n\n::DispEnd( aInfo )\n\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD GoBottom() CLASS TWBrowse\n\n   local nSkipped\n   local nLines // := ::nRowCount()\n   local n\nlocal aInfo\n\n   ::lGoTop:= .F.\n   ::lGoBottom:= .T.\n\n   _WBRWSET_                 // by CeSoTech\n   nLines := ::nRowCount()   //  \"    \"\n   ::lLogicPos:= .T.\n\n   if ( ::nLen := Eval( ::bLogicLen ) ) &lt; 1\n      return nil\n   endif\n\n   if ! ::lHitBottom\n\naInfo:= ::DispBegin( .T. )\n\n      ::lHitBottom = .t.\n      ::lHitTop    = .f.\n\n      Eval( ::bGoBottom )\n\n      nSkipped = ::Skip( -( nLines - 1 ) )\n      ::nRowPos = 1 - nSkipped\n\n      ::GetDC()\n      for n = 1 to -nSkipped\n          ::DrawLine( n )\n          ::Skip( 1 )\n      next\n      ::DrawSelect()\n      ::ReleaseDC()\n      if ::oVScroll != nil\n         ::nLen = Eval( ::bLogicLen )\n\n         If ::bLogicPos != Nil  // By CeSoTech\n            ::oVScroll:SetPos( _POSVSCROLL_ )\n         Else\n            if ::oVScroll:nMax != ::nLen\n               ::oVScroll:SetRange( 1, ::nLen )\n            endif\n            ::oVScroll:GoBottom()\n         EndIf\n\n      endif\n\n\n      if ::bChange != nil\n         Eval( ::bChange, Self )\n      endif\n\n::DispEnd( aInfo )\n\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD LDblClick( nRow, nCol, nKeyFlags ) CLASS TWBrowse\n   local nClickRow := ::nWRow( nRow )\n   local nBrwCol\n\n   if nClickRow == ::nRowPos .and. ::nLen &gt; 0\n\n      nBrwCol = ::nAtCol( nCol )\n      if ::lAutoEdit .and. nBrwCol &gt; 0\n         ::Edit( nBrwCol )\n      else\n         return Super:LDblClick( nRow, nCol, nKeyFlags )\n      endif\n\n   else                                                // CeSoTech\n      return Super:LDblClick( nRow, nCol, nKeyFlags )  // CeSoTech\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TWBrowse\n\n   local nColAct // by CeSoTech\n   local nClickRow, nSkipped\n   local nColPos := 0, nColInit := ::nColPos - 1\n   local oRect, nAtCol\n\n   if ::lDrag\n      return Super:LButtonDown( nRow, nCol, nKeyFlags )\n   endif\n\n   nClickRow = ::nWRow( nRow )\n\n   if ::nLen &lt; 1 .and. nClickRow != 0\n      return nil\n   endif\n\n   if ::lMChange .and. ;\n       (::IsOverHeader( nRow, nCol ) .or. ::IsOverFooter( nRow, nCol )) .and.;\n       AScan( ::GetColSizes(),;\n             { | nColumn | nColPos += nColumn,;\n                           nColInit++,;\n                           nCol &gt;= nColPos - 1 .and. ;\n                           nCol &lt;= nColPos + 1 }, ::nColPos ) != 0\n\n\n      if ! ::lCaptured\n         ::lCaptured = .t.\n         ::Capture()\n         ::VertLine( nColPos, nColInit )\n      endif\n      return nil\n   endif\n\n   ::SetFocus()\n\n   if ::IsOverHeader(nRow,nCol) .and. Valtype(nKeyFlags) == \"N\" .and. ::nWCol(nCol) &gt; 0\n      if ::aActions != nil .and. ;\n         ( nAtCol := ::nAtCol( nCol ) ) &lt;= Len( ::aActions )\n            if ::aActions[ nAtCol ] != nil\n\n               ::DrawHeaders()  // CeSoTech\n               ::DrawFooters()  // CeSoTech\n\n               ::ReleaseDC()\n\n               Eval( ::aActions[ nAtCol ], Self, nRow, nCol )\n\n               ::DrawHeaders()  // CeSoTech\n               ::DrawFooters()  // CeSoTech\n\n               ::ReleaseDC()\n            else\n               MsgBeep()\n            endif\n      else\n         MsgBeep()\n      endif\n   endif\n\n   if nClickRow &gt; 0 .and. nClickRow != ::nRowPos .and. ;\n      nClickRow &lt; ::nRowCount() + 1  .and. ::nWCol(nCol) &gt; 0\n\n      ::DrawLine()\n      nSkipped  = ::Skip( nClickRow - ::nRowPos )\n      ::nRowPos += nSkipped\n      ::lGoTop:= .F.\n      ::lGoBottom:= .F.\n      if ::oVScroll != nil\n         If ::bLogicPos != Nil  // By CeSoTech\n            ::oVScroll:SetPos( _POSVSCROLL_ )\n         Else\n            ::oVScroll:SetPos( ::oVScroll:GetPos() + nSkipped )\n         EndIf\n      endif\n\n      if ::lCellStyle\n\n         If ( nAtCol:= ::nAtCol( nCol ) ) &gt; 0\n            ::GoToCol( nAtCol )\n         EndIf\n\n      endif\n\n      ::DrawSelect()\n      ::lHitTop = .f.\n      ::lHitBottom = .f.\n      if ::bChange != nil\n         Eval( ::bChange, Self )\n      endif\n\n   else\n\n      if ::lCellStyle\n           If ( nAtCol:= ::nAtCol( nCol ) ) &gt; 0\n              ::GoToCol( nAtCol )\n           EndIf\n      endif\n   endif\n\n   Super:LButtonDown( nRow, nCol, nKeyFlags )\n\nreturn 0\n\n//----------------------------------------------------------------------------//\n\nMETHOD LButtonUp( nRow, nColM, nFlags ) CLASS TWBrowse\n LOCAL aSizes, nColChange // CeSoTech\n\n   if ::lDrag\n      return Super:LButtonUp( nRow, nColM, nFlags )\n   endif\n\n   if ::lCaptured\n      ::lCaptured = .f.\n      ReleaseCapture()\n\n      nColChange:= ::VertLine()  // Asignacion by CeSoTech\n\n      // CeSoTech -&gt; Si cambio el ancho de columna, y estoy en nFreeze &gt; 0\n      // deber‚ redimensionar el items de la matriz temporaria real de\n      // dimensiones !!!.\n      If ::nFreeze &gt; 0\n         aSizes:= ::GetColSizes()\n         If ::aTmpColSizes == Nil\n            ::aTmpColSizes:= AClone( aSizes )\n         Else\n            ::aTmpColSizes[nColChange]:= aSizes[nColChange]\n         EndIf\n      EndIf\n      // CeSoTech //\n\n   endif\n\n   Super:LButtonUp( nRow, nColM, nFlags )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nMETHOD Default() CLASS TWBrowse\n\n   local n, aFields\n   local cAlias := Alias()\n   local nElements, nTotal := 0\n   local nDefaultHeight\n\n\n   if ::oFont == nil\n      ::oFont = ::oWnd:oFont\n   endif\n\n   nDefaultHeight:= WBrwHeight( ::hWnd,;\n                                If( ::oFont != nil, ::oFont:hFont, 0 ) )\n\n   If ::nHeaderHeight &lt;= 0\n      ::nHeaderHeight:= nDefaultHeight\n   EndIf\n   If ::nFooterHeight &lt;= 0\n      ::nFooterHeight:= nDefaultHeight\n   EndIf\n   If ::nLineHeight &lt;= 0\n      ::nLineHeight:= nDefaultHeight\n   EndIf\n\n   DEFAULT ::aHeaders := {}, ::aColSizes := {}\n\n   if ::bLine == nil\n      if Empty( ::cAlias )\n         ::cAlias = cAlias\n      else\n         cAlias = ::cAlias\n      endif\n      ::bLine  = { || _aFields( Self ) }\n      if ::aJustify == nil\n         ::aJustify = Array( nElements := Len( Eval( ::bLine ) ) )\n         for n = 1 to nElements\n             ::aJustify[ n ] = ( ValType( ( cAlias )-&gt;( FieldGet( n ) ) ) == \"N\" )\n         next\n      endif\n   endif\n\n   DEFAULT nElements := Len( Eval( ::bLine ) )\n\n   if Len( ::aHeaders ) &lt; nElements              //  == nil\n      if ::Cargo == nil','',0,'','1w3av3ld',1,0,'',1236,0,0),(43811,9165,6,396,0,'190.72.247.87',1197476957,1,0,1,1,1,1,'','','[quote=&quot;fgondi&quot;:yrn99lh1]Hola Jose Luis,\n\nQue versión de verce estas utilizando?\n\nYo estoy intentando usar la versión 5.3 y al incluir mas de un .res aparece el error: \"Fatal: Too many commas on command line:\"[/quote:yrn99lh1]\nTienes razon , tambien acaba de darme el mismo error, con la version 5.0 trabaja sin problemas, es la mas estable hasta ahora, si no la tienes me avisas a mi correo privado y te la envio.... ya le envie los mensajes de errores y otros detalles a la gente de VERCE.Saludos.','',0,'gA==','yrn99lh1',1,0,'',396,0,0),(43812,9143,6,1168,0,'84.121.87.247',1197477943,1,0,1,1,1,0,'','Re: El OutLook me bloquea el envio de correos desde FWH','[quote=&quot;JmGarcia&quot;:29fa8w1f]Cuando trato de mandar e-mail con la clase TMail() y le defino que el enio NO sea \"FROM USER\" el OoutLook me saca este mensaje:\n\n[color=red:29fa8w1f]Un programa esta intentando enviar correo electronico automaticamente en su nombre.\n¿ Desea premitirlo ?\nSi esto es inesperado, puede que sea un virus y deberia elegir \"No\".[/color:29fa8w1f]\nY los botones de [color=red:29fa8w1f]SI-NO-AYUDA[/color:29fa8w1f]\n\nY claro la pantallita del mensaje se queda a la espera...\n\n¿ Donde lo arreglo ? en el programa o en el outlook\n\nGracias  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->[/quote:29fa8w1f]\n\nCreo que eso no se puedequitar, o al menos NO de forma facil... Eso es una regla de seguridad de Microsoft. Hace unos dias creo que volvi a leer sobre el tema en los foros de Alaska-Xbase\n\nSaludos','',0,'gg==','29fa8w1f',1,0,'',1168,0,0),(43814,9156,6,1168,0,'84.121.87.247',1197478242,1,0,1,1,1,0,'','Re: Funcion para obterne el proximo valor','[quote=&quot;manuelcalerosolis&quot;:2mzdvysf]Estoy intentando crear una función para q me devuelva el proximo valor de una cadena de caracteres que puede contener cualquier valor alfanumerico.\n\nCreo lo explico mejor con un ejemplo.\n\nValor previo \"0001\" -&gt; \"0002\"\nValor previo \"ABCD\" -&gt; \"ABCDE\"\nValor previo \"AB99\" -&gt; \"AB100\"\n\nEn fin creo q es un poco jodido, pero espero q alguien se haya visto ante esta situción antes.\n\nGracias[/quote:2mzdvysf]\nManuel,\nEsto quiza no sea lo que tu quieres pero pruebo:\nFUNCTION Siguiente(cCad)\nRETURN  Left(cCad, Len(cCad)- 1)+ Chr(Asc(Right(cCad, 1))+ 1)\n\nSiguiente(\"001\")  // \"002\"\nSiguiente(\"ABC\") // \"ABD\"\n\nSaludos','',0,'gA==','2mzdvysf',1,0,'',1168,0,0),(43815,9183,3,213,0,'98.196.64.111',1197479604,1,0,1,1,1,0,'','','Barry,\n\nIt appears there is a method for this:\n\ngetLatLng(address, callback)\nSends a request to Google servers to geocode the specified address. If the address was successfully located, the user-specified callback function is invoked with a GLatLng point. Otherwise, the callback function is given a null point. In case of ambiguous addresses, only the point for the best match is passed to the callback function. (Since 2.55)\n\nThanks,\nRandal\n\n[quote=&quot;Barry O\'Brien&quot;:26q3zr8y]Hi Randal,\n\nI don\'t know anything about the google maps interface but going back a few months I was under the impression it only worked on lat\\long co-ordinates.\n\nThe last company I worked for had to buy a data set for all UK addresses which also had all the lat\\long co-ordinates in it.  This way they could just do a database lookup using the address to get the lat\\long co-ordinates to then do the google maps lookup.\n\nI wasn\'t involved in the development of this unfortunately so I can\'t tell you any more about how it worked.  In any case I would imagine the google maps api has moved on since then!\n\nKind regards,\n\nBarry[/quote:26q3zr8y]','',0,'gA==','26q3zr8y',1,0,'',213,0,0),(43816,9187,17,956,0,'200.222.21.2',1197479968,1,0,1,1,1,1,'','Which best resource editor?','if other, say which','',0,'gA==','14car4t7',1,0,'',956,0,0),(43817,9162,3,6,0,'82.57.159.99',1197484781,1,0,1,1,1,1,'','','Please explain what do you exactly need.\n\nEMG','',0,'gA==','xpfydtho',1,0,'',6,0,0),(43818,9130,3,6,0,'82.57.159.99',1197484954,1,0,1,1,1,1,'','','This option is not in the docs of my Excel 2000 so I think it works only on a newer version.\n\nEMG','',0,'gA==','36unx37t',1,0,'',6,0,0),(43819,9159,3,2,0,'87.218.146.240',1197485728,1,0,1,1,1,1,'','','Acwoo,\n\n&gt; Text and numeric \n\nDoes the same GET use different values sometimes ? \n\nDo you mean that sometimes is showing a text and sometimes a number ? If so, why don\'t you always use a text calling Str( number ) ?\n\nPlease notice that the error comes from Harbour itself. Its not a FWH error. Probably the Class TGet of Harbour does not accept the change of type of the GET value','',0,'gA==','2k4bqmw9',1,0,'',2,0,0),(43820,9174,6,2,0,'87.218.146.240',1197485995,1,0,1,1,1,1,'','','Aqui tienes una buena explicación de lo que es ADO:\n<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/ADO\">http://es.wikipedia.org/wiki/ADO</a><!-- m -->\n\nPara usarlo se usa OLE. Haz una búsqueda (botón arriba) en estos foros por:\nADO AND CreateObject','',0,'gA==','1fok81no',1,0,'',2,0,0),(43821,9181,6,2,0,'87.218.146.240',1197486382,1,0,1,1,1,1,'','','Para evitar que se ejecute dos veces haz lo siguiente:\n[code:3brf2gnc]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWBrowse \n\n   local uRet\n\n   if &#58;&#58;bKeyDown != nil   // nuevo \n      uRet &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey &#41;  // nuevo \n      if ValType&#40; uRet &#41; == &quot;L&quot; &#46;and&#46; uRet\n         return nil\n      endif\n   endif  // nuevo \n\n   do case \n      case nKey == VK_UP \n           &#58;&#58;GoUp&#40;&#41; \n   &#46;&#46;&#46; \n[/code:3brf2gnc]\nAsí ahora [color=red:3brf2gnc]bKeyDown[/color:3brf2gnc] tiene que devolver [color=red:3brf2gnc].T.[/color:3brf2gnc] para que no continúe la ejecución del método KeyDown().','',0,'AoA=','3brf2gnc',1,0,'',2,0,0),(43822,9180,6,2,0,'87.218.146.240',1197486763,1,0,1,1,1,1,'','','Asi no lo puedes hacer. Tienes que usar \"detached locals\":\n[code:2dimuw6f]\nfor i&#58;=1 to len&#40;PoBtc&#41; \n   @ lin,col say PoBtc&#91;i&#93; OF oWndp DESIGN PIXEL SIZE 100,20 BORDER \n   PoBtc&#91;i&#93;&#58;bLButtonUp = GenBlock&#40; PoBtc, i &#41;\nnext \n&#46;&#46;&#46;\nstatic function GenBlock&#40; PoBtc, i &#41;\n\nreturn &#123; || PoBtc&#91; i &#93;&#58;Refresh&#40;&#41;, MsgInfo&#40; &quot;aqui&quot; &#41; &#125;\n[/code:2dimuw6f]','',0,'AIA=','2dimuw6f',1,0,'',2,0,0),(43823,9185,6,2,0,'87.218.146.240',1197486891,1,0,1,1,1,1,'','','Anderson,\n\nLo que quieres es que se ejecute dos veces si se pulsa rapidamente dos veces ?','',0,'AIA=','22upfcfz',1,0,'',2,0,0),(43824,9181,6,1236,0,'201.86.91.126',1197487266,1,0,1,1,1,0,'','','Antonio, testando o seu exemplo, uRet retorna sempre  VALTYPE(uRet)  \"U\", não esta funcionando!\n\n\nObrigado','',0,'AIA=','660h8h63',1,0,'',1236,0,0),(43825,9130,3,868,0,'219.64.121.60',1197487521,1,0,1,1,1,1,'','','Yes\nWorks from ver 2003','',0,'AIA=','2zdhxr7f',1,0,'',868,0,0),(43826,9180,6,1236,0,'201.86.91.126',1197488421,1,0,1,1,1,0,'','','desculpe Antonio mais também não funciona!\n\nObrigado','',0,'AIA=','2m2tbj67',1,0,'',1236,0,0),(43827,9145,3,1151,0,'203.173.141.70',1197492703,1,0,1,1,1,0,'','','Sorry I can\'t help.\nAny luck on finding mysql.h?','',0,'AIA=','3vwj3g6i',1,0,'',1151,0,0),(43828,9140,3,868,0,'219.64.121.60',1197493114,1,0,1,1,1,1,'','Global Flag for 2007 style - Requested','Mr Antonio\n\nI renew my request for providing a global flag for 2007 style, instead of having to specify at each and every instance of menu. bar, msgbar. popmenus spread over in many modules of of the application.\n\nThis time I managed by changing xcommands\' translates, but I normally do not like to modify FWH commands.\n\nFor reconsideration','',0,'AIA=','19r1bj6r',1,0,'',868,0,0),(43829,9124,6,221,0,'200.109.96.253',1197493232,1,0,1,1,1,1,'','','bueno no habia entrado al foro desde hace unos dias y como dice el dicho mas vale tarde que nunca, esperemos que estes a media vida y cumplas otros 50 años y espero la tequila te deje leer el mensaje porque eso es una fiesta minimo para una semana, jeje','',0,'AIA=','2ucgq9jr',1,0,'',221,0,0),(43830,9181,6,2,0,'87.218.146.240',1197493619,1,0,1,1,1,1,'','','oBrowse:bKeyDown = { | nKey | If( nKey == VK_UP, ( MsgInfo( \"Up\" ), .T. ),) }','',0,'AIA=','22uakxm9',1,0,'',2,0,0),(43831,9180,6,2,0,'87.218.146.240',1197494351,1,0,1,1,1,1,'','','Pruébalo así:\n[code:hcqwtbzg]\nfor i&#58;=1 to len&#40;PoBtc&#41; \n   @ lin,col say PoBtc&#91;i&#93; PROMPT &quot;say&quot; OF oWndp DESIGN PIXEL SIZE 100,20 BORDER \n   PoBtc&#91;i&#93;&#58;bLButtonUp = GenBlock&#40; PoBtc, i &#41; \n   PoBtc&#91;i&#93;&#58;lWantClick = &#46;T&#46; \nnext \n&#46;&#46;&#46; \nstatic function GenBlock&#40; PoBtc, i &#41; \n\nreturn &#123; || PoBtc&#91; i &#93;&#58;Refresh&#40;&#41;, MsgInfo&#40; &quot;aqui&quot; &#41; &#125;\n[/code:hcqwtbzg]','',0,'AIA=','hcqwtbzg',1,0,'',2,0,0),(43832,9188,3,51,0,'80.122.88.242',1197494823,1,0,1,1,1,0,'','AutoSize oSay','Is there an autosize property in the say object?\nThanks in advance\nOtto','',0,'AIA=','184cthma',1,0,'',51,0,0),(43833,9189,3,34,0,'68.5.217.82',1197495536,1,0,1,1,1,1,'','Button bar on dialog ?','Hmmmm ....\n\nI have only used one button bar on my main program.  I was toying with the idea of putting button bars on some dialogs.  The manual indicates you can do this, so if I try to add\n\nDEFINE BUTTONBAR oBar OF oDlg SIZE 60,60 2007  \n\nit should work ????  Instead I get an error indicating it can\'t create the dialog ...\n\nIs this no longer a valid option, or do I need to do something else in a dialog to get it to run ?','',0,'AIA=','d9s89sdh',1,0,'',34,0,0),(43834,9183,3,63,0,'88.11.29.98',1197497621,1,0,1,1,1,0,'','','Otto, Randal:\nIf you send me your email I can send you one working sample \nRafael','',0,'AIA=','17y9ebs8',1,0,'',63,0,0),(43835,9190,6,198,0,'189.134.37.221',1197497651,1,0,1,1,1,1,'','Caja de dialogo desde recurso','Hola a todos!!\n\n¿Cómo puedo crear una caja de dialogo desde el programa, sin usar recursos en la que tenga incluido el boton de minimizar, maximizar, cerrar??\n\n\n DEFINE DIALOG oDlg SIZE 1040, 880  PIXEL BRUSH oBrush\n     \n     .......\n    ..........\n\n   ACTIVATE DIALOG oDlg CENTERED\n	oBrush:End() \n\nPuedo poner los controles pero lo que no se es poner son los botones de minim, max....\n\nCreo que debe de ser algo muy sencillo... pero no lo se hacer...\n¿alguien puede ayudarme??\n\nGracias de antemano\n\nLaurel..  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','9t8nzgnh',1,0,'',198,0,0),(43836,9191,6,1072,0,'190.82.18.123',1197498016,1,0,1,1,1,0,'','Ayuda Amigos','Amigos:\n\nNuevamente estoy molestando, pero el cambio a 32 bits me tiene loco, tengo lo siguiente:\n\n Dato: \"13.563.270-5\"\n\n  Lista=\'0123456789K\'\n\n  aa=at(\'-\',trim(Dato))\n  dg=subs(Dato,aa+1,1) -- Rescato el ultimo digito es decir el \" 5 \"\n  \n  Debo buscarlo si se encuentra en la variable Dato\n\n  Pruebo asi y me da 0, lo que indica no encontrado\n\n  if at(\"(dg)\",lista)=0\n     MsgStop(\" El Digito No Es Valido \")\n     return (Ra:=.f.)\n  endif\n  Asi tampoco resulta, me da resultado 0\n\n  if at(\"&amp;dg\",lista)=0\n     MsgStop(\" El Digito No Es Valido \")\n     return (Ra:=.f.)\n  endif\n\nNo entiendo nada,\n\nUso FWh 704, xHarbour 00.99.71\n\nEsperando salir del poncho,\n\nSaludos,\nAntonio','',0,'AIA=','2pdf4dk9',1,0,'',1072,0,0),(43837,9189,3,6,0,'82.57.159.99',1197498673,1,0,1,1,1,1,'','Re: Button bar on dialog ?','You must create the buttonbar inside the ON INIT clause.\n\nEMG','',0,'AIA=','3uu9rp73',1,0,'',6,0,0),(43838,9188,3,6,0,'82.57.159.99',1197498786,1,0,1,1,1,1,'','Re: AutoSize oSay','If you omit the SIZE clause then the SAY object is autosize.\n\nEMG','',0,'AIA=','2d4eyzkl',1,0,'',6,0,0),(43839,9192,6,1059,0,'200.117.43.58',1197499039,1,0,1,1,1,0,'','RESetSelection() ¿donde la encuentro?','Buenas tardes,\n\nEstoy intentando hacer un \"find\" distinto en la Trichedit. Lo que necesito lograr es que la palabra buscada sea \"mostrada\" con el resaltado azul pero EN TODAS LAS POSICIONES EN LA QUE SE ENCUENTRE A LA MISMA VEZ.\n\nCreo que debo buscar por el lado de la función RESetSelection() que es llamada por el METHOD Find() de la tRichedit, pero lo que no logro es encontrar donde está está función para poder hojearla y ver si reformándola puedo lograr lo que necesito.\n\nEspero comentarios. Gracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','294h6ea2',1,0,'',1059,0,0),(43840,9183,3,213,0,'98.196.64.111',1197499273,1,0,1,1,1,0,'','','[quote=&quot;Rafael Clemente&quot;:3e7jt8zu]Otto, Randal:\nIf you send me your email I can send you one working sample \nRafael[/quote:3e7jt8zu]\n\nYou can send that to <!-- e --><a href=\"mailto:swtechsup@yahoo.com\">swtechsup@yahoo.com</a><!-- e -->\n\nThank you very much!\n\nRandal Ferguson','',0,'gA==','3e7jt8zu',1,0,'',213,0,0),(43841,9189,3,34,0,'68.5.217.82',1197499716,1,0,1,1,1,1,'','Strange','So the button bar, and the buttons, would need to go in the ON INIT statement when activating the dialog ?  I just tried that with a COMMAND line and the compiler doesn\'t like that ...','',0,'gA==','37pllxuv',1,0,'',34,0,0),(43842,9193,6,156,0,'201.244.240.107',1197502843,1,0,1,1,1,0,'','Problemas con actualización a FWH 7.12 y xHarbour 1.1.0','Mi querido Antonio Linares y amigos del foro:\n\nNo pretendo ser dramático, ni negativo, pero así están las cosas:\n\n1.- Definitivamente PCODE DLL no funciona. Quedamos paralizados.\n\n2.- Los browses EDITABLES con TSBrowse, que han funcionado perfecto desde que Manuel Mercado donó su formidable clase TSBrwose y con los que nunca hemos tenidos problemas en su uso desde FW 1.92 y pasando por diferentes versiones de FWH hasta la 2.7, ahora con FWH 7.12 ya no funcionan. Estando en modo edición, al pulsar Flecha Derecha o izquierda genera el siguiente error.\n\nAplicación:\n===========\n   Path y nombre: C:\\MSTVS\\CG.EXE\n   Tam.: 4,798,976 bytes\n   Máximo de ficheros abiertos: ( SetHandleCount() )   0\n   Error ocurrido el día: 12-12-2007, a la hora: 15:49:56\n   Nombre del error: Error BASE/1070  Argument error: ==\n   Args:\n     [   1] = L   .F.\n     [   2] = N   .F.\n\nLlamadas a funciones\n====================\n   Llamado por TGET:KEYDOWN(0)\n   Llamado por TSGET:KEYDOWN(155)\n   Llamado por TWINDOW:HANDLEEVENT(0)\n   Llamado por TCONTROL:HANDLEEVENT(1393)\n   Llamado por TGET:HANDLEEVENT(0)\n   Llamado por TSGET:HANDLEEVENT(385)\n   Llamado por _FWH(3260)\n   Llamado por DIALOGBOXINDIRECT(0)\n   Llamado por TDIALOG:ACTIVATE(270)\n   Llamado por CONSECUTIVOS(843)\n   Llamado por (b)ACTIVAMENU(416)\n   Llamado por TMENU:COMMAND(484)\n   Llamado por TWINDOW:COMMAND(978)\n   Llamado por TMDIFRAME:COMMAND(0)\n   Llamado por TMDIFRAME:HANDLEEVENT(0)\n   Llamado por _FWH(3260)\n   Llamado por WINRUN(0)\n   Llamado por TMDIFRAME:ACTIVATE(927)\n   Llamado por INICIAL(287)\n   Llamado por INICIO(272)\n\n\nTodo lo hemos recompilado con FWH 7.12, xHarbour 1.1.0 y BCC 5.5.1\n\nEstoy seguro que es un problema generado en la actualización de xHarbour, pero necesitamos solución. De lo contrario estaríamos avocados a dejar las aplicaciones que ya están desarrolladas en FWH 2.7 y xHarbour 0.99.61\n\nEs esto lo correcto ?\n\nDeberíamos usar FWH 7.12 sólo para nuevos desarrollos ?\n\nAntonio, con todo respeto, este es un problema que no sólo nos afecta a los desarrolladores de aplicativos finales, sino que a tí también te afecta, pues tu producto está de por medio ya que es el que utilizamos para la presentación VISUAL de nuestros programas. Por esto es vital tu intervención en solucionar la increíble incompatibilidad que se está presentando.\n\nSi tuviésemos que hacer uno o dos ajustes, vaya y venga, pero en lo poco que hemos testeado hemos encontrado problemas de compatibilidad con código clipper y con código en C que nunca habíamos tenido (Intenta compilar HBOle y verás). Igual con TSBrowse, TSButton, entre otros. Debemos dejar de utilizar estas maravillosas librerías de terceros ?\n\nIntentamos la actualización de uno de nuestros aplicactivos tipo ERP, y nos encontramos que en procesos en que se actualizaban automáticamente algunas bases de datos, ya no van más. Qué debemos hacer, comenzar a cambiar código a aplicaciones que por año han funcionado perfecto ? \n\nNo encontramos en ninguna parte una explicación de cuáles son los cambios que hay que hacer, porqué y cuáles sus alternativas. Simplemente hay que esperar que los usuarios ejecuten los programas y esperar a ver por dónde revientan y luego ver cómo los solucionamos. Es esto lo correcto ?. Esperar que los clientes nos ataquen pues sus programas estaban funcionando perfecto y por el prurito de la actualización, de que tienen una tecnología más nueva, se les desestabilizaron ?\n\nNo creo que estos sean los caminos.\n\nEl sentido común me dice, que si actualizo algo, es para mejorar, para ofrecer más y mejores prestaciones. No para desestabilizar una aplicación.\n\nCuando hacemos cambios o adiciones, y ofrecemos actualizaciones a nuestros clientes y se presentan problemas, no podemos decirles que es por las herramientas que utilizamos. Tenemos que solucionarles sus problemas, y por lo menos, dejárselas como estaban.\n\nCierto es que los ejemplos que vienen incluídos en FWH funciona con la versión 7.12, pero es que son muy sencillos, unas pocas líneas de código. No pasa así con aplicativos grandes, de cientos de miles de lineas y procesos complejos. Créeme que la actualización te va a producir un gran dolor de cabeza.\n\nTomamos el aplicativo más pequeño y sencillo que hemos desarrollado (lo hicimos en 15 días), y ya llevamos tres días lidiando con la actulización y todavía no terminanos. Se suponía que simplemente era instalar las nuevas versiones de FWH y xHarbour, recompilar todo el código y las librerías que usamos y listo, pero no fué así. De pronto hubiese sido mejor hacerlo desde cero.\n\nPero no podemos hacer lo mismo con aplicativos que nos tomó años hacer y muchos meses más en migrar desde D.O.S. a 32 bits utilizando FWH y xHarbour.\n\nCierto que no somos programadores al nivel de los gurús que desarrollan y contribuyen en xHarbour, pero tampoco somos tan novatos como para que una actualización se nos vuelva imposible. Simplemente hay incompatilididades que hacen extremadamente difícil, y en consecuencia, extremedamente costoso en tiempo y dinero (hay que pagar a los programadores) la actualiazación. \n\nA esto debes sumarle que tienes que asignar personal a un riguro control de calidad, pues al no estar identificados los posibles problemas que se puedan presentar en la ejecución de los programas tienes dos opciones: o las sometemos a un control de calidad a fondo, o se las enviamos a los clientes y esperamos a que comiencen a llamarnos para colgarnos de donde más nos duele por la cantidad de fallas y errores que se están presentando.\n\nNo es nuestro ánimo entrar en polémicas, ni molestar a nadie. Simplemente tenemos muchos problemas que antes no teníamos y que se presentan a partir de la actualización:\n\nPara estar seguros de lo que hacemos hemos seaparado dos computadores para compilación:\n\nUno con FWH 2.7 y xHarbour 0.99.61 y el otro con FWH 7.12 y xHarbour 1.1.0. \n\nEn cada uno hemos instalado las mismas fuentes (Idénticas, sin ni una letra de cambio) de nuestra principal aplicación, así como todas la librerías que utilizamos. Es decir un espejo el uno del otro. Sólo cambian las versiones de FWH y xHarbour.\n\nSe han compilado y el resultado final es:\n\nLa compilada con FWH 2.7 y xHarbour 0.99.61 funciona como siempre ha funcionado: perfecta.\n\nLa compilada con FWH 7.12 y xHarbour 1.1.0 se convierte en un dolor de cabeza por los errores que comienza a generar. \n\nPor otro lado, pensamos quer el camino va a ser largo y tedioso, pues vamos tener que esperar a que vayan apareciendo los errores, subirlos al foro, esperar respuesta, y luego, si la hay, ver si esa respuesta soluciona el problema. En consecuencia, el tiempo nos puede atropellar. Somos una empresa que desarrolla aplicativos estándar, del tipo \"Instale y comience a utilizar\". En el camino, si el cliente lo requiere, le vamos desarrollando procesos especiales, según sus gustos y necesidades, mediante el uso de PCODE Dlls. \n\nPor supuesto que la alternativa es seguir con las herramientas que veníamos utilizando con éxito y olvidarnos por ahora de las actualizaciones de las mismas. No podemos detenernos en la solución de errores que se escapan de nuestras manos. No hay problema. Pero nos queda un mal sabor: Estaremos condenando esas aplicaciones a quedarse desarrolladas con herramientas antiguas ?\n\nSoy muy consciente de que la solución no es fácil, al contrario, debe de ser muy compleja, pero me preocupa que en virtud de todos tus demás proyectos dejes este tema de lado, especialmente cuando veo en el foro que hadie más ha plantedo este problema.\n\nQué pasa ? Sólo nosotros lo tenemos ? \n\nCompañeros con aplicaciones ya desarrolladas con versiones FWH 2.7 y anteriores no se han actualizado de un sólo salto a FW 7.12 como nosotros? No nos actualizamos a las versiones posteriores a la 2.7 por temor a las imcompatibilidades, pues las veces que lo hicimos tuvimos problemas, claro que nunca tan graves y difíciles como en esta ocasión. Si lo hubiésemos hecho, no tendríamos este problema ?\n\nSi hay colegas desarrolladores con aplicativos grandes que se han actualizado con éxito, quisieran compartir con este pobre cristiano la solución ?\n\nAcaso cambiaron los parámetros de compilación y ejecución y nunca me enteré ? Utilizamos los mismos scripts de siempre. Los que tu mismo has propuesto desde la primera versión de FWH. Se debe cambiar algo en estos scripts para que FWH 7.12 funcione perfecto ?\n\nHemos probado con el instalador de xHarbour que bajamos de fpt de FiveTech cuando nos actualizamos. Hemos probado bajando todo xHarbour con Tortoise CVS y contruyendo todos los elementos de xHarbour desde cero (es lo que hemos hecho siempre), y en cualquier caso los mismos problemas persisten.\n\nAntonio, insisto en que estoy seguro de que es un problema causado en xHarbour (que pena si se forma polémica). Pero, como FiveWin está de por medio en esta situación, pues tu maravillosa herramienta es la que utilizamos siempre, me temo que te corresponde a tí encontrar una solución. Adiciónale el hecho de que nuestros conocimientos técnicos no son ni el 1.% de los tuyos.\n\nDe pronto se me ocurre que en aras de encontrar una solución, aunque no la ideal, se pudiera utilizar FWH 7.12 con xHarbour 0.99.61. Es posible ? Podrías ayudarnos al respecto ? Prefiero perder los cambios y supuestas mejoras que se hayan hecho en xHarbour, que perder las que tú has hecho en FWH.\n\nOtra opción: Cuán doloroso es el parto de pasar de xHarbour a Harbour ? Se perderán prestaciones en el cambio, por ejemplo ADO, OLE, IP, Scripts ?. Por todo lo que he leído en el transcurso de estos años, tanto en el foro de FiweWin (desde la época de las news, cuanto las extraño) como en las News de xHarbour, se saca como conclusión que xHarbour es más poderoso que Harbour. Estoy en lo cierto ?\n\nLa decisión que tomes será muy bienvenida y en nada afectará el profundo aprecio y gran admiración que sentimos por tí. Solamente quisiéramos saber a qué atenernos: si vale la pena seguir intentando en la actualización , o por el contrario, nos olvidamos definitivamente de la misma. Como tú comprenderás, está de por medio nuestra empresa. Compramos la silla sin tener el caballo. Por habladores cometimos el error de comunicarle a nuestros clientes que íbamos a actualizar nuestras herramientas de desarrollo, en beneficio de ellos, pues se supone que las últimas versiones deberían ser mas actualizadas tecnológinamente que las anteriores, con más y mejores prestaciones, con nuevo y mejor look, etc., etc. Ahora no paran las llamadas preguntándonos cuando tendremos las nuevas versiones. Qué les decimos, que seguimos con las anteriores, o que nos esperen ? Cuánto tiempo ?\n\nA esto súmale el hecho de que para esta época del año, los clientes piden cambios en sus procesos o cosas nuevas para el año entrante, aunque esto no tiene problema pues lo haremos con la versión anterior de xHarbour.\n\nLamento enormemente el generar este tipo de tópicos o polémicas, como quieran llamarlas, pero, dónde más lo hacemos ?. \n\nCreanme que acudimos al foro sólo cuando vemos que el agua ya nos tapó. Siempre solucionamos los problemas nostros mismos. Leemos, investigamos, probamos, y por ensayo y error, hemos salido adelante. Sólo que esta vez, el problema supera de largo nuestra capacidad técnica y creemos, en el mejor de los sentidos, que le correponde a FiveTech pronunciarse y tomar cartas en el asunto de las actualizaciones de xHarbour, o en su defecto, como le dijo el Rey Juan Carlos a uno de los presidentes de un país de este tan sufrido tercer mundo, que me digan, \"Por qué no te callas ?\" y nos olvidamos del asunto. No volvemos a molestar\n\nSaludos y un abrazo para todos,  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nCarlos Gallego','',0,'','11rz0nm1',1,0,'',156,0,0),(43843,9159,3,1181,0,'60.48.84.197',1197504471,1,0,0,0,1,1,'','Problem Upgrade To FWH7.11','Thanks for your reply\n\n&gt;Please notice that the error comes from Harbour itself. Its not a FWH error. Probably the Class TGet of Harbour does not accept the change of type of the GET value\n\nAs a workaround, I am thinking of changing part of the Class TGet to accept the way it is as at FWH2.4. How do I do it.\n\nPlease help\n\nThanks','',0,'','1vo36bch',1,0,'',1181,0,0),(43844,9189,3,80,0,'58.6.0.71',1197507280,1,0,1,1,1,0,'','Button Bar','Hi Tim\n\n ACTIVATE DIALOG oDlg CENTERED    ;\n             ON INIT(AddBar(oData,oLbx,nNum,oStock));\n             VALID(WinOpen(oMainWnd,0),lExit)\n       \nstatic function AddBar(oData,oLbx,nNum,oStock)\nlocal oBar,oBtn,oBtn1,oBtn2,oBtn3,cExitTip := \'\',cAddTip := \'\',cDelTip := \'\',cPrintTip := \'\',lRecs := FALSE\nif nNum == 1\n   cExitTip  := \'Exit Department Code Screen\'\n   cAddTip   := \'Add Department Code\'\n   cPrintTip := \'Print Department Codes\'\n   cDelTip  := \'Delete Deparment Code\'\nelseif nNum == 2\n   cExitTip := \'Exit Timesheet Code Screen\'\n   cAddTip  := \'Add TimeSheet Code\'\n   cPrintTip := \'Print Timesheet Codes\'\n   cDelTip  := \'Delete Timesheet Code\'\nelseif nNum == 3\n   cExitTip := \'Exit Stock Codes\'\n   cAddTip  := \'Add Stock Code\'\n   cPrintTip := \'Print Stock Codes\'\n   cDelTip  := \'Delete Stock Code\'\nelseif nNum == 4\n   cExitTip := \'Exit Store Codes\'\n   cAddTip  := \'Add Store Code\'\n   cPrintTip := \'Print Store Codes\'\n   cDelTip  := \'Delete Store Code\'\nelseif nNum == 5\n   cExitTip := \'Exit Tasks\'\n   cAddTip  := \'Add Task\'\n   cPrintTip := \'Print Tasks\'\n   cDelTip  := \'Delete Task\'\nendif\nif oData:reccount() &gt; 0\n   lRecs := TRUE\nendif\n\nDEFINE BUTTONBAR  oBar 3DLOOK SIZE 45, 45 OF oDlg  2007\n\nDEFINE BUTTON oBtn of oBar RESOURCE \"BTN_EXIT\";\nFLAT ;\nPROMPT \"Exit\" ;\nACTION(lExit := TRUE,oDlg:End());\nTOOLTIP(cExitTip)\n\nDEFINE BUTTON oBtn1 of oBar RESOURCE \"PLUS\";\nFLAT ;\nPROMPT \"Add\" ;\nACTION(oData:Blank(),oData:append(),oLbx:Refresh(),oLbx:SetFocus(),oLbx:GoToCol(1));\nTOOLTIP(cAddTip)\n\nDEFINE BUTTON oBtn2 of oBar RESOURCE \"PRINTER\";\nFLAT ;\nPROMPT \"Print\" ;\nACTION(PrntCodes(oData,nNum),oLbx:Refresh(),oLbx:SetFocus());\nTOOLTIP(\'Print Time Data\')\n\nDEFINE BUTTON oBtn3 of oBar RESOURCE \"DELETE\";\nFLAT ;\nPROMPT \"Delete\" ;\nACTION(lRecs := DelRec(lRecs,nNum,oData,oStock),if(lRecs,(oLbx:Refresh(),oLbx:SetFocus()),oLbx:Hide()));\nTOOLTIP(cDelTip)\nreturn(oBar)\n\nHTH\n\nColin','',0,'','39yxd7vh',1,0,'',80,0,0),(43845,9189,3,34,0,'68.5.217.82',1197508204,1,0,1,1,1,1,'','Example','Thanks ... it makes sense now.\n\nOf course that would add a lot of work for me ... but thats OK ... it makes it interesting.\n\nI appreciate the guidance ... now I\'ll plug away at it !','',0,'','3q0q8rxr',1,0,'',34,0,0),(43846,9160,19,233,0,'218.111.61.90',1197508399,1,0,1,1,1,0,'','','No problem  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'','bh04n1vh',1,0,'',233,0,0),(43847,9171,3,233,0,'218.111.61.90',1197509264,1,0,1,1,1,0,'','','I\'m not sure what went wrong, but everything seems find now that I do a \'clean\' linking by deleting both .obj and .c files of my custom lib (prg\'s only). I was only deleting the .obj files prior to this.\n\nThanks for your time Antonio','',0,'','1gd304bc',1,0,'',233,0,0),(43848,9190,6,109,0,'189.192.26.184',1197509526,1,0,1,1,1,0,'','','Quiza esto te sirva\n\n    DEFINE DIALOG ..... FROM 8.6,0 TO 48.5,28 ;\n             TITLE ....;\n             STYLE NOR( WS_CLIPCHILDREN, WS_CAPTION, WS_SYSMENU,;\n                          WS_MINIMIZEBOX, WS_MAXIMIZEBOX, WS_THICKFRAME )','',0,'','26qro0de',1,0,'',109,0,0),(43849,9193,6,72,0,'201.137.93.49',1197510294,1,0,1,1,1,0,'','','Bueno, planteo mi caso.\n\nHe pasado de FWH 2.5x a 7.11 con xHarbour, cierto que tuve que revisar y rehacer varios ajustes a diferentes clases de FiveWin de acuerdo con mis gustos y creo que lo he logrado sin mayores problemas. \n\nEl mayor problema lo tuve con las clases y libs de terceros, mas de una ha dejado de tener soporte y no puedo exigirlo. \n\nHubiera sido bueno que los autores de estas clases cedieran los derechos a Fivetech (como lo hice con TGraph). Seguro que si esta clase deja de funcionar en versiones futuras exigiré que funcione.\n\nEn alguna parte ví un comentario sobre que quienes usan las clases de nuestro amigo Manuel Mercado (TSxxx) estan montados en una bomba de tiempo, no es mi caso.\n\nPor hoy no veo problemas y si muchas mejoras. Pronto cambiaré a la versión mas reciente de xHarbour, ya daré mi opinión en su momento.','',0,'','2h5fhhlh',1,0,'',72,0,0),(43850,9183,3,190,0,'124.7.113.227',1197512770,1,0,1,1,1,0,'','','Mr.Rafael\n\nPlease share it with me also.\n\n<!-- e --><a href=\"mailto:aksharasoft@hotmail.com\">aksharasoft@hotmail.com</a><!-- e -->\n\nRegards \n\n- Ramesh Babu P','',0,'','25jx0af6',1,1197567968,'',190,1,0),(43851,9191,6,53,0,'189.139.9.129',1197512854,1,0,1,1,1,1,'','','MAntonio:\n\nCreo que estas en una madeja  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nSi el dato a buscar lo tienes en una variable, ¿ Por que\nlo pones entre comillas ?\n\nPruebalo así\n\nIF AT(dg,Lista) == 0\n...\n...\n...\n\nSaludos','',0,'','2egpomby',1,0,'',53,0,0),(43852,9178,3,239,0,'202.105.67.159',1197513003,1,0,1,1,1,0,'','','Antonio,\n  I see,Thanks !\nShuming Wang','',0,'','3fec5pdi',1,0,'',239,0,0),(43853,9194,3,239,0,'202.105.67.159',1197513162,1,0,1,1,1,0,'','How to detect mouse and keyboard not used for a time ?','Hi,\n  As title, I want ,if over the  setting time  ,for example 10 minites ,then app do close app .\nThanks !\nShuming Wang','',0,'','fkcxlaqc',1,0,'',239,0,0),(43854,9145,3,190,0,'124.7.113.227',1197513804,1,0,1,1,1,0,'','','Mr.Antonio\n\nI have a copy of MySql.H.  Is it the one you are looking for ?\n\n[code:aaahmw1k]\n/* Copyright &#40;C&#41; 2000-2003 MySQL AB\n\n   This program is free software; you can redistribute it and/or modify\n   it under the terms of the GNU General Public License as published by\n   the Free Software Foundation; either version 2 of the License, or\n   &#40;at your option&#41; any later version&#46;\n\n   This program is distributed in the hope that it will be useful,\n   but WITHOUT ANY WARRANTY; without even the implied warranty of\n   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE&#46;  See the\n   GNU General Public License for more details&#46;\n\n   You should have received a copy of the GNU General Public License\n   along with this program; if not, write to the Free Software\n   Foundation, Inc&#46;, 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */\n\n#ifndef _mysql_h\n#define _mysql_h\n\n#ifdef __CYGWIN__     /* CYGWIN implements a UNIX API */\n#undef WIN\n#undef _WIN\n#undef _WIN32\n#undef _WIN64\n#undef __WIN__\n#endif\n\n#ifdef	__cplusplus\nextern &quot;C&quot; &#123;\n#endif\n\n#ifndef _global_h				/* If not standard header */\n#include &lt;sys/types&#46;h&gt;\n#ifdef __LCC__\n#include &lt;winsock&#46;h&gt;				/* For windows */\n#endif\ntypedef char my_bool;\n#if &#40;defined&#40;_WIN32&#41; || defined&#40;_WIN64&#41;&#41; &amp;&amp; !defined&#40;__WIN__&#41;\n#define __WIN__\n#endif\n#if !defined&#40;__WIN__&#41;\n#define STDCALL\n#else\n#define STDCALL __stdcall\n#endif\ntypedef char * gptr;\n\n#ifndef my_socket_defined\n#ifdef __WIN__\n#define my_socket SOCKET\n#else\ntypedef int my_socket;\n#endif /* __WIN__ */\n#endif /* my_socket_defined */\n#endif /* _global_h */\n\n#include &quot;mysql_com&#46;h&quot;\n#include &quot;mysql_time&#46;h&quot;\n#include &quot;mysql_version&#46;h&quot;\n#include &quot;typelib&#46;h&quot;\n\n#include &quot;my_list&#46;h&quot; /* for LISTs used in \'MYSQL\' and \'MYSQL_STMT\' */\n\nextern unsigned int mysql_port;\nextern char *mysql_unix_port;\n\n#define CLIENT_NET_READ_TIMEOUT		365*24*3600	/* Timeout on read */\n#define CLIENT_NET_WRITE_TIMEOUT	365*24*3600	/* Timeout on write */\n\n#ifdef __NETWARE__\n#pragma pack&#40;push, 8&#41;		/* 8 byte alignment */\n#endif\n\n#define IS_PRI_KEY&#40;n&#41;	&#40;&#40;n&#41; &amp; PRI_KEY_FLAG&#41;\n#define IS_NOT_NULL&#40;n&#41;	&#40;&#40;n&#41; &amp; NOT_NULL_FLAG&#41;\n#define IS_BLOB&#40;n&#41;	&#40;&#40;n&#41; &amp; BLOB_FLAG&#41;\n#define IS_NUM&#40;t&#41;	&#40;&#40;t&#41; &lt;= FIELD_TYPE_INT24 || &#40;t&#41; == FIELD_TYPE_YEAR&#41;\n#define IS_NUM_FIELD&#40;f&#41;	 &#40;&#40;f&#41;-&gt;flags &amp; NUM_FLAG&#41;\n#define INTERNAL_NUM_FIELD&#40;f&#41; &#40;&#40;&#40;f&#41;-&gt;type &lt;= FIELD_TYPE_INT24 &amp;&amp; &#40;&#40;f&#41;-&gt;type != FIELD_TYPE_TIMESTAMP || &#40;f&#41;-&gt;length == 14 || &#40;f&#41;-&gt;length == 8&#41;&#41; || &#40;f&#41;-&gt;type == FIELD_TYPE_YEAR&#41;\n\n\ntypedef struct st_mysql_field &#123;\n  char *name;                 /* Name of column */\n  char *org_name;             /* Original column name, if an alias */ \n  char *table;                /* Table of column if column was a field */\n  char *org_table;            /* Org table name, if table was an alias */\n  char *db;                   /* Database for table */\n  char *catalog;	      /* Catalog for table */\n  char *def;                  /* Default value &#40;set by mysql_list_fields&#41; */\n  unsigned long length;       /* Width of column &#40;create length&#41; */\n  unsigned long max_length;   /* Max width for selected set */\n  unsigned int name_length;\n  unsigned int org_name_length;\n  unsigned int table_length;\n  unsigned int org_table_length;\n  unsigned int db_length;\n  unsigned int catalog_length;\n  unsigned int def_length;\n  unsigned int flags;         /* Div flags */\n  unsigned int decimals;      /* Number of decimals in field */\n  unsigned int charsetnr;     /* Character set */\n  enum enum_field_types type; /* Type of field&#46; See mysql_com&#46;h for types */\n&#125; MYSQL_FIELD;\n\ntypedef char **MYSQL_ROW;		/* return data as array of strings */\ntypedef unsigned int MYSQL_FIELD_OFFSET; /* offset to current field */\n\n#ifndef _global_h\n#if defined&#40;NO_CLIENT_LONG_LONG&#41;\ntypedef unsigned long my_ulonglong;\n#elif defined &#40;__WIN__&#41;\ntypedef unsigned __int64 my_ulonglong;\n#else\ntypedef unsigned long long my_ulonglong;\n#endif\n#endif\n\n#define MYSQL_COUNT_ERROR &#40;~&#40;my_ulonglong&#41; 0&#41;\n\ntypedef struct st_mysql_rows &#123;\n  struct st_mysql_rows *next;		/* list of rows */\n  MYSQL_ROW data;\n  unsigned long length;\n&#125; MYSQL_ROWS;\n\ntypedef MYSQL_ROWS *MYSQL_ROW_OFFSET;	/* offset to current row */\n\n#include &quot;my_alloc&#46;h&quot;\n\ntypedef struct st_mysql_data &#123;\n  my_ulonglong rows;\n  unsigned int fields;\n  MYSQL_ROWS *data;\n  MEM_ROOT alloc;\n#if !defined&#40;CHECK_EMBEDDED_DIFFERENCES&#41; || defined&#40;EMBEDDED_LIBRARY&#41;\n  MYSQL_ROWS **prev_ptr;\n#endif\n&#125; MYSQL_DATA;\n\nenum mysql_option \n&#123;\n  MYSQL_OPT_CONNECT_TIMEOUT, MYSQL_OPT_COMPRESS, MYSQL_OPT_NAMED_PIPE,\n  MYSQL_INIT_COMMAND, MYSQL_READ_DEFAULT_FILE, MYSQL_READ_DEFAULT_GROUP,\n  MYSQL_SET_CHARSET_DIR, MYSQL_SET_CHARSET_NAME, MYSQL_OPT_LOCAL_INFILE,\n  MYSQL_OPT_PROTOCOL, MYSQL_SHARED_MEMORY_BASE_NAME, MYSQL_OPT_READ_TIMEOUT,\n  MYSQL_OPT_WRITE_TIMEOUT, MYSQL_OPT_USE_RESULT,\n  MYSQL_OPT_USE_REMOTE_CONNECTION, MYSQL_OPT_USE_EMBEDDED_CONNECTION,\n  MYSQL_OPT_GUESS_CONNECTION, MYSQL_SET_CLIENT_IP, MYSQL_SECURE_AUTH\n&#125;;\n\nstruct st_mysql_options &#123;\n  unsigned int connect_timeout, read_timeout, write_timeout;\n  unsigned int port, protocol;\n  unsigned long client_flag;\n  char *host,*user,*password,*unix_socket,*db;\n  struct st_dynamic_array *init_commands;\n  char *my_cnf_file,*my_cnf_group, *charset_dir, *charset_name;\n  char *ssl_key;				/* PEM key file */\n  char *ssl_cert;				/* PEM cert file */\n  char *ssl_ca;					/* PEM CA file */\n  char *ssl_capath;				/* PEM directory of CA-s? */\n  char *ssl_cipher;				/* cipher to use */\n  char *shared_memory_base_name;\n  unsigned long max_allowed_packet;\n  my_bool use_ssl;				/* if to use SSL or not */\n  my_bool compress,named_pipe;\n /*\n   On connect, find out the replication role of the server, and\n   establish connections to all the peers\n */\n  my_bool rpl_probe;\n /*\n   Each call to mysql_real_query&#40;&#41; will parse it to tell if it is a read\n   or a write, and direct it to the slave or the master\n */\n  my_bool rpl_parse;\n /*\n   If set, never read from a master, only from slave, when doing\n   a read that is replication-aware\n */\n  my_bool no_master_reads;\n#if !defined&#40;CHECK_EMBEDDED_DIFFERENCES&#41; || defined&#40;EMBEDDED_LIBRARY&#41;\n  my_bool separate_thread;\n#endif\n  enum mysql_option methods_to_use;\n  char *client_ip;\n  /* Refuse client connecting to server if it uses old &#40;pre-4&#46;1&#46;1&#41; protocol */\n  my_bool secure_auth;\n\n  /* function pointers for local infile support */\n  int &#40;*local_infile_init&#41;&#40;void **, const char *, void *&#41;;\n  int &#40;*local_infile_read&#41;&#40;void *, char *, unsigned int&#41;;\n  void &#40;*local_infile_end&#41;&#40;void *&#41;;\n  int &#40;*local_infile_error&#41;&#40;void *, char *, unsigned int&#41;;\n  void *local_infile_userdata;\n&#125;;\n\nenum mysql_status \n&#123;\n  MYSQL_STATUS_READY,MYSQL_STATUS_GET_RESULT,MYSQL_STATUS_USE_RESULT\n&#125;;\n\nenum mysql_protocol_type \n&#123;\n  MYSQL_PROTOCOL_DEFAULT, MYSQL_PROTOCOL_TCP, MYSQL_PROTOCOL_SOCKET,\n  MYSQL_PROTOCOL_PIPE, MYSQL_PROTOCOL_MEMORY\n&#125;;\n/*\n  There are three types of queries - the ones that have to go to\n  the master, the ones that go to a slave, and the adminstrative\n  type which must happen on the pivot connectioin\n*/\nenum mysql_rpl_type \n&#123;\n  MYSQL_RPL_MASTER, MYSQL_RPL_SLAVE, MYSQL_RPL_ADMIN\n&#125;;\n\nstruct st_mysql_methods;\n\ntypedef struct st_mysql\n&#123;\n  NET		net;			/* Communication parameters */\n  gptr		connector_fd;		/* ConnectorFd for SSL */\n  char		*host,*user,*passwd,*unix_socket,*server_version,*host_info,*info;\n  char          *db;\n  struct charset_info_st *charset;\n  MYSQL_FIELD	*fields;\n  MEM_ROOT	field_alloc;\n  my_ulonglong affected_rows;\n  my_ulonglong insert_id;		/* id if insert on table with NEXTNR */\n  my_ulonglong extra_info;		/* Used by mysqlshow */\n  unsigned long thread_id;		/* Id for connection in server */\n  unsigned long packet_length;\n  unsigned int	port;\n  unsigned long client_flag,server_capabilities;\n  unsigned int	protocol_version;\n  unsigned int	field_count;\n  unsigned int 	server_status;\n  unsigned int  server_language;\n  unsigned int	warning_count;\n  struct st_mysql_options options;\n  enum mysql_status status;\n  my_bool	free_me;		/* If free in mysql_close */\n  my_bool	reconnect;		/* set to 1 if automatic reconnect */\n\n  /* session-wide random string */\n  char	        scramble&#91;SCRAMBLE_LENGTH+1&#93;;\n\n /*\n   Set if this is the original connection, not a master or a slave we have\n   added though mysql_rpl_probe&#40;&#41; or mysql_set_master&#40;&#41;/ mysql_add_slave&#40;&#41;\n */\n  my_bool rpl_pivot;\n  /*\n    Pointers to the master, and the next slave connections, points to\n    itself if lone connection&#46;\n  */\n  struct st_mysql* master, *next_slave;\n\n  struct st_mysql* last_used_slave; /* needed for round-robin slave pick */\n /* needed for send/read/store/use result to work correctly with replication */\n  struct st_mysql* last_used_con;\n\n  LIST  *stmts;                     /* list of all statements */\n  const struct st_mysql_methods *methods;\n  void *thd;\n  /*\n    Points to boolean flag in MYSQL_RES  or MYSQL_STMT&#46; We set this flag \n    from mysql_stmt_close if close had to cancel result set of this object&#46;\n  */\n  my_bool *unbuffered_fetch_owner;\n&#125; MYSQL;\n\ntypedef struct st_mysql_res &#123;\n  my_ulonglong row_count;\n  MYSQL_FIELD	*fields;\n  MYSQL_DATA	*data;\n  MYSQL_ROWS	*data_cursor;\n  unsigned long *lengths;		/* column lengths of current row */\n  MYSQL		*handle;		/* for unbuffered reads */\n  MEM_ROOT	field_alloc;\n  unsigned int	field_count, current_field;\n  MYSQL_ROW	row;			/* If unbuffered read */\n  MYSQL_ROW	current_row;		/* buffer to current row */\n  my_bool	eof;			/* Used by mysql_fetch_row */\n  /* mysql_stmt_close&#40;&#41; had to cancel this result */\n  my_bool       unbuffered_fetch_cancelled;  \n  const struct st_mysql_methods *methods;\n&#125; MYSQL_RES;\n\n#define MAX_MYSQL_MANAGER_ERR 256  \n#define MAX_MYSQL_MANAGER_MSG 256\n\n#define MANAGER_OK           200\n#define MANAGER_INFO         250\n#define MANAGER_ACCESS       401\n#define MANAGER_CLIENT_ERR   450\n#define MANAGER_INTERNAL_ERR 500\n\n#if !defined&#40;MYSQL_SERVER&#41; &amp;&amp; !defined&#40;MYSQL_CLIENT&#41;\n#define MYSQL_CLIENT\n#endif\n\n\ntypedef struct st_mysql_manager\n&#123;\n  NET net;\n  char *host,*user,*passwd;\n  unsigned int port;\n  my_bool free_me;\n  my_bool eof;\n  int cmd_status;\n  int last_errno;\n  char* net_buf,*net_buf_pos,*net_data_end;\n  int net_buf_size;\n  char last_error&#91;MAX_MYSQL_MANAGER_ERR&#93;;\n&#125; MYSQL_MANAGER;\n\ntypedef struct st_mysql_parameters\n&#123;\n  unsigned long *p_max_allowed_packet;\n  unsigned long *p_net_buffer_length;\n&#125; MYSQL_PARAMETERS;\n\n#if !defined&#40;MYSQL_SERVER&#41; &amp;&amp; !defined&#40;EMBEDDED_LIBRARY&#41;\n#define max_allowed_packet &#40;*mysql_get_parameters&#40;&#41;-&gt;p_max_allowed_packet&#41;\n#define net_buffer_length &#40;*mysql_get_parameters&#40;&#41;-&gt;p_net_buffer_length&#41;\n#endif\n\n/*\n  Set up and bring down the server; to ensure that applications will\n  work when linked against either the standard client library or the\n  embedded server library, these functions should be called&#46;\n*/\nint STDCALL mysql_server_init&#40;int argc, char **argv, char **groups&#41;;\nvoid STDCALL mysql_server_end&#40;void&#41;;\n\nMYSQL_PARAMETERS *STDCALL mysql_get_parameters&#40;void&#41;;\n\n/*\n  Set up and bring down a thread; these function should be called\n  for each thread in an application which opens at least one MySQL\n  connection&#46;  All uses of the connection&#40;s&#41; should be between these\n  function calls&#46;\n*/\nmy_bool STDCALL mysql_thread_init&#40;void&#41;;\nvoid STDCALL mysql_thread_end&#40;void&#41;;\n\n/*\n  Functions to get information from the MYSQL and MYSQL_RES structures\n  Should definitely be used if one uses shared libraries&#46;\n*/\n\nmy_ulonglong STDCALL mysql_num_rows&#40;MYSQL_RES *res&#41;;\nunsigned int STDCALL mysql_num_fields&#40;MYSQL_RES *res&#41;;\nmy_bool STDCALL mysql_eof&#40;MYSQL_RES *res&#41;;\nMYSQL_FIELD *STDCALL mysql_fetch_field_direct&#40;MYSQL_RES *res,\n					      unsigned int fieldnr&#41;;\nMYSQL_FIELD * STDCALL mysql_fetch_fields&#40;MYSQL_RES *res&#41;;\nMYSQL_ROW_OFFSET STDCALL mysql_row_tell&#40;MYSQL_RES *res&#41;;\nMYSQL_FIELD_OFFSET STDCALL mysql_field_tell&#40;MYSQL_RES *res&#41;;\n\nunsigned int STDCALL mysql_field_count&#40;MYSQL *mysql&#41;;\nmy_ulonglong STDCALL mysql_affected_rows&#40;MYSQL *mysql&#41;;\nmy_ulonglong STDCALL mysql_insert_id&#40;MYSQL *mysql&#41;;\nunsigned int STDCALL mysql_errno&#40;MYSQL *mysql&#41;;\nconst char * STDCALL mysql_error&#40;MYSQL *mysql&#41;;\nconst char *STDCALL mysql_sqlstate&#40;MYSQL *mysql&#41;;\nunsigned int STDCALL mysql_warning_count&#40;MYSQL *mysql&#41;;\nconst char * STDCALL mysql_info&#40;MYSQL *mysql&#41;;\nunsigned long STDCALL mysql_thread_id&#40;MYSQL *mysql&#41;;\nconst char * STDCALL mysql_character_set_name&#40;MYSQL *mysql&#41;;\n\nMYSQL *		STDCALL mysql_init&#40;MYSQL *mysql&#41;;\nmy_bool		STDCALL mysql_ssl_set&#40;MYSQL *mysql, const char *key,\n				      const char *cert, const char *ca,\n				      const char *capath, const char *cipher&#41;;\nmy_bool		STDCALL mysql_change_user&#40;MYSQL *mysql, const char *user, \n					  const char *passwd, const char *db&#41;;\nMYSQL *		STDCALL mysql_real_connect&#40;MYSQL *mysql, const char *host,\n					   const char *user,\n					   const char *passwd,\n					   const char *db,\n					   unsigned int port,\n					   const char *unix_socket,\n					   unsigned long clientflag&#41;;\nint		STDCALL mysql_select_db&#40;MYSQL *mysql, const char *db&#41;;\nint		STDCALL mysql_query&#40;MYSQL *mysql, const char *q&#41;;\nint		STDCALL mysql_send_query&#40;MYSQL *mysql, const char *q,\n					 unsigned long length&#41;;\nint		STDCALL mysql_real_query&#40;MYSQL *mysql, const char *q,\n					unsigned long length&#41;;\nMYSQL_RES *     STDCALL mysql_store_result&#40;MYSQL *mysql&#41;;\nMYSQL_RES *     STDCALL mysql_use_result&#40;MYSQL *mysql&#41;;\n\n/* perform query on master */\nmy_bool		STDCALL mysql_master_query&#40;MYSQL *mysql, const char *q,\n					   unsigned long length&#41;;\nmy_bool		STDCALL mysql_master_send_query&#40;MYSQL *mysql, const char *q,\n						unsigned long length&#41;;\n/* perform query on slave */  \nmy_bool		STDCALL mysql_slave_query&#40;MYSQL *mysql, const char *q,\n					  unsigned long length&#41;;\nmy_bool		STDCALL mysql_slave_send_query&#40;MYSQL *mysql, const char *q,\n					       unsigned long length&#41;;\n\n/* local infile support */\n\n#define LOCAL_INFILE_ERROR_LEN 512\n\nvoid\nmysql_set_local_infile_handler&#40;MYSQL *mysql,\n                               int &#40;*local_infile_init&#41;&#40;void **, const char *,\n                            void *&#41;,\n                               int &#40;*local_infile_read&#41;&#40;void *, char *,\n							unsigned int&#41;,\n                               void &#40;*local_infile_end&#41;&#40;void *&#41;,\n                               int &#40;*local_infile_error&#41;&#40;void *, char*,\n							 unsigned int&#41;,\n                               void *&#41;;\n\nvoid\nmysql_set_local_infile_default&#40;MYSQL *mysql&#41;;\n\n\n/*\n  enable/disable parsing of all queries to decide if they go on master or\n  slave\n*/\nvoid            STDCALL mysql_enable_rpl_parse&#40;MYSQL* mysql&#41;;\nvoid            STDCALL mysql_disable_rpl_parse&#40;MYSQL* mysql&#41;;\n/* get the value of the parse flag */  \nint             STDCALL mysql_rpl_parse_enabled&#40;MYSQL* mysql&#41;;\n\n/*  enable/disable reads from master */\nvoid            STDCALL mysql_enable_reads_from_master&#40;MYSQL* mysql&#41;;\nvoid            STDCALL mysql_disable_reads_from_master&#40;MYSQL* mysql&#41;;\n/* get the value of the master read flag */  \nmy_bool		STDCALL mysql_reads_from_master_enabled&#40;MYSQL* mysql&#41;;\n\nenum mysql_rpl_type     STDCALL mysql_rpl_query_type&#40;const char* q, int len&#41;;  \n\n/* discover the master and its slaves */  \nmy_bool		STDCALL mysql_rpl_probe&#40;MYSQL* mysql&#41;;\n\n/* set the master, close/free the old one, if it is not a pivot */\nint             STDCALL mysql_set_master&#40;MYSQL* mysql, const char* host,\n					 unsigned int port,\n					 const char* user,\n					 const char* passwd&#41;;\nint             STDCALL mysql_add_slave&#40;MYSQL* mysql, const char* host,\n					unsigned int port,\n					const char* user,\n					const char* passwd&#41;;\n\nint		STDCALL mysql_shutdown&#40;MYSQL *mysql,\n                                       enum mysql_enum_shutdown_level\n                                       shutdown_level&#41;;\nint		STDCALL mysql_dump_debug_info&#40;MYSQL *mysql&#41;;\nint		STDCALL mysql_refresh&#40;MYSQL *mysql,\n				     unsigned int refresh_options&#41;;\nint		STDCALL mysql_kill&#40;MYSQL *mysql,unsigned long pid&#41;;\nint		STDCALL mysql_set_server_option&#40;MYSQL *mysql,\n						enum enum_mysql_set_option\n						option&#41;;\nint		STDCALL mysql_ping&#40;MYSQL *mysql&#41;;\nconst char *	STDCALL mysql_stat&#40;MYSQL *mysql&#41;;\nconst char *	STDCALL mysql_get_server_info&#40;MYSQL *mysql&#41;;\nconst char *	STDCALL mysql_get_client_info&#40;void&#41;;\nunsigned long	STDCALL mysql_get_client_version&#40;void&#41;;\nconst char *	STDCALL mysql_get_host_info&#40;MYSQL *mysql&#41;;\nunsigned long	STDCALL mysql_get_server_version&#40;MYSQL *mysql&#41;;\nunsigned int	STDCALL mysql_get_proto_info&#40;MYSQL *mysql&#41;;\nMYSQL_RES *	STDCALL mysql_list_dbs&#40;MYSQL *mysql,const char *wild&#41;;\nMYSQL_RES *	STDCALL mysql_list_tables&#40;MYSQL *mysql,const char *wild&#41;;\nMYSQL_RES *	STDCALL mysql_list_processes&#40;MYSQL *mysql&#41;;\nint		STDCALL mysql_options&#40;MYSQL *mysql,enum mysql_option option,\n				      const char *arg&#41;;\nvoid		STDCALL mysql_free_result&#40;MYSQL_RES *result&#41;;\nvoid		STDCALL mysql_data_seek&#40;MYSQL_RES *result,\n					my_ulonglong offset&#41;;\nMYSQL_ROW_OFFSET STDCALL mysql_row_seek&#40;MYSQL_RES *result,\n						MYSQL_ROW_OFFSET offset&#41;;\nMYSQL_FIELD_OFFSET STDCALL mysql_field_seek&#40;MYSQL_RES *result,\n					   MYSQL_FIELD_OFFSET offset&#41;;\nMYSQL_ROW	STDCALL mysql_fetch_row&#40;MYSQL_RES *result&#41;;\nunsigned long * STDCALL mysql_fetch_lengths&#40;MYSQL_RES *result&#41;;\nMYSQL_FIELD *	STDCALL mysql_fetch_field&#40;MYSQL_RES *result&#41;;\nMYSQL_RES *     STDCALL mysql_list_fields&#40;MYSQL *mysql, const char *table,\n					  const char *wild&#41;;\nunsigned long	STDCALL mysql_escape_string&#40;char *to,const char *from,\n					    unsigned long from_length&#41;;\nunsigned long STDCALL mysql_real_escape_string&#40;MYSQL *mysql,\n					       char *to,const char *from,\n					       unsigned long length&#41;;\nvoid		STDCALL mysql_debug&#40;const char *debug&#41;;\nchar *		STDCALL mysql_odbc_escape_string&#40;MYSQL *mysql,\n						 char *to,\n						 unsigned long to_length,\n						 const char *from,\n						 unsigned long from_length,\n						 void *param,\n						 char *\n						 &#40;*extend_buffer&#41;\n						 &#40;void *, char *to,\n						  unsigned long *length&#41;&#41;;\nvoid 		STDCALL myodbc_remove_escape&#40;MYSQL *mysql,char *name&#41;;\nunsigned int	STDCALL mysql_thread_safe&#40;void&#41;;\nmy_bool		STDCALL mysql_embedded&#40;void&#41;;\nMYSQL_MANAGER*  STDCALL mysql_manager_init&#40;MYSQL_MANAGER* con&#41;;  \nMYSQL_MANAGER*  STDCALL mysql_manager_connect&#40;MYSQL_MANAGER* con,\n					      const char* host,\n					      const char* user,\n					      const char* passwd,\n					      unsigned int port&#41;;\nvoid            STDCALL mysql_manager_close&#40;MYSQL_MANAGER* con&#41;;\nint             STDCALL mysql_manager_command&#40;MYSQL_MANAGER* con,\n						const char* cmd, int cmd_len&#41;;\nint             STDCALL mysql_manager_fetch_line&#40;MYSQL_MANAGER* con,\n						  char* res_buf,\n						 int res_buf_size&#41;;\nmy_bool         STDCALL mysql_read_query_result&#40;MYSQL *mysql&#41;;\n\n\n/*\n  The following definitions are added for the enhanced \n  client-server protocol\n*/\n\n/* statement state */\nenum enum_mysql_stmt_state\n&#123;\n  MYSQL_STMT_INIT_DONE= 1, MYSQL_STMT_PREPARE_DONE, MYSQL_STMT_EXECUTE_DONE,\n  MYSQL_STMT_FETCH_DONE\n&#125;;\n\n\n/* bind structure */\ntypedef struct st_mysql_bind\n&#123;\n  unsigned long	*length;          /* output length pointer */\n  my_bool       *is_null;	  /* Pointer to null indicator */\n  void		*buffer;	  /* buffer to get/put data */\n  enum enum_field_types buffer_type;	/* buffer type */\n  unsigned long buffer_length;    /* buffer length, must be set for str/binary */  \n\n  /* Following are for internal use&#46; Set by mysql_stmt_bind_param */\n  unsigned char *inter_buffer;    /* for the current data position */\n  unsigned long offset;           /* offset position for char/binary fetch */\n  unsigned long	internal_length;  /* Used if length is 0 */\n  unsigned int	param_number;	  /* For null count and error messages */\n  unsigned int  pack_length;	  /* Internal length for packed data */\n  my_bool       is_unsigned;      /* set if integer type is unsigned */\n  my_bool	long_data_used;	  /* If used with mysql_send_long_data */\n  my_bool	internal_is_null; /* Used if is_null is 0 */\n  void &#40;*store_param_func&#41;&#40;NET *net, struct st_mysql_bind *param&#41;;\n  void &#40;*fetch_result&#41;&#40;struct st_mysql_bind *, unsigned char **row&#41;;\n  void &#40;*skip_result&#41;&#40;struct st_mysql_bind *, MYSQL_FIELD *,\n		      unsigned char **row&#41;;\n&#125; MYSQL_BIND;\n\n\n/* statement handler */\ntypedef struct st_mysql_stmt\n&#123;\n  MEM_ROOT       mem_root;             /* root allocations */\n  LIST           list;                 /* list to keep track of all stmts */\n  MYSQL          *mysql;               /* connection handle */\n  MYSQL_BIND     *params;              /* input parameters */\n  MYSQL_BIND     *bind;                /* output parameters */\n  MYSQL_FIELD    *fields;              /* result set metadata */\n  MYSQL_DATA     result;               /* cached result set */\n  MYSQL_ROWS     *data_cursor;         /* current row in cached result */\n  /* copy of mysql-&gt;affected_rows after statement execution */\n  my_ulonglong   affected_rows;\n  my_ulonglong   insert_id;            /* copy of mysql-&gt;insert_id */\n  /*\n    mysql_stmt_fetch&#40;&#41; calls this function to fetch one row &#40;it\'s different\n    for buffered, unbuffered and cursor fetch&#41;&#46;\n  */\n  int            &#40;*read_row_func&#41;&#40;struct st_mysql_stmt *stmt, \n                                  unsigned char **row&#41;;\n  unsigned long	 stmt_id;	       /* Id for prepared statement */\n  unsigned int	 last_errno;	       /* error code */\n  unsigned int   param_count;          /* input parameter count */\n  unsigned int   field_count;          /* number of columns in result set */\n  enum enum_mysql_stmt_state state;    /* statement state */\n  char		 last_error&#91;MYSQL_ERRMSG_SIZE&#93;; /* error message */\n  char		 sqlstate&#91;SQLSTATE_LENGTH+1&#93;;\n  /* Types of input parameters should be sent to server */\n  my_bool        send_types_to_server;\n  my_bool        bind_param_done;      /* input buffers were supplied */\n  my_bool        bind_result_done;     /* output buffers were supplied */\n  /* mysql_stmt_close&#40;&#41; had to cancel this result */\n  my_bool       unbuffered_fetch_cancelled;  \n  /*\n    Is set to true if we need to calculate field-&gt;max_length for \n    metadata fields when doing mysql_stmt_store_result&#46;\n  */\n  my_bool       update_max_length;     \n&#125; MYSQL_STMT;\n\nenum enum_stmt_attr_type\n&#123;\n  /*\n    When doing mysql_stmt_store_result calculate max_length attribute\n    of statement metadata&#46; This is to be consistent with the old API, \n    where this was done automatically&#46;\n    In the new API we do that only by request because it slows down\n    mysql_stmt_store_result sufficiently&#46;\n  */\n  STMT_ATTR_UPDATE_MAX_LENGTH\n&#125;;\n\n\ntypedef struct st_mysql_methods\n&#123;\n  my_bool &#40;*read_query_result&#41;&#40;MYSQL *mysql&#41;;\n  my_bool &#40;*advanced_command&#41;&#40;MYSQL *mysql,\n			      enum enum_server_command command,\n			      const char *header,\n			      unsigned long header_length,\n			      const char *arg,\n			      unsigned long arg_length,\n			      my_bool skip_check&#41;;\n  MYSQL_DATA *&#40;*read_rows&#41;&#40;MYSQL *mysql,MYSQL_FIELD *mysql_fields,\n			   unsigned int fields&#41;;\n  MYSQL_RES * &#40;*use_result&#41;&#40;MYSQL *mysql&#41;;\n  void &#40;*fetch_lengths&#41;&#40;unsigned long *to, \n			MYSQL_ROW column, unsigned int field_count&#41;;\n  void &#40;*flush_use_result&#41;&#40;MYSQL *mysql&#41;;\n#if !defined&#40;MYSQL_SERVER&#41; || defined&#40;EMBEDDED_LIBRARY&#41;\n  MYSQL_FIELD * &#40;*list_fields&#41;&#40;MYSQL *mysql&#41;;\n  my_bool &#40;*read_prepare_result&#41;&#40;MYSQL *mysql, MYSQL_STMT *stmt&#41;;\n  int &#40;*stmt_execute&#41;&#40;MYSQL_STMT *stmt&#41;;\n  int &#40;*read_binary_rows&#41;&#40;MYSQL_STMT *stmt&#41;;\n  int &#40;*unbuffered_fetch&#41;&#40;MYSQL *mysql, char **row&#41;;\n  void &#40;*free_embedded_thd&#41;&#40;MYSQL *mysql&#41;;\n  const char *&#40;*read_statistics&#41;&#40;MYSQL *mysql&#41;;\n  my_bool &#40;*next_result&#41;&#40;MYSQL *mysql&#41;;\n  int &#40;*read_change_user_result&#41;&#40;MYSQL *mysql, char *buff, const char *passwd&#41;;\n#endif\n&#125; MYSQL_METHODS;\n\n#ifdef HAVE_DEPRECATED_411_API\n/* Deprecated calls &#40;since MySQL 4&#46;1&#46;2&#41; */\n\n/* Use mysql_stmt_init + mysql_stmt_prepare instead */\nMYSQL_STMT * STDCALL mysql_prepare&#40;MYSQL * mysql, const char *query,\n				   unsigned long length&#41;;\n#define mysql_execute mysql_stmt_execute\n#define mysql_fetch mysql_stmt_fetch\n#define mysql_fetch_column mysql_stmt_fetch_column\n#define mysql_bind_param mysql_stmt_bind_param\n#define mysql_bind_result mysql_stmt_bind_result\n#define mysql_param_count mysql_stmt_param_count\n#define mysql_param_result mysql_stmt_param_metadata\n#define mysql_get_metadata mysql_stmt_result_metadata\n#define mysql_send_long_data mysql_stmt_send_long_data\n\n#endif /* HAVE_DEPRECATED_411_API */\n\nMYSQL_STMT * STDCALL mysql_stmt_init&#40;MYSQL *mysql&#41;;\nint STDCALL mysql_stmt_prepare&#40;MYSQL_STMT *stmt, const char *query,\n                               unsigned long length&#41;;\nint STDCALL mysql_stmt_execute&#40;MYSQL_STMT *stmt&#41;;\nint STDCALL mysql_stmt_fetch&#40;MYSQL_STMT *stmt&#41;;\nint STDCALL mysql_stmt_fetch_column&#40;MYSQL_STMT *stmt, MYSQL_BIND *bind, \n                                    unsigned int column,\n                                    unsigned long offset&#41;;\nint STDCALL mysql_stmt_store_result&#40;MYSQL_STMT *stmt&#41;;\nunsigned long STDCALL mysql_stmt_param_count&#40;MYSQL_STMT * stmt&#41;;\nmy_bool STDCALL mysql_stmt_attr_set&#40;MYSQL_STMT *stmt,\n                                    enum enum_stmt_attr_type attr_type,\n                                    const void *attr&#41;;\nmy_bool STDCALL mysql_stmt_attr_get&#40;MYSQL_STMT *stmt,\n                                    enum enum_stmt_attr_type attr_type,\n                                    void *attr&#41;;\nmy_bool STDCALL mysql_stmt_bind_param&#40;MYSQL_STMT * stmt, MYSQL_BIND * bnd&#41;;\nmy_bool STDCALL mysql_stmt_bind_result&#40;MYSQL_STMT * stmt, MYSQL_BIND * bnd&#41;;\nmy_bool STDCALL mysql_stmt_close&#40;MYSQL_STMT * stmt&#41;;\nmy_bool STDCALL mysql_stmt_reset&#40;MYSQL_STMT * stmt&#41;;\nmy_bool STDCALL mysql_stmt_free_result&#40;MYSQL_STMT *stmt&#41;;\nmy_bool STDCALL mysql_stmt_send_long_data&#40;MYSQL_STMT *stmt, \n                                          unsigned int param_number,\n                                          const char *data, \n                                          unsigned long length&#41;;\nMYSQL_RES *STDCALL mysql_stmt_result_metadata&#40;MYSQL_STMT *stmt&#41;;\nMYSQL_RES *STDCALL mysql_stmt_param_metadata&#40;MYSQL_STMT *stmt&#41;;\nunsigned int STDCALL mysql_stmt_errno&#40;MYSQL_STMT * stmt&#41;;\nconst char *STDCALL mysql_stmt_error&#40;MYSQL_STMT * stmt&#41;;\nconst char *STDCALL mysql_stmt_sqlstate&#40;MYSQL_STMT * stmt&#41;;\nMYSQL_ROW_OFFSET STDCALL mysql_stmt_row_seek&#40;MYSQL_STMT *stmt, \n                                             MYSQL_ROW_OFFSET offset&#41;;\nMYSQL_ROW_OFFSET STDCALL mysql_stmt_row_tell&#40;MYSQL_STMT *stmt&#41;;\nvoid STDCALL mysql_stmt_data_seek&#40;MYSQL_STMT *stmt, my_ulonglong offset&#41;;\nmy_ulonglong STDCALL mysql_stmt_num_rows&#40;MYSQL_STMT *stmt&#41;;\nmy_ulonglong STDCALL mysql_stmt_affected_rows&#40;MYSQL_STMT *stmt&#41;;\nmy_ulonglong STDCALL mysql_stmt_insert_id&#40;MYSQL_STMT *stmt&#41;;\nunsigned int STDCALL mysql_stmt_field_count&#40;MYSQL_STMT *stmt&#41;;\n\nmy_bool STDCALL mysql_commit&#40;MYSQL * mysql&#41;;\nmy_bool STDCALL mysql_rollback&#40;MYSQL * mysql&#41;;\nmy_bool STDCALL mysql_autocommit&#40;MYSQL * mysql, my_bool auto_mode&#41;;\nmy_bool STDCALL mysql_more_results&#40;MYSQL *mysql&#41;;\nint STDCALL mysql_next_result&#40;MYSQL *mysql&#41;;\nvoid STDCALL mysql_close&#40;MYSQL *sock&#41;;\n\n\n/* status return codes */\n#define MYSQL_NO_DATA      100\n\n#define mysql_reload&#40;mysql&#41; mysql_refresh&#40;&#40;mysql&#41;,REFRESH_GRANT&#41;\n\n#ifdef USE_OLD_FUNCTIONS\nMYSQL *		STDCALL mysql_connect&#40;MYSQL *mysql, const char *host,\n				      const char *user, const char *passwd&#41;;\nint		STDCALL mysql_create_db&#40;MYSQL *mysql, const char *DB&#41;;\nint		STDCALL mysql_drop_db&#40;MYSQL *mysql, const char *DB&#41;;\n#define	 mysql_reload&#40;mysql&#41; mysql_refresh&#40;&#40;mysql&#41;,REFRESH_GRANT&#41;\n#endif\n#define HAVE_MYSQL_REAL_CONNECT\n\n/*\n  The following functions are mainly exported because of mysqlbinlog;\n  They are not for general usage\n*/\n\n#define simple_command&#40;mysql, command, arg, length, skip_check&#41; \\\n  &#40;*&#40;mysql&#41;-&gt;methods-&gt;advanced_command&#41;&#40;mysql, command,         \\\n					NullS, 0, arg, length, skip_check&#41;\nunsigned long net_safe_read&#40;MYSQL* mysql&#41;;\n\n#ifdef __NETWARE__\n#pragma pack&#40;pop&#41;		/* restore alignment */\n#endif\n\n#ifdef	__cplusplus\n&#125;\n#endif\n\n#endif /* _mysql_h */\n[/code:aaahmw1k]\n\nRegards\n\n-Ramesh Babu P','',0,'AIA=','aaahmw1k',1,0,'',190,0,0),(43855,9195,3,233,0,'218.111.61.90',1197515331,1,0,1,1,1,0,'','[OT] Could someone send me libnf?','Could someone send me the latest libnf for xHarbour/bcc55? My attempt to compile it myself are riddled with errors  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nTIA','',0,'AIA=','anu8v1vn',1,0,'',233,0,0),(43856,9196,3,868,0,'219.64.121.60',1197528500,1,0,1,1,1,1,'','ButtonBar in Folders','I like to have two or more buttonbars ( tbar() ) in folders, so that the user can switch button bars by choosing the folder tab.\n\nWe can do with rebars and toolbars, but I like to do it with FWH buttonbars and folders. \n\nCan this be done easily ?','',0,'AIA=','o8irwhid',1,0,'',868,0,0),(43857,9193,6,449,0,'212.64.224.249',1197528544,1,0,1,1,1,1,'','','Hola Carlos,\n\nPrimero de todo darte a ti y a los tuyos animos. Siempre que hay una migración, estas no acostumbran a ser tan transparentes como parecen. En mi caso, te puedo contar q ahora estoy en la 7.4 y funciona perfectamente, pero evidentemente despues de haber testeado \'mas a fondo\' de lo que queria muchos de los procesos, por lo que a veces el concepto de \'tendria de funcionar igual...\' es muy relativo.\n\nPrimero de todo, debes de tener claro porque realizas la migración. En tu caso q os ha llevado al cambio despues de un año a la nueva lib ? Q ventaja os aporta ? \n\nSegundo, todas las librerias de tercero es OBLIGATORIO disponer de fuentes para poder recompilarlos, ajustarlos y realizar todos los cambios oportunos.\n\nTercero, paciencia. No todo es tan facil y trivial. Nuevas librerias, pues recompilamos y ya esta (pues va a ser q no). Tu esto ya lo debes saber. Llega un momento que cuando tienes aplicaciones en productivo, q llevan tiempo funcionando y son muy estables, tienes de tener muy claro el salto y el cambio a una version, valorar las partes positivas q te aportan y las consecuencias que puedes tener.\n\nEn mi caso, tambien comentarte que uno de los aplicativos que tenemos funcionando, esta hecho con la 2.4 . Durante todo este tiempo ha sido muy robusta, y si hemos tenido de tocar algo lo hacemos con las lib de la 2.4 -&gt; Me niego a migrarla a las nuevas versiones y mas si todo lo que necesitamos lo podemos ir solucionando con la vieja libreria.\n\nEl tema de los Pcode Dll. Yo hace tiempo que me pelee con ellos e incluso te voy a decir que en un cambio de version, cuando aun no funcionaban bien, tuve q recurrir a AL para que afinara el tema, porque yo ni sabia como se habian realizado, ni entendia como estaba montado, ni tenia tiempo de mirarlo, y es por eso que tuve que recurrir a sus servicios, pero realmente lo necesitaba.\n\nYo te aconsejo, q \"dividas y venceras\" , q pongas en el foro tus dudas con pequeños ejemplos  autocontenidos y entre todos mirar de echarte un cable. Pequeños ejemplos de Pcode, TSBrowse, ... mas de uno te da a veces algun \'tirito\' en el q tu no habias caido...\n\n[code:23hejjni]Compañeros con aplicaciones ya desarrolladas con versiones FWH 2&#46;7 y anteriores no se han actualizado de un sólo salto a FW 7&#46;12 como nosotros? No nos actualizamos a las versiones posteriores a la 2&#46;7 por temor a las imcompatibilidades, pues las veces que lo hicimos tuvimos problemas, claro que nunca tan graves y difíciles como en esta ocasión&#46; Si lo hubiésemos hecho, no tendríamos este problema ?[/code:23hejjni]\n\nSiempre tendras este problema, en mayor o menor medida pero cuanto mas tiempo tardes en hacer cambios, mas problemillas te saldran... \n\nY por ultimo, no molestas, claro que no, y solo te escribo para darte animos y q todos estamos por aqui, muchos a veces ocultos, pero que quizas se sienten identificados un poco contigo y con tus problemas poruqe ya los hemos pasado. Te animo a que pongas tus dudas con pequeños ejemplos...\n\nSuerte','',0,'AIA=','23hejjni',1,0,'',449,0,0),(43858,9188,3,51,0,'80.122.88.242',1197529259,1,0,1,1,1,0,'','','How can I do this with workshop?\nregards,\nOtto','',0,'AIA=','3f1li8qo',1,0,'',51,0,0),(43859,9197,6,542,0,'83.42.233.118',1197531765,1,0,1,1,1,0,'','Cambiar el tamaño de una ventana','Hola amigos:\n\nTengo un atasco y no se como solucionarlo, tengo una ventana que la creao de la siguiente manera:\n\ndo case\n  case tipo = \"C\"\n    Walto = 350\n  case tipo = \"D\"\n    Walto = 350\n  case tipo = \"E\"\n    Walto = 660\n  case tipo = \"F\"\n    Walto = 350\nendcase\nstore 1 to tipsal\nDEFINE WINDOW oDlgw MDICHILD OF oVentPrinc PIXEL FROM 0, 0 TO walto,720 TITLE \"Modelos Trimestrales/Mensuales del I.V.A.\" COLOR escri01, fondo01 MENU menuivas() STYLE nOr(WS_DLGFRAME)\n\n   pintivas()\n\nACTIVATE WINDOW oDlgw NORMAL\n\nPero despues tengo que cambiarla de tamaño segun sea el campo tipo y estoy intentandolo con lo siguiente:\n\noDlgw:ReSize(0,350,680)\noDlgw:Refresh()\nSysRefresh()\n\nPero no me hace nada, me podeis ayudar, Gracias\n\nUn saludo\n\nCarlos','',0,'AIA=','3oma3tuo',1,0,'',542,0,0),(43860,9183,3,51,0,'80.122.88.242',1197533617,1,0,1,1,1,0,'','','Thank you Rafael.\nHere is my email:\n<!-- e --><a href=\"mailto:datron@aon.at\">datron@aon.at</a><!-- e -->','',0,'AIA=','16h6kzmp',1,0,'',51,0,0),(43861,9183,3,2,0,'87.218.146.240',1197533694,1,0,1,1,1,1,'','','Rafael,\n\nWould you mind to post the example source code here ? many thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','bs3zvcks',1,0,'',2,0,0),(43862,9159,3,2,0,'87.218.146.240',1197533864,1,0,1,1,1,1,'','','Acwoo,\n\nHow do you set the new value of the GET ?\n\nDo you use oGet:Assign() ?\n\nDo you change the variable related value and then call oGet:Refresh() ?','',0,'AIA=','2ewqx776',1,0,'',2,0,0),(43863,9189,3,303,0,'72.220.181.80',1197534142,1,0,1,1,1,0,'','','Tim,\n\nIt\'s not hard, you can still use the command line, just inside a function called by the ON INIT.\n\nJames\n\n[code:3l7ea42v]   activate dialog oDlg on init buildBar&#40;oDlg&#41;\n&#46;&#46;&#46;\nstatic function buildBar&#40;oDlg&#41;\n   local oBar\n   define buttonbar oBar of oDlg\n   &#46;&#46;&#46;\nreturn nil[/code:3l7ea42v]','',0,'AIA=','3l7ea42v',1,0,'',303,0,0),(43864,9198,3,297,0,'217.57.213.130',1197535166,1,0,1,1,1,0,'','Like winzip','Hi everybody,\n    from explorer a can select multiple files.\nWhen I click right mouse button from one of these selected files a context menu appears. For instance I find \"Winzip\" item with its own menu.\nIf I select the voice \"Add to myfolder.zip\" then winzip start and compress all selected files. \nThe question is: \nIn a Fivewin/xHarbour program how can I obtain an array containing these selected files? (simply to display them...)\n\n#include \"fivewin.ch\"\n\nFUNCTION MAIN( aSelectedFiles )\nLOCAL i\nFOR i := 1 TO LEN(aSelectedFiles)\n      MsgInfo[aSelectedFiles[i]\n      // other complicated processing......\n\nNEXT i \n\n\nRETURN NIL\n\nThanks in advance\nMarco Boschi','',0,'','2mjp2xde',1,0,'',297,0,0),(43865,9197,6,456,0,'62.43.24.65',1197535671,1,0,1,1,1,1,'','','[code:1g861zj5]\nWndWidth&#40; oDlgw&#58;hWnd, 350&#41;\nWndHeight&#40; oDlgw&#58;hWnd,680&#41;\n[/code:1g861zj5]','',0,'AIA=','1g861zj5',1,0,'',456,0,0),(43866,9199,20,1009,0,'82.187.221.169',1197539677,1,0,1,1,1,0,'','problema con buttonbar','salve a tutti,\nho un problema con DEFINE BUTTONBAR ...\nnon mi funziona l\'opzione FLOAT, visualizza una barra quadrata anziché una barra da sinistra a destra (i pulsanti comunque funzionano)\nmentre con l\'opzione BOTTOM la buttonbar va sotto alla MessageBar.\nuso xHarbour 1.0.0 con fw 7.12\nstesso problema con testbtn.prg della cartella samples.\nè un bug?\n\ngrazie in anticipo, marzio','',0,'AIA=','ngeiosqc',1,0,'',1009,0,0),(43867,9185,6,956,0,'200.222.21.2',1197540033,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1tms3so3]Anderson,\n\nLo que quieres es que se ejecute dos veces si se pulsa rapidamente dos veces ?[/quote:1tms3so3]\n\nExato!','',0,'gA==','1tms3so3',1,0,'',956,0,0),(43868,9192,6,1059,0,'190.136.201.62',1197540675,1,0,1,1,1,0,'','','¿Hay otra manera de lograr que la palabra buscada sea \"mostrada\" con el resaltado azul pero EN TODAS LAS POSICIONES EN LA QUE SE ENCUENTRE A LA MISMA VEZ.?\n\nGracias.\n\nRolando <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'gA==','2du5c1vz',1,0,'',1059,0,0),(43869,9180,6,1236,0,'201.86.91.184',1197540789,1,0,1,1,1,0,'','','Mais uma vez me desculpe, ainda não funciona! Acredito que seja algo com o objeto say.\n\n\n\nObrigado!','',0,'gA==','2zylfoci',1,0,'',1236,0,0),(43870,9181,6,1236,0,'201.86.91.184',1197541295,1,0,1,1,1,0,'','','Desculpe antonio, acredito que minha classe twbrowse não esta legal, usted poderia me indicar uma classe funcional para download?\n\n\n\nObrigado','',0,'gA==','2y84utpw',1,0,'',1236,0,0),(43871,9181,6,2,0,'87.218.146.240',1197541411,1,0,1,1,1,1,'','','La Clase TWBrowse está incluida en FWH y su código fuente está en fwh\\source\\classes\\wbrowse.prg','',0,'gA==','198wmvsn',1,0,'',2,0,0),(43872,9197,6,2,0,'87.218.146.240',1197541524,1,0,1,1,1,1,'','','Carlos,\n\nPuedes hacerlo como Biel te indica ó así:\n\noDlgw:nWidth = 350 \noDlgw:nHeight = 680','',0,'gA==','2yr60w4k',1,0,'',2,0,0),(43873,9193,6,2,0,'87.218.146.240',1197541900,1,0,1,1,1,1,'','','Carlos,\n\n&gt;\nDe pronto se me ocurre que en aras de encontrar una solución, aunque no la ideal, se pudiera utilizar FWH 7.12 con xHarbour 0.99.61. Es posible ?\n&gt;\n\nSi, sólo tienes que recompilar todos los PRGs de FWH con xHarbour 0.99.61.\n\nPuedes hacerlo usando este fichero BAT:\nfor %%f in (*.prg) do c:\\harbour\\bin\\harbour %%f /n /ic:\\fwh\\include;c:\\harbour\\include \nfor %%f in (*.c) do c:\\bcc55\\bin\\bcc32 -c -Ic:\\bcc55\\include;c:\\harbour\\include %%f \nfor %%f in (*.obj) do c:\\bcc55\\bin\\tlib fivehx.lib -+ %%f /0 /P32,,','',0,'gA==','278vj7dk',1,0,'',2,0,0),(43874,9193,6,2,0,'87.218.146.240',1197542854,1,0,1,1,1,1,'','','Carlos,\n\nEn relación al resto de comentarios que haces en tu post, no voy a entrar en discusiones, pero si quiero aclarar algunos puntos:\n\n1. Cada nueva versión de FWH es probada por cientos de programadores, en aplicaciones realmente complejas y se revisa cada posible fallo de compatibilidad ó error que pueda aparecer.\n\n2. Precisamente el problema que estais teniendo se debe a no usar versiones recientes y a no estar actualizados. Si os hubiéseis mantenido actualizados, vuestros problemas se habrían detectado rapidamente y ya estarían solucionados.\n\n3. Muy pocos usuarios usan las DLLs de pcode, y esto conlleva el problema de que no estan probadas por muchos usuarios, y que ante un problema como el vuestro, no se ejerce la presión necesaría sobre los equipos de desarrollo de Harbour/xharbour. Es por esto que nosotros siempre aconsejamos usar el código mas \"estandard\" posible, y no usar capacidades que no sean muy \"populares\".','',0,'gA==','3h3w5lzf',1,0,'',2,0,0),(43875,9180,6,2,0,'87.218.146.240',1197543588,1,0,1,1,1,1,'','','Tienes que hacer una modificación en la Clase TControl para poder procesar bLButtonUp estando en modo diseño:\n[code:2sru0f0q]\nMETHOD LButtonUp&#40; nRow, nCol, nKeyFlags &#41; CLASS TControl\n&#46;&#46;&#46;\n      if GetFocus&#40;&#41; != &#58;&#58;hWnd\n         SetFocus&#40; &#58;&#58;hWnd &#41;\n      endif\n      if ! Empty&#40; &#58;&#58;bLButtonUp &#41;  // Nuevo!\n         Eval&#40; &#58;&#58;bLButtonUp, nRow, nCol, nKeyFlags, Self &#41;  // Nuevo! \n      endif  // Nuevo!\n      return 0\n&#46;&#46;&#46;\n[/code:2sru0f0q]','',0,'AIA=','2sru0f0q',1,0,'',2,0,0),(43876,9192,6,2,0,'87.218.146.240',1197543708,1,0,1,1,1,1,'','','El código fuente en C de la Clase TRichEdit no se proporciona.\n\nRevisa el método Colorize() que puede servirte para lo que quieres hacer.','',0,'AIA=','20chkvpd',1,0,'',2,0,0),(43877,9198,3,2,0,'87.218.146.240',1197544213,1,0,1,1,1,1,'','','Marco,\n[code:wxl40tnj]\nfunction Main&#40;&#41;\n\n   local n\n\n   for n = 1 to HB_ArgC&#40;&#41;\n      MsgInfo&#40; HB_ArgV&#40; n &#41; &#41;\n   next\n\nreturn nil\n[/code:wxl40tnj]','',0,'AIA=','wxl40tnj',1,0,'',2,0,0),(43878,9145,3,2,0,'87.218.146.240',1197544345,1,0,1,1,1,1,'','','Ramesh,\n\nThese files are also required:\n\n#include \"mysql_com.h\" \n#include \"mysql_time.h\" \n#include \"mysql_version.h\" \n#include \"typelib.h\" \n#include \"my_list.h\"\n\nPlease upload them to <!-- w --><a class=\"postlink\" href=\"http://www.hotshare.net\">www.hotshare.net</a><!-- w --> as a ZIP file. Don\'t copy here their contains, thanks','',0,'AIA=','3q2axqfn',1,0,'',2,0,0),(43879,9194,3,2,0,'87.218.146.240',1197544480,1,0,1,1,1,1,'','','Shuming,\n\nUse a timer that checks a variable that holds the last time when the app was used. Keep such variable updated from your application.','',0,'AIA=','37sghlot',1,0,'',2,0,0),(43880,9184,18,2,0,'87.218.146.240',1197544679,1,0,1,1,1,1,'','','Biel,\n\nCorregido, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2b68qmx1',1,0,'',2,0,0),(43881,9198,3,297,0,'217.57.213.130',1197544723,1,0,1,1,1,0,'','','Antonio,\n     I\'ve tested.\nI see only the firts selected file\nThanks','',0,'AIA=','378km8d2',1,0,'',297,0,0),(43882,9193,6,2,0,'87.218.146.240',1197544851,1,0,1,1,1,1,'','','Carlos,\n\nUna cosa más:\n\nEs preciso y muy importante, poder reproducir el error (en este caso el de las DLLs de pcode) con un ejemplo [color=red:3o1yznfx]sin usar código FWH[/color:3o1yznfx] para poder reportarlo al equipo de desarrollo de harbour/xHarbour.\n\nSin un ejemplo reproducible, nadie se pondrá a trabajar en arreglar algo que no saben lo que es ni cómo probarlo.','',0,'Ag==','3o1yznfx',1,0,'',2,0,0),(43883,9198,3,2,0,'87.218.146.240',1197545011,1,0,1,1,1,1,'','','Marco,\n\nPlease run your EXE this way:\n\ntest.exe one two three','',0,'Ag==','t19rd6bs',1,0,'',2,0,0),(43884,9158,3,130,0,'141.51.32.24',1197545756,1,0,1,1,1,1,'','','Randal,\n\nunder this key\n\n[code:37nhx7w7]HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\ZoneMap\\Domains\\[/code:37nhx7w7]\n\ncreate a new key with the domain name (without http://)\nUnder this key create a key \"http\" with the zone number as its value.','',0,'AIA=','37nhx7w7',1,0,'',130,0,0),(43885,9181,6,1236,0,'201.86.91.184',1197546639,1,0,1,1,1,0,'','','grato','',0,'AIA=','2rpmz0l0',1,0,'',1236,0,0),(43886,9180,6,1236,0,'201.86.91.184',1197547351,1,0,1,1,1,0,'','','Perfeito Antonio... Funcionou perfeitamente!\n\nEstas correções já estão na nova versão do FW?\n\nMuito Obrigado!','',0,'AIA=','1g6zu9t9',1,0,'',1236,0,0),(43887,9192,6,1059,0,'200.82.60.42',1197547756,1,0,1,1,1,0,'','','Antonio,\n\nGracias, pero ya lo hice con el método Colorize, agregué uno que llamé colorizeall() pero solo puedo cambiarle el color de tinta, no puedo \"resaltar\" como lo hace el find(), que es lo que justamente me interesaría hacer.\n\nLa verdad es que aunque tuviese el código C, no sabría que hacer porque nunca programé nada en C (aunque nunca es tarde para comenzar).\n\nY bue.., si no se puede, no se puede, que se va a hacer, ¿no?.\n\nGracias.','',0,'AIA=','1mhw42kj',1,0,'',1059,0,0),(43888,9057,3,130,0,'141.51.32.24',1197548189,1,0,1,1,1,1,'','','Antonio,\n\ngood work, congrats.\n\n\nI get a \"style not found\" msg for DS_3DLOOK, DTS_SHOWNONE (DatePicker) and all styles with 0x002000000 or similar (mostly twbrowse)\n\n\n\n[code:2rwxk03s]BELEG0 DIALOG DISCARDABLE 0, 0, 282, 154\nSTYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nCAPTION &quot;Belegungszeiten&quot;\nFONT 8, &quot;MS Sans Serif&quot;\nBEGIN\n  CONTROL &quot;OK&quot;, 1, &quot;Button&quot;, BS_DEFPUSHBUTTON|WS_TABSTOP, 17, 133, 50, 14\n  CONTROL &quot;Abbruch&quot;, 2, &quot;Button&quot;, WS_TABSTOP, 80, 133, 50, 14\n  CONTROL &quot;&quot;, 12, &quot;TFolder&quot;, WS_TABSTOP, 6, 8, 269, 118\nEND[/code:2rwxk03s]\n\nOpening the above resource  I get this error:\n\nApplication\n===========\n   Path and name: E:\\DOWNLOAD\\XBase\\re.exe (32 bits)\n   Size: 1,358,336 bytes\n   Time from start: 0 hours 1 mins 9 secs \n   Error occurred at: 12/13/07, 13:03:21\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \n                      Title: \n\nStack Calls\n===========\n   Called from: .\\source\\classes\\DIALOG.PRG =&gt; CREATEDLGERROR(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: C:\\FiveWin.20\\samples\\re.prg =&gt; SHOWDIALOG(445)\n   Called from: C:\\FiveWin.20\\samples\\re.prg =&gt; (b)OPENRCFILE(305)\n   Called from:  =&gt; TTREEVIEW:LDBLCLICK(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TTREEVIEW:HANDLEEVENT(0)\n   Called from: .\\source\\classes\\WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: C:\\FiveWin.20\\samples\\re.prg =&gt; MAIN(260)','',0,'AIA=','2rwxk03s',1,0,'',130,0,0),(43889,9194,3,868,0,'219.64.121.60',1197548617,1,0,1,1,1,1,'','','This is what I want too. And really very useful.\n\nIf in the main Window.Prg\'s Event Handler, we store the time in seconds whenever an event is handled, we can check thro a timer the difference between last event time and present time.\n\nI am hesitatiing to touch the Window.Prg. If you guide Mr Antonio, we shall do it.\n\nAnyway I have an api to find idle time for the entire system, but that is not what i want. I too want to know how long \"my\" application is idle.','',0,'AIA=','2lfmn6hm',1,0,'',868,0,0),(43890,9197,6,542,0,'83.42.233.118',1197548957,1,0,1,1,1,0,'','','Gracias por vuestras aportaciones ya me funciona perfectamente.\n\nUn saludo\n\ncarlos','',0,'AIA=','lskk22yb',1,0,'',542,0,0),(43891,9194,3,868,0,'219.64.121.60',1197549054,1,0,1,1,1,1,'','','The code I thought of ... \ndont know if this works for sure without adding any other complications\n\n[code:2f3ik9a4]\n// Window&#46;Prg\nSTATIC nLastEventTime	&#58;= NIL\n//\n//\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS Window\n\n	nLastEventTime	&#58;= SECONDS&#40;&#41;\n\nRETURN  WndHandleEvent&#40; Self, nMsg, nWParam, nLParam &#41;\n//\n//\nFUNCTION ExeIdleTime&#40;&#41;\n     // midnight correction is to be applied\nRETURN iif &#40; nLastEventTime == NIL, 0, SECONDS&#40;&#41;-nLastEventTime&#41;\n//\n[/code:2f3ik9a4]\nSomething like this.  Can you offer your guidance Mr Antonio ?','',0,'AIA=','2f3ik9a4',1,0,'',868,0,0),(43892,9194,3,868,0,'219.64.121.60',1197549368,1,0,1,1,1,1,'','','Here is my C function to know how long the entire system is idle\n[code:28szw7ys]\n#include &quot;hbapi&#46;h&quot;\n#include &lt;windows&#46;h&gt;\n#include &lt;winuser&#46;h&gt;\n\nHB_FUNC&#40; SYSTEM_IDLESECS &#41;\n&#123;\n   LASTINPUTINFO plii;\n   DOUBLE dSecs ;\n\n   plii&#46;cbSize = sizeof&#40; plii &#41;;\n   if &#40; GetLastInputInfo&#40; &amp;plii &#41; &#41; \n       dSecs = &#40; DOUBLE &#41; &#40; GetTickCount&#40;&#41; - plii&#46;dwTime &#41; * 0&#46;001 ;\n   else dSecs = 0&#46;0 ;\n\n   hb_retnd&#40;dSecs&#41;;\n&#125;\n[/code:28szw7ys]','',0,'AIA=','28szw7ys',1,0,'',868,0,0),(43893,9188,3,6,0,'87.10.1.135',1197550716,1,0,1,1,1,1,'','','You have to calculate the width of the text using GetTextWidth() function and then to use the Move() method to resize the SAY object.\n\nEMG','',0,'AIA=','2fsx41up',1,0,'',6,0,0),(43894,9195,3,6,0,'87.10.1.135',1197550846,1,0,1,1,1,1,'','Re: [OT] Could someone send me libnf?','Just sent to your private email.\n\nEMG','',0,'AIA=','22om9138',1,0,'',6,0,0),(43895,9200,6,1059,0,'200.82.60.42',1197551107,1,0,1,1,1,0,'','Cascade(), ¿se puede con diálogos?','Buen día,\n\nLa aplicación que estoy desarrollando tiene una sola ventana, la inicial. \n\nDespués son todos diálogos, lo hice así por una cuestión de comodidad en crear los mismos con un editor de recursos.\n\nAhora me encuentro con que, al tener muchos diálogos, estos se abren superponiéndose.\n\nMi consulta: ¿Hay alguna función como la Cascade() pero para los diálogos?.\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','339q0855',1,0,'',1059,0,0),(43896,9183,3,63,0,'88.11.29.98',1197551338,1,0,1,1,1,0,'','','Antonio:\nThis is the demo code:\n[quote:3pqqnwlh]#include \"FiveWin.ch\"\n\nFunction Main()\nLocal oDlg\nLocal cStreet  := Padr(\"BROADWAY 500\", 40)\nLocal cCity    := Padr(\"NEW YORK CITY\", 40)\nLocal cCountry := Padr(\"USA\", 40)\n\nDefine Dialog oDlg From 0,0 To 12,45 Title \"Google Maps test\"\noDlg:lHelpIcon := .F.\n   @ 1,3  Say \"Street and number:\" Of oDlg Size 50,10\n   @ 1,8  Get cStreet     Of oDlg Size 100,10 Picture \"@K!\"\n   @ 2,3  Say \"City:\"     Of oDlg Size 50,10\n   @ 2,8  Get cCity       Of oDlg Size 100,10 Picture \"@K!\"\n   @ 3,3  Say \"Country:\"  Of oDlg Size 50,10\n   @ 3,8  Get cCountry    Of oDlg Size 100,10 Picture \"@K!\"\n   @ 4,11 Button \"Search\" Of oDlg Action Posicion(Alltrim(cStreet)+\"; \"+AllTrim(cCity)+\"; \"+Alltrim(cCountry))\nActivate Dialog oDlg Center\nReturn Nil\n\nDLL FUNCTION Posicion( cTxt  AS LPSTR ) AS LONG PASCAL LIB \".\\Pos.dll\"[/quote:3pqqnwlh]\n\nOf course the trick is in the POS.DLL.  Being a work in progress, I wouldn\'t like to make it public yet. But I\'ll be happy to send a copy to anybody interested.  From the above code you can see how easy is to use it.  It has taken Otto all of ten minutes to include it in his software  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nRafael','',0,'gA==','3pqqnwlh',1,0,'',63,0,0),(43897,9177,3,234,0,'68.30.165.103',1197552135,1,0,1,1,1,1,'','','Hi James,\n\nThank you very much!','',0,'gA==','h7ocnj59',1,0,'',234,0,0),(43898,9194,3,2,0,'87.218.146.240',1197552224,1,0,1,1,1,1,'','','NageswaraRao,\n\nThe application may receive Windows msgs that don\'t come from the user\n\nThats why it may be better to check WM_COMMAND and similar msgs only','',0,'gA==','38igiqcu',1,1197552704,'',2,1,0),(43899,9194,3,868,0,'219.64.121.60',1197552621,1,0,1,1,1,1,'','','Can you guide me a little further mr. Antonio ?','',0,'gA==','2lkc0rp1',1,0,'',868,0,0),(43900,9198,3,297,0,'217.57.213.130',1197552936,1,0,1,1,1,0,'','','ine two three if I run from \nc:\\fwh\\samples\\test01.exe one two three\nbut my scenario is different\nfrom explorer - seleccted files right click mouse Open with....selecct program \nc:\\fwh\\samples\\test01.exe\nI see only \"one\"\n\nBest regards\nMarco','',0,'gA==','2ex2njes',1,0,'',297,0,0),(43901,9194,3,2,0,'87.218.146.240',1197553386,1,0,1,1,1,1,'','','[code:3mly4o79]\nMETHOD HandleEvent&#40; nMsg, nWParam, nLParam &#41; CLASS Window \n\n   if nMsg == WM_COMMAND\n      nLastEventTime &#58;= SECONDS&#40;&#41;\n   endif \n\nRETURN WndHandleEvent&#40; Self, nMsg, nWParam, nLParam &#41;\n[/code:3mly4o79]','',0,'AIA=','3mly4o79',1,0,'',2,0,0),(43902,9194,3,868,0,'219.64.121.60',1197553698,1,0,1,1,1,1,'','','Mr Antonio\n\nThen do you advise me to add other events like WM_CHAR, WM_KEYDOWN, WM_LBUTTON ...... etc ( events that arise from keyboard and mouse ) to this IF condition ?  May be a big list, but may be worth doing it if thats the way','',0,'AIA=','lqcbcna7',1,0,'',868,0,0),(43903,9201,6,960,0,'217.12.16.52',1197553784,1,0,1,1,1,0,'','Como desabilitar el aspa de Windows','Estimados compañeros:\n\nEn la \"define Windows\" que tengo en la pantalla principal de mi aplicación, necesito desactivar (desabilitar) el aspa roja típica de windows y evitar que los usuarios cierren la ventana de esta manera.\n\n¿ Como se desabilita el aspa ?\nMil gracias.\nLORENZO','',0,'AIA=','xqjowj10',1,0,'',960,0,0),(43904,9198,3,868,0,'219.64.121.60',1197554132,1,0,1,1,1,1,'','','Yes. If we drag and drop a bunch of files, we get all of them. But if we use \"Openwith\" we see only one file.','',0,'AIA=','3py9ys3x',1,0,'',868,0,0),(43905,9194,3,2,0,'87.218.146.240',1197554135,1,0,1,1,1,1,'','','Yes, use the msgs that you want to check','',0,'AIA=','3mvgk192',1,0,'',2,0,0),(43906,9198,3,2,0,'87.218.146.240',1197554232,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; But if we use \"Openwith\" we see only one file.\n\nPlease check HB_ArgC() value in that case','',0,'AIA=','3qid12cs',1,0,'',2,0,0),(43907,9198,3,868,0,'219.64.121.60',1197554381,1,0,1,1,1,1,'','','hb_argc() is !  ( one )','',0,'AIA=','8948mng4',1,0,'',868,0,0),(43908,9201,6,1201,0,'200.90.17.154',1197555901,1,0,1,1,1,0,'','','DEFINE WINDOW oWnd FROM 0, 0 TO 35, 100;\n           TITLE ynomcia+\' (Sistema de Garantías)\' ;\n           NOSYSMENU;\n           ICON oIcon\n\n\nTAMBIEN PUEDES UTILIZAR:\nNOICONIZE\nNOZOOM\n\nPERO LO QUE PUEDES HACER ES DESAPARECER EL CERRAR Y DEJAR \nACTIVOS EL ICONIZE Y EL ZOOM','',0,'AIA=','1pry1a44',1,0,'',1201,0,0),(43909,9202,3,35,0,'167.7.140.254',1197556092,1,0,1,1,1,0,'','How to turn OFF the ESC key ( globally )','To All\n\nI have tried to search the forum on how to turn off the ESC key .. just can not seem to find it ( in english  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ).\n\nI want to be able to set the ESC key off for my application globally.\n\nThanks\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','3gj5j221',1,0,'',35,0,0),(43910,9200,6,2,0,'87.218.146.240',1197556180,1,0,1,1,1,1,'','','Rolando,\n\nNo, Windows no proporciona esa funcionalidad.\n\nPero no es dificil de implementar, sólo tienes que cambiar los datos nTop y nLeft de los diálogos.','',0,'AIA=','1eauxywg',1,0,'',2,0,0),(43911,9202,3,2,0,'87.218.146.240',1197556401,1,0,1,1,1,1,'','','Rick,\n\nIf you want to disable it for dialogboxes, then the easiest way is to modify the Class TDialog:\n\nSearch for VK_ESCAPE and comment out the calls to ::End()','',0,'AIA=','11nlxaet',1,0,'',2,0,0),(43912,9198,3,297,0,'217.57.213.130',1197556489,1,0,1,1,1,0,'','','With regedit I add this\n\nHKEY_CLASSES_ROOT\\*\\shell\\Cataloga\\command\n\n\"c:\\foto\\test01.exe\" \"%L\"\n\nIf I select one file test01.exe run once\nIf I select two files test01.exe run twice\nand so on...\nI want to run once for one or for one thousand files.\nThanks','',0,'AIA=','30vdd1ea',1,0,'',297,0,0),(43913,9191,6,1201,0,'200.90.17.154',1197556543,1,0,1,1,1,0,'','','NO SE SI ES ERROR DE TRANSCRIPCION\n\npero si pones\n\nDATO:= \"13.563.270-5\"\n\n\nEN LUGAR DE:\n\nDato: \"13.563.270-5\"\n\nTE TRABAJA!!','',0,'AIA=','24vztg5f',1,0,'',1201,0,0),(43914,9092,3,460,0,'217.37.54.49',1197556930,1,0,1,1,1,0,'','','Antonio,\n\nThanks for the reply - just sent you an email.\n\nPete','',0,'AIA=','2ykv26g2',1,0,'',460,0,0),(43917,9183,3,51,0,'80.122.88.242',1197557982,1,0,1,1,1,0,'','','Regards,\nOtto\n[img:2gvnmyiv]http&#58;//www&#46;atzwanger&#46;com/fw/googlemaps&#46;jpg[/img:2gvnmyiv]','',0,'CA==','2gvnmyiv',1,0,'',51,0,0),(43918,9201,6,362,0,'200.158.18.106',1197558006,1,0,1,1,1,1,'','','[code:3bffdqn8]\nSHOWTASKBAR&#40;&#41; //habilita\nHIDETASKBAR&#40;&#41; //desabilita\nTIRA_X&#40;&#41; // DESABILITA O X da janela\nPISCA_EXE&#40;&#41; // VAI PISCAR O SEU EXE NA BARRA\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;shlobj&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;math&#46;h&quot;\n#include &quot;hbvm&#46;h&quot;\n#include &quot;hbstack&#46;h&quot;\n#include &quot;hbapiitm&#46;h&quot;\n#include &quot;hbapigt&#46;h&quot;\n\nHB_FUNC &#40; SHOWTASKBAR &#41; //Habilita o botao INICIAR\n&#123;\nHWND hWnd = FindWindow&#40;&quot;Shell_TrayWnd&quot;, &quot;&quot;&#41;;\n\nShowWindow&#40; hWnd, 1 &#41;;\n&#125;\n\nHB_FUNC &#40; HIDETASKBAR &#41; //Desabilita o botao Iniciar\n&#123;\nHWND hWnd = FindWindow&#40;&quot;Shell_TrayWnd&quot;, &quot;&quot;&#41;;\n\nShowWindow&#40; hWnd, 0 &#41;;\n&#125;\n\nHB_FUNC &#40; PISCA_EXE &#41; // VAI PISCAR O SEU EXE NA BARRA\n&#123;\nHWND Handle = GetForegroundWindow&#40;&#41;;\n\nFlashWindow&#40;Handle,TRUE&#41;; // VAI PISCAR O SEU EXE NA BARRA\n\nSleep&#40;300&#41;; // TEMPO DE ESPERA\n&#125;\n\n\nHB_FUNC &#40; TIRA_X &#41; // DESABILITA O X da janela/ventana\n\n&#123;\nHMENU MenuH = GetSystemMenu&#40;GetForegroundWindow&#40;&#41;,FALSE&#41;;\n\nEnableMenuItem&#40;MenuH,SC_CLOSE,MF_GRAYED&#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:3bffdqn8]','',0,'AIA=','3bffdqn8',1,0,'',362,0,0),(43919,9201,6,362,0,'200.158.18.106',1197558107,1,0,1,1,1,1,'','','[code:35t1yp2r]\n    ACTIVATE WINDOW oWnd MAXIMIZED                                           ;\n             ON INIT&#40; TIRA_X&#40;&#41; &#41;                                             \n[/code:35t1yp2r]','',0,'AIA=','35t1yp2r',1,0,'',362,0,0),(43920,9205,3,51,0,'80.122.88.242',1197558373,1,0,1,1,1,0,'','Video: xBrowser in 2 minutes','[url:1wlxxgjj]http&#58;//www&#46;atzwanger&#46;com/fwvideo/xBTool2&#46;html[/url:1wlxxgjj]','',0,'EA==','1wlxxgjj',1,0,'',51,0,0),(43921,9200,6,1059,0,'200.82.60.42',1197559070,1,0,1,1,1,0,'','','Antonio:\n\nMuchas Gracias, voy a tratar de hacerlo con una función tipo Cascade().\n\nRolando <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'EA==','3kxa0o5b',1,0,'',1059,0,0),(43922,9183,3,456,0,'62.43.24.65',1197559658,1,0,1,1,1,1,'','','Please Rafael can you send me a copy, thanks.\n\n<!-- e --><a href=\"mailto:bmaimo@piema.info\">bmaimo@piema.info</a><!-- e -->','',0,'EA==','1yuy5388',1,0,'',456,0,0),(43923,9189,3,34,0,'68.5.217.82',1197559733,1,0,1,1,1,1,'','Not Hard','James,\n\nNo, its not hard ... I\'ve already got it implemented in one dialog that was very important for the change.  However, whats hard is going back through so many dialogs and deciding which ones operate better with dialogs and then making the changes ... \n\nI guess hard is not the best word ... time consuming is more appropriate, especially when I need to go Christmas shopping ....\n\nHowever, its working out ... \n\nTim','',0,'EA==','2p49x1lh',1,0,'',34,0,0),(43924,9206,3,51,0,'80.122.88.242',1197559929,1,0,1,1,1,0,'','oSay background','Is such a background possible with pure FIVEWIN code.\n\n[img:gnr5wfjd]http&#58;//www&#46;atzwanger&#46;com/fw/saystyle&#46;jpg[/img:gnr5wfjd]','',0,'CA==','gnr5wfjd',1,0,'',51,0,0),(43925,9159,3,1181,0,'60.50.120.100',1197560137,1,0,0,0,1,1,'','Problem Upgrade To FWH7.11','Thanks for your help\n\nHow do I find out more about this Class Tget which does not allow me now to have one get for both text and numeric variables. Now, if the down-arrow key just pass from text to numeric field in the listbox, the message \"Arguement Error\" wiil occur. Strange, why it allows me to do that in FWH2.4.\n\nThanks','',0,'CA==','1pinr0xe',1,0,'',1181,0,0),(43926,9159,3,2,0,'87.218.146.240',1197560610,1,0,1,1,1,1,'','','Acwoo,\n\nFWH Class TGet uses a Harbour Class TGet object, and this Harbour class have been changed lately.\n\nWe need you to provide us a reproduceable example, with the error,  so we can help you','',0,'CA==','2vmilxmn',1,0,'',2,0,0),(43927,9198,3,2,0,'87.218.146.240',1197560883,1,0,1,1,1,1,'','','Marco,\n\nIt seems as Windows runs the EXE for each supplied file, again and again.\n\nAnyhow it seems as we could code a workaround for this. We need to do some tests','',0,'CA==','2f4k5wus',1,0,'',2,0,0),(43928,9198,3,297,0,'217.57.213.130',1197561885,1,0,1,1,1,0,'','','I found this:\n<!-- m --><a class=\"postlink\" href=\"http://www.eggheadcafe.com/forumarchives/platformsdkshell/Feb2006/post25949448.asp\">http://www.eggheadcafe.com/forumarchive ... 949448.asp</a><!-- m -->\n\nis the same problem!\n\nI think a little program writte in C ( smaller ) that write in append mode in a temporary file.\nNow the problem is \n\"At the and of this files collection in one single file, how can I run my application?\"\n\ndilemma of 5 p.m.\nBye Bye <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->','',0,'CA==','20x9au43',1,0,'',297,0,0),(43929,9190,6,198,0,'189.134.37.221',1197562246,1,0,1,1,1,1,'','','Hola!\n\nGracias Ricardog!!!!\n\nFuncionó perfecto!!\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','hrgqhn1p',1,0,'',198,0,0),(43930,9206,3,2,0,'87.218.146.240',1197562341,1,0,1,1,1,1,'','','Yes, using a brush','',0,'CA==','36owqe8v',1,0,'',2,0,0),(43931,9207,3,49,0,'213.82.134.66',1197562512,1,0,1,1,1,1,'','systime','Antonio,\ntdatapick and ttimepick( with sysxxxx.c) are include on new fw 7.12 ?','',0,'CA==','3a0gk7zc',1,0,'',49,0,0),(43932,9198,3,2,0,'87.218.146.240',1197562547,1,0,1,1,1,1,'','','Marco,\n\nThe plan is:\n\n1. The EXE gets called and ONE parameter is supplied from Windows\n2. The EXE checks if another instance of the EXE is already running\n3. If yes, then the parameter is supplied to the first EXE through an exported function (\"entry point\")\n4. The again invoked EXE quits','',0,'CA==','tmpela7l',1,0,'',2,0,0),(43933,9208,3,86,0,'81.83.151.142',1197562607,1,0,1,1,1,1,'','Question about SET KEY','Hello,\n\nI have already a statement like :\n[code:17p3r480]SET KEY VK_F9 TO TestProc[/code:17p3r480]\nBut how can I use this command to connect a procedure to SHIFT-F9 ?\n\nThanks.','',0,'AIA=','17p3r480',1,0,'',86,0,0),(43934,9206,3,51,0,'80.122.88.242',1197562738,1,0,1,1,1,0,'','','Thank you.\nExcuse my ignorance. But if I tried with brush I always have full color.\nThis seems to be gradient.\nBest regards,\nOtto','',0,'AIA=','hzstzcgs',1,0,'',51,0,0),(43935,9209,6,430,0,'157.100.146.2',1197562920,1,0,1,1,1,0,'','La última versión de VERCE de donde la descargo','En el encabezado ya lo dice casi todo; quiero bajar la última versión de VERCE 5.3, pero los enlaces que se indican en el foro en mensajes anteriores no funcionan; si alguien me lo puede enviar a mi mail sería fantastico o indicar un enlace de donde bajarlo.\n\nSaludos desde Ecuador\n\nFernando Espinoza','',0,'AIA=','6mckz8p7',1,0,'',430,0,0),(43936,9143,6,596,0,'85.62.69.206',1197563192,1,0,1,1,1,1,'','Re: El OutLook me bloquea el envio de correos desde FWH','[quote=&quot;Antonio Martinez&quot;:k8zy91wl]...Creo que eso no se puedequitar...[/quote:k8zy91wl]\nPues me has matao... <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \nSupongo que esta pensado para evitar el envio masivo de correos.\n\nPues tengo necesdad de desabilitar esa opcion, seguiremos buscando.\nGracias por las opiniones vertidas hasta ahora.','',0,'gA==','k8zy91wl',1,0,'',596,0,0),(43937,9146,6,596,0,'85.62.69.206',1197563289,1,0,1,1,1,1,'','','Alguna idea... ¡¡¡ Socorro !!!','',0,'gA==','2rcy4t5g',1,0,'',596,0,0),(43938,9210,6,1236,0,'201.86.91.184',1197563523,1,0,1,1,1,0,'','Como fazer isso com FIVEWIN?','do while .t.\n   cBanda := \"\"\n\n   do while .t.\n      tk := inkey(0)    &lt;-- Como substituir com o FWH?\n      if tk == 27 .or. tk == 58 .or. tk == 128 .or. tk == 135\n         exit\n      elseif chr(tk) $ \"0123456789\"  \n         cBanda += chr(tk)\n      endif\n   enddo\n\n   do while inkey(0.1) != 0; enddo  &lt;-- Como substituir com o FWH?\n\n   if tk == 27\n      return\n   endif\n\n   if len(cBanda) == 30\n      keyb cBanda\n      return\n   endif\n\nenddo\n\n\nMeus sinceros agradecimentos a quem puder ajudar!','',0,'gA==','cndywwyu',1,0,'',1236,0,0),(43939,9206,3,2,0,'87.218.146.240',1197563846,1,0,1,1,1,1,'','','You have to create a brush from a bitmap, and the bitmap has the painted gradient <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nDEFINE BRUSH oBrush RESOURCE &lt;cBmpResName&gt;\n\nor\n\nDEFINE BRUSH oBrush FILENAME &lt;cBmpFileName&gt;','',0,'gA==','2tb0gb2c',1,0,'',2,0,0),(43940,9183,3,49,0,'213.82.134.66',1197563990,1,0,1,1,1,1,'','','Rafael,\nWhere i can found pos.dll ?\ncan you send me this sample  please ?','',0,'gA==','14mhhm51',1,0,'',49,0,0),(43941,9208,3,2,0,'87.218.146.240',1197564356,1,0,1,1,1,1,'','','Michel,\n[code:2bke62b9]\nprocedure TestProc\n\n   if GetKeyState&#40; VK_SHIFT &#41;\n      &#46;&#46;&#46; your code &#46;&#46;&#46;\n   endif\n\nreturn\n[/code:2bke62b9]','',0,'AIA=','2bke62b9',1,0,'',2,0,0),(43942,9195,3,233,0,'60.53.84.252',1197565244,1,0,1,1,1,0,'','','Thanks Enrico, Stefan  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','xma82nnn',1,0,'',233,0,0),(43943,9195,3,49,0,'213.82.134.66',1197565671,1,0,1,1,1,1,'','','can you send me also ?','',0,'AIA=','1coksgwr',1,0,'',49,0,0),(43944,9211,2,1108,0,'189.141.16.130',1197566995,1,0,1,1,1,0,'','problema con campos memo','hola podrian ayudarme tengo una aplicacion donde una base de datos tiene 1 campo memo ahora mi programa me manda el siguiente error \n\nError description: error dbfcdx/2006 Corruption detected: corruption detected in memo-file;in function: flexGetMemoData;on line: 1200\n\n\nque podra estar pasando','',0,'AIA=','2pal75cl',1,0,'',1108,0,0),(43945,9183,3,47,0,'203.144.143.4',1197567110,1,0,1,1,1,0,'','','Dear Rafael,\nCould you pls send me too.\nThanks,\n<!-- e --><a href=\"mailto:dutchez4@gmail.com\">dutchez4@gmail.com</a><!-- e -->','',0,'AIA=','mutv9fr9',1,0,'',47,0,0),(43946,9208,3,47,0,'203.144.143.4',1197567380,1,0,1,1,1,0,'','','Dear Michel,\nThis code may help.\n[code:1il6inty]SETKEY&#40; VK_F9 , &#123;|| if&#40;GetKeyState&#40; VK_SHIFT &#41;, IntMail&#40;&#41;, if&#40;GetKeyState&#40; VK_CONTROL &#41;, LogBook&#40;&#41;, VcRms&#40;&#41; &#41; &#41; &#125; &#41;[/code:1il6inty]','',0,'AIA=','1il6inty',1,0,'',47,0,0),(43947,9212,3,1158,0,'200.159.198.27',1197567925,1,0,1,1,1,0,'','error btnget and fwh712','hi, i receive this:\n\nError description: Error BASE/1070  Erro nos parametros: ==\n   Args:\n     [   1] = C   \n     [   2] = N   0\n\nStack Calls\n===========\n   Called from: TGET.prg =&gt; TBTNGET:KEYDOWN(682)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.prg =&gt; TCONTROL:HANDLEEVENT(1392)\n   Called from: TGET.prg =&gt; TBTNGET:HANDLEEVENT(486)\n   Called from: WINDOW.prg =&gt; _FWH(3267)\n\ntheres any fix? thanks','',0,'','3p7oe2lw',1,0,'',1158,0,0),(43948,9146,6,511,0,'200.44.232.45',1197567971,1,0,1,0,1,1,'','','FUNCTION CrearHoja()\n    Local oExcel, oHoja\n\n    oExcel := TOleAuto():New( \"Excel.Application\" )\n    oExcel :WorkBooks:Open( \"prueba.xls\" )\n    oHoja  := oExcel:Get( \"ActiveSheet\" )\n\n    oExcel:Sheets( \"Hoja1\" ):Cells( 1, 1 ):Value := \"PRUEBA HOJA 1\"\n    oExcel:Sheets( \"Hoja2\" ):Cells( 1, 1 ):Value := \"PRUEBA HOJA 2\"\n\n    oExcel:Get( \"ActiveWorkbook\" ):Save()\n    oExcel:Quit()\n    oExcel:End()\nRETURN NIL','',0,'','39ywp9a8',1,0,'',511,0,0),(43949,9191,6,1072,0,'190.82.8.114',1197569436,1,0,1,1,1,0,'','','Amigo:\n\nPrimero que nada, muchas gracias a ambos, por su respuesta.\n\nTienes razon, pero es solo un error de transcripcion, la situacion es que sigo con el problema.\n\nQuisas la pregunta mas facil sea:\n\nComo busco un caracter que viene en una variable, dentro de un strin.\n\nvar1:=\"9\"      Varia a buscar\nVar2:=\"0123456789K\"  Variable sobre la que se debe buscar la variable var1.\n\nEn 16 bits usaba  ----&gt;  at(\"&amp;var1\",var2), pero en 32 bist, ya no lo hace, existe otro comando para hacerlo.\n <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\n\nMe es urgente.\n\nSaludos,\nAntonio\n \n\n[quote=&quot;ADBLANCO&quot;:pqsf09o2]NO SE SI ES ERROR DE TRANSCRIPCION\n\npero si pones\n\nDATO:= \"13.563.270-5\"\n\n\nEN LUGAR DE:\n\nDato: \"13.563.270-5\"\n\nTE TRABAJA!![/quote:pqsf09o2]','',0,'gA==','pqsf09o2',1,0,'',1072,0,0),(43950,9193,6,156,0,'201.244.194.165',1197571737,1,0,1,1,1,0,'','','Alfredo, Carles, Antonio, por eso amo este foro. Ustedes son maravillosos.\n\nEntrando en materia y resumiendo sus amables respuestas:\n\n1.- Me actualizo porque me gustaría poner en nuestras aplicaciones un nuevo look con estilo Office2007, el nuevo OutLook, entre otras nuevas prestaciones. Se acuerdan de una canción que dice \"Vanidad, por tu culpa he caído....\" \n\n\n2.- Por religión no utilizo ninguna librería de la que no tenga las fuentes. De todas tengo las fuentes, de las que hemos hecho nosotros, y de las que muy gentilmente han cedido colegas del foro.\n\n3.- Soy consciente de que cada actualización lleva implícita algunas modificaciones, las que en todo caso, han servido para ir mejorando nuestro código. Eso esta muy bien. Lo que pasa es que en esta ocasión nos está quedando grande.\n\n4.- Reconozco ahora el mea culpa por no haber sido constante en las actualizaciones y de paso confieso que me las estaba tomando de cómodo. Por mi edad (en pocos días cumplo 56, creo que soy de los más viejos, sino el más viejo del grupo) estaba tratando de llevar las cosas a media marcha. Prometo, ante Dios y el mundo, que a partir de ahora seré juicioso y pisaré el acelerador. Es más Antonio, para febrero del próximo año voy por FTDN, vale ?\n\n5.- Creanme amigos, que el uso de las Dll con código es formidable. Da una versatilidad impresionante y es (o era) 100% estable y sin limitaciones. Todo lo que pueden hacer en su código normal en el ejecutables, lo pueden poner en las Dll, inclusive con librería de terceros como TSButton, TSBrowse, el Browse de Hernán. hbZip, ADS, MySql, etc. NO HAY LIMITE. Simplemente tienen su aplicación básica y desde allí acceden al código en las Dll y funciona perfecto y sin afectar velocidad ni estabilidad, no importa si es Windos\'98, XP, Vista, 32 o 64 Bits. Que ventajas tiene ? Muchas: Hacer modificaciones sin tocar el ejecutable principal, simplemente envían la Dll al cliente y listo. Aumentar servicios a sus aplicaciones. Dar una verdadera y profesional escalabilidad a las mismas. Personalizar aplicaciones que son estándar. Por ejemplo, un programa para control de inventario que es igual para todo el mundo, se puede personalizar para cada cliente según sus gustos y necesidades, simplemente haciendo la Dll correspondiente y enviándosela, y muchas más.\n\nDe verdad los animo a que prueben. Animo a todos los colegas del foro a que prueben. Vale la pena, descubrirán un universo de posibilidades con su uso, y de paso, no me dejan solo. Y por lo que he podido ver, solo con FiveWin se puede hacer en forma estable, jejejejejeje..... (Antonio, es un Image Maker más para FiveWin). Pueden pasar todo tipo de parámetros, efectuar todo tipo de procesos, obtener todo tipo de respuesta de las funciones contenidas en las Dll\'s, etc., etc., etc.\n\nA la fecha, nuestros desarrollos están orientados, en un 70.% por lo menos, hacia las Dll\'s \n\nCuenten conmigo para cualquier ayuda al respecto. Si consideran necesario, con gusto preparo un ejemplo lo más completo que pueda, incluyendo fuentes y scripts de compilación y linqueo, eso si, sobre FWH 2.7 y xHarbour 0.9961. Ustedes sólo ordenen que yo obedezco, y estoy seguro que Antonio nos ayudará a mejorarlo.\n\n6.- Arturo, básicamente casi todos los botones y browses que utilizamos en nuestras aplicaciones están sobre TSButton y TSBrowse y nunca hemos tenido problema. Los botones se pueden cambiar por los nativos de FWH, es tedioso pero puede hacerse sin mayor conflicto. Pero los browses son otra cosa. TSBrowse (del desaparecido  y extrañado Manuel Mercado) tiene prestaciones que no tienes en las clases nativas de FWH como TWBrowse, TCBrowse, etc. La opción sería reemplazarla por xBrowse, no la he probado, pero lo que si he visto, es que implicaría cambio drástico de código y no tiene todas las prestaciones que tiene TSBrowse, ni su maravillos manejo del look, headers multilinea en 3D, rows multilinea, etc. Es así o estoy equivocado ?. Una luz al respecto me ayudaría mucho.\n\n7.- Antonio, la verdad, verdad, es que no tengo ni puñetera idea de cómo hacer el ejemplo sin usar FWH. Desde ayer estoy intentando hacer una rutina simple tipo Clipper D.O.S., pèro por supuesto compilada con xHarbour, pero no logro generar la Dll. Intenté con hbMaker y la generó pero no la lee el ejemplo que la invoca. Si me puedes orientar cómo hacerlo y me puedes enviar un ejemplo, incluídos los respectivos scripts, preparados para niños de kinder, te agradecería mucho.\n\n8.- Antonio, respecto a recompilar los PRGs de FWH 7.12 con xHarbour 0.99.61 me saltan algunas preguntas:\n\n- Con esto sólo recompilaría FIVEHX.LIB, pero entiendo que no están todas las fuentes (en prg o en C) que componen dicha librería o estoy equivocado. Qué PRGS o códigos en C estarían haciendo falta para no dejar funciones o prestaciones de las contenidas en FIVEHX.LIB deshabilitadas ? \n\n- Qué pasaría con FIVEHC.LIB ? Me imagino que si está en puro código C, no generaría problemas con la versión del PCODE de xHarbour y la que tú usaste para generarla. Estoy en lo correcto ?\n\n9.- Antonio, después releí lo que escribí al inicio de este post y me dí cuenta que estaba con un poquito de amargura. Espero que me comprendas que me causó mucho stress enfrentarme a problemas que hacia rato no tenía. Gracias por tu prudencia. Por eso eres mi MAESTRO.\n\nAmigos, por favor tomen mis comentarios por el lado amable. Soy un fanático de FiveWin y leal a morir. No importa lo que pase en el mundo, jamás dejaré de utilizar FiveWin ni me aventuraré por otros rumbos. FiveWin fue, es y será el mejor GUI que  existe para los que venimos de Clipper, y así Antonio me diga que ya no lo use más, pues de malas, porque lo seguiré usando mientras yo siga en este negocio. Así me digan ciego y cerrado, pues de malas, porque lo seguiré utilizando. Así por otros lados ofrezcan el cielo y la tierra, pues de malas, porque lo seguiré usando, no importa la versión. No importa la guerra que le hagan por otros lados, pues de malas, porque lo seguiré usando. Punto.\n\nAsi que amigos del alma, larga, larguísima vida a FiveWin. Es el mejor. Y metámosle duro el hombro para hacerlo cada día mejor.\n\nSaludos y abrazos,\n\nCarlos Gallego','',0,'gA==','ehgfp45e',1,0,'',156,0,0),(43951,9183,3,308,0,'84.148.4.59',1197574401,1,0,1,1,1,0,'','','Dear Rafael, \nCould you please send me too. \nThanks, Norbert\n\n<!-- e --><a href=\"mailto:nk@alphasoft.de\">nk@alphasoft.de</a><!-- e -->','',0,'gA==','2artin5g',1,0,'',308,0,0),(43952,9193,6,2,0,'87.218.146.240',1197574615,1,0,1,1,1,1,'','','Carlos,\n\n&gt; Con esto sólo recompilaría FIVEHX.LIB\n\nAsi es. FIVEHX.LIB solo contiene PRGs y se entregan todos ellos con FWH <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; \nQué pasaría con FIVEHC.LIB ? Me imagino que si está en puro código C, no generaría problemas con la versión del PCODE de xHarbour y la que tú usaste para generarla. Estoy en lo correcto ? \n&gt;\n\nSí. De todas formas, construye FIVEHX.LIB y pruébalo. Quizá necesites algo adicional y desde aqui te ayudaremos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1m5w1a1z',1,0,'',2,0,0),(43953,9193,6,2,0,'87.218.146.240',1197574864,1,0,1,1,1,1,'','','Carlos,\n\nDe todas formas vamos a intentar conseguir un ejemplo sin FWH que reproduzca los errores que comentas.\n\nOtra opción que tenemos es registrar los símbolos de los PRGs de las DLLs como se hacía antes, ya que desde #pragma BEGINDUMP se tiene acceso a \"symbols\" y con eso ya podemos hacerlo.','',0,'gA==','s80ahuyr',1,0,'',2,0,0),(43954,9210,6,2,0,'87.218.146.240',1197575186,1,0,1,1,1,1,'','','La función Inkey() no se usa en Windows ni en FWH. Inkey() tiene sentido en MsDos en donde la ejecución es modal, pero no tiene sentido en Windows, en donde la aplicación nunca se puede \"detener\", ó bloquearía todo Windows.\n\nEl objeto que tenga el foco recibirá los eventos de teclado y puedes analizarlos usando &lt;oControl&gt;:bKeyDown ó &lt;oControl&gt;:bKeyChar. Si no tienes controles definidos, pues usarías &lt;oDialog&gt; ó &lt;oWindow&gt; en vez de &lt;oControl&gt;','',0,'gA==','3ewcwtp4',1,0,'',2,0,0),(43955,9210,6,2,0,'87.218.146.240',1197575334,1,0,1,1,1,1,'','','Explica lo que intentas hacer.\n\nUn lector de código de barras ?','',0,'gA==','3thu9wcr',1,0,'',2,0,0),(43956,9212,3,2,0,'87.218.146.240',1197575497,1,0,1,1,1,1,'','','Norberto,\n\nWhat source code do you have in line 682 ?\n\nTBTNGET:KEYDOWN(682)','',0,'gA==','3pmc97b3',1,0,'',2,0,0),(43957,9211,2,2,0,'87.218.146.240',1197575725,1,0,1,1,1,1,'','','Parece que el fichero que contiene los campos memo está corrupto','',0,'gA==','3fx17qez',1,0,'',2,0,0),(43958,9183,3,217,0,'200.159.120.34',1197576135,1,0,1,1,1,0,'','','Rafael, \n\nCan you send pos.dll to me too? mouri_ryo AT hotmail DOT com\nOr host it in any place...\n\n\nRegards\nMaurilio','',0,'gA==','14toy5u6',1,0,'',217,0,0),(43959,9210,6,1236,0,'201.86.91.184',1197576412,1,0,1,1,1,0,'','','Gracias Antonio, o que desejo fazer é capturar a leitura de um leitor de cheques, conectado a PS2.\n\nOu seja uma dialog que fica esperando passar o cheque no leitor, e quando isso acontecer deve fechar a dialog. Bom resolvi temporariamente colocando um get na dialog, porém, não é o que eu queria pois não quero deixar a pessoa ter acesso a digitar.\n\ncomo fiz:\n\ncBanda  := \"\"\nDEFINE DIALOG oMFW RESOURCE \"LEITURADECHEQUES\" TITLE \"Cheques pela Banda  ICON OICO FONT ownd:ofont\nREDEFINE GET oLeget var nVarLe id 4004 of oMFW  VALID !EMPTY(nVarLe) .and. (lLido:=.t.,oMFW:end(),.t.) \nREDEFINE BUTTONBMP ID 4002 OF oMFW BITMAP \"EXIT4\" TEXTLEFT ACTION(oMFW:end()) default\noMFW:lHelpicon:=.F.\nACTIVATE DIALOG oMFW centered \n\n\ngracias Antonio','',0,'gA==','184yyxxr',1,0,'',1236,0,0),(43960,9191,6,78,0,'190.43.177.57',1197576878,1,0,1,1,1,0,'','','Hola, yolo hago asi:\n...\ncFrase := \"5\"\ncTexto := \"QWEDSAZX34RF5TGB6YHN7UJM8IK9OL0P\"\nnPos    := 0\n\nnPos :=  AT(cFrase, cTexto )\nIF nPos &gt; 0\n MsgAlert(\" la letra - \" + cFrase + \"- esta en la posicion \" + STR(nPos) )\nEndIf\n\n\nSalu2','',0,'gA==','orb95ql8',1,0,'',78,0,0),(43961,9205,3,1190,0,'83.144.114.249',1197578360,1,0,1,1,1,1,'','Re: Video: xBrowser in 2 minutes','[quote=&quot;Otto&quot;:2x9hwa8d][url:2x9hwa8d]http&#58;//www&#46;atzwanger&#46;com/fwvideo/xBTool2&#46;html[/url:2x9hwa8d][/quote:2x9hwa8d]\n\nWOW <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'kA==','2x9hwa8d',1,0,'',1190,0,0),(43962,9191,6,1072,0,'190.82.8.114',1197580306,1,0,1,1,1,0,'','','Willi:\n\nMil gracias amigo, funciono perfecto.\n\nSaludos,\nAntonio\n\n[quote=&quot;Willi Quintana&quot;:2ciw8rr7]Hola, yolo hago asi:\n...\ncFrase := \"5\"\ncTexto := \"QWEDSAZX34RF5TGB6YHN7UJM8IK9OL0P\"\nnPos    := 0\n\nnPos :=  AT(cFrase, cTexto )\nIF nPos &gt; 0\n MsgAlert(\" la letra - \" + cFrase + \"- esta en la posicion \" + STR(nPos) )\nEndIf\n\n\nSalu2[/quote:2ciw8rr7]','',0,'gA==','2ciw8rr7',1,0,'',1072,0,0),(43963,9202,3,303,0,'72.220.181.80',1197581133,1,0,1,1,1,0,'','','Rick,\n\n&gt;I want to be able to set the ESC key off for my application globally. \n\nI wonder why? This is a standard way to cancel whatever you are doing. As a user, I would be quite frustrated by the Esc key being disabled. Users always want some way to either undo or cancel whatever they are doing. Not allowing this is going to force them to cheat--and this is often going to pollute the database with bogus data.\n\nJames','',0,'gA==','18ve6bya',1,0,'',303,0,0),(43964,9193,6,156,0,'201.244.199.66',1197581181,1,0,1,1,1,0,'','','Antonio, gracias.\n\n&gt;\nAsi es. FIVEHX.LIB solo contiene PRGs y se entregan todos ellos con FWH  \n&lt;\n\nPerfecto\n\n&gt;\n Sí. De todas formas, construye FIVEHX.LIB y pruébalo. Quizá necesites algo adicional y desde aqui te ayudaremos \n&lt;\n\nMe pongo inmediatamente en la tarea.\n\n&gt;\nOtra opción que tenemos es registrar los símbolos de los PRGs de las DLLs como se hacía antes, ya que desde #pragma BEGINDUMP se tiene acceso a \"symbols\" y con eso ya podemos hacerlo.\n&lt;\n\nMe podrías ayudar con un ejemplo sencillo de cómo hacerlo ?\n\nCuál de las dos opciones es mejor para efectos de estabilidad, recompilar con 0.99.61 o registrar los símbolos de los PRGs ?\n\nSaludos,\n\nCarlos Gallego','',0,'gA==','2v5v6bag',1,0,'',156,0,0),(43965,9193,6,2,0,'87.218.146.240',1197581833,1,0,1,1,1,1,'','','Carlos,\n\n&gt;\nCuál de las dos opciones es mejor para efectos de estabilidad, recompilar con 0.99.61 o registrar los símbolos de los PRGs ?\n&gt;\n\nDe momento recompila con 0.99.61 y prueba tu aplicación.\n\nMientras estamos revisando los cambios que se han hecho en las DLLs de pcode, y a ver si encontramos un ejemplo que reproduzca lo que nos comentas','',0,'gA==','83i4rlc8',1,0,'',2,0,0),(43966,9183,3,303,0,'72.220.181.80',1197581941,1,0,1,1,1,0,'','','Rafael, \n\nI am also interested in a copy of pos.dll.\n\nThanks,\nJames','',0,'gA==','1xhfb9z5',1,0,'',303,0,0),(43967,9193,6,2,0,'87.218.146.240',1197582707,1,0,1,1,1,1,'','','Carlos,\n\nHemos probado tu ejemplo que usa OemToAnsi() en la DLL y funciona perfectamente.\n\nPor favor intenta proporcionarnos un ejemplo que falle (aunque use FWH), gracias','',0,'gA==','3idy33cx',1,0,'',2,0,0),(43968,9208,3,86,0,'81.83.151.142',1197584085,1,0,1,1,1,1,'','','Sorry guys,\n\nThanks a lot for your help.\n\nI tried both possibilities but unfortunately without any luck.\n\nWhen I press Shift-F9, nothing happens.\n\nGreetings,','',0,'gA==','7951xznz',1,0,'',86,0,0),(43969,9195,3,6,0,'87.13.209.243',1197584229,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1twhumif]can you send me also ?[/quote:1twhumif]\n\nSent.\n\nEMG','',0,'gA==','1twhumif',1,0,'',6,0,0),(43970,9193,6,156,0,'201.244.199.66',1197584252,1,0,1,1,1,0,'','','Antonio,\n\n\n[url:10f3h8hk]http&#58;//mastersoft3000&#46;com/publico/prudll&#46;zip[/url:10f3h8hk]\n\nContiene fuentes del ejemplo y de la dll, bats y scripts de compilación que estoy usando. De pronto ha cambiando algo en los parámetros de compilación o Linkeo, o ahora hay que hacer algo más y me hace falta.\n\nPor favor prueba y me cuentas.\n\nSaludos,\n\nCarlos Gallego','',0,'EA==','10f3h8hk',1,0,'',156,0,0),(43971,9212,3,1158,0,'200.159.198.27',1197585311,1,0,1,1,1,0,'','','Antonio, this:\n\n   if ::bKeyDown != nil\n      if Eval( ::bKeyDown, nKey, nFlags, Self ) == 0\n         return 0\n      endif\n   endif\n\ni comment this , and works again, but i dont know what´s affect.\n\nthanks','',0,'EA==','hfoavvnz',1,0,'',1158,0,0),(43972,9213,3,267,0,'201.9.134.110',1197585449,1,0,1,1,1,1,'','Problem with SAY Transparent - FWH 7.12','Hi Antonio,\n\nBefore update for version 7.12 it used the following one:\n[code:28bmrrri]\nDEFINE BRUSH oBrush FILENAME &quot;VFATEC01&#46;BMP&quot;\n\nDEFINE DIALOG oWnd RESOURCE &quot;MEMORY&quot; BRUSH oBrush TRANSPARENT ICON oIcone\n     REDEFINE SAY oSay&#91;3&#93; TRANSPARENT ID 101          COLOR CLR_HRED  FONT oFont&#91;2&#93; OF oWnd UPDATE\nACTIVATE DIALOG oWnd\n[/code:28bmrrri]\n\nAnd had the following result when it executed oSay[3]:SetText(\"PASTILHA...\")\n\n[url=http&#58;//img149&#46;imageshack&#46;us/my&#46;php?image=clipboard1fx7&#46;jpg:28bmrrri][img:28bmrrri]http&#58;//img149&#46;imageshack&#46;us/img149/949/clipboard1fx7&#46;th&#46;jpg[/img:28bmrrri][/url:28bmrrri]\n\nNow when I execute the same command happens the following one:\n\n[url=http&#58;//img252&#46;imageshack&#46;us/my&#46;php?image=clipboard2kw0&#46;jpg:28bmrrri][img:28bmrrri]http&#58;//img252&#46;imageshack&#46;us/img252/1245/clipboard2kw0&#46;th&#46;jpg[/img:28bmrrri][/url:28bmrrri]','',0,'GIA=','28bmrrri',1,0,'',267,0,0),(43973,9212,3,868,0,'219.64.121.60',1197587375,1,0,1,1,1,1,'','','Where is teh TBtnGet Class? It is not in FWH.','',0,'GIA=','f545hlem',1,0,'',868,0,0),(43974,9183,3,1193,0,'203.70.2.12',1197587767,1,0,1,1,1,0,'','','Hi Rafael, \n\nCould you send to me again?\n<!-- e --><a href=\"mailto:richard-service@hotmail.com\">richard-service@hotmail.com</a><!-- e -->\n\nRegards,\n\nRichard','',0,'GIA=','24s7vzau',1,0,'',1193,0,0),(43975,9193,6,2,0,'87.218.146.240',1197587825,1,0,1,1,1,1,'','','Carlos,\n\nEse es el mismo ejemplo que ya nos distes y que hemos probado y que funciona bien.\n\nO le has modificado algo ?','',0,'GIA=','2ndt60qq',1,0,'',2,0,0),(43976,9202,3,35,0,'65.188.6.143',1197590381,1,0,1,1,1,0,'','','James\n\nIn all my listbox look up code .. I return values from a data row and populate a form .. I can enter a value in a get .. then the valid starts the listbox of values .. if you hit the ESC key and do not select OK or Cancel .. the origional get value remaines and is saved to the form table .. not desirable in a SQL environment when I need to save the primary key as well as the value of the row picked.\n\nGranted .. this is a small and rare occurence but I would just as soon disable ESC all together..\n\nJust my 2 cents there ..\nRick','',0,'GIA=','3m3h8s2x',1,0,'',35,0,0),(43977,9213,3,2,0,'87.218.146.240',1197590649,1,0,1,1,1,1,'','','Vilian,\n\nAre you using the themes manifest file in your RC file ?\n\nWhat FWH version were you using before ?','',0,'GIA=','1ebcg0lg',1,0,'',2,0,0),(43978,9213,3,267,0,'201.9.199.16',1197591278,1,0,1,1,1,1,'','','Antonio,\n\nYes i use manifest. The before version is 2.8(dez/2006)','',0,'GIA=','24fcpacp',1,0,'',267,0,0),(43979,9213,3,2,0,'87.218.146.240',1197591295,1,0,1,1,1,1,'','','Vilian,\n\nThis test is working fine:\n[code:10ctyg7f]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, oSay\n\n   DEFINE BRUSH oBrush FILENAME &quot;test&#46;BMP&quot; \n\n   DEFINE DIALOG oDlg RESOURCE &quot;test&quot; BRUSH oBrush TRANSPARENT\n\n   REDEFINE SAY oSay TRANSPARENT ID 101 COLOR CLR_HRED OF oDlg UPDATE \n\n   REDEFINE BUTTON ID 1 OF oDlg ACTION oSay&#58;SetText&#40; Time&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg \n\nreturn nil\n[/code:10ctyg7f]\n[code:10ctyg7f]\n1 24 &quot;WindowsXP&#46;Manifest&quot; \n\ntest DIALOG 67, 59, 194, 119\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;Test&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;OK&quot;, IDOK, 75, 97, 50, 14\n PUSHBUTTON &quot;Cancel&quot;, IDCANCEL, 135, 97, 50, 14\n LTEXT &quot;Text&quot;, 101, 28, 35, 60, 8\n&#125;\n[/code:10ctyg7f]\n[url=http&#58;//imageshack&#46;us:10ctyg7f][img:10ctyg7f]http&#58;//img185&#46;imageshack&#46;us/img185/9103/vilianlk6&#46;png[/img:10ctyg7f][/url:10ctyg7f]','',0,'GIA=','10ctyg7f',1,0,'',2,0,0),(43980,9212,3,1158,0,'200.159.198.27',1197592356,1,0,1,1,1,0,'','','BtnGet is an 3rd part lib , free, i compile the source. works fine until fwh712.','',0,'GIA=','1w7qgxu4',1,0,'',1158,0,0),(43981,9212,3,2,0,'87.218.146.240',1197592698,1,0,1,1,1,1,'','','Norberto,\n\nPlease modify Class TGet this way:\n[code:3glqtpvu]\n   if &#58;&#58;bKeyDown != nil\n      if ValType&#40; uVal &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41; &#41; == &quot;N&quot; &#46;and&#46; ;\n         uVal == 0\n         return 0\n      endif   \n   endif   \n[/code:3glqtpvu]','',0,'AIA=','3glqtpvu',1,0,'',2,0,0),(43982,9193,6,156,0,'201.244.199.66',1197593990,1,0,1,1,1,0,'','','Oops, discúlpame. Es el mismo  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nExtraño, de todas formas lo recompilé y probé, y a mi me generó el error. Usaste los mismos scripts que están en el ejemplo u otros ?. De pronto puede ser algo en los scripts.\n\nSaludos,\n\nCarlos Gallego','',0,'AIA=','1zw16p6i',1,0,'',156,0,0),(43983,9208,3,47,0,'203.144.143.4',1197598155,1,0,1,1,1,0,'','','Dear driessen,\n\nYou must put this line on the top of Main Procedure and the rest will work fine.  I use this for many years.\n\nRegards,\nDutch','',0,'AIA=','1wsnv3ct',1,0,'',47,0,0),(43984,9214,6,78,0,'190.43.177.57',1197598594,1,0,1,1,1,0,'','Datos por Telefono','Hola amigos,\nEs posible que por medio de un telefono movil se pueda acceder a una base de datos y hacer actualizaciones, pedidos etc??\n\nSalu2','',0,'AIA=','ml1oqmk4',1,0,'',78,0,0),(43985,9183,3,936,0,'190.56.174.2',1197599319,1,0,1,1,1,0,'','','Hi Rafael, \n\nCould you send to me again? \n<!-- e --><a href=\"mailto:sincuir@yahoo.com\">sincuir@yahoo.com</a><!-- e -->\n\nThanks in advance.\nBest Regards.\n\nCarlos.','',0,'AIA=','1oaukjzc',1,0,'',936,0,0),(43986,9191,6,1201,0,'190.78.115.191',1197600198,1,0,1,1,1,0,'','','No se pasa, pero pienso que debes revisar tu instalación ya que coloque lo que mandastes en la pregunta original (corrigiendo el error de transcripcion) y me trabajó perfecto.\n\n\nSaludos, Angel','',0,'AIA=','3leyx21u',1,0,'',1201,0,0),(43987,9215,6,72,0,'201.137.93.49',1197603408,1,0,1,1,1,0,'','Error con Transform(nValor,&quot;@( &quot;)','Eso...\n\nResulta que ahora los valores negativos obtenidos con \"@( 999,999\" se presentan con paréntesis y signo:  ( -123,123)\n\nSe que no es problema de FiveWin, sino de xHarbor.\n\nPero no se a donde recurrir.','',0,'AIA=','1ghbbqjc',1,0,'',72,0,0),(43988,9216,19,233,0,'218.111.61.90',1197603851,1,0,1,1,1,0,'','phpBB Version 3.0 launched','[url=http&#58;//www&#46;phpbb&#46;com/about/press/:1ixv6ska]Press Release[/url:1ixv6ska]\n[url=http&#58;//www&#46;phpbb&#46;com/about/features/?sid=5d04d864ce301df790fd4bb459fb4b6a/:1ixv6ska]phpBB2 - phpBB3 Feature Comparison[/url:1ixv6ska]','',0,'EA==','1ixv6ska',1,0,'',233,0,0),(43989,9205,3,233,0,'218.111.61.90',1197603961,1,0,1,1,1,0,'','','Cool!','',0,'EA==','1d5i1cf6',1,0,'',233,0,0),(43990,9212,3,239,0,'59.40.14.57',1197610439,1,0,1,1,1,0,'','','\\source\\btnget.prg\n\nline 128:\nchange  \n::bKeyDown        := { | nKey | IIF( nKey == VK_F2, ;\n                            eval( ::bAction ),  \"\") }\n\ninto\n\n::bKeyDown        := { | nKey | IIF( nKey == VK_F2, ;\n                            eval( ::bAction ),  ) }\n\n\nRegards!\n\nShuming Wang','',0,'EA==','1f44qluu',1,0,'',239,0,0),(43992,9143,6,838,0,'80.34.222.112',1197617304,1,0,1,1,1,0,'','','Yo ya me he molestado en buscar, y nada\n\nSi miras en éste foro he puesto bastantes post sobre el tema, y me cansé de buscar solución, pero no la encontré, así que la única solución que hay es o usar tsmtp o blat.\n\nSaludos','',0,'EA==','2pvzyjdl',1,0,'',838,0,0),(43993,9202,3,303,0,'72.220.181.80',1197619929,1,0,1,1,1,0,'','','Rick,\n\n&gt;if you hit the ESC key and do not select OK or Cancel...\n\nIs your listbox on a dialog? If so, can\'t you just code it so the Esc key and Cancel button do the same thing?\n\n[code:2z0l9mpp]redefine button ID_OK action&#40; whatever&#40;&#41;, lOK&#58;=&#46;t&#46;, oDlg&#58;end&#40;&#41;&#41;\n\nactivate dialog oDlg\n\n// This gets executed w/ Esc or Cancel button\nif ! lOK\n   do whatever\nendif[/code:2z0l9mpp]\n\nJames','',0,'AIA=','2z0l9mpp',1,0,'',303,0,0),(43994,9146,6,106,0,'85.34.123.173',1197620555,1,0,1,1,1,1,'','','JmGarcia, \n\nprueba esto:\n\n\n oExcel:Sheets(1):Select()\n oExcel:Sheets:Add()\n\n\n\nSaludos','',0,'AIA=','covvknie',1,0,'',106,0,0),(43995,9217,3,2,0,'87.218.146.240',1197622156,1,0,1,1,1,1,'','Build an import library for xHB commercial','polib /DEF:oledlg.def /OUT:oledlg.lib /MACHINE:X86\n\nremove \".dll\" from the def file (first line): [color=red:3uh955d6]OLEDLG instead of OLEDLG.DLL[/color:3uh955d6]\nOLEDLG.DEF\n[code:3uh955d6]\nLIBRARY     OLEDLG   \n\nEXPORTS\n    OleUIAddVerbMenuA              @1   ; OleUIAddVerbMenuA\n    OleUIAddVerbMenuW              @13  ; OleUIAddVerbMenuW\n    OleUIBusyA                     @8   ; OleUIBusyA\n    OleUIBusyW                     @14  ; OleUIBusyW\n    OleUICanConvertOrActivateAs    @2   ; OleUICanConvertOrActivateAs\n    OleUIChangeIconA               @6   ; OleUIChangeIconA\n    OleUIChangeIconW               @15  ; OleUIChangeIconW\n    OleUIChangeSourceA             @12  ; OleUIChangeSourceA\n    OleUIChangeSourceW             @16  ; OleUIChangeSourceW\n    OleUIConvertA                  @7   ; OleUIConvertA\n    OleUIConvertW                  @17  ; OleUIConvertW\n    OleUIEditLinksA                @5   ; OleUIEditLinksA\n    OleUIEditLinksW                @18  ; OleUIEditLinksW\n    OleUIInsertObjectA             @3   ; OleUIInsertObjectA\n    OleUIInsertObjectW             @19  ; OleUIInsertObjectW\n    OleUIObjectPropertiesA         @11  ; OleUIObjectPropertiesA\n    OleUIObjectPropertiesW         @20  ; OleUIObjectPropertiesW\n    OleUIPasteSpecialA             @4   ; OleUIPasteSpecialA\n    OleUIPasteSpecialW             @21  ; OleUIPasteSpecialW\n    OleUIPromptUserA               @10  ; OleUIPromptUserA\n    OleUIPromptUserW               @22  ; OleUIPromptUserW\n    OleUIUpdateLinksA              @9   ; OleUIUpdateLinksA\n    OleUIUpdateLinksW              @23  ; OleUIUpdateLinksW\n[/code:3uh955d6]','',0,'AoA=','3uh955d6',1,0,'',2,0,0),(43996,9207,3,2,0,'87.218.146.240',1197622493,1,0,1,1,1,1,'','','Silvio,\n\nWe have not included any modules from you as you were considering to sell them, so we were respecting your desition','',0,'AoA=','2ynvrb03',1,0,'',2,0,0),(43997,9208,3,2,0,'87.218.146.240',1197622587,1,0,1,1,1,1,'','','Michel,\n\n&gt; When I press Shift-F9, nothing happens. \n\nWhat control has the focus when you press them ?','',0,'AoA=','31aabaxe',1,0,'',2,0,0),(43998,9183,3,154,0,'84.223.75.196',1197622852,1,0,1,1,1,1,'','','[quote=&quot;Rafael Clemente&quot;:3661o3gf]Otto, Randal:\nIf you send me your email I can send you one working sample \nRafael[/quote:3661o3gf]\nDear Rafael, \n\nCould you please send to me? \n<!-- e --><a href=\"mailto:garombo@libero.it\">garombo@libero.it</a><!-- e --> \n\nThanks in advance.','',0,'gA==','3661o3gf',1,0,'',154,0,0),(43999,9216,19,2,0,'87.218.146.240',1197623258,1,0,1,1,1,1,'','','Hua,\n\nThanks for the info! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nDo you know any PHP applications similar to osCommerce ?','',0,'gA==','tswcnp5p',1,0,'',2,0,0),(44000,9193,6,2,0,'87.218.146.240',1197623495,1,0,1,1,1,1,'','','Carlos,\n\nNosotros copiamos el código que crea el diálogo, usando OemToAnsi(), al ejemplo samples\\pcodedll.prg y funcionó perectamente desde samples\\TestDllP.prg\n\nPara construir la DLL usamos samples\\Buildxdp.bat que es una variación de samples\\Buildhdp.bat\n\nSi quieres copiamos aqui el contenido de samples\\Buildxdp.bat','',0,'gA==','3vxv7gp3',1,0,'',2,0,0),(44001,9214,6,2,0,'87.218.146.240',1197623661,1,0,1,1,1,1,'','','Willi,\n\nPermite el teléfono acceso a Internet ?\n\nSi el teléfono tuviese \"Windows Mobile\" entonces tendrías todo el control que necesites, como si de un PC se tratase <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','27oy7gmt',1,0,'',2,0,0),(44002,9215,6,2,0,'87.218.146.240',1197623897,1,0,1,1,1,1,'','','Alfredo,\n\nComéntalo en comp.lang.xharbour accesible desde Google \"grupos\"\n\nGracias!','',0,'gA==','6g1txn1k',1,0,'',2,0,0),(44003,9198,3,2,0,'87.218.146.240',1197624159,1,0,1,1,1,1,'','','Marco,\n\nWe have tried it as we commented it but it does not work properly.\n\nI guess the solution is to use a timer and IsExeRunning() to quit the application if it is already running previously, but before copy in a text file the name of the new file to open. And the timer from the first EXE will open it.','',0,'gA==','339lgbuy',1,0,'',2,0,0),(44004,9143,6,596,0,'85.62.69.206',1197624207,1,0,1,1,1,1,'','','[quote=&quot;JoseLuis&quot;:1zi3u2te]...así que la única solución que hay es o usar tsmtp o blat...[/quote:1zi3u2te]\nMuchas gracias... encauzare el tema por el TSMTP o BLAT.','',0,'gA==','1zi3u2te',1,0,'',596,0,0),(44005,9183,3,130,0,'141.51.32.24',1197624237,1,0,1,1,1,1,'','','Hi Rafael,\n\ncould you please sent it to me, too ?\n\n<!-- e --><a href=\"mailto:sthaupt@uni-kassel.de\">sthaupt@uni-kassel.de</a><!-- e -->','',0,'gA==','h0zlbdtn',1,0,'',130,0,0),(44006,9057,3,2,0,'87.218.146.240',1197625307,1,0,1,1,1,1,'','','Stefan,\n\nYour RC sample is properly working with this new build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/23020-336207403e.html\">http://www.hotshare.net/file/23020-336207403e.html</a><!-- m -->\n\nThanks!','',0,'gA==','38nfe669',1,0,'',2,0,0),(44007,9183,3,805,0,'88.36.233.74',1197628112,1,0,1,1,1,0,'','','Hi Rafael\n\nPlease Could you send me too.\nThanks,\n<!-- e --><a href=\"mailto:giuliano.puppis@bluenergygroup.it\">giuliano.puppis@bluenergygroup.it</a><!-- e -->\n\nBye','',0,'gA==','32b24z88',1,0,'',805,0,0),(44008,9198,3,6,0,'82.59.197.29',1197629254,1,0,1,1,1,1,'','','I found that the easier solution is using the \"sendto\" directory. Any program link placed inside that directory will receive all the selected file names as parameters.\n\nEMG','',0,'gA==','e25176h5',1,0,'',6,0,0),(44009,9198,3,868,0,'210.212.216.67',1197630139,1,0,1,1,1,1,'','','Mr Enrico\n\nGreat. This works.\n\nNow if we are able to add our program name to the RightClick Menu that gives it the final professional look.','',0,'gA==','1yj915a1',1,0,'',868,0,0),(44010,9198,3,297,0,'217.57.213.130',1197632534,1,0,1,1,1,0,'','','Perfect!\n\nI have already modified a program in this way:\n..\nLOCAL aImageImp := {}\n..\nIF FILE( HB_ArgV( 1 ) )\n   FOR i := 1 TO HB_ArgC()\n       AADD( aImageImp , HB_ArgV( i ) )\n   NEXT i\nENDIF\n..\n..\n..\n..\nACTIVATE WINDOW oMain ;\n        ON INIT IIF( LEN( aImageImp ) &gt;0 , imp_image(aImageImp) , )\n\nFUNCTION imp_image start automatically IF I run program from SendTo etc. etc. with selected files\n\nIs very useful for a lot of works\nHave a nice weekend to all','',0,'gA==','3b0zwgsi',1,0,'',297,0,0),(44011,9183,3,58,0,'84.149.107.109',1197635096,1,0,1,1,1,0,'','','Hi Rafael,\n\ni hope i\'m not too late with my request for a copy of your pos.dll\n\nMany thanks and regards,\nDetlef','',0,'gA==','3s7u0ttb',1,0,'',58,0,0),(44012,9216,19,233,0,'60.50.113.1',1197635771,1,0,1,1,1,0,'','','I\'m afraid not Antonio  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  The only 2 commerce related scripts that I\'ve heard of are OSCommerce and [url=http&#58;//www&#46;agoracart&#46;com/:2d5fx2ei]AgoraCart[/url:2d5fx2ei]. AgoraCart is a Perl/MySql based solution.','',0,'EA==','2d5fx2ei',1,0,'',233,0,0),(44013,9183,3,533,0,'80.32.177.143',1197636794,1,0,1,1,1,0,'','','Rafael, please, can you send me too?\n\nregards,\n\n<!-- e --><a href=\"mailto:mserracat@terra.es\">mserracat@terra.es</a><!-- e -->','',0,'EA==','3b34tnvp',1,0,'',533,0,0),(44014,9111,7,720,0,'80.36.244.134',1197637568,1,0,1,1,1,0,'','','Hola a todos...\n\nBueno he encontrado un software que permite hacer lo que necesitaba. No coloco el nombre aqui para no hacer publicidad puesto que considero que este medio debe ser exclusivamente para fivewin. \n\nNo obstante si a alguien le puede interesar que me envie un correo y le comento el tema.\n\nGracias.\n\nSaludos.\n\nElías Torres.','',0,'EA==','2wz9mhpg',1,0,'',720,0,0),(44015,9183,3,63,0,'88.11.29.98',1197637985,1,0,1,1,1,0,'','','Detlef:\nWhere to shall I send it?\nRafael','',0,'EA==','2ivhl1uc',1,0,'',63,0,0),(44016,9183,3,49,0,'213.82.134.66',1197638979,1,0,1,1,1,1,'','','use <!-- w --><a class=\"postlink\" href=\"http://www.Hyperupload.com\">www.Hyperupload.com</a><!-- w -->\n\n\n\nRegards,Saludos','',0,'EA==','3uuu06o3',1,0,'',49,0,0),(44017,9218,3,49,0,'213.82.134.66',1197639067,1,0,1,1,1,1,'','SET laNGUAGE','How I can Set language ( Italian, english, germany) and What I must insert on compilation batch ?\n\nthe application must write on language of pc of user..it is possible ?','',0,'EA==','11mtmmfi',1,0,'',49,0,0),(44018,9219,20,49,0,'213.82.134.66',1197639376,1,0,1,1,1,1,'','settare la lingua','si puo\' fare inmodo che quando l\'utente apre un applicazione i messaggi o l escritte per esempio i giorni della settimana, il mese del calendario sia scritto in italiano oppure se l\'applicazione viene usata in america e l\'utente ha il pc settato conla lingua inglese l\'applicazione scrive in inglese ?\n\nquali comandi devo inserire e quale librerie nella compilazione ?','',0,'EA==','2wr3v9n4',1,0,'',49,0,0),(44019,9220,3,51,0,'80.122.88.242',1197639417,1,0,1,1,1,0,'','How to save a ofont to disk and read from','How can I save a oFont object to disk and read from disk?\n\nThanks in advance,\nOtto','',0,'EA==','2g3xswu5',1,0,'',51,0,0),(44020,9221,6,362,0,'200.158.18.206',1197640455,1,0,1,1,1,1,'','Llamar WORKSHOP.EXE en C:\\FWH\\SAMPLES','Llamar el WORKSHOP.EXE en la PASTA DEL FIVEWIN...\n\nBuenas amigos...\n\n[code:jk1fefi8]\n@ECHO OFF\nC&#58;\\WORKSHOP\\BIN\\WORKSHOP %1\n[/code:jk1fefi8]\n\nEsto funciona, en cualcuer directorio, ou sea, consigo EDITAR CUALCUER ARCHIVO.RES\nen cualcuer directorio.\n\nMas, se estuver en el directorio C:\\FWH27\\SAMPLES, No consigo EDITAR NINGUN ARCHIVO.RES\n\nSimplesmente el ARCHIVO DE LOTE: WS.BAT, NO LLAMA EL WORKSHOP.EXE Porque??\n\nIdeas??\n\nBest Regards, saludos.','',0,'AIA=','jk1fefi8',1,0,'',362,0,0),(44021,9222,6,1236,0,'201.86.91.184',1197641011,1,0,1,1,1,0,'','SENDMAIL, unresolved external!','Antonio, uso FWH71+xharbour 99.71, e estou usando a TIP.LIB, porem me acontece:\n\nCompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'TESTGET3.prg\' and generating preprocessed output to \'TESTGET3.ppo\'...\n\nTESTGET3.prg(37) Warning W0005  RETURN statement with no return value in functio\nn\nLines 45, Functions/Procedures 3\nGenerating C source output to \'TESTGET3.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\ntestget3.c:\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_SENDMAIL\' referenced from C:\\FWH71\\SAMPLE\nS\\TESTGET3.OBJ\n* There are errors\n\n\nUsted resolveu no seguinte topico enviando uma versão do xharbour:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8686&amp;highlight=sendmail\">http://fivetechsoft.com/forums/viewtopi ... t=sendmail</a><!-- m -->\n\n\nObrigado','',0,'AIA=','2qb2mul5',1,0,'',1236,0,0),(44022,9202,3,35,0,'167.7.140.254',1197642113,1,0,1,1,1,0,'','','James\n\nThe list box is a listbox within a dialog that is activated from a Valid on a get. I think the ESC behavior is more a function of the Valid than the listbox .. however, I would like to \'trap\' the ESC key press within the listbox and force the \'cancel\' route .. here is a typical code snipit ..\n\nREDEFINE GET oMTRPOOL   VAR zMTRPOOL   ID 135 of oGRPS PICTURE \"@!\"  ;\n            when ( xSUPER = \'Y\' .or. xADMIN = \'Y\'.or. xMGR = \'Y\' .or. xTECH = \'Y\' );\n            valid MTRPGET( zMTRPOOL, cMODE, oMTRPOOL, oRsVEH, \"VEHICLES\", zPOOLID ) UPDATE  // mtrpslct.prg\n\n\n//----------------------\nFunc MTRPGET( cNAME, cMODE, oOBJ, oRs, cTABLE ) \n\nLOCAL oDLG,oLBX\nLOCAL oBTN1,oBTN2,oBTN3\nLOCAL oRsMTP, oErr, cSQL\n\nIF cNAME = \"ALL\" .and. cMODE = \'R\'\n   RETURN(.T.)\nENDIF\n\nIF EMPTY( oOBJ )\n   oOBJ := \" \"\nENDIF\n\nIF cMODE = \"E\"\n   DO CASE\n   CASE cTABLE = \"AGENCY\"\n      IF cNAME  = oRs:Fields(\"MOTORPOOL\"):Value .and.;\n                  oRs:Fields(\"MOTORPOOL\"):Value &lt;&gt; SPACE(LEN(oRs:Fields(\"MOTORPOOL\"):Value))\n         RETURN(.T.)\n      ENDIF\n   CASE cTABLE = \"VEHICLES\"\n      IF cNAME  = oRs:Fields(\"MOTORPOOL\"):Value .and.;\n                  oRs:Fields(\"MOTORPOOL\"):Value &lt;&gt; SPACE(LEN(oRs:Fields(\"MOTORPOOL\"):Value))\n         RETURN(.T.)\n      ENDIF\n   CASE cTABLE = \"MPOOLOC\"\n      IF cNAME  = oRs:Fields(\"mtrpool\"):Value .and.;\n                  oRs:Fields(\"mtrpool\"):Value &lt;&gt; SPACE(LEN(oRs:Fields(\"mtrpool\"):Value))\n         RETURN(.T.)\n      ENDIF\n   ENDCASE\nENDIF\n\noRsMTP:= TOleAuto():New( \"ADODB.Recordset\" )\noRsMTP:CursorType     := 1        // opendkeyset\noRsMTP:CursorLocation := 3        // local cache\noRsMTP:LockType       := 3        // lockoportunistic\n\ncSQL := \"SELECT * FROM MTRPOOL where AGENEID = \'\"+xAGENEID+\"\' order by AGENCY,MTRPOOL\"\n\nTRY\n   oRsMTP:Open( cSQL,\'Provider=\'+xPROVIDER+\';Data Source=\'+xSOURCE+\';Initial Catalog=\'+xCATALOG+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD )\nCATCH oErr\n   MsgInfo( \"Error in Opening MTRPOOL table\" )\n   RETURN(.F.)\nEND TRY\n\nIF EMPTY( cNAME )\n   cNAME := \"BOGUS\"\nENDIF\n\ncNAME := UPPER(ALLTRIM(cNAME))\n\nIF .not. oRsMTP:eof\n   oRsMTP:MoveFirst()\nENDIF\n\noRsMTP:Find( \"MTRPOOL LIKE \'\"+cNAME+\"%\'\" )\n\nIF oRsMTP:eof\n   oRsMTP:MoveFirst()\nENDIF\n\n\nDEFINE DIALOG oDlg RESOURCE \"MTRPSLCT\"     ;\n       COLOR \"W+/W\"                        ;\n       TITLE \"Motorpool Select\"            ;\n\n   REDEFINE LISTBOX oLBX FIELDS          ;\n     oRsMTP:Fields(\"MTRPOOL\"):Value      ;\n     HEADERS \"Motorpool\"                 ;\n     SIZES 100                           ;\n     ID 111 of oDlg                      ;\n     UPDATE\n\n   REDEFINE BUTTON oBTN2 ID 113                ;\n       ACTION ( zPOOLID   := oRsMTP:Fields(\"poolid\"):Value, ;\n                zMTRPOOL  := oRsMTP:Fields(\"MTRPOOL\"):Value, ;\n                oOBJ:Refresh(),                ;\n                oDlg:END() )\n\n   REDEFINE BUTTON oBTN2 ID 112             ;\n       ACTION ( oDlg:END() )\n\n   REDEFINE BUTTON oBTN3 ID 114   //          ;\n  *     ACTION ( _Mtrpview(\"A\"),             ;     // mtrpview.prg\n  *              oLBX:ReFresh() )\n\n   oLbx:bLogicLen := { || oRsMTP:RecordCount }\n   oLbx:bGoTop    := { || oRsMTP:MoveFirst() }\n   oLbx:bGoBottom := { || oRsMTP:MoveLast() }\n   oLbx:bSkip     := { | nSkip | Skipper( oRsMTP, nSkip ) }\n   oLbx:cAlias    := \"ARRAY\"\n\nACTIVATE DIALOG oDlg ;\n         ON INIT ( if( (xSUPER = \'Y\' .or. xADMIN = \'Y\' ), ,oBtn3:Hide() ) )\n\noRsMTP:CLose()\nSysReFresh()\n\nRETURN( .T. )\n\n//-------------------------------\nSTATIC FUNCTION SKIPPER( oRsx, nSkip )\n\nLOCAL nRec := oRsx:AbsolutePosition\n\noRsx:Move( nSkip )\n\nIF oRsx:EOF; oRsx:MoveLast(); ENDIF\nIF oRsx:BOF; oRsx:MoveFirst(); ENDIF\n\nRETURN( oRsx:AbsolutePosition - nRec )\n\n// end mtrpslct.prg','',0,'AIA=','3pikq5z5',1,0,'',35,0,0),(44023,9213,3,267,0,'189.13.109.108',1197644996,1,0,1,1,1,1,'','','Antonio,\n\nI obtained to mount an example with the problem. I can send for some email its?','',0,'AIA=','3poaxvfa',1,0,'',267,0,0),(44024,9159,3,1181,0,'60.48.80.250',1197646130,1,0,0,0,1,1,'','Problem Upgrade To FWH7.11','Thanks for your help\n\nA reproduceable example:\n\n\n#include \"FiveWin.ch\"\n\nstatic oWnd\n\nfunction Main()\n\n   local oFont\n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -22 BOLD\n   if !file(\"tax3.dbf\")\n      createfilea()\n      indexfile()\n   endif\n\n   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 ;\n      TITLE \"Test\" \n\n      @ 46, 26 BTNBMP ;\n             PROMPT \"Test\" SIZE 83, 16 NOBORDER ;\n             ACTION ( form6x() )\n\n   SET MESSAGE OF oWnd ;\n      TO \"WELCOME\" CENTERED TIME DATE\n   ACTIVATE WINDOW oWnd MAXIMIZED\n\n    DEFINE FONT oFont NAME \"Arial\" SIZE 0, -11 BOLD\n    oFont:End()\n\nreturn nil\n*******************************************\nfunction  createfilea()\n\n//   \"File : tax3.dbf\"\n   tmpdbf:= {}\n   AAdd(tmpdbf, {\"recnum1\", \"n\", 5, 0})\n   AAdd(tmpdbf, {\"recnum\", \"c\", 8, 0})\n   AAdd(tmpdbf, {\"desp\", \"c\", 1000, 0})\n   dbcreate(\"tax3.dbf\", tmpdbf)\n   close\n//   \"File : form6.dbf\"\n   tmpdbf:= {}\n   AAdd(tmpdbf, {\"EMPNO\", \"C\", 12, 0})\n   AAdd(tmpdbf, {\"Coynum\", \"C\", 15, 0})  // Company No.\n   AAdd(tmpdbf, {\"Name1\", \"C\", 50, 0})  // Name Of Company\n   AAdd(tmpdbf, {\"AutCap\", \"n\", 15, 2})  // Authorised Capital\n   AAdd(tmpdbf, {\"NumShare\", \"n\", 13, 0})  // Number Of Shares\n   AAdd(tmpdbf, {\"CoySec2\", \"C\", 50, 0})  // Name Of Company Secretary\n\n   AAdd(tmpdbf, {\"SecondRef\", \"c\", 12, 0}) //Second Reference\n   dbcreate(\"form6.dbf\", tmpdbf)\n   close\n****************************\nfunction form6x()\n\n #include \"fivewin.ch\"\n local oDlg\n\n     if (Select(\"form6\") == 0)\n         use form6 new\n         set index to form6i\n     else\n         select Select(\"form6\")\n     endif \n     goto top  \n     if eof()\n        mrefno = space(12)\n        goto top\n        set filter to\n        goto top\n        do while !eof()\n           xSeconfRef = SecondRef\n           if mrefno &lt; XSeconfRef\n              mrefno = XSeconfRef\n           endif\n           select form6\n           skip 1\n        enddo\n            abb = 13\n            abbx = len(alltrim(mrefno))\n            abby = len(alltrim(mrefno))\n            acc = 1\n            do while acc &lt;= abbx\n               add = substr(mrefno,abbx - 1,1)\n               if isdigit(add)\n                  abbx = abbx - 1\n               else\n                 exit\n               endif\n               acc = acc + 1\n            enddo\n            hlastinv = substr(mrefno,abbx,13)\n            lastinv = val(hlastinv)\n            lastinv = lastinv + 1\n            klastinv = str(lastinv)\n            lenklastinv = len(alltrim(klastinv))\n            kilastinv = \"000000000000\"\n            rlastinv = len(alltrim(klastinv))\n            lenfirst = len(substr(mrefno,1,abbx - 1))\n            kilastinv = substr(kilastinv,abbx,abby - lenfirst - lenklastinv)\n            kkrstr = substr(mrefno,1,abbx - 1)  \n            mrefno = kkrstr + kilastinv + alltrim(klastinv)\n            mrefno = substr(mrefno + space(12),1,12)\n            if mrefno = \"1\"\n              mrefno = \"R 000001\"\n            endif\n            mSecondRef = mrefno\n\n           Append Blank\n           onerror(\"APPEND\")\n           replace empno with \"A0001\"\n           replace SecondRef with mSecondRef\n           replace Name1 with \"John\"\n        else\n           mSecondRef = SecondRef\n        endif\n        goto top\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;\n      TITLE \"Form 6 \"\n\n         @ -0.361, -0.1 to 13.945, 44.714\n         @ -0.361, -0.1 to 12.545, 44.714\n\n   @ 0.2, 0.4 LISTBOX oLbx FIELDS form6-&gt;empno,;\n             form6-&gt;Name1 ;\n          HEADERS    \"No\", \"Name\" ;\n          FIELDSIZES  100, 390 ;\n          SIZE 307, 170 OF oDlg \n\n   @ 9.95, 18.7 BUTTON \"E&amp;dit\" OF oDlg SIZE 40, 12 ;\n	ACTION (form6new(\"2\"), oLbx:Refresh())\n   @ 9.95, 25.7 BUTTON \"&amp;Exit\" OF oDlg SIZE 40, 12 ;\n	ACTION ( lreturn := .t., oDlg:End())\n\n   ACTIVATE DIALOG oDlg CENTERED\n    close databases\nreturn nil  \n************************************************\nfunction form6new()\n\nparameter Newedit\n\n   local oDlg\n   local oFont\n   local oLbx\n   local lreturn := .f.\n   local oc1desp\n   local time1:= 1\n   local newref1:= \"N\"\n\n   DEFINE FONT oFont NAME \"Arial\" SIZE 0, -11 BOLD\n\n      select form6     \n      mSecondRef = SecondRef\n      if Newedit = \"1\"\n        mrefno = space(12)\n        goto top\n        set filter to\n        goto top\n        do while !eof()\n           xSeconfRef = SecondRef\n           if mrefno &lt; XSeconfRef\n              mrefno = XSeconfRef\n           endif\n           select form6\n           skip 1\n        enddo\n            abb = 13\n            abbx = len(alltrim(mrefno))\n            abby = len(alltrim(mrefno))\n            acc = 1\n            do while acc &lt;= abbx\n               add = substr(mrefno,abbx - 1,1)\n               if isdigit(add)\n                  abbx = abbx - 1\n               else\n                 exit\n               endif\n               acc = acc + 1\n            enddo\n            hlastinv = substr(mrefno,abbx,13)\n            lastinv = val(hlastinv)\n            lastinv = lastinv + 1\n            klastinv = str(lastinv)\n            lenklastinv = len(alltrim(klastinv))\n            kilastinv = \"000000000000\"\n            rlastinv = len(alltrim(klastinv))\n            lenfirst = len(substr(mrefno,1,abbx - 1))\n            kilastinv = substr(kilastinv,abbx,abby - lenfirst - lenklastinv)\n            kkrstr = substr(mrefno,1,abbx - 1)  \n            mrefno = kkrstr + kilastinv + alltrim(klastinv)\n            mrefno = substr(mrefno + space(12),1,12)\n            if mrefno = \"1\"\n              mrefno = \"R 000001\"\n            endif\n            mSecondRef = mrefno\n            set filter to empno = mempnox\n             newref1 = \"Y\"\n        endif\n\n        mCoynum =  Coynum //\", \"C\", 15, 0})  // Company No.\n        mName1 = Name1 //\", \"C\", 50, 0})  // Name Of Company\n        mAutCap = AutCap // \", \"n\", 15, 2})  // Authorised Capital\n        mNumShare = NumShare // \", \"n\", 13, 0})  // Number Of Shares\n        mCoySec2 = CoySec2 // \", \"C\", 50, 0})  // Name Of Company Secretary\n\n        cc1desp = mCoynum\n        \n\n\n        if (Select(\"tax3\") == 0)\n           use tax3 exclusive\n        else\n           select Select(\"tax3\")\n        endif \n        goto top\n        zap\n\n\n            Append Blank\n            onerror(\"APPEND\")\n            replace recnum1 with 10001\n            replace recnum with \"Coynum\"\n            replace desp with \"Company No.\"\n            Append Blank\n            onerror(\"APPEND\")\n            replace recnum1 with 10002\n            replace recnum with \"Name1\"\n            replace desp with \"Name Of Company\"\n            Append Blank\n            onerror(\"APPEND\")\n            replace recnum1 with 10012\n            replace recnum with \"AutCap\"\n            replace desp with \"Authorised Capital\"\n            Append Blank\n            onerror(\"APPEND\")\n            replace recnum1 with 10013\n            replace recnum with \"NumShare\"\n            replace desp with \"Number Of Shares\"\n            Append Blank\n            onerror(\"APPEND\")\n            replace recnum1 with 10018\n            replace recnum with \"CoySec2\"\n            replace desp with \"Name Of Company Secretary\"\n\n            if (Select(\"tax3\") == 0)\n               use tax3 exclusive\n            else\n               select Select(\"tax3\")\n            endif \n            goto top\n\n   DEFINE DIALOG oDlg FROM 0, 0 TO 26, 79 ;\n      TITLE \"Form 6 \"\n\n         @ -0.361, -0.1 to 13.945, 44.714\n         @ -0.361, -0.1 to 12.545, 44.714\n\n         select tax3\n\n         index on recnum1 to TEMP99\n         goto top\n\n   \n         crecnum1 = tax3-&gt;recnum1\n         crecnum = tax3-&gt;recnum\n         cdesp = tax3-&gt;desp\n\n         @ 0.2, 0.4 LISTBOX oLbx FIELDS ;\n            tax3-&gt;desp;\n            HEADERS     \"Description\";\n            FIELDSIZES  400 ;\n            SIZE 307, 160 OF oDlg;\n            FONT oFont\n\n         oLbx:cToolTip = \"Press `Enter\' To Select Item.\"\n              oLbx:bKeyDown := { | nKey, nFlags | If( nKey == VK_RETURN,;\n              saycusta(,lreturn := .f., oc1desp:SetFocus() ),) }\n         oLbx:bchange:={ || getform6c1desp(oc1desp), oc1desp:Refresh() }  \n\n         @ 12.5, 0.4 Get oc1desp VAR cc1desp size 307, 11 OF oDlG COLOR CLR_GREEN\n\n   @ 9.95, 18.7 BUTTON \"&amp;Accept\" OF oDlg SIZE 40, 12 ;\n	ACTION (getform6cxdesp(oLbx), ;\n                                 oDlg:SetFocus() ,SysREfresh(), oLbx:SetFocus())  \n   @ 9.95, 25.7 BUTTON \"&amp;Exit\" OF oDlg SIZE 40, 12 ;\n	ACTION ( lreturn := .t., oDlg:End()) \n   ACTIVATE DIALOG oDlg CENTERED\n\n   crecnum = tax3-&gt;recnum\n   select tax3\n   use\n   use tax3 exclusive\n   zap\n   use\n   select form6     \n\nreturn nil\n********************************************\nfunction getform6c1desp(oc1desp)\n\n\n        if (Select(\"form6\") == 0)\n           use form6 new\n           set index to form6i\n        else\n           select Select(\"form6\")\n        endif \n\n        select form6\n        notfound = 1\n\n        select form6\n             goto top\n             do while !eof()\n                 xSecondRef = trim(SecondRef)\n                 if trim(mSecondRef) = xSecondRef\n                    notfound = 2\n                    exit\n                 endif\n                 select form6\n                 skip 1\n             enddo\n            select form6      \n\n\n          mCoynum =  Coynum //\", \"C\", 15, 0})  // Company No.\n          mName1 = Name1 //\", \"C\", 50, 0})  // Name Of Company\n          mAutCap = AutCap // \", \"n\", 15, 2})  // Authorised Capital\n          mNumShare = NumShare // \", \"n\", 13, 0})  // Number Of Shares\n          mCoySec2 = CoySec2 // \", \"C\", 50, 0})  // Name Of Company Secretary\n\n   crecnum = tax3-&gt;recnum\n\n   if crecnum = \"Coynum\"\n      c1desp = mCoynum\n   elseif crecnum = \"Name1\"\n      c1desp = mName1\n   elseif crecnum = \"AutCap\"\n      c1desp = mAutCap\n   elseif crecnum = \"NumShare\"\n      c1desp = mNumShare\n   elseif crecnum = \"CoySec2\"\n      c1desp = mCoySec2\n   endif\n\n  cc1desp = c1desp\nreturn oc1desp\n********************************************\nfunction getform6cxdesp(oLbx)\n\n   local nOldRec := RecNo()\n\n        c1desp = cc1desp\n        if (Select(\"form6\") == 0)\n           use form6 new\n           set index to form6i\n        else\n           select Select(\"form6\")\n        endif \n        select form6\n       if Newedit = \"1\"\n          if time1 = 1\n             Append Blank\n             onerror(\"APPEND\")\n             replace SecondRef with mSecondRef //\", \"c\", 12, 0}) //Second Reference\n             replace empno with mempnox  \n             time1 = 2\n          endif\n      endif\n      if Newedit = \"1\" .and. time1 = 1\n      else\n            notfound = 1\n            select form6\n            goto top\n            do while !eof()\n                 xSecondRef = trim(SecondRef)\n                 if trim(mSecondRef) = xSecondRef\n                    notfound = 2\n                    exit\n                 endif\n                 select form6\n                 skip 1\n             enddo\n      endif\n   select form6      \n   onerror(\"RLOCK\")\n   if crecnum = \"Coynum\"\n      replace Coynum with c1desp \n   elseif crecnum = \"Name1\"\n      replace Name1 with c1desp \n   elseif crecnum = \"AutCap\"\n      replace AutCap with c1desp \n   elseif crecnum = \"NumShare\"\n      replace NumShare with c1desp \n   elseif crecnum = \"CoySec2\"\n      replace CoySec2 with c1desp \n   endif\n\n   cc1desp = c1desp\n   oLbx:SetFocus()\n   oLbx:Refresh()\n\nreturn nil\n********************************************\nfunction  indexfile()\n\n   use form6 exclusive\n   pack\n   index on empno to form6i\n   use\nreturn nil\n*********************\nfunction ONERROR\n\n   parameters errortype\n   errortype:= Upper(errortype)\n   do case\n   case errortype == \"RLOCK\"\n      if (RLock())\n         return .T.\n      endif\n      do while (!RLock())\n         InKey(3)\n      enddo\n   case errortype == \"APPEND\"\n      if (!neterr())\n         onerror(\"RLOCK\")\n         return .T.\n      endif\n      do while (neterr())\n         InKey(3)\n         append blank\n      enddo\n      onerror(\"RLOCK\")\n   endcase\n   return .T.\n\n********************************\nfunction saycusta()\n\nreturn nil\n***************************\n\nThe problem only occur immediately after the numeric fields.\nThanks','',0,'AIA=','3fj9esp0',1,0,'',1181,0,0),(44025,9222,6,2,0,'87.218.146.240',1197646903,1,0,1,1,1,1,'','','Aqui la tienes:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/23074-1645123008.html\">http://www.hotshare.net/file/23074-1645123008.html</a><!-- m -->','',0,'AIA=','2xur8g1j',1,0,'',2,0,0),(44026,9223,4,1251,0,'85.221.132.191',1197647836,1,0,1,1,1,0,'','National characters on display','How to force Windows CE on Psion to display polish national characters?\n\nfunction Main()\n\n   local oWnd, oFont\n\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PLWIN\n\n   Hb_LangSelect (\'PLWIN\') \n   Hb_SetCodePage (\'PLWIN\') \n\n   DEFINE FONT oFont NAME \"times\" SIZE 10, 18\n\n   DEFINE WINDOW oWnd TITLE \"Tutor05\"\n\n   @ 1, 2 SAY cmonth( date() )   FONT oFont\n\nreturn\n\nThe names of month are on polish language but specific polish characters are replaced with Western language characters.','',0,'AIA=','1qwspnzx',1,0,'',1251,0,0),(44027,9183,3,1236,0,'201.86.91.184',1197647840,1,0,1,1,1,0,'','','Please Mr. Rafael can you send me a copy, thanks. \n\n\n<!-- e --><a href=\"mailto:ubiratan@sgsistemas.com.br\">ubiratan@sgsistemas.com.br</a><!-- e -->','',0,'AIA=','25rcus8o',1,0,'',1236,0,0),(44028,9159,3,2,0,'87.218.146.240',1197647914,1,0,1,1,1,1,'','','Acwoo,\n\nIn function getform6c1desp(oc1desp)  add this code at the end:\n\n[code:1k998a2x]\nif ValType&#40; c1desp &#41; != ValType&#40; cc1desp &#41;  // new!\n   oc1desp&#58;oGet&#58;VarPut&#40; c1desp &#41;  // new!\nendif                                            // new!\ncc1desp = c1desp \nreturn oc1desp \n[/code:1k998a2x]','',0,'AIA=','1k998a2x',1,0,'',2,0,0),(44029,9222,6,1236,0,'201.86.91.184',1197648007,1,0,1,1,1,0,'','','Antonio usando a nova lib e com FWH 7.1 e xharbour 99.71:\n\n\nUnrecoverable error 9000\n\n\nclient.prg was compiled by order version, PCODE version 9 is no longer supported - please recompile.\n\n\nObrigado','',0,'AIA=','1bt5iruq',1,0,'',1236,0,0),(44030,9213,3,2,0,'87.218.146.240',1197648011,1,0,1,1,1,1,'','','Vilian,\n\nYes, please, send it to me as a ZIP file. Thanks,','',0,'AIA=','1ppk9qzt',1,0,'',2,0,0),(44031,9223,4,2,0,'87.218.146.240',1197648301,1,0,1,1,1,1,'','','Grzegorz,\n\n&gt; specific polish characters are replaced with Western language characters\n\nDo those polish characters look fine in Pocket Word using the same font ?','',0,'AIA=','1k9dq41c',1,0,'',2,0,0),(44032,9183,3,343,0,'24.173.70.25',1197649567,1,0,1,1,1,0,'','','I guess since everyone else is asking I will put my hat in the ring. The ability to display a map would be very helpfull in my application since it is related to a trucking company.\n\nThanks,\n\n<!-- e --><a href=\"mailto:gale.ford@wwrowland.com\">gale.ford@wwrowland.com</a><!-- e -->','',0,'AIA=','ysbiop7d',1,0,'',343,0,0),(44033,9183,3,154,0,'84.223.75.196',1197649869,1,0,1,1,1,1,'','','[quote=&quot;Rafael Clemente&quot;:16quv16d]Detlef:\nWhere to shall I send it?\nRafael[/quote:16quv16d]\n\nDear Rafael,\nis possible :\n- to redefine the target map window (with insert other controls)?\n- insert this control in a dialog?','',0,'gA==','16quv16d',1,0,'',154,0,0),(44034,9193,6,156,0,'201.244.242.121',1197650589,1,0,1,1,1,0,'','','Antonio, \n\n&gt;\nSi quieres copiamos aqui el contenido de samples\\Buildxdp.bat\n&gt;\n\nSi, por favor, que incluya los dos PRG\'s que componen la DLL (MSTDLL1.PRG y PRODUCC.PRG)\n\nGracias y saludos,\n\nCarlos Gallego','',0,'gA==','3qu9qaq1',1,0,'',156,0,0),(44035,9183,3,999,0,'201.42.198.116',1197650736,1,0,1,1,1,0,'','','Hi  Rafael, \nPlease you send me also a copy of the DLL.\n<!-- e --><a href=\"mailto:euclidao@itelefonica.com.br\">euclidao@itelefonica.com.br</a><!-- e -->\nTIA \nEuclides','',0,'gA==','1h6v5fi6',1,0,'',999,0,0),(44036,9220,3,6,0,'82.59.197.29',1197650879,1,0,1,1,1,1,'','Re: How to save a ofont to disk and read from','I suggest you to save the font properties instead (ie. name, size, etc.).\n\nEMG','',0,'gA==','2axwvsf9',1,0,'',6,0,0),(44037,9111,7,57,0,'88.17.194.188',1197653286,1,0,1,1,1,1,'','','Elias \nMe interesa conocer el tema.\n\n<!-- e --><a href=\"mailto:toni.sales@gmail.com\">toni.sales@gmail.com</a><!-- e -->\n\nGracias de antemano\nSaludos','',0,'gA==','2m8nyiec',1,0,'',57,0,0),(44038,9224,6,362,0,'200.158.18.206',1197653479,1,0,1,1,1,1,'','Problemas con BKEYDOWN Y TECLA ESCAPE EN TWBROWSE','Problemas con BKEYDOWN Y TECLA ESCAPE...\n\n[code:900hkwip]\nMETHOD KeyDown&#40; nKey, nFlags &#41; CLASS TWBrowse\n\n   LOCAL uRet\n\n   If &#58;&#58;bKeyDown != nil                 // nuevo\n      uRet &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey &#41;  // nuevo\n      If ValType&#40; uRet &#41; == &quot;L&quot; &#46;and&#46; uRet  //-&gt; By Antonio Linares\n         Return Nil\n      Endif\n   Endif                                // nuevo\n[/code:900hkwip]\n\nMaestro Antonio...\n\nHice esta modificacione en la CLASSE TWBROWSE y cuando hago una ACCION via BKEYDOW, ejemplo:\n\n[code:900hkwip]\n        oLbx&#58;bKeyDown &#58;= &#123; | nKey |                           ;\n             IF &#40; nKey = VK_RETURN,                           ;\n                &#40; CLICK&#40;&#41;, GETMOVCR&#40; &#46;F&#46;, CADMOVCR, CADBANCO, ;\n                                          CADPARAM, CADHISBA, ;\n                                          CADCUSTO, CADMOVBA, ;\n                                          CADCLIEN, oLbx,     ;\n                                          lBaixaDuplic &#58;= &#46;T&#46;,;\n                                          lPesquisa &#58;= &#46;F&#46; &#41; &#41;, &#41; &#125;\n[/code:900hkwip]\n\nCuando se pulsa la TECLA ESCAPE para SALIR del DIALOGO, el DIALOGO se ACCIONA\nDOS VECES.\n\nQue hago mal?\n\nBest regards.','',0,'AIA=','900hkwip',1,0,'',362,0,0),(44039,9183,3,58,0,'84.149.112.226',1197655415,1,0,1,1,1,0,'','','Sorry Rafael <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->,\n\nhere my address\n<!-- e --><a href=\"mailto:hoefner@odn.de\">hoefner@odn.de</a><!-- e -->\n\nMany Thanks,\nDetlef','',0,'AIA=','1e5zmz46',1,0,'',58,0,0),(44040,9213,3,267,0,'201.9.118.127',1197655567,1,0,1,1,1,1,'','','Antonio,\n\nYou it received the Memory.zip archive?','',0,'AIA=','16z26l3j',1,0,'',267,0,0),(44041,9213,3,2,0,'87.218.146.240',1197656505,1,0,1,1,1,1,'','','Vilian,\n\nYes, I got and it and built it and its working fine\n\nI have emailed you a screenshot for your review','',0,'AIA=','1ggeemep',1,0,'',2,0,0),(44042,9218,3,2,0,'87.218.146.240',1197656869,1,0,1,1,1,1,'','','Silvio,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3419\">http://fivetechsoft.com/forums/viewtopic.php?t=3419</a><!-- m --> ?','',0,'AIA=','lc7k1l5p',1,0,'',2,0,0),(44043,9225,3,35,0,'167.7.140.254',1197658522,1,0,1,1,1,0,'','Listbox Freeze column and goto a column ( ADO )','To All\n\nI am using ADO to connect to MS SQL tables and have been using the standard FW listbox .. Twbrowse and have had no problems .. \n\nI have one routine that needs to be able to \'freeze\' the left column at column 5 and also need to be able to move the horozontal cursor to a specific column... say 10\n\nI have been using Hernan\'s Twbrowse in my ADS version and it works quite will .. however, it has problems with ADO recordsets plus I have to link in ace32.dll .. which is not desirable for this applications.\n\nI need to be able to do something like this .. oBrow:nFreeze := 5\nand ON INIT oBrow:gotocol(10)\n\nDoes TxBrowse support non-aliased recordsets ?? and if so .. is it possible to freeze columns as well as move the cursor to a specific column ??\n\nMany Thanks\n\nRick Lipkin\nSC Dept of Health, USA','',0,'AIA=','bvzmvhy8',1,0,'',35,0,0),(44044,9145,3,234,0,'75.34.217.174',1197659116,1,0,1,1,1,1,'','','Thank Ramesh','',0,'AIA=','3q7spsdp',1,0,'',234,0,0),(44045,9225,3,35,0,'167.7.140.254',1197660776,1,0,1,1,1,0,'','','To All\n\nI figured out how to edit Hernan\'s Twbrowse \'wbrowse.prg\' and delete all the references to the different rdd\'s and left the standard FW behavior ..\n\nBut it would be nice to know if there is another listbox class that would be able to freeze and goto a specific column.\n\nRick Lipkin','',0,'AIA=','1ckw8ol6',1,0,'',35,0,0),(44046,9183,3,1241,0,'87.218.146.240',1197662512,1,0,1,1,1,0,'','','Same Google Maps functionality without need for DLL\n\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oWnd, oActiveX\n\n   DEFINE WINDOW oWnd TITLE \"Google Maps\"\n\n   oActiveX = TActiveX():New( oWnd, \"Shell.Explorer\" )\n   oWnd:oClient = oActiveX\n   oActiveX&#058;Do( \"Navigate2\", CurDrive() + \":\\\" + CurDir() + \"\\gmap.html\" )\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\nAnd gmap.html, replace the address into it using StrTran()\n[code:1fgoacb5]\n&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1&#46;0 Strict//EN&quot; &quot;http&#58;//www&#46;w3&#46;org/TR/xhtml1/DTD/xhtml1-strict&#46;dtd&quot;&gt; \n&lt;html xmlns=&quot;http&#58;//www&#46;w3&#46;org/1999/xhtml&quot;&gt;                                                                   \n  &lt;head&gt;                                                                                                      \n    &lt;meta http-equiv=&quot;content-type&quot; content=&quot;text/html; charset=UTF-8&quot;/&gt; \n    &lt;title&gt; &lt;/title&gt;             \n    &lt;script src=&quot;http&#58;//maps&#46;google&#46;com/maps?file=api&amp;amp;v=2&#46;x&amp;amp;key=ABQIAAAAtOjLpIVcO8im8KJFR8pcMhQjskl1-YgiA_BGX2yRrf7htVrbmBTWZt39_v1rJ4xxwZZCEomegYBo1w&quot; type=&quot;text/javascript&quot;&gt;&lt;/script&gt; \n    &lt;script type=&quot;text/javascript&quot;&gt;                                      \n    var map = null;                                                      \n    var geocoder = null;                                                 \n    var coords = null;                                                   \n\n    function initialize&#40;&#41; &#123;                                              \n      if &#40;GBrowserIsCompatible&#40;&#41;&#41; &#123;                                      \n        map = new GMap2&#40;document&#46;getElementById&#40;&quot;map_canvas&quot;&#41;&#41;;          \n        map&#46;addControl&#40;new GLargeMapControl&#40;&#41;&#41;;                          \n        map&#46;addControl&#40;new GMapTypeControl&#40;&#41;&#41;;                           \n        geocoder = new GClientGeocoder&#40;&#41;;                                \n      &#125;                                                                  \n    &#125;                                                                    \n\n    function showAddress&#40;address, cAddressName&#41; &#123;                        \n      if &#40;geocoder&#41; &#123;                                                    \n        geocoder&#46;getLatLng&#40;                                              \n          address,                                                       \n          function&#40;point&#41; &#123;                                              \n            if &#40;!point&#41; &#123;                                                \n              showAddress2&#40;\'NEW YORK CITY\'&#41;;               \n            &#125; else &#123;                                                     \n              map&#46;setCenter&#40;point, 15&#41;;                                  \n              var marker = new GMarker&#40;point&#41;;                           \n              map&#46;addOverlay&#40;marker&#41;;                                    \n              coords = marker&#46;getPoint&#40;&#41;;                                \n              var curl = cAddressName + &quot;&lt;p&gt;&quot; + coords&#46;toUrlValue&#40;6&#41; + &quot;&lt;/p&gt;&quot; \n              var button = \'&lt;input type=&quot;button&quot; value=&quot;Imprimir&quot; onClick=&quot;window&#46;print&#40;&#41;&quot;/&gt;;\'\n              curl = curl + button \n            &#125;                                                            \n          &#125;                                                              \n        &#41;;                                                               \n      &#125;                                                                  \n    &#125;                                                                    \n    function showAddress2&#40;address&#41; &#123;       \n      if &#40;geocoder&#41; &#123;                                                    \n        geocoder&#46;getLatLng&#40;                                              \n          address,                                                       \n          function&#40;point&#41; &#123;                                              \n            if &#40;!point&#41; &#123;                                                \n              alert&#40;address + &quot; no encontrado&quot;&#41;;                         \n            &#125; else &#123;                                                     \n              map&#46;setCenter&#40;point, 15&#41;;                                  \n              var marker = new GMarker&#40;point&#41;;                           \n              map&#46;addOverlay&#40;marker&#41;;                                    \n              marker&#46;openInfoWindowHtml&#40;address&#41;;                        \n            &#125;                                                            \n          &#125;                                                              \n        &#41;;                                                               \n      &#125;                                                                  \n    &#125;                                                                    \n    &lt;/script&gt;                                                            \n  &lt;/head&gt;                                                                \n\n  &lt;body onload=&quot;initialize&#40;&#41;; showAddress&#40;\'BROADWAY 500, NEW YORK CITY  USA\', \'BROADWAY 500, NEW YORK CITY  USA\'&#41;;&quot; onunload=&quot;GUnload&#40;&#41;&quot;\n        &lt;div id=&quot;map_canvas&quot; style=&quot;width&#58; 597px; height&#58; 376px&quot;&gt;&lt;/div&gt; \n  &lt;/body&gt;                                                                \n&lt;/html&gt;                                                                  \n[/code:1fgoacb5]','',0,'AIA=','1fgoacb5',1,0,'',1241,0,0),(44047,9183,3,1158,0,'200.159.198.27',1197663008,1,0,1,1,1,0,'','','me too...\n\n<!-- e --><a href=\"mailto:norberto@windowslive.com\">norberto@windowslive.com</a><!-- e -->\n\nthanks','',0,'AIA=','2yficasl',1,0,'',1158,0,0),(44048,9006,2,124,0,'190.30.44.121',1197663023,1,0,1,1,1,0,'','','Gracias, esto lo estamos usando así y aún así tenemos este problema.\n\nUn abrazo.','',0,'AIA=','3o8vfe6u',1,0,'',124,0,0),(44049,9226,6,483,0,'201.252.161.199',1197665432,1,0,1,1,1,0,'','Fonts en TWord','Hola Foro:\nEstoy probando la clase TWord y cuando creo un documento no me respeta los fonts que le envio por el programa.\nPor ejemplo le asigno Times New Roman de 8 y en el documento me aparece con Times New Roman de 12.\nCual puede ser el problema?\n\nSaludos\nCarlos A. Ducca','',0,'AIA=','3mi2emy7',1,0,'',483,0,0),(44050,9193,6,2,0,'87.218.146.240',1197665600,1,0,1,1,1,1,'','','Carlos,\n\n%hdir%\\bin\\b32\\harbour %1 /n -D__EXPORT__ /i..\\include;%hdir%\\include /w /p %2 %3 &gt; clip.log\n@type clip.log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -I%hdir%\\include %1.c &gt; b32.bc\n%bcdir%\\bcc32 -M -c @b32.bc\n:ENDCOMPILE\n\nIF EXIST %1.rc %bcdir%\\brc32 -r %1\n\necho c0d32.obj + &gt; b32.bc\necho %1.obj, + &gt;&gt; b32.bc\necho %1.dll, + &gt;&gt; b32.bc\necho %1.map, + &gt;&gt; b32.bc\necho %hdir%\\obj\\b32\\maindllp.obj + &gt;&gt; b32.bc\necho %bcdir%\\lib\\import32.lib + &gt;&gt; b32.bc\necho %bcdir%\\lib\\cw32.lib, &gt;&gt; b32.bc\n\nIF EXIST %1.res echo %1.res &gt;&gt; b32.bc\n%bcdir%\\ilink32 -Tpd -aa @b32.bc','',0,'AIA=','142h15vz',1,0,'',2,0,0),(44051,9193,6,2,0,'87.218.146.240',1197665667,1,0,1,1,1,1,'','','Carlos,\n\nNosotros hemos probado con samples\\pcodedll.prg y samples\\TestDllP.prg, solo añadiendo un diálogo en pcodedll.prg con un SAY que usa OemToAnsi()','',0,'AIA=','1ro9amdy',1,0,'',2,0,0),(44052,9225,3,53,0,'189.139.94.85',1197667135,1,0,1,1,1,1,'','','Rick:\n\nExcuse me:\n\n[quote:3a6gj1nr]\nI am using ADO to connect to MS SQL tables and have been using the standard FW listbox .. Twbrowse and have had no problems .. \n[/quote:3a6gj1nr]\n\nWould you send to me a small sample using ADO &amp; FW listbox ?\n\nMy adreess\nsoisa2002 dot @ prodigy dot net dot mx\n\nKind regards\n\n[/code]','',0,'gA==','3a6gj1nr',1,0,'',53,0,0),(44053,9193,6,156,0,'201.244.242.121',1197667348,1,0,1,1,1,0,'','','Antonio,\n\nHemos avanzado un poco en la actualizacion y decidimos manternernos  con FWH 7.12 y xHarbour 1.1.0. . Vamos a darle la lucha.\n\nEstos han sidos los avances:\n\n1.- El error en TGet con que iniciamos este post lo solucionamos con la prouesta que tú hiciste el 04-12-2007 en el post \"una corrección\" en este foro. Modificamos TGet.prg y Window.prg y listo.\n\n2.- Anteriormente en las DLLs una función invocaba a otras funciones que están dentro la misma DLL simplemente con su nombre: Funcionxx(paramxx). La nueva versión de xHarbour nos puso de cabeza, incluyendo lo del OemToAnsi() en los Says, no reconocimiento de variables Públicas ni Privadas, entre otros. Descubrimos que si en vez de invocar directamente a la función los hacemos con HB_LIBDO(\"funcionxx\",\"paramxx\") vuelve a funcionar sin problemas, inclusive lo del OemToAnsi y las variables. Conclusión: para ejecutar una función dentro de una DLL, independiente de dónde se llame, dentro del ejecutable principal o dentro de la misma DLL, hay que hacerlo con HB_LIBDO().  \n\nSeguimos avanzando e iremos comentando cómo nos va.\n\nSaludos,\n\nCarlos Gallego','',0,'gA==','3txzvim8',1,0,'',156,0,0),(44054,9183,3,1241,0,'87.218.146.240',1197668493,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/76601815/gmapd.zip.html\">http://rapidshare.com/files/76601815/gmapd.zip.html</a><!-- m -->\n[quote:364i3prr]\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oDlg, oActiveX\n   local cStreet := PadR( \"BROADWAY 500\", 80 )\n   local cCity := PadR( \"NEW YORK CITY\", 80 )\n   local cCountry := PadR( \"USA\", 80 )\n\n   DEFINE DIALOG oDlg RESOURCE \"map\"\n\n   REDEFINE ACTIVEX oActiveX ID 100 OF oDlg PROGID \"Shell.Explorer\"\n\n   REDEFINE GET cStreet ID 200 OF oDlg\n\n   REDEFINE GET cCity ID 300 OF oDlg\n\n   REDEFINE GET cCountry ID 400 OF oDlg\n   \n   REDEFINE BUTTON ID 1 OF oDlg ACTION Show( cStreet, cCity, cCountry, oActiveX )\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT Show( cStreet, cCity, cCountry, oActiveX )\n\nreturn nil\n\nfunction Show( cStreet, cCity, cCountry, oActiveX )\n\n   local cHtml := MemoRead( \"gmap.html\" )\n   \n   cHtml = StrTran( cHtml, \"&lt;&lt;STREET&gt;&gt;\", AllTrim( cStreet ) )\n   cHtml = StrTran( cHtml, \"&lt;&lt;CITY&gt;&gt;\", AllTrim( cCity ) )\n   cHtml = StrTran( cHtml, \"&lt;&lt;COUNTRY&gt;&gt;\", AllTrim( cCountry ) )\n   \n   MemoWrit( \"temp.html\", cHtml )\n   \n   oActiveX&#058;Do( \"Navigate2\", CurDrive() + \":\\\" + CurDir() + \"\\temp.html\" )\n   \nreturn nil   \n[/quote:364i3prr]\n[url=http&#58;//imageshack&#46;us:364i3prr][img:364i3prr]http&#58;//img150&#46;imageshack&#46;us/img150/9775/demosl6&#46;png[/img:364i3prr][/url:364i3prr]','',0,'mA==','364i3prr',1,0,'',1241,0,0),(44055,9227,3,51,0,'80.122.88.242',1197669117,1,0,1,1,1,0,'','Video – xBrowser SelFont() for columns visually','[url:1jdl65y6]http&#58;//www&#46;atzwanger&#46;com/fwvideo/xbtool/xBToolSelFont&#46;html[/url:1jdl65y6]\n\nAdd these changes to xBrowser-class\n\nMETHOD SelFont(nSelCol) CLASS TXBrowse\n\n   local oFont, n\n\n   DEFINE FONT oFont FROM USER\n\n   IF nSelCol = 0\n   if oFont:cFaceName != \"SYSTEM_FONT\"\n\n      for n = 1 to Len( ::aCols )\n         ::aCols[ n ]:oDataFont = oFont\n      next\n\n      ::Refresh()\n   endif\n\n   else\n      ::aCols[nSelCol ]:oDataFont = oFont\n      ::Refresh()\n   endif\n\n\nreturn nil','',0,'EA==','1jdl65y6',1,0,'',51,0,0),(44056,9228,3,448,0,'83.132.134.79',1197670141,1,0,1,1,1,0,'','Problem with activex crystal reports XI','I had the program compiled with Harbour and it work ok. Now with xHarbour I\'m geting this error as soon as window is activated:\n\n\nCalled from: win32ole.prg =&gt; TOLEAUTO:ADJCLIENT(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:RESIZE(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SHOWWINDOW(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n\nAby ideas what problem might be?\n\nAntonio','',0,'EA==','1dazgipu',1,0,'',448,0,0),(44057,9193,6,2,0,'87.218.146.240',1197670315,1,0,1,1,1,1,'','','Carlos,\n\nBien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'EA==','2ylzpufo',1,0,'',2,0,0),(44058,9183,3,1193,0,'203.70.2.12',1197671608,1,0,1,1,1,0,'','','[quote=&quot;shrkod&quot;:2lkwv784]http://rapidshare.com/files/76601815/gmapd.zip.html\n[quote:2lkwv784]\n#include \"FiveWin.ch\"\n\nfunction Main()\n\n   local oDlg, oActiveX\n   local cStreet := PadR( \"BROADWAY 500\", 80 )\n   local cCity := PadR( \"NEW YORK CITY\", 80 )\n   local cCountry := PadR( \"USA\", 80 )\n\n   DEFINE DIALOG oDlg RESOURCE \"map\"\n\n   REDEFINE ACTIVEX oActiveX ID 100 OF oDlg PROGID \"Shell.Explorer\"\n\n   REDEFINE GET cStreet ID 200 OF oDlg\n\n   REDEFINE GET cCity ID 300 OF oDlg\n\n   REDEFINE GET cCountry ID 400 OF oDlg\n   \n   REDEFINE BUTTON ID 1 OF oDlg ACTION Show( cStreet, cCity, cCountry, oActiveX )\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT Show( cStreet, cCity, cCountry, oActiveX )\n\nreturn nil\n\nfunction Show( cStreet, cCity, cCountry, oActiveX )\n\n   local cHtml := MemoRead( \"gmap.html\" )\n   \n   cHtml = StrTran( cHtml, \"&lt;&lt;STREET&gt;&gt;\", AllTrim( cStreet ) )\n   cHtml = StrTran( cHtml, \"&lt;&lt;CITY&gt;&gt;\", AllTrim( cCity ) )\n   cHtml = StrTran( cHtml, \"&lt;&lt;COUNTRY&gt;&gt;\", AllTrim( cCountry ) )\n   \n   MemoWrit( \"temp.html\", cHtml )\n   \n   oActiveX&#058;Do( \"Navigate2\", CurDrive() + \":&quot; + CurDir() + \"\\temp.html\" )\n   \nreturn nil   \n[/quote:2lkwv784]\n[url=http&#58;//imageshack&#46;us:2lkwv784][img:2lkwv784]http&#58;//img150&#46;imageshack&#46;us/img150/9775/demosl6&#46;png[/img:2lkwv784][/url:2lkwv784][/quote:2lkwv784]\n\nHi Shrkod,\n\ngood job. Maybe we can try it again. Thanks for your solution.\n\nRegards,\n\nRichard','',0,'mA==','2lkwv784',1,0,'',1193,0,0),(44059,9225,3,35,0,'65.188.6.143',1197674464,1,0,1,1,1,0,'','','Armondo\n\nHere is a simple listbox look up program I use .. \n\n\nxPROVIDER := \"SQLOLEDB\"\nxSOURCE   := \"YOURSERVER\"\nxCATALOG  := \"DATABASENAME\"\nxUSERID   := \"SQLUSER\"\nxPASSWORD := \"PASSWORD\"\n\n\n//-- grpslct.prg\n//\n// \nSTATIC oDLG,oLBX\n\n#INCLUDE \"FIVEWIN.CH\"\n\n\n//----------------------\nFunc GRPGET( cNAME, cMODE, oOBJ, oRs, cTABLE )\n\nLOCAL oBTN1, oBTN2, oRs2,oErr, cSQL, cTITLE\n\nIF cNAME = \"ALL\"\n   RETURN(.T.)\nENDIF\n\nIF EMPTY( oOBJ )\n   oOBJ = \" \"\nENDIF\nIF EMPTY( cTABLE )\n   cTABLE := \"BOGUS\"\nENDIF\n\nIF cMODE = \"E\"\n   DO CASE\n   CASE cTABLE = \"EMPLOYEE\"\n      IF SUBSTR(cNAME,1,2 ) = SUBSTR(oRs:Fields(\"GROUP1\"):Value,1,2) .and.;\n                 oRs:Fields(\"GROUP1\"):Value &lt;&gt; SPACE(2)\n         RETURN(.T.)\n      ENDIF\n   ENDCASE\nENDIF\n\nIF EMPTY( cNAME )\n   cNAME := \"BOGUS\"\nENDIF\n\ncNAME := UPPER(ALLTRIM(cNAME))\n\noRs2 := TOleAuto():New( \"ADODB.Recordset\" )\noRs2:CursorType     := 1        // opendkeyset\noRs2:CursorLocation := 3        // local cache\noRs2:LockType       := 3        // lockoportunistic\n\nIF xADMIN = \'Y\'\n   cSQL   := \"SELECT * FROM GROUPS order by progid,code\"\n   cTITLE := \"GROUP Select for ALL\"\nELSE\n   cSQL   := \"SELECT * from GROUPS where progid = \'\"+xPROGID+\"\' order by code\"\n   cTITLE := \"GROUP Select for Progid \"+xPROGID\nENDIF\n\nTRY\n   oRS2:Open( cSQL,\'Provider=\'+xPROVIDER+\';Data Source=\'+xSOURCE+\';Initial Catalog=\'+xCATALOG+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD )\n\nCATCH oErr\n   MsgInfo( \"Error in Opening GROUPS table\" )\n   RETURN(.F.)\nEND TRY\n\nIF EMPTY( cNAME ) .or. cNAME = \"  \"\n   cNAME := \"BOGUS\"\nENDIF\n\ncNAME := UPPER(ALLTRIM(cNAME))\n\noRs2:Find( \"code like \'\"+cNAME+\"%\'\" )\n\nIF oRs2:eof\n   oRs2:MoveFirst()\nENDIF\n\nDEFINE DIALOG oDlg RESOURCE \"GRPSLCT\"    ;\n       COLOR \"N/W\"                       ;\n       TITLE cTITLE\n\n   REDEFINE LISTBOX oLBX FIELDS          ;\n     oRs2:Fields(\"CODE\"):Value,          ;\n     oRs2:Fields(\"DESC\"):Value,          ;\n     oRs2:Fields(\"PROGID\"):Value         ;\n     HEADERS \"Code\",                     ;\n             \"Desc\",                     ;\n             \"ProgID\"                    ;\n     SIZES 50,170, 50                     ;\n     ID 111 of oDlg\n\n    oLbx:bLogicLen := { || oRs2:RecordCount }\n    oLbx:bGoTop    := { || oRs2:MoveFirst() }\n    oLbx:bGoBottom := { || oRs2:MoveLast() }\n    oLbx:bSkip     := { | nSkip | Skipper( oRs2, nSkip ) }\n    oLbx:cAlias    := \"ARRAY\"\n\n   REDEFINE BUTTON oBTN1 ID 112 of oDLG        ;\n       ACTION ( zGROUP1 := oRs2:Fields(\"CODE\"):Value,  ;\n                oOBJ:Refresh(),                ;\n                oDlg:END())                    ;\n       DEFAULT\n\n   REDEFINE BUTTON oBTN2 ID 118 of oDLG     ;\n       ACTION ( oDlg:End() )\n\n\nACTIVATE DIALOG oDlg\n\noDLG := NIL\noLBX := NIL\n\noRs2:Close()\n\nSysReFresh()\nRETURN( .T. )\n\n//-------------------------------\nSTATIC FUNCTION SKIPPER( oRsx, nSkip )\n\nLOCAL nRec := oRsx:AbsolutePosition\n\noRsx:Move( nSkip )\n\nIF oRsx:EOF; oRsx:MoveLast(); ENDIF\nIF oRsx:BOF; oRsx:MoveFirst(); ENDIF\n\nRETURN( oRsx:AbsolutePosition - nRec )\n\n\n// end grpslct.prg','',0,'mA==','1cbai8g9',1,0,'',35,0,0),(44060,9229,3,51,0,'80.122.88.242',1197678943,1,0,1,1,1,0,'','xBrowser: Is it possible to change alignment on the fly?','nDataStrAlign :=   AL_RIGHT\n\nIs it possible to change alignment on the fly?\nThanks in advance\nOtto','',0,'mA==','9fjj26zx',1,0,'',51,0,0),(44061,9202,3,303,0,'72.220.181.80',1197679213,1,0,1,1,1,0,'','','Rick,\n\n&gt;I would like to \'trap\' the ESC key press within the listbox and force the \'cancel\' route .. here is a typical code snipit .. \n\nYou do it just the way I showed in my sample code. It appears that it will work fine in your code. The trick is to create a flag var (I used lOK). Initiaize it to .f. then set it to .t. only when the OK button is pressed. Then after the ACTIVATE DIALOG... code you process both the Cancel button and the Esc key if the flag is false.\n\nIf you still need help, let me know.\n\nJames','',0,'mA==','1pocvdng',1,0,'',303,0,0),(44062,9202,3,303,0,'72.220.181.80',1197680338,1,0,1,1,1,0,'','','Rick,\n\nI looked at your code some more and now I am not sure what problem you are having. It appears that you have a dialog with a listbox and three buttons, one of which is Cancel. I assume this is the Cancel button:\n\nREDEFINE BUTTON oBTN2 ID 112 ; \nACTION ( oDlg:END() ) \n\nIf so, I don\'t see any difference between this and the Escape key. Both just end the dialog. Only the OK key is processing data. In your first message you stated:\n\n&gt;if you hit the ESC key and do not select OK or Cancel .. the origional get value remaines and is saved to the form table.\n\nI don\'t understand how this can be happening since the MTRPGET() function always returns .t. (at least once you get to the dialog part of the function). So, it doesn\'t seem like it would make any difference whether you used the Esc key or pressed a button.\n\nJames','',0,'mA==','qt4nh22m',1,0,'',303,0,0),(44063,9159,3,1181,0,'60.48.217.125',1197680399,1,0,0,0,1,1,'','Problem Upgrade To FWH7.11','Thanks for your help\n\n&gt;In function getform6c1desp(oc1desp) add this code at the end: \n\n&gt;if ValType( c1desp ) != ValType( cc1desp )  // new! \n&gt;   oc1desp:oGet:VarPut( c1desp )  // new! \n&gt;endif                                            // new! \n&gt;cc1desp = c1desp \n&gt;return oc1desp\n\nNow, after entering a numeric field, a text field can only accept numbers.\n(The last row in the listbox, (mCoySec2 = CoySec2 // \", \"C\", 50, 0}) // Name Of Company Secretary), I cannot enter text after entering a numeric field earlier ) \n\nPlease help\n\nThanks','',0,'mA==','130p0k2p',1,0,'',1181,0,0),(44064,9202,3,35,0,'65.188.6.143',1197680980,1,0,1,1,1,0,'','','James\n\nLets say you entered the word BOGUS in the get .. and hit enter .. the valid fires and since there was no match .. the listbox gots to the top .. if the user presses ESC .. there is nothing returned because ( as you see ) .. OK only returns values thru that conduit.\n\nWhen the lisbox closes .. you are still left with the word BOGUS in the get and if the user does not pay attention .. that field will be saved with the wrong associated key ..\n\nI guess I could pass space(len( field )) back if the OK button was not pressed and trap the blank field in the business rules .. never really thought this thru .. I have hundreds of these \'clone\' listbox look ups .. \n\nLet me think about this some ..\n\nRick','',0,'mA==','ag1b8yl8',1,0,'',35,0,0),(44065,9202,3,303,0,'72.220.181.80',1197681420,1,0,1,1,1,0,'','','Rick,\n\n&gt;Lets say you entered the word BOGUS in the get .. and hit enter .. the valid fires and since there was no match .. the listbox gots to the top .. if the user presses ESC .. there is nothing returned because ( as you see ) .. OK only returns values thru that conduit. \n\nYes, that makes sense. However, the word BOGUS should still exist in the GET when you press the Cancel button also. Does it not?\n\nJames','',0,'mA==','1h21te80',1,0,'',303,0,0),(44066,9183,3,63,0,'88.11.29.98',1197682037,1,0,1,1,1,0,'','','Very good job indeed, Shrkod! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nIt is funy, however, that your javascript code seems to be exactly the same as ours, down to the name of the functions and indentations...\nI see that it replicates so well our functionality that you even included an alert in Spanish  - the string \"no encontrado\" which in our case sliped by error and was later corrected.\n\nIt sure must be some odd coincidence...','',0,'mA==','36o7q1p4',1,0,'',63,0,0),(44067,9202,3,35,0,'65.188.6.143',1197683946,1,0,1,1,1,0,'','','James\n\nYES .. the cancel buton leaves the origional input in the get which is the same behavoir as ESC .. \n\nI can see that I need to re-work the end of my list box look ups and force a blank back to re-set the get and deal with the blank on the post form business rules .. \n\nGlad you made me think this thru .. been using the same code for years .. never really caued me much trouble until I started fiddling with it ..\n\nI will let you know\n\nThanks\nRick','',0,'mA==','2mygw7hl',1,0,'',35,0,0),(44068,9225,3,303,0,'72.220.181.80',1197684471,1,0,1,1,1,0,'','','Rick,\n\n&gt;I need to be able to do something like this .. oBrow:nFreeze := 5 \nand ON INIT oBrow:gotocol(10) \n\nTWbrowse has a goRight() method but no nFreeze var.\n\nYou can do this with TSBrowse.\n\noBrow:nFreeze:=5\nfor i = 1 to nCol \n   oBrow:goright()\nnext\n\nYou can get TSBrowse on my website.\n\nTXBrowse also has nFreeze and goRight().\n\nJames','',0,'mA==','mpkht0qc',1,0,'',303,0,0),(44069,9225,3,53,0,'189.139.23.133',1197684638,1,0,1,1,1,1,'','','Rick:\n\nThank you so much.\n\nBest regards','',0,'mA==','t2jz8lat',1,0,'',53,0,0),(44070,8768,3,51,0,'80.122.88.242',1197709248,1,0,1,1,1,0,'','','Antonio, could you please have a look on this.\nThanks in advance,\nOtto\nSame problem:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8134&amp;highlight=xbrowse\">http://fivetechsoft.com/forums/viewtopi ... ht=xbrowse</a><!-- m -->\n\nAt this momoent it is already possible to browse JPG files in a xBrowse() \n\nBut it only works when there is only 1 dataline. Is it possible with xBrowse to combine bitmaps and multiple datalines. \n\nThe JPG is not displayed in the middel of the column. When I give the column the exact width it is not displayed completely. \n\nThanks \n\nWilly','',0,'mA==','1u9piobd',1,0,'',51,0,0),(44071,9225,3,6,0,'87.18.239.72',1197710532,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:u76lh35s]TWbrowse has a goRight() method but no nFreeze var.\n\nYou can do this with TSBrowse.[/quote:u76lh35s]\n\nTCBrowse has nFreeze as well.\n\nEMG','',0,'gA==','u76lh35s',1,0,'',6,0,0),(44072,9183,3,1241,0,'87.218.146.240',1197711906,1,0,1,1,1,0,'','','rafael, it is your html. I right click on the webpage and save the html source code. everybody can do it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','1f9edo9k',1,0,'',1241,0,0),(44073,9183,3,63,0,'88.11.29.98',1197713284,1,0,1,1,1,0,'','','Shrkod,\nIn these forums, when we post code of somebody else, a proper etiquette is at least to give credit to the author.  Otherwise, people can asume that you are claiming authorship for it.  And this, of course, is not your case, is it?','',0,'gA==','32dfz9xj',1,0,'',63,0,0),(44074,9159,3,2,0,'87.218.146.240',1197713811,1,0,1,1,1,1,'','','Acwoo\n\nThis seems to work fine:\n[code:2i140h31]\nfunction getform6c1desp&#40;oc1desp&#41;\n&#46;&#46;&#46;\ncc1desp = c1desp \n\noc1desp&#58;VarPut&#40; cc1desp &#41;\noc1desp&#58;oGet = GetNew&#40; 20, 20, oc1desp&#58;bSetGet &#41;\noc1desp&#58;Refresh&#40;&#41;\n\nreturn oc1desp \n[/code:2i140h31]','',0,'AIA=','2i140h31',1,0,'',2,0,0),(44075,9183,3,1241,0,'87.218.146.81',1197714224,1,0,1,1,1,0,'','','rafael it is your code. you have the credits. I solved the need for a big dll','',0,'AIA=','377wwixa',1,0,'',1241,0,0),(44076,9229,3,2,0,'87.218.146.240',1197715384,1,0,1,1,1,1,'','','Otto,\n\nHave you tried to change it and refresh the browse ?','',0,'AIA=','c1v68ctv',1,0,'',2,0,0),(44077,9230,3,6,0,'87.18.239.72',1197715541,1,0,1,1,1,1,'','Little bug in TCBrowse class','In the following sample press 13 times the right arrow key on the keyboard and then look at the browse headers. You should see a little change on them (the bottom shadow becomes gray and larger).\n\n[code:w8yelu7z]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    LOCAL i\n\n    USE TEST\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 0, 0 BROWSE oBrw\n\n    ADD COLUMN TO oBrw;\n               DATA &quot;Frozen&quot;;\n               HEADER &quot;FROZEN&quot;\n\n    oBrw&#58;bLogicLen = &#123; || LastRec&#40;&#41; &#125;\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;nFreeze = 1\n\n    FOR i = 1 TO 20\n        ADD COLUMN TO oBrw;\n                   DATA &quot;Data&quot;;\n                   HEADER &quot;DATA&quot; + LTRIM&#40; STR&#40; i &#41; &#41;\n    NEXT\n\n    ADD COLUMN TO oBrw\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:w8yelu7z]\n\nEMG','',0,'AIA=','w8yelu7z',1,0,'',6,0,0),(44078,9225,3,868,0,'219.64.121.60',1197716350,1,0,1,1,1,1,'','','It is very simple to do with xBrowse\n\n[code:3tfytlns]\n@ 0,0 XBROWSE oBrw OF oWnd\noBrw&#58;SetADO&#40; oRecSet &#41;\noBrw&#58;CreateFromCode&#40;&#41;\noWnd&#58;oClient      &#58;= oBrw\noBrw&#58;nFreeze      &#58;= 3\noBrw&#58;nColSel      &#58;= 8\nACTIVATE WINDOW oWnd ON INIT &#40; oBrw&#58;SetFocus&#40;&#41; &#41;\n[/code:3tfytlns]','',0,'AIA=','3tfytlns',1,0,'',868,0,0),(44079,9231,6,1236,0,'201.22.71.236',1197718494,1,0,1,1,1,0,'','Google Maps','Sr. Antonio, em relação a este tópico, baixei o exemplo e ao executar ele fica um quadrado(retangulo) pequeno no navegador, mais não abre o mapa, pode me ajudar.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9183\">http://fivetechsoft.com/forums/viewtopic.php?t=9183</a><!-- m -->\n\n\nGrato','',0,'AIA=','u90qjdxn',1,0,'',1236,0,0),(44080,9231,6,2,0,'87.218.146.240',1197719059,1,0,1,1,1,1,'','','Que versión de FWH usas ?','',0,'AIA=','sgndb3et',1,0,'',2,0,0),(44081,9231,6,1236,0,'201.22.71.236',1197719385,1,0,1,1,1,0,'','','fwh 7.01, porém estou executando o proprio exemplo.\n\n[url=http&#58;//img176&#46;imageshack&#46;us/my&#46;php?image=imagemjy7&#46;jpg:wr129t05][img:wr129t05]http&#58;//img176&#46;imageshack&#46;us/img176/4215/imagemjy7&#46;th&#46;jpg[/img:wr129t05][/url:wr129t05]','',0,'GA==','wr129t05',1,0,'',1236,0,0),(44082,9193,6,936,0,'72.252.102.58',1197719849,1,0,1,1,1,0,'','','Carlos.\nQuiero tomarte la palabra, molestandote si es posible me puedas enviar un ejemplo lo más completo que puedas, (por favor, ya que soy novato en esto de las dll\'s), incluyendo fuentes y scripts de compilación y linqueo, para poder tener un buen punto de inicio en esta otra forma de programar.\nTe comento que yo actualmente, traslado el ejecutable completo al cliente cada vez que hago una actualización o corrección a mis sistemas, y a veces es una modificación pequeña, pero igual tengo que trasladar el ejecutable nuevamente.\n\nBueno, agradeciendo anticipadamente tu ayuda, y como tu dices, de repente ya no estaras tan solo en esto.\n\nSaludos.\n\nCarlos Sincuir\n<!-- e --><a href=\"mailto:sincuir@yahoo.com\">sincuir@yahoo.com</a><!-- e -->','',0,'GA==','3ahtmwtk',1,0,'',936,0,0),(44083,9225,3,868,0,'219.64.121.60',1197722125,1,0,1,1,1,1,'','','Works in Dialogs too :\n\n[code:3ub9oi49]\n   LOCAL oDlg, oRecSet, oBrw\n\n   oRecSet  &#58;= GetRecSet&#40;&#41;\n\n   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TITLE \'XBRW ADO IN DLG\'\n   @ 10,10 XBROWSE oBrw SIZE 280,165 PIXEL OF oDlg\n\n   // pl keep the two lines below till FWH releases their fix\n   oBrw&#58;nTop      &#58;= 10\n   oBrw&#58;nLeft    &#58;= 10\n   // the above two lines\n\n   oBrw&#58;SetADO&#40; oRecSet &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oBrw&#58;nFreeze      &#58;= 3\n   oBrw&#58;nColSel      &#58;= 6\n\n   @ 180,250 BUTTON \'Close\' SIZE 40,13 PIXEL OF oDlg ACTION oDlg&#58;End&#40;&#41;\n\n\n   ACTIVATE DIALOG oDlg CENTERED \n[/code:3ub9oi49]','',0,'AIA=','3ub9oi49',1,0,'',868,0,0),(44084,9231,6,2,0,'87.218.146.240',1197725029,1,0,1,1,1,1,'','','Revisa y prueba fwh\\samples\\WebExp.prg','',0,'AIA=','dhswvd8r',1,0,'',2,0,0),(44085,9222,6,2,0,'87.218.146.240',1197725158,1,0,1,1,1,1,'','','Esa librería es para una versión más reciente de xharbour','',0,'AIA=','p8903ob7',1,0,'',2,0,0),(44086,9224,6,2,0,'87.218.146.240',1197725266,1,0,1,1,1,1,'','','Joao,\n\nlPesquisa := .F. ), [color=red:1lzyi1eb].T.[/color:1lzyi1eb] ),  [color=red:1lzyi1eb].T.[/color:1lzyi1eb] ) }','',0,'Ag==','1lzyi1eb',1,0,'',2,0,0),(44087,9231,6,1236,0,'201.22.71.236',1197726973,1,0,1,1,1,0,'','','o exemplo funciona perfeito!','',0,'Ag==','1wwdna6m',1,0,'',1236,0,0),(44088,9180,6,104,0,'201.58.116.225',1197732280,1,0,1,1,1,0,'','','Olá Antonio,\n\nNo meu caso, uso assim e funciona perfeitamente.\n\n[code:17mjlki6]\n&#46;&#46;&#46;\n      if GetFocus&#40;&#41; != &#58;&#58;hWnd\n         SetFocus&#40; &#58;&#58;hWnd &#41;\n      endif\n**      return 0  &lt;&lt;-- Tirar esta linha\nendif\n\nreturn Super&#58;LButtonUp&#40; nRow, nCol, nKeyFlags &#41;\n[/code:17mjlki6]\n\nIsto estaria correto também ?\n\nAbraços,\n\nRossine.','',0,'AIA=','17mjlki6',1,0,'',104,0,0),(44089,9159,3,1181,0,'60.50.120.128',1197732285,1,0,0,0,1,1,'','Problem Upgrade To FWH7.11','Thanks a lot. Now it works.\n\nThanks again','',0,'AIA=','1kuda2e1',1,0,'',1181,0,0),(44090,9180,6,2,0,'87.218.146.240',1197734898,1,0,1,1,1,1,'','','Rossine,\n\n&gt; Isto estaria correto também ? \n\nNo, porque en la Clase TWindow se vuelve a evaluar.\n\nPor eso hay que usar return 0, para que no se llame a Super:LButtonUp','',0,'AIA=','2fiuh210',1,0,'',2,0,0),(44091,9232,3,448,0,'83.132.134.79',1197736530,1,0,1,1,1,0,'','Error win32ole.prg =&gt; TOLEAUTO:ADJCLIENT(0)','I\'m getting this error working with activex crystal reports. Does anyone knows the reason?\nWhen the window with the oViewer control gets activated I get the error.\nOtherwise all ole control of the object works ok.\n\nAny ideas ?\n\nAntonio','',0,'AIA=','21460wlt',1,0,'',448,0,0),(44092,9232,3,2,0,'87.218.146.240',1197737552,1,0,1,1,1,1,'','','Are you using xHarbour ?\n\nIf yes, then add this before using TOleAuto:\n\nEXTEND CLASS TOLEAUTO WITH METHOD AdjClient\n\nstatic function AdjClient() ; return nil','',0,'AIA=','uvd8m7nq',1,0,'',2,0,0),(44093,9233,2,890,0,'190.9.66.224',1197739627,1,0,1,1,1,0,'','Cambiar texto seleccionado en tiempo de ejecucion','Antonio\n\nUn cordial Saludo para ti y para todos los integrantes del foro\n\nYa puedo seleccionar el texto con la ayuda que me diste la consulta pasada, le hice un dialogo para poder cambiar el texto y funciona perfectamente, pero ahora tengo la siguiente inquietud.\nComo puedo cambiar el texto en tiempo de ejecución?\nDicho de otra forma sin cerrar el dialogo que presenta el texto ni abrir otro dialogo como puedo conseguir el cambiar el texto en el mismo dialogo sin cerrarlo?\n\nCordialmente\n\nJairo Barbosa','',0,'AIA=','lr0tzn6q',1,0,'',890,0,0),(44094,9180,6,104,0,'201.58.116.225',1197742513,1,0,1,1,1,0,'','','OK Antonio  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nObrigado pela explicação.\n\nRossine.','',0,'AIA=','1x2mdtq1',1,0,'',104,0,0),(44095,9234,6,53,0,'189.139.94.132',1197751010,1,0,1,1,1,1,'','No se puede borrar enhanced metafile','Amigos del foro:\n\nEn una aplicación y en cierto reporte me esta enviando el mensaje de que no puede borrar un ENHANCED METAFILE, lo curioso es que no manda el error en cada reporte solo en uno en especial que es un simple catálogo de socios y solo en la PC del cliente que tiene Windows XP SP2 instalado.\n\nalguna idea de por donde buscar ?\n\nSaludos  a todos','',0,'AIA=','1qsnh1cc',1,0,'',53,0,0),(44096,9233,2,2,0,'87.218.146.240',1197753035,1,0,1,1,1,1,'','','Jairo,\n\nPuedes obtener el texto con oMemo:GetText(), modificarlo como desees, y volver a asignarlo con oMemo:SetText( &lt;Nuevo_texto&gt; )\n\nPor ejemplo:\n\noMemo:SetText( StrTran( oMemo:GetText(), \"una frase\", \"otra frase\" ) )','',0,'AIA=','2ueyhc55',1,0,'',2,0,0),(44097,9229,3,51,0,'80.122.88.242',1197755044,1,0,1,1,1,0,'','','Thank you. Yes I tried with refresh().\nHere is my code:\n\nfunc f_DataStrAlign(r,c,f,o)\n\n          oBrw:nRowDividerStyle := 0    // I put this to proof that refresh is working\n\n          oBrw:aCols[ o:nPos ]:nDataStrAlign :=   AL_RIGHT\n\n          oBrw:refresh()\n\n          return nil\n\nThe text does not move.\nRegards,\nOtto','',0,'','15wuyji6',1,0,'',51,0,0),(44098,9230,3,2,0,'87.218.146.240',1197758749,1,0,1,1,1,1,'','','Enrico,\n\nFixed. It was such a little thing but took me several hours to found it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nIn Class TCBrowse Method DrawHeaders() change this line:\n\n#define SM_CXVSCROLL  2\n\nlocal nMaxWidth := ::nWidth() - GetSysMetrics( SM_CXVSCROLL ) - 4','',0,'','13td2tdy',1,0,'',2,0,0),(44099,9183,3,300,0,'201.41.126.25',1197760014,1,0,1,1,1,0,'','','Hi Shrkod,\n\nThanks, great job. In my city exists many Streets 9, exist the possibility to add a parameter like a district or sector?\n\nWanderson.\nGoiânia-Brazil','',0,'','1zq4z6vb',1,0,'',300,0,0),(44100,9218,3,49,0,'62.13.172.67',1197766853,1,0,1,1,1,1,'','','Antonio,\nthis is for italian language ok\nbut i saw  a vb application you can set language....\nHow mak eto make it \nhow make to set any language ?','',0,'','28qeka2h',1,0,'',49,0,0),(44101,9183,3,1241,0,'87.218.146.81',1197766878,1,0,1,1,1,0,'','','all credits go to rafael. I did nothing except remove the dll. ask rafael','',0,'','3u2g2p7g',1,0,'',1241,0,0),(44102,9196,3,2,0,'87.218.146.240',1197787722,1,0,1,1,1,1,'','','NageswaraRao,\n\nPlease post a screenshot, thanks','',0,'','2cj8969e',1,0,'',2,0,0),(44103,9133,3,2,0,'87.218.146.240',1197788217,1,0,1,1,1,1,'','','Otto,\n\nYou have to replace each column row DATA oDataFont\n\nIts not a codeblock so you have to do it manually','',0,'','ufdqi6xu',1,0,'',2,0,0),(44104,9183,3,63,0,'88.11.29.98',1197799029,1,0,1,1,1,0,'','','Wanderson,\n\nDuring the past days, I have sent a copy of the demo program to all the friends that requested it.  All of them got a further mail explaing the reason for not posting it for public download.  \n\nAlso, I informed them that after the code was publicly disclosed on this forum without me even being consulted, I had decided to freeze further development on it.  Maybe somebody else will pick up where I left it\n\nBest regards,\n\nRafael','',0,'','1ipa99tg',1,0,'',63,0,0),(44105,9230,3,6,0,'82.54.221.30',1197799754,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:v2d3fn05]Enrico,\n\nFixed. It was such a little thing but took me several hours to found it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:v2d3fn05]\n\nI\'m very sorry. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nAnyway, thank you.\n\nEMG','',0,'gA==','v2d3fn05',1,0,'',6,0,0),(44106,9232,3,448,0,'83.132.134.79',1197799956,1,0,1,1,1,0,'','','Antonio,\n\nThanks, but now  the viewer object doesn\'t apper on the window.\n\nThe reports works ok to the printer but not to the screen.\nHere is the code that should work ok. \n\n DEFINE WINDOW oWnd TITLE cTitle\n\n       oCRViewer := ToleAuto():New(\"CrystalReports.ActiveXReportViewer\" )\n\n       oCRViewer:EnableExportButton :=1\n       oCRViewer:EnableStopButton:= 1\n       oCRViewer:EnableNavigationControls:=1\n       oCRViewer:EnablePopupMenu:=0\n       oCRViewer:EnableCloseButton:=0\n       if lPcdata\n          oCRViewer:DisplayGroupTree:=0\n          oCRViewer:EnableDrillDown:=0\n          oCRViewer:EnableGroupTree:=0\n       endif\n       oCRViewer:ReportSource:= oReport\n\n       oCRViewer:ViewReport()\n       oCrViewer:Zoom:=75\n\n       oWnd:oClient := oCRViewer\n\n     \n       ACTIVATE WINDOW oWnd MAXIMIZED ;\n       VALID (oReport:CancelPrinting(),oCrystal:CanClose() )','',0,'gA==','397ioi9b',1,0,'',448,0,0),(44107,9230,3,6,0,'82.54.221.30',1197800706,1,0,1,1,1,1,'','','And while you are looking at it, please see if you can easily implement codeblocks for nClrForeFocus and nClrBackFocus. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[code:s6hvrkgo]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 0, 0 BROWSE oBrw\n\n    oBrw&#58;bLogicLen = &#123; || LastRec&#40;&#41; &#125;\n\n    oBrw&#58;lCellStyle = &#46;T&#46;\n\n    oBrw&#58;nClrBackFocus = &#123; || CLR_HGREEN &#125;\n\n    ADD COLUMN TO oBrw;\n               DATA &quot;Data&quot; + LTRIM&#40; STR&#40; RECNO&#40;&#41; &#41; &#41; + &quot;   &quot;;\n               HEADER &quot;DATA&quot;\n\n    ADD COLUMN TO oBrw\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:s6hvrkgo]\n\nEMG','',0,'AIA=','s6hvrkgo',1,0,'',6,0,0),(44108,9232,3,6,0,'82.54.221.30',1197800956,1,0,1,1,1,1,'','','This is a sample that I successfully tried in the past (please note that I don\'t have CR installed now and therefore I can\'t test it anymore):\n\n[code:2rqdv37n]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oCrystal &#58;= CREATEOBJECT&#40; &quot;CrystalRuntime&#46;Application&quot; &#41;\n    LOCAL oReport  &#58;= oCrystal&#58;OpenReport&#40; &quot;PROVA&#46;RPT&quot; &#41;\n\n    LOCAL oWnd, oCRViewer\n\n    DEFINE WINDOW oWnd\n\n    oCRViewer = TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;CRViewer9&#46;CRViewer&quot; &#41;\n\n    oCRViewer&#58;SetProp&#40; &quot;ReportSource&quot;, oReport &#41;\n    oCRViewer&#58;Do&#40; &quot;ViewReport&quot; &#41;\n\n    oWnd&#58;oClient = oCRViewer\n\n    ACTIVATE WINDOW oWnd;\n             MAXIMIZED\n\n    RETURN NIL[/code:2rqdv37n]\n\nEMG','',0,'AIA=','2rqdv37n',1,0,'',6,0,0),(44109,9232,3,448,0,'83.132.134.79',1197801458,1,0,1,1,1,0,'','','Basiclly codes are identical. I use Cr 11 so the app ids changed.\nIt used to work with previous version of Harbour (don\'t know versiom) but now with xHarbour March 2006 and FWH March 2006 it doesn\'t anymore.\n\nAntonio','',0,'AIA=','1dp543py',1,0,'',448,0,0),(44110,9196,3,868,0,'219.64.121.60',1197801717,1,0,1,1,1,1,'','','This is a part of the screen shot from rebars.prg.  This is done thro rebars and toolbar.\n\nInstead I like to get similar functionality using FWH Buttonbar ( tbar() ) in FWH folders.\n\n[url=http&#58;//imageshack&#46;us:3ihavgo3][img:3ihavgo3]http&#58;//img227&#46;imageshack&#46;us/img227/3186/btnbarinfolderjx7&#46;png[/img:3ihavgo3][/url:3ihavgo3]\n\nIf can be done, this will have simpler functionality as officebar, without all that ornamentation and should be easier for development.','',0,'GA==','3ihavgo3',1,0,'',868,0,0),(44111,9183,3,49,0,'72.14.220.136',1197801839,1,0,1,1,1,1,'','','Rafael,\nyou can put all a zip and go to <!-- w --><a class=\"postlink\" href=\"http://www.hyperupload.com\">www.hyperupload.com</a><!-- w -->\nU can\npubblish it .','',0,'GA==','1xcjlxur',1,0,'',49,0,0),(44113,9232,3,2,0,'87.218.146.240',1197802673,1,0,1,1,1,1,'','','Antonio, Enrico,\n\nDoes oCRViewer provide a property to access its window handle ?\n\nThat is what we need to make AdjClient() work fine\n\nEnrico\'s example is using a TActiveX which is derived from TControl, so AdjClient() works fine with it','',0,'GA==','ckzjq1vw',1,0,'',2,0,0),(44114,9146,6,596,0,'84.76.66.27',1197802876,1,0,1,1,1,1,'','','Urdaneta, pymsoft... gracias.\n\nProbado y funcionando.\n\n¿ Esto mismo se puede hacer con la clase TFileXLS ?\n\n...me refiero a mas \"hojas\" por \"libro\", seria fenomenal...','',0,'GA==','1fm7fexe',1,0,'',596,0,0),(44115,9230,3,2,0,'87.218.146.240',1197802925,1,0,1,1,1,1,'','','Enrico,\n\nDon\'t feel sorry at all. I really appreciate your feedback,\n\nIts our job to locate and solve the bugs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Thanks!','',0,'GA==','1447v991',1,0,'',2,0,0),(44116,9111,7,527,0,'88.7.187.136',1197803174,1,0,1,1,1,0,'','Me interesa el tema','<!-- e --><a href=\"mailto:mjcc@mjccsl.com\">mjcc@mjccsl.com</a><!-- e -->','',0,'GA==','304e2lwk',1,0,'',527,0,0),(44117,9196,3,2,0,'87.218.146.240',1197803279,1,0,1,1,1,1,'','','NageswaraRao,\n\nDo you mean that you want to place a buttonbar on each dialog of a folder ?\n\nIf yes, then you can do it from the ON INIT clause of the main dialog:\n[code:1sk3qbxx]\nACTIVATE DIALOG oDlg ;\n   ON INIT BuildBars&#40; oFolder &#41;\n\n&#46;&#46;&#46;\n\nfunction BuildBars&#40; oFolder &#41;\n\n   local oBar\n\n   DEFINE BUTTONBAR oBar OF oFolder&#58;aDialogs&#91; 1 &#93; 3D\n\n   DEFINE BUTTON OF oBar &#46;&#46;&#46;\n\n   &#46;&#46;&#46;\n\nreturn nil\n[/code:1sk3qbxx]','',0,'AIA=','1sk3qbxx',1,0,'',2,0,0),(44118,9069,6,596,0,'84.76.66.27',1197804351,1,0,1,1,1,1,'','','[quote=&quot;alex_cyr&quot;:2nfuubqy]\n[code:2nfuubqy]   oxls&#58;=TOleAuto&#40;&#41;&#58;New&#40; &quot;Excel&#46;Application&quot; &#41;\n   oxls&#58;WorkBooks&#58;add&#40;&#41;[/code:2nfuubqy]\n[/quote:2nfuubqy]\n\n¿ Y donde especificamos el nombre del fichero XLS ?','',0,'gIA=','2nfuubqy',1,0,'',596,0,0),(44119,9232,3,448,0,'83.132.134.79',1197804702,1,0,1,1,1,0,'','','Changing from toleauto to tactivex I get the error :\n\n  Error description: Error BASE/1004  Class: \'NUMERIC\' has no exported method: HWND\n   Args:\n\nStack Calls\n===========\n   Called from:  =&gt; HWND(0)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: TActiveX.prg =&gt; CREATEACTIVEX(184)\n   Called from: TActiveX.prg =&gt; TACTIVEX&#058;NEW(0)\n   Called from: crtfwup.PRG =&gt; MAIN(275)','',0,'gIA=','suzr04uc',1,0,'',448,0,0),(44120,9183,3,972,0,'81.164.117.253',1197805418,1,0,1,1,1,0,'','','[quote=&quot;Rafael Clemente&quot;:2wp0jn4b]Of course the trick is in the POS.DLL.  Being a work in progress, I wouldn\'t like to make it public yet. But I\'ll be happy to send a copy to anybody interested.  From the above code you can see how easy is to use it.  It has taken Otto all of ten minutes to include it in his software  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2wp0jn4b]\nGreat work Rafael.\n\nPlease send me a copy so I can test it with xHarbour Builder. Many thanks!\n\n<!-- e --><a href=\"mailto:patrick.mast@xharbour.com\">patrick.mast@xharbour.com</a><!-- e -->\n\nPatrick','',0,'gA==','2wp0jn4b',1,0,'',972,0,0),(44121,9069,6,542,0,'88.27.86.83',1197806675,1,0,1,1,1,0,'','','Hola JmGarcia:\n\nEl post es el comienzo para crear la hoja y cuando termino yo pongo\n\noHoja:End()\noWorkBook:SaveAs(fichsali)\noExcel:Quit()\noExcel:End()\noExcel:=NIL\nOleUnInitialize()\n\nen donde fichsali es el nombre del fichero excel que quiero.\n\nUn saludo\n\nCarlos','',0,'gA==','189qslgw',1,0,'',542,0,0),(44122,8811,6,596,0,'84.76.66.27',1197807430,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3uh3ot22]...GetNetCardID()...[/quote:3uh3ot22]\nAntonio, si tengo mas de una tarjeta de red ¿ Como se los numeros de serie de todas ellas ?','',0,'gA==','3uh3ot22',1,0,'',596,0,0),(44123,9232,3,448,0,'83.132.134.79',1197807790,1,0,1,1,1,0,'','','No oCrviewer doesn\'t have any property to put the window handle.\n\nAntonio','',0,'gA==','2ban84eo',1,0,'',448,0,0),(44124,9133,3,51,0,'80.122.88.242',1197812958,1,0,1,1,1,0,'','','Thank you, Antonio. I got it working.\n\n[img:262fi8jp]http&#58;//www&#46;atzwanger&#46;com/fw/StrikeoutOK&#46;jpg[/img:262fi8jp]','',0,'CA==','262fi8jp',1,0,'',51,0,0),(44125,9133,3,3,0,'80.81.159.19',1197814062,1,0,1,1,1,1,'','','Otto\n\nWould you mind sharing the way you did it (the font issue)\n\nAntonio, a codeblock would be a good idea for column data, it could be evaluated easilly\n\nRichard','',0,'CA==','33i3heml',1,0,'',3,0,0),(44126,9133,3,51,0,'80.122.88.242',1197817857,1,0,1,1,1,0,'','','Hello Richard,\nhere is the define of the font:\nStrikeOut is not in font.ch!!!\noFNT := TFont():New( \"MS Sans Serif\", 10, 15,,.T.,,,,.f.,.f.,.t.,,,,, )\nRegards,\nOtto','',0,'CA==','2lo0tjz1',1,0,'',51,0,0),(44127,9133,3,3,0,'85.195.137.204',1197818152,1,0,1,1,1,1,'','','Otto\n\nMy concern is how did you draw a different font per column without a codeblock being evaluated\n\nThanks for help\n\nRichard','',0,'CA==','ce8zqfch',1,0,'',3,0,0),(44128,9235,2,542,0,'88.27.86.83',1197819119,1,0,1,1,1,0,'','Crear PDF','Hola a todos:\n\nEstoy haciendo un archivo PDF con TPDF y a la hora de poner los textos va perfecto, lo que me pasa es que quiero incluir una imagen JPG y no consigo ponerla correctamente.\n\nla instrucción que pongo es :\n\noPdf:PdfImage(\"Albaran.jpg\",0,0)\n\ny segun sea el archivo no pinta nada o lo distorsiona de tal manera que no se parece nada.\n\nMe podriais ayudar.\n\nUn saludo\n\ncarlos','',0,'CA==','15aot7vt',1,0,'',542,0,0),(44129,9236,6,542,0,'88.27.86.83',1197819171,1,0,1,1,1,0,'','Crear PDF','Hola a todos: \n\nEstoy haciendo un archivo PDF con TPDF y a la hora de poner los textos va perfecto, lo que me pasa es que quiero incluir una imagen JPG y no consigo ponerla correctamente. \n\nla instrucción que pongo es : \n\noPdf:PdfImage(\"Albaran.jpg\",0,0) \n\ny segun sea el archivo no pinta nada o lo distorsiona de tal manera que no se parece nada. \n\nMe podriais ayudar. \n\nUn saludo \n\ncarlos','',0,'CA==','3p6zc3gy',1,0,'',542,0,0),(44130,9183,3,300,0,'201.40.59.36',1197819684,1,0,1,1,1,0,'','','[quote=&quot;Rafael Clemente&quot;:q25r5pkp]Wanderson,\n\nDuring the past days, I have sent a copy of the demo program to all the friends that requested it.  All of them got a further mail explaing the reason for not posting it for public download.  \n\nAlso, I informed them that after the code was publicly disclosed on this forum without me even being consulted, I had decided to freeze further development on it.  Maybe somebody else will pick up where I left it\n\nBest regards,\n\nRafael[/quote:q25r5pkp]\n\nOk I believe that you have their reasons.\n\nThanks.','',0,'gA==','q25r5pkp',1,0,'',300,0,0),(44131,9232,3,2,0,'87.218.146.240',1197820095,1,0,1,1,1,1,'','','Antonio,\n\nAre you using xHB commercial ? \n\nIt looks so as you are linking Class TActiveX from xHB commercial instead of Class TActiveX from FWH','',0,'gA==','sqdb5t5j',1,0,'',2,0,0),(44132,8811,6,2,0,'87.218.146.240',1197820328,1,0,1,1,1,1,'','','Jose M,\n\nTenemos que modificar GETNETCARDID() para que en esos casos devuelva un array','',0,'gA==','pij43t02',1,0,'',2,0,0),(44133,9232,3,448,0,'83.132.134.79',1197823957,1,0,1,1,1,0,'','','Antonio,\n\nThanks, problem solved.','',0,'gA==','oervsdsl',1,0,'',448,0,0),(44134,9133,3,51,0,'80.122.88.242',1197826985,1,0,1,1,1,0,'','','Do you mean per column or row?\ncolumn is standard in xBrowser:\n\n    oCol := oxBrw:AddCol()\n    oCol:cHeader    := \"....\"\n    oCol:oHeaderFont   := oWHSetup:oFntKlein()\n    oCol:bStrData   := { || ...}\n    ---&gt;  oCol:oDataFont  := oFntAnzeig\n    oCol:nWidth     := 181\n\nTry my snipkeeper.exe.','',0,'gA==','mzx4jqt1',1,0,'',51,0,0),(44135,9234,6,53,0,'189.139.16.228',1197827574,1,0,1,1,1,1,'','','Amigos:\n\nPues parece que nadie tiene problemas con este error, he revisado en este maravilloso foro pero no hay solución, todos los mensajes que contienen este mismo error ha sido por error en el código usando la clase TPRINTER pero en mi caso es con la clase TREPORT y no he visto un caso similar en el foro.\n\nAlguna idea ?\n\nSaludos','',0,'gA==','3vjnhm7j',1,0,'',53,0,0),(44136,9237,6,53,0,'189.139.16.228',1197828921,1,0,1,1,1,1,'','Super Headers en TReport','Amigos del foro:\n\nEn versiones anteriores especificamente en 16 bits con la clase TReport se podian definir varias líneas de encabezados y cuando algún texto sobrepasaba lo ancho de la columna el texto invadia otra u otras columnas lo que de una forma me permitia poner un tipo de superheader como se muestra en la siguiente imágen.\n\n[img:23rfrcyk]http&#58;//rapidshare&#46;com/files/77014394/Clip0&#46;jpg&#46;html[/img:23rfrcyk]\n\nSin embargo con las versiones recientes cuando el texto sobrepasa la anchura de su columna simplemente se trunca el texto.\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/77015710/Clip1.jpg.html\">http://rapidshare.com/files/77015710/Clip1.jpg.html</a><!-- m -->\n\nCómo puedo lograr nuevamente los superheaders ???\n\nGracias por la ayuda','',0,'CA==','23rfrcyk',1,0,'',53,0,0),(44137,9237,6,53,0,'189.139.16.228',1197829085,1,0,1,1,1,1,'','Whoopss','Lamento el error, no supe poner el link para mostrar las imagenes, habrá que descargarlas  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nSaludos','',0,'CA==','32pc3y77',1,0,'',53,0,0),(44138,9234,6,2,0,'87.218.146.240',1197835628,1,0,1,1,1,1,'','','Armando,\n\nTe genera un error.log ? Si es así, puedes copiar aqui la pila de llamadas (calls stack) ? gracias','',0,'CA==','2jyzf3jm',1,0,'',2,0,0),(44139,9238,3,34,0,'68.5.217.82',1197838791,1,0,1,1,1,1,'','Dual Monitor','I\'ve observed a strange behavior when using dual monitors.  When running the application on the 2nd monitor ( not primary ), when saving a numeric value, for some reson the value reverts to 0.  If I drag the application back to the primary monitor, it works fine and saves the adjusted value.\n\nI don\'t expect a solution to this problem, but rather I\'m wondering if anyone has seen articles, or threads, on dual monitors that might relate to a program behaving differently on a second monitor than it does ( correctly ) on the primary monitor.\n\nThis is not specific to this location.  I have a client who has observed the problem on all of their dual monitor workstations.','',0,'CA==','267aiy43',1,0,'',34,0,0),(44140,9239,3,2,0,'87.218.146.240',1197838910,1,0,1,1,1,1,'','Using JPGs with RichEdit','local oImage\n\nDEFINE IMAGE oImage FILE \"fw.jpg\"\n\noRTF:InsertPicture( oImage:hBitmap )\n\noImage:End()\n\nYou can also use other graphic file formats except PNG','',0,'CA==','30mh97en',1,0,'',2,0,0),(44141,9238,3,2,0,'87.218.146.240',1197839163,1,0,1,1,1,1,'','','Tim,\n\n&gt; when saving a numeric value, for some reson the value reverts to 0\n\nAre you using a dialogbox to get the numeric value ?\n\nDo you show any MsgInfo() or similar before saving its value ?','',0,'CA==','3089j4wt',1,0,'',2,0,0),(44142,9240,6,2,0,'87.218.146.240',1197839240,1,0,1,1,1,1,'','Usando JPGs con RichEdit','local oImage \n\nDEFINE IMAGE oImage FILE \"fw.jpg\" \n\noRTF:InsertPicture( oImage:hBitmap ) \n\noImage:End() \n\nSe pueden usar otros tipos de formatos gráficos de ficheros excepto PNG','',0,'CA==','1i2pxf5g',1,0,'',2,0,0),(44143,9143,6,1206,0,'84.77.159.223',1197839385,1,0,1,1,1,0,'','','Jose Luis,\n\nEfectivamente con Microsoft Outlook (Outlook Express no es lo mismo), no se puede. Actualmente yo utilizo la clase TSMTP. Lo único que no he podido hacer, es registrarlo como correo enviado dentro de la carpeta de elementos enviados. Si tienes alguna duda, tengo aplicaicones que hace lo que to necesitas, es decir correo de envio masivo.\n\nUn saludo','',0,'CA==','2i9g6y96',1,0,'',1206,0,0),(44144,9239,3,51,0,'80.122.88.242',1197840953,1,0,1,1,1,0,'','','Code integrated into FWH\\samples\\testrich.prg\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->\n[img:2m7iinow]http&#58;//www&#46;winhotel&#46;info/aspnewsletter/images/articles/jpgrichtxt_kl&#46;jpg[/img:2m7iinow]','',0,'CA==','2m7iinow',1,0,'',51,0,0),(44145,9143,6,596,0,'84.76.66.27',1197843552,1,0,1,1,1,1,'','','[quote=&quot;JARO&quot;:13hnmwqx]...tengo aplicaicones que hace lo que to necesitas, es decir correo de envio masivo...[/quote:13hnmwqx]\nMas que masivo yo lo que necesito en \"envío desatendido\" de un PC colocado en una instalación remota y que envíe correos a ciertas horas con datos.\nSi, supongo que la clase TSMTP sera lo que necesite... ponme algún ejemplo.\nGracias.','',0,'gA==','13hnmwqx',1,0,'',596,0,0),(44146,9238,3,34,0,'68.5.217.82',1197844749,1,0,1,1,1,1,'','Data','Good Afternoon ( evening there ) ...\n\nActually, I am using a MsgInfo( ) ... and the data is stored in a dialog box.  Its in a part system, and we notify the user when the quantity is 0.  \n\nTim','',0,'gA==','1o67hsad',1,0,'',34,0,0),(44147,9238,3,2,0,'87.218.146.240',1197848047,1,0,1,1,1,1,'','','Tim,\n\nPlease try it without the MsgInfo(), thanks','',0,'gA==','2luvnasy',1,0,'',2,0,0),(44148,9241,6,1013,0,'190.42.193.138',1197851053,1,0,0,1,1,0,'','Problemas con Folder','Estimados Señores\n\nEstoy tratando de trabajar con folder, pero solo me sale la primera pantalla, trate de guiarme con el demo de fwh el cual si funciona, esto se debe a que tiene un testfld2.rc , el cual con el workshop no puedo generar para que salga igual, con que utilitario se puede crear ?\n\nGracias\n\nMarcelo','',0,'gA==','x5kq9c36',1,0,'',1013,0,0),(44149,9237,6,53,0,'189.139.16.228',1197853566,1,0,1,1,1,1,'','','Amigos:\n\nDisculpen las molestias pero como dicen que una imagén dice más que mil palabras....\n\nANTES\n<!-- m --><a class=\"postlink\" href=\"http://img167.imageshack.us/img167/3315/clip0bc8.jpg\">http://img167.imageshack.us/img167/3315/clip0bc8.jpg</a><!-- m -->\n\nAHORA\n<!-- m --><a class=\"postlink\" href=\"http://img155.imageshack.us/img155/86/clip1hm1.jpg\">http://img155.imageshack.us/img155/86/clip1hm1.jpg</a><!-- m -->\n\n\nUn saludo a todos','',0,'gA==','eogiekwi',1,0,'',53,0,0),(44150,9238,3,34,0,'68.5.217.82',1197854994,1,0,1,1,1,1,'','MsgAlert','The problem occurs when I call MsgAlert within a VALID clause.  Essentially, if the quantity available is 0.00, and the quantity 1 is entered, a warning shows about no stocking quantity ( MsgAlert() ) and then normally allows the Save of the actual entered quantity ( on monitor 1 ), but on the secondary monitor, it reverts the quantity to 0.','',0,'gA==','1t4jzgo2',1,0,'',34,0,0),(44151,9242,6,400,0,'201.68.33.197',1197857044,1,0,1,1,1,1,'','twBrowse de Hernan x FwH712..Erro GPF ???','Yo recompilei los Fontes del TwBrowse 1.5 de Hernan, gerarando el Lib para compilar junto à FwH712/xHDez/2007, mas ao abrir el browse vem junto el Mgs de GPF, se tira la Lib de twbrowse, no ha problema.\n\nO q podes estas havendo ???\n\nObs. Ao gerar la Lib...ocorreu estes warning ?\n[code:2ht74e62]\nModulos em &#46;C  - 0003 WBRWLINE -------------------------------------------------------------- \nBorland C++ 5&#46;5&#46;1 for Win32 Copyright &#40;c&#41; 1993, 2000 Borland\nWBRWLINE&#46;C&#58;\nWarning W8065 WBRWLINE&#46;C 308&#58; Call to function \'hb_itemArrayGet\' with no prototype in function PaintTheLine\nWarning W8069 WBRWLINE&#46;C 308&#58; Nonportable pointer conversion in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 309&#58; Call to function \'hb_itemType\' with no prototype in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 309&#58; Call to function \'hb_itemGetL\' with no prototype in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 312&#58; Call to function \'hb_itemGetNL\' with no prototype in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 314&#58; Call to function \'hb_itemArrayGet\' with no prototype in function PaintTheLine\nWarning W8069 WBRWLINE&#46;C 314&#58; Nonportable pointer conversion in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 315&#58; Call to function \'hb_itemType\' with no prototype in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 317&#58; Call to function \'hb_itemGetNL\' with no prototype in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 320&#58; Call to function \'hb_itemGetC\' with no prototype in function PaintTheLine\nWarning W8069 WBRWLINE&#46;C 320&#58; Nonportable pointer conversion in function PaintTheLine\nWarning W8065 WBRWLINE&#46;C 1138&#58; Call to function \'hb_itemCopy\' with no prototype in function HB_FUN_WBRWPANE\nTLIB 4&#46;5 Copyright &#40;c&#41; 1987, 1999 Inprise Corporation\n[/code:2ht74e62]\n\nNo será mais possible usar Twbrowse de hernan com fwh712 ????\n\nSaluds','',0,'AIA=','2ht74e62',1,0,'',400,0,0),(44152,9243,11,578,0,'218.214.68.108',1197872388,1,0,1,0,1,0,'','Winexec() function','I started using the Winexec() function.  It seems to work fine if you have only 1 parameter to pass but not for more than 1 parameter.\n\nI am using it to run Open Office.\n\nWinexec( \"\"ooffice\", \"Test1.rep\" ) \n\nworks but the following don\'t\n\nWinexec( \"ooffice\", \"-writer\", \"Test1.rep\" )\nWinexec( \"ooffice\", \"Test1.rep\", \"Test2.rep\" )\n\nneither does \n\nWinexec( \"ooffice\", \"-writer Test1.rep\" )\nWinexec( \"ooffice\", \"Test1.rep Test2.rep\" )\n\nBut the following commands issued from a terminal window all work:\n\nooffice -writer Test1.rep\nooffice Test1.rep Test2.rep\n\nIt\'s no real issue at the moment as I can easily code around the apparent limitation for what I am needing to do at the moment, but maybe you can look at it one day and see if I am correct and fix.  I inferred from the documentation that the function is intended to handle multiple parameters being passed.  Then again maybe I have misunderstood the documentation and am coding incorrectly.\n\n(Test1.rep and Test2.rep are just Open Office writer documents - the ones I am using are in OO html format and are being generated by my software.)\n\nThanks\n\nDoug\n(xProgrammer)','',0,'AIA=','1enw8uph',1,0,'',578,0,0),(44153,9244,3,56,0,'149.225.12.250',1197877389,1,0,1,1,1,0,'','EasyPreview 1.7.1 released!','Hello,\n\na new version of EasyPreview is available!\n\nBeside several bugfixes we added this new features:\n- Save to file: new formats DOC (Word) and RTF added.\n- The menu, buttonbar and statusbar have the Office 2007 look now.\n\nYou will find a full working test version in the download area of\n<!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->.\n\nBest regards, Timm.\n\n    Timm Sodtalbers\n    Sodtalbers IT\n    <!-- w --><a class=\"postlink\" href=\"http://www.backupbuilder.com\">www.backupbuilder.com</a><!-- w -->\n    <!-- w --><a class=\"postlink\" href=\"http://www.reportdesigner.info\">www.reportdesigner.info</a><!-- w -->\n    <!-- e --><a href=\"mailto:info@reportdesigner.info\">info@reportdesigner.info</a><!-- e -->','',0,'AIA=','punw5pz5',1,0,'',56,0,0),(44154,9240,6,92,0,'213.96.45.6',1197881840,1,0,1,1,1,0,'','Re: Usando JPGs con RichEdit','[quote=&quot;Antonio Linares&quot;:29609ff7]local oImage \n\nDEFINE IMAGE oImage FILE \"fw.jpg\" \n\noRTF:InsertPicture( oImage:hBitmap ) \n\noImage:End() \n\nSe pueden usar otros tipos de formatos gráficos de ficheros excepto PNG[/quote:29609ff7]\n\nAntonio sería posible crear un METODO InsertPictureFile( cPathFileIMAGE )\n\nCómo lo ves?\n\nSaludos\nCarlos G.','',0,'gA==','29609ff7',1,0,'',92,0,0),(44155,9243,11,6,0,'82.61.28.254',1197882885,1,0,1,1,1,1,'','Re: Winexec() function','The documentation clearly states:\n\n[quote:3dmz0wrv]WinExec( &lt;nCmdLine&gt;, &lt;nCmdShow&gt; )   --&gt; &lt;hInstance&gt;[/quote:3dmz0wrv]\n\nAs you can see, the first parameter is the command line, parameters included. The second parameter is the show mode. The function expects only two parameters.\n\nEMG','',0,'gA==','3dmz0wrv',1,0,'',6,0,0),(44156,9133,3,51,0,'80.122.88.242',1197883027,1,0,1,1,1,0,'','','Hello Antonio,\nI did some changes to get rowFont for each column.\n\nCould you please have a look if these changes are save.\nxBrowser is very complex and I don\'t feel secure about my own changes.\n\nIn xbrowse-class i made 5 chances:\nPlease see the red lines\n\n\n1) //----------------------------------------------------------------------------//\n\nCLASS TXBrowse FROM TControl\n\n   DATA bClrHeader,; // default color pair for header\n        bClrFooter,; // default color pair for footer\n        bClrStd,;    // default color pair for normal rows\n        bClrSel,;    // default color pair for selected row\n        bClrSelFocus,; // default color pair for selected row when control has focus\n        [color=red:376cq4eq]bFntRowData [/color:376cq4eq]       // default color pair for edition\n\n\n2) //----------------------------------------------------------------------------//\n\nMETHOD New( oWnd ) CLASS TXBrowse\n\n   [color=red:376cq4eq]::bFntRowData  :=   {|| oWnd:oFont }[/color:376cq4eq]\n\n3) //----------------------------------------------------------------------------//\nCLASS TXBrwColumn\n\n\n   DATA bClrHeader,;    // default color pair for header\n        bClrFooter,;    // default color pair for footer\n        bClrStd,;       // default color pair for normal rows\n        bClrSel,;       // default color pair for selected row\n        bClrSelFocus,;  // default color pair for selected row when control has focus\n        bClrEdit,;        // default color pair for edition\n        [color=red:376cq4eq]bFntRowData[/color:376cq4eq]\n4) //----------------------------------------------------------------------------//\n\nMETHOD Adjust() CLASS TXBrwColumn\n\n   DEFAULT ::bClrHeader    := ::oBrw:bClrHeader,;\n           ::bClrFooter    := ::oBrw:bClrFooter,;\n           ::bClrStd       := ::oBrw:bClrStd,;\n           ::bClrSel       := ::oBrw:bClrSel,;\n           ::bClrSelFocus  := ::oBrw:bClrSelFocus ,;\n           ::bClrEdit      := ::bClrStd,;\n          [color=red:376cq4eq] ::bFntRowData   := ::oBrw:bFntRowData[/color:376cq4eq]\n\n5) //----------------------------------------------------------------------------//\n\nMETHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder ) CLASS TXBrwColumn\n\n\n   hDC     := ::oBrw:GetDC()\n   oFont   := ::oDataFont\n\n\n   [color=red:376cq4eq]if ::bFntRowData != nil\n\n   oFont :=  Eval( ::bFntRowData )\n\n   endif[/color:376cq4eq]\n//----------------------------------------------------------------------------//\n\n\n\n\nIn your prg-file adress the codeblock like:\n//----------------------------------------------------------------------------//\n\noxBrw:bFntRowData := { || f_fntRowData() }\n\n\n\n\nSTATIC FUNCTION f_fntRowData()\nLOCAL oFntRow:=\"\"\n\nIF (ordkeyno()) % 2 == 0\n    oFntRow :=  oWHSetup:oFntKlein()\nELSE\n    oFntRow :=   oWHSetup:oFntGross()\nENDIF\nRETURN (oFntRow)','',0,'Ag==','376cq4eq',1,0,'',51,0,0),(44157,9223,4,1251,0,'85.221.144.187',1197883513,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1v0uzah5]Grzegorz,\n\n&gt; specific polish characters are replaced with Western language characters\n\nDo those polish characters look fine in Pocket Word using the same font ?[/quote:1v0uzah5]\n\nNo, this characters are the same like in FiveWin, Alt + 241 = ñ, instead of &#324;. Polish characters are displey only in names if months in system calendar.','',0,'gA==','1v0uzah5',1,0,'',1251,0,0),(44158,9111,7,720,0,'80.36.244.134',1197883733,1,0,1,1,1,0,'','','Enviado a los correos....\n\n\nSaludos.\n\nElías Torres.','',0,'gA==','2k65n0ok',1,0,'',720,0,0),(44159,9243,11,2,0,'87.218.146.240',1197885614,1,0,1,1,1,1,'','','Enrico,\n\nFiveLinux WinExec() is inspired in Windows one, but it works a little different.\n\nDoug,\n\nYou are right, actually we are only accepting one parameter. We need to modify it to accept an unlimited number of parameters. We are going to review it','',0,'gA==','3ttp4813',1,0,'',2,0,0),(44160,9222,6,1236,0,'201.22.71.191',1197885680,1,0,1,1,1,0,'','grato','grato','',0,'gA==','mv0kbdfi',1,0,'',1236,0,0),(44161,9223,4,2,0,'87.218.146.240',1197885963,1,0,1,1,1,1,'','','Have you properly configured your Pocket PC in Settings-System-Regional Settings-Region ?','',0,'gA==','2q0w0jis',1,0,'',2,0,0),(44162,9111,7,2,0,'87.218.146.240',1197886030,1,0,1,1,1,1,'','','Elías,\n\nNo hay problema en que comentes qui publicamente el nombre de ese software y su fabricante <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAsi servirá de ayuda para todos los usuarios. Gracias!','',0,'gA==','st371eis',1,0,'',2,0,0),(44163,9238,3,2,0,'87.218.146.240',1197886233,1,0,1,1,1,1,'','','Tim,\n\nCould you post a screenshot of both monitors screens at that moment ? Thanks!','',0,'gA==','16ix70zw',1,0,'',2,0,0),(44164,9133,3,2,0,'87.218.146.240',1197886936,1,0,1,1,1,1,'','','Otto,\n\nInstead of adding a new DATA, we could check if ::oDataFont contains a codeblock:\n[code:3drc2kyy]\nMETHOD PaintData&#40; nRow, nCol, nHeight, lHighLite, lSelected, nOrder &#41; CLASS TXBrwColumn \n\noFont &#58;= &#58;&#58;oDataFont \n\nif ValType&#40; oFont &#41; == &quot;B&quot;\n   oFont = Eval&#40; oFont, Self &#41;\nendif\n[/code:3drc2kyy]\n\nAnyhow, there are more places where this must be checked. See next msg','',0,'AIA=','3drc2kyy',1,0,'',2,0,0),(44165,2983,6,456,0,'62.43.24.65',1197887124,1,0,1,1,1,1,'','','Hola Rafa, este post ya es muy viejo y supongo que este problema ya lo tienes resuelto, o directamente has tirado po otro camino.\n\nA mi recientemente me ha pasado exactamente los mismo, errores aleatorios en la aplaicación, al utilizar una clase que habia creado.\n\nStack Calls\n===========\n   Called from:  =&gt; WNDCREATEERROR(680)\n   Called from:  =&gt; TWINDOW:CREATE(661)\n   Called from:  =&gt; TWINDOW:NEW(744)\n   ...\n\nEn mi caso se ha solucionado, añadiendo la siguiente linea en la clase[code:8znzqtrw]\nCLASSDATA lRegistered AS LOGICAL\n[/code:8znzqtrw]','',0,'AIA=','8znzqtrw',1,0,'',456,0,0),(44166,9133,3,2,0,'87.218.146.240',1197887157,1,0,1,1,1,1,'','','[code:rdgh1qca]\nMETHOD DataHeight&#40;&#41; CLASS TXBrwColumn\n&#46;&#46;&#46;\n   if &#58;&#58;bStrData != nil &#46;and&#46; &#58;&#58;oDataFont != nil\n      if ValType&#40; &#58;&#58;oDataFont &#41; == &quot;B&quot;\n         nHeight &#58;= FontHeight&#40; &#58;&#58;oBrw, Eval&#40; &#58;&#58;oDataFont, Self &#41; &#41;\n      else   \n         nHeight &#58;= FontHeight&#40; &#58;&#58;oBrw, &#58;&#58;oDataFont &#41;\n      endif   \n   endif\n&#46;&#46;&#46;\n[/code:rdgh1qca]\n[code:rdgh1qca]\nMETHOD DataWidth&#40;&#41; CLASS TXBrwColumn\n&#46;&#46;&#46;\n   if &#58;&#58;bStrData != nil\n       cText &#58;= Eval&#40; &#58;&#58;bStrData, Self &#41;\n       nLen  &#58;= Len&#40; cText &#41;\n       if ValType &#40; &#58;&#58;oDataFont &#41; == &quot;B&quot;\n          oFont = Eval&#40; &#58;&#58;oDataFont, Self &#41;\n       else\n          oFont = &#58;&#58;oDataFont\n       endif      \n       while nFrom &lt;= nLen\n         cLine  &#58;= ExtractLine&#40; cText, @nFrom &#41;\n         cLine  &#58;= Replicate&#40; &quot;B&quot;, Len&#40; cLine &#41; &#41;\n         nWidth &#58;= Max&#40; nWidth, &#58;&#58;oBrw&#58;GetWidth&#40; cLine, oFont &#41; &#41;\n       enddo\n   endif\n&#46;&#46;&#46;\n[/code:rdgh1qca]\n[code:rdgh1qca]\nMETHOD CreateButtons&#40;&#41; CLASS TXBrwColumn\n&#46;&#46;&#46;\n      &#58;&#58;oBtnList&#58;SetFont&#40; If&#40; ValType&#40; &#58;&#58;oDataFont &#41; == &quot;B&quot;, Eval&#40; &#58;&#58;oDataFont, Self &#41;, &#58;&#58;oDataFont &#41; &#41;\n&#46;&#46;&#46;\n      &#58;&#58;oBtnElip&#58;SetFont&#40; If&#40; ValType&#40; &#58;&#58;oDataFont &#41; == &quot;B&quot;, Eval&#40; &#58;&#58;oDataFont, Self &#41;, &#58;&#58;oDataFont &#41; &#41;\n[/code:rdgh1qca]','',0,'AIA=','rdgh1qca',1,0,'',2,0,0),(44167,9229,3,2,0,'87.218.146.240',1197887451,1,0,1,1,1,1,'','','Otto,\n\nTry it this way:\n\noCol = oBrw:aCols[ o:nPos ]\noCol:nDataStrAlign := AL_RIGHT\noCol:nDataStyle := oCol:DefStyle( oCol:nDataStrAlign, ( oCol:oBrw:nDataLines == 1 ) )','',0,'','3eyfd50l',1,0,'',2,0,0),(44168,9223,4,1251,0,'85.221.144.187',1197887833,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:ujx5pwcn]Have you properly configured your Pocket PC in Settings-System-Regional Settings-Region ?[/quote:ujx5pwcn]\n\nIn Regional Settings Properties J have Polish in Your Locale but User Interface Language is not available ( is English ).','',0,'gA==','ujx5pwcn',1,0,'',1251,0,0),(44169,9243,11,6,0,'82.61.28.254',1197887908,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:s4n88nep]Enrico,\n\nFiveLinux WinExec() is inspired in Windows one, but it works a little different.[/quote:s4n88nep]\n\nOps, I was not aware that this is a forum for FiveLinux, sorry.\n\nEMG','',0,'gA==','s4n88nep',1,0,'',6,0,0),(44170,2983,6,2,0,'87.218.146.240',1197887936,1,0,1,1,1,1,'','','Biel,\n\nSi, esa CLASSDATA es obligatoria para nuevas clases que no sean propias de Windows. En el caso de los tooltips, son clases nativas de Windows.\n\nDe todas formas, gracias! y a ver que nos comenta Rafa <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','284bd3yb',1,0,'',2,0,0),(44171,9240,6,2,0,'87.218.146.240',1197888692,1,0,1,1,1,1,'','','Carlos,\n\nBuena idea! Añadido <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nGracias,','',0,'gA==','s39te6ez',1,0,'',2,0,0),(44172,9237,6,2,0,'87.218.146.240',1197889259,1,0,1,1,1,1,'','','Armando,\n\nPero en tu ejemplo es sólo una palabra y parece que no cabe en el ancho de su columna. Una sola palabra no puede ponerla en varias líneas.\n\nHs probado a aumentar el ancho de la columna ?','',0,'gA==','19m9jwwe',1,0,'',2,0,0),(44173,9241,6,2,0,'87.218.146.240',1197889316,1,0,1,1,1,1,'','','Marcelo,\n\nTienes que usar \"SysTabControl32\" en vez de \"TFolder\" en el recurso','',0,'gA==','2glxd6oj',1,0,'',2,0,0),(44174,9242,6,2,0,'87.218.146.240',1197889499,1,0,1,1,1,1,'','','Ale,\n\nEn el fichero en C tienes que añadir:\n\n#include &lt;hbapiitm.h&gt;','',0,'gA==','1ft60tmq',1,0,'',2,0,0),(44175,9243,11,2,0,'87.218.146.240',1197889581,1,0,1,1,1,1,'','','No problem, my friend <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','13zu2q8f',1,0,'',2,0,0),(44176,9245,3,51,0,'80.122.88.242',1197889708,1,0,1,1,1,0,'','xBrowser - header - vertical Font  alignment','I have the feeling, that alignment left if you have a vertical font starts at the middle of the row-height.\nHow can I reach that the a vertical font is displayed correctly?\nRegards,\nOtto\n[img:3dkdol28]http&#58;//www&#46;atzwanger&#46;com/fw/vertfont&#46;jpg[/img:3dkdol28]','',0,'CA==','3dkdol28',1,0,'',51,0,0),(44177,9223,4,2,0,'87.218.146.240',1197889789,1,0,1,1,1,1,'','','If Polish is not supported by Windows Mobile (it seems quite strange), then you may need to build your own function to properly translate your chars into the right ones:\n\nTextToPolish( &lt;cText&gt; ) --&gt; &lt;cPolishText&gt;\n\nUnfortunately we don\'t know Polish so we can\'t help you there <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nbut its not a difficult function to build','',0,'CA==','1jt5zj1u',1,0,'',2,0,0),(44178,9133,3,51,0,'80.122.88.242',1197890140,1,0,1,1,1,0,'','','&gt;Instead of adding a new DATA, we could check if ::oDataFont contains a codeblock: \nBut \noxBrw:bFntRowData := { || } \nI think we need to know what Font should be used.\n\nAntonio, do you think 8.01 will have a codeblock for different row height.\nFor the moment I have hard coded the functionality for my neccessity.\n\nSo I can wait for 8.01.\n\nRegards,\nOtto','',0,'CA==','1z0cv4qi',1,0,'',51,0,0),(44179,9224,6,362,0,'200.158.19.233',1197890192,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2e8cho0t]Joao,\n\nlPesquisa := .F. ), [color=red:2e8cho0t].T.[/color:2e8cho0t] ),  [color=red:2e8cho0t].T.[/color:2e8cho0t] ) }[/quote:2e8cho0t]\n\nGracias Maestro. funcionó perfecto. \n\nÉs un Genio.','',0,'gg==','2e8cho0t',1,0,'',362,0,0),(44180,9133,3,2,0,'87.218.146.240',1197890513,1,0,1,1,1,1,'','','Otto,\n\n&gt;\nBut oxBrw:bFntRowData := { || } \nI think we need to know what Font should be used. \n&gt;\n\nEach column can have a different font, and the font can change in the same column too. oDataFont is ok for that. Unless I am missing something.\n\n&gt;\nAntonio, do you think 8.01 will have a codeblock for different row height. \nFor the moment I have hard coded the functionality for my neccessity. \n&gt;\n\nIf we have enough time then we will work to include it','',0,'gg==','3g1czx5l',1,0,'',2,0,0),(44181,9224,6,2,0,'87.218.146.240',1197890661,1,0,1,1,1,1,'','','No <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nSólo hay que poner un poco de atención','',0,'gg==','1qk3s671',1,0,'',2,0,0),(44182,9242,6,400,0,'201.68.33.197',1197892285,1,0,1,1,1,1,'','','Prefect !!! Maestro...Gracias\n\nSaluds','',0,'gg==','146yq7vl',1,0,'',400,0,0),(44183,9111,7,720,0,'80.36.244.134',1197892724,1,0,1,1,1,0,'','','Hola a todos...\n\nPues resulta que buscando algo que hiciera lo que pretendía encontré un software llamado PocketKiosk Builder. Este software lo que permite hacer es lanzar una o varias aplicaciones (las que nosotros queramos) dejando el resto en un segundo plano. Además en la configuración podremos incluso bloquear el resto de opciones del PDA bajo clave, con lo que el usuario solo podría acceder a o las aplicaciones que le hayamos configurado.\n\nPara más detalles está esta direccion del fabricante:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.askarya.com/pocketpc/pocketkiosk/pk.asp\">http://www.askarya.com/pocketpc/pocketkiosk/pk.asp</a><!-- m -->\n\n\nUn saludo.\n\nElías Torres.','',0,'gg==','tem4q28h',1,0,'',720,0,0),(44184,9111,7,2,0,'87.218.146.240',1197893539,1,0,1,1,1,1,'','','Elías,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gg==','jw2uiy7e',1,0,'',2,0,0),(44185,9133,3,51,0,'80.122.88.242',1197894507,1,0,1,1,1,0,'','','Thank you.\n\nI meant not different row height but Font.\n\nAlthough  row height would be nice too depending how much text (memofield) you have.\n\n\nCould you please post a little example how this font codeblock should look like\nand how to evaluate.\n\n\nAt the moment I use this to get the different fonts per column:\n\noCol:bFntRowData := { || f_fntRowData() } \n\n\n\n\nSTATIC FUNCTION f_fntRowData() \nLOCAL oFntRow:=\"\" \n\nIF (ordkeyno()) % 2 == 0 \noFntRow := oFnt1\nelseif\n… \nELSE \noFntRow := oFnt2\nENDIF \nRETURN (oFntRow)','',0,'gg==','36z43g9y',1,0,'',51,0,0),(44186,9246,3,210,0,'81.24.159.58',1197894785,1,0,1,1,1,1,'','XBrowse setarray','When I change with (oBrw:setarray( array ) , oBrw:refresh()) the actual array with same structure, the headertext and  oBrw:hide(column), etc.  are loosing!\nIs this normal?','',0,'gg==','6m864n89',1,0,'',210,0,0),(44187,9247,7,106,0,'85.34.123.173',1197895062,1,0,1,1,1,1,'','Configuracion del pocket','Quería saber si alguien sabe como hacer para guardar el nombre de usuario y password y eventualmente cambiarlo desde programa, y la configuracion de la tarjeta wi-fi.\n\nTengo varios terminales que se conectan wi-fi para el envio de datos, pero cuando se quedan sin baterías pierden la configuración, por lo cual me toca cambiar a mano el nombre de usuario, la password, direccion de red y máscara (no uso DHCP), todo eso me toca hacerlo a mano todas las veces.\n\n\nSaludos','',0,'gg==','u6dei4j6',1,0,'',106,0,0),(44188,9244,3,1158,0,'200.233.185.181',1197895473,1,0,1,1,1,0,'','','Timm , you have plans to update easyreport? the atual version, with fwh711, have an issue when report preview is done. thanks','',0,'gg==','2rtvh6od',1,0,'',1158,0,0),(44189,9244,3,56,0,'149.225.12.111',1197896750,1,0,1,1,1,1,'','','Hi Norberto,\n\n&gt; you have plans to update easyreport?\nyes, I am already working on a new version.','',0,'gg==','39vjmkh9',1,0,'',56,0,0),(44190,9229,3,51,0,'80.122.88.242',1197897211,1,0,1,1,1,0,'','','Alignment changes but Al_right is not displayed well.\nSee screen:\n[img:1t9ig0cv]http&#58;//www&#46;atzwanger&#46;com/fw/align&#46;jpg[/img:1t9ig0cv]','',0,'CA==','1t9ig0cv',1,0,'',51,0,0),(44191,9246,3,868,0,'219.64.121.60',1197897326,1,0,1,1,1,1,'','','SetArray method erases all the existing columns and adds all the the array columns again. So SetArray should be used only once in the beginning. Should not be used again.\n\nIf you want to substitute a similar array, you may \n[code:139audep]\noBrw&#58;aArrayData &#58;= aSubstitute\noBrw&#58;Refresh&#40;&#41;\n[/code:139audep]\n\nIf the following modification is made in the SetArray method of TXBrwose, it would be possible  to use SetArray method to reassign array and also to have different column assignments. Proposed change in the method, if FWH agrees to:\n[code:139audep]\nMETHOD SetArray&#40; aData, &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; &#41;\n\n    &lt;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; code &#46;&#46;&#46;&#46;&#46;&#46;&#46; &gt;\n\n    // requested change&#58;\n   if empty&#40; &#58;&#58;aCols &#41;\n   // end or proposed change&#58;\n       // existing code\n      &#58;&#58;aCols &#58;= &#123;&#125;\n      for 1 &#58;= 1 to len&#40; aData&#91; 1 &#93; &#41;\n      &lt; &#46;&#46;&#46; existing code till the end &#46;&#46;&gt;\n   // req change\n   endif\n   // end if change\n\nreturn nil // proposed return self\n[/code:139audep]','',0,'AIA=','139audep',1,0,'',868,0,0),(44192,9143,6,1206,0,'213.97.245.163',1197897582,1,0,1,1,1,0,'','','Lo tienes en el directorio de samples\\testsmtp.prg\nSi tienes algun problema dímelo.','',0,'AIA=','1lz2gwsz',1,0,'',1206,0,0),(44193,9133,3,868,0,'219.64.121.60',1197897724,1,0,1,1,1,1,'','','Mr Antonio\n\nMy small suggestion. Instead of having a public data bRowfont or oFont holding either codeblock or font object,  if oFont is a setget method( access assign ) we do not have to search where all we need to change in the code.\n\nIn my personal copy I have done the same for cFooter so that it works without breaking or making too many changes in the orginal source. \n\nmy 2 cents','',0,'AIA=','ncobyjqb',1,0,'',868,0,0),(44194,9133,3,2,0,'87.218.146.214',1197897964,1,0,1,1,1,1,'','','Otto,\n\nYou use it exactly the same way:\n[code:25ug60iz]\noCol&#58;oDataFont &#58;= &#123; || f_fntRowData&#40;&#41; &#125; \n\n\nSTATIC FUNCTION f_fntRowData&#40;&#41; \nLOCAL oFntRow&#58;=&quot;&quot; \n\nIF &#40;ordkeyno&#40;&#41;&#41; % 2 == 0 \noFntRow &#58;= oFnt1 \nelseif \n… \nELSE \noFntRow &#58;= oFnt2 \nENDIF \nRETURN &#40;oFntRow&#41;\n[/code:25ug60iz]','',0,'AIA=','25ug60iz',1,1197898080,'',2,1,0),(44195,9133,3,2,0,'87.218.146.214',1197898051,1,0,1,1,1,1,'','','NageswaraRao,\n\nIts only three changes in the Class source code.\n\nCould you show an example of your proposed change ? Thanks,','',0,'AIA=','2p51lwan',1,0,'',2,0,0),(44196,9133,3,868,0,'219.64.121.60',1197898102,1,0,1,1,1,1,'','','This is a very useful addition to TXBrowse. Thanks to Mr Otto and Mr Antonio','',0,'AIA=','346r8pdl',1,0,'',868,0,0),(44197,9229,3,6,0,'82.61.28.254',1197898226,1,0,1,1,1,1,'','','Try to RTrim() the column data.\n\nEMG','',0,'AIA=','2h91vc06',1,0,'',6,0,0),(44198,9133,3,868,0,'219.64.121.60',1197898505,1,0,1,1,1,1,'','','I now give here my changes to cFooter.  I shall follow up with changes for font.\n[code:2ssz9xft]\n/*\n	xbrfooter&#46;prg\n	inhertited class to deal with footer codeblocks\n	if a few changes are made in the orginal\n	source, this is not necessary\n*/\n\n\n\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;InKey&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n#ifdef __XPP__\n   #define Super &#58;&#58;TControl\n   #define New   _New\n#endif\n\n//-------------------------------------------------------------------------//\nCLASS TXBRColFt FROM TXBrwColumn\n\n	DATA   uFooter HIDDEN\n	METHOD cFooter SETGET\n	// FOR Comaptibilty with the recent change in FWH\n	// if the FWH code is reverted to previous code\n	// this bfooter method is not necessary\n	METHOD bFooter SETGET\n\nENDCLASS\n//-------------------------------------------------------------------------//\nMETHOD	cFooter&#40; uNew &#41; CLASS TXBRColFt\n\n   LOCAL cFooter\n\n   IF PCOUNT&#40;&#41; &gt; 0\n   	&#58;&#58;uFooter	&#58;= uNew\n   ENDIF\n	IF &#58;&#58;uFooter != NIL\n	   cFooter	&#58;= IIF&#40; VALTYPE&#40; &#58;&#58;uFooter &#41; == \'B\', EVAL&#40; &#58;&#58;uFooter &#41;, &#58;&#58;uFooter &#41;\n   	IF VALTYPE&#40; cFooter &#41; != \'C\'\n	   	cFooter	&#58;= TRANSFORM&#40; cFooter, &#58;&#58;cEditPicture &#41;\n   	ENDIF\n	ENDIF\n\nRETURN cFooter\n//------------------------------------------------------------------------//\nMETHOD	bFooter&#40; uNew &#41; CLASS TXBRColFt\n\n   IF PCOUNT&#40;&#41; &gt; 0 &#46;AND&#46; VALTYPE&#40; uNew &#41; == \'B\'\n   	&#58;&#58;uFooter	&#58;= uNew\n   ENDIF\n\n	// returning nil to avoid evaluation of the block in the paint method\n   // if the code in paint method is reverted to previous code\n   // old code &#58;  cFooter &#58;= &#58;&#58;cFooter  &lt;-- this is better\n   // then we can drop bFooter data and methods\n   // cfooter can be assigned a value or codeblock\n\nRETURN NIL\n//-----------\n[/code:2ssz9xft]\nActually if we use the TXBrowse version prior to 7.12, the bFooter data / method is not necessary.\n\nI adopted this apporach so that we do not have t o make too many changes in the original source. No dangers of breaking the original code even inadverttantly.\n\nAlso there is a minor issue with the 7.12 implementation of bFooter. Even after assigning the oBrw:lFooters := .T.,   if we do not scpecify Char value to atleast one cFooter, footers are not shown,   To do that, we need to change code in many methods like for bRowFont. So was the need for me for this change.','',0,'AIA=','2ssz9xft',1,0,'',868,0,0),(44199,9133,3,868,0,'219.64.121.60',1197899131,1,0,1,1,1,1,'','','Proposed modification for Row Font:\n\n[code:vyvty7w4]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;InKey&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n#ifdef __XPP__\n   #define Super &#58;&#58;TControl\n   #define New   _New\n#endif\n\n//-------------------------------------------------------------------------//\nCLASS TXBRColFont FROM TXBrwColumn\n\n   DATA   uFont HIDDEN\n   METHOD oFont SETGET\n\nENDCLASS\n//-------------------------------------------------------------------------//\nMETHOD   oFont&#40; uNew &#41; CLASS TXBRColFont\n\n   LOCAL ofnt\n\n   IF PCOUNT&#40;&#41; &gt; 0\n      &#58;&#58;uFont   &#58;= uNew\n   ENDIF\n   IF &#58;&#58;uFont != NIL\n      ofnt   &#58;= IIF&#40; VALTYPE&#40; &#58;&#58;uFont &#41; == \'B\', EVAL&#40; &#58;&#58;uFont, Self &#41;, &#58;&#58;uFont &#41;\n   ENDIF\n\nRETURN ofnt\n//------------------------------------------------------------------------//\n[/code:vyvty7w4]\n\n-------------\nVERY IMPORTANT CAUTION\n-------------\nMethods DataHeight and DataWidth are evaluated only once during initialisation phase of the browse.  So the alterntive font objects should not be different in size or the data will not be painted correctly.\n\nSo the programmer should keep in mind that he should choose different variations of the samesize font like italics, strikeout, etc.\n\nRecalculation of the heght and width while painting every cell may be too slow and not desirable.','',0,'AIA=','vyvty7w4',1,0,'',868,0,0),(44200,9223,4,1251,0,'85.221.144.187',1197899925,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1ufp2zms]If Polish is not supported by Windows Mobile (it seems quite strange), then you may need to build your own function to properly translate your chars into the right ones:\n\nTextToPolish( &lt;cText&gt; ) --&gt; &lt;cPolishText&gt;\n\nUnfortunately we don\'t know Polish so we can\'t help you there <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\nbut its not a difficult function to build[/quote:1ufp2zms]\n\nProblem isn\'t in translate characters to Polish but with display characters on screen.\nI test font.prg ( from FWPPC\\Source\\Classes ) and it seems I can\'t change fonts. I change font in DEFAULT statment cFaceName.\n   TWindow() : New()\n   oF := TWindow() : GetFont()\n   oF:cFaceName always is MS San Serif','',0,'gA==','1ufp2zms',1,0,'',1251,0,0),(44201,9229,3,868,0,'219.64.121.60',1197899976,1,0,1,1,1,1,'','','Working perfectly','',0,'gA==','3muy7wz2',1,0,'',868,0,0),(44202,9229,3,868,0,'219.64.121.60',1197900525,1,0,1,1,1,1,'','','[code:19qyst64]\nMETHOD	DataAlign&#40; nAlign &#41; CLASS TXBrwColumn\n\n	if ! &#40; &#58;&#58;nDataStrAlign == nAlign &#41;  // tolerate nil param\n	   &#58;&#58;nDataStrAlign &#58;= AL_RIGHT\n      &#58;&#58;nDataStyle &#58;= &#58;&#58;DefStyle&#40; &#58;&#58;nDataStrAlign, &#40; &#58;&#58;oBrw&#58;nDataLines == 1 &#41; &#41;\n   endif\n\nRETURN &#58;&#58;nDataStrAlign\n[/code:19qyst64]','',0,'AIA=','19qyst64',1,0,'',868,0,0),(44203,2983,6,456,0,'62.43.24.65',1197901747,1,0,1,1,1,1,'','','La clase que tenia implementada me funcionaba perfectamente, y luego el casque me lo daba en cualquier otro sitiio, sin tener nada que ver con mi clase(realmente si tenia que ver).\n\nCalled from:  =&gt; WNDCREATEERROR(680)\n   Called from:  =&gt; TWINDOW:CREATE(661)\n   Called from:  =&gt; TWINDOW:NEW(744)\n   Called from:  =&gt; TWINDOW:SHOWTOOLTIP(2793)\n   Called from:  =&gt; TWINDOW:CHECKTOOLTIP(2763)\n   Called from:  =&gt; TWINDOW:MOUSEMOVE(2699)\n   Called from:  =&gt; TWINDOW:MOUSEMOVE(0)\n   Called from:  =&gt; TWINDOW:MOUSEMOVE(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n...\nEl error es practicamente calcado al que reporta Rafa, y seguramente no tiene nada que ver con el tooltip, sino con alguna clase que este utilizando en la cual no esta definido la CLASSDATA.','',0,'AIA=','10vza6wx',1,0,'',456,0,0),(44204,9229,3,51,0,'80.122.88.242',1197902426,1,0,1,1,1,0,'','','Thank you Enrico.\nI changed it in METHOD PaintData:\n   if ::bStrData != nil\n      cData := RTRIM( Eval( ::bStrData, Self ))\n   else\n      cData := \"\"\n   endif\n[img:379sqhe0]http&#58;//www&#46;atzwanger&#46;com/fw/alignright&#46;jpg[/img:379sqhe0]','',0,'CA==','379sqhe0',1,0,'',51,0,0),(44205,9229,3,51,0,'80.122.88.242',1197902551,1,0,1,1,1,0,'','','To nageswaragunupudi:\nIf I insert the method DataAlign I get all centered.\nRegaqrds,\nOtto','',0,'CA==','1wncgx1n',1,0,'',51,0,0),(44206,9248,3,35,0,'167.7.140.254',1197902726,1,0,1,1,1,0,'','Twbrowse .. hide a listbox column','To All\n\nI have a routine that goes out and creates a database structure that is a variable number of fields .. I use the generic code :\n\n REDEFINE LISTBOX oBrow FIELDS     ;\n       ID 111 of oEMP                   \n\nto view the data .. I do know that I want to HIDE the first column .. is that possible with Twbrowse or with Hernan\'s Twbrowse ??\n\nThanks\nRick Lipkin','',0,'CA==','3napimgr',1,0,'',35,0,0),(44207,9237,6,53,0,'189.139.94.157',1197902971,1,0,1,1,1,1,'','','Antonio:\n\nGracias por el interés, efectivamente es solo una palabra y ampliando la columna se mostrará la palabra completa pero eso no es lo que yo pretendo. Lo que intento es que la palabra o palabras invadan otras columnas para simular un superheader, algo así:\n\n     P R E S U P U E S T O                    R  E  A  L  \nSOCIOS              IMPORTE      SOCIOS          IMPORTE\n\nEsto en 16 bits se podía hacer con solo poner el texto superior más ancho que su propia columna y el texto invadía otras columna como se ve en la primera imagen que subi.\n\nReferente al otro tema, hoy estré con el cliente y vere si hay algun error.log para mostrartelo.\n\nSaludos y gracias nuevamente','',0,'CA==','ono1xvyg',1,0,'',53,0,0),(44208,9229,3,868,0,'219.64.121.60',1197903101,1,0,1,1,1,1,'','','Mr Otto\n\nObviously the values should be rtimmed for right justification. My proposed method is only for changing justification on the fly. \n\nIf you change the paint method you may like to cover the cases of left, center and riight justifcations and all other possibilities.  For non left justified painting probably alltrim(,,,) may be better, We should also keep in mind multiple line painting. Paint is a very generic method. Should we change this paint method or specify bStrData appropriately?','',0,'CA==','3u2u0loq',1,0,'',868,0,0),(44209,9143,6,53,0,'189.139.94.157',1197903340,1,0,1,1,1,1,'','','JMGARCIA:\n\nTal vez otra alternativa sea el uso de MAPI (Mail Application Programming Interface), en el manual impreso de FW viene un pequeño ejemplo.\n\nSaludos','',0,'CA==','2vnoamie',1,0,'',53,0,0),(44210,9223,4,2,0,'87.218.146.214',1197903501,1,0,1,1,1,1,'','','Please check in Pocket Word what fonts are availables','',0,'CA==','399t63vx',1,0,'',2,0,0),(44211,9248,3,868,0,'219.64.121.60',1197903831,1,0,1,1,1,1,'','','With xBrowse it is possible\n\n[code:1sd3yql3]\noBrw  &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\noBrw&#58;SetRDD&#40; &#46;T&#46; &#41;   &#46;or&#46; oBrw&#58;SetADO&#40; oRs &#41;\noBrw&#58;CreateFromResource&#40; nID &#41;\noBrw&#58;aCols&#91;1&#93;&#58;Hide&#40;&#41;\nACTIVATE DIALOG oDlg\n[/code:1sd3yql3]','',0,'AIA=','1sd3yql3',1,0,'',868,0,0),(44212,9248,3,2,0,'87.218.146.214',1197903886,1,0,1,1,1,1,'','','Rick,\n\nDATA bLine is a codeblock that returns an array with the columns data to display. You may call a function and the function will return the desired columns:\n[code:2jontam8]\noBrw&#58;bLine = &#123; || GetColumns&#40; lHideFirst &#41; &#125;\n\nfunction GetColumns&#40; lHideFirst &#41;\n\n   if lHideFirst\n      return &#123; FieldGet&#40; 2 &#41;, FieldGet&#40; 3 &#41;, FieldGet&#40; 4 &#41; &#125;\n   else\n      return &#123; FieldGet&#40; 1 &#41;, FieldGet&#40; 2 &#41;, FieldGet&#40; 3 &#41;, FieldGet&#40; 4 &#41; &#125;\n   endif\n\nreturn nil\n[/code:2jontam8]','',0,'AIA=','2jontam8',1,0,'',2,0,0),(44213,2983,6,2,0,'87.218.146.214',1197904013,1,0,1,1,1,1,'','','Biel,\n\n&gt;\nEl error es practicamente calcado al que reporta Rafa, y seguramente no tiene nada que ver con el tooltip, sino con alguna clase que este utilizando en la cual no esta definido la CLASSDATA.\n&gt;\n\nCierto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nHabría que revisar las clases (de controles definidos por el usuario) que esté usando y que no tengan esa CLASSDATA','',0,'AIA=','o4flqd4s',1,0,'',2,0,0),(44214,9237,6,2,0,'87.218.146.214',1197904223,1,0,1,1,1,1,'','','Armando,\n\nEntendido <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAguardamos el error.log, gracias','',0,'AIA=','1arhj6vs',1,0,'',2,0,0),(44215,9223,4,1251,0,'85.221.144.187',1197905652,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1cqb9joc]Please check in Pocket Word what fonts are availables[/quote:1cqb9joc]\nI have only WordPad. There are Times New Roman, Courier New, Symbol, Tahoma, Wingdings.','',0,'gA==','1cqb9joc',1,0,'',1251,0,0),(44216,9249,3,448,0,'82.155.13.97',1197908314,1,0,1,1,1,0,'','Electronic documents digitaly signed - best soltution ?','We want to produce electronic documents PDF format but with digital signature. \nWe use the Crw 11 to produce the PDf file.\n\nWhat are the available solutions to digitaly sign documents ?\n\nAntonio','',0,'gA==','2idmoxun',1,0,'',448,0,0),(44217,9246,3,210,0,'81.24.159.58',1197909626,1,0,1,1,1,1,'','','Thanks!!!!!!!','',0,'gA==','3tk9dcgu',1,0,'',210,0,0),(44218,9248,3,35,0,'167.7.140.254',1197910463,1,0,1,1,1,0,'','','Thanks .. appreciate the answers ..\n\nRick','',0,'gA==','2y58a7mt',1,0,'',35,0,0),(44219,9238,3,34,0,'68.5.217.82',1197911573,1,0,1,1,1,1,'','Antonio','The application is moved to the second monitor.  During testing there is nothing on the primary monitor.  I\'m not splitting the application or moving dialogs.  Everything operates on the 2nd monitor ...','',0,'gA==','1y4rbr37',1,0,'',34,0,0),(44220,9250,3,190,0,'124.7.123.77',1197912636,1,0,1,1,1,0,'','Seasons Greetings','Friends,\n\nwish you and your family a peaceful and healthy Merry Christmas,\nNew Year and  if you don\'t celebrate any of these – a few happy weeks! \nEnjoy these days, and have a prosperous new year 2008.\n\n[url=http&#58;//img514&#46;imageshack&#46;us/my&#46;php?image=seasonset6&#46;png:2wi2q0dr][img:2wi2q0dr]http&#58;//img514&#46;imageshack&#46;us/img514/5030/seasonset6&#46;th&#46;png[/img:2wi2q0dr][/url:2wi2q0dr]\n\n- Ramesh Babu P','',0,'GA==','2wi2q0dr',1,0,'',190,0,0),(44221,9250,3,103,0,'189.12.229.204',1197913987,1,0,1,1,1,1,'','','For you too and all other friends,\n\nBest Wishes,','',0,'GA==','3azix94a',1,0,'',103,0,0),(44222,9250,3,6,0,'82.61.28.254',1197917518,1,0,1,1,1,1,'','Re: Seasons Greetings','My best wishes!\n\nEMG','',0,'GA==','3cut3eff',1,0,'',6,0,0),(44223,9245,3,51,0,'80.122.88.242',1197920758,1,0,1,1,1,0,'','','I found a solution:\n\nif  oFont:nEscapement()= 900\n...\n\n[img:fcv7mddi]http&#58;//www&#46;atzwanger&#46;com/fw/vertfontok&#46;jpg[/img:fcv7mddi]','',0,'CA==','fcv7mddi',1,0,'',51,0,0),(44224,9193,6,156,0,'201.244.244.205',1197924698,1,0,1,1,1,0,'','','Carlos:\n\nHoy estoy fuera de mi oficina. Tan pronto como regrese lo preparo y te lo envío mañana temprano.\n\nSaludos,\n\nCarlos Gallego','',0,'CA==','1otpofq2',1,0,'',156,0,0),(44225,9229,3,303,0,'72.220.181.80',1197925299,1,0,1,1,1,0,'','','It is most common to right justify numbers and left justify text in tables. Numbers need to be right justified to make the decimals aline. I can\'t think of a good reason to right justify text.\n\nJames','',0,'CA==','m330ojfs',1,0,'',303,0,0),(44226,9250,3,86,0,'81.83.151.142',1197925572,1,0,1,1,1,1,'','','Hello FiveWin-friends,\n\nI also wish all the FiveWinners a merry Christmas and a very happy, but especially a healthy 2008. And, of course, a lot of succes in the world of FiveWin and Harbour/xHarbour.\n\nSincerely,','',0,'CA==','iww82yaj',1,0,'',86,0,0),(44227,9251,3,1231,0,'83.144.114.249',1197925874,1,0,1,1,1,1,'','xBrowse &amp; array','Is it possible to choose columns of array to be displayed on xBrowse?\nI have array of 20 elements.\nI want to display only five of them in order 7,3,4,5,6\n\nHow to create this kind of xBrowse?\n\nI don\'t want to create another separate array or put to every element oBRWKKPOD :aCols[xxx]:nWidth:=0 to do it.\n\nCan I use oBrw:AddCol() or something simmilar?\n\nRobert','',0,'','2v00plmp',1,0,'',1231,0,0),(44228,9252,6,1090,0,'201.254.33.162',1197926895,1,0,1,1,1,0,'','Velocidad al indexar cambia entre ambas ejecuciones','Hola. He notado algo que me pasa con harbour / fwh. El tema es asi: abro un programa que tiene una dll con un browse, que muestra una base de datos de aproximadamente 50.000 registros; lo primero que hago es crear un indice segun este completo o no un campo de dicha base; lo raro es esto: cuando abro el programa por primera vez, me tarda aproximadamente 2 o 3 minutos (tiempo logico porque el index que uso puede ser pesado)... ahora: una vez que veo el browse con los registros, si cierro y abro enseguida el programa otra vez, me abre al instante... ¿puede ser que harbour reutilize indices si estos se abren con cierta diferencia de tiempo? al comienzo del programa hago un:\n\nUSE base shared\nindex on base-&gt;campo1+str(base-&gt;campo2,8) to c:\\indice1 for base-&gt;facha=ctod(\"  /  /    \") .and. base-&gt;codigo&lt;&gt;\'   \'\n\nyo creia que este indice se generaba siempre, pero la diferencia de tiempo entre la primer ejecución y las subsiguientes (siempre que se hagan dentro del minuto posterior a la primer ejecucion) me hace pensar que esto no es asi. ¿alguien sabe como funciona realmente el indice? en este caso me gustaría saber si existe algun parametro para que en ciertos casos no me reutilice el que esta creado. \n\nGracias. Atte.','',0,'','1swhyk3q',1,0,'',1090,0,0),(44229,9251,3,51,0,'80.122.88.242',1197927575,1,0,1,1,1,0,'','','Hello Robert,\n \noBrw:aCols[3]:lHide = .t.\n\nACTIVATE WINDOW oChild ON INIT (oBrw:SwapCols( oBrw:aCols[1], oBrw:aCols[2] ),     oBrw:SetFocus())\n\n\n\nThis is from FWH/SAMPLES/TESTXBRW.prg\nI implemented the changes.\n\nSTATIC FUNCTION ArraySort( oWnd )\n\n   local oChild, oBrw, oCol\n   local aStruc\n\n   DEFINE WINDOW oChild TITLE \"DBF structure with auto sort and incremental seek\" MDICHILD OF oWnd\n\n   oBrw := TXBrowse():New( oWnd )\n\n   aStruc := DBStruct()\n\n   Aeval( aStruc, {|v| v[1] := Padr( v[1], 10 ) } )\n\n   oBrw:SetArray( aStruc, .t. )\n\n\n   oBrw:aCols[1]:cHeader := \"NAME\"\n\n   oBrw:aCols[2]:cHeader := \"TYPE\"\n   oBrw:aCols[2]:nDataStrAlign := AL_CENTER\n   oBrw:aCols[2]:nHeadStrAlign := AL_CENTER\n\n\n\n\n   oBrw:aCols[3]:cHeader := \"SIZE\"\n   oBrw:aCols[3]:nDataStrAlign := AL_RIGHT\n   oBrw:aCols[3]:nHeadStrAlign := AL_RIGHT\n\n   oBrw:aCols[3]:nHeadStrAlign := AL_RIGHT\n\n\n      oBrw:aCols[3]:lHide = .t.\n\n   oBrw:aCols[4]:cHeader := \"LENGTH\"\n   oBrw:aCols[4]:nDataStrAlign := AL_RIGHT\n   oBrw:aCols[4]:nHeadStrAlign := AL_RIGHT\n\n   oBrw:lHScroll := .f.\n   oBrw:lVScroll := .f.\n\n   oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW\n\n   oBrw:CreateFromCode()\n\n   oChild:oClient := oBrw\n\n   ACTIVATE WINDOW oChild ON INIT (oBrw:SwapCols( oBrw:aCols[1], oBrw:aCols[2] ),     oBrw:SetFocus())\n\nRETURN NIL','',0,'','2v2t5187',1,0,'',51,0,0),(44230,9229,3,51,0,'80.122.88.242',1197928068,1,0,1,1,1,0,'','','Hello James,\n\nto learn to use xBrowser I created a little tool xBTool to build a xBrowser visually.\nThere I want to click on the header and select if the column should be right aligned or left.\n\nDoing this I saw that text fields do not align accurately. Therefore I pointed this problem out.\n\nRegards,\nOtto','',0,'','1w9xwhh1',1,0,'',51,0,0),(44231,9251,3,1231,0,'83.144.114.249',1197928328,1,0,1,1,1,1,'','','Thank you Otto - it works!\n\nRobert','',0,'','1rk0s8a1',1,0,'',1231,0,0),(44232,9251,3,868,0,'219.64.121.60',1197928381,1,0,1,1,1,1,'','','Here is how:\n[code:1qntphza]\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\noBrw&#58;setArray&#40; aData &#41;\noBrw&#58;aCols	&#58;= &#123;&#125;\n\noCol	&#58;= oBrw&#58;AddCol&#40;&#41;\noCol&#58;bStrData	&#58;= &#123;||cValToChar&#40; aData&#91;oBrw&#58;nArrayAt&#93;&#91;7&#93; &#41;&#125;\noCol	&#58;= oBrw&#58;AddCol&#40;&#41;\noCol&#58;bStrData	&#58;= &#123;||cValToChar&#40; aData&#91;oBrw&#58;nArrayAt&#93;&#91;3&#93; &#41;&#125;\noCol	&#58;= oBrw&#58;AddCol&#40;&#41;\noCol&#58;bStrData	&#58;= &#123;||cValToChar&#40; aData&#91;oBrw&#58;nArrayAt&#93;&#91;4&#93; &#41;&#125;\noCol	&#58;= oBrw&#58;AddCol&#40;&#41;\noCol&#58;bStrData	&#58;= &#123;||cValToChar&#40; aData&#91;oBrw&#58;nArrayAt&#93;&#91;5&#93; &#41;&#125;\noCol	&#58;= oBrw&#58;AddCol&#40;&#41;\noCol&#58;bStrData	&#58;= &#123;||cValToChar&#40; aData&#91;oBrw&#58;nArrayAt&#93;&#91;6&#93; &#41;&#125;\n\noBrw&#58;CreateFromCode&#40;&#41;\nownd&#58;oClient	&#58;= oBrw\n\nACTIVAE WINDOW oWnd\n[/code:1qntphza]','',0,'AIA=','1qntphza',1,0,'',868,0,0),(44233,9251,3,1231,0,'83.144.114.249',1197928582,1,0,1,1,1,1,'','','Nageswaragunupudi\n\nIt looks like my idea to create browser.\nI\'m going to implement it.\n\nThank you.\n\nRobert','',0,'AIA=','2hh5mm0b',1,0,'',1231,0,0),(44234,9251,3,1231,0,'83.144.114.249',1197929528,1,0,1,1,1,1,'','','I implemented this code\n\noBRWKKPOD := TXBrowse():New( oDLGKKPOD )\noBRWKKPOD :SetArray( xTABAKT, .T. )\noBRWKKPOD :aCols   := {}\noCol   := oBRWKKPOD:AddCol()\noCol:bStrData := {||cValToChar( oBRWKKPOD:aArrayData[oBRWKKPOD:nArrayAt][2] )}\noCol:cHeader  := \"Kod\"\noCol:nWidth   := 50\noCol:blDClickData := {|| (xKOD_K:=oBRWKKPOD:aArrayData[oBRWKKPOD:nArrayAt,2],oDLGKKPOD:End()) }\noCol   := oBRWKKPOD:AddCol()\noCol:bStrData   := {||cValToChar( oBRWKKPOD:aArrayData[oBRWKKPOD:nArrayAt][7] )}\noCol:cHeader  := \"Skrót\"\noCol:nWidth   := 150\noCol   := oBRWKKPOD:AddCol()\noCol:bStrData := {||cValToChar( oBRWKKPOD:aArrayData[oBRWKKPOD:nArrayAt][10] )}\noCol:cHeader  := \"Miasto\"\noCol:nWidth   := 100\noCol   := oBRWKKPOD:AddCol()\noCol:bStrData := {||cValToChar( oBRWKKPOD:aArrayData[oBRWKKPOD:nArrayAt][11] )}\noCol:cHeader  := \"Adres\"\noCol:nWidth   := 100\noCol   := oBRWKKPOD:AddCol()\noCol:bStrData := {||cValToChar( oBRWKKPOD:aArrayData[oBRWKKPOD:nArrayAt][1] )}\noCol:cHeader  := \"Numer\"\noCol:nWidth   := 50\n\nLooks very good, but I can\'t autosort this array.\nI\'ve used SetArray( xTABAKT, .T. ) but when I replaced original array to created in code I losed this function of xBrowse.\n\nHow to swith it on? Any idea?\n\nRobert','',0,'','33a8nlwi',1,0,'',1231,0,0),(44235,9251,3,868,0,'219.64.121.60',1197932847,1,0,1,1,1,1,'','','You can manually define bLClickHeader blocks.  Alternatively,  let all the columns be defined initially by SetArray method, including autosort.\n\nThen hide the columns you dont want. ( eg. oBrw:aCols[n]:Hide() ).\nYou can also swap cols for repositioning them ( eg oBrw:SwapCols( 2,7 ) )\n\nYou can then get what you want','',0,'','ttu8zoqv',1,0,'',868,0,0),(44236,9251,3,1231,0,'83.144.114.249',1197933625,1,0,1,1,1,1,'','','Otto and Nageswaragunupudi\nThank you for help.\n\nI\'ve just prepared design of browse what I looked for.\n\nRobert','',0,'','2nvvsuqk',1,0,'',1231,0,0),(44237,9223,4,2,0,'87.218.146.214',1197937689,1,0,1,1,1,1,'','','Then you can only use those fonts unless you install more fonts on it.\n\nPlease review samples\\Test2.prg to see how to manage fonts','',0,'','2lth1ysf',1,0,'',2,0,0),(44238,9238,3,2,0,'87.218.146.214',1197937823,1,0,1,1,1,1,'','','Tim,\n\nIs the MsgAlert() shown on the second monitor too ?','',0,'','3qkzrmt4',1,0,'',2,0,0),(44239,9213,3,267,0,'201.9.220.238',1197938270,1,0,1,1,1,1,'','','Antonio,\n\nI identified what he is causing the problem with the transparency - [b:153xjjft]Themas[/b:153xjjft]. In the example that I sent to it, He is enough to exclude the [b:153xjjft]WindowsXp.Manifest[/b:153xjjft] that the system functions','',0,'QA==','153xjjft',1,0,'',267,0,0),(44240,9235,2,661,0,'189.155.211.43',1197938310,1,0,1,1,1,0,'','','te falta especificar el tamaño de la imagen,ejemplo:\n\noPdf:PdfImage(\"Albaran.jpg\",0,0,800,600) \n\nslds.\nalex.','',0,'QA==','dlsmwpy1',1,0,'',661,0,0),(44241,9213,3,2,0,'87.218.146.214',1197938832,1,0,1,1,1,1,'','','Vilian,\n\nI just sent you an email some minutes ago commenting you the same <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease email me the themes manifest file that you are using. Is it the one that we provide with FWH in samples\\winxp ? Have you modified it ?','',0,'QA==','wgetah7c',1,0,'',2,0,0),(44242,9253,6,661,0,'189.155.211.43',1197938975,1,0,1,1,1,0,'','ayuda con error !!','que tal, tengo un programita que genera un archivo texto con las estructuras e indices de mis dbfs, lo extraño es ke en ocasiones me manda el siguiente mensaje, si alguien me pudiera ayudar le estaria agradecido.\n\nUNRECOVERABLE ERROR 9009:\n hb_xrealloc can\'t reallocate memory\n\n\nalex','',0,'QA==','ymzvf5hh',1,0,'',661,0,0),(44243,9133,3,2,0,'87.218.146.214',1197939187,1,0,1,1,1,1,'','','NageswaraRao,\n\nThough your proposed use of a SETGET method is a good and valid solution, it is quite different from the way that FWH uses the DATA oFont in other FWH classes, thats why we prefer to use it as we proposed\n\nAnyhow, we thank you for your suggestions and comments','',0,'QA==','15x6k8zj',1,0,'',2,0,0),(44244,9249,3,2,0,'87.218.146.214',1197939557,1,0,1,1,1,1,'','','Antonio,\n\nYou may use FWH function nFileCRC( cFileName ) --&gt; nCRC to calculate the checksum of a file\n\nIf the file is modified, the CRC will be different','',0,'QA==','2qe6av96',1,0,'',2,0,0),(44245,9238,3,34,0,'68.5.217.82',1197939731,1,0,1,1,1,1,'','MsgAlert','Yes it is.  If I pull the window to monitor 1 it works perfectly.  If I pull it to monitor 2, dialogs and messages line up the same, but when a MsgAlert displays, and then I try to save the record, the data reverts to 0.  Its very strange.','',0,'QA==','27jkzfs3',1,0,'',34,0,0),(44246,9253,6,2,0,'87.218.146.214',1197939857,1,0,1,1,1,1,'','','Alex,\n\nEn los ordenadores actuales es realmente dificil que un bloque de memoria no se pueda redimensionar (hb_xrealloc), por lo que es más fácil pensar que se trate de un puntero (a memoria) no válido.\n\nPuedes proporcionar un ejemplo que reproduzca el error ? gracias,','',0,'QA==','1e47yb7c',1,0,'',2,0,0),(44247,9213,3,267,0,'201.9.220.238',1197939893,1,0,1,1,1,1,'','','Antonio,\n\nI use that provided with FWH in samples\\winxp.','',0,'QA==','159elyvf',1,0,'',267,0,0),(44248,9252,6,2,0,'87.218.146.214',1197940217,1,0,1,1,1,1,'','','Diego,\n\nEs más probable que se trate de la propia caché de memoria de Windows: \n\nComo la aplicación acaba de realizar el trabajo, y todos los elementos usados estan accesibles por Windows, el tiempo de acceso a ellos disminuye considerablemente.\n\nDe todas formas, ante la duda, prueba a borrar el índice con FErase() antes de usar la DBF','',0,'QA==','x5txkv59',1,0,'',2,0,0),(44249,9238,3,2,0,'87.218.146.214',1197940446,1,0,1,1,1,1,'','','Tim,\n\nAnyhow, would you mind to send me or post here a screenshot of the second monitor when you save the data ? thanks,','',0,'QA==','2e4eu2v1',1,0,'',2,0,0),(44250,9213,3,2,0,'87.218.146.214',1197940931,1,0,1,1,1,1,'','','Vilian,\n\nOk, we have been able to reproduce the error here.\n\nNow we can check where the error comes from','',0,'QA==','2ydipinw',1,0,'',2,0,0),(44251,9249,3,303,0,'72.220.181.80',1197941185,1,0,1,1,1,0,'','','There is a good discussion of digital certification and digital signatures here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.adobe.com/products/pdfs/AdobePDFSecurityGuide-c.pdf\">http://www.adobe.com/products/pdfs/Adob ... uide-c.pdf</a><!-- m -->\n\nAnd there are more white papers on the topics here:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.adobe.com/security/digsig.html\">http://www.adobe.com/security/digsig.html</a><!-- m -->\n\nThis is an issue that we are all going to need to deal with sooner or later.\n\nRegards,\nJames','',0,'QA==','g4e6870k',1,0,'',303,0,0),(44252,9254,3,49,0,'62.13.172.67',1197941278,1,0,1,1,1,1,'','SET MESSAGE ERROR','Dear Antonio,\n\n[url=http&#58;//img340&#46;imageshack&#46;us/my&#46;php?image=barrasottozq7&#46;png:9t1mn17f][img:9t1mn17f]http&#58;//img340&#46;imageshack&#46;us/img340/3776/barrasottozq7&#46;th&#46;png[/img:9t1mn17f][/url:9t1mn17f]\n\n\nI have only modify on the method paint tmsgitem this line \n\n[code:9t1mn17f] \nWndBoxIn&#40; hDC, 0, nLeft - 8, &#58;&#58;oMsgBar&#58;nHeight - 1, nLeft - 7 &#41;\n[/code:9t1mn17f]\n\n\nand on the application I insert this command \n[code:9t1mn17f]\n SET MESSAGE OF &#58;&#58;oWndMain TO  &#58;&#58;cAppName NOINSET  2007\n[/code:9t1mn17f]\n\nthe message are not trasparent\n\nOn the tmsgiten original NOT run ok the command NOINSET   ...why ?','',0,'GIA=','9t1mn17f',1,0,'',49,0,0),(44253,9253,6,661,0,'189.155.211.43',1197941288,1,0,1,1,1,0,'','','Antonio, esta es mi funcion, te platico rapidamente que hace, obtiene todos los dbfs de un directorio, escribe la estructura en un TXT y luego cada uno de sus indices NTX, si remuevo la parte donde escribo los indices funciona sin problema:\n\n\ngracias\nalex.\n\n*CREA EL ARCHIVO TEXTO CON LAS ESTRUCTURAS DEL SISTEMA PARA LA APERTURA DE EMPRESAS\nstatic function txtstru()\n   LOCAL afiles := directory(xrutemp+\'*.DBF\')\n   LOCAL astrcut:= {}\n   LOCAL wtexto,i,j,k := 0\n   LOCAL lanio,afiles2:={}\n   LOCAL aindices:={}\n   PRIVATE ldbf,lntx\n   \n   wtexto := fcreate(xrutbas+\'ESTRUCT.TXT\',0)\n   \n   k:= len(afiles)\n   for j = 1 to k\n       \n       *LOS YY YA NO JUEGAN\n       if upper(substr(afiles[j,1],at(\'.\',afiles[j,1])-2,2)) ==  upper(\'YY\')\n          loop\n       endif\n       \n       *DETERNIMA SI ES UN ARCHIVO ANUAL EN CUYO CASO PROCESA SOLO LOS DEL AÑO DEL XDATE\n       lfile := afiles[j,1]\n       if val(substr(afiles[j,1],at(\'.\',afiles[j,1])-2,2)) &gt; 0\n          lanio := 2000+val(substr(afiles[j,1],at(\'.\',afiles[j,1])-2,2)) \n          if lanio # year(xdate)\n             loop\n          endif\n          lfile := strtran(afiles[j,1],substr(str(year(xdate),4),3,2),\'YY\')\n          aadd(afiles2,lfile)  //ARREGLO CON ARCHIVOS DE EJERCICIO\n       endif\n       \n       *ESCRIBE EL NOMBRE DEL ARCHIVO\n       fwrite(wtexto,\'A\'+lfile+chr(13)+chr(10))\n       dbusearea(.t.,,xrutemp+afiles[j,1])  \n       astruct := dbstruct()\n       \n       *ESCRIBE LA ESTRUCTURA DEL ARCHIVO\n       for i = 1 to len(astruct)\n           fwrite(wtexto,\'E{\'+astruct[i,1]+\',\'+astruct[i,2]+\',\'+str(astruct[i,3],2)+\',\'+str(astruct[i,4],1)+\'}\'+chr(13)+chr(10))\n       next i\n       \n       dbclosearea()\n       \n       *ESCRIBE LOS INDICES\n       asize(aindices,0)\n       aindices := directory(xrutemp+strtran(upper(afiles[j,1]),\'.DBF\',\'\')+\'.*\')\n       \n       for x := 1 to len(aindices)\n          lntx := aindices[x,1]\n          if upper(substr(lntx,at(\'.\',lntx),4)) $ \'.DBF,.BAK,.RES,.OLD,.ANT\'\n             loop\n          endif\n          \n          ldbf := xrutemp+afiles[j,1]\n          lntx := xrutemp+aindices[x,1]\n\n          USE &amp;ldbf index &amp;lntx NEW ALIAS ALTEMP\n          cnombre := substr(lntx,at(\'.\',lntx)+1,3)\n          ckey    := indexkey() \n          fwrite(wtexto,\'I\'+cnombre+\' \'+ckey+chr(13)+chr(10))\n          dbclosearea()\n       next x\n       \n       fwrite(wtexto,\'*\'+chr(13)+chr(10))\n   next j\n   \n   *AGREGA LOS ARCHIVOS DE APERTURA DE EJERCICIO\n   for j = 1 to len(afiles2)\n       fwrite(wtexto,\'FILEC\'+afiles2[j]+chr(13)+chr(10))   //FILEC = COPIAR EL FICHERO CON DATOS\n                                                           //FILEZ = COPIAR SOLO ESTRUCTURA  *SE DEBE PONER LA Z MANUALMENTE\n   next j\n   \n   fclose(wtexto)\nreturn .t.','',0,'','xpspylsz',1,0,'',661,0,0),(44254,9238,3,303,0,'72.220.181.80',1197941701,1,0,1,1,1,0,'','','Tim,\n\nAre you using a dialog over a browse and if so, are you using a database object with the browse? I ask because if you are editing the database object buffer in the dialog and the browse gets repainted, the browse object buffer gets updated from the disk data. You have to either turn off buffering or use a TRecord object (part of TData for those of you who don\'t know). The msgAlert may be causing a repaint of the browse.\n\nI don\'t know why this would only happen on the second monitor.\n\nCan you repeat this problem with a simple dialog containg one get with numeric data all created from code?\n\nJames','',0,'','27digdgq',1,0,'',303,0,0),(44255,9238,3,34,0,'68.5.217.82',1197944441,1,0,1,1,1,1,'','MsgAlert','James,\n\nI think Antonio has an idea of what is going on because he asked me about the Msgxxxx( ) function.  \n\nIt is rather strange.  The behavior is excellent otherwise.  This is found in adding parts to an invoice.  Essentially, a blank record is added.  The default quantity is 0.  When the part is applied, all the data populates.  Then I set the sold quantity to 1 .  If there are none in stock, a message alert pops up and tells me that there are none in stock, but I can still add the desired quantity to the invoice.  So the quantity 1 stays in place, but when I press the Save button to write the data to the physical record ( yes, I\'m using tData ), it reverts the quantity to 0.\n\nThis only occurs if I have the open application on the 2nd monitor.  If it is on the 1st monitor, no problem.','',0,'','1lqog4tg',1,0,'',34,0,0),(44256,9193,6,936,0,'200.6.246.63',1197944986,1,0,1,1,1,0,'','','Muchas gracias Carlos, eres muy amable. Espero entonces.\n\nSaludos.\n\nCarlos Sincuir','',0,'','17ayhfir',1,0,'',936,0,0),(44257,9255,3,996,0,'71.35.98.179',1197947721,1,0,1,0,1,0,'','GetFTime() / SetFTime() usage','Hello Everyone,\n\nI am having a little problem with the SetFTime() and GetFTime() functions, as shown in the TestFDat.prg sample.  The SetFTime() function is supposed to set the date and time of the Customer.dbf file to \"01:02:03\" on 11/12/96.  But when running TestFDat, the GetFTime() function is showing a time of 14:28:00, with an empty date.  When I check the actual date and time of customer.dbf at the command prompt after running TestFDat, it is showing as 12/10/1996 at 05:02pm.  I have the latest FiveWin build (712).  Even with a French date setting (as is used in TestFDat.prg) it shouldn\'t be that far off.  Is there some other global setting that could affect the SetFTime() and GetFTime() functions?\n\nThanks,\n\n-Patrick','',0,'','2qt8b96g',1,0,'',996,0,0),(44258,9238,3,303,0,'72.220.181.80',1197952279,1,0,1,1,1,0,'','','Tim,\n\n&gt;So the quantity 1 stays in place, but when I press the Save button to write the data to the physical record ( yes, I\'m using tData ), it reverts the quantity to 0. \n\nLike I said, if you are using TData directly (without turning off the buffer) and there is a browse, then when the screen refreshes, the data in TData\'s buffer will be reloaded from the disk. Despite seeing the 1 on the screen the buffer actually contains 0.\n\n&gt;I think Antonio has an idea of what is going on because he asked me about the Msgxxxx( ) function.\n\nAny message or other app being brought to the top will cause the browse to be refreshed when it is redisplayed.\n\nTry opening another program over the dialog, then closing or minimizing it. You will propably see the same problem.\n\nAlso try oDBF:lBuffer:=.f. before activating the dialog, then oDBF:lBuffer:=.t. just before saving or canceling the dialog. The problem will probably go away.\n\nSee also TRecord.txt in the TData files for an explaination and another solution.\n\nJames','',0,'','11iik3bz',1,0,'',303,0,0),(44259,9143,6,1206,0,'84.77.158.119',1197957471,1,0,1,1,1,0,'','','AH!! Se me olvidaba, la clase TSMTP no funciona (por lo menos a mi no), necesitas compilarla con una modificada y optimizada por Luís Kraus Mantilla. Donde te la envío?','',0,'','2gzdnw90',1,0,'',1206,0,0),(44260,9256,3,32,0,'41.206.160.2',1197957678,1,0,1,1,1,0,'','Say with no hot key parsing','Hi,\n\nI modified the say class to be able to pass a parameter to not interpret the &amp; key as an accelerator (using SS_NOPREFIX), but now my inserted CRLF don\'t get interpreted either.\n\nHas anybody seen this before, or know what else I should pass to make it work properly?\n\nAlex','',0,'','1epyaclc',1,0,'',32,0,0),(44261,9073,20,49,0,'213.82.134.66',1197962005,1,0,1,1,1,1,'','','what ?\n\nCan you explain me please ?','',0,'','250khtwe',1,0,'',49,0,0),(44262,8744,20,49,0,'213.82.134.66',1197962109,1,0,1,1,1,1,'','','Enrico nell \'ultima versione il problema non è stato corretto \nho messo il messaggio anche sul forum inglese\ninoltre ho l\'impressione  che tutti sono spariti .... già in vacanze natalizie ?','',0,'','2fbl2wi5',1,0,'',49,0,0),(44263,9213,3,2,0,'87.218.146.214',1197966204,1,0,1,1,1,1,'','','Vilian,\n\nBug fixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe have emailed you new libraries.\n\nmany thanks for your feedback,','',0,'','3mdyrixq',1,0,'',2,0,0),(44264,9256,3,2,0,'87.218.146.214',1197966594,1,0,1,1,1,1,'','','Alex,\n\nPlease post the portion of source code where you use SS_NOPREFIX to review how you are using it, thanks','',0,'','22wrbts2',1,0,'',2,0,0),(44265,9256,3,32,0,'41.206.160.2',1197966899,1,0,1,1,1,0,'','Say mods','[code:2i7eig9s]\n\nMETHOD New&#40; nRow, nCol, bText, oWnd, cPicture, oFont,;\n            lCentered, lRight, lBorder, lPixels, nClrText, nClrBack,;\n            nWidth, nHeight, lDesign, lUpdate, lShaded, lBox, lRaised,;\n            plNoHotKey, plShortenPath  &#41; ; // AS 18/12/2007\n            CLASS TSay\n&#46;\n&#46;\n&#46;\n&#46;\n\n\n   &#58;&#58;nStyle    = nOR&#40; WS_CHILD, WS_VISIBLE,;\n                 If&#40; lDesign, nOr&#40; WS_CLIPSIBLINGS, WS_TABSTOP &#41;, 0 &#41;,;\n                 If&#40; lCentered, SS_CENTER, If&#40; lRight, SS_RIGHT, SS_LEFT &#41; &#41;,;\n                 If&#40; lBorder, WS_BORDER, 0 &#41;,;\n                 If&#40; lShaded, SS_BLACKRECT, 0 &#41;,;\n                 If&#40; lBox,    SS_GRAYRECT,  0 &#41;,;\n                 If&#40; lRaised, SS_WHITERECT, 0 &#41;, ;\n                 If&#40; plNoHotKey, SS_NOPREFIX, 0 &#41;, ;// AS 18/12/2007\n                 If&#40; plShortenPath, SS_PATHELLIPSIS, 0 &#41;&#41; // AS 18/12/2007\n[/code:2i7eig9s]','',0,'AIA=','2i7eig9s',1,0,'',32,0,0),(44266,9255,3,2,0,'87.218.146.214',1197968225,1,0,1,1,1,1,'','','Patrick,\n\nGetFTime() was not properly working. Now its fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe email you new libraries,\n\nThanks for your feedback,','',0,'AIA=','31319yur',1,0,'',2,0,0),(44267,8744,20,6,0,'87.3.228.25',1197968364,1,0,1,1,1,1,'','','Andrebbe modificata la funzione DrawMsgItem(). Prova magari a sostituirla con il metodo Say() specificando a .T. il parametro lTrasparent.\n\nEMG','',0,'AIA=','2y2givw7',1,0,'',6,0,0),(44268,9223,4,1251,0,'85.221.154.115',1197968368,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:7gclo6g0]Then you can only use those fonts unless you install more fonts on it.\n\nPlease review samples\\Test2.prg to see how to manage fonts[/quote:7gclo6g0]\n\nI test this sample:\n\nfunction Main()\n\n   local oWnd, oFont, cChar, oFont1, oFont2, oFont3, oFont4\n\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PLWIN\n\n   Hb_LangSelect (\'PLWIN\') \n   Hb_SetCodePage (\'PLWIN\') \n\n   DEFINE FONT oFont NAME \"Verdana\" SIZE 8, -12\n   DEFINE FONT oFont1 NAME \"Courier New\" SIZE 8, -12\n   DEFINE FONT oFont2 NAME \"times\" SIZE 8, -12\n   DEFINE FONT oFont3 NAME \"Times New Roman\" SIZE 8, -12\n   DEFINE FONT oFont4 NAME \"Tahoma\" SIZE 8, -12\n\n   oFont:nCharSet := 238     // change to East Europe char set\n   oFont1:nCharSet := 238    // seems to do nothing\n   oFont2:nCharSet := 238   \n   oFont3:nCharSet := 238   \n   oFont4:nCharSet := 238   \n\n   DEFINE WINDOW oWnd\n   cChar := cmonth( date() ) \n\n   @ 1, 1 SAY cCHar SIZE 234, 17 FONT oFont \n   @ 2, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;         \"  FONT oFont\n   @ 3, 1 say str( len ( oFont:cFaceName ) )+\' \' +oFont:cFaceName  \n\n\n   @ 4, 1 SAY cCHar SIZE 234, 17 FONT oFont1 \n   @ 5, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;         \"  FONT oFont1\n   @ 6, 1 say str( len ( oFont1:cFaceName ) )+\' \' +oFont1:cFaceName \n\n\n   @ 7, 1 SAY cCHar SIZE 234, 17 FONT oFont2 \n   @ 8, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;         \"  FONT oFont2\n   @ 9, 1 say str( len ( oFont2:cFaceName ) )+\' \' +oFont2:cFaceName  \n\n\n   @ 10, 1 SAY cCHar SIZE 234, 17 FONT oFont3 \n   @ 11, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;        \"  FONT oFont3\n   @ 12, 1 say str( len ( oFont3:cFaceName ) )+\' \' +oFont3:cFaceName  \n\n   @ 13, 1 SAY cCHar SIZE 234, 17 FONT oFont4 \n   @ 14, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;        \"  FONT oFont4\n   @ 15, 1 say str( len ( oFont4:cFaceName ) )+\' \' +oFont4:cFaceName  \n\n   ACTIVATE WINDOW oWnd\n   \n   oFont:End()\n      \nreturn nil   \nInstead of Grudzie&#324;\n                &#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378; \n                Courier New\nI have   Grudzieñ\n            ¹æê³ñóœ¿Ÿ','',0,'gA==','7gclo6g0',1,0,'',1251,0,0),(44269,9256,3,2,0,'87.218.146.214',1197969435,1,0,1,1,1,1,'','','Alex,\n\nSS_NOPREFIX and CRLFs and working fine here on SAYs\n\nWhat define value have you used for SS_NOPREFIX ?','',0,'gA==','2376u6lo',1,0,'',2,0,0),(44270,9256,3,32,0,'41.206.160.2',1197969664,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:8xsas3eq]Alex,\n\nSS_NOPREFIX and CRLFs and working fine here on SAYs\n\nWhat define value have you used for SS_NOPREFIX ?[/quote:8xsas3eq]\n\n#define SS_NOPREFIX 128.\n\nFrom xhb\\include\\winuser.ch','',0,'gA==','8xsas3eq',1,0,'',32,0,0),(44271,9223,4,2,0,'87.218.146.214',1197969864,1,0,1,1,1,1,'','','You can not do it this way:\n[code:ihr37c4u]\nDEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 8, -12 \noFont&#58;nCharSet &#58;= 238 // change to East Europe char set \n[/code:ihr37c4u]\ninstead, do it this way:\n[code:ihr37c4u]\noFont = TFont&#40;&#41;&#58;New&#40; &quot;Verdana&quot;, -12, 8,,,,,,,, 238 &#41;\n[/code:ihr37c4u]','',0,'AIA=','ihr37c4u',1,0,'',2,0,0),(44272,8744,20,49,0,'213.82.134.66',1197969958,1,0,1,1,1,1,'','','Si però... Antonio mi disse che l\'avrebbe corretto nella 7.12 !!!!','',0,'AIA=','v4im4yyg',1,0,'',49,0,0),(44273,9257,20,924,0,'81.208.36.89',1197970031,1,0,1,1,1,0,'','ShellExcute Help','Salve a tutti\nMi sono fatto fare un programmino da un amico in java con estensione .JAR e lo lancio dall\'interno della mia applicazione FWH con ShellExecute(0,0,\"AmicoProg.Jar\",0,0,1) \nma mi succede un problema del tipo:\nper chi ha installato sul PC il WinRar con settaggio di apertura file .JAR (default) non viene eseguita l\'applicazione JAVA ma il file AmicoProg.jar viene aperto da WinRar come se fosse un file \'tipo ZIP\' in pratica come applicazione predefinita del mio .JAR viene usato WinRar.\n\nDomananda ovvia: come faccio a evitare questo problema facendogli lanciare correttamente il JAVA e non il WinRar anche se quest\'ultimo e\' di default ?\n\nGrazie\nPiscicelli/Zingoni','',0,'AIA=','1gg4cf94',1,0,'',924,0,0),(44274,9256,3,2,0,'87.218.146.214',1197970099,1,0,1,1,1,1,'','','Alex,\n\nThe define value is right. Strange, it should work fine for you.\n\nWhat FWH version are you using ? Here it is working fine with FWH 7.12\n\nAs a workaround you may use:\n::cCaption = StrTran( ::cCaption, \"&amp;\", \"&amp;&amp;\" )','',0,'AIA=','kks97qpd',1,0,'',2,0,0),(44275,9254,3,2,0,'87.218.146.214',1197970688,1,0,1,1,1,1,'','','Silvio,\n\nYou may use SetBkMode( hDC, TRANSPARENT ) in function DRAWMSGITEM(), but the problem is that the background will not be erased, when you change the msgitem text.\n\nWe need to fix it, copying the portion of the msgbar image where the item is (using BitBlt()) to the item background. Its on our todo list','',0,'AIA=','1smzu42d',1,0,'',2,0,0),(44276,9256,3,32,0,'41.206.160.2',1197970753,1,0,1,1,1,0,'','Working','It\'s fine now, after I removed one too many comma\'s  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','16miv2uu',1,0,'',32,0,0),(44277,9256,3,2,0,'87.218.146.214',1197970821,1,0,1,1,1,1,'','','very good! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2z4ir6p7',1,0,'',2,0,0),(44278,9258,3,190,0,'124.7.113.149',1197970918,1,0,1,1,1,0,'','Creation of MDB, add tables &amp; append DBF data with ADORD','Hi\n\nCan anybody guide me with a working sample to create a Database\nwith two tables and after creation, I need to populate the tables from\ntwo individual .DBF files using APPEND FROM ... command using ADORDD.\n\nI found a sample \"ACCESS1.PRG\" which is creating the databse with a\ntable.  I need to create the databse alongwith two tables.  I don\'t know\nhow to accomplish it.\n\n[code:3ajeltee]\nDbCreate&#40; &quot;test2&#46;mdb;table1&quot;, &#123; &#123; &quot;FIRST&quot;,  &quot;C&quot;, 10, 0 &#125;,;\n                                               &#123; &quot;LAST&quot;,    &quot;C&quot;, 10, 0 &#125;,;\n                                               &#123; &quot;AGE&quot;,     &quot;N&quot;,   8, 0 &#125; &#125;,;\n                                               &quot;ADORDD&quot; &#41;\n[/code:3ajeltee]\n\nHow to add another table to test2.mdb ?\n\n[code:3ajeltee]\nUSE test2&#46;mdb VIA &quot;ADORDD&quot; TABLE &quot;table1&quot;\n[/code:3ajeltee]\n\nHow to append data from a .DBF file to table1 ?\n\nAny working sample please\n\nThanks\n\n- Ramesh Babu P','',0,'AIA=','3ajeltee',1,0,'',190,0,0),(44279,9223,4,1251,0,'85.221.154.115',1197971257,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:qstrxc7c]You can not do it this way:\n[code:qstrxc7c]\nDEFINE FONT oFont NAME &quot;Verdana&quot; SIZE 8, -12 \noFont&#58;nCharSet &#58;= 238 // change to East Europe char set \n[/code:qstrxc7c]\ninstead, do it this way:\n[code:qstrxc7c]\noFont = TFont&#40;&#41;&#58;New&#40; &quot;Verdana&quot;, -12, 8,,,,,,,, 238 &#41;\n[/code:qstrxc7c][/quote:qstrxc7c]\n\nI changed nHeight with nWidth ( 8 and -12 ) and tested it and no change in program behaviour.\n\nfunction Main()\n\n   local oWnd, oFont, cChar, oFont1, oFont2, oFont3, oFont4\n\n   Request Hb_Lang_PLWIN\n   Request Hb_CodePage_PLWIN\n\n   Hb_LangSelect (\'PLWIN\') \n   Hb_SetCodePage (\'PLWIN\') \n\n   oFont = TFont():New( \"Verdana\", 8, -12, .f., , , , , , , ,238 )\n   oFont1 = TFont():New( \"Courier New\",  8, -12, .f., , , , , , , ,238 )\n   oFont2 = TFont():New( \"times\", 8, -12, .f., , , , , , , ,238 )\n   oFont3 = TFont():New( \"Times New Roman\",  8, -12, .f., , , , , , , ,238 )\n   oFont4 = TFont():New( \"Tahoma\", 8, -12, .f., , , , , , , ,238 )\n\n\n   DEFINE WINDOW oWnd\n   cChar := cmonth( date() ) \n\n   @ 1, 1 SAY cCHar SIZE 234, 17 FONT oFont \n   @ 2, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;         \"  FONT oFont\n   @ 3, 1 say str( len ( oFont:cFaceName ) )+\' \' +oFont:cFaceName  \n\n\n   @ 4, 1 SAY cCHar SIZE 234, 17 FONT oFont1 \n   @ 5, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;         \"  FONT oFont1\n   @ 6, 1 say str( len ( oFont1:cFaceName ) )+\' \' +oFont1:cFaceName \n\n\n   @ 7, 1 SAY cCHar SIZE 234, 17 FONT oFont2 \n   @ 8, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;         \"  FONT oFont2\n   @ 9, 1 say str( len ( oFont2:cFaceName ) )+\' \' +oFont2:cFaceName  \n\n\n   @ 10, 1 SAY cCHar SIZE 234, 17 FONT oFont3 \n   @ 11, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;        \"  FONT oFont3\n   @ 12, 1 say str( len ( oFont3:cFaceName ) )+\' \' +oFont3:cFaceName  \n\n   @ 13, 1 SAY cCHar SIZE 234, 17 FONT oFont4 \n   @ 14, 1 say \"&#261;&#263;&#281;&#322;&#324;ó&#347;&#380;&#378;        \"  FONT oFont4\n   @ 15, 1 say str( len ( oFont4:cFaceName ) )+\' \' +oFont4:cFaceName  \n\n   ACTIVATE WINDOW oWnd\n   \n   oFont:End()\n      \nreturn nil','',0,'gIA=','qstrxc7c',1,0,'',1251,0,0),(44280,9253,6,2,0,'87.218.146.214',1197971546,1,0,1,1,1,1,'','','Alex,\n\nComentando estas tres líneas ya no falla ?\n[code:37uy8rhi]\ncnombre &#58;= substr&#40;lntx,at&#40;\'&#46;\',lntx&#41;+1,3&#41; \nckey &#58;= indexkey&#40;&#41; \nfwrite&#40;wtexto,\'I\'+cnombre+\' \'+ckey+chr&#40;13&#41;+chr&#40;10&#41;&#41;\n[/code:37uy8rhi]\nDe ser asi, prueba con:\n[code:37uy8rhi]\ncnombre &#58;= substr&#40;lntx,at&#40;\'&#46;\',lntx&#41;+1,3&#41; \nckey &#58;= indexkey&#40;&#41; \nif Empty&#40; cnombre &#41; &#46;or&#46; Empty&#40; ckey &#41;\n   MsgAlert&#40; &quot;nombre ó key no válido!&quot; &#41;\nendif\nDEFAULT cnombre &#58;= &quot;&quot;, ckey &#58;= &quot;&quot;\nfwrite&#40;wtexto,\'I\'+cnombre+\' \'+ckey+chr&#40;13&#41;+chr&#40;10&#41;&#41;\n[/code:37uy8rhi]','',0,'AIA=','37uy8rhi',1,0,'',2,0,0),(44281,9253,6,2,0,'87.218.146.214',1197971708,1,0,1,1,1,1,'','','Tambien puede ser que at(\'.\',lntx) devuelva cero, por lo que le estarías pasando un valor erróneo a SubStr()\n\nCompruébalo:\n[code:1p06ahp3]\nif at&#40;\'&#46;\',lntx&#41; == 0\n   MsgAlert&#40; &quot;el fichero no tiene extension!&quot; &#41;\nendif\n[/code:1p06ahp3]','',0,'AIA=','1p06ahp3',1,0,'',2,0,0),(44282,9223,4,2,0,'87.218.146.214',1197972070,1,0,1,1,1,1,'','','Please try this:\n\noFont = TFont():New( \"Verdana\", 8, -12, .f., , , , , , , ,238 ) \nMsgInfo( oFont:nCharSet )\n\nand check if it shows 238, thanks','',0,'AIA=','yu5yqhk9',1,0,'',2,0,0),(44283,9259,3,32,0,'41.206.160.2',1197972221,1,0,1,1,1,0,'','vbscript getobject function','Hi,\n\nFound the below on the xhb newsgroup, but can\'t seem to translate the Getobject call. Does anybody know of an alternative way to get domain info, not necessarily AD, could be Linux+Samba too.\n\n[code:mdlfrudn]Function VerifyGroupMembers&#40; strDomain, strGroup, strMemberList &#41;\n\n    VerifyGroupMembers = False\n    Set objGroup = GetObject&#40;&quot;WinNT&#58;//&quot; &amp; strDomain &amp; &quot;/&quot; &amp; strGroup &amp; \n&quot;,group&quot;&#41;\n\n    arrUsers = Split&#40; strMemberList, &quot;,&quot; &#41;\n\n    For Each objUser In objGroup&#46;Members\n\n        WScript&#46;Echo &quot;Checkiing group member &quot; &amp; objUser&#46;Name\n\n        bMemberFound = False\n\n        For i = 0 To UBound&#40; arrUsers &#41;\n         If&#40; UCase&#40; Trim&#40; arrUsers&#40;i&#41; &#41; &#41; = UCase&#40; Trim&#40; objUser&#46;Name &#41; &#41; &#41; \nThen\n          WScript&#46;Echo &quot;Member found&#58; &quot; &amp; objUser&#46;Name\n             bMemberFound = True\n             Exit For\n         End If\n     Next\n\n     If&#40; Not bMemberFound &#41; Then\n         WScript&#46;Echo &quot;Member NOT found&#58; &quot; &amp; objUser&#46;Name\n         VerifyGroupMembers = False\n         Exit Function\n     End If\n    Next\n\n    VerifyGroupMembers = True\nEnd Function[/code:mdlfrudn]','',0,'AIA=','mdlfrudn',1,0,'',32,0,0),(44284,9259,3,6,0,'87.3.228.25',1197972718,1,0,1,1,1,1,'','Re: vbscript getobject function','Try using CreateObject() instead.\n\nEMG','',0,'AIA=','x3k4938l',1,0,'',6,0,0),(44285,9143,6,596,0,'85.62.69.206',1197973296,1,0,1,1,1,1,'','','[quote=&quot;JARO&quot;:3vame289]Donde te la envío?[/quote:3vame289]\nj m g a r c i a m ARROBA h o t m a i l PUNTO c o m\n\nGracias.','e9d80a7e9c6292ef2a965aca84826a82',0,'gA==','3vame289',1,1286627688,'',596,1,0),(44286,9198,3,297,0,'217.57.213.130',1197973920,1,0,1,1,1,0,'','','I\'m sorry but this message was posted 14 december\nIt\'s very strange ....\nIt does not appear normally but when I click on reply button it appears \n\nI re -post now\nHi to everybody\n========================= original reply 12/14/07 ======\n\nPerfect!\n\nI have already modified a program in this way:\n..\nLOCAL aImageImp := {}\n..\nIF FILE( HB_ArgV( 1 ) )\nFOR i := 1 TO HB_ArgC()\nAADD( aImageImp , HB_ArgV( i ) )\nNEXT i\nENDIF\n..\n..\n..\n..\nACTIVATE WINDOW oMain ;\nON INIT IIF( LEN( aImageImp ) &gt;0 , imp_image(aImageImp) , )\n\nFUNCTION imp_image start automatically IF I run program from SendTo etc. etc. with selected files\n\nIs very useful for a lot of works\nHave a nice weekend to all','',0,'gA==','135d3azk',1,0,'',297,0,0),(44287,9198,3,6,0,'87.3.228.25',1197974346,1,0,1,1,1,1,'','','I don\'t understand. Your message was perfectly visible from here.\n\nEMG','',0,'gA==','2pbji32c',1,0,'',6,0,0),(44288,9259,3,868,0,'219.64.121.60',1197975041,1,0,1,1,1,1,'','','VB\'s GetObject is functionally equivalent to xHarbour\'s\n\ntry\ngetactiveobject()\ncatch\ncreateobject()\nend','',0,'gA==','4kzjs8qd',1,0,'',868,0,0),(44289,9255,3,868,0,'219.64.121.60',1197975286,1,0,1,1,1,1,'','','Mr Antonio\n\nCan I have them too?','',0,'gA==','3qhy9927',1,0,'',868,0,0),(44290,9223,4,1251,0,'85.221.154.115',1197975622,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2riykrkb]Please try this:\n\noFont = TFont():New( \"Verdana\", 8, -12, .f., , , , , , , ,238 ) \nMsgInfo( oFont:nCharSet )\n\nand check if it shows 238, thanks[/quote:2riykrkb]\n\nFor all five fonts it return 238 but on display is the same.','',0,'gA==','2riykrkb',1,0,'',1251,0,0),(44291,9260,3,868,0,'219.64.121.60',1197975636,1,0,1,1,1,1,'','ButtonBar 2007 - lPressed look','On Buttonbars without 2007 look the buttons appear differently with lPressed := .t. or .f..  I was using this functionality.\n\nBut with 2007 style, there is no difference in the appearance whether lPessed := .t. or .f.\n\nAs a workaround, for the time being, i am using two bitmaps, but the Pressed look is more meaningful and clear to the user. Wish this can be provided','',0,'gA==','373xlpy0',1,0,'',868,0,0),(44292,9254,3,868,0,'219.64.121.60',1197975749,1,0,1,1,1,1,'','','I am able to paint the msgitem text in transparent mode, but unable to repaint the background.  I am not good in graphics. I failed both using bitmap and gradient.\n\nEagerly awaiting the improvement from FWH','',0,'gA==','3mhh1whe',1,0,'',868,0,0),(44293,9254,3,49,0,'213.82.134.66',1197975870,1,0,1,1,1,1,'','','thanks\nI thinked you\'already corrected the problem on 7.12...\nI\'m trying to correct it but I have some problems','',0,'gA==','n5apnk5i',1,0,'',49,0,0),(44294,9254,3,868,0,'219.64.121.60',1197977650,1,0,1,1,1,1,'','','This seems to be working tolerably.  Actually we need to use the bitmap. Instead I used gradient to approximate the colors of the bitmap used for the message bar.\n[code:epe10woj]\nMETHOD Paint&#40;&#41; CLASS TMsgItem\n\n   local nCount, nClrBack\n   local nLeft &#58;= &#58;&#58;nLeft&#40;&#41;\n   local hBmp, nBmpWidth &#58;= 0\n\n   local hDC &#58;= &#58;&#58;oMsgBar&#58;GetDC&#40;&#41;\n\n   if &#58;&#58;hBitmap1 != nil\n      hBmp = If&#40; &#58;&#58;lActive, &#58;&#58;hBitmap1, ;\n                 If&#40; &#58;&#58;hBitmap2 != nil, &#58;&#58;hBitmap2, &#58;&#58;hBitmap1 &#41; &#41;\n      nBmpWidth  = nBmpWidth&#40; hBmp &#41;\n      DrawMasked&#40; hDC, hBmp, 4, nLeft + 1 &#41;\n   endif\n/*\n   DrawMsgItem&#40; hDC, &#58;&#58;cMsg,;\n                &#123; 5, nLeft + nBmpWidth, &#58;&#58;oMsgBar&#58;nHeight-6, nLeft + &#40; &#58;&#58;nWidth - 7 &#41; &#125;,;\n                If&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;,;\n                &#58;&#58;nClrPane, &#58;&#58;oFont&#58;hFont &#41;\n*/\n\n      Gradient&#40; hDC, &#123; 0, nLeft, &#58;&#58;omsgbar&#58;nHeight / 4, nLeft + &#58;&#58;nWidth &#125;,;\n                nRGB&#40; 227, 239, 255 &#41;, nRGB&#40; 201, 224, 255 &#41;, &#46;T&#46; &#41;\n      Gradient&#40; hDC, &#123; &#40; &#58;&#58;omsgbar&#58;nHeight / 4 &#41; + 1, nLeft, &#58;&#58;omsgbar&#58;nHeight, nLeft + &#58;&#58;nWidth &#125;,;\n                nRGB&#40; 174, 209, 255 &#41;, nRGB&#40; 186, 216, 255 &#41;, &#46;T&#46; &#41;\n\n\n\n      &#58;&#58;oMsgBar&#58;Say&#40; &#58;&#58;oMsgBar&#58;nHeight / 4 - 2,;\n             nLeft + &#40;&#58;&#58;nWidth / 2&#41;  - GetTextWidth&#40; hDC,&#58;&#58;cMsg &#41;, &#58;&#58;cMsg, ;\n             iif&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;, &#58;&#58;nClrPane, ; // &#58;&#58;nClrPane is anyway ignored\n             &#58;&#58;oFont, &#46;T&#46;, &#46;T&#46; &#41;\n\n\n\n// WndBoxIn&#40; hDC, 3, nLeft - 2, &#58;&#58;oMsgBar&#58;nHeight-5, nLeft + &#58;&#58;nWidth - 6 &#41; // fwh\n//	WndBoxIn&#40; hDC, 0, nLeft - 8, &#58;&#58;oMsgBar&#58;nHeight - 1, nLeft - 7 &#41;  // silvio\n   wndboxin&#40; hDc, 0, nLeft-1, &#58;&#58;oMsgBar&#58;nHeight, nLeft &#41;   // present test values\n// Instead of the above function I prefer to draw two vertical lines with highlight and dark pens\n\n   &#58;&#58;oMsgBar&#58;ReleaseDC&#40;&#41;\n\n\nreturn nil\n[/code:epe10woj]\n\nThis is the result \n[url=http&#58;//imageshack&#46;us:epe10woj][img:epe10woj]http&#58;//img84&#46;imageshack&#46;us/img84/1346/msbargd3&#46;png[/img:epe10woj][/url:epe10woj]','',0,'GIA=','epe10woj',1,0,'',868,0,0),(44295,9213,3,267,0,'189.13.81.230',1197977686,1,0,1,1,1,1,'','','Antonio,\n\nPerfect, grateful for the fast reply.','',0,'GIA=','1gedvlre',1,0,'',267,0,0),(44296,9213,3,49,0,'213.82.134.66',1197977936,1,0,1,1,1,1,'','','vilian,\nHow you made the part of the ticket ?\nI\'d like to see it','',0,'GIA=','1ugrxhua',1,0,'',49,0,0),(44297,9213,3,267,0,'189.13.81.230',1197978376,1,0,1,1,1,1,'','','Silvio,\n\nFor which email sending?','',0,'GIA=','28nsrz67',1,0,'',267,0,0),(44298,9254,3,868,0,'219.64.121.60',1197978432,1,0,1,1,1,1,'','','Changed the gradient function slightly.  This gives relatively a better look.  Till we can paint background with bitmap instead of gradient.\n\n[code:1hdhw2am]\n      Gradient&#40; hDC, &#123; 0, nLeft, &#58;&#58;omsgbar&#58;nHeight / 3, nLeft + &#58;&#58;nWidth &#125;,;\n                nRGB&#40; 227, 239, 255 &#41;, nRGB&#40; 201, 224, 255 &#41;, &#46;T&#46; &#41;\n      Gradient&#40; hDC, &#123; &#40; &#58;&#58;omsgbar&#58;nHeight / 3 &#41; + 1, nLeft, &#58;&#58;omsgbar&#58;nHeight, nLeft + &#58;&#58;nWidth &#125;,;\n                nRGB&#40; 174, 209, 255 &#41;, nRGB&#40; 186, 216, 255 &#41;, &#46;T&#46; &#41;\n\n[/code:1hdhw2am]\n\nLooks:\n[url=http&#58;//imageshack&#46;us:1hdhw2am][img:1hdhw2am]http&#58;//img149&#46;imageshack&#46;us/img149/2153/msgbar2sz6&#46;png[/img:1hdhw2am][/url:1hdhw2am]','',0,'GIA=','1hdhw2am',1,0,'',868,0,0),(44299,9254,3,49,0,'213.82.134.66',1197978690,1,0,1,1,1,1,'','','Dear friend, \nI see many errors \ntry with \n\n  SET MESSAGE OF oWnd TO FWCOPYRIGHT 2007 NOINSET  DATE CLOCK\n   DEFINE MSGITEM  OF oWnd:oMsgBar SIZE 100  prompt \" Test TEST\"','',0,'GIA=','2b7hn66r',1,0,'',49,0,0),(44300,9213,3,49,0,'213.82.134.66',1197978774,1,0,1,1,1,1,'','','<!-- e --><a href=\"mailto:silvio.falconi@gmail.com\">silvio.falconi@gmail.com</a><!-- e -->','',0,'GIA=','3hj9d4qg',1,0,'',49,0,0),(44301,9250,3,999,0,'201.42.194.249',1197978957,1,0,1,1,1,0,'','','Greetings and a happy and prosperous New Year to all.','',0,'GIA=','3hk3iylb',1,0,'',999,0,0),(44302,9254,3,868,0,'219.64.121.60',1197979124,1,0,1,1,1,1,'','','here it is\n\n[url=http&#58;//imageshack&#46;us:qtjdj2d8][img:qtjdj2d8]http&#58;//img149&#46;imageshack&#46;us/img149/470/msgbar3vp4&#46;png[/img:qtjdj2d8][/url:qtjdj2d8]\n\nAnyway you are welcome to improve it. This is a quick work from me.','',0,'GA==','qtjdj2d8',1,0,'',868,0,0),(44303,9183,3,49,0,'213.82.134.66',1197979168,1,0,1,1,1,1,'','','I found a free dll at <!-- m --><a class=\"postlink\" href=\"http://www.googleearthairlines.com/\">http://www.googleearthairlines.com/</a><!-- m -->\n\nI can see the 3d or 2d earth\n\nhe use google Earth and there are two sample in Delphi and VB\nYOu not installed all google heart but only a file setup.exe from this site\n\nthe setup exe instal some dll :\n\nwebplugin4ge.dll\nnpgeplugin.dll\nand a javascript  geapi.js\n\nHow we can use it on xharbour ?','',0,'GA==','1dvth6ql',1,0,'',49,0,0),(44304,9261,6,21,0,'87.220.91.18',1197979269,1,0,1,1,1,1,'','Problemas con la versión 7.12','Me he encontrado los siguientes problemas en la versión 7.12 y como los he solucionado\n\n1.- TCombobox. Genera un error al pulsar VK_DEL si la lista de elementos (::aItems) son 0\n\n[code:1erlzukn]METHOD KeyChar&#40; nKey, nFlags &#41; CLASS TComboBox \n   local nNewAT &#58;= 0, nOldAT &#58;= &#58;&#58;nAT, uItem \n\n   do case \n      case nKey = 32   // VK_DELETE &#40;DO NOT WORK!&#41; \n           &#58;&#58;cSearchKey = &quot;&quot; \n           nNewAt = 1 \n           uItem  = if&#40; len&#40;&#58;&#58;aItems&#41;&gt;=nNewAt, &#58;&#58;aItems&#91; nNewAt &#93;, \'\' &#41;  //&#46;&#46;&#46;  Nuevo&#46;fgondi\n            \n      case nKey = VK_BACK \n           &#58;&#58;cSearchKey = Left&#40; &#58;&#58;cSearchKey, Len&#40; &#58;&#58;cSearchKey &#41; - 1 &#41; \n            \n      case nKey = 190 \n           nKey = 0 \n           &#58;&#58;cSearchKey += &quot;&#46;&quot; \n            \n      otherwise \n           &#58;&#58;cSearchKey += Upper&#40; Chr&#40; nKey &#41; &#41; \n   endcase \n    \n   if Empty&#40; uItem &#41; \n      if nNewAt == 0 \n         nNewAt = AScan&#40; &#58;&#58;aItems, &#123;|x| Upper&#40;x&#41; = &#58;&#58;cSearchKey &#125; &#41; \n         if nNewAt &gt; 0 //&#46;and&#46; Len&#40; &#58;&#58;aItems &#41; &lt;= nNewAt //&#46;&#46;&#46; Nuevo&#46;fgondi\n            uItem = &#58;&#58;aItems&#91; nNewAt &#93; \n         elseif len&#40;&#58;&#58;aItems&#41;&gt;=Max&#40; &#58;&#58;nAT, 1 &#41;   //&#46;&#46;&#46; Nuevo&#46;fgondi\n           uItem = &#58;&#58;aItems&#91; Max&#40; &#58;&#58;nAT, 1 &#41; &#93;   //&#46;&#46;&#46; Nuevo&#46;fgondi\n         endif\n      elseif len&#40;&#58;&#58;aItems&#41;&gt;=Max&#40; nNewAt, 1 &#41;     //&#46;&#46;&#46; Nuevo&#46;fgondi\n         uItem = &#58;&#58;aItems&#91; Max&#40; nNewAt, 1&#41; &#93; \n      endif \n   endif \n&#46;&#46;&#46;\n[/code:1erlzukn]\n\n2.- TDtPicke. Genera un error al definir el objeto si la variable (uVar) esta definida a null. No se si es un error pero la clase TGet lo acepta.\n\n [code:1erlzukn]METHOD SetDate&#40; dDate, lEmpty &#41; INLINE if&#40; Valtype&#40;dDate&#41;&lt;&gt;\'D\', dDate &#58;= ctod&#40;\'\'&#41;, &#41;,; //&#46;&#46;&#46; Nuevo&#46;fgondi\n                                  SetDatePick&#40; &#58;&#58;hWnd, Year&#40; dDate &#41;,;\n                                  Month&#40; dDate &#41;, Day&#40; dDate &#41;,;\n                                  If&#40; &#40; lEmpty != nil &#46;and&#46; lEmpty &#41; &#46;or&#46; Empty&#40; dDate &#41;,;\n                                  1, 0 &#41; &#41;[/code:1erlzukn]\n\n3. TTmPicke. No controla correctamente la hora vacia (checkbox a su izquierda)\n\n[code:1erlzukn]METHOD GetTime&#40;&#41;        INLINE if&#40; Empty&#40;GetDatePick&#40; &#58;&#58;hWnd &#41;&#41;, space&#40;6&#41;, GetTimePick&#40;&#58;&#58;hWnd&#41; &#41; //&#46;&#46;&#46; Nuevo&#46;fgondi[/code:1erlzukn]\n[code:1erlzukn]METHOD SetTime&#40; cHour &#41; CLASS TTimePick\n   local cShow, nHora, nMinut, nSeg\n   cShow  &#58;= if&#40; Empty&#40;cHour&#41;, Hora&#40;&#41;, cHour &#41;\n   dShow &#58;= if&#40; Empty&#40;cHour&#41;, Date&#40;&#41;, ctod&#40;\'\'&#41; &#41; //&#46;&#46;&#46; Nuevo&#46;fgondi\n   nHora  &#58;= Val&#40;left&#40;cShow, 2&#41;&#41;\n   if At&#40;\'&#58;\', cShow&#41;&lt;&gt;0\n     nMinut &#58;= Val&#40;SubStr&#40;cShow, 4, 2&#41;&#41;\n   else\n     nMinut &#58;= Val&#40;SubStr&#40;cShow, 3, 2&#41;&#41;\n   endif\n   nSeg   &#58;= Val&#40;Right&#40;cShow, 2&#41;&#41;\n   SetTimePick&#40; &#58;&#58;hWnd, Year&#40; dShow&#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;,;\n                nHora, nMinut, nSeg, 0 &#41; //&#46;&#46;&#46; Nuevo&#46;fgondi\n   if Empty&#40;cHour&#41;\n     SetTimePick&#40; &#58;&#58;hWnd, Year&#40; dShow &#41;, Month&#40; dShow &#41;, Day&#40; dShow &#41;,;\n                  nHora, nMinut, nSeg, 1 &#41; //&#46;&#46;&#46; Nuevo&#46;fgondi\n   endif\nreturn self\n[/code:1erlzukn]','',0,'AIA=','1erlzukn',1,0,'',21,0,0),(44305,9254,3,49,0,'213.82.134.66',1197979943,1,0,1,1,1,1,'','','Look my picture\n[url=http&#58;//img403&#46;imageshack&#46;us/my&#46;php?image=screenhunter02dec181309ig7&#46;gif:6ytlwqvh][img:6ytlwqvh]http&#58;//img403&#46;imageshack&#46;us/img403/3687/screenhunter02dec181309ig7&#46;th&#46;gif[/img:6ytlwqvh][/url:6ytlwqvh]','',0,'GA==','6ytlwqvh',1,0,'',49,0,0),(44306,9262,22,21,0,'87.220.91.18',1197980129,1,0,1,1,1,1,'','Petición para Clase TSay','Hola Antonio,\n\nEn mis aplicaciones uso la clase TSay para mostrar datos que no quiero que modifiquen\n\nSe que puedo usar la clase TGet con el método Disable(), pero de esta forma pueden creer que en algún momento o con algún permiso se puede cambiar\ny quiero dejar claro que no se puede en ningún momento modificar\n\nEl problema es que al mostrar el dato en el say con un picture, pierdo el dato grabado inicialmente, osea: \ndefino Tsay con un picture \'@KE 999.99%\'\nSe Introduce en ella un valor oSay:SetText( nTarifa )\nAl comprobar que dato hay grabado en el objeto oSay:cCaption ya no obtengo el valor numérico, sino que obtengo el valor del transform\n\nYo lo tengo solucionado de esta forma:\n\n[code:3590ss0s]CLASS TSay FROM TControl\n\n   DATA xCaption  //Nuevo&#46;fgondi\n   &#46;&#46;&#46;&#46;\n\n   METHOD New&#40;&#46;&#46;&#46;\n   &#46;&#46;&#46;\n   &#58;&#58;xCaption  = Eval&#40; bText &#41;  //Nuevo&#46;fgondi\n   &#58;&#58;cCaption  = If&#40; Empty&#40; cPicture &#41;, cValToChar&#40; Eval&#40; bText &#41; &#41;,;\n                     Transform&#40; Eval&#40; bText &#41;, cPicture &#41; &#41;\n\n   METHOD Redefine&#40;&#46;&#46;&#46;\n   &#46;&#46;&#46;&#46;\n   if bText != nil\n      &#58;&#58;xCaption  = Eval&#40; bText &#41;  //Nuevo&#46;fgondi\n      &#58;&#58;cCaption = If&#40; Empty&#40; cPicture &#41;, cValToChar&#40; Eval&#40; bText &#41; &#41;,;\n                       Transform&#40; Eval&#40; bText &#41;, cPicture &#41; &#41;\n   endif\n\n   METHOD SetText&#40; cText &#41; CLASS TSay\n   &#46;&#46;&#46;&#46;\n   &#58;&#58;xCaption &#58;= cText\n   &#58;&#58;cCaption &#58;= If&#40; &#58;&#58;cPicture != nil, Transform&#40; cText, &#58;&#58;cPicture &#41;,;\n                     cValToChar&#40; cText &#41; &#41;\n   &#46;&#46;&#46;\n[/code:3590ss0s]','',0,'AIA=','3590ss0s',1,0,'',21,0,0),(44307,9254,3,868,0,'219.64.121.60',1197980188,1,0,1,1,1,1,'','','Ok Sorry\nPlease replace this line instead of the previous code. There was a minor mistake in centering the message\n[code:3vif4pwh]\n      &#58;&#58;oMsgBar&#58;Say&#40; &#58;&#58;oMsgBar&#58;nHeight / 4 - 2,;\n             nLeft + &#40;&#58;&#58;nWidth - GetTextWidth&#40; hDC,&#58;&#58;cMsg &#41;&#41;/2, &#58;&#58;cMsg, ;\n             iif&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;, &#58;&#58;nClrPane, ;\n             &#58;&#58;oFont, &#46;T&#46;, &#46;T&#46; &#41;\n[/code:3vif4pwh]\n\nuse this code instead of the old one i posted','',0,'AIA=','3vif4pwh',1,0,'',868,0,0),(44308,9263,22,21,0,'87.220.91.18',1197980281,1,0,1,1,1,1,'','Tmget','Hola Antonio,\n\n¿Que te parecería incluir en la clase TmGet los mismos controles de colores para el foco que en la clase Tget?\n\nMe parecen un buen control de color y que no estaría mal aplicarlos a la clase TmGet','',0,'AIA=','2vfwltnu',1,0,'',21,0,0),(44309,9213,3,267,0,'189.13.81.230',1197980331,1,0,1,1,1,1,'','','Silvio, \n\nWe have emailed you sample.','',0,'AIA=','2w0yorzk',1,0,'',267,0,0),(44310,9250,3,49,0,'213.82.134.66',1197981385,1,0,1,1,1,1,'','','[img:3c48f4jg]http&#58;//img407&#46;imageshack&#46;us/img407/470/buonnataleintuttelelingue8&#46;gif[/img:3c48f4jg]','',0,'CA==','3c48f4jg',1,0,'',49,0,0),(44311,9264,6,21,0,'87.220.91.18',1197981546,1,0,1,1,1,1,'','Clase Tget y su Picture','En la clase tget me he encontrado el siguiente problema:\n\nUn get definido con un picture \'@KE 9,999.999\' por ejemplo\nIntroducimos en él el valor 1200.67453, oGet:cText( 1200.67453), osea un valor con mas decimales de los que se van a mostrar en el picture.\n\nEl dato es visualizado correctamente y al volver a obtener el contenido del get, Eval(oGet:bSetGet), muestra 1200.67453\n\nPero si pasan por el campo sin editar nada, osea se posicionan en el get y pulsan intro sin haber alterado nada, el bsetget cambia y se obtiene 1200.675 (el valor pasado por el transform). Acabo de perder el contenido real del get sin que el usuario haya alterado los datos.\n\nYo lo he solucionado de esta forma:\n[code:1eqmp5m0]\nCLASS TGet FROM TControl\n\n   DATA   xPrevio  //&#46;&#46;&#46; Nuevo&#46;fgondi\n   &#46;&#46;&#46;&#46;\n   METHOD SetxPrevio&#40; xText &#41;  //&#46;&#46;&#46; Nuevo&#46;fgondi\n   &#46;&#46;&#46;\n\n   METHOD New&#40;&#46;&#46;&#46;&#41;  CLASS TGet\n   &#46;&#46;&#46;\n   &#58;&#58;SetxPrevio&#40; Eval&#40;&#58;&#58;bSetGet&#41; &#41;  //&#46;&#46;&#46; Nuevo&#46;fgondi\n   return Self\n\n   METHOD Redefine&#40;&#46;&#46;&#46;&#41;  CLASS TGet\n   &#46;&#46;&#46;\n   &#58;&#58;SetxPrevio&#40; Eval&#40;&#58;&#58;bSetGet&#41; &#41;  //&#46;&#46;&#46; Nuevo&#46;fgondi\n   return Self\n\n   Method cText&#40; cText &#41; Class TGet\n  &#58;&#58;SetxPrevio&#40; cText &#41;  //&#46;&#46;&#46; Nuevo&#46;fgondi\n  &#46;&#46;&#46;&#46;\n\n  METHOD lValid&#40;&#41; CLASS TGet\n  local lRet &#58;= &#46;t&#46;\n  &#58;&#58;SetxPrevio&#40; Eval&#40;&#58;&#58;bSetGet&#41; &#41;  //&#46;&#46;&#46; Nuevo&#46;fgondi\n  &#46;&#46;&#46;\n\n  METHOD SetxPrevio&#40; xText &#41;   //&#46;&#46;&#46; Nuevo&#46;fgondi\n  local xCaption\n  if &#58;&#58;xPrevio==NIL\n    &#58;&#58;xPrevio &#58;= xText\n    return self\n  endif\n  if &#58;&#58;cPicture&lt;&gt;nil &#46;and&#46; Valtype&#40;&#58;&#58;xPrevio&#41;==Valtype&#40;xText&#41;\n    xCaption &#58;= Transform&#40; &#58;&#58;xPrevio, &#58;&#58;cPicture &#41;\n    if Valtype&#40;xText&#41;=\'N\'\n      xCaption &#58;= StrTran&#40; xCaption, \'&#46;\', \'\'  &#41;\n      xCaption &#58;= StrTran&#40; xCaption, \',\', \'&#46;\'  &#41;\n      xCaption &#58;= Val&#40;xCaption&#41;\n    endif\n    if !&#58;&#58;xPrevio==xText &#46;and&#46; xCaption==xText\n      &#58;&#58;cText&#40; &#58;&#58;xPrevio &#41;\n    else\n      &#58;&#58;xPrevio &#58;= xText\n    endif\n  endif\n  return self\n\n\n[/code:1eqmp5m0]','',0,'AIA=','1eqmp5m0',1,0,'',21,0,0),(44312,9254,3,868,0,'219.64.121.60',1197981894,1,0,1,1,1,1,'','','Mr Silvio\n\nBecause I do not use bitmaps with msgitems I did not bother about bitmaps. Better thing would be to move the gradient code to the top and paint the bitmaps transparently.  I know you use bitmaps.\n\nHope you dont mind sharing your final working code with bitmaps too.','',0,'AIA=','228m1fzr',1,0,'',868,0,0),(44313,9254,3,49,0,'213.82.134.66',1197982245,1,0,1,1,1,1,'','','Now it is as yours\nthanks','',0,'AIA=','2ap0u62y',1,0,'',49,0,0),(44314,9254,3,49,0,'213.82.134.66',1197987171,1,0,1,1,1,1,'','','DEFINE MSGITEM oMsgItem2;\n         OF oWnd:oMsgBar ;\n         PROMPT \"Test with Bitmaps\"      ;\n         SIZE 100              ;\n         BITMAP \"EUSUARIO\", \"EUSUARIO\";\n         TOOLTIP \" \" + i18n(\"Acerca de...\") + \" \";\n         ACTION MsgInfo( \"Test with Bitmaps\" )\n\n\nBUT THIS COMMAND NOT RUN \nI CANNOT SEE THE BITMAP','',0,'AIA=','1kunrsss',1,0,'',49,0,0),(44315,9145,3,234,0,'72.254.46.110',1197987249,1,0,1,1,1,1,'','','Antonio, were you able to create libraries?','',0,'AIA=','3hjwu4bt',1,0,'',234,0,0),(44317,9211,2,1108,0,'189.141.16.130',1197987396,1,0,1,1,1,0,'','existe algun metodo para salvar el fpt','de que manera podria salvar esa base hay alguna aplicacion para eso','',0,'AIA=','2i6j7ba6',1,0,'',1108,0,0),(44318,9261,6,2,0,'87.218.146.214',1197987669,1,0,1,1,1,1,'','','Fernando,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nVamos a revisarlo y te comentamos','',0,'AIA=','1ez6jxod',1,0,'',2,0,0),(44319,9252,6,362,0,'200.158.19.115',1197991920,1,0,1,1,1,1,'','','Hola, debes usar el comando: EVAL\n[code:yblqqmr8]\nINDEX ON TRANSCOD   TAG 01 TO ITRANS                                 ;\n    EVAL &#40; oMeter1&#58;Set&#40; RecNo&#40;&#41; &#41;, CursorWait&#40;&#41;, SysRefresh&#40;&#41; &#41;    ;\n    EVERY 10\n[/code:yblqqmr8]','',0,'AIA=','yblqqmr8',1,0,'',362,0,0),(44320,9254,3,868,0,'210.212.216.67',1197991975,1,0,1,1,1,1,'','','As I said earlier, I did not take care of bitmap painting.  But suggested what could be done.   Anyway I am posting the revised paint method to paint bitmaps also.  \n[code:1jy39ood]\n\nMETHOD Paint&#40;lown&#41; CLASS TMsgItem\n\n   local nCount, nClrBack\n   local nLeft &#58;= &#58;&#58;nLeft&#40;&#41;\n   local hBmp, nBmpWidth &#58;= 0\n   local hDC\n\n   hDC &#58;= &#58;&#58;oMsgBar&#58;GetDC&#40;&#41;\n\n   if &#58;&#58;omsgbar&#58;l2007\n\n      Gradient&#40; hDC, &#123; 0, nLeft, &#58;&#58;omsgbar&#58;nHeight / 3, nLeft + &#58;&#58;nWidth &#125;,;\n                nRGB&#40; 227, 239, 255 &#41;, nRGB&#40; 201, 224, 255 &#41;, &#46;T&#46; &#41;\n      Gradient&#40; hDC, &#123; &#40; &#58;&#58;omsgbar&#58;nHeight / 3 &#41; + 1, nLeft, &#58;&#58;omsgbar&#58;nHeight, nLeft + &#58;&#58;nWidth &#125;,;\n                nRGB&#40; 174, 209, 255 &#41;, nRGB&#40; 186, 216, 255 &#41;, &#46;T&#46; &#41;\n   endif\n\n   if &#58;&#58;hBitmap1 != nil\n      hBmp = If&#40; &#58;&#58;lActive, &#58;&#58;hBitmap1, ;\n                 If&#40; &#58;&#58;hBitmap2 != nil, &#58;&#58;hBitmap2, &#58;&#58;hBitmap1 &#41; &#41;\n      nBmpWidth  = nBmpWidth&#40; hBmp &#41;\n      DrawMasked&#40; hDC, hBmp, 4, nLeft + 1 &#41;\n   endif\n\n\n   if &#58;&#58;omsgbar&#58;l2007\n\n      &#58;&#58;oMsgBar&#58;Say&#40; &#58;&#58;oMsgBar&#58;nHeight / 4 - 2,;\n             nLeft + &#40;&#58;&#58;nWidth - GetTextWidth&#40; hDC,&#58;&#58;cMsg &#41;&#41;/2, &#58;&#58;cMsg, ;\n             iif&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;, &#58;&#58;nClrPane, ;\n             &#58;&#58;oFont, &#46;T&#46;, &#46;T&#46; &#41;\n      wndboxin&#40; hDc, 0, nLeft-1, &#58;&#58;oMsgBar&#58;nHeight, nLeft &#41;   // present test values\n\n\n   else\n\n\n      DrawMsgItem&#40; hDC, &#58;&#58;cMsg,;\n                &#123; 5, nLeft + nBmpWidth, &#58;&#58;oMsgBar&#58;nHeight-6, nLeft + &#40; &#58;&#58;nWidth - 7 &#41; &#125;,;\n                If&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;,;\n                &#58;&#58;nClrPane, &#58;&#58;oFont&#58;hFont &#41;\n\n      WndBoxIn&#40; hDC, 3, nLeft - 2, &#58;&#58;oMsgBar&#58;nHeight-5, nLeft + &#58;&#58;nWidth - 6 &#41; // fwh\n\n   endif\n\n\n   &#58;&#58;oMsgBar&#58;ReleaseDC&#40;&#41;\n\n\nreturn nil\n\n[/code:1jy39ood]','',0,'AIA=','1jy39ood',1,0,'',868,0,0),(44321,9254,3,868,0,'210.212.216.67',1197992382,1,0,1,1,1,1,'','','here is how it looks\n\n[url=http&#58;//imageshack&#46;us:1nrmsvlz][img:1nrmsvlz]http&#58;//img249&#46;imageshack&#46;us/img249/1697/msgbar4rp3&#46;png[/img:1nrmsvlz][/url:1nrmsvlz]','',0,'GA==','1nrmsvlz',1,0,'',868,0,0),(44322,9254,3,49,0,'213.82.134.66',1197993524,1,0,1,1,1,1,'','','GOOD MR GURU','',0,'GA==','7gtbk9vi',1,0,'',49,0,0),(44323,9254,3,49,0,'213.82.134.66',1197993622,1,0,1,1,1,1,'','','and if  I want insert a Button or btnbmp on this msgbar ?','',0,'GA==','3qr90s4h',1,0,'',49,0,0),(44324,9213,3,49,0,'213.82.134.66',1197993698,1,0,1,1,1,1,'','','thanks \nI saw.','',0,'GA==','s4f82tyd',1,0,'',49,0,0),(44325,9266,3,86,0,'81.83.151.142',1197995557,1,0,1,1,1,1,'','Problem with memofield','Hello,\n\nIn my application I use this :\n[code:2ebuf1mf]REDEFINE GET oGET VAR cSRTMEMO MULTILINE MEMO TEXT ID 102 OF SrtDlg WHEN &#46;F&#46;[/code:2ebuf1mf]\n\nThe get is disabled so it cannot be changed. But I want to be able to use the scrollbar at the right side. But since I added the WHEN-clause, the scrollbars are disbabled too.\n\nWhat do I need to do to to disable only the text of the memofield ?\n\nThanks','',0,'AIA=','2ebuf1mf',1,0,'',86,0,0),(44326,9254,3,868,0,'210.212.216.67',1197996706,1,0,1,1,1,1,'','','I dont use bitmaps extensively.  I really cant say much on this issue.','',0,'AIA=','figs8qpk',1,0,'',868,0,0),(44327,9266,3,6,0,'87.3.228.25',1197996738,1,0,1,1,1,1,'','Re: Problem with memofield','[code:10q12stg]REDEFINE GET oGET VAR cSRTMEMO MULTILINE MEMO TEXT ID 102 OF SrtDlg READONLY[/code:10q12stg]\n\nEMG','',0,'AIA=','10q12stg',1,0,'',6,0,0),(44328,9254,3,868,0,'210.212.216.67',1197997263,1,0,1,1,1,1,'','','Anyway now that you asked.  This code works:\n[code:1561csru]\n   SET MESSAGE OF oWnd TO FWCOPYRIGHT NOINSET DATE CLOCK 2007\n   DEFINE MSGITEM OF oWnd&#58;oMsgBar SIZE 100 prompt &quot; Test TEST&quot; BITMAP &quot;\\FWH\\BITMAPS\\CHART&#46;BMP&quot;\n   omsgbar &#58;= ownd&#58;omsgbar\n   @ 01,300 BUTTON \'press\' SIZE 100,20 PIXEL OF oMsgBar\n   ACTIVATE WINDOW oWnd on init omsgbar&#58;refresh&#40;&#41;\n[/code:1561csru]\n\nYou can have controls on tbar and msgbars.','',0,'AIA=','1561csru',1,0,'',868,0,0),(44329,9253,6,661,0,'189.155.211.43',1197998121,1,0,1,1,1,0,'','','Antonio, gracias por tus sugerencias, las voy a aplicar en el programa para hacerlo mas robusto, encontre el problema y era que estaba tomando un archivo DBK y lo abria como un indice lo cual generaba el error...\n\n\ngracias.\nAlex.','',0,'AIA=','2ldz0dg0',1,0,'',661,0,0),(44330,9255,3,2,0,'87.218.146.214',1197999690,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/24078-3915748f18.html\">http://www.hotshare.net/file/24078-3915748f18.html</a><!-- m -->','',0,'AIA=','1kxtdly5',1,0,'',2,0,0),(44331,9267,6,430,0,'157.100.146.2',1197999760,1,0,1,1,1,0,'','Error durante el enlazado con Verce 5.0','Estoy migrando mi aplicación de FW a FWH 2.7; luego d emucho pelear para crear mi archivo make empeze a usar VeRCE, corregi varios mensajes de error de compilación, pero durante el enlazado me sale este error (Unresolved external \'_HB_FUN_GLINE\' referenced from C:\\SICEF_XH\\OBJ\\SELECCIO.OBJ); y no se a que se debe; me podría alguien indicar la causa.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland                                                                      \nError: Unresolved external \'_HB_FUN_GLINE\' referenced from                                                                        \nC:\\SICEF_XH\\OBJ\\SELECCIO.OBJ                                                                                                      \nFin del proceso.                                                                                                                  \nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland                                                                                \n** error 2 ** deleting C:\\Sicef_xH\\SicefWin.exe                                                                                   \nHa habido ERRORES al intentar Generar la Aplicacion                                                                               \n============================================================                                                                      \nVERCE v5.0+ -&gt; Ver Resultados de Compilación y Enlazado v5.0+                                                                     \nJuan Carlos Salinas Ojeda                                                                                                         \n<!-- e --><a href=\"mailto:jcso@hotmail.com\">jcso@hotmail.com</a><!-- e -->                                                                                                                  \nMinatitlán, Veracruz. MEXICO                                                                                                      \nY Solo Veracruz es bello !!!                                                                                                      \nWilliam Morales [wmormar]                                                                                                         \n<!-- e --><a href=\"mailto:wmormar@yahoo.com.mx\">wmormar@yahoo.com.mx</a><!-- e -->                                                                                                              \nTabasco, tierra del eden mexicano                                                                                                 \nFiveWin for Harbour!!','',0,'','2bgin93u',1,0,'',430,0,0),(44332,9267,6,2,0,'87.218.146.214',1197999933,1,0,1,1,1,1,'','','Estas llamando a una función GLINE() desde el módulo SELECCIO.prg y no se encuentra el código fuente de esa función','',0,'','2b2pyqxo',1,0,'',2,0,0),(44333,9253,6,2,0,'87.218.146.214',1198000146,1,0,1,1,1,1,'','','bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1deenng2',1,0,'',2,0,0),(44334,9268,6,430,0,'157.100.146.2',1198000495,1,0,1,1,1,0,'','Que reemplaza al comando DEFAULT de Clipper','En mi migración de FW a FWH encuentro que el comando DEFAULT no es soportado por el compilador xHarbour (siempre me saca error donde esta ese comando); es porque no lo soporta y si es asi con que lo puedo reemplazar.\n\nSaludos\n\nFernando Espinoza','',0,'','317xvop8',1,0,'',430,0,0),(44335,9267,6,430,0,'157.100.146.2',1198001161,1,0,1,1,1,0,'','','De forma directa no uso esa función GLINE; lo que hice fue suprimir el uso de un BTNGET comentando las lineas de codigo donde se usaba y el llamado al archivo BTNGET.CH; eso lo tenía en dos archivos .prg; en el uno se elimino el error y solo me queda el error en SELECCIO.PRG.\n\nUna pregunta, ?podría ser que se este llamando al oGet que tengo creado para almacenar el resutado de BTNGET en otra sección del programa y al no estar asignado ningún valor sale el error?\n\nSaludos\n\nFernando Espinoza','',0,'','2jrb0u1u',1,0,'',430,0,0),(44336,9268,6,456,0,'62.43.24.65',1198002277,1,0,1,1,1,1,'','','Si usas el default de clipper, basta incluyas common.ch\n[code:rizp11zr]\n# INCLUDE &quot;common&#46;ch&quot;\n[/code:rizp11zr]\n o definas el  comando.\n[code:rizp11zr]\n#xcommand DEFAULT &lt;v1&gt; TO &lt;x1&gt; &#91;, &lt;vn&gt; TO &lt;xn&gt; &#93; =&gt; ;\n                                IF &lt;v1&gt; == NIL ; &lt;v1&gt; &#58;= &lt;x1&gt; ; END ;\n                                &#91;; IF &lt;vn&gt; == NIL ; &lt;vn&gt; &#58;= &lt;xn&gt; ; END &#93;\n[/code:rizp11zr]\nFivewin implementa tambien un comando DEFAULT y no es exactamente igual, para usar el de fivewin, debes incluir fivewin.ch\n\n[code:rizp11zr]\n# include &quot;common&#46;ch&quot;\nDEFAULT cVar TO &quot;Algo&quot;\n[/code:rizp11zr]\n[code:rizp11zr]\n# include &quot;FiveWin&#46;ch&quot;\nDEFAULT cVar&#58;=&quot;Algo&quot;\n[/code:rizp11zr]','',0,'AIA=','rizp11zr',1,0,'',456,0,0),(44337,9254,3,51,0,'80.122.88.242',1198002887,1,0,1,1,1,0,'','','Silvio, may I ask you  what program you are useing here?\nRegards,\nOtto\n\n[img:3oazeyqx]http&#58;//www&#46;atzwanger&#46;com/fw/silvio&#46;jpg[/img:3oazeyqx]','',0,'CA==','3oazeyqx',1,0,'',51,0,0),(44338,9261,6,92,0,'81.38.203.176',1198003730,1,0,1,1,1,0,'','Re: Problemas con la versión 7.12','Muchas gracias Fernando,\n\nAhora no recuerdo si ha sido Melchor o Gaspar que me ha dicho que pronto tendré yo los mismos problemas (y con mucho gusto por cierto).\n\nSaludos y Felices Fiestas\nCarlos G.','',0,'CA==','17tvev4f',1,0,'',92,0,0),(44339,9234,6,53,0,'189.139.14.59',1198003746,1,0,1,1,1,1,'','','Antonio, Amigos del foro:\n\nLes comento la experiencia con este error, para ver si se creaba el archivo ERROR.LOG que me solicitó Antonio, antes de ejecutar la aplicación para provocar el error mire en la carpeta para ver si había otro error.log eliminarlo y así estar seguro de que el error.log que se creaba sería el provocado por el reciente fallo. y que creen ????\n\nQue al eliminar el error.log que había el problema se eliminó,  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nAntonio, Gracias nuevamente por el interés, una vez más, el bien triunfa sobre el mal.\n\nSaludos a todos y felíz navidad','',0,'CA==','d0g4l4gd',1,0,'',53,0,0),(44340,9254,3,34,0,'68.5.217.82',1198004291,1,0,1,1,1,1,'','NOINSET','I\'m using the 7.12 library, and the only thing I was hoping to change is the inset display.  Using NOINSET in the command line does not work and I believe I have the latest 7.12.  Any thoughts on this ?\n\nTim','',0,'CA==','26gtqicj',1,0,'',34,0,0),(44341,9223,4,2,0,'87.218.146.214',1198004747,1,0,1,1,1,1,'','','Grzegorz,\n\nWe are looking for a Windows API function that may provide us the font charset to check if it has been properly set','',0,'CA==','2zvriueu',1,0,'',2,0,0),(44342,9249,3,448,0,'83.132.134.79',1198004818,1,0,1,1,1,0,'','','Antonio,\n\nThat function it\'s not enough as we need a digital signature in order to issue electronic documents accordingly to the actual law to replace the paper work.\n\nWe are obliged to signed and time stamp all electronic documents.\n\nJames,\n\nI agree with you,  for us it already a need because many clients want already to work only with these kind of documents.\nTogether with the E.D. we must also produce xml documents acc to each client defined format in order to be integrated directy and automatic in their own ERP systems.\n\nTo work with xml documents xHarbour seems to have quite good functions however regarding digital certofacation nothing seems to be done yet.\n\nThanks both for your comments.\n\nAntonio','',0,'CA==','3770lwjn',1,0,'',448,0,0),(44343,9254,3,2,0,'87.218.146.214',1198005686,1,0,1,1,1,1,'','','The message bar needs some more development \n\nWe need to implement the right way to paint the msgitems background and also to set on|off the inset','',0,'CA==','3agldhw5',1,0,'',2,0,0),(44344,9143,6,1206,0,'213.97.245.163',1198007059,1,0,1,1,1,0,'','','ENVIADO','',0,'CA==','2i0vkafv',1,0,'',1206,0,0),(44345,9213,3,267,0,'189.13.81.230',1198007830,1,0,1,1,1,1,'','','Silvio,\n\nI use some SAY and go moving what he is shown in the same ones.','',0,'CA==','1sd9pb55',1,0,'',267,0,0),(44346,9249,3,303,0,'72.220.181.80',1198008073,1,0,1,1,1,0,'','','&gt;To work with xml documents xHarbour seems to have quite good functions however regarding digital certofacation nothing seems to be done yet.\n\nI think you are going to have to do this with a PDF print driver that has an SDK. I know Adobe Acrobat can handle this but it is probably the most expensive solution.\n\nFor more PDF print driver options, go here:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.planetpdf.com\">www.planetpdf.com</a><!-- w -->\n\nAlmost any solution you find is going to require that you purchase a license for each copy of software that you distribute.\n\nJames','',0,'CA==','le4mt0gw',1,0,'',303,0,0),(44347,5776,6,596,0,'84.76.66.27',1198008840,1,0,1,1,1,1,'','','Interesante...\n\nPero no acabo yo de encontrar como salvar a fichero HTML.\n\nCon oActiveX&#058;Do(\"ExecWB\",4,1) me sale tipo FROM USER...\n\nPero no se como hacerlo automaticamente...\n\nNo me funciona (mas bien no se) con:\nOLECMDID_SAVE = 3, \nOLECMDID_SAVECOPYAS = 5','',0,'CA==','386kiksk',1,0,'',596,0,0),(44348,9254,3,34,0,'68.5.217.82',1198010860,1,0,1,1,1,1,'','Inset','Can you send me the fix when its ready ?  Thanks.','',0,'CA==','fmgj1cd8',1,0,'',34,0,0),(44349,9254,3,2,0,'87.218.146.214',1198010991,1,0,1,1,1,1,'','','We will include it in the next FWH build, once it is available\n\nWe will also make it available for those using FWH 7.12 but have no access to 8.01','',0,'CA==','1jq7yxiv',1,0,'',2,0,0),(44350,9267,6,2,0,'87.218.146.214',1198011230,1,0,1,1,1,1,'','','Fernando,\n\n&gt;\nUna pregunta, ?podría ser que se este llamando al oGet que tengo creado para almacenar el resutado de BTNGET en otra sección del programa y al no estar asignado ningún valor sale el error? \n&gt;\n\nEs dificil poder darte una respuesta sin ver el código fuente y saber exactamente lo que haces.\n\nUna solución rápida es que incluyas en tu PRG principal:\n[code:14z0fang]\nfunction GLine&#40;&#41;\n\n   x++\n\nreturn nil\n[/code:14z0fang]\nEso te generará un error si la función GLine() es llamada y así podrás saber desde donde se llama revisando el error.log','',0,'AIA=','14z0fang',1,0,'',2,0,0),(44351,9234,6,2,0,'87.218.146.214',1198011521,1,0,1,1,1,1,'','','bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3q190cle',1,0,'',2,0,0),(44352,9211,2,2,0,'87.218.146.214',1198011870,1,0,1,1,1,1,'','','Busca en google por: recuperacion ficheros dbf','',0,'AIA=','22nxuyws',1,0,'',2,0,0),(44353,9269,6,1201,0,'200.90.17.154',1198013315,1,0,1,1,1,0,'','PROBLEMAS CON ESCAPE ( EN UN GET)','TENGO EL SIGUIENTE CODIGO:\n\n\n******************************************************************************************\nFUNCTION CREACLIENTE(oDlgAnt,nCliente,aData)\n******************************************************************************************\nLOCAL   oDlg               ,;\n        oLbx                ,;\n        oNombre             ,;\n        oDenom              ,;\n        oApellido           ,;\n        oCedula             ,;\n        oCedLetra           ,;\n        oRif                ,;\n        oRifLetra           ,;\n        oNit                ,;\n        oButCont            ,;\n        oButSalir           ,;\n        oButModif           ,;\n        bButCont            ,;\n        oQuery              ,;\n        cCommand            ,;\n        lOk:=.f.            ,;\n        oTpoCliente         ,;\n        oTpoEstadoCivil     ,;\n        oTpoGenero          ,;\n        oTpoNacionalidad    ,;\n        oTpoActividad       ,;\n        oTpoClienteRegistro ,;\n        oIdDtsBanco         ,;\n        oRifNat             ,;\n        oRifNatLetra        ,;\n        aIdDtsBanco         ,;\n        oFechaRegistro      ,;\n        oFechaNacimiento    ,;\n        oTelefonoMovil      ,;\n        oEmail              ,;\n        oEdad               ,;\n        nEdad               ,;\n        oWeb                ,;\n        oCodigoCuenta       ,;\n        oStatusActivo       ,;\n        aTpoActividad:={}   ,;\n        bSeek               ,;\n        bContinuar          ,;\n        lModif:=.f.         ,;\n        lCrea:=IIF(nCliente=nil,.t.,.f.)\n\nLOCAL oInsDir,oElimDir\n\nLOCAL oData,oOldData,oFKey\n\n  oFKey:=tvkey():NEW   // CLASE TVKEY (control de teclas de funcion)\n\n  SETKEY(VK_F9, {|| msgalert(\"Imprimir\")} )\n\n    DEFAULT oDlgAnt:=oWnd  // para cuando se crea primer cliente\n\n    aTpoActividad:=CREAARREGLO(oDtBase,\'SELECT TpoActividad.IntIdTpoActividad,\'+;\n                                               \'TpoActividad.VchDescripcion \'+;\n                                           \'FROM \'+cDTBase+\'.TpoActividad \'+;\n                                           \'ORDER BY TpoActividad.VchDescripcion\')\n\n    aIdDtsBanco:=CREAARREGLO(oDtBase,\'SELECT DtsBanco.IntIdDtsBanco,\'+;\n                                               \'DtsBanco.VchDescripcion \'+;\n                                           \'FROM \'+cDTBase+\'.DtsBanco \'+;\n                                           \'ORDER BY DtsBanco.VchDescripcion\')\n\n    oData   :=TCLIENTE(aData)\n    oOldData:=TCLIENTE(aData)\n\n    IF oData:nTpoCliente&lt;&gt;\"1\"\n      oData:nTpoGenero     :=\"1\"\n      oData:nTpoEstadoCivil:=\"1\"\n      oData:nTpoActividad  :=\"1\"\n    ENDIF\n\n    bContinuar:={|| IIF(( IIF(oData:nTpoCliente=\"1\",( oOldData:cNombre   &lt;&gt; oData:cNombre   .OR.;\n                                               oOldData:cApellido &lt;&gt; oData:cApellido .OR.;\n                                               oOldData:cCedLetra &lt;&gt; oData:cCedLetra .OR.;\n                                               oOldData:cCedula   &lt;&gt; oData:cCedula   .OR.;\n                                               oOldData:nTpoEstadoCivil &lt;&gt; oData:nTpoEstadoCivil .OR.;\n                                               oOldData:nTpoGenero      &lt;&gt; oData:nTpoGenero      .OR.;\n                                               oOldData:nTpoActividad   &lt;&gt; oData:nTpoActividad ),;\n                                             ( oOldData:cDenom    &lt;&gt; oData:cDenom    .OR.;\n                                               oOldData:cRif      &lt;&gt; oData:cRif      .OR.;\n                                               oOldData:cRifLetra &lt;&gt; oData:cRifLetra )) .OR.;\n                         oOldData:cRifNat             &lt;&gt; oData:cRifNat             .OR.;\n                         oOldData:cRifNatLetra        &lt;&gt; oData:cRifNatLetra        .OR.;\n                         oOldData:cNit                &lt;&gt; oData:cNit                .OR.;\n                         oOldData:nTpoCliente         &lt;&gt; oData:nTpoCliente         .OR.;\n                         oOldData:nTpoNacionalidad    &lt;&gt; oData:nTpoNacionalidad    .OR.;\n                         oOldData:nTpoClienteRegistro &lt;&gt; oData:nTpoClienteRegistro .OR.;\n                         oOldData:nIdDtsBanco         &lt;&gt; oData:nIdDtsBanco         .OR.;\n                         oOldData:dFechaRegistro      &lt;&gt; oData:dFechaRegistro      .OR.;\n                         oOldData:dFechaNacimiento    &lt;&gt; oData:dFechaNacimiento    .OR.;\n                         oOldData:cTelefonoMovil      &lt;&gt; oData:cTelefonoMovil      .OR.;\n                         oOldData:cEmail              &lt;&gt; oData:cEmail              .OR.;\n                         oOldData:cWeb                &lt;&gt; oData:cWeb                .OR.;\n                         oOldData:cCodigoCuenta       &lt;&gt; oData:cCodigoCuenta       .OR.;\n                         oOldData:cStatusActivo       &lt;&gt; oData:cStatusActivo) .AND. oData:NOTNULL(),.T.,.F.)}\n\n    IF lCrea\n      lModif:=.t.\n      cCommand:={||\"INSERT INTO \"+cDTBase+\".DtsCliente(VchNombre,\"+;\n                                                        \'VchApellido,\'+;\n                                                        \'VchCedula,\'+;\n                                                        \'VchRif,\'+;\n                                                        \'VchNit,\'+;\n                                                        \'IntIdTpoCliente,\'+;\n                                                        \'IntIdTpoEstadoCivil,\'+;\n                                                        \'IntIdTpoGenero,\'+;\n                                                        \'IntIdTpoNacionalidad,\'+;\n                                                        \'IntIdTpoActividad,\'+;\n                                                        \'IntIdTpoClienteRegistro,\'+;\n                                                        \'IntIdDtsBanco,\'+;\n                                                        \'DtmFechaRegistro,\'+;\n                                                        \'DtmFechaNacimiento,\'+;\n                                                        \'VchTelefonoMovil,\'+;\n                                                        \'VchEmail,\'+;\n                                                        \'VchWeb,\'+;\n                                                        \'VchCodigoCuenta,\'+;\n                                                        \'TinStatusActivo) \'+;\n                                           \"VALUES( \"+bTrans(IIF(oData:nTpoCliente=\"1\",oData:cNombre,oData:cDenom))+\",\"+;\n                                                      bTrans(oData:cApellido       )+\",\"+;\n                                                      bTrans(oData:cCedLetra+\'-\'+oData:cCedula)+\",\"+;\n                                                      bTrans(IIF(oData:nTpoCliente=\"1\",oData:cRifNatLetra+\'-\'+oData:cRifNat,oData:cRifLetra+\'-\'+oData:cRif))+\",\"+;\n                                                      bTrans(oData:cNit            )+\",\"+;\n                                                      oData:nTpoCliente        +\",\"+;\n                                                      oData:nTpoEstadoCivil    +\",\"+;\n                                                      oData:nTpoGenero         +\",\"+;\n                                                      oData:nTpoNacionalidad   +\",\"+;\n                                                      ALLTRIM(oData:nTpoActividad)+\",\"+;\n                                                      oData:nTpoClienteRegistro+\",\"+;\n                                                      oData:nIdDtsBanco        +\",\"+;\n                                                      bTrans(oData:dFechaRegistro  )+\",\"+;\n                                                      bTrans(oData:dFechaNacimiento)+\",\"+;\n                                                      bTrans(oData:cTelefonoMovil  )+\",\"+;\n                                                      bTrans(oData:cEmail          )+\",\"+;\n                                                      bTrans(oData:cWeb            )+\",\"+;\n                                                      bTrans(oData:cCodigoCuenta   )+\",\"+;\n                                                      \"1)\"}\n\n    ELSE\n      cCommand:={|| \"UPDATE \"+cDTBase+\".DtsCliente \"+;\n                               \"SET VchNombre               =\"+bTrans(IIF(oData:nTpoCliente=\"1\",oData:cNombre,oData:cDenom))+\",\"+;\n                                    \'VchApellido            =\'+bTrans(oData:cApellido)+\',\'+;\n                                    \'VchCedula              =\'+bTrans(oData:cCedLetra+\'-\'+oData:cCedula)+\',\'+;\n                                    \'VchRif                 =\'+bTrans(IIF(oData:nTpoCliente=\"1\",oData:cRifNatLetra+\'-\'+oData:cRifNat,oData:cRifLetra+\'-\'+oData:cRif))+\',\'+;\n                                    \'VchNit                 =\'+bTrans(oData:cNit)+\',\'+;\n                                    \'IntIdTpoCliente        =\'+oData:nTpoCliente+\',\'+;\n                                    \'IntIdTpoEstadoCivil    =\'+oData:nTpoEstadoCivil+\',\'+;\n                                    \'IntIdTpoGenero         =\'+oData:nTpoGenero+\',\'+;\n                                    \'IntIdTpoNacionalidad   =\'+oData:nTpoNacionalidad+\',\'+;\n                                    \'IntIdTpoActividad      =\'+oData:nTpoActividad+\',\'+;\n                                    \'IntIdTpoClienteRegistro=\'+oData:nTpoClienteRegistro+\',\'+;\n                                    \'IntIdDtsBanco          =\'+oData:nIdDtsBanco+\',\'+;\n                                    \'DtmFechaRegistro       =\'+bTrans(oData:dFechaRegistro)+\',\'+;\n                                    \'DtmFechaNacimiento     =\'+bTrans(oData:dFechaNacimiento)+\',\'+;\n                                    \'VchTelefonoMovil       =\'+bTrans(oData:cTelefonoMovil)+\',\'+;\n                                    \'VchEmail               =\'+bTrans(oData:cEmail)+\',\'+;\n                                    \'VchWeb                 =\'+bTrans(oData:cWeb)+\',\'+;\n                                    \'VchCodigoCuenta        =\'+bTrans(oData:cCodigoCuenta)+\',\'+;\n                                    \'TinStatusActivo        =\'+oData:cStatusActivo+\' \'+;\n                         \" WHERE \"+cDTBase+\".DtsCliente.IntIdDtsCliente = \"+STR(nCliente)}\n    ENDIF\n    DEFINE  DIALOG  oDlg  RESOURCE \"CLIENTES_EDT\" OF oDlgAnt;\n            TITLE   IIF(lCrea,\'Incluir Cliente\',\'Modifica Cliente\')\n\n    oDlg:lHelpIcon  :=.f.  &amp;&amp; Apago el Icono de Help\n\n    REDEFINE DBCOMBO oTpoCliente       VAR oData:nTpoCliente       ID 209 OF oDlg ;\n             ITEMS SeparaArreglo(aTpoCliente,1); // LO QUE RETORNA\n             LIST  SeparaArreglo(aTpoCliente,2); // LO QUE PRESENTA\n             MESSAGE \"Seleccione Tipo de Persona\";\n             ON CHANGE IIF(oData:nTpoCliente&lt;&gt;\"1\",(oData:nTpoGenero:=\"1\",;\n                                             oData:nTpoEstadoCivil:=\"1\",;\n                                             oData:nTpoActividad  :=\"1\",;\n                                             oDlg:Refresh()),.t.);\n             WHEN lModif .and. lcrea\n\n    REDEFINE GET  oNombre  VAR oData:cNombre  ID 201 OF oDlg    ;\n             MESSAGE \"Coloque Nombre(s) del Cliente\";\n             PICTURE \"@!\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE GET  oApellido VAR oData:cApellido  ID 202 OF oDlg    ;\n             MESSAGE \"Coloque Apellido(s) del Cliente\";\n             PICTURE \"@!\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE GET  oTelefonoMovil VAR oData:cTelefonoMovil ID 215 OF oDlg    ;\n             MESSAGE \"Coloque Nro. Del Teléfono Movil del Cliente\";\n             PICTURE \"@!\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE COMBOBOX oCedLetra VAR oData:cCedLetra ITEMS {\"V\",\"E\",\" \"} ID 301;\n             MESSAGE \"Coloque Letra de la  Cédula del Cliente\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE GET  oCedula VAR oData:cCedula  ID 203 OF oDlg    ;\n             MESSAGE \"Coloque Nro. Cédula del Cliente\";\n             PICTURE \"@!\";\n             WHEN oData:cCedLetra&lt;&gt;\" \" .and. lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE COMBOBOX  oRifNatLetra VAR oData:cRifNatLetra ITEMS {\"J\",\"V\",\"E\",\" \"} ID 302 OF oDlg    ;\n             MESSAGE \"Coloque Letra R.I.F. del Cliente\";\n             PICTURE \"!\";\n             WHEN oData:cRifNatLetra&lt;&gt;\" \" .and. lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE GET  oRifNat VAR oData:cRifNat  ID 219 OF oDlg    ;\n             MESSAGE \"Coloque Nro. R.I.F. del Cliente\";\n             PICTURE \"@!\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE GET  oFechaNacimiento     VAR oData:dFechaNacimiento  ID 205 OF oDlg    ;\n             MESSAGE \"Coloque Nro. Fecha de Nacimiento del Cliente\";\n             PICTURE \"99/99/9999\";\n             VALID EVAL({|| nEdad:=IIF(oData:nTpoCliente=\"1\",CAL_EDAD(oData:dFechaNacimiento,date()),0),;\n                            oEdad:varput(nEdad),;\n                            oEdad:Refresh(),;\n                            .t.});\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE GET  oEdad  VAR nEdad  ID 221 OF oDlg    ;\n             PICTURE \"999\";\n             WHEN .f.\n\n    nEdad:=IIF(oData:nTpoCliente=\"1\",CAL_EDAD(oData:dFechaNacimiento,date()),0)\n\n    REDEFINE GET  oFechaRegistro       VAR oData:dFechaRegistro    ID 211 OF oDlg    ;\n             PICTURE \"99/99/9999\" when .f.\n\n    REDEFINE DBCOMBO oTpoEstadoCivil  VAR oData:nTpoEstadoCivil ID 206 OF oDlg ;\n             ITEMS SeparaArreglo(aTpoEstadoCivil,1); // LO QUE RETORNA\n             LIST  SeparaArreglo(aTpoEstadoCivil,2); // LO QUE PRESENTA\n             MESSAGE \"Seleccione Estado Civil del Cliente\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE DBCOMBO oTpoGenero       VAR oData:nTpoGenero       ID 208 OF oDlg ;\n             ITEMS SeparaArreglo(aTpoGenero,1); // LO QUE RETORNA\n             LIST  SeparaArreglo(aTpoGenero,2); // LO QUE PRESENTA\n             MESSAGE \"Seleccione Género del Cliente\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE DBCOMBO oTpoActividad     VAR oData:nTpoActividad     ID 210 OF oDlg ;\n             ITEMS SeparaArreglo(aTpoActividad,1); // LO QUE RETORNA\n             LIST  SeparaArreglo(aTpoActividad,2); // LO QUE PRESENTA\n             MESSAGE \"Seleccione Tipo de Actividad del Cliente\";\n             WHEN lModif .AND. oData:nTpoCliente=\"1\"\n\n    REDEFINE COMBOBOX  oRifLetra VAR oData:cRifLetra ITEMS {\"J\",\"V\",\"E\",\" \"}  ID 303 OF oDlg    ;\n             MESSAGE \"Coloque Letra R.I.F. del Cliente\";\n             PICTURE \"!\";\n             WHEN lModif .AND. oData:nTpoCliente&lt;&gt;\"1\"\n\n    REDEFINE GET  oRif VAR oData:cRif        ID 204 OF oDlg    ;\n             MESSAGE \"Coloque Nro. R.I.F. del Cliente\";\n             PICTURE \"@!\";\n             WHEN oData:cRifLetra&lt;&gt;\" \" .and. lModif .AND. oData:nTpoCliente&lt;&gt;\"1\"\n\n    REDEFINE GET  oDenom  VAR oData:cDenom   ID 223 OF oDlg    ;\n             MESSAGE \"Coloque Denominacion Comercial del Cliente\";\n             PICTURE \"@!\";\n             WHEN lModif .AND. oData:nTpoCliente&lt;&gt;\"1\"\n\n    REDEFINE GET  oEmail VAR oData:cEmail        ID 212 OF oDlg    ;\n             MESSAGE \"Coloque Correo Electrónico del Cliente\";\n             WHEN lModif\n\n    REDEFINE GET  oWeb   VAR oData:cWeb          ID 213 OF oDlg    ;\n             MESSAGE \"Coloque Dirección de la página Web del Cliente\";\n             WHEN lModif\n\n    REDEFINE DBCOMBO oIdDtsBanco VAR oData:nIdDtsBanco  ID 216 OF oDlg ;\n             ITEMS SeparaArreglo(aIdDtsBanco,1); // LO QUE RETORNA\n             LIST  SeparaArreglo(aIdDtsBanco,2); // LO QUE PRESENTA\n             MESSAGE \"Seleccione Tipo de Cliente\";\n             WHEN lModif\n    REDEFINE GET  oCodigoCuenta VAR oData:cCodigoCuenta ID 217 OF oDlg    ;\n             MESSAGE \"Coloque Nro. de Cuenta del Cliente\";\n             PICTURE \"@!\";\n             WHEN lModif\n\n    REDEFINE GET  oStatusActivo VAR oData:cStatAct ID 218 OF oDlg    ;\n             PICTURE \"@!\";\n             WHEN   .F.\n\n    REDEFINE BUTTON  oButSalir ID  101  OF oDlg;\n             MESSAGE \"Sale\";\n             PROMPT \"&amp;Salir\";\n             ACTION  oDlg:End()\n\n    REDEFINE BUTTON  oButCont  ID  102  OF oDlg;\n             MESSAGE IIF(lCrea,\"Insertar y Salir\",\"Almacenar y Salir\");\n             PROMPT \"&amp;Continuar\";\n             WHEN  eval(bContinuar);\n             ACTION  (lModif:=.f.,lOk:=.t.,oDlg:End())\n\n    REDEFINE  BUTTON      oButModif      ID  103  OF oDlg;\n              MESSAGE \"Modificar\";\n              WHEN !lModif;\n              ACTION  (lModif:=.t.,oDlg:Refresh(),oCedLetra:setfocus(.t.),;\n                       oCedLetra:Click(),oDlg:setfocus())\n\n    oButCont:disable()\n\n    ACTIVATE DIALOG oDlg CENTER;\n             ON INIT IIF(lModif,oButModif:HIDE(),);\n             VALID IIF(lModif .or. Eval(bContinuar),MSGNOYES(\"Desea Salir\",\"Atencion...\"),.T.)\n\n    IF lOk\n      IF lCrea\n        IF VERIFRIFCLIENTE(oData:cRifLetra+\'-\'+oData:cRIF,oData:cCedLetra+\'-\'+oData:cCedula,oData:cRifNatLetra+\'-\'+oData:cRifNat) // verifica si RIF ya existe\n          oQuery:=TMSQuery():New( oDTbase )\n          oQuery:Open(eval(cCommand))\n          oQuery:close()\n        ENDIF\n      ELSE\n        oQuery:=TMSQuery():New( oDTbase )\n        oQuery:Open(eval(cCommand))\n        oQuery:close()\n      ENDIF\n    ENDIF\n\n    oFkey:End()\n\n  RETURN lOk\n\n\n\nPues resulta que, cuando bContinuar es .T. , el cursor está sobre un GET,\n y se pulsa Escape, pregunta si desea salir, al reponder No, lo pregunta dos veces. (este comportamiento no sucede cuando está sobre un dbcombo o acciono directamente el boton Salir), que puede estar sucediendo, en donde estoy metiendo la pata.\n\nAyudenme, que ya casi no tengo cabellos!!!\n\nAngel','',0,'AIA=','1k44mctp',1,0,'',1201,0,0),(44354,9250,3,2,0,'87.218.146.214',1198013692,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:2n5u6zxn][img:2n5u6zxn]http&#58;//img86&#46;imageshack&#46;us/img86/8406/five0yp5&#46;jpg[/img:2n5u6zxn][/url:2n5u6zxn]','',0,'GA==','2n5u6zxn',1,0,'',2,0,0),(44355,9270,6,2,0,'87.218.146.214',1198013731,1,0,1,1,1,1,'','Felices Fiestas','[url=http&#58;//imageshack&#46;us:1o8r8vtc][img:1o8r8vtc]http&#58;//img86&#46;imageshack&#46;us/img86/8406/five0yp5&#46;jpg[/img:1o8r8vtc][/url:1o8r8vtc]\nTraducción: \"Un mundo de buenos deseos\"','',0,'GA==','1o8r8vtc',1,1198056271,'',2,1,0),(44356,9269,6,2,0,'87.218.146.214',1198013959,1,0,1,1,1,1,'','','Angel,\n\nQue versión de FWH usas ?','',0,'GA==','6rmjpgkr',1,0,'',2,0,0),(44357,9266,3,86,0,'78.21.111.254',1198019750,1,0,1,1,1,1,'','','Enrico,\n\nThank you very much for your help.\n\nProblem solved.','',0,'GA==','2mt6jfyj',1,0,'',86,0,0),(44358,9254,3,868,0,'219.64.121.60',1198026399,1,0,1,1,1,1,'','','Mr Otto\n\n[quote:e1gxo2y9]Silvio, may I ask you what program you are useing here? [/quote:e1gxo2y9]\n\nThat is xMate. Free project manager written in xharbour for management of projects. Contains an editor too, Very useful.  This is available at this website\n[url:e1gxo2y9]http&#58;//www&#46;andywos&#46;ih&#46;co&#46;za/xmate/[/url:e1gxo2y9]','',0,'kA==','e1gxo2y9',1,0,'',868,0,0),(44359,9270,6,582,0,'190.139.88.114',1198028514,1,0,1,1,1,0,'','Re: Felices Fiestas','Muchas feliciades para vos y a todos los compañeros de FiveWin !!!\n\nUn abrazo enorme a todos!!!.\nEl Loco =&gt;))','',0,'kA==','3iromxxy',1,0,'',582,0,0),(44360,9270,6,396,0,'200.71.186.109',1198039807,1,0,1,1,1,1,'','','Felices Pascuas y Prospero Año Nuevo ademas de un poco mas de inteligencia y discernimiento en el desarrollo de nuestros sistemas, es mi mas grande deseos para esta gran familia de programadores, colegas y amistades, desde Venezuela....GRACIAS..!','',0,'kA==','c84q9xxr',1,0,'',396,0,0),(44361,9254,3,130,0,'141.51.32.24',1198054388,1,0,1,1,1,1,'','','Otto,\n\nthis tool is xMate from Andy Wosz, a really great tool for compiling your projects.\nI use it, too and don´t want to miss it.\n\nI can send you the last version, if you want. It´s free.','',0,'kA==','2tf54ha8',1,0,'',130,0,0),(44362,9271,20,1009,0,'82.187.221.169',1198054590,1,0,1,1,1,0,'','look xp per classe tMeter','ciao a tutti,\ncome si fa a ottenere il look xp (quadratini verdi) per la classe tMeter?\nmi sono rifatto la funzione MsgMeter() con le risorse in una dll, ma non ho trovato opzioni in PellesC da settare il look.\n\ngrazie in anticipo, marzio','',0,'kA==','37bl6nx6',1,0,'',1009,0,0),(44363,9270,6,57,0,'83.33.193.57',1198055837,1,0,1,1,1,1,'','','Antonio y amigos del foro\n¡¡ Felices fiestas para todos !!\n\nSaludos','',0,'kA==','3atv257a',1,0,'',57,0,0),(44364,9271,20,6,0,'87.20.230.117',1198056521,1,0,1,1,1,1,'','Re: look xp per classe tMeter','Devi utilizzare il controllo msctls_progress32 e la classe TProgress.\n\nEMG','',0,'kA==','2wf7wqr5',1,0,'',6,0,0),(44365,9223,4,1251,0,'85.221.136.34',1198057787,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2o6pbqpp]Grzegorz,\n\nWe are looking for a Windows API function that may provide us the font charset to check if it has been properly set[/quote:2o6pbqpp]\n\nI need to display following characters ( codapage PLWIN -1250 ):\n\n&#261; - 185 - Ascii   \n&#263; - 230\n&#281; - 234\n&#322; - 179\n&#324; - 241\nó - 243\n&#347; - 156\n&#380; - 191\n&#378; - 159\n\n&#260; - 165\n&#262; - 198\n&#280; - 202\n&#321; - 163\n&#323; - 209\nÓ - 211\n&#346; - 140\n&#379; - 175\n&#377; - 143\n\nGrzegorz','',0,'gA==','2o6pbqpp',1,0,'',1251,0,0),(44366,5776,6,106,0,'85.34.123.173',1198057882,1,0,1,1,1,1,'','','Biel, \n\nBuenisimo!!!\n\nYo estaba imprimiendo asi directamente: oActivex&#058;print()\npero no preguntaba nada e imprimia directamente, ahora tengo el preview de impresión: oActivex&#058;Do( \"ExecWB\", 7,1 )\n\n\nGracias, justo estaba en eso ayer, queria saber como hacer el preview.\n\n\nSaludos.','',0,'gA==','2oj2jqe9',1,0,'',106,0,0),(44367,9272,3,460,0,'217.37.54.49',1198058929,1,0,1,1,1,0,'','JPG Question','Hi,\n\nI have a database that stores the path &amp; filename of an image file and would like to display that file on a dialog box.\n\nThis works ok if the image file is a bmp.  What do i need to do if the image file is a jpg?\n\nThanks in advance\n\nPete','',0,'gA==','z4pjailr',1,0,'',460,0,0),(44368,9273,6,1236,0,'201.86.89.178',1198059293,1,0,1,1,1,0,'','Para Rafael Clemente e Biel, Maps Google!','Utilizo tambem este código para presentar una página .html en una ventana FWH (gracias, José Luis Capel!): \n\nCode: \nDEFINE WINDOW oWnd TITLE \"FiveWin ActiveX Support\" \noActiveX = TActiveX():New( oWnd, \"Shell.Explorer.2\" ) \noWnd:oClient = oActiveX // To fill the entire window surface \noActiveX&#058;Do(\"Navigate2\",(CurDrive() + \":\\\"+CurDir()+\"\\MiHtml.htm\")) \nACTIVATE WINDOW oWnd \n \n\nAcontece que não obtive sucesso em ver o mapa, executando diretamente a pagina html percebi que o  Internet explorer me apresenta uma tarja amarela dizendo:\n\nPara protejer sua segurança, o internet exeplorer impediu este site de exibir conteudo ativo que possa acessar seu computador.\n\n\n[url=http&#58;//img147&#46;imageshack&#46;us/my&#46;php?image=ieby0&#46;jpg:3raisy6y][img:3raisy6y]http&#58;//img147&#46;imageshack&#46;us/img147/7696/ieby0&#46;th&#46;jpg[/img:3raisy6y][/url:3raisy6y]\n\n\nGratos','',0,'GA==','3raisy6y',1,0,'',1236,0,0),(44369,9272,3,6,0,'87.20.230.117',1198060094,1,0,1,1,1,1,'','Re: JPG Question','Use TImage instead of TBitmap.\n\nEMG','',0,'GA==','27zv2t2l',1,0,'',6,0,0),(44370,9272,3,460,0,'217.37.54.49',1198060320,1,0,1,1,1,0,'','','Thanks Enrico - Just found that!!  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'GA==','1031usmz',1,0,'',460,0,0),(44371,9270,6,449,0,'212.64.224.249',1198061495,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.elfyourself.com/?id=1557301031\">http://www.elfyourself.com/?id=1557301031</a><!-- m -->','',0,'GA==','1yx5o0ht',1,0,'',449,0,0),(44373,9223,4,2,0,'87.218.146.214',1198064303,1,0,1,1,1,1,'','','Grzegorz,\n\nCan you actually type those characters in Pocket Wordpad ?','',0,'GA==','2y9bjo7j',1,0,'',2,0,0),(44374,9272,3,2,0,'87.218.146.214',1198064390,1,0,1,1,1,1,'','','Pete,\n\nPlease review fwh\\samples\\TestImg.prg','',0,'GA==','6xllvffy',1,0,'',2,0,0),(44375,9145,3,2,0,'87.218.146.214',1198064473,1,0,1,1,1,1,'','','Darrell,\n\nI haven\'t found those required header files yet.\n[quote:w5hktnk4]\n#include \"mysql_com.h\" \n#include \"mysql_time.h\" \n#include \"mysql_version.h\" \n#include \"typelib.h\" \n#include \"my_list.h\" \n[/quote:w5hktnk4]\nRamesh, do you have them ? Thanks,','',0,'gA==','w5hktnk4',1,0,'',2,0,0),(44376,9270,6,278,0,'190.95.18.12',1198065162,1,0,1,1,1,1,'','','[b:2sjwa0v3]MUCHAS FELICIDADES[/b:2sjwa0v3]\n\nPara ti y los [i:2sjwa0v3]amigos[/i:2sjwa0v3] del foro. \n\nQue el 2008 sea un muy buen año para todos !!!.\n\nSaludos ,','',0,'YA==','2sjwa0v3',1,0,'',278,0,0),(44377,9274,3,460,0,'217.37.54.49',1198065717,1,0,1,1,1,0,'','Folder Question','Hi,\n\nI\'ve noticed a little display problem with dialogs in a folder since i upgraded to the may FWH version.  It looks as if the dialog is too wide for the folder and goes off of the right hand side of the folder.  It doesnt matter if i increase the size of the folder, the dialog always looks too big.  My dialogs are stored in a resource and i\'m using xharbour commercial.\n\nIf you don\'t understand what i\'m trying to say, then i\'ll post a screenshot.\n\nMany thanks\n\nPete','',0,'YA==','3tiqspts',1,0,'',460,0,0),(44378,7127,6,596,0,'85.62.69.206',1198066224,1,0,1,1,1,1,'','','Y como seria esta funcion:\n\n  Name:     [b:18hzz8jj]freadline()[/b:18hzz8jj] - read in one line from a file\n  Usage:    &lt;string&gt; = freadline(&lt;handle&gt;,[&lt;linelen&gt;])\n  Params:   integer &lt;handle&gt; from a previous fopen() or fcreate()\n            integer &lt;linelen&gt; - maximum line length to read in, if not\n            specified than the default is a maximum length of 512.\n  Returns:  a string filled with one line of text','',0,'QA==','18hzz8jj',1,0,'',596,0,0),(44379,9273,6,456,0,'62.43.24.65',1198066747,1,0,1,1,1,1,'','','Es un mensaje de seguridad de windows, pulsa sobre la linea amarilla, y autoriza la ejecucion de la pagina.','',0,'QA==','2mjdvkez',1,0,'',456,0,0),(44380,9273,6,63,0,'88.11.29.98',1198066973,1,0,1,1,1,0,'','','Biel tiene razón: Simplemente autoriza la presentación de la página.  Cuando se ve desde programa, ese mensaje no debería aparecer.\nRafael','',0,'QA==','1la35i3y',1,0,'',63,0,0),(44381,9275,6,456,0,'62.43.24.65',1198067273,1,0,1,1,1,1,'','REPORT escribir linea despues del titulo de grupo.','Alguna manera para escribir una linea justo despues de la cabecera de grupo.\nLo he intentado en bStartGroup, pero primero me escribe lo que hay en este codeblock, y despues el titulo del grupo.\n\nGracias anticipadas.\n\nPD ahora que me leo, parece que cambiando las funciones de codeblock podria funcionar. Poniendo el titulo en bStartGroup, y la linea en bHead del grupo.','',0,'QA==','vhv0tnsp',1,0,'',456,0,0),(44382,9273,6,1236,0,'201.86.89.178',1198067786,1,0,1,1,1,0,'','','Amigos Rafael Clemente e Biel, autorizando mesmo assim não me mostra veja:\n\n[url=http&#58;//img167&#46;imageshack&#46;us/my&#46;php?image=ie1lt6&#46;jpg:gltaaxz6][img:gltaaxz6]http&#58;//img167&#46;imageshack&#46;us/img167/3774/ie1lt6&#46;th&#46;jpg[/img:gltaaxz6][/url:gltaaxz6]\n\n[url=http&#58;//img299&#46;imageshack&#46;us/my&#46;php?image=ie2qg3&#46;jpg:gltaaxz6][img:gltaaxz6]http&#58;//img299&#46;imageshack&#46;us/img299/9692/ie2qg3&#46;th&#46;jpg[/img:gltaaxz6][/url:gltaaxz6]\n\n\nporém se executar diretamente a pagina HTML utilizando o firefox ai funciona normalmente:\n\n[url=http&#58;//img75&#46;imageshack&#46;us/my&#46;php?image=ie3es2&#46;jpg:gltaaxz6][img:gltaaxz6]http&#58;//img75&#46;imageshack&#46;us/img75/8054/ie3es2&#46;th&#46;jpg[/img:gltaaxz6][/url:gltaaxz6]\n\n\nPRG:\n\n#INCLUDE \"FIVEWIN.CH\"\n\nFUNCTION MAIN()\n\n   LOCAL oDlg, oRadio1, oGet1, obtn\n   LOCAL cCurrency := \"USD    \"\n   LOCAL nOption := 1\n\n   DEFINE DIALOG oDlg                                       ;\n      FROM 1, 1 TO 10, 30\n\n   @ 1, 1 RADIO oRadio1 VAR nOption OF oDlg  UPDATE         ;\n      PROMPT \"Estatua Libertad \", \"Fortaleny - Valencia - Espa?a\", \"Torre Eiffel - Par?s \"\n\n   @ 3, 1 BUTTON oBtn PROMPT \"Ver el Mapa\" ACTION VerMapa (oDlg, nOption)\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nRETURN NIL\n\nFunction VerMapa( oDlgp, nMapa )\nlocal ownd, oactivex\n\n\n\n          LOCAL cHtml\n       LOCAL nLat, nLon, nZoom\n\n        DO CASE\n           CASE nMapa == 1\n                nLat := 48.858333\n                nLon := 2.295000\n                nZoom := 20\n           CASE nMapa == 2\n                nLat := 39.183994491715936\n                nLon := -0.31486988067626952\n                nZoom := 18\n           CASE nMapa == 3\n                nLat := 40.689360\n                nLon := -74.044400\n                nZoom := 20\n         ENDCASE\n\n        cHtml := [   &lt;html&gt; &lt;head&gt; ]+CRLF\n        cHtml += [   &lt;meta http-equiv=\"content-type\" content=\"text/html; charset=utf-8\"/&gt; ]+CRLF\n        cHtml += [   &lt;title&gt;Google Maps&lt;/title&gt; ]+CRLF\n        cHtml += [   &lt;script src=\"http://maps.google.com/maps?file=api&amp;v=2&amp;key=1223\" type=\"text/javascript\"&gt;&lt;/script&gt; ]+CRLF\n        cHtml += [   &lt;script type=\"text/javascript\"&gt; ]+CRLF\n        cHtml += \"   //&lt;![CDATA[ \" +CRLF\n        cHtml += \"   function load() \"+CRLF\n        cHtml += \"   { if (GBrowserIsCompatible()) \"+CRLF\n        cHtml += [   { var map = new GMap2(document.getElementById(\"map\"),G_SATELLITE_TYPE); ] + CRLF\n        cHtml += \"   map.addControl(new GLargeMapControl()); \"+CRLF\n        cHTML += \"   map.addControl(new GMapTypeControl());  \"+CRLF\n        cHTML += \"   map.addControl(new GOverviewMapControl()); \"+CRLF\n        cHTML += \"   map.setCenter(new GLatLng(&lt;&lt;&lt;LAT&gt;&gt;&gt;, \"+CRLF\n        CHTML += \"   &lt;&lt;&lt;LONG&gt;&gt;&gt;),&lt;&lt;&lt;ZOOM&gt;&gt;&gt;); \"+CRLF\n        CHTML += \"   map.setMapType(G_HYBRID_TYPE); \"+CRLF\n        CHTML += \"   } } \"+CRLF\n        CHTML += \"   //]]&gt; &lt;/script&gt; &lt;/head&gt; \"+CRLF\n        CHTML += [   &lt;body scroll=\"no\" bgcolor=\"#CCCCCC\" topmargin=\"0\" leftmargin=\"0\" ] +CRLF\n        CHTML += [   onload=\"load()\" onunload=\"GUnload()\"&gt; ] + CRLF\n        chtml += [   &lt;div id=\"map\" style=\"width:450px;height:300px\"&gt;&lt;/div&gt; ] + CRLF\n        chtml += [   &lt;/body&gt; &lt;/html&gt; ]\n\n        cHtml := STRTRAN(cHtml, \"&lt;&lt;&lt;LONG&gt;&gt;&gt;\",STR(nLon) )\n        cHtml := STRTRAN(cHtml, \"&lt;&lt;&lt;LAT&gt;&gt;&gt;\",STR(nLat) )\n        cHtml := STRTRAN(cHtml, \"&lt;&lt;&lt;ZOOM&gt;&gt;&gt;\",STR(nZoom) )\n\n        MemoWrit(\"mihtml.htm\",chtml)\n\n   DEFINE WINDOW oWnd TITLE \"FiveWin ActiveX Support\"\n\n   oActiveX = TActiveX():New( oWnd, \"Shell.Explorer.2\" )\n\n   oWnd:oClient = oActiveX // To fill the entire window surface\n\n   oActiveX&#058;Do(\"Navigate2\",(CurDrive() + \":\\\"+CurDir()+\"\\MiHtml.htm\"))\n\n   ACTIVATE WINDOW oWnd\nRETUR NIL\n\n\n\n\nAmigos eu utilizo FWH7.1 e xHarbour 99.71 e percebi que só esta acontecendo isso porque tento abrir uma pagina na minha maquina se estiver hospedada na rede (NET) funciona muito bem. \n\nGrato','',0,'GA==','gltaaxz6',1,0,'',1236,0,0),(44383,9145,3,239,0,'121.32.19.184',1198068499,1,0,1,1,1,0,'','','Antonio,\n  In mysql installed folder:\n\n\\mysql server 4.1\\include                        \n\\mysql server 5.0\\include\n\n\nRegards!\nShuming Wang','',0,'GA==','1zj1ynbs',1,0,'',239,0,0),(44384,9274,3,2,0,'87.218.146.214',1198068590,1,0,1,1,1,1,'','','Pete,\n\nPlease test fwh\\samples\\TestFold.prg, thanks. Here it looks ok.','',0,'GA==','3im43aza',1,0,'',2,0,0),(44385,9145,3,2,0,'87.218.146.214',1198068659,1,0,1,1,1,1,'','','Shuming,\n\nCould you please ZIP them and upload them to <!-- w --><a class=\"postlink\" href=\"http://www.hotshare.net\">www.hotshare.net</a><!-- w --> ? thanks','',0,'GA==','3vytljyy',1,0,'',2,0,0),(44386,9276,6,430,0,'157.100.146.2',1198068866,1,0,1,1,1,0,'','Porq razon los cuadros de dialogo son más pequeños en FWH','Por fin logre generar mi aplicación en xHarbour; lo celebre con un gran puño en alto, como si hubiera ganado el campeonato del mundo.\n\nUna vez ahí empiezo a revisar las diferencias entre los 16 y 32 bites y la primera y mas notoria es el tamaño de los cuadros de dialogo que migre a FWH sin casi ningún cambio. Al ejecutar el .exe veo que los dialogos queden pequeños. Existe alguna solución para esto, o debo resignarme a ampliarlos uno por uno con el Workshop.\n\nOtro tema es el tamaño del font por omisión, ahora en la mayoria de veces que se corre la aplicación, se generan letras un poco mas grande y en negrita (Uso Win XP SP2).\n\nSaludos\n\nFernando Espinoza','',0,'GA==','3ufkxbgu',1,0,'',430,0,0),(44387,9223,4,1251,0,'85.221.136.34',1198068930,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2dayvjwa]Grzegorz,\n\nCan you actually type those characters in Pocket Wordpad ?[/quote:2dayvjwa]\n\nI can type it only by ALT + Ascii code. It\'s result ( the same in all fonts ):\n\n&#261; &#263;  &#281; &#322;  &#324; ó &#347;  &#380; &#378;  Polish rights characters\n\n¹ æ ê ³ ñ ó œ ¿ Ÿ  characters on display\n\n&#260; &#262; &#280;  &#321; &#323; Ó &#346; &#379; &#377;\n\n¥ Æ Ê £ Ñ Ó &#8299;    ¯&#8301;\n\nGrzegorz','',0,'gA==','2dayvjwa',1,0,'',1251,0,0),(44388,9267,6,430,0,'157.100.146.2',1198069266,1,0,1,1,1,0,'','','El truco funcionó muy bien.\n\nGracias','',0,'gA==','1non4eui',1,0,'',430,0,0),(44389,7127,6,2,0,'87.218.146.214',1198069465,1,0,1,1,1,1,'','','No la he probado, pero debería funcionar <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:1z9tye5n]\nfunction freadline&#40; nHandle, nLineLen &#41;\n\n   local cBuffer, nBytes, nAt\n\n   DEFAULT nLineLen &#58;= 512\n\n   cBuffer &#58;= Space&#40; nLineLen &#41;\n   nBytes = FRead&#40; nHandle, @cBuffer, nLineLen &#41;\n   nAt = At&#40; Chr&#40; 13 &#41; + Chr&#40; 10 &#41;, cBuffer &#41;\n   if nAt != 0\n      FSeek&#40; nHandle, -&#40; nBytes - nAt + 2 &#41;, FS_RELATIVE &#41;\n   endif \n\nreturn If&#40; nAt != 0, SubStr&#40; cBuffer, 1, nAt - 1 &#41;, SubStr&#40; cBuffer, 1, nBytes &#41; &#41;\n[/code:1z9tye5n]','',0,'AIA=','1z9tye5n',1,0,'',2,0,0),(44390,9276,6,2,0,'87.218.146.214',1198069772,1,0,1,1,1,1,'','','Fernando,\n\nLas aplicaciones Windows en 32 bits muestran los diálogos más pequeños que en 16 bits (ya lo has comprobado).\n\nFWH te proporciona la claúsula RESIZE16 para intentar aproximarse al tamaño de 16 bits sin tener que modificarlos a mano:\n\nACTIVATE DIALOG oDlg RESIZE16','',0,'AIA=','11dhics2',1,0,'',2,0,0),(44391,9223,4,2,0,'87.218.146.214',1198070070,1,0,1,1,1,1,'','','Grzegorz,\n\nSo even without using FWPPC, you can\'t still use those characters, right ?\n\nThen it seems as a Windows Mobile region setup issue\n\nHave you tried to check it in any Windows Mobile Polish forums ?','',0,'AIA=','31372fo7',1,0,'',2,0,0),(44392,9274,3,460,0,'217.37.54.49',1198070504,1,0,1,1,1,0,'','','It does the same on testfold as well - i had to change FOLDER32 to \"SysTabControl32\" to get the folder to work - is this the cause of the problem?  Should i be using something else?\n\nPete','',0,'AIA=','267agmx5',1,0,'',460,0,0),(44393,9276,6,362,0,'200.158.19.161',1198071364,1,0,1,1,1,1,'','','Hola... el mejor es que usted use: 0X4L para implementar tus DIALOGOS al Estilo PELLESC.EXE.\n\nMira este ejemplo:\n\nDIALOGO_ESTILO_PELLESC DIALOG 1, 126, 530, 79\nSTYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME\nCAPTION \"VERIFICACION DE ACCESO - DIALOGO CON 0X4L ESTILO PELLESC.EXE\"\nFONT 8, \"TAHOMA\"\n{\n COMBOBOX 103, 112, 15, 130, 58, CBS_DROPDOWNLIST | CBS_NOINTEGRALHEIGHT | WS_VSCROLL | WS_TABSTOP\n EDITTEXT 104, 112, 31, 50, 11, ES_PASSWORD | WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;Verificar\", 301, 130, 58, 50, 14\n PUSHBUTTON \"Salir\", 302, 190, 58, 50, 14\n GROUPBOX \" Datos De Usuario \", 101, 66, 4, 185, 43, BS_GROUPBOX | WS_DISABLED | WS_TABSTOP\n GROUPBOX \" Opciones \", 102, 113, 49, 138, 26, BS_GROUPBOX | WS_DISABLED | WS_TABSTOP\n RTEXT \"Usuario :\", -1, 70, 17, 38, 8\n RTEXT \"PassWord :\", -1, 70, 32, 38, 8\n COMBOBOX 107, 324, 15, 130, 58, CBS_DROPDOWNLIST | CBS_NOINTEGRALHEIGHT | WS_VSCROLL | WS_TABSTOP\n EDITTEXT 108, 324, 31, 50, 11, ES_PASSWORD | WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;Verificar\", 303, 342, 58, 50, 14\n PUSHBUTTON \"Salir\", 304, 402, 58, 50, 14\n GROUPBOX \" Datos De Usuario \", 111, 278, 4, 185, 43, BS_GROUPBOX | WS_DISABLED | WS_TABSTOP\n GROUPBOX \" Opciones \", 112, 325, 49, 138, 26, BS_GROUPBOX | WS_DISABLED | WS_TABSTOP\n RTEXT \"Usuario :\", -1, 282, 17, 38, 8\n RTEXT \"PassWord :\", -1, 282, 32, 38, 8\n}\n\nFelices navidad.\n\nRegards, saludos.','',0,'AIA=','2de58iju',1,0,'',362,0,0),(44394,9276,6,1236,0,'201.86.89.178',1198072231,1,0,1,1,1,0,'','','Karinha, e como configurar o pelles para sair com esta configuracao?\n\nUso o PELLES e nao sai 0X4L nos RC\n\n\nGrato','',0,'AIA=','11s28e4v',1,0,'',1236,0,0),(44395,9270,6,1106,0,'190.64.164.243',1198074612,1,0,1,1,1,0,'','','Amigos:\n\nMe uno al deseo de Feliz Navidad y muy\nFeliz 2008 para todos.\n\nAgradezco de corazón todo lo que hacen por\nesta maravillosaa comunidad.\n\nGracias y Felicidades.\n\nRuben Fernandez.','',0,'AIA=','1n4x4uci',1,0,'',1106,0,0),(44396,9274,3,2,0,'87.218.146.214',1198076505,1,0,1,1,1,1,'','','Pete,\n\n&gt;\nIt does the same on testfold as well - i had to change FOLDER32 to \"SysTabControl32\" to get the folder to work - is this the cause of the problem? Should i be using something else? \n&gt;\n\nFOLDER32 is a define that gets automatically translated into \"SysTabControl32\"\n\nWhat FWH version are you using ?','',0,'AIA=','latjgv01',1,0,'',2,0,0),(44397,9274,3,460,0,'217.37.54.49',1198078693,1,0,1,1,1,0,'','','May 2007 Version','',0,'AIA=','2xv55zpj',1,0,'',460,0,0),(44398,9274,3,2,0,'87.218.146.214',1198078901,1,0,1,1,1,1,'','','Pete,\n\nFolder used dialogs dimensions were modified in recent versions. We are going to review the changes to tell you what to modify.\n\nAnyhow, we recommend you to upgrade to the current 7.12 version','',0,'AIA=','2ekw462k',1,0,'',2,0,0),(44399,9277,3,267,0,'201.9.220.26',1198079023,1,0,1,1,1,1,'','How to return the focus for my application?','Hi,\n\nWhen I call another application, I execute oDlg:Disable()\n\nWhen to another application she is closed, I I execute oDlg:Enable and oDlg:SetFocus(), but my application does not receive the focus!','',0,'AIA=','2o6mnlos',1,0,'',267,0,0),(44400,9278,6,430,0,'157.100.146.2',1198079698,1,0,1,1,1,0,'','Un buen browse para usar en FWH','Migrando mi aplicación a 32 bites, ahora tengo errores durante la ejecución donde uso TWBrowse o TCBrowse; ¿porque es esto?; es por alguna incompatibilidad con la sintaxis en los programas de 16 bits o en xHarbour debo usar otro browse.\n\nSi es asi cual me recomiendan\n\nSaludos\n\nFernando Espinoza','',0,'AIA=','3cvhhuwo',1,0,'',430,0,0),(44401,9278,6,2,0,'87.218.146.214',1198080211,1,0,1,1,1,1,'','','Fernando,\n\n&gt; ahora tengo errores durante la ejecución\n\nQue errores son ?','',0,'AIA=','cs0nudbc',1,0,'',2,0,0),(44402,9276,6,362,0,'200.158.19.161',1198080830,1,0,1,1,1,1,'','','[quote=&quot;FWHISHOW&quot;:zaprowiw]Karinha, e como configurar o pelles para sair com esta configuracao?\n\nUso o PELLES e nao sai 0X4L nos RC\n\n\nGrato[/quote:zaprowiw]\n\nCoordenadas do DIALOGO: 1, 126, 530, 79 \n\n0X4L, pertence ao WORKSHOP.EXE.  \n\nNo Pellesc.exe isto é automatico, ja que ele é 32 bits puro.','',0,'gA==','zaprowiw',1,0,'',362,0,0),(44403,9278,6,51,0,'80.122.88.242',1198081484,1,0,1,1,1,0,'','','Video: xBrowser in 2 minutes\n[url:1kajufwy]http&#58;//www&#46;atzwanger&#46;com/fwvideo/xBTool2&#46;html[/url:1kajufwy]\n[url:1kajufwy]http&#58;//www&#46;atzwanger&#46;com/fwvideo/xbtool/xBToolSelFont&#46;html[/url:1kajufwy]','',0,'EA==','1kajufwy',1,0,'',51,0,0),(44404,9269,6,1201,0,'200.90.17.154',1198081958,1,0,1,1,1,0,'','','La Versión de fw es la 0709','',0,'EA==','27mm6e1j',1,0,'',1201,0,0),(44405,9183,3,343,0,'24.173.70.25',1198083313,1,0,1,1,1,0,'','','I\'ve taken a different approach to Google Maps. You can create a link string that can do quite a bit of the work, so I created a class call WebMap that helps me create the link string. \n\nYou can download this class and TestWebMap prg at\n[url:bi0o61yc]http&#58;//www&#46;hotshare&#46;net/file/24300-4713157df9&#46;html[/url:bi0o61yc]\n\nIt does not have the control that the previous postings have but it does everything I need it for, including routes.','',0,'EA==','bi0o61yc',1,0,'',343,0,0),(44406,9279,6,278,0,'190.95.18.12',1198083493,1,0,1,1,1,1,'','TGraph ( Alfredo Arteaga ) Como poner 2 tipos de graficos','Hola Alfredo:\n\nNecesito saber si se puede poner en un mismo gráfico 2 series de datos, d\npero con tipo de graficos diferentes: \n\n-  la serie 1  sea por ejemplo de barras y\n-  la serie 2  sea de lineas.\n\nAmbas series tienen el mismo nº de datos.\n\nEsto es posible, pues hay datos que se entienden mejor de esta forma.\n\nSaludos,','',0,'EA==','3az80sej',1,0,'',278,0,0),(44407,9270,6,935,0,'200.30.132.2',1198083748,1,0,1,1,1,1,'','Feliz Navidad','Amigos del Foro,\n\nFeliz Navidad y Prospero, y hago enfasis muuuy prospero año 2008, \n\nDesde Managua, Nicaragua\n\nRamon Paredes','',0,'EA==','39jckaiy',1,0,'',935,0,0),(44408,9270,6,854,0,'189.131.146.31',1198084293,1,0,1,1,1,0,'','Feliz Navidad','Que en estas fechas todos sean muy Felices con Sus Respectivas Familias.\n\n Y tengan un prospero 2008.\n\n Que se cumplan todos sus deseos.\n\n  Les Desea :\n\n  Fco. Javier Vital A.\n\n  Desde Tehuacan, Puebla, Mexico.','',0,'EA==','24pjq3xv',1,0,'',854,0,0),(44409,9276,6,430,0,'157.100.146.2',1198084613,1,0,1,1,1,0,'','','karinha\n\nCon pelles puede hacer una migración de mi .rc directo a 32 bites.\n\nDe donde puedo bajar pellesc y hay un manual de uso.\n\nSaludos','',0,'EA==','3f0448t2',1,0,'',430,0,0),(44410,9278,6,430,0,'157.100.146.2',1198084836,1,0,1,1,1,0,'','','Otto\n\nDe donde puedo descargar xBrowse\n\nSaludos\n\nFernnado Espinoza','',0,'EA==','2d8sxrgq',1,0,'',430,0,0),(44411,9270,6,103,0,'189.12.229.204',1198085093,1,0,1,1,1,1,'','','Felices fiestas a ti Antonio y a todos amigos deste foro y un 2008 lleno de salud y prosperidad a todos.\n\nSaludos,','',0,'EA==','38a86r10',1,0,'',103,0,0),(44412,9280,7,720,0,'80.36.244.134',1198085661,1,0,1,1,1,0,'','como saber si un dialogo está abierto o no...','Hola a todos...\n\nNecesitaria saber si existe alguna función que me permita saber si un dialogo se encuentra abierto o no, es decir, si ya se ha hecho un odlg:end() o por el contrario aún está activo....\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'EA==','2gwhjxpe',1,0,'',720,0,0),(44413,9276,6,362,0,'200.158.19.161',1198085888,1,0,1,1,1,1,'','','[quote=&quot;fespinoza&quot;:26659eo5]karinha\n\nCon pelles puede hacer una migración de mi .rc directo a 32 bites.\n\nDe donde puedo bajar pellesc y hay un manual de uso.\n\nSaludos[/quote:26659eo5]\n\n\nNo tengo certezca, pero creo no sea posible, se tus RECURSOS TENGAN SIDOS GENERADOS EN WORKSHOP.EXE.\n\nNo tengo el camiño al sitio de PELLESC.EXE\n\nBusca en GOOGLE.\n\nBest regards.  Felices fiestas. Feliz natal a todos.','',0,'gA==','26659eo5',1,0,'',362,0,0),(44414,9277,3,303,0,'72.220.181.80',1198086990,1,0,1,1,1,0,'','','Vilian,\n\nTry:\n\n    setForeGroundWindow(hWnd)\n\nJames','',0,'gA==','2twawor4',1,0,'',303,0,0),(44415,9183,3,303,0,'72.220.181.80',1198088009,1,0,1,1,1,0,'','','Gale,\n\n&gt;I\'ve taken a different approach to Google Maps.\n\nThis works great! Thanks for sharing.\n\nJames','',0,'gA==','3ik5o6ed',1,0,'',303,0,0),(44416,9270,6,1246,0,'69.19.14.35',1198088344,1,0,1,1,1,1,'','','QUE LA DICHA Y LA PROSPERIDAD LOS SIGAN POR TADAS PARTES EN ENTA NAVIDAD Y UN FELIZ AÑO 2008 A TODOS.','',0,'gA==','3faxe1kb',1,0,'',1246,0,0),(44417,9281,6,956,0,'200.222.21.2',1198089928,1,0,1,1,1,1,'','Aumentar o tamanho do balão da dica','Estou usando [b:3mj15klr]SetBalloon(.t.)[/b:3mj15klr] mas gostaria de aumentar a largura (width) do balão. \nComo fazer isto?','',0,'QA==','3mj15klr',1,0,'',956,0,0),(44418,9277,3,2,0,'87.218.146.214',1198090184,1,0,1,1,1,1,'','','James missed the oDlg: (you could also try with the main oWnd)\nSetForeGroundWindow(oDlg:hWnd)','',0,'QA==','2sv7m9wz',1,0,'',2,0,0),(44419,9282,6,156,0,'201.244.247.21',1198090191,1,0,1,1,1,0,'','Antonio S.O.S.... PCODE DLL no funciona','Hola Antonio:\n\nLamento molestar, pero como he explicado en post anteriores dependemos en nuestra aplicaciones del uso intensivo de código en DLL´s.\n\nAlgo tan sencillo como lo siguiente, no logramos hacerlo funcionar con FWH  y xHarbour 1.1.0:\n\n[b:h4cmeh20][color=darkred:h4cmeh20]TESTDLLP.PRG[/color:h4cmeh20][/b:h4cmeh20]\n#include \"FiveWin.ch\"\n\nREQUEST DBFCDX\n\nSTATIC oWnd\n\nFunction Inicio()\nLOCAL oMenu\nLOCAL hDll := LibLoad( \"MSTDLL1.DLL\" )\nRddSetDefault(\"DBFCDX\")\nMENU oMenu\n     MENUITEM \"Prueba\" ACTION Hb_LibDo(\"ProduccDll\",\"1\")\n     MENUITEM \"&amp;Terminar\" ACTION oWnd:End()\nENDMENU\nDEFINE WINDOW oWnd TITLE \"Usando PCode DLL\" MDI MENU oMenu\nACTIVATE WINDOW oWnd\nLibFree( hDLL )\nReturn(NIL)\n\n\n\n[b:h4cmeh20][color=darkred:h4cmeh20]PCODEDLL.PRG[/color:h4cmeh20][/b:h4cmeh20]\n#include \"FiveWin.ch\"\n\nFunction ProduccDll(cAccion)\ndbuseArea(.T.,,\"PRUEBA2.DBF\",\"prueba\")\nwBrowse()\ndbCloseAll()\nReturn(nil)\n\n\nPodrías ayudarme indicándome qué hace falta ?\n\nPerdona que insista, pero me ayudaría mucho, si logras hacerlo funcionar, que me enviases una explicación para niños de cómo lo hiciste, incluído el script para general la Dll. Definitivamente nostros no pudimos.  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nSaludos,\n\nCarlos Gallego','',0,'Qg==','h4cmeh20',1,0,'',156,0,0),(44420,9270,6,439,0,'200.125.42.238',1198090328,1,0,1,1,1,1,'','','Me uno a los demás deseándote felices fiestas junto a toda la comunidad fivewinera. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Qg==','xcbwz4k4',1,0,'',439,0,0),(44421,9282,6,156,0,'201.244.247.21',1198090487,1,0,1,1,1,0,'','','Antonio, se me fueron la luces. Por favor corregir:\n\nCambiar LOCAL hDll := LibLoad( \"MSTDLL1.DLL\" ) \nPor        LOCAL hDll := LibLoad( \"PCODEDLL.DLL\" ) \n\nY como no envié la base PRUEBA2.DBF, por favor prueba con cualquiera.\n\nSaludos,\n\nCarlos Gallego','',0,'Qg==','3jqn3i99',1,0,'',156,0,0),(44422,9278,6,2,0,'87.218.146.214',1198090525,1,0,1,1,1,1,'','','Fernando,\n\nLa Clase TXBrowse está incluida en FWH\n\nRevisa FWH/samples/TestXBrw.prg','',0,'Qg==','rj7cvpg6',1,0,'',2,0,0),(44423,9278,6,51,0,'80.122.88.242',1198090687,1,0,1,1,1,0,'','','Browser is original FIVEWIN.\nIf you try the demo c:\\FWH\\samples\\testxbrw.prg be sure to uncomment the ADS stuff.\n\n//extern AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos\n\n//#command SET SERVER LOCAL   =&gt; AdsSetServerType ( 1 )\n//#command SET SERVER REMOTE  =&gt; AdsSetServerType ( 2 )\n\n//#command ET FILETYPE TO &lt;x:NTX,CDX,ADT&gt;                              ;\n//      =&gt; AdsSetFileType( if( upper( &lt;(x)&gt; ) == \"NTX\", 1,              ;\n//                         if( upper( &lt;(x)&gt; ) == \"CDX\", 2, 3 ) ) )\n\n\n/*REQUEST ADS\n\n   rddRegister( \"ADS\", 1 )\n   rddsetdefault( \"ADS\" )\n                  */\n   //SET SERVER LOCAL\n   //SET FILETYPE TO CDX\n\n\nI only made a little tool to design the outlook of the browser visually.\nIt saves you much time. It is a work in progress.\n<!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->\n\nor\n\n\n<!-- m --><a class=\"postlink\" href=\"http://www.winhotel.info/aspnewsletter/article.asp?aid=155&amp;iid=26&amp;sud=2\">http://www.winhotel.info/aspnewsletter/ ... d=26&amp;sud=2</a><!-- m -->\n\nRegards,\nOtto','',0,'Qg==','3vm3hlfu',1,0,'',51,0,0),(44424,9283,6,760,0,'200.37.76.93',1198090739,1,0,1,1,1,0,'','AdoRdd Donde lo consigo para xHarbour?','Hola a todos del foro\n\nDonde puedo conseguir AdoRdd para xHarbour???\n\nGracias a todos\n\nSau2','',0,'Qg==','1s0r9dzm',1,0,'',760,0,0),(44425,9283,6,2,0,'87.218.146.214',1198091084,1,0,1,1,1,1,'','','Desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/adordd.zip\">www.fivetechsoft.com/files/adordd.zip</a><!-- w -->\n\nEs compatible con Harbour y xHarbour','',0,'Qg==','2wlvtldu',1,0,'',2,0,0),(44426,9270,6,760,0,'200.37.76.93',1198092339,1,0,1,1,1,0,'','Feliz Navidad','Hola a todos\n\nBueno, que pasen una feliz navidad y prospero año nuevo. Que las metas y los proyectos trazados se cumplan...\n\nDesde Iquitos-Peru\n\nFrancis\n\nSalu2','',0,'Qg==','32qfhwcz',1,0,'',760,0,0),(44427,9283,6,760,0,'200.37.76.93',1198092592,1,0,1,1,1,0,'','AdoRdd Donde lo consigo para xHarbour?','Gracias Master Antonio\n\nY los ejempos ...??\nSiquiera uno o dos para poderme guiar, por favor Master...\n\nSalu2\n\nFrancis','',0,'Qg==','3cwx77b5',1,0,'',760,0,0),(44430,9283,6,2,0,'87.218.146.214',1198095171,1,0,1,1,1,1,'','','Estan incluidos en el fichero ZIP <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3bc91r6y',1,0,'',2,0,0),(44431,9286,3,35,0,'167.7.140.254',1198095229,1,0,1,1,1,0,'','ADO Connection to Oracle 10g','To All\n\nI am trying to connect to an Oracle 10g database using the following code which fails every time .. any assistance would be appreciated.\n\nLooking on MSDN there is some confusion as to \"SOURCE\" being the server name .. in this example the EFIS is that actual name of the database that resides on the server name EQCAIX3 ..\n\nRick Lipkin\n\nxPROVIDER := \"MSDAORA\"\nxSOURCE   := \"EFIS\"\nxUSERID   := \"SUNTRACK\"\nxPASSWORD := \"goefis10\"\n\n\noRs := TOleAuto():New( \"ADODB.Recordset\" )\noRs:CursorType     := 1        // opendkeyset\noRs:CursorLocation := 3        // local cache\noRs:LockType       := 3        // lockoportunistic\n\ncSQL := \"SELECT * FROM EFIS_UST_RELEASES\"\nTRY\n oRS:Open(cSQL,\'Provider=\'+xPROVIDER+\';Data Source=\'+xSOURCE+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD )\n* oRs:Open(cSQL, \"Provider=madaora;Data Source=efis;Persist Security Info=False;User ID=suntrack;Password=goefis10\" )\nCATCH oErr\n   MsgInfo( \"Error in Opening EFIS_UST_RELEASES table\" )\n   CLOSE DATABASES\n   QUIT\nEND TRY','',0,'GA==','1e4daw19',1,0,'',35,0,0),(44432,9282,6,2,0,'87.218.146.214',1198096121,1,0,1,1,1,1,'','','Carlos,\n\nTu ejemplo funciona perfectamente. Sólo tienes que añadir:\n\n1) a TESTDLLP.prg:\n\nREQUEST DBFCDX, DBUSEAREA, WBROWSE, DBCLOSEALL \n\n2) a PCODEDLL.prg:\n\nDYNAMIC dbuseArea\nDYNAMIC wBrowse\nDYNAMIC dbCloseAll\nDYNAMIC GETPROCADDRESS\nDYNAMIC TACTIVEX\nDYNAMIC ERRORSYS\n\nSi quieres te envio el EXE y la DLL para que los pruebes ahí <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:6a92yiyx][img:6a92yiyx]http&#58;//img120&#46;imageshack&#46;us/img120/2613/carloscl2&#46;png[/img:6a92yiyx][/url:6a92yiyx]','',0,'GA==','6a92yiyx',1,0,'',2,0,0),(44433,9281,6,2,0,'87.218.146.214',1198096445,1,0,1,1,1,1,'','','Anderson,\n\nUna solución sencilla sería añadir espacios al final del texto del tooltip.\n\nLo has probado ?','',0,'GA==','39fdbu2g',1,0,'',2,0,0),(44434,9287,7,1135,0,'189.136.49.15',1198096698,1,0,1,1,1,1,'','color por linea en Tbrowse','Alguien sabe como se puede cambiar el color de una linea del TBrowse en base a alguna condicion del registro o elemento?\nSaludos','',0,'GA==','14tg4ef0',1,0,'',1135,0,0),(44435,9269,6,2,0,'87.218.146.214',1198096816,1,0,1,1,1,1,'','','Angel,\n\nPor favor prueba este ejemplo. Aqui funciona correctamente:\n[code:2bzdj6md]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cTest &#58;= &quot;hello world&quot;\n\n   DEFINE DIALOG oDlg\n\n   @ 2, 2 GET cTest   \n\n   ACTIVATE DIALOG oDlg VALID MsgYesNo&#40; &quot;Want to end ?&quot; &#41;\n\nreturn nil\n[/code:2bzdj6md]','',0,'AIA=','2bzdj6md',1,0,'',2,0,0),(44436,9277,3,267,0,'201.9.135.104',1198096928,1,0,1,1,1,1,'','','Antonio,\n\nWhy when use oDlg:Disable(), exactly using later oDlg:Enable() clauses VALID of the GETS leaves to function?','',0,'AIA=','1h0toigb',1,0,'',267,0,0),(44437,9282,6,156,0,'201.244.247.21',1198096948,1,0,1,1,1,0,'','','Hola Antonio:\n\nGracias, funcionó bien. Me quedan tres prueguentas:\n\n1.-Cada función o procedure (Clipper, fivewin o progra) que sea invocado en la DLL deberá citarse con REQUEST en el programa PRINICIPAL y su contraparte como DYNAMIC en la DLL. Es correcto ? Observo que tienen que ir al comienzo del PRG\n\n2.- En una DLL con mucho código, se pueden estar invocando decenas de funciones/procedures, entonces, cuál sería la forma de incluírlas tanto en el programa principal como en la DLL que no sea tan tedioso y tenga que declararse una por una. Pordría ser, por ejemplo, poniéndolas en un archivo tipo INCLUDE, ejemplo, \"LosRequest.ch\" y \"LosDynamics.ch\" ? o de qué manera ?\n\n3.- Cómo controlar el error dentro de la DLL, en cuál línea se produce y cuál es el error. No saca ningún mensaje aparte del típico de Windows. Tampoco reconoce logfile.\n\nSaludos,\n\nCarlos Gallego','',0,'AIA=','1zggkxrq',1,0,'',156,0,0),(44438,9282,6,2,0,'87.218.146.214',1198098513,1,0,1,1,1,1,'','','Carlos,\n\n&gt;\n1.-Cada función o procedure (Clipper, fivewin o progra) que sea invocado en la DLL deberá citarse con REQUEST en el programa PRINICIPAL y su contraparte como DYNAMIC en la DLL. Es correcto ?\n&gt;\n\nSí\n\n&gt; Observo que tienen que ir al comienzo del PRG \n\nNo necesariamente. Es lo típico, pero puedes usar REQUEST al final, etc.\n\n&gt; \nponiéndolas en un archivo tipo INCLUDE, ejemplo, \"LosRequest.ch\" y \"LosDynamics.ch\" ? \n&gt;\n\nSí, sería lo idóneo\n\n&gt;\n3.- Cómo controlar el error dentro de la DLL, en cuál línea se produce y cuál es el error. No saca ningún mensaje aparte del típico de Windows. Tampoco reconoce logfile. \n&gt;\n\nAqui la gestión de errores en la DLL funciona perfectamente. Modifica tu ejemplo de esta forma:\n\nFunction ProduccDll(cAccion) \nx++\n\ny aparece la ventana de errores de FWH dando la información correcta:\n\n   Error description: Error BASE/1003  Variable does not exist: X\n\nStack Calls\n===========\n   Called from: pcodedl2.prg =&gt; PRODUCCDLL(4)\n   Called from:  =&gt; HB_LIBDO(0)\n   Called from: cgallego.prg =&gt; (b)INICIO(12)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: cgallego.prg =&gt; INICIO(16)\n\nEstás usando un gestor de errores distinto al estandard de FWH ?','',0,'AIA=','3f9yq0lm',1,0,'',2,0,0),(44439,9277,3,2,0,'87.218.146.214',1198098853,1,0,1,1,1,1,'','','Vilian,\n\nThis test works fine:\n[code:qrjf0bg5]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cTest &#58;= &quot;hello world&quot;\n\n   DEFINE DIALOG oDlg\n\n   @ 1, 2 GET cTest VALID &#40; MsgInfo&#40; &quot;ok&quot; &#41;, &#46;T&#46; &#41;\n   \n   @ 3, 2 BUTTON &quot;Disable&quot; ACTION &#40; oDlg&#58;Disable&#40;&#41;, MsgInfo&#40; &quot;disabled&quot; &#41;, oDlg&#58;Enable&#40;&#41; &#41;   \n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      VALID MsgYesNo&#40; &quot;Want to end ?&quot; &#41;\n\nreturn nil\n[/code:qrjf0bg5]\nPlease provide a sample, thanks','',0,'AIA=','qrjf0bg5',1,0,'',2,0,0),(44440,9287,7,2,0,'87.218.146.214',1198099052,1,0,1,1,1,1,'','','Arturo,\n\nEste es un ejemplo para alternar los colores de cada línea:\n\noBrw:nClrPane := { || If( OrdKeyNo() % 2 == 0, RGB( 230, 230, 230), RGB( 190, 215, 190 ) ) }','',0,'AIA=','32so8vly',1,0,'',2,0,0),(44441,9282,6,156,0,'201.244.247.21',1198099651,1,0,1,1,1,0,'','','Muy bien.\n\n&gt; \n1.-Cada función o procedure (Clipper, fivewin o progra) que sea invocado en la DLL deberá citarse con REQUEST en el programa PRINICIPAL y su contraparte como DYNAMIC en la DLL. Es correcto ? \n&gt; \n\n&lt; Sí &gt;\n\nEsto incluye dbeval, dbgotop, dbgoto, dbgobottom, recno, etc., etc, etc. ?\n\nEs decir, toca hacer un include kilométrico con todas las funciones de Clipper / xHarbour .  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->  Alguna idea ?\n\n&lt; Estás usando un gestor de errores distinto al estandard de FWH ? &gt;\n\nNo. A veces toma el gestor normal de errores de FW, otras veces manda la ventana de Windows, que no dice nada.\n\nEn todo caso vamos avanzando. Que con tu ayuda terminanos el año domando las condenadas DLLs  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  \n\nSaludos,\n\nCarlos Gallego','',0,'AIA=','jw5y8xr1',1,0,'',156,0,0),(44442,9286,3,6,0,'87.20.230.117',1198099886,1,0,1,1,1,1,'','Re: ADO Connection to Oracle 10g','I don\'t know it this can be of any help but try:\n\n[code:3pqhjgaj]cSQL &#58;= &quot;SELECT * FROM &#91;EFIS_UST_RELEASES&#93;&quot;[/code:3pqhjgaj]\n\nEMG','',0,'AIA=','3pqhjgaj',1,0,'',6,0,0),(44443,9282,6,2,0,'87.218.146.214',1198099992,1,0,1,1,1,1,'','','Carlos,\n\nEsto puede servirte <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:2phl448n]\n   REQUEST ;\n   AADD,;            \n   ABS,;             \n   ACHOICE,;         \n   ACLONE,;          \n   ACOPY,;           \n   ADEL,;            \n   ADIR,;            \n   AEVAL,;           \n   AFIELDS,;         \n   AFILL,;           \n   AINS,;            \n   ALERT,;           \n   ALIAS,;           \n   ALLTRIM,;         \n   AMPM,;            \n   ARRAY,;           \n   ASC,;             \n   ASCAN,;           \n   ASIZE,;           \n   ASORT,;           \n   AT,;              \n   ATAIL,;           \n   BIN2I,;           \n   BIN2L,;           \n   BIN2U,;           \n   BIN2W,;           \n   BOF,;             \n   BROWSE,;          \n   CDOW,;            \n   CHR,;             \n   CMONTH,;          \n   COL,;             \n   CTOD,;            \n   CURDIR,;          \n   DATE,;            \n   DAY,;             \n   DAYS,;            \n   DBAPPEND,;        \n   DBCLEARFILTER,;   \n   DBCLEARINDEX,;    \n   DBCLEARRELATION,; \n   DBCLOSEALL,;      \n   DBCLOSEAREA,;     \n   DBCOMMIT,;        \n   DBCOMMITALL,;     \n   DBCREATE,;        \n   DBCREATEINDEX,;   \n   DBDELETE,;        \n   DBEDIT,;          \n   DBEVAL,;          \n   DBF,;             \n   DBFILTER,;        \n   DBGOBOTTOM,;      \n   DBGOTO,;          \n   DBGOTOP,;         \n   DBRECALL,;        \n   DBREINDEX,;       \n   DBRELATION,;      \n   DBRLOCK,;         \n   DBRLOCKLIST,;     \n   DBRSELECT,;       \n   DBRUNLOCK,;       \n   DBSEEK,;          \n   DBSELECTAREA,;    \n   DBSETDRIVER,;     \n   DBSETFILTER,;     \n   DBSETINDEX,;      \n   DBSETORDER,;      \n   DBSETRELATION,;   \n   DBSKIP,;          \n   DBSTRUCT,;        \n   DBUNLOCK,;        \n   DBUNLOCKALL,;     \n   DBUSEAREA,;       \n   DELETED,;         \n   DESCEND,;         \n   DEVOUT,;          \n   DEVOUTPICT,;      \n   DEVPOS,;          \n   DIRECTORY,;       \n   DIRCHANGE,;       \n   DIRREMOVE,;       \n   DISKSPACE,;       \n   DISPBEGIN,;       \n   DISPCOUNT,;       \n   DISPEND,;         \n   DISPOUT,;         \n   DOW,;             \n   DTOC,;            \n   DTOS,;            \n   ELAPTIME,;        \n   EMPTY,;           \n   EOF,;             \n   ERRORNEW,;        \n   EVAL,;            \n   EXP,;             \n   FCLOSE,;          \n   FCOUNT,;          \n   FCREATE,;         \n   FERASE,;          \n   FERROR,;          \n   FIELD,;           \n   FIELDBLOCK,;      \n   FIELDGET,;        \n   FIELDNAME,;       \n   FIELDPOS,;        \n   FIELDPUT,;        \n   FIELDWBLOCK,;     \n   FILE,;            \n   FLOCK,;           \n   FOPEN,;           \n   FOUND,;           \n   FREAD,;           \n   FREADSTR,;        \n   FRENAME,;         \n   FSEEK,;           \n   FWRITE,;          \n   GETACTIVE,;       \n   GETAPPLYKEY,;     \n   GETDOSETKEY,;     \n   GETENV,;          \n   GETNEW,;          \n   GETPREVALIDATE,;  \n   GETPOSTVALIDATE,; \n   GETREADER,;       \n   HARDCR,;          \n   HB_ANSITOOEM,;    \n   HB_DISKSPACE,;    \n   HB_FEOF,;         \n   HB_OEMTOANSI,;    \n   HEADER,;          \n   I2BIN,;           \n   IF,;              \n   INDEXEXT,;        \n   INDEXKEY,;        \n   INDEXORD,;        \n   INKEY,;           \n   INT,;             \n   ISAFFIRM,;        \n   ISALPHA,;         \n   ISDIGIT,;         \n   ISDISK,;          \n   ISLOWER,;         \n   ISNEGATIVE,;      \n   ISUPPER,;         \n   L2BIN,;           \n   LASTKEY,;         \n   LASTREC,;         \n   LEFT,;            \n   LEN,;             \n   LOG,;             \n   LOWER,;           \n   LTRIM,;           \n   LUPDATE,;         \n   MAKEDIR,;         \n   MAX,;             \n   MAXCOL,;          \n   MAXROW,;          \n   MCOL,;            \n   MEMOEDIT,;        \n   MEMOTRAN,;        \n   MEMOLINE,;        \n   MEMORY,;          \n   MEMOREAD,;        \n   MEMOTRAN,;        \n   MEMOWRIT,;        \n   MEMVARBLOCK,;     \n   MIN,;             \n   MLCOUNT,;         \n   MLCTOPOS,;        \n   MLPOS,;           \n   MOD,;             \n   MONTH,;           \n   MPOSTOLC,;        \n   MROW,;            \n   NATIONMSG,;       \n   NETERR,;          \n   NETNAME,;         \n   NEXTKEY,;         \n   ORDBAGEXT,;       \n   ORDBAGNAME,;      \n   ORDCREATE,;       \n   ORDDESTROY,;      \n   ORDFOR,;          \n   ORDKEY,;          \n   ORDLISTADD,;      \n   ORDLISTCLEAR,;    \n   ORDLISTREBUILD,;  \n   ORDNAME,;         \n   ORDNUMBER,;       \n   ORDSETFOCUS,;     \n   OS,;              \n   OUTERR,;          \n   OUTSTD,;          \n   PADC,;            \n   PADL,;            \n   PADR,;            \n   PCOL,;            \n   PCOUNT,;          \n   PROCFILE,;        \n   PROCLINE,;        \n   PROCNAME,;        \n   PROW,;            \n   RAT,;             \n   RDDLIST,;         \n   RDDNAME,;         \n   RDDSETDEFAULT,;   \n   READEXIT,;        \n   READUPDATED,;     \n   READINSERT,;      \n   READKEY,;         \n   READFORMAT,;      \n   READKILL,;        \n   READMODAL,;       \n   READUPDATED,;     \n   READVAR,;         \n   RECCOUNT,;        \n   RECNO,;           \n   RECSIZE,;         \n   REPLICATE,;       \n   RESTSCREEN,;      \n   RIGHT,;           \n   RLOCK,;           \n   ROUND,;           \n   ROW,;             \n   RTRIM,;           \n   SAVESCREEN,;      \n   SCROLL,;          \n   SECONDS,;         \n   SECS,;            \n   SELECT,;          \n   SET,;             \n   SETCOLOR,;        \n   SETCURSOR,;       \n   SETKEY,;          \n   SETMODE,;         \n   SETPOS,;          \n   SETPRC,;          \n   SETTYPEAHEAD,;    \n   SPACE,;           \n   SQRT,;            \n   STR,;             \n   STRTRAN,;         \n   STRZERO,;         \n   STUFF,;           \n   SUBSTR,;          \n   TBROWSENEW,;      \n   TBROWSEDB,;       \n   TBCOLUMNNEW,;     \n   TIME,;            \n   TONE,;            \n   TRANSFORM,;       \n   TRIM,;            \n   TYPE,;            \n   U2BIN,;           \n   UPDATED,;         \n   UPPER,;           \n   USED,;            \n   VAL,;             \n   VALTYPE,;         \n   VERSION,;         \n   W2BIN,;           \n   WORD,;            \n   HB_FNAMESPLIT,;   \n   HB_FNAMEMERGE\n[/code:2phl448n]','',0,'AIA=','2phl448n',1,0,'',2,0,0),(44444,9282,6,2,0,'87.218.146.214',1198100097,1,0,1,1,1,1,'','','Carlos,\n\n&gt; ... otras veces manda la ventana de Windows, que no dice nada.\n\nA ver si pudieses conseguirme un ejemplo que genere un error de esos, gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1p66cfx5',1,0,'',2,0,0),(44445,9286,3,35,0,'167.7.140.254',1198102020,1,0,1,1,1,0,'','','Enrico\n\nSorry .. that did not work .. I think it has something to do with the \'source\' parameter .. i am missing something from my side on the identification .. server name perhaps, sciema prefix .. something like that.\n\nRick','',0,'AIA=','2stkojxp',1,0,'',35,0,0),(44446,7127,6,596,0,'84.76.66.27',1198103834,1,0,1,1,1,1,'','','Gracias Antonio.\nYa me puedo despedir de las LIB de Funcky, en desarrollos de 32bits.','',0,'AIA=','2ktcvd6a',1,0,'',596,0,0),(44447,9143,6,596,0,'84.76.66.27',1198103916,1,0,1,1,1,1,'','','[quote=&quot;JARO&quot;:3vj1hbab]ENVIADO[/quote:3vj1hbab]Y recogido.\nMe pongo a \"cotillearlo\" y ha probarlo.\nGracias.','',0,'gA==','3vj1hbab',1,0,'',596,0,0),(44448,9286,3,868,0,'219.64.121.60',1198104234,1,0,1,1,1,1,'','','For Source we should use the TNS Name of the Server/Database.  It is the name used in TNS Confuration of the Oracle Client on the PC client. It is not the physical servername or the database name given by the DBA on the server.\n\nIf you open connection object separately, ( i advise not mix with opening recordset) and examine the  connection object\'s error object, you narrow down the problem and know where exactly the error is.\n\nI suggest something like this\n[code:5ie2md8c]\ncConnStr &#58;= \'Provider=MSDAORA&#46;1;Data Source=&lt;TNSnameofServer&gt;;User ID= &#46;&#46;&#46;&#46; ;Password- &#46;&#46;\'\noCon &#58;= TOLEAuto&#40;&#41;&#58;New&#40;\'ADODB&#46;Connection\'&#41;\noCon&#58;ConnectionString &#58;= cConnStr\nTRY\n  oCon&#58;Open&#40;&#41;\nCATCH\n  ShowAdoError&#40;oCon&#41;\n  Return &#46;f&#46;\nEND\n\n// now open any number of recordsets using the above conn object\noRs	&#58;= TOLEAuto&#40;&#41;&#58;New&#40;\'ADODB&#46;RecordSet\'&#41;\nTRY\n  oRs&#58;Open&#40; &lt;sql&gt;, oCon, &lt;other params &gt; &#41;\nCATCH\n  ShowAdoError&#40;oCon&#41;\nEND\n//-------------\nSTATIC FUNCTION ShowAdoError\n\nLOCAL   nAdoErrors   &#58;= 0\nLOCAL   oAdoErr\n\n      nAdoErrors   &#58;=  oCon&#58;Errors&#58;Count&#40;&#41;\n      IF nAdoErrors &gt; 0\n         oAdoErr      &#58;= oCon&#58;Errors&#40;nAdoErrors-1&#41;\n         msginfo&#40; oAdoErr&#58;Description + CRLF + oAdoErr&#58;Source &#41;\n      ELSE\n         msginfo&#40; \'Not Oracle Error\' &#41;\n      ENDIF\n\nRETURN nil\n[/code:5ie2md8c]\nOnce we successfully open the connection object, we can use the same connection object to open hundreds of recordsets or use execute commands.  Opening RecSet with connection string each time will open new connection each time with two disadvantages (1) Server will have too many connections open and 32 bit windows server will reach its limit soon, denying service to next users(2) isolating the error becomes difficult.','',0,'AIA=','5ie2md8c',1,0,'',868,0,0),(44449,9270,6,940,0,'189.175.210.68',1198104295,1,0,1,1,1,1,'','','Felices fiestas para todos !!!\n\ny que sus deseos sean cumplidos en el proximo 2008\n\nsaludos cordiales.','',0,'AIA=','2smkc1rm',1,0,'',940,0,0),(44450,9286,3,868,0,'219.64.121.60',1198104495,1,0,1,1,1,1,'','','Schema prefix is to be used with table names as &lt;schema&gt;.&lt;table&gt;.  It is always a safe and good programming practice to use schema prefix for all tables in oracle','',0,'AIA=','1kwy0s2x',1,0,'',868,0,0),(44451,9288,3,1011,0,'203.84.187.62',1198105853,1,0,1,1,1,0,'','How to protect group of lines in a page using TReport Class','Hello,\n\nIs there an easier way to protect group of lines in a page when printing?\nExample:\n\n##.    My Name Here         Info 1\n                                       Info 2\n                                       Info 3\n\n##.    My Other Name       Info 1\n                                       Info 2\n                                       Info 3\n\nSometimes, Info 3 in \'My Other Name\' gets separated to a new page.\n\nAny insights would be very much appreciated.\n\nToyet','',0,'AIA=','xpq234tl',1,0,'',1011,0,0),(44452,9271,20,49,0,'62.13.172.67',1198105938,1,0,1,1,1,1,'','','POSSO FARE QUESTE COSE ?\n[img:152xsocl]http&#58;//img85&#46;imageshack&#46;us/img85/6993/homeprogressbarjb5&#46;png[/img:152xsocl]','',0,'CA==','152xsocl',1,0,'',49,0,0),(44453,9270,6,43,0,'189.188.13.92',1198107432,1,0,1,1,1,0,'','','Que estas fiestas sean placenteras para todos\n\n\nFELICIDADES A TODA LA COMUNIDA FW........  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nSaludos\nMarco A. Delgado.','',0,'CA==','2ec8b1dk',1,0,'',43,0,0),(44454,9286,3,35,0,'65.188.6.143',1198110643,1,0,1,1,1,0,'','','nageswaragunupudi\n\nWOW ... thanks for the great answer .. I will try your code in the morning. I was using the DNS name of the server for the source .. I do have a tnsnames.ora file .. I think the tns name is \'efis.world\' .. The schema is \'suntrack\' .. so my guess will be to use :\n\nxPROVIDER := \"MSDAORA\" \nxSOURCE := \"EFIS.world\" \nxUSERID := \"me\" \nxPASSWORD := \"mypassword\" \n\n\noRs := TOleAuto():New( \"ADODB.Recordset\" ) \noRs:CursorType := 1 // opendkeyset \noRs:CursorLocation := 3 // local cache \noRs:LockType := 3 // lockoportunistic \n\ncSQL := \"SELECT * FROM Suntrack.EFIS_UST_RELEASES\" \n\nTRY \noRS:Open(cSQL,\'Provider=\'+xPROVIDER+\';Data    Source=\'+xSOURCE+\';User Id=\'+xUSERID+\';Password=\'+xPASSWORD ) \n* oRs:Open(cSQL, \"Provider=madaora;Data Source=efis;Persist Security Info=False;User ID=suntrack;Password=goefis10\" ) \nCATCH oErr \nMsgInfo( \"Error in Opening EFIS_UST_RELEASES table\" ) \nCLOSE DATABASES \nQUIT \nEND TRY','',0,'CA==','1sgzgaqt',1,0,'',35,0,0),(44455,9286,3,868,0,'210.212.216.67',1198111479,1,0,1,1,1,1,'','','Data Source = \'efis.world\'.\n\nFor some reasons i did not like the .world extention. Had some issues with it. All our client installations have tns names without the .world.  \n\nPlease try efis.world first as the data source name.  you should be able to connect.\n\nI once again recommend opening the connection object only in the beginning of the program. Check the validity of connection, check if it is open ( oCon:State == 1 ) and then proceed with rest of the work.  At the end of program, close the connection with oCon:Close.\n\nFor opening recordsets, use oCon object in the place of the connection string each time.\n\nThis apporach has a lot more advantages than I could explain in the earlier post.  \n\nWe do see many asp page sources with total connection string while opening recordsets.  That is a 3-tier architecture and a different environment of stateless connections and disconnected recordsets.\n\nFor client-server programming ( 2-tier ) what I proposed is the best. You may consider if you like.','',0,'CA==','35abnzbx',1,0,'',868,0,0),(44456,9286,3,35,0,'65.188.6.143',1198111869,1,0,1,1,1,0,'','','nageswaragunupudi \n\nWas curious to try your code .. your error message was much more informative than just \'e_fail\' ..\n\nI got this message that \n\n\'Oracle client and networking componants not found. These componants are supplied by Oracle Corp and are part of the Oracle Version 7.3.3 or later client software installation. Provider is unable to function until these componants are installed. Microsoft OLE DB Provider for Oracle\'\n\nI was hoping MSDAORA would have everything I need .. I do have the thick client of Oracle 6i on my machine .. but I don\'t believe this is what I need .. further research on the client is the first order of business in the morning ..\n\nMany Thanks\n\nRick Lipkin\n\nps .. I took your code on the connection and used it .. your \'catch\' error was much better .. I did try both \'efis\' and \'efis.world\' .. got the same result.','',0,'CA==','okqj6wjr',1,0,'',35,0,0),(44457,9254,3,49,0,'62.13.172.67',1198115291,1,0,1,1,1,1,'','','OTTO,\nSORRY I WAS AWAY..\n\nI use xmate to create all Applications, LIBs and DLL from 4 year  and I never had problems, with xmate I can to controll al( warnings ecc),create input dialog from dbf ..and save on rc or prg ....I can edit each files and compile and run it.\n\nXmate is My desktop work...!!!!','',0,'CA==','2j8xkwlb',1,0,'',49,0,0),(44458,9254,3,49,0,'62.13.172.67',1198115422,1,0,1,1,1,1,'','','Antonio,\n\nNow tmsgitem run ok ith office 2007 like \n\nYOU must found only a solution for the noinset /inset command','',0,'CA==','1vvq069c',1,0,'',49,0,0),(44461,9286,3,868,0,'210.212.216.67',1198119128,1,0,1,1,1,1,'','','You have to install oracle 10g client that comes along with oracle server software. After installing, you should configure TNS names.   Only then our software runs on your PC.\n\n( note:  we need the client software on the user pc for every RDMS. For ADS we put the DLLs in the appn directory.  Windows comes with MSSQL client software preloaded. )\n\nNow you need to install Oracle 10g client on every PC in your office that uses your software and configure on every PC the tns names to match what you use in your software.  For reasons of safety you shd ensure removal of tools like SQL plus from all those PCs (except yours)','',0,'EA==','27ktbb8o',1,0,'',868,0,0),(44462,9279,6,72,0,'201.137.93.49',1198119304,1,0,1,1,1,0,'','','Fiuu!, parece que lo logre:\n\n[url=http&#58;//imageshack&#46;us:3qyp8swm][img:3qyp8swm]http&#58;//img179&#46;imageshack&#46;us/img179/9785/dibujoji0&#46;jpg[/img:3qyp8swm][/url:3qyp8swm]\n\nSe han agregado dos nuevos parámetros a las series (nType y l3D) con lo cual se puede indicar el tipo de gráfico y la vista.\n\noGraph:AddSerie( aVals, cLegend, nColor, nType, l3D )\n\nNo obstante ahora la varible de instancia l3D por definición es .F. por lo que será necesario indicarla si se desea el efecto de profundidad.\n\nDescagrar: <!-- m --><a class=\"postlink\" href=\"http://despachoarteaga.com.mx/TG-Test.zip\">http://despachoarteaga.com.mx/TG-Test.zip</a><!-- m -->','',0,'GA==','3qyp8swm',1,0,'',72,0,0),(44463,9145,3,239,0,'61.141.135.223',1198124846,1,0,1,1,1,0,'','','Antonio,\n  mysql server 5.0  include files:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/24411-93022051f2.html\">http://www.hotshare.net/file/24411-93022051f2.html</a><!-- m -->\n\nRegards!\nShuming Wang','',0,'GA==','jv3v1ysz',1,0,'',239,0,0),(44464,9254,3,2,0,'87.218.146.214',1198137726,1,0,1,1,1,1,'','','function Gradient() should not be used because it is quite slow and consume a lot of GDI resources.\n\nFWH 7.12 uses StretchBlt() instead of Gradient(). The solution must use StretchBlt(), not Gradient()','',0,'GA==','4y1orq6o',1,0,'',2,0,0),(44465,9145,3,2,0,'87.218.146.214',1198137873,1,0,1,1,1,1,'','','Shuming,\n\nThanks!','',0,'GA==','196zn03t',1,0,'',2,0,0),(44466,9145,3,2,0,'87.218.146.214',1198138249,1,0,1,1,1,1,'','','Darrell,\n\nHere you have the libraries,\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/24443-2450987182.html\">http://www.hotshare.net/file/24443-2450987182.html</a><!-- m -->','',0,'GA==','2x0jog6s',1,0,'',2,0,0),(44467,9254,3,868,0,'210.212.216.67',1198139172,1,0,1,1,1,1,'','','Yes. And that is  what we are waiting for in the next version.  \n\nAbout the inset issue,  msgbars without 2007 style react correctly to the noinset or inset clause.  \n\nI thought it was the intention that in the 2007stye there would be no inset. I am not expecting inset will be provided in 2007style. Am I wrong?','',0,'GA==','1hjjs097',1,0,'',868,0,0),(44468,9260,3,868,0,'210.212.216.67',1198139455,1,0,1,1,1,1,'','','Just to serve as remainder in case this post unfortunately missed Mr. Antonio\'s attention please.','',0,'GA==','nz4vr8bb',1,0,'',868,0,0),(44469,9254,3,49,0,'213.82.134.66',1198139498,1,0,1,1,1,1,'','','Antonio,\nwhere I can found an sample of StretchBlt \'s use ?','',0,'GA==','3hrwuutn',1,0,'',49,0,0),(44470,9288,3,303,0,'72.220.181.80',1198140834,1,0,1,1,1,0,'','','Possibly you could use the start group codeblock; oReport:bStartGroup. You would have to write a routine to skip forward in the database and count the number of items in the group, compare this to see if there are enough lines left on the page, then either do a page feed, or just continue printing. I will take some effort, but I think it can be done.\n\nJames','',0,'GA==','lmh99n7s',1,0,'',303,0,0),(44471,9254,3,2,0,'87.218.146.214',1198141100,1,0,1,1,1,1,'','','Silvio,\n\nIn FWH 7.12 Class TMsgBar Method Paint()','',0,'GA==','ih9vrter',1,0,'',2,0,0),(44472,9260,3,2,0,'87.218.146.214',1198141165,1,0,1,1,1,1,'','','NageswaraRao,\n\nIts on our todo list. Thanks,','',0,'GA==','3u9pezhr',1,0,'',2,0,0),(44473,9254,3,49,0,'213.82.134.66',1198141179,1,0,1,1,1,1,'','','oops ...thanks in advance','',0,'GA==','1syqdt90',1,0,'',49,0,0),(44474,9289,17,1257,0,'195.93.60.34',1198142569,1,0,1,1,1,1,'','Extensions in ERRORSYSW.prg','Some extensions in errorsysw :\nSave up to 10 Errors, then start with nr. 1 again.\nPrivate messages on Bottom.\nNew formatted.\nBoth languages Englisch / German\n\nAs a new user, i don´t know what to do with the\n2 sample files. <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> [/code]','',0,'','343q02vm',1,0,'',1257,0,0),(44475,9193,6,1255,0,'201.122.38.237',1198142632,1,0,1,1,1,0,'','','Hola Carlos, Antonio, Alfredo y todos los demás amigos, ayer decidí regresar y darme otra oportunidad de migrar definitivamente a FWH, hace 2 años hice un intento y me encontré con muchas dificultades, ahora veremos si puedo. Hoy mismo compré la versión 7.12 (apenas la estoy desempacando) y estoy seguro que con la ayuda de todos podré por fin realizar la tan ansiada migración.\n\nEstoy algo empolvado porque ni siquiera estaba visitando los foros (que encuentro tan cambiados:-) pero espero ponerme pronto al corriente.\n\nAprovecho para desear a toda la comunidad FiveWinera muchas bendiciones en esta navidad y en todo el 2008.\n\nPor cierto Carlos, no eres el más viejo, en octubre cumplí 63 por lo que me llevo ese honor, aunque también soy el más joven de todos porque he sido joven por muchos más años que ustedes <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nQue Dios los Bendiga.\n\nManuel Mercado','',0,'','89bq618v',1,0,'',1255,0,0),(44476,9289,17,2,0,'87.218.146.214',1198142668,1,0,1,1,1,1,'','','Upload them to <!-- w --><a class=\"postlink\" href=\"http://www.hotshare.net\">www.hotshare.net</a><!-- w --> and copy here the download urls, thanks','',0,'','331mdwq5',1,0,'',2,0,0),(44477,9193,6,2,0,'87.218.146.214',1198142765,1,0,1,1,1,1,'','','Manuel,\n\nBienvenido a estos foros! \n\nUn placer y un honor tenerte aqui con nosotros <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1qb1egp8',1,0,'',2,0,0),(44478,9270,6,1059,0,'190.30.67.157',1198143406,1,0,1,1,1,0,'','','Antonio,\n\nComparto los augurios. Gracias a ti y a todos los compañeros del foro por toda la ayuda recibida y la muy buena predisposición a darla. \n\nDe corazón es mi deseo que pasen todos unas felices fiestas junto a los que aman.\n\nDesde San Nicolás, Buenos Aires, Argentina.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','2x0lm052',1,0,'',1059,0,0),(44479,9276,6,384,0,'189.23.199.138',1198143753,1,0,1,1,1,1,'','','[url:xmtbyyk1]http&#58;//www&#46;smorgasbordet&#46;com/pellesc/index&#46;htm[/url:xmtbyyk1]','',0,'EA==','xmtbyyk1',1,0,'',384,0,0),(44480,9198,3,297,0,'217.57.213.130',1198145570,1,0,1,1,1,0,'','','message was in second page...\nI need Holidays <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'EA==','34q29j7f',1,0,'',297,0,0),(44481,2983,6,24,0,'80.24.12.168',1198145999,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:ls3bfswf]Biel,\n\n&gt;\nEl error es practicamente calcado al que reporta Rafa, y seguramente no tiene nada que ver con el tooltip, sino con alguna clase que este utilizando en la cual no esta definido la CLASSDATA.\n&gt;\n\nCierto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nHabría que revisar las clases (de controles definidos por el usuario) que esté usando y que no tengan esa CLASSDATA[/quote:ls3bfswf]\n\nBueno, yo me olvidé totalmente del tema simplemente quitando los tooltips.\nLo que veo es que estaba haciendo uso de una clase modificada;\nCLASS TButton, y no tenia declarado lRegistered, pero es que la clase TButton tampoco lo tiene y he visto que hay algunas que tampoco lo tienen, como la clase TGet.\nLo que si he visto que los tabs, no lo tenia puesto, y se lo he puesto,\nera es porque es un copy/paste , pero de eso de hace tiempo.\n\nDe momento, parece que funciona correctamente!, espero que no se le vaya la olla.\nGracias por la ayuda!','',0,'gA==','ls3bfswf',1,0,'',24,0,0),(44482,9290,6,24,0,'80.24.12.168',1198146481,1,0,1,1,1,1,'','TBUTTON. Pasar ::Cargo a EVAL','Antonio, ¿ podria ser que la evaluacion de bAction, si estuviese definido la\nvariable Cargo , pasará esto en vez de Self ?\n\n     if ::bAction != nil\n	 Eval( ::bAction,iif(Empty(::Cargo), Self,::Cargo ) )\n     endif\n\nEl motivo es que de esta manera , puedo usar en una clase propia;\n\nMETHOD View() CLASS TMY  \n....\n cNumero := \"{|Self|Self:ViewDemo(\"+ str(z)+ \")}\"\n aoBtn[z] := TButton():New( X, 90, \"MEMO\", oFld:aDialogs[ nFolders ],,50,10,,, .F., .T., .F.,, .F.,,, .F. )\n  aoBtn[Z]:bAction := &amp;( cNumero )\n  aoBtn[Z]:Cargo := Self\n.....\n\nDe esta manera, es posible crear botones dinamicos que puedan llamar\na un method de la propia clase, no a un method de la clase de TButton.\n\nNo se si me explico <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nYo tengo modifica la clase TButton por este motivo, que viendo ahora el tema de los tooltips, pues me he puesto a recordad y lo comento por si pudiera ser una mejora, yo creo que si','',0,'','64vj8hqo',1,0,'',24,0,0),(44483,2983,6,2,0,'87.218.146.214',1198147868,1,0,1,1,1,1,'','','Rafa,\n\nLas clases propias de Windows no necesitan esa CLASSDATA','',0,'','38fm80fk',1,0,'',2,0,0),(44484,9281,6,956,0,'200.222.21.2',1198147956,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:20l7k8q1]Anderson,\n\nUna solución sencilla sería añadir espacios al final del texto del tooltip.\n\nLo has probado ?[/quote:20l7k8q1]\n\nJá testei mas não me atende.  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','20l7k8q1',1,0,'',956,0,0),(44485,9290,6,2,0,'87.218.146.214',1198148193,1,0,1,1,1,1,'','','Rafa,\n\nLo que comentas es útil pero no es estandard de FWH por lo que no podemos implementarlo pues podríamos romper código existente de aplicaciones de usuarios en donde se use cargo para otros fines','',0,'gA==','2irnvqys',1,0,'',2,0,0),(44486,9281,6,2,0,'87.218.146.214',1198148311,1,0,1,1,1,1,'','','Anderson,\n\nEn tooltips \"rectangulares\" lo hemos probado y funciona bien\n\nPrueba a usar un Chr( 9 ) al final de los espacios','',0,'gA==','13eq6d78',1,0,'',2,0,0),(44487,9283,6,9,0,'85.53.73.80',1198148416,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3e7ddgxs]Es compatible con Harbour y xHarbour[/quote:3e7ddgxs]\n\nAntonio,\n\nMe he bajado ADORDD y compilado el programa ACCES1.PRG, con xHarbour y las librerias USRRDD.LIB y ADORDD.LIB.-  Me da el siguiente error:\n\n//Error: Unresolved external \'_hb_itemGetSymbol\' referenced from C:\\XHARBOUR\\LIB\\USRRDD.LIB|usrrdd\n\n¿Alguna ayudita?\n\nFelices Fiestas','',0,'gA==','3e7ddgxs',1,0,'',9,0,0),(44488,9283,6,2,0,'87.218.146.214',1198148673,1,0,1,1,1,1,'','','Manuel,\n\nParece que necesitas un build de xHarbour más reciente','',0,'gA==','1to63322',1,0,'',2,0,0),(44489,9291,3,868,0,'210.212.216.67',1198150157,1,0,1,1,1,1,'','TBAR ChangeBitMap method not found','Mr Antonio\n\nRPreview\'s method TwoPages calls oBar\'s changebitmap method.  Though Toolbar class has changebitmap method, Tbar class does not have that method.\nSo when the user preses the twopage button he gets  the error that this method is not found.\n\nKindly provide a fix please.','',0,'gA==','2isj6xcb',1,0,'',868,0,0),(44492,9254,3,49,0,'213.82.134.66',1198152738,1,0,1,1,1,1,'','','and msgbar2007 func ?\nwhy U not pubblished it?\nare there problems ?','',0,'CA==','3nki54mu',1,0,'',49,0,0),(44493,9290,6,49,0,'213.82.134.66',1198153462,1,0,1,1,1,1,'','','Antonio,\ncan modify BUTTON class to OFFICE LIKE 2007  ?\nHow I can make it ?','',0,'CA==','w1qj3y3m',1,0,'',49,0,0),(44494,9283,6,9,0,'85.53.73.80',1198154507,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:mds42sxm]Manuel,\n\nParece que necesitas un build de xHarbour más reciente[/quote:mds42sxm]\n\nAntonio gracias por tu respuesta.\n\nHasta hora, venia utilizando el xHarbour que  venia cuando adquirí FWH. He bajado la ultima version 1.0.0 (SimLex) de Diciembre/2007 y me da el siguiente error:  Unresolve external \'_HB_PCREPOS_LIBRARY\' from xHarbour\\Lib\\RTL.LIB\n\nMe imagino que tu no tienes nada que ver con xHarbour. Pero me podrias ayudar o decirme si hay otro sitio donde me pueda bajar una versión de xHarbour sin problemas?\n\nMuchas gracias','',0,'gA==','mds42sxm',1,0,'',9,0,0),(44495,9278,6,430,0,'157.100.146.2',1198155774,1,0,1,1,1,0,'','','Antonio\n\nEl error es el siguiente:\n\nApplication\n===========\n   Path and name: C:\\Sicef_xH\\SicefWin.Exe (32 bits)\n   Size:   697,344 bytes\n   Time from start: 0 hours 5 mins 22 secs \n   Error occurred at: 19/12/2007, 21:12:28\n   Error description: Error BASE/1005  Message not found: TWBROWSE:_LADJLASTCOL\n\nStack Calls\n===========\n   Called from:  =&gt; TWBROWSE:ERROR(175)\n   Called from: tobject.prg =&gt; (b)HBOBJECT:HBOBJECT(105)\n   Called from:  =&gt; TWBROWSE:MSGNOTFOUND(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:_LADJLASTCOL(167)\n   Called from: sicefwin.prg =&gt; EDITAR(0)\n   Called from: sicefwin.prg =&gt; (b)INICIO(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:CLICK(0)\n   Called from: BTNBMP.PRG =&gt; TBTNBMP:LBUTTONUP(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBTNBMP:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: sicefwin.prg =&gt; INICIO(0)\n\nComente la linea donde se hace el llamado al metodo LADJLASTCOL y se elimina el error, pero esto no me pasaba en FW.\n\nSaludos\n\nFernando Espinoza','',0,'gA==','1o0px3qj',1,0,'',430,0,0),(44496,9292,6,1236,0,'201.86.89.128',1198155815,1,0,1,1,1,0,'','Como saber o qual é o OBJETO corrente?','Como saber o qual é o OBJETO corrente?\n\nObrigado','',0,'gA==','3c4zdhv9',1,0,'',1236,0,0),(44497,9286,3,35,0,'167.7.140.254',1198156281,1,0,1,1,1,0,'','','nageswaragunupudi\n\nI gathered as much about the client .. was hoping to avoid any complicated setups .. We currently have a \'very ugly\' fat client Oracle forms 6i client .. over 1200 some .fmx forms that get depolyed to over 100 servers   <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> .\n\nI saw on the Oracle website the Quick 10 or 11i client download .. would this work ( do you think ) or do I need to just go back to the Oracle 10g disk and install the client files ??\n\nRick Lipkin','',0,'gA==','2kj7yduz',1,0,'',35,0,0),(44498,9293,6,430,0,'157.100.146.2',1198157507,1,0,1,1,1,0,'','Clase TFolder en FWH 2.7','Al migrar a FWH un dialogo que tengo con un Folder con 4 pestañas, no me funciona bien; solo aparece el primer dialogo y no se muestran las pestañas para visualizar los otros 3 dialogos; esto funcionaba muy ben en FW.\n\nEl código que uso es el siguiente:\n\nDEFINE DIALOG oDlgALIN RESOURCE \"ALINEACION\" OF VENT\n   REDEFINE FOLDER oFld ID 101 OF oDlgALIN ;\n         PROMPTS EQLOC, EQVIS, \"Penales errados\", \"Observaciones\" ;\n         DIALOGS \"ALIN_LOCAL\", \"ALIN_VISITA\", \"ALIN_PENERR\", \"ALIN_OBSER\"\n* Datos del equipo local\n   REDEFINE GROUP oGrp ID 8101 OF oFld:aDialogs[1]\n   REDEFINE RADIO oRad[1] VAR TDIL ID 8102,8103 OF oFld:aDialogs[1] ON CHANGE CambioRad(GLOC,1)\n   REDEFINE LISTBOX oLbx[1] VAR JSEL ITEMS LOC ID 8105 OF oFld:aDialogs[1] ON DBLCLICK {|| IF(TDIL=1,IngrJug(JSEL,1,oDlgALIN),IngrGol(JSEL,1,GLOC,oDlgALIN))} UPDATE\n   REDEFINE BUTTON oBut[1] ID 8106 OF oFld:aDialogs[1] MESSAGE \"Selecciona otro jugador\" ACTION IF(OtroJugad(1,oDlgALIN,1),IF(TDIL=1,IngrJug(JSEL,1,oDlgALIN),IngrGol(JSEL,1,GLOC,oDlgALIN)),)\n   REDEFINE BUTTON oBut[2] ID 8107 OF oFld:aDialogs[1] MESSAGE \"Ingresa jugador debutante\" ACTION IF(NombreDeb(oDlgALIN,1,1),IF(TDIL=1,IngrJug(JSEL,1,oDlgALIN),IngrGol(JSEL,1,GLOC,oDlgALIN)),)\n\nY continúa ....\n\nAlguna idea, sobre en que estoy fallando, o hay que poner algo adicional en FWH.\n\nFernnado Espinoza','',0,'','27dvdsr0',1,0,'',430,0,0),(44499,9247,7,720,0,'80.36.244.134',1198157913,1,0,1,1,1,0,'','','Hola a todos..\n\nYo también estoy buscando información de como hacer este tema pero no encuentro nada de nada. Incluso he escuchado que windows deja oculto y encriptado ese tipo de información en el registro (no se si esto es del todo cierto).  Agradeceria cualquier tipo de información, ya que la implementación de esto, en mi caso, me ahorraria mucho tiempo cuando en el cliente el PDA se quede sin bateria....\n\n\nSaludos y gracias.\n\nElías Torres.','',0,'','6ubn48mi',1,0,'',720,0,0),(44500,9277,3,267,0,'201.9.135.104',1198158315,1,0,1,1,1,1,'','','Antonio,\n\nI Sended for you e-mail.','',0,'','3ltlp1nf',1,0,'',267,0,0),(44501,9269,6,1201,0,'200.90.17.154',1198158715,1,0,1,1,1,0,'','','Estimado Antonio,\n\nMe parece que Hay que revisar la clase codigo de Tget, ya que efectúa el ON CHANGE Retrasado (entre otros detallitos)\n\nSolucioné mi problema utilizando la clase tget, de una versión anterior (La que utiliza GianCarlos)\n\nAunque no fué una solución muy elegante y es provisional, por lo menos puedo seguir adelante.\n\nFelices fiestas y que la Salud, Paz, Felicidad y Prosperidad acompañen a Ti y a todos los compañeros del Mundo, Sinseramente les deseamos desde este  humilde rincón Venezolano.\n\n\nCon Afecto Infinito:\nAngel D. Blanco y los compañeros anónimos de esta oficina, en\nValencia, Venezuela','',0,'','jx6kdol1',1,0,'',1201,0,0),(44502,9293,6,1201,0,'200.90.17.154',1198159079,1,0,1,1,1,0,'','','EDITA TU ARCHIVO DE RECURSOS Y SUSTITUYE EN LOS CONTROLES TFOLDER POR \"SYSTABCONTROL32\"\n\nPOR EJEMPLO:\n\nCONTROL \"TFolder\", 501, \"SYSTABCONTROL32\", 0 | WS_CHILD | WS_VISIBLE, 0, 81, 399, 148\n\nESTE ES UN \'DETALLITO\' QUE ME ENCONTRÉ CUANDO MIGRÉ HACIA LAS NUEVAS VERSIONES DE FIVEWIN\n\nFelicidad, Paz, Prosperidad y Salud\nAngel Blanco\nVenezuela','',0,'','27c6ozgo',1,0,'',1201,0,0),(44503,9286,3,868,0,'219.64.121.60',1198160375,1,0,1,1,1,1,'','','[quote:1xjawhjc]\nI saw on the Oracle website the Quick 10 or 11i client download .. would this work ( do you think ) or do I need to just go back to the Oracle 10g disk and install the client files ??\n[/quote:1xjawhjc]\n\nI did not try the thin clients. But I had enough information from oracle colleagues not to try. Till you read more ( I shall also now look into this seriously) and do some experiements I do not advise you to go for the so called thin clients now.\n\nPlease do install oracle 10g client by all means from the package provided by the oracle inc.  It does not really take too much space, but it works well and you can develop your applications. One big advantage is during developent of complex applications you need not consider any problems from the client.\n\n[quote:1xjawhjc]\nwas hoping to avoid any complicated setups\n[/quote:1xjawhjc]\nIt is not really complicated,  though not as simple as others. Well we have to do some extra work to get the real power of Oracle which still has no parallel. ( not talking about DB2)\n[quote:1xjawhjc]\nWe currently have a \'very ugly\' fat client Oracle forms 6i client .. over 1200 some .fmx forms that get depolyed to over 100 servers\n[/quote:1xjawhjc]\nIt is high time we get rid of the old style forms development and deployment ( unless you use the new tools to make it webbased). But sure if you develop applications in fwh+xharbour we dont need the forms.\nYou dont have  to install oracle developer and forms.  Just install the client.','',0,'gA==','1xjawhjc',1,0,'',868,0,0),(44504,9283,6,2,0,'87.218.146.214',1198161322,1,0,1,1,1,1,'','','Manuel,\n\n&gt; Unresolve external \'_HB_PCREPOS_LIBRARY\' from xHarbour\\Lib\\RTL.LIB \n\nEs que ahora tienes que enlazar pcrepos.lib tambien (es una librería de xHarbour)\n\nPuedes descargar los builds más recientes de Harbour y xHarbour desde aqui:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'gA==','23an02fy',1,0,'',2,0,0),(44506,9269,6,2,0,'87.218.146.214',1198161782,1,0,1,1,1,1,'','','Angel,\n\nEnvíame el PRG por email, gracias','',0,'gA==','1o2ffuxu',1,0,'',2,0,0),(44507,9278,6,2,0,'87.218.146.214',1198162988,1,0,1,1,1,1,'','','Fernando,\n\n&gt;\nComente la linea donde se hace el llamado al metodo LADJLASTCOL y se elimina el error, pero esto no me pasaba en FW.\n&gt;\n\nQue browse estas usando ? De Hernán, de Manuel Mercado ?\n\nNingún browse de los proporcionados en FiveWin (TWBrowse, TCBrowse, TXBrowse) usa LADJLASTCOL','',0,'gA==','wysx6xm3',1,0,'',2,0,0),(44508,9254,3,2,0,'87.218.146.214',1198163228,1,0,1,1,1,1,'','','Its an internal function\n\nWe may publish it further on','',0,'gA==','xo0b27zc',1,0,'',2,0,0),(44509,9279,6,72,0,'189.146.239.78',1198165310,1,0,1,1,1,0,'','','Se me pasó comentar que agregué una nueva variable lLine para mostrar una linea sobre gráficos de tipo barras, en algunos casos puede dar mayor impacto a la vista.','',0,'gA==','146dah9c',1,0,'',72,0,0),(44510,9294,6,21,0,'87.220.91.144',1198166969,1,0,1,1,1,1,'','duda sobre mdi','Hola foro,\n\nTengo un sistema que permite ventanas mdi\n\nEn cada ventana aparece un botón que entre las tareas que hace, una es llamar a una función que es común a todas las ventanas.\n\nExiste la posibilidad de saber en esa función desde que mdi ha sido llamada?','',0,'gA==','pi7dsvrf',1,0,'',21,0,0),(44511,9145,3,234,0,'75.34.217.174',1198167857,1,0,1,1,1,1,'','','Hi Antonio,\n\nThank you! I will download immediately.\n\nThank you everyone!!!\n\nHappy Holidays\n\nRegards,','',0,'gA==','1rz0rtfv',1,0,'',234,0,0),(44512,9193,6,53,0,'189.139.98.105',1198168703,1,0,1,1,1,1,'','','Manuel:\n\nCaramba  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> . cuanto tiempo ?. Me alegra saber que estas de vuelta a la lid y bienvenido.\n\nSeguramente con tu capacidad y el apoyo de todo este hermoso foro pronto habras saltado al mundo de los 32bits.\n\nCon afecto, Armando','',0,'gA==','34gcgaxe',1,0,'',53,0,0),(44513,9295,6,278,0,'190.95.19.228',1198171168,1,0,1,1,1,1,'','Problemas graves con recursos en varios RES','Hola FORO:\n\nEstoy con un problema grave, no hay caso no se si es un error de FWH o mio, o no se como hacerlo, pero no puedo leer  ningun recurso guardado en un segundo o tercer archivo RES. \n\n1) Los recursos se guardan dentro del EXE, pues si los veo con algun programa examinador de recursos, como el resource explorer, estan todos los dialogos y bmp, pero no los puedo usar desde mi programa.\n\n2) Hay algo adicional que poner al llamarlos, para decirle de que archivo es ? , porque no hay caso, no me  funcionan !! \nYo me imagino que se deberian usar en forma directa.\n\n3) Proble, incluso con un archivo pequeño, nuevo de un simple dialogo y bmp, se guardan OK en el EXE, pero no los puedo usar, al llamarlos.\n\n4) Estoy usando PellesC y Verce 5.0 , para unirlos.\n\nAlguien que utilice el Verce 5, me puede decir como lo hacen ??\n\nAlguna idea o ayudita porfis !!. \n\nSaludos a todos,','',0,'gA==','74stfcnc',1,0,'',278,0,0),(44514,8768,3,51,0,'80.122.88.242',1198171293,1,0,1,1,1,0,'','','Antonio, I found the problem.   \n\nMETHOD PaintData\n\nIf you have only a bmp elseif AL_LEFT is never executed.\n\nI  comment out the whole if endif and use:\nnBmpCol := nCol\nThis way the bmp\'s are displayed correctly. \nRegards\nOtto\n\n\n\n      if ::bStrData == nil\n         nBmpCol := nCol    + ( ( nWidth - aBitmap[ BITMAP_WIDTH ] ) / 2 ) + 2\n\n       elseif ::nDataBmpAlign == AL_LEFT\n         nBmpCol := nCol\n         nCol    += aBitmap[ BITMAP_WIDTH ] + BMP_EXTRAWIDTH\n      else\n         nBmpCol := nCol + nWidth\n      endif','',0,'','32gb8nke',1,0,'',51,0,0),(44515,9193,6,110,0,'148.168.40.4',1198172374,1,0,1,1,1,1,'','','Bienvenido Maestro\nun placer contar con usted, y un honor poder asistirle en cualquier problema.\n\nsalu2\ncarlos vargas','',0,'','uphls2ot',1,0,'',110,0,0),(44516,9193,6,179,0,'64.46.80.210',1198174345,1,0,1,1,1,1,'','','Maestro Manuel Mercado\nPrimeramente permitame congratularme al saber que esta en buen estado de salud y que va a regresar a los foros\nMe ha causado una gran conmocion su regreso ya que supongo dara soporte a sus magnificas clases TSxxxxx \ny como decia el maestro Antonio ES UN HONOR el estar en un foro con su persona\n\nUn abrazo desde Quito - Ecuador\n\nAtt','',0,'','1w7wmfjh',1,0,'',179,0,0),(44517,9294,6,1236,0,'201.86.89.128',1198176081,1,0,1,1,1,0,'','','if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle \n     ....','',0,'','hlpxrrg7',1,0,'',1236,0,0),(44518,9296,3,448,0,'83.132.134.79',1198176748,1,0,1,1,1,0,'','linking Class TActiveX from FWH instead of xHB comercial','Hello,\n\nHow can I link the Tactivex class from FWH instead of the one from xHB ?\n\nAntonio','',0,'','2csf7rge',1,0,'',448,0,0),(44519,9145,3,234,0,'75.34.217.174',1198177138,1,0,1,1,1,1,'','','Hi Antonio,\n\nI have getting the following error. I have also attached my link batch file below.\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_RDDSETFIELDEXTENT\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|TRDD\nError: Unresolved external \'_HB_FUN_RDDADDFIELD\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|TRDD\nError: Unresolved external \'_HB_FUN__TRDD\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|TRDD\nError: Unresolved external \'_HB_FUN_INIODBC32\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|TRDDODBC\nError: Unresolved external \'_HB_FUN_ENDODBC32\' referenced from C:\\FWH\\LIB\\FIVEHX.LIB|TRDDODBC\n\n-- LINK BATCH FILE --\n\ndel sql.exe\n\nset hdir=c:\\xHarbour\n\n@echo c0w32.obj + &gt; b32.bc\n@echo sql.obj, + &gt;&gt; b32.bc\n@echo sql.exe, + &gt;&gt; b32.bc\n@echo sql.map, + &gt;&gt; b32.bc\n@echo c:\\fwh\\lib\\FiveHx.lib c:\\fwh\\lib\\FiveHC.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\rtl.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\vm.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\gtgui.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\lang.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\macro.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\rdd.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\dbfntx.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\dbfcdx.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\hbsix.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\dbffpt.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\debug.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\common.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\ct.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\pp.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\tip.lib + &gt;&gt; b32.bc\n@echo %hdir%\\lib\\pcrepos.lib + &gt;&gt; b32.bc\n@echo c:\\fwh\\lib\\mysql.lib c:\\fwh\\lib\\libmysql.lib + &gt;&gt; b32.bc\n@echo c:\\borland\\bcc55\\lib\\cw32.lib + &gt;&gt; b32.bc\n@echo c:\\borland\\bcc55\\lib\\import32.lib + &gt;&gt; b32.bc\n@echo c:\\borland\\bcc55\\lib\\psdk\\odbc32.lib + &gt;&gt; b32.bc\n@echo c:\\borland\\bcc55\\lib\\psdk\\rasapi32.lib + &gt;&gt; b32.bc\n@echo c:\\borland\\bcc55\\lib\\psdk\\nddeapi.lib + &gt;&gt; b32.bc\n@echo c:\\borland\\bcc55\\lib\\psdk\\iphlpapi.lib, &gt;&gt; b32.bc\n@echo sql.res &gt;&gt; b32.bc\nc:\\borland\\bcc55\\bin\\ilink32 -Gn -aa -Tpe -s -v @b32.bc &gt; link.log','',0,'','3a9tc16i',1,0,'',234,0,0),(44520,9277,3,267,0,'201.9.135.104',1198177238,1,0,1,1,1,1,'','','Antonio, \n\nYou it received the Memory.zip archive?','',0,'','1bzj2psg',1,0,'',267,0,0),(44521,9279,6,278,0,'190.95.19.228',1198180194,1,0,1,1,1,1,'','','[b:28alqeym]GRACIAS POR MIL[/b:28alqeym] Alfredo , es gusto lo que necesitaba, esta super bueno.\n\nLo voy a probar al tiro y les cuento.\n\nExcelente tu trabajo, te felicito.\n\nSaludos,','',0,'QA==','28alqeym',1,0,'',278,0,0),(44522,9297,6,41,0,'200.87.162.67',1198180359,1,0,1,1,1,0,'','Una duda sobre objetos','Hola foro,\n\nrecuerdo que en 16 bits (no se si era por eso), las datas de los objetos no podian pasar de 9 caracteres ya que se tenia que tomar en cuenta el caracter _.\n\nLa pregunta es si ahora con 32 bit no hay problema, la pregunta la hago referente a utilizar campos de tablas ADT con nombres de mas de 8 caracteres, ya que tengo problemas utilizando la clase tDatabase de FW con campos como el mencionado. Hay alguna manera de mejorar esto?\n\nsaludos\n\nMarcelo','',0,'QA==','2k42d367',1,0,'',41,0,0),(44523,9298,6,36,0,'164.77.81.210',1198181685,1,0,1,1,1,1,'','status bar','Hay alguna forma de usuar los status bar al estilo 2007','',0,'QA==','eq9sm6hj',1,0,'',36,0,0),(44524,9297,6,2,0,'87.218.146.216',1198182038,1,0,1,1,1,1,'','','Marcelo,\n\nLos nombres de las DATAs no tienen limitación pero si la siguen teniendo los nombres de los campos de los DBFs.\n\nEsto es debido a la necesidad de mantener compatibilidad con la estructura de los ficheros DBF','',0,'QA==','u0m0ansy',1,0,'',2,0,0),(44525,9294,6,2,0,'87.218.146.216',1198182208,1,0,1,1,1,1,'','','oWnd:oWndClient:GetActive() --&gt; oMdiChild','',0,'QA==','14wlb00w',1,0,'',2,0,0),(44526,9193,6,156,0,'201.244.244.43',1198183331,1,0,1,1,1,0,'','','Maestro Manuel:\n\nQué gratísima noticia tenerte de vuelta por estos lares. Me alegro mucho que estés bien de salud y por favor cuenta conmigo en tu proceso de migración. Para mí será un honor ayudarte en lo que esté en mi humilde alcance. Entre jovenes viejos nos sacaremos esto adelante  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nUn fuerte abrazo y felíz navidad para tí y los tuyos, y para todos los compañeros fivewineros,\n\nCarlos Gallego','',0,'QA==','rv1lutac',1,0,'',156,0,0),(44527,9193,6,156,0,'201.244.244.43',1198183505,1,0,1,1,1,0,'','','Carlos Sincuir:\n\nHola amigo, no me he olvidado de enviarte los ejemplos de uso de DLL. Lo que pasa es que he estado atareado con unos exámenes médicos que espero terminen mañana y me pogo a la tarea.\n\nSaludos,\n\nCarlos Gallego','',0,'QA==','11gwccg1',1,0,'',156,0,0),(44528,9299,2,1258,0,'190.82.230.100',1198184138,1,0,1,1,1,0,'','abrir un archivo usando nombre un un dato guardado en archiv','Saludos, amigos programo en FW2.7 + clipper 5.3 + blinker, tengo el siguiente problema, necesito abrir un archivo cuyo nombre lo tengo almacenado en una base de datos, es decir:\n\nTABLA-NOM_BAS = char(8)\n\nTABLA-NOM_BAS   ( P111 ),  (p112), (p304), es decir segun lo que se almacene en TABLA, se crea un archivo con ese nombre y lo hace bien, pero cuando lo quiero abrir como :\n\n\n\nuse (tabla-nom_bas)\ny nada\n\nbase = tabla-nom_bas\nuse (base) nada\n\nuse &amp;base\n\nnada\nme sale error dbfcdx/1020','',0,'QA==','tc8u0dv7',1,0,'',1258,0,0),(44529,9300,3,51,0,'80.122.88.242',1198185552,1,0,1,1,1,0,'','xBrowser','Thank you Antonio.\nMy first xBrowser is implemented  and substituting the TWbrowse.\n\nIt is all in bmp, diverse fonts per row and column, vertical font on header,\n2007 look\n\n[img:kbovvh42]http&#58;//www&#46;atzwanger&#46;com/fw/rg&#46;jpg[/img:kbovvh42]','',0,'CA==','kbovvh42',1,0,'',51,0,0),(44530,9283,6,9,0,'85.53.73.80',1198185797,1,0,1,1,1,1,'','','Antonio, \n\nHe descargado e instalado la versión de xHarbour de Dic/2007 y recompilado la librería personal que uso.\n\nAl compilar el primer programa con Verce, lo hace correctamente, pero al ejecutarlo, me saca el siguiente error:\n\'ALERT.PRG\' was compiled by older version, PCODE version 7 is no longer supported - Please recompile.\n\nUtilizo la versión de FWH 2.7 Abril/2006.- ¿Puede ser esta la razón? En caso afirmativo, que ultima versión de xHarbour puedo usar con esta versión de FWH?.\n\nGracias por tu ayuda.','',0,'CA==','1nyw4ith',1,0,'',9,0,0),(44531,9301,3,34,0,'68.5.217.82',1198185951,1,0,1,1,1,1,'','Shell Execute a Window','The following button opens a window with an AIM chat control.  It works.  The problem is that the chat control is small and the window is quite large.   I\'d like to reduce the size of the window to frame the chat control.  Any thoughts ?\n\n DEFINE BUTTON OF oReBar RESOURCE \"CHAT\" ACTION ShellExecute(NIL, \"open\",  \"http://www.masterlinksoftware.com/techchat.htm\") TOOLTIP \"Chat With Technician\"\n\nThanks ... and Merry Christmas or Happy Holidays','',0,'CA==','39pbomy4',1,0,'',34,0,0),(44532,9286,3,35,0,'167.7.140.254',1198185959,1,0,1,1,1,0,'','','nageswaragunupudi \n\nWe are actually running Oracle version 9.2.0.6 .. not 10g as I origionally thought. I have the Ora9i cd and have installed the client portion of the 3 disk cd .. still getting the version 7.3.3 error \n\nAny thoughts or pointers ??\n\nRIck','',0,'CA==','ym716rod',1,0,'',35,0,0),(44533,9302,3,161,0,'81.83.249.31',1198186016,1,0,1,1,1,0,'','Touchscreen','Hi,\n\nA client, using a my program and cash register,asked me for using a touchscreen instead of a mouse. I never used a touchscreen before but I suppose that there is a USB output to the PC that simulate the mouse position and left-click. Is that correct? \nThen I only have to program big buttons on the screen (each for a different product/group) for controlling the program.\n\nThanks,\nMarc','',0,'CA==','1h5uwqu0',1,0,'',161,0,0),(44534,9279,6,278,0,'190.95.19.228',1198188653,1,0,1,1,1,1,'','','Alfredo , lo probe pero no funciona en ventanas MDI.  No dan ningun error, solo que muestra los datos como antes. \n\nHay que hacer algun cambio para los MDI ??\n\n\nEn el Dialogo si funciono OK.\n\nSaludos,','',0,'CA==','1817x0q6',1,0,'',278,0,0),(44535,9302,3,51,0,'80.122.88.242',1198193627,1,0,1,1,1,0,'','','Hello Marc,\nthese touchscreens we use are on a COM port. \nThe functionallity is exactly as you descrip.\nRegards,\nOtto','',0,'CA==','3a21vud5',1,0,'',51,0,0),(44536,9299,2,2,0,'87.218.146.216',1198193757,1,0,1,1,1,1,'','','Prueba a quitarle los posibles espacios al final del nombre y comprueba si existe el fichero:\n\nMsgInfo( File( AllTrim( tabla-nom_bas ) ) )\n\nA ver si te muestra .T.','',0,'CA==','3efeajb4',1,0,'',2,0,0),(44537,9300,3,2,0,'87.218.146.216',1198194286,1,0,1,1,1,1,'','','Otto,\n\nVery good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','tec4zijy',1,0,'',2,0,0),(44538,9277,3,2,0,'87.218.146.216',1198194340,1,0,1,1,1,1,'','','Vilian,\n\nyes I got it, thanks, but had no time to review it yet','',0,'CA==','2kyzz90h',1,0,'',2,0,0),(44539,9283,6,2,0,'87.218.146.216',1198194415,1,0,1,1,1,1,'','','Manuel,\n\nTienes que recompilar todos los PRGs usados, incluidos todos los de FWH','',0,'CA==','3op4jjtq',1,0,'',2,0,0),(44540,9303,3,148,0,'82.201.235.82',1198194996,1,0,1,1,1,0,'','regardless screen resolution','I am suffering from porting side defects of my application from diferrent resolutions . I need the optimim (best) to avoid modifying my screen size for each resolution I face.\nWhat make my application compatible with all sizes and sreen resolutions\nThanks','',0,'CA==','1pxzsd53',1,0,'',148,0,0),(44541,9304,6,1035,0,'201.221.173.78',1198195094,1,0,1,1,1,1,'','Modo Diseño','Saludos Cordiales Colegas!!!\n\nComo puedo hacer una ventana y ponerla en modo Diseño?????\n\ny darle opciones para ingresarle todo tipo de controles de forma visual???\n\n\nSe que hay un ejemplo en la Clase TDesigner! pero no me queda muy claro! si alguien me puede dar un ejemplito sencillo?\n\n\nSe que hay un objeto ::oInspector = oIDE:oInspector\n\ny la propiedad  ::lDesign := .t.\n\ny despues\n\nFUNCTION ADD(oControl)\n::oInspector:oCombo:Add( oControl:cVarName + \" as \" + ;\n                          oControl:ClassName() )\nRETURN\n\n\ny para poner las lineas punteadas RectDotted( ::hWnd, ::nBoxTop,;\n                    ::nBoxLeft, ::nBoxBottom, ::nBoxRight )\n\n\nhay una funcion que supuestamente genera el codigo ::cGenPrg()\neste metodo no esta en esa fuente! es propio de la clase TWindow? ??\nno se digo!!\n\nPero quien hace a oIDE???\n\nYo me lo imagino una ventanita con una barra de botones para empezar! y de alli yo sigo! jejej construir eso con estas propiedades y metodos de mas! y listo\n\nRealmente asi seria lo que hay que hacer? o realmente eso no se puede?\no realmente es asi de sencillo pero no lo se implementar???\n\njejej Bueno Muchas gracias por todo!!!!','',0,'CA==','n38dol7f',1,0,'',1035,0,0),(44542,9281,6,104,0,'200.141.40.106',1198196251,1,0,1,1,1,0,'','','Olá Anderson,\n\nDê uma olhada neste link e vê se é isto que precisa: [url:ghqeqibn]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3623&amp;highlight=tooltip[/url:ghqeqibn]\n\nAbraços,\n\nRossine.','',0,'EA==','ghqeqibn',1,0,'',104,0,0),(44543,9303,3,239,0,'202.105.154.160',1198198057,1,0,1,1,1,0,'','','Ehab,\n  This is my simple modify sample:\n\ndialog.prg \n\n  METHOD Autoresize(ntop,nleft)\nlocal i,rsl0,rsl1,oCtrol,aRect\nDEFAULT ntop:=0\nDEFAULT nleft:=0\n\n   \n \n   rsl0:=getsysmetrics(0)/800\n   if rsl0&lt;=1; return ; end  //&lt;=800*600, not needed   \n   rsl1:=getsysmetrics(1)/600\n   for  i:=1 TO LEN(::acontrols)\n       oCtrol = ::aControls[i]\n       aRect = GetCoors( oCtrol:hWnd )\n       do case\n          case  oCtrol:classname()==\"TCOMBOBOX\"\n           oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1)\n          // case  oCtrol:classname()==\"TGET\"\n          // oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1,,(aRect[3] - aRect[1])*rsl0, .t. ) \n          otherwise\n           oCtrol:Move( aRect[1]*rsl0, aRect[2]*rsl1, (aRect[4] - aRect[2])*rsl1, (aRect[3] - aRect[1])*rsl0, .t. )        \n           // ntop,nleft,nbottom,nright\n       end case\n   next\n  \n    aRect = GetWndRect( ::hWnd )\n  \n    ::Move( ntop,nleft,::nWidth*rsl0, ::nHeight*rsl1, .T. )\n    \n    if ::lCentered\n      WndCenter( ::hWnd )\n   else\n      if Empty( ::cResName )\n         ::Move( ::nTop, ::nLeft )\n      endif\n   endif\n       \n\nreturn \n\nShuming Wang','',0,'','1jg5ggdk',1,0,'',239,0,0),(44544,9286,3,868,0,'219.64.121.60',1198202737,1,0,1,1,1,1,'','','Please check the PATH and make sure it points to the location of the new isntallation.   For example the path on this pc is \"PATH=C:\\oracle\\product\\10.2.0\\client_1\\bin;\"','',0,'','3d3wlybv',1,0,'',868,0,0),(44545,9300,3,868,0,'219.64.121.60',1198204311,1,0,1,1,1,1,'','','I feel xbrowse the best looking browses of all and the most powerful.  I have almost all my browses in xbrowse. \n\nIf only two improvements are done (1) make edit safe and reliable and (2) provide super (group) headers, xbrowse will be the best.','',0,'','ijk3nbz0',1,0,'',868,0,0),(44546,9193,6,171,0,'71.233.232.238',1198205642,1,0,1,1,1,0,'','','Manuel,\n\nUn saludo afectuoso y que alegria nos da verte de nuevo por aqui.\n\nEnhorabuena!!\n\nGeorge','',0,'','1vyk82c8',1,0,'',171,0,0),(44547,9279,6,72,0,'201.137.103.138',1198206828,1,0,1,1,1,0,'','','NPI, acá funciona.\n\nSi gustas enviame el programa con valores y trataré de ver el motivo.','',0,'','dk1dlqsb',1,0,'',72,0,0),(44548,9305,3,1193,0,'203.70.2.12',1198208516,1,0,1,1,1,0,'','How to count input word in TGet?','Hi \n\nthis function like Web site Send SMS input UI.\n\nRedefine GET ... ON CHNAGE....\n\nI need show how many space can input in  GET Object.\n\nThe problem is ON CHANGE can\'t Refresh other Object of FWH.\n\nSource code:\n***********************************\n   nLEFT1:=LEN(PAY-&gt;RMK1)-LEN(TRIM(PAY-&gt;RMK1))\n   nLEFT2:=LEN(PAY-&gt;RMK2)-LEN(TRIM(PAY-&gt;RMK2))\n\n   REDEFINE GET PAY-&gt;RMK1 ID 21 OF oDlg  ;\n      ON CHANGE LEFT_SHOW(1)             ;\n      UPDATE\n\n   REDEFINE GET PAY-&gt;RMK2 ID 23 OF oDlg  ;\n      ON CHANGE LEFT_SHOW(2)             ;\n      UPDATE\n\n   REDEFINE SAY oLEFT1 PROMPT nLEFT1 PICTURE \"99\"  ID 12 OF oDlg ;\n       UPDATE\n\n   REDEFINE SAY oLEFT2 PROMPT nLEFT2 PICTURE \"99\"  ID 14 OF oDlg ;\n       UPDATE\n....\n************************\nSTATIC FUNCTION LEFT_SHOW(nLINE)\n\n   DO CASE\n      CASE nLINE=1\n         nLEFT1:=LEN(PAY-&gt;RMK1)-LEN(TRIM(PAY-&gt;RMK1))\n\n         oLEFT1:REFRESH() ==&gt; NOT WORK\n\n      CASE nLINE=2\n         nLEFT2:=LEN(PAY-&gt;RMK2)-LEN(TRIM(PAY-&gt;RMK2))\n\n         oLEFT2:REFRESH() ==&gt; NOT WORK\n\n   ENDCASE\n\nRETURN NIL\n**************************************','',0,'','1i3sc3i6',1,0,'',1193,0,0),(44549,9295,6,396,0,'200.71.188.208',1198216235,1,0,1,1,1,1,'','','Jcaro, verifica si cuano llamas los recursos estas en el directorio correcto, yo no los coloco dentro del exe, tengo un directorio con todos los .RES y en VERCE 5.0 que es el que uso al igual que el PELLEC C, le digo donde estan los .RES, verce se encarga de lo demas, el mismo los mete en el .EXE, y lo comprobe porque ejecuto mi aplicacion en otro pc y se ven sin problemas todos los objetos sin llevarme los .RES, cualquier duda avisa y te mando un ejemplo o un proyecto para que veas como los tengo, saludos.','',0,'','2ca79amp',1,0,'',396,0,0),(44550,9193,6,9,0,'85.53.73.80',1198216983,1,0,1,1,1,1,'','Bienvenido','Maestro Manuel,\n\nUna gran alegría saber de tí y un gran honor contar contigo en este foro.\n\nFelices Fiestas','',0,'','2jtm5dte',1,0,'',9,0,0),(44551,9300,3,51,0,'80.122.88.242',1198219817,1,0,1,1,1,0,'','','Hello Mr. NageswaraRao,\n\nI see you are very active on xBrowser and in this newsgroup. Have you seen my initial work to start a design tool for xBrowser. Maybe you want join this work.\n\nIs it possible to contact you via private email?\nHere is my email:  <!-- e --><a href=\"mailto:datron@aon.at\">datron@aon.at</a><!-- e -->\nRegards,\nOtto','',0,'','2xczbtb7',1,0,'',51,0,0),(44552,9302,3,161,0,'213.119.247.181',1198221641,1,0,1,1,1,0,'','','Otto,\n\nThank you for the information.\n\nBest regards,\nMarc','',0,'','22uu2240',1,0,'',161,0,0),(44553,9302,3,51,0,'80.122.88.242',1198223103,1,0,1,1,1,0,'','','Marc,\nfor which business do you need the touch ECR (restaurants)?\nRegards,\nOtto','',0,'','31etxbe9',1,0,'',51,0,0),(44554,9206,3,51,0,'80.122.88.242',1198223697,1,0,1,1,1,0,'','','Is this the right way to make such a outlook:\n\nPaint a rectangle  with \n        FillRect(oWnd:hDc,aRect1,oBrush:hBrush)\nAnd then paint the text with oWnd:Say\n     oWnd:say( nRow, nCol, text ,\"W\",::nClrBack,oFont,.T.,.t.)\nThanks in advance\nOtto','',0,'','28zy48jf',1,0,'',51,0,0),(44555,9294,6,21,0,'87.220.91.170',1198226661,1,0,1,1,1,1,'','','Gracias por vuestras respuestas,\n\nLo que buscaba es un trabajo en segundo plano, osea cuando llega a la función común ya no está la ventana activa en la mdi que la llamo. \nPor tanto creo que no me vale GetActive()\n\nEn cuanto a \"if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle\", obviamente me sirve si paso \"cTitle\" a la función. \nEl problema es que he puesto un ejemplo sencillo, la realidad es una función que llama a otra, que llama a otra y así varias veces, y antes de cambiar el código y pasar como parametro de una otra \"cTitle\" quería saber si se podía hacer de otra manera.','',0,'','r4ysrsoa',1,0,'',21,0,0),(44556,9301,3,303,0,'72.220.181.80',1198228047,1,0,1,1,1,0,'','','Tim,\n\nHere are a bunch of manifest constants that control the window size. You might try some of them.\n\nJames\n\n#define SW_HIDE		    0\n#define SW_SHOWNORMAL	    1\n#define SW_NORMAL	    1\n#define SW_SHOWMINIMIZED    2\n#define SW_SHOWMAXIMIZED    3\n#define SW_MAXIMIZE	    3\n#define SW_SHOWNOACTIVATE   4\n#define SW_SHOW		    5\n#define SW_MINIMIZE	    6\n#define SW_SHOWMINNOACTIVE  7\n#define SW_SHOWNA	    8\n#define SW_RESTORE          9\n\n\nFUNCTION MAIN()\n\n  SHELLEXECUTE( 0, \"open\", \"http://www.mysite.com\", 0, 0, SW_NORMAL )\n\nRETURN NIL','',0,'','1wewlubz',1,0,'',303,0,0),(44557,9306,3,810,0,'91.18.66.111',1198228124,1,0,1,1,1,0,'','Need Help with Ebay Api','Im just starting with Ebay Api but i really dont understand what SDK or control i need to connect with this Api with FWH\n\nAnyone had an idea ?\n\nTx','',0,'','194t60gb',1,0,'',810,0,0),(44558,9301,3,2,0,'87.218.146.216',1198228332,1,0,1,1,1,1,'','','Tim,\n\nSome possible solutions:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.codeguru.com/forum/archive/index.php/t-299451.html\">http://www.codeguru.com/forum/archive/i ... 99451.html</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.festra.com/wwwboard/messages/12711.html\">http://www.festra.com/wwwboard/messages/12711.html</a><!-- m -->','',0,'','c507ncza',1,0,'',2,0,0),(44559,9294,6,2,0,'87.218.146.216',1198229101,1,0,1,1,1,1,'','','Fernando,\n\n&gt;\nEn cada ventana aparece un botón que entre las tareas que hace, una es llamar a una función que es común a todas las ventanas. \n&gt;\n\nPuedes usar una variable en donde copiar la ventana MDICHILD en uso al pulsar el botón. La acción del botón la copia. Suponiendo que esté en una barra de botones:\n\noMDIChild = oButton:oWnd:oWnd','',0,'','2siu5iuy',1,0,'',2,0,0),(44560,9304,6,2,0,'87.218.146.216',1198229270,1,0,1,1,1,1,'','','Daniel,\n\nCualquier control puedes ponerlo en modo \"diseño\" haciendo:\n\noControl:lDrag = .T.\n\nO si lo creas con @ ..., ... usa la claúsula DESIGN','',0,'','2j8cnq2g',1,0,'',2,0,0),(44561,9298,6,2,0,'87.218.146.216',1198229405,1,0,1,1,1,1,'','','Patricio,\n\nEn FWH 7.11 y 7.12 puedes crear una barra de mensajes con apariencia 2007:\n\n   SET MESSAGE OF oWnd TO \"Testing the ButtonBar 2007 Office look\" ;\n      CENTERED CLOCK KEYBOARD [color=red:3suzwaeo]2007[/color:3suzwaeo]','',0,'Ag==','3suzwaeo',1,0,'',2,0,0),(44562,9274,3,460,0,'217.37.54.49',1198230051,1,0,1,1,1,0,'','','Thanks Antonio, 7.12 contains a fix to this problem\n\nRegards,\n\nPete','',0,'Ag==','ekn230ut',1,0,'',460,0,0),(44563,9306,3,2,0,'87.218.146.216',1198230536,1,0,1,1,1,1,'','','Uwe,\n\nIt looks as it uses XML on a SSL connection and using SOAP:\n<!-- m --><a class=\"postlink\" href=\"http://www.programmableweb.com/api/ebay\">http://www.programmableweb.com/api/ebay</a><!-- m -->\n\nQuite complex. My advice is to use an already available library of components for Delphi:\n<!-- m --><a class=\"postlink\" href=\"http://www.vclcomponents.com/Delphi/Telephony___Communications/eBay_XML_API_for_Delphi_win32-info.html\">http://www.vclcomponents.com/Delphi/Tel ... -info.html</a><!-- m -->\nand build a DLL to be used from FWH','',0,'Ag==','1ywypscs',1,0,'',2,0,0),(44564,9305,3,2,0,'87.218.146.216',1198230983,1,0,1,1,1,1,'','','Richard,\n\n&gt; \nnLEFT1:=LEN(PAY-&gt;RMK1)-LEN(TRIM(PAY-&gt;RMK1)) \noLEFT1:REFRESH() ==&gt; NOT WORK \n&gt;\n\noLeft1:SetText( Str( nLeft1 ) )','',0,'Ag==','3v5lruww',1,0,'',2,0,0),(44565,9206,3,2,0,'87.218.146.216',1198231153,1,0,1,1,1,1,'','','Otto,\n\nThere are two ways to paint a text:\n\n1. Use the oWnd:Say(), as you have done\n\n2. Use a SAY control: @ ..., ... SAY ...\n\nThe advantage of using the 2) is that you don\'t have to repaint it. The control automatically paints itself. With 1) you have to paint the text everytime the window is repainted\n\nMy advice is to use a SAY control that uses a brush with a gradient','',0,'Ag==','3kul2zz5',1,0,'',2,0,0),(44566,9307,20,49,0,'213.82.134.66',1198231503,1,0,1,1,1,1,'','Buon Natale e Felice 2008','[img:a3hspfzv]http&#58;//img212&#46;imageshack&#46;us/img212/6392/auguriwe2&#46;jpg[/img:a3hspfzv]','',0,'CA==','a3hspfzv',1,0,'',49,0,0),(44567,8744,20,49,0,'213.82.134.66',1198231698,1,0,1,1,1,1,'','','ok corretto quasi tutto :\n\n[code:2yjtty4a]\n#include &quot;FiveWin&#46;ch&quot;\n\n#ifdef __XPP__\n   #define New   _New\n#endif\n\n//----------------------------------------------------------------------------//\n// MODIFIED BY FALCONI SILVIO &amp;  Nageswaragunupudi \n// NOT  remove this \n\n\nCLASS TMsgItem\n\n   DATA   oMsgBar\n   DATA   cMsg\n   DATA   nWidth, nClrText, nClrPane, nClrDisabled\n   DATA   bMsg, bAction\n   DATA   oFont\n   DATA   lActive, lTimer AS LOGICAL\n   DATA   lWasActive\n   DATA   hBitmap1, hPalette1\n   DATA   hBitmap2, hPalette2\n   DATA   cToolTip\n\n   METHOD New&#40; oMsgBar, cMsg, nWidth, oFont, nClrText, nClrBack, lAdd,;\n               bAction, cBmp1, cBmp2, cToolTip &#41; CONSTRUCTOR\n\n   METHOD Refresh&#40;&#41;\n\n   METHOD SetFont&#40; oFont &#41; INLINE &#58;&#58;oFont&#58;End&#40;&#41;, &#58;&#58;oFont &#58;= oFont\n   METHOD Paint&#40;&#41;\n\n   METHOD SetText&#40; cMsg &#41; INLINE &#58;&#58;cMsg &#58;= cValToChar&#40; cMsg &#41;, &#58;&#58;Paint&#40;&#41;\n\n   METHOD Click&#40; nRow, nCol &#41; INLINE If&#40; &#58;&#58;bAction != nil, Eval&#40; &#58;&#58;bAction, nRow, nCol &#41;,&#41;\n\n   METHOD IsOver&#40; nRow, nCol &#41;\n\n   METHOD nLeft&#40;&#41;\n\nENDCLASS\n\n//----------------------------------------------------------------------------//\n\nMETHOD New&#40; oMsgBar, cMsg, nWidth, oFont, nClrText, nClrBack, lAdd, bAction,;\n            cBmp1, cBmp2, cToolTip &#41; CLASS TMsgItem\n\n   #ifdef __XPP__\n      #undef New\n   #endif\n\n   DEFAULT nClrText &#58;= oMsgBar&#58;nClrText,;\n           nClrBack &#58;= oMsgBar&#58;nClrPane,;\n           lAdd &#58;= &#46;f&#46;, cMsg &#58;= &quot;&quot;, cToolTip &#58;= &quot;&quot;\n\n   &#58;&#58;oMsgBar = oMsgBar\n   &#58;&#58;cMsg    = cMsg\n   &#58;&#58;oFont   = If&#40; oFont != nil, oFont, &#58;&#58;oMsgBar&#58;oFont &#41;\n   &#58;&#58;bAction = bAction\n   &#58;&#58;lActive = &#46;t&#46;\n   &#58;&#58;lWasActive = &#46;t&#46;\n   &#58;&#58;lTimer  = &#46;f&#46;\n   &#58;&#58;cToolTip = cToolTip\n\n   if Valtype&#40; nClrText &#41; == &quot;C&quot;\n      &#58;&#58;nClrText &#58;= nGetForeRGB&#40; nClrText &#41;\n      &#58;&#58;nClrPane &#58;= nGetBackRGB&#40; nClrText &#41;\n   else\n      &#58;&#58;nClrText &#58;= nClrText\n      &#58;&#58;nClrPane &#58;= nClrBack\n   endif\n\n   if cBmp1 != nil\n      if File&#40; cBmp1 &#41;\n         &#58;&#58;hBitmap1  = ReadBitmap&#40; 0, cBmp1 &#41;\n         &#58;&#58;hPalette1 = 0\n      else\n         &#58;&#58;hBitmap1  = LoadBitmap&#40; GetResources&#40;&#41;, cBmp1 &#41;\n         &#58;&#58;hPalette1 = 0\n      endif\n\n      if &#58;&#58;hBitmap1 == 0\n         &#58;&#58;hBitmap1 &#58;= nil\n      else\n         DEFAULT nWidth &#58;= nBmpWidth&#40; &#58;&#58;hBitmap1 &#41; + 7\n      endif\n   endif\n\n   if cBmp2 != nil\n      if File&#40; cBmp2 &#41;\n         &#58;&#58;hBitmap2  = ReadBitmap&#40; 0, cBmp2 &#41;\n         &#58;&#58;hPalette2 = 0\n      else\n         &#58;&#58;hBitmap2  = LoadBitmap&#40; GetResources&#40;&#41;, cBmp2 &#41;\n         &#58;&#58;hPalette2 = 0\n      endif\n      if &#58;&#58;hBitmap2 == 0\n         &#58;&#58;hBitmap2 &#58;= nil\n      else\n         DEFAULT nWidth &#58;= nBmpWidth&#40; &#58;&#58;hBitmap2 &#41; + 7\n      endif\n   endif\n\n   DEFAULT nWidth &#58;= 40\n\n   &#58;&#58;nWidth = nWidth\n\n   if ! Empty&#40; &#58;&#58;cToolTip &#41;\n      &#58;&#58;oMsgBar&#58;cToolTip &#58;= &quot;&quot;\n   endif\n\n   if lAdd\n      oMsgBar&#58;AddItem&#40; Self &#41;\n   endif\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\n#ifdef __CLIPPER__\n\nstatic function IsAppThemed&#40;&#41;\n\nreturn &#46;f&#46;\n\n#endif\n\n//----------------------------------------------------------------------------//\n\nMETHOD nLeft&#40;&#41; CLASS TMsgItem\n\n   local n &#58;= Len&#40; &#58;&#58;oMsgBar&#58;aItem &#41;, nPos &#58;= &#58;&#58;oMsgBar&#58;nRight - ;\n              If&#40; IsAppThemed&#40;&#41;, 13, ;\n                  If&#40; IsZoomed&#40; &#58;&#58;oMsgBar&#58;oWnd&#58;hWnd &#41;, 3, 13 &#41; &#41;\n\n   while n &gt; 0 &#46;and&#46; ! &#58;&#58;oMsgBar&#58;aItem&#91; n &#93; == Self\n      nPos -= &#40; &#58;&#58;oMsgBar&#58;aItem&#91; n &#93;&#58;nWidth + 4 &#41;\n      n--\n   end\n   nPos -= &#40; &#58;&#58;nWidth - 2 &#41;\n\nreturn nPos\n\n//----------------------------------------------------------------------------//\n\nMETHOD IsOver&#40; nRow, nCol &#41; CLASS TMsgItem\n\n   local nLeft &#58;= &#58;&#58;nLeft&#40;&#41;\n\nreturn nCol &gt;= &#40; nLeft - 1 &#41; &#46;and&#46; &#40; nCol &lt;= nLeft + &#40; &#58;&#58;nWidth - 7 &#41; &#41; &#46;and&#46; ;\n       nRow &gt; 5\n\n//----------------------------------------------------------------------------//\nMETHOD Paint&#40;&#41; CLASS TMsgItem\n\n   local nCount, nClrBack \n   local nLeft &#58;= &#58;&#58;nLeft&#40;&#41; \n   local hBmp, nBmpWidth &#58;= 0 \n   local hDC \n\n   hDC &#58;= &#58;&#58;oMsgBar&#58;GetDC&#40;&#41; \n\n   if &#58;&#58;omsgbar&#58;l2007 \n\n      Gradient&#40; hDC, &#123; 0, nLeft, &#58;&#58;omsgbar&#58;nHeight / 3, nLeft + &#58;&#58;nWidth &#125;,; \n                nRGB&#40; 227, 239, 255 &#41;, nRGB&#40; 201, 224, 255 &#41;, &#46;T&#46; &#41; \n      Gradient&#40; hDC, &#123; &#40; &#58;&#58;omsgbar&#58;nHeight / 3 &#41; + 1, nLeft, &#58;&#58;omsgbar&#58;nHeight, nLeft + &#58;&#58;nWidth &#125;,; \n                nRGB&#40; 174, 209, 255 &#41;, nRGB&#40; 186, 216, 255 &#41;, &#46;T&#46; &#41; \n   endif \n\n   if &#58;&#58;hBitmap1 != nil \n      hBmp = If&#40; &#58;&#58;lActive, &#58;&#58;hBitmap1, ; \n                 If&#40; &#58;&#58;hBitmap2 != nil, &#58;&#58;hBitmap2, &#58;&#58;hBitmap1 &#41; &#41; \n      nBmpWidth  = nBmpWidth&#40; hBmp &#41; \n      DrawMasked&#40; hDC, hBmp, 4, nLeft + 1 &#41; \n   endif \n\n\n   if &#58;&#58;omsgbar&#58;l2007 \n\n      &#58;&#58;oMsgBar&#58;Say&#40; &#58;&#58;oMsgBar&#58;nHeight / 4 - 2,; \n             nLeft + &#40;&#58;&#58;nWidth - GetTextWidth&#40; hDC,&#58;&#58;cMsg &#41;&#41;/2, &#58;&#58;cMsg, ; \n             iif&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;, &#58;&#58;nClrPane, ; \n             &#58;&#58;oFont, &#46;T&#46;, &#46;T&#46; &#41; \n      wndboxin&#40; hDc, 0, nLeft-1, &#58;&#58;oMsgBar&#58;nHeight, nLeft &#41;   // present test values \n\n\n   else \n\n\n      DrawMsgItem&#40; hDC, &#58;&#58;cMsg,; \n                &#123; 5, nLeft + nBmpWidth, &#58;&#58;oMsgBar&#58;nHeight-6, nLeft + &#40; &#58;&#58;nWidth - 7 &#41; &#125;,; \n                If&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;,; \n                &#58;&#58;nClrPane, &#58;&#58;oFont&#58;hFont &#41; \n\n      WndBoxIn&#40; hDC, 3, nLeft - 2, &#58;&#58;oMsgBar&#58;nHeight-5, nLeft + &#58;&#58;nWidth - 6 &#41; // fwh \n\n   endif \n\n\n   &#58;&#58;oMsgBar&#58;ReleaseDC&#40;&#41; \n\n\nreturn nil \n\n\n\n//----------------------------------------------------------------------------//\n\nMETHOD Refresh&#40;&#41; CLASS TMsgItem\n\n   local cMsg\n\n   if &#58;&#58;bMsg != nil\n      cMsg = cValToChar&#40; Eval&#40; &#58;&#58;bMsg &#41; &#41;\n      if cMsg != &#58;&#58;cMsg &#46;or&#46; &#58;&#58;lActive != &#58;&#58;lWasActive\n         &#58;&#58;cMsg = cMsg\n         &#58;&#58;Paint&#40;&#41;\n         &#58;&#58;lWasActive = &#58;&#58;lActive\n      endif\n   endif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:2yjtty4a]','',0,'AIA=','2yjtty4a',1,0,'',49,0,0),(44568,9206,3,51,0,'80.122.88.242',1198233100,1,0,1,1,1,0,'','','&gt;My advice is to use a SAY control that uses a brush with a gradient\n\nI don\'t know how to do this?\n\nWould you be so kind to show some code.\nThanks in advance\nOtto','',0,'AIA=','mwokblrd',1,0,'',51,0,0),(44569,9247,7,57,0,'83.33.193.57',1198233596,1,0,1,1,1,1,'','','No lo he comprobado pero tiempo atras encontré esta información para obtener el nombre del dispositivo. Quizas se pueda estraer alguna información más.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pocketpcdn.com/articles/ownerinformation.html\">http://www.pocketpcdn.com/articles/owne ... ation.html</a><!-- m -->\n\nSaludos','',0,'AIA=','1dhi2rlh',1,0,'',57,0,0),(44570,9297,6,41,0,'200.87.162.67',1198235095,1,0,1,1,1,0,'','','Antonio,\n\ngracias por tu respuesta, la compatibilidad es con los DBF pero que pasa con los ADT, ya que este tipo de archivo si me permite mas de 10 caracteres como nombre de campo, ademas, funcionan perfectamente de manera directa y el problema es con la clase TDataBase.\n\nsaludos\n\nMarcelo','',0,'AIA=','ufwqxcse',1,0,'',41,0,0),(44571,9307,20,6,0,'87.19.208.94',1198235277,1,0,1,1,1,1,'','Re: Buon Natale e Felice 2008','Auguroni anche da parte mia!\n\nEMG','',0,'AIA=','tf8ubr2s',1,0,'',6,0,0),(44572,9302,3,161,0,'213.119.247.181',1198235339,1,0,1,1,1,0,'','','Otto,\n\nThis customer has a flower shop. \n\nRegards,\nMarc','',0,'AIA=','2gr4ehha',1,0,'',161,0,0),(44573,9302,3,51,0,'80.122.88.242',1198236595,1,0,1,1,1,0,'','','Hello Marc,\ncould you contact me through email?\nRegards,\nOtto\n<!-- e --><a href=\"mailto:datron@aon.at\">datron@aon.at</a><!-- e -->','',0,'AIA=','3cbh4t13',1,0,'',51,0,0),(44574,9308,17,1257,0,'195.93.60.34',1198237166,1,0,1,1,1,1,'','A collection of Date/Time-functions ( Upd. 2,  02.01.08 )','There are the first Date / Time functions of \na collection. \nSome more functions added ( 02.01.2008 ).\n\ngreetings from germany <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','7o3azu82',1,0,'',1257,0,0),(44575,9297,6,2,0,'87.218.146.216',1198238053,1,0,1,1,1,1,'','','Marcelo,\n\nQue RDD usas para los archivos ADT ? \n\nDe momento, que sepamos, todos los RDDs tienen esa limitación de la longitud del nombre de los campos, ya que \"heredan\" de un RDD primario','',0,'AIA=','uxki7g9i',1,0,'',2,0,0),(44576,9309,6,1255,0,'200.66.237.34',1198238182,1,0,1,1,1,0,'','Mi primera compilación con fwh 7.12','Hola Amigos:\n\nAquí tratando de poner a punto el motor.\n\nbuildx testfold (fwh\\Samples)\n\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTESTFOLD.c:\nError E2209 c:\\xharbour\\include\\hbvmpub.h 65: Unable to open include file \'assert.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 58: Unable to open include file \'stdarg.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 59: Unable to open include file \'stdio.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 60: Unable to open include file \'stdlib.h\'\nError E2209 c:\\xharbour\\include\\hbdefs.h 61: Unable to open include file \'string.h\'\nError E2209 c:\\xharbour\\include\\hbsetup.h 61: Unable to open include file \'limits.h\'\nError E2188 c:\\xharbour\\include\\hbdefs.h 454: Expression syntax\nError E2257 c:\\xharbour\\include\\hbdefs.h 476: , expected\nError E2139 c:\\xharbour\\include\\hbvmpub.h 277: Declaration missing ;\nError E2141 c:\\xharbour\\include\\hbapi.h 609: Declaration syntax error\nError E2451 TESTFOLD.c 47: Undefined symbol \'NULL\'\nError E2141 TESTFOLD.c 47: Declaration syntax error\nError E2190 TESTFOLD.c 47: Unexpected }\nError E2190 TESTFOLD.c 47: Unexpected }\nError E2040 TESTFOLD.c 47: Declaration terminated incorrectly\nError E2190 TESTFOLD.c 88: Unexpected }\nError E2190 TESTFOLD.c 88: Unexpected }\nError E2109 TESTFOLD.c 88: Not an allowed type in function hb_vm_SymbolInit_TESTFOLD\n*** 18 errors in Compile ***\n\nGracias anticipadas por su ayuda\n\nManuel Mercado','',0,'AIA=','31pspfnm',1,0,'',1255,0,0),(44578,9297,6,41,0,'200.87.162.67',1198239826,1,0,1,1,1,0,'','','Antonio,\n\nel que viene con xHarbour, de tu sitio, puse un nombre de campo con 11 caracteres y lo pude referenciar como siempre,  alias -&gt; nombredecampo, sera que TdataBase, podria tomar el nombre completo, viendo el fuente, creo que alli esta el problema en el metodo OnError, pruebo y comento\n\nsaludos\n\nMarcelo','',0,'AIA=','2edl48kl',1,0,'',41,0,0),(44579,9311,3,51,0,'80.122.88.242',1198239950,1,0,1,1,1,0,'','Here is a demo - dbf file to include to FW samples','Antonio,\n\nAttached I send a dbf file which you can include to FIVEWIN samples.\n2000 meals in 4 languages – Spanish is missing but Italien, French, English and German is there.\nWe have  translated the meals so there is no problem with  copyright.\nYou can use this data to build xBrowser demos or what ever you want.\n\nRegards,\nOtto\n\n\n[url:3al3nco4]http&#58;//www&#46;atzwanger&#46;com/fw/lexikon&#46;zip[/url:3al3nco4]','',0,'EA==','3al3nco4',1,0,'',51,0,0),(44580,9297,6,41,0,'200.87.162.67',1198240126,1,0,1,1,1,0,'','','Yap,  \n\nen la linea 370 de database.prg le quite el 9 y ya, \n\nera RTrim( SubStr( cField, 1, 9 ) ) ahora RTrim( SubStr( cField, 1) )\n\nsospecho que esto no quita compatibilidad, estare en lo cierto\n\nsaludos\n\nMarcelo','',0,'EA==','2aniqdyo',1,0,'',41,0,0),(44581,9206,3,2,0,'87.218.146.216',1198242442,1,0,1,1,1,1,'','','Otto,\n\nIts a simple solution, though we could improve it:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/24901-201766470d.html\">http://www.hotshare.net/file/24901-201766470d.html</a><!-- m -->\n\n[url=http&#58;//imageshack&#46;us:zztw1k74][img:zztw1k74]http&#58;//img89&#46;imageshack&#46;us/img89/6757/ottoxy2&#46;png[/img:zztw1k74][/url:zztw1k74]','',0,'GA==','zztw1k74',1,0,'',2,0,0),(44582,9279,6,278,0,'200.126.92.148',1198243050,1,0,1,1,1,1,'','','Alfredo:\n\nGRACIAS por la ayuda, hice unos cambios en la forma de llamar a la serie y funciono tambien OK en los MDI.\n\nSaludos ,','',0,'GA==','3oakaama',1,0,'',278,0,0),(44583,9297,6,2,0,'87.218.146.216',1198243177,1,0,1,1,1,1,'','','Marcelo,\n\nTu cambio es correcto. Debe tratarse de un cambio reciente en los RDDs\n\nHas probado a usar nombres de campos de más de 11 caracteres ?','',0,'GA==','24edzajo',1,0,'',2,0,0),(44584,9309,6,2,0,'87.218.146.216',1198243326,1,0,1,1,1,1,'','','Manuel,\n\nTienes que crear dos ficheros en el directorio c:\\bcc55\\bin (ó relativo a donde hayas instalado el Borland C). Los ficheros son:\n\nbcc32.cfg  que contiene:\n-I\"c:\\Bcc55\\include\" \n-L\"c:\\Bcc55\\lib\" \n\nilink32.cfg que contiene:\n-L\"c:\\Bcc55\\lib\"','',0,'GA==','m9tx5jxn',1,0,'',2,0,0),(44585,9305,3,1193,0,'203.70.2.12',1198243654,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1co831k7]Richard,\n\n&gt; \nnLEFT1:=LEN(PAY-&gt;RMK1)-LEN(TRIM(PAY-&gt;RMK1)) \noLEFT1:REFRESH() ==&gt; NOT WORK \n&gt;\n\noLeft1:SetText( Str( nLeft1 ) )[/quote:1co831k7]\n\nHi Antonio,\n\nI try it but not work. TSay object not Refresh.\noLEFT1:REFRESH() not work.\n\nHave you any idea for it?\n\nRegards,\n\nRichard','',0,'gA==','1co831k7',1,0,'',1193,0,0),(44586,9311,3,2,0,'87.218.146.216',1198243755,1,0,1,1,1,1,'','','Otto,\n\nWe use a tool named \"dbCre8.exe\" from Successware, that creates DBFs with the number of records that you want and automatically fills the fields with data.\n[url=http&#58;//imageshack&#46;us:3dajvtca][img:3dajvtca]http&#58;//img89&#46;imageshack&#46;us/img89/226/dbcre8nb7&#46;png[/img:3dajvtca][/url:3dajvtca]\n\nAnyhow, thanks for your file <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3dajvtca',1,0,'',2,0,0),(44587,9286,3,35,0,'167.7.140.254',1198243761,1,0,1,1,1,0,'','','nageswaragunupudi \n\nThe very first statement in the path is where I installed ( what I hoped was the client ) Ora9i .. c:\\ora9i\\bin .. Perhaps I installed the wrong thing .. would you be so kind as to find me a link to download the proper client .. I noticed in your code .. you have c:\\oracle\\client ....  I do not have any of those paths ..\n\nI would be grateful !!\n\nThanks\nRick Lipkin','',0,'GA==','220lyq2s',1,0,'',35,0,0),(44588,9297,6,41,0,'200.87.162.67',1198243942,1,0,1,1,1,0,'','','Antonio,\n\nsi acabo de probar un campo con 18 caracteres\n\ngracias\n\nMarcelo','',0,'GA==','1b5my16v',1,0,'',41,0,0),(44589,9297,6,2,0,'87.218.146.216',1198244140,1,0,1,1,1,1,'','','Marcelo,\n\ngracias,\n\nHabrá que comprobar si tambien estan soportados en DBFs \"corrientes\" y si ambos Harbour y xHarbour lo soportan','',0,'GA==','319vg5kr',1,0,'',2,0,0),(44590,9279,6,72,0,'201.137.103.138',1198244830,1,0,1,1,1,0,'','','Bueno si no hay mas observaciones podemos invitar a Antonio para que la incluya en la siguiente actualización.','',0,'GA==','327h9z2r',1,0,'',72,0,0),(44591,9145,3,2,0,'87.218.146.216',1198244872,1,0,1,1,1,1,'','','Darrell,\n\nPlease remove TRDD and TRDDODBC modules from FIVEHX.lib\n\nThose PRGs should not be added to FIVEHX.lib','',0,'GA==','17cde5mh',1,0,'',2,0,0),(44592,9281,6,956,0,'189.22.134.130',1198245133,1,0,1,1,1,1,'','','[quote=&quot;Rossine&quot;:26nv9veo]Olá Anderson,\n\nDê uma olhada neste link e vê se é isto que precisa: [url:26nv9veo]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3623&amp;highlight=tooltip[/url:26nv9veo]\n\nAbraços,\n\nRossine.[/quote:26nv9veo]\n\nNo teu codigo tu usa [b:26nv9veo]#ifndef __CLIPPER__ [/b:26nv9veo], sendo assim pergunto, esta tua dica eh soh pra Clipper ou serve tb para xHarbour?!','',0,'0A==','26nv9veo',1,0,'',956,0,0),(44593,9286,3,868,0,'219.64.121.60',1198246419,1,0,1,1,1,1,'','','Can you please send me the directory structure of your ora9i directory?  you can save it as text file by going to c:\\ora9i  ( DOS PROMPT ) and issue command \"DIR /S &gt; ORADIR.TXT\".  Please send to my personal email <!-- e --><a href=\"mailto:nageswaragunupudi@gmail.com\">nageswaragunupudi@gmail.com</a><!-- e -->','',0,'0A==','2pqskray',1,0,'',868,0,0),(44594,9295,6,278,0,'200.126.92.148',1198246514,1,0,1,1,1,1,'','','Jose Luis Gracias por responder,\n\nLo hago igual que tu y no funciona.  \nLos recursos igual me los lee pone el Verce, yo no los pongo por fuera.\n\nSi puedes enviarme un ejemplo pequeño del verce 5, te lo agradeceria.\n\nSaludos,','',0,'0A==','e8snb1ze',1,0,'',278,0,0),(44595,9312,6,1255,0,'200.66.237.34',1198247118,1,0,1,1,1,0,'','JJ Machado Inspiró la creación de TSButton','No están para saberlo, pero ahora que me encuentro con esta triste noticia, recuerdo que TSButton nació de un reto que me lanzó Juan J. Machado un día que tronabamos contra las dlls y los Botones tipo Borland de WorkShop.\n\nQue Dios te tenga a su lado mi inquieto y querido amigo.\n\nManuel Mercado','',0,'0A==','3k1tw32i',1,0,'',1255,0,0),(44596,9313,3,267,0,'201.9.135.104',1198247648,1,0,1,1,1,1,'','ADORDD and ACCESS with FHW 7,12 generating GPF','Antonio,\n\nLater that I brought update for 7,12 FWH any program that it executes with ADORDD it generates a GPF.\n\n[code:ow5bdjtl]\n#include &quot;adordd&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction Main&#40;&#41;\n\n   USE Test&#46;mdb VIA &quot;ADORDD&quot; TABLE &quot;Tabla1&quot; ACCESS\n\n   Browse&#40;&#41;\n\n   USE\n\nreturn nil[/code:ow5bdjtl]\n\nAlready I also tested with lib and compiling adordd.prg together with the system, but the problem persists.','',0,'AIA=','ow5bdjtl',1,0,'',267,0,0),(44597,9309,6,1255,0,'200.66.237.34',1198247743,1,0,1,1,1,0,'','','Como dice mi tocayo Victor Manuel Tomás:\n\n\"LISTO EL POLLO\"\n\nMuchas gracias Antonio','',0,'AIA=','3d273a45',1,0,'',1255,0,0),(44598,9314,3,47,0,'203.144.143.9',1198248080,1,0,1,1,1,0,'','How to get the Font size for TGet?','Dear All,\n\nI would like to set TGet length (Pixel) match with Font Size?  \n\nBecause the user can define Font Size, the Variable digit set by user.\n\nHow can I get it?\n\nRegards,\nDutch','',0,'AIA=','3ti66zy4',1,0,'',47,0,0),(44599,9299,2,1258,0,'190.45.173.26',1198248490,1,0,1,1,1,0,'','antonio, me sale .F.','Antonio, gracias por responder, el resultado es el mismo, me sale como respuesta a:\n\n MsgInfo( File( AllTrim( Tabla-&gt;Base ) ) )\n\n.F.\n\nlo malo es que el archivo si existe, es mas cuando yo digito\n\nbase=\"P112\",  Lo encuentra y abre, pero si dejo a \nbase=tabla-nom_bas, me sale ese mensaje oy este error\n\nApplication\n===========\n   Path and name: C:\\EAA\\GESTION.dwd\n   Size:         0 bytes\n   Max files handles permited: ( SetHandleCount() ) 100\n   Error ocurred at: 21/12/2007, 11:41:58\n   Error description: Error _DBFCDX/1020  Data type error: P112\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from DBUSEAREA(0)\n   Called from NET_USE(76)\n   Called from DAT_PROY(6406)\n   Called from (b)PROY03(6355)\n   Called from TSBROWSE:LDBLCLICK(4266)\n   Called from TSBROWSE:HANDLEEVEN(0)\n   Called from TSBROWSE:HANDLEEVEN(8604)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PROY03(6383)\n   Called from (b)BUILDMENU(164)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(121)\n\nSystem\n======\n   CPU type: 486\n   Hardware memory: 16128 (15 megas)\n\n   Free System resources: % 90\n        GDI    resources: % 90\n        User   resources: % 90\n\n   Windows and MsDos versions:  3.95,  5. 0\n   Windows total applications running:   2\n      1 Explorer.EXE\n      2 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      3 C:\\EAA\\GESTION.DLL\n      4 C:\\EAA\\GESTION.dwd\n      5 medcx.exe\n      6 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      7 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   DBUSEAREA\n     Param   1:    L    .F.\n     Param   2:    U    \n     Param   3:    C    \"P112    \"\n     Param   4:    U    \n     Param   5:    L    .T.\n     Param   6:    L    .F.\n   NET_USE\n     Param   1:    C    \"P112    \"\n     Param   2:    L    .F.\n     Param   3:    N    1\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n   DAT_PROY','',0,'AIA=','mmqt3nci',1,0,'',1258,0,0),(44600,9299,2,2,0,'87.218.146.216',1198249027,1,0,1,1,1,1,'','','El nombre tiene un espacio de más:\n\n Param 1: C \"P112 \"    &lt;-- fíjate en el espacio al final del nombre!\n\nhaz: \n\nbase=AllTrim( tabla-nom_bas )','',0,'AIA=','3j05e5ry',1,0,'',2,0,0),(44601,9309,6,103,0,'189.12.229.204',1198249273,1,0,1,1,1,1,'','','Hola Maestro Manuel Mercado,\n\nUn gusto poder saludarte nuevamente!!! Creo que vas a pasar de 16 a 32 bits muy pronto.\n\nSaludos desde Brasil,','',0,'AIA=','1m6s08of',1,0,'',103,0,0),(44602,9314,3,58,0,'84.149.112.165',1198249400,1,0,1,1,1,0,'','','Dutch,\n\nthis is a rather difficult procedure.\nUnlike to MS DOS console programs with their fix font size for each letter and digit in Windows you must be aware of proportional width of characters.\n\nTo be sure you could take n times to width of the biggest character, i think it\'s a \'W\'.\nThis value you can get from  [code:2mptjsiv]GetTextWidth&#40; &lt;hDC&gt;, &lt;cString&gt;, &#91;&lt;hFont&gt;&#93; &#41;  --&gt; &lt;nPixelWidth&gt; [/code:2mptjsiv]May be that could help you.\n\nBest regards,\nDetlef','',0,'AIA=','2mptjsiv',1,0,'',58,0,0),(44603,9281,6,104,0,'201.58.135.209',1198250026,1,0,1,1,1,0,'','','Olá Anderson,\n\nNa verdade eu só testei ela em xharbour. Eu praticamente não uso FW em clipper, só xhb  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nAbraços,\n\nRossine.','',0,'AIA=','6y4o2v4a',1,0,'',104,0,0),(44604,9307,20,163,0,'87.8.59.219',1198250313,1,0,1,1,1,0,'','','Tantissimi auguri anche da parte mia. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','4ez2cdz0',1,0,'',163,0,0),(44605,9312,6,1168,0,'84.121.87.247',1198251431,1,0,1,1,1,0,'','','Sr Mercado\n\nEncontado de saber de Ud. \nGracias a los dos por su TSButton. Y sobre todo a ud. por su TSBrowse.\n\nSaludos','',0,'AIA=','2q7dt7y9',1,0,'',1168,0,0),(44606,9299,2,935,0,'200.62.80.144',1198251795,1,0,1,1,1,1,'','a ver si entiendo','Anaysis.\n\na ver si entendí, tienes una tabla con x cantidad de campos en cada uno de ellos lo que guardas es el nombre de otra tanla ?\n\nsie este es el caso , pues asigna una alias a ese campo y listo ya puedes abrirla, ejemplo\n\nTABLA : Mis Bases de Datos\nCAMPO1 : Tabla1\nCampo2 : Tabla2 etc,.etc\n\nSELECT A\n(ABRO LA TABLA TODA )\nINDEX ON POR LO QUE QUIERA\nSEEK FILA ( ESCOGO LA FILA DONDE ESTA LA TABLA QUE QUIERO ABRIR)\nSI NO HAY MAS QUE UNA FILA NO ES NECESARIO\n\nXBASE = A-&gt;CAMPO1\n\nSELECT  B\nUSE ( CAMPO1 ) \n\nY LISTO, DEBE FUNCIONARTE, A MI ME FUINCIONA','',0,'AIA=','kj2skjaw',1,0,'',935,0,0),(44607,9312,6,72,0,'189.146.241.32',1198252811,1,0,1,1,1,0,'','','Un gusto verte de nuevo Manuel. Felicidades y adelante!','',0,'AIA=','xfmysk3s',1,0,'',72,0,0),(44608,9300,3,210,0,'81.24.159.58',1198253358,1,0,1,1,1,1,'','To Otto','Otto, ich habe bei Xbrowse das Problem mit picture \"@E ###.##\" bei der Anzeige eines Betrages. Wenn ich die Daten mit transform(..) und picture wie oben formatiere, kann ich nicht mehr richtig editieren, da ja der numerische Charakter verloren geht. Sehe gerade, daß du es nicht verwendest. Weißt du eine Lösung?\nGrüße aus Kärnten.','',0,'AIA=','1ckjgft2',1,0,'',210,0,0),(44609,9300,3,868,0,'210.212.216.67',1198253901,1,0,1,1,1,1,'','','XBrowse depends on Harbour or xHarbour for Transforms and Gets. If the picture works in normal Harbour and xHarbour, it should also work with xBrowse. If there is a problem, it is not with xbrowse.','',0,'AIA=','1k996h91',1,0,'',868,0,0),(44610,9300,3,51,0,'80.122.88.242',1198255181,1,0,1,1,1,0,'','','Hallo Günther,\n\nvorerst die besten Grüße aus Osttirol. \nHabe gar nicht gewusst, dass es in der Nachbarschaft FIVEWIN User gibt.\nIch verwende xBrowser erst seit kurzem und habe mit dem Editieren keine Erfahrung.\nVielleicht können wir uns mal im „GERMAN FORUM“ unterhalten.\n\nLiebe Grüße\nOtto','',0,'AIA=','zxid4l7g',1,0,'',51,0,0),(44611,9312,6,424,0,'189.136.132.238',1198255302,1,0,1,1,1,0,'','Saludo...','Hola, Manuel.\n\nQue gusto verte en este foro, y verte bien.\n\nUn afectuoso saludo.\n\n\nRodolfo','',0,'AIA=','1yq1lao5',1,0,'',424,0,0),(44612,9299,2,110,0,'148.168.40.4',1198255812,1,0,1,1,1,1,'','','ramon \n\nsoy y estoy en nicaragua para cualquier consulta.\ndonboscocorp2 @ hotmail.com\nsalu2\ncarlos vargas','',0,'AIA=','2pr61gws',1,0,'',110,0,0),(44613,9315,4,27,0,'62.174.195.220',1198258024,1,0,1,1,1,1,'','Automatic dialing of phone number on PDA Phone','Half way their from a PC I create a WEB page with &lt;A href=\"wtai://wp/mc918887766\"&gt; 91 888 77 66&lt;u&gt;&lt;/u&gt;&lt;/A&gt; using :\n\nif !empty(AGENDWML-&gt;TEL)\noText:Add(\'&lt;A href=\"wtai://wp/mc;\'+STRTRAN(AGENDWML-&gt;TEL,\' \',\'\')+\'\"&gt;\'+TRIM(AGENDWML-&gt;TEL)+\'&lt;u&gt;&lt;/u&gt;&lt;/A&gt;\')\noText:Add( \'&lt;br/&gt;\')\nENDIF\n\nAnd upload it via FTP to a website then accesing the website I can dial the number on my PDA .\n\nIs there any way I can write the web page to my PDA from FWPPC then waitrun() the HTML text from FWPPC.\n\nAny other metod for automatic dailing on a PDA or smartphone?','',0,'AIA=','d1jiaiey',1,0,'',27,0,0),(44614,9312,6,278,0,'200.126.92.148',1198258989,1,0,1,1,1,1,'','','Que bueno saber de ti Manuel. \n\nEspero que andes muy seguido por aqui.\n\n[b:3bthupea]Los mejores deseos para el nuevo año !![/b:3bthupea]\n\nMuchos saludos,','',0,'QA==','3bthupea',1,0,'',278,0,0),(44615,9294,6,21,0,'87.220.91.170',1198262047,1,0,1,1,1,1,'','','Antonio,\n\nBuena alternativa. Trabajaré sobre ella\n\nMuchas gracias','',0,'QA==','2j8arzki',1,0,'',21,0,0),(44616,9270,6,987,0,'189.132.20.19',1198263968,1,0,1,1,1,0,'','','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> De todo corazón muchas gracias a ti [b:19o1fzg2]Maestro de Maestros[/b:19o1fzg2]: Antonio Linares, por toda la ayuda que nos has brindado a todos los colegas programadores durante este año, a tu familia y a todo tu grupo de colaboradores...\n\nA toda la comunidad de este foro, compañeros y amistades, que desde sus paises formamos un gran equipo de trabajo...\n\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  ¡¡¡ MUCHAS FELICIDADES, FELIZ NAVIDAD Y PROSPERO AÑO 2008 !!!  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nQue el todo poderoso nos permita vivir un año màs para poder compartir nuestros conocimientos, experiencias y lo mejor de todo la amistad y el compañerismo...\n\nGracias tambien a todos los compañeros y amigos que ya se nos adelantaron al viaje sin retorno... SIEMPRE ESTARAN EN NUESTRO CORAZON..\n\nSaludos a todos, reciban un fuerte apreton de manos y un abrazo desde Mèxico...\n\nI.S.C. Victor Daniel Cuatécatl León\nSoluciones y Diseño de Software Empresarial\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'QA==','19o1fzg2',1,0,'',987,0,0),(44617,9316,6,1236,0,'201.86.89.128',1198265798,1,0,1,1,1,0,'','Qual a diferença?','Qual a diferença entre \"Shell.Explorer\" e \"Shell.Explorer2\" - \"Navigate\" e \"Navigate2\" ???\n\n\ncode:\n\noActiveX = TActiveX():New( oWndmaps, \"Shell.Explorer\" )\noActiveX&#058;Do( \"Navigate\", CurDrive() + \":\\\" + CurDir() + \"\\temp.html\" )\n\n\nQuando usar um ou outro?\n\n\nGrato','',0,'QA==','j5cndbpj',1,0,'',1236,0,0),(44618,9270,6,596,0,'84.76.66.27',1198266575,1,0,1,1,1,1,'','','¡¡¡ FELICES FIESTA Y PROSPERO AÑO NUEVO 2008 !!!','',0,'QA==','2qo33q3b',1,0,'',596,0,0),(44619,9296,3,2,0,'87.218.146.216',1198267528,1,0,1,1,1,1,'','','Antonio,\n\nLink FiveHX.lib before xHarbour libraries','',0,'QA==','14nun4fd',1,0,'',2,0,0),(44620,9312,6,940,0,'189.175.210.68',1198271483,1,0,1,1,1,1,'','','Excelente libreria,\n\nesperamos que no te pierdas de este foro,  manuel,\n\nsaludos...','',0,'QA==','1tc9h2op',1,0,'',940,0,0),(44621,9317,6,109,0,'189.192.252.57',1198279157,1,0,1,1,1,0,'','Alguna sugerencia con Get','En mi aplicacion tengo varias tablas que son \"catalogos\" del sistema, algunas de ellas con tan solo 2 campos y solo uno para ser actualizado, (el otro es la llave, y lo genera \"autonumerado\"), pues bien, para no tener varios dialogos en mi .RC, el sistema genera automaticamente un dialogo en base a los campos que serán editados. en el caso de las tablas que solo tienen 2 campos, tan solo edito 1 que seria el nombre de (ciudad, moneda, etc.), Y lo que quiero hacer es que cuando el usuario cambie el dato de ese campo, con oprimir las teclas CTRL + F4, se grabe ese dato en la base de datos, para que no utilize tanto el mouse. Pero no se como validar que el campo ya fué cambiado.\n\nPor su atención GRACIAS\n\nY FELIZ NAVIDA Y PROSPERO 2008, PARA TODOS Y CADA UNO DE UDS.\n\nRicardo E. Guardado Flores','',0,'QA==','1o0ihvpz',1,0,'',109,0,0),(44622,9318,23,210,0,'81.24.159.58',1198284124,1,0,1,1,1,1,'','Hallo, alle deutsch sprechenden FIVERIANER!','Sollte mehr Bewegung im Forum sein, oder!? Manches Problem läßt sich doch eher in unserer Sprache ausdrücken. Nicht jeder ist perfect in English! Oder lieg ich da nicht richtig?','',0,'QA==','2mi1ytah',1,0,'',210,0,0),(44623,9319,6,987,0,'189.132.20.19',1198288666,1,0,1,1,1,0,'','Problemas con Bitmaps en Comobox','Saludos a todo el foro y de nuevo molestandolos..\n\nTengo problemas al ver imagenes a la clase combobox, estoy realizando unas pruebas y no veo las imagenes dentro del combo..\n\nlocal oDlg, oCbx\nlocal nTipo:= 1\nlocal cTipos:= {\"Usuario\",\"PC\"}\nlocal aBmp:= {\"logo1\",\"logo2\"}\n\nDEFINE DIALOG oDlg    RESOURCE \"DLG_OPC\"\nREDEFINE COMBOBOX oCbx VAR nTipo ITEMS cTipos BITMAPS aBmps ID 100 OF oDlg\nACTIVATE DIALOG oDlg CENTERED\n\npero no veo los bitmas que estan cargados desde un .rc y que estan incrustados en el exe..\n\nla clase combobox esta modificada para hacer busquedas incrementales presionando la primera letra de los item..\n\nsaludos y esperando aportaciones..\n\ngracias..','',0,'QA==','39lfdakf',1,0,'',987,0,0),(44624,9317,6,53,0,'189.139.94.252',1198293258,1,0,1,1,1,1,'','','Ricardo:\n\nEn principio no veo la necesidad de saber si el dato fue cambiado o no, simplemente con la combinación de las teclas que mencionas grabas el dato aunque haya o no cambiado.\n\nPerooooo, si insistes en saber si el dato cambió o no te recomiendo que uses la clase TDATABASE que si no recuerdo mal tiene la propiedad lModified que te indica si cambió o no.\n\nSaludos y Felíz Navidad para todo el foro','',0,'QA==','c5vi5xo8',1,0,'',53,0,0),(44625,9295,6,396,0,'200.71.188.208',1198299916,1,0,1,1,1,1,'','','[quote=&quot;jcaro&quot;:3sgujpgy]Jose Luis Gracias por responder,\n\nLo hago igual que tu y no funciona.  \nLos recursos igual me los lee pone el Verce, yo no los pongo por fuera.\n\nSi puedes enviarme un ejemplo pequeño del verce 5, te lo agradeceria.\n\nSaludos,[/quote:3sgujpgy]\nJCARO, no veo en tu perfil un correo electronico donde enviarte el ejemplo, envia un correo a mi privado y te lo devuelvo con el ejemplo, saludos.','',0,'gA==','3sgujpgy',1,0,'',396,0,0),(44626,9317,6,109,0,'200.52.198.44',1198302095,1,0,1,1,1,0,'','','Armando, gracias por contestar.\n    Perdon que no me haya dado a entender como deberia de ser. Te explico.\n    Como comento tengo un dialogo con tan solo un campo y dos botones\n    \n     Al \"EDITAR\" el campo, este tiene el dato \"HERMOSILLOS\", para corregir el dato el usuario logicamente escribira \"HERMOSILLO\", pero sin que el usuario de \"ENTER\", al querer grabar con CTRL + F4, como el get no ha perdido el foco NI CON ENTER, NI CON TAB, pues el registro se queda como estaba, en cambio si llevo el mouse hacia el boton grabar, si lo hace, porque el get ya perdio el foco, (hay usuarios que les da flojera arrastrar el mouse, al cliente lo que solicite, porque gracias a ellos tenemos trabajo).\n\n     \"Necesito grabar los datos cuando el usuario esta dentro del get\".\n\nGracias por tus comentarios.\n\nRicardo E. Guardado Flores.','',0,'gA==','1bdz1t6q',1,0,'',109,0,0),(44627,9320,6,400,0,'201.68.30.70',1198304857,1,0,1,1,1,1,'','Color em Head..Wbrowse ??','Estou usando Twbrowse do Fwh712, mas, no estou conseguindo por Cor nos heads.\n\n oBrw:nClrBackHead  := CLR_BLUE\n  oBrw:nClrForeHead  := CLR_WHITE\n\nNo muda las Cores...continuam las cores de Default.\n\nSaluds','',0,'gA==','3i5u76am',1,0,'',400,0,0),(44628,9317,6,854,0,'189.131.146.31',1198306912,1,0,1,1,1,0,'','','Podrias probar asi.\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4840&amp;highlight=salir\">http://fivetechsoft.com/forums/viewtopi ... ight=salir</a><!-- m -->','',0,'gA==','3g83tupp',1,0,'',854,0,0),(44629,9321,17,2,0,'87.218.146.216',1198309980,1,0,1,1,1,1,'','templates / plantillas','A dialog created from source code:\n[code=fw:19d5g0h7]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"> <br /><span style=\"color: #00D7D7;\">#include</span> <span style=\"color: #ff0000;\">&quot;FiveWin.ch&quot;</span>  <br /> <br /><span style=\"color: #00C800;\">function</span> Main<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span>        <br /> <br />   <span style=\"color: #00C800;\">local</span> oDlg        <br /> <br />   <span style=\"color: #0000ff;\">DEFINE</span> <span style=\"color: #0000ff;\">DIALOG</span> oDlg <span style=\"color: #0000ff;\">TITLE</span> <span style=\"color: #ff0000;\">&quot;Test&quot;</span>        <br /> <br />   <span style=\"color: #0000ff;\">ACTIVATE</span> <span style=\"color: #0000ff;\">DIALOG</span> oDlg <span style=\"color: #0000ff;\">CENTERED</span>  <br /> <br /><span style=\"color: #00C800;\">return</span> <span style=\"color: #00C800;\">nil</span> <br /> </div>[/code:19d5g0h7]\n\nA dialog created from resources:\ntest.prg\n[code=fw:19d5g0h7]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"> <br /><span style=\"color: #00D7D7;\">#include</span> <span style=\"color: #ff0000;\">&quot;FiveWin.ch&quot;</span>   <br /> <br /><span style=\"color: #00C800;\">function</span> Main<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span>         <br /> <br />   <span style=\"color: #00C800;\">local</span> oDlg         <br /> <br />   <span style=\"color: #0000ff;\">DEFINE</span> <span style=\"color: #0000ff;\">DIALOG</span> oDlg <span style=\"color: #0000ff;\">RESOURCE</span> <span style=\"color: #ff0000;\">&quot;Test&quot;</span>         <br /> <br />   <span style=\"color: #0000ff;\">ACTIVATE</span> <span style=\"color: #0000ff;\">DIALOG</span> oDlg <span style=\"color: #0000ff;\">CENTERED</span>   <br /> <br /><span style=\"color: #00C800;\">return</span> <span style=\"color: #00C800;\">nil</span> <br /> </div>[/code:19d5g0h7]\n\nand test.rc\n[code=text:19d5g0h7]<div class=\"text\" id=\"{CB}\" style=\"font-family: monospace;\"> <br />test DIALOG 17, 36, 185, 147 <br />STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU<br />CAPTION &quot;Test&quot; FONT 8, &quot;MS Sans Serif&quot; <br />{  <br />   DEFPUSHBUTTON &quot;OK&quot;, 1, 67, 128, 50, 14 <br />}<br /> </div>[/code:19d5g0h7]','c3d1da92c9b7960918276192d601db0a',0,'AIA=','19d5g0h7',1,1222601375,'',2,3,0),(44630,9317,6,2,0,'87.218.146.216',1198310667,1,0,1,1,1,1,'','','Ricardo,\n\nAqui tienes un ejemplo funcionando como quieres:\n[code:2bqhkjtk]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oDlg, oGet, cText &#58;= &quot;Hello world&quot;\n\n   SetKey&#40; VK_F4, &#123; || SaveGet&#40; oGet &#41; &#125; &#41;\n\n   DEFINE DIALOG oDlg TITLE &quot;Test&quot; \n\n   @ 2, 2 GET oGet VAR cText\n\n   ACTIVATE DIALOG oDlg CENTERED \n\nreturn nil\n\nfunction SaveGet&#40; oGet &#41;\n\n   if GetKeyState&#40; VK_CONTROL &#41;\n      MsgInfo&#40; AllTrim&#40; oGet&#58;GetText&#40;&#41; &#41; &#41; // salvar aqui el contenido del GET\n   endif   \n   \nreturn nil  \n[/code:2bqhkjtk]','',0,'AIA=','2bqhkjtk',1,0,'',2,0,0),(44631,9291,3,2,0,'87.218.146.216',1198311298,1,0,1,1,1,1,'','','NageswaraRao,\n\nFixed. In source\\classes\\rpreview.prg change twice:\n\nif ! IsAppThemed()\n\ninto\n\nif ! IsAppThemed() .or. Upper( ::oBar:ClassName() ) == \"TBAR\"\n\nThanks!','',0,'AIA=','13tvmf5q',1,0,'',2,0,0),(44632,9313,3,2,0,'87.218.146.216',1198311462,1,0,1,1,1,1,'','','Vilian,\n\nAre you using usrrdd.lib from the Harbour/xHarbour builds for FWH 7.12 ?','',0,'AIA=','3i9c1rv6',1,0,'',2,0,0),(44633,9319,6,2,0,'87.218.146.216',1198311709,1,0,1,1,1,1,'','','Dany,\n\nPuedes probar fwh\\samples\\ownerdra.prg y comprobar si te funciona bien ? gracias','',0,'AIA=','l6da4gy8',1,0,'',2,0,0),(44634,9322,3,51,0,'80.122.88.242',1198311875,1,0,1,1,1,0,'','How to scroll up/down in a get with spinner from keyboard','Could someone tellme which key to use to scroll up/down in a get with spinner from keyboard.\n\nThanks in advance\nOtto','',0,'AIA=','3iryzjpg',1,0,'',51,0,0),(44635,9316,6,2,0,'87.218.146.216',1198312036,1,0,1,1,1,1,'','','Revisa fwh\\samples\\webexp.prg\n\nEse ejemplo muestra la forma correcta de usarlo','',0,'AIA=','2zqutari',1,0,'',2,0,0),(44636,9322,3,2,0,'87.218.146.216',1198312512,1,0,1,1,1,1,'','','Otto,\n\nPlease add this code to Class TGet Method KeyDown():\n[code:3upsl194]\n   	  case nKey == VK_PRIOR\n   	       if &#58;&#58;lSpinner\n   	          Self--\n   	       endif   \n\n   	  case nKey == VK_NEXT\n   	       if &#58;&#58;lSpinner\n   	          Self++\n   	       endif   \n[/code:3upsl194]\nNow you can use PageUp and PageDown','',0,'AIA=','3upsl194',1,0,'',2,0,0),(44637,9320,6,2,0,'87.218.146.216',1198312798,1,0,1,1,1,1,'','','Ale,\n\nUsas temas en tu aplicación ? \n\nDe ser así, el browse muestra el pintado típico de las cabeceras con temas y no usa los datos definidos en esas DATAs','',0,'AIA=','2fvuo8ev',1,0,'',2,0,0),(44638,9321,17,2,0,'87.218.146.216',1198312895,1,0,1,1,1,1,'','','A window:\n[code=fw:5vvqsnxg]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"> <br /><span style=\"color: #00D7D7;\">#include</span> <span style=\"color: #ff0000;\">&quot;FiveWin.ch&quot;</span> <br /> <br /><span style=\"color: #00C800;\">function</span> Main<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span> <br /> <br />   <span style=\"color: #00C800;\">local</span> oWnd <br /> <br />   <span style=\"color: #0000ff;\">DEFINE</span> <span style=\"color: #0000ff;\">WINDOW</span> oWnd <span style=\"color: #0000ff;\">TITLE</span> <span style=\"color: #ff0000;\">&quot;Test&quot;</span> <br /> <br />   <span style=\"color: #0000ff;\">ACTIVATE</span> <span style=\"color: #0000ff;\">WINDOW</span> oWnd <br /> <br /><span style=\"color: #00C800;\">return</span> <span style=\"color: #00C800;\">nil</span> <br /> </div>[/code:5vvqsnxg]','2d48a5f30bb2e6a4743a7c958e71ae61',0,'AIA=','5vvqsnxg',1,0,'',2,0,0),(44639,9323,3,51,0,'80.122.88.242',1198313586,1,0,1,1,1,0,'','One question about organization of class changes.','Hello Antonio,\n\nIf you suggest change in a method of  classes how do we know if you \nbuild in this code in the next release of FW or if we have to care when we switch to the next FW version.\n\nCould you please in general post in your messages if the  solutions will be part of the next release.\nBest regards,\nOtto','',0,'AIA=','qdml7ebw',1,0,'',51,0,0),(44640,9323,3,2,0,'87.218.146.216',1198317144,1,0,1,1,1,1,'','','All published changes are included in the next FWH build, besides new features and enhancements','',0,'AIA=','3b2xgcym',1,0,'',2,0,0),(44641,9316,6,1236,0,'201.86.89.128',1198318207,1,0,1,1,1,0,'','','grato','',0,'AIA=','2x0oca1w',1,0,'',1236,0,0),(44642,9323,3,51,0,'80.122.88.242',1198318515,1,0,1,1,1,0,'','','Good to know.\n\nRegards,\nOtto','',0,'AIA=','103nhbpj',1,0,'',51,0,0),(44643,9323,3,2,0,'87.218.146.216',1198318911,1,0,1,1,1,1,'','','It has always been this way <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','rfeagrys',1,0,'',2,0,0),(44644,9324,6,1259,0,'88.2.201.200',1198325679,1,0,1,1,1,0,'','WBRWLINE.OBJ VERSION 17 16 Y 32 BITS','Saludos a todos los miembros del foro, despues de varios años desconectado vuelvo a programas y necesito ponerme las pilas.\nAlguien podria pasarme o decirme donde conseguir wbrwline.obj ya compilado para 16 y 32 bits y de la version 17.\nTambien me valen las librerias TWBRW16.LIB Y TWBRW32.LIB\n\nFelices Fiestas y Saludos.\nJesús Tenllado\nAntequera','',0,'AIA=','1f6fq5oe',1,0,'',1259,0,0),(44645,9324,6,2,0,'87.218.146.216',1198326771,1,0,1,1,1,1,'','','Jesús,\n\nSi te refieres al browse de Hernán, revisa aqui:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2502\">http://fivetechsoft.com/forums/viewtopic.php?t=2502</a><!-- m -->','',0,'AIA=','1uez1rvm',1,0,'',2,0,0),(44646,9291,3,868,0,'219.64.121.60',1198329357,1,0,1,1,1,1,'','','Thanks for the fix. \n\nSightly off topic.  Do you advise replacing isAppThemed() with ( isAppThemed() and IsThemeActive() ) in general at all the places in the library?','',0,'AIA=','3kelsn20',1,0,'',868,0,0),(44647,9313,3,267,0,'189.13.205.93',1198332849,1,0,1,1,1,1,'','','Antonio,\n\nUsing usrrdd.lib from the Harbour/xHarbour builds for FWH 7.12 I now have the following message of error:\n\n[code:1dowtz4w]\nUNRECOVERABLE ERROR 9015 - Symbol Item expected from Hb_VmDo&#40;&#41;\n[/code:1dowtz4w]','',0,'AIA=','1dowtz4w',1,0,'',267,0,0),(44648,9312,6,1260,0,'164.77.169.17',1198334132,1,0,1,1,1,0,'','','MAESTRO DE MAESTROS MMERCADO::\n\nUNA ALEGRIA SABER QUE EL CREADOR DE TSBROWSE , QUE TANTO ME GUSTA USAR ESTA OTRA VEZ CON NOSOTROS..\n\n\nSI EN ALGO PUEDO COLABORARTE MASTER NO DUDE EN ESCRIBIRME;;;\n\nPD:. SUPONGO QUE PARA BROWSEAR USARAS TU PROPIA CLASE;;\n\nSALUDOS::','',0,'AIA=','ysd83iu0',1,0,'',1260,0,0),(44649,9291,3,2,0,'87.218.146.216',1198335083,1,0,1,1,1,1,'','','NageswaraRao,\n\nWe could internally modify IsAppThemed() to make both calls, if required\n\nBut first we need to decide whats the desired behavior','',0,'AIA=','1o3akpfz',1,0,'',2,0,0),(44650,9325,6,1246,0,'66.82.9.53',1198339849,1,0,1,1,1,1,'','PROBLEMAS DBCOMBO FWH 24','HOLA A TODOS :\nno se si ya resolvieron el problema del dbcombo en fwh24\npor que me surgio el probleman que ya se ha tocado en otros post anteriores,\na lo mejor me contesten que actualizando el fwh, e qui el dilema , no se o si alguien sepa donde puedo conseguir las actuazlizacioes en mexico, ya que parece ser google ya no funciona, antonio linares me recomedo en la pagina de pedidos de fivetech , pero la politica de la asociaion es de no, comprar nada por iternet, ademas de que es en españa.\nhaber si alguin me pude ayudar.\nde antenado gracias y felices fiestas navideñas y fin de año a todos.','',0,'AIA=','2iyn3ctv',1,0,'',1246,0,0),(44651,9326,6,171,0,'71.233.232.238',1198340212,1,0,1,1,1,0,'','Manuel Mercado y TSBROWSE','La Clase TSbrowse de M. Mercado es sin duda el componente mas importante que uso en mis aplicaciones. Estoy seguro que muchos de mis compañeros estaran de acuerdo en la importancia de esta clase. Su versatilidad, facilidad de uso y caracteristicas avanzadas no se encuentran en ninguna otra clase para manejar browses.\n\nMi sugerencia para M. Mercado es que convierta esta clase para que se pueda usar en la ultima version de FWH y xHarbour, pero que no la de gratis. \nEs de justicia que esta excelente clase, asi como otras de tambien excelente calidad y que son usadas en nuestros programas sean de paga. De esta manera podemos recompensar a nuestros compañeros que pasan largas horas trabajando para beneficio nuestro.\n\nGeorge','',0,'AIA=','14llmd7m',1,0,'',171,0,0),(44652,9327,3,1261,0,'76.93.26.62',1198340360,1,0,1,1,1,0,'','How to &quot;compact&quot; an Access Database','Hi,\n\nHow do you \"compact\" an .MDB file in FW? Can somebody share me a code?\n\nThanks\nBert','',0,'AIA=','3hnghwms',1,0,'',1261,0,0),(44653,9328,3,171,0,'71.233.232.238',1198341619,1,0,1,1,1,0,'','Manuel Mercado &amp; TSBROWSE class','The M. Mercado TSbrowse Class is without a doubt the more important component that I am using in my applications. I am for sure that many of you will agree on the importance of this class. \nThe TSBrowse versatility and advanced characteristics are not found in any other class to manage browses.   \n  \nMy suggestion for M. Mercado is that converts this class to use it with FWH and xHarbour last versions. \n \n[b:3lzm1ov8]This excellent class, as well as others of also excellent quality that are used in our programs, should not be free[/b:3lzm1ov8]. \nThis way we can reward our fellows programmers that are working many many hours for our benefit.   \n\nThank you Manuel for sharing with us TSbrowse.\n\nGeorge','',0,'QA==','3lzm1ov8',1,0,'',171,0,0),(44654,9318,23,130,0,'84.138.7.164',1198342501,1,0,1,1,1,1,'','','Hallo Günther,\n\nist lange nichts mehr los gewesen hier, alle stellen die Fragen halt ins englische Forum, wo mehr Nutzer sind. \n\nGrüße aus Deutschland\n\nStefan','',0,'QA==','1pg7rnea',1,0,'',130,0,0),(44655,9329,17,1257,0,'195.93.60.105',1198343116,1,0,1,1,1,1,'','Service-Module for Customer-Support','The Service-Module, to change from NTX to CDX,\n  structure and Index - update is ready for download.\n  For the moment it is in german.\n  It will be still translated in enlish.\n  Modify CDX-Index, change structure, show field-\n  Informations, show result of a selected Index and more ..\n  As well it is a nice sample for the new office-2007-class\n  and xBrowse.\n  \n  Just make your database-changes and send the modified exe \n  to your customer.\n\n  All files are included. When you extract the Zip,\n  you must keep the subfolder &lt; Konvert &gt; for the\n  old DBF / DBT - files, to try the Option NTX &lt;&gt; CDX.\n  \n  You can download it directly to use the Home-Page-Button\n\n  Greetings from Germany <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','36hgtt9u',1,1199013693,'',1257,1,0),(44656,9304,6,92,0,'217.125.163.61',1198344936,1,0,1,1,1,0,'','Re: Modo Diseño','Hola Daniel,\n\nAunque sólo sea pot curiosidad, que pretendes hacer?\n\nSaludos\nCarlos G.','',0,'QA==','h7jzl4d3',1,0,'',92,0,0),(44657,9329,17,1193,0,'203.70.2.12',1198345482,1,0,1,1,1,0,'','','Hi Ukoenig,\n\nSounds good.\nBut I can\'t download file from your web site.\nPlease check it again. Thank you.\n\nRegards,\n\nRichard','',0,'QA==','u5rcmisg',1,0,'',1193,0,0),(44658,9328,3,51,0,'80.122.88.242',1198348852,1,0,1,1,1,0,'','','Hello George,\n\ndo you have experience with xBrowser?\nIf yes where do you see advantages of TSBrowser over xBrowser.\nRegards,\nOtto','',0,'QA==','3987jp8y',1,0,'',51,0,0),(44659,9304,6,471,0,'190.42.207.236',1198349791,1,0,1,1,1,1,'','','Yo te sugeriria que grabes toda la info de la ventana en inis\no en archivos con un formato q tu definas como en mi caso\n\nLa verdad que yo trabajo con un ide visual para fw (WINRAD) le llamo\n y si se puede hacer y me va de maravillas por que es en tiempo de ejecucion.\n\nLa primera idea q te doy es que tienes que guardar los datos\nde las clases en algun lugar yo uso archivos *.frm con un formato\nque yo he creado\nOsea yo renuncie a la idea de generar codigo para que mas codigo\nme dije si eso es lo q quier achicar solo quiero leer eventos \n\nLuego esos datos deben cargarse y deben responder a los eventos \nde sus controles\n\nQue hice entonces simple le agrege mas datos a la clase twindow\nosea las misma clase guarla por ejemplo la funcion que se debe\nejecutar cuando se hace un clic  a un boton\n\nEl resultado es un sistema que lee y configura todo en tiempo de\nejecucion  , fonts , colores campos de los browse , reportes\ny si el cliente me dice no me gusta la letra de mi formulario se lo\ncambio al toque , le puedo quitar el valid a un get , crearle un boton\ny ponerle la calculadora , agregarle un campo mas al reporte etc\ny todo sin compilar ni enlazar.\n\nClaro esta q tengo un ini con el que abro esa posibilida del design \ny al cliente se lo entregho cerrado para q no desahaga el sistema.\n\nHay algunas cositas que la verdad no he alcanzado a hacer como \npor ejemplo un depuraddo r como e del FOX  que cuando tenga \ntiempo algun dia lo hare\n\n\nSaludos\n\nVladimir Zorrilla Llerena\n<!-- e --><a href=\"mailto:cps_net@hotmail.com\">cps_net@hotmail.com</a><!-- e -->','',0,'QA==','124d8y35',1,0,'',471,0,0),(44660,9318,23,51,0,'80.122.88.242',1198351127,1,0,1,1,1,0,'','','Hallo Günther, hallo Stefan,\nich schaue zwar öfters hier im Forum vorbei, doch leider gibt es wenig Einträge. \n\nStefan, Silvio hat mir in einem Mail einmal geschrieben, dass er mit dir dieses Planungsgrid entwickelt. \nWie ist der Stand. Glaubst du, dass dieses Grid bald verfügbar ist.\n\nGruß\nOtto','',0,'QA==','1b1uus04',1,0,'',51,0,0),(44661,9327,3,6,0,'79.9.234.226',1198351184,1,0,1,1,1,1,'','Re: How to &quot;compact&quot; an Access Database','[code:3b3ulhtt]FUNCTION MAIN&#40;&#41;\n\n    LOCAL oJro &#58;= CREATEOBJECT&#40; &quot;JRO&#46;JetEngine&quot; &#41;\n\n    LOCAL cConStr1 &#58;= &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=old&#46;mdb&quot;\n    LOCAL cConStr2 &#58;= &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=new&#46;mdb&quot;\n\n    oJro&#58;CompactDatabase&#40; cConStr1, cConStr2 &#41;\n\n    RETURN NIL[/code:3b3ulhtt]\n\nEMG','',0,'AIA=','3b3ulhtt',1,0,'',6,0,0),(44662,9296,3,448,0,'83.132.134.79',1198351264,1,0,1,1,1,0,'','','Antonio,\n\nI get this error\n\nType: C &gt;&gt;&gt;TMAKEPROJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1266&lt;&lt;&lt;\n\nAntonio','',0,'AIA=','24l1tx18',1,0,'',448,0,0),(44663,9296,3,2,0,'87.218.146.216',1198351650,1,0,1,1,1,1,'','','It looks as you are using xHB builder, right ?','',0,'AIA=','qwvmjjoy',1,0,'',2,0,0),(44664,9313,3,2,0,'87.218.146.216',1198351814,1,0,1,1,1,1,'','','Please compile adordd.prg as part of your application. \n\nDon\'t use the library from the ZIP file.','',0,'AIA=','2y6xia9a',1,0,'',2,0,0),(44665,9328,3,303,0,'72.220.181.80',1198353691,1,0,1,1,1,0,'','','George,\n\n&gt;My suggestion for M. Mercado is that converts this class to use it with FWH and xHarbour last versions.\n\nAre you having a problem with this class? It is working fine with 7.11, but I have not tried it with 7.12. If you are having a problem, what is it?\n\nJames','',0,'AIA=','3qs6e66p',1,0,'',303,0,0),(44666,9328,3,58,0,'84.149.87.191',1198354457,1,0,1,1,1,0,'','','George,\n\ni agree with you that TsBrowse is a real asset amongst the browsers for FiveWin. Unfortunatelly it has several bugs which Manuel Mercado never solved.\nJames Bott made some bug cleaning and enhancements in version 6.13.\nThanks to him. So scrollbars do now work properly.\n\nBut there are still some bugs. \nI also agree with you that such work should not be distributed as \'freeware\'. \nI\'m not sure if you know the story of Manuel Mercado.\nHere in short: some years ago after giving us TsBrowe, Manuel announced to develop a visual IDE for xHarbour and asked for money because this would have been a fulltime job. A lot of FiveWin users payed 50,- Euro to enable Manuel to work on this IDE. But instead of developing Manuel disappeared. Some rumors told he would be ill.\n\nI don\'t regret the 50 Euros i payed because i use frequently TsBrowse \nwhich IMO is already worth that money.\n\nI don\'t thing you\'ll be able to encourage Manuel to complete this great browse.\n\nRegards,\nDetlef','',0,'AIA=','12wo80mp',1,0,'',58,0,0),(44667,9328,3,303,0,'72.220.181.80',1198355198,1,0,1,1,1,0,'','','Detlef,\n\n&gt;But there are still some bugs.\n\nWhat bugs have you found? Have you made any fixes?\n\nJames','',0,'AIA=','377c8j53',1,0,'',303,0,0),(44668,8612,7,154,0,'151.21.33.39',1198355843,1,0,1,1,1,1,'','Re: Leer Gps','Hi all,\nduring the compilation return this errors:\n[code:kczvxpxs]Progetto&#58; GPS, Ambiente&#58; FWPPC&#58;\n&#91;1&#93;&#58;Link&#46;Exe @GPS&#46;vcl /nologo /SUBSYSTEM&#58;WINDOWSCE,4&#46;20 /MACHINE&#58;ARM\n   Creating library C&#58;\\Work\\Src-CE\\GPS\\GPS&#46;lib and object C&#58;\\Work\\Src-CE\\GPS\\GPS&#46;exp\nGps_1&#46;Obj &#58; error LNK2001&#58; unresolved external symbol HB_FUN_COMREAD\nGps_1&#46;Obj &#58; error LNK2001&#58; unresolved external symbol HB_FUN_COMCLOSE\nGps_1&#46;Obj &#58; error LNK2001&#58; unresolved external symbol HB_FUN_OPENCOM\nC&#58;\\Work\\Src-CE\\GPS\\GPS&#46;Exe &#58; fatal error LNK1120&#58; 3 unresolved externals[/code:kczvxpxs]\nI don\'t found library for comm connection in my Harbour_ce and FwPPC directory.\nHow can resolve?','',0,'AIA=','kczvxpxs',1,0,'',154,0,0),(44669,9328,3,51,0,'80.122.88.242',1198356009,1,0,1,1,1,0,'','','I don’t speak any Spanish but as much as I understand it seems that Manuel is back.\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9312\">http://fivetechsoft.com/forums/viewtopic.php?t=9312</a><!-- m -->\n\nJames, did you evaluate xBrowser versus TS. \nRegards,\nOtto','',0,'AIA=','2tacaofo',1,0,'',51,0,0),(44670,9328,3,51,0,'80.122.88.242',1198356621,1,0,1,1,1,0,'','','Hello Detlef,\n\nI have to correct you.\nIt was: 50$  or   58 Euro \n\nToday the same would be:\n50 Dollar=34.739 Euro\nThat\'s business!\nRegards,\nOtto','',0,'AIA=','mqd91r0a',1,0,'',51,0,0),(44671,9317,6,109,0,'189.192.225.233',1198357384,1,0,1,1,1,0,'','','Sr. Linares\n   Como siempre, funciono Ok.\n\nArmando, Vital, Muchas gracias por sus sugerencias.','',0,'AIA=','uheli08k',1,0,'',109,0,0),(44672,9326,6,1255,0,'201.122.38.237',1198358768,1,0,1,1,1,0,'','','Hola George:\n\nYa estoy trabajando, precisamente tratando de hacer funcionar TSBrowse con FWH 7.12 que acabo de instalar.\n\nEn cuanto tenga resultados se los estaré comunicando y les haré llegar la última versión de TSBrowse ya funcionando con Harbour y xHarbour, por supuesto de forma gratuita.\n\nRecibe, como siempre, mi afectuoso saludo.\n\nManuel Mercado','',0,'AIA=','f0trm894',1,0,'',1255,0,0),(44673,9328,3,58,0,'84.149.87.191',1198359551,1,0,1,1,1,0,'','','James,\n\nif you use Super headers of TsBrowse you\'ll crash.\nI corrected this in 6.13. but after some other misbehaviours i changed to Hernan\'s browse.\n\nI modified the METHOD TSBrowse:DrawSuper().\nBecause a variable nI was running from nS to Len( aSuperHead ) + 1  a bound error happened.\n\nIn my version it was from line 2790 on\n[code:2ok36397]   For nI &#58;= nS To Len&#40; aSuperHead &#41; + 1\n\n      If nStartCol &gt; nMaxWidth\n         Exit\n      EndIf\n\n      If nI &lt;= Len&#40; aSuperHead &#41;\n         nClrFore &#58;= If&#40; ValType&#40; aSuperHead&#91; nI, 4 &#93; &#41; == &quot;B&quot;, ;\n                         Eval&#40; aSuperHead&#91; nI, 4 &#93; &#41;, aSuperHead&#91; nI, 4 &#93; &#41;\n         nClrBack &#58;= If&#40; ValType&#40; aSuperHead&#91; nI, 5 &#93; &#41; == &quot;B&quot;, ;\n                         Eval&#40; aSuperHead&#91; nI, 5 &#93; &#41;, aSuperHead&#91; nI, 5 &#93; &#41;\n\n         lBrush &#58;= Valtype&#40; nClrBack &#41; == &quot;O&quot;\n\n         If &#40; lDegrad &#58;= ValType&#40; nClrBack &#41; == &quot;A&quot; &#41;\n            nClrTo   &#58;= nClrBack&#91; 2 &#93;\n            nClrBack &#58;= nClrBack&#91; 1 &#93;\n            nClrTo &#58;= If&#40; ValType&#40; nClrTo &#41; == &quot;B&quot;, Eval&#40; nClrTo &#41;, nClrTo &#41;\n            nClrBack &#58;= If&#40; ValType&#40; nClrBack &#41; == &quot;B&quot;, ;\n                            Eval&#40; nClrBack &#41;, nClrBack &#41;\n         EndIf\n\n         cHeading &#58;= aSuperHead&#91; nI, 3 &#93;\n\n         cHeading &#58;= If&#40; Valtype&#40; cHeading &#41; == &quot;B&quot;, Eval&#40; cHeading &#41;, cHeading &#41;\n\n         lMultiLine &#58;= Valtype&#40; cHeading &#41; == &quot;C&quot; &#46;and&#46; At&#40; Chr&#40; 13 &#41;, cHeading &#41; &gt; 0\n\n         l3DLook    &#58;= aSuperHead&#91; nI, 6 &#93;\n         hFont      &#58;= aSuperHead&#91; nI, 7 &#93;\n         lBitMap    &#58;= aSuperHead&#91; nI, 8 &#93;\n         lAdjBmp    &#58;= aSuperHead&#91; nI, 9 &#93;\n         nLineStyle &#58;= aSuperHead&#91; nI, 10 &#93;\n         nClrLine   &#58;= aSuperHead&#91; nI, 11 &#93;\n         nHAlign    &#58;= aSuperHead&#91; nI, 12 &#93;\n         nVAlign    &#58;= aSuperHead&#91; nI, 13 &#93;\n         lTransp    &#58;= If&#40; lBitMap, If&#40; aSuperHead&#91; nI, 14 &#93;, 1, 2 &#41;, 0 &#41;\n      Else\n         cHeading &#58;= &quot;&quot;\n         nWidth   &#58;= &#58;&#58;nPhantom\n         lBitmap  &#58;= &#46;F&#46;\n         lTransp  &#58;= 0\n         nClrBack &#58;= If&#40; &#58;&#58;nPhantom == -2, nClrPane, nClrBack &#41;\n      EndIf\n         \n      if nI &lt;= Len&#40; aSuperHead &#41;\n         If &#58;&#58;aColumns&#91; aSuperHead&#91; nI, 1 &#93; &#93;&#58;l3DTextHead != Nil\n            l3DText &#58;= &#58;&#58;aColumns&#91; aSuperHead&#91; nI, 1 &#93; &#93;&#58;l3DTextHead\n            nClr3dL &#58;= &#58;&#58;aColumns&#91; aSuperHead&#91; nI, 1 &#93; &#93;&#58;nClr3DLHead\n            nClr3dS &#58;= &#58;&#58;aColumns&#91; aSuperHead&#91; nI, 1 &#93; &#93;&#58;nClr3DSHead\n            nClr3dL &#58;= If&#40; ValType&#40; nClr3dL &#41; == &quot;B&quot;, ;\n                           Eval&#40; nClr3dL, 0, nStartCol &#41;, nClr3dL &#41;\n            nClr3dS &#58;= If&#40; ValType&#40; nClr3dS &#41; == &quot;B&quot;, ;\n                           Eval&#40; nClr3dS, 0, nStartCol &#41;, nClr3dS &#41;\n         Else\n            l3DText &#58;= nClr3dL &#58;= nClr3dS &#58;= Nil\n         EndIf\n      EndIf\n\n      TSDrawCell&#40;      hWnd, ;  // 1\n                        hDC, ;  // 2\n                          0, ;  // 3\n                  nStartCol, ;  // 4\n                     nWidth, ;  // 5\n                   cHeading, ;  // 6\n                    nHAlign, ;  // 7\n                   nClrFore, ;  // 8\n                   nClrBack, ;  // 9\n                      hFont, ;  // 10\n                    lTransp, ;  // 11 0 = No Bitmap 1 = Transparent 2 = Opaque\n                nHeightHead, ;  // 12\n                    l3DLook, ;  // 13\n                 nLineStyle, ;  // 14\n                   nClrLine, ;  // 15\n                          3, ;  // 16 1=Header 2=Footer 3=Super\n                nHeightHead, ;  // 17\n                nHeightFoot, ;  // 18\n               nHeightSuper, ;  // 19\n                    lAdjBmp, ;  // 20\n                 lMulTiLine, ;  // 21\n                    nVAlign, ;  // 22\n                          0, ;  // 23 nVertLine\n                     nClrTo, ;  // 24\n                    lDegrad, ;  // 25\n                 If&#40; lBrush, ;\n       nClrBack&#58;hBrush, 0 &#41;, ;  // 26\n                    l3DText, ;  // 27  3D text\n                    nClr3dL, ;  // 28  3D text light color\n                    nClr3dS &#41;   // 29  3D text shadow color\n\n      nStartCol += nWidth\n\n      nWidth &#58;= 0\n      If nI &lt; Len&#40; aSuperHead &#41;\n         For nJ &#58;= aSuperHead&#91; nI + 1, 1 &#93; To aSuperHead&#91; nI + 1, 2 &#93;\n            nWidth += aColSizes&#91; nJ &#93;\n         Next\n      EndIf\n\n   Next\n[/code:2ok36397]\n\nregards,\nDetlef','',0,'AIA=','2ok36397',1,0,'',58,0,0),(44674,9329,17,1257,0,'195.93.60.34',1198359895,1,0,1,1,1,1,'','Service-Module for Customer-Support','Hallo, from germany\n\nA tool for customer-Support\n\nHow it works :\n\nJust send the tool to the customer.\nHe doesn´t need to know anything about the databases of your programm. \nJust tell him in a included message the changes.\nHe can change the database-strukture from NTX to CDX.\nUpdate the database-structure with new- or changed fields.\nBuild new Indexes.\nView the result of given indexes.\nView the structure of a selected database.\nWith a given parameter, the tool can start with the server and rebuild\nin the background all indexes. \n\nThe tool works with the new Office2007-bar and xbrowse. \n\nFor any downloads, just use the website-button. \nThere is a straight connection to the new Fivewin-Usersection  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','m0a0w9ay',1,1199013550,'',1257,1,0),(44675,9328,3,58,0,'84.149.87.191',1198360017,1,0,1,1,1,0,'','','Hallo Otto,\n\ni would have paid even 100 Euro because FiveWin is still missing a professional looking browse. And Manuel\'s work was it worth.\n\nbtw, I wonder that you seem to prefer xBrowse.\nI even can\'t believe what the mallorca.prg of the FWH samples is doing if you want to enter values which don\'t match a valid clause.\nIt\'s a mere mess. \n\nRegards,\nDetlef','',0,'AIA=','267304ty',1,0,'',58,0,0),(44676,9328,3,51,0,'80.122.88.242',1198361286,1,0,1,1,1,0,'','','Hello Detlef,\nI only ask for pros and cons. As I don’t know these other browsers.\nTill now I only used C Five  and TWbrowse.\n\nEuro/Dollar \nI only wanted to point out how the exchange rate changed in this short time.\n\nBest regards,\nOtto','',0,'AIA=','2vr47dsq',1,0,'',51,0,0),(44677,9326,6,53,0,'189.139.219.233',1198361592,1,0,1,1,1,1,'','','Manuel:\n\nTal vez mi comentario de pie a que se desgranen más peticiones peroo..\n\nSería posible que le eches un ojo al uso de LISTBOX en la clase TSBROWSE, a mi no me funciona.\n\nSaludos y Felíz Navidad','',0,'AIA=','2vxufv37',1,0,'',53,0,0),(44678,9328,3,303,0,'72.220.181.80',1198362563,1,0,1,1,1,0,'','','Detlef,\n\n&gt;but after some other misbehaviours i changed to Hernan\'s browse. \n\nDo you remember what other problems you had?\n\nJames','',0,'AIA=','1v81g128',1,0,'',303,0,0),(44679,9319,6,987,0,'189.133.16.76',1198363538,1,0,1,1,1,0,'','','[b:2mbvty5f]Gracias por Contestar Maestro Antonio:[/b:2mbvty5f]\n\nEfectivamente si pude ejecutar el ejemplo que me comenta y al principio no mostraba las imagenes porque estaban en una ubicacion de disco diferente, por lo cual procedí a llamarlos desde el lugar de origen:\n\nBITMAPS { \"E:\\Desarrollo\\32bits\\FWH\\bitmaps\\fdrive.bmp\",;\n                \"E:\\Desarrollo\\32bits\\FWH\\bitmaps\\netdrive.bmp\" }\n\nAhora bien, yo trabajo con los bitmap desde un archivo de recursos .RC\n\nsuponiendo que estan pero no los carga en memoria se me ocurre llamarlos de la siguiente manera:\n\nLOCAL    aHMark:= { LoadBitmap( GetResources(), \"MARCA1\" ), ;\n                               LoadBitmap( GetResources(), \"MARCA2\" )  }\n\nya que por el momento los tengo así:\n\nLOCAL    aHMark:= { \"MARCA1\" ,\"MARCA2\"  }\n\nHaber que pasa... luego le comento... <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'QA==','2mbvty5f',1,0,'',987,0,0),(44680,9330,3,846,0,'201.11.137.44',1198365747,1,0,1,1,1,0,'','Problem with focus','[code:1i0u51e9]   REDEFINE GET oGetItem&#46;it_codbarra   VAR aGetItem&#46;it_codbarra   ID 4005 OF oDlgM PICTURE &quot;@!&quot;   WHEN &#40;lDisableI &#46;AND&#46; vModo = &quot;I&quot; &#46;AND&#46; EMPTY&#40;aGetItem&#46;it_codbarra&#41;&#41;  VALID AchaProduto&#40;@aGetItem,@oGetItem,1&#41;\n   REDEFINE GET oGetItem&#46;it_id_comanda VAR aGetItem&#46;it_id_comanda ID 4002 OF oDlgM PICTURE &quot;@!&quot;   WHEN &#40;lDisableI &#46;AND&#46; vModo = &quot;I&quot; &#46;OR&#46; vModo = &quot;A&quot; &#41;  VALID AchaComanda&#40;aGetCli&#41;\n   REDEFINE GET oGetItem&#46;it_nm_produto VAR aGetItem&#46;it_nm_produto ID 4008 OF oDlgM PICTURE &quot;@!&quot;   NO MODIFY UPDATE color nRGB&#40; 000, 070, 180 &#41;,nRGB&#40; 255, 255, 255 &#41;\n   REDEFINE GET oGetItem&#46;it_quantidade VAR aGetItem&#46;it_quantidade ID 4014 OF oDlgM PICTURE &quot;999,999&#46;999&quot;   WHEN IF&#40;vmodo = &quot;I&quot;,&#40;lDisableI  &#46;AND&#46; EMPTY&#40;aGetItem&#46;it_quantidade&#41;&#41;,lDisableI&#41; VALID FTotProd&#40;@aGetCli,2&#41;\n   REDEFINE GET oGetItem&#46;it_prunitario VAR aGetItem&#46;it_prunitario ID 4016 OF oDlgM PICTURE &quot;999,999&#46;999&quot;   WHEN &#46;F&#46; //lDisableI VALID aGetItem&#46;vlunit_ped &gt; 0\n   REDEFINE GET oGetItem&#46;it_prtotal    VAR aGetItem&#46;it_prtotal    ID 4007 OF oDlgM PICTURE &quot;999,999&#46;999&quot;   WHEN &#46;F&#46; color nRGB&#40; 000, 070, 180 &#41;,nRGB&#40; 255, 255, 255 &#41;\n\n	REDEFINE BUTTON oBtn1 ID 702 OF oDlgM WHEN &#40;!EMPTY&#40;aGetItem&#46;it_quantidade&#41;&#41; ACTION &#40;GravaProduto&#40;aGetCli,oGetCli,aGetItem,vModo,@nRegi&#41;,oGetItem&#46;it_codbarra&#58;SetFocus&#40;&#41;&#41; UPDATE\n   REDEFINE BUTTON       ID 701 OF oDlgM ACTION &#40;CancelaIt&#40;oGetCli,@aGetCli,@lSaidaM,@lBotaol&#41;,oDlgM&#58;End&#40;&#41;&#41; UPDATE CANCEL\n[/code:1i0u51e9]\n\nWhat can this wrong, the focus needs to go to oGetItem.it_codbarra','',0,'AIA=','1i0u51e9',1,0,'',846,0,0),(44681,9296,3,448,0,'83.132.134.79',1198367990,1,0,1,1,1,0,'','','Right.\n\nAntonio','',0,'AIA=','33b1jst5',1,0,'',448,0,0),(44682,9328,3,49,0,'62.13.172.68',1198371702,1,0,1,1,1,1,'','','Sorry but MM is the author of Visual fivewin project ?\nSome one of us sent to this man  100,00 euros for the project do U remember : we also wait for this project...','',0,'AIA=','3o7gn926',1,0,'',49,0,0),(44683,9296,3,2,0,'87.218.146.216',1198373356,1,0,1,1,1,1,'','','Antonio,\n\nPlease include fwh/source/classes/activex.prg as a PRG of your application. So it will get linked before.','',0,'AIA=','2umyhhg2',1,0,'',2,0,0),(44684,9330,3,2,0,'87.218.146.216',1198373705,1,0,1,1,1,1,'','','ACTIVATE DIALOG oDlgM ON INIT ( oGetItem.it_codbarra:SetFocus(), [color=red:3n8qnor0].F.[/color:3n8qnor0] )','',0,'Ag==','3n8qnor0',1,0,'',2,0,0),(44685,8612,7,2,0,'87.218.146.216',1198373844,1,0,1,1,1,1,'','','Ugo,\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8361\">http://fivetechsoft.com/forums/viewtopic.php?t=8361</a><!-- m -->','',0,'Ag==','j7170mm3',1,0,'',2,0,0),(44686,9319,6,2,0,'87.218.146.216',1198373989,1,0,1,1,1,1,'','','Prueba a ver que valor te aparece aqui:\n\nMsgInfo( LoadBitmap( GetResources(), \"MARCA1\" ) )','',0,'Ag==','168rh7j6',1,0,'',2,0,0),(44687,9304,6,1035,0,'201.221.173.78',1198374173,1,0,1,1,1,1,'','','Bueno mi intencion es hacer un IDE para el usuario, para que haga sus propios formularios y demas, todo lo haga de forma visual!!! ideas locas, pero q si se alcanzan!! serian de maravilla!!! \n\nAlgo mas o menos por el estilo!!!\n\nVladimir, te felicito porq has llegado bastante bien al la idea, aunq bueno todavia tengo dudas!!!\n\nPense q era mas facil!!! pero bueno seguire intentando\n\nVeo que WinRAD tiene la idea mas o menos, pero quiero hacerlo un poco mas estilizado, y mas actual ya q yo no trabajo con DBF y otras cositas!\n\nSe que en FiveWin se puede hacer pero como no encuentro documentacion toy medio perdido.\n\nQuien me pueda dar un ejemplito un Form que tenga una barra de botones y cada boton sea la insercion de un control!! (Jejeje Casi Nada!) asi como lo hace el Visual de Five Win, ahh y si me muestra como generar el codigo de ese form mucho mejor! jejeje','',0,'Ag==','kxtms37w',1,0,'',1035,0,0),(44688,9329,17,1158,0,'200.159.198.27',1198376137,1,0,1,1,1,0,'','','where i found your errorsys enhanced?','',0,'Ag==','2rrrhr2f',1,0,'',1158,0,0),(44689,9289,17,1158,0,'200.159.198.27',1198376176,1,0,1,1,1,0,'','','where i found your errorsys enhanced?','',0,'Ag==','1d3hjt0h',1,0,'',1158,0,0),(44690,9328,3,171,0,'71.233.232.238',1198376997,1,0,1,1,1,0,'','','The good looking, easy to use, features and power of Tsbrowse has not match. \n\nI am using TSBrowse with FWH 2.7 + xHarbour Jan 2006. Tsbrowse is working fine for me, but I heard from others user that there are some issues with the arrays when using Tsbrowse + FWH. \n\nRegarding the Visual Fivewin project I sent 100.00 to Manuel, through an Patrick Mast account  (I don\'t remember if euros or dollars) but I do not regret it, because I earned much more than $100 by using his Tsbrowse class. \nSylvio, I don\'t know M. Mercado, but after all of his contribution to our forum, I am glad to see him helping us and developing new class for the Fivewin + [x]Harbour programmers.\n\nManuel come back and is posting comments in the spanish forum. He is going to develop a new version of TsBrowse for FWH.\n\nRegards,\n\nGeorge','',0,'','2bp60848',1,0,'',171,0,0),(44691,9330,3,846,0,'201.11.137.44',1198377068,1,0,1,1,1,0,'','','Very thankful!\n\nAnd to force the focus go to the object after using a FUNCTION GRAVAPRODUTO()\n\n[code:11soqmqo]\nREDEFINE BUTTON oBtn1 ID 702 OF oDlgM WHEN &#40;!EMPTY&#40;aGetItem&#46;it_quantidade&#41;&#41; ACTION &#40;GravaProduto&#40;aGetCli,oGetCli,aGetItem,vModo,@nRegi&#41;,oGetItem&#46;it_codbarra&#58;SetFocus&#40;&#41;&#41; UPDATE \n\n[/code:11soqmqo]','',0,'AIA=','11soqmqo',1,0,'',846,0,0),(44692,9326,6,171,0,'71.233.232.238',1198377339,1,0,1,1,1,0,'','','Manuel,\n\nLa verdad es que me siento muy contento de verte saludable y de nuevo en nuestro foro de Fivewin. Tu siempre nos ayudaste, no solo con tu TsBrowse y TsButton class, pero tambien contestando nuestras preguntas en temas relativos a FW. \n\nPor lo que veo estas fuerte y con ganas de seguir trabajando. Cuenta con mi apoyo en lo que sea necesario.\n\nSaludos afectuoso\n\nGeorge','',0,'AIA=','3var23ll',1,0,'',171,0,0),(44693,9328,3,53,0,'189.139.219.233',1198377599,1,0,1,1,1,1,'','','My 2 cents\n\nA\n\n\n[quote:2asix36c]Manuel come back and is posting comments in the spanish forum. He is going to develop a new version of TsBrowse for FWH. \n[/quote:2asix36c]\n\nAnd it will be free for all of us.\n\n[quote:2asix36c]Regarding the Visual Fivewin project I sent 100.00 to Manuel, through an Patrick Mast account (I don\'t remember if euros or dollars) but I do not regret it, because I earned much more than $100 by using his Tsbrowse class. \n[/quote:2asix36c]\n\nI Agree.\n\nKind Regards','',0,'gA==','2asix36c',1,0,'',53,0,0),(44694,9331,6,1072,0,'201.214.54.156',1198379222,1,0,1,1,1,0,'','FELIZ NAVIDAD QUERIDO FORO','Amigos del Foro:\n\nMe gustaria desearles una Feliz Navidad, que le bendiciones de Dios, lleguen a sus hogaress, llenando de Paz, Amor y alegria sus corazones, una noche en que debemos olvidarnos de nuestros problemas y dejarnos envolver por esa luz que nos envia Jesus.\n\nQue el proximo año 2008, les depare mucha salud grandes exitos, siempre estare eternamente agradecido de la ayuda que me brindan, le pido a Dios que siempre les multiplique su sabiduria.\n\nSon los mas sinceros y profundos deseos de un integrante que siempre los molesta con sus dudas.\n\nFeliz Navidad y un Prospero Año Nuevo.\nAntonio.','',0,'gA==','8sin9gn9',1,0,'',1072,0,0),(44695,9331,6,396,0,'200.71.186.109',1198383723,1,0,1,1,1,1,'','Re: FELIZ NAVIDAD QUERIDO FORO','[quote=&quot;mantonio_08&quot;:25wzqh2y]Amigos del Foro:\n\nMe gustaria desearles una Feliz Navidad, que le bendiciones de Dios, lleguen a sus hogaress, llenando de Paz, Amor y alegria sus corazones, una noche en que debemos olvidarnos de nuestros problemas y dejarnos envolver por esa luz que nos envia Jesus.\n\nQue el proximo año 2008, les depare mucha salud grandes exitos, siempre estare eternamente agradecido de la ayuda que me brindan, le pido a Dios que siempre les multiplique su sabiduria.\n\nSon los mas sinceros y profundos deseos de un integrante que siempre los molesta con sus dudas.\n\nFeliz Navidad y un Prospero Año Nuevo.\nAntonio.[/quote:25wzqh2y]\nAntonio, igual Feliz Navidad y un venturoso año Nuevo, hay un tema de finde año\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9270\">http://fivetechsoft.com/forums/viewtopic.php?t=9270</a><!-- m -->','',0,'gA==','25wzqh2y',1,0,'',396,0,0),(44696,9328,3,190,0,'124.7.123.120',1198384065,1,0,1,1,1,0,'','','Hi all TSB Users!\n\nIndeed it is a good news that Mr.Manuel Mercado is back.\n\nThis is the English translation of what Mr.Manuel Mercado said in his \nposting in Spanish Forum on Sat Dec 22, 2007 9:26 pm\n\n[quote:adipe5oq]\nI am already working on, just trying to run with TSBrowse FWH 7.12 just \nto install. \n\nAs soon as I have the results I will be communicating and I will get the \nlatest version of TSBrowse already working with Harbour and xHarbour, of \ncourse for free. \n\nReceive, as always, my affectionate greeting.\n\nManuel Mercado\n\n[/quote:adipe5oq]\n\n- Ramesh Babu P','',0,'gA==','adipe5oq',1,0,'',190,0,0),(44697,9328,3,1255,0,'201.122.38.237',1198390246,1,0,1,1,1,0,'','','! WOW ! what a chain  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nPor tratarse del foro en español y a causa de mi pobre inglés, le pediré a algún amigo que nos haga favor de traducir después.\n\nNadie conoce la verdadera historia mejor que yo.\n\nCuando inicié el proyecto, me encontraba en una situación económica muy difícil y así se los hice saber, esa fue la causa de que solicitara su ayuda ya que de otra forma, también lo hubiera donado gratuitamente como todo lo demás.\n\nLa ayuda que se les solicitó y que muchos amigos me brindaron, fue de 50 dólares (no euros), con lo que pude sobrevivir durante algún tiempo dedicado casi al 100% a dicho proyecto.\n\nEn su momento, publiqué la lista de los amigos que me ayudaron y a quienes siempre les estaré agradecido.\n\nEn el 2002 me vi forzado a suspender todas mis actividades (no solamente mi trabajo en la programación), debido a una seria enfermedad que me postró durante mucho tiempo.\n\nEl trabajo con Visual FiveWin fue real y le estoy pidiendo a alguien en el foro que me permita alojar los programas fuente de dicho proyecto, inconcluso hasta la fecha pero que funciona (claro, con muchas limitaciones). Eso les permitirá analizar el trabajo realizado y se darán cuenta a simple vista que fue mucho. Actualmente lo uso con frecuencia para crear el inicio de mis nuevas aplicaciones.\n\nAunque ahora no tengo mucho dinero, le pediré a quien lo solicite, que me de sus datos para reemborsarle con mucho gusto (y lo digo de corazón) su aportación y, no por esto dejaré de agradecerle su ayuda que tanto me sirvió en su momento.\n\nAunque actualmente para sobrevivir tengo que trabajar en otras cosas, no dejo de vez en cuando de revisar el proyecto con la intención de terminarlo y ponerlo a su disposición.\n\nUnicamente me resta decirles que yo nunca vendí nada, simplemente pedí y recibí la ayuda de los amigos. Espero que esto aclare las cosas pidiendo disculpas a todos aquellos que se sienten o se sintieron estafados porque nunca fue esa mi intención.\n\nSin resentimiento alguno por los comentarios, les repito mi intención de seguir en lo posible, contribuyendo con mi modesto trabajo a la supervivencia de nuestro lenguaje de programación.\n\nEn breve (así lo espero si 7.12 me lo permite)  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> pondré a su disposición mi trabajo más actualizado.\n\nQue Dios los bendiga.\n\nManuel Mercado.','',0,'gA==','3wi3of93',1,0,'',1255,0,0),(44698,9328,3,239,0,'202.105.67.110',1198392224,1,0,1,1,1,0,'','','Below translated by google:\n\n! WOW! What a chain Very Happy\n\nAs the forum in Spanish and because of my poor English, I will ask a friend to us please translate later.\n\nNobody knows the true story better than I do.\n\nWhen the project started, I was in a very difficult economic situation and so they did know, that was the reason why we seek your help because otherwise, it would have donated for free as everything else.\n\nThe aid being requested and many friends gave me was $ 50 (euro), which can survive for some time devoted almost 100% to the draft.\n\nAt the time, I published a list of the friends who helped me and who always will be grateful.\n\nIn 2002 I was forced to suspend all my activities (not just my job in programming), due to a serious illness that I fell for a long time.\n\nWorking with Visual FiveWin was real and I am asking someone in the forum that allows me to accommodate the programs source of this project, so far inconclusive, but it works (of course, with many limitations). That would allow them to analyze the work done and will realize at first glance that was a lot. Currently I use frequently to create the beginning of my new applications.\n\nAlthough now I do not have much money, you ask anyone who requests it, to me your information reemborsarle very happy (and I say heart), and their contribution, not because this will certainly thank him for his assistance that helped me at the time .\n\nAlthough now in order to survive I have to work on other things, not leave once in a while to review the project with the intention to finish it and make it available.\n\nI can only tell you that I never sold anything, merely asked and received help from friends. I hope that clarifies things apologies to all those who feel or felt cheated because that was never my intention.\n\nWithout any resentment by the comments, I repeat my intention to continue to the extent possible, contributing to my humble work to the survival of our programming language.\n\nIn short (and I hope you will allow me if 7.12) Embarassed will put my job at its disposal tools.\n\nMay God bless you.\n\nManuel Mercado.','',0,'gA==','2cae6sra',1,0,'',239,0,0),(44699,9328,3,1255,0,'201.122.38.237',1198393619,1,0,1,1,1,0,'','','I\'m really sorry, I would have sworn that was at the Spanish forum. \n\nThings of age  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nLet this serve to wish everyone a very happy Christmas and the best year for 2008\n\nBest Regards.\n\nManuel Mercado','',0,'gA==','2s1a441e',1,0,'',1255,0,0),(44700,9328,3,239,0,'202.105.67.110',1198395797,1,0,1,1,1,0,'','','Manuel Mercado,\n  Very glad to see you again! \n  Wish you have a  Merry Christmas and a Happay NEW YEAR!\nShuming Wang\nGuangzhou(Canton),Guangdong,China','',0,'gA==','20tnz7gs',1,0,'',239,0,0),(44701,9250,3,239,0,'202.105.67.110',1198396064,1,0,1,1,1,0,'','','A Happy NEW YEAR TO ALL include Harbour&amp;xharbour ,FWH and 3rd party developes and lovers!\nWish Harbour/Xharbor with unicode support and more powerfull!\nWish fwh full 2 bytes languages support !\nWish More powerfull FiveLinux togther with other FW products!\nWish Visual FWH avaliable!\n\nShuming Wang','',0,'gA==','2bf8fwjg',1,0,'',239,0,0),(44702,9328,3,51,0,'80.122.88.242',1198399036,1,0,1,1,1,0,'','','Detlef,\n\n&gt;I even can\'t believe what the mallorca.prg of the FWH samples is doing if you want to enter values which don\'t match a valid clause. \nIt\'s a mere mess. \n\nDid you report these problems here before?\n\nBest regards,\nOtto','',0,'gA==','13myny16',1,0,'',51,0,0),(44703,9332,3,51,0,'80.122.88.242',1198402682,1,0,1,1,1,0,'','xBrowser How to display customers/city a kind of treeview','I tried to display – this is easy and working- but if you skip than this seems to be much  work.\n\nIs there somewhere a sourcecode example showing how to do such a browse?\n\nFor example: I would like to show all customers if there are more than one customer in a city the city is only shown once\n(a kind of treeview)\n\n\n[img:2utern6z]http&#58;//www&#46;atzwanger&#46;com/fw/ort&#46;jpg[/img:2utern6z]','',0,'CA==','2utern6z',1,0,'',51,0,0),(44704,9328,3,58,0,'84.149.70.230',1198405292,1,0,1,1,1,0,'','','[quote=&quot;Otto&quot;:vz3bysfd]Detlef,\n\n&gt;I even can\'t believe what the mallorca.prg of the FWH samples is doing if you want to enter values which don\'t match a valid clause. \nIt\'s a mere mess. \n\nDid you report these problems here before?\n\nBest regards,\nOtto[/quote:vz3bysfd]\n\nHi Otto,\n\nyes, i did in thread [url:vz3bysfd]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?p=33372&amp;highlight=#33372[/url:vz3bysfd]\nBut there was no satifying advice to solve the problem.\nEven in FWH  7.12 the main problem exists.\n\nRegards,\nDetlef','',0,'kA==','vz3bysfd',1,0,'',58,0,0),(44705,8612,7,154,0,'151.21.33.39',1198405303,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:cuhk6l82]http://fivetechsoft.com/forums/viewtopic.php?t=8361[/quote:cuhk6l82]\nAntonio,\nthanks  \n\nMerry Christmas at all Fw\'s  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','cuhk6l82',1,0,'',154,0,0),(44706,8612,7,2,0,'87.218.146.77',1198405464,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9270\">http://fivetechsoft.com/forums/viewtopic.php?t=9270</a><!-- m --> <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','ziyt2mu6',1,0,'',2,0,0),(44707,9330,3,2,0,'87.218.146.77',1198406308,1,0,1,1,1,1,'','','REDEFINE BUTTON oBtn1 ID 702 OF oDlgM WHEN (!EMPTY(aGetItem.it_quantidade)) ACTION (GravaProduto(aGetCli,oGetCli,aGetItem,vModo,@nRegi),[color=red:1ujk3nvq]oBtn1:oJump := oGetItem.it_codbarra[/color:1ujk3nvq] ) UPDATE','',0,'Ag==','1ujk3nvq',1,0,'',2,0,0),(44708,9328,3,58,0,'84.149.70.230',1198406446,1,0,1,1,1,0,'','','[quote=&quot;mmercado&quot;:lk8ua9hi]I\'m really sorry, I would have sworn that was at the Spanish forum. \n\nThings of age  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nLet this serve to wish everyone a very happy Christmas and the best year for 2008\n\nBest Regards.\n\nManuel Mercado[/quote:lk8ua9hi]\n\nHi Manuel,\n\nglad to see you here  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> .\n\nFirst of all i asure you that i never felt and don\'t feel cheated by you.\nThe few Euros i payed are a poor donation for a great tool as your TsBrowse is.\n\nOn your place i wouldn\'t distribute a new xHarbour Browser for free.\nMake it a comercial product like ViaCoral, or tDada class with a reasonable price.\nNo real programmer can expect good work for free.\nAnd honestly i doubt that a lot of developers used your class for their applications gave away their programs for free.\n\nHave a merry Christmas and a healthy new year.\nDetlef','',0,'gA==','lk8ua9hi',1,0,'',58,0,0),(44709,9328,3,2,0,'87.218.146.77',1198406688,1,0,1,1,1,1,'','','Detlef, Otto,\n\n&gt; Even in FWH 7.12 the main problem exists.\n\nYes, we are aware of those problems and its on our todo list to fix them. \n\nWe have been working these past months on the Class TXBrowse to fix bugs and to enhance it (please review whatsnew.txt and you will see our work on it). We are quite confident that all its bugs will be solved soon.','',0,'gA==','35vcnnfc',1,0,'',2,0,0),(44711,9291,3,868,0,'219.64.121.60',1198414721,1,0,1,1,1,1,'','','I thought about this.  Themed graphics should be presented only if the user is seeing an application in themes otherwise not.  Therefore I think the themed code should work if the application is finally showing a thremed look to the user not just if it compiled to show themes.  So I think we should check isappthemed() and also isThemeActive() in the library to show the thremed behaviour. We should do the same in our applications too.','',0,'gA==','2ew99xwc',1,0,'',868,0,0),(44712,9250,3,130,0,'84.138.29.38',1198415379,1,0,1,1,1,1,'','','A Merry Christmas and a Happy New Year to all Fivewinners and their families !','',0,'gA==','phj0siww',1,0,'',130,0,0),(44713,9332,3,868,0,'219.64.121.60',1198417331,1,0,1,1,1,1,'','','For arrays I do like this :\n[code:3ccng8vb]\n      oCol&#58;bStrData &#58;= &#123;||iif&#40; oBrw&#58;nArrayAt &gt; 1 &#46;and&#46; aArray&#91;oBrw&#58;nArrayAt&#93;&#91;1&#93; == aArray&#91;oBrw&#58;nArrayAt-1&#93;&#91;1&#93;, space&#40;10&#41;,aArray&#91;oBrw&#58;nArrayAt&#93;&#91;1&#93; &#41;&#125;\n[/code:3ccng8vb]\nI commonly do this for arrays and ado recordsets. We can also do it for DBFs but the code depends on your specifc case.\n\nIdeally we would like if no lines are painted within a group.  This can be done but needs one more data item in the column object and some change in the browse\'s paint method','',0,'AIA=','3ccng8vb',1,0,'',868,0,0),(44714,9250,3,448,0,'83.132.134.79',1198421486,1,0,1,1,1,0,'','','Dear all,\n\nMerry Christmas + Happy New Year .\n\nAntonio Ferreira','',0,'AIA=','l83f0eee',1,0,'',448,0,0),(44715,9334,6,430,0,'201.234.80.13',1198424182,1,0,1,1,1,0,'','Se puede cambiar la ubicación del error.log','Quisiera que el archivo error.log no se cree en la carpeta principal sino en una especifica con el nombre que yo quiera ponerle y de ser posible tenga una numeración incremental (primero error00.log, luego error01.log y así sucesivamente); se puede hacer esto.\n\nSaludos\n\nFernanado Espinoza','',0,'AIA=','2gi9zgzp',1,0,'',430,0,0),(44716,9335,6,1255,0,'148.221.7.208',1198424302,1,0,1,1,1,0,'','Mi primera aplicación en 32 bits con FWH 7.12','Increible, practicamente sin dolor, usa TSBrowse, TSbutton, TListbox y más.\n\nA primera vista funciona de maravilla usando xharbour, más tarde probaré con Harbour.\n\nSolo observé un pequeño detalle, al ejecutarlo muestra momentáneamente una pantalla como de la consola MS-DOS de Windows, alguien sabe por qué?\n\nAlguien puede decirme donde puedo poner el ejemplo para compartirlo?\n\nSaludos.\n\nManuel Mercado','',0,'AIA=','1vutd4c5',1,0,'',1255,0,0),(44717,9335,6,2,0,'87.218.146.77',1198424457,1,0,1,1,1,1,'','','Manuel,\n\n&gt;\nSolo observé un pequeño detalle, al ejecutarlo muestra momentáneamente una pantalla como de la consola MS-DOS de Windows, alguien sabe por qué? \n&gt;\n\nTienes que enlazar GTGUI.lib en vez de GTWIN.lib\n\n&gt; Alguien puede decirme donde puedo poner el ejemplo para compartirlo? \n\nEn <!-- w --><a class=\"postlink\" href=\"http://www.hotshare.net\">www.hotshare.net</a><!-- w --> y copiar aqui el url que te proporciona','',0,'AIA=','2wccz634',1,0,'',2,0,0),(44718,9334,6,2,0,'87.218.146.77',1198424558,1,0,1,1,1,1,'','','Fernando,\n\nPuedes modificar el errorsys de FWH. \n\nTienes el código fuente del PRG en fwh/source/errsysw.prg','',0,'AIA=','z46uu6ra',1,0,'',2,0,0),(44719,9332,3,51,0,'80.122.88.242',1198425060,1,0,1,1,1,0,'','','Hello NageswaraRao,\n\nThank you for your code.\nI tested and it works as suspected for arrays.\n[img:161gi7c4]http&#58;//www&#46;atzwanger&#46;com/fw/rao1&#46;jpg[/img:161gi7c4]\n\nAm I right that if you use dbf-files aArray can’t be used?\n\nDo I have to make an own array parallel to get this functionality?\n\nTo test I tried with dbf files - I think it is similar to your code but hard coded - I used:\n\nSTATIC cCity\nfunc bStrDataFIELD_CITY()\nlocal cTEmpCity :=  _FIELD-&gt;CITY\nIF cCity = cTEmpCity\n  cTEmpCity := \"  \"\nelse\n    cCity :=  _FIELD-&gt;CITY\nENDIF\nreturn cCity\n\nBut if you skip this does not work and I thought to fill an array parallel with the current scope.\nCould you imagine if this will work.\n\nWhat is the reason why  xBrowse distinguish between array and dbf-file. If you look at other languages they make a recordset or a dataadapter and bind the browser to this. \nRegards,\nOtto','',0,'CA==','161gi7c4',1,1198427168,'',51,2,0),(44720,9332,3,868,0,'219.64.121.60',1198427048,1,0,1,1,1,1,'','','The main requirement is to test whether the current field value = the previous records fieldvalue.\n\nYou can achieve this in different ways. What you do may just depend on dbf size, index key and so on.  \n\nIf the dbf is not too large, and confident that other users will not change during the session, one way to do this may be like this.\n\nTraverse the DBF and store the record numbers of the first occurance of the keyfield in an array. Then \nbStrData := {|| iif( ascan( recno(), aUniques ) == 0, fieldget(1), space( &lt;len&gt; ) }\n\nThere are many other ways.\nFew examples:\nyou can have a udf to look up previous value and return if the current value is a repeat.\n\nIf you create a compound index in a suitable way you can self relate the dbf so that the child points to prev record in the index.\n\nYou choose the optimal method depending on each specific case.','',0,'CA==','17stz9qz',1,0,'',868,0,0),(44721,9332,3,51,0,'80.122.88.242',1198427248,1,0,1,1,1,0,'','','Sorry, I edited during you answered.\nRegards,\nOtto','',0,'CA==','atsikl3k',1,0,'',51,0,0),(44722,9332,3,51,0,'80.122.88.242',1198428168,1,0,1,1,1,0,'','','NageswaraRao,\n\nThank you for you answer. I thought to fill a temp-array in this part\nof xBrowser and then to access this array.\n\nMETHOD Paint() CLASS TXBrowse\n\n do while nRowPos &lt;= nMaxRows\n      // We must also paint some times after the last visible column\n\n---&gt; fill the temp array\n...\nDo you  think this could be possible?\nRegards,\nOtto','',0,'CA==','2xhxfuyy',1,0,'',51,0,0),(44723,9332,3,868,0,'219.64.121.60',1198428685,1,0,1,1,1,1,'','','My personal advise is not to change FWH xBrowse code. Even if you change please do not change Paint method for handling values.\n\nPlease try to manage it within our application code. I suggested some ways of doing it for dbf tables.','',0,'CA==','11de4bj8',1,0,'',868,0,0),(44724,9336,6,430,0,'201.234.80.13',1198429165,1,0,1,1,1,0,'','Mejora el manejo de os campos memo en FWH','Mi aplicación ahora migrada a FWH usa bastante los cmapos memo incluso para lectura de variables; quisiera saber si el manejo de estos campos es mejor con FWH, me refiero a la edición, control de líneas, ajuste del texto, etc.\n\nExisten funciones nuevas para manejarlo estos campos, si es así cuales son.\n\nSaludos\n\nFernando Espinoza','',0,'CA==','127axjoj',1,0,'',430,0,0),(44725,9337,6,53,0,'189.139.96.153',1198430774,1,0,1,1,1,1,'','SUPER HEADERS EN TREPORT','Antonio:\n\nDisculpa la insistencia pero habrá forma de poner los superheaders en la clase TReport, tengo un cliente que insiste en esa posibilidad y.....\n\nTe vuelvo a comentar que en 16 bits sí era posible pero en 32 el texto se trunca a la anchura de la columna.\n\nDesafortunadamente de clases conozco casí nada por no decir nada, pero si me das una pista de por donde buscarle lo intento.\n\nHe estado comparando las dos REPORT (16 y 32) pero la verdad no entiendo donde meterle la mano.\n\nSaludos y gracias por tu apoyo','',0,'CA==','39wtihb4',1,0,'',53,0,0),(44726,9332,3,51,0,'80.122.88.242',1198432018,1,0,1,1,1,0,'','','Hello NageswaraRao,\n\nI thought doing that you don\'t lose much speed because the array will only be a few records &lt; 50 ?.\nBest regards,\nOtto','',0,'CA==','3gv4hvn8',1,0,'',51,0,0),(44727,9338,3,6,0,'87.16.213.199',1198433442,1,0,1,1,1,1,'','bLogicLen','I noticed that bLogicLen is evaluated 3 times (TWBrowse) and 2 times (TCBrowse) at each record moving. Is there anything we can do to evaluate it only once?\n\nEMG','',0,'CA==','1qpfm33l',1,0,'',6,0,0),(44728,8961,3,51,0,'80.122.88.242',1198433679,1,0,1,1,1,0,'','','Marcelo, could you contact me to send you the latest changes I made.\nRegards,\nOtto\n<!-- e --><a href=\"mailto:datron@aon.at\">datron@aon.at</a><!-- e -->','',0,'CA==','3dga60wt',1,0,'',51,0,0),(44729,9291,3,303,0,'72.220.181.80',1198440614,1,0,1,1,1,0,'','','Perhaps we another function isAppThemeActive() which calls both functions. If it returns false either the Windows theme is not active or the app is not setup to use themes. It true, then Windows themes are active and the application is setup to show themes.\n\nfunction isAppThemeActive()\nreturn isThemeActive() .and. isAppThemed()\n\nJames','',0,'CA==','2pi804gb',1,0,'',303,0,0),(44730,9328,3,3,0,'85.195.137.204',1198441771,1,0,1,1,1,1,'','','Antonio\n\nYou have done a superb job on txbrowse, really appreciated. I have moved parts of my application to this browser. Still missing something...\n\nI thought It\'s christmas time  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ,  may i ask for a special request ? to have a bonprevedit  block that can be evaluated before editing, this is one of the best features in tsbrowse.\n\nThanks in advance,\n\nManuel, Welcome back, you have friends in this forum, i am very happy to see you around.\n\nRichard','',0,'CA==','zppsn68p',1,0,'',3,0,0),(44731,9338,3,303,0,'72.220.181.80',1198442092,1,0,1,1,1,0,'','','Enrico,\n\nIt seems that the logical-length can only change when a record is added, deleted, or the filter or scope is changed. So, if there was a new var, nLogicLen, then it could be corrected only when any of the above things changed, and thus bLogicLen would only be evaluated rarely.\n\nHowever, to make this change to either of the existing browses would require quite some effort.\n\nJames','',0,'CA==','1eb1b1cv',1,0,'',303,0,0),(44732,9339,17,1257,0,'195.93.60.34',1198442921,1,0,1,1,1,1,'','Create Excel-Sheets with TAutoOle ( Upd. 4  /  07.01.2008 )','Some samples, how to create EXCEL-Sheets from\na normal database. \nYou can choose the samples from a xBrowser\n\nSome changes in the xbrowser in Update 3.\nNow it is possible to change the index with a click\non the column-header.\nThe index changes and the font of the column-header\nis red.<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->\n\nFor download, choose the Website-Button\nor <!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin\">http://www.pflegeplus.com/fivewin</a><!-- m -->','',0,'CA==','190g4kjz',1,0,'',1257,0,0),(44733,9332,3,303,0,'72.220.181.80',1198443257,1,0,1,1,1,0,'','','Otto,\n\nHere is an idea. Instead of using the CITY field in the browse use a function. Then use bSkip to pass the city field to the function. Inside the function you need a static var, cLastCity. Using this var return the city name of the current record only when it is not the same as cLastCity, otherwise just return nil or a space.\n\nThe ideal way to do this is to create a customer class as a subclass from TData, then add a method to handle the above. Otherwise I would suggest using a static function.\n\nJames','',0,'CA==','2wckwqaw',1,0,'',303,0,0),(44734,9250,3,303,0,'72.220.181.80',1198443716,1,0,1,1,1,0,'','','Seasons Greetings to all my friends from around the world. I feel honored and grateful to be a member of such a diverse group of people.\n\nBest Wishes,\nJames','',0,'CA==','3hwsighm',1,0,'',303,0,0),(44735,9338,3,6,0,'87.16.213.199',1198443740,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:23zr3r06]Enrico,\n\nIt seems that the logical-length can only change when a record is added, deleted, or the filter or scope is changed.[/quote:23zr3r06]\n\nOr when another user adds or deletes a record... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','23zr3r06',1,0,'',6,0,0),(44736,9338,3,303,0,'72.220.181.80',1198444067,1,0,1,1,1,0,'','','Enrico,\n\n&gt;Or when another user adds or deletes a record...  \n\nAh, yes, my whole idea falls apart because of this.\n\nJames','',0,'gA==','3mjzj2n5',1,0,'',303,0,0),(44737,9332,3,303,0,'72.220.181.80',1198445157,1,0,1,1,1,0,'','','Otto,\n\nThere is a problem with my idea above. I have used this for reports but with browses users can move backwards. This makes it more complicated. For each record movement, you would have to determine if you are at the first occurance of the city or not. So, you would have to skip in the appropriate direction (forward or back) one extra record to determine this, then skip back to the original record. It\'s more complicated, but I still think it could be done.\n\nJames','',0,'gA==','nezblzsa',1,0,'',303,0,0),(44738,9250,3,1231,0,'83.144.114.249',1198446900,1,0,1,1,1,1,'','','May the Love, Peace, FWH and Joy of Christmas be yours always.\nRobert\n\nProcedure MyApp4FiveWinUsers\nIf lSantaClausExist\n     Send(aFWHUsers,newFWH.zip)\nElse\n     MsgStop(\"Santa Claus doesn\'t exist\",\":(((((((((((\")\nEndIf\nReturn .T.','',0,'gA==','2o09vkrc',1,0,'',1231,0,0),(44739,9328,3,58,0,'84.149.70.230',1198447169,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:qq1vhyey]Detlef,\n\n&gt;but after some other misbehaviours i changed to Hernan\'s browse. \n\nDo you remember what other problems you had?\n\nJames[/quote:qq1vhyey]\nJames,\n\ni don\'t remember very well my other TsBrowse related problems.\nThe one with the super header which i already discribed.\nAnd there was an issue with entering data into cells. I had always click 2 times on a btnget when using the calendar.\nSometimes the whole screen was messed up when pressing Enter to edit a cell. \n\nI was a little bit enervated because with FiveWin 16bit and TsBrowse i had only very few problems.\nBut i exactly remember that i had more hair on my head before  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> .\n\nBut i\'m looking forward to either a debugged xBrowse from Antonio or a new TsxBrowse from Manuel.\n\nRegards,\nDetlef','',0,'gA==','qq1vhyey',1,0,'',58,0,0),(44740,9332,3,303,0,'72.220.181.80',1198448616,1,0,1,1,1,0,'','','Otto,\n\nHere is a working example using a customer class as a subclass of TData. I have also shown the city field so you can see it is working. This is not very efficient as it requires three disk reads to display each record. I think it could be done using static vars to eliminate the extra disk reads.\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:36i8ay14][img:36i8ay14]http&#58;//img2&#46;freeimagehosting&#46;net/uploads/e9bb7036bb&#46;jpg[/img:36i8ay14][/url:36i8ay14]\n\nHere is the code:\n\n[code:36i8ay14]/*\nPurpose&#58; Display city name only on first occurance in a browse\nDate   &#58; 12/23/2007\nAuthor &#58; James Bott, jbott@compuserve&#46;com\nNote   &#58; Requires TData class\n*/\n\n#include &quot;fivewin&#46;ch&quot;\n\n\nfunction main&#40;&#41;\n   local oWnd, oLbx, oCustomer\n\n   use customer exclusive\n   index on upper&#40;city&#41; to cust2\n   use\n\n\n   oCustomer&#58;= TCustomer&#40;&#41;&#58;new&#40;&#41;\n   //oCustomer&#58;setOrder&#40;2&#41;\n   oCustomer&#58;gotop&#40;&#41;\n\n   define window oWnd title &quot;Test City Group&quot;\n\n   @0,0 listbox oLbx fields oCustomer&#58;firstCity&#40;&#41;, oCustomer&#58;city, oCustomer&#58;last, oCustomer&#58;first;\n      headers &quot;City&quot;,&quot;City&quot;,&quot;Last&quot;,&quot;First&quot;;\n      sizes 100,100,100,100;\n      alias oCustomer&#58;cAlias;\n      of oWnd\n\n   oLbx&#58;bSkip &#58;= &#123;| nRecs | oCustomer&#58;skipper&#40; nRecs &#41; &#125;\n\n   oWnd&#58;oClient&#58;= oLbx\n\n   activate window oWnd\n\n   oCustomer&#58;end&#40;&#41;\n\nreturn nil\n\n//---------------------------------------------------------------------------//\n\nclass TCustomer from TData\n   method new\n   method firstCity\nendclass\n\n//---------------------------------------------------------------------------//\n\nmethod new&#40;&#41;\n   super&#40;&#41;&#58;new&#40;,&quot;customer&quot;&#41;\n   &#58;&#58;use&#40;&#41;\n   //&#58;&#58;addIndex&#40;&quot;cust1&quot;&#41;  // primary key\n   &#58;&#58;addIndex&#40;&quot;cust2&quot;&#41; // city\n   &#58;&#58;gotop&#40;&#41;\nreturn self\n\n//---------------------------------------------------------------------------//\n\nmethod firstCity&#40;&#41;\n   local cPrev,cCurrent\n   cCurrent&#58;= &#58;&#58;city\n   &#58;&#58;skip&#40;-1&#41;\n   cPrev&#58;= &#58;&#58;city\n   &#58;&#58;skip&#40;&#41;\nreturn if&#40; cCurrent = cPrev, &quot;&quot;, cCurrent&#41;\n\n// end[/code:36i8ay14]','',0,'GIA=','36i8ay14',1,0,'',303,0,0),(44741,9332,3,303,0,'72.220.181.80',1198450321,1,0,1,1,1,0,'','','I have looked at this some more, and now I don\'t think you can do this without three record reads. You have to know what the city for the previous record is and you can\'t use static vars to keep track of this since you may be moving forward or backward in the browse. When I refer to the \"previous\" record I don\'t mean the last record read, but the record before the current record in the current order. So you have to do a skip(-1) to find this, then skip back to your original location.\n\nIn a browse the user can skip forward or backward one or more records at a time, so there is no way to keep track of the \"previous\" record--you just have to read it.\n\nThis means the browse will require three times the disk traffic as a browse without city groups. Only testing will tell if this is useable.\n\nRegards,\nJames','',0,'GIA=','223jg8g2',1,0,'',303,0,0),(44742,9340,6,1059,0,'190.225.3.82',1198450538,1,0,1,1,1,0,'','GoToLine() en TrichEdit','Buenas tardes,\n\nNecesito que el cursor se posicione en una línea del texto que estoy editando con tRichEdit y no puedo lograrlo con la GoToLine().\n\npor ej.\n\nlocal nLine := 30\n\noRich:GoToLine(nLine)\n\nY no hace nada. Será que le falta un parámetro?\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GIA=','jwdv9chz',1,0,'',1059,0,0),(44743,9341,3,909,0,'71.71.110.50',1198451517,1,0,1,1,1,1,'','Combobox Question','Antonio -\nUsing the following code in my clipper/Fivewin apps, the \"get\" next to the dropdown arrow automatically shows the first element of aYr.  The xHarbour/Fivewin version shows a blank get.  \n\nLOCAL oDlg, oYr, cYr, aYr := {}\naYr := GetYrs()\nREDEFINE COMBOBOX oYr  ;\nVAR cYr                            ;\nITEMS aYr    ;\nID 101 of oDlg\n\nI can get it to show the first element if I do cYr := aYr[1], but I have a lot of code to change to make it the same as the clipper versions.  Is this a limitation of xHarbour/Fivewin? Can I modify tcombobox to be like clipper?\n\nRegards,\nCharles','',0,'','215n067k',1,0,'',909,0,0),(44744,9250,3,154,0,'151.21.33.39',1198453501,1,0,1,1,1,1,'','','Best wishes to all friends of this ng.','',0,'','d75by7wi',1,0,'',154,0,0),(44745,9250,3,35,0,'65.188.6.143',1198454723,1,0,1,1,1,0,'','','Happy Holidays to everyone .. and it is an honor to be listed amongst all of you !!\n\nRick Lipkin','',0,'','37j5i9r0',1,0,'',35,0,0),(44746,9328,3,34,0,'68.5.217.82',1198456518,1,0,1,1,1,1,'','TsBrowse and Manuel','I was also one who contributed to Manuel.  However, as I understood it, we were not buying a product, but rather we were helping out a fellow programmer who had helped us a lot, and at the time he had a financial need.  I believe everyone heard that Manuel got sick and we hoped he would get better quickly.  I don\'t remember anyone being concerned about the money.\n\nI\'m using TSBrowse thorughout a program, and I like it very much.  James and I have talked about some issues and  he has addressed some.  I think the following is still accurate with the latest set of revisions that I have:\n\n1)  When I load a browse for the first time, across a network with the data provided by Advantage Data Server, the load time can be very slow.  Thereafter it seems to run much more quickly.\n2)  Sometimes the delay is very long, and then I get a \"confused dialog\" where the browse takes up the whole dialog space, overrunning the edit boxes usually found in the upper 3rd of the window.\n3)  I\'ve run into some issues with arrays.  Generally they work well, but not always.\n4)  I do have some super headers and they are working.\n5)  Its simply not as fast as other browses.\n\nI\'ll see how this all works out in the significant full power testing I\'ll be running in a week.  Hopefully it will hold up because I revised all of my code to use this browse.  If not, I\'ll have to look at alternatives.','',0,'','36tuztbx',1,0,'',34,0,0),(44747,9332,3,868,0,'219.64.121.60',1198461132,1,0,1,1,1,1,'','','Thats the reason I did not propose a similar approach. It it is a small table I would first scan and store recno\'s of the records to display. If it is large I would create an index like city + str(recno(),10,0) and set relation to the same table with prev rec.  Then the condition is if main-&gt;city == child-city show blank else show city \n\nOr we can use a UDF. Degrades performance. function is something like\nfunc isRepeat\nlocal thisval := field-&gt;city\nlocal thisrec :=recno()\nlocal lsame := .f.\n\ndbskio(-1)\nlsame := (  !bof() .and. thisval == field-&gt;city)\ndbgoto(thisrec)\n\nreturn lsame','',0,'','2hbexwpw',1,0,'',868,0,0),(44748,9341,3,1255,0,'148.221.7.147',1198463097,1,0,1,1,1,0,'','','Hi Charles:\n\nTry this:\n\nLOCAL oDlg, oYr, cYr, aYr := {} \naYr := GetYrs() \ncYr := aYr[ 1 ]\n\nREDEFINE COMBOBOX oYr ; \nVAR cYr ; \nITEMS aYr ; \nID 101 of oDlg \n\nRegards\n\nManuel Mercado','',0,'','2e2mmvtv',1,0,'',1255,0,0),(44749,9332,3,303,0,'72.220.181.80',1198463162,1,0,1,1,1,0,'','','Nageswara,\n\n&gt; If it is large I would create an index like city + str(recno(),10,0) and set relation to the same table with prev rec. Then the condition is if main-&gt;city == child-city show blank else show city.\n\nWouldn\'t this also require multiple disk reads, one for the main table and one for child table? Perhaps this is only requires two reads instead of three?\n\nJames','',0,'','2t7wj47j',1,0,'',303,0,0),(44750,9341,3,303,0,'72.220.181.80',1198464460,1,0,1,1,1,0,'','','Charles,\n\n&gt;Using the following code in my clipper/Fivewin apps, the \"get\" next to the dropdown arrow automatically shows the first element of aYr. \n\nThis is actually isn\'t the best behavior. How can you show if the user hasn\'t made a choice? Also, if I remember correctly, it SHOWS the first choice, but unless the user actually clicks on the combobox it SAVES a blank. Thus the user thinks the combobox is defaulting to the first choice (without any click), but it isn\'t.\n\n&gt;The xHarbour/Fivewin version shows a blank get. \n\nThis is better. Unless the user makes a selection, then the field remains empty. I find it is often better to allow users to leave fields blank rather than to default them to a value (or to to force the user to enter something when they don\'t know it). It is easier to detect an empy field (later) than to detect incorrect data that has been saved just due to design issues.\n\nI will admit there are situations where a default value may be better such as when that value is the most common choice. This helps the user. But it has to be the most common choice by all users.\n\nRegards,\nJames','',0,'','32ji2su3',1,0,'',303,0,0),(44751,9332,3,868,0,'219.64.121.60',1198464877,1,0,1,1,1,1,'','','Yes, true.  But lesser client server traffic. Reading related tables is faster than the program sending requests to read.','',0,'','1davfvza',1,0,'',868,0,0),(44752,9332,3,868,0,'219.64.121.60',1198465148,1,0,1,1,1,1,'','','Finally I would consider this kind of requirements as issues where we need to find optimal solutions case by case.  If it is small regular look up table, we better keep it in array than to keep reading everytime all the way from the server. For large tables this kind of display may not be necessary.  In any case we should implement the best solution in each case than trying to find a common solution.','',0,'','idl55xjq',1,0,'',868,0,0),(44753,9342,6,1255,0,'148.221.7.147',1198467078,1,0,1,1,1,0,'','Mi primera aplicación funcionando con FWH 7.12','Hola Amigos:\n\nAquí tienen mi primera aplicación en 32 bits. El ejecutable FWDbuX32.exe fue creado con xHarbour y FWH 7.12\n\nEstoy incluyendo el código fuente para que puedan analizarlo y usarlo si quieren.\n\nEsta aplicación usa TSBrowse actual y TSButton (con algunos problemas en el pintado que ya solucionaré), para ser mi primera prueba yo lo veo bastante decente.\n\nAquí tienen el link:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25519-6582734732.html\">http://www.hotshare.net/file/25519-6582734732.html</a><!-- m -->\n\nFelices Fiestas.\n\nManuel Mercado.','',0,'','1px7a89v',1,0,'',1255,0,0),(44754,9328,3,1255,0,'148.221.7.147',1198467817,1,0,1,1,1,0,'','','Hi Tim:\n\nVery glad to see you.\n\nI just started working with FWH 7.12 and got, with no significant pain, my first 32 bits app.\n\nHere is the executable and source code for you all to analize it.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25519-6582734732.html\">http://www.hotshare.net/file/25519-6582734732.html</a><!-- m -->\n\nIt uses updated TSBrowse (which you\'ll have later) and TSbutton (with some painting bugs that I\'m analizing to fix them)\n\nBest regards and hapy hollydays\n\nManuel Mercado','',0,'','1zxt36zs',1,0,'',1255,0,0),(44755,9303,3,1064,0,'61.70.211.182',1198467985,1,0,1,1,1,0,'','','Hi ShumingWang ,good job .\n\nThis is the solution what my customers ask me .\n\nDid you finish all the objects of Dialog ?\n\nI test what you paste , but not work , (1027x768 Chinese big5 font ). \n\nWould you share it to me ?\n\n\n-- \nBest Regards\nkokoo','',0,'','ervwtn2n',1,0,'',1064,0,0),(44756,9305,3,1064,0,'61.70.211.182',1198468628,1,0,1,1,1,0,'','','[quote:1axrmg15]\nAntonio :\n\nnLEFT1:=LEN(PAY-&gt;RMK1)-LEN(TRIM(PAY-&gt;RMK1))\noLeft1:SetText( Str( nLeft1 ) )\noLeft1:REFRESH()  \n\n[/quote:1axrmg15]\n\nhi Antonio:\n\nGet ...On Change =&gt; can\'t refresh other objects .\n\nSame problem to me , look like a bug . \n\nBest Regards\nkokoo','',0,'gA==','1axrmg15',1,0,'',1064,0,0),(44757,9343,3,868,0,'219.64.121.60',1198470564,1,0,1,1,1,1,'','Why Some Browses with ADS are slow?','Many times our friends keep expressing that some of the advanced browses are extremely slow while browsing *LARGE* ADS tables. This phenomenon is observed with tsbrowse, txbrowse and even hernan\'s browse. In fact the problem is not with the browses. These advanced browses go a step forward in setting up the codeblocks appropriate for the RDD being used. For ADS, by default, these browses use AdsKeyCount() (or similar functions) for the bLogicLen / bKeyCount codeblocks.\n\nThe real problem is in the AdsKeyCount ( also AdsGetRecordCount ) function of rdd_ads. The problem is not even the making of the author of the library. The function transparently passes on the efficiency or inefficiency of the original functions in the ACE32.DLL ( AdsGetRecordCount or AdsGetKeyCount. Both are twins with same functionality ).\n\nWe do not perceive the problem with small tables but we do notice great sluggishness with large tables, To find a solution we need to understand the behaviour of these functions.\n\nWe normally use SET DELETED ON. We are not interested in seeing the deleted records but interested in dealing with the live records only. The functions AdsGetRecordCount or AdsGetKeyCount return the count instataneously ( even with very complex AOF filters and scopes) IF AND ONLY IF SET DELETED IS OFF.  So if we use the browses with SET DELETED OFF they are blazing fast again. But we want them to work with SET DELETED ON.\n\nAdsGetRecordCount / AdsGetKeyCount functions of ACE32.DLL literally skip and count records if SET DELETED ON, even if there is no single deleted record. This is the doumented behaviour. Browses call this function several times during a single refresh. Now imagine the ADS Server literally traversing the entire table each time the function is called particulary if the table is large say with hundreds of thousands of records.\n\nSOLUTION:\n\nLet us continue with SET DELETED ON as usual.\n\nFor every large table, create an index on deleted(). Example INDEX ON DELETED() TAG DELETED. ( Name of the tag is not important)\nThen whenever we open a table the first thing to do is to set filter to .not. deleted().  Example: AdsSetAOF( \'!DELETED()\', ADS_RESOLVE_IMMEDIATE ).  Whenever we set any other filter, AdsSetAOF( \'DELETED() .AND.  &lt;OUR FILTER CONDITION&gt;\', ADS_RESOLVE_IMMEDATE). Now traversal of the DBF by the ADS Server is optimised. Without this the traversal is still not optimized. ( I use my custom function for setting filters which does this automatically if the table is DBF. )\n\nStill the AdsRecordCount() is not optimized. We should create a wrapper function. Let us do this now:\n[code:34lb3i8w]\nfunction AdsRecCount&#40;&#41;\n\nlocal nRecs\n\nSET DELETED OFF\nAdsSetDeleted&#40;&#46;f&#46;&#41;\nnRecs &#58;= AdsGetRecordCount&#40;&#41;		// rdd_ads by default uses respect filters\n                                        // because our AOF filter is already set to !deleted&#40;&#41;\n                                        // anyway we get nondeleted record count only\nAdsSetDeleted&#40;&#46;t&#46;&#41;\nSET DELETED ON\nRETURN nRecs\n[/code:34lb3i8w]\nNow use this function for blogilen\n\noBrw:bLogiclen ( for xbrowse oBrw:bKeyCount ) := {||MyAlias-&gt;(AdsRecCount())}\n\nNow you find the browses even on large ADS table to be as fast as other tables.\n\nBETTER SOLUTION:\n\nThough the above solution is fast, we know the browse calls the reccount function manytimes during each refresh, with resulting increase in network traffic and unnecessary load on the server. Imagine hundreds of users browsing and thousands of calls to the server. We know this is not necessary and also is not a good prgramming behaviour.\n\nBetter would be to ascertain the total records with the above function at the outset and store in a module wide static variable ( let us call it nRecCount. ).  Assgin the bLogicLen codeblock with {||nRecCount}.  Also choose the right value for AdsCacheRecords(nCatche), to reduce the round trips to the server.  Now the browse will go with blazing speed. We refresh the value of the variable nRecCount whenever our program perceives the need to refresh.\n\n\nSPECIAL CASE WITH SBROWSE\n\nI now stopped using tsbrowse, but earlier i was using it extensively.  The problem was that tsbrowse not only assigns the codeblocks but also uses them even before returning control to my program, i.e., even before I could replace the assignment with my functions. So the initial display was taking ages. Only way I could solve the issue was the alter the source code of tsbrowse.prg.\n\nAuthors of browses might have tested their product on small tables on local server versions. \n\nI thought my experiences might be useful for those who deal with large tables on ADS server.\n\nNote: All this is not necessary for ADT tables. Defaults work well because ADT tables do not have any deleted records.','',0,'AIA=','34lb3i8w',1,0,'',868,0,0),(44758,9303,3,239,0,'202.105.67.110',1198471848,1,0,1,1,1,0,'','','kokoo,\n  In your app.prg\n\n  activate dialog odlg on int (odlg:autoresize()) \n \n  Notice,  child dialog not work.\n\n Regards!\nShuming Wang','',0,'AIA=','1t2ju1pu',1,0,'',239,0,0),(44759,9305,3,868,0,'219.64.121.60',1198472936,1,0,1,1,1,1,'','','Please try this code. You can use the same logic to achieve what you want.\n[code:1u1iuhlb]\nFUNCTION Main&#40;&#41;\n\n   LOCAL oDlg,oFont\n   LOCAL nLen &#58;= 20\n   LOCAL nRem &#58;= 20\n   LOCAL cVar &#58;= SPACE&#40;20&#41;\n   LOCAL oSay, oGet\n\n\n   DEFINE FONT oFont NAME \'TAHOMA\' SIZE 0,-12\n   DEFINE DIALOG oDlg SIZE 300,200 PIXEL\n\n   @ 10,10 GET oGet VAR cVar SIZE 100,12 PIXEL OF oDlg ON CHANGE oSay&#58;Refresh&#40;&#41;\n   @ 10,120 SAY oSay PROMPT STR&#40; 20 - LEN&#40;TRIM&#40;oGet&#58;cText&#41;&#41;, 3, 0 &#41; SIZE 20,10 PIXEL OF oDlg COLOR CLR_BLACK,CLR_WHITE\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   RELEASE FONT oFont\n\nRETURN NIL\n[/code:1u1iuhlb]\nWhenever the user enters a character in the get, the say displays the remaining number of characters he can enter.','',0,'AIA=','1u1iuhlb',1,0,'',868,0,0),(44760,9305,3,868,0,'219.64.121.60',1198473064,1,0,1,1,1,1,'','','[quote:329n0sat]\nGet ...On Change =&gt; can\'t refresh other objects .\n\nSame problem to me , look like a bug .\n\n[/quote:329n0sat]\nFrom my above example you see that get on change can refresh other objects. There is no bug anywhere. It is just the way you use.','',0,'gA==','329n0sat',1,0,'',868,0,0),(44761,9305,3,1064,0,'61.70.211.182',1198476121,1,0,1,1,1,0,'','','nageswaragunupudi , Thank YOU.\n\n[quote:1i4zfqsi]\n\nDefine Get ...On Change oSAY1:REFRESH() ==&gt; WORK\n\nDefine Get ...On Change OBJECT_REFRESH() ==&gt; NOT WORK\n..\nFUNTION OBJECT_REFRESH()\n..\n..\noBJECT1():REFRESH()\noBJECT2():REFRESH()\noBJECT3():REFRESH()\n\nRETURN NIL\n\n[/quote:1i4zfqsi]\n\n\nBest Regards\nkokoo','',0,'gA==','1i4zfqsi',1,0,'',1064,0,0),(44762,9305,3,868,0,'219.64.121.60',1198476739,1,0,1,1,1,1,'','','Objects do refresh. You should ensure correct values to be reassigned to the object variables. \nfor example you wrote\n nLEFT1:=LEN(PAY-&gt;RMK1)-LEN(TRIM(PAY-&gt;RMK1)) \nnot correct\nit should be\n nLEFT1:=LEN(PAY-&gt;RMK1)-LEN(TRIM(oGet:cText))','',0,'gA==','3jj6jbkb',1,0,'',868,0,0),(44763,9343,3,1064,0,'61.70.211.182',1198477010,1,0,1,1,1,0,'','','hi nageswaragunupudi:\n\n[quote:jp8dcfta]\n\n#define ADS_RESPECTFILTERS       1                                 \n#define ADS_IGNOREFILTERS        2                                 \n#define ADS_RESPECTSCOPES        3          \n\n #xcommand SET FILTER TO &lt;xpr&gt;   ;    \n       ; AdsSetAof( &lt;xpr&gt; )                                                  \n                                                                               \n #xcommand SET FILTER TO &lt;x:&amp;&gt;    ;    \n        =&gt; if ( Empty( &lt;(x)&gt;) )              ;    \n         ;    dbClearFilter()                     ;    \n         ; else                                       ;    \n         ;    AdsSetAof( &lt;(x)&gt;  )             ;    \n         ; endif                                                               \n\nAdsGetRecordCount() ==&gt; TRY  AdsKeyCount(,, ADS_RESPECTSCOPES)                      \n                                                         \nAdsKeyNo()==&gt;AdsKeyNo(,, ADS_RESPECTSCOPES)      \nAdsKeyCount()==&gt;AdsKeyCount(,, ADS_RESPECTSCOPES)   \n\n\nMY BROWSE() work as fast as rdd \"DBFCDX\".\n\n[/quote:jp8dcfta]\n\nBest Regards\nkokoo','',0,'gA==','jp8dcfta',1,0,'',1064,0,0),(44764,9250,3,163,0,'87.2.232.111',1198482015,1,0,1,1,1,0,'','','Merry Christmas and a Happy New Year to all of us.','',0,'gA==','2tbni2la',1,0,'',163,0,0),(44765,9344,3,163,0,'87.2.232.111',1198482227,1,0,1,1,1,0,'','Email validate','Hi to all.\nIs it possible to validate an Email ?\nNot to control if it is written in a right way, but to test if it exists. \nI saw in some internet pages that is possible to make this, before sending\nan Email to someone, avoiding to receive an error message by the Email\nserver.\nThanks a lot.\nMassimo.','',0,'gA==','4yfph02j',1,0,'',163,0,0),(44766,9345,3,2,0,'87.218.146.113',1198487057,1,0,1,1,1,1,'','XBrowse online editing','Detlef,\n\nWe are intensively testing fwh\\samples\\mallorca.prg to fix it.\n\nWe have already located and fixed some issues:\n\n1. Class TXBrowse Method CancelEdit(). This line should be removed:\n\n         // oCol:oEditGet:nLastKey := VK_RETURN\n\n2. In mallorca.prg change this lines:\n\n   oBrw:aCols[1]:bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,1] := xVal,) } \n\n   oBrw:aCols[2]:bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,2] := xVal,) }','',0,'','3kgu7q2d',1,0,'',2,0,0),(44767,9345,3,2,0,'87.218.146.113',1198487261,1,0,1,1,1,1,'','','In static function EditGetkeyDown():\n\nchange final:\n\nreturn 0\n\ninto:\n\nreturn nil','',0,'','2viu6bni',1,0,'',2,0,0),(44768,9345,3,2,0,'87.218.146.113',1198488643,1,0,1,1,1,1,'','','In METHOD Edit( nKey ) CLASS TXBrwColumn, change:\n[code:1vace3ts]\n   if &#58;&#58;bEditValid != nil\n      &#58;&#58;oEditGet&#58;bValid &#58;= &#58;&#58;bEditValid\n   endif\n[/code:1vace3ts]\ninto this:\n[code:1vace3ts]\n   if &#58;&#58;bEditValid != nil\n      &#58;&#58;oEditGet&#58;bValid &#58;= &#123; | oGet, lRet | &#58;&#58;oEditGet&#58;lValidating &#58;= &#46;T&#46;, lRet &#58;= Eval&#40; &#58;&#58;bEditValid, oGet &#41;, &#58;&#58;oEditGet&#58;lValidating &#58;= &#46;F&#46;, lRet &#125;\n   endif\n[/code:1vace3ts]\nIn the same method change:\n[code:1vace3ts]\n   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; || &#58;&#58;PostEdit&#40;&#41; &#125;\n[/code:1vace3ts]\ninto this:\n[code:1vace3ts]\n   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; || If&#40; ! &#58;&#58;oEditGet&#58;lValidating, &#58;&#58;PostEdit&#40;&#41;,&#41; &#125;\n[/code:1vace3ts]','',0,'AIA=','1vace3ts',1,0,'',2,0,0),(44769,9345,3,2,0,'87.218.146.113',1198489326,1,0,1,1,1,1,'','','In In METHOD Edit( nKey ) CLASS TXBrwColumn, this is a better fix as it returns the focus to the GET if the VALID return .F.:\n[code:1p6e9ec2]\n   if &#58;&#58;bEditValid != nil\n      &#58;&#58;oEditGet&#58;bValid &#58;= &#123; | oGet, lRet | &#58;&#58;oEditGet&#58;lValidating &#58;= &#46;T&#46;, lRet &#58;= Eval&#40; &#58;&#58;bEditValid, oGet &#41;, &#58;&#58;oEditGet&#58;lValidating &#58;= &#46;F&#46;, If&#40; ! lRet, &#58;&#58;oEditGet&#58;SetFocus&#40;&#41;,&#41;, lRet &#125;\n   endif\n[/code:1p6e9ec2]','',0,'AIA=','1p6e9ec2',1,0,'',2,0,0),(44770,9345,3,2,0,'87.218.146.113',1198490426,1,0,1,1,1,1,'','','In method Edit() this is a better fix:\n[code:2m80xp77]\n   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; || If&#40; &#58;&#58;oEditGet != nil &#46;and&#46; ! &#58;&#58;oEditGet&#58;lValidating, &#58;&#58;PostEdit&#40;&#41;,&#41; &#125;\n[/code:2m80xp77]','',0,'AIA=','2m80xp77',1,0,'',2,0,0),(44771,9345,3,2,0,'87.218.146.113',1198492180,1,0,1,1,1,1,'','','Proper fix for Method CancelEdit():\n[code:3nuge3yy]\nMETHOD CancelEdit&#40;&#41; CLASS TXBrowse\n\n   local oCol, nFor, nlen\n\n   if ! &#58;&#58;lEditMode\n      return nil\n   endif\n\n   nLen &#58;= Len&#40; &#58;&#58;aCols &#41;\n\n   for nFor &#58;= 1 to nLen\n      oCol &#58;= &#58;&#58;aCols&#91; nFor &#93;\n      if oCol&#58;oEditGet != nil\n         oCol&#58;oEditGet&#58;VarPut&#40; Eval&#40; oCol&#58;bEditValue &#41; &#41;\n         oCol&#58;oEditGet&#58;bValid = nil\n         oCol&#58;PostEdit&#40;&#41;\n      endif\n   next\n\n   &#58;&#58;lEditMode &#58;= &#46;f&#46;\n\nreturn nil\n[/code:3nuge3yy]','',0,'AIA=','3nuge3yy',1,0,'',2,0,0),(44772,9345,3,2,0,'87.218.146.113',1198493020,1,0,1,1,1,1,'','','This fix is required in Class TXBrwColumn Method PaintData(), so if a VALID is .F. then the column is properly painted. Change this:\n[code:3jz9ha9x]\n   if &#58;&#58;oEditGet != nil &#46;or&#46; &#58;&#58;oEditLbx != nil &#46;or&#46; &#58;&#58;oBrw&#58;nLen == 0\n      return nil\n   endif\n[/code:3jz9ha9x]\ninto this:\n[code:3jz9ha9x]\n   if &#40; &#58;&#58;oEditGet != nil &#46;and&#46; nRow == &#58;&#58;oBrw&#58;nRowSel &#41; &#46;or&#46; &#58;&#58;oEditLbx != nil &#46;or&#46; &#58;&#58;oBrw&#58;nLen == 0\n      return nil\n   endif\n[/code:3jz9ha9x]\nWe are getting close to have samples\\mallorca.prg working fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3jz9ha9x',1,0,'',2,0,0),(44773,9345,3,2,0,'87.218.146.113',1198493525,1,0,1,1,1,1,'','','Avoiding the VALID if escape is pressed:\n[code:1reoy2hc]\nstatic function EditGetkeyDown&#40; Self, nKey &#41;\n&#46;&#46;&#46;\n      case nKey == VK_ESCAPE\n           lExit &#58;= &#46;t&#46;\n           &#58;&#58;oEditGet&#58;bValid = nil\n&#46;&#46;&#46;\n[/code:1reoy2hc]','',0,'AIA=','1reoy2hc',1,0,'',2,0,0),(44774,9346,5,20,0,'82.49.185.203',1198493695,1,0,1,1,1,0,'','FiveMac','I just installed Mac OSX Leopard and Xcode 2.5 and I no longer compile the programs. My build.sh is\n\n[code:1tukli3g]\n/Xcode2&#46;5/usr/bin/gcc $1&#46;c -c -I&#46;/&#46;&#46;/include -I&#46;/&#46;&#46;/&#46;&#46;/harbour/include -I/Xcode2&#46;5/SDKs/MacOSX10&#46;4u/usr/include\n[/code:1tukli3g]\n\nThis is the error:\n[code:1tukli3g]\n&#46;/&#46;&#46;/&#46;&#46;/harbour/include/hbdefs&#46;h&#58;57&#58;19&#58; error&#58; stdio&#46;h&#58; No such file or directory\n&#46;/&#46;&#46;/&#46;&#46;/harbour/include/hbdefs&#46;h&#58;58&#58;20&#58; error&#58; stdlib&#46;h&#58; No such file or directory\n&#46;/&#46;&#46;/&#46;&#46;/harbour/include/hbdefs&#46;h&#58;59&#58;20&#58; error&#58; string&#46;h&#58; No such file or directory\n[/code:1tukli3g]\nWhere is the mistake?\n\nRegards\nPier Luigi','',0,'AIA=','1tukli3g',1,0,'',20,0,0),(44775,9345,3,2,0,'87.218.146.113',1198494311,1,0,1,1,1,1,'','','Here you have the new mallorca.exe:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25599-33319869aa.html\">http://www.hotshare.net/file/25599-33319869aa.html</a><!-- m -->\n\nPlease test it and see if you can break it, thanks\n\nThere is a pending painting issue when returning from the VALID (a painted frame around the GET). We are working to solve it.','',0,'AIA=','24zo2sw1',1,0,'',2,0,0),(44776,9250,3,51,0,'80.122.88.242',1198494638,1,0,1,1,1,0,'','','[img:rl1bqj84]http&#58;//www&#46;atzwanger&#46;com/fw/merry&#46;jpg[/img:rl1bqj84]\n\nDear friends!\n\nWe wish all of you merry Christmas and a happy new year. \nHopefully you keep visiting <!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w --> in the new year. \nYour contributions and help always make us very happy.\n\nWe send you our best wishes from Austria from the entire \nfwcodesnips-Team','',0,'CA==','rl1bqj84',1,0,'',51,0,0),(44777,9303,3,1064,0,'59.115.53.159',1198494698,1,0,1,1,1,0,'','','hi ShumingWang :\n\n[quote:3k74wbui]\nmodifying my screen size for each resolution I face. \n[/quote:3k74wbui]\n\ninclude font size ?\n\nAny passable for a resource Dialog , there is some objects not define only  display.\n\nkokoo','',0,'gA==','3k74wbui',1,0,'',1064,0,0),(44778,9346,5,2,0,'87.218.146.113',1198495244,1,0,1,1,1,1,'','','Pier Luigi,\n\nWe are properly using FiveMac in Leopard.\n\nYou don\'t need to specify the path for gcc:\n/Xcode2.5/usr/bin/gcc\n\nAlso, you don\'t need to set this headers path for gcc:\n-I/Xcode2.5/SDKs/MacOSX10.4u/usr/include\n\nWe email you the most recent FiveMac build for Leopard <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','ynrjxr13',1,0,'',2,0,0),(44779,9346,5,2,0,'87.218.146.113',1198495816,1,0,1,1,1,1,'','','Pier Luigi,\n\nYou have to use XCode 3.0 for Leopard!','',0,'gA==','1qyyj3ot',1,0,'',2,0,0),(44780,9313,3,267,0,'189.13.205.93',1198495903,1,0,1,1,1,1,'','','Antonio,\n\nI already am making thus, but the problem persists.','',0,'gA==','16d55s5g',1,0,'',267,0,0),(44781,9347,19,233,0,'60.50.116.155',1198497193,1,0,1,1,1,0,'','Wiki','Antonio, \n\n1. Initial test entry has been made at <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/wiki\">http://fivetechsoft.com/wiki</a><!-- m --> . I added some contents for the FAQ.\n\n2. I recommend a general public user and password is published on the wiki. This way, it\'ll be easier for everyone to participate and vandalism by spam-bot is avoided.','',0,'gA==','1rm8rh13',1,0,'',233,0,0),(44782,9342,6,36,0,'200.113.56.235',1198499015,1,0,1,1,1,1,'','','Hola Manuel Mercado\n\nAl tratar de bajar dice \n\n[b:22ttnelf]This object has been blocked.[/b:22ttnelf]\n\n\nFeliz Navidad','',0,'QA==','22ttnelf',1,0,'',36,0,0),(44783,9313,3,868,0,'123.236.134.2',1198499050,1,0,1,1,1,1,'','','I do not use ADORDD and can not directly comment on this. But the problems I faced in updating my ads_rdd libraries may give some indications.\n\nBecause I made some extentions and modifications to ads_rdd lib, every time I upgrade xHarbour. I normally use xharbour provided with FWH. Till FWH 7.11 I had no problems.\n\nWhen I installed FWH 7.12 and xHarbour with 7.12, I rebuilt my ads libraries and my applications. My applicatiosn started raising GPF whenever ADSRDD is used.  ads_rdd provided with xharbour along with 7.12 works. But if i rebuil d my old source with xharbour fwh7.12 i get gpf.\n\nThen I downloaded latest source from xharbour.org.  Even the latest source built with xharbour (7.12) raises GPFs\n\nThen I downloaded the latest binaries from xharbour.org and latest ads rdd source. With this everyting is working again.\n\nTo summarize. I get GPFs with the following combinations:\n\n1. xharbour with 7.12  and old source code\n2. xharbour with 7.12 and new source code.\n\nWhat works:\n1. xharbour with 7.11 and old source code\n2. xharbour 1-0-0 beta1 from xharbour.org and new source code.\n\nThis information may be useful','',0,'QA==','nanuo7fu',1,0,'',868,0,0),(44784,9345,3,868,0,'123.236.134.2',1198499756,1,0,1,1,1,1,'','','Thanks Mr Antonio. Extremely happy that we are now getting reliable inline edit for our favourite xBrowse.\n\nI have been working on this issue, but now that you have done the most part of it I shall adopt your changes now.\n\nAre these the only changes to the source code ? I adopt them and make extensive tests.\n\nMy first test with mallorca.exe is working well.','',0,'QA==','bghnmtv8',1,0,'',868,0,0),(44785,9313,3,2,0,'87.218.146.113',1198500314,1,0,1,1,1,1,'','','NageswaraRao,\n\nCould you please upload your adordd.lib and usrrdd.lib to <!-- w --><a class=\"postlink\" href=\"http://www.hotshare.net\">www.hotshare.net</a><!-- w --> and copy here the download link ? thanks','',0,'QA==','gf704072',1,0,'',2,0,0),(44786,9345,3,2,0,'87.218.146.113',1198500434,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt;\nAre these the only changes to the source code ? I adopt them and make extensive tests. \n&gt;\n\nYes, the ones that I have published here.\n\n&gt; My first test with mallorca.exe is working well.\n\nThis is samples\\mallorca.prg with some little changes:\n[code:1ko2c9v2]\n# INCLUDE &quot;FiveWin&#46;ch&quot; \n# INCLUDE &quot;XBrowse&#46;ch&quot; \n//------------- \nFUNCTION Main&#40;&#41; \n//------------- \n   LOCAL oWnd,aLin&#58;=&#123;&#125;,i,oBrw \n   FOR i&#58;=1 TO 6 \n      AAdd&#40;aLin,&#123;i,\'Descripción \'+Str&#40;i&#41;&#125;&#41; \n   NEXT \n   DEFINE WINDOW oWnd \n   //--Definición Objeto TxBrowse \n   oBrw&#58;=TxBrowse&#40;&#41;&#58;New&#40;oWnd&#41; \n   oBrw&#58;SetArray&#40;aLin&#41; \n   oBrw&#58;nColDividerStyle &#58;= LINESTYLE_BLACK \n   oBrw&#58;nRowDividerStyle &#58;= LINESTYLE_BLACK \n   oBrw&#58;nMarqueeStyle    &#58;= MARQSTYLE_HIGHLCELL \n\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader      &#58;= \'Cod\' \n   oBrw&#58;aCols&#91;1&#93;&#58;cEditPicture &#58;= \'@k 99\' \n   oBrw&#58;aCols&#91;1&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd \n   oBrw&#58;aCols&#91;1&#93;&#58;bOnPostEdit  &#58;= &#123; | oCol, xVal, nKey | If&#40; nKey == VK_RETURN, aLin&#91; oBrw&#58;nArrayAt,1&#93; &#58;= xVal,&#41; &#125; \n   oBrw&#58;aCols&#91;1&#93;&#58;nEditType    &#58;= EDIT_GET \n   oBrw&#58;aCols&#91;1&#93;&#58;bEditValid   &#58;= &#123; | oGet | Valida&#40; oGet &#41; &#125; //&lt;======== \n   //-- \n   oBrw&#58;aCols&#91;2&#93;&#58;cHeader      &#58;= \'Descripción\' \n   oBrw&#58;aCols&#91;2&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd \n   oBrw&#58;aCols&#91;2&#93;&#58;bOnPostEdit  &#58;= &#123; | oCol, xVal, nKey | If&#40; nKey == VK_RETURN, aLin&#91; oBrw&#58;nArrayAt,2&#93; &#58;= xVal,&#41; &#125; \n   oBrw&#58;aCols&#91;2&#93;&#58;nEditType    &#58;= EDIT_GET \n   //-- \n   oBrw&#58;CreateFromCode&#40;&#41; \n   oBrw&#58;bRClicked = &#123; | nRow, nCol | ShowPopup&#40; nRow, nCol, oBrw, aLin &#41; &#125;\n   oWnd&#58;oClient&#58;=oBrw \n   \n   ACTIVATE WINDOW oWnd \n   \nRETURN NIL \n\nSTATIC FUNCTION Valida&#40; oGet &#41; \n    \n    IF oGet&#58;Value&#40;&#41; &gt; 6 \n       MsgAlert&#40; &quot;Must be lower than 7&quot; &#41; \n       return &#46;F&#46;\n    ENDIF \n    \nRETURN &#46;T&#46;\n\nfunction ShowPopup&#40; nRow, nCol, oBrw, aLin &#41;\n\n   local oMenu\n   \n   MENU oMenu POPUP\n      MENUITEM &quot;Add&quot; ACTION &#40; AAdd&#40; aLin, &#123; AllTrim&#40; Str&#40; Len&#40; aLin &#41; + 1 &#41; &#41;, &quot;New item&quot; &#125; &#41;, oBrw&#58;SetArray&#40; aLin &#41;, oBrw&#58;Refresh&#40;&#41; &#41;\n      MENUITEM &quot;Del&quot; ACTION &#40; ADel&#40; aLin, oBrw&#58;nArrayAt &#41;, ASize&#40; aLin, Len&#40; aLin &#41; - 1 &#41;, oBrw&#58;SetArray&#40; aLin &#41;, oBrw&#58;Refresh&#40;&#41; &#41;\n      MENUITEM &quot;Select&quot; ACTION &#40; oBrw&#58;GoTop&#40;&#41;, oBrw&#58;nArrayAt &#58;= 3, oBrw&#58;Refresh&#40;&#41; &#41;\n   ENDMENU\n   \n   ACTIVATE POPUP oMenu WINDOW oBrw AT nRow, nCol\n   \nreturn nil\n[/code:1ko2c9v2]','',0,'AIA=','1ko2c9v2',1,0,'',2,0,0),(44787,9342,6,2,0,'87.218.146.113',1198500708,1,0,1,1,1,1,'','','Patricio,\n\nDesde aqui se descarga bien','',0,'AIA=','lm5j4qa1',1,0,'',2,0,0),(44788,9347,19,2,0,'87.218.146.113',1198500941,1,0,1,1,1,1,'','','Very good! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe want each contributor to use his unique login and password, so we can exactly know who is contributing and what is contributing','',0,'AIA=','1ejspjha',1,0,'',2,0,0),(44789,9342,6,36,0,'164.77.81.210',1198501462,1,0,1,1,1,1,'','','Gracias Antonio\n\nAhora descarga bien...','',0,'AIA=','atd7atl3',1,0,'',36,0,0),(44790,9348,7,720,0,'80.36.244.134',1198502645,1,0,1,1,1,0,'','No todo es trabajar...','Bueno, aprovecho la ocasión para felicitar a todos por estas fiestas y que tengais un próspero año nuevo cargado de salud y de buenos proyectos...\n\n\nUn Saludo.\n\nElías Torres.','',0,'AIA=','3hbe81h6',1,0,'',720,0,0),(44791,9318,23,130,0,'84.138.49.224',1198502987,1,0,1,1,1,1,'','','Hallo Otto,\n\nes läuft so weit, es sind aber noch ein paar Fehler drin. Ich hoffe, daß wir es die nächsten Wochen fertig stellen.\n\nGruß\nStefan','',0,'AIA=','37cvk9rl',1,0,'',130,0,0),(44792,9345,3,868,0,'123.236.134.2',1198503415,1,0,1,1,1,1,'','','Mr Antonio\n\nGreat. Almost all the problems I faced earlier seem to have been addressed. I shall continue my tests on other data also.\n\nAt this point only one observation that the EditValid block is getting evaluated twice. Can this be avoided?\n\nAfter solving the inline edit issue, you have to address the listbox issue also. Once the user presses on the arrow, the listbox is shown. After the user moves around the listbox, he has no way to cancel ( esc does not help) and retain  the original value unchanged.\n\nWe shall be glad if you keep publishing whatever changes you keep making with regards to edits.','',0,'AIA=','17dl0f62',1,0,'',868,0,0),(44793,9345,3,2,0,'87.218.146.113',1198503983,1,0,1,1,1,1,'','','Nageswararao,\n\nIn mallorca.prg the VALID MsgInfo() is shown only once.\n\nHow to do to show it twice ?','',0,'AIA=','p7tx5rj5',1,0,'',2,0,0),(44794,9345,3,868,0,'123.236.134.2',1198504052,1,0,1,1,1,1,'','','Problem:\n\nEnter an invalid value in the first column. Say enter 9 and press Enter key. As expected the valid msg is shown twice and the focus remains on the get.\n\nWithout doing anything click on any other program window.  Then the invalid value is written and cursor moves  to next column','',0,'AIA=','2z9zxz22',1,0,'',868,0,0),(44795,9345,3,868,0,'123.236.134.2',1198504373,1,0,1,1,1,1,'','','I made the changes you published.  For the sake of clarity I made the changes in a derived class. With that I compiled your mallorca program ( latest version).\n\nThere seems to be slight difference in behavior between your exe and what i compiled here.  I may need to check if i made all the corrections properly.','',0,'AIA=','37467r5r',1,0,'',868,0,0),(44796,9345,3,868,0,'123.236.134.2',1198504874,1,0,1,1,1,1,'','','Trying with your Exe:\nLet us take 4th line first column.\nEnter 9 and press enter key. ( in your exe valid msg is shown only once).\nand get retians focus and shows 9\nclick on some other program window outiside.  Get still has focus.\nNow come back to browse and click on any other cell.\n9 is written and also wrongly justified ( as if painted by get object)\nPlease release your next exe with colored gets.','',0,'AIA=','2hkdtcvx',1,0,'',868,0,0),(44798,9345,3,868,0,'123.236.134.2',1198505457,1,0,1,1,1,1,'','','In the above case:\n\n9 seems to be in Get still.  We can not navigate to the cell by left clicking on the cell. But if we block the 9 with mouse and press enter :\n[code:1wr0is5b]\n   Path and name&#58; C&#58;\\TESTS\\Bin\\mallorca1&#46;exe &#40;32 bits&#41;\n   Size&#58; 1,223,168 bytes\n   Time from start&#58; 0 hours 0 mins 32 secs \n   Error occurred at&#58; 12/24/07, 19&#58;48&#58;17\n   Error description&#58; Error BASE/1005  No exported variable&#58; NLASTKEY\n   Args&#58;\n     &#91;   1&#93; = U   \n     &#91;   2&#93; = N   13\n\nStack Calls\n===========\n   Called from&#58;  =&gt; _NLASTKEY&#40;0&#41;\n   Called from&#58; &#46;\\source\\classes\\XBROWSE&#46;PRG =&gt; EDITGETKEYDOWN&#40;0&#41;\n   Called from&#58;  =&gt; &#40;b&#41;EDIT&#40;0&#41;\n   Called from&#58;  =&gt; TGET&#58;KEYDOWN&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58;  =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58;  =&gt; TGET&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; &#46;\\source\\classes\\WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; D&#58;\\FiveWin&#46;20\\samples\\mallorca&#46;prg =&gt; MAIN&#40;34&#41;\n[/code:1wr0is5b]','',0,'AIA=','1wr0is5b',1,0,'',868,0,0),(44800,9345,3,868,0,'123.236.134.2',1198507202,1,0,1,1,1,1,'','','Mr Antonio\n\nThere seem to some difference in the behavior between your exe and what I compile here.\n\nI have made the changes in a derived class so that the changes are very clear.  The zip file of the changes is here\n\n[url=http&#58;//www&#46;hotshare&#46;net/file/25641-1669495adb&#46;html:2vkpd0s3]XBROWED.zip (3.40 KB)[/url:2vkpd0s3]\n\nCan you kindly go through and advise me if there are any more modifications I need to make?','',0,'EA==','2vkpd0s3',1,0,'',868,0,0),(44801,9345,3,2,0,'87.218.146.113',1198507244,1,0,1,1,1,1,'','','Nageswararao,\n\nFixed. In METHOD Edit( nKey ) CLASS TXBrwColumn make this change:\n[code:1xlpin3f]\n   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; | oGet, hWndFocus | If&#40; GetWindowProcessId&#40; hWndFocus &#41; != GetWindowProcessId&#40; &#58;&#58;oBrw&#58;hWnd &#41;, &#58;&#58;oBrw&#58;CancelEdit&#40;&#41;, If&#40; &#58;&#58;oEditGet != nil &#46;and&#46; ! &#58;&#58;oEditGet&#58;lValidating, &#58;&#58;PostEdit&#40;&#41;,&#41; &#41; &#125;\n[/code:1xlpin3f]\nand add this function to source\\winapi\\getwnd.c\n[code:1xlpin3f]\nHB_FUNC&#40; GETWINDOWPROCESSID &#41; // hWnd --&gt; nProcessId\n&#123;\n   DWORD dwProcessId;\n   \n   GetWindowThreadProcessId&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, &amp;dwProcessId &#41;;\n   \n   hb_retnl&#40; dwProcessId &#41;;\n&#125;   	\n[/code:1xlpin3f]','',0,'AIA=','1xlpin3f',1,0,'',2,0,0),(44802,9345,3,2,0,'87.218.146.113',1198507642,1,0,1,1,1,1,'','','We can use GetWindowThreadProcessId() instead of GetWindowProcessId():\n[code:a4jjyqh9]\nHB_FUNC&#40; GETWINDOWTHREADPROCESSID &#41; // hWnd --&gt; nThread\n&#123;\n   _retnl&#40; GetWindowThreadProcessId&#40; &#40; HWND &#41; _parnl&#40; 1 &#41;, NULL &#41; &#41;;\n&#125;   	\n[/code:a4jjyqh9]','',0,'AIA=','a4jjyqh9',1,0,'',2,0,0),(44803,9345,3,2,0,'87.218.146.113',1198507807,1,0,1,1,1,1,'','','New mallorca.exe for testing:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25644-4327956e7d.html\">http://www.hotshare.net/file/25644-4327956e7d.html</a><!-- m -->','',0,'AIA=','33zw0i58',1,0,'',2,0,0),(44804,9348,7,2,0,'87.218.146.113',1198507931,1,0,1,1,1,1,'','','Elías,\n\nIgualmente, gracias <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9270\">http://fivetechsoft.com/forums/viewtopic.php?t=9270</a><!-- m -->','',0,'AIA=','2n293y5g',1,0,'',2,0,0),(44805,9340,6,2,0,'87.218.146.113',1198508032,1,0,1,1,1,1,'','','Rolando,\n\nComprueba que tengas este código en la Clase TRichEdit:\n\n   METHOD GoToLine( nLine ) INLINE ::SetPos( ::SendMsg( EM_LINEINDEX, nLine, 0 ) )','',0,'AIA=','1x0ta1nr',1,0,'',2,0,0),(44806,9318,23,58,0,'84.149.101.166',1198509691,1,0,1,1,1,0,'','Re: Hallo, alle deutsch sprechenden FIVERIANER!','[quote=&quot;byte-one&quot;:c74jo9dn]Sollte mehr Bewegung im Forum sein, oder!? Manches Problem läßt sich doch eher in unserer Sprache ausdrücken. Nicht jeder ist perfect in English! Oder lieg ich da nicht richtig?[/quote:c74jo9dn]\nHallo Günther,\n\nmuss mich hier als Kollegenschwein outen, da ich lieber im \'großen\' Forum poste.\nMich nerven schon immer die spanischen Beiträge, die ich wegen mangelnder Sprachkenntnis nicht nachvollziehen kann. \n\nAber ich möchte nicht dazu beitragen, dass dann die aktuellen FiveWin Probleme in 12 verschiedenen Foren in der jeweiligen Landessprache behandelt werden.\n\nDeswegen poste ich halt so gut es geht in Englisch, in der Hoffnung, dass alles was davon haben.\n\nNix für ungut und schöne Feiertage,\nDetlef','',0,'gA==','c74jo9dn',1,0,'',58,0,0),(44807,9328,3,439,0,'200.125.42.193',1198510352,1,0,1,1,1,1,'','','&gt; El trabajo con Visual FiveWin fue real y le estoy pidiendo a alguien en el foro que me permita alojar los programas fuente de dicho proyecto, inconcluso hasta la fecha pero que funciona (claro, con muchas limitaciones)\n\nSr. Mercado, con gusto puedo brindarle hosting para sus fuentes y para lo que guste dentro de mis posibilidades sin costo alguno para Ud., sírvase comunicarse conmigo a:\n\n<!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->','',0,'gA==','1s493c18',1,0,'',439,0,0),(44808,9340,6,1059,0,'190.30.47.55',1198510541,1,0,1,1,1,0,'','','Antonio,\n\nSi, está el método tal cual lo preguntas.\n\n¿Que puede estar pasando?.\n\nGracias.\n\nRolando. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','xkiiehei',1,0,'',1059,0,0),(44809,9270,6,456,0,'217.127.39.57',1198511111,1,0,1,1,1,1,'','','¡¡¡¡¡ FELICES FIESTAS A TODOS !!!!!!!!\n\nMolst d\'anys','',0,'gA==','1f6pnx4u',1,0,'',456,0,0),(44810,9349,6,1173,0,'190.6.194.126',1198513635,1,0,1,1,1,1,'','Problemas con la BUTTONBAR 2007','He estado experimentando un problema al usar la BUTTONBAR juntamente con los Gets que usan password en un Dialogo.\nAl estar el teclado en Mayusculas envia el mensaje de advertencia, y al hacer el cambio de mayusculas a minusculas, los bitmaps de la BUTTONBAR desaparecen.\nClaro esta, al pasar el mouse sobre el lugar en que deberian ir los bitmaps estos vuelven a pintarse y funcionan bien.\n\nEstoy usando FiveWin 7.11 con xHarbour\nDe antemano gracias por su ayuda  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','328u4bnt',1,0,'',1173,0,0),(44811,9341,3,909,0,'71.71.110.50',1198517312,1,0,1,1,1,1,'','','Hi James - \nThanks for your response.  You\'re right about the best programming form, etc.  However, in my case, a lot of my combos are years and/or months.  in the case of years, the current year is shown in the get and the dropdown goes back in time eventually to the first year there are data.  Also, where there is a combo where a month needs to be chosen, it is convenient to have \"January\" in the get.  \n\nI guess my issue is that I have a lot of these where there is no instruction or label on the dialog because clipper/fivewin shows the cYr in the get with the value of aYr[1] and the user can imediately see what he/she has to do when he sees two combos that show \"2007\" and \"January\" in them.  \n\nI will have to either modify the the dialogs with a label for each combo or give a value to the cYr in the code.  I guess the best way is to start doing the cYr := aYr[1] with all new things and and somehow modify TCOMBOBOX to be clipper compatible and rebuild all of my existing exe\'s with it.  \n\nAny ideas will be helpful.\n\nRegards,\nCharles','',0,'','al05259e',1,0,'',909,0,0),(44812,9341,3,2,0,'87.218.146.113',1198519373,1,0,1,1,1,1,'','','Charles,\n\nYou can easily modify Class TComboBox source code to make it work the way you want:\n[code:u40zt12v]\nMETHOD Default&#40;&#41; CLASS TComboBox\n&#46;&#46;&#46;\n   if Empty&#40; cStart &#41; // instead of&#58; if cStart == nil\n&#46;&#46;&#46;\n[/code:u40zt12v]','',0,'AIA=','u40zt12v',1,0,'',2,0,0),(44813,9313,3,267,0,'189.13.205.93',1198520677,1,0,1,1,1,1,'','','Antonio,\n\nUsing usrrdd.lib from the Harbour/xHarbour builds for FWH 7.12 and  compiling adordd.prg as part of my application I now have the following message of error: \n\n[code:30ozwqes]\nUNRECOVERABLE ERROR 9015 - Symbol Item expected from Hb_VmDo&#40;&#41; \n[/code:30ozwqes]\n\nThis message also appears when I try to compile access1.prg(adordd\\samples) with buildx.bat.','',0,'AIA=','30ozwqes',1,0,'',267,0,0),(44815,9313,3,2,0,'87.218.146.113',1198523835,1,0,1,1,1,1,'','','Vilian,\n\nWe have just emailed Nageswararao to get his libraries and check with them.\n\nOurs are failing too with the same error, and in our opinion, it looks as a xHarbour usrrdd + adordd problem in new build. \n\nThats why we want to be sure about it testing xharbour.org ones.','',0,'AIA=','ocoj3qwl',1,0,'',2,0,0),(44816,9349,6,2,0,'87.218.146.113',1198524043,1,0,1,1,1,1,'','','Oscar,\n\nVamos a revisarlo de inmediato, gracias','',0,'AIA=','2vp4x49p',1,0,'',2,0,0),(44817,9250,3,69,0,'74.14.138.80',1198524308,1,0,1,1,1,1,'','','A very Merry Christmas and Happy New Year to you and your families.','',0,'AIA=','1ol99jye',1,0,'',69,0,0),(44818,9328,3,34,0,'68.5.217.82',1198525398,1,0,1,1,1,1,'','TSBrowse','Manuel,\n\nPerhaps you should get a copy of the TSBrowse we are currently using.  James has found and cleaned some bugs, and I think some others have added to it a bit.  That would allow you to eliminate some work that may have already been done.\n\nAlso, there may have been some changes made in 7.12 FWH that should be brought over to TSBrowse.  That would then allow it to be 100 % compatible with FWH which would be good.  There are many advances in recent months that make it truly present a good display to the clients which is consistant with Office 2007.\n\nFinally, some of the issues mentioned here about ADS might be incorporated into the browser.  That would allow people to see better performance on their networks which I do know is a problem.\n\nThanks .. have a meryy Christmas.\n\nTim','',0,'AIA=','2wt65sz6',1,0,'',34,0,0),(44819,9343,3,34,0,'68.5.217.82',1198525464,1,0,1,1,1,1,'','Where','Where do you include this code ?\n\nTIm','',0,'AIA=','fc3z9xa7',1,0,'',34,0,0),(44820,9351,6,141,0,'200.88.94.77',1198525710,1,0,1,1,1,1,'','Busqueda incremental y StatusBar','A ver si alguien sabe como:\n\nNecesito mostrar en el StatusBar el valor que estoy manejando en una busqueda incremental en un twbrowse.  Revise samples\\StBar.prg y parece que lo hice, pero me muestra muchos simbolos extraños....\n\nColoque que el metodo bKeyDown del wBrowse evaluara esto:\n\n[code:gdmwq2f4]\nIF !EMPTY&#40;cZoek&#41;\n   IF INDEXORD&#40;&#41; # 0\n      bMsg &#58;= &amp;&#40;&quot;&#123;||oStatusBar&#58;SetPartText&#40;3,\'&quot;+PADR&#40;&quot;Buscando a &gt;&quot;+cZoek+&quot;&lt;&quot;,40&#41;+&quot;\'&#41;&#125;&quot;&#41;\n      EVAL&#40; bMsg &#41;\n\n      DBSeek&#40; cZoek &#41;\n      IF Found&#40;&#41;\n         IF nRecNo#RECNO&#40;&#41;\n            oLbx&#58;Refresh&#40;&#41;\n         ENDIF\n         nRecNo &#58;= RECNO&#40;&#41;\n      ELSE\n         DBGoTo&#40; nRecNo &#41;\n         oLbx&#58;Refresh&#40;&#41;\n      ENDIF\n   ENDIF\nELSE\n   oStatusBar&#58;SetPartText&#40;3,&quot;                                        &quot;&#41;\nCLR_BLACK,, &#46;t&#46; &#41;\nENDIF\n[/code:gdmwq2f4]\ndonde cZoek es la variable de busqueda incremental.\n\nPero no consigo esto.  Con el MsgBar estaba bien, pero me interesa utilizar StatusBar.\n\nGracias anticipadas...','',0,'AIA=','gdmwq2f4',1,0,'',141,0,0),(44821,9351,6,2,0,'87.218.146.113',1198526384,1,0,1,1,1,1,'','','Julio,\n\nPuedes poner un ejemplo de texto usado por cZoek que no se vea bien ? gracias','',0,'AIA=','29lj5nc4',1,0,'',2,0,0),(44822,9351,6,141,0,'200.88.94.77',1198527043,1,0,1,1,1,1,'','','Antonio:\n\nGracias por responder tan rapido.\n\nComo incluyo el pantallazo aquí ? (disculpa mis limitaciones en manejo del foro.. <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->)\n\nAbrazos y Felicidades en Navidad !','',0,'AIA=','3mthcw1u',1,0,'',141,0,0),(44823,9349,6,2,0,'87.218.146.113',1198527285,1,0,1,1,1,1,'','','En Vista está funcionando bien. Vamos a probarlo en XP tambien,\n\nHemos probado varias veces a poner y quitar las mayúsculas:\n\n[url=http&#58;//imageshack&#46;us:38uzz3ez][img:38uzz3ez]http&#58;//img516&#46;imageshack&#46;us/img516/1720/passwyp5&#46;png[/img:38uzz3ez][/url:38uzz3ez]','',0,'GA==','38uzz3ez',1,0,'',2,0,0),(44824,9351,6,2,0,'87.218.146.113',1198527410,1,0,1,1,1,1,'','','Julio,\n\nNo hace falta el pantallazo de momento (puedes usar <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> para incluirlos aqui), sino el texto que le estás asignando a la statusbar para poder reproducirlo, gracias','',0,'GA==','z75jz6hw',1,0,'',2,0,0),(44825,9349,6,2,0,'87.218.146.113',1198528538,1,0,1,1,1,1,'','','En XP tambien está funcionando bien aqui, activando y desactivando mayúsculas. \n\nEl ejemplo es samples\\Test2007.prg modificado para incluir un diálogo de recursos con un GET tipo password:\n\n[url=http&#58;//imageshack&#46;us:309kkl99][img:309kkl99]http&#58;//img337&#46;imageshack&#46;us/img337/2245/xppn5&#46;png[/img:309kkl99][/url:309kkl99]','',0,'GA==','309kkl99',1,0,'',2,0,0),(44826,9351,6,141,0,'200.88.94.77',1198530194,1,0,1,1,1,1,'','','Ok, comprendo:\n\n1- El StatusBar lo defino asi en el dialogo:\n\n[code:kjpn2wv5]\n   DEFINE STATUSBAR oStatusBar PROMPT &quot;Edición de Registros&quot; OF oDlg ;\n      SIZES 150, 280, 560 ;\n      PROMPTS &quot;One&quot;, Fecha, &quot;                                        &quot;\n[/code:kjpn2wv5]\n\nLa variable \"Fecha\" contiene la fecha actual, y se visualiza perfectamente.\n\n2- Quisiera que cuando se pulse cualquier tecla, se realice la busqueda incremental.  La variable \"cZoek\" contiene la cadena que se ha estado digitando y que comprende lo que \"busca\" el usuario.  Si se trata de la DBF de Clientes, bien podria ser que cZoek := \"GONZAL\" si es que ha estado buscando el primer Gonzales en el wBrowse de clientes ordenado alfabeticamente.\n\nAgrego una pantalla con lo que describo anteriormente...\n[img:kjpn2wv5]http&#58;//img507&#46;imageshack&#46;us/img507/2456/pant1lx8&#46;jpg[/img:kjpn2wv5]\nBy [url=http&#58;//profile&#46;imageshack&#46;us/user/jllinas:kjpn2wv5]jllinas[/url:kjpn2wv5] at 2007-12-24\n\nEn este ejemplo, cZoek contenia \"ANDR\", pero como vez muestra una \"G\", que no tiene nada que ver con el valor de cZoek..\n\nAbrazos...','',0,'GIA=','kjpn2wv5',1,0,'',141,0,0),(44827,9351,6,2,0,'87.218.146.113',1198530633,1,0,1,1,1,1,'','','Julio,\n\nEstás haciéndolo así ?\n\noStatusBar:SetPartText( 3, cZoek )','',0,'GIA=','2375u1xr',1,0,'',2,0,0),(44828,9351,6,141,0,'200.88.94.77',1198531159,1,0,1,1,1,1,'','','Perfecto Amigo !!!!\n\nSolucionado.  Parece que en algun momento no me funciono así, y quería redescubrir la fórmula del agua calentada !\n\nLa forma mas simple siempre es la mejor...\n\nGracias de nuevo, y te deseo que pases unas Felices Navidades junto a tu familia, y que el 2008 sea el Mejor Año del Resto de tu Vida.\n\nAbrazos....','',0,'GIA=','2qsf52s3',1,0,'',141,0,0),(44829,9270,6,78,0,'190.43.184.218',1198532482,1,0,1,1,1,0,'','','QUE SIEMPRE SEA PAZ Y FELICIDAD PARA TODOS LO HOBRES DE BUENA VOLUNTAD, Y EN ESTA FECHA QUE LA FAMILIA ES MAS UNIDA QUE NUNCA...  FELIZ NAVIDAD QUERIDOS FIVEWINERS','',0,'GIA=','2gnpbu8t',1,0,'',78,0,0),(44830,9303,3,239,0,'121.32.18.29',1198543311,1,0,1,1,1,0,'','','kokoo, \n  I do not change font size,so if at high resolution,browse could show more columns and rows.\n  -1 id in resource ,must rewrite with &gt;0  an redefine in your prg .\n\nRegards.\nShuming Wang','',0,'GIA=','1uj1tmsz',1,0,'',239,0,0),(44831,9351,6,2,0,'87.218.146.113',1198544276,1,0,1,1,1,1,'','','Bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','w6bgwihh',1,0,'',2,0,0),(44832,9270,6,348,0,'201.230.133.37',1198555976,1,0,1,1,1,0,'','Re: Felices Fiestas','Amigosss\n\nMe inscribo tambien en todos los Deseosss expresados  antes que llegen las 12 por aqui en Peru.. !!  \n\nUna Feliz Navidad y un Prospero año 2,008 llenos de Salud y con los deseos y anhelos se cumplan !!!\n\n\nA toda esta gran familia  FiveWin  \n\nLubin','',0,'GIA=','haa2rk1g',1,0,'',348,0,0),(44833,9352,3,47,0,'203.144.143.4',1198557056,1,0,1,1,1,0,'','Error Re-build TWbrowse 1.7 of Hernan with xHb.com &amp; FWH','Dear All,\n\nI re-install FW707 &amp; xHB.com Jan\'07.  I try to build Twbrowse 1.7 of Hernan but it\'s got an error.  I used to success to re-compile but I cannot remember.  \n\n[code:2m0n0ba2]\nType&#58; C &gt;&gt;&gt;xhb&#46;exe -o&quot;WBROWSE&#46;c&quot; -m -n -p -q -gc0 -D__HARBOUR__   -I&quot;C&#58;\\fwh\\include&quot; -I&quot;C&#58;\\xHB\\include&quot; -I&quot;C&#58;\\xHB\\include\\w32&quot; &quot;C&#58;\\FWH\\Download\\TWBROWSE\\SOURCE\\WBROWSE&#46;PRG&quot;&lt;&lt;&lt;\n\nxHarbour Compiler build 0&#46;99&#46;70 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nGenerating object output to \'WBROWSE&#46;obj\'&#46;&#46;&#46;\n\nType&#58; C &gt;&gt;&gt;xhb&#46;exe -o&quot;TMULTISE&#46;c&quot; -m -n -p -q -gc0 -D__HARBOUR__   -I&quot;C&#58;\\fwh\\include&quot; -I&quot;C&#58;\\xHB\\include&quot; -I&quot;C&#58;\\xHB\\include\\w32&quot; &quot;C&#58;\\FWH\\Download\\TWBROWSE\\SOURCE\\TMULTISE&#46;PRG&quot;&lt;&lt;&lt;\n\nxHarbour Compiler build 0&#46;99&#46;70 &#40;SimpLex&#41;\nCopyright 1999-2006, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\nGenerating object output to \'TMULTISE&#46;obj\'&#46;&#46;&#46;\n\nType&#58; C &gt;&gt;&gt;xlib&#46;exe  -out&#58;&quot;lib\\twbrw32&#46;lib&quot;  &quot;WBROWSE&#46;obj&quot;  &quot;TMULTISE&#46;obj&quot;  &quot;OBJ\\WBRWLINE&#46;OBJ&quot; &lt;&lt;&lt;\n\nxLIB&#58; fatal error&#58; Invalid machine type in object \'OBJ\\WBRWLINE&#46;OBJ\'&#46;\n\n\nType&#58; C &gt;&gt;&gt;Couldn\'t build&#58; twbrw32&#46;lib&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEPROJECT&lt;&lt;&lt;\nType&#58; C &gt;&gt;&gt;TMAKEPROJECT&#58;REFRESH&lt;&lt;&lt;\nType&#58; N &gt;&gt;&gt;      1278&lt;&lt;&lt;[/code:2m0n0ba2]\n\nRegards,\nDutch','',0,'AIA=','2m0n0ba2',1,0,'',47,0,0),(44834,9270,6,496,0,'200.107.36.176',1198558091,1,0,1,1,1,0,'','','Amigos\n\nNada más que agradecer a esta comunidad que por muchos años me ha apoyado con sus valiosos conocimientos, y espero que sigamos adelante por muchísimos años más, renovándonos, evolucionando y revolucionando.\n\nA todos Que tengan la MEJOR NAVIDAD, y que el 2008 venga cargado de dicha y prosperidad. Levantemos la copa y ¡¡SALUD!!\n\nMarcelo Jingo','',0,'AIA=','37dks9h1',1,0,'',496,0,0),(44835,9318,23,51,0,'80.122.88.242',1198565941,1,0,1,1,1,0,'','','Stefan, wird dieses Grid mit Quellcode verfügbar sein?\nGruß\nOtto','',0,'AIA=','2xupvxnx',1,0,'',51,0,0),(44836,9353,3,51,0,'80.122.88.242',1198569776,1,0,1,1,1,0,'','dbf to array','What is the best way to fill an array from a dbf-file  (a kind of recordset).\n\nThanks in advance\nOtto','',0,'AIA=','2hlzvg1u',1,0,'',51,0,0),(44837,9270,6,9,0,'85.53.73.80',1198574779,1,0,1,1,1,1,'','','Felices Fiestas para toda la comunidad de FW y a todos los viejos clipperos.','',0,'AIA=','3lstedxj',1,0,'',9,0,0),(44838,9354,6,9,0,'85.53.73.80',1198574973,1,0,1,1,1,1,'','ORACLE Y ADO','Llevo varios dias intentando sacar un browse desde una DB-Oracle, pero la cosa se resiste. Consigo sin problemas, abrir la DB, descargar el RecordSet, pero despues el browse sale vacio. Acompaño el código por si alguien me puede dar una ayudita. \n\n#include \"Fivewin.ch\"\nFUNCTION Main()\nlocal cHost := \'127.0.0.1\'\nlocal cUser := \'hr\'\nlocal cPass := \'hr\'\nlocal oRs, oBrw, oDlg\nlocal oCon := TOLEAuto():New(\'ADODB.Connection\')\n// conexion a Oracle\nTRY\n  oCon:Open(\"Provider=\'MSDAORA.1\';\" + ;\n                       \"Data Source= \" + cHost + \";\" + ;\n                       \"User ID=\"      + cUser + \";\" + ;\n                       \"Password=\"     + cPass + \";\" )\nCATCH\n  msgstop(\"Error conexión ADODB\")\n  quit\nEND\n\n// recordset\noRs := TOleAuto():New(\"adodb.recordset\")\noRs:CursorLocation := 2  // adUseServer adUseClient\noRs:LockType       := 3  // adLockOptimistic\noRs:CursorType     := 1  // adOpenKeyset\noRs:Source := \"Select * from regions\"\noRs:ActiveConnection(oCon)\nTRY\n  oRs:Open( )\nCATCH\n  msgstop(\"Error conexión RecordSet\")\n  quit\nEND\n\noRs:MoveFirst()\n\nIF oRs:EOF .or. oRs:BOF\n   msgstop (\"Fichero vacio\")\n   quit\nENDI\n\n\n   DEFINE DIALOG oDlg ;\n     TITLE \"Indice de Datos\" ;\n     FROM 0, 0 TO 25, 99\n\n@ 1, 2 LISTBOX oBrw FIELDS ;\n       oRs:Fields(\"REGION_ID\"):value, ;\n       oRs:Fields(\"REGION_NAME\"):value ;\n       HEADERS \"Número\",\"Región\" ;\n       FIELDSIZES 80,150 ;\n       SIZE 356,135 OF oDlg\n\noBrw:bLogicLen = { || oRs:RecordCount }\noBrw:bGoTop = { || oRs:MoveFirst() }\noBrw:bGoBottom = { || oRs:MoveLast() }\noBrw:bSkip = { | nSkip | Skipper( oRs, nSkip ) }\noBrw:cAlias = \"ARRAY\"\n\nACTIVATE DIALOG oDlg CENTER\n\noRs:CLOSE()\noCon:CLOSE()\n\nRETURN nil\n\n\nSTATIC FUNCTION SKIPPER( oRs, nSkip )\nLOCAL nRec := oRs:AbsolutePosition\n\noRs:Move( nSkip )\n\nIF oRs:EOF; oRs:MoveLast(); ENDIF\nIF oRs:BOF; oRs:MoveFirst(); ENDIF\n\nRETURN oRs:AbsolutePosition - nRec','',0,'AIA=','hek9n5b5',1,0,'',9,0,0),(44839,9355,3,239,0,'218.20.50.216',1198575537,1,0,1,1,1,0,'','How to change combobox var and aitems ?','Hi,\n  As I want  change a combobox  to do a search, according the current xbrowse columns  clicked , a column \'s data type might be c,n,d. that is change the combobox aitems and it\'s type dynamicly .\n\n Thanks !\nShuming Wang','',0,'AIA=','1volvxn3',1,0,'',239,0,0),(44840,9353,3,995,0,'81.11.208.113',1198576772,1,0,1,1,1,0,'','','I am using :\n\n[code:32kgs9jn]\n# include &quot;Common&#46;ch&quot;\n# DEFINE MAAKBLCK&#40;cvar&#41;               &amp;&#40;&quot;&#123;||&quot;+cvar+&quot;&#125;&quot;&#41;\n# DEFINE MAAKINDBLCK&#40;var,indexorde&#41;   var &#58;= &amp;&#40;&quot;&#123;||&quot;+INDEXKEY&#40;indexorde&#41;+&quot;&#125;&quot;&#41;\n*********************************************************************************************************\nPROC ReadDbf&#40;Arr,ArrColBlock,cFilter, uFrom , uTo , cOrder  &#41;\n***************************************************************\n// ArrColBlock may be nil &#40;all fields are selected&#41; , array from fieldnames or Codeblocks\nLOCAL bFilt , IndBlck , HlpArr&#91;0&#93; , el\nLOCAL j\nLOCAL GehOrd\nLOCAL Hlp\nLOCAL aStruct &#58;= DbStruct&#40;&#41; , aFields&#91;0&#93;\nAeval&#40;aStruct , &#123;|x|AADD&#40;aFields,x&#91;1&#93;&#41;&#125;&#41;\nCursorWait&#40;&#41;\nArr &#58;= &#123;&#125;\nIF IsCharacter&#40;cFilter&#41;\n	bFilt &#58;= MAAKBLCK&#40;cFilter&#41;\nELSEIF IsBlock&#40;cFilter&#41;\n	bFilt &#58;= cFilter\nEND\nIF IsNil&#40;ArrColBlock&#41;  &#46;OR&#46; ! IsArray&#40;ArrColBlock&#41;\n	ArrColBlock &#58;= &#123;&#125;\n	FOR j &#58;= 1 TO FCOUNT&#40;&#41;\n		AADD&#40;ArrColBlock,FIELDBLOCK&#40;FIELD&#40;j&#41;&#41;&#41;\n	NEXT\nEND\nFOR EACH el IN ArrColBlock\n	IF IsCharacter&#40;el&#41; &#46;AND&#46; ASCAN&#40;aFields, UPPER&#40;el&#41;&#41; &gt; 0\n		el &#58;= FIELDBLOCK&#40;el&#41;\n	END\n	IF ! IsBlock&#40;el&#41;\n		Msginfo&#40;&quot;Wrong column &quot; + LTRIM&#40;STR&#40;Hb_EnumIndex&#40;&#41;&#41;&#41;\n		RETURN\n	END\nNEXT\nIF &#40;IsCharacter&#40;cOrder&#41; &#46;OR&#46; IsNumber&#40;cOrder&#41;&#41; &#46;AND&#46; OrdSetFocus&#40;&#41; &lt;&gt; cOrder\n	GehOrd &#58;= OrdSetFocus&#40;cOrder&#41;\nEND\nIF IndexOrd&#40;&#41; &gt; 0\n	MAAKINDBLCK&#40;IndBlck,indexord&#40;&#41;&#41;\n	IF ! IsNil&#40;uFrom&#41;\n		IF IsBlock&#40;uFrom&#41;\n			uFrom &#58;= EVAL&#40;uFrom&#41;\n		END\n		DBSEEK&#40;uFrom,&#46;T&#46;&#41;\n	ELSE\n		GO TOP\n	END\n	IF ! IsNil&#40;uTo&#41;\n		IF IsBlock&#40;uTo&#41;\n			uTo &#58;= EVAL&#40;uTo&#41;\n		END\n	END\nELSE\n	IF ! IsNil&#40;uFrom&#41; &#46;AND&#46; IsNumber&#40;uFrom&#41;\n		IndBlck &#58;= &#123;||RECNO&#40;&#41;&#125;\n		IF !&#40; !IsNil&#40;uTo&#41; &#46;AND&#46; IsNumber&#40;uTo&#41; &#41;\n			uTo &#58;= LASTREC&#40;&#41;\n		END\n		DBGOTO&#40;uFrom&#41;\n	ELSE\n		GO TOP\n	END\nEND\nDO WHIL ! EOF&#40;&#41; &#46;AND&#46; IIF&#40;! IsNil&#40;uTo&#41; &#46;AND&#46; IsBlock&#40;IndBlck&#41;, EVAL&#40;indBlck&#41; &lt;= uTo , &#46;T&#46; &#41;\n	IF ! IsBlock&#40;bFilt&#41; &#46;OR&#46; EVAL&#40;bFilt&#41;\n		ASIZE&#40;hlparr,0&#41;\n		FOR EACH el IN ArrColBlock\n			hlp &#58;= EVAL&#40;el&#41;\n			AADD&#40;hlparr , Hlp&#41; //EVAL&#40;el&#58;bData&#41;&#41;\n		NEXT\n		AADD&#40;arr,ACLONE&#40;hlparr&#41;&#41;\n	END\n	SKIP\nENDD\nIF ! IsNil&#40;GehOrd&#41;\n	OrdSetFocus&#40;GehOrd&#41;\nEND\nCursorArrow&#40;&#41;\nRETURN\n\n[/code:32kgs9jn]','',0,'AIA=','32kgs9jn',1,0,'',995,0,0),(44841,9353,3,6,0,'79.3.216.16',1198577575,1,0,1,1,1,1,'','Re: dbf to array','[code:hdnggqzm]FUNCTION MAIN&#40;&#41;\n\n    LOCAL aArray &#58;= &#123;&#125;\n\n    LOCAL i\n\n    USE TEST\n\n    WHILE !EOF&#40;&#41;\n        AADD&#40; aArray, &#123;&#125; &#41;\n\n        FOR i = 1 TO FCOUNT&#40;&#41;\n            AADD&#40; ATAIL&#40; aArray &#41;, FIELDGET&#40; i &#41; &#41;\n        NEXT\n\n        SKIP\n    ENDDO\n\n    CLOSE\n\n    // here you have the filled array\n\n    RETURN NIL[/code:hdnggqzm]\n\nEMG','',0,'AIA=','hdnggqzm',1,0,'',6,0,0),(44842,9353,3,6,0,'79.3.216.16',1198577619,1,0,1,1,1,1,'','Re: dbf to array','But if you really want a sort of recordset then you should create a class.\n\nEMG','',0,'AIA=','3mztdi0k',1,0,'',6,0,0),(44843,9313,3,2,0,'87.218.146.113',1198578054,1,0,1,1,1,1,'','','Vilian,\n\nPlease try again with these libs:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25827-5169496fca.html\">http://www.hotshare.net/file/25827-5169496fca.html</a><!-- m -->','',0,'AIA=','v5mysy5y',1,0,'',2,0,0),(44844,9354,6,2,0,'87.218.146.113',1198578400,1,0,1,1,1,1,'','','Manuel,\n\nEsto quizás pueda servirte:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9286\">http://fivetechsoft.com/forums/viewtopic.php?t=9286</a><!-- m -->','',0,'AIA=','1c8axl3e',1,0,'',2,0,0),(44845,9355,3,2,0,'87.218.146.113',1198578615,1,0,1,1,1,1,'','','Shumming,\n\nTry this:\n\noComboBox:bSetGet = bSETGET( xNewVar )\noComboBox:SetItems( aNewItems )','',0,'AIA=','33t47bxz',1,0,'',2,0,0),(44846,9250,3,47,0,'203.144.143.6',1198578974,1,0,1,1,1,0,'','','Merry X\'mas &amp; Happy New Year.  Wishing you joy of luck and good health throught the year.\n\nDutch','',0,'AIA=','2fowzbx4',1,0,'',47,0,0),(44847,9340,6,2,0,'87.218.146.113',1198579127,1,0,1,1,1,1,'','','Rolando,\n\nEste cambio en samples\\TestRich.prg funciona correctamente aqui:\n\n   REDEFINE BUTTON ID 998 ACTION ( oRich:GoToLine( 10 ), oRich:SetFocus() )','',0,'AIA=','3c1jknxo',1,0,'',2,0,0),(44848,9354,6,9,0,'85.53.73.80',1198579306,1,0,1,1,1,1,'','','Antonio, muchas gracias. Ya veo que hasta el 25/12 estás al pié del cañón. \n\nAl final la solución la he encontrado en el chileno metaldrummer:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7885&amp;highlight=oracle\">http://fivetechsoft.com/forums/viewtopi ... ght=oracle</a><!-- m -->\n\ndonde indica claramente:\n\n[quote=]\nUn detalle muy importante: \nSi no expecifico: \nCódigo: \noDatos:CursorLocation  := adUseClient \nSencillamente oDatos:RecordCount devuelve igual -1. \n[/quote]\n\nEse era el error. Yo estoy ejecutando la aplicación en el mismo equipo donde tengo instalado Oracle y pensaba que tenia que atacarlo como servidor y es como cliente. \n\nDe nuevo, muchas gracias.','',0,'','3b1sta9r',1,0,'',9,0,0),(44849,9354,6,2,0,'87.218.146.113',1198579499,1,0,1,1,1,1,'','','Bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2clo2d9h',1,0,'',2,0,0),(44850,9345,3,2,0,'87.218.146.113',1198582551,1,0,1,1,1,1,'','','This change cancels the editing before giving focus to another control in the application:\n[code:l6xfcb96]\nMETHOD Edit&#40; nKey &#41; CLASS TXBrwColumn\n&#46;&#46;&#46;\n   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; | oGet, hWndFocus | EditGetLostFocus&#40; oGet, hWndFocus, &#58;&#58;oBrw, &#58;&#58;oEditGet &#41; &#125;\n&#46;&#46;&#46;\n[/code:l6xfcb96]\nnew static function inside Class TXBrowse:\n[code:l6xfcb96]\nstatic function EditGetLostFocus&#40; oGet, hWndFocus, oBrw, oEditGet &#41;\n\n   // focus goes to another control in the same application\n   if oWndFromHwnd&#40; hWndFocus &#41; != nil\n      oBrw&#58;CancelEdit&#40;&#41;               \n      return nil\n   endif   \n\n   // focus goes to another application\n   if GetWindowThreadProcessId&#40; hWndFocus &#41; != GetWindowThreadProcessId&#40; oBrw&#58;hWnd &#41;\n      oBrw&#58;CancelEdit&#40;&#41;\n      return nil\n   endif   \n      \n   if oEditGet != nil &#46;and&#46; ! oEditGet&#58;lValidating\n      oBrw&#58;PostEdit&#40;&#41;\n   endif   \n\nreturn nil\n[/code:l6xfcb96]','',0,'AIA=','l6xfcb96',1,0,'',2,0,0),(44851,9345,3,2,0,'87.218.146.113',1198582696,1,0,1,1,1,1,'','','A new mallorca.exe build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25841-7828226dca.html\">http://www.hotshare.net/file/25841-7828226dca.html</a><!-- m -->\n\nPlease try to break it, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','f9vkfsxx',1,0,'',2,0,0),(44852,9313,3,1231,0,'83.144.114.249',1198582781,1,0,1,1,1,1,'','','Now instead GPF i got error 9015 : In hb_vmDo() required item type \'Symbol\'\n\nmy code:\n   USE ROBERT VIA \"ADORDD\" TABLE \"L065\" MYSQL ;\n      FROM \"127.0.0.1\" USER \"R\" PASSWORD \"R\"\n\n   Browse()\n\n   USE','',0,'AIA=','2hmp5q0o',1,0,'',1231,0,0),(44853,9313,3,2,0,'87.218.146.113',1198583744,1,0,1,1,1,1,'','','Robert,\n\nHave you used both libraries from the ZIP file ?\n\nIf yes, then it seems as there is a problem with xharbour usrrdd.lib and adordd.lib (as both files have been built from current xharbour cvs).\n\nI appreciate if you or Vilian could email to <!-- e --><a href=\"mailto:miguelangel@marchuet.net\">miguelangel@marchuet.net</a><!-- e --> as he is the maintainer of the adordd in xHarbour, and ask him if he could check it. Thanks,','',0,'AIA=','1d385531',1,0,'',2,0,0),(44854,9345,3,868,0,'123.236.134.2',1198585190,1,0,1,1,1,1,'','','I have tested the exe provided by you.  I have also rebuilt the samples adopting your changes.\n\nBoth are now working fine. I continue my tests.\n\nOnly one thing I dont understand.  In the exe provided by you the valid block is executed only once, but with the exe i built it is executed twice.  I am trying to figure out the reason.','',0,'AIA=','m3snv9p8',1,0,'',868,0,0),(44855,9345,3,868,0,'123.236.134.2',1198587660,1,0,1,1,1,1,'','','I have changed the function Valida in mallocra.prg as below\n[code:ewn46o3u]\nSTATIC FUNCTION Valida&#40; oGet &#41;\n\n   local nnew  &#58;= 0\n\n    IF oGet&#58;Value&#40;&#41; &gt; 6\n       MsgAlert&#40; &quot;Must be lower than 7&quot; &#41;\n       if msgget&#40;\'NEW VALUE\',\'Enter number between 1 and 6\',@nnew&#41;\n          if nnew &gt; 0 &#46;and&#46; nnew &lt; 7\n             oGet&#58;varput&#40; nnew &#41;\n             oget&#58;refresh&#40;&#41;\n             return &#46;t&#46;\n          else\n             return &#46;f&#46;\n          endif\n       endif\n       return &#46;F&#46;\n    ENDIF\n\nRETURN &#46;T&#46;\n[/code:ewn46o3u]\nIf i enter a valid value, ( example 6 ) it is not getting assigned.','',0,'AIA=','ewn46o3u',1,0,'',868,0,0),(44856,9313,3,267,0,'201.9.185.94',1198596113,1,0,1,1,1,1,'','','Antonio,\n\nThe problem persists exactly with the new archives. I sended e-mail for <!-- e --><a href=\"mailto:miguelangel@marchuet.net\">miguelangel@marchuet.net</a><!-- e -->','',0,'AIA=','309qll67',1,0,'',267,0,0),(44857,9313,3,2,0,'87.218.146.113',1198597037,1,0,1,1,1,1,'','','Vilian,\n\nThanks!','',0,'AIA=','33okgr0b',1,0,'',2,0,0),(44858,9345,3,2,0,'87.218.146.113',1198597213,1,0,1,1,1,1,'','','Nageswararao,\n\nPlease add this line and try it again:\n\n             oGet:varput( nnew ) \n             oGet:refresh() \n[color=red:lt4vd4w6]MsgInfo( oGet:VarGet() )[/color:lt4vd4w6]','',0,'Ag==','lt4vd4w6',1,0,'',2,0,0),(44859,9345,3,868,0,'219.64.121.60',1198597773,1,0,1,1,1,1,'','','msginfo( oget:varget() ) shows the entered value of 6.  Also at that moment I see 6 in the edit cell in the browse also ( we refreshed the get just before).\n\nBut after the valid function returns, the cell in xbrowse is repainted with orginal value.','',0,'Ag==','3u71vxp5',1,0,'',868,0,0),(44860,9345,3,2,0,'87.218.146.113',1198599396,1,0,1,1,1,1,'','','Nageswararao,\n\nThat behavior is fine because the real assignment is done from here:\n\noBrw:aCols[1]:bOnPostEdit  := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,1] := xVal,) } \n\nThe VALID should not try to modify the edited value. It just jave to return .T. or .F., and a warning for the user, if needed','',0,'','1gkiajyc',1,0,'',2,0,0),(44861,9345,3,2,0,'87.218.146.113',1198599518,1,0,1,1,1,1,'','','In case that you need to do the assignment from the VALID, then you could try:\n\noBrw:aCols[1]:bOnPostEdit := { || nil }\n\nBut thats not the recommended use','',0,'','wk4a94d8',1,0,'',2,0,0),(44862,9345,3,868,0,'219.64.121.60',1198600023,1,0,1,1,1,1,'','','More Important problem. After using EditGetLostFocus function, even entering valid values are not getting assigned.  The problem is there.','',0,'','1r3jvy5x',1,0,'',868,0,0),(44863,9345,3,868,0,'219.64.121.60',1198600649,1,0,1,1,1,1,'','','I reverted to the previous code.  \n\nnow \n1) valid values entered are assigned.\n(2) values assigned thro oget:varput() in valid block are assigned and updated IF and ONLY IF the valid function does not open a new dialog, but assigns silently.  for example this assignment works\n[code:11su2zk1]\nif oget&#58;varget&#40;&#41; &gt; 6\n   oget&#58;vaput&#40;6&#41;\n   oget&#58;refresh&#40;&#41;\nendif\nreturn &#46;t&#46;\n[/code:11su2zk1]\nthis assignment works and post edit updates the data.\n(3) if valid function opens a dialog the value does not get assigned','',0,'AIA=','11su2zk1',1,0,'',868,0,0),(44864,9356,3,51,0,'80.122.88.242',1198603600,1,0,1,1,1,0,'','Could Visual Studio Shell be an IDE for FIVEWIN?','Visual Studio Shell provides a core IDE for users to develop their own custom programming language or development tools, so \"it doesn\'t provide languages or compilers, or a lot of the content of Visual Studio,\" Crim said. It will be available in two modes, integrated and isolated.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.regdeveloper.co.uk/2007/06/09/vs_shell_eclipse/\">http://www.regdeveloper.co.uk/2007/06/0 ... l_eclipse/</a><!-- m -->','',0,'AIA=','3po418ho',1,0,'',51,0,0),(44865,9270,6,533,0,'83.46.207.92',1198607095,1,0,1,1,1,0,'','','Gracias por todo, feliz navidad y prospero año 2008. . . <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','26rbt83b',1,0,'',533,0,0),(44866,9356,3,2,0,'87.218.146.113',1198612070,1,0,1,1,1,1,'','','Otto,\n\nIt sounds very interesting. Thanks for the info.\n\nNow we just need to know when it will be available to start reviewing its SDK.','',0,'AIA=','hkxnal59',1,0,'',2,0,0),(44867,9356,3,51,0,'80.122.88.242',1198612207,1,0,1,1,1,0,'','','I think the downloads are working.\nRegards,\nOtto','',0,'AIA=','5f2rirlt',1,0,'',51,0,0),(44868,9356,3,2,0,'87.218.146.113',1198612441,1,0,1,1,1,1,'','','It seems as it is already available <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/es-es/vstudio/bb510103(en-us\">http://msdn2.microsoft.com/es-es/vstudio/bb510103(en-us</a><!-- m -->).aspx\n<!-- m --><a class=\"postlink\" href=\"http://blogs.msdn.com/vsxteam/\">http://blogs.msdn.com/vsxteam/</a><!-- m -->','',0,'AIA=','20l40uu4',1,0,'',2,0,0),(44869,9356,3,2,0,'87.218.146.113',1198613489,1,0,1,1,1,1,'','','Visual Studio 2008 SDK Version 1.0:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=30402623-93ca-479a-867c-04dc45164f5b&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->','',0,'AIA=','1ibf4v2u',1,0,'',2,0,0),(44870,9356,3,2,0,'87.218.146.113',1198614613,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://video.msn.com/video.aspx?vid=ea9cee2c-6a47-4410-8f2c-2fac0731b8a8\">http://video.msn.com/video.aspx?vid=ea9 ... ac0731b8a8</a><!-- m -->','',0,'AIA=','rwhwi5ku',1,0,'',2,0,0),(44871,9356,3,2,0,'87.218.146.113',1198615201,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://msdn.com/vsx\">http://msdn.com/vsx</a><!-- m -->','',0,'AIA=','33q0bblv',1,0,'',2,0,0),(44872,9356,3,35,0,'65.188.6.143',1198617746,1,0,1,1,1,0,'','','Very interesting .. just curious what the Windows forms designer does .. someone will have to load it up and let us know .. Can it create .rc files ??\n\nRick Lipkin','',0,'AIA=','5l6t78w9',1,0,'',35,0,0),(44873,9356,3,2,0,'87.218.146.113',1198618158,1,0,1,1,1,1,'','','Rick,\n\nI have just downloaded the \"Visual Studio 2008 SDK Version 1.0\" but it refuses to install unless I have Visual Studio 2008 installed (don\'t know what exact version needs to be installed). \n\nSo I have downloaded the \"Microsoft Visual Studio 2008 Shell (isolated mode) Redistributable Package\" and actually I am installing it to see if those two tools are enough to start testing it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','qke1zrve',1,0,'',2,0,0),(44874,9356,3,53,0,'189.139.20.240',1198619586,1,0,1,1,1,1,'','','Antonio:\n\nPerhaps this can help you\n\n[quote:3uo1tbde]Get Started\nThe Visual Studio 2008 Shell Preview is now available. To begin developing and testing your own Shell instance, download Visual Studio 2008 Beta 2 and the Visual Studio 2008 SDK August 2007 CTP. The SDK contains everything you need to build packages for the Visual Studio Shell, as well as basic documentation to help you get started. For more information on features, customization points, and how-to resources, read the Shell details page.\n[/quote:3uo1tbde]\n\nRegards','',0,'gA==','3uo1tbde',1,0,'',53,0,0),(44875,9356,3,2,0,'87.218.146.113',1198619810,1,0,1,1,1,1,'','','Armando,\n\nThanks, but those betas are already finished.\n\nIt was enough to install the \"Microsoft Visual Studio 2008 Shell (isolated mode) Redistributable Package\" and now the \"Visual Studio 2008 SDK Version 1.0\" is properly installing.\n\nLets see if I can post some screenshots <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','p0ax2dsv',1,0,'',2,0,0),(44876,9356,3,2,0,'87.218.146.113',1198623637,1,0,1,1,1,1,'','','Could someone download and install \"Microsoft Visual Studio 2008 Shell (isolated mode) Redistributable Package\" from:\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyId=ACA38719-F449-4937-9BAC-45A9F8A73822&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\nI have tried it in Vista and in XP and in both I get an \"Invalid licence data\" when I try to finally run it. Don\'t know how to get rid of this error...\n\nAlready tried <!-- m --><a class=\"postlink\" href=\"http://blogs.msdn.com/astebner/archive/2005/11/14/492765.aspx\">http://blogs.msdn.com/astebner/archive/ ... 92765.aspx</a><!-- m -->\nwithout luck','',0,'gA==','1exm8n0l',1,0,'',2,0,0),(44877,9345,3,58,0,'84.149.84.95',1198624923,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2kcs8bdp]A new mallorca.exe build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25841-7828226dca.html\">http://www.hotshare.net/file/25841-7828226dca.html</a><!-- m -->\n\nPlease try to break it, thanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2kcs8bdp]\n\nAntonio,\n\nwith this exe values &gt; 6 are correctly refused.\nBut i can not enter valid data.\n\nRegards,\nDetlef','',0,'gA==','2kcs8bdp',1,0,'',58,0,0),(44878,9355,3,239,0,'218.20.50.216',1198628741,1,0,1,1,1,0,'','','Antonio,\n  Thank you !\nShuming Wang','',0,'gA==','1skshtj2',1,0,'',239,0,0),(44879,9356,3,2,0,'87.218.146.113',1198632185,1,0,1,1,1,1,'','','I have not been able to solve the \"Invalid licence data\" error yet, but I implemented a little \"hack\" using this FiveWin code:\n[code:3q645tfx]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local hWnd &#58;= FindWindow&#40; 0, &quot;Microsoft Visual Studio&quot; &#41;\n   \n   DEFINE WINDOW oWnd\n\n   EnableWindow&#40; SetParent&#40; hWnd, oWnd&#58;hWnd &#41;, &#46;T&#46; &#41;\n   \n   EnableWindow&#40; FindWindow&#40; 0, &quot;Start Page - Microsoft Visual Studio &#40;Administrator&#41;&quot; &#41;, &#46;T&#46; &#41;\n      \n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:3q645tfx]\nSo I have been able to bypass the error and start using the free distributable IDE. Here are the first screenshots of the resources editor:\n[url=http&#58;//imageshack&#46;us:3q645tfx][img:3q645tfx]http&#58;//img101&#46;imageshack&#46;us/img101/2461/screen1cw8&#46;png[/img:3q645tfx][/url:3q645tfx]','',0,'GIA=','3q645tfx',1,0,'',2,0,0),(44880,9356,3,2,0,'87.218.146.113',1198633899,1,0,1,1,1,1,'','','With this little FWH app, the \"license\" error is totally bypassed. Hopefully we can find a better solution <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n[code:2nfvjhm3]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define GW_CHILD        5\n#define GW_HWNDNEXT     2\n\nfunction Main&#40;&#41;\n\n   local hWnd1 &#58;= FindWindow&#40; 0, &quot;Microsoft Visual Studio&quot; &#41;, hWnd2, hCtrl\n   \n   DEFINE WINDOW oWnd\n\n   EnableWindow&#40; SetParent&#40; hWnd1, oWnd&#58;hWnd &#41;, &#46;T&#46; &#41;\n   \n   EnableWindow&#40; hWnd2 &#58;= FindWindow&#40; 0, &quot;Start Page - Microsoft Visual Studio &#40;Administrator&#41;&quot; &#41;, &#46;T&#46; &#41;\n   \n   hCtrl &#58;= GetWindow&#40; hWnd2, GW_CHILD &#41;\n   while hCtrl != 0\n      EnableWindow&#40; hCtrl, &#46;T&#46; &#41;\n      hCtrl = GetWindow&#40; hCtrl, GW_HWNDNEXT	&#41;\n   end   \n      \n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:2nfvjhm3]','',0,'AIA=','2nfvjhm3',1,0,'',2,0,0),(44881,9356,3,2,0,'87.218.146.113',1198635292,1,0,1,1,1,1,'','','It seems as RC, RES and RCT (this one looks like an extended RES) are supported:\n[url=http&#58;//imageshack&#46;us:br8lt21c][img:br8lt21c]http&#58;//img520&#46;imageshack&#46;us/img520/6767/resqu2&#46;png[/img:br8lt21c][/url:br8lt21c]','',0,'GA==','br8lt21c',1,0,'',2,0,0),(44882,9269,6,1201,0,'190.78.120.205',1198636506,1,0,1,1,1,0,'','','Estimado Colega:\n\nYa te envié el programa (la clase tget modificada), Avísame si te llegó.\n\n\nAngel','',0,'GA==','1khnz2dw',1,0,'',1201,0,0),(44883,9345,3,868,0,'219.64.121.60',1198643127,1,0,1,1,1,1,'','','Mr Antonio\n\n[quote:1t86adqf]\nThat behavior is fine because the real assignment is done from here:\n\noBrw:aCols[1]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,1] := xVal,) }\n\nThe VALID should not try to modify the edited value. It just jave to return .T. or .F., and a warning for the user, if needed\n[/quote:1t86adqf]\nI may please be permitted to disagree. Valid clause can not modify the orginal value, but can modify the Get variable through VarPut. The postedit method calls the bOnPostEdit with whatever is the varget() ( in other words eval( oget:bsetget) ) at that time. So if we modify the value in valid clause, PostEdit method calls bOnPostEdit block with that assigned value. \n\nAlso it is not uncommon that Valid clauses open look up tables and help the user to select valid values.\n\nWhat we need to do is to handle the Editget\'s lost focus block appropriately. Hope you will appreciate my point.','',0,'gA==','1t86adqf',1,0,'',868,0,0),(44884,9345,3,868,0,'219.64.121.60',1198644462,1,0,1,1,1,1,'','','This is the latest CancelEdit method\n[code:5ucmck4s]\nMETHOD CancelEdit&#40;&#41; CLASS TXBrowse\n\n   local oCol, nFor, nlen\n\n   if ! &#58;&#58;lEditMode\n      return nil\n   endif\n\n   nLen &#58;= Len&#40; &#58;&#58;aCols &#41;\n\n   for nFor &#58;= 1 to nLen\n      oCol &#58;= &#58;&#58;aCols&#91; nFor &#93;\n      if oCol&#58;oEditGet != nil\n         oCol&#58;oEditGet&#58;VarPut&#40; Eval&#40; oCol&#58;bEditValue &#41; &#41;\n         oCol&#58;oEditGet&#58;bValid = nil\n         oCol&#58;PostEdit&#40;&#41;\n      endif\n   next\n\n   &#58;&#58;lEditMode &#58;= &#46;f&#46;\n\nreturn nil \n[/code:5ucmck4s]\nSuggestion for consideration. \nWhy should CancelEdit method call PostEdit again? Can we not destroy the Get object here itself and refresh the browse?\n[code:5ucmck4s]\nMETHOD CancelEdit&#40;&#41; CLASS TXBrowse\n\n   local oCol, nFor, nlen\n\n   if ! &#58;&#58;lEditMode\n      return nil\n   endif\n\n   nLen &#58;= Len&#40; &#58;&#58;aCols &#41;\n\n   for nFor &#58;= 1 to nLen\n      oCol &#58;= &#58;&#58;aCols&#91; nFor &#93;\n      if oCol&#58;oEditGet != nil\n          oCol&#58;oEditGet&#58;End&#40;&#41;\n          oCol&#58;oEditGet &#58;= nil\n      endif\n   next\n\n   &#58;&#58;lEditMode &#58;= &#46;f&#46;\n   &#58;&#58;DrawLine&#40;&#46;t&#46;&#41;\nreturn nil \n[/code:5ucmck4s]','',0,'AIA=','5ucmck4s',1,0,'',868,0,0),(44885,9345,3,868,0,'219.64.121.60',1198655497,1,0,1,1,1,1,'','','The problem with EditGetLostFocus(...) is that (oWndFromHwnd( hWndFocus ) != nil) is True even when Get is normally edited and exited with Enter Key (even with valid data).  So, if (oWndFromHwnd( hWndFocus ) != nil) is Ture, we can not assume that the get object lost focus only due to navigating to other control in the same window.','',0,'AIA=','uxx00v2o',1,0,'',868,0,0),(44886,9345,3,2,0,'87.218.146.113',1198656504,1,0,1,1,1,1,'','','Detlef,\n\nThis mallorca new build properly edits:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25973-9932677229.html\">http://www.hotshare.net/file/25973-9932677229.html</a><!-- m -->\n\nPlease try to break it, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2i2q00tt',1,0,'',2,0,0),(44887,9345,3,2,0,'87.218.146.113',1198656677,1,0,1,1,1,1,'','','This change fixes the non assignment error reported by Detlef. In METHOD Edit( nKey ) CLASS TXBrwColumn:\n[code:17icg2v2]\n   &#58;&#58;oEditGet&#58;bLostFocus &#58;= &#123; | oGet, hWndFocus | EditGetLostFocus&#40; oGet, hWndFocus, &#58;&#58;oBrw, &#58;&#58;oEditGet, Self &#41; &#125;\n[/code:17icg2v2]\n[code:17icg2v2]\nstatic function EditGetLostFocus&#40; oGet, hWndFocus, oBrw, oEditGet, oCol &#41;\n\n   local oWnd\n\n   // focus goes to another control in the same application, and not to the browse\n   if &#40; oWnd &#58;= oWndFromHwnd&#40; hWndFocus &#41; &#41; != nil &#46;and&#46; ! &#40; oWnd == oBrw &#41;\n      oBrw&#58;CancelEdit&#40;&#41;               \n      return nil\n   endif   \n\n   // focus goes to another application\n   if GetWindowThreadProcessId&#40; hWndFocus &#41; != GetWindowThreadProcessId&#40; oBrw&#58;hWnd &#41;\n      oBrw&#58;CancelEdit&#40;&#41;\n      return nil\n   endif   \n      \n   if oEditGet != nil &#46;and&#46; ! oEditGet&#58;lValidating\n      oCol&#58;PostEdit&#40;&#41;\n   endif   \n\nreturn nil\n[/code:17icg2v2]','',0,'AIA=','17icg2v2',1,0,'',2,0,0),(44888,9345,3,2,0,'87.218.146.113',1198656849,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt;\nThe problem with EditGetLostFocus(...) is that (oWndFromHwnd( hWndFocus ) != nil) is True even when Get is normally edited and exited with Enter Key (even with valid data). So, if (oWndFromHwnd( hWndFocus ) != nil) is Ture, we can not assume that the get object lost focus only due to navigating to other control in the same window.\n&gt;\n\nThis is fixed in the previous posted source code change, thanks','',0,'AIA=','1gn8w072',1,0,'',2,0,0),(44889,9345,3,2,0,'87.218.146.113',1198657111,1,0,1,1,1,1,'','','Nageswararao,\n\nPlease test again your mallorca changes with the new posted code, thanks. I guess the assignment from the VALID will work this time','',0,'AIA=','30duzd2t',1,0,'',2,0,0),(44890,9345,3,2,0,'87.218.146.113',1198657391,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; Why should CancelEdit method call PostEdit again ?\n\nFirst we need to decide if a PostEdit() should be called if a CancelEdit() is issued: \n\nIf we agree that a PostEdit() means \"to do after an edit process, even if it is cancelled\" then it is ok.\n\nIf we agree that PostEdit() should be called only if the edit process has not been canceled, then it should not be called from the CancelEdit().\n\nFinally, the CancelEdit() is only calling PostEdit() once. Unless I am missing something <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3v1wz2gg',1,0,'',2,0,0),(44891,9313,3,2,0,'87.218.146.113',1198658022,1,0,1,1,1,1,'','','Vilian,\n\nPlease download xHarbour from <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w --> and try your test again, thanks','',0,'AIA=','1xwn5gpj',1,0,'',2,0,0),(44892,9269,6,2,0,'87.218.146.113',1198658996,1,0,1,1,1,1,'','','Angel,\n\nHemos recibido y revisado tu PRG. Efectivamente se estaba evaluando bPostKey desde KeyDown() y desde KeyChar(), y solo debía hacerse desde KeyChar(). Gracias,\n\nEn cuanto a tus otros cambios, no nos parecen correctos. Puede ser que a ti te funcione bien, pero has eliminado código que debe permanecer en la Clase.\n\nCuando dejamos código comentado en la clase, por un tiempo, es para ver si se produce algún tipo de efecto colateral en los cambios recientes y así saber exactamente a que se corresponden los nuevos cambios. Si durante un tiempo no se reportan errores, entonces el código comentado se elimina definitivamente.','',0,'AIA=','2zvpqhvj',1,0,'',2,0,0),(44893,9345,3,868,0,'219.64.121.60',1198660201,1,0,1,1,1,1,'','','Valid values are getting assigned. .. ok\n\nClicking on other cells, or other controls or other applications exits the get and restores original values. .. ok\n\nif we click on a button on the buttonbar, the edit is cancelled and browse line is refrehsed with original values, but the button action is not executed. .. not ok\n\nif a value is assinged in the valid block, without opening any other dialog, the new value is assigned. .. ok\n\nBut if a valid block opens a new dialog any assignment is ignored and original value is restored.  .. not ok\n\n I think while oGet:lvalidating is true, if the focus goes to any other control or application, the edit should not be cancelled.','',0,'AIA=','1eoiyzig',1,0,'',868,0,0),(44894,9345,3,2,0,'87.218.146.113',1198662112,1,0,1,1,1,1,'','','&gt;\nif we click on a button on the buttonbar, the edit is cancelled and browse line is refrehsed with original values, but the button action is not executed. .. not ok \n&gt;\n\nFixed. In function EditGetLostFocus():\n[code:3e5n6gfx]\n   if &#40; oWnd &#58;= oWndFromHwnd&#40; hWndFocus &#41; &#41; != nil &#46;and&#46; ! &#40; oWnd == oBrw &#41;\n      oBrw&#58;CancelEdit&#40;&#41;\n      SetFocus&#40; hWndFocus &#41;      // New !!!          \n      return nil\n   endif   \n[/code:3e5n6gfx]\n\nA new mallorca.exe build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25986-539597049a.html\">http://www.hotshare.net/file/25986-539597049a.html</a><!-- m -->','',0,'AIA=','3e5n6gfx',1,0,'',2,0,0),(44895,9345,3,868,0,'219.64.121.60',1198666551,1,0,1,1,1,1,'','','Yes. Other control actions are triggered now.\n\nStill the issue of the behavior when Valid Block opens any new dialog remains.\n\nWhile we continue tests with normal edit gets, we may now need to look into issues of other Edittypes,  Listbox, useredit, get + listbox etc.\n\nMay I modify the mallorca.prg to add a third column with \'AA\'.\'BB\'.\'CC\' etc and edit it with a listbox?','',0,'AIA=','ce38t75x',1,0,'',868,0,0),(44896,9313,3,1231,0,'83.144.114.249',1198666658,1,0,1,1,1,1,'','','When I downloaded xHarbour compiller attached to FWH 7.12 i got build 1.1.0\nVersion downloaded from <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w --> has build number 1.0.0\n\nI\'m going to test it today.','',0,'AIA=','3plt6u7x',1,0,'',1231,0,0),(44897,9345,3,2,0,'87.218.146.113',1198666673,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt;\nStill the issue of the behavior when Valid Block opens any new dialog remains. \n&gt;\n\nWe are working on that issue\n\n&gt;\nWhile we continue tests with normal edit gets, we may now need to look into issues of other Edittypes, Listbox, useredit, get + listbox etc. \n\nMay I modify the mallorca.prg to add a third column with \'AA\'.\'BB\'.\'CC\' etc and edit it with a listbox?\n&gt;\n\nYes, please. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ielz8fs',1,0,'',2,0,0),(44898,9313,3,2,0,'87.218.146.113',1198666785,1,0,1,1,1,1,'','','Robert,\n\n&gt;\nWhen I downloaded xHarbour compiller attached to FWH 7.12 i got build 1.1.0. Version downloaded from <!-- w --><a class=\"postlink\" href=\"http://www.xharbour.org\">www.xharbour.org</a><!-- w --> has build number 1.0.0 \n&gt;\n\nYes, thats why we think its an error in 1.1.0\n\n&gt; I\'m going to test it today.\n\nThank you!','',0,'AIA=','23qr96i3',1,0,'',2,0,0),(44899,9345,3,868,0,'219.64.121.60',1198667336,1,0,1,1,1,1,'','','Mr Antonio\n\nCan you kindly make these modifications in your copy of the program?\n[code:24z5ofob]\n   FOR i&#58;=1 TO 6\n      AAdd&#40;aLin,&#123;i,\'Descripción \'+Str&#40;i&#41;, replicate&#40; chr&#40;64+i&#41;, 2 &#41;&#125;&#41;\n   NEXT\n[/code:24z5ofob]\n\nin the column definitions \n\n[code:24z5ofob]\n   oBrw&#58;aCols&#91;3&#93;&#58;cHeader      &#58;= \'Cd\'\n   oBrw&#58;aCols&#91;3&#93;&#58;bClrEdit     &#58;= oBrw&#58;bClrStd\n   oBrw&#58;aCols&#91;3&#93;&#58;bOnPostEdit  &#58;= &#123; | oCol, xVal, nKey | aLin&#91; oBrw&#58;nArrayAt,3&#93; &#58;= xVal &#125;\n   oBrw&#58;aCols&#91;3&#93;&#58;nEditType    &#58;= EDIT_LISTBOX\n	oBrw&#58;aCols&#91;3&#93;&#58;aEditListBound&#58;= ;\n	oBrw&#58;aCols&#91;3&#93;&#58;aEditListTxt	&#58;= &#123; \'AA\', \'BB\', \'CC\', \'DD\', \'EE\', \'FF\', \'GG\', \'HH\' &#125;\n[/code:24z5ofob]\n\nNow how should a user abort the edit and retain the original values, after naviging through the list box with arrow keys?','',0,'AIA=','24z5ofob',1,0,'',868,0,0),(44900,9357,3,3,0,'80.81.159.19',1198667432,1,0,1,1,1,1,'','Xbrowse mousewheel and keyboard','Hello\n\nWhen appending records to a xbrowse, i have very bad display (lines are displayed twice) if i use mousewheel or keyboard (keydown)\n\nIf i use the mouse, everything shows normal \n\nAnyone else having this kind of problems ?\n\nTia\n\nRichard','',0,'AIA=','6kpyp79t',1,0,'',3,0,0),(44901,9313,3,1231,0,'83.144.114.249',1198667923,1,0,1,1,1,1,'','','I use ADO LIBs from Antonio post\n.....\nPlease try again with these libs:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25827-5169496fca.html\">http://www.hotshare.net/file/25827-5169496fca.html</a><!-- m -->\n.....\n\n1.0.0 = GPF\n1.1.0 = In hb_vmDo() required item type \'Symbol\'','',0,'AIA=','1dz5p0mh',1,0,'',1231,0,0),(44902,9345,3,2,0,'87.218.146.113',1198667931,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; Still the issue of the behavior when Valid Block opens any new dialog remains\n\nFixed <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->  These changes are required:\n[code:5gq1x1fu]\n&#58;&#58;oEditGet&#58;bValid &#58;= &#123; | oGet, lRet | oGet&#58;lValidating &#58;= &#46;T&#46;, lRet &#58;= Eval&#40; &#58;&#58;bEditValid, oGet, Self &#41;, oGet&#58;lValidating &#58;= &#46;F&#46;, If&#40; ! lRet, oGet&#58;SetFocus&#40;&#41;,&#41;, lRet &#125;\n&#46;&#46;&#46;\nstatic function EditGetLostFocus&#40;&#46;&#46;&#46;&#41;\n   &#46;&#46;&#46;\n   if &#40; oWnd &#58;= oWndFromHwnd&#40; hWndFocus &#41; &#41; != nil &#46;and&#46; ! &#40; oWnd == oBrw &#41; &#46;and&#46; ;\n      Upper&#40; oWnd&#58;ClassName&#40;&#41; &#41; != &quot;TGET&quot;  // new!!!\n      oBrw&#58;CancelEdit&#40;&#41;\n      SetFocus&#40; hWndFocus &#41;               \n      return nil\n   endif   \n   &#46;&#46;&#46;\n[/code:5gq1x1fu]\nThe above \"TGET\" could be extended with the allowed controls to get focus from a VALID process.\nIn mallorca.prg these changes are required:\n[code:5gq1x1fu]\noBrw&#58;aCols&#91;1&#93;&#58;bEditValid   &#58;= &#123; | oGet, oCol | Valida&#40; oGet, oCol &#41; &#125;\n&#46;&#46;&#46;\nSTATIC FUNCTION Valida&#40; oGet, oCol &#41; \n    \n   local nVal &#58;= 0 \n\n   if oGet&#58;Value&#40;&#41; &gt; 6 \n      MsgAlert&#40; &quot;Must be lower than 7&quot; &#41; \n      if MsgGet&#40; &quot;New value&quot;, &quot;Enter number between 1 and 6&quot;, @nVal &#41; \n         if nVal &gt; 0 &#46;and&#46; nVal &lt; 7 \n            oGet&#58;VarPut&#40; nVal &#41; \n            oCol&#58;PostEdit&#40;&#41;\n            return &#46;T&#46; \n          endif\n      endif    \n      return &#46;F&#46; \n    endif \n\nreturn &#46;T&#46;\n[/code:5gq1x1fu]\nA new mallorca.exe build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/25998-4690817f9b.html\">http://www.hotshare.net/file/25998-4690817f9b.html</a><!-- m -->','',0,'AIA=','5gq1x1fu',1,0,'',2,0,0),(44903,9313,3,2,0,'87.218.146.113',1198668166,1,0,1,1,1,1,'','','Robert,\n\nPlease try with all the libs from xharbour.org (including usrrdd.lib and adordd.lib). \n\nPlease don\'t mix my posted libraries with the xHarbour build distributed with FWH ones. Thanks,','',0,'AIA=','c6wt78zx',1,0,'',2,0,0),(44904,9357,3,2,0,'87.218.146.113',1198668440,1,0,1,1,1,1,'','','Richard,\n\nCould you please post a little sample to reproduce the error ? Thanks!','',0,'AIA=','3fpx1z4u',1,0,'',2,0,0),(44905,9313,3,1231,0,'83.144.114.249',1198668667,1,0,1,1,1,1,'','','xHarbour 1.0.0\n\ncode:\n   USE ROBERT ALIAS \"PAC\" VIA \"ADORDD\" TABLE \"L065\" MYSQL ;\n      FROM \"127.0.0.1\" USER \"R\" PASSWORD \"R\"\n\nerror:\n\nApplication\n===========\n   Path and name: C:\\FWH_MYAP\\Maraboot\\F_MAIN.exe (32 bits)\n   Size: 3,414,016 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 26.12.2007, 12:25:54\n   Error description: Error ADODB.Recordset/6  DISP_E_UNKNOWNNAME: OPEN\n   Args:\n     [   1] = C   L065\n     [   2] = O   Object\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: adordd.prg =&gt; ADO_OPEN(264)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: F_PACJEN.prg =&gt; GET_PACJENT(26)\n   Called from: F_MENU.prg =&gt; (b)BUILDMENU(520)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: F_MENU.prg =&gt; MENU_GLOWNE(155)\n   Called from: F_MAIN.prg =&gt; MYAPP(131)','',0,'','37ifzcue',1,0,'',1231,0,0),(44906,9313,3,1231,0,'83.144.114.249',1198668994,1,0,1,1,1,1,'','','1.1.0 - GPF','',0,'','2nas8gia',1,0,'',1231,0,0),(44907,9313,3,2,0,'87.218.146.113',1198669009,1,0,1,1,1,1,'','','Robert,\n\nThanks! Well, the GPF is gone with 1.0.0. That confirms our idea that the 1.1.0 has a problem with the usrrdd.lib\n\nPlease try it again but don\'t link adordd.lib. Instead include adordd.prg at the bottom of the tested PRG (because adordd.prg is different from the one that we provide). Thanks!','',0,'','2ey6ghxb',1,0,'',2,0,0),(44908,9345,3,2,0,'87.218.146.113',1198669324,1,0,1,1,1,1,'','','Nageswararao,\n\nThis first line seems wrong:\n\n   oBrw:aCols[3]:aEditListBound:= ; \n   oBrw:aCols[3]:aEditListTxt   := { \'AA\', \'BB\', \'CC\', \'DD\', \'EE\', \'FF\', \'GG\', \'HH\' }','',0,'','3idwr5mm',1,0,'',2,0,0),(44910,9183,3,27,0,'77.210.136.46',1198669606,1,0,1,1,1,1,'','Localización de una dirección en Google Maps','Aqui hay una función muy simple para hacerlo abriendo el explora.\n\nFunction MakeMMapa()\nLocal cDp,cDir1,cTipoVia,cCiudad,cNum:=\"\"\nLocal cHttp:=\"http://maps.google.es/maps?f=q&amp;hl=es&amp;q=\"\ncDp:=TRIM(_ALIAS-&gt;DP)\ncCiudad:=TRIM(_ALIAS-&gt;CIUDAD)\ncDir1:=_ALIAS-&gt;DIR1\n\nBUSCACITY(@cDir1,@cNum,@cTipoVia)\ncHttp:=cHttp+cTipoVia+cDir1+\"+\"+cNum+\"+\"+cDp+\"+\"+cCiudad\nSHELLEXECUTE(0,0,cHttp,0,0,1)\nRETURN NIL\n***********************************************************************\nFUNCTION BUSCACITY(cDir1,cNum,cTipoVia)\nLocal i,j:=0\n\nDO CASE\nCASE SUBSTR(_ALIAS-&gt;DIR1,1,3)=\"AV. \"\ncTipoVia:=\"AVENIDA DE \"\ncDir1:=SUBSTR(cDir1,5)                                       \n\nOTHERWISE\ncTipoVia:=\"CALLE+DE+\"\nENDCASE\nj:=LEN(cdir1)\nFOR I=1  TO LEN(cdir1)\nIF LEN(cNum)&gt;0 .AND. SUBSTR(cDir1,I,1)=\" \"\n EXIT\nENDIF\n\nIF VAL(SUBSTR(cDir1,I,1))&gt;0\n\nIF EMPTY(cNum)\n j:=i\nENDIF\n\ncNum:=cNum+SUBSTR(cDir1,I,1)\n\nENDIF\n\nnext\nIF EMPTY(cNum)\n cNum:=\"1\"\nENDIF\ncDir1:=LTRIM(  SUBSTR(cDir1,1,j-1) )\ncDir1:=STRTRAN(cDir1,\",\",\"\")\nreturn nil','',0,'','7vjq61bj',1,0,'',27,0,0),(44911,9345,3,868,0,'219.64.121.60',1198669645,1,0,1,1,1,1,'','','If the data is numeric, ListBound should be { 1,2,3....}.  In our case the data stored in the data ( array) is the same as display values.  If we specify only litttxt the browse derives listbound with { 1,2,3 } and returns those values.  Therefore what i wrote is correct and it works.  Only problem is that user is not able to abandon edit and retain the original values.','',0,'','1cmxdhb4',1,0,'',868,0,0),(44912,9345,3,2,0,'87.218.146.113',1198669857,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; Therefore what i wrote is correct and it works.\n\nYes, you are right. Now I see what you meant. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2hmoktla',1,0,'',2,0,0),(44913,9345,3,868,0,'219.64.121.60',1198669917,1,0,1,1,1,1,'','','I tried the revised exe posted. It is working ok.  As you said we may need to cover other usual controls used in popup helps that may be used in valid functions.  ( I am working with changing my copy of txbrowse ).','',0,'','1pa660vw',1,0,'',868,0,0),(44914,9345,3,868,0,'219.64.121.60',1198670121,1,0,1,1,1,1,'','','I am trying listbox issues.  I think the behaviour should be if the user clicks the mouse elsewhere, the original value should be retained.  If he is navigating with keys, if he presses escape, the listbox should end and original value retained.\n\nBut :bKeyDown of listbox is not intercepting Escape key','',0,'','2grlw2sd',1,0,'',868,0,0),(44915,9313,3,267,0,'189.13.205.93',1198670388,1,0,1,1,1,1,'','','Antonio,\n\nI already tested with libs of xHarbour and adordd.prg compiled together to my system, but the problem continues.\n\nAlso I made download of xharbour.org, I compiled all the sources, but the error persists!','',0,'','1mt35rtq',1,0,'',267,0,0),(44916,9345,3,868,0,'219.64.121.60',1198670420,1,0,1,1,1,1,'','','I made the following changes in the ShowBtnList( nKey ) method.\n[code:18vfq7kt]\n//   &#58;&#58;oEditLbx&#58;bLostFocus &#58;= &#123;|| &#58;&#58;PostEdit&#40; aBound&#91; Max&#40; 1, nAt &#41; &#93;, &#46;t&#46; &#41; &#125; // iif&#40;&#58;&#58;oEditLbx != nil, &#58;&#58;oEditLbx&#58;End&#40;&#41;,&#41; &#125; A&#46;L&#46; Nov 2007\n   &#58;&#58;oEditLbx&#58;bLostFocus &#58;= &#123;|| &#58;&#58;PostEdit&#40; eval&#40;&#58;&#58;bEditValue&#41;, &#46;t&#46; &#41; &#125;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n                                &#125;\n/*\n   &#58;&#58;oEditLbx&#58;bKeyDown   &#58;= &#123;|k| iif&#40; k == VK_RETURN &#46;and&#46; nAt &gt; 0,  xValue &#58;= aBound&#91; nAt &#93;, &#41;,;\n                                 iif&#40; k == VK_RETURN &#46;or&#46; k == VK_ESCAPE, &#58;&#58;PostEdit&#40; xValue, &#46;t&#46; &#41;, &#41; &#125;\n*/\n\n   &#58;&#58;oEditLbx&#58;bKeyDown   &#58;= ;\n   		&#123;|k| iif&#40; k == VK_RETURN &#46;and&#46; nAt &gt; 0, ;\n   			       &#58;&#58;PostEdit&#40; aBound&#91; nAt &#93;, &#46;t&#46; &#41; , ;\n   			       iif&#40; k == VK_ESCAPE, &#58;&#58;PostEdit&#40; eval&#40;&#58;&#58;bEditValue&#41;, &#46;t&#46; &#41;, nil &#41; &#41; &#125;\n[/code:18vfq7kt]\nBut escape key is not captured at all','',0,'AIA=','18vfq7kt',1,0,'',868,0,0),(44917,9357,3,3,0,'85.195.137.204',1198670896,1,0,1,1,1,1,'','','Antonio,\n\nbelow is a sample i just created,\nTo reproduce, \nset the cursor on Enrico for instance then click on add and add any name, watch the first line\nMove the mouse to the first line , see what happens and then watch the last line\n\nThanks for help,\n\n\n#include \"FiveWin.ch\"\n#include \"xbrowse.ch\"\n\nfunction MAIN()\nlocal oDLG, ;\n      AADBF := {}, ;\n      OBRW\n\nREQUEST DBFCDX\nRddsetdefault( \"DBFCDX\" )\n\nIF FILE(\"TEST.DBF\")\n   ERASE (\"TEST.DBF\")\n   ERASE (\"TEST.CDX\")\nENDIF\naADBF := {}\nAADD(aADBF, {\"NAME\",     \"C\", 20, 0 })\nAADD(aADBF, {\"NATIONAL\", \"C\", 20, 0 })\nDBCREATE(\"TEST\", aADBF)\n\nUSE TEST NEW\nINDEX ON NAME TAG \"NAME\"\nTEST-&gt;(ORDSETFOCUS(\"NAME\"))\n\nAPPEND BLANK\nREPLACE TEST-&gt;NAME     WITH \"ANTONIO\"\nREPLACE TEST-&gt;NATIONAL WITH \"SPAIN\"\n\nAPPEND BLANK\nREPLACE TEST-&gt;NAME     WITH \"RICHARD\"\nREPLACE TEST-&gt;NATIONAL WITH \"FRANCE\"\n\nAPPEND BLANK\nREPLACE TEST-&gt;NAME     WITH \"ENRICO\"\nREPLACE TEST-&gt;NATIONAL WITH \"ITALY\"\n\nAPPEND BLANK\nREPLACE TEST-&gt;NAME     WITH \"OTTO\"\nREPLACE TEST-&gt;NATIONAL WITH \"AUSTRIA\"\n\nAPPEND BLANK\nREPLACE TEST-&gt;NAME     WITH \"NAGESRAW\"\nREPLACE TEST-&gt;NATIONAL WITH \"INDIA\"\n\nTEST-&gt;(DBGOTOP())\n\nDEFINE DIALOG oDlg RESOURCE \"TEST\"\n\noBrw := TXBrowse():New()\noBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW\noBrw:lColDividerComplete := .t.\noBrw:nColDividerStyle := LINESTYLE_LIGHTGRAY\noBrw:nRowDividerStyle := LINESTYLE_LIGHTGRAY\n\noBrw:bClrStd := {|| { CLR_BLUE, CLR_WHITE } }\n\noCol:=oBrw:AddCol()\noCol:bStrData:= {|| TEST-&gt;NAME }\noCol:cHeader       := \"Name\"\nocol:nWidth  := 200\n\noCol:=oBrw:AddCol()\noCol:bStrData:= {|| TEST-&gt;NATIONAL }\noCol:cHeader       := \"Nationality\"\nocol:nWidth  := 200\n\noBrw:CreateFromResource( 201 )\n\nREDEFINE BUTTON ID 01 OF ODLG ACTION ODLG:END()\nREDEFINE BUTTON ID 02 OF ODLG ACTION ODLG:END()\n\nREDEFINE BUTTON ID 03 OF ODLG ACTION ADDBRW(OBRW,ODLG)\nREDEFINE BUTTON ID 04 OF ODLG ACTION DELBRW(OBRW,ODLG)\n\nODLG:bSTART := { || OBRW:SETFOCUS() }\n\nACTIVATE DIALOG oDlg CENTERED\nTEST-&gt;(DBCLOSEAREA())\nERASE (\"TEST.DBF\")\nERASE (\"TEST.CDX\")\nreturn nil\n\nSTATIC FUNCTION ADDBRW(obrw,ODLG)\nLOCAL DNAME     := SPACE(20), ;\n      LSAVE     := .F., ;\n      DNATIONAL := SPACE(20)\n\nDEFINE DIALOG ODLG RESOURCE \"TESTNAME\"\n\nREDEFINE GET DNAME     ID 201 OF ODLG\nREDEFINE GET DNATIONAL ID 202 OF ODLG\n\nREDEFINE BUTTON ID 01  OF ODLG  ACTION (LSAVE := .T.,ODLG:END())\nREDEFINE BUTTON ID 02  OF ODLG  ACTION (LSAVE := .F.,ODLG:END())\n\nACTIVATE DIALOG oDlg CENTERED\nIF ! LSAVE\n   RETURN NIL\nENDIF\nAPPEND BLANK\nREPLACE TEST-&gt;NAME     WITH DNAME\nREPLACE TEST-&gt;NATIONAL WITH DNATIONAL\n\nOBRW:REFRESH()\nOBRW:SETFOCUS()\nreturn nil\n\nSTATIC FUNCTION DELBRW(obrw,ODLG)\nTEST-&gt;(DBDELETE())\nTEST-&gt;(DBSKIP(-1))\nTEST-&gt;(DBSKIP(+1))\nOBRW:REFRESH()\nreturn nil\n\n\n\nTEST DIALOG 4, 13, 358, 247\nSTYLE DS_ABSALIGN | DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU\nFONT 10, \"Tahoma\"\n{\n CONTROL \"\", 201, \"tXbrowse\", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL, 1, 1, 353, 212\n DEFPUSHBUTTON \"OK\", 1, 2, 225, 42, 21\n PUSHBUTTON \"Annuler\", 2, 315, 225, 42, 21\n PUSHBUTTON \"Add\", 3, 89, 226, 30, 19\n PUSHBUTTON \"Delete\", 4, 239, 227, 30, 19\n}\nTESTNAME DIALOG 4, 15, 234, 93\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION \"Encaissement Client\"\nFONT 10, \"Tahoma\"\n{\n EDITTEXT 201, 45, 4, 168, 12, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n EDITTEXT 202, 45, 32, 168, 12, ES_UPPERCASE | WS_BORDER | WS_TABSTOP\n DEFPUSHBUTTON \"OK\", 1, 2, 72, 42, 21\n PUSHBUTTON \"Annuler\", 2, 190, 72, 42, 21\n CTEXT \"Nationality\", -1, 2, 29, 38, 18, SS_CENTER | WS_BORDER | WS_GROUP\n CTEXT \"Name\", -1, 2, 4, 35, 12, SS_CENTER | WS_BORDER | WS_GROUP\n}','',0,'AIA=','wufrmqg9',1,0,'',3,0,0),(44918,9345,3,868,0,'219.64.121.60',1198671079,1,0,1,1,1,1,'','','I carried out the corrections. I don\'t what I am missing but I am getting an error \n[code:152s1khr]\nApplication\n===========\n   Path and name&#58; C&#58;\\TESTS\\Bin\\MALLORCA&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,437,184 bytes\n   Time from start&#58; 0 hours 0 mins 7 secs \n   Error occurred at&#58; 12/26/07, 17&#58;53&#58;59\n   Error description&#58; Error BASE/1005  Class&#58; \'NIL\' has no property&#58; NLASTKEY\n   Args&#58;\n     &#91;   1&#93; = U   \n     &#91;   2&#93; = N   13\n\nStack Calls\n===========\n   Called from&#58;  =&gt; _NLASTKEY&#40;0&#41;\n   Called from&#58; xbrowse&#46;prg =&gt; EDITGETKEYDOWN&#40;4543&#41;\n   Called from&#58; xbrowse&#46;prg =&gt; &#40;b&#41;TXBRWCOLUMN&#58;EDIT&#40;4479&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;KEYDOWN&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;KEYDOWN&#40;0&#41;\n   Called from&#58; TGET&#46;PRG =&gt; TGET&#58;KEYDOWN&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; TGET&#46;PRG =&gt; TGET&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; MALLORCA&#46;PRG =&gt; MAIN&#40;59&#41;\n[/code:152s1khr]','',0,'AIA=','152s1khr',1,0,'',868,0,0),(44919,9313,3,868,0,'219.64.121.60',1198671407,1,0,1,1,1,1,'','','Mr Vilian\n\nI am using the binaries downloaded from xhabour.org. I compled adordd.prg with these binaries. I am using usrrdd.lib from the xharbour\\lib folder. Adordd is working for me.\nI am using bcc','',0,'AIA=','219ru3si',1,0,'',868,0,0),(44920,9313,3,2,0,'87.218.146.113',1198671499,1,0,1,1,1,1,'','','Vilian,\n\nIs it the same error or a GPF ?\n\nDid you get any answer from Miguel Angel ?','',0,'AIA=','36jpkw1v',1,0,'',2,0,0),(44921,9356,3,2,0,'87.218.146.113',1198671599,1,0,1,1,1,1,'','','The \"Microsoft Visual Studio 2008 Shell ([color=red:226u1b4j]integrated[/color:226u1b4j] mode) Redistributable Package\" properly installs and execute without the licence error\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=40646580-97fa-4698-b65f-620d4b4b1ed7&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->','',0,'Ag==','226u1b4j',1,1198672024,'',2,1,0),(44922,9313,3,868,0,'219.64.121.60',1198671723,1,0,1,1,1,1,'','','From the error reported, it seems Mr Robert\'s error is not from adordd.lib. It is an error in opening the mysql table.','',0,'Ag==','1ssul95q',1,0,'',868,0,0),(44923,9356,3,868,0,'219.64.121.60',1198671868,1,0,1,1,1,1,'','','So it seems in the near future we would be developing our favourite FWH / (x)Harbour applications from VisualStudio IDE   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Ag==','b42w8r3m',1,0,'',868,0,0),(44924,9358,6,1146,0,'217.127.105.137',1198672019,1,0,1,1,1,0,'','compartir datos a través de internet','Hola:\n\nAnte todo, ¡¡¡felices fiestas!!!.\n\nTengo un servidor alojado en un proveedor de Internet que usa samba para compartir archivos bajo Windows. Pretendo que varias sucursales accedan remotamente a los datos \\\\ip del servidor\\datos. (p. ej. use \\\\195.53.1.2\\data\\customer.dbf). \n\nLo que sucede es que va muy lento, principalmente al cargar y al reindexar. Los clientes tienen todos ADSL de 3 mb.\n\n¿Hay alguna solución para mejorar el rendimiento, como ADS?. Muchas gracias.\n\nUn saludo,','',0,'Ag==','2yfbuzr2',1,0,'',1146,0,0),(44925,9359,3,1146,0,'217.127.105.137',1198672375,1,0,1,1,1,0,'','sharing dbf files via internet','Hi,\n\nMary christmas to all fivewinners!!!.\n\nI have a dedicated server hosted in a ISP with samba to share files under Windows.\n\nI would like to access those files for several customers as \\\\server´s ip (i. e. use \\\\195.53.1.2\\data\\customer.dbf). It works but too slow, particulary when open files at program start or when indexing. The final users have a DSL connection.\n\nIs there a way to improve the speed?. Using ado?. Thank you for your help!!!.\n\nRegards.','',0,'Ag==','25k1tokb',1,0,'',1146,0,0),(44926,9313,3,267,0,'189.13.205.93',1198672585,1,0,1,1,1,1,'','','Antonio,\n\nThe error message is the following one: \n \n \n[code:2uuk75yt]UNRECOVERABLE ERROR 9015 - Symbol Item expected from Hb_VmDo&#40;&#41; [/code:2uuk75yt]\n\nThe Miguel answered requesting me an example, sent yesterday for it.','',0,'AIA=','2uuk75yt',1,0,'',267,0,0),(44927,9313,3,2,0,'87.218.146.113',1198672836,1,0,1,1,1,1,'','','Vilian,\n\nThanks!','',0,'AIA=','b8x4khot',1,0,'',2,0,0),(44928,9345,3,868,0,'219.64.121.60',1198673269,1,0,1,1,1,1,'','','I am still getting the above error from the application I linked.  Your exe downloaded is working fine. I am wondering what is the difference.\n\nThis is the valida method I am using as advised by you\n[code:2u1mz7t6]\nSTATIC FUNCTION Valida&#40; oGet, oCol &#41;\n\n   local nnew  &#58;= 0\n   local method &#58;= 2\n\n   if method == 1\n   	return &#40; oget&#58;varget&#40;&#41; &lt;= 6 &#41;\n\n   elseif method == 2\n    IF oGet&#58;Value&#40;&#41; &gt; 6\n       MsgAlert&#40; &quot;Must be lower than 7&quot; &#41;\n       if msgget&#40;\'NEW VALUE\',\'Enter number between 1 and 6\',@nnew&#41;\n          if nnew &gt; 0 &#46;and&#46; nnew &lt; 7\n             oGet&#58;varput&#40; nnew &#41;\n//             oget&#58;refresh&#40;&#41;\n//             oget&#58;nLastKey &#58;= VK_RETURN\n//             msginfo&#40;oget&#58;varget&#40;&#41;&#41;\n             oCol&#58;PostEdit&#40;&#41;\n             return &#46;t&#46;\n          else\n             return &#46;f&#46;\n          endif\n       endif\n       return &#46;F&#46;\n    ENDIF\n\n elseif method == 3\n    if oget&#58;value&#40;&#41; &gt; 6\n       oget&#58;varput&#40;6&#41;\n       oget&#58;refresh&#40;&#41;\n    endif\n endif\n\nRETURN &#46;T&#46;\n[/code:2u1mz7t6]','',0,'AIA=','2u1mz7t6',1,0,'',868,0,0),(44929,9343,3,1064,0,'59.117.111.219',1198673704,1,0,1,1,1,0,'','','my own ads.ch','',0,'AIA=','1mckrx70',1,0,'',1064,0,0),(44930,9358,6,36,0,'164.77.81.210',1198673748,1,0,1,1,1,1,'','','Hola Moises\n\nYo utilizo ads con clientes remotos y me va muy bien en velocidad, eso si que yo utilizo acceso remoto por seguridad, y me conexion es de 512 en el server y 1 meg en los clientes\n\n.- Para aumentar la velocidad puedes abrir todas las bases al comienzo\naqui te dejo un ejemplo como lo hago.\n\n[code:3en7s659]static procedure AbrirDbf&#40;&#41;\n	local i, cDbf, aRay &#58;= AdsDirectory&#40;&#41;,;\n			aNoOpen &#58;= &#123; &quot;USUARIOS&quot;, &quot;GRUPOS&quot;, &quot;GRUPOACC&quot;, &quot;USRACCES&quot;, &quot;GRUPOUSR&quot;, &quot;DBTODOS&quot; &#125;\n\n	for i &#58;= 1 to len&#40; aRay &#41;\n		cDbf &#58;= Left&#40; aRay&#91;i&#93;, len&#40; aRay&#91;i&#93; &#41;-1 &#41;\n		if !cDbf IN aNoOpen\n			if ViewUsu&#40;&#41;&#58;Sucursal = 1\n				NetUse&#40; cDbf, &#46;t&#46; &#41;\n			else\n				MsgRun&#40; &quot;Espere un momento, Abriendo Archivo del Servidor &#91;&quot;+str&#40;i,2&#41;+&quot;&#93;/&quot;+ltrim&#40;str&#40;len&#40;aRay&#41;&#41;&#41;+cDbf, &quot;Win-Invent&quot;,;\n			 			&#123; || NetUse&#40; cDbf, &#46;t&#46; &#41; &#125; &#41;\n			endif\n		endif\n	next i\nreturn\n//-----------------------------------------------------------------------------------------------------------\n[/code:3en7s659]','',0,'AIA=','3en7s659',1,0,'',36,0,0),(44931,9269,6,1201,0,'200.90.17.154',1198673792,1,0,1,1,1,0,'','','Muchas Gracias. Antonio,\n\nSería posible que me mandaras el código correcto de la clase, para Utilizarlo, (y Así evitar futuros entuertos  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> ).\n\nMi Correo es <!-- e --><a href=\"mailto:BLANCOANDREANI@HOTMAIL.COM\">BLANCOANDREANI@HOTMAIL.COM</a><!-- e -->\n\n\nGracias de antemano, y espero que el niño Jesús te haya premiado con algo, Je Je..\n\n\nFelicidad\nAngel','',0,'AIA=','22yi8rtu',1,0,'',1201,0,0),(44932,9270,6,36,0,'164.77.81.210',1198674055,1,0,1,1,1,1,'','','Amigos \n\nUna Feliz Navida y un prospero año nuevo 2008, que Dios le vendiga a todos ustedes y a su Familia','',0,'AIA=','k5douoom',1,0,'',36,0,0),(44933,9358,6,1146,0,'217.127.105.137',1198674298,1,0,1,1,1,0,'','','Hola Patricio:\n\nNo, si yo abro todas las bases de datos al comienzo\n\nuse \\\\ip\\clientes.dbf new shared, etc\n\nLo que sucede es que me va lento al inicio y al reindexar. ¿Cómo te va a ti?. Muchas gracias.','',0,'AIA=','83a6w8d1',1,0,'',1146,0,0),(44934,9270,6,1104,0,'200.115.248.81',1198676670,1,0,1,1,1,0,'','','Muchas felicidades para todos!!\nGracias por compartir este gran foro!!!\nSaludos, \nDesde Argentina, Esteban','',0,'AIA=','1syu77tn',1,0,'',1104,0,0),(44935,9187,17,316,0,'213.97.245.163',1198687899,1,0,1,1,1,0,'','','Resource Builder','',0,'AIA=','2kp4ntx1',1,0,'',316,0,0),(44936,9360,2,1199,0,'189.174.99.55',1198690271,1,0,1,0,1,0,'','cGetfile() nombres Largos aparecen Cortos en Dialogo','Podria hacerme le favor de Ayudarme que al crear un programa abrir la ventana principal window y sus menus pero al abrir un dialogo y llamar a la funcion cgetfile() o cgetfile32() aparecen los nombres cortos y no largos como lo trae windows ya probe en windows 98 y xp y se presenta igual\n\nles agradesco su gran ayuda\n\nsaludos \ncarlos i. de la rosa','',0,'AIA=','ucta4r91',1,0,'',1199,0,0),(44937,9361,3,34,0,'68.5.217.82',1198692884,1,0,1,1,1,1,'','Date Picker','Consider: \n  REDEFINE DTPICKER cDate ID 1001 OF oDlg \n\nThis control calls the windows API and displays a date icon in the edit field.  When clicking on the date icon, a window control pops up that allows me to navigate, and select, a date.  It returns the date value.\n\nSo here is my question.  Is there a way to call a calendar control. which I can display on a dialog, and which does not use the edit field.  I want the control to simply return the selected date.','',0,'AIA=','1rb6ytf5',1,0,'',34,0,0),(44938,9362,6,1104,0,'200.115.248.81',1198694830,1,0,1,1,1,0,'','Iconos y Bitmaps XP','Hola a todos, \nEstoy intentando incorporar iconos y bitmaps de con más de 256 colores y cuando grabo el RC desde el Workshop pierde notablemente la calidad de los colores.\nAlguien sabe como hay que hacer para que esto no suceda?\nFalta alguna DLL o algo por el estilo?\n\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'AIA=','2qfzjinp',1,0,'',1104,0,0),(44939,9341,3,909,0,'71.71.110.50',1198695540,1,0,1,1,1,1,'','','Thanks, Antonio.  This will do the job for me. \n\nRegards,\n\nCharles','',0,'AIA=','i0hkyo16',1,0,'',909,0,0),(44940,9361,3,1146,0,'217.127.105.137',1198695896,1,0,1,1,1,0,'','','Just put a button that calls a calendar, for example, via open or fivewin´s internal, next to the field you want.\n\nregards,','',0,'AIA=','94h1kctl',1,0,'',1146,0,0),(44941,9363,6,1195,0,'190.38.49.14',1198696203,1,0,1,1,1,0,'','Error BASE/1070 Argument Error == en oGet:bkeychar','Maestro Antonio,\n\nTengo este problema cuando evaluo el bKeychar me pruduce el siguiente error :  error BASE/1070 == ; esto es cuando retorna de ejecutar la funcion oGetTipo( oGet ) del mensaje oGet:bKeyChar\n\nDe antemano muchas gracias.\n\n\n@ 06, 01 SAY \"TIPO    \";\n               FONT oFont;\n               SIZE 040, 060;\n               OF oDlg;\n           GET oGet;\n               VAR aButtom[ _BUTOMTIPO ];\n               FONT oFont;\n               PICTURE \"999\";\n               OF oDlg\n               oGet:bKeyChar := {|| oGetTipo( oGet ) }','',0,'','1fs0zf8a',1,0,'',1195,0,0),(44942,9364,6,415,0,'190.156.208.79',1198699826,1,0,1,1,1,1,'','FWH 712  Errror abrir cajón monedero.','Hola foro:\n\nMi primera pregunta; pero antes agradecer a todos los foristas por su gran ayuda, todos los dias entro y miro las preguntas y su correspondientes respuestas de los participantes, esto a contribuido a crecer mi conocimiento; de regalo de navidad me compre FWH 712, se comio casi todo mi codigo perfecto,  a excepción de abrir el cajón  monedero, me arroja el error  Windows  ha detectado un problema y debe cerrarse.\n\nEl codigo que tengo para habrir el cajón monedero es el siguiente:\n\nlocal cDcb, nBytes\nlocal nComm := OpenComm( \"COM1\", 1024, 128 )\nlocal nError\n\nif ! BuildCommDcb( \"COM1:3000,n,8,1\", @cDcb )\n  nError = GetCommError( nComm )\nendif\n\nif ! SetCommState( cDcb )\n  nError = GetCommError( nComm )\nendif\n\nif ( nBytes := WriteComm( nComm, \"ATZ0\" + Chr( 13 ) ) ) &lt; 0\n  nError = GetCommError( nComm )\n else\nendif\n\nif FlushComm( nComm, 0 ) != 0\n  nError = GetCommError( nComm )\nendif\n\nif ! CloseComm( nComm )\n  nError = GetCommError( nComm )\nendif\n\n****\n\nDe antemano Gracias,','',0,'','1ecwxu7n',1,1198959828,'',415,1,0),(44943,9362,6,78,0,'190.43.178.59',1198700670,1,0,1,1,1,0,'','','HI\nUtiliza el PellesC,   \n\nSalu2','',0,'','uodya9t2',1,0,'',78,0,0),(44944,9365,6,78,0,'190.43.178.59',1198700999,1,0,1,1,1,0,'','FONT Simple','Hola amigos, debo usar la TPrinter para emision de facturas, y estoy buscando un tipo de letra que se de corte simple, lo mas paracediro al DRAFT de la matriciales, y que se imprima en una sola \"pasada\", es una pena que windows imprima los caracteres del alfabeto en dos o tres padas,  o hay alguna manera de crear un font sencillo...\n\nSalu2','',0,'','xqud7ji0',1,0,'',78,0,0),(44945,9366,6,1246,0,'69.19.14.40',1198701086,1,0,1,1,1,1,'','cuestion de opinion s.o. vista','hola a todos y antes que nada ojala y el credor se haya acercado a sus corazones con sus familias  esta naviadad y pascua , y que el 2008 sean de buenos augurios pata todos y sus afamilias, y que la ventana se les haga mas grande , es mi mayor deseo.\nhaciendo mi emigracion a 32 bits (harbourd) , las puese a trabajar en 2 euqipos nuevos que adquirimos ya con s.o. vita(estoy trabajando con fw24 Y PELLES C A PARTIR DE RECURDOS CON DLL ESTERNA) Y LA VISTA ES UNA MARAVILLA EL LOOK QUE DA ES ETUPENDO LA VENTANAS SON AUTOMATICAMENTE TRANSPARENTES DE MARAVIILA , ESO SI ES UNA LATA EL VISTA, TRABAJO EN RED INHAMBRICA PERO HAY QUE PEDIRLE PERMISO HASTA LOS TATARABUELOS DE UNO, SE ALENTA MUCHO NO SE SI ALGUIN SEPA MAS ESTE S.O. PERO SI QUE VA A COSTAR TRABAJO DOMINARLO. ESTOY EMPEZANDO  A METERME EN VISTA PERO SI DE ALGOS LES SIRVE MI COLOABORACION CON MUCHO GUSTO ESTOY PARA SEVIRLES .\nA Y MI PREGUNTA SOBRE EL POST ANTERION DEL DBCOMBO EN FWH24 NADIE ME HA CONTESTADO. Y SIGO EN LAS MISMAS.\n\nDE DE J.D.COVARRUBIAS , VER,MEXICO.','',0,'','17q5pm67',1,0,'',1246,0,0),(44946,9340,6,1059,0,'190.31.22.140',1198703147,1,0,1,1,1,0,'','','Antonio, \n\nEfectivamente el ejemplo que me envias funciona correctamente.\n\nLo que yo necesito hacer es cambiar a la línea deseada pero sin que el oRich esté en foco.\n\n¿Para qué?. La respuesta es que agregué a la clase un método que llamé findall() y que cubre una necesidad para mi proyecto y es la de mostrar TODAS las palabras buscadas con tinta blanca y papel azul (como en el \"find\").\n\nLa cuestión es que antes de pintar todas las palabras hago una copia al disco del texto editado para, luego de mostrar todas las palabras encontradas, volver a cargarlo logrando así mostrar el texto original (sin las palabras pintadas). Esto lo hago cuando al clickear sobre el rich, coloco el cursor, es decir cuando toma al foco.\n\nPor eso necesito, para mejor presentación, que sin tener el foco, el rich \"salte\", para poder visualizar, la primer línea en la que encontró la primer palabra buscada.\n\nNo se si me explico. ¿Hay algun modo de hacerlo?.\n\nGracias. \n\nRolando.   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','3724ib78',1,0,'',1059,0,0),(44947,9365,6,439,0,'200.125.36.180',1198703222,1,0,1,1,1,1,'','Re: FONT Simple','[quote=&quot;Willi Quintana&quot;:3ttlukqq]Hola amigos, debo usar la TPrinter para emision de facturas, y estoy buscando un tipo de letra que se de corte simple, lo mas paracediro al DRAFT de la matriciales, y que se imprima en una sola \"pasada\", es una pena que windows imprima los caracteres del alfabeto en dos o tres padas,  o hay alguna manera de crear un font sencillo...\n\nSalu2[/quote:3ttlukqq]\n\nPara las impresoras matriciales lo ideal es usar tdosprn, te permite realizar la impresión directamente a través de lpt1: a la impresora como lo hacíamos en los viejos tiempos.\n\nSi tienes que imprimir por la red o no está en un lpt, entonces yo usaría \"Lucida Console\", que tiene una separación igual entre los caracteres lo que facilita la impresión.\n\nNo obstante dudo que el font resuelva el problema ya que el tema es que Windows hace una impresión gráfica del texto.\n\nPienso que la solución debe pasar por otro lado.\n\nEspero te sirva de ayuda.','',0,'gA==','3ttlukqq',1,0,'',439,0,0),(44948,9367,6,1195,0,'190.38.49.14',1198704138,1,0,1,1,1,0,'','Eror en oGet:bKeyChar (Error BASE/1070 Argument Error &quot;','Disculpen Maestros,\n\nEste es el fuente del programa que me pruduce el error,\n\nDe antemano muchas gracias por la ayuda,\n\n\nError BASE/1070 Argument error \"==\", en la evaluacion de \noGet:bKeyChar = {|| oGetTipo( oGet ) }\n\n\n\n\n@ 06, 01 SAY \"TIPO    \";\n               FONT oFont;\n               SIZE 040, 060;\n               OF oDlg;\n           GET oGet;\n               VAR aButtom[ _BUTOMTIPO ];\n               FONT oFont;\n               PICTURE \"999\";\n               OF oDlg\n               oGet:bKeyChar = {|| oGetTipo( oGet ) }\n\n  @ 07, 01 SAY \"SUBTIPO \";\n               FONT oFont;\n               SIZE 040, 060;\n               OF oDlg;\n           GET oGet1;\n               VAR aButtom[ _BUTOMSUBT ];\n               FONT oFont;\n               PICTURE \"999\";\n               OF oDlg\n               \n\n  @ 7.5, 04 BUTTON oBtn PROMPT \"&amp;Aceptar\" OF oDlg SIZE 40, 12;\n            ACTION ( ModiButton( oLbx, aButtom ), lExit := TRUE, oDlg:End() )\n\n  @ 7.5, 12 BUTTON oBtn PROMPT \"&amp;Salir\" OF oDlg SIZE 40, 12 ;\n            ACTION ( lExit := TRUE, oDlg:End() )\n\n  ACTIVATE DIALOG oDlg VALID lExit\n\n  RELEASE FONT oFont\n\nreturn nil\n\n\nstatic PROCEDURE oGetTipo( oGet )\n  oGet:varput( ListaTipos() )\n  oGet:refresh()\nreturn\n\n\nstatic FUNCTION ListaTipos()\n  LOCAL oDlg, oBrw\n  LOCAL aSample := { \"Individual\", \"Combo\" }\n  LOCAL nItem := 1\n  LOCAL Tipo  := 0\n\n  DEFINE DIALOG oDlg FROM 2, 2 TO 10, 50 TITLE \"Lista de Tipos\"\n\n  @ 1, 2 LISTBOX oBrw ;\n         FIELDS If( Len( aSample ) &gt; 0, aSample[ nItem ], \"\" ) ;\n         HEADERS \"Tipo Producto\" ;\n         FIELDSIZES 200 ;\n         OF oDlg ;\n         SIZE 100, 24\n\n  oBrw:bGoTop    = { || nItem := 1 }\n  oBrw:bGoBottom = { || nItem := Eval( oBrw:bLogicLen ) }\n  oBrw:bSkip     = { | nWant, nOld | nOld := nItem, nItem += nWant,;\n                       nItem := Max( 1, Min( nItem, Eval( oBrw:bLogicLen ) ) ),;\n                       nItem - nOld }\n  oBrw:bLogicLen = { || Len( aSample ) }\n  oBrw:cAlias    = \"Array\"                // Just put something\n\n  @ 0.5, 20 BUTTON \"&amp;Seleccion\" OF oDlg ;\n            ACTION ( Tipo := nItem, oDlg:End() )\n\n  @ 1.5, 20 BUTTON \"&amp;Salir    \" OF oDlg ACTION oDlg:End()\n\n  ACTIVATE DIALOG oDlg CENTERED\n\nreturn Tipo','',0,'','11qjhf1x',1,0,'',1195,0,0),(44949,9179,6,228,0,'190.24.168.189',1198706675,1,0,1,1,1,1,'','Ayuda...','Antonio ya compramos la versión fw 712, y me gustaria saber si en esta versión ya se puede cambiar el color del tema de office 2007, sin tener que moficar la clase. \n\nGracias','',0,'','21tid66v',1,0,'',228,0,0),(44950,9179,6,72,0,'201.137.81.58',1198710210,1,0,1,1,1,0,'','','Una pregunta Antonio.\n\nVeo que para la barra de mensajes recomiendas colocar una imagen en lugar de modificarlos los colores. ¿Hay alguna razón para ello?\n\nEn mi caso tengo modificados los colores y los problemas que había sobre consumo de memoria fueron superados.','',0,'','3qos95zn',1,0,'',72,0,0),(44951,9179,6,2,0,'87.218.146.191',1198710977,1,0,1,1,1,1,'','','Leandro,\n\nAun no se han hecho configurables los colores. Tenemos previsto implementarlos pronto.','',0,'','3kgxfsd0',1,0,'',2,0,0),(44952,9179,6,2,0,'87.218.146.191',1198711076,1,0,1,1,1,1,'','','Alfredo,\n\nLa velocidad de pintado es muy superior. Casi tres veces más rápido, además de que permite mostrar cualquier imagen \"dibujada\", no ya de tipo degradado, sino con más efectos de relieve, multiples colores, etc.','',0,'','1akkpqig',1,0,'',2,0,0),(44953,9367,6,2,0,'87.218.146.191',1198711340,1,0,1,1,1,1,'','','Ese error se detectó y ha sido corregido ya. De momento puedes hacer:\n\noGet:bKeyChar = {|| oGetTipo( oGet ), 1 }\n\nSi devuelves un cero, no se procesaran las teclas pulsadas:\n\noGet:bKeyChar = {| nKey | If( nKey == K_..., ( ..., 0 ),  1 ) }','',0,'','1vbli65l',1,0,'',2,0,0),(44954,9363,6,2,0,'87.218.146.191',1198711424,1,0,1,1,1,1,'','','Ese error se detectó y ha sido corregido ya. De momento puedes hacer: \n\noGet:bKeyChar = {|| oGetTipo( oGet ), 1 } \n\nSi devuelves un cero, no se procesaran las teclas pulsadas: \n\noGet:bKeyChar = {| nKey | If( nKey == K_..., ( ..., 0 ), 1 ) }','',0,'','3ljlamwm',1,0,'',2,0,0),(44955,9365,6,53,0,'189.139.23.235',1198711868,1,0,1,1,1,1,'','','Mr.\n\nTal vez te ayude saber que la mayoria de la matriciales se pueden configurar desde el panel o algunas veces a través de \"jumpers\" o switchs, por ejemplo recuerdo que eran configurarbles para que emulen impresoras EPSON o IBM, de igual manera puedes configurar si quieres calidad \"NLQ\" (near letter quality, dos pasadas) o DRAFT (una pasada), tipo de font, etc etc.\n\nSaludos','',0,'','1ghgumtr',1,0,'',53,0,0),(44956,9361,3,34,0,'68.5.217.82',1198715988,1,0,1,1,1,1,'','Calendar','I don\'t want a button to call a calendar.  FWH does that with its DTPICKER option.  I want the calendar to display, ie. Outlook, and when I click a date, it provides that date to the function ( a static variable which it changes ) and I can then display data on my dialog screen.\n\nDTPICKER allows a calendar to be displayed, but once you select a date, it goes into an edit control and the calendar disappears.  I want the calendar on constant display for quick movement between dates.\n\nI had this ability previously with a function from Grumpfish, but I wanted to clean it up a bit with a 32 bit look and feel.','',0,'','2p6kvwrs',1,0,'',34,0,0),(44957,9368,3,397,0,'201.27.191.19',1198716052,1,0,1,0,1,1,'','Digital and Analogic clock in your aplications, Easy!!!','Friends,\n\nThe samples below uses flash files, Activex and resources:\n\nWith Analogic:\n[code:112trov8]\n#include &quot;fivewin&#46;ch&quot;\nfunction Main&#40;&#41;\n   cPath &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41;\n   DEFINE DIALOG oWnd RESOURCE &quot;RELOGIO&quot;\n          oActiveX = TActiveX&#40;&#41;&#58;Redefine&#40; 10, oWnd, &quot;ShockwaveFlash&#46;ShockwaveFlash&#46;9&quot; &#41; \n   ACTIVATE DIALOG oWnd CENTERED ;\n               ON INIT &#40; oActiveX&#58;SetProp&#40; &quot;wmode&quot;, &quot;transparent&quot; &#41;, ;\n                         oActiveX&#58;SetProp&#40; &quot;bgcolor&quot;, &quot;EFC725&quot; &#41;, ;\n                         oActiveX&#58;SetProp&#40; &quot;menu&quot;, &quot;false&quot; &#41;, ;\n                         oActiveX&#58;Do&#40; &quot;LoadMovie&quot;, 0, cPath+&quot;relogio&#46;swf&quot; &#41; &#41;\n   RETURN &#46;T&#46;\n[/code:112trov8]\n\nWith Digital:\n[code:112trov8]\n#include &quot;fivewin&#46;ch&quot;\nfunction Main&#40;&#41;\n   cPath &#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41;\n   DEFINE DIALOG oWnd RESOURCE &quot;RELOGIO&quot;\n          oActiveX = TActiveX&#40;&#41;&#58;Redefine&#40; 10, oWnd, &quot;ShockwaveFlash&#46;ShockwaveFlash&#46;9&quot; &#41; \n   ACTIVATE DIALOG oWnd CENTERED ;\n               ON INIT &#40; oActiveX&#58;SetProp&#40; &quot;wmode&quot;, &quot;transparent&quot; &#41;, ;\n                         oActiveX&#58;SetProp&#40; &quot;bgcolor&quot;, &quot;EFC725&quot; &#41;, ;\n                         oActiveX&#58;SetProp&#40; &quot;menu&quot;, &quot;false&quot; &#41;, ;\n                         oActiveX&#58;Do&#40; &quot;LoadMovie&quot;, 0, cPath+&quot;digital&#46;swf&quot; &#41; &#41;\n   RETURN &#46;T&#46;\n[/code:112trov8]\n\nThe Resource:\n[code:112trov8]\nRELOGIO DIALOG 14, 10, 167, 122\nSTYLE DS_SYSMODAL | 0x4L | WS_POPUP | WS_VISIBLE\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n CONTROL &quot;&quot;, 10, &quot;TActiveX&quot;, 0 | WS_CHILD | WS_VISIBLE, 12, 13, 140, 95\n&#125;\n[/code:112trov8]\n\nThe flash files:\n[url=http&#58;//www&#46;5volution&#46;com/relogio&#46;swf&#46;zip:112trov8]Analogic[/url:112trov8]\n[url=http&#58;//www&#46;5volution&#46;com/digital&#46;swf&#46;zip:112trov8]Digital[/url:112trov8]\n\nRename the .SWF.ZIP files to .SWF and good luck.','',0,'EIA=','112trov8',1,0,'',397,0,0),(44958,9356,3,35,0,'65.188.6.143',1198719493,1,0,1,1,1,0,'','','Antonio\n\nI am trying to follow along and duplicate your install .. I think I took the links out of sequence ..\n\n1) Downloaded and installed the redistributal shell ( integrated mode ) .. last link you posted\n2) then the VS 2008 sdk v1\n\n\nUpon starting the sdk install it told me I had to ( already ) have the VS studio 2008 Standard edition .. \n\nTell me what you did and how you got your package of links to load properly ??\n\nRick Lipkin','',0,'EIA=','2me8fkp9',1,0,'',35,0,0),(44959,9369,3,233,0,'218.111.61.90',1198723018,1,0,1,1,1,0,'','How to apply brush to folder headers?','In an attempt to get the same look irregardless of whether XP Theme is active or not, I use color brush with a transparent dialog. I\'m very happy with the results except when it involves folder.\n\n[img:1pueqrpk]http&#58;//img407&#46;imageshack&#46;us/img407/2263/folderlo3&#46;jpg[/img:1pueqrpk]\n\n\nHow to apply the brush to the grey area shown above?\n\nTIA','',0,'CA==','1pueqrpk',1,0,'',233,0,0),(44960,9370,3,303,0,'72.220.181.80',1198728726,1,0,1,1,1,0,'','Printing JPGs using TPrinter','I am trying to print a JPG on a report using TPrinter. I get nothing displayed in the preview. Bitmaps work.\n\nI also found that you MUST use REDEFINE to get an oImage object.\n\nBelow is my code. Any suggestions?\n\nJames\n\n[code:1m23rm1e]// Test Printing JPB image\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;image&#46;ch&quot;\n\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n   local oPrn, oImage, cFile&#58;=&quot;fivewin&#46;jpg&quot;\n\n   //oImage&#58;= TImage&#40;&#41;&#58;new&#40;1,1,150,150,,cFile &#41; // oImage is nil\n\n   //@ 0,0 image oImage file cFile  // oImage is nil\n\n   //@ 0, 0 IMAGE oImage SIZE 150, 150 OF oPrn // oImage is nil\n\n   oImage&#58;= TImage&#40;&#41;&#58;redefine&#40;,cFile,oPrn&#41; // oImage is object\n\n   //msgInfo&#40; valtype&#40; oImage &#41; &#41;\n\n   PRINT oPrn PREVIEW\n      oImage&#58;oWnd&#58;= oPrn\n      PAGE\n\n         //oPrn&#58;sayBitmap&#40; 200, 200, cFile&#41; // works with bitmap\n\n         oPrn&#58;SayImage&#40; 20, 20, oImage &#41;  // nothing shows\n\n         oPrn&#58;say&#40;500,200, &quot;Text goes here&#46;&quot;&#41;\n\n      ENDPAGE\n   ENDPRINT\n\n   oImage&#58;end&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//[/code:1m23rm1e]','',0,'AIA=','1m23rm1e',1,0,'',303,0,0),(44961,9370,3,3,0,'80.81.159.19',1198732689,1,0,1,1,1,1,'','Re: Printing JPGs using TPrinter','James\n\nThis way works\n\n   oIMAGE := TIMAGE():Define(,DIMAGE)\n   OPRN:SAYIMAGE(LineIMP,ColIMP,OIMAGE,LARGE,Height)\n   OIMAGE:END()\n\nHth\n\nRichard','',0,'AIA=','1izpl23f',1,0,'',3,0,0),(44962,9370,3,303,0,'72.220.181.80',1198733896,1,0,1,1,1,0,'','','Richard,\n\nThanks for the response--now it is working! Here is my revised code.\n\nJames\n\n\n[code:2qkolcfw]#include &quot;FiveWin&#46;ch&quot;\n#include &quot;image&#46;ch&quot;\n\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n   local oPrn, oImage, cFile&#58;=&quot;fivewin&#46;jpg&quot;\n\n   oImage&#58;=TImage&#40;&#41;&#58;define&#40;,cFile&#41;\n\n   PRINT oPrn PREVIEW\n    \n      PAGE\n\n         oPrn&#58;SayImage&#40; 20, 20, oImage, 100, 100 &#41; \n\n         oPrn&#58;say&#40;500,200, &quot;Text goes here&#46;&quot;&#41;\n\n      ENDPAGE\n   ENDPRINT\n\n   oImage&#58;end&#40;&#41;\n\nreturn nil[/code:2qkolcfw]','',0,'AIA=','2qkolcfw',1,0,'',303,0,0),(44963,9356,3,51,0,'80.122.88.242',1198736537,1,0,1,1,1,0,'','','Hello Rick,\nFirst I installed vs_ideredist.exe. This makes a exe file in a new directory.\nThen I installed this exe from this new directory: vside.enu.exe.\nTakes some time and I think I had to start this exe twice.\nFirst the exe installs framework.\nThirdly I run the VsSDK_sfx.exe.\nRegards,\nOtto','',0,'AIA=','31550siw',1,0,'',51,0,0),(44964,9347,19,233,0,'218.111.61.90',1198742145,1,0,1,1,1,0,'','','1. I notice Dokuwiki has rss feed. Anyone who wish to monitor the updates to the wiki can subscribe to [url=http&#58;//fivetechsoft&#46;com/wiki/feed&#46;php:33lhk0i0]it[/url:33lhk0i0]\n\n2. Doug (xProgrammer) I noticed you started an entry on FiveLinux but the link to it somehow went AWOL. I\'ve put back the link on the front page. \n\n3. Others, especially those who are familiar with dokuwiki, are encourage to update/give feedback on how the organization of the wiki should go. As of now I\'m just simply playing it by ear.\n\n4. Anyone knows any speedy way to convert Fivewin help files to dokuwiki\'s format?\n\n5. Those wishing to update the wiki are encourage to do so and contact Antonio for the user id/pwd\n\nTIA','',0,'EA==','33lhk0i0',1,0,'',233,0,0),(44965,9371,3,449,0,'212.64.224.249',1198742868,1,0,1,1,1,1,'','ADS Tips','Hello,\n\nI think that it\'s goes being the moment that among all we go contributing our knowledge for somehow to be able to optimize the yield of ADS in our applications.  I understand that the important thing is optimize the yield in the use of ADS in form Client/Server.\n\nMany functions are not used or they are used bad. Does ADS work well, but can it work well? I believe that if it is possible. Today\'s tip \n\n[b:3ts20iyp]Use of a type field it dates.[/b:3ts20iyp]\n\nUsually using the function DToC (), does the system work and are we so wide, but that it happens if we use the function AdsGetDate ()? Do we notice difference? \n\n[code:3ts20iyp]HB_FUNC&#40; ZADSGETDATE &#41;\n&#123;\n   ADSAREAP pArea;\n   UNSIGNED8  *pucFldName = &#40;UNSIGNED8 *&#41; hb_parc&#40; 1 &#41;;\n   UNSIGNED8  pucBuf&#91;16&#93;;\n   UNSIGNED16 pusLen = 16;\n\n   pArea = &#40;ADSAREAP&#41; hb_rddGetCurrentWorkAreaPointer&#40;&#41;;\n\n\n/*   ulRetVal = AdsGetServerName&#40; hConnect,pucname,&amp;puslen &#41; ; */\n\n   AdsGetDate&#40; pArea-&gt;hTable, pucFldName, pucBuf, &amp;pusLen &#41;;\n\n   if&#40; pusLen &gt; 0 &#41;\n   &#123;\n      hb_retc&#40; &#40;char *&#41; pucBuf &#41;;\n   &#125;\n    else\n   &#123;\n      hb_retc&#40;NULL&#41;;\n   &#125;\n\n&#125;\n[/code:3ts20iyp]\n\nY su uso en un browse seria:\n\n[code:3ts20iyp]@0, 0 LISTBOX oLbx  ;\n      FIELDS &#40;cAlias&#41;-&gt;order              ,;\n             &#40;cAlias&#41;-&gt;&#40; ZAdsGetDate&#40; \'mydate\' &#41; &#41;  ;  \n      HEADER \'Order\', \'Date\' ;\n      FONT oFont ALIAS cAlias SIZE 200,200 PIXEL OF oWnd\n[/code:3ts20iyp]\n\nNote: It\'s interesting to carry out the tests with big tables and against Client/Server\n\nI hope to encourage people to contribute their tips and among all to achieve a bigger yield of ADS','',0,'QIA=','3ts20iyp',1,0,'',449,0,0),(44966,9372,6,449,0,'212.64.224.249',1198743351,1,0,1,1,1,1,'','ADS Tips','Hola, \n\nDespues de leer el  hilo <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9343\">http://fivetechsoft.com/forums/viewtopic.php?t=9343</a><!-- m --> , pienso que va siendo el momento de que entre todos vayamos   aportando nuestros conocimientos para poder de alguna manera optimizar el rendimiento de ADS en nuestras aplicaciones. Entiendo que lo importante es optimizar el rendimiento en el uso de ADS en forma Cliente / Servidor.\n\nMuchas funciones no se usan o se usan mal. ADS funciona bien, pero puede funcionar mejor ? Creo que si es posible. Mi tip de hoy \n\n[b:1ddgs24q]Uso de un campo de tipo fecha.[/b:1ddgs24q]\n\nNormalmente usando la funcion DToC(), el sistema funciona y nos quedamos tan anchos, pero que pasa si usamos la funcion AdsGetDate() ? Notamos diferencia ? \n\n[code:1ddgs24q]HB_FUNC&#40; ZADSGETDATE &#41; \n&#123; \n   ADSAREAP pArea; \n   UNSIGNED8  *pucFldName = &#40;UNSIGNED8 *&#41; hb_parc&#40; 1 &#41;; \n   UNSIGNED8  pucBuf&#91;16&#93;; \n   UNSIGNED16 pusLen = 16; \n\n   pArea = &#40;ADSAREAP&#41; hb_rddGetCurrentWorkAreaPointer&#40;&#41;; \n\n\n/*   ulRetVal = AdsGetServerName&#40; hConnect,pucname,&amp;puslen &#41; ; */ \n\n   AdsGetDate&#40; pArea-&gt;hTable, pucFldName, pucBuf, &amp;pusLen &#41;; \n\n   if&#40; pusLen &gt; 0 &#41; \n   &#123; \n      hb_retc&#40; &#40;char *&#41; pucBuf &#41;; \n   &#125; \n    else \n   &#123; \n      hb_retc&#40;NULL&#41;; \n   &#125; \n\n&#125; [/code:1ddgs24q]\n\nY su uso en un browse seria: \n\n[code:1ddgs24q]@0, 0 LISTBOX oLbx ; \nFIELDS &#40;cAlias&#41;-&gt;order ,; \n       &#40;cAlias&#41;-&gt;&#40; ZAdsGetDate&#40; \'mydate\' &#41; &#41; ; \nHEADER \'Order\', \'Date\' ; \nFONT oFont ALIAS cAlias SIZE 200,200 PIXEL OF oWnd \n[/code:1ddgs24q]\n\nNota: Es interesante realizar las pruebas con grandes tablas y contra Cliente/Servidor\n\nEspero animar a la gente aportar sus tips y entre todos lograr un mayor rendimiento de ADS','',0,'QIA=','1ddgs24q',1,0,'',449,0,0),(44967,9356,3,2,0,'87.218.146.191',1198745665,1,0,1,1,1,1,'','','Rick,\n\nPlease do as Otto tells you, and then try to run Visual Studio once installed:\nc:\\Program Files\\Microsoft Visual Studio 9.0\\Common7\\IDE\\devenv.exe','',0,'QIA=','dbwkzfun',1,0,'',2,0,0),(44968,9356,3,51,0,'80.122.88.242',1198746853,1,0,1,1,1,0,'','','Hello Antonio,\nwhat are your tests with VSX say? Do you think this could be a solution?\nBest regards,\nOtto','',0,'QIA=','60pimi5z',1,0,'',51,0,0),(44969,9345,3,2,0,'87.218.146.191',1198748892,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; I made the following changes in the ShowBtnList( nKey ) method.\n\nFixed. Required changes:\n[code:1i9leqw8]\nMETHOD ShowBtnList&#40; nKey &#41; CLASS TXBrwColumn\n   &#46;&#46;&#46;\n   &#58;&#58;oBrw&#58;lEditMode &#58;= &#46;T&#46;\n\nreturn &#46;T&#46;\n[/code:1i9leqw8]\n[code:1i9leqw8]\nMETHOD CancelEdit&#40;&#41; CLASS TXBrowse\n   &#46;&#46;&#46;\n   for nFor &#58;= 1 to nLen\n        &#46;&#46;&#46;\n        if oCol&#58;oEditLbx != nil\n           oCol&#58;oEditLbx&#58;End&#40;&#41;\n        endif   \n   next\n&#46;&#46;&#46;\n[/code:1i9leqw8]\nNow the click on a buttonbar and fire its action is missing, when the listbox is showing. Working on it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1i9leqw8',1,1198749074,'',2,1,0),(44970,9345,3,2,0,'87.218.146.191',1198749026,1,0,1,1,1,1,'','','A new mallorca.exe build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/26219-85426459f1.html\">http://www.hotshare.net/file/26219-85426459f1.html</a><!-- m -->\n\nThanks for your feedback! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3v78cm2y',1,0,'',2,0,0),(44971,9345,3,2,0,'87.218.146.191',1198750476,1,0,1,1,1,1,'','','Moving the listbox item with the keyboard and then escape was wrongly assigning the selected item. Fixed:\n[code:sbipmy2m]\nMETHOD ShowBtnList&#40; nKey &#41; CLASS TXBrwColumn\n&#46;&#46;&#46;\n   &#58;&#58;oEditLbx&#58;bKeyDown   &#58;= &#123;|k| &#58;&#58;oEditLbx&#58;nLastKey &#58;= k,;  // new!\n   	                             If&#40; k == VK_RETURN &#46;and&#46; nAt &gt; 0,  xValue &#58;= aBound&#91; nAt &#93;, &#41;,;\n                                 If&#40; k == VK_RETURN &#46;or&#46; k == VK_ESCAPE, &#58;&#58;PostEdit&#40; xValue, &#46;t&#46; &#41;, &#41; &#125;\n&#46;&#46;&#46;\n[/code:sbipmy2m]\n[code:sbipmy2m]\nMETHOD KeyChar&#40; nKey &#41; CLASS TXBrowse\n&#46;&#46;&#46;\n      case nKey == VK_ESCAPE\n              &#46;&#46;&#46;\n           if &#58;&#58;lEditMode\n              oCol &#58;= &#58;&#58;SelectedCol&#40;&#41;  \n              if oCol&#58;oEditLbx != nil\n                 oCol&#58;oEditLbx&#58;nLastKey = VK_ESCAPE\n              endif   \n              &#58;&#58;CancelEdit&#40;&#41;\n           endif\n&#46;&#46;&#46;\n[/code:sbipmy2m]\nAnd finally in mallorca.prg:\n[code:sbipmy2m]\n   oBrw&#58;aCols&#91;3&#93;&#58;bOnPostEdit  &#58;= &#123; | oCol, xVal, nKey | If&#40; nKey == VK_RETURN, aLin&#91; oBrw&#58;nArrayAt, 3 &#93; &#58;= xVal,&#41; &#125; \n[/code:sbipmy2m]\nA new mallorca.exe build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/26227-6326669358.html\">http://www.hotshare.net/file/26227-6326669358.html</a><!-- m -->','',0,'AIA=','sbipmy2m',1,0,'',2,0,0),(44972,9356,3,2,0,'87.218.146.191',1198750820,1,0,1,1,1,1,'','','Otto,\n\nIts very powerfull, but very complex also <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> But I don\'t worry about that.\n\nMy worries are that I have already detected an important bug, that I plan to report to Microsoft and hopefully they may fix it soon. I may be wrong and it may not be a bug but something that need some extra work:\n\nI create a dialogbox and select to save it as a RC file from the main pulldown menu, and it does not get saved as a RC. Instead it saves it as a RCT file again','',0,'AIA=','4y1im0sa',1,0,'',2,0,0),(44973,9356,3,2,0,'87.218.146.191',1198751121,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:34pv6xxt][img:34pv6xxt]http&#58;//img245&#46;imageshack&#46;us/img245/7947/screen1ap7&#46;png[/img:34pv6xxt][/url:34pv6xxt]','',0,'GA==','34pv6xxt',1,0,'',2,0,0),(44974,9356,3,2,0,'87.218.146.191',1198751344,1,0,1,1,1,1,'','','See that I select to save it as a RC file, but it tries and saves it as a RCT file!\n[url=http&#58;//imageshack&#46;us:2jjm1snm][img:2jjm1snm]http&#58;//img245&#46;imageshack&#46;us/img245/2364/screen1ea7&#46;png[/img:2jjm1snm][/url:2jjm1snm]','',0,'GA==','2jjm1snm',1,0,'',2,0,0),(44975,9364,6,294,0,'201.254.179.219',1198751815,1,0,1,1,1,1,'','','Hola Mauro:\nYo tube un problema similar con el uso de los puertos COM y Antonio me envio un archivo para enlazar con mi aplicacion, COMM.OBJ y esto me solucionó el problema, aunque según me dijo en esa oportunidad, con las nuevas versiones se solucionaba. \nTe pregunto, con las aperturas del puerto para el uso del tickeador no tenes problemas?','',0,'GA==','2j1dfzzt',1,0,'',294,0,0),(44976,9352,3,130,0,'84.138.47.86',1198752374,1,0,1,1,1,1,'','','Dutch,\n\nwbrwline.obj  was compiled with borland and you are using xhb, which uses the microsoft object format. You must recompile wbrwline with Ms C or PellesC.','',0,'GA==','1xz884k2',1,0,'',130,0,0),(44977,9318,23,130,0,'84.138.47.86',1198754774,1,0,1,1,1,1,'','','Das muß ich noch mit Silvo besprechen, aber ich denke schon.\n\nGruß\nStefan','',0,'GA==','3pz3atnv',1,0,'',130,0,0),(44978,9356,3,35,0,'167.7.140.254',1198763302,1,0,1,1,1,0,'','','Otto and Antonio\n\nI will try again tonight with the install .. just curious on the Windows forms editor .. did you try to edit or open a legacy form ( .rc ) and see what VS will do with it ??\n\nRick Lipkin','',0,'GA==','14zq17hn',1,0,'',35,0,0),(44979,9352,3,47,0,'203.144.143.9',1198763422,1,0,1,1,1,0,'','','Dear Stefan,\n\nI\'ve got it.\n\nThanks,\nDutch','',0,'GA==','23di7cd9',1,0,'',47,0,0),(44980,9356,3,2,0,'87.218.146.191',1198765978,1,0,1,1,1,1,'','','Rick,\n\nIts opening the RC files as text files, not as resources. Though curiously it has associated its icon to the RC files, meaning that they can be managed from the IDE\n\nWe may be missing something. We should locate a technical forum where to post some questions about the Visual Studio IDE and how to properly configure it','',0,'GA==','3nqc3se8',1,0,'',2,0,0),(44981,9369,3,2,0,'87.218.146.191',1198766302,1,0,1,1,1,1,'','','Hua,\n\nWe can\'t change do that unless we totally replace the WM_PAINT msg behavior, which it means a lot of work. \n\nYou could modify FW Class TFolder to not use SysTabControl32 and use the 16 bits folder own defined control, where you have full control, but I would not recommend this.','',0,'GA==','1fr3jtz8',1,0,'',2,0,0),(44982,9357,3,2,0,'87.218.146.191',1198766750,1,0,1,1,1,1,'','','Richard,\n\nHere it seems to work fine. Here you have my EXE, please try to make the error and post a screenshot, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/26283-3048040f0f.html\">http://www.hotshare.net/file/26283-3048040f0f.html</a><!-- m -->','',0,'GA==','199fz998',1,0,'',2,0,0),(44983,9362,6,644,0,'201.252.34.186',1198768225,1,0,1,1,1,0,'','','El workshop no soporta mas de 256 colores. lo mejor es trabajar con  pelles C.','',0,'GA==','3jat21sj',1,0,'',644,0,0),(44984,9373,18,210,0,'81.24.159.58',1198768555,1,0,1,1,1,1,'','xbrowse, font from footer','Mr. Linares,\nin xbrowse the font from footer are always the font from header! Please check the source from method PaintFooter.  Wrong is oFont   := ::oHeaderFont.','',0,'GA==','3snw9ux6',1,0,'',210,0,0),(44985,9357,3,3,0,'80.81.159.19',1198768570,1,0,1,1,1,1,'','','Antonio\n\nIt is not working if you use the keyboard (with your exe) keydown or mousewheel\n\ni sent screenshots to your email\n\nRichard','',0,'GA==','2su22fa4',1,0,'',3,0,0),(44986,9364,6,2,0,'87.218.146.191',1198768772,1,0,1,1,1,1,'','','Mauro,\n\nPrueba a poner un MsgInfo() despues de cada llamada, para ver en que función te está fallando, gracias:\n\nlocal cDcb, nBytes \nlocal nComm := OpenComm( \"COM1\", 1024, 128 ) \nlocal nError \n\nMsgInfo( 1 )\n\nif ! BuildCommDcb( \"COM1:3000,n,8,1\", @cDcb ) \nnError = GetCommError( nComm ) \nendif \n\nMsgInfo( 2 )\n\nif ! SetCommState( cDcb ) \nnError = GetCommError( nComm ) \nendif \n\nMsgInfo( 3 )\n\nif ( nBytes := WriteComm( nComm, \"ATZ0\" + Chr( 13 ) ) ) &lt; 0 \nnError = GetCommError( nComm ) \nelse \nendif \n\nMsgInfo( 4 )\n\nif FlushComm( nComm, 0 ) != 0 \nnError = GetCommError( nComm ) \nendif \n\nMsgInfo( 5 )\n\nif ! CloseComm( nComm ) \nnError = GetCommError( nComm ) \nendif','',0,'GA==','1qj3ut6e',1,0,'',2,0,0),(44987,9357,3,2,0,'87.218.146.191',1198768872,1,0,1,1,1,1,'','','Richard,\n\nI need to know the exact sequence of keystrokes to reproduce it, thanks','',0,'GA==','1a9x7257',1,0,'',2,0,0),(44988,9374,6,141,0,'200.88.94.84',1198770513,1,0,1,1,1,1,'','Metodos para Excel con tOleAuto','Hola y felicidades a todos,\n\nUtilizo felizmente la lectura de hojas de Excel (inclusive con informacion en varias hojas electronicas) con la clase tOleAuto.  Ahora me acontece un requerimiento especial:\n\nUn cliente que lleva registro de grupos de personas, diseño una hoja de excel donde cada grupo somete su registro anual en un archivo .XLS y el sistema lo lee muy bien (desde hace 4 años) sin problemas.\n\nEl caso es que este año ha decidido que se agregue la foto de cada una de las personas que se somete en la hoja .XLS, y para esto esta utilizando un interesante truco que permite colocar una foto en el comentario de una celda (en los proximos días comentare como hacer esto en mi blog), y necesito ahora leer el comentario de una celda.\n\nEsta introduccion es solo para preguntar:\n\n¿ALQUIEN TIENE DOCUMENTACION SOBRE LOS METODOS DE EXCEL MANEJADO POR tOleAuto ?\n\nApreciada respuesta con agradecimiento por adelantado...','',0,'GA==','39cr5r8a',1,0,'',141,0,0),(44989,9362,6,1104,0,'200.115.248.81',1198770870,1,0,1,1,1,0,'','','Gracias por sus respuestas, evidentemente hay que usar Pelles C.\nLo estoy probando pero me surge una duda.\nHay alguna forma de crear BMPs dentro del RC directamente sin que los grabe en el direcitorio donde esta el RC?\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'GA==','28rrt83y',1,0,'',1104,0,0),(44990,9345,3,868,0,'219.64.121.60',1198770969,1,0,1,1,1,1,'','','Mr Antonio\n\nI tested the latest exe posted by you.  Keyboard edit of listbox is working okay. But I am not able to change the item with mouse.  If I activate the listbox and click on any item, that item is not assigned.\n\n[quote:jh8y3p1p]\nNow the click on a buttonbar and fire its action is missing, when the listbox is showing. Working on it\n[/quote:jh8y3p1p]\nIt would be nice if this works. But not such a priority.\n\nSmall suggestion.  You may increase the column width a little more when a button is shown in the column.  Now the text is getting truncated a little.\n\nI shall incorporate your changes in my copy and test it again.','',0,'gA==','jh8y3p1p',1,0,'',868,0,0),(44991,9375,3,1231,0,'83.144.114.249',1198771709,1,0,1,1,1,1,'','xBrowse and national characters - bKeyChar method','We have in Poland few signs of alphabet  more then in English language.\nTo put it on qwerty keyboard we have to press ALT+letter simmilar to wanted char.\n\nexample:\nALT+A = &#260; (ASCII 165)\n\nIn TSBrowse I used bKeyChar method\noBRWR:bKeyChar:={|nKEY,nFLAG| JAKIRRCHAR(nKEY,nFLAG) }\n\nMethod bKeyDown always have returned 65\nMethod bKeyChar returned 165\n\nI tried to use bKeyChar with xBrowse, but for me it doesn\'t work.\n\nIs this possible to use this method with xBrowse?\n\nRegards \nRobert','',0,'gA==','2q8ttqqj',1,0,'',1231,0,0),(44992,9345,3,868,0,'219.64.121.60',1198771908,1,0,1,1,1,1,'','','Guess by oversight you might have omitted the correction to be made in postedit method\n\nOriginal Code\n[code:287nnfoa]\n      case &#58;&#58;nEditType == EDIT_LISTBOX\n            &lt; &#46;&#46;&#46;&#46; code &#46;&#46;&#46; &gt;\n           Eval&#40; &#58;&#58;bOnPostEdit, Self, xValue, 0&#41;\n[/code:287nnfoa]\nLast line should be changed to \n[code:287nnfoa]\n          Eval&#40; &#58;&#58;bOnPostEdit, Self, xValue, &#58;&#58;oEditLbx&#58;nLastKey &#41;\n[/code:287nnfoa]\nPlease confirm.\n\nYou may also consider why cant we use Combobox instead of Listbox? This easily covers EDIT_LISTBOX and EDIT_GET_LISTBOX cases easily','',0,'AIA=','287nnfoa',1,0,'',868,0,0),(44993,9376,6,400,0,'201.92.38.137',1198772167,1,0,1,1,1,1,'','Controlar Btn do cgetFile32() ???','Estou usando o cGetFile32 e eu gostaria de saber como posso controlar os Botoes da Cx de Dialog q se abre com cGetFile32() ???\n\nTipo assim, se eu teclar CANCELAR quero q ele execute uma determinada açao.\n\nIsto es possible ?\n\nEstou usando assim:\n\ncArqTxt:= cGetfile32(\"texto | dados.txt |\" ,\"Selecione Arquivo dados.txt\",,.F.)\n\nSaluds','',0,'AIA=','39aeoit5',1,0,'',400,0,0),(44994,9345,3,868,0,'219.64.121.60',1198772412,1,0,1,1,1,1,'','','Made these changes. My changes are untidy though\n\n[code:ajqrmxo7]\nmethod postedit &#40; &#46;&#46;&#46;&#46;&#46; &#41;\n&#46;&#46;&#46;\nlocal nlastkey &#58;= 0\n&#46;&#46;&#46;&#46;\n\n      case &#58;&#58;nEditType == EDIT_LISTBOX\n           if &#58;&#58;oEditLbx != nil &#46;and&#46; IsWindow&#40; &#58;&#58;oEditLbx&#58;hWnd &#41;\n              nlastkey &#58;= &#58;&#58;oEditLbx&#58;nlastkey\n              &#58;&#58;oEditLbx&#58;End&#40;&#41;\n              &#58;&#58;oEditLbx &#58;= nil\n           endif\n           if lbutton == &#46;t&#46;\n              nLastKey &#58;= VK_RETURN\n           endif\n           Eval&#40; &#58;&#58;bOnPostEdit, Self, xValue, nLastKey &#41;	\n\n[/code:ajqrmxo7]\nNow both keyboard edit and mouse selection both assign the selected value. And Escape key retains the original value.','',0,'AIA=','ajqrmxo7',1,0,'',868,0,0),(44995,9345,3,868,0,'219.64.121.60',1198772620,1,0,1,1,1,1,'','','When the selection in the listbox is moved away from the original value for whatever reason, clicking on any other cell assigns the new value. Clicking on other cell should result in cancellation of edit.','',0,'AIA=','1vd954rt',1,0,'',868,0,0),(44996,9370,3,868,0,'219.64.121.60',1198772741,1,0,1,1,1,1,'','','Can we, instead of reading from a disk file, assign the buffer read from a memo field ?','',0,'AIA=','27s1pva4',1,0,'',868,0,0),(44997,9117,6,1089,0,'190.82.5.9',1198773046,1,0,1,1,1,0,'','Prueba de esta manera.','DEFINE TBBUTTON OF oToolBar5 ACTION (MEst(oWnd)) TOOLTIP \"Informes Estadisticos\"\n	oToolBar5:AddSeparator()\n	DEFINE TBBUTTON OF oToolBar5 ACTION (MCCC(oWnd)) TOOLTIP \"Cuentas Corrientes\"\n	oToolBar5:AddSeparator()\n	DEFINE TBBUTTON OF oToolBar5 ACTION (MLAF(oWnd)) TOOLTIP \"Libro Auxiliar de Facturacion\"\n	oToolBar5:AddSeparator()\n\n*------------------------------------------------------------------------------\nFunction MEst(oMainWnd )\nLOCAL oMenu, nRow:=65, nCol:=Menos1, aPos := GetCursorPos()\nLocal cClrDegrIni,cClrDegrFin\nLocal cClrSelIni,cClrSelFin,cClrSelTxt,cClrSelBor\nLocal cClrMenu,cClrMenuTxt\nIF _Ancho=768\n	nCol:=Ltb3+130\nElseIf _Ancho=1024\n	nCol:=LTB3+Ltb4+44\nENDIF\ncClrDegrFin := LightColor(60,getsysColor(2))\ncClrDegrIni:= LightColor(230,cClrDegrFin)\ncColorPan  := LightColor(150,cClrDegrFin)\ncClrMenu:= GetSysColor(4) //RGB(224,255,255)\ncClrMenuTxt:= CLR_BLACK\ncClrSelFin:= RGB(255,238,194)\ncClrSelIni:= RGB(255,238,194)\ncClrSelTxt:= CLR_BLACK\ncClrSelBor:= CLR_BLACK\nMENU oMenu POPUP ;\n   COLORMENU    cClrMenu,cClrMenuTxt ;\n   COLORBMP     cClrDegrFin,cClrDegrIni;\n   COLORSELECT  cClrDegrIni,cClrDegrFin,cClrSelTxt;\n   COLORSEPARATOR cClrSelBor\n   MenuItem oMIt[1] Prompt \"Ventas\" Action (TT_SV())\n	Separator\n	MenuItem oMIt[2] Prompt \"Cliente\" Action (EVXC())\n	Separator\n	MenuItem oMIt[3] Prompt \"Entradas Valorizadas\"\n	Separator\n	MenuItem oMIt[4] Prompt \"Compras por Producto\"\n	Separator\n	MenuItem oMIt[5] Prompt \"Compras por Bloques\"\n	Separator\n	MenuItem oMIt[6] Prompt \"Precios de Compra\"\n	Separator\n	MenuItem oMIt[7] Prompt \"Consolidado I.N.E.\"\n	Separator\n	MenuItem oMIt[8] Prompt \"Variaciones de Precio\"\n	Separator\n	MenuItem oMIt[9] Prompt \"Diferencias de PRecio\"\nEndMenu\nACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd\noMainWnd:Refresh()\nRETURN NIL\n*----------------------------------------------------------------------------*\nFunction MCCC(oMainWnd )\nLOCAL oMenu, nRow:=65, nCol:=Menos1, aPos := GetCursorPos()\nLocal cClrDegrIni,cClrDegrFin\nLocal cClrSelIni,cClrSelFin,cClrSelTxt,cClrSelBor\nLocal cClrMenu,cClrMenuTxt\nIF _Ancho=768\n	nCol:=Ltb3+166\nElseIf _Ancho=1024\n	nCol:=LTB3+Ltb4+81\nENDIF\ncClrDegrFin := LightColor(60,getsysColor(2))\ncClrDegrIni:= LightColor(230,cClrDegrFin)\ncColorPan  := LightColor(150,cClrDegrFin)\ncClrMenu:= GetSysColor(4) //RGB(224,255,255)\ncClrMenuTxt:= CLR_BLACK\ncClrSelFin:= RGB(255,238,194)\ncClrSelIni:= RGB(255,238,194)\ncClrSelTxt:= CLR_BLACK\ncClrSelBor:= CLR_BLACK\nMENU oMenu POPUP ;\n     COLORMENU    cClrMenu,cClrMenuTxt ;\n     COLORBMP     cClrDegrFin,cClrDegrIni;\n     COLORSELECT  cClrDegrIni,cClrDegrFin,cClrSelTxt;\n     COLORSEPARATOR cClrSelBor //cClrDegrFin\n     MenuItem \"Cuenta Corriente Individual\" Action (Execute[16]:=.T.,Filter_Cta(oWnd,oMenuIt[49],Execute)) When (!Execute[16])\n	  Separator\n     MenuItem \"Cuenta Corriente General\" Action (CCGC())\nENDMENU\nACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd\noMainWnd:Refresh()\nRETURN NIL\n*----------------------------------------------------------------------------*\nFunction MLAF(oMainWnd)\nLOCAL oMenu, nRow:=65, nCol:=Menos1, aPos := GetCursorPos()\nLocal cClrDegrIni,cClrDegrFin\nLocal cClrSelIni,cClrSelFin,cClrSelTxt,cClrSelBor\nLocal cClrMenu,cClrMenuTxt\nIF _Ancho=768\n	nCol:=Ltb3+202\nElseIf _Ancho=1024\n	nCol:=LTB3+Ltb4+118\nENDIF\ncClrDegrFin := LightColor(60,getsysColor(2))\ncClrDegrIni:= LightColor(230,cClrDegrFin)\ncColorPan  := LightColor(150,cClrDegrFin)\ncClrMenu:= GetSysColor(4) //RGB(224,255,255)\ncClrMenuTxt:= CLR_BLACK\ncClrSelFin:= RGB(255,238,194)\ncClrSelIni:= RGB(255,238,194)\ncClrSelTxt:= CLR_BLACK\ncClrSelBor:= CLR_BLACK\nMENU oMenu POPUP ;\n   COLORMENU    cClrMenu,cClrMenuTxt ;\n   COLORBMP     cClrDegrFin,cClrDegrIni;\n   COLORSELECT  cClrDegrIni,cClrDegrFin,cClrSelTxt;\n   COLORSEPARATOR cClrSelBor\n   MenuItem oMIt[18] Prompt \"Borrador Libro Auxiliar\" ACTION (Execute[18]:=.T.,Libro_Auxf(1,oMenuIt[52],Execute,oWnd)) When (!Execute[18])\n	Separator\n	MenuItem oMIt[19] Prompt \"Original S.I.I.\" ACTION (Execute[19]:=.T.,Libro_Auxf(2,oMenuIt[53],Execute,oWnd)) When (!Execute[19])\n	Separator\n	MenuItem oMIt[20] Prompt \"Foliación de Hojas\" ACTION (Execute[20]:=.T.,Libro_Auxf(3,oMenuIt[54],Execute,oWnd)) When (!Execute[20])\nEndMenu\nACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd\noMainWnd:Refresh()\nRETURN NIL\n*----------------------------------------------------------------------\n\nAl menos a mi, me funciona bastante bien, sólo hayn que jugar con la posición de los botones para darle las coordenadas al menú.','',0,'','n22timg6',1,0,'',1089,0,0),(44998,7761,6,435,0,'200.155.227.31',1198776762,1,0,1,1,1,0,'','','como voce colocou a BITMAP lado esquerdo no titulo ?\n\nAri','',0,'','ubokt2qj',1,0,'',435,0,0),(44999,9345,3,2,0,'87.218.146.191',1198777725,1,0,1,1,1,1,'','','Nageswararao,\n\nThe code change is:\n[code:22kk42ui]\n      case &#58;&#58;nEditType == EDIT_LISTBOX\n           Eval&#40; &#58;&#58;bOnPostEdit, Self, xValue, &#58;&#58;oEditLbx&#58;nLastKey &#41;\n           if &#58;&#58;oEditLbx != nil &#46;and&#46; IsWindow&#40; &#58;&#58;oEditLbx&#58;hWnd &#41;\n              &#58;&#58;oEditLbx&#58;End&#40;&#41;\n              &#58;&#58;oEditLbx &#58;= nil\n           endif\n[/code:22kk42ui]','',0,'AIA=','22kk42ui',1,0,'',2,0,0),(45000,9345,3,2,0,'87.218.146.191',1198778230,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; But I am not able to change the item with mouse.\n\nFixed. Required change:\n[code:1p5y0rve]\nMETHOD ShowBtnList&#40; nKey &#41; CLASS TXBrwColumn\n&#46;&#46;&#46;\n   &#58;&#58;oEditLbx&#58;bLButtonUp &#58;= &#123;|| &#58;&#58;oEditLbx&#58;Change&#40;&#41;, &#58;&#58;oEditLbx&#58;nLastKey &#58;= VK_RETURN,;\n                                &#58;&#58;PostEdit&#40; aBound&#91; nAt &#93;, &#46;t&#46; &#41; &#125;\n[/code:1p5y0rve]\nA new mallorca.exe build:\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/26316-6432727526.html\">http://www.hotshare.net/file/26316-6432727526.html</a><!-- m -->','',0,'AIA=','1p5y0rve',1,0,'',2,0,0),(45001,9364,6,415,0,'190.156.209.35',1198778272,1,0,1,1,1,1,'','','Antonio:\n\nGracias por responder.\n\nHice  lo que me indicaste y donde arroja error es en SetCommState, las demás pasan sin problema.\n\n\nif ! SetCommState( cDcb ) \n   nError = GetCommError( nComm )\nendif\n\nCmsoft, no tengo el comm.obj, gracias por tu interes. \n\nSaludos','',0,'AIA=','9s2ohwth',1,0,'',415,0,0),(45002,9364,6,2,0,'87.218.146.191',1198778446,1,0,1,1,1,1,'','','Mauro,\n\nBien! Efectivamente ese era el fallo, gracias. Ahora se usa así:\n\nif ! SetCommState( nComm, cDcb ) \n\npruébalo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1stz1wb0',1,0,'',2,0,0),(45003,9117,6,2,0,'87.218.146.191',1198778639,1,0,1,1,1,1,'','','José Luis,\n\nSe me había pasado esta respuesta tuya. Revisa lo que te comenta Leonel y sino buscamos otra forma, gracias!','',0,'AIA=','1eqtjsi7',1,0,'',2,0,0),(45004,9360,2,2,0,'87.218.146.191',1198778761,1,0,1,1,1,1,'','','Carlos,\n\nPrueba a usar SFN2LNF( cNombreCorto ) --&gt; cNombreLargo','',0,'AIA=','2u9rtymy',1,0,'',2,0,0),(45005,9364,6,415,0,'190.156.209.35',1198778836,1,0,1,1,1,1,'','','Antonio:\n\nPerfecto.. Ya no me arroja el error. Gracias ya puedo ir donde mi cliente y hago la prueba definitiva....\n\n\nSaludos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','10t18gxw',1,0,'',415,0,0),(45006,9370,3,2,0,'87.218.146.191',1198779042,1,0,1,1,1,1,'','','Nageswararao,\n\nYou may read it from the memo, then create a temporary file and load it from there. Finally erase the temp file.','',0,'AIA=','z1twgoqc',1,0,'',2,0,0),(45007,9325,6,1201,0,'200.90.17.154',1198779056,1,0,1,1,1,0,'','','CUAL ES EL PROBLEMA QUE TIENES CON EL DBCOMBO???\n\n\nAngel','',0,'AIA=','9os8bvuu',1,0,'',1201,0,0),(45008,9356,3,2,0,'87.218.146.191',1198779345,1,0,1,1,1,1,'','','VSX Tech forums:\n\n<!-- m --><a class=\"postlink\" href=\"http://forums.microsoft.com/msdn/showforum.aspx?forumid=57&amp;siteid=1\">http://forums.microsoft.com/msdn/showfo ... 7&amp;siteid=1</a><!-- m -->','',0,'AIA=','2136zswi',1,0,'',2,0,0),(45009,7761,6,53,0,'189.139.15.163',1198780006,1,0,1,1,1,1,'','','Ari:\n\nEn cada inicio de página se llama a la función MyBitMap()\n\nACTIVATE REPORT oReporte;\nON STARTPAGE MyBitMap(oReporte,.5,1.0,.5,.52);\nON END (	oReporte:ENDLINE(),MessageBeep())\n\nY esta es la función MyBitMap()\n\nFUNCTION MyBitMap(oReporte,nRow,nCol,nWidth,nHeight)\n       oReporte:SayBitMap(nRow,nCol,\".\\MiLogo.Bmp\",nWidth,nHeight,1)\nRETURN (NIL)\n\nSaludos','',0,'AIA=','o90p4ht8',1,0,'',53,0,0),(45010,7672,3,51,0,'80.122.88.242',1198780854,1,0,1,1,1,0,'','','Hello James,\n\n\n&gt;Just check oGet:oGet:HasFocus. It is .T. in bLostFocus and .F. in bValid. \n\nIf I have two get-fields where I check if the end-date is later I think you need such a behavior.\nIf I jump to the start field then I need a return .t. and no checking.\nIs there another way to bypass the  checking?\n\nRegards,\nOtto\n\n       GET oGetStart   \n       GET oGetEnd      VALID   ( check() )\n\n\nfunc check()\n    if oGetAnkunft:oGet:HasFocus=.t.\n      retu (.T.)\n    endif\n\n    if dStart &gt; dEnd\n        MsgInfo(\" dStart &gt; dEnd \")\n        retu (.F.)\n    endif\n\n retu (.T.)','',0,'AIA=','14ussim2',1,0,'',51,0,0),(45011,9377,6,1090,0,'201.254.55.223',1198780858,1,0,1,1,1,0,'','Problema con el VALID y SetKey','Hola. Tengo un pequeño problema, a ver si a alguien le paso: tengo una aplicacion en donde via un SETKEY, hago que se ejecute una funcion al presionar la tecla F2 (ej fun_f2); dontro de un dialogo, tengo un textbox con un valid, que ejecuta una funcion que determina si lo que se ingreso es correcto; ahora, si me paro en el textbox y apreto F2, se ejecuta fun_f2, pero me da un error de un ALIAS que no esta en uso; la fun_f2 funciona, y el valid por separado tambien; ¿tienen idea que puede estar pasando? es obviamente la combinación entre la ejecución del valid y la llamada via setkey de la fun_f2. Bueno, si a alguien se le ocurre alguna manera de, por ej, impedir que el valid ejecute si se presiona alguna tecla en particular , o si se les ocurre alguna metida de pata que puedo estar haciendo... les agradecere. Atte.','',0,'AIA=','12qsof4g',1,0,'',1090,0,0),(45012,9377,6,1104,0,'200.115.248.81',1198781471,1,0,1,1,1,0,'','','Hola Diego,\nPrueba guardándote el alias actual dentro de una variable y luego usa un select para seleccionar el area que necesitas en tu funcion F2 luego al finalizar la funcion selecciona el area activa anterior \"select variable\".\nSaludos.','',0,'AIA=','27jzrtox',1,0,'',1104,0,0),(45013,9325,6,1246,0,'69.19.14.31',1198781550,1,0,1,1,1,1,'','','HOLA ANGEL, GRACIAS PPOR REPOSDER A MI SOLICITUD.\n\nMIRA EL PROBLEMA ES QUE NO ME ABRE LA BASE DE DATOS NO HACE NADA , ESTA EN BLANCO, CON CLIPPER JALABA ESTUPENDAMENTE Y NOSE QUE HACER.. DE ANTEMANO MIL,GRACIAS','',0,'AIA=','1pljxrc7',1,0,'',1246,0,0),(45014,9325,6,891,0,'201.140.184.46',1198782323,1,0,1,1,1,0,'','','[quote=&quot;JOSEMAR&quot;:1wped0oj]HOLA ANGEL, GRACIAS PPOR REPOSDER A MI SOLICITUD.\n\nMIRA EL PROBLEMA ES QUE NO ME ABRE LA BASE DE DATOS NO HACE NADA , ESTA EN BLANCO, CON CLIPPER JALABA ESTUPENDAMENTE Y NOSE QUE HACER.. DE ANTEMANO MIL,GRACIAS[/quote:1wped0oj]\n\naFILE2:= {}\n cTipo := (S09)-&gt;TIPO\n\n DO WHILE (S09)-&gt;(!EOF())\n     AADD(aFILE2, SUBS((S09)-&gt;TIPO, 1, 2))\n\n     (S09)-&gt;(DbSkip())\n ENDDO\n\nREDEFINE COMBOBOX oCbx VAR cTipo ITEMS aFile2 ID 101 OF oDlg PICTURE \"@XX\"','',0,'gA==','1wped0oj',1,0,'',891,0,0),(45015,9356,3,2,0,'87.218.146.191',1198782592,1,0,1,1,1,1,'','','Question already posted:\n\n<!-- m --><a class=\"postlink\" href=\"http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2602452&amp;SiteID=1&amp;mode=1\">http://forums.microsoft.com/MSDN/ShowPo ... D=1&amp;mode=1</a><!-- m -->\n\nHopefully we get some feedback from MS','',0,'gA==','2vv0vjph',1,0,'',2,0,0),(45016,9377,6,2,0,'87.218.146.191',1198783667,1,0,1,1,1,1,'','','Diego,\n\nLa caja de diálogo es MODAL ó NO MODAL ?','',0,'gA==','yamoz6mb',1,0,'',2,0,0),(45017,9375,3,2,0,'87.218.146.191',1198783977,1,0,1,1,1,1,'','','Robert,\n\nCLASS TXBrowse is not processing bKeyChar, you may need to include it:\n[code:299g1a2e]\nMETHOD KeyChar&#40; nKey &#41; CLASS TXBrowse\n\n   if &#58;&#58;bKeyChar != nil\n      Eval&#40; &#58;&#58;bKeyChar, nKey, nFlags &#41;\n   endif\n \n   &#46;&#46;&#46;\n[/code:299g1a2e]','',0,'AIA=','299g1a2e',1,0,'',2,0,0),(45018,9356,3,303,0,'72.220.181.80',1198784003,1,0,1,1,1,0,'','','Introduction to the Visual Studio 2008 Shell\n\n[i:31locvwe]In the next Visual Studio wave of products, Microsoft will distribute its world-class IDE freely via its VS 2008 Shell offerings. In this article, I will give an overview of what the Shell is, what it contains, and how you can start leveraging it to start creating your own tools IDE.[/i:31locvwe]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.code-magazine.com/article.aspx?quickid=0710032&amp;page=1\">http://www.code-magazine.com/article.as ... 032&amp;page=1</a><!-- m -->\n\nThis article will be mainly of interest to Antonio. It is about how to create a custom version of the Visual Studio Shell as your own IDE, i.e. a FWH IDE. This would then be a redistributable program.\n\nJames','',0,'IA==','31locvwe',1,0,'',303,0,0),(45019,9356,3,2,0,'87.218.146.191',1198786080,1,0,1,1,1,1,'','','James,\n\nThanks for the info. I have already reviewed several websites, blogs, videos, etc. but our first requirement is to know if it supports RC files.\n\nAparently it does, as the options for opening and saving RCs are there, but they don´t work <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'IA==','2je71mpt',1,0,'',2,0,0),(45020,9375,3,1231,0,'83.144.114.249',1198786102,1,0,1,1,1,1,'','','Antonio\nI don\'t like to think about it every new version.\nIs it possible to put it permanently to next version of xBrowse and FWH?\n\nJanuary is close to us <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->)))\n\nRobert','',0,'IA==','3p5quivz',1,0,'',1231,0,0),(45021,9375,3,2,0,'87.218.146.191',1198786262,1,0,1,1,1,1,'','','Robert,\n\nYes, we already included it for FWH 8.01 <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'IA==','17oge2b5',1,0,'',2,0,0),(45022,9375,3,1231,0,'83.144.114.249',1198787006,1,0,1,1,1,1,'','','Thank You\n\nRobert','',0,'IA==','suectgwr',1,0,'',1231,0,0),(45023,9325,6,1246,0,'69.19.14.31',1198787247,1,0,1,1,1,1,'','','hola angel yo qui de nuevo.\nno le entiendo pero te dejo mi fuente haber se lehayas , me da error de compilacion en el arreglo\n\n\nMEMVAR PATRES\nFunction AVI000()\nlocal oSay, oSay1, oSay2,  oSay3, oSay4, oSay5, oSay6, oSay7, oSay8\nlocal  oSay9, oSay10, oSay11, osay12, oSay13, oSay14, oSay15, oSay16, oSay17\nlocal oGet1, oGet2,  oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet\nLOCAL oFont9, oBtm, oBtm2, oFont10\nLOCAL oBmp, oBmp1, oBmp2, oBarrbtm\nlocal oTbmp\nlocal oTbmp1\nlocal oBtnBmp\nlocal oBtnBmp2\nlocal oBtnBmp3\nlocal oBtnBmp4\nlocal oNlab\nlocal oIcono3\nlocal obrush2\npublic oBmp3\nYACAP:=0\nYACTA:=0\nyafide:=0\nokeysup:=.t.\n cNumlab:=space(4)\n//cNumlab:=0\nkcvelab:=space(4)\nqcvelab:=space(4)\ncNumlab2:=0 \nCNOMBRE:=space(40)\nCDESCON:=SPACE(20)\nCconso:=space(6)\nCcvecon:=space(6)\ncasoc:=space(4)\ncnomeji:=space(20)\ncsupest:=0\ncsupred:=0\necicloe:=space(4)\nezafra:=space(7)\netippag=space(15)\nfuera3=.f.\nGRABARS:=.f.\ncnumtp:=flg_1:=nU:=regs:=Ctarifa:=CCVENVA:=eciclo:=CCANT:=ccant2:=CSUP:=CTARCAN:=CCICLO:=CIMPORTE:=0\ncfecexp:=date()\nGRABARS:=.f.\nok:=.f.\nok1:=.f.\nafile2:={}\nUSE (patres+\"\\maelab\")   ALIAS maelab\n//INDEX ON maelab-&gt;CVElab to c:\\temp\\MAELAB \n//INDEX ON maelab-&gt;N_LAB to c:\\temp\\MAELAB \n//set index to c:\\temp\\MAELAB\nINDEX ON maelab-&gt;descon to c:\\temp\\LABOR \nset index to c:\\temp\\LABOR\n// close data\ncTipo:=(maelab)-&gt;descon\ndo while (maelab)-&gt;(!eof())\naadd(afile2,subs(maelab)-&gt;descon,1,2)\n(maelab)-&gt;(dbskip())\nenddo\n                                     \nUSE (patres+\"\\maepro\")   ALIAS maepro\nINDEX ON maepro-&gt;CVENVA to c:\\temp\\MAEPRO\nset index to c:\\temp\\maepro\nclose data\n\nUSE (patres+\"\\fide\")     ALIAS fide  \nINDEX ON fide-&gt;claveconso to c:\\temp\\fide  \nset index to c:\\temp\\fide  \nclose data\n\nUSE (patres+\"\\maelab\")   ALIAS maelab\nINDEX ON maelab-&gt;CVElab to c:\\temp\\MAELAB \n//INDEX ON maelab-&gt;N_LAB to c:\\temp\\MAELAB \nset index to c:\\temp\\MAELAB\nINDEX ON maelab-&gt;descon to c:\\temp\\LABOR \nset index to c:\\temp\\LABOR\nclose data\n\nUSE (patres+\"\\maepro\") alias maepro shared new\n set index to c:\\temp\\maepro\n\nUSE (patres+\"\\fide\")   alias fide   shared new\n set index to c:\\temp\\fide  \n\nUSE (patres+\"\\maelab\") alias maelab shared new\nset index to c:\\temp\\MAELAB\n\nUSE (patres+\"\\maelab\") alias labor shared new\nFILAVIS()\nset index to c:\\temp\\LABOR\n\n\n// use &amp;patres\\CAPPAG alias CAPPAG  shared new\n\n\nCAPPAG()\n\nDbCloseAll()\n\nreturn nil\n\nfunction CAPPAG()\n\nDEFINE FONT oFont9 NAME \"arial\" SIZE 05,14 BOLD\n\n\nDO WHILE .t.\nDEFINE BRUSH oBrush2 style null\n\n// DEFINE BITMAP oBmp3 resource \"lupa\"\n\nDEFINE BITMAP oBmp resource \"pintura5\"\n\nDEFINE ICON oIcono3 resource \"logo1\"\n\nDEFINE BITMAP oBmp1 resource \"pintura1\"\n\n\nDEFINE DIALOG oDlg RESOURCE \"AVI000\"  OF oVentana icon oIcono3;\n                  brush obrush2  icon oicono3  font oFont9\n\n   redefine say oSay1 id 101 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)  \n   redefine say oSay2 id 104 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n   redefine say oSay3 id 106 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n   redefine say oSay4 id 108 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n   redefine say oSay6 id 113 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)               \n   redefine say oSay13 id 123 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n   redefine say oSay15 id 125 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)               \noDlg:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }\noIcono3:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oIcono3:hIcon ) }\n// oVentana:bPainted := { | hDC | InstertBmp( hDC , oBmp3 , oVentana ) }\n\n\n  REDEFINE GET oGet VAR CCVENVA picture \"999999\" ID 102 OF oDlg;\n   COLOR rgb(78,20,240),rgb(0,150,151) font oFont9;\n             VALID empty(ccvenva).or.Eval ( { ||;\n                   IF (CCVENVA &lt; 100000,;\n                   (msgStop (\"La longitud de la cuenta debe ser de 6 digitos\"), ok:=.F.),;\n                   IF (!maepro-&gt;(dbSeek(CCVENVA)),;\n                   (msgStop (\"No Existe Productor \"), ok:=.F. ),;\n                   (oSay7:settext(oemtoansi(cnombre:=maepro-&gt;nombre1)),;\n                   (oSay14:settext(csupest:=maepro-&gt;has_est)),;\n                   (oSay16:settext(csupred:=maepro-&gt;hasest_red)),;\n                   (oSay10:settext(casoc:=maepro-&gt;asoc),ok:=.t.),; \n                   IF (!fide-&gt;(dbSeek(MAEPRO-&gt;CLAVECONSO)),;\n                   (msgStop(\"Productor Sin Fideicomiso\"), .F. ),(.t.)) )))})\n\n//                   (oSay10:settext(casoc:=maepro-&gt;asoc)),(cconso:=maepro-&gt;claveconso),.t.) ))) } )\n  REDEFINE SAY oSay7 var Cnombre id 103 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE SAY oSay10 var Casoc id 117 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n\n  REDEFINE SAY oSay14 var Csupest id 124 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE SAY oSay16 var Csupred id 126 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE GET oGet1 VAR Cfecexp  ID 105 of oDlg COLOR rgb(78,20,240),rgb(0,150,151) font oFont9\n\n  REDEFINE GET oGet2 VAR Csup  picture \"9999.99\" ID 107 of oDlg  COLOR rgb(78,20,240),rgb(0,150,151) font oFont9;\n             VALID  Eval ( { ||;\n                   IF (Csup = 0,;\n                      (msgStop (\"La superfice Debe Ser Mayor Que Cero\"),.F.),;\n                      ((redondea(csup),compsup(csup,csupest),oGet2:cText(cSup),oSay11:settext(cSup)),okeysup))}) \n\n  REDEFINE SAY oSay11 var cSup  id 122 of oDlg picture \"999.99\"  font oFont9 color rgb(78,20,240),rgb(0,150,151) \n\n// ALERT(STR(LABOR-&gt;(FIELDPOS(\"CVELAB\"))))\n  REDEFINE combobox oNlab  VAR ctipo  items afile2 ID 109 OF ODLG COLOR rgb(78,20,240),rgb(0,150,151) picture \"@x(20)\" ;\n   VALID Eval ( { || (oNlab:settext(cnumlab)),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),;\n                   if (YACAP=1,((MSGSTOP(\"Ya Se Capturo Esta Labor Para Este Productor\"),ok1:=.f.),(ok1:=.T.)),;\n                   IF (!maelab-&gt;(dbSeek(cnumlab)),;\n                   (msgStop (\"No Existe Labor\"),ok1:=.F. ),;\n                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),;\n                   (pregunta(osay9),oGet:setfocus()),(ok1:=.T.)) ) ) } )\n\n/*\n// ALERT(STR(LABOR-&gt;(FIELDPOS(\"CVELAB\"))))\n  REDEFINE combobox oNlab  VAR ctipo  items afile2 ID 109 OF ODLG COLOR rgb(78,20,240),rgb(0,150,151) picture \"@x(20)\" ;\n   alias \"labor\" itemfield \"CVELAB\" listfield \"descon\" ;\n   VALID Eval ( { || (oNlab:settext(cnumlab)),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),;\n                   if (YACAP=1,((MSGSTOP(\"Ya Se Capturo Esta Labor Para Este Productor\"),ok1:=.f.),(ok1:=.T.)),;\n                   IF (!maelab-&gt;(dbSeek(cnumlab)),;\n                   (msgStop (\"No Existe Labor\"),ok1:=.F. ),;\n                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),;\n                   (pregunta(osay9),oGet:setfocus()),(ok1:=.T.)) ) ) } )\n*/\n//   VALID Eval ( { || muelabar(CNUMLAB),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),;\n//                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n//                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),;\n//                   (pregunta(osay9),oGet:setfocus()),(.T.)) ) ) } )\n//  REDEFINE SAY oSay12 var kcvelab id 123 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n  REDEFINE SAY oSay8 var Cdescon id 110 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n\n  redefine say oSay9 var cImporte  id 114 of oDlg picture \"9999,999.99\" font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n REDEFINE BTNBMP oBtnBmp2 ID 116 OF odlg RESOURCE \"SALIDA\" noborder;\n  ACTION (FUERA3:=.t.,odlg:End())\noBtnBmp2:nClrpane=rgb(0,150,151)\n/*\n REDEFINE BTNBMP oBtnBmp3 ID 119 OF odlg RESOURCE \"CANCELAR\" noborder;\n  ACTION (fuera3:=.t.,REFREAVIS(),oGet:setfocus())\noBtnBmp3:nClrpane=nRGB(40,168,34)\n*/\n REDEFINE BTNBMP oBtnBmp4 ID 120 OF odlg prompt \"Nvo. Reg.\" noborder Font oFont9;\n  ACTION (fuera3:=.t.,REFREAVIS(),oGet:setfocus())\n// odlg:blostfocus={ || oBtnBmp4:nClrpane=nRGB(249,29,83)}\n\noBtnBmp4:nClrpane=rgb(0,150,151) \n\nACTIVATE DIALOG oDlg CENTER  \n/*\n  on paint (oGet:setfocus())\n           If GetKeyState(VK_ESCAPE).or.empty(CCVENVA)\n              exit\n           endif\n*/\n//               else\n//          GRABAAVIS()\nreturn .t.\nenddo\n\nrelease font oFont9\noFont3:end()\n\nRETURN NIL\n\nFUNCTION MUEVEDATAS()\nctarifa:=maelab-&gt;tarifa\ncciclo:=maelab-&gt;ciclo\nctarcan:=maelab-&gt;tarifa_can\neciclo:=maelab-&gt;ciclo\necicloe:=maelab-&gt;edi_ciclo\nezafra:=maelab-&gt;edi_zafra\netippag:=maelab-&gt;tip_pag\ncnumtp:=maelab-&gt;num_tp\nRETURN (CTARIFA,CTARCAN)\n\n/*\nfunction CALIMPAS(CCANT,CTARIFA)\n  cImporte:=cCant*ctarifa\n   oSay9:settext(cimporte)\nreturn (cImporte)\n*/\n\nfunction GRABAAVIS()\nif (ccvenva=0.or.cSup=0.or.cnombre=space(40).or.cdescon=space(20))\n   (msgStop (\"Registro En Blanco\"), ok:=.F.)\n   return .f.\n   endif\n use ÿ(patres+\"\\CAPPAG\") alias CAPPAG  new\n\n     CAPPAG-&gt;(dbAppend())\n    replace CAPPAG-&gt;CVENVA     with CCVENVA\n    replace CAPPAG-&gt;nombre1    with cnombre\n    replace CAPPAG-&gt;fecexp     with cfecexp\n    replace CAPPAG-&gt;sup        with csup\n    replace CAPPAG-&gt;tarifa_can with ctarcan\n    replace CAPPAG-&gt;tarifa     with ctarifa \n    replace CAPPAG-&gt;cantidad    with ccant \n    replace CAPPAG-&gt;importe     with cImporte \n    replace CAPPAG-&gt;asoc       with casoc   \n    replace CAPPAG-&gt;nomeji     with cnomeji\n    replace CAPPAG-&gt;numlab     with VAL(cnumlab)\n    replace CAPPAG-&gt;descon     with cdescon\n    replace CAPPAG-&gt;ciclo      with eciclo \n    replace CAPPAG-&gt;edi_ciclo  with ecicloe\n    replace CAPPAG-&gt;edi_zafra  with ezafra \n    replace CAPPAG-&gt;tip_pag    with etippag \n    replace CAPPAG-&gt;num_tp     with cnumtp  \n    replace CAPPAG-&gt;fecha      with dtos(cappag-&gt;fecexp)\n    replace CAPPAG-&gt;clave      with str(ccvenva,6,0)\n    replace CAPPAG-&gt;cvelab     with str(ccvenva,6,0)+cnumlab\n    replace CAPPAG-&gt;ntp_cve    with cnumtp+str(ccvenva,6,0)\n    commit\n//IMPPAGHDS()\n  REFREAVIS()\n  close cappag\n  return nil\n\n/*\nFUNCTION IMPPAGHDS()\nrep06()\nreturn nil\n*/\n\nfunction REFREAVIS()\nflg_1:=ctarifa:=eciclo:=CCANT:=CSUP:=CTARCAN:=CCICLO:=CIMPORTE:=0\ncnombre:=space(30)\ncNUMLAB:=space(4)\ncAsoc:=space(4)\ncdescon:=space(20)\noNlab:refresh()\noDlg:refresh()\noSay1:refresh()\noSay2:refresh()\noSay3:refresh()\noSay4:refresh()\noSay6:refresh()\noSay7:refresh()\noSay8:refresh()\noSay9:refresh()\noSay10:refresh()\noSay11:refresh()\n//oGet:refresh()\n//oGet1:refresh()\noGet2:refresh()\nreturn nil\n\nfunction muelabar(CNUMLAB,ccvenva,yacap)\noNlab:settext(cnumlab)\n//oNlab:Ctext(cnumlab)\nreturn(cnumlab)\n\nfunction vericap(cnumlab,ccvenva,yacap)\nkcvelab:=str(ccvenva,6,0)+cnumlab\nuse (patres+\"\\cappag\") alias klab new\nindex on klab-&gt;cvelab to c:\\temp\\avio\\aviores\\cvelab\nset index to c:\\temp\\cvelab\nIF klab-&gt;(dbSeek(kcvelab))\nYACAP:=1\nmsgstop(\"ya existe labor capturada\")\nclose klab\nretuRn (ok:=.f.,oget:setfocus())\nELSE\nYACAP:=0\nENDIF\nclose klab\n// osay12:settext(kcvelab)\nRETURN (YACAP,kcvelab)\n\nfunction vericta(cnumlab,ccvenva,yacap)\nqcvelab:=str(ccvenva,6,0)+cnumlab\nuse (patres+\"\\aviacum\") alias aviacum new\nindex on aviacum-&gt;cvelab to c:\\temp\\cvelaba\nset index to c:\\temp\\cvelaba\nIF aviacum-&gt;(dbSeek(qcvelab))\nYACTA:=1\nmsgstop(\"Ya Se Dio Credito Para Esta Labor\")\nclose aviacum\nretuRn (ok:=.f.,oget:setfocus())\nELSE\nYACTA:=0\nENDIF\nclose AVIACUM\nRETURN (YACTA,qcvelab)\n/*\nfunction verifide(yafide,ccvecon)\n//use (patres+\"\\fide\") alias fide new\n//index on aviacum-&gt;cvelab to c:\\temp\\fide\nset index to c:\\temp\\fide\nif !aviacum-&gt;(dbSeek(ccvecon))\nyafide:=1\nmsgstop(\"Productor Sin Fideicomiso\")\nyafide:=0\nRETURN (YAfide)\nendif\n*/\nfunction compsup(csup,csupest)\nif csup&gt;csupred\nmsgstop(\"Superficie Mayor Que La Estimada\")\nokeysup:=.f.\nreturn (okeysup,oGet2:setfocus())\nelse\nokeysup:=.t.\nreturn(okeysup)\nendif\n\nfunction FILAVIS()\nset filter to LABOR-&gt;id_prog=4\nreturn nil\n\nfunction pregunta(osay9)\n//  redefine say oSay9 var cImporte  id 114 of oDlg picture \"9999,999.99\" font oFont9 color rgb(78,20,240),rgb(0,150,151) FONT oFont9\n  If MsgYesNo( OemToAnsi(\"¨Desea Grabar El Registro\"),\"Grabar Registro\")\n                  (GRABAAVIS(),oGet:setfocus(),ok:=.t.)\n                  else\n              (REFREAVIS(),oGet:setfocus(),ok:=.t.)\n               endif\n               return nil\n\nfunction REDONDEA(cSup)\nW_SUP:=cSup\nC_LET:=STR(cSup,9,2)\nDEC:=SUBSTR(C_LET,8,2)\nif VAL(DEC) &lt;=20\n DECIM := 00/100\nENDIF\nif VAL(DEC) &gt;20.AND.VAL(DEC)&lt;=25\n DECIM := 25/100\nENDIF\nif VAL(DEC) &gt;25.AND.VAL(DEC)&lt;=35\n DECIM := 25/100\nENDIF\nif VAL(DEC) &gt;35.AND.VAL(DEC)&lt;=50\n DECIM := 50/100\nENDIF\nif VAL(DEC) &gt;50.AND.VAL(DEC)&lt;=65\n DECIM := 50/100\nENDIF\nif VAL(DEC) &gt;65.AND.VAL(DEC)&lt;=75\n DECIM := 75/100\nENDIF\nif VAL(DEC) &gt;75.AND.VAL(DEC)&lt;=85\n DECIM := 75/100\nENDIF\nif VAL(DEC) &gt;85\n DECIM := 1.00  \nENDIF\n HASREDON := INT(W_SUP)+DECIM\ncSup:=HASREDON\noGet2:ctext(csup)\noSay11:settext(cSup)\nRETURN (cSup)','',0,'IA==','oggz5kit',1,0,'',1246,0,0),(45024,9378,3,394,0,'207.219.124.134',1198787820,1,0,1,1,1,0,'','opos drivers for cash drawers, mage strip readers, printers','Has anyone an example of using the opos drivers for cash drawers, mage strip readers, printers etc.\n\nThanks In advance Mike','',0,'IA==','zrwu6ol3',1,0,'',394,0,0),(45025,9356,3,303,0,'72.220.181.80',1198787924,1,0,1,1,1,0,'','','Antonio,\n\n&gt;but our first requirement is to know if it supports RC files. \n\nI expect you already know this, but VS 2002 (which I have) can load and save RC files (however their format is quite different than those created by Workshop). So, I expect VS Shell is supposed to handle this, but as you say, it must be a bug. Hopefully there will be a fix soon.\n\nJames','',0,'IA==','18ag6nyy',1,0,'',303,0,0),(45027,9325,6,1201,0,'200.90.17.154',1198789874,1,0,1,1,1,0,'','','DAME EL SCRIPT DEL ERROR DE COMPILACION !!','',0,'IA==','zwqwgw2j',1,0,'',1201,0,0),(45028,9117,6,36,0,'164.77.81.210',1198790559,1,0,1,1,1,1,'','','Hola Jose Luis\n\nRevisa este post [url:r2w2rftq]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5205&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=[/url:r2w2rftq]\n\nbaja el archivo acceso.zip, descomprimelo y luego ejecutalo\ndbf\\wcta.exe ahi esta como hacerlo..\n\nEspero que te sirva','',0,'EA==','r2w2rftq',1,0,'',36,0,0),(45029,7672,3,303,0,'72.220.181.80',1198790851,1,0,1,1,1,0,'','','Otto,\n\nI\'m not sure I understand what you are trying to do. Wouldn\'t this work? Why do you need to check for focus?\n\nJames\n\n\n[code:21k5x6p5]GET oGetStart \nGET oGetEnd VALID &#40; check&#40;&#41; &#41; \n\nfunc check&#40;&#41; \n   if dStart &gt; dEnd \n      MsgInfo&#40;&quot; dStart &gt; dEnd &quot;&#41; \n      retu &#40;&#46;F&#46;&#41;\n   endif \nretu &#40;&#46;T&#46;&#41;[/code:21k5x6p5]','',0,'AIA=','21k5x6p5',1,0,'',303,0,0),(45030,7672,3,51,0,'80.122.88.242',1198792356,1,0,1,1,1,0,'','','For example: as default I use today and today + 7 days.\nIf I begin editing in the end get field and I choose a date before the start date there is not possibility to jump to  the start date to change this value too.\nRegards,\nOtto','',0,'AIA=','1slczkvc',1,0,'',51,0,0),(45031,7672,3,36,0,'164.77.81.210',1198792754,1,0,1,1,1,1,'','','Check this link\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6444&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=ischange\">http://fivetechsoft.com/forums/viewtopi ... t=ischange</a><!-- m -->','',0,'AIA=','2fxqahkv',1,0,'',36,0,0),(45032,9378,3,51,0,'80.122.88.242',1198793881,1,0,1,1,1,0,'','','Regards,\nOtto\n\nfunc ladeauf\n\n    LOCAL oPrn\n    LOCAL cPrnName   :=   GetPvProfString(  \"LadeDruck\", \"DruckerName\", \"Generic / Text Only\", \".\\INI\\TOUCH.INI\" )\n    LOCAL oPrnDos\n    LOCAL oFntNormal\n    *----------------------------------------------------------------\n    if GetPvProfString( \"Kassenlade\", \"INSTALLIERT\" , \"N\", \".\\INI\\TOUCH.INI\" ) = \"J\"\n      msginfo(GetPvProfString( \"Kassenlade\", \"UEBERDRUCKER\" , \"N\", \".\\INI\\TOUCH.INI\" ))\n        if GetPvProfString( \"Kassenlade\", \"UEBERDRUCKER\" , \"N\", \".\\INI\\TOUCH.INI\" ) =\"J\"\n            oPrnDOS := TDosPrn():New(\"LPT1\")\n            *Print #1, Chr$(27); Chr$(112); Chr$(0); Chr$(15); Chr$(15);\n                *oPrnDOS:write(chr(27)+chr(112)+chr(15)+chr(15))\n            oPrnDOS:write(chr(27)+chr(112)+chr(0)+chr(10)+chr(100))\n            oPrnDOS:cFormFeed:=\"0\"\n            oPrnDOS:EndPage()                   // optional\n            oPrnDOS:End()\n        else\n            oPrn := PrintBegin(\"DRUCKER\", .f., .f.,cPrnName )\n            PAGE\n            DEFINE FONT oFntNormal NAME \"ARIAL\" SIZE 16,40\n            oPrn:Say( 0,5 , (chr(27)+chr(112)+chr(0)+chr(10)+chr(100))  , oFntNormal  )\n            ENDPAGE\n            ENDPRINT\n            RELEASE FONT oFntNormal\n        ENDIF\n    ENDIF\n\nRETURN nil','',0,'AIA=','3senddt6',1,0,'',51,0,0),(45033,7672,3,303,0,'72.220.181.80',1198794096,1,0,1,1,1,0,'','','Otto,\n\n&gt;If I begin editing in the end get field and I choose a date before the start date there is not possibility to jump to the start date to change this value too.\n\nThere seems to be a circular logic problem here. When start &gt; end then EITHER the start is wrong, the end is wrong, or they are both wrong. So doing a valid on the end date presents you with the problem of figuring out which date needs to be changed. Jumping to the start date MAY be the right solution or not--there is no way to know. Plus, as you pointed out, you can\'t leave the end field until it is valid and it can\'t be valid unless it is greater than the start. Thus the Catch-22.\n\nI would color the background of both fields pink when start &gt; end, and popup a tooltip explaining the problem. I would use bPostEdit to trigger this action on both GETs. This way the user can edit either field to get the backgrounds to turn white again (valid). I wouldn\'t use a VALID since you want the user to be able to exit one field to edit the other. And they can go back and forth between the fields until they are right. The color and the tooltip give them visual indications of the problem without presenting them with a msg that they have to click to get rid of.\n\nAlso you could do a validity check when the dialog is closed to make sure the two fields are valid before saving.\n\nJames','',0,'AIA=','1mjmsu9q',1,0,'',303,0,0),(45034,9378,3,51,0,'80.122.88.242',1198794205,1,0,1,1,1,0,'','','This is for DOS if you use windows then I does not matter which printer you address.\n oPrnDOS := TDosPrn():New(\"LPT1\")\n\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(chr(27)+chr(33)+chr(32))\n                            oPrnDOS:write(cFirma )\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(chr(27)+chr(64))\n                            oPrnDOS:Newline()\n\n                            oPrnDOS:write(space((42 - len(cCompany)) /2) + cCompany )\n\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(space((42 - len(cAddr1)) /2) +cAddr1     )\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(space((42 - len(cAddr2)) /2) +cAddr2     )\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(space((42 - len(cATU)) /2) +cATU       )\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(\"------------------------------------------\")\n                            oPrnDOS:Newline()\n\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(chr(27)+chr(33)+chr(32))\n                            oPrnDOS:write(\"RECHNUNG\")\n                            oPrnDOS:Newline()\n                            oPrnDOS:write(chr(27)+chr(64))\n                  \n\n  oPrnDOS:cFormFeed := \"0\"\n                    oPrnDOS:EndPage()           // optional\n                    oPrnDOS:End()','',0,'AIA=','23ww3dtq',1,0,'',51,0,0),(45035,9378,3,51,0,'80.122.88.242',1198794676,1,0,1,1,1,0,'','','This is code I use for the display.\n\n\n\n\nfunc f_KUNDENDISPLAY\n   #ifdef KUNDENDISPLAY\n   LOCAL lReady\n   LOCAL nDelTime := 1\n   *--------------------------------------------\n\n   if aSetup[4]=\"J\"                             //GetPvProfString( \"SETUPDATEN\",\"DSO800\", \"N\", \".\\INI\\TOUCH.INI\" )\n\n      WriteComm(  DSP_COM, Chr(4) + Chr(1) + Chr(67) + Chr(49) + Chr(88) )\n      WriteComm(  DSP_COM, Chr(23) )\n      WriteComm(  DSP_COM, Chr(4) + Chr(1) + Chr(80) + \"1\" )\n      WriteComm(  DSP_COM, Chr(23) )\n      WriteComm(  DSP_COM, DISPLINE1  )\n\n      WriteComm(  DSP_COM, Chr(4) + Chr(1) + Chr(80) + CHR(70) )\n      WriteComm(  DSP_COM, Chr(23) )\n      WriteComm(  DSP_COM, DISPLINE2  )\n\n   ELSE\n\n      lReady  := SetCommState( cDcb )\n\n      WriteComm(  DSP_COM, Chr(27) + Chr(64) )\n\n      WriteComm(  DSP_COM, Chr(12) )\n      WriteComm(  DSP_COM, Chr(11) )\n      WriteComm(  DSP_COM, DISPLINE1  )\n      WriteComm(  DSP_COM, Chr(31) + Chr(36) + chr(1) + chr(2)    )\n      WriteComm(  DSP_COM, DISPLINE2  )\n   ENDIF\n\n\n\n   #ENDIF\n\nRETURN nil\n\nfunc f_EIN_KUNDENDISPLAY()\n   #ifdef KUNDENDISPLAY\n   LOCAL lReady\n   LOCAL nDelTime := 1\n   *--------------------------------------------\n   DSP_COM := OpenCOMM( GetPvProfString( \"SETUPDATEN\",\"DISPLAY\" ,\"COM2\" , \".\\INI\\TOUCH.INI\" ), 1024, 128 )\n   if ! BuildCommDcb( GetPvProfString( \"SETUPDATEN\",\"DISPLAY\" ,\"COM2\" , \".\\INI\\TOUCH.INI\" )+\":9600,n,8,1\", @cDcb )\n      nError = GetCommError( DSP_COM )\n      MsgInfo( \"BuildCommDcb Error: \" + Str( nError ) )\n   ENDIF\n   lReady  := SetCommState( cDcb )\n   WriteComm(  DSP_COM, Chr(27) + Chr(64) )\n\n\n   IF GetPvProfString( \"SETUPDATEN\",\"DSO800\", \"N\", \".\\INI\\TOUCH.INI\" )=\"J\"\n      WriteComm(  DSP_COM, Chr(4) + Chr(1) + Chr(67) + Chr(49) + Chr(88) )\n      WriteComm(  DSP_COM, Chr(23) )\n      WriteComm(  DSP_COM, Chr(4) + Chr(1) + \"P\" + \"1\" )\n      WriteComm(  DSP_COM, Chr(23) )\n\n      WriteComm(  DSP_COM, Chr(4) + Chr(1) + \"P\" + chr(75) )\n      WriteComm(  DSP_COM, Chr(23) )\n\n\n   else\n      WriteComm(  DSP_COM, Chr(12) )\n      WriteComm(  DSP_COM, Chr(11) )\n   ENDIF\n\n\n   #ENDIF\nRETURN nil\n\n\n\nfunc f_AUS_KUNDENDISPLAY()\n   #ifdef KUNDENDISPLAY\n   LOCAL lReady\n   LOCAL nDelTime := 1\n   *--------------------------------------------\n\n   DelPrnt(nDelTime)\n   CloseComm(DSP_COM)\n   #ENDIF\nRETURN nil\n\n\nstatic function DelPrnt(nDelTime)\n   LOCAL oTimer,lWaitIng := .F.,oDlg\n\n   nDelTime := nDelTime * 1\n   DEFINE DIALOG oDlg RESOURCE \"TELEFON\"\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n      ON INIT(oTimer := TTimer():New( nDelTime,{||oTimer:Deactivate(),lWaiting := .T.,oDlg:End()},oDlg ),oTimer:Activate()) valid(lWaiting)\n\nRETURN(nil)\n\n\n\n\n#ifdef KUNDENDISPLAY\nf_EIN_KUNDENDISPLAY()\nDISPLINE1:=   rg_umsetz(20,left(GetPvProfString( \"DISPLAY\", \"Display11\",\"\" ,\".\\INI\\TOUCH.INI\" ),20))\nDISPLINE2:=   rg_umsetz(20,left(GetPvProfString( \"DISPLAY\", \"Display12\",\"\" ,\".\\INI\\TOUCH.INI\" ),20))\nf_KUNDENDISPLAY(DISPLINE1,DISPLINE2)\nf_AUS_KUNDENDISPLAY()\n#ENDIF\n\n\n\n\nfunc rg_umsetz(nBezLaenge,wort)\n   wort := ansitooem(left(wort,nBezLaenge))\nRETURN (wort)','',0,'','2vndhwt1',1,0,'',51,0,0),(45036,9345,3,868,0,'219.64.121.60',1198795046,1,0,1,1,1,1,'','','Carried out the changes. Tested both downloaded exe and exe built by me. With these changes the problems noticed till now are addressed.','',0,'','a7s3nbds',1,0,'',868,0,0),(45037,7672,3,51,0,'80.122.88.242',1198795083,1,0,1,1,1,0,'','','Thank you James for you explanation. I will give your suggestion a try.','',0,'','34vx5p72',1,0,'',51,0,0),(45038,9325,6,891,0,'201.140.184.46',1198795311,1,0,1,1,1,0,'','','[quote=&quot;JOSEMAR&quot;:3huoayc0]hola angel yo qui de nuevo.\nno le entiendo pero te dejo mi fuente haber se lehayas , me da error de compilacion en el arreglo\n\n\nMEMVAR PATRES\nFunction AVI000()\nlocal oSay, oSay1, oSay2,  oSay3, oSay4, oSay5, oSay6, oSay7, oSay8\nlocal  oSay9, oSay10, oSay11, osay12, oSay13, oSay14, oSay15, oSay16, oSay17\nlocal oGet1, oGet2,  oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet\nLOCAL oFont9, oBtm, oBtm2, oFont10\nLOCAL oBmp, oBmp1, oBmp2, oBarrbtm\nlocal oTbmp\nlocal oTbmp1\nlocal oBtnBmp\nlocal oBtnBmp2\nlocal oBtnBmp3\nlocal oBtnBmp4\nlocal oNlab\nlocal oIcono3\nlocal obrush2\npublic oBmp3\nYACAP:=0\nYACTA:=0\nyafide:=0\nokeysup:=.t.\n cNumlab:=space(4)\n//cNumlab:=0\nkcvelab:=space(4)\nqcvelab:=space(4)\ncNumlab2:=0 \nCNOMBRE:=space(40)\nCDESCON:=SPACE(20)\nCconso:=space(6)\nCcvecon:=space(6)\ncasoc:=space(4)\ncnomeji:=space(20)\ncsupest:=0\ncsupred:=0\necicloe:=space(4)\nezafra:=space(7)\netippag=space(15)\nfuera3=.f.\nGRABARS:=.f.\ncnumtp:=flg_1:=nU:=regs:=Ctarifa:=CCVENVA:=eciclo:=CCANT:=ccant2:=CSUP:=CTARCAN:=CCICLO:=CIMPORTE:=0\ncfecexp:=date()\nGRABARS:=.f.\nok:=.f.\nok1:=.f.\nafile2:={}\nUSE (patres+\"\\maelab\")   ALIAS maelab\n//INDEX ON maelab-&gt;CVElab to c:\\temp\\MAELAB \n//INDEX ON maelab-&gt;N_LAB to c:\\temp\\MAELAB \n//set index to c:\\temp\\MAELAB\nINDEX ON maelab-&gt;descon to c:\\temp\\LABOR \nset index to c:\\temp\\LABOR\n// close data\ncTipo:=(maelab)-&gt;descon\ndo while (maelab)-&gt;(!eof())\naadd(afile2,subs(maelab)-&gt;descon,1,2)\n(maelab)-&gt;(dbskip())\nenddo\n                                     \nUSE (patres+\"\\maepro\")   ALIAS maepro\nINDEX ON maepro-&gt;CVENVA to c:\\temp\\MAEPRO\nset index to c:\\temp\\maepro\nclose data\n\nUSE (patres+\"\\fide\")     ALIAS fide  \nINDEX ON fide-&gt;claveconso to c:\\temp\\fide  \nset index to c:\\temp\\fide  \nclose data\n\nUSE (patres+\"\\maelab\")   ALIAS maelab\nINDEX ON maelab-&gt;CVElab to c:\\temp\\MAELAB \n//INDEX ON maelab-&gt;N_LAB to c:\\temp\\MAELAB \nset index to c:\\temp\\MAELAB\nINDEX ON maelab-&gt;descon to c:\\temp\\LABOR \nset index to c:\\temp\\LABOR\nclose data\n\nUSE (patres+\"\\maepro\") alias maepro shared new\n set index to c:\\temp\\maepro\n\nUSE (patres+\"\\fide\")   alias fide   shared new\n set index to c:\\temp\\fide  \n\nUSE (patres+\"\\maelab\") alias maelab shared new\nset index to c:\\temp\\MAELAB\n\nUSE (patres+\"\\maelab\") alias labor shared new\nFILAVIS()\nset index to c:\\temp\\LABOR\n\n\n// use &amp;patres\\CAPPAG alias CAPPAG  shared new\n\n\nCAPPAG()\n\nDbCloseAll()\n\nreturn nil\n\nfunction CAPPAG()\n\nDEFINE FONT oFont9 NAME \"arial\" SIZE 05,14 BOLD\n\n\nDO WHILE .t.\nDEFINE BRUSH oBrush2 style null\n\n// DEFINE BITMAP oBmp3 resource \"lupa\"\n\nDEFINE BITMAP oBmp resource \"pintura5\"\n\nDEFINE ICON oIcono3 resource \"logo1\"\n\nDEFINE BITMAP oBmp1 resource \"pintura1\"\n\n\nDEFINE DIALOG oDlg RESOURCE \"AVI000\"  OF oVentana icon oIcono3;\n                  brush obrush2  icon oicono3  font oFont9\n\n   redefine say oSay1 id 101 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)  \n   redefine say oSay2 id 104 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n   redefine say oSay3 id 106 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n   redefine say oSay4 id 108 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n   redefine say oSay6 id 113 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)               \n   redefine say oSay13 id 123 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n   redefine say oSay15 id 125 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)               \noDlg:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }\noIcono3:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oIcono3:hIcon ) }\n// oVentana:bPainted := { | hDC | InstertBmp( hDC , oBmp3 , oVentana ) }\n\n\n  REDEFINE GET oGet VAR CCVENVA picture \"999999\" ID 102 OF oDlg;\n   COLOR rgb(78,20,240),rgb(0,150,151) font oFont9;\n             VALID empty(ccvenva).or.Eval ( { ||;\n                   IF (CCVENVA &lt; 100000,;\n                   (msgStop (\"La longitud de la cuenta debe ser de 6 digitos\"), ok:=.F.),;\n                   IF (!maepro-&gt;(dbSeek(CCVENVA)),;\n                   (msgStop (\"No Existe Productor \"), ok:=.F. ),;\n                   (oSay7:settext(oemtoansi(cnombre:=maepro-&gt;nombre1)),;\n                   (oSay14:settext(csupest:=maepro-&gt;has_est)),;\n                   (oSay16:settext(csupred:=maepro-&gt;hasest_red)),;\n                   (oSay10:settext(casoc:=maepro-&gt;asoc),ok:=.t.),; \n                   IF (!fide-&gt;(dbSeek(MAEPRO-&gt;CLAVECONSO)),;\n                   (msgStop(\"Productor Sin Fideicomiso\"), .F. ),(.t.)) )))})\n\n//                   (oSay10:settext(casoc:=maepro-&gt;asoc)),(cconso:=maepro-&gt;claveconso),.t.) ))) } )\n  REDEFINE SAY oSay7 var Cnombre id 103 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE SAY oSay10 var Casoc id 117 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n\n  REDEFINE SAY oSay14 var Csupest id 124 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE SAY oSay16 var Csupred id 126 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE GET oGet1 VAR Cfecexp  ID 105 of oDlg COLOR rgb(78,20,240),rgb(0,150,151) font oFont9\n\n  REDEFINE GET oGet2 VAR Csup  picture \"9999.99\" ID 107 of oDlg  COLOR rgb(78,20,240),rgb(0,150,151) font oFont9;\n             VALID  Eval ( { ||;\n                   IF (Csup = 0,;\n                      (msgStop (\"La superfice Debe Ser Mayor Que Cero\"),.F.),;\n                      ((redondea(csup),compsup(csup,csupest),oGet2:cText(cSup),oSay11:settext(cSup)),okeysup))}) \n\n  REDEFINE SAY oSay11 var cSup  id 122 of oDlg picture \"999.99\"  font oFont9 color rgb(78,20,240),rgb(0,150,151) \n\n// ALERT(STR(LABOR-&gt;(FIELDPOS(\"CVELAB\"))))\n  REDEFINE combobox oNlab  VAR ctipo  items afile2 ID 109 OF ODLG COLOR rgb(78,20,240),rgb(0,150,151) picture \"@x(20)\" ;\n   VALID Eval ( { || (oNlab:settext(cnumlab)),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),;\n                   if (YACAP=1,((MSGSTOP(\"Ya Se Capturo Esta Labor Para Este Productor\"),ok1:=.f.),(ok1:=.T.)),;\n                   IF (!maelab-&gt;(dbSeek(cnumlab)),;\n                   (msgStop (\"No Existe Labor\"),ok1:=.F. ),;\n                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),;\n                   (pregunta(osay9),oGet:setfocus()),(ok1:=.T.)) ) ) } )\n\n/*\n// ALERT(STR(LABOR-&gt;(FIELDPOS(\"CVELAB\"))))\n  REDEFINE combobox oNlab  VAR ctipo  items afile2 ID 109 OF ODLG COLOR rgb(78,20,240),rgb(0,150,151) picture \"@x(20)\" ;\n   alias \"labor\" itemfield \"CVELAB\" listfield \"descon\" ;\n   VALID Eval ( { || (oNlab:settext(cnumlab)),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),;\n                   if (YACAP=1,((MSGSTOP(\"Ya Se Capturo Esta Labor Para Este Productor\"),ok1:=.f.),(ok1:=.T.)),;\n                   IF (!maelab-&gt;(dbSeek(cnumlab)),;\n                   (msgStop (\"No Existe Labor\"),ok1:=.F. ),;\n                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),;\n                   (pregunta(osay9),oGet:setfocus()),(ok1:=.T.)) ) ) } )\n*/\n//   VALID Eval ( { || muelabar(CNUMLAB),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),;\n//                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n//                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),;\n//                   (pregunta(osay9),oGet:setfocus()),(.T.)) ) ) } )\n//  REDEFINE SAY oSay12 var kcvelab id 123 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n  REDEFINE SAY oSay8 var Cdescon id 110 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n\n  redefine say oSay9 var cImporte  id 114 of oDlg picture \"9999,999.99\" font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n REDEFINE BTNBMP oBtnBmp2 ID 116 OF odlg RESOURCE \"SALIDA\" noborder;\n  ACTION (FUERA3:=.t.,odlg:End())\noBtnBmp2:nClrpane=rgb(0,150,151)\n/*\n REDEFINE BTNBMP oBtnBmp3 ID 119 OF odlg RESOURCE \"CANCELAR\" noborder;\n  ACTION (fuera3:=.t.,REFREAVIS(),oGet:setfocus())\noBtnBmp3:nClrpane=nRGB(40,168,34)\n*/\n REDEFINE BTNBMP oBtnBmp4 ID 120 OF odlg prompt \"Nvo. Reg.\" noborder Font oFont9;\n  ACTION (fuera3:=.t.,REFREAVIS(),oGet:setfocus())\n// odlg:blostfocus={ || oBtnBmp4:nClrpane=nRGB(249,29,83)}\n\noBtnBmp4:nClrpane=rgb(0,150,151) \n\nACTIVATE DIALOG oDlg CENTER  \n/*\n  on paint (oGet:setfocus())\n           If GetKeyState(VK_ESCAPE).or.empty(CCVENVA)\n              exit\n           endif\n*/\n//               else\n//          GRABAAVIS()\nreturn .t.\nenddo\n\nrelease font oFont9\noFont3:end()\n\nRETURN NIL\n\nFUNCTION MUEVEDATAS()\nctarifa:=maelab-&gt;tarifa\ncciclo:=maelab-&gt;ciclo\nctarcan:=maelab-&gt;tarifa_can\neciclo:=maelab-&gt;ciclo\necicloe:=maelab-&gt;edi_ciclo\nezafra:=maelab-&gt;edi_zafra\netippag:=maelab-&gt;tip_pag\ncnumtp:=maelab-&gt;num_tp\nRETURN (CTARIFA,CTARCAN)\n\n/*\nfunction CALIMPAS(CCANT,CTARIFA)\n  cImporte:=cCant*ctarifa\n   oSay9:settext(cimporte)\nreturn (cImporte)\n*/\n\nfunction GRABAAVIS()\nif (ccvenva=0.or.cSup=0.or.cnombre=space(40).or.cdescon=space(20))\n   (msgStop (\"Registro En Blanco\"), ok:=.F.)\n   return .f.\n   endif\n use ÿ(patres+\"\\CAPPAG\") alias CAPPAG  new\n\n     CAPPAG-&gt;(dbAppend())\n    replace CAPPAG-&gt;CVENVA     with CCVENVA\n    replace CAPPAG-&gt;nombre1    with cnombre\n    replace CAPPAG-&gt;fecexp     with cfecexp\n    replace CAPPAG-&gt;sup        with csup\n    replace CAPPAG-&gt;tarifa_can with ctarcan\n    replace CAPPAG-&gt;tarifa     with ctarifa \n    replace CAPPAG-&gt;cantidad    with ccant \n    replace CAPPAG-&gt;importe     with cImporte \n    replace CAPPAG-&gt;asoc       with casoc   \n    replace CAPPAG-&gt;nomeji     with cnomeji\n    replace CAPPAG-&gt;numlab     with VAL(cnumlab)\n    replace CAPPAG-&gt;descon     with cdescon\n    replace CAPPAG-&gt;ciclo      with eciclo \n    replace CAPPAG-&gt;edi_ciclo  with ecicloe\n    replace CAPPAG-&gt;edi_zafra  with ezafra \n    replace CAPPAG-&gt;tip_pag    with etippag \n    replace CAPPAG-&gt;num_tp     with cnumtp  \n    replace CAPPAG-&gt;fecha      with dtos(cappag-&gt;fecexp)\n    replace CAPPAG-&gt;clave      with str(ccvenva,6,0)\n    replace CAPPAG-&gt;cvelab     with str(ccvenva,6,0)+cnumlab\n    replace CAPPAG-&gt;ntp_cve    with cnumtp+str(ccvenva,6,0)\n    commit\n//IMPPAGHDS()\n  REFREAVIS()\n  close cappag\n  return nil\n\n/*\nFUNCTION IMPPAGHDS()\nrep06()\nreturn nil\n*/\n\nfunction REFREAVIS()\nflg_1:=ctarifa:=eciclo:=CCANT:=CSUP:=CTARCAN:=CCICLO:=CIMPORTE:=0\ncnombre:=space(30)\ncNUMLAB:=space(4)\ncAsoc:=space(4)\ncdescon:=space(20)\noNlab:refresh()\noDlg:refresh()\noSay1:refresh()\noSay2:refresh()\noSay3:refresh()\noSay4:refresh()\noSay6:refresh()\noSay7:refresh()\noSay8:refresh()\noSay9:refresh()\noSay10:refresh()\noSay11:refresh()\n//oGet:refresh()\n//oGet1:refresh()\noGet2:refresh()\nreturn nil\n\nfunction muelabar(CNUMLAB,ccvenva,yacap)\noNlab:settext(cnumlab)\n//oNlab:Ctext(cnumlab)\nreturn(cnumlab)\n\nfunction vericap(cnumlab,ccvenva,yacap)\nkcvelab:=str(ccvenva,6,0)+cnumlab\nuse (patres+\"\\cappag\") alias klab new\nindex on klab-&gt;cvelab to c:\\temp\\avio\\aviores\\cvelab\nset index to c:\\temp\\cvelab\nIF klab-&gt;(dbSeek(kcvelab))\nYACAP:=1\nmsgstop(\"ya existe labor capturada\")\nclose klab\nretuRn (ok:=.f.,oget:setfocus())\nELSE\nYACAP:=0\nENDIF\nclose klab\n// osay12:settext(kcvelab)\nRETURN (YACAP,kcvelab)\n\nfunction vericta(cnumlab,ccvenva,yacap)\nqcvelab:=str(ccvenva,6,0)+cnumlab\nuse (patres+\"\\aviacum\") alias aviacum new\nindex on aviacum-&gt;cvelab to c:\\temp\\cvelaba\nset index to c:\\temp\\cvelaba\nIF aviacum-&gt;(dbSeek(qcvelab))\nYACTA:=1\nmsgstop(\"Ya Se Dio Credito Para Esta Labor\")\nclose aviacum\nretuRn (ok:=.f.,oget:setfocus())\nELSE\nYACTA:=0\nENDIF\nclose AVIACUM\nRETURN (YACTA,qcvelab)\n/*\nfunction verifide(yafide,ccvecon)\n//use (patres+\"\\fide\") alias fide new\n//index on aviacum-&gt;cvelab to c:\\temp\\fide\nset index to c:\\temp\\fide\nif !aviacum-&gt;(dbSeek(ccvecon))\nyafide:=1\nmsgstop(\"Productor Sin Fideicomiso\")\nyafide:=0\nRETURN (YAfide)\nendif\n*/\nfunction compsup(csup,csupest)\nif csup&gt;csupred\nmsgstop(\"Superficie Mayor Que La Estimada\")\nokeysup:=.f.\nreturn (okeysup,oGet2:setfocus())\nelse\nokeysup:=.t.\nreturn(okeysup)\nendif\n\nfunction FILAVIS()\nset filter to LABOR-&gt;id_prog=4\nreturn nil\n\nfunction pregunta(osay9)\n//  redefine say oSay9 var cImporte  id 114 of oDlg picture \"9999,999.99\" font oFont9 color rgb(78,20,240),rgb(0,150,151) FONT oFont9\n  If MsgYesNo( OemToAnsi(\"¨Desea Grabar El Registro\"),\"Grabar Registro\")\n                  (GRABAAVIS(),oGet:setfocus(),ok:=.t.)\n                  else\n              (REFREAVIS(),oGet:setfocus(),ok:=.t.)\n               endif\n               return nil\n\nfunction REDONDEA(cSup)\nW_SUP:=cSup\nC_LET:=STR(cSup,9,2)\nDEC:=SUBSTR(C_LET,8,2)\nif VAL(DEC) &lt;=20\n DECIM := 00/100\nENDIF\nif VAL(DEC) &gt;20.AND.VAL(DEC)&lt;=25\n DECIM := 25/100\nENDIF\nif VAL(DEC) &gt;25.AND.VAL(DEC)&lt;=35\n DECIM := 25/100\nENDIF\nif VAL(DEC) &gt;35.AND.VAL(DEC)&lt;=50\n DECIM := 50/100\nENDIF\nif VAL(DEC) &gt;50.AND.VAL(DEC)&lt;=65\n DECIM := 50/100\nENDIF\nif VAL(DEC) &gt;65.AND.VAL(DEC)&lt;=75\n DECIM := 75/100\nENDIF\nif VAL(DEC) &gt;75.AND.VAL(DEC)&lt;=85\n DECIM := 75/100\nENDIF\nif VAL(DEC) &gt;85\n DECIM := 1.00  \nENDIF\n HASREDON := INT(W_SUP)+DECIM\ncSup:=HASREDON\noGet2:ctext(csup)\noSay11:settext(cSup)\nRETURN (cSup)[/quote:3huoayc0]\n\n\n\nAmigo revisa bien tu codigo y los alias MAELAB repetidos....debe funcionar sin ningun problema el combobox y en la caja de Dialogos ya no se usa al principio DO WHILE .T.','',0,'gA==','3huoayc0',1,0,'',891,0,0),(45039,9345,3,868,0,'219.64.121.60',1198795327,1,0,1,1,1,1,'','','Subject to further tests, it appears that both inline edit and listbox edits are working fairly well subect to (1) the valid blocks not popping up messages or dialogs and (2) click on button from listbox is not activating the button action.','',0,'gA==','3fvd67b5',1,0,'',868,0,0),(45040,7672,3,303,0,'72.220.181.80',1198795701,1,0,1,1,1,0,'','','Otto,\n\nHere is some sample code to get you started.\n\nJames\n\n[code:199gd3kt]#include &quot;wcolor&#46;ch&quot;\n\n#define COLOR_CRITICAL Rgb&#40;255,197,255&#41; // backround color of critical data - Pink\n\n\noGetStart&#58;bPostEdit &#58;= &#123;|oGetStart,oGetEnd| checkDates&#40;oGetStart,oGetEnd&#41; &#125;\noGetEnd&#58;bPostEdit &#58;=   &#123;|oGetStart,oGetEnd| checkDates&#40;oGetStart,oGetEnd&#41; &#125;\n\n\nfunction checkDates&#40;oGetStart,oGetEnd&#41;\n   if oGetStart&#58;varGet&#40;&#41; &gt; oGetEnd&#58;varGet&#40;&#41;\n      oGetStart&#58;setColor&#40; COLOR_TEXT, COLOR_CRITICAL &#41;\n      oGetEnd&#58;setColor&#40; COLOR_TEXT, COLOR_CRITICAL &#41;\n   else\n      oGetStart&#58;setColor&#40; COLOR_TEXT, COLOR_WINDOW &#41;\n      oGetEnd&#58;setColor&#40; COLOR_TEXT, COLOR_WINDOW &#41;\n   endif\n   oGetStart&#58;refresh&#40;&#41;\n   oGetEnd&#58;refresh&#40;&#41;\nreturn nil[/code:199gd3kt]','',0,'AIA=','199gd3kt',1,0,'',303,0,0),(45041,9379,3,34,0,'68.5.217.82',1198796007,1,0,1,1,1,1,'','Dialog/Window merge','OK ... here is probably a basic question but I\'m suffering a very stuffy head today ...\n\nI have some controls that work OK in a window but not a dialog.  I have some controls that work OK in a dialog, but not a window.  I need to use both concurrently.\n\nThis is a non-MDI application !\n\nI tried opening the window and dialog together.  A button bar (OK on either ) and calendar control (which won\'t work on a dialog ) exist on the window.  Thats no problem.  Now I want to also use the dialog.  It contains edit fields, buttons, and a TSBrowse ( which doesn\'t want to work on a window.  The problem is getting the dialog into a decent position.  I also need to then be able to click on window or dialog objects at any time.\n\nI tried:\n\nDEFINE WINDOW ...\nDEFINE DIALOG ...\n\nACTIVATE DIALOG NOWAIT\nACTIVATE WINDOW\n\nIt shows, but no matter what I do, I\'m not successful getting the dialog to get into a position other then the upper left corner which overshadows the window controls.\n\nSo, anyone have some sample code that shows bringing up a dialog in a window, and using it cleanly, with repositioning ?\n\nThanks.','',0,'AIA=','32gdwpfd',1,0,'',34,0,0),(45042,7672,3,303,0,'72.220.181.80',1198796403,1,0,1,1,1,0,'','','Otto,\n\nHere is an improved version--not tested.\n\nJames\n[code:3vr22oc1]\n#include &quot;wcolor&#46;ch&quot;\n\n#define COLOR_CRITICAL Rgb&#40;255,197,255&#41; // backround color of critical data - Pink\n\n\noGetStart&#58;bPostEdit &#58;= &#123;|oGetStart,oGetEnd| checkDates&#40;oGetStart,oGetEnd&#41; &#125;\noGetEnd&#58;bPostEdit &#58;=   &#123;|oGetStart,oGetEnd| checkDates&#40;oGetStart,oGetEnd&#41; &#125;\n\n\nfunction checkDates&#40;oGetStart,oGetEnd&#41;\n   if oGetStart&#58;varGet&#40;&#41; &gt; oGetEnd&#58;varGet&#40;&#41; &#46;and&#46; ! empty&#40; oGetEnd&#58;varGet&#40;&#41; &#41;\n      oGetStart&#58;setColor&#40; COLOR_TEXT, COLOR_CRITICAL &#41;\n      oGetEnd&#58;setColor&#40; COLOR_TEXT, COLOR_CRITICAL &#41;\n      oGetStart&#58;cTooltip&#58;= &quot;Start date cannot be later than end date&#46;&quot;\n      oGetEnd&#58;cTooltip&#58;=&quot;Start date cannot be later than end date&#46;&quot;\n   else\n      oGetStart&#58;setColor&#40; COLOR_TEXT, COLOR_WINDOW &#41;\n      oGetEnd&#58;setColor&#40; COLOR_TEXT, COLOR_WINDOW &#41;\n      oGetStart&#58;cTooltip&#58;=nil\n      oGetEnd&#58;cTooltip&#58;=nil\n   endif\n   oGetStart&#58;refresh&#40;&#41;\n   oGetEnd&#58;refresh&#40;&#41;\nreturn nil[/code:3vr22oc1]','',0,'AIA=','3vr22oc1',1,0,'',303,0,0),(45043,7672,3,303,0,'72.220.181.80',1198796893,1,0,1,1,1,0,'','','Otto,\n\nSilly me. You can also do this with a VALID clause.\n\nredefine get oGetStart...valid checkDates(oGetStart,oGetEnd)\n\nThen just return .t. from the checkDates function (instead of nil). It should work just the same as using bPostEdit.\n\nJames','',0,'AIA=','yuz1e9u6',1,0,'',303,0,0),(45044,9379,3,303,0,'72.220.181.80',1198798792,1,0,1,1,1,0,'','','Tim,\n\nI\'m not clear. Are you trying to display controls on a window and also a dialog on the same window? Are you using a splitter? If not, why not?\n\nCan you provide a small sample showing what you are trying to do? Or maybe at least a screenshot?\n\nJames','',0,'AIA=','2yxby0du',1,0,'',303,0,0),(45045,9379,3,303,0,'72.220.181.80',1198798968,1,0,1,1,1,0,'','','Tim,\n\nTSBrowse works on a window for me.\n\nJames\n\n[code:2kx4ze87]#include &quot;fivewin&#46;ch&quot;\n#include &quot;tsbrowse&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd, oLbx, oCustomer\n\n   oCustomer&#58;= TData&#40;&#41;&#58;new&#40;,&quot;customer&quot;&#41;\n   oCustomer&#58;use&#40;&#41;\n\n   define window oWnd\n\n   @0,0 browse oLbx\n\n   add column to oLbx header &quot;First&quot; data oCustomer&#58;first\n   add column to oLbx header &quot;Last&quot; data oCustomer&#58;last\n\n   oLbx&#58;bSkip &#58;= &#123; | nRecs | oCustomer&#58;skipper&#40; nRecs &#41; &#125;\n\n   oWnd&#58;oClient&#58;= oLbx\n\n   activate window oWnd\n\nreturn nil[/code:2kx4ze87]','',0,'AIA=','2kx4ze87',1,0,'',303,0,0),(45046,9380,3,49,0,'62.13.172.68',1198802034,1,0,1,1,1,1,'','XBROWSE WATERMATE','Dear friends,\nis possible insert an image on background on the Xbrowse ?','',0,'AIA=','16dk8mud',1,0,'',49,0,0),(45047,9378,3,49,0,'62.13.172.68',1198802192,1,0,1,1,1,1,'','','otto which cash and touch monitor you use ?\n( model and macfature)\n\nthanks','',0,'AIA=','2fhtb6to',1,0,'',49,0,0),(45048,9379,3,34,0,'68.5.217.82',1198802541,1,0,1,1,1,1,'','Window &amp; dialog','I\'ll have to take another run at it shortly with TSBrowse.  I tried blocking all of the code except for a couple of items, and then starting a window with one control, and trying to add TSBrowse ... but it would only show me a plain white box ( small ).\n\nI think I\'ll start building up from the empty basic window instead of commenting out several hundred lines of code ... maybe that will help me resolve this ...\n\nTim','',0,'AIA=','1l1gxez0',1,0,'',34,0,0),(45049,9379,3,34,0,'68.5.217.82',1198804530,1,0,1,1,1,1,'','TSBrowse in a window','No matter what I set @ x, y to, it always starts the browse at 0,0 and no matter what SIZE I enter, it takes the full window ... so no other controls will display ...\n\nTim','',0,'AIA=','2yjwhbn1',1,0,'',34,0,0),(45050,9379,3,303,0,'72.220.181.80',1198805095,1,0,1,1,1,0,'','','Tim,\n\n&gt;No matter what I set @ x, y to, it always starts the browse at 0,0 and no matter what SIZE I enter, it takes the full window ... so no other controls will display ... \n\nWe need to see the code.\n\nJames','',0,'AIA=','5efzxxhu',1,0,'',303,0,0),(45051,9378,3,51,0,'80.122.88.242',1198807240,1,0,1,1,1,0,'','','[img:1px2tavn]http&#58;//www&#46;atzwanger&#46;com/fw/dsp800&#46;jpg[/img:1px2tavn]','',0,'CA==','1px2tavn',1,0,'',51,0,0),(45052,9380,3,868,0,'219.64.121.60',1198808987,1,0,1,1,1,1,'','','Do you want to do something like this?\n\n[url=http&#58;//img165&#46;imageshack&#46;us/my&#46;php?image=xbrwtransppx5&#46;png:1ft152vu][img:1ft152vu]http&#58;//img165&#46;imageshack&#46;us/img165/167/xbrwtransppx5&#46;th&#46;png[/img:1ft152vu][/url:1ft152vu]','',0,'GA==','1ft152vu',1,0,'',868,0,0),(45053,9370,3,868,0,'219.64.121.60',1198810876,1,0,1,1,1,1,'','','Mr Antonio\n\nI confess I am not good at FreeImage API. But I see these functions and write up in documentation.\n\n[quote:aqe87zyw]\nMemory I/O streams\nMemory I/O routines use a specialized version of the FreeImageIO structure, targeted to save/load FIBITMAP images to/from a memory stream. Just like you would do with a file stream. Memory file streams support loading and saving of FIBITMAP in a memory file (managed internally by FreeImage). They also support seeking and telling in the memory file.\nExamples of using these functions would be to store image files as blobs in a database, or to write image files to a Internet stream.\n............\n..........\nFreeImage_LoadFromMemory\nDLL_API FIBITMAP *DLL_CALLCONV FreeImage_LoadFromMemory(FREE_IMAGE_FORMAT fif, FIMEMORY *stream, int flags FI_DEFAULT(0));\nThis function does for memory streams what FreeImage_Load does for file streams.\n..........\n[/quote:aqe87zyw]\nI think it should be possible to extend the TImage class to read from memory.','',0,'gA==','aqe87zyw',1,0,'',868,0,0),(45054,9379,3,34,0,'68.5.217.82',1198814328,1,0,1,1,1,1,'','Test','It starts at 0,0 and fills the whole screen ...\n\n#include \"FiveWin.ch\"\n#INCLUDE \"tsbrowse.CH\"\n\nFUNCTION Main\n\n        LOCAL oWndc, oInv, oLbx\n\n        oInv := TData():new(, \"c:\\asw8s\\einmst\")\n        oInv:use( )\n\n        DEFINE WINDOW oWndc TITLE \"Example\" \n\n        @ 10, 10 BROWSE oLbx SIZE 300, 100 PIXEL\n        add column to oLbx header \"One\" data oInv:invnum\n        add column to oLbx header \"Two\" data oInv:invdes\n\n        oLbx:bSkip := { |nRecs| oInv:skipper( nRecs )}\n        oWndc:oClient := oLbx\n\n        ACTIVATE WINDOW oWndc MAXIMIZED\n\nRETURN nil','',0,'gA==','31rip4mo',1,0,'',34,0,0),(45055,9379,3,303,0,'72.220.181.80',1198814566,1,0,1,1,1,0,'','','Tim,\n\nThis line tells it to fill the whole screen:\n\noWndc:oClient := oLbx \n\nLeave it out if you don\'t want it to.\n\nJames','',0,'gA==','2dgpdojl',1,0,'',303,0,0),(45056,9376,6,1236,0,'201.86.90.109',1198836445,1,0,1,1,1,0,'','','ale, não seria só você testar se a variavel cArqTxt esta vazia?\n\n\nif empty(cArqTxt)\n   msginfo(\"cancelou\")\nelse\n   msginfo(\"selecionou\") \nendif\n\nEspero ter ajudado','',0,'gA==','3f3zu4ma',1,0,'',1236,0,0),(45057,9381,6,104,0,'201.58.165.56',1198845969,1,0,1,1,1,0,'','Folder Transparente com TWindow - Antonio','Olá Antonio,\n\nTem como usar a classe FOLDER dentro de uma WINDOW para que ela fique transparent igual ela fica da dialog ? \n\nVeja a imagem abaixo usando o exemplo testfld3.prg\n\n[img:us3hs2np]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/folderx&#46;png[/img:us3hs2np]\n\nObrigado,\n\nRossine.','',0,'CA==','us3hs2np',1,0,'',104,0,0),(45058,9382,6,294,0,'201.250.240.201',1198852241,1,0,1,1,1,1,'','Imprimir una ventana','Estimado:\nQuiero imprimir una ventana (un dialogo en particular) y no logro que funcione\nEstoy haciendolo así:\n[code:3fr0toi9]STATIC PROCEDURE Imprime&#40;oW&#41;\nLOCAL oPrn\noPrn &#58;= Tprinter&#40;&#41;&#58;New&#40;&quot;Grafico&quot;,&#46;f&#46;,&#46;t&#46;&#41;\noPrn&#58;StartPage&#40;&#41;\noW&#58;Print&#40;oPrn,00,00,1&#41;\noPrn&#58;EndPage&#40;&#41;\noPrn&#58;End&#40;&#41;\nRETURN[/code:3fr0toi9]\nAlguien puede tirarme una pista de lo que estoy haciendo mal?\nGracias de antemano','',0,'AIA=','3fr0toi9',1,0,'',294,0,0),(45059,9383,2,890,0,'190.9.66.224',1198854431,1,0,1,1,1,0,'','Para todos','Hola Antonio\n\nExpreso mi deseo de bienestar para cada uno de ustedes, que Dios tenga muchas bendiciones y lo mas importante mucha sabiduría en este año que se inicia.\n\nCordial Saludo\n\nJairo Barbosa','',0,'AIA=','3sc4giur',1,0,'',890,0,0),(45060,9384,4,1262,0,'87.105.240.203',1198854790,1,0,1,1,1,0,'','How restore running aplication ?','i can check running aplication with function IsExeRunning(). \nIn this case, how restoring window with this application ?\nWith function SetForeGroundWindow( ) ?\n\ngreetings/salu2\nMarek','',0,'AIA=','n7hohyks',1,0,'',1262,0,0),(45061,9379,3,34,0,'68.5.217.82',1198857715,1,0,1,1,1,1,'','Browse','Apparently I have other issues in that .prg ... so I\'m working on trying it from scratch ... and cut/paste from the other file ... seems to be OK so far.','',0,'AIA=','37xleb5w',1,0,'',34,0,0),(45062,9318,23,308,0,'84.148.26.159',1198865016,1,0,1,1,1,0,'','','Hallo alle zusammen,\n\nwürde mich auch freuen, wenn hier mehr los wäre.\n\nWas haltet Ihr davon, wenn wir mal unsere Projekte bzw. Softwarelösungen vorstellen, die wir so mit Fivewin erstellen.\n\nVielleicht finden wir so Lösungen zu Problemen, die wir vor\nuns herschieben <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nGruss, Norbert','',0,'AIA=','1oxyz2u6',1,0,'',308,0,0),(45063,9384,4,6,0,'79.19.243.243',1198865405,1,0,1,1,1,1,'','Re: How restore running aplication ?','[code:2s4rucy0]IF ISEXERUNNING&#40; CFILENOEXT&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n    SHOWWINDOW&#40; FINDWINDOW&#40; 0, cWindowTitle &#41;, 9 &#41;\n    SETFOREGROUNDWINDOW&#40; FINDWINDOW&#40; 0, cWindowTitle &#41; &#41;\n    RETURN NIL\nENDIF[/code:2s4rucy0]\n\nEMG','',0,'AIA=','2s4rucy0',1,0,'',6,0,0),(45064,9382,6,1146,0,'217.127.105.137',1198867595,1,0,1,1,1,0,'','','Prueba\n\noDialogo:HardCopy(3)','',0,'AIA=','6m29ee6z',1,0,'',1146,0,0),(45065,8752,3,21,0,'87.220.91.39',1198868441,1,0,1,1,1,1,'','','Hola,\n\nEstoy empezando a usar UEStudio\n\nGenero las lib sin ningún error gracias a las indicaciones dadas en este post.\n\nEl problema lo tengo al generar el exe en el que esta incluido las lib. Me muestra el siguiente error:\nError: Unresolved external \'_HB_FUN_ROWFROMPIX\' referenced from C:\\FIVE\\TSBROWSE\\RELEASE\\XTSBROWSEH.LIB|TSBROWSE\n\nLa función RowFromPix esta definida en una función C incluida en la librería.','',0,'AIA=','2q9z0vys',1,0,'',21,0,0),(45066,9385,3,34,0,'68.5.217.82',1198870193,1,0,1,1,1,1,'','@ Say transparent on Windows','I rarely use @ Say / @ Get, but I\'m trying to do something on a Window.\n\nI use the following line to display a string:\n\n   @ 40,285 SAY vDate OF oWndc PIXEL SIZE 315,20 CENTER COLOR CLR_BLACK UPDATE\n\nI have to use the CLR_BLACK to see the text.  However, I want to use a Brush on the window, and when I do, it shows a white background to the text.\n\nThis is not a problem in dialogs with resources, because all text is transparent.  If I don\'t use the COLOR CLR_BLACK, nothing shows up.\n\nSo how do I get just the text, using the brush background, with an @ x,y SAY on a WIndow ?  I\'ve seen use of the TRANSPARENT command on a Dialog, but it won\'t parse on a window ...\n\nTim','',0,'AIA=','oi6bftdq',1,0,'',34,0,0),(45067,9386,6,36,0,'164.77.81.210',1198875300,1,0,1,1,1,1,'','Ads y campos IMAGE','Estimados, hay alguien que utilize este tipo de campo [b:djdvwwrw]IMAGE[/b:djdvwwrw]\n\nResulta que puedo grabar y ver sin ningun problema en el campo imagen, pero en el ARC al pasar por el registro que tiene la imagen me muestra un ventana de error [b:djdvwwrw]\"BITMAP IMAGE IS NOT VALID\"[/b:djdvwwrw]\n\nLo estoy haciendo asi:\n\n#define ADS_IMAGE 7\n\n//para Grabar\nrecepdoc-&gt;( AdsFile2Blob( cFile, \"IMAGEN\", ADS_IMAGE ) )\n\n\n//para recuperar\ncFile := cPathTmp + \"\\ImgTmp.jpg\"\nRecepDoc-&gt;( AdsBlob2File( cFile, \"IMAGEN\" ) )\n\nCualquier pista es bienvenida..','',0,'QA==','djdvwwrw',1,0,'',36,0,0),(45069,9356,3,51,0,'80.122.88.242',1198877812,1,0,1,1,1,0,'','','Hello Antonio,\n\nwhat limitation problems do I face if I use res instead of rc files.\nIs it possible at all?\nCan I switch back at any time from res to rc using a resource decompiler?\nBest regards,\nOtto','',0,'QA==','1rtv9s78',1,0,'',51,0,0),(45070,9334,6,109,0,'189.192.213.168',1198877856,1,0,1,1,1,0,'','','Fernando \n\n   Revisa tu correo, espero te sirva.\n\n   Ponle atencion a todo lo que diga BBG..., y pon en su lugar lo que tu desees.\n\n\n  Saludos.\n\n\nRicardo E. Guardado Flores','',0,'QA==','1h3cezzk',1,0,'',109,0,0),(45071,9117,6,1089,0,'190.82.9.38',1198879076,1,0,1,1,1,0,'','','Así Luce...\n\n<!-- m --><a class=\"postlink\" href=\"http://img169.imageshack.us/my.php?image=men1bo6.jpg\">http://img169.imageshack.us/my.php?image=men1bo6.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img245.imageshack.us/my.php?image=men2vz3.jpg\">http://img245.imageshack.us/my.php?image=men2vz3.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img245.imageshack.us/my.php?image=men3qd3.jpg\">http://img245.imageshack.us/my.php?image=men3qd3.jpg</a><!-- m -->','',0,'QA==','u5k70eoa',1,0,'',1089,0,0),(45072,9356,3,6,0,'79.19.243.243',1198880165,1,0,1,1,1,1,'','','I can only speak for Borland Resource Workshop: yes, I used RES for years without any problems and can freely convert RES to RC and viceversa.\n\nEMG','',0,'QA==','crzs23ga',1,0,'',6,0,0),(45073,9385,3,6,0,'79.19.243.243',1198880863,1,0,1,1,1,1,'','Re: @ Say transparent on Windows','[code:19g21o8z]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL oSay, oBru\n\n    DEFINE BRUSH oBru STYLE BORLAND\n\n    DEFINE WINDOW oWnd BRUSH oBru\n\n    ACTIVATE WINDOW oWnd;\n             ON PAINT oWnd&#58;Say&#40; 100, 100, &quot;This is a test&quot;, CLR_RED, , , &#46;T&#46;, &#46;T&#46; &#41;\n\n    RETURN NIL[/code:19g21o8z]\n\nEMG','',0,'AIA=','19g21o8z',1,0,'',6,0,0),(45074,9385,3,303,0,'72.220.181.80',1198881727,1,0,1,1,1,0,'','','This is a problem that I have long thought could be easily solved by making all SAYs trasparent by default. I can\'t think of any reason why anyone would want them not transparent. If they were transparent then we wouldn\'t have to resort to all these workarounds.\n\nJames','',0,'AIA=','1jds9492',1,0,'',303,0,0),(45075,9387,3,303,0,'72.220.181.80',1198882142,1,0,1,1,1,0,'','Forcing display of tooltip without mouseover','Is there a way to force the display of a tooltip without the mouseover?\n\nI have tried the showTooltip() and checkTooltip() methods, but neither shows the tooltip.\n\nJames','',0,'AIA=','2utsufk6',1,0,'',303,0,0),(45076,9388,6,278,0,'200.126.71.115',1198883832,1,0,1,1,1,1,'','xMate - Ultima version','Hola Foro:\n\nDonde consigo la ultima version del xMate ?\n\nCual es el numero de la ultima version ?\n\nBusque en el google, pero la una version del 2006 ? \n\nEs esto correcto   <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> ? \n\nAlguien me la puede enviar.\n\nSaludos ,','',0,'AIA=','2z59r64d',1,0,'',278,0,0),(45077,7672,3,303,0,'72.220.181.80',1198885458,1,0,1,1,1,0,'','','Otto,\n\nOK, here is a tested working example.\n\nJames\n\n\n[code:2e1w6o82]#include &quot;fivewin&#46;ch&quot;\n#include &quot;wcolors&#46;ch&quot;\n\n#define COLOR_CRITICAL Rgb&#40;255,197,255&#41; // backround color of critical data - Pink\n\n\nfunction main&#40;&#41;\n   local oDlg, oGetStart, oGetEnd\n   local dStart&#58;= ctod&#40;&quot;09/09/09&quot;&#41;, dEnd&#58;=ctod&#40;&quot;  /  /  &quot;&#41;\n   set epoch to 1980\n\n   define dialog oDlg title &quot;Test Date field valids&quot;\n\n   @ 2,2 Get oGetStart var dStart of oDlg valid checkDates&#40; oGetStart, oGetEnd &#41;\n   @ 3,2 Get oGetEnd var dEnd of oDlg valid checkDates&#40; oGetStart, oGetEnd &#41;\n\n   activate dialog oDlg centered\n\nreturn nil\n\n//---------------------------------------------------------------------------//\n\nfunction checkDates&#40;oGetStart,oGetEnd&#41;\n   local nClrFore&#58;=getSysColor&#40; COLOR_WINDOWTEXT &#41;, nClrPane&#58;= getSysColor&#40; COLOR_WINDOW &#41;\n   if oGetStart&#58;varGet&#40;&#41; &gt; oGetEnd&#58;varGet&#40;&#41; &#46;and&#46; ! empty&#40; oGetEnd&#58;varGet&#40;&#41; &#41;\n      oGetStart&#58;setColor&#40; nClrFore, COLOR_CRITICAL &#41;\n      oGetEnd&#58;setColor&#40; nClrFore, COLOR_CRITICAL &#41;\n      oGetStart&#58;cTooltip&#58;= &quot;Start date cannot be later than end date&#46;&quot;\n      oGetEnd&#58;cTooltip&#58;=&quot;Start date cannot be later than end date&#46;&quot;\n   else\n      oGetStart&#58;setColor&#40; nClrFore, nClrPane &#41;\n      oGetEnd&#58;setColor&#40; nClrFore, nClrPane &#41;\n      oGetStart&#58;cTooltip&#58;=nil\n      oGetEnd&#58;cTooltip&#58;=nil\n   endif\n   oGetStart&#58;refresh&#40;&#41;\n   oGetEnd&#58;refresh&#40;&#41;\nreturn &#46;T&#46;\n\n//----------------------------------------------------------------------------//[/code:2e1w6o82]','',0,'AIA=','2e1w6o82',1,0,'',303,0,0),(45078,9385,3,34,0,'68.5.217.82',1198887074,1,0,1,1,1,1,'','Workaround','That code might work in a small sample, but to display a screen full of @ Say\'s makes it very awkward and hard to trace problems that might arise. \n\nSo at least I\'m not totally out of the loop here ... and I agree with James.','',0,'AIA=','1094yua3',1,0,'',34,0,0),(45079,9385,3,6,0,'79.19.243.243',1198887198,1,0,1,1,1,1,'','Re: Workaround','Honestly, I can\'t see so many differences between a series of @ SAY and a series of oWnd:Say().\n\nEMG','',0,'AIA=','2xgjzh2g',1,0,'',6,0,0),(45080,9380,3,49,0,'62.13.172.68',1198887912,1,0,1,1,1,1,'','','yes but NO gradient but a bitmap on gray','',0,'AIA=','21jxbhxd',1,0,'',49,0,0),(45081,9388,6,49,0,'62.13.172.68',1198889626,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://www.andywos.ih.co.za/xmate/\">http://www.andywos.ih.co.za/xmate/</a><!-- m -->','',0,'AIA=','2q8xo2m2',1,0,'',49,0,0),(45082,9385,3,34,0,'68.5.217.82',1198889861,1,0,1,1,1,1,'','Say','When I put together code, its preferably in order, so the say would be one line, and the get right below it.  It makes it easier to remember what each get is for, and it makes it easier to make quick formatting changes ( moving a say and get around on the window ).\n\nHere I could have to put a group of say commands all into an activate statement ... \n\nI guess I would consider that an issue when it doesn\'t have to be that way ( I would think ).  I really don\'t see why we would want the say framed in a white background anyway ( or any color for that matter ).\n\nTim','',0,'AIA=','2odpwapa',1,0,'',34,0,0),(45083,9389,3,487,0,'151.16.78.4',1198890376,1,0,1,1,1,0,'','Searching a string inside an EMF','Do you think it\'s possible ? (I\'d like to add a \"Search\" button in Rpreview)\nHi,\nDavide','',0,'AIA=','tbmgnfsa',1,0,'',487,0,0),(45084,9390,3,34,0,'68.5.217.82',1198893493,1,0,1,1,1,1,'','CHAT capability','I can place a button in my program that allows a client to start a chat with \"Tech Support\" by going to my website\'s Chat page.\n\nI\'m curious if anyone has worked with AIM\'s SDK and created a direct chat capability.  Apparently the free SDK will allow you to create a custom control inside your program to activate a chat.\n\nThe examples are all in C code ... not exactly my skill area ...\n\nI\'m just curious if anyone has done a CHAT system yet ...','',0,'AIA=','1yl380qp',1,0,'',34,0,0),(45085,9390,3,49,0,'62.13.172.68',1198893944,1,0,1,1,1,1,'','','Someone made a chat ( with class) see <!-- w --><a class=\"postlink\" href=\"http://www.fivewin.info\">www.fivewin.info</a><!-- w -->','',0,'AIA=','1qksa13v',1,0,'',49,0,0),(45086,9385,3,303,0,'72.220.181.80',1198896017,1,0,1,1,1,0,'','','Tim,\n\nHave you tried just putting a non-modal dialog (without borders) on the window and putting the controls on it? You could use the same brush on the dialog as the window so it would be invisible.\n\nJames','',0,'AIA=','314slsyq',1,0,'',303,0,0),(45087,9391,6,109,0,'200.52.200.1',1198909159,1,0,1,1,1,0,'','Ayuda con scopes','Buenas noches:\n\n   A quien me pueda ayudar, por favor :\n\n   Tengo un archivo dbf para todos los tipos de documentos de un sistema,\n  (Pedidos, Facturas, Traspasos, Notas de Venta, Documentos de inventarios etc), este dbf lo llamo \"Encabezados de documentos\".\n    Cada Documento tiene un \"tipodoc\", \"serie\", \"folio\", ejemplo.\n                    Pedidos ====     13           P         1....\n                    Facturas====     12           F         1....\n                    Traspasos===     11           T         1.......\nEntonces el indice principal de este archivo lo genero con la siguiente llave\n     Index on Str(tipodoc,3)+Serie.\n     \n     Todo Correcto. Y como Aplico un Scope \n\n     ejemplo para pedidos\n\n            (xArea)-&gt;( OrdScope(0, \" 13P\") )\n            (xArea)-&gt;( OrdScope(1, \" 13P\") )\n            (xArea)-&gt;(DbGoTop())\n\nen cada tipo de documento, pues los listbox de Pedidos, Facturas, etc. los hace correctamente. presentando unicamente los documentos a los que el usuario este dando mantenimiento.\n\n      Peroooooo.\n      Tengo otro indice que es el que se forma con el nombre del Cliente/Proveedor (depende del tipo de documento ), :\n\n     Index on Str(tipodoc,3)+Serie+Nombre\n\ncomo puedo hacer para que al poner (xAlias)-&gt;(DbSetOrder( 2 ) ), me siga respetando el Scope del tipo de documento.\n      Ya que cuando hago esto, me \"revuelve\" todos los tipos de documentos.\n       Repito TODOS los TIPOS DE DOCUMENTOS, estan en un solo DBF, (NO QUIERO TENER UN ARCHIVO PARA CADA DOCUMENTO).\n\n  Gracias por su Atención.\n\n   Y FELIZ 2008, Para todos\n\nRicardo E. Guardado Flores.','',0,'AIA=','1tcog90d',1,0,'',109,0,0),(45088,9392,6,960,0,'84.125.196.99',1198920737,1,0,1,1,1,0,'','Modulo en Touch','Estimados compañeros:\n\nTengo un encargo de 1 cliente que desea una aplicación para Hosteleria en modo Touch, con control de camareros, mesas, emision de tickets, arqueo de caja... etc...\n\nTodo lo tengo claro, excepto 1 duda: para el modulo de venta (la parte fuerte del programa) utilizaré la clase TsButton de manuel mercado, destinando cada button a 1 artículo (agrupandose a su vez por familias), pero como hago si de una familia hay más artículos que button me caben en el Dialogs?\n\nQue posibles soluciones hay ??\n\nMil gracias.\nLORENZO','',0,'AIA=','1kxiwlcd',1,0,'',960,0,0),(45089,5205,6,1146,0,'217.127.105.137',1198926144,1,0,1,1,1,0,'','','Sería muy bueno que Antonio implementara un control de acceso en la clase TMenu <!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->.\n\nUn saludo,\n\nMoisés','',0,'AIA=','2atjl9uh',1,0,'',1146,0,0),(45090,8752,3,2,0,'87.218.146.191',1198928472,1,0,1,1,1,1,'','','Fernando,\n\nUna forma fácil de comprobar que la función se ha incluido correctamente en la librería es abrir el fichero LIB con el propio UEStudio y buscar la cadena HB_FUN_ROWFROMPIX a ver si está','',0,'AIA=','3il73r5q',1,0,'',2,0,0),(45091,9356,3,2,0,'87.218.146.191',1198928602,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2z07hvqc]Question already posted:\n\n<!-- m --><a class=\"postlink\" href=\"http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2602452&amp;SiteID=1&amp;mode=1\">http://forums.microsoft.com/MSDN/ShowPo ... D=1&amp;mode=1</a><!-- m -->\n\nHopefully we get some feedback from MS[/quote:2z07hvqc]\n\nTwo days the question posted at MS forums and no answers yet...','',0,'gA==','2z07hvqc',1,0,'',2,0,0),(45092,9392,6,2,0,'87.218.146.191',1198929706,1,0,1,1,1,1,'','','Lorenzo,\n\nUsa dos botones \"flecha izquierda\" y \"flecha derecha\" y al pulsar uno de ellos \"pasas\" a la siguiente página de botones, cambiando los los prompts y las imágenes de los botones','',0,'gA==','5id4m529',1,0,'',2,0,0),(45093,5205,6,2,0,'87.218.146.191',1198929827,1,0,1,1,1,1,'','','Moisés,\n\nCada programador suele tener sus propias preferencias y es dificil construir un modelo que a todos satisfaga. Es por esto que FiveWin ofrece mucha libertad para que el programador lo construya como desee.','',0,'gA==','1pqjqd7y',1,0,'',2,0,0),(45094,9385,3,6,0,'87.18.215.200',1198930102,1,0,1,1,1,1,'','Re: Say','[quote=&quot;TimStone&quot;:kia13vz0]When I put together code, its preferably in order, so the say would be one line, and the get right below it.  It makes it easier to remember what each get is for, and it makes it easier to make quick formatting changes ( moving a say and get around on the window ).\n\nHere I could have to put a group of say commands all into an activate statement ...[/quote:kia13vz0]\n\nNope, you can just put a function call in the ACTIVATE statement:\n\n[code:kia13vz0]ACTIVATE WINDOW oWnd; \n             ON PAINT MYPAINT&#40;&#41;\n\nSTATIC FUNCTION MYPAINT&#40;&#41;\n\n    oWnd&#58;Say&#40; 100, 100, &quot;This is a test 1&quot;, CLR_RED, , , &#46;T&#46;, &#46;T&#46; &#41;\n    oWnd&#58;Say&#40; 120, 100, &quot;This is a test 2&quot;, CLR_RED, , , &#46;T&#46;, &#46;T&#46; &#41;\n\n    RETURN NIL[/code:kia13vz0]\n\nEMG','',0,'gIA=','kia13vz0',1,0,'',6,0,0),(45095,9385,3,6,0,'87.18.215.200',1198930294,1,0,1,1,1,1,'','Re: Say','[quote=&quot;TimStone&quot;:18skvdbu]I really don\'t see why we would want the say framed in a white background anyway ( or any color for that matter ).[/quote:18skvdbu]\n\nI agree.\n\nEMG','',0,'gA==','18skvdbu',1,0,'',6,0,0),(45096,9356,3,51,0,'80.122.88.242',1198930981,1,0,1,1,1,0,'','','Hello Antonio,\nis integrated mode for us the right way?   I think integrated is used for\nown  extensions if you us it inside VISUAL STUDIO.\n\nI think we have to build a own IDE with isolated mode.\n\nI have tried and I can open rc-files but only with an extern editor.\n\nYou can open res files from VS2008 but there must be a way to inherit\nin your own IDE this functionality. But how?\n \nRegards,\nOtto','',0,'gA==','zwa8q4qd',1,0,'',51,0,0),(45097,9393,6,1236,0,'201.22.70.87',1198934056,1,0,1,1,1,0,'','LOOK 2007 BUTTONBAR','Antonio, este recurso esta disponivel na versao do FWH7.01?\n\n\nGrato','',0,'gA==','3oap4eg1',1,0,'',1236,0,0),(45098,9385,3,868,0,'219.64.121.60',1198936796,1,0,1,1,1,1,'','','I guess most users of FWH would agree.  Will Mr Antonio consider making Says transparent by default and with background color by choice? \n\nWould such a change break the existing code of many programs or is it against windows default behaviour ?\n\nAnother simple doubt. When oSay:lTransparent works well on Dialog why does it not ( or why should it not ) work the same way on a Window?','',0,'gA==','1l17pxju',1,0,'',868,0,0),(45099,9345,3,868,0,'219.64.121.60',1198937097,1,0,1,1,1,1,'','','I am trying to use the new xbrowse with changes for my regular code.\n\nNormally when a user enters an invalid value, I popup a small help dialog with one of the browses to choose the value and stuff the same. Wish we can solve the problem for assigning values from the valid clause.','',0,'gA==','1une6e6e',1,0,'',868,0,0),(45100,9391,6,36,0,'164.77.81.210',1198939568,1,0,1,1,1,1,'','','Prueba haciendolo asi\n\n[code:3gqzjl4u]&#40;xArea&#41;-&gt;&#40; OrdScope&#40;0, &quot; 13P&quot;&#41; &#41;\n&#40;xArea&#41;-&gt;&#40; OrdScope&#40;1, &quot; 13P&quot;&#41; &#41;\n&#40;xArea&#41;-&gt;&#40;DbGoTop&#40;&#41;&#41;\n\ncTipDoc &#58;=Str&#40;field-&gt;tipodoc,3&#41;+field-&gt;Serie+Field-&gt;Nombre \n&#40;xArea&#41;-&gt;&#40; OrdSetFocus&#40; 2 &#41; &#41;\n&#40;xArea&#41;-&gt;&#40; OrdScope&#40;0, cTipDoc &#41; &#41;\n&#40;xArea&#41;-&gt;&#40; OrdScope&#40;1, cTipDoc &#41; &#41;\n\n&#40;xArea&#41;-&gt;&#40; OrdSetFocus&#40; 1 &#41; &#41;\n\n[/code:3gqzjl4u]','',0,'AIA=','3gqzjl4u',1,0,'',36,0,0),(45101,9345,3,2,0,'87.218.146.191',1198939844,1,0,1,1,1,1,'','','Nageswararao,\n\nThats already fixed. Please review mallorca.exe','',0,'AIA=','qicendg8',1,0,'',2,0,0),(45102,9394,6,1265,0,'201.252.207.33',1198942546,1,0,0,1,1,0,'','Aprendiendo a utilizar harbour','Hola y buenas estoy migrando clipper a harbour y luego a un entorno grafico quiero implementar una libreria .dll en mi sistema mas especificamente las fiscales para epson y hasar. La cuestion es que he visto que se pueden enlazar estas al sistema incluso en modo consola creando unos prototipos para la llamada a dicha dll. Si alguien me podria facilitar un modelo basico o guia basica para hacerlo me ayudaria un monton, ademas hay algun recurso compatible con los colectores de datos? desde ya muchas gracias.\n  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: -->','',0,'AIA=','1ind385j',1,0,'',1265,0,0),(45103,9356,3,35,0,'65.188.6.143',1198943549,1,0,1,1,1,0,'','','To All\n\nWas hoping Bill Gates was going to give us a gift on his way out the CEO door .. but nada .. \n\nBack to the basic\'s it looks like .. I hope \'santa\' is still working on his Resource editor ??   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRick Lipkin','',0,'AIA=','1w2v32h5',1,0,'',35,0,0),(45104,9356,3,51,0,'80.122.88.242',1198946418,1,0,1,1,1,0,'','','[img:191rv30y]http&#58;//www&#46;atzwanger&#46;com/fw/vsx1&#46;jpg[/img:191rv30y]','',0,'CA==','191rv30y',1,0,'',51,0,0),(45105,9356,3,51,0,'80.122.88.242',1198947036,1,0,1,1,1,0,'','','Creating a External Tool:\n[img:361phxwe]http&#58;//www&#46;atzwanger&#46;com/fw/vsx3&#46;jpg[/img:361phxwe]\n\nCompiling from the IDE\n[img:361phxwe]http&#58;//www&#46;atzwanger&#46;com/fw/vsx2&#46;jpg[/img:361phxwe]','',0,'CA==','361phxwe',1,0,'',51,0,0),(45107,9356,3,51,0,'80.122.88.242',1198948067,1,0,1,1,1,0,'','','Macro recorder like in WORD \n\n[img:eul2zhap]http&#58;//www&#46;atzwanger&#46;com/fw/vsx4&#46;jpg[/img:eul2zhap]','',0,'CA==','eul2zhap',1,0,'',51,0,0),(45108,9395,17,1257,0,'195.93.60.34',1198948222,1,0,1,1,1,1,'','A programming-tool, to create informations of a DBF-file','The tool creates a TXT-file ( ????.str ) with all informations\nof the selected DBF, you need for programming. \nThe file includes : the structure-array, declaration of the different variables and so on...\n\nyou can download the file from the download-section\nof the website <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->\n\nThe program starts with a dialog ( no window )\nIs there anybody who knows, why the dialog dosn\'t close,\nwhen I use the system-exit button ( the X in the dialog head ) ?\nThe normal created Exit-Button works.','',0,'CA==','a1o0uets',1,0,'',1257,0,0),(45109,7672,3,51,0,'80.122.88.242',1198949064,1,0,1,1,1,0,'','','Thank you, James.\n\nPlease have a look at: <!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->','',0,'CA==','29tze7s4',1,0,'',51,0,0),(45110,8596,6,53,0,'189.139.26.78',1198949452,1,0,1,1,1,1,'','Lo contrario','Amigos:\n\nY cual es el código para conocer el password en una hoja de Excel ???\n\nSaludos','',0,'CA==','34u46tgz',1,0,'',53,0,0),(45111,9390,3,34,0,'68.5.217.82',1198950772,1,0,1,1,1,1,'','???','I don\'t see anything there.\n\nThe work from AOL is new ... and it would make sense to use since it is 1) working, 2) free ...','',0,'CA==','3umdod7a',1,0,'',34,0,0),(45112,9393,6,2,0,'87.218.146.191',1198951101,1,0,1,1,1,1,'','','Esta disponible a partir de FWH 7.10','',0,'CA==','3bizfgeb',1,0,'',2,0,0),(45113,9385,3,34,0,'68.5.217.82',1198952595,1,0,1,1,1,1,'','Dialog on window','James,\n\nThat is exactly what I tried originally ( early thread ) but I couldn\'t get the dialog to position correctly.\n\nThere was a control at 10,10 on the window ( that only worked on windows ) and the dialog just wouldn\'t position around that ...','',0,'CA==','23ta53ew',1,0,'',34,0,0),(45114,9396,6,960,0,'84.125.196.99',1198955210,1,0,1,1,1,0,'','PellesC','Estimados compañeros:\n\nEstoy hecho un mar de dudas!!.... estoy intentando insertar BMPs con mas de 256 colores en mi RC. Siempre utilicé WorkShop pero como esta posibilidad no la dá, he decidido instalar \"Pelles C for Windows, version 4.50\".\n\nAsí que ahora intento abrir mi RC con PelllesC y me genera miles de errores; Intento crear un RC de prueba insertando un BMP llamado \"camarero\" y me lo renombra dentro del RC con el nombre \"#8001\", y al compilar me genera el error:\nError windows.h 22 19: Expecting \')\'\n\n¿ Como lo haceis ? ¿ No me bajé el PellesC correcto ? ¿hay otra versión?\n\nMil gracias.\nLOREN','',0,'CA==','1txsgdso',1,0,'',960,0,0),(45115,9396,6,1106,0,'190.64.174.177',1198959036,1,0,1,1,1,0,'','','Loren:\n\nEn PellesC anda a Opciones y en la pestaña:\nCarpeta -&gt; Ejecutables : Debe de ir la ruta donde esta\nla carpeta Bin del PellesC\n\nLuego en Carpeta-&gt; Librerias : Debe ir la ruta de PellesC-Lib y la ruta de PellesC\\lib\\Win\n\nLuego en carpeta -&gt; Includes : debe ir la ruta de PellesC - Include\nPellesC\\Include\\Win\nPellesC\\Include\\Win\\gl\n\nSaludos\n\nRuben Fernandez.','',0,'CA==','rtug83ai',1,0,'',1106,0,0),(45116,9397,6,415,0,'190.157.64.112',1198959340,1,0,1,1,1,1,'','FWH 712  Error al llamar ayudas tipo chm','Antonio:\n\nTengo este codigo :\n\nSetKey(VK_F1, {|nKey|HtmlHelp( 0, \"\\hym32\\ayu\\ayuda.chm\", 2,0 ) })\n\nY me sucede el siguiente error:\n\n[url=http&#58;//img180&#46;imageshack&#46;us/my&#46;php?image=errorzs6&#46;png:3mq2ysbr][img:3mq2ysbr]http&#58;//img180&#46;imageshack&#46;us/img180/2614/errorzs6&#46;th&#46;png[/img:3mq2ysbr][/url:3mq2ysbr]\n\n[url=http&#58;//img180&#46;imageshack&#46;us/my&#46;php?image=errorzs6&#46;png:3mq2ysbr][img=http://img180.imageshack.us/img180/2614/errorzs6.th.png][/url:3mq2ysbr]\n\nAdicionalmente tengo comentadas las lineas de la ayuda para que no me salieran los mensajes al oprimir F1 de las funciones:\n\nfunction HelpTopic( nHelpId )\nfunction HelpIndex()\nfunction HelpSearch( cSearch )\nfunction HelpPopup( nHelpId )\n\n   if Empty( cHelpFile )\n*     MsgStop( \"No Help file available\", \" Attention\" )\n      return .f.\n   endif\n\n¿Tengo que hacer algún cambio en especial? Gracias.\n\nSaludos,','',0,'GA==','3mq2ysbr',1,0,'',415,0,0),(45117,9356,3,303,0,'72.220.181.80',1198959373,1,0,1,1,1,0,'','','Otto,\n\nThis all looks very exciting. Please explain what you are doing.\n\nIs this the isolated version of VS 2008?\n\nHow did you creat the RC file, in VS or outside VS, then opened it in VS? Why does the window title say Pelles C?\n\nAre you able to compile a PRG in VS?\n\nJames','',0,'GA==','305nrugc',1,0,'',303,0,0),(45118,9356,3,51,0,'80.122.88.242',1198961853,1,0,1,1,1,0,'','','James,\n\n&gt;This all looks very exciting. Please explain what you are doing. \nI think it would be nice to have a IDE which is mainstream. \n\n&gt;Is this the isolated version of VS 2008? \nyes it is as you say.\nYou make a project with VS and select the isolated mode template.\n\n\n&gt;How did you create the RC file, in VS or outside VS, then opened it in VS? Why does the window title say Pelles C? \nI open the rc file as a text file. Then in the solution explorer you define “Open with” with for e.g. Pelles.\nIf you change the file with in my example Pelles C then if you switch back to VS you are asked automatically if you want to reload the file because it was changed.\n\n&gt;Are you able to compile a PRG in VS?\nHave a look at the screens: \nCreating a External Tool and compiling. You click on go in the menu and the go.bat is executed.\nRegards, \nOtto','',0,'GA==','36hl1ip3',1,0,'',51,0,0),(45119,9313,3,267,0,'201.9.208.154',1198962655,1,0,1,1,1,1,'','','Antonio,\n\nSome newness?','',0,'GA==','1o7fsne9',1,0,'',267,0,0),(45120,9396,6,53,0,'189.139.26.78',1198963824,1,0,1,1,1,1,'','','Loren:\n\nTe recomiendo que inicies con un fichero de recursos nuevo y ahi podras crear tus dialogos e importar algunos controles.\n\n[quote:1yuzigzz]insertando un BMP llamado \"camarero\" y me lo renombra dentro del RC con el nombre \"#8001\", [/quote:1yuzigzz]\n\nEso es normal y correcto, para asignarle un nombre propio debes dar clic derecho sobre el BMP y en el menú emergente eliges propiedades, ahí asignas el nombre que desees entre comillas y en mayúsculas aunque dentro de tu PRG podras usarlo en mayusculas o minusculas, por ejemplo \"MIBMP\" y listo, te queda personalizado.\n\nSaludos','',0,'gA==','1yuzigzz',1,0,'',53,0,0),(45121,9398,23,1257,0,'195.93.60.34',1198964188,1,0,1,1,1,1,'','Neueinsteiger','Hallo aus Essen,\n\nAls Neueinsteiger habe ich bereits einige Tools\nzum Download freigestellt.\nMeistens sind diese Programme in Deutsch und Englisch.\nZu finden bin ich meistens im Utilities-Forum ( UKoenig )\nMit einem Klick auf den Website-Button, gelangt man direkt \nauf eine Download-Seite für Fivewin-User.\n\n<!-- m --><a class=\"postlink\" href=\"http://pflegeplus.com/fivewin\">http://pflegeplus.com/fivewin</a><!-- m -->\nEmail : <!-- e --><a href=\"mailto:esckoenig@aol.com\">esckoenig@aol.com</a><!-- e -->\n\nFür Anregungen, zur Verbesserung der Seite, bin ich dankbar.\n\nMit der Zeit werden sich dort einige Dinge ansammeln. <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nBis bald und alles Gute für das neue Jahr.\nU. König','',0,'gA==','29dpqw2j',1,0,'',1257,0,0),(45122,9385,3,303,0,'72.220.181.80',1198964193,1,0,1,1,1,0,'','','Tim,\n\n&gt;There was a control at 10,10 on the window ( that only worked on windows ) and the dialog just wouldn\'t position around that ...\n\nWhat control? And what do you mean \"around that?\" Did you mean \"next to?\" Could we see a small sample showing the problem?\n\nJames','',0,'gA==','2r84errr',1,0,'',303,0,0),(45123,9385,3,34,0,'68.5.217.82',1198964723,1,0,1,1,1,1,'','Reply','Please check your email','',0,'gA==','15wyzw6p',1,0,'',34,0,0),(45124,9356,3,303,0,'72.220.181.80',1198964871,1,0,1,1,1,0,'','','Otto,\n\n&gt;&gt;Is this the isolated version of VS 2008? \n&gt;yes it is as you say. \n&gt;You make a project with VS and select the isolated mode template.\n\nOK, this whole VS, VS isolated thing is confusing (even though I have read up on it). Are you using the standard VS2008 and creating an isolated mode template project, or are you using just the isolated version of VS?\n\n&gt;&gt;How did you create the RC file, in VS or outside VS, then opened it in VS? Why does the window title say Pelles C? \n&gt;I open the rc file as a text file. Then in the solution explorer you define “Open with” with for e.g. Pelles. \n&gt;If you change the file with in my example Pelles C then if you switch back to VS you are asked automatically if you want to reload the file because it was changed. \n\nSo you are tricking it into using an RC file? Can you edit the RC file, using the dialog designer for instance? \n\n&gt;&gt;Are you able to compile a PRG in VS? \n&gt;Have a look at the screens: \n&gt;Creating a External Tool and compiling. You click on go in the menu and the go.bat is executed.\n\nI saw the screens but wasn\'t clear on if it was working. With UE, for exmple, when you execute a macro to call a BAT file, it automatically saves any open PRGs before executing the BAT file. Does VS do the same? Would VS also save any other file types like RC before calling the BAT? \n\nAlso, UE redirects all the screen output to a window in UE, does VS do the same?  \n\nJames','',0,'gA==','2039u0m1',1,0,'',303,0,0),(45125,9399,3,2,0,'87.218.146.191',1198965823,1,0,1,1,1,1,'','First tests on the iPhone','Building some test applications for the iPhone <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:154ptypv][img:154ptypv]http&#58;//img179&#46;imageshack&#46;us/img179/3462/img9001nx4&#46;png[/img:154ptypv][/url:154ptypv]\n\n[url=http&#58;//imageshack&#46;us:154ptypv][img:154ptypv]http&#58;//img174&#46;imageshack&#46;us/img174/462/img9002ip8&#46;png[/img:154ptypv][/url:154ptypv]','',0,'GA==','154ptypv',1,1199004736,'',2,2,0),(45126,9400,6,2,0,'87.218.146.191',1198966251,1,0,1,1,1,1,'','Primeras pruebas con el iPhone','Construyendo las primeras aplicaciones de prueba para el iPhone <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:k0rfatc0][img:k0rfatc0]http&#58;//img179&#46;imageshack&#46;us/img179/3462/img9001nx4&#46;png[/img:k0rfatc0][/url:k0rfatc0]\n\n[url=http&#58;//imageshack&#46;us:k0rfatc0][img:k0rfatc0]http&#58;//img174&#46;imageshack&#46;us/img174/462/img9002ip8&#46;png[/img:k0rfatc0][/url:k0rfatc0]','',0,'GA==','k0rfatc0',1,1199005161,'',2,1,0),(45127,9399,3,303,0,'72.220.181.80',1198966278,1,0,1,1,1,0,'','','Wow!','',0,'GA==','12zxhw88',1,0,'',303,0,0),(45128,9356,3,51,0,'80.122.88.242',1198966689,1,0,1,1,1,0,'','','James, I never worked with UE therefore I can’t compare.\nI downloaded the full VS product 3.3 G  (11hours!!!).\n\nAm sure you can setup that all is saved before running the compiler. \n&gt;In addition to acquiring the look of Visual Studio, your custom tools built on the Visual Studio Shell have access to the features of the Visual Studio IDE.\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/bb685612.aspx\">http://msdn2.microsoft.com/en-us/library/bb685612.aspx</a><!-- m -->\n\nBest regards,\nOtto','',0,'GA==','1afx2p67',1,0,'',51,0,0),(45129,9399,3,2,0,'87.218.146.191',1198966711,1,0,1,1,1,1,'','','The iPhone is a real computer, running Mac OSX.\n\nWith the expertise that we already got building FiveMac, we may deliver some interesting development tools for the iPhone and the FiveWin users <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','qddr8ymf',1,0,'',2,0,0),(45130,9400,6,2,0,'87.218.146.191',1198966875,1,0,1,1,1,1,'','','El iPhone es un ordenador real que usa Mac OSX\n\nCon la experiencia adquirida construyendo FiveMac, podemos desarrollar unas herramientas de programación interesantes para el iPhone y los usuarios de FiveWin <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3me7ewtm',1,0,'',2,0,0),(45131,9399,3,51,0,'80.122.88.242',1198967401,1,0,1,1,1,0,'','','Congratulations, Antonio. Does this mean you can run programs we have developed for the pocketPC after compiling with FW for MAC on a iPhone?\nBest regards,\nOtto','',0,'GA==','2x9fi85a',1,0,'',51,0,0),(45133,9399,3,2,0,'87.218.146.191',1198968680,1,0,1,1,1,1,'','','Otto,\n\nThis means that we have the capability to build business applications for the iPhone, same as we can build them for the Pocket PC using FWPPC.\n\nThe FiveWin syntax is the same for Windows, Pocket PC, Linux, Mac and iPhone (next). So if you know FiveWin then you are able to develop a business  application in any modern platform.','',0,'GA==','2jgm5lhd',1,0,'',2,0,0),(45134,9390,3,49,0,'62.13.172.68',1198972883,1,0,1,1,1,1,'','','i can found for you a simply web chat','',0,'GA==','dga4nraf',1,0,'',49,0,0),(45135,9378,3,394,0,'207.219.124.134',1198974844,1,0,1,1,1,0,'','','Thanks Otto for all of your examples.\n\nWhat I am actually looking for is a way to interface to OPOS and UPOS com objects.\n\nOPOS and UPOS are Point-Of-Sale device standards this means that you can implement a function to open a cash drawer use the OPOS commands and now your application supports all cash drawers that have an OPOS or UPOS interface.\n\nJust think of how great it would be to interface to the OPOS Printer interface and instantly support all receipt printers. \n\nCurrently the supported devices are-\nPOS Keyboard\nPOS Printer\nCash Changer\nTone Indicator\nBump Bar\nFiscal Printer\nPin Pad\nRemote Order Display\nScale\nPower Reporting\nCredit Authorization Terminal\nPoint Card Reader/Writer\nLine Display\nCheck Scanner\nSmart Card Reader/Writer\nBiometrics\nBill Acceptor\nBill Dispenser\nCoin Acceptor\nImage Scanner\nYou can read about OPOS at <!-- m --><a class=\"postlink\" href=\"http://www.monroecs.com/oposreleases.htm\">http://www.monroecs.com/oposreleases.htm</a><!-- m -->\nAnd UPOS at <!-- m --><a class=\"postlink\" href=\"http://www.monroecs.com/unifiedpos.htm\">http://www.monroecs.com/unifiedpos.htm</a><!-- m -->\n\nHere is what I have tried for cash drawer.\nProcedure Opendrawer(oWnd,dr)\nhie:=TActiveX():New( oWnd,\"OPOS.CashDrawer\" )\nif dr = 1\nhie:do(\"Open\",\"cdrwr1\")  //cdrwr1 is the name that was set for drawer 1 in the OPOS interface\nelse\nhie:do(\"Open\",\"cdrwr2\") //cdrwr2 is the name that was set for drawer 2 in the OPOS interface\nendif\nhie:do(\"ClaimDevice\",1000)\nhie:do(\"DeviceEnabled\",.t.)\nhie:do(\"OpenDrawer\")\nhie:do(\"WaitForDrawerClose\",10000,2000,100,1000)\nhie:do(\"ReleaseDevice\")\nhie:do(\"Close\")\n\nCurrently the above code executes properly on a Panasonic pos station and errors on a Partner Tec pos station.','',0,'GA==','11828xf5',1,0,'',394,0,0),(45136,9280,7,598,0,'190.76.13.62',1198975375,1,0,1,1,1,1,'','','Creo q puedes usar:\n[code:3u7uocxl]\nIsWindowVisible&#40;oDlg&#58;hWnd&#41; -&gt; &#46;t&#46; | &#46;f&#46;\n[/code:3u7uocxl]\npasando como parametro la propiedad hWnd del objeto TDIALOG q la hereda de TWINDOW\n\nun tip... puedes usar la funcion SetKey(tecla, bAction ) para monitorear el estatus de la ventana\n\nej.\n[code:3u7uocxl]\n#include &quot;vkey&#46;ch&quot;\n\nSetKey&#40;VK_F2, &#123;|| IIF&#40;oDlg&lt;&gt;NIL, MsgAlert&#40;IsWindowVisible&#40;oDlg&#58;hWnd &#41;&#41;,NIL&#41; &#125;&#41;\n[/code:3u7uocxl]\ncuando presiones F2 mostrara una ventana con el estado de oDlg. \npara ver el resto de las teclas echale un vistazo a vkey.ch','',0,'AIA=','3u7uocxl',1,0,'',598,0,0),(45137,9378,3,51,0,'80.122.88.242',1198975932,1,0,1,1,1,0,'','','Thank you for the information. Didn\'t knew of this driver. \nRegards,\nOtto','',0,'AIA=','2mbdt393',1,0,'',51,0,0),(45138,9390,3,34,0,'68.5.217.82',1198976290,1,0,1,1,1,1,'','Chat','There are many web chat systems available.  I have several on my own host.  However, they are designed for use on a website.  That is no problem if I want to limit my chats that way.  Also they all require a client running on my computer to monitor for chats.  \n\nI already have MS IM and AOL IM running.  I intend to provide a chat button within an application.  Right now, I have a button that starts a web page where an AOL chat window appears and connects directly to me.  AOL actually has an SDK that I can create my own chat client within my software.  That bypasses my website which removes a step.  I figured I would implement that, but why recreate the process if someone has already done it ?\n\nIt seems like a great way to make support available to my clients when I\'m on the computer.  I\'ve used it from the website, but this is just one step easier.  \n\nMany of my clients will let a problem exist rather then take time to call.  I can\'t fix problems if no one lets me know about them ... so I want them to communicate.\n\nTim','',0,'AIA=','2e37hl38',1,0,'',34,0,0),(45139,9287,7,598,0,'190.76.13.62',1198976842,1,0,1,1,1,1,'','','bueno yo lo uso de esta forma q es un poquitito mas rapido...\n\n[code:2j8mudix]oBrw&#58;nClrPane&#58;=&#123;||IIF&#40; &#40;oBrw&#58;Cargo&#58;=!oBrw&#58;Cargo&#41; , RGB&#40;193,221,255&#41;, RGB&#40;221,245,255&#41; &#41;&#125;[/code:2j8mudix]\n\nse me ocurre ahora q tambien puede ser...\n\n[code:2j8mudix]oBrw&#58;nClrPane&#58;=&#123;||IIF&#40; &#40;oBrw&#58;nAt%2 , RGB&#40;193,221,255&#41;, RGB&#40;221,245,255&#41; &#41;&#125;[/code:2j8mudix]','',0,'AIA=','2j8mudix',1,0,'',598,0,0),(45141,9401,6,238,0,'189.164.162.41',1198978600,1,0,1,1,1,0,'','Como colorear en xBrowse','Hola buen dia, alguien podria darme una mano para colorear un xbrowse, por ejemplo una linea de azul y la siguiente de verde asi en todo el grid, se los agradecere...\n\nTosko','',0,'AIA=','2n4j9a1e',1,0,'',238,0,0),(45142,9377,6,1090,0,'201.212.63.4',1198982853,1,0,1,1,1,0,'','','Los dialogos estan en una dll que arme con Workshop; En Style tienen tildado el \"modal frame\".\n\n\n\n\n[quote=&quot;Antonio Linares&quot;:1hgjogyd]Diego,\n\nLa caja de diálogo es MODAL ó NO MODAL ?[/quote:1hgjogyd]','',0,'gA==','1hgjogyd',1,0,'',1090,0,0),(45143,9399,3,868,0,'219.64.121.60',1198982995,1,0,1,1,1,1,'','','Does FTDN include FiveMac, PocketPC and will it include future iPhone?  Though these three is no commercial interest, I am very much attracted to go for the great Mac software and also try pocket pc and iphone. ( right now we cant get iphone in our country though )','',0,'gA==','3jh4k2ez',1,0,'',868,0,0),(45144,9402,6,1090,0,'201.212.63.4',1198984400,1,0,1,1,1,0,'','orden de controles en un dialogo enter espaciadora','Hola, tengo un pequeño problema; tengo un dialogo con 6 controles; me interesa que al ejecutar, el control pase del text1, por ej, con enter al text2, con enter al text3, con enter a un boton \"ingresa\", y con enter nuevamente al text1, sin ir, al siguiente (por ej, seria text 4). Si presiono el \"ingresa\" con la tecla espaciadora, como la funcion que ejecuta este boton culmina con un text1:setfocus(), todo funciona perfecto; ahora, si en lugar de presionar la espaciadora, presiono enter, el programa \"se saltea\" el text1:setfocus, y si bien ejecuta la funcion asociada a \"ingresa\", el foco queda en text4, provocando por lo general un error en el operador de la aplicacion. ¿como puedo hacer para que el enter me respete este setfocus al igual que la espaciadora?\nGracias. Atte.','',0,'gA==','o15zfrao',1,0,'',1090,0,0),(45145,9401,6,397,0,'201.43.218.77',1198991604,1,0,1,0,1,1,'','','Mira:\n\n[code:28e0ykf0]\n&#46;&#46;&#46;\noLbx&#58;nClrPane &#58;= &#123; || IIF&#40; &#40; oLbx&#58;cAlias&#41;-&gt;&#40;OrdKeyNo&#40;&#41;&#41; %2 == 1, CLR_BRW_FRENTE,CLR_BRW_FUNDO&#41;&#125;\n&#46;&#46;&#46;\n[/code:28e0ykf0]','',0,'AIA=','28e0ykf0',1,0,'',397,0,0),(45146,9374,6,397,0,'201.43.218.77',1198993978,1,0,1,0,1,1,'','','Ve se ajuda:\n\n[code:3kfbfqvl]\nOpen Method &#40;Microsoft Excel&#41;\n\n   Syntax&#58;\n\n   oXLBooks&#46;Open&#40;cFileName &#91;, nUpdateLinks &#91;, lReadOnly &#91;, nFormat ;\n      &#91;, cPassword &#91;, cWriteResPassword &#91;, lIgnoreReadOnlyRecommended ;\n      &#91;, nOrigin &#91;, cDelimiter &#91;, lEditable &#91;, lNotify ;\n      &#91;, nConverter&#93;&#93;&#93;&#93;&#93;&#93;&#93;&#93;&#93;&#93;&#93;&#41;\n\n   Example&#58;\n\n   oXLBooks&#46;Open&#40;&quot;C&#58;\\MY DOCUMENTS\\MYSHEET&#46;XLS&quot;&#41;\n[/code:3kfbfqvl]','',0,'AIA=','3kfbfqvl',1,0,'',397,0,0),(45148,9400,6,2,0,'87.218.146.191',1199004502,1,0,1,1,1,1,'','','Mirad la calidad de gráficos del GUI del iPhone:\n\n[url=http&#58;//imageshack&#46;us:31r73lgt][img:31r73lgt]http&#58;//img295&#46;imageshack&#46;us/img295/5032/img9000ie1&#46;png[/img:31r73lgt][/url:31r73lgt]','',0,'GA==','31r73lgt',1,0,'',2,0,0),(45149,9399,3,2,0,'87.218.146.191',1199004924,1,0,1,1,1,1,'','','NageswaraRao,\n\nUpon request, we can replace and include the products that you may need into the FTDN','',0,'GA==','1bwfcsg1',1,0,'',2,0,0),(45150,9399,3,2,0,'87.218.146.191',1199004974,1,0,1,1,1,1,'','','Look at the graphics quality of the iPhone GUI:\n\n[url=http&#58;//imageshack&#46;us:467hd7z8][img:467hd7z8]http&#58;//img295&#46;imageshack&#46;us/img295/5032/img9000ie1&#46;png[/img:467hd7z8][/url:467hd7z8]','',0,'GA==','467hd7z8',1,0,'',2,0,0),(45151,9377,6,2,0,'87.218.146.191',1199005688,1,0,1,1,1,1,'','','Diego,\n\nDesde tu PRG la caja de diálogo la muestras así ?\n\nACTIVATE DIALOG oDlg\n\nó así ?\n\nACTIVATE DIALOG oDlg NOWAIT','',0,'GA==','2qcb1u42',1,0,'',2,0,0),(45152,9390,3,49,0,'62.13.172.68',1199007505,1,0,1,1,1,1,'','','Tim,\n\nfor create it you must have a server  open\n\nyou must user server chat program run on it  with a same IP\n\nyou must give to customer CLIENT CHAT PROGRAM  and this program must be run to same IP of the server chat program.\n\nOnly this methos run ok\n\nyou must found a chat source on old web sites\'s fivewin  but it use ip and you must use the same ip to run it\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=581\">http://www.fivewin.com.br/exibedicas.asp?id=581</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=432\">http://www.fivewin.com.br/exibedicas.asp?id=432</a><!-- m -->\n\nIf YOU SEARCH YOU FOUND ANYTHING YOU WANT !!!','',0,'GA==','9lqqerbn',1,0,'',49,0,0),(45153,9403,6,960,0,'84.125.196.99',1199007709,1,0,1,1,1,0,'','Calculadora tactil','Hola compañeros:\n\nEn un módulo touch necesito armar una cálculadora (números del 0 al 9) mediante buttonsbmp. Para ello necesito los BMP donde se pinten del 0 al 9.\n\n¿ Algún alma caritativa, por favor, y me facilite o me indique donde bajar BMP de números con formas de teclas pero con estilo Wxp ?? \n\nMil gracias\nLORENZO.','',0,'GA==','1uiklww9',1,0,'',960,0,0),(45154,9400,6,1106,0,'190.64.175.78',1199014604,1,0,1,1,1,0,'','','Maestro:\n\nUd. siempre un paso adelante...\n\nFelicitaciones.\n\nRuben Fernandez','',0,'GA==','2jreosyv',1,0,'',1106,0,0),(45155,9378,3,303,0,'72.220.181.80',1199016234,1,0,1,1,1,0,'','','Mike,\n\n&gt;Currently the above code executes properly on a Panasonic pos station and errors on a Partner Tec pos station.\n\nWhat statement does it error out on? What is the error?\n\nJames','',0,'GA==','15769iec',1,0,'',303,0,0),(45156,9399,3,303,0,'72.220.181.80',1199016414,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Look at the graphics quality of the iPhone GUI:\n\nNice! Are these screenshots taken on the iPone or are you developing for the iPhone on a PC or MAC using some iPhone emulation software?\n\nJames','',0,'GA==','17u2plzk',1,0,'',303,0,0),(45157,9399,3,2,0,'87.218.146.191',1199018708,1,0,1,1,1,1,'','','James,\n\nThe screenshots are taken on the iPhone. There are no emulators available yet.\n\nI build the applications on the PC. You can build them from Windows, Linux or Mac <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3fpluazd',1,0,'',2,0,0),(45158,9404,3,303,0,'72.220.181.80',1199020881,1,0,1,1,1,0,'','TWindow default foreground color','Antonio,\n\nIs there a reason that a window defaults to a white foreground color?\n\nThis is from TWindow:New():\n\n Default...\n nClrFore := CLR_WHITE, nClrBack := GetSysColor( COLOR_WINDOW ),;\n\nIt seems this sould be:\n\nnClrFore := GetSysColor( COLOR_WINDOWTEXT), nClrBack := GetSysColor( COLOR_WINDOW ),;\n\nThe way it is now, if you try to put a SAY on a window it is white text on a white background (and thus invisible). You have to either change the foreground of the window or each SAY on the window.\n\nJames','',0,'GA==','1okdade0',1,0,'',303,0,0),(45159,9404,3,2,0,'87.218.146.191',1199022128,1,0,1,1,1,1,'','','James,\n\nYou are right. Thanks,\n\nWe are used to the gray color for the background, thats why we didn\'t noticed it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','33a4sp9t',1,0,'',2,0,0),(45160,9405,3,303,0,'72.220.181.80',1199022496,1,0,1,1,1,0,'','SAY default background color','Antonio,\n\nI think that the background color of SAYs are not defaulting properly. This is from TSay:Redefine():\n\n[code:29ozcueh]   DEFAULT oWnd      &#58;= GetWndDefault&#40;&#41;,;\n           nClrText  &#58;= oWnd&#58;nClrText,;\n           nClrBack  &#58;= GetSysColor&#40; COLOR_BTNFACE &#41;,;[/code:29ozcueh]\n           \nnClrText is fine, but nClrBack is defaulting to the default dialog color. This works as long as you are putting the SAY on dialog with the default color, but not if the dialog has a different color than the default. I suggest that it should be:\n\nnClrBack := oWnd:nClrBack\n\nThe TSay:New() method is different still.\n\n[code:29ozcueh]          nClrBack &#58;= iif&#40;Upper&#40; oWnd&#58;Classname&#40;&#41; &#41; != &quot;TWINDOW&quot;,;\n                           GetSysColor&#40; COLOR_BTNFACE &#41;,;\n                           oWnd&#58;nClrPane&#41;,;[/code:29ozcueh]      \n                     \nThis defaults to the background color of it\'s parent but only if the parent is a TWindow. If not putting the SAY on a Window it defaults to the default dialog color which has the same problem as above. So I suggest always defaulting the background color of the SAY to it\'s parent\'s background color.\n\nnClrBack := oWnd:nClrBack\n\nHowever, since these days we are doing more with fancy graphics like putting bitmaps on windows and dialogs, etc., so it seems it would be better if SAYs always defaulted to transparent so they would always show the background of the parent even if it was a bitmap. This behavior would make the default color moot. Perhaps there is some reason this can\'t or shouldn\'t be done?\n\nRegards,\nJames','',0,'AIA=','29ozcueh',1,0,'',303,0,0),(45161,9399,3,420,0,'68.224.120.206',1199027574,1,0,1,1,1,0,'','Re: First tests on the iPhone','[quote=&quot;Antonio Linares&quot;:8epvvl31]Building some test applications for the iPhone <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:8epvvl31]\nWow, very good Antonio!!! Congrats!\nI also have an iPhone ( what did you expect <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> ) and it is a GREAT device!! It\'s been cheaper than some PocketPC devices!\n\nSo count me in as a beta tester <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nPatrick','',0,'gA==','8epvvl31',1,0,'',420,0,0),(45162,9385,3,420,0,'68.224.120.206',1199028981,1,0,1,1,1,0,'','Re: Reply','Hey guys,\n\nI vote for standard a \"TRANSPARANT\" command in the SAY command. So you simply need to add \"TRANSPARANT\" to all your SAY\'s. Its the most \"backward\" compatible solution I think.\n\nPatrick','',0,'gA==','1s7xcwur',1,0,'',420,0,0),(45163,9399,3,2,0,'87.218.146.191',1199030315,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:1vjf5wl4][img:1vjf5wl4]http&#58;//img170&#46;imageshack&#46;us/img170/8042/img9003ng3&#46;png[/img:1vjf5wl4][/url:1vjf5wl4]','',0,'GA==','1vjf5wl4',1,0,'',2,0,0),(45164,9400,6,2,0,'87.218.146.191',1199030419,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:3bl30gp7][img:3bl30gp7]http&#58;//img170&#46;imageshack&#46;us/img170/8042/img9003ng3&#46;png[/img:3bl30gp7][/url:3bl30gp7]','',0,'GA==','3bl30gp7',1,0,'',2,0,0),(45165,9385,3,868,0,'219.64.121.60',1199030631,1,0,1,1,1,1,'','','Well then we would like to have Says transparent both on dialogs and windows if TRANSPARENT clause is used in the command, without having to put oWnd;Says in the ON INIT clause.\n\nIs that what all would like ?','',0,'GA==','3tbmm68g',1,0,'',868,0,0),(45166,9381,6,104,0,'189.48.79.224',1199030752,1,0,1,1,1,0,'','','Olá,\n\nAlguma dica sobre isto ? <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nGracias,\n\nRossine.','',0,'GA==','2e1u58ov',1,0,'',104,0,0),(45167,9315,4,123,0,'89.6.19.9',1199031966,1,0,1,1,1,1,'','','Paul,\n\nCreo que esto es lo que buscas.\n\n[url:32shc1hx]http&#58;//msdn2&#46;microsoft&#46;com/en-us/library/ms880691&#46;aspx[/url:32shc1hx]','',0,'EA==','32shc1hx',1,0,'',123,0,0),(45168,9390,3,34,0,'68.5.217.82',1199033301,1,0,1,1,1,1,'','Chat','Silvio,\n\nFirst, I do search .. a lot.  In fact, with FWH, my first search is always on this forum.\n\nNormally I would agree with you about the IP issue and the server.  However, if you install AIM ( AOL Instant Messenger ) on your computer, you go through AOL\'s server.  Since this program is always running on my computer, it works out well for me.  Its pretty transparent in the background, doesn\'t use a lot of resources, and pops up instantly when someone wants to chat.\n\nAOL-AIM now has a SDK ( software development kit ) that allows you to create a client rather then use theirs, or you can actually add it to your application.  Then, when someone wants to chat, rather then go to a website or have AIM installed, they can click a button in your application and be connected to a specified other user ( my tech support AIM account ).  \n\nI could just push my clients to all install AIM, but this eliminates that step.  Anyway, AOL is the IP server that does the negotiation for the connection, and it responds to the request with a connection, my custom away message, or a not-online message.\n\nThe SDK and license, like AIM, is free.  The only downside is that I don\'t program in C so translating it to xHarbour/FWH would be more of an effort. So, back to my original inquiry, I wondered if someone has already done this ...\n\nTim','',0,'EA==','gjdu0oet',1,0,'',34,0,0),(45169,8893,3,9,0,'85.60.25.147',1199040121,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:14a22kt0]Michel\n@ 0, 0 LISTBOX oBrow FIELDS                ;\n       oRs:Fields(\"CODE\"):Value,           ;\n       oRs:Fields(\"DESC\"):Value,           ;\n       oRs:Fields(\"progid\"):Value          ;\n       SIZES 80,250,80                     ;\n       HEADERS \"Code\",                     ;\n               \"Description\",              ;\n               \"ProgID\"                    ;\n       of oGRP                             \n[/quote:14a22kt0]\n\nRick,\n\nI am using that code (Thanks to RF) with Oracle DB successfully. But with table (dbf) i was using \"oLbx:nClrPane:={|| IIF((oLbx:cAlias)-&gt;(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}\" for changing rows colors and now i can not using with array. Do you know how i can doing?\n\nRegards','',0,'gA==','14a22kt0',1,0,'',9,0,0),(45170,9406,6,865,0,'189.146.206.59',1199040651,1,0,1,1,1,0,'','Se me cae la aplicación despues de 30-50 capturas','Los mejores deseos para este año nuevo 2008 a todos los miembros del foro.\n\nEstoy usando la versión FWH 7.05 de mayo del 2007 para harbour y se me cuelga la aplicación en un dialogo recursivo en un get despues de 30 a 50 veces que si puedo capturar. PUEDO AUMENTAR MEMORIA? o se SATURA EL STACK ?? o como puedo MATAR LA PILA QUE SE FORMA  PARA NO AGOTAR MEMORIA ???? . o COMO PUEDO CAPTURAR EL ERROR O EL RECURSO O LA CAUSA QUE PROVOCA EL CRASH ???\nCuando se me cuelga tengo que salir con CTRL ALT DEL y no se me pierde ningun dato y puedo continuar  con la captura pero otra vez se me cae la aplicación despues de 30 - 50 capturas.\nNo me marca ningún error al compilar ni antes de que se cuelgue la aplicación\nanexo programa fuente en : \n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/80130654/corona.prg.html\">http://rapidshare.com/files/80130654/corona.prg.html</a><!-- m -->\n\nGracias por adelantado por su AYUDA Y guia','',0,'gA==','wvkrh84g',1,0,'',865,0,0),(45171,9407,6,533,0,'83.46.207.92',1199040653,1,0,1,1,1,0,'','Una de Tabs','Buenas Noches foro,  voy a ver si pillo a alguien por aqui que sepa lo que me pasa. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nMe gustaria saber porqué en este código funcionan bien los tabs cuando le quitamos a la ventana principal \"MDI\"\n\n\n[code:38kh31bd]\n// Testing new FiveWin Tabs !!!\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Folder&#46;ch&quot;\n\n#define COLOR_BTNFACE  15\n\nstatic oWnd,oMsgBar,item1,item2\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oTabs\n\n   DEFINE WINDOW oWnd TITLE &quot;Testing FiveWin Tabs&quot; ;\n      FROM 3, 3 TO 14, 30 MDI ;\n      COLOR CLR_BLACK, GetSysColor&#40; COLOR_BTNFACE &#41;\n\n   @ 8, 0 TABS oTabs PROMPTS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot;, &quot;&amp;Four&quot; OF oWnd ;\n      ACTION &#40;oWnd&#58;Say&#40; 5, 5, oTabs&#58;nOption &#41;,msginfo&#40;&quot;Changing&#46; &#46; &#46;&quot;&#41;&#41;\n\n   //oWnd&#58;oBottom = oTabs\n\n define message oMsgBar of oWnd prompt alltrim&#40;&quot;HELLO&quot;&#41; keyboard date time\ndefine msgitem item1  of oMsgBar prompt  &quot;Usuario&#58; &quot;  size 380 COLOR rgb&#40;0,0,0&#41;,rgb&#40;252,190,29&#41;\ndefine msgitem item2  of oMsgBar prompt &quot;Nivel Seguridad&#58; &quot; size 200 COLOR rgb&#40;45,68,144&#41;,rgb&#40;255,255,255&#41;\n       \n   ACTIVATE WINDOW oWnd on resize ajustatab&#40;oTabs,oWnd&#41;\n\nreturn nil\n\n\nfunction ajustatab&#40;oTabs,oWnd&#41;\noTabs&#58;nTop&#58;=oWnd&#58;nHeight - 100\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:38kh31bd]\n\nMuchas gracias de antemano.','',0,'AIA=','38kh31bd',1,0,'',533,0,0),(45172,8893,3,868,0,'219.64.121.60',1199040757,1,0,1,1,1,1,'','','Please try\n[code:2gpo2ptw]\noLbx&#58;nClrPane&#58;=&#123;|| IIF&#40;oRs&#58;AbsolutePisition % 2==0,CLR_LGREEN,CLR_LGRAY&#41;&#125;\n[/code:2gpo2ptw]','',0,'AIA=','2gpo2ptw',1,0,'',868,0,0),(45173,9381,6,2,0,'87.218.146.191',1199041398,1,0,1,1,1,1,'','','Rossine,\n\nWe don\'t find the difference <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->  It looks as a default behavior of the Class TFolder (SysTabControl32) when it is placed on a dialog.\n\nPlease check this example and see how it automatically changes the color:\n[code:3sddizwy]\n// Dinamically building a folder ontop of a Dinamic DialogBox\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, oFld\n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ;\n      FROM 5, 5 TO 20, 50 COLOR &quot;N/G&quot;\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n      OF oDlg SIZE 160, 90\n\n   @ 1, 1 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ;\n     ACTION Another&#40; oFld &#41; // MsgInfo&#40; &quot;Hello world!&quot; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Another&#40; oFld &#41;\n\n   local oDlg\n\n   // DEFINE WINDOW oWnd TITLE &quot;FiveWin Dynamic folders&quot; ;\n   //    FROM 5, 5 TO 20, 50 COLOR &quot;N/G&quot;\n\n   DEFINE DIALOG oDlg TITLE &quot;FiveWin Dynamic folders&quot; ;\n      FROM 5, 5 TO 20, 50 COLOR &quot;N/BG&quot;\n      \n   // SetParent&#40; oFld&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   /*\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n      OF oWnd SIZE 260, 180\n\n   @ 1, 1 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ;\n     ACTION MsgInfo&#40; &quot;Hello world!&quot; &#41; SIZE 80, 20 \n   */  \n\n   ACTIVATE DIALOG oDlg ON INIT SetParent&#40; oFld&#58;hWnd, oDlg&#58;hWnd &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n[/code:3sddizwy]','',0,'AIA=','3sddizwy',1,0,'',2,0,0),(45174,8893,3,868,0,'219.64.121.60',1199041718,1,0,1,1,1,1,'','','Sorry\nAbsolutePosition\nnot\nAbsolutePisition\n\nSorry for the spelling mistake','',0,'AIA=','3cxg2fvg',1,0,'',868,0,0),(45175,9405,3,2,0,'87.218.146.191',1199042786,1,0,1,1,1,1,'','','James,\n\nHave you tried those proposed changes and see if they work fine ?\n\nThe issue about transparency is that Windows does not provide such feature, and we need to do it programmatically.','',0,'AIA=','3i3d68p7',1,0,'',2,0,0),(45176,9406,6,2,0,'87.218.146.191',1199043281,1,0,1,1,1,1,'','','En tu código la función BldDlg1() se llama a si misma (BldDlg1()) por lo que vas aumentando la pila hasta que tiras la aplicación.\n\nTienes que cambiar el diseño de tu código. Una función no debe llamarse a si misma, salvo en muy determinadas y controladas circunstancias.','',0,'AIA=','12db56on',1,0,'',2,0,0),(45177,9407,6,2,0,'87.218.146.191',1199043573,1,0,1,1,1,1,'','','Mike,\n\nLas ventanas MDI usan una ventana \"invisible\" que organiza las MDICHILDs. Así lo creó Windows, no es algo propio de FiveWin. \n\nPor esta razón no se deben poner controles sobre la superficie de una ventana MDI, porque interfiere con el funcionamiento de esa ventana \"controladora\".\n\nSi indicas con un ejemplo ó imagen, lo que quieres hacer, quizás podamos sugerirte una forma alternativa de hacerlo.','',0,'AIA=','3nbxavb4',1,0,'',2,0,0),(45178,9408,3,868,0,'219.64.121.60',1199046652,1,0,1,1,1,1,'','xbrowse - delcol method','It appears the following commented lines are redundant and can be removed from the source code.\n[code:cjtykynp]\nMETHOD DelCol&#40; nPos &#41; CLASS TXBrowse\n\n//   local oCol    // no purpose\n   local nFor\n\n//   oCol &#58;= TXBrwColumn&#40;&#41;&#58;New&#40; Self &#41;  // no purpose\n\n   &lt; &#46;&#46;&#46; rest of the code &#46;&#46;&#46; &gt;\n\nreturn nil\n[/code:cjtykynp]','',0,'AIA=','cjtykynp',1,0,'',868,0,0),(45179,9408,3,2,0,'87.218.146.191',1199047000,1,0,1,1,1,1,'','','Modified, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','359sgd0u',1,0,'',2,0,0),(45180,9409,3,868,0,'219.64.121.60',1199048290,1,0,1,1,1,1,'','xbrowse - data nDataType','In the constructor method ( New ) of xbrowse, nDataType is assigned a value of DATATYPE_RDD.  Even the methods SetArray or SetADO do not change the nDataType.  Therefore the nDataType always remains to be DATATYPE_RDD. \n\nThe Initiate method of xBrowse executes SetRDD, because nDataType is DATATYPE_RDD, though SetArray or SetADO is already used. Execution of SetRDD in such cases is not necessary and seems logically not so appropriate, though SetRDD does not disturb the existing assignments of codeblocks. The relevant part of the Initiate method is given below\n[code:320gyipd]\n   do case\n   case &#58;&#58;nDataType == DATATYPE_RDD\n      &#58;&#58;SetRDD&#40;&#41;\n   otherwise\n      MsgStop&#40;&quot;Data type not supported&quot;, &quot;TXBrowse class&quot;&#41;\n   end case\n[/code:320gyipd]\nI may be wrong, but it is possible that this was the code written in the initial stages of development before methods like SetArray / SetAdo were incorporated.  Programmers can use xBrowse even for other data sources like TData / TDatabase or any data source for that matter.\n\nKeeping this in view, it is suggested for consideration that the above lines in the initiate method may be changed as :\n[code:320gyipd]\n   if &#58;&#58;nDataType == DATATYPE_RDD\n      &#58;&#58;SetRDD&#40;&#41;\n   endif\n[/code:320gyipd]\nThe defines for DATATYPE_RDD and DATATYPE_ARRAY already exist in the xbrowse.prg.\nNew defines :\n#define DATATYPE_ADO  2\n#define DATATYPE_USER 9\ncan be added and SetArray can assign ::nDataType := DATAYPE_ARRAY and SetAdo can assign ::nDataType := DATATYPE_ADO.\n\nThis will also help the application program to retrieve the value of ::nDataType for meaningful use as may be appropriate.','',0,'AIA=','320gyipd',1,0,'',868,0,0),(45181,8893,3,35,0,'65.188.6.143',1199048379,1,0,1,1,1,0,'','','Manuel\n\nTry this code based on a specific fields in your table .. the colors are based on dates in each row..\n\nRick\n\n\n      oBRW:nClrText      := ;\n { || SelColor( oRs:Fields(\"code\"):Value,oRs:Fields(\"DEL_CODE\"):Value,oRs:Fields(\"EXPIR_DATE\"):Value,oRs:Fields(\"DELETED\"):Value,\"F\" ) }\n      oBRW:nClrPane      := ;\n { || SelColor( oRs:Fields(\"code\"):Value,oRs:Fields(\"DEL_CODE\"):Value,oRs:Fields(\"EXPIR_DATE\"):Value,oRs:Fields(\"DELETED\"):Value,\"B\" ) }\n      oBrw:nClrForeFocus := ;\n { || SelColor( oRs:Fields(\"code\"):Value,oRs:Fields(\"DEL_CODE\"):Value,oRs:Fields(\"EXPIR_DATE\"):Value,oRs:Fields(\"DELETED\"):Value,\"F\" ) }\n\n//------------------------------\nStatic Func SelColor( cCODE,cDEL,dEXP,dDEL,cTYPE )\n\nLOCAL nCOLOR := CLR_BLACK\n\nIF EMPTY(dEXP)\n   dEXP := CTOD(\"00/00/00\")\nENDIF\n\nIF EMPTY(dDEL)\n   dDEL := CTOD(\"00/00/00\")\nENDIF\n\nDO CASE\nCASE cTYPE = \'F\'\n\n     IF cDEL &lt;&gt; \"  \" .and. dDEL = CTOD(\"00/00/00\")\n        nCOLOR := CLR_WHITE                    // red\n     ELSE\n        nCOLOR := CLR_BLACK\n     ENDIF\n\nCASE cTYPE = \'B\'\n\n     DO CASE\n     CASE dEXP &lt; DATE() .and. dDEL = CTOD(\"00/00\'00\")\n        nCOLOR := RGB(255,255,0)               // yellow\n\n     CASE cCODE &lt;&gt; \"98\" .and. cCODE &lt;&gt; \"  \" .and.;\n                       cCODE &lt;&gt; \"**\"\n        nCOLOR := RGB(255,128,0)              // orange\n\n     CASE cDEL &lt;&gt; \"  \" .and. dDEL = CTOD(\"00/00/00\")\n        nCOLOR := RGB(192,3,51)                // red\n\n     OTHERWISE\n        nCOLOR := CLR_WHITE\n     ENDCASE\n\n\nENDCASE\n\nRETURN( nCOLOR )','',0,'AIA=','r07j8v1f',1,0,'',35,0,0),(45182,8893,3,9,0,'85.60.25.147',1199048778,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1l2ry311]Please try\n[code:1l2ry311]\noLbx&#58;nClrPane&#58;=&#123;|| IIF&#40;oRs&#58;AbsolutePosition % 2==0,CLR_LGREEN,CLR_LGRAY&#41;&#125;\n[/code:1l2ry311][/quote:1l2ry311]\n\nThank very much Nageswara. Now all it is ok.','',0,'gIA=','1l2ry311',1,0,'',9,0,0),(45183,9410,3,868,0,'219.64.121.60',1199049077,1,0,1,1,1,1,'','xbrowse - SetArray','Now, SetArray method resets all columns already defined if any ( ::aCols := {} ).  If we use the new command set provided for xbrowse like this :\n\n[code:3ddinwzh]\nfunction xbrindialog&#40; alin &#41;\nlocal odlg, obrw\n\n	define dialog odlg size 640,440 pixel\n\n	@ 10,10 xbrowse obrw ;\n		fields str&#40;alin&#91;obrw&#58;narrayat&#93;&#91;1&#93;,2&#41;, ;\n				 alin&#91;obrw&#58;narrayat&#93;&#91;2&#93;, ;\n				 alin&#91;obrw&#58;narrayat&#93;&#91;3&#93;  ;\n		headers \'cod\',\'description\',\'cd\' ;\n		size 300,200 pixel of odlg\n        // at this stage the columns are arleady defined\n	obrw&#58;setarray&#40;alin&#41;  // now setarray erases all the column defs\n\n	obrw&#58;createfromcode&#40;&#41;\n	activate dialog odlg centered\n\n	return nil\n[/code:3ddinwzh]\nIf the following change is made in SetArray method to automatically define the columns only if the columns are not already defined, the above code works as expected.  The suggested change is\n[code:3ddinwzh]\nif empty&#40; &#58;&#58;acols &#41;  // NEW\n    &#58;&#58;aCols &#58;= &#123;&#125;\n    for nFor &#58;= 1 to len&#40; aData&#91; 1 &#93; &#41;\n         &lt; &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; code &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; &gt;\n   next\nendif  // NEW \n[/code:3ddinwzh]\nWith this change the above code works well','',0,'AIA=','3ddinwzh',1,0,'',868,0,0),(45184,9407,6,533,0,'83.46.207.92',1199050904,1,0,1,1,1,0,'','','Gracias Antonio por la explicación. Más o menos lo que quiero realizar es que el tab me controle las ventanas hijas que tengo abiertas, por ejemplo, tengo mi ventana principal de la aplicación abierta y ademas tengo un mantenimiento de cliente (Ventana de Cliente) y un Mantenimiento de Productos (Ventana de Productos). El tab tuviera que tener 2 pestañas, una con el nombre de cada ventana, de manera que cuando pulsara sobre la pestaña correspondiente se activará su ventana asociada.\n\n    Perdona mi ignorancia, pero seria un control como aparecen en los menús de las ventanas que estan activas, y si entras dentro del menu y cambias de ventana, se activa la otra.\n\n    Espero haberme explicado bien, de todas formas, muchas gracias por tu tiempo.\n\n   FWH 7.12 + xHarbour.','',0,'AIA=','3sh9dfad',1,0,'',533,0,0),(45185,9411,18,100,0,'201.16.38.7',1199056173,1,0,1,1,1,1,'','Erro em bKeyDown','Ola amigos\n\ntem um pequeno problema com o bKeyDown na versão do FWH 7.12\n\nele EXECUTA 2X a mesma função\n\nexemplo:\n\n[code:2e5b2e4k]\n// Testing GETs\n\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n   LOCAL oDlg, oGet\n   LOCAL cCad &#58;= &quot;Testing    &quot; // pad&#40;&quot;Testing Gets&quot;,40&#41;\n   LOCAL nNum &#58;= 0\n   LOCAL dDat &#58;= Date&#40;&#41;\n\n   Set century On\n   Set Date Ansi\n   Set Date format &quot;mm/dd/yyyy&quot;\n\n   SET _3DLOOK ON\n\n   DEFINE DIALOG oDlg TITLE &quot;TGet from &quot; + FWDESCRIPTION\n\n   @ 1,    2 SAY &quot;Text&#46;&#46;&#58;&quot; OF oDlg\n   @ 1,    6 GET oGet VAR cCad OF oDlg SIZE 60, 10 COLOR &quot;W/G&quot; PICTURE &quot;@K&quot;\n   @ 1&#46;8,  2 SAY &quot;Number&#58;&quot; OF oDlg\n   @ 2,    6 GET oGet VAR nNum OF oDlg SIZE 60, 10 PICTURE &quot;9999999&#46;99&quot;\n   @ 2&#46;6,  2 SAY &quot;Date&#58;&quot; OF oDlg\n   @ 3,    6 GET oGet VAR dDat PICTURE &quot;@E&quot; OF oDlg SIZE 60, 10  // &quot;@D&quot;\n\n// VEJA AKI &lt;&lt;------------------------------------------------------------------\n// se precionar F2 ira repetir 2X a mesma função\n	oGet&#58;bKeyDown &#58;= &#123;|nKey| 	IIF&#40; nKey=VK_F2, MsgInfo&#40;&quot;ok&quot;&#41;, &#41;, NIL &#125;\n\n\n   @ 3,    7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3,   16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nprocedure appsys // XBase++ requirement\nreturn\n[/code:2e5b2e4k]\n\nCreio que isto não esta correto\n\noutra coisa na CLASSE WINDOW comigo acontece algo estranho\npois se comento a linha abaixo\n\n[color=red:2e5b2e4k]\n   METHOD EndPaint() INLINE ::nPaintCount--,;\n                     EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil //, 0 // keep this zero here!\n[/color:2e5b2e4k]\n\nveja que estou comentanto o ZERO pois desta forma as minhas DIALOGS que tem VALID se encerram corretamente\n\nse coloco o ZERO \"DEFAULT\" não me encerra \"finaliza\" a DIALOG corretamente\n\nEspero que corrijam o problema','',0,'AoA=','2e5b2e4k',1,0,'',100,0,0),(45186,9412,19,1266,0,'80.34.221.59',1199057352,1,0,1,1,1,0,'','Ayuda con Informes Web.','Llevo tiempo intentando hacer algo en programación web, las herramientas que utilizo son Dreamweaver 8 para HTML y winasp cómo servidor web.\nHasta aquí más ó menos bien, el problema lo tengo por que no logro saber cómo hacer un informe con List &amp; Label para que se genere y se visualicen los datos.\nTengo un cacao importante con L &amp; L, ya que su implementación me parece muy complicada.\n¿Hay alguno de vosotros que utilice este generador de informes para ver si me puede ayudar?.\n¿Sabéis de algún generador de informes para DBFs y sólo páginas HTM/HTML sencillo de aprender y utilizar para informes web?.','',0,'AoA=','18htqgx7',1,0,'',1266,0,0),(45187,9411,18,2,0,'87.218.146.191',1199063836,1,0,1,1,1,1,'','','oGet:bKeyDown := {|nKey|    IIF( nKey=VK_F2, ( MsgInfo(\"ok\"), [color=red:19evr2mt]0[/color:19evr2mt] ), ) }','',0,'Ag==','19evr2mt',1,0,'',2,0,0),(45188,9411,18,2,0,'87.218.146.191',1199064024,1,0,1,1,1,1,'','','Por favor prueba fwh\\samples\\TestDlg.prg y verás que el VALID se ejecuta correctamente.\n\nPuedes proporcionar un ejemplo que reproduzca el error que comentas ?','',0,'Ag==','1btanb5h',1,0,'',2,0,0),(45189,9413,3,868,0,'219.64.121.60',1199065926,1,0,1,1,1,1,'','xbrowse - footers','Footers do not appear, as expected, if we write \n\noBrw:lFooter := .t.\noBrw:aCols[n]:bFooter := {|| \"footertext\" }\n\nunless we specify cFooter, that too not empty, atleast for one column.\n\nTo make bFooters work, without having to specify non empty cfooter to atleast one column, following changes are to be made. The changes are also necessary to allocate correct width for bfooters\n \ncolumn object\'s FooterHeight method\n[code:2qlr59vb]\n//    if !Empty&#40; &#58;&#58;cFooter &#41; &#46;and&#46; &#58;&#58;oFooterFont != nil  // existing code\n\nif &#40; iif&#40; &#58;&#58;bFooter == nil, &#58;&#58;cFooter, Eval&#40; &#58;&#58;bFooter &#41; &#41; &#41; != nil &#46;and&#46; &#58;&#58;oFooterFont != nil    // new code\n[/code:2qlr59vb]\n\ncolumn object\'s FooterWidth method\n\n[code:2qlr59vb]\n// cText  &#58;= &#58;&#58;cFooter // existing code\ncText &#58;= If&#40; &#58;&#58;bFooter == nil, &#58;&#58;cFooter, Eval&#40; &#58;&#58;bFooter &#41; &#41; // new code\n&#46;&#46;&#46;\n&#46;&#46;&#46;\n// if !Empty&#40; cText &#41;  // old code\n   if cText != nil        // new code\n\n[/code:2qlr59vb]','',0,'AIA=','2qlr59vb',1,0,'',868,0,0),(45190,9414,3,487,0,'151.16.75.161',1199067864,1,0,1,1,1,0,'','RADIO from source code are not Trasparent ?','Hello all.\n\nThe small sample below produces the attached image in not themed OS\'s (under XP or Vista it\'s ok: radio background is white). Do you know how can I solve it ?\nThanks,\nDavide\nFWH 7.09 - Bcc 5.5\n[url=http&#58;//img401&#46;imageshack&#46;us/my&#46;php?image=testradla3&#46;jpg:2f0rkbd4][img:2f0rkbd4]http&#58;//img401&#46;imageshack&#46;us/img401/6505/testradla3&#46;th&#46;jpg[/img:2f0rkbd4][/url:2f0rkbd4]\n[code:2f0rkbd4]******************\nfunction testRad&#40;&#41;\n******************\nlocal oDlg, oBmp, oFont2, oBtn, oRad, cVar&#58;=&quot;First&quot;\n\n  DEFINE FONT oFont2 NAME &quot;MS Sans Serif&quot; SIZE 0,-8\n  DEFINE BRUSH oBmp RESOURCE &quot;WizDlg&quot; \n\n  DEFINE DIALOG oDlg FROM 0,0 TO 256,400 PIXEL ;\n         FONT oFont2 ;\n         TITLE &quot;Transparent Radios&quot; ;\n         BRUSH oBmp TRANSPARENT ;\n         STYLE nOr&#40; DS_SYSMODAL, WS_POPUP &#41;\n\n  @ 7,138 SAY &quot;Test&quot; SIZE 62,14 PIXEL COLOR CLR_WHITE OF oDlg  // ok, Transparent\n\n  @ 50,5 RADIO oRad VAR cVar ITEMS &quot;First&quot; SIZE 45,10 PIXEL OF oDlg\n  @ 50,55 RADIOITEM &quot;Second&quot; RADIOMENU oRad SIZE 90,10 PIXEL OF oDlg\n\n  @ 108,149 BUTTON oBtn PROMPT &quot;Close&quot; ACTION oDlg&#58;End&#40;&#41; SIZE 43,11 PIXEL FONT oFont2 OF oDLG\n\n  ACTIVATE DIALOG oDlg CENTERED \n\n  oFont2&#58;End&#40;&#41;\n  RELEASE BRUSH oBmp\n\nreturn nil\n[/code:2f0rkbd4]','',0,'GIA=','2f0rkbd4',1,0,'',487,0,0),(45191,9414,3,868,0,'219.64.121.60',1199070785,1,0,1,1,1,1,'','','The radio items are transparent with FWH 7.12, when i tested the same code ( with different bitmap ofcourse).','',0,'GIA=','k5y91h2o',1,0,'',868,0,0),(45192,9361,3,335,0,'68.193.88.53',1199071492,1,0,1,1,1,0,'','','Probably not what you want, but here it is anyway. This is a highly modified version of the old FiveCald.prg with a Schedule.rc dialog resource to go with it.  This does basically the same as datepicker, with a few refinements and with a bit larger dialog for better readability.  However, here you have all the source so you can probably make it do whatever you want.  Download the two files in a zip file named fivecald.zip from...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/software/fivecald.zip\">http://www.leadersoft.com/software/fivecald.zip</a><!-- m -->\n\nGood luck.  - Roger','',0,'GIA=','18wcvv11',1,0,'',335,0,0),(45193,8893,3,233,0,'218.111.61.90',1199085835,1,0,1,1,1,0,'','','[quote=&quot;Rick Lipkin&quot;:1atcjtmk]\n\nI wrote a thread on the subject with samples:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6691&amp;highlight\">http://fivetechsoft.com/forums/viewtopi ... &amp;highlight</a><!-- m -->\n\n[/quote:1atcjtmk]\n\nRick,\n\nI put an entry based on your ADO article in the [url=http&#58;//fivetechsoft&#46;com/wiki/:1atcjtmk]wiki[/url:1atcjtmk] at [url=http&#58;//fivetechsoft&#46;com/wiki/doku&#46;php?id=ado-related_stuffs:1atcjtmk]this section[/url:1atcjtmk]','',0,'kA==','1atcjtmk',1,0,'',233,0,0),(45194,9369,3,233,0,'218.111.61.90',1199086503,1,0,1,1,1,0,'','','Ok. Maybe I\'ll try a different approach in displaying the data then.','',0,'kA==','nl7wl1jm',1,0,'',233,0,0),(45195,9409,3,456,0,'217.127.39.57',1199092669,1,0,1,1,1,1,'','','Hi NageswaraRao,thanks for the great job you are doing in the Class tXbrowse. \n\nAbout the DATA nDataType, personally I find not mutch usefull, but you have reason, the methods SetArray and SetAdo must initialize it.\nPersonally, I thing the SetRdd is not necesarty to be called in the method Inititate, we usually (me allways) call the SetRDD,SetAdo or SetArray, before calling the CreateFrom... method.\n\nAny way \n[code:2w1wr3f1] if &#58;&#58;nDataType == DATATYPE_RDD \n      &#58;&#58;SetRDD&#40;&#41; \n   endif [/code:2w1wr3f1]\nis more correct than the current.','',0,'AIA=','2w1wr3f1',1,0,'',456,0,0),(45196,9356,3,51,0,'80.122.88.242',1199098991,1,0,1,1,1,0,'','','Antonio, \n\n&gt;two days the question posted at MS forums and no answers yet...\nI am sure you have Live Alerts. \nOnly in case if you don’t have and your baby \"iPhone\" takes too much of your time:\nI saw that there is a solution posted  now.\nRegards,\nOtto','',0,'AIA=','13ajv1hj',1,0,'',51,0,0),(45197,9356,3,2,0,'87.218.146.191',1199100676,1,0,1,1,1,1,'','','Otto,\n\nThanks, I am going to review it right now <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','10bi6tdk',1,0,'',2,0,0),(45198,9356,3,2,0,'87.218.146.191',1199102228,1,0,1,1,1,1,'','','Ok, I answered in the MS forums and posted some screenshots showing the bug (?).\n\nWe need to find a solution for this issue or this Visual Studio Extended has no meaning for us, as we don\'t need a source code editor only. We need an integrated resources editor (not an external one), plus a project manager and a source code editor. \n\nThese two last capabilities are already available in UEStudio and work excellent!','',0,'AIA=','17bx2shx',1,0,'',2,0,0),(45199,6814,3,397,0,'201.43.7.190',1199102681,1,0,1,0,1,1,'','','Antonio\n\nI´m using Harbour 45, last build of ADORDD, but this error occurs:\n\n[code:lv8zyfw2]\nError&#58; Unresolved external \'_hb_rddGetWorkAreaPointer\' referenced from USRRDD&#46;LIB|usrrdd\n[/code:lv8zyfw2]\n\nThis function [b:lv8zyfw2]_hb_rddGetWorkAreaPointer[/b:lv8zyfw2] don´t exists in my RDD.LIB or USRRDD.LIB.\n\nWhat to do?\n\nMy application run fine with this build.','',0,'QIA=','lv8zyfw2',1,0,'',397,0,0),(45200,9402,6,439,0,'190.64.95.73',1199106253,1,0,1,1,1,1,'','Re: orden de controles en un dialogo enter espaciadora','[quote=&quot;diegopolverelli&quot;:2gonav4w]Hola, tengo un pequeño problema; tengo un dialogo con 6 controles; me interesa que al ejecutar, el control pase del text1, por ej, con enter al text2, con enter al text3, con enter a un boton \"ingresa\", y con enter nuevamente al text1, sin ir, al siguiente (por ej, seria text 4). Si presiono el \"ingresa\" con la tecla espaciadora, como la funcion que ejecuta este boton culmina con un text1:setfocus(), todo funciona perfecto; ahora, si en lugar de presionar la espaciadora, presiono enter, el programa \"se saltea\" el text1:setfocus, y si bien ejecuta la funcion asociada a \"ingresa\", el foco queda en text4, provocando por lo general un error en el operador de la aplicacion. ¿como puedo hacer para que el enter me respete este setfocus al igual que la espaciadora?\nGracias. Atte.[/quote:2gonav4w]\n\nSi los controles estàn en el archivo de recursos, debes indicar el orden allí, de lo contrario, el orden será el mismo en que aparezcan en el código, vale decir que si deseas que el tab pase de el control x al contro y, deberás definirlos en ese orden en el código.\n\nPara alterar ese orden, lo haces con el metodo Losftocus() del control o en la acción en el caso de botones o donde te lo permita, es decir, todo control permite ejecutar un block de codigo al perder foco, en ese block pones un controlx:Setfocus() y en algùn caso será necesario usar la variable de instancia ojump del control que abandonas.\n\nAquí tienes un ejemplo que muda de un botón a un combobox que no es el siguiente en el orden de definicion:\n\noBoton[1]:oJump:=oCombo[1], oCombo[1]:SetFocus()\n\nEspero te ayude.','',0,'gA==','2gonav4w',1,0,'',439,0,0),(45201,9415,6,264,0,'200.91.3.10',1199106593,1,0,1,1,1,1,'','Imprimir Codigos de Barra con TDOSPRN ?','Hola a todos.\nExistira alguna clase modificada para imprimir codigos de barra en imresoras  de matriz de punto ( DOS )\nEn la actualidada uso TDOSPRN, y esta no tiene dicha caracteristica.\nAgradeceria la yuda.\nSaludos','',0,'gA==','3i3t4x86',1,0,'',264,0,0),(45202,9416,3,69,0,'74.13.51.234',1199107347,1,0,1,1,1,1,'','Array Question','Hi Everybody,\n\nI may be overlooking something simple but it has been awhile since I have worked with array\'s.\n\nI have set up an array using:\n\naIDocList := {}\nDO WHILE ! EOF()\n     aAdd( aIDocList, {DropList-&gt;Name, DropList-&gt;BMPFile}  )\n     skip\nENDDO\n\nI now need to allow the user to select the first item from a combobox in a dialog, store that value to cItem1 while storing the second value to cItem2.\n\nI am stuck at this point ... any ideas?','',0,'gA==','18ktxcvb',1,0,'',69,0,0),(45203,9411,18,100,0,'201.16.38.7',1199107856,1,0,1,1,1,1,'','','Ola amigo ANTONIO\n\nFunciono perfecto <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\noGet:bKeyDown := {|nKey| IIF( nKey=VK_F2, ( MsgInfo(\"ok\") [color=blue:3jkdkzbq], 0  [/color:3jkdkzbq]), ) }\n\nMais tenho muitas functions neste estilo, terei que fazer UMA a UMA esta mudança, num tem como permanecer igual a FWH 7.09\n\nSeriam muitas alteraçoes  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'Ag==','3jkdkzbq',1,0,'',100,0,0),(45204,9356,3,51,0,'80.122.88.242',1199108481,1,0,1,1,1,0,'','','Hello Antonio,\n\nas you can see on the screen capture res-files are working ok.\n\n\nMy problem is/was how to provide in shell isolated  development environment the VS own resource editor for editing the resources (.RC or .res).\nAnd this answer is in this \nHow to: Register Editor File Types  article:\n\nThe easiest way to register editor file types is by using the registration attributes provided as a part of the Visual Studio SDK managed package framework (MPF) classes. For an example of how to do this, see the Managed Basic Editor Sample (C#) sample. If you are implementing your package in native Visual C++, you can also write a registry script that registers your editor and the associated extensions. For an example, see the Basic Edit Sample sample.\n\n\n\nRegards,\nOtto\n[img:1j3jnaly]http&#58;//www&#46;atzwanger&#46;com/fw/VSXREs&#46;jpg[/img:1j3jnaly]','',0,'CA==','1j3jnaly',1,0,'',51,0,0),(45205,9414,3,487,0,'151.16.75.146',1199110789,1,0,1,1,1,0,'','','nageswaragunupudi,\n[quote=&quot;nageswaragunupudi&quot;:1gmol77d]The radio items are transparent with FWH 7.12, when i tested the same code ( with different bitmap ofcourse).[/quote:1gmol77d]\nThank you for testing that code. I have even FWH 7.10, but haven\'t had time to reapply my custom changes to the standard classes yet.\n\nHowever I made additional tests and the problem doesn\'t seem to be related to themes because it works as expected even on Win98 and Win2K\n\nIt seems that code behaves that way only on [b:1gmol77d]Windows Server 2003[/b:1gmol77d]. Installing the Service Pack 2 didn\'t cure it.\nOn that system, I\'ve also noticed that labels in groupboxes (from resources, in other dialogs) are not transparent too (if this can shad any lights on you).\n\nCould you please send me your compiled sample at \"guolo [dot] davide [at] tiscali [dot] it\" so that I can test it on my server ?\n\nThank you,\nDavide','',0,'wA==','1gmol77d',1,0,'',487,0,0),(45206,9415,6,53,0,'189.139.19.238',1199113552,1,0,1,1,1,1,'','','Julio:\n\nTal vez puedes usar la clase BARLIB de Cayetano que esta excelente, aunque, como sabes, el funcionamiento del codigo de barras se basa en el espesor de las barras así como en la anchura de los espacios entre barra y barra entre otras cosas, por lo tanto pienso que la impresión en una impresora matriz de puntos no te dará la calidad necesaria y tendras problemas al leer los códigos de barras.\n\nSaludos','',0,'wA==','2v32nw0j',1,0,'',53,0,0),(45207,9416,3,303,0,'72.220.181.80',1199116270,1,0,1,1,1,0,'','','Jeff,\n\nI suggest creating two arrays. Use the one you wish for the combobox, then after the user makes the selection, extract the related one from the second array by the location of the selection in the first array. Was that clear?\n\nJames','',0,'wA==','1v245gkg',1,0,'',303,0,0),(45208,9381,6,104,0,'201.58.181.110',1199119290,1,0,1,1,1,0,'','','Olá Antonio,\n\nUsando com thema em .rc\n[quote:1bwdbo2c]  1 24 \"winxp\\WindowsXP.Manifest\"[/quote:1bwdbo2c]\n\né que acontece a diferença. Sem o thema tanto na dialog ou window o folder não fica transparente.\n\nSegue abaixo o código para teste:\n\n[code:1bwdbo2c]\n\n// Dinamically building a folder ontop of a Dinamic DialogBox\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oFld\n\n   DEFINE window oWnd TITLE &quot;Using folders with Twindows&quot; ;\n            FROM 5, 5 TO 20, 50 color rgb&#40;255,255,255&#41;, rgb&#40;0,255,0&#41;\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n                OF oWnd SIZE 160, 90\n\n   @ 1, 1 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ;\n          ACTION another&#40; oFld &#41;\n\n   ACTIVATE window oWnd\n\nreturn NIL\n\nfunction another&#40; ofld &#41;\n\n   local oDlg\n\n   DEFINE dialog odlg TITLE &quot;Using folders with TDialog&quot; ;\n            FROM 5, 5 TO 20, 50 color rgb&#40;255,255,255&#41;, rgb&#40;0,255,0&#41;\n\n   ACTIVATE DIALOG oDlg ON INIT SetParent&#40; oFld&#58;hWnd, oDlg&#58;hWnd &#41; \n\nreturn nil\n[/code:1bwdbo2c]\n\nObrigado,\n\nRossine.','',0,'gIA=','1bwdbo2c',1,0,'',104,0,0),(45209,9416,3,69,0,'74.13.51.234',1199121590,1,0,1,1,1,1,'','','Hi James,\n\nI thought of doing that but I could not figure out how to get the item number from the array when selected from a resource dialog box.\n\nIf you could help with that one, I\'ll be all set.','',0,'gIA=','1ew7bwgz',1,0,'',69,0,0),(45210,9416,3,6,0,'79.9.235.188',1199121917,1,0,1,1,1,1,'','','[code:22eu8yef]oLbx&#58;nAt[/code:22eu8yef]\n\nEMG','',0,'AIA=','22eu8yef',1,0,'',6,0,0),(45211,8893,3,9,0,'85.60.25.147',1199123641,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:3gqm7lws]Manuel\n\nTry this code based on a specific fields in your table .. the colors are based on dates in each row..\n[/quote:3gqm7lws]\n\nRick thanks.\n\nI had seen now we are seven FW-Oracle ( You, Metaldrummer (Chile),  NageswaRao (India), tnhoe (Malasya), BielEA6DD, Baxajaun and I from Spain. I believe we must work together to develope this marvellous tools, (now free in Express version) and help new friends would like to work with FW + Oracle.\n\nHappy New Year.','',0,'gA==','3gqm7lws',1,0,'',9,0,0),(45212,9417,18,1146,0,'217.127.105.137',1199124184,1,0,1,1,1,0,'','error en get al editar un campo memo','Al editar un campo memo, si pulsamos click derecho, las opciones aparecen en inglés, cuando el comportamiento de los gets normales es correcto, mostrando los textos en el idioma del sistema operativo.','',0,'gA==','e11c9tpk',1,0,'',1146,0,0),(45213,8893,3,35,0,'167.7.140.254',1199124226,1,0,1,1,1,0,'','','Manuel \n\nGood luck with Oracle .. you need to have an installed Client for Oracle for msdora and or oraoledb .. not native to Windows OS like Sql server.\n\nHaven\'t had much luck in that areana. I am running Vista and the Ora9i cd\'s I use have a compatability alert when I try to install the setup .. \n\nI kinda gave up on Oracle and ADO for now .. if you have any luck or can point me in the direction to a \'vista\' compatable Oracle client .. please let me know.\n\nRick Lipkin','',0,'gA==','36e9ifom',1,0,'',35,0,0),(45214,9416,3,335,0,'68.193.88.53',1199124838,1,0,1,1,1,0,'','','Jeff,\n\nJames is right about needing a single dimension array for your combobox because a combobox cannot handle multidimension arrays directly.  However, you may have some unstated reason for wanting to create aIDocList as a multidimensional array for use as such somewhere else in your program.  If that is the case, then just download the file \"TestComb.zip\" from the link below for a sample of how to do that. The example is in 16 bit FiveWin, but works exactly the same in 32 bits...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/software/testcomb.zip\">http://www.leadersoft.com/software/testcomb.zip</a><!-- m -->\n\n- Roger','',0,'gA==','1c1umisv',1,0,'',335,0,0),(45215,9416,3,335,0,'68.193.88.53',1199125397,1,0,1,1,1,0,'','','Jeff, here it is if you just want to see the code without having to download the sample....\n\n*----------------------------\n\n* testcomb.prg\n\n#include \"fivewin.ch\"\n\nPROCEDURE Main()\n\nLOCAL aNames := {},aIDocList := {},cItem := \"\",;\n           cItem1 := \"\",cItem2 := \"\",;\n           oDlg,oCbx,oBtn\n\nUSE Droplist ALIAS Droplist NEW\n\nDO WHILE !EOF()\n\n   aAdd( aNames, DropList-&gt;Name )\n   aAdd( aIDocList, {DropList-&gt;Name, DropList-&gt;BMPFile} ) \n\n   SKIP\n\nENDDO\n\nDEFINE DIALOG oDlg TITLE \"TestCombo for Jeff Barnes\" ;\n           FROM 1,5 TO 10,40\n\n// Here is the important part, using a 1-dimension array for ITEMS, and\n// then using the selection to pull data from a multi-dimension array...\n@ 2,5 COMBOBOX oCbx VAR cItem ITEMS aNames ;\n  SIZE 40,40 PIXEL OF oDlg ;\n  ON CHANGE (cItem1 := aIDocList[oCbx:nAt,1], ;\n             cItem2 := aIDocList[oCbx:nAt,2], ;\n             oDlg:Update() )\n\n@ 20, 5 SAY cItem1 SIZE 30,12 PIXEL OF oDlg UPDATE\n@ 20,65 SAY cItem2 SIZE 40,12 PIXEL OF oDlg UPDATE\n\n@ 40,5 BUTTON oBtn PROMPT \"Cancel\" SIZE 25,12 PIXEL OF oDlg ;\n  ACTION (oDlg:End() )\n\nACTIVATE DIALOG oDlg\n \n\n\nRETURN \n*-------------','',0,'','2ignokhm',1,0,'',335,0,0),(45216,9416,3,69,0,'74.13.51.234',1199125415,1,0,1,1,1,1,'','','Thanks Enrico / James.','',0,'','2hqfz45g',1,0,'',69,0,0),(45217,9356,3,2,0,'87.218.146.191',1199126699,1,0,1,1,1,1,'','','Otto,\n\nRES files are working fine by default <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Thanks for pointing this!\n\nRC files are not supported (yet?). So we need to create RES files and use them with VSX.\n\nSo actually we have a new free resources editor! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','33lnza68',1,0,'',2,0,0),(45218,9418,6,533,0,'83.46.207.92',1199129912,1,0,1,1,1,0,'','Por este año esta bien','Bueno foro, por este año ya esta bien de darle porrazos al teclado, que tengais todos una buena entrada de año y no os atraganteis con las uvas (lentejas o lo que sea). \n\nSaludos y Hasta el año que viene. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','134dtasw',1,0,'',533,0,0),(45219,9356,3,35,0,'167.7.140.254',1199136226,1,0,1,1,1,0,'','','Antonio\n\nI guess being a compiled .res there is no need to worry about .rc formatting .. \n\nI use rc2dll32.bat to create my forms .dll .. I guess I could just as well burn the .res into my executable .. however I prefer .dll\n\nAny thoughts on that ??\n\nRick Lipkin','',0,'','ey81szf4',1,0,'',35,0,0),(45220,9356,3,343,0,'24.173.70.25',1199136619,1,0,1,1,1,0,'','','If you look at your rc2dll.bat file, I think you can comment out the command line to compile the .rc file.\nIt is the one right before the ilink32 command.','',0,'','9b5q5aqu',1,0,'',343,0,0),(45221,9419,3,394,0,'207.219.124.134',1199138934,1,0,1,1,1,0,'','If someone could compile and email to me it would be greatly','I would greatly appreciate it if someone could compile this with the latest  FiveWin and Xharbour from xharbour.com  and email it back to me.\n\nI am using versions from 2005 and if I need to upgrade so be it.\n\nI have 2 stations using the OPOS drivers for the cash drawer and Panasonic station and a Patrnertec station.\n\nThe strange thing is if I make this with vb6 it will execute on both stations without any errors.\n\nIf I make it with the versions of FWH and Xharbour from xharbour.com it will execute on the Panasonic but the Partnertec gives me an error of “Unknown error DeviceEnabled”.\n\nNow this is really strange I downloaded the demo of visual xharbour and it executes on the Partnertec but the Panasonic gives no error and does not work.\n\n\n#INCLUDE \"FIVEWIN.CH\"\nStatic drw\nprocedure main()\nlocal ownd\n DEFINE WINDOW oWnd TITLE \"OPOS/UPOS Cash Drawer Test\" from 0 ,0 to 50,150 pixel  //style nOr(WS_POPUP ) NOSYSMENU \nACTIVATE WINDOW oWnd on init rundr(ownd)\n\nprocedure rundr(ownd)\nlocal drw\ndrw:=TActiveX():New(ownd,\"OPOS.CashDrawer\" )\ndrw:open(\"drawer1\")\ndrw:ClaimDevice(1000)\ndrw:DeviceEnabled(.t.)\ndrw:OpenDrawer()\ndrw:Close()\nownd:end()\n\nThanks In Advance\nMike S. Buckler\n<!-- e --><a href=\"mailto:Mikeb@trimpos.net\">Mikeb@trimpos.net</a><!-- e -->','',0,'','2vy1i60h',1,0,'',394,0,0),(45222,9416,3,303,0,'72.220.181.80',1199142159,1,0,1,1,1,0,'','','Jeff,\n\n&gt;I thought of doing that but I could not figure out how to get the item number from the array when selected from a resource dialog box. \n\nAs Enrico or Roger showed, or:\n\naArray2[ ascan( aArray1, cItem ) )\n\nJames','',0,'','22vv13lg',1,0,'',303,0,0),(45223,9405,3,303,0,'72.220.181.80',1199143632,1,0,1,1,1,0,'','','Antonio,\n\n&gt;Have you tried those proposed changes and see if they work fine ? \n\nI\'ll do some testing and report back.\n\nJames','',0,'','3gglz4ge',1,0,'',303,0,0),(45224,9356,3,2,0,'87.218.146.191',1199144850,1,0,1,1,1,1,'','','Rick,\n\nDLLs with embedded resources are working fine! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThey are properly edited, modified and saved!\n\nIt seems that Santa listened <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'','3iy94iys',1,0,'',2,0,0),(45225,9420,3,49,0,'62.13.172.68',1199150321,1,0,1,1,1,1,'','Happy New Year 2008','To All.','',0,'','1tj9ub9b',1,0,'',49,0,0),(45226,9356,3,35,0,'65.188.6.143',1199150949,1,0,1,1,1,0,'','','Antonio\n\nI will have to try one more time to load the shell .. I was kinda \'bummed\' out reading the thread .. but have re-newed my interest.\n\nHave the day off tomorrow for new years .. I will take a shot at it ..\n\nThanks\nRick','',0,'','8wemuqak',1,0,'',35,0,0),(45227,9420,3,86,0,'78.21.111.254',1199159681,1,0,1,1,1,1,'','','Happy new year to all the FiveWin family.\n\nGood luck to you all in a good health.','',0,'','2zsfyftq',1,0,'',86,0,0),(45228,8893,3,868,0,'219.64.121.60',1199162540,1,0,1,1,1,1,'','','Friends\n\nI would be happy to share my experiences in working with Oracle.  Likewise I like to be benefited by others experiences as well. My involvement with Oracle is not limited to just using ADO, but includes PL/SQL, making Oracle packages and interfacing them with ADO.','',0,'','3t2u2fv9',1,0,'',868,0,0),(45229,9406,6,865,0,'189.146.206.59',1199163605,1,0,1,1,1,0,'','','Efectivamente, ya cambié la estructura y ya no se cuelga la aplicación pero ahora no he podido con :\n\n1.- Saltar en el dialogo oDlg el listbox (oLbx), tengo primero el oCombo luego un oGet y al final el listbox que es el que necesito saltar, lo he intentado  con : \noLbx:oJump:=oCombo\noCombo:SETFOCUS()\noDlg:aControls[ 1 ]:SetFocus()\npero sin resultado favorable ( linea 1038 )\n\n2.- En la función datox() :case GetKeyState(13) linea 743 solo me reconoce el ENTER del tablero normal y no el ENTER de la sección del teclado numérico. Donde puedo consultar el GetKeyState(?) para esa tecla ?\n\n3.- Cuando usaba recursivamente BldDlg1()  siempre podía desplegar el dialogo oDlg, ahora que no lo uso así , debido a que una función no puede llamarse asi misma, aplique \nSetKey( VK_RETURN, { || paga:=2,(BldDlg1()) } )\npero tengo que apretar ENTER para volver a la función BldDlg1(), he tratado de usar:\n __Keyboard( \"VK_RETURN\" )\npara evitar teclear un ENTER pero no he logrado evitarlo\nexiste alguna otra forma de hacerlo ?\n\nanexo archivo fuente en :\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/80428823/coro.prg.html\">http://rapidshare.com/files/80428823/coro.prg.html</a><!-- m -->\n\nFELIZ AÑO 2008 FUERTES ABRAZOS !!!!!!!','',0,'','3skymkvi',1,0,'',865,0,0),(45230,9421,3,868,0,'219.64.121.60',1199171006,1,0,1,1,1,1,'','(x)harbour class - destroy method','I see some classes in FWH have a method by name Destroy().  If we name a method as Destroy, will it be called automatically, when the object goes out of reference ?\n\nxharbour documentation mentions about DESTROYER method.  Does it also called automatically?\n\nCan any one clarify please?','',0,'','2hg8wwj8',1,0,'',868,0,0),(45231,9422,3,51,0,'80.122.88.242',1199174173,1,0,1,1,1,0,'','VSX My new IDE for Fivewin','New year, new IDE!\nHappy New Year to all,\nBest regards,\nOtto\n\n\n[img:2txs33he]http&#58;//www&#46;atzwanger&#46;com/fw/VSX2008&#46;jpg[/img:2txs33he]','',0,'CA==','2txs33he',1,0,'',51,0,0),(45232,9422,3,868,0,'219.64.121.60',1199175378,1,0,1,1,1,1,'','','Thats very nice','',0,'CA==','1hqoc9wo',1,0,'',868,0,0),(45233,9361,3,51,0,'80.122.88.242',1199175442,1,0,1,1,1,0,'','','Hello Tim,\nis it that what you are looking for?\n[img:3pub5fez]http&#58;//www&#46;atzwanger&#46;com/fw/tim1&#46;jpg[/img:3pub5fez]\n\nif yes, than try this:\n\n[img:3pub5fez]http&#58;//www&#46;atzwanger&#46;com/fw/tim2&#46;jpg[/img:3pub5fez]','',0,'CA==','3pub5fez',1,0,'',51,0,0),(45234,9421,3,2,0,'87.218.146.191',1199176416,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt;\nI see some classes in FWH have a method by name Destroy(). If we name a method as Destroy, will it be called automatically, when the object goes out of reference ? \n&gt;\n\nFWH automatically calls method Destroy() when a windows msg WM_DESTROY arrives:\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms632620.aspx\">http://msdn2.microsoft.com/en-us/library/ms632620.aspx</a><!-- m -->\n\n&gt;\nxharbour documentation mentions about DESTROYER method. Does it also called automatically? \n&gt;\n\nFWH does not uses those methods, in order to have full control of what it is happening in the application','',0,'CA==','16md7wke',1,0,'',2,0,0),(45235,9422,3,2,0,'87.218.146.191',1199176557,1,0,1,1,1,1,'','','Otto,\n\nWe are happy that you enjoy it, but are you able to automatically manage multiple PRG files and C files also, all in the same project ?\n\nActually we see VSX as a very good resources editor, but not as a project manager yet (until it is developed and implemented). Also syntax highlighting, intelliSense, source code completion, etc. has to be developed for PRG files (so we also get a good source code editor).\n\nThose features can be implemented, as VSX is ready for them, but we need some time and work to develop them\n\nIn the meantime, UEStudio is a superb project manager and source code editor, though it lacks for a good resources editor (but we can use VSX for that) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','2opmps6c',1,0,'',2,0,0),(45236,9407,6,2,0,'87.218.146.191',1199178007,1,0,1,1,1,1,'','','Podrías usar unos botones en la barra de botones, para cambiar de una ventana a otra.','',0,'CA==','9iufufiq',1,0,'',2,0,0),(45237,9361,3,868,0,'219.64.121.60',1199179449,1,0,1,1,1,1,'','','Yes. Atleast thats what I am looking for. It is calendar control. FWH does not yet have it.','',0,'CA==','391u6uk7',1,0,'',868,0,0),(45238,9421,3,868,0,'219.64.121.60',1199180037,1,0,1,1,1,1,'','','I have some related doubts about releasing objects like fonts, brushes etc. Normally I place the commands release fonts and other objects after the main (mdi) window\'s activate command. Example\n[code:1s81s11v]\nfunc main&#40;&#41;\n\ndefine window ownd MDI &#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nactivate window ownd\nrelease font &#46;&#46;&#46;\nrelease brush &#46;&#46;&#46;\nreturn 0\n[/code:1s81s11v]\n\n\n1) IF somewhere in one of the modules if we call WndMain():End(), does the control go to the statements after the main window\'s activate command and execute all release commands? \n2) If somewhere in one of the modules if we issue the statement QUIT, is there the danger that the resources are not destroyed/ released?\nif so, is it good to keep the release statements in the EXIT PROCEDURE ?\n\nOr is it desirable that all FWH classes for the resources have a destroy method, so that all the resources are destryoyed / released when the program terminates?','',0,'AIA=','1s81s11v',1,0,'',868,0,0),(45239,9423,6,960,0,'84.125.196.99',1199180240,1,0,1,1,1,0,'','de ICO a BMP','Compañeros: Feliz año nuevo a todos!!\n\nQuiero saber como haceis vosotros a la hora de disponer de BMP para incluir en los buttons.... Es decir... yo tengo gran cantidad de librerias ICO disponibles con Stylo Wxp, pero tengo escasos BMP. Hay programas por ahí que transforman ICO en BMP (ejemplo: Ico2Bmp,  Ico2Any... etc...) pero la cosa es que al transformarlo no respetan las dimensiones 32x32, por lo que hay que estar redimensionando la imagen...\n\n¿ Hay otros metodos ?, Disponeis vosotros de colecciones de BMP estilo Wxp,\ndonde conseguirlas?\nMil gracias.\nLORENZO','',0,'AIA=','z59xoa4v',1,0,'',960,0,0),(45240,9421,3,6,0,'87.16.223.57',1199185185,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1wmrvsbb]1) IF somewhere in one of the modules if we call WndMain():End(), does the control go to the statements after the main window\'s activate command and execute all release commands?[/quote:1wmrvsbb]\n\nYes.\n\n[quote=&quot;nageswaragunupudi&quot;:1wmrvsbb]2) If somewhere in one of the modules if we issue the statement QUIT, is there the danger that the resources are not destroyed/ released?[/quote:1wmrvsbb]\n\nYes. Example:\n\n[code:1wmrvsbb]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    @ 1, 1 BUTTON &quot;Test&quot;;\n           SIZE 100, 20;\n           ACTION oWnd&#58;End&#40;&#41; //MYQUIT&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    ? &quot;Exiting&quot;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION MYQUIT&#40;&#41;\n\n    QUIT\n\n    RETURN NIL[/code:1wmrvsbb]\n\n[quote=&quot;nageswaragunupudi&quot;:1wmrvsbb]if so, is it good to keep the release statements in the EXIT PROCEDURE ?[/quote:1wmrvsbb]\n\nHow an EXIT PROCEDURE could see all the variables used in the app for keeping reference of font, brush, etc.? It seem a bad idea.\n\nMaybe the easier solution is to not use QUIT at all.\n\nEMG','',0,'gIA=','1wmrvsbb',1,0,'',6,0,0),(45241,9422,3,6,0,'87.16.223.57',1199185498,1,0,1,1,1,1,'','','What is the very minimum to install to try the VSX resource editor?\n\nEMG','',0,'gIA=','2gei5y21',1,0,'',6,0,0),(45242,9424,6,960,0,'84.125.196.99',1199188974,1,0,1,1,1,0,'','Clase Tsbutton','Compañeros, una vez más tengo que recurrir a vosotros:\n\nEstoy intentando añadir esta magnifica clase (Tsbutton) a mi proyecto, pero me es imposible. Cuando compilo me genera estos errores:\n\nError: Unresolved external \'_HB_FUN_GETFONTHEIGHT\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSBUTTON.OBJ\nError: Unresolved external \'_HB_FUN_SBTNPAINT\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSBUTTON.OBJ\nError: Unresolved external \'_HB_FUN_MAKESEPARATOR\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSBAR.OBJ\nError: Unresolved external \'_HB_FUN_DRAWBOXES\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSLINES.OBJ\nError: Unresolved external \'_HB_FUN_DARKCOLOR\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSRADIO.OBJ\nError: Unresolved external \'_HB_FUN_DRAWRADIO\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSRADIO.OBJ\n\nEn mi PRG incluyo el .CH, y en el AJMAKER incluyo los PRG de la Clase. ¿donde está el problema? ¿Donde están las funciones que hace referencia estos errores?\nMe estoy volviendo loco!!... Mil gracias por vuestra paciencia.\nLORENZO\nFWH 2.7 + xHarbour 0.99.6 + Ajmaker','',0,'gIA=','2ic3uydx',1,0,'',960,0,0),(45243,9424,6,439,0,'200.125.38.35',1199194387,1,0,1,1,1,1,'','Re: Clase Tsbutton','[quote=&quot;Loren&quot;:2mlas4kd]Compañeros, una vez más tengo que recurrir a vosotros:\n\nEstoy intentando añadir esta magnifica clase (Tsbutton) a mi proyecto, pero me es imposible. Cuando compilo me genera estos errores:\n\nError: Unresolved external \'_HB_FUN_GETFONTHEIGHT\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSBUTTON.OBJ\nError: Unresolved external \'_HB_FUN_SBTNPAINT\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSBUTTON.OBJ\nError: Unresolved external \'_HB_FUN_MAKESEPARATOR\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSBAR.OBJ\nError: Unresolved external \'_HB_FUN_DRAWBOXES\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSLINES.OBJ\nError: Unresolved external \'_HB_FUN_DARKCOLOR\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSRADIO.OBJ\nError: Unresolved external \'_HB_FUN_DRAWRADIO\' referenced from C:\\PROGRAMACION\\VERDI\\OBJ\\TSRADIO.OBJ\n\nEn mi PRG incluyo el .CH, y en el AJMAKER incluyo los PRG de la Clase. ¿donde está el problema? ¿Donde están las funciones que hace referencia estos errores?\nMe estoy volviendo loco!!... Mil gracias por vuestra paciencia.\nLORENZO\nFWH 2.7 + xHarbour 0.99.6 + Ajmaker[/quote:2mlas4kd]\n\nVerifica que tienes todos los prgs, encuentras esta clase en:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6849\">http://fivetechsoft.com/forums/viewtopic.php?t=6849</a><!-- m -->\n\nTambién asegúrate de estar incluyendo bpaint.c, el cual es esencial.\n\nQue tengas un feliz año!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2mlas4kd',1,0,'',439,0,0),(45244,9425,3,995,0,'81.11.208.113',1199198928,1,0,1,1,1,0,'','Ole Excel : closing aplication with sendmessage(hwnd,16)','Hello,\n\nI try to use \n\noExcel := CreateObject( \"Excel.Application\" ) , followed with\n\noExcel:WorkBooks:Add()\noAs := oExcel:ActiveSheet()   \n\nAfter making it visible (oExcel:Visible := .T.) , the user can close aplication or return to the aplication without closing it.\n\nI noticed that excel is executed with caption .... MAP1 ...\n\nNext code can detect that excel is not closed , but closing it fails :\n\n[code:362bxpvq]\nhWnd &#58;= FINDWND&#40; &quot;MAP1&quot; &#41;\n\nIF !EMPTY&#40; hWnd &#41;\n  SENDMESSAGE&#40; hWnd, 16 &#41;\n  //CloseWindow&#40;hWnd&#41;\nEND\n\n\n#define GW_HWNDNEXT  2\n#define GW_CHILD     5\n\nFUNCTION FINDWND&#40; cTitle &#41;\n\n LOCAL hWnd &#58;= GETWINDOW&#40; GETDESKTOPWINDOW&#40;&#41;, GW_CHILD &#41;\n\nWHILE hWnd != 0\n  IF UPPER&#40; cTitle &#41; $ UPPER&#40; GETWINDOWTEXT&#40; hWnd &#41; &#41;\n    RETURN hWnd\n  ENDIF\n  hWnd = GETWINDOW&#40; hWnd, GW_HWNDNEXT &#41;\nENDDO\n\nRETURN NIL\n\n[/code:362bxpvq]\n\nHow can excel be closed ?\n\nMust the object oExcel released ? How\n\nFrank','',0,'AIA=','362bxpvq',1,0,'',995,0,0),(45245,9425,3,995,0,'81.11.208.113',1199199091,1,0,1,1,1,0,'','','Little corection : excel ask to save , when yes it is closed','',0,'AIA=','9f60p9oj',1,0,'',995,0,0),(45246,9361,3,335,0,'68.193.88.53',1199200505,1,0,1,1,1,0,'','','[img:tx5egle0]http&#58;//www&#46;leadersoft&#46;com/images/fivecald&#46;jpg[/img:tx5egle0]\n\nHere is FiveCald available from URL on my prior post. Features:\n\n- Name of date field is included on titlebar to avoid confusion when more than one date field used on a screen\n\n- current date highlighted in bold &amp; italic\n\n- can navigate forward/backward by month or year\n\n- click on a day to select it and auto-insert it into date field\n\n- automatic correct calculation of calendar for any year, including leap years\n\n- click &lt;Cancel&gt; to abort date selection\n\n- complete source provided plus .RC for calendar dialog','',0,'CA==','tx5egle0',1,0,'',335,0,0),(45247,9425,3,103,0,'189.43.121.183',1199206063,1,0,1,1,1,1,'','','Hi Frank,\n\n   I would do at the end of function:\n\noExcel:=NIL\n\nBest regards and a Happy New Year','',0,'CA==','10ykn32x',1,0,'',103,0,0),(45248,9416,3,69,0,'74.13.32.178',1199206648,1,0,1,1,1,1,'','','Thanks Roger.\n\nI ended up using the 2 separate arrays but I like your solution ... I will keep this one for next time <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','17fpottz',1,0,'',69,0,0),(45249,9422,3,2,0,'87.218.146.191',1199207049,1,0,1,1,1,1,'','','Enrico,\n\n\"Microsoft Visual Studio 2008 Shell (integrated mode) Redistributable Package\":\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=40646580-97fa-4698-b65f-620d4b4b1ed7&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->','',0,'CA==','25j8oerh',1,0,'',2,0,0),(45250,9421,3,2,0,'87.218.146.191',1199207221,1,0,1,1,1,1,'','','Nageswararao, Enrico,\n\n&gt; Maybe the easier solution is to not use QUIT at all. \n\nRight. QUIT should not be used at all.','',0,'CA==','33nj0f79',1,0,'',2,0,0),(45251,9424,6,960,0,'84.125.196.99',1199207958,1,0,1,1,1,0,'','','Jesus, gracias por contestar.... \n\nMe bajé la clase completa, incluí en la compilación todos los PRG que contiene la clase (en este caso 5), pero....\n\ncomo incluyo el archivo \"Bpaint.c\" en el ajmaker ?? Eché un vistazo en las opciones de ajmaker y observé que tiene una carpeta de ficheros C y ahí copie Bpaint.C... pero aún así el error al compilar sigue siendo el mismo.\n\n¿Hay otra manera de incluir este fichero?\nLORENZO\nMil gracias y Feliz y próspero año nuevo.','',0,'CA==','2iciomyd',1,0,'',960,0,0),(45252,9391,6,109,0,'189.192.141.96',1199209879,1,0,1,1,1,0,'','','Patricio \n   Muchas Gracias!\n\nRicardo E. Guardado Flores','',0,'CA==','26sbyq3g',1,0,'',109,0,0),(45253,8893,3,9,0,'85.60.25.147',1199212054,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1m08a65g]Friends\n\nI would be happy to share my experiences in working with Oracle.[/quote:1m08a65g]\n\nThanks Nageswara.\n\nActually, I am using oRecordSet:Find() successfully in a browse, but when I try to use oRecordSet:Filter I received an error. \n\nDo you know if we can use oRs:FILTER with ADO/ORACLE?\n\nOn next 8th January, I will begin a PL course. I hope interchange experiences with you.\n\nRegards','',0,'gA==','1m08a65g',1,0,'',9,0,0),(45254,9422,3,6,0,'87.3.228.141',1199212640,1,0,1,1,1,1,'','','That\'s all? I\'m already downloading it... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','3r5i9j0z',1,0,'',6,0,0),(45255,9425,3,6,0,'87.3.228.141',1199212950,1,0,1,1,1,1,'','Re: Ole Excel : closing aplication with sendmessage(hwnd,16)','You have oExcel. So you can use it to close Excel:\n\noExcel:Quit()\n\nEMG','',0,'gA==','5o0sngk5',1,0,'',6,0,0),(45256,9425,3,6,0,'87.3.228.141',1199212968,1,0,1,1,1,1,'','','[quote=&quot;Kleyber&quot;:bz26nrr1]Hi Frank,\n\n   I would do at the end of function:\n\noExcel:=NIL\n\nBest regards and a Happy New Year[/quote:bz26nrr1]\n\nNo, it is not needed.\n\nEMG','',0,'gA==','bz26nrr1',1,0,'',6,0,0),(45257,9426,6,430,0,'201.234.80.13',1199213701,1,0,1,1,1,0,'','¿El manejo de los campos memo mejora en FWH?','Mi aplicación ahora migrada a FWH usa bastante los campos memo incluso para lectura de variables; quisiera saber si el manejo de estos campos es mejor con FWH, me refiero a la edición, control de líneas, ajuste del texto, etc. \n\nExisten funciones nuevas para manejarlo estos campos, si es así cuales son. \n\nSaludos \n\nFernando Espinoza','',0,'gA==','3or0tgls',1,0,'',430,0,0),(45258,9422,3,6,0,'87.3.228.141',1199215773,1,0,1,1,1,1,'','','Ok, I installed vs_ideredist.exe. And now? I see no new entry in the start menu.\n\nEMG','',0,'gA==','1liaebt6',1,0,'',6,0,0),(45259,9422,3,35,0,'65.188.6.143',1199216394,1,0,1,1,1,0,'','','Enrico\n\nYou may have to run the install twice .. \n\nRick','',0,'gA==','2kf325bm',1,0,'',35,0,0),(45260,9425,3,1257,0,'195.93.60.7',1199216415,1,0,1,1,1,1,'','Hello, from Germany','Yust have a look at my sample &lt; Excel-Matrix &gt; \nyou can download it from\n<!-- m --><a class=\"postlink\" href=\"http://pflegeplus.com/fivewin\">http://pflegeplus.com/fivewin</a><!-- m -->\nor have a look at forum =&gt; utilities\n\nU.König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','jkamyylh',1,0,'',1257,0,0),(45261,9424,6,49,0,'62.13.172.68',1199216937,1,0,1,1,1,1,'','','To All,\nfrom two year I cannot modify a old program because it use tsbutton\nthe buttons are not trasparent \n\n[img:1h1v8wfk]http&#58;//img201&#46;imageshack&#46;us/img201/5752/spiaggianotrasyh7&#46;jpg[/img:1h1v8wfk]\n\n to gime me the buttons trasparent i use the command  NOBOXTR\nBUT IT NOT WORK PROPERLY\n\nSEE THE CODE ...\n\n[code:1h1v8wfk]\n\n                                        @ Fila,&#40;Col+nPassLarg&#41; SBUTTON  aBtn&#91;n&#93;;\n                                    File OMBEMPTY,;\n                                          OMBFULL,;\n                                          OMBEMPTY,;\n                                          OMBEMPTY  PIXEL ;\n                                    OF oWChld ;\n                                     FONT oFont2 ;\n                                     CAPTION cCaption ;\n                                     TEXT ON_CENTER ;\n                                     tooltip  cCaption2;\n                                   NOBOXTR[/code:1h1v8wfk]\n\n\nNow I saw  the author of this class is come back and i hope he modify this class','',0,'CIA=','1h1v8wfk',1,0,'',49,0,0),(45262,9422,3,35,0,'65.188.6.143',1199217565,1,0,1,1,1,0,'','','Otto, Antonio\n\nOk .. got VS 2008 installed .. how do I open an existing .res file ??  I have scoured the menu\'s and can not figure out how to open the forms editor .. \n\nSorry for my ignorance here ..\n\nRick Lipkin','',0,'CIA=','1tk06jef',1,0,'',35,0,0),(45263,9422,3,51,0,'80.122.88.242',1199218368,1,0,1,1,1,0,'','','Rick,\n\nThat is what I did:\n\nFile \nNew Project\n\nI selected \nVisual C++    ( for the moment, sure  we will have soon the option to select FIVEWIN)\nEmpty Project  \n\nThat creates in the Solution Explorer\na solution\nHeader\nResource Files\nSource Files\nI mark \nResource Files\nFrom the menu I select \nProject Add existing Item and select my rec. \nSame for prgs.\n\nRegards,\nOtto','',0,'CIA=','kk9dzsfd',1,0,'',51,0,0),(45264,9424,6,439,0,'200.125.45.126',1199219664,1,0,1,1,1,1,'','','[quote=&quot;Loren&quot;:3ljiy8ho]Jesus, gracias por contestar.... \n\nMe bajé la clase completa, incluí en la compilación todos los PRG que contiene la clase (en este caso 5), pero....\n\ncomo incluyo el archivo \"Bpaint.c\" en el ajmaker ?? Eché un vistazo en las opciones de ajmaker y observé que tiene una carpeta de ficheros C y ahí copie Bpaint.C... pero aún así el error al compilar sigue siendo el mismo.\n\n¿Hay otra manera de incluir este fichero?\nLORENZO\nMil gracias y Feliz y próspero año nuevo.[/quote:3ljiy8ho]\n\nParticularmente yo uso VeRCE, el cual me permite incluir todo, creo sea para tí la manera más sencilla.\n\nPuedes encontrar esta utilidad en:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/yu6ny3bsws\">http://www.box.net/shared/yu6ny3bsws</a><!-- m -->\n\nEn el archivo que bajaste incluso tienes el archivo de compilación con extensión VRC que podrás aprovechar.','',0,'gA==','3ljiy8ho',1,0,'',439,0,0),(45265,9422,3,6,0,'87.3.228.141',1199219811,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:ep33szpd]Enrico\n\nYou may have to run the install twice .. \n\nRick[/quote:ep33szpd]\n\nDo you mean vs_ideredist.exe? I already tried to run it again without results. It only prompts to uninstall or to repair the current installation. I tried to repair but nothing is changed.\n\nI noticed a dir called \"c:\\VS 2008 Shell Redist\". It contains a subdir called \"Integrated Mode\" with vside.enu.exe inside it (plus some docs).\n\nDo I have to run vside.enu.exe?\n\nEMG','',0,'gA==','ep33szpd',1,0,'',6,0,0),(45266,9424,6,960,0,'84.125.196.99',1199220825,1,0,1,1,1,0,'','','Jose, mil gracias por tus molestias\n\nConsegui, por fin, incluir esta clase en mi proyecto, construyendo la libreria SbuttonH.lib, siguiendo los pasos de leeme.txt incluido en el ZIP.\n\nLa cosa funcionó. \nMil gracias por tus molestias. Cualquier cosa, por aquí estoy.\nLORENZO','',0,'gA==','e34dw2he',1,0,'',960,0,0),(45268,9426,6,2,0,'87.218.146.191',1199225553,1,0,1,1,1,1,'','','Fernando,\n\nSon dos conceptos distintos: por un lado el uso de campos memo es algo propio del RDD de Harbour y funciona correctamente.\n\nPor otra parte en 32 bits puedes usar la clase TRichEdit que te permite una edición profesional del texto (es el mismo control que usa el \"WordPad\" de Windows). Revisa samples\\TestRtf.prg','',0,'gA==','kms8gjfl',1,0,'',2,0,0),(45269,9415,6,207,0,'189.158.87.34',1199226524,1,0,1,1,1,0,'','','Alguna vez use una función , debo tenerla en algun lado, si loggré imprimir y leer, mi plan se vino abajo porque me ponia la impresora a 6tos. solamente y la necesitaba a 8vos, y aparte que en una linea solo puede ir el codigo de barras sin mas datos,´para leerlo depende las agujas de la impresora pero si logra leerlos, actualmente supe que los nuevos lectores son muy potentes hay uno que te toma una foto del codigo y se encarga de todo, si te interesa la función te la mando....\nfeliz 2008','',0,'gA==','20gsea6f',1,0,'',207,0,0),(45270,9422,3,35,0,'65.188.6.143',1199226981,1,0,1,1,1,0,'','','Enrico\n\nYes .. run vside.enu.exe .. that will load .net3 and you may have to run that setup twice.\n\nRick','',0,'gA==','336omf9e',1,0,'',35,0,0),(45271,9428,6,838,0,'80.59.225.15',1199227743,1,0,1,1,1,0,'','Porqué no me localiza el registro?','Hola amigos\n\nIndexo (cdx) mediante:\n[code:14idp9tu]index on dtos&#40;_field-&gt;fecha&#41;+_field-&gt;Albaran tag &quot;Fecha&quot;[/code:14idp9tu]\n\nAhora intento localizar un registro mediante\n\n[code:14idp9tu] busqueda&#58;=dtos&#40;&#40;aAlias&#91;15&#93;&#41;-&gt;fecha&#41;+&#40;aAlias&#91;15&#93;&#41;-&gt;Expedi\n if !&#40;aAlias&#91;24&#93;&#41;-&gt;&#40;dbSeek&#40;busqueda&#41;&#41;\n     &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;[/code:14idp9tu]\n(aAlias[24]) Es la base que indexo (fecha y albaran)\nlos campos de (aAlias[15]) (fecha y expedi) tienen la misma longitud que los anteriores.\nAlgo se me escapa, normalmente me funciona\n\nSaludos\n\nJose Luis','',0,'AIA=','14idp9tu',1,0,'',838,0,0),(45272,9422,3,35,0,'65.188.6.143',1199227935,1,0,1,1,1,0,'','','Otto\n\nI did File New .. did not get an opportunity to select C++ .. all I see is Visual Studio solutions on the left and on the right I have 2 installed templates .. Blank and Search on-line .. Did I fail to install a componant ??\n\nRick','',0,'AIA=','2dnpq48y',1,0,'',35,0,0),(45273,9422,3,6,0,'87.3.228.141',1199228595,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:e4hmxu4h]Enrico\n\nYes .. run vside.enu.exe .. that will load .net3 and you may have to run that setup twice.\n\nRick[/quote:e4hmxu4h]\n\nOk, it wasn\'t needed to install twice but now it seems installed. Now, what I have to do to open my old BRW RES files? I tried to open them (Open file) but they seem to open as hex binary files.\n\nEMG','',0,'gA==','e4hmxu4h',1,0,'',6,0,0),(45274,8893,3,868,0,'219.64.121.60',1199232061,1,0,1,1,1,1,'','','These are some examples\n\noRs:Filter := \'COUNTRY LIKE \'IT%\'\noRs:Filter := \'AMOUNT &gt; 1000\'','',0,'gA==','3qnvqcj7',1,0,'',868,0,0),(45276,9429,6,960,0,'84.125.196.99',1199233381,1,0,1,1,1,0,'','Para Antonio','Estimado Antonio:\n\nNecesito de un Maestro que me aclare las ideas, por favor:\n\nEstoy escribiendo un módulo Touch y necesito cambiar el brush de los SBUTTON:\n\ntengo el siguiente código:\n\nREDEFINE SBUTTON obtnF[10] ID 4014 OF oDialog brush obrushF[10] ROUNDRECT NOBOXTR\nREDEFINE SBUTTON obtnF[11] ID 4015 OF oDialog brush obrushF[11] ROUNDRECT NOBOXTR\nREDEFINE SBUTTON obtnF[12] ID 4016 OF oDialog brush obrushF[12] ROUNDRECT NOBOXTR\nACTIVATE DIALOG oDialog center on init msgRun( \"Cargando datos...\",\"Espere\",{ |oDialog| cargadatos()})\nreturn\n\nfunct cargadatos()\nlocal x:=1\nselect 3\ndo while .not. eof()\ndefine brush oBrushF[x] file camino+\'\\graficos\\familias\\\'+familia-&gt;path_image\nobtnF[x]:refresh()\nx++ ; skip\nenddo\nreturn\n\nEste código NO genera errores, pero no muestra los brush.\nMil gracias de antemano.\nLORENZO.','',0,'','2u53ix18',1,0,'',960,0,0),(45277,8893,3,35,0,'65.188.6.143',1199234397,1,0,1,1,1,0,'','','Just a quick note here .. don\'t forget to clear your filters like this\n\noRs:Filter := \"\"\n\nClearing the filter will re-set the recorset and give you back access to your origional \'fetch\'\n\noRs:Requery() is a useful tool as well as oRs:ReSync(1,2) .. do not leave the resync parameters out .. and you MUST have a \'primary key\' set on your table for the Resync method to work.\n\nReSync is a must in a networked environment especially for workstation update visability... if you use local recordsets ( which I recommend ) \n\nRick Lipkin','',0,'','29azbup7',1,0,'',35,0,0),(45278,9430,3,233,0,'218.111.61.90',1199242188,1,0,1,1,1,0,'','How to inherit from 7.12\'s rpreview class?','I have a customized version of rpreview, which has a few additional buttons. \n\nSeeing that rpreview in 7.12 is now a class, I attempt to inherit from it and place my changes in this new class. So I create a new class TPreview2, copy over method ::BuildButtonBar() and started to add in the additional buttons.\n\nWhat stump me during this attempt is [b:2dqnqruy]l2007[/b:2dqnqruy] is declared as a static var in TPreview not as a class data. What\'s the correct way for me to proceed? Simply create a static [b:2dqnqruy]l2007[/b:2dqnqruy] var in TPreview2 or modify TPreview and change the var to a class data?\n\nWhat\'s actually the rule of thumb when inheriting classes that make use of static vars? TPrinter is another class that comes to mind.\n\nTIA','',0,'QA==','2dqnqruy',1,0,'',233,0,0),(45279,8893,3,9,0,'85.60.25.147',1199248617,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:hy2mvxl7]These are some examples\n\noRs:Filter := \'COUNTRY LIKE \'IT%\'\noRs:Filter := \'AMOUNT &gt; 1000\'[/quote:hy2mvxl7]\n\nThanks Nageswara. Now all it is ok.\n\nRegards','',0,'gA==','hy2mvxl7',1,0,'',9,0,0),(45280,8893,3,9,0,'85.60.25.147',1199249041,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:36ohfa6o]\noRs:Requery() is a useful tool as well as oRs:ReSync(1,2) .. do not leave the resync parameters out .. and you MUST have a \'primary key\' set on your table for the Resync method to work.\nReSync is a must in a networked environment especially for workstation update visability... if you use local recordsets ( which I recommend ) \n\nRick Lipkin[/quote:36ohfa6o]\n\nRick thanks. I unknowledge resync command. I understand now, REQUERY only actualize local SELECT versus RESYNC that incluiding all net-records that can be insert while you are working. \n\nI read RESYNC has relation with CATALOG. I think CATALOG is DB-name but really I dont know exactly its utilities.\n\nThanks for all your advices.','',0,'gA==','36ohfa6o',1,0,'',9,0,0),(45281,9423,6,1206,0,'84.77.137.157',1199255961,1,0,1,1,1,0,'','NCONVERT.EXE','Lorenzo \n\n          Prueba con nconvert.exe es gratuito y puedes convertir todos los archivos de una tirada, con una simple instrucción\n\nAquí te dejo la dirección\n\n<!-- m --><a class=\"postlink\" href=\"http://pierre.g.pagesperso-orange.fr/xnview/en_ncdownload.html\">http://pierre.g.pagesperso-orange.fr/xn ... nload.html</a><!-- m -->','',0,'gA==','384ds3ur',1,0,'',1206,0,0),(45282,9422,3,51,0,'80.122.88.242',1199261759,1,0,1,1,1,0,'','','Hello Rick,\nI am installing the VS_IDEredist.exe at the moment on a clean system.\nOn my system I installed the full VS.\n\nRegards,\nOtto','',0,'gA==','144s6xen',1,0,'',51,0,0),(45283,9431,19,2,0,'87.218.146.191',1199264741,1,0,1,1,1,1,'','VSX','[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img182&#46;imageshack&#46;us/img182/5193/screen1gb1&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img182&#46;imageshack&#46;us/img182/8181/screen1kk7&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img182&#46;imageshack&#46;us/img182/2549/screen1di3&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img227&#46;imageshack&#46;us/img227/5263/screen1gt0&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img182&#46;imageshack&#46;us/img182/9878/screen1wm2&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img182&#46;imageshack&#46;us/img182/3260/screen1uu1&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img509&#46;imageshack&#46;us/img509/1017/screen1yc7&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img509&#46;imageshack&#46;us/img509/6634/screen1gn9&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img182&#46;imageshack&#46;us/img182/3482/screen1zw9&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img227&#46;imageshack&#46;us/img227/770/screen1vv3&#46;png[/img:1h1gin28][/url:1h1gin28]\n\n[url=http&#58;//imageshack&#46;us:1h1gin28][img:1h1gin28]http&#58;//img509&#46;imageshack&#46;us/img509/2454/screen1us6&#46;png[/img:1h1gin28][/url:1h1gin28]','',0,'GA==','1h1gin28',1,0,'',2,0,0),(45284,9382,6,294,0,'201.254.180.9',1199266936,1,0,1,1,1,1,'','','Perfecto Moises!! Gracias!!','',0,'GA==','1iwwlv59',1,0,'',294,0,0),(45285,9432,18,936,0,'72.252.69.100',1199267318,1,0,1,1,1,0,'','TOutLook2003','Hola Antonio.\nHe empezado a utilizar este nuevo control con FWH7.12, y como no encontré una opción para saber que grupo me encuentro, le he hecho un pequeño cambio a Outl2003.prg que es:\n\n1. Le agregué a la clase un campo nOption para saber el grupo actual\n[code:2hx6tdnq]\n    DATA  nOption  \n[/code:2hx6tdnq]\n\n2. Se iniciliaza con 1 en el NEW\n[code:2hx6tdnq]\nMETHOD New&#40; oWnd, aPrompts, aBmpNames, bChange &#41; \n\n   local n, oDlg\n\n   DEFAULT oWnd &#58;= GetWndDefault&#40;&#41;\n\n   &#58;&#58;nOption = 1 \n[/code:2hx6tdnq]\n\n3. Se actuliza en el método SetOption\n[code:2hx6tdnq]\n   if nOption &gt; 0 &#46;and&#46; nOption != nOldOption\n      &#58;&#58;nOption &#58;= nOption  \n[/code:2hx6tdnq]\n\nPor lo que si te es util, podrías hacer por favor el cambio para que en la nueva actualización de FWH no tener que hacer de nuevo estos agregados en la clase?\n\nGracias.\n\nSaludos y Feliz Año 2008.\n\nCarlos Sincuir.','',0,'AIA=','2hx6tdnq',1,0,'',936,0,0),(45286,9422,3,2,0,'87.218.146.191',1199270831,1,0,1,1,1,1,'','','Enrico, Rick,\n\nIt seems that VSX does not open DLLs (in editing mode) by default. Some setup may be required (?).\n\nIt was working here as I had a Visual Express C++ installed previously, so probably it respected the previous association.\n\nSo I guess that in order to get it working you have to install a Visual Express C++ first, then install the redistributable integrated IDE.\n\nAs you see, Microsoft loves simplicity...  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'AIA=','18tf1awq',1,0,'',2,0,0),(45287,9433,3,448,0,'82.155.7.249',1199274274,1,0,1,1,1,0,'','Hidden MDI Child windows','Hello,\n\nUsing the code below will design a bitmap image on the window:owndclient. However if we resize the window all mdichilds can\'t be seen anymore they are hidden by the bitmap.\n\nHow can I make it work ?\n\n ACTIVATE WINDOW oWnd MAXIMIZED VALID ;\n           ON PAINT (drawbitmap( oWnd:owndclient:hdc, obmp:hbitmap, 0, 0,;\n          oWnd:owndclient:nWidth(), oWnd:owndclient:nHeight()));\n         ON DROPFILES DropArquiva(aFiles) ;\n         ON RESIZE GetWndFrame():arrangeicons()\n\nAntonio','',0,'AIA=','297w3dag',1,0,'',448,0,0),(45288,9434,6,956,0,'189.22.134.130',1199274401,1,0,1,1,1,1,'','CENTER do Dialog não considera SideBar do Windows Vista','Antonio, quando centralizo uma dialog com o codigo abaixo:\n\n[code:3gg6clzh]   Activate Dialog oDlgOS CENTER[/code:3gg6clzh]\n\nO Dialog não centraliza corretamente quando o SideBar do windows vista está ativo!!','',0,'AIA=','3gg6clzh',1,0,'',956,0,0),(45289,9381,6,362,0,'200.158.19.250',1199274599,1,0,1,1,1,1,'','','// Dinamically building a folder ontop of a Dinamic DialogBox\n\n#include \"FiveWin.ch\"\n\n//----------------------------------------------------------------------------//\n[code:qdnf5u45]\nfunction Main&#40;&#41;\n\n   local oWnd, oFld\n\n   DEFINE window oWnd TITLE &quot;Using folders with Twindows&quot; ;\n            FROM 5, 5 TO 20, 50 color rgb&#40;255,255,255&#41;, rgb&#40;0,255,0&#41;\n\n   @ 0&#46;5, 1 FOLDER oFld PROMPT &quot;&amp;xBase&quot;, &quot;&amp;And OOP&quot;, &quot;&amp;Power&quot; ;\n                OF oWnd SIZE 160, 90\n\n   oFld&#58;aDialogs&#91;1&#93;&#58;bPainted &#58;= &#123; || FillWnd &#40; oFld&#58;aDialogs&#91;1&#93;,            ;\n                                               nRGB&#40; 000, 255, 000 &#41; &#41; &#125;\n\n   @ 1, 1 BUTTON &quot;&amp;Hello&quot; OF oFld&#58;aDialogs&#91; 1 &#93; ;\n          ACTION another&#40; oFld &#41;\n\n   ACTIVATE window oWnd\n\nreturn NIL\n\nfunction another&#40; ofld &#41;\n\n   local oDlg\n\n   DEFINE dialog odlg TITLE &quot;Using folders with TDialog&quot; ;\n            FROM 5, 5 TO 20, 50 color rgb&#40;255,255,255&#41;, rgb&#40;0,255,0&#41;\n\n   ACTIVATE DIALOG oDlg ON INIT SetParent&#40; oFld&#58;hWnd, oDlg&#58;hWnd &#41; \n\nreturn nil\n\nFunction FoldResize&#40; oWnd, oFld &#41;\n\n   Local oRect &#58;= oWnd&#58;GetCliRect&#40;&#41;\n\n   oFld&#58;Move&#40; 0, 0, oRect&#58;nRight - oRect&#58;nLeft, ;\n   oRect&#58;nBottom - oRect&#58;nTop , &#46;T&#46; &#41;\n\nReturn Nil\n\nFunction FillWnd&#40; oWnd, nColor, oBmp, nSaltos &#41;\n\n    Local hWnd    &#58;= oWnd&#58;hWnd\n    Local aRect   &#58;= GetClientRect&#40; hWnd &#41;\n    Local oBrush, n\n    Local nTop    &#58;= aRect&#91; 1 &#93;\n    Local nBottom &#58;= aRect&#91; 3 &#93;\n    Local nSteps\n    Local nBlue, nRed, nGreen\n    Local lPuro   &#58;= &#46;F&#46; // LoadIniPure&#40;&#41; // Si es puro no hay degradado\n\n    // Color de degradado\n    DEFAULT nColor &#58;= 123123128 // LoadIni&#40;&quot;MADRE&quot;,&quot;DegraDialog&quot;&#41;\n\n    IF !Empty&#40; oBmp &#41;\n        IF UPPER&#40;oWnd&#58;ClassName&#40;&#41;&#41; == \'TDIALOG\' // Si es un Dialogo\n            oWnd&#58;GetDC&#40;&#41;\n            PalBmpDraw&#40; oWnd&#58;hDC, 0, 0, oBmp&#58;hBitmap &#41;\n            oWnd&#58;ReleaseDC&#40;&#41;\n        ENDIF\n        WndCenter&#40; oBmp&#58;hWnd, oWnd&#58;hWnd &#41;\n    ENDIF\n\n    If lPuro == &#46;T&#46;\n        oWnd&#58;SetColor&#40; 0, nColor &#41;\n        oWnd&#58;Refresh&#40;&#41;\n     Else\n        lPuro &#58;= &#46;F&#46;\n    Endif\n\n    If !lPuro // El color no es puro, entonces degradado\n\n       nBlue  &#58;= nRGBBlue&#40; nColor &#41;\n       nRed   &#58;= nRGBRed&#40; nColor &#41;\n       nGreen &#58;= nRGBGreen&#40; nColor&#41;\n\n       DEFAULT nSaltos &#58;= 3\n\n       nSteps &#58;= &#40; aRect&#91; 3 &#93; - aRect&#91; 1 &#93; &#41; / nSaltos\n\n       oWnd&#58;GetDC&#40;&#41;\n\n       aRect&#91; 3 &#93; = 0\n\n       For N = 1 to nSteps\n\n           aRect&#91; 3 &#93; += nSaltos\n\n           DEFINE BRUSH oBrush COLOR RGB&#40; nRed, nGreen, nBlue &#41;\n\n           FillRect&#40; oWnd&#58;hDC, aRect, oBrush&#58;hBrush &#41;\n\n           RELEASE BRUSH oBrush\n\n           aRect&#91; 1 &#93; += nSaltos\n\n           nBlue -= 1\n           nRed -= 1\n           nGreen -= 1\n\n           If nBlue  &lt; 0 ; nBlue  += 1 ; Endif\n           If nRed   &lt; 0 ; nRed   += 1 ; Endif\n           If nGreen &lt; 0 ; nGreen += 1 ; Endif\n\n        Next N\n\n        oWnd&#58;ReleaseDC&#40;&#41;\n\n    Endif\n\nReturn Nil\n[/code:qdnf5u45]','',0,'AIA=','qdnf5u45',1,0,'',362,0,0),(45290,9428,6,483,0,'190.139.118.126',1199274625,1,0,1,1,1,0,'','','Jose Luis\n\nMe parece que esta mal aplicada la Funcion DtoS.\nPorque en la indexacion colocas en la funcion dtos(_field-&gt;fecha)\ny luego le sumas el campo _field_Albaran, en cambio en la busqueda colocas la suma dentro de la funcion.\n\nSaludos\nCarlos A. Ducca\n\n\n\nHola amigos \n\nIndexo (cdx) mediante: \nCódigo: \nindex on dtos(_field-&gt;fecha)+_field-&gt;Albaran tag \"Fecha\" \n\n\nAhora intento localizar un registro mediante \n\nCódigo: \n busqueda:=dtos((aAlias[15])-&gt;fecha)+(aAlias[15])-&gt;Expedi \n if !(aAlias[24])-&gt;(dbSeek(busqueda)) \n     ............ \n\n(aAlias[24]) Es la base que indexo (fecha y albaran) \nlos campos de (aAlias[15]) (fecha y expedi) tienen la misma longitud que los anteriores. \nAlgo se me escapa, normalmente me funciona','',0,'','1s878ma8',1,0,'',483,0,0),(45291,9435,6,9,0,'85.60.25.147',1199274733,1,0,1,1,1,1,'','RecordSet  vs Database','Nuestro buen amigo Gabriel Maimó \"Biel\", tiene en su blog una comparación entre la clase de FW Database y las funciones de ADO al cargar un RecordSet. Pero en DataBase está oDbf:Blank() que creo no existe en ADO. En un programa con DB Oracle, en un Browse, estoy usando oRs:AddNew() en el módulo de ALTAS, pero si al final no valido el registro, tengo que usar oRs:DELETE() para que no aparezca el registro provisionalmente en el Browse. ¿Sabeis si hay alguna manera (que no sea a través de variables) para realizarlo?.\n\nPor otra parte,  cuando generó oRs:AddNew  crea los diferentes elementos de la matriz pero sin tamaño y tengo que ir, campo a campo, indicando el ancho:  por ejemplo oRs:Fields(\"Nombre\")value := SPACE(40). En cambio, en las modificaciones, no hay problemas.','',0,'','27fwldla',1,0,'',9,0,0),(45292,9428,6,838,0,'80.34.222.112',1199275362,1,0,1,1,1,0,'','','Gracias por responder\n\nEso es lo que me traia loco y no me daba cuenta, el cierre del paréntesis.\n\nSaludos\n\nJose Luis','',0,'','1zk7zkij',1,0,'',838,0,0),(45293,9433,3,2,0,'87.218.146.191',1199276031,1,0,1,1,1,1,'','','Antonio,\n\nDo it this way:\n\n...\nON PAINT (drawbitmap( [color=red:39keup3p]hDC[/color:39keup3p], obmp:hbitmap, 0, 0,;\n...','',0,'Ag==','39keup3p',1,0,'',2,0,0),(45294,9430,3,2,0,'87.218.146.191',1199276377,1,0,1,1,1,1,'','','Hua,\n\n&gt; What\'s the correct way for me to proceed?\n\nYes, you can declare it as a CLASSDATA and modify the source code to access ::l2007\n\nThere is nothing wrong in using static vars. The problem comes when a class is inherited, as in your case. Then, you are right, a CLASSDATA is the way to go','',0,'Ag==','amapzpnh',1,0,'',2,0,0),(45295,9433,3,448,0,'82.155.7.249',1199276673,1,0,1,1,1,0,'','','Antonio,\n\nResults the same. Doesn\'t work. Screen resolutuion 1400x1050\n\nAntonio','',0,'Ag==','1acw763a',1,0,'',448,0,0),(45296,9436,3,448,0,'82.155.7.249',1199277174,1,0,1,1,1,0,'','Get the defined font of some window object','How can I get the font of some window object like window titles, text boxes etc.\n\nAntonio','',0,'Ag==','1ec7euan',1,0,'',448,0,0),(45297,9430,3,130,0,'77.179.205.247',1199277664,1,0,1,1,1,1,'','','Antonio,\n\nwhat is the difference between CLASSDATA and DATA ?\nWhen I have to use CLASSDATA ?','',0,'Ag==','37e5l495',1,0,'',130,0,0),(45298,9388,6,278,0,'200.126.102.44',1199278307,1,0,1,1,1,1,'','','Many Thanks Silvio','',0,'Ag==','2weblo8r',1,0,'',278,0,0),(45299,9426,6,430,0,'157.100.146.2',1199278433,1,0,1,1,1,0,'','','Correcto Antonio, voy a revisar esta clase y su funcionamiento.\n\nPor otro lado, donde puedo obtener una lista actualizada de todas las clases existente en FWH, las propias de FW y las desarrolladas externamente con una pequeña descripción de su uso.','',0,'Ag==','17rq21js',1,0,'',430,0,0),(45300,9430,3,2,0,'87.218.146.191',1199278856,1,0,1,1,1,1,'','','Stefan,\n\nA DATA belongs to an object. A CLASSDATA belongs to a Class.\n\nFor example:Imagine that you want to create a class TCar, and you want to know how many cars have been produced. Then you need a CLASSDATA nCars that will be a \"shared\" value from all Cars objects.\n\nSo everytime that a car is created, you do oCar:nCars++ and nCars is the same CLASSDATA shared from all Cars objects.\n\nThere are multiple cars, and just one nCars value.','',0,'Ag==','8x3o2rrw',1,0,'',2,0,0),(45301,9381,6,104,0,'201.8.63.113',1199279055,1,0,1,1,1,0,'','','Olá João,\n\nObrigado por responder, mas o seu exemplo colore o interior do folder e não é isto que preciso   <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  Veja na imagem abaixo o quadrado em vermelho, é esta região que não está sendo preenchida na cor (verde) da TWindow, na TDialog ela é preenchida corretamente, isto em ambos os casos usando o tema do XP dentro do .RC \"1 24 \"winxp\\WindowsXP.Manifest\"\n\n[img:1qj0yyw8]http&#58;//br&#46;geocities&#46;com/qiinformatica2000/folderx&#46;png[/img:1qj0yyw8]\n\nObrigado mais uma vez,  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAbraços,\n\nRossine.','',0,'CA==','1qj0yyw8',1,0,'',104,0,0),(45302,9433,3,2,0,'87.218.146.191',1199279055,1,0,1,1,1,1,'','','Antonio,\n\nHow have you created the Bitmap ? You should use DEFINE BITMAP ... and not  \n@ ..., ... BITMAP.\n\nPlease review fwh\\samples\\Alaska.prg source code','',0,'CA==','1qj0yyw8',1,0,'',2,0,0),(45303,9436,3,2,0,'87.218.146.191',1199279281,1,0,1,1,1,1,'','','GetStockObject():\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms533223(VS.85\">http://msdn2.microsoft.com/en-us/library/ms533223(VS.85</a><!-- m -->).aspx\n\nWM_GETFONT:\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms632624(VS.85\">http://msdn2.microsoft.com/en-us/library/ms632624(VS.85</a><!-- m -->).aspx\n\nIn FWH:\n&lt;oWindow|oDialog|oControl&gt;:oFont','',0,'CA==','1oywdk99',1,0,'',2,0,0),(45304,9381,6,362,0,'200.158.19.250',1199280121,1,0,1,1,1,1,'','','ROSSINE, AI, VOCE TEM QUE COLOCAR UMA BITMAP TRANSPARENTE NO DIALOGO.\n\n[code:fofk7h0j]\n    DEFINE BRUSH oBrush FILE &quot;CONTATO&#46;BMP&quot;\n\n    DEFINE DIALOG oDlg  RESOURCE &quot;BROWSE_CONTAS_A_PAGAR&quot;                     ;\n           BRUSH oBrush TRANSPARENT\n[/code:fofk7h0j]','',0,'AIA=','fofk7h0j',1,0,'',362,0,0),(45305,9437,7,692,0,'88.26.158.97',1199280285,1,0,1,1,1,1,'','Recomendais usar windows vista','Pienso empezar a programar con FWPPC en breve en un ordenador que tiene windows vista, de vez en cuando con algun programa se me queda colgado, el ordenador es un doble core con bastante memoria.\n¿recomendais usar vista o mejor me vuelvo a XP?\nsaludos\nAntonio','',0,'AIA=','vdyux9pl',1,0,'',692,0,0),(45306,9437,7,2,0,'87.218.146.191',1199281107,1,0,1,1,1,1,'','','Antonio,\n\nNosotros usamos el emulador de Pocket PC en Vista y funciona correctamente. \n\nVista es más lento que XP, pero con una maquina potente, no se nota tanto <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2fxmy4js',1,0,'',2,0,0),(45307,9422,3,6,0,'79.3.210.46',1199283921,1,0,1,1,1,1,'','','Ok, I\'m giving up... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','zp7w41q3',1,0,'',6,0,0),(45308,8893,3,6,0,'79.3.210.46',1199284139,1,0,1,1,1,1,'','','Do you mean ADOX.Catalog? It is for dealing with the database structure.\n\nEMG','',0,'AIA=','1prj4v54',1,0,'',6,0,0),(45309,9438,6,36,0,'164.77.81.210',1199285220,1,0,1,1,1,1,'','Compilar en consola','Estimado, \n\nQuiero compilar en modo consola, pero el ejecutable se queda en memoria sin hacer nada, algo debo estar haciendo mal, a ver si me echan una ayudita\n\neste es el ADS.PRG\n\n[code:jleudpqp]Procedure Main&#40;&#41;\n	local i\n\n	alert&#40; &quot;mm2&quot; &#41;\n\n	FIELD CAMPO1, CAMPO2\n\n	dbCreate&#40; &quot;PASO&quot;, &#123;&#123; &quot;campo1&quot;, &quot;C&quot;, 10, 0 &#125;,;\n							 &#123; &quot;campo2&quot;, &quot;C&quot;, 10, 0 &#125;&#125; &#41;\n\n	SELE 0 ; USE &quot;PASO&quot; NEW EXCLUSIVE\n\n	for i &#58;= 1 to 10\n		dbAppend&#40;&#41;\n		Field-&gt;Campo1 &#58;= PadL&#40; i, 10, &quot;0&quot; &#41;\n		Field-&gt;Campo2 &#58;= str&#40;i, 10 &#41;\n	Next i\n\n	dbCloseAll&#40;&#41;\n\nreturn[/code:jleudpqp]\n\n\neste es el BAT de compilacion\n[code:jleudpqp]\n@echo off\nCLS\nECHO Compiling PRG\n\nset hdir=c&#58;\\harbour\nset bcdir=c&#58;\\borland\\bcc55\\bin\nset include=c&#58;\\harbour\\include\n\n%hdir%\\bin\\harbour ads&#46;prg /a /n &gt;clip&#46;log\n@type clip&#46;log\nIF ERRORLEVEL 1 PAUSE\nIF ERRORLEVEL 1 GOTO EXIT\n\necho -O2 -e%1&#46;exe -I%hdir%\\include -tW %1&#46;c &gt; b32&#46;bc\n%bcdir%\\bcc32 -OS -5 -tW -M @b32&#46;bc\n\n&#58;ENDCOMPILE\n\nIF EXIST %1&#46;rc %bcdir%\\brc32 -r %1\n\necho c0w32&#46;obj + &gt; b32&#46;bc\necho ADS&#46;obj, + &gt;&gt; b32&#46;bc\necho ADS&#46;exe, + &gt;&gt; b32&#46;bc\necho ADS&#46;map, + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rtl&#46;lib    + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\vm&#46;lib     + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\gtGui&#46;lib  + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\lang&#46;lib   + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\macro&#46;lib  + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\rdd&#46;lib    + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfntx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbfcdx&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\dbffpt&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\hbsix&#46;lib  + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\common&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pp&#46;lib + &gt;&gt; b32&#46;bc\nrem echo %hdir%\\lib\\rddads&#46;lib + &gt;&gt; b32&#46;bc\nrem echo %hdir%\\lib\\Ace32&#46;lib + &gt;&gt; b32&#46;bc\necho %hdir%\\lib\\pcrepos&#46;lib + &gt;&gt; b32&#46;bc\necho c&#58;\\borland\\bcc55\\lib\\cw32&#46;lib + &gt;&gt; b32&#46;bc\necho c&#58;\\borland\\bcc55\\lib\\import32&#46;lib, &gt;&gt; b32&#46;bc\n\ncls\n%bcdir%\\ilink32 -aa -Tpe @b32&#46;bc\npause\n\n&#58;EXIT[/code:jleudpqp]\n\nse agradece la ayuda..\n\nFeliz Año 2008 a tod@s','',0,'AIA=','jleudpqp',1,0,'',36,0,0),(45310,9438,6,2,0,'87.218.146.191',1199286740,1,0,1,1,1,1,'','','Patricio,\n\nPara modo consola tienes que usar gtstd.lib en vez de gtgui.lib','',0,'AIA=','3kfuybn1',1,0,'',2,0,0),(45311,9436,3,448,0,'82.155.7.249',1199286763,1,0,1,1,1,0,'','','Antonio,\n\nThanks\n\nAntonio','',0,'AIA=','1rp1ge4u',1,0,'',448,0,0),(45312,9402,6,1090,0,'201.254.52.225',1199286841,1,0,1,1,1,0,'','Re: orden de controles en un dialogo enter espaciadora','Espectacular...!!! Lo que es saber, eh... Gracias...!!!\n\n\n[quote=&quot;jose_murugosa&quot;:1hg4g9m4][quote=&quot;diegopolverelli&quot;:1hg4g9m4]Hola, tengo un pequeño problema; tengo un dialogo con 6 controles; me interesa que al ejecutar, el control pase del text1, por ej, con enter al text2, con enter al text3, con enter a un boton \"ingresa\", y con enter nuevamente al text1, sin ir, al siguiente (por ej, seria text 4). Si presiono el \"ingresa\" con la tecla espaciadora, como la funcion que ejecuta este boton culmina con un text1:setfocus(), todo funciona perfecto; ahora, si en lugar de presionar la espaciadora, presiono enter, el programa \"se saltea\" el text1:setfocus, y si bien ejecuta la funcion asociada a \"ingresa\", el foco queda en text4, provocando por lo general un error en el operador de la aplicacion. ¿como puedo hacer para que el enter me respete este setfocus al igual que la espaciadora?\nGracias. Atte.[/quote:1hg4g9m4]\n\nSi los controles estàn en el archivo de recursos, debes indicar el orden allí, de lo contrario, el orden será el mismo en que aparezcan en el código, vale decir que si deseas que el tab pase de el control x al contro y, deberás definirlos en ese orden en el código.\n\nPara alterar ese orden, lo haces con el metodo Losftocus() del control o en la acción en el caso de botones o donde te lo permita, es decir, todo control permite ejecutar un block de codigo al perder foco, en ese block pones un controlx:Setfocus() y en algùn caso será necesario usar la variable de instancia ojump del control que abandonas.\n\nAquí tienes un ejemplo que muda de un botón a un combobox que no es el siguiente en el orden de definicion:\n\noBoton[1]:oJump:=oCombo[1], oCombo[1]:SetFocus()\n\nEspero te ayude.[/quote:1hg4g9m4]','',0,'gA==','1hg4g9m4',1,0,'',1090,0,0),(45313,9426,6,2,0,'87.218.146.191',1199286915,1,0,1,1,1,1,'','','Fernando,\n\nPara la lista de clases de FWH puedes revisar la documentación de FWH, en concreto el fichero fwclass.chm. Estamos preparando una versión actualizada que publicaremos en el primer trimestre del 2008, probablemente.\n\nEn cuanto a utilidades de terceros, puedes revisar esta sección del foro:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewforum.php?f=17\">http://fivetechsoft.com/forums/viewforum.php?f=17</a><!-- m -->','',0,'gA==','xo5sxknl',1,0,'',2,0,0),(45314,9377,6,1090,0,'201.254.52.225',1199287019,1,0,1,1,1,0,'','','la abro asi:\nACTIVATE DIALOG oDlg\n\n\nel \"nowait\" no tengo la menor idea que significa... \n\n\n\n\n[quote=&quot;Antonio Linares&quot;:7tqbzih3]Diego,\n\nDesde tu PRG la caja de diálogo la muestras así ?\n\nACTIVATE DIALOG oDlg\n\nó así ?\n\nACTIVATE DIALOG oDlg NOWAIT[/quote:7tqbzih3]','',0,'gA==','7tqbzih3',1,0,'',1090,0,0),(45315,9433,3,448,0,'82.155.7.249',1199287456,1,0,1,1,1,0,'','','Yes it\'s a REDEFINE BITMAP.\n\nAntonio','',0,'gA==','1qzoj1vi',1,0,'',448,0,0),(45316,9437,7,141,0,'200.88.94.183',1199287853,1,0,1,1,1,1,'','','Utilizo Windows Vista con exito total en todas mis aplicaciones de FWH.  Manejamos cerca de 200 clientes permanentemente, donde la mayoria usan XP, pero en nuestra oficina tenemos PC nuevas con Vista, y todo corre sin problemas.  La velocidad es excelente (mejor que con XP).\n\nEso si:  maquinas que trajeron desde fábrica WV, pues me he enterado que donde se instala en maquinas que ya tenian XP, el asunto no va igual...\n\nSuerte, espero te sirva!','',0,'gA==','1ybih0db',1,0,'',141,0,0),(45317,9397,6,415,0,'190.157.64.112',1199290265,1,0,1,1,1,1,'','','! Solucionado !\n\nSimplemente comentando estas líneas de codigo: \n\n/*\nDLL32 Function HTMLHelp( ;\n   hWnd As LONG, cChmFile As LPSTR, nCommand As LONG, nTopic As LONG ) ;\n   As LONG From \"HtmlHelpA\" Lib \"hhctrl.ocx\"\n*/\n\nEstan líneas pertenecen a prg HELP32.PRG que esta ubicado en \\FWH\\source\\winapi\n\nSaludos Cordiales  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','3owv1g1i',1,0,'',415,0,0),(45318,9433,3,448,0,'82.155.7.249',1199292811,1,0,1,1,1,0,'','','Problem solved. It was an old program and the window was define size 0,0 to maxrow(), maxcol() and it doesn\'t works anymore like that.\n\nThanks,\n\nAntonio','',0,'gA==','28da842y',1,0,'',448,0,0),(45319,9361,3,34,0,'68.5.217.82',1199292905,1,0,1,1,1,1,'','Calendar','Otto &amp; Roger,\n\nOtto,\n\nThat is a control that pretty well matches the 32 bit environment.  Yes, it is what I would work.\n\nRoger,\n\nThat is an older style calendar.  I have been using that but wanted to replace it.\n\nThe control must be OK for a dialog ... using it only on a window doesn\'t work out because some of the other controls need a dialog and won\'t work properly on a window.  I\'ve tried both approaches.  I have everything working perfectly on the dialog EXCEPT for a viable calendar control.  I need the calendar to display all of the time, not just as a date field popup ( DTPICKER ).','',0,'gA==','3s0dtl1c',1,0,'',34,0,0),(45320,9439,7,692,0,'88.26.158.97',1199293118,1,0,1,1,1,1,'','usar una ventana desplazable en el formulario','Hola\npara programar un formulario de entrada , salida de datos ¿ se podria usar una ventana mas larga que la ventana del pocket pc ?\nla idea es poder desplazar la ventana arriba y abajo, para poder introducir los datos del formulario\n\nsaludos y gracias anticipadas','',0,'gA==','1gds7a1i',1,0,'',692,0,0),(45321,9422,3,35,0,'167.7.140.254',1199293145,1,0,1,1,1,0,'','','Antonio, Enrico\n\nThere are some \'good\' and \'not so good\' attributes of VS 2008 .. To be honest ( and not to hurt anyones feelings ) .. VS 2008 is a big chunk of code to load+Express C++ just to get a 32 bit Resource ( forms ) editor..  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nNow with that said .. on the flip-side, I do a lot of SQL server queries and structure manipulations and VS 2008 seems to have the ability to connect ( as easy as sql server studio 2005 ) in one nice and \'handy\' place. I see also where there is a data layout ( er diagram ) function that ( looks like ) you can show your primary, secondary keys, table structures and relationships .. in sorta a Visio type diagram.\n\nAlso there is a connect ( wizzard ) to connect ( I think ) to other data SQL sources .. like Oracle ( perhaps ) .. I have not been successful in getting the combination of Oracle Client and ADO connection strings to get close to working  .. perhaps VS 2008 would help me there.\n\nI think there is a viable use for VS 2008 and FiveWin\\(x)Harbour .. but I have a hard time swolling the baggage it takes to get the forms editor to work and be a useful Resource editor ( for me ) ..\n\nPlease forgive me ( if I am wrong ) here as I hope I have loaded the VS 2008 correctly and the above short-comings are incorrect ..\n\nBut for now .. I will continue to watch this subject with interest !!\n\nRick Lipkin','',0,'gA==','wfo7jrxi',1,0,'',35,0,0),(45322,9422,3,51,0,'80.122.88.242',1199295480,1,0,1,1,1,0,'','','Rick, but you must calculate that VSX is not customized for \nFiveWin till now. You are using it out of the box and it is free.\n\nRegards,\nOtto','',0,'gA==','1yyo120l',1,0,'',51,0,0),(45323,9422,3,35,0,'167.7.140.254',1199296922,1,0,1,1,1,0,'','','Otto\n\nI agree .. my father has always said to me .. \"Son, for FREE take .. for MONEY, ask questions\" ...\n\nI will keep watching this thread .. \n\nRick Lipkin','',0,'gA==','3s005wly',1,0,'',35,0,0),(45324,9377,6,1201,0,'200.90.17.154',1199298926,1,0,1,1,1,0,'','','El \'NO WAIT\' le indica a fivewin que el dialogo es \'MODAL\'\n\n\nSaludos!','',0,'gA==','odskgql8',1,0,'',1201,0,0),(45325,9349,6,1173,0,'190.6.195.49',1199300167,1,0,1,1,1,1,'','','Saludos Antonio:\nEl problema se me presenta, al intertar una BUTTONBAR, en un dialogo.\nEs decir, tengo una BUTTONBAR en la ventana principal, y otro en una ventana hija, y es el de la ventana hija la que me presenta esa anomalia.\nAl tener el GET con password.\n\nSaludos desde Honduras','',0,'gA==','1rrucuiu',1,0,'',1173,0,0),(45326,9440,6,1236,0,'201.86.91.84',1199301408,1,0,1,1,1,0,'','xBrowse do FWH 7.12 encontra-se estavel?','Pessoal, eu utilizo a twbrowse (com celulas editaveis), porém com a twbrowse tenho que estar teclando enter para entrar em edição e ESC para sair.\nGostaria de saber de quem usa as versões mais recente do FWH se a xbrowse esta estavel na questão de edição e se com ela eu vou ter mais liberdade na questão de edição!\n\nGrato a Todos','',0,'gA==','ldl2b2j2',1,0,'',1236,0,0),(45327,9361,3,51,0,'80.122.88.242',1199301707,1,0,1,1,1,0,'','','Hello Tim,\nI saw that in the res-file \nSysMonthCal32 is used.\n\nFivewin uses in DTPicker \n ::Create( \"SysDateTimePick32\" )\n\nMaybe if you make a new class like the one tDTPicker it should work. Not tested.\nRegards,\nOtto\n\nDef CreateMonthCal(7)       Control(\"SysMonthCal32\"    ,\"\",&amp;(7),%(2),%(3),%(4),%(5),&amp;(1),%(6),%hinstance)\nDef CreateDateTimePicker(7) Control(\"SysDateTimePick32\",\"\",&amp;(7),%(2),%(3),%(4),%(5),&amp;(1),%(6),%hinstance)','',0,'gA==','a4g1ajyg',1,0,'',51,0,0),(45328,9423,6,1173,0,'190.6.195.49',1199303904,1,0,1,1,1,1,'','Icofx','Yo estoy usando el IcoFX, me lo recomendaron los amigos de ViaOpen y me ha sido de gran utilidad, un editor gratuito que hace lo que quieres,  ademas  de muchas opciones adicionales, muy utiles como agregar transparencia a tus imagenes BMP o ICO\n\nSaludos desde Honduras  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','tpf03jfl',1,0,'',1173,0,0),(45329,9441,6,960,0,'84.125.196.99',1199304421,1,0,1,1,1,0,'','Urgente, por favor!!','Compañeros:\n\nEstoy haciendo un modulo Touch y necesito cambiar en tiempo de ejecución el BRUSH de un SBUTTON. Tiene incrustado un BMP pero necesito que cambie según las necesidades.\n\nMi prg:\n\nDefine brush oBrushF[1] file familia-&gt;nombre\nDefine dialog...\n  REDEFINE SBUTTON obtnF[ 1] ID 4005 OF oDialog brush obrushF[1] \n....\nActivate dialog...\n\n¿ Como cambio de Brush ? Probé definiendolo de nuevo y haciendo un Refresh, pero no funciona!!\n\nMil gracias por anticipado.\nLORENZO.','',0,'','cu4ntppy',1,0,'',960,0,0),(45330,9441,6,2,0,'87.218.146.191',1199305138,1,0,1,1,1,1,'','','Lorenzo,\n\nREDEFINE SBUTTON obtnF[ 1] ID 4005 OF oDialog brush obrushF[1] \n.... \nActivate dialog... ON INIT oBtnF[ 1 ]:SetBrush( oOtroBrush )','',0,'','3j935wo0',1,0,'',2,0,0),(45331,9440,6,2,0,'87.218.146.191',1199305225,1,0,1,1,1,1,'','','xbrowse está bastante estable. \n\nDe hecho la nueva versión que se va a publicar en FWH 8.01 soluciona bastantes problemas de edición en línea, etc. con lo que ha mejorado mucho.','',0,'','3se78vz9',1,0,'',2,0,0),(45332,8893,3,9,0,'85.60.25.147',1199308541,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:22y0cey3]Do you mean ADOX.Catalog? It is for dealing with the database structure.\n\nEMG[/quote:22y0cey3]\n\nThanks Enrico.  Now I know from Microsoft support that Adox.Catalog is  for MS-Jet motor specially.\n\nRegards','',0,'gA==','22y0cey3',1,0,'',9,0,0),(45333,8893,3,6,0,'82.61.144.141',1199308796,1,0,1,1,1,1,'','','This is not true. It also works at least with MS SQL Server.\n\nEMG','',0,'gA==','2lf1w6ai',1,0,'',6,0,0),(45334,9422,3,51,0,'80.122.88.242',1199311127,1,0,1,1,1,0,'','','In this episode...\nCarl and Richard talk VSX with Ken Levy who these days is all about \ncommunity and showing developers how to extened Visual Studio. \n\n47:07  about FOXPRO using VSX\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pluggd.tv/audio/channels/net_rocks__mp3direct/episodes/3n6gg\">http://www.pluggd.tv/audio/channels/net ... odes/3n6gg</a><!-- m -->','',0,'gA==','1ijuxbon',1,0,'',51,0,0),(45335,8893,3,35,0,'167.7.140.254',1199311611,1,0,1,1,1,0,'','','Manuel\n\nHere is an example of using resync() .. Lets say you have two workstations accesing the same table using the same SQL code .. so basically both workstations have identical copies of their local recordset.\n\nWorkstation 1 changes row 2 .. workstation 2 clicks on row 2 and they have \'stale\' information because there was a change that was made behind them... signature gets incremented++\n\nIn a multi-user environment I use a \'signature\' field called Updated, N, 5. \n\nI initialize all my variables before I display the information. I use resync() to go freshen up the local recordset and to make sure the table and the recordset are identical... that is why you need a \'primary key\' on the table. SQL looks to that \'primary key\' to go find that row and update the record.\n\nAs I go thru my edit routine I increment Updated++( signature field ) . If workstation 2 clicks on the same row .. my pre-edit routine does a quick ( new ) table recordset ( call ) just on \"updated\" If the initial \"updated\" value is the same as the table .. I allow the edit to be written .. if the two values are different .. I know someone has slipped behind workstation 2 and written changes to the same row in the same table .. and I stop the edit on workstation 2 from over-writing what workstation 1 just changed.\n\nHope that makes sense.\n\nRick','',0,'gA==','1gmqenm9',1,0,'',35,0,0),(45336,9442,6,1059,0,'190.30.40.2',1199313452,1,0,1,1,1,0,'','array dos dimensiones','Buenas tardes y buen año para todos,\n\nNunca usé arrays de dos dimensiones y ahora necesito cargar un array con los datos de dos campos de una dbf y luego, hacer un browse con ellos.\n\nAlgo hago mal, porque no funciona. Adjunto el código simplificado para ver si alguien puede ayudarme. Obviamente en cAlias está el alias de la dbf en uso. y ya hice el go top.\n\nEl code es este´:\n\n local aArray:=array(2)\n\n \n do while ! eof()\n  Aadd(aArray , {((cAlias)-&gt;MODELO) , ((cAlias)-&gt;CHASIS)})\n  skip\n  loop\n enddo\n\n define dialog oDlg  resource 1009 of oWnd\n   redefine listbox oLbx fields aArray[1], aArray[2] ;\n     headers \"MODELO\", \"CHASSIS\" ;\n     id 102 of oDlg ;\n     on dblclick oDlg:end()\n     oLbx:cTooltip:=\'Doble click para selectar ítem y salir\'\n\n activate dialog oDlg center\n\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','6582hdoy',1,0,'',1059,0,0),(45337,9441,6,960,0,'84.125.196.99',1199314440,1,0,1,1,1,0,'','','Antonio, gracias por tu rapidez.\n\nHice lo que me comentaste pero no surte efecto.\nMi prg es:\n\n....\nDefine brush oBrushF[1] file familia-&gt;nombre\nDefine dialog oDialog resource \'Ventas\'\n REDEFINE SBUTTON obtnF[1] ID 4005 OF oDialog brush obrushF[1] \n REDEFINE SBUTTON oscrollF   ID 4006 OF oDialog action scrollF() &amp;&amp;para mostrar mas button en la pantalla\nActivate dialog oDialog center\n..\n..\nfunct scrollF()\n  define brush oBrushF[1] file \'verde.bmp\' &amp;&amp; aquí defino el nuevo Brush\n  oBtnF[1]:SetBrush( oBrushF[1] )           \n  oBtnF[1]:SetBrush( TBrush():New(\'verde.bmp\') ) &amp;&amp;tambien lo he probado así pero tampoco funciona.\n  oBtnF[1]:refresh()                                \nreturn\n\n¿ Será algun problema de la clase TSButton ? Mil gracias, Antonio.\nLORENZO','',0,'','162vci7q',1,0,'',960,0,0),(45338,9442,6,492,0,'189.147.68.245',1199315074,1,0,1,1,1,1,'','','[code:37nglyqo]\nREDEFINE LISTBOX lbCptAdq ;\n	FIELDS aCptAdq&#91;pCA,1&#93;,aCptAdq&#91;pCA,2&#93;,aCptAdq&#91;pCA,3&#93;, ;\n	aCptAdq&#91;pCA,4&#93;,aCptAdq&#91;pCA,5&#93;,aCptAdq&#91;pCA,6&#93;  ;\n	HEAD &quot;RENGLON&quot;,&quot;CLAVE Y DESCRIPCION DE LOS BIENES&quot;,&quot;CANT&quot;,&quot;UNIDAD&quot;,&quot;UNITARIO&quot;,&quot;IMPORTE&quot; ;\n	ID 133 ;\n	FONT oFntBrw ;	\n	FIELDSIZES 65,595,60,70,90,95 ;\n	OF oMainPgs&#58;aDialogs&#91;1&#93;\n\n	lbCptAdq&#58;SetArray&#40; aCptAdq &#41;\n	lbCptAdq&#58;nLineStyle &#58;= 2\n	lbCptAdq&#58;lDrawFocusRect &#58;= &#46;F&#46;\n	lbCptAdq&#58;nClrLine   &#58;= CLR_WHITE\n//	lbCptAdq&#58;nClrBackHead &#58;= 13425898\n	lbCptAdq&#58;BGOTOP     &#58;= &#123; || pCA &#58;=1&#125;\n  	lbCptAdq&#58;BGOBOTTOM  &#58;= &#123; || pCA &#58;= eVal&#40; lbCptAdq&#58;bLogicLen &#41; &#125;\n  	lbCptAdq&#58;BSKIP      &#58;= &#123; | nwant, nold | nold &#58;= pCA , pCA += nwant, ;\n	pCA &#58;= Max&#40; 1, Min&#40; pCA, eVal&#40; lbCptAdq&#58;bLogicLen &#41; &#41; &#41;, pCA - nOld &#125;\n	lbCptAdq&#58;BLOGICLEN  &#58;= &#123; || Len&#40; aCptAdq &#41; &#125;\n	lbCptAdq&#58;AJUSTIFY   &#58;= &#123; 2,0,1,2,1,1 &#125;\n//	lbCptAdq&#58;AJUSTIFY   &#58;= &#123; &#46;F&#46;,&#46;F&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46;,&#46;T&#46; &#125;\n//	lbCptAdq&#58;bKeyDown   &#58;= &#123; | nKey | CAPVTSKEY&#40; nKey &#41; &#125;\n	lbCptAdq&#58;nClrPane   &#58;= &#123; || IIF&#40; pCA%2 == 0, ClrBrwsA, ClrBrwsB &#41; &#125;\n//	lbCptAdq&#58;AACTIONS   &#58;= &#123; ,,,&#123;|| APLDSCTX&#40;1&#41; &#125;,,,&#123;|| APLDSCTX&#40;2&#41; &#125; &#125;\n	lbCptAdq&#58;lAdjLastCol&#58;= &#46;F&#46;\n[/code:37nglyqo]\n\n\nCon eso te debe trabajar bien !\n\nSaludos','',0,'AIA=','37nglyqo',1,0,'',492,0,0),(45339,9443,6,492,0,'189.147.68.245',1199316575,1,0,1,1,1,1,'','Index, Encrypt, Dbf, y UDF','Hola a todos\n\nRetomando un viejo hilo que se estuvo viendo hace unos meses acerca de encriptar los datos en las Dbfs, estoy probando la opcion de usar el encrypt / decrypt.\n\nEsta trabajando bien, solo un pequeno detalle :\n\nAl crear los indices : Index ON XXXXX + Decrypt( YYYYYYY, \"ALGO\" ) TO ZZZZZZZ\n\nNormalmente, nos podriamos sentir \"seguros\" que nadie sabe el PassWord usado, pero si por X motivo la aplicacion se rompe, al momento de generar el archivo ERROR.LOG, ahi sale toda la informacion de las Dbfs usadas y sus indices y tales indices, con los campos que fueron usados y por supuesto, sale nuestro PassWord <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n\nEstoy buscando la manera de cambiar \"ALGO\" por una variable que contenga cierto dato obtenido de una UDF, de tal manera que no sea \"visible\".\n\nPero, al parecer hay ciertos detalles usando variables y funciones en macros.\n\nAlguien que pueda darme alguna mano en este punto.\n\n\nMuchas Gracias por anticipado.','',0,'AIA=','2sofuhng',1,0,'',492,0,0),(45340,9443,6,492,0,'189.147.68.245',1199317230,1,0,1,1,1,1,'','','Perdon, se me paso comentar que no estoy usando la forma \"normal\" al momento de crear el indice :\n\nINDEX ON XDBF-&gt;XCAMPO + DECRYPT(XDBF-&gt;YCAMPO) TO XINDFILE\n\nEstoy usando un arreglo y pongo los campos en una cadena :\n\n\"Str( XDBF-&gt;XCAMPO + DECRYPT( XDBF-&gt;YCMPO, \'ALGO\' )\"\n\nEs por eso que se me complica un poco, \"meter\" el valor en esa cadena y que se ejecute correctamente.\n\n\nSaludos','',0,'AIA=','etxbp613',1,0,'',492,0,0),(45341,9422,3,2,0,'87.218.146.191',1199319375,1,0,1,1,1,1,'','','Videos better than radio <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/aa700829.aspx\">http://msdn2.microsoft.com/en-us/aa700829.aspx</a><!-- m -->','',0,'AIA=','e0ayjh0r',1,0,'',2,0,0),(45342,9441,6,2,0,'87.218.146.191',1199319612,1,0,1,1,1,1,'','','Lorenzo,\n\nHabría que revisar el código de la clase TSButton, y ver si admite el cambio de brush.\n\nRevisa los métodos EraseBkGnd() y Paint().','',0,'AIA=','2u1rihsu',1,0,'',2,0,0),(45343,9399,3,2,0,'87.218.146.191',1199322922,1,0,1,1,1,1,'','','Harbour already running inside the iPhone!\n\n[url=http&#58;//imageshack&#46;us:3unk7hol][img:3unk7hol]http&#58;//img134&#46;imageshack&#46;us/img134/8962/iphone038tw6&#46;png[/img:3unk7hol][/url:3unk7hol]','',0,'GA==','3unk7hol',1,0,'',2,0,0),(45344,9400,6,2,0,'87.218.146.191',1199323006,1,0,1,1,1,1,'','','Harbour funcionando ya dentro del iPhone!\n\n[url=http&#58;//imageshack&#46;us:3i9jtjx9][img:3i9jtjx9]http&#58;//img134&#46;imageshack&#46;us/img134/8962/iphone038tw6&#46;png[/img:3i9jtjx9][/url:3i9jtjx9]','',0,'GA==','3i9jtjx9',1,0,'',2,0,0),(45345,9287,7,1135,0,'189.136.196.233',1199323893,1,0,1,1,1,1,'','','Muchas Gracias, Me desonecte la ultima semana del año, pero ya ando por aca, realmente agradezco la pronta respuesta. Feliz Año 2008.\n\n[quote=&quot;Antonio Linares&quot;:1cr0rm5k]Arturo,\n\nEste es un ejemplo para alternar los colores de cada línea:\n\noBrw:nClrPane := { || If( OrdKeyNo() % 2 == 0, RGB( 230, 230, 230), RGB( 190, 215, 190 ) ) }[/quote:1cr0rm5k]','',0,'gA==','1cr0rm5k',1,0,'',1135,0,0),(45346,9287,7,1135,0,'189.136.196.233',1199323932,1,0,1,1,1,1,'','','Gracias a ambos. Feliz Año nuevo.\n\n[quote=&quot;luis.santeliz&quot;:2fcw8e1h]bueno yo lo uso de esta forma q es un poquitito mas rapido...\n\n[code:2fcw8e1h]oBrw&#58;nClrPane&#58;=&#123;||IIF&#40; &#40;oBrw&#58;Cargo&#58;=!oBrw&#58;Cargo&#41; , RGB&#40;193,221,255&#41;, RGB&#40;221,245,255&#41; &#41;&#125;[/code:2fcw8e1h]\n\nse me ocurre ahora q tambien puede ser...\n\n[code:2fcw8e1h]oBrw&#58;nClrPane&#58;=&#123;||IIF&#40; &#40;oBrw&#58;nAt%2 , RGB&#40;193,221,255&#41;, RGB&#40;221,245,255&#41; &#41;&#125;[/code:2fcw8e1h][/quote:2fcw8e1h]','',0,'gIA=','2fcw8e1h',1,0,'',1135,0,0),(45347,9444,3,49,0,'62.13.172.68',1199326626,1,0,1,1,1,1,'','FingerApi.dll','Someone have created something with this Dynamic library ?\nI not found the documentation\'s functions\nhave U an sample ?\n\nI found it at :http://216.109.125.130/search/cache?ei=UTF-8&amp;p=fingerApi&amp;fr=yfp-t-501&amp;fp_ip=IT&amp;u=www.codeproject.com/useritems/Abs_Fingerprint.asp%3Fmsg%3D2240069&amp;w=fingerapi&amp;d=bR7v6rXiPysu&amp;icp=1&amp;.intl=us','',0,'gIA=','zfbjfwii',1,0,'',49,0,0),(45348,9430,3,233,0,'218.111.61.90',1199338584,1,0,1,1,1,0,'','','Thanks for the reply Antonio','',0,'gIA=','6x6een4g',1,0,'',233,0,0),(45349,9422,3,51,0,'80.122.88.242',1199342694,1,0,1,1,1,0,'','','Thank you for the link. \nOT: on\nThe Buggles - Video Killed The Radio Star <!-- m --><a class=\"postlink\" href=\"http://youtube.com/watch?v=6LB6Q_oycfQ\">http://youtube.com/watch?v=6LB6Q_oycfQ</a><!-- m -->\noff\n\nAfter hearing the  interview with Ken Levy I bet VSX will become the standard IDE for FiveWin.\nWho bets again?\nRegards,\nOtto','',0,'gIA=','dv2kgdy7',1,0,'',51,0,0),(45350,9422,3,2,0,'87.218.146.239',1199347625,1,0,1,1,1,1,'','','Otto,\n\nOnce FWH 8.01 is published, and now that I am going much faster with the iPhone than I thought, we plan to go for the VSX <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','230xl4jt',1,0,'',2,0,0),(45351,9440,6,1236,0,'201.86.91.84',1199354824,1,0,1,1,1,0,'','','Antonio, vc tem idéia de quando lancara a nova versão do FWH?\n\nE se devo comprar direto da FIVETECH ou de algum representante?\n\n\nGrato','',0,'gIA=','28636p7e',1,0,'',1236,0,0),(45352,9442,6,1059,0,'190.30.66.150',1199358461,1,0,1,1,1,0,'','','Raymundo,\n\nGracias por tu respuesta.\n\nEstoy viendo el código que publicaste y te consulto, el [pCA,1], [pCA,2], etc, ¿Son para indicar, el \"[pCA\" la ubicación dentro del array y el \",1]\" la dimensión que le corresponde?\n\nCuando vuelva de mi trabajo, desde donde estoy escribiendo lo pongo en práctica y comento los resultados, pero me interesa saber lo que te consulté antes.\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','1iig4sgt',1,0,'',1059,0,0),(45353,9445,7,517,0,'189.17.213.15',1199358887,1,0,1,1,1,0,'','Como Fazer para funcionar uma aplicação no Emulador..','Baixei o Emulador e uns Demos para Testar\nDai não consigo Fazer Funcionar Corretamente no emulador\nO Emulador Abre, mas não consigo Fazer a APLICACAO funcionar...\n\nObrigado...','',0,'','20gsr7vj',1,0,'',517,0,0),(45354,9377,6,1090,0,'201.254.52.225',1199359309,1,0,1,1,1,0,'','','Hola. ¿alguien sabe como puedo hacer para anular la ejecucion de un VALID, o para configurar el SETKEY de manera que primero ejecute el VALID y despues la funcion del setkey?\nGracias.\n\n[quote=&quot;ADBLANCO&quot;:1utxa6gs]El \'NO WAIT\' le indica a fivewin que el dialogo es \'MODAL\'\n\n\nSaludos![/quote:1utxa6gs]','',0,'gA==','1utxa6gs',1,0,'',1090,0,0),(45355,9446,6,21,0,'87.220.90.83',1199362343,1,0,1,1,1,1,'','Icono/Bitmap en Folder','¿Se podría incorporar un bitmap o un icono a las pestañas de los folder\'s para cerrarlos desde ahí?\n\nIgual que hace Internet Explorer y Mozilla Firefox\n\n[img:1yiubza6]http&#58;//img293&#46;imageshack&#46;us/img293/2593/folderen4&#46;png[/img:1yiubza6]','',0,'CA==','1yiubza6',1,0,'',21,0,0),(45356,9442,6,483,0,'190.137.44.142',1199363932,1,0,1,1,1,0,'','','Hola Rolando:\n\nEl problema aparente es en la definicion del ARRAY, ya que si lo defines como ARRAY(2) le estas indicando dos elementos al ARRAY, pero una sola dimencion, para definir dos dimenciones lo debes declarar como ARRAY(1,2), con esto indico que el ARRAY tiene una fila y dos columnas.\n\nSaludos\nCarlos A. Ducca','',0,'CA==','88zk7ub0',1,0,'',483,0,0),(45357,9430,3,130,0,'77.179.196.239',1199364866,1,0,1,1,1,1,'','','Antonio,\n\nOk, I see.\n\nMany thanks for the explanation','',0,'CA==','1ysus5rg',1,0,'',130,0,0);
INSERT INTO `phpbb_posts` VALUES (45358,9445,7,2,0,'87.218.146.121',1199365013,1,0,1,1,1,1,'','','Has utilizado estos emuladores ?\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=5c53e3b5-f2a2-47d7-a41d-825fd68ebb6c&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=EEC33AE3-C129-4C25-ABAA-18E8E842178F&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\nPuedes seguir estas indicaciones:\n<!-- m --><a class=\"postlink\" href=\"http://www.amset.info/pocketpc/emulator.asp\">http://www.amset.info/pocketpc/emulator.asp</a><!-- m -->','',0,'CA==','3axvy8b3',1,0,'',2,0,0),(45359,9446,6,2,0,'87.218.146.121',1199365158,1,0,1,1,1,1,'','','Fernando,\n\nTe refieres a la x de la derecha de cada pestaña ? \n\nPuede calcularse la posición del click del ratón, pero el API de Windows no proporciona la forma de dibujar ahí los bitmaps <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'CA==','kfwvsfga',1,0,'',2,0,0),(45360,9440,6,2,0,'87.218.146.121',1199365234,1,0,1,1,1,1,'','','FWH 8.01 se publicará dentro de 2 ó 3 dias\n\nPuedes comprarlo, ó actualizarte, directamente desde <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos','',0,'CA==','b7xvktmg',1,0,'',2,0,0),(45361,9447,6,1236,0,'201.86.91.84',1199365879,1,0,1,1,1,0,'','Drag &amp; Drop BTNBMP','Antonio, utilizo assim:\n\nfor x := 1 to nMaxMesa\n     @ LIN, COL btnbmp Btn[x] OF oWnd PIXEL \n     PoBtn[contamesas]:lDrag      := .T.\nnext\n\n\nFunciona perfeitamente, a não ser se arrastar um botão por cima do outro, ai vira uma bagunça (um botão suja o outro), existe alguma maneira de usar refresh(), para atualizar estes botões quando eu arrasta-los? Ou Usted teria alguma outra ideia para que ao arrastar um botão por cima do outro não suje  os mesmos, ex:\n\n[url=http&#58;//img219&#46;imageshack&#46;us/my&#46;php?image=imagemgh2&#46;jpg:1ei6llkl][img:1ei6llkl]http&#58;//img219&#46;imageshack&#46;us/img219/9163/imagemgh2&#46;th&#46;jpg[/img:1ei6llkl][/url:1ei6llkl]\n\nGrato','',0,'GA==','1ei6llkl',1,0,'',1236,0,0),(45362,9448,6,430,0,'157.100.146.2',1199366007,1,0,1,1,1,0,'','Function Alert','Tengo un problema al usuar la función Alert de FiveWin (esta función creo que tambien exisitia en Clipper y se la creo en FW para mantener una sietria con Cliper).\n \nEn FW 2.4 me funcionaba bien, pero ahora en FWH el texto del mensaje no se muestra; solo aparece el borde; es como que el texto fuera más alto que el alto definido para el control Text. Los botones se muestran bien.\n\n¿Existe otra función que cumpla una función parecida?, es decir una ventana donde se puede elegir entre 2 o mas opciones, con la opción de incluir un texto para la pregunta.','',0,'GA==','3pwk2fdk',1,0,'',430,0,0),(45363,9449,3,1158,0,'200.159.198.27',1199366427,1,0,1,1,1,0,'','xharbour cvs','hi, in last week, xharbour cvs is down, can someone confirm this?','',0,'GA==','59swhapt',1,0,'',1158,0,0),(45364,9449,3,6,0,'87.18.210.192',1199367593,1,0,1,1,1,1,'','Re: xharbour cvs','No, it works fine for me.\n\nEMG','',0,'GA==','1ckrubzi',1,0,'',6,0,0),(45365,9312,6,106,0,'85.34.123.173',1199371298,1,0,1,1,1,1,'','','Manuel,\n\nMe alegra mucho saber de ti, y que estas bien.\n\nSaludos y felicidades.','',0,'GA==','3245pczb',1,0,'',106,0,0),(45366,9449,3,1158,0,'200.159.198.27',1199371808,1,0,1,1,1,0,'','','you use anonymous? like:\n\n:pserver:anonymous@xharbour.cvs.sourceforge.net:/cvsroot/xharbour','',0,'GA==','95uoy833',1,0,'',1158,0,0),(45367,9445,7,57,0,'80.30.100.25',1199372865,1,0,1,1,1,1,'','','Antonio\nExiste una limitación de apertura de ficheros utilizando el Emulador y Storage Card (Redireccionado a una Carpeta del Equipo).\n\n¿Has podido evitar de alguna forma esta limitación?.\n\nCreo recordar que tiempo atras se comentó y veo que con el Emulador de WM6 sigue existiendo el mismo problema.\n\nSaludos.','',0,'GA==','1g6212ez',1,0,'',57,0,0),(45368,9450,23,1257,0,'195.93.60.7',1199374339,1,0,1,1,1,1,'','Exel wird nicht sauber beendet.','Hallo, aus Essen\n\nhat jemand eine Lösung um Excel zu schließen ?\nMit dem neuen Win32Ole funktioniert das alte\noExcel:End() nicht mehr.\nDie Information von Antonio : oExcel := NIL\nfunktioniert ebenfalls nicht.\nExcel ist zwar anschließend unsichtbar und es erfolgt\nkein Absturz, aber im Taskmanager sind die Instanzen\nimmer noch offen.\n\nDanke\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'GA==','2x54vtoc',1,0,'',1257,0,0),(45369,9446,6,21,0,'87.220.91.142',1199374659,1,0,1,1,1,1,'','','Antonio,\n\nCorrecto me refiero a la x de la derecha.\n\nEl hecho de que aparezca a la izquierda o la derecha me da relativamente igual. Quedaría mas presentable a la derecha pero si no permite el API de windows que le vamos a hacer.\n\nLo no sé es como capturar el click con el botón izquierdo sobre el bitmap.\n\nOtras dudas que tengo sobre oFld:SetImageList\n1.- ¿Tiene que haber bitmap en todas las pestañas? o se puede indicar que sólo queremos bitmap, por ejemplo, en la última pestaña. El objetivo es que sólo agrande la pestaña que contiene el bitmap\n\nNo he contrado la forma de hacerlo y lo que hago es incluir en las demás pestañas un bitmap vacio y por tanto todos se agrandan\n[img:1h153qpa]http&#58;//img256&#46;imageshack&#46;us/img256/1846/folder1pl1&#46;png[/img:1h153qpa]\n\n2.- El bitmap que se muestra en la pestalla muerde un poco del borde naranja del mismo. ¿Se puede corregir?\n[img:1h153qpa]http&#58;//img239&#46;imageshack&#46;us/img239/3283/folder3yt7&#46;png[/img:1h153qpa]','',0,'CA==','1h153qpa',1,0,'',21,0,0),(45370,9451,3,1257,0,'195.93.60.7',1199374806,1,0,1,1,1,1,'','Cannot close Excel with WIN32OLE','Is there anybody who knows,\nwhat i can do to close Excel ?\nWith the old TAutoOle : oExcel:End() it was ok.\nAntonio told me : oExcel := NIL.\nIt is not working, because in the Filemanager\nExcel is still visible and not closed. \n\nRegards U.König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','f15bw1pk',1,0,'',1257,0,0),(45371,9448,6,53,0,'189.139.19.194',1199375879,1,0,1,1,1,1,'','','Fernando:\n\nTienes estas alternativas\n\nMsgInfo()\nMsgNoYes()\nMsgYesNo()\n\nLa primera solo es informativa y te muestra solo un boton (ACEPTAR)\n\nLas otras dos tienes dos botones SI  o  NO, la función MsgNoYes() aparece activo el boton NO mientras que MsgYesNo() aparece activo el boton SÍ\n\nEn las tres puedes mostrar el texto que quieras y en varios renglones con el uso de CRLF.\n\nSaludos','',0,'CA==','1fqixh31',1,0,'',53,0,0),(45372,9452,6,960,0,'84.125.196.99',1199375902,1,0,1,1,1,0,'','Una sobre BRUSH','Estimados compañeros:\n\n¿ alguien sabe como cambiar el brush de un SButton ? Puedo cambiar el prompt pero no el Brush.\n\nYo hago así:\n...\n define brush oBrushF file \'Rojo.bmp\' \n Define dialog...\n REDEFINE SBUTTON oBtn ID 4005 OF oDialog brush obrushF \n....\n Activate dialog\n\nY ahora hago:\n1) Defino el nuevo brush:\n  define brush oBrushF file \'verde.bmp\'\n2) Cambio de brush\n   oBtn:SetBrush( oBrushF )\n   oBtn:refresh()\nIncluso he intentado cambiar así:\n   oBtn:SetBrush( TBrush():New(\'verde.bmp\') )\n\nNo genera ERROR, pero tampoco cambia el BRUSH\n¿ Alguna sugerencia ? Me estoy volviendo loco!!\nLORENZO','',0,'CA==','bf59wypa',1,0,'',960,0,0),(45373,9422,3,303,0,'72.220.181.80',1199376770,1,0,1,1,1,0,'','','Antonio and Everyone,\n\nHere is a video; \'How Do I Create a Language Service?\'\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/bb851701.aspx\">http://msdn2.microsoft.com/en-us/bb851701.aspx</a><!-- m -->\n\n\"In this video, Hilton Giesenow illustrates a simple working Language Service. He begins by building a simple scanner for colorising based on regular expressions, then expands on this to implement the Managed Babel framework, integrating MPLex and MPPG directly into the Visual Studio build as well.\"\n\nIt is 27 minutes long and most of it was over my head. It became very apparent that you need to have a lot of VS and C# experience even to understand what he is talking about. This video only covers setting up the language and providing syntax highlighting. It does not cover the lexer and parser that you need, nor Intellisense and other topics.\n\nIt looks like it will be quite some project to setup VS for FWH.\n\nThere are also lots more videos here:\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/bb507746.aspx\">http://msdn2.microsoft.com/en-us/bb507746.aspx</a><!-- m -->\n\nRegards,\nJames','',0,'CA==','2rsd2a8i',1,0,'',303,0,0),(45374,9451,3,1166,0,'139.165.96.129',1199377517,1,0,1,1,1,0,'','','With Fivewin and xharbour, just comment your line oxls:end()\nYou dont need it anymore .\nGood luck','',0,'CA==','3bpbel9t',1,0,'',1166,0,0),(45375,9446,6,362,0,'200.158.19.252',1199377705,1,0,1,1,1,1,'','','Mira...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=473\">http://www.fivewin.com.br/exibedicas.asp?id=473</a><!-- m -->\n\nbest regards.','',0,'CA==','3u0yozpg',1,0,'',362,0,0),(45376,9411,18,100,0,'201.16.38.7',1199378591,1,0,1,1,1,1,'','','Ola amigo Antonio\n\n\ncomo fazer numa situação desta:\n\n[code:p46vmb62]\n	oCod&#58;bKeyDown &#58;= &#123;|nKey| 	iif&#40; nKey=VK_F3, &#40; lQtd &#58;= &#46;T&#46;, oQtd&#58;SetFocus&#40;&#41; &#41;, &#41;,;\n										IIF&#40; nKey=VK_F2, &#40; MenuPdv&#40; oDlg_Pdv, @vmprod, @oBrowse, oSSay &#41;, oCod&#58;SetFocus&#40;&#41; &#41;, &#41;,;\n										IIF&#40; nKey=VK_F4, &#40; Canc_Cupom&#40; @vmProd, @oBrowse, oSSay, oCod &#41;, oBrowse&#58;Refresh&#40;&#41;, oCod&#58;SetFocus&#40;&#41;,;\n																oEstDbf&#58;Blank&#40;&#41;, SysRefresh&#40;&#41;, oCod&#58;SetFocus&#40;&#41;, oDlg_Pdv&#58;Update&#40;&#41; &#41;, &#41;,;\n										IIF&#40; nKey=VK_F5, &#40; Finaliza_Venda&#40; @VMProd, oBrowse, oSSay &#41;,;\n																cCod &#58;= Space&#40;Len&#40;VMREFERE_ESTO&#41;&#41;,;\n																oCod&#58;SetFocus&#40;&#41;,;\n																oBmp1&#58;cResName &#58;= NIL,;\n																IIF&#40; !Empty&#40;USERINFO_BMPIMP&#41;, oBmp1&#58;LoadImage&#40;, Alltrim&#40;USERINFO_BMPIMP&#41; &#41;, oBmp1&#58;LoadImage&#40; &quot;BITMAP_28&quot;&#41; &#41;,;\n																oBmp1&#58;refresh&#40;&#41;,;\n																CaixaLivre&#40; oDlg_Pdv, vmProd, oBrowse, oFnTit3 &#41; , oDlg_Pdv&#58;Update&#40;&#41; &#41; , &#41;,;\n										iif&#40; nKey=VK_F6, &#40; oCod&#58;Disable&#40;&#41;, xSetFocus&#40;oBrowse&#41;, oCod&#58;Enable&#40;&#41; &#41;, &#41;,;\n										iif&#40; nKey=VK_F7, &#40; AbreGavetaPDV&#40;&#41;, oCod&#58;SetFocus&#40;&#41; &#41;, &#41;,;\n										iif&#40; nKey=VK_F8, &#40; BuscaPrecoPDV&#40;&#41;, oCod&#58;SetFocus&#40;&#41; &#41;, &#41;,;\n										iif&#40; nKey=VK_F9, &#40; nPeso &#58;= 1, MsgRun&#40;&quot;Aguarde Buscando Peso&#46;&#46;&#46;&quot;,&quot;Atenção&quot;,&#123;|| nPeso &#58;= PegaPesoBalanca&#40;&#41;&#125; &#41;, iif&#40; Empty&#40;nPeso&#41;, 1, nQtd &#58;= nPeso &#41;, oDlg_Pdv&#58;Update&#40;&#41;, oCod&#58;SetFocus&#40;&#41; &#41;, &#41;,;\n										iif&#40; nKey=86   , &#40; Most_Tela&#40; @vmprod, @oBrowse, &#46;T&#46; &#41;,oBrowse&#58;nRowPos	&#58;= Min&#40; Len&#40; vmprod &#41;, 7 &#41;,;\n																oBrowse&#58;nAt &#58;= Len&#40; vmprod &#41;, xSetFocus&#40;oBrowse&#41;, nQtd &#58;= 1, cCod &#58;= Space&#40;Len&#40;VMREFERE_ESTO&#41;&#41;,;\n																oQtd&#58;Refresh&#40;&#41;, oBtnPrin&#91;4&#93;&#58;Enable&#40;&#41;, oBtnPrin&#91;5&#93;&#58;Enable&#40;&#41;, oCod&#58;nPos &#58;= 1, oCod&#58;Refresh&#40;&#41;,;\n																oDlg_Pdv&#58;Update&#40;&#41; &#41;, &#41;,;\n										iif&#40; nKey=73   , &#40; InserirBoleto&#40; @vmprod, @oBrowse, oSSay &#41;, nGer &#58;= ASum&#40; vmProd, 4&#41;, nQtd &#58;= 1, oDlg_Pdv&#58;Update&#40;&#41; &#41;, &#41;;\n										, 0 &#125;\n[/code:p46vmb62]\n\nNão funciona BACKSPACE, LEFT, RIGHT\n\nNa versão 7.09 não tinha estes problemas\n\nComo resolver isto ??','',0,'AIA=','p46vmb62',1,0,'',100,0,0),(45377,9450,23,56,0,'149.225.10.183',1199379530,1,0,1,1,1,1,'','','Hi!\n\nHast du es schon mit oExcel:Quit() probiert?','',0,'AIA=','j1hilwym',1,0,'',56,0,0),(45378,9451,3,343,0,'24.173.70.25',1199379921,1,0,1,1,1,0,'','','I think what you want is\n\noExcel:quit()\noExcel := nil','',0,'AIA=','2mn9xi0b',1,0,'',343,0,0),(45379,9449,3,1158,0,'200.159.198.27',1199381679,1,0,1,1,1,0,'','','works now. thanks, have an issue related with my firewall.','',0,'AIA=','sw1e3day',1,0,'',1158,0,0),(45380,9453,3,1158,0,'200.159.198.27',1199383024,1,0,1,1,1,0,'','application name','hi, how to get the aplication name? (exe name).\n\nthanks','',0,'AIA=','2t9i7oyb',1,0,'',1158,0,0),(45381,9454,6,1090,0,'201.254.52.225',1199383852,1,0,1,1,1,0,'','catch','hola. ¿tiene alguien alguna funcion del tipo catch, que se ejecute antes de que el sistema tire el cartel de \"Retry - Quit\"? mi idea es poder mantener un log de errores. Garcias. Atte.','',0,'AIA=','479y82jq',1,0,'',1090,0,0),(45382,9453,3,303,0,'72.220.181.80',1199383861,1,0,1,1,1,0,'','','GetModuleFileName( GetInstance() )','',0,'AIA=','35ce8yux',1,0,'',303,0,0),(45383,9440,6,1236,0,'201.86.91.84',1199384543,1,0,1,1,1,0,'','','Antonio, utilizando xbrowse(modo de edição) é possivel executar uma tecla?\n \nEx:\nobRW:bKeyDown := {|nKey| Vala_TipKey(nKey)}\n\nGrato','',0,'AIA=','1ivqq03c',1,0,'',1236,0,0),(45384,9451,3,6,0,'87.18.210.192',1199384580,1,0,1,1,1,1,'','','[quote=&quot;Gale FORd&quot;:296dl8tu]I think what you want is\n\noExcel:quit()\noExcel := nil[/quote:296dl8tu]\n\nThe last is not needed.\n\nEMG','',0,'gA==','296dl8tu',1,0,'',6,0,0),(45385,9443,6,9,0,'85.59.70.80',1199385638,1,0,1,1,1,1,'','','Ray,\n\nYo guardo en la DBF y en los indices la informacion encriptada. Solo la desencripto (vaya palabra) dentro de la aplicación para editarla.','',0,'gA==','ufiex81o',1,0,'',9,0,0),(45386,9422,3,1106,0,'190.64.173.232',1199386426,1,0,1,1,1,0,'','','Antonio:\n\nGreat news,\nDon´t forget do something to \"dummy\" people like me.\nBest regards\n\nRuben Fernandez <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','c8gme7zi',1,0,'',1106,0,0),(45387,9453,3,1158,0,'200.159.198.27',1199386739,1,0,1,1,1,0,'','','James, thanks.','',0,'gA==','33bwi3cr',1,0,'',1158,0,0),(45388,9451,3,343,0,'24.173.70.25',1199388602,1,0,1,1,1,0,'','','I thought the same as you, but after helping someone with an Excel problem we found that Excel will still be running even though you cannot see it.\n\nRunning the task manager after doing the oExcel:quit() shows that Excel would still be resident until the variable was set to nil.','',0,'gA==','253erisv',1,0,'',343,0,0),(45389,9455,3,34,0,'68.5.217.82',1199388858,1,0,1,1,1,1,'','Wish List for FWH 2008','Here I have a wish list of things I would like to see in FWH 8.xx.  Actually, I think we are very close on almost everything:\n\n1)  2007 support for the following controls to finish the work Antonio has already started:\n   a)  Standard buttons\n   b)  Folder tabs\n   c)  Comboboxes\n\n2)  The fix for NOINDENT on Message Bar\n\n3)  Transparent SAY\n\n4)  TMPICKER()  which seems to have disappeared\n\n5)  An updated Calendar control that works in dialogs ( there is an older one that was created for 16 bit Clipper ).  Actually this can be a call to the Windows Calendar control ... just formatted to be used in a dialog.\n\nAnd ... it really would be nice to have the documentation brought up to date.\n\nAnyone else ?\n\nTim','',0,'gA==','2gg6ln0s',1,0,'',34,0,0),(45390,9455,3,2,0,'87.218.146.121',1199389720,1,0,1,1,1,1,'','','Tim,\n\nAll those issues that you comment are going to be delivered along this year, and quite soon <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','285yttn9',1,0,'',2,0,0),(45391,9443,6,1072,0,'190.82.6.26',1199389804,1,0,1,1,1,0,'','','Raymundo:\n\nHola, guarda tus datos encriptados, indexas por ese campo y solo lo desencriptas desde tu aplicacion, es mas seguro, yo lo hago asi y nunca he tenido problemas.\n\nSaludos,\nAntonio','',0,'gA==','19228sgp',1,0,'',1072,0,0),(45392,9455,3,34,0,'68.5.217.82',1199389848,1,0,1,1,1,1,'','Wish List','Of course ... and the work you have done this year has been very very helpful.\n\nI thought if people contribute their \"wishes\" it might help you to identify resources that will help a lot of us ...\n\nThanks for the hard work in 2007.\n\nTim','',0,'gA==','95r2mcez',1,0,'',34,0,0),(45393,9440,6,2,0,'87.218.146.121',1199389926,1,0,1,1,1,1,'','','Si, está disponible','',0,'gA==','3kiekopp',1,0,'',2,0,0),(45394,9453,3,2,0,'87.218.146.121',1199390071,1,0,1,1,1,1,'','','You can also use HB_ArgV( 0 )','',0,'gA==','2yiyt2nc',1,0,'',2,0,0),(45395,9445,7,2,0,'87.218.146.121',1199390185,1,0,1,1,1,1,'','','Toni,\n\nTe refieres al número de ficheros abiertos ?','',0,'gA==','355cputq',1,0,'',2,0,0),(45396,9405,3,303,0,'72.220.181.80',1199390190,1,0,1,1,1,0,'','','Antonio,\n\nI tested the suggested revised default colors for both TWindow and TSay and I didn\'t see any problems. These changes would make Says appear to be transparent on any colored object (window, dialog, messagebar, etc) because they will always inherit the background color of the SAYs parent object. \n\nMy test code is below.\n\nThey would still not be truely transparent since they would not have a transparent background when drawn over a bitmap. After the next version of FWH comes out, I will work on testing SAYs that are truely transparent by default.\n\nRegards,\nJames\n\n[code:13ate46t]/*\nPurpose&#58; Test default TWindow and TSay colors\n*/\n\n#include &quot;Fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd, oBar, oBtn\n\n   define window oWnd title &quot;Test Window&quot;\n   oWnd&#58;setColor&#40; CLR_BLACK, CLR_YELLOW &#41;\n\n   define buttonbar oBar of oWnd 3d\n   define button of oBar action doit&#40;&#41;\n   define button of oBar action msgInfo&#40;&quot;Sample message&quot;&#41;\n\n   @ 2,2 say &quot;Sample Text&quot; of oWnd\n\n   @ 3,2 button oBtn of oWnd size 50,22\n\n   set message to &quot;Message goes here&quot; of oWnd DATE\n\n   activate window oWnd\n\nreturn nil\n\nfunction doit&#40;&#41;\n   local oDlg,cName&#58;=&quot;test name   &quot;\n   define dialog oDlg title &quot;Sample Dialog&quot;\n   @ 2,2 say &quot;Sample Say&quot; of oDlg\n   @ 4,2 get cName of oDlg\n   activate dialog oDlg centered\nreturn nil\n\n// end[/code:13ate46t]','',0,'AIA=','13ate46t',1,0,'',303,0,0),(45397,9456,2,1088,0,'189.129.236.233',1199391297,1,0,1,1,1,0,'','clase browse de hernan','HOLA, DE CASUALIDAD ALGUIEN TENDRA LA CLASE BROWSE DE HERNAN Y ALGUNOS EJEMPLOS BASICOS DE EDICION, MODIFICAR, BORRAR Y ALTA DE REGISTROS, APENAS ESTOY APRENDIENDO, SORRY..','',0,'AIA=','32xdrdbi',1,0,'',1088,0,0),(45398,9455,3,1158,0,'200.159.198.27',1199395227,1,0,1,1,1,0,'','','Tim, i wish this topics too, very important...\n\ni need an calendar module too, and an integrated ide. vsx???\n\n2007 was an good year to fivewin users, many bugs corrected, (x)harbour more stable... etc....\n\n\nthanks to all;','',0,'AIA=','i0k6pvnx',1,0,'',1158,0,0),(45399,9457,6,1072,0,'190.82.6.26',1199397275,1,0,1,1,1,0,'','UNA DUDA','Amigos:\n\nNecesito saber si existe alguna forma de cambiar el tipo de letra en un mensaje, como este.\n\n     MsgStop(\" NO EXISTEN PERMISOS DEFINIDOS \")\n\nUso Fwh 704 y xHarbour 0.99.71\n\nSaludos,\nAntonio','',0,'AIA=','28ap33hw',1,0,'',1072,0,0),(45400,9451,3,1257,0,'195.93.60.7',1199397658,1,0,1,1,1,1,'','End Excel-Worksheet','oExcel:Quit()\noExcel := NIL\n\nworks fine.\nbut it creates the worksheet in the background.\n\nI tried to do nothing on the end.\nIt works also, but with the difference : Excel shows the sheet \nand stays open.\nI have to close excel with the button ( because I want to check the sheet )\nA Test with the Taskmanager shows, that Excel is closed.\n\nThank you\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','2su9b3le',1,0,'',1257,0,0),(45401,9451,3,53,0,'189.139.98.11',1199402196,1,0,1,1,1,1,'','','What if you try this way\n\noExcel:WorkBooks:Close()\noExcel:Quit()\n\n\nRegards','',0,'AIA=','270nckg9',1,0,'',53,0,0),(45402,9458,3,2,0,'87.218.146.121',1199402345,1,0,1,1,1,1,'','VSX for FiveWin','This is a very early test. This time I need you to download this file and unzip it and run the included EXE and tell me what you get. Thanks\n\n<!-- m --><a class=\"postlink\" href=\"http://www.hotshare.net/file/27904-95054250fe.html\">http://www.hotshare.net/file/27904-95054250fe.html</a><!-- m -->\n\nYou need to have VSX Integrated mode or isolated mode. Not sure about this last one. We are already waiting for a PLK from Microsoft so maybe it will not load at all <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3hoc2fj4',1,0,'',2,0,0),(45403,9458,3,6,0,'87.18.210.192',1199402883,1,0,1,1,1,1,'','Re: VSX for FiveWin','I get \"Cannot find one or more components. Please reinstall the application\". <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'AIA=','2ynh3907',1,0,'',6,0,0),(45404,9451,3,6,0,'87.18.210.192',1199403037,1,0,1,1,1,1,'','','[quote=&quot;Gale FORd&quot;:17b62dhs]I thought the same as you, but after helping someone with an Excel problem we found that Excel will still be running even though you cannot see it.\n\nRunning the task manager after doing the oExcel:quit() shows that Excel would still be resident until the variable was set to nil.[/quote:17b62dhs]\n\nThis is definitely not true. Please, show a sample to demonstrate the problem.\n\nEMG','',0,'gA==','17b62dhs',1,0,'',6,0,0),(45405,9459,6,1059,0,'190.137.207.184',1199403070,1,0,1,1,1,0,'','Array - Ayuda please','Sigo con el asunto del array.\n\nLo que necesito hacer es \"cargar\" un array con los datos de dos de los campos de una DBF y luego hacer un browse de dos columnas con ese array para que, al hacer doble click sobre una fila realice una acción.\n\nEstuve viendo el ejemplo testarr5.prg pero no me sirve ya que al array lo carga con la función directory( \"*.prg\" ).\n\nLo que necesito es un ejemplo completo de como cargarlo y como hojearlo.\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2l3kb836',1,0,'',1059,0,0),(45406,9458,3,2,0,'87.218.146.121',1199403429,1,0,1,1,1,1,'','','Enrico,\n\nIt may be the missing PLK from Microsoft. \n\nHopefully tonight or tomorrow I may get it from Microsoft.','',0,'gA==','2gsfspso',1,0,'',2,0,0),(45407,9458,3,2,0,'87.218.146.121',1199403910,1,0,1,1,1,1,'','','Enrico,\n\nPlease check if you have these values in the registry:\n\nHKEY_LOCAL_MACHINE, \n\"Software\\\\Microsoft\\\\AppEnv\\\\9.0\"\n\"AppenvStubDLLInstallPath\"\n\nThanks!','',0,'gA==','6kmep6ih',1,0,'',2,0,0),(45408,9458,3,6,0,'87.18.210.192',1199404309,1,0,1,1,1,1,'','','There is no AppEnv key in HKEY_LOCAL_MACHINE\\Software\\Microsoft.\n\nEMG','',0,'gA==','ao9ox7u5',1,0,'',6,0,0),(45409,9451,3,343,0,'24.173.70.25',1199404398,1,0,1,1,1,0,'','','I did not believe it either. I will put something together tomorrow.','',0,'gA==','3p2l7v1a',1,0,'',343,0,0),(45410,9455,3,49,0,'62.13.172.68',1199404529,1,0,1,1,1,1,'','','what do you mean about standard button and folder ttabs ?','',0,'gA==','2ep54qby',1,0,'',49,0,0),(45411,9459,6,661,0,'189.155.214.53',1199404864,1,0,1,1,1,0,'','','que tal Rolando, espero esto te sirva:\n\n   (lalias)-&gt;(dbgotop())\n   do while (lalias)-&gt;(!eof())\n         aadd(adatosh,{(lalias)-&gt;columna1,(lalias)-&gt;columna2})\n      (lalias)-&gt;(dbskip())\n   enddo\n\n   TWBrowse():lHScroll:= .f.\n   @ 34,02 LISTBOX agets[8]  FIELDS \"\";\n           HEADERS \'Columna 1\',\'Columna2\';\n           FIELDSIZES 60,100;\n           ON DBLCLICK haceralgo();\n           SIZE 228,82 OF ODlg PIXEL\n\n                agets[8]:bLine:= {|nAt| nAt:= agets[8]:nAt, If( Len(adatosh)  &lt;1 .or. nAt&gt;Len(adatosh),Array(2),;\n                                     {adatosh[nAt,1],;\n                                      transform(adatosh[nAt,2],\'999,999,999.99\')\n})}\n\n                agets[8]:SetArray( adatosh )\n\n\nsaludos.\nAlex.','',0,'','1x7mvr28',1,0,'',661,0,0),(45412,9455,3,34,0,'68.5.217.82',1199405086,1,0,1,1,1,1,'','Buttons and tabs','OK ...\n\nButtons ... ie  OK, Add, Exit, etc that appear on a dialog ( not on a button bar ) do not show 2007 colors when in focus.  Compare this to buttons on button bars, and menu items.\n\nWhen using folders ( not tabs ), the tab on the top of the folder should also show a 2007 color when in focus.\n\nBy \"in focus\" I mean when we do a mouseover.  \n\nI know that work was done on \"Tabs\" but not folders.  It was suggested awhile ago ( to include folders ).','',0,'','282zjztf',1,0,'',34,0,0),(45413,9460,23,1257,0,'195.93.60.7',1199405111,1,0,1,1,1,1,'','Neuer Kalender für Fivewin Update 2.0 / enl. + ger. 11.01.08','Einige Anwender haben nach einem neuen Kalender \ngefragt.\nDie deutsche Version ist fertig.\nDie englische Version ist ebenfalls fertig\nDer Kalender bietet viele Möglichkeiten :\nVariable Koordinaten, Anzeige von Feiertagen usw.\n\nIm Update 2 sind weitere Funktionen hinzugekommen.\n\nDownload wie üblich unter :\n<!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin\">http://www.pflegeplus.com/fivewin</a><!-- m -->\n\nBis bald\nU.König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','3gw76c7q',1,0,'',1257,0,0),(45414,9461,17,1257,0,'195.93.60.7',1199405447,1,0,1,1,1,1,'','A calendar for Fivewin ( Upd. 2.0 / 11.01.2008 )','Some people asked for a calendar.\nThere is one for download at <!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin\">http://www.pflegeplus.com/fivewin</a><!-- m -->\nI think, it might be useful, because there are\nsome new functions included.\n\nUpdate 2.0\nEnglish and German - Version\nMore functions added.\n\n\nGreetings from Germany\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','2tzgmys7',1,1200005830,'',1257,1,0),(45415,9447,6,49,0,'62.13.172.68',1199406146,1,0,1,1,1,1,'','','can you send me a simply test please ?','',0,'','29bx4wm9',1,0,'',49,0,0),(45416,9458,3,2,0,'87.218.146.121',1199406210,1,0,1,1,1,1,'','','Enrico,\n\nDo you have VSX \"Integrated mode\" or \"isolated mode\" installed ?','',0,'','11q5gcyw',1,0,'',2,0,0),(45417,9455,3,2,0,'87.218.146.121',1199406498,1,0,1,1,1,1,'','','Tim,\n\nFernando from Via Coral has done an excellent work \"skinning\" standard Windows controls. \n\nStill its a work in progress, but without unnecesary preasure and proper feedback, he may deliver exactly what you want.','',0,'','1r1xobop',1,0,'',2,0,0),(45418,9458,3,6,0,'87.18.210.192',1199406565,1,0,1,1,1,1,'','','How to check it? It should be integrated mode but I\'m not sure.\n\nEMG','',0,'','20qlumpl',1,0,'',6,0,0),(45419,9451,3,6,0,'87.18.210.192',1199406673,1,0,1,1,1,1,'','','Ok, thank you. I\'m pretty curious...\n\nEMG','',0,'','l2yt0jzb',1,0,'',6,0,0),(45420,9458,3,2,0,'87.218.146.121',1199406731,1,0,1,1,1,1,'','','Enrico,\n\nPlease check for:\n\n\"C:\\Program Files\\Microsoft Visual Studio 9.0\\Common7\\IDE\\devenv.exe\"','',0,'','ronngsen',1,0,'',2,0,0),(45422,9446,6,49,0,'62.13.172.68',1199408311,1,0,1,1,1,1,'','','I have a run class folder with bmp, and Ico\n[code:2uojjwwa]\n    DEFINE DIALOG oDlg ;\n       FROM 317, 412 TO 792, 842 PIXEL ;\n       TITLE  Nomeprogramma of oApp ICON  oIcon\n\n\n    @ 5, 4 FOLDER oFld ITEMS &quot;&amp;Sicurezza&quot;,;\n                             &quot;&amp;Varie restrizioni&quot;,;\n                             &quot;&amp;Mostra e nascondi Drive&quot;,;\n                             &quot;&amp;Programmi consentiti&quot;,;\n                             &quot;&amp;Internet Explorer&quot;,;\n                             &quot;&amp;Gestione password&quot;, ;\n                             &quot;&amp;Desktop&quot;,;\n                             &quot;&amp;Autori&quot; ;\n                    BITMAPS &#123;&quot;secure&#46;ICO&quot;, &quot;vario&#46;ICO&quot;, &quot;disk&#46;ICO&quot;, &quot;114&#46;ICO&quot;,;\n                             &quot;123&#46;ICO&quot;, &quot;125&#46;ICO&quot;, &quot;desktop&#46;ICO&quot;, &quot;lic&#46;ICO&quot; &#125; ;\n                    OF oDlg SIZE 210, 215 PIXEL MULTLINE  COLOR  CLR_BLACK, CLR_WHITE[/code:2uojjwwa]\n\n\n\n\nNow we \'re working to transform it to Office 2007 effect .... as we allready made with our TTabs 2007\n\n\n\n\n[img:2uojjwwa]http&#58;//img69&#46;imageshack&#46;us/img69/4571/foldertabswi9&#46;png[/img:2uojjwwa]\n\n\n[img:2uojjwwa]http&#58;//img181&#46;imageshack&#46;us/img181/9888/ttabsbtnbmpsx5&#46;png[/img:2uojjwwa]','',0,'CIA=','2uojjwwa',1,0,'',49,0,0),(45423,9462,3,49,0,'62.13.172.68',1199411621,1,0,1,1,1,1,'','class Outlook 2003','Dear Antonio,\nI saw your outlook 2003 class  and I want ask you if is possible to insert a splitter  here :\n\n[img:2tfsyyer]http&#58;//img160&#46;imageshack&#46;us/img160/4180/outlook2003bu6&#46;jpg[/img:2tfsyyer]\n\n\nbecause I saw another VB class with splitter','',0,'CA==','2tfsyyer',1,0,'',49,0,0),(45424,9439,7,598,0,'190.76.4.246',1199417966,1,0,1,1,1,1,'','','Claro. usas el argumento VERTICAL SCROLL en la definicion de la ventana:\n\n[code:31qx7hu1]DEFINE WINDOW oWnd &#46;&#46;&#46; VERTICAL SCROLL [/code:31qx7hu1]\n\naqui tienes una lista de todos los posibles valores:\n\n[code:31qx7hu1] DEFINE WINDOW &#91;&lt;oWnd&gt;&#93; ;\n             &#91; MDICHILD &#93; ;\n             &#91; FROM &lt;nTop&gt;, &lt;nLeft&gt; TO &lt;nBottom&gt;, &lt;nRight&gt; &#93; ;\n             &#91; TITLE &lt;cTitle&gt; &#93; ;\n             &#91; BRUSH &lt;oBrush&gt; &#93; ;\n             &#91; CURSOR &lt;oCursor&gt; &#93; ;\n             &#91; MENU &lt;oMenu&gt; &#93; ;\n             &#91; MENUINFO &lt;nMenuInfo&gt; &#93; ;\n             &#91; ICON &lt;oIco&gt; &#93; ;\n             &#91; OF &lt;oParent&gt; &#93; ;\n             &#91; &lt;vscroll&#58; VSCROLL, VERTICAL SCROLL&gt; &#93; ;\n             &#91; &lt;hscroll&#58; HSCROLL, HORIZONTAL SCROLL&gt; &#93; ;\n             &#91; &lt;color&#58; COLOR, COLORS&gt; &lt;nClrFore&gt; &#91;,&lt;nClrBack&gt;&#93; &#93; ;\n             &#91; &lt;pixel&#58; PIXEL&gt; &#93; ;\n             &#91; STYLE &lt;nStyle&gt; &#93; ;\n             &#91; &lt;HelpId&#58; HELPID, HELP ID&gt; &lt;nHelpId&gt; &#93; ;\n             &#91; BORDER &lt;border&#58; NONE, SINGLE&gt; &#93; ;\n             &#91; &lt;NoSysMenu&#58;  NOSYSMENU, NO SYSMENU&gt; &#93; ;\n             &#91; &lt;NoCaption&#58;  NOCAPTION, NO CAPTION, NO TITLE&gt; &#93; ;\n             &#91; &lt;NoIconize&#58;  NOICONIZE, NOMINIMIZE&gt; &#93; ;\n             &#91; &lt;NoMaximize&#58; NOZOOM, NO ZOOM, NOMAXIMIZE, NO MAXIMIZE&gt; &#93; ;[/code:31qx7hu1]','',0,'AIA=','31qx7hu1',1,0,'',598,0,0),(45425,9442,6,78,0,'190.43.181.32',1199418516,1,0,1,1,1,0,'','','Pan chancay.... (expresion que significa....  fácil.....)\n\n\nlocal aArray:={}\n\nDO WHILE !EOF() \nAADD(aArray , {((cAlias)-&gt;MODELO) , ((cAlias)-&gt;CHASIS)}) \nDBSKIP() \nENDDO \n\nIF LEN(aArray) = 0     // por si no se lleno el arreglo\n  AADD(aArray,{\"\",\"\"})\nENDIF\n\nDEFINE DIALOG oDlg RESOURCE 1009 OF oWnd \nREDEFINE LISTBOX oLbx ;\nFIELDS     aArray[oLbx:nAt, 1], aArray[oLbx:nAt, 2] ;\nHEADERS \"MODELO\", \"CHASSIS\" ;\nON DBLCLICK oDlg:End() ;\nSIZES  100, 100 ;\nID 102 OF oDlg \n\noLbx:cTooltip:=\'Doble click para selectar ítem y salir\' \n\nACTIVATE DIALOG oDlg CENTER \n....\n\nSalu2','',0,'','1v1hunih',1,0,'',78,0,0),(45426,9312,6,78,0,'190.43.181.32',1199418691,1,0,1,1,1,0,'','','Hola Manuel <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\nSalu2','',0,'','ahja3wr5',1,0,'',78,0,0),(45427,9459,6,78,0,'190.43.181.32',1199418949,1,0,1,1,1,0,'','','Pan chancay.... (expresion que significa.... fácil.....) \n\n\nlocal aArray:={} \n\nDO WHILE !EOF() \nAADD(aArray , {((cAlias)-&gt;MODELO) , ((cAlias)-&gt;CHASIS)}) \nDBSKIP() \nENDDO \n\nIF LEN(aArray) = 0 // por si no se lleno el arreglo \nAADD(aArray,{\"\",\"\"}) \nENDIF \n\nDEFINE DIALOG oDlg RESOURCE 1009 OF oWnd \nREDEFINE LISTBOX oLbx ; \nFIELDS aArray[oLbx:nAt, 1], aArray[oLbx:nAt, 2] ; \nHEADERS \"MODELO\", \"CHASSIS\" ; \nON DBLCLICK oDlg:End() ;    // aqui le pones alguna funcion\nSIZES 100, 100 ; \nID 102 OF oDlg \n\noLbx:SetArray(aArray)\noLbx:cTooltip:=\'Doble click para selectar ítem y salir\' \n\nACTIVATE DIALOG oDlg CENTER \n....','',0,'','22mv850l',1,0,'',78,0,0),(45428,9442,6,78,0,'190.43.181.32',1199418988,1,0,1,1,1,0,'','UPS falto er SetArray','Pan chancay.... (expresion que significa.... fácil.....) \n\n\nlocal aArray:={} \n\nDO WHILE !EOF() \nAADD(aArray , {((cAlias)-&gt;MODELO) , ((cAlias)-&gt;CHASIS)}) \nDBSKIP() \nENDDO \n\nIF LEN(aArray) = 0 // por si no se lleno el arreglo \nAADD(aArray,{\"\",\"\"}) \nENDIF \n\nDEFINE DIALOG oDlg RESOURCE 1009 OF oWnd \nREDEFINE LISTBOX oLbx ; \nFIELDS aArray[oLbx:nAt, 1], aArray[oLbx:nAt, 2] ; \nHEADERS \"MODELO\", \"CHASSIS\" ; \nON DBLCLICK oDlg:End() ; \nSIZES 100, 100 ; \nID 102 OF oDlg \n\noLbx:SetArray(aArray)\noLbx:cTooltip:=\'Doble click para selectar ítem y salir\' \n\nACTIVATE DIALOG oDlg CENTER \n....','',0,'','3srki7m6',1,0,'',78,0,0),(45429,9384,4,1262,0,'87.105.240.203',1199430677,1,0,1,1,1,0,'','Re: How restore running aplication ?','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nthanks !','',0,'','pjlyitab',1,0,'',1262,0,0),(45430,9445,7,57,0,'80.30.100.25',1199432978,1,0,1,1,1,1,'','','Si. \nEn una aplicación con (creo recordar) 20 ficheros ya no funciona y produce errores de apertura de ficheros. Por contra la misma aplicación la copias en la memoria del Emulador y funciona perfectamente. El problema es que con esta limitación impide probar sobre el emulador.\n\nSaludos','',0,'','qk5ooqd1',1,0,'',57,0,0),(45431,9462,3,2,0,'87.218.146.121',1199435423,1,0,1,1,1,1,'','','Silvio,\n\nWe may simulate it, because if we use a real splitter control then we may need two controls: one for the top side and another for the bottom side.','',0,'','1xidp7oa',1,0,'',2,0,0),(45432,9439,7,2,0,'87.218.146.121',1199435671,1,0,1,1,1,1,'','','Luis,\n\nTodas esas opciones no están disponibles para FWPPC <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'','1q339fo3',1,0,'',2,0,0),(45433,9439,7,2,0,'87.218.146.121',1199435942,1,0,1,1,1,1,'','','Antonio,\n\nAqui tienes un ejemplo funcionando:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=1985\">http://fivetechsoft.com/forums/viewtopic.php?t=1985</a><!-- m -->','',0,'','1s6lncuq',1,0,'',2,0,0),(45434,9463,3,1247,0,'80.122.88.242',1199436122,1,0,1,1,1,0,'','IPAQ to IPhone','Hello Antonio.\nI would like to ask you about the possibility of a transmission from IPAQ to IPhone.\nIf we now develop an application for IPAQ, will it be possible to compile it for the IPhones as soon as they are available here in Austria.\nThanks in advance, greetings from Austria and a happy new year,\nRuth','',0,'','3sqnzsnw',1,0,'',1247,0,0),(45435,9463,3,2,0,'87.218.146.121',1199436774,1,0,1,1,1,1,'','','Hello Ruth,\n\nThe IPAQ and the iPhone use different operating systems. IPAQ is based on Windows Mobile and the iPhone is based on Mac OSX.\n\nWe are going to provide as much compatibility as possible between the IPAQ and the iPhone, but there will be some differences, as when you try to access low level functions, you will be managing different operating systems.\n\nOn the high level (PRG code) they will be very similar. Our advise is that you develop an application simple and easy to be used. Keep in mind that an iPhone is designed to be used with the fingers and not with a \"stylus\", so you have to consider it when you are going to design the user interface of the application.','',0,'','1zgbtocc',1,0,'',2,0,0),(45436,9445,7,2,0,'87.218.146.121',1199437148,1,0,1,1,1,1,'','','Toni,\n\nNo, de momento, no hemos encontrado documentación que explique las limitaciones de la tarjeta de memoria, ó como superarlas <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'','ixl3mc5u',1,0,'',2,0,0),(45437,9446,6,21,0,'87.220.90.103',1199438676,1,0,1,1,1,1,'','','Karinha, Silvio gracias por vuestras ayudas.\n\nKarinha,\nHe probado la clase y puede servir para salir del paso, pero no me gusta depender de clases diseñadas por gurus que pueden no volver a tener una evolución o seguimiento.\n\nSilvio,\n¿Con que librería tienes diseñado la ventana de \"Xp Schol LabKit\"?\n\n\nDespues de probar varias clases he visto que ViaCoral de Fernando Mancera  cubre muchos de mis objetivos. Además Antonio Linares habla de esta libería como respuesta a soporte 2007 en los controles\n[url:c3hpbq6h]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=9455[/url:c3hpbq6h]\n\nLo que desconozco es si la clase ViaRibbonBar acepta bitmaps.','',0,'EA==','c3hpbq6h',1,0,'',21,0,0),(45438,9445,7,106,0,'85.34.123.173',1199439381,1,0,1,1,1,1,'','','Toni, \n\nLas limitaciones (al menos segun mis pruebas) no existen en el WM5 Microsoft Device Emulator V2 v. 8.0.60801.00 que estoy usando actualmente...  o en el WM6 Emulator (que anda mas rapido aun), estas limitaciones las tenía con el emulador que usaba antes, el que usaba era el emulador para pocket pc 2003 SE.\n\n\n\nNo me acuerdo ni donde encontré estas ultimas versiones, pero si buscas seguramente encuentras en el sitio de MS.\n\nSi no lo encuentras busco a ver si lo tengo y te lo mando.\n\nSaludos.','',0,'EA==','20km6hby',1,0,'',106,0,0),(45439,9464,16,2,0,'87.218.146.121',1199440949,1,0,1,1,1,1,'','New FTDN January/Enero 2008 (8.01)','* Fix: Due to recent Class TGet changes, bKeyDon was evaluated twice. Now it is ok.\r\n\r\n* Enhancement: function cDlg2Chr() has been improved to support font name and size information and proper WORD alignment. This function is used from Class TDialog.\r\n  \r\n* New: function IsThemeActive() --&gt; lYesNo. Returns if Windows is using a theme or is using the \"classic\" Windows look.  \r\n  \r\n* New: FiveLinux, Class TWbrowse Method SetArray( aArray ). Please review samples\\TestArr.prg  \r\n  \r\n* Enhancement: samples\\testDllP.prg and samples\\pcodedll.prg have been modified according to new Harbour/xharbour pcode DLLs management functions.\r\n    \r\n* Fix: Class TWBrowse Method lEditCol() minor fix when editing numeric variables\r\n\r\n* New: Class TXBrowse Method Report( cTitle, lPreview, lModal, bSetup ). Many thanks to Nageswararao! The bSetup is intended for the programmer to specify any headers, footers, etc so that he can expand the functionality. The programmer can even define the columns himself and in that case return .T., If the return value is .T. our method does not add any columns by default. Returning any other value is ignored and our method continues to add the default columns.\r\n\r\n* Enhancement: Improved Class TXBrowse Method SetAdo(). Many thanks to Nageswararao!\r\n\r\n* Enhancement: Class TDialog Method SysCommand() was not releasing the mouse if captured and the dialog got a close order.\r\n  \r\n* Enhancement: Class TSay Method HandleEvent(), removed WM_LBUTTONDOWN related code. It was not needed.\r\n    \r\n* Fix: Minor fix in Class TGet Method cGenPrg().\r\n\r\n* Fix: Class TCBrowse Method DrawHeaders(), it was painting an extra column in some circunstances. Now it is ok.\r\n  \r\n* Enhancement: CLASS TXBrwColumn used by Class TXBrowse, DATA oDataFont it also supports a codeblock to return the font to use. The codeblock receives the column object as the first parameter.\r\n \r\n* New: Class TRichEdit Method InsertPictureFile( cFileName ), it lets you insert different graphics formats files into your richedit text.\r\n  \r\n* New: new command DEFINE IMAGE &lt;oImg&gt; ... similar to DEFINE BITMAP &lt;oBmp&gt; ... but supporting more grahics fotmats files (the ones supported by Class TImage).\r\n     \r\n* Fix: Class TSay Method SetText(), minor fix when a bitmapped brush and themes were used simultaneously.\r\n       \r\n* Enhancement: FWH function GetFTime() was not finished. Now its working fine.\r\n\r\n* Fix: FW++ checkboxes on folders were not properly toggling their values. Now it is ok.\r\n\r\n* Fix: Print Preview had an error when using 2007 style and themes. Now it is ok.\r\n\r\n* Enhancement: Class TGet Method KeyDown() now provides support for PageUp and PageDown keystrokes when using the SPINNER clause to decrease and increase the GET value.\r\n  \r\n* New: Google Maps sample application in samples\\gmapd.prg. Thanks to Rafael Clemente and Shrkcod.\r\n   \r\n* Enhancement: Class TXBrowse online editing has been greatly enhanced, fixing pending bugs and improving its functionality. Please review samples\\mallorca.prg\r\n     \r\n* Enhancement: Class TXBrowse was not processing bKeyChar. Now it is supported.\r\n\r\n* Enhancement: Class TXBrowse Method DelCol(). Thanks to Nageswararao.','',0,'EA==','7lmcikmb',1,1220710784,'',2,1,0),(45440,9457,6,1236,0,'201.86.91.84',1199441224,1,0,1,1,1,0,'','','na pasta fwh/source/function usted podera alterar a função.','',0,'EA==','1uqx3qot',1,0,'',1236,0,0),(45441,9465,3,2,0,'87.218.146.121',1199441230,1,0,1,1,1,1,'','New FWH 8.01','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9464\">http://fivetechsoft.com/forums/viewtopic.php?t=9464</a><!-- m -->','',0,'EA==','2m0w4br2',1,0,'',2,0,0),(45442,9466,6,2,0,'87.218.146.121',1199441418,1,0,1,1,1,1,'','Nuevo FWH 8.01','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9464\">http://fivetechsoft.com/forums/viewtopic.php?t=9464</a><!-- m -->','',0,'EA==','bf665qeh',1,0,'',2,0,0),(45443,9440,6,1236,0,'201.86.91.84',1199442366,1,0,1,1,1,0,'','','obrigado','',0,'EA==','36psnv1j',1,0,'',1236,0,0),(45444,9458,3,6,0,'79.19.240.245',1199442462,1,0,1,1,1,1,'','','Yes, it is there.\n\nEMG','',0,'EA==','oydfs4w9',1,0,'',6,0,0),(45445,9458,3,2,0,'87.218.146.121',1199443369,1,0,1,1,1,1,'','','Enrico,\n\nThanks for your feedback,','',0,'EA==','3u4p3tn8',1,0,'',2,0,0),(45446,9432,18,2,0,'87.218.146.121',1199444314,1,0,1,1,1,1,'','','Carlos,\n\nNo ha dado tiempo a incluirlo en la 8.01, pero irá en la 8.02. Gracias!','',0,'EA==','3twn6pdt',1,0,'',2,0,0),(45447,9458,3,6,0,'79.19.240.245',1199445892,1,0,1,1,1,1,'','','And the solution is? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nI really would want to try the resource editor! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'EA==','23tqpbd6',1,0,'',6,0,0),(45448,9467,3,210,0,'81.24.159.58',1199448113,1,0,1,1,1,1,'','Bug in xbrowse','Mr. Linares, \nin xbrowse the font-object from footer are always the font-object from header! Please check the source from method PaintFooter. Wrong is oFont := ::oHeaderFont. Should be oFont := ::oFooterFont!','',0,'EA==','m0u1c5a0',1,0,'',210,0,0),(45450,9469,3,210,0,'81.24.159.58',1199448406,1,0,1,1,1,1,'','bug in folder in dialog?','Hello all,\nwhen I use a own font in the main window, all dialogs are also with this font painted. Ok! But when I use a folder in a dialog, the dialogs from folder use not this font, the parent dialog is ok. Bug?','',0,'EA==','pyn3psuc',1,0,'',210,0,0),(45451,9462,3,49,0,'66.249.90.136',1199451088,1,0,1,1,1,1,'','','Antonio,\nthe top control must be link to the bottom control if i click a menu must open the components of this option.\nit is difficult add a splitter into your control? \nwhy you not try to see vb and dElphi oulook controls to see how run it?','',0,'EA==','22hd9dqi',1,0,'',49,0,0),(45452,9446,6,49,0,'66.249.90.136',1199451534,1,0,1,1,1,1,'','','sorry no use Mancera\'s controls...\nI need fivewin standard controls or modified by myself and all with source codes.\nstep one step i try to convert all controls into 2007 style...\nit is a good idea if we work together but i think it is no possible because i need it for my work and you want make another.','',0,'EA==','32jh9d76',1,0,'',49,0,0),(45454,9470,6,1201,0,'200.90.17.154',1199453654,1,0,1,1,1,0,'','Cambio de Resolucion del Windows','Perdonen Mi ignorancia, Existe alguna forma de Cambiarle la resolución al windows, al iniciar un módulo?\n\n\n\nAngel','',0,'gA==','2pc7lc4d',1,0,'',1201,0,0),(45455,9454,6,644,0,'201.252.96.231',1199454095,1,0,1,1,1,0,'','','Diego : No entiendo tu pregunta. Justamente try-catch-end es para poder manejar los errores de una aplicación. Si el código que se encuentra entre el try y el catch falla, se ejecuta las acciones declaradas entre el catch y el end, De esta manera podrás tener un control total sobre los errores de tu aplicación y las acciones que te convenga tomar. Espero te sirva \nsalu2','',0,'gA==','227n2c6l',1,0,'',644,0,0),(45456,9446,6,21,0,'87.220.90.103',1199454337,1,0,1,1,1,1,'','','Buenas tardes Fernando,\n\n[quote:rmknrnjp]te refieres a que si los tabs de la ribbonbar acepta bitmaps ??[/quote:rmknrnjp]\n\nSi es a lo que me refiero.\n\nEsta mañana he realizado la compra de ViaCoral, Estoy a la espera del correo con la confirmación y la librería','',0,'gA==','rmknrnjp',1,0,'',21,0,0),(45457,9471,6,1104,0,'190.55.55.58',1199456067,1,0,1,1,1,0,'','Duda con DLL','Hola a todos\nTengo una DLL creada por mi con dos BMPs, ahora bien necesito definir dos Brush uno con cada uno de los BMPs para luego utilizarlos.\nCargo la Dll de la siguiente manera:\n\nhDLL:LoadLibrary(\"Fondos.dll\")\n\n\nFreeLibrary(hDLL) de esta forma la libero\n\nMi duda es que no se como debo hacer para definir los dos Brush utilizando los BMPs que están dentro de la DLL.\nSi alguién me da una mano me sería de gran ayuda.\nDesde ya muchas gracias.','',0,'gA==','2grouu1b',1,0,'',1104,0,0),(45458,9458,3,2,0,'87.218.146.121',1199456989,1,0,1,1,1,1,'','','Enrico,\n\nThe only workable solution by now is to download Visual Studio (90 days trial) ó a free Visual C++/C# Express edition. \n\nYou can use them as a resources editor for RES files or for DLLs.\n\nWe have not found a way yet to use the redistributable IDE as a resources editor <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gA==','1y6a3rzu',1,0,'',2,0,0),(45459,9472,3,1257,0,'195.93.60.7',1199457091,1,0,1,1,1,1,'','Samples for xBrowse and TAutoOle2 ( Update 4 / 07.01.2008 )','Some samples, how to create EXCEL-Sheets from\na normal database. \nYou can choose the samples from a xBrowser.\nSome changes in the xbrowser in Update 3.\nNow it is possible to change the index with a click\non the column-header.\nThe index changes and the font of the column-header\nis red.<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->\n\nYou can download the samples from\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin\">http://www.pflegeplus.com/fivewin</a><!-- m -->\n\nRegards\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','1n127bdc',1,0,'',1257,0,0),(45460,9462,3,2,0,'87.218.146.121',1199457153,1,0,1,1,1,1,'','','Silvio,\n\nWe don\'t need a real splitter there. We need a \"simulated\" one, same as we resize a browse columns.','',0,'gA==','11ezs7l8',1,0,'',2,0,0),(45461,9467,3,2,0,'87.218.146.121',1199457494,1,0,1,1,1,1,'','','Günther,\n\nFixed, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','g0sdmxdy',1,0,'',2,0,0),(45462,9471,6,2,0,'87.218.146.121',1199457619,1,0,1,1,1,1,'','','hDLL := LoadLibrary(\"Fondos.dll\") \n\nDEFINE BRUSH oBrush RESOURCE \"nombre_recurso_bitmap\"\n\nFreeLibrary(hDLL) de esta forma la libero','',0,'gA==','193rshtx',1,0,'',2,0,0),(45463,9473,11,473,0,'81.241.228.203',1199457901,1,0,1,1,1,0,'','Restarting with FiveLinux','Hello Antonio,\n\nA few years ago I bought FiveLinux 1.0.\n\nI just used it a short time to try it out.\n\nI want to restart with it on a recent distribution. (Ubuntu)\n\nThis distribution is of course much evoluated newer version of GCC, GTK etc.\n\nIs my old version working with the actual distributions or is it better to reinstall my old Mandrake version.\n\nGreetings\n\nWilly.','',0,'gA==','3ok3els5',1,0,'',473,0,0),(45464,9451,3,343,0,'24.173.70.25',1199458522,1,0,1,1,1,0,'','','I went back and looked at my test prg\'s and I could not find the one in question so I created one. At first it worked like you said and what I thought originally. Then I got to thinking about how this problem came up. Then I recall that the problem showed up when the function was still running or the variable was a static. \n\n\n[code:1azaghsh]\nFUNCTION MAIN&#40;&#41;\n   LOCAL lRunTest &#58;= &#46;t&#46;\n   LOCAL oExcel, oSheet\n   clear screen\n   do while lRunTest\n      @ 10, 0 say \'Run Excel Test \' get lRunTest picture \'y\'\n      read\n      if lastkey&#40;&#41; = 27\n         exit\n      endif\n      if lRunTest\n         @ 20, 0\n         // This does not work\n         // even though you tell excel to quit it is still\n         // running until variable gets reset&#46;\n         oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n         oExcel&#58;quit&#40;&#41;\n         @ 20, 0 say \'Ok now check with Task Manager\'\n         wait\n         // Works if you run in function that releases variable\n         // or you release variable yourself\n         oExcel &#58;= nil\n         TestExcel&#40;&#41;\n         @ 20, 0 clear\n         @ 20, 0 say \'Ok now check Task Manager again\'\n      endif\n   enddo\nRETURN&#40; nil &#41;\n\nFUNCTION TestExcel&#40;&#41;\n   LOCAL oExcel, oSheet\n   oExcel = CREATEOBJECT&#40; &quot;Excel&#46;Application&quot; &#41;\n   oExcel&#58;quit&#40;&#41;\nRETURN&#40; nil &#41;\n\n[/code:1azaghsh]','',0,'AIA=','1azaghsh',1,0,'',343,0,0),(45465,9471,6,1104,0,'190.55.55.58',1199458560,1,0,1,1,1,0,'','','Hola Antonio,\nProbé eso que me dices pero no funciona.\nMe parece que es porque no le estoy indicando de esa forma que el recurso está dentro de la DLL.\nTambién utilizo un .res para los diálogos.\nSolo los BMPs de fondo están dentro de la DLL.\nGracias por tu ayuda.','',0,'AIA=','1fqtduww',1,0,'',1104,0,0),(45466,9445,7,57,0,'80.30.100.25',1199459130,1,0,1,1,1,1,'','','Gracias\nLo probaré de nuevo y os comento el resultado.\n\nSaludos','',0,'AIA=','2lsfyodi',1,0,'',57,0,0),(45467,9451,3,343,0,'24.173.70.25',1199459173,1,0,1,1,1,0,'','','I forgot to mention that when you check in the task manager, you have to look under the Processs tab. It is not in the Applications tab.','',0,'AIA=','2c3h63nj',1,0,'',343,0,0),(45469,9452,6,960,0,'84.125.196.99',1199460924,1,0,1,1,1,0,'','','Estimados compañeros:\n\nHe averiguado que se trata de \"bug\" en el codigo de TSBUTTON. No hay manera de cambiar el brush en tiempo de ejecución.\n\nDe todas formas, mil gracias.\nLORENZO','',0,'gA==','32ndcs6b',1,0,'',960,0,0),(45470,9474,6,221,0,'200.109.96.250',1199462590,1,0,1,1,1,1,'','volviendo al pasado por un segundo','saludos amigos, alguien tendra alguna copia de una libreria vieja de clipper llamada clipx.lib o la telepaphy (tp.lib), gracias le agradeceria mucho si alguien que la tenga me la manda al mail, gracias nuevamente','',0,'gA==','moyy19bs',1,0,'',221,0,0),(45471,9458,3,51,0,'80.122.88.242',1199463281,1,0,1,1,1,0,'','','Would you be so kind to post the source of the first example.\nThanks \nOtto','',0,'gA==','f1b8qp1h',1,0,'',51,0,0),(45472,9443,6,492,0,'189.147.68.245',1199463632,1,0,1,1,1,1,'','','Hola amigos\n\nAgradezco mucho sus sugerencias, al parecer no me explique correctamente, los datos y los indices estan trabajando muy bien, lo que en realidad quiero es como crear la cadena para el indexado, ya que estoy usando una macro para la generacion del mismo.\n\nIndexado Normal :\n\nUSE CLIENTES NEW\nIndex On Str( CLIENTES-&gt;CODIGO, 3 ) + DeCrypt( CLIENTES-&gt;NOMBRE, \"XPSWD\" ) TAG CLI01\n\n\nIndexado que estoy usando :\n\ncStrCdx := {\"Str( CLIENTES-&gt;CODIGO, 3 ) + DeCrypt( CLIENTES-&gt;NOMBRE, \'XPSWD\' )\", \"CLI01\" }\nUSE CLIENTES NEW\nIndex ON &amp;cStrCdx[1] TAG &amp;cStrCdx[2]\n\n\nAhora, hasta aqui todo trabaja OK, el detalle sale cuando si por alguna razon se llegara a romper la App en el archivo ERROR.LOG sale el detalle de las Dbfs y Cdxs en uso, y ahi sale \"XPSWD\" en el detalle de los indices, que es nuestro password usado, mismo que nadie deberia saber !!\n\n\nLo que intento hacer es una UDF que me genere alguna cadena a usar como password ( esto ya lo tengo ), solo me hace falta poner esa variable en la cadena de texto para que se evalue correctamente al momento de crear tal indice.\n\nAlgo asi:\n\ncCdxKey := GenSomePswd()\n\ncStrCdx := {\"Str( CLIENTES-&gt;CODIGO, 3 ) + DeCrypt( CLIENTES-&gt;NOMBRE, [color=red:2ubanj0b]cCdxKey[/color:2ubanj0b] )\", \"CLI01\" }\n\nY que tome su valor cuando :\n\nIndex ON &amp;cStrCdx[1] TAG &amp;cStrCdx[2]\n\n\nTodo esto, es solo para tratar de evitar que sepan cual es el password usado al momento de encriptar/desencriptar los datos.\n\n\nGracias y Saludos','',0,'Ag==','2ubanj0b',1,0,'',492,0,0),(45473,9442,6,492,0,'189.147.68.245',1199463732,1,0,1,1,1,1,'','','Asi es Rolando.\n\nExactamente como lo comentas.\n\n\nSaludos','',0,'Ag==','l4h1iba9',1,0,'',492,0,0),(45474,9451,3,6,0,'79.19.240.245',1199464767,1,0,1,1,1,1,'','','This is perfectly normal as the automatic destructor is called when the variable exits the scope. It\'s not a problem at all.\n\nEMG','',0,'Ag==','3qrvy58g',1,0,'',6,0,0),(45475,9471,6,1104,0,'190.55.55.58',1199465172,1,0,1,1,1,0,'','','Hola Antonio,\nYa está solucionado. \nMe faltaba poner \nSET RESOURSES TO \"Fondos.DLL\" antes de definir los Brush.\n\nGracias por tu ayuda.\nSaludos, Esteban','',0,'Ag==','1wxrmet2',1,0,'',1104,0,0),(45476,9451,3,343,0,'24.173.70.25',1199465240,1,0,1,1,1,0,'','','It was a problem for the person I was helping some time ago because he was using a prg wide static variable. The person in this thread mentioned that Excel was still running so without seeing how he was using the variable I wanted to make sure the variable lost the connection with Excel.\n\nHave a great day.   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'Ag==','2kbb8i9b',1,0,'',343,0,0),(45477,9465,3,868,0,'219.64.121.60',1199466333,1,0,1,1,1,1,'','','Mr Antonio\n\nWhile I am awaiting my updgrade to FWH 8.01, I seek a few clarifications.  Hope you are providing the latest xHarbour build. Are the problems about RDD incompatibility solved in this new version now ? For example the issue of GPFs in the ADORDD.  Same was my experience with ADSRDD','',0,'Ag==','2gx5kne5',1,0,'',868,0,0),(45478,9475,6,1236,0,'201.86.91.84',1199466636,1,0,1,1,1,0,'','xBrowse validar e atualizar célula?','Antonio, usando a xbrowse não estou conseguindo atualizar o conteudo de uma célula, ex:\n\nobRW:aCols[1]:bOnPostEdit  := {|o,x| aprod[ obRW:nArrayAt,1] := x }\nobRW:aCols[1]:bStrData  := { || trans(aprod[ obRW:nArrayAt,1],\'999\') }\nobRW:aCols[1]:bEditValue:= { || aprod[ obRW:nArrayAt,1] }\nobRW:aCols[1]:nEditType := EDIT_GET\nobRW:aCols[1]:bEditValid := {|oGet| Seekproduto(oget) }\n\nSTATIC Function Seekproduto(oget)\n\nlocal ubuffer:= oGet:Value()  \n\nif ! existe_prods(ubuffer)\n    // aqui preciso atualizar o valor de ubuffer, como fazer?  \n   // algo assim oget:=0\n     return (.f.)\nendif\n\nreturn(.t.)','',0,'','lg92c4rb',1,0,'',1236,0,0),(45479,9445,7,527,0,'83.61.180.135',1199467039,1,0,1,1,1,0,'','Nuevo emulador','me puedes indicar en donde puedo bajar el emulador que comentas y como puedo usarlo para hacer las pruebas en mi pc\n\ngracias.\n\n<!-- e --><a href=\"mailto:mjcc@mjccsl.com\">mjcc@mjccsl.com</a><!-- e -->','',0,'','2hw7a7sl',1,0,'',527,0,0),(45480,9469,3,130,0,'77.179.208.35',1199467347,1,0,1,1,1,1,'','','Günther,\n\nThe window font is not used by standard in the folder class, but you can use\n\n[code:20rj4y5a]AEVAL&#40;oFld&#58;aDialogs, &#123;|x| x&#58;oFont &#58;= oFont&#125;&#41;\n[/code:20rj4y5a]\n\nto change the font of all dialogs in a folder.\nOr you include the font object in the folder definition. (redefine folder .... font oFont)','',0,'AIA=','20rj4y5a',1,0,'',130,0,0),(45481,9454,6,228,0,'201.244.15.214',1199468165,1,0,1,1,1,1,'','','Horacio:\n\nQue pena molestar pero no tienes algun ejemplo de codigo con el que pueda hacer lo que comentas.','',0,'AIA=','a42zd9rh',1,0,'',228,0,0),(45482,9476,6,1104,0,'190.55.55.58',1199468370,1,0,1,1,1,0,'','Msg?','Hola a todos.\nAlguién sabe si hay alguna función tipo MsgInfo o MsgAlert a la cual yo le pueda agregar mi propio BitMap?\nDesde ya muchas gracias.\nSaludos, Esteban','',0,'AIA=','2bnvwr1g',1,0,'',1104,0,0),(45483,9443,6,9,0,'85.59.70.80',1199468892,1,0,1,1,1,1,'','','Ray,\n\nYo incluso en los indices temporales, los realizo encriptado. Por otra parte, no uso las funciones Encrip/Descrip de FW, sino unas propias donde la palabra clave esta dentro de la propia función y por tanto, no aparecen (creo) en caso de error.log','',0,'AIA=','16nhz4z7',1,0,'',9,0,0),(45484,9451,3,6,0,'79.19.240.245',1199469866,1,0,1,1,1,1,'','','Ok, understood.\n\nEMG','',0,'AIA=','33ud1ejg',1,0,'',6,0,0),(45485,9458,3,35,0,'167.7.140.254',1199470454,1,0,1,1,1,0,'','','Antonio\n\nI un-installed the VSX because I could not see the ability to create a C++ application as one of my choices .. I downloaded and installed the Visual Xpress 2008 C++ ( free ) version. I was able to get to the forms editor in the C++ IDE .. I then went back and installed the Redistributable VS 2008 VSX .. unfortunitly, in VS 2008 I could not create a C++ application or get to the forms editor  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRick Lipkin','',0,'AIA=','18lkm6g5',1,0,'',35,0,0),(45486,9448,6,1201,0,'200.90.17.154',1199471244,1,0,1,1,1,0,'','','*******************************************************************************\nfunction MsgSel(cTitle,aData,cText,nSel)  // Titulo,Arreglo,Texto,nSel\n// Retorna: 0 = Nada\n//          n = Selección\n*******************************************************************************\nlocal oFont,oDlg,oLst,nTop,nLeft,nBottom,nRight,nItem,oText,oBtnClose,oCbx,;\n      ccTitle:=\"Seleccione Salida\"\n  IF nSel=nil\n    nSel:=1\n  ENDIF\n  IF cText=nil\n    cText:=\"\"\n  ENDIF\n  DEFAULT nTop := 9, nLeft := 9, nBottom := 15, nRight := 45\n  DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8\n  DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;\n         FONT oFont ;\n         title cTitle;\n         STYLE nOr(WS_POPUP, WS_BORDER, WS_THICKFRAME,WS_DLGFRAME )\n  @ 0.9, 0.5 SAY oText VAR cText SIZE 130, 10 OF oDlg\n  @ 4, 60 LISTBOX oLst VAR nItem ITEMS aData OF oDlg PIXEL SIZE 50,40\n  oLst:bLDblClick := {|| oDlg:End() }\n  @ 34, 112 BUTTON oBtnClose PROMPT \"Ok\" DEFAULT SIZE 25, 11 PIXEL  ACTION oDlg:End()\n  ACTIVATE DIALOG oDlg CENTERED\n  oFont:End()\nreturn ascan(aData,nItem)','',0,'AIA=','1v60eg79',1,0,'',1201,0,0),(45487,9448,6,1201,0,'200.90.17.154',1199471540,1,0,1,1,1,0,'','','Está echa a pico y pala, pero a mi me trabaja.\n\nEspero que te sirva.\n\n\n\nAngel','',0,'AIA=','2xs7rbpq',1,0,'',1201,0,0),(45488,9458,3,2,0,'87.218.146.121',1199472134,1,0,1,1,1,1,'','','Rick,\n\nWe are starting learning about VSX features, so it may take some time until we know for sure what can be done with it.\n\nIn VS 2008 simply open a DLL with resources into it and you will be able to use the forms (resources) editor','',0,'AIA=','219mg60a',1,0,'',2,0,0),(45489,9458,3,2,0,'87.218.146.121',1199472870,1,0,1,1,1,1,'','','Otto,\n\nYou can easily create it from here:\n\n[url=http&#58;//imageshack&#46;us:1i8fswm8][img:1i8fswm8]http&#58;//img247&#46;imageshack&#46;us/img247/6606/vs2008qv2&#46;png[/img:1i8fswm8][/url:1i8fswm8]','',0,'GA==','1i8fswm8',1,0,'',2,0,0),(45490,9465,3,2,0,'87.218.146.121',1199473070,1,0,1,1,1,1,'','','NageswaraRao,\n\nWe have decided not to provide upgrade builds of Harbour/xHarbour until we know for sure that the GPF problem is fixed and working stable again\n\nWe will deliver them as soon as we have a stable version, as we can not put in risk the stability of our users applications','',0,'GA==','b7ugrgvt',1,0,'',2,0,0),(45491,9473,11,2,0,'87.218.146.121',1199473365,1,0,1,1,1,1,'','','Willy,\n\nWe strongly recommend you to use Ubuntu 7.10, as it is extremelly friendly and stable.\n\nWe will deliver you an upgraded build of FiveLinux, tested with that Ubuntu build.','',0,'GA==','1vompdfm',1,0,'',2,0,0),(45492,9476,6,319,0,'201.52.221.33',1199474960,1,0,1,1,1,0,'','','Aconselho a você criar uma Dialog com as opções que deseja. com isso, você tera uma liberdade para criar a mensagem conforme sua necessidade...','',0,'GA==','3qxlmpxu',1,0,'',319,0,0),(45493,9465,3,1158,0,'200.159.198.27',1199475154,1,0,1,1,1,0,'','','stable version of xharbour is dated 31/12/2007?? thanks','',0,'GA==','1pa40cp7',1,0,'',1158,0,0),(45494,9465,3,1158,0,'200.159.198.27',1199475209,1,0,1,1,1,0,'','','sorry, 05/11/2007, version 1.01??','',0,'GA==','n6gns6az',1,0,'',1158,0,0),(45495,9448,6,1201,0,'200.90.17.154',1199475546,1,0,1,1,1,0,'','','Disculpa, esta es la correcta:\n\n*******************************************************************************\nfunction MsgSel(cTitle,aData,cText,nSel)  // Titulo,Arreglo,Texto,nSel\n// Retorna: 0 = Nada\n//          n = Selección\n*******************************************************************************\nlocal oFont,oDlg,oLst,nTop,nLeft,nBottom,nRight,nItem,oText,oBtnClose,oCbx,;\n      ccTitle:=\"Seleccione Salida\"\n  IF nSel=nil\n    nSel:=1\n  ENDIF\n  IF cText=nil\n    cText:=\"\"\n  ENDIF\n  DEFAULT nTop := 9, nLeft := 9, nBottom := 15, nRight := 45\n  DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8\n  DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;\n         FONT oFont ;\n         title cTitle;\n         STYLE nOr(WS_POPUP, WS_BORDER, WS_THICKFRAME,WS_DLGFRAME )\n  @ 0.9, 0.5 SAY oText VAR cText SIZE 130, 10 OF oDlg\n  @ 4, 60 LISTBOX oLst VAR nItem ITEMS aData OF oDlg PIXEL SIZE 50,40\n  oLst:bLDblClick := {|| oDlg:End() }\n  @ 34, 112 BUTTON oBtnClose PROMPT \"Ok\" DEFAULT SIZE 25, 11 PIXEL  ACTION oDlg:End()\n  ACTIVATE DIALOG oDlg CENTERED;\n    on init oLst:select(nSel)\n  oFont:End()\nreturn ascan(aData,nItem)','',0,'GA==','3ip6qtak',1,0,'',1201,0,0),(45496,9448,6,1201,0,'200.90.17.154',1199475568,1,0,1,1,1,0,'','','Disculpa, esta es la correcta:\n\n*******************************************************************************\nfunction MsgSel(cTitle,aData,cText,nSel)  // Titulo,Arreglo,Texto,nSel\n// Retorna: 0 = Nada\n//          n = Selección\n*******************************************************************************\nlocal oFont,oDlg,oLst,nTop,nLeft,nBottom,nRight,nItem,oText,oBtnClose,oCbx,;\n      ccTitle:=\"Seleccione Salida\"\n  IF nSel=nil\n    nSel:=1\n  ENDIF\n  IF cText=nil\n    cText:=\"\"\n  ENDIF\n  DEFAULT nTop := 9, nLeft := 9, nBottom := 15, nRight := 45\n  DEFINE FONT oFont NAME GetSysFont() SIZE 0, -8\n  DEFINE DIALOG oDlg FROM nTop, nLeft TO nBottom, nRight ;\n         FONT oFont ;\n         title cTitle;\n         STYLE nOr(WS_POPUP, WS_BORDER, WS_THICKFRAME,WS_DLGFRAME )\n  @ 0.9, 0.5 SAY oText VAR cText SIZE 130, 10 OF oDlg\n  @ 4, 60 LISTBOX oLst VAR nItem ITEMS aData OF oDlg PIXEL SIZE 50,40\n  oLst:bLDblClick := {|| oDlg:End() }\n  @ 34, 112 BUTTON oBtnClose PROMPT \"Ok\" DEFAULT SIZE 25, 11 PIXEL  ACTION oDlg:End()\n  ACTIVATE DIALOG oDlg CENTERED;\n    on init oLst:select(nSel)\n  oFont:End()\nreturn ascan(aData,nItem)','',0,'GA==','21evitu3',1,0,'',1201,0,0),(45497,9477,6,960,0,'84.125.196.99',1199479445,1,0,1,1,1,0,'','Una sobre bAction','estimados compañeros:\n\nOs muestro el siguiente bucle:\nTengo definido 12 buttons y mediante este bucle declaro los caption y el Action:\n\nLocal x=1\nDo while .not. eof()\n  obtnF[x]:cCaption:=( familia-&gt;texto_tecl  )\n  obtnF[x]:bAction :={ || msginfo( str (x) ) }\n  x++\n  skip\n  if x&gt;12\n   exit\n  endif\nenddo\n\nPero el problema está en que el Action que me muestra, en cualquier de los 12 botones es siempre el mismo, es decir, 13, cuando debería ser: 1,2,3,4,5,6.... 12.    El captión me lo muestra perfectamente.\n\n¿ Alguna sugerencia para arreglar el Action ?\nMil gracias. LORENZO.','',0,'','8cfekh08',1,0,'',960,0,0),(45500,9465,3,2,0,'87.218.146.121',1199482928,1,0,1,1,1,1,'','','Regarding the RDD GPF, yes','',0,'EA==','aa2tbvlm',1,0,'',2,0,0),(45501,9477,6,2,0,'87.218.146.121',1199483241,1,0,1,1,1,1,'','','Tienes que usar lo que se denomina \"detached locals\":\n\nLocal x=1 \nDo while .not. eof() \nobtnF[x]:cCaption:=( familia-&gt;texto_tecl ) \nobtnF[x]:bAction := GenBlock( x )\nx++ \nskip \nif x&gt;12 \nexit \nendif \nenddo\n\nfunction GenBlock( x )\n\nreturn { || msginfo( str (x) ) }','',0,'','8shh26qv',1,0,'',2,0,0),(45504,9462,3,49,0,'62.13.172.68',1199489206,1,0,1,1,1,1,'','','ok, but I not Know how make it ...','',0,'','18cswxbp',1,0,'',49,0,0),(45505,9442,6,1059,0,'190.31.223.252',1199490441,1,0,1,1,1,0,'','','Muchas gracias a todos Quienes me ayudaron. Problema resuelto.\n\nSaludos.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'','9p9xfdfx',1,0,'',1059,0,0),(45506,9462,3,2,0,'87.218.146.121',1199490474,1,0,1,1,1,1,'','','Silvio,\n\nPlease review source\\classes\\wbrowse.prg and see how columns are resized','',0,'','3if83yva',1,0,'',2,0,0),(45507,9480,23,1257,0,'195.93.60.7',1199491949,1,0,1,1,1,1,'','Beispiele für TAutoOle2 u xBrowse ( Update 4 / 07.01.2008 )','Die Beispiele für die Excel-Formulare wurden\nerweitert.\nIm xBrowser ist es nun möglich, mit einem\nClick auf den Column-Header den Index zu wechseln.\nDie Schrift im Header der entsprechenden Spalte \nfärbt sich rot und der aktive Index wird dadurch\ngekennzeichnet.\nDas Bild des Browsers ( Bitmaps und Farben )\nändert sich nicht. Die Kennzeichnung der Spalte \nmit Bitmaps kommt nicht in Frage, da bei einem\nIndexwechsel der alte Zustand der Spalte wieder\nhergestellt werden muß.\n\nDownload von <!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin\">http://www.pflegeplus.com/fivewin</a><!-- m -->\n( Excel-Beispiele )\n\nGrüße aus Essen <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  \n\nU. König','',0,'','3dypwmin',1,0,'',1257,0,0),(45508,9469,3,210,0,'81.24.159.58',1199492030,1,0,1,1,1,1,'','Danke','Danke Stefan, wäre für mich nur logisch gewesen!','',0,'','2lqbfch5',1,0,'',210,0,0),(45509,9481,3,210,0,'81.24.159.58',1199492192,1,0,1,1,1,1,'','Message in Message-bar','If an menue-entry are disabled, the message of this menu-entry should not be displayed in message-bar!?','',0,'','3clpdjtv',1,0,'',210,0,0),(45510,9465,3,1158,0,'200.159.198.27',1199494761,1,0,1,1,1,0,'','','i use ads, local and server, this is affected?','',0,'','1blgq2do',1,0,'',1158,0,0),(45511,9465,3,868,0,'219.64.121.60',1199495791,1,0,1,1,1,1,'','','Mr Antonio\n\n1) Is the xHarbour provided with 8.01 the same as the version provided with  7.12 ? Or is it latest ?\n\n2) I would like to tell you that the rdd_ads.lib you provided with xharbour 7.12 worked without GPF. But my problem is, due to changes I made in the source, I had to rebuild the ads libraries with my own changes. Because I could not find the exact sources matching your build, I was getting GPFs.  I still believe we can solve the problem.  There may be other users who are using rdd_ads from the CVS. If they are able to work, we should also be able to work with RDD with latest version of CVS. Can any friends help please?','',0,'','hy0m8xvx',1,0,'',868,0,0),(45512,9465,3,868,0,'219.64.121.60',1199495902,1,0,1,1,1,1,'','','Mr Norberto\n\nWhen I tested, the xharbour with rdd_ads.lib provided along with FWH 7.12 worked well. Both local and remote. Without GPF. Please try and let us know if you have problems.','',0,'','5s5aexe1',1,0,'',868,0,0),(45513,9482,3,69,0,'74.14.137.101',1199509358,1,0,1,1,1,1,'','ADS Local Server','Hi Everybody,\n\nI am trying to add in the ADS Local Service to my app and I get the followinf error:\n\nError: Unresolved external \'AdsCloseCachedTables\' referenced from C:\\XHARBOUR\\LIB\\RDDADS.LIB|adsfunc\n\n\nI think I have everything setup...\n\nRddADS.lib and Ace32.lib (from the xharbour\\lib directory) are linked in.\n\nAce32.dll, AdsLoc32.dll and Axcws32.dll are in the same directory as my exe\n\nAt the start of my app I have:\n\nRequest ADS\nRddSetDefault(ADS)\nAdsSetServerType(7)\nAdsSetFileType(1)\n\n\nAny Ideas?','',0,'','1z9ysw1q',1,0,'',69,0,0),(45514,9473,11,473,0,'81.82.28.225',1199511544,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI use already the latest Ubuntu.\n\nAre you sending this to my email.\n\nGreetings,\n\nWilly.','',0,'','qtisizpi',1,0,'',473,0,0),(45515,9482,3,868,0,'219.64.121.60',1199515197,1,0,1,1,1,1,'','','You have to link with the correct version of ace32.lib','',0,'','679yoovh',1,0,'',868,0,0),(45516,9481,3,303,0,'72.220.181.80',1199520592,1,0,1,1,1,0,'','','&gt;If an menue-entry are disabled, the message of this menu-entry should not be displayed in message-bar!?\n\nStandard Windows app behavior is that the message IS displayed--at least in the couple of apps that I looked at.\n\nJames','',0,'','fjqwc3mh',1,0,'',303,0,0),(45517,9465,3,2,0,'87.218.146.121',1199526497,1,0,1,1,1,1,'','','Nageswararao,\n\nIts the one provided with 7.12','',0,'','3g4of5h2',1,0,'',2,0,0),(45518,9483,3,448,0,'83.132.134.79',1199531647,1,0,1,1,1,0,'','Filling html form vars with values','Hello,\n\nDoes anyone knows how to build a string  to iexplore in order to open a page with the form vars already populated with values.\n\nAntonio','',0,'','wjp1wyk2',1,0,'',448,0,0),(45519,9483,3,1110,0,'80.200.187.230',1199532206,1,0,1,1,1,0,'','','Try to open the HTML file as a text file.\nChange the value with strtran function \nSave all as html file\nOpen this file with ie .','',0,'','3qnkjoe6',1,0,'',1110,0,0),(45520,9484,6,542,0,'80.30.45.91',1199532679,1,0,1,1,1,0,'','Una Pregunta','Hola amigos:\n\nMi pregunta es la siguiente:\n\n¿Hay alguna forma de averiguar la fecha de un archivo?\n\nUn saludo y feliz año a todos\n\nCarlos','',0,'','21il0fub',1,0,'',542,0,0),(45521,9485,6,21,0,'88.15.116.131',1199533281,1,0,1,1,1,1,'','Problemas en la versión 8.01','Antonio,\n\nHe comprobado que en la versión 8.01 siguen los mismos problemas que en la versión 7.12\n[url:3rrh7xv2]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=9261[/url:3rrh7xv2]','',0,'EA==','3rrh7xv2',1,0,'',21,0,0),(45522,9481,3,210,0,'81.24.159.58',1199533582,1,0,1,1,1,1,'','','Mh, when I cannot click on this menu-entry, I am not interesting whats happen with this!? Thanks for your answer!','',0,'EA==','zn4619yv',1,0,'',210,0,0),(45523,9465,3,1158,0,'200.159.198.27',1199535007,1,0,1,1,1,0,'','','i use xharbour (cvs) , from 15/12/2007, and fwh 7.12, at this moment, i dont have gpf with ads local and server. \nsomeone have corruption or only gpf?','',0,'EA==','3liix9qq',1,0,'',1158,0,0),(45524,9483,3,448,0,'83.132.134.79',1199535254,1,0,1,1,1,0,'','','How can I fill it ?\nhtml page is with a frontpage form.\n\nAntonio','',0,'EA==','1mvxuywd',1,0,'',448,0,0),(45525,9483,3,6,0,'87.1.225.194',1199535716,1,0,1,1,1,1,'','','It\'s not so easy. You must identify the various input type tags and replace (or add) the value clause.\n\nEMG','',0,'EA==','35idgvg7',1,0,'',6,0,0),(45526,8805,3,49,0,'62.13.172.68',1199536886,1,0,1,1,1,1,'','','there is a code source for it ?','',0,'EA==','170hlfbx',1,0,'',49,0,0),(45527,9486,6,104,0,'201.8.7.200',1199537171,1,0,1,1,1,0,'','Como excluir um estilo (style) de um objeto ?','Olá Antonio,\n\nMudando a classe xbrowse eu consegui inserir um novo estilo \"style\" usando resource, mas Como faço para Excluir um determinado estilo \"style\" de um objeto ?\n\nAbaixo a mudança que fiz:\n\n[code:1cihrpeu]\n\n//----------------------------------------------------------------------------//\n\nMETHOD CreateFromResource&#40; nId &#41; CLASS TXBrowse\n\n   if &#58;&#58;lCreated\n      return Self\n   endif\n\n   #ifdef __XPP__\n      DEFAULT &#58;&#58;lRegistered &#58;= &#46;f&#46;\n   #endif\n\n   &#58;&#58;nId &#58;= nId\n\n   &#58;&#58;Register&#40; nOr&#40; CS_VREDRAW, CS_HREDRAW, CS_DBLCLKS &#41; &#41;\n\n   if &#58;&#58;lVScroll  &amp;&amp; Rossine 05/01/08\n      &#58;&#58;nStyle &#58;= nOr&#40; &#58;&#58;nStyle, WS_VSCROLL &#41;\n   else\n**    Tirar o Style WS_VSCROLL definido de dentro do arquivo &#46;RC\n      &#58;&#58;nStyle &#58;= tirar????&#40; &#58;&#58;nStyle, WS_VSCROLL &#41;\n   endif\n\n   if &#58;&#58;lHScroll  &amp;&amp; Rossine 05/01/08\n      &#58;&#58;nStyle &#58;= nOr&#40; &#58;&#58;nStyle, WS_HSCROLL &#41;\n   else\n**    Tirar o Style WS_VSCROLL definido de dentro do arquivo &#46;RC\n      &#58;&#58;nStyle &#58;= tirar????&#40; &#58;&#58;nStyle, WS_HSCROLL &#41;\n   endif\n\n   &#58;&#58;oWnd&#58;DefControl&#40; Self &#41;\n\nreturn Self\n\n[/code:1cihrpeu]\n\nGracias,\n\nRossine.','',0,'AIA=','1cihrpeu',1,0,'',104,0,0),(45528,9487,6,542,0,'80.30.45.91',1199537391,1,0,1,1,1,0,'','Cambiar el texto de una variable','Hola amigos de nuevo:\n\nTengo una aplicación que es muy sencilla tiene una ventana y dentro hay textos y cuatro botones que utilizo para llamar a otras aplicaciones y para cerrarla, tres de los textos son cambiantes y quiero que cambien cuando el raton pasa por encima de uno de los botones o tiene el foco del teclado. \n\nYo estoy intentando que funcione con \n\nbot01:GotFocus(codigo1()) y bot01:MouseMove(codigo1())\n\npero no doy con ello para que funcione, sabeis algo para poder ayudarme.\n\nGracias.\n\nCarlos','',0,'AIA=','3filntws',1,0,'',542,0,0),(45529,9465,3,448,0,'83.132.134.79',1199539724,1,0,1,1,1,0,'','','Antonio,\n\nI\'ve been with some ocasional probelms with tcbrowse drawheaders could you post here the bug correction. I can\'t use ver 8 because I\'m using xHarbour.\n\nAntonio','',0,'AIA=','1fhel0cy',1,0,'',448,0,0),(45530,9487,6,78,0,'190.43.181.68',1199541453,1,0,1,1,1,0,'','','Hola,  es +- asi:\n...\nREDEFINE GET oTVenta VAR cTVenta ID ................\n\n\n\naqui camcias el texto de la variable,,\n...........\noTVenta:SetText(\"Efectivo Cash\")\n...\n\n\nSalu2','',0,'AIA=','tz3v9tn0',1,0,'',78,0,0),(45531,9481,3,303,0,'72.220.181.80',1199541522,1,0,1,1,1,0,'','','Byte-One,\n\n&gt;Mh, when I cannot click on this menu-entry, I am not interesting whats happen with this!?\n\nIn the case when a menu selection is not available because it is either irrelevant, not a current option, or dependent on some condition (that is not current) then I think it is good that the the user can at least see what the menu choice does. If a user is not interested, then they can just not look at the message.\n\nWhen menu choices are never available to a user because of their security level, then I just don\'t even put those items on the menu (they are skipped when building the menu in the code). This is less confusing and the menu is simpler for those users. Also, showing them something that they are not allowed to use does not make them feel very important so I think is better that they don\'t even know it is missing.\n\nRegards,\nJames','',0,'AIA=','371mhwoq',1,0,'',303,0,0),(45532,9484,6,78,0,'190.43.181.68',1199541559,1,0,1,1,1,0,'','','Hola....\n\ndVersion := DTOS(DIRECTORY(\"SVITE.EXE\")[1,3])\n\n..\nla function es DIRECTORY, te devuels un arreglo con,oos datos de los archivos del directorio...\n\nSalu2','',0,'','1gotuisk',1,0,'',78,0,0),(45533,9488,7,692,0,'88.26.158.97',1199547266,1,0,1,1,1,1,'','primera experiencia todo bien , pero sin manuales especifico','La verdad es que la primera experiencia con FWPPC ha sido superior a mis expectativas, ha funcionado todo sin problemas y ademas con windows vista, que ya tenia yo mis dudas.\nLo unico que hecho de menos es un manual especifico de FWPPC donde se diga que funciones hay implementadas y un poco la guia del programa\nhay ayudas pero son todas de fivewin y de clases de fivewin, pero nada especifico de FWPPC, ¿ donde puedo buscar un manual especifico de FWPPC ?\n¿solo buscando en el foro?\nPor cierto las ayudas no funcionan en vista , dice que es un sistema de ayudas que ya no soporta windows\nsaludos y enhorabuena por el sistema\nAntonio','',0,'','1sdio4k3',1,0,'',692,0,0),(45534,9489,6,430,0,'201.234.80.13',1199547361,1,0,1,1,1,0,'','Error al generar la lib del TWBrowse de Hernán','Intento generar la LIB del TWBrowse de Hernán con FWH27, con el siguiente archivo .BAT\n\n@ECHO OFF\nCLS\nset include=.\\INCLUDE;%INCLUDE%;c:\\FWH27\\INCLUDE\nset hdir=c:\\xharbour\nset bcdir=c:\\borland\\bcc55\\bin\n\n%hdir%\\bin\\harbour SOURCE\\WBROWSE.PRG /n /i\\fwh27\\include;%hdir%\\include /oOBJ\\WBROWSE.C\n%hdir%\\bin\\harbour SOURCE\\TMULTISE.PRG /n /i\\fwh27\\include;%hdir%\\include /oOBJ\\TMULTISE.C\n\nrem INICIO Modulos C Generados por Harbour !!!\n\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include  -oOBJ\\WBROWSE.OBJ  OBJ\\WBROWSE.C\n@del OBJ\\WBROWSE.c\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include  -oOBJ\\TMULTISE.OBJ  OBJ\\TMULTISE.C\n@del OBJ\\TMULTISE.c\n\n\nrem Modulos C Nativos !!!\n\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include;c:\\fwh27\\include -oOBJ\\WBRWLINE.OBJ  SOURCE\\WBRWLINE.C\n\n@del LIB\\TWBRW32x.LIB\n\necho + OBJ\\WBROWSE.OBJ &amp; &gt;tmplib.bc\necho + OBJ\\WBRWLINE.OBJ &amp; &gt;&gt;tmplib.bc\necho + OBJ\\TMULTISE.OBJ   &gt;&gt;tmplib.bc\n\n%bcdir%\\tlib lib\\TWBRW32x.LIB @tmplib.bc\n\n@del tmplib.bc\n\nCompila los archivo y genera los objeto sin errores; pero me sale el siguiente error:\n\n@ECHO OFF\nCLS\nset include=.\\INCLUDE;%INCLUDE%;c:\\FWH27\\INCLUDE\nset hdir=c:\\xharbour\nset bcdir=c:\\borland\\bcc55\\bin\n\n%hdir%\\bin\\harbour SOURCE\\WBROWSE.PRG /n /i\\fwh27\\include;%hdir%\\include /oOBJ\\WBROWSE.C\n%hdir%\\bin\\harbour SOURCE\\TMULTISE.PRG /n /i\\fwh27\\include;%hdir%\\include /oOBJ\\TMULTISE.C\n\nrem INICIO Modulos C Generados por Harbour !!!\n\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include  -oOBJ\\WBROWSE.OBJ  OBJ\\WBROWSE.C\n@del OBJ\\WBROWSE.c\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include  -oOBJ\\TMULTISE.OBJ  OBJ\\TMULTISE.C\n@del OBJ\\TMULTISE.c\n\n\nrem Modulos C Nativos !!!\n\n%bcdir%\\bcc32 -M -c -D__HARBOUR__ -I%hdir%\\include;c:\\fwh27\\include -oOBJ\\WBRWLINE.OBJ  SOURCE\\WBRWLINE.C\n\n@del LIB\\TWBRW32x.LIB\n\necho + OBJ\\WBROWSE.OBJ &amp; &gt;tmplib.bc\necho + OBJ\\WBRWLINE.OBJ &amp; &gt;&gt;tmplib.bc\necho + OBJ\\TMULTISE.OBJ   &gt;&gt;tmplib.bc\n\n%bcdir%\\tlib lib\\TWBRW32x.LIB @tmplib.bc\n\n@del tmplib.bc\n\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> ¿Que hago mal?','',0,'','38h4f0s2',1,0,'',430,0,0),(45535,8805,3,105,0,'201.246.179.14',1199549093,1,0,1,1,1,1,'','','Antonio.\n\nSorry , but cloning USB drives, even with the serial is easy to do in LINUX, just use DD to acomplish the task\n\n\ndd if=all.img of=/dev/sda1\nFor creating a FULL image...\n\ndd if=/dev/sda1 of=all.img\nfor \"recreating\" the drive...\n\ndd if=dev/sda of=sdb\nfor doing it on the fly...\n\nEasy, since it just copy the device (hd, partition, image, fd, usb drive ) one block at a time, and has no concept of the filesystems or files\nthat reside on the device. It\'s just binary data as far as dd is concerned, from the very begginning to the end.\n\nI\'ve tried to solve a problem related to USB drives spoiled by letting\'em near a TV set, and Found this some months ago.\n\nI repeat, best antycopy protection is a good support.','',0,'','1y1jslp6',1,0,'',105,0,0),(45536,9448,6,430,0,'201.234.80.13',1199550576,1,0,1,1,1,0,'','','Muchas gracias a todos','',0,'','8y85j6mc',1,0,'',430,0,0),(45537,8805,3,51,0,'80.122.88.242',1199550919,1,0,1,1,1,0,'','','Adolfo, did you tried yourself to read the clone and the original and did you  compare all the values?\nI tried to clone  with Ghost and Acronis always on a WINDOWS system but the S/N was different.\nI am curious to hear from you.\nBest regards,\nOtto','',0,'','1zy64eyu',1,0,'',51,0,0),(45538,9490,2,1088,0,'189.129.246.194',1199552296,1,0,1,1,1,0,'','Dudas en Buttonbar','Hola, molestandolos nuevamente, como puedo hacer para poner \"divisiones\" o rayas verticales en un buttonbar (para separar segun funciones) es decir poner 2 botones una raya y luego 3 mas.\n\ncomo estoy trabajando con mdi, como inhabilito y habilito un boton del mismo buttonbar (para evitar q lo abran muchas veces), es decir al abrir una ventana child, se deshabilite el boton que la llamo y al cerrarla se vuelva a habilitar.\n\ncomo defino la posicion de esa ventana child ?\nsaludos a todos y feliz año nuevo','',0,'','ps0s3h41',1,0,'',1088,0,0),(45539,9483,3,1257,0,'195.93.60.7',1199555713,1,0,1,1,1,1,'','Filling HTML with vars','I created a Form with Namo-Webeditor\nwith tables and more.\nAt all places where i want to see a var\ni put the var-name like ?var1? ....\nAfterwards i used a editor to replace the ?var?\nwith the database-fields like (1)-&gt;customer and so on.\nInside the html you can to calculations and more.\nIt works fine like that.\n\nGreetings from Germany <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','1vbu6s5i',1,0,'',1257,0,0),(45540,9491,3,1082,0,'83.181.205.217',1199556499,1,0,1,1,1,0,'','To use fax with FWH','I would like send my fax by FWH\nare there any example?\ncan anybody help me?\nthanks','',0,'','1e3nhwro',1,0,'',1082,0,0),(45541,9483,3,6,0,'87.1.225.194',1199556652,1,0,1,1,1,1,'','Re: Filling HTML with vars','Yes, nice solution if AHF is the author of those HTML pages.\n\nEMG','',0,'','16es1gkv',1,0,'',6,0,0),(45542,9492,7,63,0,'88.11.29.98',1199559698,1,0,1,1,1,0,'','Borrar / copiar archivos en una PDA desde PC','Tengo una PDA conectada por USB a mi PC.  Tengo instalado Active Sync y puedo transferir archivos desde el PC a la PDA y viceversa simplemente arrastrandolos de una ventana a otra. Hasta aquí todo bien.\n\nAlguien sabe si hay alguna forma de hacer lo mismo desde programa con FWH / FWPPC?.  Por ejemplo: En mi PC ejecutar un programa FWH que en un momento dado haga  FErase(\"Mi PDA\\Carpeta\\Archivo.txt\")\nO bien Copy File (\"C:\\Mi archivo...\", \"PDA\\Mi archivo...\")\n\nGracias\nRafael','',0,'','329psmbc',1,0,'',63,0,0),(45543,9491,3,397,0,'201.43.6.173',1199560175,1,0,1,0,1,1,'','','[code:13ue0c6a]\n*\n* ----------------------------------------------------------------\n*\n&#46;&#46;&#46;\n   DEFINE BUTTON &#46;&#46;&#46; ACTION WinFaxDDE&#40;oWnd,&quot;c&#58;\\autoexec&#46;bat&quot;,&quot;55-11-6651-1629&quot;,&quot;&quot;,&quot;&quot;,&quot;FAX Comercial&quot;,&quot;Nome da Emmpresa&quot;,;\n                  &quot;Teste de envio&quot;,&quot;&quot;,&quot;&quot;,&quot;FAX&quot;&#41;\n&#46;&#46;&#46;\n\nFunction WinFaxDDE&#40;oWnd,FaxFile,FaxNumber,SendTime,SendDate,FaxName,Company,;\n                   Subject,Keyword,BillingCode,Modo&#41;\n   DEFAULT FaxFile    &#58;= &quot;c&#58;\\prova&#46;doc&quot; ,;\n           FaxNumber  &#58;= &quot;4432-4081&quot;    ,;\n           SendTime   &#58;= &quot;&quot;             ,;\n           SendDate   &#58;= &quot;&quot;             ,;\n           FaxName    &#58;= &quot;FAXKonectiva&quot; ,;\n           Company    &#58;= &quot;Konectiva&quot;    ,;\n           Subject    &#58;= &quot;Teste de FAX&quot; ,;\n           keyword    &#58;= &quot;&quot;             ,;\n           BillingCode&#58;= &quot;&quot;             ,;\n           Modo       &#58;= &quot;Fax&quot;\n\n   if oWinFaxDDE == nil\n      oWinFaxDDE&#58;=TDDE&#40;&#41;&#58;New&#40;OWND,&quot;FAXMNG32&quot;,&quot;CONTROL&quot;&#41;\n      oWinFaxDDE&#58;Activate&#40;&#41;\n      ?MsgInfo&#40; &quot;Ativando o WinFAX&quot; &#41;\n   else\n      ?MsgInfo&#40; &quot;WinFAX ja esta ativado&quot; &#41;\n   endif\n   oWinFaxDDE&#58;Execute&#40; &quot;GoIdle&quot; &#41;\n   oWinFaxDDE&#58;end&#40;&#41;\n\n   oWinFaxDDE1&#58;=TDDE&#40;&#41;&#58;New&#40;OWND,&quot;FAXMNG32&quot;,&quot;TRANSMIT&quot;&#41;\n   oWinFaxDDE1&#58;Activate&#40;&#41;\n\n   rec &#58;= &quot;recipient&#40;&quot;+chr&#40;34&#41;+;\n          FaxNumber+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          SendTime+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          SendDate+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          FaxName+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          Company+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          Subject+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          keyword+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          BillingCode+chr&#40;34&#41;+&quot;,&quot;+chr&#40;34&#41;+;\n          modo+chr&#40;34&#41;+&quot;&#41;&quot;\n\n   //oWinFaxDDE1&#58;Poke&#40;1,&quot;sendfax&quot;,rec&#41;\n   //oWinFaxDDE1&#58;Poke&#40;1,&quot;sendfax&quot;,&quot;attach&#40;&quot;+chr&#40;34&#41;+faxfile+chr&#40;34&#41;+&quot;&#41;&quot;,5&#41;\n   //oWinFaxDDE1&#58;Poke&#40;1,&quot;sendfax&quot;,&quot;SendfaxUI&quot;&#41;\n   oWinFaxDDE1&#58;Execute&#40; rec &#41;\n   oWinFaxDDE1&#58;Execute&#40; \'attach&#40;\'+chr&#40;34&#41;+faxfile+chr&#40;34&#41;+\'&#41;\' &#41;\n   oWinFaxDDE1&#58;Execute&#40; &quot;GoIdle&quot; &#41;\n   oWinFaxDDE1&#58;Execute&#40; &quot;SendFaxUI&quot; &#41;\n   oWinFaxDDE1&#58;end&#40;&#41;\n\n   oWinFaxDDE2&#58;=TDDE&#40;&#41;&#58;New&#40;OWND,&quot;FAXMNG32&quot;,&quot;CONTROL&quot;&#41;\n   oWinFaxDDE2&#58;Activate&#40;&#41;\n   oWinFaxDDE2&#58;Execute&#40; &quot;GoActive&quot; &#41;\nreturn nil\n[/code:13ue0c6a]\n\nYou need activate XP or Windows 2000/2003 Fax service.','',0,'AIA=','13ue0c6a',1,0,'',397,0,0),(45544,9482,3,69,0,'74.14.137.101',1199560978,1,0,1,1,1,1,'','','I tried generating the ACE32.LIB file using:\n\n\nlib /def:ace32.def /out:ace32.lib\n\nBut I get this error:\n\nLIB : fatal error U1151: syntax error : illegal file specification\n\nI have also tried with removing the .dll ext from within the .def file','',0,'AIA=','1z2ubmx9',1,0,'',69,0,0),(45545,8805,3,2,0,'87.218.146.121',1199569888,1,0,1,1,1,1,'','','Adolfo,\n\nThe USB serial code is from hardware, not from software. So it can\'t be copied.','',0,'AIA=','v6j1ml05',1,0,'',2,0,0),(45546,9464,16,2,0,'87.218.146.121',1199571733,1,0,1,1,1,1,'','','Construcción Enero 2008\n--------------------------------\n\n* Corrección: Debido a recientes cambios en la clase TGet, bKeyDown era evaluado dos veces. Ahora está correcto.\n\n* Mejora: La función cDlg2Chr() ha sido mejorada para soportar nombres de fuente e información de tamaño y alinación WORD. Esta función es  usada en la clase TDialog. \n\n* Nuevo: Función IsThemeActive() --&gt; lYesNo. Devuelve un valor si Windows está usando \"Temas\" u otro si  está usando la apariencia clásica de Windows. \n\n* Nuevo: En FiveLinux, método SetArray( aArray ). Por favor, revisa el ejemplo samples\\TestArr.prg. \n\n* Mejora: Los ejemplos samples\\testDllP.prg y samples\\pcodedll.prg han sido modificados de acuerdo a las nuevas funciones de manejo de DLLs  en Harbour/xHarbour. \n\n* Corrección: En el método lEditCol() dela clase TWBrowse, pequeña corrección cuando se editan variables numéricas. \n\n* Nuevo: Método Report( cTitle, lPreview, lModal, bSetup ) en la clase TXBrowse. Muchas gracias a Nageswararao! El parámetro bSetup se destina al programador para especificar cabeceras, pies de página, etc... para poder ampliar su funcionalidad. El programador puede definir las columnas y en ese caso devuelve .T., si el valor devuelto es .T. no se añaden columnas por defecto. Devolviendo cualquier otro valor, es ignorado y se añaden columnas por defecto.\n\n* Mejora: Se ha mejorado el método SetAdo() de la clase TXBrowse. Muchas gracias a Nageswararao !!! \n\n* Mejora: En el método SysCommand() de la clase TDialog, no liberaba el ratón si estaba capturado y el dialogo recibe una orden de cierre.\n\n* Mejora: En el método HandleEvent() de la clase TSay, se ha eliminado WM_LBUTTONDOWN del código. Ya no es necesario. \n\n* Corrección: Pequeña corrección en el método cGenPrg() de la clase TGet. \n\n* Corrección: En el método DrawHeaders() de la clase TCBrowse, se estaba pintando una columna extra en algunas circustancias. Ahora está correcto. \n\n* Mejora: En la clase TXBrwColumn usada por la clase TXBrowse, la DATA oDataFont soporta un bloque de código para devolver el fuente a usar. El bloque de código recibe un objeto columna como primer parámetro. \n\n* Nuevo: Método InsertPictureFile( cFileName ) en la clase TRichEdit, permite insertar ficheros gráficos de diferente formato en tu texto.  \n\n* Nuevo: Comando DEFINE IMAGE &lt;oImg&gt; ... similar a DEFINE BITMAP &lt;oBmp&gt; ... pero soportando más formatos gráficos.\n\n* Corrección: En el método SetText() de la clase TSay, pequeña corrección cuando se usan temas y brushes (brochas). \n\n* Mejora: En FWH la función GetFTime() no estaba finalizada. Ahora funciona correctamente. \n\n* Corrección: En FW++ los \"checkboxes\" en los folders no cambiaban sus valores. Ahora lo hacen correctamente.\n\n* Corrección: La previsualización de la impresión tenía un error cuando se usaba el estilo 2007 y temas. Ahora funciona correctamente. \n\n* Mejora: El método KeyDown() de la clase TGet ahora proporciona soporte para PageUp y PageDown cuando se usa la clausula SPINNER al\nincrementar y decrementar el valor del GET. \n\n* Nuevo: Ejemplo de Google Maps en samples\\gmapd.prg. Gracias a Rafael Clemente y Shrkcod !!! \n\n* Mejora: Ha sido mejorada la edición en línea en la clase TXBrowse, corrección de errores pendientes y mejorado su funcionalidad. Por favor,\nrevisa el ejemplo samples\\mallorca.prg.\n\n* Mejora: La clase TXBrowse no estaba procesando bKeyChar. Ahora está soportada.\n\n* Mejora: Método DelCol() en la clase TXBrowse. Gracias a Nageswararao!','',0,'AIA=','2iy4lhjd',1,0,'',2,0,0),(45547,9482,3,2,0,'87.218.146.121',1199573680,1,0,1,1,1,1,'','','Jeff,\n\nTry this:\n\nimplib.exe ace32.lib ace32.dll','',0,'AIA=','33y0aggw',1,0,'',2,0,0),(45548,9465,3,2,0,'87.218.146.121',1199573785,1,0,1,1,1,1,'','','Antonio,\n\n&gt; I can\'t use ver 8 because I\'m using xHarbour.\n\nFWH 8.01 works perfectly with xharbour\n\nAl the fixed bugs have been posted on these forums. Please do a search for them.','',0,'AIA=','2qsub6yz',1,0,'',2,0,0),(45549,9465,3,868,0,'219.64.121.60',1199586173,1,0,1,1,1,1,'','','Mr Norberto\n\nI want to try from CVS. Till now I have been using only binaries from xharbour.org or provided with FWH. Can you please give me step by step directions to use CVS of xharbour please?','',0,'AIA=','p934fs2i',1,0,'',868,0,0),(45550,9486,6,1255,0,'189.163.80.205',1199596307,1,0,1,1,1,0,'','','Hola:\n\nPodría ser:\n\n::nStyle := nAnd( ::nStyle, nNot( WS_VSCROLL ) )\n\nSaludos.\n\nManuel Mercado','',0,'AIA=','3bx3nrd1',1,0,'',1255,0,0),(45551,9452,6,1255,0,'189.163.80.205',1199599037,1,0,1,1,1,0,'','','Hola Lorenzo:\n\nPrueba con:\n\noBtn:oPBrush := oBrushF\noBtn:Refresh()\n\nSaludos.\n\nManuel Mercado','',0,'AIA=','348pjtx2',1,0,'',1255,0,0),(45552,9465,3,2,0,'87.218.146.121',1199600652,1,0,1,1,1,1,'','','Nageswararao,\n\ncvs -z3 -d:pserver:anonymous@xharbour.cvs.sourceforge.net:/cvsroot/xharbour co xharbour &gt; checkoutx.txt','',0,'AIA=','22e96sfr',1,0,'',2,0,0),(45553,9486,6,2,0,'87.218.146.121',1199600848,1,0,1,1,1,1,'','','Manuel,\n\nEn un sólo paso:\n\n::nStyle := nXor( ::nStyle, WS_VSCROLL )','',0,'AIA=','2y329l5w',1,0,'',2,0,0),(45554,9493,6,533,0,'88.25.228.172',1199601500,1,0,1,1,1,0,'','BtnGet','Buenas foros, espero que os hayan traido muchas cosas los reyes magos,  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> , yo me conformo con la clase btnget32. Me la bajé de <!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/lck9effuyn#1:6315754\">http://www.box.net/shared/lck9effuyn#1:6315754</a><!-- m -->, y tengo un problema, y es que cuando pulso sobre F2 que es la tecla que tiene asociada la ejecucion del ACTION, me ejecuta la funcion del action 2 veces, sin embargo si pulso el boton en vez del F2 funciona correctamente. \n\nMUCHAS GRACIAS\n\nFWH 7.12 + xHarbour','',0,'AIA=','1fgyy8d9',1,0,'',533,0,0),(45555,9489,6,2,0,'87.218.146.121',1199603732,1,0,1,1,1,1,'','','Fernando,\n\nCual es el error ? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','30r96cs6',1,0,'',2,0,0),(45556,9493,6,2,0,'87.218.146.121',1199604173,1,0,1,1,1,1,'','','Mike,\n\nModifica esta línea en la clase TBtnGet:\n\n::bKeyDown := { | nKey | If( nKey == VK_F2, ( Eval( ::bAction ), 0 ),) }','',0,'AIA=','2wyxel7v',1,0,'',2,0,0),(45557,9493,6,533,0,'88.25.228.172',1199604417,1,0,1,1,1,0,'','','Buenos Dias Antonio, y Gracias, funciono perfecto.\n\nSaludos.','',0,'AIA=','xn95gzlm',1,0,'',533,0,0),(45558,9492,7,2,0,'87.218.146.121',1199604487,1,0,1,1,1,1,'','','Rafael,\n\nMira a ver si localizas un servidor \"SSH\" para Windows Mobile:\n\n<!-- m --><a class=\"postlink\" href=\"http://es.wikipedia.org/wiki/Secure_Shell\">http://es.wikipedia.org/wiki/Secure_Shell</a><!-- m -->\n\nEstos dias lo estoy usando para el iPhone, y enamora la potencia que el SSH ofrece <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> (scp, sftp, etc.) Es una herramienta del mundo Unix\n\nTe permitirá hacer eso que quieres y muchísimas más cosas','',0,'AIA=','2ivuvqql',1,0,'',2,0,0),(45559,9490,2,2,0,'87.218.146.121',1199604947,1,0,1,1,1,1,'','','Para separar un grupo con una línea vertical:\n\nDEFINE BUTTON OF oBar [color=red:1nqnf4p7]GROUP[/color:1nqnf4p7] ...\n\nPara deshabilitarlo y habilitarlo:\n\nDEFINE BUTTON oBtn OF oBar GROUP ACTION ( oBtn:Disable(), &lt;acción&gt;, oBtn:Enable() )\n\nPosición de la ventana CHILD:\n[code:1nqnf4p7]\n   DEFINE WINDOW oChild TITLE &quot;Test&quot; MDICHILD \n\n   WndTop&#40; oChild&#58;hWnd, 30 &#41;  // cambia 30 por tus valores\n   WndLeft&#40; oChild&#58;hWnd, 30 &#41;  //    &quot;\n\nreturn nil \n[/code:1nqnf4p7]','',0,'AoA=','1nqnf4p7',1,0,'',2,0,0),(45560,9399,3,2,0,'87.218.146.121',1199613931,1,0,1,1,1,1,'','','FiveWin MsgGet:\n\n[url=http&#58;//imageshack&#46;us:2usk35bl][img:2usk35bl]http&#58;//img72&#46;imageshack&#46;us/img72/1427/img9005vy0&#46;png[/img:2usk35bl][/url:2usk35bl]','',0,'GA==','2usk35bl',1,0,'',2,0,0),(45561,9400,6,2,0,'87.218.146.121',1199613989,1,0,1,1,1,1,'','','FiveWin MsgGet:\n\n[url=http&#58;//imageshack&#46;us:5oai8qdy][img:5oai8qdy]http&#58;//img72&#46;imageshack&#46;us/img72/1427/img9005vy0&#46;png[/img:5oai8qdy][/url:5oai8qdy]','',0,'GA==','5oai8qdy',1,0,'',2,0,0),(45562,9465,3,868,0,'219.64.121.60',1199616888,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks\n\nGot a message half way through : \"dying gasps from xharbour.cvs.sourceforge.net unexpected\"\n\nMay be I have to keep trying the command again and again.\n\nHow to download to a folder other than the usual xharbour folder ? so as not to overwrite a working version?','',0,'GA==','xuv0xviv',1,0,'',868,0,0),(45563,9465,3,1158,0,'200.159.198.27',1199621513,1,0,1,1,1,0,'','','Nageswararao,\n\n1) download tortoise cvs and install this\n2) use this parameters  :pserver:anonymous@xharbour.cvs.sourceforge.net:/cvsroot/xharbour\n\n3) compile with make_b32\n\nNorberto','',0,'GA==','s0mlg2k4',1,0,'',1158,0,0),(45564,9492,7,63,0,'88.11.29.98',1199622930,1,0,1,1,1,0,'','','Antonio,\n¿Como éste, por ejemplo? [url:3ikhtdoi]http&#58;//www&#46;filecluster&#46;com/Internet/Ftp-Clients/Download-HsTftpCE-TFTP-Client-Server-for-Pocket-PC&#46;html[/url:3ikhtdoi]\n\nSupongo que he de descargarlo e instalarlo en la PDA.  ¿Necesito instalar algo así también en el PC?   Lo que quiero es poder borrar ficheros en la PDA mediante un comando ***DESDE EL PC***; no al revés, que es lo que parece que permiten todos los SSH que he visto para Pocket \n\nGracias\nRafael','',0,'EA==','3ikhtdoi',1,0,'',63,0,0),(45565,9482,3,69,0,'74.14.137.101',1199627569,1,0,1,1,1,1,'','','Thanks Antonio.','',0,'EA==','3nuuxwfp',1,0,'',69,0,0),(45566,9489,6,430,0,'201.234.80.13',1199629049,1,0,1,1,1,0,'','','Upps, he pegado aslgo equivocado, ahora va el error:\n\nxHarbour Compiler build 0.99.51 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'SOURCE\\WBROWSE.PRG\'...\nLines 3747, Functions/Procedures 66\nGenerating C source output to \'OBJ\\WBROWSE.C\'...\nDone.\nxHarbour Compiler build 0.99.51 (SimpLex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'SOURCE\\TMULTISE.PRG\'...\nLines 201, Functions/Procedures 6\nGenerating C source output to \'OBJ\\TMULTISE.C\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nOBJ\\WBROWSE.C:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nOBJ\\TMULTISE.C:\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nSOURCE\\WBRWLINE.c:\nCould Not Find C:\\XBase\\TWBrowse\\LIB\\TWBRW32x.LIB\nThe syntax of the command is incorrect.','',0,'EA==','3lhipuph',1,0,'',430,0,0),(45567,9465,3,130,0,'77.179.179.225',1199634035,1,0,1,1,1,1,'','','Nageswararao, \n\nYou can also use WinCVS, it´s very easy.','',0,'EA==','1rpg05h7',1,0,'',130,0,0),(45568,9492,7,2,0,'87.218.146.121',1199638759,1,0,1,1,1,1,'','','Rafael,\n\nNecesitas SSH en ambos. En el Pocket PC como servidor y en el PC como cliente.','',0,'EA==','2s838qju',1,0,'',2,0,0),(45569,9494,6,389,0,'189.132.21.216',1199641638,1,0,1,1,1,0,'','Busqueda incremental con TMySql de xHarbour ???','Hola.. algun compañero que haya logrado hacer una busqueda incremental en una tabla usando la clase TMySql de xHarbour.. agradeceria mucho un ejmplo.. gracias !\nGABO','',0,'EA==','1fmp1kie',1,0,'',389,0,0),(45570,9443,6,1072,0,'201.214.54.129',1199653451,1,0,1,1,1,0,'','','Raymundo:\n\nTu indice esta encriptado, usalo como tal, si tu programa se cae, te recomiendo que no lo desencriptes, de esa forma evitaras que alguien pueda ver tus datos claves, que uno tanto resguarda. Por mi parte cuando guardo un campo encriptado en una base, jamas lo vuelvo a desencriptar.\n\nEspero te sirva,\n\nSaludo,\nAntonio','',0,'EA==','tqc18sld',1,0,'',1072,0,0),(45571,9450,23,308,0,'84.148.43.2',1199653542,1,0,1,1,1,0,'','','Hallo,\n\nich hab das Problem auch immer. Noch schlimmer ist es bei Word, da er dann immer mit \"normal.dot speichern\" kommt.\n\nIch rufe jetzt immer vor einem neuen Excel oder Word-Start immer nachfolgende Routine auf.\n[code:3ikmb9nu]\nFUNCTION CLOSEWINWORD&#40;&#41;\n\n   LOCAL hWnd &#58;= GetWindow&#40; GetDesktopWindow&#40;&#41;, GW_CHILD &#41;\n\n   WHILE hWnd != 0\n      IF GetWindowText&#40; hWnd &#41; = &quot;Microsoft Word&quot; // oder Microsoft Excel\n         PostMessage&#40; hWnd, WM_CLOSE &#41;\n         RETURN &#46;T&#46;\n      ENDIF\n\n      hWnd = GetWindow&#40; hWnd, GW_HWNDNEXT &#41;\n   ENDDO\n\n   RETURN &#46;F&#46;\n[/code:3ikmb9nu]\n\nVielleicht hilft es.\n\nGruss, Norbert','',0,'AIA=','3ikmb9nu',1,0,'',308,0,0),(45572,9495,6,24,0,'88.23.133.99',1199655865,1,0,1,1,1,1,'','Problemas impresion','He actualizado mi sistema, Window Vista + FWH 7.12, ahora que sale la 8.1 vaya por dios, desde una FWH2.7.\n\nBien, he compilado todas las clases que tengo, y no he tenido ningun tipo de problema excepto con la ventana de Impresion..\n\nAntonio... ¿ Puede ser que la ventana de impresion sea MDIChild ?\n\nMi sistema usa MDI, pero, cuando mandaba al preview , este tenia la pantalla para el hasta que se cerraba la ventana del Preview, y volvia a mi sistema.\n\n¿ Que debo cambiar o que tengo que mirar para que me funcione correctamente el preview ?\n\nGracias','',0,'AIA=','39gudf7q',1,0,'',24,0,0),(45573,9495,6,2,0,'87.218.146.121',1199660573,1,0,1,1,1,1,'','','Rafa,\n\nReemplaza el módulo source\\classes\\rpreview.prg por el de la versión anterior, ó edita rpreview.prg y elimina \"MDICHILD\"\n\nEl preview se ha convertido en una clase y detecta si se trabaja en MDI para abrir el preview en una ventana MDICHILD y asi poder usar múltiples previews. Pero esto es algo que por lo visto no todo el mundo desea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','hznoyllp',1,0,'',2,0,0),(45574,9494,6,409,0,'201.222.214.238',1199663418,1,0,1,1,1,0,'','','Gabo espero q te sirva:\n\n   @  0.25,34 SAY \"Buscar :\" OF oBar SIZE  40, 15  FONT oWnd:oFont COLOR CLR_BLUE\n\n @ 0.25,31 GET oGet VAR cBusca OF oBar  PICTURE \"@S60!\";// WHEN .F. ;\n     SIZE 200,22  FONT oWnd:oFont COLOR CLR_BLUE\n\n\n   oLbx:bKeyDown    := {|nKey| ( SeekMySql(nKey,@cBusca,oLbx,oOrden,oTabla),oLbx:Refresh(),oGet:Refresh() )}\n\n\nSTATIC FUNCTION  SeekMySql(nKey,cBusca,oLbx,oOrden,oTabla)\n*-----------------------------------------------------\noTB:End()\n\nIf nKey=8\n      cbusca:= SubStr(cbusca,1,Len(cbusca)-1)\n      oTb:=oServer:Query(\'SELECT * FROM \'+oTabla+\' WHERE \'+oOrden+\" LIKE \'\"+cbusca+\"%\' ORDER BY \"+oOrden)\nElse\n      cbusca:=cbusca + Upper(chr(nkey))\n      oTb:=oServer:Query(\'SELECT * FROM \'+oTabla+\' WHERE \'+oOrden+\" LIKE \'\"+UPPER( cBusca)+\"%\' ORDER BY \"+oOrden)\n      if oTb:reccount() == 0\n         msginfo(\'No se encotro el nombre \', \"Atencion\" )\n         cbusca:=left(cbusca,len(cbusca)-1)\n         oTb:=oServer:Query(\'SELECT * FROM \'+oTabla+\' WHERE \'+oOrden+\" LIKE \'\"+UPPER( cBusca)+\"%\' ORDER BY \"+oOrden)\n      Endif\nEndif\noLbx:REFRESH()\noLbx:oVScroll:SeTPOS(oTB:RECNO())\n\noTb:refresh()\noLbx:Refresh(.t.)\nreturn nil','',0,'AIA=','59k4vx01',1,0,'',409,0,0),(45575,9496,3,487,0,'151.16.75.194',1199664139,1,0,1,1,1,0,'','Wrapper for GetDateFormat() - Antonio ?','Antonio,\n\nyesterday I posted a wrapper to GetDateFormat ([url:3w54ieoe]http&#58;//msdn2&#46;microsoft&#46;com/en-us/library/ms776293&#46;aspx[/url:3w54ieoe]) to retrieve a date in the user\'s locale settings, but can no more find my post.\n\nHas it been removed for some reason or did I forgot to hit Submit after Previewing it ?\n\nHi,\nDavide','',0,'EA==','3w54ieoe',1,0,'',487,0,0),(45576,9497,3,303,0,'72.220.181.80',1199664175,1,0,1,1,1,0,'','TXBrowse Bug','After you change the width of a TXBrowse column (by dragging with the mouse) when the currently highlighted row gets redisplayed, it displays the wrong record.\n\nUsing FW 8.10/xHarbour\n\nRegards,\nJames','',0,'EA==','wer5nf00',1,0,'',303,0,0),(45577,9498,19,26,0,'84.52.130.249',1199666318,1,0,1,1,1,1,'','Windows Mobile 7','Hello!\n\n<!-- m --><a class=\"postlink\" href=\"http://microsoft.blognewschannel.com/archives/2008/01/06/exclusive-windows-mobile-7-to-focus-on-touch-and-motion-gestures/\">http://microsoft.blognewschannel.com/ar ... -gestures/</a><!-- m -->\n\navailable in year 2009 (or later ...)\n\n\nCheers, Roman','',0,'EA==','1ix10ins',1,0,'',26,0,0),(45578,9452,6,49,0,'62.13.172.68',1199670111,1,0,1,1,1,1,'','','Manuel,\nDo you saw my picture on this forum ?\nthe tsbutton are not trasparent \ncan you correct it pls ?\nlook it \n[img:tk6i64o7]http&#58;//img201&#46;imageshack&#46;us/img201/5752/spiaggianotrasyh7&#46;jpg[/img:tk6i64o7]\n@ Fila,(Col+nPassLarg) SBUTTON  aBtn[n]; \n                                    File OMBEMPTY,; \n                                          OMBFULL,; \n                                          OMBEMPTY,; \n                                          OMBEMPTY  PIXEL ; \n                                    OF oWChld ; \n                                     FONT oFont2 ; \n                                     CAPTION cCaption ; \n                                     TEXT ON_CENTER ; \n                                     tooltip  cCaption2; \n                                   NOBOXTR\n[code][/code]','',0,'CA==','tk6i64o7',1,0,'',49,0,0),(45579,9497,3,868,0,'210.212.216.67',1199673204,1,0,1,1,1,1,'','','I do not experience this problem','',0,'CA==','39rshcdt',1,0,'',868,0,0),(45580,9497,3,303,0,'72.220.181.80',1199674535,1,0,1,1,1,0,'','','Apparently it only happens when using a database object.\n\nJames','',0,'CA==','1e7hb2ic',1,0,'',303,0,0),(45581,9499,3,233,0,'218.111.61.90',1199675999,1,0,1,1,1,0,'','Dynamically adjusting a get field width in a folder','For gets on a regular dialog box, I use the following to change their width:\n\n[code:2wiz6eiq]activate dialog oDlg on init ChgGetsWid&#40;oDlg&#41;[/code:2wiz6eiq]\n\nHow to specify [b:2wiz6eiq][i:2wiz6eiq]on init[/i:2wiz6eiq][/b:2wiz6eiq] for a folder\'s page?\n\nTIA','',0,'YIA=','2wiz6eiq',1,0,'',233,0,0),(45582,9497,3,868,0,'219.64.121.60',1199683929,1,0,1,1,1,1,'','','Mr James\n\nI have tested with TDataBase class of FWH. It works fine for me. I am not getting the problem you mentioned.\n\nI would suggest you to revisit the navigation codeblocks assigned by you and  in particular the bSkip block.','',0,'YIA=','20w0kmxl',1,0,'',868,0,0),(45583,9497,3,303,0,'72.220.181.80',1199684616,1,0,1,1,1,0,'','','NageswaraRao,\n\nI have the problem using TDatabase. Below is my code.\n\nHighlight a record in the middle, then resize one of the columns. The next record (off the bottom) is the one that is displayed when the highlighted record gets refreshed after the resizing.\n\nJames\n\n\n[code:2re3f36a]#include &quot;fivewin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\nfunction main&#40;&#41;\n   local oWnd,oBrw,oCust,oCol\n\n   use customer\n   database oCust\n\n   define window oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;First&quot;\n   oCol&#58;bStrData      &#58;= &#123; || oCust&#58;first &#125;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;Last&quot;\n   oCol&#58;bStrData      &#58;= &#123; || oCust&#58;last &#125;\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\n\n   oBrw&#58;bSkip&#58;= &#123;| nRecs | oCust&#58;skipper&#40; nRecs &#41; &#125;\n\n   oWnd&#58;oClient&#58;= oBrw\n\n   activate window oWnd\n\nreturn nil[/code:2re3f36a]','',0,'AIA=','2re3f36a',1,0,'',303,0,0),(45584,9499,3,303,0,'72.220.181.80',1199685033,1,0,1,1,1,0,'','','Have you tried oFolder:bInit?\n\nJames','',0,'AIA=','vcq080k8',1,0,'',303,0,0),(45585,9497,3,868,0,'219.64.121.60',1199685142,1,0,1,1,1,1,'','','Mr James,\n\nWill you please try with the following codeblock assignments ?\n[code:27lsq1e6]\noBrw&#58;bGoTop    &#58;= &#123;|| oCust&#58;GoTop&#40;&#41; &#125;\noBrw&#58;bGoBottom &#58;= &#123;|| oCust&#58;GoBottom&#40;&#41;  &#125;\noBrw&#58;bSkip     &#58;= &#123;| n | oCust&#58;Skipper&#40; iif&#40; n == nil,1,n&#41; &#41;&#125;, ;\noBrw&#58;bBof      &#58;= &#123;|| oCust&#58;Bof&#40;&#41; &#125;\noBrw&#58;bEof      &#58;= &#123;|| oCust&#58;Eof&#40;&#41; &#125;\noBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil,&#40;oCust&#58;RecNo&#40;&#41;&#41;,&#40;oCust&#58;GoTo&#40;n&#41;&#41; &#41; &#125;\noBrw&#58;bKeyNo    &#58;=oBrw&#58;bBookMark\noBrw&#58;bKeyCount &#58;= &#123;|| oCust&#58;RecCount&#40;&#41;&#125;\n[/code:27lsq1e6]\nA note on bSkip.  If the TData skipper defaults nRecs to 1, it is enough to write oBrw:bSkip := {| nRecs | oCust:skipper( nRecs ) }, if not please adopt the above assignment.','',0,'AIA=','27lsq1e6',1,0,'',868,0,0),(45586,9497,3,868,0,'219.64.121.60',1199685248,1,0,1,1,1,1,'','','I have added a new method SetODbf with the above assignments in my personal extended version of xBrowse. You can also include the assignments in your TData class.','',0,'AIA=','10q4nz0m',1,0,'',868,0,0),(45587,9497,3,303,0,'72.220.181.80',1199686255,1,0,1,1,1,0,'','','NageswaraRao, \n\nI find that this line solves the problem. None of the others you provided are actually needed.\n\noBrw:bBookMark := {| n | iif( n == nil,(oCust:RecNo()),(oCust:GoTo(n)) ) }\n\nI have not used TXBrowse before and none of the other browses I have used have a bBookMark codeblock so I am not familiar with it. However, it does appear that the default bBookmark should have worked.\n\n[code:2u6jscgh]&#58;&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil,;\n                                     &#40; cAlias &#41;-&gt;&#40; RecNo&#40;&#41; &#41;,;\n                                     &#40; cAlias &#41;-&gt;&#40; DbGoto&#40; n &#41;;\n                                    &#41; &#41; &#125;[/code:2u6jscgh]\n\nI do agree that it would be nice to have a setoDBF() method in TXBrowse.\n\nRegards,\nJames','',0,'AIA=','2u6jscgh',1,0,'',303,0,0),(45588,9497,3,303,0,'72.220.181.80',1199686906,1,0,1,1,1,0,'','','Ok, I found the problem. TDatabase:goto() reloads the buffer after the dbgoto() call. When I change the line to this it works:\n\noBrw:bBookMark := {| n | iif( n == nil,;\n                                     ( oCust:cAlias )-&gt;( RecNo() ),;\n                                     ( oCust:cAlias )-&gt;( DbGoto( n ), oCust:load();\n                                    ) ) }\n\nThus the two codeblocks that must be assigned are bSkip and bBookMark.\n\nRegards,\nJames','',0,'AIA=','17a3afk9',1,0,'',303,0,0),(45589,9497,3,868,0,'219.64.121.60',1199686993,1,0,1,1,1,1,'','','Defaults assigned through SetRDD might not have worked because defaults do not let your TData class to read the data into the buffer.\n\nSetRDD method gets executed invariably.  At times this may give unexpected results if a different alias is selected when the browse is created. It is always safe to assign all the codeblocks and not allow SetRDD to assign any defaults','',0,'AIA=','267mflrw',1,0,'',868,0,0),(45590,9497,3,868,0,'219.64.121.60',1199687033,1,0,1,1,1,1,'','','Yes thats what I expected. Our postings crossed','',0,'AIA=','gbpj8wr1',1,0,'',868,0,0),(45591,9497,3,868,0,'219.64.121.60',1199687098,1,0,1,1,1,1,'','','bKeyNo also','',0,'AIA=','c12fc9ge',1,0,'',868,0,0),(45592,9465,3,868,0,'219.64.121.60',1199688210,1,0,1,1,1,1,'','','Thanks Mr. Norberto and Mr. StefanHaupt','',0,'AIA=','32he5duj',1,0,'',868,0,0),(45593,9497,3,303,0,'72.220.181.80',1199690172,1,0,1,1,1,0,'','','Antonio,\n\nI suggest that we add the following method to TXBrowse so we can more easily use it with database objects.\n\nRegards,\nJames\n\n[code:i2gigz7n]METHOD SetoDBF&#40; oDBF &#41; CLASS TXBrowse\n   &#58;&#58;cAlias    &#58;= oDBF&#58;cAlias\n   &#58;&#58;bSkip     &#58;= &#123;| n | oDBF&#58;skipper&#40; n &#41; &#125;\n   &#58;&#58;bGoTop    &#58;= &#123;|| oDBF&#58;GoTop&#40;&#41; &#125;\n   &#58;&#58;bGoBottom &#58;= &#123;|| oDBF&#58;GoBottom&#40;&#41;  &#125;\n   &#58;&#58;bBof      &#58;= &#123;|| oDBF&#58;Bof&#40;&#41; &#125;\n   &#58;&#58;bEof      &#58;= &#123;|| oDBF&#58;Eof&#40;&#41; &#125;\n   &#58;&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil,&#40;oDBF&#58;RecNo&#40;&#41;&#41;,&#40;oDBF&#58;GoTo&#40; n &#41;&#41; &#41; &#125;\n   &#58;&#58;bKeyNo    &#58;= &#58;&#58;bBookMark\n   &#58;&#58;bKeyCount &#58;= &#123;|| oDBF&#58;RecCount&#40;&#41;&#125;\nreturn nil[/code:i2gigz7n]','',0,'AIA=','i2gigz7n',1,0,'',303,0,0),(45594,9495,6,92,0,'80.33.133.32',1199692506,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:14aknvvd]Rafa,\n\nReemplaza el módulo source\\classes\\rpreview.prg por el de la versión anterior, ó edita rpreview.prg y elimina \"MDICHILD\"\n\nEl preview se ha convertido en una clase y detecta si se trabaja en MDI para abrir el preview en una ventana MDICHILD y asi poder usar múltiples previews. Pero esto es algo que por lo visto no todo el mundo desea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:14aknvvd]\n\nAntonio,\n\nNo he visto la nueva clase, aún tengo que actualizarme.\nNo se podría añadir un parámetro del tipo \"lMdiChild\" al método New para indicar si se desea que trabaje de una manera u otra?\n\nSaludos\nCarlos G.','',0,'gA==','14aknvvd',1,0,'',92,0,0),(45595,9497,3,868,0,'219.64.121.60',1199694375,1,0,1,1,1,1,'','','In line with other methods :\n[code:13v8k5z9]\nMETHOD   SetoDbf&#40; oDbf &#41; CLASS TXBrowse\n\n   DEFAULT &#58;&#58;bGoTop    &#58;= &#123;|| oDbf&#58;GoTop&#40;&#41; &#125;,;\n           &#58;&#58;bGoBottom &#58;= &#123;|| oDbf&#58;GoBottom&#40;&#41;  &#125;,;\n           &#58;&#58;bSkip     &#58;= &#123;| n | oDbf&#58;Skipper&#40; iif&#40; n == nil,1,n&#41; &#41;&#125;, ;\n           &#58;&#58;bBof      &#58;= &#123;|| oDbf&#58;Bof&#40;&#41; &#125;,;\n           &#58;&#58;bEof      &#58;= &#123;|| oDbf&#58;Eof&#40;&#41; &#125;,;\n           &#58;&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil,;\n                                          &#40;oDbf&#58;RecNo&#40;&#41;&#41;,;\n                                          &#40;oDbf&#58;GoTo&#40;n&#41;&#41; &#41; &#125;,;\n           &#58;&#58;bKeyNo    &#58;=&#58;&#58;bBookMark,;\n           &#58;&#58;bKeyCount &#58;= &#123;|| oDbf&#58;RecCount&#40;&#41;&#125;\n\n   &#58;&#58;nDataType         &#58;= DATATYPE_ODBF  // if FWH agrees only\n   &#58;&#58;oDbf				  &#58;= oDbf\n\nRETURN Self\n[/code:13v8k5z9]','',0,'AIA=','13v8k5z9',1,0,'',868,0,0),(45596,9497,3,868,0,'219.64.121.60',1199694566,1,0,1,1,1,1,'','','I suggest not to assign alias, so that this method can serve any Data Class, whether the underlying data source is RDD or not.\n\nFor example, i use classes for arrays, text (sdf), ado ( wrapper class for recordset) and any other heterogenous data.\n\nBetter this method is generic as long as the Class provides the methods of goTop, goBottom, Skipper, bookmark. recno and goto','',0,'AIA=','2qlxig2a',1,0,'',868,0,0),(45597,9495,6,24,0,'80.24.12.168',1199694894,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:wj6gkhs9]Rafa,\n\nReemplaza el módulo source\\classes\\rpreview.prg por el de la versión anterior, ó edita rpreview.prg y elimina \"MDICHILD\"\n\nEl preview se ha convertido en una clase y detecta si se trabaja en MDI para abrir el preview en una ventana MDICHILD y asi poder usar múltiples previews. Pero esto es algo que por lo visto no todo el mundo desea <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:wj6gkhs9]\n\nOk Antonio, miraré lo que me dices y te comento.','',0,'gA==','wj6gkhs9',1,0,'',24,0,0),(45598,9497,3,303,0,'72.220.181.80',1199695145,1,0,1,1,1,0,'','','&gt;I suggest not to assign alias, so that this method can serve any Data Class, whether the underlying data source is RDD or not. \n\n&gt;For example, i use classes for arrays, text (sdf), ado ( wrapper class for recordset) and any other heterogenous data.\n\nI also have classes for arrays and recordsets. I have no problem not assigning cAlias as long as TXBrowse does not need it. I included it because some of the other browses require it.\n\nJames','',0,'gA==','luxmzhtm',1,0,'',303,0,0),(45599,9499,3,130,0,'141.51.32.24',1199695855,1,0,1,1,1,1,'','','Hua, James,\n\nthe bInit is not executed for the dialogs.\n\nYou have to change the method Default(), where the the dialogs are activated and add your own bInit to the standard init.','',0,'gA==','u4g68leo',1,0,'',130,0,0),(45600,9500,6,1059,0,'200.117.34.2',1199696427,1,0,1,1,1,0,'','Foco en Dialog','Buen día,\n\nTengo un dialog oDlg2 activado como NOWAIT que vendría a ser \"hijo\" de un oDlg1. \n\nEste oDlg2 se dibuja a partir \"clickear\" un botón que está en oDlg1.\n\nEl problema que tengo, es que como oDlg2 es NOWAIT, no toma el foco al ser dibujado. Probé con oDlg2:setfocus() en el ACTIVATE pero sigue sin tomar el foco.\n\n¿Hay algún modo con el que pueda lograr esto?\n\nGracias.\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','14qvze3r',1,0,'',1059,0,0),(45601,9499,3,303,0,'72.220.181.80',1199696580,1,0,1,1,1,0,'','','Stefan,\n\n&gt;the bInit is not executed for the dialogs. \n\nI\'m not sure what you mean. Can\'t you just do something like:\n\nactivate dialog oDlg on init oFolder:bInit\n\nAre you saying that oDlg:bInit never gets eval\'d?\n\nJames','',0,'gA==','qq50wlmv',1,0,'',303,0,0),(45602,9501,20,1009,0,'82.187.221.169',1199697287,1,0,1,1,1,0,'','posizione di righe inserite con tcBrowse','ciao, a tuttti,\nho un archivio dbf gestito con tcBrowse (xHarbour 1.0.0 + fw 7.12) a cui aggiungo linee con \'drag and drop\' da un altro archivio.\nper inserire la linea nel dbase ricevente copio le righe dal punto di inserimento alla fine del file in un archivio temporaneo, cancello le righe copiate, aggiungo la riga vuota e riappendo le linee salvate.\n\nvorrei fare in modo che la linea inserita si veda effettivamente comparire nel punto in cui rilascio il mouse e tutte le linee sottostanti si spostano giù di una posizione. spesso questo non succede e la pagina scrolla un pò più su o giù, dando l\'impressione di malfunzionamento anche se la linea inserita è effettivamente al posto giusto con il fuoco.\nnon ci sono indici in uso.\n\ngrazie in anticipo, marzio','',0,'gA==','1qc2cp8h',1,0,'',1009,0,0),(45603,9502,6,960,0,'84.125.196.99',1199699358,1,0,1,1,1,0,'','Minimizando todo con un solo click','Estimados compañeros:\n\nNecesito implementar una función que desde el programa me permita con un solo \"click\" minimizar todas las windows y Dialogs, pasado directamente al escritorio de windows\n\n¿ Es posible ?\n\nMil gracias.\nLORENZO','',0,'gA==','2155nrqq',1,0,'',960,0,0),(45604,9502,6,1236,0,'201.22.88.72',1199700302,1,0,1,1,1,0,'','','todas window:\n\noWnd:IconizeAll()  - minimizar todas\n\nASend( oWnd:oWndClient:aWnd,\"MAXIMIZE\" ) - maximizar todas\n\n\nEspero ter ajudado','',0,'gA==','94spstzd',1,0,'',1236,0,0),(45605,9498,19,2,0,'87.218.146.121',1199700860,1,0,1,1,1,1,'','','They are just trying to catch the iPhone incredible success <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThe iPhone in just seven months has become much more popular than the Windows Mobile since back 2002...\n\nThe competition is always healthy <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2biivgpz',1,0,'',2,0,0),(45606,9503,20,29,0,'88.149.161.186',1199701107,1,0,1,1,1,0,'','Identificare i diritti di accesso dell\'utente','Salve,\nsapere se esiste un sistema per capire se l\'utente ha i diritti di amministratore o meno ?\n\nPoiché la mia applicazione crea una stampante virtuale runtime devo verificare se l\'utente che sta operando ha i diritti di administrator perché in caso contrario non è possibile su windows Vista aggiungere una nuova stampante.\n\nGrazie in anticipo\n\nSaluti\n\nMarco Turco','',0,'gA==','z4zb9c62',1,0,'',29,0,0),(45607,9484,6,542,0,'88.23.156.194',1199703865,1,0,1,1,1,0,'','','Gracias Willi por tu aportación\n\nUn saludo\n\nCarlos','',0,'gA==','7it9h499',1,0,'',542,0,0),(45608,9504,3,32,0,'41.206.160.2',1199704758,1,0,1,1,1,0,'','Associate file','Hi,\n\nHow can I associate a file extension with my piece of software we\'ve written from inside our software?','',0,'gA==','11h0tz8d',1,0,'',32,0,0),(45609,9496,3,2,0,'87.218.146.121',1199706029,1,0,1,1,1,1,'','','Davide,\n\n&gt; did I forgot to hit Submit after Previewing it ?\n\nyes, probably','',0,'gA==','3ewvcd0o',1,0,'',2,0,0),(45610,9486,6,104,0,'201.58.132.230',1199706745,1,0,1,1,1,0,'','','Olá Maestros  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias por responderem, mas não funcionou.\n\nVeja o programa que montei para teste:\n\n[code:d7blk0jf]\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\nfunction main\n\n   local oDlg, oBrw\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TEST&quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; odlg &#41;\n\n   oBrw&#58;lHScroll &#58;= &#46;f&#46;\n   oBrw&#58;lVScroll &#58;= &#46;t&#46;\n\n   oBrw&#58;CreateFromResource&#40; 101 &#41;\n\n   oBrw&#58;SetArray&#40; &#123; &#123; &quot;first&quot;, &quot;row&quot; &#125;, &#123; &quot;second&quot;, &quot;row&quot; &#125; &#125; &#41;\n   oBrw&#58;aCols&#91; 1 &#93;&#58;cHeader = &quot;An array&quot;\n   oBrw&#58;aCols&#91; 2 &#93;&#58;cHeader = &quot;test&quot;\n   oBrw&#58;aCols&#91; 1 &#93;&#58;bClrStd = &#123; || &#123; CLR_BLACK, CLR_WHITE &#125; &#125; \n   oBrw&#58;aCols&#91; 2 &#93;&#58;bClrStd = &#123; || &#123; CLR_BLACK, CLR_WHITE &#125; &#125; \n\n   ACTIVATE DIALOG oDlg ;\n      ON INIT &#40; oBrw&#58;lHScroll &#58;= &#46;f&#46;, oBrw&#58;SetColor&#40; CLR_BLACK, CLR_WHITE &#41; &#41;\n\nRETURN NIL\n[/code:d7blk0jf]\n\n[code:d7blk0jf]\nTEST DIALOG 6, 15, 306, 227\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU\nCAPTION &quot;TXBrowse demo&quot;\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n DEFPUSHBUTTON &quot;OK&quot;, IDOK, 252, 211, 50, 14\n CONTROL &quot;&quot;, 101, &quot;TXBrowse&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 4, 5, 297, 202\n&#125;\n[/code:d7blk0jf]\n\nVejam que em .RC eu tenho \"WS_VSCROLL | WS_HSCROLL\" mas não quero que o scroll horinzontal \"oBrw:lHScroll := .f.\" seja visível ao iniciar o programa.\n\nSe eu não defino em .RC \"WS_VSCROLL | WS_HSCROLL\" mas defino \"oBrw:lVScroll := .t.\" o scroll vertical é mostrado.\n\nGracias mais uma vez  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nRossine.','',0,'AIA=','d7blk0jf',1,0,'',104,0,0),(45611,9475,6,104,0,'201.58.132.230',1199706941,1,0,1,1,1,0,'','','Olá,\n\nTente isto:\n\n[code:1k2ka1lc]\nSTATIC Function Seekproduto&#40;oget&#41; \n\nlocal ubuffer&#58;= oGet&#58;Value&#40;&#41; \n\nif ! existe_prods&#40;ubuffer&#41; \n   oGet&#58;varput&#40; 0 &#41;\n   oGet&#58;refresh&#40;&#41;\n   return &#40;&#46;f&#46;&#41; \nendif \n\nreturn&#40;&#46;t&#46;&#41;\n[/code:1k2ka1lc]\n\nAbraços,\n\nRossine.','',0,'AIA=','1k2ka1lc',1,0,'',104,0,0),(45612,9505,3,29,0,'88.149.161.186',1199707475,1,0,1,1,1,1,'','User rights on a Vista OS','Hi,\nis there any way to know if the current user has the administrator rights or if it has only limited rights on a Vista OS ?\n\nI need to know it because my app create a virtual printer at runtime so I have to check if the user has the administrator rights before create the printer to avoid a system erron if the user is not the administrator. Unfortunately on a Windows Vista OS only the administrator can add a new printer.\n\nThanks in advance\n\nBest Regards,\n\nMarco Turco','',0,'AIA=','349nf8kp',1,0,'',29,0,0),(45613,9499,3,130,0,'141.51.32.24',1199708344,1,0,1,1,1,1,'','','James,\n\nin the folder class for every page a dialog is created (see Method New() or Redefine() ). These dialogs are activated in the method Default().\n\n[code:337jpf28]for nLen = 1 to Len&#40; &#58;&#58;aDialogs &#41;\n      oDlg = &#58;&#58;aDialogs&#91; nLen &#93; \n&#46;&#46;&#46;&#46;&#46;\nACTIVATE DIALOG oDlg NOWAIT ; \n                  ON INIT oDlg&#58;Move&#40; nHeight - 1, 1 &#41; ; \n                  VALID &#46;f&#46;                // to avoid exiting pressing Esc !!! \n&#46;&#46;&#46;&#46;&#46;&#46;[/code:337jpf28]\n\nAs you see there is no self-defined bInit (e.g. oFld:bInit) executed.\n\nA possible solution could be (not tested !)\n\n[code:337jpf28]ACTIVATE DIALOG oDlg NOWAIT ; \n                  ON INIT &#40;oDlg&#58;Move&#40; nHeight - 1, 1 &#41;, IIF&#40;&#58;&#58;bInit!=nil,Eval&#40;bInit&#41;,&#41; &#41; ; \n                  VALID &#46;f&#46;                // to avoid exiting pressing Esc !!! [/code:337jpf28]','',0,'AIA=','337jpf28',1,0,'',130,0,0),(45614,9505,3,130,0,'141.51.32.24',1199708754,1,0,1,1,1,1,'','','Marco,\n\nhere is small function from Enrico. (not tested)\n\n[code:31mn58tv]#include &lt;WinTen&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n#include &lt;CommDlg&#46;h&gt;\n\nextern LPSTR LToStr&#40; long w &#41;;\n\nHARBOUR HB_FUN_ISADMIN&#40; PARAMS &#41;\n\n&#123;\n\n  HANDLE hToken;\n  PTOKEN_GROUPS pGroupInfo;\n  DWORD dwSize = 0, dwResult;\n  DWORD nError = 0, i;\n  BOOL lError, lAdMin = FALSE;\n  LPSTR cFunc = &quot;&quot;;\n  PSID   psidAdmin;\n  CHAR cMess&#91;200&#93;;\n  SID_IDENTIFIER_AUTHORITY SystemSidAuthority= SECURITY_NT_AUTHORITY;\n\n  if &#40; lError = &#40;! OpenProcessToken&#40;GetCurrentProcess&#40;&#41;,TOKEN_QUERY,&amp;hToken&#41; &#41;&#41;\n    &#123;\n     cFunc = &quot;OpenProcessToken&quot;;\n     nError = GetLastError&#40;&#41;;\n     if &#40;nError == ERROR_CALL_NOT_IMPLEMENTED&#41;\n       &#123;\n        _retl&#40; TRUE &#41;;\n        return;\n       &#125;\n    &#125;\n\n  if &#40; ! lError &amp;&amp;  ! GetTokenInformation&#40;hToken, TokenGroups, NULL, dwSize, &amp;dwSize&#41;&#41;\n    &#123;\n      dwResult = GetLastError&#40;&#41;;\n      if&#40; lError=&#40;dwResult != ERROR_INSUFFICIENT_BUFFER &#41;&#41;\n       &#123;\n        nError = dwResult;\n        cFunc = &quot;GetTokenInformation&quot;;\n       &#125;\n    &#125;\n\n  if &#40; ! lError &#41;\n   &#123;\n    pGroupInfo = &#40;PTOKEN_GROUPS&#41; GlobalAlloc&#40; GPTR, dwSize &#41;;\n    if&#40; lError = &#40;! GetTokenInformation&#40;hToken, TokenGroups, pGroupInfo, dwSize, &amp;dwSize &#41; &#41;&#41;\n      &#123;\n        nError = GetLastError&#40;&#41;;\n        cFunc = &quot;GetTokenInformation&quot;;\n      &#125;\n   &#125;\n\n  if &#40; ! lError &#41;\n    if &#40; lError = &#40;! AllocateAndInitializeSid &#40; &amp;SystemSidAuthority, 2, SECURITY_BUILTIN_DOMAIN_RID, DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, &amp;psidAdmin&#41; &#41;&#41;\n     &#123;\n      nError = GetLastError&#40;&#41;;\n      cFunc = &quot;AllocateAndInitializeSid&quot;;\n     &#125;\n\n  if &#40; ! lError &#41;\n    &#123;\n      for&#40; i=0; i&lt;pGroupInfo-&gt;GroupCount; i++&#41;\n       &#123;\n          if &#40; EqualSid&#40;psidAdmin, pGroupInfo-&gt;Groups&#91;i&#93;&#46;Sid&#41; &#41;\n           &#123;\n        	    lAdMin = TRUE;\n        	    break;\n           &#125;\n       &#125;\n    &#125;\n  else\n    &#123;\n      cMess&#91;0&#93;=0;\n      lstrcat&#40;cMess,&quot;Error calling &quot;&#41;;\n      lstrcat&#40;cMess,cFunc&#41;;\n      lstrcat&#40;cMess,&quot;&#58; &quot;&#41;;\n      lstrcat&#40;cMess,LToStr&#40;nError&#41;&#41;;\n      MessageBox&#40;GetActiveWindow&#40;&#41;,cMess,&quot;Attention&quot;, MB_OK&#41;;\n    &#125;\n\n  if &#40;psidAdmin&#41;\n      FreeSid&#40;psidAdmin&#41;;\n\n  if &#40; pGroupInfo &#41;\n      GlobalFree&#40; pGroupInfo &#41;;\n\n  CloseHandle&#40; hToken &#41;;\n  _retl&#40; lAdMin &#41;;\n\n&#125;\n\n[/code:31mn58tv]','',0,'AIA=','31mn58tv',1,0,'',130,0,0),(45615,9499,3,2,0,'87.218.146.121',1199709786,1,0,1,1,1,1,'','','As Stefan explains, the ON INIT of the folder dialogs is being used, so it replaces a previous existing bInit:\n\noFolder:aDialogs[ n ]:bInit = { || ... code ... }\n\nso the Stefan solution is right. I suggest it this way:\n[code:1tuv4en9]\nACTIVATE DIALOG oDlg NOWAIT ; \n        ON INIT &#40; oDlg&#58;Move&#40; nHeight - 1, 1 &#41;,;\n        If&#40; oDlg&#58;bInit != nil, Eval&#40; oDlg&#58;bInit, oDlg &#41;,&#41; &#41; ; \n        VALID &#46;F&#46;\n[/code:1tuv4en9]','',0,'AIA=','1tuv4en9',1,0,'',2,0,0),(45616,9496,3,487,0,'151.16.78.53',1199709878,1,0,1,1,1,0,'','','Here it is.\n\nIt works well if I don\'t pass dDate (it returns the current date formatted correctly), but the same happens even with a different dDate.\n\nThere should be something wrong in the SystemTime structure, but I cannot find the mistake.\n\nThanks,\nDavide\n\n[code:35v6h43u]*********************************** \nFunction GetDatePict&#40;dDate,cFormat&#41;          // &quot;dd MMM yyyy&quot;\n***********************************\nLocal cBuf&#58;=Space&#40;261&#41;,i,oSystemTime\n\nIf Empty&#40;dDate&#41;\n  i&#58;=GetdateFormat&#40;0x0400,,,cFormat,@cBuf,261&#41;\nElse\n  STRUCT oSystemTime\n     MEMBER wYear         AS WORD \n     MEMBER wMonth        AS WORD \n     MEMBER wDayOfWeek    AS WORD \n     MEMBER wDay          AS WORD \n     MEMBER wHour         AS WORD \n     MEMBER wMinute       AS WORD \n     MEMBER wSecond       AS WORD \n     MEMBER wMilliseconds AS WORD \n  ENDSTRUCT\n  oSystemTime&#58;wYear      = Year&#40;dDate&#41;\n  oSystemTime&#58;wMonth     = Month&#40;dDate&#41;\n  oSystemTime&#58;wDay       = Day&#40;dDate&#41;\n  oSystemTime&#58;wDayOfWeek = 0          // The function fixes it\n  oSystemTime&#58;wHour      = 0\n  oSystemTime&#58;wMinute    = 0\n  oSystemTime&#58;wSecond    = 0\n  oSystemTime&#58;wMilliseconds = 0\n  i&#58;=GetdateFormat&#40;0x0400,,oSystemTime&#58;cBuffer,cFormat,@cBuf,261&#41;\nEndif\nReturn IF&#40;I=0,&quot;&quot;,Left&#40;cBuf,i-1&#41;&#41;\n\n//----------------------------------------------------------------------------//\n\nDLL32 Function GetDateFormat&#40; Locale AS DWORD, dwFlags AS DWORD, lpDate AS DWORD, lpFormat AS LPSTR, lpDateStr AS LPSTR, cchDate AS DWORD &#41; AS DWORD ;\n                   PASCAL FROM &quot;GetDateFormatA&quot; LIB &quot;kernel32&#46;dll&quot;\n\n//----------------------------------------------------------------------------//\n[/code:35v6h43u]','',0,'AIA=','35v6h43u',1,0,'',487,0,0),(45617,9475,6,2,0,'87.218.146.121',1199710134,1,0,1,1,1,1,'','','Revisa fwh\\samples\\mallorca.prg\n\nQue ha sido modificado y probado a fondo en FWH 8.01, por lo que es distinto y funciona distinto del que se incluye en FWH 7.12','',0,'AIA=','4b9i4pm4',1,0,'',2,0,0),(45618,9462,3,49,0,'213.82.134.66',1199710836,1,0,1,1,1,1,'','','Antonio\ni saw  you can insert dialog on outlook2003  \n\nbut i want insert on the right a Xbrowse with a tab (on bottom) \n\nit\'is possible to create it ?','',0,'AIA=','1lxpg13p',1,0,'',49,0,0),(45619,9462,3,2,0,'87.218.146.121',1199711663,1,0,1,1,1,1,'','','Silvio,\n\nYes, or course.\n\nIs it a MDI or SDI environment ?','',0,'AIA=','3q49yx8b',1,0,'',2,0,0),(45620,9486,6,2,0,'87.218.146.121',1199711854,1,0,1,1,1,1,'','','Rossine,\n\nPrueba así:\n[code:1m6k7iwn]\n   ACTIVATE DIALOG oDlg ; \n      ON INIT &#40; oBrw&#58;oHScroll&#58;SetRange&#40; 0, 0 &#41;, oBrw&#58;SetColor&#40; CLR_BLACK, CLR_WHITE &#41; &#41;\n[/code:1m6k7iwn]','',0,'AIA=','1m6k7iwn',1,0,'',2,0,0),(45621,9473,11,2,0,'87.218.146.121',1199712193,1,0,1,1,1,1,'','','Willy,\n\nAlready sent by email,','',0,'AIA=','z537ejdk',1,0,'',2,0,0),(45622,9486,6,362,0,'200.158.19.135',1199712360,1,0,1,1,1,1,'','','OU, TENHA DUAS DIALOGS, UMA COM SCROLL E OUTRA SEM.\n\nQUANDO ENTRAR NO PROGRAMA, ATIVE A DIALOG SEM SCROLL, DEPOIS DE FAZER O QUERES, TROQUE PELA QUE TEM SCROLL.','',0,'AIA=','1erzqmfc',1,0,'',362,0,0),(45623,9497,3,303,0,'72.220.181.80',1199712536,1,0,1,1,1,0,'','','NageswaraRao,\n\nI\'m not sure about your suggestion to use DEFAULT. In my experience, this is always used to define passed parameters and in this case none of these codeblocks is being passed. Also, I would be concerned that either currently, or in the future some or all of these codeblocks may have already been assigned by other methods of the TWBroiwse class. This could have undesirable effects.\n\nI note also that neither TCBrowse nor TSBrowse are using DEFAULT.\n\nMy suggestion would be to not use DEFAULT.\n\nRegards,\nJames','',0,'AIA=','1n0nc3wp',1,0,'',303,0,0),(45624,9506,6,24,0,'80.24.12.168',1199713755,1,0,1,1,1,1,'','IsVista()','Antonio, he visto la funcion en el foro  que Vista es:\nGetVersion()[ 1 ] == 6\n\nPues en un Vista Home Premium es igual a 5 , no a 6.\n\n¿ Es correcta esta funcion, existe en Fivewin ?','',0,'','3r4k0v36',1,0,'',24,0,0),(45625,9475,6,1236,0,'200.146.114.211',1199714265,1,0,1,1,1,0,'','','GRATO','',0,'','1od04lkn',1,0,'',1236,0,0),(45626,9507,6,1236,0,'200.146.114.211',1199714436,1,0,1,1,1,0,'','xBrowse - beditblock (RESOLVIDO)','Para validar eu pego o valor do GET ASSIM:\n\nobRW:aCols[4]:bEditValid   := {|oGet|  validget(oGet)}\n\n\nE para avaliar code block get_button corrente: ex:\n\nobRW:aCols[6]:nEditType    := EDIT_GET_BUTTON\nobRW:aCols[6]:bEditBlock   := {|oget ??? | validget(oget)     }\n\n\nComo fazer?\n\nGrato','',0,'','10wzxibh',1,1199731282,'',1236,1,0),(45627,9508,2,108,0,'200.42.4.180',1199717748,1,0,1,1,1,0,'','Error en report al Compilar','Amigos del Foro:\n\nAl compilar .prg que tengan reports me da el siguiente error :\n\nApplication\n===========\n   Path and name: C:\\TRABAJOS\\SJULIAN\\EGRESOS\\menuteso.exe (16 bits)\n   Size: 1,088,256 bytes\n   Max files handles permited: ( SetHandleCount() ) 255\n   Time from start: 0 hours 0 mins 16 secs \n   Error occurred at: 06/01/2008, 22:59:50\n   Error description: Error BASE/1003  Variable does not exist: CLR_LIGHTG\n\nStack Calls\n===========\n   Called from:  =&gt; LOCKERRHAN(0)\n   Called from:  =&gt; (b)INITHANDL$(0)\n   Called from:  =&gt; TREPORT:NEW(205)\n   Called from:  =&gt; RPTBEGIN(0)\n   Called from:  =&gt; LLIBRAFECH(590)\n   Called from:  =&gt; (b)BUILDMENU(166)\n   Called from:  =&gt; TMENU:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVEN(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from:  =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from:  =&gt; MENUEGRE(83)\n\nSystem\n======\n   CPU type: AMD Athlon(tm) 64 X2 Dual Core Processor 4200+\n   Hardware memory: 1024 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Clipper (R) 5.3 Intl.\n   Windows and MsDos versions: 3.95, 5.0\n\n   Windows total applications running: 7\n      1 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      2 xMate.exe\n      3 explorer.exe\n      4 C:\\TRABAJOS\\SJULIAN\\EGRESOS\\menuteso.exe\n      5 TOTALCMD.EXE\n      6 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      7 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   TREPORT:NEW\n     Param   1:    A    Len:    1\n     Param   2:    A    Len:    4\n     Param   3:    A    Len:    1\n     Param   4:    A    Len:    3\n     Param   5:    A    Len:    2\n     Param   6:    L    .F.\n     Param   7:    C    \"\"\n     Param   8:    C    \"\"\n     Param   9:    L    .F.\n     Param  10:    L    .T.\n     Param  11:    C    \"\"\n     Param  12:    U    \n     Param  13:    C    \"Libramientos por Fecha \"\n     Param  14:    C    \"CENTER\"\n     Param  15:    C    \"LEFT\"\n     Param  16:    C    \"CENTER\"\n     Local   1:    O    Class: TREPORT\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    L    .T.\n     Local   7:    L    .T.\n     Local   8:    U    \n     Local   9:    O    Class: TREPORT\n   RPTBEGIN\n     Param   1:    A    Len:    1\n     Param   2:    A    Len:    4\n     Param   3:    A    Len:    1\n     Param   4:    A    Len:    3\n     Param   5:    A    Len:    2\n     Param   6:    L    .F.\n     Param   7:    U    \n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .T.\n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    C    \"Libramientos por Fecha \"\n     Param  14:    C    \"CENTER\"\n     Param  15:    U    \n     Param  16:    C    \"CENTER\"\n     Local   1:    A    Len:    0\n   LLIBRAFECH\n     Local   1:    A    Len:    5\n     Local   2:    O    Class: TDIALOG\n     Local   3:    U    \n     Local   4:    D    01/01/2007\n     Local   5:    D    31/01/2007\n     Local   6:    L    .T.\n     Local   7:    C    \"  2622007\"\n     Local   8:    C    \"  2622007\"\n   (b)BUILDMENU\n     Param   1:    O    Class: TMENUITEM\n   TMENU:COMMAND\n     Param   1:    N    20016\n     Local   1:    O    Class: TMENU\n     Local   2:    O    Class: TMENUITEM\n   TMDIFRAME:COMMAND\n     Param   1:    N    20016\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    N    0\n     Local   3:    N    20016\n     Local   4:    N    0\n   TMDIFRAME:COMMAND\n     Param   1:    N    20016\n     Param   2:    N    0\n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    L    .F.\n   TMDIFRAME:HANDLEEVEN\n     Param   1:    N    273\n     Param   2:    N    20016\n     Param   3:    N    0\n   WINRUN\n     Param   1:    N    544\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    { || ... } CodeBlock\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MENUEGRE\n     Local   1:    O    Class: TBAR\n     Local   2:    O    Class: TBRUSH\n     Local   3:    U    \n     Local   4:    O    Class: TCURSOR\n\nLinked RDDs\n===========\n   DBF\n   _DBFCDX\n   DBFNTX\n   DBFCDX\n\n\nEstoy usando \n FW 7.12\n Clipper 5.3\n Blinker 5.10\n ClassWork 6.0\n xMate 1.15.\ny en opciones de compilacion /dCLIPPER501.\n\nDesde ya muchas gracias .\n\n Carlos Gustavo Marucco\n Rio Gallegos - Patagonia Argentina','',0,'','3dojutnd',1,0,'',108,0,0),(45628,9473,11,473,0,'81.241.228.203',1199719218,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI will find it when I am back home','',0,'','pagzn0th',1,0,'',473,0,0),(45629,9509,6,430,0,'157.100.146.2',1199720730,1,0,1,1,1,0,'','Ayuda con un &quot;Harbour Exception Error&quot;','Tengo un programa, donde durante la ejecución y al momento de intentar cargar un DIALOG un poco grande me sale el siguiente mensaje de error:\n\n---------------------------\nHarbour Exception\n---------------------------\nCalled from SENDMESSAGE(0)\nCalled from __EVAL(0)\nCalled from TCOMBOBOX:SENDMSG(0)\nCalled from __EVAL(0)\nCalled from AEVAL(0)\nCalled from TCOMBOBOX:DEFAULT(0)\nCalled from TCOMBOBOX:INITIATE(0)\nCalled from __OBJSENDMSG(0)\nCalled from OSEND(0)\nCalled from ASEND(0)\nCalled from TDIALOG:INITIATE(0)\nCalled from TDIALOG:HANDLEEVENT(0)\nCalled from DIALOGBOX(0)\nCalled from TDIALOG:ACTIVATE(0)\nCalled from INGRESAR(0)\nCalled from EVAL(0)\nCalled from TBTNBMP:CLICK(0)\nCalled from TBTNBMP:LBUTTONUP(0)\nCalled from TBTNBMP:HANDLEEVENT(0)\nCalled from TBTNBMP:HANDLEEVENT(0)\nCalled from _FWH(0)\nCalled from WINRUN(0)\nCalled from TWINDOW:ACTIVATE(0)\n\n---------------------------\nOK   \n---------------------------\n\nLe hice un seguimiento para ver cuando se genera, y es justo cuando se pone el ACTIVATE DIALOG. Estoy medio nuevo en FHW y no entiendo este mensaje de error a que se debe y como solucionarlo.\nSaludos\n\nFernando Espinoza','',0,'','u9wu9if8',1,0,'',430,0,0),(45630,9486,6,104,0,'201.58.132.230',1199720850,1,0,1,1,1,0,'','','Olá Antonio,\n\nPara funcionar tive que incluir também bPainted pois quando o browse é pintado, o scroll horizontal aparece na tela.\n\nO exemplo abaixo funcionou:\n[code:c57m0wi9]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\nfunction main\n\n   local oDlg, oBrw\n\n   DEFINE DIALOG oDlg RESOURCE &quot;TEST&quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; odlg &#41;\n\n   oBrw&#58;lHScroll &#58;= &#46;f&#46;\n   oBrw&#58;lVScroll &#58;= &#46;t&#46;\n\n   oBrw&#58;CreateFromResource&#40; 101 &#41;\n\n   oBrw&#58;SetArray&#40; &#123; &#123; &quot;first&quot;, &quot;row&quot; &#125;, &#123; &quot;second&quot;, &quot;row&quot; &#125; &#125; &#41;\n   oBrw&#58;aCols&#91; 1 &#93;&#58;cHeader = &quot;An array&quot;\n   oBrw&#58;aCols&#91; 2 &#93;&#58;cHeader = &quot;test&quot;\n   oBrw&#58;aCols&#91; 1 &#93;&#58;bClrStd = &#123; || &#123; CLR_BLACK, CLR_WHITE &#125; &#125; \n   oBrw&#58;aCols&#91; 2 &#93;&#58;bClrStd = &#123; || &#123; CLR_BLACK, CLR_WHITE &#125; &#125; \n \n   oDlg&#58;bInit    &#58;= &#123; || oBrw&#58;SetColor&#40; CLR_BLACK, CLR_WHITE &#41; &#125;\n\n   oDlg&#58;bpainted &#58;= &#123; || &#40; iif&#40; !oBrw&#58;lHScroll, oBrw&#58;oHScroll&#58;SetRange&#40; 0, 0 &#41;, NIL &#41;, ;\n                           iif&#40; !oBrw&#58;lVScroll, oBrw&#58;oVScroll&#58;SetRange&#40; 0, 0 &#41;, NIL &#41;, &#41; &#125;\n\n   ACTIVATE DIALOG oDlg\n\nRETURN NIL\n[/code:c57m0wi9]\n\nGracias,\n\nRossine.','',0,'AIA=','c57m0wi9',1,0,'',104,0,0),(45631,9494,6,389,0,'189.133.22.216',1199721062,1,0,1,1,1,0,'','','jBrita, lo implementare, para ver su funcionamiento..  Gracias !!','',0,'AIA=','27v5o7qm',1,0,'',389,0,0),(45632,9505,3,29,0,'88.149.161.186',1199724395,1,0,1,1,1,1,'','','Thank you Stefan,\nbut I have a \"Declaration sintax error\" in \nHARBOUR HB_FUN_ISADMIN( PARAMS )\n\nDo you know how I have to declare this function with xHarbour (BCC) ?\n\nThanks\n\nBest Regards,\n\nMarco','',0,'AIA=','2hgkhyqd',1,0,'',29,0,0),(45633,9492,7,63,0,'88.11.29.98',1199726038,1,0,1,1,1,0,'','','Antonio,\nMe ha bajado un par de SSH servers para Pocket PC (freeware y de pago). No he podido instalar ninguno de los dos: \"xxxx no es una aplicación de Pocket PC válida\" en ambos casos.  \nLo he probado en dos PDA: iPAQ antiguo (2001) con Pocket PC v3.0 y Acer N35 v 4.20, (de 2003)  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \nSeguiré buscado...\nGracias y un saludo,\nRafael','',0,'AIA=','2x9ptbr8',1,0,'',63,0,0),(45634,9490,2,1088,0,'189.129.169.193',1199726095,1,0,1,1,1,0,'','','Antonio, muchas gracias por tu valiosa ayuda, tengo una duda mas:\n\nDEFFINE BUTTON oF oBar FILE \"User.Bmp\" NOBORDER;\nACTION (oBtn:Disable(), WinExec (\"Calc\"), oBtn:Enable() )\n\n\nal compilar y enlazar me manda este error:\n\"VARIABLE DOES NO EXIST: oBtn\"\n\n\nQue hice mal ??\nSaludos','',0,'AIA=','3cdx3lf4',1,0,'',1088,0,0),(45635,9507,6,1236,0,'200.146.114.211',1199726221,1,0,1,1,1,0,'','','O pessoal, preciso de um help...\n\nComo eu chamo uma função com a beditblock e carrego o get corrente com o valor retornado, já forçando um enter para validar o campo...\n\n\nHeeeeeeeeelp\n\nGrato','',0,'AIA=','2cl3cqik',1,0,'',1236,0,0),(45636,9500,6,1059,0,'190.225.2.45',1199726773,1,0,1,1,1,0,'','','Me contesto a mí mismo.\n\nEl error estaba en que luego de llamar a la función que dibuja el oDlg2, hacía un oDlg1:setfocus().\n\nRolando  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','3rj7d2yf',1,0,'',1059,0,0),(45637,9510,6,24,0,'80.24.12.168',1199727050,1,0,1,1,1,1,'','CTools para Harbour','Alguien tiene las CTools para Harbour ?\nYo tengo para xHarbour, pero existe en Harbour ?','',0,'AIA=','2tl8xfa2',1,0,'',24,0,0),(45638,9511,6,24,0,'80.24.12.168',1199727089,1,0,1,1,1,1,'','TOLEAuto Harbour','¿ Existe TOleAuto en Harbour y en que librerias... ?','',0,'AIA=','3jw7wvow',1,0,'',24,0,0),(45639,8805,3,297,0,'217.57.213.130',1199727460,1,0,1,1,1,0,'','','Antonio,\n    may I try too?\nThanks','',0,'AIA=','2z0midy9',1,0,'',297,0,0),(45640,9510,6,24,0,'80.24.12.168',1199728586,1,0,1,1,1,1,'','Re: CTools para Harbour','Bueno, yo mismo, acabo de bajarme el harbour, compilado y creado la libreria hbct.lib.\n\nEl problema es que ahora a la hora de enlazar me suelta;\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n        C:\\BCC55\\BIN\\ILINK32.EXE -aa -Gn -Tpe -I.\\obj -j.\\obj @make.tmp\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_timeStrGet\' referenced from C:\\HARBOUR\\LIB\\HBCT.LI\nB|files\n\nPor lo que veo es en la funcion SETFDATI() que se hace uso, pero de momento no localizo DONDE esta hb_timeStrGet()\n\n¿ Alguna idea de lo que falla ? Thank you!\n\nUpdate: Cogiendo la common.lib recien creada, que es la que contiene dicha funcion, parece qe funciona...','',0,'AIA=','210txrea',1,0,'',24,0,0),(45641,9505,3,6,0,'87.16.223.170',1199729419,1,0,1,1,1,1,'','','[quote=&quot;StefanHaupt&quot;:175dl6i5]Marco,\n\nhere is small function from Enrico. (not tested)[/quote:175dl6i5]\n\nIt\'s not from me.\n\nEMG','',0,'gA==','175dl6i5',1,0,'',6,0,0),(45642,9492,7,57,0,'80.30.100.25',1199729964,1,0,1,1,1,1,'','','Rafael\nLo puedes hacer utilizando las funciones RAPI. \nPrueba con esto. \n\nFUNCTION FErasePPc( cFile, lMsg )\nLOCAL lVRet := RAPI_BORRAFICHERO_PDA( AnsiToWide(cFile), IF(lMsg=NIL,.F.,lMsg) )\n\nIF lMsg\n   IF lVRet\n       MSGINFO(cFile + \" Fichero Borrado correctante\")\n   ELSE\n       MSGINFO(\" El Fichero \" + cFile + \" NO ha podido ser Borrado\")\n   ENDIF\nENDIF\nRETURN lVRet\n\nHB_FUNC( RAPI_BORRAFICHERO_PDA )\n{\n\n\n      typedef HRESULT (WINAPI * _CeRapiInitEx_)   (RAPIINIT *) ;\n      typedef HRESULT (WINAPI * _CeRapiUninit_)   (void);\n      typedef BOOL    (WINAPI * _CeDeleteFile_)   (LPCWSTR);\n      typedef DWORD   (WINAPI * _CeGetLastError_)   (void);\n\n      BOOL lMuestraErrores = FALSE ;\n\n      HINSTANCE lRapi;\n      _CeRapiInitEx_   CeRapiInitEx;\n      _CeRapiUninit_   CeRapiUninit;\n      _CeDeleteFile_   CeDeleteFile;\n      _CeGetLastError_ CeGetLastError;\n\n      HRESULT lConnected;\n      RAPIINIT ri;\n      BOOL lResultado;\n\n      // Cargamos la librería\n      lRapi = LoadLibrary ( \"Rapi.dll\" );\n      if ( lRapi == NULL ) {\n         MessageBox(NULL,\"Error:no cargada librería\",\"Rapi\",MB_OK);\n         hb_retl(FALSE);\n         return ;\n      }\n\n\n      // Cargamos las funciones\n      CeRapiInitEx   = (_CeRapiInitEx_)   GetProcAddress((HMODULE) lRapi,\"CeRapiInitEx\");\n      CeRapiUninit   = (_CeRapiUninit_)   GetProcAddress((HMODULE) lRapi,\"CeRapiUninit\");\n      CeDeleteFile   = (_CeDeleteFile_)   GetProcAddress((HMODULE) lRapi,\"CeDeleteFile\");\n      CeGetLastError = (_CeGetLastError_) GetProcAddress((HMODULE) lRapi,\"CeGetLastError\");\n\n\n      // Conectamos\n      ri.cbSize = sizeof(RAPIINIT);\n      ri.heRapiInit = NULL;\n      ri.hrRapiInit = NULL;\n      if(FAILED(CeRapiInitEx(&amp;ri))) {\n         FreeLibrary(lRapi);\n         hb_retl( FALSE );\n         return;\n      }\n      if(WaitForSingleObject(ri.heRapiInit, 3000) != WAIT_OBJECT_0) {\n         CeRapiUninit();\n         FreeLibrary(lRapi);\n         hb_retl( FALSE ) ;\n         return;\n      }\n\n\n      lResultado = CeDeleteFile( (LPCWSTR)hb_parc(1) );\n\n\n\n\n      // Control de Errores\n      if( !lResultado ){\n          LPVOID lpMsgBuf;\n          FormatMessage( FORMAT_MESSAGE_ALLOCATE_BUFFER |\n                         FORMAT_MESSAGE_FROM_SYSTEM |\n                         FORMAT_MESSAGE_IGNORE_INSERTS,\n                         NULL,\n                         CeGetLastError(),\n                         0, // Default language\n                         (LPTSTR) &amp;lpMsgBuf,\n                         0,\n                         NULL\n                         );\n          // Mostramos el error (si así lo piden)\n          lMuestraErrores = (ISLOG(2) ? (BOOL) hb_parl(2) : lMuestraErrores);\n          if( lMuestraErrores )  MessageBox( NULL, (LPTSTR)lpMsgBuf, L\"Error\", MB_OK | MB_ICONINFORMATION );\n\n          // Liberamos memoria\n          LocalFree( lpMsgBuf );\n      }\n\n\n\n      // Desconectamos\n      CeRapiUninit();\n\n      // Descargamos librería\n      FreeLibrary(lRapi);\n\n      hb_retl( lResultado );\n\n}\n\nSaludos','',0,'gA==','1x2nxlge',1,0,'',57,0,0),(45643,9512,3,51,0,'80.122.88.242',1199730635,1,0,1,1,1,0,'','xBRowser drag &amp; drop question','Is there somewhere an example how to drag&amp;drop inside a xBrowser.\nThanks in advance\nOtto','',0,'gA==','1zrvvzkv',1,0,'',51,0,0),(45644,9507,6,1236,0,'200.146.114.211',1199731261,1,0,1,1,1,0,'','','RESOLVIDO','',0,'gA==','2bmofp8e',1,0,'',1236,0,0),(45646,9492,7,63,0,'88.11.29.98',1199736663,1,0,1,1,1,0,'','','Toni,\nMuchas gracias por tu ejemplo, per no he podido echarlo a andar. Probablemente es porque mis conocimientos de C son muy escasos, por no decir inexistentes.\nHe incluído todo tu listado entre #pragma BEGIN DUMP y #pragma ENDDUMP.  Al compilar me da un montón de errores.  Los primeros: \n[list:1de5pxfd]Error RMAKE/R2001  Exit 1: \'c:\\bcc55\\bin\\bcc32  -M -c -Ic:\\harbour\\include TEST.C\nOM.C\'\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nTEST.C:\nError E2147 TEST.PRG 112: \'WINAPI\' cannot start a parameter declaration in fu\nnction HB_FUN_RAPI_BORRAFICHERO_PDA\nError E2147 TEST.PRG 112: \'RAPIINIT\' cannot start a parameter declaration in\nfunction HB_FUN_RAPI_BORRAFICHERO_PDA[/list:u:1de5pxfd]\netc...\nProbablemente me falta algún include o algo más.  (Utilizo FWH 2.6 + Harbour)  Alguna sugerencia?\nMuchas gracias\nRafael','',0,'AEA=','1de5pxfd',1,0,'',63,0,0),(45647,8805,3,2,0,'87.218.146.121',1199737540,1,0,1,1,1,1,'','','Marco,\n\nThe source code and sample are included in FWH 8.01','',0,'AEA=','cwwy05qk',1,0,'',2,0,0),(45648,9490,2,2,0,'87.218.146.121',1199737627,1,0,1,1,1,1,'','','Te faltó definirlo aqui:\n\nDEFFINE BUTTON [color=red:3590jf48]oBtn[/color:3590jf48] oF oBar FILE \"User.Bmp\" NOBORDER; \nACTION (oBtn:Disable(), WinExec (\"Calc\"), oBtn:Enable() )','',0,'Ag==','3590jf48',1,0,'',2,0,0),(45649,9508,2,2,0,'87.218.146.121',1199737893,1,0,1,1,1,1,'','','Carlos,\n\nTienes que reemplazar CLR_LIGHTGRAY por CLR_HGRAY dentro de source\\classes\\rpreview.prg\n\nDeberías plantearte empezar a usar FWH y Harbour, para asi pasar tu aplicación a 32 bits y así solucionar limitaciones propias de los 16 bits.','',0,'Ag==','2tyrkjvy',1,0,'',2,0,0),(45650,9456,2,2,0,'87.218.146.121',1199738043,1,0,1,1,1,1,'','','Aqui la tienes:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/27920493/TWBrowse_Hernan.zip.html\">http://rapidshare.com/files/27920493/TW ... n.zip.html</a><!-- m -->\n\nSi haces una búsqueda en estos foros por BROWSE AND HERNAN encontrarás bastante material','',0,'Ag==','2ms3yswn',1,0,'',2,0,0),(45651,9506,6,2,0,'87.218.146.121',1199738588,1,0,1,1,1,1,'','','Rafa,\n\nEn FiveWin no la tenemos implementada.\n\nLo que si hemos probado es que GetVersion()[ 1 ] devuelve 6 en Vista Ultimate <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'','3lewoync',1,0,'',2,0,0),(45652,9509,6,2,0,'87.218.146.121',1199738800,1,0,1,1,1,1,'','','Fernando,\n\nPrueba a añadir esta función a tu PRG principal:\n[code:ft2wgsuj]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; SENDMESSAGE &#41;\n&#123;\n   if&#40; IsWindow&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41; &#41; &#41;\n      hb_retnl&#40; SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDDUMP\n[/code:ft2wgsuj]','',0,'AIA=','ft2wgsuj',1,0,'',2,0,0),(45653,9505,3,2,0,'87.218.146.121',1199739609,1,0,1,1,1,1,'','','Marco,\n\nTry to change:\n\nHARBOUR HB_FUN_ISADMIN( PARAMS ) \n\ninto:\n\nHB_FUNC( ISADMIN )','',0,'AIA=','2nil6piu',1,0,'',2,0,0),(45654,9473,11,473,0,'81.82.28.225',1199740332,1,0,1,1,1,0,'','','I received the files.\n\nThanks.\n\nIn what map does I have to copy them.\n\nThe xHarbour installation files install xHarbour in a different place now.\n\nGreetings,\n\nWilly.','',0,'AIA=','ul2e7wy3',1,0,'',473,0,0),(45655,9511,6,9,0,'85.59.70.80',1199740343,1,0,1,1,1,1,'','','Creo que tienes que enlazar la libreria hboleaut.lib','',0,'AIA=','4axmdi76',1,0,'',9,0,0),(45656,9514,2,708,0,'190.82.224.233',1199741078,1,0,1,1,1,0,'','ayuda urgente, para abrir archivo con nombre guardado en otr','Saludos amigos, les reitero esta pregunta con este problema que me esta\nvolviendo loco, el tema es el siguiente.\n\n1) trabajo con FW 2.4, blinker 4.0, clipper 5.2.\n\nel asunto es que tengo varias bases o tablas con datos, que son:\n\nNOMBRE ARCHIVO          CAMPOS\nB_Empresa.dbf  ---  numero(1N), nombre\nB_Area.Dbf     ---  numero(2N), nombre\nB_Contrato     ---  numero(3N), nombre\n\nTABLA.DBF      ---  EMPRESA(n1) ,AREA(N2), CONTRATO(n3), BASE (8c)\n\nel tema es que realizo lo siguiente \n\n1 CREA PROYECTO, ME SALE BIEN\n2 PROY2(), ME PASA DATOS BIEN DE UN ARCHIVO TEMPORAL AL ARCHIVO QUE SE CREA POR LA SUMAS DE LOS \n\nCAMPOS DE LA OPCION 1.\n3. PROY3(), ACA ESTA EL PROBLEMA ME SALE EL ERROR QUE SE MENCIONA AL FINAL Y EN LE FONDO ES QUE \n\nCUANDO VOY AL ARCHIVO TABLA, Y ESCOJO EL CAMPO QUE TIENE EL CONTENIDO P123, Y CON EL QUIERO ABRIR\nESTE ARCHIVO QUE SE CREO EN EL PUNTO 1, ME SALE ESTO.\n\nApplication\n===========\n   Path and name: C:\\EAA\\GESTION.dwd\n   Size:         0 bytes\n   Max files handles permited: ( SetHandleCount() ) 100\n   Error ocurred at: 07/01/2008, 17:56:46\n   Error description: Error _DBFCDX/1020  Data type error: P010\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from DBUSEAREA(0)\n   Called from NET_USE(74)\n   Called from X_ASOCIA01(6409)\n   Called from (b)PROY03(6359)\n   Called from TSBROWSE:LDBLCLICK(4266)\n   Called from TSBROWSE:HANDLEEVEN(0)\n   Called from TSBROWSE:HANDLEEVEN(8604)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PROY03(6387)\n   Called from (b)BUILDMENU(164)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(121)\n\nSystem\n======\n   CPU type: 486\n   Hardware memory: 16128 (15 megas)\n\n   Free System resources: % 90\n        GDI    resources: % 90\n        User   resources: % 90\n\n   Windows and MsDos versions:  3.95,  5. 0\n   Windows total applications running:   3\n      1 Explorer.EXE\n      2 medcx.exe\n      3 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      4 C:\\EAA\\GESTION.DLL\n      5 C:\\EAA\\GESTION.dwd\n      6 C:\\CLIPPER5\\WORKSHOP\\WORKSHOP.EXE\n      7 C:\\CLIPPER5\\WORKSHOP\\WORKED3.DLL\n      8 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      9 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   DBUSEAREA\n     Param   1:    L    .F.\n     Param   2:    U    \n     Param   3:    C    \"P010\"\n     Param   4:    U    \n     Param   5:    L    .F.\n     Param   6:    L    .F.\n   NET_USE\n     Param   1:    C    \"P010\"\n     Param   2:    L    .T.\n     Param   3:    N    1\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n   X_ASOCIA01\n     Param   1:    O    Class: TSBROWSE\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    U    \n     Local  16:    U    \n     Local  17:    U    \n     Local  18:    U    \n     Local  19:    U    \n     Local  20:    U    \n     Local  21:    U    \n     Local  22:    U    \n     Local  23:    U    \n     Local  24:    U    \n     Local  25:    U    \n     Local  26:    U    \n     Local  27:    U    \n     Local  28:    U    \n     Local  29:    C    \"P010\"\n   (b)PROY03\n     Param   1:    N    57\n     Param   2:    N    299\n     Param   3:    N    1\n\n\n\nACA VAN LOS PROCESOS...\n\n\nFunction CREA_PROY(cRut_Emp,cCod_Area,cRut_Con,cMandante,cEmpresa,cContrato)\nLocal cDbf,aDbf\nLocal cRDD  :=RddSetDefault()\n\ncDbf:=\"        \"\naDbf := { {\'Rut_Emp\'  ,\'C\',12,0},;\n          {\'Rut_Con\'  ,\'C\',12,0},;\n          {\'Cod_Area\' ,\'C\',20,0},;\n          {\'Rut_Tra\'  ,\'C\',12,0},;         \n          {\'Cod_Ane\'  ,\'C\',20,0},;\n          {\'Tip_Mov\'  ,\'N\',01,0} }\n\n    Select 1\n    Seek cRut_Emp\n    if found()\n       cMandante:= \"P\"+Alltrim(Str(B_Emp-&gt;Numero))  // SI NUMERO = 0, ENTONCES MANDANTE = P0\n    endif\n\n    Select 2\n    Seek cCod_Area\n    if found()\n       cContrato:= Alltrim(Str(B_Area-&gt;Numero))     // SI NUMERO = 1, ENTONCE CONTRATO = 1\n    endif\n\n    Select 3\n    Seek cRut_Con\n    if found()\n       cEmpresa:= Alltrim(Str(B_Cont-&gt;Numero))    // SI CONTRATO = 0, ENTONCES EMPRESA = 0\n    endif\n\n    cDbf:=ALLTRIM(cMandante+cEmpresa+cContrato)   // ENTONCES CDBF = \"P010\"\n\n    SELECT 90   // ESTO MANEJA TABLA\n    SEEK cDbf\n    If found()\n       MsgStop( \"Este levantamiento ya existe... Verifique\" )\n    Else\n       Append Blank\n       Replace Tabla-&gt;Base     with cDbf\n       Replace Tabla-&gt;Rut_Emp  with cRut_Emp\n       Replace Tabla-&gt;Rut_Con  with cRut_Con\n       Replace Tabla-&gt;Cod_Area with cCod_Area\n\n       DbCreate( cDbf, aDbf, cRdd )  // ESTE PROCESO SE REALIZA BIEN, ES DECIR \n    Endif                            // ME CREA BIEN EL ARCHIVO  P123.DBF\n \nReturn Nil\n\n\nahora si este archivo P123.dbf, le guardo datos, me los almacena bien, es decir si \n\nFunction Proy02()\n  Local oDlg02\n  Local Cod_Suma,N,oLbx0\n  Local oSay,oFte03,oFte04,oFte05,oEstado,cEstado\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  close database\n\n  N := 0\n\n  Select 50\n  N := 1\n  Do While .t.\n     ARCHI = \"TEM_ASO\" + StrZero(N,1)\n     If net_use(ARCHI,.T.,1)\n        zap\n        exit\n     Else\n        N++\n        IF N &gt; 5\n           RETURN\n        ENDIF\n     Endif\n  Enddo\n\n  Select 80\n  Do While .T.\n     If NET_USE(\"His_Tra\",.F.,1)\n        Set Index TO His_Tra1\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 01\n  Do While .T.\n     If NET_USE(\"B_Emp\",.F.,1)\n        Set Index TO B_Emp1,B_Emp2\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n Select 02\n Do While .T.\n    If NET_USE(\"B_Area\",.F.,1)\n       Set Index TO B_Area3, B_Area2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 04\n Do While .T.\n    If NET_USE(\"B_Trab\",.F.,1)\n       Set Index to B_Trab1,B_Trab2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 03\n Do While .T.\n    If NET_USE(\"B_Cont\",.F.,1)\n       Set Index TO B_Cont1,B_Cont2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n  Select 90\n  Do While .T.\n     If NET_USE(\"Tabla\",.F.,1)\n        Set Index TO Tabla\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  DEFINE FONT oFte03  NAME \"Arial\"  SIZE 0,-14\n  Define Font oFte04  Name \"Arial\"  Size 0,-12 Bold\n  Define Font oFte05  Name \"Arial\"  Size 0,-14 Bold\n\n  DEFINE DIALOG oDlg02 RESOURCE \"BROWSE02\" TITLE \"Ingreso de Trabajadores Asociados a Proyecto\" \n\nFont oFte05\n\n  Redefine BtnBmp oBot1  Id 1001 Resource \"BTO_PRINT\" Of oDlg02;\n           ACTION (PRINT_EMPRESA(cRut_Emp,cNom_Emp,mArchi,MENSAJE) );\n           Message \"Ingresa Nuevo Registro\"\n\n  Redefine BtnBmp oBot3  Id 1002 Resource \"B_SALIR01\" Of oDlg02;\n           Action (oLbx0:Refresh(),oDlg02:End());\n           NoBorder;\n           Message \"Salida\"\n\n  Select 90\n  go top\n  Set Relation to Tabla-&gt;Rut_Emp into B_Emp, Tabla-&gt;Rut_Con into B_Cont, Tabla-&gt;Cod_Area into \n\nB_Area\n  Redefine Browse oLbx0 Id 1000 Of oDlg02 FONT oFte04;\n           ON LEFT DBLCLICK (xAsocia01(oLbx0,Archi), oLbx0:Refresh());\n           COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,255), Rgb(117,208,181)\n\n  Add Column To Browse oLbx0 Data B_Emp-&gt;Nom_Emp;\n      Head \"E.Mandante\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Cont-&gt;Nom_Con;\n      Head \"Contratista\";\n      PICTURE \"!!!!!!!!!!!!!!!!!!!!!!!!!\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Area-&gt;Nom_Area;\n      Head \"Proyecto/Contrato\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data Tabla-&gt;Base;\n      Head \"Base\";\n      Width 100 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n      oLbx0:nLineStyle  := 4\n      oLbx0:nHeightCell += 6\n      oLbx0:nHeightHead += 6\n      oLbx0:GoTop()\n\n   Activate Dialog oDlg02 Centered\n   close database\nReturn Nil\n\nFunction XASOCIA01(oLbx0,Archi)\n  Local oDlg01\n  Local Cod_Suma,N\n  Local oSay,oFont1,oFont2,oFuente\n  Local oRut_Emp ,cRut_Emp ,oNom_Emp ,cNom_Emp\n  Local oRut_Con ,cRut_Con ,oNom_Con ,cNom_Con\n  Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  Local cFecha,olbx1,Base\n\n  cFecha:=date()\n  Base:=\"        \"\n  Base:=Tabla-&gt;Base          // ACA SE BUSCA EL NOMBRE DEL ARCHIVO\n\n  DEFINE FONT oFont1   NAME \"Arial\"  SIZE 0,-12 Bold\n  Define Font oFont2   Name \"Aria\"   Size 0,-11 Bold\n\n  DEFINE DIALOG oDlg01 RESOURCE \"ASOCIA01\" TITLE \"Asociacion de Trabajadores..\"+;\n  ALLTRIM(B_Emp-&gt;Nom_Emp)+\" / \"+ALLTRIM(B_Cont-&gt;Nom_Con)+\" / \"+ ALLTRIM(B_Area-&gt;Nom_Area)+\"  --  \n\n\"+ ALLTRIM(Base)\n\n  Select 50\n  For i = 1 to 200\n      append blank\n      Replace (Archi)-&gt;item with I\n  Next i\n\n  go top\n  Set Relation to (archi)-&gt;rut_tra into B_Trab\n\n  Redefine Browse oLbx1 Id 1000 Of oDlg01;\n      ON LEFT DBLCLICK (ITEMS_TRAB(OlBX1,Archi,cFecha),oLbx1:Refresh());\n      UPDATE ;\n      FONT oFont1;\n      COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), Rgb(200,255,200);\n      CELLED\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Item;\n      Head \"Item\" Width 50 Align 2,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Rut_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"!!!!!!!!-!\";\n      Head \"Trabajador\" Width 90 Align 0,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170);\n      Post Edit( ITEMS_TRAB(oLbx1,Archi,cFecha),oLbx1:Refresh())\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Nom_Tra;\n      Head \"Nombre\" Width 350 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Fin_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_DOWN;\n      Head \"F.Ingreso\" Width 80 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170)\n\n      oLbx1:SetColor( { 13, 14 }, { CLR_WHITE, CLR_3 } )\n      oLbx1:nLineStyle  := 4  //1 normal, 2 filas sin linea, 3 columnas sin linea\n      oLbx1:nHeightCell += 6  // altura de las filas\n      oLbx1:nHeightHead += 6  // altura titulos\n      oLbx1:ChangeFont( oFont2,,2 )  // ( oFont, nCol, nLevel )\n\n  REDEFINE Button oBoton1  Var cBoton1 Id 801 Of oDlg01 ;\n           ACTION (GRA_PROYECTO(Archi,Base),oDlg01:End() )\n\n  REDEFINE Button oBoton2  Var cBoton2 Id 802 Of oDlg01 Cancel;\n           ACTION oDlg01:End()\n\n   Activate Dialog oDlg01 Centered\n   Select 50\n   zap\nRETURN(Nil)\n\n\nFUNCTION GRA_PROYECTO(Archi,Base)   // SE DA LA ORDEN DE GUARDAR LOS DATOS EN ESTE ARCHIVO\nLocal xBase\nxBase:=\"        \"\n\nSELECT 91\nDo While .t.\n   xARCHI = ALLTRIM(BASE)\n   If net_use(xARCHI,.T.,1)\n      Index on (xArchi)-&gt;rut_tra to (xArchi)\n      exit\n   Endif\nEnddo\n\nSELECT 50\nGO TOP\nDO WHILE .NOT. EOF()\n   if !empty((Archi)-&gt;Rut_Tra)\n      SELECT 91\n      APPEND BLANK\n      replace (xArchi)-&gt;Rut_Emp  with Tabla-&gt;Rut_Emp\n      replace (xArchi)-&gt;Cod_Area with Tabla-&gt;Cod_Area\n      replace (xArchi)-&gt;Rut_Con  with Tabla-&gt;Rut_Con\n      replace (xArchi)-&gt;Fin_Pro  with (Archi)-&gt;Fin_tra\n      replace (xArchi)-&gt;Rut_Tra  with (Archi)-&gt;Rut_Tra\n      replace (xArchi)-&gt;Nom_Tra  with (Archi)-&gt;Nom_Tra\n   endif\n   Select 50\n   skip\nENDDO\nSelect 90\ngo top\nRETURN NIL\n\n\nPERO EL ASUNTO MALO ESTA POR ACA\n\n\nFunction Proy03()\n  Local oDlg02\n  Local Cod_Suma,N,oLbx0\n  Local oSay,oFte03,oFte04,oFte05,oEstado,cEstado\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  Local xBase\n  xBase:=\"        \"\n  close database\n\n  N := 0\n\n  Select 80\n  Do While .T.\n     If NET_USE(\"His_Tra\",.F.,1)\n        Set Index TO His_Tra1\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 01\n  Do While .T.\n     If NET_USE(\"B_Emp\",.F.,1)\n        Set Index TO B_Emp1,B_Emp2\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n Select 02\n Do While .T.\n    If NET_USE(\"B_Area\",.F.,1)\n       Set Index TO B_Area3, B_Area2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 04\n Do While .T.\n    If NET_USE(\"B_Trab\",.F.,1)\n       Set Index to B_Trab1,B_Trab2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 03\n Do While .T.\n    If NET_USE(\"B_Cont\",.F.,1)\n       Set Index TO B_Cont1,B_Cont2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n  Select 90\n  Do While .T.\n     If NET_USE(\"Tabla\",.F.,1)\n        Set Index TO Tabla\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  DEFINE FONT oFte03  NAME \"Arial\"  SIZE 0,-14\n  Define Font oFte04  Name \"Arial\"  Size 0,-12 Bold\n  Define Font oFte05  Name \"Arial\"  Size 0,-14 Bold\n\n  DEFINE DIALOG oDlg02 RESOURCE \"BROWSE02\" TITLE \"Ingreso de Trabajadores Asociados a Proyecto\" \n\nFont oFte05\n\n  Redefine BtnBmp oBot1  Id 1001 Resource \"BTO_PRINT\" Of oDlg02;\n           ACTION (PRINT_EMPRESA(cRut_Emp,cNom_Emp,mArchi,MENSAJE) );\n           Message \"Ingresa Nuevo Registro\"\n\n  Redefine BtnBmp oBot3  Id 1002 Resource \"B_SALIR01\" Of oDlg02;\n           Action (oLbx0:Refresh(),oDlg02:End());\n           NoBorder;\n           Message \"Salida\"\n\n  Select 90\n  go top\n  Set Relation to Tabla-&gt;Rut_Emp into B_Emp, Tabla-&gt;Rut_Con into B_Cont, Tabla-&gt;Cod_Area into \n\nB_Area\n  Redefine Browse oLbx0 Id 1000 Of oDlg02 FONT oFte04;\n           ON LEFT DBLCLICK (x_Asocia01(oLbx0), oLbx0:Refresh());\n           COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,255), Rgb(117,208,181)\n\n  Add Column To Browse oLbx0 Data B_Emp-&gt;Nom_Emp;\n      Head \"E.Mandante\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Cont-&gt;Nom_Con;\n      Head \"Contratista\";\n      PICTURE \"!!!!!!!!!!!!!!!!!!!!!!!!!\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Area-&gt;Nom_Area;\n      Head \"Proyecto/Contrato\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data Tabla-&gt;Base;\n      Head \"Base\";\n      Width 100 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n      oLbx0:nLineStyle  := 4\n      oLbx0:nHeightCell += 6\n      oLbx0:nHeightHead += 6\n      oLbx0:GoTop()\n\n   Activate Dialog oDlg02 Centered\n   close database\nReturn Nil\n\n\nFunction X_ASOCIA01(oLbx0)\n  Local oDlg01\n  Local Cod_Suma,N\n  Local oSay,oFont1,oFont2,oFuente\n  Local oRut_Emp ,cRut_Emp ,oNom_Emp ,cNom_Emp\n  Local oRut_Con ,cRut_Con ,oNom_Con ,cNom_Con\n  Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  Local cFecha,olbx1,Base\n\n  Base:=\"        \"\n  Base:=Tabla-&gt;Base\n\n  SELECT 91\n  Do While .t.\n     BASE = ALLTRIM(BASE)\n     If net_use(BASE,.T.,1)\n        Index on (BASE)-&gt;rut_tra to (BASE)\n        exit\n     Endif\n  Enddo\n\n  DEFINE FONT oFont1   NAME \"Arial\"  SIZE 0,-12 Bold\n  Define Font oFont2   Name \"Aria\"   Size 0,-11 Bold\n\n  DEFINE DIALOG oDlg01 RESOURCE \"ASOCIA01\" TITLE \"Asociacion de Trabajadores..\"+;\n  ALLTRIM(B_Emp-&gt;Nom_Emp)+\" / \"+ALLTRIM(B_Cont-&gt;Nom_Con)+\" / \"+ ALLTRIM(B_Area-&gt;Nom_Area)+\"  --  \n\n\"+;\n  ALLTRIM(Base)\n\n  Select 91\n  go top\n  Set Relation to (archi)-&gt;rut_tra into B_Trab\n\n  Redefine Browse oLbx1 Id 1000 Of oDlg01;\n      ON LEFT DBLCLICK (ITEMS_TRAB(OlBX1,Archi,cFecha),oLbx1:Refresh());\n      UPDATE ;\n      FONT oFont1;\n      COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), Rgb(200,255,200);\n      CELLED\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Item;\n      Head \"Item\" Width 50 Align 2,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Rut_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"!!!!!!!!-!\";\n      Head \"Trabajador\" Width 90 Align 0,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170);\n      Post Edit( ITEMS_TRAB(oLbx1,Archi,cFecha),oLbx1:Refresh())\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Nom_Tra;\n      Head \"Nombre\" Width 350 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Fin_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_DOWN;\n      Head \"F.Ingreso\" Width 80 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170)\n\n      oLbx1:SetColor( { 13, 14 }, { CLR_WHITE, CLR_3 } )\n      oLbx1:nLineStyle  := 4  //1 normal, 2 filas sin linea, 3 columnas sin linea\n      oLbx1:nHeightCell += 6  // altura de las filas\n      oLbx1:nHeightHead += 6  // altura titulos\n      oLbx1:ChangeFont( oFont2,,2 )  // ( oFont, nCol, nLevel )\n\n  REDEFINE Button oBoton1  Var cBoton1 Id 801 Of oDlg01 ;\n           ACTION (GRA_PROYECTO(Archi,Base),oDlg01:End() )\n\n  REDEFINE Button oBoton2  Var cBoton2 Id 802 Of oDlg01 Cancel;\n           ACTION oDlg01:End()\n\n   Activate Dialog oDlg01 Centered\n   Select 50\n   zap\nRETURN(Nil)','',0,'AIA=','1xeescie',1,0,'',708,0,0),(45657,9515,6,708,0,'190.82.224.233',1199741710,1,0,1,1,1,0,'','ayuda urgente, para abrir archivo con nombre guardado en otr','Saludos amigos, les reitero esta pregunta con este problema que me esta\nvolviendo loco, el tema es el siguiente.\n\n1) trabajo con FW 2.4, blinker 4.0, clipper 5.2.\n\nel asunto es que tengo varias bases o tablas con datos, que son:\n\nNOMBRE ARCHIVO          CAMPOS\nB_Empresa.dbf  ---  numero(1N), nombre\nB_Area.Dbf     ---  numero(2N), nombre\nB_Contrato     ---  numero(3N), nombre\n\nTABLA.DBF      ---  EMPRESA(n1) ,AREA(N2), CONTRATO(n3), BASE (8c)\n\nel tema es que realizo lo siguiente \n\n1 CREA PROYECTO, ME SALE BIEN\n2 PROY2(), ME PASA DATOS BIEN DE UN ARCHIVO TEMPORAL AL ARCHIVO QUE SE CREA POR LA SUMAS DE LOS \n\nCAMPOS DE LA OPCION 1.\n3. PROY3(), ACA ESTA EL PROBLEMA ME SALE EL ERROR QUE SE MENCIONA AL FINAL Y EN LE FONDO ES QUE \n\nCUANDO VOY AL ARCHIVO TABLA, Y ESCOJO EL CAMPO QUE TIENE EL CONTENIDO P123, Y CON EL QUIERO ABRIR\nESTE ARCHIVO QUE SE CREO EN EL PUNTO 1, ME SALE ESTO.\n\nApplication\n===========\n   Path and name: C:\\EAA\\GESTION.dwd\n   Size:         0 bytes\n   Max files handles permited: ( SetHandleCount() ) 100\n   Error ocurred at: 07/01/2008, 17:56:46\n   Error description: Error _DBFCDX/1020  Data type error: P010\n\nStack Calls\n===========\n   Called from LOCKERRHAN(0)\n   Called from (b)INITHANDL$(0)\n   Called from DBUSEAREA(0)\n   Called from NET_USE(74)\n   Called from X_ASOCIA01(6409)\n   Called from (b)PROY03(6359)\n   Called from TSBROWSE:LDBLCLICK(4266)\n   Called from TSBROWSE:HANDLEEVEN(0)\n   Called from TSBROWSE:HANDLEEVEN(8604)\n   Called from DIALOGBOX(0)\n   Called from TDIALOG:ACTIVATE(0)\n   Called from PROY03(6387)\n   Called from (b)BUILDMENU(164)\n   Called from TMENU:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:COMMAND(0)\n   Called from TMDIFRAME:HANDLEEVEN(0)\n   Called from WINRUN(0)\n   Called from TMDIFRAME:ACTIVATE(0)\n   Called from MAIN(121)\n\nSystem\n======\n   CPU type: 486\n   Hardware memory: 16128 (15 megas)\n\n   Free System resources: % 90\n        GDI    resources: % 90\n        User   resources: % 90\n\n   Windows and MsDos versions:  3.95,  5. 0\n   Windows total applications running:   3\n      1 Explorer.EXE\n      2 medcx.exe\n      3 C:\\WINDOWS\\SYSTEM32\\USER.EXE\n      4 C:\\EAA\\GESTION.DLL\n      5 C:\\EAA\\GESTION.dwd\n      6 C:\\CLIPPER5\\WORKSHOP\\WORKSHOP.EXE\n      7 C:\\CLIPPER5\\WORKSHOP\\WORKED3.DLL\n      8 C:\\WINDOWS\\SYSTEM32\\MMSYSTEM.DLL\n      9 C:\\WINDOWS\\SYSTEM32\\WOWEXEC.EXE\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   LOCKERRHAN\n     Param   1:    O    Class: ERROR\n     Param   2:    B    { || ... } CodeBlock\n   (b)INITHANDL$\n     Param   1:    O    Class: ERROR\n   DBUSEAREA\n     Param   1:    L    .F.\n     Param   2:    U    \n     Param   3:    C    \"P010\"\n     Param   4:    U    \n     Param   5:    L    .F.\n     Param   6:    L    .F.\n   NET_USE\n     Param   1:    C    \"P010\"\n     Param   2:    L    .T.\n     Param   3:    N    1\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n   X_ASOCIA01\n     Param   1:    O    Class: TSBROWSE\n     Local   1:    U    \n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    U    \n     Local  12:    U    \n     Local  13:    U    \n     Local  14:    U    \n     Local  15:    U    \n     Local  16:    U    \n     Local  17:    U    \n     Local  18:    U    \n     Local  19:    U    \n     Local  20:    U    \n     Local  21:    U    \n     Local  22:    U    \n     Local  23:    U    \n     Local  24:    U    \n     Local  25:    U    \n     Local  26:    U    \n     Local  27:    U    \n     Local  28:    U    \n     Local  29:    C    \"P010\"\n   (b)PROY03\n     Param   1:    N    57\n     Param   2:    N    299\n     Param   3:    N    1\n\n\n\nACA VAN LOS PROCESOS...\n\n\nFunction CREA_PROY(cRut_Emp,cCod_Area,cRut_Con,cMandante,cEmpresa,cContrato)\nLocal cDbf,aDbf\nLocal cRDD  :=RddSetDefault()\n\ncDbf:=\"        \"\naDbf := { {\'Rut_Emp\'  ,\'C\',12,0},;\n          {\'Rut_Con\'  ,\'C\',12,0},;\n          {\'Cod_Area\' ,\'C\',20,0},;\n          {\'Rut_Tra\'  ,\'C\',12,0},;         \n          {\'Cod_Ane\'  ,\'C\',20,0},;\n          {\'Tip_Mov\'  ,\'N\',01,0} }\n\n    Select 1\n    Seek cRut_Emp\n    if found()\n       cMandante:= \"P\"+Alltrim(Str(B_Emp-&gt;Numero))  // SI NUMERO = 0, ENTONCES MANDANTE = P0\n    endif\n\n    Select 2\n    Seek cCod_Area\n    if found()\n       cContrato:= Alltrim(Str(B_Area-&gt;Numero))     // SI NUMERO = 1, ENTONCE CONTRATO = 1\n    endif\n\n    Select 3\n    Seek cRut_Con\n    if found()\n       cEmpresa:= Alltrim(Str(B_Cont-&gt;Numero))    // SI CONTRATO = 0, ENTONCES EMPRESA = 0\n    endif\n\n    cDbf:=ALLTRIM(cMandante+cEmpresa+cContrato)   // ENTONCES CDBF = \"P010\"\n\n    SELECT 90   // ESTO MANEJA TABLA\n    SEEK cDbf\n    If found()\n       MsgStop( \"Este levantamiento ya existe... Verifique\" )\n    Else\n       Append Blank\n       Replace Tabla-&gt;Base     with cDbf\n       Replace Tabla-&gt;Rut_Emp  with cRut_Emp\n       Replace Tabla-&gt;Rut_Con  with cRut_Con\n       Replace Tabla-&gt;Cod_Area with cCod_Area\n\n       DbCreate( cDbf, aDbf, cRdd )  // ESTE PROCESO SE REALIZA BIEN, ES DECIR \n    Endif                            // ME CREA BIEN EL ARCHIVO  P123.DBF\n \nReturn Nil\n\n\nahora si este archivo P123.dbf, le guardo datos, me los almacena bien, es decir si \n\nFunction Proy02()\n  Local oDlg02\n  Local Cod_Suma,N,oLbx0\n  Local oSay,oFte03,oFte04,oFte05,oEstado,cEstado\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  close database\n\n  N := 0\n\n  Select 50\n  N := 1\n  Do While .t.\n     ARCHI = \"TEM_ASO\" + StrZero(N,1)\n     If net_use(ARCHI,.T.,1)\n        zap\n        exit\n     Else\n        N++\n        IF N &gt; 5\n           RETURN\n        ENDIF\n     Endif\n  Enddo\n\n  Select 80\n  Do While .T.\n     If NET_USE(\"His_Tra\",.F.,1)\n        Set Index TO His_Tra1\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 01\n  Do While .T.\n     If NET_USE(\"B_Emp\",.F.,1)\n        Set Index TO B_Emp1,B_Emp2\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n Select 02\n Do While .T.\n    If NET_USE(\"B_Area\",.F.,1)\n       Set Index TO B_Area3, B_Area2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 04\n Do While .T.\n    If NET_USE(\"B_Trab\",.F.,1)\n       Set Index to B_Trab1,B_Trab2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 03\n Do While .T.\n    If NET_USE(\"B_Cont\",.F.,1)\n       Set Index TO B_Cont1,B_Cont2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n  Select 90\n  Do While .T.\n     If NET_USE(\"Tabla\",.F.,1)\n        Set Index TO Tabla\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  DEFINE FONT oFte03  NAME \"Arial\"  SIZE 0,-14\n  Define Font oFte04  Name \"Arial\"  Size 0,-12 Bold\n  Define Font oFte05  Name \"Arial\"  Size 0,-14 Bold\n\n  DEFINE DIALOG oDlg02 RESOURCE \"BROWSE02\" TITLE \"Ingreso de Trabajadores Asociados a Proyecto\" \n\nFont oFte05\n\n  Redefine BtnBmp oBot1  Id 1001 Resource \"BTO_PRINT\" Of oDlg02;\n           ACTION (PRINT_EMPRESA(cRut_Emp,cNom_Emp,mArchi,MENSAJE) );\n           Message \"Ingresa Nuevo Registro\"\n\n  Redefine BtnBmp oBot3  Id 1002 Resource \"B_SALIR01\" Of oDlg02;\n           Action (oLbx0:Refresh(),oDlg02:End());\n           NoBorder;\n           Message \"Salida\"\n\n  Select 90\n  go top\n  Set Relation to Tabla-&gt;Rut_Emp into B_Emp, Tabla-&gt;Rut_Con into B_Cont, Tabla-&gt;Cod_Area into \n\nB_Area\n  Redefine Browse oLbx0 Id 1000 Of oDlg02 FONT oFte04;\n           ON LEFT DBLCLICK (xAsocia01(oLbx0,Archi), oLbx0:Refresh());\n           COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,255), Rgb(117,208,181)\n\n  Add Column To Browse oLbx0 Data B_Emp-&gt;Nom_Emp;\n      Head \"E.Mandante\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Cont-&gt;Nom_Con;\n      Head \"Contratista\";\n      PICTURE \"!!!!!!!!!!!!!!!!!!!!!!!!!\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Area-&gt;Nom_Area;\n      Head \"Proyecto/Contrato\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data Tabla-&gt;Base;\n      Head \"Base\";\n      Width 100 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n      oLbx0:nLineStyle  := 4\n      oLbx0:nHeightCell += 6\n      oLbx0:nHeightHead += 6\n      oLbx0:GoTop()\n\n   Activate Dialog oDlg02 Centered\n   close database\nReturn Nil\n\nFunction XASOCIA01(oLbx0,Archi)\n  Local oDlg01\n  Local Cod_Suma,N\n  Local oSay,oFont1,oFont2,oFuente\n  Local oRut_Emp ,cRut_Emp ,oNom_Emp ,cNom_Emp\n  Local oRut_Con ,cRut_Con ,oNom_Con ,cNom_Con\n  Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  Local cFecha,olbx1,Base\n\n  cFecha:=date()\n  Base:=\"        \"\n  Base:=Tabla-&gt;Base          // ACA SE BUSCA EL NOMBRE DEL ARCHIVO\n\n  DEFINE FONT oFont1   NAME \"Arial\"  SIZE 0,-12 Bold\n  Define Font oFont2   Name \"Aria\"   Size 0,-11 Bold\n\n  DEFINE DIALOG oDlg01 RESOURCE \"ASOCIA01\" TITLE \"Asociacion de Trabajadores..\"+;\n  ALLTRIM(B_Emp-&gt;Nom_Emp)+\" / \"+ALLTRIM(B_Cont-&gt;Nom_Con)+\" / \"+ ALLTRIM(B_Area-&gt;Nom_Area)+\"  --  \n\n\"+ ALLTRIM(Base)\n\n  Select 50\n  For i = 1 to 200\n      append blank\n      Replace (Archi)-&gt;item with I\n  Next i\n\n  go top\n  Set Relation to (archi)-&gt;rut_tra into B_Trab\n\n  Redefine Browse oLbx1 Id 1000 Of oDlg01;\n      ON LEFT DBLCLICK (ITEMS_TRAB(OlBX1,Archi,cFecha),oLbx1:Refresh());\n      UPDATE ;\n      FONT oFont1;\n      COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), Rgb(200,255,200);\n      CELLED\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Item;\n      Head \"Item\" Width 50 Align 2,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Rut_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"!!!!!!!!-!\";\n      Head \"Trabajador\" Width 90 Align 0,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170);\n      Post Edit( ITEMS_TRAB(oLbx1,Archi,cFecha),oLbx1:Refresh())\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Nom_Tra;\n      Head \"Nombre\" Width 350 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Fin_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_DOWN;\n      Head \"F.Ingreso\" Width 80 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170)\n\n      oLbx1:SetColor( { 13, 14 }, { CLR_WHITE, CLR_3 } )\n      oLbx1:nLineStyle  := 4  //1 normal, 2 filas sin linea, 3 columnas sin linea\n      oLbx1:nHeightCell += 6  // altura de las filas\n      oLbx1:nHeightHead += 6  // altura titulos\n      oLbx1:ChangeFont( oFont2,,2 )  // ( oFont, nCol, nLevel )\n\n  REDEFINE Button oBoton1  Var cBoton1 Id 801 Of oDlg01 ;\n           ACTION (GRA_PROYECTO(Archi,Base),oDlg01:End() )\n\n  REDEFINE Button oBoton2  Var cBoton2 Id 802 Of oDlg01 Cancel;\n           ACTION oDlg01:End()\n\n   Activate Dialog oDlg01 Centered\n   Select 50\n   zap\nRETURN(Nil)\n\n\nFUNCTION GRA_PROYECTO(Archi,Base)   // SE DA LA ORDEN DE GUARDAR LOS DATOS EN ESTE ARCHIVO\nLocal xBase\nxBase:=\"        \"\n\nSELECT 91\nDo While .t.\n   xARCHI = ALLTRIM(BASE)\n   If net_use(xARCHI,.T.,1)\n      Index on (xArchi)-&gt;rut_tra to (xArchi)\n      exit\n   Endif\nEnddo\n\nSELECT 50\nGO TOP\nDO WHILE .NOT. EOF()\n   if !empty((Archi)-&gt;Rut_Tra)\n      SELECT 91\n      APPEND BLANK\n      replace (xArchi)-&gt;Rut_Emp  with Tabla-&gt;Rut_Emp\n      replace (xArchi)-&gt;Cod_Area with Tabla-&gt;Cod_Area\n      replace (xArchi)-&gt;Rut_Con  with Tabla-&gt;Rut_Con\n      replace (xArchi)-&gt;Fin_Pro  with (Archi)-&gt;Fin_tra\n      replace (xArchi)-&gt;Rut_Tra  with (Archi)-&gt;Rut_Tra\n      replace (xArchi)-&gt;Nom_Tra  with (Archi)-&gt;Nom_Tra\n   endif\n   Select 50\n   skip\nENDDO\nSelect 90\ngo top\nRETURN NIL\n\n\nPERO EL ASUNTO MALO ESTA POR ACA\n\n\nFunction Proy03()\n  Local oDlg02\n  Local Cod_Suma,N,oLbx0\n  Local oSay,oFte03,oFte04,oFte05,oEstado,cEstado\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  Local xBase\n  xBase:=\"        \"\n  close database\n\n  N := 0\n\n  Select 80\n  Do While .T.\n     If NET_USE(\"His_Tra\",.F.,1)\n        Set Index TO His_Tra1\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  Select 01\n  Do While .T.\n     If NET_USE(\"B_Emp\",.F.,1)\n        Set Index TO B_Emp1,B_Emp2\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n Select 02\n Do While .T.\n    If NET_USE(\"B_Area\",.F.,1)\n       Set Index TO B_Area3, B_Area2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 04\n Do While .T.\n    If NET_USE(\"B_Trab\",.F.,1)\n       Set Index to B_Trab1,B_Trab2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n Enddo\n\n Select 03\n Do While .T.\n    If NET_USE(\"B_Cont\",.F.,1)\n       Set Index TO B_Cont1,B_Cont2\n       Set Order to 1\n       Exit\n    Else\n       ESTADO_DBF()\n       RETURN\n    Endif\n  Enddo\n\n  Select 90\n  Do While .T.\n     If NET_USE(\"Tabla\",.F.,1)\n        Set Index TO Tabla\n        Set Order to 1\n        Exit\n     Else\n        ESTADO_DBF()\n        RETURN\n     Endif\n  Enddo\n\n  DEFINE FONT oFte03  NAME \"Arial\"  SIZE 0,-14\n  Define Font oFte04  Name \"Arial\"  Size 0,-12 Bold\n  Define Font oFte05  Name \"Arial\"  Size 0,-14 Bold\n\n  DEFINE DIALOG oDlg02 RESOURCE \"BROWSE02\" TITLE \"Ingreso de Trabajadores Asociados a Proyecto\" \n\nFont oFte05\n\n  Redefine BtnBmp oBot1  Id 1001 Resource \"BTO_PRINT\" Of oDlg02;\n           ACTION (PRINT_EMPRESA(cRut_Emp,cNom_Emp,mArchi,MENSAJE) );\n           Message \"Ingresa Nuevo Registro\"\n\n  Redefine BtnBmp oBot3  Id 1002 Resource \"B_SALIR01\" Of oDlg02;\n           Action (oLbx0:Refresh(),oDlg02:End());\n           NoBorder;\n           Message \"Salida\"\n\n  Select 90\n  go top\n  Set Relation to Tabla-&gt;Rut_Emp into B_Emp, Tabla-&gt;Rut_Con into B_Cont, Tabla-&gt;Cod_Area into \n\nB_Area\n  Redefine Browse oLbx0 Id 1000 Of oDlg02 FONT oFte04;\n           ON LEFT DBLCLICK (x_Asocia01(oLbx0), oLbx0:Refresh());\n           COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,255), Rgb(117,208,181)\n\n  Add Column To Browse oLbx0 Data B_Emp-&gt;Nom_Emp;\n      Head \"E.Mandante\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Cont-&gt;Nom_Con;\n      Head \"Contratista\";\n      PICTURE \"!!!!!!!!!!!!!!!!!!!!!!!!!\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data B_Area-&gt;Nom_Area;\n      Head \"Proyecto/Contrato\";\n      Width 200 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx0 Data Tabla-&gt;Base;\n      Head \"Base\";\n      Width 100 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n      oLbx0:nLineStyle  := 4\n      oLbx0:nHeightCell += 6\n      oLbx0:nHeightHead += 6\n      oLbx0:GoTop()\n\n   Activate Dialog oDlg02 Centered\n   close database\nReturn Nil\n\n\nFunction X_ASOCIA01(oLbx0)\n  Local oDlg01\n  Local Cod_Suma,N\n  Local oSay,oFont1,oFont2,oFuente\n  Local oRut_Emp ,cRut_Emp ,oNom_Emp ,cNom_Emp\n  Local oRut_Con ,cRut_Con ,oNom_Con ,cNom_Con\n  Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area\n  Local oBoton1,oBoton2,oBoton3\n  Local cBoton1,cBoton2,cBoton3\n  Local cFecha,olbx1,Base\n\n  Base:=\"        \"\n  Base:=Tabla-&gt;Base\n\n  SELECT 91\n  Do While .t.\n     BASE = ALLTRIM(BASE)\n     If net_use(BASE,.T.,1)\n        Index on (BASE)-&gt;rut_tra to (BASE)\n        exit\n     Endif\n  Enddo\n\n  DEFINE FONT oFont1   NAME \"Arial\"  SIZE 0,-12 Bold\n  Define Font oFont2   Name \"Aria\"   Size 0,-11 Bold\n\n  DEFINE DIALOG oDlg01 RESOURCE \"ASOCIA01\" TITLE \"Asociacion de Trabajadores..\"+;\n  ALLTRIM(B_Emp-&gt;Nom_Emp)+\" / \"+ALLTRIM(B_Cont-&gt;Nom_Con)+\" / \"+ ALLTRIM(B_Area-&gt;Nom_Area)+\"  --  \n\n\"+;\n  ALLTRIM(Base)\n\n  Select 91\n  go top\n  Set Relation to (archi)-&gt;rut_tra into B_Trab\n\n  Redefine Browse oLbx1 Id 1000 Of oDlg01;\n      ON LEFT DBLCLICK (ITEMS_TRAB(OlBX1,Archi,cFecha),oLbx1:Refresh());\n      UPDATE ;\n      FONT oFont1;\n      COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), Rgb(200,255,200);\n      CELLED\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Item;\n      Head \"Item\" Width 50 Align 2,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Rut_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_RIGHT;\n      PICTURE \"!!!!!!!!-!\";\n      Head \"Trabajador\" Width 90 Align 0,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170);\n      Post Edit( ITEMS_TRAB(oLbx1,Archi,cFecha),oLbx1:Refresh())\n\n  Add Column To Browse oLbx1 Data (Archi)-&gt;Nom_Tra;\n      Head \"Nombre\" Width 350 Align 0,1;\n      COLORS RGB(0,0,255),RGB(255,255,224)\n\n  Add Column To Browse oLbx1;\n      DATA FieldWBlock(\"Fin_Tra\",Select(Archi));\n      EDITABLE;\n      3DLOOK TRUE MOVE DT_MOVE_DOWN;\n      Head \"F.Ingreso\" Width 80 Align 2,1;\n      COLORS nRgb(0,0,0),nRgb(160,235,170)\n\n      oLbx1:SetColor( { 13, 14 }, { CLR_WHITE, CLR_3 } )\n      oLbx1:nLineStyle  := 4  //1 normal, 2 filas sin linea, 3 columnas sin linea\n      oLbx1:nHeightCell += 6  // altura de las filas\n      oLbx1:nHeightHead += 6  // altura titulos\n      oLbx1:ChangeFont( oFont2,,2 )  // ( oFont, nCol, nLevel )\n\n  REDEFINE Button oBoton1  Var cBoton1 Id 801 Of oDlg01 ;\n           ACTION (GRA_PROYECTO(Archi,Base),oDlg01:End() )\n\n  REDEFINE Button oBoton2  Var cBoton2 Id 802 Of oDlg01 Cancel;\n           ACTION oDlg01:End()\n\n   Activate Dialog oDlg01 Centered\n   Select 50\n   zap\nRETURN(Nil)','',0,'AIA=','2j3bq9ec',1,0,'',708,0,0),(45658,9452,6,960,0,'84.125.196.99',1199743943,1,0,1,1,1,0,'','','Estimado Maestro Manuel:\n\nNo cabe duda que su contribución a este mundo ha sido, es y será  fundamental. Despues de muchos dias de prueba, ensayos, revisión del codigo fuente, conversaciones con compañeros del foro y mediante email privados e incluso con el maestro Antonio Linares, desistí y llegué a la conclusión que era un \"bug\" en la clase.\n\nSin embargo, para mi mayor sorpresa he seguido sus indicaciones y \"et voilà\", el brush se refresca perfectamente sin problemas.\n\nMil gracias de nuevo, maestro.\nLorenzo','',0,'AIA=','x06r73b4',1,0,'',960,0,0),(45659,9473,11,2,0,'87.218.146.121',1199744176,1,0,1,1,1,1,'','','Willy,\n\nWe prefer to manually create a folder at /home/&lt;user&gt;/harbour and unzip it there:\n\nmkdir /home/&lt;user&gt;/harbour\n\nSame for fivelinux','',0,'AIA=','125zerll',1,0,'',2,0,0),(45660,9490,2,1088,0,'189.129.228.114',1199744181,1,0,1,1,1,0,'','','antonio ya no marca ningun error pero no deshabilita el boton\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'AIA=','21ol34jf',1,0,'',1088,0,0),(45661,9490,2,2,0,'87.218.146.121',1199744439,1,0,1,1,1,1,'','','Falta una cosa:\n\nDEFFINE BUTTON oBtn oF oBar FILE \"User.Bmp\" NOBORDER; \nACTION (oBtn:Disable(), [color=red:1c2f0jyj]oBtn:Refresh()[/color:1c2f0jyj], WinExec (\"Calc\"), oBtn:Enable() )','',0,'Ag==','1c2f0jyj',1,0,'',2,0,0),(45662,9490,2,2,0,'87.218.146.121',1199744553,1,0,1,1,1,1,'','','Un detalle más:\n\nWinExec() no produce una ejecución modal. Es decir, no _espera_ a que termine el proceso, luego la ejecución continua tras llamar a WinExec() y el botón vuelve a habilitarse.\n\nSi quieres que se espere entonces usa WaitRun() en vez de WinExec()','',0,'Ag==','3or8gvkb',1,0,'',2,0,0),(45663,9508,2,108,0,'200.42.4.139',1199745432,1,0,1,1,1,0,'','error en Treport','Antonio: Muchas gracias por la respuesta..... \nEl problema era que tenia incorporado al proyecto el prg REPORT.PRG, que habia copiado de Sources para hacerle la modificacion, por el problema de justificacion a la derecha de campos numericos en oReport:Say\n \nPor lo que NO HABRIA QUE TOCAR nada en el producto FW y FWH....., ya que elimine este .prg del proyecto y compilo sin problemas ...\n\nY si, estamos migrando los aplicativos a FHW y HARBOUR  con Eagle de Manu Mercado.....\nMuchas Gracias ....\n\nCarlos','',0,'Ag==','1vl3lrj0',1,0,'',108,0,0),(45664,9462,3,49,0,'62.13.172.68',1199751617,1,0,1,1,1,1,'','','I wanted make a Mdi','',0,'Ag==','249zxn9z',1,0,'',49,0,0),(45665,9462,3,49,0,'62.13.172.68',1199752963,1,0,1,1,1,1,'','','i try but it make error \n[code:15x5ik90]\nError description&#58; Error BASE/1004  Message not found&#58; TXBROWSE&#58;AWND\n\nCalled from&#58; tobject&#46;prg =&gt; TXBROWSE&#58;ERROR&#40;172&#41;\n   Called from&#58; tobject&#46;prg =&gt; TXBROWSE&#58;MSGNOTFOUND&#40;205&#41;\n   Called from&#58; tobject&#46;prg =&gt; TXBROWSE&#58;AWND&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TMDIFRAME&#58;SYSCOMMAND&#40;0&#41;\n   Called from&#58;  =&gt; TMDIFRAME&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58; test2003&#46;prg =&gt; NOGPF&#40;0&#41;\n   Called from&#58; test2003&#46;prg =&gt; WINRUN&#40;167&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; test2003&#46;prg =&gt; MAIN&#40;126&#41;\n[/code:15x5ik90]\n\n\n\n[code:15x5ik90]\n// FWH Class TOutLook2003\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\nstatic lExit &#58;= &#46;F&#46;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue &#58;= 1\n   local oFont\n   local nFor, oBrw\n\n    REQUEST DBFCDX\n    rddsetdefault&#40; &quot;DBFCDX&quot; &#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH new Class TOutLook2003 with Xbrowse&quot; MDI // ;\n      // MENU BuildMenu&#40;&#41;\n\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Mail&quot;, &quot;Calendar&quot;, &quot;Contacts&quot;, &quot;&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot;\n\n   oWnd&#58;oLeft = nil // Because the splitter is going to control the resize\n\n   @ 1, 2 BUTTON &quot;New&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION BuildDlg&#40;&#41;\n\n   @ 3, 2 BUTTON &quot;Edit&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Edit&quot; &#41;\n\n   @ 5, 2 BUTTON &quot;Search&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Search&quot; &#41;\n\n   @ 1, 1 COMBOBOX cCombo ITEMS &#123; &quot;January&quot;, &quot;February&quot;, &quot;March&quot;, &quot;April&quot;, &quot;May&quot; &#125; ;\n      OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 170, 100\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -10\n\n   @ 12, 10 SAY Date&#40;&#41; OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 80, 20 FONT oFont\n\n   @ 3, 1 RADIO oRad VAR nValue OF oOutLook2003&#58;aDialogs&#91; 2 &#93; ;\n      ITEMS &quot;&amp;Day&quot;, &quot;&amp;Week&quot;, &quot;&amp;Month&quot; SIZE 100, 20\n\n   oRad&#58;SetFont&#40; oFont &#41;   \n\n   #ifndef __CLIPPER__\n      DEFINE STATUSBAR oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #else   \n      DEFINE MESSAGE oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #endif\n\n      SetParent&#40; oOutLook2003&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   oWnd&#58;oClient = nil\n\n  /*\n##############################################################################\n# TXBrowse Demo                                                              #\n##############################################################################\n*/\n\n\n   USE CUSTOMER NEW\n   INDEX ON field-&gt;first to &quot;name&quot;\n   SET INDEX TO &quot;name&quot;\n\n   ORDSETFOCUS&#40; &quot;name&quot; &#41;\n\n   GO TOP\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd&#58;oWndClient &#41;\n\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 2\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 2\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;SetRDD&#40;&#41;\n\n   for nFor &#58;= 1 to Fcount&#40;&#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cHeader       &#58;= &quot;Field&#58; &quot; + ltrim&#40; str&#40; nFor &#41; &#41; + CRLF + FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;cFooter       &#58;= FieldName&#40; nFor &#41;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bRClickHeader &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Right click on column header &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bLClickFooter &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Left click on column footer &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bRClickFooter &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Right click on column footer &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;blDClickData  &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Left double click on column data &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n      oBrw&#58;aCols&#91; nFor &#93;&#58;bRClickData   &#58;= &#123;|r,c,f,o| Msginfo&#40;&quot;Right click on column data &quot; + o&#58;cHeader, &quot;TXBrowse power&quot;&#41; &#125;\n   next\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oWnd&#58;oWndClient &#58;= oBrw\n\n\n\n\n    //splitter\n\n\n\n         @ 0, 191 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oOutLook2003 ;\n      HINDS CONTROLS oWnd&#58;oWndClient ;\n      SIZE 4, oWnd&#58;nHeight - 70 PIXEL ;\n      OF oWnd\n\n   SetParent&#40; oSplit&#58;hWnd, oWnd&#58;hWnd &#41;\n\n\n\n\n\n\n\n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit&#58;Adjust&#40;&#41; ;\n      VALID lExit &#58;= &#46;T&#46;\n\nreturn nil[/code:15x5ik90]\n\n\n\nthere ie something not run ok','',0,'AIA=','15x5ik90',1,0,'',49,0,0),(45666,9512,3,868,0,'123.236.132.250',1199761392,1,0,1,1,1,1,'','','Mr Otto\nPlease test this program\n[code:prgehvp2]\n#include \'fivewin&#46;ch\'\n\nFUNCTION Main&#40;&#41;\n\nLOCAL oWnd, oBrw, oCur, i, aData &#58;= &#123;&#125;\n\n   FOR i &#58;= 1 TO 6\n      AAdd&#40; aData, &#123; str&#40;i,2&#41;, &quot;Description &quot; + Str&#40; i &#41;, Replicate&#40; Chr&#40; 64 + i &#41;, 5 &#41; &#125; &#41;\n   NEXT i\n\n	DEFINE CURSOR oCur DRAG\n	DEFINE WINDOW oWnd\n	oBrw		&#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n	oBrw&#58;SetArray&#40; aData &#41;\n	oBrw&#58;CreateFromCode&#40;&#41;\n	oWnd&#58;oClient &#58;= oBrw\n	//\n	oBrw&#58;oDragCursor	&#58;= oCur\n	oBrw&#58;bDragBegin	&#58;= &#123; |nRow,nCol,nFlags| DragBegin&#40; nRow, nCol, nFlags, oBrw &#41; &#125;\n	oBrw&#58;bDropOver		&#58;= &#123; |uDropInfo, nRow, nCol, nFlags| DropOver&#40; uDropInfo, nRow, nCol, nFlags, oBrw &#41; &#125;\n   //\n	ACTIVATE WINDOW oWnd\n   oCur&#58;End&#40;&#41;\n\nRETURN NIL\n\nSTATIC FUNCTION DragBegin&#40; nRow, nCol, nFlags, oBrw &#41;\n\n	SetDropInfo&#40; EVAL&#40; oBrw&#58;SelectedCol&#40;&#41;&#58;bStrData &#41; &#41;\n\nRETURN NIL\n\nSTATIC FUNCTION DropOver&#40; uDropInfo, nRow, nCol, nFlags, oBrw &#41;\n\n	oBrw&#58;lButtonDown&#40; nRow, nCol, nFlags&#41;\n	oBrw&#58;lButtonUp&#40;   nRow, nCol, nFlags&#41;\n\n	MsgInfo&#40; uDropInfo + CRLF + \'dropped on\' + CRLF + ;\n				EVAL&#40; oBrw&#58;SelectedCol&#40;&#41;&#58;bStrData &#41; &#41;\n\nRETURN NIL\n[/code:prgehvp2]','',0,'AIA=','prgehvp2',1,0,'',868,0,0),(45667,9497,3,9,0,'85.59.70.80',1199769444,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:6gqd6l9s]i use classes for arrays, text (sdf), ado ( wrapper class for recordset) and any other heterogenous data.\n[/quote:6gqd6l9s]\n\nNageswara,\n\nCan you insert here your SetADO method? \n\nThanks','',0,'gA==','6gqd6l9s',1,0,'',9,0,0),(45668,9497,3,868,0,'219.64.121.60',1199769539,1,0,1,1,1,1,'','','SetADO method is already included in TXBrowse','',0,'gA==','12ebh38o',1,0,'',868,0,0),(45669,9462,3,2,0,'87.218.146.121',1199775309,1,0,1,1,1,1,'','','Silvio,\n\nIf you are going to use a MDI environment, it has no sense to place a browse on top of the main screen. Instead you should use a MDICHILD window.\n\nPlease review samples\\Test2003.prg','',0,'gA==','tyez4vi9',1,0,'',2,0,0),(45670,9492,7,57,0,'80.30.100.25',1199776765,1,0,1,1,1,1,'','','Rafael\nIncluye esto:\n\n#include \"windows.h\"\n#include \"hbapi.h\"\n#include &lt;hbapifs.h&gt;\n#include \"rapi.h\"\n#include &lt;wininet.h&gt;\n#include \"winerror.h\"\n#define BUFFER_SIZE 8192\n\nSaludos','',0,'gA==','3lo9fey8',1,0,'',57,0,0),(45671,8805,3,297,0,'217.57.213.130',1199778124,1,0,1,1,1,0,'','','Ok\nThanks','',0,'gA==','1l65inj2',1,0,'',297,0,0),(45672,9516,3,2,0,'87.218.146.121',1199778232,1,0,1,1,1,1,'','VSX development update','We have contacted several VSX experts to get some help about how to implement resources editing from it.\n\nUnfortunately nobody yet seems to know how to acomplish this \"simple\" task with VSX\n\nIn the meantime we keep sending emails to MS MVPs and VSX gurus and reviewing source code and VSX docs.','',0,'gA==','q9917tee',1,0,'',2,0,0),(45673,9512,3,6,0,'82.59.188.156',1199778969,1,0,1,1,1,1,'','','Nice sample, thank you!\n\nEMG','',0,'gA==','3ebkwcfx',1,0,'',6,0,0),(45674,9492,7,63,0,'88.11.29.98',1199779702,1,0,1,1,1,0,'','','Toni:\nFormidable!!!.  Con los includes funcionó a la primera.  Si no es mucho abusar, tienes alguna función más que permita copiar archivos desde el PC a la PDA y viceversa?\nUn montón de gracias\nRafael','',0,'gA==','18iyu0rs',1,0,'',63,0,0),(45675,9318,23,130,0,'141.51.32.24',1199781629,1,0,1,1,1,1,'','','das ist gar kein schlechter Vorschlag, hat denn noch jemand Interesse ?','',0,'gA==','3mpxd3xa',1,0,'',130,0,0),(45676,9505,3,130,0,'141.51.32.24',1199781855,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:24qf9uj7]\nIt\'s not from me.\n\nEMG[/quote:24qf9uj7]\n\nHmm, so we have an unknown author','',0,'gA==','24qf9uj7',1,0,'',130,0,0),(45677,9499,3,130,0,'141.51.32.24',1199782059,1,0,1,1,1,1,'','','Yes, you are right <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->\n\nSo every page of the folder can have it´s own bInit.','',0,'gA==','1bwapat0',1,0,'',130,0,0),(45678,9462,3,49,0,'213.82.134.66',1199783533,1,0,1,1,1,1,'','','I not understand','',0,'gA==','2eeqxtk6',1,0,'',49,0,0),(45679,9492,7,57,0,'80.30.100.25',1199785313,1,0,1,1,1,1,'','','RAfael\nSi te bajas el PELLESC en la carpeta BIN existen uno fichero CECOPY.exe que te ofrecen esta posibilidad. \n\nSaludos','',0,'gA==','2711jk9h',1,0,'',57,0,0),(45680,9473,11,473,0,'81.241.228.203',1199785701,1,0,1,1,1,0,'','','Hello,\n\nThe xHarbour files for Ubuntu are delivered in a .deb file.\n\nThey are automatically installed without the possibillity to choose the installation map.\n\nI did not found another version.\n\nIs there a way to install xHarbour in a choosed map.\n\nThanks,\n\nWilly','',0,'gA==','37pxlml4',1,0,'',473,0,0),(45681,8621,7,893,0,'80.34.86.46',1199789954,1,0,1,1,1,0,'','','Beinvenido. \n\nYo trabajo con VFP desde hace más de 15 años. Verás que es bastante fácil, aunque la verdad es que como todo cuesta hacer las cosas.\n\nSalud foxiano.','',0,'gA==','23xhgike',1,0,'',893,0,0),(45682,9492,7,63,0,'88.11.29.98',1199790159,1,0,1,1,1,0,'','','Toni:\nHe encontrado CeCopy.exe en los Power Toys de Microsoft, aquí: [url]http://www.microsoft.com/downloads/details.aspx?FamilyId=74473FD6-1DCC-47AA-AB28-6A2B006EDFE9&amp;displaylang=en\n[/url]\n\nVa perfecto y hace exactamente lo que yo quería.  Además, los Power Toys incluyen un par de aplicaciones que te permiten ejecutar programas de la PDA en el PC y unas cuantas cosas más.  Muy útil.\n\nGracias por apuntarme el camino.  Un saludo,\nRafael','',0,'','3jhnob6l',1,0,'',63,0,0),(45683,9445,7,106,0,'85.34.123.173',1199791937,1,0,1,1,1,1,'','','El emulador lo bajé del link que proporcionó Antonio en este mismo hilo.\n\nSaludos','',0,'','138zfogk',1,0,'',106,0,0),(45684,9492,7,106,0,'85.34.123.173',1199792419,1,0,1,1,1,1,'','','Visto que estamos en el tema...\n\nYo para copiar archivos desde el pocket a la pc lo hago en este modo:\n\nCOPY FILE miarchivo.dbf TO \\\\server\\c\\carpeta\\miarchivo.dbf  \n\ntodo esto si estoy conectado con wi-fi...\n\nEn vez, si estoy conectado con cable, con activesync no funciona... alguna idea de como copiar desde el pocket al pc de programa?, o como ver la unidad del pc al cual estamos conectado?, porque cuando conectamos con activesync se crea una direccion IP sea para el pc que para el pocket... \n\nSaludos.','',0,'','1bgm9e9a',1,0,'',106,0,0),(45685,9509,6,362,0,'200.158.19.237',1199792726,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:12fokg43]Fernando,\n\nPrueba a añadir esta función a tu PRG principal:\n[code:12fokg43]\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; SENDMESSAGE &#41;\n&#123;\n   if&#40; IsWindow&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41; &#41; &#41;\n      hb_retnl&#40; SendMessage&#40; &#40; HWND &#41; hb_parnl&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDDUMP\n[/code:12fokg43][/quote:12fokg43]\n\nInteressante Maestro. \n\nHace un EFECTO ESPECIAL SOBRE LA FUENTE DEL GROUP BOX, Bién más Visible.\n\nGracias.','',0,'gIA=','12fokg43',1,0,'',362,0,0),(45686,9462,3,2,0,'87.218.146.121',1199792746,1,0,1,1,1,1,'','','Silvio,\n\nWhere are you going to place the OutLook control ? \n\nOn the main window or on a MdiChild window ?','',0,'gIA=','2s5km9ha',1,0,'',2,0,0),(45687,9492,7,63,0,'88.11.29.98',1199793286,1,0,1,1,1,0,'','','Pedro:\nYo acabo de descubrir CECOPY.EXE (lo puedes bajar del link que he puesto más arriba) que me funciona de maravilla para copiar desde/hacia la PDA:\n[code:1ga11mi1]WaitRun&#40;\'CECOPY Test&#46;txt &quot;dev&#58;\\SD-MMC CARD\\MIFOLDER&quot;\', &#46;T&#46; &#41;\n\nWaitRun&#40;\'CECOPY &quot;dev&#58;\\SD-MMC CARD\\MIFOLDER\\Test&#46;txt&quot;  desk&#58;\\ \', &#46;T&#46; &#41;\n[/code:1ga11mi1]\nAdemás, permite copiar directorios enteros (no lo he probado)\n\nNo uso WiFi; tengo la PDA conectada al PC mediante un cable USB y ActiveSync\nPor cierto: Es posible conectar mi PDA a mi red local mediante cable USB? Alguna idea?\nSaludos, \nRafael','',0,'AIA=','1ga11mi1',1,0,'',63,0,0),(45688,9462,3,49,0,'213.82.134.66',1199794295,1,0,1,1,1,1,'','','sorry I saw...','',0,'AIA=','1dkj6zn6',1,0,'',49,0,0),(45690,9505,3,130,0,'141.51.32.24',1199794691,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:6xdu4xv0]\nbut I have a \"Declaration sintax error\" in \nHARBOUR HB_FUN_ISADMIN( PARAMS )\n\n[/quote:6xdu4xv0]\n\nMarco,\n\nyou have to add -D__HARBOUR__ to the compiler options, then it is working','',0,'gA==','6xdu4xv0',1,0,'',130,0,0),(45691,9517,6,24,0,'80.24.12.168',1199794974,1,0,1,1,1,1,'','Clase TGET bKeyDown, bChange','Estoy teniendo unos problemas tremendos con la clase TGET con Harbour.\nResulta que tenia una clase modificada para usar el tema de los colores de foco, he visto que en Fivewin se ha puesto lo mismo usando la funcion SetGetColorFocus( nColoR ), que realiza exactamente lo mismo.\n\nEl problema , es que el código fuente que tengo, aparte de eso, uso un GET para buscar en un browse de esta manera:\n[code:2rc8b8ti]\n &#58;&#58;oGet&#58;bChange    &#58;= &#123;| nKey, nFlags | &#58;&#58;FastSeek&#40; nKey, nFlags &#41; &#125;\n &#58;&#58;oGet&#58;bGotFocus &#58;= &#123;|| if&#40;!Empty&#40; &#58;&#58;oGet&#58;VarGet &#41;,&#58;&#58;oGet&#58;KeyDown&#40; VK_END &#41;,&#41; &#125;\n &#58;&#58;oGet&#58;bKeyDown   &#58;= &#123;| nKey, nFlags | iif&#40; nKey == VK_F3,   &#58;&#58;NextTabOption&#40;&#41;,;\n                                              iif&#40; nKey == VK_F2, &#58;&#58;PrevTabOption&#40;&#41;, &#41; &#41;, 0 &#125;\n[/code:2rc8b8ti]\nPor encima, la explicacion;\nSi algo cambia en el GET, bChange, voy a saltar a FASTSEEK.\nSi tomo el foco, me voy al final del GET; bGotFocus.\nSi presiono, F2 o F3, ejecuta la accion del tab correspondiente.\n\nEl method FastSeek()\n[code:2rc8b8ti]\nMETHOD FastSeek&#40; nKey, nFlags &#41; CLASS TMANTI\n\n   local cType\n   local xCadena\n   local nRecNo\n   local nOrd\n   local oGet &#58;= &#58;&#58;oGet\n	 Local cKey &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; &amp;&#40;IndexKey&#40;&#41; &#41;&#41;   // Tipo de expresion en el indice\n   Local cExpIndex &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; IndexKey&#40;&#41; &#41;\n	 Local cTexto, cText, nPos &#58;= 0, nLen &#58;= 0, xText\n\n	 DEFAULT nKey   &#58;= 0\n\n	 oGet&#58;Assign&#40;&#41;\n   xCadena &#58;= SubStr&#40; oGet&#58;varGet&#40;&#41;, 1, oGet&#58;nPos - 1 &#41; + Chr&#40; nKey &#41;\n\n	 // Si esta dtos y la posicion que ocupa sea &lt; 3\n	 if upper&#40;&quot;dtos&quot;&#41; $ upper&#40;cExpIndex&#41; &#46;AND&#46; &#40; &#40; nPos &#58;= At&#40; &quot;dtos&quot; , cExpIndex  &#41; &#41; &lt; 3 &#41;\n	    if len&#40;xCadena&#41; &gt;= 8\n			    &#58;&#58;oDbf&#58;Seek&#40; DTOS&#40; CTOD&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n			endif\n	 elseif upper&#40;&quot;str&quot;&#41; $ upper&#40; cExpIndex &#41; &#46;AND&#46; &#40; &#40; nPos &#58;= At&#40; &quot;str&quot; , cExpIndex  &#41; &#41; &lt; 3 &#41;\n	 	      nPos &#58;= At&#40; &quot;,&quot; , cExpIndex  &#41;           // Busco la ,\n					if nPos != 0\n						 cTexto &#58;= SubStr&#40; cExpIndex, nPos+1 &#41; // Cadena a partir de la &quot;,&quot;\n						 nPos &#58;= At&#40; &quot;&#41;&quot;, cTexto &#41;              // Busco el &quot;&#41;&quot;\n						 if nPos != 0\n						 	  cText &#58;= SubStr&#40; cTexto, 1, nPos -1 &#41; // cText &#58;=  \'Str&#40;cadena, nLen&#41;\'\n								nLen  &#58;= Val&#40; cText &#41;                // Longitud\n								xText &#58;= Val&#40; xCadena  &#41;             // valor\n								&#58;&#58;oDbf&#58;Seek&#40;  str&#40; xText, nLen &#41;, &#46;T&#46; &#41;\n						 endif\n					 endif\n	 elseif  Valtype&#40; cKey &#41; == &quot;D&quot;\n	         if len&#40;xCadena&#41; &gt;= 8\n			        &#58;&#58;oDbf&#58;Seek&#40; CTOD&#40; xCadena &#41;  , &#46;T&#46; &#41;\n			     endif\n	 else\n		  &#58;&#58;oDbf&#58;Seek&#40; if&#40;Valtype&#40;cKey&#41; != &quot;N&quot;,xCadena, VAL&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n	 endif\n\n	 &#58;&#58;oBrw&#58;refresh&#40;&#41;\n\n	 IF &#58;&#58;lSplitter             // Evaluamos el bChange del master\n	    if &#58;&#58;oDbf&#58;Eof&#40;&#41;\n   	     &#58;&#58;oBrw&#58;GoBottom&#40;&#41;      // Pos en el ultimo, para que evalua posteriormente bien el bChange\n   	     &#58;&#58;oBrw&#58;Refresh&#40;&#41;\n				 SysRefresh&#40;&#41;\n			endif\n		 	Eval&#40; &#58;&#58;oBrw&#58;bChange, Self &#41;\n	 ENDIF\n\n   #ifdef _HARBOUR__\n	   &#58;&#58;cBusca &#58;= xCadena + SPACE&#40; 50 &#41; // La suma es por un BUG en FHW/HArbour\n	 #else\n	   &#58;&#58;cBusca &#58;= xCadena\n	 #endif\n\nreturn &#46;T&#46;\n\n[/code:2rc8b8ti]\n\nEl problema que xCadena SIEMPRE es la tecla pulsada, es más, NO FUNCIONA la tecla BackSpace, teclas derecha e izquierda en el GET, \n¿ Porque ?\n\nJoder, esto funcionaba de pelotas, y ahora estoy teniendo una de problemas con Harbour/xHarbour, me desanimo bastante estos problemas, que costaron en su día y volver a pelearse con ello, pues la verdad es que desespera hasta el más pintado.\nLlevo toda la mañana para esta tonteria, haber si alguien me algo que se me escapa.','',0,'AIA=','2rc8b8ti',1,0,'',24,0,0),(45692,9517,6,92,0,'213.96.45.6',1199795732,1,0,1,1,1,0,'','Re: Clase TGET bKeyDown, bChange','[quote=&quot;thefull&quot;:22uelpag]Estoy teniendo unos problemas tremendos con la clase TGET con Harbour.\nResulta que tenia una clase modificada para usar el tema de los colores de foco, he visto que en Fivewin se ha puesto lo mismo usando la funcion SetGetColorFocus( nColoR ), que realiza exactamente lo mismo.\n\nEl problema , es que el código fuente que tengo, aparte de eso, uso un GET para buscar en un browse de esta manera:\n[code:22uelpag]\n &#58;&#58;oGet&#58;bChange    &#58;= &#123;| nKey, nFlags | &#58;&#58;FastSeek&#40; nKey, nFlags &#41; &#125;\n &#58;&#58;oGet&#58;bGotFocus &#58;= &#123;|| if&#40;!Empty&#40; &#58;&#58;oGet&#58;VarGet &#41;,&#58;&#58;oGet&#58;KeyDown&#40; VK_END &#41;,&#41; &#125;\n &#58;&#58;oGet&#58;bKeyDown   &#58;= &#123;| nKey, nFlags | iif&#40; nKey == VK_F3,   &#58;&#58;NextTabOption&#40;&#41;,;\n                                              iif&#40; nKey == VK_F2, &#58;&#58;PrevTabOption&#40;&#41;, &#41; &#41;, 0 &#125;\n[/code:22uelpag]\nPor encima, la explicacion;\nSi algo cambia en el GET, bChange, voy a saltar a FASTSEEK.\nSi tomo el foco, me voy al final del GET; bGotFocus.\nSi presiono, F2 o F3, ejecuta la accion del tab correspondiente.\n\nEl method FastSeek()\n[code:22uelpag]\nMETHOD FastSeek&#40; nKey, nFlags &#41; CLASS TMANTI\n\n   local cType\n   local xCadena\n   local nRecNo\n   local nOrd\n   local oGet &#58;= &#58;&#58;oGet\n	 Local cKey &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; &amp;&#40;IndexKey&#40;&#41; &#41;&#41;   // Tipo de expresion en el indice\n   Local cExpIndex &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; IndexKey&#40;&#41; &#41;\n	 Local cTexto, cText, nPos &#58;= 0, nLen &#58;= 0, xText\n\n	 DEFAULT nKey   &#58;= 0\n\n	 oGet&#58;Assign&#40;&#41;\n   xCadena &#58;= SubStr&#40; oGet&#58;varGet&#40;&#41;, 1, oGet&#58;nPos - 1 &#41; + Chr&#40; nKey &#41;\n\n	 // Si esta dtos y la posicion que ocupa sea &lt; 3\n	 if upper&#40;&quot;dtos&quot;&#41; $ upper&#40;cExpIndex&#41; &#46;AND&#46; &#40; &#40; nPos &#58;= At&#40; &quot;dtos&quot; , cExpIndex  &#41; &#41; &lt; 3 &#41;\n	    if len&#40;xCadena&#41; &gt;= 8\n			    &#58;&#58;oDbf&#58;Seek&#40; DTOS&#40; CTOD&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n			endif\n	 elseif upper&#40;&quot;str&quot;&#41; $ upper&#40; cExpIndex &#41; &#46;AND&#46; &#40; &#40; nPos &#58;= At&#40; &quot;str&quot; , cExpIndex  &#41; &#41; &lt; 3 &#41;\n	 	      nPos &#58;= At&#40; &quot;,&quot; , cExpIndex  &#41;           // Busco la ,\n					if nPos != 0\n						 cTexto &#58;= SubStr&#40; cExpIndex, nPos+1 &#41; // Cadena a partir de la &quot;,&quot;\n						 nPos &#58;= At&#40; &quot;&#41;&quot;, cTexto &#41;              // Busco el &quot;&#41;&quot;\n						 if nPos != 0\n						 	  cText &#58;= SubStr&#40; cTexto, 1, nPos -1 &#41; // cText &#58;=  \'Str&#40;cadena, nLen&#41;\'\n								nLen  &#58;= Val&#40; cText &#41;                // Longitud\n								xText &#58;= Val&#40; xCadena  &#41;             // valor\n								&#58;&#58;oDbf&#58;Seek&#40;  str&#40; xText, nLen &#41;, &#46;T&#46; &#41;\n						 endif\n					 endif\n	 elseif  Valtype&#40; cKey &#41; == &quot;D&quot;\n	         if len&#40;xCadena&#41; &gt;= 8\n			        &#58;&#58;oDbf&#58;Seek&#40; CTOD&#40; xCadena &#41;  , &#46;T&#46; &#41;\n			     endif\n	 else\n		  &#58;&#58;oDbf&#58;Seek&#40; if&#40;Valtype&#40;cKey&#41; != &quot;N&quot;,xCadena, VAL&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n	 endif\n\n	 &#58;&#58;oBrw&#58;refresh&#40;&#41;\n\n	 IF &#58;&#58;lSplitter             // Evaluamos el bChange del master\n	    if &#58;&#58;oDbf&#58;Eof&#40;&#41;\n   	     &#58;&#58;oBrw&#58;GoBottom&#40;&#41;      // Pos en el ultimo, para que evalua posteriormente bien el bChange\n   	     &#58;&#58;oBrw&#58;Refresh&#40;&#41;\n				 SysRefresh&#40;&#41;\n			endif\n		 	Eval&#40; &#58;&#58;oBrw&#58;bChange, Self &#41;\n	 ENDIF\n\n   #ifdef _HARBOUR__\n	   &#58;&#58;cBusca &#58;= xCadena + SPACE&#40; 50 &#41; // La suma es por un BUG en FHW/HArbour\n	 #else\n	   &#58;&#58;cBusca &#58;= xCadena\n	 #endif\n\nreturn &#46;T&#46;\n\n[/code:22uelpag]\n\nEl problema que xCadena SIEMPRE es la tecla pulsada, es más, NO FUNCIONA la tecla BackSpace, teclas derecha e izquierda en el GET, \n¿ Porque ?\n\nJoder, esto funcionaba de pelotas, y ahora estoy teniendo una de problemas con Harbour/xHarbour, me desanimo bastante estos problemas, que costaron en su día y volver a pelearse con ello, pues la verdad es que desespera hasta el más pintado.\nLlevo toda la mañana para esta tonteria, haber si alguien me algo que se me escapa.[/quote:22uelpag]\n\nBusca mensajes sobre bpostkey y bchange; si no me equivoco cambió/añadió comportamiento a TGet desdes versión 0704.\n\nCreo que te ahorrabas hacer oGet:Assign().\n\nQue versión de FWH tienes?\n...\n\nHe mirado mi código; intenta cambiar\n ::oGet:bChange    := {| nKey, nFlags | ::FastSeek( nKey, nFlags ) }\npor:\n ::oGet:bPostKey    := {| nKey, nFlags | ::FastSeek( nKey, nFlags ) }\n\ny deja de usar oGet:Assign().\n\n\nSaludos y suerte.\nCarlos G.','',0,'gIA=','22uelpag',1,0,'',92,0,0),(45693,9517,6,24,0,'80.24.12.168',1199796735,1,0,1,1,1,1,'','Re: Clase TGET bKeyDown, bChange','[quote=&quot;FiveWiDi&quot;:3w5bg4hw][quote=&quot;thefull&quot;:3w5bg4hw]Estoy teniendo unos problemas tremendos con la clase TGET con Harbour.\nResulta que tenia una clase modificada para usar el tema de los colores de foco, he visto que en Fivewin se ha puesto lo mismo usando la funcion SetGetColorFocus( nColoR ), que realiza exactamente lo mismo.\n\nEl problema , es que el código fuente que tengo, aparte de eso, uso un GET para buscar en un browse de esta manera:\n[code:3w5bg4hw]\n &#58;&#58;oGet&#58;bChange    &#58;= &#123;| nKey, nFlags | &#58;&#58;FastSeek&#40; nKey, nFlags &#41; &#125;\n &#58;&#58;oGet&#58;bGotFocus &#58;= &#123;|| if&#40;!Empty&#40; &#58;&#58;oGet&#58;VarGet &#41;,&#58;&#58;oGet&#58;KeyDown&#40; VK_END &#41;,&#41; &#125;\n &#58;&#58;oGet&#58;bKeyDown   &#58;= &#123;| nKey, nFlags | iif&#40; nKey == VK_F3,   &#58;&#58;NextTabOption&#40;&#41;,;\n                                              iif&#40; nKey == VK_F2, &#58;&#58;PrevTabOption&#40;&#41;, &#41; &#41;, 0 &#125;\n[/code:3w5bg4hw]\nPor encima, la explicacion;\nSi algo cambia en el GET, bChange, voy a saltar a FASTSEEK.\nSi tomo el foco, me voy al final del GET; bGotFocus.\nSi presiono, F2 o F3, ejecuta la accion del tab correspondiente.\n\nEl method FastSeek()\n[code:3w5bg4hw]\nMETHOD FastSeek&#40; nKey, nFlags &#41; CLASS TMANTI\n\n   local cType\n   local xCadena\n   local nRecNo\n   local nOrd\n   local oGet &#58;= &#58;&#58;oGet\n	 Local cKey &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; &amp;&#40;IndexKey&#40;&#41; &#41;&#41;   // Tipo de expresion en el indice\n   Local cExpIndex &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; IndexKey&#40;&#41; &#41;\n	 Local cTexto, cText, nPos &#58;= 0, nLen &#58;= 0, xText\n\n	 DEFAULT nKey   &#58;= 0\n\n	 oGet&#58;Assign&#40;&#41;\n   xCadena &#58;= SubStr&#40; oGet&#58;varGet&#40;&#41;, 1, oGet&#58;nPos - 1 &#41; + Chr&#40; nKey &#41;\n\n	 // Si esta dtos y la posicion que ocupa sea &lt; 3\n	 if upper&#40;&quot;dtos&quot;&#41; $ upper&#40;cExpIndex&#41; &#46;AND&#46; &#40; &#40; nPos &#58;= At&#40; &quot;dtos&quot; , cExpIndex  &#41; &#41; &lt; 3 &#41;\n	    if len&#40;xCadena&#41; &gt;= 8\n			    &#58;&#58;oDbf&#58;Seek&#40; DTOS&#40; CTOD&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n			endif\n	 elseif upper&#40;&quot;str&quot;&#41; $ upper&#40; cExpIndex &#41; &#46;AND&#46; &#40; &#40; nPos &#58;= At&#40; &quot;str&quot; , cExpIndex  &#41; &#41; &lt; 3 &#41;\n	 	      nPos &#58;= At&#40; &quot;,&quot; , cExpIndex  &#41;           // Busco la ,\n					if nPos != 0\n						 cTexto &#58;= SubStr&#40; cExpIndex, nPos+1 &#41; // Cadena a partir de la &quot;,&quot;\n						 nPos &#58;= At&#40; &quot;&#41;&quot;, cTexto &#41;              // Busco el &quot;&#41;&quot;\n						 if nPos != 0\n						 	  cText &#58;= SubStr&#40; cTexto, 1, nPos -1 &#41; // cText &#58;=  \'Str&#40;cadena, nLen&#41;\'\n								nLen  &#58;= Val&#40; cText &#41;                // Longitud\n								xText &#58;= Val&#40; xCadena  &#41;             // valor\n								&#58;&#58;oDbf&#58;Seek&#40;  str&#40; xText, nLen &#41;, &#46;T&#46; &#41;\n						 endif\n					 endif\n	 elseif  Valtype&#40; cKey &#41; == &quot;D&quot;\n	         if len&#40;xCadena&#41; &gt;= 8\n			        &#58;&#58;oDbf&#58;Seek&#40; CTOD&#40; xCadena &#41;  , &#46;T&#46; &#41;\n			     endif\n	 else\n		  &#58;&#58;oDbf&#58;Seek&#40; if&#40;Valtype&#40;cKey&#41; != &quot;N&quot;,xCadena, VAL&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n	 endif\n\n	 &#58;&#58;oBrw&#58;refresh&#40;&#41;\n\n	 IF &#58;&#58;lSplitter             // Evaluamos el bChange del master\n	    if &#58;&#58;oDbf&#58;Eof&#40;&#41;\n   	     &#58;&#58;oBrw&#58;GoBottom&#40;&#41;      // Pos en el ultimo, para que evalua posteriormente bien el bChange\n   	     &#58;&#58;oBrw&#58;Refresh&#40;&#41;\n				 SysRefresh&#40;&#41;\n			endif\n		 	Eval&#40; &#58;&#58;oBrw&#58;bChange, Self &#41;\n	 ENDIF\n\n   #ifdef _HARBOUR__\n	   &#58;&#58;cBusca &#58;= xCadena + SPACE&#40; 50 &#41; // La suma es por un BUG en FHW/HArbour\n	 #else\n	   &#58;&#58;cBusca &#58;= xCadena\n	 #endif\n\nreturn &#46;T&#46;\n\n[/code:3w5bg4hw]\n\nEl problema que xCadena SIEMPRE es la tecla pulsada, es más, NO FUNCIONA la tecla BackSpace, teclas derecha e izquierda en el GET, \n¿ Porque ?\n\nJoder, esto funcionaba de pelotas, y ahora estoy teniendo una de problemas con Harbour/xHarbour, me desanimo bastante estos problemas, que costaron en su día y volver a pelearse con ello, pues la verdad es que desespera hasta el más pintado.\nLlevo toda la mañana para esta tonteria, haber si alguien me algo que se me escapa.[/quote:3w5bg4hw]\n\nBusca mensajes sobre bpostkey y bchange; si no me equivoco cambió/añadió comportamiento a TGet desdes versión 0704.\n\nCreo que te ahorrabas hacer oGet:Assign().\n\nQue versión de FWH tienes?\n...\n\nHe mirado mi código; intenta cambiar\n ::oGet:bChange    := {| nKey, nFlags | ::FastSeek( nKey, nFlags ) }\npor:\n ::oGet:bPostKey    := {| nKey, nFlags | ::FastSeek( nKey, nFlags ) }\n\ny deja de usar oGet:Assign().\n\n\nSaludos y suerte.\nCarlos G.[/quote:3w5bg4hw]\nGracias Carlos voy a ver lo que dices.\n\nEstoy intentado cambiar desde la 2.7 a la 7.12, pero bajo mi punto de vista, y no es la primera vez que me pasa, es que cuando intento usar una version nueva , ya sea de Fivewin / Harbour, empiezo precisamente con esto, Y LO ODIO! porque vuelvo a perder el tiempo en cosas que no deberia.\n\nEso si, decir que Antonio me ha brindado un soporte EXCELENTE!, pero no voy a estar llamandole cada 5 minutos, que seguro que alguien le a pasado algo similar...\n\nY ya puesto. ¿ Has probado si con xHarbour/FWH se te queda colgado según le parece... ? Con Harbour no tengo problemas, estoy pasandolo todo a Harbour, y mirar de usar los 2 a la vez, pero donde unas cosas me funcionan en uno, en el otro no funciona, por ejemplo;\n   DATA   hHeap AS NUMERIC  INIT 0  // Own heap for @ ..., ... GET\nEso lo inicializa bien xHarbour, Harbour simplemete me casca en Runtime a la hora de usar la clase TGet hHeap.\n\nY como eso , de tooooo.... aburrido toy, coño, jajaja.... <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gIA=','3w5bg4hw',1,0,'',24,0,0),(45694,9492,7,106,0,'85.34.123.173',1199797199,1,0,1,1,1,1,'','','Rafel: tambien uso cecopy, pero sirve solo si lo llamas desde el pc, no desde el terminal. El tema es que me copia todo un archivo, y yo quiero copiar solo algunos registros... se que puedo hacer archivos temporales y luego copiarlos, pero ahi me toca hacer una operacion en el terminal y otra en el pc... quisiera hacer todo desde el terminal como lo hago ahora, pero solo si estoy conectado al wi-fi.\n\nTu PDA puedes conectarla a la red local, que yo sepa solo si estas conectado con wi-fi, al menos esas son mis pruebas, el tema que conectado con el cable es mucho mas rapido.\n\nSaludos','',0,'gIA=','1wt67add',1,0,'',106,0,0),(45695,9509,6,430,0,'157.100.146.2',1199797411,1,0,1,1,1,0,'','','Antonio\n\nNo se que haré mal, inclui la función que indicas al inicio de mi programa principal luego de las definiciones de los #include, pero el resultado es contradictorio; porque ahora el mensaje de \"Harbour Exception\" aparece en casi todos los dialogos que cargo desde recursos.\n\nElimino la función y vuelve a aparecer el error solo en el dialogo original.\n\n¿Que hago mal?\n\nSaludos\n\nFernando Espinoza','',0,'gIA=','1tqvatrn',1,0,'',430,0,0),(45696,9515,6,1201,0,'200.90.17.154',1199797471,1,0,1,1,1,0,'','','Hola, revisa que indices te está tratando de abrir, Pareciera que intenta abrir una tabla con el indice de otra.\n\n\n(tirandola a pegar!!)\n\n\nAngel','',0,'gIA=','29xmpjb4',1,0,'',1201,0,0),(45697,9517,6,92,0,'213.96.45.6',1199798079,1,0,1,1,1,0,'','Re: Clase TGET bKeyDown, bChange','[quote=&quot;thefull&quot;:30i4l1ox]Gracias Carlos voy a ver lo que dices.\n\nEstoy intentado cambiar desde la 2.7 a la 7.12, pero bajo mi punto de vista, y no es la primera vez que me pasa, es que cuando intento usar una version nueva , ya sea de Fivewin / Harbour, empiezo precisamente con esto, Y LO ODIO! porque vuelvo a perder el tiempo en cosas que no deberia.\n\nEso si, decir que Antonio me ha brindado un soporte EXCELENTE!, pero no voy a estar llamandole cada 5 minutos, que seguro que alguien le a pasado algo similar...\n\nY ya puesto. ¿ Has probado si con xHarbour/FWH se te queda colgado según le parece... ? Con Harbour no tengo problemas, estoy pasandolo todo a Harbour, y mirar de usar los 2 a la vez, pero donde unas cosas me funcionan en uno, en el otro no funciona, por ejemplo;\n   DATA   hHeap AS NUMERIC  INIT 0  // Own heap for @ ..., ... GET\nEso lo inicializa bien xHarbour, Harbour simplemete me casca en Runtime a la hora de usar la clase TGet hHeap.\n\nY como eso , de tooooo.... aburrido toy, coño, jajaja.... <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->[/quote:30i4l1ox]\n\nNo he usado nunca xHarbour y mi manera de trabajar es muy elemental/básica/estándar com pocos inventos; intento evitar problemas como los que comentas.\n\nPor cierto en declaraciones en las clases del tipo:\nDATA  mivariable AS NUMERIC  INIT 0\nhabía algún caso en que debí eliminar \"AS ...\", ahora no recuerdo que tipo de variable era. (cosas del desarrollo de Harbour).\n\nSaludos y suerte.\nY vete a comer que són las 2. A las 4 lo verás diferente.\nCarlos G.','',0,'gA==','30i4l1ox',1,0,'',92,0,0),(45698,9516,3,35,0,'167.7.140.254',1199798200,1,0,1,1,1,0,'','','To All\n\nI know I sound like a broken record .. but if VSX works out .. the resource editor is all that I need.\n\nIDE\'s are fine for those people that like a structured ( programming ) path .. for me, give me a good programmers editor ( lines and syntax hi-lite ), a project make file utility and a resource editor .. \n\nWhen you start talking IDE\'s .. you are pretty much stuck with using that tool for ( their ) development ( eg .. visual xHarbour and the Xh product )..\n\nI prefer to write my code .. how I like with the ( generic ) tools available .. \n\nPlease understand .. I am not trying to hurt anyones ideas or feelings .. there is room for both philosophys.\n\nRick Lipkin','',0,'gA==','24gnwrhp',1,0,'',35,0,0),(45699,9509,6,362,0,'200.158.19.237',1199798713,1,0,1,1,1,1,'','','Por Favor, muestra este código: INGRESAR.Prg\n\nSaludos.','',0,'gA==','1rekyljw',1,0,'',362,0,0),(45700,9518,6,1090,0,'201.254.62.134',1199801362,1,0,1,1,1,0,'','problemas impresion en laser','Hola. Tengo un programa donde hago un grafico con GRAPH, y luego trato de imprimirlo con: odlg:print() o con odlg:hardcopy(3)\nsi la impresora por defecto es una deskjet, funciona, pero si la impresora es una laser, imprime una hoja en blanco. ¿alguna idea de que puede ser?\nGracias. Atte.','',0,'gA==','2qczc2ss',1,0,'',1090,0,0),(45701,9454,6,1090,0,'201.254.62.134',1199801643,1,0,1,1,1,0,'','try-catch-end','Hola. Lo que pregunto es como puedo implementar esta instruccion  try-catch-end en fivewin harbour. Gracias. Atte.','',0,'gA==','2zyvj8zb',1,0,'',1090,0,0),(45702,9519,6,222,0,'201.211.85.243',1199802094,1,0,1,1,1,0,'','Save/Restore','¿Alguien me puede indicar cómo guardar en memoria y recuperar un área de una ventana? \n\nIntento hacer una animación sobre una imagen o en una ventana. Pero es claro que antes de dibujar sobre un área de ella debo guardar en memoria el área original para restaurarla antes del próximo dibujo.\n\nGracias de antemano.','',0,'gA==','6cafeejw',1,0,'',222,0,0),(45703,9516,3,103,0,'189.12.219.53',1199802790,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:58gn8mn5]To All\n\nI know I sound like a broken record .. but if VSX works out .. the resource editor is all that I need.\n\nIDE\'s are fine for those people that like a structured ( programming ) path .. for me, give me a good programmers editor ( lines and syntax hi-lite ), a project make file utility and a resource editor .. \n\nWhen you start talking IDE\'s .. you are pretty much stuck with using that tool for ( their ) development ( eg .. visual xHarbour and the Xh product )..\n\nI prefer to write my code .. how I like with the ( generic ) tools available .. \n\nPlease understand .. I am not trying to hurt anyones ideas or feelings .. there is room for both philosophys.\n\nRick Lipkin[/quote:58gn8mn5]\n\nRick,\n\nThat\'s why I\'m using at the moment the xDevStudio, which is a tool that contains a very good editor (syntax hi-lite, showing structures and a good help), and you can organize all files in projects, creating your own make file utility and the one thing that it does not have is a resource editor, where my option today is the \"old\" Borland Resource Workshop, but it has been useful to me. But if it\'s possible to use another product which can accelerate our development, it\'s not a bad idea to take a look on it.\n\nLet\'s wait,\n\nBest regards','',0,'gA==','58gn8mn5',1,0,'',103,0,0),(45704,9445,7,527,0,'83.45.97.221',1199803111,1,0,1,1,1,0,'','Que tengo que hacer para hacerlo funcionar','Que tengo que hacer para hacerlo funcionar\ngracias','',0,'gA==','3csbtqpp',1,0,'',527,0,0),(45705,9518,6,362,0,'200.158.19.237',1199803554,1,0,1,1,1,1,'','','INTENTE DESINSTALAR Y REINSTALAR EL DRIVE DE LA IMPRESORA. PUEDE SEER ESTO.\n\nMIRA TAMBIÉN SE NO TIENE UN LOOPING EN EL RELATORIO SIN EL SYSREFRESH()\n\nSaludos.','',0,'gA==','2nysdkr2',1,0,'',362,0,0),(45706,9473,11,473,0,'81.241.228.203',1199803905,1,0,1,1,1,0,'','','The same problem sames to occur with the Harbour binaries.\n\nThe ubunto version is only delivered in a .deb file\n\nAny idea.\n\nThanks,\n\nWilly.','',0,'gA==','2n165s4u',1,0,'',473,0,0),(45707,9454,6,644,0,'201.252.81.246',1199804599,1,0,1,1,1,0,'','','diego : la instrucción try-catch-end solo está implementado en xHarbour solamente. Para utilizar un control de errores en harbour debes usar begin sequence-recover-end. Estos comandos son propios de clipper.  Salu2','',0,'gA==','16dsn3nr',1,0,'',644,0,0),(45708,9520,23,308,0,'84.148.19.198',1199804848,1,0,1,1,1,0,'','Projektvorstellung alpha-VIS CRM','[b:8hjv7a92]alpha-VIS CRM Vertriebsmanagement[/b:8hjv7a92]\n\nHier die Vorstellung meines aktuellen Projektes \"alpha-VIS CRM\". Wie der Name schon sagt, handelt es sich hierbei um ein Customer Relationship Management-System.\nDas Projekt wurde komplett in xHarbour erstellt.\nEs gibt so viele interessante Details, dass ich sie hier garnicht alle aufzählen kann. Nur auszugsweise:\n- Unterstützt Microsoft Office und OpenOffice\n- Unterstützt diverse eMail-Verfahren, MapPoint, Google\n- Total angepasstes und erweitertes TSBROWSE\n- eMails erstellen in RTF mit anschliesender Umwandlung in HTML\n- Grafikauswertungen mit RMChart, Tapi-Telefonie\n- Wahlweise Internet-Explorer oder Firefox als ActiveX\num nur ein paar Punkte zu nennen. \n\nalpha-VIS CAS / CRM ist eine besonders unkomplizierte, aber umfassende Lösung. Sie integriert in seinen Modulen alle wesentlichen Faktoren:\n\n- Marketing \n- Vertrieb \n- Kundenservice \n- Terminplanung \n- Wiedervorlagesystem\n- Neukundenakquise \n- Projektmanagement \n- Einbindung Warenwirtschaft und Finanzbuchhaltung \n\nDurch die intuitive Bedienung und ein integriertes Hilfesystem ist alpha-VIS schnell zu erlernen und in kürzester Zeit einsetzbar.\n\n[b:8hjv7a92][u:8hjv7a92]Hier finden Sie weitere Informationen zu unserem Produkt:[/u:8hjv7a92][/b:8hjv7a92] [url:8hjv7a92]http&#58;//www&#46;alphasoft&#46;de[/url:8hjv7a92]\nDirekt auf der Startseite finden Sie in der Box \"alpha-VIS CRM Online-Vorführung\" eine Slideshow.\nKlicken Sie dazu in der Box auf \"alpha-VIS CRM\"\n\n[b:8hjv7a92][u:8hjv7a92]Hier können Sie Datenblatter als pdf Dateien laden:[/u:8hjv7a92][/b:8hjv7a92]\n\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Prospekt%20alpha-VIS&#46;pdf:8hjv7a92]- alpha-VIS CRM Vertriebsmanagement (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20Projektverwaltung&#46;pdf:8hjv7a92]- alpha-VIS CRM Projektmanagement (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20Akquisemanager&#46;pdf:8hjv7a92]- alpha-VIS CRM Akquisemanager (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20Beziehungsmanagement&#46;pdf:8hjv7a92]- alpha-VIS CRM Beziehungsmanagement (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20eMail%20Archive&#46;pdf:8hjv7a92]- alpha-VIS CRM eMail-Archivierung (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20eMail%20Mailingaktionen&#46;pdf:8hjv7a92]- alpha-VIS CRM Mailing-Aktionen (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20Hotline-Verwaltung&#46;pdf:8hjv7a92]- alpha-VIS CRM Hotline- und Supportverwaltung (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20Seminarverwaltung&#46;pdf:8hjv7a92]- alpha-VIS CRM Veranstaltungen- und Seminarverwaltung (pdf)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/Datenblatt%20alpha-VIS%20Terminplan&#46;pdf:8hjv7a92]- alpha-VIS CRM Terminverwaltung (pdf)[/url:8hjv7a92]\n\n[b:8hjv7a92][u:8hjv7a92]Hier haben wir einige Vorführ-Videos für Sie bereit gestellt:[/u:8hjv7a92][/b:8hjv7a92]\n\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/videos/adressen&#46;htm:8hjv7a92]- alpha-VIS CRM Vertriebsmanagement (Flash-Video)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/videos/selektion&#46;htm:8hjv7a92]- alpha-VIS CRM suchen und filtern (Flash-Video)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/videos/terminplan&#46;htm:8hjv7a92]- alpha-VIS CRM Terminverwaltung (Flash-Video)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/videos/mailing&#46;htm:8hjv7a92]- alpha-VIS CRM Mailing-Aktionen (Flash-Video)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/videos/Seminar&#46;htm:8hjv7a92]- alpha-VIS CRM Veranstaltungen- und Seminarverwaltung (Flash-Video)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/videos/Akquise&#46;htm:8hjv7a92]- alpha-VIS CRM Akquisemanager/Neukundengewinnung (Flash-Video)[/url:8hjv7a92]\n[url=http&#58;//www&#46;alphasoft&#46;de/alpha-vis/videos/Import&#46;htm:8hjv7a92]- alpha-VIS CRM Universeller Adressimport (Flash-Video)[/url:8hjv7a92]\n\nWenn Euch eine Problemlösung speziell interessiert, schreibt hier in diesem Topic.\n\nViel Spass\n  Norbert','',0,'UQ==','8hjv7a92',1,0,'',308,0,0),(45709,9518,6,1090,0,'201.254.62.134',1199804901,1,0,1,1,1,0,'','no funciona','hola. reinstale y sigue funcionando mal; me imprime la pagina en blanco; y probe el mismo programa con otras 2 laser diferentes, y en todas se da el mismo sintoma; con deskjet, funciona, pero no con laser. Si alguien sabe que puede ser. Gracias. Atte.','',0,'UQ==','1qwok9af',1,0,'',1090,0,0),(45710,9518,6,362,0,'200.158.19.237',1199805522,1,0,1,1,1,1,'','Re: no funciona','[quote=&quot;diegopolverelli&quot;:27fzt8uh]hola. reinstale y sigue funcionando mal; me imprime la pagina en blanco; y probe el mismo programa con otras 2 laser diferentes, y en todas se da el mismo sintoma; con deskjet, funciona, pero no con laser. Si alguien sabe que puede ser. Gracias. Atte.[/quote:27fzt8uh]\n\nPUEDE SEER QUE TENGAS QUE ATUALIZAR EL DRIVE DE LA IMPRESORA.\n\nOTRA: ESTAIS USANDO CMSAY() Ó CHARSAY()??\n\nMEJOR CMSAY(). HAGA UN TESTE CON CMSAY().\n\nSaludos.','',0,'gA==','27fzt8uh',1,0,'',362,0,0),(45711,9518,6,362,0,'200.158.19.237',1199805793,1,0,1,1,1,1,'','','Como Imprimir em Centimetros sem errar e em qualquer Impressora \n[code:i47jkajv]\nFUNCTION IMPRIME&#40;&#41;\n\nLOCAL ResColuna, ResLinha, oPrinter, oFont1\n\nPRINTER oPrinter NAME &quot;Teste de Impressão &quot; PREVIEW\nDEFINE FONT oFont1 NAME &quot;Times&quot; SIZE 0, -9 BOLD OF oPrinter\nCursorWait&#40;&#41;\noPrinter&#58;SetLandScape&#40;&#41;\n\nrescoluna&#58;=oPrinter&#58;nlogpixelx&#40;&#41;/2&#46;54\nreslinha&#58;=oPrinter&#58;nlogpixely&#40;&#41;/2&#46;54\n\nPAGE\n\noPrinter&#58;say&#40;3*reslinha,5*rescoluna,&quot;Teste de Impressão em Posição de Centímetros&quot;&#41;\n\noPrinter&#58;SayBitmap&#40;5*resColuna,205*ResLinha,&quot;logo&#46;bmp&quot;,10*ResColuna,11*ResLi\nnha,2 &#41;\n\nENDPAGE\nENDPRINTER\n[/code:i47jkajv]','',0,'AIA=','i47jkajv',1,0,'',362,0,0),(45712,9518,6,1090,0,'201.254.62.134',1199807005,1,0,1,1,1,0,'','sigue sin funcionar','Probe con eso, imprimiendo con un odlg:print(oprn,50,50,3.16), siendo oprn un objeto PRINT, y si imprimo seleccionando una impresora deskjet, sale bien, pero si imprimo en una laser, sale una hoja en blanco.','',0,'AIA=','39mctuhx',1,0,'',1090,0,0),(45713,9517,6,24,0,'80.24.12.168',1199807331,1,0,1,1,1,1,'','Re: Clase TGET bKeyDown, bChange','Bueno, despues de volver de comer, vemos que;\nEn bCHange, hay que cambiarlo por;\n\n ::oGet:bPostKey  := {| This, cBuffer | ::FastSeek( This, cBuffer ) }\n\nY he tenido que modifcar el METHOD FastSeek() para esta nueva implementación, por lo que ahora me funciona correctamente, las teclas BACK, LEFT, RIGTH en el GET...\n\nPero el problema es que ahora las teclas F2, F3 si las conecto atraves del\ncodeblock bKeyDown, entonces no me funciona el BACK, LEFT, RIGTH del GET....\n\n¿ A cambio alguna cosa tambien en este ? Pues parece que si, antes tenia esto;\n[code:k281s7ob]\n       &#58;&#58;oGet&#58;bKeyDown  &#58;= &#123;| nKey, nFlags | iif&#40; nKey == VK_F3, &#58;&#58;NextTabOption&#40;&#41;,;\n                                             iif&#40; nKey == VK_F2, &#58;&#58;PrevTabOption&#40;&#41;, &#41; &#41; ,0&#125;\n[/code:k281s7ob]\nAhora, para que siga propagandose el evento en la clase, hay que devolver un númerico distinto de cero.\n[code:k281s7ob]\n       &#58;&#58;oGet&#58;bKeyDown  &#58;= &#123;| nKey, nFlags | iif&#40; nKey == VK_F3, &#58;&#58;NextTabOption&#40;&#41;,;\n                                             iif&#40; nKey == VK_F2, &#58;&#58;PrevTabOption&#40;&#41;, &#41; &#41;, 1 &#125;\n[/code:k281s7ob]\n\nDe esta manera, parece ser que vuelvo a tener la misma funcionalidad que anteriormente..\n\nDios que cristo esto de cambiar de FWH , de Harbour, a Windows Vista, vamos, todo de golpe.... \nGracias por la ayuda.','',0,'AIA=','k281s7ob',1,0,'',24,0,0),(45714,9509,6,430,0,'157.100.146.2',1199808743,1,0,1,1,1,0,'','','La primera parte de Ingresar.prg es la siguiente:\n\nFUNCTION Ingresar(NPar)\n#INCLUDE \"FiveWin.CH\"\n#INCLUDE \"RichEdit.CH\"\nLOCAL oSay, oGrp[3], oGet[12], NOM:=SPACE(20)\nPRIVATE oDlgING, NREG:=\"Nuevo\", oBut[20], Btmp[2], oBtmp[2], oCom[9]\nPRIVATE CIU:={}, EST:={}, ARB:={}, DTS:={}, EDC[22], RES[22], NDT:=REA:=REF:=LM:=0\nPRIVATE JUGADL[14,4], JUGADV[14,4], GOLL[30,3], GOLV[30,3], PF[5,4]\nPRIVATE aTorn:={}, LOC:={}, VIS:={}, LIN1:=SPACE(56), PAIS:={{},{},{}}, ETP[14]\nPRIVATE NOMD[30,13], DEBOJ[30,2], NDJU:=DDT:=DOJU:=DAR:=NPA:=0\nPRIVATE CIUHIS:={}, ESTHIS:={}, NOMARD[8], NOMDTD[2,8], NCH:=NESH:=0\nPRIVATE NED:=NCD:=0, ESD[6], CID[2], IDEN:=1, NOAR:=NODT:=0, nPerr:=0\nPRIVATE DEBOTAR[2], DEBOTDT[2,2], PLE:=PVE:=0, NMJU:=14, aRec[4]\nBtmp[1]:=Btmp[2]:=\"VACIO\"\nIF TAA=1\n	AADD(aTorn,\"\")\n	AADD(aTorn,\"APERTURA SERIE A\")\n	AADD(aTorn,\"CAMPEONATO NACIONAL\")\n	AADD(aTorn,\"CLAUSURA SERIE A\")\n	AADD(aTorn,\"SERIE A\")\nELSEIF  TAA=2\n	AADD(aTorn,\"\")\n	AADD(aTorn,\"APERTURA SERIE B\")\n	AADD(aTorn,\"CLAUSURA SERIE B\")\n	AADD(aTorn,\"SERIE B\")\nELSEIF  TAA=3\n	AADD(aTorn,\"\")\n	AADD(aTorn,\"TORNEO DE ASO GUAYAS\")\nELSEIF  TAA=4\n	AADD(aTorn,\"\")\n	AADD(aTorn,\"TORNEO DE AFNA\")\n	AADD(aTorn,\"TORNEO INTERANDINO\")\nENDIF\nETP[1]=\"\"\nETP[2]=\"1ra. ETAPA\"\nETP[3]=\"2da. ETAPA\"\nETP[4]=\"3ra. ETAPA\"\nETP[5]=\"4tos. FINAL\"\nETP[6]=\"APERTURA\"\nETP[7]=\"CAMPEONATO\"\nETP[8]=\"CLAUSURA\"\nETP[9]=\"DEFINICION\"\nETP[10]=\"FINAL\"\nETP[11]=\"LIGUILLA\"\nETP[12]=\"NO DESCENSO\"\nETP[13]=\"PRE CONMEBOL\"\nETP[14]=\"SEMIFINAL\"\nLlenar(IDEN)\nUSE &amp;RUTDIR.NACION\nDO WHILE .NOT. EOF()\n   NPA++\n   AADD(PAIS[1],NACION); AADD(PAIS[2],SIMB); AADD(PAIS[3],CONFEDERAC)\n   SKIP\nENDDO\nUSE &amp;RUTDIR.CIUDADES\nDO WHILE .NOT. EOF()\n   NCH++\n   AADD(CIUHIS,CIUDAD)\n   SKIP\nENDDO\nASORT(CIUHIS)\nUSE &amp;RUTDIR.ESTADIOS\nDO WHILE .NOT. EOF()\n   NESH++\n   AADD(ESTHIS,ESTADIO)\n   SKIP\nENDDO\nASORT(ESTHIS)\nUSE &amp;RUTRES.&amp;NOMARC\nIF LastRec()&gt;0\n   Llemat(,CIU)\n   Llemat(6,EST)\n   Llemat(8,ARB)\n   NDT=Llemat(19,DTS)\n   NDT=Llemat(20,DTS,NDT)\nENDIF\nAADD(CIU,\"\")\nAADD(EST,\"\")\nAADD(ARB,\"\")\nAADD(DTS,\"\")\nASORT(CIU)\nASORT(EST)\nASORT(ARB)\nASORT(DTS)\nIF EMPTY(NPar)\n   REF=LASTREC()\n   REA=REF+1\nELSE\n   REF=NPar\n   REA=REF+1\n   LeerReg(REF,IDEN)\nENDIF\nDEFINE DIALOG oDlgING OF oVENT RESOURCE \"INGRESO_CE\" TITLE \"Ingreso de datos al archivo: \"+NOMARC\n   REDEFINE GROUP oGrp[1] ID 1400 OF oDlgING COLOR GetTextColor()\n   REDEFINE GET oGet[1] VAR EDC[1] ID 1402 OF oDlgING VALID EDC[1]&gt;=0 SPINNER MIN 0 MAX 99 PICTURE \"##\" UPDATE\n\n   REDEFINE GET oGet[2] VAR EDC[2] ID 1403 OF oDlgING UPDATE\n   REDEFINE BTNBMP oBut[20] ID 1416 OF oDlgING RESOURCE \"CALENDAR\" ACTION MsgDate(DATE(),\"Seleccione fecha\",oGet[2]) MESSAGE \"Selecciona fecha\" UPDATE\n\n   REDEFINE COMBOBOX oCom[9] VAR EDC[22] ITEMS aTorn ID 1404 OF oDlgING MESSAGE \"Seleccionar Nombre del Torneo\" STYLE CBS_DROPDOWN UPDATE\n\n   REDEFINE COMBOBOX oCom[1] VAR EDC[20] ITEMS ETP ID 1405 OF oDlgING MESSAGE \"Seleccionar Etapa\" STYLE CBS_DROPDOWN UPDATE\n\n   REDEFINE COMBOBOX oCom[2] VAR EDC[3] ITEMS CIU ID 1406 OF oDlgING MESSAGE \"Seleccionar Ciudad\" STYLE CBS_DROPDOWN UPDATE\n   REDEFINE BTNBMP oBut[10] ID 1407 OF oDlgING FILENAME RUTBMP+\"INSPECT.BMP\" ACTION OtraCiudad(oDlgIng) MESSAGE \"Seleccione otra Ciudad\"\n   REDEFINE BTNBMP oBut[11] ID 1408 OF oDlgING FILENAME RUTBMP+\"ADDREC.BMP\" ACTION CiudadDeb(oDlgING) MESSAGE \"Seleccione nueva Ciudad\"\n\n   REDEFINE COMBOBOX oCom[3] VAR EDC[4] ITEMS EST ID 1409 OF oDlgING MESSAGE \"Seleccionar Estadio\" STYLE CBS_DROPDOWN UPDATE\n   REDEFINE BTNBMP oBut[12] ID 1410 OF oDlgING FILENAME RUTBMP+\"INSPECT.BMP\" ACTION OtroEstadio(oDlgIng) MESSAGE \"Seleccione otro Estadio\"\n   REDEFINE BTNBMP oBut[13] ID 1411 OF oDlgING FILENAME RUTBMP+\"ADDREC.BMP\" ACTION EstadioDeb(oDlgING) MESSAGE \"Seleccione nuevo Estadio\"\n\n   REDEFINE GET oGet[3] VAR EDC[21] ID 1412 OF oDlgING VALID EDC[21]&gt;=0 SPINNER MIN 0 MAX 999999 PICTURE \"###,###\" UPDATE\n\n   REDEFINE COMBOBOX oCom[4] VAR EDC[5] ITEMS ARB ID 1413 OF oDlgING MESSAGE \"Seleccionar Arbitro\" STYLE CBS_DROPDOWN UPDATE\n   REDEFINE BTNBMP oBut[14] ID 1414 OF oDlgING FILENAME RUTBMP+\"INSPECT.BMP\" ACTION OtroArbitro(oDlgING,1,,1) MESSAGE \"Seleccione otro Arbitro\"\n   REDEFINE BTNBMP oBut[15] ID 1415 OF oDlgING FILENAME RUTBMP+\"ADDREC.BMP\" ACTION NombreArDeb(oDlgING,1) MESSAGE \"Seleccione nuevo Arbitro\"\n\n	REDEFINE SAY oSay ID 1422 OF oDlgING COLOR RGB(255,0,0),RGB(nRGBRed(oDlgING:nClrPane),nRGBGreen(oDlgING:nClrPane),nRGBBlue(oDlgING:nClrPane))\n   REDEFINE COMBOBOX oCom[5] VAR EDC[6] ITEMS EQUIPO ID 1421 OF oDlgING ON CHANGE CambiaBMP(EDC[6]) MESSAGE \"Seleccionar Equipo\" VALID EDC[6]&lt;&gt;EDC[8] STYLE CBS_DROPDOWN UPDATE\n	REDEFINE GET oGET[4] VAR EDC[7] ID 1423 OF oDlgING VALID EDC[7]&gt;=0 SPINNER MIN 0 MAX 14 PICTURE \"##\" UPDATE\n\n   REDEFINE COMBOBOX oCom[6] VAR EDC[8] ITEMS EQUIPO ID 1425 OF oDlgING ON CHANGE CambiaBMP(EDC[8]) MESSAGE \"Seleccionar Equipo\" VALID EDC[8]&lt;&gt;EDC[6] STYLE CBS_DROPDOWN UPDATE\n   REDEFINE GET oGET[5] VAR EDC[9] ID 1427 OF oDlgING VALID EDC[9]&gt;=0 SPINNER MIN 0 MAX 14 PICTURE \"##\" UPDATE\n\n   REDEFINE BITMAP oBtmp[1] ID 1490 OF oDlgING FILE RUTBMP+Btmp[1]+\".BMP\" UPDATE ADJUST\n   REDEFINE BITMAP oBtmp[2] ID 1491 OF oDlgING FILE RUTBMP+Btmp[2]+\".BMP\" UPDATE ADJUST\n\n   REDEFINE GROUP oGrp[2] ID 1480 OF oDlgING COLOR GetTextColor()\n   REDEFINE GET oGet[6] VAR EDC[10] ID 1431 OF oDlgING VALID EDC[10]&gt;=0 SPINNER MIN 0 MAX 14 PICTURE \"##\" UPDATE\n   REDEFINE GET oGet[7] VAR EDC[11] ID 1433 OF oDlgING VALID EDC[11]&gt;=0 SPINNER MIN 0 MAX 14 PICTURE \"##\" UPDATE\n   REDEFINE GET oGet[8] VAR EDC[12] ID 1441 OF oDlgING VALID EDC[12]&gt;=0 SPINNER MIN 0 MAX 10 PICTURE \"##\" UPDATE\n   REDEFINE GET oGet[9] VAR EDC[13] ID 1445 OF oDlgING VALID (EDC[13]&lt;=EDC[12] .AND. EDC[12]&gt;=0) SPINNER MIN 0 MAX EDC[12] PICTURE \"##\" UPDATE\n   REDEFINE GET oGet[10] VAR EDC[14] ID 1443 OF oDlgING VALID EDC[14]&gt;=0 SPINNER MIN 0 MAX 10 PICTURE \"##\" UPDATE\n   REDEFINE GET oGet[11] VAR EDC[15] ID 1447 OF oDlgING VALID (EDC[15]&lt;=EDC[14] .AND. EDC[14]&gt;=0) SPINNER MIN 0 MAX EDC[14] PICTURE \"##\" UPDATE\n\n   REDEFINE COMBOBOX oCom[7] VAR EDC[16] ITEMS DTS ID 1451 OF oDlgING MESSAGE \"Seleccionar T‚cnico\" STYLE CBS_DROPDOWN UPDATE\n   REDEFINE BTNBMP oBut[16] ID 1454 OF oDlgING FILENAME RUTBMP+\"INSPECT.BMP\" ACTION OtroArbitro(oDlgING,2,1,1) MESSAGE OemToANSI(\"Seleccione otro T‚cnico\")\n   REDEFINE BTNBMP oBut[17] ID 1455 OF oDlgING FILENAME RUTBMP+\"ADDREC.BMP\" ACTION NombreDTDeb(1,oDlgING,1) MESSAGE OemToANSI(\"Seleccione nuevo T‚cnico\")\n\n   REDEFINE COMBOBOX oCom[8] VAR EDC[17] ITEMS DTS ID 1453 OF oDlgING MESSAGE \"Seleccionar T‚cnico\" STYLE CBS_DROPDOWN UPDATE\n   REDEFINE BTNBMP oBut[18] ID 1456 OF oDlgING FILENAME RUTBMP+\"INSPECT.BMP\" ACTION OtroArbitro(oDlgING,2,2,1) MESSAGE OemToANSI(\"Seleccione otro T‚cnico\")\n   REDEFINE BTNBMP oBut[19] ID 1457 OF oDlgING FILENAME RUTBMP+\"ADDREC.BMP\" ACTION NombreDTDeb(2,oDlgING,1) MESSAGE OemToANSI(\"Seleccione nuevo T‚cnico\")\n\n   REDEFINE BUTTON oBut[2] ID 1460 OF oDlgING MESSAGE \"Ingreso de las alineaciones de ambos equipos\";\n      ACTION IF(EDC[6]=SPACE(12) .OR. EDC[8]=SPACE(12),MsgInfo(\"Falta ingresar dato(s)\",\"Confirme datos\"),;\n      Alineac(EDC[6],EDC[8],EDC[7],EDC[9],EDC[10],EDC[11],REA,1,oDlgING))\n\n   REDEFINE GET oGet[12] VAR NREG ID 1462 OF oDlgING READONLY UPDATE\n\n   REDEFINE GROUP oGrp[3] ID 1475 OF oDlgING COLOR GetTextColor()\n   REDEFINE BUTTON oBut[1] ID 1474 OF oDlgING MESSAGE \"Va a un registro determinado\" ACTION IrARegistro(1)\n   REDEFINE BUTTON oBut[3] ID 1470 OF oDlgING MESSAGE \"Va al inicio del archivo\" ACTION InicioArch(1)\n   REDEFINE BUTTON oBut[4] ID 1471 OF oDlgING MESSAGE \"Va al fin del archivo\" ACTION FinArch(1)\n   REDEFINE BUTTON oBut[5] ID 1472 OF oDlgING MESSAGE \"Retrocede un registro\" ACTION Atras(1)\n   REDEFINE BUTTON oBut[6] ID 1473 OF oDlgING MESSAGE \"Adelanta un registro\" ACTION Adelante(1)\n\n   REDEFINE BUTTON oBut[7] ID 1 OF oDlgING MESSAGE \"Graba datos\" ACTION GrabaUlt(1)\n   REDEFINE BUTTON oBut[8] ID 2 OF oDlgING MESSAGE \"Sale de esta pantalla\" ACTION oDlgING:END()\n*   REDEFINE BUTTON oBut[9] ID 3 OF oDlgING MESSAGE \"Imprimir\" ACTION ImprimeDato(REA,IDEN,EDC[7],EDC[9])\n   REDEFINE BUTTON oBut[9] ID 3 OF oDlgING MESSAGE \"Imprimir\" ACTION \"\"\n\n   IF REA=1\n      oBut[3]:DISABLE()\n      oBut[4]:DISABLE()\n      oBut[5]:DISABLE()\n      oBut[6]:DISABLE()\n   ELSE\n      oBut[3]:ENABLE()\n      oBut[4]:DISABLE()\n      oBut[5]:ENABLE()\n      oBut[6]:DISABLE()\n   ENDIF\n\nACTIVATE DIALOG oDlgING CENTERED VALID SalirArch() RESIZE16\nDBCloseAll()\nRETU .T.\n*FDF Ingresar','',0,'','2pkkoo4d',1,0,'',430,0,0),(45715,9509,6,362,0,'200.158.19.237',1199810556,1,0,1,1,1,1,'','','IF REA=1 \noBut[3]:DISABLE() \noBut[4]:DISABLE() \noBut[5]:DISABLE() \noBut[6]:DISABLE() \nELSE \noBut[3]:ENABLE() \noBut[4]:DISABLE() \noBut[5]:ENABLE() \noBut[6]:DISABLE() \nENDIF \n\nACTIVATE DIALOG oDlgING CENTERED VALID SalirArch() RESIZE16 \n\nESTO NO ÉS CORRECTO.\n\nCAMBIA PARA UNA FUNCTION Ó PARA DESPUÉS DEL ACTIVATE DIALOG.\n\nCUANDO QUE TE OCORRI EL ERRO?? ÉS CUANDO ADENTRAS AL MODULO?','',0,'','3pw3w4o6',1,0,'',362,0,0),(45716,9521,17,24,0,'80.24.12.168',1199811286,1,0,1,1,1,1,'','TBUSCADOR. Update a FWH 7.12','Bueno, a los fivewiseros que tenemos por aqui , si alguien esta usando la clase TBUSCADOR, la actualizacion a Fivewin 7.12;\n\nDonde este el GET , debe de quedar de esta manera;\n[code:3l85piu4]\n       @0&#46;5,5   GET &#58;&#58;oGet VAR &#58;&#58;cBusca SIZE 250,10 OF &#58;&#58;oDlg\n\n        // En la version FWH 7&#46;12 cambian con respecto a la 2&#46;7 bChange no se usa&#46;\n       &#58;&#58;oGet&#58;bPostKey  &#58;= &#123;| This, cBuffer | &#58;&#58;FastSeek&#40; This, cBuffer &#41; &#125;\n       &#58;&#58;oGet&#58;bKeyDown  &#58;= &#123;| nKey, nFlags | iif&#40; nKey == VK_F3, &#58;&#58;NextTabOption&#40;&#41;,;\n                                             iif&#40; nKey == VK_F2, &#58;&#58;PrevTabOption&#40;&#41;, &#41; &#41;, 1 &#125;\n[/code:3l85piu4]\n\nY el method FastSeek(), deberá quedar;\n[code:3l85piu4]\n//----------------------------------------------------------------------------//\n// Busqueda rapida\n//METHOD FastSeek&#40; nKey, nFlags &#41; CLASS TBUSCADOR\nMETHOD FastSeek&#40; oGet, xCadena &#41; CLASS TBUSCADOR\n    local cType\n    local nRecNo\n    local nOrd\n    // local oGet     &#58;= &#58;&#58;oGet\n    Local cKey &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; &amp;&#40;IndexKey&#40;&#41; &#41;&#41; // Tipo de expresion en el indice\n\n    &#58;&#58;oDbf&#58;Seek&#40; if&#40; Valtype&#40;cKey&#41; != &quot;N&quot;,xCadena, VAL&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n    &#58;&#58;oBrw&#58;refresh&#40;&#41;\n    &#58;&#58;cBusca &#58;= xCadena\n\nreturn &#46;t&#46;\n[/code:3l85piu4]\n\nCon esto se consigue que funcione en las últimas versiones de Fivewin.\nAntonio, ¿ cual seria el foro adecuado ?, yo creo que este pero bueno....','',0,'AIA=','3l85piu4',1,0,'',24,0,0),(45717,9522,3,868,0,'219.64.121.60',1199812400,1,0,1,1,1,1,'','ToolTip with Title','Sample of ToolTip with Title Text\n[url=http&#58;//imageshack&#46;us:y8nf31ks][img:y8nf31ks]http&#58;//img229&#46;imageshack&#46;us/img229/8390/tooltipzl4&#46;png[/img:y8nf31ks][/url:y8nf31ks]','',0,'GA==','y8nf31ks',1,0,'',868,0,0),(45718,9522,3,940,0,'189.175.212.22',1199813175,1,0,1,1,1,1,'','','Hi, \n\nVery Good, \n\ndo you have an example?\n\nTanks\n\n regards ..','',0,'GA==','1vw5gk79',1,0,'',940,0,0),(45719,9512,3,51,0,'80.122.88.242',1199813453,1,0,1,1,1,0,'','','NageswaraRao, thank you very much.\nI was so free to put it on <!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->\nBest regards,\nOtto','',0,'GA==','1iqvvffj',1,0,'',51,0,0),(45720,9522,3,868,0,'219.64.121.60',1199814031,1,0,1,1,1,1,'','','This requires modification to Window.Prg. If you like to take the trouble of modification, I shall post the code.','',0,'GA==','378i8lc7',1,0,'',868,0,0),(45721,9523,3,1110,0,'139.165.93.85',1199814067,1,0,1,1,1,0,'','Outlook Inbox Ole','How is it possible to read the inbox of Outlook direct from FiveWin.\nHow is it possible to save a file attached to a message .\n\nThanks for your help .','',0,'GA==','3vacpy6i',1,0,'',1110,0,0),(45722,9509,6,430,0,'157.100.146.2',1199814293,1,0,0,0,1,0,'','','Karinha\n\nLe hice un seguimiento y efectivamente el error se da cuando se debe ejecutar el ACTIVATE DIALOG.\n\nVoy a probar con tu consejo.\n\nSaludos','',0,'GA==','3hg6105r',1,0,'',430,0,0),(45723,9522,3,104,0,'201.58.185.213',1199815059,1,0,1,1,1,0,'','','Hello,\n\nSee this: [url:awbla462]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3623&amp;highlight=tooltip[/url:awbla462]\n\nRegards,\n\nRossine.','',0,'EA==','awbla462',1,0,'',104,0,0),(45724,8367,6,931,0,'201.159.1.211',1199815111,1,0,1,1,1,0,'','','[quote=&quot;metaldrummer&quot;:sdwfno30]Sebastian:\nDame un correo donde enviarte un ejemplo.\nLa idea es que te olvides del concepto de .dbf\nYo por lo menos trabajo con ADO duro y puro y no tengo problemas.\nSaludos\nDavid[/quote:sdwfno30]\n\nHola,\n\nYo tambien uso ADO, pero la conexion a la base la hago por medio de un ODBC previamente configurado:\n\noCnx200:=TAdoConn():New()\n\nIF !oCnx200:Open( \"ORACLE CBS\", \"CBS\", \"pedro234\" )\n   Msginfo(\'No hay conexión con el Servidor de Oracle...\')\n   Return( .f. )\nENDIF\n\nComo hago la conexión sin usar ODBC.\n\nSaludos,\nMario A. Dávalos\nMéxico, D.F.','',0,'gA==','sdwfno30',1,0,'',931,0,0),(45725,9524,6,24,0,'80.24.12.168',1199815362,1,0,1,1,1,1,'','GT Error con Harbour','Bueno, haber si alguien sabe que me puede pasar;\n\n        C:\\BCC55\\BIN\\ILINK32.EXE -aa -Gn -Tpe -I.\\obj -j.\\obj @make.tmp\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_FW_GT\' referenced from C:\\ULYWIN\\WRUTINAS\\LI\nBFIVE\\MODIFY\\MODIFYH.LIB|tget\n\nLo triste es que en otro proyecto me funciona correctamente con Harbour,\nhe linkado con GTGUI, con GTWIN, con los 2...\n\nEs que es muy raro, porque otro proyecto usa la misma libreria con Harbour Y NO ME DICE ESTO!!!\n\nMardito dia tengo hoy....... ;-(','',0,'gA==','1onfxik8',1,0,'',24,0,0),(45726,9522,3,868,0,'219.64.121.60',1199815532,1,0,1,1,1,1,'','','Yes. Thats it. Your implementation is quite elaborate and complete.\n\nI made a simple implementation only to provide the title. It is the same SendMessage function.\n\nIf FWH implements your proposal, it would be nice.','',0,'gA==','1uvwzac4',1,0,'',868,0,0),(45727,9522,3,868,0,'219.64.121.60',1199815920,1,0,1,1,1,1,'','','How sad we are missing the excellent contributions in the Spanish forum ?','',0,'gA==','1hah9cq7',1,0,'',868,0,0),(45728,9473,11,2,0,'87.218.146.121',1199816604,1,0,1,1,1,1,'','','Willy,\n\nDownload Harbour and xHarbour for Linux from here:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/harbour.zip\">www.fivetechsoft.com/files/harbour.zip</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/files/xharbour.zip\">www.fivetechsoft.com/files/xharbour.zip</a><!-- w -->\n\nUnzip them where you want to <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','35oh0uqs',1,0,'',2,0,0),(45729,9523,3,6,0,'87.11.229.75',1199817910,1,0,1,1,1,1,'','Re: Outlook Inbox Ole','[quote=&quot;Jack&quot;:2dg76wug]How is it possible to read the inbox of Outlook direct from FiveWin.[/quote:2dg76wug]\n\n[code:2dg76wug]#define olFolderInbox 6\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oOutlook &#58;= CREATEOBJECT&#40; &quot;Outlook&#46;Application&quot; &#41;\n    LOCAL oNameSpace &#58;= oOutlook&#58;GetNameSpace&#40;&quot;MAPI&quot;&#41;\n    LOCAL oInbox &#58;= oNameSpace&#58;GetDefaultFolder&#40; olFolderInbox &#41;\n\n    LOCAL i\n\n    FOR i = 1 TO oInbox&#58;Items&#58;Count\n        ? oInbox&#58;Items&#91; i &#93;&#58;Body\n        ?\n    NEXT\n\n    oOutlook&#58;Quit&#40;&#41;\n\n    RETURN NIL[/code:2dg76wug]\n\nEMG','',0,'gIA=','2dg76wug',1,0,'',6,0,0),(45730,9521,17,439,0,'190.64.2.216',1199820409,1,0,1,1,1,1,'','Re: TBUSCADOR. Update a FWH 7.12','[quote=&quot;thefull&quot;:1vro8k7d]Bueno, a los fivewiseros que tenemos por aqui , si alguien esta usando la clase TBUSCADOR, la actualizacion a Fivewin 7.12;\n\nDonde este el GET , debe de quedar de esta manera;\n[code:1vro8k7d]\n       @0&#46;5,5   GET &#58;&#58;oGet VAR &#58;&#58;cBusca SIZE 250,10 OF &#58;&#58;oDlg\n\n        // En la version FWH 7&#46;12 cambian con respecto a la 2&#46;7 bChange no se usa&#46;\n       &#58;&#58;oGet&#58;bPostKey  &#58;= &#123;| This, cBuffer | &#58;&#58;FastSeek&#40; This, cBuffer &#41; &#125;\n       &#58;&#58;oGet&#58;bKeyDown  &#58;= &#123;| nKey, nFlags | iif&#40; nKey == VK_F3, &#58;&#58;NextTabOption&#40;&#41;,;\n                                             iif&#40; nKey == VK_F2, &#58;&#58;PrevTabOption&#40;&#41;, &#41; &#41;, 1 &#125;\n[/code:1vro8k7d]\n\nY el method FastSeek(), deberá quedar;\n[code:1vro8k7d]\n//----------------------------------------------------------------------------//\n// Busqueda rapida\n//METHOD FastSeek&#40; nKey, nFlags &#41; CLASS TBUSCADOR\nMETHOD FastSeek&#40; oGet, xCadena &#41; CLASS TBUSCADOR\n    local cType\n    local nRecNo\n    local nOrd\n    // local oGet     &#58;= &#58;&#58;oGet\n    Local cKey &#58;= &#40; &#58;&#58;oDbf&#58;cAlias&#40;&#41;  &#41;-&gt;&#40; &amp;&#40;IndexKey&#40;&#41; &#41;&#41; // Tipo de expresion en el indice\n\n    &#58;&#58;oDbf&#58;Seek&#40; if&#40; Valtype&#40;cKey&#41; != &quot;N&quot;,xCadena, VAL&#40; xCadena &#41; &#41; , &#46;T&#46; &#41;\n    &#58;&#58;oBrw&#58;refresh&#40;&#41;\n    &#58;&#58;cBusca &#58;= xCadena\n\nreturn &#46;t&#46;\n[/code:1vro8k7d]\n\nCon esto se consigue que funcione en las últimas versiones de Fivewin.\nAntonio, ¿ cual seria el foro adecuado ?, yo creo que este pero bueno....[/quote:1vro8k7d]\n\n\nEsta clase está disponible?\nDe donde se puede descargar?\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->','',0,'gIA=','1vro8k7d',1,0,'',439,0,0),(45731,9516,3,131,0,'81.39.18.227',1199821056,1,0,1,1,1,0,'','','Rick: What editor are you using ?\n\nKleyber: Is there an english version of xDevStudio ?\n\nRegards,','',0,'gIA=','i55phfvt',1,0,'',131,0,0),(45732,9516,3,103,0,'189.12.219.53',1199821390,1,0,1,1,1,1,'','','[quote:1yzhlj0p]\nKleyber: Is there an english version of xDevStudio ? \n[/quote:1yzhlj0p]\n\nHi Jose,\n\n  At the moment no, but there are plans to have English and Spanish versions of xDevStudio as soon as possible.\n\nRegards,','',0,'gA==','1yzhlj0p',1,0,'',103,0,0),(45733,8367,6,9,0,'85.59.186.228',1199824994,1,0,1,1,1,1,'','','[quote=&quot;MarioDava&quot;:3saaembl]\nYo tambien uso ADO, pero la conexion a la base la hago por medio de un ODBC previamente configurado:Como hago la conexión sin usar ODBC.\n[/quote:3saaembl]\n\nLa conexión por ADO es mucho mas rápida y directa. Esta es una forma de conectar son Oracle (recuerda iniciar previamente la BD):\n\nLocal cProv  := \"MSDAORA.1\"\nLocal cHost  := \"127.0.0.1\"   // tambien puedes poner el nombre de la BD\nLocal cUser  := \"hr\"\nlocal cPass  := \"hr\"\nlocal oCon  := TOLEAuto():New(\'ADODB.Connection\')\n\n// realiza la conexion con la Base de Datos\nTRY\n  oCon:Open(\"Provider=\" + cProv + \";\" + ;\n            \"Data Source= \" + cHost + \";\" + ;\n            \"User ID=\"      + cUser + \";\" + ;\n            \"Password=\"     + cPass + \";\" )\nCATCH\n  MSGSTOP (\"Provider: \" + cProv + CRLF + ;\n           \"Host:      \" + cHost + CRLF + ;\n           \"Usuario:  \" + cUser + CRLF + ;\n           \"Clave:     \" + cPass, \"Error de Conexión\")\n  \n  RETURN nil\nEND','',0,'gA==','3saaembl',1,0,'',9,0,0),(45734,9525,7,527,0,'80.39.248.224',1199825214,1,0,1,1,1,0,'','Ayuda con saldo cliente por favor','Tengo un tbrowser con las facturas pendientes de un cliente por ejemplo las factura \n\nA-100 Por un importe de 10€\nA-102 Por un importe de -2€ (Tengo que abonarsela yo al cliente)\n\nEl cliente me entrega a cuenta 6 euros\n\ncomo puede hacer el PRG para que me vaya descontando el saldo en cada una de las facturas para saber lo que me queda el cliente a deber\n\nGracias.','',0,'gA==','23w7awbg',1,0,'',527,0,0),(45735,9524,6,2,0,'87.218.146.121',1199826157,1,0,1,1,1,1,'','','Rafa,\n\nAñade estas líneas:\n\n      REQUEST HB_GT_GUI\n      procedure HB_GTSYS() ; return\n      procedure HB_GT_GUI_DEFAULT() ; return \n\nEsto es sólo para las versiones recientes de Harbour. FWH las añade por defecto si usas el ErrorSys propio de FWH','',0,'gA==','3q4rda84',1,0,'',2,0,0),(45736,9509,6,2,0,'87.218.146.121',1199826308,1,0,1,1,1,1,'','','Las llamadas a :Enable() y Disable() deben hacerse desde el ON INIT del diálogo, para que los controles tengan un \"handle\" válido de Windows.','',0,'gA==','1obzppdv',1,0,'',2,0,0),(45737,9516,3,2,0,'87.218.146.121',1199826442,1,0,1,1,1,1,'','','We do use and we strongly recommend UEStudio. It works simply great as a source code editor and as a project manager including automatic make (works with FWH, FWPPC and building LIBs).\n\nWe are reviewing VSX just to see if we can get a built-in resources editor 32 bits, besides the source code editor and the project manager.','',0,'gA==','2dnwak10',1,0,'',2,0,0),(45738,8367,6,931,0,'201.159.1.211',1199827884,1,0,1,0,1,0,'','','[quote=&quot;Manuel Valdenebro&quot;:3cve7o29][quote=&quot;MarioDava&quot;:3cve7o29]\nYo tambien uso ADO, pero la conexion a la base la hago por medio de un ODBC previamente configurado:Como hago la conexión sin usar ODBC.\n[/quote:3cve7o29]\n\nLa conexión por ADO es mucho mas rápida y directa. Esta es una forma de conectar son Oracle (recuerda iniciar previamente la BD):\n\nLocal cProv  := \"MSDAORA.1\"\nLocal cHost  := \"127.0.0.1\"   // tambien puedes poner el nombre de la BD\nLocal cUser  := \"hr\"\nlocal cPass  := \"hr\"\nlocal oCon  := TOLEAuto():New(\'ADODB.Connection\')\n\n// realiza la conexion con la Base de Datos\nTRY\n  oCon:Open(\"Provider=\" + cProv + \";\" + ;\n            \"Data Source= \" + cHost + \";\" + ;\n            \"User ID=\"      + cUser + \";\" + ;\n            \"Password=\"     + cPass + \";\" )\nCATCH\n  MSGSTOP (\"Provider: \" + cProv + CRLF + ;\n           \"Host:      \" + cHost + CRLF + ;\n           \"Usuario:  \" + cUser + CRLF + ;\n           \"Clave:     \" + cPass, \"Error de Conexión\")\n  \n  RETURN nil\nEND[/quote:3cve7o29]\n\nMe puedes explicar un poco que es:\n\nLocal cProv  := \"MSDAORA.1\"\n\ny porque MSDAORA.1, yo acceso a una base remota de Orcale 10g\n\nSaludos y gracias,\nMario A. Dávalos','',0,'gA==','3cve7o29',1,0,'',931,0,0),(45739,9526,4,51,0,'80.122.88.242',1199831427,1,0,1,1,1,0,'','xBrowser','Does xBrowser work on the Ipaq?\nThanks in advance\nOtto','',0,'gA==','2lqbof02',1,0,'',51,0,0),(45740,9526,4,2,0,'87.218.146.121',1199833441,1,0,1,1,1,1,'','','Otto,\n\nWe have not tested it yet, but it should work <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','jyi3e214',1,0,'',2,0,0),(45741,9527,6,931,0,'201.159.1.211',1199836410,1,0,1,0,1,0,'','Lograr conexion con Oracle via ADO','Hola a todos,\n\nDefinitivamente necesito ayuda, que me esta fallando para lograr la conexion con mi base de Oracle 10g.\n\nMi codigo:\n\n#include \'FiveWin.ch\'\n#include \'Ado.CH\'\n\nMain()\n\nLocal oCon, xConnStr\n\nTRY\n	  oCon:=toleauto():new(\"adodb.connection\")\nCATCH oError\n     MsgStop(oError:Operation,\"Ado Connection\")\nEND\nTRY\n	  xConnStr := \"Provider=OraOLEDB.Oracle;Data Source=201.140.1.210:1521/cbs;Port:1521;User ID=cbs;Password=cbs;\"\n     oCon:Open( xConnStr )\n	  msginfo(\"nos hemos conectado a Oracle utilizando Ado\")\nCATCH oError\n     MsgStop(oError:Operation,\"Ado Open\")\nEND\n\nEl error que me manda es un mensaje tipo:\n\nMsgStop( \'Open\', \'Ado Open\' ), este error lo marca en el comando oCon:Open( ....\n\nsimplemente no logro la conexión, los mismos datos de xConnStr, los tengo en mi archivo tnsnames.ora y si logro conectarme a la base por TOAD.\n\nPor otro lado Provaider= OraOLEDB, no estoy seguro que tenga los archivos correctos, porque al buscar en mis archivos en c:\\Oracle\\product\\10.1.0\\Client_1\\BIN\\ solo tengo las siguientes DLL:\n\nOraOLEDB10.dll\nOraOLEDB10.tlb\nOraOLEDB10e.dll\nOraOLEDB10us.dll\nOraOLEDBgmr10.dll\nOraOLEDBpus10.dll\nOraOLEDBrfc10.dll\nOraOLEDBrmc10.dll\nOraOLEDBrst10.dll\nOraOLEDButl10.dll\n\nComo pueden notar estoy usando OLE DB de Oracle.\n\nDe antemano agradezco la ayuda.\n\nSaludos,\nMario A. Dávalos\nMéxico, D.F.','',0,'gA==','2y8e7c8q',1,0,'',931,0,0),(45742,9516,3,35,0,'65.188.6.143',1199838900,1,0,1,1,1,0,'','','Jose\n\nI still use the ole 16 bit Borland Resource editor .. still works great ( works even with 32 bit Vista ) but is showing its age .. especially if 64 bit becomes more of a player .. 16 bit will no longer be supported under 64 bit.\n\nUntil then I have googled \'resource\' editors .. have previewed a lot of them .. all seem to have one flaw or another  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nRick Lipkin','',0,'gA==','21f2o9tk',1,0,'',35,0,0),(45743,9528,6,1114,0,'190.19.118.83',1199840025,1,0,1,1,1,0,'','COMO PUEDO BORRAR MULTIPLES ARCHIVOS *.DBF','Estimado Colegas\n\nNecesito  borrar unas cuantas DBFs temporales del disco, alguien\nme podria indicar como hacerlo   \n\nGracias\nFabian\n<!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e -->','',0,'gA==','ccqkm9p3',1,0,'',1114,0,0),(45744,9522,3,1193,0,'203.73.9.237',1199843429,1,0,1,1,1,0,'','','[quote=&quot;Rossine&quot;:9ekga24i]Hello,\n\nSee this: [url:9ekga24i]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=3623&amp;highlight=tooltip[/url:9ekga24i]\n\nRegards,\n\nRossine.[/quote:9ekga24i]\n\nHi Rossine,\n\nI use your some solutions(Folder within ICON,Title+icon of Tooltip) very nice. Good job.\n\nRegards,\n\nRichard','',0,'kA==','9ekga24i',1,0,'',1193,0,0),(45745,9499,3,233,0,'218.111.61.90',1199844851,1,0,1,1,1,0,'','','James, Stefan, Antonio,\n  Thanks for the input  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> . Will give it a try later on','',0,'kA==','1dbgmybz',1,0,'',233,0,0),(45746,9529,3,239,0,'219.137.198.219',1199847187,1,0,1,1,1,0,'','Ttabctrl class add() error','Antonio,\n   Ttabcltrl class , add() method not add to  data aprompts.\nBest regard!\n  Shuming Wang','',0,'kA==','26ybo5dc',1,0,'',239,0,0),(45747,9530,17,239,0,'219.137.198.219',1199847296,1,0,1,1,1,0,'','Clipper 5.3,Fivewin,harbour www online NG  (Help,Manual)','<!-- m --><a class=\"postlink\" href=\"http://www.itlnet.net/programming/program/Reference/c53g01c/menu.html\">http://www.itlnet.net/programming/progr ... /menu.html</a><!-- m -->\r\n\r\n<!-- m --><a class=\"postlink\" href=\"http://www.ousob.com/norton.php\">http://www.ousob.com/norton.php</a><!-- m -->','',0,'kA==','2459se8t',1,0,'',239,0,0),(45748,8367,6,9,0,'85.59.186.228',1199855048,1,0,1,1,1,1,'','','[quote=&quot;MarioDava&quot;:21pnx3bl]Me puedes explicar un poco que es:\nLocal cProv  := \"MSDAORA.1\"\n[/quote:21pnx3bl]\n\nMSDAORA.1 es el provider OLE estandar de Microsoft para acceder a una base de datos Oracle, aunque el mismo Oracle tiene otro provider-OLE propio. Si usas la función siguiente (cortesía de Biel), puedes probar si la conexión es correcta, usando el Datalink de Microsoft.\n\nstatic FUNCTION FDATALINK (oCon)\nLOCAL oDataLink := TOleAuto():New(\"Datalinks\"), ;\n   oConn := oDataLink:PromptNew()\n\n   msginfo (oConn:ConnectionString)\n   oCon:CLOSE()\n\nRETURN nil','',0,'gA==','21pnx3bl',1,0,'',9,0,0),(45749,9531,3,233,0,'218.111.61.90',1199861797,1,0,1,1,1,0,'','FWH8.01: oBar:disable() doesn\'t grey out oBar buttons','The aforementioned oBar was created with the new [b:2sfgc17r][i:2sfgc17r]2007[/i:2sfgc17r][/b:2sfgc17r] syntax. When oBar:disable() was invoked, the bar is disabled, just that visually, nothing changes.  Any workaround <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nTIA','',0,'YA==','2sfgc17r',1,0,'',233,0,0),(45750,9529,3,49,0,'213.82.134.66',1199864699,1,0,1,1,1,1,'','','wich version you have ?\n\nOn 7.12 run ok','',0,'YA==','2cmnofxu',1,0,'',49,0,0),(45751,9524,6,24,0,'80.24.12.168',1199866918,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1kp71ax7]Rafa,\n\nAñade estas líneas:\n\n      REQUEST HB_GT_GUI\n      procedure HB_GTSYS() ; return\n      procedure HB_GT_GUI_DEFAULT() ; return \n\nEsto es sólo para las versiones recientes de Harbour. FWH las añade por defecto si usas el ErrorSys propio de FWH[/quote:1kp71ax7]\nOstras, acabo de poner lo que me comentas, pero ahora me sale, lo mismo, pero en otro PRG, no entiendo nada, en serio;\nMi librerias de compilacion son;\n[code:1kp71ax7]\nC&#58;\\HARBOUR\\LIB\\RTL&#46;lib + \nC&#58;\\HARBOUR\\LIB\\VM&#46;lib + \nC&#58;\\HARBOUR\\LIB\\GTGUI&#46;lib + \nC&#58;\\HARBOUR\\LIB\\LANG&#46;lib + \nC&#58;\\HARBOUR\\LIB\\MACRO&#46;lib + \nC&#58;\\HARBOUR\\LIB\\RDD&#46;lib + \nC&#58;\\HARBOUR\\LIB\\DBFNTX&#46;lib + \nC&#58;\\HARBOUR\\LIB\\HBSIX&#46;lib + \nC&#58;\\HARBOUR\\LIB\\dbfcdx&#46;lib + \nC&#58;\\HARBOUR\\LIB\\dbffpt&#46;lib + \nC&#58;\\HARBOUR\\LIB\\debug&#46;lib + \nC&#58;\\HARBOUR\\LIB\\COMMON&#46;lib + \nC&#58;\\HARBOUR\\LIB\\pcrepos&#46;lib + \nC&#58;\\HARBOUR\\LIB\\PP&#46;lib + \nc&#58;\\harbour\\lib\\hbwin32&#46;lib + \nC&#58;\\HARBOUR\\LIB\\ct&#46;lib + \nC&#58;\\BCC55\\LIB\\CW32&#46;lib + \nC&#58;\\BCC55\\LIB\\IMPORT32&#46;lib + \nC&#58;\\BCC55\\LIB\\psdk\\odbc32&#46;lib + \nC&#58;\\BCC55\\LIB\\psdk\\rasapi32&#46;lib + \nC&#58;\\BCC55\\LIB\\psdk\\nddeapi&#46;lib + \nC&#58;\\BCC55\\LIB\\psdk\\iphlpapi&#46;lib +\nC&#58;\\BCC55\\LIB\\psdk\\msimg32&#46;lib\n[/code:1kp71ax7]\n¿ Crees que falta alguna cosa ?','',0,'gIA=','1kp71ax7',1,0,'',24,0,0),(45752,9521,17,24,0,'80.24.12.168',1199867387,1,0,1,1,1,1,'','Re: TBUSCADOR. Update a FWH 7.12','[quote=&quot;jose_murugosa&quot;:2yl6etf0]\nEsta clase está disponible?\nDe donde se puede descargar?\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:2yl6etf0]\n\nPues estaba en un CVS de xBase que montemos entre usuarios de xBase,\ny creo que estaba corriendo por las antiguas news.\n\nSi quieres te la envio por correo, y ya la dejas tu por aqui, es que no tengo ni idea de como funciona el subir archivos aqui.','',0,'gA==','2yl6etf0',1,0,'',24,0,0),(45753,9528,6,456,0,'217.127.39.57',1199867680,1,0,1,1,1,1,'','','[code:3rtiekrm]\naFile&#58;=Directory&#40;&quot;*&#46;dbf&quot;&#41;  //puedes usar patrones de busqueda &quot;tmp???*&#46;dbf&quot; &quot;tmp*&#46;dbf&quot; etc\naEval&#40;aFile,&#123;|a| fErase&#40;a&#91;1&#93;&#41;&#125;&#41;\n[/code:3rtiekrm]','',0,'AIA=','3rtiekrm',1,0,'',456,0,0),(45754,9524,6,2,0,'87.218.146.121',1199868396,1,0,1,1,1,1,'','','Rafa,\n\nLas librerías estan bien. En que PRG te sale el error ?','',0,'AIA=','1zbppmf7',1,0,'',2,0,0),(45755,9524,6,24,0,'80.24.12.168',1199868956,1,0,1,1,1,1,'','RE: Solucionado','Antonio, joder, que peligro que tiene el Copy/Paste.\nHabia copia el Make de xHarbour que usaba, y cambie TODAS las librerias propias, EXCEPTO LAS DE FIVEWIN! Estaba usando la de xHarbour a la hora de linkar en vez de la de Harbour.\n\nPero una vez vuelto a compilar, la llamada a mi ejecutable NO MUESTRA NADA, lo llamo desde la consola, y vuelve otra vez al prompt del sistema.\n\nEntonces quito las lineas que me has comentado, y et voila! funciona sin problemas.\n\n¿ Puedes iluminar mi mente del porque esto ?\n\nAntonio, seria interesante hacer un foro sobre F.AQ , tanto de Harbour como de Fivewin, ¿ Que te parece ?','',0,'AIA=','vi1d8xqp',1,0,'',24,0,0),(45756,9516,3,131,0,'194.179.55.36',1199869635,1,0,1,1,1,0,'','','Kleyber:\nI have tried xDevStudio, and it\'s a very good editor. My problem it\'s about the language, I don\'t understand portuguese. I think that an english version of the editor will be a good solution. \n\nRick:\nI use PellesC as resource editor, it\'s the best free resource editor I\'ve found. PellesC it\'s a C compiler, and the RE is part of the IDE, and you can download from <!-- w --><a class=\"postlink\" href=\"http://www.smorgasbordet.com/pellesc/\">www.smorgasbordet.com/pellesc/</a><!-- w --> . There is another one that seems also be very good, called ResEdit, and can be downloaded from <!-- m --><a class=\"postlink\" href=\"http://www.resedit.net\">http://www.resedit.net</a><!-- m -->\nAs a code editor I use MED - <!-- m --><a class=\"postlink\" href=\"http://www.med-editor.com\">http://www.med-editor.com</a><!-- m --> - and HippoEDIT - <!-- m --><a class=\"postlink\" href=\"http://www.hippoedit.com\">http://www.hippoedit.com</a><!-- m --> -. HE as the best autocomplete feature I\'ve ever seen, and this feature is very helpfull. The problem with HE is that uses a xml syntax definition to highlight the code, and my syntax file makes the editor crashes with some files. I\'m talking with the developer to solve this, because HE is the best editor I\'ve ever used. I\'m also trying UltraEdit, but I don\'t have more time to learn to use some features.\n\nWhat code editor are you using ?\n\nRegards,\nJosé Luis\n\nRegards,','',0,'AIA=','3uc1yumv',1,0,'',131,0,0),(45757,9524,6,2,0,'87.218.146.121',1199870619,1,0,1,1,1,1,'','','Rafa,\n\n&gt;\nEntonces quito las lineas que me has comentado, y et voila! funciona sin problemas. \n\n¿ Puedes iluminar mi mente del porque esto ? \n&gt;\n\nSi estás usando el Harbour proporcionado con FWH, y el errorsys de FWH, no necesitas esas líneas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;\nAntonio, seria interesante hacer un foro sobre F.AQ , tanto de Harbour como de Fivewin, ¿ Que te parece ?\n&gt;\n\nUna búsqueda en estos foros es el mejor FAQ <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','kaqinpxt',1,0,'',2,0,0),(45758,9521,17,439,0,'190.64.66.238',1199870992,1,0,1,1,1,1,'','Re: TBUSCADOR. Update a FWH 7.12','[quote=&quot;thefull&quot;:2wzgkwzf][quote=&quot;jose_murugosa&quot;:2wzgkwzf]\nEsta clase está disponible?\nDe donde se puede descargar?\n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->[/quote:2wzgkwzf]\n\nPues estaba en un CVS de xBase que montemos entre usuarios de xBase,\ny creo que estaba corriendo por las antiguas news.\n\nSi quieres te la envio por correo, y ya la dejas tu por aqui, es que no tengo ni idea de como funciona el subir archivos aqui.[/quote:2wzgkwzf]\n\nPor favor!!\nCon gusto la pondré en utilidades a disposición de todos.','',0,'gA==','2wzgkwzf',1,0,'',439,0,0),(45759,9524,6,24,0,'80.24.12.168',1199871747,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ignwvwd]Rafa,\n\n&gt;\nEntonces quito las lineas que me has comentado, y et voila! funciona sin problemas. \n\n¿ Puedes iluminar mi mente del porque esto ? \n&gt;\n\nSi estás usando el Harbour proporcionado con FWH, y el errorsys de FWH, no necesitas esas líneas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;\nAntonio, seria interesante hacer un foro sobre F.AQ , tanto de Harbour como de Fivewin, ¿ Que te parece ?\n&gt;\n\nUna búsqueda en estos foros es el mejor FAQ <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:1ignwvwd]\n\nAntonio, busca _GT, si encuentras algo me lo haces saber, porque he realizado esa busqueda , logicamente habia reportado ya el problema, y no devolvía nada, tenia que poner _HB_FUN_FW_GT para que saliera algo.\nHe probado con *GT GT* *GT*, y nada....','',0,'gA==','1ignwvwd',1,0,'',24,0,0),(45760,9524,6,2,0,'87.218.146.121',1199872807,1,0,1,1,1,1,'','','Rafa,\n\nFiveWin.ch solicita (REQUEST) el enlazado de FW_GT para asegurarse de que esas líneas que te he comentado se enlacen.\n\nEsto se debe a cambios recientes en el sistema GT de Harbour, ya que de no hacerse así, la aplicación no muestra nada','',0,'gA==','1j0h0bdr',1,0,'',2,0,0),(45761,9318,23,58,0,'84.149.67.66',1199875399,1,0,1,1,1,0,'','','Hallo allerseits,\n\nbin immer noch der Meinung, Probleme mit FiveWin/xHarbour im\nEnglischen Forum zu diskutieren damit alle was davon haben.\n\nAber ich finde Norberts Vorschlag gut, unsere Projekte und Erfahrungen mit diesen Tools auszutauschen.\n\nDa ich fest für meinen Arbeitgeber programmiere, habe ich allerdings keine Universallösungen zu bieten.\nSämtliche Programme sind an unsere Abläufe angepasst und schwer zu übernehmen.\n\nAber zu grundsätzliche Lösungen mit FiveWin oder TsBrowse u.ä. könnte ich schon beitragen.\n\nGruß,\nDetlef\n\np.s.\nSpeziellen Gruß an Norbert; wohne in Fürth und habe gesehen, Du wohnst in Kalchreuth, wo ich jedes Frühjahr die Kirschblüte bewundere.','',0,'gA==','2eq4jpwd',1,0,'',58,0,0),(45762,9516,3,6,0,'87.1.198.99',1199876763,1,0,1,1,1,1,'','','[quote=&quot;José Luis Sánchez&quot;:2sgcyecg]I use PellesC as resource editor, it\'s the best free resource editor I\'ve found.[/quote:2sgcyecg]\n\nIt seems that RES created with PellesC resource editor have some problems to be used with Borland C++.\n\nEMG','',0,'gA==','2sgcyecg',1,0,'',6,0,0),(45763,9318,23,308,0,'84.148.20.172',1199877026,1,0,1,1,1,0,'','','Hallo Detlef,\n\n[quote=&quot;Detlef Hoefner&quot;:2wvq2xh7]bin immer noch der Meinung, Probleme mit FiveWin/xHarbour im Englischen Forum zu diskutieren damit alle was davon haben.[/quote:2wvq2xh7]\nKlaro, da macht es die Masse. Dieses Forum soll und kann ja auch die anderen nicht ersetzen. Ich denke aber, dass wir mit dem German-Forum einfach Potentiale brach liegen lassen.\n\n[quote=&quot;Detlef Hoefner&quot;:2wvq2xh7]Aber zu grundsätzliche Lösungen mit FiveWin oder TsBrowse u.ä. könnte ich schon beitragen.[/quote:2wvq2xh7]\nTsBrowse, da haben wir schon ein Thema, dass mich auch sehr interessiert. Ich arbeite selbst damit und habe da schon einiges dazu erweitert.\n\n[quote=&quot;Detlef Hoefner&quot;:2wvq2xh7]Speziellen Gruß an Norbert; wohne in Fürth und habe gesehen, Du wohnst in Kalchreuth, wo ich jedes Frühjahr die Kirschblüte bewundere.[/quote:2wvq2xh7]\nDa sind wir ja wirklich nur einen Steinwurf voneinander entfernt <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nIch habe jetzt mal in einem separaten Topic mein aktuelles Projekt vorgestellt. Wenn Ihr darin Lösungen findet, die Ihr auch sucht - meldet Euch.\n\nGruss, Norbert','',0,'gA==','2wvq2xh7',1,0,'',308,0,0),(45764,9532,3,247,0,'83.171.242.103',1199878524,1,0,1,1,1,0,'','TXBrowse and Filters','Happy new year to all.\n\nHow can i modify bskip , bgotop,bgobottom etc. and make my TXBrowse show only the record i want to see?\n\ne.g.\nCode     Descr\n1           ASK\n2           Fivetech\n3           Software\n4           Test\n\nhow can i show code&gt;=2 .and. code&lt;=3 ? I DON\'T WANT TO USE Setfilter or Ordscope commands.\n\nThank in advance\n\nA.S.K.\n\n ','',0,'QA==','2m7tquel',1,0,'',247,0,0),(45765,9532,3,1257,0,'195.93.60.7',1199879613,1,0,1,1,1,1,'','Filter in XBrowse','The best way is, to convert ( if you still using NTX )\nto CDX ( Foxpro ).\nThere is a SCOPE-call ( filter ) for the Index.\nThat means, when you change the record-position in your \nbrowser, you see only the records, you defined in the SCOPE.\nIn my sample-collection for xBrowse ( in a few days )\nyou can see, how it works.\n\nU. König','',0,'QA==','39twwnb5',1,0,'',1257,0,0),(45766,9509,6,430,0,'157.100.146.2',1199882075,1,0,1,1,1,0,'','','Karinha, Antonio\n\nAgradezco mucho su respuesta y no dudo que su sugerencia va a ayudarme a futuro, lamentablemente una vez corregido el asunto de :Enable <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable y puestos con las clausula ON INT el error de \"Harbour Excetion\" se mantiene.\n\nTengo otras rutinas dentro del programa donde también tenía los :Enable <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable antes del ACTIVATE DIALOG y ahí no me da error; por tanto el error debe generarse por otra causa.\n\nLes ruego su ayuda realizando una nueva revisión a mi código para ubicar cual es la causa correcta del error.','',0,'QA==','4stxetoe',1,0,'',430,0,0),(45767,9531,3,1193,0,'203.73.82.85',1199882525,1,0,1,1,1,0,'','','Hi\n\nYou mean disable button of bitmap color?\nif yes, please look it.\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8804&amp;start=0&amp;postdays=0&amp;postorder=asc&amp;highlight=\">http://fivetechsoft.com/forums/viewtopi ... highlight=</a><!-- m -->\n\nRegards,\n\nRichard','',0,'QA==','2o3l00gd',1,0,'',1193,0,0),(45768,9509,6,103,0,'189.12.219.53',1199882670,1,0,1,1,1,1,'','','Hola Fernando,\n\n     Una buena idea para se descobrir el error seria usar el DEBUG, pero como no esta muy confiable, podrias hacer lo siguiente: Comentar las lineas de tu rutina y descomentar blocos de lineas a ver donde se genera el error. Logicamente que debes mantener el ACTIVATE DIALOG.\n\n    Solo una sugerencia,\n\nSaludos,','',0,'QA==','fdzua684',1,0,'',103,0,0),(45769,9516,3,1158,0,'200.159.198.154',1199883128,1,0,1,1,1,0,'','','hi, patrick´s ide dont work?? he says dont compile with last fwh because dont have this??? i dont understand...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.geocities.com/ksfanhk/index.htm\">http://www.geocities.com/ksfanhk/index.htm</a><!-- m -->\n\nquote\n\nJkide32.exe is still built with the modified xHarbour 0.99.70 CVS (29/12/06) and FWH 2.4  because I don\'t have any newer FWH release. \n\nendquote','',0,'QA==','2e3r81ra',1,0,'',1158,0,0),(45770,9533,6,180,0,'193.152.134.26',1199885573,1,0,1,1,1,0,'','oGet : Seleccionar todo','En un objeto GET necesito que, al tomar el foco, se quede todo seleccionado, al igual que hace el submenú del oGet \"Seleccionar todo\". \nHe probado con oGet:bGotFocus = { || oGet:SelectAll() } pero no funciona.\n\nUtilizo FWH 2.8 y xHarbour 0.99.61','',0,'QA==','2xyc4jef',1,0,'',180,0,0),(45771,9516,3,35,0,'167.7.140.254',1199885938,1,0,1,1,1,0,'','','Jose, Enrico and Norberto\n\nJose .. I use xMate as my project manager, make utility and editor .. \n\nEnrico .. I have problems like you with the Pelles C resource editor .. as you mentioned .. .res has problems and if you use .rc .. you have to delete out the #include statements\n\nNorberto .. Patrick\'s IDE has virture .. however ( like all ide\'s ) I like to write my own code and not have the resource editor write it\'s \'methods\' in the .prg every time I lay down a button ... \n\nThanks\nRick Lipkin','',0,'QA==','1684lvew',1,0,'',35,0,0),(45772,9516,3,2,0,'87.218.146.121',1199887100,1,0,1,1,1,1,'','','Roberto,\n\nPatrick can buy upgrades from <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w -->','',0,'QA==','192fu1ng',1,0,'',2,0,0),(45773,9509,6,2,0,'87.218.146.121',1199887674,1,0,1,1,1,1,'','','Fernando,\n\nte sugiero igual que Kleyber. Situa diversos MsgInfo() para saber de donde proviene el GPF','',0,'QA==','23jyz4py',1,0,'',2,0,0),(45774,9533,6,362,0,'200.158.19.36',1199888461,1,0,1,1,1,1,'','Re: oGet : Seleccionar todo','[quote=&quot;Manuel Aranda&quot;:bxmf2qpk]En un objeto GET necesito que, al tomar el foco, se quede todo seleccionado, al igual que hace el submenú del oGet \"Seleccionar todo\". \nHe probado con oGet:bGotFocus = { || oGet:SelectAll() } pero no funciona.\n\nUtilizo FWH 2.8 y xHarbour 0.99.61[/quote:bxmf2qpk]\n\n\n// Testing a GET\n\n#include \"FiveWin.ch\"\n[code:bxmf2qpk]\n//------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg\n   local dDay &#58;= Date&#40;&#41;\n   local oGet\n\n   DEFINE DIALOG oDlg TITLE &quot;Just a get&quot;\n\n   @ 2,  2 SAY &quot;Date&#58;&quot; OF oDlg\n   @ 2,  6 GET oGet VAR dDay OF oDlg SIZE 40, 10 SPINNER ;\n      VALID ! Empty&#40; dDay &#41;\n\n   @ 3,  7 BUTTON &quot;&amp;Ok&quot; OF oDlg SIZE 30, 12 ACTION oDlg&#58;End&#40;&#41;\n   @ 3, 16 BUTTON &quot;&amp;Cancel&quot; SIZE 30, 12 OF oDlg ACTION oDlg&#58;End&#40;&#41; CANCEL\n\n   oGet&#58;bGotFocus &#58;= &#123; || oGet&#58;SelectAll&#40;&#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//------------------------------------------------------------------------//\n\nprocedure AppSys   // Xbase++ requirement\n\nreturn\n\n//------------------------------------------------------------------------//\n\n#ifdef __XPP__\n   #define GetNew _GetNew\n#endif\n\nCLASS TClipGet FROM Get\n\n   METHOD Display&#40;&#41; VIRTUAL\n\nENDCLASS\n\n//---------------------------------------------------------------------------//\n\nfunction GetNew&#40; nRow, nCol, bVarBlock, cVarName, cPicture, cColor &#41;\n\nreturn TClipGet&#40;&#41;&#58;New&#40; nRow, nCol, bVarBlock, cVarName, cPicture, cColor &#41;\n\n//---------------------------------------------------------------------------//\n[/code:bxmf2qpk]\n\nSaludos','',0,'gIA=','bxmf2qpk',1,0,'',362,0,0),(45775,9534,6,1264,0,'64.76.128.19',1199888610,1,0,1,1,1,0,'','REPORTES CRYSTAL CON PARAMETROS','Hola \n\nEstoy probando la clase TCRW (Tom Groeger) para utilizar reportes creados con crystal desde fivewin harbour 2.4 y me encuentro con la duda de como pasarle parametros a dicho reporte pero desde Fivewin. \nUtilizo Crystal 9.0 , espero me ayuden a depejar esta duda \n\nSaludos y muchas gracias \n\n\nMartin','',0,'gIA=','18xa5eat',1,0,'',1264,0,0),(45776,9534,6,362,0,'200.158.19.36',1199890464,1,0,1,1,1,1,'','','HACES UNA BUSQUEDA POR \"CRYSTAL R\".\n\nSaludos.','',0,'gIA=','qdy874f6',1,0,'',362,0,0),(45777,8842,3,448,0,'82.155.6.18',1199890610,1,0,1,1,1,0,'','','Hello,\n\nI return to same problem because using OrdKeyNo in a network the application is crawling. Without it it works great!. However the users are claiming for a 2 colors lines.\nHow can I solve it ?\n\nAny ideas ?\n\nAntonio','',0,'gIA=','h5i39acu',1,0,'',448,0,0),(45778,9535,3,1154,0,'217.37.54.49',1199894355,1,0,1,1,1,0,'','GetPVProfString and Double Quotes (&quot;)','Hi everyone,\n\nI\'m using GetPVProfString to return an entry from an ini file that contains double quotes (\").  However the function is stripping off the quotes and just returning the data within the quotes.\n\nAn example:\n[code:il059qz3]&#91;Test&#93;\nEntry=&quot;&#58;&quot;[/code:il059qz3]\nGetPVProfString returns this entry as : and not \":\".\n\nIf I add extra single quotes to the ini file entry:\n[code:il059qz3]&#91;Test&#93;\nEntry=\'&quot;&#58;&quot;\'[/code:il059qz3]\nThis returns \":\".\n\nI can use the second method as a work-around for now but would prefer to keep my ini file entries as simple as possible.\n\nIs this how the function is supposed to work or is it a bug?\n\nKind regards,\n\nBarry O\'Brien','',0,'AIA=','il059qz3',1,0,'',1154,0,0),(45779,9516,3,1158,0,'200.159.198.154',1199895403,1,0,1,1,1,0,'','','Antonio, sorry, now i understand.','',0,'AIA=','2hp8geek',1,0,'',1158,0,0),(45780,9532,3,58,0,'84.149.82.200',1199895495,1,0,1,1,1,0,'','','in xHarbour you can use dbfScope functions even with dbfntx rdd.\nNo need to change to another rdd.\n\nRegards,\nDetlef','',0,'AIA=','m0hgeu8r',1,0,'',58,0,0),(45781,8842,3,303,0,'72.220.181.80',1199896123,1,0,1,1,1,0,'','','AHF,\n\nThere are two solutions above that don\'t use OrdKeyNo(), have you tried them?\n\nJames','',0,'AIA=','1lu77l01',1,0,'',303,0,0),(45782,9535,3,303,0,'72.220.181.80',1199896316,1,0,1,1,1,0,'','','Barry,\n\n&gt;Is this how the function is supposed to work or is it a bug? \n\nI belive this is how it is supposed to work--so you can tell numbers from strings. E.G.\n\nEntry=\"888\"\n\nEntry=888\n\nRegards\nJames','',0,'AIA=','d2r7lsho',1,0,'',303,0,0),(45783,8842,3,448,0,'82.155.6.18',1199896533,1,0,1,1,1,0,'','','James,\n\nYes. \nThe problem with those solutions  is when you begin to skip over the last visible line of the browse (line by line) you always get the smae rownr and it stops working.\nIt only works when you repaint all the browse. (pg up or down)\n\nAntonio','',0,'AIA=','l37trla3',1,0,'',448,0,0),(45784,9532,3,303,0,'72.220.181.80',1199896540,1,0,1,1,1,0,'','','ASK,\n\nWhy would you not want to use scopes? That is what they are for.\n\nRegards,\nJames','',0,'AIA=','2mrri9ts',1,0,'',303,0,0),(45785,9536,6,1173,0,'190.6.194.126',1199896556,1,0,1,1,1,1,'','Aun tengo el problema','Del foro he sacado varias ideas, y las he combinado:\n\n[code:249z7whg] /*\n	FUNCION ESTATICA SoliAcces&#40;&#41;\n	Dialogo que validar las cuentas de usuarios para ingresar al sistema\n*/	\nSTATIC FUNCTION SoliAcces&#40;&#41;\n\n	LOCAL oDClave, oBrush, oGet&#91;2&#93;\n\n	MEMVAR oApp\n\n	oApp&#58;cUsuario &#58;= SPACE&#40;10&#41; \n	oApp&#58;cClave   &#58;= SPACE&#40;6&#41;\n   oApp&#58;lLogID   &#58;= &#46;F&#46;\n   \n   DEFINE BRUSH  oBrush COLOR oApp&#58;Color2007\n	DEFINE DIALOG oDClave RESOURCE &quot;DLG_ACCESO&quot; HELPID 2 ;\n	       BRUSH  oBrush TRANSPARENT\n\n   REDEFINE GET oGet&#91;1&#93; VAR oApp&#58;cUsuario ID 2 OF oDClave UPDATE PICTURE &quot;@!&quot;\n   REDEFINE GET oGet&#91;2&#93; VAR oApp&#58;cClave   ID 3 OF oDClave UPDATE PICTURE &quot;@!&quot; \n\n   ACTIVATE DIALOG oDClave CENTERED ;\n            ON INIT AccToolBar&#40; oDClave &#41; VALID &#40; oBrush&#58;End&#40;&#41;, &#46;T&#46;&#41;\n\n	oApp&#58;aDerechos = DerechUser&#40; oApp&#58;cUsuario &#41;\n\n	RETURN oApp&#58;lLogID\n\n\n/*\n	FUNCION ESTATICA AccToolBar&#40;&#41;\n	Agrega la barra de herramientas al dialogo\n*/\nSTATIC FUNCTION AccToolBar&#40; oDClave &#41;\n\n   LOCAL oBar\n\n   DEFINE BUTTONBAR oBar SIZE 35, 35 DIALOG oDClave 2007\n\n   DEFINE BUTTON OF oBar NAME &quot;Clave&quot;  TOOLTIP &quot;Validar datos&quot; ;\n      ACTION IF&#40; ValidaClave&#40;&#41;, oDClave&#58;End&#40;&#41;, &#46;T&#46; &#41;\n   DEFINE BUTTON OF oBar NAME &quot;Salir&quot;  TOOLTIP &quot;Salir&quot; ;\n      ACTION oDClave&#58;End&#40;&#41; GROUP\n\n   RETURN NIL\n [/code:249z7whg]\n\nAl definir el BUTTONBAR directamente en la funcion del dialogo me de todo tipo de errores, y en el foro encontre el poner la BUTTONBAR fuera.\n\nAgradeciendo de antemano su ayuda  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','249z7whg',1,0,'',1173,0,0),(45786,8842,3,303,0,'72.220.181.80',1199896622,1,0,1,1,1,0,'','','AHF,\n\n&gt;The problem with those solutions is when you begin to skip over the last visible line of the browse (line by line) you always get the smae rownr and it stops working. \nIt only works when you repaint all the browse. (pg up or down) \n\nI have never had that problem. Can we see the code you are using?\n\nJames','',0,'AIA=','1zct6r6t',1,0,'',303,0,0),(45787,9536,6,1173,0,'190.6.194.126',1199897539,1,0,1,1,1,1,'','','Al aparecer el mensaje de mayusculas, y el GET estar con password, los iconos de la BUTTONBAR, desaparecen y al pasar el mouse sobre ellos se realiza el repintado, no de otra manera\n\nSaludos desde Honduras','',0,'AIA=','ymbibgg9',1,0,'',1173,0,0),(45788,9536,6,1173,0,'190.6.194.126',1199897700,1,0,1,1,1,1,'','','Por cierto estoy usando la FiveWin 7.11 y xHarbour 0.9971','',0,'AIA=','1k7lprrg',1,0,'',1173,0,0),(45789,9537,22,456,0,'217.127.39.57',1199897819,1,0,1,1,1,1,'','Metodo ADD de la clase TTreeView','Creo que seria practico poderle pasar el parametro cargo al metodo Add de la clase tTreeView, y este metodo a su vez lo pasase al crear el tTvItem. \nTendria la misma funcionalidad que el metodo Add de la clase tTvItem\n[code:33fsdiq2]\nCLASS TTreeView FROM TControl\n&#46;&#46;&#46;\nMETHOD Add&#40; cPrompt, nImage , Cargo&#41;\n&#46;&#46;&#46;\n\nMETHOD Add&#40; cPrompt, nImage, Cargo &#41; CLASS TTreeView\n\n   local oItem\n\n   oItem &#58;= TTVItem&#40;&#41;&#58;New&#40; TVInsertItem&#40; &#58;&#58;hWnd, cPrompt,, nImage &#41;, Self &#41;\n\n   oItem&#58;cPrompt &#58;= cPrompt\n   oItem&#58;nImage  &#58;= nImage\n   oItem&#58;Cargo    &#58;= Cargo    //&lt;===\n   AAdd&#40; &#58;&#58;aItems, oItem &#41;\n\nreturn oItem[/code:33fsdiq2]','',0,'AIA=','33fsdiq2',1,0,'',456,0,0),(45790,8842,3,303,0,'72.220.181.80',1199898212,1,0,1,1,1,0,'','','AHF,\n\nBelow is a working example. Use it with the fw\\samples\\customer.dbf file.\n\nRegards,\nJames\n\n[code:3drmee7i]// Purpose &#58; Sample TCBrowse with alternating color rows\n// Author  &#58; James Bott\n// Date    &#58; 1/9/2008\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;TCBrowse&#46;ch&quot;    // &lt;-- Important\n\nfunction main&#40;&#41;\n   local oWnd, oCustomer, oBrw, lClrFlag\n\n   use customer\n   database oCustomer\n\n   define window oWnd title &quot;TCBrowse Test&quot;\n\n   @ 0,0 browse oBrw of oWnd update\n\n   oBrw&#58;setoDBF&#40; oCustomer &#41;\n   oBrw&#58;cAlias &#58;= oCustomer&#58;cAlias // required\n\n   add column to browse oBrw field first\n\n   add column to browse oBrw field last\n\n   lClrFlag&#58;=&#46;f&#46;\n\n   oBrw&#58;bSkip&#58;=&#123;| nRecs | &#40;nRecs&#58;= oCustomer&#58;skipper&#40; nRecs &#41;, lClrFlag&#58;=if&#40;nRecs/2 = int&#40;nRecs/2&#41;, lClrFlag,!lClrFlag&#41;, nRecs&#41; &#125;\n\n   oBrw&#58;nClrPane &#58;= &#123; || if&#40;lClrFlag, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125;\n\n   oWnd&#58;oClient&#58;=oBrw\n\n   activate window oWnd\n\nreturn nil[/code:3drmee7i]','',0,'AIA=','3drmee7i',1,0,'',303,0,0),(45791,9535,3,1154,0,'217.37.54.49',1199898775,1,0,1,1,1,0,'','','Hi James,\n\n[quote:2pn88yk8]I belive this is how it is supposed to work--so you can tell numbers from strings.[/quote:2pn88yk8]\n\nThere is another function GetPVProfInt() for returning integers.  I thought that GetPVProfString() would return the entire value of an entry as a string, regardless of quotes or any odd characters it might contain.\n\nThen again, quotes within strings have always been a bit of a mine-field in any language! <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nKind regards,\n\nBarry O\'Brien','',0,'gA==','2pn88yk8',1,0,'',1154,0,0),(45792,9532,3,456,0,'217.127.39.57',1199898898,1,0,1,1,1,1,'','','Like other have suggested, I thing the best and easy solution is using scopes.\n\nIf you still don\'t want to use scope, can do it this way. \n\n[code:8reu7ads]\n&#46;&#46;&#46;\n   oBrw&#58;bGoTop    &#58;= &#123; ||  TopFil&#40; cAlias, cClave &#41; &#125;\n   oBrw&#58;bGoBottom &#58;= &#123; ||  Botfil&#40; cAlias, cClave &#41; &#125;\n   oBrw&#58;bSkip     &#58;= &#123; | n | SkipFil&#40; cAlias, cClave, n &#41; &#125;\n&#46;&#46;&#46;\n//---------------------------------\nFUNCTION SkipFil&#40; cAlias, cKey, nReg &#41;\n//---------------------------------\n   LOCAL nNext &#58;= 0\n   DEFAULT nReg &#58;= 1\n   IF nReg = 0 &#46;OR&#46; &#40; cAlias &#41; -&gt;&#40; LastRec&#40;&#41; &#41; = 0 &#46;OR&#46; ! &#40; &amp;&#40; &#40; cAlias &#41; -&gt;&#40; IndexKey&#40; 0 &#41; &#41; &#41; = cKey &#41;\n      &#40; cAlias &#41; -&gt;&#40; DBSkip&#40; 0 &#41; &#41;\n   ELSEIF nReg &gt; 0 &#46;AND&#46; &#40; cAlias &#41; -&gt;&#40; RecNo&#40;&#41; &#41; &lt;&gt; &#40; cAlias &#41; -&gt;&#40; LastRec&#40;&#41; &#41; + 1\n      DO WHILE nNext &lt;= nReg &#46;AND&#46; ! &#40; cAlias &#41; -&gt;&#40; Eof&#40;&#41; &#41; &#46;AND&#46; &amp;&#40; &#40; cAlias &#41; -&gt;&#40; IndexKey&#40; 0 &#41; &#41; &#41; = cKey\n         &#40; cAlias &#41; -&gt;&#40; DBSkip&#40;&#41; &#41;\n         nNext ++\n      ENDDO\n      &#40; cAlias &#41; -&gt;&#40; DBSkip&#40; - 1 &#41; &#41;\n      nNext --\n   ELSEIF nReg &lt; 0\n      DO WHILE nNext &gt;= nReg &#46;AND&#46; ! Bof&#40;&#41; &#46;AND&#46; &amp;&#40; &#40; cAlias &#41; -&gt;&#40; IndexKey&#40; 0 &#41; &#41; &#41; = cKey\n         &#40; cAlias &#41; -&gt;&#40; DBSkip&#40; - 1 &#41; &#41;\n         nNext --\n      ENDDO\n      IF ! Bof&#40;&#41;\n         &#40; cAlias &#41; -&gt;&#40; DBSkip&#40;&#41; &#41;\n      ENDIF\n      nNext ++\n   ENDIF\n   RETURN &#40; nNext &#41;\n//--------------------------\nFUNCTION TopFil&#40; cAlias, cKey &#41;\n//--------------------------\n   &#40; cAlias &#41; -&gt;&#40; DBSeek&#40; cKey, &#46;T&#46; &#41; &#41;\n   RETURN NIL\n//--------------------------\nFUNCTION BotFil&#40; cAlias, cKey &#41;\n//--------------------------\n   &#40; cAlias &#41; -&gt;&#40; DBSeek&#40; Ultima&#40; cKey &#41;, &#46;T&#46; &#41; &#41;\n   &#40; cAlias &#41; -&gt;&#40; DBSkip&#40; - 1 &#41; &#41;\n   RETURN NIL\n//-----------------------\nFUNCTION Ultima&#40; xValue &#41;\n//-----------------------\n   LOCAL cType &#58;= ValType&#40; xValue &#41;, xNext\n   DO CASE\n   CASE &#40; cType == &quot;C&quot; &#41;\n      xValue &#58;= Stuff&#40; xValue, Len&#40; xValue &#41;, 1, ;\n                       Chr&#40; Asc&#40; Right&#40; xValue, 1 &#41; &#41; + 1 &#41; &#41;\n   CASE &#40; cType == &quot;N&quot; &#41;\n      xValue ++\n   CASE &#40; cType == &quot;D&quot; &#41;\n      xValue ++\n   ENDCASE\n   xNext &#58;= xValue\n   RETURN&#40; xNext &#41;\n[/code:8reu7ads]','',0,'AIA=','8reu7ads',1,0,'',456,0,0),(45793,9538,6,533,0,'80.32.177.143',1199899685,1,0,1,1,1,0,'','Crystal Report XI','Buenas foro, mirad, con la ayuda del foro he conseguido enlazar FWH con Crystal Report XI + DBF\'s, pero necesito enviar campos de formulas como hacia con Crystal Report 8 para especificar el título del Informe. Con la nueva versión (Conexión con ActiveX), ¿tenéis ejemplos de enviar los campos de fórmulas?, ¿o dónde puedo información?.\n\nMUCHAS GRACIAS.','',0,'AIA=','648dtksn',1,0,'',533,0,0),(45794,9537,22,2,0,'87.218.146.121',1199900272,1,0,1,1,1,1,'','','Biel,\n\nPuesto que el método Add() devuelve el item recien creado, se puede hacer:\n\noTree:Add( cPrompt, nImage ):Cargo = ...','',0,'AIA=','byde98yq',1,0,'',2,0,0),(45795,9536,6,2,0,'87.218.146.121',1199900462,1,0,1,1,1,1,'','','Nosotros lo hemos probado aqui y no hemos conseguido reproducir el error. \n\nPuedes enviarnos un EXE (en un fichero ZIP) que reproduzca el error ? gracias','',0,'AIA=','2vpmkh8k',1,0,'',2,0,0),(45796,8842,3,448,0,'82.155.6.18',1199900675,1,0,1,1,1,0,'','','James,\n\nI don\'t work with database objects. I have my own skip blocks.\n\nAntonio','',0,'AIA=','qw0dpd40',1,0,'',448,0,0),(45797,8842,3,303,0,'72.220.181.80',1199900870,1,0,1,1,1,0,'','','AHF,\n\n&gt;I don\'t work with database objects. I have my own skip blocks. \n\nDatabase objects are not required. Show me your skipblock.\n\nJames','',0,'AIA=','r9d9n1rn',1,0,'',303,0,0),(45798,8842,3,2,0,'87.218.146.121',1199900891,1,0,1,1,1,1,'','','Antonio,\n\nStefan proposed you, in this thread, a solution that does not use the DBF at all. \n\nIts based on the painted row number. Please review it, thanks','',0,'AIA=','9fe0l07f',1,0,'',2,0,0),(45799,9539,6,960,0,'217.12.16.52',1199901097,1,0,1,1,1,0,'','Posicion en un array','Estimados compañeros:\n\nPosiblemente sea una chorrada, pero en un combobox, cuando selecciono una opción, necesito saber la posición exacta de ese elemento en el array.\n\nSeguro que existe alguna función que te devuelve la posición, pero ¿cual?\n\nmil gracias.\nLORENZO','',0,'AIA=','1vm6o5xu',1,0,'',960,0,0),(45800,8842,3,448,0,'82.155.6.18',1199901246,1,0,1,1,1,0,'','','Antonio,\n\nWhen the highlite reachs the last line of the browse if you go over it always returns the numer of the last row. \nIf we have 25 rows it always return 25.\n\nI don\'t see how it can works.\n\nAntonio','',0,'AIA=','1mncj5q3',1,0,'',448,0,0),(45801,9540,6,596,0,'84.76.66.27',1199901690,1,0,1,1,1,1,'','REGISTRO de Windos (regedit)','Lo primero ¡¡¡ Feliz año 2008 !!!\n\nLo segundo:\n¿ Alguna clase para ver valores del registro de windows ?\no PRGs o similar...\n\nGracias.','',0,'AIA=','2uer3j19',1,0,'',596,0,0),(45802,8842,3,303,0,'72.220.181.80',1199901757,1,0,1,1,1,0,'','','AHF,\n\nHere is a skipblock that doesn\'t use a database object:\n\noBrw:bSkip:={| nRecs | (nRecs:= (cAlias)-&gt;(_dbskipper( nRecs )), lClrFlag:=if(nRecs/2 = int(nRecs/2), lClrFlag,!lClrFlag), nRecs) }\n\nJames','',0,'AIA=','3h4rg8gn',1,0,'',303,0,0),(45803,9473,11,473,0,'81.82.28.225',1199902055,1,0,1,1,1,0,'','','Thanks Antonio,\n\nI\'ve received the working files.\n\nI still have some problems.\n\nCompiling to C code seems to work. \nThen The build file refer to GTK 2.O where ubuntu has GCC 4.. compiler\n\nthe result is the folowing error file\n\n--------------------------------------\ncompiling...\nxHarbour Compiler build 0.99.71 (SimpLex)\nCopyright 1999-2007, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'tutor01.prg\'...\nLines 9, Functions/Procedures 1\nGenerating C source output to \'tutor01.c\'...\nDone.\ncompiling C module...\nPackage gtk+-2.0 was not found in the pkg-config search path.\nPerhaps you should add the directory containing `gtk+-2.0.pc\'\nto the PKG_CONFIG_PATH environment variable\nNo package \'gtk+-2.0\' found\n-------------------------------------------\n\nIs it nescesarry to install a GCC 2 compiler of can we use the latest compiler.\n\nIs there a working build file for my system.\n\nBecause I have not much experience with Linux I do not know where to start.\n\nGreetings \n\nWilly','',0,'AIA=','3b4bj6g7',1,0,'',473,0,0),(45804,8842,3,303,0,'72.220.181.80',1199903294,1,0,1,1,1,0,'','','Here is a suggestion. I didn\'t put this in my example, but I would remove the lines.\n\noBrw:nLineStyle:=0\n\nYou don\'t need lines when you have colored rows, and it looks better without the lines.\n\nJames','',0,'AIA=','3fhv0ja8',1,0,'',303,0,0),(45805,9541,6,596,0,'84.76.66.27',1199903748,1,0,1,1,1,1,'','Nombres de las funciones de una LIB','Pues eso.\n\n¿ Como puedo saber los nombres de las funciones de una LIB ?\n\nBusco algo parecido al IMPDEF.EXE para las DLLs.\n\nGracias.','',0,'AIA=','3mlojxxl',1,0,'',596,0,0),(45806,9542,6,596,0,'84.76.66.27',1199905957,1,0,1,1,1,1,'','Comvertir LIB de formato OMF a COFF','Pues eso, alguna herramienta para convertir LIBs de formato OMF a COFF.\nY ya puestos a la viceversa, tambien.\n\nGracias.','',0,'AIA=','4m6kz0o0',1,0,'',596,0,0),(45807,9473,11,2,0,'87.218.146.121',1199906147,1,0,1,1,1,1,'','','Willy,\n\nYou have to install these packages from a terminal window:\n\nsudo apt-get install libgtk2.0-dev \nsudo apt-get install gcc \nsudo apt-get install libncurses5-dev \nsudo apt-get install libgpmg1-dev \nsudo apt-get install libgnomeprintui2.2-dev \nsudo apt-get install glade-2','',0,'AIA=','rymri7fx',1,0,'',2,0,0),(45808,9543,3,2,0,'87.218.146.53',1199906659,1,0,1,1,1,1,'','45000+ posts!','Today we have reached the amount of 45000 posts on these forums.\n\nThese forums are becoming a very powerfull knowledge base for all the FiveWin and Harbour users.\n\nCongratulations to all! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','31az6c80',1,0,'',2,0,0),(45809,9544,6,2,0,'87.218.146.53',1199906946,1,0,1,1,1,1,'','Más de 45000 mensajes!','Hoy hemos pasado la cantidad de 45000 mensajes en estos foros!\n\nEstos foros se estan convirtiendo en una base de datos de conocimientos muy importante para los usuarios de FiveWin y Harbour.\n\nEnhorabuena a todos! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3bi4p36t',1,0,'',2,0,0),(45810,9539,6,36,0,'164.77.81.210',1199907217,1,0,1,1,1,1,'','','Lorenzo\n\n\n[code:fxa2jy01]oCombo&#58;nAt[/code:fxa2jy01]','',0,'AIA=','fxa2jy01',1,0,'',36,0,0),(45811,9490,2,1088,0,'201.155.7.216',1199907643,1,0,1,1,1,0,'','','Antonio, mil disculpas la accion de \"calc\" que puse fue solo un ejemplo en realidad abre una ventana child, ya intente lo que me sugeriste pero no lo deshabilita, aun poniendo obTn:Refresh(), cuando abro la ventana child no lo inhabilita, si solo pongo como accion oBtn:Disable(), Catalogo()\nsi lo inhabilita, pero ahora no se como habilitarlo cuando cierro la ventana child\n\nsaludos y disculpa mi novatez <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','w1cs3ht2',1,0,'',1088,0,0),(45812,9516,3,34,0,'68.5.217.82',1199907734,1,0,1,1,1,1,'','Resource Editing','Although I have used Resource Workshop and Pelles for building RC files, I have found that its often productive to manually edit these files.  \n\nI wanted consistency so I started going through my RC file ( about 5000 lines ) and came to some important realizations:\n\n  1)  It is much easier to align the controls manually.  The \"eye\" is not always accurate, and being off by a few pixels can be distracting.  I made sure that control sizes were all the same height, text static controls were also the same height, and vertical and horizontal fields were aligned.  It is also easy to maintain consistant vertical spacing between controls.  The end result was nicer.\n\n2)  I actually found extra resources that didn\'t need to be in the file ... \n\n3)  It was easier to strip out the Borland resources that I didn\'t want.\n\n4)  The tab order is decided by the order of the controls in the .RC file.  I was able to make sure all dialogs now have proper tab order which will be quite pleasing to my clients.\n\nA powerful text editor is very helpful in scanning the file and accomplishing quick work of the editing tasks.  I happen to use, and like, Multi Edit but I\'ve also tried the demo of UE and it is very good.  I\'m just used to Multi-Edit so I decided not to switch at this time.\n\nIf someone has a good resource for RC file control information, perhaps you could post it.  Somewhere there is probably a paper on this.\n\nHappy coding ...','',0,'AIA=','1c5k5i9i',1,0,'',34,0,0),(45813,9490,2,2,0,'87.218.146.53',1199907821,1,0,1,1,1,1,'','','Es debido a que la ejecución de la ventana child no es modal.\n\nLa mejor manera de volver a habilitar el botón es desde el VALID de la ventana hija:\n\nACTIVATE WINDOW oWnd ;\n   VALID ( oBtn:Enable(), .T. )','',0,'AIA=','18qc2ir6',1,0,'',2,0,0),(45814,8842,3,34,0,'68.5.217.82',1199908106,1,0,1,1,1,1,'','Skipper','James,\n\nA reminder ... with ADS, using tSBrowse ( and I would assume others ), nRecs is returned as an unknown type of data element when there are no records to browse.  Thus, using the ordKeyNo() ( or ADSKeyNo() ) method described by Antonio will work without a problem.\n\nOf course, I am using data objects ... love them ... wouldn\'t be without them.\n\nTim','',0,'AIA=','3ld5ptnp',1,0,'',34,0,0),(45815,8842,3,2,0,'87.218.146.53',1199908376,1,0,1,1,1,1,'','','Antonio,\n\nThis one does not need to manage the DBF or the browse row. Just requires a logical variable:\n\noLbx:nClrPane := { || lClr := ! lClr, If( lClr, rgb(...), rgb(...) ) } \n\nI haven\'t tested it, but it seems it could work','',0,'AIA=','1oiht1m8',1,0,'',2,0,0),(45816,9545,2,124,0,'190.136.210.139',1199908629,1,0,1,1,1,0,'','error al inicializar en sistema en windows xp','Amigos:\n\nMientras estamos en el proceso de cambio a win32 / linux seguimos todavian en clientes en win16.\n\nAl inicializar un aplicativo en windows xp da el siguiente mensaje de error:\n\nC:\\TMP\\. No se puede escribir en el archivo temporal necesario para la inicialización. Asegúrese de que la ruta de directorio existe y de que hay suficiente espacio en disco. Elija \"Cerrar\" para finalizar la aplicación\n\ny luego las opciones son los botones cerrar y omitir que ambos cierran el sistema.\n\nDonde dice C:\\TMP es porque al usuario mediante las variables globales del windows indique los archivos temporales que sean escritos ahí. (en la default que esta en document and settings pasaba lo mismo). Esta carpeta tiene la seguridad ok, como usuario puedo escribir otros archivos ahí bien, etc. no es de ahí el problema.\n\nEl mismo programa en windows 2003 server y similares anda ok.\n\nEspero que alguien pueda tirarme una punta para trabajarlo.\n\nBuen 2008.-\n\nMuchas Gracias.','',0,'AIA=','30dbddth',1,0,'',124,0,0),(45817,9516,3,51,0,'80.122.88.242',1199909528,1,0,1,1,1,0,'','','No doubt VSX is not the  alternative for the “IDE” solutions we use at the moment – right now. \nBut I have the feeling that VSX will become MSWORD for the programmer craft within very short time.','',0,'AIA=','3hmoek5y',1,0,'',51,0,0),(45818,8842,3,448,0,'83.132.134.79',1199909658,1,0,1,1,1,0,'','','Antonio,\n\nIts a Tcbrowse. nClrPane is evaluate on each column painting. \nIt doesn\'t work. \n\nAntonio','',0,'AIA=','1yknt6lq',1,0,'',448,0,0),(45819,9544,6,177,0,'82.130.230.160',1199910236,1,0,1,1,1,0,'','','Antonio,\n\nenhorabuena !!!\n\nSigue trabajando duro para la comunidad de Fivewin  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nUn abrazo,\n\nFélix','',0,'AIA=','1p5heknd',1,0,'',177,0,0),(45820,9543,3,177,0,'82.130.230.160',1199910504,1,0,1,1,1,0,'','','Antonio,\n\nCongratulations !!!\n\nWork hard for Fivewin Community  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nRegards,\n\nFelix','',0,'AIA=','1z7uo5do',1,0,'',177,0,0),(45821,8842,3,2,0,'87.218.146.53',1199911585,1,0,1,1,1,1,'','','You are right...','',0,'AIA=','11is3gj8',1,0,'',2,0,0),(45822,8842,3,448,0,'83.132.134.79',1199911808,1,0,1,1,1,0,'','','I\'ve tried this code it works except when there are rows above first visible row.\n\n mbrowse:nClrPane := { | nRowPos, nJ| if(nj=mbrowse:ncolpos,lClr := ! lClr,lClr),;\n                                If( lClr, mbrowse:ncor1, mbrowse:ncor2 ) }\n\nAny ideas ?\n\nAntonio','',0,'AIA=','1povfsv5',1,0,'',448,0,0),(45823,9542,6,2,0,'87.218.146.53',1199912033,1,0,1,1,1,1,'','','JM,\n\nBorland C 5.5 proporciona coff2omf.exe\n\nAl reves no existe ya que el modelo COFF contiene más información que el OMF.','',0,'AIA=','1ki2cutl',1,0,'',2,0,0),(45824,9542,6,596,0,'84.76.66.27',1199912676,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:v49lhint]Al reves no existe...[/quote:v49lhint]\n\nEntonces NUNCA podre usar la LIB que quiero usar (es de MS) [img:v49lhint]http&#58;//www&#46;foroscenic2&#46;com/modules/Forums/images/smiles/lloron&#46;gif[/img:v49lhint][img:v49lhint]http&#58;//www&#46;foroscenic2&#46;com/modules/Forums/images/smiles/lloron&#46;gif[/img:v49lhint][img:v49lhint]http&#58;//www&#46;foroscenic2&#46;com/modules/Forums/images/smiles/lloron&#46;gif[/img:v49lhint]\n\n[code:v49lhint]Error&#58; \'E&#58;\\PROGRAMA\\DNIE\\LTC2X&#46;LIB\' contains invalid OMF record, type 0x21 &#40;possibly COFF&#41;[/code:v49lhint]','',0,'iIA=','v49lhint',1,0,'',596,0,0),(45825,9541,6,9,0,'85.59.186.228',1199913846,1,0,1,1,1,1,'','','Antiguamente yo usaba LIBRA (Adept Software), una utilidad para ver las funciones de una libreria.','',0,'iIA=','2loi4sa1',1,0,'',9,0,0),(45826,9544,6,940,0,'189.175.212.22',1199914243,1,0,1,1,1,1,'','','Antonio seria interesante saber de esos 45 mil mensajes,,\n\ncuantos fueron contestados,,\n\nsaludos..','',0,'iIA=','donfb621',1,0,'',940,0,0),(45827,9543,3,397,0,'201.68.117.198',1199914296,1,0,1,0,1,1,'','','Wow!!\n\nThis is a very Fivewin Power!\n\nCongratulation(Parabens!)','',0,'iIA=','3bhmj64f',1,0,'',397,0,0),(45828,9533,6,180,0,'193.152.134.26',1199914337,1,0,1,1,1,0,'','','Gracias, karinha, pero sigue sin funcionar. Supongo que tendrá que ver con la versión de fwh que tengo.\n\nSaludos,\nManuel','',0,'iIA=','2bjn2yvd',1,0,'',180,0,0),(45829,9542,6,2,0,'87.218.146.53',1199914666,1,0,1,1,1,1,'','','Puedes construir una DLL con esa librería y usarla','',0,'iIA=','3i15r1tx',1,0,'',2,0,0),(45830,9544,6,2,0,'87.218.146.53',1199914750,1,0,1,1,1,1,'','','César,\n\nTienes una opción arriba a la derecha para consultarlo. \n\nDe todas formas, no todos los mensajes son preguntas.','',0,'iIA=','1egmegpw',1,0,'',2,0,0),(45831,9546,6,931,0,'201.159.1.211',1199914973,1,0,1,0,1,0,'','Uso de fechas en Querys','Hola,\n\nAhora una de fechas, al hacer una query con fechas no me respeta la condición:\n\noRs200:Source := \"SELECT * FROM tfindocs WHERE issuedate = \'20/06/2007\'\"\n\nY en este caso marca error.\n\noRs200:source := \"SELECT * FORM tfindocs WHERE issuedate = to_date( \'20-06-2007\', \'DD-MM-AAAA\' )\n\nSi quito la condición de fecha funciona sin porblema o con cualquier condición que no involucre fechas, que pasa?\n\nEstoy conectandome a ORACLE via ADO con provider native de Oracle.\n\nFWH 7.12 y xHarbour 1.1.0\n\nGracias,\nMario A. Dávalos','',0,'iIA=','1h88g4pe',1,0,'',931,0,0),(45832,9533,6,2,0,'87.218.146.53',1199915886,1,0,1,1,1,1,'','','Manuel,\n\n   METHOD SelectAll() INLINE ::SetSel( 0, -1 )','',0,'iIA=','3vym3d2t',1,0,'',2,0,0),(45833,9541,6,2,0,'87.218.146.53',1199915995,1,0,1,1,1,1,'','','JM,\n\nSi es COFF, puedes usar LIB.exe para obtener un listado de su contenido.\n\n/LIST[:filename]\n\ny si es OMF, puedes usar el tlib.exe\n\nTLIB libname [/C] [/E] [/P] [/0] commands, listfile','',0,'','qzql3nhj',1,0,'',2,0,0),(45834,9505,3,29,0,'88.149.161.186',1199916297,1,0,1,1,1,1,'','','Yes, runs fine.\nThanks a lot Stefan.\n\nBest Regards,\n\nMarco Turco','',0,'','1i2nbfah',1,0,'',29,0,0),(45835,9544,6,72,0,'189.146.241.32',1199916640,1,0,1,1,1,0,'','','Adelante Antonio, felicidades!\n\nEspero incrementar tu caretera de clientes este año, hay varios interesados en laversión Profesional de mi Proyecto RC. Al adquirirlo escondición contar con una licencia de FiveWin (FWH).','',0,'','2nyp2pju',1,0,'',72,0,0),(45836,9544,6,2,0,'87.218.146.53',1199918337,1,0,1,1,1,1,'','','Alfredo,\n\nEnhorabuena y gracias por tu apoyo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','2qvvogaw',1,0,'',2,0,0),(45837,9547,3,51,0,'80.122.88.242',1199919112,1,0,1,1,1,0,'','VSX - Learn how to create Project and Item templates (video)','Learn how to create Project and Item templates using the Visual Studio Express Editions\n\n<!-- m --><a class=\"postlink\" href=\"http://video.msn.com/video.aspx/vid/video.aspx?tab=soapbox&amp;vid=1d0fd97d-15ef-48ef-b5b6-fbf3f87f9715\">http://video.msn.com/video.aspx/vid/vid ... f3f87f9715</a><!-- m -->','',0,'','1t5138v2',1,0,'',51,0,0),(45838,9547,3,2,0,'87.218.146.53',1199919642,1,0,1,1,1,1,'','','Otto,\n\nIt seems as you pointed a wrong video. In that one: Catherine Crim talks about the Visual Studio 2008 Shell. No coding shown at all','',0,'','2jmxx42k',1,0,'',2,0,0),(45839,9547,3,51,0,'80.122.88.242',1199920428,1,0,1,1,1,0,'','','Sorry. This is the right link:\n\n<!-- m --><a class=\"postlink\" href=\"http://video.msn.com/video.aspx?mkt=en-us&amp;vid=ec4b04d1-cab5-4acd-8082-21befc53cb3f\">http://video.msn.com/video.aspx?mkt=en- ... befc53cb3f</a><!-- m -->','',0,'','hhlft63z',1,0,'',51,0,0),(45840,9547,3,2,0,'87.218.146.53',1199920476,1,0,1,1,1,1,'','','Thanks!','',0,'','ntcscw5u',1,0,'',2,0,0),(45841,8367,6,931,0,'201.159.1.211',1199923238,1,0,1,0,1,0,'','','[quote=&quot;Manuel Valdenebro&quot;:3sa630sk][quote=&quot;MarioDava&quot;:3sa630sk]Me puedes explicar un poco que es:\nLocal cProv  := \"MSDAORA.1\"\n[/quote:3sa630sk]\n\nMSDAORA.1 es el provider OLE estandar de Microsoft para acceder a una base de datos Oracle, aunque el mismo Oracle tiene otro provider-OLE propio. Si usas la función siguiente (cortesía de Biel), puedes probar si la conexión es correcta, usando el Datalink de Microsoft.\n\nstatic FUNCTION FDATALINK (oCon)\nLOCAL oDataLink := TOleAuto():New(\"Datalinks\"), ;\n   oConn := oDataLink:PromptNew()\n\n   msginfo (oConn:ConnectionString)\n   oCon:CLOSE()\n\nRETURN nil[/quote:3sa630sk]\n\nGracias Manuel, finalmente pude hacer la conexión a Oracle vía ADO, tengo una pregunta que hacerte, has usado en tus querys en la clausula WHERE capos tipo fecha? y si es el caso, te funcionan bien, a mi no?\n\nAntes me conectaba via ODBC y mis querys correian perfecto, ahora las querys que usan fechas no funcionan.\n\nSaludos,\nMario A. Dávalos','',0,'gA==','3sa630sk',1,0,'',931,0,0),(45842,9548,3,34,0,'68.5.217.82',1199924120,1,0,1,1,1,1,'','Calendar Control','About a month ago several people were noting the need for a Calendar control in their applications.  Although DTPICKER provides a good popup for a date field, the idea was to post a calendar onto a dialog that would remain on display.\n\nActually, in the \\FWH\\Samples there is a calendar.prg &amp; .rc that can be modified quite nicely to do the job.  Using FW Harbour\'s bitmap controls and expanding the size of the dialog can result in a useable date selection control that can coexist with other data very nicely.\n\nI have a Scheduler program that incoporates a lot of data in addition to just the date.  It is used for automotive repair so it attaches to a vehicle, client, and estimate.  It incorporates a beginning and end time and a work area.  This is all handled well with normal FWH ( 7.12 ) and xHarbour.\n\nThe original Calendar was written by Tom Waldon for 16 bit Clipper.  I\'d be happy to share the samples of my very simply modified controls with Antonio because they are derived from the distributed work of FWH, or if he wishes, I can post a link for their download.\n\n[b:2rgf2et4]This is not a stand alone control ! [/b:2rgf2et4] It is simply FWH code that can be included in your own project if you have a need.  It is used within a resource (.rc) file and can be included as part of an existing dialog, or as the base to create a dialog.\n\nIf appropriate, I\'m sure this snippet could be upgraded quite nicely.','',0,'QA==','2rgf2et4',1,0,'',34,0,0),(45843,8842,3,303,0,'72.220.181.80',1199925341,1,0,1,1,1,0,'','','Tim,\n\n&gt;A reminder ... with ADS, using tSBrowse ( and I would assume others ), nRecs is returned as an unknown type of data element when there are no records to browse. \n\nI\'m sure we could write a routine to trap unknown data types.\n\n&gt;Thus, using the ordKeyNo() ( or ADSKeyNo() ) method described by Antonio will work without a problem. \n\nAHF says that using ordKeyNo() makes it very slow, thus I was showing another way without using ordKeyNo(). He did not state which RDD he was using.\n\nJames','',0,'QA==','2m0viy2n',1,0,'',303,0,0),(45844,8842,3,303,0,'72.220.181.80',1199925453,1,0,1,1,1,0,'','','AHF,\n\nDid you try my skipblock for non-object databases as shown above?\n\nWhat RDD are you using?\n\nJames','',0,'QA==','1prnz0on',1,0,'',303,0,0),(45845,9529,3,239,0,'218.19.74.99',1199925454,1,0,1,1,1,0,'','','Silvio,\n  harbour 1.1 rc +fwh712\n\n   otabs:=TTabControl():Redefine( 200, oDlg )\n        otabs:baction:={||plan0105(otabs:noption)} \n  activate dialog odlg on init a1()\nreturn\n\nfunction  a1()\n  otabs:add(\"aaa\")\n  otabs:add(\"bbb\")\n?valtype(otabs:aprompts)\n// nil\n\nreturn\n\nShuming Wang','',0,'QA==','1h1ljwtw',1,0,'',239,0,0),(45846,9546,6,515,0,'66.98.85.36',1199925482,1,0,1,1,1,0,'','Uso de fechas en Querys','Mario,\n\nProbar con la fecha en este formato: [b:1imgzkr4]cFecha := \"{d \'2007-06-20\' }\"[/b:1imgzkr4]\n\n[code:1imgzkr4]oRs200&#58;Source &#58;= &quot;SELECT * FROM tfindocs WHERE issuedate = &quot; + cFecha\n[/code:1imgzkr4]\n\nUn saludo,\n\nDanilo','',0,'QIA=','1imgzkr4',1,0,'',515,0,0),(45847,9516,3,303,0,'72.220.181.80',1199925724,1,0,1,1,1,0,'','','Tim,\n\n&gt;) The tab order is decided by the order of the controls in the .RC file. I was able to make sure all dialogs now have proper tab order which will be quite pleasing to my clients. \n\nTrue, but Workshop has a button that allows you to specify the order of the controls by just clicking each one in the tab order that you want. Simple!\n\nThe button is labeld, \"1,2\"\n\nJames','',0,'QIA=','1n3wfg2a',1,0,'',303,0,0),(45848,9548,3,35,0,'65.188.6.143',1199926096,1,0,1,1,1,0,'','','Tim\n\nI found that code myself and I took the basic calendar and modified it to our Agency\'s Time and Reporting system.\n\nI use the buttons to build an array ( by date ) for users to enter in their codes associated with their job activities.\n\nInteresting to look at as well to see how to hide controls based on the different days in a month.\n\nKewl code !!\n\nRick Lipkin','',0,'QIA=','3lxdwsf3',1,0,'',35,0,0),(45849,9529,3,49,0,'62.13.172.68',1199927012,1,0,1,1,1,1,'','','can you send me a mini test please','',0,'QIA=','3j08239q',1,0,'',49,0,0),(45850,9523,3,86,0,'78.21.111.254',1199927053,1,0,1,1,1,1,'','','And can someone tell me how to read or to save the attachments ?\n\nThanks.','',0,'QIA=','qn0jz5ja',1,0,'',86,0,0),(45851,8842,3,34,0,'68.5.217.82',1199927268,1,0,1,1,1,1,'','ADSKeyNo()','With this function I have no speed issue.  In fact, your modifications of tSBrowse make it FLY with the mousewheel ...','',0,'QIA=','x7wvcsop',1,0,'',34,0,0),(45852,9516,3,34,0,'68.5.217.82',1199927327,1,0,1,1,1,1,'','Tab Order','True ...\n\nBut I ran into issues with Workshop and stopped using it ...on my Vista \'puter','',0,'QIA=','35m9r5tf',1,0,'',34,0,0),(45853,9546,6,78,0,'190.43.41.105',1199929097,1,0,1,1,1,0,'','','Hola,,,\nHazlo asi:\n\nFunction DTOC2(dDate)    // Harbour to MySQL\nlocal cDate\nSET (_SET_DATEFORMAT, \"yyyy-mm-dd\")\nIf EMPTY(dDate)\n   cDate := \"    -  -  \"\n Else\n   cDate := DTOC(dDate)\nEndIf\nSet( _SET_DATEFORMAT, \"dd/mm/yyyy\" )\nReturn(cDate)\n\n***********************\ncDate := DTOC2(Date())\noRs200:source := \"SELECT * FORM tfindocs WHERE issuedate = \'\" + cDate + \"\'\"\n...\n...','',0,'QIA=','3t7yjf76',1,0,'',78,0,0),(45854,9549,3,49,0,'62.13.172.68',1199933107,1,0,1,1,1,1,'','dialog into outlook2003','Dear Antonio,\nI wanted created a simply dialog with a header on the right part of the window  as you can see on this picture \nHow I can make it ?\nI dont understand how is called the right part of this ownd\n \n[img:3u1zkgpc]http&#58;//img339&#46;imageshack&#46;us/img339/1461/out2003miosb7&#46;jpg[/img:3u1zkgpc]\n\ncan you help me please ?','',0,'CA==','3u1zkgpc',1,0,'',49,0,0),(45855,8367,6,9,0,'85.59.186.228',1199944853,1,0,1,1,1,1,'','','[quote=&quot;MarioDava&quot;:33pf5bpv]Gracias Manuel, finalmente pude hacer la conexión a Oracle vía ADO, tengo una pregunta que hacerte, has usado en tus querys en la clausula WHERE capos tipo fecha? y si es el caso, te funcionan bien, a mi no?\n[/quote:33pf5bpv]\n\nMario,\n\nAquí estamos aprendiendo a \"porrazos\" y con la ayuda de todos. Por eso sería bueno nos comentaras como te has conectado, con que cadena de conexión.\n\nEn cuando al problema de las fecha, yo no tengo problemas. La siguiente consulta sobre la tabla EMPLOYEES la realiza correcamente:\n\nselect * from employees where  LAST_NAME LIKE \'D%\' AND hire_date &gt; \'01/01/1998\'\n\n¿Estas usando comillas dobles ó sencillas?','',0,'gA==','33pf5bpv',1,0,'',9,0,0),(45856,8842,3,448,0,'83.132.134.79',1199953974,1,0,1,1,1,0,'','','I\'m using RMDBCDX wich works ok except in what concernes networking with the use of ordkeyno or ordkeycount. \n\nIt seems that this RDD has no caching as Clipper did thus the applications using these functions extensively within a network will see a speed degradation to a point were you can\'t work anymore.\n\nI\'m in the process of using ADS but I have some problems with the convertion process, so for now I must use other alternative RDD.\n\nI\'m trying James skipblock but it seems it will not work. My former nClrPane block it works only skipping down the table I \'m figuring out why. Since it is a Tcbrowse object and the nClrPane is evaluated painting each column the block can only be evaluate once for each line otherwise you\'ll get a chess browse.\n\nAntonio','',0,'gA==','1nmte447',1,0,'',448,0,0),(45857,9532,3,247,0,'83.171.242.103',1199954539,1,0,1,1,1,0,'','','ukoenig , Detlef , James , Biel \n\nThank you all for your reply .The reason that i don\'t want to use scopes is that i have already allot   of source code written with conditions (filters etc) and i want to change my xbrowse to use this conditions and not to change my whole program and start using scopes. As i can see set filter command is very slow. I guess I will try \"Biel EA6DD\" solution.\n\nThank you all\n\nA.S.K','',0,'gA==','2bp62oxo',1,0,'',247,0,0),(45858,9537,22,456,0,'217.127.39.57',1199954682,1,0,1,1,1,1,'','','Correcto Antonio,  yo ya lo estba haciendo como tu mencionas(por eso lo puse aqui en un whish y no en un problema),  solo era una sugerencia puesto que el ADD de tTvItem recibe ese parametro. De esa manera tanto al crear un nodo de primer nivel como segundo,..., estariamos llamando a Add con los mismos parametros.','',0,'gA==','1p913gub',1,0,'',456,0,0),(45859,9550,3,51,0,'80.122.88.242',1199954926,1,0,1,1,1,0,'','RESOURCE EDITOR why not useing VB.NETs?','Antonio,\nAs far as I know resource editors .rc or .res don’t support Font, Color, etc. .\n\nToday I had a look into a “Resource file” from VB.NET which I think is Form3.Designer.vb.\nWouldn’t it be possible to parse the form.designer.vb files to FWH source-code?\n\nHere is the code from a FORM with a command (-&gt;button) and a label (--&gt;say).\nBest regards\nOtto\n\n        Me.components = New System.ComponentModel.Container\n        Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)\n        Me.Command1 = New System.Windows.Forms.Button\n        Me.Label1 = New System.Windows.Forms.Label\n        Me.SuspendLayout()\n        \'\n        \'Command1\n        \'\n        Me.Command1.BackColor = System.Drawing.SystemColors.Control\n        Me.Command1.Cursor = System.Windows.Forms.Cursors.Default\n        Me.Command1.ForeColor = System.Drawing.SystemColors.ControlText\n        Me.Command1.Location = New System.Drawing.Point(45, 134)\n        Me.Command1.Name = \"Command1\"\n        Me.Command1.RightToLeft = System.Windows.Forms.RightToLeft.No\n        Me.Command1.Size = New System.Drawing.Size(49, 25)\n        Me.Command1.TabIndex = 1\n        Me.Command1.Text = \"Zurück\"\n        Me.Command1.UseVisualStyleBackColor = False\n        \'\n        \'Label1\n        \'\n        Me.Label1.AutoSize = True\n        Me.Label1.Font = New System.Drawing.Font(\"Microsoft Sans Serif\", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\n        Me.Label1.Location = New System.Drawing.Point(40, 36)\n        Me.Label1.Name = \"Label1\"\n        Me.Label1.Size = New System.Drawing.Size(83, 25)\n        Me.Label1.TabIndex = 2\n        Me.Label1.Text = \"Label1\"\n        \'\n        \'Form3\n        \'\n        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)\n        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font\n        Me.BackColor = System.Drawing.SystemColors.Control\n        Me.ClientSize = New System.Drawing.Size(638, 196)\n        Me.Controls.Add(Me.Label1)\n        Me.Controls.Add(Me.Command1)\n        Me.Cursor = System.Windows.Forms.Cursors.Default\n        Me.Location = New System.Drawing.Point(4, 23)\n        Me.Name = \"Form3\"\n        Me.RightToLeft = System.Windows.Forms.RightToLeft.No\n        Me.Text = \"ICECUBE by DATRON Software\"\n        Me.ResumeLayout(False)\n        Me.PerformLayout()\n\n\n[img:13uag0mq]http&#58;//www&#46;atzwanger&#46;com/fw/ide&#46;jpg[/img:13uag0mq]','',0,'CA==','13uag0mq',1,0,'',51,0,0),(45860,9540,6,456,0,'217.127.39.57',1199954997,1,0,1,1,1,1,'','','Hola JM, lo mismo para ti Feliz año 2008.\n\nPara manejo de registro tienes la clase tReg32.\nAqui tienes un ejemplo.\n[code:1drl0pp6]\noReg &#58;= TReg32&#40;&#41;&#58;New&#40;HKEY_LOCAL_MACHINE, &quot;SYSTEM\\CurrentControlSet\\Control\\TimeZoneInformation&quot;, &#46;f&#46; &#41;\nnRetVal &#58;= oReg&#58;Get&#40; &quot;ActiveTimeBias&quot;, 0 &#41;\noReg&#58;Close&#40;&#41;[/code:1drl0pp6]','',0,'AIA=','1drl0pp6',1,0,'',456,0,0),(45861,9445,7,57,0,'80.30.100.25',1199955163,1,0,1,1,1,1,'','','Pedro\nHe realizado pruebas con el Emulador de VM6 y sigue dando el mismo error. \n\nSi el ejecutable está guardado en Memoria funciona correctamente. Por contra si está guardado en la Storage Card y abro mas de 20 ficheros  muestra el siguiente error.\n\n[url=http&#58;//img182&#46;imageshack&#46;us/my&#46;php?image=clipboardgf1&#46;jpg:22dkqy79][img:22dkqy79]http&#58;//img182&#46;imageshack&#46;us/img182/4673/clipboardgf1&#46;th&#46;jpg[/img:22dkqy79][/url:22dkqy79]\n\nNo se que puede estar pasando.\nSaludos','',0,'GA==','22dkqy79',1,0,'',57,0,0),(45862,9532,3,130,0,'141.51.32.24',1199955196,1,0,1,1,1,1,'','','Ask,\n\nif you are using cdx, you can also try to replace the standard dbfcdx-rdd with  bmdbfcdx that comes with xharbour. It´s working with bitmaps filters and it seems to be faster than the original cdx. You don´t need to change any sourcecode, just link in the lib.','',0,'GA==','2v3w39aa',1,0,'',130,0,0),(45863,9532,3,247,0,'83.171.242.103',1199955859,1,0,1,1,1,0,'','','Stefan,\n\nI\'m using ntx ,  but thank you anyway.\n\nregards,\n\nA.S.K','',0,'GA==','3rsgll9f',1,0,'',247,0,0),(45864,9445,7,106,0,'85.34.123.173',1199958145,1,0,1,1,1,1,'','','Ahh... no, yo el ejecutable lo uso siempre desde memoria... y los ficheros los abro y cierro cada vez, porque si quedan abiertos y sacan la SD me da error, y eso sucede muchas veces.\nPero me parece raro lo que tu me dices, a mi me pasaba al inicio que podia abrir las bases de datos hasta 20 o 30 veces en el emulador, pero nunca me pasó de necesitar abrir 20 archivos a la vez por el problema que te dije nteriormente.\n\nSaludos.','',0,'GA==','h38m5j5n',1,0,'',106,0,0),(45865,9516,3,6,0,'87.18.210.177',1199959313,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:969otwxd]True, but Workshop has a button that allows you to specify the order of the controls by just clicking each one in the tab order that you want. Simple![/quote:969otwxd]\n\nI find it not so simple if you want to change the tab order of just one control on a dialog with many controls. You have to start from the first one each time.\n\nEMG','',0,'gA==','969otwxd',1,0,'',6,0,0),(45866,9445,7,57,0,'80.30.100.25',1199966394,1,0,1,1,1,1,'','','Pedro\nEn la práctica yo tambien utilizo el programa en memoria (Cliente final) pero para realizar pruebas (desarrollo) iria bien poder utilizar en el emulador la Storage Card para redirigirla a una carpeta del PC y estar copiando cada vez el ejecutable en dicha carpeta.\n\nPero mi gozo en un pozo. De todas formas es algo raro. Seguiré investigando.\n\nSaludos','',0,'gA==','qyeflg6b',1,0,'',57,0,0),(45867,8842,3,448,0,'82.155.1.123',1199967024,1,0,1,1,1,0,'','','None of the above solutions is working.\n\nAny ideas?\n\nAntonio','',0,'gA==','2ddv2pm4',1,0,'',448,0,0),(45868,9551,6,1206,0,'213.97.245.163',1199968959,1,0,1,1,1,0,'','Botones con forma o transparentes','Me explico, tengo un dialogo con un BRUSH degradado, ahora tengo dos botones que son BTNBMP y los tengo dentro del recurso como bitmap. La parte que no quiero que se vea le he asignado el color 0.255.0. Existe alguna clase que haga que esto sea transparente y funcione como un botón.\n\nHe mirado distintos POST, pero no veo nada claro, TSBUTTON no me funciona… se puede hacer con FWH 7.07.\n\n\n\nMuchísimas gracias','',0,'gA==','31p3bgl6',1,0,'',1206,0,0),(45869,9552,6,21,0,'87.220.90.225',1199970232,1,0,1,1,1,1,'','Tarea programada','¿Como puedo crear una tarea programada desde mi aplicación?\n\nSin usar WinExec( \"At .....\" )','',0,'gA==','43i5gs0r',1,0,'',21,0,0),(45870,9445,7,106,0,'85.34.123.173',1199970466,1,0,1,1,1,1,'','','Si, de hecho, yo con el emulador uso el ejecutable en la Storage Card y me funciona bien, pero no abro tantos archivos a la vez.','',0,'gA==','36mhlonm',1,0,'',106,0,0),(45871,9473,11,473,0,'81.241.228.203',1199971239,1,0,1,1,1,0,'','','Thanks Antonio,\n\nAgain a step further.\n\nThe .prg files are already converted to .C and compiled to .o files\n\nWhen linking there is still an error\n\n[code:24grvmft]linking&#46;&#46;&#46;\nPackage libglade-2&#46;0 was not found in the pkg-config search path&#46;\nPerhaps you should add the directory containing `libglade-2&#46;0&#46;pc\'\nto the PKG_CONFIG_PATH environment variable\n[/code:24grvmft]\n\nI have tried te remove Glade and reinstalled it several times.\nI did not find a way to change the PKG_CONFIG_PATH variabele\n\nAny idea.\n\nThanks\n\nWilly','',0,'AIA=','24grvmft',1,0,'',473,0,0),(45872,8842,3,868,0,'219.64.121.60',1199971251,1,0,1,1,1,1,'','','TCBrowse natively tries to provides a way to paint different colors on the basis of visual row numbers.  If obrw:nClrPane is a code block, the paint method evaluates obrw:nclrpane, with visual row number and column number as two parameters. If the the following code is adopted\n[code:3trw56jc]\noBrw&#58;nClrPane &#58;= &#123; |nRow| iif&#40; nRow % 2 == 0, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125;\n[/code:3trw56jc]\n\nthe browse paints alternative rows with different colors.  It works well if the naviagation is by PgDn, PgUp, Vertical ScrollBar, but fails when the page is scrolled with down or up keys or mouse wheel.  \n\nMay be some modifications to the paint method can make it work in all cases. If this can be made to work, we can achieve the effect, without depending on the underlying data source ( array or dbf or whatever be the RDD)\n\nI personally feel that with some effort browse classes can give the facility to paint different colors because the browse object only knows the visiual row number it is painting.','',0,'AIA=','3trw56jc',1,0,'',868,0,0),(45873,9473,11,2,0,'87.218.146.208',1199973900,1,0,1,1,1,1,'','','Willy,\n\nPlease remove this `pkg-config --libs libglade-2.0` from samples\\build.sh and try it again','',0,'AIA=','15998wxj',1,0,'',2,0,0),(45874,8842,3,868,0,'219.64.121.60',1199973995,1,0,1,1,1,1,'','','I made a few modifications in the TCBrowse Class. With these modifiations the above code works fine in all cases:\n\nModififcations are : ( I am giving line numbers in the latest source code of TCBrowse.Prg provided with FWH 8,01 ). With a view to not to change the line numbers I inserted new code in the present blank lines.\n[code:1ik6zhhd]\nLine 44&#58; Instead of blank line &#58;\n            DATA nRowScrol  AS NUMERIC INIT 0\n//\nIn method paint&#40;&#41;\nLine 253&#58; In the present blank line&#58;\n            &#58;&#58;nRowScrol &#58;= 0\n//\nIn method drawline, at line number 415\nInstead of old code&#58;\nnClrBack &#58;= Eval&#40; nClrBack, If&#40; xRow == nil, nRowPos, xRow &#41; , nJ &#41; \nSubstitute the new code&#58;\nnClrBack &#58;= Eval&#40; nClrBack, If&#40; xRow == nil, nRowPos, xRow &#41; + &#58;&#58;nRowScrol , nJ &#41;\n//\nMethod GoDown&#40;&#41;&#58; Substitute Old Line 1086\nInstead of &#58;\n  &#58;&#58;lRepaint &#58;= &#46;f&#46;\nSubstitute &#58;\n  &#58;&#58;lRePaint &#58;= &#46;f&#46; ; &#58;&#58;nRowScrol &#58;= iif&#40; &#58;&#58;nRowScrol == 0, 1, 0 &#41;\n//\nMethod GoUp&#40;&#41; &#58; Substitute old line 1128\nInstead of &#58;\n  &#58;&#58;lRepaint &#58;= &#46;f&#46;\nSubstitute &#58;\n  &#58;&#58;lRePaint &#58;= &#46;f&#46; ; &#58;&#58;nRowScrol &#58;= iif&#40; &#58;&#58;nRowScrol == 0, 1, 0 &#41;\n[/code:1ik6zhhd]\nAfter making the above changes in the tcbrowe class, the following code in the application program works fine:\n[code:1ik6zhhd]\noBrw&#58;nClrPane &#58;= &#123; |nRow| iif&#40; nRow % 2 == 0, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125; \n[/code:1ik6zhhd]\nNow we are not bothered whatever is the data source, rdd or array','',0,'AIA=','1ik6zhhd',1,0,'',868,0,0),(45875,9553,3,1264,0,'64.76.128.19',1199974358,1,0,1,1,1,0,'','FWH + CRYSTAL REPORT CON PARAMETROS','Hola \n\nEstoy probando la clase TCRW (Tom Groeger) para utilizar reportes creados con crystal desde fivewin harbour 2.4 y me encuentro con la duda de como pasarle parametros a dicho reporte pero desde FWH . \nUtilizo Crystal 9.0 , espero me ayuden a depejar esta duda \n\nSaludos y muchas gracias \n\nMartin','',0,'AIA=','1tfw5kv3',1,0,'',1264,0,0),(45876,9554,6,1264,0,'64.76.128.19',1199974489,1,0,1,1,1,0,'','FWH + CRYSTAL REPORT CON PARAMETROS','Hola \n\nYa llevo varios dias probando la clase TCRW (Tom Groeger) para utilizar reportes creados con crystal desde fivewin harbour 2.4 y me encuentro con la duda de como pasarle parametros a dicho reporte pero desde FWH. \nUtilizo Crystal 9.0 , espero me ayuden a depejar esta duda \n\nSaludos y muchas gracias \n\nMartin','',0,'AIA=','9zygh1op',1,0,'',1264,0,0),(45877,9473,11,473,0,'81.241.228.203',1199974791,1,0,1,1,1,0,'','','Antonio,\n\nI had already tried that.\nThe glade-2.0 lib seems to be nescesarry for tutor01.prg\n\nThen I have the following error\n\n[code:2gkfhwvk]linking&#46;&#46;&#46;\n&#46;/&#46;&#46;/lib/libfivec&#46;a&#40;lnx&#46;o&#41;&#58; In function `HB_FUN_SETRESOURCES\'&#58;\nlnx&#46;c&#58;&#40;&#46;text+0x27b&#41;&#58; undefined reference to `glade_xml_new\'\n&#46;/&#46;&#46;/lib/libfivec&#46;a&#40;lnx&#46;o&#41;&#58; In function `HB_FUN_LOADDIALOG\'&#58;\nlnx&#46;c&#58;&#40;&#46;text+0x2a7&#41;&#58; undefined reference to `glade_xml_get_widget\'\n&#46;/&#46;&#46;/lib/libfivec&#46;a&#40;lnx&#46;o&#41;&#58; In function `HB_FUN_LOADBUTTON\'&#58;\nlnx&#46;c&#58;&#40;&#46;text+0x3a8&#41;&#58; undefined reference to `glade_xml_get_widget\'\ncollect2&#58; ld returned 1 exit status\ndone!\n&#46;/buildx&#46;sh&#58; line 23&#58; &#46;/tutor01&#58; No such file or directory\nroot@Willy&#58;/home/willy/fivelinux/samples# \n[/code:2gkfhwvk]','',0,'AIA=','2gkfhwvk',1,0,'',473,0,0),(45878,9546,6,931,0,'201.159.1.211',1199975961,1,0,1,1,1,0,'','','Muchas gracias, voy a ser las pruebas que me indican.\n\nSaludos,','',0,'AIA=','1tpooxb9',1,0,'',931,0,0),(45879,8367,6,931,0,'201.159.1.211',1199976823,1,0,1,0,1,0,'','','[quote=&quot;Manuel Valdenebro&quot;:3ckoh926][quote=&quot;MarioDava&quot;:3ckoh926]Gracias Manuel, finalmente pude hacer la conexión a Oracle vía ADO, tengo una pregunta que hacerte, has usado en tus querys en la clausula WHERE capos tipo fecha? y si es el caso, te funcionan bien, a mi no?\n[/quote:3ckoh926]\n\nMario,\n\nAquí estamos aprendiendo a \"porrazos\" y con la ayuda de todos. Por eso sería bueno nos comentaras como te has conectado, con que cadena de conexión.\n\nEn cuando al problema de las fecha, yo no tengo problemas. La siguiente consulta sobre la tabla EMPLOYEES la realiza correcamente:\n\nselect * from employees where  LAST_NAME LIKE \'D%\' AND hire_date &gt; \'01/01/1998\'\n\n¿Estas usando comillas dobles ó sencillas?[/quote:3ckoh926]\n\nManuel,\n\nEntiendo lo del aprendizaje, por eso anexo lo siguiente:\n\nLa conexion a Oracle la hice así:\n\nTRY\n     oCnx200:=toleauto():new(\"adodb.connection\")\n CATCH oError\n     MsgStop(oError:Operation,\"Ado Connection\")\nEND\nTRY\n     oCnx200:ConnectionString:=\"Provider=OraOLEDB.Oracle;Data    Source=200.160.1.220:1521/cbs;User ID=Mario;Password=MarioD;\"\n     oCnx200:Open()\nCATCH oError\n     MsgStop(oError:Operation,\"Conexion con Oracle\")\nEND\n\nAhora explico lo siguiente:\n\nPara contar con el Povider native de oracle \"Provider=OraOLEDB\", instale el cliente de oracle para mi version que es la 10g.\n\nEspero que esto les sea claro.\n\nY regresando al tema de la fecha anexo el select completo que uso:\n\noRs200:Source := oRs200:Open( \"SELECT ev.resultmessage_id, (SELECT isymbol FROM tmessages WHERE id = ev.resultmessage_id) cCodigoError,\" + ;\n		\"(SELECT nltext FROM tmessages WHERE id = ev.resultmessage_id),\" +  ;\n		\"(SELECT cause FROM tmessages WHERE id = ev.resultmessage_id),\" + ;\n		\"(SELECT action FROM tmessages WHERE id = ev.resultmessage_id),\" + ;\n		\"COUNT(*) cuenta \" + ;\n		\"FROM trtechargableevents ev, trtedimensions dim WHERE ev.dimension_id = dim.id AND ev.eventbegindate &gt;= \'\" + dtoc( dFecIni ) + ;\n		\"\' AND ev.eventbegindate &lt; \'\" + dtoc( dFecFin ) + \"\' AND ev.resultmessage_id IS NOT NULL GROUP BY dim.datatype_id, ev.resultmessage_id ORDER BY 1, 2\"\n\nSaludos,\nMario A. Dávalos','',0,'gA==','3ckoh926',1,0,'',931,0,0),(45880,9543,3,473,0,'81.241.228.203',1199976888,1,0,1,1,1,0,'','','Up to 50000 now.','',0,'gA==','2og62fle',1,0,'',473,0,0),(45881,9554,6,362,0,'200.158.19.36',1199977051,1,0,1,1,1,1,'','','Martin,\n\nMuestra alguna cosa en forma de codigo fuente.\n\nSaludos.','',0,'gA==','2l5ohyyw',1,0,'',362,0,0),(45882,9550,3,51,0,'80.122.88.242',1199977160,1,0,1,1,1,0,'','','What would be the best way to convert ASCII DESIGNER.CODE to FWH code?\nIs there somewhere a demo?\n\nI thought like that:\n\n1.  search for    Me.Name  in the DESIGNER.CODE and then        \n   implement code for WINDOW/DIALOG\n   oDlg = TDialog():New(,,,,,,, .F.,,,,,, .F.,,,,,, .F. )\n\n2.  search for    Me.Controls.Add  -&gt;   fill an array\n\n3. EVAL the ARRAY and convert the controls\n\nexample:  Me.Label1\n\nMe.Label1.AutoSize = True\n//not supported here we need a function\n\nMe.Label1.Font = New System.Drawing.Font(\"Microsoft Sans Serif\", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\n::oFont     = oFont\n\nMe.Label1.Location = New System.Drawing.Point(40, 36)\nnRow, nCol\n\nMe.Label1.Name = \"Label1\"\nbText\n\nMe.Label1.Size = New System.Drawing.Size(83, 25)\nnWidth, nHeight\n\nMe.Label1.TabIndex = 2\n\nMe.Label1.Text = \"Label1\"\nnClrText\n\nand so on.','',0,'gA==','2282conu',1,0,'',51,0,0),(45883,8842,3,972,0,'78.21.224.104',1199977683,1,0,1,1,1,0,'','','Hey Guys,\n\nAny idea how to do it with TWBrowse?\nTx\n\nPatrick','',0,'gA==','202az1b0',1,0,'',972,0,0),(45884,9533,6,180,0,'193.152.134.26',1199977729,1,0,1,1,1,0,'','','Antonio:\n\nAsí es como lo tengo en TGET.PRG y no funciona. \nEn realidad lo que me ocurre es que en el menú contextual del oGet la opción \"Pegar\" no funciona correctamente, es decir, hay que seleccionar previamente todo el contenido del oGet para que \"Pegar\" te copie todo el contenido de \"Copiar\", si no es así, se produce un pegado parcial.\n\nSaludos,\nManuel','',0,'gA==','54l7ik32',1,0,'',180,0,0),(45885,9555,3,22,0,'88.41.18.74',1199977906,1,0,1,1,1,0,'','Problem with ADT integer on xharbour december build','This little example create a simple ADT table with some integer fields. \nIt works with xharbour november build and show right values:\n[quote:1rfkhnes]10000000\n10000\n100\n[/quote:1rfkhnes]\n\nwith xharbour december build (and last CVS too!!!) don\'t works and show this:\n[quote:1rfkhnes]****\n****\n**\n[/quote:1rfkhnes]\n\nAny suggestion?\nRegards\n\n[code:1rfkhnes]\n#INCLUDE &quot;ADS&#46;CH&quot;\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n	rddRegister&#40; &quot;ADS&quot;, 1 &#41;\n	rddsetdefault&#40; &quot;ADS&quot; &#41;\n	SET SERVER LOCAL\n	SET FILETYPE TO ADT\n\n   DbCreate&#40; &quot;testadt&#46;adt&quot;, &#123; &#123; &quot;field1&quot;, &quot;N&quot;, 8, 0 &#125;,;\n                              &#123; &quot;field2&quot;, &quot;N&quot;, 5, 0 &#125;,;\n                              &#123; &quot;field3&quot;, &quot;N&quot;, 3, 0 &#125; &#125; &#41;\n\n   USE testadt\n\n	testadt-&gt;&#40;dbappend&#40;&#41;&#41;\n	testadt-&gt;field1 &#58;= 10000000\n	testadt-&gt;field2 &#58;= 10000\n	testadt-&gt;field3 &#58;= 100\n	testadt-&gt;&#40;dbcommit&#40;&#41;&#41;\n\n	testadt-&gt;&#40;dbgotop&#40;&#41;&#41;\n	testadt-&gt;&#40;msginfo&#40;str&#40;field1&#41; + CRLF + str&#40;field2&#41; + CRLF + str&#40;field3&#41;&#41;&#41;\n\n   USE\n\nreturn nil\n\n[/code:1rfkhnes]','',0,'gIA=','1rfkhnes',1,0,'',22,0,0),(45886,9546,6,931,0,'201.159.1.211',1199978244,1,0,1,0,1,0,'','','Las dos formas funcionan perfectamente, gracias.\n\nLa primera es muy sencilla y funciona.\n\nLa segunda un poco mas compleja, pero a mi en lo persosnal me viene mejor, por la sintaxis que ya traigo en mis select ya que uso la funcion DTOC directamente y solo tendré que cambiarla por DTOC2.\n\nSaludos,\nMario A. Dávalos','',0,'gIA=','25mv9xdx',1,0,'',931,0,0),(45887,9556,6,24,0,'80.24.12.168',1199978587,1,0,1,1,1,1,'','XML en Harbour','Actualmente uso las clases XML que trae xHarbour, pero no ubico estas mismas clases en Harbour.\n\n¿ Existen estas clases o son compatibles con xHarbour ?','',0,'gIA=','1m85bnd0',1,0,'',24,0,0),(45888,9557,3,1257,0,'195.93.60.103',1199978841,1,0,1,1,1,1,'','Missing Accelerators in Buttonbar 2007 ?','I changed in the sample &lt; test2007.prg &gt;\nthe button &lt; Clients &gt; with &lt; &amp;Clients &gt;\nThe char &lt; C &gt; is shown underline, but when i press ALT + C\nnothing happens.\nNo accelerators possible in buttonbar 2007 ?\n\nI tested with FWH 8.1\n\nGreetings from Germany <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gIA=','2g0e1agn',1,0,'',1257,0,0),(45889,9461,17,24,0,'80.24.12.168',1199978876,1,0,1,1,1,1,'','Re: A calendar for Fivewin','[quote=&quot;ukoenig&quot;:1n05zswz]Some people asked for a calendar.\nThere is one for download at <!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin\">http://www.pflegeplus.com/fivewin</a><!-- m -->\nI think, it might be useful, because there are\nsome new functions included.\nIn the moment it is still in german.\nI think the translation will be finished tomorrow.\n\n\nGreetings from Germany\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->[/quote:1n05zswz]\nWell, this calendar have big problem, the paint calendar is VERY SLOW!\nPlease, put 12 month in any Window, one by every month.\nThe problem is method paint, level PRG , not C language.\n\nRegards','',0,'gA==','1n05zswz',1,0,'',24,0,0),(45890,9558,3,210,0,'81.24.159.58',1199979030,1,0,1,1,1,1,'','FOLDER COLOR','Hello,\nIn WIN 2000 the folder-tabs are always show with standard-windows-colors!\nXP or VISTA are ok.\n\n[img:32e6s4f4]http&#58;//eurostar&#46;byte-one&#46;com/folder&#46;gif[/img:32e6s4f4]\n\nHow to change?','',0,'CA==','32e6s4f4',1,0,'',210,0,0),(45891,8842,3,448,0,'82.155.1.123',1199979219,1,0,1,1,1,0,'','','NageswaraRao,\n\nGreat job! \n\nThanks it works fine.\n\nAntonio','',0,'CA==','37s9ecgz',1,0,'',448,0,0),(45892,9559,23,1257,0,'195.93.60.7',1199979250,1,0,1,1,1,1,'','Fehlende Accelerators in Office2007 - Bar ?','Ich habe im Muster &lt; Test2007.prg &gt; \nden Button &lt; Client &gt; in &lt; &amp;Client &gt; geändert.\nDer Buchstabe C wird auch unterstrichen dargestellt,\naber mit der Tastenkombination ALT + C\npassiert nichts.\n( Version FWH 8.1 ) hat aber auch in früheren Versionen \nnicht funktioniert.\n\nSind die Accelerators nicht programmiert ?\nIn der 16 BIT - Version haben die Bars reagiert.\n\nViele Grüße aus Essen\nUwe','',0,'CA==','1a9x2f9l',1,0,'',1257,0,0),(45893,9549,3,1257,0,'195.93.60.7',1199979473,1,0,1,1,1,1,'','Dialog in Outlook 2003','Hallo, from Germany\n\nI have the same problem.\n\nregards\n\nUwe','',0,'CA==','nt3err43',1,0,'',1257,0,0),(45894,9555,3,21,0,'87.220.90.225',1199979533,1,0,1,1,1,1,'','','Gianni,\n\nThis looks Post:\n[url:1jw9fh17]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=9079&amp;highlight=[/url:1jw9fh17]\n\nThe problem is the function str()\nUsed str( field1, 11) instead of str( field1 )','',0,'EA==','1jw9fh17',1,0,'',21,0,0),(45895,9540,6,596,0,'84.76.66.27',1199980509,1,0,1,1,1,1,'','','Muchas gracias...','',0,'EA==','1zuuqh5y',1,0,'',596,0,0),(45896,9555,3,22,0,'88.41.18.74',1199981120,1,0,1,1,1,0,'','','Thank for answer\nI don\'t think is a \"str()\" problem because\npadl(field1,8,\"0\") returns \"0000****\"\nand \npadr(field1,8,\"0\") returns \"****0000\"\nand this happen with xharbour december build and ONLY with ADT tables','',0,'EA==','gir2oflj',1,0,'',22,0,0),(45897,9465,3,51,0,'80.122.88.242',1199981328,1,0,1,1,1,0,'','','Could someone help me on that, please.\nThanks in advance\nOtto\n     \n   Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: \'C:\\HARBOUR\\LIB\\RTL.LIB\' contains invalid OMF record, type 0x21 (possibly','',0,'EA==','3aebjser',1,0,'',51,0,0),(45898,8842,3,868,0,'219.64.121.60',1199981442,1,0,1,1,1,1,'','','With WBrowse also the standard codeblock works\n[code:123so7m2]\noBrw&#58;nClrPane &#58;= &#123;||iif&#40; OrdKeyNo&#40;&#41; % 2 == 0, nEvenColor, nOddColor &#125;\n[/code:123so7m2]\nFor non-indexed dbf, we can use recno() instead of OrdKeyNo().\nObviously for arrays it is even simpler.','',0,'AIA=','123so7m2',1,0,'',868,0,0),(45899,9560,6,1104,0,'190.55.55.66',1199981961,1,0,1,1,1,0,'','Duda con PellesC','Hola a todos\nTengo una duda con PellesC. Antes utilizaba Workshop y para que los recursos tubieran el estilo de Windows Xp le agregaba lo siquiente: \n\n[code:1a7iy61c]\n#ifdef __FLAT__\n   1 24 &quot;WindowsXP&#46;Manifest&quot;\n#endif\n\n#ifdef __64__\n   1 24 &quot;WinXP/WindowsXP&#46;Manifest64&quot;\n#endif\n[/code:1a7iy61c]\n\na la cabecera del .Rc e incluía la dll \"WindowsXP.Manifest\" al directorio donde se encontraba el .Rc.\n\nLa dll \"WindowsXP.Manifest\" contiene el siguiente código.\n[code:1a7iy61c]\n&lt;?xml version=&quot;1&#46;0&quot; encoding=&quot;UTF-8&quot; standalone=&quot;yes&quot;?&gt;\n&lt;assembly xmlns=&quot;urn&#58;schemas-microsoft-com&#58;asm&#46;v1&quot; manifestVersion=&quot;1&#46;0&quot;&gt;\n&lt;assemblyIdentity\n    version=&quot;1&#46;0&#46;0&#46;0&quot;\n    processorArchitecture=&quot;X86&quot;\n    name=&quot;FiveTech Software&#46;FiveWin&#46;32bits&quot;\n    type=&quot;win32&quot;\n/&gt;\n&lt;description&gt;Your application description here&#46;&lt;/description&gt;\n&lt;dependency&gt;\n    &lt;dependentAssembly&gt;\n        &lt;assemblyIdentity\n            type=&quot;win32&quot;\n            name=&quot;Microsoft&#46;Windows&#46;Common-Controls&quot;\n            version=&quot;6&#46;0&#46;0&#46;0&quot;\n            processorArchitecture=&quot;X86&quot;\n            publicKeyToken=&quot;6595b64144ccf1df&quot;\n            language=&quot;*&quot;\n        /&gt;\n    &lt;/dependentAssembly&gt;\n&lt;/dependency&gt;\n&lt;/assembly&gt;\n[/code:1a7iy61c]\n\nAhora con PellesC hago lo mismo pero no funciona.\nAlguién me podría dar una mano?\nDesde ya muchas gracias\nSaludos, Esteban.','',0,'AIA=','1a7iy61c',1,0,'',1104,0,0),(45900,9541,6,596,0,'84.76.66.27',1199982271,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:mjz6yogy]Si es COFF, puedes usar LIB.exe para obtener un listado de su contenido.\n/LIST[:filename][/quote:mjz6yogy]\nMe saca algo muy raro con LIB.EXE\n\n[code:mjz6yogy]E&#58;\\Programa\\DNIe&gt;lib&#46;exe /LIST&#58;ltc2x&#46;lib\nMicrosoft &#40;R&#41; Library Manager Version 6&#46;24&#46;3077\nCopyright &#40;C&#41; Microsoft Corporation&#46;  All rights reserved&#46;\n\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\nLTC2x&#46;dll\n[/code:mjz6yogy]','',0,'gIA=','mjz6yogy',1,0,'',596,0,0),(45901,9561,3,448,0,'82.155.1.123',1199982338,1,0,1,1,1,0,'','Char type Ansi/Oem','Hello,\n\nIs there any function for xHarbour in order to transform all strings accordingly to a pre defined type ANSI or OEM ?\n\nAntonio','',0,'gIA=','ikpx2caq',1,0,'',448,0,0),(45902,9542,6,596,0,'84.76.66.27',1199982375,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:31rbf25q]Puedes construir una DLL con esa librería y usarla[/quote:31rbf25q]\n\nY como...','',0,'gA==','31rbf25q',1,0,'',596,0,0),(45903,8842,3,448,0,'82.155.1.123',1199982590,1,0,1,1,1,0,'','','Look out with OrdKeyNo.\n\nI had to change it because in network enviroment the application speed its a big problem. See my previous messages. \n\nAntonio','',0,'gA==','1azhrus1',1,0,'',448,0,0),(45904,9555,3,21,0,'87.220.90.225',1199983824,1,0,1,1,1,1,'','','Gianni,\n\nCorrect.\nIt is not the function str(). These are all functions of converting numbers to characters from xharbour december build','',0,'gA==','nar9ydjr',1,0,'',21,0,0),(45905,8842,3,303,0,'72.220.181.80',1199983919,1,0,1,1,1,0,'','','AHF,\n\nI have modified my previous code sample to work without a database object. I works fine for me. If you will post your code perhaps I can tell why it wasn\'t working for you.\n\nNo changes to TCBrowse required.\n\nPatrick, the portion of code for the setting the skipblock and colors will also work with TWBrowse.\n\nUse the test code with FWH\\samples\\customer.dbf.\n\nRegards,\nJames\n\n[code:22qmxfdf]// Purpose &#58; Sample TCBrowse with alternating color rows without a database object\n// Author  &#58; James Bott\n// Date    &#58; 1/9/2008\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;TCBrowse&#46;ch&quot;    // &lt;-- Important\n\nfunction main&#40;&#41;\n   local oWnd, oBrw, lClrFlag, cAlias\n\n   use customer\n   cAlias &#58;= alias&#40;&#41;\n\n   define window oWnd title &quot;TCBrowse Test&quot;\n\n   @ 0,0 browse oBrw of oWnd update\n\n   oBrw&#58;cAlias &#58;= cAlias\n\n   add column to browse oBrw data &#40;cAlias&#41;-&gt;first\n\n   add column to browse oBrw data &#40;cAlias&#41;-&gt;last\n\n   lClrFlag&#58;=&#46;f&#46;\n\n   oBrw&#58;bSkip&#58;=&#123;| nRecs | &#40;nRecs&#58;= &#40;cAlias&#41;-&gt;&#40;dbskipper&#40; nRecs &#41;&#41;, lClrFlag&#58;=if&#40;nRecs/2 = int&#40;nRecs/2&#41;, lClrFlag,!lClrFlag&#41;, nRecs&#41; &#125;\n\n   oBrw&#58;nClrPane &#58;= &#123; || if&#40;lClrFlag, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125;\n   oBrw&#58;nLineStyle&#58;=0\n\n   oWnd&#58;oClient&#58;= oBrw\n\n   activate window oWnd\n\nreturn nil[/code:22qmxfdf]','',0,'AIA=','22qmxfdf',1,0,'',303,0,0),(45906,8842,3,868,0,'219.64.121.60',1199983963,1,0,1,1,1,1,'','','I totally agree with you.  I never use them for these purposes.\n\nIn network environments never use ordkeyno or adskeyno for cosmetic jobs. Even otherwise limit use of the functions to absolute necessity.  \n\nBut for browses of small tables and for local tables it is okay. \n\nAdskeyno is even slower than ordkeyno.  Also it involves round trips to the server and it is not good programming practice to increase network traffic for just cosmetic purposes or to place undue burden on the server. The difference is more pronounced when we deal with huge tables and hundreds of simultaneous users.   Testing with smaller tables with a very few users will not give much problem though.\n\nRelevant portions of ADS documentation of AdsGetKeyNum :\n[quote:n1zmifk9]\nIf the index is large, this function could take some time to complete because index keys are literally counted until the current key is reached. \nIf usFilterOption contains ADS_RESPECTFILTERS, the Advantage Client Engine must skip through all records referenced by keys in the index that pass the filter and/or scope and count them until the current key is reached. Thus, with large indexes where many records pass the filter and/or keys pass the scope, this function can be very slow.\n[/quote:n1zmifk9]\nThat is the reason i prefer a solution from the browse class itself. Merit of this approach is that same code works without regard to the rdd or the datasource. I am trying to make similar modifications to txbrowse class.','',0,'gA==','n1zmifk9',1,0,'',868,0,0),(45907,8842,3,868,0,'219.64.121.60',1199984307,1,0,1,1,1,1,'','','Mr James\n\nYour solution is a lot more elegant and works well.  I agree we can drop considering any other alternative approaches. \n\nI should have tested your approach first.  Why did Mr AHF report this approach was not working for him? Working fine for me.\n\nThank you Mr James','',0,'gA==','1al5bz0w',1,0,'',868,0,0),(45908,9516,3,303,0,'72.220.181.80',1199984345,1,0,1,1,1,0,'','','Enrico,\n\n&gt;I find it not so simple if you want to change the tab order of just one control on a dialog with many controls. You have to start from the first one each time.\n\nWell it is tedious, but I don\'t know how you could change the order of just one control--normally you have to change all the controls after the one. Perhaps you are thinking that it would be nice if you could insert a new control and have all the others automatically moved back one place. That would be nice.\n\nJames','',0,'gA==','3joivb89',1,0,'',303,0,0),(45909,9516,3,34,0,'68.5.217.82',1199984765,1,0,1,1,1,1,'','Order of controls','Thats the point.  Yesterday I looked at a dialog with about 50 controls.  Only one is out of order.  I went to the .RC file, took the 1 out of order and simply placed it where it should be.  Took about 10 seconds to find, highlight, drag and drop ... using MultiEdit on the source file.\n\nI also decided to change some button sizes and positions.  So using he editor I could quickly change the numbers and because it was a repetitive task over about 50 controls, using the overwrite capability, I simply used arrows and buttons to do it very quickly.  In a resource editor, that would have taken a long time changing the Properties on each control.\n\nI use this for fine tuning dialogs.  For a new dialog, I create it in Pelles, then copy the source into my primary .rc file.  All further adjustments are then done with the text editor.','',0,'gA==','3i4zzfos',1,0,'',34,0,0),(45910,8842,3,303,0,'72.220.181.80',1199984917,1,0,1,1,1,0,'','','NageswaraRao,\n\nThanks for confirming that it does work. I don\'t know why AHF has been unable to get it working. Hopefully he will run the test code and report back.\n\nJames','',0,'gA==','3gsfuc69',1,0,'',303,0,0),(45911,9516,3,303,0,'72.220.181.80',1199985661,1,0,1,1,1,0,'','','Tim,\n\n&gt;I also decided to change some button sizes and positions. ... In a resource editor, that would have taken a long time changing the Properties on each control.\n\nI almost always use standard button sizes, so I rarely would change them. Since buttons usually occur in colomns or rows, you can move the location of the entire column or row in one step in Workshop.\n\nI can see how it would be easier to insert one control in a tab sequence using an editor.\n\nThere is no doubt some things are easier in a visual designer and some are easier in code.\n\nJames','',0,'gA==','3byjcozg',1,0,'',303,0,0),(45912,9560,6,228,0,'190.156.93.226',1199986344,1,0,1,1,1,1,'','haz lo siguiente...','Amigo haz clic derecho sobre tu proyecto, ahi te sale un menu, escoje la opción new y luego en manifiest.\n\nEso es todo...\n\nEspero te sirva','',0,'gA==','19zp5ru0',1,0,'',228,0,0),(45913,8842,3,868,0,'219.64.121.60',1199986528,1,0,1,1,1,1,'','','Mr James\n\nYour code works well with tcbrowse and twbrowse.\nI am having some issues with txbrowse.  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gA==','su0zpffh',1,0,'',868,0,0),(45914,9560,6,1104,0,'190.55.55.66',1199987257,1,0,1,1,1,0,'','','Gracias Leandro\nFuncionó de primera.\nSaludos, Esteban.','',0,'gA==','8ktg5wxa',1,0,'',1104,0,0),(45915,9512,3,51,0,'80.122.88.242',1199987321,1,0,1,1,1,0,'','','Hello NageswaraRao,\n\nI filled your example with real data and inserted a function to scroll during drag.\nDragbegin gives me the record which I drag.\nDropover the record where I drop.\n\nBut now I am a little uncertain how to change the position of the records in the browser and refresh the browser.\nMaybe you have an advice for me.\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/lexikon/lexikon.zip\">www.atzwanger.com/lexikon/lexikon.zip</a><!-- w -->\nis what I have so far.\n\nBest regards\nOtto\n\n[img:2niv89qo]http&#58;//www&#46;atzwanger&#46;com/fw/drag5&#46;jpg[/img:2niv89qo]','',0,'CA==','2niv89qo',1,0,'',51,0,0),(45916,9545,2,248,0,'212.145.179.68',1199988381,1,0,1,1,1,0,'','Permisos','¿Este programa lo tienes registrado en el registro de windows?, si es asi darles permiso de administrador al programa en la linea del registro.','',0,'CA==','28sgikff',1,0,'',248,0,0),(45917,9473,11,2,0,'87.218.146.208',1199988976,1,0,1,1,1,1,'','','Willy,\n\n&gt; I did not find a way to change the PKG_CONFIG_PATH variable\n\nPlease uninstall and reinstall glade-2 and if the problem remains there, then do:\n\nexport PKG_CONFIG_PATH=&lt;path_to_glade-2&gt;','',0,'CA==','1dvguw7a',1,0,'',2,0,0),(45918,8842,3,6,0,'82.57.162.94',1199989257,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1ag4jqa3]Mr James\n\nYour solution is a lot more elegant and works well.  I agree we can drop considering any other alternative approaches.[/quote:1ag4jqa3]\n\nAlthough James solution is nice I would much prefer the simpler code as in your previous example:\n\n[code:1ag4jqa3]oBrw&#58;nClrPane &#58;= &#123; |nRow| iif&#40; nRow % 2 == 0, rgb&#40;255,255,235&#41;, rgb&#40;192,208,179&#41;&#41; &#125;[/code:1ag4jqa3]\n\nEMG','',0,'gIA=','1ag4jqa3',1,0,'',6,0,0),(45919,9516,3,6,0,'82.57.162.94',1199989447,1,0,1,1,1,1,'','Re: Order of controls','[quote=&quot;TimStone&quot;:1ea4h0zi]Thats the point.  Yesterday I looked at a dialog with about 50 controls.  Only one is out of order.  I went to the .RC file, took the 1 out of order and simply placed it where it should be.  Took about 10 seconds to find, highlight, drag and drop ... using MultiEdit on the source file.[/quote:1ea4h0zi]\n\nGreat! I was not aware of that way. I will surely use it next time. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThank you!\n\nEMG','',0,'gA==','1ea4h0zi',1,0,'',6,0,0),(45920,9561,3,6,0,'82.57.162.94',1199989595,1,0,1,1,1,1,'','Re: Char type Ansi/Oem','Did you mean\n\n[code:3d5m33m0]HB_OEMTOANSI&#40;&#41;\nHB_ANSITOOEM&#40;&#41;[/code:3d5m33m0]\n\n?\n\nEMG','',0,'AIA=','3d5m33m0',1,0,'',6,0,0),(45921,9465,3,6,0,'82.57.162.94',1199989653,1,0,1,1,1,1,'','','You are using the wrong lib (the one for MSC).\n\nEMG','',0,'AIA=','1q71s5y0',1,0,'',6,0,0),(45922,9548,3,1257,0,'195.93.60.7',1199989653,1,0,1,1,1,1,'','Calendar (popup a replace date-field) + other date-funct.','Why don\'t you try the calendar, you find at my website ?\n\nGreetings from Germany\n\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','1q71s5y0',1,0,'',1257,0,0),(45923,9562,3,6,0,'82.57.162.94',1199990432,1,0,1,1,1,1,'','Bug in TCBrowse','In the following sample, please press the down arrow till the thumb reaches about half the scrollbar and then try to press PAGE DOWN. You will see that the thumb itself moves up instead of down:\n\n[code:226429ng]#include &quot;Fivewin&#46;ch&quot;\n#include &quot;Tcbrowse&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oBrw\n\n    USE TEST\n\n    DEFINE DIALOG oDlg;\n           SIZE 400, 400\n\n    @ 0, 0 BROWSE oBrw\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; last;\n               HEADER &quot;LAST&quot;\n\n    ADD COLUMN TO oBrw;\n               DATA TEST -&gt; first;\n               HEADER &quot;FIRST&quot;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    CLOSE\n\n    RETURN NIL[/code:226429ng]\n\nEMG','',0,'AIA=','226429ng',1,0,'',6,0,0),(45924,9562,3,6,0,'82.57.162.94',1199990487,1,0,1,1,1,1,'','Re: Bug in TCBrowse','The same sample works fine if a TWBrowse is used instead of a TCBrowse.\n\nEMG','',0,'AIA=','17uvir1v',1,0,'',6,0,0),(45925,9548,3,34,0,'68.5.217.82',1199990994,1,0,1,1,1,1,'','Kalendar','Its nice and functional, but I wanted just a simple calendar to put on an existing dialog.  What I was able to do with the FWH sample code, and modifying it, works well.','',0,'AIA=','v79k7cim',1,0,'',34,0,0),(45926,8842,3,448,0,'83.132.134.79',1199991170,1,0,1,1,1,0,'','','James,\n\nSorry to miss lead you. \n\nYour code works well, however  I have several bskip s and it\'s much easy to alter my own inherited TcBrowse class instead of chekcing out all bskip s.\n\nOnce more thanks to all for your help.\n\nAntonio','',0,'AIA=','3sjpkpyv',1,0,'',448,0,0),(45928,9561,3,448,0,'83.132.134.79',1199991615,1,0,1,1,1,0,'','','I mean if there is one function to change automaticly the way strings are handled by all rotines in the application.\n\nAntonio','',0,'AIA=','1fu7cg1m',1,0,'',448,0,0),(45929,9465,3,51,0,'80.122.88.242',1199991738,1,0,1,1,1,0,'','','Thank you. Yes it was harbourm.exe.\nBest regards,\nOtto','',0,'AIA=','3bdi344x',1,0,'',51,0,0),(45930,9549,3,130,0,'77.179.196.181',1199992120,1,0,1,1,1,1,'','','Here you have a working sample. On page 2 a dialog is shown on the right side. See the lines with a marker (// &lt;-----).\n\n[code:1js66be2]// FWH Class TOutLook2003\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\nstatic lExit &#58;= &#46;F&#46;\nSTATIC aCtrl         // &lt;-----\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue &#58;= 1\n   local oFont\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH new Class TOutLook2003&quot; MDI // ;\n      // MENU BuildMenu&#40;&#41;\n\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Mail&quot;, &quot;Calendar&quot;, &quot;Contacts&quot;, &quot;&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot;;\n      ON CHANGE &#40;Show &#40;oOutLook2003, oWnd&#58;oWndClient&#41;&#41; // &lt;-----\n  \n   aCtrl &#58;= Array &#40;Len &#40;oOutLook2003&#58;aGroups&#41;&#41;                  // &lt;-----\n   \n   oWnd&#58;oLeft = nil // Because the splitter is going to control the resize   \n      \n   @ 1, 2 BUTTON &quot;New&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION BuildDlg&#40;&#41;\n\n   @ 3, 2 BUTTON &quot;Edit&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Edit&quot; &#41;   \n\n   @ 5, 2 BUTTON &quot;Search&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Search&quot; &#41;   \n\n   @ 1, 1 COMBOBOX cCombo ITEMS &#123; &quot;January&quot;, &quot;February&quot;, &quot;March&quot;, &quot;April&quot;, &quot;May&quot; &#125; ;\n      OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 170, 100 \n   \n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -10\n   \n   @ 12, 10 SAY Date&#40;&#41; OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 80, 20 FONT oFont\n   \n   @ 3, 1 RADIO oRad VAR nValue OF oOutLook2003&#58;aDialogs&#91; 2 &#93; ;\n      ITEMS &quot;&amp;Day&quot;, &quot;&amp;Week&quot;, &quot;&amp;Month&quot; SIZE 100, 20\n      \n   oRad&#58;SetFont&#40; oFont &#41;   \n\n   #ifndef __CLIPPER__\n      DEFINE STATUSBAR oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #else   \n      DEFINE MESSAGE oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #endif   \n\n   SetParent&#40; oOutLook2003&#58;hWnd, oWnd&#58;hWnd &#41;\n   \n   oWnd&#58;oClient = nil\n   \n   @ 0, 191 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oOutLook2003 ; \n      HINDS CONTROLS oWnd&#58;oWndClient ;\n      SIZE 4, oWnd&#58;nHeight - 70 PIXEL ;\n      OF oWnd\n\n   SetParent&#40; oSplit&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit&#58;Adjust&#40;&#41; ;\n      VALID lExit &#58;= &#46;T&#46;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   MENU oMenu\n      MENUITEM &quot;&amp;One&quot;\n      MENUITEM &quot;&amp;Two&quot;\n      MENUITEM &quot;&amp;Three&quot;\n   ENDMENU\n   \nreturn oMenu   \n\n//----------------------------------------------------------------------------//\n\nfunction BuildDlg&#40;&#41;\n\n   local oDlg, oOutL2003\n   \n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n   \n   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;\n      PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot; ;\n      DIALOGS &quot;Page1&quot;, &quot;Page2&quot;, &quot;Page3&quot;      \n\n   REDEFINE BUTTON ID 110 OF oOutL2003&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;Click&quot; &#41;\n      \n   ACTIVATE DIALOG oDlg CENTERED\n   \nreturn nil      \n\n//----------------------------------------------------------------------------//\n\nfunction WinRun&#40;&#41;\n\n   while NoGPF&#40;&#41;\n      if lExit\n         PostQuitMessage&#40; 0 &#41;\n      endif   \n   end\n   \nreturn nil         \n                \n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nBOOL SysRefresh&#40; void &#41;;\n\nHB_FUNC&#40; NOGPF &#41;\n&#123;\n   __try\n   &#123;\n      hb_retl&#40; SysRefresh&#40;&#41; &#41;;\n   &#125;\n   __except &#40; &#40; hb_retl&#40; TRUE &#41;, TRUE &#41; &#41;\n   &#123;&#125; \n&#125;\n\n#pragma ENDDUMP	\n\n//---------------------------------------------------------------\nFUNCTION Show &#40;oOutLook, oWnd&#41;          // &lt;-----\n\nLOCAL nPage &#58;= AScan&#40; oOutLook&#58;aGroups, &#123; | o | o&#58;lSelected &#125; &#41;\nLOCAL nAllPages &#58;= Len &#40;oOutLook&#58;aGroups&#41;\nLOCAL oDlg, oCtrl, i\n\n\nFOR i &#58;= 1 TO nAllPages\n  IIF &#40;Valtype &#40;aCtrl&#91;i&#93;&#41; =&quot;O&quot;,aCtrl&#91;i&#93;&#58;Hide&#40;&#41;, &#41;\nNEXT\n\nDO CASE\nCASE nPage = 1\n  \nCASE nPage = 2\n  IF Valtype &#40;aCtrl&#91;nPage&#93;&#41; =&quot;O&quot;\n    aCtrl&#91;nPage&#93;&#58;Show&#40;&#41;\n  ELSE\n    DEFINE DIALOG aCtrl&#91;nPage&#93; FROM 1,1 TO 15,35 OF oWnd ;\n           TITLE &quot;I am at the right side&quot;\n    ACTIVATE DIALOG aCtrl&#91;nPage&#93; ;\n             ON INIT aCtrl&#91;nPage&#93;&#58;Center &#40;oWnd&#41;;\n             NOWAIT\n  ENDIF\nCASE nPage = 3\n\nENDCASE\n\n\nRETURN &#40;nil&#41;[/code:1js66be2]','',0,'AIA=','1js66be2',1,0,'',130,0,0),(45931,9558,3,130,0,'77.179.196.181',1199992595,1,0,1,1,1,1,'','','Günther,\n\nYou can only change the color of the folderdialogs, not of the folder itself, because it is a standard 32bit windows control. It may be possible, if you change the WM_PAINT message, but I don´t know.','',0,'AIA=','1jan17h3',1,0,'',130,0,0),(45932,9516,3,51,0,'80.122.88.242',1199992728,1,0,1,1,1,0,'','','Only a little hint. Sometimes I use EXCEL to open the rc and also the VRD files.\nSo the columns are displayed very well.\nRegards,\nOtto\n[img:3f0wh4om]http&#58;//www&#46;atzwanger&#46;com/fw/excel&#46;jpg[/img:3f0wh4om]','',0,'CA==','3f0wh4om',1,0,'',51,0,0),(45933,9564,6,492,0,'189.147.68.249',1199993122,1,0,1,1,1,1,'','FWH 7.12 + AJMake','Hola a todos\n\nHe estado usando AJMake desde hace un buuuen rato, aunque es algo sencillo y modesto, me he acostunbrado a su uso.\n\nAhora que instale el update 7.12 al momento de generar la app, me sale un mensaje acerca de una lib que no encuentra GTSTD.LIB, alguno de uds sabe como hacerle para que no busque esta lib??\n\n\n\nSaludos y gracias','',0,'CA==','2fssiek5',1,0,'',492,0,0),(45934,9516,3,6,0,'82.57.162.94',1199993224,1,0,1,1,1,1,'','','Good to know.\n\nEMG','',0,'CA==','udpnfq6u',1,0,'',6,0,0),(45935,9561,3,6,0,'82.57.162.94',1199993375,1,0,1,1,1,1,'','','I don\'t know, sorry.\n\nEMG','',0,'CA==','v84cqt04',1,0,'',6,0,0),(45936,8842,3,6,0,'82.57.162.94',1199993574,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:3awvxo0s][code:3awvxo0s]nRecs/2 = int&#40;nRecs/2&#41;[/code:3awvxo0s][/quote:3awvxo0s]\n\nYou can replace it with\n\n[code:3awvxo0s]nRecs % 2 = 0[/code:3awvxo0s]\n\nEMG','',0,'gIA=','3awvxo0s',1,0,'',6,0,0),(45937,9565,6,1236,0,'201.86.90.62',1199994915,1,0,1,1,1,0,'','Google Maps - Ajustar Mapa é possível?','Pessoal é possível ajustar o mapa (google maps) ao tamanho que eu especifiquei. SIZE 285,170.\n\nex:\n\n@ 418,08 ACTIVEX oActive PROGID \"Shell.Explorer\" OF oWnd SIZE 285,170 \noActive:Do( \"Navigate\", CurDrive() + \":\\\" + CurDir() + \"\\temp.html\" )\n\n\nFalo isso, porque só tenho este espaço na tela, e o mapa é apresentado, mais fica deslocado... Tenho então que usar o mouse para ir até a posição que eu quero.','',0,'gIA=','3qzu1n86',1,0,'',1236,0,0),(45938,9566,3,448,0,'83.132.134.79',1199995891,1,0,1,1,1,0,'','Timage problem','Hi,\n\nThe following code :\n\n      oClipboard := TClipboard():New( CF_BITMAP )\n      hBitmap    := oClipboard:GetBitmap()\n      oClipboard:End()\n      if hBitmap != 0\n         cimagemp := unicof(\".jpg\")\n         oimg:cResname:=nil\n         oimg:LoadFromClipboard()  \n         oimg:refresh()\n\neverything ok here\n\n              if !oimg:SaveImage(cimagemp,2) //0 = bmp 2 = jpg\n\nit never saves the image to afile.\n\nAny ideas ?\n\nAntonio','',0,'gIA=','2eoc5z8f',1,0,'',448,0,0),(45939,9516,3,34,0,'68.5.217.82',1199996079,1,0,1,1,1,1,'','Editing controls','James,\n\nI\'m not against the resource editors.  I do use them for layout and design work. \n\nI used buttons because BTNBMP can be used for some interesting features, and there is no \"standard size\".  \n\nTim','',0,'gIA=','2165vyw0',1,0,'',34,0,0),(45940,9564,6,960,0,'84.125.196.99',1199996778,1,0,1,1,1,0,'','','Raymundo,\n\nyo uso Ajmaker y me funciona de maravillas. Compilo utilizando 4 librerias:\n\nDe FWH:      Fivehc.lib y  fivehx.lib\nDe xHarbour: Hbsix.lib y  dbffpt.lib\n\nUn saludo.\nLORENZO','',0,'gIA=','3dfk9a8o',1,0,'',960,0,0),(45941,9564,6,492,0,'189.147.68.249',1199999039,1,0,1,1,1,1,'','','Ok, encontre la forma :\n\nEn la carpeta de Windows existe un archivo AJMAKE.INI, ahi tiene el listado de las libs a usar.\n\nPor el momento ya no la solicita, pero no me muestra nada el exe al ejecutarlo.\n\nSigo checando.\n\nSaludos','',0,'gIA=','3datx71q',1,0,'',492,0,0),(45942,9564,6,492,0,'189.147.68.249',1199999283,1,0,1,1,1,1,'','','Lorenzo :\n\nAsi es, es un utilitario muy practico y sencillo.\n\nNo he querido cambiarme a otro gestor por lo mismo.\n\nEspero que lo pueda seguir usando por otro buen rato  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'gIA=','1t5bncob',1,0,'',492,0,0),(45943,9567,6,931,0,'201.159.1.211',1199999593,1,0,1,0,1,0,'','ADO con MS SQL 2005','Hola,\n\nUna pregunta breve y concreta, como funciona MS SQL Server 2005 con ADO, usando el provider native correpsondiente?\n\nO recomiendan usar MS SQL Server 2000?\n\nSaludos,\nMario A. Dávalos','',0,'gIA=','2m1yk80s',1,0,'',931,0,0),(45944,9445,7,527,0,'80.39.248.224',1200000582,1,0,1,1,1,0,'','Ayuda por favor','Como hago para poder instalar este nuevo emulador\n\ngracias.','',0,'gIA=','3a6vvkol',1,0,'',527,0,0),(45945,9445,7,527,0,'80.39.248.224',1200000670,1,0,1,1,1,0,'','Ayuda por favor','Que tengo que hace para hacer funcionar los emuladores que dice Antonio\ngracias.','',0,'gIA=','21nl8uys',1,0,'',527,0,0),(45946,9461,17,1257,0,'195.93.60.7',1200006403,1,0,1,1,1,1,'','Calender new Update 2.0','A english-version is ready with some more functions.\nI can try, to make it a bit faster.\nI checked it on a slow ( old ) computer. \nThe speed wasn\' t slow.\n\nGreetings from Germany\nU. König\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gIA=','2pe2x1i0',1,0,'',1257,0,0),(45947,9329,17,1257,0,'195.93.60.7',1200006629,1,0,1,1,1,1,'','Downloads from UKoenig','All Samples can be downloaded at\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin\">http://www.pflegeplus.com/fivewin</a><!-- m -->\n\nBoth English and German - Versions.\n\nRegards\nU.König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gIA=','14ujr7um',1,0,'',1257,0,0),(45948,9568,6,1201,0,'190.78.117.31',1200007597,1,0,1,1,1,0,'','COMPARTIENDO EXPERIENCIAS!!!','( En FW 0709 )\n(Desde recursos)\nResulta que tenia un dialogo normal con un combobox, y al ejecutar la rutina, cada vez que pasaba sobre el combobox con enter, el dialogo se cerraba (como si se hubiera presionado la tecla Escape).\n\nResulta que el el Recurso tenía una etiqueta con ID = 1, que no era referenciada desde la rutina, Y ESTO ERA LO QUE CAUSABA ESTE COMPORTAMIENTO EXTRAÑO.\n\nEntonces Colegas, ya saben, si alguna vez tienen este comportamiento donde pueden buscar el problema.\n\n\nUn placer, Saludos a todos.\nAngel','',0,'gIA=','9sntucpy',1,0,'',1201,0,0),(45949,8842,3,303,0,'72.220.181.80',1200009409,1,0,1,1,1,0,'','','AGF,\n\n&gt;Your code works well, however I have several bskip s and it\'s much easy to alter my own inherited TcBrowse class instead of chekcing out all bskip s. \n\nOK, glad to hear it worked for you. Granted it will be easier right now to use the modified TCBrowse, but then you will have to modify each new version of FWH. If you getting monthly updates of FWH, then that will be more work.\n\nIt would be better to create a subclass of TCBrowse. Then you don\'t need to modify the original TCBrowse source for each new version of FWH.\n\nModifying the bSkips also would prevent you from having to make any changes with new versions of FWH.\n\nRegards,\nJames','',0,'gIA=','3cevvrzk',1,0,'',303,0,0),(45950,9549,3,49,0,'62.13.172.68',1200009732,1,0,1,1,1,1,'','','STEPHAN,\n I wanted a dialog as my picture and not another dialog ( it is not mdi)\n\nperhaps you not understand me','',0,'gIA=','i3ri9025',1,0,'',49,0,0),(45951,9549,3,49,0,'62.13.172.68',1200010125,1,0,1,1,1,1,'','','Stephan,\nI wanted make an header with gradient from splitter to end of ownd\nand then down a type of panel ( dialog) where I can insert a browse \nI not wanted a \"flying dialog\"\nI hope you understand me !!','',0,'gIA=','2yuikvde',1,0,'',49,0,0),(45952,9569,6,492,0,'189.147.68.123',1200010262,1,0,1,1,1,1,'','Configuracion XMate para FWH 7.12 + XHarbour','Hola  a todos\n\nAndo probando el xMate, he escuchado muy buenos comentarios, ya logre generar el exe, pero no me muestra nada, quiero pensar que sea algun parametro o el orden de las libs.\n\nSi alguno de uds que lo usa, fuera tan amable de pasarme algunas imagenes de la configuracion o algunas sugerencias para poder lograr que el exe corra correctamente, se lo agradecere mucho.\n\n\nSaludos','',0,'gIA=','2zasazol',1,0,'',492,0,0),(45953,9516,3,303,0,'72.220.181.80',1200010602,1,0,1,1,1,0,'','','Tim,\n\n&gt;...and there is no \"standard size\".\n\nWell it is not cast in stone, but Workshop creates the same size buttons by default as are used in most Microsoft applications. Microsoft pretty much dictates the standards, intentionally or not.\n\nIt is also easier not to change the default size.\n\nJames','',0,'gIA=','1l7rxevi',1,0,'',303,0,0),(45954,9516,3,2,0,'87.218.146.208',1200011361,1,0,1,1,1,1,'','','Well, FYI I have been two full days working on VSX.\n\nBut no luck yet for what we are looking for,\n\nIf someone is interested in getting some guidance for testing, just say it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','23pihe2o',1,0,'',2,0,0),(45955,9516,3,35,0,'65.188.6.143',1200013817,1,0,1,1,1,0,'','','Antonio\n\nI applaud you for your tenacity !!   I think VSX may be a viable answer but needs to mature a bit more .. The concept is commendable and it may still work as more and more people ( like yourself ) start sending Microsoft their feedback.\n\nRick Lipkin','',0,'gIA=','2sojb85p',1,0,'',35,0,0),(45956,9531,3,233,0,'218.111.61.90',1200015436,1,0,1,1,1,0,'','','Thanks Richard. I missed that post  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'gIA=','3ugh7v5q',1,0,'',233,0,0),(45957,9544,6,1255,0,'201.122.38.237',1200015597,1,0,1,1,1,0,'','','Hola Antonio:\n\nEl resultado de tu dedicación (no falla), habrán muchos más.\n\nFelicidades.\n\nManuel Mercado','',0,'gIA=','th05mvvo',1,0,'',1255,0,0),(45958,9516,3,2,0,'87.218.146.208',1200015776,1,0,1,1,1,1,'','','Rick,\n\nI got it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease see my new post','',0,'gIA=','2mmc2wpl',1,0,'',2,0,0),(45960,9549,3,49,0,'62.13.172.68',1200018379,1,0,1,1,1,1,'','','look this :\n[img:31k1zgpq]http&#58;//img293&#46;imageshack&#46;us/img293/8231/outlookxbrowsert4&#46;png[/img:31k1zgpq]\n[code:31k1zgpq]\n \n\n#include &quot;FiveWin&#46;ch&quot; \n#include &quot;Splitter&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n\n\nstatic lExit &#58;= &#46;F&#46;\nSTATIC aCtrl         // &lt;-----\n\n//----------------------------------------------------------------------------// \n\nfunction Main&#40;&#41;\n\n   local oWnd, oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue &#58;= 1\n   local oFont\n   lOCAL nSplit&#58;=191\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH new Class TOutLook2003&quot; MDI // ;\n      // MENU BuildMenu&#40;&#41;\n\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Mail&quot;, &quot;Calendar&quot;, &quot;Contacts&quot;, &quot;&quot; ;\n      BITMAPS &quot;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;\\bitmaps\\notes&#46;bmp&quot;;\n      ON CHANGE &#40;Show &#40;oOutLook2003, oWnd&#58;oWndClient,nSplit&#41;&#41; // &lt;-----\n\n   aCtrl &#58;= Array &#40;Len &#40;oOutLook2003&#58;aGroups&#41;&#41;                  // &lt;-----\n\n   oWnd&#58;oLeft = nil // Because the splitter is going to control the resize\n\n   @ 1, 2 BUTTON &quot;New&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION BuildDlg&#40;&#41;\n\n   @ 3, 2 BUTTON &quot;Edit&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Edit&quot; &#41;\n\n   @ 5, 2 BUTTON &quot;Search&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Search&quot; &#41;\n\n   @ 1, 1 COMBOBOX cCombo ITEMS &#123; &quot;January&quot;, &quot;February&quot;, &quot;March&quot;, &quot;April&quot;, &quot;May&quot; &#125; ;\n      OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 170, 100\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -10\n\n   @ 12, 10 SAY Date&#40;&#41; OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 80, 20 FONT oFont\n\n   @ 3, 1 RADIO oRad VAR nValue OF oOutLook2003&#58;aDialogs&#91; 2 &#93; ;\n      ITEMS &quot;&amp;Day&quot;, &quot;&amp;Week&quot;, &quot;&amp;Month&quot; SIZE 100, 20\n\n   oRad&#58;SetFont&#40; oFont &#41;\n\n   #ifndef __CLIPPER__\n      DEFINE STATUSBAR oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #else\n      DEFINE MESSAGE oStatusBar PROMPT &quot;  FWH Class TOutLook2003&quot; OF oWnd\n   #endif\n\n   SetParent&#40; oOutLook2003&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   oWnd&#58;oClient = nil\n\n   @ 0, 191 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oOutLook2003 ;\n      HINDS CONTROLS oWnd&#58;oWndClient ;\n      SIZE 4, oWnd&#58;nHeight - 70 PIXEL ;\n      OF oWnd\n\n   SetParent&#40; oSplit&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   ACTIVATE WINDOW oWnd ;\n      ON RESIZE oSplit&#58;Adjust&#40;&#41; ;\n      VALID lExit &#58;= &#46;T&#46;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu\n      MENUITEM &quot;&amp;One&quot;\n      MENUITEM &quot;&amp;Two&quot;\n      MENUITEM &quot;&amp;Three&quot;\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction BuildDlg&#40;&#41;\n\n   local oDlg, oOutL2003\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n\n   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;\n      PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      BITMAPS &quot;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;\\bitmaps\\notes&#46;bmp&quot; ;\n      DIALOGS &quot;Page1&quot;, &quot;Page2&quot;, &quot;Page3&quot;\n\n   REDEFINE BUTTON ID 110 OF oOutL2003&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;Click&quot; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction WinRun&#40;&#41;\n\n   while NoGPF&#40;&#41;\n      if lExit\n         PostQuitMessage&#40; 0 &#41;\n      endif\n   end\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nBOOL SysRefresh&#40; void &#41;;\n\nHB_FUNC&#40; NOGPF &#41;\n&#123;\n   __try\n   &#123;\n      hb_retl&#40; SysRefresh&#40;&#41; &#41;;\n   &#125;\n   __except &#40; &#40; hb_retl&#40; TRUE &#41;, TRUE &#41; &#41;\n   &#123;&#125;\n&#125;\n\n#pragma ENDDUMP\n\n\n\n\n\n\n#define LIGHTBLUE    nRGB&#40;  89, 135, 214 &#41;\n#define DARKBLUE     nRGB&#40;   3,  56, 147 &#41;\n#define LIGHTORANGE1 nRGB&#40; 250, 227, 143 &#41;\n#define DARKORANGE1  nRGB&#40; 238, 152, 25 &#41;\n#define LIGHTCYAN    nRGB&#40; 203, 225, 252 &#41;\n#define DARKCYAN     nRGB&#40; 125, 165, 224 &#41;\n#define LIGHTORANGE2 nRGB&#40; 255, 255, 220 &#41;\n#define DARKORANGE2  nRGB&#40; 247, 192, 91 &#41;\n\n\n\n\n\n\n\n//---------------------------------------------------------------\nFUNCTION Show &#40;oOutLook, oWnd,nSplit&#41;          // &lt;-----\n\nLOCAL nPage &#58;= AScan&#40; oOutLook&#58;aGroups, &#123; | o | o&#58;lSelected &#125; &#41;\nLOCAL nAllPages &#58;= Len &#40;oOutLook&#58;aGroups&#41;\nLOCAL oDlg, oCtrl, i\nLocal hDC &#58;=oWnd&#58;getdc&#40;&#41;\nLocal oGrid,oFont\n\n\nDEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -20\n\n\nFOR i &#58;= 1 TO nAllPages\n  IIF &#40;Valtype &#40;aCtrl&#91;i&#93;&#41; =&quot;O&quot;,aCtrl&#91;i&#93;&#58;Hide&#40;&#41;, &#41;\nNEXT\n\nDO CASE\nCASE nPage = 1\n\nCASE nPage = 2\n  IF Valtype &#40;aCtrl&#91;nPage&#93;&#41; =&quot;O&quot;\n    aCtrl&#91;nPage&#93;&#58;Show&#40;&#41; \n ELSE\n      //header\n      nTop = oWnd&#58;nHeight - &#40; Len&#40;oOutLook&#58;aGroups &#41; *166 &#41;\n      Gradient&#40; hDC,  &#123; nTop, 0, nTop + 30,  oWnd&#58;nWidth&#40;&#41; &#125;, DARKBLUE, LIGHTBLUE, &#46;T&#46; &#41;\n      oWnd&#58;Say&#40; nTop + 8 , 200,&quot;Customer&quot;,CLR_WHITE,,oFont, &#46;T&#46;, &#46;T&#46; &#41;\n\n\n\n\n   /* DEFINE DIALOG aCtrl&#91;nPage&#93; FROM 1,1 TO 15,35 OF oWnd ;\n           TITLE &quot;I am at the right side&quot; \n    ACTIVATE DIALOG aCtrl&#91;nPage&#93; ;\n             ON INIT aCtrl&#91;nPage&#93;&#58;Center &#40;oWnd&#41;;\n             NOWAIT\n              */\n\n\n   // GRID\n\n   USE CUSTOMER NEW\n   INDEX ON field-&gt;first to &quot;name&quot;\n   SET INDEX TO &quot;name&quot;\n\n\n   oGrid &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n   oGrid&#58;nTop    &#58;= nTop +32\n   oGrid&#58;nLeft   &#58;= nSplit+1\n   oGrid&#58;nBottom &#58;=   oWnd&#58;nheight&#40;&#41;\n   oGrid&#58;nRight  &#58;=  oWnd&#58;nWidth&#40;&#41;\n   oGrid&#58;cAlias &#58;= &quot;CUSTOMER&quot;\n\n\n   oGrid&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oGrid&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oGrid&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oGrid&#58;lColDividerComplete &#58;= &#46;f&#46;\n\n   oGrid&#58;SetRDD&#40;&#41;\n\n    for nFor &#58;= 1 to len&#40; oGrid&#58;aCols &#41;\n      oCol &#58;= oGrid&#58;aCols&#91; nFor &#93;\n      oCol&#58;nEditType &#58;= 1\n      oCol&#58;bOnPostEdit &#58;= &#123;|o, v, n| iif&#40; n != VK_ESCAPE, FieldPut&#40; o&#58;nCreationOrder, v &#41;, &#41; &#125;\n   next\n\n   oGrid&#58;CreateFromCode&#40;&#41;\n   oWnd &#58;= oGrid\n\n\n\n\n\n\n\n\n\n  ENDIF\nCASE nPage = 3\n\nENDCASE\n\n\nRETURN &#40;nil&#41;\n[/code:31k1zgpq]\n\n\n\nif you click on calendar you can see at right part a header and a xbrowse\n\nif you click another menu of outlook2003  the controls on the right not hide  and the there is an error  alias dont exit\n\nand the header hide when the resizethe window','',0,'CIA=','31k1zgpq',1,0,'',49,0,0),(45961,9521,17,439,0,'200.125.42.155',1200020395,1,0,1,1,1,1,'','','Gracias por enviarme la clase Rafa, ya la he puesto en el foro de utilidades','',0,'CIA=','xv4l9if4',1,0,'',439,0,0),(45962,8842,3,868,0,'219.64.121.60',1200020635,1,0,1,1,1,1,'','','Personally I prefer solutions without having to change FWH source code. ( Not that I never do it, but it is really a tedious work to keep making changes with every FWH upgrade ), unless Mr. Antonio likes to make a solution part of next release.\n\nThere is one issue to rely on bSkip block. It depends on the way the browse object uses the bSkip block.  TWbrowse and TCBrowse behave similarly. TXBrowse behaves a bit differently.  \n\nWe prefer a way which works for all browses and also does not rely on the data source.\n\nI still feel it is better if the browse objects provide evaluation of the bClrPane block or bClrStd block with the visual row number ( or lEvenRow)  as parameter.  In fact that seemed to be the original intention of the author(s) of TCBrowse.','',0,'CIA=','37p7fblt',1,0,'',868,0,0),(45963,9571,17,439,0,'200.125.42.155',1200020635,1,0,1,1,1,1,'','TBUSCADOR, la clase (de TheFull, Rafa Carmona)','Pueden descargar la clase completa desde:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/1yfxh5s004\">http://www.box.net/shared/1yfxh5s004</a><!-- m -->\n\nGracias Rafa!!!!!!','',0,'CIA=','37p7fblt',1,0,'',439,0,0),(45965,9573,3,234,0,'75.34.217.174',1200029287,1,0,1,1,1,1,'','problem with pushbutton','Hello,\n\nI am having a problem with pushbutton. The user must click the button twice to perform the necessary action. Any ideas?\n\n  REDEFINE BUTTON ID 200     OF oDlg   ACTION ( EditFl( .F., invoice-&gt;file ), _Lbx( oLbx2 ) )\n  REDEFINE BUTTON ID 201     OF oDlg   ACTION _StmPrt( oLbx, nFlParty, invoice-&gt;( recno() ) )\n  REDEFINE BUTTON ID 202     OF oDlg   ACTION (lQuit := .T., oDlg:End())','',0,'CIA=','ty3igi1g',1,0,'',234,0,0),(45967,9550,3,51,0,'80.122.88.242',1200034977,1,0,1,1,1,0,'','rc files  and fonts','Do 32 bit resource editors for rc files have the possibility to have different fonts on the  controls.\nIf not which editors do you need for that?\nRegards,\nOtto','',0,'CIA=','ikmct17x',1,0,'',51,0,0),(45968,9445,7,57,0,'80.30.100.25',1200037212,1,0,1,1,1,1,'','','Solo tienes que instalarlo y ejecutarlo. Desde dentro del emulador, accedes a la carpeta FILE/Configure e indicar una carpeta de tu PC dentro de \"Shared folder\". Indicado esto, dicha carpeta será tu Storage card por lo tanto todo lo que guardes ahí, lo podras ejecutar desde el emulador sin problemas.\n\nSi quieres WM6 accede a este link y te bajas el fichero (ESN) .:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=38C46AA8-1DD7-426F-A913-4F370A65A582&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\nSaludos','',0,'CIA=','2foy7ivr',1,0,'',57,0,0),(45969,9574,20,49,0,'213.82.134.66',1200037707,1,0,1,1,1,1,'','IBAN','Caro Emg,\nHo letto da qualche parte adesso non ricordo che tu avevi creato una funzione per controllare il codice IBAN. potresti inviarmela \ncon test minimale per favore ?\n\nGazie','',0,'CIA=','2jc37gdx',1,0,'',49,0,0),(45970,9529,3,239,0,'218.20.61.124',1200039764,1,0,1,1,1,0,'','','Silvio,\n    You can see the prompts on dialog work, but you can\'t   get ?(otabs:aprompts[2])\n\nRegards !\nShuming Wang','',0,'','2nfmh8yx',1,0,'',239,0,0),(45972,9544,6,24,0,'80.24.12.168',1200040447,1,0,1,1,1,1,'','Re: Más de 45000 mensajes!','[quote=&quot;Antonio Linares&quot;:2zi73y4h]Hoy hemos pasado la cantidad de 45000 mensajes en estos foros!\n\nEstos foros se estan convirtiendo en una base de datos de conocimientos muy importante para los usuarios de FiveWin y Harbour.\n\nEnhorabuena a todos! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2zi73y4h]\nEs impresionante, pero como todo solamente una critica constructiva. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n¿ Es posible SEPARAR los foros tambien en los RSS ?\nUn RSS por foro. ( Ademas los lectores de RSS lo agracederán, porque veo , he probado unos cuantos, que a cierta cantidad de volumen, empiezan a fallar... )\n\nEntonces SI que seria lo más similar a las news, y ayudaría enormente en poder ayudar, puesto que si veo 20 msg en english, y entre medio va uno en spanish... pues se pierde mucho....','',0,'gA==','2zi73y4h',1,0,'',24,0,0),(45973,9529,3,303,0,'72.220.181.80',1200040513,1,0,1,1,1,0,'','','If you look at the Add method, the new prompt, cPrompt, is being added to the Windows tab control, but not to the aPrompts array of the FW Tab object. Apparently, aPrompts is not being used anywhere, so it doesn\'t really matter that it is not being updated in the Add() method.\n\nJames','',0,'gA==','1oqqwji9',1,0,'',303,0,0),(45974,8842,3,448,0,'83.132.134.79',1200040856,1,0,1,1,1,0,'','','I agree. \nI use already a Tcbrowse subclass.\n\nAntonio','',0,'gA==','2v7gnuvk',1,0,'',448,0,0),(45975,8842,3,6,0,'79.3.210.111',1200042128,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:2j5x1ids]Granted it will be easier right now to use the modified TCBrowse, but then you will have to modify each new version of FWH.[/quote:2j5x1ids]\n\nI think this is a bug that should be fixed in the standard class.\n\nEMG','',0,'gA==','2j5x1ids',1,0,'',6,0,0),(45976,9574,20,6,0,'79.3.210.111',1200042536,1,0,1,1,1,1,'','Re: IBAN','Eccolo:\n\n[code:1euvmnic]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL cPae &#58;= &quot;IT&quot;\n    LOCAL cAbi &#58;= &quot;01234&quot;\n    LOCAL cCab &#58;= &quot;01234&quot;\n    LOCAL cCon &#58;= &quot;000000012345&quot;\n    LOCAL cCin &#58;= CIN&#40; cAbi, cCab, cCon &#41;\n\n    ? IBAN&#40; &quot;IT&quot;, cCin, cAbi, cCab, cCon &#41;\n\n    RETURN NIL\n\n\nSTATIC FUNCTION IBAN&#40; cPae, cCin, cAbi, cCab, cCon &#41;\n\n    LOCAL cChk &#58;= IBANCHK&#40; cPae + &quot;00&quot; + cCin + cAbi + cCab + cCon &#41;\n\n    RETURN cPae + cChk + cCin + cAbi + cCab + cCon\n\n\nSTATIC FUNCTION IBANCHK&#40; cIba &#41;\n\n    LOCAL cGru, cRes &#58;= &quot;&quot;\n\n    LOCAL i\n\n    cIba = SUBSTR&#40; cIba, 5 &#41; + LEFT&#40; cIba, 4 &#41;\n\n    cIba = IBANNUM&#40; cIba &#41;\n\n    FOR i = 1 TO LEN&#40; cIba &#41; STEP 8\n        cGru = cRes + SUBSTR&#40; cIba, i, 8 &#41;\n        cRes = LTRIM&#40; STR&#40; INT&#40; VAL&#40; cGru &#41; % 97 &#41; &#41; &#41;\n    NEXT\n\n    RETURN STRZERO&#40; &#40; 98 - VAL&#40; cRes &#41; &#41; % 97, 2 &#41;\n\n\nSTATIC FUNCTION IBANNUM&#40; cIba &#41;\n\n    LOCAL cTmp &#58;= cIba\n\n    LOCAL cChr\n\n    LOCAL i\n\n    cIba = &quot;&quot;\n\n    FOR i = 1 TO LEN&#40; cTmp &#41;\n        cChr = SUBSTR&#40; cTmp, i, 1 &#41;\n\n        IF ISDIGIT&#40; cChr &#41;\n            cIba += cChr\n        ELSE\n            cIba += LTRIM&#40; STR&#40; ASC&#40; cChr &#41; - ASC&#40; &quot;A&quot; &#41; + 10 &#41; &#41;\n        ENDIF\n    NEXT\n\n    RETURN cIba\n\n\nSTATIC FUNCTION CIN&#40; cAbi, cCab, cCon &#41;\n\n    LOCAL aPari &#58;= &#123; 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28 &#125;\n    LOCAL aDisp &#58;= &#123; 1, 0, 5, 7, 9, 13, 15, 17, 19, 21, 2, 4, 18, 20, 11, 3, 6, 8, 12, 14, 16, 10, 22, 25, 24, 23, 27, 28, 26 &#125;\n\n    LOCAL cNume &#58;= &quot;0123456789&quot;\n    LOCAL cLett &#58;= &quot;ABCDEFGHIJKLMNOPQRSTUVWXYZ-&#46; &quot;\n\n    LOCAL cCod &#58;= UPPER&#40; cAbi + cCab + cCon &#41;\n\n    LOCAL nSomma &#58;= 0\n\n    LOCAL i, n\n\n    FOR i = 1 TO LEN&#40; cCod &#41;\n        n = AT&#40; SUBSTR&#40; cCod, i, 1 &#41;, cNume &#41;\n\n        IF n = 0\n            n = AT&#40; SUBSTR&#40; cCod, i, 1 &#41;, cLett &#41;\n        ENDIF\n\n        IF i % 2 = 0\n            nSomma += aPari&#91; n &#93;\n        ELSE\n            nSomma += aDisp&#91; n &#93;\n        ENDIF\n    NEXT\n\n    RETURN SUBSTR&#40; cLett, &#40; nSomma + 1 &#41; % 26, 1 &#41;[/code:1euvmnic]\n\nEMG','',0,'AIA=','1euvmnic',1,0,'',6,0,0),(45977,9549,3,130,0,'141.51.32.24',1200042576,1,0,1,1,1,1,'','','Silvio,\n\nthe \"flying dialog\" was just a sample, how to control the right side.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\n\nYou can try to use the TPages class to put your controls on. On every change of the outlook menu open the according page. \n\nDEFINE OUTLOOK2003 .... ON CHANGE oPage:SetOption(...)','',0,'AIA=','1g17f304',1,0,'',130,0,0),(45978,9566,3,448,0,'83.132.134.79',1200042676,1,0,1,1,1,0,'','','Any ideas ?\n\nAntonio','',0,'AIA=','29o807p1',1,0,'',448,0,0),(45979,9569,6,456,0,'217.127.39.57',1200042788,1,0,1,1,1,1,'','','Aqui tienes el contenido de dos ficheros de entorno que estoy utilizando. \nPuede que tengas que cambiar algo, pero como base te pueden valer, esta configuraciones usan el compilador de recursos del Pelles C, pero es facil cambiarlo si quieres usar el de BCC.\n\nPara harbour\n[code:1bsopbob]\n\n&#91;Environment&#93;\nDescription 1=FiveWin+Harbour para Bccc\nDescription 2=\nDescription 3=\nPRG Compiler ver=\nC compiler ver=5&#46;5\nSubsystem=\nAuthor=Biel\nLast update=07/27/2007\n\n&#91;Advanced&#93;\nCommand types=1,1,1,1,1,1,1,1,1\n\n&#91;Harbour&#93;\nHB_INSTALL=c&#58;\\HARBOUR\nHB_COMMAND=%HB_BIN_INSTALL%\\Harbour&#46;Exe %PRG% /m /n /gc0 /es2 /i%HB_INC_INSTALL% /dHB_API_MACROS /dHB_FM_STATISTICS_OFF /dHB_STACK_MACROS\nOption prefix=/\n\n&#91;C&#93;\nC_INSTALL=C&#58;\\Borland\\BCC55\nC_COMP_COMMAND=%C_BIN_INSTALL%\\Bcc32&#46;Exe -DHB_API_MACROS -M -c -O2 -e  -tWM %CRLF%-DHB_STACK_MACROS -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -I%HB_INC_INSTALL%;%C_INC_INSTALL%  -n%HOME%\\Obj %C%\nC_LIB_COMMAND=%C_BIN_INSTALL%\\TLib&#46;Exe %LIB% /P512 @%RSP% , %LST%\nC_LINK_COMMAND=%C_BIN_INSTALL%\\iLink32&#46;Exe -Gn -aa -Tpe -s @%LNK%\nC_RC_COMMAND=C&#58;\\archiv~1\\PellesC\\Bin\\PORC&#46;EXE  %RC%  /I c&#58;\\archiv~1\\pellesc\\include /I c&#58;\\archiv~1\\pellesc\\include\\win\nC_DLL_COMMAND=\nOption prefix=-\n\n&#91;User&#93;\nPOSTEXE_COMMAND=\nPOSTLIB_COMMAND=\nPOSTDLL_COMMAND=\n\n&#91;Files&#93;\nC&#58;\\FWH\\LIB\\Fivehc&#46;lib=1\nC&#58;\\FWH\\LIB\\Fiveh&#46;lib=2\n%C_LIB_INSTALL%\\C0W32&#46;OBJ=3\n%HB_LIB_INSTALL%\\rtl&#46;lib=4\n%HB_LIB_INSTALL%\\vm&#46;lib=5\n%HB_LIB_INSTALL%\\gtwin&#46;lib=6\n%HB_LIB_INSTALL%\\lang&#46;lib=7\n%HB_LIB_INSTALL%\\macro&#46;lib=8\n%HB_LIB_INSTALL%\\rdd&#46;lib=9\n%HB_LIB_INSTALL%\\dbfcdx&#46;lib=10\n%HB_LIB_INSTALL%\\dbffpt&#46;lib=11\n%HB_LIB_INSTALL%\\hbsix&#46;lib=12\n%HB_LIB_INSTALL%\\common&#46;lib=13\n%HB_LIB_INSTALL%\\pp&#46;lib=14\n%C_LIB_INSTALL%\\CW32&#46;LIB=15\n%HB_LIB_INSTALL%\\codepage&#46;lib=16\n%C_LIB_INSTALL%\\IMPORT32&#46;LIB=17\n%C_LIB_INSTALL%\\WS2_32&#46;LIB=18\n%C_LIB_INSTALL%\\PSDK\\odbc32&#46;lib=19\n%C_LIB_INSTALL%\\PSDK\\nddeapi&#46;lib=20\n%C_LIB_INSTALL%\\PSDK\\iphlpapi&#46;lib=21\n%C_LIB_INSTALL%\\PSDK\\rassapi&#46;lib=22\n%HB_LIB_INSTALL%\\dbfntx&#46;lib=23\nC&#58;\\FWH\\LIB\\HBOLE&#46;LIB=24\n[/code:1bsopbob]\ny para xHarbour\n[code:1bsopbob]\n\n&#91;Environment&#93;\nDescription 1=xHarbour+FiveWin para Bccc\nDescription 2=\nDescription 3=\nPRG Compiler ver=\nC compiler ver=5&#46;5\nSubsystem=\nAuthor=Biel\nLast update=04/11/2007\n\n&#91;Advanced&#93;\nCommand types=1,1,1,1,1,1,1,1,1\n\n&#91;Harbour&#93;\nHB_INSTALL=c&#58;\\xHARBOUR\nHB_COMMAND=%HB_BIN_INSTALL%\\Harbour&#46;Exe %PRG% /m /n /gc0 /es2 /i%HB_INC_INSTALL% /dHB_API_MACROS /dHB_FM_STATISTICS_OFF /dHB_STACK_MACROS\nOption prefix=/\n\n&#91;C&#93;\nC_INSTALL=C&#58;\\Borland\\BCC55\nC_COMP_COMMAND=%C_BIN_INSTALL%\\Bcc32&#46;Exe -DHB_API_MACROS -M -c -O2 -e  -tWM %CRLF%-DHB_STACK_MACROS -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF -I%HB_INC_INSTALL%;%C_INC_INSTALL%  -n%HOME%\\Obj %C%\nC_LIB_COMMAND=%C_BIN_INSTALL%\\TLib&#46;Exe %LIB% /P512 @%RSP% , %LST%\nC_LINK_COMMAND=%C_BIN_INSTALL%\\iLink32&#46;Exe -Gn -aa -Tpe -s @%LNK%\nC_RC_COMMAND=C&#58;\\archiv~1\\PellesC\\Bin\\PORC&#46;EXE  %RC%  /I c&#58;\\archiv~1\\pellesc\\include /I c&#58;\\archiv~1\\pellesc\\include\\win\nC_DLL_COMMAND=\nOption prefix=-\n\n&#91;User&#93;\nPOSTEXE_COMMAND=\nPOSTLIB_COMMAND=\nPOSTDLL_COMMAND=\n\n&#91;Files&#93;\nC&#58;\\FWH\\LIB\\Fivehc&#46;lib=1\nC&#58;\\FWH\\LIB\\FivehX&#46;lib=2\n%C_LIB_INSTALL%\\C0W32&#46;OBJ=3\n%HB_LIB_INSTALL%\\rtl&#46;lib=4\n%HB_LIB_INSTALL%\\vm&#46;lib=5\n%HB_LIB_INSTALL%\\gtwin&#46;lib=6\n%HB_LIB_INSTALL%\\lang&#46;lib=7\n%HB_LIB_INSTALL%\\macro&#46;lib=8\n%HB_LIB_INSTALL%\\rdd&#46;lib=9\n%HB_LIB_INSTALL%\\dbfcdx&#46;lib=10\n%HB_LIB_INSTALL%\\dbffpt&#46;lib=11\n%HB_LIB_INSTALL%\\hbsix&#46;lib=12\n%HB_LIB_INSTALL%\\common&#46;lib=13\n%HB_LIB_INSTALL%\\pp&#46;lib=14\n%C_LIB_INSTALL%\\CW32&#46;LIB=15\n%HB_LIB_INSTALL%\\codepage&#46;lib=16\n%C_LIB_INSTALL%\\IMPORT32&#46;LIB=17\n%C_LIB_INSTALL%\\WS2_32&#46;LIB=18\n%C_LIB_INSTALL%\\PSDK\\odbc32&#46;lib=19\n%C_LIB_INSTALL%\\PSDK\\nddeapi&#46;lib=20\n%C_LIB_INSTALL%\\PSDK\\iphlpapi&#46;lib=21\n%C_LIB_INSTALL%\\PSDK\\rassapi&#46;lib=22\n%HB_LIB_INSTALL%\\dbfntx&#46;lib=23[/code:1bsopbob]\nCrea un fichero con el nombre que quieras y extension .env y usalo en tu proyecto.\n\nEspero te sean de ayuda.','',0,'AIA=','1bsopbob',1,0,'',456,0,0),(45980,9550,3,2,0,'87.218.146.208',1200042841,1,0,1,1,1,1,'','','Windows standard resources (.RC, .RES) don\'t allow to especify fonts for each control. Windows designed them that way','',0,'AIA=','vsgkb64d',1,0,'',2,0,0),(45983,9565,6,21,0,'87.220.91.242',1200044813,1,0,1,1,1,1,'','','El problema está en gmap.html\n\nEn este archivo se define el espacio del mapa de forma fija\n[code:222nmdbw]&lt;div id=&quot;map_canvas&quot; style=&quot;width&#58; 597px; height&#58; 376px&quot;&gt;&lt;/div&gt;[/code:222nmdbw]\n\nTienes dos posibilidades:\n1.- Cambiar esos valores para que se ajuste a tu ventana\n2.- Cambiar gmap.html, para que él sólo ajuste el mapa al tamaño de la ventana\n\nPara que el mapa se redimensione al 100% de la ventana hay que cambiar lo siguiente en el archivo gmap.html\n\n1.- Dentro de la estructura &lt;stule type=\"text/css\"&gt; incluir lo siguiente:\n[code:222nmdbw]    &lt;style type=&quot;text/css&quot;&gt;\n      @import url&#40;&quot;http&#58;//www&#46;google&#46;com/uds/css/gsearch&#46;css&quot;&#41;;\n      @import url&#40;&quot;http&#58;//www&#46;google&#46;com/uds/solutions/localsearch/gmlocalsearch&#46;css&quot;&#41;;\n      #map_canvas &#123;\n        position&#58;absolute;\n        margin-top&#58; 0%;\n        margin-right&#58; 0%;\n        margin-bottom&#58; 0%;\n        margin-left&#58; 0%;\n        left&#58;0%;\n        right&#58;0%\n        top&#58;0%;\n        Bottom&#58;0%;\n        padding&#58;0;\n        width&#58;100%;\n        height&#58;100%;\n      &#125;      \n    &lt;/style&gt;            [/code:222nmdbw]\n\n2.- Quitar de la definición de la división &lt;div&gt; el tamaño ya que lo acabamos de definir\n[code:222nmdbw]        &lt;div id=&quot;map_canvas&quot;&gt;&lt;/div&gt; [/code:222nmdbw]','',0,'AIA=','222nmdbw',1,0,'',21,0,0),(45984,8842,3,972,0,'78.21.224.104',1200045139,1,0,1,1,1,0,'','','Any news on how to do this in TWBrowse?\n\nTx','',0,'AIA=','17kwim83',1,0,'',972,0,0),(45985,8842,3,6,0,'79.3.210.111',1200046103,1,0,1,1,1,1,'','','It works fine using the same technique.\n\nEMG','',0,'AIA=','3j7yi7mh',1,0,'',6,0,0),(45986,9565,6,1236,0,'201.47.54.216',1200046112,1,0,1,1,1,0,'','','Fernando,\n\n1.- Dentro de la estructura &lt;stule type=\"text/css\"&gt; incluir lo siguiente: \n\n\ncHtml2 :=[  &lt;!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"&gt;  ]+CRLF\ncHtml2 +=[  &lt;html xmlns=\"http://www.w3.org/1999/xhtml\"&gt; ]+CRLF                                                                  \ncHtml2 +=[  &lt;head&gt; ]+CRLF                                                                                                       \ncHtml2 +=[  &lt;meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\"/&gt;  ]+CRLF\ncHtml2 +=[  &lt;title&gt; &lt;/title&gt;  ]+CRLF            \ncHtml2 +=[  &lt;script src=\"http://maps.google.com/maps?file=api&amp;amp;v=2.x&amp;amp;key=ABQIAAAAtOjLpIVcO8im8KJFR8pcMhQjskl1-YgiA_BGX2yRrf7htVrbmBTWZt39_v1rJ4xxwZZCEomegYBo1w\" type=\"text/javascript\"&gt;&lt;/script&gt; ]+CRLF\ncHtml2 +=[  &lt;script type=\"text/javascript\"&gt;  ]+CRLF                                    \ncHtml2 +=\"  var map = null; \"+CRLF                                                     \ncHtml2 +=\"  var geocoder = null; \"+CRLF                                                \ncHtml2 +=\"  var coords = null;  \"+CRLF+CRLF                                                 \ncHtml2 +=\"  function initialize() { \"+CRLF                                             \ncHtml2 +=\"    if (GBrowserIsCompatible()) { \"+CRLF                                     \ncHtml2 +=[       map = new GMap2(document.getElementById(\"map_canvas\"));  ]+CRLF        \ncHtml2 +=\"       map.addControl(new GLargeMapControl()); \"+CRLF                         \ncHtml2 +=\"       map.addControl(new GMapTypeControl());  \"+CRLF                         \ncHtml2 +=\"       geocoder = new GClientGeocoder();       \"+CRLF                         \ncHtml2 +=\"    }  \"+CRLF                                                               \ncHtml2 +=\"    }  \"+CRLF+CRLF                                                                  \ncHtml2 +=\"  function showAddress(address, cAddressName) {  \"+CRLF                      \ncHtml2 +=\"    if (geocoder) {  \"+CRLF                                                   \ncHtml2 +=\"        geocoder.getLatLng(  \"+CRLF                                            \ncHtml2 +=\"          address,  \"+CRLF                                                       \ncHtml2 +=\"        function(point) {  \"+CRLF                                            \ncHtml2 +=\"          if (!point) { \"+CRLF                                               \ncHtml2 +=[              showAddress2(\'&lt;&lt;CITY&gt;&gt;\'); ]+CRLF               \ncHtml2 +=\"            } else {  \"+CRLF                                                   \ncHtml2 +=\"              map.setCenter(point, 15); \"+CRLF                                  \ncHtml2 +=\"              var marker = new GMarker(point);  \"+CRLF                         \ncHtml2 +=\"              map.addOverlay(marker);  \"+CRLF                                  \ncHtml2 +=\"              coords = marker.getPoint(); \"+CRLF                                \ncHtml2 +=[              var curl = cAddressName + \"&lt;p&gt;\" + coords.toUrlValue(6) + \"&lt;/p&gt;\" ]+CRLF \ncHtml2 +=[              var button = \'&lt;input type=\"button\" value=\"Imprimir\" onClick=\"window.print()\"/&gt;;\' ]+CRLF\ncHtml2 +=\"              curl = curl + button \"+CRLF \ncHtml2 +=\"            } \"+CRLF                                                            \ncHtml2 +=\"            } \"+CRLF                                                              \ncHtml2 +=\"          ); \"+CRLF                                                                \ncHtml2 +=\"      } \"+CRLF                                                                  \ncHtml2 +=\"    } \"+CRLF+CRLF                                                                    \ncHtml2 +=\"    function showAddress2(address) {  \"+CRLF     \ncHtml2 +=\"      if (geocoder) { \"+CRLF                                                    \ncHtml2 +=\"        geocoder.getLatLng(  \"+CRLF                                             \ncHtml2 +=\"          address, \"+CRLF                                                       \ncHtml2 +=\"          function(point) { \"+CRLF                                             \ncHtml2 +=\"            if (!point) { \"+CRLF                                               \ncHtml2 +=[              alert(address + \" not found\");  ]+CRLF                       \ncHtml2 +=\"            } else { \"+CRLF                                                     \ncHtml2 +=\"              map.setCenter(point, 15); \"+CRLF                                  \ncHtml2 +=\"              var marker = new GMarker(point); \"+CRLF                          \ncHtml2 +=\"              map.addOverlay(marker); \"+CRLF                                   \ncHtml2 +=\"              marker.openInfoWindowHtml(address);  \"+CRLF                      \ncHtml2 +=\"            } \"+CRLF                                                            \ncHtml2 +=\"          } \"+CRLF                                                              \ncHtml2 +=\"        ); \"+CRLF                                                              \ncHtml2 +=\"      } \"+CRLF                                                                  \ncHtml2 +=\"    } \"+CRLF                                                                    \ncHtml2 +=\"    &lt;/script&gt; \"+CRLF                                                            \ncHtml2 +=\"  &lt;/head&gt; \"+CRLF+CRLF                                                                \ncHtml2 +=[  &lt;body onload=\"initialize(); showAddress(\'&lt;&lt;STREET&gt;&gt;, &lt;&lt;CITY&gt;&gt;  &lt;&lt;COUNTRY&gt;&gt;\', \'&lt;&lt;STREET&gt;&gt;, &lt;&lt;CITY&gt;&gt;  &lt;&lt;COUNTRY&gt;&gt;\');\" onunload=\"GUnload()\" ]+CRLF\ncHtml2 +=[        &lt;div id=\"map_canvas\" style=\"width: 285px; height: 170px\"&gt;&lt;/div&gt; ]+CRLF \ncHtml2 +=\"  &lt;/body&gt; \"+CRLF                                                                \ncHtml2 +=\"&lt;/html&gt; \"                                                                 \n\n\nFernando o código gmap que tenho é esse, não encontrei parte que usted referiu, pode me ajudar?\n\nGrato','',0,'','u15nzlbk',1,0,'',1236,0,0),(45987,8842,3,868,0,'219.64.121.60',1200047057,1,0,1,1,1,1,'','','TWBrowse:\n\nMr James Bott\'s code using skip block works perfectly with TWBrowse also. Personally I prefer to use his method in my programs.\n\nBut if some one still insists on modifying the twbrowse.prg ( I personally consider it not worthwhile ) then here is the way:\n\n1) Create new data nRowScrol ( or any other similar name ) and initialize with 0.\n2) In GoUp and GoDown methods keep swapping the value between 0 and 1.\n3) In paint method make the value of this data as Zero.\n4) Modify the inline code of DrawLine method as below:\n[code:1q6fzyx3]\n   METHOD DrawLine&#40; nRow &#41; INLINE ;\n               wBrwLine&#40; &#58;&#58;hWnd, &#58;&#58;hDC, If&#40; nRow == nil, &#58;&#58;nRowPos, nRow &#41;, ;\n               Eval&#40; &#58;&#58;bLine, Self &#41;, &#58;&#58;GetColSizes&#40;&#41;, &#58;&#58;nColPos,;\n               &#58;&#58;nClrText, ;\n               iif&#40; valtype&#40; &#58;&#58;nClrPane &#41; == \'B\', eval&#40; &#58;&#58;nClrPane, nRow + &#58;&#58;nRowScrol&#41;, &#58;&#58;nClrPane&#41; ,;\n               If&#40; &#58;&#58;oFont != nil, &#58;&#58;oFont&#58;hFont, 0 &#41;,;\n               ValType&#40; &#58;&#58;aColSizes &#41; == &quot;B&quot;, &#58;&#58;aJustify, nil, &#58;&#58;nLineStyle,,, &#58;&#58;oVScroll,;\n               &#58;&#58;bLogicLen  &#41;\n[/code:1q6fzyx3]\nI did not test it but this is the logic I used in modifying the TCBrowse.Prg. It should work for TWBrowse also. \nBut I myself prefer to use Mr James Bott\'s code and not to modify the FWH source for these two classes. If Mr. Antonio himself releases similar facility, I would welcome that.\nTXBrowse, ofcourse, is a different case.','',0,'AIA=','1q6fzyx3',1,0,'',868,0,0),(45988,9544,6,24,0,'80.24.12.168',1200048046,1,0,1,1,1,1,'','Re: Más de 45000 mensajes!','Antonio, te lo dejo por aqui lo hablado ,quizás te ayude en lo que te comento;\n<!-- m --><a class=\"postlink\" href=\"http://www.forosdelweb.com/f121/como-poner-meta-tags-foro-phpbb-como-poner-feed-rss-545852/\">http://www.forosdelweb.com/f121/como-po ... ss-545852/</a><!-- m -->\n\nSupongo que esto es lo que es.\nSorry, ahora mismo no tengo acceso al correo privado!','',0,'AIA=','2893jvfz',1,0,'',24,0,0),(45989,8842,3,6,0,'79.3.210.111',1200048344,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1el702vi]But if some one still insists on modifying the twbrowse.prg ( I personally consider it not worthwhile ) then here is the way:[/quote:1el702vi]\n\nMy opinion is that the parameter nRow passed to the bSkip codeblock should be enough for this task and the current behavior is a bug that should be fixed.\n\nEMG','',0,'gA==','1el702vi',1,0,'',6,0,0),(45990,9473,11,473,0,'81.241.228.203',1200049111,1,0,1,1,1,0,'','','Antonio,\n\nI\'ve tried this several times in several ways\n\nI still have the following result\n\n[code:mh5slrnl]compiling C module&#46;&#46;&#46;\nlinking&#46;&#46;&#46;\n&#46;/&#46;&#46;/lib/libfivec&#46;a&#40;lnx&#46;o&#41;&#58; In function `HB_FUN_SETRESOURCES\'&#58;\nlnx&#46;c&#58;&#40;&#46;text+0x27b&#41;&#58; undefined reference to `glade_xml_new\'\n&#46;/&#46;&#46;/lib/libfivec&#46;a&#40;lnx&#46;o&#41;&#58; In function `HB_FUN_LOADDIALOG\'&#58;\nlnx&#46;c&#58;&#40;&#46;text+0x2a7&#41;&#58; undefined reference to `glade_xml_get_widget\'\n&#46;/&#46;&#46;/lib/libfivec&#46;a&#40;lnx&#46;o&#41;&#58; In function `HB_FUN_LOADBUTTON\'&#58;\nlnx&#46;c&#58;&#40;&#46;text+0x3a8&#41;&#58; undefined reference to `glade_xml_get_widget\'\ncollect2&#58; ld returned 1 exit status\ndone!\n[/code:mh5slrnl]\n\nI\'ve used  \nexport PKG_CONFIG_PATH=usr/bin/\nexport PKG_CONFIG_PATH=/usr/bin/\nexport PKG_CONFIG_PATH=\"/usr/bin/\"\nexport PKG_CONFIG_PATH=\'/usr/bin/\'\n\nand so on.\n\nAlways the same result.\n\nGreetings\n\nWilly','',0,'AIA=','mh5slrnl',1,0,'',473,0,0),(45991,9576,3,130,0,'141.51.32.24',1200050425,1,0,1,1,1,1,'','xBrowse - edit','Hi all,\n\nhow can I change the possibiltiy to edit a value on the fly depending on special condition ?  If the condition is .t., user can edit, if it is .f. editing is not allowed. So the permission to edit changes from row to row.\n\noBrw:aCols[3]:nEditType  := IIF (oBrw:aCols[2]= 0, EDIT_NONE, EDIT_GET)\n is not working.','',0,'','1ggtlts7',1,0,'',130,0,0),(45994,9576,3,2,0,'87.218.146.17',1200052156,1,0,1,1,1,1,'','','Stefan,\n\nTry to use oBrowse:bChange to do it:\n\noBrw:bChange := { || oBrw:aCols[3]:nEditType := IIF (oBrw:aCols[2]= 0, EDIT_NONE, EDIT_GET) }','',0,'','3vkj826e',1,0,'',2,0,0),(45995,9473,11,2,0,'87.218.146.17',1200052371,1,0,1,1,1,1,'','','Willy,\n\nAre you using Ubuntu 7.10 ? Here it works fine\n\nAll you need is to do:\nsudo apt-get install glade-2','',0,'','19xn3vwd',1,0,'',2,0,0),(45997,9550,3,51,0,'80.122.88.242',1200052703,1,0,1,1,1,0,'','','Thanks for your answer.\nIf one would like a WYSIWYG editor could a conversation of Form-designer code from C# or VB.NET to FWH objects be a way to go?\nRegrads,\nOtto','',0,'','1c47u48y',1,0,'',51,0,0),(45999,9574,20,49,0,'66.249.90.136',1200053243,1,0,1,1,1,1,'','','Grazie Emg.\nL\'ho provato ma mi restituisce una stringa a video.\nla funzione serve per creare un iban oppure per controllarlo?\nper la seconda opzione la funzione non dovrebbe restituire un valore .t. se il codice è giusto?','',0,'','2n2rksnw',1,0,'',49,0,0),(46000,8842,3,868,0,'219.64.121.60',1200053334,1,0,1,1,1,1,'','','Only TCBrowse  evaluates bClrPane with parameters row number and column number. \n\nTWBrowse evaluates without any parameters.','',0,'','sckrp0aq',1,0,'',868,0,0),(46001,9576,3,868,0,'219.64.121.60',1200053525,1,0,1,1,1,1,'','','How can oBrw:aCols[2] be Zero ?','',0,'','3uiozfli',1,0,'',868,0,0),(46002,9550,3,2,0,'87.218.146.17',1200053581,1,0,1,1,1,1,'','','Otto,\n\nYes, you can do that. But you will save a lot of work using standard Windows resources and a resources editor 32 bits like the one provided in VSX isolated.','',0,'','1hoo8od3',1,0,'',2,0,0),(46005,9506,6,24,0,'80.24.12.168',1200054962,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3u7iwmxu]Rafa,\n\nEn FiveWin no la tenemos implementada.\n\nLo que si hemos probado es que GetVersion()[ 1 ] devuelve 6 en Vista Ultimate <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->[/quote:3u7iwmxu]\n\nAntonio, quizás con los problemas que tenia no estaba del todo correcto!\nAhora, acabo de probarlo y efectivamente da 6 en Home Vista Premium.','',0,'gA==','3u7iwmxu',1,0,'',24,0,0),(46007,9473,11,473,0,'81.241.228.203',1200055245,1,0,1,1,1,0,'','','Indeed,\n\nI use an Ubunto gnome 7.10 English on a windows xp/vmware session\n\nand an Ubunto 7.10 Dutch on a dual boot system.\n\nI shall retry after complete reinstalling the OS.\n\nGreetings,\n\nWilly.','',0,'gA==','uyjfydvr',1,0,'',473,0,0),(46008,9572,6,2,0,'87.218.146.17',1200055624,1,0,1,1,1,1,'','VSX - Usando su editor de recursos!!!','1. Instalar VSX \"integrated\":\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=40646580-97fa-4698-b65f-620d4b4b1ed7&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\n2. Instalar VSX \"isolated\" sin haber desinstalado el anterior! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=aca38719-f449-4937-9bac-45a9f8a73822&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m -->\n\nY ya teneis vuestro editor de recursos 32 bits de última generación <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','dt93av6n',1,1200061600,'',2,1,0),(46009,9570,3,2,0,'87.218.146.17',1200055738,1,0,1,1,1,1,'','VSX - Using its resources editor!!!','1. Install VSX \"integrated\": \n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=40646580-97fa-4698-b65f-620d4b4b1ed7&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m --> \n\n2. Install VSX \"isolated\" without uninstalling the previous one!  \n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?familyid=aca38719-f449-4937-9bac-45a9f8a73822&amp;displaylang=en\">http://www.microsoft.com/downloads/deta ... laylang=en</a><!-- m --> \n\nWelcome to your 32 bits resources editor <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2xclwe3g',1,1200061436,'',2,1,0),(46010,9565,6,21,0,'87.220.91.242',1200055882,1,0,1,1,1,1,'','','Incluye/Cambia lo siguiente:\n\ncHtml2 :=[ &lt;!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\"&gt; ]+CRLF\ncHtml2 +=[ &lt;html xmlns=\"http://www.w3.org/1999/xhtml\"&gt; ]+CRLF\ncHtml2 +=[ &lt;head&gt; ]+CRLF\ncHtml2 +=[ &lt;meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\"/&gt; ]+CRLF\ncHtml2 +=[ &lt;title&gt; &lt;/title&gt; ]+CRLF\n[color=red:3rz1g5w0]cHtml2 +=[ &lt;style type=\"text/css\"&gt; ]+CRLF\ncHtml2 +=[       @import url(\"http://www.google.com/uds/css/gsearch.css\"); ]+CRLF\ncHtml2 +=[       @import url(\"http://www.google.com/uds/solutions/localsearch/gmlocalsearch.css\"); ]+CRLF\ncHtml2 +=[       #map_canvas { ]+CRLF\ncHtml2 +=[         position:absolute; ]+CRLF\ncHtml2 +=[         margin-top: 0%; ]+CRLF\ncHtml2 +=[         margin-right: 0%; ]+CRLF\ncHtml2 +=[         margin-bottom: 0%; ]+CRLF\ncHtml2 +=[         margin-left: 0%; ]+CRLF\ncHtml2 +=[         left:0%; ]+CRLF\ncHtml2 +=[         right:0% ]+CRLF\ncHtml2 +=[         top:0%; ]+CRLF\ncHtml2 +=[         Bottom:0%; ]+CRLF\ncHtml2 +=[         padding:0; ]+CRLF\ncHtml2 +=[         width:100%; ]+CRLF\ncHtml2 +=[         height:100%; ]+CRLF\ncHtml2 +=[       }      ]+CRLF\ncHtml2 +=[     &lt;/style&gt;         ]+CRLF   \n[/color:3rz1g5w0]cHtml2 +=[ &lt;script src=\"http://maps.google.com/maps?file=api&amp;amp;v=2.x&amp;amp;key=ABQIAAAAtOjLpIVcO8im8KJFR8pcMhQjskl1-YgiA_BGX2yRrf7htVrbmBTWZt39_v1rJ4xxwZZCEomegYBo1w\" type=\"text/javascript\"&gt;&lt;/script&gt; ]+CRLF\ncHtml2 +=[ &lt;script type=\"text/javascript\"&gt; ]+CRLF\ncHtml2 +=\" var map = null; \"+CRLF\ncHtml2 +=\" var geocoder = null; \"+CRLF\ncHtml2 +=\" var coords = null; \"+CRLF+CRLF\ncHtml2 +=\" function initialize() { \"+CRLF\ncHtml2 +=\" if (GBrowserIsCompatible()) { \"+CRLF\ncHtml2 +=[ map = new GMap2(document.getElementById(\"map_canvas\")); ]+CRLF\ncHtml2 +=\" map.addControl(new GLargeMapControl()); \"+CRLF\ncHtml2 +=\" map.addControl(new GMapTypeControl()); \"+CRLF\ncHtml2 +=\" geocoder = new GClientGeocoder(); \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" } \"+CRLF+CRLF\ncHtml2 +=\" function showAddress(address, cAddressName) { \"+CRLF\ncHtml2 +=\" if (geocoder) { \"+CRLF\ncHtml2 +=\" geocoder.getLatLng( \"+CRLF\ncHtml2 +=\" address, \"+CRLF\ncHtml2 +=\" function(point) { \"+CRLF\ncHtml2 +=\" if (!point) { \"+CRLF\ncHtml2 +=[ showAddress2(\'&lt;&lt;CITY&gt;&gt;\'); ]+CRLF\ncHtml2 +=\" } else { \"+CRLF\ncHtml2 +=\" map.setCenter(point, 15); \"+CRLF\ncHtml2 +=\" var marker = new GMarker(point); \"+CRLF\ncHtml2 +=\" map.addOverlay(marker); \"+CRLF\ncHtml2 +=\" coords = marker.getPoint(); \"+CRLF\ncHtml2 +=[ var curl = cAddressName + \"&lt;p&gt;\" + coords.toUrlValue(6) + \"&lt;/p&gt;\" ]+CRLF\ncHtml2 +=[ var button = \'&lt;input type=\"button\" value=\"Imprimir\" onClick=\"window.print()\"/&gt;;\' ]+CRLF\ncHtml2 +=\" curl = curl + button \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" ); \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" } \"+CRLF+CRLF\ncHtml2 +=\" function showAddress2(address) { \"+CRLF\ncHtml2 +=\" if (geocoder) { \"+CRLF\ncHtml2 +=\" geocoder.getLatLng( \"+CRLF\ncHtml2 +=\" address, \"+CRLF\ncHtml2 +=\" function(point) { \"+CRLF\ncHtml2 +=\" if (!point) { \"+CRLF\ncHtml2 +=[ alert(address + \" not found\"); ]+CRLF\ncHtml2 +=\" } else { \"+CRLF\ncHtml2 +=\" map.setCenter(point, 15); \"+CRLF\ncHtml2 +=\" var marker = new GMarker(point); \"+CRLF\ncHtml2 +=\" map.addOverlay(marker); \"+CRLF\ncHtml2 +=\" marker.openInfoWindowHtml(address); \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" ); \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" } \"+CRLF\ncHtml2 +=\" &lt;/script&gt; \"+CRLF\ncHtml2 +=\" &lt;/head&gt; \"+CRLF+CRLF\ncHtml2 +=[ &lt;body onload=\"initialize(); showAddress(\'&lt;&lt;STREET&gt;&gt;, &lt;&lt;CITY&gt;&gt; &lt;&lt;COUNTRY&gt;&gt;\', \'&lt;&lt;STREET&gt;&gt;, &lt;&lt;CITY&gt;&gt; &lt;&lt;COUNTRY&gt;&gt;\');\" onunload=\"GUnload()\" ]+CRLF\n[color=red:3rz1g5w0]cHtml2 +=[ &lt;div id=\"map_canvas\"&gt;&lt;/div&gt; ]+CRLF[/color:3rz1g5w0]\ncHtml2 +=\" &lt;/body&gt; \"+CRLF\ncHtml2 +=\"&lt;/html&gt; \"','',0,'Ag==','3rz1g5w0',1,0,'',21,0,0),(46011,9565,6,1236,0,'201.47.54.216',1200058237,1,0,1,1,1,0,'','','Gracias Fernando!','',0,'Ag==','pa4xljho',1,0,'',1236,0,0),(46012,9565,6,1236,0,'201.47.54.216',1200060029,1,0,1,1,1,0,'','','Fernando, usted sabes como fazer para que o mapa mostre o ponto de partida até um ponto final.  Ou seja,  o caminho a ser percorrido até o destino?\n\nGracias meu amigo','',0,'Ag==','2baa8whu',1,0,'',1236,0,0),(46013,9570,3,2,0,'87.218.146.17',1200060107,1,0,1,1,1,1,'','','Tested and working fine on XP and Vista <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:24uopkws][img:24uopkws]http&#58;//img502&#46;imageshack&#46;us/img502/8218/screennc1&#46;png[/img:24uopkws][/url:24uopkws]','',0,'GA==','24uopkws',1,0,'',2,0,0),(46014,9572,6,2,0,'87.218.146.17',1200060137,1,0,1,1,1,1,'','','Probado y funcionando en XP y en Vista <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:13l5fnwr][img:13l5fnwr]http&#58;//img502&#46;imageshack&#46;us/img502/8218/screennc1&#46;png[/img:13l5fnwr][/url:13l5fnwr]','',0,'GA==','13l5fnwr',1,0,'',2,0,0),(46016,9512,3,868,0,'219.64.121.60',1200061245,1,0,1,1,1,1,'','','Do you want that if the cursor goes above browse area it should page up and if it goes below browse area if should page down?\n\nIf so please try the following code\n[code:97hiomdr]\nfunction CheckListbox&#40; nRow, nCol, oBrw, oLbx, nKeyFlags,oChild &#41;\n\n	if nRow &lt; oBrw&#58;HeaderHeight&#40;&#41;\n		oBrw&#58;PageUp&#40;&#41;\n	elseif nRow &gt; &#40; oBrw&#58;BrwHeight&#40;&#41; - oBrw&#58;FooterHeight&#40;&#41; &#41;\n		oBrw&#58;PageDown&#40;&#41;\n	endif\n\nreturn nil\n[/code:97hiomdr]\nPlease let me know if this is what you were looking for.','',0,'AIA=','97hiomdr',1,0,'',868,0,0),(46017,9572,6,362,0,'200.158.18.41',1200061254,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3e3za5z1]Probado y funcionando en XP y en Vista <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n[url=http&#58;//imageshack&#46;us:3e3za5z1][img:3e3za5z1]http&#58;//img502&#46;imageshack&#46;us/img502/8218/screennc1&#46;png[/img:3e3za5z1][/url:3e3za5z1][/quote:3e3za5z1]\n\nMaestro, esta DIALOG, és NUEVA o del RESOURCE WORKSHOP?','',0,'mA==','3e3za5z1',1,0,'',362,0,0),(46018,9572,6,2,0,'87.218.146.17',1200061719,1,0,1,1,1,1,'','','João,\n\nEste editor de recursos soporta ficheros RES, DLL (y EXE).\n\nEn estas imágenes estamos viendo diálogos que fueron creados con el resources workshop y almacenados dentro de una DLL de 32 bits.','',0,'mA==','17udpk92',1,0,'',2,0,0),(46019,9570,3,2,0,'87.218.146.17',1200061915,1,0,1,1,1,1,'','','You can use it with RES, DLLs (and EXEs) files','',0,'mA==','2kvokdtx',1,0,'',2,0,0),(46020,9512,3,51,0,'80.122.88.242',1200063742,1,0,1,1,1,0,'','','NageswaraRao,\nthank you for your help. Your code is better than that I had.\nScrolling is working.\nBut what is the best way to change the record position. Sure I have to use an index.\nBut then?\nBest regards,\nOtto','',0,'mA==','2yxulj72',1,0,'',51,0,0),(46021,9512,3,868,0,'219.64.121.60',1200063825,1,0,1,1,1,1,'','','Even with indexes this code works fine.  What more do you want to do ?','',0,'mA==','3eaptfis',1,0,'',868,0,0),(46022,9569,6,492,0,'189.147.68.124',1200063887,1,0,1,1,1,1,'','','Muchas Gracias Biel.\n\n\nHare mis pruebas y ajustes.\n\n\nSaludos','',0,'mA==','3b6j4oro',1,0,'',492,0,0),(46023,9572,6,362,0,'200.158.18.41',1200063916,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:cd9v0thv]João,\n\nEste editor de recursos soporta ficheros RES, DLL (y EXE).\n\nEn estas imágenes estamos viendo diálogos que fueron creados con el resources workshop y almacenados dentro de una DLL de 32 bits.[/quote:cd9v0thv]\n\n\nGRACIAS MAESTRO.\n\nIDENTICO AL WORKSHOP.EXE\n\nNO ME GUSTA PELLESC.EXE\n\nESTO ÉS MARABILLOSO.\n\nMUI BUENO.\n\nBest regards, saludos.','',0,'gA==','cd9v0thv',1,0,'',362,0,0),(46024,9565,6,21,0,'87.220.91.242',1200066445,1,0,1,1,1,1,'','','No he probado si se puede hacer. Lo siento\n\nSi he visto que en su tooltip aparece el texto\n\"Obtener indicaciones: Hasta aquí - Desde aquí\"\nY con eso se puede calcular rutas de desde/hasta ese punto.\n\nLo que no sé es como mostrar su tooltip.','',0,'gA==','3qtl3k73',1,0,'',21,0,0),(46025,9565,6,1236,0,'201.47.54.216',1200067138,1,0,1,1,1,0,'','','Gracias mais um vez Fernando!','',0,'gA==','1aod0362',1,0,'',1236,0,0),(46026,8633,6,596,0,'84.76.66.27',1200067375,1,0,1,1,1,1,'','','[quote=&quot;Patricio Avalos Aguirre&quot;:ftn0nl5e]...y luego capturarla en el mismo pc...[/quote:ftn0nl5e]\n\n¿ Pero funciona aunque el PC NO este conectado a red ?','',0,'gA==','ftn0nl5e',1,0,'',596,0,0),(46027,9577,6,644,0,'201.253.76.69',1200067493,1,0,1,1,1,0,'','Registrar la actividad de i-explorer','Quiero hacer una aplicación que funcione en Background y registre la actividad del navegador de internet. Es posible ??. Desde ya muchas gracias','',0,'gA==','1sdzd45d',1,0,'',644,0,0),(46028,9572,6,940,0,'189.175.212.22',1200069145,1,0,1,1,1,1,'','','Antonio,  \n\ninteresante,  \n\nvamos a testear \n\ngracias..','',0,'gA==','14t4y7hg',1,0,'',940,0,0),(46029,9523,3,86,0,'78.21.111.254',1200069711,1,0,1,1,1,1,'','','Has nobody read my question ?\n\nDoes anyone know how to read or save attachments using OLE ?\n\nThanks.','',0,'gA==','1ggfimxt',1,0,'',86,0,0),(46030,9512,3,51,0,'80.122.88.242',1200069789,1,0,1,1,1,0,'','','Hello NageswaraRao,\n…\nPeach\nFillet of perch\nSwiss sautéed turkey\nSmoked salmon\nMushrooms on toast\nBacon\n…\n\nFor example: I drag &lt;Fillet of perch&gt; and drop it over &lt;Bacon&gt; then the new order\nshould be:\n…\nPeach\nSwiss sautéed turkey\nSmoked salmon\nMushrooms on toast\nFillet of perch\nBacon\n…\nBest regards,\nOtto','',0,'gA==','3gh5brch',1,0,'',51,0,0),(46031,8842,3,6,0,'87.11.236.70',1200069820,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:wfr9ch5h]Only TCBrowse  evaluates bClrPane with parameters row number and column number. \n\nTWBrowse evaluates without any parameters.[/quote:wfr9ch5h]\n\nYou are right. Ok for James solution. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','wfr9ch5h',1,0,'',6,0,0),(46032,9574,20,6,0,'87.11.236.70',1200069919,1,0,1,1,1,1,'','','Serve per generare il codice IBAN ma non ti dovrebbe essere difficile controllarlo prendendo spunto da quello.\n\nEMG','',0,'gA==','25xaobpw',1,0,'',6,0,0),(46033,9512,3,6,0,'87.11.236.70',1200070079,1,0,1,1,1,1,'','','You must swap the content of the two records or swap just the content of an indexed field.\n\nEMG','',0,'gA==','2gd1907c',1,0,'',6,0,0),(46034,9523,3,6,0,'87.11.236.70',1200070126,1,0,1,1,1,1,'','','You have to study Office Outlook docs.\n\nEMG','',0,'gA==','1oz6dekl',1,0,'',6,0,0),(46035,9512,3,868,0,'219.64.121.60',1200070206,1,0,1,1,1,1,'','','Obviously if we want to achieve what he wants, we need to have a separate order column and play with the order serial numbers there.  I am working on it','',0,'gA==','4w8gzfv6',1,0,'',868,0,0),(46036,9512,3,868,0,'219.64.121.60',1200070514,1,0,1,1,1,1,'','','Ofcourse with arrays it is very easy and simple. Just delete the dragged row and insert before the row on which it is dropped.','',0,'gA==','3oo7sgf2',1,0,'',868,0,0),(46037,9578,6,960,0,'84.125.196.99',1200070553,1,0,1,1,1,0,'','Incorporando una PDA','Estimados compañeros:\n\nEstoy trabajando ahora en un modulo touch (para un TPV en el sector de la hosteleria), pero mi cliente me informa que en un futuro no muy lejano quiere incorporar una PDA al sistema.\n\nLas preguntas son: \n¿ Como capturo los datos de la PDA ?\n¿ El programa se instala tambien en la PDA ?\nSi se utiliza el puerto RS232 para la comunicación, ¿como lo leo e incorporo esos datos en el software?\n¿ El software mio tiene que estar preparado, o hay algún software intermediario entre el mio y la PDA que gestiona esos datos?\n\n.... en fin... mil dudas....\ncualquier aclaracion, link, PDF, ejemplo... etc... etc... serán bien agradecidos.\nUn saludo a todos.\nLORENZO','',0,'gA==','291efdc1',1,0,'',960,0,0),(46038,9570,3,103,0,'189.12.219.53',1200070567,1,0,1,1,1,1,'','','It can generate and work with RC also?\n\nRegards,','',0,'gA==','21pxh227',1,0,'',103,0,0),(46039,8633,6,940,0,'189.175.212.22',1200070948,1,0,1,1,1,1,'','','Para poder compartir la impresora forzosamente la computadora\n\ndebe formar parte de una lan.\n\n\nsaludos..','',0,'gA==','1t79a3ey',1,0,'',940,0,0),(46040,8633,6,596,0,'84.76.66.27',1200071759,1,0,1,1,1,1,'','','[quote=&quot;sysctrl2&quot;:2khs6e1u]...debe formar parte de una lan...[/quote:2khs6e1u]\n\nEs decir forzosamente tiene que tener [b:2khs6e1u]enchufafo[/b:2khs6e1u] un cable RJ-45.\nO puede formar parte de una red y ¿ no tener conectado el cable... ?','',0,'wA==','2khs6e1u',1,0,'',596,0,0),(46041,9512,3,868,0,'219.64.121.60',1200072965,1,0,1,1,1,1,'','','Mr Otto,\n\nHere is the solution. First you restructure the dbf like this.\n\n1) Change the NUMMER field as NUMERIC with Width 18 and Decimals 13. ( NUMMER, \'N\', 18, 13 ).\n2) Create Index on NUMMER field. I have used DBFCDX  and created a TAG with name NUMMER.\n\nHaving done upto this please make the following changes in your code:\n[code:1ajtone4]\nbefore function Main&#58;\nREQUEST DBFCDX\n\n// change the dbf open code like this&#58;\n\n    USE  C&#58;\\FWH\\samples\\LEXIKON&#46;DBF  NEW ALIAS LEX EXCLUSIVE VIA \'DBFCDX\'\n    DBEVAL&#40; &#123;|| LEX-&gt;NUMMER &#58;= RECNO&#40;&#41; &#125; &#41;\n    SET ORDER TO TAG NUMMER\n    GO TOP\n\n// replace the new drag and drop functions given below\n\nSTATIC FUNCTION DragBegin&#40; nRow, nCol, nFlags, oBrw &#41;\n\n	SetDropInfo&#40; &#40;oBrw&#58;cAlias&#41;-&gt;&#40; recno&#40;&#41; &#41; &#41;\n\nRETURN NIL\n\nSTATIC FUNCTION DropOver&#40; uDropInfo, nRow, nCol, nFlags, oBrw &#41;\n\n	LOCAL nDragRec &#58;= uDropInfo\n	LOCAL nThisRec\n	LOCAL nThisKey\n	LOCAL nPrevKey &#58;= 0\n\n   oBrw&#58;lButtonDown&#40; nRow, nCol, nFlags &#41;\n   oBrw&#58;lButtonUp&#40;   nRow, nCol, nFlags &#41;\n\n	nThisRec       &#58;= &#40;oBrw&#58;cAlias&#41;-&gt;&#40; RECNO&#40;&#41; &#41;\n	nThisKey       &#58;= &#40;oBrw&#58;cAlias&#41;-&gt;NUMMER\n\n	&#40; oBrw&#58;cAlias &#41;-&gt;&#40; dbSKIP&#40; -1 &#41; &#41;\n	IF !&#40;oBrw&#58;cAlias&#41;-&gt;&#40; bof&#40;&#41; &#41;\n		nPrevKey		&#58;= &#40; oBrw&#58;cAlias &#41;-&gt;NUMMER\n	ENDIF\n	&#40; oBrw&#58;cAlias &#41;-&gt;&#40; dbGOTO&#40; nDragRec &#41; &#41;\n	&#40; oBrw&#58;cAlias &#41;-&gt;NUMMER	&#58;= &#40; nThisKey + nPrevKey &#41; / 2\n	&#40; oBrw&#58;cAlias &#41;-&gt;&#40; dbGOTO&#40; nThisRec &#41; &#41;\n	oBrw&#58;Refresh&#40;&#41;\n\nRETURN NIL\n\n[/code:1ajtone4]\nNow you will get the effect you are looking for.\nI shall send revised prg and dbf to your personal email','',0,'AIA=','1ajtone4',1,0,'',868,0,0),(46042,9578,6,2,0,'87.218.146.17',1200073546,1,0,1,1,1,1,'','','Lorenzo,\n\nUsando FiveWin para Pocket PC (FWPPC), desarrollas la aplicación que necesites para la PDA y tienes el control en ella como si de un PC más se tratase.','',0,'AIA=','13attytf',1,0,'',2,0,0),(46043,8633,6,2,0,'87.218.146.17',1200073650,1,0,1,1,1,1,'','','Impresoras con conexión bluetooth','',0,'AIA=','3fv1gtdq',1,0,'',2,0,0),(46044,9570,3,2,0,'87.218.146.17',1200073758,1,0,1,1,1,1,'','','Kleyber,\n\nNo RC support, at least not for now','',0,'AIA=','2dlqf8a1',1,0,'',2,0,0),(46045,8842,3,303,0,'72.220.181.80',1200074214,1,0,1,1,1,0,'','','AHF,\n\n&gt;I use already a Tcbrowse subclass. \n\nGreat!\n\nJames','',0,'AIA=','1gq3k323',1,0,'',303,0,0),(46046,9512,3,303,0,'72.220.181.80',1200074904,1,0,1,1,1,0,'','','NageswaraRao,\n\nI am curious, why 13 decimal places for your nummer field? Recno()\'s are integers.\n\nJames','',0,'AIA=','21b5yoxv',1,0,'',303,0,0),(46047,9579,6,649,0,'189.12.51.227',1200075294,1,0,1,1,1,1,'','Demo Do FW -  Antonio Linares','Boa Tarde Linares.\nHoje temos somente uma Versão demo do Fivewin com a Versão 1.94 ou 1.92.\nSó que esta versão é muito antiga.\nNão teria como criar uma versão Demo com a Versão atual como temos com o xHarbour?\nAssim quando fossemos fazer os teste saberiamos com certeza todos os recursos da liguagem naquela versão.\nSem contar que o Fivewin 1.9 não funciona com xHarbour.','',0,'AIA=','2ghaj3vs',1,0,'',649,0,0),(46048,9579,6,2,0,'87.218.146.17',1200075698,1,0,1,1,1,1,'','','Marcelo,\n\nNo proporcionamos versiones demo de builds recientes, porque al ser librerías, son facilmente \"crackeables\"','',0,'AIA=','12jeai7z',1,0,'',2,0,0),(46049,9512,3,51,0,'80.122.88.242',1200076316,1,0,1,1,1,0,'','','All is working. Thank you very much.\nBest regards,\nOtto','',0,'AIA=','2iromekh',1,0,'',51,0,0),(46051,9488,7,1185,0,'88.2.204.212',1200077107,1,0,1,1,1,1,'','','Antonio, yo también he echado de menos un manual especifico para FWPPC. De hecho me he vuelto un poco loco y he dejado un poco de lado  mis investigaciones hasta tener un poco más de tiempo libre, ya que creo que hace falta exclusividad durante un par de semanas.\n\nSi encuentras algo en la web que ayude por favor mantenme informado.\n\nGracias.','',0,'AIA=','2vkutinb',1,0,'',1185,0,0),(46052,9570,3,278,0,'200.126.83.218',1200077582,1,0,1,1,1,1,'','','Antonio:\n\nSe puede utilizar un archivo de recursos ( RES) mayor a 1024 byte\ny que pueda ser compilado por el xHarbour  + BCC551 ?\n\nYa que con el PellesC, no se puede.\n\n\nSaludos,','',0,'AIA=','7mx41g4z',1,0,'',278,0,0),(46053,9548,3,810,0,'87.118.118.21',1200077703,1,0,1,1,1,0,'','Canal Five','I like the C5 Calendar control\n\nTake a look','',0,'AIA=','1a8s4pbv',1,0,'',810,0,0),(46054,9580,3,303,0,'72.220.181.80',1200078121,1,0,1,1,1,0,'','Test2003 uses all CPU','When I run the Test2003.exe it uses 98% of the CPU time. There must be a continuious loop somewhere. Has anyone else noticed this?\n\nFWH 8.01/xHarbour\n\nJames','',0,'AIA=','2o86vn8h',1,0,'',303,0,0),(46055,9578,6,960,0,'84.125.196.99',1200078378,1,0,1,1,1,0,'','','Antonio, agradezco tu pronta respuesta..... pero sigo con las mismas dudas\n\n¿ Tengo que construir un nuevo sortware para la PDA ? Porque si es así, la tarea de complica y mucho  <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> \n¿ El mismo software que estoy escribiendo ahora no se podría instalar en la PDA ?\n¿ Y en cuanto a las comunicaciones entre PC y PDA ?\nMil gracias\nLORENZO','',0,'AIA=','pp7x519b',1,0,'',960,0,0),(46056,9580,3,303,0,'72.220.181.80',1200078626,1,0,1,1,1,0,'','','I forgot to mention that TEST2003.PRG is in the samples folder. It is a test of the Outlook 2003 style control.\n\nI found the CPU problem. If you comment out the WinRun() function the CPU usage drops to zero. That function appears to have been used to trap GPF\'s and it is a continous loop.\n\nJames','',0,'AIA=','25wrk5sj',1,0,'',303,0,0),(46057,9581,6,228,0,'201.244.65.30',1200078909,1,0,1,1,1,1,'','Capturar estructura de tabla de MSSQL con  ADO?','Amigos de foro tengan buena tarde. Como dice el encabezado me gustaria saber como capturo la estructura de una tabla en mssql via ADO puro. He revisado en el foro y creo que no hay respuesta a lo que estoy buscando.\n\nDe antemano Gracias','',0,'AIA=','3qyfbdn4',1,0,'',228,0,0),(46058,9570,3,2,0,'87.218.146.17',1200079870,1,0,1,1,1,1,'','','Juan,\n\nNo lo hemos probado. Pruébalo tú y nos cuentas, gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','1ly01my9',1,0,'',2,0,0),(46059,9578,6,2,0,'87.218.146.17',1200080164,1,0,1,1,1,1,'','','Lorenzo,\n\nLa PDA usa Windows Mobile y además usa hardware compatible \"ARM\" en vez de \"Intel\", es por esto que no se puede tomar una aplicación para Windows y llevarla a una PDA, tal cual.\n\nDe todas formas, FWPPC (FiveWin para Pocket PC) ofrece un nivel de compatibilidad bastante alto con FWH, por lo que podrás portar partes de tu aplicación, rapidamente.\n\nEn cuanto a conectividad, piensa en la PDA como en un PC más, con acceso a la red (por wifi).','',0,'AIA=','1p9adlp6',1,0,'',2,0,0),(46060,9580,3,2,0,'87.218.146.17',1200080473,1,0,1,1,1,1,'','','James,\n\nYes, that sample is more a sort of workaround instead of a proper implementation, as there is a GPF that comes from the MDI internal procedure and we can just trap it and ignore it.\n\nMaybe we could use Sleep(), or some similar function','',0,'AIA=','24dstk70',1,0,'',2,0,0),(46061,9582,2,1088,0,'189.129.168.184',1200080701,1,0,1,1,1,0,'','Edicion en TWBROWSE','Aun sigo con dudas en el uso de la clase TWBROWSE (recordaran que soy nueva)\n\ntengo una base de datos con los siguientes campos:\nDepositos.Dbf\nCuenta   #  2,0\nBanco   CH 20\nImporte # 11,2\n\nIntento hacer q desde la base de datos con el LISTBOX y los 3 campos pueda:\n1) Agregar datos sobre el mismo browse\n2) Eliminar el renglon\n3) Editar el renglon\n\nya revise el ejemplo SAMPLE01.prg pero no lo hace con dbfs, ademas necesito que al estar capturando el numero de cuenta, valide en otra base que en realidad exista, !!!! Solo he podido hacer el Browse !!!\nclaro que puedo abrir una ventana poniendo los datos y los gets para leer y adicionar a la base pero como son solo 3 datos es mas rapido hacerlo sobre el mismo browse (asi lo tengo en clipper) pero no encuentro como, \ngracias\nP:D. espero no desesperarlos <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->','',0,'AIA=','3i6fsedd',1,0,'',1088,0,0),(46062,9576,3,130,0,'77.179.205.235',1200080771,1,0,1,1,1,1,'','','Antonio,\n\nthat´s it, it´s working perfectly  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nThanks.\n\n\nNageswaraRao,\n\nI´m browsing an array and the value on the second position (that is the second column) is zero.\nBut you are right, exactly I should write Eval(oBrw:aCols[2]:bStrData)','',0,'','3j3zu543',1,0,'',130,0,0),(46063,9488,7,2,0,'87.218.146.17',1200080954,1,0,1,1,1,1,'','','Antonio, Juan Antonio,\n\nSi, es cierto, tenemos pendiente ofrecer un manual totalmente específico de FWPPC. La cuestión es que como muchos usuarios de FWPPC ya conocen FiveWin pues les resulta muy fácil usarlo.\n\nPero, teneis toda la razón, para quienes vienen de FoxPro, ó de otras plataformas, es un cambio importante, sobre todo si hay que familiarizarse con el lenguaje Clipper tambien.\n\nActualmente estamos trabajando para ofrecer nueva documentación, el próximo mes, de FiveWin. A continuación aprovecharemos para realizar un manual sólo de FWPPC.\n\nMientras tanto es importante que reviseis el código fuente de FWPPC. Es muy fácil de entender y además os ayuda a adquirir experiencia en la programación con Harbour (Clipper).','',0,'','3u2v1bk8',1,0,'',2,0,0),(46064,9582,2,2,0,'87.218.146.17',1200081388,1,0,1,1,1,1,'','','Yadira,\n\nRevisa el ejemplo samples\\browse.prg, y revisa el código fuente de source\\function\\browse.prg.\n\nAl construir ese ejemplo y pulsar \"intro\" verás como vas editando de celda en celda. El código que lo controla está en source\\function\\browse.prg','',0,'','1wuw7oiy',1,0,'',2,0,0),(46065,9572,6,53,0,'189.139.23.137',1200082450,1,0,1,1,1,1,'','','Antonio:\n\nPregunta de \"indiorante\", porque no lo he probado, veo que las descargas son sumamente pesadas 700mb+- , vale la pena el editor ???? o se las puede uno ir arreglando con WorkShop, PellesC o ResBuilder ??\n\nSaludos','',0,'','3bhw71dv',1,0,'',53,0,0),(46066,9572,6,2,0,'87.218.146.17',1200084711,1,0,1,1,1,1,'','','Armando,\n\nLas descargas son 300 y 400 megas. Pero sólo ocuparan unos 300 megas aprox. una vez instaladas ambas.\n\nEs un editor de recursos muy bueno, 32 bits, y es gratuito.\n\nNo es nada comparado con los 3,3 gigas! del Visual Studio y que además te llena el ordenador de todo tipo de ...','',0,'','1dnc77cz',1,0,'',2,0,0),(46067,9581,6,109,0,'189.192.139.24',1200086488,1,0,1,1,1,0,'','','Espero te sirva :\n\n   //Recuperamos el Schema de la BD y filtramos por Table, y lo   cargamos al combobox\n     aTables:={}\n     oTables := oCSql:oConn:OpenSchema(adSchemaTables)\n     oTables:Filter := \"TABLE_TYPE = \'TABLE\'\"\n     While !oTables:Eof()\n       aAdd(aTables,oTables:Fields(2):Value)\n       oTables:MoveNext()\n     End     \n     oTables:Close()     //Cierro RecordSet\n\nSaludos','',0,'','37gbnuig',1,0,'',109,0,0),(46068,9583,7,527,0,'88.7.186.40',1200086785,1,0,1,1,1,0,'','Gracias','Ya esta solucionado.\nOtra pregunta por favor\nSe puede actualizar el sistema operativo de la PDA a otro windows superior si es asi como puedo hacerlo\n\nGracias.','',0,'','2r6ocgdb',1,0,'',527,0,0),(46069,9445,7,527,0,'88.7.186.40',1200086882,1,0,1,1,1,0,'','Gracias','Gracrias ya esta solucionado. \nOtra pregunta por favor \nSe puede actualizar el sistema operativo de la PDA a otro windows superior si es asi como puedo hacerlo \n\nGracias.','',0,'','3oew6rwe',1,0,'',527,0,0),(46070,9581,6,228,0,'201.244.65.30',1200088023,1,0,1,1,1,1,'','ok...','Amigo lo checo mas tarde y cualquier cosa te comento...\n\nMuchas gracias por la respuesta','',0,'','2xmsezy0',1,0,'',228,0,0),(46071,9548,3,34,0,'68.5.217.82',1200088121,1,0,1,1,1,1,'','C5','I\'m sure there are many excellent calendar controls.  As I pointed out, this is not a control.  It is simply a modification of the program that is included with FWH when supplied by Antonio, and it shows you how to build a calendar on to an existing Dialog.  I posted the info simply because people had asked about it in the past.','',0,'','285whf52',1,0,'',34,0,0),(46072,9584,3,303,0,'72.220.181.80',1200088341,1,0,1,1,1,0,'','Possible bug in TBar','In the TBar class, bPainted is only called if the 3D clause is used. Shouldn\'t it also be called when not using the 3D clause?\n\nJames','',0,'','1mppw504',1,0,'',303,0,0),(46073,9585,6,228,0,'201.244.65.30',1200088526,1,0,1,1,1,1,'','Otra de ADO (Puro) Fechas','Amigos tengo el siguiente problema:\n\nEstoy tratanto de agregar un registro a una tabla en mssql. La tabla tiene un campo de tipo [smalldatetime] es una fecha con la hora queda de la siguiente manera: 01/01/2008 12:00:00 a.m.\n\nEl problema es que intentanto subir en todos los formatos de fecha\n\nfec:=\'01/01/2008 12:00:00 a.m.\'\nfec:=\'01/01/2008 00:00\'\nfec:=\'01/01/08 00:00\'\n\nLa unica forma de lo sube es asi:\n\nfec:=\'01/01/2008\'\n\nPero cuando miro la fecha en la tabla me queda una fecha que no es:\n\n\"01/01/1900 12:00:00 am\"\n\nAlguien me puede indicar como devolver el valor fecha.\n\nEl Codigo es el siguiente:\n\n[code:jmsmrour]\n\nSELE tbl_lin\nDbgotop&#40;&#41;\nDo while !Eof&#40;&#41;\n\n  Cod&#58;=alltrim&#40;tbl_lin-&gt;lin_codigo&#41;\n  Nom&#58;=alltrim&#40;tbl_lin-&gt;lin_nombre&#41;\n  Act&#58;=Valor&#40;tbl_lin-&gt;lin_activo&#41;\n  Con&#58;=Valor&#40;tbl_lin-&gt;lin_conexi&#41;\n  Emp&#58;=alltrim&#40;tbl_lin-&gt;lin_nomemp&#41;\n  Equ&#58;=alltrim&#40;tbl_lin-&gt;lin_equipo&#41;\n  Ope&#58;=alltrim&#40;tbl_lin-&gt;lin_codope&#41;\n  Ver&#58;=dtoc&#40;tbl_lin-&gt;lin_versio&#41;\n  Fec&#58;=dtoc&#40;tbl_lin-&gt;lin_fecope&#41;\n  Pro&#58;=alltrim&#40;tbl_lin-&gt;lin_proreg&#41;\n  Rem&#58;=alltrim&#40;tbl_lin-&gt;LIN_NOMREM&#41;\n\n cCommandSql	&#58;= &quot;INSERT INTO MAELIN &#40;lin_codigo,lin_nombre,lin_activo,lin_versio&#41; VALUES &#40;\'&quot;+Cod+&quot;\',\'&quot;+Nom+&quot;\',\'&quot;+Act+&quot;\',&quot;+Fec+&quot;&#41;&quot;\n\n\n  TRY\n    oCon&#58;Execute&#40;cCommandSql&#41;\n  CATCH oError\n    MsgInfo&#40;&quot;El registro no pudo ser insertado&quot;&#41;\n  END\n\n  SELE tbl_lin\n  Skip\nEnddo\n[/code:jmsmrour]\n\nDe antemano Gracias','',0,'AIA=','jmsmrour',1,0,'',228,0,0),(46074,9572,6,278,0,'200.126.66.148',1200088526,1,0,1,1,1,1,'','','Antonio:\n\nUna consulta, se pueden usar un archivo de recursos ( RES ) mayores a 1024 byte ( 1 Mb) y conpilarlo con xHarbor + BCC551.\n\nYo no puedo hacerlo con el PellesC. \n\nQue sabes al respecto ?\n\nSaludos,','',0,'AIA=','jmsmrour',1,0,'',278,0,0),(46075,9584,3,2,0,'87.218.146.17',1200089037,1,0,1,1,1,1,'','','James,\n\nYou are right. I just added it. Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','2hp2oyf4',1,0,'',2,0,0),(46076,9572,6,2,0,'87.218.146.17',1200089213,1,0,1,1,1,1,'','','Juan,\n\nNo lo hemos probado. Pero en caso de que se pueda hacer, este editor de recursos es de Microsoft, y sería el candidato a hacerlo bien <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3vv6iyl7',1,0,'',2,0,0),(46077,9585,6,278,0,'200.126.66.148',1200089680,1,0,1,1,1,1,'','','Leandro:\n\nRecuerdo que RF, hablo de un tipo de dato [b:2q3f6dav]datetime[/b:2q3f6dav]  que tiene el xharbour. A lo mejor eso te puede ayudar. \n\nSaludos,','',0,'QA==','2q3f6dav',1,0,'',278,0,0),(46078,9586,3,1274,0,'67.98.136.252',1200090132,1,0,1,1,1,0,'','MS SQL Connection Question? Rick Lipkin??','Hi Rick (or anyone else),\nI\'m trying to compile and link some of your sample code for MS SQL connections.  I\'m doing something wrong. I get some unresolved externals.\n\n--------------------------------------------------------------\n\nBorland Resource Compiler  Version 5.40\nCopyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_vmProcessSymbolsEx\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_RDDDATA\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_AREADATA\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_ID\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_ERROR\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_SETFIELDEXTENT\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_ADDFIELD\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_OPEN\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_UR_SUPER_CLOSE\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\nError: Unresolved external \'_HB_FUN_USRRDD_GETFUNCTABLE\' referenced from C:\\XHARBOUR\\LIB\\ADORDD.LIB|adordd\n\n--------------------------------------------------------------------------\n\nI\'m linking in ADORDD.LIB  (Dated 4-27-2007  9,728 byte)\nAlso included \"adordd.ch\" in main PRG.\n\nAm I still missing something??\n\nAnyones help would be appreciated.\n\nThanks,\n\nBrad\nC&amp;M Business Machines, Inc.','',0,'QA==','2dlzs4ro',1,0,'',1274,0,0),(46079,9585,6,940,0,'189.175.212.22',1200091897,1,0,1,1,1,1,'','','Leandro amigo,\n\nlamento decirte que ado no tiene soporte para fecha y hora (datetime)\n\nyo ya estuve batallando con una tabla de acces, \n\nsin llegar a ninguna solucion,\n\no puede ser el compilador xharbour el que no lo soporta,\n\npero no hay una solucion de momento,\n\nlos gurues en este foro no habla mucho sobre este tema..\n\nrealmente no sabemos si el el problema es de ADO o xhb.\n\n\nsaludos..','',0,'QA==','xz87bw62',1,0,'',940,0,0),(46080,9586,3,2,0,'87.218.146.17',1200093043,1,0,1,1,1,1,'','','Brad,\n\nYou are linking the ADORDD.lib for Harbour, not for xHarbour.\n\nYou have to link the ADORDD.lib for xHarbour and also USRRDD.lib','',0,'QA==','3fowe6y9',1,0,'',2,0,0),(46081,9585,6,109,0,'189.192.192.36',1200093633,1,0,1,1,1,0,'','','Leandro:\n  \n\n    Convierte la fecha a modo caracter, antes de actualizar la Tabla:\n\n     cFecha := \"\'\"+StrZero( Year( Date() ),4 )+;\n                     StrZero( Month( Date() ),2 )+;\n                     StrZero( Day( Date() ),2 )+\"\'\"\n\n   Encierra la cFecha con la \"apostrofes\" ( NO DOBLES COMILLAS ), y enviala a grabar.\n\n   Tiene que grabar la fecha correcta, y los datos de la hora en 00:00:.....\n\n\nSaludos','',0,'QA==','6ba0ps2r',1,0,'',109,0,0),(46082,9587,6,661,0,'189.155.214.53',1200095417,1,0,1,1,1,0,'','imprimir bmp desde recursos, se puede?','que tal compañeros, pues despues de horas intentar no doy con esto, tengo un bmp en mi DLL de recursos y quiero imprimirlo usando la TPRINTER pero no logro hacerlo, si pongo la ruta y la extension funciona sin problema pero del recurso no logro hacerla aparecer...\n\nagredesco su ayuda.\nSaludos.\nAlex.','',0,'QA==','3m1qlqh5',1,0,'',661,0,0),(46083,9574,20,49,0,'62.13.172.68',1200095476,1,0,1,1,1,1,'','','sai perchè mi serve a scuola per controllare tutti gli iban dei docenti e personale ben 360 persone , se mi dai un aiutino dato che hai fatto  quella funzione sei un amicone !!!!','',0,'QA==','17y7ovdt',1,0,'',49,0,0),(46084,9512,3,868,0,'219.64.121.60',1200097273,1,0,1,1,1,1,'','','James\n\nWhen the user drags KeyNo 12 over KeyNo 20, the dragged item has to sit between 19 and 20. So I am changing KeyNo 12 as 19.5.\nAssume the user drags 10 over 20 again. Then KeyNo 10 is to be changed to a number between 19.5 and 20 ( 19.75 ).  Another drag over 20 again? The new key number will be 19.875 and so on.\nI chose more decimal places so that we dont hit a dead end soon.\nIn real time application, if we hit deadend our logic should renumber.\n\nHope I am clear','',0,'QA==','w0uv4u2c',1,0,'',868,0,0),(46085,9588,3,1257,0,'195.93.60.7',1200097861,1,0,1,1,1,1,'','Problems with Accelerators in Class ButtonBmp','The Accelerators don\'t work\n\nWhen you change in the sample &lt; Testbubm.prg &gt;\nthe buttons &lt; Test &gt;  in  &lt; &amp;Test  &gt;,  following happens :\n\nIn the start WINDOW the underline from char &lt; T &gt; is shown\nbut when you press ALT-T nothing happens.\n\nIn the DIALOG-box the accelerator is working but you see\nno underline when the dialogbox opens.\nWhen you press only ALT, you can see the underline. \n\nGreetings from Germany <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','20s8iqf9',1,0,'',1257,0,0),(46086,9570,3,868,0,'219.64.121.60',1200098079,1,0,1,1,1,1,'','','What I would expect from an IDE is, when I design a form in the IDE, it should generate a module with the total source code for the form. All my logic goes into event handlers. If I need to modify, the IDE should read the source code, present the form for edit and when I save the modified form, the IDE should save the modifed code. Then why would I need RC file at all?\n\nAnyway with this IDE, I understand we can add and edit resources in DLL. Enough for those who use DLLs for resources.','',0,'QA==','2ml2ht12',1,0,'',868,0,0),(46087,9576,3,239,0,'218.20.61.124',1200098242,1,0,1,1,1,0,'','','Nedittype change into block, that is very good.\n  obrow:acols[2]:nedittype:={||mycondition}\n  Some other codes change  ocol:nedittype   into if(valtype(ocol:nedittype)==\"B\",eval(ocol:nedittype),ocol:nedittype)\n\nRegards!\n\nShuming Wang','',0,'','2cy3kkrr',1,0,'',239,0,0),(46088,9589,23,1257,0,'195.93.60.7',1200098475,1,0,1,1,1,1,'','Probleme mit Accelerators in der Klasse ButtonBmp','Die Shortcuts in der ButtonBmp - Klasse\nfunktionieren nicht.\nWenn man im Sample &lt; Testbubm.prg &gt; \ndie Buttons &lt; Test &gt; in &lt; &amp;Test &gt; ändert,\npassiert folgendes :\nIm Start-Window ist das unterstrichene T zu sehen,\naber bei ALT-T passiert nichts.\nÖffnet man die Ressource ( Dialog-Box ), ist der Unterstrich\nnicht zu sehen aber ALT-T funktioniert.\nDrückt man zuerst nur ALT wird der Unterstrich sichtbar.\n\nGrüße aus Essen <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nU. König','',0,'','2falpgme',1,0,'',1257,0,0),(46089,9512,3,303,0,'72.220.181.80',1200098642,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;Hope I am clear\n\nYes, now I get it. I did this once by numbering the items in increments of 10--I never thought of using decimals. It\'s good that you mention renumbering since that will become an issue at some point. With a very small database perhaps you could renumber it for each drag &amp; drop.\n\nJames','',0,'','fd9d7hcr',1,0,'',303,0,0),(46090,9585,6,78,0,'190.43.176.223',1200099532,1,0,1,1,1,0,'','','Hazlo asi:\n\ncFecha := DTOC2(Date()) + \" \" + SUBSTR(TIME(),1,8)\n\n....\ncInsert := \"INSERT INTO prueba SET fecha = \'\" + cFechaHora + \"\'\"\noCon:Execute(cInsertl)\n....\n...\n..\n.\n\n\nFunction DTOC2(dDate)    // Harbour to MySQL\nlocal cDate\nSET (_SET_DATEFORMAT, \"yyyy-mm-dd\")\nIf EMPTY(dDate)\n   cDate := \"    -  -  \"   // aqui son 4 espacion para el año\n Else\n   cDate := DTOC(dDate)\nEndIf\nSet( _SET_DATEFORMAT, \"dd/mm/yyyy\" )\nReturn(cDate)','',0,'','10irmjfc',1,0,'',78,0,0),(46091,9573,3,1257,0,'195.93.60.7',1200099668,1,0,1,1,1,1,'','Button-Class-change from BUTTON to BUTTONBMP','REDEFINE BUTTON ID 200 OF oDlg ACTION ( EditFl( .F., invoice-&gt;file ), _Lbx( oLbx2 ) ) \n\nTry this :\nIch changed all my buttons to Class &lt; BUTTONBMP &gt; like :\n\n-----------------------------------------------------------\n \nREDEFINE BUTTONBMP oBtn1 ID 200 OF oDlg ;\nACTION ( EditFl( .F., invoice-&gt;file ), _Lbx( oLbx2 ) ) ;\nBITMAP \"yourBitmap\" PROMPT \"Button Text\" TEXTRIGHT\n\noBtn1:cTooltip \"This is a Test\" + CRLF \"for ButtonBmp\"\n\n------------------------------------------------------------\n( yourBitmap is a Ressourcen-Bitmap )\nNo changes of the button in the Ressource. \nTEXTRIGHT = Bitmap = LEFT, TEXTLEFT = Bitmap = RIGHT\n\nIt looks great ( a normal Button with Bitmap and Tooltip )\nThat is all, what you have to do.\nI hope it helps.\n\nGreetings from Germany\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','3n9pqyeb',1,0,'',1257,0,0),(46092,9570,3,2,0,'87.218.146.89',1200100841,1,0,1,1,1,1,'','','&gt; I understand we can add and edit resources in DLL. Enough for those who use DLLs for resources.\n\nright <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nAlso in RES files','',0,'','2psof22q',1,0,'',2,0,0),(46093,9586,3,35,0,'65.188.6.143',1200102747,1,0,1,1,1,0,'','','Brad\n\nWhen I was testing adordd .. there was a usrrdd.c file that Antonio distributed .. I linked in adordd.prg as well as usrrdd.c and I was successful in makeing it work.\n\nI think the usrrdd.lib file with the latest version of (x)Harbour has some problems .. \n\nI still have the origional usrdd.c file and you can easily add that to your make file instead of the usrrdd.lib .. \n\nIf you wish to try .. send me an e-mail <!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e --> and I will be glad to send it to you .\n\nRick Lipkin','',0,'','2db66cvc',1,0,'',35,0,0),(46094,9570,3,868,0,'219.64.121.60',1200105831,1,0,1,1,1,1,'','','Thanks for the clarification Mr. Antonio. I use DLLs for resources. ( So Pelles Resource Editor also works fine for me. This heavy-weight IDE is not really necessary if we limit to DLLs for resources. That is besides the point. )\n\nI may be permitted to harp on my first point again. A true IDE\'s purpose is not mere generation of RC files. Rather the IDE should make this redundant. Separate RC files are relevant in a programming environment where design and source code are in different files. A true IDE should generate whatever is necessary transparently to me and just leave me with the job of putting my logic in the event handlers of controls and form load and unload events. I should not again have a separate RC file and do the tedious work of mapping controls to my source code and hand code all my logic in a separate module.','',0,'','2lfuvg4z',1,0,'',868,0,0),(46095,9590,3,239,0,'218.20.61.124',1200105990,1,0,1,1,1,0,'','What is the best way read a txt file?','hi, \n  I know xharbour has  functions:\n\n  hfile:=hb_Fuse(\"ccc.txt\")\n  while !hb_feof()\n     c1:=hb_freadln() \n    hb_fskip(1)\n  end\n  hb_fuse()\n  fclose(hfile)\n but harbour without.\n\n   Are there lists of  what functions each harbour libs files includes ?\n\n Regards!\nShuming Wang','',0,'','35ki56tv',1,0,'',239,0,0),(46096,9586,3,868,0,'219.64.121.60',1200106200,1,0,1,1,1,1,'','','I did not get usrrdd.c with my FWH. Only usrrdd.lib.  I am interested in the c source code. Can you please email me too?\n\nMy problem is matching source code of rdd_ads. If i can get the source of rdd_ads ( *.c and *.h ) used by FWH, that would be nice.  Is it too much to expect from Mr. Antonio ?','',0,'','252fxios',1,0,'',868,0,0),(46097,9591,17,239,0,'218.20.61.124',1200106549,1,0,1,1,1,0,'','harbour test samples','<!-- m --><a class=\"postlink\" href=\"http://www.koders.com/noncode/fid27035BD7BC63F0CA1E816BEB0150E106CCA1FB18.aspx\">http://www.koders.com/noncode/fid27035B ... 1FB18.aspx</a><!-- m -->','',0,'','1tlbhy4v',1,0,'',239,0,0),(46098,9592,3,868,0,'219.64.121.60',1200108006,1,0,1,1,1,1,'','TXBrowse - Refresh() - Some Issues','When a field of the current row in the active index is modified, if the new OrdKeyNo() is less than the oBrw:nRowSel, the browse display is incorrect even after oBrw:Refresh().\n\nI assume this does not require any examples, because this must be of common experience or can be easily comprehended.\n\nThe work around is \nif ( n := OrdkeyNo() ) &lt; oBrw:nRowSel\n   oBrw:nRowSel := n\n   oBrw:Refresh()\nendif\n\nBut programmers who face this situation for the first time should learn this work around either by trial and error or from some posting in these forums. Instead why can not the Refresh method be modified slightly?\n\n\n[code:1m6we422]\nInstead of the present\n    &#58;&#58;nRowSel  &#58;= Min&#40;&#58;&#58;nRowSel, &#58;&#58;nLen&#41;\nSubstitute&#58;\n    &#58;&#58;nRowSel	&#58;= Min&#40;&#58;&#58;nRowSel,  eval&#40; &#58;&#58;bKeyNo &#41; &#41;\n[/code:1m6we422]\n\nThis modification resolves this issue totally for every kind of data source.','',0,'AIA=','1m6we422',1,0,'',868,0,0),(46099,9592,3,868,0,'219.64.121.60',1200108324,1,0,1,1,1,1,'','','This also resolves display issues when changing index order or seek a value less than the present key value.','',0,'AIA=','374x09en',1,0,'',868,0,0),(46100,9593,6,492,0,'189.147.68.124',1200112304,1,0,1,1,1,1,'','Controles ActiveX No funcionan con FWH 7.12 + xHarbour','Antonio :\n\nPor fin pude trabajar con la version 7.12 ( Muchas Gracias a Carlos Vargas por su valiosa ayuda ).\n\nPero no esta permitiendome usar los activeX, inclusive si trato de generar los ejemplos : excel y excel2 no hace nada, se quedan los programas en el limbo.\n\nSaludos','',0,'AIA=','2v1r6d9p',1,0,'',492,0,0),(46101,9594,3,868,0,'219.64.121.60',1200115121,1,0,1,1,1,1,'','TXBrowse - oBrw:GoBottom() in the init clause','Our users insist that the last portion of the data be shown in the browse to start with ( for financial data like ledgers, daybooks, etc ) because they are more interested in seeing the latest information to start with.  \n\nI use code something like \"activate dialog odlg on init ( obrw:gobottom(), obrw:setfocus() )\"\n\nThis works well if the browse is in dialog but not when the browse is in window.  But our requirement is to present the browses in mdi child windows (not in dialogs) because the users want to open two or three accounts simultaneously for comparison.\n\nIn the case of dialog the last rows of the data are filled fully in the browse area and the cursor is positioned on the last row. But in the case of window, only the last 2 or 3 lines are displayed at the top leaving the rest of the browse area blank.  Here is an example to show the difference in behavior of xbrowse in dialogs and windows.\n[code:35s2qcib]\n#include \'fivewin&#46;ch\'\n#include \'xbrowse&#46;ch\'\n\nfunction main&#40;&#41;\n\nlocal ownd, obar\n\n	define window ownd mdi\n	define buttonbar obar of ownd\n	define button of obar prompt \'dlg\' action xbrdlg&#40;&#41;\n	define button of obar prompt \'win\' action xbrwin&#40;&#41;\n\n	activate window ownd\n\nreturn nil\n\nstatic function xbrdlg&#40;&#41;\n\nlocal odlg, obrw\n\n	use \\fwh\\samples\\customer new alias cust1 shared\n\n	define dialog odlg size 800,600 pixel\n	obrw &#58;= txbrowse&#40;&#41;&#58;new&#40; odlg &#41;\n   obrw&#58;calias &#58;= \'cust1\'\n\n	obrw&#58;ntop     &#58;= 10\n	obrw&#58;nleft    &#58;= 10\n	obrw&#58;nbottom  &#58;= 290\n	obrw&#58;nright   &#58;= 390\n\n//   obrw&#58;setrdd&#40;&#41;\n	obrw&#58;createfromcode&#40;&#41;\n\n	activate dialog odlg centered ;\n		on init &#40; obrw&#58;gobottom&#40;&#41;, obrw&#58;setfocus&#40;&#41; &#41;\n	close cust1\n\nreturn nil\n\nstatic function xbrwin&#40;&#41;\n\nlocal ownd, obrw, calias\n\n	calias &#58;= cgetnewalias&#40; \'cust\' &#41;\n	use \\fwh\\samples\\customer new alias &#40;calias&#41; shared\n\n	define window ownd mdichild of wndmain&#40;&#41;\n	obrw &#58;= txbrowse&#40;&#41;&#58;new&#40; ownd &#41;\n   obrw&#58;calias &#58;= calias\n	obrw&#58;createfromcode&#40;&#41;\n	ownd&#58;oclient &#58;= obrw\n\n	activate window ownd ;\n		on init &#40; obrw&#58;gobottom&#40;&#41;, obrw&#58;setfocus&#40;&#41; &#41; ;\n		valid &#40; &#40;calias&#41;-&gt;&#40;dbclosearea&#40;&#41;&#41;, &#46;t&#46; &#41;\n\nreturn nil\n[/code:35s2qcib]\nI could find out the reason, but I could not find solution. In case of dialog the browse object knows the correct value of obrw:nheight and consequently the method obrw:brwheight returns the correct value, because we assign the value to data nbottom initially.  In case of window, the browse object does not know the correct height information at the time of \"on init\" of window.  \n\nHow can this be solved please?','',0,'AIA=','35s2qcib',1,0,'',868,0,0),(46102,9541,6,1272,0,'189.174.175.39',1200115521,1,0,1,1,1,0,'','','<!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nEsta pequeña utilidad creada por mi, la utilizo para explorar librerias omf\nespero te pueda servir de algo, es muy parecida a LIBRA.\n\n<!-- m --><a class=\"postlink\" href=\"http://andresreyesh.myvnc.com/www/elib.zip\">http://andresreyesh.myvnc.com/www/elib.zip</a><!-- m -->\n\n[img:15zzuxbo]http&#58;//andresreyesh&#46;myvnc&#46;com/www/elib&#46;png[/img:15zzuxbo]\n\nSaludos,\nAndres','',0,'CA==','15zzuxbo',1,0,'',1272,0,0),(46103,9590,3,303,0,'72.220.181.80',1200117199,1,0,1,1,1,0,'','','How about just:\n\ncText := memoread( \"myfile.txt\")\n\nRegards,\nJames','',0,'CA==','134bg5sw',1,0,'',303,0,0),(46104,9594,3,868,0,'219.64.121.60',1200117412,1,0,1,1,1,1,'','','I just found this works:\n[code:fb8b2f4h]\nactivate window ownd on init &#40; obrw&#58;nheight &#58;= ownd&#58;nheight, obrw&#58;gobottom&#40;&#41;, obrw&#58;setfocus&#40;&#41; &#41;\n[/code:fb8b2f4h]','',0,'AIA=','fb8b2f4h',1,0,'',868,0,0),(46105,9570,3,2,0,'87.218.146.89',1200119960,1,0,1,1,1,1,'','','NageswaraRao,\n\nSome FWH users are not satisfied with PellesC IDE, and also find Borland Resources Workshop old fashioned (besides being 16 bits).\n\nThats where this free VSX 32 bits \"resources editor\" may be usefull for. We don\'t consider it an IDE (at least, not by now).\n\nWe strong recommend UEStudio as an excellent source code editor and automatic project manager. Now this VSX fits as an excellent resources editor. Maybe in the future, we may be able to replace and extend UEStudio funcionality using this VSX tool.','',0,'AIA=','3ku3phop',1,0,'',2,0,0),(46106,9593,6,2,0,'87.218.146.89',1200120196,1,0,1,1,1,1,'','','Raymundo,\n\nAcabamos de probar samples\\WebExp.prg con xHarbour y funciona perfectamente. \n\nPosiblemente se debe al orden de enlazado de las librerías. Comprueba que sea el mismo que se usa en samples\\buildx.bat. Y que las librerías de FWH esten antes de las de xHarbour','',0,'AIA=','1r62b4lb',1,0,'',2,0,0),(46107,9570,3,868,0,'219.64.121.60',1200120635,1,0,1,1,1,1,'','','I understand, if that is the limited objective for the present.  I thought the intention was to make it an IDE for fivewin.','',0,'AIA=','2qdi5mq1',1,0,'',868,0,0),(46108,9541,6,2,0,'87.218.146.89',1200120770,1,0,1,1,1,1,'','','Andrés,\n\nELib funciona realmente bien. Enhorabuena! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n¿ Te has planteado pasar esa utilidad a Windows ? \nSería una herramienta muy práctica','',0,'AIA=','2n3pb5rw',1,0,'',2,0,0),(46109,9570,3,2,0,'87.218.146.89',1200121304,1,0,1,1,1,1,'','','We are reviewing VSX to see what functionality it delivers to build an IDE, but up to now, we see it in an early stage.\n\nOr maybe we don\'t know yet how to really use it. Probably in the future Microsoft may provide more working samples and utilities to easily configure it. \n\nActually it is a real complex tool, that provides less functionality than UEStudio, in our opinion, and it is by far much more complex to be configured than UEStudio\n\nBut its built-in resources editor is a very good one and its another choice for FWH users','',0,'AIA=','14fj43ez',1,0,'',2,0,0),(46110,9570,3,868,0,'219.64.121.60',1200121680,1,0,1,1,1,1,'','','May be it is too early.  But Micorsoft\'s intention is to let it be used to develop it as IDE independantly.  I do hope someday we can have a functional IDE for FWin. I mean including code generation. The way we develop VB applications.','',0,'AIA=','1ty6mthm',1,0,'',868,0,0),(46111,9586,3,2,0,'87.218.146.89',1200121779,1,0,1,1,1,1,'','','NageswaraRao,\n\nYou can get that source code directly from the Harbour SVN or from the xHarbour CVS. Its open source.','',0,'AIA=','121ga47f',1,0,'',2,0,0),(46112,9586,3,868,0,'219.64.121.60',1200122271,1,0,1,1,1,1,'','','What I meant was the exact version that matches with FWH release. the source code i downloaded and used did not match and got GPFs.','',0,'AIA=','2fs2gtzo',1,0,'',868,0,0),(46113,9573,3,2,0,'87.218.146.89',1200122350,1,0,1,1,1,1,'','','Darrell,\n\nAre you using FWH or FW++ ?','',0,'AIA=','29x3hz16',1,0,'',2,0,0),(46114,9592,3,2,0,'87.218.146.89',1200122487,1,0,1,1,1,1,'','','NageswaraRao,\n\nFixed. many thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','koj88idm',1,0,'',2,0,0),(46115,9586,3,2,0,'87.218.146.89',1200123437,1,0,1,1,1,1,'','','NageswaraRao,\n\nYou can do a checkout of the file for a specific date, the same date used to build the xHarbour build','',0,'AIA=','3vmm69iv',1,0,'',2,0,0),(46116,9586,3,2,0,'87.218.146.89',1200123583,1,0,1,1,1,1,'','','NageswaraRao, \n\nAnyhow, yesterday I was reported that the RDD GPFs have been fixed in a recent xHarbour build.\n\nSo if you do a checkout of the current xHarbour CVS code and build it, it will probably work fine without GPFs. \n\nIf you want, we may prepare a new xHarbour build here so you can check it and see if the GPFs are solved <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','rcgpllfp',1,0,'',2,0,0),(46117,9588,3,2,0,'87.218.146.89',1200123849,1,0,1,1,1,1,'','','&gt;\nIn the start WINDOW the underline from char &lt; T &gt; is shown \nbut when you press ALT-T nothing happens. \n&gt;\n\nwindows don\'t react, by default (Win API rules), to accelerators. We need to implement it.\n\n&gt;\nIn the DIALOG-box the accelerator is working but you see \nno underline when the dialogbox opens. \nWhen you press only ALT, you can see the underline. \n&gt;\n\nI think thats the normal behavior. You need to press Alt in order to see the accelerators.','',0,'AIA=','1ebswzr2',1,0,'',2,0,0),(46118,9586,3,868,0,'219.64.121.60',1200124242,1,0,1,1,1,1,'','','&gt; If you want, we may prepare a new xHarbour build here so you can check it and see if the GPFs are solved\n\nI would be very glad if you can do that. Thanks in advance','',0,'AIA=','3mz9bhwa',1,0,'',868,0,0),(46119,9592,3,303,0,'72.220.181.80',1200124639,1,0,1,1,1,0,'','','NageswaraRao,\n\nIsn\'t using bKeyNo going to cause a real slowdown when used with ADS?\n\nJames','',0,'AIA=','5ypw1aus',1,0,'',303,0,0),(46120,9592,3,868,0,'219.64.121.60',1200127090,1,0,1,1,1,1,'','','1) Evaluation of bKeyNo does take a triffle more time. But what we dont realize is that bKeyNo keeps on getting evaluated by the xbrowse object on many occasions without our knowledge.  Exampes:  When bookmarks are saved, vertical scroll is operated and so on.  So most of the times this extra time is not noticeable.  \n\n2) We do not use Refresh() everytime. The question is once in a while when we need a refresh, is this little extra time worth or not?\n\n3) It is true that AdsKeyNo() does take more time. In some circumstances the time it takes can be prohibitive too. But xbrowse does not use AdsKeyNo().  Instead it uses AdsGetRelKeyPos and AdsSetRelKeyPos functions which are faster versions though approximate. Even on large tables the performance is not bad.  ( My experience is with tables contation more than 500,000 rows with complex serverside filters and more than 100 users at any time).\n\n4) Still it has to be accepted that the suggested change to Refresh method does make it slow but is it going to be perceptible when anyway bKeyNo is getting evaluated so many times even otherwise?','',0,'AIA=','18reojie',1,0,'',868,0,0),(46121,9586,3,2,0,'87.218.146.89',1200127188,1,0,1,1,1,1,'','','NageswaraRao, \n\nHere you have it:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/83156204/xharbour.exe.html\">http://rapidshare.com/files/83156204/xharbour.exe.html</a><!-- m -->\n\nWe appreciate your feedback, thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','7m4eedv6',1,0,'',2,0,0),(46122,2486,16,2,0,'87.218.146.89',1200127378,1,0,1,1,1,1,'','','January 2008\n==========\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/83156204/xharbour.exe.html\">http://rapidshare.com/files/83156204/xharbour.exe.html</a><!-- m -->','',0,'AIA=','guryxb5l',1,0,'',2,0,0),(46123,9548,3,9,0,'85.59.186.228',1200127519,1,0,1,1,1,1,'','Re: Calendar (popup a replace date-field) + other date-funct','[quote=&quot;ukoenig&quot;:18ltb684]Why don\'t you try the calendar, you find at my website ?[/quote:18ltb684]\n\nUkoenig,\n\nI had dowloaded your calendar. Congratulation. \nIn its source code I read spanish comments and function\'s names with spanish contents. Which is the origin of this calendar class? \n\nRegards','',0,'gA==','18ltb684',1,0,'',9,0,0),(46124,9587,6,2,0,'87.218.146.89',1200127556,1,0,1,1,1,1,'','','Alex,\n\nEstás usando el método de la Clase TPrinter: ?\n\nSayBitmap( nRow, nCol, xBitmap, nWidth, nHeight, nRaster )','',0,'gA==','12o6viu7',1,0,'',2,0,0),(46125,9586,3,868,0,'219.64.121.60',1200128546,1,0,1,1,1,1,'','','Mr Antonio\n\nThank you very much. I installed the new xHarbour.\n\nADORDD is working perfectly with the usrlib.lib of the new xharbour.','',0,'gA==','3dj8s85s',1,0,'',868,0,0),(46126,9586,3,2,0,'87.218.146.89',1200128776,1,0,1,1,1,1,'','','NageswaraRao, \n\n&gt; ADORDD is working perfectly with the usrlib.lib of the new xharbour.\n\nVery good! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nHave you tested ADS RDD also ? many thanks for your feedback,','',0,'gA==','3bnz6pws',1,0,'',2,0,0),(46127,9586,3,868,0,'219.64.121.60',1200128932,1,0,1,1,1,1,'','','rdd_ads.lib that is installed works fine.\n\nBut I need to reconstruct it with my modifications. I am downloading the latest sources. I rebuild and confirm, but I am confident it will work.','',0,'gA==','bn7nfknt',1,0,'',868,0,0),(46128,9586,3,2,0,'87.218.146.89',1200129204,1,0,1,1,1,1,'','','Thanks!','',0,'gA==','2vz7qk8g',1,0,'',2,0,0),(46129,9592,3,995,0,'81.11.221.145',1200130255,1,0,1,1,1,0,'','','Now i see in the source : \n\n[code:3lnpznlf]\n&#58;&#58;nRowSel  &#58;= Min&#40;&#58;&#58;nRowSel, &#58;&#58;nLen&#41;\n&#58;&#58;nArrayAt &#58;= Min&#40;&#58;&#58;nArrayAt, &#58;&#58;nLen&#41;\n[/code:3lnpznlf]\n\nI try to use xbroxse so much as possible with arrays , eval(::bKeyno) gives ::nArrayAt , so i suppose it must be changed in\n\n[code:3lnpznlf]\n&#58;&#58;nArrayAt &#58;= Min&#40;&#58;&#58;nArrayAt, &#58;&#58;nLen&#41;\n&#58;&#58;nRowSel  &#58;= Min&#40;&#58;&#58;nRowSel, Eval&#40;&#58;&#58;bKeyNo&#41;&#41;\n[/code:3lnpznlf]\n\nFrank','',0,'AIA=','3lnpznlf',1,0,'',995,0,0),(46130,9590,3,995,0,'81.11.221.145',1200131799,1,0,1,1,1,0,'','','James,\n\nI think memoread has a limitation (or at least memoline) : linelength must be less as 254\n\nFrank','',0,'AIA=','3u2u8e1g',1,0,'',995,0,0),(46131,9586,3,868,0,'219.64.121.60',1200135423,1,0,1,1,1,1,'','','rddads complied by me also is working.','',0,'AIA=','3hg3vpk4',1,0,'',868,0,0),(46132,9586,3,2,0,'87.218.146.89',1200136110,1,0,1,1,1,1,'','','Very good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','3fc40nao',1,0,'',2,0,0),(46133,9590,3,2,0,'87.218.146.89',1200139536,1,0,1,1,1,1,'','','Frank,\n\nMemoRead() is fine but MemoLine() should not be used as it is very slow.\n\nPlease review fwh\\samples\\RE.prg to see how to read lines from text, real fast <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','21b0y3zo',1,0,'',2,0,0),(46134,9590,3,6,0,'79.19.244.155',1200141758,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:23asjfq1]Frank,\n\nMemoRead() is fine but MemoLine() should not be used as it is very slow.\n\nPlease review fwh\\samples\\RE.prg to see how to read lines from text, real fast <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:23asjfq1]\n\nxHarbour offers HB_FReadLine() that should be fast enough.\n\nEMG','',0,'gA==','23asjfq1',1,0,'',6,0,0),(46135,9570,3,6,0,'79.19.244.155',1200142462,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:cnkgfj0r]May be it is too early.  But Micorsoft\'s intention is to let it be used to develop it as IDE independantly.  I do hope someday we can have a functional IDE for FWin. I mean including code generation. The way we develop VB applications.[/quote:cnkgfj0r]\n\nI don\'t like how VB oganizes things. I much prefer to use a simple editor.\n\nEMG','',0,'gA==','cnkgfj0r',1,0,'',6,0,0),(46136,9574,20,6,0,'79.19.244.155',1200142880,1,0,1,1,1,1,'','','Eccola:\n\n[code:2cs28dez]FUNCTION ISIBAN&#40; cIba &#41;\n\n    LOCAL cChk &#58;= SUBSTR&#40; cIba, 3, 2 &#41;\n\n    cIba = LEFT&#40; cIba, 2 &#41; + &quot;00&quot; + SUBSTR&#40; cIba, 5 &#41;\n\n    RETURN cChk = IBANCHK&#40; cIba &#41;[/code:2cs28dez]\n\nComunque cerca anche di darti da fare un pochino. Non puoi pretendere sempre la pappa pronta.\n\nEMG','',0,'AIA=','2cs28dez',1,0,'',6,0,0),(46137,9593,6,492,0,'189.147.68.124',1200147117,1,0,1,1,1,1,'','','Master Antonio :\n\nEstoy usando el BuildX.Bat de la carpeta SAMPLES para generarlos y nop, no se ejecutan.\n\nLos demas ejemplos que he generado, estan funcionando OK\n\nSaludos','',0,'AIA=','582kv1y4',1,0,'',492,0,0),(46138,9593,6,2,0,'87.218.146.89',1200147758,1,0,1,1,1,1,'','','Raymundo,\n\nUsas el xHarbour que distribuimos con FWH ó la versión comercial xHB ?','',0,'AIA=','1sgeix2r',1,0,'',2,0,0),(46139,9548,3,1257,0,'195.93.60.7',1200147874,1,0,1,1,1,1,'','Spanish-code in Calendar-class','A few years ago, i found a calendar-class for the\n16 Bit FW, but it was in spanish.\nI had to do some changes, to use it for the new FWH. \nFor me it was not easy, because i don\'t know anything about spanish.\n\nGreetings from germany\n\nU.König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','27s4r2y0',1,0,'',1257,0,0),(46140,9593,6,492,0,'189.147.68.124',1200148858,1,0,1,1,1,1,'','','Antonio :\n\nEl xHarbour que viene con el update.\n\nSaludos','',0,'AIA=','35yryf9g',1,0,'',492,0,0),(46141,9574,20,49,0,'213.82.134.66',1200150795,1,0,1,1,1,1,'','','Scusa c\'hai ragione te !!\neè solo che è un periodo no questo!!!\ncomunque grazie tantissimissimo!!!','',0,'AIA=','xx3xr4yq',1,0,'',49,0,0),(46142,9574,20,49,0,'213.82.134.66',1200150875,1,0,1,1,1,1,'','','scusa ...\nio avrei per caso in un archivio i codici abi e cab delle banche \nindolore potrei andarli a cercare li che dici ?','',0,'AIA=','pstwymbi',1,0,'',49,0,0),(46143,9541,6,596,0,'84.76.66.27',1200153662,1,0,1,1,1,1,'','','[quote=&quot;andresreyes_mzt&quot;:2cufh7f5]Esta pequeña utilidad creada por mi, la utilizo para explorar librerias omf[/quote:2cufh7f5]\n\nPues me dice que \"LA LIBRERIA SE ENCUENTRA VACIA\".\n\nPor ejemplo la lib LANG.LIB de xHarbour para Microsoft me da VACIA.\nLa misma lib de xHarbour para Borland se ve el contenido.\n\n¿ Seguro que ve LIBs OMF ?\n\nProbarla si quereis, os la dejo aqui <!-- m --><a class=\"postlink\" href=\"http://jmgarcia.org/LTC2x.lib\">http://jmgarcia.org/LTC2x.lib</a><!-- m -->\n\nP.D.: Muchas gracias andresreyes.','',0,'gA==','2cufh7f5',1,0,'',596,0,0),(46144,9588,3,130,0,'77.179.211.244',1200156126,1,0,1,1,1,1,'','Re: Problems with Accelerators in Class ButtonBmp','[quote=&quot;ukoenig&quot;:2lx8fhsv]\nIn the DIALOG-box the accelerator is working but you see\nno underline when the dialogbox opens.\nWhen you press only ALT, you can see the underline. [/quote:2lx8fhsv]\n\nUwe,\n\nthat´s a windows configuration, you can change it under desktop properties/effects. (not sure if the english synonyms are correct)\n\n[german on]\nDu kannst es ändern unter Desktop Eigenschaften/Effekte\n[german off]','',0,'gA==','2lx8fhsv',1,0,'',130,0,0),(46145,9570,3,130,0,'77.179.211.244',1200157049,1,0,1,1,1,1,'','','[quote=&quot;EnricoMaria&quot;:31qtca3u]\nI don\'t like how VB oganizes things. I much prefer to use a simple editor.\n[/quote:31qtca3u]\n\nI fully agree. \n\nI think we don´t need an IDE, but only a good resource editor. The biggest disadvantage of an ide is, besides a large overhead, that you can´t import your existing projects.\n\nUsing UeStudio or xMate as editor and compile tool is the best and fastest environment you can get.','',0,'gA==','31qtca3u',1,0,'',130,0,0),(46146,9572,6,940,0,'189.175.212.22',1200157085,1,0,1,1,1,1,'','','Antonio,\n\nmuy bueno el editor de recurso de VSX\n\ncrees que en un futuro podamos usar \n\nVSX con FWH ?\n\nsolo es un sueño guajiro, jeje  pero al ver estos \n\navances siempre se piensa en algo mas .\n\nGracias, \n\nSaludos.','',0,'gA==','3ktg0qrv',1,0,'',940,0,0),(46147,9548,3,49,0,'213.82.134.66',1200157183,1,0,1,1,1,1,'','','I think...\nMr Tim Stone are searching another type of calendar ....like office 2007\nBut he want it free ....','',0,'gA==','20p70pi7',1,0,'',49,0,0),(46148,9589,23,130,0,'77.179.211.244',1200157247,1,0,1,1,1,1,'','','HAllo Uwe,\n\nsieh mein posting im englischen Forum\n\nGruß\nStefan','',0,'gA==','1t6bowis',1,0,'',130,0,0),(46149,9574,20,6,0,'79.19.244.155',1200159435,1,0,1,1,1,1,'','','<!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: -->  <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEMG','',0,'gA==','1kqg1d5z',1,0,'',6,0,0),(46150,9570,3,51,0,'80.122.88.242',1200162916,1,0,1,1,1,0,'','','Special Focus issue on Visual Studio Extensibility \nfree download issue in PDF format - 75 pages\nLINK on <!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->','',0,'gA==','2xxw4lrv',1,0,'',51,0,0),(46151,9595,6,431,0,'190.142.51.7',1200165385,1,0,1,1,1,1,'','Valid','Saludos,\n\ntengo un get con un valid \n    REDEFINE GET oGet2 VAR cPassw ID 102 FONT oFont OF oDlg ;\n       VALID (lValor:=VerUser(cPassw,::xTaq),If(lValor,(oBtn1:Click(),.T.),;\n             (oGet2:nPos:=1,oGet2:Refresh(),.F.))) ;\n    Picture \'@KS6\' COLORS CLR_GET1,CLR_GET2  Update\n\n  ahora quiero que ese get, se alimente de un boton, es para un modulo tactil, pero siempre me ejecuta el valid cuando sale del focus del get.\nmi pregunta es?  como hacer que el valid no se ejecute al momento de presionar un boton por ejemplo.\nREDEFINE BUTTON oBtn3 ID 401 OF oDlg ACTION ( oGet2:SetFocus(.t.),;\n                                                 cPassw:=cPassw+ASC(\"1\"),;\n                                                 oGet2:Refresh() )\n\nlo que quiero es ejecutar el boton sin que se active la validacion del get.\n\nGracias de antemano.','',0,'gA==','1o8dxjxs',1,0,'',431,0,0),(46152,9593,6,492,0,'189.147.68.124',1200165742,1,0,1,1,1,1,'','','Antonio :\n\n\nSolucionado, Mil disculpas.\n\nFue cuasado por un error mio.\n\n\nGracias','',0,'gA==','1zzj0idj',1,0,'',492,0,0),(46153,9541,6,1272,0,'189.174.175.39',1200171421,1,0,1,1,1,0,'','','jmGarcia:\n\nLas libs de Microsoft, Mingw, son formato COFF, Borland utiliza OMF,\n\nEs por eso que no puedes ver las de Microsfot, y te dice que estan vacias ya que no reconoce el formato, estaba trabajando en una clase tambien para leer librerias en Formato COFF pero ahorita estan en stanby, ya que esto lo hago en mis tiempos libres.\n\nAntonio:\n\nSi he pensado en pasarla a Windows, espero y darme un poco de tiempo para hacerlo, entre las cosas que le dedico tiempo ahorita, es un Depurador para xHarbour en Windows, k tambien funciona con fivewin, y un editor de codigo, el depurador ahorita ya funciona pero no con todas las funcionalidades que quisiera ... me falta algo de tiempo para terminar...\n\n\nSaludo,\nAndres','',0,'gA==','2y3yhd55',1,0,'',1272,0,0),(46154,9573,3,234,0,'75.34.217.174',1200174148,1,0,1,1,1,1,'','','Antonio,\n\nI am using FWH lib dates of 12/2007','',0,'gA==','38alm6hs',1,0,'',234,0,0),(46155,9595,6,228,0,'201.244.65.30',1200174971,1,0,1,1,1,1,'','','Segun lo que entiendo; lo que debes hacer es quitar la clausula valid del get. y colocar en las propiedades del boton Default PushButton.\n\nEspero te sirva','',0,'gA==','16s7xu71',1,0,'',228,0,0),(46156,9548,3,34,0,'68.5.217.82',1200174975,1,0,1,1,1,1,'','Silvio','No, I don\'t want something for free.  I needed an immediate, interim, solution for a specific project.  \n\nIn the long term, I will be implementing several controls, and none of them do I expect to be free ....','',0,'gA==','mkls8rd7',1,0,'',34,0,0),(46157,9585,6,228,0,'201.244.65.30',1200175346,1,0,1,1,1,1,'','','Gracias a todos por las respuestas y por la ayuda prestada.\n\nViejo Willi  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nEra lo que necesitaba.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMuchas Gracias','',0,'gA==','3as4rpoi',1,0,'',228,0,0),(46158,9593,6,2,0,'87.218.146.63',1200175432,1,0,1,1,1,1,'','','Raymundo,\n\nMe alegro de que esté solucionado <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPuedes comentar que es lo que pasó por si a otro usuario le ocurre igual ? gracias,','',0,'gA==','lfwji3us',1,0,'',2,0,0),(46159,9595,6,2,0,'87.218.146.63',1200175609,1,0,1,1,1,1,'','','Mario Antonio,\n\nPrueba a añadirle la claúsula CANCEL:\n\nREDEFINE BUTTON ... CANCEL','',0,'gA==','1wk8hi6z',1,0,'',2,0,0),(46160,9541,6,596,0,'84.76.66.27',1200176349,1,0,1,1,1,1,'','','[quote=&quot;andresreyes_mzt&quot;:29hybno8]Las libs de Microsoft, Mingw, son formato COFF, Borland utiliza OMF,[/quote:29hybno8]\n\nVale, esa era mi error, pensaba que era al reves.\nGracias.','',0,'gA==','29hybno8',1,0,'',596,0,0),(46161,9566,3,6,0,'79.19.244.155',1200177046,1,0,1,1,1,1,'','Re: Timage problem','This is a working sample:\n\n[code:3l7etrzu]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oImg\n\n    DEFINE DIALOG oDlg;\n           SIZE 700, 500\n\n    @ 1, 1 IMAGE oImg;\n           FILE &quot;IMAGE&#46;JPG&quot;;\n           SIZE 200, 200;\n           ADJUST\n\n    @ 0,  1 BUTTON &quot;Save&quot;;\n            ACTION MSGINFO&#40; oImg&#58;SaveImage&#40; &quot;SAVED&#46;JPG&quot;, 2 &#41; &#41;\n\n    @ 0, 7 BUTTON &quot;Paste&quot;;\n           ACTION &#40; oImg&#58;LoadFromClipboard&#40;&#41;,;\n                    oImg&#58;Refresh&#40;&#41; &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL[/code:3l7etrzu]\n\nEMG','',0,'AIA=','3l7etrzu',1,0,'',6,0,0),(46162,9573,3,2,0,'87.218.146.63',1200177281,1,0,1,1,1,1,'','','Darrell,\n\nCould you please provide a small and self contained sample to reproduce the problem ? thanks','',0,'AIA=','358740yw',1,0,'',2,0,0),(46163,9596,18,6,0,'79.19.244.155',1200177318,1,0,1,1,1,1,'','TPrinter with GetWndDefault()','In the following sample GetWndDefault() returns NIL after TPrinter is used and then it continues to return NIL:\r\n\r\n[code:23wqrras]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg\n\n    DEFINE DIALOG oDlg\n\n    @ 1, 1 BUTTON &quot;Print&quot;;\n           ACTION PRINT&#40;&#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION PRINT&#40;&#41;\n\n    LOCAL oPrn\n\n    ? GETWNDDEFAULT&#40;&#41;\n\n    PRINT oPrn PREVIEW MODAL\n        PAGE\n        ENDPAGE\n    ENDPRINT\n\n    ? GETWNDDEFAULT&#40;&#41;\n\n    RETURN NIL[/code:23wqrras]\r\n\r\nEMG','',0,'AIA=','23wqrras',1,0,'',6,0,0),(46164,9573,3,234,0,'75.34.217.174',1200177423,1,0,1,1,1,1,'','','Here is the source.\n\n  DEFINE DIALOG oDlg RESOURCE \"FRTLIST\"\n\n  REDEFINE GET aGet[01] VAR cFile     ID 101     OF oDlg    PICTURE \"@!\"      WHEN .F.\n  REDEFINE GET aGet[02] VAR nFlparty  ID 102     OF oDlg    PICTURE \"9\"       ;\n     VALID (  lPass := _FlOk( nFlParty, @nShare, @nInvCnt, cGroupon, cFlkey, cMbl, oLbx2 ), aGet[03]:Refresh(), lPass )\n\n  REDEFINE GET aGet[03] VAR nShare    ID 103     OF oDlg    PICTURE \"99.99\"   ;\n     VALID (  lPass := _FlOk2( nShare ), aGet[03]:Refresh(), lPass )\n\n  REDEFINE GET aGet[04] VAR cMbl      ID 104     OF oDlg    PICTURE \"@!\"      WHEN .F.\n  REDEFINE GET aGet[05] VAR cHbl      ID 105     OF oDlg    PICTURE \"@!\"      WHEN .F.\n  REDEFINE COMBOBOX aGet[06] VAR cFlRem  ID 106 ITEMS aFlRem OF oDlg    ;\n     VALID (  lPass := _FlOk3( cGroupon, cFlkey, cFlRem ), lPass )\n\n  SELECT invoice\n  SET ORDER TO TAG S7\n  GO TOP\n  SEEK cFlkey\n  SET FILTER TO ( invoice-&gt;flkey = cFlkey )\n\n  REDEFINE LISTBOX oLbx2 FIELDS invoice-&gt;type                                           , ;\n                                invoice-&gt;flkey                                          , ;\n                                invoice-&gt;invoice                                        , ;\n                                DTOC( invoice-&gt;invdate )                                , ;\n                                TRANSF( invoice-&gt;totamt, \"9,999,999.99\" )               , ;\n                                TRANSF( invoice-&gt;totcst, \"9,999,999.99\" )               , ;\n                                IF( invoice-&gt;flprt, \"PRINTED\",\"NOT-PRINTED\")            , ;\n                                invoice-&gt;fluser                                         , ;\n                                invoice-&gt;fldate                                         , ;\n                                invoice-&gt;fltime                                         ;\n    ID 6000                                                             ;\n    HEADERS    \"Type\", \"F/L Key\", \"CR/DB No.\", \"Ref Date\", \"Revenue\", \"Outlay\", \"Status\", \"F/L User\", \"Date\", \"Time\"    ;\n    FIELDSIZES   75  ,    125   ,     125    ,     85    ,    100   ,    100  ,    100  ,    100    ,   85  ,   85      ;\n    SELECT invoice-&gt;flkey FOR cFlkey      ;\n    ON DBLCLICK ( EditFl( .F., invoice-&gt;file ), _Lbx( oLbx2 ) ) ;\n    ON CHANGE ( nShare := invoice-&gt;flper, aGet[03]:Refresh() ) ;\n    OF oDlg\n\n  REDEFINE BUTTON ID 200     OF oDlg   ACTION ( EditFl( .F., invoice-&gt;file ), _Lbx( oLbx2 ) )\n  REDEFINE BUTTON ID 201     OF oDlg   ACTION _StmPrt( oLbx, nFlParty, invoice-&gt;( recno() ) )\n  REDEFINE BUTTON ID 202     OF oDlg   ACTION (lQuit := .T., oDlg:End())\n\n  ACTIVATE DIALOG oDlg CENTERED','',0,'','3cpmhzws',1,0,'',234,0,0),(46165,9573,3,303,0,'72.220.181.80',1200182123,1,0,1,1,1,0,'','','Darrell,\n\nREDEFINE BUTTON ID 200 OF oDlg ACTION ( EditFl( .F., invoice-&gt;file ), _Lbx( oLbx2 ) ) \nREDEFINE BUTTON ID 201 OF oDlg ACTION _StmPrt( oLbx, nFlParty, invoice-&gt;( recno() ) ) \nREDEFINE BUTTON ID 202 OF oDlg ACTION (lQuit := .T., oDlg:End()) \n\nCan you post the EditFl() and _StmPrt() functions?\n\nDoes the ID 202 (quit) button also require two clicks?\n\nRegards,\nJames','',0,'','2l476kyq',1,0,'',303,0,0),(46166,9574,20,49,0,'62.13.172.68',1200182332,1,0,1,1,1,1,'','','ehi ! \nma non si puo\' mai scherzare con te ?\nAbbi fiducia !\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\n\n\n\nP.S.\n <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','t4p22b69',1,0,'',49,0,0),(46167,9548,3,49,0,'62.13.172.68',1200182411,1,0,1,1,1,1,'','','Wich is the specific project ?\nCan you explain me please ?','',0,'','1fv76knd',1,0,'',49,0,0),(46168,9512,3,51,0,'80.122.88.242',1200182741,1,0,1,1,1,0,'','','Hello NageswaraRao,\n\nthere is still one problem. If I drop the record then the row where I drop is highlighted but the dragged row is one before. Maybe you have a solution for that too.\nBest regards,\nOtto','',0,'','3p7l72f0',1,0,'',51,0,0),(46169,9573,3,234,0,'75.34.217.174',1200182993,1,0,1,1,1,1,'','','Hi James,\n\nYes, all buttons require two clicks. I placed Msginfo() at the beginning of each function and to make sure I had to click it twice. I do not think it is a problem with editfl() or _stmprt().\n\nThank you,','',0,'','1j4e6x8p',1,0,'',234,0,0),(46170,9573,3,303,0,'72.220.181.80',1200183413,1,0,1,1,1,0,'','','If you comment out all the REDEFINEs except the buttons, do they still require two clicks?\n\nJames','',0,'','2f3gxapd',1,0,'',303,0,0),(46171,9573,3,234,0,'75.34.217.174',1200185107,1,0,1,1,1,1,'','','James,\n\nThank you for your advice. I found the problem, it was a problem the valid function. I have corrected and it is working now. Thank you for opening up my eyes','',0,'','1deueo0a',1,0,'',234,0,0),(46172,9578,6,960,0,'84.125.196.99',1200185614,1,0,1,1,1,0,'','','Master, \ndeduzco, por tanto, que si una PDA es un PC más con acceso a la RED mediante wifi, podría desde la PDA hacer un acceso directo mediante unidad de red al PC-Servidor donde tengo ubicado el programa y listo el problema.... ¿no?\n\nMil gracias de nuevo.\nLORENZO','',0,'','2uqlcafa',1,0,'',960,0,0),(46173,9548,3,34,0,'68.5.217.82',1200186143,1,0,1,1,1,1,'','Project','I sent you a screen shot by email of the completed work ... for now\nI also explained the various elements.\n\nIt is an appointment scheduler for vehicle services.  It includes the following:\n  + Scheduling an appointment for any day and/or time and varied intervals\n  +  Attaching a vehicle, and client to the appointment\n  + Creating and Attaching an estimate, which includes parts and labor ( in detail ) to the appointment\n  +  Attaching notes to the appointment\n  + Assigning the appointment to a specific work area \n  + Permitting reoccuring appointments ( auto scheduling )\n  + The ability to move appointments\n  + Printing of the schedule\n  + A Gant chart for day, and one for the week, which shows work areas and the times assigned\n  + The ability to select a date on a calendar and instantly see all the appointments for that day, and the detail\n   + Additional notes capability\n\nThis scheduler interfaces with the workorder development screen.  By starting a workorder, pressing the Appointment button, you see a list of pending appointments.  Select the one you want, and it automatically adds the client, vehicle, parts, labor, and notes to the newly created workorder ... on button select !\n\nIt all works perfectly.  I had a defined space in which to create the date selection capability.  It was working fine with DTPicker but I wanted to show all of the calendar ( for the month ) for single key press changes of the viewed date.  WIth DTPICKER it takes two keystrokes, and my clients don\'t like even one extra keystrokes.\n\nI had to get this done so I could ship software to my clients.  This is only one very small part of the application ... perhaps 1% of the total project.\n\nI may soon purchase a control that gives me more flexibility.  For example, C5 ( mentioned previously by a contributor ) will supposedly allow me to change the display of all dates on the calendar where an appointment may be scheduled.  Its not necessary, but it is nice.  The Codejock controls are very powerful, but they are clearly an Outlook display and I\'m not yet sure if that will work properly in this situation.\n\nAnyway, my need was resolved last week with a modification of the existing FWH code, and when I move forward to enhance the look of this I would certainly find it wise to use one of the commercial calendar controls available at the time.  However, it is also important to handle all of the various data components.  \n\nBTW ... programming is to meet the needs of my clients.  I could easily do this in a more window methodology with a popup appointment screen, but they want to see all the data as they scroll through the appointments, and the list of all the appointments when they select the date.\n\nI hope this isn\'t too wordy.','',0,'','2am9hga7',1,0,'',34,0,0),(46174,9573,3,303,0,'72.220.181.80',1200186274,1,0,1,1,1,0,'','','Darrell,\n\nGreat news.\n\nI commonly resort to the 50% method. I take out half the code, then check again. If it is stll there then I have eliminated half the code. Then I eliminate half of the remaining half, etc., until I isolate the problem. This is much faster the eliminating one line at a time.\n\nRegards,\nJames','',0,'','1jmg50cf',1,0,'',303,0,0),(46175,9512,3,868,0,'219.64.121.60',1200186404,1,0,1,1,1,1,'','','Thats how I made it earlier. Here is what you want now:\n[code:1nz35hd8]\nSTATIC FUNCTION DropOver&#40; uDropInfo, nRow, nCol, nFlags, oBrw &#41;\n\n	LOCAL nDragRec &#58;= uDropInfo\n	LOCAL nThisRec\n	LOCAL nThisKey\n	LOCAL nPrevKey &#58;= 0\n	LOCAL n\n\n       oBrw&#58;lButtonDown&#40; nRow, nCol, nFlags &#41;\n       oBrw&#58;lButtonUp&#40;   nRow, nCol, nFlags &#41;\n\n	nThisRec       &#58;= &#40;oBrw&#58;cAlias&#41;-&gt;&#40; RECNO&#40;&#41; &#41;\n	nThisKey       &#58;= &#40;oBrw&#58;cAlias&#41;-&gt;NUMMER\n\n	&#40; oBrw&#58;cAlias &#41;-&gt;&#40; dbSKIP&#40; -1 &#41; &#41;\n	IF !bof&#40;&#41;\n		nPrevKey		&#58;= &#40; oBrw&#58;cAlias &#41;-&gt;NUMMER\n	ENDIF\n	&#40; oBrw&#58;cAlias &#41;-&gt;&#40; dbGOTO&#40; nDragRec &#41; &#41;\n	&#40; oBrw&#58;cAlias &#41;-&gt;NUMMER	&#58;= &#40; nThisKey + nPrevKey &#41; / 2\n//	&#40; oBrw&#58;cAlias &#41;-&gt;&#40; dbGOTO&#40; nThisRec &#41; &#41;\n	oBrw&#58;Refresh&#40;&#41;\n\n	if &#40; n &#58;= &#40; oBrw&#58;cAlias &#41;-&gt;&#40; OrdKeyNo&#40;&#41; &#41; &#41; &lt; oBrw&#58;nRowSel\n		oBrw&#58;nRowSel	&#58;= n\n		oBrw&#58;Refresh&#40;&#41;\n	endif\n\nRETURN NIL\n[/code:1nz35hd8]','',0,'AIA=','1nz35hd8',1,0,'',868,0,0),(46176,9573,3,234,0,'75.34.217.174',1200186954,1,0,1,1,1,1,'','','James,\n\nThanks again. By the way, is there a function available to find out what user or computer has locked a specific record?','',0,'AIA=','2vy0cbax',1,0,'',234,0,0),(46177,9573,3,303,0,'72.220.181.80',1200187683,1,0,1,1,1,0,'','','Darrell,\n\n&gt;By the way, is there a function available to find out what user or computer has locked a specific record?\n\nNot to my knowledge.\n\nThere is a discussion about this here:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8407&amp;highlight=locked\">http://fivetechsoft.com/forums/viewtopi ... ght=locked</a><!-- m -->\n\nConsider using optimistic locking (edit, lock, save, unlock). This takes only a split second so it is unlikely that a locked record is going to be a problem.\n\nIf you are using pessimistic locking (lock, edit, save, unlock) then records can end up being locked for very long periods--even days when someone leaves work with a locked record.\n\nThere is another method that was used back in the DOS era (maybe still is). You add a field to each database for the username. When the record is locked the username is inserted into this field. That way you can read the username when the record is locked.\n\nJames\n\nJames','',0,'AIA=','2h1pxebc',1,0,'',303,0,0),(46178,9597,3,868,0,'219.64.121.60',1200191244,1,0,1,1,1,1,'','XBrowse. Bug in row painting','Mr Antonio\n\nIn some circumstances, when the user selects a browse with a mouse click on a row ( say 4th row ) the xbrowse paints the first row information on the  clicked row. Thereafter with arrow keys we can not go up but we can go down.  2nd row is painted on 5th row and so on.  Please see the screen shot for example:\n[url=http&#58;//imageshack&#46;us:2ymsiymz][img:2ymsiymz]http&#58;//img210&#46;imageshack&#46;us/img210/3655/xbrut5&#46;png[/img:2ymsiymz][/url:2ymsiymz]\nThis is observed occasionally several times, but I could not reproduce it earlier. Now I have reproduced it in one case and give the code below. This code uses c:\\fwh\\samples\\customer.dbf.  The code creates necessary indexes and shows parent child scoped browses. The child table is related to the parent table with ordSetRelation. I also provided an option to choose either txbtowse or twbrowse.  It can be seen the TWBrowse ( also TCBrowse) works perectly, and the problem is only with TXBrowse.\n [code:2ymsiymz]\n#include \'fivewin&#46;ch\'\n#include \'xbrowse&#46;ch\'\n\n#define ORDREL\n\nREQUEST DBFCDX\n\nfunction main&#40;&#41;\n\n	OpenData&#40;&#41;\n	if alert&#40; \'Choose Browse\', &#123; \'XBrowse\', \'WBrowse\' &#125; &#41; == 1\n   	testxbrw&#40;&#41;\n   else\n   	testwbrw&#40;&#41;\n   endif\n	close data\n\nreturn nil\n\nfunction testxbrw\n\nlocal odlg, obrwSt, oBrw, ocol\n\n\n	define dialog odlg size 800,340 pixel title \'TXBROWSE\'\n\n	@ 15,100 say \'XBROWSE CHILD TABLE\' size 290,10 pixel of odlg center\n\n	obrwSt &#58;= txbrowse&#40;&#41;&#58;new&#40;odlg&#41;\n	obrwSt&#58;ntop 		&#58;= 30\n	obrwSt&#58;nleft		&#58;= 10\n	obrwSt&#58;nright		&#58;= 80\n	obrwSt&#58;nbottom	   &#58;= 150\n	obrwSt&#58;calias 	&#58;= \'state\'\n\n	ocol				&#58;= obrwSt&#58;addcol&#40;&#41;\n	ocol&#58;cheader   &#58;= \'State\'\n	ocol&#58;bstrdata	&#58;= &#123;||state-&gt;State&#125;\n\n   oBrwSt&#58;SetRDD&#40;&#41;\n	obrwSt&#58;createfromcode&#40;&#41;\n\n\n	obrw				&#58;= txbrowse&#40;&#41;&#58;new&#40;odlg&#41;\n	obrw&#58;ntop 		&#58;= 30\n	obrw&#58;nleft		&#58;= 100\n	obrw&#58;nright		&#58;= 390\n	obrw&#58;nbottom	&#58;= 150\n	obrw&#58;calias 	&#58;= \'cust\'\n\n	ocol				&#58;= obrw&#58;addcol&#40;&#41;\n	ocol&#58;cheader   &#58;= \'No\'\n	ocol&#58;bstrdata	&#58;= &#123;||str&#40; cust-&gt;&#40;ordkeyno&#40;&#41;&#41;,4&#41;&#125;\n\n\n	ocol				&#58;= obrw&#58;addcol&#40;&#41;\n	ocol&#58;cheader   &#58;= \'First\'\n	ocol&#58;bstrdata	&#58;= &#123;||cust-&gt;first&#125;\n\n	ocol				&#58;= obrw&#58;addcol&#40;&#41;\n	ocol&#58;cheader   &#58;= \'Last\'\n	ocol&#58;bstrdata	&#58;= &#123;||cust-&gt;last&#125;\n\n	ocol				&#58;= obrw&#58;addcol&#40;&#41;\n	ocol&#58;cheader   &#58;= \'City\'\n	ocol&#58;bstrdata	&#58;= &#123;||cust-&gt;City&#125;\n\n\n	obrw&#58;setRDD&#40;&#41;\n	obrw&#58;CreateFromCode&#40;&#41;\n\n\n	@ 160,100 SAY eval&#40; obrw&#58;bKeyNo &#41; picture \'9999\' size 40,10 pixel of odlg right update\n	@ 160,160 SAY eval&#40; obrw&#58;bKeyCount &#41; picture \'9999\' size 40,10 pixel of odlg right update\n\n	oBrwSt&#58;bChange	&#58;= &#123;||RowChange&#40;oBrwSt, oBrw&#41;&#125;\n	oBrw&#58;bChange   &#58;= &#123;||oDlg&#58;update&#40;&#41; &#125;\n\n	activate dialog odlg centered ;\n		on init oBrwSt&#58;SetFocus&#40;&#41;\n\nreturn nil\n\n\nfunction testwbrw\n\nlocal odlg, obrwSt, oBrw, ocol\n\n\n	define dialog odlg size 800,340 pixel title \'TWBROWSE\'\n\n	@ 15,100 say \'XBROWSE CHILD TABLE\' size 290,10 pixel of odlg center\n\n	@ 30,10 LISTBOX oBrwSt ;\n		FIELDS state-&gt;state ;\n		HEADERS \'State\' ;\n		SIZE 50,120 PIXEL OF oDlg ;\n		ALIAS \'STATE\'\n\n	@ 30,100 LISTBOX oBrw ;\n		FIELDS str&#40;cust-&gt;&#40;Ordkeyno&#40;&#41;&#41;,4&#41;, cust-&gt;first, cust-&gt;last, cust-&gt;city ;\n		HEADERS \'No\', \'First\', \'Last\', \'City\' ;\n		SIZE 290,120 PIXEL OF odlg ;\n		ALIAS \'CUST\'\n\n	obrw&#58;bLogicLen	&#58;= &#123;||cust-&gt;&#40;ordkeycount&#40;&#41;&#41;&#125;\n\n//	@ 160,100 SAY eval&#40; obrw&#58;bKeyNo &#41; picture \'9999\' size 40,10 pixel of odlg right update\n	@ 160,160 SAY eval&#40; obrw&#58;blogiclen &#41; picture \'9999\' size 40,10 pixel of odlg right update\n\n\n	oBrwSt&#58;bChange	&#58;= &#123;||RowChange&#40;oBrwSt, oBrw&#41;&#125;\n	oBrw&#58;bChange   &#58;= &#123;||oDlg&#58;update&#40;&#41; &#125;\n\n	activate dialog odlg centered ;\n		on init oBrwSt&#58;SetFocus&#40;&#41;\n\nreturn nil\n\n\n\nstatic function RowChange&#40; oBrwSt, oBrw &#41;\n\n#ifndef ORDREL\n\n	cust-&gt;&#40;OrdScope&#40;0,state-&gt;state&#41;&#41;\n	cust-&gt;&#40;ordscope&#40;1,state-&gt;state&#41;&#41;\n\n#endif\n\n	cust-&gt;&#40;dbgotop&#40;&#41;&#41;\n	oBrw&#58;gotop&#40;&#41;\n	oBrw&#58;Refresh&#40;&#46;t&#46;&#41;\n\n	oBrw&#58;oWnd&#58;update&#40;&#41;\n\nreturn nil\n\n\nstatic function OpenData\n\nfield state, city, first\n\nlocal cfile	&#58;= \'\\fwh\\samples\\customer\'\n\n	ferase&#40; cfile + \'&#46;cdx\' &#41;\n	use &#40;cfile&#41; exclusive via \'DBFCDX\'\n	index on state tag state unique\n	index on state + city + first tag city\n	use\n\n	use &#40;cfile&#41; new alias state shared via \'DBFCDX\'\n	set order to tag state\n	go top\n\n	use &#40;cfile&#41; new alias cust shared via \'DBFCDX\'\n	set order to tag city\n	go top\n\n#ifdef ORDREL\n//	state-&gt;&#40; ordsetrelation&#40; \'cust\', &#123;||state&#125;, \'state\' &#41; &#41;\n//      state-&gt;&#40; dbgotop&#40;&#41; &#41;\n//      scoped relation can be set either way\n\n	state-&gt;&#40; dbsetrelation&#40; \'cust\', &#123; || State &#125;, \'State\', &#46;t&#46; &#41; &#41;\n	state-&gt;&#40; dbgotop&#40;&#41; &#41;\n\n#else\n\n	cust-&gt;&#40; ordscope&#40; 0, state-&gt;state &#41; &#41;\n	cust-&gt;&#40; ordscope&#40; 1, state-&gt;state &#41; &#41;\n	cust-&gt;&#40; dbgotop&#40;&#41; &#41;\n\n#endif\n\nreturn nil\n[/code:2ymsiymz]\n\nThis program can be compiled and run straight away. No setup is required as long as the customer.dbf exists in \\fwh\\samples folder.\n\nOn the left parent browse of States is presented and on the right child browse of customers in that State is presented. The problem comes when a customer (other than the first line) is selected with a mouse click in the child browse. WBrowse works perfectly but not XBrowse. \nNote: XBrowse works well when scope is set on child table on bhchange of the parent browse, but fails with scoped relation. The problem is NOT with scoped relation, because WBrowse works well with scoped relations also. Same is the problem with DBFCDX and also ADS. Therefore the problem is with XBrowse only.','',0,'GIA=','2ymsiymz',1,0,'',868,0,0),(46179,9548,3,49,0,'62.13.172.68',1200192248,1,0,1,1,1,1,'','','ok I understand','',0,'GIA=','2oduy91j',1,0,'',49,0,0),(46180,9578,6,2,0,'87.218.146.63',1200194224,1,0,1,1,1,1,'','','Si, pero para acceder a las bases de datos, no al ejecutable que no funcionará en la PDA por usar una \"arquitectura\" distinta <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GIA=','3kmhew39',1,0,'',2,0,0),(46181,9597,3,2,0,'87.218.146.63',1200194862,1,0,1,1,1,1,'','','NageswaraRao,\n\nIn Class TWBrowse we had to implement a method UpStable() to get the right painting under certain circunstances. This method is not provided in Class TXBrowse. \n\nMaybe thats what we need to fix it. I appreciate your feedback testing it with XBrowse, thanks','',0,'GIA=','ijwnvkhq',1,0,'',2,0,0),(46182,9593,6,492,0,'189.147.68.124',1200194931,1,0,1,1,1,1,'','','Antonio :\n\nRealmente fue un descuido por parte mia, te comento :\n\nEstoy cambiando de Equipo por uno mas actualizado, asi que estuve instalando todas las utilerias y demas cosas para el desarrollo, pero tambien tenia algunas cosas en la Lap que estaba probando, entre ellas una version diferente de Borland, asi que cuando pense que ya tenia todo listo, no me percate que habia copiado la version diferente a la nueva Pc y cuando empece a tratar de generar las Apps, bueno ya sabes que paso  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nAsi que no fue nada mas que encamotarme con 2 Pcs y una Lap al mismo tiempo.\n\n\nSaludos','',0,'GIA=','bzbb2d8p',1,0,'',492,0,0),(46183,9593,6,492,0,'189.147.68.124',1200195123,1,0,1,1,1,1,'','','Jejeje\n\nPor cierto, esta nueva PC corre como DIABLOOOO !!!\n\nAsi que ya se me quemaban las habas por usarla.\n\n\n\nSaludos','',0,'GIA=','sk2ihv96',1,0,'',492,0,0),(46184,9597,3,868,0,'219.64.121.60',1200195133,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks. Can you kindly look into this ?  I faced this problem in some other circumstances also, but could not reproduce them.  It is happening mostly when we bring a browse to focus by clicking on some row in the browse. I checked the lbuttondown method and could not figure out any solution.','',0,'GIA=','34rzoypj',1,0,'',868,0,0),(46185,9597,3,868,0,'219.64.121.60',1200195239,1,0,1,1,1,1,'','','In this case what is also intriguing me is why it is working when I set scope top and scope bottom in the bchange method, but failing when it is related with ordsetscope.','',0,'GIA=','254kdpbv',1,0,'',868,0,0),(46186,9597,3,2,0,'87.218.146.63',1200197174,1,0,1,1,1,1,'','','NageswaraRao,\n\nPlease check in Class TWBrowse from what methods the Method UpStable() is called.\n\nProbably we have to implement it and call it in the same places from inside Class TXBrowse','',0,'GIA=','1dn6frhs',1,0,'',2,0,0),(46187,9597,3,868,0,'219.64.121.60',1200197209,1,0,1,1,1,1,'','','Mr Antonio\n\nI like to share with you some peculiar phenomenon I observed. Let me reproduce the relevant lines of code in lbuttondown method along with two debug lines of code I inserted:\n\n[code:35s10nyb]\nMETHOD LButtonDown&#40; nRow, nCol, nFlags &#41; CLASS TXBrowse\n  &lt; &#46;&#46;&#46; code &#46;&#46; &gt;\n     if nRowPos &gt; 0 &#46;or&#46; nColPos &gt; 0\n\n      if &#58;&#58;nMarqueeStyle == MARQSTYLE_HIGHLROWMS\n         if !GetKeyState&#40; VK_CONTROL &#41; &#46;and&#46; !GetKeyState&#40; VK_SHIFT &#41;\n            &#58;&#58;Select&#40; 0 &#41;\n         endif\n      endif\n      &#58;&#58;DrawLine&#40;&#41;\n      if nRowPos &gt; 0\n//msginfo&#40; str&#40;nrowpos&#41; + str&#40;&#58;&#58;nrowsel&#41; &#41; // for debug\nsysrefresh&#40;&#41;  // for debug\n\n         Eval&#40; &#58;&#58;bSkip, nRowPos - &#58;&#58;nRowSel &#41;\n         &#58;&#58;nRowSel &#58;= nRowPos\n         if &#58;&#58;bChange != nil\n            Eval&#40; &#58;&#58;bChange, Self &#41;\n         endif\n      endif\n      &lt; &#46;&#46;&#46; code &#46;&#46;&#46; &gt;\n      &#58;&#58;DrawLine&#40; &#46;t&#46; &#41;\n       &lt; &#46;&#46;&#46;code &#46;&#46; &gt;\n[/code:35s10nyb]\n1) When I uncomment the msginfo line above, it correctly shows the clicked row number and 1 as ::nrowsel.  After the msginfo, the browse behaves correctly.  Displays the clicked row correctly.\n2) If i comment msginfo line and uncomment SysRefresh(),  then also the clicked row is displayed correctly but the first row also remains highlighted','',0,'AIA=','35s10nyb',1,0,'',868,0,0),(46188,9597,3,868,0,'219.64.121.60',1200197373,1,0,1,1,1,1,'','','I shall check twbrowse, but meanwhile can you check the above posting?  I am not able to understand why is it happening so.','',0,'AIA=','1x8u3dk4',1,0,'',868,0,0),(46189,9597,3,2,0,'87.218.146.63',1200197451,1,0,1,1,1,1,'','','MsgInfo() and SysRefresh() produce similar results as MsgInfo() uses a built-in SysRefresh() alike code (Win API code).\n\nThe difference is that MsgInfo() generates a WM_PAINT msg to the underlaying window, meanwhile SysRefresh() doesn\'t','',0,'AIA=','1etx7fnv',1,0,'',2,0,0),(46190,9597,3,868,0,'219.64.121.60',1200197552,1,0,1,1,1,1,'','','Thanks. Paint method sets everything right. Now I understand.','',0,'AIA=','3bu1hzys',1,0,'',868,0,0),(46191,9590,3,666,0,'122.107.143.190',1200197638,1,0,1,1,1,0,'','','Antonio,\nRE.prg uses TTxtFile which, although I haven\'t used it, seems to assume each line is already terminated by CRLF. Wouldn\'t your suggestion only apply if the text file had no \"soft\" lines (which a normal paragraph would have)?\n\nCol','',0,'AIA=','15unrhhv',1,0,'',666,0,0),(46192,9590,3,2,0,'87.218.146.63',1200198068,1,0,1,1,1,1,'','','Colin,\n\n&gt; RE.prg uses TTxtFile\n\nThats an old version of samples\\RE.prg. The current RE.prg sample does not use TTxtFile and does it in a total different way:\n[code:eprh7760]\n      cTxtFile = MemoRead&#40; cRCFile &#41;\n      nFrom = 1\n\n      while nFrom &lt; Len&#40; cTxtFile &#41;\n         cLine = ExtractLine&#40; cTxtFile, @nFrom &#41;\n         &#46;&#46;&#46;\n         SysRefresh&#40;&#41;\n      end\n[/code:eprh7760]\nExtractLine() is a new FWH function','',0,'AIA=','eprh7760',1,0,'',2,0,0),(46193,9590,3,868,0,'219.64.121.60',1200198767,1,0,1,1,1,1,'','','If we know we are dealing with a text file containing fixed width lines \n[code:3uueha5a]\nfor nFrom &#58;= 1 to nSize step nLineWidth\n   cline &#58;= substr&#40; ctext, nfrom, nlinewidth &#41;\nnext\n\nto extract a particular line number &#58;\ncline &#58;= substr&#40; ctext, &#40; nlinenumber- 1 &#41; * nlinewidth + 1, nlinewidth &#41;\n[/code:3uueha5a]\n\nExtractline from FWH and the above code are enough to deal with text files containing variable length lines or fixed width lines.\n\nIf we like OOPS we can put the same code in a class.','',0,'AIA=','3uueha5a',1,0,'',868,0,0),(46194,9597,3,868,0,'219.64.121.60',1200201483,1,0,1,1,1,1,'','','Mr Antonio\n\n1) Upstable method of TWBrowse is used only in bAdd block.\n2) LButtonDown methods of both TWBrowse and TXBrowse seem to the same logically.\n\n3) BUT THE PROBLEM IS APPARENTLY SOLVED \nwhen I inntroduced SysRefresh() just above the first ::DrawLine() in the LButtonDown Method. ( Line No. 2174 in the source of FWH 8.01).\n\nI do not see any logic why this should work, but it is working. Can you think about it and explain why does it remedy the problem?','',0,'AIA=','1r6u9345',1,0,'',868,0,0),(46195,9597,3,2,0,'87.218.146.63',1200202478,1,0,1,1,1,1,'','','NageswaraRao, \n\nSysRefresh() allows to process pending Windows msgs so the proper processing order is done\n\nSome of the methods or functions called before DrawLine() were not  processed yet. SysRefresh() gave them priority','',0,'AIA=','3mmo2xdd',1,0,'',2,0,0),(46196,9597,3,868,0,'219.64.121.60',1200203202,1,0,1,1,1,1,'','','Mr Antonio\n\nDo you think the problem is solved?  I still feel uncomfortable because I could not see the real reason and found a solution for it.\n\nAnyway for the time being shall we insert Sysrefresh() as a fix in the code?','',0,'AIA=','3pmvkkhn',1,0,'',868,0,0),(46197,9541,6,9,0,'85.59.186.228',1200214759,1,0,1,1,1,1,'','','[quote=&quot;andresreyes_mzt&quot;:1wbls87r]Si he pensado en pasarla a Windows, espero y darme un poco de tiempo \n[/quote:1wbls87r]\n\nAndrés,\nHe bajado tu aplicación, la he probado y me parece estupenda. Si en algo puedo ayudar para pasarla a Windows, estoy a tu disposición, especialmente para ponerla en español o al menos, bilingüe (español/inglés).','',0,'gA==','1wbls87r',1,0,'',9,0,0),(46198,9512,3,51,0,'80.122.88.242',1200218864,1,0,1,1,1,0,'','','Hello NageswaraRao,\n\nIf the xBrowser is starting on the first page than it inserts and highlights one line before where you drop.\nIf you are on the second or higher page it works perfectly.\nMaybe you have some more ideas to solve this.\nThank you for your help.\n\nRegards,\nOtto','',0,'gA==','pubwzzvn',1,0,'',51,0,0),(46199,9512,3,868,0,'219.64.121.60',1200223831,1,0,1,1,1,1,'','','It has to be like that only.  Suppose you dreg 5th item and drop on 10th item. Now 5th item will become 9th item.  So the cursor has to move up to 9th row.','',0,'gA==','3ehewvzn',1,0,'',868,0,0),(46200,9597,3,9,0,'85.59.186.228',1200223836,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:2h6e2omi]Anyway for the time being shall we insert Sysrefresh() as a fix in the code?[/quote:2h6e2omi]\n\nAntonio,\n\nMay you confirm it is a FWH bug? In afirmative case, can you write what we must changing in xbrowse class ?','',0,'gA==','2h6e2omi',1,0,'',9,0,0),(46201,9597,3,868,0,'219.64.121.60',1200223992,1,0,1,1,1,1,'','','I think it is too early to say anything. In any case this does not give problem in many cases.\n\nMr Antonio will study the issue in detail and advise us suitably. Let is wait.','',0,'gA==','1iu0iq3u',1,0,'',868,0,0),(46202,9574,20,6,0,'82.54.221.67',1200224428,1,0,1,1,1,1,'','','Ah, era uno scherzo? Certo che si può scherzare, anzi si [b:qjhkkpbd]deve[/b:qjhkkpbd] scherzare, ma gli scherzi dovrebbero essere anche comprensibili. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'QA==','qjhkkpbd',1,0,'',6,0,0),(46203,9598,6,141,0,'200.88.94.3',1200239735,1,0,1,1,1,1,'','calculo en campo get numerico','Hola,\n\nCreo haber visto esto en algun sitio, pero....\n\nEn un get de una variable/campo numerico (con PICTURE \'999,999.99\'), ¿puedo colocar 2*4000 en vez de 8000?\n\nGracias anticipadas...','',0,'QA==','zd74o3mp',1,0,'',141,0,0),(46204,9512,3,51,0,'80.122.88.242',1200243347,1,0,1,1,1,0,'','','NageswaraRao, thank you very much.\nBest regards,\nOtto','',0,'QA==','2q6in7yy',1,0,'',51,0,0),(46205,9599,3,51,0,'80.122.88.242',1200246124,1,0,1,1,1,0,'','Spinner question','PageUp  is reducing Pagedown augmenting a value. Is this correct?','',0,'QA==','1h1oee37',1,0,'',51,0,0),(46206,9599,3,2,0,'87.218.146.135',1200250988,1,0,1,1,1,1,'','','Otto,\n\nYou can easily swap them if you want to. \n\nJust check the class source code and exchange their values.','',0,'QA==','o080im20',1,0,'',2,0,0),(46207,9600,6,1055,0,'84.122.57.235',1200252350,1,0,1,1,1,0,'','FreeImage.Lib','Alguien ha probado a trabajar con FreeImage.Lib, según parece es una librería abierta, cualquiera puede utlizarla. El problema e que yo tengo Borlan C y está hecha para Microsoft C++.\n\nSi se pudiera incorporar a TIMAGE en lugar de la DLL corresponc¡diente se podrían hacer muchas más cosas, como añadir contraste o brillo a una foto, rotarla, redimensionarla, cambiarla de resolución y mil cosas más. Así como abrir o guardar imagenes de todo tipo de forma más práctica.','',0,'QA==','mimoh4jx',1,0,'',1055,0,0),(46208,9601,6,1055,0,'84.122.57.235',1200252434,1,0,1,1,1,0,'','Imagenes desde Resource.','Alguién sabe como cargar una imagen JPG, TIF, PNG, etc. desde Recursos.\n\nGracias de antemano.','',0,'QA==','u9kyzrw4',1,0,'',1055,0,0),(46209,9602,3,851,0,'212.160.69.29',1200253034,1,0,1,1,1,0,'','deactive the fist window','In my application I have defined a window oWnd ,\nnext I open new window oWnd1,  \nHow my I deactive the fist window (oWnd) ?','',0,'QA==','3p4ngt0l',1,0,'',851,0,0),(46210,9602,3,2,0,'87.218.146.63',1200256458,1,0,1,1,1,1,'','','oWnd:Disable()','',0,'QA==','hm39vblo',1,0,'',2,0,0),(46211,9600,6,1106,0,'190.64.169.49',1200257948,1,0,1,1,1,0,'','','Antolin:\n\nFWH ya trabaja con FreeImage.\n\nSaludos\n\nRuben Fernandez','',0,'QA==','18n950oj',1,0,'',1106,0,0),(46212,9603,6,75,0,'83.45.24.115',1200260009,1,0,1,1,1,0,'','VISOR LCD','ALGUIEN TIENE ALGUNA RUTINA PARA MANEJAR UN VISOR LCD DE LOS DE LOS TERMINALES PUNTO DE VENTA.\n\nSOLO SOY CAPAZ DE QUE FUNCIONE SI PREVIAMENTE LO CONFIGURO CON EL PROGRAMA QUE TRAE Y ESTO NO ES OPERATIVO. NECESITO PODER CONFIGURARLO DESDE MI PROPIO PROGRAMA.\n\nGRACIAS.','',0,'QA==','2xes0lz9',1,0,'',75,0,0),(46213,9604,3,1276,0,'201.36.251.47',1200262156,1,0,1,1,1,0,'','FWH and xHarbour','Hi Antonio Linares,\nWe saw the xHarbour recently.\nConclude the migration from Clipper 5.2e to xHarbour with PostgreSQL, but only character mode.\nNow, we want graphic interface too.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \nWhich the benefits of [b:2boy7vht]FiveWin Harbour [/b:2boy7vht]for us?\nWill accelerate the time of development with [b:2boy7vht]FWH[/b:2boy7vht]?\n\nVery thanks.\nAlexandre Pinheiro','',0,'QA==','2boy7vht',1,0,'',1276,0,0),(46214,9604,3,2,0,'87.218.146.63',1200264434,1,0,1,1,1,1,'','','Alexandre,\n\nFWH (FiveWin for Harbour/xharbour) is a very easy to use and very powerfull GUI library to build Windows applications using Harbour/xHarbour.\n\nSince 1993 we provide it and enhance it, and it is a robust product and very complete. Its based on the standard Windows API, it lets you use standard Windows resources files.\n\nWe recommend you to review some FiveWin introductories guides and also review the eval version from:\n<!-- m --><a class=\"postlink\" href=\"http://www.fivetechsoft.com/english/downloads.html\">http://www.fivetechsoft.com/english/downloads.html</a><!-- m -->','',0,'QA==','3t3bbg23',1,0,'',2,0,0),(46215,9605,3,868,0,'219.64.121.60',1200269993,1,0,1,1,1,1,'','TXBrowse nAt() and nColSel','Mr Antonio\n\nIn one of the recent revisions of TXBrowse, the new method nAt was introduced.\n\nUnder what circumstances oBrw:nAt() and oBrw:nColSel give different values? \n\nMethod nAt returns ::ColPos( ::SelectedCol() )\nMethod SelectedCol() returns ::ColAtPos( ::nColSel ) and in turn ColAtPos( ::nColSel ) returns ::aDisplay[ ::nColSel ]\nTherefore SelectedCol() returns ::aDisplay[ ::nColSel ]\nMethod ColPos( ::SelectedCol() ) appears to be equivalent to ColPos( ::aDisplay[ ::nColSel ] ) returning the position in ::aDisplay, which is again ::nColSel.\n\nFrom the above it appears that oBrw:nAt() always returns ::nColSel. If so where is the need for the method nAt() ?\n\nIf the intention is to have naming compatibility with TWBrowse and TCBrowse, nAt should have been named nColAct(). This helps easy migration from TWBrowse or TCBrowse to TXBrowse.\n\nDo I miss something?','',0,'','1semy0l4',1,0,'',868,0,0),(46216,9606,6,431,0,'190.142.51.7',1200270615,1,0,1,1,1,1,'','unicodeconvert','estoy intentando usar un prg que me facilito theFull para convertir de utf8 \na ANSI el cual baje de este link \n<!-- m --><a class=\"postlink\" href=\"http://kevincarmody.com/misc/unicodeconvert.prg\">http://kevincarmody.com/misc/unicodeconvert.prg</a><!-- m -->\n\ncData := U8ToUni( cTextUTF8, 1 ) /* Convertimos UTF-8 a ANSI */\n\nY al reves;\nUNITOU8( cTextAnsi )\n\neste prg usa una función ASCPOS()\nque no la tiene el unicodeconvert.prg \ndonde la puedo conseguir ?.\n\nGracias por la colaboración prestada.','',0,'','402dqjhi',1,0,'',431,0,0),(46217,9574,20,49,0,'62.13.172.68',1200270780,1,0,1,1,1,1,'','','scusa ma sei sicuro che io non sia capace di estrappolare un campo da un archivio ... se ce lo avessi quel dannato archivio ...tre anni fa lo avuto e adesso non ce l\'ho..per caso ce l\'hai un archivoo banche con codici abi e cab d\'italia : telo scritto anche sul nntp...\nmi manca anche l\'archivio dei comuni d\'italia aggiornato ma dove li trovo ?','',0,'','1htcm8f2',1,0,'',49,0,0),(46218,9512,3,49,0,'62.13.172.68',1200271230,1,0,1,1,1,1,'','','Otto,\ncan you create a small test of it and insert the sample on fwnips  website?','',0,'','144qh6gp',1,0,'',49,0,0),(46219,9607,6,53,0,'189.139.20.90',1200278201,1,0,1,1,1,1,'','Función para determinar la edad ?','Amigos:\n\nAlguien tiene desarrollada una función para determinar la edad en Años, meses y dias que quiera compartir ?\n\nSaludos','',0,'','3rqrrr4h',1,0,'',53,0,0),(46220,8893,3,9,0,'85.59.186.228',1200287383,1,0,1,1,1,0,'','','[quote=&quot;nageswaragunupudi&quot;:1yos98fn]My involvement with Oracle is not limited to just using ADO, but includes PL/SQL, making Oracle packages and interfacing them with ADO.[/quote:1yos98fn]\n\nNages,\n\nI would like to use Oracle PL/SQL with FWH. Can you showme an example of function or procedure with PL/SQL?\n\nRegards','',0,'gA==','1yos98fn',1,0,'',9,0,0),(46221,8893,3,868,0,'219.64.121.60',1200288888,1,0,1,1,1,1,'','','ADOX  works with Oracle too. But ADOX is slower than using native functions of Oracle.\n\nPLSQL is the language used for writing procedures and functions to be stored on Oracle Server.  They are like our procedures and functions, but written in PLSQL language understood by Oracle server. They are directly stored on the server as objects. Oracle can directly read them and execute them. Like our program modules, we can group several procedures and functions into Packages. \n\nFrom the client we can execute those functions or procedures through ADO\'s execute method of connection object and read the return values.\n\nMSSQL\'s language is T-SQL. ( Transact SQL). For MSSQL servers we write the procedures and functions in TSQL language. But there is no concept of packages here.\n\nADS server uses Streamline SQL.\n\nEvery RDMS provides for storing serverside procedures and functions on the server and their respective languages. Almost all these languages are similar with slighly different flavours.\n\nAdvantages and need for such serverside procedures are a bit beyond the scope of this post.','',0,'gA==','1pplcti1',1,0,'',868,0,0),(46222,9605,3,2,0,'87.218.146.63',1200293308,1,0,1,1,1,1,'','','NageswaraRao,\n\nnAt() was intruduced in October 2007 with the purpose to know the current array selected element, not to query a selected column, even if they provide the same value.','',0,'gA==','2dvu8c58',1,0,'',2,0,0),(46223,9411,18,24,0,'80.24.12.168',1200301372,1,0,1,1,1,1,'','','Prueba esto;\n\n::bKeyDown := { | nKey | IIF( nKey == VK_F8, ;\n                               ( eval( ::bAction ), 0 ) , 1 ) }\n\nEs decir, si tu realizas la accion, devuelve cero, en caso contrario,\ndebes de DEVOLVER DIFERENTE DE CERO, un 1 por ejemplo, para que\nse siga propagando el evento, y te trate las teclas que no tratas tu mismo.\n\nDe todas maneras te aconsejo que QUITES eso codigo del codeblock y lo envies a una funcion \n\n[code:2qa3smyp]\no&#58;bKeyDown &#58;= &#123; |nkey| MyKey&#40; nKey &#41; &#125;\n\nSTATIC FUNCTION MyKey&#40; nKey &#41;\n\n  do case \n      case nKey == VK_F3\n             Func1&#40;&#41;\n             return 0\n  endcase\n\nreturn 1\n[/code:2qa3smyp]','',0,'AIA=','2qa3smyp',1,0,'',24,0,0),(46224,9606,6,24,0,'80.24.12.168',1200301717,1,0,1,1,1,1,'','Re: unicodeconvert','[quote=&quot;mag071&quot;:3nstwidp]estoy intentando usar un prg que me facilito theFull para convertir de utf8 \na ANSI el cual baje de este link \n<!-- m --><a class=\"postlink\" href=\"http://kevincarmody.com/misc/unicodeconvert.prg\">http://kevincarmody.com/misc/unicodeconvert.prg</a><!-- m -->\n\ncData := U8ToUni( cTextUTF8, 1 ) /* Convertimos UTF-8 a ANSI */\n\nY al reves;\nUNITOU8( cTextAnsi )\n\neste prg usa una función ASCPOS()\nque no la tiene el unicodeconvert.prg \ndonde la puedo conseguir ?.\n\nGracias por la colaboración prestada.[/quote:3nstwidp]\nCreo que es una funcion de las CTTOOLS.\nEnlaza la libreria CT de Harbour, y ya esta.','',0,'gA==','3nstwidp',1,0,'',24,0,0),(46225,9566,3,448,0,'81.84.144.40',1200302210,1,0,1,1,1,0,'','','Enrico,\n\nCode is basiclly the same. \n\nDoesn\'t work for me. \n\nIf I save a image loaded from clipboard it save the file with o bytes. Otherwise  it works ok.\n\nIm using FWH March 2006. What yours ?\n\nAntonio','',0,'gA==','1bikgmy1',1,0,'',448,0,0),(46226,9566,3,6,0,'87.20.218.51',1200303947,1,0,1,1,1,1,'','','I\'m using the latest FWH (Jan 2008).\n\nEMG','',0,'gA==','rig942tz',1,0,'',6,0,0),(46227,9574,20,6,0,'87.20.218.51',1200304219,1,0,1,1,1,1,'','','Ma non avevi detto che era uno scherzo? Scusa, rileggi quello che hai scritto:\n\n[quote:3fsq9qk0]io avrei per caso in un archivio i codici abi e cab delle banche \nindolore potrei andarli a cercare li che dici ?[/quote:3fsq9qk0]\n\nSecondo te si capisce qualcosa? In ogni caso no, non ho l\'archivio che cerchi.\n\nEMG','',0,'gA==','3fsq9qk0',1,0,'',6,0,0),(46228,9607,6,1236,0,'201.47.54.216',1200305459,1,0,1,1,1,0,'','','Esta função retorna a idade. \n\n*****************************************\nstatic function RetIdade(dNasc)\n*****************************************\nlocal a1,a2,a3,idade\na1:=year(date())-1\na2:=year(nasc)\na3:=ctod(strzero(day(nasc),2)+\"/\"+strzero(month(nasc),2)+\"/\"+strzero(year(date()),4))\nidade:=(a1-a2)\nif a3&lt;=date()\n   idade++\nendif\nreturn(idade)\n\nEspero ter ajudado.','',0,'gA==','70wncwk4',1,0,'',1236,0,0),(46229,9608,3,29,0,'88.149.161.186',1200307508,1,0,1,1,1,1,'','Folder and SetFocus()','Hi to all,\nI have a problem with the focus control sequence on a Folder.\n\nSee this image sample at <!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/image1.png\">www.softwarexp.co.uk/beta/image1.png</a><!-- w -->\n\nI have set with WorkShop the focus sequence from the first control to the last control but when the last combobox (Detraibilità fiscale) lost the focus then the focus go to the \"OK\" button instead of the \"Importo\" GET control.\n\nI also tried to put an oCbx:bLostFocus={||oGet:SetFocus()} but unsuccesfully.\n\nAny ideas appreciates. Thanks.\n\nBest Regards,\n\nMarco','',0,'gA==','1hzgmpz6',1,0,'',29,0,0),(46230,9608,3,6,0,'87.20.218.51',1200308634,1,0,1,1,1,1,'','Re: Folder and SetFocus()','Please show a reduced and self-contained sample of the problem.\n\nEMG','',0,'gA==','1c23j6su',1,0,'',6,0,0),(46231,9609,3,106,0,'85.34.123.173',1200308665,1,0,1,1,1,1,'','wbrowse scopes...','wbrowse (el original de FW) en un dialogo dentro de un folder en determinadas situaciones que explicaré a continuación, me quita los scopes.\n\nAbro el dialogo y muestro los datos con el scope sin problemas, me muevo con la rueda del mouse arriba y abajo, con las teclas, sin problemas.\nCuando pongo una ventana adelante y luego me muevo con la rueda del mouse me doy cuenta que me quitó el scope. O cuando hago click para redimensionar la columna y luego me muevo con la rueda del mouse el scope no está mas definido, y no depende de mis funciones, visto que no quito el scope en ningun momento (solo cuando cierro el dialogo).\n\npuse este codigo para cuando pierde el focus para resolver el asunto\n\n[code:2iwwnwhq]\n          oLBXPrzAlt&#58;bGotFocus &#58;= &#123;|| prz_alt-&gt;&#40; ordSetFocus&#40;4&#41; &#41;,;\n                                      prz_alt-&gt;&#40; ordScope&#40; TOPSCOPE, cCodCpc &#41; &#41;,;\n                                      prz_alt-&gt;&#40; ordScope&#40; BOTTOMSCOPE, cCodCpc &#41; &#41;,;\n                                      prz_alt-&gt;&#40; dbGoTop&#40;&#41; &#41;  &#125;\n[/code:2iwwnwhq]\n\npero me es util solo cuando pierde el focus y luego lo retoma, no cuando redimensiono la columna y luego me muevo con la ruedita del mouse...\n\n\nA alguien le pasa?\n\nBuscando en la wbrowse no veo en ninguna parte que elimine el scope, asi que estará en algunas de las funciones en C, que no las entiendo...\n\nSaludos','',0,'AIA=','2iwwnwhq',1,0,'',106,0,0),(46232,9609,3,106,0,'85.34.123.173',1200308744,1,0,1,1,1,1,'','','Sorry... wrong language...','',0,'AIA=','11jffhsc',1,0,'',106,0,0),(46233,9610,6,106,0,'85.34.123.173',1200308770,1,0,1,1,1,1,'','wbrowse scopes...','wbrowse (el original de FW) en un dialogo dentro de un folder en determinadas situaciones que explicaré a continuación, me quita los scopes.\n\nAbro el dialogo y muestro los datos con el scope sin problemas, me muevo con la rueda del mouse arriba y abajo, con las teclas, sin problemas.\nCuando pongo una ventana adelante y luego me muevo con la rueda del mouse me doy cuenta que me quitó el scope. O cuando hago click para redimensionar la columna y luego me muevo con la rueda del mouse el scope no está mas definido, y no depende de mis funciones, visto que no quito el scope en ningun momento (solo cuando cierro el dialogo).\n\npuse este codigo para cuando pierde el focus para resolver el asunto\n\nCódigo:\n\n          oLBXPrzAlt:bGotFocus := {|| prz_alt-&gt;( ordSetFocus(4) ),;\n                                      prz_alt-&gt;( ordScope( TOPSCOPE, cCodCpc ) ),;\n                                      prz_alt-&gt;( ordScope( BOTTOMSCOPE, cCodCpc ) ),;\n                                      prz_alt-&gt;( dbGoTop() )  }\n\n\npero me es util solo cuando pierde el focus y luego lo retoma, no cuando redimensiono la columna y luego me muevo con la ruedita del mouse...\n\n\nA alguien le pasa?\n\nBuscando en la wbrowse no veo en ninguna parte que elimine el scope, asi que estará en algunas de las funciones en C, que no las entiendo...\n\nSaludos','',0,'AIA=','2nddheec',1,0,'',106,0,0),(46234,9604,3,1276,0,'189.12.83.187',1200311443,1,0,1,1,1,0,'','More questions','Antonio,\n\nThanks.\nMy questions remain. \nI download FW eval 1.9.2 version, but not run ok.  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nCan I send a private e-mail in portuguese to you?\n\nBest regards.\n\nAlexandre Pinheiro\nBrasil','',0,'AIA=','22awww97',1,0,'',1276,0,0),(46235,9604,3,2,0,'87.218.146.63',1200311799,1,0,1,1,1,1,'','','Alexandre,\n\nThe demo version is for Clipper only.\n\nYes, you can email me','',0,'AIA=','vt5nci0u',1,0,'',2,0,0),(46236,9611,3,247,0,'83.171.242.103',1200316453,1,0,1,1,1,0,'','OrdKey CDX-NTX','Try this \n\n[code:unsiqg6z]#include &quot;fivewin&#46;ch&quot;\n\nrequest DBFcdx\n\nFUNCTION MAIN&#40;&#41;\n\n\nSET DELETED On\n\nDBCREATE&#40; &quot;TMPTEST&quot;, &#123; &#123; &quot;TEST&quot;, &quot;C&quot;, 10, 0 &#125; &#125; &#41;\n\nUSE TMPTEST via &quot;DBFcdx&quot;\n\nINDEX ON FIELD -&gt; test TO TMPTEST \n\nAPPEND BLANK\n\nREPLACE FIELD -&gt; test WITH &quot;Test 1&quot;\n\nAPPEND BLANK\n\nREPLACE FIELD -&gt; test WITH &quot;Test 2&quot;\n\nDELETE\n\nAPPEND BLANK\n\nREPLACE FIELD -&gt; test WITH &quot;Test 2&quot;\n\nDELETE\n\nAPPEND BLANK\n\nREPLACE FIELD -&gt; test WITH &quot;Test 3&quot;\n\nGO TOP\n\ndo while !eof&#40;&#41;\n\n? RECNO&#40;&#41;, ORDKEYNO&#40;&#41;\n\nSKIP\n\nenddo\n\nCLOSE\n\n\nRETURN NIL\n\n[/code:unsiqg6z]\n\nThe result is 1 1 and 4 2 which is the right one because why delete 2 records \n\nNow try with ntx (remove REQUEST DBFcdx , remove via \"DBFcdx\")\n\nThe result is 1 1 and 4 4 which is the wrong . Using dbfntx the ordkeyno counts deleted records too.\n\nCan someone please give me a clue how i can use dbfntx and ordkeyno to work ?\n\nregards,\n\nA.S.K','',0,'AIA=','unsiqg6z',1,0,'',247,0,0),(46237,9611,3,868,0,'219.64.121.60',1200317952,1,0,1,1,1,1,'','','Please create the table, index and close.\nReopen and then do the test. Both RDDs count deleted records.','',0,'AIA=','k1gntpft',1,0,'',868,0,0),(46238,9612,3,75,0,'83.43.117.150',1200318278,1,0,1,1,1,0,'','POS DISPLAY','I need to program a POS DISPLAY. \nThe model I have comes with a CD with a setup program. \nThe problem is that only works properly if you configure it previously with this program. \nIf you try to use it without doing so then the display show strange characters. \nI don\'t know what to do. I think is a problem of setup that i\'m not able to solve with the manual.\n\nMODEL IS: DSP-420 LCD DISPLAY  S/N D42010767.\n\nThanks.','',0,'AIA=','22r5ccd0',1,0,'',75,0,0),(46239,9613,19,92,0,'213.96.45.6',1200318396,1,0,1,1,1,0,'','Formato fichero RTF.','Hola a todos,\n\nAlguién sabe si un fichero RTF puede tener marcadores (de la misma manera que lo hace por ejemplo el Microsoft Word, aunque no sean compatibles)?\n\nPretendo manipular ficheros RTF (no quiero Word) y me sería útil poder disponer de marcas \'ocultas\' en el redactado.\n\nSaludos\nCarlos G.','',0,'AIA=','3bdhdmbg',1,0,'',92,0,0),(46240,9611,3,247,0,'83.171.242.103',1200318818,1,0,1,1,1,0,'','','Yes but WHY? If i use set deleted on WHY does it counts the records? This is a BIG problem because i cannot move within my indexed records. Any solution?\n\nThank you \nA.S.K','',0,'AIA=','jgc6fdan',1,0,'',247,0,0),(46241,9411,18,106,0,'85.34.123.173',1200319172,1,0,1,1,1,1,'','','Tengo el mismo problema con la version de enero 2008, o sea, no ejecuta las teclas de funcione con el bKeyDown...\n\n\nTengo codigo de este tipo en todo el programa:\n\n[code:17rbkshz]\noG&#91;2&#93;&#58;bKeyDown   = &#123; | nKey, nFlags | IF&#40; nKey = VK_SCROLL &#46;OR&#46; nKey = VK_F2, OpzioneModuli&#40; oG&#91;2&#93; &#41;, &#41; &#125;\n[/code:17rbkshz]\n\nSerá posible que tenga que cambiar todo mi codigo para que me funcionen las teclas de funcion en los GET?\n\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->\n\n\nVuelvo a compilar con la version de diciembre 2007 que me funciona...','',0,'AIA=','17rbkshz',1,0,'',106,0,0),(46242,9614,6,1195,0,'190.38.55.184',1200319707,1,0,1,1,1,0,'','TGet: evalua dos veces el bKeyChar','Hola a Todos,\n\nTrabajo con FWH 7.12 y tengo el problema que cuando\nevaluo oGet:bKeyChar se ejecuta dos veces despues de evaluar ese get\n\ngracias a todos,\n\nsaludos,','',0,'AIA=','2em302w3',1,0,'',1195,0,0),(46243,8893,3,35,0,'167.7.140.254',1200319894,1,0,1,1,1,0,'','','Manuel\n\nTell me what client you used for your workstations .. I am running on Vista and could not get the Ora9i disks to load properly because of incompatability ..\n\nRick Lipkin','',0,'AIA=','3l4nge61',1,0,'',35,0,0),(46244,9611,3,868,0,'219.64.121.60',1200319947,1,0,1,1,1,1,'','','Create index with for !deleted() condition.','',0,'AIA=','9hfusvhx',1,0,'',868,0,0),(46245,8893,3,868,0,'219.64.121.60',1200320166,1,0,1,1,1,1,'','','Fortunately for me our clients are still using XP professional only. But could you make the client work on xp ?','',0,'AIA=','27eyjjqm',1,0,'',868,0,0),(46246,9572,6,12,0,'201.229.148.135',1200320858,1,0,1,1,1,1,'','','Hola Antonio,\n\nBaje los dos archivos y los instale tal cual informas, pero no veo donde esta el editor de recursos ?','',0,'AIA=','3e2k093v',1,0,'',12,0,0),(46247,9611,3,247,0,'83.171.242.103',1200321033,1,0,1,1,1,0,'','','Thank you  NageswaraRao\n\nregards,\nA.S.K','',0,'AIA=','c9bti7v3',1,0,'',247,0,0),(46249,9611,3,868,0,'219.64.121.60',1200322461,1,0,1,1,1,1,'','','There is another way if you are using DBFCDX only.\n\nCreate the index on normal way. But when you open the table, set filter to !deleted().  OrdKeyCount() and OrdKeyNo() respect filters and scopes. So you get only 2 keys.\n\nOn large tables if you find the filter to make the program slow, you can always create one more index tag \'INDEX ON DELETED() TAG DELETED\'\n\nAlso it is desirable not to create indexes with for clause, but create separate tag for deleted(), because filter optimizations use only indexes that do not have for clauses.\n\nWith DBFNTX only way is the create every index you need with FOR !deleted() clause.','',0,'AIA=','9b7a9e9x',1,0,'',868,0,0),(46250,9611,3,247,0,'83.171.242.103',1200322915,1,0,1,1,1,0,'','','[quote:i6uo90ai]On large tables if you find the filter to make the program slow, you can always create one more index tag \'INDEX ON DELETED() TAG DELETED\'\n[/quote:i6uo90ai]\n\nCan you explain it because i don\'t understand it\n\nThank you \nA.S.K','',0,'gA==','i6uo90ai',1,0,'',247,0,0),(46251,9616,3,448,0,'82.155.1.2',1200323935,1,0,1,1,1,0,'','FwH 8.01 xHarbour Builder Nov 2007 unresolved externals','Hi,\n\nHow can I  resolve these externals ?\n\n_hb_ObjHasMessage\n_hb_fun__ClsCntClasses\n_hb_VmPushEvalSym\n\nAntonio','',0,'gA==','3k5b741v',1,0,'',448,0,0),(46253,9411,18,24,0,'80.24.12.168',1200324577,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:45i36u9g]Tengo el mismo problema con la version de enero 2008, o sea, no ejecuta las teclas de funcione con el bKeyDown...\n\n\nTengo codigo de este tipo en todo el programa:\n\n[code:45i36u9g]\noG&#91;2&#93;&#58;bKeyDown   = &#123; | nKey, nFlags | IF&#40; nKey = VK_SCROLL &#46;OR&#46; nKey = VK_F2, OpzioneModuli&#40; oG&#91;2&#93; &#41;, &#41; &#125;\n[/code:45i36u9g]\n\nSerá posible que tenga que cambiar todo mi codigo para que me funcionen las teclas de funcion en los GET?\n\n <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->\n\n\nVuelvo a compilar con la version de diciembre 2007 que me funciona...[/quote:45i36u9g]\n\nHas puesto el devolver cero o uno ?\n[code:45i36u9g]\noG&#91;2&#93;&#58;bKeyDown   = &#123; | nKey, nFlags | IF&#40; nKey = VK_SCROLL &#46;OR&#46; nKey = VK_F2, OpzioneModuli&#40; oG&#91;2&#93; &#41;, 0 &#41;, 1 &#125;\n[/code:45i36u9g]','',0,'gIA=','45i36u9g',1,0,'',24,0,0),(46254,9607,6,53,0,'189.139.95.211',1200324596,1,0,1,1,1,1,'','','FWHISHOW:\n\nMuito obrigado pela ajuda.\n\nNecesito conocer la edad en Años, Meses y Dias y tu ejemplo solo\ndevuelve los Años.\n\nSaludos','',0,'gIA=','1qzb54p0',1,0,'',53,0,0),(46255,9411,18,106,0,'85.34.123.173',1200325460,1,0,1,1,1,1,'','','TheFull, \n\nNunca puse devolver 0 o 1, porqué debería ponerlo ahora?\n\nQue fue lo que cambió que no me enteré?\n\nTendría que devolver 0 o 1 en TODAS las llamadas a teclas de función en los GETS  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n\nSaludos','',0,'gIA=','qzw9r74n',1,0,'',106,0,0),(46256,9607,6,103,0,'189.12.219.53',1200325945,1,0,1,1,1,1,'','','Hola Armando,\n\nEsta función no es mia, pero creo que puede ayudarte:\n[code:3be06etn]\n//----------------------------------------------------------------------------//\nFunction Ano_Mes_Dia&#40;WDATA1,WDATA2&#41;\n// Cálculo da Idade\n//----------------------------------------------------------------------------//\nLocal WTOTANOS&#58;=WTOTMESES&#58;=WTOTDIAS&#58;=ctod&#40;space&#40;8&#41;&#41;\nLocal WDIAANT&#58;=WMESANT&#58;=WANOANT&#58;=WDATAANT&#58;=ctod&#40;space&#40;8&#41;&#41;\n\nIF VAL&#40; SUBS&#40;DTOC&#40;WDATA2&#41;,4,2&#41; + SUBS&#40;DTOC&#40;WDATA2&#41;,1,2&#41; &#41; &gt;= ;   \n   VAL&#40; SUBS&#40;DTOC&#40;WDATA1&#41;,4,2&#41; + SUBS&#40;DTOC&#40;WDATA1&#41;,1,2&#41; &#41;   \n   WTOTANOS&#58;= YEAR&#40;WDATA2&#41; - YEAR&#40;WDATA1&#41;   \n   WTOTMESES&#58;=MONTH&#40;WDATA2&#41; - ;              \n   MONTH&#40;WDATA1&#41; - ;              \n   IF&#40;DAY&#40;WDATA2&#41;&gt;=DAY&#40;WDATA1&#41;,0,1&#41;\nELSE   \n   WTOTANOS&#58;= &#40;YEAR&#40;WDATA2&#41; - YEAR&#40;WDATA1&#41;&#41; - 1   \n   WTOTMESES&#58;=&#40; MONTH&#40;WDATA2&#41;+12 &#41; - ;              \n   MONTH&#40;WDATA1&#41;        - ;              \n   IF&#40;DAY&#40;WDATA2&#41;&gt;=DAY&#40;WDATA1&#41;,0,1&#41;\nENDIF\nIF DAY&#40;WDATA2&#41; &gt;= DAY&#40;WDATA1&#41;   \n   WTOTDIAS&#58;=DAY&#40;WDATA2&#41;-DAY&#40;WDATA1&#41;\nELSE\n   IF MONTH&#40;WDATA2&#41;=1      \n      WMESANT&#58;= 12      \n      WANOANT&#58;= YEAR&#40;WDATA2&#41;-1   \n   ELSE      \n      WMESANT&#58;= MONTH&#40;WDATA2&#41;-1      \n      WANOANT&#58;= YEAR&#40;WDATA2&#41;   \n   ENDIF\n   DO CASE   \n   CASE DAY&#40;WDATA1&#41;=31      \n        DO CASE      \n        CASE WMESANT=2         \n             IF MOD&#40;WANOANT,4&#41;=0            \n                WDIAANT&#58;=29         \n             ELSE            \n                WDIAANT&#58;=28         \n             ENDIF      \n        CASE WMESANT=4 &#46;OR&#46; WMESANT=6 &#46;OR&#46; WMESANT=9 &#46;OR&#46; WMESANT=11         \n             WDIAANT&#58;=30      \n        OTHE         \n             WDIAANT&#58;=DAY&#40;WDATA1&#41;      \n        ENDCASE\n   CASE DAY&#40;WDATA1&#41;=30      \n        IF WMESANT=2         \n           IF MOD&#40;WANOANT,4&#41;=0            \n              WDIAANT&#58;=29         \n           ELSE            \n              WDIAANT&#58;=28         \n           ENDIF      \n        ELSE         \n           WDIAANT&#58;=DAY&#40;WDATA1&#41;      \n        ENDIF   \n   ENDCASE\n   WDATAANT&#58;=CTOD&#40; STRZERO&#40;WDIAANT,2,0&#41;+&quot;/&quot;+ ;                   \n   STRZERO&#40;WMESANT,2,0&#41;+&quot;/&quot;+ ;                   \n   STRZERO&#40;WANOANT,4,0&#41; &#41;   \n   WTOTDIAS&#58;= WDATA2 - WDATAANT\nENDIF\n\nRETURN &#40; ALLTRIM&#40;STR&#40;WTOTANOS,4,0&#41;&#41; +&quot; Ano&#40;s&#41;&quot;&#41;   + ;        \n        ALLTRIM&#40;STR&#40;WTOTMESES,2,0&#41;&#41;+&quot; MES&#40;es&#41; e  &quot;+ ;        \n        ALLTRIM&#40;STR&#40;WTOTDIAS,2,0&#41;&#41; +&quot; DIA&#40;as&#41;&quot; &#41;\n\n[/code:3be06etn]\n\nSaludos,','',0,'AIA=','3be06etn',1,0,'',103,0,0),(46257,3461,3,868,0,'219.64.121.60',1200326314,1,0,1,1,1,1,'','','Mr Antonio\n\nBringing back this topic discussed long time back.  We are not looking for ribbon bar control from FW now.  ViaCoral is providing for those who are interested in using their product.\n\nYou said in this discussion that we can get some similar functionality with windows ribbon bars and tool bars in folders. Yes, but we miss the beauty of our FWH 2007 button bar.\n\nInstead of toolbars we like to use office2007 buttonbars of FWH. If we can fit the buttonbars in folders and use it instead of single buttonbar we get some functionality similar to office2007 ribbon bar','',0,'AIA=','2sld63ni',1,0,'',868,0,0),(46258,9617,3,972,0,'78.21.224.104',1200326458,1,0,1,1,1,0,'','Focus bug/problem with Window','Hi,\n\nI need some help <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nI have this small test application (See code below) where a MDI window calls 2 other windows.\n\nPlease follow these steps:\n1) Start the test application.\n2) Click \"Menu\", than \"Open Window 1\"\n  -&gt; Standard window opens\n3) Click \"Menu\", than \"Open Window 2\"\n  -&gt; Second window opens, above Window1.\n  -&gt; Window2 has focus now\n4) Click on Window1\n  -&gt; Window1 gets focus\n5) Click in the GET field of Window2\n  -&gt; [b:gpv5d1fe]Window2 SHOULD get focus, but it does not[/b:gpv5d1fe]\n6) Click anywhere IN Window2\n  -&gt; [b:gpv5d1fe]Window2 SHOULD get focus, but it does not[/b:gpv5d1fe]\n7) Click on the title bar of Window2\n  -&gt; [b:gpv5d1fe]Window2 gets focus[/b:gpv5d1fe]\n\nWhat should I change to get [b:gpv5d1fe]5)[/b:gpv5d1fe] and [b:gpv5d1fe]6)[/b:gpv5d1fe] working.\nMeaning, I\'d like Window2 to get focus when the GET is activated or when the user clicks somewhere IN window2. Now Window2 ONLY gets focus if you click on its title bar.\n\nI have created a ZIP fie for you to download here:\n<!-- m --><a class=\"postlink\" href=\"http://upgrades.winfakt.com/TestFWH-FOCUS.zip\">http://upgrades.winfakt.com/TestFWH-FOCUS.zip</a><!-- m -->\n\n\nThis is the source code for Test.prg:\n[code:gpv5d1fe]\n#include &quot;fivewin&#46;ch&quot;\n\nSTATIC oWndH,oWnd1,oWnd2\n\nPROCEDURE Main\n\n   LOCAL oMenu\n   \n   MENU oMenu\n   \n     MENUITEM &quot;Menu&quot;\n      MENU\n     \n       MENUITEM &quot;Open Window 1&quot;;\n         ACTION OpenWindow1&#40;&#41;\n         \n       MENUITEM &quot;Open Window 2&quot;;\n        ACTION OpenWindow2&#40;&#41;\n        \n       SEPARATOR\n       \n       MENUITEM &quot;Quit&quot;;\n         ACTION __Quit&#40;&#41;\n         \n      ENDMENU\n     \n   ENDMENU\n   \n   DEFINE WINDOW oWndH MDI ;\n          MENU oMenu ;\n          FROM 0,0 TO 30,70 ;\n          \n   ACTIVATE WINDOW oWndH\n\nRETURN\n\n//-------------------------------------------------------------//\n\nPROCEDURE OpenWindow1&#40;&#41;\n\n   DEFINE WINDOW oWnd1;\n          FROM 1,1 TO 20,40\n          \n   @ 1,1 SAY &quot;Test&quot;\n   \n   ACTIVATE WINDOW oWnd1\n   \n   SetParent&#40; oWnd1&#58;hWnd, oWndH&#58;oWndClient&#58;hWnd &#41;\n   Aadd&#40;oWndH&#58;oWndClient&#58;aWnd,oWnd1&#41;\n\nRETURN\n\n\n//-------------------------------------------------------------//\n\nPROCEDURE OpenWindow2&#40;&#41;\n\n   LOCAL oDlg\n   LOCAL oGet1,cGet1&#58;=Space&#40;30&#41;\n   LOCAL oGet2,cGet2&#58;=Space&#40;30&#41;\n   \n   DEFINE WINDOW oWnd2 MDICHILD ;\n          OF oWndH ;\n          FROM 5,5 TO 15,55\n      \n     DEFINE DIALOG oDlg ;\n            NAME &quot;TEST&quot; OF oWnd2\n     \n     REDEFINE GET oGet1 ;\n              VAR cGet1 ;\n              ID 100 OF oDlg\n              \n     REDEFINE GET oGet2 ;\n              VAR cGet2 ;\n              ID 101 OF oDlg\n\n     ACTIVATE DIALOG oDlg;\n              NOMODAL;\n              VALID &#40;&#46;F&#46;&#41;\n   \n   ACTIVATE WINDOW oWnd2\n            \nRETURN\n\n//-------------------------------------------------------------//\n[/code:gpv5d1fe]\n\nThis is the code for test.rc:\n[code:gpv5d1fe]\nTEST DIALOG 0, 0, 300, 300\nSTYLE WS_CHILD\nFONT 8, &quot;MS Sans Serif&quot;\n&#123;\n EDITTEXT 100, 30, 25, 200, 12\n EDITTEXT 101, 30, 45, 200, 12\n&#125;\n[/code:gpv5d1fe]\n\nThank you guys!\n\nPatrick','',0,'QIA=','gpv5d1fe',1,0,'',972,0,0),(46259,9617,3,972,0,'78.21.224.104',1200326499,1,0,1,1,1,0,'','Re: Focus bug/problem with Window','BTW, tested with latest FWH <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nThanks!','',0,'QIA=','1qwr0ylr',1,0,'',972,0,0),(46260,9618,1,1275,0,'66.46.74.18',1200326755,1,0,1,1,1,0,'','Acrobat - ActiveX support','When I try to use the ActiveX (TActiveX) control protocot to call a pdf file, I always get a message telling me that Tactivex external procedure is not found...\n\nCan any one help me on this\n\nRegards\n\nMarc','',0,'QIA=','wq33wm4u',1,0,'',1275,0,0),(46261,3461,3,1193,0,'59.105.14.242',1200327561,1,0,1,1,1,0,'','','[quote=&quot;nageswaragunupudi&quot;:20y1ae5i]Mr Antonio\n\nBringing back this topic discussed long time back.  We are not looking for ribbon bar control from FW now.  ViaCoral is providing for those who are interested in using their product.\n\nYou said in this discussion that we can get some similar functionality with windows ribbon bars and tool bars in folders. Yes, but we miss the beauty of our FWH 2007 button bar.\n\nInstead of toolbars we like to use office2007 buttonbars of FWH. If we can fit the buttonbars in folders and use it instead of single buttonbar we get some functionality similar to office2007 ribbon bar[/quote:20y1ae5i]\n\nHi\n\nI test Codejock ActiveX very nice within FWH.\nLook below:\n1. MenuBar/ToolBar\n[url=http&#58;//img246&#46;imageshack&#46;us/my&#46;php?image=20080108191116gh0&#46;jpg:20y1ae5i][img:20y1ae5i]http&#58;//img246&#46;imageshack&#46;us/img246/5083/20080108191116gh0&#46;th&#46;jpg[/img:20y1ae5i][/url:20y1ae5i]\n\n2.RibbonBar\n[url=http&#58;//img186&#46;imageshack&#46;us/my&#46;php?image=20080115004343tc7&#46;jpg:20y1ae5i][img:20y1ae5i]http&#58;//img186&#46;imageshack&#46;us/img186/925/20080115004343tc7&#46;th&#46;jpg[/img:20y1ae5i][/url:20y1ae5i]\n\n\nRegards,\n\nRichard','',0,'mA==','20y1ae5i',1,1200329117,'',1193,1,0),(46262,9597,3,217,0,'200.159.120.34',1200327841,1,0,1,1,1,0,'','','Friends,\n\nI have the same problem in my xbrowses. I will test insert SysRefresh in that method and try. Any news I post here!\n\nThanks!!!\nMaurilio','',0,'mA==','36n772n9',1,0,'',217,0,0),(46263,9608,3,29,0,'88.149.162.240',1200327910,1,0,1,1,1,1,'','','Hi,\nI made a self-contained sample (with executable and source) that show the problem.\n\nYou can download it at:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/sample.zip\">www.softwarexp.co.uk/beta/sample.zip</a><!-- w -->\n\nto check the problem simply go to the \"Detraibilità fiscale\" combobox and then press the \"Tab\" key.\nYou will see that the focus will move on the \"Ok\" button instead the \"Importo\" get.\n\nI would like the focus goes to the get control after pressing a \"Tab\" or \"Enter\" key on the \"Detraibilità fiscale\" combobox.\n\nAny ideas ?\n\nThanks,\n\nMarco','',0,'mA==','lk9v87vb',1,0,'',29,0,0),(46264,3461,3,868,0,'219.64.121.60',1200327977,1,0,1,1,1,1,'','','Very good Mr. Richard.\n\nEven ViaCoral also makes it easy.\n\nBut I try to do as much as I can with FWH, without relying on 3rd party tools. With some effort the effect similar to your second picture can be created with FWH, if we can put FWH buttonbars in folders/','',0,'mA==','8d9arlcj',1,0,'',868,0,0),(46265,9597,3,868,0,'219.64.121.60',1200328246,1,0,1,1,1,1,'','','Mr Maurilio\n\n[quote:1tbycvvt]\nI will test insert SysRefresh in that method and try. Any news I post here! \n[/quote:1tbycvvt]\n\nPlease insert SysRefresh() before the first DrawLine() statement.  If it works let it work till Mr Antonio provides us with the correct solution.\n\nMeanwhile, can you please let us know under what circumsances are you getting this problem? I would like to recreate under what all circumstances this problem happens. That might help us to localize the problem.','',0,'gA==','1tbycvvt',1,0,'',868,0,0),(46266,9617,3,868,0,'219.64.121.60',1200328488,1,0,1,1,1,1,'','','If oWnd1 is created as mdichild of oWndH, but not as Standard Window and later set its parent, this works. We can switch focus between the two child windows by clicking anywhere in the windows ( but not on gets ).','',0,'gA==','fr1b7n5k',1,0,'',868,0,0),(46267,3461,3,1193,0,'59.105.14.242',1200328521,1,0,1,1,1,0,'','','[quote=&quot;nageswaragunupudi&quot;:1n7x2nft]Very good Mr. Richard.\n\nEven ViaCoral also makes it easy.\n\nBut I try to do as much as I can with FWH, without relying on 3rd party tools. With some effort the effect similar to your second picture can be created with FWH, if we can put FWH buttonbars in folders/[/quote:1n7x2nft]\n\nHi\n\n&gt;&gt;Even ViaCoral also makes it easy.\nyes, maybe !! But I think more time to do it.\n\nSecond picture really Ribbonbar UI. Look Left top Ball button and Tooltip style, of course. StatusBar same.\n\nI hope FWH can do it. But I think not easy, because viaopen have it.\n\nRegards,\n\nRichard','',0,'gA==','1n7x2nft',1,0,'',1193,0,0),(46268,9612,3,51,0,'80.122.88.242',1200328877,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9378&amp;highlight=opos\">http://fivetechsoft.com/forums/viewtopi ... light=opos</a><!-- m -->\n\nMaybe this could help?\nRegards,\nOtto','',0,'gA==','2bewgk4z',1,0,'',51,0,0),(46269,3461,3,34,0,'68.5.217.82',1200329109,1,0,1,1,1,1,'','Codejock','Otto,\n\nHave you contacted the support at Codejock directly ?  I have had some communication and they are very good about replying.  I\'ve looked at their library, but presently what I\'m doing is different.  However, their library seems to work well, and their support is very good about responding.\n\nTim','',0,'gA==','342xp5bs',1,0,'',34,0,0),(46270,3461,3,1193,0,'59.105.14.242',1200329368,1,0,1,1,1,0,'','Re: Codejock','[quote=&quot;TimStone&quot;:2u6f1i13]Otto,\n\nHave you contacted the support at Codejock directly ?  I have had some communication and they are very good about replying.  I\'ve looked at their library, but presently what I\'m doing is different.  However, their library seems to work well, and their support is very good about responding.\n\nTim[/quote:2u6f1i13]\n\nHi Tim,\n\nI remmember you asked about Codejock Calendar ActiveX.\nMy friend just test and got a little think way.\nWe can use DBF or any SQL database, but we need to make function to read/write data from database. If we can use Access or OutLook dat or xml, don\'t make any read/write function and become easy.\n\nRegards,\n\nRichard','',0,'gA==','2u6f1i13',1,0,'',1193,0,0),(46271,9619,23,308,0,'84.148.24.183',1200330106,1,0,1,1,1,0,'','Modzilla Firefox ActiveX','Hallo alle zusammen,\n\nhat jemand von Euch schon einmal Firefox anstatt IE als ActiveX Browser verwendet ?\n\nIch habe mit die ActiveX-Komponente installiert und verwende [b:34el8j7g]IWebBrowser[/b:34el8j7g], trotzdem bekomme ich einen xHarbour-GPF.\n\nMit Shell.Explorer funktioniert es (IE)\n\nHat jemand von Euch ein Beispiel ?\n\nGruss, Norbert','',0,'QA==','34el8j7g',1,0,'',308,0,0),(46272,9620,7,720,0,'80.36.244.134',1200330953,1,0,1,1,1,0,'','Hay alternativas al Active Sync...?','Hola a todos....\n\nAlguien sabe de alguna alternativa al Active Sync, ya que éste sólo permite realizar sincronizaciones con un sólo dispositivo PDA... He estado mirando pero no encuentro nada que me permita conectar más de una PDA a un sólo ordenador....\n\nSaludos y gracias.\n\nElías Torres.','',0,'QA==','1unpp5md',1,0,'',720,0,0),(46273,9620,7,106,0,'85.34.123.173',1200331235,1,0,1,1,1,1,'','','El ActiveSync te permite conectar cuantos PDA quieras. En mi pc he conectado 18 sin problemas. (uno a la vez, claro está)\nLa otra opción es conectarlo a traves del Wi-Fi (pero es mucho mas lento), la otra opción, pero creo que necesitas windows mobile 5 para arriba, (no hice muchas pruebas, pues uso windows ce) es usar un programa con el cual no necesitas activesync, y te crea una unidad logica tipo \"F:\" con todos los datos de tu PDA como si fuera una llave USB y se llama WM5torage...\n\nSaludos','',0,'QA==','e6eszcz6',1,0,'',106,0,0),(46274,9609,3,303,0,'72.220.181.80',1200332343,1,0,1,1,1,0,'','','Pedro,\n\nTry also setting bLogicLen:\n\noLBXPrzAlt:bLogicLen := prz_alt-&gt;( ordKeyCount() )\n\nAlso make sure you are specifying the alias when you build the browse.\n\nWhy are you setting the scope when getting focus? This is very unusual.\n\nRegards,\nJames','',0,'QA==','23bb0sg4',1,0,'',303,0,0),(46275,9536,6,1173,0,'190.6.194.126',1200332481,1,0,1,1,1,1,'','Aqui te envio el codigo completo del BUTTONBAR','[code:3cp61mlr] #include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n	LOCAL oDClave, oBrush, oGet&#91;2&#93;\n	MEMVAR oApp\n\n   PUBLIC oApp&#58;= TMyApp&#40;&#41;\n\n	oApp&#58;cUsuario  &#58;= SPACE&#40;10&#41; \n	oApp&#58;cClave    &#58;= SPACE&#40;6&#41;\n   oApp&#58;lLogID    &#58;= &#46;F&#46;\n	oApp&#58;Color2007 &#58;=  nRGB&#40; 191, 219, 255 &#41;\n   \n   DEFINE BRUSH  oBrush COLOR oApp&#58;Color2007\n	DEFINE DIALOG oDClave RESOURCE &quot;DLG_ACCESO&quot; HELPID 2 ;\n	       BRUSH  oBrush TRANSPARENT\n\n   REDEFINE GET oGet&#91;1&#93; VAR oApp&#58;cUsuario ID 2 OF oDClave UPDATE PICTURE &quot;@!&quot;\n   REDEFINE GET oGet&#91;2&#93; VAR oApp&#58;cClave   ID 3 OF oDClave UPDATE PICTURE &quot;@!&quot; \n\n   ACTIVATE DIALOG oDClave CENTERED ;\n            ON INIT AccToolBar&#40; oDClave &#41; VALID &#40; oBrush&#58;End&#40;&#41;, &#46;T&#46;&#41;\n\n	RETURN oApp&#58;lLogID\n\n\n/*\n	FUNCION ESTATICA AccToolBar&#40;&#41;\n	Agrega la barra de herramientas al dialogo\n*/\nSTATIC FUNCTION AccToolBar&#40; oDClave &#41;\n\n   LOCAL oBar\n\n   DEFINE BUTTONBAR oBar SIZE 35, 35 DIALOG oDClave 2007\n\n   DEFINE BUTTON OF oBar NAME &quot;Clave&quot;  TOOLTIP &quot;Validar datos&quot; ;\n      ACTION IF&#40; ValidaClave&#40;&#41;, oDClave&#58;End&#40;&#41;, &#46;T&#46; &#41;\n   DEFINE BUTTON OF oBar NAME &quot;Salir&quot;  TOOLTIP &quot;Salir&quot; ;\n      ACTION oDClave&#58;End&#40;&#41; GROUP\n\n   RETURN NIL\n\n/*\n	FUNCION ESTATICA ValidaClave&#40; cUsuario, cClave, oGet &#41;\n	Donde&#58;\n				- cUsuario 	ID del usuario\n				- cClave    Clave del usuario\n				- oGet   	Incluye el objeto de los Get´s\n\n	Funcion que valida los datos del Get de codigo de Gastos\n*/	\nSTATIC FUNCTION ValidaClave&#40;&#41;\n\n	LOCAL lValRet &#58;= &#46;F&#46;, cMy_User, cMy_Clave \n	\n	MEMVAR oApp, oData_Odbc\n\n	IF !EMPTY&#40; oApp&#58;cClave &#41;\n		lValRet &#58;= &#46;T&#46;\n	ELSE\n		lValRet &#58;= &#46;F&#46;\n      MsgStop&#40; &quot;Nombre de Usuario o clave no valida&quot; , &quot;Atención&quot; &#41;\n	ENDIF\n\n	oApp&#58;lLogID &#58;= lValRet\n\n	RETURN lValRet\n\n/*\n	CLASE TMyApp\n	Datos de configuracion del sistema que seran publicos\n*/\nCLASS TMyApp\n\n	DATA cUsuario     INIT &quot;SUPERVISOR&quot;\n   DATA cClave       INIT &quot;Max&quot;\n   DATA lLogID       INIT &#46;F&#46;\n\n   DATA Color2007    INIT 0\n\nENDCLASS\n	\n&amp;&amp;----------------------------------------------------------------------------&amp;&amp;\n\nPROCEDURE AppSys &amp;&amp; XBase++ requirement\n\nRETURN\n\n&amp;&amp;----------------------------------------------------------------------------&amp;&amp;\n[/code:3cp61mlr]\n\ny lo que es el archivo RC es el siguiente :\n\n[code:3cp61mlr] /* \ncontab&#46;rc\n\nproduced by Borland Resource Workshop\n*/\n1 24 &quot;WindowsXP&#46;Manifest&quot;\n\n#include &quot;&#46;&#46;\\&#46;&#46;\\fwh\\include\\winapi&#46;ch&quot;\n\nClave   BITMAP &quot;bitmaps/clave&#46;bmp&quot;\nSalir   BITMAP &quot;bitmaps/salir&#46;bmp&quot;\n\nDLG_ACCESO DIALOG 61, 100, 95, 72\nSTYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION\nCAPTION &quot;ID Usuario&quot;\nFONT 8, &quot;Tahoma&quot;\n&#123;\n EDITTEXT 2, 39, 36, 46, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 3, 39, 51, 46, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP\n LTEXT &quot;Usuario&quot;, -1, 10, 38, 28, 10\n LTEXT &quot;Clave&quot;, -1, 10, 53, 24, 10\n&#125;\n[/code:3cp61mlr]','',0,'AIA=','3cp61mlr',1,0,'',1173,0,0),(46276,9607,6,53,0,'189.139.95.211',1200332820,1,0,1,1,1,1,'','','Kleyber:\n\nCreo que eso es lo que necesito.\n\nMuchas gracias\n\nSaludos','',0,'AIA=','2dgrmyao',1,0,'',53,0,0),(46277,9608,3,6,0,'82.61.157.37',1200332997,1,0,1,1,1,1,'','','Just move the REDEFINE of oGet1 after oCbxN17.\n\nEMG','',0,'AIA=','go7sq6sp',1,0,'',6,0,0),(46278,9620,7,720,0,'80.36.244.134',1200333034,1,0,1,1,1,0,'','','Gracias Pedro por la respuesta. \n\nEfectivamente se pueden conectar varias pda a una sola máquina, pero cual es el problema??. Pues que para cada pda el active sync crea una carpeta distinta (y esta no se puede modificar) y lo que yo pretendo es que cada pda \'apunte\' a una única carpeta, con lo que todas las modificaciones vayan a parar a una sóla ruta en común...\n\n\nSaludos.\n\nElías Torres.','',0,'AIA=','1nozgq1b',1,0,'',720,0,0),(46279,9609,3,6,0,'82.61.157.37',1200333171,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:oo3jjjw8]Try also setting bLogicLen:\n\noLBXPrzAlt:bLogicLen := prz_alt-&gt;( ordKeyCount() )[/quote:oo3jjjw8]\n\nYou missed the codeblock. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','oo3jjjw8',1,0,'',6,0,0),(46280,9609,3,106,0,'85.34.123.173',1200333247,1,0,1,1,1,1,'','','James, \n\nIs very unusual... but the problem is that twbrowse lost the scopes. Not always, but when dialog lost the focus and press the mouse in the adjust column, the scope say good bye... not all the time...\n\nthis is my code for the browse:\n\n[code:39diu9y0]\n          oV&#58;cScopeCliente1 &#58;= cCodCpc\n          oV&#58;cScopeCliente2 &#58;= cCodCpc\n          prz_alt-&gt;&#40; ordSetFocus&#40;4&#41; &#41; // codice cliente\n          prz_alt-&gt;&#40; ordScope&#40; TOPSCOPE, oV&#58;cScopeCliente1 &#41; &#41;\n          prz_alt-&gt;&#40; ordScope&#40; BOTTOMSCOPE, oV&#58;cScopeCliente1 &#41; &#41;\n          prz_alt-&gt;&#40; dbGoTop&#40;&#41; &#41;\n\n          REDEFINE LISTBOX oLBXPrzAlt FIELDS IIF&#40; !EMPTY&#40; prz_alt-&gt;cat_cod &#41; &#46;OR&#46; !EMPTY&#40; prz_alt-&gt;codfor &#41;, IIF&#40; EMPTY&#40; prz_alt-&gt;codfor &#41;, NameCateg&#40; prz_alt-&gt;cat_cod &#41;, &#40; ALLTRIM&#40; NameCateg&#40; prz_alt-&gt;cat_cod &#41; &#41; + &quot;-&quot; + NameCLF&#40; prz_alt-&gt;codfor &#41; &#41; &#41;, NameArt&#40; prz_alt-&gt;cod_art &#41; &#41;,;\n                   TRANSFORM&#40; prz_alt-&gt;prezzo, &quot;@e 999,999&#46;99&quot;&#41;,;\n                   TRANSFORM&#40; prz_alt-&gt;sc1, &quot;@e 999&#46;99&quot;&#41;,;\n                   TRANSFORM&#40; prz_alt-&gt;sc2, &quot;@e 999&#46;99&quot;&#41;,;\n                   TRANSFORM&#40; prz_alt-&gt;sc3, &quot;@e 999&#46;99&quot;&#41;,;\n                   TRANSFORM&#40; prz_alt-&gt;netto, &quot;@e 999,999&#46;99&quot;&#41;,;\n                   TRANSFORM&#40; prz_alt-&gt;data, &quot;@d&quot; &#41;;\n                   ALIAS &quot;prz_alt&quot;;\n                   HEADERS &quot;Articolo/Categoria/Forn&#46;&quot;, &quot;Prezzo&quot;, &quot;SC1&quot;, &quot;SC2&quot;, &quot;SC3&quot;, &quot;Netto&quot;, &quot;Data&quot;;\n                   ON LEFT DBLCLICK NewPrzAlt&#40; oLBXPrzAlt, &#46;F&#46; &#41;;\n                   ID 201;\n                   OF oFld&#58;aDialogs&#91;4&#93;\n          // this is to solve &#40;temporaly&#41; the problem\n          oLBXPrzAlt&#58;bGotFocus &#58;= &#123;|| prz_alt-&gt;&#40; ordSetFocus&#40;4&#41; &#41;,;\n                                      prz_alt-&gt;&#40; ordScope&#40; TOPSCOPE, cCodCpc &#41; &#41;,;\n                                      prz_alt-&gt;&#40; ordScope&#40; BOTTOMSCOPE, cCodCpc &#41; &#41;,;\n                                      prz_alt-&gt;&#40; dbGoTop&#40;&#41; &#41;,;\n                                      oLBXPrzAlt&#58;refresh&#40;&#46;T&#46;&#41;  &#125;\n\n\n          // this is for test\n          oLBXPrzAlt&#58;bRClicked &#58;= &#123;||  msginfo&#40; PADR&#40; prz_alt-&gt;&#40; ordSetFocus&#40;&#41; &#41;, 20 &#41; + CRLF +;\n                                                PADR&#40; prz_alt-&gt;&#40; dbOrderInfo&#40; DBOI_SCOPEBOTTOM  &#41; &#41;, 20 &#41; + CRLF +;\n                                                PADR&#40; prz_alt-&gt;&#40; dbOrderInfo&#40; DBOI_SCOPETOP  &#41; &#41;, 20 &#41; + CRLF + ;\n                                                PADR&#40; prz_alt-&gt;&#40; recno&#40;&#41; &#41;, 20 &#41;             &#41;  &#125;\n\n\n[/code:39diu9y0]\n\n\nThank you for your time.','',0,'AIA=','39diu9y0',1,0,'',106,0,0),(46281,9621,3,1257,0,'195.93.60.73',1200333247,1,0,1,1,1,1,'','&lt; CRLF &gt; for Buttontext in Class &lt; ButtonBMP &gt; ?','Is it possible, to have a CRLF in\nClass ButtonBMP like =&gt;&gt;  \"Customer\" + CRLF + \"Info\"\nsame like in Buttonbar Office2007 ?\n\nGreetings from Germany\n\nU.König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','39diu9y0',1,0,'',1257,0,0),(46282,9620,7,106,0,'85.34.123.173',1200333476,1,0,1,1,1,1,'','','Elias,\n\nEn ese caso copias los archivos con CECOPY y los copias donde tu quieres.\nBusca cecopy en este foro.\n\nSaludos.','',0,'AIA=','15xsgno3',1,0,'',106,0,0),(46283,9608,3,29,0,'88.149.162.240',1200333720,1,0,1,1,1,1,'','','Yes. It runs fine now.\nI didn\'t know that the code control sequence was so importance.\n\nThanks a lot.\n\nBest Regards,\n\nMarco','',0,'AIA=','1m2dz1ev',1,0,'',29,0,0),(46284,9622,23,1257,0,'195.93.60.7',1200333902,1,0,1,1,1,1,'','Mögl. Erweiterung der Klasse &lt; ButtonBMP &gt; mit CRLF ??','Hallo, aus Essen\n\nich suche derzeit eine Möglichkeit, mit der Klasse &lt; ButtonBMP &gt;\nmehrzeilige Buttontexte Beispiel : &lt; \"Kunde\" + CRLF + \"Info\" &gt; darzustellen ( wie in Buttonbar Office2007 )\nIch habe meine alten Buttons inzwischen ausgetauscht, da\ndiese Klasse erheblich mehr Varianten bietet.\nHat jemand eine Lösung ?\n\nViele Grüße\n\nU.König','',0,'AIA=','1yl37ovq',1,0,'',1257,0,0),(46285,9609,3,303,0,'72.220.181.80',1200335713,1,0,1,1,1,0,'','','Pedro,\n\nOK, you using bGotFocus just as a workaround for the problem. So let\'s try to find the problem. I suggest commenting out your bGotFocus and putting in this line:\n\noLBXPrzAlt:bLogicLen := {|| prz_alt-&gt;( ordKeyCount() ) }\n\n(as Enrico pointed out it needs to be a codeblock).\n\nAlso try commenting out this line:\n\nON LEFT DBLCLICK NewPrzAlt( oLBXPrzAlt, .F. ); \n\nI don\'t know what is going on in NewPrzAlt() but you are passing the browse object so let\'s eliminate that as a source of the problem.\n\nIf the problem still is there, perhaps you can build us a small sample that we can use to recreate the problem?\n\nRegards,\nJames','',0,'AIA=','1nuasfmi',1,0,'',303,0,0),(46286,9618,1,2,0,'87.218.146.22',1200336909,1,0,1,1,1,1,'','','Marc,\n\nFW for Clipper (16 bits) can\'t manage ActiveX.\n\nYou need FWH (32 bits) to use ActiveX.','',0,'AIA=','dvez2hui',1,0,'',2,0,0),(46287,9608,3,6,0,'82.61.157.37',1200336994,1,0,1,1,1,1,'','','Me neither. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','1pa9grf7',1,0,'',6,0,0),(46288,9616,3,2,0,'87.218.146.22',1200337055,1,0,1,1,1,1,'','','Antonio,\n\nYou need xHB December beta,','',0,'AIA=','3o11ximi',1,0,'',2,0,0),(46289,3461,3,303,0,'72.220.181.80',1200338748,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;But I try to do as much as I can with FWH, without relying on 3rd party tools. With some effort the effect similar to your second picture can be created with FWH, if we can put FWH buttonbars in folders.\n\nDo you mean like this?\n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:23mq7ob3][img:23mq7ob3]http&#58;//img2&#46;freeimagehosting&#46;net/uploads/77860ce7dc&#46;jpg[/img:23mq7ob3][/url:23mq7ob3]','',0,'GA==','23mq7ob3',1,0,'',303,0,0),(46290,9617,3,2,0,'87.218.146.22',1200340475,1,0,1,1,1,1,'','','Patrick,\n\nTry this:\n\n     oGet1:bLClicked = { || BringWindowToTop( oWnd2:hWnd ), oGet1:SetFocus() }','',0,'GA==','1wemv0wh',1,0,'',2,0,0),(46291,9623,6,1236,0,'201.47.54.216',1200340959,1,0,1,1,1,0,'','capturar dados do GPS com FIVEWIN é possível?','Amigos é possível capturar dados do GPS com FIVEWIN ?\n\nAlguem já fez algo assim?\n\n\nGrato','',0,'GA==','2oe9n42l',1,0,'',1236,0,0),(46292,9572,6,2,0,'87.218.146.22',1200342572,1,0,1,1,1,1,'','','César,\n\nEl VSX acaba de salir y aún hay poca información y ejemplos de como sacarle toda su utilidad. Pero seguro aparecerán buenos ejemplos e incluso asistentes que ayuden a configurarlo de un modo más \"automático\".\n\nPablo,\n\nEl editor está en c:\\Archivos de Programa\\Microsoft Visual Studio 9\\Common7\\IDE\\devenv.exe','',0,'GA==','3lnxqblz',1,0,'',2,0,0),(46293,9621,3,2,0,'87.218.146.22',1200342769,1,0,1,1,1,1,'','','Ukoenig,\n\nClass TButtonBmp uses the standard painting of Windows buttons. It just adds the bitmap.\n\nSo we need to find if there is a way to display CRLFs in a standard Windows button','',0,'GA==','2tdf1jqg',1,0,'',2,0,0),(46294,9411,18,2,0,'87.218.146.22',1200343162,1,0,1,1,1,1,'','','Pedro,\n\nEs un cambio reciente que se ha introducido para poder controlar si queremos que la ejecución de una tecla, siga ó nó, después de evaluar el bKeyDown.\n\nAntes se hacía al final, y no había forma de capturar la tecla al principio, antes de empezar a procesarla\n\nLa ejecución se detiene sólo si se devuelve cero:\n[code:1cs5uxza]\n   if &#58;&#58;bKeyDown != nil\n      if ValType&#40; uVal &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41; &#41; == &quot;N&quot; &#46;and&#46; ;\n         uVal == 0\n         return 0\n      endif   \n   endif   \n[/code:1cs5uxza]','',0,'AIA=','1cs5uxza',1,0,'',2,0,0),(46295,9603,6,78,0,'190.43.176.223',1200343281,1,0,1,1,1,0,'','','Esto trabajaba al 100 con win98, ahora con XP ni idea...\n\n.....\nVisorLCD(\"COCA COLA 500 ML\",\"S/. 1.50\")\n.....\n\n....\nFunction VisorLCD(vLinea1,vLinea2,vModo)\nlocal cDcb, nBytes, vCade := Space(20)\nlocal nComm,nError, oComx,lVisorLcd,oPrn,vComx := \"COM1\"\nDEFAULT vLinea1 := \"BIENVENIDOS A\"\nDEFAULT vLinea2 := \"MUNDO MARKET\"\nDEFAULT vModo := 0\nIf Select(\"Almac\") &gt; 0\n vComx := \"COM1\"\nEndIf\nvLinea1 := SubStr(vLinea1,1,20)\nvLinea2 := SubStr(vLinea2,1,20)\nIf ( nCOMM := OpenComm(vComx,1024,128 )) &lt;&gt; 0\n  Return .f.\nEndIf       //MsgAlert(vLinea1+CRLF+vLinea2,vComx)\nBuildCommDCB(vComx+\":9600,n,8,1\", @cDCB)\nSetCommState( @cDCB )\nFlushComm(nCOMM,1)\nFlushComm(nCOMM,0)\nWriteComm(nComm,Chr(12))   // inicializar\nDo Case\n  Case vModo = 0\n    WriteComm(nComm,Chr(27)+Chr(17))\n  Case vModo = 1\n    WriteComm(nComm,Chr(27)+Chr(18))\n  Case vModo = 2\n    WriteComm(nComm,Chr(27)+Chr(19))\nEndCase\nWriteComm(nComm,Chr(27)+Chr(81)+Chr(65)+vLinea1+Chr(13))\nWriteComm(nComm,Chr(27)+Chr(81)+Chr(66)+vLinea2+Chr(13))\nCloseComm(nCOMM )\nReturn .t.\n\n\nSalu2','',0,'AIA=','z5zs8j5w',1,0,'',78,0,0),(46296,9582,2,1088,0,'189.129.165.94',1200344701,1,0,1,1,1,0,'','','Ya revise el archivo Browse.prg pero el q mas se parece a lo q necesito es el archivo sample02 que esta en la ruta Tsbrowse\\samples, de la clase de Hernan, solo que el ejemplo no es de una base de datos, no se como hacerle, ojala alguien me pueda mandar un ejemplo aplicado a una dbf donde pueda hacer lo que mencione arriba:\n\n<!-- e --><a href=\"mailto:yadira_lcastro@hotmail.com\">yadira_lcastro@hotmail.com</a><!-- e -->\n\nSorry a todos, creo que soy la alumna mas \"confundida del foro\"','',0,'AIA=','zvzlb76t',1,0,'',1088,0,0),(46297,9536,6,1173,0,'200.30.155.146',1200344766,1,0,1,1,1,1,'','Master Antonio','Saludos Antonio:\n\nRecien te envie via Email el ejecutable.\nEl sistema operativo es Windows XP Home Edition.\nLo he corrido en equipos con Windows XP Pro, y ocurre la misma anomalia  <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->','',0,'AIA=','uw0xoc95',1,0,'',1173,0,0),(46298,9572,6,940,0,'189.175.212.22',1200345852,1,0,1,1,1,1,'','','ok. \n\nAntonio, gracias por la informacion,\n\npor cierto el editor de recursos de VSX le da un parecido\n\na nuestro queridicimo WORKSHOP \n\nsolo que este es a 32 bits,  \n\nsaludos.','',0,'AIA=','2w2pl4s0',1,0,'',940,0,0),(46299,9582,2,2,0,'87.218.146.22',1200347837,1,0,1,1,1,1,'','','Yadira,\n\nEnvíame por email el EXE construido de ese ejemplo y el PRG, ambos dentro de un ZIP, gracias','',0,'AIA=','2xota6m9',1,0,'',2,0,0),(46300,9572,6,940,0,'189.175.212.22',1200348043,1,0,1,1,1,1,'','','Hola Antonio,,\n\nveo que el editor de recurso de VSX\n\nTiene para hacer menus ,,\n\nlo cual la generacion de menus seria rapidicimo, \n\nsi nuestro querido FWH,  aceptara menus desde RESOURCES,\n\njeje otro sueño guajiro ,,,\n\n\nsaludos..','',0,'AIA=','27qn8c1o',1,0,'',940,0,0),(46301,3461,3,34,0,'68.5.217.82',1200348154,1,0,1,1,1,1,'','Codejock','Richard,\n\nI believe I had enough information so it would be possible to use the Codejock system, and I had the concept for how to use the memory model with DBF files.  It is a complete calendar system.\n\nI did not proceed because the project I needed to build didn\'t seem to fit with a standard Outlook Calendar view.  I may do that later.  I also did not feel the Ribbon Bar was a good option for the program I\'m currently maintaining.\n\nHowever, I was very pleased with their communication and willingness to work with me when I am ready.  I think others may have observed the same thing.\n\nTim','',0,'AIA=','26o4xkc1',1,0,'',34,0,0),(46302,9572,6,2,0,'87.218.146.22',1200348218,1,0,1,1,1,1,'','','Cesar,\n\nFiveWin soporta menus desde recursos <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nRevisa samples\\resmenu.prg','',0,'AIA=','i6vyvvy0',1,0,'',2,0,0),(46303,8893,3,9,0,'85.59.186.228',1200348881,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:v4m0ovqk]Tell me what client you used for your workstations .. I am running on Vista and could not get the Ora9i disks to load properly because of incompatability [/quote:v4m0ovqk]\n\nRick,\n\nI am using Oracle 10-g (server and clients) successfully, but with XP. I am very confortable with xHarbour + FWH + Oracle. \n\nRegards','',0,'gA==','v4m0ovqk',1,0,'',9,0,0),(46304,8893,3,9,0,'85.59.186.228',1200349193,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:26bp2eg1]From the client we can execute those functions or procedures through ADO\'s execute method of connection object and read the return values.[/quote:26bp2eg1]\n\nNages,\n\nI am beginning with Oracle PL/SQL. I am creating several procedures with \"Oracle SQL Developer\" and run perfectly. But when I try to run from my FWH-aplication, with ADO method EXECUTE, I dont receive any answer.\n\nCan you please, show me an example, how do you executes a PL/SQL procedure in xHarbour/FWH?\n\nFor instance, this procedure:\n\ncreate or replace PROCEDURE S10_1 AS\nsFecha Varchar2(40);\nBEGIN\n  select to_char(sysdate,\'dd/mm/yyyy hh24:mm:ss\')\n  into sFecha from dual ;\n  dbms_output.put_line(\'Hoy es: \' || sFecha);\nEND S10_1;\n\nRegards y thanks for your help.','',0,'gA==','26bp2eg1',1,0,'',9,0,0),(46305,9621,3,58,0,'84.149.102.12',1200349830,1,0,1,1,1,0,'','','There was already a topic for this.\nBut don\'t remember which.\n\nBut i remember the advices like this:\nOpen the .rc file with a text editor.\nAt the end of a button definition just comma and the value 8192. After this you may write your button prompt in RWS with a \"\\r\\n\" for a newline or CRLF in your redefine statement of your prg code.\n\nhth,\nDetlef','',0,'gA==','2r0jjt9m',1,0,'',58,0,0),(46306,9624,3,1158,0,'200.159.198.154',1200352076,1,0,1,1,1,0,'','Error building xharbour from cvs','HI, 2 weeks ago its ok, but now i receive :\n\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n	bison -v -d  source\\compiler\\harbour.sly   -oobj\\b32\\harboury.c\n\n** error 1 ** deleting obj\\b32\\harboury.c\n\ni missing something in this period??\n\nthanks','',0,'gA==','34po1841',1,0,'',1158,0,0),(46307,9625,6,147,0,'190.136.187.84',1200353492,1,0,1,0,1,1,'','Importar DBFs (ADSCDX) a ADT','Gente...\nEstoy investigando el uso de tablas ADT.\nPor lo que ARC32 de por medio y a través de la opción Import voy haciendo lo siguiente:\nPestaña1\nSelecciono: Paradox, dBase or...\nPestaña2\nSelecciona la DBF a importar e indico en Table Type: Paradox/dBase\nPestaña3\nIndico carpeta destino\nPestaña4\nAl pulsar sobre le botón Import, se despliega un Dlg de error con un texto bastante largo que habla de un indice Primario en tablas Paradox??? y el error queda registrado como:\n\n      *************** Start D:\\mgideas\\Sigic\\Bdatos\\Bdgco01.dbf ***************\n      Error opening source table\n      An error occurred while attempting to initialize the Borland Database Engine (error $2108)\n\n      *************** End D:\\mgideas\\Sigic\\Bdatos\\Bdgco01.dbf ***************\n\n\nAlguien me puede orientar?; que estoy haciendo mal?\ngracias','',0,'gA==','1aq0chi8',1,0,'',147,0,0),(46308,9582,2,1088,0,'189.129.165.94',1200354742,1,0,1,1,1,0,'','','Gracias Antonio te envie los 2 archivos al correo:\n\n<!-- e --><a href=\"mailto:alinares@fivetechsoft.com\">alinares@fivetechsoft.com</a><!-- e -->\n\nGracias por tu paciencia, saludos <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','3v5p99n3',1,0,'',1088,0,0),(46309,9626,20,49,0,'62.13.172.68',1200355957,1,0,1,1,1,1,'','archivio banche aggiornato a dicembre 2007','ho trovato qualcosa ma in un altro formato (txt)\nqualcuno potrebbe aiutarmi per costruire l\'archivo dbf ?\n\n[b:2ofb9m3p]Il file TabAbi contiene i dati relativi alle banche.[/b:2ofb9m3p]\nIl campo \"stato\" può assumere 2 valori \n0 - banca attiva\n1 - banca non più attiva\nIl campo sostituto nel caso di banca non attiva (stato = 1) contiene il codice abi della banca che ha assorbito gli sportelli\n\n[b:2ofb9m3p]Il file TabAbiCab contiene le informazioni relative agli sportelli[/b:2ofb9m3p]\nNel file TabAbi e TabAbiCab è presente il campo \"Aggiornamento\" che evidenzia la data di riferimento di validità dei dati.\n\nTutte le righe di TabAbiCab che NON contengono la data più recente sono da considerarsi relative a sportelli non più attivi o\nassorbiti da altre banche, tali sportelli sono presenti solo come log dei dati storici, ne è sconsigliato l\'utilizzo per nuove\nemissioni di flussi di comunicazione con le banche.\n\n[b:2ofb9m3p]Alcune informazioni sui files:[/b:2ofb9m3p]- campi separati da tabulazione hex: 09\n- righe separate dal terminatore di riga windows hex: 0d0a\n- intestazione colonne sulla prima riga\n\n\nposso inviare i file in privato.','',0,'QA==','2ofb9m3p',1,0,'',49,0,0),(46310,8893,3,35,0,'65.188.6.143',1200356061,1,0,1,1,1,0,'','','[quote:33af9pu3]Rick, \n\nI am using Oracle 10-g (server and clients) successfully, but with XP. I am very confortable with xHarbour + FWH + Oracle. \n\nRegards\n_________________\nUn saludo \n\nManuel [/quote:33af9pu3]\n\n\nManuel .. do you have a sample connection string you are using for your Oracle ADO recordsets ??  msadora or are you using oraoledb ??\n\nRick Lipkin','',0,'gA==','33af9pu3',1,0,'',35,0,0),(46311,9627,6,228,0,'69.79.223.84',1200356864,1,0,1,1,1,1,'','Guardar Imagenes en una tabla','Amigos del foro tengan buena noche. Como dice el encabezado, me gustaria saber si puedo almacenar una imagen en una dbf y si se puede que tipos de imagenes puedo almacenar.\n\nAl mismo tiempo quiero saber que campo debo crear en una tabla de sql para almacenar imagenes.\n\nDe antemano gracias.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1oujnkx9',1,0,'',228,0,0),(46312,9628,6,987,0,'189.133.13.207',1200360967,1,0,1,1,1,0,'','Sobre TReport e Imagenes Impresas','Saludos a todos los Colegas del foro:\n\nTengo una duda sobre la clase TReport en la cual esta basada mi aplicaciòn, en ella muestro listados con imagenes con vistas previas en diferentes tipos de impresora: Laser, matriz de Puntos e Inyecciòn de tinta, mi pregunta es:\n\nEs posible saber en que tipo de Impresora se esta generando el previewy el reporte, ya que con los diferentes tipos de impresoras las images se ven de diferente forma, mi idea es saber en que momento es laser u otro modelo para cambiar el tamaño y la ubicaciòn de la imagen para que no quede asì:\n\nLaser:\n&lt;a href=\"http://img143.imageshack.us/my.php?image=73966719tw9.jpg\" target=\"_blank\"&gt;&lt;img src=\"http://img143.imageshack.us/img143/2391/73966719tw9.th.jpg\" border=\"0\" alt=\"Free Image Hosting at <!-- w --><a class=\"postlink\" href=\"http://www.ImageShack.us\">www.ImageShack.us</a><!-- w -->\" /&gt;&lt;/a&gt;\n\nMatriz de Puntos:\n&lt;a href=\"http://img143.imageshack.us/my.php?image=29683568wd6.jpg\" target=\"_blank\"&gt;&lt;img src=\"http://img143.imageshack.us/img143/3457/29683568wd6.th.jpg\" border=\"0\" alt=\"Free Image Hosting at <!-- w --><a class=\"postlink\" href=\"http://www.ImageShack.us\">www.ImageShack.us</a><!-- w -->\" /&gt;&lt;/a&gt;\n\nSaludos y Gracias..','',0,'gA==','sey864fv',1,0,'',987,0,0),(46313,8893,3,868,0,'219.64.121.60',1200361236,1,0,1,1,1,1,'','','Mr Manuel\n\nI am giving a test oracle function and xharbour code to use the return value. This function is of no practical use, but for demonstration only.\n\nCreate the function on Oracle Server:\n[code:23wad2yb]\nCREATE OR REPLACE FUNCTION sysdateplus &#40;nadd IN NUMBER&#41;\n   RETURN DATE\nAS\n   dret   DATE;\nBEGIN\n   dret &#58;= SYSDATE &#40;&#41; + nadd;\n   RETURN dret;\nEND;\n/\n[/code:23wad2yb]\nYou can create this function from SQLPlus.  \nNow here is the xharbour program to use the function\n[code:23wad2yb]\nSTATIC oCon\n//----------------\nFUNCTION Main&#40;&#41;\n\nLOCAL dOraRet\n\n	// First connect to your oracle server and store\n	// the connection object in oCon static variable\n\n	dOraRet	&#58;= TestOraFunc&#40; 10 &#41;\n	msginfo&#40; dOraRet &#41;\n	IF VALTYPE&#40; dOraRet &#41; == \'D\'\n		msginfo&#40; TTOC&#40; dOraRet &#41; &#41;\n	ENDIF\n\nRETURN NIL\n//--------------\nSTATIC FUNCTION TestOraFunc&#40; nAddDays &#41;\n\nSTATIC oCmd\n\nLOCAL oParam, dRetVal\nLOCAL oCon\n\n	IF oCmd == NIL\n	   \n	   // we have oCmd in a static variable\n	   // once created can be used through out the life of the program\n	   // saves time for creation in subsequent calls\n	   \n		oCmd	&#58;= TOLEAuto&#40;&#41;&#58;New&#40; \'ADODB&#46;Command\' &#41;\n		WITH OBJECT oCmd\n			&#58;ActiveConnection	&#58;= oCon				// your connection object\n			&#58;CommandText		&#58;= &quot;SYSDATEPLUS&quot;  // function name\n			&#58;CommandType		&#58;= adCmdStoredProc // 4\n			&#58;Prepared			&#58;= &#46;T&#46;\n\n			// Create Return parameter\n			oParam 	&#58;= &#58;CreateParameter&#40; \'RetValue\', adDate, adParamReturnValue &#41;  // 7, 4\n			&#58;Parameters&#58;Append&#40; oParam &#41;\n			// Create input paramter\n			oParam	&#58;= &#58;CreateParameter&#40; \'InputNumber\', adInteger, adParamInput &#41; // 3, 1\n			&#58;Parameters&#58;Append&#40; oParam &#41;\n		END\n	ENDIF\n\n	oCmd&#58;Parameters&#40;1&#41;&#58;Value	&#58;= nAddDays\n        // we can also write oCmd&#58;Parameters&#40;\'InputNumber\'&#41;&#58;Value\n        // this is more clear but using a number saves a few micro seconds of execution time\n	TRY\n	   oCmd&#58;Execute&#40;&#41;\n	CATCH\n	   // your stadard fuction to show error\n	   RETURN NIL\n	END\n   dRetVal  &#58;= oCmd&#58;Parameters&#40;0&#41;&#58;Value\n\n\nRETURN dRetVal\n//--------------------\n[/code:23wad2yb]\n\nAt first it seems like a lot of code to write. But once we start using oracle or any other rdbms extensively, we naturally write our own library of utilities to create command objects and many others.','',0,'AIA=','23wad2yb',1,0,'',868,0,0),(46314,9628,6,987,0,'189.133.13.207',1200361255,1,0,1,1,1,0,'','','Sorry creo que las imagenes no se ven..\n\nEstos son los enlazes correctos:\n\n<!-- m --><a class=\"postlink\" href=\"http://img177.imageshack.us/img177/370/10271179my0.th.jpg\">http://img177.imageshack.us/img177/370/ ... my0.th.jpg</a><!-- m -->\n<!-- m --><a class=\"postlink\" href=\"http://img177.imageshack.us/img177/6848/32409400jz2.th.jpg\">http://img177.imageshack.us/img177/6848 ... jz2.th.jpg</a><!-- m -->','',0,'AIA=','2wow2w94',1,0,'',987,0,0),(46315,8893,3,868,0,'219.64.121.60',1200361389,1,0,1,1,1,1,'','','Sorry\nPlease remove the line \"LOCAL oCon\" from the TestOraFunc\nRegret the mistake','',0,'AIA=','3htuxw6n',1,0,'',868,0,0),(46316,9572,6,940,0,'189.175.212.22',1200362260,1,0,1,1,1,1,'','','Antonio, \n\ngracias poy tu apoyo,\n\nvoy a probar,,  \n\nsaludos.','',0,'AIA=','3vd7krx2',1,0,'',940,0,0),(46317,9611,3,868,0,'219.64.121.60',1200364035,1,0,1,1,1,1,'','','Mr ask\n\nIn the olden days of ndx, ntx and initial cdx, filters used to crawl. We used to avoid them like plague. After foxpro introduced Rushmore technology for optimization of filters, Comix and SIX provided similar optimisations for Clipper. Later on Clipper\'s DBFCDX used comix for optiimization of filters. Now, except DBFNTX all RDDs provide optimized filters. But there is one condition for the RDD to be able to optimize the filters. We need to provide indexes on all the columns we use in the filter expressions. If not, the RDD optimizes the filter either patially or not at all depending on the availability of filters. When we SET DELETED ON, the RDD\'s require index on the expression \'DELETED()\' also to optimize. Then, if we set filter like \'FLD1 = \'SOMETHING\' .AND. FLD2 = \'SOMETHING\' .AND. !DELETED()\' the filter will be fully optimized. Some RDDs may not need us to specify !DELETED() in the filter clause, but they do need an index. I have not used comix and six for ages. You may check their documentation. But explicitly using !DELETED() in the filter clause and having an index on DELETED() will help every RDD ( other than NTX) to optimize the filters fully.','',0,'AIA=','3tis9rql',1,0,'',868,0,0),(46318,3461,3,868,0,'219.64.121.60',1200364480,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:26axnj2l]\nDo you mean like this?\n[/quote:26axnj2l]\nNot exactly. I want this in the place of a single buttonbar in windows.\n[url=http&#58;//imageshack&#46;us:26axnj2l][img:26axnj2l]http&#58;//img89&#46;imageshack&#46;us/img89/4539/bbardq4&#46;jpg[/img:26axnj2l][/url:26axnj2l]','',0,'mA==','26axnj2l',1,0,'',868,0,0),(46319,3461,3,868,0,'219.64.121.60',1200365434,1,0,1,1,1,1,'','','This window is created using rebars and toolbars ( part of rebars.prg in samples folder).\n[url=http&#58;//imageshack&#46;us:3lvna42i][img:3lvna42i]http&#58;//img85&#46;imageshack&#46;us/img85/4644/rebarqe9&#46;png[/img:3lvna42i][/url:3lvna42i]\n\nRelevant potion of the code is :\n[code:3lvna42i]\n   DEFINE WINDOW oWnd TITLE &quot;Testing rebars and toolbars&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   oReBar = TReBar&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oPanel &#58;= TPanel&#40;&#41;&#58;New&#40; 0, 0, 75, 300, oReBar &#41;\n\n   oImageList = TImageList&#40;&#41;&#58;New&#40;&#41;\n\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;\\fwh\\bitmaps\\16x16\\new2&#46;bmp&quot;, oWnd &#41;,;\n                         nRGB&#40; 255, 0, 255 &#41; &#41;\n   oImageList&#58;AddMasked&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;\\fwh\\bitmaps\\16x16\\open2&#46;bmp&quot;, oWnd &#41;,;\n                         nRGB&#40; 255, 0, 255 &#41; &#41;\n\n   oImageList&#58;Add&#40; TBitmap&#40;&#41;&#58;Define&#40; , &quot;\\fwh\\bitmaps\\16x16\\icon&#46;bmp&quot;, oWnd &#41;,;\n                   TBitmap&#40;&#41;&#58;Define&#40; , &quot;\\fwh\\bitmaps\\16x16\\icoMask&#46;bmp&quot;, oWnd &#41; &#41;\n\n   @ 10, 2 FOLDER oFolder PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; SIZE 400, 62\n\n   oToolBar2 = TToolBar&#40;&#41;&#58;New&#40; oFolder&#58;aDialogs&#91; 1 &#93;,,, oImageList &#41;\n   oToolBar2&#58;AddButton&#40; &#123; || MsgInfo&#40; &quot;pointer&quot; &#41; &#125;, &quot;pointer&quot; &#41;\n   oToolBar2&#58;AddSeparator&#40;&#41;\n   oToolBar2&#58;AddButton&#40; ,&quot;label&quot; &#41;\n   oToolBar2&#58;AddButton&#40; ,&quot;button&quot; &#41;\n\n   oReBar&#58;InsertBand&#40; oFolder &#41;\n\n[/code:3lvna42i]\nInstead of using ToolBars, I want to use FWH ButtonBars 2007 style in a folder and use it in window to get the same functionality of toolbars in folders in rebar','',0,'GIA=','3lvna42i',1,0,'',868,0,0),(46320,3461,3,1193,0,'59.105.14.242',1200365715,1,0,1,1,1,0,'','','[quote=&quot;nageswaragunupudi&quot;:28eh0gb4][quote=&quot;James Bott&quot;:28eh0gb4]\nDo you mean like this?\n[/quote:28eh0gb4]\nNot exactly. I want this in the place of a single buttonbar in windows.\n[url=http&#58;//imageshack&#46;us:28eh0gb4][img:28eh0gb4]http&#58;//img89&#46;imageshack&#46;us/img89/4539/bbardq4&#46;jpg[/img:28eh0gb4][/url:28eh0gb4][/quote:28eh0gb4]\n\nHi\n\nDo you want it below?\n\n[url=http&#58;//img88&#46;imageshack&#46;us/my&#46;php?image=20080115105323qa4&#46;jpg:28eh0gb4][img:28eh0gb4]http&#58;//img88&#46;imageshack&#46;us/img88/6456/20080115105323qa4&#46;th&#46;jpg[/img:28eh0gb4][/url:28eh0gb4]\n\nRegards,\n\nRichard','',0,'mA==','28eh0gb4',1,0,'',1193,0,0),(46321,3461,3,303,0,'72.220.181.80',1200365867,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;I want this in the place of a single buttonbar in windows. \n\nI remember seeing something like that many years ago--in FW\'s own samples. I think it was the start of a Visual FW. You might look at samples\\fivegen. I don\'t think it was done with folders, but rather tabs.\n\nJames','',0,'mA==','1cq4hul4',1,0,'',303,0,0),(46322,3461,3,868,0,'219.64.121.60',1200367047,1,0,1,1,1,1,'','','Mr Richard, Yes. But I am trying to find a way within FWH, without using 3rd party tools. If not possible at all then only I shall try codejack or viacoral. For me functionality is more important than the looks. Thanks\n\nMr James, Thanks. I shall look into FiveGen, but I dont think it will help.','',0,'mA==','1jpagx8d',1,0,'',868,0,0),(46323,9536,6,2,0,'87.218.146.22',1200376995,1,0,1,1,1,1,'','','Si, hemos visto el error. Ocurre en XP, en Vista funciona bien.\n\nPrueba a hacer lo siguiente:\noDlg:bMoved = { || oBar:Refresh() }\n\npor lo visto solo ocurre al mover la caja de diálogo una vez que ha salido el aviso de las mayúsculas. Por lo menos, aqui solo falla en esa situación.','',0,'mA==','3amsc7ll',1,0,'',2,0,0),(46324,9624,3,2,0,'87.218.146.22',1200377201,1,0,1,1,1,1,'','','Norberto,\n\nYou have to install Bison 2.1:\n\n<!-- m --><a class=\"postlink\" href=\"http://downloads.sourceforge.net/gnuwin32/bison-2.1.exe\">http://downloads.sourceforge.net/gnuwin32/bison-2.1.exe</a><!-- m -->','',0,'mA==','384koaf3',1,0,'',2,0,0),(46325,3461,3,2,0,'87.218.146.22',1200377415,1,0,1,1,1,1,'','','NageswaraRao,\n\nHave a look at fwh\\samples\\ReBars.prg','',0,'mA==','312fdqgr',1,0,'',2,0,0),(46326,3461,3,868,0,'219.64.121.60',1200379182,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:37va41sk]NageswaraRao,\n\nHave a look at fwh\\samples\\ReBars.prg[/quote:37va41sk]\nYes. I posted the result from that program a few posts back in this thread. What I am looking for is to use FWH ButtonBar 2007 style, instead of ToolBars in the folder.','',0,'gA==','37va41sk',1,0,'',868,0,0),(46327,9629,7,57,0,'80.30.100.25',1200379797,1,0,1,1,1,1,'','Problema en apertura de ficheros desde el Emulador.','Amigos\n\nHe preparado un ejemplo para probar el error que se produce en la apertura de ficheros utilizando el Emulador.\n\nEl ejemplo realiza 2 pruebas:\n- El primero crea y abre ficheros en una carpeta \"Pruebas\"  que crea en la \"Storage Card\" del emulador. \n\n- El segundo hace lo mismo pero esta vez creando la carpeta \"pruebas\" y todo los ficheros en memoria.\n\nSi os pasa lo que a mí, en memoria se crearan y aperturaran 80 ficheros correctamente y en el Storage card, el resultado es dispar. Se producen errores de apertura con un número NO siempre igual.\n\nA ver si entre todos damos con la solucion.\n\nSaludos\nEL EJEMPLO:\n----------------------------------------------------------------------------------\n\n#include \"Fwce.ch\"\n#xcommand TRY              =&gt; bError := errorBlock( {|oErr| break( oErr ) } ) ;;\n                              BEGIN SEQUENCE\n#xcommand CATCH [&lt;!oErr!&gt;] =&gt; errorBlock( bError ) ;;\n                              RECOVER [USING &lt;oErr&gt;] &lt;-oErr-&gt; ;;\n                              errorBlock( bError )\n\nSTATIC bError\nREQUEST DBFCDX\nFUNCTION MAIN()\n\n    LOCAL oWnd\n    SET AUTOPEN ON\n\n      REQUEST HB_LANG_ES // Para establecer español para Mensajes, fechas, etc..\n      REQUEST HB_CODEPAGE_ESMWIN // Para establecer código de página a Español (Ordenación, etc..)\n      HB_LangSelect(\'ES\')\n      HB_SetCodePage(\"ESMWIN\") // Para ordenación (arrays, cadenas, etc..)\n\n\n      **-------- &gt; Proceso de Entrada del Programa ------**\n         SET CONFIRM ON\n         SET DECIMAL TO 3\n    DEFINE WINDOW oWnd\n    ACTIVATE WINDOW oWnd ON INIT Pruebas() ON CLICK oWnd:End()\n\nRETURN NIL\n\nfunction pruebas\n    LOCAL cFile := SPACE( 20 )\n    LOCAL cAlias:= SPACE( 20 )\n    LOCAL x\n    //LOCAL cDir :=  \"\\\" + CurDir() + \"\\Prueba\\\"\n    LOCAL cDir :=  \"\\Storage Card\\Prueba\\\"\n    FOR Y=1 TO 2\n        IF Y=2\n           dbcloseall()\n           cDir := \"\\Prueba\\\"\n        ENDIF\n        msginfo(\"Comenzamos en \"+ cDir)\n        /*\n        if Left(cDir,2) = \"\\\\\"\n           cDir := Substr(cDir,2)\n        endif*/\n        IF !FILE( cDir )\n           lMkDir( cDir )\n        ENDIF\n        cFile := cDir + \"1\" + \".dbf\"\n        FOR X := 1 TO 80\n              cFile := cDir + ALLTRIM(STR(X)) + \".dbf\"\n              if !file ( cFile)\n                FERASE( cFile )\n              endif\n        NEXT X\n\n        TRY\n          FOR X := 1 TO 80\n              cFile := cDir + ALLTRIM(STR(X)) + \".dbf\"\n              DBCREATE( cFile, {{\"Uno\",\"C\",10,0}} )\n          NEXT X\n          MSGINFO(\"Creados correctamente \" + alltrim(str(x-1)))\n        CATCH\n            MSGSTOP(\"Error creando ficheros. Creados = \" + alltrim(str(x)) + \" de 80\",\"Error en creacion de ficheros\")\n        END\n        msginfo(\"DbCreate finalizado\")\n        TRY\n           for x := 1 to 80\n              cFile := cDir + ALLTRIM(STR(X)) + \".dbf\"\n              cAlias:= \"A\"+STRZERO(X,2)\n              Dbusearea( .T. ,\"DBFCDX\" , cFile, cAlias, .f. ,.f. )\n              if !NetErr()\n                (cAlias)-&gt;(dbappend())\n                Replace (cAlias)-&gt;Uno WITH cAlias\n              endif\n\n           next x\n           MSGINFO(\"Abiertos correctamente \" + alltrim(str(x-1)))\n        CATCH\n            MSGSTOP(\"Error aperturando ficheros. Abiertos = \" + alltrim(str(x)) + \" de 80\",\"Error en apertura de ficheros\")\n        END\n\n        msginfo(\"Final\")\n   NEXT Y\n\nreturn nil','',0,'','2zkpokqg',1,0,'',57,0,0),(46328,3461,3,868,0,'219.64.121.60',1200379814,1,0,1,1,1,1,'','','Mr Antonio\n\nThanks for making me think.\n\nI put buttonbar in the folder instead of toolbar. Here is the result.\n[url=http&#58;//imageshack&#46;us:2w0918jo][img:2w0918jo]http&#58;//img526&#46;imageshack&#46;us/img526/8237/rebtnbarmi2&#46;png[/img:2w0918jo][/url:2w0918jo]\nYes, this is what I wanted.\nNow I need to work out the sizes and so on to implement finally.   Making the tabs appear better can wait, but it will be nice if we can do that also','',0,'GA==','2w0918jo',1,0,'',868,0,0),(46329,3461,3,2,0,'87.218.146.22',1200380927,1,0,1,1,1,1,'','','Excellent <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','hsw5354b',1,0,'',2,0,0),(46330,9629,7,2,0,'87.218.146.22',1200381207,1,0,1,1,1,1,'','','Toni,\n\nYa hemos visto en otros casos, que la Storage card falla para determinadas operaciones (apertura de ficheros, índices, etc.)\n\nTal vez el Windows Mobile 2006 haya mejorado esto. Aún no lo hemos probado en él.','',0,'GA==','tuqkly96',1,0,'',2,0,0),(46331,9623,6,2,0,'87.218.146.22',1200381298,1,0,1,1,1,1,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8612\">http://fivetechsoft.com/forums/viewtopic.php?t=8612</a><!-- m -->','',0,'GA==','14qbfnh8',1,0,'',2,0,0),(46332,9628,6,2,0,'87.218.146.22',1200382402,1,0,1,1,1,1,'','','Dany,\n\nLa Clase TReport contiene una DATA oDevice que es el dispositivo en el que se va a imprimir.\n\nPuedes usar estos métodos:\n&lt;oReport&gt;:PhyWidth(), &lt;oReport&gt;:PhyHeight()\n\nó directamente consultar a oDevice:\n   ::nWidth  := ::oDevice:nHorzRes()\n   ::nHeight := ::oDevice:nVertRes()\n   ::nLogPixX := ::oDevice:nLogPixelX()\n   ::nLogPixY := ::oDevice:nLogPixelY()','',0,'GA==','321pdpzm',1,0,'',2,0,0),(46333,8893,3,9,0,'85.59.186.228',1200383291,1,0,1,1,1,1,'','','Master Nageswaragunupudi,\n\nThank you very much. Your example is very good. Thanks again for your knowledges and helpful.\n\nI am including \"ado.ch\", but I have seen you use for \'CreateParameter\',  adDate, adParamReturnValue, adInteger and adParamInput. Is there another \"include\" for this?\n\nWhere can I get more information for CreateParameter?\n\nRegards','',0,'GA==','e2849sj6',1,0,'',9,0,0),(46334,9617,3,972,0,'78.21.224.104',1200383487,1,0,1,1,1,0,'','','Hello,\n\n[quote=&quot;nageswaragunupudi&quot;:262q27hr]If oWnd1 is created as mdichild of oWndH, but not as Standard Window and later set its parent, this works. We can switch focus between the two child windows by clicking anywhere in the windows ( but not on gets ).[/quote:262q27hr]\n\nYes, I know, but that\'s not what we want. We want the MDI window created like this.\n\nPatrick','',0,'gA==','262q27hr',1,0,'',972,0,0),(46335,9611,3,247,0,'83.171.242.103',1200383763,1,0,1,1,1,0,'','','Thank you for your answer.I did not know all this things .As i can understand being you seem to know allot about databases and indexes . Can you please tell me which of the 2 RDDs (DBFntx , DBFcdx) is faster and more reliable ? \n\nThank you very much\nA.S.K','',0,'gA==','1866hwjk',1,0,'',247,0,0),(46336,9611,3,303,0,'72.220.181.80',1200385315,1,0,1,1,1,0,'','','NageswaraRao,\n\nThanks for that detailed explanation. It was very helpful. I\'m sure a lot of us did not know all that.\n\nRegards,\nJames','',0,'gA==','18r23zrl',1,0,'',303,0,0),(46337,8893,3,9,0,'85.59.186.228',1200385920,1,0,1,1,1,1,'','','[quote=&quot;Rick Lipkin&quot;:544jz3by] .. do you have a sample connection string you are using for your Oracle ADO recordsets ??  msadora or are you using oraoledb ??[/quote:544jz3by]\n\nRick,\n\nI know you are a master. I have learned with you. I reply you thinking in all people (every level). \n\nAlthough I can using msadora (MS-Ole) or oraoledb (Oracle native provider) I am using last one, because it is advises in Oracle Web and for compatibility with PL/SQL Oracle language. For check connection, you can use FDATALINK function.\n\nFollowing Nages advices, at the beginning, I have a connection to Database (unique connection). I have a  function in my personal library, for recordset. I call this function when I need and return recordset object. After I can use that recordset-object for \"browse\" or another thing. \n\nI show you an example of my connection code and recordset:\n\nSTATIC oWnd\nstatic oCon  // conexion\nSTATIC oRs   // recordset\n////////////////////////////////////////////////////////////////////\n/// cHost = name of database in the tnsname.ora file\n/// cUser    standar Oracle user, you can change it\n/// cPass    standar password Oracle, you can change it\nFUNCTION MAIN ()\nLocal cProv  := \"OraOLEDB.Oracle.1\" ;\n      cHost  := \"XE\" ;\n      cUser  := \"hr\" ;\n      cPass  := \"hr\"\n\n// create object connection\noCon  := TOLEAuto():New(\'ADODB.Connection\')\n\noCon:ConnectionString := \"Provider=\"     + cProv + \";\" + ;\n                         \"Data Source= \" + cHost + \";\" + ;\n                         \"User ID=\"      + cUser + \";\" + ;\n                         \"Password=\"     + cPass + \";\"\n\n// Connection Database / conexión con la Base de Datos\nTRY\n  oCon:Open()\nCATCH oError\n  AdoError(oCon, oError) // personal function for show errors.\n  QUIT\nEND\n\n////////////////////////////////////////\n/// RF original code\n/// from spanish forum FWH\n/// Crea recordset de una orden Sql\n/// Create recordset from Sql order\n/// lVacio (lEmpty) if .t. error\n/// lVacio := .f. for new table\n///////////////////////////////////////\nFUNCTION F_RECORDSET (oCon, oRs, cSql, lVacio)\nlocal oError\nDEFAULT lVacio := .T.\noRs := TOleAuto():New(\"adodb.recordset\")\noRs:CursorLocation := 3  // adUseClient      (no funciona con servidor)\noRs:LockType         := 3  // adLockOptimistic (solo bloque en update)\noRs:CursorType      := 1  // adOpenKeyset\noRs:Source := cSql\noRs:ActiveConnection(oCon)\n\nTRY\n  oRs:Open( )\nCATCH oError\n  AdoError(oCon, oError)  // personal function for show errors.\n  RETURN nil\nEND\nIF lVacio\n   IF oRs:EOF .and. oRs:BOF    // Jose Luis Capel spanish blogs\n      msgstop (\"Tabla vacia\")    // Empty Table\n      oRs:CLOSE()\n      oRs:=Nil\n      RETURN nil\n   ENDI\n   oRs:MoveFirst()\nENDI\n\nRETURN oRs\n\n\n////////////////////////////////////////////////////\n/// From Biel Code (spanish blogs)\n/// Comprobar conexión a la base de datos\n/// Check connection to Database\n////////////////////////////////////////////////////\nFUNCTION FDATALINK ( )\nLOCAL oDataLink := TOleAuto():New(\"Datalinks\"),;\n   oConn := oDataLink:PromptNew()\n   valert (oConn:ConnectionString)\n\nRETURN nil\n\n\nRegards','',0,'gA==','544jz3by',1,0,'',9,0,0),(46338,9617,3,2,0,'87.218.146.22',1200386252,1,0,1,1,1,1,'','','Patrick,\n\nWith the code that I have posted, you sample is working fine <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','mycep1jk',1,0,'',2,0,0),(46339,9629,7,57,0,'80.30.100.25',1200387071,1,0,1,1,1,1,'','','Antonio\nLas pruebas que he realizado han sido sobre WM6.\n\nLo curioso es que con FOPEN() funciona correctamente la apertura de los 80 Ficheros.\n\n¿No será un problema propio de la funcion dbusearea?.\n\nEn el ejemplo no estoy utilizando indices.\n\nSaludos','',0,'gA==','fklbymmc',1,0,'',57,0,0),(46340,9619,23,130,0,'141.51.32.24',1200387365,1,0,1,1,1,1,'','','Hallo Norbert,\n\nbis jetzt noch nicht, ich wußte gar nicht, daß das geht. Wo hast du denn die Beschreibung der Schnittstelle her (IWebBrowser) ? Hast du ein Beispiel für den Aufruf ?\n\nNur so eine Idee, ist Firefox dein Standardbrowser ? Teste mal, ob´s dann klappt.\n\nGruß\nStefan','',0,'gA==','1xp92496',1,0,'',130,0,0),(46341,9629,7,106,0,'85.34.123.173',1200388652,1,0,1,1,1,1,'','','El problema sucede solo con el emulador o tambien con la PDA?\n\n\nGracias','',0,'gA==','1k04bk74',1,0,'',106,0,0),(46342,9411,18,24,0,'80.24.12.168',1200389277,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:2k6l8t0p]TheFull, \n\nNunca puse devolver 0 o 1, porqué debería ponerlo ahora?\n\nQue fue lo que cambió que no me enteré?\n\nTendría que devolver 0 o 1 en TODAS las llamadas a teclas de función en los GETS  <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\n\nSaludos[/quote:2k6l8t0p]\n\nEs como te dice Antonio, también me volví loco; O realiza una modificacion;\n\n[code:2k6l8t0p]\n   if &#58;&#58;bKeyDown != nil\n       uVal &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41;   \n          if ValType&#40; uVal &#41; == &quot;N&quot; \n             if uVal == 0\n                return 0\n             endif\n          endif   \n       endif\n   endif    \n[/code:2k6l8t0p]\n\nTeoricamente, no esta probado, esto tiene que funcionarte, TODOS los valores que devuelves con tu codeblock, seran ignorados , EXCEPTO los que devuelven numericos , que usaran la nueva implementación, manteniendo la compatibilidad con tu codigo y con el nuevo.','',0,'gIA=','2k6l8t0p',1,0,'',24,0,0),(46343,9411,18,106,0,'85.34.123.173',1200389380,1,0,1,1,1,1,'','','Antonio,\n\n\nMe toca cambiar todas las ocurrencias en los GET donde uso bkeydown...\n\nMuchas de este tipo:\n\n[code:eh43z1t4]\n    oG&#91;1&#93;&#58;bKeyDown &#58;= &#123; | nKey, nFlags | IF&#40; nKey == VK_F2, &#40; cCodCli &#58;= ListaCLF&#40; oG&#91;1&#93;, oG&#91;1&#93;&#58;oGet&#58;Buffer, &quot;C&quot; &#41;, cNameCli &#58;= NameClf&#40; cCodCli &#41;, oG&#91;2&#93;&#58;refresh&#40;&#41; &#41;, NIL &#41;, TastiFun&#40; nKey, nFlags, oBrw, mov_tmp-&gt;mov_cod, mov_tmp-&gt;mov_tag, oSayTot, codOpe, cCodCli, oG, lAperCassaOk &#41; &#125;\n    oG&#91;3&#93;&#58;bKeyDown &#58;= &#123; | nKey, nFlags | IF&#40; nKey == VK_F2, &#40;cTmp &#58;= oG&#91;3&#93;&#58;varget&#40;&#41;, ListaDlgArt&#40; @cTmp, @cCodTag &#41;, cCodArt &#58;= cTmp, oG&#91;3&#93;&#58;refresh&#40;&#41;, oG&#91;4&#93;&#58;refresh&#40;&#41; &#41; , NIL &#41;, TastiFun&#40; nKey, nFlags, oBrw, mov_tmp-&gt;mov_cod, mov_tmp-&gt;mov_tag, oSayTot, codOpe, cCodCli, oG, lAperCassaOk &#41; &#125;\n    oG&#91;6&#93;&#58;bKeyDown &#58;= &#123; | nKey, nFlags | IF&#40; nKey == VK_NEXT &#46;AND&#46; !EMPTY&#40; cCodArt &#41; &#46;AND&#46; &#40; !EMPTY&#40;cCodTag&#41; &#46;AND&#46; oV&#58;cGesTag = &quot;S&quot; &#46;OR&#46; EMPTY&#40;cCodTag&#41; &#46;AND&#46; oV&#58;cGesTag != &quot;S&quot;&#41; , &#40;NewRiga&#40; oBrw, oG &#41;, oG&#91;3&#93;&#58;setfocus&#40;&#41;&#41; , NIL &#41;, TastiFun&#40; nKey, nFlags, oBrw, mov_tmp-&gt;mov_cod, mov_tmp-&gt;mov_tag, oSayTot, codOpe, cCodCli, oG, lAperCassaOk &#41;, ChgTotali&#40; oSaytot &#41; &#125;\n    oG&#91;7&#93;&#58;bKeyDown &#58;= &#123; | nKey, nFlags | IF&#40; nKey == VK_NEXT &#46;AND&#46; !EMPTY&#40; cCodArt &#41; &#46;AND&#46; &#40; !EMPTY&#40;cCodTag&#41; &#46;AND&#46; oV&#58;cGesTag = &quot;S&quot; &#46;OR&#46; EMPTY&#40;cCodTag&#41; &#46;AND&#46; oV&#58;cGesTag != &quot;S&quot;&#41;, &#40;NewRiga&#40; oBrw, oG &#41;, oG&#91;3&#93;&#58;setfocus&#40;&#41;&#41; , NIL &#41;, TastiFun&#40; nKey, nFlags, oBrw, mov_tmp-&gt;mov_cod, mov_tmp-&gt;mov_tag, oSayTot, codOpe, cCodCli, oG, lAperCassaOk &#41;, ChgTotali&#40; oSaytot &#41; &#125;\n[/code:eh43z1t4]\n\nO modificar la clase tget todas las veces que actualice... no se puede poner una data global por default para que se comporte en este modo o no?\n\nGracias','',0,'AIA=','eh43z1t4',1,0,'',106,0,0),(46344,8893,3,868,0,'219.64.121.60',1200391327,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:1okxcn0t]Master Nageswaragunupudi,\n\nI am including \"ado.ch\", but I have seen you use for \'CreateParameter\',  adDate, adParamReturnValue, adInteger and adParamInput. Is there another \"include\" for this?\nWhere can I get more information for CreateParameter?\n[/quote:1okxcn0t]\nPlease see this\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/default.asp\">http://www.w3schools.com/ado/default.asp</a><!-- m -->\nwe get all information here\nFor more information refer to msdn','',0,'gA==','1okxcn0t',1,0,'',868,0,0),(46345,9609,3,106,0,'85.34.123.173',1200391435,1,0,1,1,1,1,'','','James,\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->   It\'s my fault... \n\nI have a timer that import data from a database every 45 seconds... and save and retrieves the work areas... recno, focus, selected...\n\nthe class twbrowse don\'t lost the scopes...\n\nThank you again.\n\n\nRegards','',0,'gA==','3oibqmpu',1,0,'',106,0,0),(46346,9623,6,1236,0,'200.146.115.96',1200391455,1,0,1,1,1,0,'','','grato','',0,'gA==','2vfzacxk',1,0,'',1236,0,0),(46347,8893,3,868,0,'219.64.121.60',1200391600,1,0,1,1,1,1,'','','Here is the include file for all the constants.  \n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/83948081/adodef.zip.html\">http://rapidshare.com/files/83948081/adodef.zip.html</a><!-- m -->','',0,'gA==','1aa2g6gu',1,0,'',868,0,0),(46348,9611,3,868,0,'219.64.121.60',1200391758,1,0,1,1,1,1,'','','[quote=&quot;ask&quot;:2x6k4qh6]Thank you for your answer.I did not know all this things .As i can understand being you seem to know allot about databases and indexes . Can you please tell me which of the 2 RDDs (DBFntx , DBFcdx) is faster and more reliable ? \n\nThank you very much\nA.S.K[/quote:2x6k4qh6]\nBetween the two, DBFCDX.\nI read in some posts that now there is a new RDD which is even better.  I havent tried.\nI am using ADS.','',0,'gA==','2x6k4qh6',1,0,'',868,0,0),(46349,9619,23,308,0,'84.148.19.245',1200391972,1,0,1,1,1,0,'','','Hallo Stefan, \n\n[quote=&quot;StefanHaupt&quot;:tac4b9xq]bis jetzt noch nicht, ich wußte gar nicht, daß das geht. Wo hast du denn die Beschreibung der Schnittstelle her (IWebBrowser) ? Hast du ein Beispiel für den Aufruf ?[/quote:tac4b9xq]\n\nFür Firefox gibt es eine spezielle Erweiterung, um Firefox aus deinem eigenen Programm als ActiveX zu verwenden.\nDownload und Beschreibung: [url:tac4b9xq]http&#58;//www&#46;iol&#46;ie/~locka/mozilla/control&#46;htm[/url:tac4b9xq]\n\n[quote=&quot;StefanHaupt&quot;:tac4b9xq]Nur so eine Idee, ist Firefox dein Standardbrowser ? Teste mal, ob´s dann klappt.\n[/quote:tac4b9xq]\n\nStandardbrowser hat ja keinen Einfluss, wenn du ein oActiveX programmierst. Ich dachte nur, das hat schon mal jemand verwendet.\n\nGruss, Norbert','',0,'kA==','tac4b9xq',1,0,'',308,0,0),(46350,9630,6,316,0,'213.97.245.163',1200392908,1,0,1,1,1,0,'','El editor de recursos del Pelles C puede editar diálogos ...','como texto? He buscado en las opciones pero no lo encuentro. Quiero cambiar los IDs de los controles, reordenarlos y esas cosas que me salen mejor editando el texto directamente (demostrando que no todo es visual en esta vida), pero no he logrado encontrar esa posibilidad. Si fuera rc no habría problemas, pero resulta ser una dll.\n\nTal vez no lo tiene, tal vez no lo he sabido encontrar. Apelo a la experiencia de los compañeros a ver si me pueden dar una pista.\n\nOtro incoveniente que he encontrado es que la opción de igualar espacios al seleccionar varios controles altera la posicion de los controles extremos, por ejemplo al intentar espaciar 3 controles el primero lo sube hasta el borde superior del diálogo, y el último lo baja hasta el inferior. Estoy haciendo algo mal?\n\nUn saludo,\n\nCarlos.','',0,'kA==','165en2ul',1,0,'',316,0,0),(46351,8893,3,868,0,'219.64.121.60',1200393772,1,0,1,1,1,1,'','','I thought this website will be of interest to those who look for connection strings for different databases\n\n<!-- m --><a class=\"postlink\" href=\"http://www.connectionstrings.com/\">http://www.connectionstrings.com/</a><!-- m -->','',0,'kA==','1gdlhpqt',1,0,'',868,0,0),(46352,9617,3,972,0,'78.21.224.104',1200394626,1,0,1,1,1,0,'','','Antonio,\n\n[quote=&quot;Antonio Linares&quot;:29tzdtar]oGet1:bLClicked = { || BringWindowToTop( oWnd2:hWnd ), oGet1:SetFocus() }[/quote:29tzdtar]\nOk, this seems to works, thanks!\n\nPatrick','',0,'gA==','29tzdtar',1,0,'',972,0,0),(46353,8893,3,9,0,'85.59.186.228',1200394669,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1zsxg0z9]Please see this\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/default.asp\">http://www.w3schools.com/ado/default.asp</a><!-- m -->\nwe get all information here\nFor more information refer to msdn[/quote:1zsxg0z9]\n\nThanks again Mr Nageswaragunupudi.\n\nRegards','',0,'gA==','1zsxg0z9',1,0,'',9,0,0),(46354,9629,7,2,0,'87.218.146.22',1200394970,1,0,1,1,1,1,'','','Toni,\n\n&gt; ¿No será un problema propio de la funcion dbusearea?\n\nLa única explicación que se nos ocurre es que esa función haga algo que en la tarjeta de memoria no está permitido.\n\nHabría que preguntarle a Przemek y como última solución tracear la función a bajo nivel.','',0,'gA==','1nuuw3qy',1,0,'',2,0,0),(46355,9631,3,161,0,'213.119.247.107',1200395423,1,0,1,1,1,0,'','GetNetCardID() bug?','Hi,\n\nI use GetNetCardID() in my programs. \nNormaly I have a cable-internetconnection, but sometime when I am with a client I use a phoneconnection to check my mail.\nIf I connect to the internet with a phoneconnection, then run my program, the GetNetCardID() returns \'00000000000\'. Is that correct?\nIf I log off again, I get the normal result.\n\nI just moved to Vista. I never checked this beheviour with XP. Is this a problem with Vista or was it the same with XP.\n\nRegards,\nMarc','',0,'gA==','3dmn2pfi',1,0,'',161,0,0),(46356,9629,7,57,0,'80.30.100.25',1200396274,1,0,1,1,1,1,'','','Antonio\nOjalá encontráramos la solución. \n\n¿Podrias hacerle tu a  Przemek la pregunta?. Te estaría agradecido.\nNo tengo acceso al SVS de Harbour. \n\nSaludos.','',0,'gA==','u8ajtz8k',1,0,'',57,0,0),(46357,9629,7,57,0,'80.30.100.25',1200396640,1,0,1,1,1,1,'','','Pedro\nEl problema sucede solo en el Emulador, pero en mi caso desistí en utilizar las tarjetas de almacenamiento por problemas con los índices. Esto hace algun tiempo.\nSaludos','',0,'gA==','i1khnnvy',1,0,'',57,0,0),(46358,9632,3,35,0,'65.188.6.143',1200397520,1,0,1,1,1,0,'','Tabs from resource','To All\n\nPlease forgive me is this question has been asked before .. I have a dialog that I want to put multiple tabs in and within those tabs I want a listbox and 3 buttons ..\n\nI have never used tabs .. looked in the examples and in the limited time .. could not find anything close ...\n\nAny help would be appreciated ..\n\nRick Lipkin','',0,'gA==','a712947h',1,0,'',35,0,0),(46359,9629,7,2,0,'87.218.146.22',1200398307,1,0,1,1,1,1,'','','Toni,\n\nEl problema es solo en el emulador ? No ocurre en la tarjeta de memoria de la PDA real ?','',0,'gA==','1z70mza4',1,0,'',2,0,0),(46360,9632,3,2,0,'87.218.146.22',1200398370,1,0,1,1,1,1,'','','Rick,\n\nDo you mean tabs or folders ?','',0,'gA==','1orlfg8p',1,0,'',2,0,0),(46361,9632,3,1236,0,'200.146.115.96',1200398446,1,0,1,1,1,0,'','','DEFINE WINDOW oWndChild  OF ownd MDICHILD TITLE \"Touch\" \n\n@ 8, 0 TABS oTabs PROMPTS \" Alimentar Mesas \",\" Outras Opções \" OF oWndChild ;\n        ACTION ( aDlgs[ nDlg ]:Hide(), nDlg := nOption,;\n                 aDlgs[ nOption ]:Show(), aDlgs[ nOption ]:SetFocus() ) color CLR_BLACK\n\noWndChild:oBottom = oTabs\noWndChild:Resize()\n*************************************\n* 1 dlg\n*\n\nDEFINE DIALOG oDlg1 RESOURCE if(pVideo1&gt;800,\"TOUCHTELA1\",\"TOUCHTELAA800\") OF oWndChild\n\nredefine get oprod var vprod of oDlg1 id 4013 PICTURE \"9999999999999\" \n\nredefine listBox tcobRW1 Fields OF oDlg1 id 4012 COLORS \n\ntcobRW1:lAdjBrowse   := .f.\ntcobRW1:lAdjLastCol  := .t.\ntcobRW1:aHJustify    := {2,0,1}\ntcobRW1:aJustify     := {2,0,1}\ntcobRW1:nHeaderStyle := 3\ntcobRW1:nLineStyle   := 2\ntcobRW1:nclrbackfocus:= {|| CLR_HBLUE}\ntcobRW1:nClrNFBack   := {|| CLR_HBBLUE}\ntcobRW1:nHeaderHeight:= 19\ntcobRW1:nLineHeight  := 18\ntcobRW1:nFreeze      := 3\ntcobRW1:aHeaders     := {\"Cód.\",\"Descrição\",\"Qtde\"}\ntcobRW1:nClrPane     := {|| IF(tcobRW1:nat % 2 == 0,CLR_LGRAY,CLR_LGREEN)}\ntcobRW1:bLine        := {|| If( Len(aProdtch)&lt;1 .or. tcobRW1:nAt&gt;Len(aProdtch),array(3),;\n                             { trans(aProdtch[tcobRW1:nat,1],\'999999\'),;\n                               trans(aProdtch[tcobRW1:nat,2],\'@!\'),;\n                               trans(aProdtch[tcobRW1:nat,4],\'9999.999\')})}\ntcobRW1:setArray(aProdtch)\ntcobRW1:Refresh()\n\n***sub-grupos\n\nredefine listBox obRW2 Fields OF oDlg1 id 4016 COLORS CLR_BLACK,CLR_LGREEN SIZES 100\n\nobRW2:lDrawHeaders := .F.\nobRW2:lAdjBrowse   := .f.\nobRW2:lAdjLastCol  := .t.\nobRW2:aJustify     := {2}\nobRW2:nHeaderStyle := 3\nobRW2:nLineStyle   := 2\nobRW2:nclrbackfocus:= {|| CLR_HBLUE}\nobRW2:nClrNFBack   := {|| CLR_HBBLUE}\nobRW2:nLineHeight  := if(pVideo1&gt;800,52,46)\nobRW2:setArray(subgrupos)\nobRW2:Refresh()\n\n\n\n****imagens\n\n\nREDEFINE image ToBti[1]  ID 4053 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,1,aprodsubs)) CURSOR ocurfot\nREDEFINE image ToBti[2]  ID 4054 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,2,aprodsubs)) CURSOR ocurfot\nREDEFINE image ToBti[3]  ID 4055 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,3,aprodsubs)) CURSOR ocurfot\nREDEFINE image ToBti[4]  ID 4056 OF oDlg1 PIXEL ADJUST ON CLICK (achareg(nPG,4,aprodsubs)) CURSOR ocurfot\n\n\nREDEFINE BUTTONBMP tchbtn[1]  ID 4010 OF oDlg1 ACTION(okenter())     CANCEL\nREDEFINE BUTTONBMP tchbtn[2]  ID 4019 OF oDlg1 ACTION(calculatch(0)) CANCEL\nREDEFINE BUTTONBMP tchbtn[3]  ID 4011 OF oDlg1 ACTION(tchclr())      CANCEL\nREDEFINE BUTTONBMP tchbtn[4]  ID 4007 OF oDlg1 ACTION(calculatch(1)) CANCEL\nREDEFINE BUTTONBMP tchbtn[5]  ID 4008 OF oDlg1 ACTION(calculatch(2)) CANCEL\nREDEFINE BUTTONBMP tchbtn[6]  ID 4009 OF oDlg1 ACTION(calculatch(3)) CANCEL\nREDEFINE BUTTONBMP tchbtn[7]  ID 4004 OF oDlg1 ACTION(calculatch(4)) CANCEL\nREDEFINE BUTTONBMP tchbtn[8]  ID 4005 OF oDlg1 ACTION(calculatch(5)) CANCEL\nREDEFINE BUTTONBMP tchbtn[9]  ID 4006 OF oDlg1 ACTION(calculatch(6)) CANCEL\nREDEFINE BUTTONBMP tchbtn[10] ID 4001 OF oDlg1 ACTION(calculatch(7)) CANCEL\nREDEFINE BUTTONBMP tchbtn[11] ID 4002 OF oDlg1 ACTION(calculatch(8)) CANCEL\nREDEFINE BUTTONBMP tchbtn[12] ID 4003 OF oDlg1 ACTION(calculatch(9)) CANCEL\n\n\nREDEFINE group     tchbtn[17] PROMPT \"Produtos - Página: 1 de 1\" ID 5555 OF oDlg1 transparent\n\n\nREDEFINE BUTTONBMP tchbtn[13] ID 4020 OF oDlg1 BITMAP \"DOWN\"        ACTION(obRW2:godown(),obRW2:setfocus()) CANCEL\nREDEFINE BUTTONBMP tchbtn[14] ID 4021 OF oDlg1 BITMAP \"UP\"          ACTION(obRW2:goup(),obRW2:setfocus())   CANCEL\nREDEFINE BUTTONBMP tchbtn[15] ID 4018 OF oDlg1 BITMAP \"REGVOLTA\"    ACTION(mudapagina(@nPG,nTo,.f.,aprodsubs,tchbtn,tipo)) CANCEL\nREDEFINE BUTTONBMP tchbtn[16] ID 4022 OF oDlg1 BITMAP \"REGAVANCA\"   ACTION(mudapagina(@nPG,nTo,.t.,aprodsubs,tchbtn,tipo)) CANCEL\nREDEFINE BUTTONBMP tchbtn[18] ID 4084 OF oDlg1 BITMAP \"QUIT\"        ACTION(oDlg1:END())   CANCEL TEXTTOP\nREDEFINE BUTTONBMP tchbtn[19] ID 4085 OF oDlg1 BITMAP \"MAME\"        ACTION(TECLADOTOUCH(fonte_TCH,@aProdtch))   CANCEL\nREDEFINE BUTTONBMP tchbtn[20] ID 4086 OF oDlg1 BITMAP \"DOWN\"        ACTION(tcobRW1:godown(),tcobRW1:setfocus()) CANCEL\n\nACTIVATE DIALOG oDlg1 NOWAIT ON INIT (oDlg1:Move( 0, 0 ));\n                                VALID( IF(oWndChild#NIL,oWndChild:END(),),.T.)\n\n**********************\n* dlg 2\n\nDEFINE DIALOG oDlg2 RESOURCE \"TOUCHTELA\" OF oWndChild\n\nredefine listBox pfaobRW Fields OF oDlg2 id 511 SIZES 45,100,400,80,80,80,70,20,80 COLORS CLR_BLACK,CLR_LGREEN\n\npFaobRW:lAdjBrowse   := .t.\npFaobRW:lAdjLastCol  := .t.\npFaobRW:aHJustify    := {2,2,0,1,1,1,2,2,1}\npFaobRW:aJustify     := {2,2,0,1,1,1,2,2,1}\npFaobRW:nHeaderStyle := 3\npFaobRW:nLineStyle   := 2\npFaobRW:nclrbackfocus:= {|| CLR_HBLUE}\npFaobRW:nClrNFBack   := {|| CLR_HBBLUE}\npFaobRW:nHeaderHeight:= if(pVideo1&gt;800,33,31)\npFaobRW:nLineHeight  := 36\npFaobRW:setArray(aProdtch)\npFaobRW:Refresh()\n\n**\n\nREDEFINE BUTTONBMP obtc[1] ID 4017 OF oDlg2 BITMAP \"USER\"      \n\nACTIVATE DIALOG oDlg2 NOWAIT ON INIT (oDlg2:Move( 0, 0 ));\n                             VALID(IF(oWndChild#NIL,.F.,.T.))\n\n\noDlg2:Hide()\noDlg1:SetFocus()\naDlgs:={ oDlg1, oDlg2 }\n\nACTIVATE WINDOW oWndChild maximized  valid( oWndChild:=NIL,oTabs:end(),ocurfot:end(),fonte_TC5:end(),fonte_TC2:end(),fonte_TCH:END())\n\n\n\nEspero ter ajudado!','',0,'','axo64i6w',1,0,'',1236,0,0),(46362,9629,7,57,0,'80.30.100.25',1200398993,1,0,1,1,1,1,'','','Antonio\nHe realizado pruebas con una PDA con WM5, SD Card y Storage Card y en ambas tarjetas funciona correctamente. \n\nNo tengo una PDA con WM6 pero me imagino que funcionará correctamente.\n\nSaludos','',0,'','240mbxhc',1,0,'',57,0,0),(46363,9629,7,2,0,'87.218.146.22',1200399356,1,0,1,1,1,1,'','','Toni,\n\nHas probado a abrir las 80 bases de datos en el emulador (tarjeta memoria), sin que usen índices ?','',0,'','b5wk4ion',1,0,'',2,0,0),(46364,9629,7,57,0,'80.30.100.25',1200402044,1,0,1,1,1,1,'','','Antonio\nEstoy utilizando el mismo ejemplo para todo. En el ejemplo no utilizo indices.\nSaludos','',0,'','p4ulofxz',1,0,'',57,0,0),(46365,9633,6,24,0,'80.24.12.168',1200402077,1,0,1,1,1,1,'','TIP: Themes Buttons con Imagen','Ejemplo de como dotar a un boton standard de Windows una imagen, sin tener que usar BTNBMP, porque este no respeta el tema del Windows Vista.\n\nAsi, ahora que me a dado por tener una aparencia en mis aplicaciones elegantes, el uso de BTNBMP no da la talla.\n\nPero vamos al grano;\n\n[code:3tssg74c]\n#define BM_SETIMAGE        0x00F7\n#define IMAGE_BITMAP        0\n#define IMAGE_ICON          1\n\n      DEFINE DIALOG oDlg NAME &quot;Tool&quot;\n        DEFINE BITMAP oBmp NAME &quot;imagen1&quot;\n        REDEFINE BUTTON oBtn PROMPT &quot;Image&quot;  ID 104  OF oDlg\n\n      ACTIVATE DIALOG oDlg ;\n               ON INIT SendMessage&#40; oBtn&#58;hWnd, BM_SETIMAGE, IMAGE_BITMAP, oBmp&#58;hBitmap &#41;\n[/code:3tssg74c]\n\nAhora si que tenemos unos botones cojonudos con imágenes!!\nCon el editor de Recursos VSX, teneis que activar Image, o el ICON, dependiendo que efecto querais usar, solo el Bitmap, o Bitmap con texto.\n\nAdemas, este sirve desde Windows 95, asi que seria interesante dotar de un method al boton para que cargue directamente la imagen pasada,\n¿ No creés Antonio ?\n\nReferencia en;\n[url:3tssg74c]http&#58;//msdn2&#46;microsoft&#46;com/en-us/library/bb761822(VS&#46;85)&#46;aspx[/url:3tssg74c]\n\nEspero que os sirva.','',0,'EIA=','3tssg74c',1,0,'',24,0,0),(46366,9597,3,217,0,'200.159.120.34',1200402182,1,0,1,1,1,0,'','','Hello!\n\nI have this problem using arrays, I use SQLRDD and all my xBrowses is based on arrays. When I use the sequence Page Up/Page Down/Up key/Down key (I don\'t get yet the correct sequence) first line is displayed in wrong place (like posted picture in firts posts from this topic).\nI\'m trying use SysRefresh like said and I think is working fine... I\'ll do a lot of tests emulating real circumstances. Any news I post here!\n\nBest regards,\nMaurilio','',0,'EIA=','1nadoc0f',1,0,'',217,0,0),(46367,9634,6,228,0,'201.244.65.30',1200403340,1,0,1,1,1,1,'','Xbrowse Tres preguntas','Amigos del foto buen dia, como siempre aqui molestando.\n\n1) Estoy trabajando con el autoedit del xbrowse, hasta ahora todo bien. Pero me surgio la necesidad de bloquear dos columnas del xbrowse para que no se puedan editar. Como puedo hacer esto?\n\n2) Tambien me surgio la necesidad de poder validar los datos a medida que se desplaza sobre el xbrowse, como por ejemplo verificar si la referencia digitada existe. \n\n3) Como hago para que al terminar de digitar en la ultima columna el xbrowse baje y agrege un nuevo registro.\n\nAmigos de Antemano Gracias','',0,'EIA=','si85jd2w',1,0,'',228,0,0),(46368,9632,3,35,0,'167.7.140.254',1200404586,1,0,1,1,1,0,'','','Antonio\n\nIt looks like testfld2.prg will get me started .. thanks\n\nRick','',0,'EIA=','cv512gqu',1,0,'',35,0,0),(46369,9632,3,35,0,'167.7.140.254',1200410825,1,0,1,1,1,0,'','','Antonio\n\nWhy is ( custom ) control ( folder32 ) 110 generating an error :\n\n//---- error\nApplication\n===========\n   Path and name: C:\\FOX\\VEHSQL\\Veh32.Exe (32 bits)\n   Size: 2,200,576 bytes\n   Time from start: 0 hours 0 mins 14 secs \n   Error occurred at: 01/15/2008, 10:25:38\n   Error description: Error FiveWin/3  Cannot create Dialog Box: \nÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿResource: WORKORD\n\nStack Calls\n===========\n   Called from:  =&gt; CREATEDLGERROR(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: WORKVIEW.PRG =&gt; _WORKVIEW(477)\n   Called from:  =&gt; _DOIT(91)\n   Called from: WOMENU.PRG =&gt; (b)_WOMENU(22)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: WOMENU.PRG =&gt; _WOMENU(28)\n   Called from: MANTMENU.PRG =&gt; (b)_MANTMENU(29)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: MAIN.PRG =&gt; MAIN(354)\n\n//--- rc file\n\nWORKORD DIALOG 22, 9, 407, 277\nSTYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_THICKFRAME\nFONT 8, \"MS Sans Serif\"\n{\n EDITTEXT 125, 6, 18, 29, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 120, 38, 18, 36, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 117, 79, 18, 49, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 118, 132, 18, 51, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 119, 204, 18, 27, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 121, 235, 18, 42, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 132, 281, 18, 49, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 122, 235, 41, 95, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 131, 235, 55, 48, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 145, 235, 81, 48, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 135, 235, 95, 48, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 123, 79, 41, 49, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 126, 132, 41, 28, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 129, 79, 55, 49, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 130, 132, 55, 28, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 124, 79, 68, 81, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 133, 79, 81, 81, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 134, 34, 95, 126, 12, WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;Add Parts\", 114, 6, 123, 50, 14\n PUSHBUTTON \"&amp;Add Labor\", 137, 7, 187, 50, 14\n LTEXT \"Serial#\", -1, 177, 41, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n PUSHBUTTON \"&amp;Edit Parts\", 115, 6, 137, 50, 14\n PUSHBUTTON \"&amp;Delete Parts\", 116, 6, 151, 50, 15\n EDITTEXT 128, 349, 18, 45, 12, WS_BORDER | WS_TABSTOP\n [b:2euofacu]CONTROL \"\", 110, \"FOLDER32\", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 63, 118, 331, 122\n PUSHBUTTON \"&amp;Quit\", 112, 356, 33, 40, 22\n PUSHBUTTON \"&amp;Print\", 127, 356, 70, 40, 13\n PUSHBUTTON \"&amp;Edit Labor\", 138, 7, 201, 50, 14\n PUSHBUTTON \"&amp;Delete Labor\", 139, 7, 215, 50, 14\n EDITTEXT 140, 63, 248, 38, 12, WS_BORDER | WS_TABSTOP\n EDITTEXT 141, 135, 248, 36, 12, WS_BORDER | WS_TABSTOP\n LTEXT \"Total\", -1, 325, 248, 27, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n EDITTEXT 142, 354, 248, 43, 12, WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"C&amp;lose\", 143, 356, 83, 40, 13\n PUSHBUTTON \"&amp;Reopen\", 144, 356, 96, 40, 13\n PUSHBUTTON \"&amp;Void WO\", 146, 312, 96, 40, 13\n EDITTEXT 147, 207, 248, 37, 12, WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;Outside\", 148, 312, 57, 40, 13\n PUSHBUTTON \"&amp;Tires\", 149, 312, 70, 40, 13\n EDITTEXT 150, 280, 248, 38, 12, WS_BORDER | WS_TABSTOP\n PUSHBUTTON \"&amp;Memo\", 151, 312, 83, 40, 13\n EDITTEXT 152, 235, 68, 48, 12, WS_BORDER | WS_TABSTOP\n LTEXT \"Odometer IN\", -1, 177, 55, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Odometer OUT\", -1, 177, 68, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Program Area\", -1, 177, 81, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Technician\", -1, 177, 95, 53, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Date / Time IN\", -1, 7, 41, 66, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Date / Time OUT\", -1, 7, 55, 66, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Contact Person\", -1, 7, 68, 66, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Contact Phone\", -1, 7, 81, 66, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Re:\", -1, 7, 95, 22, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Shop ID\", -1, 6, 4, 29, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"License       Make                Model                        Year         Vnumb            EqpTp  \", -1, 39, 4, 291, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Parts Total\", -1, 7, 248, 49, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Tires\", -1, 251, 248, 27, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Outside\", -1, 178, 248, 27, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n LTEXT \"Labor\", -1, 106, 248, 27, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n PUSHBUTTON \"&amp;Edit\", 153, 356, 57, 40, 13\n LTEXT \"Work Order\", -1, 349, 4, 45, 12, SS_NOPREFIX | WS_BORDER | WS_GROUP\n}[b][/b:2euofacu]','',0,'QA==','2euofacu',1,0,'',35,0,0),(46370,9635,6,1195,0,'190.38.49.193',1200411542,1,0,1,1,1,0,'','Pregunta para master Antonio.','Buenos dias Master,\n\nTenia una aplicacion que trabajaba con funciones de libreria Ca Tools para control de impresion en novell netware, y compilado con Ca Cliper 5.3.\n\nMi pregunta es si puedo usar esa misma libreria para usarla con la FWH 7.12\n\n\nde antemano,\n\nmuchas gracias,\n\nsaludos,\n\nAlbeiro Valencia,','',0,'QA==','2w3kv1vx',1,0,'',1195,0,0),(46371,9629,7,106,0,'85.34.123.173',1200411866,1,0,1,1,1,1,'','','Toni,\n\nel unico problema que he encontrado con las SD es cuando la PDA va en stand-by (quisiera que no fuera en stand-by mientras yo lo desee, como hace TomTom Navigator). Sucede que cuando enciendes la PDA y tienes un browse abierto mostrando una base de datos da error... pero.. siempre hay un pero... en el celular-pda HTC TyTN no se por cual motivo no sucede, aunque vaya en stand-by cuando lo enciendes no da error.  <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \nEn todos los otros que he probado da error.\n\nSaludos.','',0,'QA==','uy9r96jh',1,0,'',106,0,0),(46372,9597,3,868,0,'219.64.121.60',1200413119,1,0,1,1,1,1,'','','Here is a reproduction of the problem faced by Mr. Maurilio, also by our users at times.\n[code:p928qkux]\n#include \'fivewin&#46;ch\'\n#include \'xbrowse&#46;ch\'\n\nfunction main&#40;&#41;\n\nlocal ownd, obrw, ocol, adata &#58;= &#123;&#125;, n\n\n	for n &#58;= 1 to 50\n		aadd&#40; adata, &#123; str&#40;n,3&#41;, replicate&#40; chr&#40;64+n&#41;, 20 &#41; &#125; &#41;\n	next n\n\n	define window ownd\n	obrw &#58;= txbrowse&#40;&#41;&#58;new&#40; ownd &#41;\n	obrw&#58;setarray&#40; adata &#41;\n	obrw&#58;acols&#91;1&#93;&#58;cheader &#58;= \'No\'\n	obrw&#58;acols&#91;2&#93;&#58;cheader &#58;= \'details\'\n	obrw&#58;createfromcode&#40;&#41;\n	ownd&#58;oclient &#58;= obrw\n	activate window ownd\n\nreturn nil\n[/code:p928qkux]\nThe problem occurs when the total number of rows is not a multiple of the data rows of the browse.  if not adjust the size of window so  that the number of total rows is not a multiple of datarows.\n\nGo bottom with CtrlEnd or CtrlPgDn.  Keep pressing PgUp till the row number is less than the number of data rows. Now we see the problem.\n\nHere is the screen shot.\n[url=http&#58;//imageshack&#46;us:p928qkux][img:p928qkux]http&#58;//img215&#46;imageshack&#46;us/img215/3632/brwpgupir4&#46;png[/img:p928qkux][/url:p928qkux]','',0,'GIA=','p928qkux',1,0,'',868,0,0),(46373,9632,3,2,0,'87.218.146.22',1200413438,1,0,1,1,1,1,'','','Rick,\n\nFOLDER32 is a define not a string (should not be between \"\").\n\nBetter simply write it as \"SysTabControl32\"','',0,'GIA=','11kmjwem',1,0,'',2,0,0),(46374,9597,3,868,0,'219.64.121.60',1200414561,1,0,1,1,1,1,'','','Here is the fix for this problem:\n[code:fyfita37]\nMETHOD PageUp&#40; nLines &#41; CLASS TXBrowse\n\n   local nSkipped\n\n   if &#58;&#58;nLen &lt; 1\n      return nil\n   endif\n\n   DEFAULT nLines &#58;= &#58;&#58;RowCount&#40;&#41;\n\n   &#58;&#58;CancelEdit&#40;&#41;\n   &#58;&#58;Seek&#40;&#41;\n   &#58;&#58;DrawLine&#40;&#41;\n\n   nSkipped = Eval&#40; &#58;&#58;bSkip, -nLines &#41;\n\n   if nSkipped = 0\n      &#58;&#58;DrawLine&#40;&#46;t&#46;&#41;\n      return nil\n   endif\n\n   if -nSkipped &lt; nLines\n      &#58;&#58;nRowSel = 1\n   	if &#58;&#58;bChange != nil\n   	   Eval&#40; &#58;&#58;bChange, Self &#41;\n   	endif\n      // &#58;&#58;lRefreshOnlyData &#58;= &#46;t&#46;\n      &#58;&#58;Super&#58;Refresh&#40; &#46;f&#46; &#41;\n      if &#58;&#58;oVScroll != nil\n         &#58;&#58;VGoTop&#40;&#41;\n      endif\n   else\n      // FIX &#58; Insert the following three lines\n      if eval&#40; &#58;&#58;bkeyno &#41; &lt; &#58;&#58;nRowSel     // fix\n         eval&#40; &#58;&#58;bKeyNo, &#58;&#58;nRowSel &#41;      // fix\n      endif                                          // fix\n      // FIX &#58; END\n   	if &#58;&#58;bChange != nil                  \n   	   Eval&#40; &#58;&#58;bChange, Self &#41;       \n   	endif                                     \n      // &#58;&#58;lRefreshOnlyData &#58;= &#46;t&#46;\n      &#58;&#58;Super&#58;Refresh&#40; &#46;f&#46; &#41;\n      if &#58;&#58;oVScroll != nil\n         &#58;&#58;VSetPos&#40; &#58;&#58;VGetPos&#40;&#41; + nSkipped &#41;\n      endif\n   endif\n\nreturn nil\n\n[/code:fyfita37]\nMr. Maurilio\n\nPlease apply this fix and see if your problem is solved.  I am sure it does. Please confirm\n\nMr. Antonio\nIf you examine and approve the fix we shall incorporate this.','',0,'AIA=','fyfita37',1,0,'',868,0,0),(46375,9635,6,2,0,'87.218.146.22',1200415737,1,0,1,1,1,1,'','','Albeiro,\n\nNo, no se puede: Una librería para Clipper es de 16 bits. FWH y Harbour/xHarbour son de 32 bits. No se pueden \"mezclar\" 16 y 32 bits.','',0,'AIA=','3113i38l',1,0,'',2,0,0),(46376,9635,6,24,0,'80.24.12.168',1200415753,1,0,1,1,1,1,'','Re: Pregunta para master Antonio.','[quote=&quot;albeiroval&quot;:1ekuprmn]Buenos dias Master,\n\nTenia una aplicacion que trabajaba con funciones de libreria Ca Tools para control de impresion en novell netware, y compilado con Ca Cliper 5.3.\n\nMi pregunta es si puedo usar esa misma libreria para usarla con la FWH 7.12\n\n\nde antemano,\n\nmuchas gracias,\n\nsaludos,\n\nAlbeiro Valencia,[/quote:1ekuprmn]\nLa misma libreria no, porque no puedes usar librerias de 16 bits con Harbour 32 bits.\nLo que puedes hacer es coger el port de las CaTools que hay en Harbour y mirar si existe esa funcion.','',0,'gA==','1ekuprmn',1,0,'',24,0,0),(46377,9636,6,362,0,'200.158.18.196',1200415983,1,0,1,1,1,1,'','TOOLTIPS MUI RAPIDOS','Buenas foro... \n\nUna duda:\n\nComo hago para que los TOOLTIPS, no sean tan rápidos?\n\nnecesito mas tiempo para lerlos.\n\nGracias y saludos a todos.','',0,'gA==','2fpii3f6',1,0,'',362,0,0),(46378,9632,3,35,0,'167.7.140.254',1200416414,1,0,1,1,1,0,'','','Antonio\n\nBeen a crazy day here .. phone going nuts .. all kinds of problems so I haven\'t had too much time to concentrate ..\n\nI did see the include statement in the .rc and after bludgening myself silly .. I opened Winapi.ch and found the translation you mentioned ..\n\nI was able to insert it into my .rc and I think I have what I need to make my idea work ..\n\nThanks so much !!\n\nRick Lipkin','',0,'gA==','2fn0drwn',1,0,'',35,0,0),(46379,9632,3,34,0,'68.5.217.82',1200416545,1,0,1,1,1,1,'','Folders','Rick,\n\nI use folders without any problems.  If you need immediate responses feel free to email me at timstone at masterlinksoftware dot com or MLSDG on AIM.  I\'d be glad to help and I\'m at the computer all day today.\n\nTim','',0,'gA==','1eqm2f30',1,0,'',34,0,0),(46380,9630,6,131,0,'194.179.55.36',1200417361,1,0,1,1,1,0,'','','Editalo con tu editor de código. No me suena de nada lo que pides, y llevo usando PellesC mucho tiempo.\n\nSaludos,','',0,'gA==','7qw4acu9',1,0,'',131,0,0),(46381,9609,3,303,0,'72.220.181.80',1200417402,1,0,1,1,1,0,'','','Pedro,\n\nGlad you found the problem.\n\n&gt; have a timer that import data from a database every 45 seconds... and save and retrieves the work areas... recno, focus, selected...\n\nI just open a new copy of the database rather than trying to save and restore the state. Unlike the old days when memory was a real issue, today it isn\'t. \n\nYou may want to consider using a database class--they are so much easier to program. FW has one and I have one that is more advanced. My TData class automatically opens a database in a new area so you never have to deal with areas. More info here:\n\n[url:plp23b4s]http&#58;//ourworld&#46;compuserve&#46;com/homepages/jbott/program&#46;htm[/url:plp23b4s]\n\n&gt;the class twbrowse don\'t lost the scopes...\n\nI\'m glad to hear that too.\n\nRegards,\nJames','',0,'EA==','plp23b4s',1,0,'',303,0,0),(46382,9637,6,131,0,'194.179.55.36',1200417458,1,0,1,1,1,0,'','msgbox a la Windows Vista','<!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/?p=303\">http://www.avemundi.com/?p=303</a><!-- m -->\n\nSaludos,','',0,'EA==','2ew0resq',1,0,'',131,0,0),(46385,9600,6,1055,0,'84.122.57.235',1200417987,1,0,1,1,1,0,'','','Ya !!!!!\nPero trabaja con la DLL,  no con la LIB que ofrece bastante más.\n¿Tu ahora puedes darle contraste a una foto? ¿o rotarla? ¿Cambiar de resolución? ¿Añadir un canal alpha?\nCon la DLL se podría pero hay que averiguar cómo. Con la LIB es mucho más facil (te dan los prototipos de función en las correspondientes cabeceras) y rápido.','',0,'EA==','3t2wm9uc',1,0,'',1055,0,0),(46386,9630,6,316,0,'213.97.245.163',1200419618,1,0,1,1,1,0,'','','Hola Jose Luis,\n\ngracias por responder. No lo puedo editar con el editor de código porque, tal como habia explicado, resulta que los recursos están en una DLL.\n\n¿Como haces para distribuir uniformemente el espacio en un grupo de controles? En el workshop y el editor del BCC++ tenía la opción de que me distribuya homogeneamente los controles, y lo usaba frecuentemente ya que creaba los controles a lo bruto \'tirandolos\' donde caigan y luego con el alineado los dejaba prolijos. \n\nUn saludo,\n\nCarlos.','',0,'EA==','3laoa2bc',1,0,'',316,0,0),(46387,9630,6,2,0,'87.218.146.22',1200419697,1,0,1,1,1,1,'','','Carlos,\n\nHas probado el nuevo editor de recursos del VSX ?\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9572\">http://fivetechsoft.com/forums/viewtopic.php?t=9572</a><!-- m -->','',0,'EA==','2i6uunfp',1,0,'',2,0,0),(46390,9629,7,2,0,'87.218.146.22',1200420059,1,0,1,1,1,1,'','','Toni,\n\nPrueba con este cambio:\n[code:3hbyh2cz]\nif ! File&#40; cFile &#41;\n   MsgAlert&#40; &quot;el fichero no está aún disponible&quot; &#41;\nelse\n   Dbusearea&#40; &#46;T&#46; ,&quot;DBFCDX&quot; , cFile, cAlias, &#46;f&#46; ,&#46;f&#46; &#41; \nendif\n[/code:3hbyh2cz]\nTal vez los ficheros esten creados en caché de memoria y no volcados aún a la tarjeta','',0,'AIA=','3hbyh2cz',1,0,'',2,0,0),(46391,9630,6,316,0,'213.97.245.163',1200420104,1,0,1,1,1,0,'','','Hola Antonio,\n\nme descargué los instaladores aca en el trabajo pero no he tenido tiempo de probarlos, a los que estamos en el tema contable estas fechas son movidas, y con el PGC nuevo ni hablar.\n\nEn casa los tengo descargados, pero como es un ordena nuevo casi no tengo instalado nada para programar aún.\n\nYa lo probaré y te cuento.\n\nUn saludo,\n\nCarlos.','',0,'AIA=','1pavh5lq',1,0,'',316,0,0),(46393,9635,6,1195,0,'190.38.49.193',1200420386,1,0,1,1,1,0,'','Gracias Rafa Carmona, otra pregunta ?','Rafa,\n\nLo que quiero es imprimir desde la aplicacion en un impresora que esta \nen otra estacion que esta asignada a una cola asi :\n\n\nPrintserver = servidor_impresion\ncola = cola_facturacion\nprinter = epson lx 300\n\nse puede hacer con el comando \"NET USE .... \"\n\ngracias,\n\nAlbeiro,','',0,'AIA=','3quiagin',1,0,'',1195,0,0),(46394,9629,7,57,0,'80.30.100.25',1200420756,1,0,1,1,1,1,'','','Antonio\nNo salta el Alert. De todas formas he probado a realizar solo la apertura de ficheros (si el DBCREATE) y sucede lo mismo. Y te recalco lo mismo, si realizo un FOPEN funciona no produce error.\nSaludos','',0,'AIA=','hglv3qge',1,0,'',57,0,0),(46395,9629,7,57,0,'80.30.100.25',1200420940,1,0,1,1,1,1,'','','Pedro\nEl tema del stand-by nunca me ha pasado. Aunque el 99% de los casos guardo el ejecutable en Memoria. \nUtilizo Ipaq de varios modelos y funciona correctamente sin generar error en los Browses.\n\nUtilizas el modo de apertura Shared??. Si es así prueba a quitarlo.\nSaludos.','',0,'AIA=','2e2v5qq9',1,0,'',57,0,0),(46396,9632,3,35,0,'167.7.140.254',1200421425,1,0,1,1,1,0,'','','Tim\n\nThank you for your gracious reply .. I think I have got this thing working the way I want .. \n\nI have multiple tables with listboxes open and instead of navigating away from the main form ( with buttons ) .. I wanted to \'tab\' thru them individually.\n\nActually made for quite a clean(er) dialog box and using SQL recordsets cached locally .. it is very \'smooth\'\n\nRick Lipkin','',0,'AIA=','9q7fn0y0',1,0,'',35,0,0),(46397,9632,3,34,0,'68.5.217.82',1200422252,1,0,1,1,1,1,'','Folders','Been there, done that ... but with independent dialogs on each folder.  Its just cleaner in the .rc file.','',0,'AIA=','2crfxic5',1,0,'',34,0,0),(46398,9633,6,2,0,'87.218.146.22',1200422395,1,0,1,1,1,1,'','','Rafa,\n\nRevisa la clase TButtonBmp\n\nTienes un ejemplo en samples\\TestBuBm.prg','',0,'AIA=','1m1clovy',1,0,'',2,0,0),(46399,9642,6,1195,0,'190.38.49.193',1200422516,1,0,1,1,1,0,'','Para Rafa Carmona ...','Rafa,\n\nDisculpa la molestia pero quiero saber donde encuentro \nlas funciones que en CaTools eran NNETSETQ() NNETCAPSSF()\nNNETCAPBEG() NNETCAPEND() en sus homolgos para Harbour.\n\nVeo en las contribuciones de Harbour que aparece una \nlibreria para harbour que es LIBCT y otra que es LIBNF de nanforum\npero no las pude bajar.\n\nante todo muchas gracias,\n\nsaludos,\n\nalbeiro,','',0,'AIA=','2tmhgn55',1,0,'',1195,0,0),(46400,9634,6,278,0,'200.126.113.242',1200422708,1,0,1,1,1,1,'','','Hola Leandro: \n\nYo utilizo lo siguiente:\n\n1) Para bloquear una Columna puedes ocultar la columna  o quitar el edit con:\n\n[code:1eoe1v7x]\n          //oBrw&#58;aCols&#91;1&#93;&#58;nEditType &#58;= EDIT_GET_BUTTON  \n[/code:1eoe1v7x]\nAl comentar no me permite editar la columna 1.\n\n2) Para validar utiliza los metodos:\n\n[code:1eoe1v7x]\noBrw&#58;aCols&#91;1&#93;&#58;bOnPostEdit &#58;= &#123; || Sumar&#40; aDatos ,  oBrw &#41;  &#125; \noBrw&#58;aCols&#91;1&#93;&#58;bEditValid &#58;= &#123; || Sumar&#40; aDatos , oBrw &#41; , TRUE &#125;\n[/code:1eoe1v7x]\n\n3) Lo voy a estudiar,\n\nSaludos [/code]','',0,'AIA=','1eoe1v7x',1,0,'',278,0,0),(46401,9643,6,1090,0,'201.254.58.240',1200423010,1,0,1,1,1,0,'','impresion de graficos en impresoras laser','Hola. Tengo un programa donde hago un grafico con GRAPH, y luego trato de imprimirlo con: odlg:print() o con odlg:hardcopy(3) \nsi la impresora por defecto es una deskjet, funciona, pero si la impresora es una laser, imprime una hoja en blanco. ¿alguna idea de que puede ser? \nProbé con varias impresoras laser diferentes, probé en 3 PC\'s distintas, y siempre me encuentro con el mismo sintoma. Espero puedan ayudarme.\nGracias. Atte.','',0,'AIA=','1020fy7f',1,0,'',1090,0,0),(46402,9628,6,36,0,'164.77.81.210',1200423868,1,0,1,1,1,1,'','','Dany\n\nYo lo hago de la siguiente manera\n\n[code:40qqaqqx]	if file&#40; &quot;imagen\\vehiculo&#46;bmp&quot; &#41;\n		aRowCol &#58;= oPrn&#58;Cmtr2Pix&#40;nFila,6&#41;\n		aSize &#58;=   oPrn&#58;Cmtr2Pix&#40;10,12&#41;\n		oPrn&#58;SayBitmap&#40; aRowCol&#91;1&#93;, aRowCol&#91;2&#93;, &quot;imagen\\vehiculo&#46;bmp&quot;, aSize&#91;2&#93;, aSize&#91;1&#93; &#41;\n	endif\n[/code:40qqaqqx]\n\nespero que te sirva','',0,'AIA=','40qqaqqx',1,0,'',36,0,0),(46403,9644,3,1257,0,'195.93.60.7',1200423888,1,0,1,1,1,1,'','Next Focus on Gets in Resources when pressing RETURN','It is just a Dialog from Resources \nas a sample with 3 Gets and 2 Buttons\nThe resource looks like :\n\nObj        Var      Order      ID\n\noGet1    cGet1     1         110\noGet2    cGet2     2         120\noGet3    cGet3     3         130\n\noBtn1                 4           1\noBtn2                 5           2\n\nWhen I Press &lt; RETURN &gt; in cGet1,\noBtn1 gets the Focus not cGet2\nIn the ressource the order is ok (  1 to 5 like in sample )\n\nWith RETURN, the next field doesn\'t get the focus\n\n\nGreetings from Germany / Essen\n\nU. König','',0,'AIA=','27wmwh7v',1,0,'',1257,0,0),(46404,9630,6,131,0,'83.49.185.90',1200424481,1,0,1,1,1,0,'','','Carlos:\nPellesC tiene funciones para igualar el espacioamiento de controles y alinearlos. Cuando en un formulario seleccionas varios controles se activan estas funcionalidades en la barra de botones. Yo apenas los uso, tengo unas guias de diseño de formulariios - <!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/?p=228\">http://www.avemundi.com/?p=228</a><!-- m --> - y lo hago a mano.\nAntonio, no he probado el VSX pero me parece matar moscas a cañonazos. No creo que hagan falta nosecuantoscientosdemegas para un editor de recursos.\n\nSaludos,','',0,'AIA=','aru8icjb',1,0,'',131,0,0),(46405,9634,6,228,0,'201.244.65.30',1200424803,1,0,1,1,1,1,'','Amigo...','Amigo gracias por responder... es lo que necesitaba... Logre validar con:\n\noBrw:aCols[1]:bEditValid := { || Sumar( aDatos , oBrw ) , TRUE } \n\nSera que me puedes explicar mas a fondo que hace este comando? Que pena mi ignorancia.\n\noBrw:aCols[1]:bOnPostEdit := { || Sumar( aDatos ,  oBrw )  } \n\nMuchas Gracias','',0,'','medembqn',1,0,'',228,0,0),(46406,9645,23,1257,0,'195.93.60.7',1200425156,1,0,1,1,1,1,'','RETURN-Taste in Get-Feldern von Resourcen','Hallo, aus Essen\n\nIch habe ein seltsames Verhalten innerhalb\nvon Resourcen festgestellt :\n\nEin einfaches Beispiel :\n\nObj       Var   Reihenfolge   ID-Nr.\n-----------------------------------------\noGet1   cGet1      1             110\noGet2   cGet2      2             120\noGet3   cGet3      3             130\n\noBtn1                 4               1\nobtn2                 5               2\n\nEin ganz normaler Dialog.\nDrücke ich nun in cGet1  &lt; RETURN &gt; \nerwarte ich natürlich das cGet2 den nächsten Focus\nbekommt. \nLeider erhält nun oBtn1 den Focus.\nLiegt das an den vergebenen ID-Nummern ?\n\nViele Grüße aus Essen\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','2cxm22g6',1,0,'',1257,0,0),(46407,9646,3,1158,0,'200.159.198.154',1200425388,1,0,1,1,1,0,'','fwh and harbour','hi, after several months without compile with harbour, i try again, but :\n\nthe contrib dir is changed? rddas is hbrddads?\n\nharbour need pcrepos.lib??\n\nonly this or there more?\n\nthanks','',0,'','1qzckbic',1,0,'',1158,0,0),(46408,9644,3,303,0,'72.220.181.80',1200425650,1,0,1,1,1,0,'','','&gt;With RETURN, the next field doesn\'t get the focus \n\nIt was standard behavior in DOS apps for Return to move from field to field. It is standard behavior in Windows apps for Tab to move from field to field. It is also standard Windows behavior for Return to cause the \"default pushbutton\" to be depressed. This allows the user to make a change to a field, then press Return to save the changes. No mouse required. No multiple Returns required.\n\nSo you are describing standard Windows behavior. I would not suggest changing it, as most other Windows apps work the same way. Even if you have users of an old app that are used to using Return for field movement, you are just purpetuating this habit which makes it more difficult for them to remember which way the app they are currently working in works.\n\nIf you still wish to change this behavior, then note that the default pushbutton always has an ID of 1. Change this ID to different number.\n\nJames','',0,'','cw5sibjk',1,0,'',303,0,0),(46409,9514,2,362,0,'200.158.18.196',1200427073,1,0,1,1,1,1,'','','Data type error\n\nProbable tiene un CAMPO(FIELD) NUMERICO Y INTENTAS UN REPLACE CON UNA VARIABLE ALFANUMERICA.','',0,'','1fv64y83',1,0,'',362,0,0),(46410,9630,6,53,0,'189.139.11.202',1200427091,1,0,1,1,1,1,'','','Carlos:\n\nUso PellesC y no tengo problemas para hacer lo que necesitas, como dice Jack \"el destripador\", vamos por partes:\n\n1.- Te recomiendo que desactives el grid del dialogo pues con el grid activo Pelles alinea el control a la línea del grid más proxima.\n\n2.- Para cambiar los ID de los controles, debes dar doble clic sobre el control a cambiar para que se abra el dialogo de propiedades, luego das doble clic sobre la propiedad \"Nombre\" para que te permita modificar el ID\n\n3.- Para reordenar los controles, es decir cambiar el orden en que recibiran el foco, utiliza el cuarto boton de izquierda a derecha, en la barra de botones que te muestra cuando abres el dialogo, para cambiar el orden debes ir dando doble clic al control que quieres ordenar, es igual que WorkShop.\n\n4.- En la misma barra de botones tienes los botones para alinear a la izquierda, derecha, centrado, centrar al tamaño del dialogo, etc etc.\n\nEspero que esto te sirva en algo.\n\nSaludos','',0,'','23k9r6xk',1,0,'',53,0,0),(46412,9627,6,78,0,'190.43.176.223',1200428019,1,0,1,1,1,0,'','','Para MySQL, imagino que tambien va para SQL-MS, es algo lento pero me funciona a 100......\n\n[code=fw:1tm46wxm]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\">...<br />cfile := <span style=\"color: #ff0000;\">&quot;imagen.jpg&quot;</span>                               <span style=\"color: #B900B9;\">// tomamos la imagen</span><br />cImagen := MEMOREAD<span style=\"color: #000000;\">&#40;</span>cFile<span style=\"color: #000000;\">&#41;</span>                 <span style=\"color: #B900B9;\">// la lleemos con memoread</span><br />cChr    := Text2Hex<span style=\"color: #000000;\">&#40;</span>cImagen<span style=\"color: #000000;\">&#41;</span>                <span style=\"color: #B900B9;\">// la convertimos a hexadecimal</span><br />cFile   := STRTRAN<span style=\"color: #000000;\">&#40;</span>cFile,<span style=\"color: #ff0000;\">&quot;<span style=\"color: #000000;\">\\&quot;</span>,&quot;</span>/<span style=\"color: #ff0000;\">&quot;)              // depuramos los slash y zas<br /><br />cUpdate := &quot;</span><span style=\"color: #0000ff;\">UPDATE</span> fichas SET fotografia =<span style=\"color: #ff0000;\">\'&quot; + cFile + &quot;\'</span> <span style=\"color: #0000ff;\">WHERE</span> .... <span style=\"color: #ff0000;\">&quot;<br />.........<br /><br /><br />para leerla desde la base de datos...<br />...<br />cChr := ofichas:FieldGet(4)       // obtenemos la cadena almacenada<br />cImagen := Hex2Text(cChr)     // convertimos a texto<br />EscribeTxt(cFile, cImagen)       // la guardamos en un archivo<br />oFoBmp:LoadBmp(cFile)           // i la levantamos con LoadBmp<br />oFoBmp:Refresh()<br />FERASE(cFile)<br />Return(oFoBmp)<br /><br />Function EscribeTxt(cTxt, cFile, lModo, cRuta)<br />local hHandle, cTxTmp, lOk<br />DEFAULT cFile := &quot;</span>nsql.txt<span style=\"color: #ff0000;\">&quot;<br />DEFAULT lModo := .f.<br />DEFAULT cRuta := &quot;</span><span style=\"color: #ff0000;\">&quot;<br /><br />lOk := .f.<br />If lModo<br />  cTxTmp := &quot;</span> <span style=\"color: #ff0000;\">&quot;<br />  If File(cFile)<br />    hHandle := FOpen(cFile)<br />    FRead(hHandle, @cTxTmp, 64000)<br />    FCLose(hHandle)<br />    cTxt := ALLTRIM(cTxTmp) + CHR(13) + CHR(10) + cTxt<br />  EndIf<br />EndIf<br /><br />hHandle := FCREATE(cFile)<br />FWrite(hHandle,cTxt)<br />FClose(hHandle)<br /><br />Return(lOk)<br /><br /><br /><br />Function Text2Hex(cFile)<br />local nLen, nCont, cChr, cBin<br />cBin := &quot;</span><span style=\"color: #ff0000;\">&quot;<br />nLen := LEN(cFile)<br />FOR nCont := 1 TO nLen<br />   cChr := SUBSTR(cFile, nCont, 1)<br />   cBin := cBin + STRTOHEX(cChr)<br />NEXT nCont<br /><br />Return(cBin)<br />//-------------------------------------------------------------------------------------------<br />Function Hex2Text(cFile)<br />local nLen, nCont, cChr, cBin<br />cBin := &quot;</span><span style=\"color: #ff0000;\">&quot;<br />nLen := LEN(cFile)<br />FOR nCont := 1 TO nLen STEP 2<br />   cChr := SUBSTR(cFile, nCont, 2)<br />   cBin := cBin + HEXTOSTR(cChr)<br />NEXT nCont<br /><br />Return(cBin)<br /><br /><br /><br />//====================================================================================================<br />#pragma BEGINDUMP<br />#include &quot;</span>hbapi.h<span style=\"color: #ff0000;\">&quot;<br />#include &quot;</span>hbapiitm.h<span style=\"color: #ff0000;\">&quot;    //#include &quot;</span>hbfast.h<span style=\"color: #ff0000;\">&quot;<br />#include &quot;</span>hbstack.h<span style=\"color: #ff0000;\">&quot;<br />#include &quot;</span>hbdefs.h<span style=\"color: #ff0000;\">&quot;<br />#include &quot;</span>hbvm.h<span style=\"color: #ff0000;\">&quot;<br />#include &quot;</span>hbapierr.h<span style=\"color: #ff0000;\">&quot;<br /><br />HB_ULONG HB_EXPORT hb_hextonum(char *cHex)<br />{<br />   HB_ULONG   ulNum = 0;<br />   char       c;<br />   int        iDigit;<br /><br />   while ( *cHex &amp;&amp; (*cHex == \' \') ) cHex++;<br /><br />   while ( *cHex )<br />   {<br />      ulNum &lt;&lt;= 4;<br /><br />      c = *cHex;<br />      if ( c &gt;= \'0\' &amp;&amp; c &lt;= \'9\' )<br />      {<br />         iDigit = c - \'0\';<br />      }<br />      else if ( c &gt;= \'A\' &amp;&amp; c &lt;= \'F\' )<br />      {<br />         iDigit = c - \'A\' + 10;<br />      }<br />      else if ( c &gt;= \'a\' &amp;&amp; c &lt;= \'f\' )<br />      {<br />         iDigit = c - \'a\' + 10;<br />      }<br />      else<br />      {<br />         ulNum = 0;<br />         break;<br />      }<br />      ulNum += iDigit;<br />      cHex++;<br />   }<br /><br />   return ulNum;<br />}<br /><br />HB_FUNC( NUMTOHEX )<br />{<br />   int       iDigit;<br />   char      ret[ 33 ];<br />   int       iLen, iDefaultLen;<br />   HB_ULONG  ulNum;<br /><br />   if( ISNUM( 2 ) )<br />   {<br />      iLen = hb_parni( 2 );<br />      iLen = ( iLen &lt; 1 ) ? 1 : ( ( iLen &gt; 32 ) ? 32 : iLen );<br />      iDefaultLen = 0;<br />   }<br />   else<br />   {<br />      iLen = 32;<br />      iDefaultLen = 1;<br />   }<br /><br />   if( ISNUM( 1 ) )<br />   {<br />      ulNum = hb_parnint( 1 );<br />   }<br />   else if ( ISPOINTER( 1 ) )<br />   {<br />      ulNum = (HB_PTRDIFF) hb_parptr( 1 );<br />   }<br />   else<br />   {<br />      hb_errRT_BASE_SubstR( EG_ARG, 3012, NULL, &quot;</span>NUMTOHEX<span style=\"color: #ff0000;\">&quot;, 2, hb_paramError( 1 ), hb_paramError( 2 ) );<br />      return;<br />   }<br /><br />   ret[ iLen ] = \'<span style=\"color: #000000;\">\\0</span>\';<br />   do {<br />      iDigit = (int) ( ulNum &amp; 0x0F );<br />      ret[ --iLen ] = iDigit + ( iDigit &lt; 10 ? \'0\' : \'A\' - 10 );<br />      ulNum &gt;&gt;= 4;<br />   } while ( iDefaultLen ? ulNum &gt; 0 : iLen &gt; 0 );<br /><br />   hb_retc( &amp;ret[ iLen ] );<br />}<br /><br /><br />HB_FUNC( HEXTONUM )<br />{<br />   if( ! ISCHAR(1) )<br />   {<br />      hb_errRT_BASE_SubstR( EG_ARG, 3012, NULL, &quot;</span>HEXTONUM<span style=\"color: #ff0000;\">&quot;, 1, hb_paramError( 1 ) );<br />      return;<br />   }<br /><br />   hb_retnint( hb_hextonum( hb_parc( 1 ) ) );<br />}<br /><br /><br />HB_FUNC( STRTOHEX )<br />{<br />   char   *cOutBuf;<br />   char   *cStr;<br />   char   *c;<br />   char   *cSep = &quot;</span><span style=\"color: #ff0000;\">&quot;;<br />   unsigned char  ucChar;<br />   ULONG  ul, ulLen, ulLenSep = 0;<br />   int    iDigit;<br /><br />   if( ! ISCHAR(1) )<br />   {<br />      hb_errRT_BASE_SubstR( EG_ARG, 3012, NULL, &quot;</span>STRTOHEX<span style=\"color: #ff0000;\">&quot;, 2, hb_paramError( 1 ), hb_paramError( 2 ) );<br />      return;<br />   }<br /><br />   if ( ISCHAR( 2 ) )<br />   {<br />     cSep = hb_parc( 2 );<br />     ulLenSep = hb_parclen( 2 );<br />   }<br /><br />   cStr = hb_parc( 1 );<br />   ulLen = hb_parclen( 1 );<br />   c = cOutBuf = (char*) hb_xgrab( ulLen * 2 + ( ulLen - 1 ) * ulLenSep + 1 );<br /><br />   for( ul = 0; ul &lt; ulLen; ul++ )<br />   {<br />      if ( ulLenSep &amp;&amp; ul )<br />      {<br />         memcpy( c, cSep, ulLenSep );<br />         c += ulLenSep;<br />      }<br /><br />      ucChar = (unsigned char) cStr[ ul ];<br /><br />      iDigit = (int) ( ucChar &amp; 0x0F );<br />      c[ 1 ] = iDigit + ( iDigit &lt; 10 ? \'0\' : \'A\' - 10 );<br /><br />      ucChar &gt;&gt;= 4;<br /><br />      iDigit = (int) ucChar;<br />      c[ 0 ] = iDigit + ( iDigit &lt; 10 ? \'0\' : \'A\' - 10 );<br /><br />      c += 2;<br />   }<br />   hb_retclen( cOutBuf, c - cOutBuf );<br />   hb_xfree( cOutBuf );<br />}<br /><br /><br />HB_FUNC( HEXTOSTR )<br />{<br />   char *cOutBuf, *cStr;<br />   char c;<br />   int  iByte, iFirst;<br />   ULONG  ul, ulLen, ulPos, ulAlloc;<br /><br />   if( ! ISCHAR(1) )<br />   {<br />      hb_errRT_BASE_SubstR( EG_ARG, 3012, NULL, &quot;</span>HEXTOSTR<span style=\"color: #ff0000;\">&quot;, 1, hb_paramError( 1 ) );<br />      return;<br />   }<br /><br />   cStr = (char *) hb_parc( 1 );<br />   ulLen = hb_parclen( 1 );<br />   ulAlloc = (int) ( ulLen / 2 );<br />   cOutBuf = (char *) hb_xgrab( ulAlloc + 1 );<br /><br />   ulPos = 0;<br />   iByte = 0;<br />   iFirst = 1;<br /><br />   for ( ul = 0; ul &lt; ulLen; ul++ )<br />   {<br />      iByte &lt;&lt;= 4;<br /><br />      c = *cStr++;<br />      if ( c &gt;= \'0\' &amp;&amp; c &lt;= \'9\' )<br />      {<br />         iByte += c - \'0\';<br />      }<br />      else if ( c &gt;= \'A\' &amp;&amp; c &lt;= \'F\' )<br />      {<br />         iByte += c - \'A\' + 10;<br />      }<br />      else if ( c &gt;= \'a\' &amp;&amp; c &lt;= \'f\' )<br />      {<br />         iByte += c - \'a\' + 10;<br />      }<br />      else<br />      {<br />        continue;<br />      }<br /><br />      iFirst ^= 1;<br />      if ( iFirst )<br />      {<br />        cOutBuf[ ulPos++ ] = (char) iByte;<br />        iByte = 0;<br />      }<br />   }<br />   hb_retclen( cOutBuf, ulPos );<br />   hb_xfree( cOutBuf );<br />}<br /><br />#pragma ENDDUMP</span></div>[/code:1tm46wxm]','cfbdf44035ddbec83e9a8e767d7465ac',0,'AIA=','1tm46wxm',1,0,'',78,0,0),(46413,9572,6,12,0,'201.229.181.95',1200429278,1,0,1,1,1,1,'','','Antonio, he bajado los dos archivos que indicaste los instale, pero por ningun lado aparcen la opcion me diste mas arriba.','',0,'','2qfk5y24',1,0,'',12,0,0),(46414,9313,3,267,0,'201.9.128.136',1200429333,1,0,1,1,1,1,'','','Antonio,\n\nI received email from Miguel Angel Marchuet communicating already is decided the error message. \n\nYou go to liberate new version of xHarbour/FWH?','',0,'','3lhpcg1m',1,0,'',267,0,0),(46415,9313,3,868,0,'219.64.121.60',1200429421,1,0,1,1,1,1,'','','With the latest CVS everything is working fine','',0,'','1acst61t',1,0,'',868,0,0),(46416,9645,23,308,0,'84.148.19.245',1200429688,1,0,1,1,1,0,'','','Hallo,\n\nhast du denn die Tab-Order in deiner Resource richtig eingestellt ?\n\nGruss, Norbert','',0,'','yq9j5vl9',1,0,'',308,0,0),(46417,9313,3,868,0,'219.64.121.60',1200429820,1,0,1,1,1,1,'','','Hope it is available there still. Try downloading xharbour from this link and with this adordd is working fine.\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/83156204/xharbour.exe.html\">http://rapidshare.com/files/83156204/xharbour.exe.html</a><!-- m -->','',0,'','1koficzx',1,0,'',868,0,0),(46418,9634,6,278,0,'200.126.113.242',1200430663,1,0,1,1,1,1,'','','El bOnpostEdit sirve para efectuar operaciones una vez que hayas terminado de ingresar datos en el GET ( en mod edicion).\n\nEs un bloque de código, en el cual puedes llamar a cualquier funcion de tu interes.\n\nPor ejemplo yo lo uso para mostrar los totales actualizados de mis footer.\n\nSaludos,','',0,'','m4cso1c4',1,0,'',278,0,0),(46419,9313,3,267,0,'201.9.128.136',1200430921,1,0,1,1,1,1,'','','NageswaraRao,\n\nThanks.','',0,'','1lzs6616',1,0,'',267,0,0),(46420,9313,3,868,0,'210.212.216.67',1200431027,1,0,1,1,1,1,'','','Is it working for you now ?','',0,'','315ukwzn',1,0,'',868,0,0),(46421,9646,3,2,0,'87.218.146.22',1200431404,1,0,1,1,1,1,'','','Norberto,\n\nYes, there are many changes thats why we have not published a new Harbour build yet','',0,'','31bhisun',1,0,'',2,0,0),(46422,9313,3,267,0,'201.9.128.136',1200431833,1,0,1,1,1,1,'','','NageswaraRao, \n\nNo, the problem continue !!!','',0,'','xj1r4gs8',1,0,'',267,0,0),(46423,9313,3,868,0,'210.212.216.67',1200432151,1,0,1,1,1,1,'','','link with usrrdd.lib from xharbour lib folder and try','',0,'','1712q76z',1,0,'',868,0,0),(46424,9536,6,1173,0,'200.30.155.146',1200432636,1,0,1,1,1,1,'','','Saludos Antonio:\n\nGracias por tu tiempo, lo probare de inmediato\n\nSaludos','',0,'','20pol64i',1,0,'',1173,0,0),(46425,9630,6,316,0,'87.218.187.176',1200433428,1,0,1,1,1,0,'','','José Luis,\nsiempre leo tus notas técnicas, y aun recuerdo el post donde ponías tus especificaciones en dos imagenes.\nEstoy probando VSX a ver de que va, es cierto que es grande pero quiero ver que otras posibilidades tiene.\n\nArmando,\n\ngracias por tu explicación, pero esos detalles que comentas ya los conocía. Sé que se puede cambiar un ID a través del panel de propiedades, pero cuando quiero hacer esa tarea de manera masiva lo mejor es hacerlo en modo texto. Me extraño no tener la opción de editar el recurso en modo texto ya que esta disponible en todos los editores de recursos que conozco.\nY mi segunda observación del primer post está referida al comportamiento del boton de la barra que indica \'espaciado proporcional\'. En Borland el espaciado se distrubuye homogeneamente entre los controles, espaciándolos con la misma separación, sin mover la posición de los controloes que se encuentran en los extremos. En Pelles SI mueve los controles extremos. Ahora no tengo ni pelles ni Borland instalados, pero luego te muestro un ejemplo del problema que me he encontrado, tal vez lo estoy usando mal.\n\nUn saludo y gracias por las respuestas.','',0,'','3e3czsfl',1,0,'',316,0,0),(46426,9536,6,1173,0,'200.30.155.146',1200433740,1,0,1,1,1,1,'','','Saludos Antonio:\n\nHice lo que sugieres\n\n[quote:eav4navk] Prueba a hacer lo siguiente: \noDlg:bMoved = { || oBar:Refresh() } \n[/quote:eav4navk]\n\nY no surte ningun efecto.\nCon solo estar posicionado en el Get con Password, y pulsar mayusculas un par de veces, se ve el problema.','',0,'gA==','eav4navk',1,0,'',1173,0,0),(46427,9572,6,316,0,'87.218.187.176',1200435122,1,0,1,1,1,0,'','','Antonio,\n\nacabo de terminar de instalar con éxito el editor de recursos. Com punto a favor, aparecen controles nuevos como los command links, como aspecto negativo, el panel de propiedades no muestra algunos atributos que me parecen obvios que los necesito, como la dimensiones del control. O yo no lo se usar... <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nSeguire experimentando y cuento como me va,\n\nCarlos.','',0,'gA==','skscunae',1,0,'',316,0,0),(46428,9572,6,2,0,'87.218.146.22',1200435732,1,0,1,1,1,1,'','','Pablo,\n\nLa instalación de cada fichero se realiza en dos etapas. Primer se crea una carpeta en donde está el fichero de instalación definitiva de cada uno de ellos:\n\nc:\\Visual Studio 2008\n\nAhi dentro estan los ficheros de instalación para instalar','',0,'gA==','2wsbfbti',1,0,'',2,0,0),(46429,9572,6,2,0,'87.218.146.22',1200435863,1,0,1,1,1,1,'','','Carlos,\n\nLas dimensiones de los controles aparecen en la barra de mensajes cuando seleccionas un control','',0,'gA==','1jgn20mf',1,0,'',2,0,0),(46430,9648,6,1195,0,'190.38.49.193',1200436244,1,0,1,1,1,0,'','Funciones NNETSETQ/ NNETCAPSSF/ NNETCAPBEG / NNETCAPEND','hola foro,\n\nbuenas tardes,\n\ntengo la siguiente inquietud :\n\nsera que harbour tiene las siguientes funciones para capturar el\npuerto de impresion y direccionarlo a una cola de impresion novell o algo similar de las siguientes en Ca Tools\n\nNnetsetq()\nNnetcapssf()\nNnetcapBeg()\nNnetcapEnd()\n\n\ngracias foro,\n\nsaludos,\n\nAlbeiro,','',0,'gA==','1ls5c32s',1,0,'',1195,0,0),(46431,9628,6,987,0,'189.132.24.73',1200440161,1,0,1,1,1,0,'','','Gracias a ambos por contesta ya estoy probando ambas opciones, algo he de sacar de provecho..\n\nSi de plano no doy con esto me comunico de nuevo al foro..\n\nSaludos y de Nuevo Gracias de antemano...','',0,'gA==','2y7lt0uw',1,0,'',987,0,0),(46432,9628,6,987,0,'189.132.24.73',1200440576,1,0,1,1,1,0,'','','De nuevo aki molestando:\n\nPatricio Avalos Aguirre:\n\nSolo tengo una duda: donde tomo el valor de nFila en: \naRowCol := oRep:Cmtr2Pix([b:2znopvr3]nFila[/b:2znopvr3],6) \n\nYa que al momento de generar el reporte truena porque no reconoce a esta variable..\n\nGracias..','',0,'QA==','2znopvr3',1,0,'',987,0,0),(46433,9646,3,1158,0,'200.159.198.154',1200441370,1,0,1,1,1,0,'','','Antonio, thanks, i try compile cvs and my appl with sucess, theres several  changes, but it does not confuse the finishing.\n\nthanks','',0,'QA==','3uv8o7lc',1,0,'',1158,0,0),(46434,9649,3,1158,0,'200.159.198.154',1200441671,1,0,1,1,1,0,'','parameter in function working in (x)harbour','hi, i have an old code, using @ in parameters in functions, like:\n\ntest(x, y, @z)\n\nthis works fine in 16bits, but in (x)harbour generate an error, how to skirt this situation?\n\nthis @ is used to change vars in functions called.\n\nthanks','',0,'QA==','3ks0k30f',1,0,'',1158,0,0),(46435,9650,2,890,0,'190.144.148.190',1200442331,1,0,1,1,1,0,'','Campo Date','Hola antonio \n\nEn un campo DATE se requiere que cuando el cursor llegue e este  despliegue un dialogo en donde pinta el mes y el dia resaltado en forma grafica, como lo puedo hacer en FiveWin.\nEsto con el animo de evitar cometer errores de digitacion\n\nDe antemano Gracias por tus enseñanzas\n\nCordialmente\n\nJairo Barbosa','',0,'QA==','2v5mnxxn',1,0,'',890,0,0),(46436,9651,6,492,0,'189.147.68.127',1200445463,1,0,1,1,1,1,'','Diferencias de los Dialogos de un Folder y Pages','Master Antonio\n\nQuitando las pestañas que tiene el folder, que otras diferencias sustanciales hay entre los dialogos de este control y usando las Pages ?\n\nPor mas que le he intentado, no encuentro manera de poner un brush degradado en las Pages, cosa que lo toma sin tanto problema el Folder, tuve que usar una coordenada -14 en un dialogo para poder usar un folder y que este tomara tal brush.\n\nHabria manera de tener un Folder con un parametro y que NO pinte las pestañas ?\n\no en su caso, actualizar los metodos que le pudieran faltar a las Pages ?\n\n\nGracias y Saludos','',0,'QA==','lksiyflv',1,0,'',492,0,0),(46437,9587,6,661,0,'189.155.214.53',1200448288,1,0,1,1,1,0,'','','si Antonio ese estoy usando, con sayimage() tampoco funciona','',0,'QA==','10zgwoq7',1,0,'',661,0,0),(46438,9649,3,868,0,'210.212.216.67',1200458642,1,0,1,1,1,1,'','','This has always been working for me in xharbour and i am extensively using it.','',0,'QA==','jqs47t7z',1,0,'',868,0,0),(46439,9649,3,9,0,'85.59.50.71',1200466393,1,0,1,1,1,1,'','Re: parameter in function working in (x)harbour','[quote=&quot;norberto&quot;:1wpdsykm]this works fine in 16bits, but in (x)harbour generate an error, how to skirt this situation?[/quote:1wpdsykm]\n\nI confirm it is working for me in xHarbour.\n\nRegards','',0,'gA==','1wpdsykm',1,0,'',9,0,0),(46440,8893,3,9,0,'85.59.50.71',1200466899,1,0,1,1,1,1,'','','Mr NageswaraRao\n\nI was using \"CreateParameter\" for get the return of a PL/SQL function. But this morning, I am surprised, because I can get same result from a simple SELECT .... FROM DUAL  using RecordSet. This is easier because avoid to do one xHarbour function for each PL/SQL function. \n\nI would like your comments.\n\nRegards','',0,'gA==','1seicuew',1,0,'',9,0,0),(46441,8893,3,868,0,'219.64.121.60',1200469555,1,0,1,1,1,1,'','','Yes.\n\nWhat I gave you was a simple example for knowing how to use functions and stored procedures from ADO.\n\nThe use of serverside procedures and functions are justified under two circumstances:\n\nFirst reason is simple. Where the result depends on complex data processing, functions / procedures are desirable. If we read individual rows of data all the way from server to client for further processing, it takes more time. Instead the collection and processing the data on the server itself is fast and after processing, the function can provide the processed restult(s).\n\nSecond and most important reason why server side procedures are preferred is to maintain safety and integrity of data, uniform business logic and to make the business logic as well as data design ndependent of the front-end.  Elaboration of this topic is more involved and we can discuss about it, if you are really interested.','',0,'gA==','qk4qd5jc',1,0,'',868,0,0),(46442,9619,23,130,0,'141.51.32.24',1200472992,1,0,1,1,1,1,'','','Hallo Norbet,\n\ndanke für den Link. Ich werds mal testen\n\n[quote:2wx2anjy]Standardbrowser hat ja keinen Einfluss, wenn du ein oActiveX programmierst. [/quote:2wx2anjy]\n\nJa, normalerweise nicht, aber manchmal muß man auch die unwahrscheinlichsten Dinge probieren  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'gA==','2wx2anjy',1,0,'',130,0,0),(46443,9633,6,24,0,'80.24.12.168',1200473230,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3fbmacbt]Rafa,\n\nRevisa la clase TButtonBmp\n\nTienes un ejemplo en samples\\TestBuBm.prg[/quote:3fbmacbt]\nEy! Perfecto!\n\nEl problema es que yo estaba consultando la ayuda de Fivewin, y no he visto nada de esto!\n\nLogicamente no pude suponer que habian clases nuevas, seria conveniente actualizar la ayuda, o si esta, no logro hallar dicho comando de uso.','',0,'gA==','3fbmacbt',1,0,'',24,0,0),(46444,9632,3,49,0,'213.82.134.66',1200473846,1,0,1,1,1,1,'','','We sale a new class  TTabs Office like 2007 Style with Bitmaps\nIf you want you can write on private.','',0,'gA==','3a8asjpo',1,0,'',49,0,0),(46445,8890,3,49,0,'213.82.134.66',1200473988,1,0,1,1,1,1,'','','We sale this new  class .\nyou can write on private email .','',0,'gA==','1x45i1af',1,0,'',49,0,0),(46446,9652,18,24,0,'80.24.12.168',1200474104,1,0,1,1,1,1,'','Class TBUTTONBMP','Antonio, si coges el ejemplo TestBubm.prg, y indicas TEXTBOTTOM, NO FUNCIONA!\n\nTampoco el TEXTTOP.\n\nUsando el SendMessage que te comento en el otro hilo, se realiza correctamente, intentando hacer lo mismo con esta clase, no es posible.','',0,'gA==','2z74bvf8',1,0,'',24,0,0),(46447,9629,7,106,0,'85.34.123.173',1200474175,1,0,1,1,1,1,'','','Toni,\n\nEl ejecutable tambien lo guardo en memoria, pero los datos los guardo en la SD, para que en el caso que la PDA se quede sin baterias no tener perdida de datos.\nEl tema es que si estoy haciendo un browse de una base de datos que está en la SD, cuando va en stand-by me da error. (Hago el doble trabajo de cargar todo en un array y muestro el array, pero trabajo el doble para no tener ese tipo de errores)\n\nSaludos','',0,'gA==','1vv6uu6g',1,0,'',106,0,0),(46448,9649,3,2,0,'87.218.146.22',1200474613,1,0,1,1,1,1,'','','Norberto,\n\nWhat error do you get ?','',0,'gA==','2n9zxa4i',1,0,'',2,0,0),(46449,9633,6,2,0,'87.218.146.22',1200474703,1,0,1,1,1,1,'','','Rafa,\n\nEn la próxima versión FWH 8.02 se incluyen nuevas ayudas (.CHM) totalmente al dia, actualizadas con todas las novedades y cambios <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3rf7z8kg',1,0,'',2,0,0),(46450,9609,3,106,0,'85.34.123.173',1200474736,1,0,1,1,1,1,'','','James, \n\nI\'ll try to open a copy of the database with diferent aliases to solve the problem. \nI will try to use a database class.\n\nThanks again\n\nRegards,','',0,'gA==','2w542n2q',1,0,'',106,0,0),(46451,9587,6,2,0,'87.218.146.22',1200474806,1,0,1,1,1,1,'','','Alex,\n\nHas comprobado que el bitmap esté dentro de la DLL ? Abre la DLL con el editor de recursos que uses.\n\nEn caso de estar, prueba a cambiarle el nombre.','',0,'gA==','3l1vd4rl',1,0,'',2,0,0),(46452,9629,7,2,0,'87.218.146.22',1200475103,1,0,1,1,1,1,'','','Toni,\n\n&gt; si realizo un FOPEN funciona no produce error\n\nHas comprobado que valores devuelve FOpen() ? \n( Que ninguno sea -1 )','',0,'gA==','ic6m70h3',1,0,'',2,0,0),(46453,9648,6,24,0,'80.24.12.168',1200476289,1,0,1,1,1,1,'','Re: Funciones NNETSETQ/ NNETCAPSSF/ NNETCAPBEG / NNETCAPEND','[quote=&quot;albeiroval&quot;:32uorsfu]hola foro,\n\nbuenas tardes,\n\ntengo la siguiente inquietud :\n\nsera que harbour tiene las siguientes funciones para capturar el\npuerto de impresion y direccionarlo a una cola de impresion novell o algo similar de las siguientes en Ca Tools\n\nNnetsetq()\nNnetcapssf()\nNnetcapBeg()\nNnetcapEnd()\n\n\ngracias foro,\n\nsaludos,\n\nAlbeiro,[/quote:32uorsfu]\nHe estado mirando en /source/ct/ donde esta la libreria de las CaTools para Harbour, y creo que estas funciones no estan portadas.','',0,'gA==','32uorsfu',1,0,'',24,0,0),(46454,9653,3,161,0,'213.119.247.134',1200478967,1,0,1,1,1,0,'','cGetdir32() &amp; cGetFile() default path','Hi,\n\nIs there a way to set a default path while opening cGetdir32() and cGetFile()?\n\nThanks,\n\nMarc','',0,'gA==','3ub2o52b',1,0,'',161,0,0),(46455,9652,18,2,0,'87.218.146.22',1200479440,1,0,1,1,1,1,'','','Rafa,\n\nEscribe esas claúsulas en mayúsculas. La clase no estaba comprobando si estaban escritas en mayúsculas.\n\nYa lo hemos arreglado para la próxima versión.','',0,'gA==','114bdwb9',1,0,'',2,0,0),(46456,9651,6,439,0,'190.132.130.134',1200480044,1,0,1,1,1,1,'','Re: Diferencias de los Dialogos de un Folder y Pages','[quote=&quot;Raymundo Islas M.&quot;:297ah5rw]Master Antonio\n\nQuitando las pestañas que tiene el folder, que otras diferencias sustanciales hay entre los dialogos de este control y usando las Pages ?\n\nPor mas que le he intentado, no encuentro manera de poner un brush degradado en las Pages, cosa que lo toma sin tanto problema el Folder, tuve que usar una coordenada -14 en un dialogo para poder usar un folder y que este tomara tal brush.\n\nHabria manera de tener un Folder con un parametro y que NO pinte las pestañas ?\n\no en su caso, actualizar los metodos que le pudieran faltar a las Pages ?\n\n\nGracias y Saludos[/quote:297ah5rw]\n\nAgrego al comentario de Ray que [b:297ah5rw]me ha sido imposible lograr transparencia con un page[/b:297ah5rw], cosa que si he logrado con dialogs y folders.\nHay comentarios ya escritos por mì al respecto pero sin respuesta.\n\nPueden ambos temas estar relacionados?','',0,'wA==','297ah5rw',1,0,'',439,0,0),(46457,9652,18,24,0,'80.24.12.168',1200480297,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1k4hm754]Rafa,\n\nEscribe esas claúsulas en mayúsculas. La clase no estaba comprobando si estaban escritas en mayúsculas.\n\nYa lo hemos arreglado para la próxima versión.[/quote:1k4hm754]\n\nAntonio, las he escrito en mayusculas, es más, en el preprocesado ya realizas el UPPER().\n\n[code:1k4hm754]\n&#46;&#46;             \n&#91; &lt;cPostext&#58; TEXTTOP, TEXTBOTTOM, TEXTLEFT, TEXTRIGHT&gt; &#93; ;\n\n=&gt;&#46;&#46;&#46;&#46;\n         &lt;cPrompt&gt;, &lt;&#46;lCancel&#46;&gt;, &lt;cBitmap&gt;, &#91; Upper&#40;&lt;&#40;cPostext&#41;&gt;&#41; &#93;, &lt;cToolTip&gt; &#41;\n[/code:1k4hm754]\n\nPor lo tanto, algo ocurre porque no se posiciona ni arriba ni abajo, sale en medio.','',0,'gIA=','1k4hm754',1,0,'',24,0,0),(46458,9636,6,362,0,'200.158.18.59',1200481042,1,0,1,1,1,1,'','','Maestro Antonio, Porque esto no funciona en FIVEWIN 2.7??\n[code:1r0sex18]\n    DEFINE DIALOG oDlg  RESOURCE &quot;BROWSE_FORNECEDORES&quot;                       ;\n           BRUSH oBrush TRANSPARENT\n\n    oDlg&#58;lHelpIcon &#58;= &#46;F&#46;\n    oDlg&#58;nToolTip  &#58;= 15000\n[/code:1r0sex18]','',0,'AIA=','1r0sex18',1,0,'',362,0,0),(46459,9653,3,868,0,'219.64.121.60',1200481070,1,0,1,1,1,1,'','','Yes.\nYou can see the full syntax in getfile.c and getdir.c in \\fwh\\source\\winapi folder','',0,'AIA=','11pur35p',1,0,'',868,0,0),(46460,9313,3,267,0,'201.9.128.136',1200483406,1,0,1,1,1,1,'','','NageswaraRao, \n\nThanks, now its ok.','',0,'AIA=','1l39luku',1,0,'',267,0,0),(46461,9313,3,868,0,'219.64.121.60',1200483579,1,0,1,1,1,1,'','','Glad to know.\nI think now Mr. Antonio can officially publish latest xHarbour build along with FWH','',0,'AIA=','28ebdgjo',1,0,'',868,0,0),(46463,9655,6,1265,0,'200.45.177.47',1200484559,1,0,0,1,1,0,'','Depurador compatible con harbour','Hola quisiera saber si alquien tiene el conocimeinto de algun depurador o debugger para el compilador harbour. muchas gracias y viva la blquiceleste!!! <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','2qez81xb',1,0,'',1265,0,0),(46464,9648,6,36,0,'164.77.81.210',1200487389,1,0,1,1,1,1,'','','Hay otras funciones que te pueden servir\n\nDevuelve si hay impresoras capturadas\n[code:1rm82vbt]NetPrinter&#40;&#41;[/code:1rm82vbt]\n\nCaptura un impresora en red\n[code:1rm82vbt]NETREDIR&#40; cLocalDevice, cSharedDevice, &#91; cPassword &#93;, &#91; lShowError&#93; &#41; -&gt; lSuccess[/code:1rm82vbt]\nej:\n[code:1rm82vbt]NETREDIR&#40; &quot;LPT1&quot;, &quot;\\\\bodegarep\\OKIDATAM&quot;&#41;[/code:1rm82vbt]\n\ndevuelve la ubicacion de la impresora capturada\n[code:1rm82vbt]NETRMTNAME&#40; cLocalDevice &#41; -&gt; cSharedName[/code:1rm82vbt]\nej:\n[code:1rm82vbt]NETRMTNAME&#40; &quot;LPT1&quot; &#41;[/code:1rm82vbt]\n\ndevuelve si pudo finalizar una captura \n[code:1rm82vbt]NETCANCEL&#40; &lt;cLocalDevice&gt; &#41; -&gt; lReleased[/code:1rm82vbt]\neje:\n[code:1rm82vbt]NETCANCEL&#40; &quot;LPT1&quot; &#41;[/code:1rm82vbt]\n\nnota: Todas estas funciones son de CT.LIB\n\n\n\nEspero que te sirva','',0,'AIA=','1rm82vbt',1,0,'',36,0,0),(46465,9628,6,36,0,'164.77.81.210',1200488060,1,0,1,1,1,1,'','','Dany\n\nYo utilizo PRINT\n\n[code:3q4q29wc]PRINT oPrn PREVIEW MODAL TO &#40;ViewUsu&#40;&#41;&#58;ordentrabajo&#41;[/code:3q4q29wc]\ny la varialble nFila es la posición de la Fila\n\nte muestro todo el modulo para que lo veas, la imagen funciona en cualquier impresora, tanto en laser como en matriz\n\n[code:3q4q29wc]static Procedure PrnOT&#40;&#41;\nlocal oPrn, aFont&#91;6&#93;, nFila, nRow, nCantLine, n, nTmp, aRowCol, aSize\n\nif !MsgYesNo&#40; &quot;Desea imprimir OT&quot; , &quot;Usuario&quot; &#41;\n	return\nendif\n\nPRINT oPrn PREVIEW MODAL TO &#40;ViewUsu&#40;&#41;&#58;ordentrabajo&#41;\n   DEFINE FONT aFont&#91;1&#93; NAME &quot;COURIER NEW&quot; 			SIZE 0, -8 		  OF oPrn\n   DEFINE FONT aFont&#91;2&#93; NAME &quot;COURIER NEW&quot; 			SIZE 0, -10 	  OF oPrn\n	DEFINE FONT aFont&#91;3&#93; NAME &quot;ABADI MT CONDENSED&quot; SIZE 0, -10 	BOLD OF oPrn\n   DEFINE FONT aFont&#91;4&#93; NAME &quot;COURIER NEW&quot; 			SIZE 0, -8 	BOLD OF oPrn\n	DEFINE FONT aFont&#91;5&#93; NAME &quot;COURIER NEW&quot; 			SIZE 0, -9 	BOLD OF oPrn\n	DEFINE FONT aFont&#91;6&#93; NAME &quot;COURIER NEW&quot; 			SIZE 0, -8 	BOLD UNDERLINE OF oPrn\n\n	oPrn&#58;SetPage&#40;1&#41;\n   oPrn&#58;cDocument &#58;= &quot;Impresión orden de trabajo&quot;\n	oPrn&#58;StartPage&#40;&#41;\n\n	oPrn&#58;CmSay&#40;0&#46;7,1&#46;5, &quot;   WIN-INVENT&quot;, aFont&#91;4&#93; &#41;\n	oPrn&#58;CmSay&#40;1&#46;0,1&#46;5, Parame-&gt;Nom_emp,aFont&#91;4&#93; &#41;\n	oPrn&#58;CmSay&#40;1&#46;0,15, &quot;Fecha&#58;&quot;+dtoc&#40;DateAds&#40;&#41;&#41;,aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40;1&#46;3,1&#46;5, Parame-&gt;Dir_Emp ,aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40;1&#46;3,15, &quot;Hora &#58;&quot;+TimeAds&#40;&#41;,aFont&#91;1&#93;&#41;\n	oPrn&#58;CmSay&#40;1&#46;6,1&#46;5, Parame-&gt;Ciu_Emp, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40;1&#46;9,1&#46;5, Parame-&gt;Fon_Emp, aFont&#91;1&#93; &#41;\n\n	oPrn&#58;CmSay&#40;2&#46;2,8, &quot;ORDEN DE TRABAJO &#40;&quot;+ upper&#40;ALLTRIM&#40;Ot2Tipo&#40; Docu_OT-&gt;Tip_OT &#41;&#41; &#41; + &quot;  Nº &quot; + Alltrim&#40;Docu_OT-&gt;Num_OT&#41;+&quot;&#41;&quot;, aFont&#91;3&#93; &#41;\n\n	nFila &#58;= 3&#46;5\n	nRow  &#58;= 1&#46;7\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;5, &quot;Datos del Cliente&quot;, aFont&#91;6&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 11&#46;5, &quot;Datos del Vehículo&quot;, aFont&#91;6&#93; &#41; ; nFila += &#46;4\n\n	oPrn&#58;CmSay&#40; nFila, nRow, &quot;Rut         &quot; + &quot;&#58;&quot;+nRutVer&#40;Docu_Ot-&gt;Rut_Cli&#41;, aFont&#91;1&#93; &#41;\n\n	if Docu_Ot-&gt;Sto_Cli &gt; 0\n		oPrn&#58;CmSay&#40; nFila, 11&#46;7, &quot;Nº Stock    &quot; + &quot;&#58;&quot;+ltrim&#40;Str&#40;Docu_Ot-&gt;Sto_Cli&#41;&#41;, aFont&#91;1&#93; &#41; ; nFila += &#46;3\n	else\n		oPrn&#58;CmSay&#40; nFila, 11&#46;7, &quot;Patente     &quot; + &quot;&#58;&quot;+Patente-&gt;Num_Pat, aFont&#91;1&#93; &#41; ; nFila += &#46;3\n	endif\n\n	oPrn&#58;CmSay&#40; nFila, nRow, &quot;Razon social&quot; + &quot;&#58;&quot;+Clientes-&gt;Nombre, aFont&#91;1&#93; &#41;\n\n	if Docu_Ot-&gt;Sto_Cli &gt; 0\n		oPrn&#58;CmSay&#40; nFila, 11&#46;7, &quot;Modelo      &quot; + &quot;&#58;&quot;+NumStock-&gt;Des_Stock, aFont&#91;1&#93; &#41; ; nFila += &#46;3\n	else\n		oPrn&#58;CmSay&#40; nFila, 11&#46;7, &quot;Modelo      &quot; + &quot;&#58;&quot;+Patente-&gt;Modelo, aFont&#91;1&#93; &#41; ; nFila += &#46;3\n	endif\n\n	oPrn&#58;CmSay&#40; nFila, nRow, &quot;Dirección   &quot; + &quot;&#58;&quot;+Clientes-&gt;Dir_Cli,aFont&#91;1&#93; &#41;\n\n	if Docu_Ot-&gt;Sto_Cli &gt; 0\n		oPrn&#58;CmSay&#40; nFila, 11&#46;7, &quot;            &quot; + &quot;              &quot;,	 aFont&#91;1&#93; &#41; ; nFila += &#46;3\n	else\n		oPrn&#58;CmSay&#40; nFila, 11&#46;7, &quot;Vim         &quot; + &quot;&#58;&quot;+Patente-&gt;Vin,	 aFont&#91;1&#93; &#41; ; nFila += &#46;3\n	endif\n\n	oPrn&#58;CmSay&#40; nFila, nRow, &quot;Ciudad      &quot; + &quot;&#58;&quot;+VerTabla&#40; &quot;CIU&quot;+Clientes-&gt;Ciu_Cli&#41;,aFont&#91;1&#93; &#41;\n\n	oPrn&#58;CmSay&#40; nFila, 11&#46;7, &quot;Kilometraje &quot; + &quot;&#58;&quot;+ltrim&#40;str&#40;Docu_Ot-&gt;KM_Cli&#41;&#41;, aFont&#91;1&#93; &#41; ; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;5, &quot;Estado del vehículo &#40;observaciones&#41;&quot;, aFont&#91;6&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 11&#46;5, &quot;Detalle del servicio&quot;, aFont&#91;6&#93; &#41; ; nFila += &#46;4\n\n	nTmp &#58;= nFila\n\n	nCantLine &#58;= MlCount&#40; Docu_OT-&gt;Estado_Veh, 45 &#41;\n\n	for n = 1 to nCantLine\n		oPrn&#58;CmSay&#40; nFila, nRow, MemoLine&#40; Docu_OT-&gt;Estado_Veh,45,n &#41;, aFont&#91;1&#93; &#41;\n		if !empty&#40; MemoLine&#40; Docu_OT-&gt;Estado_Veh,45,n&#41; &#41;\n			nFila += &#46;3\n		endif\n	next\n\n	nRow &#58;= 11&#46;7\n	nCantLine &#58;= MlCount&#40; Docu_OT-&gt;Detalle_Ve, 50 &#41;\n\n	for n = 1 to nCantLine\n		oPrn&#58;CmSay&#40; nTmp, nRow, MemoLine&#40; Docu_OT-&gt;Detalle_Ve,50,n&#41;, aFont&#91;1&#93; &#41;\n		if !empty&#40; MemoLine&#40; Docu_OT-&gt;Detalle_Ve,50,n&#41; &#41;\n			nTmp += &#46;3\n		endif\n	next\n\n	nFila &#58;= MAX&#40; nFila, nTmp &#41;\n	nRow &#58;= 1&#46;7\n	nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;5, &quot;**Accesorios del Vehiculo**&quot;, aFont&#91;6&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila,11&#46;5, &quot;**Nivel de Bencina**&quot;, aFont&#91;6&#93; &#41;	; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Documentos   &#91;&quot;+iif&#40; Docu_OT-&gt;Documento, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Triangulos     &#91;&quot;+iif&#40; Docu_OT-&gt;Triangulo, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila,11&#46;7, iif&#40; Docu_Ot-&gt;Nivel_Benc = 1, &quot;1/4&quot;,;\n									iif&#40; Docu_Ot-&gt;Nivel_Benc = 2, &quot;1/4 - 1/2&quot;,;\n									iif&#40; Docu_Ot-&gt;Nivel_Benc = 3, &quot;1/2 - 3&quot;,;\n									iif&#40; Docu_Ot-&gt;Nivel_Benc = 4, &quot;3/4+&quot;, &quot;&quot; &#41; &#41; &#41; &#41;, aFont&#91;1&#93; &#41; ; nFila += &#46;5\n\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Llaves       &#91;&quot;+iif&#40; Docu_OT-&gt;Llaves, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Rueda Repuesto &#91;&quot;+iif&#40; Docu_OT-&gt;Rueda_Rep, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila,11&#46;5, &quot;**Cargo Orden de Trabajo**&quot;, aFont&#91;6&#93; &#41;  ; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Espejo Int&#46;  &#91;&quot;+iif&#40; Docu_OT-&gt;Espejo_In, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Gata           &#91;&quot;+iif&#40; Docu_OT-&gt;Gata, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 11&#46;7, iif&#40; Docu_Ot-&gt;Cargo_OT = 1, &quot;Cliente&quot;,;\n									 iif&#40; Docu_Ot-&gt;Cargo_OT = 2, &quot;Cia&#46;Seguro&quot;,;\n									 iif&#40; Docu_Ot-&gt;Cargo_OT = 3, &quot;E&#46;Garantía&quot;,;\n									 iif&#40; Docu_Ot-&gt;Cargo_OT = 4, &quot;Otro Cliente&quot;, &quot;&quot; &#41; &#41; &#41; &#41;, aFont&#91;1&#93; &#41; ; nFila += &#46;5\n\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Espejo Ext&#46;  &#91;&quot;+iif&#40; Docu_OT-&gt;Espejo_Ex, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Herramientas   &#91;&quot;+iif&#40; Docu_OT-&gt;Herramien, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 11&#46;5, &quot;**Fecha y Hora Ingreso Taller**&quot;, aFont&#91;6&#93; &#41; ; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Plumillas    &#91;&quot;+iif&#40; Docu_OT-&gt;Plumillas, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Cint&#46;Seguridad &#91;&quot;+iif&#40; Docu_OT-&gt;Cint_Segur, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;// ; nFila += &#46;5\n	oPrn&#58;CmSay&#40; nFila,11&#46;7, Dtoc&#40; Docu_OT-&gt;Fec_OT &#41; + &quot; / &quot; + Docu_Ot-&gt;Hora, aFont&#91;1&#93; &#41; ; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Pisos        &#91;&quot;+iif&#40; Docu_OT-&gt;Pisos, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Tapa bencina   &#91;&quot;+iif&#40; Docu_OT-&gt;Tapa_Benc, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 11&#46;5, &quot;**Compromiso de entrega**&quot;, aFont&#91;6&#93; &#41; ; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Tapa Radiador&#91;&quot;+iif&#40; Docu_OT-&gt;Tapa_radia, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Tapa Rueda 1234&#91;&quot;+iif&#40; Docu_OT-&gt;Tapa_Rueda, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila,11&#46;7, Dtoc&#40; Docu_OT-&gt;Fec_Ent &#41; + &quot; / &quot; + Docu_Ot-&gt;Hora_Ent, aFont&#91;1&#93; &#41; ; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Extintor     &#91;&quot;+iif&#40; Docu_OT-&gt;Extintor, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Encendedor     &#91;&quot;+iif&#40; Docu_OT-&gt;Encendedor, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41; ; nFila += &#46;5\n\n	oPrn&#58;CmSay&#40; nFila, 1&#46;7, &quot;Botiquin     &#91;&quot;+iif&#40; Docu_OT-&gt;Botiquin, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41;\n	oPrn&#58;CmSay&#40; nFila, 5&#46;5, &quot;Antena         &#91;&quot;+iif&#40; Docu_OT-&gt;Antena, &quot;SI&quot;, &quot;NO&quot; &#41; + &quot;&#93;&quot;, aFont&#91;1&#93; &#41; ; nFila += &#46;8\n\n	if file&#40; &quot;imagen\\vehiculo&#46;bmp&quot; &#41;\n		aRowCol &#58;= oPrn&#58;Cmtr2Pix&#40;nFila,6&#41;\n		aSize &#58;=   oPrn&#58;Cmtr2Pix&#40;10,12&#41;//m-&gt;x,m-&gt;y&#41;\n		oPrn&#58;SayBitmap&#40; aRowCol&#91;1&#93;, aRowCol&#91;2&#93;, &quot;imagen\\vehiculo&#46;bmp&quot;, aSize&#91;2&#93;, aSize&#91;1&#93; &#41;//3000, 2000 &#41;//m-&gt;x1, m-&gt;x2 &#41;\n	endif\n\n	oPrn&#58;CmSay&#40; 25, 6&#46;5, &quot;   CLIENTE  &quot;, aFont&#91;6&#93; &#41;\n	oPrn&#58;CmSay&#40; 25, 11&#46;5, &quot;  RECEPCIONISTA  &quot;, aFont&#91;6&#93; &#41;\n\n	oPrn&#58;EndPage&#40;&#41;\n\nENDPRINT\n\naEval&#40; aFont, &#123; |x| x&#58;End&#40;&#41; &#125; &#41;\n\nreturn\n//--------------------------------------------------------------------------------------------------------\n\n[/code:3q4q29wc]\n\n\nEspero que te sirva','',0,'AIA=','3q4q29wc',1,0,'',36,0,0),(46466,9653,3,161,0,'213.119.247.134',1200492573,1,0,1,1,1,0,'','','I was using cGetdir32() instead of cGetdir().\nIn cGetdir() I found the parameter, but in cGetdir32() it doesn\'t work.\n\nRegards,\nMarc','',0,'AIA=','2qyjodh6',1,0,'',161,0,0),(46467,9653,3,868,0,'219.64.121.60',1200492819,1,0,1,1,1,1,'','','Please see \\fwh\\source\\function\\dlgs32.prg','',0,'AIA=','1w865u20',1,0,'',868,0,0),(46468,9650,2,228,0,'201.245.254.85',1200494072,1,0,1,1,1,1,'','','Aqui hay algo que creo puede servir\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8117&amp;highlight=dtpicker\">http://fivetechsoft.com/forums/viewtopi ... t=dtpicker</a><!-- m -->\n\nSaludos','',0,'AIA=','1b4v3on7',1,0,'',228,0,0),(46469,9572,6,316,0,'213.97.245.163',1200495150,1,0,1,1,1,0,'','','Antonio,\r\n\r\nsi, se pueden ver las dimensiones, pero no hay posibilidad de mecanizarlas para modificarlas (o se puede y no me dí cuenta). Lo *solo visual* no me resulta del todo efectivo, al menos para las prácticas actuales de mi programación con FW. Editar el diálogo en modo texto y cosas similares de momento me resultan importantes. Preparar un diálogo para un módulo impositivo con entre 30 y 70 gets + sus says, cajas y botones no es trivial, y si encima debo estar peléandome con los ID\'s.. ni hablar.\r\nJosé Luis Sanchez escribió en un artículo de su blog su modelo de diseño de interfaces al cual, pixels más o menos, adhiero y recomiendo. Y para poder aplicarlo de manera efectiva necesito la posibilidad de explicitar los valores de manera escrita.\r\n\r\nUn saludo,\r\n\r\nCarlos','',0,'AIA=','30xf6oaa',1,1224319734,'',316,1,0),(46470,9636,6,362,0,'200.158.19.207',1200495557,1,0,1,1,1,1,'','','Resuelto, \n\nUsando una modificacione en WINDOW.PRG, by ROSSINE the best, está SHOW().\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=11920\">http://www.fivewin.com.br/forum/topic.a ... C_ID=11920</a><!-- m -->\n\nBest regards, saludos.\n\nAntonio, necesitas mejorar los TOOLTIPS en las proximas VERSIONES.\n\nGracias.','',0,'AIA=','14rte301',1,0,'',362,0,0),(46471,9629,7,57,0,'80.30.100.25',1200495686,1,0,1,1,1,1,'','','Antonio\nComprobado.\nTodos los valores devueltos diferentes de -1 \n\nSaludos','',0,'AIA=','25mubpu6',1,0,'',57,0,0),(46472,9656,6,1030,0,'190.55.44.185',1200495841,1,0,1,1,1,0,'','DATETIME FOLDERS CON PELLEC','Hola a todos, tengo dos preguntas:\n\nLa 1º se refiere al control DATETIME del Pellec, antes usaba gets para el ingreso de fechas dentro de mi PRG pero deseo deplegar en cada uno el calendario entonces probe con el control DATETIME pero me encontre conque no me deja, si deseo escribir en el lugar en vez de bscar la fecha.\nAlguien podria decirme que usa de Pellec para esto y como lo redefine.\n\nLa 2º duda es con los folder. Deseo tener varios folder y que si no entran a lo largo de la pantalla que me los ponga abajo.\n\nGracias, natalia.','',0,'AIA=','18mcsd71',1,0,'',1030,0,0),(46473,9632,3,34,0,'68.5.217.82',1200496878,1,0,1,1,1,1,'','Class','How about Folders ?\n\nTim','',0,'AIA=','vggwz90v',1,0,'',34,0,0),(46474,9254,3,868,0,'219.64.121.60',1200498225,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:39oe32ih]We will include it in the next FWH build, once it is available\n\nWe will also make it available for those using FWH 7.12 but have no access to 8.01[/quote:39oe32ih]\n\nMr Antonio\n\nJust a reminder, in case this escaped your mind.  I am waiting for the improvement.  Till then I am using gradient for painting msgitems.','',0,'gA==','39oe32ih',1,0,'',868,0,0),(46475,9633,6,389,0,'189.133.12.198',1200498677,1,0,1,1,1,0,'','','Antonio, \nEs posible hacer tButtonBmp NOBORDER igual como aparecen en la toolbar pero para dialogos y ventanas ? y si es por \"mensaje\" cual haria este efecto..\nSaludos\nGANO','',0,'gA==','1p8fxit3',1,0,'',389,0,0),(46476,9657,2,1088,0,'189.129.237.132',1200503995,1,0,1,1,1,0,'','Conexion a un FTP','Pues comentadole que por fin pude terminar un programa util con twbrowese (gracias a su ayuda), ahora me surge otro problema quiciera poder grabar datos a un servidor FTP ya sea en un archivo ASCII o en una dbf desde otro equipo remoto, es posible ?, que clase debo usar ?\ny si es mucha molestia algun ejemplo ?\nes por medio de ADSL, gracias a todos, ub saludo a todos \n <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'gA==','29n5dtrq',1,0,'',1088,0,0),(46477,9645,23,58,0,'84.149.88.105',1200504102,1,0,1,1,1,0,'','','Hallo U. König,\n\ndu darfst dem Button oBtn1 nicht die ID \'1\' geben.\nDiese ist für den Standard Button vorgesehen, der bei Drücken der Returntaste aktiviert wird.\n\nGruß,\nDetlef','',0,'gA==','30sncv9k',1,0,'',58,0,0),(46478,9658,6,542,0,'80.30.45.35',1200504566,1,0,1,1,1,0,'','Eliminar Proceso del Adiminstrador de Tareas','Hola Amigos:\n\nMi problema es el siguiente tengo una aplicación y desde esta lanzo otra y lo hago mediante un archivo BAT y se ejecuta en MSDOS (que tiempos), mi pregunta es la siguiente podria eliminar este proceso del administrador de Tareas de Windows, aqui se llama cmd.exe.\n\nUn saludo\n\nCarlos','',0,'gA==','1mrrj65k',1,0,'',542,0,0),(46479,9656,6,63,0,'88.11.29.98',1200505489,1,0,1,1,1,0,'','','Natalia:\nYo utilizo Pelles C y cuando pongo un control DateTime lo referencio así:\n[code:1k31hqvh]Redefine DtPicker dFecha Id 4001 Of oDlg\n[/code:1k31hqvh]\nSi quiero escribir una fecha a mano, puedo hacerlo clicando sobre el campo que quiero (dia, o mes, o año) y escribiendo directamente, o incrementándolo/decrementándolo mediante las flechas arriba y abajo del teclado.\nSaludos,\n\nRafael','',0,'AIA=','1k31hqvh',1,0,'',63,0,0),(46480,9629,7,2,0,'87.218.146.22',1200506556,1,0,1,1,1,1,'','','Toni,\n\nHe modificado tu ejemplo quitándole los TRY...CATCH y el bucle FOR Y, y aquí da el error en DbCreate(). No es capaz de crear los ficheros.','',0,'AIA=','1rai1tu6',1,0,'',2,0,0),(46481,9629,7,2,0,'87.218.146.22',1200506833,1,0,1,1,1,1,'','','A veces los crea y a veces no. \n\nNo parece nada fiable la emulación de la \"memory card\", por parte del emulador. Estamos probando con el WM2003','',0,'AIA=','1yhrgp8d',1,1200507769,'',2,1,0),(46482,9629,7,2,0,'87.218.146.22',1200506948,1,0,1,1,1,1,'','','[code:3u6j1xks]\n#include &quot;FWCE&#46;ch&quot; \n\nREQUEST DBFCDX \n\nfunction Main&#40;&#41; \n\n   local oWnd \n\n   DEFINE WINDOW oWnd \n   \n   ACTIVATE WINDOW oWnd ON INIT Pruebas&#40;&#41; ON CLICK oWnd&#58;End&#40;&#41; \n\nreturn nil\n\nfunction Pruebas \n\n   LOCAL cFile &#58;= SPACE&#40; 20 &#41; \n   LOCAL cAlias&#58;= SPACE&#40; 20 &#41; \n   LOCAL x, cDir &#58;= &quot;\\Storage Card\\Prueba\\&quot; \n\n   MsgInfo&#40; &quot;Comenzamos en &quot; + cDir &#41; \n\n   IF ! FILE&#40; cDir &#41; \n      lMkDir&#40; cDir &#41; \n   ENDIF \n\n   FOR X &#58;= 1 TO 80 \n      cFile &#58;= cDir + ALLTRIM&#40;STR&#40;X&#41;&#41; + &quot;&#46;dbf&quot; \n      DBCREATE&#40; cFile, &#123;&#123;&quot;Uno&quot;,&quot;C&quot;,10,0&#125;&#125; &#41; \n   NEXT X \n   MsgInfo&#40; &quot;Creados correctamente &quot; + alltrim&#40; str&#40; x - 1 &#41; &#41; &#41; \n\nreturn nil\n[/code:3u6j1xks]','',0,'AIA=','3u6j1xks',1,0,'',2,0,0),(46483,9652,18,2,0,'87.218.146.22',1200508024,1,0,1,1,1,1,'','','Rafa,\n\nSi revisas el código fuente del método Paint() verás que se tiene en cuenta:\n[code:3h64mcur]\n   if ! Empty&#40; &#58;&#58;hBitmap &#41;\n      if &#58;&#58;cPosText == &quot;TEXTBOTTOM&quot;\n         nTop = 7\n      elseif &#58;&#58;cPosText == &quot;TEXTTOP&quot;\n         nTop = &#58;&#58;nHeight&#40;&#41; - 6 - nBmpHeight&#40; &#58;&#58;hBitmap &#41;\n      else\n         nTop = &#40; &#58;&#58;nHeight&#40;&#41; / 2 &#41; - &#40; nBmpHeight&#40; &#58;&#58;hBitmap &#41; / 2 &#41;\n      endif\n      if &#58;&#58;cPosText == &quot;TEXTRIGHT&quot;\n         nLeft = 7\n      elseif &#58;&#58;cPosText == &quot;TEXTLEFT&quot;\n         nLeft = &#58;&#58;nWidth&#40;&#41; - 6 - nBmpWidth&#40; &#58;&#58;hBitmap &#41;\n      else\n         nLeft &#58;= &#40; &#58;&#58;nWidth&#40;&#41; / 2 &#41; - &#40; nBmpWidth&#40; &#58;&#58;hBitmap &#41; / 2 &#41;\n      endif\n      \n      if &#58;&#58;lActive\n         DrawMasked&#40; &#58;&#58;hDC, &#58;&#58;hBitmap, nTop + If&#40; lPressed, 1, 0 &#41;,;\n                     nLeft + If&#40; lPressed, 1, 0 &#41; &#41;\n      else\n         DrawGray&#40; &#58;&#58;hDC, &#58;&#58;hBitmap, nTop + If&#40; lPressed, 1, 0 &#41;,;\n                     nLeft + If&#40; lPressed, 1, 0 &#41; &#41;\n      endif                     \n   endif   \n[/code:3h64mcur]','',0,'AIA=','3h64mcur',1,0,'',2,0,0),(46484,9655,6,2,0,'87.218.146.22',1200508214,1,0,1,1,1,1,'','','Sergio,\n\nHarbour include su propio debugger. Sólo tienes que compilar con /b los PRGs.\n\nRevisa fwh\\samples\\AltD.prg','',0,'AIA=','16cqkyc1',1,0,'',2,0,0),(46485,9572,6,2,0,'87.218.146.22',1200508397,1,0,1,1,1,1,'','','Carlos,\n\nNosotros seguimos usando el Resources Workshop de Borland, pero para los que quieren ver sus diálogos en 32 bits y con temas, ahí está el VSX que además es gratuito <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nComo todo en la vida, es cuestión de gustos y de necesidades...','',0,'AIA=','w34fhej9',1,0,'',2,0,0),(46486,9313,3,2,0,'87.218.146.22',1200508669,1,0,1,1,1,1,'','','Nageswararao,\n\nIts already published here <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=2486\">http://fivetechsoft.com/forums/viewtopic.php?t=2486</a><!-- m -->','',0,'AIA=','rp75fj88',1,0,'',2,0,0),(46487,9609,3,303,0,'72.220.181.80',1200509439,1,0,1,1,1,0,'','','Pedro,\n\n&gt;I will try to use a database class.\n\nEven if you don\'t use my database class, there are some articles about using database classes on my website that may help you understand them.\n\nRegards,\nJames','',0,'AIA=','ieqo8tip',1,0,'',303,0,0),(46488,9651,6,2,0,'87.218.146.22',1200510638,1,0,1,1,1,1,'','','Raymundo,\n\nVamos a probarlo y te comentamos,\n\nJosé,\n\nLa diferencia es que el control TPages no es nativo de Windows y tiene temas. El TFolder (SysTabControl32) si tiene temas.','',0,'AIA=','20o8jabx',1,0,'',2,0,0),(46489,9633,6,2,0,'87.218.146.22',1200510786,1,0,1,1,1,1,'','','Gano,\n\nSi usas recursos entonces deberías no usar WS_BORDER','',0,'AIA=','3hggoucb',1,0,'',2,0,0),(46490,9629,7,57,0,'80.30.100.25',1200512493,1,0,1,1,1,1,'','','Antonio\nCon tu ejemplo, creados 46 ficheros y ...\n\n[url=http&#58;//img222&#46;imageshack&#46;us/my&#46;php?image=clipboarder2&#46;jpg:296oai4j][img:296oai4j]http&#58;//img222&#46;imageshack&#46;us/img222/619/clipboarder2&#46;th&#46;jpg[/img:296oai4j][/url:296oai4j]\n\nSaludos','',0,'GA==','296oai4j',1,0,'',57,0,0),(46491,9653,3,161,0,'81.83.249.31',1200514834,1,0,1,1,1,0,'','','cGetdir() is working fine but cGetdir32() isn\'t.\nIt is normaly the second parameter that is the init directory. But I don\'t get the directory. Maybe it\'s a Vista problem. I did\'t test it on XP.\n\nMarc','',0,'GA==','h6st1hdy',1,0,'',161,0,0),(46492,9629,7,2,0,'87.218.146.22',1200515126,1,0,1,1,1,1,'','','Toni,\n\nEsa es la cuestión: que a veces los crea todos, a veces solo unos cuantos y no siempre la misma cantidad. \n\nQue solución podemos darle a eso ?','',0,'GA==','2gunjciq',1,0,'',2,0,0),(46493,8893,3,9,0,'85.59.50.71',1200516325,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:28qbnev2]What I gave you was a simple example for knowing how to use functions and stored procedures from ADO.\n[/quote:28qbnev2]\n\nMr. Nagesrarao,\n\nPerhaps I didn\'t explained very well. I like PS/SQL function and I am using it. I am satisfied their utilities and I understand their value.\n\nYou know we have 2 steps for use PL/SQL function/procedure:\n\n1) Creating PL/SQL function/procedure with SQL+, SqlDeveloper, PL/SQL Developer, or other aplication.\n\n2) Our xHarbour/FWH aplication must get the return value of that function/procedure. \nIn this second step, I used \'ADODB.Command\' and createparameters, following your example in \'FUNCTION TestOraFunc( nAddDays )\'.  But after that,  I have discovered I can get the return value of a PL/SQL function/procedure with a general \'ADODB.RECORDSET\' function join a \"select\". It is the same method that used Oracle program I have mentioned above (Sql+, SqlDeveloper, etc), for executes a PL/SQL function. This method is easier and more simple and saving to do, which each PL/SQL function, an individual function in xHarbour, with several parameters (complicated).\n\nI hope you can understand now.\n\nRegards.','',0,'gA==','28qbnev2',1,0,'',9,0,0),(46494,9631,3,161,0,'81.83.249.31',1200523065,1,0,1,1,1,0,'','','Anyone notice this problem?\n\nRegards,\n\nMarc','',0,'gA==','avrzsfoy',1,0,'',161,0,0),(46495,9650,2,890,0,'190.9.66.224',1200525733,1,0,1,1,1,0,'','','[quote=&quot;leandro&quot;:3t5684ah]Aqui hay algo que creo puede servir\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8117&amp;highlight=dtpicker\">http://fivetechsoft.com/forums/viewtopi ... t=dtpicker</a><!-- m -->\n\nSaludos[/quote:3t5684ah]\n\nLeandro\n\nUn saludo Cordial\n\nQuiero agradecerte la explicacion lo intentare desarrollar\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','3t5684ah',1,0,'',890,0,0),(46496,9659,3,666,0,'122.107.143.190',1200526090,1,0,1,1,1,0,'','Converting Microsoft .Docx to .txt','As I understand it, MS Office 2007 replaces .DOC format with .DOCX\n\nI have a routine (per Enrico) to convert a .DOC file to a text file (.TXT) as follows:\n-------\nLOCAL oWord := CREATEOBJECT( \"Word.Application\" ) \nLOCAL oDoc := oWord:Documents:Open( \"e:\\xharbour\\test.doc\" ) \noDoc:SaveAs( \"e:\\MyDir\\NewDocument.txt\", wdFormatDOSText )\noWord:Quit()\n------\nWorks great.\n\nI don\'t have Office 2007 so can anyone tell me what change I have to make to the above to programatically convert a .DOCX file to a text file (.TXT)?\n\nTIA\nCol','',0,'gA==','3ftobveq',1,0,'',666,0,0),(46497,9631,3,2,0,'87.218.146.22',1200528357,1,0,1,1,1,1,'','','Marc,\n\nWe are going to modify GetNetCardID() to return an array with all values, not just the first one found','',0,'gA==','1av1jhos',1,0,'',2,0,0),(46498,9653,3,303,0,'72.220.181.80',1200528504,1,0,1,1,1,0,'','','Marc,\n\nI believe cGetDir32() is only for 16bit use. cGetDir() is the same function when using (x)Harbour. Are you using Clipper?\n\nJames','',0,'gA==','36wqammw',1,0,'',303,0,0),(46499,9651,6,439,0,'200.125.37.83',1200528656,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:jj9p4rsi]\nJosé,\nLa diferencia es que el control TPages no es nativo de Windows y tiene temas. El TFolder (SysTabControl32) si tiene temas.[/quote:jj9p4rsi]\n\nAntonio, Gracias por tu rápida respuesta.\nLa rutina de Altas Bajas y Modificaciones que utilizo está basada en dialogs puestas en pages, por lo cual el que no se pueda dar transparencia a los pages es todo un problema para mí.\n\n2 preguntas:\n\n1) se implementará la transparencia en los pages para una proxima version de fwh?\n\n2) hay otra forma u control con el cual obtener el mismo resultado?','',0,'gA==','jj9p4rsi',1,0,'',439,0,0),(46500,9653,3,343,0,'24.173.70.25',1200529061,1,0,1,1,1,0,'','','cGetDir32() uses an .ini in the windows\\system32 or windows directory, I can\'t remeber which, to pass the parameters. Our network security did not allow us to update it so that function never did work right for us.','',0,'gA==','3qwhvxo7',1,0,'',343,0,0),(46501,9411,18,100,0,'201.16.38.7',1200540562,1,0,1,1,1,1,'','','Antonio\n\nAtualizei meu FWH 7.09 para 7.12 e tive que voltar pro 7.09, pois tinha problema com bKeyDown, adiquiri novamente a 8.01 no qual no WhatsAnew.txt informa:\n\n[quote:11si1c04]\n* Fix: Due to recent Class TGet changes, bKeyDon was evaluated twice. Now it is ok.\n[/quote:11si1c04]\n\n[color=darkblue:11si1c04]\nainda persiste o problema executa 2x a mesma função\n[/color:11si1c04]\n\ne continua o problema\n\n[quote:11si1c04]\noCod:bKeyDown := {|nKey|    iif( nKey=VK_F3, ( lQtd := .T., oQtd:SetFocus() ), ),;\n                              IIF( nKey=VK_F2, ( MenuPdv( oDlg_Pdv, @vmprod, @oBrowse, oSSay ), oCod:SetFocus() ), ),;\n                              IIF( nKey=VK_F4, ( Canc_Cupom( @vmProd, @oBrowse, oSSay, oCod ), oBrowse:Refresh(), oCod:SetFocus(),;\n                                                oEstDbf:Blank(), SysRefresh(), oCod:SetFocus(), oDlg_Pdv:Update() ), ),;\n                              IIF( nKey=VK_F5, ( Finaliza_Venda( @VMProd, oBrowse, oSSay ),;\n                                                cCod := Space(Len(VMREFERE_ESTO)),;\n                                                oCod:SetFocus(),;\n                                                oBmp1:cResName := NIL,;\n                                                IIF( !Empty(USERINFO_BMPIMP), oBmp1:LoadImage(, Alltrim(USERINFO_BMPIMP) ), oBmp1:LoadImage( \"BITMAP_28\") ),;\n                                                oBmp1:refresh(),;\n                                                CaixaLivre( oDlg_Pdv, vmProd, oBrowse, oFnTit3 ) , oDlg_Pdv:Update() ) , ),;\n                              iif( nKey=VK_F6, ( oCod:Disable(), xSetFocus(oBrowse), oCod:Enable() ), ),;\n                              iif( nKey=VK_F7, ( AbreGavetaPDV(), oCod:SetFocus() ), ),;\n                              iif( nKey=VK_F8, ( BuscaPrecoPDV(), oCod:SetFocus() ), ),;\n                              iif( nKey=VK_F9, ( nPeso := 1, MsgRun(\"Aguarde Buscando Peso...\",\"Atenção\",{|| nPeso := PegaPesoBalanca()} ), iif( Empty(nPeso), 1, nQtd := nPeso ), oDlg_Pdv:Update(), oCod:SetFocus() ), ),;\n                              iif( nKey=86   , ( Most_Tela( @vmprod, @oBrowse, .T. ),oBrowse:nRowPos   := Min( Len( vmprod ), 7 ),;\n                                                oBrowse:nAt := Len( vmprod ), xSetFocus(oBrowse), nQtd := 1, cCod := Space(Len(VMREFERE_ESTO)),;\n                                                oQtd:Refresh(), oBtnPrin[4]:Enable(), oBtnPrin[5]:Enable(), oCod:nPos := 1, oCod:Refresh(),;\n                                                oDlg_Pdv:Update() ), ),;\n                              iif( nKey=73   , ( InserirBoleto( @vmprod, @oBrowse, oSSay ), nGer := ASum( vmProd, 4), nQtd := 1, oDlg_Pdv:Update() ), );\n                              , 0 }\n\n[/quote:11si1c04]\n\noutra coisa no menu\n\n[code:11si1c04]\n\n	MENUITEM &quot;&amp;Relatórios&quot;  NAME &quot;BTN_PRINTER&quot;\n	MENU\n		MENUITEM &quot;&amp;1 - Estoque&quot;\n        ENDMENU\n\n[/code:11si1c04]\n\no BITMAP aparece em cima das letras \"axo que esta errado\"\n\nANTONIO quero usar as atualizações mais recentes do FWH mais estou tendo dificuldades justamente na bKeydown\n\nTem como contornar este tipo de problema ou terei que ficar ETERNEMENTE com a FWH 7.09\n\nFico no aguardo\n[/quote]','',0,'goA=','11si1c04',1,0,'',100,0,0),(46502,9660,3,239,0,'219.136.101.185',1200547615,1,0,1,1,1,0,'','How to refresh TTabControl()/(SysTabControl32 noption?','Hi,\n   otabs:=TTabControl():Redefine( 200, oDlg )\n        otabs:baction:={||sto0209(otabs)}\n   ...\n\nreturn \n\nfunction sto0209(otabs)\ndo case \n    case otabs:noption==1\n          obrow1:show()\n    case otabs:noption==2\n          do something\n          otabs:noption:=1\n          otabs:refresh()  // can\'t  change otabs display \nend\nreturn \n\nBest regards!\n\nShuming Wang','',0,'goA=','paaqfn8j',1,1200617107,'',239,1,0),(46503,9661,3,239,0,'219.136.101.185',1200548121,1,0,1,1,1,0,'','fwh712-801 +harbour 1.1( from fivetech) app  crash?','Hi,\n  Someone meets the problem?\n  Sometimes the dialogs get hangup or screen disordered ,controls include 2007 look xbrowse ,buttons,get dialogs.\n\n[url=http&#58;//img404&#46;imageshack&#46;us/my&#46;php?image=hangsr0&#46;jpg:yydn1w1x][img:yydn1w1x]http&#58;//img404&#46;imageshack&#46;us/img404/1097/hangsr0&#46;th&#46;jpg[/img:yydn1w1x][/url:yydn1w1x]\n  Before ,we used xharbour 996+fwh2.5 without the problems.\n  Is there a way to detect which resource not released?\n\n  Off topic, where could upload jpg picture ?\n\nBest regards!\nShuming Wang','',0,'GA==','yydn1w1x',1,1200616863,'',239,1,0),(46504,9254,3,868,0,'219.64.121.60',1200552335,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3e7qojb2]function Gradient() should not be used because it is quite slow and consume a lot of GDI resources.\n\nFWH 7.12 uses StretchBlt() instead of Gradient(). The solution must use StretchBlt(), not Gradient()[/quote:3e7qojb2]\n\nTaking Mr Antonio\'s advice, I am now able to change msgitem painting using bitmap. Removed the gradient code. Here is how it looks:\n\n[url=http&#58;//imageshack&#46;us:3e7qojb2][img:3e7qojb2]http&#58;//img89&#46;imageshack&#46;us/img89/3306/msgbartl3&#46;jpg[/img:3e7qojb2][/url:3e7qojb2]','',0,'mA==','3e7qojb2',1,0,'',868,0,0),(46505,9661,3,2,0,'87.218.146.22',1200554117,1,0,1,1,1,1,'','','Shuming,\n\nPlease use <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w --> to upload the screenshots and copy here the provided URLs to see them.\n\nNo one else has reported those problems about 7.12, or 8.01. Please provide a sample to reproduce them, thanks','',0,'mA==','1r437mj6',1,0,'',2,0,0),(46506,9254,3,2,0,'87.218.146.22',1200554370,1,0,1,1,1,1,'','','NageswaraRao,\n\nVery nice. Could you post a screenshot in a higher colors resolution ? thanks','',0,'mA==','3vv2ja3c',1,0,'',2,0,0),(46507,9411,18,2,0,'87.218.146.22',1200555034,1,0,1,1,1,1,'','','Jackson,\n\nbKeyDown tiene que devolver cero si no quieres que se ejecute dos veces, ó sencillamente elimina este código del Método KeyDown() para dejarlo como estaba:\n[code:z7heq5ii]\n   if &#58;&#58;bKeyDown != nil\n      if ValType&#40; uVal &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41; &#41; == &quot;N&quot; &#46;and&#46; ;\n         uVal == 0\n         return 0\n      endif   \n   endif   \n[/code:z7heq5ii]\nRafa, tu código y el mio hacen lo mismo. La segunda parte de un .AND. no se ejecuta si no se cumple la primera parte.','',0,'AIA=','z7heq5ii',1,0,'',2,0,0),(46508,9660,3,2,0,'87.218.146.22',1200555419,1,0,1,1,1,1,'','','Shuming,\n\nPlease use a MsgInfo() to check that your code go that way:\n\ndo something \notabs:nopion:=1\nMsgInfo( \"here\" )','',0,'AIA=','1lv8209p',1,0,'',2,0,0),(46509,9659,3,51,0,'80.122.88.242',1200557515,1,0,1,1,1,0,'','','Not a real solution - more to see how word 2007 works:\nrename docx to zip – open the zip file - search for document.xml – search for the &lt;w:t&gt;here is the TXT (&lt;/w:t&gt;\nRegards,\nOtto','',0,'AIA=','3dzwdojw',1,0,'',51,0,0),(46510,9631,3,2,0,'87.218.146.22',1200557550,1,0,1,1,1,1,'','','Marc,\n\nWe have already emailed you a new OBJ and instructions about how to use it.\n\nWe wait for your feedback, thanks!','',0,'AIA=','2z0givxf',1,0,'',2,0,0),(46511,9659,3,51,0,'80.122.88.242',1200557946,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/aa982683.aspx\">http://msdn2.microsoft.com/en-us/library/aa982683.aspx</a><!-- m -->\n\nHow to: Manipulate Office Open XML Formats Documents','',0,'AIA=','1hud6crv',1,0,'',51,0,0),(46512,9653,3,130,0,'141.51.32.24',1200558312,1,0,1,1,1,1,'','','Marc,\n\ncGetDir32() was just a wrapper to get the 32bit dialogs in 16bit clipper. This is no more needed using xHarbour/harbour. I recommend to use cGetDir() and cgetFile().','',0,'AIA=','37msrfe5',1,0,'',130,0,0),(46513,9411,18,24,0,'80.24.12.168',1200558524,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:wv5qvray]\nRafa, tu código y el mio hacen lo mismo. La segunda parte de un .AND. no se ejecuta si no se cumple la primera parte.[/quote:wv5qvray]\nUmmm.. tenia esa duda y por seguridad quise QUITARLO de ahi, gracias por comentarlo','',0,'gA==','wv5qvray',1,0,'',24,0,0),(46514,9652,18,24,0,'80.24.12.168',1200558645,1,0,1,1,1,1,'','','Antonio, si, pero si el PREPROCESADOR ya lo pasa a mayúsculas.\nAsi, si lo pruebas no funciona correctamente.','',0,'gA==','3l7gq3o5',1,0,'',24,0,0),(46515,9633,6,24,0,'80.24.12.168',1200558746,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:uebe0pp3]Gano,\n\nSi usas recursos entonces deberías no usar WS_BORDER[/quote:uebe0pp3]\nAntonio, en el editor de recursos VSX no se DONDE se le dice el NOBORDER!\n¿ Sabe alguien como decirlo ?','',0,'gA==','uebe0pp3',1,0,'',24,0,0),(46516,9662,6,75,0,'83.34.193.235',1200562551,1,0,1,1,1,0,'','BuildCommDCB','El problema que tengo con la funcion BuildCommDCB es que no configura el puerto com del PC. La utilizo de la siguiente manera:\n\n[color=red:2h4jojyr]nComHandle:=OpenCom(\"COM4\",1024,1024)\nBuildCommDcb(\"COM4:9600,N,8,1\", @cDcb)[/color:2h4jojyr]\nPara configurarlo tengo que irme al MS-DOS y hacer lo siguiente:\n[color=blue:2h4jojyr]MODE COM4 9600,N,8,1[/color:2h4jojyr]\nAlguien me puede decir qué puede estar pasando o qué hago mal.\n\nGracias.','',0,'Ag==','2h4jojyr',1,0,'',75,0,0),(46517,9632,3,49,0,'213.82.134.66',1200562561,1,0,1,1,1,1,'','','No only TTabs now ... We are working on Folder  style 2007\n\nIf you want We have only folder with bitmaps NO style office 2007 only xp style!!','',0,'Ag==','1iirusy6',1,0,'',49,0,0),(46518,9254,3,49,0,'213.82.134.66',1200562895,1,0,1,1,1,1,'','','NageswaraRao,\nWich ttab control use ?','',0,'Ag==','3v3qz3ca',1,0,'',49,0,0),(46519,9254,3,868,0,'219.64.121.60',1200563625,1,0,1,1,1,1,'','','FWH\' ttabs class, modified for my use.  It is not as good as professionally available products of viacoral or yours. But I prefer to use FWH code or my code to the extent I can manage.\n\n I posted this pic mainly for showing msgitem painting','',0,'Ag==','4djcxmki',1,0,'',868,0,0),(46520,9662,6,2,0,'87.218.146.22',1200564026,1,0,1,1,1,1,'','','Verhoven,\n\nHaz una búsqueda de BuildCommDCB() en los *.PRG de fwh\\samples y verás como hay que usarlo','',0,'Ag==','qsnpvehu',1,0,'',2,0,0),(46521,9633,6,2,0,'87.218.146.22',1200564464,1,0,1,1,1,1,'','','Rafa,\n\nHe probado con \"flat\" true pero nada...','',0,'Ag==','2m58v44p',1,0,'',2,0,0),(46522,9254,3,2,0,'87.218.146.22',1200567153,1,0,1,1,1,1,'','','FWH 8.02 MsgBar with 2007 look:\n\n[url=http&#58;//imageshack&#46;us:3b01vv9s][img:3b01vv9s]http&#58;//img520&#46;imageshack&#46;us/img520/5473/msgbarfr9&#46;png[/img:3b01vv9s][/url:3b01vv9s]\n\nMany thanks to Nageswararao help! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3b01vv9s',1,0,'',2,0,0),(46523,9254,3,49,0,'213.82.134.66',1200567847,1,0,1,1,1,1,'','','it run also with bitmpas ?\n\nand INSET / NOINSET COMMAND ?','',0,'GA==','1g2ta5bm',1,0,'',49,0,0),(46524,9653,3,161,0,'213.119.247.134',1200567994,1,0,1,1,1,0,'','','Hi,\n\nThanks for the answers.\nBefore I was using clipper and FW.\nNow I converted my programs to xHarbour but I was still using cGetDir32() instead of cGetDir().\n\nThanks, now everything is working fine!!\n\nRegards,\nMarc','',0,'GA==','dceo7i78',1,0,'',161,0,0),(46525,9254,3,2,0,'87.218.146.22',1200568042,1,0,1,1,1,1,'','','[url=http&#58;//imageshack&#46;us:sfly3za3][img:sfly3za3]http&#58;//img520&#46;imageshack&#46;us/img520/4519/msgbarxr5&#46;png[/img:sfly3za3][/url:sfly3za3]','',0,'GA==','sfly3za3',1,0,'',2,0,0),(46528,9631,3,161,0,'213.119.247.134',1200568924,1,0,1,1,1,0,'','','Antonio,\n\nIt\'s working!!!\n\nThank you for your fast support!!\n\nRegads,\nMarc','',0,'GA==','l5gomq00',1,0,'',161,0,0),(46529,9631,3,2,0,'87.218.146.22',1200568998,1,0,1,1,1,1,'','','good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nThanks for your feedback,','',0,'GA==','2qi4l3ar',1,0,'',2,0,0),(46530,9663,3,448,0,'82.155.1.2',1200571598,1,0,1,1,1,0,'','nSerialHD question','Hi,\n\nDoes nSerialHD works with several storage devices such as:\n\nPens\nPortable Harddrive\nSD s\n\nRegards\nAntonio','',0,'GA==','2u6weekp',1,0,'',448,0,0),(46531,9663,3,2,0,'87.218.146.22',1200571783,1,0,1,1,1,1,'','','Antonio,\n\nNo. For pendrives please review fwh\\samples\\Protect.prg','',0,'GA==','ap1lcbep',1,0,'',2,0,0),(46532,9526,4,49,0,'213.82.134.66',1200572377,1,0,1,1,1,1,'','','have you an sample with xbrowse with ttabs ( on bottom) into ppc ?\n\nHow I can make to insert on a dialog an xbrowse and 4/5 buttons into footer of palm \n\nIs there an method or  I am bad to create it ?\n\nI found serious problems to create it \n\nAlso to create dialog  because I have many fields to insert','',0,'GA==','2gopnc0u',1,0,'',49,0,0),(46534,9526,4,2,0,'87.218.146.22',1200574372,1,0,1,1,1,1,'','','Silvio,\n\nWe have not ported TXBrowse to FWPPC yet\n\nWe plan to do it soon,','',0,'GA==','upco2gu5',1,0,'',2,0,0),(46535,9633,6,24,0,'80.24.12.168',1200574431,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:21t2sqbe]Rafa,\n\nHe probado con \"flat\" true pero nada...[/quote:21t2sqbe]\n\nSi, la verdad es que no tengo mucho idea de como decir/hacer en este editor de recursos.\n\nSeguiremos I+D','',0,'gA==','21t2sqbe',1,0,'',24,0,0),(46536,9665,6,24,0,'80.24.12.168',1200574886,1,0,1,1,1,1,'','Cosas de botones','¿ Es posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?\n\n¿ Esta el soporte para el button tipo Split ?\n\n¿ Puede crear dinamicamente botones en un dialogo de recursos ?','',0,'gA==','zl8eu0wl',1,0,'',24,0,0),(46537,9629,7,106,0,'85.34.123.173',1200577009,1,0,1,1,1,1,'','','Antonio, \n\nMe vino la curiosidad e hice una prueba.\n\nMe creó todos los archivos (las primeras 5 veces)\n\nLuego aumenté la cantidad de archivos a crear a 300.\n\nAhi comienzan los errores.\n\nprueba 1 = 225 archivos\nprueba 2 = 153 archivos\nprueba 3 = 290 archivos\nprueba 4 = 270 archivos\n\nUso Microsoft Device Emulator V2\n8.0.60801.00\nWM5 \n\n\nSaludos','',0,'gA==','27qhcys3',1,0,'',106,0,0),(46539,9629,7,106,0,'85.34.123.173',1200577595,1,0,1,1,1,1,'','','Otra prueba,\n\nReinicié el emulador (WM5), hice 10 veces la prueba, en todas me creó 300 archivos....\n\n\nOtra prueba con WM6, me crea 300 archivos...\nOtra prueba mas, con Pocket PC 2003 second edition, 300 archivos creados...','',0,'gA==','1awszrxh',1,0,'',106,0,0),(46540,9656,6,1030,0,'190.55.44.161',1200577778,1,0,1,1,1,0,'','','Ahora lo pruebo y te digo...\nMil Gracias por las molestias!\nSlds!','',0,'gA==','4bqdb64b',1,0,'',1030,0,0),(46541,9656,6,1030,0,'190.55.44.161',1200578695,1,0,1,1,1,0,'','','No funciono, me emitio el siguiente error de compilacion:\n\n[code:1y5pvk74]\nVENTAS33&#46;prg&#40;72&#41; Error E0030  Syntax error&#58; &quot;syntax error at \'DTPICKER\'&quot;\n\nVENTAS33&#46;prg&#40;73&#41; Error E0030  Syntax error&#58; &quot;syntax error at \'DTPICKER\'&quot;\n[/code:1y5pvk74]\n\nDe esta manera lo estoy redefiniendo:\n\n[code:1y5pvk74]\nLocal vFech1,vFech2,oFech1,oFech2\n\nvFech1&#58;=BOM&#40;DATE&#40;&#41;&#41;\nvFech2&#58;=EOM&#40;DATE&#40;&#41;&#41;\n\nREDEFINE DtPicker oFech1 VAR vFech1    ID 103 OF oDlg PICTURE &quot;@D&quot;\nREDEFINE DtPicker oFech2 VAR vFech2    ID 104 OF oDlg PICTURE &quot;@D&quot;  \nVALID&#40;vFech1&lt;=vFech2&#41;\n\n[/code:1y5pvk74]\n\nYo veo que vos usas dFecha (eso es una variable no?)\n\nGracias nuevamente!','',0,'AIA=','1y5pvk74',1,0,'',1030,0,0),(46542,9656,6,174,0,'83.230.243.215',1200579348,1,0,1,1,1,0,'','','Debes poner en tu prg:\n\n #include \"DtPicker.ch\"','',0,'AIA=','s7bcauas',1,0,'',174,0,0),(46543,9548,3,335,0,'68.193.88.53',1200579686,1,0,1,1,1,0,'','','Tim,\n\nYour thorough description of how you use your modification of the FWH calendar.prg lit up a few lights for me in my application area (HR performance management). Thanks for getting me thinking! Could you provide a link for downloading your mod of calendar.prg and calendar.rc?\n\nThanks.\n\n- Roger','',0,'AIA=','wkeoew2j',1,0,'',335,0,0),(46544,9662,6,75,0,'83.38.43.106',1200582129,1,0,1,1,1,0,'','BuildCommDcb()','Gracias por contestar Antonio, he probado ya de todo y en varios ordenadores a ver si es que se tratara de un fallo por estar usando un puerto COM creado a través de uno USB con un cable conversor USB-RS-232. Pero NO. \n\n[color=red:3ln94s7b]El problema es que la funcion BuildCommDCB no configura el puerto a lo que dice que lo hace.[/color:3ln94s7b]\n\nEl puerto originalmente esta configurado como 1200,N,7,1 y lo tengo que cambiar a 9600,N,8,1 para poderme comunicar con el dispositivo y esto es lo que no hace BuildCommDcb.\n\nCuando lo hago desde la consola de MS-DOS del W-XP con el comando MODE COM4 9600,N,8,1 si deja bien configurado el puerto y me conunico correctamente hacia y desde el dispositivo con mi programa, pero como antes no haga esto no hay forma.\n\nHe probado el \\samples\\Commtest.prg y aunque en el archivo log que genera dice que todo está correcto la verdad es que no. De hecho le he puesto que cuando llega a la opcion COM4 9600 N 8 1 mande un mensaje al puerto, para probar si el dispositivo conectado lo reconoce y que por lo tanto lo ha configurado bien y me da un error en el dispositivo porque en realidad no ha modificado la configuracion del puerto que sigue estando en 1200,N,7,1. Configuración que compruebo haciendo en la consola de MS-DOS MODE COM4 que, como sabes, lista la configuracion del mismo.\n\n¿Qué más puedo probar?.','',0,'Ag==','3ln94s7b',1,0,'',75,0,0),(46547,3461,3,49,0,'213.82.134.66',1200582857,1,0,1,1,1,1,'','','Antonio,\nI want understand what is the ribbon bar\n\nit is a button bar where we can put tab, folder,buttonsand others things?\n\nwhy we not use a button bar for it ?\n\ndo you explain me please','',0,'Ag==','3ipncnlv',1,0,'',49,0,0),(46548,9656,6,63,0,'88.11.29.98',1200582964,1,0,1,1,1,0,'','','Efectivamente; como dice Moisoft, olvidé indicarte el #include DtPicker.ch.\n\ndFecha es la variable donde recogeré la fecha seleccionada. \nPuedes inicializarla antes como dFecha := Date()','',0,'Ag==','399xil0l',1,0,'',63,0,0),(46549,9665,6,362,0,'200.158.19.105',1200583195,1,0,1,1,1,1,'','Re: Cosas de botones','[quote=&quot;thefull&quot;:1apdr8cd]¿ Es posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?\n\n¿ Esta el soporte para el button tipo Split ?\n\n¿ Puede crear dinamicamente botones en un dialogo de recursos ?[/quote:1apdr8cd]\n\n\nEs posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?\n\n[code:1apdr8cd]\n        DEFINE BUTTON oBtnCliente OF OBAR RESOURCE &quot;SCULLY&quot;            ;\n               MESSAGE &quot;Inclusão dos Clientes nos Bancos de Dados&quot;     ;\n               ACTION &#40; Click&#40;&#41;, oBtnCliente&#58;Toggle&#40;&#41;, CLIEIMOB&#40;&#41;,     ;\n                                 oBtnCliente&#58;GoUp&#40;&#41; &#41;                  ;\n               TOOLTIP &quot;Manutenção dos Clientes-Use &lt;Alt+A&gt;&quot;           ;\n               NOBORDER GROUP                                          ;\n               CENTER                                                  ;\n               MENU MENU_CLIENTES_IMOBILIARIA&#40;&#41;\n[/code:1apdr8cd]\n\nEsta el soporte para el button tipo Split ?\n\nESTOU EN DUDA... SOLAMENTE ANTONIO LINARES... PERO, CREO QUE SI.\n\nPuede crear dinamicamente botones en un dialogo de recursos ?\n\nSI, SIN PROBLEMAS.\n\nTE BASTA CREAR LOS BOTONES CON EL MISMO ID EN LAS MISMAS COORDENADAS E LLAMAR\nDINAMICAMENTE E CAMBIAR EN TIEMPO REAL SE UNA TAREA SEA SATISFACTORIA.\n\nDEBES USAR LOS COMANDOS HIDE() Y SHOW() PARA EL CONTROLE DEL MISMOS.\n\nSaludos','',0,'gIA=','1apdr8cd',1,0,'',362,0,0),(46550,9632,3,34,0,'68.5.217.82',1200583795,1,0,1,1,1,1,'','Thanks','I\'m fine with standard FWH ... I don\'t need bitmaps on folders at this time.  \n\nTim','',0,'gIA=','3bq29xzl',1,0,'',34,0,0),(46551,9666,3,335,0,'68.193.88.53',1200583903,1,0,1,1,1,0,'','FWH DLL32 calls for Protection PLUS','For anyone who\'s been using an older version of Protection Plus Professional anti-piracy and licensing software, and who needs to upgrade to the latest version from SoftwareKey.com, for FWH you will need a couple files that you can download from the link below.  \n\nSoftwareKey.com, the publisher of PPP, provides lots of samples and interface files for Delphi, VB and C++ but nothing for FWH.  So here are the required FWH interface files.  The zip file below contains KeyLib.ch and PPP4FWH.prg which contains FWH \"DLL32\" calls for over 80 Protection PLUS functions, for use with that product\'s KeyLib32.dll .  Here\'s the link...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/software/ppp4fwh.zip\">http://www.leadersoft.com/software/ppp4fwh.zip</a><!-- m -->\n\n- Roger','',0,'gIA=','oti1r3pq',1,0,'',335,0,0),(46552,3461,3,49,0,'213.82.134.66',1200584033,1,0,1,1,1,1,'','','If You \nI can use a TAB on TOP \nand then I must insert buttons on it  right ?\n\nI try it','',0,'gIA=','431xxoqc',1,0,'',49,0,0),(46553,9411,18,92,0,'80.33.133.32',1200584796,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:htd9934b]\nRafa, tu código y el mio hacen lo mismo. La segunda parte de un .AND. no se ejecuta si no se cumple la primera parte.[/quote:htd9934b]\n\nAntonio,\n\nlo que dices es válido si se usa esta opción del compilador?\n\n\"# /Z  Esta opción elimina la optimización debida a la evaluación abreviada\n#     para los operadores lógicos .AND. y .OR. Su objetivo es ayudar a aislar\n#     un código que depende del comportamiento de versiones anteriores de\n#     CA-Clipper.\"\n\nSaludos\nCarlos G.','',0,'gA==','htd9934b',1,0,'',92,0,0),(46554,9633,6,389,0,'189.132.6.15',1200586933,1,0,1,1,1,0,'','','Tampoco en pellesC hay manera de quitar WS_BORDER, alguna otra sugerenc ia  ??\nSaludos\nGABO','',0,'gA==','36ejxeyt',1,0,'',389,0,0),(46555,9667,6,1236,0,'201.47.64.177',1200588599,1,0,1,1,1,0,'','MSGYESNO() - ESC?','Antonio, é possível fazer com que a msgyesno() nativa do FWH aceite ESC para fechar a mesma?\n\n\nGrato','',0,'gA==','2c17vt4h',1,0,'',1236,0,0),(46556,9601,6,1055,0,'84.122.57.235',1200591771,1,0,1,1,1,0,'','','[b:39r9o7sa]¿Nadie sabe? [/b:39r9o7sa]\n¡Algún método habrá!\nCon otros lenguajes se puede hacer...\nGracias','',0,'QA==','39r9o7sa',1,0,'',1055,0,0),(46557,9663,3,448,0,'82.155.1.2',1200591915,1,0,1,1,1,0,'','','Ok thanks.\n\nAntonio','',0,'QA==','1al1iyhh',1,0,'',448,0,0),(46558,9630,6,316,0,'213.97.245.163',1200591942,1,0,1,1,1,0,'','','[quote=&quot;José Luis Sánchez&quot;:3hnrhmx7]Carlos:\nPellesC tiene funciones para igualar el espacioamiento de controles y alinearlos. [/quote:3hnrhmx7]\n\nTienes razón, si lo tiene, pero no funciona como en el workshop. Asume como espaciado el existente entre el 1er y 2do control seleccionado, y se lo aplica al resto. En Workshop toma la coordenadas de los extremos y distribuye homogeneamente el espacio, de forma tal que los controles ocupan el mismo espacio. Sutil diferencia, pero como estaba seleccionando muchos controles, y a veces selecciono arrastrando el raton con el boton persionado, lo que elegia como 1ro y 2do vaya a saber que era.\n\nEspero que la experiencia sea útil para otros.\n\nUn saludo,\n\nCarlos.','',0,'gA==','3hnrhmx7',1,0,'',316,0,0),(46559,9663,3,448,0,'82.155.1.2',1200592224,1,0,1,1,1,0,'','','By the way. Can I test to see if it is a hard disk drive ?\n\nAntonio','',0,'gA==','3nquad5s',1,0,'',448,0,0),(46560,9668,6,1055,0,'84.122.57.235',1200593226,1,0,1,1,1,0,'','Busco Verce 5.3','Amigos, he visto algunos post que hablan del Verce 5.3, algunos con enlaces pero que no funciona ninguno. Alguien puede decirme de donde bajarlo?\n\nGracias.','',0,'gA==','vdu255xc',1,0,'',1055,0,0),(46561,9601,6,362,0,'200.158.19.105',1200593789,1,0,1,1,1,1,'','','USE A CLASSE TIMAGE.\n\nBIEN SENCILLO.','',0,'gA==','3gcnvypd',1,0,'',362,0,0),(46562,9669,6,1090,0,'201.254.38.18',1200594437,1,0,1,1,1,0,'','Algo parecido a .net','Hola. Tengo una aplicacion hecha en FWH, y quiero ir pasando algunas pantallas a formato web. ¿tienen idea si existe alguna herramienta o librería que genere html partiendo de un desarrollo en FWH? algo tipo lo que hace .NET.\n\nGracias. Atte.','',0,'gA==','1oivl5b0',1,0,'',1090,0,0),(46563,9670,2,850,0,'201.255.110.165',1200595233,1,0,1,1,1,0,'','Funcion DMT()','Hola, hagan la prueba de poner en un programa Clipper + Fivewin una funcion con nombre DMT() y me cuentan que pasa?.\n\nSaludos \n\nAndres','',0,'gA==','up8jryht',1,0,'',850,0,0),(46564,3461,3,2,0,'87.218.146.22',1200595825,1,0,1,1,1,1,'','','Silvio,\n\nA ribbonbar is a specialized folder.','',0,'gA==','t1safn07',1,0,'',2,0,0),(46565,9632,3,2,0,'87.218.146.22',1200595960,1,0,1,1,1,1,'','','standard FWH supports bitmaps on folders already\n\nfwh\\samples\\TestFold.prg','',0,'gA==','rvoc7jty',1,0,'',2,0,0),(46566,9662,6,2,0,'87.218.146.22',1200596500,1,0,1,1,1,1,'','','Verhoven, \n\nEn realidad BuildCommDcb() solo rellena la información de una esctructura \"DCB\". En realidad la función que aplica esos valores es:\n\nSetCommState() \n\ny aqui es donde está la diferencia con los 16 bits. En Clipper se usa así:\nSetCommState( cDcb ), pero en 32 bits se usa así: [color=red:3ff4yx50]SetCommState( nComm, cDcb )[/color:3ff4yx50] en donde nComm es el valor devuelto por OpenComm().\n\nPruébalo <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','3ff4yx50',1,0,'',2,0,0),(46567,9669,6,2,0,'87.218.146.22',1200596659,1,0,1,1,1,1,'','','Diego,\n\nPodrías construir una utilidad que pase el diseño de los diálogos en RC a formato HTML.\n\nOtro camino es usar aplicaciones que te permiten poner toda la aplicación dentro de una ventana del navegador de Internet para usarlas remotamente','',0,'Ag==','1buugpnx',1,0,'',2,0,0),(46568,9670,2,2,0,'87.218.146.22',1200596845,1,0,1,1,1,1,'','','Andrés,\n\nAquí compila bien, sin problemas.\n\nQue error te dá ?','',0,'Ag==','24m1k19t',1,0,'',2,0,0),(46569,9629,7,2,0,'87.218.146.22',1200598086,1,0,1,1,1,1,'','','Parece un asunto del emulador, no de Harbour','',0,'Ag==','34pqzxur',1,0,'',2,0,0),(46570,9666,3,2,0,'87.218.146.22',1200598139,1,0,1,1,1,1,'','','Roger,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Ag==','jnsc5nhl',1,0,'',2,0,0),(46571,9670,2,850,0,'201.255.110.165',1200598648,1,0,1,1,1,0,'','','Cuando ejecutas el programa da INTERNAL ERROR 9002','',0,'Ag==','36ieph92',1,0,'',850,0,0),(46572,9601,6,78,0,'190.43.176.223',1200599838,1,0,1,1,1,0,'','','&lt;De acuerdo, uso la TIMAGE, perooooooooo,,,  como cargo un JPG a un archivo .RC  o a un .RES ??\n\nSalu2','',0,'Ag==','1ubl28by',1,0,'',78,0,0),(46573,9668,6,1255,0,'201.122.38.237',1200599995,1,0,1,1,1,0,'','','Hola Antolin:\n\nYo lo descargué de aquí:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.box.net/shared/yu6ny3bsws\">http://www.box.net/shared/yu6ny3bsws</a><!-- m -->\n\nSaludos\n\nManuel Mercado','',0,'Ag==','19fhx49a',1,0,'',1255,0,0),(46574,9411,18,2,0,'87.218.146.22',1200601712,1,0,1,1,1,1,'','','Carlos,\n\nNo es válido si usas esa opción. \n\nMejor no usarla, salvo que necesites depurar las dos partes.','',0,'Ag==','1cde27qy',1,0,'',2,0,0),(46575,9548,3,34,0,'68.5.217.82',1200601983,1,0,1,1,1,1,'','Mod','Email me:  timstone at masterlinksoftware dot com','',0,'Ag==','21jseiey',1,0,'',34,0,0),(46576,9669,6,92,0,'81.44.79.123',1200603875,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:39mnta4f]Diego,\n\nPodrías construir una utilidad que pase el diseño de los diálogos en RC a formato HTML.\n\nOtro camino es usar aplicaciones que te permiten poner toda la aplicación dentro de una ventana del navegador de Internet para usarlas remotamente[/quote:39mnta4f]\n\nMuy interesante. Por ejemplo?\n\nSaludos\nCarlos G.','',0,'gA==','39mnta4f',1,0,'',92,0,0),(46577,9411,18,92,0,'81.44.79.123',1200604012,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:22l8s79j]Carlos,\n\nNo es válido si usas esa opción. \n\nMejor no usarla, salvo que necesites depurar las dos partes.[/quote:22l8s79j]\n\nGracias, de hecho no la uso.\nNecesitaba que alguien con conocimiento me lo confirmara.\n\nSaludos\nCarlos G.','',0,'gA==','22l8s79j',1,0,'',92,0,0),(46578,9671,3,1257,0,'195.93.60.7',1200604415,1,0,1,1,1,1,'','Sample for Outlook2003 + Office2007+ xBrowse together','Some people needed a sample, how to fill\nthe righthand side of Outlook2003.\nIn the sample, there is everything together :\nOutlook2003, Office2007, Buttonbars, xBrowse, Folder ...\n\nIt is on the website <!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin1\">http://www.pflegeplus.com/fivewin1</a><!-- m -->\n( it is the 2.Page for FWH-Downloads. )\nMaybe you have still some more ideas to make it better ?\n\nGreetings from germany <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','37a46253',1,0,'',1257,0,0),(46579,9672,23,1257,0,'195.93.60.7',1200605164,1,0,1,1,1,1,'','Nutzung von Outlook2003 + Office2007 + xBrowse zusammen','Hallo aus Essen,\n\nEs schein ein Bedarf vorhanden zu sein, die Outlook2003-Klasse\nvermehrt zu nutzen.\nIch habe ein Muster erstellt, welches alle Varianten zusammen\nnutzt :\nOutlook2003, Office2007, Buttonbars, xBrowse, Folders usw.\nAlles wird aus einem Outlook2003-Dialog gesteuert.\nAuch die rechte Seite wird genutzt, was einigen Anwendern\nProbleme bereitet.\n\nDas Sample liegt auf : <!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/fivewin1\">http://www.pflegeplus.com/fivewin1</a><!-- m -->\n( ist die 2. Download-Seite von FWH )\n\nFür weitere Anregungen / Vorschläge  bin ich dankbar <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nViele Grüße aus Essen\nU. König','',0,'gA==','9nv41wfn',1,0,'',1257,0,0),(46580,9662,6,75,0,'83.36.141.134',1200605776,1,0,1,1,1,0,'','SetCommState()','Antonio he probado pero sigue igual. Te pongo el trozo de codigo para que puedas ver exactamente como lo hago:\n\nfunction Prueba()\n   local lPortReady:=.f.\n   local nBytes :=0\n   local nError :=0\n   local cTexto :=\'Prueba escritura RS-232\'\n   \n   local [color=green:2zn8ihxe]cPort:=\'4\', cSpeed:=\'9600\'[/color:2zn8ihxe]\n   local cDcb, cRv := \'\', cS := \'COM\' + cPort + \':\' + cSpeed + \',n,8,1\'\n\n   // Abre el puerto en el PC.\n  [color=green:2zn8ihxe] nComm := OpenComm( \'COM\' + cPort, 1024 , 128 )[/color:2zn8ihxe]\n   \n   IF nComm &gt;= 0                   // We have a valid port...\n      msginfo(\' Se ha abierto el puerto: COM\' + cPort)\n      IF [color=green:2zn8ihxe]BuildCommDcb( cS, @cDcb )[/color:2zn8ihxe] // Set Speed, etc\n         IF [color=green:2zn8ihxe]SetCommState( nComm, cDcb )[/color:2zn8ihxe]\n             cRv := \'\'\n             msginfo(\'SetCommState CORRECTO: \'+cs)\n             lPortReady:=.t.\n          ELSE\n            cRv := \'Failed to SetCommState on COM\' + cPort + \' at \' + cSpeed\n         ENDIF\n       ELSE\n         cRv := \'Failed to BuildCommDCB on COM\' + cPort + \' at \' + cSpeed\n      ENDIF\n    ELSE\n      cRv := \'Failed to find COM\' + cPort\n   ENDIF\n   \n   if ! lPortReady\n      nError = GetCommError( nComm )\n      MsgInfo( cRv )\n   endif\n   \n   // Escribe en el puerto COM\n   if ( nBytes := WriteComm( nComm, cTexto ) ) &lt; 0\n      nError = GetCommError( nComm )\n      MsgInfo( cCom+\", WriteComm Error: \" + Str( nError ),\'Error\' )\n   endif\n   \n   //Limpia el buffer del puerto \n   if FlushComm( nComm, 0 ) != 0\n      nError = GetCommError( nComm )\n      MsgInfo( cCom+\", FlushComm Error: \" + Str( nError ) )\n   endif\n\n   // Cierra el puerto \n   CloseComm( nComm )\n return nil','',0,'Ag==','2zn8ihxe',1,0,'',75,0,0),(46581,9669,6,2,0,'87.218.146.22',1200606550,1,0,1,1,1,1,'','','Carlos,\n\nNo recuerdo el nombre exacto de esa utilidad, pero fué mencionada en estos foros con un enlace a los foros de FiveWin en Brasil','',0,'Ag==','1mws3wft',1,0,'',2,0,0),(46582,9628,6,987,0,'189.132.21.204',1200610797,1,0,1,1,1,0,'','','Gracias Patricio Avalos Aguirre, intentare con tu propuesta.\nMuchas gracias..','',0,'Ag==','3m1ttxwc',1,0,'',987,0,0),(46583,9669,6,1158,0,'200.159.198.154',1200616081,1,0,1,1,1,0,'','','hi, i see this, osakit, i guess.','',0,'Ag==','3jq3ir6b',1,0,'',1158,0,0),(46584,9673,6,492,0,'189.147.68.128',1200617264,1,0,1,1,1,1,'','Cambiar el Brush a un Folder en tiempo de ejecucion','Master Antonio :\n\nAl inicio del programa asigno un Brush al folder, despues, si deseo aplicar otro diferente no lo muestra correctamente :\n\n[img:2zbktri5]http&#58;//img153&#46;imageshack&#46;us/img153/105/folder1yi8&#46;jpg[/img:2zbktri5]\n\n\n[img:2zbktri5]http&#58;//img145&#46;imageshack&#46;us/img145/4406/folder2tz2&#46;jpg[/img:2zbktri5]\n\n\nEstoy usando : \n\noFld:aDialogs[1]:bEraseBkGnd := nil\noFld:aDialogs[1]:SetBrush( oNwBrush ) \n\nYa probe tambien :\n\noFld:aDialogs[1]:oBrush := oNwBrush\n\n\nAlgo que me este faltando para esto ?\n\nMuchas Gracias y Saludos','',0,'CA==','2zbktri5',1,0,'',492,0,0),(46585,9660,3,239,0,'219.136.101.185',1200617835,1,0,1,1,1,0,'','','Antonio,\n  This works! before by my mistakes,sorry.\nShuming Wang','',0,'CA==','mg8b0z3g',1,0,'',239,0,0),(46586,9452,6,1255,0,'201.122.38.237',1200620604,1,0,1,1,1,0,'','','Hi Silvio:\n\nI\'m trying to update TSButton and TSBrowse and make them to work properly with Harbour/xHarbour. I saw your message but I\'m not ready to answer your question yet. I\'ll be in touch.\n\nBest regards.\n\nManuel Mercado','',0,'CA==','hbgvvaqo',1,0,'',1255,0,0),(46587,9674,19,233,0,'60.48.192.95',1200621459,1,0,1,1,1,0,'','Sun\'s Buying MySQL','<!-- m --><a class=\"postlink\" href=\"http://www.sun.com/aboutsun/pr/2008-01/sunflash.20080116.1.xml\">http://www.sun.com/aboutsun/pr/2008-01/ ... 0116.1.xml</a><!-- m -->','',0,'CA==','3g180hyp',1,0,'',233,0,0),(46588,9675,6,109,0,'200.77.32.61',1200637798,1,0,1,1,1,0,'','O T','Alguien que trabaje o haya trabajado con impresoras TPG (A776-xxx...), para Puntos de Venta ???.\n\n   Que me den una mano.\n\n\nGracias\n\nSaludos','',0,'CA==','crrx2693',1,0,'',109,0,0),(46589,9668,6,54,0,'189.132.93.79',1200641364,1,0,1,1,1,1,'','Re: Busco Verce 5.3','[quote=&quot;antolin&quot;:12fvdsxw]Amigos, he visto algunos post que hablan del Verce 5.3, algunos con enlaces pero que no funciona ninguno. Alguien puede decirme de donde bajarlo?\n\nGracias.[/quote:12fvdsxw]\n\nAntolin,\n\nel server es online ahora\n\n[url:12fvdsxw]http&#58;//incos&#46;sytes&#46;net/fivewin[/url:12fvdsxw]\n\nsorry','',0,'kA==','12fvdsxw',1,0,'',54,0,0),(46590,9672,23,58,0,'84.149.65.187',1200643360,1,0,1,1,1,0,'','','Hallo U. König, \n\nich würde deine Sachen gerne ausprobieren, aber prinzipiell lade ich mir keine exe Dateien auf meinen Rechner.\n\nDas geht jetzt nicht gegen dich.\nAber mit ich habe schon mal schlechte Erfahrungen damit gemacht.\n\nGruß,\nDetlef','',0,'kA==','2rphso9r',1,0,'',58,0,0),(46591,9629,7,57,0,'80.30.100.25',1200644378,1,0,1,1,1,1,'','','Antonio / Pedro\n\nEs cierto que parece un error del Emulador. Lo curioso es que sucede lo mismo con el Dbusearea(), aun existiendo los ficheros, es decir sin hacer DbCreate. \nNo se me ocurren mas pruebas. Tendremos que ajustarnos a lo que funciona correctamente y usar en Memoria el uso de ficheros.\n\nSaludos','',0,'kA==','wkwthx14',1,0,'',57,0,0),(46592,9601,6,456,0,'217.127.39.57',1200644709,1,0,1,1,1,1,'','','parece que la cosa no es facil, en este post [url:3gpss1xt]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=5455[/url:3gpss1xt] ya se hizo referencia a la carga de JPG desde recursos, y se aporto un enlace [url:3gpss1xt]http&#58;//www&#46;codeproject&#46;com/bitmap/load_jpeg__gif_resource&#46;asp[/url:3gpss1xt] donde explica como hacerlo en C++. \nPero de momento no he visto ninguna implementacion para harbour.','',0,'EA==','3gpss1xt',1,0,'',456,0,0),(46593,9665,6,24,0,'80.24.12.168',1200645465,1,0,1,1,1,1,'','Re: Cosas de botones','[quote=&quot;thefull&quot;:3bykvong]¿ Es posible poner un tooglebutton en Fivewin ? O windows da soporte para ello ?\n\n¿ Esta el soporte para el button tipo Split ?\n\n¿ Puede crear dinamicamente botones en un dialogo de recursos ?[/quote:3bykvong]\nKarina.\n\n1.- En Fivewin es posible usando la clase TBtnBmp, ejemplo;\n[code:3bykvong]     \nREDEFINE BTNBMP aButtons1&#91;1&#93; ACTION &#40; Aeval&#40; aButtons1, &#123;|o| o&#58;GoUp&#40;&#41; &#125; &#41;,aButtons1&#91;1&#93;&#58;GoDown&#40;&#41;  &#41; ID 101 OF oDlg\n     REDEFINE BTNBMP aButtons1&#91;2&#93; ACTION &#40; Aeval&#40; aButtons1, &#123;|o| o&#58;GoUp&#40;&#41; &#125; &#41;,aButtons1&#91;2&#93;&#58;GoDown&#40;&#41;  &#41; ID 102 OF oDlg\n     REDEFINE BTNBMP aButtons1&#91;3&#93; ACTION &#40; Aeval&#40; aButtons1, &#123;|o| o&#58;GoUp&#40;&#41; &#125; &#41;,aButtons1&#91;3&#93;&#58;GoDown&#40;&#41;  &#41; ID 103 OF oDlg\n     REDEFINE BTNBMP aButtons1&#91;4&#93; ACTION &#40; Aeval&#40; aButtons1, &#123;|o| o&#58;GoUp&#40;&#41; &#125; &#41;,aButtons1&#91;4&#93;&#58;GoDown&#40;&#41;  &#41; ID 104 OF oDlg\n     REDEFINE BTNBMP aButtons1&#91;5&#93; ACTION &#40; Aeval&#40; aButtons1, &#123;|o| o&#58;GoUp&#40;&#41; &#125; &#41;,aButtons1&#91;5&#93;&#58;GoDown&#40;&#41;  &#41; ID 105 OF oDlg\n     REDEFINE BTNBMP aButtons1&#91;6&#93; ACTION &#40; Aeval&#40; aButtons1, &#123;|o| o&#58;GoUp&#40;&#41; &#125; &#41;,aButtons1&#91;6&#93;&#58;GoDown&#40;&#41;  &#41; ID 106 OF oDlg\n\n     aButtons1&#91;1&#93;&#58;GoDown&#40;&#41;\n\n[/code:3bykvong]\nEn este ejemplo, solo uno puede estar activado, y por defecto , el primero esta en ese estado.\nEl problema es que se pierde la estética, sería interesante modificar el pintado de esta clase para que cree un botón identico al Windowsl.\n\n2- Button Split es de Windows Vista, ni tan siquiera se muestra en un XP, asi que me olvido.\n\n3.- No me refiero a Show()/Hide(), si no, a crearlos en un dialogo de recursos, algo asi;\n\nDEFINE DIALOG oDlg NAME \"TEST\"\n  REDEFINE BUTTON oBtn ID 101 OF oDlg\n  @100,100 BUTTON oBtn2 PROMPT \"HELOO\" OF oDlg\n\nEn la lógica, dice que debería funcionar.....pero.... todavía no lo he probado.','',0,'gIA=','3bykvong',1,0,'',24,0,0),(46594,9669,6,106,0,'85.34.123.173',1200645959,1,0,1,1,1,1,'','','Conexion remoto web de windows.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.microsoft.com/downloads/details.aspx?FamilyID=e2ff8fb5-97ff-47bc-bacc-92283b52b310&amp;displaylang=it\">http://www.microsoft.com/downloads/deta ... laylang=it</a><!-- m -->\n\n\nclaro que permite acceder uno a la vez con windows XP (es un desktop remoto)\n\npero se podría usarxpunlimited y resuelto el problema.\n\n\nsaludos','',0,'gIA=','vkf7d1si',1,0,'',106,0,0),(46595,9676,22,24,0,'80.24.12.168',1200646402,1,0,1,1,1,1,'','ON INIT','Antonio, una de las cosas que más \'rabia\' que me da en Fivewin, es la que tener que realizar la INICIALIZACION de alguna cosa en el method ON INIT del correspondiente Dialogo/Ventana.\n\nCreo que seria MUY INTERESANTE dotar una VARIABLE a la clase TCONTROL bINIT.\n\nAsi, todos los controles pueden tener la clausula ON INIT que será lanzado en el method Initiate de la clase Dialog y/o en las que sean.\n\nEntonces  METHOD INITIATE() CLASS DIALOG,\nsimplemente debe de recorrer el ::aControls, evaluando los controles;\n\n[code:122zh9z4]\n     Aeval&#40; &#58;&#58;aControls,&#123;|o|if&#40; o&#58;bInit != NIL , Eval&#40; o&#58;bInit, o &#41;, &#41; &#125;\n[/code:122zh9z4]\n\nAsi, podemos hacer MUCHO mas legible el codigo;\n\n[code:122zh9z4]\nDEFINE BUTTON oBtn ;\n            ON INIT oBtn&#58;Hide\n[/code:122zh9z4]\n\n¿ Que piensas sobre esta implementación ? La verdad es que llevaba la mosca detrás de la oreja sobre el como evitar tener que escribir 200 lineas en el ON INIT del Dialogo , y la verdad es que no me gustaba nada.','',0,'AIA=','122zh9z4',1,0,'',24,0,0),(46596,9672,23,1257,0,'195.93.60.7',1200649383,1,0,1,1,1,1,'','Outlook-Test','Hallo, Detlef\n\nDie Datei liegt als Zip-File auf der Website.\nEs werden noch weitere Beispiele eingebaut. \nSollten noch Anregungen kommen ( Varianten )\nkann ich diese bis zur endgültigen Fertigstellung\nberücksichtigen.\n\nIch kann Dir die Datei auch als E-Mail-Angang schicken,\nhabe aber keine E-Mail-Anschrift von Dir.\n\nGruß aus Essen <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nUwe.','',0,'AIA=','3r7yrrqt',1,0,'',1257,0,0),(46597,9677,3,2,0,'87.218.146.22',1200650541,1,0,1,1,1,1,'','Next FWH 8.02 Tabs','Full Class TTabs source code provided too,\n\n[url=http&#58;//imageshack&#46;us:2yxc40xl][img:2yxc40xl]http&#58;//img255&#46;imageshack&#46;us/img255/8925/tabsor9&#46;png[/img:2yxc40xl][/url:2yxc40xl]','',0,'GA==','2yxc40xl',1,1200685739,'',2,3,0),(46598,9632,3,49,0,'213.82.134.66',1200650544,1,0,1,1,1,1,'','','yes but mine is multi folder, and support ico file , look office 2007','',0,'GA==','2x5mqgzm',1,1200654390,'',49,1,0),(46599,9452,6,49,0,'213.82.134.66',1200650654,1,0,1,1,1,1,'','','Dear Manuel,\nif you see the image  up this message where you see umbrellas  you can see the picture are not trasparent','',0,'GA==','1ze3nfz7',1,0,'',49,0,0),(46600,9678,6,2,0,'87.218.146.22',1200650825,1,0,1,1,1,1,'','Próximo FWH 8.02 Tabs','Con código fuente incluido:\n\n[url=http&#58;//imageshack&#46;us:1cp5i574][img:1cp5i574]http&#58;//img255&#46;imageshack&#46;us/img255/8925/tabsor9&#46;png[/img:1cp5i574][/url:1cp5i574]','',0,'GA==','1cp5i574',1,1200685828,'',2,3,0),(46601,9667,6,1236,0,'201.47.64.177',1200650961,1,0,1,1,1,0,'','','UP!','',0,'GA==','1jwpe1hn',1,0,'',1236,0,0),(46602,9667,6,1236,0,'201.47.64.177',1200650988,1,0,1,1,1,0,'','','UP!','',0,'GA==','3w26bq5y',1,0,'',1236,0,0),(46603,9677,3,58,0,'84.149.105.163',1200652584,1,0,1,1,1,0,'','','Antonio,\n\nit\'s looking great.\n\nRegards,\nDetlef','',0,'GA==','3fq81r0o',1,0,'',58,0,0),(46604,9678,6,24,0,'80.24.12.168',1200653024,1,0,1,1,1,1,'','Re: Próximo FWH 8.02 Tabs','Cojonudo Antonio, esto es lo que le faltaba a mi Mantenimiento , unos tabs acordes <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSupongo que se podra poner imagenes /texto  ?','',0,'GA==','2idmu93p',1,0,'',24,0,0),(46605,9678,6,2,0,'87.218.146.22',1200653115,1,0,1,1,1,1,'','','Claro <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','2sld3ddi',1,0,'',2,0,0),(46606,9670,2,850,0,'201.255.80.37',1200653442,1,0,1,1,1,0,'','','Antonio, te dio el error al ejecutar el programa?, aqui si le pongo la funcion DMT() a cualquier programa, cuando lo ejecuto me da ese error.','',0,'GA==','36psg2jt',1,0,'',850,0,0),(46607,9672,23,58,0,'84.149.105.163',1200653538,1,0,1,1,1,0,'','','Hallo Uwe,\n\n[quote:24nn1gp0]Die Datei liegt als Zip-File auf der Website.[/quote:24nn1gp0] \nHabe mir outlook_g.zip schon geladen, aber darin ist eben eine exe Datei.\nWürde Dir gerne ein Feedback geben.\n\nAber wie gesagt, ich bin vorsichtigt geworden, da ich schon mal einen Virus bekommen habe,\nvon dem nicht einmal der Absender gewusst hatte.\n\nGruß,\nDetlef\n\nmeine Emailadresse ist hoefner[at]odn.de','',0,'gA==','24nn1gp0',1,0,'',58,0,0),(46608,9632,3,51,0,'80.122.88.242',1200653570,1,0,1,1,1,0,'','','How can I set the size of a Foldertab.\nThanks in advance\nOtto','',0,'gA==','3d66lf71',1,0,'',51,0,0),(46609,9671,3,49,0,'213.82.134.66',1200654715,1,0,1,1,1,1,'','','I want create this\n\n[img:155pvdc0]http&#58;//img293&#46;imageshack&#46;us/img293/8231/outlookxbrowsert4&#46;png[/img:155pvdc0]','',0,'CA==','155pvdc0',1,0,'',49,0,0),(46610,9679,3,49,0,'213.82.134.66',1200655292,1,0,1,1,1,1,'','Hires','Dear Antonio,\n\nI saw on directory fw\\bitmaps there are many png files\n\nwe have support for it \n\nHow we can show it  trasparent into a dialog ?','',0,'CA==','1f74s2ma',1,0,'',49,0,0),(46611,9680,6,644,0,'190.139.162.117',1200655430,1,0,1,1,1,0,'','clase autoget','He estado probando esta clase que se encuentra en este foro y me da el siguiente error: Message not found: TAUTOGET:_BPOSTKEY. Me imagino que se refiere a la variable de instancia ::bPostKey que no se necuentra declarada en la clase y si invocada. Compilo con fwh 2.7 y xharbour 0.99.60. Desde ya muchas gracias','',0,'CA==','2g7o2rn3',1,0,'',644,0,0),(46612,9678,6,49,0,'213.82.134.66',1200655830,1,0,1,1,1,1,'','','Antonio ,\ncould take mine ttabs class is the same and you could work to another project','',0,'CA==','16p1ir0u',1,0,'',49,0,0),(46613,9677,3,267,0,'201.9.128.136',1200655994,1,0,1,1,1,1,'','','Antonio,\n\nYou plan to allow to change the colors in these controls \"2007\"?','',0,'CA==','3avw5ep1',1,0,'',267,0,0),(46614,9681,20,1082,0,'85.43.122.34',1200656092,1,0,1,1,1,0,'','Invio email','la mia esigenza è di inviare email da una lista di indirizzi in un file DB nottetempo, c\'è qualcuno che può darmi qualche esempio?','',0,'CA==','247vmz9s',1,0,'',1082,0,0),(46615,9667,6,362,0,'200.158.18.104',1200657843,1,0,1,1,1,1,'','Re: MSGYESNO() - ESC?','[quote=&quot;FWHISHOW&quot;:14uvld14]Antonio, é possível fazer com que a msgyesno() nativa do FWH aceite ESC para fechar a mesma?\n\n\nGrato[/quote:14uvld14]\n\n\n\nSUA PERGUNTA, NÃO TEM SENTIDO, JÁ QUE O MSGYESNO, É UMA MENSAGEM DE SIM OU NAO. É UMA CONDICIONAL.\n\nSE VOCE QUE CONTROLAR AS SAIDAS DE SEUS USUARIOS, VOCE DEVE CRIAR UMA DIALOGO QUE SIMULE O SIM OU NÃO E TERA TODOS OS CONTROLES SOBRE O MESMO. EU USO ASSIM, CRIEI UM DIALOGO QUE SIMULA O MSGYESNO E CONTROLO A GOSTO.\n\nAbraços.','',0,'gA==','14uvld14',1,0,'',362,0,0),(46617,9677,3,2,0,'87.218.146.22',1200659070,1,0,1,1,1,1,'','','Vilian,\n\nFull source code is provided so you can change colors, etc.','',0,'gA==','x96vj9ur',1,0,'',2,0,0),(46618,9678,6,2,0,'87.218.146.22',1200659152,1,0,1,1,1,1,'','','Silvio,\n\nI appreciate it, but your classes are yours and this class belongs to FiveTech\n\nalso we provide full source code, so FWH users can modify it as desired','',0,'gA==','321a0hij',1,0,'',2,0,0),(46622,9682,3,49,0,'213.82.134.66',1200659614,1,0,1,1,1,1,'','Messages on office 2007 style','How show messages on office 2007 style \n\nHave you an idea?','',0,'gA==','18r24omy',1,0,'',49,0,0),(46623,9681,20,6,0,'82.61.144.197',1200660261,1,0,1,1,1,1,'','Re: Invio email','Io uso la SndMail.dll in questo modo:\n\n[code:2rhe88g7]STATIC hLib\n\n\nFUNCTION SENDMAIL&#40; cFrom, cServer, cTo, cSubject, cMessage, aAttach, cSender, cUser, cPassword, aCc, lHtml, cPort &#41;\n\n    LOCAL cMsgFile &#58;= GETNEWFNAME&#40;&#41;\n\n    LOCAL cCmd &#58;= &quot;SndMail -f &quot; + cFrom + &quot; -X &quot; + cServer + &quot; -r &quot; + cTo + &quot; -s &quot; + &#91;&quot;&#93; + cSubject + &#91;&quot;&#93; + &quot; -b &quot; + cMsgFile\n\n    LOCAL nRes\n\n    LOCAL i\n\n    DEFAULT lHtml &#58;= &#46;F&#46;\n\n    MEMOWRIT&#40; cMsgFile, cMessage + CRLF &#41;\n\n    IF !EMPTY&#40; aAttach &#41;\n        FOR i = 1 TO LEN&#40; aAttach &#41;\n            cCmd += &quot; -a &quot; + &#91;&quot;&#93; + aAttach&#91; i &#93; + &#91;&quot;&#93;\n        NEXT\n    ENDIF\n\n    IF !EMPTY&#40; cSender &#41;\n        cCmd += &quot; -F &quot; + &#91;&quot;&#93; + cSender + &#91;&quot;&#93;\n    ENDIF\n\n    IF !EMPTY&#40; cUser &#41;\n        cCmd += &quot; -h LOGIN -u &quot; + cUser\n    ENDIF\n\n    IF !EMPTY&#40; cPassword &#41;\n        cCmd += &quot; -p &quot; + cPassword\n    ENDIF\n\n    IF !EMPTY&#40; aCc &#41;\n        FOR i = 1 TO LEN&#40; aCc &#41;\n            cCmd += &quot; -c &quot; + &#91;&quot;&#93; + aCc&#91; i &#93; + &#91;&quot;&#93;\n        NEXT\n    ENDIF\n\n    IF lHtml\n        cCmd += &quot; -H&quot;\n    ENDIF\n\n    IF !EMPTY&#40; cPort &#41;\n        cCmd += &quot; -P &quot; + cPort\n    ENDIF\n\n    hLib = LOADLIB32&#40; &quot;sndmail&#46;dll&quot; &#41;\n\n    SMTPLIBOPEN&#40;&#41;\n\n    nRes = SMTPSENDMAIL&#40; cCmd &#41;\n\n    SMTPLIBCLOSE&#40;&#41;\n\n    FREELIB32&#40; hLib &#41;\n\n    FERASE&#40; cMsgFile &#41;\n\n    RETURN nRes = 0\n\n\nDLL STATIC FUNCTION SMTPLIBOPEN&#40;&#41; AS VOID;\n    PASCAL FROM &quot;USmtpLibOpen&quot; LIB hLib\n\nDLL STATIC FUNCTION SMTPSENDMAIL&#40; cCmd AS STRING &#41; AS LONG;\n    PASCAL FROM &quot;USmtpCmdLineSendMail&quot; LIB hLib\n\nDLL STATIC FUNCTION SMTPLIBCLOSE&#40;&#41; AS VOID;\n    PASCAL FROM &quot;USmtpLibClose&quot; LIB hLib[/code:2rhe88g7]\n\nEMG','',0,'AIA=','2rhe88g7',1,0,'',6,0,0),(46624,9679,3,6,0,'82.61.144.197',1200660337,1,0,1,1,1,1,'','Re: Hires','Did you try using TImage?\n\nEMG','',0,'AIA=','9n4v5nos',1,0,'',6,0,0),(46625,9667,6,956,0,'189.22.134.133',1200660371,1,0,1,1,1,1,'','Re: MSGYESNO() - ESC?','[quote=&quot;karinha&quot;:1uolklvv][quote=&quot;FWHISHOW&quot;:1uolklvv]Antonio, é possível fazer com que a msgyesno() nativa do FWH aceite ESC para fechar a mesma?\n\n\nGrato[/quote:1uolklvv]\n\n\n\nSUA PERGUNTA, NÃO TEM SENTIDO, JÁ QUE O MSGYESNO, É UMA MENSAGEM DE SIM OU NAO. É UMA CONDICIONAL.\n\nSE VOCE QUE CONTROLAR AS SAIDAS DE SEUS USUARIOS, VOCE DEVE CRIAR UMA DIALOGO QUE SIMULE O SIM OU NÃO E TERA TODOS OS CONTROLES SOBRE O MESMO. EU USO ASSIM, CRIEI UM DIALOGO QUE SIMULA O MSGYESNO E CONTROLO A GOSTO.\n\nAbraços.[/quote:1uolklvv]\n\nClaro que tem sentido.... ESC equivale a Não\n\nVolta pra sua casa João, vem dar pitaco aqui não  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'gA==','1uolklvv',1,0,'',956,0,0),(46626,9677,3,267,0,'201.9.128.136',1200660669,1,0,1,1,1,1,'','','Antonio,\n\nTo make this type of modification finishes complicating in the hour to bring up to date the FWH.\n\nBest it would be a clause COLOR in these commands.','',0,'gA==','25myiqph',1,0,'',267,0,0),(46627,9679,3,49,0,'213.82.134.66',1200660815,1,0,1,1,1,1,'','','YES\n\nit is  no trasparent with this files','',0,'gA==','1ewep9ei',1,0,'',49,0,0),(46628,9677,3,2,0,'87.218.146.22',1200660847,1,0,1,1,1,1,'','','Vilian,\n\nThis class uses Bitmaps, so you have to provide different bitmaps.\n\nIts not a matter of colors setup. Its a matter of creating new bitmaps <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nWe can\'t do that for you','',0,'gA==','20rrhwcy',1,0,'',2,0,0),(46630,9682,3,2,0,'87.218.146.22',1200662130,1,0,1,1,1,1,'','','Silvio,\n\nIts already available for FWH 8.02\n\n[url=http&#58;//imageshack&#46;us:9t8j9tbd][img:9t8j9tbd]http&#58;//img520&#46;imageshack&#46;us/img520/4519/msgbarxr5&#46;png[/img:9t8j9tbd][/url:9t8j9tbd]','',0,'GA==','9t8j9tbd',1,0,'',2,0,0),(46631,9667,6,2,0,'87.218.146.22',1200663145,1,0,1,1,1,1,'','','Anderson,\n\nLa respuesta de João es correcta, en mi opinión\n\nEs importante saber respetar la opinión de los demas','',0,'GA==','2x522gbd',1,0,'',2,0,0),(46632,9677,3,267,0,'201.9.128.136',1200663375,1,0,1,1,1,1,'','','Antonio,\n\nThen it creates a clause to define bitmap of color to be used  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> . The important one is to prevent to change the original classroom for so little.\n\nIt understands, all time that we bring up to date the FWH we have that to be revising classes to make modifications again. It is a great work.','',0,'GA==','3gii0z2q',1,0,'',267,0,0),(46633,9670,2,2,0,'87.218.146.22',1200663429,1,0,1,1,1,1,'','','Tal vez sea una función reservada y precisa de un parámetro en concreto, pero no me suena...','',0,'GA==','se7siyws',1,0,'',2,0,0),(46634,9411,18,100,0,'201.16.38.7',1200665760,1,0,1,1,1,1,'','','Antonio\n\nResolvi o MEU problema da seguinte forma:\n\n[code:6wytgd7o]\n   if &#58;&#58;bKeyDown != nil &#46;AND&#46; &#58;&#58;ClassName&#40;&#41; == &quot;TGET&quot;\n      if ValType&#40; uVal &#58;= Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags, Self &#41; &#41; == &quot;N&quot; &#46;and&#46; ;\n         uVal == 0\n         return 0\n      endif\n   endif\n[/code:6wytgd7o]\n\nComo vc pode ver, desta forma tenho outras classes que herdam a TGET e executam 2x a mesma função, pois na classe WINDOWS.PRG\n\n\n[code:6wytgd7o]\n   if Upper&#40; &#58;&#58;ClassName&#40;&#41; &#41; != &quot;TGET&quot; &#46;and&#46; &#58;&#58;bKeyDown != nil\n      return Eval&#40; &#58;&#58;bKeyDown, nKey, nFlags &#41;\n   endif\n[/code:6wytgd7o]\n\naxo que esta pequena modificação, podera resolver muitos problemas de outros usuarios\n\nEspero ter ajudado','',0,'AIA=','6wytgd7o',1,0,'',100,0,0),(46635,9683,6,400,0,'200.207.174.135',1200668626,1,0,1,1,1,1,'','Preview, aparencia # do samples ?','Estou usando o fwh712 e meu preview esta com está aparencia :\n\n[img:3a4t7v7z]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/prev&#46;jpg[/img:3a4t7v7z]\n\ne não com esta:\n\n[img:3a4t7v7z]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/prevok&#46;jpg[/img:3a4t7v7z]\n\nPorque ???\n\nSaluds','',0,'CA==','3a4t7v7z',1,0,'',400,0,0),(46636,9683,6,362,0,'200.158.18.104',1200669607,1,0,1,1,1,1,'','','USTED CAMBIÓ LA PREV32.DLL, POR OTRA?','',0,'CA==','38esiakz',1,0,'',362,0,0),(46637,7680,3,299,0,'24.233.172.101',1200672756,1,0,1,0,1,0,'','','Tim;\n\nI downloaded the 30 day trial version.  Would you please send me some xharb code to test the library?\n\nreinaldocrespo at structuredsystems dot com\n\nThank you.\n\nreinaldo.','',0,'CA==','3w4grbio',1,0,'',299,0,0),(46638,9679,3,6,0,'82.61.144.197',1200672939,1,0,1,1,1,1,'','','You are right. The effect is only partially transparent. I don\'t know how to get the full transparency effect. Antonio?\n\nEMG','',0,'CA==','265c6jz9',1,0,'',6,0,0),(46639,9572,6,1277,0,'200.41.163.110',1200673632,1,0,1,1,1,0,'','','y funciona con los .RC ? o debo convertirlos a .dll para que los reconozca?\n\nSaludos\nPatricio','',0,'CA==','3avbziov',1,0,'',1277,0,0),(46640,9601,6,1055,0,'84.122.57.235',1200674054,1,0,1,1,1,0,'','','Willy, cargar cualquier cosa en WorkShop es muy sencillo, como nuevo tipo de recurso. Lo dificil, al parecer es sacarlo.\n\nA todos muchas gracias por el intento.','',0,'CA==','g34gmp5i',1,0,'',1055,0,0),(46641,9668,6,1055,0,'84.122.57.235',1200674211,1,0,1,1,1,0,'','','Muchas gracias. He conseguido descargarlo.\nY muchas gracias sobre todo al creador y a los destribuidores.','',0,'CA==','1vixxkc9',1,0,'',1055,0,0),(46642,9680,6,644,0,'201.253.76.69',1200674452,1,0,1,1,1,0,'','','nadie sabe nada de esto ????? gracias de todas maneras','',0,'CA==','39ka5egw',1,0,'',644,0,0),(46643,7680,3,34,0,'68.5.217.82',1200674719,1,0,1,1,1,1,'','Code','I\'m sending it to your email today.\n\nThis is the spell checker you will find in many products on the market.  It is very widely used.','',0,'CA==','1qfves1d',1,0,'',34,0,0),(46644,9682,3,34,0,'68.5.217.82',1200674948,1,0,1,1,1,1,'','Unindent','Antonio,\n\nIn a December post you said there would be a fix to the NO INDENT on the message bar and that it would be available for 7.12.\n\nIs that something we can change in the message bar code or will it require 8.02 ?','',0,'CA==','14lm517w',1,0,'',34,0,0),(46645,9677,3,34,0,'68.5.217.82',1200675070,1,0,1,1,1,1,'','Tabs','Are you looking at Folders also with 2007 enhancement ?','',0,'CA==','dth3e79j',1,0,'',34,0,0),(46646,9683,6,400,0,'200.207.174.135',1200675580,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:2yewb2g4]USTED CAMBIÓ LA PREV32.DLL, POR OTRA?[/quote:2yewb2g4]\n\nNo amigo, es la Dll que esta na carpeta FwH712/Dll/Prev32.dll, y añadió a mi proyecto el Dll.\n    \nAsí que no entiendo lo que puede estar ocurriendo.\n\nSaluds','',0,'gA==','2yewb2g4',1,0,'',400,0,0),(46647,9683,6,362,0,'200.158.18.104',1200676085,1,0,1,1,1,1,'','','[quote=&quot;Ale SB&quot;:pcn2mslk][quote=&quot;karinha&quot;:pcn2mslk]USTED CAMBIÓ LA PREV32.DLL, POR OTRA?[/quote:pcn2mslk]\n\nNo amigo, es la Dll que esta na carpeta FwH712/Dll/Prev32.dll, y añadió a mi proyecto el Dll.\n    \nAsí que no entiendo lo que puede estar ocurriendo.\n\nSaluds[/quote:pcn2mslk]\n\nHi friend, Por favor, CAMBIA LA ORIGINAL POR ESTA EN PORTUGUES.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=736\">http://www.fivewin.com.br/exibedicas.asp?id=736</a><!-- m -->\n\nEn contrario...\n\nBest regards, saludos.','',0,'gA==','pcn2mslk',1,0,'',362,0,0),(46648,9683,6,400,0,'200.207.174.135',1200676372,1,0,1,1,1,1,'','','Descubrió el problema.\n\nSi está usando la opción :\n\nDEFINE BUTTONBAR oBar SIZE 54, 54 _3D OF oWnd [color=red:qmyej613]2007[/color:qmyej613]\n[img:qmyej613]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/prev&#46;jpg[/img:qmyej613]\n\nSe no usar:\nDEFINE BUTTONBAR oBar SIZE 54, 54 _3D OF oWnd\n[img:qmyej613]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/prevok&#46;jpg[/img:qmyej613]\n\nSerá q no es possible usar \nl2007 := .T.\ne esta aparencia no preview:\n[img:qmyej613]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/prevok&#46;jpg[/img:qmyej613]\n\nSin cambiar la clase ?\n\nSaluds','',0,'Cg==','qmyej613',1,0,'',400,0,0),(46649,9683,6,400,0,'200.207.174.135',1200677041,1,0,1,1,1,1,'','','[quote=&quot;karinha&quot;:ow39404m][quote=&quot;Ale SB&quot;:ow39404m][quote=&quot;karinha&quot;:ow39404m]USTED CAMBIÓ LA PREV32.DLL, POR OTRA?[/quote:ow39404m]\n\nNo amigo, es la Dll que esta na carpeta FwH712/Dll/Prev32.dll, y añadió a mi proyecto el Dll.\n    \nAsí que no entiendo lo que puede estar ocurriendo.\n\nSaluds[/quote:ow39404m]\n\nHi friend, Por favor, CAMBIA LA ORIGINAL POR ESTA EN PORTUGUES.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=736\">http://www.fivewin.com.br/exibedicas.asp?id=736</a><!-- m -->\n\nEn contrario...\n\nBest regards, saludos.[/quote:ow39404m]\n\nGrato amigo, mas y gostaria mesmo era usar os bottons, neste style:\n[img:ow39404m]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/prevok&#46;jpg[/img:ow39404m]\n\nAcho que vou cambiar la clase.\n\nSaluds','',0,'iA==','ow39404m',1,0,'',400,0,0),(46650,9683,6,400,0,'200.207.174.135',1200679859,1,0,1,1,1,1,'','','Resolvido, cambiei a rpreview.prg....\n\n[color=red:yzjxxn5i]Linha 171[/color:yzjxxn5i]\nif oBar != nil .and. Upper( oBar:ClassName() ) == \"TBAR\" .and. oBar:l2007\n            [color=red:yzjxxn5i]l2007 = .F.[/color:yzjxxn5i] // l2007 = .T.\n         endif\n\nPara usar com a Buttonbar l2007:=.t.\n\ne estou usando a Prev32.Dll em portugues( dica de meu amigo Karinha).\n\nSaluds','',0,'Ag==','yzjxxn5i',1,0,'',400,0,0),(46651,9684,6,1236,0,'201.47.64.177',1200680141,1,0,1,1,1,0,'','Zero divisor: /','Gente acontece de vez enquando este erro:  Zero divisor: /\n\nO problema é que sistema aborta sem gerar o error.log.\n\nAlguem sabe como contornar? Pois não sei como resolver e o sistema não chega nem a gerar o error.log.\n\nPara descobrir este erro fiz um controle de erro, assim:\n\n  bOldError := ErrorBlock( {|e| BReak(E) })\n errorblock({ |oErro, a, b, c| Erro_LiberaMesa(oErro), eval(bOldError, oErro, a, b, c)})\n\n/******************************************************************************/\nfunction Erro_LiberaMesa(oerro)\n/*\n*/\nlocal nArq,nFWarq:=\"Erro\"+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+\".txt\",cstack:=\"\"\n\ncstack:=\"FIVEWIN ERROR:\"+CRLF\ncstack+=dtoc(date())+\" \"+time()+\" error: \"+oErro:description+\": \"+oErro:Operation+CRLF\ncstack+=\" Line: \"+Str( ProcLine(), 4 )+\" Arquivo: \"+procfile()+ CRLF\ncstack+=\" Line: \"+Str( ProcLine(1), 4 )+ CRLF\ncstack+=\" Line: \"+Str( ProcLine(2), 4 )+ CRLF\ncstack+=\" Line: \"+Str( ProcLine(3), 4 )+ CRLF\nMemoWrit(Curdrive()+\':\\\'+curdir()+\'\\\'+nFWarq,cstack)\n\nreturn(.t.)','',0,'Ag==','1mz0byko',1,0,'',1236,0,0),(46652,9452,6,1255,0,'201.122.38.237',1200680405,1,0,1,1,1,0,'','','Hi Silvio:\n\nTry this:\n\noBtn:lTransparent := .T.\noBtn:nBorder := 0\n\nRegards.\n\nManuel Mercado[/code]','',0,'','1ecsfqax',1,0,'',1255,0,0),(46653,9490,2,304,0,'189.129.230.28',1200681963,1,0,1,1,1,0,'','','Antonio:\nPuedo evitar que una ventana CHILD le aparezca el boton de MAXIMIZAR ??','',0,'','1a1vfyrk',1,0,'',304,0,0),(46654,7680,3,1158,0,'200.159.198.154',1200682942,1,0,1,1,1,0,'','','Tim, can you send to me?\n\n<!-- e --><a href=\"mailto:norberto@windowslive.com\">norberto@windowslive.com</a><!-- e -->\n\nthanks','',0,'','17xztmbc',1,0,'',1158,0,0),(46655,9677,3,2,0,'87.218.146.22',1200683339,1,0,1,1,1,1,'','','Dear Tim,\n\nTime to time, and everything will arrive <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','xmsmmr5c',1,0,'',2,0,0),(46656,9677,3,2,0,'87.218.146.22',1200683715,1,0,1,1,1,1,'','','Here you have a little sample to test:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/84830440/testtabs.zip.html\">http://rapidshare.com/files/84830440/testtabs.zip.html</a><!-- m -->\n\nPlease notice that the mouse click is still not accurate. We are working on it.\n\nVilian, look at the resources inside the EXE and you will see the bitmaps that we use, so you can start building yours <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','1znjsumx',1,1200684026,'',2,1,0),(46657,7680,3,34,0,'68.5.217.82',1200683774,1,0,1,1,1,1,'','Wintertree Spell Checker','[color=blue:2wp0fo55][size=150:2wp0fo55]The following code is used for activating the spell checker from Wintertree:[/size:2wp0fo55][/color:2wp0fo55]\n\n[b:2wp0fo55]To check a memofield useing a database object, here is a call:[/b:2wp0fo55]\n\n   REDEFINE BUTTON ID 882 of oDcl ACTION( oCli:climpd := SpellOne( oCli:climpd ), oCli:save(), oDcl:update() ) ;\n      MESSAGE \"Check the spelling on the notes\"\n\n[b:2wp0fo55]Here is the code for functions needed in your program:[/b:2wp0fo55]\n\n// Declare include files\n#INCLUDE \"fivewin.ch\"\n#define  HKEY_LOCAL_MACHINE      2147483650\n\nSTATIC hDLL2\n\nFUNCTION Spellone( TxtString )\n   LOCAL pText  := TxtString\n   LOCAL pTextLen, pNewLen\n   MEMVAR oWnd\n\n   pTextLen := LEN( pText )\n   pText += SPACE(250)\n   pNewLen := LEN ( pText )\n\n   hDLL2 := LoadLibrary( \"SSCE5432.dll\" )\n\n   SSCE_SetKey( 9999999999 )                [color=darkred:2wp0fo55]// User will get a license code[/color:2wp0fo55]\n   SSCE_SetRegTreeName( \"HKEY_LOCAL_MACHINE\\SOFTWARE\\Wintertree\\SSCE\\\" )\n   SSCE_CheckBlockDlg( oWnd, @pText, pTextLen, pNewLen )\n\n   FreeLibrary( hDLL2 )\n\nRETURN( pText )  // TxtString )\n\n\nFUNCTION SetDict   [color=darkred:2wp0fo55]// A function to set the path in the registry ... needs a calling button or menu entry[/color:2wp0fo55]\n   LOCAL oReg, cName, uVar, cDicPath\n   cDicPath := DiskName( ) + \":\\\" + TRIM(CurDir( ) ) + \"\\\"\n\n   oReg := TReg32():Create( HKEY_LOCAL_MACHINE, \"SOFTWARE\\Wintertree\\SSCE\" )\n    // Call Set with an empty string to access the default key\n   oReg:Set( \"MainLexPath\", cDicPath )\n   oReg:Set( \"UserLexPath\", cDicPath )\n   oReg:Set( \"MainLexFiles\", \"ssceam.tlx,ssceam2.clx\" )\n   oReg:Set( \"UserLexFiles\", \"userdic.tlx,correct.tlx,html.tlx\" )\n   MsgStop( \"Windows registry updated!\" )\n   oReg:Close()\n\n\nRETURN NIL\n\n\nDLL32 FUNCTION SSCE_SetKey( pID AS LONG ) AS LONG PASCAL LIB hDLL2 // \"SSCE5432.DLL\"\n\nDLL32 FUNCTION SSCE_CheckBlockDlg( pHandle AS LONG, pText AS STRING,  pTextLen AS LONG, pNewLen AS LONG  ) ;\n   AS LONG PASCAL LIB hDLL2 // \"SSCE5432.DLL\"\n\nDLL32 FUNCTION SSCE_SetRegTreeName( pRegName AS STRING ) AS LONG LIB hDLL2 // \"SSCE5432.DLL\"','',0,'Rg==','2wp0fo55',1,0,'',34,0,0),(46658,9678,6,2,0,'87.218.146.22',1200683838,1,0,1,1,1,1,'','','Aqui teneis un ejemplo para probarlos:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/84830440/testtabs.zip.html\">http://rapidshare.com/files/84830440/testtabs.zip.html</a><!-- m -->\n\nLa pulsación del ratón aún no está terminada. Estamos trabajando en ello.','',0,'Rg==','1yaca3lx',1,0,'',2,0,0),(46659,9677,3,34,0,'68.5.217.82',1200683861,1,0,1,1,1,1,'','Folders','Antonio,\n\nJust curious ... not pushing ... I\'m fine now until it arrives ...','',0,'Rg==','2vgw84zz',1,0,'',34,0,0),(46660,9677,3,2,0,'87.218.146.22',1200683929,1,0,1,1,1,1,'','','Tim,\n\nThe same techniques used in TTabs are fine for TFolder, so we are very close to be able to do it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Rg==','3u6gu5gu',1,0,'',2,0,0),(46661,9682,3,2,0,'87.218.146.22',1200684367,1,0,1,1,1,1,'','','Tim,\n\nIt will require FWH 8.02 as there are many changes in the Class TMsgBar and TMsgItem.\n\nThey have been partially redesigned to solve the painting problem','',0,'Rg==','1f4fuc7s',1,0,'',2,0,0),(46662,9679,3,2,0,'87.218.146.22',1200684698,1,0,1,1,1,1,'','','Me neither, but we will discover it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'Rg==','3w3i79ol',1,0,'',2,0,0),(46663,9490,2,2,0,'87.218.146.22',1200685625,1,0,1,1,1,1,'','','Revisa fw\\samples\\TestMdi5.prg','',0,'Rg==','3lprq2ad',1,0,'',2,0,0),(46664,9685,6,400,0,'200.207.174.135',1200686902,1,0,1,1,1,1,'','Preview, fecha todo o sistema....','Se yo usar Buttonbar l2007:=.F. .......ao abrir o Preview e clickar no Button Exit...Fecha além do Preview, todo o sistema tambiem.\nCreio q isto es um Bug ?????\n\nSe yo usar Buttonbar l2007:=.T.........ao fechar o Preview...retorno normalmente ao sistema.\nIsto es o correcto.\n\nComo, posso resolver isto ?\n\nSaluds','',0,'Rg==','3umccu31',1,0,'',400,0,0),(46665,9685,6,2,0,'87.218.146.22',1200687179,1,0,1,1,1,1,'','','Ale,\n\nLa DATA l2007 no debes cambiarla en tiempo de ejecución. \n\nNo está soportado','',0,'Rg==','27u2rkca',1,0,'',2,0,0),(46666,9686,6,1281,0,'83.55.244.65',1200687383,1,0,1,1,1,0,'','Codificacion latina en MYSQL','Hola a todos:\n\nNo consigo mostrar en un php una ñ importada desde una base de datos MYSQL. La codificacion de la base de datos está en utf8 y tengo la codificacion del php en utf8.\n\nTodos los acentos y caracteres latinos aparecen sin problemas, menos la dichosa ñ desde la base de datos <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nAlguna idea?\n\nGracias','',0,'Rg==','2fys0six',1,0,'',1281,0,0),(46667,9685,6,400,0,'200.207.174.135',1200688142,1,0,1,1,1,1,'','','Mas no estou mudando l2007 em tiempo de execuçao.\nIrei montar uno exemplo ..p/ usted ver...ok!\n\nSaluds','',0,'Rg==','1uh31gle',1,0,'',400,0,0),(46668,9687,6,104,0,'201.58.169.107',1200690268,1,0,1,1,1,0,'','OT - É possível orddescend com ADS','Olá,\n\nEstou testando o ADS com a função \"orddescend\" e não está funcionando. Existe algum outro jeito de se fazer isto ou terei que criar um novo indice usando DESCEND ?\n\nObrigado,','',0,'Rg==','13b0sh8u',1,0,'',104,0,0),(46669,9677,3,2,0,'87.218.146.22',1200693053,1,0,1,1,1,1,'','','Improved mouse click version:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/84864090/testtabs.zip.html\">http://rapidshare.com/files/84864090/testtabs.zip.html</a><!-- m -->','',0,'Rg==','ezrdpfxm',1,0,'',2,0,0),(46670,9678,6,2,0,'87.218.146.22',1200693086,1,0,1,1,1,1,'','','Ejemplo de prueba con soporte de ratón mejorado:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/84864090/testtabs.zip.html\">http://rapidshare.com/files/84864090/testtabs.zip.html</a><!-- m -->','',0,'Rg==','3fj2mmuj',1,0,'',2,0,0),(46671,7680,3,299,0,'24.233.172.101',1200693968,1,0,1,0,1,0,'','','Tim;\n\nI\'d like to set lexicon filenames using the option to specify from ini file:\n[quote:ukm73flc]\nSSCE_S16 SSCE_SetMainLexPath(const char *path);\n[/quote:ukm73flc]\n\nBelow is my code:\n[code:ukm73flc]\n&#46;&#46;&#46;\nLocal cDicIni	&#58;= cFilePath&#40; GetModuleFileName&#40; GetInstance&#40;&#41; &#41; &#41; + &quot;\\&quot; + &quot;lex&#46;ini&quot;\n\n	SSCE_SetIniFile&#40; cDicIni &#41;\n\n&#46;&#46;&#46;\n\nDLL32 FUNCTION SSCE_SetIniFile&#40; pfilename AS STRING &#41; AS LONG LIB hDLL2\n[/code:ukm73flc]\n\nBut get a run time error.\n\nCan you help?\n\nThank you.','',0,'gIA=','ukm73flc',1,0,'',299,0,0),(46672,9688,6,1280,0,'190.165.3.203',1200695230,1,0,1,1,1,0,'','Obtener el numero de indices de una tabla','Como puedo conocer el numero de indices que tiene asociada una tabla sea dbf o ADT mediante codigo ?\n\n\nGracias de antemano','',0,'gIA=','3aq1guny',1,0,'',1280,0,0),(46673,7680,3,299,0,'24.233.172.101',1200696726,1,0,1,0,1,0,'','','Sorry.  My mistake.  All is well.\n\nEverything works just perfectly.\n\nBTW Tim, excellent product!  Thank you very much.\n\nReinaldo.','',0,'gIA=','3r8gs2ny',1,0,'',299,0,0),(46674,9671,3,1158,0,'200.159.198.154',1200697063,1,0,1,1,1,0,'','','ukoenig, can you share the source of sample? thanks','',0,'gIA=','bzv4duwq',1,0,'',1158,0,0),(46675,9689,3,210,0,'81.24.159.58',1200697681,1,0,1,1,1,1,'','xBrowse editing','Hello,\nis there a way for xBrowse to edit one column in an row and in another row editing from the same column is not allowed? There is no bWhen or so!?\nAny ideas?\nAlso the picture z.B. \"@E ##.#\" from numeric data only in editing-mode is active. In normal mode this picture is not active.','',0,'gIA=','37xg37bp',1,0,'',210,0,0),(46676,9690,6,960,0,'84.125.196.99',1200701531,1,0,1,1,1,0,'','Calculadora virtual','Compañeros:\n\nEstoy diseñado una calculadora virtual. Contiene los buttons del 0 al 9 y el \".\" para los decimales. El problema es que cuando hago click en el \".\" los decimales no los coge. Tengo lo siguiente:\n\nredefine button onum0  id 4001 of odlg1 action calc(\'0\')\n...\nredefine button onum9  id 4010 of odlg1 action calc(\'9\')\nredefine button onum10 id 4011 of odlg1 action calc(\'.\')\nredefine get     onumcal var numcal id 4011 of odlg1 picture \'99999.99\'\nactivate dialog...\n\nfunct calc(n)\n if n!=\'Del\'\n  numcal:=val(PadR( AllTrim( str(numcal) ) + n, 8,2 )) ; onumcal:Refresh()\n else\n  numcal:=0 ; onumcal:refresh()\n endif\nreturn\n\n... Funciona perfectamente hasta la parte entera del número, la parte decimal es imposible. ¿Que me falta?\nMil gracias\nLORENZO.','',0,'gIA=','1qkxd12p',1,0,'',960,0,0),(46677,9689,3,239,0,'219.136.101.185',1200703051,1,0,1,1,1,0,'','','Change xbrowse.prg   xbrwocol :nEditType   data into  data block type \nChange \n    if oCol:nEditType&gt;0 \n into if(VALTYPE(oCol:nEditType)==\"B\",EVAL(oCol:nEditType),VAL(cvaltochar(oCol:nEditType))) &gt; 0\n\n Then your prg  ocol:nedittype:={||mycondition()} \n\n\nShuming Wang','',0,'gIA=','1zkvkl4c',1,0,'',239,0,0),(46678,9691,6,987,0,'189.133.9.121',1200703054,1,0,1,1,1,0,'','Pequeñas fallas con la clase TReport','Saludos de nuevo colegas del foro:\n\nTengo una duda:  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nTengo un dialogo con un listado en un TWBrowse, resulta que al generar los reportes previos con la Clase TReport en ocaciones, al momento de generar las paginas muestra el siguiente mensaje de error:\n\nError DBCMD/2001   Area de trabajo no usada: DBSKIP\n\nLlamadas al Stack:\n___________________________________________________\n\nLlamado desde DBSKIP(0)\nLlamado desde TREPORT:SKIP(1402)\nLlamado desde TREPORT:PLAY(922)\nLlamado desde (b)TREPORT:ACTIVATE(852)\nLlamado desde (b)TDIALOG:TDIALOG(85)\nLlamado desde TDIALOG:DISPLAY(0)\nLlamado desde TDIALOG:HANDLEEVENT(903)\nLlamado desde DIALOGBOX(0)\nLlamado desde TDIALOG:ACTIVATE(270)\nLlamado desde TREPORT:ACTIVATE(854)\nLlamado desde IMPRIME(225)\nLlamado desde (b)PRINLIST(83)\n\n\n\nEl Còdigo fuente original esta asì:\n//-------------------------------------------//\nMETHOD SKIP( n ) CLASS TReport\n\n   STATIC lRunning := .f.\n\n   ::nCounter++\n\n   IF ::bChange != nil .and. !lRunning\n      lRunning := .t.\n      EVAL( ::bChange, Self )\n      lRunning := .f.\n   ENDIF\n\n   IF ::bSkip != nil\n      RETURN EVAL( ::bSkip, n )\n   ENDIF\n[b:ete966on]\nRETURN DBSKIP( n )[/b:ete966on]    &lt;-Aki tira el Fallo\n\nHize una paqueña modificacion esperando que el fallo desapareciera, pero no lo logre y quedo de la siguiente manera:  <!-- s:evil: --><img src=\"{SMILIES_PATH}/icon_evil.gif\" alt=\":evil:\" title=\"Evil or Very Mad\" /><!-- s:evil: --> \n\n//-------------------------------------------//\nMETHOD SKIP( n ) CLASS TReport\n\nSTATIC lRunning := .F.\n\n[b:ete966on]LOCAL cAliRep:= \"\"[/b:ete966on]\n\n   ::nCounter++\n\n   IF ::bChange != nil .and. !lRunning\n      lRunning := .T.\n      EVAL(::bChange, Self)\n      [b:ete966on]cAliRep:= ALIAS()[/b:ete966on]      \n      SysRefresh()\n      lRunning := .T.\n   ENDIF\n\n   IF ::bSkip != nil\n     [b:ete966on] cAliRep:= ALIAS()[/b:ete966on]\n      RETURN EVAL( ::bSkip, n )\n      SysRefresh()\n   ENDIF\n\nRETURN [b:ete966on]((cAliRep)-&gt;(DBSKIP(n)))[/b:ete966on]\n\n\n <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> Lo raro es que a veces funciona bien y muestra los reportes y en ocaciones casca con este fallo, alguien sabra porque se genera y como solucionarlo... <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nGracias de antemano..','',0,'QA==','ete966on',1,0,'',987,0,0),(46679,9692,17,439,0,'200.125.41.1',1200705104,1,0,1,1,1,1,'','tAutoGet  de Maurilio Viana','A través del blog de un fivewiner, llegué a esta clase magnífica, la cual [u:29t2q4v3][b:29t2q4v3]está en este foro [/b:29t2q4v3][/u:29t2q4v3]como un aporte de [b:29t2q4v3]Maurilio Viana[/b:29t2q4v3], pero [u:29t2q4v3][b:29t2q4v3]no la había visto[/b:29t2q4v3][/u:29t2q4v3].\n\n[u:29t2q4v3]Se trata de una clase que autocompleta a partir de un array lo que se escribe en un get.. permitiendo eliminar unos cuantos comboboxes.[/u:29t2q4v3]\n\nMe atrevo, por valorarla mucho, a hacer un \"copy, paste\" y ponerla en el foro de utilidades para que esté más accesible a todos nosotros.\n\nMuchas Gracias Maurilio por tan buen aporte, sea este post una muestra de gratitud por tu trabajo.\n\n[quote:29t2q4v3]\nI use this class I created: TAutoGet \nNew features, bug fixes and enhancements are welcome  \n\nCódigo: \n\n// TAutoGet.prg \n// Auto complete text in get features \n// By: Maurilio Viana <!-- e --><a href=\"mailto:mouri_ryo@hotmail.com\">mouri_ryo@hotmail.com</a><!-- e --> \n// \n// New features, bug fixes and enhancements are welcome <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n// Please, let me now when you include new features, bug fixes etc in this class \n// \n// ToDo: Show drop down window with possible options when typing \n// \n\n#include \"fivewin.ch\" \n\nCLASS TAutoGet FROM TGet \n   DATA aItems AS ARRAY \n\n   METHOD New( nRow    , nCol    , bSetGet  , oWnd     , nWidth   , nHeight,; \n               cPict   , bValid  , nClrFore , nClrBack , oFont    , lDesign,; \n               oCursor , lPixel  , cMsg     , lUpdate  , bWhen    , lCenter,; \n               lRight  , bChanged, lReadOnly, lPassword, lNoBorder, nHelpID,; \n               lSpinner, bUp     , bDown    , bMin     , bMax     , aItems  ) CONSTRUCTOR \n\n   METHOD ReDefine( nID     , bSetGet , oWnd     , nHelpId , cPict, bValid ,; \n                    nClrFore, nClrBack, oFont    , oCursor , cMsg , lUpdate,; \n                    bWhen   , bChanged, lReadOnly, lSpinner, bUp  , bDown  ,; \n                    bMin    , bMax, aItems ) CONSTRUCTOR \n   METHOD SetItems( aItems ) \n   METHOD AutoFill() \nEND CLASS \n\n\n//----------------------------------------------------------------------------------------- \nMETHOD New(nRow     , nCol     , bSetGet , oWnd    , nWidth , nHeight , cPict    ,; \n           bValid   , nClrFore , nClrBack, oFont   , lDesign, oCursor , lPixel   ,; \n           cMsg     , lUpdate  , bWhen   , lCenter , lRight , bChanged, lReadOnly,; \n           lPassword, lNoBorder, nHelpId , lSpinner, bUp    , bDown   , bMin     ,; \n           bMax     , aItems) CLASS TAutoGet \n local nLen, i \n\n Super:New(nRow   , nCol    , bSetGet  , oWnd     , nWidth   , nHeight,; \n           cPict  , bValid  , nClrFore , nClrBack , oFont    , lDesign,; \n           oCursor, lPixel  , cMsg     , lUpdate  , bWhen    , lCenter,; \n           lRight , ::bChange, lReadOnly, lPassword, lNoBorder, nHelpId,; \n           lSpinner, bUp    , bDown    , bMin     , bMax ) \n\n if(aItems == Nil, aItems := {}, ) \n\n ::aItems := aItems \n\n ::bPostKey := {|oGet, cBuffer| ::AutoFill() } \nreturn( Self ) \n\n//----------------------------------------------------------------------------------------- \nMETHOD ReDefine(nID      , bSetGet , oWnd   , nHelpId, cPict  , bValid, nClrFore,; \n                nClrBack , oFont   , oCursor, cMsg   , lUpdate, bWhen , bChanged,; \n                lReadOnly, lSpinner, bUp    , bDown  , bMin   , bMax  , aItems ) CLASS TAutoGet \n\n Super:ReDefine(nID      , bSetGet , oWnd   , nHelpId, cPict  , bValid, nClrFore ,; \n                nClrBack , oFont   , oCursor, cMsg   , lUpdate, bWhen , ::bChange,; \n                lReadOnly, lSpinner, bUp    , bDown  , bMin   , bMax  , aItems  ) \n\n\n if(aItems == Nil, aItems := {}, ) \n\n ::aItems   := aItems \n\n ::bPostKey := {|oGet, cBuffer| ::AutoFill() } \nreturn( Self ) \n\n//--------------------------------------------------------------------------------------- \n// Set items of AutoGet \n//--------------------------------------------------------------------------------------- \nMETHOD SetItems( aItems ) CLASS TAutoGet \n if(aItems == Nil, aItems := {}, ) \n\n ::aItems   := aItems \n\nreturn( Nil ) \n\n//--------------------------------------------------------------------------------------- \n// Auto fill text when type based on aItems options \n// Return: Ever return .T. \n//--------------------------------------------------------------------------------------- \nMETHOD AutoFill() CLASS TAutoGet \n local nPosItem   := 0                           // Text position into ::aItems \n local nPosCursor := ::nPos                      // Current cursor position \n local nLenght    := len(::cText)                // Text lenght \n local cStartTxt  := left(::cText, nPosCursor-1) // Start text (position 1 to cursor position -1) \n local cItem \n\n if len(::aItems) = 0      // We have no items to search in this GET \n    return(.T.) \n endif \n\n //------------------------------------------------------------------------- \n // We use ::cargo to control when we must search in ::aItems for typed text \n // We must seek in ::aItems when GET is blank or when user clear it \n //------------------------------------------------------------------------- \n if valtype(::Cargo) != \"L\" // Cargo isn\'t logical yet -&gt; GET received focus now \n    if ! empty(::Value)     // GET isn\'t empty \n       ::Cargo := .F.       // We don\'t use autofill \n    else                    // GET is empty \n       ::Cargo := .T.       // Use autofill \n    endif \n else                       // We are controlling if use or no autofill \n    if empty(::Value)       // User could cleaned the GET text \n       ::Cargo := .T.       // Use autofill \n    endif \n endif \n //------------------------------------------------------------------------- \n // When lost focus we clean ::Cargo and set GET cursor position to 1st pos \n //------------------------------------------------------------------------- \n ::bLostFocus := {|| ::SetPos(1), ::Cargo := Nil } \n\n if ! ::Cargo    // If don\'t control autofill \n    return(.t.) \n endif \n\n nKey := ::nLastKey \n do case \n    case nKey ==  9 .or. ;    // Tab key \n         nKey == 13 .or. ;    // Enter key \n         nKey == 46           // Del key \n         ::Assign()           // Assign typed text \n    case nKey &gt; 31 \n         FOR EACH cItem IN ::aItems \n             nPosItem += 1 \n             if ToUpper( cItem ) = ToUpper(cStartTxt) \n                nLenght := len( rtrim( cItem ) ) \n                cItem   += space( nLenght - len(cItem) ) \n                ::SetText( cItem ) \n                ::SetSel( nPosCursor -1, nLenght) // Select found text \n                return(.t.) \n             endif \n         NEXT \n         ::HideSel()   // Text not found -&gt; Undo selected text \n endcase \nreturn( .T. ) \n\n// Convert latin characters to ANSI upper case \n// (for any reason AnsiUpper cause a GPF with Comercial xHB) \n\nSTATIC function ToUpper( cString ) \n cString := upper( cString ) \n cString := strtran(strtran(strtran(strtran(cString,\"á\",\"Á\"),\"à\",\"À\"),\"ã\",\"Ã\"),\"â\",\"Â\") \n cString := strtran(strtran(cString,\"é\",\"É\"),\"ê\",\"Ê\") \n cString := strtran(cString,\"í\",\"Í\") \n cString := strtran(strtran(strtran(cString,\"ó\",\"Ó\"),\"õ\",\"Õ\"),\"ô\",\"Ô\") \n cString := strtran(strtran(strtran(cString,\"ú\",\"Ú\"),\"ñ\",\"Ñ\"),\"ç\",\"Ç\") \nreturn( cString ) \n\n// --- EoF --- \n \n\n\nxBase definition (AutoGet.ch): \nCódigo: \n\n/*----------------------------------------------------------------------------// \n!short: AUTOGET  */ \n\n#xcommand REDEFINE AUTOGET [ &lt;oGet&gt; VAR ] &lt;uVar&gt; ; \n             [ ID &lt;nId&gt; ] ; \n             [ &lt;dlg: OF, WINDOW, DIALOG&gt; &lt;oDlg&gt; ] ; \n             [ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ; \n             [ VALID   &lt;ValidFunc&gt; ]       ; \n             [ &lt;pict: PICTURE, PICT&gt; &lt;cPict&gt; ] ; \n             [ &lt;color:COLOR,COLORS&gt; &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ; \n             [ FONT &lt;oFont&gt; ] ; \n             [ CURSOR &lt;oCursor&gt; ] ; \n             [ MESSAGE &lt;cMsg&gt; ] ; \n             [ &lt;update: UPDATE&gt; ] ; \n             [ WHEN &lt;uWhen&gt; ] ; \n             [ ON CHANGE &lt;uChange&gt; ] ; \n             [ &lt;readonly: READONLY, NO MODIFY&gt; ] ; \n             [ &lt;spin: SPINNER&gt; [ON UP &lt;SpnUp&gt;] [ON DOWN &lt;SpnDn&gt;] [MIN &lt;Min&gt;] [MAX &lt;Max&gt;] ] ; \n             [ ITEMS &lt;aItems&gt;] ; \n       =&gt; ; \n          [ &lt;oGet&gt; := ] TAutoGet():ReDefine( &lt;nId&gt;, bSETGET(&lt;uVar&gt;), &lt;oDlg&gt;,; \n             &lt;nHelpId&gt;, &lt;cPict&gt;, &lt;{ValidFunc}&gt;, &lt;nClrFore&gt;, &lt;nClrBack&gt;,; \n             &lt;oFont&gt;, &lt;oCursor&gt;, &lt;cMsg&gt;, .T., &lt;{uWhen}&gt;,; \n             [ \\{|nKey,nFlags,Self| &lt;uChange&gt; \\}], &lt;.readonly.&gt;,; \n             &lt;.spin.&gt;, &lt;{SpnUp}&gt;, &lt;{SpnDn}&gt;, &lt;{Min}&gt;, &lt;{Max}&gt;, &lt;aItems&gt;) \n\n#command @ &lt;nRow&gt;, &lt;nCol&gt; AUTOGET [ &lt;oGet&gt; VAR ] &lt;uVar&gt; ; \n            [ &lt;dlg: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ; \n            [ &lt;pict: PICTURE, PICT&gt; &lt;cPict&gt; ] ; \n            [ VALID &lt;ValidFunc&gt; ] ; \n            [ &lt;color:COLOR,COLORS&gt; &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ; \n            [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ]  ; \n            [ FONT &lt;oFont&gt; ] ; \n            [ &lt;design: DESIGN&gt; ] ; \n            [ CURSOR &lt;oCursor&gt; ] ; \n            [ &lt;pixel: PIXEL&gt; ] ; \n            [ MESSAGE &lt;cMsg&gt; ] ; \n            [ &lt;update: UPDATE&gt; ] ; \n            [ WHEN &lt;uWhen&gt; ] ; \n            [ &lt;lCenter: CENTER, CENTERED&gt; ] ; \n            [ &lt;lRight: RIGHT&gt; ] ; \n            [ ON CHANGE &lt;uChange&gt; ] ; \n            [ &lt;readonly: READONLY, NO MODIFY&gt; ] ; \n            [ &lt;pass: PASSWORD&gt; ] ; \n            [ &lt;lNoBorder: NO BORDER, NOBORDER&gt; ] ; \n            [ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ; \n            [ ITEMS &lt;aItems&gt;] ; \n       =&gt; ; \n          [ &lt;oGet&gt; := ] TAutoGet():New( &lt;nRow&gt;, &lt;nCol&gt;, bSETGET(&lt;uVar&gt;),; \n             [&lt;oWnd&gt;], &lt;nWidth&gt;, &lt;nHeight&gt;, &lt;cPict&gt;, &lt;{ValidFunc}&gt;,; \n             &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;oFont&gt;, &lt;.design.&gt;,; \n             &lt;oCursor&gt;, &lt;.pixel.&gt;, &lt;cMsg&gt;, .T., &lt;{uWhen}&gt;,; \n             &lt;.lCenter.&gt;, &lt;.lRight.&gt;,; \n             [\\{|nKey, nFlags, Self| &lt;uChange&gt;\\}], &lt;.readonly.&gt;,; \n             &lt;.pass.&gt;, [&lt;.lNoBorder.&gt;], &lt;nHelpId&gt;,,,,,,&lt;aItems&gt; ) \n\n#command @ &lt;nRow&gt;, &lt;nCol&gt; AUTOGET [ &lt;oGet&gt; VAR ] &lt;uVar&gt; ; \n            [ &lt;dlg: OF, WINDOW, DIALOG&gt; &lt;oWnd&gt; ] ; \n            [ &lt;pict: PICTURE, PICT&gt; &lt;cPict&gt; ] ; \n            [ VALID &lt;ValidFunc&gt; ] ; \n            [ &lt;color:COLOR,COLORS&gt; &lt;nClrFore&gt; [,&lt;nClrBack&gt;] ] ; \n            [ SIZE &lt;nWidth&gt;, &lt;nHeight&gt; ]  ; \n            [ FONT &lt;oFont&gt; ] ; \n            [ &lt;design: DESIGN&gt; ] ; \n            [ CURSOR &lt;oCursor&gt; ] ; \n            [ &lt;pixel: PIXEL&gt; ] ; \n            [ MESSAGE &lt;cMsg&gt; ] ; \n            [ &lt;update: UPDATE&gt; ] ; \n            [ WHEN &lt;uWhen&gt; ] ; \n            [ &lt;lCenter: CENTER, CENTERED&gt; ] ; \n            [ &lt;lRight: RIGHT&gt; ] ; \n            [ ON CHANGE &lt;uChange&gt; ] ; \n            [ &lt;readonly: READONLY, NO MODIFY&gt; ] ; \n            [ &lt;help:HELPID, HELP ID&gt; &lt;nHelpId&gt; ] ; \n            [ &lt;spin: SPINNER&gt; [ON UP &lt;SpnUp&gt;] [ON DOWN &lt;SpnDn&gt;] [MIN &lt;Min&gt;] [MAX &lt;Max&gt;] ] ; \n            [ ITEMS &lt;aItems&gt;] ; \n       =&gt; ; \n          [ &lt;oGet&gt; := ] TAutoGet():New( &lt;nRow&gt;, &lt;nCol&gt;, bSETGET(&lt;uVar&gt;),; \n             [&lt;oWnd&gt;], &lt;nWidth&gt;, &lt;nHeight&gt;, &lt;cPict&gt;, &lt;{ValidFunc}&gt;,; \n             &lt;nClrFore&gt;, &lt;nClrBack&gt;, &lt;oFont&gt;, &lt;.design.&gt;,; \n             &lt;oCursor&gt;, &lt;.pixel.&gt;, &lt;cMsg&gt;, .T., &lt;{uWhen}&gt;,; \n             &lt;.lCenter.&gt;, &lt;.lRight.&gt;,; \n             [\\{|nKey, nFlags, Self| &lt;uChange&gt;\\}], &lt;.readonly.&gt;,; \n             .f., .f., &lt;nHelpId&gt;,; \n             &lt;.spin.&gt;, &lt;{SpnUp}&gt;, &lt;{SpnDn}&gt;, &lt;{Min}&gt;, &lt;{Max}&gt;, &lt;aItems&gt; ) \n \n\n\nA fragment of code: \n\n#include \"autoget.ch\" \n\n(...) \ncName := space(20) \naNames := {\"Mauro\", \"Mauricio\", \"Maurilio\", \"Maurizio\"} \n\nredefine autoget oGet var cName id 101 of oDlg items aNames \n\n(...) \nYou can update items from available text to autocomplete using: \naNames := {\"Angelo\", \"Antonio\", \"Afonso\"} \noGet:SetItems( aNames ) \n\nBest regards! \nMaurilio[/quote:29t2q4v3]','',0,'wQ==','29t2q4v3',1,0,'',439,0,0),(46681,9693,3,51,0,'80.122.88.242',1200708063,1,0,1,1,1,0,'','xBrowser power','Diffrent fonts per row!\n\n\n[img:3ueg38e8]http&#58;//www&#46;atzwanger&#46;com/fw/xbrwFonts&#46;jpg[/img:3ueg38e8]','',0,'CA==','3ueg38e8',1,0,'',51,0,0),(46682,9684,6,53,0,'189.139.96.220',1200711772,1,0,1,1,1,1,'','','FWHISHOW:\n\nCreo que el problema esta en alguna división, debes probar que el divisor no sea CERO, por ejemplo\n\nnDivdndo := 1000.00\nnDivsr := 0\n\nnResult := nDivdndo / nDivsr      // Esto te va a provocar error\n\nPrueba así\n\nIF nDivsr &lt;&gt; 0.00\n      nResult := nDivdndo / nDivsr\nELSE\n      nResult := 0.00\nENDIF\n\nSaludos','',0,'CA==','3esmgleh',1,0,'',53,0,0),(46683,9684,6,78,0,'190.43.176.223',1200714217,1,0,1,1,1,0,'','','Hola, prueba asi\n\nnValor1 := 7\nnDiviso := 0\n\nnResult := nValor1 / IF(nDiviso =0,1, nDivisor)\n\n....\n\n\nSalu2','',0,'CA==','3hhgdw3o',1,0,'',78,0,0),(46684,7680,3,34,0,'68.5.217.82',1200715701,1,0,1,1,1,1,'','Spell check','A lot of companies use this product in their software.  I see it often.\n\nMy clients have been very happy with the performance.  You can also use your own dictionaries or add words.\n\nFinally, it has lexicons for many languages.\n\nTim','',0,'CA==','3mwibn8n',1,0,'',34,0,0),(46685,9682,3,34,0,'68.5.217.82',1200715790,1,0,1,1,1,1,'','Message bar','Thank you.  I\'ll order it when its released.','',0,'CA==','365t16wh',1,0,'',34,0,0),(46686,9690,6,396,0,'200.71.188.209',1200721640,1,0,1,1,1,1,'','Re: Calculadora virtual','[quote=&quot;Loren&quot;:3j3v38x3]Compañeros:\n\nEstoy diseñado una calculadora virtual. Contiene los buttons del 0 al 9 y el \".\" para los decimales. El problema es que cuando hago click en el \".\" los decimales no los coge. Tengo lo siguiente:\n\nredefine button onum0  id 4001 of odlg1 action calc(\'0\')\n...\nredefine button onum9  id 4010 of odlg1 action calc(\'9\')\nredefine button onum10 id 4011 of odlg1 action calc(\'.\')\nredefine get     onumcal var numcal id 4011 of odlg1 picture \'99999.99\'\nactivate dialog...\n\nfunct calc(n)\n if n!=\'Del\'\n  numcal:=val(PadR( AllTrim( str(numcal) ) + n, 8,2 )) ; onumcal:Refresh()\n else\n  numcal:=0 ; onumcal:refresh()\n endif\nreturn\n\n... Funciona perfectamente hasta la parte entera del número, la parte decimal es imposible. ¿Que me falta?\nMil gracias\nLORENZO.[/quote:3j3v38x3]\nLorenzo, me parece no deberias de evaluar la variable N cuando entra el \".\" en la condicion del IF, es lo unico que veo extraño, del resto todo lo veo bien, imagino tu variable N esta definida como string, aviso si pruebo y resuelvo algo, saludos.','',0,'gA==','3j3v38x3',1,0,'',396,0,0),(46687,9689,3,2,0,'87.218.146.22',1200723201,1,0,1,1,1,1,'','','Günther,\n\nInstead of modifying the class, you can use &lt;oBrowse&gt;:bChanged to change the edit style based on some conditions:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9576\">http://fivetechsoft.com/forums/viewtopic.php?t=9576</a><!-- m -->','',0,'gA==','2b17js08',1,0,'',2,0,0),(46688,7680,3,3,0,'85.195.137.204',1200723333,1,0,1,1,1,1,'','','Reinaldo\n\nI also use this product in my app since few years\n\nExcellent product\n\nHth\n\nRichard','',0,'gA==','2hcgdffs',1,0,'',3,0,0),(46689,9690,6,389,0,'189.133.12.198',1200726214,1,0,1,1,1,0,'','','Loren\n[code:1vant45v]\nFUNCTION KeyBoardVirtual&#40; cStringTexto &#41;\n  LOCAL oDlgVirtual, oFontDlg, oFontGet, oGetTexto, cTexto, aBtnsKeys, lSalida\n\n  aBtnsKeys&#58;= ARRAY&#40;49&#41;\n  lSalida  &#58;= FALSE\n  cTexto   &#58;= Space&#40;78&#41;\n\n  IF cStringTexto != NIL\n     cTexto&#58;= PADR&#40; ALLTRIM&#40; cStringTexto &#41;, 78 &#41;\n  ENDIF\n\n  DEFINE FONT oFontDlg NAME &quot;Arial&quot; SIZE 0, -13 BOLD\n  DEFINE FONT oFontGet NAME &quot;Arial&quot; SIZE 0, -16 BOLD\n\n  DEFINE DIALOG oDlgVirtual RESOURCE &quot;DLG_TECLADO&quot;;\n         TITLE &quot;Teclado Virtual de Oregano Gourmet&#46;&#46;&#46;&quot;\n\n  REDEFINE GROUP ID 300 COLOR GetSysColor&#40; COLOR_ACTIVECAPTION &#41; TRANSPARENT OF  oDlgVirtual\n  REDEFINE GROUP ID 350 COLOR GetSysColor&#40; COLOR_ACTIVECAPTION &#41; TRANSPARENT OF  oDlgVirtual\n\n  REDEFINE GET oGetTexto VAR cTexto ID 550 FONT oFontGet OF  oDlgVirtual\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 1&#93; ID 500 OF  oDlgVirtual PROMPT &quot;Q&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;Q&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 2&#93; ID 501 OF  oDlgVirtual PROMPT &quot;W&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;W&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 3&#93; ID 502 OF  oDlgVirtual PROMPT &quot;E&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;E&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 4&#93; ID 503 OF  oDlgVirtual PROMPT &quot;R&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;R&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 5&#93; ID 504 OF  oDlgVirtual PROMPT &quot;T&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;T&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 6&#93; ID 505 OF  oDlgVirtual PROMPT &quot;Y&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;Y&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 7&#93; ID 506 OF  oDlgVirtual PROMPT &quot;U&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;U&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 8&#93; ID 507 OF  oDlgVirtual PROMPT &quot;I&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;I&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91; 9&#93; ID 508 OF  oDlgVirtual PROMPT &quot;O&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;O&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;10&#93; ID 509 OF  oDlgVirtual PROMPT &quot;P&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;P&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;11&#93; ID 510 OF  oDlgVirtual PROMPT &quot;A&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;A&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;12&#93; ID 511 OF  oDlgVirtual PROMPT &quot;S&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;S&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;13&#93; ID 512 OF  oDlgVirtual PROMPT &quot;D&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;D&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;14&#93; ID 513 OF  oDlgVirtual PROMPT &quot;F&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;F&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;15&#93; ID 514 OF  oDlgVirtual PROMPT &quot;G&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;G&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;16&#93; ID 515 OF  oDlgVirtual PROMPT &quot;H&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;H&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;17&#93; ID 516 OF  oDlgVirtual PROMPT &quot;J&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;J&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;18&#93; ID 517 OF  oDlgVirtual PROMPT &quot;K&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;K&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;19&#93; ID 518 OF  oDlgVirtual PROMPT &quot;L&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;L&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;20&#93; ID 519 OF  oDlgVirtual PROMPT &quot;Ñ&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;Ñ&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;21&#93; ID 520 OF  oDlgVirtual PROMPT &quot;Z&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;Z&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;22&#93; ID 521 OF  oDlgVirtual PROMPT &quot;X&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;X&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;23&#93; ID 522 OF  oDlgVirtual PROMPT &quot;C&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;C&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;24&#93; ID 523 OF  oDlgVirtual PROMPT &quot;V&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;V&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;25&#93; ID 524 OF  oDlgVirtual PROMPT &quot;B&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;B&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;26&#93; ID 525 OF  oDlgVirtual PROMPT &quot;N&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;N&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;27&#93; ID 526 OF  oDlgVirtual PROMPT &quot;M&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;M&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;28&#93; ID 527 OF  oDlgVirtual PROMPT &quot;&#40;,&#41;&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;,&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;29&#93; ID 528 OF  oDlgVirtual PROMPT &quot;&#40;&#46;&#41;&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;&#46;&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;30&#93; ID 529 OF  oDlgVirtual PROMPT &quot;&#40;-&#41;&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;-&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;31&#93; ID 551 OF  oDlgVirtual PROMPT &quot;7&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;7&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;32&#93; ID 552 OF  oDlgVirtual PROMPT &quot;8&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;8&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;33&#93; ID 553 OF  oDlgVirtual PROMPT &quot;9&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;9&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;34&#93; ID 554 OF  oDlgVirtual PROMPT &quot;4&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;4&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;35&#93; ID 555 OF  oDlgVirtual PROMPT &quot;5&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;5&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;36&#93; ID 556 OF  oDlgVirtual PROMPT &quot;6&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;6&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;37&#93; ID 557 OF  oDlgVirtual PROMPT &quot;1&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;1&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;38&#93; ID 558 OF  oDlgVirtual PROMPT &quot;2&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;2&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;39&#93; ID 559 OF  oDlgVirtual PROMPT &quot;3&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;3&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;40&#93; ID 560 OF  oDlgVirtual PROMPT &quot;0&quot; ;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;0&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;41&#93; ID 561 OF  oDlgVirtual PROMPT &quot;Supr&quot;;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyDown&#40;VK_DELETE&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;42&#93; ID 531 OF  oDlgVirtual PROMPT &quot;Barra espaciadora&quot;;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot; &quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;43&#93; ID 530 OF  oDlgVirtual PROMPT &quot;&#40;&quot;;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;&#40;&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;44&#93; ID 532 OF  oDlgVirtual PROMPT &quot;&#41;&quot;;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyChar&#40;ASC&#40;&quot;&#41;&quot;&#41;&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;45&#93; ID 563 OF  oDlgVirtual PROMPT &quot;&lt;- Retroceso&quot;;\n           ACTION &#40;  oGetTexto&#58;SetFocus&#40;&#41;,  oGetTexto&#58;KeyDown&#40;VK_BACK&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;46&#93; ID 533 OF  oDlgVirtual PROMPT &quot;&lt;-&quot;;\n           ACTION &#40;  , oGetTexto&#58;SetFocus&#40;&#41;, oGetTexto&#58;KeyDown&#40;VK_LEFT&#41;&#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;47&#93; ID 535 OF  oDlgVirtual PROMPT &quot;-&gt;&quot;;\n           ACTION &#40;  , oGetTexto&#58;SetFocus&#40;&#41; ,oGetTexto&#58;KeyDown&#40;VK_RIGHT&#41; &#41;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;48&#93; ID 534 OF  oDlgVirtual;\n           PROMPT &quot;Enter&quot;\n\n  REDEFINE BUTTON  aBtnsKeys&#91;49&#93; ID 562 OF  oDlgVirtual;\n           PROMPT &quot;E&quot; + CRLF + &quot;n&quot;  + CRLF + &quot;t&quot;  + CRLF + &quot;e&quot;  + CRLF + &quot;r&quot;;\n           ACTION &#40; lSalida&#58;= TRUE, oDlgVirtual&#58;End&#40;&#41; &#41;\n  AEVAL&#40;  aBtnsKeys, &#123;| oBtn | oBtn&#58;oFont&#58;=  oFontDlg &#125; &#41;\n\n  oDlgVirtual&#58;lHelpIcon&#58;= &#46;F&#46;\n\n  ACTIVATE DIALOG  oDlgVirtual ;\n           ON PAINT oGetTexto&#58;SetFocus&#40;&#41;;\n           VALID  lSalida\n\n  IF lSalida\n     AEVAL&#40;  aBtnsKeys, &#123;| oBtn | oBtn&#58;End&#40;&#41; &#125; &#41;\n     aBtnsKeys&#58;= NIL\n  ENDIF\n\n RETURN cTexto\n[/code:1vant45v]\n\nEl archivo de recursos\n\nDLG_TECLADO DIALOGEX DISCARDABLE 35, 30, 596, 207\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_VISIBLE\nCAPTION \"Dialog\"\nFONT 8, \"MS Sans Serif\", 0, 0, 1\nBEGIN\n  CONTROL \"Q\", 500, \"Button\", WS_TABSTOP, 9, 43, 42, 34\n  CONTROL \"\", 550, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 10, 14, 427, 24\n  CONTROL \"\", 300, \"Button\", BS_GROUPBOX, 4, 3, 440, 187\n  CONTROL \"W\", 501, \"Button\", WS_TABSTOP, 52, 43, 42, 34\n  CONTROL \"E\", 502, \"Button\", WS_TABSTOP, 95, 43, 42, 34\n  CONTROL \"R\", 503, \"Button\", WS_TABSTOP, 138, 43, 42, 34\n  CONTROL \"7\", 551, \"Button\", WS_TABSTOP, 454, 12, 42, 34\n  CONTROL \"8\", 552, \"Button\", WS_TABSTOP, 497, 12, 42, 34\n  CONTROL \"9\", 553, \"Button\", WS_TABSTOP, 540, 12, 42, 34\n  CONTROL \"4\", 554, \"Button\", WS_TABSTOP, 454, 47, 42, 34\n  CONTROL \"5\", 555, \"Button\", WS_TABSTOP, 497, 47, 42, 34\n  CONTROL \"6\", 556, \"Button\", WS_TABSTOP, 540, 47, 42, 34\n  CONTROL \"1\", 557, \"Button\", WS_TABSTOP, 454, 82, 42, 34\n  CONTROL \"2\", 558, \"Button\", WS_TABSTOP, 497, 82, 42, 34\n  CONTROL \"3\", 559, \"Button\", WS_TABSTOP, 540, 82, 42, 34\n  CONTROL \"0\", 560, \"Button\", WS_TABSTOP, 454, 117, 42, 34\n  CONTROL \"Supr\", 561, \"Button\", WS_TABSTOP, 497, 117, 42, 34\n  CONTROL \"Y\", 505, \"Button\", WS_TABSTOP, 224, 43, 42, 34\n  CONTROL \"T\", 504, \"Button\", WS_TABSTOP, 181, 43, 42, 34\n  CONTROL \"U\", 506, \"Button\", WS_TABSTOP, 267, 43, 42, 34\n  CONTROL \"I\", 507, \"Button\", WS_TABSTOP, 310, 43, 42, 34\n  CONTROL \"O\", 508, \"Button\", WS_TABSTOP, 353, 43, 42, 34\n  CONTROL \"A\", 510, \"Button\", WS_TABSTOP, 9, 78, 42, 34\n  CONTROL \"S\", 511, \"Button\", WS_TABSTOP, 52, 78, 42, 34\n  CONTROL \"D\", 512, \"Button\", WS_TABSTOP, 95, 78, 42, 34\n  CONTROL \"F\", 513, \"Button\", WS_TABSTOP, 138, 78, 42, 34\n  CONTROL \"H\", 515, \"Button\", WS_TABSTOP, 224, 78, 42, 34\n  CONTROL \"G\", 514, \"Button\", WS_TABSTOP, 181, 78, 42, 34\n  CONTROL \"J\", 516, \"Button\", WS_TABSTOP, 267, 78, 42, 34\n  CONTROL \"K\", 517, \"Button\", WS_TABSTOP, 310, 78, 42, 34\n  CONTROL \"L\", 518, \"Button\", WS_TABSTOP, 353, 78, 42, 34\n  CONTROL \"Z\", 520, \"Button\", WS_TABSTOP, 9, 113, 42, 34\n  CONTROL \"X\", 521, \"Button\", WS_TABSTOP, 52, 113, 42, 34\n  CONTROL \"C\", 522, \"Button\", WS_TABSTOP, 95, 113, 42, 34\n  CONTROL \"V\", 523, \"Button\", WS_TABSTOP, 138, 113, 42, 34\n  CONTROL \"N\", 525, \"Button\", WS_TABSTOP, 224, 113, 42, 34\n  CONTROL \"B\", 524, \"Button\", WS_TABSTOP, 181, 113, 42, 34\n  CONTROL \"M\", 526, \"Button\", WS_TABSTOP, 267, 113, 42, 34\n  CONTROL \"coma (,)\", 527, \"Button\", WS_TABSTOP, 310, 113, 42, 34\n  CONTROL \"punto (.)\", 528, \"Button\", WS_TABSTOP, 353, 113, 42, 34\n  CONTROL \"P\", 509, \"Button\", WS_TABSTOP, 396, 43, 42, 34\n  CONTROL \"Ñ\", 519, \"Button\", WS_TABSTOP, 397, 78, 42, 34\n  CONTROL \"guion (-)\", 529, \"Button\", WS_TABSTOP, 397, 113, 42, 34\n  CONTROL \"&lt;-\", 533, \"Button\", WS_TABSTOP, 267, 148, 42, 34\n  CONTROL \"ENTER\", 534, \"Button\", WS_TABSTOP, 353, 148, 85, 34\n  CONTROL \"(\", 530, \"Button\", WS_TABSTOP, 9, 148, 41, 34\n  CONTROL \")\", 532, \"Button\", WS_TABSTOP, 52, 148, 42, 34\n  CONTROL \"Enter\", 562, \"Button\", BS_MULTILINE|WS_TABSTOP, 540, 117, 42, 69\n  CONTROL \"&lt;- Retroceso\", 563, \"Button\", WS_TABSTOP, 454, 152, 85, 34\n  CONTROL \"\", 350, \"Button\", BS_GROUPBOX, 449, 3, 140, 187\n  CONTROL \"Barra espaciadora\", 531, \"Button\", WS_TABSTOP, 95, 148, 170, 34\n  CONTROL \"-&gt;\", 535, \"Button\", WS_TABSTOP, 310, 148, 42, 34\nEND\n\nSaludos','',0,'AIA=','1vant45v',1,0,'',389,0,0),(46691,9693,3,868,0,'219.64.121.60',1200733625,1,0,1,1,1,1,'','','Mr Otto\nGreat Job\nDo you mind sharing how you have done it ?\nI am also looking for another feature. Conditionally paint or not to paint row divider lines for a particular column. Have you thought about it ?','',0,'AIA=','3gdew0v8',1,0,'',868,0,0),(46692,9689,3,210,0,'81.24.159.58',1200734291,1,0,1,1,1,1,'','','Thanks, both ways are possible!\n\nFor the second problem I wrote is no solution?\n\n[color=blue:1nalgghl]Also the picture z.B. \"@E ##.#\" from numeric data only in editing-mode is active. In normal mode this picture is not active.[/color:1nalgghl]','',0,'Ag==','1nalgghl',1,0,'',210,0,0),(46693,9693,3,51,0,'80.122.88.242',1200737089,1,0,1,1,1,0,'','','The result is great – the job not so great, because I did some hard coding.\nNageswaraRao, you have the skill to code this into a codeblock.\nI send you the chances with email.\nBest regards,\nOtto','',0,'Ag==','2zi08qqa',1,0,'',51,0,0),(46694,9693,3,868,0,'219.64.121.60',1200737180,1,0,1,1,1,1,'','','ok please send me\n\ni am struggling with optional row line painting.  it is not working for me','',0,'Ag==','2w0dc956',1,0,'',868,0,0),(46695,9667,6,1236,0,'201.47.64.177',1200737901,1,0,1,1,1,0,'','','Obrigado Anderson, acho que só vc entendeu que se o usuário apertar ESC, esta na verdade dizendo um NÃO!\n\n\nFique com Deus','',0,'Ag==','39sxhxme',1,0,'',1236,0,0),(46696,9684,6,1236,0,'201.47.64.177',1200738015,1,0,1,1,1,0,'','','GRACIAS A TODOS!','',0,'Ag==','34c0ce5x',1,0,'',1236,0,0),(46697,9693,3,51,0,'80.122.88.242',1200738367,1,0,1,1,1,0,'','','For \"treeview\" look it would be very important.\n\nRegards,\nOtto','',0,'Ag==','2ik5dbdk',1,0,'',51,0,0),(46698,9695,6,1236,0,'201.47.64.177',1200739460,1,0,1,1,1,0,'','executar uma function antes do ERRSYSW ?','Pessoal, é possível quando ocorrer um erro no sistema, executar uma função antes de ir para o ERRSYSW? \n\n\nGrato','',0,'Ag==','t5i9w28n',1,0,'',1236,0,0),(46699,9696,6,9,0,'85.59.63.28',1200739958,1,0,1,1,1,1,'','RECORDSET AND REPORT','En una aplicacion Oracle + Ado, capturo un RecordSet con varios registros que muestro en un Browse con tres columnas:\n\n\n   ..........\n    \n   REDEFINE LISTBOX oLbx ;\n       FIELDS oRs:Fields(\"CLASE\"):value, ;\n              oRs:Fields(\"NOMBRE\"):value, ;\n              NUM2STR(oRs:Fields(\"CONTROL\"):value, 10, 0) ;\n       HEADERS PADC(\"Clase\",18) ,  ;\n               PADC(\"Nombre\",80),  ;\n               PADC(\"Ref.\",10)     ;\n       FIELDSIZES 90, 290, 20     ;\n       ID 101                      ;\n       OF oDlg                     \n\n   oLbx:aJustify ={.F.,.F.,.t.}\n   oLbx:bLogicLen = { || oRs:RecordCount }\n   oLbx:bGoTop = { || oRs:MoveFirst() } \n   oLbx:bGoBottom = { || oRs:MoveLast() }\n   oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) }\n   oLbx:cAlias = \"ARRAY\"\n\nDesearía imprimir el browse (todos los registros) con la clase Report, pero solo consigo que me salga, varias veces, el primer registro. He intentado poniendo un bucle FOR/NEXT ó de la manera usual con un array (bSkip), pero no resulta. ¿Alguna ayudita por favor?\n\n----------------------------------------------------------\nSTATIC FUNCTION I_LISTA( oRs )\nLOCAL oReport, oFont1, oFont2, oFont3, oPen1, oPen2\n\n     DEFINE FONT oFont1 NAME \"ARIAL\" SIZE 0,-8\n     DEFINE FONT oFont2 NAME \"ARIAL\" SIZE 0,-12 BOLD\n     DEFINE FONT oFont3 NAME \"ARIAL\" SIZE 0,-16 BOLD\n\n     REPORT oReport ;\n        CAPTION \" Mi libro de Cocinas\" ;\n        TITLE  \"*** Listado de Recetas ***\"  ;\n        HEADER DTOC(DATE()) , \" \" FONT oFont1, ;\n               oFont2, ;\n               oFont3  ;\n        FOOTER \"Página Número: \" + STR (oReport:nPage, 3) CENTER ;\n        PREVIEW\n        COLUMN TITLE \"Clas\"  DATA  oRs:Fields(\"clase\"):value\n        COLUMN TITLE \"Nombre\" DATA oRs:Fields(\"nombre\"):value\n        COLUMN TITLE \"Refª\"   DATA oRs:Fields(\"control\"):value\n\n     END REPORT\n\n     oReport:oTitle:aFont[1] := {|| 3 }\n     oReport:oHeader:aFont[1] := {|| 2 }\n     oReport:oDevice:SetPortrait()\n     oReport:oDevice:lPrvModal := .T. // preview modal\n\n     ACTIVATE REPORT oReport\n\n     oFont1:End()\n     oFont2:End()\n     oFont3:End()\n     oRs:MoveFirst()\n\nRETURN NIL\n\n------------------------------------------','',0,'','28hrd6vs',1,0,'',9,0,0),(46700,9671,3,1257,0,'195.93.60.7',1200751088,1,0,1,1,1,1,'','Source of Outlook2003 - Samples','Hello from Germany\n\nIn the moment, there are just a few samples.\nThere are many more i want to show like :\nFull screen for Outlook2003 as a main-window.\n( somebody asked for it )\nOffice2007-buttonbars on the righthandside.\nIn the moment it works only on the Outlook2003\nmain-dialog.\nThere will be 3 sample-groups :\nOutlook2003-Basics : \ndifferent standard-types like gets, browsers, folders and so on, Outlook2003-xBrowse :\nonly samples for different kinds of xBrowse\nOutlook2003-Fullscreen :\na special version\nI hope, that it is not to much work.\n\nAs soon it ist finished, it will be all together\nready for download.  \n \nGreetings\nO. König','',0,'','1xhzy9l6',1,0,'',1257,0,0),(46701,9672,23,1257,0,'195.93.60.7',1200751657,1,0,1,1,1,1,'','Sourcen für Outlook2003-Samples','Hallo, aus Essen\n\nIm Moment werden die Beispiele noch erweitert.\n\nEs werden 3 Gruppen vorhanden sein :\n\nOutlook2003 - Basics : Gets, Browser, Folder usw.\nOutlook2003 - xBrowse : nur xBrowse-Beispiele\nOutlook2003 - Full-Screen : eine spezielle Variante mit\n                     Outlook2003 als Main-Window\n\nIch hoffe, das Ganze dauert nicht zu lange.\nBei Fertigstellung wird alles zum Download bereitgestellt.\n\nGrüße\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','36vo68ia',1,0,'',1257,0,0),(46702,9696,6,174,0,'83.230.243.215',1200755027,1,0,1,1,1,0,'','','Posiblemente usando el metodo bSkip del Report:\n\nEND REPORT\n\n....\n....\noReport:bSkip = { | nSkip | Skipper( oRs, nSkip ) } \n\nACTIVATE REPORT oReport','',0,'','1spanmjf',1,0,'',174,0,0),(46703,9667,6,439,0,'200.125.35.192',1200755393,1,0,1,1,1,1,'','Re: MSGYESNO() - ESC?','[quote=&quot;Anderson.OL&quot;:2en9lyls]Volta pra sua casa João, vem dar pitaco aqui não  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->.[/quote:2en9lyls]\n\nEstoy de acuerdo con Antonio, una cosa que disfruto de este foro es que en general existe respeto por todos los que participamos de el, tanto por las opiniones como por los diferentes niveles de conocimiento de quienes participamos en el.\n\n[b:2en9lyls]Quisiera que eso nunca cambie[/b:2en9lyls] <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nPor este foro he formado muchas amistades y recibido mucha ayuda, también modestamente he tenido la oportunidad de ayudar a otros, pero siempre dentro del respeto.\n\nComentarios como el tuyo me parecen de mal gusto, y particularmente no muy prudentes, nunca sabes quien puede ayudarte en la próxima ocasión.\n\nJoao es un compañero que aporta mucho a este foro con mucha cordialidad y disposición.\nMerece el mismo respeto que todos nosotros, sinceramente no quisiera volver a ver esta clase de comentarios.','',0,'wA==','2en9lyls',1,0,'',439,0,0),(46704,9697,23,1257,0,'195.93.60.7',1200757930,1,0,1,1,1,1,'','Einfügen von Bildern bei Fragen im Forum ?','Hallo, aus Essen\n\nWie füge ich bei Fragen Bilder mit der &lt; Img &gt; Taste in\nmeine Message ein ?\nIst hier ein bestimmtes Format notwendig ?\nIch habe diese Möglichkeit bisher nicht genutzt.\n\nDanke <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nU.König','',0,'wA==','3jdtak78',1,0,'',1257,0,0),(46705,9698,3,903,0,'87.3.78.145',1200762391,1,0,1,1,1,0,'','help','ciao a tutti\ncome posso aggiungere un nuovo campo durante l\'esecuzione del programma.\nsaluti marino','',0,'wA==','296a59yp',1,0,'',903,0,0),(46706,9667,6,53,0,'189.139.222.147',1200764573,1,0,1,1,1,1,'','','Mis 2 ctvs:\n\nAlguien dijo, \"Podré no estar de acuerdo en lo que dices, pero defendere hasta la muerte tu derecho a decirlo\"\n\nSaludos','',0,'wA==','czkh88il',1,0,'',53,0,0),(46707,9697,23,130,0,'77.179.185.0',1200764732,1,0,1,1,1,1,'','','Hallo Uwe,\n\ndu mußt die Bilder bei Imageshack hochladen und veröffentlichst dann nur den entsprechenden Link im Forum.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.imageshack.us/\">http://www.imageshack.us/</a><!-- m -->','',0,'wA==','2e38y1mr',1,0,'',130,0,0),(46708,9696,6,53,0,'189.139.222.147',1200765691,1,0,1,1,1,1,'','','Manuel:\n\nYo lo hago así con MySql, espero que te funcione con Oracle:\n\nDentro de la función para la impresión tengo\n\nFUNCTION Imprime()\n\nLOCAL nLinea		:= 1\nLOCAL nHasta		:= oRsPro:RecordCount()\n\noRsPro:MoveFirst()\n\nAquí van los DEFINE de fonts y REPORT\n\n// Creo que aqui esta el truco\nIF oReporte:lCreated\n   oReporte:bSkip := { || (nLinea++, oRsPro:MoveNext())}\nENDIF\n\nY finalmente al activar el reporte:\n\nACTIVATE REPORT oReporte ;\n      WHILE nLinea &lt;= nHasta\n\n\nEspero esto te ayude, Saludos','',0,'wA==','3f865ju8',1,0,'',53,0,0),(46709,9698,3,86,0,'78.21.111.254',1200766914,1,0,1,1,1,1,'','','And now in English ?','',0,'wA==','2zgwnxmy',1,0,'',86,0,0),(46710,9695,6,987,0,'189.133.9.121',1200769515,1,0,1,1,1,0,'','','FWHISHOW Yo lo hago asi:\n\nEsto esta en la linea 80 a 85\n\nERRORBLOCK( {|e| MsgStop( ErrorMessage(e) + \" desde ErrorSys, linea: \" + ;\n                    STR( PROCLINE( 1 ), 3 ) ),[b:1i0yhg36]Reg_Activ(\"SALIDA ANORMAL DEL SISTEMA\"),Online(.F.)[/b:1i0yhg36], __quit() } )\n   cErrorLog += \"Descripción de la Applicación:\" + CRLF\n   cErrorLog += \"___________________________________________________\" + CRLF + CRLF\n   cErrorLog += \"Ubicación y Nombre: \" + GetModuleFileName( GetInstance() )\n\n\ny esto va en donde activa el dialogo con el stak del fallo creo que lina 357:\n\nACTIVATE DIALOG oDlg CENTERED ON INIT (Sonidos(\"ERROR\"),;\n                                          Reg_Activ(\"SALIDA ANORMAL DEL SISTEMA\"),;\n                                          Online(.F.),;\n                                          DBCOMMITALL(),;\n                                          DBUNLOCKALL(),;\n                                          DBCLEARREL(),;\n                                          DBCLOSEALL(),;\n                                          SYSREFRESH())\n\n\nCon mi aplicaciòn funciona..\nTengo unas cuantas modificaciones hechas para guardar en una base de datos el fallo completo y una imagen creada justo antes de tronar la aplicacion..\nEspero te sea de Utilidad..','',0,'QA==','1i0yhg36',1,0,'',987,0,0),(46711,9697,23,1257,0,'195.93.60.7',1200769753,1,0,1,1,1,1,'','Bilder im Forum','Danke für den Hinweis\nHabe es ausprobiert.\nMeine Frage ( im englischen xHARBOUR-Forum mit Bild )\nbezieht sich auf eine Variante für die neuen Outlook2003-Beispiele\n\nGrüße\n\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','1qmv0wrs',1,0,'',1257,0,0),(46712,9696,6,9,0,'85.59.63.28',1200769952,1,0,1,1,1,1,'','','[quote=&quot;Moisoft&quot;:1o9rhdaw]Posiblemente usando el metodo bSkip del Report:\nEND REPORT\n....\n....\noReport:bSkip = { | nSkip | Skipper( oRs, nSkip ) } \n\nACTIVATE REPORT oReport[/quote:1o9rhdaw]\n\nMoisés, muchas gracias por tu ayuda. Ahora lista perfectamente el Recordset, pero repite \"infinitamente\" el último registro. Me imagino que es la función Skipper, que al encontrar oRs:EOF ejecuta MoveLast().-\nHe intentado solucionándolo añadiendo:\n\nACTIVATE REPORT oReport WHILE (oRs:AbsolutePosition &lt; oRs:RecordCount) \n\npero no sale el ultimo registro y si le pongo:\n(oRs:AbsolutePosition &lt;= oRs:RecordCount), estamos igual que antes, es decir, repite el ultimo registro infinitamente. \n\nEn Listbox, tenemos oLbx:bLogicLen = { || oRs:RecordCount }, pero no he encontrado su sustituto en la clase Report.\n\nEsta es mi funcion Skipper:\n\nFUNCTION SKIPPER( oRs, nSkip )\nLOCAL nRec := oRs:AbsolutePosition\noRs:Move( nSkip )\nIF oRs:EOF; oRs:MoveLast(); ENDIF\nIF oRs:BOF; oRs:MoveFirst(); ENDIF\nRETURN oRs:AbsolutePosition - nRec \n\nMe imagino que la cosa ahora no es complicada, pero a mi no se me ocurre ninguna solución.','',0,'gA==','1o9rhdaw',1,0,'',9,0,0),(46713,9689,3,2,0,'87.218.146.22',1200770140,1,0,1,1,1,1,'','','Günther,\n\n&gt; the picture z.B. \"@E ##.#\"\n\nHave you tried it using Transform() ? Does Transform() properly use it ?','',0,'gA==','mm6qgaj9',1,0,'',2,0,0),(46714,9699,3,1257,0,'195.93.60.7',1200770843,1,0,1,1,1,1,'','Office2007-Buttonbar in Outlook2003-Dialog ( Question )','Hello, from Germany\n\nI\'m still busy with the new samples of Outlook2003 for the forum.\n\nI have a small problem :\n\n[url=http&#58;//img341&#46;imageshack&#46;us/my&#46;php?image=outlookmf9&#46;jpg:vqtw10o1][img:vqtw10o1]http&#58;//img341&#46;imageshack&#46;us/img341/7534/outlookmf9&#46;th&#46;jpg[/img:vqtw10o1][/url:vqtw10o1]\n\n[I want a Office2007-Bar ( Bottom ) on the righthandside of the\nOutlook-Child.\n\nUsed : \n\noWnd\noOutl2003 of oDlg\naCtrl includes the Pages of oOutl2003\nand a hidden Splitter\n\nThe code is not complete ( just to show the used objects )\n\n------------------------------\n\n#include \"FiveWin.ch\" \n#include \"Splitter.ch\" \n#include \"xbrowse.ch\" \n\nfunction Main() \nlocal oWnd, oFont, oBar1, oBar2 \n\n// Array for Dialog-Size\naCors := {}\n\nDEFINE WINDOW oWnd TITLE \"Outlook-Test\"  MDI \n\nDEFINE BUTTON OF oBar2 ACTION ( BuildDlg(oWnd) ) ;\nRESOURCE \"magic\" PROMPT \"Outlook2003\" + CRLF + \"Basics\"\n\nACTIVATE WINDOW oWnd  MAXIMIZED \n\nRETURN ( NIL ) \n\n//----------------------------------------------------------------------------// \n\nfunction BuildDlg(oWnd) \nlocal oDlg, oOutL2003, oSplit1\n\nDEFINE DIALOG oDlg RESOURCE \"BASICS\" OF oWnd TITLE \"Outlook2003 -Basics\" \n\nREDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ; \nPROMPTS \"Eins\", \"Rechts Folder\", \"Rechts Gets\",\"Rechts Browser\",\"Ende\" ; \nBITMAPS \"mail.bmp\", \"calendar.bmp\", \"calendar.bmp\",\"calendar.bmp\",\"ende1.bmp\" ; \nDIALOGS \"Page1\", \"Page2\", \"Page3\", \"Page4\", \"Page5\" ;\nON CHANGE ( TESTDLG(oWnd,oDlg,oOutL2003) )\n\nREDEFINE SPLITTER oSplit1 ID 300 ;\nVERTICAL ;\nPREVIOUS CONTROLS oOutL2003 ;\nHINDS CONTROLS oWnd:oWndClient ;\nTOP MARGIN 20 ;\nBOTTOM MARGIN 60 ;\nOF oDlg ;\nON CHANGE MsgBeep() ;\n_3DLOOK\n\noSplit1:Disable()\naCtrl := Array (Len (oOutL2003:aGroups))   \n\nSetParent( oOutL2003:hWnd, oWnd:hWnd ) \naCORS := GetCoors( oDlg:hWnd ) \n\nACTIVATE DIALOG oDlg CENTERED NOWAIT ;\nON INIT oDlg:Move( 150, 50, oDlg:nWidth, oDlg:nHeight, .f. )\n\nRETURN NIL \n\n//--------------------------------------------------------------- \n\nFUNCTION TESTDLG(oWnd,oDlg,oOutL2003) \n\nLOCAL nPage := AScan( oOutL2003:aGroups, { | o | o:lSelected } ) \nLOCAL nAllPages := Len (oOutL2003:aGroups) \nLOCAL oCtrl, i , oBtn1, oBtn2, oSplit1\nLOCAL hDC :=oDlg:getdc() \nLOCAL oLbx,oFont, aTEIL1, aTEIL2 \nLocal oDlg1, oBar3\nlocal aSIZEDLG := {}\n\nThat works !!!\n----------------\nI get a Buttonbar on the right side of the Outlook2003 -Maindialog\nit dosn\'t change, wenn i change the child-window with a button\n----------------------------------------------------------------------------\nDEFINE BUTTONBAR oBar3 SIZE 60, 90 _3D 2007  OF oDlg RIGHT\n\nFOR i := 1 TO nAllPages \n         IIF (Valtype (aCtrl[i]) =\"O\",aCtrl[i]:Hide(), ) \nNEXT \n\nDO CASE \n      CASE nPage = 3    // Child-Window  right\n            IF Valtype (aCtrl[nPage]) =\"O\" ;\n                            aCtrl[nPage]:Show() \n            ELSE \n                 PROG_1(oWnd,oDlg,aCtrl,nPage,oOutL2003)\n           ENDIF\n      CASE nPage = 5\n           oDlg:End()\nENDCASE \n\nRETURN ( NIL ) \n\n// --------------------------------------------\n\nFUNCTION PROG_1(oWnd,oDlg,aCtrl,nPage,oOutL2003)\nlocal oBar3\n\nDEFINE DIALOG aCtrl[nPage]  RESOURCE \"PAGE6\" OF oDlg PIXEL\n\nThat is what i want to do, a Buttonbar in a Child-Window of oDlg!\n---------------------------------------------------------------------------\n---------------------------------------------------------------------------\n\n* DEFINE BUTTONBAR oBar3 SIZE 150, 60 _3D 2007 ;  \n   OF aCtrl[nPage] BOTTOM\n// doesn\'t work !!!!!\n\n\n* DEFINE BUTTON OF oBar3 ACTION ;\n(MsgAlert ( \"Button1\", \"ACHTUNG\" ) ) ;\n* RESOURCE \"mappe\" PROMPT \"Test 1\"\n\n* DEFINE BUTTON OF oBar3 ACTION ;\n( MsgAlert( \"Button 2\", \"ACHTUNG\" ) ) ;\n* RESOURCE \"mappe\" PROMPT \"Test 2\" \n\n---------------------------------\n---------------------------------\n\nThat works fine !!!!!!!!!\n--------------------------\n\nREDEFINE GET  aTEIL1  VAR  aDAT1  ID 120 OF aCtrl[nPage] ;\nPICTURE \"!XXXXXXXXXX\" UPDATE\nREDEFINE GET  aTEIL2  VAR  aDAT2  ID 130 OF aCtrl[nPage] ;\nPICTURE \"!XXXXXXXXXX\" UPDATE\n\nREDEFINE BUTTON oBtn1 ID 1 OF aCtrl[nPage] ;\nACTION ( DBSKIP(+1), aDAT1 := (1)-&gt;FIRST, aDAT2 := (1)-&gt;LAST, ;\naCtrl[nPage]:Update() )\n			\nREDEFINE BUTTON oBtn2 ID 2 OF aCtrl[nPage] ;\nACTION ( DBSKIP(-1), aDAT1 := (1)-&gt;FIRST, aDAT2 := (1)-&gt;LAST, ;\naCtrl[nPage]:Update() )\n\nIt connects to the left corner of the dialog\n------------------------------------------------\nACTIVATE DIALOG aCtrl[nPage] NOWAIT ;\nON INIT (  aCtrl[nPage]:Move( aCORS [1] + 10, aCORS [2] + 230, ;\naCtrl[nPage]:nWidth, aCtrl[nPage]:nHeight, .f. ) )\n\nRETURN( NIL )\n\n\n\n\nWith Gets und Buttons ererything is ok.\n\nRedefine Get aTeil1 var aDat1 ID 120 Of aCtrl[npage] \nRedefine Get aTeil1 var aDat1 ID 120 Of aCtrl[npage] \n\nRedefine Button oBtn1 ID 1 Of aCtrl[npage] \nAction .......\n\nRedefine Button oBtn2 ID 2 Of aCtrl[npage] \nAction .......\n\nIt works fine ( the Dialog is on the righthand side with buttons \nund gets ) but with :\n\nDefine Buttonbar oBar3 Size 150,60 -3D2007 Of aCtrl[npage] BOTTOM\n\nit doesn\'t work\n\nThe object is the same for both Button and Buttonbar\nbut with buttonbar it\'s not working\n\nAnybody knows why ?\n\nThank you \n\nU.König\n\n\n[/img]','',0,'GA==','vqtw10o1',1,0,'',1257,0,0),(46715,9691,6,987,0,'189.132.31.203',1200784582,1,0,1,1,1,0,'','','Ups... Creo que nadie tiene este pequeño inconveniente.. <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> \n\nMaestro Antonio, Porfa hecheme una manita... <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nSe lo voy a agradecer bastante.. <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'GA==','g4s2octg',1,0,'',987,0,0),(46716,9700,3,34,0,'68.5.217.82',1200788695,1,0,1,1,1,1,'','Ultra Edit Quick Questions','I hope its OK to ask these here since so many of you use Ultra Edit.  I purchased a copy and have a few quick questions:\n\n1)  When I open a file, I have to tell it to View as a Clipper file to get the keywords to highlight.  If I save and close, then reopen, I have to check that again.  Can we somehow assoicate .PRG with that type of view so I don\'t have to select this manually each time ?\n\n2)  Is there a bulk RE-INDENT key or command ?  If I add a lot of code, it does not automatically reset the indent so the text isn\'t formatted anymore.  Ive tried a few things, but surely I\'m overlooking something.\n\nI come from a Multi-Edit background, but since so many people like UE I thought I would try working with it.  There are also some features that work fine ( Macro record ) that are not working currently in Multi Edit ( under Vista ).\n\nThanks\n\nTim','',0,'GA==','2aev38nh',1,0,'',34,0,0),(46717,9691,6,9,0,'85.59.63.28',1200812580,1,0,1,1,1,1,'','Re: Pequeñas fallas con la clase TReport','[quote=&quot;cuatecatl82&quot;:27xkx7os]\nError DBCMD/2001   Area de trabajo no usada: DBSKIP\n[/quote:27xkx7os]\n\nEn mi opinión, creo que te estás centrando en la clase Treport y quizás el problema está en el código de tu aplicación. Dices que a veces te pasa y otras no y el mensaje del error es claro: AREA DE TRABAJO NO USADA.\n\nSe me ocurre que algo ocurre en tu aplicación que hace que Treport no encuentre (a veces) esa tabla. En el antiguo Clipper, el error DBCMD/2001 es aún mas claro: \"El área de trabajo no está en uso\".\n¿Porque antes de llamar a la Treport no sacas un alert con un select() para ver que area de trabajo tienes activa?','',0,'gA==','27xkx7os',1,0,'',9,0,0),(46718,9700,3,2,0,'87.218.146.22',1200812775,1,0,1,1,1,1,'','','Tim,\n\nYou should have bought UEStudio instead of UltraEdit, as UEStudio includes the project manager (to automatically build FWH applications, FWPPC applications, libraries, etc.) and the resources editor.\n\nPlease try to talk to them and try to change your UltraEdit into UEStudio.','',0,'gA==','xytaazp1',1,0,'',2,0,0),(46719,9663,3,2,0,'87.218.146.22',1200813145,1,0,1,1,1,1,'','','Antonio,\n\nRemove \".and. GetDriveType( cDrive ) == DRIVE_REMOVABLE\" in fwh\\samples\\protect.prg, or check with other constants there','',0,'gA==','1nyf6118',1,0,'',2,0,0),(46720,9700,3,303,0,'72.220.181.80',1200817165,1,0,1,1,1,0,'','','Tim,\n\nI have an older copy of UE so yours may not work the same, but I had to add all the xbase/fw syntax to WORDFILE.TXT. There is a line that also specifies the file extension to associate with this syntax. My line looks like this:\n\n/L5\"Clipper\" Nocase Line Comment = // Block Comment On = /* Block Comment Off = */ File Extensions = PRG\n\nMine is called \"Clipper\" since I was working with Clipper when I added it. If the UE authors have added xbase syntax to wordfile.txt, then it may not look the same.\n\n&gt;Is there a bulk RE-INDENT key or command ? If I add a lot of code, it does not automatically reset the indent so the text isn\'t formatted anymore. Ive tried a few things, but surely I\'m overlooking something.\n\nI\'m not sure what you mean by \"add a lot of code.\" Do you mean that you are pasting it in from another file and it is not already indented, or that you are entering code and not indenting it as you go? Either way there there is no \"reindent the entire file\" (at least not with my version. When you are entering code you only have to indent the first line of a new indent, then all other lines start at the same location. I also have a macro for the F4 key that automaticlly indents 3 spaces which helps a lot.\n\nTo get the auto indent you may have to check that checkbox in the Advanced-Configuration menu then the Edit tab. Again it may be in a different place on your version.\n\nJames','',0,'gA==','28d50xqt',1,0,'',303,0,0),(46721,9682,3,49,0,'213.82.134.66',1200818823,1,0,1,1,1,1,'','','Antonio,\nI not say msgBar but messageboxEx() into office 2007 like !!!!','',0,'gA==','5q6bsqq5',1,0,'',49,0,0),(46722,9701,3,49,0,'213.82.134.66',1200818995,1,0,1,1,1,1,'','bmptxt','I saw bmptxt.prg  sample \nHowe I can modify the font to insert a big text ?','',0,'gA==','2jhsc5xw',1,0,'',49,0,0),(46723,9698,3,49,0,'213.82.134.66',1200820172,1,0,1,1,1,1,'','','tricarico sad \n\ncan I add a field when I execut an application ?','',0,'gA==','3lwm495c',1,0,'',49,0,0),(46724,9689,3,210,0,'81.24.159.58',1200827467,1,0,1,1,1,1,'','','Can I use to show the numeric value in the xBrowse [color=blue:235tpuxh]transform(value,\"picture\")[/color:235tpuxh] and the returned value transfer with [color=blue:235tpuxh]val() [/color:235tpuxh] return to numeric? \nAlso I found, that the oBrw:bChange with keybord are ok, with the mouse it is evaluated when I change the row and change the cell always twice! Please try oBrw:bChange := {||msginfo(\"change\")}!','',0,'Ag==','235tpuxh',1,0,'',210,0,0),(46725,9698,3,6,0,'87.18.210.15',1200834992,1,0,1,1,1,1,'','Re: help','You can, but you have to close the table. Have a look at DbStruct() function. You have to create the new empty table, append the record from the old table, delete the old table and rename the new one.\n\nEMG','',0,'Ag==','qb2mb3j3',1,0,'',6,0,0),(46726,9701,3,6,0,'87.18.210.15',1200835077,1,0,1,1,1,1,'','Re: bmptxt','I can\'t find that sample in latest FWH.\n\nEMG','',0,'Ag==','17tduhce',1,0,'',6,0,0),(46727,9689,3,868,0,'219.64.121.60',1200838164,1,0,1,1,1,1,'','','1) The codeblock bChange is evaluated twice in the LButtonDown method. Lines 2202 to 2204 ( source 8.01 ) can be removed or commented out.\n\n2) Also bChange is evaluated even if the mouse click does not result in change of row.  It would be nice if bChange is evaluated only if the row has changed. This can be implemented in many ways, but one suggested method ( using already declared locals )  is to replace lines 2177 to 2187 as below:\n[code:3t2x0vsx]\n     nTmp &#58;= 0 \n     if nRowPos &gt; 0\n         Eval&#40; &#58;&#58;bSkip, nTmp &#58;= &#40; nRowPos - &#58;&#58;nRowSel &#41; &#41;\n         &#58;&#58;nRowSel &#58;= nRowPos\n      endif\n      if nColPos &gt; 0\n         &#58;&#58;nColSel &#58;= nColPos\n      endif\n\n       if nTmp != 0 &#46;and&#46; &#58;&#58;bChange != nil\n          Eval&#40; &#58;&#58;bChange, Self &#41;\n       endif\n[/code:3t2x0vsx]\nThis fix works till release of the fix by FWH in the next version.','',0,'AIA=','3t2x0vsx',1,0,'',868,0,0),(46728,9702,4,137,0,'151.38.8.195',1200844458,1,0,1,1,1,0,'','Using harbour CVS','Hi Antonio,\ncan I use harbour cvs to link fiveppc apps? Or I have to use only the one provided by you? I need some xharbour extensions like hashes, etc.\n\nThx in advance,\nRoberto Parisi','',0,'AIA=','10sedcyo',1,0,'',137,0,0),(46729,9702,4,2,0,'80.58.205.33',1200848670,1,0,1,1,1,1,'','','Roberto,\n\n&gt; can I use harbour cvs to link fiveppc apps? \n\nNo, not yet. As we use a Harbour build from some months ago, and recently there have been some changes in Harbour that we have not tested with FWPPC yet, and may result in internal conflicts.\n\nWe will upgrade the Harbour use that we use for FWPPC asap. In one month or two.\n\n&gt; \nOr I have to use only the one provided by you? I need some xharbour extensions like hashes, etc.\n&gt;\n\nHave you tried hashes with the Harbour for Pocket PC that we provide ? They should be supported.','',0,'AIA=','3ahj4dj6',1,0,'',2,0,0),(46730,9682,3,2,0,'80.58.205.33',1200848784,1,0,1,1,1,1,'','','Silvio,\n\nWe have not reviewed MessageBoxEx() yet','',0,'AIA=','3k9nzhye',1,0,'',2,0,0),(46731,9689,3,2,0,'80.58.205.33',1200849020,1,0,1,1,1,1,'','','Günther,\n\nWe are actually out of our offices until next tuesday. \n\nPlease follow Nageswararao advise. We will review it as soon as we are back next tuesday.','',0,'AIA=','3v7c0cjj',1,0,'',2,0,0),(46732,9690,6,960,0,'84.125.196.99',1200850252,1,0,1,1,1,0,'','','Compañeros, logre solucionar el problema:\n\nSimplemente declare \"numcal\" como caracter y establecí otra variable numerica de paso que me sirve para realizar las operaciones numericas: Es decir:\n\nfunct calc(n)\n if n!=\'Del\'\n  if n!=\'.\'\n   Cnumcal:=(PadR( AllTrim( Cnumcal ) + n, 10,\' \' )) ; onumcal:Refresh()\n  else\n   Cnumcal:=(PadR( AllTrim( Cnumcal ) + \'.\', 10,\' \' )) ; onumcal:Refresh()\n  endif\n else\n  Cnumcal:=\'\' ; onumcal:refresh()\n endif\n Nnumcal:=val(Cnumcal)\nreturn','',0,'AIA=','vjzisv76',1,0,'',960,0,0),(46733,9502,6,960,0,'84.125.196.99',1200850611,1,0,1,1,1,0,'','','Compañeros:\n\nLogré minimizar todo (1 Windows y 1 Dialog) mediante:\n\n oWnd::Iconize()\n\nSe minimiza todo en la barra de herramientas de Windows, mostrandome directamente el escritorio..... pero ahora el problema es que no se maximiza por muchos click que se le da al boton.\n\n¿ Alguna sugerencia ?\n\nRevise samples\\testrtf.prg..... \n\nMil gracias.\nLORENZO','',0,'AIA=','31ccy4ga',1,0,'',960,0,0),(46734,9702,4,137,0,'151.51.38.37',1200853361,1,0,1,1,1,0,'','','I tried without success. May be I\'ve an old version?','',0,'AIA=','1hfkw1v9',1,0,'',137,0,0),(46735,9696,6,174,0,'83.45.96.86',1200860400,1,0,1,1,1,0,'','','Prueba a dejar la funcion skipper más sencilla:\n\nFUNCTION SKIPPER( oRs, nSkip )\n    LOCAL nRec := oRs:AbsolutePosition\n    oRs:Move( nSkip )\nRETURN oRs:AbsolutePosition - nRec \n\nya que cuando sea eof el Reporte Termine.','',0,'AIA=','1lgtj6fx',1,0,'',174,0,0),(46736,9703,3,29,0,'88.149.161.1',1200861529,1,0,1,1,1,1,'','Error using the buttonbar\'s &quot;Float&quot; function','Hi,\nthe following error appairs when I press the right mouse button and then I select the \"Float\" function.\n\nAny solution ?\n\nThanks in advance.\n\nBest Regards,\n\nMarco Turco\n\n-----\n\n\nApplication\n===========\n   Path and name: K:\\ACTIVEXP\\ACTIVEXP.Exe (32 bits)\n   Size: 3,118,592 bytes\n   Time from start: 0 hours 0 mins 4 secs \n   Error occurred at: 20/01/2008, 21:35:16\n   Error description: Error BASE/1066  Argument error: conditional\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from: MENU.PRG =&gt; TMENU:ADD(0)\n   Called from: PDMENU.PRG =&gt; (b)MENUEND(0)\n   Called from:  =&gt; AEVAL(0)\n   Called from: PDMENU.PRG =&gt; MENUEND(0)\n   Called from: BAR.PRG =&gt; TBAR:FLOAT(0)\n   Called from: BAR.PRG =&gt; (b)TBAR:RBUTTONDOWN(0)\n   Called from: MENU.PRG =&gt; TMENU:ACTIVATE(0)\n   Called from: BAR.PRG =&gt; TBAR:RBUTTONDOWN(0)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TBAR:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: ACTIVE.PRG =&gt; MAIN(367)\n\nSystem\n======\n   CPU type: Intel(R) Core(TM)2 Duo CPU     T7300  @ 2.00GHz 2000 Mhz\n   Hardware memory: 2038 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)\n   Windows version: 6.0, Build 6000 \n\n   Windows total applications running: 72\n      1 \n      2 MSCTFIME UI\n      3 Default IME\n      4 Start\n      5 CiceroUIWndFrame\n      6 Passaggio da un programma all\'altro\n      7 Marco Turco\n      8 Menu Start\n      9 Software XP\'s Customers Monitor v.2.1 \n     10 xMate - K:\\ACTIVEXP\\ACTIVEXP.xhp\n     11 TouchPad object helper window\n     12 syntax\n     13 Editor [K:\\ACTIVEXP\\SOURCE\\ACTIVE.PRG]\n     14 Acer Empowering Technology\n     15 Skype™ - softwarexp\n     16 Actions\n     17 OnScreen Display Window\n     18 Debug window K:\\ACTIVEXP\\ACTIVEXP.Exe (0 errors, 0 warnings)\n     19 eNetWidget\n     20 Get Massage from ePM_DM\n     21 Icona di sistema rete\n     22 CL RC Engine3 Dummy Winidow\n     23 TF_FloatingLangBar_WndTitle\n     24 TrayIconManager\n     25 MCI command handling window\n     26 Form2\n     27 {878390AD-434B-41EE-9110-49B69E4398F9}\n     28 Skype™ Extras Manager\n     29 GDI+ Window\n     30 {A3533AC8-A133-43D6-A112-361167D254CC}\n     31 ChatManager\n     32 Acer eNet Management - eNMTray\n     33 Presentazione\n     34 Orologio\n     35 Calendario\n     36 AppBar Bullet\n     37 Windows Sidebar\n     38 C:\\Users\\Marco Turco\\AppData\\Roaming\\Skype\n     39 SkyLibEx\n     40 DDE Server Window\n     41 .NET-BroadcastEventWindow.2.0.0.0.33c0d9d.0\n     42 .NET-BroadcastEventWindow.2.0.0.0.378734a.0\n     43 .NET-BroadcastEventWindow.2.0.0.0.11ecf05.0\n     44 eRecoveryAgent\n     45 SidebarBroadcastWatcher\n     46 {A7E495BF-9589-4a6e-8479-DDA2D8D3C05F}\n     47 PersistWndName\n     48 HkWndName\n     49 igfxtrayWindow\n     50 amUI\n     51 Product Message\n     52 HiddenFaxWindow\n     53 BluetoothNotificationAreaIconWindowClass\n     54 MS_WebcheckMonitor\n     55 MMDEVAPI Device Window\n     56 Misuratore alimentazione\n     57 DritekECWnd\n     58 IgfxExt_Wnd_Name\n     59 ESET NOD32 Antivirus\n     60 Launch Manager\n     61 eDSLoader\n     62 IAAMonitor Notify App\n     63 Touchpad driver tray icon window\n     64 Touchpad driver backward compatibility window\n     65 Touchpad driver helper window\n     66 Realtek HD Audio CPL for Vista\n     67 TaskEng - Processo del modulo di gestione dell\'Utilità di pianificazione\n     68 DWM Notification Window\n     69 Windows Defender\n     70 BTTrayMainWindow\n     71 ePower_DMC\n     72 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TMENU:ADD\n     Param   1:    O    Class: TMENUITEM\n     Param   2:    L    .T.\n     Local   1:    O    Class: TMENU\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    N    15735489\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    N    2048\n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    0\n   (b)MENUEND\n     Param   1:    O    Class: TMENUITEM\n     Param   2:    N    1\n   AEVAL\n     Param   1:    A    Len:    5\n     Param   2:    B    {|| ... }\n   MENUEND\n     Local   1:    O    Class: TMENU\n     Local   2:    A    Len:    5\n   TBAR:FLOAT\n     Local   1:    O    Class: TBAR\n     Local   2:    O    Class: TWINDOW\n     Local   3:    O    Class: TMDICLIENT\n     Local   4:    O    Class: TBAR\n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    N    1\n     Local  11:    N    3.00\n   (b)TBAR:RBUTTONDOWN\n     Param   1:    O    Class: TMENUITEM\n   TMENU:ACTIVATE\n     Param   1:    N    25\n     Param   2:    N    304\n     Param   3:    O    Class: TBAR\n     Local   1:    L    .T.\n     Local   2:    O    Class: TMENU\n     Local   3:    A    Len:    2\n   TBAR:RBUTTONDOWN\n     Param   1:    N    25\n     Param   2:    N    304\n     Param   3:    N    2\n     Local   1:    O    Class: TBAR\n     Local   2:    O    Class: TMENU\n   TWINDOW:HANDLEEVENT\n     Param   1:    N    516\n     Param   2:    N    2\n     Param   3:    N    1638704\n   TBAR:HANDLEEVENT\n     Param   1:    N    516\n     Param   2:    N    2\n     Param   3:    N    1638704\n     Local   1:    O    Class: TBAR\n   _FWH\n     Param   1:    N    1638704\n     Param   2:    N    516\n     Param   3:    N    2\n     Param   4:    N    1638704\n     Param   5:    N    3\n     Local   1:    O    Class: TBAR\n   WINRUN\n     Param   1:    N    9241504\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TSYSTEMINFO\n     5 TSTRUCT\n     6 TREG32\n     7 TFONT\n     8 TWINDOW\n     9 TMDIFRAME\n    10 TMENU\n    11 TMENUITEM\n    12 TBRUSH\n    13 TMDICLIENT\n    14 TCONTROL\n    15 TBAR\n    16 TRECT\n    17 TBTNBMP\n    18 TMSGBAR\n    19 TDIALOG\n    20 TMULTIGET\n    21 TCOMBOBOX\n    22 TGET\n    23 GET\n    24 TCLIPGET\n    25 TBUTTON\n    26 ERROR\n\nMemory Analysis\n===============\n      240 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z','',0,'','2q93sfsl',1,0,'',29,0,0),(46737,9703,3,6,0,'87.11.236.162',1200865816,1,0,1,1,1,1,'','Re: Error using the buttonbar\'s &quot;Float&quot; function','The following sample doesn\'t show any problems:\n\n[code:xvvocpsz]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR OF oWnd\n\n    DEFINE BUTTON OF oWnd&#58;oBar;\n           ACTION oWnd&#58;End&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:xvvocpsz]\n\nEMG','',0,'AIA=','xvvocpsz',1,0,'',6,0,0),(46738,9696,6,1255,0,'201.122.38.237',1200868405,1,0,1,1,1,0,'','','Hola Manuel:\n\n1.- Ya probaste el Method Report del Browser que estás usando?\n2.- Ya probaste usando la Cláusula FOR en lugar de la cláusula WHILE en ACTIVATE REPORT?\n\nSaludos.\n\nManuel Mercado','',0,'AIA=','1b8u0ft9',1,0,'',1255,0,0),(46739,9696,6,9,0,'85.59.63.28',1200874726,1,0,1,1,1,1,'','','Moises, Armando y D. Manuel, muchas gracias por contestar. \n\nAl final la solución la he encontrado haciendo un popurrí con todo lo dicho por Vdes.\n\n1) He utilizado:\n    local nHasta := oRs:RECORDCOUNT(), nLinea := 1\n    .....\n   oReport:bWhile := { || nLinea &lt;= nHasta }\n   IF oReport:lCreated\n      oReport:bSkip := { | | nLinea++, Ors:MOVENEXT() }\n   ENDI\n\n2) He modificado la funcion Skipper quedando:\n\n   FUNCTION SKIPPER( oRs, nSkip )\n   LOCAL nRec := oRs:AbsolutePosition\n\n   IF oRs:EOF\n       oRs:MoveLast()\n   ELSE\n       oRs:Move( nSkip )\n   ENDIF\n\n   IF oRs:BOF; oRs:MoveFirst(); ENDIF\n\nRETURN oRs:AbsolutePosition - nRec\n\n\nYa está funcionando estupendamente. De nuevo, muchas gracias a los tres.','',0,'AIA=','q38c3qiw',1,0,'',9,0,0),(46740,9696,6,53,0,'189.139.18.212',1200878593,1,0,1,1,1,1,'','','Manuel:\n\nMe alegra saber que todo funciona bien ahora, sin embargo creo que puedes reducir tu código, en realidad pienso que no necesitas la función Skipper().\n\nEs solo una sugerencia.\n\nSaludos','',0,'AIA=','2nr2oju3',1,0,'',53,0,0),(46741,9677,3,868,0,'219.64.121.60',1200893101,1,0,1,1,1,1,'','','I have some requirements which others may not have. My software has to work on monitors with 256 colors onwards to 32 bit color. Glad the new tabs give the same look from 16 bit colors onwards. Surprisingly even on 256 colors the tabs looks better though the blue color is lost. I am very happy and eager to use the new tabs','',0,'AIA=','icxh27il',1,0,'',868,0,0),(46742,9702,4,2,0,'80.58.205.33',1200895311,1,0,1,1,1,1,'','','Roberto,\n\nWhats the date of your FWPPC libraries ?','',0,'AIA=','36vx8iw6',1,0,'',2,0,0),(46743,9704,3,241,0,'125.162.42.29',1200897761,1,0,1,1,1,0,'','Tsay \'raised\' in FWH_0801','Antonio,\n\nFollowing example shows trouble on Tsay with \'box\' or \'raised\' in FWH_0801, may you check it ?\n\nThank &amp; Regards.\nChiang Ming-Song\n\n*---------------------------------------------\n#include \"FiveWin.ch\"\n*=============================================\nproc Main()\n*---------------------------------------------\nlocal  oWnd\nDEFINE WINDOW oWnd FROM 10, 10 TO 500,500 pixel TITLE  \'Test say raised\'\n   *--------\n   @   0, 1 say Space(2) Size 100, 20  of oWnd pixel raised Color CLR_HGRAY, CLR_HGRAY\n   @  25, 1 say Space(2) Size 100, 20  of oWnd pixel raised Color CLR_HGRAY, CLR_RED\n   @  50, 1 say \'Raised\' Size 100, 20  of oWnd pixel raised Color CLR_HGRAY, CLR_RED\n   @  75, 1 say \'Raised\' Size 100, 20  of oWnd pixel raised Color CLR_WHITE, CLR_HGRAY\n\n   @ 125, 1 say Space(2) Size 100, 20  of oWnd pixel box    Color CLR_HGRAY, CLR_HGRAY\n   @ 150, 1 say Space(2) Size 100, 20  of oWnd pixel box    Color CLR_HGRAY, CLR_RED\n   @ 175, 1 say \'Box\'    Size 100, 20  of oWnd pixel box    Color CLR_HGRAY, CLR_RED\n   @ 200, 1 say \'Box\'    Size 100, 20  of oWnd pixel box    Color CLR_WHITE, CLR_HGRAY\n\n   @ 250, 1 say Space(2) Size 100, 20  of oWnd pixel        Color CLR_HGRAY, CLR_HGRAY\n   @ 275, 1 say Space(2) Size 100, 20  of oWnd pixel        Color CLR_HGRAY, CLR_RED\n   @ 300, 1 say \'Plain\'  Size 100, 20  of oWnd pixel        Color CLR_HGRAY, CLR_RED\n   @ 325, 1 say \'Plain\'  Size 100, 20  of oWnd pixel        Color CLR_WHITE, CLR_HGRAY\n   *----------\nACTIVATE WINDOW oWnd\n*---------------------------------------------','',0,'AIA=','2jbp46z2',1,0,'',241,0,0),(46744,9676,22,2,0,'80.58.205.33',1200899861,1,0,1,1,1,1,'','','Rafa,\n\nEs una propuesta interesante, vamos a revisarla. Gracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','330i7iyi',1,0,'',2,0,0),(46745,9676,22,2,0,'80.58.205.33',1200900110,1,0,1,1,1,1,'','','De momento solo se me ocurre una pega:\n\n¿ Cómo saber si los demás controles están inicializados ? Es decir, desde el ON INIT de un control no tendriamos la certeza de que los demás controles están inicializados, salvo que el orden de creación, marcase el orden de evaluación de cada bInit.\n\nDesde un control B, no se podría acceder al control C (que no estaría inicializado), pero sí al A (que si lo estaría).\n\nNo se si se me entiende... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','bgy79gdz',1,0,'',2,0,0),(46746,9702,4,137,0,'151.38.8.195',1200901270,1,0,1,1,1,0,'','','My FWPPC version is 7.01.\n\nThx in advance,\nRoberto Parisi','',0,'AIA=','1l6s2emm',1,0,'',137,0,0),(46747,9702,4,2,0,'80.58.205.33',1200902753,1,0,1,1,1,1,'','','Roberto,\n\nThe current FWPPC version is 7.09\n\nPlease post here a sample of the code that you need to use and we will build it using FWPPC 7.09, so we can confirm you if it works. Thanks,','',0,'AIA=','26wiuhow',1,0,'',2,0,0),(46748,9676,22,24,0,'80.24.12.168',1200905455,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:jecq65la]De momento solo se me ocurre una pega:\n\n¿ Cómo saber si los demás controles están inicializados ? Es decir, desde el ON INIT de un control no tendriamos la certeza de que los demás controles están inicializados, salvo que el orden de creación, marcase el orden de evaluación de cada bInit.\n\nDesde un control B, no se podría acceder al control C (que no estaría inicializado), pero sí al A (que si lo estaría).\n\nNo se si se me entiende... <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:jecq65la]\nAntonio, si, te entiendo ... <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nCreo que no debería haber ningún tipo de problema si la evaluacion se lleva a cabo en la creacion del Dialogo/Ventana, TAL Y COMO OCURRE actualmente.\n\nAhora , si supones que puedo evaluar bInit en otro punto, no he contemplado esa posibilidad.\n\nSe supone que en ese punto, TODOS LOS CONTROLES ya estan inicializados, o no ?','',0,'gA==','jecq65la',1,0,'',24,0,0),(46749,9702,4,137,0,'151.38.8.195',1200906638,1,0,1,1,1,0,'','','Hi Antonio.\nif I compile and link the code:\nhStruct := Hash()\n\nI get an unresolved external Hash(). I think is related to the lack of hash functions in my harbour_ce build.\n\nRegards,\nRoberto Parisi','',0,'gA==','yj5kpxpl',1,0,'',137,0,0),(46750,9701,3,49,0,'213.82.134.66',1200908892,1,0,1,1,1,1,'','','you must see well !!\nCMq I revolve i thanks','',0,'gA==','1d0angmo',1,0,'',49,0,0),(46751,9695,6,1236,0,'200.146.114.232',1200909921,1,0,1,1,1,0,'','','muito obrigado!','',0,'gA==','q52rjzre',1,0,'',1236,0,0),(46752,9667,6,956,0,'189.22.134.133',1200913308,1,0,1,1,1,1,'','Re: MSGYESNO() - ESC?','[quote=&quot;jose_murugosa&quot;:sty94mv8][quote=&quot;Anderson.OL&quot;:sty94mv8]Volta pra sua casa João, vem dar pitaco aqui não  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->.[/quote:sty94mv8]\n\nEstoy de acuerdo con Antonio, una cosa que disfruto de este foro es que en general existe respeto por todos los que participamos de el, tanto por las opiniones como por los diferentes niveles de conocimiento de quienes participamos en el.\n\n[b:sty94mv8]Quisiera que eso nunca cambie[/b:sty94mv8] <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nPor este foro he formado muchas amistades y recibido mucha ayuda, también modestamente he tenido la oportunidad de ayudar a otros, pero siempre dentro del respeto.\n\nComentarios como el tuyo me parecen de mal gusto, y particularmente no muy prudentes, nunca sabes quien puede ayudarte en la próxima ocasión.\n\nJoao es un compañero que aporta mucho a este foro con mucha cordialidad y disposición.\nMerece el mismo respeto que todos nosotros, sinceramente no quisiera volver a ver esta clase de comentarios.[/quote:sty94mv8]\n\nPessoas.... Eu conheço João do fórum FiveWin Brasil.... Isto foi só uma brincadeira mal entedida por vocês....\n\nO próprio João entendeu e deu risadas da situação!!\n\nMas de qualquer maneira, me desculpem!! Entendi que aqui não é lugar de brincadeiras!!','',0,'wA==','sty94mv8',1,0,'',956,0,0),(46753,9705,3,460,0,'217.37.54.49',1200913429,1,0,1,1,1,0,'','Cannot Create Dialog Error','Hi,\n\nI have just added a new dialog/tab to a folder and it works fine in all the machines i have tested it on in my office, however, when i have installed the app at my clients i get a cannot create dialog error - can anyone offer any advice in tracking down what is causing this error?\n\nI am currently using FWH 7.12 with the latest version of commercial xHarbour\n\nThanks in advance\n\nPete','',0,'wA==','1skec6uh',1,0,'',460,0,0),(46754,9701,3,6,0,'87.18.239.218',1200913867,1,0,1,1,1,1,'','','I confirm: a file called bmptxt.prg doesn\'t exists in FWH.\n\nEMG','',0,'wA==','3qg8idt4',1,0,'',6,0,0),(46755,9701,3,51,0,'80.122.88.242',1200914006,1,0,1,1,1,0,'','','I have one in my FWH 8.01 sample folder.\nSize 558  03-04-1996','',0,'wA==','87bxa6bd',1,0,'',51,0,0),(46756,9667,6,362,0,'200.158.18.214',1200914220,1,0,1,1,1,1,'','','Maestros, gracias por todo.\n\nEstá todo bién. \n\nAnderson és mi amigo. No tiene problemas. Solo un mal entendido.\n\nBest regards, saludos.','',0,'wA==','3ntt6oex',1,0,'',362,0,0),(46757,9701,3,6,0,'87.18.239.218',1200915571,1,0,1,1,1,1,'','','Its name is bmptext.prg not bmptxt.prg. That\'s why I did not find it.\n\nEMG','',0,'wA==','9sz87gpm',1,0,'',6,0,0),(46758,9701,3,6,0,'87.18.239.218',1200915703,1,0,1,1,1,1,'','Re: bmptxt','[quote=&quot;Silvio&quot;:3l2vzl5y]I saw bmptxt.prg  sample \nHowe I can modify the font to insert a big text ?[/quote:3l2vzl5y]\n\nJust define your own font and pass it as fifth parameter to the function TextOut().\n\nEMG','',0,'gA==','3l2vzl5y',1,0,'',6,0,0),(46759,9695,6,362,0,'200.158.18.214',1200916107,1,0,1,1,1,1,'','','cuatecatl82,\n\nPor favor puede muestrar las funciones:\n\nREG_ACTIV()\n\nY\n\nONLINE()\n\nY\n\nSONIDOS()\n\nCual sus retornos?\n\nBest regards, saludos y Gracias de Antemano.','',0,'gA==','c30c8pqx',1,0,'',362,0,0),(46760,9701,3,49,0,'213.82.134.66',1200917489,1,0,1,1,1,1,'','','Quanto la fai difficile : ti ho detto che ho risolto..!!!','',0,'gA==','39jx5gnp',1,0,'',49,0,0),(46761,9706,3,1257,0,'195.93.60.7',1200918000,1,0,1,1,1,1,'','A message in xBrowse =&gt; keys : left, right,up and down ??','Hello from Germany,\n\nI used &lt; bKeydown &gt; and &lt; bKeychar &gt; in xBrowse \nto get a keycode for the keys : LEFT, RIGHT, UP, DOWN\nbut it only works with &lt; normal &gt; keys like\n13 = RETURN and so on.\nIs it possible somehow, to get a information, when \ni press one of these keys in xBrowse ?\n\nI want to start a special action.  \nsample : cursor-pos = end of array (eof() ).\n             I press the key &lt; DOWN &gt; and append a new\n             array-element.\nFor that i must know, that &lt; DOWN &gt; was pressed.\n\nThank you <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nU. König','',0,'gA==','1mrnqykd',1,0,'',1257,0,0),(46762,9707,23,1257,0,'195.93.60.7',1200918644,1,0,1,1,1,1,'','bKeydown oder bKeychar in xBrowse für ( Left,Right,Up,Down)','Hallo aus Essen,\n\nIch suche eine Möglichkeit um in xBrowse\neine Rückmeldung für die Tasten :\nUP, DOWN, RIGHT, LEFT zu erhalten\nDie Funktionen z.B. : \noLbx:bKeychar := {|nkey| msgalert( nKey ) }\nreagieren nicht auf Tasten wie UP, DOWN, LEFT und RIGHT\n\nIch will, wenn jemand im Browser EOF() erreicht hat\nund die &lt; DOWN &gt; Taste drückt, automatisch einen\nDatensatz anfügen.\nHierzu muß ich natürlich &lt; DOWN &gt; auswerten.\n\nBesteht hier eine Alternative zu bKeychar und bKeydown ?\n\nVielen Dank <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nU. König','',0,'gA==','1hug6j0s',1,0,'',1257,0,0),(46763,9705,3,460,0,'217.37.54.49',1200920651,1,0,1,1,1,0,'','','I\'ve narrowed this down to an image i\'m displaying on the new tab.\n\nI\'m using REDEFINE IMAGE to display the image, how should this be defined in the .rc file?  Currently i\'m using:\n\nCONTROL \"TBitmap\", 114, \"TBitmap\" ....\n\nshould i replace \"TBitmap\" with \"TImage\" ?','',0,'gA==','g62x18vb',1,0,'',460,0,0),(46764,9705,3,6,0,'87.1.232.8',1200922508,1,0,1,1,1,1,'','','Yes, TImage.\n\nEMG','',0,'gA==','k6temg8r',1,0,'',6,0,0),(46765,9701,3,6,0,'87.1.232.8',1200922584,1,0,1,1,1,1,'','','Sorry.\n\nEMG','',0,'gA==','319kl16x',1,0,'',6,0,0),(46766,9701,3,51,0,'80.122.88.242',1200922680,1,0,1,1,1,0,'','','Enrico,\nI tried your suggestion but this does not work.\nRegards,\nOtto\n// Placing text on top of a bitmap\n#include \"FiveWin.ch\"\n#define TRANSPARENT 1\nstatic oWnd\n//----------------------------------------------------------------//\nfunction Main()\n   local oBmp, oFntGross\n    //oFntGross:= ChooseFont()\n        DEFINE FONT oFntGross      NAME  \"MS Sans Serif\" SIZE 10,15 BOLD\n\n\n   DEFINE WINDOW oWnd TITLE \"Text on a bitmap\"\n\n   @ 1, 1 BITMAP oBmp FILENAME \"..\\bitmaps\\fw.bmp\" OF oWnd\n\n   oBmp:bPainted = { || SetBkMode( oBmp:hDC, TRANSPARENT ),;\n     TextOut( oBmp:hDC, 15, 15, \"Hello\",oFntGross ) }\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------//','',0,'gA==','cm3hhu1t',1,0,'',51,0,0),(46767,9701,3,49,0,'213.82.134.66',1200923166,1,0,1,1,1,1,'','','NO you must  this\nholdfnt:=selectobject( hdc,ofont:hfont)\nand the you can use texout\n\nbye','',0,'gA==','3afbe8em',1,0,'',49,0,0),(46768,9705,3,460,0,'217.37.54.49',1200926198,1,0,1,1,1,0,'','','Thats fixed it - weird how it only errors on certain pcs/installations!','',0,'gA==','2hzdo22l',1,0,'',460,0,0),(46769,9706,3,868,0,'219.64.121.60',1200926933,1,0,1,1,1,1,'','','Please use the codeblock oBrw:bPastEof for this purpse. Example:\n[code:2tjc3wu0]\n\n   oBrw&#58;bPastEof  &#58;= &#123;||if&#40; MsgNoYes&#40; \'Add Row?\' &#41;, ;\n            &#40; AAdd&#40; oBrw&#58;aArrayData, ATail&#40; oBrw&#58;aArrayData &#41; &#41;, oBrw&#58;GoBottom&#40;&#41;&#41;, nil &#41;&#125;\n[/code:2tjc3wu0]','',0,'AIA=','2tjc3wu0',1,0,'',868,0,0),(46770,9696,6,9,0,'85.59.68.80',1200930489,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:28jbxdz2]... no necesitas la función Skipper().\n[/quote:28jbxdz2]\n\nArmando,\n\nEn un principio lo hice como me dices. Sale perfecto el \"preview\" de Treport, pero al pulsar Imprimir/Salir marcaba un error de ADO/ors, al volver al Browse. Por eso incluí el Skipper que creo sincroniza el Ors:Fields con el registro del browse.\n\nYo utilizo tWbrowse.- ¿Que browse estás tu utilizando con Mysql?','',0,'gA==','28jbxdz2',1,0,'',9,0,0),(46771,9696,6,53,0,'189.139.25.254',1200931237,1,0,1,1,1,1,'','','Manuel:\n\nEn principio te dire lo que dicen los gurus, \"Si funciona bien no le muevas\"  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> perooo solo por no dejar.\n\n1.- Yo uso TXBrowse, no se si eso tengo algo que ver\n\n2.- Me olvide de indicarte estas dos línea de código, tal vez por ahí esta el problema\n\nLOCAL nLinea	:= 1\nLOCAL nHasta	:= oRsPro:RecordCount()\nLOCAL nBookMark	:= oRsPro:BookMark\n\n....\n....\n....\n\n\nACTIVATE REPORT oReporte ;\nON STARTPAGE Alinea(oReporte,1,2);\nON END oRsPro:BookMark := nBookMark;\nWHILE nLinea &lt;= nHasta\n\nCreo que el RecordSet es muy quisquilloso en cuanto al apuntador.\n\nSaludos, Armando','',0,'gA==','1sm9w0ji',1,0,'',53,0,0),(46772,9701,3,51,0,'80.122.88.242',1200931254,1,0,1,1,1,0,'','','Silvio, could you provide a working sample.\nThanks in advance\nOtto','',0,'gA==','d4jmspse',1,0,'',51,0,0),(46773,9663,3,448,0,'82.155.2.107',1200934036,1,0,1,1,1,0,'','','Thanks \n\nAntonio','',0,'gA==','1rki7adw',1,0,'',448,0,0),(46774,9708,3,448,0,'82.155.2.107',1200934159,1,0,1,1,1,0,'','How easy it is to decompile (reverse eng) a xHarbour app ?','Hi,\n\nDoes anyone knows how easy is to decompiled a xHarbour app.?\n\nWhat are the main tools available for it ?\n\nRegards\nAntonio','',0,'gA==','1sqk9q0u',1,0,'',448,0,0),(46775,8928,20,29,0,'88.149.161.1',1200936277,1,0,1,1,1,1,'','','A proposito di questa funzione,\nsu Windows Vista mi genera il seguente errore:\n\nApplication\n===========\n   Path and name: K:\\ACTIVEXP\\ACTIVEXP.Exe (32 bits)\n   Size: 3,115,008 bytes\n   Time from start: 0 hours 0 mins 5 secs \n   Error occurred at: 21/01/2008, 18:22:00\n   Error description: Error InternetExplorer.Application/0  S_OK: BUSY\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:BUSY(0)\n   Called from: MODD2.PRG =&gt; MAKEXML(784)\n   Called from: ACTIVE.PRG =&gt; (b)BUILDMENU(425)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: ACTIVE.PRG =&gt; MAIN(367)\n\nnessun problema su XP invece.\n\nQualche idea ? Forse è cambiato qualcosa su Vista ?\n\nMarco','',0,'gA==','20t5knr3',1,0,'',29,0,0),(46776,9709,6,1055,0,'84.122.57.235',1200936366,1,0,1,1,1,0,'','Visual Estudio','Hace unos días había un post de Antonio Linares referente a un editor de recursos para 32 bits con un link para bajarlo. Agunos contestaron diciendo que se parecía a nuestro viejo Worshop.\n\nLo bajé y lo instalé, y resultó ser el Visual Estudio 2008. Hasta ahí todo bien, lo curioso viene cuando llamas a una DLL 32 bits, como por ejemplo la PREV32.DLL. Resulta que el programita llama del tirón al Viejo Workshop. ¿Cómo se come eso? ¿Qué estoy haciendo mal?\n\nEl caso es que le cambio el nombre al WORKSHOP.EXE para el Visual no lo encuentre, pero entonces no aparece ningún editor de recursos. Aunque hay una barra de herramientas a la izquierda con toda una serie de objetos para incorporar a un hipotético editor de recursos. Algo falla y no se lo que es. Si alguien pudiera ayudarme.\n\nA lo mejor que me he equivocado de link. Si se pudiera recuperar el post a lo mejor podía solucionar el tema.\n\nGracias a todos.','',0,'gA==','2ejl0vv8',1,0,'',1055,0,0),(46777,9701,3,868,0,'219.64.121.60',1200936513,1,0,1,1,1,1,'','','Please try this\n[code:1wdtk7r6]\n   oBmp&#58;bPainted  &#58;= &#123; |hDC| OnPaint&#40; hDC, &quot;BOLD TEXT&quot;, oFntGross &#41; &#125;\n\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nstatic function OnPaint&#40; hDC, cMsg, oFont &#41;\n\n   local hOldFont\n\n   hOldFont &#58;= SelectObject&#40; hDC, oFont&#58;hFont &#41;\n   SetBkMode&#40; hDC, TRANSPARENT &#41;\n   TextOut&#40; hDC, 5, 5, cMsg &#41;\n   SelectObject&#40; hDC, hOldFont &#41;\n\nreturn nil\n[/code:1wdtk7r6]','',0,'AIA=','1wdtk7r6',1,0,'',868,0,0),(46778,9700,3,34,0,'68.5.217.82',1200936857,1,0,1,1,1,1,'','Formatting','I already had added in the word file.  What I found was that I could select View As Clipper and get the highlighted words, but there is no automatic assoication from a .prg to a Clipper format.  I have to manually make the association each time I open the file.\n\nI am spoiled ... Multi Edit does have a formatting function that indents/aligns a whole file automatically.  So, if I pasted in code, or if I typed in code that was not in the right starting position ( ie. comments at a column too far to the right ), I could instantly reformat.  It also automatically recognises PRG files and does the highlighting etc when I open the file.\n\nHowever, I do want to see if this is a better editor.\n\nAntonio, I didn\'t order Studio because 1)  comments here indicated the resource editor was not stable, 2) Project management wasn\'t a big deal, and 3) I wanted to be sure the editor would work out before I invested the extra money.','',0,'AIA=','1pl9fyaq',1,0,'',34,0,0),(46779,9701,3,51,0,'80.122.88.242',1200937843,1,0,1,1,1,0,'','','Thank you NageswaraRao,\nI miss something:   \nError description: Error BASE/1004  No exported method: HFONT\nRegards,\nOtto\n// Placing text on top of a bitmap\n\n#include \"FiveWin.ch\"\n\n#define TRANSPARENT 1\n\nstatic oWnd\n\n//----------------------------------------------------------------//\n\nfunction Main()\n  Local oBmp, oFont\n\n   DEFINE FONT oFont\n\n  oFont := ChooseFont()\n\n  DEFINE WINDOW oWnd TITLE \"Text on a bitmap\"\n\n   @ 1, 1 BITMAP oBmp FILENAME \"..\\bitmaps\\fw.bmp\" OF oWnd\n\n    oBmp:bPainted  := { |hDC| OnPaint( hDC, \"BOLD TEXT\", oFont ) }\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------//\n\n\nstatic function OnPaint( hDC, cMsg, oFont )\n\n   local hOldFont\n\n   hOldFont := SelectObject( hDC, oFont:hFont )\n   SetBkMode( hDC, TRANSPARENT )\n   TextOut( hDC, 5, 5, cMsg )\n   SelectObject( hDC, hOldFont )\n\nreturn nil','',0,'AIA=','1sywzyvy',1,0,'',51,0,0),(46780,9701,3,868,0,'219.64.121.60',1200938058,1,0,1,1,1,1,'','','Mr Otto\n\nFirst try with defining the font. like\n DEFINE FONT oFntGross NAME \"MS Sans Serif\" SIZE 10,15 BOLD','',0,'AIA=','en3o8dkh',1,0,'',868,0,0),(46781,9701,3,868,0,'219.64.121.60',1200938135,1,0,1,1,1,1,'','','Pl try this code which works\nLater on please make any other changes\n[code:gdkhcisy]\n#include &quot;FiveWin&#46;ch&quot;\n\n#define TRANSPARENT 1\n\nstatic oWnd\n\n//----------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oBmp\n   local oFntGross\n\n    DEFINE FONT oFntGross NAME &quot;VERDANA&quot; SIZE 0,-20 BOLD\n\n   DEFINE WINDOW oWnd TITLE &quot;Text on a bitmap&quot;\n\n   @ 1, 1 BITMAP oBmp FILENAME &quot;&#46;&#46;\\bitmaps\\fw&#46;bmp&quot; OF oWnd\n\n   oBmp&#58;bPainted  &#58;= &#123; |hDC| OnPaint&#40; hDC, &quot;BOLD TEXT&quot;, oFntGross &#41; &#125;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n\n//----------------------------------------------------------------//\nstatic function OnPaint&#40; hDC, cMsg, oFont &#41;\n\n   local hOldFont\n\n   hOldFont &#58;= SelectObject&#40; hDC, oFont&#58;hFont &#41;\n   SetBkMode&#40; hDC, TRANSPARENT &#41;\n   TextOut&#40; hDC, 5, 5, cMsg &#41;\n   SelectObject&#40; hDC, hOldFont &#41;\n\nreturn nil\n[/code:gdkhcisy]','',0,'AIA=','gdkhcisy',1,0,'',868,0,0),(46782,9701,3,51,0,'80.122.88.242',1200938400,1,0,1,1,1,0,'','','Perfect. Many thanks.\nbest regards,\nOtto','',0,'AIA=','kll6m5ni',1,0,'',51,0,0),(46783,9701,3,868,0,'219.64.121.60',1200938929,1,0,1,1,1,1,'','','Good.\nNow about your code. ChooseFont returns array but not a font object.\nThat was the reason for your error.','',0,'AIA=','2f1ucp66',1,0,'',868,0,0),(46784,9710,6,430,0,'157.100.146.2',1200940650,1,0,1,1,1,0,'','Porque s epega dos veces','Estoy probando con la clase TRichEdit y me ocurre algo extraño; cuando copió un texto de otro programa, sea Word o de Internet para pegar dentro del RichEdit; el texto que copie se pega dos veces. ¿Porque?.\n\nSaludos\n\nFernando Espinoza','',0,'AIA=','3g8p0g5o',1,0,'',430,0,0),(46785,9701,3,6,0,'87.1.232.8',1200940880,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:3tum99m1]Enrico,\nI tried your suggestion but this does not work.[/quote:3tum99m1]\n\nSorry, I\'m working too much...\n\nAnyway, I\'ve seen you already solved the problem.\n\nEMG','',0,'gA==','3tum99m1',1,0,'',6,0,0),(46786,8928,20,6,0,'87.1.232.8',1200940980,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:e2nmhbhi]A proposito di questa funzione,\nsu Windows Vista mi genera il seguente errore:[/quote:e2nmhbhi]\n\nSì, lo so. Sembra un bug di Vista.\n\nEMG','',0,'gA==','e2nmhbhi',1,0,'',6,0,0),(46787,9700,3,303,0,'72.220.181.80',1200940994,1,0,1,1,1,0,'','','Tim,\n\n&gt;I already had added in the word file. What I found was that I could select View As Clipper and get the highlighted words, but there is no automatic assoication from a .prg to a Clipper format.\n\nWell, there is no option to manually select the filetype in my older version so I find it hard to imagine that they removed automatic filetype association and replaced it with manual, so there must be a solution.\n\nPlease check your wordfile to see if it contains:\n\n...File Extensions = PRG\n\nThere are also forums on the UltraEdit site where you could ask.\n\nJames','',0,'gA==','3i1kxsmb',1,0,'',303,0,0),(46788,9705,3,6,0,'87.1.232.8',1200941107,1,0,1,1,1,1,'','','Yes, I can\'t imagine any valid reasons for that behavior... <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nEMG','',0,'gA==','2r8lt6sg',1,0,'',6,0,0),(46789,9711,3,303,0,'72.220.181.80',1200942195,1,0,1,1,1,0,'','XBrowse alternating row colors','There was a recent discussion of how to set alternating row colors in browses. I showed a way to do this for TWBrowse and TCBrowse. Here is an example for TXBrowse using the same technique.\n\nJames\n\n[code:kxusfoh0]/*\nPurpose &#58; TXBrowse with alternating row colors\nAuthor  &#58; James Bott\nLanguage&#58; FWH\nDate    &#58; 1/20/2008\n*/\n\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n#define COLOR_LIGHT  rgb&#40;255,255,235&#41;\n#define COLOR_DARK  rgb&#40;192,208,179&#41;\n\nfunction main&#40;&#41;\n   local oWnd,oBrw,oCust,oCol,lClrFlag\n\n   oCust&#58;= TData&#40;&#41;&#58;new&#40;,&quot;customer&quot;&#41;\n   oCust&#58;use&#40;&#41;\n\n   define window oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;First&quot;\n   oCol&#58;bStrData      &#58;= &#123; || oCust&#58;first &#125;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;Last&quot;\n   oCol&#58;bStrData      &#58;= &#123; || oCust&#58;last &#125;\n\n   // Setup alternating row flag\n   lClrFlag&#58;=&#46;f&#46;\n   oBrw&#58;bSkip&#58;=&#123;| nRecs | &#40;nRecs&#58;= oCust&#58;skipper&#40; nRecs &#41;, lClrFlag&#58;= if&#40; nRecs % 2 = 0, lClrFlag,!lClrFlag&#41;, nRecs&#41; &#125;\n\n\n   // Define alternating row colors\n   oBrw&#58;bClrStd&#58;= &#123;|| if&#40;lClrFlag,&#123; CLR_BLACK, COLOR_LIGHT &#125;,&#123; CLR_BLACK, COLOR_DARK &#125;&#41; &#125;\n\n   oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\n\n   oBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil,&#40;oCust&#58;RecNo&#40;&#41;&#41;,&#40;oCust&#58;GoTo&#40;n&#41;&#41; &#41; &#125;  // Required!\n   oBrw&#58;cAlias &#58;= oCust&#58;cAlias\n\n   oBrw&#58;lRecordSelector&#58;=&#46;f&#46;\n\n   // This must be at the end of browse code as it initializes the columns\n   // E&#46;G&#46; Cols inherit row colors from the parent browse\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oWnd&#58;oClient&#58;= oBrw\n\n   activate window oWnd\n\nreturn nil[/code:kxusfoh0]','',0,'AIA=','kxusfoh0',1,0,'',303,0,0),(46790,9702,4,137,0,'151.38.8.195',1200942282,1,0,1,1,1,0,'','','Ok.. i tried again... It seem my harb-arm build doesn\'t support hashes. Can you provide me an updated version? \n\nRegards,\nRoberto Parisi','',0,'AIA=','3dpx61x0',1,0,'',137,0,0),(46791,9701,3,51,0,'80.122.88.242',1200942301,1,0,1,1,1,0,'','','Using NageswaraRao\'s code and parts of yours from\n\" Saving and restoring a font. By Enrico Maria Giordano\"\nI put together a sample:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->\n\nThank you for your help,\nOtto','',0,'AIA=','3jxxje18',1,0,'',51,0,0),(46792,9706,3,51,0,'80.122.88.242',1200942900,1,0,1,1,1,0,'','','Hello Uwe,\nmaybe you have the same problem I had:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8705&amp;highlight=vkey\">http://fivetechsoft.com/forums/viewtopi ... light=vkey</a><!-- m -->\nRegards,\nOtto','',0,'AIA=','1ysq2ikx',1,0,'',51,0,0),(46793,9711,3,868,0,'219.64.121.60',1200943279,1,0,1,1,1,1,'','','Mr James\n\nI am interested in trying this out. But can you kindly give the code without using any data class please?','',0,'AIA=','2r8s6813',1,0,'',868,0,0),(46794,9701,3,868,0,'219.64.121.60',1200943636,1,0,1,1,1,1,'','','Mr Otto\n\nNice. If you keep including interesting code from these forums on your site, it becomes easy for us to search when we want.\n\nBy the way you need to add some error checking in your code. The program fails when BuildFont function returns NIL.','',0,'AIA=','3ty0aqeu',1,0,'',868,0,0),(46795,9703,3,29,0,'88.149.161.1',1200943793,1,0,1,1,1,1,'','','Hi Enrico,\nI made a self-contained sample that show the problem at\n<!-- w --><a class=\"postlink\" href=\"http://www.softwarexp.co.uk/beta/sample.zip\">www.softwarexp.co.uk/beta/sample.zip</a><!-- w -->\n\nPls. press the mouse right button on the right of the button bar and select \"Float\". You will see that error.\n\nAny ideas ?\n\nThanks in advance.\n\nBest Regards,\n\nMarco','',0,'AIA=','28mzjxfl',1,0,'',29,0,0),(46796,7127,6,596,0,'84.76.66.27',1200944049,1,0,1,1,1,1,'','','Al compilar esta funcion con BCC551+FWH75+Make030[quote=&quot;Antonio Linares&quot;:2u4z959h][code:2u4z959h]\nHB_FUNC&#40; SHR &#41;\n&#123; // Esta es la linea 1175\n   unsigned int ui = hb_parnl&#40; 1 &#41;;\n   unsigned char uc = hb_parnl&#40; 2 &#41;;\n   hb_retnl&#40; ui &gt;&gt;= uc &#41;;\n&#125; // Esta es la linea 1179\n[/code:2u4z959h][/quote:2u4z959h]Me da este error: \nE:\\Bases\\Practicas\\InyectaS.prg(1175) Error E0020  Incomplete statement or unbalanced delimiters\nE:\\Bases\\Practicas\\InyectaS.prg(1179) Error E0030  Syntax error: \"parse error at \'INT\'\"\n\n\n\n\nEsta otra funcion siempre me da TRUE, es decir FIN DE FICHERO[quote=&quot;Antonio Linares&quot;:2u4z959h][code:2u4z959h]\nfunction feof&#40; nHandle &#41;\n   local lEof &#58;= &#40; fseek&#40; nHandle, 1, FS_RELATIVE &#41; == fseek&#40; nHandle, 0, FS_RELATIVE &#41; &#41;\n   if ! lEof\n      fseek&#40; nHandle, -1, FS_RELATIVE &#41;\n   endif\nreturn lEof\n[/code:2u4z959h][/quote:2u4z959h]Me he \"inventado\" esta (y voy tirando) y me funciona, pero si se arregla la de arriba mejor:\n[code:2u4z959h]function feof&#40; nHandle &#41;\n   local BLOCK_SIZE &#58;= 1 // 1 o lo que sea mayor de 0 &#40;cero&#41;\n   LOCAL cBuffer    &#58;= Space&#40; BLOCK_SIZE &#41;\n   LOCAL nRead      &#58;= 0\n   local lEof       &#58;= &#46;T&#46;\n   nRead &#58;= FRead&#40; nHandle, @cBuffer, BLOCK_SIZE &#41;\n   IF nRead == BLOCK_SIZE\n      fseek&#40; nHandle, -BLOCK_SIZE, FS_RELATIVE &#41;\n      lEof&#58;= &#46;F&#46;\n   ELSE\n      lEof&#58;= &#46;T&#46;\n   ENDIF\nreturn lEof [/code:2u4z959h]En realidad quiero que sea haga lo mismo que la de FuncKy:\n  Name:     feof() - see if the file pointer is at the end of file\n  Usage:    &lt;logical&gt; = feof(&lt;handle&gt;)\n  Params:   integer &lt;handle&gt; - handle from a previous fopen()\n  Returns:  [b:2u4z959h]logical .T. if file pointer is at the beginning of the\n            file, .F. if it is not[/b:2u4z959h]','',0,'wIA=','2u4z959h',1,0,'',596,0,0),(46797,9703,3,6,0,'87.1.232.8',1200944098,1,0,1,1,1,1,'','','Your EXE doesn\'t work here either but if I compile your PRG then it works fine. It seems there is a bug in your FWH release.\n\nEMG','',0,'wIA=','cfovn2pv',1,0,'',6,0,0),(46798,9703,3,868,0,'219.64.121.60',1200944151,1,0,1,1,1,1,'','','I compiled your program with FWH 8.01. It works well without error. It is  true that your exe gives error. Probably you should use later version of FWH','',0,'wIA=','33l704ei',1,0,'',868,0,0),(46799,9712,6,1246,0,'69.19.14.25',1200944980,1,0,1,1,1,1,'','PROBLEMA CON LISTBOX','HOLA A TODOS:\n\nHARBOUR +FWH 2.4\nDISCULPEN LA VERSION ARCAICA PERO NO ME HAN AUTORIZADO LAS ACTUALIZACIONES, EN FIN .\n TENGO UNA CAPTURA DONDE ACEPTO LA CLAVE DE UN PRODUCTOR, ESTE VERIFICA QUE EXISTA EN MAESTRO DE PRODUCTORES Y OTRA BASE DE DATOS, QUIERO QUE AL ACEPTAR LA CLAVE ME DESPLEGUE SUS MOVIMINETOS DE CREDITO POR MEDIO DE UN LISTBOX Y SEGUIR ACEPTANDO MAS DATOS, PERO AL ENTRAR AL PROGRAMA SE QUEDA PENSANDO Y LE DOY UN CLICK EN CUALQUIR PARTE Y ME DICE QUE EL PROGRAMA NO RESPONDE.\nSI ALGUIEN ME PUDIERA DAR UNA MANITA SE LO AGRADECERIA MUCHO.\nDE ANTEMANO MIL GRACIAS.\nAHI LES DEJO EL CODIGO FUENTE:\n\nmemvar patres\nFunction AVI000()\nlocal oSay, oSay1, oSay2,  oSay3, oSay4, oSay5, oSay6, oSay7, oSay8\nlocal  oSay9, oSay10, oSay11, osay12, oSay13, oSay14, oSay15, oSay16\nlocal oGet1, oGet2,  oGet3, oGet4, oGet5, oGet6, oGet7, oGet8, oGet9, oGet\nLOCAL oFont9, oBtm, oBtm2, oFont10\nLOCAL oBmp, oBmp1, oBmp2, oBarrbtm\nlocal oLbx\nlocal oTbmp\nlocal oTbmp1\nlocal oBtnBmp\nlocal oBtnBmp2\nlocal oBtnBmp3\nlocal oBtnBmp4\nlocal oNlab\nlocal oIcono3\nlocal obrush2\npublic oBmp3\nYACAP:=0\nYACTA:=0\naLab:={}\naDes:={}\ncLab:=space(4)\ncDes:=space(20)\nokeysup:=.t.\ncNumlab:=space(4)\nkcvelab:=space(4)\nqcvelab:=space(4)\ncNumlab2:=0 \nCNOMBRE:=space(40)\nCDESCON:=SPACE(20)\nCconso:=space(6)\ncasoc:=space(4)\ncnomeji:=space(20)\ncsupest:=0\ncsupred:=0\necicloe:=space(4)\nezafra:=space(7)\netippag=space(15)\nfuera3=.f.\nGRABARS:=.f.\nok:=.f.\nok1:=.f.\nok2:=.f.\nok3:=.f.\nok4:=.f.\n\ncnumtp:=flg_1:=nU:=regs:=Ctarifa:=CCVENVA:=eciclo:=CCANT:=ccant2:=CSUP:=CTARCAN:=CCICLO:=CIMPORTE:=0\ncfecexp:=date()\nGRABARS:=.f.\n\nUSE (patres+\"\\maepro\")   ALIAS maepro shared new\nINDEX ON maepro-&gt;CVENVA to c:\\temp\\MAEPRO\nset index to c:\\temp\\maepro\nclose data\n\nUSE (patres+\"\\fide\")     ALIAS fide   shared new\nINDEX ON fide-&gt;claveconso to c:\\temp\\fide  \nset index to c:\\temp\\fide  \nclose data\n\nUSE (patres+\"\\maelab\")   ALIAS maelab shared new \nINDEX ON maelab-&gt;cvelab to c:\\temp\\MAELAB \nset index to c:\\temp\\MAELAB\nINDEX ON maelab-&gt;descon to c:\\temp\\LABOR \nset index to c:\\temp\\LABOR\nclose data\n\nUSE (patres+\"\\aviacum\")   ALIAS avipas shared new\nINDEX ON avipas-&gt;CVENVA TO c:\\temp\\avipas\nset index to c:\\temp\\avipas\nclose data\n\nUSE (patres+\"\\aviacum\") alias avipas shared new\nset index to c:\\temp\\avipas\n\n\nUSE (patres+\"\\maepro\") alias maepro shared new\n set index to c:\\temp\\maepro\n\nUSE (patres+\"\\fide\")   alias fide   shared new\n set index to c:\\temp\\fide  \n\nUSE (patres+\"\\maelab\") alias maelab shared new \nset index to c:\\temp\\MAELAB\n\nUSE (patres+\"\\maelab\") alias labor shared new  \nFILAVIS(aDEs,aLab,cDes,cLab)\nset index to c:\\temp\\LABOR\n\n\n// use &amp;patres\\CAPPAG alias CAPPAG  shared new\n\n\nCAPPAG()\n\nDbCloseAll()\n\nreturn nil\n\nfunction CAPPAG()\n\nDEFINE FONT oFont9 NAME \"arial\" SIZE 05,14 BOLD\n\n\n// DO WHILE .t.\nDEFINE BRUSH oBrush2 style null\n\n// DEFINE BITMAP oBmp3 resource \"lupa\"\n\nDEFINE BITMAP oBmp resource \"pintura5\"\n\nDEFINE ICON oIcono3 resource \"logo1\"\n\nDEFINE BITMAP oBmp1 resource \"pintura1\"\n\n\nDEFINE DIALOG oDlg RESOURCE \"AVI000\"  OF oVentana;\n                  brush obrush2  icon oicono3  font oFont9\n\n   redefine say oSay1 id 101 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)  \n   redefine say oSay2 id 104 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n   redefine say oSay3 id 106 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n   redefine say oSay4 id 108 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n   redefine say oSay6 id 113 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)               \n   redefine say oSay13 id 123 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n   redefine say oSay15 id 125 of oDlg font oFont9 color rgb(78,20,240),rgb(0,150,151)               \noDlg:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitmap ) }\noIcono3:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oIcono3:hIcon ) }\n// oVentana:bPainted := { | hDC | InstertBmp( hDC , oBmp3 , oVentana ) }\n\n\n  REDEFINE GET oGet VAR CCVENVA picture \"999999\" ID 102 OF oDlg;\n   COLOR \"R+/bg+\" font oFont9;\n             VALID empty(ccvenva).or.Eval ( { || filcta1(ccvenva),;\n                   IF (CCVENVA &lt; 100000,;\n                   (msgStop (\"La longitud de la cuenta debe ser de 6 digitos\"), .F.),;\n                   IF (!maepro-&gt;(dbSeek(CCVENVA)),;\n                   (msgStop (\"No Existe Productor \"), ok:=.F. ),;\n                   (oSay7:settext(oemtoansi(cnombre:=maepro-&gt;nombre1)),;\n                   (oSay14:settext(csupest:=maepro-&gt;has_est)),;\n                   (oSay16:settext(csupred:=maepro-&gt;hasest_red)),;\n                   (oSay10:settext(casoc:=maepro-&gt;asoc),ok:=.t.),; \n                   IF (!fide-&gt;(dbSeek((MAEPRO-&gt;CLAVECONSO))),;\n                   (msgStop(\"Productor Sin Fideicomiso\"), ok:=.F. ),(ok:=.t.)) )))})\n\n\n    REDEFINE LISTBOX oLbx fields TRANSFORM(avipas-&gt;CVENVA,\"9/99-999\"),OemToansi(avipas-&gt;descon),TRANSFORM(avipas-&gt;ciclo,\"9\"),;\n    transform(avipas-&gt;sup,\"9999.99\"),transform(avipas-&gt;importe,\"99999999,999.99\"),OemToansi(avipas-&gt;num_sem),;\n    TRANSFORM(dtoc(avipas-&gt;fecexp),\"99.99.9999\") alias \"avipas\" font oFont9;\n  ID 121 OF oDlg  head \"CLAVE   \",\"CONCEPTO            \",\"CIC\",\"   SUP  \",\" IMPORTE  \",\"  NUMSEM  \",\" FEC.EXP. \";\n  COLOR \"R+/BG+\"\noLbx:refresh()\n\noLbx:aJustify={.t.,.f.,.t.,.t.,.t.,.t.,.t.}\n\noLbx:nLinestyle=11\noLbx:nClrbackhead=nRGB(0,150,151)\noLbx:nClrforehead=nRGB(78,20,240)\noLbx:nClrforefocus=nRGB(249,216,32)\noLbx:nClrbackfocus=nRGB(249,29,83)\n\noLbx:nClrpane:={||iif((ordkeyno())%2==0,RGB(0,213,213),rgb(0,150,151))}\n REDEFINE BTNBMP oBtnBmp4 ID 130 OF odlg prompt \"Nvo. Reg.\" noborder Font oFont9;\n  ACTION (fuera3:=.t.,REFREAVIS(),oGet:setfocus())\n\n//                   (oSay10:settext(casoc:=maepro-&gt;asoc)),(cconso:=maepro-&gt;claveconso),.t.) ))) } )\n  REDEFINE SAY oSay7 var Cnombre id 103 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE SAY oSay10 var Casoc id 117 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)             \n\n  REDEFINE SAY oSay14 var Csupest id 124 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE SAY oSay16 var Csupred id 126 of oDlg   font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n\n  REDEFINE GET oGet1 VAR Cfecexp  ID 105 of oDlg COLOR \"R+/BG+\" font oFont9\n\n  REDEFINE GET oGet2 VAR Csup  picture \"9999.99\" ID 107 of oDlg  COLOR \"R+/BG+\" font oFont9;\n             VALID  Eval ( { ||;\n                   IF (Csup = 0,;\n                      (msgStop (\"La superfice Debe Ser Mayor Que Cero\"),.F.),;\n                      ((redondea(csup),compsup(csup,csupest),oGet2:cText(cSup),oSay11:settext(cSup)),okeysup))}) \n\n  REDEFINE SAY oSay11 var cSup  id 122 of oDlg picture \"999.99\"  font oFont9 color rgb(78,20,240),rgb(0,150,151) \n\n  REDEFINE combobox oNlab  VAR clab  items aDes ID 109 OF ODLG STYLE CBS_DROPDOWN picture \"@20(X)\" COLOR \"R+/BG+\"  ;\n   VALID Eval ( { || muelabar(CLAB),vericta(clab,ccvenva,yacap),vericap(clab,ccvenva,yacap),;\n                   if (YACAP=1,((MSGSTOP(\"Ya Se Capturo Esta Labor Para Este Productor\"),ok2:=.f.),(ok2:=.T.)),;\n                   IF (!maelab-&gt;(dbSeek(clab)),;\n                   (msgStop (\"No Existe Labor\"), ok2:=.F. ),;\n                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),(pregunta(osay9),oGet:setfocus()),ok2:=.T.) ) ) } ) \noNlab:refresh()\n//oNlab:setcolor():=rgb(78,20,240),rgb(0,150,151)\noNlab:setfocus()\n/*\n  REDEFINE DBCOMBO oNlab  VAR cnumlab  ID 109 OF ODLG picture \"@20(X)\" COLOR \"R+/BG+\"  ;\n   alias \"labor\" itemfield labor-&gt;(\"cvelab\") listfield labor-&gt;(\"descon\") ;\n   VALID Eval ( { || muelabar(CNUMLAB),vericta(cnumlab,ccvenva,yacap),vericap(cnumlab,ccvenva,yacap),;\n                   if (YACAP=1,((MSGSTOP(\"Ya Se Capturo Esta Labor Para Este Productor\"),ok2:=.f.),(ok2:=.T.)),;\n                   IF (!maelab-&gt;(dbSeek(cnumlab)),;\n                   (msgStop (\"No Existe Labor\"), ok2:=.F. ),;\n                   (oSay8:settext(cdescon:=maelab-&gt;descon),MUEVEDATAS(),;\n                   (oSay9:settext(cimporte:=csup*MAELAB-&gt;TARIFA)),(pregunta(osay9),oGet:setfocus()),ok2:=.T.) ) ) } ) \n*/\n//  REDEFINE SAY oSay12 var kcvelab id 123 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n  REDEFINE SAY oSay8 var Cdescon id 110 of oDlg  font oFont9 color rgb(78,20,240),rgb(0,150,151)              \n\n  redefine say oSay9 var cImporte  id 114 of oDlg picture \"9999,999.99\" font oFont9 color rgb(78,20,240),rgb(0,150,151)            \n REDEFINE BTNBMP oBtnBmp2 ID 116 OF odlg RESOURCE \"SALIDA\" noborder ;\n  ACTION (FUERA3:=.t.,odlg:End())\noBtnBmp2:nClrpane=rgb(0,150,151)\n/*\n REDEFINE BTNBMP oBtnBmp3 ID 119 OF odlg RESOURCE \"CANCELAR\" ;\n  ACTION (.t.,REFREAVIS(),oGet:setfocus())\noBtnBmp3:nClrpane=nRGB(40,168,34)\n*/\n REDEFINE BTNBMP oBtnBmp4 ID 120 OF odlg prompt \"Nvo. Reg.\" noborder Font oFont9;\n  ACTION (fuera3:=.t.,REFREAVIS(),oGet:setfocus())\n// odlg:blostfocus={ || oBtnBmp4:nClrpane=nRGB(249,29,83)}\n\noBtnBmp4:nClrpane=rgb(0,150,151) \n\nACTIVATE DIALOG oDlg CENTER    \n/*\n  on paint (oGet:setfocus())\n           If GetKeyState(VK_ESCAPE).or.empty(CCVENVA)\n              exit\n           endif\n*/\n//               else\n//          GRABAAVIS()\nreturn .t.\n//enddo\nrelease font oFont9\noFont3:end()\n\nRETURN NIL\n\nFUNCTION MUEVEDATAS()\nctarifa:=maelab-&gt;tarifa\ncciclo:=maelab-&gt;ciclo\nctarcan:=maelab-&gt;tarifa_can\neciclo:=maelab-&gt;ciclo\necicloe:=maelab-&gt;edi_ciclo\nezafra:=maelab-&gt;edi_zafra\netippag:=maelab-&gt;tip_pag\ncnumtp:=maelab-&gt;num_tp\nRETURN (CTARIFA,CTARCAN)\n\n/*\nfunction CALIMPAS(CCANT,CTARIFA)\n  cImporte:=cCant*ctarifa\n   oSay9:settext(cimporte)\nreturn (cImporte)\n*/\n\nfunction GRABAAVIS()\nif (ccvenva=0.or.cSup=0.or.cnombre=space(40).or.cdescon=space(20))\n   (msgStop (\"Registro En Blanco\"), ok:=.F.)\n   return .f.\n   endif\n use (patres+\"\\CAPPAG\") alias CAPPAG  new\n\n     CAPPAG-&gt;(dbAppend())\n    replace CAPPAG-&gt;CVENVA     with CCVENVA\n    replace CAPPAG-&gt;nombre1    with cnombre\n    replace CAPPAG-&gt;fecexp     with cfecexp\n    replace CAPPAG-&gt;sup        with csup\n    replace CAPPAG-&gt;tarifa_can with ctarcan\n    replace CAPPAG-&gt;tarifa     with ctarifa \n    replace CAPPAG-&gt;cantidad    with ccant \n    replace CAPPAG-&gt;importe     with cImporte \n    replace CAPPAG-&gt;asoc       with casoc   \n    replace CAPPAG-&gt;nomeji     with cnomeji\n    replace CAPPAG-&gt;numlab     with VAL(clab)\n    replace CAPPAG-&gt;descon     with cdescon\n    replace CAPPAG-&gt;ciclo      with eciclo \n    replace CAPPAG-&gt;edi_ciclo  with ecicloe\n    replace CAPPAG-&gt;edi_zafra  with ezafra \n    replace CAPPAG-&gt;tip_pag    with etippag \n    replace CAPPAG-&gt;num_tp     with cnumtp  \n    replace CAPPAG-&gt;fecha      with dtos(cappag-&gt;fecexp)\n    replace CAPPAG-&gt;clave      with str(ccvenva,6,0)\n    replace CAPPAG-&gt;cvelab     with str(ccvenva,6,0)+clab\n    replace CAPPAG-&gt;ntp_cve    with cnumtp+str(ccvenva,6,0)\n    commit\n//IMPPAGHDS()\n  REFREAVIS()\n  close cappag\n  return nil\n\n/*\nFUNCTION IMPPAGHDS()\nrep06()\nreturn nil\n*/\n\nfunction REFREAVIS()\nflg_1:=ctarifa:=eciclo:=CCANT:=CSUP:=CTARCAN:=CCICLO:=CIMPORTE:=0\ncnombre:=space(30)\ncNUMLAB:=space(4)\ncAsoc:=space(4)\ncdescon:=space(20)\noNlab:refresh()\noDlg:refresh()\noSay1:refresh()\noSay2:refresh()\noSay3:refresh()\noSay4:refresh()\noSay6:refresh()\noSay7:refresh()\noSay8:refresh()\noSay9:refresh()\noSay10:refresh()\noSay11:refresh()\n//oGet:refresh()\n//oGet1:refresh()\noGet2:refresh()\nreturn nil\n\nfunction muelabar(CLAB,ccvenva,yacap)\noNlab:settext(clab)\nreturn(clab)\n\nfunction vericap(clab,ccvenva,yacap)\nkcvelab:=str(ccvenva,6,0)+clab\nuse (patres+\"\\cappag\") alias klab new\nindex on klab-&gt;cvelab to c:\\temp\\cvelab\nset index to c:\\temp\\cvelab\nIF klab-&gt;(dbSeek(kcvelab))\nYACAP:=1\nmsgstop(\"ya existe labor capturada\")\nclose klab\nretuRn (ok3:=.f.,oget:setfocus())\nELSE\nYACAP:=0\nENDIF\nclose klab\n// osay12:settext(kcvelab)\nRETURN (YACAP,kcvelab)\n\nfunction vericta(clab,ccvenva,yacap)\nqcvelab:=str(ccvenva,6,0)+clab\nuse (patres+\"\\aviacum\") alias aviacum new\nindex on aviacum-&gt;cvelab to c:\\temp\\cvelaba\nset index to c:\\temp\\cvelaba\nIF aviacum-&gt;(dbSeek(qcvelab))\nYACTA:=1\nmsgstop(\"Ya Se Dio Credito Para Esta Labor\")\nclose aviacum\nretuRn (ok3:=.f.,oget:setfocus())\nELSE\nYACTA:=0\nENDIF\nclose AVIACUM\nRETURN (YACTA,qcvelab)\n\nfunction compsup(csup,csupest)\nif csup&gt;csupred\nmsgstop(\"Superficie Mayor Que La Estimada\")\nokeysup:=.f.\nreturn (okeysup,oGet2:setfocus())\nelse\nokeysup:=.t.\nreturn(okeysup)\nendif\n\nfunction FILAVIS(aLab,aDes,cLab,cDes)\nset filter to labor-&gt;id_prog=4\ncLab:=labor-&gt;cvelab\ncDes:=labor-&gt;descon\ndo while labor-&gt;(!eof())\n// aadd(aLab,labor-&gt;descon)\naadd(aLab,labor-&gt;cvelab+\" \"+labor-&gt;descon)\naadd(aDes,labor-&gt;descon)\nlabor-&gt;(dbskip())\nenddo\n\nreturn nil\n\nfunction pregunta(osay9)\n//  redefine say oSay9 var cImporte  id 114 of oDlg picture \"9999,999.99\" font oFont9 color rgb(78,20,240),rgb(0,150,151) FONT oFont9\n  If MsgYesNo( OemToAnsi(\"¨Desea Grabar El Registro\"),\"Grabar Registro\")\n                  (GRABAAVIS(),oGet:setfocus(),ok4:=.t.)\n                  else\n              (REFREAVIS(),oGet:setfocus(),ok4:=.t.)\n               endif\n               return nil\n\nfunction REDONDEA(cSup)\nW_SUP:=cSup\nC_LET:=STR(cSup,9,2)\nDEC:=SUBSTR(C_LET,8,2)\nif VAL(DEC) &lt;=20\n DECIM := 00/100\nENDIF\nif VAL(DEC) &gt;20.AND.VAL(DEC)&lt;=25\n DECIM := 25/100\nENDIF\nif VAL(DEC) &gt;25.AND.VAL(DEC)&lt;=35\n DECIM := 25/100\nENDIF\nif VAL(DEC) &gt;35.AND.VAL(DEC)&lt;=50\n DECIM := 50/100\nENDIF\nif VAL(DEC) &gt;50.AND.VAL(DEC)&lt;=65\n DECIM := 50/100\nENDIF\nif VAL(DEC) &gt;65.AND.VAL(DEC)&lt;=75\n DECIM := 75/100\nENDIF\nif VAL(DEC) &gt;75.AND.VAL(DEC)&lt;=85\n DECIM := 75/100\nENDIF\nif VAL(DEC) &gt;85\n DECIM := 1.00  \nENDIF\n HASREDON := INT(W_SUP)+DECIM\ncSup:=HASREDON\noGet2:ctext(csup)\noSay11:settext(cSup)\nRETURN (cSup)\n\nFUNCTION inicCTA1()\n set filter to\n return nil\n\n\nFUNCTION filcta1(CCVENVA)\nmsgstop(\"comienza folto\")\n\n     set filter to\n     set filter to avipas-&gt;cvenva=ccvenva\nmsgstop(\"ttermina filtor\")\n//oGet1:setfocus()\n//oLbx:upstable()                     \n//oLbx:refresh()\n\n     go top\n RETURN .t.','',0,'wIA=','16yxbez4',1,0,'',1246,0,0),(46800,9691,6,1246,0,'69.19.14.25',1200946647,1,0,1,1,1,1,'','','HOLA CHIAPAS\n\nYO TENIA PROBLEMAS SIMILARES CON RED INHALABRICA , LE PUSE SHARED NEW A LAS APLICACIONES Y NO ME HA APARECIDO EL ERROR\nESPERO TE SIRVA EL TIP.','',0,'wIA=','20gx0qnq',1,0,'',1246,0,0),(46801,9709,6,2,0,'87.218.146.22',1200949186,1,0,1,1,1,1,'','','Antolin,\n\nSigue estas indicaciones:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9572\">http://fivetechsoft.com/forums/viewtopic.php?t=9572</a><!-- m -->','',0,'wIA=','3ls1ve6w',1,0,'',2,0,0),(46802,9676,22,2,0,'87.218.146.22',1200949348,1,0,1,1,1,1,'','','Rafa,\n\nBien, se podría hacer como dices: después de que todos los controles se hayan inicializado y antes ó después (?) del ON INIT del diálogo ?','',0,'wIA=','27z3rlkr',1,0,'',2,0,0),(46803,9708,3,2,0,'87.218.146.22',1200949611,1,0,1,1,1,1,'','','Antonio,\n\nIf you don\'t want your application to be ever decompiled, then you should compress it using a tool like UPX and using a password so it may not be decompressed (btw, UPX seems not to support passwords).','',0,'wIA=','69hgthz9',1,0,'',2,0,0),(46804,9696,6,9,0,'85.59.68.80',1200951347,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:1zlimzs3]\nMe olvide de indicarte estas dos línea de código, tal vez por ahí esta el problema[/quote:1zlimzs3]\n\nArmando,\n\nLlevabas mucha razón. Aunque funcionaba al imprimir cuando cambie la función Skipper, al moverme normalmente en el browse, cuando llegaba al final daba error. He modificado la función de la siguiente forma:\n\nSTATIC FUNCTION I_LISTA( oRs )\nlocal nLinea := 1, nHasta := oRs:RECORDCOUNT(), ;\n      nBookMark := oRs:BookMark\n\n     oRs:MoveFirst()\n\n     REPORT oReport ;\n        CAPTION .....\n        ...................\n     END REPORT\n\n     oReport:bWhile := { || nLinea &lt;= nHasta }\n     oReport:oTitle:aFont[1] := {|| 3 }\n     oReport:oHeader:aFont[1] := {|| 2 }\n     oReport:oDevice:SetPortrait()\n     oReport:oDevice:lPrvModal := .T. // preview modal\n     IF oReport:lCreated\n        oReport:bSkip := { | | nLinea++, Ors:MOVENEXT() }\n     ENDI\n\n     ACTIVATE REPORT oReport ;\n               ON END oRs:BookMark := nBookMark\n\n     oRs:MoveFirst()\nRETURN NIL\n\n--------------------------------\n\n¿ Para que pones ON STARTPAGE Alinea (oReport,1,2) ?','',0,'gA==','1zlimzs3',1,0,'',9,0,0),(46805,9711,3,303,0,'72.220.181.80',1200952328,1,0,1,1,1,0,'','','NageswaraRao,\n\nOf course. I forget that lots of you are still not using database objects. I highly encourage you to use them as you will save hundreds, maybe thousands, of lines of code in your applications. With a database object you don\'t have to use any scatter/gather functions and there is no dealing with aliases. There are lots of other good reasons to use objects too.\n\nBelow is the code without a database object. Test it with \\samples\\customer.dbf.\n\nJames\n\n[code:l1wmqmre]/*\nPurpose &#58; TXBrowse with alternating row colors\nAuthor  &#58; James Bott\nLanguage&#58; FWH\nDate    &#58; 1/20/2008\nNotes   &#58; Without using a database object\n*/\n\n\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n#define COLOR_LIGHT  rgb&#40;255,255,235&#41;\n#define COLOR_DARK  rgb&#40;192,208,179&#41;\n\nfunction main&#40;&#41;\n   local oWnd,oBrw,oCust,oCol,lClrFlag, cAlias\n\n   use &quot;customer&quot; shared alias &quot;cust&quot;\n   cAlias &#58;= alias&#40;&#41;\n\n   define window oWnd title &quot;XBrowse Row Color Test&quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;First&quot;\n   oCol&#58;bStrData      &#58;= &#123; || &#40;cAlias&#41;-&gt;first &#125;\n\n   oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n   oCol&#58;cHeader       &#58;= &quot;Last&quot;\n   oCol&#58;bStrData      &#58;= &#123; || &#40;cAlias&#41;-&gt;last &#125;\n\n   // Setup alternating row flag\n   lClrFlag&#58;=&#46;f&#46;\n   oBrw&#58;bSkip&#58;=&#123;| nRecs | &#40; if&#40;nRecs == nil, nRecs &#58;= 1,&#41;,nRecs&#58;= &#40;cAlias&#41;-&gt;&#40;dbskipper&#40; nRecs &#41;&#41;, lClrFlag&#58;= if&#40; nRecs % 2 = 0, lClrFlag,!lClrFlag&#41;, nRecs&#41; &#125;\n\n   // Define alternating row colors\n   oBrw&#58;bClrStd&#58;= &#123;|| if&#40;lClrFlag,&#123; CLR_BLACK, COLOR_LIGHT &#125;,&#123; CLR_BLACK, COLOR_DARK &#125;&#41; &#125;\n\n   oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\n\n   oBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil,&#40;cAlias&#41;-&gt;&#40;RecNo&#40;&#41;&#41;, &#40;cAlias&#41;-&gt;&#40;dbgoto&#40;n&#41;&#41; &#41; &#125;  // Required!\n   oBrw&#58;cAlias &#58;= cAlias\n\n   oBrw&#58;lRecordSelector&#58;=&#46;f&#46;\n\n   // This must be at the end of browse code as it initializes the columns\n   // E&#46;G&#46; Cols inherit row colors from the parent browse\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oWnd&#58;oClient&#58;= oBrw\n\n   activate window oWnd\n\nreturn nil[/code:l1wmqmre]','',0,'AIA=','l1wmqmre',1,0,'',303,0,0),(46806,9676,22,24,0,'88.18.171.20',1200953349,1,0,1,1,1,1,'','Re:','[quote=&quot;Antonio Linares&quot;:vpiwl2u3]Rafa,\n\nBien, se podría hacer como dices: después de que todos los controles se hayan inicializado y antes ó después (?) del ON INIT del diálogo ?[/quote:vpiwl2u3]\nYo creo que debería ser ANTES, y que el ON INIT del diálogo/ventana sea lo último que deba de evaluarse, pero para gustos, los colores <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nSi mal no recuerdo, ahora no tengo acceso al fuente, la evaluacion del ON INT del dialogo se realizaba alguna cosa, pues que siga como hasta ahora. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nDe esta manera no se creará NINGUNA incompatibilidad con el código anterior a ningún usuario.\nAsi, todo el que esta usando ON INIT, lo seguirá usando sin problemas, y puede añadir el código nuevo, sin ningún problema.\nVamos, tendremos lo mejor de los 2 mundos <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nPero , es mi opinión Maestro, yo solo soy un humilde aprendiz <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','vpiwl2u3',1,0,'',24,0,0),(46807,9711,3,171,0,'71.233.232.238',1200956908,1,0,1,1,1,0,'','','James,\nCan TDATA work with ADS database, ADT extension?\n\nRegards,\n\nGeorge','',0,'gA==','gy5a972x',1,0,'',171,0,0),(46808,9711,3,303,0,'72.220.181.80',1200957126,1,0,1,1,1,0,'','','George,\n\n&gt;Can TDATA work with ADS database, ADT extension? \n\nI believe so. Tim Stone is using it with ADS, but I\'m not sure about the ADT extension. What is that? I have not used ADS.\n\nPerhaps Tim can answer that.\n\nIf there are some special requirements, I\'m sure you could subclass TData.\n\nRegards,\nJames','',0,'gA==','xmgyorxx',1,0,'',303,0,0),(46809,9708,3,35,0,'65.188.6.143',1200957834,1,0,1,1,1,0,'','','To All\n\nAbsolutely use a compression tool to keep anyone from de-compiling your app .. the comression tool we use is ASPack.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.aspack.com\">http://www.aspack.com</a><!-- m -->\n\nCompression gets you very fast load times typically a 2 mg executable shrinks down to around 700k .. an indespensible tool in your inventory.\n\nRick Lipkin','',0,'gA==','2r7owccz',1,0,'',35,0,0),(46810,9691,6,987,0,'189.133.161.145',1200957996,1,0,1,1,1,0,'','','Ok. saludos a ambos, dejenme revisar de nuevo mi codigo, de momento ya tengo problemas porque ahora ya no puedo generar ningun reporte, por lo pronto ando fuera de la ciudad, en cuanto regrese reviso y les comento...\n\nGracias a ambos por su colaboracion y les cmento que lo que me proponen ya lo he realizado, sin tener ningun exito al eliminar el fallo-\n\nSaludos desde Chiapas','',0,'gA==','38i3qfo4',1,0,'',987,0,0),(46811,9695,6,987,0,'189.133.161.145',1200958049,1,0,1,1,1,0,'','','Ok. ando fuera de la ciudad, en cuanto regrese me comunico contigo via mail.. y con mucho gusto te ayudo..\n\nSaludos..','',0,'gA==','q1uzty2j',1,0,'',987,0,0),(46812,9711,3,51,0,'80.122.88.242',1200958344,1,0,1,1,1,0,'','','Hello James,\nAbout to start using TData I read:\nTData always opens a file in a new workarea with a unique alias.\n\nIs there no limit of currently opened files (256) anymore ?\nRegards,\nOtto','',0,'gA==','1npoynqn',1,0,'',51,0,0),(46813,9711,3,303,0,'72.220.181.80',1200959595,1,0,1,1,1,0,'','','Otto,\n\n&gt;Is there no limit of currently opened files (256) anymore ? \n\nI don\'t know the limit but I have never reached it. I just did a test and opened 999 copies of the same file without a problem. I have never had a TData user report a problem either.\n\nWith objects you really need this capability. This makes coding so much easier.\n\nJames','',0,'gA==','3naqgoeu',1,0,'',303,0,0),(46814,9696,6,53,0,'189.139.25.254',1200959702,1,0,1,1,1,1,'','','Manuel:\n\nMe algera que funcione bien.\n\n\nLa función ALINEA() es porque a mi me gustan los encabezados así\n\nFecha: 22/Ene/2008                                         Página No.     1\n=========================================\nCOLUMNA        COLUMNA         COLUMNA         COLUMNA\n=========================================\n\nAsí defino los encabezados\n\nTITLE \"Fecha: \"+Date2Txt(DATE()),;\n\"Hoja No:\"+STR(oReporte:nPage,3)\n\nAl ser dos elementos del arreglo TITLE me los pone uno en una línea y el otro en la línea siguiente\n\nFecha: 22/Ene/2008\n                                                                    Página No.     1\n\nEntonces la función ALINEA() me sirve para cambiarle la línea al segundo elemento dandole la misma línea que el primer elemento y me quedan en una misma línea.\n\nEsepero haberme explicado.\n\nSaludos, Armando','',0,'gA==','v3cs17ov',1,0,'',53,0,0),(46815,9711,3,34,0,'68.5.217.82',1200961298,1,0,1,1,1,1,'','ADS / ADT','I\'ve never tried it with the ADT extensions.    tData is a valuable extension to the FWH tDatabase class ... so if that works, I would expect tData would handle them fine.\n\nI use data objects exclusively.  It makes my coding life a whole lot simpler, and the work with everything.','',0,'gA==','2rv4xnkd',1,0,'',34,0,0),(46816,8540,3,448,0,'81.84.144.101',1200961423,1,0,1,1,1,0,'','','Again problem.\n\nIf I modify the size of the main window the mdichilds opened after are disapering. \n\nThat is caused by my modify center() method posted before.\n\nNtop or Nleft are returning a negative value and when this happens the child window disapears.\n\nAny ideas ?\n\nAntonio','',0,'gA==','2zh4cq63',1,0,'',448,0,0),(46817,9688,6,1255,0,'189.128.124.245',1200961706,1,0,1,1,1,0,'','','Hola:\n\nEn clipper se hacía así:\n\nMiBase-&gt;( DbOrderInfo( DBOI_ORDERCOUNT ) )\n\nDBOI_ORDERCOUNT estaba definida como 9 en Ord.ch\n\nSi (x)Harbour es 100 % compatible con Clipper 5, debe funcionar igual.\n\nSaludos\n\nManuel Mercado','',0,'gA==','2wv4gcku',1,0,'',1255,0,0),(46818,9711,3,303,0,'72.220.181.80',1200962823,1,0,1,1,1,0,'','','Here is another important point about database objects. It is not an all or nothing situation. You can use database objects in the same program that you use regular databases. This way you can convert an existing application a little at a time, or you can just use objects when you add to an existing application.\n\nJames','',0,'gA==','2y9o1prj',1,0,'',303,0,0),(46819,8540,3,303,0,'72.220.181.80',1200963201,1,0,1,1,1,0,'','','&gt;Ntop or Nleft are returning a negative value and when this happens the child window disapears. \n\n&gt;Any ideas ?\n\nTry using the main window\'s bResize codeblock to call the center function then maybe the mdichild Move() method (to redisplay it).\n\nJames','',0,'gA==','1csw426m',1,0,'',303,0,0),(46820,9689,3,868,0,'219.64.121.60',1200987832,1,0,1,1,1,1,'','Re: xBrowse editing','[quote=&quot;byte-one&quot;:1rxgm3q8]Hello,\nis there a way for xBrowse to edit one column in an row and in another row editing from the same column is not allowed? There is no bWhen or so!?\nAny ideas?\n[/quote:1rxgm3q8]\nI too feel the need for bWhen block. We may decide if the column is to be edited or not depending on the other values. We can not always manage it with bChange. I too join to request Mr Antonio to provide bWhen for edits.\n\n[quote:1rxgm3q8]\n the picture z.B. \"@E ##.#\"\n[/quote:1rxgm3q8]\nIn my tests I found that the picture clause is working in both edits and normal display.\nThis is my test code\n[code:1rxgm3q8]\n   oCol&#58;cHeader      &#58;= &quot;Value&quot;\n   oCol&#58;bStrData     &#58;= &#123; || Transform&#40; aData&#91; oBrw&#58;nArrayAt &#93;&#91; 2 &#93;, cPic &#41; &#125;\n   oCol&#58;bEditValue   &#58;= &#123; || aData&#91; oBrw&#58;nArrayAt &#93;&#91; 2 &#93; &#125;\n   oCol&#58;cEditPicture &#58;= cPic\n   oCol&#58;nEditType    &#58;= 1\n   oCol&#58;bOnPostEdit  &#58;= &#123; | oCol, nVal, nKey | if&#40; nKey == 13, aData&#91; oBrw&#58;nArrayAt &#93;&#91; 2&#93; &#58;= nVal,  &#41; &#125;\n   oCol&#58;nDataStrAlign &#58;= oCol&#58;nHeadStrAlign &#58;= AL_RIGHT\n[/code:1rxgm3q8]\nI am using FWH 8.01, xHarbour 1.1.0, bcc55.','',0,'gIA=','1rxgm3q8',1,0,'',868,0,0),(46821,9711,3,868,0,'219.64.121.60',1200988738,1,0,1,1,1,1,'','','Here is a sceen shot\n[url=http&#58;//imageshack&#46;us:331gmgl4][img:331gmgl4]http&#58;//img301&#46;imageshack&#46;us/img301/9964/brwclrsym6&#46;png[/img:331gmgl4][/url:331gmgl4]\n\nIt is breaking sometimes like this','',0,'GA==','331gmgl4',1,0,'',868,0,0),(46823,9702,4,2,0,'87.218.146.22',1200989268,1,0,1,1,1,1,'','','Roberto,\n\nThe current harbour CVS files neither support function Hash()\n\nxHarbour does','',0,'GA==','1js5mp4v',1,0,'',2,0,0),(46824,9702,4,2,0,'87.218.146.22',1200989561,1,0,1,1,1,1,'','','Roberto,\n\nIt is supported! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> In Harbour for Pocket PC (FWPPC 7.09). \n\nThe only difference is that the function is named HB_Hash()\n\nPlease try in your FWPPC build, using HB_Hash(), thanks','',0,'GA==','3thr32h4',1,0,'',2,0,0),(46825,9711,3,303,0,'72.220.181.80',1200990195,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;It is breaking sometimes like this\n\nIt works fine for me.\n\nYour sreenshot leads me to believe you are not using exactly the same code I posted. Can I see your code? Are you using filters or indexes?\n\nJames','',0,'GA==','gmgwhnv1',1,0,'',303,0,0),(46826,9711,3,303,0,'72.220.181.80',1200990861,1,0,1,1,1,0,'','','NageswaraRao,\n\nI have just tested it with an index and a filter and it is still working fine for me.\n\nI am using FWH 8.01. What version are you using?\n\nJames','',0,'GA==','idw9o0gv',1,0,'',303,0,0),(46827,9702,4,137,0,'151.38.8.195',1200991430,1,0,1,1,1,0,'','','I tried but I get unresolved external wth HB_Hash() too.\n\nIs my harbour build old?\n\nRegards,\nRoberto Parisi','',0,'GA==','lnvoaamq',1,0,'',137,0,0),(46828,9702,4,2,0,'87.218.146.22',1200993306,1,0,1,1,1,1,'','','Roberto,\n\nYes, there are around seven months difference from your build and FWPPC 7.09 build.','',0,'GA==','3ieoa58w',1,0,'',2,0,0),(46830,8540,3,448,0,'81.84.144.101',1200994519,1,0,1,1,1,0,'','','James,\n\nIt worked.\n\nThanks \n\nAntonio','',0,'GA==','22xapnvf',1,0,'',448,0,0),(46831,9689,3,49,0,'213.82.134.66',1200995165,1,0,1,1,1,1,'','','Is tjhere a function to edit a record in vertical as th eold tedit of Super35 lib ?','',0,'GA==','1wb3c1mg',1,0,'',49,0,0),(46832,9689,3,2,0,'87.218.146.22',1200996356,1,0,1,1,1,1,'','','Silvio,\n\nWe implemented it in FiveMac using this code:\n[code:19w2v6d7]\nMETHOD SetEdit&#40;&#41; CLASS TWBrowse\n\n   &#58;&#58;bLogicLen = &#123; || RecCount&#40;&#41; * &#40; FCount&#40;&#41; + 1 &#41; &#125;\n   &#58;&#58;cAlias = &quot;_EDIT&quot;\n\n   &#58;&#58;Refresh&#40;&#41;\n\nreturn nil    \n[/code:19w2v6d7]\n[code:19w2v6d7]\n   do case\n         case &#58;&#58;cAlias == &quot;_EDIT&quot;\n	         DbGoTop&#40;&#41;\n	         DbSkip&#40; Int&#40; nRow / &#40; FCount&#40;&#41; + 1 &#41; &#41; &#41;\n		 nField = &#40; nRow + 1 &#41; % &#40; FCount&#40;&#41; + 1 &#41;\n                 return If&#40; nField == 0, If&#40; nCol == 0, &quot;-------------&quot;, &quot;-------------------------------------&quot; &#41;,;\n		           If&#40; nCol == 0, FieldName&#40; nField &#41;, cValToChar&#40; FieldGet&#40; nField &#41; &#41; &#41; &#41;  \n[/code:19w2v6d7]\n[code:19w2v6d7]\n   @ 48, 20 LISTBOX oBrw FIELDS &quot;&quot;, &quot;&quot; HEADERS &quot;FieldName&quot;, &quot;Value&quot; ;\n      OF oWnd SIZE 672, 363 ALIAS Alias&#40;&#41; \n[/code:19w2v6d7]','',0,'AIA=','19w2v6d7',1,0,'',2,0,0),(46833,9708,3,448,0,'81.84.144.101',1200996880,1,0,1,1,1,0,'','','I\'m trying Pecompact2 and it seems to be ok. Has password ecryption option.\n\n\nAntonio','',0,'AIA=','2im51adn',1,0,'',448,0,0),(46834,8890,3,217,0,'200.159.120.34',1200997731,1,0,1,1,1,0,'','','Silvio,\n\nWhat is the difference between your class and new TTabs from FWH 8.02?\n\nRegards,\nMaurilio','',0,'AIA=','1lvempgg',1,0,'',217,0,0),(46835,8890,3,2,0,'87.218.146.22',1200998151,1,0,1,1,1,1,'','','Maurilio,\n\nFWH 8.02 Tabs use the same bitmaps as Office 2007 (Excel), so they look exactly the same as Excel ones.\n\nAlso, FWH 8.02 ones do not use brushes, so the painting is really fast, and no GDI resources consuming.\n\nFull source is provided so you can modify the bitmaps as you want','',0,'AIA=','2sws0pzo',1,0,'',2,0,0),(46836,9680,6,217,0,'200.159.120.34',1200998778,1,0,1,1,1,0,'','','Horacio,\n\nCreo que FWH 2.7 aun no tiene el bPostKey, intenta cambiar bPostKey por bChange en TAutoGet.prg \n\nSaludos de Brasil!\nMaurilio','',0,'AIA=','1h8fesc1',1,0,'',217,0,0),(46837,9695,6,362,0,'200.158.19.192',1201000693,1,0,1,1,1,1,'','','[quote=&quot;cuatecatl82&quot;:3jhmjom9]Ok. ando fuera de la ciudad, en cuanto regrese me comunico contigo via mail.. y con mucho gusto te ayudo..\n\nSaludos..[/quote:3jhmjom9]\n\nGracias amigo,  aguardo.\n\nCreo sea de grand utilidad esta rotina completa a todos los fivewinners del mundo.\n\nRegards, saludos.\n\nEmail: <!-- e --><a href=\"mailto:kmt_karinha@pop.com.br\">kmt_karinha@pop.com.br</a><!-- e -->','',0,'gA==','3jhmjom9',1,0,'',362,0,0),(46838,9713,3,148,0,'196.205.222.30',1201000704,1,0,1,1,1,0,'','Workarea not in use','I am facing that error with the last combobox (v_go_cocmbo) though that program working properly in old times . I am now 7.01 version. \n\n\n Error description: Error DBCMD/2001  Workarea not in use: DBSETFILTER\n\nStack Calls\n===========\n   Called from:  =&gt; DBSETFILTER(0)\n   Called from: sitex.prg =&gt; RESET(5100)\n\n[code:156ukb14]\n\nstatic function editcust&#40; oLbx, lAppend &#41;\n*-------------------------------------------\nlocal oDlg\nLOCAL oCbx\nLOCAL oCbx2\nLOCAL oCbx3\nLocal oGet\nLocal oGet2\nLocal oGet3\nlocal h&#58;=0\nlocal V_CU_ACCT&#58;=space&#40;10&#41;\nlocal V_CU_NAME&#58;=space&#40;50&#41;\nlocal V_cu_gove&#58;=space&#40;30&#41;\nlocal V_cu_city&#58;=space&#40;30&#41;\nlocal V_cu_coun&#58;=space&#40;30&#41;\nlocal V_cu_stre&#58;=space&#40;50&#41;\nlocal V_CU_phon&#58;=space&#40;30&#41;\nlocal V_CU_fax &#58;=space&#40;22&#41;\nlocal V_CU_mobi&#58;=space&#40;26&#41;\nlocal V_CU_MAN &#58;=space&#40;40&#41;\nlocal V_CU_appr&#58;=space&#40;8&#41;\nlocal v_co_cocmbo&#58;=&quot;&quot;\nlocal v_ci_cocmbo&#58;=&quot;&quot;\nlocal v_go_cocmbo&#58;=&quot;&quot;\nlocal a_Fields&#91;1&#93;\nlocal a_Vars&#91;1&#93;\nlocal lSave &#58;= &#46;f&#46;\nlocal nOldRec &#58;= RecNo&#40;&#41;\nlocal bFilter &#58;= &quot;&quot;\nlocal cFilter &#58;= &quot;&quot;\nlocal aItems&#58;=&#123;&#125;\n\nselect 1\nuse cust\nINDEX ON &#40;cust-&gt;cu_acct&#41; TO cust\nINDEX ON upper&#40;cust-&gt;cu_name&#41; TO cust1\nINDEX ON upper&#40;cust-&gt;cu_coun&#41; TO cust2\nINDEX ON upper&#40;cust-&gt;cu_city&#41; TO cust3\nINDEX ON upper&#40;cust-&gt;cu_gove&#41; TO cust4\nINDEX ON upper&#40;cust-&gt;cu_stre&#41; TO cust5\nINDEX ON upper&#40;cust-&gt;cu_phon&#41; TO cust6\nINDEX ON upper&#40;cust-&gt;cu_fax &#41; TO cust7\nINDEX ON upper&#40;cust-&gt;cu_mobi&#41; TO cust8\nINDEX ON upper&#40;cust-&gt;cu_man &#41; TO cust9\nINDEX ON upper&#40;cust-&gt;cu_appr&#41; TO cust10\nset INDEX TO cust\n\n   DEFAULT lAppend &#58;= &#46;f&#46;\n\nif lAppend\n   GOTO BOTTOM\n   SKIP\nelse\n   goto nOldRec\n   V_CU_ACCT&#58;=cust-&gt;CU_ACCT\n   V_CU_NAME&#58;=cust-&gt;CU_NAME\n   V_cu_coun&#58;=cust-&gt;CU_coun\n   V_cu_city&#58;=cust-&gt;CU_city\n   V_cu_gove&#58;=cust-&gt;CU_gove\n   V_CU_stre&#58;=cust-&gt;CU_stre\n   V_CU_phon&#58;=cust-&gt;CU_phon\n   V_CU_fax&#58;=cust-&gt;CU_fax\n   V_CU_MAN&#58;=cust-&gt;CU_MAN\n   V_CU_mobi&#58;=cust-&gt;CU_mobi\n   V_CU_appr&#58;=cust-&gt;CU_appr\nendif\n\n\n\n\n\nDEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;\nTITLE If&#40; lAppend, &quot;New Customer&quot;, &quot;Customer Update&quot; &#41;\n\n\n   @ 1,2 SAY &quot;&amp;Account No&#46;&quot; OF oDlg PIXEL \n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL \n   @ 1,60 GET V_CU_ACCT OF oDlg PIXEL \n\n   @ 15,1 SAY &quot;&amp;Name&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET V_CU_NAME OF oDlg PIXEL\n\n   @ 30,2 SAY &quot;&amp;Street&quot; OF oDlg PIXEL\n   @ 30,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 30,60 GET V_cu_stre OF oDlg PIXEL\n\n  @ 45,2 SAY &quot;&amp;Country&quot; OF oDlg PIXEL\n  @ 45,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 45,60 GET oGet VAR V_cu_coun OF oDlg PIXEL\n  @ 45,200 COMBOBOX oCbx VAR v_co_cocmbo ITEMS aBase1&#40;1,&quot;cust&quot;,256,&quot;cu_coun&quot;&#41;;\n  SIZE 110,80 ;\n  OF oDlg PIXEL ;\n ON CHANGE &#40; oGet&#58;VarPut&#40; PADR&#40; v_co_cocmbo, 30 &#41; &#41;,; \n oGet&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;;\n  valid &#40; reset&#40; v_co_cocmbo, oCbx2, &quot;cust&quot;,&quot;cu_city&quot;,&quot;cu_coun&quot; &#41; , &#46;t&#46; &#41;\n\n\n\n  @ 60,2 SAY &quot;&amp;City&quot; OF oDlg PIXEL\n  @ 60,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 60,60 GET oGet2 VAR V_cu_city OF oDlg PIXEL\n  @ 60,200 COMBOBOX oCbx2 VAR v_ci_cocmbo ITEMS aItems size 110,80 ;\n  OF oDlg PIXEL;\n ON CHANGE &#40; oGet2&#58;VarPut&#40; PADR&#40; v_ci_cocmbo, 30 &#41; &#41;,; \n oGet2&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;;\n  VALID &#40;reset&#40; v_ci_cocmbo, oCbx3, &quot;cust&quot;,&quot;cu_gove&quot;,&quot;cu_city&quot; &#41;, &#46;t&#46;&#41;\n\n  @ 75,2 SAY &quot;&amp;Governer&quot; OF oDlg PIXEL\n  @ 75,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n  @ 75,60 GET oGet3 VAR V_cu_gove OF oDlg PIXEL\n  @ 75,200 COMBOBOX oCbx3 VAR v_go_cocmbo ITEMS aItems  size 110,80 ;\n     OF oDlg PIXEL;\n ON CHANGE &#40; oGet3&#58;VarPut&#40; PADR&#40; v_go_cocmbo, 30 &#41; &#41;,; \n oGet3&#58;Refresh&#40;&#41;,oDlg&#58;Refresh&#40;&#41;&#41;\n\n   @ 95,2 SAY &quot;&amp;Phone&quot; OF oDlg PIXEL\n   @ 95,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 95,60 GET V_CU_phon OF oDlg PIXEL\n\n   @ 115,2 SAY &quot;&amp;Fax&quot; OF oDlg PIXEL\n   @ 115,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 115,60 GET V_CU_fax OF oDlg PIXEL\n\n   @ 130,2 SAY &quot;Man&quot; OF oDlg PIXEL\n   @ 130,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 130,60 GET V_CU_MAN OF oDlg PIXEL\n\n   @ 145,2 SAY &quot;Mobile&quot; OF oDlg PIXEL\n   @ 145,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 145,60 GET V_CU_mobi OF oDlg PIXEL\n\n   @ 160,2 SAY &quot;Account Appr&#46;&quot; OF oDlg PIXEL\n   @ 160,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 160,60 GET V_CU_appr OF oDlg PIXEL\n\n\n   @ 280,  9 BUTTON &quot;&amp;Save&quot;  OF oDlg PIXEL SIZE 50, 12 ACTION &#40; lSave &#58;= &#46;t&#46; , oDlg&#58;End&#40;&#41; &#41;\n   @ 280, 280 BUTTON &quot;&amp;Cancel&quot; OF oDlg PIXEL SIZE 50, 12 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\n   if lSave &#46;and&#46; !empty&#40; V_CU_ACCT &#41;\n\n      if lAppend\n         select 1\n         use cust\n         set index to cust\n         APPEND BLANK\n      else\n         select 1\n         use cust\n         set index to cust\n         GOTO nOldRec\n      endif\n\ncust-&gt;CU_ACCT &#58;=V_CU_ACCT\ncust-&gt;CU_NAME &#58;=V_CU_NAME\ncust-&gt;cu_coun &#58;=V_cu_coun\ncust-&gt;cu_city &#58;=V_cu_city\ncust-&gt;cu_gove &#58;=V_cu_gove\ncust-&gt;cu_stre &#58;=V_cu_stre\ncust-&gt;CU_phon &#58;=V_CU_phon\ncust-&gt;CU_fax  &#58;=V_CU_fax\ncust-&gt;CU_MAN  &#58;=V_CU_MAN\ncust-&gt;CU_mobi &#58;=V_CU_mobi\ncust-&gt;CU_appr &#58;=V_CU_appr\n\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n   else\n\n\n      if Empty&#40; V_CU_ACCT &#41; &#46;and&#46; lSave\n         MsgAlert&#40; &quot;Please write an contract account number &quot; &#41;\n      endif\n\n      select 1\n      use cust\n      set index to cust\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n      GOTO nOldRec\n\n   endif\n\n      select 1\n      use cust\n      set index to cust\n      oLbx&#58;Refresh&#40;&#41;          // We want the ListBox to be repainted\n\n      GOTO nOldRec\n\nreturn nil\n\n\nfunction reset&#40; cItem,oCbx,cFile,fld_na,filter_name&#41;\n//---------------------------------------------------\n  local aItems&#58;=&#123;&#125;\n  local nArea&#58;= select&#40;&#41;\n  local y&#58;=0\n\n\n  use &#40;cFile&#41; new\n/*line 5100*/  set filter to cItem = &amp;&#40;filter_name&#41;\n\n  go top\n\n  aAdd&#40;aItems,space&#40;256&#41;&#41; //Put First element empty\n\n  do while ! eof&#40;&#41;\n\n     y&#58;=ASCAN&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\n     if y==0\n        aAdd&#40;aItems,&#40;cFile&#41;-&gt;&amp;fld_na&#41;\n        dbSkip&#40;&#41;\n        else\n        dbSkip&#40;&#41;\n     endif\n\n  ENDDO\n\n  *use\n  *set index to \n  select&#40; nArea &#41;\n  oCbx&#58;setItems&#40; aItems &#41;\n  oCbx&#58;refresh&#40;&#41;\nreturn nil\n[/code:156ukb14]','',0,'AIA=','156ukb14',1,0,'',148,0,0),(46839,9677,3,2,0,'87.218.146.22',1201003420,1,0,1,1,1,1,'','','The new Tabs automatically detect their position and paint accordingly:\n\n[url=http&#58;//imageshack&#46;us:29m2wckf][img:29m2wckf]http&#58;//img244&#46;imageshack&#46;us/img244/413/tabsxt5&#46;png[/img:29m2wckf][/url:29m2wckf]\n\n[url=http&#58;//imageshack&#46;us:29m2wckf][img:29m2wckf]http&#58;//img184&#46;imageshack&#46;us/img184/4006/tabs2dv9&#46;png[/img:29m2wckf][/url:29m2wckf]','',0,'GA==','29m2wckf',1,0,'',2,0,0),(46840,9678,6,2,0,'87.218.146.22',1201003544,1,0,1,1,1,1,'','','Los nuevos Tabs automaticamente detectan su posición y se dibujan adecuadamente:\n\n[url=http&#58;//imageshack&#46;us:2d777pi2][img:2d777pi2]http&#58;//img244&#46;imageshack&#46;us/img244/413/tabsxt5&#46;png[/img:2d777pi2][/url:2d777pi2]\n\n[url=http&#58;//imageshack&#46;us:2d777pi2][img:2d777pi2]http&#58;//img184&#46;imageshack&#46;us/img184/4006/tabs2dv9&#46;png[/img:2d777pi2][/url:2d777pi2]','',0,'GA==','2d777pi2',1,0,'',2,0,0),(46841,9711,3,1193,0,'59.105.14.242',1201007522,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:m72vdwvy]NageswaraRao,\n\nI have just tested it with an index and a filter and it is still working fine for me.\n\nI am using FWH 8.01. What version are you using?\n\nJames[/quote:m72vdwvy]\n\nHi James,\n\nI test your code same as nageswaragunupudi problem.\nI use FWH0712\n\nRegards,\n\nRichard','',0,'gA==','m72vdwvy',1,0,'',1193,0,0),(46842,9714,3,1158,0,'200.159.198.154',1201007711,1,0,1,1,1,0,'','Format get dont update?','hi, i use format get in old programs, they dont update the text after an odlg:update ?? how update an text in format get? thanks','',0,'gA==','3fuco5zt',1,0,'',1158,0,0),(46843,9715,3,148,0,'196.205.222.30',1201008775,1,0,1,1,1,0,'','filter database using tdata class','I am trying to use James class tdata to filter a database using the below code :\n\n[code:25f14nqd]\n\n//--- meter class\nclass Tmeter from TData\n   method new\n   method browser\n   method add\n   method edit\n   method filterreads\n   message delete method _delete\n Hidden&#58;\n   data lAdd as logical\nendclass\n\n//---------------------------------------------------------------------------//\n\nmethod new&#40;&#41;\n   super&#58;new&#40;,&quot;mete&quot;,,&#46;f&#46;&#41;\n   if &#58;&#58;use&#40;&#41;\n      &#58;&#58;addIndex&#40;&quot;mete&quot;&#41;\n      &#58;&#58;addIndex&#40;&quot;mete2&quot;&#41;\n      &#58;&#58;setOrder&#40;1&#41;\n      &#58;&#58;gotop&#40;&#41;\n      msgInfo&#40; &#58;&#58;reccount&#40;&#41;,&quot;reccount&#40;&#41;&quot;&#41;\n      msgInfo&#40; &#58;&#58;fcount&#40;&#41;,&quot;fcount&#40;&#41;&quot;&#41;\n      \n   endif\n   &#58;&#58;lAdd&#58;=&#46;f&#46;\nreturn self\nmethod browser&#40;&#41;\n\n   local oDlg,oBrw,oMeter,oFont,oCol,nFor,oChild\n\n   &#58;&#58;setOrder&#40;2&#41;\n   &#58;&#58;gotop&#40;&#41;\n\n\n   define font oFont name &quot;Ms Sans Serif&quot; size 0,-14 BOLD\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;meter reads browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n   oBrw&#58;SetRDD&#40;&#41;\n   \n\n\n      for nFor &#58;= 1 to &#58;&#58;Fcount&#40;&#41;\n      	oBrw&#58;aCols&#91; nFor &#93;&#58;oDataFont &#58;= oFont\n      next\n    \n   // Setup for using database class\n   oBrw&#58;cAlias&#58;= &#58;&#58;cAlias\n   oBrw&#58;bSkip&#58;= &#123;|nRecs| &#58;&#58;skipper&#40; nRecs &#41; &#125;\n   oBrw&#58;bGotop&#58;= &#123;|| &#58;&#58;gotop&#40;&#41; &#125;\n   oBrw&#58;bGoBottom&#58;= &#123;|| &#58;&#58;goBottom&#40;&#41; &#125;\n   oBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil, &#58;&#58;RecNo&#40;&#41; , &#58;&#58;Goto&#40; n &#41; &#41; &#125;\n   \n\noMeter&#58;= self\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;, BuildButtons&#40; oMeter,oBrw,oDlg&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;, oDlg&#58;Refresh&#40;&#46;t&#46;&#41;&#41; \nRETURN nil\n//---------------------------------------------------------------------------//\n\nfunction BuildButtons&#40;oMeter, oBrw, oDlg&#41;\n*--------------------------------------------------\n    @ 34,   1 BUTTON &quot;&amp;New&quot;    OF oDlg SIZE 60, 20 ACTION &#40; oMeter&#58;add&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 34,  15 BUTTON &quot;&amp;Modify&quot; OF oDlg SIZE 60, 20 ACTION &#40; oMeter&#58;edit&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 34, 30 BUTTON &quot;&amp;Delete&quot; OF oDlg  SIZE 60, 20 ACTION &#40; oMeter&#58;delete&#40;oBrw,oMeter&#41;&#41;\n\n    @ 34,45 BUTTON &quot;&amp;Search&quot; OF oDlg SIZE 60, 20 //ACTION addmete&#40; oBrw , oDlg &#41;\n\n    @ 34,60 BUTTON &quot;&amp;Print&quot; OF oDlg SIZE 60, 20 //ACTION oDlg&#58;Report &#40; &quot;meter reads Report&quot;, &#46;t&#46; &#41;\n\n    @ 36,  1 BUTTON &quot;&amp;Order&quot;    OF oDlg SIZE 60, 20//ACTION ordercust&#40;oLbx&#41; SIZE 40, 12\n\n    @ 36, 5 BUTTON &quot;&amp;Filter&quot;    OF oDlg SIZE 60, 20 ACTION &#40; oMeter&#58;filterreads&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 36,  30 BUTTON &quot;&amp;Unfilter&quot; OF oDlg SIZE 60, 20//ACTION Nonfiltercust&#40;oLbx&#41; SIZE 40, 12\n\n    @ 36, 45 BUTTON &quot;&amp;Exit&quot;   OF oDlg SIZE 60, 20 //ACTION oDlg&#58;End&#40;&#41; SIZE 40, 12\n\n\nreturn nil\n\n\n\nmethod add&#40;oBrw&#41;\n*---------------\n   &#58;&#58;lAdd&#58;=&#46;t&#46;\n   &#58;&#58;edit&#40;oBrw&#41;\n   &#58;&#58;load&#40;&#41;   // in case they cancel\n   &#58;&#58;lAdd&#58;=&#46;f&#46;\n   &#58;&#58;GOTOP&#40;&#41;\nreturn self\n\n//---------------------------------------------------------------------------//\n\nmethod edit&#40;oBrw&#41;\n*---------------\n   local oDlg,oBtnNew\n   local ometer&#58;= TRecord&#40;&#41;&#58;new&#40; self &#41;\n   if &#58;&#58;lAdd\n      ometer&#58;blank&#40;&#41;\n   endif\n\n\n   DEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;\n      TITLE if&#40;&#58;&#58;lAdd,&quot;Untitled&quot;,&quot;Update&quot;&#41;\n\n\n   @ 1,2 SAY &quot;&amp;Serial&quot; OF oDlg PIXEL\n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 1,60 GET ometer&#58;me_mc_serl OF oDlg PIXEL UPDATE\n\n   @ 15,1 SAY &quot;&amp;Meter date&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET ometer&#58;me_date pict &#40;&quot;99/99/9999&quot;&#41; OF oDlg PIXEL UPDATE\n\n\n   @ 280, 10 BUTTON oBtnNew PROMPT &quot;&amp;Save&quot; OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION  &#40; ometer&#58;save&#40;&#41;, oDlg&#58;end&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n         ON INIT &#40; oBrw&#58;Refresh&#40;&#41;, oDlg&#58;Update&#40;&#41; &#41;\n\nometer&#58;end&#40;&#41;\noDlg&#58;update&#40;&#41;\n\nreturn self\n\n\n\n//---------------------------------------------------------------------------//\n\nmethod _delete&#40;oBrw,oMeter&#41; \n*------------------------\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41; \n      super&#58;delete&#40;&#41; \n      oMeter&#58;blank&#40;&#41;\n      oMeter&#58;save&#40;&#41;\n   endif \n   &#58;&#58;skip&#40;1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nif oBrw&#58;eof&#40;&#41;\n   &#58;&#58;skip&#40;-1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nendif\noBrw&#58;refresh&#40;&#41;    \n   \n\nreturn self\n\n//---------------------------------------------------------------------------//\n\nCLASS TXData from TData\n   METHOD Append&#40;&#41;\n   METHOD filterreads&#40;&#41;\n   MESSAGE Delete METHOD _Delete&#40;&#41;\nendclass\n\n//---------------------------------------------------------------------------//\n\nMETHOD _Delete&#40;&#41;\n   &#58;&#58;blank&#40;&#41;\n   &#58;&#58;save&#40;&#41;\nreturn super&#58;delete&#40;&#41;\n\n//---------------------------------------------------------------------------//\nmethod filterreads&#40;oBrw&#41;\n*----------------------\n   local oDlg,oBtnNew\n   local ometer&#58;= TRecord&#40;&#41;&#58;new&#40; self &#41;\n   local V_me_mc_serl,y,cfilter,bfilter&#58;=&quot;&quot;\n\n   if MsgGet&#40; &quot;Serial Machine&quot;, &quot;Enter Serial Machine&quot;, @V_me_mc_serl,;\n              &quot;&quot; &#41;\n      select 3\n      use mach\n      set index to mach5\n      if ! DbSeek&#40; &#40;V_me_mc_serl &#41;&#41;\n         MsgAlert&#40; &quot;I don\'t find that serial&quot; &#41;\n      endif\n   endif\n\ny &#58;= &quot;\'&quot;+padr&#40;V_me_mc_serl,7&#41;+&quot;\'&quot; \ncFilter &#58;= &quot;me_mc_serl = &quot;+ y\nbFilter = &quot;&#123;||&quot;+cFilter+&quot;&#125;&quot;\n\nselect mete\nuse mete\nset index to mete1\nDBSETFILTER&#40;&amp;bFilter,cFilter&#41;\nmete-&gt;&#40;DBGOTOP&#40;&#41;&#41;\nometer&#58;end&#40;&#41;\noDlg&#58;update&#40;&#41;\n\nreturn self\n\n\n[/code:25f14nqd]','',0,'AIA=','25f14nqd',1,0,'',148,0,0),(46844,9716,6,960,0,'217.12.16.52',1201009463,1,0,1,1,1,0,'','Presumiendo un poco','Estimados compañeros:\nLa potencia de FWH + Sbutton es inigualable. Aquí os dejo una de las pantallas de venta del modulo Touch que estoy diseñando (ya lo tengo casi listo). En dos semanas se lo entrego a mi cliente.\n\nQuiero dar las gracias publicamente a Antonio Linares, Manuel Mercado y a GABO, asiduo de este foro.\n[img:kbptpm49]http&#58;//i26&#46;tinypic&#46;com/2uo2l5h&#46;jpg[/img:kbptpm49]\n\nLos Sbutton son totalmente configurables por el usuario, incluso puede incluir BMP (como el caso del botón \"cafes\"), cambiar los colores e incluso el diseño. Todo se hace desde la opción de Utilidades del programa.\n\nLos huecos que se ven en la esquina inferior derecha, son botones ocultos que se muestra/ocultan dependiendo de lo que se esté haciendo en cada momento.\n\nMil gracias a todos\nLORENZO.','',0,'CA==','kbptpm49',1,0,'',960,0,0),(46845,9716,6,1255,0,'201.122.38.237',1201010268,1,0,1,1,1,0,'','','Magnífico trabajo, Felicidades.\n\nManuel Mercado','',0,'CA==','210gm860',1,0,'',1255,0,0),(46846,9711,3,868,0,'219.64.121.60',1201012423,1,0,1,1,1,1,'','','Exactly the same code and same dbf. Copied  and Pasted. I am workin with 8.01','',0,'CA==','1hcnw5xn',1,0,'',868,0,0),(46847,9696,6,9,0,'85.60.33.140',1201013570,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:3j2o9gqt]\nEsepero haberme explicado.\n[/quote:3j2o9gqt]\n\nArmando,\n\nTe has explicado magnificamente. Gracias por todo.','',0,'gA==','3j2o9gqt',1,0,'',9,0,0),(46848,9716,6,362,0,'200.158.19.192',1201014138,1,0,1,1,1,1,'','','Magnífico trabajo, Felicidades. \n\n\nComo fijestes?? És posible muestrar algo via codigo?\n\nY si tiene más productos? Como se muestra?\n\nGracias.','',0,'gA==','2smb44e8',1,0,'',362,0,0),(46849,9716,6,1195,0,'190.38.48.210',1201014801,1,0,1,1,1,0,'','Re: Presumiendo un poco','Buen trabajo Loren,\n\nfelicitaciones,\n\nEl sButton que refieres es una clase de FWH o es una libreria de tercero ?\n\ndonde lo puedo encontar ?\n\ngracias\n\nsaludos,\n\nAlbeiro,','',0,'gA==','1u33syh0',1,0,'',1195,0,0),(46850,9716,6,644,0,'201.253.76.69',1201014871,1,0,1,1,1,0,'','','Excelente, el mejor diseño','',0,'gA==','3syjiyuz',1,0,'',644,0,0),(46851,9680,6,644,0,'201.253.76.69',1201015234,1,0,1,1,1,0,'','','Te agradezco muchisimo la respuesta. probaré','',0,'gA==','17wlmytr',1,0,'',644,0,0),(46852,9717,6,644,0,'201.253.76.69',1201015336,1,0,1,1,1,0,'','Secciones en archivo ini','Hay alguna función que me devuelva la cantidad de secciones de un archivo ini. Desde ya muchas gracias','',0,'gA==','1l7bzro2',1,0,'',644,0,0),(46853,9716,6,72,0,'189.146.241.32',1201017660,1,0,1,1,1,0,'','','Buen diseño Loren, felicidades!','',0,'gA==','23l3da4a',1,0,'',72,0,0),(46854,9716,6,940,0,'189.175.190.101',1201019363,1,0,1,1,1,1,'','','Lorenzo buen trabajo,\n\nfelicidades,,\n\nyo tengo que hacer algo similar para un hotel\n\npuedes compartir algun ejemplo ?\n\neste es mi correo <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->\n\n<!-- e --><a href=\"mailto:sysctrl@prodigy.net.mx\">sysctrl@prodigy.net.mx</a><!-- e -->\n\nsin (+- ) saludos cordiales.','',0,'gA==','3n3jpf9q',1,0,'',940,0,0),(46855,9716,6,49,0,'213.82.134.66',1201019640,1,0,1,1,1,1,'','','I had something of it ( thanks to GABO) \n\nI use Sbutton also to create  Table rooms  as U can see here \n\n[img:3u88y9d3]http&#58;//www&#46;postazioneuno&#46;it/tavolimio&#46;jpg[/img:3u88y9d3]\n\nBut I have some problems for  show and print the ticket \n\nHave you an Idea or small an sample ?','',0,'CA==','3u88y9d3',1,0,'',49,0,0),(46856,9716,6,596,0,'84.76.66.27',1201026889,1,0,1,1,1,1,'','','Que suerte tener buen gusto para diseñar esas \"peaso\" pantallas...  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nLorenzo, es un excelente trabajo.','',0,'CA==','lruohm2c',1,0,'',596,0,0),(46857,9709,6,1055,0,'84.122.57.235',1201029787,1,0,1,1,1,0,'','','Si, ese es el link desde el que baje el Visual Estudio y lo instalé. Pero me sigue llamando al viejo WorkShop cuando le digo que me habra una DLL.\nY por las respuestas que se ven en el post, no soy el único a quien le pasa.\n¿Alguna sugerencia?\nGracias','',0,'CA==','1tyzk5zy',1,0,'',1055,0,0),(46858,9709,6,2,0,'87.218.146.22',1201029970,1,0,1,1,1,1,'','','Tienes asociado en tu ordenador que los recursos se abran con el resources workshop ? Si es así, quita esa asociación\n\nGuardas los recursos como RC, como RES ó en DLLs ? VSX no admite RCs, solo RES ó DLLs.\n\nAqui funciona correctamente,','',0,'CA==','1oqtw5ly',1,0,'',2,0,0),(46859,9718,6,1055,0,'84.122.57.235',1201030513,1,0,1,1,1,0,'','Timer recalcitrante.','Ultimamente me están ocurriendo las cosas las más raras.\n\nTengo esto:\n\nDEFINE DIALOG oDlg ....\nDEFINE TIMER oTmr INTERVAL 10000 ACTION MiFuncion(...) OF oDlg\n...\n...\nACTIVATE DIALOG oDlg ... ON INIT oTmr:Activate()\n...\n\nFUNCTION MiFuncion( ... )\n...\n\nY no me funciona el TIMER ¿Cómo puede ser?\n\nCompruebo oTmr:nInterval y está correcto\nCompruebo oTmr:lActive y está en .T.\nNo me da error al compilar\nPero no me entra en la función. ¿Tendrá algo que ver con [b:3sybue5j]aTimers[/b:3sybue5j] y [b:3sybue5j]nId[/b:3sybue5j]?\n\n¿Donde está el fallo? que no lo veo.\n\nTengo FWH 2.7 de enero 2007 con xHarbour\n\nGracias de antemano','',0,'QA==','3sybue5j',1,0,'',1055,0,0),(46860,9709,6,1055,0,'84.122.57.235',1201030593,1,0,1,1,1,0,'','','Le he dicho que me habra el PREV32.DLL para probar, pero me llama al Workshop de las narices.\n\nQue rápido contestando. Gracias','',0,'QA==','31jplhhi',1,0,'',1055,0,0),(46861,9715,3,303,0,'72.220.181.80',1201030841,1,0,1,1,1,0,'','','Ehab,\n\nI see a few things wrong with just a quick look. I have mentioned this before--you MUST use the CLASS clause with methods when defining more than one class in a single PRG. You cannot do:\n\nmethod new()\n\nYou MUST do:\n\nmethod new() CLASS TMeter\n\nOtherwise the compiler doesn\'t know which class each method belongs to. You need to do this for EVERY method in your PRG.\n\nAlso, you are not understanding that TMeter is a database object. You don\'t want to open another copy of the same database to do the fiiltering, you filter the one you already have open. So change this code:\n\nselect mete \nuse mete \nset index to mete1 \nDBSETFILTER(&amp;bFilter,cFilter) \nmete-&gt;(DBGOTOP()) \n\nTo this:\n\n(::cAlias)-&gt;(dbsetfilter(&amp;bFilter,cFilter))\n::gotop()\n\nThere are other problems too. You have a TXData class defined but you are not inheriting from it to make the TMeter class. Was that your intent?\n\nLet me explain my concept of TXData. This is just the name I picked for a class that exists between TData and any database classes that you create. Start it as an empty class.\n\nclass TXData from TData\nendclass\n\nThat is all you need. Then create your other classes from it.\n\nclass TMeter from TXData\n...\nendclass\n\nOK, what is the point you ask? Later when you wish to make some change in behavior that you want all your database to inherit, you an add it to the TXData class. For example, lets say you want to reuse deleted records. You can add the code to do that in TXData, then TMeter and any other database class that you have created will automatically inherit the ability to reuse deleted records.\n\nYou also have an append() method defined in the TXData class that does not exist. I suggest removing the append method, and moving the FilterReads() method to the TMeter class.\n \nRegards,\nJames','',0,'QA==','1xbmffvi',1,0,'',303,0,0),(46862,9709,6,1055,0,'84.122.57.235',1201031893,1,0,1,1,1,0,'','','Es curioso, si escondo el Workshop, me lo despliega en formato editor hexadecimal. ¿Que me ocurre Doctor?','',0,'QA==','xxyvxpte',1,0,'',1055,0,0),(46863,9719,6,596,0,'84.76.66.27',1201033018,1,0,1,1,1,1,'','Estructuras dentro de estructuras, y ademas con arrays...','Otra vez a vueltas con las estructuras...\n\nTengo este codigo VB\n[code:2s1a5fq9]Const MAX_IP = 5\n\nType IPINFO\n    dwAddr As Long   \' IP address\n    dwIndex As Long \'  interface index\n    dwMask As Long \' subnet mask\n    dwBCastAddr As Long \' broadcast address\n    dwReasmSize  As Long \' assembly size\n    unused1 As Integer \' not currently used\n    unused2 As Integer \'; not currently used\nEnd Type\n\nType MIB_IPADDRTABLE\n    dEntrys As Long   \'number of entries in the table\n    mIPInfo&#40;MAX_IP&#41; As IPINFO  \'array of IP address entries\nEnd Type\n\nType IP_Array\n    mBuffer As MIB_IPADDRTABLE\n    BufferLen As Long\nEnd Type[/code:2s1a5fq9]\n\nComo lo paso a FWH+XHB.\nSolo he hecho esto:\n[code:2s1a5fq9]#define MAX_IP 5\nSTRUCT IPINFO\n    MEMBER dwAddr      AS LONG // IP address\n    MEMBER dwIndex     AS LONG // interface index\n    MEMBER dwMask      AS LONG // subnet mask\n    MEMBER dwBCastAddr AS LONG // broadcast address\n    MEMBER dwReasmSize AS LONG // assembly size\n    MEMBER unused1     As WORD // not currently used\n    MEMBER unused2     AS WORD // not currently used\nENDSTRUCT[/code:2s1a5fq9]Pero no se seguir...\nHay un array y una estructura dentro de otra...','',0,'AIA=','2s1a5fq9',1,0,'',596,0,0),(46864,9716,6,84,0,'79.144.113.110',1201034502,1,0,1,1,1,0,'','','Esta es la nuestra, sin utilizar ninguna clase externa a FW.\n\n[img:4qdu3vk9]http&#58;//img176&#46;imageshack&#46;us/img176/915/tactilee6&#46;jpg[/img:4qdu3vk9]\n\n\n[url:4qdu3vk9]http&#58;//www&#46;apolosoftware&#46;com[/url:4qdu3vk9]','',0,'GA==','4qdu3vk9',1,0,'',84,0,0),(46865,9713,3,303,0,'72.220.181.80',1201035361,1,0,1,1,1,0,'','','Ehab,\n\nFirst, you CANNOT index the customer file each time you edit a record. If it is a multiuser app, it will crash if anyone else has the customer file open. Even if it isn\'t multiuser, it will take too long to build the indexes each time the user edits. You build the indexes once, then just reopen them. You only have to reindex if there is a corrupted index. \n\nSince you already have TData, why aren\'t you using it? You could eliminate about half the code you have written. Code like this:\n\nlocal V_CU_ACCT:=space(10) \nlocal V_CU_NAME:=space(50) \nlocal V_cu_gove:=space(30) \nlocal V_cu_city:=space(30) \nlocal V_cu_coun:=space(30) \nlocal V_cu_stre:=space(50) \nlocal V_CU_phon:=space(30) \nlocal V_CU_fax :=space(22) \nlocal V_CU_mobi:=space(26) \nlocal V_CU_MAN :=space(40) \nlocal V_CU_appr:=space(8)\n\nBecomes:\n\noCustomer:blank()\n\nCode like this:\n\n   goto nOldRec \n   V_CU_ACCT:=cust-&gt;CU_ACCT \n   V_CU_NAME:=cust-&gt;CU_NAME \n   V_cu_coun:=cust-&gt;CU_coun \n   V_cu_city:=cust-&gt;CU_city \n   V_cu_gove:=cust-&gt;CU_gove \n   V_CU_stre:=cust-&gt;CU_stre \n   V_CU_phon:=cust-&gt;CU_phon \n   V_CU_fax:=cust-&gt;CU_fax \n   V_CU_MAN:=cust-&gt;CU_MAN \n   V_CU_mobi:=cust-&gt;CU_mobi \n   V_CU_appr:=cust-&gt;CU_appr \n   \nYou don\'t need at all, since TData has a built-in buffer. oCustomer:cu_acct is a buffer so it can be edited without affecting the actual database file ( until you do oCustomer:save() ).\n\nIf you are building a new app, I suggest changing your fieldnames. The leading CU_ is not needed, especially if you are going to use TData. The one exception to this is for the ID number. You may need to have multiple ID numbers in the same record like for an invoice which would have an invno and custno.\n\nFirst I recommend building a TXData class and saving it as a separate PRG; txdata.prg. We are just going to create a new add() method that will be used in TCustomer and any other database class you create.\n\n[code:2bjqb6xy]//---------------------------------------------------------------------------//\n\nclass TXData from TData\n   method add&#40;&#41;\nendclass\n\n//---------------------------------------------------------------------------//\n\nmethod add&#40;&#41; CLASS TXData\n   &#58;&#58;lAdd&#58;=&#46;t&#46;\n   &#58;&#58;blank&#40;&#41;\n   &#58;&#58;edit&#40;&#41;\n   &#58;&#58;lAdd&#58;=&#46;f&#46;\n   &#58;&#58;load&#40;&#41; // in case they cancel, this reloads the buffer\nreturn self\n\n//---------------------------------------------------------------------------//[/code:2bjqb6xy]\n\nNow create a customer class. We just need three methods, new(), edit() and browser(). In the browser method you can create buttons for New, Edit, Delete and call the add(), edit(), and delete() methods of the TCustomer class. Look how much less code there is.\n\nNote that TCustomer is a table. In the edit method we create a single customer record object using TRecord. This is needed for one primary reason and that is because if the browse is repainted the TCustomer buffer gets reloaded and we don\'t want that.\n\nAlso note that the TRecord class is smart. If you are adding a new customer it will append a new record when you save it. If you are editing an existing customer it will save the data back to the original record. This is the power of inheritance. The code is written once in TRecord so you don\'t have to keep rewriting it for each subclass you create.\n\nSave the customer class in another PRG.\n\n[code:2bjqb6xy]//---------------------------------------------------------------------------//\n\nclass TCustomer from TXData\n   method new\n   method edit\n   method browser\nendclass\n\nmethod new&#40;&#41; CLASS TCustomer\n   super&#40;&#41;&#58;new&#40;,&quot;cust&quot;&#41;\n   &#58;&#58;addindex&#40;&quot;cust&quot;&#41;\n   &#58;&#58;addindex&#40;&quot;cust1&quot;&#41;\n   &#58;&#58;addindex&#40;&quot;cust2&quot;&#41;\n   &#46;&#46;&#46;\n   &#58;&#58;setOrder&#40;1&#41;\n   &#58;&#58;gotop&#40;&#41;\nreturn self\n\n//---------------------------------------------------------------------------//\n\nmethod edit&#40;&#41; CLASS TCustomer\n   local oDlg,oCust\n   \n   oCust&#58;= TRecord&#40;&#41;&#58;new&#40;self&#41; \n   \n   define dialog oDlg title if&#40;&#58;&#58;lAdd,&quot;New Customer&quot;, oCust&#58;name&#41;\n   redefine get oCust&#58;custno ID 101 of oDlg update\n   redefine get oCust&#58;name ID 102 of oDlg update\n   &#46;&#46;&#46;\n   redefine button ID_OK of oDlg action &#40;oCust&#58;save&#40;&#41;, oDlg&#58;end&#40;&#41;&#41;\n   &#46;&#46;&#46;\n   activate dialog oDlg\n   \nreturn self\n\n//---------------------------------------------------------------------------//\n\nmethod browser&#40;&#41; CLASS TCustomer\n   // define the browse here&#46;&#46;&#46;\nreturn self\n\n//---------------------------------------------------------------------------//[/code:2bjqb6xy]\n\nThis is so much simpler and easier to read.\n\nRegards,\nJames','',0,'AIA=','2bjqb6xy',1,0,'',303,0,0),(46866,9714,3,303,0,'72.220.181.80',1201035497,1,0,1,1,1,0,'','','Can you provide a small example program that shows the problem?\n\nJames','',0,'AIA=','3ae3ztum',1,0,'',303,0,0),(46867,9536,6,1173,0,'200.30.155.146',1201035690,1,0,1,1,1,1,'','Segun parece ...','Saludos Antonio:\n\nAl quitar la clausula 2007 de la BUTTONBAR, el comportamiento es diferente, los iconos no se repintan al pasar por el mouse, si no hasta que se hace click en el mismo y aparece nuevamente el icono.\nSegun parece, seria cuando en una ventana de dialogo hija quieras insertar una BUTTONBAR.\n\nSaludos desde Honduras','',0,'AIA=','2q4lwx5n',1,0,'',1173,0,0),(46868,9677,3,303,0,'72.220.181.80',1201035767,1,0,1,1,1,0,'','','Antonio,\n\n&gt;This class uses Bitmaps, so you have to provide different bitmaps\n\nJust to clarify, when you refer to bitmaps you are referring to bitmaps for the background gradient color, not to bitmap icons on the tabs, correct?\n\nCan these tabs display bitmap icons also?\n\nJames','',0,'AIA=','14bkcoa0',1,0,'',303,0,0),(46869,9711,3,303,0,'72.220.181.80',1201036717,1,0,1,1,1,0,'','','Richard and NageswaraRao,\n\nI am at a loss as to why it isn\'t working for you. I\'m thinking it must be differences in TXBrowse. NageswaraRao, didn\'t you say in another message thread that you are using a modified TXBrowse? Could you be linking in this instead of the standard FWH version?\n\nI am using xHarbour, are you?\n\nJames','',0,'AIA=','1pak7rgx',1,0,'',303,0,0),(46870,9710,6,430,0,'157.100.146.2',1201037709,1,0,1,1,1,0,'','','Ojala un buen samaritano le de una nueva pasada a este mensaje y me ayude.','',0,'AIA=','go6awvcp',1,0,'',430,0,0),(46871,9718,6,935,0,'200.62.80.35',1201037984,1,0,1,1,1,1,'','Todo parece bien.....','Hola antolin,\n\nA simple vista todo parece bien pero en la linea donde tienes DEFINE TIMER debria ser REDEFINE TIMER yque es un ID dentro del dialogo\n\nSaludes desde Managua, Nicaragua\n\nRamon Paredes','',0,'AIA=','mzak0l5r',1,0,'',935,0,0),(46872,9711,3,6,0,'87.18.215.245',1201039897,1,0,1,1,1,1,'','','I just tried James sample using FWH 8.01 and it seems to work fine here.\n\nEMG','',0,'AIA=','mag6z2r6',1,0,'',6,0,0),(46873,9677,3,2,0,'87.218.146.22',1201040217,1,0,1,1,1,1,'','','James,\n\nThe background is a bitmap and the tabs themselves are bitmaps too.\n\n&gt; Can these tabs display bitmap icons also? \n\nYes, we can also paint small bitmaps on top of the tabs <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\nWe are going to provide a sample asap','',0,'AIA=','1f8ei4ev',1,0,'',2,0,0),(46874,9718,6,110,0,'190.184.22.56',1201040795,1,0,1,1,1,1,'','','Si mal no recuero hay una limitante en cuanto a los milisegundos, verifica el rango de este valor. por lo demas lo que muestra esta correctamente implementado con el define.\n\nsalu2\ncarlos vargas','',0,'AIA=','2fgy9e8x',1,0,'',110,0,0),(46875,9718,6,2,0,'87.218.146.22',1201040886,1,0,1,1,1,1,'','','Antolin,\n\nCuando se crea un timer hay que darle una ventana ó un diálogo que tengan [b:2uue23kg]un handle de ventana válido[/b:2uue23kg]. Tal como lo has programado, cuando le pasas oDlg, oDlg aún no tiene su handle creado.\n\nHas de hacerlo así:\n[code:2uue23kg]\nDEFINE DIALOG oDlg &#46;&#46;&#46;&#46; \n&#46;&#46;&#46; \nACTIVATE DIALOG oDlg &#46;&#46;&#46; ON INIT CreaElTimer&#40; oDlg &#41; \n&#46;&#46;&#46; \n\nfunction CreaElTimer&#40; oDlg &#41; // Aqui oDlg SI tiene un handle válido\n\nDEFINE TIMER oTmr INTERVAL 10000 ACTION MiFuncion&#40;&#46;&#46;&#46;&#41; OF oDlg \n\noTmr&#58;Activate&#40;&#41;\n\nreturn nil\n\nFUNCTION MiFuncion&#40; &#46;&#46;&#46; &#41; \n[/code:2uue23kg]','',0,'QIA=','2uue23kg',1,0,'',2,0,0),(46876,9718,6,78,0,'190.43.181.203',1201040959,1,0,1,1,1,0,'','','Hola amigos,,,,\nSi pusieras el TIMER en una WINDOW, funcionaria a mil porhora, pero como lo pones en un DIALOG, pues naca la pirinaca, no funciona,, asi que visto el tema, lo resolvi de la siguiente manera:\n\nFunction Main()\nlocal ......... bla bla bla bla bla bla\n\nDEFINE DIALOG oDlg ;\nRESOURCE \"ALARMA\" TITLE \"Alarma V1.0\"\n\neAccion := {|| MiFuncion(....) }\nDEFINE TIMER tCarga OF oDlg INTERVAL 5000 ACTION EVAL(eAccion)   \nACTIVATE TIMER tCarga\n...\n...\n...\n\noDlg:bStart:= { || Timer( tcarga, eAccion, oDlg ) }\n...\nACTIVATE DIALOG oDlg ON INIT (tCarga:ACTIVATE()) CENTER\n...\n.....\n\nSalu2..\n\nPD. funciona, pero e parece que hay algo demas....','',0,'QIA=','358ropdf',1,0,'',78,0,0),(46877,9684,6,110,0,'190.184.22.56',1201041131,1,0,1,1,1,1,'','','[code:2apmqpk4]\nnDivdndo &#58;= 1000&#46;00\nnDivsr     &#58;= 0\n\nTRY\n     nResult &#58;= nDivdndo / nDivsr \nCATCH oErr\n     nResult &#58;= 0\n     ?&quot;Error en el calculo de la division&quot;\nEND\n?nResult\n[/code:2apmqpk4]\n\nSalu2\ncarlos vargas','',0,'AIA=','2apmqpk4',1,0,'',110,0,0),(46878,9710,6,2,0,'87.218.146.22',1201041152,1,0,1,1,1,1,'','','Fernando,\n\nEs un bug que se corrigió hace mucho tiempo! en la clase TRichEdit.\n\nEstamos buscando para decirte como arreglarlo, pero se han hecho un montón de cambios desde entonces...\n\nEnvíame por email tu clase TRichEdit y a ver si asi podemos ayudarte','',0,'AIA=','23vuemgu',1,0,'',2,0,0),(46879,9709,6,2,0,'87.218.146.22',1201041609,1,0,1,1,1,1,'','','Antolin,\n\nNo has instalado el VSX siguiendo estas indicaciones _exactamente_:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9572\">http://fivetechsoft.com/forums/viewtopic.php?t=9572</a><!-- m -->','',0,'AIA=','3fffx6jw',1,0,'',2,0,0),(46880,9360,2,1199,0,'189.174.99.88',1201045528,1,0,1,1,1,0,'','','Muchas Gracias Antonio por tu respuesta\n\nYa probe esta funcionando\n\nGracias Y un Saludo','',0,'AIA=','3q0wmvm1',1,0,'',1199,0,0),(46881,9720,2,1199,0,'189.174.99.88',1201045836,1,0,1,1,1,0,'','Como Genero un programa para INTERNET','Hola a Todos mi pregunta es si puedo crear un programa que lo accesen como pagina en internet y que puedan agregar datos a la base de datos y actualizarse en linea, si es posible y como se podria hacer.\n\nGracias a todos\n\nCarlos I. De La Rosa.\n<!-- e --><a href=\"mailto:carloslmm@hotmail.com\">carloslmm@hotmail.com</a><!-- e -->','',0,'AIA=','1okzn6i3',1,0,'',1199,0,0),(46882,9721,6,743,0,'201.116.76.180',1201047530,1,0,1,1,1,0,'','TButtonBmp ayuda','tengo el siguiente problema, tengo un ejemplo simple y ya he revisado en el foro documentacion pero nada que he encontrado, uso la classe TButtonBmp, tengo un get que tiene un valid, pero el botton no me deja salir por la validacion que hago ya le puse la clasula CANCEL y aun asi no me deja \n\ndejo el codigo \n\n     REDEFINE VGet    oGets[3] VAR nGets[3]   ID 113 OF oDlg VALID( DNotas() )\n\n     REDEFINE BUTTONBMP ID 111 OF oDlg PROMPT \"&amp;Cerrar\"     ACTION oDlg:End()  BITMAP \"CERRAR\" CANCEL','',0,'','370evm1g',1,0,'',743,0,0),(46883,9722,2,890,0,'190.9.66.224',1201047566,1,0,1,1,1,0,'','Contenido de campo en combox','Hola Antonio\n\nMis mejores deseos para ti y para los que tu mas quieres.\n \nAntonio como puedo hacer para que el contenido de un campo tipo carácter se me muestre en un combobox, encontré algo parecido en el foro pero no me funciona, quiero colocar el tramo de texto con el que trabajo para que me sea más fácil entender.\nLa parte a que se refiere la pregunta esta resaltada es el combobox operarios\n\nCordialmente\n\nJairo Barbosa\n********************************************************************\n#include \"FiveWin.ch\" \n   \n   Function Busqueoper()//Muestra las operaciones de la tabla Oper \n   \n   Local oDlg, oBrw, oBt1, oBt2, oBt3, oBt4, oBt5, oBt6,oBt,oReport \n     \n    \n   DEFINE DIALOG oDlg RESOURCE \"Operaciones\"\n     \n     Select  opera\n     \n              REDEFINE LISTBOX oBrw                    ;\n              FIELDS                                   ;\n                 Opera-&gt;Placa   	                   ,;\n                 DTOC(Opera-&gt;Fechaingre) 	             ,; \n                 Opera-&gt;Descrip		             ,; \n   str(Opera-&gt;Cantidad,7,3)     		             ,;\n             str(Opera-&gt;Valor,13)                     ,; \n                 Opera-&gt;Carga                         ,; \n                 Opera-&gt;Operario		             ,; \n              IF(Opera-&gt;Garanth,\"SI\",\"NO\") 	       ,; \n              IF(Opera-&gt;Garantm,\"SI\",\"NO\")	       ,; \n                 Opera-&gt;Ot                            ,;\n                 Opera-&gt;Ingreso                       ,; \n                 DTOC(Opera-&gt;Fechasal)                ,;\n                 Opera-&gt;Coment  	                    ;\n            ID 519   OF oDlg                           ; \n            HEADERS				              ;\n                 \"Placa\" 			             ,; \n                 \"Fecha_Ingr\"			             ,; \n                 \"Descripcion\"			       ,;\n                 \"Cantidad\"                           ,; \n                 \"Valor\"			             ,;\n                 \"Carga\"                              ,; \n                 \"Operario\"			             ,; \n                 \"Garantia_H\"			             ,; \n                 \"Grarantia_M\"			       ,;\n                 \"Orden T\"                            ,;\n                 \"Ingreso X\"                          ,;\n                 \"Fecha_Sal\"                          ,;\n                 \"Comentario\"                          ;\n        SELECT Opera-&gt;Placa  FOR Client-&gt;Placa         ;\n        ON DBLCLICK  (Regi02(.F.), oBrw:refresh(), oBrw:SetFocus()) UPDATE; \n      COLOR RGB(0,0,0),RGB(120,150,220) \n            \n      REDEFINE Bitmap oBit ID 10 of oDlg resource \"Genesis3\" \n\n           oDlg:cCaption := \"REGISTRO DE OPERACIONES\"\n           oBrw:Upstable()\n\n           * Botones\n      REDEFINE BUTTON oBt1 ID 510 OF oDlg    	        ; //Reeditar\n      ACTION (Regi02(.F.),Grabareg(), oBrw:refresh(), oBrw:SetFocus()) UPDATE \n      REDEFINE BUTTON oBt2 ID 517 OF oDlg			 ; // Nuevo\n      ACTION Grabareg(), (Regi02(.F.), oBrw:refresh(), oBrw:SetFocus())\n\n         REDEFINE BUTTON oBt3 ID 511 OF oDlg			 ; // borrar\n         ACTION   ( BorraRegi02() , oBrw:refresh(), oBrw:SetFocus())\n\n         REDEFINE BUTTON oBt4 ID 518 OF oDlg			 ; // Salir\n         ACTION oDlg:End()\n         \n         REDEFINE BUTTON oBt1 ID 533 OF oDlg ACTION Imprime()\n\n    oBrw:nClrpane:={||IIF((ORDKEYNO());\n    %2==0,RGB(120,150,250),RGB(120,150,200))}    \n  \n   ACTIVATE DIALOG oDlg\n  \n Return nil \n//----------------------------------------------------------------------------//\n \nfunction Regi02(lOk)\n   \n   local oDlg,bGotFocus,bLostFocus,cOperario := {}\n   local lGrabaa := .F.\n   local Regis\n   \n   * Seteamos las variables para agregar o modificar\n   cPlaca      :=IIF(lOk,SPACE(LEN(Opera-&gt;Placa)),Opera-&gt;Placa) \n   cFechasal   :=IIF(lOk,CTOD(\"  /  /    \"),Opera-&gt;Fechasal)\n   cDescrip    :=IIF(lOk,SPACE(LEN(Opera-&gt;Descrip)),Opera-&gt;Descrip)\n   cCantidad   :=IIF(lOk,SPACE(LEN(Opera-&gt;Cantidad)),Opera-&gt;Cantidad)\n   cCarga      :=IIF(lOk,SPACE(LEN(Opera-&gt;Carga)),Opera-&gt;Carga)\n   cValor      :=IIF(lOk,SPACE(LEN(Opera-&gt;Valor)),Opera-&gt;Valor)\n   cOperario   :=IIF(lOk,SPACE(LEN(Opera-&gt;Operario)),Opera-&gt;Operario)\n   cGaranth    :=IIF(lOk,SPACE(LEN(Opera-&gt;Garanth )),Opera-&gt;Garanth )\n   cGarantm    :=IIF(lOk,SPACE(LEN(Opera-&gt;Garantm)),Opera-&gt;Garantm)\n   cOt         :=IIF(lOk,SPACE(LEN(Opera-&gt;ot)),Opera-&gt;ot)\n   cIngreso    :=IIF(lOk,SPACE(LEN(Opera-&gt;Ingreso)),Opera-&gt;Ingreso)\n   cFechaingre :=IIF(lOk,SPACE(LEN(Opera-&gt;fechaingre)),Opera-&gt;Fechaingre) \n   cComent     :=IIF(lOk,SPACE(LEN(Opera-&gt;Coment)),Opera-&gt;Coment)\n   \n   aItems := {\" \",\"1R_134\",\"2R_12\",\"3R134_Tar\",\"4R12_Tar\"} \n   aItem := {\" \",\"A/C Nuevo\",\"Servicio\",\"Garantia\"} \n   cRegis :=Recno() \n\n   DEFINE DIALOG oDlg RESOURCE \"Regi02\" TITLE \"Entrada Operaciones Serviairee\"\n  \n   REDEFINE GET getplaca VAR cPlaca ID 500 OF oDlg UPDATE PICTURE \"!!!999\"\n\n   REDEFINE GET getFechaingre VAR cFechaingre ID 501 OF oDlg UPDATE; \n                            VALID ValidCamp(cFechaingre)   \n                             \n      * Desabilitamos placa cuando se edita y damos foco a Fecha (por Editar)\n      IF !lOk\n         Getplaca:disable()\n         GetFechaIngre:SetFocus()\n      ENDIF\n \n    REDEFINE GET getDescrip VAR cDescrip ID 502 OF oDlg PICTURE \"@!\"\n                                 \n    \n   REDEFINE GET getCantidad VAR cCantidad ID 503 OF oDlg PICTURE\"99.999\"\n \n      IF EMPTY(cCarga) .OR. ; \n         ASCAN(aItems,cCarga) == 1  \n         cCarga := aItems[1]  \n      ENDIF \n\n      REDEFINE COMBOBOX getCarga VAR cCarga ; \n         ITEMS aItems ID 504 of oDlg \n    \n    REDEFINE GET getvalor VAR cValor ID 499 OF oDlg UPDATE PICTURE;\n                                          \"$ 99,999,999.99\"\n \n     Emple-&gt;( DbGoTop() ) //emple es el alias de la base empleados \n     while ! Emple-&gt;( EoF() ) \n     AAdd(cOperario , Str( Emple-&gt;Apellido ) ) \n     Emple-&gt;( DbSkip( 1 ) ) \n     end \n\n    REDEFINE COMBOBOX getOperario VAR cOperario ID 505 OF oDlg PICTURE            \"@!\" \n                                           \n    REDEFINE CHECKBOX chetGaranth  VAR cGaranth  ID 506 OF oDlg UPDATE\n    if .not. empty(cGaranth)  \n    cIngreso= aItem[4]\n    endif\n\n    REDEFINE CHECKBOX chetgarantm  VAR cGarantm   ID 507 OF oDlg UPDATE \n    if .not. empty(cGarantm)\n    cIngreso= aItem[4]\n    endif\n\n    REDEFINE GET  getot VAR cOt ID 498 OF oDlg UPDATE;\n                      VALID ValidCamp(cOt)  \n       \n      IF EMPTY(cIngreso) .OR. ; \n         ASCAN(aItem,cIngreso) == 1  \n         cIngreso := aItem[1]   \n      ENDIF \n   \n    REDEFINE COMBOBOX getIngreso VAR cIngreso ; \n         ITEMS aItem ID 117 of oDlg valid ValidCamp(cIngreso) \n\n    REDEFINE GET getfechasal VAR cFechasal ID 4001 OF oDlg UPDATE \n            \n    REDEFINE GET getcoment VAR cComent ID 508 OF oDlg\n    \n       \n        * Salimos sin Grabar\n REDEFINE BUTTON oBt5 ID 521 OF oDlg ACTION (lGrabaa := .F., oDlg:End())//Salir\n      * Salimos grabando\n\n REDEFINE BUTTON oBt6 ID 520 OF oDlg ACTION (lGrabaa := .T.,oDlg:End())   \n\n  REDEFINE Bitmap oBit ID 10 of oDlg resource \"Genesis1\" \n\n  oBt6:cToolTip := ( \"Graba el Registro Editado\" )//OemToAnsi\n  getFechaingre:cToolTip :=OemToAnsi(\"Escriba la fecha de ingreso \")\n  \n\n  ACTIVATE DIALOG oDlg\n         \n   IF lGrabaa  // Salir grabando\n    IF lOK\n     \n         append blank\n        \n      ENDIF\n      * Grabamos losdatos\n       \n      Opera-&gt;Fechasal   :=cFechasal\n      Opera-&gt;Descrip    :=cDescrip\n      Opera-&gt;Cantidad   :=cCantidad\n      Opera-&gt;Valor      :=cValor\n      Opera-&gt;Carga      :=cCarga\n      Opera-&gt;Operario   :=cOperario\n      Opera-&gt;Garanth    :=cGaranth\n      Opera-&gt;Garantm    :=cGarantm\n      Opera-&gt;Ot         :=cOt\n      Opera-&gt;Ingreso    :=cIngreso\n      Opera-&gt;Fechaingre :=cFechaingre \n      Opera-&gt;Coment     :=cComent\n      \n  endif\n \nreturn nil','',0,'','1rrlxiuu',1,0,'',890,0,0),(46884,9711,3,303,0,'72.220.181.80',1201048137,1,0,1,1,1,0,'','','Enrico,\n\n&gt;I just tried James sample using FWH 8.01 and it seems to work fine here.\n\nThank you for reporting that.\n\nJames','',0,'','2mfq36dz',1,0,'',303,0,0),(46885,9711,3,179,0,'201.217.100.136',1201049930,1,0,1,1,1,1,'','','James Nice Sample\nwe compile with fwh 2.7 and xHarbour and works well\n\nwith only .dbf\nwith .dbf + Index\nwith .dbf + Index + Filter\n\nThanks\n\natt','',0,'','1qlw84oy',1,0,'',179,0,0),(46886,9723,3,241,0,'125.162.42.29',1201051069,1,0,1,1,1,1,'','Bug on FWH_0801','Antonio, \n\nFollowing example shows trouble on Tsay with \'box\' or \'raised\' in FWH_0801, may you check it ? \n\nThank &amp; Regards. \nChiang Ming-Song \n\n*--------------------------------------------- \n#include \"FiveWin.ch\" \n*============================================= \nproc Main() \n*--------------------------------------------- \nlocal oWnd \nDEFINE WINDOW oWnd FROM 10, 10 TO 500,500 pixel TITLE \'Test say raised\' \n*-------- \n@ 0, 1 say Space(2) Size 100, 20 of oWnd pixel raised Color CLR_HGRAY, CLR_HGRAY \n@ 25, 1 say Space(2) Size 100, 20 of oWnd pixel raised Color CLR_HGRAY, CLR_RED \n@ 50, 1 say \'Raised\' Size 100, 20 of oWnd pixel raised Color CLR_HGRAY, CLR_RED \n@ 75, 1 say \'Raised\' Size 100, 20 of oWnd pixel raised Color CLR_WHITE, CLR_HGRAY \n\n@ 125, 1 say Space(2) Size 100, 20 of oWnd pixel box Color CLR_HGRAY, CLR_HGRAY \n@ 150, 1 say Space(2) Size 100, 20 of oWnd pixel box Color CLR_HGRAY, CLR_RED \n@ 175, 1 say \'Box\' Size 100, 20 of oWnd pixel box Color CLR_HGRAY, CLR_RED \n@ 200, 1 say \'Box\' Size 100, 20 of oWnd pixel box Color CLR_WHITE, CLR_HGRAY \n\n@ 250, 1 say Space(2) Size 100, 20 of oWnd pixel Color CLR_HGRAY, CLR_HGRAY \n@ 275, 1 say Space(2) Size 100, 20 of oWnd pixel Color CLR_HGRAY, CLR_RED \n@ 300, 1 say \'Plain\' Size 100, 20 of oWnd pixel Color CLR_HGRAY, CLR_RED \n@ 325, 1 say \'Plain\' Size 100, 20 of oWnd pixel Color CLR_WHITE, CLR_HGRAY \n*---------- \nACTIVATE WINDOW oWnd \n*---------------------------------------------','',0,'','38s2exln',1,0,'',241,0,0),(46887,9711,3,303,0,'72.220.181.80',1201053145,1,0,1,1,1,0,'','','Wilson,\n\n&gt;we compile with fwh 2.7 and xHarbour and works well.\n\nThanks for reporting. This means it should work even with older versions of XBrowse.\n\nJames','',0,'','yl86tnj3',1,0,'',303,0,0),(46888,9710,6,430,0,'200.125.215.167',1201055003,1,0,1,1,1,0,'','','Ok Antonio, te envié los archivos a tu correo.','',0,'','1ivalxc7',1,0,'',430,0,0),(46889,9711,3,1193,0,'59.105.14.242',1201055040,1,0,1,1,1,0,'','','Hi James,\n\nI fix I test. I add ::oBrw:Refresh() and work fine.\nSo your sample work fine.\n\nRegards,\n\nRichard','',0,'','32p1mjpi',1,0,'',1193,0,0),(46890,9328,3,322,0,'201.134.185.82',1201055109,1,0,1,1,1,0,'','','Manuel Mercado.\n\nCreo que los aportes realizados valen más que la ayuda que recibió, más bién, gracias por hacer que las cosas sean sencillas y porque aun nos pueda seguir ayudando al igual que muchos en este foro, no puedo enumerarlos por temor a pecar por olvidar a alguien, además gracias a Antonio por seguir en lucha en esta dificil carrera de la informática.\n\nANIMO A TODOS.\n\nDesde la Ciudad de México, D.F.\nNazario Salazar N.','',0,'','14x20cp2',1,0,'',322,0,0),(46891,9711,3,303,0,'72.220.181.80',1201057025,1,0,1,1,1,0,'','','Richard,\n\n&gt;I fix I test. I add ::oBrw:Refresh() and work fine. \n\nGood news. Thanks.\n\nJames','',0,'','83kvh16m',1,0,'',303,0,0),(46892,9711,3,868,0,'219.64.121.60',1201059512,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:54q218zg]Richard and NageswaraRao,\n\nI am at a loss as to why it isn\'t working for you. I\'m thinking it must be differences in TXBrowse. NageswaraRao, didn\'t you say in another message thread that you are using a modified TXBrowse? Could you be linking in this instead of the standard FWH version?\n\nI am using xHarbour, are you?\n\nJames[/quote:54q218zg]\nI use modified txbrowse for my software.\n\nBut when i test anything here for the forum discussions, I test with FWH 8.01 libraries only and do not use my extensions. Some time today i shall work again when i get some time and come out with the circumstances under which it breaks.','',0,'gA==','54q218zg',1,0,'',868,0,0),(46893,9187,17,396,0,'200.71.186.109',1201068274,1,0,1,1,1,1,'','','El editor de Visual C o Visual estudio...','',0,'gA==','3chhem5e',1,0,'',396,0,0),(46894,9716,6,92,0,'80.24.134.118',1201074178,1,0,1,1,1,0,'','','Que nivel teneis la gente de este foro !\n\nMuy bueno y bonito.\n\nSaludos\nCarlos G.\n\nNota: Sólo falta que al del bar le convenzais para que nos invite.','',0,'gA==','3rkc6h8t',1,0,'',92,0,0),(46895,9724,7,893,0,'80.34.86.46',1201076196,1,0,1,1,1,0,'','AYUDA Browse editable','Hola, necesito trabajar con un browse editable. Solo he trabajado con Listbox por lo que no se como hacerlo. Imagino, segun he leido, que se hace con tbrowse pero no hay información.\nLo que quiero es que en el Valid de las columnas poder llamar a otro browse para seleccionar datos, como un detalle de albarán, (selección artículos. tecleo de cantidad) etc...\n\nMuy agradecido de antemano.','',0,'gA==','2y2nwt3s',1,0,'',893,0,0),(46896,9716,6,960,0,'217.12.16.52',1201076758,1,0,1,1,1,0,'','','Compañeros:\n\nLa clase Sbutton es de terceros (de manuel mercado) y la podeis encontrar en las Utilidades de este foro.\nEn cuanto al código es relativamente simple:\nCon photoshop creo los BMP que luego me servirán de BRUSH en los SButton:\n DEFINE BRUSH OFamilia     FILE ltrim(Camino+\'\\graficos\\botones\\brush\\\'+botonfam-&gt;nombre)\n DEFINE BRUSH OArticulo    FILE ltrim(Camino+\'\\graficos\\botones\\brush\\\'+botonart-&gt;nombre)\nDe esta manera el usuario puede crear sus propias presentaciones de botones.\n\nLuego defino los sbutton de las familias:\n   REDEFINE SBUTTON obtnF[ 1] ID 4005 OF oDialog brush ofamilia            NOBOXTR COLORS { |oBtnF| If( ! oBtnF:lActive, CLR_WHITE, If( oBtnF:lMouseOver, CLR_HRED, If( oBtnF:lPressed, CLR_HRED, CLR_WHITE ) ) ) }\n   REDEFINE SBUTTON obtnF[ 2] ID 4008 OF oDialog brush ofamilia            NOBOXTR COLORS { |oBtnF| If( ! oBtnF:lActive, CLR_WHITE, If( oBtnF:lMouseOver, CLR_HRED, If( oBtnF:lPressed, CLR_HRED, CLR_WHITE ) ) ) }\n   REDEFINE SBUTTON obtnF[ 3] ID 4011 OF oDialog brush ofamilia            NOBOXTR COLORS { |oBtnF| If( ! oBtnF:lActive, CLR_WHITE, If( oBtnF:lMouseOver, CLR_HRED, If( oBtnF:lPressed, CLR_HRED, CLR_WHITE ) ) ) }\n...\nLuego defino los Sbutton de los articulos:\n   REDEFINE SBUTTON obtnA[ 1] ID 4018 OF oDialog brush oarticulo           NOBOXTR COLORS { |oBtnA| If( ! oBtnA:lActive, CLR_WHITE, If( oBtnA:lMouseOver, CLR_HRED, If( oBtnA:lPressed, CLR_HRED, CLR_WHITE ) ) ) }\n   REDEFINE SBUTTON obtnA[ 2] ID 4021 OF oDialog brush oarticulo           NOBOXTR COLORS { |oBtnA| If( ! oBtnA:lActive, CLR_WHITE, If( oBtnA:lMouseOver, CLR_HRED, If( oBtnA:lPressed, CLR_HRED, CLR_WHITE ) ) ) }\n   REDEFINE SBUTTON obtnA[ 3] ID 4024 OF oDialog brush oarticulo           NOBOXTR COLORS { |oBtnA| If( ! oBtnA:lActive, CLR_WHITE, If( oBtnA:lMouseOver, CLR_HRED, If( oBtnA:lPressed, CLR_HRED, CLR_WHITE ) ) ) }\n...\nLuego defino los sbutton de la calculadora:\n   REDEFINE SBUTTON ocal [ 1] ID 4053 OF oDialog prompt \'0\'   brush ocalculadora font oFont2 ROUNDRECT NOBOXTR COLOR { |oCal| If( oCal:lPressed, CLR_HRED, CLR_BLACK ) } action calc(\'0\')\n   REDEFINE SBUTTON ocal [ 2] ID 4052 OF oDialog prompt \'1\'   brush ocalculadora font oFont2 ROUNDRECT NOBOXTR COLOR { |oCal| If( oCal:lPressed, CLR_HRED, CLR_BLACK ) } action calc(\'1\')\n...\n\nLuego hay que asignarle el bAction, el cCaption de las familias/articulos y en mi caso también el brush a cada botton porque el usuario puede asignarle solo texto o texto y BMP a cada boton:\n \" Parte del codigo lo teneis publicado en <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=4429&amp;highlight=gabo\">http://fivetechsoft.com/forums/viewtopi ... light=gabo</a><!-- m -->\n\n... el resto es codigo simple...\n\nUn saludo y mil gracias a todos\nLORENZO.','',0,'','sxp22cco',1,0,'',960,0,0),(46897,9723,3,2,0,'87.218.146.22',1201077062,1,0,1,1,1,1,'','','John,\n\nRAISED is used for the SS_WHITERECT style, so you won\'t see a \"raised\" text. It will look as a white rectangle.\n\nBOX is used for the SS_GRAYRECT style, so it will look as a gray rectangle.\n\nWe are using standard Windows behavior there.','',0,'','388s9ryv',1,0,'',2,0,0),(46898,9724,7,2,0,'87.218.146.22',1201077866,1,0,1,1,1,1,'','','Andrés,\n\nNo hemos preparado ningún ejemplo aún de edición en el mismo browse.\n\nDe momento es preferible que situes algún botón en la pantalla que te lleve a un diálogo de edición de los datos, ó que usando el doble click te lleve al mismo lugar de edición.\n\nTenemos previsto portar la Clase TXBrowse de FWH a FWPPC, lo antes posible, y esa clase permitirá todo tipo de edición directamente encima del browse. Pero aún necesitaremos un mes ó dos.','',0,'','1nrbim0f',1,0,'',2,0,0),(46899,9720,2,2,0,'87.218.146.22',1201078314,1,0,1,1,1,1,'','','Carlos,\n\nExisten algunos programas comerciales que permiten acceder a un programa remoto desde página web.\n\nPor lo que tu EXE puede usarse localmente ó desde Internet, sin necesidad de construir dos programas distintos.\n\nPero lo más probable es que no funcionen con aplicaciones de 16 bits (Clipper), por lo que tendrías que plantearte portar tu aplicación a Harbour y a FWH (FiveWin para Harbour) que generan aplicaciones de 32 bits.','',0,'','2skeipu6',1,0,'',2,0,0),(46900,9722,2,2,0,'87.218.146.22',1201078695,1,0,1,1,1,1,'','','Jairo,\n\nTienes que usar la Clase TDbCombo.\n\nRevisa samples\\DbcTest.prg y TestDbc1.prg','',0,'','39xci7tj',1,0,'',2,0,0),(46901,9721,6,2,0,'87.218.146.22',1201079533,1,0,1,1,1,1,'','','Aqui tienes un ejemplo funcionando correctamente:\n[code:25vnpqrb]\n#include &quot;FiveWin&#46;ch&quot;\n\nfunction Main&#40;&#41;\n\n   local oDlg, cName &#58;= Space&#40; 20 &#41;\n\n   DEFINE DIALOG oDlg\n\n   @ 1, 2 GET cName VALID &#46;F&#46;\n\n   @ 3, 8 BUTTONBMP PROMPT &quot;Salir&quot; CANCEL SIZE 50, 10 ACTION oDlg&#58;End&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil   \n[/code:25vnpqrb]\nPor favor, acostumbraros a proporcionar un ejemplo así, pequeño y autocontenido, para poder dar soporte técnico rapidamente, gracias','',0,'AIA=','25vnpqrb',1,0,'',2,0,0),(46902,9411,18,2,0,'87.218.146.22',1201080127,1,0,1,1,1,1,'','','gracias!','',0,'AIA=','2nfdm1jw',1,0,'',2,0,0),(46903,9724,7,893,0,'80.34.86.46',1201080819,1,0,1,1,1,0,'','','ok','',0,'AIA=','2yeo4k7u',1,0,'',893,0,0),(46904,9708,3,161,0,'213.119.247.77',1201081239,1,0,1,1,1,0,'','','Rick,\n\nAre you using aspack with Vista. I have download the trial and after installing the program, the compression is working fine.\nIf I want to launch aspack again for compressing another program, I allways get an vista-error tha it can\'t be executed. After uninstalling and installing it again, it runs fine again, but only 1 time again.\n\nIs this because it\'s the trial. I saw that the trial version was copyright 2002. Maybe it\'s an old version...\n\nThe compressed file keeps running fine <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\n\nRegards,\nMarc','',0,'AIA=','1qyl28vp',1,0,'',161,0,0),(46905,9677,3,2,0,'87.218.146.22',1201082237,1,0,1,1,1,1,'','','Using bitmaps on the tabs:\n\n[url=http&#58;//imageshack&#46;us:3vg86ws5][img:3vg86ws5]http&#58;//img169&#46;imageshack&#46;us/img169/7154/tabscj2&#46;png[/img:3vg86ws5][/url:3vg86ws5]\n\n[url=http&#58;//imageshack&#46;us:3vg86ws5][img:3vg86ws5]http&#58;//img255&#46;imageshack&#46;us/img255/7307/tabs2yx4&#46;png[/img:3vg86ws5][/url:3vg86ws5]','',0,'GA==','3vg86ws5',1,0,'',2,0,0),(46906,9677,3,303,0,'72.220.181.80',1201082550,1,0,1,1,1,0,'','','Antonio,\n\nGreat work. \n\nCan we see the code for the sample (not the class, just the code for the sample used to create the screenshot)?\n\nJames','',0,'GA==','3rblr507',1,0,'',303,0,0),(46907,9678,6,2,0,'87.218.146.22',1201082559,1,0,1,1,1,1,'','','Usando bitmaps en los tabs:\n\n[url=http&#58;//imageshack&#46;us:hhha1bmp][img:hhha1bmp]http&#58;//img169&#46;imageshack&#46;us/img169/7154/tabscj2&#46;png[/img:hhha1bmp][/url:hhha1bmp]\n\n[url=http&#58;//imageshack&#46;us:hhha1bmp][img:hhha1bmp]http&#58;//img255&#46;imageshack&#46;us/img255/7307/tabs2yx4&#46;png[/img:hhha1bmp][/url:hhha1bmp]','',0,'GA==','hhha1bmp',1,0,'',2,0,0),(46908,9677,3,2,0,'87.218.146.22',1201082855,1,0,1,1,1,1,'','','James,\n[code:36tnq3gw]\nfunction Main&#40;&#41;\n\n   local oTabs1, oTabs2\n\n   DEFINE WINDOW oWnd TITLE &quot;Testing FiveWin Tabs&quot; ;\n      COLOR CLR_WHITE, CLR_BLUE\n\n   @ 8, 0 TABS oTabs1 PROMPTS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot;, &quot;&amp;Four&quot; OF oWnd ;\n      BITMAPS &quot;people&#46;bmp&quot;, &quot;open2&#46;bmp&quot;, &quot;print&#46;bmp&quot;, &quot;zoom2&#46;bmp&quot; ;\n      ACTION oWnd&#58;Say&#40; 5, 5, oTabs1&#58;nOption &#41;\n\n   oWnd&#58;oTop = oTabs1\n\n   @ 8, 0 TABS oTabs2 PROMPTS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot;, &quot;&amp;Four&quot; OF oWnd ;\n      BITMAPS &quot;people&#46;bmp&quot;, &quot;open2&#46;bmp&quot;, &quot;print&#46;bmp&quot;, &quot;zoom2&#46;bmp&quot; ;\n      ACTION oWnd&#58;Say&#40; 7, 5, oTabs2&#58;nOption &#41;\n\n   oWnd&#58;oBottom = oTabs2\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:36tnq3gw]','',0,'AIA=','36tnq3gw',1,0,'',2,0,0),(46909,9677,3,303,0,'72.220.181.80',1201083450,1,0,1,1,1,0,'','','Antonio,\n\nThanks. It looks real easy. Nice!\n\nJames','',0,'AIA=','odvviigf',1,0,'',303,0,0),(46910,9725,6,956,0,'189.22.134.133',1201083747,1,0,1,1,1,1,'','Bitmap cinza (solucionado)','Como desenha um bitmap cinza?\n\nNa classe o método <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->isable() está comentado!\nPreciso muito alternar para tons de cinza uma imagem. Alguem ajuda?','',0,'AIA=','vsbhav1f',1,1201114912,'',956,1,0),(46911,9677,3,2,0,'87.218.146.22',1201084959,1,0,1,1,1,1,'','','The text in the top tabs has been moved down one pixel, so it looks better now','',0,'AIA=','2lbui6no',1,0,'',2,0,0),(46912,9677,3,2,0,'87.218.146.22',1201085228,1,0,1,1,1,1,'','','Here you have an EXE to try:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/85924536/test.zip.html\">http://rapidshare.com/files/85924536/test.zip.html</a><!-- m -->','',0,'AIA=','rhwj85nk',1,0,'',2,0,0),(46913,9678,6,2,0,'87.218.146.22',1201085267,1,0,1,1,1,1,'','','Aqui teneis un EXE para probarlo:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/85924536/test.zip.html\">http://rapidshare.com/files/85924536/test.zip.html</a><!-- m -->','',0,'AIA=','vvv61lvd',1,0,'',2,0,0),(46914,9716,6,49,0,'213.82.134.66',1201085869,1,0,1,1,1,1,'','','And show and print  the ticket ?\nhave you an sample ?','',0,'AIA=','3a7rn3ns',1,0,'',49,0,0),(46915,9678,6,24,0,'80.24.12.168',1201087166,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:95fkc0b1]Aqui teneis un EXE para probarlo:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/85924536/test.zip.html\">http://rapidshare.com/files/85924536/test.zip.html</a><!-- m -->[/quote:95fkc0b1]\nAntonio PERFECTO! Andan muy bien bajo Windows Vista!\n\nUna sola pega, no funcionan los atajos del teclado.','',0,'gA==','95fkc0b1',1,0,'',24,0,0),(46916,9678,6,2,0,'87.218.146.22',1201090632,1,0,1,1,1,1,'','','Rafa,\n\nLos aceleradores funcionan bien aqui (Vista). \n\nTienes que pulsar Alt+... y usar tab para pasar de un grupo de tabs al otro','',0,'gA==','3nrfx79q',1,0,'',2,0,0),(46917,9722,2,890,0,'190.9.66.224',1201091690,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:wd0kvdai]Jairo,\n\nTienes que usar la Clase TDbCombo.\n\nRevisa samples\\DbcTest.prg y TestDbc1.prg[/quote:wd0kvdai]\n\n//**************************//\n\nGracis Antonio\n\nfunciona perfectamente\n\nCordialmente\n\nJairo','',0,'gA==','wd0kvdai',1,0,'',890,0,0),(46918,9726,6,439,0,'190.64.82.188',1201094511,1,0,1,1,1,1,'','Ocultar tab de un folder para simular page','Una preguntilla, como las pages no transparentan....\n\nEs posible ocultar la tab de un folder, de manera de utilizarlo como una page?\n\nGracias desde ya por sus sugerencias.','',0,'gA==','1jtrud2h',1,0,'',439,0,0),(46919,9708,3,35,0,'167.7.140.254',1201095026,1,0,1,1,1,0,'','','MArk\n\nVista works just fine for me .. however we have a site license and it is registered. We have a .reg file that we apply to license our version .. may be the difference.\n\nRick','',0,'gA==','necgvzpt',1,0,'',35,0,0),(46920,9727,6,1236,0,'200.146.114.232',1201096920,1,0,1,1,1,0,'','Como fazer isso?','Amigos, estou quebrando a cabeça mais acho que deve ser facil o que estou querendo, veja:\n\nTenho uma variavel com o tempo que o cliente esteve no estabelecimento. ex: 02:30\n\nTenho uma variavel com valor da hora. ex: 10.00 $\n\nMinha dúvida é, como calcular o valor que o cliente tem que pagar???\n\nex:\n\ntempo :=02:30\nvlrhora:=10.00\n\npreciso de uma função que retorne o valor de 25,00 reais.\n\nGrato a todos','',0,'gA==','2nqa61ph',1,0,'',1236,0,0),(46921,9723,3,241,0,'202.155.52.247',1201096933,1,0,1,1,1,0,'','','Antonio, \n\nThanks for your responce, but Tsay displays Text in raised boder if raised style was specified in FWH version of Dec. 2006.\n\nRegards. \nJohn M. S. Chiang','',0,'gA==','3fp12ag6',1,0,'',241,0,0),(46922,9727,6,644,0,'190.139.162.135',1201097489,1,0,1,1,1,0,'','','Se me ocurre lo siguiente. halla la hora en minutos y divide el valor de la hora en minutos y multiplica la hora por su valor. En tu ejemplo 02:30 es igual a 150 minutos y el valor de la hora seria 10 / 60 que es igual a 0.166. Si multiplicas 150 * 0.166 da 25. Espero te sirva','',0,'gA==','3sgm84s2',1,0,'',644,0,0),(46923,9726,6,2,0,'87.218.146.22',1201098936,1,0,1,1,1,1,'','','Jose,\n\nEstamos terminando los nuevos Tabs y a continuación vamos con los folders. \n\nPrecisamente queremos hacer eso que comentas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nSolo un par de dias ó menos...','',0,'gA==','33yn6n4l',1,0,'',2,0,0),(46924,9726,6,439,0,'190.64.82.188',1201099132,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1qos64fe]Jose,\n\nEstamos terminando los nuevos Tabs y a continuación vamos con los folders. \n\nPrecisamente queremos hacer eso que comentas <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> \n\nSolo un par de dias ó menos...[/quote:1qos64fe]\n\nAntonio, esa es una maravillosa noticia!!!!\n\nPlaneo comprar actualización para marzo, espero ya esté para ese momento.','',0,'gA==','1qos64fe',1,0,'',439,0,0),(46925,9708,3,161,0,'213.119.247.77',1201099165,1,0,1,1,1,0,'','','Rick,\n\nThe date of the exe in the trial is 15/1/2002 and the version is 2.12.\nMaybe when you buy the software there is a newer version available...\n\nRegards,\nMarc','',0,'gA==','3jhbusm1',1,0,'',161,0,0),(46926,9728,3,460,0,'217.37.54.49',1201099283,1,0,1,1,1,0,'','TOutlook Problem','Hi,\n\nI have just found a problem with the outlook style button bar - if there are too many buttons to fit on one screen the whole button display is wiped (when the bar is started the buttons will flash up on the screen and then instantly disappear) - I have noticed in the past that a little arrow would appear and the buttons would scroll - this no longer appears.  The buttons are still there because if you click the blank space, the action associated with the buttons kicks in!\n\nI\'m using FWH 7.12 &amp; xHarbour Commercial\n\nLet me know if you need any more info\n\nThanks\n\nPete','',0,'gA==','vwoe6yez',1,0,'',460,0,0),(46927,9729,6,1104,0,'200.115.249.89',1201100813,1,0,1,1,1,0,'','Pequeña duda','Hola a todos.\nTengo una pequeña duda.\nComo debo hacer para que una aplicación no se pueda ajecutar más de una vez al mismo tiempo?\n\nPorbé con lo siguiente:\n\nSET MULTIPLE OFF\n\nPero no me ha funcionado.\n\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'gA==','27d4paj6',1,0,'',1104,0,0),(46928,9727,6,53,0,'189.139.26.167',1201100964,1,0,1,1,1,1,'','','FWHISHOW:\n\nOtra alternativa:\n\nSepara los minutos de las horas\n\n2.30  tiempo a cobrar\n2.00  * 10.00    es igual a 20.00\n\nluego divides los minutos  30 / 60  y te da .50\n\n.50 *  10.00   es igual a 5.00\n\nTiempo a cobrar es igual a   20.00   +    5.00\n\nOTRO EJEMPLO DE MINUTOS\n\nTiempo a cobrar 2.45 \n\nSeparando los minutos son 45\n\n45 / 60    te da .75\n\n10.00 * .75  es igual a 7.50  mas 20.00 de las dos horas TOTAl 27.50\n\nSaludos','',0,'gA==','3eong6f0',1,0,'',53,0,0),(46929,9730,6,936,0,'190.56.175.117',1201103181,1,0,1,1,1,0,'','OT: Modulo de Punto de Venta Tactil...','Hola, disculpen por el off topic, pero estaba viendo las pantallas de Lorenzo, Silvio y Manuel, en el mensaje de Presumiendo un poco, por lo que me anime a escribir este mensaje al ver que ya hay varios bastante adelantados con este tema.\n\nLes comento que un cliente me ha estado pidiendo un desarrollo de punto de venta tactil, pero por tiempo no creo poder entregarlo todavía, por lo que para no perder la venta quisiera preguntarte si alguno de los que ya tiene algo desarrollado esta en la disposición de vender los fuentes de dicho módulo, para que yo solo haga los cambios necesarios para que funcione con lo que le tengo instalado al cliente, ya que no trabajo con DBF’s sino que con MySql.\n\nBueno si a alguien le interesa, me puede enviar el precio que le pondrían a su fuentes  a esta dirección: <!-- e --><a href=\"mailto:csincuir@tecnisistemas.com\">csincuir@tecnisistemas.com</a><!-- e -->\npara evaluar la venta al cliente\n\nSaludos desde Guatemala.\n\nCarlos Sincuir\n<!-- w --><a class=\"postlink\" href=\"http://www.tecnisistemas.com\">www.tecnisistemas.com</a><!-- w -->','',0,'gA==','u8o2wvch',1,0,'',936,0,0),(46930,9727,6,1236,0,'200.146.114.232',1201103908,1,0,1,1,1,0,'','','gracias horacio e armando!','',0,'gA==','1f37qlcw',1,0,'',1236,0,0),(46931,9731,3,1257,0,'195.93.60.7',1201104078,1,0,1,1,1,1,'','DBF-Header-Information ( NTX or CDX ) with DBINFO ?','Hello, from Germany\n\nI\'m looking for the RDD-Header-Information of a DBF, \nhow the database has been created ( NTX / CDX )\nI need it, because i must know,\nif the DBF is converted from NTX to CDX.\nWithout Index and Memo, there is no way to find out. \nThe Information must be somewhere in the file-header.\n\nI checked the DBINFO - Function with all parameters,\nbut couldn\'t find a Parameter, for any informations\nwhat RDD has been used during the creation of the DBF.\nWhen the DBF has a MEMO, i can ask for the MEMO-Type ( FPT ).\nBut what to do, when there is no memo and no index ?\n\nThe Parameter DBI_RDD_VERSION returns the\nsame for NTX and CDX =&gt; a Version No., but of what ?\n\nSomebody knows what to do ?\n\nRegards\nU. König','',0,'gA==','1s53g7cr',1,0,'',1257,0,0),(46932,9732,3,1215,0,'80.18.221.53',1201104356,1,0,1,1,1,0,'','GDI objects leaks','Hola Antonio,\n\nI have found some bugs that cause GDI objects leaks.\n\n[b:3hauzrmv]TTreeVie.prg[/b:3hauzrmv]:\n\n[code:3hauzrmv]METHOD SetColor&#40; nClrText, nClrPane &#41; INLINE ;\nSuper&#58;SetColor&#40; nClrText, nClrPane &#41;, TVSetColor&#40; &#58;&#58;hWnd, nClrText, nClrPane &#41;[/code:3hauzrmv]\n\nTVSetColor increment by two the GDI objects (two brushes) in use without decrement when destroy the TreeView. If you don\'t use custom color for the treeview you can don\'t call TVSetColor so I\'ve change in:\n\n[code:3hauzrmv]METHOD SetColor&#40; nClrText, nClrPane &#41; CLASS TTreeView\n   Super&#58;SetColor&#40; nClrText, nClrPane &#41;                                                   \n   IF !Empty&#40;&#58;&#58;hWnd&#41; &#46;AND&#46; &#40; nClrText != &#58;&#58;oWnd&#58;nClrText &#46;OR&#46; nClrPane != GetSysColor&#40;COLOR_WINDOW&#41; &#41;\n      TVSetColor&#40; &#58;&#58;hWnd, nClrText, nClrPane &#41;                                            \n   ENDIF              \nRETURN NIL[/code:3hauzrmv]\n\nIf you use a ImageList with the TreeView it\'s not destroyed when you destroy the TreeView so I\'ve add the method Destroy:\n\n[code:3hauzrmv]METHOD Destroy&#40;&#41; CLASS TTreeView\n   IF !Empty&#40;&#58;&#58;oImageList&#41;                                                                \n      &#58;&#58;oImageList&#58;End&#40;&#41;                                                                  \n   ENDIF                                                                                  \nRETURN Super&#58;Destroy&#40;&#41;[/code:3hauzrmv]\n\n[b:3hauzrmv]BtnBmp.prg[/b:3hauzrmv]\n\nIn the method LoadBitmaps there\'s no call to FreeBitmaps, so if you change the bitmaps at run-time it will open the new bitmaps without closing the others.\n\n[b:3hauzrmv]xBrowse.prg[/b:3hauzrmv]\n\nSometimes the method End isn\'t called when you close the dialog. I add a inline method destroy:\n\n[code:3hauzrmv]METHOD Destroy&#40;&#41; INLINE &#58;&#58;End&#40;&#41;[/code:3hauzrmv]\n\nIn the End method of TXBrwColumn class there is the DeleteObject of the bitmaps you used. But there isn\'t the DeleteObject of the bitmap\'s palette. \n\n[code:3hauzrmv]DeleteObject&#40; &#58;&#58;aBitmaps&#91; nFor, BITMAP_PALETTE &#93; &#41;[/code:3hauzrmv]\n\nIn the SetArray method if you use lAutoOrder two bitmaps (created by FwBmpAsc() and FwBmpDes()) are added to each column. It is not necessary, you can create the two bitmap handles when create the xBrowse and use the same for each column or create when your application start and use the same for each column of each xbrowse.\n\n\nThanks\nPatrizio','',0,'QIA=','3hauzrmv',1,0,'',1215,0,0),(46933,9729,6,362,0,'200.158.19.101',1201105873,1,0,1,1,1,1,'','','[code:23hg7xjc]\nFUNCTION MAIN&#40;&#41;\n\n    SET DATE BRITISH\n    SET EPOCH TO 1950\n    SET CENTURY ON\n    SET SOFTSEEK OFF\n    SET WRAP ON\n    SETCANCEL&#40; &#46;F&#46; &#41;\n    SET CONFIRM OFF\n    SET DELETED ON\n    SET ESCAPE OFF\n    SET EXCLUSIVE OFF\n    SET MULTIPLE OFF\n\n    REQUEST DBFCDX\n    RDDSETDEFAULT&#40;&quot;DBFCDX&quot;&#41;\n    DBSETDRIVER&#40;&quot;DBFCDX&quot;&#41;\n\n    IF ISEXERUNNING&#40; CFILENAME&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n        __Quit&#40;&#41;\n    ENDIF\n\n&#46;&#46;&#46;\n[/code:23hg7xjc]','',0,'AIA=','23hg7xjc',1,0,'',362,0,0),(46934,9729,6,1104,0,'200.115.249.89',1201108951,1,0,1,1,1,0,'','','Karina.\nGracias por tu ayuda!!.\nSaludos.','',0,'AIA=','1s3068yu',1,0,'',1104,0,0),(46935,9554,6,238,0,'201.120.130.183',1201109150,1,0,1,1,1,0,'','Yo uso bastante el  Crystal reports ...','Yo uso bastante el  Crystal reports para mis aplicaciones, si aun necesitas ayuda contactame a mi msn a <!-- e --><a href=\"mailto:jluis.rosales@hotmail.com\">jluis.rosales@hotmail.com</a><!-- e --> sera un placer poder ayudarte...\n\n\nTosko','',0,'AIA=','2tsrlgaf',1,0,'',238,0,0),(46936,9733,1,819,0,'67.187.239.90',1201111835,1,0,1,1,1,0,'','Is there any debugger fivewin?','FW,\n\nDo we have line debugger for fivewin like in clipper where we can execute line by line?\n\n\nThank you,\n\nJose','',0,'AIA=','2tmcsf37',1,0,'',819,0,0),(46937,9725,6,956,0,'189.22.134.133',1201114895,1,0,1,1,1,1,'','','Solucao\n\n[code:rk7xypgr]oBmp&#58;bPainted &#58;= &#123;||DrawGray&#40;oBmp&#58;hDc,oBmp&#58;hBitmap,0,0&#41;&#125;[/code:rk7xypgr]\n\nThanks for nothing','',0,'AIA=','rk7xypgr',1,0,'',956,0,0),(46938,9734,6,492,0,'189.147.68.159',1201115301,1,0,1,1,1,1,'','Preview + SAYs + VISTA','Antonio :\n\nSuena absurdo, pero me esta pasando esto :\n\nEn algunos dialogos ( con Pages o Folders ) tengo algunos REDEFINE SAY ..... si mando imprimir algo y esta activada la opcion de mostrar el PreView me truena la app si lo desactiva no pasa nada.\n\nEn un principio pense que era la clase que estaba usando ya que le hice algunos ajustes, asi que se la quite para que tome la nativa y con ambas pasa lo mismo.\n\nSerias tan amable de hacer alguna prueba al respecto ?\n\nGracias y Saludos','',0,'AIA=','udee065t',1,0,'',492,0,0),(46939,9733,1,2,0,'87.218.146.26',1201116101,1,0,1,1,1,1,'','','Jose,\n\nCompile your PRGs using /b and the FiveWin debugger will automatically show','',0,'AIA=','3cvmyrag',1,0,'',2,0,0),(46940,9735,6,1090,0,'201.254.54.72',1201118523,1,0,1,1,1,0,'','codigo de barras con letras','Hola. Tengo una base con codigos alfanumericos; por lo general el codigo es una o 2 letras y un par de numeros; ¿conocen algun codigo de barras que pueda usar con fwh para que una lectora de codigos de barra me los lea? tengo un pequeño programita, que pasa codigos al formato ean 13, y la lectora lee perfecto, pero no me reconoce las letras... por ej, si el codigo es EZR001, la etiqueta dice 001\n¿alguien tiene idea que puedo hacer? Gracias. Atte.','',0,'AIA=','3jtnngim',1,0,'',1090,0,0),(46941,9716,6,940,0,'189.175.190.101',1201119121,1,0,1,1,1,1,'','','Loren\n\ngracias,,  \n\nme queda claro lo de los botones y como dibujarlos\n\ntiejes un ejemplo de como hacer los scrolls ?\n\ngracias por tu apoyo.\n\nmi correo  <!-- e --><a href=\"mailto:ccc_3_ccc@hotmail.com\">ccc_3_ccc@hotmail.com</a><!-- e -->','',0,'AIA=','10ed7d5p',1,0,'',940,0,0),(46942,9736,2,1088,0,'189.129.160.19',1201119863,1,0,1,1,1,0,'','error ctl3d.dll','Antonio:\nEs posible evitar el error de \"CTL3D\" que sale al ejecutar un programa en windows xp ???\n\nsin necesidad de copiar la libreria CTL3D.DLL al subdirectorio de windows\n\nsaludos','',0,'AIA=','1nmv3cdn',1,0,'',1088,0,0),(46943,9737,6,9,0,'85.60.49.29',1201123158,1,0,1,1,1,1,'','OLE y OUTLOOK EXPRESS','Tengo una aplicación que desde hace años, viene trabajando correctamente. Entre sus opciones está el enviar email con textos determinados. Para está tarea en un principio usaba DEFINE MAIL, pero mas tarde la pase a OLE [ GetActiveObject( \"Outlook.Application\" ) ].\n\nEl cliente ha actualizado MS_Offices y automaticamente se ha colado el programa MS de correo 2003. El cliente quiere seguir trabajando con el viejo Outlool Express y ha sido una verdadera odisea, el anular el correo de Office y que el programa funcione con Outlook Express. Pero el problema actual, es que con DEFINE MAIL, funciona perfectamente, pero no con OLE, y sale el error de OLE  [S_OK] al tratar de crear el objeto:\nCreateObject( \"Outlook.Application\" )\n\n¿Alguien sabe de que puede tratarse?','',0,'','ikxbotvz',1,0,'',9,0,0),(46944,9536,6,1173,0,'190.6.195.26',1201125580,1,0,1,1,1,1,'','','Saludos Antonio:\n\nHeme aqui con este lio de las BUTTONBAR en ventanas hijas (MDI).\nEs aqui cuando se da este lio, me podrias dar algun hilo para tomar este asunto para evitar este comportamiento en la clase.\n\nSaludos desde Honduras.','',0,'','toptxoy0',1,0,'',1173,0,0),(46945,9723,3,2,0,'87.218.146.26',1201125679,1,0,1,1,1,1,'','','John,\n\nPlease email me your source\\classes\\say.prg, thanks','',0,'','1q08xms6',1,0,'',2,0,0),(46946,9728,3,2,0,'87.218.146.26',1201125819,1,0,1,1,1,1,'','','Pete,\n\nCould you please post a screenshot ? thanks\n\n(use <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->)','',0,'','1uuv7zj7',1,0,'',2,0,0),(46947,9732,3,2,0,'87.218.146.26',1201126077,1,0,1,1,1,1,'','','Patrizio,\n\n&gt;\nTVSetColor increment by two the GDI objects (two brushes) in use without decrement when destroy the TreeView.\n&gt;\n\nHow do you know this ? How have you checked it ? Thanks','',0,'','24stmlku',1,0,'',2,0,0),(46948,9732,3,2,0,'87.218.146.26',1201126349,1,0,1,1,1,1,'','','Patrizio,\n\n&gt;\nIf you use a ImageList with the TreeView it\'s not destroyed when you destroy the TreeView so I\'ve add the method Destroy: \n&gt;\n\nWe can not destroy the oImageList because it may be in use from another TreeView, or other controls that use imagelists.\n\nThats why we need to specifically call oImageList:End() when we are sure that no others controls are using it\n\nWe could enhance that class to have an use counter, like we do with brushes and fonts, then we could reuse them and your code would be ok.','',0,'','18sf66gv',1,0,'',2,0,0),(46949,9732,3,2,0,'87.218.146.26',1201126729,1,0,1,1,1,1,'','','Patrizio,\n\n&gt;\nSometimes the method End isn\'t called when you close the dialog. I add a inline method destroy: \n\nMETHOD Destroy() INLINE ::End() \n&gt;\n\nI think the right solution is to rename the method End() as method Destroy() in class TXBrowse. It should be called Destroy, not End.\n\nThe right calling sequence is: End() --&gt; Destroy(). Your solution could result into a dangerous loop','',0,'','1xowfimd',1,0,'',2,0,0),(46950,9732,3,2,0,'87.218.146.26',1201126922,1,0,1,1,1,1,'','','Patrizio,\n\n&gt;\nIn the End method of TXBrwColumn class there is the DeleteObject of the bitmaps you used. But there isn\'t the DeleteObject of the bitmap\'s palette. \n&gt;\n\nIn METHOD End() CLASS TXBrwColumn there is this code:\n[code:1b18mze5]\n   for nFor &#58;= 1 to Len&#40; &#58;&#58;aBitmaps &#41;\n      PalBmpFree&#40; &#58;&#58;aBitmaps&#91; BITMAP_HANDLE &#93;, &#58;&#58;aBitmaps&#91; BITMAP_PALETTE &#93; &#41;\n   next\n[/code:1b18mze5]\nThat should destroy both the bitmaps and the palettes','',0,'AIA=','1b18mze5',1,0,'',2,0,0),(46951,9732,3,2,0,'87.218.146.26',1201127121,1,0,1,1,1,1,'','','Patrizio,\n\n&gt;\nIn the SetArray method if you use lAutoOrder two bitmaps (created by FwBmpAsc() and FwBmpDes()) are added to each column. It is not necessary, you can create the two bitmap handles when create the xBrowse and use the same for each column or create when your application start and use the same for each column of each xbrowse. \n&gt;\n\nYes, you are right, but again we face the same reuse problem: How to know when those bitmaps should be released ? How to know if other columns are using them ?','',0,'AIA=','38fpjaia',1,0,'',2,0,0),(46952,9734,6,2,0,'87.218.146.26',1201127449,1,0,1,1,1,1,'','','Raymundo,\n\nPor favor prueba a añadir esta función a tu PRG principal:\n\nfunction FixSays()\nreturn nil\n\ny comprueba si hay diferencia en el comportamiento, gracias','',0,'AIA=','38ttk1m5',1,0,'',2,0,0),(46953,9536,6,2,0,'87.218.146.26',1201127660,1,0,1,1,1,1,'','','El problema solo aparece en ventanas MDICHILD que usan buttonbars con la claúsula 2007 y cuando están activadas las mayúsculas ?\n\nPuedes proporcionarnos un PRG de ejemplo ? Es distinto al EXE que me enviastes ? gracias','',0,'AIA=','2erj60l6',1,0,'',2,0,0),(46954,9737,6,2,0,'87.218.146.26',1201127771,1,0,1,1,1,1,'','','Manuel,\n\nConsúltale a Enrico Maria que es un gran experto en OLE y Office','',0,'AIA=','l3llozj1',1,0,'',2,0,0),(46955,9733,1,819,0,'67.187.239.90',1201127973,1,0,1,1,1,0,'','','Thank you.\n\nJose','',0,'AIA=','395zwp3e',1,0,'',819,0,0),(46956,9736,2,2,0,'87.218.146.26',1201128466,1,0,1,1,1,1,'','','Yadira,\n\nQue versión de FiveWin para Clipper usas ?\n\nEse error se corrigió hace tiempo. Por favor dime que mide el fichero source\\winapi\\ctl3d.c','',0,'AIA=','37rr4fl5',1,0,'',2,0,0),(46957,9710,6,2,0,'87.218.146.26',1201129041,1,0,1,1,1,1,'','','Fernando,\n\nHay un montón de cambios de tu versión a la actual. Estas usando una versión de TRichEdit muy antigua ya.\n\nEl cambio más importante, posiblemente, es que la clase TRichEdit que usas deriva de TMultiGet, y la actual deriva de TControl.\n\nPodrías cambiar eso en la clase, y posiblemente se arregle el problema, pero casi seguro se romperan otras cosas','',0,'AIA=','30z5zwl1',1,0,'',2,0,0),(46958,9734,6,492,0,'189.147.68.159',1201131285,1,0,1,1,1,1,'','','Antonio :\n\n\nPerfecto !!!\n\nYa no me cierra la App.\n\n\nGracias, ya estaba como loco buscando por donde era la bronca !!!!\n\n\nSaludos','',0,'AIA=','9wb779d8',1,0,'',492,0,0),(46959,4780,8,1285,0,'189.158.90.14',1201131425,1,0,1,1,1,0,'','Simplemente increible lo que hace fivemac','Saludos Antonio desde Mexico soy nuevo en este foro y tambien en fiveX fui desarrollador de Clipper 5.2 y ahorita de VFP 6.0 (iniciandome en el 9) pero me encuentro con la necesidad de ya empezar a desarrollar para otras plataformas (tanto linux como mac) vi lo que hiciste de una pantalla de vfp pasarla a mac me parece increible y a la vez emocionante la idea de poder migrar mis proyectos a otras plataformas con fivemac (no se si en fivelinux pueda hacer esto) veo que le llaman editar recursos pero ¿se refieren unicamente a pantallas o tambien a informes, menus y programas vfp lo que se va a poder reutilizar? Gracias','',0,'AIA=','20w5n6do',1,0,'',1285,0,0),(46960,9738,12,1285,0,'189.158.90.14',1201132946,1,0,1,1,1,0,'','Distribucion Recomendada?','Que distribucion es recomendada para manejar fivelinux, lei en el manual fivelinux que principalmente trabaja con formato debian pero en post anteriores he visto que funciono tanto en ubunto (es entendido ya que es derivacion de debian) y fedora q es la version libre de red hat e ahi es donde entra mi duda ya que son diferentes formatos (apt-get y RPM) de ahi por que mi duda de cual es el mas recomendado para tener mayor compatibilidad y menos problemas?\n\nAprovechando otra duda existe algun paquete (tipo suite) donde contenga todas las versiones de fiveteachsoft (win,ppc,linux,macosx) ??  \n\nGracias \n\nGabino V.\nMexico','',0,'AIA=','xnhnpdeo',1,0,'',1285,0,0),(46961,9739,12,1285,0,'189.158.90.14',1201135293,1,0,1,1,1,0,'','Codigo de FiveLinux funciona en Fivewin?','Saludos, segun lo que lei en el manual de FiveLinux y en post anteriores de este foro el desarrollo en fivewin no se puede transpasar a fivelinux y solo compilarlo, mi duda es podra ser de FiveLinux a FiveWin? \n\nO cual de las 3 versiones principales (a mi ver ya que las pantallas de ppc en una desktop normal se va a ver muy pequeña) podria utilizarse como lenguaje de programacion multiplataforma (crosplataform programing languaje) ?\n\nGracias \n\nGabino V.\nMexico','',0,'AIA=','wbte9uvz',1,0,'',1285,0,0),(46962,9735,6,1255,0,'201.122.38.237',1201135478,1,0,1,1,1,0,'','','Hola Diego:\n\nDebes usar Code128.\n\nEn el siguiente link podrás descargar los programas que forman la librería BARLIB de Cayetano Gómez que contiene varios formatos de códigos de barras.\n\n<!-- m --><a class=\"postlink\" href=\"http://hyperupload.com/download/029e8f4142/BarLib2.zip.html\">http://hyperupload.com/download/029e8f4 ... 2.zip.html</a><!-- m -->\n\nSaludos\n\nManuel Mercado','',0,'AIA=','33i9d1cu',1,0,'',1255,0,0),(46963,9708,3,35,0,'65.188.6.143',1201139173,1,0,1,1,1,0,'','','Mark\n\nI have the same executable .. ver 2.12 dated 01/15/2002.\n\nRIck Lipkin','',0,'AIA=','2x51iujs',1,0,'',35,0,0),(46964,9720,2,1199,0,'189.174.99.88',1201140123,1,0,1,1,1,0,'','','Gracias antonio\n\nagradesco mucho tu respuesta, voy a probar entonces.\n\nCarlos I De La Rosa\n\n<!-- e --><a href=\"mailto:carloslmm@hotmail.com\">carloslmm@hotmail.com</a><!-- e -->','',0,'AIA=','jzoj1i5t',1,0,'',1199,0,0),(46966,9738,12,1285,0,'189.158.90.14',1201141587,1,0,1,1,1,0,'','Respuesta casi encontrada en post anteriores!!','ups lo siento Antonio creo que debi haber leido todos los post (ingles y español) antes de preguntar esto me imagino que tu recomendacion sigue siendo Ubuntu ¿o ya cambio? por lo que mencionas que es las facil. Y por lo visto aunque detectando algunos (tantos) bugs xProgramer ya ha podido desarrollar en fivelinux con exito. \n\nYo estoy utilizando la distro Elive 1.0 Gem (derivacion de debian tambien) que para mi gusto tiene el mejor GUI parecido a mac voy a intentarlo ahi y si me da problema pasare a ubuntu (despues de que lo compren claro <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSobre la suite tambien vi que es FDTN lo que yo queria solo que por no leer bien pense que era solo la subscripcion al soporte y no tambien los programas y que fwppc no esta incluido ya que no esta destinado a estar ahi (segun post anterior tuyo) que a mi gusto deberias dar la opcion ya que a profesionales y empresas de desarrollo si les interesaria (con una mejoria en el precio para que convenga en lugar de comprarlo separado  para ejemplo donde yo trabajo les interesaria completo.\n\nSaludos \n\nGabino V.\nMexico <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','16bgl4de',1,0,'',1285,0,0),(46967,9734,6,492,0,'189.147.68.159',1201144893,1,0,1,1,1,1,'','','Antonio, tal y como era de esperarse, las leyendas perdieron la transparencia en los dialogos.\n\n\nAlgo mas por hacer o probar ?\n\n\nSaludos','',0,'AIA=','12vk1l7a',1,0,'',492,0,0),(46968,9711,3,868,0,'219.64.121.60',1201148771,1,0,1,1,1,1,'','','Mr James\n\n\n[quote=&quot;James Bott&quot;:ivr6u7ss]Richard and NageswaraRao,\n\nI am at a loss as to why it isn\'t working for you. I\'m thinking it must be differences in TXBrowse. NageswaraRao, didn\'t you say in another message thread that you are using a modified TXBrowse? Could you be linking in this instead of the standard FWH version?\n\nI am using xHarbour, are you?\n\nJames[/quote:ivr6u7ss]\n\nI have tested using exact copy of your code with unmodified libraries of FWH 8.01.  The problem I reported arises occasionally under different circumstances.  One I report here.\n\n1)  Please start your application.\n    (a)  Resize the window to increase the height to bring into visibility one more row. Now thre are odd number of rows. Make sure that the number of rows displayed is an odd number.\n   (b)  Click on 2nd row. Then click on 4th tow. Then keep clicking on even rows till the last even row.\n    This is the result of the screen shot.\n\n[url=http&#58;//imageshack&#46;us:ivr6u7ss][img:ivr6u7ss]http&#58;//img81&#46;imageshack&#46;us/img81/7193/rowclrssk6&#46;jpg[/img:ivr6u7ss][/url:ivr6u7ss]\n\nThere are quite a few other circustances when the logic fails.  But I hope one example is enough.\n\nI still feel there is no substitute for the Browse calling the color codeblock with the visible row number as a parameter as we earlier discussed about tcbrowse class.','',0,'mA==','ivr6u7ss',1,0,'',868,0,0),(46969,9737,6,9,0,'80.103.161.185',1201155292,1,0,1,1,1,1,'','','Gracias Antonio','',0,'mA==','2r3e60s0',1,0,'',9,0,0),(46970,9741,3,9,0,'80.103.161.185',1201156024,1,0,1,1,1,1,'','OLE AND OUTLOOK EXPRESS','SPECIAL ATTENTION ENRICO MARIA:\n\nI have an old application working satisfactorily. Between its opcions, it has to send email, using OLE [ GetActiveObject( \"Outlook.Application\" ) ]. \n\nOne customer has actualized Offices and now his default email program it is Office-2003. He dont like that, and then I had changed (hard job) to OutLook Express again  (Internet Option + changing regedit.exe). But now the problem is that when my application try to CreateObject  ( \"Outlook.Application\" ) show the following error (S_OK error). \n\nRegards','',0,'','1hcr3oap',1,1205133242,'',9,1,0),(46971,9711,3,303,0,'72.220.181.80',1201160965,1,0,1,1,1,0,'','','NageswaraRao,\n\nI see the problem you described. I will have to think about a solution.\n\n&gt;I still feel there is no substitute for the Browse calling the color codeblock with the visible row number as a parameter as we earlier discussed about tcbrowse class.\n\nThis does not seem so easy. In addition to the visible row number you would also need to know which color the first row was in order to figure out which color to make the current row. So you would need var to keep track of this and you would have to update it each time the first visible row was a new record. Then you would have to calculate the color of the current row based on the color of the first row and the row number of the current row.\n\nJames','',0,'','gqtxdr6j',1,0,'',303,0,0),(46972,9711,3,868,0,'219.64.121.60',1201161151,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:9opwoqff]NageswaraRao,\n\nThis does not seem so easy. In addition to the visible row number you would also need to know which color the first row was in order to figure out which color to make the current row. So you would need var to keep track of this and you would have to update it each time the first visible row was a new record. Then you would have to calculate the color of the current row based on the color of the first row and the row number of the current row.\n\nJames[/quote:9opwoqff]\nYes. All that is taken care of in my tcbrowse solution. You just check if it is even or odd. Please make the modifications i suggested to tcbrowse class it will work without problem.','',0,'gA==','9opwoqff',1,0,'',868,0,0),(46973,9711,3,51,0,'80.122.88.242',1201162032,1,0,1,1,1,0,'','','Hello NageswaraRao,\nwas this the solution you suggested?\n\nBest regards,\nOtto\n\noBrw:bClrStd := { || Colores() }\n\n//-----------------------\nSTATIC FUNCTION Colores()\nLOCAL aCol:={}\nIF (ordkeyno()) % 2 == 0\naCol:={CLR_BLACK, RGB(193,221,255) }\nELSE\naCol:={CLR_BLACK, RGB(221,245,255) }\nENDIF\nRETURN (aCol)','',0,'gA==','1bnp6bbq',1,0,'',51,0,0),(46974,9711,3,868,0,'219.64.121.60',1201162142,1,0,1,1,1,1,'','','no','',0,'gA==','1dblw71h',1,0,'',868,0,0),(46975,9738,12,2,0,'87.218.146.26',1201162335,1,0,1,1,1,1,'','','Gabino,\n\nBienvenido a estos foros <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEfectivamente recomendamos Ubuntu por ser bastante amigable a la hora de instalarlo y configurarlo, y ser una distro muy bien soportada por la empresa que la produce, pero en principio podrías usar cualquier otra distribución de Linux siempre que soporte GTK.\n\nNuestro producto FTDN incluye Windows, Linux y Mac. FWPPC (Pocket PC) no está incluido, pero puede reemplazarse por FW++, en caso de no querer este último.','',0,'gA==','kskbweu1',1,0,'',2,0,0),(46976,9711,3,868,0,'219.64.121.60',1201162592,1,0,1,1,1,1,'','','Please see this link\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8842&amp;postdays=0&amp;postorder=asc&amp;highlight=tcbrowse+eval&amp;start=15\">http://fivetechsoft.com/forums/viewtopi ... l&amp;start=15</a><!-- m -->','',0,'gA==','3jwpf95f',1,0,'',868,0,0),(46977,9739,12,2,0,'87.218.146.26',1201162656,1,0,1,1,1,1,'','','Gabino,\n\nLa limitación viene dada por el nivel de desarrollo de cada versión:\n\nNuestra versión para Windows (FWH) está muy desarrollada, desde hace bastante tiempo, e incluye muchas características que no están ni en Linux ni en Mac.\n\nPor otra parte, usar FiveLinux ó FiveMac como modelo a usar, limitaría bastante las posibilidades que ofrece Windows.\n\nLa solución idónea es buscar un equilibrio, es decir, un código que con pocas modificaciones, pueda usarse en los tres sistemas operativos. Eso depende principalmente de las necesidades de la aplicación a programar.','',0,'gA==','30mt0phv',1,0,'',2,0,0),(46978,9734,6,2,0,'87.218.146.26',1201162938,1,0,1,1,1,1,'','','Vamos a revisar FixSays() para ver de donde puede venir el problema','',0,'gA==','1eeep5ty',1,0,'',2,0,0),(46979,9731,3,130,0,'141.51.32.24',1201163054,1,0,1,1,1,1,'','','Uwe,\n\nread the information direct from the dbf with the low level functions fopen(), fread()','',0,'gA==','l6w8rss2',1,0,'',130,0,0),(46980,9734,6,2,0,'87.218.146.26',1201165430,1,0,1,1,1,1,'','','Raymundo,\n\nTe enviamos por email un OBJ para que lo enlaces en tu aplicación y quites la funcióin FixSays() que añadistes.\n\nEsperamos tus comentarios, gracias','',0,'gA==','29tou8tg',1,0,'',2,0,0),(46981,9711,3,51,0,'80.122.88.242',1201165517,1,0,1,1,1,0,'','','Thank you. \nI don\'t use TCBROWSE.\nBut the code I posted works for me. \nRegards\nOtto','',0,'gA==','200ixncn',1,0,'',51,0,0),(46982,9661,3,239,0,'218.19.74.169',1201165604,1,0,1,1,1,0,'','','Antonio,\nOpen a dialog with buttons,gets, after close, the windows task manage table shows the memory not released.\n\nA xbrowse(dbf,tmysql or array data type), page up will cause memory used increase, While page down,up and down do not increase memory used.\nIt seems that releaseDC() function do not work.\nHarbour 1.1+fwh 801\n\n\nBest regards!\n\nShuming Wang','',0,'gA==','3jcoxmo6',1,0,'',239,0,0),(46983,9711,3,303,0,'72.220.181.80',1201166467,1,0,1,1,1,0,'','','You can use this line with TXBrowse and it elminates the problem described by NageswaraRao.\n\n   oBrw:bClrStd:= {|| if( (cAlias)-&gt;(ordkeyno()) % 2 == 0  ,{ CLR_BLACK, COLOR_LIGHT },{ CLR_BLACK, COLOR_DARK }) }\n\nHowever, I understand that ordkeyno() is very slow with ADS so you probably can\'t use it with ADS.\n\nJames','',0,'gA==','17pxx18g',1,0,'',303,0,0),(46984,9732,3,1215,0,'80.18.221.53',1201166655,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:mvtlh9ip]Patrizio,\n\n&gt;\nTVSetColor increment by two the GDI objects (two brushes) in use without decrement when destroy the TreeView.\n&gt;\n\nHow do you know this ? How have you checked it ? Thanks[/quote:mvtlh9ip]\n\nI use MSDN GDIndicator e GDIUsage : <!-- m --><a class=\"postlink\" href=\"http://msdn.microsoft.com/msdnmag/issues/03/01/GDILeaks/\">http://msdn.microsoft.com/msdnmag/issue ... /GDILeaks/</a><!-- m -->\n\nIn this case GDIndicator show you the type of gdi objects used by an application.\n\nI\'ve check it with this sample:\n\n[code:mvtlh9ip]PROC Main&#40;&#41;\n   LOCAL oDlg, n\n   FOR n &#58;= 1 TO 5\n      InitDialogGDI&#40;&#41;\n      SysRefresh&#40;&#41;\n      HB_GCall&#40;&#41;\n      MsgInfo&#40;&quot;GDI objects&#58;&quot; + AllTrim&#40;Str&#40;GetGDIObjects&#40;&#41;,7&#41;&#41;&#41;\n   NEXT\nRETURN\n\nPROC InitDialogGDI&#40;&#41;\n   LOCAL oDlg, oTree\n   oDlg  &#58;= TDialog&#40;&#41;&#58;New&#40;,,,,,&quot;DLG_GDI&quot;&#41;\n   oTree &#58;= TTreeView&#40;&#41;&#58;ReDefine&#40;1190,oDlg,CLR_BLUE,CLR_YELLOW,&#46;T&#46;,&quot;l0&quot;&#41;\n   oDlg&#58;Activate&#40;,,,&#46;F&#46;,&#123;||&#46;T&#46;&#125;,&#46;T&#46;,,,,&#41;\n   oDlg&#58;End&#40;&#41;\nRETURN\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;WinUser&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\nHB_FUNC&#40; GETGDIOBJECTS &#41;\n&#123;\n   hb_retnd&#40; GetGuiResources&#40; GetCurrentProcess&#40;&#41;, 0 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:mvtlh9ip]\n\n[code:mvtlh9ip]DLG_GDI DIALOG DISCARDABLE 0, 0, 616, 428\nSTYLE DS_CENTER|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_MINIMIZEBOX|WS_MAXIMIZEBOX|WS_VISIBLE\nCAPTION &quot;GDI&quot;\nFONT 8, &quot;MS Sans Serif&quot;\nBEGIN\n  CONTROL &quot;&quot;, 1190, &quot;SysTreeView32&quot;, TVS_HASBUTTONS|TVS_HASLINES|TVS_LINESATROOT|TVS_EDITLABELS|TVS_SHOWSELALWAYS|TVS_NOTOOLTIPS|TVS_FULLROWSELECT|WS_BORDER|WS_TABSTOP, 8, 36, 220, 312\nEND[/code:mvtlh9ip]','',0,'gIA=','mvtlh9ip',1,0,'',1215,0,0),(46985,9741,3,6,0,'79.9.233.3',1201168199,1,0,1,1,1,1,'','Re: OLE AND OUTLOOK EXPRESS','Outlook Express doesn\'t support OLE. You have to install Office Outlook (any version) instead.\n\nEMG','',0,'gIA=','jeojufzd',1,0,'',6,0,0),(46986,9677,3,2,0,'87.218.146.26',1201168288,1,0,1,1,1,1,'','','Almost finished:\n\n[url=http&#58;//imageshack&#46;us:2rwb6bef][img:2rwb6bef]http&#58;//img246&#46;imageshack&#46;us/img246/226/tabsaw5&#46;png[/img:2rwb6bef][/url:2rwb6bef]','',0,'GA==','2rwb6bef',1,0,'',2,0,0),(46987,9678,6,2,0,'87.218.146.26',1201168354,1,0,1,1,1,1,'','','Casi terminados:\n\n[url=http&#58;//imageshack&#46;us:xfhzyluw][img:xfhzyluw]http&#58;//img246&#46;imageshack&#46;us/img246/226/tabsaw5&#46;png[/img:xfhzyluw][/url:xfhzyluw]','',0,'GA==','xfhzyluw',1,0,'',2,0,0),(46988,9661,3,2,0,'87.218.146.26',1201168637,1,0,1,1,1,1,'','','Shuming,\n\nCould you please check it with fwh\\samples\\TestXBrw.prg and check if you also have problems with it ? thanks','',0,'GA==','3r76jdod',1,0,'',2,0,0),(46989,9709,6,1055,0,'84.122.57.235',1201169064,1,0,1,1,1,0,'','','Lo intentaré Gracias','',0,'GA==','2crtkold',1,0,'',1055,0,0),(46990,4780,8,2,0,'87.218.146.26',1201169149,1,0,1,1,1,1,'','','Gabino,\n\nLas librerías FiveWin estan muy orientadas al lenguaje Clipper (usando ahora Harbour, que es compatible, open source y 32 bits).\n\nEn Clipper no usamos tanto los elementos que usa VFP, pero por otra parte VFP almacena casi todos sus diseños en DBFs (renombradas) por lo que es fácil tomar los datos de esas DBFs y convertirlos adecuadamente.\n\nAsí es como hemos pasado en ese ejemplo, el diálogo de VFP a FiveMac <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'GA==','3fsylt8p',1,0,'',2,0,0),(46991,9731,3,2,0,'87.218.146.26',1201169290,1,0,1,1,1,1,'','','U. König,\n\nWhat you want to know is if it uses NTX or CDX ?','',0,'GA==','30hnewky',1,0,'',2,0,0),(46992,9718,6,1055,0,'84.122.57.235',1201169524,1,0,1,1,1,0,'','','Gracias. Creo que el problema está en que no utilizo Window como ventana principal, porque era un programita muy simple y usé un dialogo como principal. Y porque en FW a 16 bits no tenía ese problema.\n\nMuchas Gracias a todos por laprompta respuesta.','',0,'GA==','1q3fkjnk',1,0,'',1055,0,0),(46993,9661,3,2,0,'87.218.146.26',1201170035,1,0,1,1,1,1,'','','Shuming,\n\nYou may also use this:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=46984\">http://fivetechsoft.com/forums/viewtopic.php?p=46984</a><!-- m -->\n\nReview Patrizio\'s explanation about MSDN GDIndicator e GDIUsage','',0,'GA==','3et7spxc',1,0,'',2,0,0),(46994,9732,3,1215,0,'80.18.221.53',1201170419,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2e8c15yo]In METHOD End() CLASS TXBrwColumn there is this code:\n[code:2e8c15yo]\n   for nFor &#58;= 1 to Len&#40; &#58;&#58;aBitmaps &#41;\n      PalBmpFree&#40; &#58;&#58;aBitmaps&#91; BITMAP_HANDLE &#93;, &#58;&#58;aBitmaps&#91; BITMAP_PALETTE &#93; &#41;\n   next\n[/code:2e8c15yo]\nThat should destroy both the bitmaps and the palettes[/quote:2e8c15yo]\n\n[code:2e8c15yo]PROC Main&#40;&#41;\n   LOCAL aBitmaps &#58;= &#123;&#125;\n   LOCAL aBmp1, aBmp2, aBmp3, n\n   FOR n &#58;= 1 TO 5\n      aBitmaps &#58;= &#123;&#125;\n      aAdd&#40;aBitmaps,PalBmpLoad&#40; &quot;TEST_GDI&quot; &#41;&#41;\n      PalBmpFree&#40; aBitmaps&#91;1,1&#93;, aBitmaps&#91;1,2&#93; &#41;\n      SysRefresh&#40;&#41;\n      HB_GCall&#40;&#41;\n      MsgInfo&#40;&quot;GDI objects&#58;&quot; + AllTrim&#40;Str&#40;GetGDIObjects&#40;&#41;,7&#41;&#41;&#41;\n   NEXT\nRETURN\n\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n#include &lt;Windows&#46;h&gt;\n#include &lt;WinUser&#46;h&gt;\n#include &lt;ClipApi&#46;h&gt;\n\nHB_FUNC&#40; GETGDIOBJECTS &#41;\n&#123;\n   hb_retnd&#40; GetGuiResources&#40; GetCurrentProcess&#40;&#41;, 0 &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:2e8c15yo]\n\n[code:2e8c15yo]TEST_GDI    BITMAP &quot;C&#58;\\\\FWH\\\\BITMAPS\\\\16x16\\\\Copy2&#46;bmp&quot;[/code:2e8c15yo]\n\nAfter the first the counter of gdi objects increments by one for each iteration (the first count the gdi objects of the msginfo). \n\nIf you add\n\n[code:2e8c15yo]DeleteObject&#40;aBitmaps&#91;1,1&#93;&#41;\nDeleteObject&#40;aBitmaps&#91;1,2&#93;&#41;[/code:2e8c15yo]\n\nafter PalBmpFree the counter be stable.','',0,'gIA=','2e8c15yo',1,0,'',1215,0,0),(46995,9731,3,9,0,'80.103.161.185',1201170492,1,0,1,1,1,1,'','Re: DBF-Header-Information ( NTX or CDX ) with DBINFO ?','[quote=&quot;ukoenig&quot;:2gem5dxb]Somebody knows what to do ?\n[/quote:2gem5dxb]\n\n\nFUNCTION CabDbf (cNom)\nLOCAL nHnd, cBytes, nCdx, cCdx\ncNom := cNom + \'.dbf\'\n\n// öffnen wir die Datei exclusiv  (binary)\n// Abrimos el fichero en exclusiva (binario)\n IF (nHnd := FOpen( cNom, 18 )) &gt; 0\n\n      // gehe wir zu byte 28\n      // vamos al byte 28\n      FSeek( nHnd, 28 )\n\n      // beginnen wir die Variable\n      // iniciamos la variable\n      cBytes := \'0\'\n\n      // esen wir die Hauptpunkte der byte 28\n      // leemos en la cabecera el byte 28\n      FRead(nHnd, @cBytes, 1)\n      nCdx := Bin2I(cBytes)\n      IF nCdx = 1\n         cCdx := \"Table CDX\"\n      ELSE\n         cCdx := \"NICHT CDX\"\n      ENDI\n\n      MSGINFO ( cCdx )\n\n      FClose(nHnd)\n ENDIF\n\nRETURN nil\n\nEntschuldigen sie bitte mein deutsch\n\nTschüss','',0,'gA==','2gem5dxb',1,0,'',9,0,0),(46996,9732,3,2,0,'87.218.146.26',1201170910,1,0,1,1,1,1,'','','Patrizio,\n\nMany thanks for your information. We are going to fix it \n\nWe really appreciate your feedback,','',0,'gA==','2ub3ijwj',1,0,'',2,0,0),(46997,9741,3,9,0,'80.103.161.185',1201171129,1,0,1,1,1,1,'','Re: OLE AND OUTLOOK EXPRESS','[quote=&quot;EnricoMaria&quot;:2dn23u83]Outlook Express doesn\'t support OLE. You have to install Office Outlook (any version) instead.\n\nEMG[/quote:2dn23u83]\n\nEnrico Maria, \n\nI believe you, but I am using OLE + OutLook Express in my Laptop.  I have problem only which one person, after he has installed Office 2003.\nWith Office 2003 also working ok OLE, but I taked off Office 2003 and activating Outlook Express and now only working with DEFINE MAIL.\n\nRegars','',0,'gA==','2dn23u83',1,0,'',9,0,0),(46998,9711,3,868,0,'219.64.121.60',1201171417,1,0,1,1,1,1,'','','OrdKeyNo() always works. \nIf we are browsing arrays we should consider Array row number. Like that depending on what we browse we shoud write the code.\n\nBut we were looking for a common solution which works irrespective of the data source being browsed.\n\nIt is good if we can make our code for common tasks as generic and as reusable as possible. That improves the productivity of normal application development.','',0,'gA==','2eshvb4p',1,0,'',868,0,0),(46999,9711,3,303,0,'72.220.181.80',1201173521,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;But we were looking for a common solution which works irrespective of the data source being browsed. \n\nAgreed. I haven\'t found a good common solution. I just posted the OrdKeyNo() as a temporary solution for DBFs.\n\nJames','',0,'gA==','2i17fac9',1,0,'',303,0,0),(47000,9716,6,960,0,'217.12.16.52',1201173549,1,0,1,1,1,0,'','','Silvio,\npara imprimir ticket yo utilizo siempre la clase TDosprn. La puedes encontrar en las Utilidades de este foro. Viene con ejemplos incluido.\n\nLos codigos de escape son casi siempre genericos para todas las impresoras de ticket:\n\nActivar letra grande: CHR(27)+CHR(33)+CHR(25)   \nDesact letra grande: CHR(27)+CHR(33)+CHR(4)  \nLetra tamaño normal: CHR(27)+CHR(105)  \nActivar letra comprimida: CHR(27)+CHR(64) \nDesact. letra comprimida: CHR(27)+CHR(33)+CHR(4)   \nApertura cajon portamonedas: CHR(27)+\"P\"+CHR(0)+CHR(25)+CHR(250)\nCorte automatico de papel: CHR(27)+CHR(105)\n\nUn saludo.\nLORENZO','',0,'gA==','2e86d5ga',1,0,'',960,0,0),(47001,9677,3,267,0,'201.9.171.230',1201173842,1,0,1,1,1,1,'','','Antonio,\n\nAnd in the other controls the 2007 definition of colors must also be made through bitmaps?','',0,'gA==','21bn3tyb',1,0,'',267,0,0),(47002,9728,3,460,0,'217.37.54.49',1201174570,1,0,1,1,1,0,'','','Antonio,\n\nI\'ve uploaded an image - on the left is how the outlook bar looks if i add enough buttons to cause a scroll - on the right is how it should look\n\n[url=http&#58;//img444&#46;imageshack&#46;us/my&#46;php?image=iwsmenuep0&#46;jpg:pz6oa390][img:pz6oa390]http&#58;//img444&#46;imageshack&#46;us/img444/4701/iwsmenuep0&#46;th&#46;jpg[/img:pz6oa390][/url:pz6oa390]','',0,'GA==','pz6oa390',1,0,'',460,0,0),(47003,9677,3,2,0,'87.218.146.26',1201175459,1,0,1,1,1,1,'','','Vilian,\n\nIn Class TMsgBar yes, it also uses a bitmap','',0,'GA==','2gprzslz',1,0,'',2,0,0),(47004,9731,3,1257,0,'195.93.60.7',1201175811,1,0,1,1,1,1,'','','Dear Mr. Valdenebro\n\nThank you very much for the function.\nIt works great.\nIt is exactly, what i need.\nAs a sample :\nWhen i work with NTX and CDX together\nand use a wrong RDD. i had some problems\nbecause =&gt; \nDEFAULT = \"NTX. I open a CDX-DBF\ni cannot look for the ???.CDX .and. ???.FPT\nthe CDX - name is not the same like the DBF with no MEMO, \nthere was no chance to look for the type.\n\nRegards\n\nUwe König','',0,'GA==','1qmqo7x7',1,0,'',1257,0,0),(47005,9741,3,6,0,'79.9.233.3',1201177380,1,0,1,1,1,1,'','Re: OLE AND OUTLOOK EXPRESS','I think you have Office Outlook installed in your laptop, even if it is not the default email application. As far as I know, Outlook.Application can\'t work without it.\n\nEMG','',0,'GA==','1m4dl5p3',1,0,'',6,0,0),(47006,9720,2,248,0,'212.145.179.68',1201178062,1,0,1,1,1,0,'','local y on line','Con un windows server 2003 y usando la opcion de terminal server, puedes hacerlo tanto localemente (red) o en online a traves de web instalando el tsweb (opcion terminal server) o lo que yo hago acceso a escritorio remoto, funciona todo ok.','',0,'GA==','2j9xqp6d',1,0,'',248,0,0),(47007,9728,3,610,0,'189.18.0.27',1201178282,1,0,1,1,1,0,'','','I solved like this\n\nin OUTLOOK.PRG\n\nMETHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaintOld()\n\nin WINDOW.PRG\n\n   METHOD EndPaint() INLINE ::nPaintCount--,;\n                     EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil, 0 // keep this zero here!\n\n   METHOD EndPaintOld() INLINE ::nPaintCount--,;\n                     EndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil','',0,'GA==','1amyjziq',1,0,'',610,0,0),(47008,9742,3,297,0,'217.57.213.130',1201179233,1,0,1,1,1,0,'','Porting to Mac','Any concrete experience in porting From FWH to FMC?\nIs it difficult?\nIs it laboriuos?\nis it dangerous?\n\n\ndbfcdx + dbffpt , local area network, jpg, read and create word document \nread and create and excel document....well as usual!\n\n\nAnd what about utilization of graphical librearies such as \nFreeImage.dll or libgfl254.dll\n\nThanks in advance\nmarco : <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'GA==','1du388cb',1,0,'',297,0,0),(47009,9742,3,2,0,'87.218.146.26',1201180636,1,0,1,1,1,1,'','','Marco,\n\nFiveMac is not at that stage yet. We can not talk about \"port\" from FWH to FMC.\n\nFiveMac actually is usefull to build not very complex applications. Lets say like an early FiveWin version. \n\nHarbour is fully working so you have DBFs, indexes, etc. and FiveMac provides main pulldown menu, windows, dialogs, controls and browses.','',0,'GA==','3gxm3eri',1,0,'',2,0,0),(47010,4780,8,92,0,'213.96.45.6',1201181267,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:n5qgzht2]\n... hasta que tengamos disponible nuestro propio editor de ventanas. [/quote:n5qgzht2]\n\nAntonio,\n\nFiveTechSoft está trabajando o tiene en cartera hacerlo, en su propio editor de ventanas?\n\nSaludos\nCarlos G.','',0,'gA==','n5qgzht2',1,0,'',92,0,0),(47011,9735,6,1090,0,'201.254.54.72',1201183048,1,0,1,1,1,0,'','Para harbour??','Hola. Gracias por la respuesta. ¿esto funciona para harbour? ¿tiene algun ejemplo de como funciona? probe incluir el barlib.ch en el include, pero no me permite ejecutar el code128. ¿que puede ser? gracias. Atte.','',0,'gA==','10rbna2t',1,0,'',1090,0,0),(47012,9743,6,1072,0,'201.214.33.214',1201183238,1,0,1,1,1,0,'','Para Manuel Mercado','Maestro:\n\nQuisiera saber  cual es la ultima version de TSBROWSE para FWH.\n\nTu sabes que habemos muchos que usamos esta fabulosa clase.\n \nEternamente agradecido,\n\nSaludos,\nAntonio','',0,'gA==','9gupwaul',1,0,'',1072,0,0),(47013,9716,6,389,0,'189.132.54.24',1201184271,1,0,1,1,1,0,'','','Loren,\nSimplemente excelente !!.. \nGABO','',0,'gA==','1zfrksvq',1,0,'',389,0,0),(47014,9718,6,78,0,'190.43.177.41',1201184765,1,0,1,1,1,0,'','','Prueba con el ejemplo que te puse arriba, funciona con un DIALOG....\nSalu2','',0,'gA==','2criiuyi',1,0,'',78,0,0),(47015,4780,8,1285,0,'189.158.92.191',1201185873,1,0,1,1,1,0,'','','Antonio\n\nDebo imaginarme entonces que tu pasaste manualmente (o con funciones tuyas) ese ejemplo de de VFP a FiveMac y que no hay herramientas para esa conversion automaticas verdad? Ya que aunque como tu dices es facil tomar los datos de las DBFs y convertirlos muchos no tenemos los conocimientos o el tiempo de investigar la conversion de todo, no crees que hay mucho pontencial el ofrecer esas herramientas ya que muchos desarrolladores vfp tienen la necesidad o curiosidad de incursionar en otras plataformas aprovechando todo sus conocimientos? siento que FiveMac o FiveLinux es la solucion no crees?','',0,'gA==','384qnxre',1,0,'',1285,0,0),(47016,9744,6,960,0,'84.125.196.99',1201186308,1,0,1,1,1,0,'','Mascara / Picture','Compañeros:\n\nTengo un cliente que me exige cambiarle la mascara PICTURE de su modelo de factura. Necesita que en los importe, el millar lo separe con PUNTOS y la parte decimal con COMAS. Por ejemplo\n\nimporte:  12.343,20        y no como hasta ahora: 12,343.20\n\n¿ Hay alguna mascara PICTURE que realiza esto ? ¿Alguna sugerencia?\nMil gracias\nLORENZO','',0,'gA==','391ztctu',1,0,'',960,0,0),(47017,9716,6,49,0,'213.82.134.66',1201186502,1,0,1,1,1,1,'','','Loren,\ncan you insert here an sample of a Ticket ?\nCan I show the ticket with tdosprn also on video ?\n\n\nI must print this :\n\n\n\n[img:3kany74a]http&#58;//img530&#46;imageshack&#46;us/img530/577/scontrinofiscalete5&#46;jpg[/img:3kany74a]\n\n\n\nthen I must save the ticket on cash','',0,'CA==','3kany74a',1,0,'',49,0,0),(47018,9734,6,492,0,'189.147.68.161',1201188242,1,0,1,1,1,1,'','','Antonio :\n\nTe muestro los resultados\n\n\nSin el OBJ enviado :\n\nAntes del proceso que actualiza los SAYs\n[img:2qqjic5b]http&#58;//img176&#46;imageshack&#46;us/img176/8043/sinparche1yg6&#46;jpg[/img:2qqjic5b]\n\n\nDespues del proceso\n[img:2qqjic5b]http&#58;//img297&#46;imageshack&#46;us/img297/4738/sinparche2gg5&#46;jpg[/img:2qqjic5b]\n\n\n\n\nCon el OBJ enviado :\n\n\nAntes del Proceso que actualiza los SAYs\n[img:2qqjic5b]http&#58;//img209&#46;imageshack&#46;us/img209/3821/conparche1xk1&#46;jpg[/img:2qqjic5b]\n\n\nDespues del proceso\n[img:2qqjic5b]http&#58;//img209&#46;imageshack&#46;us/img209/7983/conparche2mv4&#46;jpg[/img:2qqjic5b]\n\n\n\n\n\nComo puedes observar, no me respeta el tamano del SAY y luego muestra un cuadro gris/blanco.\n\n\nSaludos','',0,'CA==','2qqjic5b',1,0,'',492,0,0),(47019,9744,6,644,0,'201.253.76.69',1201189268,1,0,1,1,1,0,'','','Loren Usa el picture de esta manera \"@E999,999.99\" Saludos','',0,'CA==','2wm4r2fo',1,0,'',644,0,0),(47020,9716,6,53,0,'189.139.218.20',1201189640,1,0,1,1,1,1,'','','Silvio:\n\nThere is the TDosPrt class with preview, ask for it on this forum.\n\nI can\'t send it to you because I haven\'t.\n\nRegards','',0,'CA==','1fo43ffs',1,0,'',53,0,0),(47021,9735,6,92,0,'80.25.24.19',1201189946,1,0,1,1,1,0,'','Re: Para harbour??','[quote=&quot;diegopolverelli&quot;:1mldb23o]Hola. Gracias por la respuesta. ¿esto funciona para harbour? ¿tiene algun ejemplo de como funciona? probe incluir el barlib.ch en el include, pero no me permite ejecutar el code128. ¿que puede ser? gracias. Atte.[/quote:1mldb23o]\n\nFunciona perfectamente con Harbour.\n\nYo compilo y luego linco los ficheros:\nBANNER.prg\nBARLIB.prg\nCODABAR.prg\nCODE3DE9.prg\nCODE128.prg\nEAN13.prg\nGO_CODE.prg\nINT25.prg\n\nal fichero que realiza la impresión añado:\n #INCLUDE \"Barcode.CH\"\n\ny a imprimir.\n\nSaludos\nCarlos G.','',0,'gA==','1mldb23o',1,0,'',92,0,0),(47025,9748,6,1104,0,'200.115.249.191',1201191670,1,0,1,1,1,0,'','Duda con ListBox','Hola a todos.\nNecesito pintar la primera fila de un ListBox. (Solo la primera y que el color quede fijo)\nNo he encontrado un método que me permita pintar la fila.\nAlguien tiene una idea de cómo puedo hacerlo?\nDesde ya muchas gracias.\nSaludos, Esteban.','',0,'gA==','3sx4zf1n',1,0,'',1104,0,0),(47026,9748,6,362,0,'200.158.19.101',1201192103,1,0,1,1,1,1,'','','CREO QUE LA TWBROWSE DE HERNAN CECCARELI LO HAGA.\n\nEN LA TWBROWSE STANDAR DE FIVEWIN NO CONOZCO.\n\nLA TSBROWSE BY MANUEL MERCADO TANBIÉN.','',0,'gA==','6wq5chly',1,0,'',362,0,0),(47027,9734,6,2,0,'87.218.146.26',1201192465,1,0,1,1,1,1,'','','Raymundo,\n\nTe enviamos un nuevo OBJ corregido,\n\nEsperamos los resultados, gracias!','',0,'gA==','2akypdt0',1,0,'',2,0,0),(47028,4780,8,2,0,'87.218.146.26',1201193050,1,0,1,1,1,1,'','','Carlos,\n\nNosotros usamos recursos estandard de Windows, para el diseño de diálogos, por lo que puede usarse cualquier editor de recursos de los existentes','',0,'gA==','1y3gmu39',1,0,'',2,0,0),(47029,4780,8,2,0,'87.218.146.26',1201193269,1,0,1,1,1,1,'','','Gabino,\n\nDe momento no está en nuestros planes el ofrecer un sistema automatizado para portar aplicaciones de VFP a FiveMac, FiveLinux.\n\nEsto es debido principalmente a que la gran mayoría de los programadores estan en Windows.','',0,'gA==','4xtf48yr',1,0,'',2,0,0),(47030,9748,6,2,0,'87.218.146.26',1201193518,1,0,1,1,1,1,'','','Esteban,\n\nTe refieres a un browse ?','',0,'gA==','3g2w5c75',1,0,'',2,0,0),(47031,9728,3,2,0,'87.218.146.26',1201193742,1,0,1,1,1,1,'','','Pete,\n\nHave you tried Giovany\'s suggestion ?\n\nIt would be enough to add this method to Class TOutLook:\n\nMETHOD EndPaint() INLINE ::nPaintCount--,; \nEndPaint( ::hWnd, ::cPS ), ::cPS := nil, ::hDC := nil','',0,'gA==','2cqo0b3w',1,0,'',2,0,0),(47032,9748,6,1104,0,'200.115.249.191',1201193966,1,0,1,1,1,0,'','','Si antonio.\n\nLo estoy redefiniendo así: \n\n[code:3p4hgsjl]\n   REDEFINE LISTBOX oLbx;\n      FIELDS Vector1&#91;nItem1&#93;,Vector2&#91;nItem1&#93;;\n      HEAD &quot;Codigo&quot;,&quot;Descripcion&quot;;\n      SIZES 90,120;\n      ID 1000 OF oDlg1;\n      UPDATE\n\n   oLbx&#58;bGoTop    &#58;=&#123;|| nItem1 &#58;= 1 &#125;\n   oLbx&#58;bGoBottom &#58;=&#123;|| nItem1 &#58;= Eval&#40; oLbx&#58;bLogicLen &#41; &#125;\n   oLbx&#58;bSkip     &#58;=&#123;| nWant, nOld | nOld &#58;= nItem1, nItem1 += nWant,;\n                      nItem1 &#58;= Max&#40; 1, Min&#40; nItem1, Eval&#40; oLbx&#58;bLogicLen &#41; &#41; &#41;,;\n                      nItem1 - nOld &#125;\n   oLbx&#58;bLogicLen &#58;=&#123;|| Len&#40; Vector1 &#41; &#125;\n   oLbx&#58;aJustify  &#58;=&#123;&#46;f&#46;,&#46;f&#46;&#125;\n\n[/code:3p4hgsjl]\n\nSaludos.','',0,'AIA=','3p4hgsjl',1,0,'',1104,0,0),(47033,9748,6,2,0,'87.218.146.26',1201194064,1,0,1,1,1,1,'','','A que te refieres con la primera fila ?\n\nPuedes mostrar una imagen del resultado que necesitas ? Aunque sea dibujándolo (usa <!-- w --><a class=\"postlink\" href=\"http://www.imageshack.us\">www.imageshack.us</a><!-- w -->)','',0,'AIA=','3mhznd3l',1,0,'',2,0,0),(47034,9734,6,492,0,'189.147.68.161',1201194096,1,0,1,1,1,1,'','','Excelente !!\n\n\nSo Far So Good  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nYa no muestra las fallas anteriores, de todos modos si veo algo anormal te comento.\n\n\n\nSaludos','',0,'AIA=','2o3vjn5g',1,0,'',492,0,0),(47035,9734,6,2,0,'87.218.146.26',1201194157,1,0,1,1,1,1,'','','Raymundo,\n\nGracias por la información!  <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','urxdr29a',1,0,'',2,0,0),(47036,9720,2,2,0,'87.218.146.26',1201194488,1,0,1,1,1,1,'','','También tienes la opción gratuita de LogMeIn: \n<!-- w --><a class=\"postlink\" href=\"http://www.logmein.com\">www.logmein.com</a><!-- w -->\n\nFunciona realmente extraordinario.','',0,'AIA=','1rrethy3',1,0,'',2,0,0),(47037,9695,6,987,0,'189.132.32.90',1201194762,1,0,1,1,1,0,'','','Ok va, para toda la comunidad:  <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) --> \n\nEsta es una modificacion de la funcion ERRORSYS.PRG modificada, para que garde un registro en una DBF detallada de todos los errores generados por la aplicacion, contiene el codigo fuente de otras funciones necesarias para el uso completo de esta modificacion.\n\nCabe destacar que el nombre de la imagen guardada nunca sera repetida, ya que controlo esto dentro de la funcion de guardar imagen..\n\nSolo hace falta anexar los archivos a su aplicacion:  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nERRORSYS.PRG que el el que genera toda la informacion y las imagenes\nERRORES.PRG que permite la vozualizacion de las imagenes generadas..\n\nEste es el enlace para bajarlo... Si alguien gusta modificar algo que sea importante, lo puede hacer..\n\nespero sus comentario y criticas al respecto... Que lo disfruten..\n <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n[url:d2tn0obc]http&#58;//rapidshare&#46;com/files/86274323/ErrorSys&#46;zip&#46;html[/url:d2tn0obc][/url]','',0,'EA==','d2tn0obc',1,0,'',987,0,0),(47038,9748,6,1104,0,'200.115.249.191',1201194985,1,0,1,1,1,0,'','','Antonio\nLo que necesito es que la línea en verde siempre quede en verde,\nindependientemente de cual sea la línea seleccionada.\n\n[url=http&#58;//imageshack&#46;us:wvt12ii2][img:wvt12ii2]http&#58;//img206&#46;imageshack&#46;us/img206/5952/dibujoxf0&#46;jpg[/img:wvt12ii2][/url:wvt12ii2]\n\nEspero tu respuesta.\nSaludos.','',0,'GA==','wvt12ii2',1,0,'',1104,0,0),(47039,9748,6,2,0,'87.218.146.26',1201195242,1,0,1,1,1,1,'','','Todo lo que necesitas es determinar que condición cumple esa primera línea:\n\noBrowse:nClrPane = { || If( &lt;se cumple condición&gt;, VERDE, otro_color ) }','',0,'GA==','1qblyr3u',1,0,'',2,0,0),(47040,9735,6,1090,0,'201.254.35.7',1201195851,1,0,1,1,1,0,'','una mas... y prometo no jorobar mas','Gracias... funciona de 10... una maravilla... pero tengo un pequeño drama extra... los codigos tienen guiones, por ej: A01-01-001\ncuando uso el code128, y leo con la pistola de codigo de barras (que segun internet lee este tipo de codigos), me lee A01\'01\'001\n\n¿alguna idea?\n\nmil gracias desde ya. Atte.','',0,'GA==','37c348j3',1,0,'',1090,0,0),(47041,9743,6,1255,0,'148.221.251.185',1201195965,1,0,1,1,1,0,'','Re: Para Manuel Mercado','[quote=&quot;mantonio_08&quot;:117u70ge]Maestro:[/quote:117u70ge]\n En FWH y (x)Harbour soy principiante de aprendiz  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n[quote=&quot;mantonio_08&quot;:117u70ge]Quisiera saber  cual es la ultima version de TSBROWSE para FWH.\n[/quote:117u70ge]\nLa última que publiqué fue la 7.0 y en estos días (en cuanto haga unas últimas pruebas  en 32 bits) publicaré la clase como la tengo en este momento, será la versión 8.0 aunque veo difícil detallar los cambios contra la versión 7.0 ya que ha pasado mucho tiempo y, aunque no al ritmo de antes, he seguido usándola y tratando de mejorarla.\n\nSaludos\n\nManuel Mercado','',0,'gA==','117u70ge',1,0,'',1255,0,0),(47042,9695,6,362,0,'200.158.19.101',1201196807,1,0,1,1,1,1,'','','Perfecto, amigo.\n\nMuchas gracias.','',0,'gA==','20n2n9do',1,0,'',362,0,0),(47043,9748,6,1104,0,'200.115.249.191',1201196911,1,0,1,1,1,0,'','','Muchas gracias Antonio.\nFuncionó perfecto!!\nAhora bien, si no es mucho pedir, hay alguna forma no poder seleccionar la primera línea.\nEs decir que solo se puedan seleccionar desde la línea 2 hasta la última.\nDesde ya muchas gracias.','',0,'gA==','g0b6au5g',1,0,'',1104,0,0),(47044,9748,6,2,0,'87.218.146.26',1201198580,1,0,1,1,1,1,'','','Posiblemente se pueda hacer de distintas formas. Prueba asi:\n\noBrowse:bChange = { || If( &lt;se cumple condición de primera linea&gt;, oBrowse:GoDown(), nil ) }','',0,'gA==','3kt3gpdu',1,0,'',2,0,0),(47045,9743,6,1072,0,'200.72.74.190',1201200141,1,0,1,1,1,0,'','','Estimado maestro Manuel\n\ngracias por darte el tiempo de responderme,, la clase es un lujo para los que la utilizamos,, y creo q somos muchos los que la usamos, solo que a veces el trabajo te llena tanto y te mantiene tan ocupado que no posteamos.\n\nbueno aun tengo algunas dudas, no con la clase sino con los cambios que al parecer muchos de nosotros hemos implementado para que vuestra clase cumpliera las necesidades en los cambios que FWH ha sufrido.. \n\ny esa es mi duda:: como podria obtener la TSBROWSE,, la original la que usas tu,, y si los usuarios de TSBROWSE podrian en conjunto contigo refundir los cambios que ha sufrido la clase... para asi, existiera solo una y no muchas que hay por ahi.. \n\npodrias si no fuera mucha la molestia y la patudes subir la clase que usas,, la 7 segun dijiste, ya que un buen amigo me presto una pero no me funciona algo basico,, y nose como corregirlo,, debe ser que como dije la clase esta modificada para el uso personal de algun fivewinero de por ahi...\n\n\nsin mas molestarte me despido y quedo a tu respuesta...','',0,'gA==','e4rv6qt8',1,0,'',1072,0,0),(47046,9749,6,1030,0,'200.115.249.89',1201201581,1,0,1,1,1,0,'','problemas con la letra Ñ','Hola a todos!!\nEstoy intentando escribir en un say desde el codigo la palabra año que contiene la letra Ñ y me muestra otra cosa.\nYa probe con la funcion OEMTOANSI(\"Años\") y viceversa y no funciono.\nAlguien tuvo ya este problema?\nAgradeceria su ayuda.\n\nSlds!','',0,'gA==','11vuo8cs',1,0,'',1030,0,0),(47047,9748,6,1104,0,'200.115.249.89',1201203953,1,0,1,1,1,0,'','','Antonio.\nGracias por tu atención.\nFuncionó perfecto!!\nSaludos, \nDesde Argentina, Esteban','',0,'gA==','3nkzd7wi',1,0,'',1104,0,0),(47048,9750,6,400,0,'201.68.32.6',1201205261,1,0,1,1,1,1,'','Centered..MsgItem ...','Como posso centralizar los itens, na MgsItem:\n\n1-)\n[img:2zm3nonh]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/msgbar1&#46;JPG[/img:2zm3nonh]\n\n2-)\n[img:2zm3nonh]http&#58;//www&#46;technet&#46;com&#46;br/~jackson/sbsarq/bmps/msgbar2&#46;JPG[/img:2zm3nonh]\n\nSaluds','',0,'CA==','2zm3nonh',1,0,'',400,0,0),(47049,9736,2,1088,0,'189.129.254.31',1201208150,1,0,1,1,1,0,'','','Alguien me que me pueda ayudar para evitar que salga el mensaje de CTL3D.DLL o \ncomo la puedo integrar al programa para que no la necesite\n\ncuando instalo en windows xp','',0,'CA==','2d0uaq6y',1,0,'',1088,0,0),(47050,9736,2,2,0,'87.218.146.26',1201210097,1,0,1,1,1,1,'','','Que versión de FiveWin estás usando ?','',0,'CA==','13qkdpa1',1,0,'',2,0,0),(47051,9739,12,1285,0,'189.158.82.185',1201212101,1,0,1,1,1,0,'','Limitantes?','Antonio\n\nSegun tengo entendido (por el manual fivelinux) los componentes no disponibles son los archivos INI, MDI, print preview y archivos RC o a que mas limitantes te refieres??\n\nDe esas limitantes las que pienso (de manera presonal) que si son importantes es el print preview y archivos RC pero que igual no tanto ya que puede manejar glade y a futuro lo convertiras a @.., .., y print preview que me gusta como para utilizar mientras la libreria Pdflib que viene en xHarbour Contributions y asi que abra el archivo con la herramienta externa correspondiente a la plataforma cuando quieran un preview (funcionara?) que opinas.\n\nGracias \n\nGabino V.\nMexico','',0,'CA==','1jvtacue',1,0,'',1285,0,0),(47052,9736,2,1088,0,'189.129.254.31',1201212157,1,0,1,1,1,0,'','','clipper 5.3, fivewin 2.3, blinker 6.0','',0,'CA==','3jtm5umc',1,0,'',1088,0,0),(47053,9661,3,239,0,'218.20.60.82',1201234842,1,0,1,1,1,0,'','','Antonio,\n  1.Sorry by my mistake removed a line DeleteObject( hBrush ) in method paintheader(), caused resource not released.\n\n    2.method paintheader()\n   if Empty( cHeader )\n      ::oBrw:ReleaseDC()\n      return nil\n   endif\n  should change into \n   if Empty( cHeader )\n      if lOwnDC;::oBrw:ReleaseDC(); end\n      return nil\n   endif\n\n    3. method box()\n   add  ::obrw:releaseDC()\n\n   4. dialog.prg \n    add METHOD UPDATE()  inline  ::aEvalWhen(),super:UPDATE()\n    to update controls lwhen \n\nRegards!\nShuming Wang','',0,'CA==','3bx7nvya',1,0,'',239,0,0),(47054,9751,3,335,0,'68.193.88.53',1201234874,1,0,1,1,1,0,'','DLL32 problem','Antonio,\n\nI get an \"error Base/1003 variable does not exst LPLONG\" when calling a dll function via DLL32.  I notice that in the fwcmd.chm docs, in the explanation for DLL32 it does not list LPLONG as a data type, though it does list LPSTR. Insofar as this seems to be a common C datatype, can LPLONG be added as a valid data type used in a C function that is included in a DLL?\n\nSpecifically, I\'m getting this error with the Protection PLUS function calls to its 32 bits DLL when using the command DLL32.  For example:\n\nDLL32 FUNCTION pp_checksum(filename AS LPSTR, checksum AS LPLONG) AS LONG PASCAL LIB \"keylib32.dll\"\n\n- Roger','',0,'CA==','2a46901q',1,0,'',335,0,0),(47055,9751,3,335,0,'68.193.88.53',1201237123,1,0,1,1,1,0,'','','I tried using PTR in the DLL32 command instead of LPLONG and that didn\'t work either - didn\'t get an error message, but the test app acted like it was stuck in a never-ending loop.\n\n- Roger','',0,'CA==','r2befu1i',1,0,'',335,0,0),(47056,9716,6,49,0,'213.82.134.66',1201250322,1,0,1,1,1,1,'','','I Know these classes ( tdosprn, tdospreview ecc)  Thanks\nI made manyt year ago a class for Tdosprn called TprnDRIVERs where I can save each driver for each printers\n\nBut I want search another things\nI searching the possibility to SHOW an PREVIEW into a dialog \nthis preview must be small as a ticket for insert on it the ticket \nDo you understand what I want ?','',0,'CA==','1a8hobev',1,0,'',49,0,0),(47057,9752,3,49,0,'213.82.134.66',1201251065,1,0,1,1,1,1,'','Preview on a dialog','Antonio, \nCan I put a preview into a Dialog ?\nthe preview must be small as a Card, or a ticket \n\nThanks','',0,'CA==','9oj7x37v',1,0,'',49,0,0),(47058,9728,3,460,0,'217.37.54.49',1201251090,1,0,1,1,1,0,'','','Thanks Giovany &amp; Antonio, both solutions work\n\nPete','',0,'CA==','2pb8wo51',1,0,'',460,0,0),(47059,9735,6,294,0,'201.254.187.178',1201253251,1,0,1,1,1,1,'','','Hola Diego:\nSi solo eso es el problema, pone en la clausula valid del get que lee el codigo de barras una funcion que te convierta los ´ por - usando STRTRAN(cVariable,\"´\",\"-\") y listo.\nEspero te sirva.','',0,'CA==','2ltrzdxq',1,0,'',294,0,0),(47060,9677,3,2,0,'87.218.146.26',1201253493,1,0,1,1,1,1,'','','Finished:\n\n[url=http&#58;//imageshack&#46;us:10g17jwg][img:10g17jwg]http&#58;//img522&#46;imageshack&#46;us/img522/9861/tabsqm8&#46;png[/img:10g17jwg][/url:10g17jwg]','',0,'GA==','10g17jwg',1,0,'',2,0,0),(47061,9678,6,2,0,'87.218.146.26',1201253615,1,0,1,1,1,1,'','','Terminados:\n\n[url=http&#58;//imageshack&#46;us:1r3rn00w][img:1r3rn00w]http&#58;//img522&#46;imageshack&#46;us/img522/9861/tabsqm8&#46;png[/img:1r3rn00w][/url:1r3rn00w]','',0,'GA==','1r3rn00w',1,0,'',2,0,0),(47062,9678,6,1281,0,'80.33.85.7',1201255123,1,0,1,1,1,0,'','','Está increible','',0,'GA==','2bh1zs0y',1,0,'',1281,0,0),(47063,9752,3,1236,0,'201.22.71.169',1201255972,1,0,1,1,1,0,'','','Hello Silvio.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=701\">http://www.fivewin.com.br/exibedicas.asp?id=701</a><!-- m -->','',0,'GA==','277w8evr',1,0,'',1236,0,0),(47064,9753,3,303,0,'72.220.181.80',1201256323,1,0,1,1,1,0,'','TOulook2003 class bug','Antonio,\n\nThere seems to be a small bug in the new TOulook2003 class. In the AddGroup() method there is no dialog creation like there is in the New() method. \n\nI think this code needs to be added to the AddGroup() method:\n\n      DEFINE DIALOG oDlg OF Self STYLE WS_CHILD  ;\n         FROM 33, 0 TO ::nHeight - ( Len( ::aGroups ) * 32 ), ::nWidth() - 1 PIXEL ;\n         FONT Self:oFont\n      AAdd( ::aDialogs, oDlg )\n\n[This is the same code that is in the New() method.]\n\nOr, the code needs to be made into a new AddDialog() method and called from both the New() and AddGroup() methods. This is probably a better solution.\n\nRegards,\nJames','',0,'','2gvpalz2',1,0,'',303,0,0),(47065,9751,3,2,0,'87.218.146.26',1201257060,1,0,1,1,1,1,'','','Roger,\n\nPlease use a C function instead of the DLL FUNCTION command, just to be sure its right.\n\nYou may use #pragma BEGINDUMP ... #pragma ENDDUMP','',0,'','2524gjo7',1,0,'',2,0,0),(47066,9753,3,303,0,'72.220.181.80',1201257328,1,0,1,1,1,0,'','','I see that my suggested solution above will not work because AddGroup() is getting called in the New() method already, then the dialog is added. If the dialog is added in the AddGroup() method then it cannot be added in the New() method also. I guess this will require some more thought.\n\nJames','',0,'','m66zlx2y',1,0,'',303,0,0),(47067,9678,6,2,0,'87.218.146.26',1201257454,1,0,1,1,1,1,'','','gracias <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'','esqnddtc',1,0,'',2,0,0);
INSERT INTO `phpbb_posts` VALUES (47068,9736,2,2,0,'87.218.146.26',1201257624,1,0,1,1,1,1,'','','Yadira,\n\nEsa versión de FiveWin es muy antigua, y esto se modificó en versiones posteriores. Deberías considerar el actualizarte a una versión más reciente.\n\nDe hecho, lo más sensato es pasar la aplicación a 32 bits con Harbour y FiveWin para Harbour <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','7zsv1cup',1,0,'',2,0,0),(47069,9754,3,210,0,'81.24.159.58',1201257865,1,0,1,1,1,1,'','xBrowse checkbox','Hello all,\nis in xBrowse an EDIT_MODE for CHECKBOX or an other solution to do checkboxes?','',0,'','2wdw7q3m',1,0,'',210,0,0),(47070,9677,3,972,0,'78.21.224.104',1201258003,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:vpvrts43]Finished:[/quote:vpvrts43]\nGreat! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->','',0,'gA==','vpvrts43',1,0,'',972,0,0),(47071,9752,3,49,0,'213.82.134.66',1201258132,1,0,1,1,1,1,'','','thanks but it it a MEMO\n\nI want as printer command  PREVIEW ...\n\nBut I \'m creating something of it Now ....\n\n\nTHANKs TO all','',0,'gA==','rnspzqug',1,0,'',49,0,0),(47072,9742,3,972,0,'78.21.224.104',1201258311,1,0,1,1,1,0,'','Re: Porting to Mac','[quote=&quot;MarcoBoschi&quot;:2lrg8zk0]Any concrete experience in porting From FWH to FMC?\nIs it difficult?\nIs it laboriuos?\nis it dangerous?\n[/quote:2lrg8zk0]\nDangerous? YES <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nDangerous for Bill Gates! When you guys see and feel how smooth and beautiful OSX works, you will all switch!\n\n<!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\n[quote=&quot;MarcoBoschi&quot;:2lrg8zk0]And what about utilization of graphical librearies such as FreeImage.dll or libgfl254.dll[/quote:2lrg8zk0]\nThey will not work as you can not use DLL\'s in OSX. Maybe these libraries can be recompiled for OSX?\n\nPatrick','',0,'gA==','2lrg8zk0',1,0,'',972,0,0),(47073,9742,3,2,0,'87.218.146.26',1201259315,1,0,1,1,1,1,'','','Patrick,\n\n&gt;\nThey will not work as you can not use DLL\'s in OSX. Maybe these libraries can be recompiled for OSX? \n&gt;\n\nOSX can use DLLs, they are just called dynamic libraries.\n\nYes, probably there should be an OSX version of those DLLs.','',0,'gA==','1zt9vi80',1,0,'',2,0,0),(47074,9742,3,972,0,'78.21.224.104',1201259513,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:6xc5se4s]Patrick,\n\n&gt;\nThey will not work as you can not use DLL\'s in OSX. Maybe these libraries can be recompiled for OSX? \n&gt;\n\nOSX can use DLLs, they are just called dynamic libraries.[/quote:6xc5se4s]\n\nYes, but I was trying to be careful <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nYou can not take a DLL from a windows PC and use it in OSX. Yes, you can rebuild it for OSX if you have the source. It\'s not a DLL anymore, its a OSX dynamic library now.\n\nPatrick','',0,'gA==','6xc5se4s',1,0,'',972,0,0),(47075,9750,6,2,0,'87.218.146.26',1201259589,1,0,1,1,1,1,'','','Ale,\n\nModifica el método Paint() de la Clase TMsgItem.\n\nEn FWH 8.02 esta correctamente implementado','',0,'gA==','16hl37yv',1,0,'',2,0,0),(47076,9755,3,1257,0,'195.93.60.7',1201260528,1,0,1,1,1,1,'','XBrowse. to change autom. Char/Memo to OemToAnsi ? fixed !!!','Hello from Germany\n\nProblem is fixed !!!   =&gt; see  &lt; Some changes in xBrowse &gt; <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->  \n\nTo show a database, i\'m using only a few lines :\n \noBrw5 := TXBrowse():New( oDlg3 )\noBrw5:nMarqueeStyle		:= MARQSTYLE_HIGHLCELL\noBrw5:nColDividerStyle		:= LINESTYLE_BLACK\noBrw5:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw5:lColDividerComplete	:= .t.\noBrw5:nHeaderLines		:= 1\noBrw5:nDataLines		:= 1\noBrw4:SetRDD()\noBrw5:CreateFromResource( 110 )\n\nIs there a switch in xBrowse, to show Character- and Memo-data in format OemtoAnsi ?\nI couldn\'t find anything in the class.\n\nThe new DB-Tool is nearly finished :\n------------------------------------------\nDesign : Outlook2003 with activated righthand side \nin combination with Office2007-Buttonbar\nPossible to create new Database NTX or CDX\nChange Fields, possible convert from text to memo, \nnumeric to text.\nConvert from NTX to CDX or CDX to NTX\nAutomatic RDD-detect ( no manual change of RDDSetdefault )\nQuickbrowser : Click on Col-Header creates a new Index\nIncr.-Seek. Seek-Chars are shown in a Control-Field\nand much more.\n\nRegards <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\nUwe König','',0,'gA==','10zu8o9e',1,0,'',1257,0,0),(47077,9750,6,400,0,'201.68.32.6',1201262605,1,0,1,1,1,1,'','','Maestro....precisamente...qual Linha...devo mudar ?\n\nSaluds','',0,'gA==','1gurdsaq',1,0,'',400,0,0),(47078,9756,6,945,0,'80.32.177.143',1201263611,1,0,1,1,1,0,'','Coger el texto del item seleccionado en un TTreeView','Muy buenas foro, tengo un pequeño problema a la hora de coger el texto del item seleccionado de un TTreeView, mira yo utilizo\n\noTree:GetSelected():GetParent():cPrompt\n\n(estoy cogiendo el texto del padre del hijo seleccionado), el problema es que me introduce códigos raros despues del texto adquirido.\n\n¿Como puedo solucionarlo?\n\nUn Saludo.','',0,'gA==','2ncf02vd',1,0,'',945,0,0),(47079,9751,3,335,0,'68.193.88.53',1201264569,1,0,1,1,1,0,'','','Antonio,\n\nDo you mean that I can insert a C function into an FWH prg by: \n\n1. preceding it with the line #pragma BEGINDUMP \n\n2. then write in a line with the C function, and then \n\n3. follow it with the line #pragma ENDDUMP, and then \n\n4. continue with my FWH code? \n\nOr does the C code have to be in a separate prg? \n\nAnd if #pragma enables mixing C code with FWH code, are the variables used in the C function directly visible to the rest of the FWH code?\n\n(Obviously, I\'m not much of a C programmer or I\'d already know this. I\'ve never used the #pragma capability before, so I\'m learning something new here.)\n\nThanks!\n\n- Roger','',0,'gA==','9nsqk6ce',1,0,'',335,0,0),(47080,9757,6,409,0,'201.222.209.168',1201264604,1,0,1,1,1,0,'','EDICION CON XBROWSE','Para editar una celda con xbrowse el cursor se queda en la misma posicion de la edicion de la celda como se hace para que se mueva hacia la derecha luego de Editar. \nSaludos','',0,'gA==','1rdy7a54',1,0,'',409,0,0),(47081,9677,3,92,0,'80.33.133.32',1201265464,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:1dylc6m4]James,\n[code:1dylc6m4]\nfunction Main&#40;&#41;\n\n   local oTabs1, oTabs2\n\n   DEFINE WINDOW oWnd TITLE &quot;Testing FiveWin Tabs&quot; ;\n      COLOR CLR_WHITE, CLR_BLUE\n\n   @ 8, 0 TABS oTabs1 PROMPTS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot;, &quot;&amp;Four&quot; OF oWnd ;\n      BITMAPS &quot;people&#46;bmp&quot;, &quot;open2&#46;bmp&quot;, &quot;print&#46;bmp&quot;, &quot;zoom2&#46;bmp&quot; ;\n      ACTION oWnd&#58;Say&#40; 5, 5, oTabs1&#58;nOption &#41;\n\n   oWnd&#58;oTop = oTabs1\n\n   @ 8, 0 TABS oTabs2 PROMPTS &quot;&amp;One&quot;, &quot;&amp;Two&quot;, &quot;T&amp;hree&quot;, &quot;&amp;Four&quot; OF oWnd ;\n      BITMAPS &quot;people&#46;bmp&quot;, &quot;open2&#46;bmp&quot;, &quot;print&#46;bmp&quot;, &quot;zoom2&#46;bmp&quot; ;\n      ACTION oWnd&#58;Say&#40; 7, 5, oTabs2&#58;nOption &#41;\n\n   oWnd&#58;oBottom = oTabs2\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:1dylc6m4][/quote:1dylc6m4]\n\nAntonio,\n\nCómo lo ves el crear unas cláusulas TOP, BOTTOM, LEFT, RIGHT?\n\nSaludos\nCarlos G.','',0,'gIA=','1dylc6m4',1,0,'',92,0,0),(47082,9735,6,1090,0,'200.81.14.114',1201267268,1,0,1,1,1,0,'','gracias','Gracias. Voy a tratar de arreglarme con esto del strtran. Igualmente me queda la duda, porque he visto muchisimas codificaciones internas que tienen guiones y letras, y calculo que habra algun codigo que levante informacion en ese formato. \nMuchisimas gracias a ambos. Atte.','',0,'gIA=','3c8aixtm',1,0,'',1090,0,0),(47083,9750,6,2,0,'87.218.146.26',1201268353,1,0,1,1,1,1,'','','::oMsgBar:Say( ::oMsgBar:nHeight / 4 - 2,;\n             nLeft + 3 + ( ::nWidth - GetTextWidth( hDC, AllTrim( ::cMsg ) ) ) / 2,;\n             AllTrim( ::cMsg ), If( ::lActive, ::nClrText, ::nClrDisabled ),;\n             ::nClrPane, ::oFont, .T., .T. )','',0,'gIA=','a0ov2geq',1,0,'',2,0,0),(47084,9677,3,2,0,'87.218.146.26',1201268448,1,0,1,1,1,1,'','','Carlos,\n\nIt is already implemented:\n\noTabs:nOrientation = OR_TOP | OR_BOTTOM | OR_LEFT | OR_RIGHT\n\nWe could set it from the CH command','',0,'gIA=','16fd1rti',1,0,'',2,0,0),(47085,9757,6,1236,0,'201.22.71.169',1201268585,1,0,1,1,1,0,'','','obrw:goright()  ???','',0,'gIA=','655vcu3i',1,0,'',1236,0,0),(47087,9759,4,137,0,'151.38.8.195',1201270148,1,0,1,1,1,0,'','Disabling/removing menu','Hi Antonio, \nI can\'t disable or remove menuitems... is it a FWPPC bug??\n\nI post you a sample:\n\n#include \"FWCE.ch\"\n\nstatic oMenu1, oMenu2, oMenu\n\nfunction Main()\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE \"TestMenu\" ;\n      MENU BuildMenu()\n\n	@0,0 button \"Disable\" size 100, 20 action oMenu1:Disable() pixel\n	@30,0 button \"Remove\" size 100, 20 action RemoveMenu(oMenu:hMenu, 1) pixel\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo( \"Click!\" )\n      \nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n \n   DEFINE MENU oMenu RESOURCE 102\n   \n   REDEFINE MENUITEM oMenu1 ID 110 OF oMenu ACTION MsgInfo( \"First\" ) when .F.\n\n   REDEFINE MENUITEM oMenu2 ID 120 OF oMenu ACTION MsgInfo( \"Second\" )\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n#include \"windows.h\"\n\nHB_FUNC(REMOVEMENU) {\n	RemoveMenu((HMENU) hb_parnl(1), (UINT) hb_parnl(2), MF_BYPOSITION);\n}\n\n#pragma ENDDUMP\n\n\nRegards,\nRoberto Parisi','',0,'gIA=','1n8hgx0q',1,0,'',137,0,0),(47088,9760,23,1257,0,'195.93.60.7',1201270757,1,0,1,1,1,1,'','xBrowse Darstellg. =&gt; OemToAnsi ???','Hallo aus Essen,\n\nBei Browser-Tools kann man normalerweise\nin die Darstellung von OemToAnsi wechseln.\nUm Daten darzustellen erzeuge ich nur einen Browser\nohne Spalten-Definitionen :\nIn den DB-Tools enthält das Quickbrowse-Modul\nfolgenden Programm-Code :\n\nGesucht wird :\nIF OemAnsi = .T. .....\nÄndern von Get and Edit in oBrw5 and oBrw6  ????\n----------------------------------------------------------\n\noBrw5 := TXBrowse():New( oDlg )\n\noBrw5:nMarqueeStyle		:= MARQSTYLE_HIGHLROW\noBrw5:nColDividerStyle    	:= LINESTYLE_BLACK\noBrw5:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw5:lColDividerComplete	:= .t.\noBrw5:nHeaderLines		:= 1\noBrw5:nDataLines		:= 1\noBrw5:lAllowColSwapping      := .t.\noBrw5:SetRDD()\n\nlClrFlag:=.f. \nfor nFor := 1 to len( oBrw5:aCols )\n      oCol := oBrw5:aCols[ nFor ]\n      oBrw5:bSkip:={| nRecs | ;\n( if(nRecs == nil, nRecs := 1,),nRecs:= (1)-&gt;(dbskipper( nRecs )), ;\n                 lClrFlag:= if( nRecs % 2 = 0, lClrFlag,!lClrFlag), nRecs) } \n      // Define alternating row colors \n      oBrw5:bClrStd := { || Colors() }\n      oCol:nEditType := 1\n      oCol:bOnPostEdit := ;\n      {|o, v, n| IIF( n != VK_ESCAPE, ( IIF( NET_RLOCK(), ;\nFieldPut( o:nCreationOrder, v ), NET_ULOCK() ), NIL ), ) }\nnext\nfor nFor := 1 to Fcount()\n      oBrw5:aCols[ nFor ]:bRClickHeader := ;\n      {|r,c,f,o| cFELD := o:cHeader, ;            // = oCol:cHeader\n                   nOrder := o:nCreationOrder, ;    // = Header-Click-Col \n                   cFilter := SET_INDEX(oBrw5,cFELD,cFILTER), ;\n	           IIF(DBFTYP = \"CDX\", ;\n	                cINDKEY := ORDKEY( \"NEUINDEX\" ), ;\n	                cINDKEY := INDEXKEY( 0 ) ), ; \n	           oBrw5:SetFocus(), ;\n	           oBrw5:GoTop(), oBrw5:VGoTop(), oBrw5:Refresh(), ;\n	  l_INDEX := .T., oINDKEY:Refresh(), ;\n	  oFilter:Refresh(), ;\n	  oBrw5:SwapCols( 1, nOrder ), ;    // Bring selected col to 1\n          oBrw5:GoLeftMost(), ;                         // Go to 1. Col ( indexed )\n	  oBrw5:nFreeze := 1 }                // Freeze 1. Col\nnext\noBrw5:bChange  := { || oDlg:Update() }\noBrw5:CreateFromResource( 110 )\n\n// --------------    ARRAY  ------------------------------------------\n\noBrw6 := TXBrowse():New( oDlg )\noBrw6 :SetArray( (1)-&gt;( dbStruct() ), .f. )\noBrw6:nMarqueeStyle		:= MARQSTYLE_HIGHLCELL\noBrw6:nColDividerStyle	:= LINESTYLE_BLACK\noBrw6:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw6:lColDividerComplete	:= .t.\noBrw6:nHeaderLines		:= 1\noBrw6:nDataLines		:= 1\noBrw6:lAllowColSwapping           := .t.\noBrw6:SetRDD()\nASIZE( oBrw6:aCols, 4 )\nAEVAL( oBrw6:aArrayData, { |a| nMaxWidth := ;\nMax( nMaxWidth, a[3] ) } )\nWITH OBJECT oBrw6:AddCol()\n      :bStrData   := ;\n      :bEditvalue := { || PADR( cValToChar( (1)-&gt;( FieldGet( oBrw6:nArrayAt ) ) ), nMaxWidth ) }\n      :nEditType  := EDIT_GET\n      :bOnPostEdit:= { | oCol, xValue, nLastKey | ;\nOnEdit( obrw6, oCol, xValue, ;\n           nLastKey, lOemAnsi ), oDlg:Update() }\nEND\nAEval( oBrw6:aCols, { |oCol, nCol| oCol:cHeader := ;\n      { \"FieldName\", \"Typ\", \"Len\", \"Dec\",\"Value\" }[ nCol ] } )\noBrw6:aCols[ 1 ]:nWidth           := 100\noBrw6:aCols[ 3 ]:nDataStrAlign    := AL_RIGHT\noBrw6:aCols[ 4 ]:nDataStrAlign    := AL_RIGHT\noBrw6:nColSel   := 5\noBrw6:lUpdate   := .t.\noBrw6:Cargo := oBrw5\noBrw6:bChange  := { || oDlg:Update() }\noBrw6:CreateFromResource( 115 )\n....\n.....\n\n//----------------------------------------------------------------------------//\n\nFUNCTION OnEdit( oBrw6, oCol, xValue, nLastKey, lOemAnsi )\n\nIF nLastKey == 13\n   SWITCH Eval( oBrw6:aCols[2]:bStrData )\n   CASE \'N\'\n     xValue   := Val( xValue )\n     EXIT\n   CASE \'D\'\n      xValue   := CTOD( ALLTRIM( xValue ) )\n      EXIT\n   CASE \'L\'\n      xValue   := ( Upper( Left ( LTrim( xValue ), 1 ) ) $ \"YT\" )\n     EXIT\n     DEFAULT\nEND\nNET_RLOCK()\n (1)-&gt;( FieldPut( oBrw6:nArrayAt, xValue ) )\nNET_ULOCK()\noBrw6:DrawLine( .t. )\noBrw6:Cargo:DrawLine( .t. )\nENDIF\n\nRETURN NIL\n\nBesteht für eine OemToAnsi-Darstellung\nfür Text- und Memo-Felder eine Möglichkeit, \nden Programm-Code zu ändern, \nohne Spalten zu definieren ?\n\nDanke <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nUwe König','',0,'','95sx5db1',1,0,'',1257,0,0),(47089,9761,6,644,0,'201.253.76.69',1201273983,1,0,1,1,1,0,'','problemas con tprinter','Estoy utilizando esta clase para impresión de formularios. En todos los casos uso la opción de preview. El problema que se presenta es que en algunas máquinas funciona y en otras no. Sin embargo la configuración de la aplicación es la misma en todos los casos. Alguien a tenido este problema. Desde ya muchas gracias .','',0,'','9z1karjj',1,0,'',644,0,0),(47090,9761,6,1201,0,'200.90.17.154',1201275726,1,0,1,1,1,0,'','','Revisa la versión de PREV32.DLL que están en los equipos.','',0,'','35ckilci',1,0,'',1201,0,0),(47091,9749,6,1201,0,'200.90.17.154',1201276166,1,0,1,1,1,0,'','','No tendrás un problema con la configuración de tu editor de programas?\nOtra Cosa, si el origen del dato ya es Ansi, te retorna otra cosa,\nPuedes probar con:\n\n IIF(ISOEM(cVariable),OEMTOANSI(cVariable),cVariable)\n\n\nNo se, digo yo...\n\n\n\nSaludos, Desde Valencia,Venezuela.','',0,'','1u5xd85t',1,0,'',1201,0,0),(47092,9749,6,1255,0,'200.66.158.52',1201276655,1,0,1,1,1,0,'','Re: problemas con la letra Ñ','[quote=&quot;nolgiati&quot;:39liznoq]\nAlguien tuvo ya este problema?\n[/quote:39liznoq]\nEs raro lo que te pasa, a mí los Says con ñ\'s me aparecen bien.\n\nEs en un díálogo desde recursos? podrías mostrarnos la parte de tu código donde se dá el problema?\n\nSaludos.\n\nManuel Mercado','',0,'gA==','39liznoq',1,0,'',1255,0,0),(47093,9749,6,1201,0,'200.90.17.154',1201276731,1,0,1,1,1,0,'','','Otra Idea:\n\nSi lo que vas a poner ya es ansi, no lo conviertas.\n\npor Ejemplo:\n\nMSGALERT(\"Años\")\n\nsaldrá como debe ser, Pero:\n\nMSGALERT(OemToAnsi(\"Años\"))\n\nSaldrá otra cosa (a±os)\n\nPuede ser lo que te está sucediendo..\n\n[/code]','',0,'','3ugvnjc1',1,0,'',1201,0,0),(47095,9678,6,100,0,'201.16.38.7',1201277038,1,0,1,1,1,1,'','','Antonio\n\né possivel utilizar FONT diferente ??','',0,'','1u4dpnjh',1,0,'',100,0,0),(47097,9763,6,1255,0,'200.66.158.52',1201277870,1,0,1,1,1,0,'','ZIP UNZIP con FWH','En 16 bits lo hacía muy bien con barra de progreso y toda la cosa.\n\nComo funciona con (x)Harbour?, Existen las Funciones?, cual es la sintaxis?, las funciones muestran el avance del proceso ?, se requiere una DLL ?\n\nTestZip.prg en FWH\\Samples es para 16 bits, hay algún ejemplo para 32 bits?\n\nGracias de antemano por su ayuda.\n\nManuel Mercado','',0,'','14phxt9i',1,0,'',1255,0,0),(47098,9735,6,1255,0,'200.66.158.52',1201279204,1,0,1,1,1,0,'','','Es obvio que el programa de Cayetano está considerando el juego de caracteres según la distribución del teclado en inglés, creo que no será difícil modificarlo, pero ahora no recuerdo si existe alguna función que muestre el idioma que se está utilizando.\n\nSaludos\n\nManuel Mercado','',0,'','2nfew4cr',1,0,'',1255,0,0),(47099,9763,6,1201,0,'200.90.17.154',1201280107,1,0,1,1,1,0,'','','Agarra este trompo en la uña (Dicho Venezolano)\n\n*******************************************************************************\nstatic procedure GrabaZip(cOrig,aFileList)\n*******************************************************************************\nlocal     cFile ,;\n          aFiles,;\n					nItem,;\n					cString,;\n					cReturn:=\"\",;\n					nI,;\n					na,;\n					aFil,;\n					cFilepath,;\n					lContinue\n\ncFile:=cGetFile( \"*.zip\",\"Seleccione Archivo a Exportar\" )\nif len(alltrim(cFile))&lt;&gt;0\n	 lContinue:=.t.\n	 if file(cfile)\n		 if !MsgNoYEs(\"Archivo Ya Existe, Desea Sobre-Escribir\",\"Exportar\")\n			 lContinue:=.f.\n		 endif\n	 endif\n	 if lContinue\n	   cursorwait()\n     cFilePath := AllTrim( cOrig )\n	   for nI=1 to len(aFilelist)\n       cReturn   += AllTrim( cOrig ) +aFilelist[nI]\n	   next\n     cString   := cReturn\n\n     aFiles := {}\n  	 for nI=1 to len(aFilelist)\n       aFil := Directory( ( cFilePath +aFilelist[nI] ) )\n       //aEval( aFil, { | uFile | AAdd( aFiles, uFile ) } )\n	  	 for  na=1 to len(afil)\n  		  AAdd( aFiles, afil[na,1] )\n	  		next\n	   next\n\n     // HB_ZipFile( &lt;cFile&gt;, &lt;cFileToCompress&gt; | &lt;aFiles&gt;, &lt;nLevel&gt;, &lt;bBlock&gt;, &lt;lOverwrite&gt;, &lt;cPassword&gt;, &lt;lWithPath&gt;, &lt;lWithDrive&gt;, &lt;pFileProgress&gt; )\n     // cFile: filename of the zip file.\n     // cFileToCompress | aFiles: a file or a list (array) of files to compress.\n     // nLevel: compression level (value from 0 to 9).\n     // Block: code block to execute while compressing.\n     // lOverWrite: overwrite existing files or not.\n     // cPassword: password to encrypt the files.\n     // lWithPath: store the file path or not.\n     // lWithDrive: store the drive letter and path or not.\n     // pFileProgress: code block for file progress.\n\n     HB_ZIPFILE( cfile, afiles,,,,, .t. )\n	   cursorarrow()\n	   *wqout( HB_GetFilesInZip( cfile ) )\n	 endif\nendif\n\nreturn\n\n*******************************************************************************\nstatic procedure LeeZip()\n*******************************************************************************\nlocal     cFile ,;\n          aFiles,;\n					nItem\n\ncFile:=cGetFile( \"*.zip\",\"Seleccione Archivo a Importar\" )\nif len(alltrim(cFile))&lt;&gt;0\n	 if msgnoyes(\'Archivos en el Sistema Seran Sustituidos, Desea Continuar\',\"Importar\")\n     aFiles    :=HB_GetFilesInZip( cFile )\n  	 HB_UNZIPFILE( cFile, { | x, y | QOUT( \"Archivo \", STR( y, 1 ), \" se está extrayendo.\" ) },,, \'.\\\', aFiles )\n     //for nItem:=1 to len( aFiles )\n	   //  HB_UNZIPFILE( \"Angelito.zip\", { | x, y | QOUT( \"Archivo \", STR( y, 1 ), \" se está extrayendo.\" ) },,, \'.\\\', aFiles[ nItem ] )\n	   // next\n    delfile(\'\',\'*.cdx\')\n	  MsgMeter( { | oMeter, oText, oDlg |  reindexa(oMeter, oText, oDlg)} )\n	  n_use(\'Acceso\',\'=\',exclusivo,0)\n	endif\nendif\n\n\nreturn\n\n\n//		oMeter:nTotal   :=len( aPrint )*oNomina:nCopias\n//		oMeter:nRefresh :=Int( oMeter:nTotal/100 )\n//    if oMeter:nRefresh&lt;1\n//		  oMeter:nRefresh :=1\n//    endif\n\n\n\n\ny encadenas la siguiente librería:\n\nhbzip.lib\n\n\nSuerte!','',0,'','fsnowkr0',1,0,'',1201,0,0),(47100,9763,6,1201,0,'200.90.17.154',1201280385,1,0,1,1,1,0,'','','Se me olvidaba un ejemplo de llamada\n\nGrabazip(\"\\costosw\\\",{\"*.dbf\",\"*.mem\",\"*.rp*\"})','',0,'','h1n7i2wd',1,0,'',1201,0,0),(47101,9750,6,400,0,'201.68.32.6',1201280889,1,0,1,1,1,1,'','','Perfect Maestro.....Gracias\n\nSaluds','',0,'','35h6t7cn',1,0,'',400,0,0),(47102,9678,6,2,0,'87.218.146.26',1201281775,1,0,1,1,1,1,'','','Si, pero sólo con unos tamaños determinados','',0,'','102uzhx8',1,0,'',2,0,0),(47103,9759,4,2,0,'87.218.146.26',1201281935,1,0,1,1,1,1,'','','Roberto,\n\nWe are going to review it and we will provide you an answer asap','',0,'','2nu78vi1',1,0,'',2,0,0),(47104,9739,12,2,0,'87.218.146.26',1201282076,1,0,1,1,1,1,'','','Gabino,\n\nNo hemos probado esa librería en Linux. No podemos decirte con exactitud que tal funcionará.','',0,'','2mttq2cf',1,0,'',2,0,0),(47105,9739,12,1285,0,'189.158.92.191',1201284298,1,0,1,1,1,0,'','','Antonio \n\nBueno sobre la Pdflib ni hablar entonces si seria una limitante para el usuario no poder hacer el print preview principalmente por que la mayoria estan muy acostumbrados a tal en un ambiente grafico.\n\nCreo aparte de eso solo queda la cuestion del MDI que me imagino que va a abrir una ventana SDI  independiente cada que el usuario quiera una opcion diferente vdd o te refieres a que va a tener que abrir un ejecutable nuevo por cada opcion ? obligandome a compilar independiente cada prg que incluya el desarrollo, no tengo claro eso.\n\nGracias y saludos\n\nGabino V.\nMexico','',0,'','17ls6wf3',1,0,'',1285,0,0),(47106,8519,6,1030,0,'190.55.55.41',1201284331,1,0,1,1,1,0,'','','Hola antonio yo estoy usando brush en mis dialogos y no logro ver transparentes ni los checkbox ni los radio.\nSi lo logre con los Says gracias a la clase TGSAY qu eme baje.\n\nSe te ocurre algo que pueda probar?\n\nGracias y saludos!','',0,'','2pcxb1od',1,0,'',1030,0,0),(47108,9739,12,2,0,'87.218.146.26',1201285540,1,0,1,1,1,1,'','','Gabino,\n\nUn ejecutable puede crear y usar tantas ventanas como necesite. No hay limitación en eso.\n\nLo que no ofrece Linux es el sistema \"MDI\" de ventanas dentro de una ventana principal, como ofrece Windows.','',0,'','3fvznr85',1,0,'',2,0,0),(47109,9751,3,2,0,'87.218.146.26',1201285625,1,0,1,1,1,1,'','','Roger,\n\nYes, you can include a C function in your PRG as you have described it.\n\nPlease make a search for BEGINDUMP in these forums and you will find lots of samples <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','xhxqnc6r',1,0,'',2,0,0),(47110,9765,2,248,0,'212.145.179.68',1201286508,1,0,1,1,1,0,'','Pie en Browse','Tengo un Bowse con varios columnas, dos de ellas son Base Imponible y otra el Total ambas con un pie que calculo mediante un dbeval(suma de los importes), despues modifico una fila mediante un dialog y cambia la base imponible y el total, he intentado refrescar los pies con drawheaders() y me da error, como hago para refrescar esos pies.\n\nGracias','',0,'','2alm1stg',1,0,'',248,0,0),(47111,8519,6,316,0,'87.218.187.245',1201286672,1,0,1,1,1,0,'','','Hola gente,\n\n¿Probaron haciendo ...\n\n[code:18pcb06m]\n   oCheckBox&#58;lTransparent&#58;= &#46;T&#46;\n[/code:18pcb06m]\n\n?\n\nUn saludo,\n\nCarlos.','',0,'AIA=','18pcb06m',1,0,'',316,0,0),(47112,9749,6,1030,0,'190.55.55.41',1201289306,1,0,1,1,1,0,'','','Este es el codigo:\n\n[code:w36rg7x6]\nAnioAnt&#58;=&quot;10 AÑOS&quot;+&quot; - &quot;+&quot;10 DIAS&quot;\n\nREDEFINE SAY oSay21     ID 109 OF oDlg;\n   PROMPT &quot; &quot;;\n   COLOR Negro FONT oFont3\n\n//Cuando presiono un boton se carga el oSay21\noSay21&#58;SetText&#40;&quot;Antiguedad del cliente&#58; &quot;+AnioAnt&#41;\n[/code:w36rg7x6]\n\nGracias por la ayuda!','',0,'AIA=','w36rg7x6',1,0,'',1030,0,0),(47113,9717,6,1264,0,'64.76.128.19',1201290102,1,0,1,1,1,0,'','','Hola Horacio\n\nComo el archivo INI es un archivo de texto y si tomamos como ejemplo el archivo win.ini en que cada seccion empieza con el caracter \"[\", podrias leer cada linea y colocarlas en una matriz, lugo te barres la matriz y cuentas cuantas lineas empiezan con dicho caracter, el resultado te indicaria el numero de secciones existentes.\n\nSaludos y suerte\n\nMartin','',0,'','267pbji7',1,0,'',1264,0,0),(47114,9763,6,110,0,'190.184.22.56',1201293120,1,0,1,1,1,1,'','','Estimado maestro\n\naca una aplicación completa, el exe esta en el dir bin <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\ncomprime y descomprime, barra de progreso y listado de ficheros con tsbrowse <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nse llama backuplite \n\nsalu2\ncarlos vargas','',0,'','k8dzwbeg',1,0,'',110,0,0),(47115,9763,6,110,0,'190.184.22.56',1201293225,1,0,1,1,1,1,'','','se me paso el link\n\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/86591177/blite.zip.html\">http://rapidshare.com/files/86591177/blite.zip.html</a><!-- m -->\n\n<!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nsalu2\ncarlos vargas','',0,'','3ozrfwvo',1,0,'',110,0,0),(47116,9749,6,78,0,'190.43.177.41',1201294655,1,0,1,1,1,0,'','','Estoy seguro que es un lio de editor de los prgs y/o de los recursos, uso el Med para editar los prgs, solo debo crea un nuevo prg y zas, se corrige el lio..\n\nSalu2','',0,'','1lwqtrbp',1,0,'',78,0,0),(47117,9717,6,1255,0,'201.122.38.237',1201295453,1,0,1,1,1,0,'','Re: Secciones en archivo ini','[quote=&quot;horacio&quot;:37v28zqc]Hay alguna función que me devuelva la cantidad de secciones de un archivo ini. Desde ya muchas gracias[/quote:37v28zqc]\ncText := MemoRead( \"MyIni.ini\" )\nnSecciones := StrCharCount( cText, \"[\" )\n\nSaludos\n\nManuel Mercado','',0,'gA==','37v28zqc',1,0,'',1255,0,0),(47118,9766,6,1264,0,'64.76.128.19',1201295670,1,0,1,1,1,0,'','CRYSTAL REPORT (Sel. Impresoras y guardar como HTML, PDF)','Hola a todos\n\nCon Ayuda de Tosko he podido ir avanzando en el uso de la clase de TOM GROEGER (TCRW) y reportes dieñados con Crystal 9, y ahora acudo a preguntarles como lograr seleccionar la impresora a la cual deseo derivar el reporte, pues el crystal solo muestra la predeterminada.\nLo segundo es como guradar un reporte en formatos PDF, HTML, etc pero en forma automatica es decir sin presionar el boton de EXPORTAR que muestra la ventana del Crystal., esto debido a que estos informes luego seran enviados por un programa de envio de correo masivo a diferentes clientes.\n\nSaludos\n\nMartin','',0,'gA==','3ommjvbp',1,0,'',1264,0,0),(47119,9759,4,2,0,'87.218.146.26',1201296329,1,0,1,1,1,1,'','','Roberto,\n\nPlease try these functions:\n[code:1qhnmiz4]\nTB_ENABLE&#40; oMenu&#58;hMenu, oMenuItem&#58;nId &#41;\nTB_DISABLE&#40; oMenu&#58;hMenu, oMenuItem&#58;nId &#41;\n[/code:1qhnmiz4]\n[code:1qhnmiz4]\nHB_FUNC&#40; TB_DISABLE &#41;\n&#123;\n   HWND hMenuBar = &#40;HWND&#41;SHFindMenuBar&#40;hb_parnl&#40;1&#41;&#41;;\n\n   TBBUTTONINFO tbbi;\n   tbbi&#46;cbSize = sizeof&#40;tbbi&#41;;\n   tbbi&#46;dwMask = TBIF_STATE;\n   tbbi&#46;fsState = TBSTATE_INDETERMINATE;\n\n   SendMessage&#40; hMenuBar, TB_SETBUTTONINFO, hb_parnl&#40; 2 &#41;, &#40; LPARAM &#41; &amp;tbbi &#41;; \n   return; \n&#125;\n\nHB_FUNC &#40; TB_ENABLE &#41;\n&#123;\n   HWND hMenuBar = &#40; HWND &#41; SHFindMenuBar&#40; hb_parnl&#40; 1 &#41; &#41;;\n\n   TBBUTTONINFO tbbi;\n   tbbi&#46;cbSize = sizeof&#40;tbbi&#41;;\n   tbbi&#46;dwMask = TBIF_STATE;\n   tbbi&#46;fsState = TBSTATE_ENABLED;\n\n   SendMessage&#40; hMenuBar, TB_SETBUTTONINFO, hb_parnl&#40; 2 &#41;, &#40; LPARAM &#41; &amp;tbbi&#41;; \n   return; \n&#125;\n[/code:1qhnmiz4]','',0,'AIA=','1qhnmiz4',1,0,'',2,0,0),(47120,8519,6,2,0,'87.218.146.26',1201296679,1,0,1,1,1,1,'','','Nolgiati,\n\nPor favor revisa fwh\\samples\\TestFldB.prg\n\n[url=http&#58;//imageshack&#46;us:2tviibp3][img:2tviibp3]http&#58;//img257&#46;imageshack&#46;us/img257/443/transjq8&#46;png[/img:2tviibp3][/url:2tviibp3]\n\n[url=http&#58;//imageshack&#46;us:2tviibp3][img:2tviibp3]http&#58;//img257&#46;imageshack&#46;us/img257/2003/transvk6&#46;png[/img:2tviibp3][/url:2tviibp3]','',0,'GA==','2tviibp3',1,0,'',2,0,0),(47121,9749,6,1201,0,'200.90.17.154',1201297027,1,0,1,1,1,0,'','','Tu editor se puede configurar, porque el que yo utilizo, permite cambiar entre ansi y oem, Verifica si tu editor tiene esa característica, a lo mejor es lo que te está sucediendo,\nNota:\nProbé el código que mandastes y aquí sale perfecto, pero si cambio el \'set\' de caracteres del editor por oem y coloco una Ñ, al ejecutar, aparece el caracter raro en pantalla.\n\nA lo mejor damos con el fallo.\n\n\nSuerte.\nHasta el lunes','',0,'GA==','3q666eo7',1,0,'',1201,0,0),(47122,9754,3,2,0,'87.218.146.26',1201297344,1,0,1,1,1,1,'','','Günther,\n\nYou may use a combobox with \"Yes\" and \"No\"\n\nPlease review fwh\\samples\\mallorca.prg in FWH 8.01 to use a combobox','',0,'GA==','4owlxfze',1,0,'',2,0,0),(47123,9765,2,2,0,'87.218.146.26',1201297536,1,0,1,1,1,1,'','','Jose Luis,\n\nQue browse usas ? El de Hernán ? El de Manuel Mercado ?','',0,'GA==','243my85m',1,0,'',2,0,0),(47124,9695,6,415,0,'190.157.64.112',1201299078,1,0,1,1,1,1,'','','Daniel:\n\nTe felicito, estan muy buenas las modificaicones que le hiciste al errsysw.prg; ya lo implemente en mi sistema y funciona de mil maravillas..\n\nLe agregue un button con una función (sacada del foro ingles) que permite enviar por correo electrónico la base de datos \"error.dbf\", aca va el codigo...\n\nFUNC correo()\n   sendMail({\"soporte@hymplus.com\"},\"Envio historial de Errores\",;\n             \"Aca puede escribir el mensaje\", {\"\\HYM32\\EXE\\ERRORES\\ERROR.DBF\"})\nRETURN NIL\n\nFUNC sendMail(aTo,cSubject,cMsg,aFiles)\n\nlocal oMail\ndefault cSubject:=\"\"\n\nDEFINE MAIL oMail SUBJECT OemToAnsi(cSubject) TEXT OemToAnsi(cMsg) FROM USER\n  AADD( oMail:aRecipients, aTo )\n  IF aFiles!=nil\n    oMail:aFiles:=ACLONE(aFiles)\n  ENDIF\nACTIVATE MAIL oMail\n\nIF oMail:nRetCode#0\n  MsgAlert(\"El mensaje no pudo ser enviado!\",\"Alerta\")\nENDIF\nRETURN NIL','',0,'GA==','k3saeucm',1,0,'',415,0,0),(47125,9767,3,49,0,'62.13.172.68',1201304128,1,0,1,1,1,1,'','RPREVIEW ERROR ON TWO PAGES','Dear Antonio,\n\nWhen I use MDI  window  I cannot see the menu of Rpreview : why ?\n\nAnd when I select two pages and then press the exit button the rpreview \nfunction make errors :\n\nthis is the error  :\n\n[code:yflggnt0]\n\nApplication\n===========\n   Path and name&#58; C&#58;\\WORK\\PRG\\Maga32\\Maga32&#46;Exe &#40;32 bits&#41;\n   Size&#58; 3,610,112 bytes\n   Time from start&#58; 0 hours 0 mins 38 secs \n   Error occurred at&#58; 30/01/2008, 00&#58;32&#58;24\n   Error description&#58; Error BASE/1004  Class&#58; \'NIL\' has no exported method&#58; NWIDTH\n   Args&#58;\n     &#91;   1&#93; = U   \n\nStack Calls\n===========\nCalled from&#58;  =&gt; NWIDTH&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; TPREVIEW&#58;PAINTMETA&#40;645&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; &#40;b&#41;TPREVIEW&#58;ACTIVATE&#40;161&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TMDICHILD&#58;RESIZE&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; MDICHILD&#46;PRG =&gt; TMDICHILD&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; SENDMESSAGE&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; &#40;b&#41;TWINDOW&#58;TWINDOW&#40;0&#41;\n   Called from&#58;  =&gt; TMDICLIENT&#58;SENDMSG&#40;0&#41;\n   Called from&#58; MDICLIEN&#46;PRG =&gt; TMDICLIENT&#58;CHILDCLOSE&#40;0&#41;\n   Called from&#58; MDICHILD&#46;PRG =&gt; TMDICHILD&#58;END&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; &#40;b&#41;TPREVIEW&#58;BUILDBUTTONBAR&#40;314&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;CLICK&#40;0&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;LBUTTONUP&#40;0&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; SYSREFRESH&#40;0&#41;\n   Called from&#58; MSGRUN&#46;PRG =&gt; STOPUNTIL&#40;0&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; TPREVIEW&#58;ACTIVATE&#40;164&#41;\n   Called from&#58; RPREVIEW&#46;PRG =&gt; RPREVIEW&#40;1440&#41;\n   Called from&#58; PRINTER&#46;PRG =&gt; &#40;b&#41;TPRINTER&#58;TPRINTER&#40;250&#41;\n   Called from&#58;  =&gt; TPRINTER&#58;PREVIEW&#40;0&#41;\n   Called from&#58; PRINTER&#46;PRG =&gt; PRINTEND&#40;962&#41;\n[/code:yflggnt0]\n\n\nCan U help me Pls','',0,'AIA=','yflggnt0',1,0,'',49,0,0),(47126,9700,3,879,0,'70.53.45.53',1201306337,1,0,1,1,1,0,'','','Tim\n\nFirst - Questions regarding UE are quickly answered by the folks at UltraEdit but be sure to send them an email. Any messages posted to the forum are NOT monitored by the Ultra Edit support staff.\n\nSecond - If you wish, you may be able to upgrade to UEStudio for the cost difference if you send an email to the sales department. UEStudio is simply UE with the added Project Manager and Resource Editor.\n\nThird - To open the PRG file and automatically select the proper syntax:\n1) Go to the [b:3ls4dh8j]Advanced[/b:3ls4dh8j] menu and select [b:3ls4dh8j]Configuration[/b:3ls4dh8j]\n2) Select [b:3ls4dh8j]File Associations[/b:3ls4dh8j] and enter .[b:3ls4dh8j]prg [/b:3ls4dh8j]under [b:3ls4dh8j]File Type/ Extensions [/b:3ls4dh8j]and whatever name you wish in the [b:3ls4dh8j]Description[/b:3ls4dh8j]\n3) Under [b:3ls4dh8j]File Types[/b:3ls4dh8j], enter [b:3ls4dh8j]*.PRG [/b:3ls4dh8j] and whatever name you chose in the [b:3ls4dh8j]File Description[/b:3ls4dh8j]\n4) My first line in the Wordfile for the Clipper/xHarbour/FiveWin syntax reads:\n/L14\"Clipper/xHarbour\" Line Comment = * Line Comment Valid Columns = [1] Line Comment Alt = // Block Comment On = /* Block Comment Off = */ String Chars = \"\' File Extensions = prg ch PRG CH\n\nNow when you click on a PRG file in Windows Explorer it will load UE and open the file using the proper syntax\n\nKen','',0,'QA==','3ls4dh8j',1,0,'',879,0,0),(47127,9695,6,987,0,'189.133.4.89',1201310899,1,0,1,1,1,0,'','','MauroArevalo:\n\nUn saludo de antemano y gracias por tus comentarios <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> , me da gusto que pueda aportar algo a toda la comunidad que me ha apoyado, gracias tambien por tu aportación, sabia que algo más faltaba por hacerle y que bueno que ya surgio una idea más..\n\nUn abrazo desde México y que lluevan las ideas y las aportaciones..\n\nEstoy para servirte si en algo mas te puedo ayudar..\n\nI.S.C. Víctor Daniel Cuatécatl León.\n<!-- w --><a class=\"postlink\" href=\"http://www.soldisoft.unlugar.com\">www.soldisoft.unlugar.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa,unlugar.com\">www.sisa,unlugar.com</a><!-- w -->','',0,'QA==','1xbkixfb',1,0,'',987,0,0),(47128,9763,6,1255,0,'201.122.38.237',1201312558,1,0,1,1,1,0,'','','Muchísimas Gracias Angel y Carlos\n\nManuel Mercado','',0,'QA==','17duscck',1,0,'',1255,0,0),(47129,9768,6,1272,0,'189.174.169.138',1201335864,1,0,1,1,1,0,'','[BETA] Depurador (x)Harbour','Hola,\n\nDejo a su consideracion la siguiente aplicacion en la que estoy trabajando es un depurador para (x)Harbour creado con fivewin, esta en fase de pruebas y le faltan todavia algunas cosas por terminar, yodavia trabajo en ellas, tiene sus limitaciones, pero es algo funcional\n\nAhi les dejo una imagen , y el link para descargar , para quienes desen probarlo,  si desean depurar alguna aplicacion incluir la libreria WDEBUG.LIB en lugar de DEBUG.LIB\n\n[img:3har02yw]http&#58;//andresreyesh&#46;myvnc&#46;com/www/windebug&#46;png[/img:3har02yw]\n\n[url:3har02yw]http&#58;//andresreyesh&#46;myvnc&#46;com/www/windebug&#46;zip[/url:3har02yw]\n\nSaludos,\n\nAndres Reyes','',0,'GA==','3har02yw',1,0,'',1272,0,0),(47130,9759,4,137,0,'151.38.8.195',1201338730,1,0,1,1,1,0,'','','Thx Antonio but it seems doesn\'t work:\n\nThis is the full sample code:\n\n#include \"FWCE.ch\"\n\nstatic oMenuItem1, oMenuItem2, oMenu\n\nfunction Main()\n\n   local oWnd\n\n   DEFINE WINDOW oWnd TITLE \"TestMenu\" ;\n      MENU BuildMenu()\n\n	@0,0 button \"Disable\" size 100, 20 action TB_Disable(oMenu:hMenu, oMenuItem1:nID) pixel\n	@30,0 button \"Remove\" size 100, 20 action TB_Enable(oMenu:hMenu, oMenuItem1:nID) pixel\n\n   ACTIVATE WINDOW oWnd ;\n      ON CLICK MsgInfo( \"Click!\" )\n      \nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu()\n \n   DEFINE MENU oMenu RESOURCE 102\n   \n   REDEFINE MENUITEM oMenuItem1 ID 110 OF oMenu ACTION MsgInfo( \"First\" ) when .F.\n\n   REDEFINE MENUITEM oMenuItem2 ID 120 OF oMenu ACTION MsgInfo( \"Second\" )\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n#include \"windows.h\"\n#include \"commctrl.h\"\n\nHB_FUNC( TB_DISABLE ) \n{ \n   HWND hMenuBar = (HWND)SHFindMenuBar(hb_parnl(1)); \n\n   TBBUTTONINFO tbbi; \n   tbbi.cbSize = sizeof(tbbi); \n   tbbi.dwMask = TBIF_STATE; \n   tbbi.fsState = TBSTATE_INDETERMINATE; \n\n   SendMessage( hMenuBar, TB_SETBUTTONINFO, hb_parnl( 2 ), ( LPARAM ) &amp;tbbi ); \n   return; \n} \n\nHB_FUNC ( TB_ENABLE ) \n{ \n   HWND hMenuBar = ( HWND ) SHFindMenuBar( hb_parnl( 1 ) ); \n\n   TBBUTTONINFO tbbi; \n   tbbi.cbSize = sizeof(tbbi); \n   tbbi.dwMask = TBIF_STATE; \n   tbbi.fsState = TBSTATE_ENABLED; \n\n   SendMessage( hMenuBar, TB_SETBUTTONINFO, hb_parnl( 2 ), ( LPARAM ) &amp;tbbi); \n   return; \n}\n\n#pragma ENDDUMP\n\nRegards,\nRoberto Parisi','',0,'GA==','28nbvn4m',1,0,'',137,0,0),(47131,9768,6,316,0,'87.218.187.245',1201340624,1,0,1,1,1,0,'','','Hola Andrés,\n\ntu trabajo se ve muy interesante, la verdad es que hay veces que extraño mucho un debugger, cuando progrmaba solo en Clipper me resultaba fundamental y por ahora solo me tengo que conformar con los queridos OutputDebug String.\n\nYa mismo me lo bajo y hoy le daremos una ojeada.\n\nUn saludo,\n\nCarlos.','',0,'GA==','bt0y9v5e',1,0,'',316,0,0),(47132,9768,6,449,0,'83.40.178.169',1201340792,1,0,1,1,1,1,'','','Hola Andres,\n\nSiempre me ha parecido interesante esta herramienta y pinta bien. Servira para programas win o solo consola ?. Sera libre o de pago ? Codigo abierto ? \n\nEnhorabuena\n\nC.','',0,'GA==','105t0w52',1,0,'',449,0,0),(47133,9717,6,316,0,'87.218.187.245',1201341184,1,0,1,1,1,0,'','Re: Secciones en archivo ini','Hola Manuel,\n\n[quote=&quot;mmercado&quot;:30ns9k59][quote=&quot;horacio&quot;:30ns9k59]Hay alguna función que me devuelva la cantidad de secciones de un archivo ini. Desde ya muchas gracias[/quote:30ns9k59]\ncText := MemoRead( \"MyIni.ini\" )\nnSecciones := StrCharCount( cText, \"[\" )\n\nSaludos\n\nManuel Mercado[/quote:30ns9k59]\n\n\nYo no usaría \'nSecciones := StrCharCount( cText, \"[\" )\' porque me contaría líneas como \n\n; [esto está comentado]\n\no cosas como \nNombre= aCorriente[2]\n\nHabria que tomar cada línea con memoline, eliminar los espacios del principio y verificar que el priemr caracter sea \'[\'\n\n[code:30ns9k59]\nnCuenta&#58;= 0\nFor i&#58;= 1 To MLCount&#40; cText &#41;\n   If Left&#40; LTtrim&#40; MemoLine&#40; cText, i, &#46;&#46;&#46;&#46;&#46;&#41; &#41;, 1 &#41; == \'&#93;\'\n      nCuenta++\n   EndIF\nEndFor\n[/code:30ns9k59]\nNo tengo presente los parámetros de memoline y mlcount, pero estan en la NG seguro.\nUn saludo,\n\nCarlos','',0,'gIA=','30ns9k59',1,0,'',316,0,0),(47134,9769,3,448,0,'81.84.144.101',1201344219,1,0,1,1,1,0,'','winexec() is it working under Vista ?','Hi,\n\nI\'m having problems running programs with winexec under Vista. Is there any known problem with it ?\n\nRegards\nAntonio','',0,'gIA=','12ayiv9w',1,0,'',448,0,0),(47135,9769,3,448,0,'81.84.144.101',1201347931,1,0,1,1,1,0,'','','Oops,\n\nMy mistake.\n\nAntonio','',0,'gIA=','14myf72r',1,0,'',448,0,0),(47136,9717,6,936,0,'190.56.33.195',1201354771,1,0,1,1,1,0,'','','Horacio, puedes utilizar la clase TIni para encontrar un array con todos los nombres de las secciones y po consiguiente el numero de secciones.\n\nEje.:\n\n[code:3u4qmks8]\n&#46;&#46;&#46;\noIni &#58;= Tini&#40;&#41;&#58;New&#40; cIniFile &#41;\naSecctions &#58;= oIni&#58;Sections&#40;&#41;  //Array que contiene todos los nombres de las secciones\n\n? Len&#40; aSecctions &#41; //No&#46; de secciones del INI\n\n\n[/code:3u4qmks8]\n\nEspero te sirva. Saludos.\n\nCarlos.','',0,'AIA=','3u4qmks8',1,0,'',936,0,0),(47137,9768,6,1272,0,'189.174.169.138',1201357181,1,0,1,1,1,0,'','','[quote=&quot;Carles&quot;:1wgqrns6]Hola Andres,\n\nSiempre me ha parecido interesante esta herramienta y pinta bien. Servira para programas win o solo consola ?. Sera libre o de pago ? Codigo abierto ? \n\nEnhorabuena\n\nC.[/quote:1wgqrns6]\n\nHola Carles,\n\nSirve tanto para win como para consola,\nClaro que sera libre,\nCodigo Abierto todavia no,\n\nSaludos,\n\nAndres','',0,'gA==','1wgqrns6',1,0,'',1272,0,0),(47138,9752,3,49,0,'62.13.172.68',1201357307,1,0,1,1,1,1,'','','I resolve it \nI created a new class : TCardPreview\nNow it is only a Beta but run ok !!','',0,'gA==','3qkgywyg',1,0,'',49,0,0),(47139,9770,6,483,0,'190.137.55.48',1201359208,1,0,1,1,1,0,'','Columnas de un Array','Hola Foro: necesito saber el numero de columnas de un array de 2 dimenciones y no se conque funcion determinarlo ( si es que existe).\nDesde ya muchas gracias.','',0,'gA==','21z5gz1d',1,0,'',483,0,0),(47140,9770,6,1255,0,'200.66.237.7',1201360213,1,0,1,1,1,0,'','Re: Columnas de un Array','[quote=&quot;caducca&quot;:xpgf84gy]Hola Foro: necesito saber el numero de columnas de un array de 2 dimenciones[/quote:xpgf84gy]\n\nSi todos los elementos del array tienen el mismo número de columnas:\nnColumnas := Len( aArr[ 1 ] )\n\nEn caso contrario:\nnColumnas := 0\nAEval( aArr, {|e| nColumnas := Max( nColumnas, Len( e ) ) } )\n\nSaludos\n\nManuel Mercado','',0,'gA==','xpgf84gy',1,0,'',1255,0,0),(47141,9771,3,49,0,'62.13.172.68',1201362180,1,0,1,1,1,1,'','SSAY , DSAY and SAYREF transparent','I need these classes transparent\n\nDSAY\nSAYREF\nSSAY\n\nwhere I can found these class with modifies ( tranparent say on dialog resources)','',0,'gA==','p3q7es3z',1,0,'',49,0,0),(47142,9536,6,1173,0,'200.30.155.146',1201362220,1,0,1,1,1,1,'','','Saludos Antonio:\nNo es distinto al que te envie.\nEl ejemplo que te envie no es MDI, y tambien pasa sin la clausula 2007\nSaludos desde Honduras.','',0,'gA==','2tfngdmb',1,0,'',1173,0,0),(47143,9536,6,1173,0,'200.30.155.146',1201362502,1,0,1,1,1,1,'','','Saludos Antonio:\n\nCreo que la socucion de momento seria no usar en un dialgo (no una ventana) un BUTTONBAR, y usar otro estilo de botones.\nA menos que se se de una salida en un futuro ya que me actualice a FiveWin 8.01 y da los mismos resultados; se que es un duro trabajo tratar con cada tipo de enventualidades, estare al pendiente.\n\n<!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: -->  Fivewin el mejor entorno de desarrollo <!-- s:!: --><img src=\"{SMILIES_PATH}/icon_exclaim.gif\" alt=\":!:\" title=\"Exclamation\" /><!-- s:!: --> \n\nSaludos desde Honduras.','',0,'gA==','3iy23ack',1,0,'',1173,0,0),(47144,9700,3,34,0,'68.5.217.82',1201366818,1,0,1,1,1,1,'','Thanks','I had most of that but you had a few more items in the word list descriptor so I made the modification.','',0,'gA==','2c9mb9jg',1,0,'',34,0,0),(47145,9717,6,644,0,'190.188.144.181',1201367145,1,0,1,1,1,0,'','','Les agradezco a todos por responder. Probaré cada una de sus sugerencias. De nuevo muchas gracias','',0,'gA==','ah0qnahv',1,0,'',644,0,0),(47146,9772,6,9,0,'80.103.161.185',1201367230,1,0,1,1,1,1,'','Uestudio 06','Antonio,\n\nMe he descargado para probar Uestudio 06 y te queria comentar lo siguiente:\n\nAl iniciar el programa, aparecen los iconos para generar proyecto, compilar, ejecutar, etc, pero inactivos. No aparece en el Menú \"Proyecto\" por ningun sitio. He marcado al inicio la opción de programación.\n\nHe leido tus comentarios en\n\n <!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=6773&amp;highlight=uestudio\">http://fivetechsoft.com/forums/viewtopi ... t=uestudio</a><!-- m -->\n\n\n1) El fichero de configuración de FWH que subistes a Rapidshare ya no se puede descargar.\n\n2) Entiendo que hay que crear un directorio sobre UEstudio\\config y alli descargar tu fichero aplication. ¿Eso es suficiente? ¿Como sabeUestudio que quiero usar esa configuración y no otra de los otros 30 directorios que hay?\n\n3) Me servirian en Uestudio los recursos RC hechos con WorkShops?\n\nGracias por tu ayuda','',0,'gA==','2t7w07wi',1,0,'',9,0,0),(47147,9751,3,34,0,'68.5.217.82',1201368549,1,0,1,1,1,1,'','PRAGMA','Antonio,\n\nI\'ve been looking at the samples and it would appear your suggestion involves placing C code directly into FWH.\n\nOur need is to call a C function in a DLL.  The problem we encounter is the Data Type LPLONG is not supported in FWH.  \n\nSo,  the following call:\n\n   nReturn := pp_lfopen( \'test.lf\', LFOPEN_NOCACHE, LF_FILE, \'password\', nLFhandle )\n\nWith the following DLL:\n\nDLL32 Function pp_lfopen( filename As LPSTR, lfflags As LONG, lftype As LONG, password As LPSTR, handle As LPLONG) As LONG PASCAL LIB \"Keylib32.dll\"\n\nWill return the error Undefined LPLONG\n\nCan you give a quick sample of how to access the function in the DLL ... and then we can rewrite all the functions in the same manner and make the result to other FWH users who wish to access the current SoftwareKey libraries.\n\nThank you ...','',0,'gA==','1rd942t0',1,0,'',34,0,0),(47148,9751,3,6,0,'87.11.229.206',1201371145,1,0,1,1,1,1,'','Re: PRAGMA','Try:\n\n[code:38w3k2b0]   nReturn &#58;= pp_lfopen&#40; \'test&#46;lf\', LFOPEN_NOCACHE, LF_FILE, \'password\', @nLFhandle &#41;[/code:38w3k2b0]\n\n[code:38w3k2b0]DLL32 Function pp_lfopen&#40; filename As LPSTR, lfflags As LONG, lftype As LONG, password As LPSTR, @handle As PTR&#41; As LONG PASCAL LIB &quot;Keylib32&#46;dll&quot;[/code:38w3k2b0]\n\nEMG','',0,'AIA=','38w3k2b0',1,0,'',6,0,0),(47149,9771,3,303,0,'72.220.181.80',1201373673,1,0,1,1,1,0,'','','If by SSAY you are referring to the Sensitive Say control by Ramón Avendaño, then you just need to add the TRANSPARENT clause in the REDEFINE.\n\nJames','',0,'AIA=','29k0c77e',1,0,'',303,0,0),(47150,9751,3,34,0,'68.5.217.82',1201375145,1,0,1,1,1,1,'','Thank you','We tried PTR but the culprit was the missin @ for nHandle.  Thank you.  I\'ll move ahead now ... it is much appreciated.','',0,'AIA=','thv9a4vw',1,0,'',34,0,0),(47151,9772,6,2,0,'87.218.146.26',1201388481,1,0,1,1,1,1,'','','Manuel,\n\nRevisa la carpeta fwh\\uestudio en las versiones recientes de FWH, gracias\n\nLos recursos te servirán, ya que son algo propio y estandard de Windows','',0,'AIA=','977scnrh',1,0,'',2,0,0),(47152,9321,17,2,0,'87.218.146.26',1201389375,1,0,1,1,1,1,'','','MDI window and a PRINT ... PREVIEW:\n[code=fw:szaf5cp5]<div class=\"fw\" id=\"{CB}\" style=\"font-family: monospace;\"> <br /><span style=\"color: #00D7D7;\">#include</span> <span style=\"color: #ff0000;\">&quot;FiveWin.ch&quot;</span> <br /> <br /><span style=\"color: #00C800;\">function</span> Main<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span> <br /> <br />   <span style=\"color: #00C800;\">local</span> oWnd <br /> <br />   <span style=\"color: #0000ff;\">DEFINE</span> <span style=\"color: #0000ff;\">WINDOW</span> oWnd <span style=\"color: #0000ff;\">TITLE</span> <span style=\"color: #ff0000;\">&quot;Test&quot;</span> MDI ; <br />      <span style=\"color: #0000ff;\">MENU</span> BuildMenu<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span> <br /> <br />   <span style=\"color: #0000ff;\">ACTIVATE</span> <span style=\"color: #0000ff;\">WINDOW</span> oWnd <br /> <br /><span style=\"color: #00C800;\">return</span> <span style=\"color: #00C800;\">nil</span> <br /> <br /><span style=\"color: #00C800;\">function</span> BuildMenu<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span> <br /> <br />   <span style=\"color: #00C800;\">local</span> oMenu <br />    <br />   <span style=\"color: #0000ff;\">MENU</span> oMenu <br />      <span style=\"color: #0000ff;\">MENUITEM</span> <span style=\"color: #ff0000;\">&quot;Test&quot;</span> <br />      <span style=\"color: #0000ff;\">MENU</span> <br />         <span style=\"color: #0000ff;\">MENUITEM</span> <span style=\"color: #ff0000;\">&quot;Preview&quot;</span> <span style=\"color: #0000ff;\">ACTION</span> Preview<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span> <br />      <span style=\"color: #0000ff;\">ENDMENU</span>    <br />      oMenu:<span style=\"color: #000000;\">AddMdi</span><span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span> <br />   <span style=\"color: #0000ff;\">ENDMENU</span> <br />    <br /><span style=\"color: #00C800;\">return</span> oMenu    <br /> <br /><span style=\"color: #00C800;\">function</span> Preview<span style=\"color: #000000;\">&#40;</span><span style=\"color: #000000;\">&#41;</span> <br /> <br />   <span style=\"color: #00C800;\">local</span> oPrn <br />    <br />   <span style=\"color: #0000ff;\">PRINTER</span> oPrn Preview <br />      <span style=\"color: #0000ff;\">PAGE</span> <br />         oPrn:<span style=\"color: #0000ff;\">Say</span><span style=\"color: #000000;\">&#40;</span> <span style=\"color: #000000;\">2</span>, <span style=\"color: #000000;\">2</span>, <span style=\"color: #ff0000;\">&quot;Test&quot;</span> <span style=\"color: #000000;\">&#41;</span> <br />      <span style=\"color: #0000ff;\">ENDPAGE</span> <br />   <span style=\"color: #0000ff;\">ENDPRINTER</span> <br />    <br /><span style=\"color: #00C800;\">return</span> <span style=\"color: #00C800;\">nil</span>          <br /> </div>[/code:szaf5cp5]','a2795b8f2a2ba37e8bec9406721d793e',0,'AIA=','szaf5cp5',1,0,'',2,0,0),(47153,9767,3,2,0,'87.218.146.26',1201389649,1,0,1,1,1,1,'','','Silvio,\n\nWhen a main MDI window is used, the preview is created inside a MDICHILD window. We don\'t set a menu to the preview child window, as it will replace the main pulldown menu (as MDICHILD windows can\'t have a menu inside them). You can easily modify source\\classes\\rpreview.prg in case that you want to set the MDICHILD menu.\n\nThis sample is working fine. Please test it and check if you can reproduce the error that you mention, thanks:\n[code:3bmgx4ir]\n#include &quot;FiveWin&#46;ch&quot; \n\nfunction Main&#40;&#41; \n\n   local oWnd \n\n   DEFINE WINDOW oWnd TITLE &quot;Test&quot; MDI ;\n      MENU BuildMenu&#40;&#41;\n\n   ACTIVATE WINDOW oWnd \n\nreturn nil \n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n   \n   MENU oMenu\n      MENUITEM &quot;Test&quot;\n      MENU\n         MENUITEM &quot;Preview&quot; ACTION Preview&#40;&#41;\n      ENDMENU   \n      oMenu&#58;AddMdi&#40;&#41;\n   ENDMENU\n   \nreturn oMenu   \n\nfunction Preview&#40;&#41;\n\n   local oPrn\n   \n   PRINTER oPrn Preview\n      PAGE\n         oPrn&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n      ENDPAGE\n      PAGE\n         oPrn&#58;Say&#40; 2, 2, &quot;Test&quot; &#41;\n      ENDPAGE\n   ENDPRINTER\n   \nreturn nil         \n[/code:3bmgx4ir]','',0,'AIA=','3bmgx4ir',1,0,'',2,0,0),(47154,9771,3,49,0,'62.13.172.68',1201396416,1,0,1,1,1,1,'','','YES OF COURSE,\nBUT IT NOT IS TRANSPARENT \n\nLOOK \n[code:2412jwih]\n REDEFINE SENSITIVE SAY oSay PROMPT cMail  ;\n                                        COLOR CLR_HBLUE COLOROVER CLR_RED      ;\n                                        ON MOUSEOVER SndPlaySound&#40;&quot;Select&#46;Wav&quot;&#41; ID 212 OF oDlg ;\n                                        ACTION ShellExecute&#40;oWnd&#58;hWnd,&quot;Open&quot;,&quot;MailTo&#58;&quot;+cMail,Nil,Nil,1&#41;;\n                                        TRANSPARENT FONT oFnt\n[/code:2412jwih]','',0,'AIA=','2412jwih',1,0,'',49,0,0),(47155,9767,3,49,0,'62.13.172.68',1201397423,1,0,1,1,1,1,'','','Antonio,\nyour sample run well\n\nI use the same prev32.dll\n\nbut on your sample I can see icons \'xp on gray bar\n\non my application I see   the old icons on bar office 2007 style\n\nwhy ?\nPerhaps I have an error on RPreview class \nbecause Now when press also the X (  window exit) i make error Nwidht\ncan I send U in private my little code ?','',0,'AIA=','2xv8wtq4',1,0,'',49,0,0),(47156,9767,3,49,0,'62.13.172.68',1201401525,1,0,1,1,1,1,'','','perhaps I found an error \n\nwhen on an applicaton we write \n\n[code:3ty7meig]\n DEFINE BUTTONBAR oBar 3DLOOK BUTTONSIZE 25,25 OF oWnd 2007\n[/code:3ty7meig]\n\nwe can see the bar with office 2007 like \n\nand if go on the preview we can see old icon of the rpreview on buttonbar office 2007 style\n\n\nbut if we write \n\n[code:3ty7meig]\n DEFINE BUTTONBAR oBar 3DLOOK BUTTONSIZE 25,25 OF oWnd \n[/code:3ty7meig]\n\nif go on the preview we can see xp icon of the rpreview on a gray buttonbar\n\nperhaps there is an error \n\nWe when write DEFINE BUTTONBAR oBar 3DLOOK BUTTONSIZE 25,25 OF oWnd  2007\nwe want see buttonbar style office 2007 and the xp icons ...\n\n\n\n\n[img:3ty7meig]http&#58;//img254&#46;imageshack&#46;us/img254/3092/2007barfj4&#46;png[/img:3ty7meig]','',0,'CIA=','3ty7meig',1,0,'',49,0,0),(47157,9767,3,2,0,'87.218.146.222',1201420243,1,0,1,1,1,1,'','','Silvio,\n\nIts coded that way. The preview detects if you are using 2007 look and then it uses the same style for its buttons bar:\n\n[url=http&#58;//imageshack&#46;us:2wzwcq70][img:2wzwcq70]http&#58;//img205&#46;imageshack&#46;us/img205/9881/previewcr7&#46;png[/img:2wzwcq70][/url:2wzwcq70]','',0,'GA==','2wzwcq70',1,0,'',2,0,0),(47158,9759,4,2,0,'87.218.146.222',1201425269,1,0,1,1,1,1,'','','Roberto,\n\nThis sample is working fine. No need for the functions that I told you, sorry:\n[code:b3xfv9ij]\n#include &quot;FWCE&#46;ch&quot; \n\nstatic oMenuItem1, oMenuItem2, oMenu \n\nfunction Main&#40;&#41; \n\nlocal oWnd \n\nDEFINE WINDOW oWnd TITLE &quot;TestMenu&quot; ; \nMENU BuildMenu&#40;&#41; \n\n@  0, 0 button &quot;Disable&quot; size 100, 20 action oMenuItem1&#58;Disable&#40;&#41; pixel \n@ 30, 0 button &quot;Enable&quot; size 100, 20 action oMenuItem1&#58;Enable&#40;&#41; pixel \n\nACTIVATE WINDOW oWnd ; \nON CLICK MsgInfo&#40; &quot;Click!&quot; &#41; \n\nreturn nil \n\n//----------------------------------------------------------------------------// \n\nfunction BuildMenu&#40;&#41; \n\nDEFINE MENU oMenu RESOURCE 102 \n\nREDEFINE MENUITEM oMenuItem1 ID 110 OF oMenu ACTION MsgInfo&#40; &quot;First&quot; &#41; \n\nREDEFINE MENUITEM oMenuItem2 ID 120 OF oMenu ACTION MsgInfo&#40; &quot;Second&quot; &#41; \n\nreturn oMenu \n\n//----------------------------------------------------------------------------// \n[/code:b3xfv9ij]','',0,'AIA=','b3xfv9ij',1,0,'',2,0,0),(47159,9768,6,2,0,'87.218.146.222',1201426352,1,0,1,1,1,1,'','','Andrés,\n\nEnhorabuena, se ve muy profesional! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nCon tu permiso, vamos a comentarlo en el foro en Inglés para que otros usuarios puedan probarlo tambien, gracias!','',0,'AIA=','fjbskaim',1,0,'',2,0,0),(47160,9773,3,2,0,'87.218.146.222',1201426472,1,0,1,1,1,1,'','FWH + xHarbour -&gt; Windows debugger!','Andrés Reyes has developed a Windows debugger for FWH + xHarbour using FWH. It looks very promising!\n\nIts free and you can download it from here:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9768\">http://fivetechsoft.com/forums/viewtopic.php?t=9768</a><!-- m -->','',0,'AIA=','11ho5yq1',1,0,'',2,0,0),(47161,9767,3,49,0,'66.249.90.136',1201434276,1,0,1,1,1,1,'','','ok but also in your sample i see buttonbar 2007 style and all old icons no xp \nyou made it in this way ?\n\n\nthen i not found a solution for the second error (nwidth)\n\nI recompile old school application made with fw 2.6 two years ago i think.\n\nNow i recompile it with 7.12 but when i go to two pages it make error i not know why , the last exe not made this type of error , i must recompile another school application but i am sorry if it make error..\nhow i can make ?','',0,'AIA=','19u2unmq',1,0,'',49,0,0),(47162,9767,3,49,0,'62.13.172.68',1201435470,1,0,1,1,1,1,'','','Now  I recompiled with old Rpreview.prg  ( NO CLASS)\n\nIt run ok and not make error ( nwidth()  )\n\nWhen I recompiled with NEW class Rpreview  there is error !!!!!!!!!!!!!!\n\nDo you want control it please ?','',0,'AIA=','1bqtbhv3',1,0,'',49,0,0),(47163,9773,3,49,0,'62.13.172.68',1201436064,1,0,1,1,1,1,'','','Antonio,\n it\'s no source free !!!','',0,'AIA=','3tt4rilh',1,0,'',49,0,0),(47164,9773,3,131,0,'83.44.234.154',1201454479,1,0,1,1,1,0,'','','Silvio, are your tabs open source ?\n\nRegards,','',0,'AIA=','18eeaugj',1,0,'',131,0,0),(47165,9773,3,1146,0,'87.223.181.42',1201455969,1,0,1,1,1,0,'','','You are right José Luis. \n\nIn fact, Sylvio, his work does not copy or decompile other´s classes, or tries to sell those actions, my dear friend.','',0,'AIA=','3rt27676',1,0,'',1146,0,0),(47166,9773,3,51,0,'80.122.88.242',1201456557,1,0,1,1,1,0,'','','Does it also work with Harbour?\nRegards,\nOtto','',0,'AIA=','1ddlxgvo',1,0,'',51,0,0),(47167,9773,3,2,0,'87.218.146.222',1201457654,1,0,1,1,1,1,'','','Silvio,\n\nYou are totally wrong regarding source code availability and software quality and usefullness. \n\nNobody has the obligation to provide his source code unless he uses a GPL licence (or similar).\n\nFiveWin provides most of its source code, because we want to, as we understand that it is very usefull for the programmers, but thats not an obligation.\n\nIn this case, the term \"free\" for the debugger, means that you don\'t have to pay for it, as that is the wish of its developer. Not \"free\" in the sense that source code is provided.','',0,'AIA=','2apav9zf',1,1201458073,'',2,3,0),(47168,9773,3,2,0,'87.218.146.222',1201457814,1,0,1,1,1,1,'','','Otto,\n\nAccording to its developer, it only works with xharbour.','',0,'AIA=','1gt0ness',1,0,'',2,0,0),(47170,9767,3,2,0,'87.218.146.222',1201458216,1,0,1,1,1,1,'','','Silvio,\n\nPlease tell us how to reproduce the error.\n\nWe have provided you a sample that works fine and does not error. Please provide us a sample that errors, thanks','',0,'AIA=','1lrwqszb',1,0,'',2,0,0),(47171,9767,3,2,0,'87.218.146.222',1201458899,1,0,1,1,1,1,'','','Silvio,\n\n&gt;\nok but also in your sample i see buttonbar 2007 style and all old icons no xp you made it in this way ? \n&gt;\n\nFixed, thanks:\n\n[url=http&#58;//imageshack&#46;us:3uq88d1b][img:3uq88d1b]http&#58;//img172&#46;imageshack&#46;us/img172/3342/previewik5&#46;png[/img:3uq88d1b][/url:3uq88d1b]\n\nYou just need to modify source\\classes\\rpreview.prg and change the name of the used resources into the same name ended with \"2\".','',0,'GA==','3uq88d1b',1,1201459664,'',2,1,0),(47172,9767,3,49,0,'66.249.90.136',1201459176,1,0,1,1,1,1,'','','please can you send me in private the rpreview class?','',0,'GA==','3vrdvntf',1,0,'',49,0,0),(47173,9767,3,2,0,'87.218.146.222',1201459749,1,0,1,1,1,1,'','','Silvio,\n\nAlready sent','',0,'GA==','1uyfmluw',1,0,'',2,0,0),(47174,4921,3,233,0,'60.48.219.24',1201464070,1,0,1,1,1,0,'','','I just want to add, if you want to see the value of the connection string, just tack the following at the end of Byron\'s code:\n[code:30x2ix8l]msginfo&#40;oConn&#58;ConnectionString&#41;[/code:30x2ix8l]','',0,'AIA=','30x2ix8l',1,0,'',233,0,0),(47175,9774,3,1257,0,'195.93.60.34',1201467340,1,0,1,1,1,1,'','Switching Colums in xBrowse ( problem fixed !!! )','Hello from Germany\n\nI had a small problem to switch columns in xBrowse\n\nSAMPLES :\n\n// Old \n\nfor nFor := 1 to Fcount()\n      oBrw5:aCols[ nFor ]:bRClickHeader := {|r,c,f,o| cFELD := :cHeader, ;\n      SET_INDEX(oBrw5,cFELD), ;\n      IIF(DBFTYP = \"CDX\", ;\n          cINDKEY := ORDKEY( \"NEUINDEX\" ), ;\n          cINDKEY := INDEXKEY( 0 ) ), ; \n      oBrw5:Refresh(), ;\n      oBrw5:SwapCols( 1, oBrw5:nAt() ), ;\n      oBrw5:nFreeze := 1 }\nnext\n\n// fixed NEW !!\n// --------------\n\nfor nFor := 1 to Fcount()  \n      oBrw5:aCols[ nFor ]:bRClickHeader := {|r,c,f,o| cFELD := ;\n      o:cHeader, ;                                  // = oCol:cHeader\n      nOrder := o:nCreationOrder, ;        // = Number of Clicked-Col \n      SET_INDEX(oBrw5,cFELD), ;\n      IIF(DBFTYP = \"CDX\", ;\n      cINDKEY := ORDKEY( \"NEUINDEX\" ), ;\n      cINDKEY := INDEXKEY( 0 ) ), ; \n      oBrw5:Refresh(), ;\n      oBrw5:SwapCols( 1, nOrder ), ;      // Bring selected Col to 1\n      oBrw5:GoLeftMost(), ;                    // Go to 1. Col ( indexed )\n      oBrw5:nFreeze := 1 }                    // Freeze 1. Col\nnext  \n\n\n( SET_INDEX() is a function, which detects the used RDD from the\n  header of the selected database than\n  the selected col sets the index. )\n\n1.  With a right click on the header, I set the index for the column.\n     Now the Text in the header is red. \n2.  I switch the col-pos for the selected col to 1\n     set the focus to the 1. Col and freeze the 1. Column.\n\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','1om9q2ni',1,0,'',1257,0,0),(47176,9775,3,868,0,'219.64.121.60',1201487988,1,0,1,1,1,1,'','Window Class DATA bTaskBar ?','Can any one enlighten me about the practical use of bTaskBar data in the Window Class please ?','',0,'','z3eazmiu',1,0,'',868,0,0),(47178,9776,3,868,0,'219.64.121.60',1201489653,1,0,1,1,1,1,'','Drag Cursor','In many other applications we see that when a drag cursor is moved over a window ( or control ) that does not accept the drop, the cursor changes as circle with a line inside. The user knows that this control does not accept the drop. Only the window ( control ) which accepts the drop shows the drag cursor in its original shape.\n\nIn the programs we develop with FW, the drag cursor looks the same even when it is moved over windows ( controls ) which do not accept drop. ( bDropOver data is nil ).\n\nIs it possible for the Window class\'s method MouseMove examines the cursor, and if it is a drag cursor originating from some other control, and if the window\'s bDropOver is nil, to change the shape of cursor to the Circle with Dash cursor ?','',0,'','3cokhntr',1,0,'',868,0,0),(47179,9767,3,49,0,'62.13.172.68',1201492993,1,0,1,1,1,1,'','','Antonio,\nI sent you the test','',0,'','uw0ityf0',1,0,'',49,0,0),(47180,9494,6,100,0,'201.16.38.7',1201493358,1,0,1,1,1,1,'','','Ola amigo\n\nFiquei curioso de como fazer isso com o TMYSQL\n\npode colocar um exemplo melhor:\n\nIniciando o TMySQL\nAbrindo a TABELA\ne Fazendo a consulta\n\nFico no aguardo','',0,'','2mzp8a87',1,0,'',100,0,0),(47181,9777,6,215,0,'189.136.194.78',1201494364,1,0,1,1,1,1,'','Subiendo y bajando archivos al FTP','Lo siguiente funciona para bajar un archivo de un ftp.\n\nfunction testftp()\n\n   local oInternet := TInternet():New()\n   local oFTP      := TFTP():New( \"ftp.captura-digital.com\", oInternet, \"user\",\"pass\" )  \n\n   if ! Empty( oFTP:hFTP )\n      Ftpgetfile( oFTP:hFTP,\"nancy.xls\",\"c:\\ok\\nancy.xls\" )\n\n¿¿ Y para subir un archivo ?? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nFernando Leal\nMéxico, DF','',0,'','1rs70w8m',1,0,'',215,0,0),(47182,9678,6,215,0,'189.136.194.78',1201494502,1,0,1,1,1,1,'','bien','uyuyuy!!... que ven mis ojitos.\nAntonio, cada vez pones más guapo al FWH   <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','1zt3wd6x',1,0,'',215,0,0),(47183,9759,4,137,0,'151.38.8.195',1201504297,1,0,1,1,1,0,'','','Sorry Antonio, but it doesn\'t work. After pressing \"Disable\" I still can press on menuitem first and get the MsgInfo()\n\nHave you tried with your testmenu.rc sample?\n\nRegards,\nRoberto Parisi','',0,'','3ad83ea4',1,0,'',137,0,0),(47184,9723,3,241,0,'125.162.42.29',1201504947,1,0,1,1,1,0,'','','Antonio,\n\nSent on Jan.24, may you check it ?\n\nRegards\n\nJohn M. S. Chiang\n\n*-----------------------------\n\n&gt; John, \n\n&gt; Please email me your source\\classes\\say.prg, thanks','',0,'','3tkob3j9',1,0,'',241,0,0),(47185,9759,4,2,0,'87.218.146.222',1201505788,1,0,1,1,1,1,'','','Roberto,\n\nYou must be doing something wrong as here it is working fine.\n\nPlease download it and test it:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/87217677/test.zip.html\">http://rapidshare.com/files/87217677/test.zip.html</a><!-- m -->','',0,'','2nevaa7m',1,0,'',2,0,0),(47186,9777,6,838,0,'80.34.222.112',1201506396,1,0,1,1,1,0,'','','Aqui te pongo como lo envio yo\n[code:2q4iplzp]\n\n#include &quot;fivewin&#46;ch&quot;\n\nFunction Mandaf&#40;fichero&#41;\nLocal oInternet, oFtp, cServFtp&#58;=&quot;ftp&#46;tuftp&#46;com&quot;,cUserFTp&#58;=&quot;usuario&quot;,cPassFtp&#58;=&quot;password&quot;\n\noInternet &#58;= TInternet&#40;&#41;&#58;New&#40;&#41;\noFTP &#58;= TFTP&#40;&#41;&#58;New&#40; Alltrim&#40;cServFtp&#41;, oInternet, Alltrim&#40;cUserFtp&#41;,Alltrim&#40;cPassFtp&#41; &#41;\n\nIf ! Empty&#40; oFTP&#58;hFTP &#41;\nFtpSendFiles &#40;&#123;fichero&#125;,&#123;&quot;Aqui pones la carpeta del ftp donde lo quieres enviar&quot;+fichero&#125;,oFtp&#41;\n\nEndif\noInternet&#58;End&#40;&#41;\n\nReturn &#40;nil&#41;\n\nFunction FTPSendFiles &#40; aSource, aTarget, oFTP &#41;\nLocal nBufSize&#58;=4096\nlocal n\nlocal hSource\nlocal cBuffer &#58;= Space&#40; nBufSize &#41;\nlocal nBytes, nFile &#58;= 0, nTotal &#58;= 0\nlocal nTotSize &#58;= 0\nlocal oFile\n\n\nfor n = 1 to Len&#40; aSource &#41;\nif ! File&#40; aSource&#91; n &#93; &#41;\nMsgStop&#40; &quot;Fichero no encontrado&#58; &quot; + aSource&#91; n &#93; &#41;\nexit\nendif\nhSource = FOpen&#40; aSource&#91; n &#93; &#41;\nnTotSize += FSeek&#40; hSource, 0, 2 &#41;\nFClose&#40; hSource &#41;\nSysRefresh&#40;&#41;\nnext\n\nfor n = 1 to Len&#40; aSource &#41;\nhSource = FOpen&#40; aSource&#91; n &#93; &#41;\n\noFile = TFtpFile&#40;&#41;&#58;New&#40; aTarget&#91; n &#93;, oFTP &#41;\noFile&#58;OpenWrite&#40;&#41;\n\nFSeek&#40; hSource, 0, 0 &#41;\nnFile &#58;= 0\nSysRefresh&#40;&#41;\nwhile &#40; nBytes &#58;= FRead&#40; hSource, @cBuffer, nBufSize &#41; &#41; &gt; 0\noFile&#58;Write&#40; SubStr&#40; cBuffer, 1, nBytes &#41; &#41;\nSysRefresh&#40;&#41;\nend\nFClose&#40; hSource &#41;\noFile&#58;End&#40;&#41;\nnext\nreturn nil\n\n[/code:2q4iplzp]\n\nSaludos\n\nJose Luis','',0,'AIA=','2q4iplzp',1,0,'',838,0,0),(47187,9775,3,2,0,'87.218.146.222',1201506822,1,0,1,1,1,1,'','','Nageswararao,\n\nPlease review fwh\\classes\\TTray.prg\n\nBasically it lets you response to the WM_TASKBAR windows msg. Here you have a C sample:\n[code:28a6bkm5]\n	case WM_TASKBAR&#58;\n		switch&#40;lParam&#41;\n		&#123;\n		case WM_LBUTTONDBLCLK&#58;\n			systray_del&#40;hwnd,IDI_ICON1&#41;;\n			ShowWindow&#40;hwnd, SW_RESTORE&#41;;\n			SetForegroundWindow&#40;hwnd&#41;;\n			break;\n		case WM_RBUTTONUP&#58;\n			hmenu = LoadMenu&#40;g_hInst, MAKEINTRESOURCE&#40;IDR_SYSTRAY&#41;&#41;;\n			hmenu = GetSubMenu&#40;hmenu,0&#41;;\n			GetCursorPos&#40;&amp;p&#41;;\n			SetForegroundWindow&#40;hwnd&#41;;\n			TrackPopupMenu&#40;hmenu,TPM_LEFTALIGN|TPM_LEFTBUTTON|TPM_RIGHTBUTTON,p&#46;x,p&#46;y,0,hwnd,NULL&#41;;\n			break;\n		&#125;\n		return 0;\n\n[/code:28a6bkm5]','',0,'AIA=','28a6bkm5',1,0,'',2,0,0),(47188,9751,3,233,0,'60.48.192.95',1201507702,1,0,1,1,1,0,'','','I use only a few of the functions provided by SoftwareKey. This is what I have so far:\n[code:14hk8wgo]\nDLL32 FUNCTION pp_eztrial1&#40;file AS LPSTR, password AS LPSTR,@errcode AS LONG,@hnd AS LONG&#41; ;\n    AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_errorstr&#40;errorcode AS LONG, @buffer AS LPSTR&#41; ;\n    AS VOID PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_lfclose&#40;hnd AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_bitclear&#40;bit_field AS LONG, bit_number AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_bittest&#40;bit_field AS LONG, bit_number AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_bitset&#40;bit_field AS LONG, bit_number AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_getvarnum&#40;hnd AS LONG, varno AS LONG, @value AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_setvarnum&#40;hnd AS LONG, varno AS LONG, value AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_getvarchar&#40;hnd AS LONG, varno AS LONG, @buffer AS LPSTR&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_lfopen&#40;filename AS LPSTR, flags AS LONG, lfType AS LONG, password AS LPSTR, @lfhnd AS LONG&#41; ;\n    AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_lfalias&#40;lfhnd AS LONG, filename AS LPSTR, flags AS LONG, lfType AS LONG, password AS LPSTR, @lfNewest AS LONG&#41; ;\n    AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_libtest&#40;testnum AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_redir&#40;drive AS LPSTR&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_compno&#40;type AS LONG, filename AS LPSTR, hdd AS LPSTR&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_copycheckth&#40;hnd AS LONG, flags AS LONG, compno AS LONG, b AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_semopen&#40;hnd AS LONG, sem_type AS LONG, path AS LPSTR, prefix AS LPSTR, @shnd AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_semclose&#40;shnd AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_semcount&#40;hnd AS LONG, sem_type AS LONG, path AS LPSTR, prefix AS LPSTR, @kount AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_upddate&#40;hnd AS LONG, flags AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_expired&#40;hnd AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_countinc&#40;hnd AS LONG, var_no AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_setvarchar&#40;hnd AS LONG, varno AS LONG, string AS LPSTR&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_valdate&#40;hnd AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n\nDLL32 FUNCTION pp_getvardate&#40;hnd AS LONG, var_no AS LONG, @month_hours AS LONG, @day_minutes AS LONG, @year_secs AS LONG&#41; AS LONG PASCAL LIB &quot;keylib32&#46;dll&quot;\n[/code:14hk8wgo]','',0,'AIA=','14hk8wgo',1,0,'',233,0,0),(47189,9723,3,2,0,'87.218.146.222',1201509524,1,0,1,1,1,1,'','','John,\n\nI meant Class TSay from FWH version of Dec. 2006, thanks','',0,'AIA=','1gj1k2il',1,0,'',2,0,0),(47190,9759,4,137,0,'151.38.8.195',1201509864,1,0,1,1,1,0,'','','Ok Antonio, I understand.\n\nI use another rc file (the same of your testmenu.prg sample) without child menuitems.\n\nThis is the rc file:\n\n#ifdef _CE\n   #include \"c:\\vce\\include\\arm\\windows.h\"\n   #include \"c:\\vce\\include\\arm\\commctrl.h\"\n#endif\n\n#define I_IMAGENONE		(-2)\n#define IDS_HELP      104\n\n#ifdef _CE\n102 RCDATA\nBEGIN\n   102, 2,\n   I_IMAGENONE, 110, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 202, 0, 0,  \n   I_IMAGENONE, 120, TBSTATE_ENABLED, TBSTYLE_AUTOSIZE, 203, 0, 0,  \nEND\n#endif\n\nSTRINGTABLE DISCARDABLE \nBEGIN\n   202 \"First\"\n   203 \"Second\"\nEND\n\n102 MENU DISCARDABLE \nBEGIN\n    MENUITEM \"\", 110\n    MENUITEM \"\", 120\nEND\n\nRegards,\nRoberto Parisi','',0,'AIA=','1iklxbcf',1,0,'',137,0,0),(47191,9759,4,2,0,'87.218.146.222',1201510894,1,0,1,1,1,1,'','','Roberto,\n\nSo is it working fine now for you ?','',0,'AIA=','1tr0ajko',1,0,'',2,0,0),(47192,9759,4,137,0,'151.38.8.195',1201511510,1,0,1,1,1,0,'','','No, Antonio.\n\nIf you use the rc file I provided you, you can\'t disable the menu item.\n\nRegards,\nRoberto Parisi','',0,'AIA=','219itao2',1,0,'',137,0,0),(47193,9765,2,248,0,'212.145.179.68',1201511943,1,0,1,1,1,0,'','Pie en Browse','Uso el tcbrowse.','',0,'AIA=','23ab8ozq',1,0,'',248,0,0),(47194,9759,4,2,0,'87.218.146.222',1201515504,1,0,1,1,1,1,'','','Roberto,\n\nOk, for the top menuitems you have to use the functions that I told you, this way:\n\n@  0, 0 button \"Disable\" size 100, 20 action TB_Disable( oWnd:hWnd, 110 ) pixel \n\ntested and working fine','',0,'AIA=','aul1yndl',1,0,'',2,0,0),(47195,9723,3,241,0,'125.162.42.29',1201515596,1,0,1,1,1,0,'','','Antonio,\n\nsay.prg from FWH version of Dec. 2006 sent.\n\nRegards.\n\nJohn M. S. Chiang','',0,'AIA=','1prhhapg',1,0,'',241,0,0),(47196,9723,3,2,0,'87.218.146.222',1201515899,1,0,1,1,1,1,'','','John,\n\nReceived, thanks.\n\nWeren\'t you using themes previously in your app ? Are you using themes now ? (   1 24 \"WindowsXP.Manifest\" )','',0,'AIA=','2eyp7r3t',1,0,'',2,0,0),(47197,9676,22,2,0,'87.218.146.222',1201516062,1,0,1,1,1,1,'','','Rafa,\n\nComo te comenté por teléfono, habrá que hacer pruebas para ver en que order exacto deberían evaluarse los bInit para que no surgiesen incompatibilidades con el código actual (ya que la claúsula ON INIT se usa mucho)','',0,'AIA=','uafsafyw',1,0,'',2,0,0),(47198,9778,7,57,0,'80.30.100.25',1201521460,1,0,1,1,1,1,'','Saber si una palicacion se ejecuta en el emulador','Amigos\n¿Existe alguna funcion que indique si una aplicación se está ejecutando en el emulador?\n\nSaludos','',0,'AIA=','6mhap912',1,0,'',57,0,0),(47199,9775,3,49,0,'213.82.134.66',1201522623,1,0,1,1,1,1,'','','Antonio,\n\nThis is an Idea :\n\nIt can be insert on windows class ....\n\nDEFINE WINDOW oWnd FROM x,y to x,y ;\n         TITLE \" test window\" ;\n         MENUbuildmenu () ;\n        COLOR CLR_HGRAY,CLR_HGRAY ;\n        [b:hgmomrl6]TRAY [/b:hgmomrl6];\n        [b:hgmomrl6]MENUTRAY Buildmenutray() [/b:hgmomrl6];\n        TRAYICON icontray;\n        TRAYCLICK CLickfunc() ;\n        ICON ICONSYS;\n        TRAYNOSHOW\n\nTRAY =  .t. or .f\n\nMENUTRAY is the menu of the tray \n\nTRAY ICON is the icon\n\nTRAYICLICK  is on CLICK\n\nTRAYNOSHOW  = .t. ot .f.  \n\n\n\n\nDo you think about it ?\n\nit ispossible to implement it ?','',0,'QA==','hgmomrl6',1,0,'',49,0,0),(47200,8928,20,49,0,'213.82.134.66',1201523181,1,0,1,1,1,1,'','','HO visto su un sito che VIsta usa un altro Activex  per IE\n\nDEVO ritrovare quel sito e te lo scrivo \n\nio l\'ho usato per bloccare definitvamente i computer della scuola\n\n\ncmq io sconsiglio VISTA.....','',0,'QA==','3prhgdum',1,0,'',49,0,0),(47201,9779,3,49,0,'213.82.134.66',1201523316,1,0,1,1,1,1,'','HELP ITALIAN LANGUAGE','How I can set on my application the italian language ?\n\nWich command I must write ?\n\nWich files I must compiled ( insert on my bath file) ?','',0,'QA==','1lu2cyk0',1,0,'',49,0,0),(47202,9778,7,57,0,'80.30.100.25',1201523634,1,0,1,1,1,1,'','','Me respondo a mi mismo:\n\n\nHB_FUNC(ISEMULATOR)\n{\n   WCHAR wszMachineName[128];\n   SystemParametersInfo(SPI_GETOEMINFO, sizeof(wszMachineName), &amp;wszMachineName, 0);\n   hb_retl( strcmp( wszMachineName,L\"Microsoft DeviceEmulator\" ) == 0 ) ;\n}\n\nHB_FUNC(GETOEMINFO)\n{\n   WCHAR wszMachineName[128];\n   SystemParametersInfo(SPI_GETOEMINFO, sizeof(wszMachineName), &amp;wszMachineName, 0);\n   hb_retc( WideToAnsi(wszMachineName ) ) ;\n}\n\nSaludos','',0,'','340id1nn',1,0,'',57,0,0),(47203,9778,7,2,0,'87.218.146.222',1201524752,1,0,1,1,1,1,'','','Toni,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'','65yhyjl6',1,0,'',2,0,0),(47204,9779,3,2,0,'87.218.146.222',1201528009,1,0,1,1,1,1,'','','Silvio,\n\nREQUEST HB_Lang_IT \nREQUEST HB_CODEPAGE_ITWIN // or try HB_CODEPAGE_IT\n\nHB_LangSelect(\"IT\")\nHB_SetCodePage(\"ITWIN\") // or try \"IT\"','',0,'','3isr2hys',1,0,'',2,0,0),(47205,9780,6,1264,0,'64.76.128.19',1201531934,1,0,1,1,1,0,'','MAESTRO RENE FLORES','Le agradeceria me pueda ayudar  con ejemplos(Codigo fuente) como dar solucion a los siguientes  requerimiento:\n\nLos informes del sistema que estoy desarrollando con FWH 7.4 estan diseñados en Crystal Report 9, mi inconveniente surge en la necesidad de guardar estos informes en formato PDF o HTML pero en forma automatica, es decir sin necesidad de presionar el boton de EXPORTAR que muestra la ventana del Previw del Crystal.\nLo segundo es poder seleccionar la impresora a la cual se desea enviar estos informes, ya que el Crystal solo muestra la impresora predeterminada.\nEl foro menciona que se puede hacer atraves de ActiveX pero,  nunca he trabajado con ellos.\n\nA la espera de su apoyo\n\nSaludos y Gracias\n\nMartin','',0,'','2tu9bk54',1,0,'',1264,0,0),(47206,9759,4,137,0,'151.38.8.195',1201532732,1,0,1,1,1,0,'','','Ok Antonio,\nnow it works, I needed to pass hWnd instead hMenu as first parameter in TB_Enable.\n\nMany many thx.\n\nNow I\'ve troubles with GetKeyState() function, it returns always .F.\n\nRegards,\nRoberto Parisi','',0,'','3pramo6v',1,0,'',137,0,0),(47207,9781,6,53,0,'189.139.14.112',1201534149,1,0,1,1,1,1,'','Mensaje para Manuel Mercado','Amigos, disculpen el off topic.\n\nManuel, podrías contactarme a mi correo ?, tengo algunas preguntas.\n\nsoisa2002      @   prodigy    .      net     .    mx\n\nGracias','',0,'','321uwr7g',1,0,'',53,0,0),(47208,9749,6,1030,0,'190.55.55.53',1201534187,1,0,1,1,1,0,'','','Estoy usando MED como editor de texto y Pellec comoeditor de recursos.\nPobre todo lo que me fueron diciendo, y nada! Sigue saliendo mal.\nGracias de verdad por la ayuda, voy a seguir intentando solucionarlo.\nSi a alguien se le ocurre algo mas me avisa.\nMuchas gracias!','',0,'','2xsimege',1,0,'',1030,0,0),(47209,9782,3,448,0,'82.155.9.253',1201534326,1,0,1,1,1,0,'','Runing total in browse column','Hi,\n\nHow can I put a runing total column in a browse ?\n\nRegards\nAntonio[/u]','',0,'','3snqjnt4',1,0,'',448,0,0),(47210,9749,6,103,0,'189.12.219.53',1201534634,1,0,1,1,1,1,'','','Hola,\n\n   Y lo que ocurre si intentas con ANSITOOEM(), asi:\n[code:ri76s0z9]\nAnioAnt&#58;=ANSITOOEM&#40;&quot;10 AÑOS&quot;+&quot; - &quot;+&quot;10 DIAS&quot;&#41;\n\nREDEFINE SAY oSay21     ID 109 OF oDlg; \n   PROMPT &quot; &quot;; \n   COLOR Negro FONT oFont3 \n\n//Cuando presiono un boton se carga el oSay21 \noSay21&#58;SetText&#40;&quot;Antiguedad del cliente&#58; &quot;+AnioAnt&#41; \n[/code:ri76s0z9]\n\nSaludos,','',0,'AIA=','ri76s0z9',1,0,'',103,0,0),(47211,9749,6,53,0,'189.139.14.112',1201538854,1,0,1,1,1,1,'','','Nolgiati:\n\nTal cómo te han mencionado el problema es de tu editor de textos, si estas usando MED prueba en OPTIONS, luego das un clic sobre la opción \ndos DOS(OEM) Character set  y veras que el texto de tu PRG cambia.\n\nSaludos','',0,'AIA=','1xl3858g',1,0,'',53,0,0),(47212,9783,6,362,0,'200.158.18.205',1201540367,1,0,1,1,1,1,'','MsgWait() Con Dos Lineas en un Texto.','Maestros, es posible dos Lineas de texto en um MsgWait()??\n\nComo en el ejemplo abajo hecho en XHARBOUR? Pero, Necesito en FIVEWIN.\n\n[code:1y8stfrx]\n// Testing MsgWait\n\n#include &quot;FiveWin&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nFunction Main&#40;&#41;\n\n   LOCAL oDlg\n\n   //-&gt; Esto es en XHARBOUR\n   MSGWAIT&#40; &quot;TESTE DE MENSAGERIA&quot; + ;\n            HB_OsNewLine&#40;&#41;        + ; //-&gt; CRLF  no funciona en FIVEWIN\n            HB_OSNewLine&#40;&#41;        + ; //-&gt; CRLF  no funciona en FIVEWIN\n            &quot;EM 2 LINEAS&quot;&#41;\n\n\nReturn Nil\n\n//-&gt; Fin\n[/code:1y8stfrx]\n\nMuchas gracias,\n\nBest regards, saludos.','',0,'AIA=','1y8stfrx',1,0,'',362,0,0),(47213,9784,3,89,0,'213.21.136.60',1201541595,1,0,1,1,1,0,'','Menu style 2007 from resource','Hello  Antonio \n\nThe new menu 2007 from resource  doesn\'t  work . \nIs it possible fix it ?   \n\nRegards MAurizio','',0,'AIA=','28xi0woa',1,0,'',89,0,0),(47214,9783,6,1201,0,'200.90.17.154',1201544361,1,0,1,1,1,0,'','','Utiliza:CRLF\n\nmsgAlert(\"Reclamo: \"+strzero(mCODSUC,3)+\'-\'+strzero(manosin,2)+\'-\'+strzero(mNROSIN,5)+\'-\'+;\nstrZERO(mTNR,3)+CRLF+\" Creado Con Exito\"+CRLF+\"Importante. Anote el Número\",\"Atencion...\")\n\n\nEn todos los sitios donde desees colocar más de una línea (inclusive en los encabezados de los Listbox, Clase twbrowse )\n\n\nEspero te sirva la respuesta.\n\n\nSaludos, Colega.','',0,'AIA=','6nuetiw7',1,0,'',1201,0,0),(47215,9785,2,890,0,'190.9.66.224',1201544431,1,0,1,1,1,0,'','Meter com mp3','Antonio\n\nSaludo cordial\n\nDos cosas\n\nEn un ejercicio en donde se corre un mp3 como le puedo colocar un meter para mostrar el  avance de la ejecución del mp3?\nEl meter se puede colocar indistintamente en una ventana mdi y en un Dialogo? \nAntonio\n\nSaludo cordial\n\nDos cosas\n\nEn un ejercicio en donde se corre un mp3 como le puedo colocar un meter para mostrar el  avance de la ejecución del mp3?\nEl meter se puede colocar indistintamente en una ventana mdi y en un Dialogo? \n\nGracias Antonio\nCordialmente\n\nJairo Barbosa\n\nGracias Antonio\nCordialmente\n\nJairo Barbosa <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: --> <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'AIA=','2stjct6u',1,0,'',890,0,0),(47216,9783,6,1201,0,'200.90.17.154',1201544676,1,0,1,1,1,0,'','','Tienes Razon, no trabaja en MsgWait, Déjame revisar....','',0,'AIA=','2jl3yh7i',1,0,'',1201,0,0),(47217,9770,6,483,0,'190.139.122.142',1201547158,1,0,1,1,1,0,'','Columnas de un Array','Gracias Maestro. Solucionado.','',0,'AIA=','2t4j37vp',1,0,'',483,0,0),(47218,9783,6,1201,0,'200.90.17.154',1201549017,1,0,1,1,1,0,'','','te envié un correo con una posible solución, responde por aquí si te llego!\n\n\n\nOjala te sirva!','',0,'AIA=','1r8popyu',1,0,'',1201,0,0),(47219,9768,6,940,0,'189.175.190.101',1201549292,1,0,1,1,1,1,'','','Holas adres,  \n\ngracias por el debuger,,\n\nintentando probar con VERCE me dice que faltan unas funciones,\n\nCompilado y Enlazado de: [C:\\SYSCTRL\\SYSCTRL\\SYSCTRL.Exe]\nEjecución No. 5\nEjecutada a las: 13:40:19\n============================================================\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_HB_DBG_SETENTRY\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_GETSOURCEFILES\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_SETGO\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_SETCBTRACE\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_ISVALIDSTOPLINE\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_SETQUIT\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_SETTRACE\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_SETNEXTROUTINE\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_ADDWATCH\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_GETEXPRVALUE\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_SETTOCURSOR\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_ADDBREAK\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_DELBREAK\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nError: Unresolved external \'_HB_FUN_HB_DBG_DELWATCH\' referenced from\nC:\\SYSCTRL\\SYSCTRL\\WDEBUG.LIB|debugger\nFin del proceso.\nMAKE Version 5.2  Copyright (c) 1987, 2000 Borland\n** error 2 ** deleting C:\\SYSCTRL\\SYSCTRL\\SYSCTRL.exe\nHa habido ERRORES al intentar Generar la Aplicacion\n===============================================','',0,'','1srrt1qn',1,0,'',940,0,0),(47220,9783,6,362,0,'200.158.18.205',1201550224,1,0,1,1,1,1,'','','[quote=&quot;ADBLANCO&quot;:346zam74]te envié un correo con una posible solución, responde por aquí si te llego!\n\n\n\nOjala te sirva![/quote:346zam74]\n\nSI ANGEL, MUI BUENO.   ÉS MUI INTELIGENTE!\n\nMuchas gracias.\n\nBest regards, saludos.','',0,'gA==','346zam74',1,0,'',362,0,0),(47221,9771,3,303,0,'72.220.181.80',1201550497,1,0,1,1,1,0,'','','Silvio,\n\nPerhaps there is a bug when using all the clauses you are using. Try this:\n\nREDEFINE SENSITIVE SAY ID 212 of oDlg transparent\n\nAnd see if that works. If so, then start adding the rest of your clauses one at a time until if fails. That will at least give you a starting point to debug the problem.\n\nJames','',0,'gA==','ye7ppcjx',1,0,'',303,0,0),(47222,9786,3,1257,0,'195.93.60.34',1201551160,1,0,1,1,1,1,'','Some changes in xBrowse, to read, edit a. write OemToAnsi','Hello from Germany\n\nWith all extern Browsers i know, DBAdmin, DBView and so on\nit is possible to switch between ANSI and OEM\n\nWith some small changes in the xBrowse-Class you can do the same.\nIt is possible, to read, edit und write in OemToAnsi-Style.\nwith xBrowse\n\nSample :\n\noBrw5 := TXBrowse():New( oDlg3 )\noBrw5:nMarqueeStyle		:= MARQSTYLE_HIGHLCELL\noBrw5:nColDividerStyle	:= LINESTYLE_BLACK\noBrw5:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw5:lColDividerComplete	:= .t.\noBrw5:nHeaderLines		:= 1\noBrw5:nDataLines		:= 1\noBrw5:lAllowColSwapping           := .t. \n// ----------------------------------------------\n// ---------------------- NEW -----------------------\noBrw5:lOemToAnsi  := lOemAnsi  //  Var for Oem / Ansi   .T. or .F.  \n// ---------------------------------------------\n// ---------------------------------------------\noBrw5:SetRDD()\n\ndefine a Var lOemAnsi := .T. if Ansi, .or. .F. if Oem you want to use. \nbefore you open the database you set the var.\nThe database is shown with the mode you defined in lOemAnsi.\n\n// Celledit\n// ---------\nfor nFor := 1 to len( oBrw5:aCols )\n      oCol := oBrw5:aCols[ nFor ]\n      oCol:nEditType := 1\n      oCol:bOnPostEdit := {|o, v, n| IIF( n != VK_ESCAPE, ;\n              ( IIF( Net_Lock(), ;\n                  IIF( lOemAnsi = .T., ;\n                     FieldPut( o:nCreationOrder, AnsiToOem(v) ), ;\n                     FieldPut( o:nCreationOrder, v ) ), Net_ULock () ), NIL ), ) }\nnext\n\n//----------- CHANGES in xBROWSE-Class ----------------------//\n\nCLASS TXBrowse FROM TControl\n\n    DATA lCreated,;            \n        lRecordSelector,;    \n        lHScroll,;            \n        lVScroll,;           \n        lAllowRowSizing,;    \n        lAllowColSwapping,;   \n		  lAllowColHiding,;     \n        lColDividerComplete,; \n        ;                     \n        lFastEdit, ;          \n        ;                     \n        lEditMode,;           \n        lRefreshOnlyData,;    \n        l2007, ;              \n        // ------------- ADD this line ------------------\n        lOemToAnsi ;    // OemToAnsi look !!!!\n        // -------------------------------\n       AS LOGICAL\n \n//----------------------------------------\n\nMETHOD New( oWnd ) CLASS TXBrowse\n\n   DEFAULT oWnd := GetWndDefault()\n\n   ::oWnd  := oWnd\n\n   If oWnd != nil\n      ::oFont := oWnd:oFont\n   Endif\n\n   ::aCols       := {}\n   ::aSelected   := {}\n\n   ::bClrHeader   := {|| { GetSysColor( COLOR_BTNTEXT ), ;\n     GetSysColor( COLOR_BTNFACE ) } }\n   ::bClrFooter   := ::bClrHeader\n   ::bClrStd      := {|| { CLR_BLACK, GetSysColor( COLOR_WINDOW )} }\n   ::bClrSel      := {|| { CLR_BLACK, ;\n     GetSysColor( COLOR_INACTIVECAPTIONTEXT )} }\n   ::bClrSelFocus := {|| { CLR_WHITE, ;\n      GetSysColor( COLOR_HIGHLIGHT )} }\n   \n   // ::bKeyCount := { || 1 }\n   // ::bKeyNo    := { || 1 }\n   // ::bSkip     := { || 0 }\n   // ::bBookMark := { || 0 }\n\n   ::cCaption := \"\"\n   ::cAlias   := \"\"\n   ::cSeek    := \"\"\n\n   ::nDataType := DATATYPE_RDD\n\n   ::nTop     := 0\n   ::nLeft    := 0\n   ::nBottom  := 100\n   ::nRight   := 100\n\n   ::nStyle := nOr( WS_CHILD, WS_BORDER, ;\n                            WS_VISIBLE, WS_TABSTOP )\n\n   ::SetColor( CLR_BLACK, GetSysColor( COLOR_WINDOW ) )\n\n   ::lDrag     := .f.\n   ::lFocused  := .f.\n   ::lHScroll  := .t.\n   ::lVScroll  := .t.\n\n   ::lRecordSelector     := .t.\n   ::lAllowRowSizing     := .t.\n   ::lColDividerComplete := .f.\n   ::lAllowColSwapping   := .t.\n   ::lAllowColHiding     := .t.\n   ::lFastEdit           := .f.\n\n   ::nRowSel      := 1\n   ::nColSel      := 1\n   ::nColOffset   := 1\n   ::nFreeze      := 0\n   ::nCaptured    := 0\n   ::nLastEditCol := 0\n\n   ::nRowDividerStyle := LINESTYLE_NOLINES\n   ::nColDividerStyle := LINESTYLE_NOLINES\n   ::nMarqueeStyle    := MARQSTYLE_SOLIDCELL\n\n   ::nHeaderLines := 1\n   ::nFooterLines := 1\n   ::nDataLines   := 1\n\n   ::hBmpRecSel := FwRArrow()\n\n   ::lHeader          := .t.\n   ::lFooter          := .f.\n   ::lRefreshOnlyData := .f.\n   \n   ::l2007 = .T.\n   // -------------------- NEW -Add this line -----\n   ::lOemToAnsi = .F.      \n   // ------------------------------------------------\n\nreturn Self\n\n//----------------------------------------------------------------------------//\n\nMETHOD SetRDD( lAddColumns ) CLASS TXBrowse\n\n   local oCol\n   local cAlias, cAdsKeyNo, cAdsKeyCount\n   local nFields, nFor\n\n   DEFAULT lAddColumns := .T.\n\n   if Empty( ::cAlias )\n      ::cAlias := Alias()\n      if Empty( ::cAlias )\n         return nil\n      endif\n   endif\n\n   cAlias := ::cAlias\n\n   DEFAULT ::bGoTop    := {|| ( cAlias )-&gt;( DbGoTop() ) },;\n           ::bGoBottom := {|| ( cAlias )-&gt;( DbGoBottom() ) },;\n           ::bSkip     := {| n | iif( n == nil, n := 1, ), ;\n                                       ( cAlias )-&gt;( DbSkipper( n ) ) },;\n           ::bBof      := {|| ( cAlias )-&gt;( Bof() ) },;\n           ::bEof      := {|| ( cAlias )-&gt;( Eof() ) },;\n           ::bBookMark := {| n | iif( n == nil,;\n                                     ( cAlias )-&gt;( RecNo() ),;\n                                     ( cAlias )-&gt;( DbGoto( n );\n                                    ) ) }\n\n   If \"ADS\"$( ::cAlias )-&gt;( RddName() )\n      cAdsKeyNo    := \"{| n, Self | iif( n == nil, \" +;\n                         \"Round( \" + cAlias + ;\n                         \"-&gt;( ADSGetRelKeyPos() ) * Self:nLen, 0 ), \"+;\n                         cAlias + \"-&gt;( ADSSetRelKeyPos( n / Self:nLen ) ) ) }\"\n\n      cAdsKeyCount := \"{|| \" + cAlias + \"-&gt;( ADSKeyCount(,,1) )}\"\n\n      DEFAULT ::bKeyNo    := &amp;cAdsKeyNo ,;\n              ::bKeyCount := &amp;cAdsKeyCount\n   else\n       DEFAULT ::bKeyNo    := {| n | iif( n == nil,;\n                                        ( cAlias )-&gt;( OrdKeyNo() ),;\n                                        ( cAlias )-&gt;( OrdKeyGoto( n );\n                                        ) ) },;\n               ::bKeyCount := {|| ( cAlias )-&gt;( OrdKeyCount() ) }\n   Endif\n\n   if lAddColumns\n      if len( ::aCols ) == 0\n         nFields := ( cAlias )-&gt;( FCount() )\n         for nFor := 1 to nFields\n            oCol := ::AddCol()\n            oCol:cHeader  := ( cAlias )-&gt;( FieldName( nFor ) )\n// -------------------------------------------------------\n// ---- NEW ---------------------------------------------------\n	    IF ::lOemToAnsi = .F.\n		oCol:bStrData := GenFieldBlock1( cAlias, nFor )\n	    ELSE\n		oCol:bStrData := GenFieldBlock2( cAlias, nFor )\n	    ENDIF	\n// --------------------------------------------------------\n// --------------------------------------------------------\n	 next\n      endif\n   endif   \n\nreturn nil\n \n//----------------- Oem ----------------------------------//\n\nSTATIC FUNCTION GenFieldBlock1( cAlias, nField )\n\nRETURN {|| cValToChar( ( cAlias )-&gt;( FieldGet( nField ) ) ) }\n\n//------------------ Ansi ---------------------------------//\n\nSTATIC FUNCTION GenFieldBlock2( cAlias, nField )\n\nRETURN {|| cValToChar( OemToAnsi( ( cAlias )-&gt;( FieldGet( nField ) ) ) ) }\n\nIt works for me but i think, there are maybe still more changes\nto do. I stopped at this point.\n\nRegards \nUwe König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','1ova7o28',1,0,'',1257,0,0),(47223,9777,6,215,0,'189.137.185.132',1201551634,1,0,1,1,1,0,'','ok','Jose Luis,\n\nHa funcionado a la primera !\n\nGracias por ayudarme','',0,'','2d9ye0fw',1,0,'',215,0,0),(47224,8928,20,29,0,'88.149.165.218',1201552757,1,0,1,1,1,1,'','','Non sapete se è possibile utilizzare in alternativa la classe twebclient  (mai usata) ?','',0,'','3hkgqezw',1,0,'',29,0,0),(47225,8928,20,6,0,'82.59.197.252',1201552947,1,0,1,1,1,1,'','','In realtà sembra che l\'unica differenza sia nella proprietà Busy. Io purtroppo non ho Vista e non posso fare esperimenti ma qualcuno che ce l\'ha potrebbe cercare un sostituto della proprietà Busy e provare se funziona.\n\nEMG','',0,'','wrq58sxr',1,0,'',6,0,0),(47226,9787,6,238,0,'201.120.130.183',1201554127,1,0,1,1,1,0,'','Code128, un ejemplo...','Hola foro, hace tiempo hice una pequeña app en fw16 bits con esta fabulosa lin de Cayetano de codigo de barras, pero ahora me veo en la necesidad de usarlo  a fw + xharbour pero nada, el lector no me lo reconoze, alguien podria mandarme un  ejemplo de como aplicarlo...\n\nSaludos \nRosales, Luis','',0,'','1oymu51i',1,0,'',238,0,0),(47227,9783,6,1201,0,'200.90.17.154',1201556162,1,0,1,1,1,0,'','','A tus Ordenes!\n\n\nSaludos, Colega!','',0,'','3vsnh1ex',1,0,'',1201,0,0),(47228,8928,20,6,0,'82.59.197.252',1201556335,1,0,1,1,1,1,'','','Prova a sostituire\n\n[code:3attxln4]WHILE oIe&#58;Busy\n    SYSREFRESH&#40;&#41;\nENDDO[/code:3attxln4]\n\ncon\n\n[code:3attxln4]WHILE oIe&#58;ReadyState &lt;&gt; 4\n    SYSREFRESH&#40;&#41;\nENDDO[/code:3attxln4]\n\ne fammi sapere.\n\nEMG','',0,'AIA=','3attxln4',1,0,'',6,0,0),(47229,9768,6,1272,0,'200.92.82.56',1201556821,1,0,1,1,1,0,'','','Hola,\n\nTodas esas funciones estan contenidas dentro del archivo dbgentry.c de la libreria rtl.lib ...\n\nAsegura que esa libreria se encuentre ahi ...\n\nRecuerda que por el momento solo funciona con (x)Harbour, con harbour proximamente...\n\n\nSaludos,\n\nAndres Reyes','',0,'AIA=','3l6m78aj',1,0,'',1272,0,0),(47230,9788,6,570,0,'190.30.57.131',1201561328,1,0,1,1,1,1,'','Windows ha detectado un problema y debe cerrarse TWBROWSE','Estimados, he acabado de actualizarme a FWH 8.01 y depues de renegar un poco con las clases de terceros no puedo usar la TWBROWSE de hernán directamente windows cierra la aplicación, es compatible la twbrowse de hernán y esta versión, es que no me gustaría cambiar toda la aplicación ya realizada usando esta clase, desde ya muchas gracias por vuestra ayuda...\n\nSaludos,','',0,'AIA=','22lxck4h',1,0,'',570,0,0),(47231,9789,6,389,0,'189.132.54.24',1201561959,1,0,1,1,1,0,'','Es posible recuperar una fuente de disco ??','Hola, me es necesario usar una fuente que esta instalada en una carpeta del disco, y no se encuentra instalada en windows.. \n- alguien conoce la forma de poder usar una fuente sin que se encuentre instalada en windows ???\nSaludos y gracias\nGABO','',0,'AIA=','10sk5l3v',1,0,'',389,0,0),(47232,9788,6,2,0,'87.218.146.222',1201562895,1,0,1,1,1,1,'','','Gustavo,\n\nEstás usando Harbour ó xHarbour ?\n\nPor favor envíame por email el código fuente del browse de Hernán que estás usando para que lo revisemos y te lo solucionemos de inmediato, gracias','',0,'AIA=','39k9mbdq',1,0,'',2,0,0),(47233,9776,3,303,0,'72.220.181.80',1201567804,1,0,1,1,1,0,'','','I would like to know how to do that too.\n\nJames','',0,'AIA=','1z3l1uyy',1,0,'',303,0,0),(47234,9749,6,1255,0,'201.122.38.237',1201568721,1,0,1,1,1,0,'','','[quote=&quot;nolgiati&quot;:3ktx5m7m]Estoy usando MED como editor de texto[/quote:3ktx5m7m]En Med Options, DOS (OEM) Character Set,  [u:3ktx5m7m]NO[/u:3ktx5m7m] debe estar seleccionado. También trata de editar con MED el archivo RC\n\n[quote=&quot;nolgiati&quot;:3ktx5m7m]Pobre todo lo que me fueron diciendo[/quote:3ktx5m7m]Tienes razón, realmente nuestra ayuda ha sido muy Pobre ya que no has podido resolver tu problema, pero lo hacemos de todo corazón <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->:-):-)\n\nSaludos\n\nManuel Mercado','',0,'gQ==','3ktx5m7m',1,0,'',1255,0,0),(47235,9723,3,241,0,'202.152.170.254',1201569135,1,0,1,1,1,1,'','','Antonio,\n\nI use XP themes in previously and current version.\n\nRegards','',0,'gQ==','1p2um3mu',1,0,'',241,0,0),(47236,9768,6,940,0,'189.175.190.101',1201576796,1,0,1,1,1,1,'','','ok. Andres gracias,\n\nvoy a checar.','',0,'gQ==','21311o2p',1,0,'',940,0,0),(47237,9723,3,2,0,'87.218.146.222',1201597638,1,0,1,1,1,1,'','','John,\n\nIf you compare the Class TSay, old and current, they are practically the same one. So the problem has to be a different one.\n\nCould you please post a screenshot of your sample with the previous FWH that you used ? thanks,','',0,'gQ==','3w0w312p',1,0,'',2,0,0),(47238,9776,3,2,0,'87.218.146.222',1201597817,1,0,1,1,1,1,'','','We could control that behavior from the MouseMove() method. \n\nWe need to check the object that it is below the mouse, and if it is a FWH object, and then check its bDropOver codeblock contents.','',0,'gQ==','evx5hqa4',1,1201598150,'',2,1,0),(47239,9776,3,2,0,'87.218.146.222',1201597938,1,0,1,1,1,1,'','','To locate the control that it is under the mouse we can use WindowFromPoint()\n\nTo check if it is a FWH object, we can use:\n[code:10fjv0wq]\nhWndCtl = WindowFromPoint&#40; nRow, nCol &#41;\n\nif oWndFromHwnd&#40; hWndCtl &#41; != nil &#46;and&#46; oWndFromHwnd&#40; hWndCtl &#41;&#58;bDragOver != nil\n   SetCursor&#40; &#46;&#46;&#46; &#41;\nelse\n   SetCursor&#40; &#46;&#46;&#46; &#41;\nendif\n[/code:10fjv0wq]\nWe could modify METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TControl if we want to turn it a standard behavior','',0,'AIA=','10fjv0wq',1,1201598428,'',2,3,0),(47240,9776,3,868,0,'219.64.121.60',1201597981,1,0,1,1,1,1,'','','Yes it is not simple.  That is why we need Mr Antonio. He only can make difficult things easy for us.\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3t7ocsw5',1,0,'',868,0,0),(47241,9776,3,303,0,'72.220.181.80',1201598364,1,0,1,1,1,0,'','','I\'m thinking that there must be a Windows API for this since other programs (like Windows Explorer) can communicate with other programs when dragging the cusor because it changes depending on which program the drag cursor is over. When I dragged it over one program it changed to a link icon, and then over another program and it changed to a black circle containing a slash.\n\nJames','',0,'AIA=','26vfoben',1,0,'',303,0,0),(47242,9776,3,868,0,'219.64.121.60',1201598372,1,0,1,1,1,1,'','','Isn\'t the change in the shape of drag cursor a native behaviour of windows?  Dont think all windows are programmed to change the shape. Just a thought.','',0,'AIA=','33s5h67p',1,0,'',868,0,0),(47243,9776,3,2,0,'87.218.146.222',1201598543,1,0,1,1,1,1,'','','James, Nageswararao,\n\nFWH does not use the standard Windows API for such conversation. We did it that way to have full control on it (as we may need to drop \"non standard\" Windows contents, as Harbour objects, codeblocks, etc.).\n\nBut, on the other hand, we can\'t drop on non FWH apps cause that <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nMaybe we should combine both methods','',0,'AIA=','2cgwvit2',1,1201598668,'',2,1,0),(47244,9776,3,303,0,'72.220.181.80',1201598655,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;Isn\'t the change in the shape of drag cursor a native behaviour of windows? Dont think all windows are programmed to change the shape.\n\nI\'m not sure what you mean?\n\nI dragged a file from Windows Explorer over IE (FiveWin Forum) and it changed to a link icon, then over an email monitoring program and it changed to the circle/slash. The first two are Microsft programs, but the last one isn\'t.\n\nJames','',0,'AIA=','m7wlx3qy',1,0,'',303,0,0),(47245,9776,3,303,0,'72.220.181.80',1201598781,1,0,1,1,1,0,'','','Antonio,\n\n&gt;But, on the other hand, we can\'t drop on non FWH apps cause that.\n\nI don\'t understand. We can\'t because of what? It would be useful if we could drop on non FWH apps.\n\nJames','',0,'AIA=','2tz4hj3p',1,0,'',303,0,0),(47246,9776,3,868,0,'219.64.121.60',1201598803,1,0,1,1,1,1,'','','Mr. James\n\nI meant the same thing as you. I didn\'t explain it well.  That\'s all\nI agree with your earlier post.','',0,'AIA=','1m768cyx',1,0,'',868,0,0),(47247,9776,3,303,0,'72.220.181.80',1201598911,1,0,1,1,1,0,'','','Antonio,\n\nOpps. I misread your previous message. I thought you said you WERE using the Windows API, not that you weren\'t using it.\n\nNow I understand.\n\nJames','',0,'AIA=','29rthzph',1,0,'',303,0,0),(47248,9776,3,868,0,'219.64.121.60',1201599024,1,0,1,1,1,1,'','','Mr Antonio\n\nWe agree with you that it is FW\'s own implementation.  Now we need further improvisation, whenever you find time. No hurry.\n\nIn our own applications we need to make clear to the user where he can drop and where can not.','',0,'AIA=','2926oln0',1,0,'',868,0,0),(47249,9776,3,303,0,'72.220.181.80',1201599456,1,0,1,1,1,0,'','','Yes, I am not in a hurry either. Drag &amp; drop is nice to have, but not a requirement. Lots of users never even discover it.\n\nI did build a prototype app that makes use of D&amp;D and it seems to be quite useful to me. But, I know how to use it, so I know where I can drop and where I can\'t. So, visual \"hinting\" would be a nice addition.\n\nJames','',0,'AIA=','1sdi3kba',1,0,'',303,0,0),(47250,9790,6,439,0,'190.64.73.20',1201601226,1,0,1,1,1,1,'','Extracción de información por el puerto com','Hola a todos.\n\nTengo una aplicación que captura la pesada de una balanza electrónica a través del puerto com1.\n\nActualmente he resuelto la captura con la lib hbcomm, pero intento deshacerme de estas libs y capturar esos datos con las funciones propias de FWHX.\n\nHe hecho algunas pruebas, pero hasta el momento sin éxito.\n\n¿Alguien podría darme información o algún ejemplo de como efectuar esta captura de información desde el puerto com del PC?\n\nDesde ya agradezco la ayuda que siempre me dan.','',0,'AIA=','2d38evg9',1,0,'',439,0,0),(47251,9768,6,956,0,'189.22.134.133',1201602514,1,0,1,1,1,1,'','','Comigo gerou o erro:\n\n[b:3bb0w9gx]Error: Unresolved external \'_HB_FUN_EXENAME\' referenced from WDEBUG.LIB|debugger[/b:3bb0w9gx]','',0,'QA==','3bb0w9gx',1,0,'',956,0,0),(47252,8928,20,29,0,'88.149.165.218',1201602965,1,0,1,1,1,1,'','','Niente da fare purtroppo.\n\nApplication\n===========\n   Path and name: K:\\pigc\\PIGC.Exe (32 bits)\n   Size: 7,570,944 bytes\n   Time from start: 0 hours 0 mins 34 secs \n   Error occurred at: 29/01/08, 11:34:26\n   Error description: Error InternetExplorer.Application/1726  Unknown error: READYSTATE\n   Args:\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:READYSTATE(0)','',0,'QA==','2w57auhy',1,0,'',29,0,0),(47253,9749,6,439,0,'190.64.73.20',1201602993,1,0,1,1,1,1,'','','[quote=&quot;mmercado&quot;:2luvb6fc]\n[quote=&quot;nolgiati&quot;:2luvb6fc]Pobre todo lo que me fueron diciendo[/quote:2luvb6fc]\nTienes razón, realmente nuestra ayuda ha sido muy Pobre ya que no has podido resolver tu problema, pero lo hacemos de todo corazón <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->:-):-)\n\nSaludos\nManuel Mercado[/quote:2luvb6fc]\n\n\nJaja, Manuel, no has perdido el muy buen humor <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','2luvb6fc',1,0,'',439,0,0),(47254,8928,20,6,0,'79.19.240.79',1201603317,1,0,1,1,1,1,'','','Allora non c\'è altro da fare che trovare la documentazione con le variazioni, se esiste. Io non sono riuscito a trovarla. Comunque penso proprio che alla fine queste proprietà ce le rimetteranno. Non è pensabile che tutto il codice preesistente cessi di funzionare solo perché si sono dimenticati di mettere una proprietà oppure perché hanno cambiato un nome, giusto?\n\nEMG','',0,'gA==','3fs4yh3r',1,0,'',6,0,0),(47255,9790,6,2,0,'87.218.146.222',1201603782,1,0,1,1,1,1,'','','José,\n\nRevisa fwh\\samples\\TestComm.prg y Phone.prg','',0,'gA==','122yhbu9',1,0,'',2,0,0),(47256,9768,6,956,0,'189.22.134.133',1201603956,1,0,1,1,1,1,'','','[quote=&quot;Anderson.OL&quot;:3qivjiit]Comigo gerou o erro:\n\n[b:3qivjiit]Error: Unresolved external \'_HB_FUN_EXENAME\' referenced from WDEBUG.LIB|debugger[/b:3qivjiit][/quote:3qivjiit]\n\nBasta adicionar CT.LIB','',0,'wA==','3qivjiit',1,0,'',956,0,0),(47257,9779,3,49,0,'213.82.134.66',1201606649,1,0,1,1,1,1,'','','thanks antonio\nWich file I musyt put on  bathc compiler file ?','',0,'wA==','xx002e2r',1,0,'',49,0,0),(47258,9791,3,49,0,'213.82.134.66',1201606727,1,0,1,1,1,1,'','rond box','how I can create A rondbox over a black box ?','',0,'wA==','1xrpzeaq',1,0,'',49,0,0),(47259,9790,6,362,0,'200.158.19.77',1201607554,1,0,1,1,1,1,'','','Mira se la balanca no tiene una DLL propria. se si, haces asi:\n\nEjemplo:\n\n[code:3lyiprsl]\nSTATIC xDllB             // Para Apertura de la DLL\n//\nFUNCTION&#46;&#46;&#46;\n        //\n        xDllB &#58;= LoadLibrary&#40; &quot;FILIZOLA&#46;DLL&quot; &#41;\n        //\n        DEFINE DIALOG&#46;&#46;&#46;\n        // bla&#46;&#46;&#46; bla&#46;&#46;&#46;\n        ACTIVATE DIALOG&#46;&#46;&#46;\n        //-&gt; salida\n        FreeLibrary&#40; xDllb &#41;\n        XDLLB&#58;=NIL\n//\nRETURN NIL\n[/code:3lyiprsl]\n//-&gt; Tu codigo de trabajo.','',0,'AIA=','3lyiprsl',1,0,'',362,0,0),(47260,9788,6,570,0,'190.30.57.131',1201610363,1,0,1,1,1,1,'','','Estimado Antonio, Gracias por tu respuesta ahora enviaré el codigo a tu e-mail, desde ya muchas gracias,\n\nsaludos,','',0,'AIA=','2yinh695',1,0,'',570,0,0),(47261,9788,6,570,0,'190.30.57.131',1201610523,1,0,1,1,1,1,'','','Por cierto estoy usando XHARBOUR 1.1.0 SimpLex para Borland C\n\nsaludos,','',0,'AIA=','3lvu3yr9',1,0,'',570,0,0),(47262,9776,3,868,0,'219.64.121.60',1201610531,1,0,1,1,1,1,'','','Mr Antonio\n\nHere is a suggestion.\n\nAt the outset, when the first window is created a NoDropCursor is created either as static variable or class variable in the Window.prg. At the end of the application this cursor is destroyed. Assuming this is done, I suggest the following modification to the MoveMove method of Window.Prg\n\n\n[code:5jgg0ypv]\nMETHOD MouseMove&#40; nRow, nCol, nKeyFlags &#41; CLASS TWindow\n\n/*\n   // original code\n\n   if &#58;&#58;oCursor != nil\n      SetCursor&#40; &#58;&#58;oCursor&#58;hCursor &#41;\n   else\n      CursorArrow&#40;&#41;\n   endif\n*/\n\n\n   // Proposed Code\n\n   if uDropInto != nil &#46;and&#46; &#58;&#58;bDropOver == nil &#46;and&#46; &#58;&#58;bDropFiles == nil\n      SetCursor&#40; oNoDropCursor&#58;hCusor &#41;\n   elseif &#58;&#58;oCursor != nil\n      SetCursor&#40; &#58;&#58;oCursor&#58;hCursor &#41;\n   else\n      CursorArrow&#40;&#41;\n   endif\n[/code:5jgg0ypv]\n\nPlease review.','',0,'AIA=','5jgg0ypv',1,0,'',868,0,0),(47263,9792,6,362,0,'200.158.19.77',1201611415,1,0,1,1,1,1,'','REFRESH() NO FUNCIONA EN UN BOTTON CON FOLDER.','Buenos dias foro, esto me funciona perfecto en DIALOGOS NORMALES.\nPero en DIALOGOS CON FOLDER´s, NO.  Que hago mal? Que puede estar errado?\n\nSTATIC lLigaBotao := .F.\n[code:1cduuuy8]\n    REDEFINE GET aGet&#91;32&#93;  VAR  VRCUSTO2  ID 51 PICTURE &quot;@K 999,999&#46;99&quot;      ;\n             WHEN&#40; lPesquisa &#41;                                               ;\n             OF oFld&#58;aDialogs&#91;1&#93;        UPDATE                               ;\n             FONT oFont     CURSOR oHand                                     ;\n             COLORS CLR_BLACK, CLR_HCYAN                                     ;\n             VALID&#40; LIGA_BOTAO&#40; oGravar &#41; &#41;\n             //-&gt; Liga/Desliga o Botao &lt;Gravar&gt;\n\n\n    REDEFINE BUTTONBMP oGravar ID 301 OF oDlg                            ;\n             WHEN&#40; lLigaBotao &#41;                                          ;\n             BITMAP &quot;SALVAR&quot;                                             ;\n             ACTION&#40; CLICK&#40;&#41;, PGDNPRODU&#40; lAppend, aGet, CADCLAES,        ;\n                                                        CADPARAM,        ;\n                                                        CADMOVES,        ;\n                                                        CADPRODU, oDlg,  ;\n                                                        oFld &#41; &#41;\n\n//\n//-&gt; Liga o Botao de Gravacao\n//\nSTATIC FUNCTION LIGA_BOTAO&#40; oGravar &#41;\n\n    //-&gt; Desliga o Botao de Gravacao se for Seta Para Cima\n    IF GETASYNCKEY&#40; VK_UP &#41;\n        lLigaBotao &#58;= &#46;F&#46;\n        oGravar&#58;Refresh&#40;&#41;\n        RETURN&#40; &#46;T&#46; &#41;\n    ENDIF\n    //\n    lLigaBotao &#58;= &#46;T&#46;\n    oGravar&#58;Refresh&#40;&#41;\n    //\nRETURN&#40; &#46;T&#46; &#41;\n[/code:1cduuuy8]','',0,'AIA=','1cduuuy8',1,0,'',362,0,0),(47264,9791,3,6,0,'79.19.240.79',1201612406,1,0,1,1,1,1,'','Re: rond box','Have a look at RoundRect() function.\n\nEMG','',0,'AIA=','3tv9mpx0',1,0,'',6,0,0),(47265,9749,6,1030,0,'190.55.44.44',1201613066,1,0,1,1,1,0,'','','jaja!\nAgradesco mucho la ayuda de todos!\nEstos foros me han salvado muchas veces de esas trabas que no te das cuenta.\nSeguramente sea el tema del MED que me comentaron ya que como recien me pase a este editor de texto tengo la version Free para probarlo.\nTendre que comprarlo urgente para poder resolverlo.\nGracias a todos nuevamente.','',0,'AIA=','2iw60qu7',1,0,'',1030,0,0),(47266,9793,6,1030,0,'190.55.44.44',1201614874,1,0,1,1,1,0,'','Empezar con DOSPRN','Hola de nuevo!!\nEstoy intentando usar la clase DOSPRN y la verdad no se por donde empezar.\nAntonio hay algun ejemplo del que me pueda guiar.\n\nGracias,\nslds!','',0,'AIA=','gnz5a1ej',1,0,'',1030,0,0),(47267,9793,6,362,0,'200.158.19.77',1201617222,1,0,1,1,1,1,'','Re: Empezar con DOSPRN','[quote=&quot;nolgiati&quot;:3cs7mgm7]Hola de nuevo!!\nEstoy intentando usar la clase DOSPRN y la verdad no se por donde empezar.\nAntonio hay algun ejemplo del que me pueda guiar.\n\nGracias,\nslds![/quote:3cs7mgm7]\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=226\">http://www.fivewin.com.br/exibedicas.asp?id=226</a><!-- m -->\n\nSaludos.','',0,'gA==','3cs7mgm7',1,0,'',362,0,0),(47268,9776,3,2,0,'87.218.146.222',1201618865,1,0,1,1,1,1,'','','Nageswararao,\n\nThe MouseMove() invoked method is the one from the window (or dialog or control) that starts the drag operation, as it captures the mouse.\n\nSo we should use WindowFromPoint() and oWndFromHwnd() as I explained, because the mouse may be out of the boundaries of the window (or dialog or control) that started the drag operation.','',0,'gA==','21g2s4s0',1,0,'',2,0,0),(47269,9793,6,1030,0,'190.55.44.44',1201619590,1,0,1,1,1,0,'','','Karinha, estoy muy agradecida por tu ayuda. Lo voy a probar.\n\nSlds!','',0,'gA==','2r5zy8ld',1,0,'',1030,0,0),(47270,9794,22,1201,0,'200.90.17.154',1201619760,1,0,1,1,1,0,'','MSGRUN','Actualmente, el MSGRUN no separa en multiples líneas el texto cuando se le coloca CRLF, y me ví forzado a modificar el fuente original de la clase.\nSería posible Implementar esta característica en el fuente original???,\nSe lograría estandarizar el comportamiento de los msg.\n\n\n\nSaludos..\nAngel.','',0,'gA==','3vkbi1sy',1,0,'',1201,0,0),(47271,9749,6,582,0,'190.138.218.167',1201619782,1,0,1,1,1,0,'','','[quote=&quot;nolgiati&quot;:1lb44oxa]jaja!\nAgradesco mucho la ayuda de todos!\nEstos foros me han salvado muchas veces de esas trabas que no te das cuenta.\nSeguramente sea el tema del MED que me comentaron ya que como recien me pase a este editor de texto tengo la version Free para probarlo.\nTendre que comprarlo urgente para poder resolverlo.\nGracias a todos nuevamente.[/quote:1lb44oxa]\n\nProba con Alt_209 (Ð)\nUn abrazo. El Loco =&gt;))','',0,'gA==','1lb44oxa',1,0,'',582,0,0),(47272,8519,6,1030,0,'190.55.44.44',1201619783,1,0,1,1,1,0,'','','Mil gracias!!\nYa tengo todos mis dialogos con los fondos que deseo y con todos los recursos totalmente transparentes. Esto lo hace muy bonito.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nGracias!','',0,'gA==','1ql1d41v',1,0,'',1030,0,0),(47273,9793,6,362,0,'200.158.19.97',1201620749,1,0,1,1,1,1,'','','[quote=&quot;nolgiati&quot;:15dde9wl]Karinha, estoy muy agradecida por tu ayuda. Lo voy a probar.\n\nSlds![/quote:15dde9wl]\n\nA tus Ordenes! \n\nTengo mas ejemplos.\n\nBest regards, saludos desde Brazil.','',0,'gA==','15dde9wl',1,0,'',362,0,0),(47274,9790,6,439,0,'190.64.67.67',1201620901,1,0,1,1,1,1,'','','Gracias a ambos <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> , haré algunas pruebas y les cuento....','',0,'gA==','14l7e3al',1,0,'',439,0,0),(47275,9738,12,1285,0,'189.158.92.191',1201621707,1,0,1,1,1,0,'','Ventajas del envio normal y por emai?','Antonio\n\nMe gustaria saber que haces llegar cuando realizas el envio normal y no por email? Aparte del disco que incluyes en la caja? Que ventajas hay?\n\nYa que por email siento que la unica ventaja es la velociada por eso quiero saber las ventajas del envio normal.\n\nSaludos.\n\n\nGabino V.\nMexico','',0,'gA==','21k4ovtl',1,0,'',1285,0,0),(47276,9795,6,570,0,'200.41.41.132',1201623797,1,0,1,1,1,1,'','Antonio Blinking Dsay y FWH 8.01','Estimado Antonio, estoy tratando de terminar la migración a FWH 8.01 y xharbour 1.1.0 , uso bastante DSAY con parpadeo (BLINKING) pero no me funciona y bloquea el Dialog si funciona usando scroll, que puede ser ?, estuve revisando DSAY.PRG y lo unico que se me ocurre es el TIMER que usa, alguna idea ?\n\nSaludos y Gracias,','',0,'gA==','q9dfj63l',1,0,'',570,0,0),(47277,9711,3,89,0,'213.21.136.60',1201625818,1,0,1,1,1,0,'','','Hello James \n\nI try your sample \n\noBrw:bClrStd:= {|| if( (cAlias)-&gt;(ordkeyno()) % 2 == 0 ,{ CLR_BLACK, COLOR_LIGHT },{ CLR_BLACK, COLOR_DARK }) }\n\nworks fine but if you keep press  the key  ARROW DOWN  after the first page the color remain the same .\n\nRegards Maurizio','',0,'gA==','1seycbut',1,0,'',89,0,0),(47278,9768,6,24,0,'80.24.12.168',1201625995,1,0,1,1,1,1,'','Re: [BETA] Depurador (x)Harbour','[quote=&quot;andresreyes_mzt&quot;:2rz6rong]Hola,\n\nDejo a su consideracion la siguiente aplicacion en la que estoy trabajando es un depurador para (x)Harbour creado con fivewin, esta en fase de pruebas y le faltan todavia algunas cosas por terminar, yodavia trabajo en ellas, tiene sus limitaciones, pero es algo funcional\n\nAhi les dejo una imagen , y el link para descargar , para quienes desen probarlo,  si desean depurar alguna aplicacion incluir la libreria WDEBUG.LIB en lugar de DEBUG.LIB\n\n[img:2rz6rong]http&#58;//andresreyesh&#46;myvnc&#46;com/www/windebug&#46;png[/img:2rz6rong]\n\n[url:2rz6rong]http&#58;//andresreyesh&#46;myvnc&#46;com/www/windebug&#46;zip[/url:2rz6rong]\n\nSaludos,\n\nAndres Reyes[/quote:2rz6rong]\nMe parece fantástico este trabajo, siempre quise empezar pero el tiempo/obligaciones me lo impidieron, que bien que alguien se meta con esto.\nAhora bien, como mosca cojonera, me gustaría saber que intenciones tienes sobre este proyecto, me explico.\n\nSi tienes intención de liberarlo como free software, con gusto ayudaré a desarrollarlo, depurarlo , testearlo, etc...\n\nSi no tienes intención de liberar el código fuente, pero lo haces freeware, estará bien probarlo cuando este terminado.\n\nSi tienes intención de comercializarlo, ojo que me parece correcto , ni critico ni alabo cada cual hace con su trabajo/tiempo lo que quiera, ya no perdería el tiempo ni en mirarlo por encima. ( ya dije que el tiempo es miserable .. <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) --> )\n\nAsi, me gustaría sabe más sobre este proyecto, para decidir si merece la pena o no, invertir el tiempo en él o no.\n\nLa verdad es que lo único que me interesa es averiguar como funciona realmente el debugger, si ya se que esta hecho en Harbour, pero , la verdad es que lo tuyo se ve más profesional, además, también seria interesante portarlo a otras arquitecturas como GNU/Linux.\n\nEn fin, haber si me sacas de dudas para decidir.\nDe todas maneras, gracias por esta herramienta.','',0,'mA==','2rz6rong',1,0,'',24,0,0),(47279,9776,3,868,0,'219.64.121.60',1201628951,1,0,1,1,1,1,'','','Understood. Thanks\n\nHope the following changes to Control.Prg may do:\n[code:3tps7wwt]\nif &#58;&#58;lDrag\n   if &#58;&#58;lCaptured\n      &lt; &#46;&#46;&#46; existing code &#46;&#46;&#46; &gt;\n      // new code begin\n      if oWndOver&#58;hWnd != &#40; hOver &#58;= WindowFromPoint&#40; nCol, nRow &#41; &#41; \n         // oWndOver is static variable\n         oWndOver &#58;= oWndFromHWnd&#40; hOver &#41;\n         if oWndOver&#58;bDropOver == nil  // &#46;and&#46; oWndOver&#58;bDropFiles == nil \n            CursorNO&#40;&#41;  // c-function\n         else\n            SetCursor&#40; &#58;&#58;oDragCursor&#58;hCursor &#41;\n         endif	\n      endif\n      // new code ends\n   else\n     &lt; &#46;&#46;&#46; existing code &#46;&#46;&#46; ?\n   endif\n\n------------------\nHB_FUNC&#40; CURSORNO &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; SetCursor&#40; LoadCursor&#40; 0, IDC_NO &#41; &#41; &#41;;\n&#125;\n------------------\n[/code:3tps7wwt]','',0,'AIA=','3tps7wwt',1,0,'',868,0,0),(47280,9711,3,303,0,'72.220.181.80',1201629239,1,0,1,1,1,0,'','','Maurizio,\n\nIt works fine here with the down arrow. Are you using my example code or did you put this into your own program? I suggest trying my example program listed in a previous message.\n\nJames','',0,'AIA=','1hoga67e',1,0,'',303,0,0),(47281,9711,3,868,0,'219.64.121.60',1201629928,1,0,1,1,1,1,'','','Mr James\n\nThe logic fails to work when the number of visible rows is an odd number. Continuous colors can be seen in many ways of navigation.','',0,'AIA=','3rxl79y2',1,0,'',868,0,0),(47282,9782,3,868,0,'219.64.121.60',1201630984,1,0,1,1,1,1,'','','Only reliable way is to prepare the running totals in advance before starting the browse. If the data is in an array, I add an extra column and work out the running balances first. We can also have a separate array of running totals. If the data is DBF or Recordset I create a two dimensional array of { { RecNo(), nRunningTot }, ... } and use it in the browse. ( Personally I prefer use of Hashes to arrays in this case for reasons for performance and that is what I am doing in my recent programs ).\n\nIf we are using Oracle, we are in for luck. We can make the sql query to return a recordset with running totals calculated by Oracle itself.  ( Example :  SELECT TRNDATE, AMOUNT, SUM( AMOUNT ) OVER ( ORDER BY TRNDATE ) AS RUNNINGTOTAL FROM ..........)\n\nAny attempt to do it in a generic way using browse\'s skip block can only be for academic fun ( I can do it and works for handful of rows ) but not for practical use.  The best, fast and reliable way is to precompute running totals.','',0,'AIA=','342m8hn4',1,0,'',868,0,0),(47283,9711,3,303,0,'72.220.181.80',1201632045,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;The logic fails to work when the number of visible rows is an odd number. Continuous colors can be seen in many ways of navigation.\n\nI think you are referring to my lClrFlag method, not the OrdKeyNo() method. The ordKeyNo() should not be affected by the number of rows visible in the browse. With ordKeyNo() and 13 visible rows, I do not see the problem.\n\nJames','',0,'AIA=','2egajcgx',1,0,'',303,0,0),(47284,9711,3,868,0,'219.64.121.60',1201632106,1,0,1,1,1,1,'','','Yes','',0,'AIA=','1lbkui3h',1,0,'',868,0,0),(47285,9782,3,303,0,'72.220.181.80',1201632295,1,0,1,1,1,0,'','','As NageswaraRao says, the problem is performance. It is only feasible with small numbers of records.\n\nIf you are allowing the user to edit values in the browse, then you have to recalc the totals after each edit. Instead of counting all the records each time, you can subtract the old value and add back the new value to get the new total. This the way I have done it.\n\nRegards,\nJames','',0,'AIA=','3u0n0rdg',1,0,'',303,0,0),(47286,9782,3,868,0,'219.64.121.60',1201632596,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:ldyibvpy]\nIf you are allowing the user to edit values in the browse, then you have to recalc the totals after each edit. Instead of counting all the records each time, you can subtract the old value and add back the new value to get the new total. This the way I have done it.\n[/quote:ldyibvpy]\nYes. And we should also remember to apply the difference to the edited row and all subsequent rows as well each time the value is edited.','',0,'gA==','ldyibvpy',1,0,'',868,0,0),(47287,9782,3,303,0,'72.220.181.80',1201633006,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;Yes. And we should also remember to apply the difference to the edited row and all subsequent rows as well each time the value is edited.\n\nOK, I just noticed that AHF was talking about running totals. I was talking about grand totals. My mistake.\n\nRunning totals are even more of a performance issue than grand totals.\n\nJames','',0,'gA==','1fv8h2zu',1,0,'',303,0,0),(47288,9782,3,6,0,'79.19.240.79',1201633210,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:1brya7tu]Instead of counting all the records each time, you can subtract the old value and add back the new value to get the new total. This the way I have done it.[/quote:1brya7tu]\n\nJames, remember that an application can be used in a network by more than one user and in this situation your technique will fail, if I\'m not missing something.\n\nEMG','',0,'gA==','1brya7tu',1,0,'',6,0,0),(47289,9782,3,448,0,'81.84.144.101',1201634120,1,0,1,1,1,0,'','','Thanks to all, I got the idea.\n\nAntonio','',0,'gA==','2ri7v7im',1,0,'',448,0,0),(47290,9782,3,303,0,'72.220.181.80',1201634323,1,0,1,1,1,0,'','','Enrico,\n\n&gt;James, remember that an application can be used in a network by more than one user and in this situation your technique will fail, if I\'m not missing something. \n\nGood point. I was using it for editing sales orders and invoices. In this case there was only a single user so it worked fine. These orders and invoices often contained more than a hundred items, so recalculating by retotalling the entire list was too slow. The subtract/add method made it instant.\n\nMultiple users is another matter. I would not even try doing running totals with a list that was available for changing by multiple users.\n\nJames','',0,'gA==','11ttck6m',1,0,'',303,0,0),(47291,9793,6,940,0,'189.175.190.101',1201636707,1,0,1,1,1,1,'','','function _prnMatriz()\n     local oPrn\n     local nRen := 1\n     local nPag := 1\n    oPrn:= TDosPrn():New( \"LPT1\" ) \n\n    oPrn:command(\'18\')  //chr(18)  \n                                   //chr(15) condensado\n    \n\n    dbselectArea(\"clientes\")\n    ordsetocus(1)\n    dbgotop()\n    do while !eof()\n         oPrn:say(nRen, 1, field-&gt;codigo )\n         oPrn:say(nRen, 10, field-&gt;nombre)\n         oPrn:say(nRen, 1, 50,  transform(field-&gt;saldo, \"9,999,999.99\") )\n         nRen++\n         if nRen &gt;= 60\n            nPag++\n            nRen := 1 // inicia una nueva pagina.\n         endif\n         dbskip()\n    enddo\n\n    oPrn:end()\n\n  \nreturn nil\n\nsaludos..','',0,'gA==','10rj6mlv',1,0,'',940,0,0),(47292,9796,3,1257,0,'195.93.60.34',1201638019,1,0,1,1,1,1,'','Problem with xBrowse in MDI-Childs','I wanted to change a Browse from Dialog to a MDI-Child \nFollowing happens :\n\n//------------  Quick- Browse  Outlook2003 ---------------------------\n\nFUNCTION PROG_4(oWnd,oDlg,aCtrl,nPage,oOutL2003)\nlocal oDlg3, oFile1, cFile1 := \"\", oBtn1, oBtn2, obtn3, oBtn4, oBrw5, DBFTYP := \"\"\nlocal oFilter, cFilter := SPACE( 70 ), cFELD := \"\", l_INDEX := .F.\nlocal oSUCH, cSUCH := \"\", aSCOPE, nSCOPE := 1\nlocal oEXPORT, cEXPORT := \"EXPORT.DBF  \", oINDKEY, cINDKEY := \"\"\nlocal oOemAnsi, cOemAnsi := \"\"\n\nDEFINE DIALOG aCtrl[nPage]  RESOURCE \"BROWSER\" OF oDlg PIXEL \n\ncFile1 := GET_DBF2()          // the selected Database\nDBFTYP := CabDbf (cFile1)  // DBF-Header-Info  CDX or NTX\nIF lOemAnsi = .T.               // wants to open a Oem or Ansi - Database\n     cOemAnsi := \"ANSI\"\nELSE\n     cOemAnsi := \"OEM\"\nENDIF\n\nIF DBFTYP = \"CDX\"\n     RDDSETDEFAULT( \"DBFCDX\" )\nELSE\n     RDDSETDEFAULT( \"DBFNTX\" )\nENDIF\n\n// -------- Open the Database ---------------------------------\n\nDBSELECTAREA(1)\nUSE &amp;cFile1\nDBGOTOP()\n\nBROWSE()    // Database is open and shows the Data\n\n// ------------------------------------------\n\n// Dosn\'t work in a MDI-Child\n// as a ARRAY and in a Dialog it is OK\n\n//-------------------------------------------\n\noBrw5 := TXBrowse():New( aCtrl[nPage] )    \n// =&gt; aCtrl[nPage] is a MDI-Child of Outlook2003\n\noBrw5:nMarqueeStyle		:= MARQSTYLE_HIGHLCELL\noBrw5:nColDividerStyle	:= LINESTYLE_BLACK\noBrw5:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw5:lColDividerComplete	:= .t.\noBrw5:nHeaderLines		:= 1\noBrw5:nDataLines		:= 1\noBrw5:lAllowColSwapping           := .t.\noBrw5:lOemToAnsi                     := lOemAnsi   // New OemToAnsi\noBrw5:SetRDD()\n\nlClrFlag:=.f. \nfor nFor := 1 to len( oBrw5:aCols )\n\n      //  Error-Message  \n      //  NO WORKAREA in USE !!!!\n      //  as a ARRAYS it is OK \n      // ------------------------------------\n\n      oCol := oBrw5:aCols[ nFor ]\n      oBrw5:bSkip:={| nRecs | ( if(nRecs == nil, nRecs := 1,),nRecs:= ;\n            (1)-&gt;(dbskipper( nRecs )), ;\n            lClrFlag:= if( nRecs % 2 = 0, lClrFlag,!lClrFlag), nRecs) } \n      // Define alternating row colors \n      oBrw5:bClrStd:= {|| if(lClrFlag,{ CLR_BLACK, COLOR_LIGHT }, ;\n                                                      { CLR_BLACK, COLOR_DARK }) } \n      oCol:nEditType := 1\n      oCol:bOnPostEdit := {|o, v, n| IIF( n != VK_ESCAPE, ;\n                             ( IIF( Net_Lock(), ;\n             IIF( lOemAnsi = .T., ;\n                   FieldPut( o:nCreationOrder, AnsiToOem(v) ), ;\n                   FieldPut( o:nCreationOrder, v ) ), Net_ULock () ), NIL ), ) }\nnext\n\noBrw5:CreateFromResource( 110 )\naCtrl[nPage]:oClient := oBrw5\n\nACTIVATE DIALOG aCtrl[nPage] NOWAIT ;\nON INIT (  aCtrl[nPage]:Move( aCORS [1] + 10, aCORS [2] + 230, ;\n                 aCtrl[nPage]:nWidth, aCtrl[nPage]:nHeight, .f. ) )\n\nCLOSE DATABASE\n\nRETURN( NIL )\n\nregards\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','35f02byx',1,0,'',1257,0,0),(47293,9782,3,868,0,'219.64.121.60',1201638698,1,0,1,1,1,1,'','','I would rather say, it depends. In most cases where we are required to provide running totals involve financial transactions where modification of the past data is not allowed. Also in a majority of cases, different users will be handling different parts of the data, by virtue of their job allocation and overlaps are rare. \n\nExamples: A salesman would be browsing his invoices. A cashier would be looking at his cashbook.\n\nEven assuming that is permitted in the data we present, we naturally would have built in appropriate features in our design that facilitate quick check if any part of a particular subset of data is modified by other users and our software would alert the user of such modifications and refresh the data. \n\nI would rather say in most, if not all, situations this can be comfortably handled even in heavy multiuser environments.','',0,'','2907xzla',1,0,'',868,0,0),(47294,9796,3,303,0,'72.220.181.80',1201639919,1,0,1,1,1,0,'','','A dialog is modal and a MDI window is non-modal. The consequence is that when in a non-modal window you can jump out and do something else which might include changing the current workarea.\n\nWhen setting up a browse or with any code referencing a database you need to always use alias referencing. In your code you have not told the browse what the alias is, like this:\n\noBrw:cAlias := cAlias\n\nOr, in your case:\n\noBrw5:cAlias := \"1\"\n\nThe alias referencing issue is a big reason to use database objects since they have that built-in. You still need to tell the browse the alias, but all navigation commands are automatically alias referenced.\n\nJames','',0,'','121ccz4x',1,0,'',303,0,0),(47295,9797,3,868,0,'219.64.121.60',1201640508,1,0,1,1,1,1,'','GetTasks','When I use GetTasks function, it is returning an empty array. Can any others confirm if the function is working correctly for them ? I am using FWH 8.01','',0,'','2388z8tv',1,0,'',868,0,0),(47296,9796,3,46,0,'217.168.114.189',1201641145,1,0,1,1,1,0,'','','[code:241qhug2]\n&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;\nIf !OpenDataBase&#40;&#41; ????  //not open database\n    DBSELECTAREA&#40;1&#41;\n    USE &amp;cFile1\nEndif\n   Select&#40; 1 &#41;\nEndIf\n\n&#46;&#46;&#46;&#46;&#46;&#46;&#46;\n&#46;&#46;&#46;&#46;\nACTIVATE DIALOG aCtrl&#91;nPage&#93; NOWAIT ;\nON INIT &#40; aCtrl&#91;nPage&#93;&#58;Move&#40; aCORS &#91;1&#93; + 10, aCORS &#91;2&#93; + 230, ;\naCtrl&#91;nPage&#93;&#58;nWidth, aCtrl&#91;nPage&#93;&#58;nHeight, &#46;f&#46; &#41; &#41; ;\nVALID &#40; CloseDatabase&#40;&#41;, &#46;T&#46; &#41;\n\n\nStatic Function CloseDataBase&#40;&#41;\n\nCLOSE DATABASE \n\nReturn Nil[/code:241qhug2]\n\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->','',0,'AIA=','241qhug2',1,0,'',46,0,0),(47297,9792,6,46,0,'217.168.114.189',1201641616,1,0,1,1,1,0,'','','[code:276w6lrk]\nSTATIC FUNCTION LIGA_BOTAO&#40; oGravar &#41;\n\n    //-&gt; Desliga o Botao de Gravacao se for Seta Para Cima\n    IF GETASYNCKEY&#40; VK_UP &#41;\n        //lLigaBotao &#58;= &#46;F&#46;\n        //oGravar&#58;Refresh&#40;&#41;\n        oGravar&#58;Disable&#40;&#41;\n        RETURN&#40; &#46;T&#46; &#41;\n    Else\n        oGravar&#58;Enable&#40;&#41;\n    ENDIF \n[/code:276w6lrk]\n\nou pode utilizar oDlg:aEvalWhen()\n\n\nCumprimentos\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->[/quote]','',0,'AIA=','276w6lrk',1,0,'',46,0,0),(47298,9797,3,6,0,'79.19.240.79',1201643305,1,0,1,1,1,1,'','Re: GetTasks','I confirm the problem.\n\nEMG','',0,'AIA=','16tan0qp',1,0,'',6,0,0),(47299,9738,12,2,0,'87.218.146.222',1201643945,1,0,1,1,1,1,'','','Gabino,\n\nEn el envio normal va incluida la caja (muy bonita) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> un CD y el manual impreso.','',0,'AIA=','tl9vzg7h',1,0,'',2,0,0),(47300,9794,22,2,0,'87.218.146.222',1201644095,1,0,1,1,1,1,'','','Angel,\n\nPuedes mostrarnos la modificación que has hecho en el código fuente ? gracias','',0,'AIA=','1j3l9huc',1,0,'',2,0,0),(47301,8498,6,1192,0,'84.78.231.58',1201644334,1,0,0,1,1,0,'','Beta de FastReport para (x) Harbour disponible','Ya ha salido la adaptación del FastReport para (x)Harbour.\n\n[url]http://www.paritetsoft.ru/frh.htm[/url]','',0,'AIA=','1jbzid03',1,0,'',1192,0,0),(47302,8499,6,1192,0,'84.78.231.58',1201644595,1,0,0,1,1,0,'','Beta de FastReport para (x)Harbour disponible','Ya esta disponible la beta de Fastreport para (x)Harbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->','',0,'AIA=','31nfkbvq',1,0,'',1192,0,0),(47303,8503,3,1192,0,'84.78.231.58',1201644657,1,0,0,1,1,0,'','Beta de FastReport para (x)Harbour disponible','Ya esta disponible la beta de Fastreport para (x)Harbour.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->','',0,'AIA=','36d5gfwc',1,0,'',1192,0,0),(47304,9713,3,148,0,'196.205.173.4',1201644836,1,0,1,1,1,0,'','','I have something wrong related with the refresh of the browse. Is that related to xBrowse or for the code ? \nCan I separate the main menu in separate tmain.prg for the main menu and xdata.prg for the class txdata and the tcust.prg for customer database modules (add,edit,delete).\nThanks\nHow can I connect the three .prg ?\n[code:yj0gcz1e]\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n\n\nfunction main&#40;&#41;\n*--------------------------\n\n    local oWnd,oBar\n\n    field cu_acct, cu_name\n\n    set date format to &quot;DD/MM/YYYY&quot;\n    set deleted on\n    set resources to &quot;test04&#46;dll&quot;\n    setHandleCount&#40;99&#41;\n     \n    *use cust exclusive\n    *recall all\n    *index on cu_acct to cust1\n    *index on upper&#40;cu_name&#41; to cust2\n    *use \n    \n    define window oWnd title &quot;Sites Informations&quot; MDI menu buildmenu&#40;oWnd&#41;\n\n    define buttonbar oBar of oWnd size 26,28 3d\n    \n    define button of oBar resource &quot;people&quot; noborder;\n    action TCustomer&#40;&#41;&#58;new&#40;&#41;&#58;browser&#40;&#41;\n\n    activate window oWnd\n\n    set resources to\n    close databases\n\nreturn nil\n\n\n\n\n\n\n//--- Cust class\nclass TCustomer from TXData\n*--------------------------\n   method new\n   method browser\n   method edit&#40;Brw&#41;\n   message delete method _delete\n   method Append_reuse\n *Hidden&#58;\n   data lAdd as logical\nendclass\n\n\n\nmethod new&#40;&#41; CLASS TCustomer\n*-----------------------------\n   super&#58;new&#40;,&quot;cust&quot;&#41;\n   if &#58;&#58;use&#40;&#41;\n     if ! file&#40;&quot;cust1&#46;ntx&quot;&#41;\n      &#58;&#58;createIndex&#40;&quot;cust1&quot;,,&quot;&#40;cu_acct&#41;&quot;&#41;\n      &#58;&#58;closeIndex&#40;&#41;\n     endif\n     if ! file&#40;&quot;cust2&#46;ntx&quot;&#41;\n      &#58;&#58;createIndex&#40;&quot;cust2&quot;,,&quot;upper&#40;cu_name&#41;&quot;&#41;\n      &#58;&#58;closeIndex&#40;&#41;\n     endif\n      &#58;&#58;addIndex&#40;&quot;cust1&quot;&#41;\n      &#58;&#58;addIndex&#40;&quot;cust2&quot;&#41;\n      &#58;&#58;setOrder&#40;1&#41;\n      &#58;&#58;gotop&#40;&#41;\n   endif\n   &#58;&#58;lAdd&#58;=&#46;f&#46;\nreturn self\n\n//---------------------------------------------------------------------------//\n\n\nmethod browser&#40;&#41; CLASS TCustomer\n*-------------------------------------\n   local oDlg,oBrw,ocust,oFont,oCol,nFor,oChild\n\n   &#58;&#58;setOrder&#40;1&#41;\n   &#58;&#58;gotop&#40;&#41;\n\n\n   define font oFont name &quot;Ms Sans Serif&quot; size 0,-14 BOLD\n\n   DEFINE DIALOG oDlg FROM 0,0 TO 45,128 TITLE &quot;Customer Browse &quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;nRowDividerStyle    &#58;= LINESTYLE_BLACK\n   oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n   oBrw&#58;nHeaderLines        &#58;= 1\n   oBrw&#58;nFooterLines        &#58;= 1\n   oBrw&#58;nDataLines          &#58;= 1\n   oBrw&#58;lFooter             &#58;= &#46;t&#46;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;nTop = 0\n   oBrw&#58;nLeft = 0\n   oBrw&#58;nWidth = 1000\n   oBrw&#58;nHeight =600\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;refresh&#40;&#41;\n   \n\n\n      for nFor &#58;= 1 to &#58;&#58;Fcount&#40;&#41;\n      	oBrw&#58;aCols&#91; nFor &#93;&#58;oDataFont &#58;= oFont\n      next\n    \n   // Setup for using database class\n   oBrw&#58;cAlias&#58;= &#58;&#58;cAlias\n   oBrw&#58;bSkip&#58;= &#123;|nRecs| &#58;&#58;skipper&#40; nRecs &#41; &#125;\n   oBrw&#58;bGotop&#58;= &#123;|| &#58;&#58;gotop&#40;&#41; &#125;\n   oBrw&#58;bGoBottom&#58;= &#123;|| &#58;&#58;goBottom&#40;&#41; &#125;\n   oBrw&#58;bBookMark &#58;= &#123;| n | iif&#40; n == nil, &#58;&#58;RecNo&#40;&#41; , &#58;&#58;Goto&#40; n &#41; &#41; &#125;\n   \n\noCust&#58;= self\n\nACTIVATE DIALOG oDlg ON INIT &#40;oBrw&#58;SetSize&#40; 1000, 600 &#41;, BuildButtons&#40; oCust,oBrw,oDlg&#41;,oBrw&#58;Refresh&#40;&#46;t&#46;&#41;, oDlg&#58;Refresh&#40;&#46;t&#46;&#41;&#41; \nRETURN nil\n\nmethod edit&#40;oBrw&#41; CLASS TCustomer\n*---------------------------------\n   local oDlg,oBtnNew\n   local oCust&#58;= TRecord&#40;&#41;&#58;new&#40; self &#41;\n   if &#58;&#58;lAdd\n      oCust&#58;blank&#40;&#41;\n   endif\n\n\n   DEFINE DIALOG oDlg FROM 8, 2 TO 600, 700 PIXEL ;\n      TITLE if&#40;&#58;&#58;lAdd,&quot;Untitled&quot;,&quot;Update&quot;&#41;\n\n\n   @ 1,2 SAY &quot;&amp;ID&quot; OF oDlg PIXEL\n   @ 1,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 1,60 GET oCust&#58;cu_acct OF oDlg PIXEL UPDATE\n\n   @ 15,1 SAY &quot;&amp;Name&quot; OF oDlg PIXEL\n   @ 15,50 SAY &quot;&#58;&quot; OF oDlg PIXEL\n   @ 15,60 GET oCust&#58;cu_name OF oDlg PIXEL UPDATE\n\n\n   @ 280, 10 BUTTON oBtnNew PROMPT &quot;&amp;Save&quot; OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION  &#40; oCust&#58;save&#40;&#41;, oDlg&#58;end&#40;&#41; ,oBrw&#58;refresh&#40;&#41;&#41;\n\n   @ 280, 150 BUTTON oBtnNew PROMPT &quot;&amp;Cancel&quot; OF oDlg PIXEL SIZE 30, 12 ;\n      ACTION  &#40; oDlg&#58;end&#40;&#41; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED ;\n         ON INIT &#40; oDlg&#58;Update&#40;&#41; ,oBrw&#58;refresh&#40;&#41; &#41;\n\noCust&#58;end&#40;&#41;\noDlg&#58;update&#40;&#41;\n\nreturn self\n\n\n\n//---------------------------------------------------------------------------//\n\nmethod _delete&#40;oBrw,oCust&#41; CLASS TCustomer\n*----------------------------------------\n   if msgYesNo&#40;&quot;Delete this record?&quot;&#41; \n      super&#58;delete&#40;&#41; \n      oCust&#58;blank&#40;&#41;\n      oCust&#58;save&#40;&#41;\n   endif \n   &#58;&#58;skip&#40;1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nif oBrw&#58;eof&#40;&#41;\n   &#58;&#58;skip&#40;-1&#41;    \n   &#58;&#58;skip&#40;0&#41;    \nendif\noBrw&#58;refresh&#40;&#41;    \n   \n\nreturn self\n\n//---------------------------------------------------------------------------//\n\nMETHOD Append_reuse&#40;&#41; CLASS TCustomer\n*-------------------------------\n   local nOrder&#58;= &#58;&#58;setOrder&#40;1&#41;\n   local lDeleted&#58;= set&#40;_SET_DELETED,&#46;F&#46;&#41;\n   &#58;&#58;lBuffer&#58;=&#46;f&#46;\n   if &#58;&#58;seek&#40; replicate&#40;&quot; &quot;,len&#40;&#58;&#58;fieldGet&#40;1&#41;&#41;&#41;&#41;\n      if &#58;&#58;recLock&#40;&#41;\n         &#58;&#58;recall&#40;&#41;\n         &#58;&#58;unlock&#40;&#41;\n      endif\n      &#58;&#58;lBuffer&#58;=&#46;t&#46;\n   else\n      &#58;&#58;lBuffer&#58;=&#46;t&#46;\n      super&#58;append&#40;&#41;\n   endif\n   &#58;&#58;setOrder&#40;nOrder&#41;\n   set&#40;_SET_DELETED,lDeleted&#41;\nreturn self\n\n//---------------------------------------------------------------------------//\n\n\n\n\n\n\n\nfunction BuildMenu&#40;oWnd&#41;\n*-------------------\n   local oMenu\nMENU oMenu\nMENUITEM &quot;&amp;Accounts&quot;\n   MENU\n         menuitem &quot;&amp;Accounts Control&quot; message &quot;Meter Read of aCustomer\'s machine&quot; ACTION TCustomer&#40;&#41;&#58;new&#40;&#41;&#58;browser&#40;&#41;\n         menuitem &quot;C&amp;ontracts&quot; message &quot;Initial Data of aCustomer&quot; //ACTION listcont&#40;&#41;\n         menuitem &quot;Sites&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n         MENU\n            menuitem &quot;&amp;Sites Control&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION  listsite&#40;&#41;\n            menuitem &quot;SoftWare&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n            menuitem &quot;HardWare&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n         ENDMENU\n\n\n   menuitem &quot;&amp;Machines&quot; message &quot;Initial Data of aCustomer&quot;\n        MENU\n          menuitem &quot;&amp;Machines Control&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION listmach&#40;&#41;\n          menuitem &quot;&amp;Meter Reader&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //Action TCust&#40;&#41;&#58;new&#40;&#41;&#58;browser&#40;&#41;\n          menuitem &quot;&amp;Spare Parts&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION machines&#40;&#41;\n          menuitem &quot;&amp;Paper Orders&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION machines&#40;&#41;\n          menuitem &quot;&amp;Paper Stock&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION machines&#40;&#41;\n        ENDMENU\n\n   menuitem &quot;&amp;Operators&quot; message &quot;Initial Data of aCustomer&quot;\n      MENU\n        menuitem &quot;Operators Control&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION listoper&#40;&#41;\n        menuitem &quot;Expenses&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;Over Time&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;Transportation Details&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;HoliDays&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;Phone Book&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;Phone Bill&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n      ENDMENU\n\n   menuitem &quot;E&amp;xit&quot; message &quot;Contacts data of aCustomer&quot; ACTION oWnd&#58;end&#40;&#41;\n      ENDMENU\nMENUITEM &quot;&amp;Tables&quot;\n      MENU\n        menuitem &quot;Country&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;Cities&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;Governers&quot; message &quot;Meter Read of aCustomer\'s machine&quot;\n        menuitem &quot;Payment Methods&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION oper&#40;&#41;\n        menuitem &quot;Excess Methods&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION oper&#40;&#41;\n        menuitem &quot;Currencies&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION oper&#40;&#41;\n        menuitem &quot;Machines Type&quot; message &quot;Meter Read of aCustomer\'s machine&quot; //ACTION oper&#40;&#41;\n      ENDMENU\n\n\nMENUITEM &quot;&amp;Inqueries&quot;\nMENUITEM &quot;&amp;Reports&quot;\nMENUITEM &quot;&amp;Import&quot;\nMENUITEM &quot;&amp;Export&quot;\nMENUITEM &quot;&amp;Create&quot;\n      MENU\n         MENUITEM &quot;Excel Sheet&quot;\n         MENU\n                 MENUITEM &quot;Detailed Meter Reads &quot; //action buildexcel1&#40;oWnd,1&#41;\n                 MENUITEM &quot;Accounts Volumes&quot; //action buildexcel1&#40;oWnd,2&#41;\n                 MENUITEM &quot;Months Volumes&quot; //action buildexcel1&#40;oWnd,3&#41;\n                 MENUITEM &quot;Machines Status Sheet&quot; //action buildexcel2&#40;oWnd,1&#41;\n                 MENUITEM &quot;Machines License Sheet&quot; //action buildexcel2&#40;oWnd,2&#41;\n                 MENUITEM &quot;Operators Sheet&quot; //action buildexcel3&#40;oWnd,1&#41;\n                 \n         ENDMENU\n\n         MENUITEM &quot;Word Document&quot;  //ACTION WinExec&#40; &quot;Calendar&quot; &#41; ;\n         SEPARATOR\n         MENUITEM &quot;Power Point Slice&quot;    //ACTION WinExec&#40; &quot;Write&quot; &#41; ;\n      ENDMENU\nMENUITEM &quot;&amp;Update&quot;\n      MENU\n         MENUITEM &quot;Excel Sheet&quot;\n         MENU\n                 MENUITEM &quot;Meter Reads Sheet&quot; //action buildexcel&#40;oWnd,2&#41;\n         ENDMENU\n\n         MENUITEM &quot;Word Document&quot;  //ACTION WinExec&#40; &quot;Calendar&quot; &#41; ;\n         SEPARATOR\n         MENUITEM &quot;Power Point Slice&quot;    //ACTION WinExec&#40; &quot;Write&quot; &#41; ;\n      ENDMENU\n\nMENUITEM &quot;&amp;Utilities&quot;\n      MENU\n         MENUITEM &quot;&amp;Calculator&#46;&#46;&#46;&quot; ACTION WinExec&#40; &quot;Calc&quot; &#41; ;\n            MESSAGE &quot;Calling Windows Calculator&quot;\n\n         MENUITEM &quot;C&amp;alendar&#46;&#46;&#46;&quot;  ACTION WinExec&#40; &quot;Calendar&quot; &#41; ;\n            MESSAGE &quot;Calling Windows Calendar&quot;\n\n         SEPARATOR\n\n         MENUITEM &quot;&amp;Writing&#46;&#46;&#46;&quot;    ACTION WinExec&#40; &quot;Write&quot; &#41; ;\n            MESSAGE &quot;Calling Windows Write&quot;\n      ENDMENU\n\n   ENDMENU\n\n\nreturn oMenu\n\n\n//---------------------------------------------------------------------------//\n\n\nfunction BuildButtons&#40;oCust, oBrw, oDlg&#41;\n*--------------------------------------------------\n    @ 34,1 BUTTON &quot;&amp;New&quot;    OF oDlg SIZE 60, 20 ACTION &#40; oCust&#58;add&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 34,15 BUTTON &quot;&amp;Modify&quot; OF oDlg SIZE 60, 20 ACTION &#40; oCust&#58;edit&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 34,30 BUTTON &quot;&amp;Delete&quot; OF oDlg  SIZE 60, 20 ACTION &#40; oCust&#58;delete&#40;oBrw,oCust&#41;&#41;\n\n    @ 34,45 BUTTON &quot;&amp;Search&quot; OF oDlg SIZE 60, 20 //ACTION addmete&#40; oBrw , oDlg &#41;\n\n    @ 34,60 BUTTON &quot;&amp;Print&quot; OF oDlg SIZE 60, 20 //ACTION oDlg&#58;Report &#40; &quot;meter reads Report&quot;, &#46;t&#46; &#41;\n\n    @ 36,1 BUTTON &quot;&amp;Order&quot;    OF oDlg SIZE 60, 20//ACTION ordercust&#40;oLbx&#41; SIZE 40, 12\n\n    @ 36,15 BUTTON &quot;&amp;Filter&quot;    OF oDlg SIZE 60, 20 ACTION &#40; oCust&#58;filterreads&#40;oBrw&#41;,oBrw&#58;refresh&#40;&#41;,oDlg&#58;update&#40;&#41;&#41;\n\n    @ 36,30 BUTTON &quot;&amp;Unfilter&quot; OF oDlg SIZE 60, 20//ACTION Nonfiltercust&#40;oLbx&#41; SIZE 40, 12\n\n    @ 36,45 BUTTON &quot;&amp;Exit&quot;   OF oDlg SIZE 60, 20 //ACTION oDlg&#58;End&#40;&#41; SIZE 40, 12\n\n\nreturn nil\n\n\nclass TXData from TData\n*-----------------------------\n   method add  \nendclass\n\n//---------------------------------------------------------------------------//\n\nmethod add&#40;&#41;CLASS TXData\n*-----------------------------\n   &#58;&#58;lAdd&#58;=&#46;t&#46;\n   &#58;&#58;blank&#40;&#41;\n   &#58;&#58;edit&#40;&#41;\n   &#58;&#58;lAdd&#58;=&#46;f&#46;\n   &#58;&#58;load&#40;&#41;   // in case they cancel\n   &#58;&#58;GOTOP&#40;&#41;\nreturn self\n\n [/code:yj0gcz1e]','',0,'AIA=','yj0gcz1e',1,0,'',148,0,0),(47305,9798,6,228,0,'201.244.65.30',1201645752,1,0,1,1,1,1,'','Ventanas Estilo Messenger','Amigos del foro tengan buena tarde, como dice el encabezado, que debo hacer para controlar las ventas estilo el ms-messenger. Osea que haya una ventana principal, pero que se pueden abrir mas ventanas sobre esta. Pero que no queden contenidas unas dentro de otras como hace con mdi, alguna idea? \n\nEspero me haya hecho entender, de antemano gracias.','',0,'AIA=','1x3yc6ls',1,0,'',228,0,0),(47306,9798,6,987,0,'189.132.1.233',1201646405,1,0,1,1,1,0,'','','Mi estimado Leandro:\n\nTe refieres a vizualizar en un lugar aleatorio de la pantalla una ventana al abrirse, o estoy bastante despistado..?\n\nKe comportamiento deseas que tengan las ventanas al abrir..?\n\nComentanos cual es tu idea para poderte dar un empujonsito.. <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nSaludo...\n\nI.S.C. Victor Daniel Cuatécatl León\n<!-- w --><a class=\"postlink\" href=\"http://www.soldisoft.unlugar.com\">www.soldisoft.unlugar.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'AIA=','ny8yauo1',1,0,'',987,0,0),(47307,9788,6,2,0,'87.218.146.222',1201647691,1,0,1,1,1,1,'','','Gustavo,\n\nPor favor, prueba esta versión del browse de Hernán para xHarbour:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/87677825/TWBRW32.ZIP.html\">http://rapidshare.com/files/87677825/TWBRW32.ZIP.html</a><!-- m -->','',0,'AIA=','1gh7x9rv',1,0,'',2,0,0),(47308,9795,6,2,0,'87.218.146.222',1201648367,1,0,1,1,1,1,'','','Gustavo,\n\nPor favor envíame la clase DSAY y un pequeño ejemplo de uso, gracias','',0,'AIA=','6se2a6ms',1,0,'',2,0,0),(47309,9713,3,303,0,'72.220.181.80',1201649139,1,0,1,1,1,0,'','','Ehab,\n\n&gt;I have something wrong related with the refresh of the browse. Is that related to xBrowse or for the code ?\n\nPlease describe the refresh problem, including exact steps on how to recreate it.\n \n&gt;Can I separate the main menu in separate tmain.prg for the main menu and xdata.prg for the class txdata and the tcust.prg for customer database modules (add,edit,delete). \n\nYes.\n\n&gt;How can I connect the three .prg ?\n\nYou use a build program, a batch file, or a batch file with make files. Please search the forum for more info.\n\nJames','',0,'AIA=','247qnd69',1,0,'',303,0,0),(47310,9789,6,1255,0,'201.122.38.237',1201650766,1,0,1,1,1,0,'','','Inicio/Ejecutar/Fonts  File/Instalar Nueva Fuente.\n\nTambién desde Panel de Control / Apariencia / Fonts\n\nSaludos\n\nManuel Mercado','',0,'AIA=','z0hyfx7l',1,0,'',1255,0,0),(47311,9787,6,1255,0,'201.122.38.237',1201650992,1,0,1,1,1,0,'','','Hola Luis:\n\nTienes que crear la BarLib.lib para xHarbour, o en su defecto compilar y enlazar con tu aplicación los prgs que forman la BarLIb\n\nSaludos\n\nManuel Mercado','',0,'AIA=','nx08a3r7',1,0,'',1255,0,0),(47312,9798,6,228,0,'200.58.193.219',1201651257,1,0,1,1,1,1,'','Gracias por responder...','Si amigo es eso... es algo parecido a mdi... Pero que las ventanas no queden contenidas dentro de la ventana principal. Es como combinar los dialogos con las ventanas mdi. Que se puedan abrir varios dialogos al tiempo, pero que no esten dentro de la ventana principal. \n\nEjemplo: Messenger, Al hacer doble clic sobre un contacto para chatear se abre una ventana; si das doble clic sobre otro se abre otra ventana y asi sucesivamente. Pero no estan contenidas dentro de la ventana principal del messeger y al cerra la ventana principal del messenger se cierran todas las ventanas en donde estas chateando.\n\nAmigo de verdad que muchas gracias por tu interes, aqui dejo una imagen de como funciona el messenger.\n\n[img]\n[url=http&#58;//img352&#46;imageshack&#46;us/my&#46;php?image=dibujocc3&#46;jpg:288iypbg][img=http://img352.imageshack.us/img352/4007/dibujocc3.th.jpg][/url:288iypbg]\n[/img]','',0,'EA==','288iypbg',1,0,'',228,0,0),(47313,9798,6,940,0,'189.175.190.101',1201651988,1,0,1,1,1,1,'','','amigo leandro  compila este ejemplo  \n\n\\samples\\TESTWNDS.PRG\n\n#include \"fivewin.ch\"\n\nfunction main()\n\n   local oWnd1, oWnd2\n\n   DEFINE WINDOW oWnd1 TITLE \"oWnd1\" ;\n      FROM 5, 5 TO 24, 64\n\n   DEFINE WINDOW oWnd2 TITLE \"oWnd2\" ;\n      FROM 1, 1 TO 20, 60\n\n   oWnd2:Show()\n\n   ACTIVATE WINDOW oWnd1\n\nreturn nil\n\nSaludos','',0,'EA==','2s9x6u3f',1,0,'',940,0,0),(47314,9799,3,300,0,'201.34.212.113',1201652233,1,0,1,1,1,0,'','xbrowse question','Hello\n\nI start using xbrowse and i see a little problem:\n\n<!-- m --><a class=\"postlink\" href=\"http://img143.imageshack.us/my.php?image=xbrwmv3.jpg\">http://img143.imageshack.us/my.php?image=xbrwmv3.jpg</a><!-- m -->\n\nIs it normal?\n\nFwh 8.01\n\nThanks.\nWanderson','',0,'EA==','7rn7sk88',1,0,'',300,0,0),(47315,9798,6,987,0,'189.132.1.233',1201655762,1,0,1,1,1,0,'','','haber se me ocurrio esto, haber que tan cerca estoy..\n\nPruebalo y me comentas..\n\n#INCLUDE \"FIVEWIN.CH\"\n\nSTATIC nDialogos,nVentana,nXPos,nYPos,oWnd\n\n//-----------------------------------------------------------------------------------------------------------------//\nFUNCTION Main()\n\n nVentana:= 0\nnDialogos:= 0\n    nXPos:= 0\n    nYPos:= 0\n     \n DEFINE WINDOW oWnd Title \"Ventanas Estilo Messenger\" MENU MenuPrin()\n ACTIVATE WINDOW oWnd \n     \nRETURN nil\n\n\n//-----------------------------------------------------------------------------------------------------------------//\nSTATIC FUNCTION MenuPrin()\n\nLOCAL oMenu\n\nMENU oMenu\n\nMENUITEM \"&amp;Ventanas\"        \n      MENU\n         MENUITEM \"&amp;Dialogos\"                    ACTION (NuevoDial())\n         SEPARATOR\n         MENUITEM \"&amp;Ventanas\"                    ACTION (NuevaVent())\n      ENDMENU \nENDMENU\n\nRETURN oMenu\n\n//-----------------------------------------------------------------------------------------------------------------//\nSTATIC FUNCTION NuevoDial()\n      \nLOCAL oDlg\n\nnDialogos:= nDialogos + 1\n\n      DEFINE   DIALOG oDlg TITLE \"Soy el Dialogo \"+ALLTRIM(STR(nDialogos)) \n      ACTIVATE DIALOG oDlg ON INIT oDlg:Move(nXPos:= nXPos + 30, nYPos:= nYPos + 30) NOWAIT\n       \nRETURN nil\n\n//------------------------------------------------------------------------------------------//\nSTATIC FUNCTION NuevaVent()\n\nLOCAL oWndMDI\nnVentana:= nVentana + 1\n      \n    DEFINE   WINDOW oWndMDI MDI TITLE \"Soy la Ventana \"+ALLTRIM(STR(nVentana))\n    ACTIVATE WINDOW oWndMDI ON INIT oWndMDI:Move(nXPos:= nXPos + 30, nYPos:= nYPos + 30)\n  \nRETURN nil','',0,'EA==','1sdn1q2f',1,0,'',987,0,0),(47316,9800,6,92,0,'217.125.169.116',1201656550,1,0,1,1,1,0,'','Problemas con los índices.','Buenas a todos,\n\nTengo una rutina de apertura de ficheros DBF y creación automática de índices, que con FWH del 2007\'04 no daba problemas, al menos yo no los detecté.\n\nAhora he actualizado a la versión 2008\'01 y en esta función:\n\nOrdCreate( ::cFile, ::cName, ::cKey, ::bKey, ::lUniq )\n\nel programa se rompe sin dejar rasto alguno !!!\n\nLa DBF tiene el campo sobre el que se realizará el índice, los valores ue recibe la funció son los adecuados; si vuelvo a la versión antigua que usaba el sistema vuelve a funcionar.\n\nA ver si me puden decir motivos que pueden hacer \'tronar\' esta función.\n\nUn detalle importente:\nSi el CDX debe tener por ejemplo 5 índices, cada vez que entro en el programa crea un índice aunque no está bien construído.\n\nSaludos y gracias ( les leo mañana, me voy a dormir )\nCarlos G.','',0,'EA==','3q37j15j',1,0,'',92,0,0),(47317,9789,6,389,0,'189.133.6.172',1201656633,1,0,1,1,1,0,'','','Gracias manuel.. pero lo quiero hacer desde FWH, o sea usar un FONT pero que no esta instalada en windows.. \nla idea es esta\ncFont:= \"c:\\Sistema\\Fonts\\Calibri.ttf\"\nDEFINE FONT oFont NAME cFont \nSaludos','',0,'EA==','1vodbvm7',1,0,'',389,0,0),(47318,9494,6,389,0,'189.133.6.172',1201657419,1,0,1,1,1,0,'','','miragerr\n\nHaciendo una conexion con TMySql\n[code:3fe4e3ta]\nFUNCTION ChkConnection&#40;&#41;\n LOCAL oServer, aConnect&#58;= &#123; &#46;F&#46;, NIL &#125;\n\n oServer&#58;= TMySQLServer&#40;&#41;&#58;New&#40; &quot;127&#46;0&#46;0&#46;1&quot;, &quot;root&quot; &#41;\n\n IF oServer&#58;lError\n    MsgStop&#40; &quot;No es posible conectarse con el servidor MySQL&quot; + CRLF + ;\n             oServer&#58;ERROR&#40;&#41;, ;\n             &quot;Error de conexión&#46;&#46;&#46;&quot; &#41;\n    oServer&#58;Destroy&#40;&#41;\n    aConnect&#58;= &#123; &#46;F&#46;, NIL &#125;\n ELSE\n    // Software Administrativo Integral para el Control de Ventas e Inventarios\n    IF ! oServer&#58;DBExist&#40; &quot;saicovin&quot; &#41;\n       IF ! oServer&#58;CreateDatabase&#40; &quot;saicovin&quot; &#41;\n          MsgStop&#40; &quot;No es posible crear la base de datos principal del sistema&#46;&#46;&#46;&quot; + CRLF + ;\n                   oServer&#58;ERROR&#40;&#41;, ;\n                   &quot;Error de creación&#46;&#46;&#46;&quot; &#41;\n          oServer&#58;Destroy&#40;&#41;\n          aConnect&#58;= &#123; &#46;F&#46;, NIL &#125;\n       ELSE\n          IF ! oServer&#58;SelectDB&#40; &quot;saicovin&quot; &#41;\n             MsgStop&#40; &quot;No es posible abrir la base de datos principal del sistema&#46;&#46;&#46;&quot; + CRLF +;\n                      oServer&#58;ERROR&#40;&#41;, ;\n                      &quot;Error de apertura&#46;&#46;&#46;&quot; &#41;\n             oServer&#58;Destroy&#40;&#41;\n             aConnect&#58;= &#123; &#46;F&#46;, NIL &#125;\n          ELSE\n             aConnect&#58;= &#123; &#46;T&#46;, oServer &#125;\n          ENDIF\n       ENDIF\n    ELSE\n       IF ! oServer&#58;SelectDB&#40; &quot;saicovin&quot; &#41;\n          MsgStop&#40; &quot;No es posible abrir la base de datos principal del sistema&#46;&#46;&#46;&quot; + CRLF + ;\n                   oServer&#58;ERROR&#40;&#41;, ;\n                   &quot;Error de apertura&#46;&#46;&#46;&quot; &#41;\n          oServer&#58;Destroy&#40;&#41;\n          aConnect&#58;= &#123; &#46;F&#46;, NIL &#125;\n       ELSE\n          aConnect&#58;= &#123; &#46;T&#46;, oServer &#125;\n       ENDIF\n    ENDIF\n ENDIF\n RETURN aConnect\n[/code:3fe4e3ta]\n\nAbriendo una Tabla y una consulta\n[code:3fe4e3ta]\n\nFUNCTION OpenTables&#40;&#41;\n LOCAL oServer, aConnect\n\n aConnect&#58;= ChkConnection&#40;&#41;\n\n IF ! aConnect&#91;1&#93;\n    RETURN &#46;F&#46;\n ENDIF\n\n oServer&#58;= aConnect&#91;2&#93;\n\nIF oTbClientes != NIL\n\n    oTbClientes&#58;Refresh&#40;&#41;\n\n ELSE\n    oTbClientes&#58;= oServer&#58;Query&#40; &quot;SELECT * FROM clientes ORDER BY id_cliente&quot; &#41;\n    oTbClientes&#58;GoTop&#40;&#41;\n ENDIF\n[/code:3fe4e3ta]\n\nSaludos','',0,'AIA=','3fe4e3ta',1,0,'',389,0,0),(47319,9768,6,1272,0,'189.174.169.138',1201662207,1,0,1,1,1,0,'','','Hola Rafa,\n\nMis intenciones en este proyecto es especifico,\n\n1.- Seguir desarrollando, hasta obtener un muy buen y bastante util depurador.\n\n2.- No hay ninguna intencion de mi parte por comercializarlo, deseo mantenerlo como freeware, y tal vez en un futuro liberar el codigo fuente ...\n\n3.- Estoy abierto a la posibilidad de portarlo a GNU/Linux ... del cual no tengo mucha experiencia ...\n\n[quote:1r8d6s5v]La verdad es que lo único que me interesa es averiguar como funciona realmente el debugger[/quote:1r8d6s5v]\n\nsi te interesa conocer el codigo ... comunicate conmigo ... mi correo esta en los creditos del depurador\n\n <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \n\nSaludos,\n\nAndres Reyes','',0,'gA==','1r8d6s5v',1,0,'',1272,0,0),(47320,9798,6,228,0,'200.118.202.103',1201666141,1,0,1,1,1,1,'','Gracias de Nuevo','Amigos Gracias por la ayuda\n\nsysctrl2 -&gt; Estuviste muy cerca, gracias de nuevo por responder.  <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> \ncuatecatl82 -&gt; Amigo era lo que necesitaba.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nMuy amables','',0,'gA==','1fcge1va',1,0,'',228,0,0),(47321,9801,3,868,0,'219.64.121.60',1201669059,1,0,1,1,1,1,'','Utilties similar to GetTasks','Here are some utilties to get the processes running, kill a process, get users who are running an exe, for any one who may be inerested. Limitations are that these utilties are based on WMI services and work only with xHarbour. I do not know how to make them work with Harbour.\n\n[code:2vzd8c63]\nFUNCTION GetProcesses&#40;&#41;\n\n   local oWmi, oList, oProc\n   local cUser, cDomain\n   local aList &#58;= &#123;&#125;\n\n   oWmi     &#58;= WmiService&#40;&#41;\n   oList    &#58;= oWmi&#58;ExecQuery&#40; &quot;select * from Win32_Process&quot; &#41;\n   for each oProc in oList\n      if &#40; oProc&#58;GetOwner&#40; @cDomain, @cUser &#41; &#41; == 0\n         // Windows Documentation says the parameters are user, domain\n         // but I am getting the params in reverse order\n         // domain, user\n         AAdd&#40; aList, &#123; oProc&#58;Caption, oProc&#58;Name, cUser, cDomain &#125; &#41;\n      endif\n   next\n\nreturn aList\n\nFUNCTION KillProcess&#40; cExe &#41;\n\n   local oWmi, oList, oProc\n\n   oWmi     &#58;= WmiService&#40;&#41;\n   oList    &#58;= oWmi&#58;ExecQuery&#40; &quot;select * from Win32_Process where Name = \'&quot; + cExe + &quot;\'&quot; &#41;\n   for each oProc in oList\n      oProc&#58;Terminate&#40;&#41;\n   next\n\n\nreturn nil\n\nFUNCTION GetExeUsers&#40; cExe &#41;\n\n   local oWmi, oList, oProc\n   local cUser, cDomain\n   local aList &#58;= &#123;&#125;\n\n   cExe     &#58;= upper&#40; alltrim&#40; cExe &#41; &#41;\n\n   oWmi     &#58;= WmiService&#40;&#41;\n   oList    &#58;= oWmi&#58;ExecQuery&#40; &quot;select * from Win32_Process&quot; &#41;\n   for each oProc in oList\n      if cExe == upper&#40; oProc&#58;Caption &#41;\n         if &#40; oProc&#58;GetOwner&#40; @cDomain, @cUser &#41; &#41; == 0\n            if AScan&#40; aList, cUser &#41; == 0\n               AAdd&#40; aList, cUser &#41;\n            endif\n         endif\n      endif\n   next\n\nreturn aList\n\nFUNCTION WMIService&#40;&#41;\n   // It would be useful to keep this function in the library\n   static oWMI\n\n   local oLocator\n\n   if oWMI == nil\n\n      oLocator   &#58;= CREATEOBJECT&#40; &quot;wbemScripting&#46;SwbemLocator&quot; &#41;\n      oWMI       &#58;= oLocator&#58;ConnectServer&#40;&#41;\n\n   endif\n\nreturn oWMI\n[/code:2vzd8c63]','',0,'AIA=','2vzd8c63',1,0,'',868,0,0),(47322,9776,3,868,0,'219.64.121.60',1201676275,1,0,1,1,1,1,'','','Finally, with these modifications to MouseMove method of Control.Prg I am able to get what we wanted.\n\nDeclare module scope static variable hWndOver\n\n[code:aozqr2cm]\nMETHOD MouseMove&#40; nRow, nCol, nKeyFlags &#41; CLASS TControl\n\n   local nOldRow, nOldCol\n   local hOver, oWndOver, aPoint  // new locals\n\n  &lt; &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; keep the existing code &#46;&#46;&#46;&#46;&#46;&gt;\n\n   else\n      if &#58;&#58;lMouseDown &#46;and&#46; ;\n         &#40; Abs&#40; nRow - &#58;&#58;nLastRow &#41; &gt; 5 &#46;or&#46; Abs&#40; nCol - &#58;&#58;nLastCol &#41; &gt; 5 &#41; ;\n         &#46;and&#46; ! Empty&#40; &#58;&#58;oDragCursor &#41;\n//         SetCursor&#40; &#58;&#58;oDragCursor&#58;hCursor &#41;     // original code commented out\n         if ! lDragging\n            &#58;&#58;DragBegin&#40; nRow, nCol, nKeyFlags &#41;\n            // new code begin\n            hWndOver = &#58;&#58;hWnd\n            SetCursor&#40; &#58;&#58;oDragCursor&#58;hCursor &#41;\n            // new code end\n         else\n            if ValType&#40; &#58;&#58;bMMoved &#41; == &quot;B&quot;\n               Eval&#40; &#58;&#58;bMMoved, nRow, nCol, nKeyFlags, &#46;T&#46; &#41;\n            endif\n         endif\n\n         // new code begin\n         DEFAULT hWndOver &#58;= &#58;&#58;hWnd\n         aPoint = &#123; nRow, nCol &#125;\n         aPoint = ClientToScreen&#40; &#58;&#58;hWnd, aPoint &#41;\n\n         hOver &#58;= WindowFromPoint&#40; aPoint&#91; 2 &#93;, aPoint&#91; 1 &#93; &#41;\n\n         if hOver != hWndOver\n            hWndOver = hOver\n            oWndOver = oWndFromHWnd&#40; hOver &#41;\n            if oWndOver == nil &#46;or&#46; oWndOver&#58;bDropOver == nil\n               CursorNO&#40;&#41;\n            else\n               SetCursor&#40; &#58;&#58;oDragCursor&#58;hCursor &#41;\n             endif\n        endif\n        // new code end\n\n      else\n         return Super&#58;MouseMove&#40; nRow, nCol, nKeyFlags &#41;\n      endif\n   endif\n\nreturn 0\n\n//------------\n// In this or some other module, preferably in Cursors&#46;c\n//\n\n#pragma BEGINDUMP\n\n#include &quot;hbapi&#46;h&quot;\n#include &lt;windows&#46;h&gt;\n\nHB_FUNC&#40; CURSORNO &#41;\n&#123;\n   hb_retnl&#40; &#40; LONG &#41; SetCursor&#40; LoadCursor&#40; 0, IDC_NO &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP\n\n[/code:aozqr2cm]\nMr Antonio may please see if this seems to be okay.\nIt is working for me, but I dont know if the code can be improved or can create any unexpected problems.','',0,'AIA=','aozqr2cm',1,0,'',868,0,0),(47323,9799,3,89,0,'213.21.136.60',1201677801,1,0,1,1,1,0,'','','Hello Wanderson \n\nI add this in xBrowse.prg \n// nAdjColumn is the colums to expand \n[color=green:3ipgbalg]DATA nAdjColumn AS NUMERIC [/color:3ipgbalg]\n\nMETHOD Adjust() CLASS TXBrowse\n \n   local nFor, nLen, nHeight, nStyle\n   \n  [color=green:3ipgbalg] Local nTot := 0 \n   LOcal nMaxWidth := ::nWidth() - 5[/color:3ipgbalg]\n   \n   nLen    := len( ::aCols )\n   nHeight := 0\n \n   ::GetDC()\n \n   for nFor := 1 to nLen\n         ::aCols[ nFor ]:Adjust()\n         [color=green:3ipgbalg]  IIF( ::nAdjColumn &gt; 0 , nTot += ::aCols[       nFor ]:nWidth ,)[/color:3ipgbalg]  \n next\n   [color=green:3ipgbalg]IIF( ::nAdjColumn &gt; 0 , ::aCols[::nAdjColumn ]:nWidth += nMaxWidth - nTot,)[/color:3ipgbalg]   \n   ::ReleaseDC()','',0,'Ag==','3ipgbalg',1,0,'',89,0,0),(47324,9742,3,297,0,'217.57.213.130',1201679811,1,0,1,1,1,0,'','','Thanks to all\n\n\nmarco','',0,'Ag==','izndnivn',1,0,'',297,0,0),(47325,9802,19,2,0,'87.218.146.222',1201681869,1,0,1,1,1,1,'','Graphic cards','<!-- m --><a class=\"postlink\" href=\"http://www23.tomshardware.com/graphics_2007.html\">http://www23.tomshardware.com/graphics_2007.html</a><!-- m -->','',0,'Ag==','1jn8eo52',1,0,'',2,0,0),(47326,9768,6,2,0,'87.218.146.222',1201682540,1,0,1,1,1,1,'','','Si os sirve de ayuda, el código del depurador de Harbour/xHarbour está totalmente disponible en sus respectivos SVN/CVS. Aunque es en modo consola, el funcionamiento ha de ser muy similar.\n\nYo escribí el primer prototipo del depurador en modo consola de Harbour, lo que ocurre es que lo hice en PRG para hacerlo más mantenible, pero  esto hizo que fuese lento.','',0,'Ag==','uehjn3ky',1,0,'',2,0,0),(47327,9798,6,2,0,'87.218.146.222',1201682643,1,0,1,1,1,1,'','','Leandro,\n\nEn FWH puedes crear tantas ventanas y diálogos independientes como necesites. \n\nNo hay limitación, salvo que al cerrar la ventana inicial, se cerrará toda la aplicación.','',0,'Ag==','2hvt0nms',1,0,'',2,0,0),(47328,9800,6,2,0,'87.218.146.222',1201682825,1,0,1,1,1,1,'','','Carlos,\n\nQue RDD usas ? Usas Harbour ó xHarbour ?\n\nHas probado a borrar los índices antiguos ? Es decir, no usarlos con los de la nueva versión de Harbour/xHarbour.\n\nPodrías proporcionar un ejemplo reproducible, a ser posible que no use FWH, para reportarlo a los equipos de desarrollo de Harbour/xHarbour ?','',0,'Ag==','1w13sm7z',1,0,'',2,0,0),(47329,9789,6,2,0,'87.218.146.222',1201684026,1,0,1,1,1,1,'','','Gabo,\n\nTienes que llamar a AddFontResource( cFontFileName ), luego la defines normalmente:\n\nAddFontResource( \"MiFuente.fnt\" ) // ó .fon, etc.\nDEFINE FONT oFont NAME \"...\" SIZE 0, -...\n\nPara más información de AddFontResource():\n<!-- m --><a class=\"postlink\" href=\"http://msdn2.microsoft.com/en-us/library/ms534231(VS.85\">http://msdn2.microsoft.com/en-us/library/ms534231(VS.85</a><!-- m -->).aspx','',0,'Ag==','vv8826re',1,0,'',2,0,0),(47330,9800,6,92,0,'80.25.24.19',1201684809,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:17nntmnv]Carlos,\n\nQue RDD usas ? Usas Harbour ó xHarbour ?\n\nHas probado a borrar los índices antiguos ? Es decir, no usarlos con los de la nueva versión de Harbour/xHarbour.\n\nPodrías proporcionar un ejemplo reproducible, a ser posible que no use FWH, para reportarlo a los equipos de desarrollo de Harbour/xHarbour ?[/quote:17nntmnv]\n\nGracias Antonio,\n\nde momento lo he solucionado realizando antes un:\n\n( ::nArea )-&gt;( DbClearIndex() )\n\ndebo tener algo mal en el código porque en otro lugar sin cerrar los índices me los crea correctamente.\n\nSeguiré investigando, de momento creo que podré usar FWH 2008\'03\n\nSaludos\nCarlos G.\nNota: CDX, Harbour, borrando ficheros primero.','',0,'gA==','17nntmnv',1,0,'',92,0,0),(47331,9797,3,2,0,'87.218.146.222',1201685910,1,0,1,1,1,1,'','','It looks as a recent change in Windows! (or we never considered that a main window or dialog has to be created before)\n\nIf you try this without creating a window, Windows is returning zero:\nMsgInfo( GetActiveWindow() ) \n\nIn order to have GetTasks() running fine, call it from a running window:\n\n   DEFINE BUTTON OF oBar ACTION MsgInfo( Len( GetTasks() ) )','',0,'gA==','2azq50uh',1,0,'',2,0,0),(47332,9776,3,2,0,'87.218.146.222',1201686257,1,0,1,1,1,1,'','','Nageswararao,\n\nYou are getting better day by day <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nPlease email me your modified control.prg, thanks!','',0,'gA==','16sq3ulp',1,0,'',2,0,0),(47333,9803,3,3,0,'80.81.159.19',1201686268,1,0,1,1,1,1,'','xbrowse display','Hello\n\nWhile inputing dbf data with a xbrowse, during the first few lines only the last line is shown after obrw:refresh() obrw:paint() or any other method, When the total number of rows is &gt;4 or 5 the whole screen is displayed.\nIn other browses, the method upstable corrected this behaviour, is there any workaround with xbrowse ? or maybe i am missing something.\n\nThanks for the help,\n\nRichard','',0,'gA==','37o0t5n7',1,0,'',3,0,0),(47334,9801,3,2,0,'87.218.146.222',1201686777,1,0,1,1,1,1,'','','Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2fsfyd6w',1,0,'',2,0,0),(47335,9790,6,294,0,'201.254.182.73',1201687204,1,0,1,1,1,1,'','','Hola Jose:\nYo he hecho comunicar con una registradora fiscal, pero la misma tiene un protocolo particular que hay que respetar. El único problema, es que con la versión de FW que yo tengo, Antonio me envio un archivo COMM.OBJ para enlazar que solucionaba un problema que creo en versiones nuevas está solucionado.\nTe envio parte del código de comunicacion con las funciones nativas de FW.\nApertura del puerto\n[code:2t14qg04]\nFUNCTION abrirport&#40;n&#41;\nLOCAL IdPort,cDcb,nError\nIdPort &#58;= OpenComm&#40;&quot;COM&quot;+STR&#40;n,1&#41;,1024,256&#41;\nIF IdPort &lt;= 0\n   nError = GetCommError&#40; IdPort&#41;\n   MsgInfo&#40; &quot;Error al abrir&#58; &quot; + Str&#40; nError &#41; &#41;\n   ELSE\n   MsgRun&#40;&quot;Puerto abierto como &quot; + STR&#40;IdPort&#41;&#41;\nENDIF\nIF ! BuildCommDcb&#40;&quot;COM&quot;+STR&#40;n,1&#41;+&quot;&#58;9600,n,8,1&quot; , @cDcb&#41;\n   nError = GetCommError&#40; IdPort&#41;\n   MsgInfo&#40; &quot;Error al Configurar&#58; &quot; + Str&#40; nError &#41; &#41;\n   RETURN 0\n   ELSE\n   MsgRun&#40;&quot;Puerto Configurado&quot;&#41;\nENDIF\nIF ! SetCommState&#40; IdPort, cDcb &#41;\n   nError = GetCommError&#40; IdPort&#41;\n   MsgInfo&#40; &quot;Error al setear&#58; &quot; + Str&#40; nError &#41; &#41;\n   RETURN 0\n   ELSE\n   MsgRun&#40;&quot;Puerto Seteado&quot;&#41;\nENDIF\nRETURN IdPort[/code:2t14qg04]\n\nRecibir informacion\n[code:2t14qg04]\nFUNCTION  leer_bloque&#40;port,n&#41;\nLOCAL bloque&#58;= SPACE&#40;n&#41;, nBytes \nDO WHILE &#46;t&#46;\n   nBytes &#58;= ReadComm&#40; port,@bloque&#41;\n   IF nBytes &gt;= n\n       EXIT\n   ENDIF\nENDDO\nRETURN bloque\n[/code:2t14qg04]\nEspero te sirva','',0,'AIA=','2t14qg04',1,0,'',294,0,0),(47336,9797,3,6,0,'79.18.239.69',1201688879,1,0,1,1,1,1,'','','You are right.\n\nEMG','',0,'AIA=','3ha9gvhv',1,0,'',6,0,0),(47337,9797,3,868,0,'219.64.121.60',1201689376,1,0,1,1,1,1,'','','Yes. I think we never considered it necessary.  Now better all users note this point. So that like me we don\'t get a surprise.','',0,'AIA=','3ebyz12u',1,0,'',868,0,0),(47338,9795,6,362,0,'200.158.18.184',1201690988,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:f9zdks78]Gustavo,\n\nPor favor envíame la clase DSAY y un pequeño ejemplo de uso, gracias[/quote:f9zdks78]\n\nMaestro, tenbién tengo el problema.\n\nPrincipalmente en WINDOWS XP.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=484\">http://www.fivewin.com.br/exibedicas.asp?id=484</a><!-- m -->','',0,'gA==','f9zdks78',1,0,'',362,0,0),(47339,9792,6,362,0,'200.158.18.184',1201691185,1,0,1,1,1,1,'','','[quote=&quot;RenOmaS&quot;:2syhrv3q][code:2syhrv3q]\nSTATIC FUNCTION LIGA_BOTAO&#40; oGravar &#41;\n\n    //-&gt; Desliga o Botao de Gravacao se for Seta Para Cima\n    IF GETASYNCKEY&#40; VK_UP &#41;\n        //lLigaBotao &#58;= &#46;F&#46;\n        //oGravar&#58;Refresh&#40;&#41;\n        oGravar&#58;Disable&#40;&#41;\n        RETURN&#40; &#46;T&#46; &#41;\n    Else\n        oGravar&#58;Enable&#40;&#41;\n    ENDIF \n[/code:2syhrv3q]\n\nou pode utilizar oDlg:aEvalWhen()\n\n\nCumprimentos\n<!-- s;) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";)\" title=\"Wink\" /><!-- s;) -->[/quote:2syhrv3q][/quote]\n\nGracias, RenOmaS.\n\nPerfecto.','',0,'gIA=','2syhrv3q',1,0,'',362,0,0),(47340,8928,20,29,0,'88.149.163.177',1201694540,1,0,1,1,1,1,'','','Ci mancava solo Vista,\ninoltre - grrrr - per chi utilizza firefox al posto di explorer ci sono problemi.\n\nFaccio qualche prova con twebclient.','',0,'gIA=','htfila5a',1,0,'',29,0,0),(47341,8928,20,29,0,'88.149.163.177',1201695498,1,0,1,1,1,1,'','','Forse ho risolto.\n\nUtilizzando shellexecute sembra che funzioni.\n\nEsiste però un sistema per sapere quando si è conclusa l\'operazione shellexecute (waitrun non funziona su Vista) ?','',0,'gIA=','3gdxwpw2',1,0,'',29,0,0),(47342,9804,2,890,0,'190.9.66.224',1201696839,1,0,1,1,1,0,'','Tamano de un archivo','Antonio \n\nUn saludo cordial para ti y para la gente del foro\n\nAntonio por favor otra neva pregunta\nDesde codigo como averiguo el peso o tamaño de un archivo mp3?\n\nDesde ya muy Agradecido por tu enseñanzas \n\nCordialmente\n\nJairo E Barbosa S <!-- s:cry: --><img src=\"{SMILIES_PATH}/icon_cry.gif\" alt=\":cry:\" title=\"Crying or Very sad\" /><!-- s:cry: -->','',0,'gIA=','3e6yv4qh',1,0,'',890,0,0),(47343,9666,3,335,0,'68.193.88.53',1201697049,1,0,1,1,1,0,'','','I\'ve re-worked the Protection PLUS DLL function calls for FWH in ppp4fwh.prg to make the corrections to \"DLL32 Function\" calls containing LPLONG (now defined as PTR) and the need for use of @ with these calls by reference.  These have been tested with Protection PLUS v. 4.4.1 and FWH and work fine now.  Corrected version has been uploaded to my website where it can be downloaded from...\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/software/ppp4fwh.zip\">http://www.leadersoft.com/software/ppp4fwh.zip</a><!-- m -->\n\nAlso included in this zip is Changes.txt listing all PLUS ver. 3 functions that have been discontinued and the corresponding PLUS ver. 4 functions that have replaced them.\n\nIn a few days, I expect to be able to also upload a samples prg showing how to use Protection PLUS to control copy protection, demo expiration, remote unlock codes, workstation licenses on a network, etc.\n\n- Roger','',0,'gIA=','1lnki2df',1,0,'',335,0,0),(47344,9800,6,1201,0,'200.90.17.154',1201697644,1,0,1,1,1,0,'','','Atención:\n\nSi utilizas indices CDX, Es recomendable borralos primero antes de generarlos, Aparte, como estás disparando tu rutina de generación de indices (como detecta que debe generar indices, o lo haces cada vez que entras a tu aplicación).\n\n\nSaludos, Angel','',0,'gIA=','ssma6ped',1,0,'',1201,0,0),(47345,9798,6,228,0,'201.244.15.214',1201697761,1,0,1,1,1,1,'','Gracias','Ok Antonio, muchas gracias. El problema ya fue solicionado.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gIA=','8wko6i1p',1,0,'',228,0,0),(47346,9805,3,80,0,'202.72.164.124',1201698391,1,0,1,1,1,0,'','How to select paper tray on printer','Hi \n\nI need to be able to select a certain tray on a printer ( printing on card )\nand then select another tray to print on paper.\n\nTIA\n\nColin','',0,'gIA=','2o10azq6',1,0,'',80,0,0),(47347,9805,3,6,0,'79.18.239.69',1201699014,1,0,1,1,1,1,'','Re: How to select paper tray on printer','From printer.prg:\n\n[code:a3qjr6h9]// Defines for the oPrn&#58;SetBin&#40;nBin&#41; method &#40;The printer MUST support it&#41;\n\n#define DMBIN_FIRST       DMBIN_UPPER\n#define DMBIN_UPPER       1\n#define DMBIN_ONLYONE     1\n#define DMBIN_LOWER       2\n#define DMBIN_MIDDLE      3\n#define DMBIN_MANUAL      4\n#define DMBIN_ENVELOPE    5\n#define DMBIN_ENVMANUAL   6\n#define DMBIN_AUTO      7\n#define DMBIN_TRACTOR     8\n#define DMBIN_SMALLFMT    9\n#define DMBIN_LARGEFMT    10\n#define DMBIN_LARGECAPACITY 11\n#define DMBIN_CASSETTE    14\n#define DMBIN_LAST      DMBIN_CASSETTE[/code:a3qjr6h9]\n\nEMG','',0,'AIA=','a3qjr6h9',1,0,'',6,0,0),(47348,8928,20,6,0,'79.18.239.69',1201699149,1,0,1,1,1,1,'','','[quote=&quot;Marco Turco&quot;:1sacufiz]Forse ho risolto.\n\nUtilizzando shellexecute sembra che funzioni.\n\nEsiste però un sistema per sapere quando si è conclusa l\'operazione shellexecute[/quote:1sacufiz]\n\nQuelle due proprietà servivano proprio a quello... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\n[quote=&quot;Marco Turco&quot;:1sacufiz](waitrun non funziona su Vista) ?[/quote:1sacufiz]\n\nE perché non dovrebbe? Un altro bug di Vista?\n\nEMG','',0,'gA==','1sacufiz',1,0,'',6,0,0),(47349,9795,6,570,0,'200.82.63.230',1201699149,1,0,1,1,1,1,'','','Estimado antonio te he enviado un e-mail con una aplicacion ejemplo del problema con Dsay, con la opcion BLINKING no funciona bien, pero con Scroll si, que estará pasando.- FWH 8.01 y Xharbour 1.1.0, saludos','',0,'gA==','1sacufiz',1,0,'',570,0,0),(47350,9806,6,362,0,'200.158.18.184',1201699152,1,0,1,1,1,1,'','DESHABILITAR CURSOR EN UN GET ÉS POSIBLE?','Buenas foro...\n\nPor favor, cual és el COMANDO para DESHABILITAR EL CURSOR EN UN GET??\n\nY EL CONTRARIO?  HABILITAR?\n\nMuchas gracias,\n\nBest regards, saludos.','',0,'gA==','av85hmle',1,0,'',362,0,0),(47351,9788,6,570,0,'200.82.63.230',1201699503,1,0,1,1,1,1,'','','Estimado Antonio, muchas gracias funciono bien solo con un browse en un dialog pero en los que habia mas de uno tiro el error, pero ya lo solucione con una lib que encontre en el foro y compilando en Wbrowse.prg, ahora lo voy a subir para que queda para el foro.-\n\nMuchas gracias,','',0,'gA==','2zbxiqja',1,0,'',570,0,0),(47352,9801,3,35,0,'167.7.140.254',1201699786,1,0,1,1,1,0,'','','nageswaragunupudi\n\nQuestion .. the GetExeUsers() function .. I am looking for a program that will tell me \'whohas\' what executable runing on a Windows 200(x) server.. looking for users who may have a program running.\n\nExample .. navigate to the server folder where the executable is located and ( launch a program ) to tell me who has it open ??\n\nThanks\nRick Lipkin','',0,'gA==','2ys9srog',1,0,'',35,0,0),(47353,9788,6,570,0,'200.82.63.230',1201700267,1,0,1,1,1,1,'','','Aqui les dejo el Link para bajarlo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.prediger.com.ar/twbrowse_fwh801_xhar_1_1_0.zip\">http://www.prediger.com.ar/twbrowse_fwh ... _1_1_0.zip</a><!-- m -->\n\nAnda Bien en FWH 8.01 y XHARBOUR 1.1.0\n\nSaludos,','',0,'gA==','2wvbmq4k',1,0,'',570,0,0),(47354,9807,6,1265,0,'200.117.224.97',1201700744,1,0,0,1,1,0,'','PREGUNTA NEWBIE SOBRE RUN','EN MI SISTEMA INCLUI (modo consola)UN GENERADOR DE REPORTE EXTERNO Y LO LLAMO CON EL COMANDO RUN. Bien quiero que haga lo mismo pero que el programa no quede con el control del del programa es decir que mientras se ejecuta el reporte yo pueda seguir trabajando en otra cos y mantener el reporte abierto. Por lo menos hasta que termine el entorno grafico. Saludos','',0,'gA==','fsxswwkh',1,0,'',1265,0,0),(47355,9803,3,19,0,'83.238.24.193',1201701483,1,0,1,1,1,0,'','','try\n\noBrw:refresh(.T.)\n\nregards','',0,'gA==','1u687f53',1,0,'',19,0,0),(47356,9800,6,92,0,'213.96.45.6',1201701592,1,0,1,1,1,0,'','','[quote=&quot;ADBLANCO&quot;:1fp2grtq]Atención:\n\nSi utilizas indices CDX, Es recomendable borralos primero antes de generarlos, Aparte, como estás disparando tu rutina de generación de indices (como detecta que debe generar indices, o lo haces cada vez que entras a tu aplicación).\n\n\nSaludos, Angel[/quote:1fp2grtq]\n\nEso hago, antes de generarlos borro el fichero.\n\nTengo los índices declarados en la clase que gestiona las DBFs (utilizo TDBF), y es la propia clase la que verifica que el fichero de índice contenga los índices declarados.\nSólo creo los índices al entrar en la aplicación si no existen.\n\nSaludos y gracias.\nCarlos G.','',0,'gA==','1fp2grtq',1,0,'',92,0,0),(47357,9678,6,400,0,'201.68.31.217',1201701869,1,0,1,1,1,1,'','','Maestro..es possible..trabalhar com MultFolder..tambien ?\n\nSaluds','',0,'gA==','d9jt080c',1,0,'',400,0,0),(47358,9803,3,3,0,'85.195.137.204',1201702628,1,0,1,1,1,1,'','','Thanks for the suggestion but it does not fix the display. Same result,\n\nRichard','',0,'gA==','2fj9v74l',1,0,'',3,0,0),(47359,9678,6,2,0,'87.218.146.222',1201703610,1,0,1,1,1,1,'','','Ale,\n\nTenemos previsto implementarlos de forma similar para los folders.\n\nAún no está disponible.','',0,'gA==','1pfib7ea',1,0,'',2,0,0),(47360,9788,6,2,0,'87.218.146.222',1201703729,1,0,1,1,1,1,'','','Gustavo,\n\nGracias! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','32tffwue',1,0,'',2,0,0),(47361,9804,2,2,0,'87.218.146.222',1201703892,1,0,1,1,1,1,'','','Jairo,\n\nMsgInfo( Directory( \"nombre_archivo.mp3\" )[ 1 ][ 2 ] )','',0,'','3vcht12r',1,0,'',2,0,0),(47362,9785,2,2,0,'87.218.146.222',1201704038,1,0,1,1,1,1,'','','Jairo,\n\nEl meter puedes usarlo en una ventana ó diálogo, indistintamente.\n\nComo estás reproduciendo el archivo mp3 ?\n\nRevisa samples\\TestMetr.prg','',0,'','1yug19ls',1,0,'',2,0,0),(47363,9806,6,2,0,'87.218.146.222',1201704200,1,0,1,1,1,1,'','','oGet:Disable()\n\noGet:Enable()','',0,'','13cd968c',1,0,'',2,0,0),(47364,9808,3,1287,0,'193.19.82.6',1201704901,1,0,1,1,1,0,'','ANN: &quot;FastReport for [x]Harbour&quot; (FRH) beta, trial','Hello!\n\nI am glad to inform you that FastReport for [x]Harbour (FRH) beta, trial, available for download now!\n\nFRH is a report generator for giving [x]Harbour applications the ability to generate reports quickly and efficiently. FRH provides all the tools that developers need to develop reports. \n\nFastReport for [x]Harbour is based on excellent FastReport 4 and fully adapted for [x]Harbour at HB API level. So FRH works directly with [x]Harbour-data and [x]Harbour-language!\n\nFully compatible with ANY Harbour or xHarbour -based systems in Win32.\n\nMore info and download area:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\n\n\nAs you can see, the demo-application for FiveWin is not present still. But to make demo (to adapt) is not difficultly. For example, in demo for minigui  it is necessary to replace definitions of windows, buttons, checkbox, etc with FiveWin-syntax simply .\n\nLet\'s I\'ll interest you. The first developer who adapts demo for FWH will get discount 50% at FRH-purchase!!!\n\nWait your adaptations! Source and exe files, please, send me to:  spirin[at]paritetsoft.ru   \n\nThank you.\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'','994y2ulk',1,0,'',1287,0,0),(47365,9809,6,1287,0,'193.19.82.6',1201705030,1,0,1,1,1,0,'','ANN: &quot;FastReport for [x]Harbour&quot; (FRH) beta, trial','Hello!\n\nSorry for my English.\n\nI am glad to inform you that FastReport for [x]Harbour (FRH) beta, trial, available for download now!\n\nFRH is a report generator for giving [x]Harbour applications the ability to generate reports quickly and efficiently. FRH provides all the tools that developers need to develop reports. \n\nFastReport for [x]Harbour is based on excellent FastReport 4 and fully adapted for [x]Harbour at HB API level. So FRH works directly with [x]Harbour-data and [x]Harbour-language!\n\nFully compatible with ANY Harbour or xHarbour -based systems in Win32.\n\nMore info and download area:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\n\n\nAs you can see, the demo-application for FiveWin is not present still. But to make demo (to adapt) is not difficultly. For example, in demo for minigui  it is necessary to replace definitions of windows, buttons, checkbox, etc with FiveWin-syntax simply .\n\nLet\'s I\'ll interest you. The first developer who adapts demo for FWH will receive the discount 50% at FRH-purchase!!!\n\nWait your adaptations! Source and exe files, please, send me to:  spirin[at]paritetsoft.ru   \n\nThank you.\n\n\nSorry for my English <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'','19vot5xh',1,0,'',1287,0,0),(47366,9806,6,362,0,'200.158.18.184',1201705514,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:156u20xt]oGet:Disable()\n\noGet:Enable()[/quote:156u20xt]\n\n\nGracias, Maestro.\n\nBest regards, saludos.','',0,'gA==','156u20xt',1,0,'',362,0,0),(47367,9803,3,53,0,'189.139.10.89',1201706548,1,0,1,1,1,1,'','','Richard:\n\nPerhaps, oBrw:UpStable()\n\nRegards','',0,'gA==','zwvnes3j',1,0,'',53,0,0),(47368,9803,3,3,0,'80.81.159.19',1201706990,1,0,1,1,1,1,'','','Armando\n\nUpStable() method is not available for xbrowse, i tried to adapt from wbrowse but without success yet, still working on it,\n\nRegards\n\nRichard','',0,'gA==','1a28nl85',1,0,'',3,0,0),(47369,9785,2,890,0,'190.9.66.224',1201707215,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:34vd58oa]Jairo,\n\nEl meter puedes usarlo en una ventana ó diálogo, indistintamente.\n\nComo estás reproduciendo el archivo mp3 ?\n\nRevisa samples\\TestMetr.prg[/quote:34vd58oa]\n\nAntonio Gracias por tu respuesta \n\nEsta es la forma como lo reprodusco y  lo hace muy bien le agrege dos botones para detener y para reanudar.\n\nGracias \n\n \n# include \"FiveWin.ch\"\n\nstatic  oWnd\n\nFUNCTION MAIN()\n\n local oMeter,nActual,cMP3File,oTm\n  DEFINE WINDOW OWND TITLE \"PLAYING MP3 FILE - EJECUTANDO UN MP3!\" MENU CreaMenu();\ncolor rgb(255,255,255),rgb(0,0,255)\n\n    @ 1,10  BUTTON \"&amp;Detener mp3 \" of oWnd size 80,20 Action detener(oWnd)\n    @ 5,10  BUTTON \"&amp;Reanudar mp3\" of oWnd size 80,20 Action reanudar(oWnd)\n    @ 1,25 BUTTON \"&amp;Abrir mp3   \" of oWnd size 80,20 Action OpenMP3(oWnd)\n    @ 5,25 BUTTON \"&amp;Cerrar      \" of oWnd size 80,20 Action StopMP3(oWnd) \n    @ 14,15  meter oMeter VAR nActual TOTAL 100 of oWnd size 300,30\n\n   DEFINE TIMER oTm of oWnd ACTION  oMeter:Set (nActual+1) INTERVAL 111500\n     * oMeter:Set( nActual++)  \n  \n  ACTIVATE WINDOW OWND VALID (StopMp3(oWnd),.T.)\nRETURN nil\n\nSTATIC FUNCTION CreaMenu()\n  local oMenu\n\n  MENU oMenu\n      MENUITEM \"Archivo\"\n      MENU\n        MENUITEM \"Abrir un MP3\" ACTION OpenMP3()\n\n        MENUITEM\"Cerrar el MP3 en curso\" action StopMP3()\n        \n       \n      ENDMENU\n   ENDMENU\n\nRETURN (oMenu)\n\nSTATIC FUNCTION OpenMP3()\nlocal    cMP3File := cGetFile32(\"*.mp3\",\"Archivos MP3\")\n   StopMP3(oWnd)\n   PlayMP3(oWnd,LFN2SFN(cMp3File),.t.)\n  \n   \n\nRETURN (.T.)\n\n/*\n * Con esta función podrán ejecutar archivos MP3!\n * With this function you can play MP3 files !\n */\nFUNCTION PlayMP3( oWnd, cFile, lLoop )\n\n  DEFAULT lLoop := .F.\n\n  if cFile != NIL\n    mciSendStr( \"OPEN \" + cFile + \" TYPE MPEGVIDEO ALIAS MP3\",, oWnd:hWnd )\n    mciSendStr( \"PLAY MP3 \" + iif( lLoop, \"REPEAT\" , \"\" ),, oWnd:hWnd )\n   \n endif\n\nRETURN NIL\n\n/*\n * Con esta función podran detener el MP3!\n * With this function you can stop the MP3!\n */\nFUNCTION StopMP3( oWnd )\n\n    mciSendStr(\"STOP MP3 \",,OWND:hWnd)\n    mciSendStr(\"CLOSE MP3 \",,OWND:hWnd)\n\nRETURN NIL\n*******************************************************************************\nfunction reanudar(oWnd) \n   \n mciSendStr( \"PLAY MP3 \",, oWnd:hWnd )\n\nreturn nil\n*******************************************************************************\nFUNCTION detener(oWnd)\n      \n    mciSendStr(\"STOP MP3 \",,oWnd:hWnd)\n\nreturn nil\n*******************************************************************************','',0,'gA==','34vd58oa',1,0,'',890,0,0),(47370,9807,6,1255,0,'148.221.7.254',1201708166,1,0,1,1,1,0,'','','Hola Sergio:\n\nShellExecute( 0, \"Open\", \"c:\\Tu_Folder\\Tu_app.exe\", \"Tus Parametros en su caso\" )\n\nSaludos\n\nManuel Mercado','',0,'gA==','25r4m793',1,0,'',1255,0,0),(47371,9793,6,1030,0,'190.55.55.12',1201712822,1,0,1,1,1,0,'','','Gracias!\nYa estoy imprimiendo.\n\nSaludos!  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'gA==','1uprwyt2',1,0,'',1030,0,0),(47372,9799,3,300,0,'201.34.212.113',1201713581,1,0,1,1,1,0,'','','[quote=&quot;Maurizio&quot;:2eregjsx]Hello Wanderson \n\nI add this in xBrowse.prg \n// nAdjColumn is the colums to expand \n[color=green:2eregjsx]DATA nAdjColumn AS NUMERIC [/color:2eregjsx]\n\nMETHOD Adjust() CLASS TXBrowse\n \n   local nFor, nLen, nHeight, nStyle\n   \n  [color=green:2eregjsx] Local nTot := 0 \n   LOcal nMaxWidth := ::nWidth() - 5[/color:2eregjsx]\n   \n   nLen    := len( ::aCols )\n   nHeight := 0\n \n   ::GetDC()\n \n   for nFor := 1 to nLen\n         ::aCols[ nFor ]:Adjust()\n         [color=green:2eregjsx]  IIF( ::nAdjColumn &gt; 0 , nTot += ::aCols[       nFor ]:nWidth ,)[/color:2eregjsx]  \n next\n   [color=green:2eregjsx]IIF( ::nAdjColumn &gt; 0 , ::aCols[::nAdjColumn ]:nWidth += nMaxWidth - nTot,)[/color:2eregjsx]   \n   ::ReleaseDC()[/quote:2eregjsx]\n\n\nThank you Maurizio, is mutch better now but persist a little problem with a focused record\n\n<!-- m --><a class=\"postlink\" href=\"http://img156.imageshack.us/my.php?image=xbrweu3.jpg\">http://img156.imageshack.us/my.php?image=xbrweu3.jpg</a><!-- m -->','',0,'gg==','2eregjsx',1,0,'',300,0,0),(47373,9801,3,868,0,'219.64.121.60',1201714006,1,0,1,1,1,1,'','','Mr Rick Liptin\n\nFirst as to the above function, this is working on 2003 servers. When executed by user having administrative privileges, this function lists all users  using the exe. Here is the improved version.\n\n[code:69w67x34]\nFUNCTION GetExeUsers&#40; cExe &#41;\n\n   local oWmi, oList, oProc\n   local cUser, cDomain\n   local aList &#58;= &#123;&#125;\n\n   oWmi     &#58;= WmiService&#40;&#41;\n   oList    &#58;= oWmi&#58;ExecQuery&#40; &quot;select * from Win32_Process where Name = \'&quot; + cExe + &quot;\'&quot; &#41;\n   for each oProc in oList\n      if &#40; oProc&#58;GetOwner&#40; @cUser, @cDomain &#41; &#41; == 0\n         cUser = cDomain + &quot;\\&quot; + cUser\n         if AScan&#40; aList, cUser &#41; == 0\n            AAdd&#40; aList, cUser &#41;\n         endif\n      endif\n   next\n\nreturn aList\n\n[/code:69w67x34]\nIf we ourselves ( with administrative privileges) login to the server , there are many easier ways. \n\n1) This is the simple thing I do. Open TaskManager, check \"Show Processes from All Users\" check box, sort the list on Image name in Processes tab and look for the executable name. We can see names of all users executing that program.\n\n2) Run Adminstrative Toops -&gt; Computer Management. Go to Shared Folders -&gt; Open Files. You see all open executables/dlls and users who are using them. \n\nI am not sure if I answered you what you are looking for.','',0,'AIA=','69w67x34',1,0,'',868,0,0),(47374,9810,6,400,0,'201.68.31.217',1201714490,1,0,1,1,1,1,'','Msq..se repete 2 vezes ....','Este codigo..funciona perfect com FwH2.6...ja com FwH712, as msg..se repete 2 vezes antes de sair.\n\n[code:1bwiwpe6]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oBar\n\n   SET _3DLOOK ON\n\n   DEFINE WINDOW oWnd TITLE &quot;MDIChilds from resources&quot; MDI\n\n   DEFINE BUTTONBAR oBar _3D OF oWnd\n\n   DEFINE BUTTON OF oBar ACTION child&#40;&#41; //&#40; Child&#40;&#41;, MsgInfo&#40; oWnd&#58;oWndClient&#58;aWnd&#91; 1 &#93;&#58;cCaption &#41; &#41;\n\n   ACTIVATE WINDOW oWnd maximized\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Child&#40;&#41;\n\n   local oWndChild, oDlg, oBtn, n\n   local cName &#58;= &quot;Testing&#46;&#46;&#46;&quot;\n\n   DEFINE WINDOW oWndChild MDICHILD OF oWnd ;\n      FROM 5,5 TO 6,6;\n      COLOR &quot;N/W&quot;\n\n   oWndChild&#58;bGotFocus  = &#123; || oDlg&#58;SetFocus&#40;&#41; &#125;\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Child1&quot; OF oWndChild\n\n   REDEFINE GET cName ID 110 OF oDlg\n\n   REDEFINE BUTTON oBtn ID 120 OF oDlg ;\n      ACTION &#40; MsgInfo&#40; &quot;First&quot; &#41;, oBtn&#58;SetFocus&#40;&#41; &#41;\n\n\n   REDEFINE BUTTON ID 130 OF oDlg ACTION MsgInfo&#40; &quot;Second&quot; &#41;\n\n   for n = 1 to Len&#40; oDlg&#58;aControls &#41;\n      oDlg&#58;aControls&#91; n &#93;&#58;bLClicked = GenBlock&#40; oWndChild, oDlg&#58;aControls&#91; n &#93; &#41;\n   next 	 \n   	\n   ACTIVATE DIALOG oDlg NOWAIT ;  // It has to be NonModal --&gt; NOWAIT clause\n      ON INIT oDlg&#58;Move&#40; 0, 0 &#41; ;\n        valid &#40; if&#40;Salir&#40;&#41;,;\n                  &#40;Eval&#40; &#123;|| oWndChild&#58;End&#40;&#41;, &#46;T&#46; &#125;&#41;, &#46;t&#46; &#41;,;\n                  &#40;&#46;f&#46;&#41; &#41;&#41;\n\n   // Correct window size to match dialog\n   oWndChild&#58;nWidth &#58;= oDlg&#58;nWidth+7\n   oWndChild&#58;nHeight &#58;= oDlg&#58;nHeight+32\n\n   ACTIVATE WINDOW oWndChild ON INIT oWnd&#58;paint&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction GenBlock&#40; oWndChild, oControl &#41;\n\nreturn &#123; || oWndChild&#58;SetFocus&#40;&#41;, oControl&#58;SetFocus&#40;&#41; &#125;\n	\n//----------------------------------------------------------------------------//\nStatic Function Salir&#40;&#41;\n   Local iRet&#58;= &#46;f&#46;\n\n   iRet&#58;= MsgYesNo&#40;&quot;Abandona la opcion ?&quot;,&quot;Cerrar de Ventas&quot;&#41;\n\nRETURN iRet[/code:1bwiwpe6]\n\nSendo q esta msg..deve aparecer una unica vez...\n\nEs algum Bug, FwH712 ?\n\nSaluds','',0,'AIA=','1bwiwpe6',1,0,'',400,0,0),(47375,9811,6,1072,0,'200.72.102.154',1201719527,1,0,1,1,1,0,'','Sobre la clase DATABASE nativa de FWH','Tengo un pequeño problema con la utilizacion de DATABASE\n\ncuando los programas eran SDI, solo se abrian un vez las DBF no habia q preocuparse mucho por el asunto de los alias y demas cosillas.. pero cuando tu aplicacion es MDI,, tengo el siguiente problema::\n\ntengo dos Dbf una llamada Tabla.DBF y otra Tabla_1.Dbf\n\ndentro de mi programa hay un mantenedor de dichas DBF, y en otro parte de mi programa existe un modulo de ingreso de valores, son gastos menores: el problema que presenta la clase DATABASE es que cuando abro al mismo tiempo las dos ventanas que a su vez abren la misma DBF ,, claro que con alias distintos y en areas de trabajo distintas..\npor alguna razon q no he podido descubrir el objeto DATABASE con se actualiza como debe ser: o quizas yo no lo empleo de la forma correcta::\n\nse supone y corrijanme si me equivoco::\n\nsi tengo creo un obj. database asi:\n\n&lt;Abro DBF&gt;\nDATABASE oDbf\n..\n..\n y luego este objeto lo visualizo en una browse:::\n\n..\n\n..\nluego lo que quiero hacer es un scope a ese obj.. database::\n\ny poder filtrar solo siertos registro de la Dbf para mostrarlos en el Browse;;\n\nyo lo hago directo a la DBF asi:\n\n\n//Scopes\nTabla_1-&gt;(OrdSetFocus(1))\nTabla_1-&gt;(DBGoTop())\nTabla_1-&gt;(OrdScope(0,&lt;Var&gt;))\nTabla_1-&gt;(OrdScope(1,&lt;Var&gt;))\nTabla_1-&gt;(DBGoTop())\n//\nno se si habra otra manera de hacerlo sobre el objeto database mismo\n\nesto en SDI funciona ok.. pero en MDI no,,\n\nhe chequeado el scope,, y se ejecuta correctamente sobre la DBF, pero el objeto database no asume que fue scopeada la DBF\n\nespero haberme explicado bien amigos::\n\nen espera de segurencia y ayuda.. me despido..\n\n\nGRACIAS\nURGENTE','',0,'AIA=','kkbfnzc1',1,0,'',1072,0,0),(47376,9810,6,2,0,'87.218.146.222',1201727492,1,0,1,1,1,1,'','','Ale,\n\nCual de los MsgInfo() ? ó es el MsgYesNo() ?\n\nPuedes proporcionar el RC usado ? gracias','',0,'AIA=','3miw8zip',1,0,'',2,0,0),(47377,9811,6,2,0,'87.218.146.222',1201727602,1,0,1,1,1,1,'','','Prueba esto y comprueba que sea el mismo alias:\n\nMsgInfo( oDbf:cAlias )  // Debería mostrar Tabla_1\nTabla_1-&gt;(OrdSetFocus(1)) \nTabla_1-&gt;(DBGoTop()) \nTabla_1-&gt;(OrdScope(0,&lt;Var&gt;)) \nTabla_1-&gt;(OrdScope(1,&lt;Var&gt;)) \nTabla_1-&gt;(DBGoTop())','',0,'AIA=','3h1qn2i2',1,0,'',2,0,0),(47378,9785,2,2,0,'87.218.146.222',1201728364,1,0,1,1,1,1,'','','Posiblemente el TOTAL ... del meter tengas que establecerlo en función del tamaño del fichero mp3','',0,'AIA=','310rec4c',1,0,'',2,0,0),(47379,9759,4,2,0,'87.218.146.222',1201729194,1,0,1,1,1,1,'','','Roberto,\n\nWhat value are you checking with GetKeyState() ?','',0,'AIA=','haoojy9u',1,0,'',2,0,0),(47380,9796,3,303,0,'72.220.181.80',1201729336,1,0,1,1,1,0,'','','[code:fh9wwip9]Static Function CloseDataBase&#40;&#41; \n\nCLOSE DATABASE \n\nReturn Nil[/code:fh9wwip9]\n\nBetter would be:\n\n[code:fh9wwip9]Static Function CloseDataBase&#40;&#41; \n   local nArea&#58;= select&#40;1&#41;\n   CLOSE DATABASE \n   select&#40; nArea &#41;\nReturn nil [/code:fh9wwip9]\n\nIf you were using a database object you could simply do:\n\n   ...VALID (oCust:end(), .t.)\n\nJames','',0,'AIA=','fh9wwip9',1,0,'',303,0,0),(47381,8767,8,1216,0,'190.38.184.63',1201729623,1,0,1,1,1,0,'','','xbase en general\n\nGracias','',0,'AIA=','m62ijhyf',1,0,'',1216,0,0),(47382,9810,6,400,0,'201.68.31.217',1201729723,1,0,1,1,1,1,'','','El msgYesNo()\n\n.RC\n[code:1t84cktb]\nchild1 DIALOG 18, 18, 317, 189\nSTYLE WS_CHILD\n&#123;\n CONTROL &quot;&quot;, -1, &quot;static&quot;, SS_BLACKRECT | WS_CHILD | WS_VISIBLE, 7, 5, 107, 50\n EDITTEXT 110, 15, 10, 93, 12, ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP\n PUSHBUTTON &quot;Text&quot;, 120, 32, 35, 24, 14, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n PUSHBUTTON &quot;Text&quot;, 130, 67, 35, 24, 14, WS_CHILD | WS_VISIBLE | WS_TABSTOP\n CONTROL &quot;&quot;, -1, &quot;static&quot;, SS_BLACKRECT | WS_CHILD | WS_VISIBLE, 7, 59, 108, 20\n LTEXT &quot;This is a resource !!!&quot;, -1, 25, 65, 68, 8\n CONTROL &quot;Text&quot;, 111, &quot;BUTTON&quot;, BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 14, 85, 28, 12\n&#125;[/code:1t84cktb]','',0,'AIA=','1t84cktb',1,0,'',400,0,0),(47383,9805,3,80,0,'202.72.164.124',1201731226,1,0,1,1,1,0,'','Select Tray','Enrico - Thank You - i will try it.\n\nColin','',0,'AIA=','rm9ky51c',1,0,'',80,0,0),(47384,8767,8,2,0,'87.218.146.222',1201731853,1,0,1,1,1,1,'','','Alberto,\n\nAqui tienes la documentación del lenguaje Clipper:\n<!-- m --><a class=\"postlink\" href=\"http://www.ousob.com/ng/clguide/\">http://www.ousob.com/ng/clguide/</a><!-- m -->','',0,'AIA=','8a6lxska',1,0,'',2,0,0),(47385,9801,3,35,0,'65.188.6.143',1201737724,1,0,1,1,1,0,'','','NageswaraRao\n\nI got your vbs script in my private mail .. I will try it in the morning .. and let you know\n\nRick','',0,'AIA=','higs7w6k',1,0,'',35,0,0),(47386,9785,2,890,0,'190.9.66.224',1201738520,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:dk9qquzs]Posiblemente el TOTAL ... del meter tengas que establecerlo en función del tamaño del fichero mp3[/quote:dk9qquzs]\n\nGracias Antonio\n\nEso pense que en base al tamaño del fichero por eso la pregunta de como conseguia el peso o tamaño, ya lo entendi estare trabajando en eso\n\nQuiero expresar mis agradecimientos por cada cosa que aprendo <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\n Antonio....   Dios  bendiga el camino que recorren tus pies \n\nCordialmente\n\nJairo Barbosa','',0,'gA==','dk9qquzs',1,0,'',890,0,0),(47387,9811,6,1072,0,'164.77.54.98',1201739198,1,0,1,1,1,0,'','','GRACIAS ANTONIO,, CON TU RESPUESTA ME DISTE LA PISTA QUE NOCESITABA PARA RESOLVER EL PROBLEMA,,, \n\nERA ESTO POR SI LE SIRVE ALGUN COMPAÑERO DEL FORO::\n\ncuando se usa solo la clase DATABASE nativa de FWH.. \n\ny se quiere hacer un scope sobre ella se hace asi:\n\n(oTabla_1:cAlias)-&gt;(OrdSetFocus(1)) \n(oTabla_1:cAlias)-&gt;(DBGoTop()) \n(oTabla_1:cAlias)-&gt;(OrdScope(0,&lt;Var&gt;)) \n(oTabla_1:cAlias)-&gt;(OrdScope(1,&lt;Var&gt;)) \n(oTabla_1:cAlias)-&gt;(DBGoTop())\n\nyo lo hacia en forma incorrecta ya que como el alias en MDI lo generaba en forma aleatoria, no siempre era Tabla_1\n\n\nMUCHAS GRACIAS POR TU INTERES DE AYUDAR\n\nproblema resuelto','',0,'gA==','2nc1uq39',1,0,'',1072,0,0),(47388,9808,3,239,0,'218.20.62.223',1201741606,1,0,1,1,1,0,'','','Hi,\nfrh_demo_mg_std_exe.zip\nfrh_demo_mg_ext_exe.zip \nall missing customer.dbf at running time.\nRegards!\nShuming Wang','',0,'gA==','2oe2op0s',1,0,'',239,0,0),(47389,9812,3,34,0,'68.5.217.82',1201744076,1,0,1,1,1,1,'','Arrays and tSBrowse','OK ... I found a work around, but still ....\n\nUsing tSBrowse with an array.  Initially it has x number of elements ( for example 10) and browsing them is no problem.  Now, I wish to add another element, so I use AADD( ) and increase the array by one element.  I now need to reposition the highlight to the new element so I do a oLbx:gobttom() ... but that doesn\'t necessarily get there !  The array elements are in natural order, not sorted.  So, using the tSBrowse gobottom() method I would think should take me there ...\n\nAny thoughts ?\n\nFor my work around, I count the number of array elements, and then use the GoPos( x, y ) method to go to the last array element.  That seems to work.\n\nI\'m using this to append elements to the array, and then they will be written to a database after editing is complete.\n\n <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','1n4vkz9x',1,0,'',34,0,0),(47390,9813,6,1072,0,'164.77.54.98',1201744884,1,0,1,1,1,0,'','TWBROWSE DE HERNAN','Algun colega sabra dnd podre bajar la ultima version de twbrowse de bernan,, y su manual en español, si es que existe...\n\nya que mi ingles no s muy fluido,,, parece q me hace falta un curso urgente, jaja\n\nGRACIAS','',0,'gA==','2ymu6ivv',1,0,'',1072,0,0),(47391,9808,3,1193,0,'203.70.93.73',1201745440,1,0,1,1,1,0,'','','Hi\n\nNow, I\'m change mg sample code to FWH code. I hope so soon.\n\nRegards,\n\nRichard','',0,'gA==','1y4hnfqk',1,0,'',1193,0,0),(47392,9814,11,578,0,'218.214.68.108',1201751269,1,0,1,0,1,0,'','Upgrading to Ubuntu 7.10','Hi Antonio\n\nBack from holidays and about to get back into FiveLinux programming.\n\nThe main application has been quite stable with some 4500  patient records and 1500 file records entered so far.  Will try to address a few remaining issues with your help over the coming weeks.  Currently just running as a single user application but have written multi user version (just a minor tweak to xDATAFILE object) and that tests out OK running multiple instances on a single Linux box.\n\nNetworking to date was via Samba Server and SMB4k clients (to support Windows boxes) but figure native Linux networking should be more robust (it certainly couldn\'t be much worse!).\n\nI was wondering if you had done any experimentation with FiveLinux applications across networks?  If so, have you any recommendations?\n\nNeed to install some new PCs so planning to run Ubuntu 7.10 on most or all of them.  I gather you are already running 7.10.  Can I just keep running current FiveLinux build?\n\nSomething I noticed from my coding:\n\nI have found that if I have a GET such as\n\ncGender := \" \"\n\n@ 1, 1 GET getGender VAR cGender ..................................\n\nThen if I edit the get via keyboard entry then the variable cGender will reflect that change (in other words it  is updated) but if I alter it programmatically, with something along the lines of\n\ngetGender:SetText( \"F\" )\n\nthen the variable cGender is not updated.\n\nThis is no major problem as I can use getGender:GetText() to retrieve the updated value.  I\'m not sure if the above behaviour is intentional or not, but to me\n\nREPLACE GENDER WITH cGender\n\nis nicer and simpler than\n\nREPLACE GENDER WITH getGender:GetText()\n\nMaybe SetText() could be altered to update the variable as I originally anticipated that it would.\n\nRegards\n\nDoug (xProgrammer)','',0,'gA==','1c758vxj',1,0,'',578,0,0),(47393,9815,6,1255,0,'201.122.38.237',1201754281,1,0,1,1,1,0,'','Compilar/Enlazar','Hola amigos:\n\nEstoy buscando un programa compilador/enlazador que soporte varios archivos .res, Verce 5.3 me manda un error.\n\nGracias anticipadas por su ayuda.\n\nManuel Mercado','',0,'gA==','2ck3tnsp',1,0,'',1255,0,0),(47394,9816,6,109,0,'189.192.135.90',1201754485,1,0,1,1,1,0,'','Creacion de Objeto en Windows Vista','Buenas noches.\n  \n   Alguien que me oriente en lo siguiente:\n\n     Estoy tratando de tomar la serie de la Tarjeta Madre, y me marca error en :\n\n     oLoc := CREATEOBJECT( \"wbemScripting.SwbemLocator\" ) \n      \n      TRY\n        oSrv := oLoc:ConnectServer() \n      CATCH oErr\n        MsgInfo(\"1.- No es posible verificar, Registro\",\"Atención\")  //----NO GENERA EL OBJETO \'oLoc\'\n        Quit\n      END\n\nRepito en windows vista, me da problemas, en XP todo Ok.\n\nFWH 2.7, xHarbour 0.99.60, BC55\n\nGracias por su ayuda\n\nSaludos\nRicardo E. Guardado F.','',0,'gA==','bifb9dxt',1,0,'',109,0,0),(47395,9815,6,54,0,'189.132.102.172',1201760475,1,0,1,1,1,1,'','Re: Compilar/Enlazar','[quote=&quot;mmercado&quot;:1m8hmexp]Hola amigos:\n\nEstoy buscando un programa compilador/enlazador que soporte varios archivos .res, Verce 5.3 me manda un error.\n\nGracias anticipadas por su ayuda.\n\nManuel Mercado[/quote:1m8hmexp]\n\nCual es el error?','',0,'gA==','1m8hmexp',1,0,'',54,0,0),(47396,9808,3,1287,0,'193.19.82.6',1201760968,1,0,1,1,1,0,'','','[quote=&quot;ShumingWang&quot;:1ufoawgb]Hi,\nfrh_demo_mg_std_exe.zip\nfrh_demo_mg_ext_exe.zip \nall missing customer.dbf at running time.\n[/quote:1ufoawgb]\n\nDownload frh.zip firstly. It contain full runtime for all demos.\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gA==','1ufoawgb',1,0,'',1287,0,0),(47397,9812,3,58,0,'84.149.76.63',1201766752,1,0,1,1,1,0,'','','Tim,\n\nmay be this could work.\n[code:8puvit2i]oBrw&#58;bGoBottom &#58;= &#123; || oBrw&#58;nAt &#58;= len&#40; oBrw&#58;aArray &#41; &#125;[/code:8puvit2i]\n\nRegards,\nDetlef','',0,'AIA=','8puvit2i',1,0,'',58,0,0),(47398,9811,6,131,0,'194.179.55.36',1201767765,1,0,1,1,1,0,'','','No uses MDI, usa FSDI - <!-- m --><a class=\"postlink\" href=\"http://www.avemundi.com/?p=226\">http://www.avemundi.com/?p=226</a><!-- m -->\n\nSaludos,','',0,'AIA=','1em8vh6f',1,0,'',131,0,0),(47399,9681,20,163,0,'87.5.223.36',1201767956,1,0,1,1,1,0,'','','Ciao EMG.\nDue domande.\n1. Dove si trova la dll che stai usando ?\n2. C\'è la possibilità di controllare se l\'indirizzo email che vuoi usare esiste ?\nVorrei evitare che l\'utente scriva un indirizzo che sintatticamente è giusto ma magari ha sbagliato a scrivere l\'account e poi la mail viene persa oppure mi torna indietro con scritto che l\'account non esiste.\nGrazie mille e buona giornata.\nMassimo.','',0,'AIA=','p0mkp97t',1,0,'',163,0,0),(47400,9681,20,6,0,'87.21.239.155',1201769210,1,0,1,1,1,1,'','','[quote=&quot;Massimo Linossi&quot;:2df0a72u]Ciao EMG.\nDue domande.\n1. Dove si trova la dll che stai usando ?[/quote:2df0a72u]\n\n[url:2df0a72u]http&#58;//www&#46;xmailserver&#46;org/davide&#46;html[/url:2df0a72u]\n\n[quote=&quot;Massimo Linossi&quot;:2df0a72u]2. C\'è la possibilità di controllare se l\'indirizzo email che vuoi usare esiste ?[/quote:2df0a72u]\n\nNo, e non ho mai visto nessun programma che lo faccia. Fino a prova contraria sono convinto che non si possa fare.\n\nAggiunta: ma sarei ben lieto di essere smentito. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'kA==','2df0a72u',1,0,'',6,0,0),(47401,9811,6,449,0,'83.40.178.169',1201770857,1,0,1,1,1,1,'','','Jose Luis,\n\nY porque no va a poder usar MDI ?  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'kA==','2ekilw8x',1,0,'',449,0,0),(47402,9681,20,163,0,'87.5.223.36',1201772818,1,0,1,1,1,0,'','','Grazie.\nHai ragione per il secondo punto, non credo sia una cosa semplice.\nMa ho visto che su parecchi siti, quando ti chiedono di validarti con un\nindirizzo Email, controllano online se quell\'indirizzo è corretto, senza spedirti\nuna mail. Chissà come fanno. Probabilmente usando qualche script che\nsotto Internet funziona ma non è realizzabile da un programma fatto al\ndi fuori dei vari browser.\nProva questo indirizzo e vedi come funziona :\n<!-- m --><a class=\"postlink\" href=\"http://www.coveryourasp.com/ValidateEmail.asp#Result2\">http://www.coveryourasp.com/ValidateEmail.asp#Result2</a><!-- m -->','',0,'kA==','3rkk9n3i',1,0,'',163,0,0),(47403,9815,6,2,0,'87.218.146.222',1201773080,1,0,1,1,1,1,'','','Manuel,\n\nNosotros usamos UEStudio, que con unos ficheros de configuración propios para FWH, funciona realmente bien. \n\nUEStudio te proporciona un editor de código fuente profesional, un administrador de proyectos propio y editor de recursos (aunque este último es un tanto limitado)','',0,'kA==','2hf08ak8',1,0,'',2,0,0),(47404,9810,6,2,0,'87.218.146.222',1201773500,1,0,1,1,1,1,'','','Ale,\n\nHazlo así:\n[code:26qkjcs1]\n   ACTIVATE DIALOG oDlg NOWAIT ;  // It has to be NonModal --&gt; NOWAIT clause \n      ON INIT oDlg&#58;Move&#40; 0, 0 &#41; ;\n      VALID &#46;F&#46;\n&#46;&#46;&#46;\n   ACTIVATE WINDOW oWndChild ON INIT oWnd&#58;paint&#40;&#41; ;\n      VALID Salir&#40;&#41;\n[/code:26qkjcs1]','',0,'AIA=','26qkjcs1',1,0,'',2,0,0),(47405,9759,4,137,0,'151.38.8.195',1201773945,1,0,1,1,1,0,'','','Every value...\n\nWith the sample try to press SHIFT + TAB to go to previous control... it goes always to the next control forward.\n\nRegards,\nRoberto Parisi\n\n#include \"FWCE.ch\"\n\nfunction Main()\n\n   local oWnd, cText := Space( 50 ), cText1 := Space( 50 ), cText2 := Space( 50 )\n   \n   DEFINE WINDOW oWnd TITLE \"Test\"\n   \n   @ 0, 0 GET cText SIZE 200, 20 pixel\n\n   @ 30, 2 GET cText1 SIZE 200, 20 pixel\n\n   @ 60, 2 GET cText2 SIZE 200, 20 pixel\n   \n   ACTIVATE WINDOW oWnd\n   \nreturn nil','',0,'AIA=','3j7tx41h',1,0,'',137,0,0),(47406,9814,11,2,0,'87.218.146.222',1201773990,1,0,1,1,1,1,'','','Doug,\n\n&gt;\nI was wondering if you had done any experimentation with FiveLinux applications across networks? If so, have you any recommendations? \n&gt;\n\nNope, sorry. We have not used it across networks, just locally.\n\n&gt;\nNeed to install some new PCs so planning to run Ubuntu 7.10 on most or all of them. I gather you are already running 7.10. Can I just keep running current FiveLinux build? \n&gt;\n\nYes, it should work fine on Ubuntu 7.10. We use Ubuntu 7.10. Its much better (in fact, its getting better and better) <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; @ 1, 1 GET getGender VAR cGender .................................. \n&gt; getGender:SetText( \"F\" ) \n\nThats probably caused as the GET has not lost the focus\n\n&gt;\nMaybe SetText() could be altered to update the variable as I originally anticipated that it would. \n&gt;\n\nYes, we can modify method SetText() to set the variable contents, but that will override the VALID (?)','',0,'AIA=','qngak91c',1,0,'',2,0,0),(47407,9817,3,448,0,'82.155.6.163',1201774125,1,0,1,1,1,0,'','nSerialHD question again','Hi,\n\nCalling nSerailHd() without any parametyers :\n\nIs it garantee that nHserialHd always return a number ?\n\nIf the PC doesn\'t has any hard disk what it returns ?\n\nIf the PC has more than one hard disk ?\n\nRegards\nAntonio','',0,'AIA=','xry91mxx',1,0,'',448,0,0),(47408,9681,20,6,0,'87.20.230.245',1201774296,1,0,1,1,1,1,'','','Sì, ho visto. Non so se ne vale la pena.\n\nEMG','',0,'AIA=','2ohk1he8',1,0,'',6,0,0),(47409,9759,4,2,0,'87.218.146.222',1201774370,1,0,1,1,1,1,'','','Roberto,\n\nShift+Tab is working fine here on the WM2003 emulator. \n\nIts going to the previous control\n\nI email you my EXE','',0,'AIA=','cf6l3ajm',1,0,'',2,0,0),(47410,9813,6,1106,0,'190.64.220.64',1201774572,1,0,1,1,1,0,'','','mantonio:\n\nChequea aqui en el foro, esta en Utilidades y ahi lo buscas\n\nSaludos\n\nRuben Fernandez','',0,'AIA=','2ewa789u',1,0,'',1106,0,0),(47411,9817,3,2,0,'87.218.146.222',1201774713,1,0,1,1,1,1,'','','Antonio,\n\n&gt; Is it garantee that nHserialHd always return a number ? \n\nIt should\n\n&gt; If the PC doesn\'t has any hard disk what it returns ? \n\nHow did the PC boot then ? Using a CD/DVD or pendrive or network ?\nWe have not tested it with no HD on the PC.\n\n&gt; If the PC has more than one hard disk ? \n\nYou can specify the drive to check: nSerialHD( \"D:\\\" )','',0,'AIA=','1r53x0v2',1,0,'',2,0,0),(47412,9759,4,137,0,'151.38.8.195',1201775151,1,0,1,1,1,0,'','','Antonio,\nit doesn\'t work in WM 5.0. It goes always to the next control.\n\nRegards,\nRoberto Parisi','',0,'AIA=','279szi9f',1,0,'',137,0,0),(47413,9759,4,2,0,'87.218.146.222',1201775486,1,0,1,1,1,1,'','','Roberto,\n\nAre you testing it in the emulator ?\n\nhave you tried my EXE ?','',0,'AIA=','1va4zd4r',1,0,'',2,0,0),(47414,9759,4,2,0,'87.218.146.222',1201775625,1,0,1,1,1,1,'','','Roberto,\n\nIn the WM2005 emulator is working fine also','',0,'AIA=','14io085f',1,0,'',2,0,0),(47415,9808,3,810,0,'91.18.24.47',1201776137,1,0,1,1,1,0,'','stupid question !!!','i have to buy Fastreport   \n\nand i had to buy FastReport for [x]Harbour\n\nor i only had to buy FastReport for [x]Harbour ???\n\nwhich version of Fastreport is needed ???\n\n\nor if FastReport for [x]Harbour  contains Fastrepoert which version is included ???\n\nTx','',0,'','3fafasz8',1,0,'',810,0,0),(47416,9759,4,137,0,'151.38.8.195',1201776569,1,0,1,1,1,0,'','','Antonio,\nwith my device emulator (Device Emulator V2, v. 8.0.60801.00) it doesn\'t work... I tried with a real CE 5.0 device and it works. Sorry for the mistake. Do you use emulator provided with fwppc?\n\nRegards,\nRoberto Parisi','',0,'','2las7ukd',1,0,'',137,0,0),(47417,9808,3,1287,0,'193.19.82.6',1201777179,1,0,1,1,1,0,'','Re: stupid question !!!','Hello.\n\n[quote=&quot;Uwe Diemer&quot;:wwudog9g]i have to buy Fastreport   \n\nand i had to buy FastReport for [x]Harbour\n\nor i only had to buy FastReport for [x]Harbour ???\n\nwhich version of Fastreport is needed ???\n\n\nor if FastReport for [x]Harbour  contains Fastrepoert which version is included ???\n\nTx[/quote:wwudog9g]\n\nYou need FastReport for [x]Harbour (FRH) only.\n\nFRH is compiled with current version of FastReport Enterprise edition (for Delphi) and special [x]Harbour library. \n\nFRH is recompiled 1-2 times at week.\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gA==','wwudog9g',1,0,'',1287,0,0),(47418,8544,3,22,0,'88.41.18.74',1201778124,1,0,1,1,1,0,'','','[quote=&quot;Maurizio&quot;:3ixc2y1y]This is another class \n[url=http&#58;//img143&#46;imageshack&#46;us/my&#46;php?image=immaginems7&#46;jpg:3ixc2y1y][img:3ixc2y1y]http&#58;//img143&#46;imageshack&#46;us/img143/6248/immaginems7&#46;th&#46;jpg[/img:3ixc2y1y][/url:3ixc2y1y]\n\nRegards Maurizio\n<!-- w --><a class=\"postlink\" href=\"http://www.nipeservice.com\">www.nipeservice.com</a><!-- w -->[/quote:3ixc2y1y]\n\nHi Maurizio,\n\nany news about this class?\n\nRegards\nGianni','',0,'mA==','3ixc2y1y',1,0,'',22,0,0),(47419,9817,3,448,0,'82.155.6.163',1201778392,1,0,1,1,1,0,'','','But what it would be the returned value if the OC doesn\'t has any hard dislk ?\n\nAntonio','',0,'mA==','3bykkz3s',1,0,'',448,0,0),(47420,9759,4,2,0,'87.218.146.222',1201780396,1,0,1,1,1,1,'','','Roberto,\n\nGlad to know that it is working <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nYes, we use the emulator that we provide with FWPPC for WM2003. \nWe use a different one for WM2005','',0,'mA==','3tr8f3i9',1,0,'',2,0,0),(47421,9817,3,2,0,'87.218.146.222',1201780668,1,0,1,1,1,1,'','','Antonio,\n\nWe don\'t know it for sure (zero?) You may use Empty( nSerialHD() ) to check for an empty value.\n\nWe have never tested it without an available HD','',0,'mA==','1lyae83t',1,0,'',2,0,0),(47422,9817,3,448,0,'82.155.6.163',1201782729,1,0,1,1,1,0,'','','Thanks,\n\nAntonio','',0,'mA==','l5no4fsv',1,0,'',448,0,0),(47423,9818,6,1280,0,'190.29.28.253',1201786679,1,0,1,1,1,0,'','Asignacion de alias para SQL sobre ADS','Hola señores:\n\nTengo una pequeña inquietud con respecto al manejo de los alias en fwh con motor de ADS.\n\nAl inicio de un aplicacion, estoy abriendo un numero x de tablas sueltas .ADT y les estoy asignando sus respectivos alias..(los abro al iniciar, y nunca los cierro sino hasta que el usuario salga de dicha aplicacion).\n\nHe estado viendo algunos ejemplos sobre el uso de las consultas SQL y para ello primero toca crearles una conexion previa..por ejemplo yo usaria estas instrucciones:\n\n1.     RUTABUS:=\"D:\\mistablas\\\"\n2.     s:=ADSCONNECT(RUTABUS)\n3:     h:=ADSCREATESQLSTATEMENT(\"sqlalias\",3)\n4.     ADSEXECUTESQLDIRECT(cSQL)\n...\n        sqlalias-&gt;(DBCLOSEAREA())\n        ADSDISCONNECT(ADSGETCONNECTIONHANDLE())\n\nEsto me implica tener que estar utilizando la instruccion (2.) cada vez que deseo hacer una consulta.\n\nSabiendo que, (como dije anteriormente) yo ya tengo unos alias previamente abiertos al inicio de la aplicacion, es posible realizar las consultas sobre esos alias ?\n\nComo seria el procedimiento ?\n\nGracias de antemano..','',0,'mA==','2ptvv0vr',1,0,'',1280,0,0),(47424,9808,3,1287,0,'193.19.82.6',1201786821,1,0,1,1,1,0,'','Re: stupid question !!!','Hello!\n\nI\'m glad to inform that Kleyber Derick adapt demo for FWH!\n\nI upload files at FRH-area during one hour.\n\n\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'mA==','1c920vu1',1,0,'',1287,0,0),(47425,9809,6,1287,0,'193.19.82.6',1201786906,1,0,1,1,1,0,'','Re: ANN: &quot;FastReport for [x]Harbour&quot; (FRH) beta, t','Hello! \n\nI\'m glad to inform that Kleyber Derick adapt demo for FWH! \n\nI upload files at FRH-area during one hour. \n\nSorry for English.\n\n--- \nSpirin Sergey. \n\"Paritet Soft\" Company. \nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'mA==','2ifzf44u',1,0,'',1287,0,0),(47426,9808,3,2,0,'87.218.146.222',1201789962,1,0,1,1,1,1,'','','Very good! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'mA==','vd0s7yxg',1,0,'',2,0,0),(47427,9809,6,2,0,'87.218.146.222',1201790148,1,0,1,1,1,1,'','','muy bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'mA==','2i505428',1,0,'',2,0,0),(47428,9808,3,1287,0,'193.19.82.6',1201791888,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2tm44xtd]Very good! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:2tm44xtd]\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nDownload area:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\n\nhas updated. Now it\'s possible to download demo-application for FWH.\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gA==','2tm44xtd',1,0,'',1287,0,0),(47429,9809,6,1287,0,'193.19.82.6',1201791977,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3erz5808]muy bien! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3erz5808]\n\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> \n\nDownload area: \n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \n\nhas updated. Now it\'s possible to download demo-application for FWH. \n\nSorry for English.\n\n--- \nSpirin Sergey. \n\"Paritet Soft\" Company. \nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gA==','3erz5808',1,0,'',1287,0,0),(47430,9815,6,1255,0,'201.122.38.237',1201792503,1,0,1,1,1,0,'','Re: Compilar/Enlazar','[quote=&quot;wmormar&quot;:30zxiwh1]Cual es el error?[/quote:30zxiwh1]\n\nHola Wiliam:\n\nEl error es: \"Too many commas on command line\"\n\nEsto solo pasa si incluyo más de un archivo .rc\n\nPara mí esto es indispensable ya que en mis aplicaciones, uso una gran cantidad de recursos que exceden el límite de 1,059 kb (en 16 bits no existía este límite) y me veo en la necesidad de partir mi archivo rc en varios.\n\nSaludos\n\nManuel Mercado','',0,'gA==','30zxiwh1',1,0,'',1255,0,0),(47431,9818,6,41,0,'200.87.162.67',1201794211,1,0,1,1,1,0,'','','Hola,\n\nel RDDADS no es lo mismo que el SQL de ADS, cuando tu te conectas ya sea a un diccionario o a un directorio de tablas sueltas la unica manera de interactuar con las tablas de la conexion es a traves de sentencias SQL, en este caso nada tienen que hacer los alias que tienes asignados con los (DBF, ADT) abiertos por medio del RDD.\n\nAhora si lo que quieres es solo conectarte una sola vez, lo que puedes hacer es eliminar el cursor creado por el SELECT luego de ser utilizado sqlalias -&gt; ( DBCLOSEAREA() ), y vuelves a realizar la consulta sin necesidad de conectarte nuevamente.\n\nespero sea lo que necesitabas\n\nsaludos\n\nMarcelo','',0,'gA==','16xwejwz',1,0,'',41,0,0),(47432,9812,3,1255,0,'201.122.38.237',1201795659,1,0,1,1,1,0,'','Re: Arrays and tSBrowse','[quote=&quot;TimStone&quot;:2j1bh7t2]using tSBrowse with an array.  Initially it has x number of elements ( for example 10) and browsing them is no problem.  Now, I wish to add another element, so I use AADD( ) and increase the array by one element.  I now need to reposition the highlight to the new element so I do a oLbx:gobttom() ... but that doesn\'t necessarily get there !  The array elements are in natural order, not sorted.  So, using the tSBrowse gobottom() method I would think should take me there ...\n\nAny thoughts ?[/quote:2j1bh7t2]\n\nHi Tim:\n\nIf you externally add an element to the array, must to add 1 to oBrw:nLen data, or use SetArray() method  to refresh the array size and view.\n\nRegards.\n\nManuel Mercado','',0,'gA==','2j1bh7t2',1,0,'',1255,0,0),(47433,584,3,171,0,'71.233.232.238',1201795848,1,0,1,1,1,0,'','','Hi Rimantas,\n\nWhere can I get more information regarding outlook methods?\n\nUsing your code I can create the email and call the outlook, but when I click \"Send\" button the outlook close and do not send the email. \nDo you know what method allow to send the email before closing the Outlook?\n\nRegards,\n\nGeorge','',0,'gA==','27t6tt4m',1,0,'',171,0,0),(47435,9811,6,24,0,'80.24.12.168',1201799093,1,0,1,1,1,1,'','Re: Sobre la clase DATABASE nativa de FWH','oDbf:SetBuffer( .F. )\nY ahora realiza el scope, haber si te funciona.','',0,'gA==','qglfzsjr',1,0,'',24,0,0),(47436,9743,6,1072,0,'200.72.145.242',1201802523,1,0,1,1,1,0,'','','..','',0,'gA==','34ivxggz',1,0,'',1072,0,0),(47437,9819,6,1195,0,'200.44.147.204',1201802531,1,0,1,1,1,0,'','Maestros... Help Me.. Urgeme','Buenas Tardes a Todos los del Foro.\n\nDe antemano les estoy muy agradecido por toda la ayuda que me \nhan brindado.\n\nBueno y aqui molestando otra vez....\n\nEstoy terminando una aplicacion que debo entregar mañana pero\ntengo un problema, y es que necesito imprimir a una estacion que tiene conectada una Epson Fx-890 (matricial) desde otra estacion via Windows.\n\nYa la agregue en la carpeta de Impresoras y mando a imprimir una\npagina de prueba y funciona correctamente.\n\nPero cuando imprimo desde mi aplicacion con el commando \nSET PRINTER TO \\\\TERMINAL03\\FX-Despacho\n   \nMe presenta el siguiente error :\n   (DOS Error 53) TERM/2014 Create Error :\\\\TERMINAL03\\FX-Despacho.prn\n\nEstoy usando xHarbour + FWH 7.12\n\nQue otro comando o funcion puedo usar ?\nSi este commando funciona que estoy haciendo mal ?\n\nAnte todo muchas gracias.\n\n\nsaludos,\n\nAlbeiro,','',0,'gA==','1ajar104',1,0,'',1195,0,0),(47438,9743,6,1072,0,'200.72.145.242',1201802561,1,0,1,1,1,0,'','','..','',0,'gA==','1sp69oml',1,0,'',1072,0,0),(47439,9819,6,1204,0,'83.59.227.122',1201803985,1,0,1,1,1,0,'','','creo que lo que debes hacer es cambiar el nombre compartido de la impresora que está en el equipo \\\\TERMINAL03, \ny ponerle FX-Despacho.prn\npuesto que el comando SET PRINTER TO añade la extensión PRN al nombre que le pongas.\n\nespero te que te sea útil.','',0,'gA==','3d1ta0vd',1,0,'',1204,0,0),(47440,9820,3,1257,0,'195.93.60.34',1201804060,1,0,1,1,1,1,'','Refresh of a Dialog when chang. to Off.2007-Btnbar solved !!','Im using a Office2007-Buttonbar in a ChildWindow\nof Outlock2003. \nThe Bar is a Control of the Child like the Gets and Says. \nI dont want a Save-Button.\n\nI solved the problem like this\n\n1.   I created a hidden button with the function oDlg1:Update()\n      ( oDlg1 is the Child of oOutlook ).\n2.   When I press one of the Office-Bar-Buttons of the Child,\n      the action at first does a click on the hidden button\n      oBtn0:Click() for the oDlg1:Update().  \n\nAdded Information : 02.02.2008\n\nVar-Definations in Outlook2003\n------------------------------------\noGet       VAR  cGET\noSay       VAR  cSAY \noRadio    VAR  nRADIO\noCheck   VAR  lCHECK\n\nHow to get the Child-Values\nwhen Switching to Office2007-Bar !!!!\n-------------------------------------------\ncGET	=  oGet:Value()\ncSAY	=  oSay:Varget() \nnRADIO	=  oRadio:nOption\nlCHECK  	=  oCheck:Varget()\n------------------------------------\n\n\n\nIt works, but is there maybe another way, to handle this ?\n\nGreetings from Germany\nU. König','',0,'gA==','15ngcrtd',1,1201985810,'',1257,2,0),(47441,9820,3,2,0,'87.218.146.222',1201804476,1,0,1,1,1,1,'','','Ukoenig,\n\nYou could directly call oDlg1:Update() without the need of a hidden button.\n\nBut both solutions are fine,','',0,'gA==','357l689h',1,0,'',2,0,0),(47442,9821,2,1290,0,'190.38.184.63',1201804561,1,0,1,1,1,0,'','Radio Buttoms','Hola! necesito la ayuda en cuanto a refrescar un Radio Buttom o mejor aun... Cuando se le haga click desde un boton en otra ventana refresque el radio buttom donde esta ubicado y lo ponga en uno nuevamente... Gracias!!....','',0,'gA==','1i14heo0',1,0,'',1290,0,0),(47443,9819,6,1195,0,'200.44.147.204',1201804882,1,0,1,1,1,0,'','Re: Maestros... Help Me.. Urgeme','Gracias \"gmart1\"\n\nprobare y te cuento,\n\nsaludos,\n\nalbeiro,','',0,'gA==','1ub08btq',1,0,'',1195,0,0),(47444,9808,3,57,0,'80.30.100.25',1201809052,1,0,1,1,1,1,'','','Sergey\n\nIt is possible to generate in the same list using files DBF, SQL by means of ADO with FRH?\n\nThansks\nToni Sales','',0,'gA==','3guy3k60',1,0,'',57,0,0),(47446,9795,6,2,0,'87.218.146.222',1201809855,1,0,1,1,1,1,'','','Hay que hacer esta modificación en la clase TDSay:\n[code:29o52dxj]\nMETHOD Paint&#40;&#41; CLASS TDSay\n&#46;&#46;&#46;\n    // InvalidateRect&#40; &#58;&#58;hWnd, &#58;&#58;aRect, &#46;t&#46; &#41;\n    FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41;\n&#46;&#46;&#46;\n[/code:29o52dxj]\n\nEl intervalo del timer lo he pasado de 300 a 600, pero eso será según las preferencias de cada uno','',0,'AIA=','29o52dxj',1,0,'',2,0,0),(47447,9821,2,2,0,'87.218.146.222',1201810055,1,0,1,1,1,1,'','','Prueba así:\n\noRadMenu:SetOption( 1 )\n\nRevisa samples\\TestRad.prg para que veas donde se crea oRadMenu','',0,'AIA=','ye7gm8ra',1,0,'',2,0,0),(47448,9808,3,1287,0,'193.19.82.6',1201810605,1,0,1,1,1,0,'','','Hello, \n\n[quote=&quot;tsales&quot;:27hkdfqk]Sergey\n\nIt is possible to generate in the same list using files DBF, SQL by means of ADO with FRH?\n\nThansks\nToni Sales[/quote:27hkdfqk]\n\nWhy not? I do not see problem.','',0,'gA==','27hkdfqk',1,0,'',1287,0,0),(47449,9743,6,1255,0,'201.122.38.237',1201812508,1,0,1,1,1,0,'','','Hola Antonio:\n\nDame un correo a dode pueda mandarte ya sean los programas o la lib ya construída para xHarbour.\n\nSaludos.\n\nManuel Mercado','',0,'gA==','2c0g7ccw',1,0,'',1255,0,0),(47450,9822,6,104,0,'201.58.167.98',1201812762,1,0,1,1,1,0,'','Leitor Fingerprint','Olá pessoal, \n\nAlguém tem um exemplo de como capturar os dados desta leitora ? Uso fwh + xhb. \n\nObrigado,\n\nRossine.','',0,'gA==','2xlquebl',1,0,'',104,0,0),(47451,9823,3,51,0,'80.122.88.242',1201813875,1,0,1,1,1,0,'','preview problems','FW 8.01\n\n\nToday I had to take a photo from the screen with my camera.\nIf I try to make a screenshot with the capture software the lines are\nthere and I can’t demonstrate the problem.\n\nWhat could be the problem. \nI use the report.prg from the Fivewin samples and my own database.\n\nI uploaded a zip to <!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/fwreport/report.zip\">www.atzwanger.com/fwreport/report.zip</a><!-- w -->\nThanks in advance\nOtto\n[img:jh8njgln]http&#58;//www&#46;atzwanger&#46;com/fwreport/report&#46;jpg[/img:jh8njgln]','',0,'CA==','jh8njgln',1,0,'',51,0,0),(47452,9743,6,1072,0,'190.82.2.232',1201815529,1,0,1,1,1,0,'','','Manuel:\n\nMuchas gracias por tu ayuda,\n\nTe dejo mi correo,\n\n<!-- e --><a href=\"mailto:mantonio_08@hotmail.com\">mantonio_08@hotmail.com</a><!-- e -->\n\nDesde ya eternamente agradecido\n\nAntonio\n\n\n[quote=&quot;mmercado&quot;:k2olzsra]Hola Antonio:\n\nDame un correo a dode pueda mandarte ya sean los programas o la lib ya construída para xHarbour.\n\nSaludos.\n\nManuel Mercado[/quote:k2olzsra]','',0,'gA==','k2olzsra',1,0,'',1072,0,0),(47453,9795,6,570,0,'200.41.41.132',1201818229,1,0,1,1,1,1,'','','[b:1jmhi1dr]PROBLEMA SOLUCIONADO!![/b:1jmhi1dr]\n\nMuchas Gracias Antonio,\n\nsaludos,','',0,'QA==','1jmhi1dr',1,0,'',570,0,0),(47454,9823,3,2,0,'87.218.146.222',1201819234,1,0,1,1,1,1,'','','Otto,\n\nWhat is the problem ?\n\nIs it a painting error ? A runtime error ?','',0,'QA==','1w8pnsj3',1,0,'',2,0,0),(47455,9823,3,51,0,'80.122.88.242',1201820098,1,0,1,1,1,0,'','','Antonio, thank you for your answer.\nThere should be a line in every row.\nRegards,\nOtto','',0,'QA==','2uvnbdta',1,0,'',51,0,0),(47456,9824,6,1265,0,'190.30.72.168',1201822175,1,0,0,1,1,0,'','Incompatibilidad de tipos','Hola yo nuevamente sigo convirtiendo y pasando. je je en esta ocacion el error surge al convertir un tipo de variable a otro mas especificamente numero con 2 decimales a caracter si yo hago \nVARI:= LEN(ALLTRIM(STR(NUMVARI)))\nel resultado de vari es \"0.0000\"\nhe verificado y agrego el mandato set decimals to 2 ; set fixed on. Y aun asi no logro hacer una conversion deceada. ya que lo que necesito es que vari devuelva \"0,00\". Gracias y saludos.','',0,'QA==','27ufy3sc',1,0,'',1265,0,0),(47457,9743,6,203,0,'190.152.22.88',1201822294,1,0,1,1,1,1,'','','Sr. Mercado buenas tardes\n\nMi nombre es Oscar Maldonado y quisiera saber si me prodria dar una guia de como utilizar tsbrowse y MySql.\n\nDe antemano muchas gracias\n\n\nSaludos Oscar','',0,'QA==','3gerra7o',1,0,'',203,0,0),(47458,9824,6,12,0,'201.229.227.118',1201823032,1,0,1,1,1,1,'','','Prueba esto a ver si es asi.\n[code:1gr04pr0]\ncVar &#58;= AllTrim&#40; Str&#40; nVal, 10,2 &#41; &#41;\n[/code:1gr04pr0]','',0,'AIA=','1gr04pr0',1,0,'',12,0,0),(47459,9825,3,51,0,'80.122.88.242',1201823881,1,0,1,1,1,0,'','Folder SetItemSize','Can someone please post an sample how to use\nSetItemSize.\nThanks in advane\nOtto','',0,'AIA=','3o27okz8',1,0,'',51,0,0),(47461,9102,7,400,0,'201.92.34.229',1201826990,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1m1ex3vj]Vikthor \n\nHabría que averiguar si existe una DLL cliente MySQL para Pocket PC[/quote:1m1ex3vj]\n\nMaestro...alguma novidade..sobre Sql..para Pocket  ou ADS ?\n\nSaluds','',0,'gA==','1m1ex3vj',1,0,'',400,0,0),(47462,9743,6,1255,0,'201.122.38.237',1201831117,1,0,1,1,1,0,'','','[quote=&quot;EASYSOFT&quot;:cdt3k7u9]quisiera saber si me prodria dar una guia de como utilizar tsbrowse y MySql[/quote:cdt3k7u9]Hola Oscar:\n\nNo me lo tomes a mal pero debes saber que estuve mucho tiempo alejado de FiveWin, de los Foros y de los Cambios. Apenas estoy tratando de asimilar tantas cosas nuevas que me encuentro para poder utilizarlas en mis aplicaciones (de las cuales TSBrowse es parte fundamental)\n\nEstuve revisando lo relacionado con ADORDD pero no he podido hacer funcionar algún ejemplo.\n\nTe prometo que iré compartiendo con todos ustedes los avances con respecto a esta clase y otras.\n\nSaludos\n\nManuel Mercado','',0,'gA==','cdt3k7u9',1,0,'',1255,0,0),(47463,9808,3,233,0,'60.48.192.95',1201837162,1,0,1,1,1,0,'','','1. Is this FastReport the same FastReport at <!-- m --><a class=\"postlink\" href=\"http://www.fast-report.com\">http://www.fast-report.com</a><!-- m --> ?\n\n2. What\'s the price structure?\n\n3. What if I wanted to use FastReport with FWH+xHarbour and also VB. Is it possible to use the same version of FastReport or does it mean I\'d have to purchase 2 flavor of FastReport?\n\nTIA.\n\np.s. I did download and give a try of FastReport and was very impressed with what I saw so far.','',0,'gA==','3eq6fjp3',1,0,'',233,0,0),(47464,9808,3,1287,0,'193.19.82.6',1201848023,1,0,1,1,1,0,'','','Hello.\n[quote=&quot;hua&quot;:x2b6pzri]1. Is this FastReport the same FastReport at <!-- m --><a class=\"postlink\" href=\"http://www.fast-report.com\">http://www.fast-report.com</a><!-- m --> ?\n\n2. What\'s the price structure?\n\n3. What if I wanted to use FastReport with FWH+xHarbour and also VB. Is it possible to use the same version of FastReport or does it mean I\'d have to purchase 2 flavor of FastReport?\n[/quote:x2b6pzri]\n\n1. Yes. But as I said: \n\nFRH is compiled with current version of FastReport Enterprise edition (for Delphi) and special library around [x]Harbour. I do it with authority of the OEM-agreement with Fast Report Inc.\n\n2. FRH is beta now. But I think that price will be ~299EUR.\n\n3. FRH is for [x]Harbour only. \n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gA==','x2b6pzri',1,0,'',1287,0,0),(47465,9825,3,89,0,'213.21.136.60',1201850425,1,0,1,1,1,0,'','','Ciao Otto \n\nI use a Big Font  and   \n\n  oFld:nFdHeight := 35\n\nMaurizio','',0,'gA==','3v0stort',1,0,'',89,0,0),(47466,9823,3,6,0,'87.21.195.209',1201852847,1,0,1,1,1,1,'','','Otto, please build a reduced and self-contained sample of the problem.\n\nEMG','',0,'gA==','3geaxueb',1,0,'',6,0,0),(47467,9823,3,51,0,'80.122.88.242',1201856664,1,0,1,1,1,0,'','','Enrico, thank you for your answer.\nThe sample is here:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/fwreport/report.zip\">www.atzwanger.com/fwreport/report.zip</a><!-- w --> \n\nRegards,\nOtto','',0,'gA==','4wgrm9yc',1,0,'',51,0,0),(47468,9823,3,303,0,'72.220.181.80',1201860614,1,0,1,1,1,0,'','','Otto,\n\nI compiled and ran your sample and all the lines are showing here.\n\nI am using FWH 8.01/xHarbour and XP Pro, SP2.\n\nJames','',0,'gA==','1ii4y5gr',1,0,'',303,0,0),(47469,9823,3,51,0,'80.122.88.242',1201861523,1,0,1,1,1,0,'','','James, would you be so kind to send me your exe. \n\nRegards,\nOtto','',0,'gA==','9rnh86y4',1,0,'',51,0,0),(47470,9825,3,51,0,'80.122.88.242',1201861746,1,0,1,1,1,0,'','','Hello Maurizio,\n\nI will try your suggestion.\n\nRegards,\nOtto','',0,'gA==','3ljtl6lt',1,0,'',51,0,0),(47471,9823,3,6,0,'87.21.195.209',1201861760,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:30dd0gh1]Enrico, thank you for your answer.\nThe sample is here:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.atzwanger.com/fwreport/report.zip\">www.atzwanger.com/fwreport/report.zip</a><!-- w --> \n\nRegards,\nOtto[/quote:30dd0gh1]\n\nREPORT.prg(29) Warning W0001  Ambiguous reference: \'BAR\'\n\nOnce fixed this, it seems to work fine. I can see all the lines.\n\nEMG','',0,'gA==','30dd0gh1',1,0,'',6,0,0),(47472,9743,6,203,0,'190.152.25.60',1201866036,1,0,1,1,1,1,'','','De todas maneras gracias por la respuesta, que dios le ilumine para beneficio de todos los que participamos en el foro y en especial a los que utilizamos sus maravillosas clases.\n\n\nSaludos\nOscar','',0,'gA==','1hnkp7y7',1,0,'',203,0,0),(47473,9795,6,362,0,'200.158.18.205',1201866655,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1zuvr50o]Hay que hacer esta modificación en la clase TDSay:\n[code:1zuvr50o]\nMETHOD Paint&#40;&#41; CLASS TDSay\n&#46;&#46;&#46;\n    // InvalidateRect&#40; &#58;&#58;hWnd, &#58;&#58;aRect, &#46;t&#46; &#41;\n    FillRect&#40; &#58;&#58;hDC, GetClientRect&#40; &#58;&#58;hWnd &#41;, &#58;&#58;oBrush&#58;hBrush &#41;\n&#46;&#46;&#46;\n[/code:1zuvr50o]\n\nEl intervalo del timer lo he pasado de 300 a 600, pero eso será según las preferencias de cada uno[/quote:1zuvr50o]\n\nEXPLENDIDO MAESTRO!! MUI BIÉN!! \n\nMAESTRO, É UN GRAND GENIO DEL FIVEWIN!!!\n\nMuchas gracias.\n\nBest regards, saludos.','',0,'gIA=','1zuvr50o',1,0,'',362,0,0),(47474,9808,3,1287,0,'195.16.44.6',1201870158,1,0,1,1,1,0,'','','Hello!\n\nSome screenshots of FastReport 4 you can look:\n\n<!-- m --><a class=\"postlink\" href=\"http://fast-report.com/en/products/fast-report-4-screenshots.html\">http://fast-report.com/en/products/fast ... shots.html</a><!-- m -->\n\nFlash-demo:\n\n<!-- m --><a class=\"postlink\" href=\"http://fast-report.com/en/products/fr4-flash-demo.html\">http://fast-report.com/en/products/fr4-flash-demo.html</a><!-- m -->\n\n--- \nSpirin Sergey. \n\"Paritet Soft\" Company. \nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gIA=','25igsg38',1,0,'',1287,0,0),(47475,9809,6,1287,0,'195.16.44.6',1201870230,1,0,1,1,1,0,'','','Hello! \n\nSorry for English. \n\nSome screenshots of FastReport 4 you can look: \n\n<!-- m --><a class=\"postlink\" href=\"http://fast-report.com/en/products/fast-report-4-screenshots.html\">http://fast-report.com/en/products/fast ... shots.html</a><!-- m --> \n\nFlash-demo: \n\n<!-- m --><a class=\"postlink\" href=\"http://fast-report.com/en/products/fr4-flash-demo.html\">http://fast-report.com/en/products/fr4-flash-demo.html</a><!-- m --> \n\n--- \nSpirin Sergey. \n\"Paritet Soft\" Company. \nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gIA=','2ekvp3h8',1,0,'',1287,0,0),(47476,9808,3,810,0,'91.18.63.21',1201870638,1,0,1,1,1,0,'','','Make 199 Euro for the earlier Starter which search bugs','',0,'gIA=','15rmuia0',1,0,'',810,0,0),(47477,9808,3,1287,0,'195.16.44.6',1201870832,1,0,1,1,1,0,'','','[quote=&quot;Uwe Diemer&quot;:3vuf87nq]Make 199 Euro for the earlier Starter which search bugs[/quote:3vuf87nq]\n\nOk. I\'ll think about it.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','3vuf87nq',1,0,'',1287,0,0),(47478,9826,6,1206,0,'213.97.245.163',1201871864,1,0,1,1,1,0,'','PROBLEMAS DE UBICACION CON SETCURDRIVE() O DISKCHANGE()','Me explico.\nTengo una aplicación que esta en [c:] en el directorio [prueba]\nCambio a un directorio que cuelga de este llamado [prueba2], posteriormente me cambio a la unidad [z:], cual es mi sorpresa, que cuando cambio a [c:] estoy en [prueba] y no en [prueba2].\nTengo un aplicación que trabaja en 16 bit y funciona perfectamente y  ahora al pasarla a 32, está perdiendo el “norte”.\n\nEste problema se puede solucionar quedándose con el directorio, pero se trata de una SRA. APLICATION que hace un montón de gestiones de este tipo y mi pregunta es… Es normal el comportamiento de estas funciones?\n\nPara probar, el código es muy simple.\n\nfunction main()\n?curdir()\n?lchdir(\"prueba2\") //cambio de directorio ok\n?curdir() //resultado prueba\\prueba2\nsetcurdrive(\"z:\") //esto ok\nsetcurdrive(\"c:\") //momento que pierde el “norte”\n?curdir() //no muestra prueba y esto POR QUE!!??\nreturn nil','',0,'','28muygzx',1,0,'',1206,0,0),(47479,9826,6,1206,0,'213.97.245.163',1201872013,1,0,1,1,1,0,'','perdon mirar al final','Me explico. \nTengo una aplicación que esta en [c:] en el directorio [prueba] \nCambio a un directorio que cuelga de este llamado [prueba2], posteriormente me cambio a la unidad [z:], cual es mi sorpresa, que cuando cambio a [c:] estoy en [prueba] y no en [prueba2]. \nTengo un aplicación que trabaja en 16 bit y funciona perfectamente y ahora al pasarla a 32, está perdiendo el “norte”. \n\nEste problema se puede solucionar quedándose con el directorio, pero se trata de una SRA. APLICATION que hace un montón de gestiones de este tipo y mi pregunta es… Es normal el comportamiento de estas funciones? \n\nPara probar, el código es muy simple. \n\nfunction main() \n?curdir() \n?lchdir(\"prueba2\") //cambio de directorio ok \n?curdir() //resultado prueba\\prueba2 \nsetcurdrive(\"z:\") //esto ok \nsetcurdrive(\"c:\") //momento que pierde el “norte” \n?curdir() [b:2nob9zjr]//nos muestra prueba y esto POR QUE!!?? [/b:2nob9zjr]return nil','',0,'RA==','2nob9zjr',1,0,'',1206,0,0),(47480,9826,6,1206,0,'213.97.245.163',1201872732,1,0,1,1,1,0,'','Re: PROBLEMAS DE UBICACION CON SETCURDRIVE() O DISKCHANGE()','[quote=&quot;JARO&quot;:3ntpxxto]Me explico.\nTengo una aplicación que esta en [c:] en el directorio [prueba]\nCambio a un directorio que cuelga de este llamado [prueba2], posteriormente me cambio a la unidad [z:], cual es mi sorpresa, que cuando cambio a [c:] estoy en [prueba] y no en [prueba2].\nTengo un aplicación que trabaja en 16 bit y funciona perfectamente y  ahora al pasarla a 32, está perdiendo el “norte”.\n\nEste problema se puede solucionar quedándose con el directorio, pero se trata de una SRA. APLICATION que hace un montón de gestiones de este tipo y mi pregunta es… Es normal el comportamiento de estas funciones?\n\nPara probar, el código es muy simple.\n\nfunction main()\n?curdir()\n?lchdir(\"prueba2\") //cambio de directorio ok\n?curdir() //resultado prueba\\prueba2\nsetcurdrive(\"z:\") //esto ok\nsetcurdrive(\"c:\") //momento que pierde el “norte”\n?curdir() //[b:3ntpxxto]nos muestra prueba y esto POR QUE!!??[/b:3ntpxxto]\nreturn nil[/quote:3ntpxxto]','',0,'wA==','3ntpxxto',1,0,'',1206,0,0),(47481,9826,6,362,0,'200.158.18.205',1201873494,1,0,1,1,1,1,'','','[code:25pxvazx]\nfunction main&#40;&#41;\n\n    MEMVAR cPRGPATH, cFILEPATH\n\n    cPRGPATH &#58;= cFILEPATH&#40;GETMODULEFILENAME&#40;GETINSTANCE&#40;&#41;&#41;&#41;\n    cPRGPATH &#58;= cShortName&#40;cPRGPATH&#41;  //-&gt; Modified / Modificado al final\n\n    ?curdir&#40;&#41;\n\n    ?lchdir&#40;&quot;prueba2&quot;&#41; //cambio de directorio ok\n\n    ?curdir&#40;&#41; //resultado prueba\\prueba2\n\n    setcurdrive&#40;&quot;z&#58;&quot;&#41; //esto ok\n\n    lCHDIR&#40;cPRGPATH&#41;\n\n    setcurdrive&#40;&quot;c&#58;&quot;&#41; //momento que pierde el “norte”\n\n    ?curdir&#40;&#41; //-&gt; Intente ahora&#46;\n\nreturn nil\n//\n/*\n *	SPN&#46;PRG\n *\n *	cShortName&#40;&#41; - FilePath Long to Short &#40;GetShortPathNameA&#40;&#41;&#41;\n *\n *	Soporte a Funciones del Api de Windows\n *\n *	Andrade A&#46; Daniel - 2002\n *	Rosario, Argentina\n *\n *	Libre Distribución\n */\n\n/*\n *	cShortName&#40;&#41;\n */\nFUNCTION cShortName&#40; cLong &#41;\n\n    Local   cShort  &#58;= Space&#40;164&#41; + Chr&#40;0&#41;\n    Local   nBuffer &#58;= 164\n    Local   nLen\n\n    nLen    &#58;= GetSPName&#40; cLong, @cShort, nBuffer &#41;\n\n    cShort  &#58;= Left&#40; cShort, nLen &#41;\n\nRETURN&#40; cShort &#41;\n\n// Windows Api\nDLL32 STATIC FUNCTION GetSPName&#40; lpszLongPath AS STRING, lpszShortPath AS STRING, lBuffer AS LONG &#41; ;\n      AS LONG PASCAL FROM &quot;GetShortPathNameA&quot; LIB &quot;kernel32&quot;\n\n//-&gt; END OF PROGRAM - FIM DO PROGRAMA\n[/code:25pxvazx]','',0,'AIA=','25pxvazx',1,0,'',362,0,0),(47482,9821,2,1290,0,'190.79.149.165',1201875779,1,0,1,1,1,0,'','','Gracias! Tendria que revisar...\n\nDisculpe Sr. Linares... Soy nuevo en esto de programacion con Clipper... y me contrataron en una empresa donde su sistema es basado en este lenguaje...\n\nSoy programador graduado, pero me falta mucho para trabajar con este lenguaje, ya que donde laboro, no existe manual ni nada sobre este sistema. \n\nEl sistema, tengo que modificarlo y crearlo a base de codificacion... y se me hace mas dificil aun... Si mal no recuerdo, creo haber leido por alli, que FiveWin es un motor visual para este lenguaje... donde podria conseguirlo? \n\nGracias de antemano...','',0,'AIA=','1i59w6o9',1,0,'',1290,0,0),(47483,6815,6,570,0,'200.41.41.132',1201878052,1,0,1,1,1,1,'','ADO SQL ERROR','Estimados con experiencia ADO, trate siguiendo todos los pasos aqui mencionados de probar ADORDD con el siguiente ejemplo usando FWH 8.01 y Xharbour 1.1.0, me tira el siguiente error:\n\nEjemplo compilado:\n[code:jzon9op6]#include &quot;adordd&#46;ch&quot;\n#include &quot;FiveWin&#46;ch&quot;\n\nREQUEST ADORDD\n\nfunction Main&#40;&#41;\n\n   USE test00 VIA &quot;ADORDD&quot; TABLE &quot;ACCOUNTS&quot; MYSQL ;\n      FROM &quot;www&#46;freesql&#46;org&quot; USER &quot;myuser&quot; PASSWORD &quot;mypass&quot;\n\n   Browse&#40;&#41;\n\n   USE\n\n/*   USE Test&#46;mdb VIA &quot;ADORDD&quot; TABLE &quot;Tabla1&quot;\n\n   Browse&#40;&#41;\n\n   USE\n*/\n\nreturn nil\n[/code:jzon9op6]\n\ny me tira el siguiente error si uso la prueba para ver una mdb. no tira el error pero el browse lo muestra vacio, aqui el error:\n\nApplication\n===========\n   Path and name: C:\\FWH\\SAMPLES\\testado.exe (32 bits)\n   Size: 1,487,360 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 02/01/08, 12:45:14\n   Error description: Error ADODB.Connection/0  S_OK: OPEN\n   Args:\n     [   1] = C   DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:OPEN(0)\n   Called from: ADORDD.prg =&gt; ADO_OPEN(241)\n   Called from:  =&gt; DBUSEAREA(0)\n   Called from: testado.prg =&gt; MAIN(9)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) D CPU 2.80GHz 2800 Mhz\n   Hardware memory: 959 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 1.1.0 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 0\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TOLEAUTO:OPEN\n     Param   1:    C    \"DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass\"\n     Local   1:    U    \n     Local   2:    N    0\n   ADO_OPEN\n     Param   1:    N    1\n     Param   2:    A    Len:    8\n     Local   1:    A    Len:   14\n     Local   2:    C    \"test00\"\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n   DBUSEAREA\n     Param   1:    L    .F.\n     Param   2:    C    \"ADORDD\"\n     Param   3:    C    \"test00\"\n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    L    .F.\n   MAIN\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFBLOB\n   DBFNTX\n   ADORDD\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 TOLEAUTO\n     4 ERROR\n     5 HBOBJECT\n     6 TREG32\n\nMemory Analysis\n===============\n      118 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z\n\nBueno si alguien puede darme una pistita les agradecere, ya que tengo una aplicación que debe agregar unos reistros al final del dia en una tabla sql...\n\nMuchas Gracias a todos..\n\nSaludos,','',0,'AIA=','jzon9op6',1,0,'',570,0,0),(47484,9823,3,51,0,'80.122.88.242',1201878850,1,0,1,1,1,0,'','','Enrico, thank you.\n\nI commended out line 29. There is no warning now.\nBut the result is still the same. I am on a VISTA PC. \n\nNow I tried with XP. There all is working correctly.\nprev32.dll in my FWH is from 11-5-2005.\nRegards,\nOtto','',0,'AIA=','2u2ies36',1,0,'',51,0,0),(47485,9823,3,6,0,'87.11.229.101',1201880712,1,0,1,1,1,1,'','','One of the many Vista\'s bugs and incompatibilities? <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','1jkrkrhu',1,0,'',6,0,0),(47486,9827,6,596,0,'85.62.69.206',1201881279,1,0,1,1,1,1,'','Color de celdas (filas y columnas) en la clase FILEXLS','Pues eso.\n¿ Se puede dar color a una fila con la clase TFileXLS ?','',0,'AIA=','185b5zem',1,0,'',596,0,0),(47487,9743,6,1072,0,'200.83.9.86',1201883265,1,0,1,1,1,0,'','','Manuel: \n\nTe dejo mi correo, haber si me puedes hacer llegar tu fabulosa Tsbrowse, mil perdones por abusar de tu bondad.\n\n\n\" <!-- e --><a href=\"mailto:mantonio_08@hotmail.com\">mantonio_08@hotmail.com</a><!-- e --> \"\n\nDesde ya eternamente agradecido \n\nAntonio','',0,'AIA=','1c9khork',1,0,'',1072,0,0),(47488,9813,6,1072,0,'200.83.9.86',1201883504,1,0,1,1,1,0,'','','Ruben:\n\nMuchas gracias por tu respuesta.\n\n\nSaludos,\nAntonio\n\n\n\n[quote=&quot;Ruben D. Fernandez&quot;:6ydwy4jm]mantonio:\n\nChequea aqui en el foro, esta en Utilidades y ahi lo buscas\n\nSaludos\n\nRuben Fernandez[/quote:6ydwy4jm]','',0,'gA==','6ydwy4jm',1,0,'',1072,0,0),(47489,9821,2,2,0,'87.218.146.222',1201885660,1,0,1,1,1,1,'','','FiveWin es un producto comercial desarrollado por nosotros, FiveTech Software, que puedes comprar en <!-- w --><a class=\"postlink\" href=\"http://www.fivetechsoft.com\">www.fivetechsoft.com</a><!-- w --> sección pedidos.\n\nPara iniciarte con FiveWin puedes descargar este tutorial:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/88366670/curso.zip.html\">http://rapidshare.com/files/88366670/curso.zip.html</a><!-- m -->\n\nPara iniciarte en la programación con Clipper, lo mejor es que consultes su guia de programación:\n<!-- m --><a class=\"postlink\" href=\"http://www.ousob.com/ng/clguide/\">http://www.ousob.com/ng/clguide/</a><!-- m -->','',0,'gA==','132m775m',1,0,'',2,0,0),(47490,9823,3,51,0,'80.122.88.242',1201887542,1,0,1,1,1,0,'','','Enrico, the problem is that VISTA is the standard we have to follow.\nRegards,\nOtto','',0,'gA==','1euhb30b',1,0,'',51,0,0),(47491,9827,6,106,0,'85.34.123.173',1201887807,1,0,1,1,1,1,'','','JmGarcia, \n\n\nPrueba esto:\n\n\noHoja:Rows( \"2:4\" ):Interior:Color := RGB( 244, 249, 198)\noHoja:Cells( nRow, nCol ):Font:Bold  := .T.\noHoja:Cells( nRow, nCol ):Font:Color := CLR_RED\noHoja:Rows(nRow):Interior:Color      := CLR_HCYAN\n\n\nSaludos','',0,'gA==','2u7mlc96',1,0,'',106,0,0),(47492,9828,7,400,0,'201.68.30.154',1201889320,1,0,1,1,1,1,'','Ajuda com, Avaliacion de aparelhos.... para FwPPC','Es possible usar FwPPc,,neste modelos de SmarFones:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.nokia.com.br/A4523373\">http://www.nokia.com.br/A4523373</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://motorola-rm.locaweb.com.br/motoq/pt/q-features.asp?Country=BRA&amp;language=PRL&amp;productid=30546\">http://motorola-rm.locaweb.com.br/motoq ... ctid=30546</a><!-- m -->\n\nSaluds','',0,'gA==','2zotmrd6',1,0,'',400,0,0),(47493,9823,3,2,0,'87.218.146.222',1201890537,1,0,1,1,1,1,'','','Otto,\n\nI fully agree that FWH has to properly work on Vista, and we need to solve it.\n\nBut just a comment: only 9% of the market use Vista these days. Around 75% still use XP. \nI recently saw the comparative chart and was impressed with the results... I trying to locate it to show it to you.','',0,'gA==','1m2xs5sg',1,0,'',2,0,0),(47494,9823,3,303,0,'72.220.181.80',1201890885,1,0,1,1,1,0,'','','Otto,\n\nAre you having this problem with all reports when running on Vista, or just that report? I don\'t have Vista here to check.\n\nJames','',0,'gA==','6iwmo2ao',1,0,'',303,0,0),(47495,9829,6,570,0,'200.41.41.132',1201890930,1,0,1,1,1,1,'','CONSULTA Y ERROR CON ADORDD','Estimados con experiencia ADO, trate siguiendo todos los pasos aqui mencionados de probar ADORDD con el siguiente ejemplo usando FWH 8.01 y Xharbour 1.1.0, me tira el siguiente error: \n\nEjemplo compilado: \n \n[code:x3jcrhv5]#include &quot;adordd&#46;ch&quot; \n#include &quot;FiveWin&#46;ch&quot; \n\nREQUEST ADORDD \n\nfunction Main&#40;&#41; \n\n   USE test00 VIA &quot;ADORDD&quot; TABLE &quot;ACCOUNTS&quot; MYSQL ; \n      FROM &quot;www&#46;freesql&#46;org&quot; USER &quot;myuser&quot; PASSWORD &quot;mypass&quot; \n\n   Browse&#40;&#41; \n\n   USE \n\n/*   USE Test&#46;mdb VIA &quot;ADORDD&quot; TABLE &quot;Tabla1&quot; \n\n   Browse&#40;&#41; \n\n   USE \n*/ \n\nreturn nil \n [/code:x3jcrhv5]\n\ny me tira el siguiente error si uso la prueba para ver una mdb. no tira el error pero el browse lo muestra vacio, aqui el error: \n\nApplication \n=========== \nPath and name: C:\\FWH\\SAMPLES\\testado.exe (32 bits) \nSize: 1,487,360 bytes \nTime from start: 0 hours 0 mins 0 secs \nError occurred at: 02/01/08, 12:45:14 \nError description: Error ADODB.Connection/0 S_OK: OPEN \nArgs: \n[ 1] = C DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass \n\nStack Calls \n=========== \nCalled from: win32ole.prg =&gt; TOLEAUTO:OPEN(0) \nCalled from: ADORDD.prg =&gt; ADO_OPEN(241) \nCalled from: =&gt; DBUSEAREA(0) \nCalled from: testado.prg =&gt; MAIN(9) \n\nSystem \n====== \nCPU type: Intel(R) Pentium(R) D CPU 2.80GHz 2800 Mhz \nHardware memory: 959 megs \n\nFree System resources: 90 % \nGDI resources: 90 % \nUser resources: 90 % \n\nCompiler version: xHarbour build 1.1.0 Intl. (SimpLex) \nWindows version: 5.1, Build 2600 Service Pack 2 \n\nWindows total applications running: 0 \n\nVariables in use \n================ \nProcedure Type Value \n========================== \nTOLEAUTO:OPEN \nParam 1: C \"DRIVER={MySQL ODBC 3.51 Driver};server=www.freesql.org;database=test00;uid=myuser;pwd=mypass\" \nLocal 1: U \nLocal 2: N 0 \nADO_OPEN \nParam 1: N 1 \nParam 2: A Len: 8 \nLocal 1: A Len: 14 \nLocal 2: C \"test00\" \nLocal 3: U \nLocal 4: U \nLocal 5: U \nLocal 6: U \nLocal 7: U \nLocal 8: U \nDBUSEAREA \nParam 1: L .F. \nParam 2: C \"ADORDD\" \nParam 3: C \"test00\" \nParam 4: U \nParam 5: U \nParam 6: L .F. \nMAIN \n\nLinked RDDs \n=========== \nDBF \nDBFFPT \nDBFBLOB \nDBFNTX \nADORDD \n\nDataBases in use \n================ \n\nClasses in use: \n=============== \n1 HASHENTRY \n2 HBCLASS \n3 TOLEAUTO \n4 ERROR \n5 HBOBJECT \n6 TREG32 \n\nMemory Analysis \n=============== \n118 Static variables \n\nDynamic memory consume: \nActual Value: 0 bytes \nHighest Value: 0 bytes \n\Z \n\nBueno si alguien puede darme una pistita les agradecere, ya que tengo una aplicación que debe agregar unos reistros al final del dia en una tabla sql... \n\nMuchas Gracias a todos.. \n\nSaludos,\n_________________\nGUSTAVO PREDIGER','',0,'AIA=','x3jcrhv5',1,0,'',570,0,0),(47496,9823,3,6,0,'87.11.229.101',1201891296,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:15io4jwm]Enrico, the problem is that VISTA is the standard we have to follow.[/quote:15io4jwm]\n\nYes, I\'m only saying that if it is really a bug of Vista then it will be probably fixed by MS.\n\nEMG','',0,'gA==','15io4jwm',1,0,'',6,0,0),(47497,9823,3,6,0,'87.11.229.101',1201891338,1,0,1,1,1,1,'','','Early XP was a real disaster, do you remember?\n\nEMG','',0,'gA==','2x0heanp',1,0,'',6,0,0),(47498,9823,3,3,0,'80.81.159.19',1201891534,1,0,1,1,1,1,'','','Otto\n\nI compiled and ran your report on my vista (premium home editon), it shows OK . I am using xcc compiler (xharbour.com)\n\nJust a remark, though i do not like vista, my app runs OK with Vista . Fwh is working properly, no problem with reports.\n\nPlease try to check your prev32.dll maybe something wrong there.\n\nHTH\n\nRichard','',0,'gA==','1l8urs64',1,0,'',3,0,0),(47499,9823,3,2,0,'87.218.146.222',1201891701,1,0,1,1,1,1,'','','Here its working fine with Vista Ultimate 32 (all upgrades applied) and FWH 8.02 pre-release:\n\n[url=http&#58;//imageshack&#46;us:1j417c67][img:1j417c67]http&#58;//img219&#46;imageshack&#46;us/img219/7489/reportwf9&#46;png[/img:1j417c67][/url:1j417c67]','',0,'GA==','1j417c67',1,0,'',2,0,0),(47500,9830,3,1257,0,'195.93.60.34',1201891891,1,0,1,1,1,1,'','Refresh vars in Office2007-Bar from MDI-Child ? =&gt; solved','Hello from Germany\nI\'m still busy with the DB-Tool i want to put in the forum\n1 promlem is left :\nI don\'t get the var in the Office2007-Bar updated,\nwhen i change the var in the MDI-Child\n\n\nAdded Information : 02.02.2008 \n\nRECEIVE Values from a Outlook2003-Child\nin a Office2007-ButtonBar\n---------------------------------------------------------\nGET	       =  oGet:Value(), oGet:Refresh()\nSAY	       =  oSay:Varget(), oSay:Refresh() \nRADIO	       =  oRadio:nOption, oRadio:Refresh()\nCHECKBOX      =  oCheck:Varget(), oCheck::Refresh()\n\nSEND new Values from Office2007-ButtonBar\nto a Outlook2003-Child\n-----------------------------------------------------\nRADIO	 =  aScope:nOption(2), aScope:Refresh()\nfor .T.\nCHECK      =  oCheck:Check(), oCheck:Refresh()\nfor .F.\nCHECK      =  oCheck:UnCheck(), oCheck:Refresh()\nGET          =  oGet:VarPut(\"NewValue\"), oGet:Refresh()\nSAY          =  oSay:VarPut(\"NewValue\"), oSay:Refresh() \n\n\nThe changes for the problem :\n\n// This Var has to be changed\n//--------------------------------------\nREDEFINE GET oEXPORT VAR cEXPORT ID 170 OF aCtrl[nPage] ;\n                    PICTURE \"!!!!!!!!!!!!!!!!!!!!\" UPDATE\n// -------------------------------------\n\naCtrl[nPage]:bStart:= ;\n        {|| B_Bar4(oDlg,oBrw5,aCtrl,nPage,cFile1,oExport) } // !!!! \n\n // ----------------------------------------\n\nFUNCTION B_Bar4(oDlg,oBrw5,aCtrl,nPage,cFile1,oExport) //  !!!!\n\n// The changed cEXPORT in the Child \n// -----------------------------------------\nDEFINE BUTTON oBtn1 OF oBar4 ;\nACTION ( aCtrl[nPage]:Update ), ;                    // Child Update            \n               EXP_DBF(oEXPORT:Value(),cFile1), ;  // the changed Var      \n               DBSELECTAREA(1), DBGOTOP(), ;\n               oBrw5:Refresh(), ; 	\n               oBrw5:SetFocus() ) ;\nRESOURCE \"Question\" PROMPT \"DBF\" + CRLF + \"Exportieren\"\n     \n\n\n\n// The old code\n\n//------------  Quick- Browse  Outlook2003 ---------------------------\n\nFUNCTION PROG_4(oDlg,aCtrl,nPage,aCors)\n\nLOCAL oFile1, oBrw5\nLOCAL oFilter, oSUCH, aSCOPE, oINDKEY\nLOCAL oOemAnsi, lClrFlag :=.f. \nLOCAL nSCOPE := 1\nLOCAL cFilter := SPACE( 70 )\nLOCAL cFELD := \"\", l_INDEX := .F.\nLOCAL lOemAnsi := .T., cOemAnsi := \"\"\nLOCAL cFile1 := GET_DBF2()\nLOCAL DBFTYP := CabDbf (cFile1) \nLOCAL cEXPORT := \"EXPORT.DBF  \" \n// ----------------------------------------\n// update ok in MDI-Child but not in the Office-Bar\n\nDBSELECTAREA(1)\nUSE &amp;cFile1 \nDBGOTOP()\n\n// oDlg                = oOutlook2003  Main-Dialog\n// --------------------------------------------\n// aCtrl[nPage]   = Selected Button of oOutlook2003\n// --------------------------------------------\n\nDEFINE DIALOG aCtrl[nPage]  RESOURCE \"BROWSER_1\" OF oDlg PIXEL \n\noBrw5 := TXBrowse():New( aCtrl[nPage] )\n\noBrw5:nMarqueeStyle		:= MARQSTYLE_HIGHLCELL\noBrw5:nColDividerStyle	:= LINESTYLE_BLACK\noBrw5:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw5:lColDividerComplete	:= .t.\noBrw5:nHeaderLines		:= 1\noBrw5:nDataLines		:= 1\noBrw5:lAllowColSwapping           := .t.\noBrw5:lOemToAnsi                     := lOemAnsi\noBrw5:SetRDD()\n.........\n.........\noBrw5:CreateFromResource( 110 )\n\n// This Var has to be changed\n//--------------------------------------\nREDEFINE GET oEXPORT VAR cEXPORT ID 170 OF aCtrl[nPage] ;\n                    PICTURE \"!!!!!!!!!!!!!!!!!!!!\" UPDATE\n// -------------------------------------\n\n// Connection of Office2007-Bar to the MDI-Child\n//------------------------------------------------------\naCtrl[nPage]:bStart:= ;\n        {|| B_Bar4(oDlg,oBrw5,aCtrl,nPage,cFile1,cExport) } \n\nACTIVATE DIALOG aCtrl[nPage] NOWAIT ;\nON INIT ( aCtrl[nPage]:Move( aCORS [1] + 15, aCORS [2] + 200, ;\n                aCtrl[nPage]:nWidth, aCtrl[nPage]:nHeight, .f. ) )\n\nRETURN( NIL )\n\n// ----------------------------------------\n\nFUNCTION B_Bar4(oDlg,oBrw5,aCtrl,nPage,cFile1,cExport)\n\nLOCAL oBar4, oBtn1\n\n// I want a Export of =&gt; cFile1 To =&gt; cEXPORT\n\nDEFINE BUTTONBAR oBar4 SIZE 65, 95 _3D 2007  ;\nOF aCtrl[nPage]  RIGHT\n\n// Updates cEXPORT in the Child but not here\n// ---------------------------------------------------\nDEFINE BUTTON oBtn1 OF oBar4 ;\nACTION ( aCtrl[nPage]:Update ), ;                    \n               EXP_DBF(cEXPORT,cFile1), ;        \n               DBSELECTAREA(1), DBGOTOP(), ;\n               oBrw5:Refresh(), ; 	\n               oBrw5:SetFocus() ) ;\nRESOURCE \"Question\" PROMPT \"DBF\" + CRLF + \"Exportieren\"\n\nRETURN( NIL )\n\nIs it possible, to get a refresh of oBar4 ?\n\nRegards\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','2zcl4adf',1,1202041603,'',1257,4,0),(47501,9823,3,51,0,'80.122.88.242',1201892066,1,0,1,1,1,0,'','','Antonio, can you please mail me your exe file for a test.\nThanks in advance\nOtto','',0,'','30sax3tc',1,0,'',51,0,0),(47502,9823,3,2,0,'87.218.146.222',1201892231,1,0,1,1,1,1,'','','Otto,\n\nAlready sent','',0,'','1tqkcmay',1,0,'',2,0,0),(47503,9831,6,1238,0,'217.127.123.34',1201893511,1,0,1,1,1,0,'','Error al enlazar','Compilo y enlazo con un fichero .RMK similar al test.rmk que figura en los ficheros de FWH. \n\nMe da un error. A saber:\n\n\"Fatal:Too many MAP files names: c:\\fwh\\lib\\FiveHC.lib\"\n\"**ERROR 2** deleting perito.exe\n\nNecesito ayuda para conocer el origen del error.\n\nGracias. Fernando','',0,'','3gvgal79',1,0,'',1238,0,0),(47504,9831,6,362,0,'200.158.18.205',1201895071,1,0,1,1,1,1,'','','hola...\n\nte falta una parametro en tu archivo.lnk\n\nejemplo:\n\n[code:1qo0tnnw]\nc0w32&#46;Obj                               +\nVENDAS&#46;Obj                              +\nBTNGET&#46;Obj                              +\nBTNDOWN&#46;Obj                             +\nGETBTN&#46;Obj                              +\nTSBROWSE&#46;Obj                            +\nSBMSGPOR&#46;Obj                            +\nTSCOLUMN&#46;Obj                            +\nTSBTNGET&#46;Obj                            +\nTSGET&#46;Obj                               +\nTSCOMBO&#46;Obj                             +\nTSMULTI&#46;Obj                             +\nSCRLLBAR&#46;Obj                            +\nTMETAFIL&#46;Obj                            +\nTSBFUNCS&#46;Obj                            +\nSCROLL&#46;Obj                              +\nTSBUTTON&#46;Obj                            +\nTSBAR&#46;Obj                               +\nTSLINES&#46;Obj                             +\nBPAINT&#46;Obj                              +\nROUNDREC&#46;Obj                            +\nDBMANT&#46;Obj                              +\nREDE&#46;Obj                                +\nSSAY&#46;Obj                                +\nBMP_RAND&#46;Obj                            +\nREINICIA&#46;Obj                            +\nTSHUT&#46;Obj                               +\nREINICIA&#46;Obj                            +\nREINDEXA&#46;Obj                            +\nDSAY&#46;Obj                                +\nANIMABMP&#46;Obj                            +\nEMPRESAS&#46;Obj                            +\nCRIARDBF&#46;Obj                            +\nMSGMETER&#46;Obj                            +\nCALEND&#46;Obj                              +\nTCALENDA&#46;ObJ                            +\nDIREITOS&#46;Obj                            +\nBMPVIEW&#46;Obj                             +\nCORGET&#46;Obj                              +\nIMAGE&#46;Obj                               +\nMSGGETCP                                +\nMSGGET&#46;Obj                              +\nWBROWSE&#46;Obj                             +\nTGET&#46;Obj                                +\nCONTROL&#46;Obj                             +\nWINDOW&#46;Obj                              +\nRPREVIEW&#46;Obj                            +\nFOLDER&#46;Obj                              +\nERRSYSW&#46;Obj                             +\nFWERROR&#46;Obj                             +\nCLIENTES&#46;Obj                            +\nCADFORNE&#46;Obj                            +\nESTOQUE&#46;Obj                             +\nINCFITAS&#46;Obj                            +\nFUNCOES&#46;Obj                             +\nOPERADOR&#46;Obj                            +\nREPASSA&#46;Obj                             +\nREPASSA2&#46;Obj                            +\nDEL_COMP&#46;Obj                            +\nDELPEDID&#46;Obj                            +\nCBREAJPR&#46;Obj                            +\nCBREAJGL&#46;Obj                            +\nREPMARCA&#46;Obj                            +\nREPNOMES&#46;Obj                            +\nREPCONTA&#46;Obj                            +\nFOTOS&#46;Obj                               +\nUTIL&#46;Obj                                +\nWAGENDA&#46;Obj                             +\nVERFITAS&#46;Obj                            +\nVERFICOD&#46;Obj                            +\nTCBFITAS&#46;Obj                            +\nBROWFITA&#46;Obj                            +\nRECIBO&#46;Obj                              +\nXBLITE&#46;Obj                              +\nBOXGET&#46;Obj                              +\nAPAGADIS&#46;Obj                            +\nBROWSEFA&#46;Obj                            +\nTCBCADFO&#46;Obj                            +\nCADFORN2&#46;Obj                            +\nCALCULAD&#46;Obj                            +\nRELOGIO&#46;Obj                             +\nTIPOEMPR&#46;Obj                            +\nENTREGAD&#46;Obj                            +\nALTTICKT&#46;Obj                            +\nCONTATO&#46;Obj                             +\nDISPLAY&#46;Obj                             +\nCLIEIMOB&#46;Obj                            +\nCAPTADOR&#46;Obj                            +\nTIPOCLIE&#46;Obj                            +\nOPERACAO&#46;Obj                            +\nCONTRATO&#46;Obj                            +\nTIPOIMOV&#46;Obj                            +\nTIPOZONA&#46;Obj                            +\nIMOVEIS&#46;Obj                             +\nFIADORES&#46;Obj                            +\nINQUILIN&#46;Obj                            +\nPROPRIET&#46;Obj,                           +\nVENDAS&#46;exe,                             +\nVENDAS&#46;map,                             +\n\\FwH27\\lib\\FiveHX&#46;Lib                   +\n\\FwH27\\lib\\FiveHC&#46;Lib                   +\n\\FwH27\\lib\\FoldBmp32&#46;lib                +\n\\xHarbour\\Lib\\Ace32&#46;Lib                 +\n\\xHarbour\\Lib\\RddAds&#46;Lib                +\n\\xHarbour\\lib\\hbzip&#46;Lib                 +\n\\xHarbour\\lib\\rtl&#46;Lib                   +\n\\xHarbour\\lib\\vm&#46;Lib                    +\n\\xHarbour\\lib\\gtgui&#46;Lib                 +\n\\xHarbour\\lib\\lang&#46;Lib                  +\n\\xHarbour\\lib\\macro&#46;Lib                 +\n\\xHarbour\\lib\\rdd&#46;Lib                   +\n\\xHarbour\\lib\\dbfntx&#46;Lib                +\n\\xHarbour\\lib\\dbfcdx&#46;Lib                +\n\\xHarbour\\lib\\dbfdbt&#46;Lib                +\n\\xHarbour\\lib\\debug&#46;Lib                 +\n\\xHarbour\\lib\\common&#46;Lib                +\n\\xHarbour\\lib\\tip&#46;Lib                   +\n\\xHarbour\\lib\\pp&#46;Lib                    +\n\\xHarbour\\lib\\dbffpt&#46;Lib                +\n\\xHarbour\\lib\\codepage&#46;Lib              +\n\\xHarbour\\lib\\libmisc&#46;Lib               +\n\\xHarbour\\lib\\HbCt&#46;Lib                  +\n\\xHarbour\\lib\\HbSix&#46;Lib                 +\n\\xHarbour\\lib\\HbComm&#46;Lib                +\n\\xHarbour\\lib\\PcRepos&#46;Lib               +\n\\xHarbour\\Lib\\ct&#46;Lib                    +\n\\Borland\\Bcc55\\lib\\cw32&#46;Lib             +\n\\Borland\\Bcc55\\lib\\psdk\\msimg32&#46;Lib     +\n\\Borland\\Bcc55\\lib\\psdk\\odbc32&#46;Lib      +\n\\Borland\\Bcc55\\lib\\psdk\\rasapi32&#46;Lib    +\n\\Borland\\Bcc55\\lib\\psdk\\nddeapi&#46;Lib     +\n\\Borland\\Bcc55\\lib\\psdk\\iphlpapi&#46;Lib    +\n\\Borland\\Bcc55\\lib\\import32&#46;Lib,\nPIZZAS&#46;RES                              +\nIMOBILIA&#46;RES                            +\nIMAGENS&#46;RES                             +\nXBLITE&#46;RES \n[/code:1qo0tnnw]','',0,'AIA=','1qo0tnnw',1,0,'',362,0,0),(47505,9831,6,1238,0,'217.127.123.34',1201896762,1,0,1,1,1,0,'','','En realidad utilizo un fichero .rmk y no parece que falte nada.\n\nGracias. Fernando','',0,'AIA=','2vmsylex',1,0,'',1238,0,0),(47506,9823,3,51,0,'80.122.88.242',1201896781,1,0,1,1,1,0,'','','Thank you. The problem is the same as with my exe.\n\nRegards,\nOtto','',0,'AIA=','1f8et4x7',1,0,'',51,0,0),(47507,9832,6,319,0,'189.62.132.87',1201896994,1,0,1,1,1,0,'','Browse com Merge','Alguem sabe dizer se é possivel utilizar esta opção como é feita no EXCEL','',0,'AIA=','1n63ucvw',1,0,'',319,0,0),(47508,9823,3,51,0,'80.122.88.242',1201897340,1,0,1,1,1,0,'','','Antonio, could you please test with AERO off.\nWith AERO on it is working here too.\nThanks in advance\nOtto','',0,'AIA=','2q2uv9rh',1,0,'',51,0,0),(47509,9823,3,303,0,'72.220.181.80',1201897437,1,0,1,1,1,0,'','','Otto,\n\nMaybe it is your screen resolution or grahics card?\n\nJames','',0,'AIA=','5be15cfv',1,0,'',303,0,0),(47510,9815,6,54,0,'189.132.102.172',1201897656,1,0,1,1,1,1,'','Re: Compilar/Enlazar','[quote=&quot;mmercado&quot;:1onl0adk][quote=&quot;wmormar&quot;:1onl0adk]Cual es el error?[/quote:1onl0adk]\n\nHola Wiliam:\n\nEl error es: \"Too many commas on command line\"\n\nEsto solo pasa si incluyo más de un archivo .rc\n\nPara mí esto es indispensable ya que en mis aplicaciones, uso una gran cantidad de recursos que exceden el límite de 1,059 kb (en 16 bits no existía este límite) y me veo en la necesidad de partir mi archivo rc en varios.\n\nSaludos\n\nManuel Mercado[/quote:1onl0adk]\n\n[url=http&#58;//incos&#46;sytes&#46;net/fivewin:1onl0adk]Página VERCE[/url:1onl0adk]\n\nespero la version que está ahi, resuelva tu problema','',0,'kA==','1onl0adk',1,0,'',54,0,0),(47511,9823,3,2,0,'87.218.146.222',1201897951,1,0,1,1,1,1,'','','Otto,\n\nWithout themes fails in Vista. \n\nIt seems as a Windows Vista metafiles management bug.','',0,'kA==','2z5stbb4',1,0,'',2,0,0),(47512,9830,3,303,0,'72.220.181.80',1201897986,1,0,1,1,1,0,'','','I don\'t quite undestand what you are trying to do but if you wish to update the GET you are going to have to do oExport:varPus( cVar ) where cVar is the new value. Then you may need to refresh the GET; oExport:refresh().\n\nIf you want to do this each time a record is changed than you will have to call these either using oBrw:bChange or in oBrw:bSkip.\n\nJames','',0,'kA==','ktraxgtr',1,0,'',303,0,0),(47513,9830,3,1257,0,'195.93.60.34',1201899605,1,0,1,1,1,1,'','Update a Var in Office2007-Bar from MDI-Child   fixed !!!','As a sample i had to do :\n\nIn the Outlook2003-Child =&gt;  oExport   VAR   cEXPORT\n\nTo show the Var in the Office2007-Buttonbar\noExport:Value()   // the changed value from the child\n------------------\n\nI just want to export the database \nto the new destination when i change the contents of &lt; cExport &gt;. \nWith a Click on a Office-Bar-Button, i want a refresh of the \n&lt; cExport &gt;-field and then start the export of the database with \nthe new destination ( not the default-value )\n\nThe problem i have in the moment :\nThe Office-Bar shows the default-value with\nMsgAlert( cExport ) and doesn\'t change after the Child-Refresh()\n\nThank you.\nU. könig <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'kA==','1p6f7ukc',1,1201905229,'',1257,1,0),(47514,9830,3,303,0,'72.220.181.80',1201899887,1,0,1,1,1,0,'','','&gt;oExport:varPush( cVar ) \n\nIt should be oExport:varPut( cVar ).\n\nJames','',0,'kA==','38ar521y',1,0,'',303,0,0),(47515,9831,6,1201,0,'200.90.17.154',1201902554,1,0,1,1,1,0,'','','Te falta un parametro en la parte del link, ya que está esperando donde va a crear el .map y se encuentra el primer .lib\n\njuan.obj                             +\npepe.Obj,                           + // ultimo obj a linkear (fijate en la coma\nVENDAS.exe,                      + // el archivo .exe (fijate en la coma)\nVENDAS.map,                     + // el archivo.map (FIJATE EN LA COMA!!)\n\\FwH27\\lib\\FiveHX.Lib          + // el primer .lib\n\n\nAngel','',0,'kA==','13kdu5x0',1,0,'',1201,0,0),(47516,9833,2,890,0,'190.9.66.224',1201909938,1,0,1,1,1,0,'','Detener timer','Antonio\n\nCordial saludo\n\nCom puedo parar voluntariamente un timer?\n\nGracias\n\nJairo Barbosa','',0,'kA==','3d31q82t',1,0,'',890,0,0),(47517,9833,2,2,0,'87.218.146.222',1201911507,1,0,1,1,1,1,'','','Con oTimer:DeActivate() lo detienes\n\nCon oTimer:End() lo eliminas completamente','',0,'kA==','1khd839i',1,0,'',2,0,0),(47518,9743,6,439,0,'200.125.49.241',1201913753,1,0,1,1,1,1,'','','Manuel,\n\nSería mucho pedir que Ud. pudiera subir TSBrowse a un hosting y poner el link en utilidades, de ese modo todos podríamos tenerlo disponible, ya que seguramente habrán muchos más que querrán tenerlo.\n\nGracias desde ya por su buena disposición, y quedo a sus órdenes.','',0,'kA==','7vhe1ntu',1,0,'',439,0,0),(47519,9834,6,1265,0,'201.252.205.100',1201914442,1,0,0,1,1,0,'','vendito alt-c','Como consulta es posible deshabilitar la combinacion de teclas alt+c que proboca una salida abrubta en el software. Esto ya lo tenia el compilador clipper. y es un detalle pero en un sistema de facturacion (Y RECORDANDO A MURPHY) debe ser una salida controlada. Si alguien tiene una solucion seria agradable ser \"iluminado con su sapiencia\". Gracias y saludos. <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'kA==','2q0snzsc',1,0,'',1265,0,0),(47520,9814,11,578,0,'218.214.68.108',1201915264,1,0,1,0,1,0,'','','Hi Antonio\n\n&gt;\nNope, sorry. We have not used it across networks, just locally. \n&gt;\n\nWell I should be testing in a few days - when I have my native Linux network up and running.  I guess that its more of an xHarbour issue than specifically Five Linux.\n\n&gt;\nThats probably caused as the GET has not lost the focus \n&gt;\n\nThat makes sense.  Because the GET was set programmatically the GET probably didn\'t ever get the focus.  Does that mean that we could code along the lines of:\n\ngetGender:SetText( \"F\" )\ngetGender:LostFocus()\n\nwould we need to precede the above with something like:\n\n getGender:SetFocus()\n\n(Sorry, but I am away from my Five Linux documentation so don\'t know if above functions exist or are correctly named).\n\nThat would mean that the code for saving the data would not have to change, the only additional coding would be around the code that wrote the values into the GETs which makes for safer, easier to read and understand code.\n\n&gt;\nYes, we can modify method SetText() to set the variable contents, but that will override the VALID (?)\n&gt;\n\nThat would suit me - if I am doing something programmatically I assume its correct.  In any case I could always code along the following lines:\n\nIF ValidFunction( &lt;parameters&gt; )\n   getGender:SetText( \"F\" )\nENDIF\n\nBut I guess its a question for Five Linux users as a group and especially you as the architect,  as to what approach is best.\n\nJust to explain the background to this I am trying to speed up data entry.  We have different salutations as follows:\n\nMr.       male (married or not)\nMrs.     female (married)\nMiss    female (not married)\nMs.      female (no implication as to marital status)\n\nuser can click on any of the above and the code sets the salutation and the gender.\n\nSimilarly for the suburb part of their address common local suburbs are listed and user can click on one of them and both suburb and postcode (our equivalent of zip code) fields are filled out.\n\n(These are just 2 examples.  I find that this type of technique can save a lot of data entry time - especially for non typists.)\n\nBest regards\nDoug\n(xProgrammer)','',0,'kA==','11f9wfji',1,0,'',578,0,0),(47521,9835,3,303,0,'72.220.181.80',1201915326,1,0,1,1,1,0,'','XBrowse Muliple Rows per record','I understand that XBrowse can display mutliple lines per record, but I can\'t figure out how to do it.\n\noBrw:nDataLines := 2\n\nHas no effect, and I don\'t know why you would need that. It seems that the browse should figure that out itself by the data specification.\n\nAnd I can\'t figure out the syntax for displaying the data using oCol:bStrData. I have tried CRLF, CR, LF, and arrays.\n\nCan someone explain the syntax?\n\n[I am using FWH 8.01/xHarbour]\n\nJames','',0,'','2blipw4w',1,0,'',303,0,0),(47522,9815,6,1255,0,'200.66.237.33',1201915826,1,0,1,1,1,0,'','Re: Compilar/Enlazar','[quote=&quot;wmormar&quot;:1kobb8bn]espero la version que está ahi, resuelva tu problema[/quote:1kobb8bn]\nGracias William pero es la misma que tengo y me da el mismo problema. Es probable que al linkar estén separando la lista de archivos RES con comas en lugar de espacios\n\nSaludos.\n\nManuel Mercado.','',0,'gA==','1kobb8bn',1,0,'',1255,0,0),(47523,9836,11,578,0,'218.214.68.108',1201917039,1,0,1,0,1,0,'','My remaining &quot;minor issues&quot;','Hi Antonio\n\nI have just a few \"minor issues\" that make xHarbour/FiveLinux not quite perfect (just yet!).\n\n1. I haven\'t found a way to control the order of tabbing through a dialog - as far as I can determine it goes in row then column order regardless of the order in which the objects are instantiated.  I would like to be able to specify tab order and / or exclude objects from the tab list.\n\n2. When tabbing into a GET object I would like the cursor to go either to the first character in the GET or immediately after the last non blank character of the GET.\n\n3. The treatment of blocked text (not then overwritten) in a GET is contrary to most other software and confuses and frustrates users.\n\nThere is some more info on the above three in my previous posts.\n\nThe above tend to result in inaccuracies and especially leading blanks in some of the data entered into my software.  For some of the more critical fields I have had to LTRIM existing data and use code such as\n\nREPLACE PT_SURNAME WITH LTRIM( sSurname )\n\na safety precaution I haven\'t ever needed in the past.\n\nThe other little problem is that in a grid where all records cannot be displayed at once, the horizontal slider tends to cover the last row - I think a minor adjustment to the height calculation is necessary.  Vertical scrolling doesn\'t seem to work quite as most users expect - I have some state that they can\'t scroll to the bottom of a grid - you actually can but sometimes it seems to take a bit of fiddling.\n\nOne final thing - did we ever fix WinExec to take more than 1 parameter?\n\nI\'m just so happy that I found FiveLinux.  I just hope a few more users jump on the bandwagon.  That would make the journey even more enjoyable.\n\nFond regards\nDoug\n(xProgrammer)','',0,'gA==','350854l9',1,0,'',578,0,0),(47524,9835,3,303,0,'72.220.181.80',1201917422,1,0,1,1,1,0,'','','Solved.\n\nYou have to also increase the row height. If you don\'t do that, the data appears with the CRLF symbols on the same row. So all three of these lines are required.\n\n   [code:29ac4jb7]oCol&#58;bStrData      &#58;= &#123;|| trim&#40; oCust&#58;last&#41; + &quot;, &quot; + oCust&#58;first +CRLF+ oCust&#58;street&#125;\n\n   oBrw&#58;nDataLines &#58;= 2\n\n   oBrw&#58;nRowHeight &#58;= 30[/code:29ac4jb7]\n\nThis does not seem to be the best solution. It would be better if XBrowse figured out that if there were two lines of data in bStrData, then nDataLines should be set to 2, and nRowHeight should be adjusted. Actually, it should figure out the minum row height needed and use that unless nRowHeight has been specified and is greater than the minimum row height. That way we could still make the row height larger.\n\nJames','',0,'AIA=','29ac4jb7',1,0,'',303,0,0),(47525,9837,6,935,0,'200.62.78.121',1201920183,1,0,1,1,1,1,'','QUE SIGNIFICA ESTE ERROR','Hola Amigos del Foro,\n\nEstoy tratando con un Programa de ALtas, Bajas y Cambios con Ado y Mysql, tengo un Browse con los respectivos botones de las acciones , las altas no hay problemas , las bajas no hay problemas, pero cuando se trata de editar o modificar un registro ahi esta el problema me lanza un mensaje de error :\n\nDISP_E_MEMBERNOTFOUND:UPDATE(0)\n\nNo se que significa, revise mis estructuras de datos y todo bien, son 6 campos tipo char probe a cambiarlos  a varchar pero da el  mismo error lo raro es que solo cuando modifico.\n\nSaludes y gracias de Antemano\n\nDesde Managua, Nicaragua \n\nRamon Paredes','',0,'AIA=','y135183n',1,0,'',935,0,0),(47526,9815,6,54,0,'189.132.102.172',1201928175,1,0,1,1,1,1,'','Re: Compilar/Enlazar','[quote=&quot;mmercado&quot;:tb8u36jb][quote=&quot;wmormar&quot;:tb8u36jb]espero la version que está ahi, resuelva tu problema[/quote:tb8u36jb]\nGracias William pero es la misma que tengo y me da el mismo problema. Es probable que al linkar estén separando la lista de archivos RES con comas en lugar de espacios\n\nSaludos.\n\nManuel Mercado.[/quote:tb8u36jb]\n\nLo checaré pronto','',0,'gA==','tb8u36jb',1,0,'',54,0,0),(47527,9815,6,396,0,'200.71.188.208',1201934303,1,0,1,1,1,1,'','','Willianm, ese bug lo informamos desde el año pasado directo a tu correo y el de Salinas, por lo menos yo mismo se los envie, la version que trabaja mas estable es la 5.0, ya las he revisado todas...gracias, espero igual que muchos puedan resolver esos tips cuando tengan tiempos, se que deben  tener muchas cosas personales en la cabeza y de de trabajo, y fajarse con un programa que no les deja beneficios economicos no debe ser facil, igual gracias por tremendo aporte, por lo menos para mi.... saludos....desde VENEZUELA... <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->','',0,'gA==','11nrf2pt',1,0,'',396,0,0),(47528,9838,3,51,0,'80.122.88.242',1201939413,1,0,1,1,1,0,'','Getting started with VSX','Info:\n&gt;A extremely nice series of mini-articles on getting started with VSX that &gt;he calls LearnVSXNow!\n\n&gt;I\'ll be fascinated to watch this develop.\n\nBest regards,\nOtto','',0,'gA==','21ak946o',1,0,'',51,0,0),(47529,9835,3,1231,0,'83.13.37.2',1201939698,1,0,1,1,1,1,'','','James\nYou can also use xBrowse to show multiple lines without using CR+LF in each line. xBrowse will do it automaticaly.\n\n...\n   oBRWR:nRowHeight          :=50\n...\n   oCol:= oBRWR:AddCol()\n   oCol:bStrData  := {|| BRWR_SPIS_BADAN() }\n   oCol:cHeader   := \"Zlecone badania\"\n   oCol:nWidth:=200\n...\n\nFunction BRWR_SPIS_BADAN() \n   Local xRESZTA:=\'\'\n   Local XXX:=0\n   Local xRECNO:=RR-&gt;RECNO\n   Local warea:=Select()\nSelect(2)\nIf DbSeek(xRECNO)\n   Do While xRECNO=FF-&gt;RECNO .AND. .NOT. Eof()\n      XXX+=1\n      xRESZTA+=AllTrim(OemToAnsi(5-&gt;NAZWA_S))+\' \'\n      If XXX=5\n         // NOT NESSESARY to divide lines for xBROWSE\n         //xRESZTA+=sCRLF\n         XXX:=0\n      EndIf\n      DbSkip(1)\n   EndDo\nElse\n   Select(warea)\n   xRESZTA:=\"nothing to show\"\nEndIf\nReturn xRESZTA','',0,'gA==','h7ygjunl',1,0,'',1231,0,0),(47530,9826,6,1206,0,'213.97.245.163',1201941915,1,0,1,1,1,0,'','','Gracias Karinha, pero realmente no es lo que quiero, no me he explicado bien, y ademas me he liado con el POST queriendo corregir la última linea.\n\nEl problema radica, en lo siguiente\n1º cambio de directorio\n2º cambio de unidad\n3º vuelvo a launidad\nResultado, no estoy en el directorio donde me he cambiado anteriormente.\n\nfunction main() \n?curdrive() // C\n?curdir() // PRUEBA\n?lchdir(\"prueba2\") //cambio de directorio ok \n?curdir() // PRUEBA\\PRUEBA2\nsetcurdrive(\"z:\") \nsetcurdrive(\"c:\") \n[b:4mqy4td2]?curdir() // PRUEBA , DEBERÍA SER PRUEBA\\PRUEBA[/b:4mqy4td2]\n\nPERO VAMOS... QUE SI NO HAY SOLUCIÓN, ME QUEDO CON LA UBICACIÓN Y PUNTO, Y MODIFICAR EL PROGRAMA.','',0,'QA==','4mqy4td2',1,0,'',1206,0,0),(47531,9835,3,303,0,'72.220.181.80',1201942089,1,0,1,1,1,0,'','','Robert,\n\nFrom your code it looks like you are just building one long string. Does XBrowse just word-wrap at spaces?\n\nJames','',0,'QA==','aoqvlw02',1,0,'',303,0,0),(47532,9838,3,303,0,'72.220.181.80',1201942183,1,0,1,1,1,0,'','','Otto,\n\nDid you mean to post a link?\n\nJames','',0,'QA==','pn17k8x9',1,0,'',303,0,0),(47533,9835,3,1231,0,'83.13.37.2',1201947393,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:zxaj7c7j]Robert,\n\nFrom your code it looks like you are just building one long string. Does XBrowse just word-wrap at spaces?\n\nJames[/quote:zxaj7c7j]\n\nExactly.\nRemaind to keep oBrw:nRowHeight :=XXX up to your needs.','',0,'gA==','zxaj7c7j',1,0,'',1231,0,0),(47534,9838,3,51,0,'80.122.88.242',1201950324,1,0,1,1,1,0,'','','Sorry, I forgot the link:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.architekturaforum.hu/blogs/divedeeper/archive/tags/VSX/default.aspx\">http://www.architekturaforum.hu/blogs/d ... fault.aspx</a><!-- m -->','',0,'gA==','139fiit5',1,0,'',51,0,0),(47535,9815,6,54,0,'189.132.102.172',1201950608,1,0,1,1,1,1,'','','[quote=&quot;joseluisysturiz&quot;:2aj48nkp]Willianm, ese bug lo informamos desde el año pasado directo a tu correo y el de Salinas, por lo menos yo mismo se los envie, la version que trabaja mas estable es la 5.0, ya las he revisado todas...gracias, espero igual que muchos puedan resolver esos tips cuando tengan tiempos, se que deben  tener muchas cosas personales en la cabeza y de de trabajo, y fajarse con un programa que no les deja beneficios economicos no debe ser facil, igual gracias por tremendo aporte, por lo menos para mi.... saludos....desde VENEZUELA... <!-- s8) --><img src=\"{SMILIES_PATH}/icon_cool.gif\" alt=\"8)\" title=\"Cool\" /><!-- s8) -->[/quote:2aj48nkp]\n\nRecuerdo haberlo solucionado, revisaremos a la brevedad posible\n\nsaludos','',0,'gA==','2aj48nkp',1,0,'',54,0,0),(47536,9839,3,51,0,'80.122.88.242',1201950900,1,0,1,1,1,0,'','xBrowser +  RTF','Has someone tried to use a RICHEDIT in the datapaint method of xBrowser.\n\nI would like to have the same outlook in xBrowser as the sample.\n\n[img:1q3dyy9t]http&#58;//www&#46;atzwanger&#46;com/fw/rtfgrid&#46;jpg[/img:1q3dyy9t]','',0,'CA==','1q3dyy9t',1,0,'',51,0,0),(47537,9831,6,1238,0,'217.127.123.34',1201956309,1,0,1,1,1,0,'','','Muchas gracias, en efecto faltaba una coma.\n\nSaludos. Fernando','',0,'CA==','1mlk7nze',1,0,'',1238,0,0),(47538,9833,2,890,0,'190.9.66.224',1201961344,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3thc8bic]Con oTimer:DeActivate() lo detienes\n\nCon oTimer:End() lo eliminas completamente[/quote:3thc8bic]\n\nAntonio \n\nBuenos dias, gracias he progresado en el asunto pero me asalta una cuestion.\n\nHe  llevado el peso del archivo al  total del meter y esto funciona, claro que haciendo una división, pero encontré a manera de ejemplo que si el mp3 pesa un mega y 64Kbps de transferencia se ejecuta en un tiempo igual a otro archivo que pesa el doble pero la tasa de transferencia es también el doble, luego es importante que la aplicación conozca la taza de transferencia del archivo ¿Antonio hay forma de saber este dato?\n\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','3thc8bic',1,0,'',890,0,0),(47539,9833,2,2,0,'87.218.146.222',1201964480,1,0,1,1,1,1,'','','Jairo,\n\nNo lo sé. \n\nTendrás que buscar información respecto a los mp3 y Windows MCI en google','',0,'gA==','2hk9i9t7',1,0,'',2,0,0),(47540,9840,6,975,0,'190.90.131.5',1201970652,1,0,1,1,1,0,'','Para Antonio Y los Duros De FWH &quot; Error al abrir 3 Arch','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \nAmigos del foro;\n\nEstamos realizando una aplicación en la cual queremos manejar 3 archivos, en la primera ventana mostramos el archivo mediante TWBROWS como se ve en la imagen; al seleccionar un registro lo mostramos en la siguiente ventana, despues abrimos el segundo archivo y es cuando se presenta el error que aparece en la imagen. este es el fuente.\n\n//-------------------------------------------------------------//\nSTATIC FUNCTION Avalu\n//-------------------------------------------------------------//\n#define AVALUO	5\nlocal oChild,oCOL,a_RADIO\ncbuscar  := SPACE(30)\n  dbSelectArea(2)\n  Catastro-&gt;(OrdSetFocus(\"codigo\"))\n  Catastro-&gt;(OrdSetFocus(\"propietario\"))\n  Catastro-&gt;(OrdSetFocus(\"direccion\"))\n\n  dbSelectArea(3)\n  Tempava-&gt;(OrdSetFocus(\"vigiva\"))\n\n  dbSelectArea(4)\n  Avaluo1-&gt;(OrdSetFocus(\"codava\"))\n\nDEFINE DIALOG oDlg13 RESOURCE AVALUO of oWnd\noBrw := TXBrowse():New( oDlg13 )\n\nCatastro-&gt;(OrdSetFocus(\"codigo\"))\ndbSelectArea(2)\n\noBrw:nMarqueeStyle       := MARQSTYLE_HIGHLROW\noBrw:nColDividerStyle    := LINESTYLE_BLACK\noBrw:nRowDividerStyle    := LINESTYLE_BLACK\noBrw:lColDividerComplete := .t.\noBrw:SetRDD()\n\noBrw:bClrStd := {|| {CLR_BLACK, iif( Field-&gt;color1, CLR_WHITE, CLR_HCYAN ) } }\noBrw:CreateFromResource( 101 ) \n\noCol := oBrw:AddCol()\noCol:bStrData := { || _FIELD-&gt;CODIP01}\noCol:cHeader  := \"Código Catastral\"\noCol:nHeadStrAlign := AL_CENTER \noCol:nDataStrAlign := AL_LEFT \noCol:nWidth        := 130 \n\noCol := oBrw:AddCol()\noCol:bStrData := { || _FIELD-&gt;NOMIP01}\noCol:cHeader  := \"Propietario\"\noCol:nHeadStrAlign := AL_CENTER \noCol:nDataStrAlign := AL_LEFT \noCol:nWidth        := 250 \n\noCol := oBrw:AddCol()\noCol:bStrData := { || _FIELD-&gt;DIRIP01}\noCol:cHeader  := \"Dirección\"\noCol:nHeadStrAlign := AL_CENTER\noCol:nDataStrAlign := AL_LEFT \noCol:nWidth        := 200 \n\noBrw:DelCol(10) \noBrw:DelCol(9) \noBrw:DelCol(8)\noBrw:DelCol(7)\noBrw:DelCol(6)\noBrw:DelCol(5)\noBrw:DelCol(4)\noBrw:DelCol(3)\noBrw:DelCol(2)\noBrw:DelCol(1)\n\ndbSelectArea(2)\n\noDlg13:oClient := oBrw\noBrw:Refresh()  // Repintamos el ListBox\n\nREDEFINE RADIO a_RADIO VAR nOrden OF oDlg13 ON CHANGE Orden(nOrden,oBrw) ;\nID 102, 103, 104 UPDATE\n\n\nACTIVATE DIALOG oDlg13 CENTER ON INIT BARRAVA()\n\nreturn nil\n\n//----------------------------------------------------------//\nFUNCTION BARRAVA\n//----------------------------------------------------------//\n\n            \nlocal oImageList,oBar,oToolBar\n\nDEFINE IMAGELIST oImageList SIZE 32, 32\nDEFINE IMGBITMAP OF oImageList NAME \"nuevo\"      COLOR nRGB( 255, 0, 255 )\nDEFINE IMGBITMAP OF oImageList NAME \"editar\"      COLOR nRGB( 255, 0, 255 )\nDEFINE IMGBITMAP OF oImageList NAME \"eliminar\"      COLOR nRGB( 255, 0, 255 )\nDEFINE IMGBITMAP OF oImageList NAME \"buscar3\"     COLOR nRGB( 255, 0, 255 )\n\nDEFINE TOOLBAR oToolBar OF oDlg13 SIZE 45, 45 ;\nIMAGELIST oImageList BALLOON // tooltips balloon style\n\noToolBar:SetTextRows( 2 )\n\nDEFINE TBBUTTON OF oToolBar ; \nACTION Nueava(oBrw,.F.) ;\nTOOLTIP \"Nuevo\" ;\nPROMPT  \"&amp;Nuevo\"\n\nDEFINE TBBUTTON OF oToolBar ; \nACTION Nuevo(oBrw2,.F.) ;\nTOOLTIP \"Editar\" ;\nPROMPT  \"&amp;Editar\"\n\nDEFINE TBBUTTON OF oToolBar ; \nACTION DelClient(oBrw2, .F. ) ;\nTOOLTIP \"Borrar\" ;\nPROMPT  \"&amp;Borrar\"\n\nDEFINE TBSEPARATOR OF oToolBar\n                                   \nDEFINE TBBUTTON OF oToolBar ;\nACTION BUSPLAN( oBrw, norden ) ;\nTOOLTIP \"Buscar\" ;\nPROMPT  \"&amp;Buscar\"\n    \nRETURN NIL\n\n//----------------------------------------------------------//\nSTATIC FUNCTION Nueava( oBrw, lNuevo )\n//----------------------------------------------------------//\n#define PANTAVA	6\n\nlocal oCol2,oCol1\nlocal oCodigo,oPropie,oCbxiden,oNuiden,oDire,ohecta,omts,oConst,oVigen,oAva,oResolu\nlocal oBoton1,oBoton2,oBoton3\nLOCAL lSalir1  := .F.\nlocal txbro :=.f.\nlocal vPropie:=space(33)\nlocal videntif:=space(1)\nlocal vNuiden:=0\nlocal vDire:=space(34)\nlocal vhecta:=0\nlocal vmts:=0\nlocal vConst:=0\nlocal vVigen:=space(4)\nlocal vAva:=0\nlocal vResolu:=space(10)\nLOCAL mcbxident:={\"C\",\"N\",\"X\"}\nLOCAL lSalir  := .F.\nLOCAL lSalvar := .F. \nLOCAL nRecNo2  \n\nDEFAULT lNuevo := .F.\n\n  IF lNuevo\n     GOTO BOTTOM\n     SKIP\n  ENDIF\n  vCodigo:= catastro-&gt;codip01\n  vPropie:= catastro-&gt;nomip01\n  videntif:=catastro-&gt;tipip01  \n  vNuiden:=catastro-&gt;ideip01\n  vDire:= catastro-&gt;dirip01\n  vhecta:=catastro-&gt;supip01 \n  vmts:=catastro-&gt;areip01\n  vConst:=catastro-&gt;Conip01 \n\nDEFINE DIALOG oDlg1 RESOURCE PANTAVA of oDlg13\n\nREDEFINE get oCodigo var vCodigo PICTURE \"##################\" ID 101 OF oDlg1 WHEN lNuevo \nREDEFINE say oPropie var vPropie PICTURE \"@!\" ID 102 OF oDlg1\nREDEFINE say oPropie var videntif PICTURE \"@!\" ID 103 OF oDlg1\nREDEFINE say oNuiden var vNuiden PICTURE \"99999999999-9\"  ID 109 OF oDlg1\nREDEFINE say oDire var vDire PICTURE \"@#\" ID 105 OF oDlg1\nREDEFINE say ohecta var vhecta PICTURE \"9,999,999\" ID 106 OF oDlg1  \nREDEFINE say omts var vmts PICTURE \"9,999\" ID 107 OF oDlg1  \nREDEFINE say oConst var vConst PICTURE \"999,999\" ID 108 OF oDlg1\n\nREDEFINE BTNBMP RESOURCE \"nuevo\"   ID 111 TOOLTIP \"NUEVO\" OF oDlg1 ;\nACTION INGRE ( vCodigo )\n\nREDEFINE BTNBMP RESOURCE \"editar\"  ID 112 TOOLTIP \"EDITAR\" OF oDlg1 NOBORDER\n\nREDEFINE BTNBMP RESOURCE \"eliminar\"  ID 113 TOOLTIP \"ELIMINAR\" OF oDlg1 NOBORDER\n\nREDEFINE BUTTONBMP oBoton3 ID 115 OF oDlg1 ;\n      ACTION  ( lSalir1 := .T. , oDlg1:End() )  \n\ndbSelectArea(3)\ntempava-&gt;(OrdSetFocus(\"vigiva\"))\n\noBrw3 := TXBrowse():New( oDlg1 )\noBrw3:nMarqueeStyle       := MARQSTYLE_HIGHLROW\noBrw3:nColDividerStyle    := LINESTYLE_BLACK\noBrw3:lColDividerComplete := .t.\n\n\noBrw3:SetRDD()\noBrw3:CreateFromResource( 104 ) \n\noCol1 := oBrw3:AddCol()\noCol1:bStrData := { || _FIELD-&gt;CODIP02}\noCol1:cHeader  := \"Código Catastral\"\noCol1:nHeadStrAlign := AL_CENTER \noCol1:nDataStrAlign := AL_LEFT \noCol1:nWidth        := 130 \n\noCol1 := oBrw3:AddCol()\noCol1:bStrData := { || _FIELD-&gt;VIGIP02}\noCol1:cHeader  := \"Vigencia\"\noCol1:nHeadStrAlign := AL_CENTER \noCol1:nDataStrAlign := AL_CENTER \noCol1:nWidth        := 100 \n\noCol1:= oBrw3:AddCol()\noCol1:bStrData := { || transform(_FIELD-&gt;AVAIP02,\"999,999,999\")}\noCol1:cHeader  := \"Avaluo Catastral\"\noCol1:nHeadStrAlign := AL_CENTER\noCol1:nDataStrAlign := AL_RIGHT \noCol1:nWidth        := 100 \n\noDlg1:oClient := oBrw3\noBrw3:Refresh()  // Repintamos el ListBox\n\noBrw3:DelCol(3)\noBrw3:DelCol(2)\noBrw3:DelCol(1)\n\n\n\nACTIVATE DIALOG oDlg1 CENTER\n\nIF lSalir1\n    Return Nil\nendif\n\nRETURN( NIL )\n\n[url=http&#58;//img218&#46;imageshack&#46;us/my&#46;php?image=errorgk0&#46;jpg:2vbg618x][img:2vbg618x]http&#58;//img218&#46;imageshack&#46;us/img218/2667/errorgk0&#46;th&#46;jpg[/img:2vbg618x][/url:2vbg618x]','',0,'GA==','2vbg618x',1,0,'',975,0,0),(47541,9839,3,51,0,'80.122.88.242',1201970845,1,0,1,1,1,0,'','','Maybe someone can help\n\n-  Does \"IsRTF()\" work? I saw the function in fget class.\n-  What does TRichEdit need as a container?\nRegards,\nOtto\n\n \nmethod paintdata\n   ...\n\n  if  IsRTF( cdata )         \n                  \n???      define a window without frame from {nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) }\n      cRtf:= cdata\n      oRTF := TRichEdit():New( nRow, 0, { | u | If( PCount()==0, cRTF, cRTF:= u ) },oWndTest   ,,,, .F.,, .F., .F.,,,, .F., .F., \"TestRTF.RTF\",, .F., .F., )\n      ACTIVATE WINDOW oWndRTF\n\n\n\n\n  else\n      oFont:Activate( hDC )\n      SetTextColor( hDC, aColors[ 1 ] )\n      SetBkColor( hDC, aColors[ 2 ] )\n      DrawTextEx( hDC, cData,;\n                  {nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) },;\n                  ::nDataStyle )\n      oFont:Deactivate( hDC )\n    ENDIF\n\n  endif','',0,'','2d2he1n6',1,0,'',51,0,0),(47542,9833,2,890,0,'190.9.66.224',1201977228,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:50eun0j3]Jairo,\n\nNo lo sé. \n\nTendrás que buscar información respecto a los mp3 y Windows MCI en google[/quote:50eun0j3]\n\nAntonio\n\nAntonio no hay problema, pasa que cuando se esta aprendiendo algo se quisiera aplicar en varias áreas, pero el interés real es haberlo desarrollado en FiveWin.\n\nQuedo agradecido altamente,  hasta la próxima inquietud\n\nCordialmente\n\nJairo Barbosa','',0,'gA==','50eun0j3',1,0,'',890,0,0),(47543,9840,6,2,0,'87.218.146.222',1201983756,1,0,1,1,1,1,'','','John,\n\nJusto despues de esta línea:\n\noCol:bStrData := { || _FIELD-&gt;CODIP01}\n\nLLama a:\n\nMsgInfo( _FIELD-&gt;CODIP01 )\n\na ver que valor muestra','',0,'gA==','1uvq24ub',1,0,'',2,0,0),(47544,9841,3,1257,0,'195.93.60.34',1201984673,1,0,1,1,1,1,'','All Var-Def\'s switching Outl2003Child&lt;&gt;Office2007Bar','Hello from Germany,\n\nDuring my work on the new DB-Tool,\ni needed var-informations in the Office2007-Bar\nfrom a Outlook-Child after changes.\nHere are all Values you need :\n\nRECEIVE Values from a Outlook2003-Child\nin a Office2007-ButtonBar\n---------------------------------------------------------\nGET	       =  oGet:Value(), oGet:Refresh()\nSAY	       =  oSay:Varget(), oSay:Refresh() \nRADIO	       =  oRadio:nOption, oRadio:Refresh()\nCHECKBOX      =  oCheck:Varget(), oCheck::Refresh()\n\nSEND new Values from Office2007-ButtonBar\nto a Outlook2003-Child\n-----------------------------------------------------\nRADIO	 =  aScope:nOption(2), aScope:Refresh()\nfor .T.\nCHECK      =  oCheck:Check(), oCheck:Refresh()\nfor .F.\nCHECK      =  oCheck:UnCheck(), oCheck:Refresh()\nGET          =  oGet:VarPut(\"NewValue\"), oGet:Refresh()\nSAY          =  oSay:VarPut(\"NewValue\"), oSay:Refresh() \n\nUwe','',0,'gA==','57qzjjk7',1,1202041474,'',1257,1,0),(47545,9841,3,303,0,'72.220.181.80',1201986028,1,0,1,1,1,0,'','','oGet:value() just calls oGet:VarGet() so you can use either one.\n\nMETHOD Value() INLINE ::VarGet()\n\nVarGet() may be easier to remember since SAYs, GETs, Comoboxes, and RadioMenus all have a VarGet() method. This is polymorphism (same names in different objects) which is a very important feature of OOP. This allows you to do thing like:\n\nuValue:= oDlg:aControls[i]:varGet()\n\nWhere aControls is an array of control objects.\n\nRegards,\nJames','',0,'','84vwcru8',1,0,'',303,0,0),(47546,9842,6,108,0,'190.48.156.7',1201990116,1,0,1,1,1,0,'','Dbcombo y Itemlist','Hola Foro: Tengo el siguiente problema:\nEn el siguiente Dbcombo y a ejecutar la funcion descuento, me devuelve la posicion relativa del registro y no el valor del campo Codigo del cual tengo que obtener el porcentaje que debo aplicar....\n\n REDEFINE DBCOMBO oCbx1 VAR nTipopago  Update id 179 of oDlg;\n   on Change (Descuento(@nDescuento, nTipopago),o178:Refresh  (),o178:Setfocus());\n      Alias \"Tipopago\";\n      Itemfield \"Codigo\" ;\n      Listfield \"Descrip\"\n//----------------------------------\nSTATIC FUNCTION Descuento(nDescuento, nTipopago)\n\n? \"nTipopago\", nTipopago // aca me devuelve el recno, que lo interpreta como \"Codigo\"...\n\nIf TipoPago -&gt;(Dbseek(Str(nTipopago,2)))\n   nDescuento:= Tipopago-&gt;Porcen\n      else\n   MsgAlert(\" No Se Encontro, Tipo de Pago \" )\nEndif\n\nRETURN Nil\n\no sea me posiciono en \"AMEX\" del Archivo \"Tipopago\", que tiene el codigo 16 y tiene un porcentaje de 5, y me devuelve en nTipopago la posicion (por ejemplo) 8 que es el recno del registro en el archivo y es otro tipo de pago .....\n\nEl archivo es Codigo Numerico de 2 y descrip caracter de 30..\n\nEstoy usando:\nTodo lo incluido en el FHW 712\nHarbour for BCC - build 01/December/2007\nY los dialogos con WorkShop \n\nDesde ya Muchas Gracias ...','',0,'','11ogth1j',1,0,'',108,0,0),(47547,9843,6,73,0,'201.127.72.173',1201992368,1,0,1,1,1,0,'','Para Antonio Linares, salida abrupta ...','Hola Antonio\nTengo un Punto de Venta recien instalado en unos equipos con XP y VISTA y los esta sacando bien seguido sin un patron de comportamiento igual hasta el momento, en el dialgo de la Venta, de pronto el sistema sin avisar en XP los saca y no genera error.log y en VISTA se bloquea y si genera error.log, lei en dias pasados un topico al problema que un colega tuvo con la clase DSAY \"http://fivetechsoft.com/forums/viewtopic.php?t=9795\"\nyo uso FWH y Harbour, y las clases externas:\nBTNGET, SSAY, TGRAPH, TSBUTTON, C5MENU, TWBROWSE Y VBOX, lo que resulta de todo es que en el topico del DSAY ahi le mencionas que corrija una linea de INVALIDATERECT y que con eso se solucionó, yo estuve revisando las clases y en el dialogo de la venta uso las clases externas BTNGET,TSBUTTON y VBOX, pero la SSAY por ahi usa el INVALIDATERECT en el metodo Default, pudiera estar por ahi el problema o sera otra cosa?, de todas las clases externas que uso unicamente en la SSAY encontre el InvalidateRect, te pongo un pedazo del error.log generado y parte de mi codigo. Acabo de quitar en el dialogo de venta el uso de SSAY, pero sigo enlazando la libreria al sistema, mientras voy a probar por ahi en lo que me pudieras ayudar.\n\nERROR.LOG\nApplication\n===========\n   Path and name: E:\\Pventa\\Caja5.exe (32 bits)\n   Size: 2,547,712 bytes\n   Time from start: 0 hours 0 mins 18 secs \n   Error occurred at: 20/01/2008, 23:32:47\n   Error description: Error BASE/1066  Argument error: conditional\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TWINDOW:LVALID(0)\n   Called from:  =&gt; TCONTROL:FWLOSTFOCUS(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: C:ProyectosHarbourxPV2uenteswindow.prg =&gt; _FWH(3165)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: C:ProyectosHarbourxPV2uentespv01.prg =&gt; PASSWORD(645)\n   Called from: C:ProyectosHarbourxPV2uentespv01.prg =&gt; (b)MAIN(229)\n   Called from:  =&gt; TWINDOW:ACTIVATE(876)\n   Called from: C:ProyectosHarbourxPV2uentespv01.prg =&gt; MAIN(229)\n\nMI CODIGO:\n#define _DDE_CH\n#define _VIDEO_CH\n#define _TREE_CH\n#define _ODBC_CH\n\n#INCLUDE \"FiveWin.ch\"\n#INCLUDE \"Btnget.ch\"\n#INCLUDE \"TsButton.ch\"\n#INCLUDE \"Vbox.ch\"\n#INCLUDE \"DtPicker.ch\"\n#INCLUDE \"Splitter.ch\"\n#INCLUDE \"dbcombo.ch\"\n\nMEMVAR oWnd, oVarSys, oVarUsu\n\nFUNCTION PV2100(oItem,nBtn,oToolBar)\n\n     ..............\n      DEFINE DIALOG oDlg NAME \"PV2100\" COLOR nRGB(0,64,128),nRGB(0,64,128)\n     .............\n\n      oDlg:bKeyDown := {|nK| if( ( nK == Asc( \"A\" ) .OR. nK == Asc( \"a\" ) ) .AND. GetKeyState( VK_CONTROL ), ;\n                                   ( IF(lAuto[VAL(nCaja)],lAuto[VAL(nCaja)]:=.F.,lAuto[VAL(nCaja)]:=.T.),;\n                  oMsgItem[4]:SetText(\"Venta Aut.: \"+IF(lAuto[VAL(nCaja)],\"S\",\"N\")),;\n                  oMsgItem[4]:Refresh(), SndPlaySound(\"Click.Wav\")), ), ;\n                             if( ( nK == Asc( \"T\" ) .OR. nK == Asc( \"t\" ) ) .AND. GetKeyState( VK_CONTROL ), ;\n                                   ( IF(lImpre[VAL(nCaja)],lImpre[VAL(nCaja)]:=.F.,lImpre[VAL(nCaja)]:=.T.),;\n                  oMsgItem[8]:SetText(\"Imp.Ticket: \"+IF(lImpre[VAL(nCaja)],\"S\",\"N\")),;\n                  oMsgItem[8]:Refresh(), SndPlaySound(\"Click.Wav\")), ) }\n*------\n\n     ACTIVATE DIALOG oDlg CENTERED ;\n         ON INIT ( Inicia(), Msg_Barra(oDlg,oMsg,oMsgItem,oFnt), ;\n                   SetWindowPos( oDlg:hWnd, -1,0,0,0,0,3 ) ) ;\n         VALID ( IF(lSalir .OR. lCorteCaja,.T.,(lSalir:=Checa(@oBTmp))),IF(lSalir .OR. lCorteCaja,.T.,lSalir) )\n\nGracias.\nPaco','',0,'','2zwlry66',1,0,'',73,0,0),(47548,9713,3,148,0,'196.205.109.167',1201993431,1,0,1,1,1,0,'','','This is little out of discusion . How I search for the complete string : make file .\nI tried search : \"make\" AND \"file\" but I got \"make\" as a standalone search and \"file\"  as a standalone search .','',0,'','21fbzjdb',1,0,'',148,0,0),(47549,9713,3,6,0,'82.57.162.60',1201995032,1,0,1,1,1,1,'','','[quote=&quot;Ehab Samir Aziz&quot;:1f7d4wo2]This is little out of discusion . How I search for the complete string : make file .\nI tried search : \"make\" AND \"file\" but I got \"make\" as a standalone search and \"file\"  as a standalone search .[/quote:1f7d4wo2]\n\nSpecify \"make file\" and select \"Search for all terms\".\n\nEMG','',0,'gA==','1f7d4wo2',1,0,'',6,0,0),(47550,9840,6,53,0,'189.139.14.64',1201999802,1,0,1,1,1,1,'','','Jairo:\n\nCreo que hace falta ver en que areas estan abiertas la DBF, según tu código la última DBF abierta es CATASTRO y al parece el campo CODIP01 no existe en la DBF CATASTRO\n\n\n\n[code:3a1gdrnp]dbSelectArea&#40;2&#41; \n\noBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW \noBrw&#58;nColDividerStyle &#58;= LINESTYLE_BLACK \noBrw&#58;nRowDividerStyle &#58;= LINESTYLE_BLACK \noBrw&#58;lColDividerComplete &#58;= &#46;t&#46; \noBrw&#58;SetRDD&#40;&#41; \n\noBrw&#58;bClrStd &#58;= &#123;|| &#123;CLR_BLACK, iif&#40; Field-&gt;color1, CLR_WHITE, CLR_HCYAN &#41; &#125; &#125; \noBrw&#58;CreateFromResource&#40; 101 &#41; \n\noCol &#58;= oBrw&#58;AddCol&#40;&#41; \noCol&#58;bStrData &#58;= &#123; || _FIELD-&gt;CODIP01&#125; \n[/code:3a1gdrnp]\n\nSaludos','',0,'AIA=','3a1gdrnp',1,0,'',53,0,0),(47551,9743,6,1255,0,'148.221.7.231',1202000532,1,0,1,1,1,0,'','','[quote:1d24fadl]Delivery Status Notification (Failure)&#8207; \nDe: <!-- e --><a href=\"mailto:postmaster@mail.hotmail.com\">postmaster@mail.hotmail.com</a><!-- e --> \nEnviado: jueves, 31 de enero de 2008 07:46:16 p.m. \n\nAnálisis de seguridad al descargar   \n SBROWSEX.LIB (257.1 KB), TSBROWSE.zip (85.0 KB), details00...txt (0.2 KB), \nThis is an automatically generated Delivery Status Notification. Delivery to the following recipients failed. <!-- e --><a href=\"mailto:mantonio_08@hotmail.com\">mantonio_08@hotmail.com</a><!-- e -->\n[/quote:1d24fadl]Hola Antonio, al parecer no pasó el correo que te mandé, ahora lo reenvío con los 2 archivos zipeados a ver si fue por eso, de cualquier forma, el lunes le voy a enviar los archivos a José para que los ponga en su página, solo estoy terminando un cambio importante.\n\nSaludos.\n\nManuel Mercado','',0,'gA==','1d24fadl',1,0,'',1255,0,0),(47552,9844,11,281,0,'211.202.131.71',1202010175,1,0,1,1,1,1,'','linux gcc compiler error help me.','Hi Antonio.\n\nThis code is test.\nThe compiler the error petty to catch\nCan you make a build.sh file ?\n\nlib, include file send to email.\n\nCan you library additional method and Build.sh which it will make the possibility of decreasing it is?\n\nThank you.\n\n[code:32vvmsgw]\n#include &quot;FiveLinux&#46;ch&quot;\n\nFUNC Main&#40;&#41;\n\nloca oWnd, oBrw\n\nDEFINE WINDOW oWnd TITLE &quot;Testing Browses&quot; SIZE 522, 317\n\n   @ 28,  2 BUTTON &quot;_Ok&quot; OF oWnd ACTION msginfo&#40;TTIME&#40;&#41;&#41;\n   @ 28, 10 BUTTON &quot;_Exit&quot; OF oWnd ACTION oWnd&#58;End&#40;&#41;\n   @ 28, 28 BUTTON &quot;_Test&quot; OF oWnd ACTION OPEN_PORT1&#40;oWnd&#58;hWnd, &quot;testtetetete&quot;&#41;\n   @ 28, 46 BUTTON &quot;_Port&quot; OF oWnd ACTION TEST&#40;&#41;\nACTIVATE WINDOW oWnd\n\nRETU NIL\n\n/*----------------------------------------*/\n#pragma BEGINDUMP\n\n#include &lt;hbapi&#46;h&gt;\n//#include &lt;hbdefs&#46;h&gt;\n#include &lt;gtk/gtk&#46;h&gt;\n\n#define _LARGEFILE64_SOURCE 1\n\n#include &lt;stdlib&#46;h&gt;\n#include &lt;stdio&#46;h&gt;\n#include &lt;unistd&#46;h&gt;\n\n#include &lt;sys/types&#46;h&gt;\n#include &lt;sys/stat&#46;h&gt;\n#include &lt;fcntl&#46;h&gt;\n#include &lt;errno&#46;h&gt;\n#include &lt;signal&#46;h&gt;\n#include &lt;termios&#46;h&gt;\n\n#define _DEFINE_FMP_TYPES_\n#include &lt;fmp&#46;h&gt;\n\n#define PLAYING 1\n#define PAUSED 0\n\n#define FMPE_OK                           0x00000000    /* No error */\n#define FMPF_DVD			6 /* DVD demux */\n#define NO_DRIVE			0xFF	/* No DVD-ROM drive */\n\nint peek = -1;\nstruct termios orig, new;\n\nHB_FUNC&#40; TTIME &#41;\n&#123;\n\n     struct tm *tm_ptr;\n     int i;\n     char sm&#91;50&#93;;\n     \n     time_t the_time;\n\n     &#40;void&#41; time&#40;&amp;the_time&#41;;\n      tm_ptr = gmtime&#40;&amp;the_time&#41;;\n      sprintf&#40;sm, &quot;%02d&#58;%02d&#58;%02d&quot;, tm_ptr-&gt;tm_hour, tm_ptr-&gt;tm_min, tm_ptr-&gt;tm_sec&#41;;\n\n   hb_retc&#40;sm&#41;;\n&#125;\n\nHB_FUNC&#40; TEST &#41;\n&#123;\n   \n   int fd;\n   int streamtype;\n   int bytesread=1,rc=FMPE_OK;\n   int buf, playfile_state;\n   int b_stopit = 0, b_getoutofit = 0;\n\n   streamtype=FMPF_DVD;  \n\n   MPEGDriverEntry&#40;NO_DRIVE&#41;;\n   FMPOpen&#40;streamtype,32*1024,10, NULL, 0&#41;;\n   FMPPlay&#40;&#41;;\n\n   hb_retc&#40;&quot;OK&quot;&#41;;\n&#125;\n\nHB_FUNC&#40; OPEN_PORT1 &#41;\n   \n&#123;\n   GtkWidget * hWnd, * hWndParent = NULL;\n   \n   hWnd = hb_parnl&#40;1&#41;;\n\n   CheckGtkInit&#40;&#41;;\n\n   if&#40; gtk_window_list_toplevels&#40;&#41; &#41;\n      hWndParent = gtk_window_list_toplevels&#40;&#41;-&gt;data;\n\n   hWnd = gtk_message_dialog_new&#40; GTK_WINDOW&#40; hWndParent &#41;,\n                                                     GTK_DIALOG_MODAL,\n                                                     GTK_MESSAGE_INFO, GTK_BUTTONS_OK, hb_parc&#40;2&#41; &#41;;\n\n   gtk_window_set_transient_for&#40; GTK_WINDOW&#40; hWnd &#41;, GTK_WINDOW&#40; hWndParent &#41; &#41;;\n\n   gtk_window_set_policy&#40; GTK_WINDOW&#40; hWnd &#41;, FALSE, FALSE, FALSE &#41;;\n   gtk_window_set_position&#40; GTK_WINDOW&#40; hWnd &#41;, GTK_WIN_POS_CENTER &#41;;\n\n   gtk_dialog_run&#40; GTK_DIALOG&#40; hWnd &#41; &#41;;\n   gtk_widget_destroy&#40; hWnd &#41;;\n\n&#125;\n\n#pragma ENDDUMP\n\n[/code:32vvmsgw]\n\nthis code is RMPLAYFILE -&gt;Makefile\n\n[code:32vvmsgw]\n\nCFLAGS+=-D_BARBADOS_=1 -Wall -D_REENTRANT\n\nINCLUDEDIR+=-I&#46;&#46;/include\nLIBDIR+=-L&#46;&#46;/lib\n\nifeq &#40;$&#40;COMPILKIND&#41;,release&#41;\nCDEBUG=-O2\nLDEBUG=-O2\nelse\nCDEBUG=-g \nLDEBUG=-g\nendif\n\nCFLAGS+=$&#40;CDEBUG&#41; $&#40;INCLUDEDIR&#41;\nLDFLAGS+=$&#40;LDEBUG&#41; $&#40;LIBDIR&#41; -lpthread\n\nprogs = playfile&#46;o\n\nplayfile&#58; $&#40;progs&#41; &#46;&#46;/lib/libEM84xx&#46;so\n	$&#40;CC&#41; $&#40;LDFLAGS&#41; -lEM84xx $&#40;progs&#41; -o $@\nifeq &#40;$&#40;COMPILKIND&#41;,release&#41;\n	strip $@\nendif\n\nclean&#58;\n	$&#40;RM&#41; $&#40;progs&#41; *~ playfile\n\n[/code:32vvmsgw]\n\nthis code is RMPLAYFILE -&gt;playfile.c code\n\n[code:32vvmsgw]\n\n#define _LARGEFILE64_SOURCE 1\n\n#include &lt;stdlib&#46;h&gt;\n#include &lt;stdio&#46;h&gt;\n#include &lt;unistd&#46;h&gt;\n#include &lt;sys/types&#46;h&gt;\n#include &lt;sys/stat&#46;h&gt;\n#include &lt;fcntl&#46;h&gt;\n#include &lt;errno&#46;h&gt;\n#include &lt;signal&#46;h&gt;\n#include &lt;termios&#46;h&gt;\n\n#define _DEFINE_FMP_TYPES_\n#include &quot;fmp&#46;h&quot;\n\n#define PLAYING 1\n#define PAUSED 0\n\nint peek = -1;\nstruct termios orig, new;\n\nvoid open_port&#40;&#41;\n&#123;\n    if &#40;tcgetattr&#40;0,&amp;orig&#41;==-1&#41; \n    &#123;\n        printf&#40;&quot;Could not tcgetattr&quot;&#41;;\n        exit&#40;1&#41;;\n    &#125;\n\n    new = orig;\n	\n    /* settings for raw mode */\n    new&#46;c_lflag     &amp;= ~ICANON;\n    new&#46;c_lflag     &amp;= ~ECHO;\n    new&#46;c_lflag     &amp;= ~ISIG;\n    new&#46;c_cc&#91;VMIN&#93;  =  1;\n    new&#46;c_cc&#91;VTIME&#93; =  0;\n	\n    if &#40;tcsetattr&#40;0,TCSANOW,&amp;new&#41;==-1&#41; \n    &#123;\n        printf&#40;&quot;Could not tcsetattr&quot;&#41;;\n        exit&#40;1&#41;;\n    &#125;	\n&#125;\n\nvoid close_port&#40;&#41;\n&#123;\n    tcsetattr&#40;0, TCSANOW, &amp;orig&#41;;\n&#125;\nint kbhit&#40;&#41;\n&#123;\n    char ch;\n    int  nread;\n\n    if&#40;peek != -1&#41; return 1;\n\n    new&#46;c_cc&#91;VMIN&#93; = 0;\n    tcsetattr&#40;0, TCSANOW, &amp;new&#41;;\n    nread = read&#40;0, &amp;ch, 1&#41;;\n    new&#46;c_cc&#91;VMIN&#93; = 1;\n    tcsetattr&#40;0, TCSANOW, &amp;new&#41;;\n\n    if&#40;nread == 1&#41;\n    &#123;\n        peek = ch;\n        return 1;\n    &#125;\n\n    return 0;\n&#125;\n\nint readch&#40;&#41;\n&#123;\n    char ch;\n\n    if&#40;peek != -1&#41;\n    &#123;\n        ch   = peek;\n        peek = -1;\n        return ch;\n    &#125;\n\n    read&#40;0, &amp;ch, 1&#41;;\n    return ch;\n&#125;\n\nDWORD setOutputMode&#40;DWORD newvgatv&#41;\n&#123;\n  DWORD vgatv;\n  vgatv = FMPGet&#40;FMPI_VIDEOOUT&#41;;\n  vgatv = vgatv  &amp; &#40;~FMPV_VIDEOOUT_MODE_MASK&#41;;\n  vgatv = vgatv | newvgatv;\n  return FMPSet&#40;FMPI_VIDEOOUT, vgatv&#41;;\n&#125;\n\nint main&#40;int argc,char **argv&#41;\n&#123;\n	int fd;\n	int streamtype;\n	int bytesread=1,rc=FMPE_OK;\n	int buf, playfile_state;\n	int b_stopit = 0, b_getoutofit = 0;\n	\n	\n\n	if &#40;argc!=3&#41; &#123;\n		fprintf&#40;stderr,\n			&quot;Syntax is playfile &lt;streamtype&gt; &lt;filename&gt;\\n&quot;\n			&quot;&lt;streamtype -&gt; t &#40;transport&#41; d &#40;dvd&#41;   s &#40;system&#41;\\n&quot;\n			&quot;               p &#40;program&#41;   v &#40;video&#41; m &#40;mpeg audio&#41; a &#40;mpeg2 ac3&#41;&gt;\\n&quot;\n			&quot;Example&#58; &#46;/playfile s /samplempeg/movie&#46;mpg\\n&quot;\n			&quot;During the file playing use your keyboard&#58;\\n&quot;\n			&quot; \'r\' to rewind from the beginning,\\n&quot;\n			&quot; \'q\' to stop, close and exit propely&#46;\\n&quot;\n			&#41;;\n		exit&#40;1&#41;;\n	&#125;\n\n	switch &#40;argv&#91;1&#93;&#91;0&#93;&#41; &#123;\n	case \'t\'&#58;\n		streamtype=FMPF_TRANSPORT;\n		break;\n	case \'d\'&#58;\n		streamtype=FMPF_DVD;\n		break;\n	case \'s\'&#58;\n		streamtype=FMPF_SYSTEM;\n		break;\n	case \'p\'&#58;\n	        streamtype=FMPF_PROGRAM;\n		break;\n	case \'v\'&#58;\n	        streamtype=FMPF_VIDEO;\n		break;\n	case \'m\'&#58;\n	        streamtype=FMPF_MPEG_AUDIO;\n		break;\n	case \'a\'&#58;\n	       streamtype=FMPF_AC3;\n	       break;\n\n	default&#58;\n	       fprintf&#40;stderr,\n		       &quot;Syntax is playfile &lt;streamtype&gt; &lt;filename&gt;\\n&quot;\n		       &quot;&lt;streamtype -&gt; t &#40;transport&#41; d &#40;dvd&#41;   s &#40;system&#41;\\n&quot;\n		       &quot;               p &#40;program&#41;   v &#40;video&#41; m &#40;mpeg audio&#41; a &#40;mpeg2 ac3&#41;&gt;\\n&quot;\n		       &quot;Example&#58; &#46;/playfile s /samplempeg/movie&#46;mpg\\n&quot;\n		       &quot;During the file playing use your keyboard&#58;\\n&quot;\n		       &quot; \'r\' to rewind from the beginning,\\n&quot;\n		       &quot; \'q\' to stop, close and exit propely&#46;\\n&quot;\n		       &#41;;\n	       exit&#40;1&#41;;\n	&#125;\n\n	MPEGDriverEntry&#40;NO_DRIVE&#41;;\n	FMPOpen&#40;streamtype,32*1024,10, NULL, 0&#41;;\n	FMPPlay&#40;&#41;;\n\n        fd=open&#40;argv&#91;2&#93;,O_RDONLY|O_LARGEFILE&#41;;\n	if &#40;fd==-1&#41; &#123;\n		perror&#40;&quot;open failed&quot;&#41;; \n		exit&#40;1&#41;; \n	&#125;\n\n	open_port&#40;&#41;;\n	\n	playfile_state = PLAYING;\n	\n	while &#40;rc==FMPE_OK &amp;&amp; !b_getoutofit&#41; &#123;\n		while &#40;bytesread &amp;&amp; !b_stopit&#41; &#123;\n			FMP_BUFFER FMPBuf;\n			static int count=0;\n			if&#40;kbhit&#40;&#41;&#41;\n			  &#123;\n			    buf = readch&#40;&#41;;\n			    switch&#40;buf&#41;\n			      &#123;\n			      case \'r\'&#58;\n				b_stopit = 1;\n				fprintf&#40;stdout,&quot;&gt;&gt; Rewind &#46;&#46;&#46;\\n&quot;&#41;;\n				break;\n			      case \'q\'&#58;\n				b_stopit = 1;\n				b_getoutofit = 1;\n				break;\n			      default&#58;\n				break;\n			      &#125;\n			  &#125;\n			// get a pointer to a free buffer\n			rc = FMPGetBuffer &#40;&amp;FMPBuf, TRUE&#41;;\n			if &#40;rc != FMPE_OK&#41; &#123;\n				printf &#40;&quot;FMPError &#58; %s\\n&quot;, FMPGetLastError&#40;rc&#41;&#41;;\n				break;\n			&#125;	\n			\n			// signals can cause harmless EINTR\n			while &#40;&#40;&#40;bytesread=read&#40;fd,FMPBuf&#46;pBuffer,FMPBuf&#46;dwBufferSize&#41;&#41;==-1&#41;\n			       &amp;&amp;&#40;errno==EINTR&#41;&#41;;\n			if &#40;bytesread==-1&#41; bytesread=0;\n			\n			FMPBuf&#46;dwDataSize=bytesread;\n			\n			// the buffer is ready to be queued\n			FMPPush &#40;&amp;FMPBuf&#41;;\n			\n			count++;\n#define ONEEVERY 20			\n			if &#40;count%ONEEVERY==0&#41; printf&#40;&quot;PTS %ld / STC %ld\\n&quot;,\n						      FMPGet &#40;FMPI_PTS&#41;,\n						      FMPGet &#40;FMPI_STC&#41;&#41;;	\n		  &#125;\n		FMPStop&#40;&#41;;\n		FMPPlay&#40;&#41;;\n		if&#40;!b_getoutofit&#41;\n		  b_stopit = 0;\n		lseek &#40;fd,0,SEEK_SET&#41;;\n		bytesread=1;\n	&#125;\n	fprintf&#40;stdout,&quot;&gt;&gt;Exited from playing loop !\\n&quot;&#41;;\n	close_port&#40;&#41;;\n	close &#40;fd&#41;;\n	FMPStop&#40;&#41;;\n	setOutputMode&#40;FMPV_VIDEOOUT_VGA&#41;;\n	FMPClose&#40;&#41;;\n	MPEGDriverUnload&#40;&#41;;\n	fprintf&#40;stdout,&quot;&gt;&gt;Driver is closed !\\n&quot;&#41;;\n	exit&#40;0&#41;;\n&#125;\n[/code:32vvmsgw]\n\nFiveLinux User.','',0,'AIA=','32vvmsgw',1,0,'',281,0,0),(47553,9845,6,1255,0,'200.66.237.13',1202027371,1,0,1,1,1,0,'','Mi primer programa con FiveWin','Sí, esta fue mi primera aplicación realizada con FiveWin hace más de 10 años.\n\nAhora la muestro actualizada en 32 bits con mi primer [b:1ey0ygb1]Browse Transparente[/b:1ey0ygb1] (la imagen de fondo es la brush del diálogo que lo contiene).[img][url=http&#58;//www&#46;imaxenes&#46;com/imagen/browse_transparente1ig826l&#46;jpg&#46;html:1ey0ygb1][img]http://www.imaxenes.com/mini/browse_transparente1ig826l.jpg[/img][/url:1ey0ygb1]\nEn uno o dos días más lo pondré con gusto a su disposición.\n\nSaludos.\n\nManuel Mercado[/img]','',0,'WA==','1ey0ygb1',1,0,'',1255,0,0),(47554,9843,6,2,0,'87.218.146.222',1202031546,1,0,1,1,1,1,'','','Paco,\n\nEn el error.log el problema es que no estás devolviendo un valor lógico en un VALID:\n\nError description: Error BASE/1066 Argument error: conditional \nArgs: \n[ 1] = U   // posiblemente nil\n\nStack Calls \n=========== \nCalled from: =&gt; TWINDOW:LVALID(0)','',0,'','1i6z3g7s',1,0,'',2,0,0),(47555,9846,11,578,0,'218.214.68.108',1202032255,1,0,1,0,1,0,'','Ubuntu 7.10','Hi Antonio\n\nJust installed Ubuntu 7.10.  Existing code (compiled on Ubuntu 7.04) operates fine unchanged.\n\nThought I would install the necessary components to do development under 7.10 and got the following results:\n\ngcc   - already at latest version\nlibgtk2.0-dev     not found, suggested libgtk2.0-bin\nlibncurses5-dev  not found\nlibgpmg1-dev     not found\nlibgnomeprintui2.2-dev   not found\nglade-2   not found\n\nIt\'s late here so I may not be thinking straight but can you throw any light on this?\n\n(This was a brand new install on a new PC)\n\nThanks\nDoug\n(xProgrammer)','',0,'','3conj5rm',1,0,'',578,0,0),(47556,9676,22,1055,0,'84.122.57.235',1202036727,1,0,1,1,1,1,'','','En mi modesta opinión, es preferible inicializar el contenedor antes que el contenido. Dependiendo del tipo de window/dialogo los controles miden o se comportan de forma algo diferente. Por ejemplo, al final del metodo INITIATE del dialogo, no estaría mal.','',0,'','3qdctv17',1,0,'',1055,0,0),(47557,9845,6,1193,0,'203.70.93.73',1202038745,1,0,1,1,1,0,'','','Hi Mmercado,\n\nGood job. My friend. Different of FWH browse.\n\nRegards,\n\nRichard','',0,'','9na7cbzx',1,0,'',1193,0,0),(47558,9845,6,439,0,'200.125.44.9',1202044818,1,0,1,1,1,1,'','','Maestro,\n\nExcelente trabajo y muy bello!!.','',0,'','304vwwuf',1,0,'',439,0,0),(47559,9815,6,1255,0,'200.66.237.13',1202046487,1,0,1,1,1,0,'','','[quote=&quot;wmormar&quot;:50kwbyaj]Recuerdo haberlo solucionado, revisaremos a la brevedad posible[/quote:50kwbyaj]\n\nHola William:\n\nNo te preocupes, ya mucho han hecho Juan Carlos y tú con esta magnífica herramienta que tanto trabajo nos ahorra. Mientras lo revisan haremos esa partecita a pie.\n\nUn abrazo para ambos.\n\nManuel Mercado','',0,'gA==','50kwbyaj',1,0,'',1255,0,0),(47560,9847,3,1257,0,'195.93.60.34',1202048735,1,0,1,1,1,1,'','Possible to switch from Browser to Rec.-View in a Listbox?','Hello, from Germany\n\nI want to switch from Browse-Mode\nto Record-Mode to edit the selected \nRecord in a listbox.\nThe first browser is a &lt; normal &gt; browser\nThe 2. shows just 1 record with field- and type infos.\n\nPicture :\n<!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/pictures/outlook.jpg\">http://www.pflegeplus.com/pictures/outlook.jpg</a><!-- m -->\n\nIn the first Col, i want to show the fieldnames.\nIn the second Col, i want to edit the fields. \nThe Listbox needs to have a scrollbar.\n\nThat means, the MATRIX of the browser has to be different.\nIn a normal browser, you have for each var a col and\neach record a row.\nThe browser i need, has to show just 1 record.\nI need 1 col for the varnames and the second col\nfor the var-contents. In the browser, i want to skip \nto another record. \n\nIn some DB-Tools, i have seen somthing like that.\nI can put the Record-Informations in a 2 dimensional-Array.\nIt works, but i have so save the array back to the database.\nIs there maybe another way, to create it directly with database-fields ?\n\nRegards \nUwe <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'CA==','3p02w4hi',1,1202214057,'',1257,5,0),(47561,9846,11,2,0,'87.218.146.222',1202050578,1,0,1,1,1,1,'','','Doug,\n\nAre you using sudo apt-get install ... to install those packages ?','',0,'CA==','3eiebm1r',1,0,'',2,0,0),(47562,9844,11,2,0,'87.218.146.222',1202050624,1,0,1,1,1,1,'','','We are reviewing it,\n\nwe provide you an answer asap,','',0,'CA==','bbgzphcl',1,0,'',2,0,0),(47563,9783,6,596,0,'84.76.66.27',1202050946,1,0,1,1,1,1,'','','Yo utilizo [b:8s66x0sl]...+CHR(13)+...[/b:8s66x0sl] y si me funciona...\nNo uses CRLF.','',0,'QA==','8s66x0sl',1,0,'',596,0,0),(47564,9713,3,148,0,'196.205.108.47',1202051846,1,0,1,1,1,0,'','','Thanks Enrico ,\nI am sorry that is not work . When I search \"make file\" either file or make alone appeared in different color. Not the two words together beside each other.\nThanks','',0,'QA==','z5uegy3g',1,0,'',148,0,0),(47565,9713,3,6,0,'87.16.223.121',1202056443,1,0,1,1,1,1,'','','Ops! You are right. It seems you can\'t get what you are trying to search, sorry.\n\nEMG','',0,'QA==','3oqcvuaw',1,0,'',6,0,0),(47566,9837,6,935,0,'200.62.120.107',1202057131,1,0,1,1,1,1,'','A nadie se le ha presentado este error S.O.S','Hola amigos del foro, \n\nSera que a nadie se le ha presentado este error ?\n\nAgradezco cualquier orientacion al respecto\n\nSaludes desde Managua, NIcaragua\n\nRamon Paredes','',0,'QA==','133bx0af',1,0,'',935,0,0),(47567,9848,3,810,0,'91.18.60.132',1202058096,1,0,1,1,1,0,'','Ue Studio hboleaut.lib  FWH  config','in the FWH.application file is hboleaut.lib where can i find this file or is there no need to use it ??\n\ntx Uwe D','',0,'QA==','1ngjlkdc',1,0,'',810,0,0),(47568,9848,3,6,0,'87.16.223.121',1202058468,1,0,1,1,1,1,'','Re: Ue Studio hboleaut.lib  FWH  config','No, it is not needed, at least using recent [x]Harbour versions.\n\nEMG','',0,'','27slknka',1,0,'',6,0,0),(47569,9848,3,2,0,'87.218.146.222',1202058482,1,0,1,1,1,1,'','','Uwe,\n\nIt is just needed for Harbour only.\n\nNot needed for xHarbour.','',0,'','38v7trnb',1,0,'',2,0,0),(47570,9848,3,6,0,'87.16.223.121',1202058544,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1ecthsam]Uwe,\n\nIt is just needed for Harbour only.\n\nNot needed for xHarbour.[/quote:1ecthsam]\n\nIt is not needed for recent Harbour versions as well.\n\nEMG','',0,'gA==','1ecthsam',1,0,'',6,0,0),(47571,9837,6,2,0,'87.218.146.222',1202058611,1,0,1,1,1,1,'','','Ramón,\n\nParece que le estás enviando el mensaje Update() a un objeto OLE, y que dicho mensaje no está definido en el objeto.','',0,'gA==','1t60si56',1,0,'',2,0,0),(47572,9848,3,2,0,'87.218.146.222',1202058737,1,0,1,1,1,1,'','','Surely it has been included into hbwin32.lib or similar name ?\n\nFor older Harbour versions it may be required.','',0,'gA==','1pcl0mie',1,0,'',2,0,0),(47573,9848,3,6,0,'87.16.223.121',1202059575,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1v1hkzam]Surely it has been included into hbwin32.lib or similar name ?[/quote:1v1hkzam]\n\nYes, hbw32.lib.\n\n[quote=&quot;Antonio Linares&quot;:1v1hkzam]For older Harbour versions it may be required.[/quote:1v1hkzam]\n\nYes.\n\nEMG','',0,'gA==','1v1hkzam',1,0,'',6,0,0),(47574,9845,6,940,0,'189.175.190.101',1202063517,1,0,1,1,1,1,'','','Exelente tu trabajo Manuel,\n\nmaestro  Mercado .. !!!  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'gA==','1bj17obx',1,0,'',940,0,0),(47575,9843,6,73,0,'201.127.72.173',1202063837,1,0,1,1,1,0,'','','gracias antonio, revisare, para ver en cual valid es,, ups, pa detectarlo alguna idea? porque tengo muchos\nsalu2\nPaco','',0,'gA==','wu7far4o',1,0,'',73,0,0),(47576,9845,6,49,0,'62.13.172.68',1202064154,1,0,1,1,1,1,'','','Great Manuel,\nCan U say to us how make it for all browse ?\nI ask it into thiis forum last year but none helped me.\nI have also transparent problems with your tsbutton\nthanks.','',0,'gA==','1r2n1979',1,0,'',49,0,0),(47577,9679,3,169,0,'189.68.62.157',1202065027,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:3fbwxivw]Me neither, but we will discover it <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->[/quote:3fbwxivw]\nDear Antonio,\n\nHere is the source code that, maybe can help you. With it I can display 32bits bitmaps under windows XP.\n\nBest regards,\n\nToninho.\n\n---cut---\ntypedef int (_stdcall *ALPHABLEND) ( HDC, int, int, int, int, HDC, int, int, int, int, BLENDFUNCTION);\n\nstatic ALPHABLEND pAlphaBlend = NULL;\n\nvoid DrawAlphaBlend( HDC hDC, HBITMAP hBitmap, int iCol, int iRow )\n{\n   HDC     hDcMem;\n   BITMAP  bm;\n   HBITMAP hBmpOld;\n   RECT    rct;\n\n   BLENDFUNCTION bf;\n\n   pAlphaBlend = ( ALPHABLEND ) GetProcAddress( LoadLibrary( \"MSIMG32.DLL\" ), \"AlphaBlend\" );\n\n   GetObject( ( HGDIOBJ ) hBitmap, sizeof( BITMAP ), ( LPSTR ) &amp;bm );\n\n   hDcMem  = CreateCompatibleDC( hDC );\n\n   hBmpOld = ( HBITMAP ) SelectObject( hDcMem, ( HGDIOBJ ) hBitmap );\n\n   bf.BlendOp = AC_SRC_OVER;\n   bf.BlendFlags = 0;\n   bf.SourceConstantAlpha = 255;\n   bf.AlphaFormat = AC_SRC_ALPHA;\n\n   pAlphaBlend( hDC, iRow, iCol, bm.bmWidth, bm.bmHeight, hDcMem, 0, 0, bm.bmWidth, bm.bmHeight, bf );\n\n   SelectObject( hDcMem, hBmpOld );\n\n   DeleteDC( hDcMem );\n\n}\n\n\nHB_FUNC( DRAWALPHA )\n{\n   DrawAlphaBlend( ( HDC ) hb_parnl( 1 ), ( HBITMAP ) hb_parnl( 2 ), 0, 0 );\n\n   hb_retl( 1 );\n}\n\n---cut---','',0,'gA==','3fbwxivw',1,0,'',169,0,0),(47578,9843,6,2,0,'87.218.146.222',1202065270,1,0,1,1,1,1,'','','Paco,\n\nModifica el método lValid() de la clase TWindow de esta forma:\n[code:3bxt4g2k]\nMETHOD lValid&#40;&#41; CLASS TWindow\n\n   local lResult &#58;= &#46;T&#46;\n\n   if &#58;&#58;bValid != nil\n      lResult = Eval&#40; &#58;&#58;bValid &#41;\n      if ValType&#40; lResult &#41; != &quot;L&quot;\n         MsgAlert&#40; &quot;VALID no retorna valor lógico desde &quot; + ProcName&#40; 3 &#41; + &quot; Línea&#58; &quot; + Str&#40; ProcLine&#40; 3 &#41; &#41;\n      endif \n   endif    \n\nreturn lResult\n[/code:3bxt4g2k]\nNo lo he probado, quizás tengas que usar 4 ó 5 en vez de 3.','',0,'AIA=','3bxt4g2k',1,0,'',2,0,0),(47579,9679,3,2,0,'87.218.146.222',1202065416,1,0,1,1,1,1,'','','Toninho,\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','10o4z4o9',1,0,'',2,0,0),(47580,9846,11,578,0,'218.214.68.108',1202079826,1,0,1,0,1,0,'','','Hi Antonio\n\nYes I\'m using \n\nsudo apt-get install &lt;package-name&gt;\n\nto try to install them, but getting results as per previous post.\n\nI guess one possibility is that I need to add a repository, or maybe for 7.10 these packages are different versions with different names.  That might mean that the lib files have new names and that buildx.sh needs some modification.\n\nWhen you moved to version 7.10 of Ubuntu was it a fresh install or an upgrade?\n\nI might just be able to copy the lib files across from my 7.04 box (which I was intending to upgrade).  But I figure it\'s something worth figuring out as to how to acquire the correct packages for others wishing to move to Linux / FiveLinux.\n\nThe nice thing is that code compiled and linked under 7.04 runs just fine on 7.10 so there is no immediate problem or disruption here.\n\nThanks\nDoug\n(xProgrammer)','',0,'AIA=','kx4lbjiq',1,0,'',578,0,0),(47581,9679,3,49,0,'62.13.172.68',1202080251,1,0,1,1,1,1,'','','Antonio,\nI not understand ...\nwith this func how now I can show an Hires transparent ?','',0,'AIA=','2su6jgaf',1,0,'',49,0,0),(47582,9849,6,307,0,'201.170.139.7',1202091476,1,0,1,1,1,0,'','Manual Para FWH-Antonio lineares.','Saludos ,he visto que FWH ha tenido muchos cambios importantes, veo mes tras mes cambios y mejoras habra algun dia un manual robusto que incluya suficiente informacion para poder manejar/programar con FWH usando algo mas que el 30% de su potencial?.. [color=blue:30uycztj](el 30% es refirendose a lo que yo calculo que manejo.. no hablo en general )[/color:30uycztj]. aun asi tengo varios sistemas que funcionan muy bien pero siento que por falta de concimiento y tiempo no he logrado explotar el potencial de este gran lenguaje..\n\nSaludos\nArnulfo V\nARVISNET,S.C.','',0,'Ag==','30uycztj',1,0,'',307,0,0),(47583,9846,11,578,0,'218.214.68.108',1202102813,1,0,1,0,1,0,'','','Hi Antonio\n\nI believe that the issue is probably repository setup.  I tried to download k3b and that wasn\'t found either!  So I tried to download k3b via [Applications] [Add/Remove] and got a message saying it wasn\'t supported on the i386 platform (which is ridiculous).  So I have played with repositories and k3b is currently downloading.  Which might well mean that glade-2 etc will now download.  Will let you know.  But in the meantime no need to try to resolve this issue.\n\nThanks\nDoug\n(xProgrammer)','',0,'','3c3n6nez',1,0,'',578,0,0),(47584,9848,3,810,0,'91.18.74.150',1202103045,1,0,1,1,1,0,'','u have a  actuell file for xharbour for ue studio','u have a  actuell file for xharbour for ue studio\n\ntx Uwe D','',0,'','1l3rvoy2',1,0,'',810,0,0),(47585,9849,6,2,0,'87.218.146.222',1202117685,1,0,1,1,1,1,'','','Arnulfo,\n\nEn la versión 8.02 que vamos a publicar este mes, en sólo unos dias, se incluye una documentación actualizada al dia.\n\nHa sido un trabajo intenso y largo de puesta a punto de la documentación','',0,'','lpfqey53',1,0,'',2,0,0),(47586,9834,6,2,0,'87.218.146.222',1202117992,1,0,1,1,1,1,'','','Sergio,\n\nPuedes mostrar un pequeño ejemplo de PRG en donde pueda usarse Alt+C para salir de la aplicación ? gracias','',0,'','pym22dfl',1,0,'',2,0,0),(47587,9829,6,2,0,'87.218.146.222',1202118217,1,0,1,1,1,1,'','','Has comprobado que la tabla tenga registros en el servidor ?\n\nCon que herramienta lo has comprobado ? gracias','',0,'','no3vvz9m',1,0,'',2,0,0),(47588,9846,11,2,0,'87.218.146.222',1202118754,1,0,1,1,1,1,'','','Doug,\n\nYou have to activate all the sources repositories using the main Ubuntu menu: System - Administration - Software Sources','',0,'','4xfhn8cy',1,0,'',2,0,0),(47589,9828,7,2,0,'87.218.146.222',1202118838,1,0,1,1,1,1,'','','Ale,\n\nUsan Windows Mobile ?','',0,'','3m3ddun2',1,0,'',2,0,0),(47590,9847,3,2,0,'87.218.146.222',1202118976,1,0,1,1,1,1,'','','Uwe,\n\nThis will give you an idea about how to implement it:\n[code:3nm7mpx8]\nMETHOD SetEdit&#40;&#41; CLASS TWBrowse\n\n   &#58;&#58;bLogicLen = &#123; || RecCount&#40;&#41; * &#40; FCount&#40;&#41; + 1 &#41; &#125;\n   &#58;&#58;cAlias = &quot;_EDIT&quot;\n\n   &#58;&#58;Refresh&#40;&#41;\n\nreturn nil    \n[/code:3nm7mpx8]\n[code:3nm7mpx8]\n   do case\n         case &#58;&#58;cAlias == &quot;_EDIT&quot;\n	         DbGoTop&#40;&#41;\n	         DbSkip&#40; Int&#40; nRow / &#40; FCount&#40;&#41; + 1 &#41; &#41; &#41;\n		 nField = &#40; nRow + 1 &#41; % &#40; FCount&#40;&#41; + 1 &#41;\n                 return If&#40; nField == 0, If&#40; nCol == 0, &quot;-------------&quot;, &quot;-------------------------------------&quot; &#41;,;\n		           If&#40; nCol == 0, FieldName&#40; nField &#41;, cValToChar&#40; FieldGet&#40; nField &#41; &#41; &#41; &#41;  \n[/code:3nm7mpx8]\n[code:3nm7mpx8]\n   @ 48, 20 LISTBOX oBrw FIELDS &quot;&quot;, &quot;&quot; HEADERS &quot;FieldName&quot;, &quot;Value&quot; ;\n      OF oWnd SIZE 672, 363 ALIAS Alias&#40;&#41; \n[/code:3nm7mpx8]','',0,'AIA=','3nm7mpx8',1,0,'',2,0,0),(47591,9844,11,2,0,'87.218.146.222',1202119306,1,0,1,1,1,1,'','','We need fmp.h, thanks','',0,'AIA=','ay9ofb8y',1,0,'',2,0,0),(47592,9808,3,1287,0,'195.16.44.6',1202129163,1,0,1,1,1,0,'','New example','Hello!\n\nNew example is uploaded to FRH-download area:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\n\nThis example \"answer\" to frequency asked question - \"from what RDD FRH can work?\".  FRH can work with any RDD.\n\nThis example shows that FRH use current RDD and  there is no difference for FRH with what RDD to work. In current example it\'s ADORDD that works with Access  mdb-file.\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'AIA=','381973ak',1,0,'',1287,0,0),(47593,9809,6,1287,0,'195.16.44.6',1202129230,1,0,1,1,1,0,'','New example','Hello!\n\nNew example is uploaded to FRH-download area:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\n\nThis example \"answer\" to frequency asked question - \"from what RDD FRH can work?\".  FRH can work with any RDD.\n\nThis example shows that FRH use current RDD and  there is no difference for FRH with what RDD to work. In current example it\'s ADORDD that works with Access  mdb-file.\n  \nSorry for English.\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'AIA=','2tysfcey',1,1202191585,'',1287,1,0),(47594,9850,4,49,0,'213.82.134.66',1202130064,1,0,1,1,1,1,'','Xbrowse','it possible in future to have Xbrowse into FWPPC ?\nI need this class for my application palm','',0,'AIA=','3uqpq3oa',1,1202377068,'',49,1,0),(47595,9850,4,2,0,'87.218.146.222',1202130241,1,0,1,1,1,1,'','','Silvio,\n\nIts on our to-do list. \n\nWe plan to adapt it to FWPPC asap,','',0,'AIA=','3v7et1kg',1,0,'',2,0,0),(47596,9828,7,400,0,'201.68.33.106',1202130249,1,0,1,1,1,1,'','','O Motorola Q...usa Windows mobilie.','',0,'AIA=','2bblojc8',1,0,'',400,0,0),(47597,9828,7,2,0,'87.218.146.222',1202131828,1,0,1,1,1,1,'','','Ten en cuenta que el Motorola es un smartphone, no un Pocket PC, y que está más limitado.','',0,'AIA=','3u6x2uv1',1,0,'',2,0,0),(47598,9834,6,1265,0,'200.45.179.207',1202135086,1,0,0,1,1,0,'','Asunro alt+c','Lo que pasa es que no es una funcion que yo agregue o implemente. en todas las aplicaciones en modo consola que haga esta esa funcion. No es muy importante es solo una duda que tengo hace tiempo. He tratado de hacer set key k_alt_c to miproceso; y no hay caso.Realmente me deja perplejo. Repito es solo una duda que tengo hace tiempo. Gracias y cualquier sugerencia sera bien recibida.','',0,'AIA=','1uufmqif',1,0,'',1265,0,0),(47599,9851,3,972,0,'78.21.224.104',1202135715,1,0,1,1,1,0,'','Close oWnd from code inside HTML','Hi,\n\nHow can I close oWnd from the HTML code that\'s provided by cMyURL?\n[code:1ju95wjo]\nDEFINE WINDOW oWnd\noActiveX&#58;=TActiveX&#40;&#41;&#58;New&#40; oWnd, &quot;Shell&#46;Explorer&quot; &#41;\noWnd&#58;oClient&#58;=oActiveX\noActiveX&#58;Do&#40; &quot;Navigate2&quot;, cMyURL &#41;\nACTIVATE WINDOW oWnd\n[/code:1ju95wjo]\nThanks\n\nPatrick','',0,'AIA=','1ju95wjo',1,0,'',972,0,0),(47600,9809,6,78,0,'190.43.177.41',1202136621,1,0,1,1,1,0,'','','SET SPANISH ON\n\nplease','',0,'AIA=','gz7fmrgm',1,0,'',78,0,0),(47601,9809,6,1287,0,'195.16.44.6',1202137131,1,0,1,1,1,0,'','','[quote=&quot;Willi Quintana&quot;:b5elt5uc]SET SPANISH ON\n\nplease[/quote:b5elt5uc]\n\nOk. Si utilizaré el Google-traductor? Es la idea normal?\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gA==','b5elt5uc',1,0,'',1287,0,0),(47602,9834,6,456,0,'217.127.39.57',1202137388,1,0,1,1,1,1,'','','[code:25t49qfy]\nSetCancel&#40;&#46;f&#46;&#41; //Desactiva salida de programa con teclas ALT-C\n[/code:25t49qfy]','',0,'AIA=','25t49qfy',1,0,'',456,0,0),(47603,9827,6,596,0,'85.62.69.206',1202139063,1,0,1,1,1,1,'','','He probado todas las formas y en todas me da este error en ejecucion:\n[b:1xph3rb6]ARGUMENT ERROR[/b:1xph3rb6]','',0,'QA==','1xph3rb6',1,0,'',596,0,0),(47604,9852,6,415,0,'190.157.64.112',1202139731,1,0,1,1,1,1,'','Disculpen el off topic','Primero que todo pido disculpas por poner este post a Antonio y todo los foristas.\n\nQuiero compartir con todos ustedes mis amigos virtuales la movilización que se esta haciendo alrededor del mundo (febrero 4 de 2008) por la liberación de nuestros  compatriotas secuestrados por un grupo terrorista. \n\nNos pueden acompañar con una oración de corazón para que estos señores terroristas entiendan que Colombia tiene más de 44 millones de habitantes que trabajan y luchan para que cada día nuestro hermoso país salga adelante.\n\nTodos los días entro al foro y cada día me lleno de más conocimiento con todo lo que aportan los foristas. Gracias a todos ustedes.  \n \nGracias Antonio, porque con tu trabajo he podido continuar en el mundo de la programación y generar fuente de empleo en mi país y sin duda, la mejor forma de hacer crecer a un país es trabajando y produciendo.\n\nQue Dios los bendiga a todos ustedes y que tan la anhelada paz llegue a  nuestro país COLOMBIA.','',0,'QA==','1dv0d50a',1,0,'',415,0,0),(47605,9827,6,106,0,'85.34.123.173',1202139866,1,0,1,1,1,1,'','','JmGarcia,\n\nEscribe parte del codigo de como lo haces...\n\n\nSaludos','',0,'QA==','jel3gsdc',1,0,'',106,0,0),(47606,9853,3,415,0,'190.157.64.112',1202140000,1,0,1,1,1,1,'','Excuse off topic','First of all I apologize for putting this post to Antonio and all foristas. \n\nI want to share with all of you my friends virtual mobilization that is doing around the world (February 4, 2008) for the liberation of our compatriots kidnapped by a terrorist group. \n\nWe may accompany heart with a prayer for these gentlemen terrorists understand that Colombia has more than 44 million people who work and fight for every day our beautiful country succeed. \n\nEvery day I enter the forum and every day I am filled with more knowledge with everything they bring foristas. Thanks to all of you. \n  \nThanks Antonio, because your job, I was able to continue in the world of programming and generate source of employment in my country and certainly the best way to grow a country is working and producing. \n\nMay God bless you all and how the desired peace comes to our country COLOMBIA.','',0,'QA==','2zqj2mpz',1,0,'',415,0,0),(47607,9851,3,6,0,'82.61.157.165',1202141565,1,0,1,1,1,1,'','Re: Close oWnd from code inside HTML','Try\n\noActiveX&#058;Do( \"Close\" )\n\nEMG','',0,'QA==','1084vjwi',1,0,'',6,0,0),(47608,9829,6,570,0,'200.117.32.56',1202143511,1,0,1,1,1,1,'','','Estimado Antonio,\n\nNo en el server remoto no he comprobado si hay registros ahora lo haré, pero con el ejemplo de apertura de la base MDB de Acces no muestra nada el browse y si hay registros en la base, el ADORDD.PRG que compilo lo baje de aqui en el foro, y mantuve el USRRDD.LIB de XBARBOUR 1.1.0 y FWH 8.01\n\nSaludos,','',0,'QA==','39eevn46',1,0,'',570,0,0),(47609,9827,6,596,0,'85.62.69.206',1202143905,1,0,1,1,1,1,'','','[code:3f3o1g5q]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;FileXLS&#46;ch&quot;\nfunction Main&#40;cFicheroTXT&#41;\nlocal oFileXLS,cFichXLS&#58;=cFicheroTXT+&quot;&#46;xls&quot;,Indice&#58;=0\nXLS oFileXLS FILE &amp;cFichXLS AUTOEXEC\nIndice&#58;=1\n@ Indice, 1 XLS SAY &quot;COMUN/CR-CO/CA-CO&quot; OF oFileXLS\n@ Indice, 2 XLS SAY &quot;HORA&quot;              OF oFileXLS\n@ Indice, 3 XLS SAY &quot;FECHADO&quot;           OF oFileXLS\n@ Indice, 4 XLS SAY &quot;NUMERO&quot;            OF oFileXLS\nhFichero&#58;=fopen&#40;cFicheroTXT&#41;\ndo while &#46;not&#46; feof&#40;hFichero&#41;\n   cLinea&#58;=freadline&#40;hFichero&#41;\n   cTipo&#58;=alltrim&#40;right&#40;cLinea,5&#41;&#41;\n   Indice&#58;=Indice+1\n   @ Indice, 1 XLS SAY cTipo OF oFileXLS\n   @ Indice, 2 XLS SAY val&#40;substr&#40;cLinea,  1,8&#41;&#41; OF oFileXLS FORMAT &quot;#######0&quot;\n   @ Indice, 3 XLS SAY val&#40;substr&#40;cLinea, 10,8&#41;&#41; OF oFileXLS FORMAT &quot;#######0&quot;\n   @ Indice, 4 XLS SAY val&#40;substr&#40;cLinea, 19,4&#41;&#41; OF oFileXLS FORMAT &quot;###0&quot;\nenddo\nfclose&#40;hFichero&#41;\nENDXLS oFileXLS\nreturn nil[/code:3f3o1g5q]','',0,'AIA=','3f3o1g5q',1,0,'',596,0,0),(47610,9827,6,92,0,'213.98.200.145',1202144844,1,0,1,1,1,0,'','','[quote=&quot;JmGarcia&quot;:2wtt4u8v][code:2wtt4u8v]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;FileXLS&#46;ch&quot;\nfunction Main&#40;cFicheroTXT&#41;\nlocal oFileXLS,cFichXLS&#58;=cFicheroTXT+&quot;&#46;xls&quot;,Indice&#58;=0\nXLS oFileXLS FILE &amp;cFichXLS AUTOEXEC\nIndice&#58;=1\n@ Indice, 1 XLS SAY &quot;COMUN/CR-CO/CA-CO&quot; OF oFileXLS\n@ Indice, 2 XLS SAY &quot;HORA&quot;              OF oFileXLS\n@ Indice, 3 XLS SAY &quot;FECHADO&quot;           OF oFileXLS\n@ Indice, 4 XLS SAY &quot;NUMERO&quot;            OF oFileXLS\nhFichero&#58;=fopen&#40;cFicheroTXT&#41;\ndo while &#46;not&#46; feof&#40;hFichero&#41;\n   cLinea&#58;=freadline&#40;hFichero&#41;\n   cTipo&#58;=alltrim&#40;right&#40;cLinea,5&#41;&#41;\n   Indice&#58;=Indice+1\n   @ Indice, 1 XLS SAY cTipo OF oFileXLS\n   @ Indice, 2 XLS SAY val&#40;substr&#40;cLinea,  1,8&#41;&#41; OF oFileXLS FORMAT &quot;#######0&quot;\n   @ Indice, 3 XLS SAY val&#40;substr&#40;cLinea, 10,8&#41;&#41; OF oFileXLS FORMAT &quot;#######0&quot;\n   @ Indice, 4 XLS SAY val&#40;substr&#40;cLinea, 19,4&#41;&#41; OF oFileXLS FORMAT &quot;###0&quot;\nenddo\nfclose&#40;hFichero&#41;\nENDXLS oFileXLS\nreturn nil[/code:2wtt4u8v][/quote:2wtt4u8v]\n\nCon esta clase no puedes usar directamente FORMAT \"###0\", sino que primero debes declarar el formato que deseas usar:\n\n#xcommand DEFINE XLS FORMAT &lt;nFormat&gt; ;\n             [ PICTURE &lt;cPicture&gt; ] ;\n       =&gt; ;\n            &lt;nFormat&gt; := XLSFormat( &lt;cPicture&gt; )\n\nDEFINE XLS FORMAT n4SinDecimales \"###0\"\n\ny despues usar:\n\n   @ Indice, 4 XLS SAY val(substr(cLinea, 19,4)) OF oFileXLS FORMAT n4SinDecimales\n\nsiendo n4SinDecimales una variable numérica de tu función.\n\nSaludos\nCarlos G.','',0,'gIA=','2wtt4u8v',1,0,'',92,0,0),(47611,9809,6,53,0,'189.139.22.93',1202145322,1,0,1,1,1,1,'','','Sergey:\n\nI think is not a good idea.\n\nPerhaps somebody can and may translate your posts.\n\nRegards','',0,'gIA=','yfz1uh7v',1,0,'',53,0,0),(47612,9827,6,596,0,'85.62.69.206',1202145858,1,0,1,1,1,1,'','','[quote=&quot;FiveWiDi&quot;:26pbx6my]Con esta clase no puedes usar directamente FORMAT \"###0\", sino que primero debes declarar el formato que deseas usar:\n\n#xcommand DEFINE XLS FORMAT &lt;nFormat&gt; ;\n             [ PICTURE &lt;cPicture&gt; ] ;\n       =&gt; ;\n            &lt;nFormat&gt; := XLSFormat( &lt;cPicture&gt; )\n\nDEFINE XLS FORMAT n4SinDecimales \"###0\"\n\ny despues usar:\n\n   @ Indice, 4 XLS SAY val(substr(cLinea, 19,4)) OF oFileXLS FORMAT n4SinDecimales\n\nsiendo n4SinDecimales una variable numérica de tu función.\n\nSaludos\nCarlos G.[/quote:26pbx6my]\n\nEs que como tengo \"tantos formatos\" no me parecio conveniente usar variables y me funciona de esa forma que he puesto yo <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nPero a parte de eso (que lo cambiare) ¿ como añado COLOR a las celdas ?','',0,'gA==','26pbx6my',1,0,'',596,0,0),(47613,9854,6,37,0,'190.41.59.208',1202146048,1,0,1,1,1,1,'','Ejemplo TESFDAT.PRG no funciona, funcion SetFTime y GetFTime','Antonio, buenas tardes, tenemos un problema con este ejemplo TESTFDAT.PRG no hace lo correcto en ninguna de las 2 funciones que usa, SetFTime() no pone la nueva hora y fecha y GetFTime() no toma correctamente ni la hora ni la fecha del archivo.\nNecesito tomar la fecha de un archivo EXE, avisame por favor si hay correccion de esta funcion (GetFTime()) o si existe alguna otra funcion que devuelva ese valor.\nGracias','',0,'gA==','16ig3vb2',1,0,'',37,0,0),(47614,9854,6,2,0,'87.218.146.222',1202146513,1,0,1,1,1,1,'','','Enrique,\n\nEfectivamente estaba erróneo y ha sido arreglado en la versión 8.01\n\nTambien puedes usar la función Directory() para obtener la hora de un fichero.','',0,'gA==','1l5w6xzh',1,0,'',2,0,0),(47615,9854,6,37,0,'190.41.59.208',1202148257,1,0,1,1,1,1,'','','Ok, lo solucione con Directory()\nGracias','',0,'gA==','30m7kobw',1,0,'',37,0,0),(47616,9843,6,73,0,'201.127.72.173',1202148580,1,0,1,1,1,0,'','','bien probaré te comento, imagino que el fallo viene por el valid que se hace a la window, pero si no es ahi se puede detectar en que objeto esta el fallo?\naqui dejo el error.log completo\nApplication\n===========\n   Path and name: C:\\Pventa2\\valleverde\\Caja5.exe (32 bits)\n   Size: 2,555,904 bytes\n   Time from start: 0 hours 0 mins 13 secs \n   Error occurred at: 03/02/2008, 00:36:22\n   Error description: Error BASE/1066  Argument error: conditional\n   Args:\n     [   1] = U   \n\nStack Calls\n===========\n   Called from:  =&gt; TWINDOW:LVALID(0)\n   Called from:  =&gt; TCONTROL:FWLOSTFOCUS(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: C:ProyectosHarbourxPV2uenteswindow.prg =&gt; _FWH(3165)\n   Called from:  =&gt; SYSREFRESH(0)\n   Called from:  =&gt; TCONTROL:KEYCHAR(0)\n   Called from:  =&gt; TCONTROL:KEYCHAR(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from:  =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: C:ProyectosHarbourxPV2uenteswindow.prg =&gt; _FWH(3165)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from:  =&gt; TDIALOG:ACTIVATE(0)\n   Called from: C:ProyectosHarbourxPV2uentespv01.prg =&gt; PASSWORD(648)\n   Called from: C:ProyectosHarbourxPV2uentespv01.prg =&gt; (b)MAIN(231)\n   Called from:  =&gt; TWINDOW:ACTIVATE(876)\n   Called from: C:ProyectosHarbourxPV2uentespv01.prg =&gt; MAIN(231)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.26GHz 2266 Mhz\n   Hardware memory: 248 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: Harbour Alpha build 46.2 Intl. (Flex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 13\n      1 \n      2 Menú Inicio\n      3 CiceroUIWndFrame\n      4 TF_FloatingLangBar_WndTitle\n      5 Registro de Acceso\n      6 Sistema Punto de Venta\n      7 MCI command handling window\n      8 WOWExec\n      9 Connections Tray\n     10 Medidor de energía\n     11 MS_WebcheckMonitor\n     12 Hidden Main Window\n     13 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   TWINDOW:LVALID\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    S    \n     Local   5:    N    0\n   TCONTROL:FWLOSTFOCUS\n     Param   1:    N    459082\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n     Local   3:    U    \n   TCONTROL:HANDLEEVENT\n     Param   1:    N    2057\n     Param   2:    N    459082\n     Param   3:    N    0\n     Local   1:    O    Class: TGET\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    2057\n     Param   2:    N    459082\n     Param   3:    N    0\n     Local   1:    O    Class: TGET\n   _FWH\n     Param   1:    N    0\n     Param   2:    N    2057\n     Param   3:    N    459082\n     Param   4:    N    0\n     Param   5:    N    9\n     Local   1:    O    Class: TGET\n   SYSREFRESH\n   TCONTROL:KEYCHAR\n     Param   1:    N    13\n     Param   2:    N    18612225\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n   TCONTROL:KEYCHAR\n     Param   1:    N    13\n     Param   2:    N    18612225\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n   TCONTROL:HANDLEEVENT\n     Param   1:    N    258\n     Param   2:    N    13\n     Param   3:    N    18612225\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    258\n     Param   2:    N    13\n     Param   3:    N    18612225\n     Local   1:    O    Class: TGET\n   TCONTROL:HANDLEEVENT\n     Param   1:    N    258\n     Param   2:    N    13\n     Param   3:    N    18612225\n     Local   1:    O    Class: TGET\n   _FWH\n     Param   1:    N    18612225\n     Param   2:    N    258\n     Param   3:    N    13\n     Param   4:    N    18612225\n     Param   5:    N    9\n     Local   1:    O    Class: TGET\n   DIALOGBOX\n     Param   1:    N    4194304\n     Param   2:    C    \"Acceso\"\n     Param   3:    N    1311060\n     Param   4:    O    Class: TDIALOG\n   TDIALOG:ACTIVATE\n     Param   1:    U    \n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    L    .T.\n     Param   5:    U    \n     Param   6:    L    .T.\n     Param   7:    B    {|| ... }\n     Param   8:    U    \n     Param   9:    U    \n     Param  10:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    1311060\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    S    \n     Local   6:    O    Class: TDIALOG\n   PASSWORD\n     Param   1:    O    Class: TMDIFRAME\n     Param   2:    O    Class: TMSGITEM\n     Param   3:    L    .F.\n     Local   1:    O    Class: TDIALOG\n     Local   2:    N    3\n     Local   3:    C    \"Usuarios\"\n     Local   4:    L    .F.\n     Local   5:    L    .F.\n     Local   6:    C    \"ADMIN   \"\n     Local   7:    O    Class: TGET\n     Local   8:    O    Class: TGET\n     Local   9:    C    \"Usuarios\"\n     Local  10:    C    \"        \"\n     Local  11:    C    \"DBFCDX\"\n   (b)MAIN\n     Param   1:    O    Class: TMDIFRAME\n   TWINDOW:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    B    {|| ... }\n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    U    \n     Local   2:    O    Class: TICON\n     Local   3:    A    Len:    4\n     Local   4:    L    .T.\n     Local   5:    U    \n     Local   6:    N    11122277722\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFCDX\n   DBFBLOB\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HBCLASS\n     2 HBOBJECT\n     3 TVARSYS\n     4 TVARUSU\n     5 TFONT\n     6 TWINDOW\n     7 TDIALOG\n     8 TBRUSH\n     9 TCONTROL\n    10 TSAY\n    11 TBITMAP\n    12 TTIMER\n    13 TICON\n    14 TMDIFRAME\n    15 TC5MENU\n    16 TMENUITEMC5\n    17 TMDICLIENT\n    18 TIMAGELIST\n    19 TREBAR\n    20 TPANEL\n    21 TTOOLBAR\n    22 TMSGBAR\n    23 TRECT\n    24 TMSGITEM\n    25 TIMAGE\n    26 TGET\n    27 TBTNGET\n    28 GET\n    29 TCLIPGET\n    30 TBUTTON\n    31 ERROR\n    32 TREG32\n\nMemory Analysis\n===============\n      345 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\ngracias\npaco','',0,'','2z4nu020',1,0,'',73,0,0),(47617,9843,6,2,0,'87.218.146.222',1202149458,1,0,1,1,1,1,'','','Paco,\n\nDe tu error.log se ve que es en un GET:\n\nProcedure Type Value \n========================== \nTWINDOW:LVALID \nLocal 1: O Class: TGET \n\nHas probado la modificación del código del metodo lValid() que te he comentado ?','',0,'','z6hidyy9',1,0,'',2,0,0),(47618,9849,6,307,0,'201.170.139.7',1202150912,1,0,1,1,1,0,'','Gracias','Gracias antonio.\nun saludo\n\nArnulfo','',0,'','1zzii8sy',1,0,'',307,0,0),(47619,9743,6,1072,0,'190.82.13.229',1202151125,1,0,1,1,1,0,'','','Manuel:\n\nMil gracias, he recibido la Tsbrowse, la incorporare a mi aplicacion, desde ya eternamente agradecido.\n\nMuchos Saludos,\nAntonio\n\n\n\n[quote=&quot;mmercado&quot;:2xi7x3yg][quote:2xi7x3yg]Delivery Status Notification (Failure)&#8207; \nDe: <!-- e --><a href=\"mailto:postmaster@mail.hotmail.com\">postmaster@mail.hotmail.com</a><!-- e --> \nEnviado: jueves, 31 de enero de 2008 07:46:16 p.m. \n\nAnálisis de seguridad al descargar   \n SBROWSEX.LIB (257.1 KB), TSBROWSE.zip (85.0 KB), details00...txt (0.2 KB), \nThis is an automatically generated Delivery Status Notification. Delivery to the following recipients failed. <!-- e --><a href=\"mailto:mantonio_08@hotmail.com\">mantonio_08@hotmail.com</a><!-- e -->\n[/quote:2xi7x3yg]Hola Antonio, al parecer no pasó el correo que te mandé, ahora lo reenvío con los 2 archivos zipeados a ver si fue por eso, de cualquier forma, el lunes le voy a enviar los archivos a José para que los ponga en su página, solo estoy terminando un cambio importante.\n\nSaludos.\n\nManuel Mercado[/quote:2xi7x3yg]','',0,'gA==','2xi7x3yg',1,0,'',1072,0,0),(47620,9843,6,73,0,'201.127.72.173',1202152338,1,0,1,1,1,0,'','','ya hice la modificacion en la clase window como me comentas, lo instalo con el cliente hoy mismo y a esperar a que brinque la rana,,,\nMuy agradecido,\nPaco','',0,'gA==','20srjval',1,0,'',73,0,0),(47621,9855,3,1257,0,'195.93.60.34',1202153230,1,0,1,1,1,1,'','Create a Excel-Sheet of any DBF-File with AutoOle (Update)','Hello, from Germany\n\nThis is a part of the new DB-Tool you will find in the forum\nin a short time\n\nIt is possible to create a formated Excel-Sheet of any DBF-File.\nWith the parameter lOemAnsi = .T. you can convert the DBF to Ansi\nThe needed cellwidth is calculated. \nThe Excel-Sheet can work with 4 Windows\nIts quick and easy to handle.\n\n\n\n\n// -------------------------------------------\n\nSTATIC FUNCTION EXP_EXCEL(cFile1,lOemAnsi )\nLOCAL oDlg7, oMeter, oBtn1\n\nc_dir := GetModuleFilename(GetInstance(),\"DBF_G.EXE\" + CHR(0), 255)\n//-----------------------------------------------Applic.-Name  \nc_path := left ( c_dir, rat( \"\\\", c_dir) -1 )\ncFILE   := c_path + \"\\\" + cFileNoExt(cFile1)\n\nDEFINE DIALOG oDlg7 FROM 1, 1 TO 12, 44 ;\nTITLE \"Creating : \" + cFile + \".XLS\"\n\nDBSELECTAREA(1)   // Your Database !!!!!!\nnTotal := RECCOUNT()\nDBGOTOP()\n\nnActual := 0\n@ 1.5, 2 METER oMeter VAR nActual TOTAL 10  OF oDlg7 SIZE 135, 15  UPDATE\n\n@ 2.5, 8   BUTTON \"&amp;Start\" size 80, 25  OF oDlg7 ;\nACTION  EXP_RUN(oDlg7, oMeter, cFile1,lOemAnsi)\n\nACTIVATE DIALOG oDlg7 CENTERED \n\nRETURN( NIL )\n\n\n//---------- EXCEL Sheet    cFile = DBF-Name / lOemAnsi .T. or .F. ------//\n\nSTATIC FUNCTION EXP_RUN(oDlg7,oMeter,cFile1,lOemAnsi)\nLOCAL oClp\nLOCAL nSheets	:= 0\nLOCAL n		:= 0\nLOCAL nRow	:= 0\nLOCAL nHeaderRow    := 1                           \nLOCAL nDataStart := nHeaderRow + 1     \nLOCAL FIELD_ARRAY := {}\n\nDBSELECTAREA(1)   // Your Database !!!!!!\n\naFieldname := (1)-&gt;( DbStruct() )\nnLenght := Len( aFieldname )\nfor n = 1 to nLenght\n      AADD( FIELD_ARRAY, { aFieldname[ n ][ 1 ], ;\n		         aFieldname[ n ][ 2 ], ;\n                                         aFieldname[ n ][ 3 ] } )   \nnext\n\n// CLIPBOARD \nDEFINE CLIPBOARD oClp \n\noExcel    := TOleAuto():New( \"Excel.Application\" )\noWorkBook := oExcel:WorkBooks:Add()\nnSheets := oExcel:Sheets:Count()\nfor n := 1 to nSheets - 1\n        oExcel:Worksheets( n ):Delete()\nnext\noExcel:Set( \"DisplayAlerts\", .f. )\noSheet := oExcel:Get( \"ActiveSheet\" )\noWin := oExcel:Get( \"ActiveWindow\" )\noSheet:Name := \"Show\"\noSheet:Cells( nDataStart, 1 ):Select()\noWin:Set( \"FreezePanes\", .t. )\noWin:Set( \"SplitColumn\", 2 )                       // Freeze Rows and Cols\noSheet:Cells:Font:Size := 10\noSheet:Cells:Font:Name := \"Arial\"\n\nFor i := 1 to nLenght\n        oSheet:Cells( 1, i ):Value := aFieldname[ i ][ 1 ]\n        oSheet:Cells( nHeaderRow, i ):Font:Bold := .t.\n        oSheet:Cells( nHeaderRow, i ):Font:Color :=  RGB( 255, 0, 0 )\n        IF aFieldname[i][3] &gt; 10\n	oSheet:Columns( i ):Set( \"ColumnWidth\",  aFieldname[i][3] )\n        ELSE\n	oSheet:Columns( i ):Set( \"ColumnWidth\",  13 )   // Minimum\n        ENDIF\nNext\n\nnRow := nHeaderRow + 1\n\nCURSORWAIT()\n\nDo While !Eof()\n        i := 1\n        cTEXT := \"\"\n        For i := 1 to nLenght\n	IF lOemAnsi = .T. .and. ( aFieldname[ i ][ 2 ] = \"C\" ;\n                    .or. aFieldname[ i ][ 2 ] = \"M\" )\n                    cTEXT := cTEXT + OemToAnsi( FIELDGET(i) )\n                ENDIF\n	IF lOemAnsi = .F. .and. ( aFieldname[ i ][ 2 ] = \"C\" ;\n                    .or. aFieldname[ i ][ 2 ] = \"M\" )\n                    cTEXT := cTEXT + FIELDGET(i) \n                ENDIF\n	IF aFieldname[ i ][ 2 ] = \"N\"\n                    cTEXT := cTEXT + STR(FIELDGET(i)) \n                ENDIF\n	IF aFieldname[ i ][ 2 ] = \"D\"\n                    cTEXT := cTEXT + DTOS(FIELDGET(i)) \n                ENDIF\n	IF aFieldname[ i ][ 2 ] = \"L\"\n                    IF FIELDGET(i) = .T.\n	        cTEXT := cTEXT + \"TRUE\"\n                    ELSE\n	        cTEXT := cTEXT + \"FALSE\"\n   	    ENDIF\n               ENDIF\n               cTEXT := cTEXT + chr( 9 )\n        Next\n\n        oClp:SetText( cText )\n        oSheet:Cells( nRow, 1 ):Select()\n        oSheet:Paste()\n\n        oClp:Clear()\n        DbSkip()\n	\n        oMeter:Set( nActual +1 )\n        nRow++          // Linefeed\n\n        IF EOF()\n              EXIT\n        ENDIF\nEndDo\n\noDlg7:End()   // End Dlg MsgMeter\n\noSheet:Cells( 2, 1 ):Select()                   // Start-Cursor\noWorkBook:SaveAs(\"&amp;cFile\")\noClp:Clear()\noExcel:Visible := .T.\noExcel := NIL\n\nRETURN( NIL )\n\n\nRegards\nU. König <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'','28p10cwl',1,1202561447,'',1257,1,0),(47622,9837,6,496,0,'200.107.55.86',1202154692,1,0,1,1,1,0,'','','Hola Ramón\n\nPodrías colocar el código con el que haces las modificaciones?. Usas ADO puro o ADORDD\n\n\nUn saludo\n\nMarcelo','',0,'','fnze9oea',1,0,'',496,0,0),(47623,9856,6,568,0,'201.230.186.34',1202162500,1,0,1,1,1,0,'','Problemas con la clase Tprinter','Estimados Amigos (Tigres de la programación en XHarbour):\nEstoy pasando mi programa de Fivewin 2.4 (16 bits) a Fwh (32 bits) y tengo algunos problemas, los cuales les agradeceria infinitamente si alguien me puede dar una mano.\n\nIntento realizar un Preview de mi impresión usando:\nPRINTER oPrn PREVIEW NAME \"Vizualización de Documento a Imprimir\"\n             oPrn:lPrvModal:=.t.\n\ny me sale el siguiente error: \nC:\\DOCUME~1\\CONFIG~1\\TempC:\\TEMP\\5911719 (esto sale en la cabecera del mensaje)\n\nError(123) Creating Enhanced Metafile\n\nY luego me muestra el preview pero en blanco, lo curioso es que antes en 16 bits no tenia este problema, por favor alguien me puede ayudar  <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: --> \n\nGracias\n\nWilliam[/img]','',0,'','1e7p1gzr',1,0,'',568,0,0),(47624,9846,11,578,0,'218.214.68.108',1202163741,1,0,1,0,1,0,'','','Hi Antonio\n\nYes, it was a repositories (software sources) issue - now happily resolved.\n\nThanks\nDoug\n(xProgrammer)','',0,'','rycav4p6',1,0,'',578,0,0),(47625,9856,6,1255,0,'201.122.38.237',1202167133,1,0,1,1,1,0,'','Re: Problemas con la clase Tprinter','[quote=&quot;William Chavez Noriega&quot;:1nb28uyo]Error(123) Creating Enhanced Metafile\n[/quote:1nb28uyo]A mí me ha mandado ese error cuando no tengo configurada ninguna impresora. También verifica que exista la carpeta direccionada con la variable de entorno tmp.\n\nSaludos\n\nManuel Mercado','',0,'gA==','1nb28uyo',1,0,'',1255,0,0),(47626,9857,4,1270,0,'189.132.96.79',1202168342,1,0,1,1,1,1,'','MC9090 ayuda estoy en cero','Hola \nTengo una Pocket PC symbol MC9090 \nSi alguien me puede ayudar a empezar a trabajar con ella y con los programas.\nEstoy empezando de Cero.\nJohn','',0,'gA==','2kexijbb',1,0,'',1270,0,0),(47627,9857,4,2,0,'87.218.146.222',1202168892,1,0,1,1,1,1,'','','John,\n\nSitúate en el directorio fwppc\\samples y escribe:\n\nbuildce.bat tutor01\n\ncomprueba que los paths dentro de buildce.bat esten correctos. \n\nUn ejecutable tutor01.exe se construirá que puedes copiarlo a tu Pocket PC y ejecutarlo en ella. Puedes copiarlo usando ActiveSync, ó sencillamente usando una tarjeta de memoria.\n\nLo más fácil es que pruebes los EXEs en el emulador de Pocket PC en tu propio PC. Usa el emulador de Pocket PC que te facilitamos en la instalación de FWPPC.\n\nLuego prueba con tutor02.prg, tutor03.prg, etc. y ve revisando el código de esos PRGs. Verás que son muy fáciles de entender y de modificar','',0,'gA==','21ren8kq',1,0,'',2,0,0),(47628,9857,4,1270,0,'189.132.96.79',1202169182,1,0,1,1,1,1,'','hice el tuto01','Ya pude compilar el tutor01.exe \nahora kiero conectarme con el dispositivo, voy intentar con el bluetooth porke ahora no tengo un Router inalambrico','',0,'gA==','2varh6a9',1,0,'',1270,0,0),(47629,9844,11,281,0,'211.202.131.71',1202169879,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:35otkmf4]We need fmp.h, thanks[/quote:35otkmf4]\n[code:35otkmf4]\n#ifndef __FMP_h__\n#define __FMP_h__\n\n#ifdef __cplusplus\nextern &quot;C&quot;&#123;\n#endif \n\n/*+-------------------------------------------------------------------------\n*\n*   Sigma Designs\n*   Copyright 1998 Sigma Designs, Inc&#46;\n*\n*--------------------------------------------------------------------------*/\n\n#define _MAX_STRING_	256\n\n#ifdef _DEFINE_FMP_TYPES_\ntypedef unsigned long	DWORD;\ntypedef long 		LONG;\ntypedef unsigned short	WORD;\ntypedef unsigned char	BYTE;\ntypedef int		BOOL;\n\n#ifndef TRUE\n#define TRUE 1\n#endif // TRUE\n\n#ifndef FALSE\n#define FALSE 0\n#endif // FALSE\n\n#ifdef _UNICODE_\ntypedef unsigned short			TCHAR;\n#else\ntypedef char			TCHAR;\n#endif // _UNICODE_\n\n#ifdef _BARBADOS_\ntypedef unsigned long long ULONGLONG;\n#endif\n\n#endif // _DEFINE_FMP_TYPES_\n\n// Callback definition\ntypedef DWORD &#40;*PFMPCALLBACK&#41; &#40;DWORD dwContext, DWORD dwMsg, DWORD dwValue&#41;;\n\ntypedef struct tagFMP_BUFFER&#123;\n	BYTE  *pBuffer;         // Address of the buffer		\n	DWORD  dwBufferSize;    // Size of the buffer\n	DWORD  dwDataSize;      // Size of valid data in the buffer\n	DWORD  dwFlags;         // Flags\n	DWORD  dwFlagsEx;		// Extended flags\n	DWORD  pReserved&#91;8&#93;;    // Reserved\n&#125; FMP_BUFFER, *PFMP_BUFFER;\n\n//@struct FMP_OPENSTRUCT | Parameter sent to the Graph Manager upon opening\ntypedef struct tagFMP_OPENSTRUCT&#123;\n	DWORD			dwStructSize;	// @field Size of the structure\n	DWORD			dwFlags;		// @field Open Flag\n									// @flag FMPF_TRANSPORT | Transport stream demux\n									// @flag  FMPF_SYSTEM   | System stream demux \n									// @flag FMPF_PROGRAM     | Program stream demux \n									// @flag FMPF_VIDEO       | Video stream &#40;MPEG1/MPEG2&#41; \n									// @flag FMPF_MPEG_AUDIO  | MPEG Audio stream \n									// @flag FMPF_AC3         | AC3 Audio stream \n									// @flag FMPF_DVD         | DVD demux \n									// @flag FMPF_SVCD        | VCD/SVCD demux \n									// @flag FMPF_DISCPLAYBACK  0xFFFFFFFF | \n\n	DWORD			dwSize;			// @field Size of buffers\n	DWORD			dwCount;		// @field Number of buffers\n	PFMPCALLBACK	pCallback;		// @field FMP Callback\n	DWORD			dwContext;		// @field Callback context\n	BYTE			bDriverNumber;	// @field Driver Number\n	TCHAR*			sFileName;		// @field File Name\n	BYTE			bFileSystem;	// @field disk data access method \n									// @flag SYS_ACCESS | using the OS function\n									// @flag UDF_ACCESS | using UDF\n									// @flag ISO_ACCESS | using ISO9660\n	BYTE			bDiscContent;	// @field Disc Content &#40;returned by the driver&#41;\n									// @flag FMPC_DVD_VIDEO	| DVD Video Disc \n									// @flag FMPC_VCD		| Video CD Disc \n									// @flag FMPC_SVCD		| Super Video CD Disc \n\n&#125; FMP_OPENSTRUCT, *PFMP_OPENSTRUCT;\n\n// FMP Message Structure\ntypedef struct tagFMPmsg&#123;\n	DWORD	dwCommand;\n	DWORD	dwArg1;\n	DWORD	dwArg2;\n	DWORD	dwArg3;\n	DWORD	dwArg4;\n	DWORD	dwArg5;\n	BYTE	pBuffer&#91;sizeof &#40;FMP_OPENSTRUCT&#41; + _MAX_STRING_&#93;;\n&#125; FMP_MSG, *PFMP_MSG;\n\n// Open flags \n#define FMPF_TRANSPORT		0 /* Transport stream demux&#46; */ \n#define FMPF_SYSTEM			1 /* System stream demux */\n#define FMPF_PROGRAM		2 /* Program stream demux */\n#define FMPF_VIDEO			3 /* Video stream &#40;MPEG1/MPEG2&#41; */\n#define FMPF_MPEG_AUDIO		4 /* MPEG Audio stream */\n#define FMPF_AC3			5 /* AC3 Audio stream */\n#define FMPF_DVD			6 /* DVD demux */\n#define FMPF_SVCD			7 /* SVCD/VCD demux */\n#define FMPF_CDDA			8 /* CDDA demux */\n#define FMPF_DRIVEPOLLING	9 /* minimum graphmanager for Drive polling only */\n#define FMPF_PES			10 /* pes stream support */\n#define FMPF_AAC_CELP		11 /* AAC CELP stream support */\n#define FMPF_PES_MPEG4		12 /* MPEG4 PES stream support */\n\n#define FMPF_DISCPLAYBACK 0xFFFFFFFF \n\n// Disc Content flags\n#define FMPC_DVD_VIDEO		0 /* DVD Video Disc */\n#define FMPC_VCD		1 /* Video CD Disc */\n#define FMPC_SVCD		2 /* Super Video CD Disc */\n#define FMPC_CDDA		4 /* CD audio */\n#define FMPC_UNSUPPORTED	0xFE 	/* namely, CDI and HQVCD */\n#define FMPC_UNKNOWN		0xFF 	/* for error management purpose */\n\n// Tray management constant\n#define FMPT_TRAYCHECK	10\n#define FMPT_TRAYCHANGE	11\n#define FMPT_TRAYCLOSE	1\n#define FMPT_TRAYOPEN	0\n\n\n// Used to specify the method to acces the files\n#define SYS_ACCESS 0x00	\n#define UDF_ACCESS 0x01\n#define ISO_ACCESS 0x02\n#define DONTCARE_ACCESS 0xFF\n\n// Buffer flags\nenum tagFMP_PROPERTY_FLAGS\n    &#123;	\n	FMP_DATADISCONTINUITY   = 0x1,		/* Data discontinuity &#58; data loss */\n	FMP_TIMEDISCONTINUITY   = 0x2,		/* PTS discontinuity */\n	FMP_TRICKMODE_START     = 0x4,		/* Trick Mode Starts */\n	FMP_TYPECHANGED         = 0x8,		/* Type of data has changed */\n	FMP_TIMEVALID           = 0x10,		/* PTS is valid */\n	FMP_ENDOFSTREAM         = 0x20,		/* End of stream */\n	FMP_TRICKMODE_END       = 0x40,		/* Trick Mode Ends */\n	FMP_TRICKMODE_SAMPLE	= 0x80,		/* A Trick Mode Sample */\n 	FMP_SVCD_TM_2X			= 0x100,	/* SVCD trick mode speed 2x */\n	FMP_SVCD_TM_3X			= 0x200,	/* SVCD trick mode speed 3x */\n	FMP_SVCD_TM_4X			= 0x400,	/* SVCD trick mode speed 4x */\n//	FMP_SVCD_FF				= 0x800,\n	FMP_SVCD_FR				= 0x1000,\n	FMP_SVCD_AUTOPAUSE		= 0x2000,\n	FMP_SVCD_SEQ_HDR		= 0x4000,\n	FMP_SVCD_UPDATE_PTS_REF	= 0x8000,\n\n	FMP_TRICKMODE_DVD		= 0x10000,\n	FMP_SEEKINGOP_DVD		= 0x20000,\n	FMP_SVCD_CDDA_TRACK	= 0x40000 /* CDDA track on the VCD disk */\n\n   &#125;;\n\n// flags for the dwFlagsEx field in the FMP_BUFFER structure\nenum tagFMP_PROPERTY_FLAGS_EX\n&#123;	\n	FMP_VIDEO_PES		= 0x1,\n	FMP_AUDIO_PES		= 0x2,\n	FMP_DVD_AUDIO_PES	= 0x4\n&#125;;\n\n#define	FMP_SVCD_FLAGS		&#40;0x0000FF80&#41;\n#define FMP_DVD_FLAGS		&#40;0x00010000&#41;\n\n// DriverNumber &#58; \n#define PRIMARY_MASTER		0x00	/* Drive is primary master */\n#define SECONDARY_MASTER	0x02	/* Drive is secondary master */\n#define NO_DRIVE			0xFF	/* No DVD-ROM drive */\n\nDWORD MPEGPowerOn &#40;BYTE bDriverNumber&#41;;\nDWORD MPEGPowerOff &#40;void&#41;;\n\n// Init MPEG driver\nDWORD MPEGDriverEntry &#40;BYTE bDriverNumber&#41;;\n\n// Prepare to Unload the driver\nDWORD MPEGDriverUnload &#40;void&#41;;\n\n// Open the MPEG driver &#40;Push Mode&#41;\nDWORD FMPOpen &#40;DWORD dwflags, DWORD dwSize, DWORD dwCount, PFMPCALLBACK pCallback, DWORD dwContext&#41;;\n\n// Open the MPEG driver &#40;Disc Playback&#41;\nDWORD FMPOpenDiscPlayback &#40;PFMP_OPENSTRUCT pFMPOpenStruct&#41;;\n\n// Close the MPEG driver\nDWORD FMPClose &#40;void&#41;;\n\n// Give version and copyright information\nDWORD FMPAbout&#40; TCHAR* sVersion, TCHAR* sDate, TCHAR *sCopyright &#41;;\n\n// Close a MPEG file and get ready to play another one\nDWORD FMPCloseFile&#40;void&#41;;\n\n// Stop playing a MPEG file and get ready to restart playing it at its beginning\nDWORD FMPStopFile&#40;void&#41;;\n\n// Really play a MPEG file\nDWORD FMPPlayFile&#40;char *&#41;;\n\n// Start MPEG playback\nDWORD FMPPlay &#40;void&#41;;\n\n// Stop MPEG playback\nDWORD FMPStop &#40;void&#41;;\n\n// Pause MPEG playback\nDWORD FMPPause &#40;void&#41;;\n\n// Flush internal FIFOs of the driver\nDWORD FMPFlush &#40;BOOL bGDF&#41;;\n\n// Get a buffer from the memory manager\nDWORD FMPGetBuffer &#40;PFMP_BUFFER pBuffer, BOOL bBlockingCall&#41;;\n\n// Push buffer into driver\nDWORD FMPPush &#40;PFMP_BUFFER pBuffer&#41;;\n\n// Get &amp; Set\nDWORD FMPGet &#40;DWORD dwIndex&#41;;\nDWORD FMPSet &#40;DWORD dwIndex, DWORD dwValue&#41;;\n\n// set,get properties for Hwlib using rm84cmn&#46;h\n#include &quot;rm84cmn&#46;h&quot;\nDWORD FMPProperty&#40;DWORD dwFlags, DWORD dwPropSet, DWORD dwPropId, DWORD dwPropFlags, void* pPropData, DWORD dwPropSizeIn, DWORD* pdwPropSizeOut&#41;;\n\n// change the video port output dimensions\nDWORD FMPSetVideoPortDimensions &#40;DWORD Width, DWORD Height&#41;;\n\n// Queries for a specific interface\n// this interface is valid between FMPOpen and FMPClose\nDWORD FMPQueryInterface &#40;DWORD InterfaceId, void **ppv&#41;;\n#include &quot;ifmp&#46;h&quot;\n\n// Picture Placement\nDWORD FMPSetSource &#40;DWORD dwX, DWORD dwY, DWORD dwcX, DWORD dwcY&#41;;\nDWORD FMPSetVisibleSource &#40;DWORD dwX, DWORD dwY, DWORD dwcX, DWORD dwcY&#41;;\nDWORD FMPSetDestination &#40;DWORD dwX, DWORD dwY, DWORD dwcX, DWORD dwcY&#41;;\nDWORD FMPEnableOverlay &#40;DWORD dwEnable&#41;;\nDWORD FMPEnableFullScreen &#40;DWORD dwEnable&#41;;\n\n// Bitmap operation\nDWORD FMPEnableOSD &#40;DWORD dwEnable&#41;;\nDWORD FMPShowBitmap &#40;DWORD dwBitMap, DWORD dwAlphaBlendingFactor, DWORD dwX, DWORD dwY, DWORD dwcX, DWORD dwcY&#41;;\n\n// Disc operations\nDWORD FMPEjectDisc &#40;void&#41;;\nDWORD FMPLoadDisc &#40;void&#41;;\nDWORD FMPIsDiscLoaded&#40;void&#41;;\nDWORD FMPTrayOperation&#40; DWORD dwFMPTAction&#41;;\n\n// Get Last Error\nconst char* FMPGetLastError &#40;DWORD dwError&#41;;\n\n/*******************************************************************************\n* DVD Functions\n*******************************************************************************/\n\n//Play a Title by Title number\nDWORD TitlePlay &#40;DWORD dwTitleNumber&#41;;\n\n//Play from the beginning of a chapter specified by the Title number and the chapter number\nDWORD ChapterPlay&#40;BYTE bTitleNumber, WORD wChapterNumber&#41;;\n\n//Play from the specified position of the Title by the Title number and Time\nDWORD TimePlay&#40;BYTE bTitleNumber, TCHAR* sTime&#41;;\n\n//This command stops the current presentation and starts presentation from the specified position \n//of the title by Time within the same title&#46;\nDWORD TimeSearch&#40;TCHAR* sTime&#41;;\n\n//Stop the current presentation and start the presentation from the beginning of PTT &#40;Part_of_Title&#41; \n//specified by PTT numbers within the same Title&#46;\nDWORD ChapterSearch&#40;WORD wChapterNumber&#41;;\n\n//Stop the execution of the current Program Chain and play the GoUp Program Chain \n//&#40;specified in the current Program Chain&#41;\nDWORD GoUp&#40;void&#41;;\n\n//Stop the current presentation and start the presentation from the beginning \n//of previous Program within the same Program Chain &#40;PGC&#41;&#46;\nDWORD PrevPGSearch&#40;void&#41;;\n\n//Stop the current presentation and start the presentation from the beginning \n//of the current Program within the same PGC&#46;\nDWORD TopPGSearch &#40;void&#41;;\n\n//Stop the current presentation and start the presentation from the beginning \n//of the next Program within the same PGC&#46;\nDWORD NextPGSearch &#40;void&#41;;\n\n//The operation to scan play at the specified Speed&#46; \n//This user function includes scan play and slow playback for forward navigation \n//at any speed &#40;expect normal speed&#41;&#46;\nDWORD ForwardScan &#40;WORD wSpeed, BOOL bFast&#41;;\n\n//The operation to scan play at the specified Speed&#46; \n//This user function includes scan play and slow playback for backward navigation \n//at any speed &#40;expect normal speed&#41;&#46;\nDWORD BackwardScan &#40;WORD wSpeed, BOOL bFast&#41;;\n\n//Call the Menu in the Program Chain &#40;PGC&#41;&#46;\nDWORD MenuCall &#40;BYTE bMenuID&#41;;\n\n//This operation returns from the Menu-space\nDWORD Resume&#40;void&#41;;\n\n//This operation stops play for later resume of play\nDWORD StopForResume&#40;void&#41;;\n\n//DVD Query attributes\nDWORD DVDQueryAttribute&#40;DWORD dwFlag, DWORD dwArg&#41;;\n\n\n//Select the Buttons on the Menu Screen&#46;\nDWORD UpperButtonSelect&#40;void&#41;;\nDWORD LowerButtonSelect&#40;void&#41;;\nDWORD LeftButtonSelect&#40;void&#41;;\nDWORD RightButtonSelect&#40;void&#41;;\n\n//Activate the current Highlighted Button&#46;\nDWORD ButtonActivate&#40;void&#41;;\n\n//Activate the specified Highlighted Button&#46;\nDWORD ButtonSelectAndActivate&#40;BYTE bButton&#41;;\n\n//Operation to release Still&#46;\nDWORD StillOff&#40;void&#41;;\n\n//Pause the presentation&#46;\nDWORD PauseOn&#40;void&#41;;\n\n//Set the stream number of the Sub-Picture and whether the sub-picture is displayed or not&#46;\nDWORD SubPictureStreamChange &#40;BYTE bStreamNumber, BOOL bDisplayFlag&#41;;\n\n//Set the Stream number of the Audio&#46;\nDWORD AudioStreamChange &#40;BYTE bStreamNumber&#41;;\n\n//Select the language for System Menu according to the Language Code\nDWORD MenuLanguageSelect &#40;WORD dwCode&#41;;\n\n//In Angle Block, change the Angle\nDWORD AngleChange &#40;BYTE bAngleNumber&#41;;\n\n//Set the Parental Level\nDWORD ParentalLevelSelect &#40;BYTE bParentalLevel&#41;;\n\n//Set the Country Code for Parental Management\nDWORD ParentalCountrySelect &#40;DWORD dwCountryCode&#41;;\n\n//Change the mode of Audio Mixing mode for Karaoke&#46;\nDWORD KaraokeAudioPresentationMode &#40;DWORD dwMode&#41;;\n\n//Start or stop title repeat\nDWORD RepeatTitle&#40;void&#41;;\n\n//Start of stop chapter repeat\nDWORD RepeatChapter&#40;void&#41;;\n\n//Start AB repeat\nDWORD RepeatAB&#40;void&#41;;\n\n//Clear Repeat AB;\nDWORD ClearRepeatAB&#40;void&#41;;\n\n//Store bookmark\nDWORD StoreBookmark&#40;void *pBookmark&#41;;\n\n//Resume playback from bookmark\nDWORD ResumeBookmark&#40;void *pBookmark&#41;;\n\n//Stop the current presentation and start the presentation from the beginning \n//of the return play item&#46;\nDWORD ReturnPGSearch &#40;void&#41;;\n\n//Stop the current presentation and start the presentation from the beginning \n//of the default play item&#46;\nDWORD DefaultPGSearch &#40;void&#41;;\n\n// For VCD button selection\nDWORD NumericSelections &#40;BYTE sel&#41;;\n\n// Fastforward &#40;VCD and DVD&#41;\nDWORD FastForward &#40;BYTE bSpeed&#41;;\n\n// Rewind &#40;VCD and DVD&#41;\nDWORD Rewind &#40;BYTE bSpeed&#41;;\n\n// Step and pause MPEG playback\nDWORD FMPStep &#40;DWORD nFrames&#41;;\n\n// Region Code Control\nDWORD RegionCodeControl &#40;BOOL bInit, DWORD dwArg1, DWORD dwArg2&#41;;\n\n/*******************************************************************************\n* CD-Audio Commands\n*******************************************************************************/\nDWORD	CDDANextTrack&#40; void &#41;;\nDWORD	CDDAPrevTrack&#40; void &#41;;\nDWORD	CDDAFastForward&#40; DWORD dwSpeed &#41;;\nDWORD	CDDARewind&#40; DWORD dwSpeed &#41;;\n#define CDDA_MODE_REPEAT_NONE		0\n#define CDDA_MODE_REPEAT_TRACK		1\n#define CDDA_MODE_REPEAT_DISC		2\nDWORD	CDDARepeat&#40; DWORD dwMode &#41;;\nDWORD	CDDAGetNumberOfTracks&#40; BYTE* pbTrackNumber &#41;;\nDWORD	CDDAGetTrackDuration&#40; BYTE bTrackNumber, DWORD *pbSeconds &#41;;\nDWORD	CDDAGetStatus&#40; DWORD *pdwMode, BYTE *pbTrack, DWORD *pdwSeconds &#41;;\nDWORD	CDDAPlayTrack&#40; DWORD dwTrack, DWORD dwMinutes, DWORD dwSeconds&#41;;\n\n/*******************************************************************************\n* Local Storage of Settings Commands\n*******************************************************************************/\nDWORD FMPWriteProfileWord&#40;	DWORD dwKeyIndex /* key index */, DWORD wValue /* value */&#41;;\nDWORD FMPGetProfileWord  &#40;	DWORD dwKeyIndex /* key index */&#41;;\n\n// DVD Index Keys\n#define RMREG_LANGUAGECODE            0x00\n#define RMREG_MENU_LANGUAGECODE       0x01\n#define RMREG_AUDIO_LANGUAGECODE      0x02\n#define RMREG_SUBPICTURE_LANGUAGECODE 0x03\n#define RMREG_SUBPICTURE_DISPLAY_MODE 0x04\n#define RMREG_USER_ASPECT_RATIO		  0x05\n#define RMREG_USER_VIDEO_OUTPUT_MODE  0x06\n#define RMREG_COUNTRYCODE             0x07\n#define RMREG_PARENTALCONTROL         0x08\n#define RMREG_PASSW_LOW_WORD          0x09\n#define RMREG_PASSW_HIGH_WORD         0x0A\n#define RMREG_PASSW_STATE             0x0B\n#define RMREG_AUTOPLAY                0x0C\n#define RMREG_PBC_OFF				  0x0D\n#define RMREG_MACROVISION             0x0E\n#define RMREG_REGION_CODE             0x0F\n\n#define RMREG_AUDIO_TYPE              0x10\n#define RMREG_OUTPUTMODE              0x11\n#define RMREG_HDTV_RES                0x12\n\n#define RMREG_MAX					  0x13\n\n\n/*******************************************************************************\n* FMP Commands\n*******************************************************************************/\n#define FMP_DRIVERUNLOAD                0xDD   /* Unload the MPEG driver */\n#define FMP_CLOSEFILE                   0xCC   /* Close the file and get ready to play another one */\n#define FMP_STOPFILE                    0xBB   /* Stop Playing a File and get ready to replay at the beginning */\n#define FMP_PLAYFILE                    0xAA   /* Really Play a File */\n#define FMP_OPEN                        0x01   /* Open New Stream */\n#define FMP_CLOSE                       0x02   /* Close Stream */\n#define FMP_PLAY                        0x03   /* Play Stream */\n#define FMP_PAUSE                       0x04   /* Pause Stream */\n#define FMP_STOP                        0x05   /* Stop Stream */\n#define FMP_SEEK                        0x06   /* Seek inside the stream */\n#define FMP_STEP                        0x07   /* Step a number of frames inside the stream */\n#define FMP_SET                         0x09   /* Driver Settings &#58; set */\n#define FMP_GET                         0x0A   /* Driver Settings &#58; get */\n#define FMP_PUSH                        0x0B   /* Push model &#58; push one buffer*/\n#define FMP_FLUSH                       0x0C   /* Flush all the data inside the driver */\n#define FMP_GETBUFFER                   0x0D   /* Get a buffer from the driver */\n#define FMP_EJECT_DISC					0x0E   /* issue an eject command to the dvdrom */\n#define FMP_LOAD_DISC					0x0F   /* issue a load command to the dvdrom */\n#define FMP_SHOW_BITMAP					0x10   /* show a bitmap on the screen */\n#define FMP_ENABLE_OSD					0x11   /* enable osd functionality */\n#define FMP_SET_SOURCE					0x12   /* set the source capture dimensions */\n#define FMP_SET_VISIBLE_SOURCE			0x13   /* set the dimensions in source to be zoomed in destination*/\n#define FMP_SET_DESTINATION				0x14   /* set the destination rectangle */\n#define FMP_ENABLE_OVERLAY				0x15   /* enable overlay functionality */\n#define FMP_ENABLE_FULLSCREEN			0x16   /* enable full screen functionality */\n#define FMP_IS_DISC_LOADED				0x17   /* Test whether a Disc is present in the drive */\n#define FMP_QUERY_INTERFACE             0x18   /* Query Specific interfaces*/\n#define FMP_REGISTER_INTERFACE          0x19   /* Register external interface */\n#define FMP_SET_VIDEOPORT_DIMENSIONS	0x1a   /* set dimensions of the output video port */\n#define FMP_PROPERTY_GET				0x1b   /* get properties */\n#define FMP_PROPERTY_SET				0x1c   /* get properties */\n#define FMP_PROPERTY                    0x1d   /* reference to the FMPProperty&#40;&#41; function, I need that flag&#46; &#40;Pascal&#41; */\n#define FMP_REGIONCONTROL               0x1e   /* Region Code Control */\n\n#define FMP_NAV_EOS                     0x0100 /* Simulate EOS &#40;internal function&#41; */\n#define FMP_NAV_CHECK_EOS               0x0101 /* Check if EOS is needed &#40;internal function&#41; */\n#define FMP_NAV_AUTOPAUSE				0x0102 /* auto pause sector &#40;SVCD&#41; has finished */\n#define FMP_NAV_COMMAND					0x0103 /* general navigation command */\n\n#define FMP_TITLEPLAY				        0x0200 /* DVD Title Play */\n#define FMP_TIME_PLAY                       0x0205 /* Time Play */\n#define FMP_TIME_SEARCH                     0x0208 /* Time Search */\n#define FMP_RESUME                          0x0210 /* Resume */\n#define FMP_PREV_PG_SEARCH                  0x020A /* Previous Program Search */\n#define FMP_NEXT_PG_SEARCH                  0x020C /* Next Program Search */\n#define FMP_AST_STREAM_CHANGE               0x021B /* Audio Stream Change */\n#define FMP_QUERY_ATTRIBUTE                 0x0223\n#define FMP_FORWARD_SCAN                    0x020D /* Forward Scan */\n#define FMP_BACKWARD_SCAN                   0x020E /* Backward Scan */\n#define FMP_REPEAT_TITLE                    0x0224 /* Repeat Title */\n#define FMP_REPEAT_CHAPTER                  0x0225 /* Repeat Chapter */\n#define FMP_REPEAT_AB						0x0226 /* AB Repeat */\n#define FMP_CLEAR_REPEAT_AB					0x0227 /* AB Repeat */\n#define FMP_STORE_BOOKMARK                  0x0228 /* Store bookmark */\n#define FMP_RESUME_BOOKMARK                  0x0229 /* Restore bookmark */\n\n\n#define FMP_DVD_PTT_PLAY                        0x0201 /* Chapter Play */\n#define FMP_DVD_STOP                            0x0206   /* Stop */    \n#define FMP_DVD_GO_UP                           0x0207 /* Go Up */\n#define FMP_DVD_PTT_SEARCH                      0x0209 /* Chapter Search */\n#define FMP_DVD_TOP_PG_SEARCH                   0x020B /* Top Program Search */\n#define FMP_DVD_MENU_CALL                       0x020F /* Menu Call */\n#define FMP_DVD_UPPER_BUTTON_SELECT             0x0211 /* Upper Button Select */\n#define FMP_DVD_LOWER_BUTTON_SELECT             0x0212 /* Lower Button Select */\n#define FMP_DVD_LEFT_BUTTON_SELECT              0x0213 /* Left Button Select */\n#define FMP_DVD_RIGHT_BUTTON_SELECT             0x0214 /* Right Button Select */\n#define FMP_DVD_BUTTON_ACTIVATE                 0x0215 /* Button Activate */\n#define FMP_DVD_BUTTON_SELECT_AND_ACTIVATE      0x0216 /* Button Select and Activate */\n#define FMP_DVD_STILL_OFF                       0x0217 /* Still Off */\n#define FMP_DVD_MENU_LANGUAGE_SELECT            0x021A /* Menu Language Select */\n#define FMP_DVD_SPST_STREAM_CHANGE              0x021C /* Subpicture Stream Change */\n#define FMP_DVD_ANGLE_CHANGE                    0x021D /* Angle Change */\n#define FMP_DVD_PARENTAL_LEVEL_SELECT           0x021F /* Parental Level Change */\n#define FMP_DVD_PARENTAL_COUNTRY_SELECT         0x0220 /* Parental Country Change*/\n#define FMP_DVD_KARAOKE_AUDIO_PRESENTATION      0x0221 /* Karaoke Audio Presentation change */\n#define FMP_DVD_VIDEO_PRESENTATION_MODE_CHANGE  0x0222 /* Video Presentation Mode Change */\n\n#define FMP_VCD_STOP_FOR_RESUME					0x0300\n#define FMP_VCD_RETURN_PG_SEARCH                0x0306 /* VCD Return Play Item Search */\n#define FMP_VCD_DEFAULT_PG_SEARCH               0x0307 /* VCD Default Play Item Search */\n#define FMP_VCD_NUMERIC_SELECTIONS				0x0308 /* VCD Numeric Selection */\n#define FMP_VCD_FAST_FORWARD					0x0309 /* VCD Numeric Selection */\n#define FMP_VCD_REWIND							0x030A /* VCD Numeric Selection */\n\n#define FMP_CDDA_NEXT_TRACK						0x0400\n#define FMP_CDDA_PREV_TRACK						0x0401\n#define FMP_CDDA_TRACK_DURATION					0x0402\n#define FMP_CDDA_PLAY_TRACK						0x0403\n\n#define FMP_WRITE_PROFILE_WORD					0x0500\n#define FMP_GET_PROFILE_WORD					0x0501\n\n#define FMP_ANALOG_OVERLAY						0x10000000 /* Analog Overlay */\n\n#define FMP_EXTENDED_CMD_MASK					0xF0000000 /* Extended commands mask */\n#define FMP_EXTENDED_SUBCMD_MASK				0x0FFFFFFF /* Extended subcommands mask */\n\n\n/*******************************************************************************\n// FMP Errors\n*******************************************************************************/\n#define FMPE_OK                           0x00000000    /* No error */\n#define FMPE_ERROR                        0xFFFFFFFF	/* Error &#58; use getLastError to get the Error code */\n#define FMPE_DRIVER_OPEN                  0x00000001    /* Driver Already Open &#40;FMPOpen&#41; */\n#define FMPE_DRIVER_NOT_OPEN              0x00000002    /* Driver Not Open &#40;FMPClose&#41; */\n#define FMPE_CANNOT_OPEN_DRIVER           0x00000003    /* Cannot open the MPEG driver */\n#define FMPE_NOT_ENOUGH_MEMORY            0x00000004    /* No more memory available */\n#define FMPE_NOT_IMPLEMENTED              0x00000005    /* This function is not implemented */\n#define FMPE_INVALID_INDEX                0x00000006    /* Invalid Index &#40;settings&#41;*/\n#define FMPE_READ_ONLY                    0x00000007    /* Read Only settings */\n#define FMPE_PUSH_WHILE_STOPPED           0x00000008    /* Pushing data in Stopped state */\n#define FMPE_INVALID_PARAMETER            0x00000009    /* Invalid Parameter */\n#define FMPE_NO_MPEG_SERVER               0x0000000A    /* No MPEG Server is running*/\n#define FMPE_NO_ANALOG_OVERLAY_CAPABILITY 0x0000000B	/* No Analog Overlay */\n#define FMPE_INVALID_STREAM_TYPE          0x0000000C	/* This function does not support the current stream type */\n\n#define FMPE_ENTRY_MOD_INIT_FAILED        0x0000000D    /* MPEGDriverEntry Failed &#58; Module loader failed to initialize */\n#define FMPE_ENTRY_HWL_INIT_FAILED        0x0000000E    /* MPEGDriverEntry Failed &#58; Failed to create MPEG Hardware driver*/\n#define FMPE_ENTRY_DVDDEV_INIT_FAILED     0x0000000F    /* MPEGDriverEntry Failed &#58; Failed to create DVD-ROM device driver*/\n\n#define FMPE_CDDA_FAILURE                 0x00000010    /* CDDANextTrack &#58; Failure or end of disk has been reached &#40;or beginning&#41;*/\n\n#define FMPE_UNEXPECTED					  0x00000011    /* Unexpected unknown errors for VCD and SVCD */\n#define FMPE_DISABLED                     0x00000012    /* The function is currently is disabled */\n#define FMPE_INVALIDARG                   0x00000013    /* The list offset requested is out of range */\n#define FMPE_TIMERACTIVATED               0x00000014    /* The timer has been activated */\n#define FMPE_FAILURE                      0x00000015    /* For VCD and SVCD failure */\n/*******************************************************************************\n* FMP Settings\n*******************************************************************************/\n#define FMPI_TRICKMODE                  0x00000001\n#define FMPI_STC                        0x00000002\n#define FMPI_PTS                        0x00000003\n#define FMPI_AUDIO_COUNT                0x00000004\n#define FMPI_AUDIO_SELECT               0x00000005\n#define FMPI_NPT_REFERENCE				0x00000006\n#define FMPI_STC_REFERENCE				0x00000007\n#define FMPI_BRIGHTNESS					0x00000008\n#define FMPI_SATURATION					0x00000009\n#define FMPI_CONTRAST					0x0000000A\n\n#define FMPI_LEFT_VOLUME				0x0000000B\n#define FMPI_RIGHT_VOLUME				0x0000000C\n#define FMPI_MUTE						0x0000000D\n#define FMPI_AUDIO_OUTPUT				0x0000000E\n#define FMPI_AUDIO_MODE					0x0000000F\n#define FMPI_AUDIO_VCXO					0x00000010\n\n#define FMPI_VIDEOOUT					0x00000011\n#define FMPI_SOURCE_WINDOW				0x00000012\n#define FMPI_VISIBLE_SOURCE_WINDOW		0x00000013\n#define FMPI_DESTINATION_WINDOW			0x00000014\n#define FMPI_OVERLAY_FLAGS				0x00000015\n#define FMPI_VIDEO_SPEED				0x00000016\n#define FMPI_VIDEOPORT_WINDOW			0x00000017\n#define FMPI_VIDEOASPECT				0x00000018\n#define FMPI_AUDIO_SPEED				0x00000019\n\n#define FMPI_DISC_TYPE					0x00001001\n\n#define	FMPI_ANGLES_AVAILABLE           0x00001002 \n#define	FMPI_AUDIO_STREAMS_AVAILABLE	0x00001003  \n#define	FMPI_BUTTONS_AVAILABLE			0x00001004  \n#define	FMPI_CAN_SCAN					0x00001005  \n#define	FMPI_CAN_SEEK					0x00001006   \n#define	FMPI_CURRENT_ANGLE				0x00001007   \n#define	FMPI_CURRENT_AUDIO_STREAM		0x00001008   \n#define	FMPI_CURRENT_BUTTON				0x00001009   \n#define	FMPI_CURRENT_CHAPTER			0x0000100A   \n#define	FMPI_CURRENT_DOMAIN				0x0000100B   \n#define	FMPI_CURRENT_POSITION			0x0000100C   \n#define	FMPI_CURRENT_SUBPICT_STREAM		0x0000100D   \n#define	FMPI_CURRENT_TIME				0x0000100E   \n#define	FMPI_CURRENT_TITLE				0x0000100F   \n#define	FMPI_SUBPICTURE_ON				0x00001010   \n#define	FMPI_SUBPICTURE_STREAM_AVAILABLE	0x00001011  \n#define	FMPI_TITLES_AVAILABLE			0x00001012   \n#define	FMPI_TOTAL_TITLE_TIME			0x00001013   \n#define FMPI_CURRENT_SPEED				0x00001014\n\n#define	FMPI_SVCD_TRICK_MODE			0x00002000\n#define	FMPI_CURRENT_TRACK				0x00002001\n#define	FMPI_SVCD_DISCONTINUITY			0x00002002\n#define	FMPI_SVCD_CURRENT_VOLUME		0x00002003\n#define	FMPI_SVCD_VOLUMES_AVAILABLE		0x00002004\n#define	FMPI_TRACKS_AVAILABLE			0x00002005\n#define	FMPI_TOTAL_TRACK_TIME			0x00002006\n#define	FMPI_CDDA_REPEAT_MODE			0x00002007\n\n/*******************************************************************************\n* FMP Messages\n*******************************************************************************/\n#define FMPM_ERROR                         0x00000001\n#define FMPM_STARVATION                    0x00000002\n#define FMPM_EOS                           0x00000003\n#define FMPM_DVDROM_NOT_READY			   0x00000004\n#define FMPM_AUTOPAUSE					   0x00000005	\n#define FMPM_REGION_MISMATCH			   0x00000006\n#define FMPM_TRICK_MODE_CHANGE		   0x00000007\n\n#define FMPM_DVD_ANGLE_CHANGE              0x00000100 \n#define FMPM_DVD_ANGLES_BLOCK              0x00000101 \n#define FMPM_DVD_AUDIO_STREAM_CHANGE       0x00000102 \n#define FMPM_DVD_BUTTONS_CHANGE            0x00000103 \n#define FMPM_DVD_BUTTON_CHANGE             0x00000104 \n#define FMPM_DVD_PROGRAM_START             0x00000105 \n#define FMPM_DVD_CURRENT_TIME              0x00000106 \n#define FMPM_DVD_DOMAIN_CHANGE             0x00000107 \n#define FMPM_DVD_NO_FP_PGC                 0x00000108 \n#define FMPM_DVD_PARENTAL_LEVEL_CHANGE     0x00000109 \n#define FMPM_DVD_PLAYBACK_STOPPED          0x0000010A \n#define FMPM_DVD_STILL_OFF                 0x0000010B \n#define FMPM_DVD_STILL_ON                  0x0000010C \n#define FMPM_DVD_SUBPICTURE_STREAM_CHANGE  0x0000010D \n#define FMPM_DVD_TITLE_CHANGE              0x0000010E \n#define FMPM_DVD_VALID_UOPS_CHANGE         0x0000010F \n#define FMPM_DVD_CHAPTER_CHANGE            0x00000110 \n#define FMPM_DVD_PARENTAL_ERROR			   0x00000111\n#define FMPM_DVD_PARENTAL_CHECK			   0x00000112\n#define FMPM_DVD_TITLE_AUTHENTICATION_ERR  0x00000113\n#define FMPM_DVD_DISC_AUTHENTICATION_ERR   0x00000114\n#define FMPM_DVD_END_PLAYBACK			   0x00000115\n#define	FMPM_DVDROM_ERR					   0x00000116\n#define FMPM_DVD_MACROVISION_LEVEL         0x00000117\n#define FMPM_DVD_FATAL_ERROR			   0x00000118\n\n#define FMPM_SVCD_PSD_END				   0x00000200\n#define FMPM_CDDA_PSD_END				   0x00000300\n\n/*******************************************************************************\n* FMP Values\n*******************************************************************************/\n#define FMPV_TRICKMODE_NOCHANGE         0x00000000\n#define FMPV_TRICKMODE_START            0x00000001\n#define FMPV_TRICKMODE_END              0x00000002\n\n// FMPI_VIDEOOUT related values&#46;\n// They have to match values in mpegcmn&#46;h used by hardware library&#58;\n//		Bit7,Bit6 = COMPOSITE, COMPONENT_YUV, COMPONENT_RGB\n//		Bit4      = SET_TV_AS_SOURCE, SET_TV_AS_USER\n//		Bit2      = SET_ONETOONE, SET_SCALE\n//		Bit3,Bit1 = SET_NTSC, SET_PAL, SET_PAL60, SET_PALM\n//		Bit5,Bit0 = SET_VGA, SET_TV, SET_HDTV\n#define FMPV_VIDEOOUT_COMPONENT_MASK	0x00C0\n#define FMPV_VIDEOOUT_COMPOSITE			0x0000\n#define FMPV_VIDEOOUT_COMPONENT_YUV		0x0080\n#define FMPV_VIDEOOUT_COMPONENT_RGB		0x00C0\n\n#define FMPV_VIDEOOUT_MODE_MASK			0x0021\n#define FMPV_VIDEOOUT_VGA				0x0000\n#define FMPV_VIDEOOUT_TV				0x0001\n#define FMPV_VIDEOOUT_HDTV				0x0020\n\n#define FMPV_VIDEOOUT_STANDARDTV_MASK	0x000A\n#define FMPV_VIDEOOUT_NTSC				0x0000\n#define FMPV_VIDEOOUT_PAL 				0x0002\n#define FMPV_VIDEOOUT_PAL60				0x0008\n#define FMPV_VIDEOOUT_PALM				0x000A\n\n#define FMPV_VIDEOOUT_ONETOONE			0x0000\n#define FMPV_VIDEOOUT_SCALE				0x0004\n\n#define FMPV_VIDEOOUT_TV_AS_SOURCE		0x0010\n#define FMPV_VIDEOOUT_TV_AS_USER		0x0000\n\n// FMPI_VIDEOASPECT related values - they should be in sync\n//			with KSPROPERTY_MPEG2VID enum defined in cgraphm&#46;h\n// FMPV_VIDEOASPECT_4x3_16x9_ZOOM_ON is not recommended for DVD because\n// the subpicture is not visible\n// Syntax of the setting name&#58;\n//		FMPV_VIDEOASPECT_InputAspectRatio_OutputAspectRatio_UserDisplayOption\n//		InputAspectRatio - video material aspect ratio&#58; 4x3 or 16x9\n//		OutputAspectRatio - output display device&#58; 4x3=standardTV or 16x9=wide TV\n//		UserDisplayOption - user choice if the input and output aspect ratio are not\n//			the same and if video material permit\n#define FMPV_VIDEOASPECT_4x3_4x3_NORMAL			0x0002	// normal\n#define FMPV_VIDEOASPECT_4x3_16x9_ZOOM_ON		0x0003	// upscale video to fit width keeping 4&#58;3 aspect ratio, cropping top and bottom\n#define FMPV_VIDEOASPECT_4x3_16x9_ZOOM_OFF		0x0004	// video not scaled horizontally centered, black on sides\n#define FMPV_VIDEOASPECT_16x9_16x9_NORMAL		0x0005	// normal\n#define FMPV_VIDEOASPECT_16x9_4x3_PANSCAN		0x0006	// pan and scan\n#define FMPV_VIDEOASPECT_16x9_4x3_LETTERBOX		0x0007	// letter box\n\n// FMPI_AUDIO_MODE related values&#46;\n// They have to match values in mpegcmn&#46;h used by hardware library&#58;\n#define FMPV_AUDIO_MODE_STEREO			0x0000\n#define FMPV_AUDIO_MODE_RIGHT_ONLY		0x0001\n#define FMPV_AUDIO_MODE_LEFT_ONLY		0x0002\n#define FMPV_AUDIO_MODE_MONOMIX			0x0003\n/*******************************************************************************\n* DVD Error Messages\n*******************************************************************************/\n\n#define DVDE_HANDLE                     0x2000 \n#define DVDE_ARG                        0x2100\n#define DVDE_TITLENUMBER                0x2200\n#define DVDE_PTTNUMBER                  0x2300\n#define DVDE_UNAUTHORIZED				0x2400\n#define DVDE_OUT_OF_MEM					0x2500\n#define DVDE_INCORRECT_STRUCT			0x2600\n#define DVDE_NORESUME					0x2700\n#define DVDE_PARENTAL_LOCK				0x2800\n\n/*******************************************************************************\n* DVD Menu ID\n*******************************************************************************/\n#define DVD_TITLE_ID                            0x02\n#define DVD_ROOT_ID                             0x03\n#define DVD_AUDIO_ID                            0x05\n#define DVD_SUBPICTURE_ID                       0x04\n#define DVD_ANGLE_ID                            0x06\n#define DVD_PTT_ID                              0x07\n\n/*******************************************************************************\n* DVD Index\n*******************************************************************************/\n#define FMPI_DVD_VTS_NS                          0x0A01			// for internal use only\n#define DVDI_TT_SRPTI                            0x0001\n#define DVDI_AST_ATR                             0x0002\n#define DVDI_SPST_ATR                            0x0003\n#define DVDI_SPRM                                0x0004\n#define DVDI_VIDEO_MODE                          0x0005\n#define DVDI_TIME                                0x0006			// for internal use only\n#define DVDI_UOP_CTL                             0x0007			// for internal use only\n#define DVDI_STATE                               0x0008			// for internal use only\n#define DVDI_REPEATMODE                          0x0009			// for internal use only\n#define DVDI_VATR								 0x000A			// video attribute\n#define DVDI_CURRENT_UOPS						 0x000B\n\n\n/*******************************************************************************\n* System Parameters &#40;SPRMs&#41;\n*******************************************************************************/\n// &#40;VI4-157&#41;\n\n#define M_LCD				0\n#define ASTN				1\n#define SPSTN				2	\n#define AGLN				3	\n#define TTN					4\n#define VTS_TTN				5\n#define TT_PGCN				6\n#define PTTN				7\n#define HL_BTTN				8\n#define NV_TMR				9\n#define NV_TMR_TT_PGCN		10\n#define P_AMXMD				11\n#define CTY_CD				12\n#define PTL_LVL				13\n#define P_CFGV				14\n#define P_CFGA				15\n#define INI_LCD_AST			16\n#define INI_LCD_EXT_AST		17\n#define INI_LCD_SPST		18\n#define INI_LCD_EXT_SPST	19\n#define PRC					20\n\n\n/*******************************************************************************\n* Structures\n*******************************************************************************/\n#define MAX_AST 8		// 0&#46;&#46;7\n#define MAX_SP 32		// 0&#46;&#46;31\n#define MAX_TT 100		// 1&#46;&#46;99\n#define MAX_AGL 10		// 1&#46;&#46;9\n\n// TT_SRPTI\ntypedef struct &#123;\n	BYTE bTT_SRP_Ns;					\n	BYTE bALG_Ns &#91;MAX_TT&#93;;				\n	WORD wPTT_Ns &#91;MAX_TT&#93;;				\n&#125; TT_SRPTI, * PTT_SRPTI;\n\n// AST_ATR\ntypedef struct &#123;\n	BYTE bAST_Ns;\n	BOOL bAvailable &#91;MAX_AST&#93;;\n	BYTE bAudioCodingMode &#91;MAX_AST&#93;;\n	BOOL bMultichannelExtenstion &#91;MAX_AST&#93;;\n	BYTE bAudioType &#91;MAX_AST&#93;;\n	BYTE bAudioApplicationMode &#91;MAX_AST&#93;;\n	BYTE bQuantization &#91;MAX_AST&#93;;\n	BYTE bfs &#91;MAX_AST&#93;;\n	BYTE bNumberOfAudioChannels &#91;MAX_AST&#93;;\n	WORD wLanguageCode &#91;MAX_AST&#93;;\n	WORD wLanguageCodeExtension &#91;MAX_AST&#93;;\n	BYTE bApplicationExtension &#91;MAX_AST&#93;;\n&#125; AST_ATR, *PAST_ATR;\n\n// SPST_ATR\ntypedef struct &#123;\n	BYTE bSPST_Ns;\n	BOOL bAvailable &#91;MAX_SP&#93;;\n	BYTE bSubpictureType &#91;MAX_SP&#93;;\n	WORD wLanguageCode &#91;MAX_SP&#93;;\n	WORD wLanguageCodeExtension &#91;MAX_SP&#93;;\n&#125; SPST_ATR, *PSPST_ATR;\n\n// VIDEO_MODE\ntypedef struct &#123;\n	BYTE bAspectRatio;\n	BYTE bDisplayMode;\n&#125; VIDEO_MODE, *PVIDEO_MODE;\n\n#define CRMBookmark_SIZE	9400\n\n/******************************************************************************\n* CDDA Index\n*******************************************************************************/\n#define CDDAI_TOC 0x0010\n\n/*******************************************************************************\n* Structures\n*******************************************************************************/\ntypedef DWORD CDDA_CONTENT&#91;99&#93;;\ntypedef DWORD* PCDDA_CONTENT&#91;99&#93;; \n	\n/*******************************************************************************\n* FMPAnalogOverlay Functions\n*******************************************************************************/\n\nDWORD FMPAnalogOverlay&#40;DWORD SubCommand,DWORD dwArg1,DWORD dwArg2,\n		       DWORD dwArg3,DWORD dwArg4,DWORD dwArg5&#41;;\n\n// FMPAnalogOverlay subcommand\n#define FMP_ANALOG_OVERLAY_ACCESS 0x1000\n\n// FMPAnalogOverlay subcommand\n#define FMP_ANALOG_OVERLAY_GET 0x1001\n#define FMP_ANALOG_OVERLAY_SET 0x1002\n\n// General commands\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGAKEY 0x202 // vgakey selection &#40;dwArg2=R&lt;&lt;16+G&lt;&lt;8+B&#46; indexed mode is not supported&#41; \n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_DISPLAYRESOLUTION 0x203 // send dwArg2=depth &#40;8,16,24,32&#41;, dwArg3=physical display width, dwArg4=physical display height\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_MODE 0x204  // mode selection &#40;dwArg2=0&#40;none&#41;,1&#40;rectangle&#41;,2&#40;overlay&#41;&#41;\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_OVERLAY_CABLE_PRESENT 0x205 // get only&#58; 1=yes, 0=no\n\n// fine-tuning\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_XOFFSET 0x301\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_YOFFSET 0x302\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGACORRECTION 0x303\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGARUPPER 0x304\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGARLOWER 0x305\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGAGUPPER 0x306\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGAGLOWER 0x307\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGABUPPER 0x308\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_VGABLOWER 0x309\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_FINEADJUSTMENT 0x30a\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_HFREQUENCY 0x30b\n#define FMP_ANALOG_OVERLAY_ATTRIBUTE_JITTERADJUSTMENT 0x30c\n\n// FMPAnalogOverlay subcommand \n#define FMP_ANALOG_OVERLAY_AUTOCALIBRATION 0x1003\n/* then dwArg2=0x88 YOffset autocalibration &#40;horizontal at top pattern&#41;\n        dwArg2=0x89 XOffset autocalibration &#40;vertical at left pattern&#41;\n        dwArg2=0x8a Correction autocalibration &#40;vertical offset right pattern&#41;\n   \n	dwArg2=0x80 Color &#40;WHITE&#41; autocalibration &#40;full white vertical bar pattern&#41;\n	dwArg2=0x82 Color &#40;GREY&#41; autocalibration &#40;half white vertical bar pattern&#41; */\n\n/*******************************************************************************\n* Misc Values\n*******************************************************************************/\n\n#define FMP_MPEG_SERVER					&quot;REALmagic/MPEGsvr&quot;\n#define FMP_MPEG_CLIENT					&quot;REALmagic/MPEGclient&quot;\n\n#ifdef __cplusplus\n&#125;\n#endif\n\n#endif\n\n\n\n\n\n\n\n\n\n[/code:35otkmf4]\n\n\n\nLib, include with email check please.....\n\nthank.','',0,'gIA=','35otkmf4',1,0,'',281,0,0),(47631,9858,2,1294,0,'200.45.184.4',1202200907,1,0,1,1,1,0,'','Actualización de Bases de Datos','Hola amigos, soy nuevo en el foro: David Barrio (Argentina)\nTengo armada una aplicación para la actualización de las bases de datos de los sistemas y NO la puedo hacer andar, se las dejo para que la vean, o bien si tienen alguna para sugerirme\n\nmuchas gracias\n\nDavid Barrio\n<!-- e --><a href=\"mailto:davidbarrio_arg@hotmail.com\">davidbarrio_arg@hotmail.com</a><!-- e -->\n\n[code:c85dvizh]#include \'Directry&#46;ch\'\n\nFunction ActuArchivos&#40;&#41;\nlocal oDlgSe\nlocal ORIGEN &#58;=SPACE&#40;60&#41;  , oORIGEN ,;\n			DESTINO&#58;=SPACE&#40;60&#41; , oDESTINO\nlocal oICOCMOV\n\nDEFINE DIALOG oDlgSe FROM 0,0 TO 10,99 TITLE \'Actualización de BASES de DATOS\'\n\n   @  0&#46;875, 1 SAY \'Ubicación ORIGEN&#58;\' of oDlgSe\n   @     13,85 BTNBMP oICOCMOV of oDlgSe ;\n                      FILE \'LUPA2&#46;BMP\' ;\n											SIZE 10,10 ;\n                      ACTION&#40;ORIGEN&#58;=DIRECMain&#40;&#41; ,;\n                             ORIGEN&#58;=ORIGEN+\'\\\' ,;\n                             oORIGEN&#58;refresh&#40;&#41; &#41;\n   @     01,13 GET oORIGEN var ORIGEN of oDlgSe\n\n   @ 1&#46;750, 1 SAY \'Ubicación DESTINO&#58;\' of oDlgSe\n   @     26,85 BTNBMP oICOCMOV of oDlgSe;\n                      FILE \'LUPA2&#46;BMP\';\n											SIZE 10,10 ;\n											ACTION&#40;DESTINO&#58;=DIRECMain&#40;&#41; ,;\n                             DESTINO&#58;=DESTINO+\'\\\' ,;\n                             oDESTINO&#58;refresh&#40;&#41; &#41;\n   @     02,13 GET oDESTINO var DESTINO of oDlgSe\n\n\n   @ 3,08 BUTTON \'&amp;Actualizar\' of oDlgSe ACTION &#40; ActArch&#40;ORIGEN,DESTINO&#41; , oDlgSe&#58;End&#40;&#41; &#41; SIZE 40, 10\n   @ 3,28 BUTTON \'&amp;No Actualizar\' of oDlgSe ACTION &#40; oDlgSe&#58;End&#40;&#41; &#41; SIZE 40, 10\n\nACTIVATE DIALOG oDlgSe CENTERED\n\ndbcloseall&#40;&#41;\nRETURN NIL\n\n\nFunction ActArch&#40;ORIGEN,DESTINO&#41;\n\nlocal x&#58;=DIRECTORY&#40;\'*&#46;dbf\'&#41;,;\n      NOM_DBF&#58;=&#123;&#125;\n      \nlocal TR_1&#58;=1\nlocal Paso\nlocal C1,C2,C3,C4,C5,C6,C7\nlocal AC1,AC2,AC3,AC4,AC5,AC6,AC7\nlocal Campos\n\nIf ORIGEN==\'\' &#46;or&#46; DESTINO==\'\'\n  MsgStop&#40; \'Error de Directorio ORIGEN o DESTINO\' &#41;\n  Return &#46;t&#46;\nEndIf\n*-------------------------- Carga archivos DBF en Directorio de ORIGEN\n\nX&#58;=DIRECTORY&#40;ORIGEN+\'*&#46;DBF\'&#41;\nAEVAL&#40;X,&#123;|FILE|AADD&#40;NOM_DBF,FILE&#91;F_NAME&#93;&#41;&#125;&#41;\n\n* NOM_DBF = Nombres de Archivos DBF que se deben agregar/reemplazar en carpeta de DESTINO\n* C1 = Nombre de Archivos DBF A Cambiar  &#40;En directorio de ORIGEN&#41;\n* C3 = Nombre de Archivos DBF de Transferencia  &#40;En directorio de DESTINO&#41; Cambia 1° x \'_\'\n* C4 = Nombre de Archivos DBF en Directorio de ORIGEN\n* C5 = Nombre de Archivo que debe renombrar el archivo DBF  =&gt; DB &#40;En directorio de ORIGEN&#41;\n* C6 = Nombre de Archivo DBT &#40;En directorio de ORIGEN&#41;\n* C7 = Nombre de Archivo que debe renombrar el archivo DBT  =&gt; DT &#40;En directorio de ORIGEN&#41;\n\ndbcloseall&#40;&#41;\n\nWhile TR_1&lt;=LEN&#40;NOM_DBF&#41;\n  *\n  C1&#58;=NOM_DBF&#91;TR_1&#93;        // Nombre de Archivo en DESTINO\n  *\n  C4&#58;=NOM_DBF&#91;TR_1&#93;         // Nombre de Archivo en ORIGEN\n\n	C1&#58;=FilNomArc&#40;C1&#41;\n	C4&#58;=FilNomArc&#40;C4&#41;\n\n  Paso &#58;= &#46;f&#46;\n  If &#46;NOT&#46; FILE&#40;C1&#41;                       // NO existe el archivo en Destino\n\n    If MsgNoYes&#40;oemtoansi&#40;\'Base de Dato NUEVA&#58; \'+C1+;\n		                       \', Realiza la Actualización ?\'&#41;,;\n                                oemtoansi&#40;\'Elija opcion SI/NO\'&#41; &#41;\n\n      PathSet&#40;ORIGEN&#41;\n      AC4&#58;=ER_3&#40;C4,1,1&#41;\n\n			COPY TO &amp;&#40;C1&#41;\n\n			Paso &#58;= &#46;t&#46;\n		 Else\n			Paso &#58;= &#46;f&#46;\n		EndIf\n\n  ElseIf FILE&#40;C1&#41;                         // EXISTE el Archivo en Destino\n\n		* En C3 coloco el NOMBRE archivo a reemplazar cambiando\n		* la 1° letra del Nombre por el 1&#40;UNO&#41;\n		* ejemplo \'CUENTA&#46;DBF\' pasa a \'_UENTA&#46;DBF\'\n\n    If MsgNoYes&#40;oemtoansi&#40;\'Base de Dato a Actualizar&#58; \'+C1+;\n		                       \', Realiza la Actualización ?\'&#41;,;\n                                oemtoansi&#40;\'Elija opcion SI/NO\'&#41; &#41;\n\n      C3&#58;=\'_\'+SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,2,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;&#41;\n\n      MsgWait&#40; \'Guardando Información de Base de Dato de DESTINO de&#58; \'+C1+\' en \'+C3 &#41;\n\n      PathSet&#40;DESTINO&#41;\n			use &amp;&#40;C1&#41;\n			pack\n			COPY TO &amp;&#40;C3&#41;\n			DBCLOSEALL&#40;&#41;\n			use &amp;&#40;c3&#41;\n			DBCLOSEALL&#40;&#41;\n\n      MsgWait&#40; \'Copiando Nueva Base de Dato en DESTINO&#58; \'+C4 &#41;\n\n      PathSet&#40;ORIGEN&#41;\n      use &amp;&#40;C4&#41;\n      PathSet&#40;DESTINO&#41;\n			COPY TO &amp;&#40;DESTINO+C1&#41;\n			DBCLOSEALL&#40;&#41;\n      PathSet&#40;DESTINO&#41;\n			use &amp;&#40;c1&#41;\n			ZAP\n			pack\n			DBCLOSEALL&#40;&#41;\n\n      MsgWait&#40; \'Copiando Información Base de Dato&#58; \'+C3+\' en \'+C1 &#41;\n      PathSet&#40;DESTINO&#41;\n      AC1&#58;=ER_3&#40;C1,1,1&#41;\n      AC3&#58;=ER_3&#40;C3,1,1&#41;\n		  Campos &#58;= FCOUNT&#40;&#41;\n		\n		  While !eof&#40;&#41;\n        DbSelectArea&#40;AC1&#41;\n        &amp;&#40;AC1&#41;-&gt;&#40; DBAPPEND&#40;&#41; &#41;\n		  	FOR x = 1 TO Campos\n         &amp;&#40;AC1&#41;-&gt;&amp;&#40;FIELDNAME&#40;x&#41;&#41; &#58;= &amp;&#40;AC3&#41;-&gt; &amp;&#40;FIELDNAME&#40;x&#41;&#41;\n        NEXT x\n        DbSelectArea&#40;AC3&#41;\n        DBSKIP&#40;&#41;\n      EndDo\n  		Paso &#58;= &#46;t&#46;\n		Else\n      Paso &#58;= &#46;f&#46;\n		EndIf\n\n	Else\n    MsgStop&#40; \'Error de Actualización de Archivos&#58; \'+C4 &#41;\n		Paso &#58;= &#46;f&#46;\n  EndIf\n\n	If Paso\n    MsgInfo&#40; \'Archivo ACTUALIZADO&#58; \'+C1 &#41;\n    \n    PathSet&#40;ORIGEN&#41;\n  	*-------------------------\n	  * Renombrar los archivos DBF y DBT de ORIGEN para que NO los transfieran de nuevo\n			 			* Carga en C5 el nombre como debe renombrar el archivo de ORIGEN &#40;de DBF a DB&#41;\n    C5&#58;=SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,1,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;-3&#41;+\'DB\'\n						* Carga en C6 el nombre del posible archivo DBT\n    C6&#58;=SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,1,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;-3&#41;+\'DBT\'\n						* Carga en C7 el nombre como debe renombrar el archivo de ORIGEN &#40;de DBT a DT&#41;\n    C7&#58;=SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,1,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;-3&#41;+\'DT\'\n\n		If FILE&#40;C5&#41;       // Si Existe el archivo DB &#40;en ORIGEN&#41; se BORRA\n      If FERASE&#40;&amp;&#40;C5&#41;&#41; == -1\n        MsgStop&#40; \'Archivo&#58; \'+C5+\' NO Borrado\' &#41;\n			EndIf\n		EndIf\n		If FILE&#40;C7&#41;       // Si Existe el archivo DT &#40;en ORIGEN&#41; se BORRA\n      If FERASE&#40;&amp;&#40;C7&#41;&#41; == -1\n        MsgStop&#40; \'Archivo&#58; \'+C7+\' NO Borrado\' &#41;\n			EndIf\n		EndIf\n\n    MsgWait&#40; \'Renombrando Base&#58; \'+C4+\' a&#58; \'+C5 &#41;\n    If FRENAME&#40;C4,C5&#41; == -1                       // Renombre el Archivo DBF de ORIGEN &#40;DBF a DB&#41;\n      MsgStop&#40; \'Archivo&#58; \'+C4+\' NO Renambrado\' &#41;\n		EndIf\n  	If FILE&#40;C6&#41;                          // SI Existe DBT\n      MsgWait&#40; \'Renombrando Base&#58; \'+C6+\' a&#58; \'+C7 &#41;\n      If FRENAME&#40;C6,C7&#41; == -1                     // Renombre el Archivo DBT de ORIGEN &#40;DBT a DT&#41;\n        MsgStop&#40; \'Archivo&#58; \'+C4+\' NO Renambrado\' &#41;\n			EndIf\n	  EndIf\n	  *-------------------------\n	EndIf\n	dbcloseall&#40;&#41;\n  TR_1&#58;=++TR_1\nEndDo\n\nMsgInfo&#40; \'Archivo Actualizados&#58; \'+str&#40;len&#40;NOM_DBF&#41;,2&#41; &#41;\n\ndbcloseall&#40;&#41;\nRETURN NIL\n*-----------------------------------\nFunction FilNomArc&#40;NomArc&#41;\nlocal x,NomFil&#58;=\'\'\nFor x = 1 to len&#40;NomArc&#41;\n	If substr&#40;NomArc,x,1&#41; == \'&#46;\'\n		exit\n	EndIf\n	NomFil &#58;= NomFil + substr&#40;NomArc,x,1&#41;\nNext x\nReturn NomFil[/code:c85dvizh]','',0,'AIA=','c85dvizh',1,0,'',1294,0,0),(47632,9809,6,1287,0,'195.16.44.6',1202201918,1,0,1,1,1,0,'','','Hello, Armando,\n\n[quote=&quot;Armando&quot;:1hcurpn4]\nI think is not a good idea.\n[/quote:1hcurpn4]\n\nYes, I agree. \n\nSo, sorry for English. It\'s announcement only.\n\n---\nSpirin Sergey.\n\"Paritet Soft\" Company.\nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m -->\nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'gA==','1hcurpn4',1,0,'',1287,0,0),(47633,9827,6,106,0,'85.34.123.173',1202205033,1,0,1,1,1,1,'','','No uso esta clase, pero prueba asi:\n\n\noFileXLS:Get( \"ActiveSheet\" ):Rows( \"2:4\" ):Interior:Color := RGB( 244, 249, 198) \n\n\nSaludos','',0,'gA==','2e00hopp',1,0,'',106,0,0),(47634,8612,7,456,0,'217.127.39.57',1202209099,1,0,1,1,1,1,'','','En la clase hay que rectificar los calculos de coordenadas, las conversiones de latitud y longitud a decimal para coordenadas Sur y Oeste son erroneas. \nLas lineas correctas son :\n\n\n[code:192113hm]\n   // calculamos latitud y longitud en decimal\n   // es la que utiliza Google Maps\n   nGrados  &#58;= Val&#40;SubStr&#40; &#58;&#58;cLat, 1, 2&#41; &#41;\n   nMinutos &#58;= Val&#40;SubStr&#40; &#58;&#58;cLat, 3, 7&#41; &#41; /60\n   &#58;&#58;nLat   &#58;= &#40;nGrados + nMinutos&#41; * IIF&#40; &#58;&#58;cNS =&quot;S&quot;, -1, 1 &#41;\n\n   // longitud\n   nGrados   &#58;= Val&#40;SubStr&#40; &#58;&#58;cLong, 1, 3 &#41; &#41;\n   nMinutos  &#58;= Val&#40;SubStr&#40; &#58;&#58;cLong, 4, 7 &#41; &#41; /60\n   &#58;&#58;nLong   &#58;= &#40;nGrados + nMinutos&#41; * IIF&#40; &#58;&#58;cEw =&quot;W&quot;, -1, 1 &#41;[/code:192113hm]\n\nSolo faltaba unos parentesis, para los  casos negativos.','',0,'AIA=','192113hm',1,0,'',456,0,0),(47635,9857,4,456,0,'217.127.39.57',1202210077,1,0,1,1,1,1,'','','Nosotros tenemos varios Mc9090 en explotacion, si tienes alguna pega comenta por aqui.\nDe todas formas, mejor escribe en el foro castellano. O en ingels en este  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'AIA=','3mk0k7q3',1,0,'',456,0,0),(47636,9827,6,92,0,'80.25.24.19',1202210351,1,0,1,1,1,0,'','','[quote=&quot;JmGarcia&quot;:1db9hsgj][quote=&quot;FiveWiDi&quot;:1db9hsgj]Con esta clase no puedes usar directamente FORMAT \"###0\", sino que primero debes declarar el formato que deseas usar:\n\n#xcommand DEFINE XLS FORMAT &lt;nFormat&gt; ;\n             [ PICTURE &lt;cPicture&gt; ] ;\n       =&gt; ;\n            &lt;nFormat&gt; := XLSFormat( &lt;cPicture&gt; )\n\nDEFINE XLS FORMAT n4SinDecimales \"###0\"\n\ny despues usar:\n\n   @ Indice, 4 XLS SAY val(substr(cLinea, 19,4)) OF oFileXLS FORMAT n4SinDecimales\n\nsiendo n4SinDecimales una variable numérica de tu función.\n\nSaludos\nCarlos G.[/quote:1db9hsgj]\n\nEs que como tengo \"tantos formatos\" no me parecio conveniente usar variables y me funciona de esa forma que he puesto yo <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> \n\nPero a parte de eso (que lo cambiare) ¿ como añado COLOR a las celdas ?[/quote:1db9hsgj]\n\nCreo que con esta clase no puedes dar color.\nSi lo averiguas me lo dices, yo tengo el mismo problema y aunque evidentemente no es lo mismo, lo que hago es jugar con los tipos de letra y los marcos de las celdas.\n\nEsta clase escribe un fichero en formato Excel ¿1.2? de manera que puedes usarla aunque no tenga ningún programa que pueda abrir el fichero.\nEsto y que no abre/precisa Excel es quizás la única ventaja que le veo.\n\nAdemás, hace poco descubrí que enviaba el fichero por mail y uno de los destinatarios tenía antivirus PANDA y lo identificaba como INFECTADO, evidentemente era un error del antivirus que ¿quizás no contemplaba formatos de ficheros tan antíguos?\n\nSaludos\nCarlos G.','',0,'gA==','1db9hsgj',1,0,'',92,0,0),(47637,9859,3,1209,0,'66.158.133.192',1202210513,1,0,1,1,1,1,'','Remote IP','Good Morning Everyone,\n\nIT\'s been a long time, isn\'t ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nOk here is a my question, is it possible to know the Remote client IP adress when the connection goes through a ROUTER. I know that the complete ROUTE is in the TCP/IP packet. Can someone point me to the right direction,\n\n Thank you,\n\n  Best Regards,','',0,'gA==','1u92nhg7',1,0,'',1209,0,0),(47638,9860,6,1238,0,'217.127.123.34',1202214043,1,0,1,1,1,0,'','Funcionamiento de DIALOG','Buenos días.\n\nEn un Cuadro de dialogo (de Siniestros)  tengo varios GET, s. uno de ellos es el número de Póliza. Desearía poder comprobar sí la póliza ha tenido otros siniestro y por lo tanto tengo sus datos en el fichero de pólizas para poder dibujar el resto de los GET,s que son de ese fichero.\n\nLo he intentado con un bucle IF y dentro del bucle un refresco del cuadro, pero no lo logro.\n\n¿Pueden ayudarme?.\n\nMuchas gracias. Fernando.','',0,'gA==','1bru7ind',1,0,'',1238,0,0),(47639,9861,3,1257,0,'195.93.60.34',1202214516,1,0,1,1,1,1,'','How can i show a picture in a topic ( link-syntax ) ?','Hello, from Germany\n\nI want to show a picture directly in the message\nFor pictures, i created a directory  /pictures   on my website.\nIt is a clean way, because i don\'t need others programs.\nIt works like as show in the sample, but the visitor\nmust click on the link. \nIs there something missing in the syntax ?\nWhat is the quality, a picture can be ?\n\nPicture on my website ( a screenshot of the new DB-Tool ) :\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/pictures/outlook.jpg\">http://www.pflegeplus.com/pictures/outlook.jpg</a><!-- m -->\n\nmust be :\n\n[img]+%20link%20+[/img]\n\n[img:36lt57tx]http&#58;//www&#46;pflegeplus&#46;com/pictures/outlook&#46;jpg[/img:36lt57tx]\n\nThank you\nU. König','',0,'CA==','36lt57tx',1,1202235105,'',1257,4,0),(47640,9828,7,400,0,'201.92.35.194',1202217020,1,0,1,1,1,1,'','','Mas, o FwPPc funciona com el SmartPhone ?\n\nSaluds','',0,'CA==','6287m2ce',1,0,'',400,0,0),(47641,9787,6,1090,0,'201.254.63.173',1202218330,1,0,1,1,1,0,'','ejemplo','hola. hace poco tube un problema similar; fijate este tema\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9735\">http://fivetechsoft.com/forums/viewtopic.php?t=9735</a><!-- m -->\n\nCHAU...!!!','',0,'CA==','133fbpwx',1,0,'',1090,0,0),(47642,9861,3,51,0,'80.122.88.242',1202220416,1,0,1,1,1,0,'','','\n\nRegards,\nOtto\n\n[img:rsdk8gzj]http&#58;//www&#46;pflegeplus&#46;com/pictures/outlook&#46;jpg[/img:rsdk8gzj]','',0,'CA==','rsdk8gzj',1,0,'',51,0,0),(47643,9856,6,568,0,'200.121.64.61',1202221472,1,0,1,1,1,0,'','Re: Problemas con la clase Tprinter','Gracias Manuel, efectivamente verifique las varaibles de entorno y pude solucionar el problema.\n\nRealmente este foro es de gran ayuda, espero poder colaborar en algun momento con alguna idea.\n\nSaludos \n\nWilliam Chavez Noriega <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nLima- Peru','',0,'CA==','2z8gy7a5',1,0,'',568,0,0),(47644,9840,6,975,0,'190.90.131.5',1202226670,1,0,1,1,1,0,'','','<!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: --> yo realice lo que uted me dijo Antonio, cuando abro el primer formulario de txbrowse me sale la ventana de mensaje con el primer registro mostrado en el mensaje, le doy aceptar al mensaje y me sale el formulario TXBROWSE; hay selecciono cualquier registro y me muestra el segundo formulario con los datos del registro seleccionado en el primer formulario, luego abro un segundo archivo que me muestra unos datos adicionales, despues de esto me sale el mensaje de error, pero del primer formulario. cuando le quito la rutina que me abre el segundo archivo no me muestra ningun error; el campo codip01 existe en el archivo de catastro.','',0,'CA==','5s1c2rc9',1,0,'',975,0,0),(47645,9580,3,51,0,'80.122.88.242',1202226827,1,0,1,1,1,0,'','','Is the 2003 class ready for use?\nAre there somewhere more examples to show how to use the right site of the window?\nRegards,\nOtto','',0,'CA==','30cyrad4',1,0,'',51,0,0),(47646,9827,6,596,0,'85.62.69.206',1202227237,1,0,1,1,1,1,'','','[quote=&quot;pymsoft&quot;:129gvnl9]oFileXLS:Get( \"ActiveSheet\" ):Rows( \"2:4\" ):Interior:Color := RGB( 244, 249, 198) [/quote:129gvnl9]Es lo que me imaginaba, pymsoft, lo usas con ActiveX.\nEn las maquinas que correra la utilidad que estoy haciendo NO tiene Office, de hay use TFileXLS.\nEl no tenen Office es porque solo se usan con programas de servicio y de control de procesos y unas cuantas licencias de Office valen una pasta.\n\n[quote=&quot;FiveWiDi&quot;:129gvnl9]Creo que con esta clase no puedes dar color.[/quote:129gvnl9]Pues mi pozo en un gozo...\n\n\nP.D.: ¡¡¡ Ramón Avendaño !!! por favor, un poco de color a tu \"clase\".','',0,'gA==','129gvnl9',1,0,'',596,0,0),(47647,9860,6,1238,0,'217.127.123.34',1202228621,1,0,1,1,1,0,'','','Pongo el ejemplo de lo hecho.\n\n/////////////////////////////////////////////////\n  DEFINE DIALOG oDlg RESOURCE \"Dialog_1\" TITLE \"Altas siniestros\" BRUSH oBrush\n  REDEFINE GET cRefe   ID 10 OF oDlg \n  REDEFINE DbCombo  oCbx VAR cClaveCia ID 11  OF oDlg;\n 	alias \"Compa\";\n 	ITEMFIELD \"ClaveCia\";\n  	LISTFIELD \"ClaveCia\";\n  	update\n  REDEFINE GET cNumSini  ID 12  OF oDlg\n  REDEFINE GET fFeSini PICTURE \"@D\" ID 13  OF oDlg\n  REDEFINE GET fFeNotif PICTURE \"@D\"  ID 14  OF oDlg\n  REDEFINE GET fFeVisita PICTURE \"@D\"  ID 15  OF oDlg\n  REDEFINE GET cNumPoliza  ID 16  OF oDlG \n\n	SELE 2 \n	SET INDEX TO I1Poliza    \n	SEEK cNumPoliza\n	IF .NOT. EOF()\n		\n		cRamo:=Polizas-&gt;Ramo\n		cNombre:=Polizas-&gt;Nombre\n		cDomicilio:=Polizas-&gt;Domicilio\n		cPoblacion:=Polizas-&gt;Poblacion\n		cTelefono:=Polizas-&gt;Telefono\n		REDEFINE GET cRamo ID 17  OF oDlg \n		REDEFINE GET cNombre ID 18  OF oDlg \n	  	REDEFINE GET cDomicilio  ID 19   OF oDlg\n	  	REDEFINE GET cTelefono ID 23  OF oDlg \n	  	REDEFINE GET cPoblacion  ID 22   OF oDlg\n\n		oDlg:Refresh()\n               Else\n\n  		REDEFINE GET cRamo ID 17  OF oDlg \n		REDEFINE GET cNombre ID 18  OF oDlg \n		REDEFINE GET cDomicilio  ID 19   OF oDlg\n		REDEFINE GET cTelefono ID 23  OF oDlg \n		REDEFINE GET cPoblacion  ID 22   OF oDlg\n	END IF\n  REDEFINE GET cNota ID 20  OF oDlg\n/*  REDEFINE LISTBOX oLb FIELDS Garant-&gt;NumGaranti,Garant-&gt;Garantia,STR(Garant-&gt;CapitalIni);\n                   HEADERS \"Nº Póliza\",\"Garantía\",\"Capital\" ID 21 OF oDlg\n\n  SELE 1\n  INDEX ON Siniestr-&gt;NumPoliza TO TEMPORAL2 FOR Siniestr-&gt;NumPoliza==cNumPoliza\n  REDEFINE LISTBOX oLbfg FIELDS Siniestr-&gt;NumControl HEADERS \"Refe\" ID 24 OF oDlg\n*/  \n  REDEFINE BUTTON ID 25 OF oDlg  ACTION (ILd:=.t., oDlg:Refresh())\n  REDEFINE BUTTON ID 26 OF oDlg ACTION oDlg:End()\n  REDEFINE  BUTTON ID 27 OF oDlg ACTION (lPr:=.t., oDlg:End())\n  ACTIVATE DIALOG oDlg CENTERED\n  ERASE TEMPORAL.NTX\n  CLOSE DATABASES\n/////////////////////////////////////\nIntento que tras introducir el número de póliza se compruebe en el fichero de pólizas sí está la mencionada póliza y recuperar los datos de la misma. En CL 5, tras en GET podía hacer la comprobación y cargar las variables con su valor. Ahora en FWH no se como hacerlo.\n\nUn saludo. Fernando.','',0,'gA==','2mi5ayvp',1,0,'',1238,0,0),(47648,9859,3,1209,0,'66.158.133.192',1202228872,1,0,1,1,1,1,'','','If it can help someone ! \n\nI found how to do it  with Teredo ! and will explore the possibility with SNMP protocol ! \n\n Ty,','',0,'gA==','17wqxku1',1,1202239912,'',1209,2,0),(47649,9860,6,92,0,'81.44.78.102',1202230371,1,0,1,1,1,0,'','','[quote=&quot;fergonm&quot;:1bzm0tog]Pongo el ejemplo de lo hecho.\n\n/////////////////////////////////////////////////\n  DEFINE DIALOG oDlg RESOURCE \"Dialog_1\" TITLE \"Altas siniestros\" BRUSH oBrush\n  REDEFINE GET cRefe   ID 10 OF oDlg \n  REDEFINE DbCombo  oCbx VAR cClaveCia ID 11  OF oDlg;\n 	alias \"Compa\";\n 	ITEMFIELD \"ClaveCia\";\n  	LISTFIELD \"ClaveCia\";\n  	update\n  REDEFINE GET cNumSini  ID 12  OF oDlg\n  REDEFINE GET fFeSini PICTURE \"@D\" ID 13  OF oDlg\n  REDEFINE GET fFeNotif PICTURE \"@D\"  ID 14  OF oDlg\n  REDEFINE GET fFeVisita PICTURE \"@D\"  ID 15  OF oDlg\n  REDEFINE GET cNumPoliza  ID 16  OF oDlG \n\n	SELE 2 \n	SET INDEX TO I1Poliza    \n	SEEK cNumPoliza\n	IF .NOT. EOF()\n		\n		cRamo:=Polizas-&gt;Ramo\n		cNombre:=Polizas-&gt;Nombre\n		cDomicilio:=Polizas-&gt;Domicilio\n		cPoblacion:=Polizas-&gt;Poblacion\n		cTelefono:=Polizas-&gt;Telefono\n		REDEFINE GET cRamo ID 17  OF oDlg \n		REDEFINE GET cNombre ID 18  OF oDlg \n	  	REDEFINE GET cDomicilio  ID 19   OF oDlg\n	  	REDEFINE GET cTelefono ID 23  OF oDlg \n	  	REDEFINE GET cPoblacion  ID 22   OF oDlg\n\n		oDlg:Refresh()\n               Else\n\n  		REDEFINE GET cRamo ID 17  OF oDlg \n		REDEFINE GET cNombre ID 18  OF oDlg \n		REDEFINE GET cDomicilio  ID 19   OF oDlg\n		REDEFINE GET cTelefono ID 23  OF oDlg \n		REDEFINE GET cPoblacion  ID 22   OF oDlg\n	END IF\n  REDEFINE GET cNota ID 20  OF oDlg\n/*  REDEFINE LISTBOX oLb FIELDS Garant-&gt;NumGaranti,Garant-&gt;Garantia,STR(Garant-&gt;CapitalIni);\n                   HEADERS \"Nº Póliza\",\"Garantía\",\"Capital\" ID 21 OF oDlg\n\n  SELE 1\n  INDEX ON Siniestr-&gt;NumPoliza TO TEMPORAL2 FOR Siniestr-&gt;NumPoliza==cNumPoliza\n  REDEFINE LISTBOX oLbfg FIELDS Siniestr-&gt;NumControl HEADERS \"Refe\" ID 24 OF oDlg\n*/  \n  REDEFINE BUTTON ID 25 OF oDlg  ACTION (ILd:=.t., oDlg:Refresh())\n  REDEFINE BUTTON ID 26 OF oDlg ACTION oDlg:End()\n  REDEFINE  BUTTON ID 27 OF oDlg ACTION (lPr:=.t., oDlg:End())\n  ACTIVATE DIALOG oDlg CENTERED\n  ERASE TEMPORAL.NTX\n  CLOSE DATABASES\n/////////////////////////////////////\nIntento que tras introducir el número de póliza se compruebe en el fichero de pólizas sí está la mencionada póliza y recuperar los datos de la misma. En CL 5, tras en GET podía hacer la comprobación y cargar las variables con su valor. Ahora en FWH no se como hacerlo.\n\nUn saludo. Fernando.[/quote:1bzm0tog]\n\nEstás mezclando la definición del DIALOG con funciones/procedimientos.\n\nSeria mejor:\n\n  DEFINE DIALOG oDlg RESOURCE \"Dialog_1\" TITLE \"Altas siniestros\" BRUSH oBrush\n  REDEFINE GET cRefe   ID 10 OF oDlg \n  REDEFINE DbCombo  oCbx VAR cClaveCia ID 11  OF oDlg;\n 	alias \"Compa\";\n 	ITEMFIELD \"ClaveCia\";\n  	LISTFIELD \"ClaveCia\";\n  	update\n  REDEFINE GET cNumSini  ID 12  OF oDlg\n  REDEFINE GET fFeSini PICTURE \"@D\" ID 13  OF oDlg\n  REDEFINE GET fFeNotif PICTURE \"@D\"  ID 14  OF oDlg\n  REDEFINE GET fFeVisita PICTURE \"@D\"  ID 15  OF oDlg\n  REDEFINE GET cNumPoliza  ID 16  OF oDlG VALID ;\n    (Mifunción( oDlg, @cRamo, @cNombre, @cDomicilio, @cTelefono, @cPoblacion),  .T.)\n\n  REDEFINE GET cRamo ID 17  OF oDlg UPDATE\n  REDEFINE GET cNombre ID 18  OF oDlg UPDATE\n  REDEFINE GET cDomicilio  ID 19   OF oDlg UPDATE\n  REDEFINE GET cTelefono ID 23  OF oDlg UPDATE\n  REDEFINE GET cPoblacion  ID 22   OF oDlg UPDATE\n\nACTIVATE DIALOG oDlg\n\n../..\n\nFUNTION Mifunción( oDlg, cRamo, cNombre, cDomicilio, cTelefono, cPoblacion)\n\n	SELE 2 \n	SET INDEX TO I1Poliza    \n	SEEK cNumPoliza\n	IF .NOT. EOF()\n		\n		cRamo:=Polizas-&gt;Ramo\n		cNombre:=Polizas-&gt;Nombre\n		cDomicilio:=Polizas-&gt;Domicilio\n		cPoblacion:=Polizas-&gt;Poblacion\n		cTelefono:=Polizas-&gt;Telefono\n\n                                oDlg:Refresh()\n	END IF\n\nReturn Nil\n\n\nNo se si funcionarà, pero el tipo de codificación debería ser así en mi modesta opinión.\n\nRecuerda que el VALID debe devolver SIEMPRE un valor LOGICO, y en este caso siempre .T. sino el GET no perderia el FOCO.\n\nSaludos\nCarlos G.','',0,'gA==','1bzm0tog',1,0,'',92,0,0),(47650,9860,6,1238,0,'217.127.123.34',1202231470,1,0,1,1,1,1,'','','Gracias Five.\n\nEn principio da error de compilación pero seguiré por ese camino.','',0,'gA==','1yvem6p2',1,0,'',1238,0,0),(47651,9743,6,1255,0,'200.66.237.147',1202233917,1,0,1,1,1,0,'','','[quote=&quot;jose_murugosa&quot;:23jwkbnb]Sería mucho pedir que Ud. pudiera subir TSBrowse a un hosting y poner el link en utilidades, de ese modo todos podríamos tenerlo disponible, ya que seguramente habrán muchos más que querrán tenerlo[/quote:23jwkbnb]Hola José:\n\nTe he enviado a tu correo de hotmail la TSBrowse para que la pongas en tu página y les avises a los amigos de ambos foros para que puedan descargarla desde alli.\n\nEsto es una PRE-Liberación de la versión 8.0, que será liberada una vez que termine con mis pruebas en 32 bits.\n\nPor supuesto, ya incluye la nueva caracteristica del browse transparente (ver Sample 7 en programa de prueba SBTest). Es muy simple hacerlo, solamente hay que usar la cláusula TRANSPARENT al crear el browse. Automáticamente tomará como fondo el fondo del diálogo o la ventana que lo contiene. También puede tener su propio fondo usando el método oBrw:SetBrush( oBrush ) después de crear el Browse.\n\nEspero que les sea de utilidad.\n\nUn abrazo para todos.\n\nManuel Mercado','',0,'gA==','23jwkbnb',1,0,'',1255,0,0),(47652,9743,6,439,0,'200.125.41.28',1202234196,1,0,1,1,1,1,'','','[quote=&quot;mmercado&quot;:2nlidouo][quote=&quot;jose_murugosa&quot;:2nlidouo]Sería mucho pedir que Ud. pudiera subir TSBrowse a un hosting y poner el link en utilidades, de ese modo todos podríamos tenerlo disponible, ya que seguramente habrán muchos más que querrán tenerlo[/quote:2nlidouo]Hola José:\n\nTe he enviado a tu correo de hotmail la TSBrowse para que la pongas en tu página y les avises a los amigos de ambos foros para que puedan descargarla desde alli.\n\nEsto es una PRE-Liberación de la versión 8.0, que será liberada una vez que termine con mis pruebas en 32 bits.\n\nPor supuesto, ya incluye la nueva caracteristica del browse transparente (ver Sample 7 en programa de prueba SBTest). Es muy simple hacerlo, solamente hay que usar la cláusula TRANSPARENT al crear el browse. Automáticamente tomará como fondo el fondo del diálogo o la ventana que lo contiene. También puede tener su propio fondo usando el método oBrw:SetBrush( oBrush ) después de crear el Browse.\n\nEspero que les sea de utilidad.\n\nUn abrazo para todos.\n\nManuel Mercado[/quote:2nlidouo]\n\nHola Manuel,\n\nNo me recibido el correo que mencionas, ¿podrías enviármelo a <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e --> por favor?\n\nGracias desde ya, con gusto pondré a disposición del foro tu contribución.','',0,'gA==','2nlidouo',1,0,'',439,0,0),(47653,9743,6,1255,0,'200.66.237.147',1202236476,1,0,1,1,1,0,'','','[quote=&quot;jose_murugosa&quot;:16yp8snt]No me recibido el correo que mencionas, ¿podrías enviármelo a <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e --> por favor?[/quote:16yp8snt]\nListo el Pollo:\n\nEnviado a tus 2 correos.','',0,'gA==','16yp8snt',1,0,'',1255,0,0),(47654,9859,3,6,0,'82.57.159.194',1202236628,1,0,1,1,1,1,'','Re: Remote IP','Hi, Sylvain! Glad to see you here again! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nUnfortunately I can\'t help you with your problem. <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nEMG','',0,'gA==','2eac5sui',1,0,'',6,0,0),(47655,9859,3,1209,0,'66.158.133.192',1202237721,1,0,1,1,1,1,'','Re: Remote IP','Hi Enrico,\n\n\n Nice to read you my friend ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n I already found a solution with IPV6 and Teredo protocol, I\'ll give a try to the SNMP protocol, it will be mor generic ! \n\n HTH,\n\n Sylvain','',0,'gA==','1g5m6amd',1,0,'',1209,0,0),(47656,9859,3,103,0,'200.253.153.81',1202239647,1,0,1,1,1,1,'','','Hi Sylvain,\n\n   Glad to see you here again after a long time. You\'re always welcome!!\n\nBest Regards,','',0,'gA==','45ab7t9x',1,0,'',103,0,0),(47657,9859,3,1209,0,'66.158.133.192',1202239878,1,0,1,1,1,1,'','','Kleyber,\n\n Same pleasure for me kleyber ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n Hope things are going well for you !. \n\n Best Regards,\n\n Sylvain','',0,'gA==','2iiv38xz',1,0,'',1209,0,0),(47658,9580,3,1231,0,'83.144.114.249',1202243680,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:3rrhdumo]Is the 2003 class ready for use?\nAre there somewhere more examples to show how to use the right site of the window?\nRegards,\nOtto[/quote:3rrhdumo]\n\nI\'m using it for a month. I like this kind of navigation of my application.\nFor me it\'s ready to use.','',0,'gA==','3rrhdumo',1,0,'',1231,0,0),(47659,9580,3,303,0,'72.220.181.80',1202244407,1,0,1,1,1,0,'','','Otto,\n\nThe class is usable, but it could be improved.\n\nI just discovered today that you cannot use resource dialogs with an oulook bar on the main window. Each dialog must be written as code. This is quite tedious.\n\nI am looking at a solution for this.\n\nJames','',0,'gA==','2cuf3d9i',1,0,'',303,0,0),(47660,9862,3,1257,0,'195.93.60.34',1202247068,1,0,1,1,1,1,'','Outlook2003 and resources + DBTool-Infos','Hello, from Germany\n\nJust have a look at :\n\n[img:1ogvj7pf]http&#58;//pflegeplus&#46;com/pictures/outlook&#46;jpg[/img:1ogvj7pf]\n\nI have no problems with resources.\n\n-------------------\n\nAt first, excuse my english. I hope it is not to bad !!!\n\nHere is a Overwiew of the DB-Tools\n-----------------------------------------\nYou can choose the Modal-Dialog-Mode or\nMDI ( Outlook2003-Mode )\n\nFor the Dialog-Mode, you have to use Button 1 - 4 from\nthe Top-Buttonbar.\nFor Outlook2003-Mode, just select the Button Nr. 5.\n\nAs a main reason, the DB-Tools have been created, to show, \nhow the different classes can work together.\n\nAs well, it is a nice tool, to handle the administration of\nyour databases.\n\nWhat can it do for you ?\n-----------------------------\n1.  Programming :\n---------------------\n     It shows the use of Outlook2003, Office2007-Buttonbar\n     and some special-variations of xBrowse.\n\n2.  A Quick-Browse-Tool ( 2 Browser at once ).\n------------------------------------------------------\n1. Browser ( Listbrowser ) :\n-------------------------------\n1. Some normal things like : Create, Delete, Pack\n2. You can Export a Database to a new one\n    ( before, you can set a index and Filter )\n    or create a Excel-Sheet.\n    You can convert the database to or from NTX / CDX\n    The Excel-Sheet you can split in 4 windows.\n3. Very easy indexing. Just do a right mouseclick on\n    a Browse-Header. The Col gets a index, a Red Color\n    and will switch to Col 1.\n4.  The used Index-syntax is shown in a say-field.\n     With that information it is easy to create a Filter\n5.  Incremental seek, but with a control-field of the seek- \n    expression.\n6.  Different Filters : You can choose SCOPE or SETFILTER\n7.  The Filter-Field shows a sample, as soon you set a Col-Index. \n8.  Automatic detection of the database-type from \n     Header-Informations ( NTX or CDX )\n    you don\'t need to set the RDD.\n9.  For xBrowse, you can choose OemToAnsi for the Data\n\n2. Browser ( 1 Record-Browser )\n--------------------------------------\n1. Shows all Fields with the structure-values \n   ( the selected record from browser 1 )\n    in additional, you can edit the Field-value and send it\n    back to Browser 1.\n\n3. Create a new Database\n-------------------------------\n1. You can select NTX or CDX\n\n4. Modify a Database-Structure\n------------------------------------\n1. Save as NTX or CDX\n2. Special : You can convert   N =&gt; C  and  D =&gt; C\n\n5. Create a Textfile with DBF-Infos\n----------------------------------------\n1. Structure Array\n2. FIELD-Definitions with ALIAS\n3. FIELD-Definitions without ALIAS\n4. LOCAL-Definitions\n5. CONSTANTS -Init\n6. SAVE Fields\n7. FIELD- Replaces\n\nSome more functions will follow.	\n\nRegards\nUwe König\n \n\n\nRegards\nUwe','',0,'CA==','1ogvj7pf',1,1202255024,'',1257,3,0),(47661,9863,6,215,0,'189.137.186.118',1202248090,1,0,1,1,1,0,'','Bajando archivo con la TURL','Hola foro.\nEl siguiente código funciona para bajar un archivo\n\nstatic function TestUrl()\n   local oUrl, oClient\n\n   oUrl:= TUrl():New(\"http://www.captura.com/2007/archivo.xml\") \n\n   oClient := TipClienthttp():New( oUrl )\n\n   oClient:nConnTimeout:=20000\n\n   oClient:ReadToFile( \"e:\\ap\\archivo.xml\" )\n\n   oClient:Close()\n\n\nSi la carpeta está protegida con Usuario y Password. No se puede.\nEntonces, ¿Cómo le hago para bajar el archivo si la carpeta está protegida?\nEs decir, ¿Cómo le indico el usuario y password para que me permita bajar el archivo?   <!-- s:?: --><img src=\"{SMILIES_PATH}/icon_question.gif\" alt=\":?:\" title=\"Question\" /><!-- s:?: --> \n\nHe probado a usar.\n   oUrl:= TUrl():New(\"http://usuario:pass@www.captura.com/2007/archivo.xml\") \n\nNo funciona\n\n\nSaludos\nFernando Leal\nMéxico, DF','',0,'CA==','2kxg7ang',1,0,'',215,0,0),(47662,9862,3,2,0,'87.218.146.222',1202248244,1,0,1,1,1,1,'','','Uwe,\n\nIt looks very nice and professional <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'CA==','3esqlp3d',1,0,'',2,0,0),(47663,9580,3,2,0,'87.218.146.222',1202248401,1,0,1,1,1,1,'','','James,\n\nWe will enhance it to support them,\n\nThanks for your feedback,','',0,'CA==','313nhpfs',1,0,'',2,0,0),(47664,9840,6,2,0,'87.218.146.222',1202248705,1,0,1,1,1,1,'','','No estarás cerrando la DBF ó cambiando de area de trabajo ?','',0,'CA==','i2wf8n46',1,0,'',2,0,0),(47665,9828,7,2,0,'87.218.146.222',1202249650,1,0,1,1,1,1,'','','Si, si funciona, pero el tamaño de la pantalla es más pequeño y es algo más complicado, ya que no hay administrador de programas (programs manager) en él.','',0,'CA==','1ky9c27f',1,0,'',2,0,0),(47666,9837,6,935,0,'200.62.78.16',1202250021,1,0,1,1,1,1,'','Gracias por Responder Antonio y Sjingo','Sjingo :\n\nTe muestro el codigo , como comente las altas, bien todo, las bajas, bien todo pero las modificaciones o ediciones ahi salta el error que mencione en mi primer post,\n\nhasta puse un msgalert para que me mostrara en ese momento los campos los valores y la longitudes y todo esta ok\n\nagardezco cualquier sugerencia al respecto como ven es ado puro no uso adordd\n\n\n//=====================\nFUNCTION PRUEBA()\n//=====================\n\nLocal   oDlg,oBrw,SiNuevo := .f.\nLOCAL   oConexionAdo := TOLEAUTO():New(\"adodb.connection\")\nPRIVATE oRecordset := TOLEAUTO():New(\"adodb.recordset\")\n\noConexionAdo:Open(\"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=127.0.0.1 ; DATABASE=Personal1; UID=root; PWD=1234\")\noRecordSet:LockType := adLockOptimistic\noRecordSet:CursorType := adOpenKeyset\noRecordSet:CursorLocation  := adUseClient\noRecordSet:ActiveConnection(oConexionAdo)\noRecordSet:Source := \"Select * from maestro\"\noRecordSet:Open()\naCifra = oRecordset:Recordcount()\n\nDEFINE DIALOG oDlg RESOURCE 78\n\nREDEFINE LISTBOX oBrw FIELDS oRecordSet:Fields(\"Numero\"):value,;\n                           oRecordSet:Fields(\"Nombres\"):value,;\n                           oRecordSet:Fields(\"Apellido1\"):value,;\n                           oRecordSet:Fields(\"Apellido2\"):value,;\n                           oRecordSet:Fields(\"Tipo\"):value,;\n                           oRecordSet:Fields(\"Tip_Emp\"):value;\n           HEADERS \"Numero\",\"Nombres\",\"Apellido1\",\"Apellido2\",\"Tipo\",\"Tip_Emp\" ;\n           FIELDSIZES 80,150,120,120,60,100 ;\n           COLOR CLR_RED,CLR_WHITE ;\n           ID 108 OF oDlg\n\n           oBrw:aJustify  ={.F.,.F.,.f.,.f.,.f.,.f.}\n           oBrw:bLogicLen = { || oRecordSet:RecordCount }\n           oBrw:bGoTop    = { || oRecordSet:MoveFirst() }\n           oBrw:bGoBottom = { || oRecordSet:MoveLast() }\n           oBrw:bSkip     = { | nSkip | Skipper( oRecordSet, nSkip ) }\n           oBrw:cAlias    = \"ARRAY\"\n\nREDEFINE BUTTON ID 102 of oDlg ACTION( AGREGO( .t., oBrw ) )\nREDEFINE BUTTON ID 103 of oDlg ACTION( AGREGO( .f., oBrw ) )\nREDEFINE BUTTON ID 104 of oDlg ACTION( BORRO( oBrw ) )\nREDEFINE BUTTON ID 106 of oDlg ACTION( BUSCO() )\nREDEFINE BUTTON ID 105 of oDlg ACTION( oDlg:End() )\n\n\nACTIVATE DIALOG oDlg CENTERED\n\noRecordSet:Close()\noConexionAdo:Close()\n\nRETURN (.T.)\n\n//     oWndBrw:SetControl(oBrw)\n\nSTATIC FUNCTION SKIPPER( oRs, nSkip )\n\n    LOCAL nRec := oRs:AbsolutePosition\n\n    oRs:Move( nSkip )\n\n    IF oRs:EOF; oRs:MoveLast(); ENDIF\n    IF oRs:BOF; oRs:MoveFirst(); ENDIF\n\nRETURN oRs:AbsolutePosition - nRec\n\nStatic Function RecordSetSkip(nSkip)\n    LOCAL nRec := oRecordSet:AbsolutePosition\n    oRecordSet:Move( nSkip )\n    IF oRecordSet:EOF; oRecordSet:MoveLast(); ENDIF\n    IF oRecordSet:BOF; oRecordSet:MoveFirst(); ENDIF\nReturn (oRecordSet:AbsolutePosition - nRec)\n\n\n//========================================\nSTATIC FUNCTION AGREGO( Sinuevo, oBrw )\n//========================================\n\nPublic oDlg2,mNumero,mNomb,mAp1,mAp2,mTipo,mDtipo,oNumero,oNomb,oAp1,oAp2,oTipo,oDtipo\n\nif sinuevo = .t.\n\n   mNumero  = space(5)\n   mNomb    = space(25)\n   mAp1     = space(15)\n   mAp2     = space(12)\n   mTipo    = space(1)\n   mDtipo   = space(10)\nelse\n   mNumero  =  oRecordSet:Fields(\"Numero\"):value\n   mNomb    =  oRecordSet:Fields(\"Nombres\"):value\n   mAp1     =  oRecordSet:Fields(\"Apellido1\"):value\n   mAp2     =  oRecordSet:Fields(\"Apellido2\"):value\n   mTipo    =  oRecordSet:Fields(\"Tipo\"):value\n   mDtipo   =  oRecordSet:Fields(\"Tip_Emp\"):value\nendif\n\nDEFINE DIALOG oDlg2 RESOURCE 19\n\nREDEFINE GET oNumero Var mNumero ID 101 of oDlg2\nREDEFINE GET oNomb   Var mNOmb   ID 102 of oDlg2\nREDEFINE GET oAp1    Var mAp1    ID 103 of oDlg2\nREDEFINE GET oAp2    Var mAp2    ID 104 of oDlg2\nREDEFINE GET oTipo   Var mTipo   ID 105 of oDlg2\nREDEFINE GET oDtipo  Var mDtipo  ID 106 of oDlg2\n\nREDEFINE BUTTON ID 107 of oDlg2 ACTION( GRABO1( SiNuevo, oBrw ),oDlg2:End() )\nREDEFINE BUTTON ID 108 of oDlg2 ACTION( oDlg2:End(), oDlg2:End() )\n\nACTIVATE DIALOG oDlg2 CENTERED\n\nRETURN\n\n//=======================================\nSTATIC FUNCTION GRABO1( Sinuevo,oBrw)\n//=======================================\n\nIF SiNuevo = .t.\n\n   msgalert(\"aqui grabo\")\n   oRecordSet:Addnew()\n   oRecordSet:Fields(\"Numero\"):value     := mNumero\n   oRecordSet:Fields(\"Nombres\"):value    := mNomb\n   oRecordSet:Fields(\"Apellido1\"):value  := mAp1\n   oRecordSet:Fields(\"Apellido2\"):value  := mAp2\n   oRecordSet:Fields(\"Tipo\"):value       := mTipo\n   oRecordSet:Fields(\"Tip_Emp\"):value    := mDtipo\n   oRecordSet:Update()\n\nelse\n\n   msgalert(\"aqui edito\")\n   oRecordSet:Fields(\"Numero\"):value     := mNumero\n   oRecordSet:Fields(\"Nombres\"):value    := mNomb\n   oRecordSet:Fields(\"Apellido1\"):value  := mAp1\n   oRecordSet:Fields(\"Apellido2\"):value  := mAp2\n   oRecordSet:Fields(\"Tipo\"):value       := mTipo\n   oRecordSet:Fields(\"Tip_Emp\"):value    := mDtipo\n   MSGALERT(\"Campos a Mostrar  : \"+mNumero+str(len(mNumero))+\" \"+mNomb+str(len(mNomb))+\" \"+mAp1+str(len(mAP1))+\" \"+mAp2+str(len(mAp2))+\" \"+mTipo+str(len(mTipo))+\" \"+mDtipo+str(len(mDtipo)))\n   oRecordSet:Update()\nendif\n\n//oRecordSet:Update()\noRecordSet:Requery()\n\noBrw:Refresh()\n\nMsgAlert(\"El RecordSet ha sido actualizado\")\n\nRETURN\n\n//================================\nSTATIC FUNCTION BORRO( oBrw )\n//================================\n\noRecordSet:Delete()\noRecordSet:Requery()\n\noBrw:Refresh()\n\nRETURN','',0,'CA==','r5v7w5kw',1,0,'',935,0,0),(47667,9713,3,148,0,'41.196.193.43',1202254125,1,0,1,1,1,0,'','','The refresh error as appeared in the image .\nPlease look carefully you will find duplicated records. By the way How can I increase the size of the image ?\n\n[img][url=http&#58;//img91&#46;imageshack&#46;us/my&#46;php?image=erroriz8&#46;png:2n1f7s3k][img]http://img91.imageshack.us/img91/9615/erroriz8.th.png[/img][/url:2n1f7s3k][/img]','',0,'GA==','2n1f7s3k',1,0,'',148,0,0),(47668,9580,3,303,0,'72.220.181.80',1202262516,1,0,1,1,1,0,'','','Antonio,\n\nIt would be great if we could do this:\n\nDefine outlook2003 oOutlook of oWnd:\n   Prompts \"Customer\",\"Inventory\";\n   Dialogs \"Customer\",\"Inventory\"\n\nI know it is a little unusual since we would be defining a outlook bar from code and dialogs from resources in the same statement.\n\nI tried defining a dialog from a resource then doing:\n\noOutlook:aDialogs[1]:= oDlg\n\nI could get it to display but all the controls are unclickable and the outlook bar buttons vanish. I\'m still looking into it.\n\nJames','',0,'','3htqkdd3',1,0,'',303,0,0),(47669,9713,3,303,0,'72.220.181.80',1202263243,1,0,1,1,1,0,'','','Ehab,\n\n&gt;The refresh error as appeared in the image . \n&gt;Please look carefully you will find duplicated records. \n\nAre you sure you don\'t have duplicate records in the data file? If so, can you send me a copy of your prg and dbf that shows the problem?\n\n&gt;By the way How can I increase the size of the image ?\n\nUse <!-- w --><a class=\"postlink\" href=\"http://www.freeimagehosting.net\">www.freeimagehosting.net</a><!-- w --> and then select the link you wish (some show the thumbnail and others show the full size image.\n\nJames','',0,'','1r397j9v',1,0,'',303,0,0),(47670,9828,7,400,0,'201.68.30.16',1202270091,1,0,1,1,1,1,'','','Gracias Maestro..agora compriendo...mas..acho que no terei saida.\n\nO Cliente, quer usar uno SmartPhone e no um Pocket.\n\nGracias pela informacion.\n\nSaluds','',0,'','3ukgytva',1,0,'',400,0,0),(47671,9859,3,32,0,'41.206.160.2',1202270765,1,0,1,1,1,0,'','Remote IP','Hi Sylvain,\n\nAre you looking for the ip address of the client connecting to a server socket?\n\nIf so, you need oSocket:ClientIP()\n\n[code:2hsy62up]\n  nEchoPort                  &#58;= &#58;&#58;nPortNo+&#58;&#58;nPortNo / 100\n\n  Do While &#46;t&#46;\n    &#58;&#58;oEchoSocket            &#58;= tsocket&#40;&#41;&#58;New&#40;nEchoPort&#41;\n\n    If &#58;&#58;oEchoSocket&#58;lStartOK\n      Exit\n    Else\n      nEchoPort++\n    Endif\n  Enddo\n\n  &#58;&#58;oEchoSocket&#58;bAccept      &#58;= &#123;| oSocket | &#58;&#58;EchoAccept&#40;oSocket&#58;nSocket&#41;&#125;\n\n  If !&#58;&#58;oEchoSocket&#58;Listen&#40;&#41;\n    &#58;&#58;Error&#40;&quot;Monitor Listening socket error &quot; + NTRIM&#40;wsagetlasterror&#40;&#41;&#41;&#41;\n  Endif\n\nreturn nil\n\nMETHOD Echoaccept&#40;pnSocket&#41; CLASS qReceive\n\n  Local oSocket              &#58;= nil\n\n  oSocket                    &#58;= tsocket&#40;&#41;&#58;Accept&#40;pnSocket&#41;\n\n  oSocket&#58;bRead              &#58;= &#123;| poSocket |&#58;&#58;EchoRead&#40;poSocket&#41;&#125;\n  oSocket&#58;bWrite             &#58;= &#123;| poSocket |&#58;&#58;EchoWrite&#40;poSocket&#41;&#125;\n  oSocket&#58;bClose             &#58;= &#123;| poSocket |&#58;&#58;EchoClose&#40;poSocket&#41;&#125;\n\n  &#58;&#58;Error&#40;&quot;Listener joined from &quot;+oSocket&#58;Clientip&#40;&#41;, False&#41;\n\n  aadd&#40;&#58;&#58;aaEchoSocket, &#123;oSocket, 0, ,&quot;&quot;&#125;&#41;   // For flags and data\n\n  oSocket&#58;SendData&#40;&quot;Welcome listener from &quot;+oSocket&#58;Clientip&#40;&#41;+CRLF&#41;\nReturn nil\n[/code:2hsy62up]','',0,'AIA=','2hsy62up',1,0,'',32,0,0),(47672,9837,6,496,0,'200.107.55.86',1202274504,1,0,1,1,1,0,'','','Hola Ramón\n\nAparentemente todo está muy bien, y así también lo hago yo, usando el recordset con las mismas características, y si funciona.\n\nEs como si en ese momento se destruyera la variable del objeto recordset. Prueba quitando el msgalert() que está antes del Update().\n\nA lo mejor alguien con más experiencia pueda encontrar el problema. Aunque otra posibilidad es usar el método execute() del objeto Conection.\n\nQue  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->  no poder ayudar, espero que encuentres pronto la solucion.\n\nUn Saludo\n\n\nMarcelo Jingo','',0,'AIA=','168jwyba',1,0,'',496,0,0),(47673,9837,6,940,0,'201.141.198.3',1202277675,1,0,1,1,1,1,'','','Ramon,  \n\nlas variables, de tipo caracter checale que tengan la misma longitud\n\nen la tabla.\n\npor ejemplo APELLIDO1  VARCHAR(15)\n\nmAp1 = space(15) \n\nverifica que al momento de guardar no haya valores nulos\n\nsaludos...','',0,'AIA=','2nim6jwd',1,0,'',940,0,0),(47674,9837,6,940,0,'201.141.198.3',1202277690,1,0,1,1,1,1,'','','Ramon,  \n\nlas variables, de tipo caracter checale que tengan la misma longitud\n\nen la tabla.\n\npor ejemplo APELLIDO1  VARCHAR(15)\n\nmAp1 = space(15) \n\nverifica que al momento de guardar no haya valores nulos\n\nsaludos...','',0,'AIA=','17otvpsd',1,0,'',940,0,0),(47675,9837,6,940,0,'201.141.198.3',1202278217,1,0,1,1,1,1,'','','prueba tambien asi al guardar ,, sobre todo cuando es edicion,,\n\noRecordSet:Fields(\"Apellido1\"):value := _scFill( mAp1, 15 )\noRecordSet:update()\n\n\nfunction _scFill(c, nLon)\n   local nLen\n   local nSp\n   if valtype(c) &lt;&gt; \"C\"\n      c := \'\'\n   ENDIF\n   nLen := len(c)\n   nSp := len(space(nLon-nLen))\nreturn ( c+space(nSp)   )\n\nsaludos cordiales.','',0,'AIA=','14usj7bj',1,0,'',940,0,0),(47676,9837,6,9,0,'85.60.41.242',1202278560,1,0,1,1,1,1,'','','En mi opinión, el objeto RecordSet es una matriz (array) y por tanto su manejo es muy parecido a la clase Database de FWH. Es una redundancia crear variables desde el RecordSet. He suprimido las funciones RecordSetSkip y Agrego1.- Uso oRs = oRecordSet.\nEste sería el código:\n\nREDEFINE BUTTON ID 102 of oDlg ACTION( AGREGO( .t., oBrw, oRs ) ) \nREDEFINE BUTTON ID 103 of oDlg ACTION( AGREGO( .f., oBrw, oRs ) ) \n\n\n//======================================== \nSTATIC FUNCTION AGREGO( lAlta, oBrw, oRs ) \n//======================================== \nLocal oDlg, lSalvar := .f.\n\nIF lAlta = .t. \n   oRs:ADDNEW() // crea un nuevo registro en blanco\n   oRs:Fields(\"Numero\"):value    := SPACE(5)\n   oRs:Fields(\"Nombre\"):value    := SPACE(25)\n   oRs:Fields(\"Apellido1\"):value := SPACE(15)\n   oRs:Fields(\"Apellido2\"):value := SPACE(12)\n   oRs:Fields(\"Tipo\"):value      := SPACE(1)\n   oRs:Fields(\"Tip_Emp\"):value   := SPACE(10)\nENDI\n\nDEFINE DIALOG oDlg RESOURCE 19 \n\nREDEFINE GET oRs:Fields(\"Numero\"):value ID 101 of oDlg\nREDEFINE GET oRs:Fields(\"Nombre\"):value ID 102 of oDlg \nREDEFINE GET oRs:Fields(\"Apellido1\"):value ID 103 of oDlg \nREDEFINE GET oRs:Fields(\"Apellido2\"):value ID 104 of oDlg \nREDEFINE GET oRs:Fields(\"Tipo\"):value ID 105 of oDlg \nREDEFINE GET oRs:Fields(\"Tip_Emp\"):value ID 106 of oDlg \n\nREDEFINE BUTTON ID 107 of oDlg ;\n  ACTION ( lSalvar := .T. , oDlg:End() )  \nREDEFINE BUTTON ID 108 of oDlg ;\n  ACTION oDlg:End() \n\nACTIVATE DIALOG oDlg CENTERED \n\n  IF lSalvar\n     oRs:UPDATE()\n     IF !empty(oRs:Filter)\n        oRs:REQUERY()\n     ENDI\n  ELSE\n     IF lAlta\n        oRs:DELETE()\n        oRs:REQUERY()\n     ENDI\n  ENDIF\n\noBrw:Refresh()\nRETURN( NIL )\n\nEn las modificaciones no debe darte error. Si te da error en las altas, entonces es que la definición que estamos haciendo de los campos, no es la correcta.','',0,'AIA=','1ocqaqcr',1,1203327530,'',9,1,0),(47677,9864,3,51,0,'80.122.88.242',1202279626,1,0,1,1,1,0,'','undersea cable','Somedays that I didn’t read from NagesWaraRao.\nI don\'t hope  that his Internet access is affected by the damaged of the undersea cable.\n\nRegards,\nOtto','',0,'AIA=','1egvdx00',1,0,'',51,0,0),(47678,9859,3,49,0,'213.82.134.66',1202288287,1,0,1,1,1,1,'','','Alex,\nCan I create  on a fwh program a listbox where i can insert all Pc link to my server ?\nI explain you \ni have on a classroom a pc and another 24 pc link to this pc \n\nI want see how many pc is open or not \n\nIn Vb this is  possibile .. but in fwh I not Know How make it \n\nthanks','',0,'AIA=','1yr6qjqk',1,0,'',49,0,0),(47679,9859,3,32,0,'41.206.160.2',1202293752,1,0,1,1,1,0,'','Connecting','Yes,\n\nThe main pc runs the listen socket, and all the others connect to it on startup.\n\nIncrement a counter when they connect, and decrement when they disconnect','',0,'AIA=','wsgd1kst',1,0,'',32,0,0),(47680,9865,6,9,0,'85.60.41.242',1202293917,1,0,1,1,1,1,'','CAMBIO RESOLUCION PANTALLA','Para cambiar el tamaño de las ventanas a diferentes resoluciones de pantallas,  vengo usando  aCoor:=GetCoors( GetDesktopWindow() ). Pero a veces, no queda lo bien que debería.\n\nHe visto que algunos programadores en Delphi lo que hacen es cambiar directamente la resolución de la pantalla, a través de las  funciones del API-WINDOWS EnumDisplayDevices y ChangeDisplaySettings.- ¿Como podría hacerlo desde FWH?','',0,'AIA=','3aznye62',1,0,'',9,0,0),(47681,9859,3,1209,0,'66.158.133.192',1202295137,1,0,1,1,1,1,'','','Alex,\n\n I\'m really familiar with the socket function ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->. This won\'t work if the client connection come from the internet over a Router you\'ll obtain the ROUTER IP !\n\n Best Regards,\n\n Sylvain','',0,'AIA=','3oqgma4j',1,0,'',1209,0,0),(47682,8462,3,169,0,'200.206.142.134',1202301199,1,0,1,1,1,0,'','','Hi friends,\n\nWhere I can find wrappers for rmchart.dll please? If anyone can send it I thanks: <!-- e --><a href=\"mailto:toninho@fwi.com.br\">toninho@fwi.com.br</a><!-- e -->\n\n\nTIA and best regards\n\nToninho.','',0,'AIA=','8jpjwxux',1,0,'',169,0,0),(47683,9866,2,890,0,'190.9.66.224',1202301742,1,0,1,1,1,0,'','Length de audio','Antonio\n\nSaludos para ti y los tuyos\n\nPuedo saber la longitud de un archivo de sonido *.wav , *.wma o cualquier pista de CD en tiempo?\n\nEstube buscando el los samples mmedia  \n\nGracias antonio\n\nJairo Barbosa','',0,'AIA=','1cmpvvez',1,0,'',890,0,0),(47684,9860,6,1201,0,'200.90.17.154',1202302160,1,0,1,1,1,0,'','','La forma que te da fivewidi es la forma correcta de hacer las cosas, lo único es la función debe retornarte un valor cierto o falso, Al Utilizar la propiedad Valid; si retorna falso, no sale del get, así que debes decidir el comportamiento visual del módulo.','',0,'AIA=','30mw9lra',1,0,'',1201,0,0),(47685,9867,4,137,0,'151.38.8.195',1202306093,1,0,1,1,1,0,'','Acessing network files','Antonio,\nI\'m checking if a network file exist as you said in other topic with the code:\nMsgAlert(File(\"\\\\server\\c\\Sample.txt\"))\n\nI always get .F.\n\nI\'m trying also with my local machine:\nMsgAlert(File(\"\\\\roberto\\c\\Sample.txt\"))\n\nAlways .F.\n\nWhere is the mistake?\n\nThx,\nRoberto Parisi','',0,'AIA=','homktt7c',1,0,'',137,0,0),(47686,9826,6,362,0,'200.158.19.36',1202306638,1,0,1,1,1,1,'','','JARO, TIENE QUE GUARDAR EL PRIMER DIRECTORIO EN QUE ESTABAS ANTES DE CAMBIARLO.\n\nDESPUES RETORNAR AL MISMO CON EL LCHDIR().','',0,'AIA=','2d46k1pj',1,0,'',362,0,0),(47687,9859,3,2,0,'87.218.146.222',1202309257,1,0,1,1,1,1,'','','Sylvain,\n\nGlad to see you again <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'AIA=','33r70fzn',1,0,'',2,0,0),(47688,9867,4,2,0,'87.218.146.222',1202309313,1,0,1,1,1,1,'','','Roberto,\n\nAre you able to open it using FOpen() or MemoRead() ?','',0,'AIA=','92liq3d1',1,0,'',2,0,0),(47689,9866,2,2,0,'87.218.146.222',1202309424,1,0,1,1,1,1,'','','Jairo,\n\nSiento no poder ayudarte. Nunca hemos investigado en esos temas multimedia. El mejor consejo es buscar en google','',0,'AIA=','32o5wvuc',1,0,'',2,0,0),(47690,9859,3,1209,0,'66.158.133.192',1202310055,1,0,1,1,1,1,'','','Hey Antonio,\n\n Thank\'s for the kind words, it was nice to read you again Antonio ! \n\n Best Regards,\n\n Sylvain','',0,'AIA=','4eutk7vs',1,0,'',1209,0,0),(47691,9837,6,935,0,'200.62.123.43',1202310222,1,0,1,1,1,1,'','graciaspor sus aportes','Amigos del foro,\n\nAgradezco sus sugerencias, aplicare a ver que sucede, apenas pruebe les aviso como me fue,\n\nDesde Managua , Nicaragua\n\nRamon Paredes','',0,'AIA=','1grwmy95',1,0,'',935,0,0),(47692,9867,4,137,0,'151.38.8.195',1202310528,1,0,1,1,1,0,'','','Antonio, \nIt doesn\'t work with memoread too.\n\nI tried with device emulator and with a real ipaq.\n\nRegards,\nRoberto Parisi','',0,'AIA=','tn3lmfpe',1,0,'',137,0,0),(47693,9580,3,303,0,'72.220.181.80',1202310682,1,0,1,1,1,0,'','','Antonio,\n\nI have made the necessary changes to the Outlook2003 class so we can use resource dialogs with a defined Outlook bar on the main window. I will be forwarding them as soon as I get them cleaned up and fully tested.\n\nRegards,\nJames','',0,'AIA=','kqfdypz8',1,0,'',303,0,0),(47694,9580,3,303,0,'72.220.181.80',1202311434,1,0,1,1,1,0,'','','Antonio,\n\nI notice that in the Outlook2003 class you are defining a local oFont in the Redefine() method. There are also two other fonts oFontHeader and oFontGroup which are class vars and do get destroyed.\n\nDoesn\'t this mean that the local oFont is not getting destroyed and thus becomes a memory leak?\n\nRegards,\nJames','',0,'AIA=','2ksg9k4f',1,0,'',303,0,0),(47695,9859,3,972,0,'78.21.224.104',1202312380,1,0,1,1,1,0,'','Re: Remote IP','[quote=&quot;SylRob&quot;:36jc38z1]Good Morning Everyone,\n\nIT\'s been a long time, isn\'t ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nOk here is a my question, is it possible to know the Remote client IP adress when the connection goes through a ROUTER. I know that the complete ROUTE is in the TCP/IP packet. Can someone point me to the right direction,\n\n Thank you,\n\n  Best Regards,[/quote:36jc38z1]\n\nHey Mate! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nGlad to see you here!\n\nI use my Bekz.net server to receive the user\'s IP address. I have a small web site that just printts the user\'s IP address. Works all the time <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPatrick','',0,'gA==','36jc38z1',1,0,'',972,0,0),(47696,9859,3,972,0,'78.21.224.104',1202312466,1,0,1,1,1,0,'','Re: Remote IP','[quote=&quot;Patrick Mast&quot;:13bqxdm4][quote=&quot;SylRob&quot;:13bqxdm4]Good Morning Everyone,\n\nIT\'s been a long time, isn\'t ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nOk here is a my question, is it possible to know the Remote client IP adress when the connection goes through a ROUTER. I know that the complete ROUTE is in the TCP/IP packet. Can someone point me to the right direction,\n\n Thank you,\n\n  Best Regards,[/quote:13bqxdm4]\n\nHey Mate! <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\nGlad to see you here!\n\nI use my Bekz.net server to receive the user\'s IP address. I have a small web site that just printts the user\'s IP address. Works all the time <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nPatrick[/quote:13bqxdm4]\n\nYou can also use <!-- m --><a class=\"postlink\" href=\"http://whatismyipaddress.com/\">http://whatismyipaddress.com/</a><!-- m --> or similar.\nJust read the HTML in a variable en take out the IP address.\n\nPatrick','',0,'gA==','13bqxdm4',1,0,'',972,0,0),(47697,9840,6,975,0,'190.60.198.13',1202312611,1,0,1,1,1,0,'','','Claro que si Antonio, en el primer formulario habro el area de trabajo de 2 que es catastro, luego traslado los campos de ese registro selecionado a una variable auxiliar que es la que muestra en el segundo formulario, despues de esto abro otra area de trabajo la 3.\nHay es donde esta el problema, cuando abro el area de trabajo 3, me da un error en el primer formulario.','',0,'gA==','yp9mai96',1,0,'',975,0,0),(47699,9868,3,972,0,'78.21.224.104',1202312933,1,0,1,1,1,0,'','How to retrieve account settings from Outlook?','Hi,\n\nI have a user with MS-Office installed on his computer. He uses Outlook for email.\n\nHow can I retrieve the standard account settings that he uses in  Outlook? The settings you see in following dialog:\n\n[img:dxv0ii9s]http&#58;//www&#46;winfakt&#46;be/downloads/mail&#46;gif[/img:dxv0ii9s]\n\nPatrick','',0,'CA==','dxv0ii9s',1,0,'',972,0,0),(47700,9859,3,1209,0,'66.158.133.192',1202313727,1,0,1,1,1,1,'','','Hello Patrick,\n\n This won\'t work either, I\'m not using HTTP protocol so I can\'t read session variable and second it\'s not my ROUTER IP that I need and I can\'t run code on the client side because any other software can connect to my TCP server (with the right protocol) \n\n  I wrote a TCP server that receive a client connection from Internet and the connection go through the ROUTER to reach my TCP server, so that\'s why I received the ROUTER IP in ALL languages that I tested ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\n The only way to get the REAL client IP address is to use IPv6 TEREDO protocol or implement the STUN protocol (server outside the ROUTER who relay the connection to the REAL server), other thing I\'ll expirement at the moment I have time is to get the ROUTER table with SMNP and write a trace route routine to the final HOP to get the real IP address even if the client his behind a router at the other side !\n\n  Best Regards,\n\n It was a real pleasure tu read you Patrick  ! \n\n Sylvain','',0,'CA==','1co3xuev',1,0,'',1209,0,0),(47701,9860,6,1238,0,'217.127.123.34',1202315147,1,0,1,1,1,1,'','','Gracias ADBLANCO\n\nYa lo tengo, en princioio daba errores por temas tontos como un a\"tilde\" en una función, pero ya está funcionando.','',0,'CA==','37n9yuud',1,0,'',1238,0,0),(47702,8462,3,130,0,'77.179.217.203',1202315343,1,0,1,1,1,1,'','','Hi Toninho,\n\njust sent  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'CA==','3d9hhmpc',1,0,'',130,0,0),(47703,9837,6,935,0,'200.62.123.43',1202316407,1,0,1,1,1,1,'','solucionado','Amigos del foro, sjingo, sysctrl2,Manuel, \n\nGracias por Responder ya probe las opciones y me funciono al 100% con al solucion planteada por manuel y algo de la funcion de sysctrl2,\n\nAgradezco los aportes de este muy productivo foro y de los amigos en disposicion de ayuda desinteresada,\n\nSaludes desde Managua, Nicaragua \n\nRamon Paredes','',0,'CA==','28r1sv7g',1,0,'',935,0,0),(47704,9842,6,1201,0,'200.90.17.154',1202317071,1,0,1,1,1,0,'','','A mi tambien me trabaja mal el DBCOMBO, por lo que evito utilizarlo, Pero de todas formas prueba modificar tu funcion:\n\nIF nTipoPago&gt;0\n TipoPago -&gt;(Dbgoto(nTipopago)) \n nDescuento:= Tipopago-&gt;Porcen \nELSE\n MsgAlert(\"Debe Seleccionar Porcentaje\")\nENDIF','',0,'CA==','3tox4b8q',1,0,'',1201,0,0),(47705,9865,6,1201,0,'200.90.17.154',1202317306,1,0,1,1,1,0,'','','Ya Somos dos con la misma Necesidad, Espero que alguien nos Ayude.\n\nAngel','',0,'CA==','1f67017n',1,0,'',1201,0,0),(47706,9869,3,868,0,'219.64.121.60',1202317506,1,0,1,1,1,1,'','ButtonBar button with odragcursor problems','If a button in the buttonbar is also used to start drag operation by assigning a value to its data oDragCursor it is noticed that (1) the buttons bAction block is never executed, (2) mouse click on the button has no effect, (3) in case of 2007 style, when mouse is moved over the button, it is painted in orange color but even after mouse leaves the button the orange color stays till the end of the application (4) in case of non-2007 style the button is never hilighted when mouse is moved over the button. Only drag works.\n\nA sample code is given below for testing all the alternatives. For bitmaps any available bmp files may be used.\n[code:8jf739xv]\n#include \'fivewin&#46;ch\'\n\nfunction Main&#40;&#41;\n\n   local ownd,oBar\n   local oBtn1, oBtn2, oBtn3, oBtn4, oBtn5\n\n   DEFINE WINDOW oWnd\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 3D // 2007\n   DEFINE BUTTON oBtn1 OF oBar FILE &quot;UP&#46;BMP&quot;,&quot;DOWN&#46;BMP&quot; TOP PROMPT &quot;1&quot; FLAT ACTION oWnd&#58;Say&#40; 10, 5, &quot;Btn&#46;1&quot; &#41;\n   DEFINE BUTTON oBtn2 OF oBar FILE &quot;UP&#46;BMP&quot;,&quot;DOWN&#46;BMP&quot; TOP PROMPT &quot;2&quot; FLAT ACTION oWnd&#58;Say&#40; 10, 5, &quot;Btn&#46;2&quot; &#41;\n   DEFINE BUTTON oBtn3 OF oBar FILE &quot;UP&#46;BMP&quot;,&quot;DOWN&#46;BMP&quot; TOP PROMPT &quot;3&quot; FLAT ACTION oWnd&#58;Say&#40; 10, 5, &quot;Btn&#46;3&quot; &#41;\n   DEFINE BUTTON oBtn4 OF oBar FILE &quot;UP&#46;BMP&quot;,&quot;DOWN&#46;BMP&quot; TOP PROMPT &quot;4&quot; FLAT ACTION oWnd&#58;Say&#40; 10, 5, &quot;Btn&#46;4&quot; &#41;\n   DEFINE BUTTON oBtn5 OF oBar FILE &quot;UP&#46;BMP&quot;,&quot;DOWN&#46;BMP&quot; TOP PROMPT &quot;Q&quot; FLAT ACTION oWnd&#58;End&#40;&#41;\n\n   oBtn3&#58;oDragCursor &#58;= TCursor&#40;&#41;&#58;New&#40;,\'DRAG\'&#41;\n   oBtn3&#58;bDragBegin  &#58;= &#123; |r,c,f| nil &#125;\n\n   oWnd&#58;bDropOver &#58;= &#123; |u,r,c,f| MsgInfo&#40;&quot;Dropped&quot;&#41; &#125;\n\n   ACTIVATE WINDOW oWnd\n\nreturn nil\n[/code:8jf739xv]\nIssues need to be fixed:\n\n1. In 2007 style, the button should be painted active ( orange color ) only when mouse is over the button and the color to be restored to normal when mouse moves away from the button.\n\n2. Non 2007 style: Button should be highlighted ( like other buttons ) when mouse is moved over the button.\n\n3. When mouse is clicked on the button, (a) second bitmap should be painted (b) button should be painted as clicked like other buttons (c) bAction should be executed if drag does not start.','',0,'AIA=','8jf739xv',1,0,'',868,0,0),(47707,9842,6,456,0,'217.127.39.57',1202317748,1,0,1,1,1,1,'','','No se puede usar data numericos con DbCombo., creo que eso es el problema que tienes. Prueba a convertirlo a caracter.\n\nJames Bott dice:\n[quote:18kxzmiq]\nYou can\'t use numeric data with either Combobox or DBComobo--the data must be converted to string. If numeric data values are passed as parameters to methods then they are assumed to be locations, not data elements. \n\nDBCombo inherits from the Combobox class so it inherits the same behavior. Some time ago I tried to modify DBCombo to handle numeric data but it turned out to a huge amount of work since I would have to rewrite most of the combobox methods too. \n\nSince DBCombo\'s can also use arrays, then you can just convert the database info to an array of strings before initializing DBCombo, then convert the selected value back to a number. [/quote:18kxzmiq]','',0,'gA==','18kxzmiq',1,0,'',456,0,0),(47708,9870,6,1206,0,'213.97.245.163',1202319352,1,0,1,1,1,0,'','PROBLEMAS CON ADS Y MSGMETER','Tengo una aplicacion que funciona con DBFCDX, al pasarla a ADS tengo un problema visual para saber que porporción lleva de indice con MSGMETER\n\n\n*****************************************\n*la parte del codigo que llama a ADS está correcta \n*OJO FUNCIONA PERFECTAMENTE CON DBFCDX\n*****************************************\nUSE clientes NEW\nINDEXA(\"PROCESANDO CODIGO EMPRESA\",\"CODIGO\",\"CODIGO\")\nRETURN NIL\n\nfunction indexa(TITULO,CAMPO,TAGCDX)\n       MsgMeter( { | oMeter, oText, oDlg, lEnd |                         ;\n              BuildIndex( oMeter, oText, oDlg, @lEnd                    ,;\n              CAMPO, TAGCDX ) }                  ,;\n              OemToAnsi(TITULO)             ,;\n              OemToAnsi(\"Procesando ¡ndices\") )\nRETURN NIL\n\nFUNCTION BuildIndex( oMeter, oText, oDlg, lEnd, campo, ARCHIVO )\n   oMeter:nTotal = LASTREC()\n   OrdSetFocus(0)\n   INDEX ON &amp;(Campo) TAG  &amp;(ARCHIVO) ;\n   EVAL ( oMeter:Set( RecNo() ), MSGINFO(RECNO()), oMeter:REFRESH() ,ODLG:REFRESH(),SysRefresh(), ! lEnd )\nRETURN NIL\n***********************************\n\nDicho código con DBFCDX me informa perfectamente del la proporcion del indice que lleva efectuada.... pero en cambio con ADS no me aparece  absolutamente nada. Mi pregunta es  ADS entiende?\n   INDEX ON &amp;(Campo) TAG  &amp;(ARCHIVO) ;\n   [b:2mtn5ovn]EVAL [/b:2mtn5ovn]( oMeter:Set( RecNo() ), MSGINFO(RECNO()), oMeter:REFRESH() ,ODLG:REFRESH(),SysRefresh(), ! lEnd )','',0,'QA==','2mtn5ovn',1,0,'',1206,0,0),(47709,9826,6,1206,0,'213.97.245.163',1202319871,1,0,1,1,1,0,'','','gracias, pero eso es precisamente la parte de código que me quería evitar','',0,'QA==','20lvzyvv',1,0,'',1206,0,0),(47710,9871,7,720,0,'80.36.244.134',1202321539,1,0,1,1,1,0,'','Problema con traducción de código...','Hola a todos...\n\nResulta que tengo el siguiente código de una aplicación en Visual FoxPro y necesito pasarla a fwppc..... pero me he liado...\n\nAgradeceria a alguien que me eche una mano en la traducción ya que es un select con condiciones y demás .....\n\n\nEl código es el siguiente:\n\n\nselect articulos.nombre,articulos.existencias, ;\n	iif(articulos.sw_efg=.t.,\'Efg\',\'   \') as efg, ;\n	iif(articulos.sw_exclu=.t.,\'E\',\' \') as excl, ;\n	articulos.pvp,articulos.efg_pvp,0000.00 as anexo3, ;\n	0000.00 as anexo_doe, articulos.codigo, ;\n	articulos.cantidad_unid, articulos.posologia, \'\' as m ;\n	from articulos_pa inner join articulos ;\n	on articulos_pa.art_pac= articulos.codigo ;\n	where &amp;condicion ;\n	order by nombre ;\n	into cursor pact READWRITE\n\nCualquier ayuda la agradeceria....\n\nSaludos y gracias.\n\nElías Torres.\n\nPD. Seguro que es una boberia pero muchos ojos ven más que dos....','',0,'QA==','3n529p82',1,0,'',720,0,0),(47711,9826,6,362,0,'200.158.19.36',1202324366,1,0,1,1,1,1,'','','[quote=&quot;JARO&quot;:3qigtqmo]gracias, pero eso es precisamente la parte de código que me quería evitar[/quote:3qigtqmo]\n\nSE ÉS UNA APLICACION COMERCIAL, NO HAY SALIDA.\n\nMIRA ESTE EJEMPLO, BY CARLOS VARGAS(Nicaragua):\n\n<!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/exibedicas.asp?id=822\">http://www.fivewin.com.br/exibedicas.asp?id=822</a><!-- m -->\n\nBest regards, saludos.','',0,'gA==','3qigtqmo',1,0,'',362,0,0),(47712,9842,6,108,0,'190.48.188.189',1202326156,1,0,1,1,1,0,'','','Si, depues de varias pruebas, me decidi a agregar a el/los archivo/s un campo mas, que es un campo carater, que al momento de dar de alta un registro, el campo \"codigo\" que es numerico lo paso a caracter, y luego trabajo los DBcombo con ese campo caracter....... y funciona perfectamente con lo que necesito .....\nDesde ya muchas gracias por las respuestas.','',0,'gA==','1o8f0jkz',1,0,'',108,0,0),(47713,8462,3,69,0,'74.13.36.61',1202330419,1,0,1,1,1,1,'','','Please send to me as well.\n\njeff @ can-soft.net','',0,'gA==','27cyzyif',1,0,'',69,0,0),(47714,9871,7,527,0,'83.40.174.166',1202331903,1,0,1,1,1,0,'','Re: Problema con traducción de código...','No existen estos tipos de sentencias SQL en FWPPC, tienes que realizar un DO WHILE NOT EOF(), condicionando las instrucciones, como se hacia antiguamente.','',0,'gA==','3hnvwmak',1,0,'',527,0,0),(47715,9580,3,2,0,'87.218.146.222',1202333163,1,0,1,1,1,1,'','','James,\n\n&gt;\nI have made the necessary changes to the Outlook2003 class so we can use resource dialogs with a defined Outlook bar on the main window. I will be forwarding them as soon as I get them cleaned up and fully tested. \n&gt;\n\n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','2e9tu358',1,0,'',2,0,0),(47716,9870,6,110,0,'190.184.22.56',1202334350,1,0,1,1,1,1,'','','ADS no permitre el uso de EVAL, simplemete lo ignora.\nExiste una forma de saber el avance del proceso de la indexacion con ADS.\n\ntomado del doc de rddads\n[code:1wnez98z]\n\n       FUNCTION Main&#40;&#41;\n          &#46;&#46;&#46;\n          AdsRegCallBack&#40; &#123;|nPercent| outputstuff&#40;nPercent&#41;&#125;  &#41;\n          /* The above codeblock will be called approximately\n               every 2 seconds while indexing&#46;\n               The codeblock can return &#46;T&#46; to abort&#46;   */\n          INDEX ON First+LAST+LABEL1+LABEL2 TAG First\n          AdsClrCallBack&#40;&#41;\n          &#46;&#46;&#46;\n       RETURN nil\n\n       FUNCTION outputstuff&#40;nPercent&#41;  /* The &quot;callback&quot; function */\n          ? &quot;output stuff&quot;, nPercent\n       RETURN inkey&#40;&#41; == 27\n\n       /*  If press ESC, returns &#46;T&#46; to abort&#46;   */\n\n      \n[/code:1wnez98z]','',0,'AIA=','1wnez98z',1,0,'',110,0,0),(47717,9709,6,1178,0,'200.24.127.59',1202334970,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:27thlwc6]Antolin,\n\nSigue estas indicaciones:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9572\">http://fivetechsoft.com/forums/viewtopic.php?t=9572</a><!-- m -->[/quote:27thlwc6]\n\nMi pregunta es la siguiente en que orden de instala, lo baje y hay uno de 300 y otro de 400, Tiene alguna llave de activacion ,\nsaludos , Gracias de antemano.','',0,'gA==','27thlwc6',1,0,'',1178,0,0),(47718,9719,6,596,0,'84.76.66.27',1202335520,1,0,1,1,1,1,'','','¡¡¡ Socorro !!!\n\nYa se que soy \"muy rarito\" con mis desarrollos pero necesito una solución al mensaje anterior de estructras.\n\nGracias.','',0,'gA==','567mt7fv',1,0,'',596,0,0),(47719,9872,6,1178,0,'200.24.127.59',1202335719,1,0,1,1,1,0,'','TOLEAUTO():New(&quot;adodb.connection&quot;)','Mi pregun seria este TOLEAUTO():New(\"adodb.connection\")  , solamente funciona con xharbour. se requiere alguna libreria adicional para que funcione en harbour\n\nSaludos, al fourms','',0,'gA==','327l9153',1,0,'',1178,0,0),(47720,9873,6,1178,0,'200.24.127.59',1202335939,1,0,1,1,1,0,'','No me muestra los datos , en el browser','Tengo un problema con este codigo , pro fa si me pueden dar una mano.\nGracias\n\nAnexo codigo\n\n[code]#Include \"Fivewin.ch\" \nFunction Main() \nLOCAL oDados, txSql , oCn , oBrow, oFont, oDlg\noCn := CREATEOBJECT( \"ADODB.Connection\" ) \noCn:OPEN(\"DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=Localhost;DATABASE=basedatm;USER=root;PASSWORD=kate1984\") \n\ntxSql := \"SELECT * FROM ktipmod; \" \noDados := oCn:Execute( txSql)\n   DEFINE FONT oFont NAME \"Georgia\" SIZE 0,-15 \n   DEFINE DIALOG oDlg FROM 0,0 TO 550,800 PIXEL TITLE \"Ado Connections My SQL\" \n\n   @ 1,1 LISTBOX oBrow FIELDS oDados:Fields(0):Value  ,; \n                              oDados:Fields(1):Value ,; \n                              oDados:Fields(2):Value ; \n                       HEADERS \"Field 1\",\"Field 2\",\"Field 3\" SIZE 350,250 PIXEL OF oDlg \n \n  ACTIVATE DIALOG oDlg \nRETURN NIL\n&#91;code&#93;&#91;/code&#93;','',0,'','1w6gekzl',1,0,'',1178,0,0),(47721,9865,6,644,0,'190.139.162.44',1202336151,1,0,1,1,1,0,'','','Esta función no la probé pero imagino que es lo que necesitas\n\n#Include \"Fivewin.ch\" \n#Include \"dll.ch\" \n#Include \"Struct.ch\" \n\nFunction ChangeRes(nX,nY,lDireto) \n  Local CCDEVICENAME  := 32 \n  Local CCFORMNAME    := 32 \n  Local EWX_LOGOFF    := 0 \n  Local EWX_SHUTDOWN  := 1 \n  Local EWX_REBOOT    := 2 \n  Local EWX_FORCE     := 4 \n  Local DM_BITSPERPEL := nHex(\"40000\")  // &amp;H40000  // 4*16^4  // 262144 \n  Local DM_PELSWIDTH  := nHex(\"80000\")  // &amp;H80000  // 8*16^4  // 524288  \n  Local DM_PELSHEIGHT := nHex(\"100000\") // &amp;H100000 // 1*16^5  //1048576 \n  Local CDS_UPDATE    := 1  //&amp;H1 \n  Local CDS_TEST      := 4  //&amp;H4 \n  Local DISP_SUCCESS  := 0 \n  Local DISP_RESTART  := 1 \n  Local nOldX         := WndWidth(GetDesktopWnd()) // GetSysMetrics(0) \n  Local nOldY         := WndHeight(GetDesktopWnd()) // GetSysMetrics(1) \n  Local oDevMode \n  Local uRet \n  Local cBuffer \n  Local lDone:=.F. \n  DEFAULT nX := WndWidth(GetDesktopWnd()),; \n          nY := WndHeight(GetDesktopWnd()),; \n          lDireto:=.f. \n  STRUCT oDevMode      \n    MEMBER cDevName   AS STRING LEN CCDEVICENAME \n    MEMBER nSpecVer   AS _INT \n    MEMBER nDrvVer    AS _INT \n    MEMBER nSize      AS _INT \n    MEMBER nDrvExtra  AS _INT \n    MEMBER nFields    AS DWORD \n    MEMBER nOrientat  AS _INT \n    MEMBER nPaperSiz  AS _INT \n    MEMBER nPaperLen  AS _INT \n    MEMBER nPaperWid  AS _INT \n    MEMBER nScale     AS _INT \n    MEMBER nCopies    AS _INT \n    MEMBER nDefSrc    AS _INT \n    MEMBER nPrnQlty   AS _INT \n    MEMBER nColor     AS _INT  \n    MEMBER nDuplex    AS _INT \n    MEMBER nYResolut  AS _INT \n    MEMBER nTTOpt     AS _INT \n    MEMBER nCollate   AS _INT \n    MEMBER cFormName  AS STRING LEN CCFORMNAME \n    MEMBER nUnusePad  AS _INT \n    MEMBER nBitsPPel  AS DWORD \n    MEMBER nPelWidth  AS DWORD \n    MEMBER nPelHeigh  AS DWORD \n    MEMBER nDisFlags  AS DWORD \n    MEMBER nDisFreq   AS DWORD \n  ENDSTRUCT \n  cBuffer:=oDevMode:cBuffer \n  uRet := EnumDisplaySettings(0, 0, @cBuffer) \n  oDevMode:cBuffer:=cBuffer    \n  IF uRet \n     // Descomente o ultimo parametro se quer trocar as cores, so que nao recomendo pois irá \n     // reiniciar \n     oDevMode:nFields   := nOr(DM_PELSWIDTH, DM_PELSHEIGHT /* , DM_BITSPERPEL */) \n     oDevMode:nPelWidth := nX    //ScreenWidth \n     oDevMode:nPelHeight:= nY    //ScreenHeight \n     // Descomente esta linha para trocar as cores so que nao recomendo \n     * oDevMode:nBitsPPel := 16 //(could be 8, 16, 32 or even 4) \n     cBuffer:=oDevMode:cBuffer \n     uRet := ChangeDisplaySettings(@cBuffer, CDS_TEST) \n     oDevMode:cBuffer:=cBuffer \n     DO CASE \n        Case uRet = DISP_RESTART \n             if MsgYesNo(\"Deseja reiniciar para aplicar as alteracoes?\", \"Atencao\") \n                uRet := ExitWindowsEx(EWX_REBOOT, 0) \n             Endif \n        Case uRet = DISP_SUCCESS \n             uRet := ChangeDisplaySettings( @cBuffer, CDS_UPDATE) \n             lDone:=.T. \n             if lDireto \n                oDevMode:nFields   := nOr(DM_PELSWIDTH, DM_PELSHEIGHT /* , DM_BITSPERPEL */) \n                oDevMode:nPelWidth := nOldX    //ScreenWidth \n                oDevMode:nPelHeight:= nOldY    //ScreenHeight \n                cBuffer:=oDevMode:cBuffer \n                uRet := ChangeDisplaySettings(@cBuffer, CDS_TEST) \n                oDevMode:cBuffer:=cBuffer \n             else \n                if MsgYesNo(\"Tem certeza desta alteracao?\", \"Atencao\") \n                else \n                   oDevMode:nFields   := nOr(DM_PELSWIDTH, DM_PELSHEIGHT /* , DM_BITSPERPEL */) \n                   oDevMode:nPelWidth := nOldX    //ScreenWidth \n                   oDevMode:nPelHeight:= nOldY    //ScreenHeight \n                   cBuffer:=oDevMode:cBuffer \n                   uRet := ChangeDisplaySettings(@cBuffer, CDS_TEST) \n                   oDevMode:cBuffer:=cBuffer \n                endif \n             endif \n       otherwise \n             MsgAlert(\"Modo nao suportado\", \"Erro\" ) \n     ENDCASE \n  endif \nreturn lDone \n\nDLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,; \n                                   iModeNum AS DWORD, ; \n                                   @lpDevMode AS LPSTR) AS BOOL PASCAL; \n   FROM \"EnumDisplaySettingsA\" LIB \"User32.dll\" \n\nDLL32 FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,; \n                                     dwFlags AS DWORD) AS DWORD; \n   FROM \"ChangeDisplaySettingsA\" LIB \"User32.dll\" \n\nDLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,; \n                             dwReserved AS DWORD) AS DWORD PASCAL; \n   LIB \"user32.dll\" \n\nAvisame si funcionó\nsaludos','',0,'','2rp063ww',1,0,'',644,0,0),(47722,9743,6,439,0,'200.125.39.209',1202336597,1,0,1,1,1,1,'','','[quote=&quot;mmercado&quot;:2kw5e84r][quote=&quot;jose_murugosa&quot;:2kw5e84r]No me recibido el correo que mencionas, ¿podrías enviármelo a <!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e --> por favor?[/quote:2kw5e84r]\nListo el Pollo:\n\nEnviado a tus 2 correos.[/quote:2kw5e84r]\n\nQuerido amigo,\n\nNo se que sucede, pero no he recibido tus mails en ninguno de mis correos, desde ya te digo que ya han habido varias consultas de programadores por él.\n\nEstoy a tus órdenes.\n\n<!-- e --><a href=\"mailto:jmurugosa@hotmail.com\">jmurugosa@hotmail.com</a><!-- e -->\n<!-- e --><a href=\"mailto:jmurugosa@gmail.com\">jmurugosa@gmail.com</a><!-- e -->\n\nUn abrazo.','',0,'gA==','2kw5e84r',1,0,'',439,0,0),(47723,9874,6,838,0,'80.59.225.15',1202336913,1,0,1,1,1,0,'','Como cerrar una pagina Web','Hola amigos\n\nPara ejecutar un fichero php desde fwh hago lo siguiente:\n[code:1rz482yg]\nSHELLEXECUTE&#40;0,0,&quot;http&#58;//www&#46;mipagina&#46;info/fichero&#46;php&quot;,0,0,1&#41;\n[/code:1rz482yg]\n\nEsto me ejecuta el fichero \"fichero.php\" abriendome para ello una ventana de internet.\n\nEl problema es que me la deja abierta, y la tengo que cerrar a mano, porque no se como cerrarla desde fwh.\n\nA ver si me echais una manita\n\nSaludos\n\nJose Luis','',0,'AIA=','1rz482yg',1,0,'',838,0,0),(47724,9709,6,2,0,'87.218.146.222',1202348279,1,0,1,1,1,1,'','','Ruben,\n\nSigue estas indicaciones: \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9572\">http://fivetechsoft.com/forums/viewtopic.php?t=9572</a><!-- m -->','',0,'AIA=','1f7nvkd6',1,0,'',2,0,0),(47725,9875,6,492,0,'189.147.68.165',1202355296,1,0,1,1,1,1,'','Antonio, se podra en el Ballon Tooltip esto ?','Master\n\nSe ven super los tooltips tipo globo, solo una pequena solicitud :\n\nQue posibilidad existe que se le pueda agregar un parametro adicional para pintarlos de X color.\n\nSetBalloon( .T., CLR_X )\n\nEstaria fantastico !!!!\n\nAhora, ya que andas metiendole degradados de color a los tabs, pues que le ajustes los metodos y pudieran quedar opcionalmente con este tipo :\n\nSetBalloon( .T., CLR_X, CLR_Y )\n\n\nOjala sea posible  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\n\nSaludos','',0,'AIA=','rstko76s',1,0,'',492,0,0),(47726,8462,3,130,0,'141.51.32.24',1202372945,1,0,1,1,1,1,'','','Done','',0,'AIA=','31u55nps',1,0,'',130,0,0),(47727,9872,6,456,0,'217.127.39.57',1202373676,1,0,1,1,1,1,'','','En versiones antiguas de harbour hacia falta incluir hbOle.lib, en las ultimas versiones de harbour creo quee ya viene incluido.','',0,'AIA=','1c8dw0mo',1,0,'',456,0,0),(47728,9859,3,32,0,'41.206.160.2',1202375039,1,0,1,1,1,0,'','','[quote=&quot;SylRob&quot;:2okxtgkv]Alex,\n\n I\'m really familiar with the socket function ! <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->. This won\'t work if the client connection come from the internet over a Router you\'ll obtain the ROUTER IP !\n\n Best Regards,\n\n Sylvain[/quote:2okxtgkv]\n\nI have used sockets over routers before, and have never had an issue with only getting the router ip....\n\nBelow over vpn\n\n[code:2okxtgkv]D&#58;\\Dev&gt;ipconfig\n\nWindows IP Configuration\n\nPPP adapter AST&#58;\n\n        Connection-specific DNS Suffix  &#46; &#58;\n        IP Address&#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#58; 172&#46;21&#46;129&#46;146\n        Subnet Mask &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#58; 255&#46;255&#46;255&#46;255\n        Default Gateway &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#46; &#58;\n\nD&#58;\\Dev&gt;tracert -d 172&#46;21&#46;141&#46;190\n\nTracing route to 172&#46;21&#46;141&#46;190 over a maximum of 30 hops\n\n  1   394 ms   307 ms   373 ms  172&#46;21&#46;129&#46;128\n  2     *      276 ms   544 ms  172&#46;21&#46;128&#46;2\n  3   687 ms   841 ms   467 ms  172&#46;21&#46;135&#46;6\n  4   588 ms   294 ms   752 ms  172&#46;21&#46;141&#46;190\n\nTrace complete&#46;\n\nD&#58;\\Dev&gt;telnet 172&#46;21&#46;141&#46;190 4040\n\nWelcome listener from 172&#46;21&#46;129&#46;146[/code:2okxtgkv]','',0,'gIA=','2okxtgkv',1,0,'',32,0,0),(47729,9867,4,2,0,'87.218.146.222',1202375404,1,0,1,1,1,1,'','','Roberto,\n\nMaybe those files are not accesible from your Pocket PC connection,\n\nHow can you check that the connection is ok ?','',0,'gIA=','17ksxowt',1,0,'',2,0,0),(47730,9876,20,49,0,'213.82.134.66',1202377663,1,0,1,1,1,1,'','Contabilità','Ho bisogno di delucidazioni in merito ad una contabilità di tipo Partita doppia:\n\nio ho un piano contabile con conti e sottoconti.\n\nquando aggiungo un clinete devo creare un conto clinete dentro al piano dei conti  se per esempio il conto clineti è 2001  il sottoconto diventa 2001001  potrebbe andare bene ?\n\nlo stesso per i fornitori ?\n\n\nnella dialog per inserimento della prima nota  come posso fare per accorpare ad una certa causale tot conti da movimentare ?\n\ngrazie','',0,'gIA=','1crokqk6',1,0,'',49,0,0),(47731,9840,6,46,0,'217.168.114.46',1202377793,1,0,1,1,1,0,'','','Tienes que cambiar la definiciones de las columnas y hacer referencia al area de trabajo al que pertenecen los campos\n\noCol:bStrData := { || Catastro-&gt;CODIP01} \n\nEsto, porque al momento de refrescar el primer browse, el area de trabajo actual \"tempava\" no tiene el campo CODP01\n\nSalu2','',0,'gIA=','3ae84vp7',1,0,'',46,0,0),(47732,9844,11,2,0,'87.218.146.222',1202377952,1,0,1,1,1,1,'','','[code:2ytjsj0q]\nfmp&#46;h&#58;20&#58; error&#58; redefinition of typedef ‘LONG’\n&#46;/&#46;&#46;/&#46;&#46;/harbour/include/hbdefs&#46;h&#58;190&#58; error&#58; previous declaration of ‘LONG’ was here\nfmp&#46;h&#58;22&#58; error&#58; redefinition of typedef ‘BYTE’\n&#46;/&#46;&#46;/&#46;&#46;/harbour/include/hbdefs&#46;h&#58;181&#58; error&#58; previous declaration of ‘BYTE’ was here\nfmp&#46;h&#58;23&#58; error&#58; redefinition of typedef ‘BOOL’\n&#46;/&#46;&#46;/&#46;&#46;/harbour/include/hbdefs&#46;h&#58;168&#58; error&#58; previous declaration of ‘BOOL’ was here\nIn file included from yunb&#46;prg&#58;37&#58;\nfmp&#46;h&#58;232&#58;21&#58; error&#58; rm84cmn&#46;h&#58; No such file or directory\nfmp&#46;h&#58;241&#58;18&#58; error&#58; ifmp&#46;h&#58; No such file or directory\n[/code:2ytjsj0q]\nWe also need those missing .h files: rm84cmn.h, ifmp.h\n\nBesides them, there are conflicts for LONG, BYTE and BOOL definitions. We can solve the BOOL one, but not sure about LONG and BYTE. We need to try it.','',0,'AIA=','2ytjsj0q',1,0,'',2,0,0),(47733,9877,3,319,0,'189.62.132.87',1202387643,1,0,1,1,1,0,'','MSFLEXGRID COM MERGECOL','é possivel utilizar a msflegrid.ocx dentro do fivewin. existe algum exemplo, pois preciso da funcao MergeCol.','',0,'AIA=','3rktchke',1,0,'',319,0,0),(47734,9870,6,1206,0,'213.97.245.163',1202387848,1,0,1,1,1,0,'','','SOLUCIONADO \n\nMUCHA, MUCHISIMAS GRACIAS','',0,'AIA=','21aawsbs',1,0,'',1206,0,0),(47735,9865,6,1201,0,'200.90.17.154',1202389353,1,0,1,1,1,0,'','','Horacio, La probé pero me debe faltar alguna librería:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_HB_FUN_GETDESKTOPWND\' referenced from C:\\FUENTES\\HCM\\OBJ32\\_RESOL.OBJ\n\n\nGracias\n\nP.D. FW 7.09 + XHARBOUR .997','',0,'AIA=','2kzzueon',1,0,'',1201,0,0),(47736,9874,6,838,0,'80.34.222.112',1202390246,1,0,1,1,1,0,'','','Hola a todos\n\nHabia pensado en:\n[code:1wjgowwx]SHELLEXECUTE&#40;0,&quot;Close&quot;,&quot;http&#58;//www&#46;mipagina&#46;info/fichero&#46;php&quot;,0,0,1&#41;\n[/code:1wjgowwx]\n\nAhora, si esto cerrara la pagina web, como podría yo saber que ha acabado su trabajo el fichero cargapod.php?.\n\nEste fichero (cargapod.php), lo que hace en el servidor, es cargar datos de albaranes en una base de datos mysql, desde una .dbf, pero lo hace desde el explorador web.\n\nSaludos\n\nJose Luis','',0,'AIA=','1wjgowwx',1,0,'',838,0,0),(47737,9865,6,644,0,'201.252.32.95',1202390787,1,0,1,1,1,0,'','','Angel: Esta rutina la bajé de Fivewin Brasil. Podrías hacer una consulta porque allí hay un foro y se me ocurre que la misma la escribió un brasilero ( por los comentarios ).','',0,'AIA=','nph8pdkq',1,0,'',644,0,0),(47738,9865,6,2,0,'87.218.146.222',1202395852,1,0,1,1,1,1,'','','Usa GetDesktopWindow()','',0,'AIA=','4i5m7btp',1,0,'',2,0,0),(47739,9743,6,1255,0,'201.122.38.237',1202404098,1,0,1,1,1,0,'','','[quote=&quot;jose_murugosa&quot;:2oasonmf]No se que sucede, pero no he recibido tus mails en ninguno de mis correos, desde ya te digo que ya han habido varias consultas de programadores por él[/quote:2oasonmf]Hola José:\nPensando en que el anexo pudiera tener problemas, lo volví a generar y te lo envié nuevamente anoche a tus 2 correos.\n\nAvísame por favor si ya lo recibiste\n\nSaludos.\n\nManuel Mercado','',0,'gA==','2oasonmf',1,0,'',1255,0,0),(47740,9878,6,483,0,'190.138.85.246',1202411728,1,0,1,1,1,0,'','Error en TSBrowse','Hola Estimado Foro:\nEstoy probando la clase TSBrowse 7.1 y me tira el siguiente error:\n\nApplication\n===========\n   Path and name: C:\\Programs\\SueldoXH\\SuelWin.Exe (32 bits)\n   Size: 2,211,840 bytes\n   Time from start: 0 hours 0 mins 22 secs \n   Error occurred at: 07/02/2008, 11:29:43\n   Error description: Error BASE/1002  Alias does not exist: ARRAY\n\nStack Calls\n===========\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:RESET(8624)\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:SETARRAY(9493)\n   Called from: sbarray.prg =&gt; VEOMATITEM(61)\n   Called from: items.prg =&gt; (b)INDILIQII(705)\n   Called from: BUTTON.PRG =&gt; TBUTTON:CLICK(0)\n   Called from: CONTROL.PRG =&gt; TBUTTON:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:HANDLEEVENT(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: items.prg =&gt; INDILIQII(726)\n   Called from: items.prg =&gt; (b)INDILIQ(614)\n   Called from: CONTROL.PRG =&gt; TCONTROL:LDBLCLICK(0)\n   Called from: WBROWSE.PRG =&gt; TWBROWSE:LDBLCLICK(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TWBROWSE:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; DIALOGBOX(0)\n   Called from: DIALOG.PRG =&gt; TDIALOG:ACTIVATE(0)\n   Called from: items.prg =&gt; INDILIQ(637)\n   Called from: suelwin.prg =&gt; (b)MENUPRIN(166)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: suelwin.prg =&gt; MAIN(130)\n\nSystem\n======\n   CPU type: Pentium IV 1466 Mhz\n   Hardware memory: 2038 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.51 Intl. (SimpLex)\n   Windows version: 6.0, Build 6000 \n\n\nComo veran es el ejemplo que trae la clase pero lo mas extraño de todo es que el error ocurre cuando el programa paso por distintas funciones anteriores a ejecutar la misma. En cambio si la ejecuto de primera instancia no genera el error. \nPor lo que vi, el error esta asociado a la variable lIsDbf en la clase TSBROWSE, en apariencia en algun momento toma el valor de .t. cuando en realidad tiene que ser .f.\n\nEspero una orientacion.\nGracias','',0,'gA==','1nvo6yjc',1,0,'',483,0,0),(47741,9879,3,439,0,'200.125.49.141',1202418483,1,0,1,1,1,1,'','TSBROWSE Class OF MANUEL MERCADO','Hi to everybody,\n\nNext Tuesday, February 12, we will put in our blog classes of Manuel Mercado, while preparing a place dedicated to our good friend and master in our page. \n\nAt that moment, we will post here our blog address.\n\nYou will find links to download the last update of TSBrowse 7 and other classes of Manuel, and we hope we can include a biography of him for his funs.\n\nHe said he will soon release his 8th version of this browser.\n\nThanks, Manuel, for your contributions to Fivewin.','',0,'gA==','3q8j1wno',1,0,'',439,0,0),(47742,9880,6,439,0,'200.125.49.141',1202419271,1,0,1,1,1,1,'','Clase TSBROWSE de Manuel Mercado','Hola a todos,\n\nEl próximo martes 12 de febrero, pondremos a vuestra disposición en nuestro blog, clases de Manuel Mercado, mientras preparamos un lugar dedicado a nuestro buen amigo y Maestro en nuestra página.\n\nPara entonces encontraréis aquí la dirección del mismo.\n\nEncontrarán links para bajar la última actualización de TSBrowse 7 y otras clases de Manuel, y esperamos poder incluír también a la brevedad una biografía de él para sus amigos y fanáticos.\n\nNos ha dicho que pronto veremos el lanzamiento de TSBrowse 8!!\n\nGracias Manuel, por tus contribuciones a Fivewin!!','',0,'gA==','1xaopb3f',1,0,'',439,0,0),(47743,9881,1,418,0,'91.171.78.130',1202422821,1,0,1,1,1,0,'','ERROR 5300','Hi\ni have one error when i want to print with Fivewin \n\n\"Clipper Internal Error\"\nDIBREAD(0)\nUnrecovreable error 5300: not enough memory\n\nI don\'t see the 5300 error in clipper doc.\nAny idea?\nI think it is a problem of configuration, but what?\n\nFw 2.2 Clip 5.3 MS link    Celeron 2.8 Ghz 500Mo Ram\n\nThanks','',0,'gA==','1ljpvlcp',1,0,'',418,0,0),(47744,9865,6,9,0,'80.103.174.39',1202423289,1,0,1,1,1,1,'','','Gracias Horacio,\n\nAdemas de la rectificación que dice Antonio (se puesd sustituir por GetSysMetrics(0) y GetSysMetrics(1) ) hay otro pequeño error. Hay que sustiuir todos los nPelHeight por nPelHeigh.\n\nFuncionar, funciona pero mal. Ya que realiza el cambio de resolución de pantalla pero a 256 colores.- Por tanto, todo se ve un poco distorsionado. Seguramente habrá algun parámetro que habrá que cambiar tambien. \nSegun un código que he visto en Delphi,  en las funciones EnumDisplaySettings y ChangeDisplaySettings repetimos las variables y no coinciden con las funciones de Windows. Quizas algun entendido en \"C\" pueda ayudarnos un poquito ¿Antonio?','',0,'gA==','iyxxug23',1,0,'',9,0,0),(47745,9882,6,1297,0,'200.87.55.198',1202423852,1,0,1,1,1,0,'','En ADS no soporta SORT!!!','Con el RDD de ADS, el comando SORT me da que no es soportado.\nCual es la alternativa????\n\nGracias de antemano','',0,'gA==','2j1sbr64',1,0,'',1297,0,0),(47746,9865,6,2,0,'87.218.146.222',1202424079,1,0,1,1,1,1,'','','Manuel,\n\nEste valor parece que controla el número de colores:\n\noDevMode:nBitsPPel := 16 //(could be 8, 16, 32 or even 4)','',0,'gA==','ma5v73ia',1,0,'',2,0,0),(47747,9880,6,179,0,'200.125.135.242',1202425130,1,0,1,1,1,1,'','','enhorabuena Jose gracias sera un espacio muy merecido por el maestro estaremos esperando gracias nuevamente\n\natt','',0,'gA==','3oc9e4p2',1,0,'',179,0,0),(47748,9879,3,171,0,'71.233.232.238',1202427873,1,0,1,1,1,0,'','','Jose,\n\nThanks for your initiative.\n\nThe M. Mercado TsBrowse class is, in my opinion,  the most important class, to be used with fivewin + FWH.\n\nRegards,\n\nGeorge','',0,'gA==','3loiw5kc',1,0,'',171,0,0),(47749,9880,6,171,0,'71.233.232.238',1202428070,1,0,1,1,1,0,'','','Jose,\n\nGracias por tu iniciativa.\n\nLa clase TsBrowse de Manuel Mercado es, en mi opinion, la clase mas importante para desarrollar con Fivewin + FWH.\n\nGeorge','',0,'gA==','3i14dkry',1,0,'',171,0,0),(47750,9882,6,644,0,'190.139.162.85',1202430173,1,0,1,1,1,0,'','','Si quieres copiar un archivo ordenado en otro, indexalo por el campo que te interese y copialo al archivo destino.','',0,'gA==','mt2vzdck',1,0,'',644,0,0),(47751,9883,6,1114,0,'190.19.113.95',1202433744,1,0,1,1,1,0,'','Como puedo saber si un numero en un campo es negativo','Estimados Colegas\n\nAlguien tiene alguna rutina o funcion  para saber si el en numero en un campo de una dbf es negativo\n\ndesde ya muchisimas gracias\nFabian','',0,'gA==','1rlflfnr',1,0,'',1114,0,0),(47752,9844,11,281,0,'218.39.136.181',1202435187,1,0,1,1,1,1,'','','Hi Antonio. \n\nThe next file is SDK. \n\nThank you. \n\n<!-- m --><a class=\"postlink\" href=\"http://www.bongku.net/down/Netstream2000-1.6.73.0.zip\">http://www.bongku.net/down/Netstream2000-1.6.73.0.zip</a><!-- m --> \n \nyunbg1.\n\nFivelinux USER','',0,'gA==','3rti0hvt',1,0,'',281,0,0),(47753,9883,6,644,0,'190.139.162.3',1202437106,1,0,1,1,1,0,'','','Fabian:\n\nFunction DimeSiElNumeroEsNegativo( nNumeroGuardadoEnDbf )\n\nDo Case\nCase( nNumeroGuardadoEnDbf &lt; 0 )\nReturn .t.\nOtherwise\nReturn .f.\nEndCase\nReturn .f.\n\nNo sé si es lo que necesitas\nSaludos','',0,'gA==','mkwmfil0',1,0,'',644,0,0),(47754,9879,3,51,0,'80.122.88.242',1202456471,1,0,1,1,1,0,'','','As I never used TSBrowse could you please tell me what the advantages over xBrowser are?\nThanks in advance \nOtto','',0,'gA==','u528l18z',1,0,'',51,0,0),(47755,9881,1,58,0,'84.149.75.102',1202458397,1,0,1,1,1,0,'','','Bonjour Patili,\n\nunless i don\'t see your print code, i suppose you\'re trying to print a bitmap which is too big.\n\nMay be you could think about switching to (x)Harbour which doesn\'t know such errors.\nI did it some month ago. It was very easy, i have no more memory errors and i did never regrett.\n\nRegards,\nDetlef','',0,'gA==','3svwvlac',1,0,'',58,0,0),(47756,9865,6,9,0,'80.103.174.39',1202463481,1,0,1,1,1,1,'','','!!! YA ESTA SOLUCIONADO ¡¡¡\n\nEn primer lugar comentar que la función original ChangeRes corresponde a los brasileiros  Marcelo Gomes y Yuri Marcelino, y se encuentra en el foro de FW-Brasil: \n\n <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10465\">http://www.fivewin.com.br/forum/topic.a ... C_ID=10465</a><!-- m -->\n\nEn segundo lugar que en base a dicha función, he elaborado la función CamReso() para xHarbour, que cambia la resolución de la pantalla y automaticamente vuelve a la resolución original al cerrar la aplicación. A mi me funciona perfectamente.\n\n¿Cual es mi método?\n\n1) FUNCTION MAIN() \nLOCAL nResoAncho := GetSysMetrics(0)\n......\n......\nIF nResoAncho &gt; 800\n      IF MSGYESNO(\"Este programa está diseñado para una resolución de   pantalla\"+CRLF+;\n               \"de 800 x 600.\" +CRLF+CRLF+;\n               \"Al estar configurada la resolución de su monitor a una mayor,\"+CRLF+;\n               \"verá las ventanas y mensajes bastantes mas pequeños.\"+CRLF+CRLF+;\n               \"¿DESEA MODIFICAR LA RESOLUCION DE SU PANTALLA?.\",\"NOMBRE DEL PROGRAMA\")\n               CamReso ( 800, 600, .f. )  \n      ENDI\nENDI\n....\n....\n\ny esta es la función:\n\n///////////////////////////////////////////////////////////////////\n/// FUNCION CamReso\n/// CAMBIA RESOLUCION DE PANTALLA TEMPORALMENTE\n/// Manuel Valdenebro 2008\n/// Adaptación ChangeRes() Marcelo Gomes/Yuri Marcelino\n/// <!-- m --><a class=\"postlink\" href=\"http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=10465\">http://www.fivewin.com.br/forum/topic.a ... C_ID=10465</a><!-- m -->\n/// ---------------------------------------\n//  nAncho ancho pantalla\n//  nAlto  alto pantalla\n//  lPreguntar si pregunta antes de realizar el cambio\n///////////////////////////////////////////////////////////////////\n\n#Include \"dll.ch\"\n#Include \"Struct.ch\"\n\nFunction CamReso(nAncho, nAlto, lPreguntar)\nLocal DM_PELSWIDTH  := nHex(\"80000\") \nLocal DM_PELSHEIGHT := nHex(\"100000\") \nLocal oDevMode\nLocal lPosible\nLocal cBuffer\nLocal lCamReso := .f.\nDEFAULT nAncho := GetSysMetrics(0),  ;\n        nAlto  := GetSysMetrics(1),  ;\n        lPreguntar := .t.\n\nSTRUCT oDevMode\n   MEMBER cDevName   AS STRING LEN 32 \n   MEMBER nSpecVer   AS WORD\n   MEMBER nDrvVer    AS WORD\n   MEMBER nSize      AS WORD\n   MEMBER nDrvExtra  AS WORD\n   MEMBER nFields    AS DWORD\n   MEMBER nOrientat  AS WORD\n   MEMBER nPaperSiz  AS WORD\n   MEMBER nPaperLen  AS WORD\n   MEMBER nPaperWid  AS WORD\n   MEMBER nScale     AS WORD\n   MEMBER nCopies    AS WORD\n   MEMBER nDefSrc    AS WORD\n   MEMBER nPrnQlty   AS WORD\n   MEMBER nColor     AS WORD\n   MEMBER nDuplex    AS WORD\n   MEMBER nYResolut  AS WORD\n   MEMBER nTTOpt     AS WORD\n   MEMBER nCollate   AS WORD\n   MEMBER cFormName  AS STRING LEN 32\n   MEMBER nUnusePad  AS WORD\n   MEMBER nBitsPPel  AS DWORD\n   MEMBER nPelWidth  AS DWORD\n   MEMBER nPelHeigh  AS DWORD\n   MEMBER nDisFlags  AS DWORD\n   MEMBER nDisFreq   AS DWORD\nENDSTRUCT\n\ncBuffer := oDevMode:cBuffer\n// Comprueba si es posible cambiar la resolución\nlPosible := EnumDisplaySettings(0, 0, @cBuffer)\n\n// Si es posible cambiar la resolución\nIF lPosible\n    if lPreguntar\n       if MsgYesNo(\"Desea cambiar la resolución?\", \"Atención\")\n       else\n          RETURN lCamReso\n       endif\n    endi\n    oDevMode:nFields := nOr(DM_PELSWIDTH, DM_PELSHEIGHT )\n    oDevMode:nPelWidth := nAncho\n    oDevMode:nPelHeigh := nAlto\n    cBuffer:=oDevMode:cBuffer\n    TRY\n        ChangeDisplaySettings(@cBuffer, 4)\n        lCamReso := .T.\n    CATCH\n       MsgAlert(\"Modo no soportado\", \"Error\" )\n    END\nelse\n   MsgAlert(\"Modo no soportado\", \"Error\" )\nendif\nreturn lCamReso\n\n\nDLL32 FUNCTION EnumDisplaySettings(lpszDeviceName AS DWORD,;\niModeNum AS DWORD, ;\n@lpDevMode AS LPSTR) AS BOOL PASCAL;\nFROM \"EnumDisplaySettingsA\" LIB \"User32.dll\"\n\nDLL32 FUNCTION ChangeDisplaySettings(@lpDevMode AS LPSTR,;\ndwFlags AS DWORD) AS DWORD;\nFROM \"ChangeDisplaySettingsA\" LIB \"User32.dll\"\n\nDLL32 FUNCTION ExitWindowsEx(uFlags AS DWORD,;\ndwReserved AS DWORD) AS DWORD PASCAL;\nLIB \"user32.dll\"\n\n------------------------------------------------------------','',0,'gA==','w58nkgwx',1,1202538758,'',9,1,0),(47757,9865,6,1236,0,'201.22.92.147',1202465290,1,0,1,1,1,0,'','','Manuel Valdenebro, fiz um teste e usando FWH7.01 + XHARB 99.71 + WINXP, e funcionou, porem aconteceu o seguinte erro depois de trocar a resolução:\n\nHARBOUR EXCEPTION:\n\nCALLED FROM CALLDLL(0)\nCALLED FROM CHANGEDISPLAYSETTINGS(0)\nCALLED FROM CAMRESO(89)\n\n\nGrato','',0,'gA==','ywtvlx3v',1,0,'',1236,0,0),(47758,9865,6,1068,0,'200.153.245.50',1202465964,1,0,1,1,1,1,'','','[quote:1kzd2cq5]\nEn primer lugar comentar que la función original ChangeRes corresponde a los brasileiros Marcelo Gomes y Yuri Marcelino, y se encuentra en el foro de FW-Brasil: \n[/quote:1kzd2cq5]\n\nManuel,\n\ngracias pela citação...\n\nsaludos','',0,'gA==','1kzd2cq5',1,0,'',1068,0,0),(47759,9884,7,692,0,'79.145.210.84',1202466501,1,0,1,1,1,1,'','Puede funcionar en Palm Treo 750 V','Un cliente me pregunta si un programa hecho con Fivewin para Pocket pc puede funcionar en una palm Treo 750 V\nSimplemente al oir Palm yo ya pienso que no , pero por lo visto tiene sistema operativo Windows Mobile\n¿alguno lo habeis probado?\n\nsaludos y gracias','',0,'gA==','1xw95usf',1,0,'',692,0,0),(47761,9881,1,2,0,'87.218.146.222',1202468299,1,0,1,1,1,1,'','','Patili, \n\nClipper does not support files larger than 64 Ks.\n\nFWH + [x]Harbour support them','',0,'','1qr91ig1',1,0,'',2,0,0),(47762,9884,7,2,0,'87.218.146.222',1202468639,1,0,1,1,1,1,'','','Antonio,\n\nEn el caso de que use Windows Mobile, entonces FWPPC funcionará en él.\n\nQue microprocesador usa ?','',0,'','1qfbdxve',1,0,'',2,0,0),(47763,9884,7,2,0,'87.218.146.222',1202468844,1,0,1,1,1,1,'','','Usa el Procesador Samsung a 300 MHz\n\nPosiblemente sea de arquitectura compatible ARM. \nHabria que confirmarlo para estar seguros','',0,'','1f331lql',1,0,'',2,0,0),(47764,9884,7,692,0,'79.145.210.84',1202469002,1,0,1,1,1,1,'','','Gracias Antonio','',0,'','2y7sf2wf',1,0,'',692,0,0),(47765,9765,2,248,0,'212.145.179.68',1202469348,1,0,1,1,1,0,'','ya resuelto','ya resuelto.','',0,'','3opfplu5',1,0,'',248,0,0),(47766,9765,2,2,0,'87.218.146.222',1202469534,1,0,1,1,1,1,'','','Garbi,\n\nComo lo has resuelto ? \n\nTe agradecemos si lo comentas aqui para otros usuarios, gracias','',0,'','15ps8qoj',1,0,'',2,0,0),(47767,9865,6,9,0,'85.59.90.140',1202471340,1,0,1,1,1,1,'','','[quote=&quot;FWHISHOW&quot;:2pazrett]\nHARBOUR EXCEPTION:\nCALLED FROM CALLDLL(0)\nCALLED FROM CHANGEDISPLAYSETTINGS(0)\nCALLED FROM CAMRESO(89)\n[/quote:2pazrett]\n\nA mi me funciona perfectamente. Me gustaría saber si otros lo han probado y les funciona.','',0,'gA==','2pazrett',1,0,'',9,0,0),(47768,9865,6,9,0,'85.59.90.140',1202471444,1,0,1,1,1,1,'','','[quote=&quot;yury&quot;:iujkj4vy]\ngracias pela citação...\n[/quote:iujkj4vy]\n\nYury,\n\nGracias a ti por el trabajo realizado.','',0,'gA==','iujkj4vy',1,0,'',9,0,0),(47769,9886,6,176,0,'201.255.191.211',1202471904,1,0,1,1,1,0,'','Integridad de índices','Hola, quisiera saber como puedo saber si un índice no está corrupto cuando abro una base de datos. estoy utilizando fh26 y xharbour 0.99.61\n\nGracias','',0,'gA==','37z7ac6h',1,0,'',176,0,0),(47770,9886,6,316,0,'213.97.245.163',1202473608,1,0,1,1,1,0,'','','Si no lo sabe el RDD cuando lo abre, es un poco dificil. Lo que haría sería ir al último registro y buscarlo, si no lo encuentro es que se actualizó la dbf sin el índice abierto, pero no me garantiza que una actualización de alguna clave de \'las del medio\' no se haya hecho. \nLo que pides me parece que no es algo sencillo.\n\nSaludos','',0,'gA==','3hrw6dqp',1,0,'',316,0,0),(47771,9881,1,418,0,'91.171.78.130',1202474040,1,0,1,1,1,0,'','','It just send me an error when i preview a print.\nBut it is working very good on an other station of my network, so i think it is jjust a configuration problem.\nWhat should i take in my autoexec.bat or config.sys ?\nI use the free MS Link , will it work with Harbour?','',0,'gA==','2xlhwvwq',1,0,'',418,0,0),(47772,9886,6,176,0,'201.255.191.211',1202474667,1,0,1,1,1,0,'','','Lo que deseo es que cuando abro la base de datos, existiendo los índices,si está la base desindexada hacer un aviso para reindexar, y no se como hacerlo\n\nGracias','',0,'gA==','1d9utf44',1,0,'',176,0,0),(47773,9881,1,58,0,'84.149.74.236',1202474730,1,0,1,1,1,0,'','','Patili,\n\nyou will not need MS Link for (x)Harbour.\nYou just download the binaries for (x)Harbour and the complete Borland or MicroSoft compiler package for free.\n\nRegards,\nDetlef','',0,'gA==','659nospt',1,0,'',58,0,0),(47774,9887,19,78,0,'190.43.177.45',1202475260,1,0,1,1,1,0,'','Para Antonio -Serializacion-','Se aplica la serializaion en FW ? y si es asi, podrias proporcionarme un ejemplo?\nSalu2','',0,'gA==','1u4ucni4',1,0,'',78,0,0),(47775,9883,6,1201,0,'200.90.17.154',1202475794,1,0,1,1,1,0,'','','Fabian: \n\nFunction DimeSiElNumeroEsNegativo( nNumeroGuardadoEnDbf ) \nReturn ( nNumeroGuardadoEnDbf &lt; 0 )','',0,'gA==','2qv805wb',1,0,'',1201,0,0),(47776,9888,6,104,0,'201.8.63.61',1202478636,1,0,1,1,1,0,'','Copiar um browse','Olá,\n\nPreciso criar um novo browse em uma dialog com as mesmas propriedades de um outro browse que está em outra dialog. Tem como fazer isto ?\n\nObrigado,\n\nRossine.','',0,'gA==','10rmq8f3',1,0,'',104,0,0),(47777,9880,6,1072,0,'200.72.190.180',1202479587,1,0,1,1,1,0,'','','SIN DUDA TSBROWSE ES LA CLASE QUE A LOS CLIPPEROS ENTIGUOS NOS ACOMODA MUCHISSSSIIIIMO,, POR LO SIMPLE DE USAR Y SU REAL POTENCIA..\n\n\nGRANDE MAESTRO','',0,'gA==','3v7rotzq',1,0,'',1072,0,0),(47778,9888,6,362,0,'200.158.19.251',1202480608,1,0,1,1,1,1,'','Re: Copiar um browse','[quote=&quot;Rossine&quot;:13e1r29g]Olá,\n\nPreciso criar um novo browse em uma dialog com as mesmas propriedades de um outro browse que está em outra dialog. Tem como fazer isto ?\n\nObrigado,\n\nRossine.[/quote:13e1r29g]\n\nHola Rossine,\n\nSeja mais especifico:\n\nEm @say... ou Editor de Recursos?\n\nSe a Browse inicial esta no mesmo modulo, podes usar o comando oClone(). Para Clonar o o Objeto da Browse inicial para a Proxima Browse .\n\n[code:13e1r29g]\n    oDbLbx&#58;= oClone&#40; oDbfClientes &#41;\n[/code:13e1r29g]\n\nTens a mesma LISTBOX em qualquer lugar.\n\nSe entendi...','',0,'gIA=','13e1r29g',1,0,'',362,0,0),(47779,9886,6,362,0,'200.158.19.251',1202480955,1,0,1,1,1,1,'','','[code:l758y7c9]\n   IF !FILE&#40; &quot;MIINDICE&#46;CDX&quot; &#41;\n         ? &#91; es necesario&#46;&#46;&#46; &#93;\n         REINDEXA&#40;&#41;\n         RETURN NIL\n   ENDIF\n[/code:l758y7c9]\n\nÓ\n\ncrie una function para verificar se un determinado dato esta en el DBF y NO en el CDX.\n\nBest regards.','',0,'AIA=','l758y7c9',1,0,'',362,0,0),(47780,9889,3,228,0,'201.245.222.86',1202481336,1,0,1,1,1,1,'','Someone has an example of the use of a recorset with xbrowse','Friends of the forum have good day. As says in headline, I need to know if someone has an example of the use of a recorset in a xbrowse.  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nIn advance thank you.\n\nPardon for the Englishman is a translation. \n\nRegards','',0,'AIA=','f6kyqg7o',1,0,'',228,0,0),(47781,9890,6,228,0,'201.245.222.86',1202481473,1,0,1,1,1,1,'','Ejemplo del uso del un recorset con xbrowse','Amigos del foro tengan buen dia, alguien me puede indicar de casualidad como se usa un recorset, directamente con un xbrowse.\n\nDe antemano gracias','',0,'AIA=','1i0wy04q',1,0,'',228,0,0),(47782,9886,6,176,0,'190.51.190.215',1202482095,1,0,1,1,1,0,'','','Gracias Karihna pero no es que si el índice no está creado lo haga sino que si el mismo está corrupto me avise para reindexar\n\nLuis','',0,'AIA=','2t6uinp3',1,0,'',176,0,0),(47783,9891,6,1090,0,'201.254.53.204',1202482325,1,0,1,1,1,0,'','conexion a internet via proxy','Hola. Estoy tratando de enviar un archivo via ftp. Funciona perfecto, salvo en las maquinas en donde en lugar de tener una conexion directa a internet, tengo una conexión via proxy. Es un proxy que no me deja hacer ping a una direccion de internet; tiene habilitado solamente el http y el ftp; con un cliente FTP puedo subir info perfectamente, no con fivewin. Si alguno tiene idea de como puedo hacer, esto, le agradecere una manito. Atte.','',0,'AIA=','3qckptt9',1,0,'',1090,0,0),(47784,9889,3,868,0,'219.64.121.60',1202482520,1,0,1,1,1,1,'','','Mr Leandro\n\nIt is very simple to use XBrowse with RecordSets. \nPlease try this quick code.\n\n[code:352jtxzc]\n\nDEFINE WINDOW oWnd\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\noBrw&#58;SetADO&#40; oRs &#41;                         // oRs is your record set\noBrw&#58;CreateFromCode&#40;&#41;\noWnd&#58;oClient &#58;= oBrw\nACTIVATE WINOW oWnd\n\n[/code:352jtxzc]\n\nYou can use other features of xBrowse for advanced purposes.','',0,'AIA=','352jtxzc',1,0,'',868,0,0),(47785,9886,6,362,0,'200.158.19.251',1202482846,1,0,1,1,1,1,'','','[quote=&quot;surGom&quot;:2dzycx13]Gracias Karihna pero no es que si el índice no está creado lo haga sino que si el mismo está corrupto me avise para reindexar\n\nLuis[/quote:2dzycx13]\n\nCaro amigo, esto nos es posible.\n\nEl mejor que puede hacer, és muestrar el contenido del indice en un LISTBOX, y se los datos nos estejan de acuerdo con el que deberia ser, reindexa.\n\nMas se el el CDX retorna corrupto, és porque el DBF tanbién esta, asi, no tiene salida, tu DBF tiene que ser recriado.\n\nLa mejor solucion, és que tu cliente siempre tenga un NO BREAK en uso, para que esto no succeda.\n\ndesculpe, mi portunhol.  jeje.\n\nBest regards','',0,'gA==','2dzycx13',1,0,'',362,0,0),(47786,3306,6,1242,0,'201.74.72.72',1202484977,1,0,1,1,1,0,'','Error en la generacion de TTVitem.prg','Senhor Renomas , vi su post que hace algun tiempo que lo coloco pero está siendo una incognita para mi !\n\nTengo un problema al generar la FiveHX.lib \n\ncoloque el método \"SET\" en la classe TTVitem original \npara cambiar el  Bmp de algun item en tiempo de ejecucion\n\nexactamente como dices tú\n\n[red]\nMETHOD Set( cPrompt, nImage ) CLASS TTVItem \nDEFAULT cPrompt := ::cPrompt, ; \nnImage := ::nImage \n\nTVSetTextImage( ::oTree:hWnd, ::hItem, cPrompt, nImage ) \n\nReturn nil \n\n#pragma BEGINDUMP \n\n#include &lt;WinTen.h&gt; \n#include &lt;windows.h&gt; \n#include &lt;CommCtrl.h&gt; \n#include &lt;ClipApi.h&gt; \n\nHB_FUNC ( TVSETTEXTIMAGE ) // ( hWnd ) --&gt; cText \n{ \nHWND hWnd = ( HWND ) _parnl( 1 ); \nHTREEITEM hItem = ( HTREEITEM ) _parnl( 2 ); \nTV_ITEM tvi; \ntvi.hItem = hItem; \n\ntvi.mask = TVIF_TEXT | TVIF_IMAGE | TVIF_SELECTEDIMAGE; \ntvi.pszText = _parc( 3 ); \ntvi.iImage = _parnl( 4 ); \ntvi.iSelectedImage = _parnl( 4 ); \nTreeView_SetItem( hWnd, &amp;tvi ); \n\n} \n\n#pragma ENDDUMP \n[/red]\n\n\npero en el momento que genero la lib me muestra este mensaje\n\n\n[blue]\nClasses - 0151 TTVITEM -------------------------------------------------------------- \nxHarbour Compiler build 0.99.61 (SimpLex)\nCopyright 1999-2006, <!-- m --><a class=\"postlink\" href=\"http://www.xharbour.org\">http://www.xharbour.org</a><!-- m --> <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'c:\\fwh27\\source\\classes\\TTVITEM.prg\'...\n\nLines 116, Functions/Procedures 5\nGenerating C source output to \'TTVITEM.c\'...\nDone.\nBorland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland\nttvitem.c:\nError E2209 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 4: Unable to open include file \'WinTen.h\'\nError E2209 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 7: Unable to open include file \'ClipApi.h\'\nWarning W8065 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 11: Call to function \'_parnl\' with no prototype in function HB_FUN_TVSETTEXTIMAGE\nWarning W8065 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 12: Call to function \'_parnl\' with no prototype in function HB_FUN_TVSETTEXTIMAGE\nWarning W8065 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 17: Call to function \'_parc\' with no prototype in function HB_FUN_TVSETTEXTIMAGE\nWarning W8069 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 17: Nonportable pointer conversion in function HB_FUN_TVSETTEXTIMAGE\nWarning W8065 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 18: Call to function \'_parnl\' with no prototype in function HB_FUN_TVSETTEXTIMAGE\nWarning W8065 c:\\\\fwh27\\\\source\\\\classes\\\\TTVITEM.prg 19: Call to function \'_parnl\' with no prototype in function HB_FUN_TVSETTEXTIMAGE\n*** 2 errors in Compile ***\nTLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation\n\nWarning: \'TTVITEM\' not found in library\nWarning: \'TTVITEM.OBJ\' file not found\n[/blue]\n\nPablo Andrés Reyes Rivera\nFWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - PellesC','',0,'','hlceipnm',1,0,'',1242,0,0),(47787,9887,19,2,0,'87.218.146.222',1202485162,1,0,1,1,1,1,'','','Willi,\n\nTe refieres a salvar objetos a un fichero y luego recrearlos desde ese fichero ?','',0,'','1qz101xs',1,0,'',2,0,0),(47788,9879,3,171,0,'71.233.232.238',1202485206,1,0,1,1,1,0,'','','Otto,\n\nIt\'s easy to use, in addition to be the best \"looking\" browse and has many important features as you can read from From Manuel mercado:\n\n[quote:2g09asuy]\nFriends All:\n\n	The original work and, the great merit is of Luis Krause Mantilla, author\n   of modified version of classes TCBrowse, TWBrowse, TCColumn and TScrollBar\n   that served as base for the creation of the new class \"TSBrowse\".\n\n      Credits: (People that have contributed at some time to get this new class)\n      		Luis Krause Mantilla\n      		Selim Anter\n      		Stan Littlefield\n      		Marshall Thomas\n      		Eric Yang\n      		John Stolte\n      		Harry Van Tassell\n      		Martin Vogel\n      		Katy Hayes\n      		José Gimenez\n      		Hernan Diego Ceccarelli ( some ideas taked from his TWBrowse )\n            Antonio Carlos Pantaglione ( <!-- e --><a href=\"mailto:Toninho@fwi.com.br\">Toninho@fwi.com.br</a><!-- e --> )\n            Ricardo Ramirez (TSBtnGet is an adaptation of his TBtnGet Class)\n            Gianni Santamarina\n            Ralph del Castillo\n            FiveTech (original classes)\n\n	Many thanks to all of them.\n\n	Even though I have included some ideas of my own crop, my work has\n   consisted mainly on assembling the pieces to build this new class.\n\n   TSBrowse is now, an independent control that inherits directly from\n   TControl class.\n\n   I have also included the suggestions and observations from friends that\n   have tested the prototype.\n\n   I\'ll apreciate your suggestions and observations to complement and amend\n   this work.\n\n	My only interest, as professional of programming work for many years, is\n   count on a powerful tool to accomplish my work with greater efficiency and\n   better look.\n\n   The Browser, for me, is the most important tool if we talk about data base\n   management, no other control is compared to it.\n\n	Next, some of the facilities of this new class (those which I remember at\n   this moment, believ me, they are many):\n\n\n	1.- \"TSBrowse\" is based from its origin on the control by columns with\n       individual attributes on each one.\n\n	2.- You can control independently, for each column, the color attributes\n       defined as code blocks or directly with the numerical value of RGB\n       mixes.\n\n	You can handle for each column, the following color kits: \n\n	a).- Text and background in cells.\n	b).- Text and background in headers.\n	c).- Text and background in footers.\n	d).- Text and background in focused cells.\n	e).- Text and background in cells at editing time.\n	f).- Text and background in columns that controls the index.\n	g).- Text and background in focused cells when the browse is inactive.\n	h).- Grid lines.\n\n	The manage of colors goes up to cell level (not only lines or columns),\n   you\'ll see the sample programs.\n\n	Colors can be assigned All or Some for all of the columns or for specific\n   ones in a single statement with the \"TSBrowse\" method SetColor().\n\n\n	3.- The grid lines can be:\n      Full                   oBrw:nLineStyle := 1\n      Only vertical lines    oBrw:nLineStyle := 2\n      Only horizontal lines  oBrw:nLineStyle := 4\n      No lines               oBrw:nLineStyle := 0\n      Dotted lines           oBrw:nLineStyle := 5\n      3D look                oBrw:nLineStyle := 3\n\n	The color is assigned apart (see previous point).\n\n	4.- You can control also for each column the following attributes:\n		a).- Text alignment (left, centered, right) in:\n         Cells.\n         Headers.\n         Footers.\n		b).- 3D look (true, false) for:\n			Cells.\n			Headers.\n			Footers.\n		c).- Different Fonts for:\n			Cells.\n			Headers.\n			Footers.\n		d).- Line height independently of font size for:\n			Cells.\n			Headers.\n			Footers.\n\n	5.- Frozzen and protected columns.\n\n	6.- Editable or not editable columns.\n\n	7.- You can control the cursor movement after editing as follows:\n		Right.\n		Down.\n		Up.\n		Left.\n		Next editable cell (right or down left).\n\n	Cursor movement can be also changed at runtime using the keys Ctrl+Shift+any arrow key, as well as activating the popup menu with right clicking on column\'s header.\n\n	8.- Edition starts just writing, not necessarily with Enter key or Double Click.\n\n	9.- You can exit editing mode by pressing: Up or Down arrow keys; Enter key or, if the edition was started on writing, with Left or Right arrow keys (as in Excel). The Esc key cancels editing mode with no change in the field.\n\n	10.- Using bPrevEdit and bPostEdit code blocks, you can control the value of variables used in footers when those were defined as code blocks.\n        See sample 7\n\n	11.- When the Browse regains focus (switching windows), it recovers the record and the cursor\'s position that had before losing focus, even though other windows are using the same data base and index.\n	\n	12.- For compatibility, \"TSBrowse\" preserves the command format FIELDS, HEADERS, FIELDSIZES of TWBrouse, by creating automatically the columns.  Columns can also be generated from predefined arrays of: data, headings and sizes, using the \"TSBrowse\" method SetCols().\n\n\n   13.- \"TSBrowse\" supports several RDD\'S:  DBFCDX, COMIX, ADS, SIX, DBFNTX,\n        as well as objects like oDbf, oCtx, oTree and Arrays.\n        (other RDD\'s can be added as soon as I get the definition of some database functions that they handle)\n\n	14.- Report method to print the browse contents.\n        See all Window samples\n\n	15.- Text Viewer.\n\n	16.- Use of bitmaps in cells, headers and footers.\n  	\n	17.- Synchronization through code blocks with other browses using \"TSBrowse\" method SyncChild().\n\n	18.- Filters based on indexes (specially useful with NTX).\n\n	19.- Automatic append using the \"TSBrowse\" method SetAppendMode().  When you press down arrow key at the last row, \"TSBrowse\" opens a virtual blank record that can be edited. Actual append is done when you complete the edition of the first editable field. Pressing Esc key annulates the virtual append.\n\n	20.- Columns movement at runtime dragging the mouse on headers (Drag &amp; Drop), or also, activating the popup menu with right clicking on headers.\n\n   21.- Keyboard incremental search for fields of any type.\n\n	22.- Add, insert and delete columns from code.\n\n	23.- Automatic end column and phantom column (to stop scrolling and fill unused area).\n        See samples 2 and 4\n\n	24.- Control of vertical and horizontal scroll bars (activate or not).  \n        See sample 4\n\n	25.- Cursor movements:  PanLeft, Panright, PanHome and PanEnd as in Clipper\'s DBU program.\n\n	26.- Prevalidation of keys. You can disable the use of some keys through \"TSBrowse\" method lIgnoreKey().\n\n	27.- Automatic creation of columns taking the fields of the active or aliased data base with the \"TSBrowse\" method LoadFields().\n  \n	28.- You can use in the same program, \"TSBrowse\" and Hernan\'s \"TWBrowse\".\n\n	29.- Fully bilingual Spanish / English.\n\n	30.- Assignment of related table (array) for field editing using a ComboBox for selection through \"TSBrowse\" method SetData(). \n        See samples 2 and 6\n\n	31.- Footers can be defined as text or as code block.\n        See sample 7\n\n   32.- Same code applyes for dialogs and windows, with no tricks.\n\n   33.- Continuows edition with lAutoEdit instance variable.\n        See sample 6\n\n   34.- New Multiselect feature with SetSelectMode() Method.\n        See samples 1 and 3\n\n   35.- New BtnGet editing with TBtnGet Class from Ricardo Ramirez using SetBtnGet() Method.\n        See samples 2, 4, 6 and 7.\n\n   36.- New Multi-Line Feature. By simply using CRLF in headers, cells and\n        footers See samples 4 and 6.\n\n   37.- New Auto Delete feature with SetDeleteMode() Method. Delete rows\n        (records/items) by pressing Del key. All stuff handled by TSBrowse.\n\n   38.- New alignment managment of BitMaps by using code blocks in clause\n        ALIGN. See program SBALIGN.PRG\n\n   39.- New Super Headers feature with ADD SUPER HEADER command. See program\n        SBSUPERH.PRG\n\n   40.- Assign default values to records/items added with Auto Append Mode by\n        using new oBrw:aDefault instance variable.\n\n   42.- Vertical Text for headers using DT_VERT on ALIGN clause when define\n        columns. See samples 1, 3 and 4 in SBTEST.PRG.\n\n   43.- Logical fields are edited using a Check Box virtual control, this feature\n        is activated if you issue CHECKBOX clause when define columns. See\n        sample 4 in SBTEST.PRG\n\n   44.- Edition is done within a Non Modal dialog, so you can exit editing\n        mode by clicking at any part of the screen includding buttons, menus,\n        scroll bars, etc.\n\n   45.- ¡ It\'s Free !, etc.....\n\n\n   Use attached Build.bat to build sample programs.\n\n   Enjoy TSBrowse, best regards.\n\n	Manuel Mercado.\n	Salamanca, Gto., México.\n\n	<!-- e --><a href=\"mailto:mmercadog@prodigy.net.mx\">mmercadog@prodigy.net.mx</a><!-- e -->\n	<!-- e --><a href=\"mailto:mmercadog@hotmail.com\">mmercadog@hotmail.com</a><!-- e -->  [/quote:2g09asuy]\n\nRegards,\n\nGeorge','',0,'gA==','2g09asuy',1,0,'',171,0,0),(47789,9892,7,1135,0,'189.136.48.77',1202486344,1,0,1,1,1,1,'','Dudas Ejemplo GPRS','ANTONIO, ELIAS TORRES, AMIGOS DEL FORO:\n\nEl 25 Oct 2007 Elias Torres publica en este foro un ejemplo para abrir de manera automatica el servicio de GPRS. Tengo 2 preguntas:\n\n1.- Al compilar me manda error al no encontrar la referencia a CONNMGR_STATUS_CONNECTED. Me falta algún include? Cuál?\n\n2.- Con el objeto de comunicarse vía GPRS por medio de FTP yo estoy usando primeramente InternetOpen, después InternetConnect, y a partir de ahí utilizo funciones para FTP. La pregunta concreta es: DEBO UTILIZAR GPRSCONNECT ANTES QUE INTERNETCONNECT?\n\nGRACIAS. SALUDOS!','',0,'gA==','1sd5wety',1,0,'',1135,0,0),(47790,9886,6,1255,0,'148.221.7.171',1202486687,1,0,1,1,1,0,'','Re: Integridad de índices','[quote=&quot;surGom&quot;:15afd6im]Hola, quisiera saber como puedo saber si un índice no está corrupto cuando abro una base de datos. estoy utilizando fh26 y xharbour 0.99.61[/quote:15afd6im]\n\n[code:15afd6im]\nBegin Sequence\n   Set Index To&#46;&#46;&#46;&#46;&#46;&#46;&#46;\nRecover\n   MsgWait&#40; &quot;Reindexando&quot;, &quot;Indice corrupto o Inexistente&quot; &#41;\n   Index On &#46;&#46;&#46;&#46;&#46;&#46;\nEnd Sequence\n[/code:15afd6im]\nSaludos\n\nManuel Mercado','',0,'gIA=','15afd6im',1,0,'',1255,0,0),(47791,9867,4,137,0,'151.38.8.195',1202486923,1,0,1,1,1,0,'','','Antonio,\nI can access my web server (192.168.0.1) via internet explorer on the pocket pc with success, but I can\'t access \\\\192.168.0.1\\C\\sample.txt.\n\nWith my desktop pc (the one which pocketpc is connected) i can read the file without problems.\n\nThe same happens with the connection between pocketpc and my desktop pc (connected by USB cable).\n\nI\'m in a domain... mybe is this the problem? Can windows mobile access to the domain?\n\nRegards,\nRoberto Parisi','',0,'gIA=','1ib417gn',1,0,'',137,0,0),(47792,9893,20,49,0,'213.82.134.66',1202487449,1,0,1,1,1,1,'','Per EMg','potrei usare adordd per visualizzare e/o modificare un file ACCESS posto in un determinato sito web ?\n\nHai un test minimale ?\n\nl\'archivio è ECom.mdb ed è posto in <!-- w --><a class=\"postlink\" href=\"http://www.bpascal.it/mdb-database\">www.bpascal.it/mdb-database</a><!-- w -->\n\ne alcune tabelle sono :\n\nProdotti\nCategorie\nScategorie\nUtenti\nOrdiniProdotti\necc.\n\ngrazie','',0,'gIA=','3q11q1lv',1,0,'',49,0,0),(47793,9894,3,1257,0,'195.93.60.2',1202487623,1,0,1,1,1,1,'','Possible Info, if a Index belongs to a def. Database ?','Im still busy with the new DB-Tool.\n\nA little problem :\nWhen the user opens a database,\nas well he can select any index.\n\nAs long you know the Index, that fits the database,\nit is ok. When you try to use a wrong index, \nyou will get a error-message : unknown fields. \n\nIn the Index-header, there is no information\nabout the database to be used together with the index.\n\nI think, it can be solved only with a error-function.\n\nIs there maybe another way to handle this ?\n\nRegards\nUwe','',0,'gIA=','3v561c3p',1,0,'',1257,0,0),(47794,9888,6,104,0,'201.8.63.61',1202488972,1,0,1,1,1,0,'','','Olá João,\n\nVeja o exemplo abaixo:\n\nO interessante é que, quando você clica no botão \"próximo\", a segunda dialog é mostrada, o browse não aparece, mas o browse que é atualizado nas novas coordenadas, é o do 1º browse.\n\nMais alguma dica ?\n\nObrigado,\n\nRossine.','',0,'gIA=','388ruq1b',1,1202489555,'',104,4,0),(47795,9888,6,104,0,'201.8.63.61',1202489142,1,0,1,1,1,0,'','','Desculpem, aqui está o código (hehe)  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \n\n[code:1kearj3g]\n#include &quot;fivewin&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\nfunction MAIN\n\n   local oDlg, oBrw, aStruc &#58;= &#123; &#123; &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot; &#125;, ;\n                                 &#123; &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot; &#125;, ;\n                                 &#123; &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot; &#125;, ;\n                                 &#123; &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot; &#125;, ;\n                                 &#123; &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot;, &quot;teste&quot; &#125; &#125;\n\n   define dialog oDlg from 0, 0 to 300, 310 pixel\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n\n   oBrw&#58;SetArray&#40; aStruc&#41;\n\n   oBrw&#58;nTop    &#58;= 10\n   oBrw&#58;nLeft   &#58;= 10\n   oBrw&#58;nRight  &#58;= 150\n   oBrw&#58;nBottom &#58;= 100\n\n   oBrw&#58;aCols&#91;1&#93;&#58;cHeader &#58;= Padr&#40;&quot;NAME&quot;, 15&#41;\n\n   oBrw&#58;aCols&#91;2&#93;&#58;cHeader       &#58;= &quot;TYPE&quot;\n   oBrw&#58;aCols&#91;2&#93;&#58;nDataStrAlign &#58;= AL_CENTER\n   oBrw&#58;aCols&#91;2&#93;&#58;nHeadStrAlign &#58;= AL_CENTER\n\n   oBrw&#58;aCols&#91;3&#93;&#58;cHeader       &#58;= &quot;SIZE&quot;\n   oBrw&#58;aCols&#91;3&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;3&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n\n   oBrw&#58;aCols&#91;4&#93;&#58;cHeader       &#58;= &quot;LENGTH&quot;\n   oBrw&#58;aCols&#91;4&#93;&#58;nDataStrAlign &#58;= AL_RIGHT\n   oBrw&#58;aCols&#91;4&#93;&#58;nHeadStrAlign &#58;= AL_RIGHT\n\n   oBrw&#58;nMarqueeStyle   &#58;= MARQSTYLE_HIGHLCELL\n   oBrw&#58;lRecordSelector &#58;= &#46;f&#46;\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oDlg&#58;oClient &#58;= oBrw\n\n   @120, 60 button oBtn prompt &quot;Proximo&quot; of oDlg action DLG2&#40; oBrw &#41; pixel\n\n   activate dialog oDlg on init oBrw&#58;SetFocus&#40;&#41; centered\n\nRETURN NIL\n\nstatic function DLG2&#40; oBrw &#41;\n\n   local oDlg1, oBrw1\n\n   define dialog oDlg1 from 200, 200 to 500, 510 pixel\n\n   oBrw1 &#58;= oClone&#40; oBrw &#41;\n\n   oBrw1&#58;delcol&#40;2&#41;\n\n   oBrw1&#58;nTop    &#58;= 0\n   oBrw1&#58;nLeft   &#58;= 0\n   oBrw1&#58;nRight  &#58;= 10\n   oBrw1&#58;nBottom &#58;= 50\n\n   oBrw1&#58;oWnd    &#58;= oDlg1\n\n   activate dialog oDlg1 on init oBrw1&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n[/code:1kearj3g]\n\nAbraços,\n\nRossine.','',0,'AIA=','1kearj3g',1,0,'',104,0,0),(47796,9889,3,53,0,'189.139.221.21',1202489837,1,0,1,1,1,1,'','','nageswaragunupudi\n\nMany thanks for your sample, and I have a couple questions.\nWhat if the recordset is empty ?, Is the Txbrowse showing with no problem ?\n\nRegards','',0,'AIA=','2msoey8v',1,0,'',53,0,0),(47797,3306,6,1255,0,'148.221.7.171',1202490026,1,0,1,1,1,0,'','','[quote:353mf46l]Como recomendación, creo que las proximas ediciones de FW deben incluir los BMP de controles radio en BITMAPS\\16x16.[/quote:353mf46l]Hola Julio:\n[url=http&#58;//www&#46;imaxenes&#46;com/imagen/radsel1ge36mn&#46;bmp&#46;html:353mf46l][img:353mf46l]http&#58;//www&#46;imaxenes&#46;com/imagenes/radsel1ge36mn&#46;bmp[/img:353mf46l][/url:353mf46l]\n[url=http&#58;//www&#46;imaxenes&#46;com/imagen/radunsel1nj9855&#46;bmp&#46;html:353mf46l][img:353mf46l]http&#58;//www&#46;imaxenes&#46;com/imagenes/radunsel1nj9855&#46;bmp[/img:353mf46l][/url:353mf46l]\nUn abrazo.\nManuel Mercado','',0,'mA==','353mf46l',1,0,'',1255,0,0),(47798,9894,3,6,0,'82.58.168.20',1202490496,1,0,1,1,1,1,'','Re: Possible Info, if a Index belongs to a def. Database ?','No, as far as I know.\n\nEMG','',0,'mA==','1le78qum',1,0,'',6,0,0),(47799,9893,20,6,0,'82.58.168.20',1202491129,1,0,1,1,1,1,'','Re: Per EMg','No, non puoi accedere ad un database dal di fuori del server, quindi solo con uno script residente sul server stesso. A meno che il database non sia stato reso esplicitamente accessibile dall\'esterno, ma non so se questo è possibile con un MDB. In ogni caso il tuo non lo è:\n\n[quote:daal5wzs]HTTP Error 403.2 - Forbidden: Read access is denied.[/quote:daal5wzs]\n\nE poi c\'è un altro consiglio: ADORDD a me sembra attualmente un progetto lasciato a metà. Non credo sia il caso di utilizzarlo seriamente.\n\nEMG','',0,'gA==','daal5wzs',1,0,'',6,0,0),(47800,3306,6,46,0,'217.168.114.184',1202491150,1,0,1,1,1,0,'','','pablo.softgraf\n\nvc, tem que configurar seu bath ou make com que gera a lib para que ela apunte a include de borland.\n\ncomo esta a gerar a lib?\n\ncumprimentos','',0,'gA==','e1g9shra',1,0,'',46,0,0),(47801,9865,6,53,0,'189.139.221.21',1202491428,1,0,1,1,1,1,'','','Manuel:\n\nProbé la función para cambiar la resolución de la pantalla y me tira el \"famoso\" mensaje de \"Se ha detectado un problema y debe cerrarse\"\nel mensaje aparece inmediatamente despues de hacer el cambio de resolución aunque al tirar el error y cerrar la aplicación vuelve a la resolución anterior.\n\nFWH711 y xHarbour 99.71\n\nSaludos y gracias por la aoportación','',0,'gA==','2fwarp4q',1,0,'',53,0,0),(47802,9888,6,46,0,'217.168.114.184',1202491613,1,0,1,1,1,0,'','','Acho que vc. tem que clonar en el on init del dialog\n\n[code:2bvxgp9z]\n define dialog oDlg1 from 200, 200 to 500, 510 pixel\n oBrw1&#58;CreateFromCode&#40;&#41;\n activate dialog oDlg1 on init InitBrowse&#40; oBrw1, oBrw\n\n&#46;&#46;&#46;\n\nStatic Function InitBrowse&#40; oBrw1, oBrw &#41;\noBrw1 &#58;= oClone&#40; oBrw &#41;\n\n   oBrw1&#58;delcol&#40;2&#41;\n\n   oBrw1&#58;nTop    &#58;= 0\n   oBrw1&#58;nLeft   &#58;= 0\n   oBrw1&#58;nRight  &#58;= 10\n   oBrw1&#58;nBottom &#58;= 50 \n\n  Return Nil\n[/code:2bvxgp9z]\n\nvc va a utilizar o mesmo alias no segundo browse?\n\nsalu2','',0,'AIA=','2bvxgp9z',1,0,'',46,0,0),(47803,9878,6,1255,0,'148.221.7.171',1202491801,1,0,1,1,1,0,'','','Hola Carlos:\n\nDame tu email para enviarte TSBrowse como la tengo ahora, si la usas podrás ver si el problema que mencionas persiste, en cuyo caso te agradeceré vuelvas a solicitar la ayuda.\n\nSaludos.\n\nManuel Mercado','',0,'AIA=','fnbtkhxu',1,0,'',1255,0,0),(47804,3306,6,1242,0,'201.74.72.72',1202491805,1,0,1,1,1,0,'','','Todas as classes estou compilando da mesma maneira , \nse eu compilar a classe TTVITEM sem o pragma begin e pragma end\ne sem a adição do metodo SET ela funciona caso contrário da o erro postado anteriormente \n\neu faço assim pra todas as classes\n\nECHO Classes  - 0151 TTVITEM\nECHO Classes  - 0151 TTVITEM -------------------------------------------------------------- &gt;&gt; FIVEHX.LOG\n\\xharbour\\bin\\harbour.exe c:\\fwh27\\source\\classes\\TTVITEM /n/a/v/w /i\\fwh27\\include;\\xharbour\\include &gt;&gt; FIVEHX.LOG\nECHO -O2 -I\\xharbour\\include -tW TTVITEM.C &gt; b32.bc\nc:\\borland\\bcc55\\bin\\bcc32.exe -tWM -DHB_GUI -DHB_API_MACROS -DHB_STACK_MACROS -DHB_FM_STATISTICS_OFF -d -a8 -OS -O2 -5 -c @b32.bc &gt;&gt; FIVEHX.LOG\nc:\\borland\\bcc55\\bin\\tlib.exe FIVEHX -+TTVITEM /0 /P32,, &gt;&gt; FIVEHX.LOG\nDEL TTVITEM.C &gt;&gt; FIVEHX.LOG\nDEL TTVITEM.OBJ &gt;&gt; FIVEHX.LOG','',0,'AIA=','1swg2w1o',1,0,'',1242,0,0),(47805,9893,20,49,0,'213.82.134.66',1202493080,1,0,1,1,1,1,'','','io ho lo necessita di aprire/modificare /inserire/stampare dati che sono in \n\nun archivio MDB ( lo posso mettere anche dentro ad un cartella nel pc\n\ne lo devo fare da un programma FwH \n\nLo devo prima salvare sul pc attraverso la classe ftp  e non so come si fa \npoi ci debbo lavorare ( inserire modificare e stampare)\n\nl\'importante che a fine lavoro io lo posso automaticmente inserire dentro \n\na quella cartella magari con ftp class ...\n\n\nE\' possibile farlo oppure ci debbo rinunciare ?','',0,'AIA=','gp1c00qp',1,0,'',49,0,0),(47806,9888,6,362,0,'200.158.19.251',1202494071,1,0,1,1,1,1,'','','[code:1mtiawzh]\n#INCLUDE &quot;FIVEWIN&#46;CH&quot;\n#INCLUDE &quot;XBROWSE&#46;CH&quot;\n\nFUNCTION MAIN\n\n   LOCAL ODLG, OBRW, ASTRUC &#58;= &#123; &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ;\n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ;\n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ;\n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ;\n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125; &#125;\n\n   DEFINE DIALOG ODLG FROM 0, 0 TO 300, 310 PIXEL\n\n   OBRW &#58;= TXBROWSE&#40;&#41;&#58;NEW&#40; ODLG &#41;\n\n   OBRW&#58;SETARRAY&#40; ASTRUC&#41;\n\n   OBRW&#58;NTOP    &#58;= 10\n   OBRW&#58;NLEFT   &#58;= 10\n   OBRW&#58;NRIGHT  &#58;= 150\n   OBRW&#58;NBOTTOM &#58;= 100\n\n   OBRW&#58;ACOLS&#91;1&#93;&#58;CHEADER &#58;= PADR&#40;&quot;NAME&quot;, 15&#41;\n\n   OBRW&#58;ACOLS&#91;2&#93;&#58;CHEADER       &#58;= &quot;TYPE&quot;\n   OBRW&#58;ACOLS&#91;2&#93;&#58;NDATASTRALIGN &#58;= AL_CENTER\n   OBRW&#58;ACOLS&#91;2&#93;&#58;NHEADSTRALIGN &#58;= AL_CENTER\n\n   OBRW&#58;ACOLS&#91;3&#93;&#58;CHEADER       &#58;= &quot;SIZE&quot;\n   OBRW&#58;ACOLS&#91;3&#93;&#58;NDATASTRALIGN &#58;= AL_RIGHT\n   OBRW&#58;ACOLS&#91;3&#93;&#58;NHEADSTRALIGN &#58;= AL_RIGHT\n\n   OBRW&#58;ACOLS&#91;4&#93;&#58;CHEADER       &#58;= &quot;LENGTH&quot;\n   OBRW&#58;ACOLS&#91;4&#93;&#58;NDATASTRALIGN &#58;= AL_RIGHT\n   OBRW&#58;ACOLS&#91;4&#93;&#58;NHEADSTRALIGN &#58;= AL_RIGHT\n\n   OBRW&#58;NMARQUEESTYLE   &#58;= MARQSTYLE_HIGHLCELL\n   OBRW&#58;LRECORDSELECTOR &#58;= &#46;F&#46;\n\n   OBRW&#58;CREATEFROMCODE&#40;&#41;\n\n   ODLG&#58;OCLIENT &#58;= OBRW\n\n   @120, 60 BUTTON OBTN PROMPT &quot;PROXIMO&quot; OF ODLG ;\n            ACTION DLG2&#40; OBRW, ASTRUC, ODLG &#41; PIXEL\n\n   ACTIVATE DIALOG ODLG   CENTERED ;\n            ON INIT OBRW&#58;SETFOCUS&#40;&#41;\n\nRETURN NIL\n\nSTATIC FUNCTION DLG2&#40; OBRW, ASTRUC, ODLG &#41;\n\n   LOCAL ODLG1, OBRW1\n\n   DEFINE DIALOG ODLG1 FROM 200, 200 TO 500, 510 PIXEL\n\n\n   OBRW1 &#58;= OCLONE&#40; OBRW, ASTRUC, ODLG &#41;\n\n   OBRW1 &#58;= TXBROWSE&#40;&#41;&#58;NEW&#40; ODLG1 &#41;\n\n   OBRW1&#58;SETARRAY&#40; ASTRUC &#41;\n\n   OBRW1&#58;NTOP    &#58;= 10\n   OBRW1&#58;NLEFT   &#58;= 10\n   OBRW1&#58;NRIGHT  &#58;= 150\n   OBRW1&#58;NBOTTOM &#58;= 100\n\n   OBRW1&#58;ACOLS&#91;1&#93;&#58;CHEADER &#58;= PADR&#40;&quot;NAME&quot;, 15&#41;\n\n   OBRW1&#58;ACOLS&#91;2&#93;&#58;CHEADER       &#58;= &quot;TYPE&quot;\n   OBRW1&#58;ACOLS&#91;2&#93;&#58;NDATASTRALIGN &#58;= AL_CENTER\n   OBRW1&#58;ACOLS&#91;2&#93;&#58;NHEADSTRALIGN &#58;= AL_CENTER\n\n   OBRW1&#58;ACOLS&#91;3&#93;&#58;CHEADER       &#58;= &quot;SIZE&quot;\n   OBRW1&#58;ACOLS&#91;3&#93;&#58;NDATASTRALIGN &#58;= AL_RIGHT\n   OBRW1&#58;ACOLS&#91;3&#93;&#58;NHEADSTRALIGN &#58;= AL_RIGHT\n\n   OBRW1&#58;ACOLS&#91;4&#93;&#58;CHEADER       &#58;= &quot;LENGTH&quot;\n   OBRW1&#58;ACOLS&#91;4&#93;&#58;NDATASTRALIGN &#58;= AL_RIGHT\n   OBRW1&#58;ACOLS&#91;4&#93;&#58;NHEADSTRALIGN &#58;= AL_RIGHT\n\n   OBRW1&#58;NMARQUEESTYLE   &#58;= MARQSTYLE_HIGHLCELL\n   OBRW1&#58;LRECORDSELECTOR &#58;= &#46;F&#46;\n\n   OBRW1&#58;CREATEFROMCODE&#40;&#41;\n\n   ODLG1&#58;OCLIENT &#58;= OBRW1\n\n   /*\n   OBRW1&#58;SETARRAY&#40; ASTRUC &#41;\n\n   OBRW1&#58;DELCOL&#40;2&#41;\n\n   OBRW1&#58;NTOP    &#58;= 0\n   OBRW1&#58;NLEFT   &#58;= 0\n   OBRW1&#58;NRIGHT  &#58;= 10\n   OBRW1&#58;NBOTTOM &#58;= 50\n\n   OBRW1&#58;OWND    &#58;= ODLG1\n   */\n\n   ACTIVATE DIALOG ODLG1 ON INIT OBRW1&#58;SETFOCUS&#40;&#41;\n\nRETURN NIL\n[/code:1mtiawzh]','',0,'AIA=','1mtiawzh',1,0,'',362,0,0),(47807,9893,20,6,0,'82.58.168.20',1202494095,1,0,1,1,1,1,'','','Sì, questo è possibilissimo. Queste sono le funzioni e un esempio per l\'FTP:\n\n[code:398o7j4c]#include &quot;Fivewin&#46;ch&quot;\n\n\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL hInternet, hConnect\n\n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INTERNETCONNECT&#40; hInternet, &quot;myftpaddress&quot;, INTERNET_INVALID_PORT_NUMBER, &quot;myuserid&quot;, &quot;mypassword&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n    ? FTPGETFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, &quot;atest&#46;prg&quot;, 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 &#41;\n\n//    ? FTPPUTFILE&#40; hConnect, &quot;atest&#46;prg&quot;, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, 0, 0 &#41;\n\n    INTERNETCLOSEHANDLE&#40; hConnect &#41;\n\n    INTERNETCLOSEHANDLE&#40; hInternet &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; INTERNETOPEN &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetOpen&#40; hb_parc&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41;\n&#123;\n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCONNECT &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parc&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPGETFILE &#41;\n&#123;\n    hb_retl&#40; FtpGetFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parl&#40; 4 &#41;, hb_parnl&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPPUTFILE &#41;\n&#123;\n    hb_retl&#40; FtpPutFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPDELETEFILE &#41;\n&#123;\n    hb_retl&#40; FtpDeleteFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPCREATEDIRECTORY &#41;\n&#123;\n    hb_retl&#40; FtpCreateDirectory&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPREMOVEDIRECTORY &#41;\n&#123;\n    hb_retl&#40; FtpRemoveDirectory&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPFINDFIRSTFILE &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; FtpFindFirstFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, &#40; WIN32_FIND_DATA * &#41; hb_parc&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETFINDNEXTFILE &#41;\n&#123;\n    hb_retl&#40; InternetFindNextFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41; &#41; &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:398o7j4c]\n\nE per gestire l\'MDB puoi utilizzare ADO. Di esempi per ADO ne ho messi tanti in giro.\n\nEMG','',0,'AIA=','398o7j4c',1,0,'',6,0,0),(47808,3306,6,46,0,'217.168.114.184',1202494267,1,0,1,1,1,0,'','','\\xharbour\\bin\\harbour.exe c:\\fwh27\\source\\classes\\TTVITEM /n/a/v/w /i\\fwh27\\include;\\xharbour\\include[b:cupol40y];c:\\borland\\bcc55\\include[/b:cupol40y] &gt;&gt; FIVEHX.LOG','',0,'QA==','cupol40y',1,0,'',46,0,0),(47809,9879,3,103,0,'189.12.219.53',1202494872,1,0,1,1,1,1,'','','[quote=&quot;Otto&quot;:azwbi6ee]As I never used TSBrowse could you please tell me what the advantages over xBrowser are?\nThanks in advance \nOtto[/quote:azwbi6ee]\n\nOtto,\n\n    IMHO, I use TSBrowse specially for editing. I use it extensively and TSBrowse has the TSBTNGET() where you can set a function inside a cell, and put a bitmap to click on it or press F12 to open another browse and make your searches. That\'s what I don\'t see in other browses and it\'s very useful to me.\n\nRegards,','',0,'gA==','azwbi6ee',1,0,'',103,0,0),(47810,3306,6,1242,0,'201.74.72.72',1202495341,1,0,1,1,1,0,'','compilação lib Fivehx.lib    classe   TTVItem','já havia feito meu amigo , mas mesmo assim, nada !!!!','',0,'gA==','35uzsn3q',1,0,'',1242,0,0),(47811,9888,6,104,0,'201.8.63.61',1202495398,1,0,1,1,1,0,'','','Olá Renomas,\n\n[quote:2cdpu61d]\nAcho que vc. tem que clonar en el on init del dialog \n\nCode: \n\n define dialog oDlg1 from 200, 200 to 500, 510 pixel \n oBrw1:CreateFromCode() \n activate dialog oDlg1 on init InitBrowse( oBrw1, oBrw \n\n... \n\nStatic Function InitBrowse( oBrw1, oBrw ) \noBrw1 := oClone( oBrw ) \n\n   oBrw1:delcol(2) \n\n   oBrw1:nTop    := 0 \n   oBrw1:nLeft   := 0 \n   oBrw1:nRight  := 10 \n   oBrw1:nBottom := 50 \n\n  Return Nil \n[/quote:2cdpu61d]\n\nIsto não funcionou.\n\n[quote:2cdpu61d]\nvc va a utilizar o mesmo alias no segundo browse?\n[/quote:2cdpu61d]\n\nSim.\n\nOlá João,\n\nIsto realmente funciona, mas vou ter que especificar propriedade por propriedade.\n\n[code:2cdpu61d]\n#INCLUDE &quot;FIVEWIN&#46;CH&quot; \n#INCLUDE &quot;XBROWSE&#46;CH&quot; \n\nFUNCTION MAIN \n\n   LOCAL ODLG, OBRW, ASTRUC &#58;= &#123; &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ; \n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ; \n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ; \n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125;, ; \n                                 &#123; &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot;, &quot;TESTE&quot; &#125; &#125; \n\n   DEFINE DIALOG ODLG FROM 0, 0 TO 300, 310 PIXEL \n\n   OBRW &#58;= TXBROWSE&#40;&#41;&#58;NEW&#40; ODLG &#41; \n\n   OBRW&#58;SETARRAY&#40; ASTRUC&#41; \n\n   OBRW&#58;NTOP    &#58;= 10 \n   OBRW&#58;NLEFT   &#58;= 10 \n   OBRW&#58;NRIGHT  &#58;= 150 \n   OBRW&#58;NBOTTOM &#58;= 100 \n\n   OBRW&#58;ACOLS&#91;1&#93;&#58;CHEADER &#58;= PADR&#40;&quot;NAME&quot;, 15&#41; \n\n   OBRW&#58;ACOLS&#91;2&#93;&#58;CHEADER       &#58;= &quot;TYPE&quot; \n   OBRW&#58;ACOLS&#91;2&#93;&#58;NDATASTRALIGN &#58;= AL_CENTER \n   OBRW&#58;ACOLS&#91;2&#93;&#58;NHEADSTRALIGN &#58;= AL_CENTER \n\n   OBRW&#58;ACOLS&#91;3&#93;&#58;CHEADER       &#58;= &quot;SIZE&quot; \n   OBRW&#58;ACOLS&#91;3&#93;&#58;NDATASTRALIGN &#58;= AL_RIGHT \n   OBRW&#58;ACOLS&#91;3&#93;&#58;NHEADSTRALIGN &#58;= AL_RIGHT \n\n   OBRW&#58;ACOLS&#91;4&#93;&#58;CHEADER       &#58;= &quot;LENGTH&quot; \n   OBRW&#58;ACOLS&#91;4&#93;&#58;NDATASTRALIGN &#58;= AL_RIGHT \n   OBRW&#58;ACOLS&#91;4&#93;&#58;NHEADSTRALIGN &#58;= AL_RIGHT \n\n   OBRW&#58;NMARQUEESTYLE   &#58;= MARQSTYLE_HIGHLCELL \n   OBRW&#58;LRECORDSELECTOR &#58;= &#46;F&#46; \n\n   OBRW&#58;CREATEFROMCODE&#40;&#41; \n\n   ODLG&#58;OCLIENT &#58;= OBRW \n\n   @120, 60 BUTTON OBTN PROMPT &quot;PROXIMO&quot; OF ODLG ; \n            ACTION DLG2&#40; OBRW, ASTRUC, ODLG &#41; PIXEL \n\n   ACTIVATE DIALOG ODLG   CENTERED ; \n            ON INIT OBRW&#58;SETFOCUS&#40;&#41; \n\nRETURN NIL \n\nSTATIC FUNCTION DLG2&#40; OBRW, ASTRUC, ODLG &#41; \n\n   LOCAL ODLG1, OBRW1 \n\n   DEFINE DIALOG ODLG1 FROM 200, 200 TO 500, 510 PIXEL \n\n   OBRW1 &#58;= TXBROWSE&#40;&#41;&#58;NEW&#40; ODLG1 &#41; \n\n   OBRW1&#58;SETARRAY&#40; ASTRUC &#41; \n\n   OBRW1&#58;NTOP    &#58;= 10 \n   OBRW1&#58;NLEFT   &#58;= 10 \n   OBRW1&#58;NRIGHT  &#58;= 150 \n   OBRW1&#58;NBOTTOM &#58;= 100 \n\n   for n = 1 to 4\n       OBRW1&#58;ACOLS&#91;n&#93;&#58;CHEADER       &#58;= OBRW&#58;ACOLS&#91;n&#93;&#58;CHEADER      \n       OBRW1&#58;ACOLS&#91;n&#93;&#58;NDATASTRALIGN &#58;= OBRW&#58;ACOLS&#91;n&#93;&#58;NDATASTRALIGN\n       OBRW1&#58;ACOLS&#91;n&#93;&#58;NHEADSTRALIGN &#58;= OBRW&#58;ACOLS&#91;n&#93;&#58;NHEADSTRALIGN\n   next\n\n   OBRW1&#58;DELCOL&#40;2&#41; \n\n   OBRW1&#58;NMARQUEESTYLE   &#58;= MARQSTYLE_HIGHLCELL \n   OBRW1&#58;LRECORDSELECTOR &#58;= &#46;F&#46; \n\n   OBRW1&#58;CREATEFROMCODE&#40;&#41; \n\n   ODLG1&#58;OCLIENT &#58;= OBRW1 \n\n   ACTIVATE DIALOG ODLG1 ON INIT OBRW1&#58;SETFOCUS&#40;&#41; \n\nRETURN NIL \n[/code:2cdpu61d]\n\nMais alguma sugestão ?\n\nObrigado a todos,\n\nRossine.','',0,'gIA=','2cdpu61d',1,0,'',104,0,0),(47812,9878,6,103,0,'189.12.219.53',1202495498,1,0,1,1,1,1,'','','Maestro Manuel,\n\n    Es un gusto saludarte y sabre que estés bien y con salud. He usado TSBrowse en mis aplicaciones y va de maravilla! Solo tengo algunas preguntas, sobre algunos errores que me salen y me gustaria que asi que tengas tiempo puedas mirar:\n\n1 - Yo utilizo la versión 6.13 que fue modificada por James Bott y es la versión mas segura y con un minimo de errores que tengo. No se si la tienes; Si no la tienes puedo enviarte;\n\n2 - Cuando uso la TSBtnGet() y llamo otro browse con TSBrowse, si uso la flecha derecha para mirar otras colunas, me sale un error. Por causa desto utilizo otro browse (por ejemplo: XBrowse) y me funciona perfecto.\n\nPor encuanto son estas mis consideraciones y me pongo a tu disposición en lo que te pueda ayudar.\n\nSaludos,','',0,'gIA=','1k08m90y',1,0,'',103,0,0),(47813,9879,3,51,0,'80.122.88.242',1202496962,1,0,1,1,1,0,'','','George, Derick,\nthank you for your answers.\n\nI have the impression that here TS is compared with Tbrowse and\nnot with xBrowse.  \n\nI would be interested in a comparison with xBrowse. All which is\nin the ST list I can do with  with XBrowser too.\n\nEspecially I would be interested in a speed comparison and stability.\n\nRegards,\nOtto','',0,'gIA=','3ru3fwn6',1,0,'',51,0,0),(47814,3306,6,46,0,'217.168.114.184',1202497674,1,0,1,1,1,0,'','','desculpe, estaba errado, era neste\n\nc:\\borland\\bcc55\\bin\\bcc32.exe -tWM -DHB_GUI -DHB_API_MACROS -DHB_STACK_MACROS -DHB_FM_STATISTICS_OFF -d -a8 -OS -O2 -5 -c [b:378jitoo]-Ic:\\fwh27\\include[/b:378jitoo] @b32.bc &gt;&gt; FIVEHX.LOG','',0,'QA==','378jitoo',1,0,'',46,0,0),(47815,9878,6,483,0,'190.30.89.251',1202498786,1,0,1,1,1,0,'','Tsbrowse','Saludos Maestro:\nMi correo es <!-- e --><a href=\"mailto:caducca@gmail.com\">caducca@gmail.com</a><!-- e -->\nLo felicito por sus trabajos, a su disposición para lo que necesite.\n\nCarlos A. Ducca','',0,'QA==','2ryostr3',1,0,'',483,0,0),(47816,9879,3,303,0,'72.220.181.80',1202499052,1,0,1,1,1,0,'','','Otto,\n\nHere is a screenshot of an example of TSBrowse. Note the use of icons, conditional header colors, header gradient colors, conditional row and cell colors, and disabled icons colors.\n\nI have not used XBrowse much so I don\'t know if it can do all these things too.\n\nJames\n\n[url=http&#58;//www&#46;freeimagehosting&#46;net/:16uilxgo][img:16uilxgo]http&#58;//img2&#46;freeimagehosting&#46;net/uploads/b6b05d41c4&#46;jpg[/img:16uilxgo][/url:16uilxgo]','',0,'GA==','16uilxgo',1,0,'',303,0,0),(47817,9865,6,9,0,'85.59.51.114',1202499702,1,0,1,1,1,1,'','','[quote=&quot;Armando&quot;:1b6z3t6i]Manuel:\"Se ha detectado un problema y debe cerrarse\"\n[/quote:1b6z3t6i]\n\n¿Puede trabajar bien con xHarbour 99.61 y mal con 99.71?','',0,'gA==','1b6z3t6i',1,0,'',9,0,0),(47818,9888,6,362,0,'200.158.19.251',1202499827,1,0,1,1,1,1,'','','Desculpe amigão, mas ahi, entra meus limites, não manjo nada de XBROWSE...\n\nTalvez algum mestre em XBROWSE.','',0,'gA==','83lair8a',1,0,'',362,0,0),(47819,9879,3,171,0,'71.233.232.238',1202500312,1,0,1,1,1,0,'','','Otto,\n\nI am using TsBrowse, intensively in a local network of 5 computers (not client/server), with files containing over 300,000 records. All browsers are working very fast. My application has not problem at all regarding the speed or instability. \n\nI can\'t comment on xBrowse, because I am not using it, as TSBrowse can do everything that I need to implement in a browser control.  \n\nRegards, \n\nGeorge','',0,'gA==','2czntten',1,0,'',171,0,0),(47820,9879,3,868,0,'219.64.121.60',1202500766,1,0,1,1,1,1,'','','Mr James\n\nThere seem to be some problem with the image link. I can not see it. Can you post the link again please ?','',0,'gA==','15tfgxx0',1,0,'',868,0,0),(47821,9876,20,8,0,'213.45.250.56',1202500781,1,0,1,1,1,0,'','','Per quanto riguarda la divisone conti/sottoconti può andare bene. Considera però che una contabilità \"fiscale\" deve prevedere una strutturazione più formale tipo gruppo/mastro/conto/sottoconto, ma a questo punto tanto vale orientarsi o orientare il committente verso un prodotto già pronto. Tempo fa realizzai una contabilità del genere per uno studio commerciale, ma c\'era il supporto del commercialista che aveva scribacchiato qualcosa in clipper ( si credeva un programmatore !!! ). Ti assicuro che ormai non vale più la pena cimentarsi in opere del genere. Ho visto prodotti ( ad esempio TeamSystem ) che fanno diventare ragioniere anche chi non lo è ! Se invece il lavoro si limita ad una contabilità non fiscale allora .... buon lavoro.\nPer quanto riguarda la gestione della prima nota potresti strutturare così :\ndue dbf in relazione padre-figli. Il padre è il movimento con data, causale, totali dare-avere, ecc. , mentre i figli sono i movimenti dei singoli conti o in dare o in avere.\nFammi sapere, ciao.','',0,'gA==','3rnwa9lj',1,0,'',8,0,0),(47822,9879,3,303,0,'72.220.181.80',1202500910,1,0,1,1,1,0,'','','NageswaraRao,\n\nI see that the image is slow to load today. Here is the link:\n\n<!-- m --><a class=\"postlink\" href=\"http://img2.freeimagehosting.net/uploads/b6b05d41c4.jpg\">http://img2.freeimagehosting.net/uploads/b6b05d41c4.jpg</a><!-- m -->\n\nJames','',0,'gA==','146gydip',1,0,'',303,0,0),(47823,9879,3,868,0,'219.64.121.60',1202501045,1,0,1,1,1,1,'','','Mr James\n\nThanks. I think you all know countries on this side of the globe are facing some connectivity and speed issues.','',0,'gA==','1rnbb0ms',1,0,'',868,0,0),(47825,3306,6,1242,0,'201.74.72.72',1202501469,1,0,1,1,1,0,'','Obrigado','O problema realmente era no linkeditor , agradeço muito pela sua boa vontade e paciência','',0,'gA==','1l7h8lob',1,0,'',1242,0,0),(47826,9713,3,148,0,'41.196.192.196',1202502203,1,0,1,1,1,0,'','','Sent to your mail the files. Thanks','',0,'gA==','25pkbdbu',1,0,'',148,0,0),(47827,9876,20,49,0,'72.14.220.136',1202502602,1,0,1,1,1,1,'','','mi piacerebbe discorrere con te di questo anche perché io in verità ho qualcosa sottomano e vo\nevo sapere da uno esperto del settore se posso adattarlo ad una semplice contabilità di PD\nposso scriverti in privato?','',0,'gA==','22zxbrys',1,0,'',49,0,0),(47828,9893,20,49,0,'72.14.220.136',1202502900,1,0,1,1,1,1,'','','bene allora mo faccio na ricerca..','',0,'gA==','1900rnn1',1,0,'',49,0,0),(47829,9879,3,868,0,'219.64.121.60',1202503228,1,0,1,1,1,1,'','','Mr James\n\nVery nice screen shot.  Before I start making any comparison with XBrowse, I would like to make it very clear that I have the highest regards for the author or TSbrowse, the Maestro, Mr. Manuel Mercado  I used it extensively in my 16-bit applications and used almost all its features to the best advantage. Though I use colors, gradients and bitmaps with great restraint. I still miss the functional use of the super headers. This feature is not available in any other browse. I stopped using the two great products, Mr. Hernann\'s browse and TSBrowse when I started development in 32 bits. I just wanted to steer clear of maintenance issues.\n\nStill if I make any comparison, it is because I worked on both the products, but not with a view to say this is better or that is better.\n\nDiscussing the limited feature set presented in the above screen shot, all that can be done with xbrowse also, including header footer colors, conditional cell colors, bitmaps, except gradient fills.\n\nLooking at the above post one important functional feature not found in xbrowse or any other browse is Super Headers. ( The code I downloaded from your site needs a minor fix ). Also missing is the optional Postedit key navigation.\n\nCosmetic features missing are automatic checkbox editing of logical fields ( we have to do that through our code though it is easy) and optional colors on gradients.\n\nThere may be many others. Let us keep looking. I guess Otto has enough information for the time being.\n\nRecently I found in the Spanish forum, Transparent TSBrowse. Transparent browse on bitmap ( or image ) background. That was very impressive.\n\nEarlier I made a derived txbrowse class with the same effect and posted in this forum.  It is possible.','',0,'gA==','1nslz526',1,0,'',868,0,0),(47830,9879,3,868,0,'219.64.121.60',1202503964,1,0,1,1,1,1,'','','In continuation\n\nThese features also are not in txbrowse\n\n17.- Synchronization through code blocks with other browses using \"TSBrowse\" method SyncChild().\n\n   We can do this in bchange block of xbrowse.  \n\n18.- Filters based on indexes (specially useful with NTX).\n\n   Guess FWH can move this code from other browses to xbrowse also.\n\n19.- Automatic append using the \"TSBrowse\" method SetAppendMode(). When you press down arrow key at the last row, \"TSBrowse\" opens a virtual blank record that can be edited. Actual append is done when you complete the edition of the first editable field. Pressing Esc key annulates the virtual append.\n\nNote on 19:  I was always uncomfortable with the lack of control I had with this.  I wanted a row to be apppended only if I enter some minimum required columns validly.  TXbrowse gives me more control. \n\nHope FWH also gives us these features. Now that the Maestro is upgrading the TSBrowse we may have more features on TSBrowse in future','',0,'gA==','3bx3lhgf',1,0,'',868,0,0),(47831,9879,3,51,0,'80.122.88.242',1202506415,1,0,1,1,1,0,'','','Hello NageswaraRao, \n&gt;I just wanted to steer clear of maintenance issues. \n\nThat’s what I want too.\nAfter reading all the threads I think I stay with xBrowse. There seems not be much advantage in changing.\n\nRegards,\nOtto\n\n\n[img:9ga6uqpw]http&#58;//www&#46;atzwanger&#46;com/fw/xbrowse1&#46;jpg[/img:9ga6uqpw]','',0,'CA==','9ga6uqpw',1,0,'',51,0,0),(47832,9892,7,456,0,'83.58.80.243',1202507209,1,0,1,1,1,1,'','','Te debe faltar el include de  \"connmgr.h\"\n\n[code:onr20v9a]\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;initguid&#46;h&quot;\n#include &quot;connmgr&#46;h&quot;\n&#46;&#46;&#46;\n[/code:onr20v9a]\n\nGprsConnect Debes utilizarlo antes de InternetOpen.\nEjemplo de funcion que conecta via GPRS, solo testea si pued abrir la conexion, y devuelve un mensaje.\n\n[code:onr20v9a]\n//------------------\nFUNCTION GprsTst&#40;&#41;\n//------------------\n   LOCAL hInternet, hConnect&#58;=0,nVeces&#58;=0, hGprs\n   CursorWait&#40;&#41;\n   hGprs&#58;=GprsConnect&#40;&#41;\n   hInternet&#58;= InternetOpen&#40; &quot;HnasMbl&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n   IF !hInternet==0\n      WHILE hConnect==0 &#46;AND&#46; nVeces&lt;3\n         hConnect&#58;=InternetConnect&#40; hInternet, Trim&#40;Cfg-&gt;Ip&#41;, Cfg-&gt;Puerto, Trim&#40;Cfg-&gt;Usr&#41;, Trim&#40;Cfg-&gt;Psw&#41;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n         nVeces++\n      END\n      IF hConnect==0\n         MsgStop&#40;\'Error al conectar FTP via GPRS\'&#41;\n      ELSE\n         MsgInfo&#40;\'GPRS  O K!\',\'Chequeo conexión\'&#41;\n      ENDIF\n      InternetCloseHandle&#40; hConnect &#41;\n      InternetCloseHandle&#40; hInternet &#41;\n   ELSE\n      MsgStop&#40;\'GPRS no disponible\'&#41;\n   ENDIF\n   GprsRelease&#40;hGprs&#41;\n   CursorWE&#40;&#41;\nRETURN NIL[/code:onr20v9a]','',0,'AIA=','onr20v9a',1,0,'',456,0,0),(47833,9867,4,2,0,'87.218.146.222',1202508498,1,0,1,1,1,1,'','','Roberto,\n\nAre you able to open \\\\192.168.0.1\\C\\sample.txt with Pocket Word ?','',0,'AIA=','2icrj6pi',1,0,'',2,0,0),(47834,9879,3,868,0,'219.64.121.60',1202508930,1,0,1,1,1,1,'','','Mr Otto\n\nVery impressive screen shots. You have your own style. And James has his. \n\nI confess I am lazy. I appreciate your work. \n\nWhatever browses we have for clipper or harbour, they are far far better than the grids available in any other development platform.\n\nBy the way, where from do you get all those bitmaps ?','',0,'AIA=','3dni3rah',1,0,'',868,0,0),(47835,9865,6,53,0,'189.139.23.108',1202511682,1,0,1,1,1,1,'','','Manuel:\n\n <!-- s:oops: --><img src=\"{SMILIES_PATH}/icon_redface.gif\" alt=\":oops:\" title=\"Embarassed\" /><!-- s:oops: -->  No tengo xHarbour 99.61 para hacer la prueba, me olvide mencionar que uso Windows XP SP2\n\nSaludos','',0,'AIA=','usbw0rwo',1,0,'',53,0,0),(47836,9895,6,568,0,'200.121.64.61',1202512011,1,0,1,1,1,0,'','Cambiar CLR_PANE en tsbrowse6','Estimados Amigos,\nDeseo cambiar el color del CLR_PANE de la 1era columna de mi browse a medida que el cursor se desplace por las lineas enfocadas. Si alguien me puede dar una idea de como hacerlo lo agrcedere infinitamente.\n\nPor si acaso, uso el tsbrowse6 de nuestro querido amigo Manuel Mercado\n\nGracias\n\nWilliam Chavez Noriega\nLima - Peru <!-- s:roll: --><img src=\"{SMILIES_PATH}/icon_rolleyes.gif\" alt=\":roll:\" title=\"Rolling Eyes\" /><!-- s:roll: -->','',0,'AIA=','l5ykrow9',1,0,'',568,0,0),(47837,9713,3,303,0,'72.220.181.80',1202513566,1,0,1,1,1,0,'','','Ehab,\n\nDo you mean that you sent more files today?\n\nI got your files yesterday and sent a response yesterday. Did you get it?\n\nJames','',0,'AIA=','1r9rhupu',1,0,'',303,0,0),(47838,9895,6,1255,0,'200.66.237.87',1202514150,1,0,1,1,1,0,'','Re: Cambiar CLR_PANE en tsbrowse6','[quote=&quot;William Chavez Noriega&quot;:13nqkq7v]Deseo cambiar el color del CLR_PANE de la 1era columna de mi browse a medida que el cursor se desplace por las lineas enfocadas[/quote:13nqkq7v]\nHola William:\n\nPrueba con:\n     oBrw:aColumns[ 1 ]:lFixLite := .T.\n\nTambién puedes hacerlo al definir la columna:\n     ADD COLUMN TO oBrw DATA bData TITLE cTitle [b:13nqkq7v]DOUBLE CURSOR[/b:13nqkq7v]\n\nEspero haber ayudado.\n\nSaludos\n\nManuel Mercado','',0,'wA==','13nqkq7v',1,0,'',1255,0,0),(47839,9895,6,568,0,'200.121.64.61',1202515694,1,0,1,1,1,0,'','Re: Cambiar CLR_PANE en tsbrowse6','Estimado Señor Mercado,\nRealmente le agradezco la ayuda, me ha sido de gran utilidad, espero poder seguir molestandole en el futuro pues todavia soy nuevo en la programacion del xhabour... creo que el respeto que Ud. se ha ganado en el foro esta muy bien merecido.\nMuchas Gracias Nuevamente.\n\nWilliam Chavez Noriega\nLima - Peru <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'wA==','3a05bz4f',1,0,'',568,0,0),(47840,9875,6,987,0,'189.132.20.186',1202515819,1,0,1,1,1,0,'','','Saludos Raymundo Islas:\n\nTalves sea esto lo que estas buscando, yo lo eimplemente en mi sistema y trabaja de lujo..\n\nEsta es una contribucíon de Rossine, ya tiene un buen tiempo rolando aqui en el foro y hasta ahora nadia ha reportado fallos con dicha contribución:\n\nComo te daras cuenta solo son pequeñas modificaciones y tus tooltips andaran de lujo..\n\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3623&amp;highlight=ntooltipicon\">http://fivetechsoft.com/forums/viewtopi ... ooltipicon</a><!-- m -->\n\n\nSaludos Paisano... <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D --> \n\nI.S.C. Víctor Daniel Cuatécatl León.\n<!-- w --><a class=\"postlink\" href=\"http://www.soldisoft.unlugar.com\">www.soldisoft.unlugar.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'wA==','21juy49g',1,0,'',987,0,0),(47841,9893,20,49,0,'62.13.172.68',1202516321,1,0,1,1,1,1,'','','ho fatto una prova ma ....\n\n[1]:iLink32.Exe -Gn -aa -Tpe -s @test.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'InternetOpenA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'InternetCloseHandle\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'InternetConnectA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpGetFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpPutFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpDeleteFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpCreateDirectoryA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpRemoveDirectoryA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpFindFirstFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'InternetFindNextFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ','',0,'','cvjogm0e',1,0,'',49,0,0),(47842,9893,20,49,0,'62.13.172.68',1202516463,1,0,1,1,1,1,'','','hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \n\n\ncosa devo mettere al posto di Anystring ?','',0,'','pzzjx1kv',1,0,'',49,0,0),(47843,9878,6,1255,0,'200.66.237.87',1202516505,1,0,1,1,1,0,'','','[quote=&quot;Kleyber&quot;:1acguxuv]Cuando uso la TSBtnGet() y llamo otro browse con TSBrowse, si uso la flecha derecha para mirar otras colunas, me sale un error. Por causa desto utilizo otro browse (por ejemplo: XBrowse) y me funciona perfecto[/quote:1acguxuv]\nHola Kleiber:\nEs un placer saludarte, espero que en la versión que muy pronto tentrán a su disposición estén resueltos este y otros problemas de versiones anteriores.\n\nUn abrazo.\n\nManuel Mercado','',0,'gA==','1acguxuv',1,0,'',1255,0,0),(47844,9896,20,49,0,'62.13.172.68',1202517701,1,0,1,1,1,1,'','acess con ado','Caro Emg,\nquesto esempietto  con pochi field funziona  poi quandoinserisco altri campi mi fa errore :\n[code:58326y3h]\n\n#include &quot;Fivewin&#46;ch&quot;\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs, oErr \n\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41; \n\n    TRY \n        oRS&#58;Open&#40; &quot;SELECT * FROM Utenti&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=ecom&#46;mdb&quot;, 1, 3 &#41;\n    CATCH oErr \n        ? oErr&#58;Description \n        RETURN NIL \n    END TRY \n\n    WBROWSERECORDSET&#40; oRs &#41; \n  \n    oRs&#58;Close&#40;&#41; \n\n    RETURN NIL \n\n\nSTATIC FUNCTION WBROWSERECORDSET&#40; oRs &#41;\n\n    LOCAL oDlg, oBrw, nRec \n\n    DEFINE DIALOG oDlg SIZE 800, 300\n\n    @ 0, 0 LISTBOX oBrw FIELDS ;\n                    oRs&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Nome&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Cognome&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Via&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Civico&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Cap&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Citta&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Provincia&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Stato&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;Telefono&quot; &#41;&#58;Value,;\n                    oRs&#58;Fields&#40; &quot;CodiceFiscale&quot; &#41;&#58;Value;\n           HEADERS &quot;Codice&quot;,&quot;Nome&quot;,&quot;Cognome&quot;,&quot;Indirizzo&quot;,;\n                   &quot;Numero&quot;,&quot;Cap&quot;,&quot;Provincia&quot;,&quot;Città&quot;,&quot;Provincia&quot;,;\n                   &quot;Stato&quot;,&quot;Telefono&quot;,&quot;Codice Fiscale&quot;;\n           ON RIGHT CLICK &#40; nRec &#58;= oRs&#58;AbsolutePosition,; \n                            oBrw&#58;Report&#40; &quot;TWBrowse report&quot;, &#46;T&#46; &#41;,; \n                            oRs&#58;MoveFirst&#40;&#41;,;\n                            oRs&#58;Move&#40; nRec - 1 &#41; &#41;\n\n    oBrw&#58;bLogicLen = &#123; || oRs&#58;RecordCount &#125;\n    oBrw&#58;bGoTop    = &#123; || oRs&#58;MoveFirst&#40;&#41; &#125;\n    oBrw&#58;bGoBottom = &#123; || oRs&#58;MoveLast&#40;&#41; &#125;\n    oBrw&#58;bSkip     = &#123; | nSkip | Skipper&#40; oRs, nSkip &#41; &#125;\n    oBrw&#58;cAlias    = &quot;ARRAY&quot;\n\n    ACTIVATE DIALOG oDlg;\n             ON INIT oDlg&#58;SetControl&#40; oBrw &#41;;\n             CENTER\n\n    RETURN NIL\n\nSTATIC FUNCTION SKIPPER&#40; oRs, nSkip &#41;\n\n    LOCAL nRec &#58;= oRs&#58;AbsolutePosition \n\n    oRs&#58;Move&#40; nSkip &#41; \n\n    IF oRs&#58;EOF; oRs&#58;MoveLast&#40;&#41;; ENDIF \n    IF oRs&#58;BOF; oRs&#58;MoveFirst&#40;&#41;; ENDIF \n\n    RETURN oRs&#58;AbsolutePosition - nRec\n\n\n\n[/code:58326y3h]\n\n\n\nl\'errore è \n\nApplication\n===========\n   Path and name: C:\\work\\errori\\mdb\\test.Exe (32 bits)\n   Size: 1,395,712 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 02/11/08, 01:43:25\n   Error description: Error BASE/1132  Bound error: array access[/code]','',0,'AIA=','58326y3h',1,0,'',49,0,0),(47845,9892,7,1135,0,'189.136.48.77',1202527672,1,0,1,1,1,1,'','','Biel. Muchas Gracias, esto se ve mucho mas simple y sencillo de lo que ahora estoy haciendo, lo probare.\nSaludos desde Mexico!\n\n\n\n[quote=&quot;Biel EA6DD&quot;:m5wl1gpn]Te debe faltar el include de  \"connmgr.h\"\n\n[code:m5wl1gpn]\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;initguid&#46;h&quot;\n#include &quot;connmgr&#46;h&quot;\n&#46;&#46;&#46;\n[/code:m5wl1gpn]\n\nGprsConnect Debes utilizarlo antes de InternetOpen.\nEjemplo de funcion que conecta via GPRS, solo testea si pued abrir la conexion, y devuelve un mensaje.\n\n[code:m5wl1gpn]\n//------------------\nFUNCTION GprsTst&#40;&#41;\n//------------------\n   LOCAL hInternet, hConnect&#58;=0,nVeces&#58;=0, hGprs\n   CursorWait&#40;&#41;\n   hGprs&#58;=GprsConnect&#40;&#41;\n   hInternet&#58;= InternetOpen&#40; &quot;HnasMbl&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n   IF !hInternet==0\n      WHILE hConnect==0 &#46;AND&#46; nVeces&lt;3\n         hConnect&#58;=InternetConnect&#40; hInternet, Trim&#40;Cfg-&gt;Ip&#41;, Cfg-&gt;Puerto, Trim&#40;Cfg-&gt;Usr&#41;, Trim&#40;Cfg-&gt;Psw&#41;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n         nVeces++\n      END\n      IF hConnect==0\n         MsgStop&#40;\'Error al conectar FTP via GPRS\'&#41;\n      ELSE\n         MsgInfo&#40;\'GPRS  O K!\',\'Chequeo conexión\'&#41;\n      ENDIF\n      InternetCloseHandle&#40; hConnect &#41;\n      InternetCloseHandle&#40; hInternet &#41;\n   ELSE\n      MsgStop&#40;\'GPRS no disponible\'&#41;\n   ENDIF\n   GprsRelease&#40;hGprs&#41;\n   CursorWE&#40;&#41;\nRETURN NIL[/code:m5wl1gpn][/quote:m5wl1gpn]','',0,'gIA=','m5wl1gpn',1,0,'',1135,0,0),(47846,9855,3,868,0,'219.64.121.60',1202530627,1,0,1,1,1,1,'','','Two suggestions.\n\nDate may be formatted as yyyy-mm-dd but not as yyyymmdd.  This can be done by SET DATE ANSI and use DTOC( dvar ).\n\nFor empty dates use null string.\n\nLogicals may be converted as TRUE or FALSE.  Excel understands True / False but not YES / NO.','',0,'gIA=','bslv2kbb',1,0,'',868,0,0),(47847,9889,3,868,0,'219.64.121.60',1202532457,1,0,1,1,1,1,'','','If we want to browse empty record sets also, we need to definte columns ourselves similar to the following code.\n[code:1r1tqu4u]\n\noCol &#58;= oBrw&#58;AddCol&#40;&#41;\noCol&#58;bStrData &#58;= &#123; || If&#40; oRs&#58;RecordCount&#40;&#41; &gt; 0, oRs&#58;Field&#40;0&#41;&#58;Value, space&#40;10&#41; &#41; &#125;\noCol&#58;cHeader &#58;= &quot;Col-1&quot; \n\n// after defining all the columns\noBrw&#58;SetADO&#40; oRs &#41;\n // rest of the code\n\n[/code:1r1tqu4u]\n\nIn any case, recordsets\' features differ from the familiar dbf behaviour.  There are other issues like handling Null values, variable length fields, etc. which always need extra coding on our part.\n\nIf we go for extensive use of ADO, it is worthwhile considering making a Wrapper class for RecordSet.  By experience I consider this as not only extremely useful but essential in the long run.','',0,'AIA=','1r1tqu4u',1,0,'',868,0,0),(47848,9883,6,396,0,'200.71.188.209',1202538808,1,0,1,1,1,1,'','','FUNCTION menorqcero(nVar) // VALIDA VALOR ENTRADO SEA MAYOR O IGUAL A CERO (0) - NO SEA NEGATIVO\n   IF nVar &lt; 0\n      MSGWAIT(\"Valor Invalido\", \"ATENCION\", 2)\n      RETURN .F.\n   ENDIF\nRETURN .T.','',0,'AIA=','nk62ri04',1,0,'',396,0,0),(47849,9865,6,9,0,'85.59.51.114',1202538827,1,0,1,1,1,1,'','','Yo lo estoy usando tambien en XP SP2','',0,'AIA=','huwe027n',1,0,'',9,0,0),(47850,9897,3,49,0,'213.82.134.66',1202549431,1,0,1,1,1,1,'','Xbrowse and Mdb','I try to open Mdb table with Xbrowse but it not run :\n\nfirst I open the table \n\n[code:3fff2rsj]\n  oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n    TRY\n        oRS&#58;Open&#40; &quot;SELECT * FROM Utenti&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=ecom&#46;mdb&quot;, 1, 3 &#41;\n    CATCH oErr\n        ? oErr&#58;Description\n        RETURN NIL\n    END TRY\n[/code:3fff2rsj]\n\nThen I create a Xbrowse table\n[code:3fff2rsj]\n\n  oApp&#40;&#41;&#58;oGrid &#58;= TXBrowse&#40;&#41;&#58;New&#40; oApp&#40;&#41;&#58;oDlg &#41;\n   oApp&#40;&#41;&#58;oGrid&#58;nTop    &#58;= 00\n   oApp&#40;&#41;&#58;oGrid&#58;nLeft   &#58;= nSplit+2\n   oApp&#40;&#41;&#58;oGrid&#58;nBottom &#58;=  &#58;&#58;nGridBottom\n   oApp&#40;&#41;&#58;oGrid&#58;nRight  &#58;=  &#58;&#58;nGridRight\n\n\n aBrowse   &#58;= &#123; &#123; &#123; || STR&#40; oRs&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value&#41; &#125;, i18n&#40;&quot;Codice&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Nome&quot; &#41;&#58;Value &#125;, i18n&#40;&quot;Nome&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Cognome&quot; &#41;&#58;Value&#125;, i18n&#40;&quot;Cognome&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Via&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Indirizzo&quot;&#41;, 150, 0 &#125; &#125;\n\n\n   FOR i &#58;= 1 TO Len&#40;aBrowse&#41;\n      oCol &#58;= oApp&#40;&#41;&#58;oGrid&#58;AddCol&#40;&#41;\n      oCol&#58;bStrData &#58;= aBrowse&#91; i, 1 &#93;\n      oCol&#58;cHeader  &#58;= aBrowse&#91; i, 2 &#93;\n      oCol&#58;nWidth   &#58;= aBrowse&#91; i, 3 &#93;\n      oCol&#58;nDataStrAlign &#58;= aBrowse&#91; i, 4 &#93;\n      oCol&#58;nHeadStrAlign &#58;= aBrowse&#91; i, 4 &#93;\n   NEXT\n\n   oApp&#40;&#41;&#58;oGrid&#58;SetRDD&#40;&#41;\n   oApp&#40;&#41;&#58;oGrid&#58;CreateFromCode&#40;&#41;\n\n[/code:3fff2rsj]\n\n\nit make error on this line \n\n\n[code:3fff2rsj]\noApp&#40;&#41;&#58;oGrid&#58;SetRDD&#40;&#41;\n[/code:3fff2rsj]\n\nwhy ?','',0,'AIA=','3fff2rsj',1,0,'',49,0,0),(47851,9897,3,868,0,'219.64.121.60',1202550990,1,0,1,1,1,1,'','','[code:5as8y5o6]\n\n// oApp&#40;&#41;&#58;oGrid&#58;SetRDD&#40;&#41;  \n\noApp&#40;&#41;&#58;oGrid&#58;SetADO&#40; oRs &#41;\n[/code:5as8y5o6]','',0,'AIA=','5as8y5o6',1,0,'',868,0,0),(47852,9897,3,49,0,'213.82.134.66',1202551252,1,0,1,1,1,1,'','','Now make another error \n[code:9sxu3oj9]\nApplication\n===========\n   Path and name&#58; C&#58;\\work\\prg\\Mwopen_W\\source\\FSDI2006&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,705,984 bytes\n   Time from start&#58; 0 hours 0 mins 4 secs \n   Error occurred at&#58; 11-02-2008, 11&#58;03&#58;18\n   Error description&#58; Error BASE/1003  Variable does not exist&#58; ORS\n\nStack Calls\n===========\n   Called from&#58; pcustomer&#46;prg =&gt; &#40;b&#41;CUSTOMER&#40;64&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBRWCOLUMN&#58;PAINTDATA&#40;0&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBROWSE&#58;PAINT&#40;0&#41;\n   Called from&#58; XBROWSE&#46;PRG =&gt; TXBROWSE&#58;DISPLAY&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TXBROWSE&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; main&#46;prg =&gt; TAPPLICATION&#58;ACTIVATE&#40;148&#41;\n   Called from&#58; main&#46;prg =&gt; MAIN&#40;36&#41;[/code:9sxu3oj9]','',0,'AIA=','9sxu3oj9',1,0,'',49,0,0),(47853,9897,3,49,0,'213.82.134.66',1202551512,1,0,1,1,1,1,'','','Sorry Now run I made a mistake ...','',0,'AIA=','b6xpltf4',1,0,'',49,0,0),(47854,9844,11,2,0,'87.218.146.222',1202551699,1,0,1,1,1,1,'','','You need to modify these lines in fmp.h:\n\n#ifdef _DEFINE_FMP_TYPES_\ntypedef unsigned long	DWORD;\n// typedef long 		LONG;\ntypedef unsigned short	WORD;\n// typedef unsigned char	BYTE;\n// typedef int		BOOL;\n\nNow it compiles fine','',0,'AIA=','wde5j1j3',1,0,'',2,0,0),(47855,9898,3,49,0,'213.82.134.66',1202555227,1,0,1,1,1,1,'','Another for MDB recorset','I must create two index ord on a table of a Mdb\n\nMdb : ecom\nTable : Utenti\n\nfirst = Id\nsecond = cognome\n\nHow I must make it ?','',0,'AIA=','3i2gqj39',1,0,'',49,0,0),(47856,9899,3,956,0,'189.22.134.133',1202556752,1,0,1,1,1,1,'','Sample ToolBar1 with error?','Testing the example [u:1g6k1m2x]samples\\toolbar1.prg[/u:1g6k1m2x] noticed that the combination of keys ALT + N doesn\'t execute the function, just set focus for the button. Is this right?    \n    \nSorry for English.','',0,'AQ==','1g6k1m2x',1,0,'',956,0,0),(47857,9898,3,868,0,'219.64.121.60',1202557181,1,0,1,1,1,1,'','','When we deal with RDMS, it is not necessary to create any index to read the table in a particular order.  Careful choice of indexes on very large table improves the performance of queries.  \n\nIf you want to read the columns in the order of Id the query should be \"SELECT ID, COGNOME FROM UTENTI ORDER BY ID\"  or if you want to read in the order or cognome, say ORDERY BY COGNOME.\n\nYou can even change the order after reading the recordset.\n\noRs:Sort := \'ID\' \nor \noRs:Sort := \'COGNOME\'\n\nFor all this it is not necessary to create indexes.','',0,'AQ==','3c6oz889',1,0,'',868,0,0),(47858,9898,3,49,0,'213.82.134.66',1202558014,1,0,1,1,1,1,'','','i WANTED TO  CREATE A TAB WITH TWO FOLDER\nON THE FIRST i MUST INSERT  \"id\" AND ON THE SECOND \"cOGNOME\"\n\nWHEN i CLICK ON FIRST TAB THE XBROWSE MUST CHANGE VISUALIZATION\n @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ;\n     OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;\n     ITEMS \' First \', \' Last \'\n     [b:2eoazn1a]ACTION ( nOrder := oApp():oTab:nOption  ,;\n              CU-&gt;(DbSetOrder(nOrder)),;\n              CU-&gt;(DbGoTop())         ,;[/b:2eoazn1a]              oApp():oGrid:Refresh(.t.)      ,;\n              RefreshCont(oCont, \"CU\") )   \n              IMAGES \"image1.bmp\",\"image2.bmp\"\n\nHOW i CAN MAKE IT?','',0,'QA==','2eoazn1a',1,0,'',49,0,0),(47859,9875,6,492,0,'189.147.68.169',1202558238,1,0,1,1,1,1,'','','Hola Victor\n\n\nMuchas gracias por el tip, tienes razon, ese post ya tiene rato.\n\nOk, hare mis pruebas.\n\nTe lo agradezco mucho.\n\n\n\nSaludos','',0,'QA==','k3lk238a',1,0,'',492,0,0),(47860,9898,3,868,0,'219.64.121.60',1202558950,1,0,1,1,1,1,'','','For RecordSets:\n\noRs:Sort := \"ID\"\n\nis equilvalent to ALIAS-&gt;(ORDSETFOCUS(\"ID\"))\n\nYou can change sort orders viewed by simply assigning the values to oRs:Sort\n\nExamples:\n\noRs:Sort := \"COLNAME\"\noBrw:Refresh()','',0,'QA==','1ogmgej4',1,0,'',868,0,0),(47861,9898,3,49,0,'213.82.134.66',1202559433,1,0,1,1,1,1,'','','ok but Ihave an variable \nnOrder := 1\n\nand then on tab  I  insert \n\n ACTION ( [b:3uxd3vmf]nOrder[/b:3uxd3vmf] := oApp():oTab:nOption  ,;\n              oRs:Sort := ([b:3uxd3vmf]nOrder[/b:3uxd3vmf]),;\n              oRs:MoveFirst())    \n\nit make error !!\n\n[code:3uxd3vmf]\n Path and name&#58; C&#58;\\work\\prg\\Mwopen_W\\source\\FSDI2006&#46;Exe &#40;32 bits&#41;\n   Size&#58; 1,709,568 bytes\n   Time from start&#58; 0 hours 0 mins 4 secs \n   Error occurred at&#58; 11-02-2008, 13&#58;21&#58;36\n   Error description&#58; Error ADODB&#46;Recordset/16389  E_FAIL&#58; _SORT\n   Args&#58;\n     &#91;   1&#93; = N   2\n\nStack Calls\n===========\n   Called from&#58; win32ole&#46;prg =&gt; TOLEAUTO&#58;_SORT&#40;0&#41;\n   Called from&#58; pcustomer&#46;prg =&gt; &#40;b&#41;CUSTOMER&#40;208&#41;\n   Called from&#58; TTabs&#46;prg =&gt; TTABS&#58;SETOPTION&#40;712&#41;\n   Called from&#58; TTabs&#46;prg =&gt; TTABS&#58;LBUTTONDOWN&#40;632&#41;\n   Called from&#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; CONTROL&#46;PRG =&gt; TTABS&#58;HANDLEEVENT&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Called from&#58;  =&gt; WINRUN&#40;0&#41;\n   Called from&#58; WINDOW&#46;PRG =&gt; TWINDOW&#58;ACTIVATE&#40;0&#41;\n   Called from&#58; main&#46;prg =&gt; TAPPLICATION&#58;ACTIVATE&#40;148&#41;\n   Called from&#58; main&#46;prg =&gt; MAIN&#40;36&#41;[/code:3uxd3vmf]\n\n\n\n\n\n\n\n\nI write this \n\n\n   @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ;\n     OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;\n     ITEMS \' First \', \' Last \' ;\n     ACTION ( nOrder := oApp():oTab:nOption  ,;\n              oRs:Sort := (nOrder),;\n              oRs:MoveFirst()         ,;\n              oApp():oGrid:Refresh(.t.)      ,;\n              RefreshCont(oCont,oRs)  )','',0,'QIA=','3uxd3vmf',1,0,'',49,0,0),(47862,9898,3,868,0,'219.64.121.60',1202560442,1,0,1,1,1,1,'','','You should assign column name or  names delimited by commas. Not Numeric Values.\n\nCORRECT :\noRs:Sort := \'ID\'   \noRs:Sort := \'COGNOME\'\n\nWRONG:\noRs:Sort := 1 or 2\n\nTry something like this:\n\n[code:2jgx799z]\n ACTION &#40; nOrder &#58;= oApp&#40;&#41;&#58;oTab&#58;nOption , oRs&#58;Sort &#58;= oRs&#58;Fields&#40;nOrder-1&#41;&#58;Name,  &#46;&#46;&#46;&#46;&#46; &#41;\n[/code:2jgx799z]','',0,'AIA=','2jgx799z',1,0,'',868,0,0),(47863,9898,3,49,0,'213.82.134.66',1202561979,1,0,1,1,1,1,'','','Now I made \n\n   @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ;\n     OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;\n     ITEMS \' First \', \' Last \' ;\n     ACTION ( nOrder := oApp():oTab:nOption  ,;\n              [b:2so0w4q1]oRs:Sort := oRs:Fields(nOrder-1):Name[/b:2so0w4q1],;\n              oRs:MoveFirst()         ,;\n              oApp():oGrid:Refresh(.t.)      ,;\n              RefreshCont(oCont,oRs)  )  \n\n\n\n\nApplication\n===========\n   Path and name: C:\\work\\prg\\Mwopen_W\\source\\FSDI2006.Exe (32 bits)\n   Size: 1,789,952 bytes\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 11-02-2008, 14:00:09\n   Error description: Error ADODB.Recordset/16389  E_FAIL: _SORT\n   Args:\n     [   1] = C   UserID\n\nStack Calls\n===========\n   Called from: win32ole.prg =&gt; TOLEAUTO:_SORT(0)\n   Called from: pcustomer.prg =&gt; (b)CUSTOMER(206)\n   Called from: TTabs.prg =&gt; TTABS:SETOPTION(712)\n   Called from: TTabs.prg =&gt; TTABS:LBUTTONDOWN(632)\n   Called from:  =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: CONTROL.PRG =&gt; TTABS:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: main.prg =&gt; TAPPLICATION:ACTIVATE(149)\n   Called from: main.prg =&gt; MAIN(37)\n\n\ni\'m afraid thart oRs:Sort  take only filed name and not field number \n\nany idea ?','',0,'QA==','2so0w4q1',1,0,'',49,0,0),(47864,9898,3,868,0,'219.64.121.60',1202562189,1,0,1,1,1,1,'','','&gt; \'m afraid thart oRs:Sort take only filed name and not field number \n\nYes. It takes only field name. but not field number.\n\nmake sure you assign the right field names to oRs:Sort','',0,'QA==','1umau646',1,0,'',868,0,0),(47865,9898,3,49,0,'213.82.134.66',1202562424,1,0,1,1,1,1,'','','I made this but not run \n\noRs:Sort :=iff( norder=1, oRs:Fields( \"ID\" ):Name,oRs:Fields( \"Cognome\" ):Name);','',0,'QA==','z0zhhhpd',1,0,'',49,0,0),(47866,9898,3,49,0,'213.82.134.66',1202562607,1,0,1,1,1,1,'','','and \n\n\n   @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ;\n     OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;\n     ITEMS \' First \', \' Last \' ;\n     ACTION ( nOrder := oApp():oTab:nOption  ,;\n              if( norder=1, oRs:Sort( \"ID\" ),oRs:Sort( \"Cognome\" )),;\n              oRs:MoveFirst()         ,;\n              oApp():oGrid:Refresh(.t.)      ,;\n              RefreshCont(oCont,oRs)  )  \n\nbut it not run !!','',0,'QA==','35dqlld7',1,0,'',49,0,0),(47867,9898,3,49,0,'213.82.134.66',1202562740,1,0,1,1,1,1,'','','I try also this but not run \n\n\n@ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ;\n     OPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ;\n     ITEMS \' First \', \' Last \' ;\n     ACTION ( nOrder := oApp():oTab:nOption  ,;\n              if( norder=1, oRs:Sort := \'ID\' ,oRs:Sort := \'COGNOME\' ),;\n              oRs:MoveFirst()         ,;\n              oApp():oGrid:Refresh(.t.)      ,;\n              RefreshCont(oCont,oRs)  )','',0,'QA==','24ybig6l',1,0,'',49,0,0),(47868,9898,3,868,0,'219.64.121.60',1202563582,1,0,1,1,1,1,'','','Please send to my personal email, zip of your mdb, if it is not confidential. I send back a simple working code, which you can incorporate.','',0,'QA==','2mi2l46d',1,0,'',868,0,0),(47869,9898,3,868,0,'219.64.121.60',1202565591,1,0,1,1,1,1,'','','&gt;  if( norder=1, oRs:Sort := \'ID\' ,oRs:Sort := \'COGNOME\' ),;\n\nThis should run ok.','',0,'QA==','jajip1ln',1,0,'',868,0,0),(47870,9900,6,1168,0,'84.121.87.247',1202566968,1,0,1,1,1,0,'','Genlabel - generacion de etiquetas -','Hola amigos,\n\nAlguien tiene actualizado para FWH el Genlabel de Bingen ?\nComo imprimis vosotros las etiquetas en vuestros programas ?\n\nSaludos','',0,'QA==','cfooy03v',1,0,'',1168,0,0),(47871,9900,6,2,0,'87.218.146.222',1202567776,1,0,1,1,1,1,'','','Antonio,\n\nFiveWin proporciona la clase TLabel. \n\nRevisa samples\\labels','',0,'QA==','4ndddzs2',1,0,'',2,0,0),(47872,9889,3,35,0,'65.188.6.143',1202568266,1,0,1,1,1,0,'','','For what it is worth .. I always check for oRs:eof and if there are no rows from your query .. ask to add or just bug out. \n\nIf you have an embedded listbox in your form .. you still should have to test for eof and wrap your \'skipper\' to keep from encountering a run-time error.\n\nRick Lipkin','',0,'QA==','3c1xpgun',1,0,'',35,0,0),(47873,9898,3,35,0,'65.188.6.143',1202568794,1,0,1,1,1,0,'','','question ... on a related note .. consider this query :\n\nSelect lname,fname from Customer order by lname\n...\n...\n\nlets say I want to re-order my existing recordset created by the above query .. are you saying I can oRs:Sort := \'fname\' to reorder ?? or do I need to re-create the query with order by fname ?\n\nRick Lipkin','',0,'QA==','3qe73dla',1,0,'',35,0,0),(47874,9879,3,335,0,'68.193.88.53',1202569313,1,0,1,1,1,0,'','','I use a set of the Tcbrowse, Tccolumn and Twbrowse classes developed by Luis Krause Mantilla that is more current than the versions upon which Manuel based his development of TSbrowse.  As an example of the evolution of the version of TCbrowse I\'m using over the standard one distributed with FWH, my TCbrowse.prg is 183,236 bytes as compared with the standard versions 48,374 bytes.  And what a difference is in those extra 134,862 bytes!\n\nAnother reason I chose to stick with Luis\' latest Tcbrowse, etc. version rather than switching to Tsbrowse was because I had made a lot of mods to it to enhance its handling of memo fields, field-by-field data encryption, the browsing of arrays to simulate sql\'s processing of groups of records at a time, use of splitter for synchronized display of browse and edit folders, and automatic generic display (via splitter) of browse and record edit.  I didn\'t want to have to redo all my TCbrowse mods in Tsbrowse. Too lazy I guess. I suppose I should have used subclassing to do this, which would have made the switchover easier. Que sera.\n\nOne important feature I haven\'t seen mentioned here is the ability to double click on a column header to change the index in use, thereby instantly reordering the browse.  Can you do that in Tsbrowse and XBrowse?\n\nWhy don\'t we make the continuing development of Tsbrowse a formal FWH open-source project combining the best of everything, continually available and continually updated?\n\n- Roger','',0,'QA==','qv505wcu',1,0,'',335,0,0),(47875,9898,3,868,0,'219.64.121.60',1202569394,1,0,1,1,1,1,'','','Mr Rick Liptin\n\n&gt;\nets say I want to re-order my existing recordset created by the above query .. are you saying I can oRs:Sort := \'fname\' to reorder ?? \n&gt;\n\nYes.\n\n&gt;\nor do I need to re-create the query with order by fname ? \n&gt;\nNo need at all. \n\nIf we do, that will increase response time and unnecessary burden on the server and also the network traffic.\n\nActually, it is a good idea not to request an ordered set from the server, but to do the sorting on the client.  When we request an ordered set, the sever has to do an additional work of sorting, creating temporary tables and so on.   We should place the least strain on the server and and the network bandwidth.','',0,'QA==','2xascygj',1,0,'',868,0,0),(47876,9879,3,868,0,'219.64.121.60',1202569651,1,0,1,1,1,1,'','','The convention with xBrowse is to assign column sorting to Left Click on Header.  Anyway we have great flexibility with xbrowse','',0,'QA==','13clcc1b',1,0,'',868,0,0),(47877,9898,3,35,0,'65.188.6.143',1202570171,1,0,1,1,1,0,'','','Outstanding .. I did not know you can re-sort a recordset .. many times I have a \'find\' routine that I need to re-order the same information ..  to do this I have used my origional order by query ( lname ) and if I needed to find a group of records matching a like % on fname ...I used the oRs:Filter .. but the filter is a bit clumsy and you have to release the filter\n\nThanks for the information .. \n\nRick Lipkin\n\nfyi .. I have not given up on oracle .. I have the oracle 11 disks and plan on trying to load the client in the near future to see if I can connect','',0,'QA==','3kob9i6y',1,0,'',35,0,0),(47878,9847,3,335,0,'68.193.88.53',1202570376,1,0,1,1,1,0,'','','Is this what you want?\n\n- Roger\n\n[img:1nv9nt9d]http&#58;//leadersoft&#46;com/files/browsedit&#46;jpg[/img:1nv9nt9d]','',0,'CA==','1nv9nt9d',1,0,'',335,0,0),(47879,9847,3,35,0,'65.188.6.143',1202570806,1,0,1,1,1,0,'','','Roger\n\nI like your database tool .. would you mind sharing the code ??  I would like to adapt it to ADO for Sql Server ..\n\nThanks,\n\nRick Lipkin\n<!-- e --><a href=\"mailto:lipkinrm29063@yahoo.com\">lipkinrm29063@yahoo.com</a><!-- e -->','',0,'CA==','ra7kaqoc',1,0,'',35,0,0),(47880,9898,3,868,0,'219.64.121.60',1202570891,1,0,1,1,1,1,'','','Mr Rick Liptin\n\nStill Find is very powerful. It is like our classical locate and locate next in xBase.  But we can as well use it in the place of Seek.\n\n&gt; but the filter is a bit clumsy and you have to release the filter \n\nYet, it is powerful. We can even set filter to an array of book marks. At times very handy and useful.  oRs:Filter := { bm1, bm2, ....} \n\nIf you find setting and releasing filters needs special attention, consider an alternative,  create a clone, set filter and then close it.\n\noRs2  := oRs:Clone()\noRs2:Filter := ................  \ndo something with oRs2\noRs2:Close\n\nThese are some ideas','',0,'CA==','29diiyu9',1,0,'',868,0,0),(47881,9879,3,171,0,'71.233.232.238',1202571939,1,0,1,1,1,0,'','','The impressive thing is that after 5 years of having stopped the tsbrowse development (16 bits clipper + fw), still it competes favorably with the current browses designed for 32 bits ([x]Harbour + FWH).\n\nManuel Mercado is working in the new Tsbrowse 8.0 for [x]Harbour.\n\nGeorge','',0,'','2f1yw2pn',1,0,'',171,0,0),(47882,9896,20,6,0,'87.21.239.201',1202572598,1,0,1,1,1,1,'','Re: acess con ado','C\'è un header in più (Indirizzo).\n\nEMG','',0,'','1lkdba55',1,0,'',6,0,0),(47883,9893,20,6,0,'87.21.239.201',1202572702,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1h5n3mnw]ho fatto una prova ma ....\n\n[1]:iLink32.Exe -Gn -aa -Tpe -s @test.bcl\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'InternetOpenA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'InternetCloseHandle\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'InternetConnectA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpGetFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpPutFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpDeleteFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpCreateDirectoryA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpRemoveDirectoryA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'FtpFindFirstFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ\nError: Unresolved external \'InternetFindNextFileA\' referenced from C:\\WORK\\ERRORI\\FTP\\OBJ\\TEST.OBJ[/quote:1h5n3mnw]\n\nDevi linkare wininet.lib.\n\nEMG','',0,'gA==','1h5n3mnw',1,0,'',6,0,0),(47884,9893,20,6,0,'87.21.239.201',1202572725,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:269b0rmw]hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \n\n\ncosa devo mettere al posto di Anystring ?[/quote:269b0rmw]\n\nPuoi tranquillamente lasciare Anystring.\n\nEMG','',0,'gA==','269b0rmw',1,0,'',6,0,0),(47885,9847,3,1257,0,'195.93.60.2',1202573894,1,0,1,1,1,1,'','DB-Tools as a public-project','Hello, from Germany\n\nI\'m planning a project, all users of the forum can join.\n\nThe Tools will have a practical-section, that means, \nto handle everything, what you need for database-administration.\nAs well, it is a sample, how all classes can work together :\nxBrowse, Office2007, Outlook2003\nIncluded, there will be a section, for tryouts of any problems. \nFor the moment, the tools are in German and English.\nFor other languages we need somebody for translation.\n\nThe actual release should be shown in the forum \nlike :  DBTools_2_8.zip ( like FWH )\nThe Topic must have a Descripton of changes in the new release.  \n\nThe Basics are nearly finished. I still have to do some cleanings\nand the English-Translation.\nWith the time, it could be the answer of many questions.\n\nRegards\nUwe König','',0,'gA==','2ny0pj4t',1,0,'',1257,0,0),(47886,9847,3,9,0,'85.59.76.22',1202574799,1,0,1,1,1,1,'','','It is a pleasure for me  if I can colaborate for spanish translation.\n\nRoger: Beatiful yours browse.','',0,'gA==','fdl2qcsd',1,0,'',9,0,0),(47887,9879,3,9,0,'85.59.76.22',1202575207,1,0,1,1,1,1,'','','[quote=&quot;Roger Seiler&quot;:36skkr7a]\nWhy don\'t we make the continuing development of Tsbrowse a formal FWH open-source project combining the best of everything, continually available and continually updated?[/quote:36skkr7a]\n\nI am agree with you.','',0,'gA==','36skkr7a',1,0,'',9,0,0),(47888,9847,3,51,0,'80.122.88.242',1202575614,1,0,1,1,1,0,'','','Thanks to NageswaraRao we have a working sample for \n\nSynchronization of row and redord browse with xBrowser\n\non \n\n<!-- m --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">http://www.fwcodesnips.com</a><!-- m -->\n\nRegards,\nOtto','',0,'gA==','3r5a7b5m',1,0,'',51,0,0),(47889,9901,3,104,0,'201.58.137.111',1202577777,1,0,1,1,1,0,'','Xbrowse - New method *SelColor*','Olá todos,\n\nSegue abaixo um exemplo de como mudar a cor/fonte do browse e das colunas:\n\n[code:36q05lfw]\n// Browsing arrays using TXBrowse and change colors and fonts\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;hbclass&#46;ch&quot;\n#include &quot;xbrowse&#46;ch&quot;\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, oBrw\n   local aSample &#58;= &#123; &#123; &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot; &#125; , ;\n                      &#123; &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot; &#125; , ;\n                      &#123; &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot; &#125; , ;\n                      &#123; &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot; &#125; , ;\n                      &#123; &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot; &#125; , ;\n                      &#123; &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot; &#125; , ;\n                      &#123; &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot;, &quot;Teste&quot; &#125; &#125;\n\n   override method SelFont  in   class  TXBrowse with MySelFont\n   extend   class  TXBrowse with method SelColor\n\n   DEFINE DIALOG oDlg FROM 2, 2 TO 20, 60 TITLE &quot;right click on the listbox&quot;\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n\n   oBrw&#58;SetArray&#40; aSample &#41;\n\n   oBrw&#58;nTop          &#58;= 0\n   oBrw&#58;nLeft         &#58;= 0\n   oBrw&#58;nBottom       &#58;= 100\n   oBrw&#58;nRight        &#58;= 200\n   oBrw&#58;lHScroll      &#58;= &#46;f&#46;\n   oBrw&#58;lVScroll      &#58;= &#46;f&#46;\n   oBrw&#58;nMarqueeStyle &#58;= MARQSTYLE_HIGHLROW\n\n   for n = 1 to 5\n       oBrw&#58;aCols&#91;n&#93;&#58;cHeader &#58;= &quot;Coluna &quot; + alltrim&#40;str&#40;n&#41;&#41;\n   next\n\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   oDlg&#58;oClient &#58;= oBrw\n\n   oBrw&#58;brclicked &#58;= &#123; |nRow, nCol| SHOWPOPUP&#40; oBrw, nRow, nCol &#41; &#125;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nstatic function SHOWPOPUP&#40; oBrw, nRow, nCol &#41;\n\nlocal oPopup, nColBrw &#58;= oBrw&#58;MouseColPos&#40; nCol &#41;\n\nmenu oPopup popup\n     menuitem &quot;&amp;Mudar cor       do Browse&quot; action oBrw&#58;SelColor&#40;,, &#46;t&#46; &#41;\n     menuitem &quot;&amp;Mudar Fonte     do Browse&quot; action oBrw&#58;SelFont&#40; , &#46;f&#46; &#41;\n     menuitem &quot;&amp;Mudar cor/fonte do Browse&quot; action oBrw&#58;SelFont&#40; , &#46;t&#46; &#41;\n     separator\n     menuitem &quot;&amp;Mudar cor       da Coluna&quot; action oBrw&#58;SelColor&#40; nColbrw,, &#46;t&#46; &#41;\n     menuitem &quot;&amp;Mudar Fonte     da Coluna&quot; action oBrw&#58;SelFont&#40; nColbrw, &#46;f&#46; &#41;\n     menuitem &quot;&amp;Mudar cor/fonte da Coluna&quot; action oBrw&#58;SelFont&#40; nColbrw, &#46;t&#46; &#41;\n     separator\n     menuitem &quot;&amp;Retornar&quot;  action oPopup&#58;End&#40;&#41;\nendmenu\n\nactivate popup oPopup at nRow, nCol of oBrw\n\nreturn NIL\n\n//----------------------------------------------------------------------------//\n\nstatic function MySelFont&#40; nSelCol, lColor &#41;\n\nlocal Self &#58;= HB_QSelf&#40;&#41;\n\nlocal oFont, n, nForeColor\n\nDEFAULT nSelCol &#58;= 0, lColor &#58;= &#46;F&#46;\n\n**define font oFont from USER \n\nif nSelCol = 0 \n   nForeColor &#58;= &#58;&#58;nClrText\n   oFont      &#58;= &#58;&#58;oFont&#58;choose&#40; @nForeColor &#41;\n   &#58;&#58;nClrText &#58;= nForeColor\n   &#58;&#58;oFont    &#58;= oFont\n   if oFont&#58;cFaceName != &quot;SYSTEM_FONT&quot; \n      for n = 1 to Len&#40; &#58;&#58;aCols &#41; \n          &#58;&#58;aCols&#91; n &#93;&#58;oDataFont &#58;= oFont \n      next \n   endif \n   if lColor\n      &#58;&#58;SelColor&#40; , nForeColor, &#46;F&#46; &#41;\n   endif\nelse \n   nForeColor                 &#58;= Eval&#40;&#58;&#58;aCols&#91;nSelCol&#93;&#58;bClrStd&#41;&#91;1&#93;\n   oFont                      &#58;= &#58;&#58;aCols&#91;nSelCol&#93;&#58;oDataFont&#58;choose&#40; @nForeColor &#41;\n   &#58;&#58;aCols&#91;nSelCol&#93;&#58;oDataFont &#58;= oFont \n   if lColor\n      &#58;&#58;SelColor&#40; nSelCol, nForeColor, &#46;F&#46; &#41;\n   endif\nendif \n\n*&#58;&#58;Refresh&#40;&#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nstatic function SelColor&#40; nSelCol, nColorFore, lRefresh &#41;\n\nlocal Self &#58;= HB_QSelf&#40;&#41;\n\nlocal nColorBack, n\n\nDEFAULT nSelCol &#58;= 0, lRefresh &#58;= &#46;T&#46;\n\nnColorBack &#58;= choosecolor&#40; iif&#40; nSelCol = 0, &#58;&#58;nClrPane, Eval&#40;&#58;&#58;aCols&#91;nSelCol&#93;&#58;bClrStd&#41;&#91;2&#93; &#41; &#41;\n\nif nSelCol = 0 \n   &#58;&#58;nClrPane &#58;= nColorBack\n   for n = 1 to Len&#40; &#58;&#58;aCols &#41; \n       nColorFore         &#58;= iif&#40; nColorFore = NIL, Eval&#40;&#58;&#58;aCols&#91; n &#93;&#58;bClrStd&#41;&#91;1&#93;, nColorFore &#41;\n       &#58;&#58;aCols&#91;n&#93;&#58;bClrStd &#58;= &amp;&#40; &quot;&#123; || &#123; &quot; + str&#40;nColorFore&#41; + &quot;, &quot; + str&#40;nColorBack&#41; + &quot; &#125; &#125;&quot; &#41;\n   next \nelse \n   nColorFore &#58;= iif&#40; nColorFore = NIL, Eval&#40;&#58;&#58;aCols&#91;nSelCol&#93;&#58;bClrStd&#41;&#91;1&#93;, nColorFore &#41;\n   &#58;&#58;aCols&#91;nSelCol&#93;&#58;bClrStd &#58;= &amp;&#40; &quot;&#123; || &#123; &quot; + str&#40;nColorFore&#41; + &quot;, &quot; + str&#40;nColorBack&#41; + &quot; &#125; &#125;&quot; &#41;\nendif \n\nif lRefresh\n   &#58;&#58;Refresh&#40;&#41; \nendif\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n[/code:36q05lfw]\n\n\nAntonio,\n\nEu encontrei um problema na classe ´TFont´no método choose(). Para você simular o problema no exemplo acima faça o seguinte:\n\n1º) Mude a fonte do browse\n2º) Mude a fonte de uma coluna qualquer, aí a fonte do browse é toda mudada também, porque ???\n\nPeço a todos interessados que testem e me reporte possíveis erros ok ?\n\nObrigado,\n\nRossine.','',0,'AIA=','36q05lfw',1,0,'',104,0,0),(47890,9901,3,104,0,'201.58.137.111',1202578007,1,0,1,1,1,0,'','','Antonio,\n\nAproveitando o tópico, seria interessante incluir o processamento da tecla \"VK_TAB\" para se focar o próximo/anterior objeto dentro da xbrowse. Segue código:\n\n[code:30jcuwes]\n\nMETHOD KeyChar&#40; nKey, nFlags &#41; CLASS TXBrowse\n\n&#46;&#46;&#46;\n\n      case nKey == VK_TAB &#46;and&#46; GetKeyState&#40; VK_SHIFT &#41;\n\n           &#58;&#58;oWnd&#58;GoPrevCtrl&#40; &#58;&#58;hWnd &#41;\n\n      case nKey == VK_TAB\n\n           &#58;&#58;oWnd&#58;GoNextCtrl&#40; &#58;&#58;hWnd &#41;\n\n      case nKey == VK_RETURN\n&#46;&#46;&#46;\n\n[/code:30jcuwes]\n\nSaludos,\n\nRossine.','',0,'AIA=','30jcuwes',1,0,'',104,0,0),(47891,9893,20,49,0,'72.14.220.136',1202578022,1,0,1,1,1,1,'','','where i can...scusami dove trovo la wininet.lib ?','',0,'AIA=','1ek0tbhz',1,0,'',49,0,0),(47892,9889,3,53,0,'189.139.11.94',1202578158,1,0,1,1,1,1,'','','Mr. nageswaragunupudi  (It\'s a long name  <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->)\n\nThanks to you for sample, I\'ll try.\n\nMr. Rick.\n\nThanks so much for your explanation.\n\nWith best regards','',0,'AIA=','10k41j3u',1,0,'',53,0,0),(47893,9893,20,6,0,'87.21.239.201',1202578332,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1fajfgbh]where i can...scusami dove trovo la wininet.lib ?[/quote:1fajfgbh]\n\nE\' una delle librerie di BCC.\n\nEMG','',0,'gA==','1fajfgbh',1,0,'',6,0,0),(47894,9893,20,49,0,'62.13.172.68',1202578620,1,0,1,1,1,1,'','','thanks\noops \ngrazie','',0,'gA==','3gim3zhy',1,0,'',49,0,0),(47895,9893,20,49,0,'62.13.172.68',1202578749,1,0,1,1,1,1,'','','adesso mi si compile e quando gira mi viene un alert con il valore .f.\nche cosa vuol dire ?','',0,'gA==','h1fqosvm',1,0,'',49,0,0),(47896,9713,3,148,0,'82.201.207.170',1202578815,1,0,1,1,1,0,'','','No I did not . please forward your reply to <!-- e --><a href=\"mailto:ehab_aziz2001@yahoo.com\">ehab_aziz2001@yahoo.com</a><!-- e --> or renme the batch files into any extension . It may be lost becuase of not delivering executable files (gmail restrictions)','',0,'gA==','1p53rhaz',1,0,'',148,0,0),(47897,9893,20,49,0,'62.13.172.68',1202578866,1,0,1,1,1,1,'','','io ho fatto in questo modo :\n\nFUNCTION MAIN()\n\n    LOCAL hInternet, hConnect \n\n    hInternet = INTERNETOPEN( \"Anystring\", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \n\n    hConnect = INTERNETCONNECT( hInternet, \"ftp.bpascal.it\", INTERNET_INVALID_PORT_NUMBER, \"130603@aruba.it\", \"mypass\", INTERNET_SERVICE_FTP, 0, 0 ) \n\n    ? FTPGETFILE( hConnect, \"/bpascal.it./mdb-database/ecom.mdb\", \"ecom.mdb\", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 ) \n\n//    ? FTPPUTFILE( hConnect, \"atest.prg\", \"/emagsoftware.it/test/atest.prg\", 0, 0 ) \n\n    INTERNETCLOSEHANDLE( hConnect ) \n\n    INTERNETCLOSEHANDLE( hInternet ) \n\n    RETURN NIL \n\n\nin mypass c\'è la mia password che uso in ftp...','',0,'gA==','2qitzqkr',1,0,'',49,0,0),(47898,9893,20,49,0,'62.13.172.68',1202580768,1,0,1,1,1,1,'','','ho controllato \n\nposso entrare con explorer in ftp\ne il file che mi serve di scaricare è \n\n<!-- m --><a class=\"postlink\" href=\"ftp://ftp.bpascal.it/bpascal.it/mdb-database/ecom.mdb\">ftp://ftp.bpascal.it/bpascal.it/mdb-database/ecom.mdb</a><!-- m -->\n\nperchè non va con fwh ?','',0,'gA==','vhqd365l',1,0,'',49,0,0),(47899,9902,3,49,0,'62.13.172.68',1202581418,1,0,1,1,1,1,'','ftp and tprogress','Please have you  a sample to download a file from a website with progress bar ?\n\n\nthanks','',0,'gA==','2btg71uk',1,0,'',49,0,0),(47900,9893,20,6,0,'87.21.239.201',1202581831,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:3q4v2uaj]adesso mi si compile e quando gira mi viene un alert con il valore .f.\nche cosa vuol dire ?[/quote:3q4v2uaj]\n\nVuol dire che non riesce a scaricare il file. Controlla bene tutti i parametri. Ti assicuro che il sistema funziona perfettamente.\n\nEMG','',0,'gA==','3q4v2uaj',1,0,'',6,0,0),(47901,9893,20,6,0,'87.21.239.201',1202581891,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:1hh8b0c5]    ? FTPGETFILE( hConnect, \"/bpascal.it./mdb-database/ecom.mdb\", \"ecom.mdb\", 0, FILE_ATTRIBUTE_ARCHIVE, 0, 0 )[/quote:1hh8b0c5]\n\nC\'è un punto dopo it. Devi stare più attento.\n\nEMG','',0,'gA==','1hh8b0c5',1,0,'',6,0,0),(47902,9893,20,6,0,'87.21.239.201',1202581941,1,0,1,1,1,1,'','','Inoltre la cartella mdb-database non ha il permesso di scaricamento.\n\nEMG','',0,'gA==','2a27fn62',1,0,'',6,0,0),(47903,9893,20,49,0,'62.13.172.68',1202582507,1,0,1,1,1,1,'','','si ti ho scritto in privato per avvertirti che ho risolto almeno in parte\n\nadesso posso scaricare il file ma vorrei avere una dialog con un abarra Progress con lo stato di avanzamento dello scaricamento perchè quando lo mando in esecuzione c\'è un momento che non so se sta scaricando oppure no poi quando controllo nella cartella vedo il file ecom.mdb di 500 kb scaricato \n\nho provato a prendere in esame l\'esempietto nella cartella gallery fi fwh ma non sono riuscito a mettere su un test che funzioni.','',0,'gA==','167lcfll',1,0,'',49,0,0),(47904,9903,6,9,0,'85.59.76.22',1202584078,1,0,1,1,1,1,'','xBrowse y WorkShop','Estoy probando cambiar en una aplicación un wBrowse por xBrowse, creado desde Resource. Me da error al abrir el diálogo. En WorkShop, puedo elegir entre Twbrowse y TcBrowse.- ¿Necesito un nuevo control para usar WorkShop y xBrowse?.- Aunque sé que Pelles es mejor, prefiero continuar con WS.','',0,'gA==','17i8l2cq',1,0,'',9,0,0),(47905,9847,3,335,0,'68.193.88.53',1202589378,1,0,1,1,1,0,'','','Hi Rick,\n\nYes, glad to share my code for synchronizing a browse with a record-edit. Just click below to download a zip file with my stuff.\n\n<!-- m --><a class=\"postlink\" href=\"http://www.leadersoft.com/files/browedit.zip\">http://www.leadersoft.com/files/browedit.zip</a><!-- m -->\n\nAnd here is another screenshot with another version where I\'ve synched a browse with folders in a companion record-edit dialog...\n\n[img:bjzabt1y]http&#58;//www&#46;leadersoft&#46;com/files/browsed3&#46;jpg[/img:bjzabt1y]\n\nThis example is from our election campaign management software, and anyone selected from the browse of registered voters on the left gets their record data displayed in tabs on the right. One can edit data on either the browse or the tabs, and updates are synchronized between the displays. Also one can doubleclick on the column heading to change the index and reorder the browse display. Note the buttons in the lower middle whereby cell editing of a field in any column can be be set to exit either down or right.  In this case, the \"List\" button displays another dialog for demographically selecting voters\' names for mailing, \"walking\" and phoning lists, etc.\n\n- Roger','',0,'CA==','bjzabt1y',1,0,'',335,0,0),(47906,9904,3,49,0,'62.13.172.68',1202589799,1,0,1,1,1,1,'','button ...help','I must put an button on button bar  but I must move this button at the left of the buttonbar as help\n\nbut the command\n\n DEFINE BUTTON OF ::oBar ... HELP \n\n\n NOT RUN !!!!\n\n\nany idea?','',0,'CA==','9sjt3vbc',1,0,'',49,0,0),(47907,9903,6,53,0,'189.139.15.188',1202590835,1,0,1,1,1,1,'','','Manuel:\n\nDebes usar TXbrowse como nombre del control en lugar de TWBrowse.\n\nSaludos','',0,'CA==','2k9vx1x1',1,0,'',53,0,0),(47908,9904,3,1255,0,'201.122.38.237',1202591126,1,0,1,1,1,0,'','Re: button ...help','[quote=&quot;Silvio&quot;:26duj9cc]I must put an button on button bar  but I must move this button at the left of the buttonbar as help[/quote:26duj9cc]Hi Silvio:\nIf what you want is to place a button at anyplace on a buttonbar, I thing you should better use:\n[code:26duj9cc]@y,x BTNBMP oBtn OF oBar &#46;&#46;&#46;&#46;[/code:26duj9cc]\nRegards.\n\nManuel Mercado','',0,'gIA=','26duj9cc',1,0,'',1255,0,0),(47909,9879,3,34,0,'68.5.217.82',1202592123,1,0,1,1,1,1,'','TSBrowse','I suggested that about two months ago when I started using TSBrowse.  James Bott has fixed some issues in an older version and several people have indicated they modified it to correct problems they found, but the work was never pooled together.\n\nTSBrowse is a very easy one to use and it is very powerful.  I have changed all of my lists to use it.  I do have a couple of lingering problems with the version I have.  Most importantly is focus.  Here are two things that would be nice:\n\n1)  Sometimes when saving a record after editing, I find the first record overwrites the header until I scroll the browse, and then all falls into place.\n\n2)  When appending a record to a database, I have to manually reset the browse to match the database.\n\n3)  When adding a record, the new record appears at the top of the browse putting all previous content above it ( hidden ).  It would be nice if an append would still keep at least some of the preceeding items in the listbox.\n\nI am using this in a way that is apparently different from others.  I have the browse in the lower half of the dialog, and all the edit fields in the upper half.  My clients do not like popups.  Thus, when I scroll the browse, the edit boxes refresh with the data from the highlighted record and the client can edit and save as desired.\n\nTim','',0,'gIA=','tixmkqw6',1,0,'',34,0,0),(47910,9903,6,9,0,'85.59.76.22',1202592395,1,0,1,1,1,1,'','','Armando,\n\nMuchas gracias. Ya está solucionado con tu ayuda.','',0,'gIA=','2czi6kcz',1,0,'',9,0,0),(47911,9847,3,34,0,'68.5.217.82',1202592574,1,0,1,1,1,1,'','Examples','Here is the way I handle it in a regular program ...\n\n[img:3s3qwknm]http&#58;//www&#46;masterlinksoftware&#46;com/Files/InvEx&#46;jpg[/img:3s3qwknm]\n\nTim','',0,'CA==','3s3qwknm',1,0,'',34,0,0),(47912,9905,3,49,0,'62.13.172.68',1202593491,1,0,1,1,1,1,'','SAMPLE OF A TREEVIEW WITH MDB','TO OPEN A FILE i MADE :\n\n         oRs = CREATEOBJECT( \"ADODB.Recordset\" )\n    TRY\n       oRS:Open( \"SELECT * FROM CATEGORIE ORDER BY SCATEGORIE\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ecom.mdb\", 1, 3 )\n\n             CATCH oErr\n        ? oErr:Description\n        RETURN NIL\n    END TRY\n\n\nNOW i MUST CREATE A LISTBOX TREEVIEW  WITH  THIS MAP\n\n      sCATEGORIE\n           -----&gt;   CATEGORIE \n           -----&gt; CATEGORIE\n      sCATEGORIE\n           -----&gt;   CATEGORIE \n\nHAVE YOU ANY SAMPLE ?','',0,'CA==','2jatej7j',1,0,'',49,0,0),(47913,9902,3,6,0,'87.21.239.201',1202593630,1,0,1,1,1,1,'','Re: ftp and tprogress','Here it is:\n\n[code:19cu0lz9]#include &quot;Fivewin&#46;ch&quot;\n\n\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\n//\n// file access types\n//\n\n#define GENERIC_READ  2147483648\n#define GENERIC_WRITE 1073741824\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oPrg\n\n    DEFINE DIALOG oDlg\n\n    @ 2, 2 PROGRESS oPrg;\n           SIZE 100, 15\n\n    @ 3, 2 BUTTON &quot;FTP download&quot;;\n           ACTION DOWNLOAD&#40; oPrg &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DOWNLOAD&#40; oPrg &#41;\n\n    LOCAL hInternet, hConnect, hSource, hDest, nRead\n\n    LOCAL cData &#58;= SPACE&#40; 1024 &#41;\n\n    LOCAL nPos &#58;= 0\n\n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INTERNETCONNECT&#40; hInternet, &quot;myftpaddress&quot;, INTERNET_INVALID_PORT_NUMBER, &quot;myuserid&quot;, &quot;mypassword&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n    hSource = FTPOPENFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, GENERIC_READ, 0, 0 &#41;\n\n    oPrg&#58;SetPos&#40; 0 &#41;\n\n    oPrg&#58;SetRange&#40; 0, FTPGETFILESIZE&#40; hSource &#41; &#41;\n\n    hDest = FCREATE&#40; &quot;emag&#46;mdb&quot; &#41;\n\n    WHILE &#46;T&#46;\n        nRead = INTERNETREADFILE&#40; hSource, @cData &#41;\n\n        IF nRead = -1\n            ? &quot;Download error&quot;\n            EXIT\n        ENDIF\n\n        IF nRead = 0\n            ? &quot;Download OK&quot;\n            EXIT\n        ENDIF\n\n        FWRITE&#40; hDest, cData, nRead &#41;\n\n        nPos += LEN&#40; cData &#41;\n\n        oPrg&#58;SetPos&#40; nPos &#41;\n    ENDDO\n\n    FCLOSE&#40; hDest &#41;\n\n    INTERNETCLOSEHANDLE&#40; hSource &#41;\n\n    INTERNETCLOSEHANDLE&#40; hConnect &#41;\n\n    INTERNETCLOSEHANDLE&#40; hInternet &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; INTERNETOPEN &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetOpen&#40; hb_parc&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41;\n&#123;\n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCONNECT &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parc&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPOPENFILE &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; FtpOpenFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPGETFILESIZE &#41;\n&#123;\n    DWORD nFileSizeHigh;\n\n    hb_retnl&#40; &#40; LONG &#41; FtpGetFileSize&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, &amp;nFileSizeHigh &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETREADFILE &#41;\n&#123;\n    DWORD nBytesRead;\n\n    BOOL lSuccess = InternetReadFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parclen&#40; 2 &#41;, &amp;nBytesRead &#41;;\n\n    if &#40; !lSuccess &#41;\n        hb_retnl&#40; -1 &#41;;\n    else\n        hb_retnl&#40; nBytesRead &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:19cu0lz9]\n\nEMG','',0,'AIA=','19cu0lz9',1,0,'',6,0,0),(47914,9902,3,49,0,'62.13.172.68',1202602771,1,0,1,1,1,1,'','','thank I try it now','',0,'AIA=','mfaf1x32',1,0,'',49,0,0),(47915,9902,3,49,0,'62.13.172.68',1202603034,1,0,1,1,1,1,'','','thank it run ok','',0,'AIA=','vtz83jl8',1,0,'',49,0,0),(47916,9902,3,49,0,'62.13.172.68',1202603245,1,0,1,1,1,1,'','','and for upload the same file  on website ?','',0,'AIA=','2esam4i9',1,0,'',49,0,0),(47917,9902,3,51,0,'80.122.88.242',1202603343,1,0,1,1,1,0,'','','Enrico, is your code only for xharbour?\nRegards,\nOtto','',0,'AIA=','2u9iwiu1',1,0,'',51,0,0),(47918,9713,3,303,0,'72.220.181.80',1202603949,1,0,1,1,1,0,'','','Ehab,\n\nI resent the mail to your Yahoo account. The attachment is a zip containing two PRGs.\n\nJames','',0,'AIA=','4g03j1g7',1,0,'',303,0,0),(47919,9879,3,303,0,'72.220.181.80',1202604703,1,0,1,1,1,0,'','','Tim,\n\n&gt;I suggested that about two months ago when I started using TSBrowse. James Bott has fixed some issues in an older version and several people have indicated they modified it to correct problems they found, but the work was never pooled together. \n\nI think I added most of the changes that I have heard about except for a few that I thought were not generic enough for common use.\n\n&gt;1) Sometimes when saving a record after editing, I find the first record &gt;overwrites the header until I scroll the browse, and then all falls into &gt;place.\n\nI have never seen this. Is it repeatable? If so, can you send me a small example?\n\n&gt;2) When appending a record to a database, I have to manually reset &gt;the browse to match the database.\n\nWhat do you mean by \"manually reset?\" bLogicLen should be updated automatically. Perhaps this is an ADS issue? I remember something about having to use something other than OrdKeyCount() for bLogicLen with ADS.\n\n&gt;3) When adding a record, the new record appears at the top of the &gt;browse putting all previous content above it ( hidden ). It would be nice &gt;if an append would still keep at least some of the preceeding items in &gt;the listbox.\n\nSome may like it this way. If you don\'t, just do a oBrw:skip(-5) or whatever after the append. If you want the appended record to show as the last record in the display try oBrw:skip( - oBrw:nRowCount() ).\n\nRegards,\nJames','',0,'AIA=','3vzz7hsu',1,0,'',303,0,0),(47920,9898,3,303,0,'72.220.181.80',1202605936,1,0,1,1,1,0,'','','NageswaraRao,\n\nCan you sort recordsets on more complex information like concantated multiple fields? How about descending?\n\nJames','',0,'AIA=','38bgjdx4',1,0,'',303,0,0),(47921,9898,3,868,0,'219.64.121.60',1202607376,1,0,1,1,1,1,'','','Mr James\n\nYes\n\noRs:Sort := \"FIRST , CITY DESC\"   \nASC is assumed if not specified.\n\nalso we can sort on multiple fields of char, number, dates etc.','',0,'AIA=','1qdtd2rx',1,0,'',868,0,0),(47922,9905,3,868,0,'219.64.121.60',1202611421,1,0,1,1,1,1,'','','Mr Silvio\n\nThere are several ways. I shall post two alternatives. Pl give me some time','',0,'AIA=','3gc5i9ml',1,0,'',868,0,0),(47923,9906,6,72,0,'201.137.102.104',1202625247,1,0,1,1,1,0,'','Un sueño?!','En verdad, me siguen sorprendiendo los alcances que pueden obtenerse con FiveWin.\n \nMe he preocupado por tener un producto robusto, funcional y competitivo desarrollado en xBase, hoy me parece haberlo logrado.\n \nY me complace participar que el mismo código trabaja DBFs, y/o tablas en MySQL, MS SQL Server, PostgreSQL, etc... prácticamente con solo establecer la conexión!\n \nMás de cien PRGs y solo tuve que modificar el programa principal (no mas de diez líneas) y hacer una rutina para conversión de tablas. \n \nTenemos FiveWin para rato, larga vida a FiveWin!','',0,'AIA=','1jsvd1i1',1,0,'',72,0,0),(47925,9905,3,6,0,'87.16.223.88',1202631648,1,0,1,1,1,1,'','Re: SAMPLE OF A TREEVIEW WITH MDB','[quote=&quot;Silvio&quot;:2crybahe]TO OPEN A FILE i MADE :\n\n         oRs = CREATEOBJECT( \"ADODB.Recordset\" )\n    TRY\n       oRS:Open( \"SELECT * FROM CATEGORIE ORDER BY SCATEGORIE\", \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ecom.mdb\", 1, 3 )\n\n             CATCH oErr\n        ? oErr:Description\n        RETURN NIL\n    END TRY\n\n\nNOW i MUST CREATE A LISTBOX TREEVIEW  WITH  THIS MAP\n\n      sCATEGORIE\n           -----&gt;   CATEGORIE \n           -----&gt; CATEGORIE\n      sCATEGORIE\n           -----&gt;   CATEGORIE \n\nHAVE YOU ANY SAMPLE ?[/quote:2crybahe]\n\nYou can use TTreeView class.\n\nEMG','',0,'gA==','2crybahe',1,0,'',6,0,0),(47926,9898,3,6,0,'87.16.223.88',1202631738,1,0,1,1,1,1,'','','I\'m afrad that Sort() method works only with MDB. As an example, it doesn\'t work with MSDE.\n\nEMG','',0,'gA==','1wqzrqcq',1,0,'',6,0,0),(47927,9902,3,6,0,'87.16.223.88',1202632008,1,0,1,1,1,1,'','','You have to use InternetWriteFile() instead of InternetReadFile(). Study my sample and improve it accordingly.\n\nEMG','',0,'gA==','3vekq5zv',1,0,'',6,0,0),(47928,9902,3,6,0,'87.16.223.88',1202632035,1,0,1,1,1,1,'','','No, it should work with Harbour too.\n\nEMG','',0,'gA==','34m7pgk2',1,0,'',6,0,0),(47929,9902,3,51,0,'80.122.88.242',1202634040,1,0,1,1,1,0,'','','Hello Enrico,\nthis is what I get with Harbour.\nRegards,\nOtto\n\nError: Unresolved external \'InternetOpenA\' referenced from C:\\FWH\\SAMPLES\\TESTFT\nP.OBJ\nError: Unresolved external \'InternetCloseHandle\' referenced from C:\\FWH\\SAMPLES\\\nTESTFTP.OBJ\nError: Unresolved external \'InternetConnectA\' referenced from C:\\FWH\\SAMPLES\\TES\nTFTP.OBJ\nError: Unresolved external \'FtpOpenFileA\' referenced from C:\\FWH\\SAMPLES\\TESTFTP\n.OBJ\nError: Unresolved external \'FtpGetFileSize\' referenced from C:\\FWH\\SAMPLES\\TESTF\nTP.OBJ\nError: Unresolved external \'InternetReadFile\' referenced from C:\\FWH\\SAMPLES\\TES\nTFTP.OBJ\nDrücken Sie eine beliebige Taste . . .','',0,'gA==','1oosrz8z',1,0,'',51,0,0),(47930,9898,3,868,0,'123.236.133.62',1202635026,1,0,1,1,1,1,'','','Sort works with MDB, Oracle, MSSQL Server.\n\nActually it is an internal feature of ADO and has nothing to do with the data provider, because the  ADO engine sorts the recordset within memory totally on the client. The server does not come into picture at all. It even works with synthetic recordsets totally built on the client. It is something analogous to sorting an array after we read data into an array in the memory of our PC.\n \nKindly recheck.\n\nI use the syntax oRs:Sort = &lt;expression&gt;.  I do not know if oRs:Sort( &lt;exp&gt; ) works. Does it work this way also ?','',0,'gA==','y8glzjdv',1,0,'',868,0,0),(47931,9905,3,868,0,'123.236.133.62',1202635257,1,0,1,1,1,1,'','','Mr Silvio\n\nI sent a small sample to your personal email. Yes it uses TTreeView also as one of the alternatives.\n\nIncidentally there is another way of reading parent - child relationships, which is called DataShaping. I did not include this, because it is more advanced and complex','',0,'gA==','pffth8v1',1,0,'',868,0,0),(47932,9898,3,868,0,'123.236.133.62',1202635483,1,0,1,1,1,1,'','','Mr Enrico\n\n[quote=&quot;Enrico Maria Giordano&quot;:3ojfphdw]I\'m afrad that Sort() method works only with MDB. As an example, it doesn\'t work with MSDE.\n\nEMG[/quote:3ojfphdw]\n\nI have not worked with MSDE. May I know how is your experience with the product? Do you think we can do development work with this before we test on real servers ? \n\nThanks in advance.','',0,'gA==','3ojfphdw',1,0,'',868,0,0),(47933,9898,3,6,0,'79.19.233.100',1202636156,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:2tuvhja2]I have not worked with MSDE. May I know how is your experience with the product? Do you think we can do development work with this before we test on real servers ? \n\nThanks in advance.[/quote:2tuvhja2]\n\nI have MSDE installed and Sort() method doesn\'t seem to work. So I think it doesn\'t work with MS SQL Server either. I don\'t know about MySQL and other engines but yes, I\'d test real servers before using Sort() method estensively.\n\nEMG','',0,'gA==','2tuvhja2',1,0,'',6,0,0),(47934,9898,3,6,0,'79.19.233.100',1202636348,1,0,1,1,1,1,'','','This is the sample I tried:\n\n[code:1eazt2yk]#define adOpenForwardOnly 0\n#define adOpenKeyset      1\n#define adOpenDynamic     2\n#define adOpenStatic      3\n\n#define adLockReadOnly        1\n#define adLockPessimistic     2\n#define adLockOptimistic      3\n#define adLockBatchOptimistic 4\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oRs\n\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRs&#58;Open&#40; &quot;SELECT * FROM T_Utenti ORDER BY Utente&quot;, &quot;Provider=SQLOLEDB;Integrated Security=SSPI;Data Source=EMAG\\Emag;Initial Catalog=Quadro&quot;, adOpenForwardOnly, adLockReadOnly &#41;\n\n    oRs&#58;Sort = &quot;Passw&quot;\n\n    WHILE !oRs&#58;EOF\n        ? oRs&#58;Fields&#40; &quot;Utente&quot; &#41;&#58;Value, oRs&#58;Fields&#40; &quot;Passw&quot; &#41;&#58;Value\n        oRs&#58;MoveNext&#40;&#41;\n    ENDDO\n\n    oRs&#58;Close&#40;&#41;\n\n    INKEY&#40; 0 &#41;\n\n    RETURN NIL[/code:1eazt2yk]\n\nAnd this is the error I get:\n\n[code:1eazt2yk]Error ADODB&#46;Recordset/6  DISP_E_UNKNOWNNAME&#58; _SORT Arguments&#58; &#40; &#91; 1&#93; = Type&#58; C Val&#58; Passw&#41;[/code:1eazt2yk]\n\nDo you see any problems in my sample that can explain the error?\n\nEMG','',0,'AIA=','1eazt2yk',1,0,'',6,0,0),(47935,9898,3,6,0,'79.19.233.100',1202636500,1,0,1,1,1,1,'','','Found! I have to use\n\n[code:1kwob13q]oRs&#58;CursorLocation = adUseClient[/code:1kwob13q]\n\nIt is perfectly logical. But still I don\'t know if it is a good idea to use a technique that forces client cursor usage.\n\nEMG','',0,'AIA=','1kwob13q',1,0,'',6,0,0),(47936,9902,3,6,0,'79.19.233.100',1202636675,1,0,1,1,1,1,'','','You have to link wininet.lib.\n\nEMG','',0,'AIA=','1d7xhnf2',1,0,'',6,0,0),(47937,9847,3,1257,0,'195.93.60.2',1202647608,1,0,1,1,1,1,'','Listbox in xBrowse for 1 Record','Hello Roger,\n\nYour sample looks very nice.\nWhen you open a unknown database,\nyou don\'t have a resource with the placed fields.\nFor your inhouse-software you create one.  \nFor a DB-Tool, it is the only way, to create a Browser\ntogether with a Listbox for the selected record\nwhen you want to see the field-informations.\nI have seen a tool DBADMIN ( it is done with Visual-Object )\nThere, they go to edit-mode for a single record\nin a extra dialog with no field-Information and no\nconnection with the main-browser. \nLike it is shown in your sample, it is much better\nto handle.\n\nGreetings from Germany\nUwe','',0,'AIA=','2ufo9ujo',1,0,'',1257,0,0),(47938,9564,6,596,0,'84.76.66.27',1202651451,1,0,1,1,1,1,'','','Con FWH enero-2008 tambien me pide esa libería (GTSTD.LIB).\nEn el fichero AJAMAKE.INI la he quitado y me dice que le falta una función:\n\"E:\\Lenguas\\BCC551\\Bin\\ILINK32.EXE\" -Tpe -Gn -aa -m -M -s @e:\\programa\\simeva\\simeva.mak.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'GTSTD.LIB\'','',0,'AIA=','32kuqtxw',1,0,'',596,0,0),(47939,9679,3,169,0,'189.68.56.34',1202658889,1,0,1,1,1,0,'','','[quote=&quot;Silvio&quot;:1z2ij4ii]Antonio,\nI not understand ...\nwith this func how now I can show an Hires transparent ?[/quote:1z2ij4ii]\nSilvio,\n\nYou can use it instead DrawBitmap() function. But it displays only 32bit bitmaps with transparencies, not png files. Maybe maestro Antonio can optimize it for us  <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P --> \n\nRegards,\n\nToninho.','',0,'gA==','1z2ij4ii',1,0,'',169,0,0),(47940,9902,3,51,0,'80.122.88.242',1202660789,1,0,1,1,1,0,'','','Enrico,\nI tried with:\necho %bcdir%\\lib\\wininet.lib, &gt;&gt; b32.bc\nbut now I get:\n\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Too many commas on command line:\n\nRegards,\nOtto','',0,'gA==','tvq0jegg',1,0,'',51,0,0),(47941,9906,6,131,0,'83.57.113.117',1202666332,1,0,1,1,1,0,'','','Hola Alfredo,\ncomo haces para trabajar con Postgress ? \n\nSaludos,','',0,'gA==','27qxtm8f',1,0,'',131,0,0),(47942,9902,3,6,0,'79.19.233.100',1202666495,1,0,1,1,1,1,'','','You have to put a comma only on the last line.\n\nEMG','',0,'gA==','2ktgunq6',1,0,'',6,0,0),(47943,9902,3,51,0,'80.122.88.242',1202670994,1,0,1,1,1,0,'','','Enrico, thank you. \nMay I put the sample on <!-- w --><a class=\"postlink\" href=\"http://www.fwcodesnips.com\">www.fwcodesnips.com</a><!-- w -->?\nRegards,\nOtto','',0,'gA==','3ni78u2g',1,0,'',51,0,0),(47944,9902,3,6,0,'79.19.233.100',1202672077,1,0,1,1,1,1,'','','Sure.\n\nEMG','',0,'gA==','x04uspbl',1,0,'',6,0,0),(47945,9908,16,2,0,'87.218.146.222',1202674731,1,0,1,1,1,1,'','New FTDN February / Febrero 2008 (8.02)','February 2008\r\n===========\r\n\r\n* Enhancement: Class TTabs now uses Office 2007 look. Please review samples\\TestTabs.prg. It looks really nice!\r\n\r\n* Fix: Class TXBrwColumn Method PaintFooter() was not using the right font. Now it is ok.\r\n  \r\n* Enhancement: Class TOutLook2003 new DATA nOption. It keeps the current selected group.  \r\n  \r\n* Enhancement: Class TBar was not using DATA bPainted is 3D clause was used. Now it is ok.\r\n  \r\n* Enhancement: Class TXBrowse Method Refresh()\r\n\r\n* Enhancement: The documentation has been updated and greatly enhanced!:\r\n\r\n	* New documented functions in FWFun.chm:\r\n		AbortDoc()\r\n		CodeText()\r\n		ComDlgXErr()\r\n		CreateEnhMetaFile()\r\n		DecodeText()\r\n		DrawState()\r\n		ExtractLine()\r\n		FileTimeToDate()\r\n		FileTimeToTime()\r\n		GetLogicalDrives()\r\n		GetNMHDRCode()\r\n		GetNMHDRHWndFrom()\r\n		GetNMHDRIdFrom()\r\n		GetNMHeaButton()\r\n		GetNMHeaItem()\r\n		GetNMListViewItem()\r\n		GetTimePick()\r\n		HeaderGet()\r\n		HeaderIns()\r\n		HeaderLayout()\r\n		HeaderSet()\r\n		IlLoadImage()\r\n		IsAppThemed()\r\n		IsInternet()\r\n		IsWin64()\r\n		IsWinVista()\r\n		MsgCalc()\r\n		PageGetMargins()\r\n		PageSetup()\r\n		PrnGetCollate()\r\n		PrnGetPagNums()\r\n		PrnGetSelection()\r\n		PrnStatus()\r\n		RegEnumValue()\r\n		SetBalloon()\r\n		SetGetColorFocus()\r\n		SetTimePick()\r\n		ShowIP()\r\n		StretchBlt()\r\n		TabGetRowCount()\r\n		TimeZone()\r\n		TransBmp()\r\n		TvGetCheck()\r\n		TvGetParent()\r\n		TvIParam()\r\n		TvSetCheck()\r\n		TvSetColor()\r\n		TvSetItemText()\r\n		TvSetTextImage()\r\n		VolumeName()\r\n		WndBox2007()\r\n		xBrJustify()\r\n		xBrowseNew()\r\n		xBrwAddColumn()\r\n\r\n	* Updated documentation of functions in FWFun.chm:\r\n		cTempFile()\r\n		Ctl3DLook()\r\n		GetPrintDC()\r\n		InvalidateRect()\r\n		MenuMeasureItem()\r\n		PlayEnhMetaFile()\r\n		SetDatePick()\r\n		WndCopy()\r\n		\r\n  * New documented Classes in FwClass.chm:\r\n\r\n		TActiveX\r\n		TButtonBmp\r\n		THeader\r\n		TOutLook2003\r\n		TOutLook2003Group\r\n		TPreview\r\n		TTimePick\r\n\r\n  * New updated documentation for Classes:\r\n\r\n		TAnimate\r\n		TBtnBmp\r\n		TComboBox\r\n		TDBCombo\r\n		TFTP\r\n		TGet\r\n		TImageList\r\n		TMci\r\n		TMultiGet\r\n		TRichEdit\r\n		TStatusBar\r\n		TToolBar\r\n		TTreeView\r\n		TTVItem\r\n		TVideo\r\n		TXBrowse\r\n		TXBrwColumn\r\n		\r\n  * New documented Commands in FwCmd.chm:\r\n\r\n		ActiveX\r\n		ButtonBmp\r\n		Header\r\n		ImageList\r\n		ListView\r\n		Outlook2003\r\n		Progress\r\n		ReBar\r\n		TabControl\r\n		TMPicker\r\n		Toolbar\r\n		TreeView\r\n		XBrowse\r\n\r\n  * New updated documentation for Commands:\r\n\r\n		Bar\r\n		BtnBmp\r\n		Cursor\r\n		Dialogs\r\n		Image\r\n		Menu\r\n		MsgBar\r\n		Printer\r\n		RadioButtons\r\n		Video\r\n		\r\n* Fixed: Class TXBrowse Method LButtonDown() was not showing the proper record under some circunstances. Now it is ok. \r\n  \r\n* Enhancement: Class TButtonBmp was not using upper() of text position. Now it is ok.\r\n  \r\n* Enhancement: function GetNetCardID() has been enhanced to detect more than one network adapter. If more than one are found then an array is returned. If just one is found then a text is returned to keep backwards compatibility.\r\n    \r\n* Enhancement: MsgBar 2007 clause is properly painting the items without the previous gray background.\r\n     \r\n* Fix: FWH internal funcion FixSays() was not properly working when using dialogs and a print preview too. Now it is ok.\r\n      \r\n* Enhancement: Class TPreview is using the new bitmaps when 2007 clause is used.\r\n      \r\n* New: New function CursorNo(), sets the \"forbidden\" cursor.\r\n\r\n* Enhancement: FiveWin drag&amp;drop has been improved to use CursorNo() when a window does not accepts a drop operation from FiveWin. Please review samples\\TestDrp3.prg\r\n  \r\n* Enhancement: Class TXBrowse has been improved to provide better support for TWBrowse commands alike support. This way we easy the transition from TWBrowse to TXBrowse.\r\n   \r\n* New: function GetGuiResources() returns the amount of GDI objects in use.','',0,'gA==','2rr7zuqj',1,1220710761,'',2,1,0),(47946,9909,3,2,0,'87.218.146.222',1202674875,1,0,1,1,1,1,'','New FWH 8.02','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=47945\">http://fivetechsoft.com/forums/viewtopic.php?p=47945</a><!-- m -->','',0,'gA==','1suxr0hx',1,0,'',2,0,0),(47947,9910,6,2,0,'87.218.146.222',1202674944,1,0,1,1,1,1,'','Nuevo FWH 8.02','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=47945\">http://fivetechsoft.com/forums/viewtopic.php?p=47945</a><!-- m -->','',0,'gA==','2o06ggvj',1,0,'',2,0,0),(47948,2486,16,2,0,'87.218.146.222',1202675228,1,0,1,1,1,1,'','','February 2008\n===========\n\nxHarbour for Borland:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/91270378/xharbour.exe.html\">http://rapidshare.com/files/91270378/xharbour.exe.html</a><!-- m -->','',0,'gA==','19ajoo3u',1,0,'',2,0,0),(47949,9597,3,2,0,'87.218.146.222',1202676025,1,0,1,1,1,1,'','','Nageswararao,\n\nIncluded, many thanks!','',0,'gA==','2740p3wo',1,0,'',2,0,0),(47950,9906,6,72,0,'201.137.86.231',1202682821,1,0,1,1,1,0,'','','He aquí un documento que ilustra la forma de como hacerlo:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.despachoarteaga.com.mx/rc-sql.doc\">http://www.despachoarteaga.com.mx/rc-sql.doc</a><!-- m -->','',0,'gA==','218x27c0',1,0,'',72,0,0),(47951,9911,2,518,0,'189.171.51.227',1202683556,1,0,1,1,1,0,'','Abrir archivo de excell','Hola,\n\nComo puedo mandar llamar un archivo recien generado de excel desde FW22 ?\n\ngRACIAS\n\nRene','',0,'gA==','1rfjd5no',1,0,'',518,0,0),(47952,9898,3,868,0,'219.64.121.60',1202687218,1,0,1,1,1,1,'','','Mr Enrico\n\nYou found the reason. Most of the data and methods do not work on serverside cursors and some work only for serverside cursors but not for clientside.\n\nI have a few advices to make in general, based on theory, widely accepted good practices, confirmed by our own experiences.\n\nIt is desirable and the normal practice to open recordsets on the client side only. Opening serverside cursors is an exception.\n\nIn real life situations the applications are supposed to put least demands on Server and Network resources. Therefore the best practices are ( our discussion is limited to client-server 2-tier architecture only ) :-\n\n1. Dont open more than one connection per application.\n2. Ask the server for just enough information required for the purpose. Quickly retrieve it and say Thanks. Leave the Server free to attend to other requests from other users / applications.\n\nI have seen in our forums that every record set is opened with connection information. \n\nDisadvantages:\n\na) While opening each recordset we are  opening a new connection and leaving those connections open on the server till we finish our work at our liesure. Imagine hundreds or users opening tens of connections each and locking the server\'s limited resources. It is not surprising if the server soon starts denying further requests till previous resources are released. Or server\'s performance gets bogged down.\n \nb) Opening a connection takes more time. Opening a recordset with a connection already opened is faster.\n\nIt seems this usage is adopted from sources available from asp codes and webpage sources. That is 3-tier architecture. There is an application server sitting between us and the server. That situation is much different and good practices are diferent.\nc) Classified information like server names, database names, passwords are scattered all around our modules in the application code.  Serious security lapse.  If the connection is opened in only one function, that alone can be changed whenever passwords and usernames are changed by the administrators for security reasons.\n\nRecommendations:\ni) Open one connection at the beginning and store it in a global variable ( better as a return value of a function ).  Use the connection as RecordSet\'s ActiveConnection property while opening a new Recordset. We open the recordset faster ( our users are happy with our program ) and consume minimum resources of the server ( Our System Adminstrator friends are thankful to us.). Amy periodical changes in the connection parameters can be easily changed.  Actually it is better not to hardcode such params.\n\nii) Ask the minimum information and give the server the minimum work. Example, we can sort the recordset at the client instead of bothering the server. After getting the information, disconnect the recordset and leave the server for other works. We can always reconnect if we want to make any updates or resyncs.\n\niii) More and more advanced our programming needs are more and more complex our sql queries become. Tuning of sql queries is an essential knowledge we need to aquire. Badly drafted sql\'s can lock server resources for unduly long periods, bringing down the server performance.\n\niii) Unless required, open client server cursors. Application performance will be very fast. Users will be happy with the blazing speeds of browses. Serverside cursors are not only slow but also keep the server tied up.  Also there is a known issue with opening more than one serverside cursor on mssql server at the same time. Easier way is Open the connection at the outset with cursor location set to adUseClient. By default all recordsets will be opened client side.','',0,'gA==','1bphn3k5',1,0,'',868,0,0),(47953,9906,6,121,0,'189.138.169.147',1202691396,1,0,1,1,1,1,'','','MUY INTERESANTE TU ARTICULO\n\nY NO SABES SI SE PUEDE ADQUIRIR EL SQLRDD POR SEPARADO\nO SE TIENE QUE COMPRAR XHARBOUR\n\nSALUDOS','',0,'gA==','2w9vgim4',1,0,'',121,0,0),(47954,9906,6,348,0,'190.81.59.70',1202697547,1,0,1,1,1,0,'','Re: Un sueño?!','Alfredo\n\nInteresante tu logro, como tu dices, un sueño, podrias compartir en contarnos que compiladores, librerias y/o software de soporte usaste para lograr esto?? \n\nLubin','',0,'gA==','2fw4dqq2',1,0,'',348,0,0),(47955,9906,6,72,0,'201.137.86.231',1202701764,1,0,1,1,1,0,'','','Marco. Visita el sitio de xHarbour, ahí encontrarás información suficiente y una versión de evaluación.\n\nLubin. Estoy usando FWH 7.11 y xHarbour libre 0.99.71, revisa el documento.\n\nEn mi opinión esta es la mejor opción que he evaluado para hacer aplicaciones remotas con FiveWin.','',0,'gA==','64e9emgs',1,0,'',72,0,0),(47956,9898,3,49,0,'213.82.134.66',1202716770,1,0,1,1,1,1,'','','EMG or nageswaragunupudi\n\n\nI must implement an TAB \nI want inser this tab to the bottom of a xbrowse\nwhen I clicl on a folder the Xbrowse must order the record to one order\n\n@ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ; \nOPTION nOrder SIZE oApp():oWndMain:nWidth()-50, 12 PIXEL OF oApp():oDlg ; \nITEMS \' First \', \' Last \' \nACTION ( nOrder := oApp():oTab:nOption ,; \noRs:Sort (nOrder)),; \noRs:movetop() ,; oApp():oGrid:Refresh(.t.) ,; \n\n\nHow I can make it ?\n )','',0,'gA==','1yu7jxun',1,0,'',49,0,0),(47957,9898,3,868,0,'219.64.121.60',1202717082,1,0,1,1,1,1,'','','I think we discussed this earlier. Depending on nOption, set oRs:Sort := &lt;columnname&gt;, oBrw:Refresh().\n\nMake sure you opened the recordset with adUseClient option. The above code will work','',0,'gA==','109tw15x',1,0,'',868,0,0),(47958,9894,3,130,0,'141.51.32.24',1202718437,1,0,1,1,1,1,'','','Uwe,\n\nYou can use BEGIN SEQUENCE... END SEQUENCE construction to handle the error internally.','',0,'gA==','2v15inh0',1,0,'',130,0,0),(47959,9898,3,6,0,'87.10.10.244',1202718497,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:zh7f4662]I have seen in our forums that every record set is opened with connection information.[/quote:zh7f4662]\n\nThey are only minimal samples. Nothing more.\n\n[quote=&quot;nageswaragunupudi&quot;:zh7f4662]Recommendations: [...][/quote:zh7f4662]\n\nThat\'s why I don\'t like client/server at all. Too much constraints. An archaic technology passed off as new.\n\nEMG','',0,'gA==','zh7f4662',1,0,'',6,0,0),(47960,9912,3,868,0,'219.64.121.60',1202718619,1,0,1,1,1,1,'','bDropOver - nRow, nCol','Mr Antonio\n\nI am trying to use the nRow, nCol parameters of bDropOver block when drop occurs on a window.\n\nNaturally I expected that the nRow,nCol refer to the destination window. It is not the case. I found that they are not even Screen Coordinates. On studying the Control.Prg, I observed that the nRow, nCol refer to the position with respect to originating control ( i.e, the Control where the drag began ).\n\nThe relevant code from Control.Prg is extracted below:\n[code:2vzhdiqi]\nMETHOD LButtonUp&#40; nRow, nCol, nKeyFlags &#41; CLASS TControl\n\n   local aPoint &#58;= &#123; nRow, nCol &#125;\n\n   &#58;&#58;lMouseDown = &#46;f&#46;\n\n   if lDragging\n      lDragging = &#46;f&#46;\n      ReleaseCapture&#40;&#41;\n\n      aPoint = ClientToScreen&#40; &#58;&#58;hWnd, aPoint &#41;\n      if aPoint&#91; 1 &#93; &gt; 32768\n         aPoint&#91; 1 &#93; -= 65535\n      endif\n      if aPoint&#91; 2 &#93; &gt; 32768\n         aPoint&#91; 2 &#93; -= 65535\n      endif\n      SendMessage&#40; WindowFromPoint&#40; aPoint&#91; 2 &#93;, aPoint&#91; 1 &#93; &#41;,;\n                   FM_DROPOVER, nKeyFlags, nMakeLong&#40; nRow, nCol &#41; &#41;\n\n      return nil\n   endif\n[/code:2vzhdiqi]\nThe destination (dropped) window can not use these nRow,nCol coordinates directly. We have to know the originating window ( the bdropdown does not contain the information, unless we stuff it in the udropinfo). So we have to ascertain the originating window, conver the coordinates to screen from orginating window and then convert again from screen to the destination window.\n\nKindly confirm if my understanding is correct.\n\nI checked the drag drop programs in the samples folder. They do not contain any sample using the nRow,nCol coordnates in the bDropOver block.\n\nI suggest it would be convenient for us, if the bDropOver is called with nRow,nCol relative to the destination window ( or at least the screen coordinates).\n\nI suggest the following modified code.\n[code:2vzhdiqi]\nMETHOD LButtonUp&#40; nRow, nCol, nKeyFlags &#41; CLASS TControl\n\n   local aPoint &#58;= &#123; nRow, nCol &#125;\n   local hDropWnd\n\n   &#58;&#58;lMouseDown = &#46;f&#46;\n\n   if lDragging\n      lDragging = &#46;f&#46;\n      ReleaseCapture&#40;&#41;\n\n      aPoint = ClientToScreen&#40; &#58;&#58;hWnd, aPoint &#41;\n      if aPoint&#91; 1 &#93; &gt; 32768\n         aPoint&#91; 1 &#93; -= 65535\n      endif\n      if aPoint&#91; 2 &#93; &gt; 32768\n         aPoint&#91; 2 &#93; -= 65535\n      endif\n\n      hDropWnd  = WindowFromPoint&#40; aPoint&#91; 2 &#93;, aPoint&#91; 1 &#93; &#41;\n      aPoint    = ScreenToClient&#40; hDropWnd, aPoint &#41;\n\n      // do we need to make again any correction for 65535 here also ?\n\n      SendMessage&#40; hDropWnd, FM_DROPOVER, nKeyFlags, nMakeLong&#40; aPoint&#91; 1 &#93;, aPoint&#91; 2 &#93; &#41; &#41;\n\n      return nil\n   endif\n[/code:2vzhdiqi]\nWith this correction I expect when the drop occurs, the nRow, nCol parameters that the window receives on evaluation of bDropOver block are relative to itself and can straight away use the coordinates.\n\nIs my understanding right ?\n\nWith this modification, dropover function can be written something like this\n[code:2vzhdiqi]\noWnd&#58;bDropOver &#58;= &#123; |u,r,c,f| mousedropover&#40; u,r,c,f &#41; &#125;\n//---\nfunc mousedropover&#40; u, nRow, nCol, nFlags &#41;\n\n   oWnd&#58;Say &#40; nRow, nCol, \'Dropped here\' &#41;\n\n /*\n   INSTEAD OF &#58;\n\n   LOCAL aPoint\n   aPoint &#58;= ClientToScreen&#40; OrginatingWnd&#58;hWnd, &#123; nRow, nCol &#125; &#41;\n   // apply 65535 correction\n   aPoint &#58;= ScreenToClient&#40; oThisWnd&#58;hWnd, aPoint &#41;\n   // i don\'t know if we again have to apply 65535 correction and if so what it is\n   nRow &#58;= aPoint&#91; 1 &#93;\n   nCol  &#58;= aPoint&#91; 2 &#93;\n  // now use nRow,nCol\n*/\n[/code:2vzhdiqi]\n\n\nDo other programmers agree with the suggestion?\n\nRequest Mr Antonio and other colleagues to advise.','',0,'AIA=','2vzhdiqi',1,0,'',868,0,0),(47961,9894,3,868,0,'219.64.121.60',1202719124,1,0,1,1,1,1,'','','We can find the index expression from the NTX headers and check if the field names used in the expression match the dbf.  We also get the number of index entries from the header. We can match with the number of records in the  dbf.  That gives us some level of confidence that the NTX is very likely to belong to this DBF.\n\nNot a 100% sure method, but fairly dependable, if you take the trouble. It was long long time back I was using header informations for various purposes. Now it is years since I touched NTX.','',0,'AIA=','7f0qkf5o',1,0,'',868,0,0),(47962,9894,3,868,0,'219.64.121.60',1202719832,1,0,1,1,1,1,'','','NTX header\nI think this may be useful to read the index expression\n\n[code:dfwh8f94]\nType	Size	Field Name	Description\nxbShort	2	Signature Byte	The Clipper signature byte&#46; 0x003h indicates Clipper 87&#46; 0x006h indicates Clipper 5&#46;x\nxbShort	2	Indexing Version Number	Documented as the &quot;Compiler Version&quot; but I have observed an increasing number&#46; Incremented whenever the index is changed&#46;\nxbLong	4	First Node Offset	The offset to the first node&#46;\nxbLong	4	First Unused Page Offset	The offset to the first unused node&#46;\nxbShort	2	Key Size + 8	The Key Size plus 8 bytes&#46;\nxbShort	2	Key Size	The size &#40;length&#41; of the key&#46;\nxbShort	2	Number of Decimals	Number of decimal places in key&#46;\nxbShort	2	Max Items Per Node	The maximum number of key per node&#46;\nxbShort	2	1/2 The Max Items Per Node	Half the maximum number of key per node&#46; Important in a B-tree system, as this is the minimum number of keys that must be on a page&#46;\nchar	256	KeyExpression	Key expression string\nchar	1	Unique	Unique indicator\n00 - Not Unique - XB_NON_UNIQUE\n01 - Unique - XB_UNIQUE\nchar	745	Unused	Unused\n	1024\n[/code:dfwh8f94]\nSeems 24th byte onwards we get the key expression.','',0,'AIA=','dfwh8f94',1,0,'',868,0,0),(47963,9913,3,1231,0,'83.12.224.186',1202719910,1,0,1,1,1,1,'','New TABS','I\'m testing new version of fwh (2008.02)\n\nI\'ve just found part of my code which doesn\'t work.\nError code BASE/1132\n\n@oWNDR:nHeight() - 180, 195 TABS oTabs2 ;\n   PROMPTS \"\",\"Dodaj pacjenta\",\"Zlecenia\",\"Edytuj pacjenta\",\"Wydrukuj wynik\",\"Ksero kodu kreskowego\",\"Karta sta&#322;ego klienta\",\"Wpisz b&#322;&#261;d\" ;\n   OF oWndR SIZE oWNDR:nWidth() - 140,20 PIXEL COLORS GET_LAB_KOL(61),GET_LAB_KOL(60);\n   ACTION (ACT_TAB2(oTabs2:nOption),oTabs2:nOption:=1)\n\nWhen I remove \"PIXEL\" my code works.\n\nI\'ve never notice this error with FWH 2008.01.\n\n\nAny suggestion?','',0,'AIA=','2y41o4xm',1,0,'',1231,0,0),(47964,9898,3,303,0,'72.220.181.80',1202720643,1,0,1,1,1,0,'','','nageswaragunupudi,\n\nThanks for the client-side/server-side cursor explanations.\n\n&gt; Open one connection at the beginning and store it in a global variable ( better as a return value of a function ). \n\nThis sounds like good use for a connection object. You could put a connection object inside a SET/GET function. Then you could retrieve the connection object and use it\'s methods or vars anywhere in the application. You could do things like this:\n\noConnection:= TCSConnection():new( ... )\nconnection( oConnection )\nconnection():activate()\nconnection():open()\nconnection():close()\n\nRegards,\nJames','',0,'AIA=','2avu28gn',1,0,'',303,0,0),(47965,9898,3,49,0,'213.82.134.66',1202720898,1,0,1,1,1,1,'','','Dear nageswaragunupudi\nI made a s you sad but it make erro on Sort command\nI try with :\nors:sort:=\"First\" \nor \nors:sort:field(\"first\"):value \nor \nors:sort:field(\"first\")::name \n\nI must create a small sample to see it ...','',0,'AIA=','1rl9g05b',1,0,'',49,0,0),(47966,9898,3,868,0,'219.64.121.60',1202721334,1,0,1,1,1,1,'','','Mr James\n\nYes thats is what I suggest.\n\nYou and me being OOPS fans, we better have a Class for Connection. Make a base class for Ado Connection and then we have derived classes for oracle, mssql, etc.  with their specific features,\n\nIn fact thats what I do.  Like you I have one public function which returns the connection object.  With my oops model,  I finally program like this\n\noTable := MyServer():OpenTable( &lt;csql&gt;,  ... params )\n\nMy oTable class is like your TData class. It is wrapper for recordset. Bridges behavioral gaps of dbf and recset.\n\nNow I am sure you know what I mean and what  I am doing, without futher elaboration.','',0,'AIA=','391p0zqe',1,0,'',868,0,0),(47967,9898,3,868,0,'219.64.121.60',1202721494,1,0,1,1,1,1,'','','Mr Silvio\n\nPlease make a very short program.\nOpen recordset.\nThen write this line oRs:Sort := &lt;first column name&gt;\nPost the code here.','',0,'AIA=','16u0gwid',1,0,'',868,0,0),(47968,9913,3,2,0,'87.218.146.59',1202721962,1,0,1,1,1,1,'','','Robert,\n\n&gt; Error code BASE/1132\n\nPlease post the calls stack\n\nHere we have added the PIXEL clause to samples\\TestTabs.prg and it works fine','',0,'AIA=','67sa6jvh',1,0,'',2,0,0),(47969,9913,3,868,0,'219.64.121.60',1202722075,1,0,1,1,1,1,'','','I got curious when I saw your post. I normally do not use pixel clause.\n\nJust now I tested both with and without pixel clause. It is working for me without any problem. ( 8.02 version )\n\nBut after the Tabs Statement I also use oWnd:oBottom := oTabs. May be without this there may be problem, but I think it is necessary to put the tabs at the bottom or top or left or right of the container.\n\nCan you please post the error.log please?','',0,'AIA=','3nxgx4bw',1,0,'',868,0,0),(47970,9912,3,2,0,'87.218.146.59',1202722140,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt; Is my understanding right ? \n\nYes. Actually the coordinates are absolute and are not relative to the destination window. \n\nWe should use ScreenToClient() as you describe to turn them local to the window where the drop is done','',0,'AIA=','2mcct3r9',1,0,'',2,0,0),(47971,9911,2,2,0,'87.218.146.59',1202722222,1,0,1,1,1,1,'','','Te refieres a abrirlo con Excel ?','',0,'AIA=','2zl4df5m',1,0,'',2,0,0),(47972,9913,3,868,0,'219.64.121.60',1202722231,1,0,1,1,1,1,'','','I confirm that it is necessary to use oWnd:oBottom := oTabs.\n( bottom, top, left or rght). Without that we are getting this error','',0,'AIA=','1wqm0h7h',1,0,'',868,0,0),(47973,9912,3,868,0,'219.64.121.60',1202722333,1,0,1,1,1,1,'','','Mr Antonio\n\nI do not think they are even absolute. I think they are relative to the control originating the drag. Can you kindly verify again please?','',0,'AIA=','4x16ztqi',1,0,'',868,0,0),(47974,9913,3,1231,0,'89.171.55.130',1202722424,1,0,1,1,1,1,'','','Antonio\n\nApplication\n===========\n   Path and name: C:\\FWH_MYAP\\Maraboot\\F_MAIN.exe (32 bits)\n   Size: 3,570,688 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 11.02.2008, 09:50:24\n   Error description: Error BASE/1132  B&#136;&#260;d zakresu tablicy: Nieprawid&#136;owa liczba argument&#728;w\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   0\n\nStack Calls\n===========\n   Called from: TABS.PRG =&gt; TTABS:PAINT(0)\n   Called from: TABS.PRG =&gt; TTABS:DISPLAY(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: TABS.PRG =&gt; TTABS:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; UPDATEWINDOW(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:ACTIVATE(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:ACTIVATE(0)\n   Called from: f_dzien1.prg =&gt; LISTA_OSOB(293)\n   Called from: F_MENU.prg =&gt; (b)BUILDMENU(166)\n   Called from: MENU.PRG =&gt; TMENU:COMMAND(0)\n   Called from: WINDOW.PRG =&gt; TWINDOW:COMMAND(0)\n   Called from: MDIFRAME.PRG =&gt; TMDIFRAME:COMMAND(0)\n   Called from:  =&gt; TMDIFRAME:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(0)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(0)\n   Called from: F_MENU.prg =&gt; MENU_GLOWNE(158)\n   Called from: F_MAIN.prg =&gt; MYAPP(134)','',0,'','1xoa6o28',1,0,'',1231,0,0),(47975,9913,3,1231,0,'89.171.55.130',1202722470,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1462f9p4]I confirm that it is necessary to use oWnd:oBottom := oTabs.\n( bottom, top, left or rght). Without that we are getting this error[/quote:1462f9p4]\n\nNageswaragunupudi\nThank you.','',0,'gA==','1462f9p4',1,0,'',1231,0,0),(47976,9912,3,868,0,'219.64.121.60',1202722518,1,0,1,1,1,1,'','','If the coordinates have to be absolute, the control.prg should have been like this :\n[code:d9xs5bfw]\n/*\n    INSTEAD OF \n\n     SendMessage&#40; WindowFromPoint&#40; aPoint&#91; 2 &#93;, aPoint&#91; 1 &#93; &#41;,;\n                   FM_DROPOVER, nKeyFlags, nMakeLong&#40; nRow, nCol &#41; &#41;\n*/\n      SendMessage&#40; WindowFromPoint&#40; aPoint&#91; 2 &#93;, aPoint&#91; 1 &#93; &#41;,;\n                   FM_DROPOVER, nKeyFlags, ;\n                   nMakeLong&#40; aPoint&#91; 1 &#93;, aPoint&#91; 2 &#93; &#41; &#41;\n\n[/code:d9xs5bfw]\nCan you please confirm ?','',0,'AIA=','d9xs5bfw',1,0,'',868,0,0),(47977,9913,3,2,0,'87.218.146.59',1202723830,1,0,1,1,1,1,'','','Robert,\n\nWe are reviewing the Method Paint() to see where the error comes from, \n\nthanks for your feedback','',0,'AIA=','2quxa5hp',1,0,'',2,0,0),(47978,9912,3,2,0,'87.218.146.59',1202726920,1,0,1,1,1,1,'','','Yes, you are right\n\nThanks,','',0,'AIA=','2z3tufy6',1,0,'',2,0,0),(47979,9912,3,868,0,'219.64.121.60',1202727384,1,0,1,1,1,1,'','','Mr Antonio\n\n1) Do you think we should modify ? So that the dropped window need now know the originating window. If you agree, I shall do it in my copy.\n\n--- I still prefer if the coordinates provided are relative the dropped window avoiding the programmer to do the complex calculations.\n\n2) Please advise me if we need to apply the 65535 correction after ScreenToClient also? If so what is that correction?','',0,'AIA=','6y9k8587',1,0,'',868,0,0),(47980,9912,3,2,0,'87.218.146.59',1202729441,1,0,1,1,1,1,'','','Nageswararao,\n\n&gt;\n1) Do you think we should modify ? So that the dropped window need now know the originating window. If you agree, I shall do it in my copy. \n&gt;\n\nYes, I guess the best choice is to use local window coordinates\n\n&gt;\n2) Please advise me if we need to apply the 65535 correction after ScreenToClient also? If so what is that correction?\n&gt;\n\nWe have to check it in case that we get negative values','',0,'AIA=','terq3b1d',1,0,'',2,0,0),(47981,9913,3,1231,0,'89.171.55.130',1202729453,1,0,1,1,1,1,'','','There is another problem with new tabs.\n\nIn previous version of tabs (look at the picture 1) Polish national signs were displayed correctly.\n[img:3ev7zovk]http&#58;//www&#46;3ct-phototeam&#46;pl/FWH/tabs_old&#46;jpg[/img:3ev7zovk]\n\nIn new version I cannot find font do display it correctly.\n\n[img:3ev7zovk]http&#58;//www&#46;3ct-phototeam&#46;pl/FWH/tabs_new&#46;jpg[/img:3ev7zovk]','',0,'CA==','3ev7zovk',1,0,'',1231,0,0),(47982,9913,3,2,0,'87.218.146.59',1202730701,1,0,1,1,1,1,'','','Robert,\n\nYou have to do oWnd:oBottom := oTabs','',0,'CA==','290lk1di',1,0,'',2,0,0),(47983,9913,3,1231,0,'89.171.55.130',1202731282,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1t9628xv]Robert,\n\nYou have to do oWnd:oBottom := oTabs[/quote:1t9628xv]\n\nI can\'t do it. Tabs are displayed in message area in my window.\n\n[img:1t9628xv]http&#58;//www&#46;3ct-phototeam&#46;pl/FWH/tabs_new2&#46;jpg[/img:1t9628xv]\n\nWhat about national signs?\nAny idea?\n\nR.','',0,'iA==','1t9628xv',1,0,'',1231,0,0),(47984,9913,3,868,0,'219.64.121.60',1202731964,1,0,1,1,1,1,'','','We can not say oWnd:oBottom := oTabs, if we have a message bar, because already oWnd:oBottom is omsgbar.\n\nLikewise we can not say oWnd:oTop := oTabs if we have a buttonbar because ownd:oTop is already TBar object.\n\nTo have all of them what I do is this:\n\nDefine buttonbar and message bar of oWnd,\nThen I create a panel\n\noPanel := TPanel():new()\noWnd:oClient := oPanel\n\nNow we can define all other controls as \"OF oPanel\" instead of oWnd. oPanel now acts as an invisible Container within the client area of the oWnd.\noPanel:oBottom := oTabs\nOr\noPanel:oTop := oTabs\n\noPanel:oClient := oBrw\nand so on\n\nWe can now have ButtonBar, MessageBar, Tabs on bottom, top, right or left and all other controls in the client area','',0,'iA==','1iv2gxsi',1,0,'',868,0,0),(47985,9913,3,2,0,'87.218.146.59',1202732798,1,0,1,1,1,1,'','','Robert,\n\nPlease download FWH 8.02 again and try your original code, thanks','',0,'iA==','2qih6gdn',1,0,'',2,0,0),(47986,9913,3,2,0,'87.218.146.59',1202733230,1,0,1,1,1,1,'','','Robert,\n\n&gt; What about national signs? \n\nWere they properly shown with the previous class version ?','',0,'iA==','1bbg2ljn',1,0,'',2,0,0),(47987,9914,6,925,0,'200.72.82.234',1202733730,1,0,1,1,1,0,'','Porque al aplicar el estilo botones xp','Hola alguien sabe porque al aplicar que los botones tenga apariencia xp\nme sucede que en este dialogo puntual los say aparecen con fondo blanco\nadjunto imagen gracias no he podido encontrar el problema.... \n <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\n[img][url=http&#58;//www&#46;imaxenes&#46;com/imagen/ejemplo1sz03o1&#46;jpg&#46;html:3ggqfy6x][img]http://www.imaxenes.com/mini/ejemplo1sz03o1.jpg[/img][/url:3ggqfy6x][/img]','',0,'GA==','3ggqfy6x',1,0,'',925,0,0),(47988,9912,3,868,0,'219.64.121.60',1202733795,1,0,1,1,1,1,'','','Mr Antonio\n\nIn that case, can you please comment on this code, if it looks okay?\n[code:24i29lai]\nMETHOD LButtonUp&#40; nRow, nCol, nKeyFlags &#41; CLASS TControl\n\n   local aPoint &#58;= &#123; nRow, nCol &#125;\n   local hDropWnd\n\n   &#58;&#58;lMouseDown = &#46;f&#46;\n\n   if lDragging\n      lDragging = &#46;f&#46;\n      ReleaseCapture&#40;&#41;\n\n      aPoint = ClientToScreen&#40; &#58;&#58;hWnd, aPoint &#41;\n      if aPoint&#91; 1 &#93; &gt; 32768\n         aPoint&#91; 1 &#93; -= 65535\n      endif\n      if aPoint&#91; 2 &#93; &gt; 32768\n         aPoint&#91; 2 &#93; -= 65535\n      endif\n\n      hDropWnd  = WindowFromPoint&#40; aPoint&#91; 2 &#93;, aPoint&#91; 1 &#93; &#41;\n      aPoint    = ScreenToClient&#40; hDropWnd, aPoint &#41;\n\n      if aPoint&#91; 1 &#93; &lt; 0\n         aPoint&#91; 1 &#93; += 65535\n      endif\n      if aPoint&#91; 2 &#93; &lt; 0\n         aPoint&#91; 2 &#93; += 65535\n      endif\n\n      SendMessage&#40; hDropWnd, FM_DROPOVER, nKeyFlags, nMakeLong&#40; aPoint&#91; 1 &#93;, aPoint&#91; 2 &#93; &#41; &#41;\n\n      return nil\n   endif \n[/code:24i29lai]\n\nIf this code looks to be logically correct, I shall incorporate in my copy and test it. If I encounter any problems, I shall seek your guidance again.\n\nAnother point:\n\nWhy can\'t the 65535 issue be handled in the ScreenToClient and ClientToScreen functions and return the fully rectified values?  Why should the programmer apply the correction everytime in his code? In normal course I would never know that these two functions would need  a correction like this. New programmers who use these functions may not know till they face problems and approach the forum.','',0,'AIA=','24i29lai',1,0,'',868,0,0),(47989,9914,6,2,0,'87.218.146.59',1202733858,1,0,1,1,1,1,'','','Pablo,\n\nQue versión de FWH usas ?\n\nPuedes proporcionar un PRG pequeño y autocontenido que reproduzca el problema ? gracias,','',0,'AIA=','2z05c0w8',1,0,'',2,0,0),(47990,9912,3,2,0,'87.218.146.59',1202734022,1,0,1,1,1,1,'','','Nageswararao,\n\nYour changes look fine, though I am not totally sure about this:\n[code:3rk0vhx9]\n      if aPoint&#91; 1 &#93; &lt; 0 \n         aPoint&#91; 1 &#93; += 65535 \n      endif \n      if aPoint&#91; 2 &#93; &lt; 0 \n         aPoint&#91; 2 &#93; += 65535 \n      endif \n[/code:3rk0vhx9]\nThose changes are due to a sign problem that it is not properly managed','',0,'AIA=','3rk0vhx9',1,0,'',2,0,0),(47991,9913,3,1231,0,'89.171.55.130',1202734176,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:3mm69eh6]Robert,\n\n&gt; What about national signs? \n\nWere they properly shown with the previous class version ?[/quote:3mm69eh6]\n\nAntonio:\nYes, they were.\n\nMy old code works! \n\nNageswaraRao:\nGreat idea, I\'m going to use it.','',0,'gA==','3mm69eh6',1,0,'',1231,0,0),(47992,9912,3,868,0,'219.64.121.60',1202734213,1,0,1,1,1,1,'','','&gt;\nYour changes look fine, though I am not totally sure about this:\n&gt;\nThis is my doubt too about the post-screentoclient call.','',0,'gA==','11yo4joe',1,0,'',868,0,0),(47993,9913,3,868,0,'219.64.121.60',1202734581,1,0,1,1,1,1,'','','Mr Robert\n\nIf you are going to use TPanel, a few advices from my experience. \n\nPanel does not automatically inherit font from the parent window.  So please set oPanel\'s font same as oWnd\'s font. \n\nThen all the controls you define later as \"OF oPanel\" will automatically inherit that font. This makes your life easy','',0,'gA==','3cyht4iz',1,0,'',868,0,0),(47994,9865,6,1201,0,'200.90.17.154',1202734621,1,0,1,1,1,0,'','','Tambien me manda el error de windows;\n\n\n\nXh .997 y Fw 7.9','',0,'gA==','1etqyu9i',1,0,'',1201,0,0),(47995,9913,3,1231,0,'83.12.224.186',1202735102,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1fmqmyxd] a few advices from my experience. \n[/quote:1fmqmyxd]\n\nMr NageswaraRao\nThank you.','',0,'gA==','1fmqmyxd',1,0,'',1231,0,0),(47996,9902,3,519,0,'83.32.109.11',1202735204,1,0,1,1,1,0,'','','Please have you a sample to upload a file from a website with progress bar ? \n\n\nthanks','',0,'gA==','2wp9hxzn',1,0,'',519,0,0),(47997,9909,3,972,0,'78.21.224.104',1202735582,1,0,1,1,1,0,'','Re: New FWH 8.02','[quote=&quot;Antonio Linares&quot;:m0auah1c]http://fivetechsoft.com/forums/viewtopic.php?p=47945[/quote:m0auah1c]\n\nNice Job Antonio. Congrats!\n\nPatrick','',0,'gA==','m0auah1c',1,0,'',972,0,0),(47998,9915,3,972,0,'78.21.224.104',1202735948,1,0,1,1,1,0,'','Unresolved external symbol \'_GetGuiResources\'.','Antonio,\n\nI\'m keep getting:\n\nxLINK: error: Unresolved external symbol \'_GetGuiResources\'.\nxLINK: fatal error: 1 unresolved external(s).\n\nPatrick','',0,'gA==','3n9a0nv7',1,0,'',972,0,0),(47999,9916,6,1072,0,'200.72.190.180',1202736560,1,0,1,1,1,0,'','DATABASE O NO DATABASE,, nose si la clase o el RC da error','tengo un problema sobre DATABASE.., bueno al menos eso creo\n\ntengo un DIALOG.. y cuando lo cierro con la X del mismo,, me tira el siguiente error:\n\n\nApplication\n===========\n   Path and name: c:\\belen\\SisAdmi.Exe (32 bits)\n   Size:   654,336 bytes\n   Time from start: 0 hours 0 mins 3 secs \n   Error occurred at: 11/02/2008, 10:15:03\n   Error description: Error BASE/1004  Message not found: TDATABASE:IDATENCIO\n\nStack Calls\n===========\n   Called from: HARBOUR.PRG =&gt; _CLSSETERROR(0)\n   Called from: DATABASE.PRG =&gt; TDATABASE:IDATENCIO(0)\n   Called from: mdi8.prg =&gt; (b)MCSPSFGMENORES(111)\n   Called from: tget.prg =&gt; TCLIPGET:VARGET(845)\n   Called from: tget.prg =&gt; (b)GET:GET(131)\n   Called from: tget.prg =&gt; TCLIPGET:UPDATEBUFFER(0)\n   Called from: TGET.PRG =&gt; TBTNGET:LOSTFOCUS(0)\n   Called from: CONTROL.PRG =&gt; TBTNGET:KILLFOCUS(0)\n   Called from: CONTROL.PRG =&gt; TCONTROL:HANDLEEVENT(0)\n   Called from: TGET.PRG =&gt; TBTNGET:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(3170)\n   Called from:  =&gt; SENDMESSAGE(0)\n   Called from: WINDOW.PRG =&gt; (b)TWINDOW:TWINDOW(498)\n   Called from: WINDOW.PRG =&gt; TMDICLIENT:SENDMSG(0)\n   Called from: MDICLIEN.PRG =&gt; TMDICLIENT:CHILDCLOSE(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:END(0)\n   Called from: WINDOW.PRG =&gt; TMDICHILD:SYSCOMMAND(2233)\n   Called from: WINDOW.PRG =&gt; TWINDOW:HANDLEEVENT(0)\n   Called from: MDICHILD.PRG =&gt; TMDICHILD:HANDLEEVENT(0)\n   Called from: WINDOW.PRG =&gt; _FWH(3170)\n   Called from:  =&gt; WINRUN(0)\n   Called from: WINDOW.PRG =&gt; TMDIFRAME:ACTIVATE(883)\n   Called from: sisadmi.prg =&gt; MAIN(93)\n\nSystem\n======\n   CPU type:               Intel(R) Pentium(R) 4 CPU 2.80GHz 2800 Mhz\n   Hardware memory: 960 megs\n\n   Free System resources: 90 %\n        GDI    resources: 90 %\n        User   resources: 90 %\n\n   Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)\n   Windows version: 5.1, Build 2600 Service Pack 2\n\n   Windows total applications running: 54\n      1 M\n      2 Default IME\n      3 CiceroUIWndFrame\n      4 TF_FloatingLangBar_WndTitle\n      5 AVG E-mail Scanner\n      6 Estilo de guión\n      7  Sistema Central de Administración &lt; FUNERARIA BELEN &gt;\n      8 VERCE v4.3, C:\\Belen\\BelenC.VRC\n      9 Panel de tareas\n     10 Propiedades\n     11 Celda\n     12 Insertar\n     13 Microsoft Excel - Resumenes IVAS\n     14 C:\\WINDOWS\\system32\\cmd.exe\n     15 Visor de eventos - Messenger Plus!\n     16 WOWExec\n     17 F\n     18 Microsoft Visual Basic - EUROTOOL.XLA\n     19 DDE Server Window\n     20 <!-- e --><a href=\"mailto:AD760EEA-46D4-4e12-BAF5-58E2E3D1D0B2_Leiva_36@hotmail.com\">AD760EEA-46D4-4e12-BAF5-58E2E3D1D0B2_Le ... otmail.com</a><!-- e -->\n     21 <!-- e --><a href=\"mailto:B1E4D14A-F6D0-457d-8F12-711BF924E011_Leiva_36@hotmail.com\">B1E4D14A-F6D0-457d-8F12-711BF924E011_Le ... otmail.com</a><!-- e -->\n     22 <!-- e --><a href=\"mailto:D897EE71-E263-449d-9241-5E918A81AF41_Leiva_36@hotmail.com\">D897EE71-E263-449d-9241-5E918A81AF41_Le ... otmail.com</a><!-- e -->\n     23 <!-- e --><a href=\"mailto:0C6C1D2B-CA92-49a1-B5F5-A9BBF3D2921A_Leiva_36@hotmail.com\">0C6C1D2B-CA92-49a1-B5F5-A9BBF3D2921A_Le ... otmail.com</a><!-- e -->\n     24 CTicketManagerWnd\n     25 RTCMediaMessageWindow\n     26 CRTCMediaController\n     27 CRTCClient\n     28 LP Main Window\n     29 CLPOsEventsHandler Window\n     30 CSHTrayIconWindow\n     31 LPTimer-{312C2D21-593B-4e71-8E7C-A45397847FEE}\n     32 WMMonitor Win\n     33 LPEXT_DOK_LISTENER\n     34 SecExtNotifier\n     35 LPGXManager\n     36 HP Deskjet 3900 Series - Estado\n     37 AiODeeDeeNotificationWindow\n     38 AVG Free Edition - Control Center\n     39 DIEmWin\n     40 SiS Utility Tray\n     41 Connections Tray\n     42 MessageFromSti\n     43 ButtonManager\n     44 Medidor de energía\n     45 UPnP Notification Monitor\n     46 MS_WebcheckMonitor\n     47 HPWU\n     48 AVGEMC\n     49 LapiClientProxy\n     50 SDKListener\n     51 CLPAppSizeCalculator Window\n     52 GDI+ Window\n     53 SysFader\n     54 Program Manager\n\nVariables in use\n================\n   Procedure     Type   Value\n   ==========================\n   _CLSSETERROR\n     Param   1:    O    Class: ERROR\n   TDATABASE:IDATENCIO\n     Local   1:    U    \n     Local   2:    O    Class: TDATABASE\n     Local   3:    C    \"IDATENCIO\"\n     Local   4:    N    1004\n     Local   5:    N    0\n   (b)MCSPSFGMENORES\n     Local   1:    U    \n   TCLIPGET:VARGET\n     Local   1:    O    Class: TCLIPGET\n     Local   2:    U    \n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n   (b)GET:GET\n     Param   1:    O    Class: TCLIPGET\n     Local   1:    U    \n     Local   2:    O    Class: TCLIPGET\n     Local   3:    U    \n     Local   4:    O    Class: TCLIPGET\n   TCLIPGET:UPDATEBUFFER\n   TBTNGET:LOSTFOCUS\n     Param   1:    N    2229090\n     Local   1:    O    Class: TGET\n   TBTNGET:KILLFOCUS\n     Param   1:    N    2229090\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n   TCONTROL:HANDLEEVENT\n     Param   1:    N    8\n     Param   2:    N    2229090\n     Param   3:    N    0\n     Local   1:    O    Class: TGET\n   TBTNGET:HANDLEEVENT\n     Param   1:    N    8\n     Param   2:    N    2229090\n     Param   3:    N    0\n     Local   1:    O    Class: TGET\n     Local   2:    U    \n   _FWH\n     Param   1:    N    0\n     Param   2:    N    8\n     Param   3:    N    2229090\n     Param   4:    N    0\n     Param   5:    N    25\n     Local   1:    O    Class: TGET\n   SENDMESSAGE\n     Param   1:    N    2229090\n     Param   2:    N    545\n     Param   3:    N    5309266\n     Param   4:    U    \n   (b)TWINDOW:TWINDOW\n     Param   1:    O    Class: TMDICLIENT\n     Param   2:    N    545\n     Param   3:    N    5309266\n     Local   1:    U    \n   TMDICLIENT:SENDMSG\n     Param   1:    N    545\n     Param   2:    N    5309266\n   TMDICLIENT:CHILDCLOSE\n     Param   1:    O    Class: TMDICHILD\n     Local   1:    O    Class: TMDICLIENT\n     Local   2:    N    1\n   TMDICHILD:END\n     Local   1:    O    Class: TMDICHILD\n     Local   2:    L    .T.\n   TMDICHILD:SYSCOMMAND\n     Param   1:    N    61536\n     Param   2:    N    7340791\n     Local   1:    O    Class: TMDICHILD\n     Local   2:    U    \n     Local   3:    U    \n   TWINDOW:HANDLEEVENT\n     Param   1:    N    274\n     Param   2:    N    61536\n     Param   3:    N    7340791\n   TMDICHILD:HANDLEEVENT\n     Param   1:    N    274\n     Param   2:    N    61536\n     Param   3:    N    7340791\n     Local   1:    O    Class: TMDICHILD\n   _FWH\n     Param   1:    N    7340791\n     Param   2:    N    274\n     Param   3:    N    61536\n     Param   4:    N    7340791\n     Param   5:    N    13\n     Local   1:    O    Class: TMDICHILD\n   WINRUN\n     Param   1:    N    9830930\n   TMDIFRAME:ACTIVATE\n     Param   1:    C    \"MAXIMIZED\"\n     Param   2:    U    \n     Param   3:    U    \n     Param   4:    U    \n     Param   5:    U    \n     Param   6:    U    \n     Param   7:    U    \n     Param   8:    B    {|| ... }\n     Param   9:    U    \n     Param  10:    U    \n     Param  11:    U    \n     Param  12:    U    \n     Param  13:    U    \n     Param  14:    U    \n     Param  15:    U    \n     Param  16:    U    \n     Param  17:    U    \n     Param  18:    U    \n     Param  19:    U    \n     Local   1:    O    Class: TMDIFRAME\n     Local   2:    U    \n     Local   3:    U    \n   MAIN\n     Local   1:    C    \"C:\\belen\\BASES\"\n     Local   2:    O    Class: TSBAR\n     Local   3:    U    \n     Local   4:    U    \n     Local   5:    U    \n     Local   6:    U    \n     Local   7:    U    \n     Local   8:    U    \n     Local   9:    U    \n     Local  10:    U    \n     Local  11:    O    Class: TMSGITEM\n     Local  12:    U    \n     Local  13:    O    Class: TFONT\n     Local  14:    O    Class: TBRUSH\n\nLinked RDDs\n===========\n   DBF\n   DBFFPT\n   DBFCDX\n   DBFBLOB\n\nDataBases in use\n================\n\nClasses in use:\n===============\n     1 HASHENTRY\n     2 HBCLASS\n     3 HBOBJECT\n     4 TBRUSH\n     5 TWINDOW\n     6 TMDIFRAME\n     7 TMENU\n     8 TMENUITEM\n     9 TCONTROL\n    10 TICON\n    11 TMDICLIENT\n    12 TFONT\n    13 TSBAR\n    14 TRECT\n    15 TSBUTTON\n    16 TBITMAP\n    17 ERROR\n    18 TMSGBAR\n    19 TMSGITEM\n    20 TTIMER\n    21 TDIALOG\n    22 TDATABASE\n    23 TMDICHILD\n    24 TSAY\n    25 TGET\n    26 TBTNGET\n    27 GET\n    28 TCLIPGET\n    29 TBTNBMP\n    30 TCOMBOBOX\n    31 TSBROWSE\n    32 TSCOLUMN\n    33 TSBSCRLBAR\n    34 TREG32\n\nMemory Analysis\n===============\n      177 Static variables\n\n   Dynamic memory consume:\n      Actual  Value:          0 bytes\n      Highest Value:          0 bytes\n\Z\n\nsi el DIALOG lo cierro con oDlg:end() se sale ok,., \n\nahora esta linea de error\nCalled from: mdi8.prg =&gt; (b)MCSPSFGMENORES(111)\n\ntengo esto en el PRG::\nREDEFINE BTNGET TgGet[01]  VAR oGmenore2:Idatencio  ID 200 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE \"9999999999\" \n\n\nalguien sabe de que se trata o le ha pasado lo mismo alguna vez..\n\nsi al rc,, le saco el ID 200,, y el prg quito la linea en cuestion todo anda bien,, \n\nhe tratado de: agregar un get con otro ID pero igual,, error\ncambio el campo en la DBF por si aca,, igual error\n\nnose que le paso al DATABASE o al RC que no quiere nada con ese GET\n\nAYUDA URGENTE:::','',0,'','3cawniwk',1,0,'',1072,0,0),(48000,9886,6,176,0,'201.255.177.143',1202736859,1,0,1,1,1,0,'','','Gracias Karinha pero me ha pasado que se corrompe el índice si hay un corte de corriente y al reanudar me tira error al buscar algún dato, por eso es que quiero saber al abrir la base de datos si el índice esta desordenado que me avise.\n\nManuel probé con tu solución pero no me resultó ó no la entiendo bien, hice lo siguiente\n\nuse Detemb \nDATABASE oDetemb\nbegin  Sequence\n  oDetemb:setorder(3)\nrecover\n  ? \"Base desordenada\"  // la idea es llamar a una  funcion que indexe\nEnd Sequence\n\n\nUn abrazo','',0,'','28q4slm1',1,0,'',176,0,0),(48001,9914,6,925,0,'200.72.82.234',1202738222,1,0,1,1,1,0,'','','gracias Antonio por responder.. \nutilizo fw 2.8  y  xharbour 0.99.61 simplex, lo extraño es que cuando pongo en archivo .rc la opcion  1 24  windowsxp.manifest se produce el\nproblema, yo para crear dialogos utilizo pellesc no se si eso te puede orientar..\ngracias','',0,'','2z7bt3sx',1,0,'',925,0,0),(48002,9886,6,1255,0,'189.128.26.214',1202741093,1,0,1,1,1,0,'','','[quote=&quot;surGom&quot;:1xcxgwr3]Manuel probé con tu solución pero no me resultó ó no la entiendo bien, hice lo siguiente\n\nuse Detemb \nDATABASE oDetemb\nbegin  Sequence\n  oDetemb:setorder(3)\nrecover\n  ? \"Base desordenada\"  // la idea es llamar a una  funcion que indexe\nEnd Sequence\n[/quote:1xcxgwr3][b:1xcxgwr3]Recover[/b:1xcxgwr3] recibe el control cuando se genera un error y con el código que muestras no se produce ninguno ya que no estás abriendo ningún índice.\noDetemb:setorder(3) no genera ningún error, simplemente no hace nada.\n\nSaludos.\nManuel Mercado','',0,'wA==','1xcxgwr3',1,0,'',1255,0,0),(48003,9886,6,362,0,'200.158.19.236',1202742797,1,0,1,1,1,1,'','','[quote=&quot;surGom&quot;:1t93duvu]Gracias Karinha pero me ha pasado que se corrompe el índice si hay un corte de corriente y al reanudar me tira error al buscar algún dato, por eso es que quiero saber al abrir la base de datos si el índice esta desordenado que me avise.\n\nManuel probé con tu solución pero no me resultó ó no la entiendo bien, hice lo siguiente\n\nuse Detemb \nDATABASE oDetemb\nbegin  Sequence\n  oDetemb:setorder(3)\nrecover\n  ? \"Base desordenada\"  // la idea es llamar a una  funcion que indexe\nEnd Sequence\n\n\nUn abrazo[/quote:1t93duvu]\n\nNo voy contestar el maestro Manoel Mercado, mas creo que en este caso, no hay indice corrupto.\n\nEl que debes hacer, és crear un FLAG en un BANCO DE DATOS, y al adentrar en el programa principal, PONER .F. en el dicho FLAG.\n\nAl salir, ponga .T., todas las veces que adentre al programa, checar se és .T. el FLAG, si no, envia una MENSAGERIA al usuario, para REINDEXAR los BANCOS DE DATOS.\n\ncompreendes?\n\nbest regards, saludos.','',0,'gA==','1t93duvu',1,0,'',362,0,0),(48004,9906,6,103,0,'189.12.219.53',1202744133,1,0,1,1,1,1,'','','Hola Alfredo,\n\n   Has mirado SQLLIB? (<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->). Funciona perfectamente con MySQL y PostGreSQL sin cambiar nada de tu codigo, pero es una opción mas barata.\n\nSaludos,','',0,'gA==','1t1cwwi2',1,0,'',103,0,0),(48005,9914,6,110,0,'148.168.40.4',1202744212,1,0,1,1,1,1,'','','verifica si el id de los say tienes valores diferentes a -1 que es lo normal para que tomen el color del fondo del dialogo.','',0,'gA==','16utcxa5',1,0,'',110,0,0),(48006,9902,3,6,0,'87.3.184.5',1202746102,1,0,1,1,1,1,'','','Ok, here it is:\n\n[code:3fku4bzs]#include &quot;Fivewin&#46;ch&quot;\n\n\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41;\n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n//\n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default\n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\n//\n// file access types\n//\n\n#define GENERIC_READ  2147483648\n#define GENERIC_WRITE 1073741824\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oPrg\n\n    DEFINE DIALOG oDlg\n\n    @ 2, 2 PROGRESS oPrg;\n           SIZE 100, 15\n\n    @ 3, 2 BUTTON &quot;FTP download&quot;;\n           ACTION DOWNLOAD&#40; oPrg &#41;\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DOWNLOAD&#40; oPrg &#41;\n\n    LOCAL hInternet, hConnect, hSource, hDest, nRead\n\n    LOCAL cData &#58;= SPACE&#40; 1024 &#41;\n\n    LOCAL nPos &#58;= 0\n\n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INTERNETCONNECT&#40; hInternet, &quot;myftpaddress&quot;, INTERNET_INVALID_PORT_NUMBER, &quot;myuserid&quot;, &quot;mypassword&quot;, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n    hDest = FTPOPENFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, GENERIC_WRITE, 0, 0 &#41;\n\n    oPrg&#58;SetPos&#40; 0 &#41;\n\n    oPrg&#58;SetRange&#40; 0, FSIZE&#40; &quot;atest&#46;prg&quot; &#41; &#41;\n\n    hSource = FOPEN&#40; &quot;atest&#46;prg&quot; &#41;\n\n    WHILE &#46;T&#46;\n        nRead = FREAD&#40; hSource, @cData, LEN&#40; cData &#41; &#41;\n\n        IF nRead = 0\n            IF FERROR&#40;&#41; = 0\n                ? &quot;Upload OK&quot;\n            ELSE\n                ? &quot;Read error&quot;\n            ENDIF\n\n            EXIT\n        ENDIF\n\n        IF !INTERNETWRITEFILE&#40; hDest, @cData, nRead &#41;\n            ? &quot;Upload error&quot;\n            EXIT\n        ENDIF\n\n        nPos += LEN&#40; cData &#41;\n\n        oPrg&#58;SetPos&#40; nPos &#41;\n    ENDDO\n\n    FCLOSE&#40; hSource &#41;\n\n    INTERNETCLOSEHANDLE&#40; hSource &#41;\n\n    INTERNETCLOSEHANDLE&#40; hConnect &#41;\n\n    INTERNETCLOSEHANDLE&#40; hInternet &#41;\n\n    RETURN NIL\n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; INTERNETOPEN &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetOpen&#40; hb_parc&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41;\n&#123;\n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCONNECT &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parc&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPOPENFILE &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; FtpOpenFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; FTPGETFILESIZE &#41;\n&#123;\n    DWORD nFileSizeHigh;\n\n    hb_retnl&#40; &#40; LONG &#41; FtpGetFileSize&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, &amp;nFileSizeHigh &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETREADFILE &#41;\n&#123;\n    DWORD nBytesRead;\n\n    BOOL lSuccess = InternetReadFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parclen&#40; 2 &#41;, &amp;nBytesRead &#41;;\n\n    if &#40; !lSuccess &#41;\n        hb_retnl&#40; -1 &#41;;\n    else\n        hb_retnl&#40; nBytesRead &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETWRITEFILE &#41;\n&#123;\n    DWORD nBytesWritten;\n\n    BOOL lSuccess = InternetWriteFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, &amp;nBytesWritten &#41;;\n\n    hb_retl&#40; lSuccess &#41;;\n&#125;\n\n#pragma ENDDUMP[/code:3fku4bzs]\n\nEMG','',0,'AIA=','3fku4bzs',1,1202830465,'',6,1,0),(48007,9916,6,110,0,'148.168.40.4',1202746232,1,0,1,1,1,1,'','','Error description: Error BASE/1004 Message not found: TDATABASE:IDATENCIO \n\noGmenore2:Idatencio \n\naca oGmenore2 en una variable que contiene un objeto database, donde una de las varen este caso Idatencio equivale al campo del mismo nombre.\n\nel error aparece por que por alguna razon oGmenore2 dejo de contener el objeto database original.','',0,'AIA=','18atk6us',1,0,'',110,0,0),(48008,9906,6,72,0,'189.146.238.71',1202746777,1,0,1,1,1,0,'','','No, no la he revisado.\n\nSucede que tengo un requerimiento para MS SQL Server y no vi esa opción en SQLLIB.\n\nHoy he realizado pruebas del mismo sistema con MySQL, MS SQL Server y PostgreSQL; todo parece funcionar.\n\nSi gustan probar la funcionalidad pueden enviarme un mensaje a mi privado y les mostraré un ejemplo.','',0,'AIA=','1ntiuvp4',1,0,'',72,0,0),(48009,9894,3,868,0,'219.64.121.60',1202747388,1,0,1,1,1,1,'','','Mr Ukoenig\n\nHere is a small program. This can tell if an NTX file does not belong to a DBF or it most probably can belong. If you like, please try and I hope we can improve on it\'s functionality.\n\n[code:3c1f4vyb]\n#include &quot;fivewin&#46;ch&quot;\n\nfunction main&#40;&#41;\n\n   local cdbf, cntx, cIndexExpr, cType\n\n   if ! Empty&#40; cdbf  &#58;= cGetFile&#40; &quot;Select DataBase &#40;*&#46;DBF&#41; |*&#46;dbf|&quot;, CURDIR&#40;&#41; &#41; &#41;\n      use &#40;cdbf&#41; new alias dbff\n      do while ! Empty&#40; cNtx &#58;= cGetFile&#40; &quot;Select Index &#40;*&#46;NTX&#41; |*&#46;ntx|&quot;, cFilePath&#40; cdbf &#41; &#41; &#41;\n         cIndexExpr  &#58;= GetIndexExpr&#40; cNtx &#41;\n         if ! Empty&#40; cIndexExpr &#41;\n            msginfo&#40; cIndexExpr, cNtx &#41;\n            cType    &#58;= Type&#40; cIndexExpr &#41;\n            if &#40; cType = &quot;U&quot; &#41;\n               MsgInfo&#40; cNtx + CRLF + &quot;DOES NOT MATCH&quot; + CRLF + cDbf, &quot;NO MATCH&quot; &#41;\n            else\n               MsgInfo&#40; cNtx + CRLF + &quot;Possible Index of&quot; + CRLF + cDbf, &quot;POSSIBLE&quot; &#41;\n            endif\n         else\n            msginfo&#40; &quot;Can not read index experession&quot; &#41;\n         endif\n      enddo\n   endif\n\nreturn nil\n\nstatic function GetIndexExpr&#40; cNtx &#41;\n\n   local hFile\n   local cBuf  &#58;= replicate&#40; chr&#40;0&#41;, 300 &#41;\n\n   hFile    &#58;= fopen&#40; cNtx &#41;\n   if ferror&#40;&#41; == 0\n      if fread&#40; hFile, @cBuf, 300 &#41; == 300\n         return trim&#40; substr&#40; cBuf, 23, 256 &#41; &#41;\n      endif\n      fclose&#40; hFile &#41;\n   endif\n\nreturn &quot;&quot;\n[/code:3c1f4vyb]\nI have tested on some very old NTX files and I am satisfied with the performance. I would be glad if you can give me your opinion.','',0,'AIA=','3c1f4vyb',1,0,'',868,0,0),(48010,9911,2,518,0,'189.170.54.137',1202747400,1,0,1,1,1,0,'','','Gracias Antonio,\n\nMe refiero a mandar llamar el programa de excel desde una aplicacion FW y que abra un archivo de excel simple y sencillo.\n\nGracias\n\nRene','',0,'AIA=','2xpaz67i',1,0,'',518,0,0),(48011,9911,2,228,0,'201.244.65.30',1202750741,1,0,1,1,1,1,'','Amigo...','Hazlo de la siguiente forma...\n\n[code:19wdjaff]\n\nShellExecute&#40; 0, &quot;Open&quot;, &quot;excel&#46;exe&quot;, &#41; \n\n[/code:19wdjaff]\n\nEspero te sirva','',0,'AIA=','19wdjaff',1,0,'',228,0,0),(48012,9906,6,348,0,'201.240.124.245',1202750938,1,0,1,1,1,0,'','','Holas Kleyber Derick \n\nUna consulta, el soporte y/o manuales que te brindan los de SQLLIB son en Castellano ?? , Que me dices de la performance a nivel de red local e Internet. ??\n\nLubin\n\n\n[quote=&quot;Kleyber&quot;:w8lm35qg]Hola Alfredo,\n\n   Has mirado SQLLIB? (<!-- w --><a class=\"postlink\" href=\"http://www.sqllib.com.br\">www.sqllib.com.br</a><!-- w -->). Funciona perfectamente con MySQL y PostGreSQL sin cambiar nada de tu codigo, pero es una opción mas barata.\n\nSaludos,[/quote:w8lm35qg]','',0,'gA==','w8lm35qg',1,0,'',348,0,0),(48013,9915,3,309,0,'194.204.28.27',1202751190,1,0,1,1,1,0,'','Re: Unresolved external symbol \'_GetGuiResources\'.','Me too.\nAny fix available?\n\nTaavi.\n\n\n[quote=&quot;Patrick Mast&quot;:1hhb5qh5]Antonio,\n\nI\'m keep getting:\n\nxLINK: error: Unresolved external symbol \'_GetGuiResources\'.\nxLINK: fatal error: 1 unresolved external(s).\n\nPatrick[/quote:1hhb5qh5]','',0,'gA==','1hhb5qh5',1,0,'',309,0,0),(48014,9917,6,1195,0,'190.38.60.167',1202752663,1,0,1,1,1,0,'','Maestros .... Una Inquietud con Windows Xp','Buenas Tardes  Foro,\n\n\nQuisiera bloquear la barra de tareas de windoes XP ( La linea Completa Donde se encuentra INICIO ) para que el usuario no se pueda salir de la aplicacion que desarrolle. \n\n\nAdemas No se si FHW 7.12 en el commando....\n\n   DEFINE WINDOW oWinMain,     tiene algun comando para bloquear la \"X\"\n\n\n\nDe Antemano muchas gracias por la ayuda,\n\n\nSaludos,\n\nAlbeiro,','',0,'gA==','1qd2o5q8',1,0,'',1195,0,0),(48015,9915,3,2,0,'87.218.146.59',1202754187,1,0,1,1,1,1,'','','Please link this library:\n\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/90976906/gui.lib.html\">http://rapidshare.com/files/90976906/gui.lib.html</a><!-- m -->','',0,'gA==','c7m5zizx',1,0,'',2,0,0),(48016,9909,3,2,0,'87.218.146.59',1202754270,1,0,1,1,1,1,'','','Thanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','3kmkxuht',1,0,'',2,0,0),(48017,9915,3,972,0,'78.21.224.104',1202754940,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:2m661ob5]Please link this library:\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/90976906/gui.lib.html\">http://rapidshare.com/files/90976906/gui.lib.html</a><!-- m -->[/quote:2m661ob5]\n\nOk, this fixes the unresolved symbol. Is this something that should go in FiveHCm.lib?\n\nPatrick','',0,'gA==','2m661ob5',1,0,'',972,0,0),(48018,9917,6,362,0,'200.158.19.236',1202755095,1,0,1,1,1,1,'','','[code:2hrjfa34]\nFUNCTION MAIN&#40;&#41;\n&#46;&#46;&#46;\n    ACTIVATE WINDOW oWnd MAXIMIZED                                           ;\n             ON INIT&#40; HIDETASKBAR&#40;&#41; &#41;\n\n&#46;&#46;&#46;\nRETURN NIL\n\n//--------------------------------------------------------------------------//\n\n/*\nSHOWTASKBAR&#40;&#41; // Habilita\nHIDETASKBAR&#40;&#41; // Desabilita\nTIRA_X&#40;&#41;      // Desabilita o X da Janela\nPISCA_EXE&#40;&#41;   // Vai Piscar o Seu EXE na Barra do Windows\n*/\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;shlobj&#46;h&quot;\n#include &quot;hbapi&#46;h&quot;\n#include &quot;math&#46;h&quot;\n#include &quot;hbvm&#46;h&quot;\n#include &quot;hbstack&#46;h&quot;\n#include &quot;hbapiitm&#46;h&quot;\n#include &quot;hbapigt&#46;h&quot;\n\nHB_FUNC &#40; SHOWTASKBAR &#41; //Habilita o botao INICIAR\n&#123;\nHWND hWnd = FindWindow&#40;&quot;Shell_TrayWnd&quot;, &quot;&quot;&#41;;\n\nShowWindow&#40; hWnd, 1 &#41;;\n&#125;\n\nHB_FUNC &#40; HIDETASKBAR &#41; //Desabilita o botao Iniciar\n&#123;\nHWND hWnd = FindWindow&#40;&quot;Shell_TrayWnd&quot;, &quot;&quot;&#41;;\n\nShowWindow&#40; hWnd, 0 &#41;;\n&#125;\n\nHB_FUNC &#40; PISCA_EXE &#41; // VAI PISCAR O SEU EXE NA BARRA\n&#123;\nHWND Handle = GetForegroundWindow&#40;&#41;;\n\nFlashWindow&#40;Handle,TRUE&#41;; // VAI PISCAR O SEU EXE NA BARRA\n\nSleep&#40;300&#41;; // TEMPO DE ESPERA\n&#125;\n\n\nHB_FUNC &#40; TIRA_X &#41; // DESABILITA O X da janela\n\n&#123;\nHMENU MenuH = GetSystemMenu&#40;GetForegroundWindow&#40;&#41;,FALSE&#41;;\n\nEnableMenuItem&#40;MenuH,SC_CLOSE,MF_GRAYED&#41;;\n&#125;\n\nHB_FUNC &#40; VOLTA_X &#41; // HABILITA O X da janela\n\n&#123;\nHMENU MenuH = GetSystemMenu&#40;GetForegroundWindow&#40;&#41;,TRUE&#41;;\n\nEnableMenuItem&#40;MenuH,SC_CLOSE,MF_GRAYED&#41;;\n&#125;\n\n#pragma ENDDUMP\n\n//--------------------------------------------------------------------------//\n[/code:2hrjfa34]','',0,'AIA=','2hrjfa34',1,0,'',362,0,0),(48019,9918,6,1173,0,'190.6.194.111',1202755275,1,0,1,1,1,1,'','Como evitar que un progama (exe) se ejecute mas de una vez ?','Saludos amigos del foro;  tengo esta inquietud para evitar que un programa (exe) se ejecuta en mas de una ocasion.\nMe sucede mucho con mis clientes, que al minimizar una de mis aplicaciones, vuelven a ejecutar una vez tras otra.\nCreo que lei algo por ahi, hace tiempo, pero no recuerdo donde...\n\nSaludos desde Honduras <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'AIA=','1bmk6wad',1,0,'',1173,0,0),(48020,9919,3,58,0,'84.149.92.48',1202755388,1,0,1,1,1,0,'','color of folder dialogs','Hi All,\n\ni would like to change the background color of a folder\'s subdialogs.\nThe default color is not suitable for the color of my TsButtons.\n\nHere a picture to see that the button color doesn\'t harmonize with the background.\n\n[img:2otb3knu]http&#58;//www&#46;d-hoefner&#46;de/files/fw_pic1&#46;gif[/img:2otb3knu]\n\nI tried with [code:2otb3knu]ACTIVATE DIALOG oDlg;\n      ON INIT aEval&#40; oFold&#58;aDialogs, &#123; | oD | oD&#58;SetColor&#40; GetSysColor&#40; COLOR_BTNTEXT &#41;, GetSysColor&#40; COLOR_BTNFACE &#41; &#41; &#125; &#41;[/code:2otb3knu]But no success.\n\nThe use of WindowsXP.Manifest seems to be the cause of not changing colors.\nBut without this theme all other buttons look very \'vintage\' <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? --> .\n\nIs there a way to get other background colors?\n\nThanks for every idea in advance.\nDetlef','',0,'CIA=','2otb3knu',1,0,'',58,0,0),(48021,9918,6,1236,0,'200.146.117.122',1202755608,1,0,1,1,1,0,'','','function main()\n\nIF ISEXERUNNING( CFILENAME( HB_ARGV( 0 ) ) )\n   msginfo(\"SGR JÁ ESTÁ SENDO EXECUTADO !!!\")\n   RETURN\nENDIF\n\n...\n\nreturn(nil)\n\n\n\nEspero ter ajudado!','',0,'CIA=','3rehhlqv',1,0,'',1236,0,0),(48023,9919,3,303,0,'72.220.181.80',1202757448,1,0,1,1,1,0,'','','Detlef,\n\nChanging the dialog color to gray will also look vintage and it won\'t change the fact that the current buttons and icons look vintage.\n\nI would suggest changing to standard text only buttons. These will inherit the theme and look much better.\n\nJames','',0,'CIA=','10fh0r19',1,0,'',303,0,0),(48024,9919,3,58,0,'84.149.92.48',1202758342,1,0,1,1,1,0,'','','James,\n\ni\'ll think about your suggest.\n\nDo yo know a way to add a menu to a button like in my picture? \nThis was very easy with TsButton.\n\nRegards,\nDetlef','',0,'CIA=','21loczvc',1,0,'',58,0,0),(48025,9919,3,303,0,'72.220.181.80',1202758705,1,0,1,1,1,0,'','','Detlef,\n\n&gt;Do yo know a way to add a menu to a button like in my picture? \n&gt;This was very easy with TsButton.\n\nHmm. You can do it with a buttonbar button, but I have not tried it with a regular button. I do use TSButton myself--it is a nice class.\n\nHow many menu items do you have? If not too many, perhaps you could use a separate button for each instead.\n\nNote that buttons calling menus are not common except on toolbars so maybe it is better to avoid it if you can.\n\nAnother option would be a group box containing a combobox and a Print button.\n\nJames','',0,'CIA=','3ekr2jts',1,0,'',303,0,0),(48026,9906,6,103,0,'189.12.219.53',1202762519,1,0,1,1,1,1,'','','[quote=&quot;lubin&quot;:c56dv4vx]Holas Kleyber Derick \n\nUna consulta, el soporte y/o manuales que te brindan los de SQLLIB son en Castellano ?? , Que me dices de la performance a nivel de red local e Internet. ??\n\nLubin\n\n[/quote:c56dv4vx]\n\nHola Lubin,\n\n    El soporte es en portugues y castellano, y el manual esta en portugues, pero en muy poco tiempo estara disponible tambien en ingles y castellano.\n\n   Sobre la performance, te comento que funciona en una red local con la misma velocidad que los dbfs en red local. En internet la velocidad es muy buena y funciona muy rapido. Logicamente que todo depiende de la estructura de la internet, pero funciona muy bien.\n\nSaludos,','',0,'gA==','c56dv4vx',1,0,'',103,0,0),(48027,9918,6,570,0,'200.117.51.4',1202763011,1,0,1,1,1,1,'','','Si se esta ejecutando sale y maximiza la aplicación abierta.-\n\n[code:xwh94ln2]\n*---------Chequer SI GESTIONER ESTA CARGADO ---\nIF IsExeRunning&#40; cFileName&#40; HB_ARGV&#40; 0 &#41; &#41; &#41;\n   ShowApplication&#40;&#41;\n	 QUIT\nENDIF\n*----------------------------------------------\n[/code:xwh94ln2]\n\n[code:xwh94ln2]\nFUNCTION ShowApplication&#40;&#41;\n\nLOCAL hWnd &#58;= FindWnd&#40;&quot;Titulo Ventana Principal&quot;&#41;\n\nIF hWnd != nil\n	 IF isIconic&#40; hWnd &#41;\n	 		showWindow&#40; hWnd, SW_RESTORE &#41;\n	 ENDIF\n   SetForeGroundWindow&#40; hWnd &#41;\nENDIF\n\nRETURN NIL\n[/code:xwh94ln2]','',0,'AIA=','xwh94ln2',1,0,'',570,0,0),(48028,9920,1,819,0,'67.187.239.90',1202765006,1,0,1,1,1,0,'','Printing Logo and Barcode on reciepts','FW,\n\nIs there a way we can print graphics like company logo and barcodes on reciept printers (Sure mark 4610)\n\nThanks,\n\nJose','',0,'AIA=','2q7mimlm',1,0,'',819,0,0),(48029,9915,3,2,0,'87.218.146.240',1202765054,1,0,1,1,1,1,'','','Patrick,\n\n&gt; Is this something that should go in FiveHCm.lib? \n\nNo, as it is an import library. It does not contains code.\n\nIt should be provided in the import libraries of the C compiler that you are using.','',0,'AIA=','3tge9bj2',1,0,'',2,0,0),(48030,9908,16,2,0,'87.218.146.240',1202765894,1,0,1,1,1,1,'','','Febrero 2008\n==========\n\n* Mejora: La clase TTabs usa ahora la apariencia de Office 2007. Por favor, revisa el ejemplo samples\\TestTabs.prg. Tiene una apariencia muy elegante !!!\n\n* Corrección: El método PaintFooter() de la clase TXBrwColumn no estaba usando la fuente correcta. Ahora lo hace correctamente.\n\n* Mejora: La clase TOutLook2003 tiene un nuevo DATA, nOption. Se encarga de mantener el grupo actual seleccionado.\n\n* Mejora: La clase TBar no estaba usando la DATA bPainted si se usaba la clausula 3D. Ahora lo hace correctamente.\n\n* Mejora: Nuevo método Refresh() en la clase TXBrowse.\n\n* Mejora: La documentación ha sido actualizada y mejorada !!! Lo puedes comprobar a continuación:\n\n***** DOCUMENTACION *****\n\n* Nuevas funciones documentadas en FWFun.chm:\n\nAbortDoc()\nCodeText()\nComDlgXErr()\nCreateEnhMetaFile()\nDecodeText()\nDrawState()\nExtractLine()\nFileTimeToDate()\nFileTimeToTime()\nGetLogicalDrives()\nGetNMHDRCode()\nGetNMHDRHWndFrom()\nGetNMHDRIdFrom()\nGetNMHeaButton()\nGetNMHeaItem()\nGetNMListViewItem()\nGetTimePick()\nHeaderGet()\nHeaderIns()\nHeaderLayout()\nHeaderSet()\nIlLoadImage()\nIsAppThemed()\nIsInternet()\nIsWin64()\nIsWinVista()\nMsgCalc()\nPageGetMargins()\nPageSetup()\nPrnGetCollate()\nPrnGetPagNums()\nPrnGetSelection()\nPrnStatus()\nRegEnumValue()\nSetBalloon()\nSetGetColorFocus()\nSetTimePick()\nShowIP()\nStretchBlt()\nTabGetRowCount()\nTimeZone()\nTransBmp()\nTvGetCheck()\nTvGetParent()\nTvIParam()\nTvSetCheck()\nTvSetColor()\nTvSetItemText()\nTvSetTextImage()\nVolumeName()\nWndBox2007()\nxBrJustify()\nxBrowseNew()\nxBrwAddColumn()\n\n* Documentación actualizada de las siguientes funciones en FWFun.chm:\n\ncTempFile()\nCtl3DLook()\nGetPrintDC()\nInvalidateRect()\nMenuMeasureItem()\nPlayEnhMetaFile()\nSetDatePick()\nWndCopy()\n\n* Nuevas clases documentadas en FwClass.chm:\n\nTActiveX\nTButtonBmp\nTHeader\nTOutLook2003\nTOutLook2003Group\nTPreview\nTTimePick\n\n* Nueva documentación para las clases:\n\nTAnimate\nTBtnBmp\nTComboBox\nTDBCombo\nTFTP\nTGet\nTImageList\nTMci\nTMultiGet\nTRichEdit\nTStatusBar\nTToolBar\nTTreeView\nTTVItem\nTVideo\nTXBrowse\nTXBrwColumn\n\n* Nuevos comandos documentados en FwCmd.chm:\n\nActiveX\nButtonBmp\nHeader\nImageList\nListView\nOutlook2003\nProgress\nReBar\nTabControl\nTMPicker\nToolbar\nTreeView\nXBrowse\n\n* Nueva documentación actualizada para los comandos:\n\nBar\nBtnBmp\nCursor\nDialogs\nImage\nMenu\nMsgBar\nPrinter\nRadioButtons\nVideo\n\n***** FIN DOCUMENTACION *****\n\n* Corrección: El método LButtonDown() de la clase TXBrowse no estaba mostrando correctamente el registro correcto bajo algunas circustancias. Ahora lo hace correctamente.\n\n* Mejora: La clase TButtonBmp no estaba usando la función upper() en la posición del texto. Ahora lo hace correctamente.\n\n* Mejora: La función GetNetCardID() ha sido mejorada para detectar más de un adaptador de red.Si se encuentra más de un adaptador devuelve una matriz (array). Si sólo encuentra uno, entonces devuelve un texto para mantener la compatibilidad. \n\n* Mejora: En MsgBar la clausula 2007 pinta correctamente los \"items\" sin el fondo gris previo.\n\n* Corrección: La función FixSays() interna de FWH no estaba funcionando correctamente cuando se usaba en diálogos y en previsualizaciones de impresión. Ahora lo hace correctamente.\n\n* Mejora: La clase TPreview está usando los nuevos \"bitmaps\" cuando usamos la clausula 2007.\n\n* Nuevo: Nueva función CursorNo(), pone el cursor \"prohibido\".\n\n* Mejora: El \"drag &amp; drop\" de Fivewin ha sido mejorado para usar CursorNo() cuando una ventana no accepta una operación \"drop\" desde\n  Fivewin. Por favor, revisa el ejemplo samples\\TestDrp3.prg.\n\n* Mejora: La clase TXBrowse ha sido mejorada para proporcionar mejor soporte para los comados de TWBrowse. Es la manera más fácil para \n  la transición de TWBrowse a TXBrowse.\n\n* Nuevo: La función GetGuiResources() devuelve la cantidad de objetos GDI en uso.','',0,'AIA=','32dvtl0h',1,0,'',2,0,0),(48031,9919,3,2,0,'87.218.146.240',1202766369,1,0,1,1,1,1,'','','Detlef,\n\nIf you are using themes in your dialogboxes, then you could use FWH TButtonBmp buttons that use themes and show bitmaps too.\n\nIf you want to keep using those buttons, and change the dialogs colors, then you need to change this:\n\noFolder:aDialogs[ n ]:bEraseBkGnd = nil\n\nor create a function DrawPBack() in your main PRG that fills the dialog the way you want. Please note how it is used from Class TFolder:\n\noDlg:bEraseBkGnd = { | hDC | DrawPBack( oDlg:hWnd, hDC ), 1 }','',0,'','1b5nhn5a',1,0,'',2,0,0),(48032,9910,6,2,0,'87.218.146.240',1202766464,1,0,1,1,1,1,'','','Ya está disponible la traducción al español de las caraterísticas de FWH 8.02:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=47945\">http://fivetechsoft.com/forums/viewtopic.php?p=47945</a><!-- m -->','',0,'','3ckrrn5m',1,0,'',2,0,0),(48033,9921,6,1178,0,'200.24.127.27',1202767014,1,0,1,1,1,0,'','porque el   STR(oDatos:RecordCount())  Con Mysql','Mi pregunta es la siguiente porque el commando ? STR(oDatos:RecordCount()) una vez hago la conexion con Mysql da negativo..\n\nAlgun colega del forums me podria facilitar un codigo para analizar completo utilizando conexion ADO con harbour utilizando el browser m modificar ,m adicionar regiastro etc.\n\nGracias , Abexo codigo\n\n\nFUNCTION MAIN() \nLocal oCon, oSql,oDatos,aDatos \n \noCon:=TOLEAUTO():New(\"adodb.connection\") \n\n\n oCon:OPEN(\"DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=192.168.10.1;DATABASE=basedatm;USER=root;PASSWORD=colomp\") \n oSql:ActiveConnection(oCon) \n oSql:CommandText:=\"Select * from ktipmod\" \n oDatos:=oSql:Execute() \n? STR(oDatos:RecordCount()) \n\n? STR(oDatos:Fields:Count()) \n\naDatos := {} \n\noDatos:MoveFirst() // equivale a GO TOP en un DBF \ndo while .not. oDatos:EOF() \n   AADD(aDatos, {oDatos:Fields(0):value,; \n                          oDatos:Fields(1):value,; \n                          oDatos:Fields(2):value,; \n                          oDatos:Fields(3):value}) \n     oDatos:MoveNext() // equivale un SKIP en un DBF \nenddo \nRETURN NIL','',0,'','zwxjncao',1,0,'',1178,0,0),(48034,9919,3,58,0,'84.149.126.73',1202767532,1,0,1,1,1,0,'','','Antonio,\n\nyour solution works fine.\nThanks a lot,\nDetlef','',0,'','147vyy9w',1,0,'',58,0,0),(48035,9919,3,58,0,'84.149.126.73',1202768076,1,0,1,1,1,0,'','','James,\n\nas usual you are right concerning the design rules of developing Window applications.\nBut  ( as usual too ) my boss wants the screens as they were before under 16bit FW except all other themed controls.\n\nIf i had time i would follow your direction and Antonio\'s advices about TButtonBmp to create a proper ui design.\n\nThanks and regards,\nDetlef','',0,'','38dduyok',1,0,'',58,0,0),(48036,9911,2,518,0,'189.170.54.137',1202768195,1,0,1,1,1,0,'','','Gracias Leandro, pero fijate que nohace nada.... que podra ser ?? tiene algo que ver los paths ?\n\npor que estoy intendando abrir cualquier archivo del directorio local para ver si ese es el problema pero nada.\n\nGracias','',0,'','5vp81hvt',1,0,'',518,0,0),(48037,9917,6,1195,0,'190.38.60.167',1202768254,1,0,1,1,1,0,'','','mil y mil gracias karinha,\n\nfunciono perfecto.\n\nDisculpa por Molestarte mas, pero se puede deshabilitar tambien la\nopcion de reducir la ventana ?\n\nde los Los Botones de la parte superior derecha de una ventana\n\n     [ minimiza ] / [ reduce ] / [ eXit ]\n\n\ndesde ya muchas gracias,\n\nAlbeiro,','',0,'','5vrxk4h8',1,0,'',1195,0,0),(48039,9919,3,303,0,'72.220.181.80',1202768751,1,0,1,1,1,0,'','','Detlef,\n\nThose pesky bosses...\n\nJames','',0,'','2aa225v1',1,0,'',303,0,0),(48040,9911,2,518,0,'189.170.54.137',1202769908,1,0,1,1,1,0,'','','Gracias Leandro... ya quedo... un error de dedo... muchas gracias','',0,'','2wmhk6up',1,0,'',518,0,0),(48041,9923,2,518,0,'189.170.54.137',1202770232,1,0,1,1,1,0,'','libreria filexls','Hola,\n\nComo puedo pasar parametros de configuracion de la pagina al archivo creado con filexls ?\n\npor ejemplo \n\nque la pagina sea horizonal y que se ajuste a una hoja por una hoja ?\n\nSe puede ?\n\nGracias','',0,'','3qh2dq8z',1,0,'',518,0,0),(48042,9898,3,49,0,'62.13.172.68',1202773910,1,0,1,1,1,1,'','','try it \n\n[code:4wkyq5oc]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\n\nSTATIC oDb, oRs\n\n\nFUNCTION Customer&#40;&#41;\n\n LOCAL aBrowse\n LOCAL nSplit &#58;=102\n LOCAL nOrder &#58;=1\n LOCAL nRecno &#58;=1\n LOCAL oDlg,oFont,oTab\n\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n    TRY\n    oRs&#58;Open&#40; &quot;SELECT * FROM Utenti ORDER BY COGNOME&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=ecom&#46;mdb&quot;, 1, 3 &#41;\n    CATCH oErr\n        ? oErr&#58;Description\n        RETURN NIL\n    END TRY\n\n   DEFINE FONT oFont NAME &quot;TAHOMA&quot; SIZE 0,-12\n   DEFINE DIALOG oDlg from 2,4 to 24,80;\n      TITLE &quot;test xbrowse with tabs with MDB&quot; ;\n      FONT oFont\n\n   oBrw                    &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   WITH OBJECT oBrw\n      &#58;nTop                &#58;=  10\n      &#58;nLeft               &#58;= 20\n      &#58;nBottom             &#58;= 150\n      &#58;nRight              &#58;= 300\n   END\n\n\n\n aBrowse   &#58;= &#123; &#123; &#123; || STR&#40; oRs&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value&#41; &#125;, i18n&#40;&quot;Codice&quot;&#41;, 50, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Nome&quot; &#41;&#58;Value &#125;, i18n&#40;&quot;Nome&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Cognome&quot; &#41;&#58;Value&#125;, i18n&#40;&quot;Cognome&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Via&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Indirizzo&quot;&#41;, 150, 0 &#125; ,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Civico&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Civico&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Citta&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Città&quot;&#41;, 150, 0 &#125;  ,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Provincia&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Prov&quot;&#41;, 150, 0 &#125;&#125;\n\n\n\n\n\n FOR i &#58;= 1 TO Len&#40;aBrowse&#41;\n      oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n      oCol&#58;bStrData &#58;= aBrowse&#91; i, 1 &#93;\n      oCol&#58;cHeader  &#58;= aBrowse&#91; i, 2 &#93;\n      oCol&#58;nWidth   &#58;= aBrowse&#91; i, 3 &#93;\n      oCol&#58;nDataStrAlign &#58;= aBrowse&#91; i, 4 &#93;\n      oCol&#58;nHeadStrAlign &#58;= aBrowse&#91; i, 4 &#93;\n   NEXT\n\n   oBrw&#58;SetADO&#40; oRs &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n\n\n   oBrw&#58;nRowHeight  &#58;= 21\n   oBrw&#58;nHeaderHeight  &#58;= 36\n\n\n\n @ oBrw&#58;nBottom+1,20 TABS oTab ;\n     OPTION nOrder SIZE oDlg&#58;nWidth&#40;&#41;-50, 12 PIXEL OF oDlg ;\n     ITEMS \' First \', \' Last \' ;\n     ACTION &#40; nOrder &#58;= oTab&#58;nOption  ,;\n              if&#40; norder=1, oRs&#58;Sort &#58;= \'ID\' ,oRs&#58;Sort &#58;= \'COGNOME\' &#41;,;\n              oRs&#58;MoveFirst&#40;&#41;         ,;\n              oBrw&#58;Refresh&#40;&#46;t&#46;&#41;     &#41;\n\n\n\n\n\n\n\n ACTIVATE DIALOG oDlg\nRETURN NIL\n\n[/code:4wkyq5oc]','',0,'AIA=','4wkyq5oc',1,0,'',49,0,0),(48043,9902,3,49,0,'62.13.172.68',1202775743,1,0,1,1,1,1,'','','Emg,\nthe download run ok \nbut the upload make me Upload Error \n\nwhy ?','',0,'AIA=','3bq5xolz',1,0,'',49,0,0),(48044,9909,3,69,0,'74.13.36.61',1202778613,1,0,1,1,1,1,'','','Hi Antonio,\n\nWould it be possible post the latest manuals?\n\nI have 7.12 but the most recent date in my manuals is 2006.','',0,'AIA=','2q1suhx3',1,0,'',69,0,0),(48045,9898,3,868,0,'219.64.121.60',1202780101,1,0,1,1,1,1,'','','Please insert this line \noRs:CursorLocation := 3 \njust after creating the recordset object\n[code:3kp2lrdl]\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n\n    oRs&#58;CursorLocation &#58;= 3    // insert this line here\n\n    TRY\n\n[/code:3kp2lrdl]\nNow please try','',0,'AIA=','3kp2lrdl',1,0,'',868,0,0),(48046,9917,6,1255,0,'201.122.38.237',1202781965,1,0,1,1,1,0,'','','[quote=&quot;albeiroval&quot;:13aza7jw]se puede deshabilitar tambien la\nopcion de reducir la ventana ?\nde los Los Botones de la parte superior derecha de una ventana[/quote:13aza7jw][code:13aza7jw]DEFINE WINDOW &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; NOMINIMIZE NOMAXIMIZE[/code:13aza7jw]Saludos\nManuel Mercado','',0,'gIA=','13aza7jw',1,0,'',1255,0,0),(48047,9855,3,190,0,'124.7.120.113',1202789836,1,0,1,1,1,0,'','','Hi\n\nHow to format a character data cell into a date data cell like this :\n\nfrom : 9/6/08\nto     : 09/06/2008 \n\n(with SET DATE BRIT and SET CENT ON format : dd/mm/yyyy) \n\nThanks \n\n- Ramesh Babu P','',0,'gIA=','7yychmv2',1,0,'',190,0,0),(48048,9855,3,868,0,'219.64.121.60',1202792134,1,0,1,1,1,1,'','','Mr RameshBabu\n\n[code:191eawrl]\noSheet&#58;Cells&#40; nRow, nCol &#41;&#58;Value &#58;= dDate  // Date type or DateTime type\noSheet&#58;Cells&#40; nRow, nCol &#41;&#58;Set&#40; &quot;&quot;NumberFormat&quot;,&quot;dd-mmm-yyyy&quot;&#41;\n   &#40; or lower&#40; SET&#40; _SET_DATEFORMAT&#41; &#41; &#41;\n// or\noSheet&#58;Columns&#40; nCol &#41;&#58;Set&#40; &quot;&quot;NumberFormat&quot;, &lt;yourformat&gt; &#41;\n[/code:191eawrl]\nBut when we assign a value to the cell, assign date variable directly.\nThis is the way we can format dates to our own user format.\n\nIf we set the format to \"m/d/yyyy\",  Excel will honour the format set in the windows configuration.\n\nBy the way, we have been living in the same city but never met each other or don\'t even know each other till now. Some day we should meet.','',0,'AIA=','191eawrl',1,0,'',868,0,0),(48049,9886,6,73,0,'201.127.72.173',1202796297,1,0,1,1,1,0,'','','Precisamente como te lo explica karinha , asi lo hago yo y me va bien, esto por si el sistema no tuvo una salida normal..\nsalu2\nPaco','',0,'AIA=','2e69rf73',1,0,'',73,0,0),(48050,9921,6,456,0,'217.127.39.57',1202802485,1,0,1,1,1,1,'','','Supongo que devuelve -1 porque el curosor del recordset debe estar definido del lado del servidor.\n\nPrueba el código que te propongo, deberia funcionarte bien. Yo no lo he probado con MySql, pero con otros motores va ok.\n\n[code:ub2ll0dp]\n#include &quot;Ado&#46;ch&quot;\nFUNCTION MAIN&#40;&#41; \nLocal oCon, oSql,oDatos,aDatos \n\noCon&#58;=TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41; \n\n\noCon&#58;OPEN&#40;&quot;DRIVER=&#123;MySQL ODBC 3&#46;51 DRIVER&#125;;SERVER=192&#46;168&#46;10&#46;1;DATABASE=basedatm;USER=root;PASSWORD=colomp&quot;&#41; \n\noDatos&#58;=tOleAuto&#40;&#41;&#58;New&#40;&quot;ADODB&#46;RecordSet&quot;&#41;\noDatos&#58;CursorLocation   &#58;= adUseClient\noDatos&#58;CursorType       &#58;= adOpenDynamic\noDatos&#58;LockType         &#58;= adLockOptimistic\noDatos&#58;ActiveConnection &#58;= oCon\noDatos&#58;Source           &#58;= &quot;Select * from kitpmod&quot;\noDatos&#58;Open&#40;&#41;\n\n? STR&#40;oDatos&#58;RecordCount&#40;&#41;&#41; \n\n? STR&#40;oDatos&#58;Fields&#58;Count&#40;&#41;&#41; \n\naDatos &#58;= &#123;&#125; \n\noDatos&#58;MoveFirst&#40;&#41; // equivale a GO TOP en un DBF \ndo while &#46;not&#46; oDatos&#58;EOF&#40;&#41; \nAADD&#40;aDatos, &#123;oDatos&#58;Fields&#40;0&#41;&#58;value,; \noDatos&#58;Fields&#40;1&#41;&#58;value,; \noDatos&#58;Fields&#40;2&#41;&#58;value,; \noDatos&#58;Fields&#40;3&#41;&#58;value&#125;&#41; \noDatos&#58;MoveNext&#40;&#41; // equivale un SKIP en un DBF \nenddo \nRETURN NIL[/code:ub2ll0dp]','',0,'AIA=','ub2ll0dp',1,0,'',456,0,0),(48051,9919,3,58,0,'84.149.125.82',1202802805,1,0,1,1,1,0,'','','James, \n\n[quote=&quot;James Bott&quot;:3guj51n8]Detlef,\n\nThose pesky bosses...\n\nJames[/quote:3guj51n8]\n\nyeah, i would like them to read some of your guides <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: --> ...\n\nDetlef','',0,'gA==','3guj51n8',1,0,'',58,0,0),(48052,9915,3,972,0,'78.21.224.104',1202803121,1,0,1,1,1,0,'','','[quote=&quot;Antonio Linares&quot;:22vdfoba]Patrick,\n\n&gt; Is this something that should go in FiveHCm.lib? \n\nNo, as it is an import library. It does not contains code.\nIt should be provided in the import libraries of the C compiler that you are using.[/quote:22vdfoba]\nOk, thank you. So, will we get a gui.lib for all next releases or will this be included n any of the standard FWH libs?\n\nPatrick','',0,'gA==','22vdfoba',1,0,'',972,0,0),(48053,9902,3,6,0,'87.18.239.80',1202805285,1,0,1,1,1,1,'','','I did not receive my crystal ball yet. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'gA==','3v1tszcd',1,0,'',6,0,0),(48054,9924,6,542,0,'80.30.42.1',1202807454,1,0,1,1,1,0,'','Imprimir JPG en Factura','Hola amigos:\nEstoy intentando imprimir una factura con la clase TPDF y a la hora de incluir los campos sale correcto pero cuando intento incluir detras una imagen JPG con las rallas y logos, esta no me sale, yo la instruccion que pongo es :\n\noPdf:PdfImage(\"Ruta\"+\"Fichero.jpg\",0,0,,,1,1)\n\nLa imagen la pongo y ya esta no la defino antes con la clase defiine image. Alguna ayuda o cmentario.\nUn Saludo\nCarlos','',0,'gA==','2qua3yp5',1,0,'',542,0,0),(48055,9898,3,49,0,'213.82.134.66',1202808174,1,0,1,1,1,1,'','','thanks now run ok','',0,'gA==','4eazvorg',1,0,'',49,0,0),(48056,9898,3,49,0,'213.82.134.66',1202808358,1,0,1,1,1,1,'','','THE PROBLEM IS ANOTHER :\n\nNOW i MUST  SORT  ON TWO FIELD :\n\n if( norder=1, oRs:Sort := \'ID\' ,oRs:Sort := \'COGNOME\' ),;\n\n\nBUT IF i MUST SORT ON MANY FIELDS HOW i CAN MAKE ?\n\ni NEED CREATE SOMETHING OF \n\n @ oBrw:nBottom+1,20 TABS oTab ;\n     OPTION nOrder SIZE oDlg:nWidth()-50, 12 PIXEL OF oDlg ; \n     ITEMS \' CODICE \', \' COGNOME \' ;\n     ACTION ( nOrder := oTab:nOption  ,[b:tbg7wy2x]oRs:sort:=nOrder[/b:tbg7wy2x]; \n              oRs:MoveFirst()         ,; \n              oBrw:Refresh(.t.)     )','',0,'QA==','tbg7wy2x',1,1202808505,'',49,2,0),(48057,9898,3,868,0,'219.64.121.60',1202808432,1,0,1,1,1,1,'','','oRs:Sort := \"ID,COGNOME\"','',0,'QA==','1v8zb0ru',1,0,'',868,0,0),(48058,9898,3,49,0,'213.82.134.66',1202808727,1,0,1,1,1,1,'','','ok but  I have a variable norder\n\nand this variable I must use with Tab noption\n\nthe sort read only the field name oRs:sort:=\"Id,cognome,nome\"\n\nbut there is not a command to sort on number of field ?\n\nsample \n\noRs:sort=norder\n\n\nI cannot use the fieldname because i must rewrite each program','',0,'QA==','f0fxcemp',1,0,'',49,0,0),(48059,9898,3,868,0,'219.64.121.60',1202809044,1,0,1,1,1,1,'','','&gt;\nbut there is not a command to sort on number of field ? \n&gt;\n\nNO\n\n&gt;\noRs:sort=norder \n&gt;\n\nInstead, you create an array of sort orders. example:\naOrders := { \"ID\", \"ONE,TWO\", \"ID,NAME DESC\", .... }\n\nthen depending on the option, say oRs:Sort := aOrders[oTabs:nOption]','',0,'','39u0q82s',1,0,'',868,0,0),(48060,9898,3,49,0,'213.82.134.66',1202809202,1,0,1,1,1,1,'','','ok this is a good idea  i try to improved it','',0,'','ibgti2lz',1,0,'',49,0,0),(48061,9920,1,2,0,'87.218.146.240',1202809574,1,0,1,1,1,1,'','','Jose,\n\nYou can print a logo using:\n\noPrinter:SayBitmap( nRow, nCol, cBitmap [, nWidth, nHeight, nRaster] )','',0,'','ztujc0g8',1,0,'',2,0,0),(48062,9920,1,2,0,'87.218.146.240',1202809687,1,0,1,1,1,1,'','','To use BarCodes see:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=3929\">http://fivetechsoft.com/forums/viewtopic.php?t=3929</a><!-- m -->','',0,'','3udojeb7',1,0,'',2,0,0),(48064,9909,3,2,0,'87.218.146.240',1202810869,1,0,1,1,1,1,'','','Jeff,\n\nWe are going to organize a way to download them, or we may email them','',0,'','2bmr8a39',1,0,'',2,0,0),(48065,9899,3,956,0,'189.22.134.133',1202811112,1,0,1,1,1,1,'','','up','',0,'','qzml18yg',1,0,'',956,0,0),(48066,9898,3,49,0,'213.82.134.66',1202812613,1,0,1,1,1,1,'','','ok this run ok \n[code:218uxccn]\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\n\nSTATIC oDb, oRs\n\n\nFUNCTION Customer&#40;&#41;\n\n LOCAL aBrowse\n LOCAL nSplit &#58;=102\n LOCAL nOrder &#58;=1\n LOCAL nRecno &#58;=1\n LOCAL oDlg,oFont,oTab\n\n Local aOrders &#58;= &#123; &quot;ID&quot;, &quot;NOME&quot;, &quot;COGNOME&quot;, &quot;CITTA&quot; &#125;\n\n    oRs = CREATEOBJECT&#40; &quot;ADODB&#46;Recordset&quot; &#41;\n    oRs&#58;CursorLocation &#58;= 3    // insert this line here\n    TRY\n    oRs&#58;Open&#40; &quot;SELECT * FROM Utenti ORDER BY COGNOME&quot;, &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=ecom&#46;mdb&quot;, 1, 3 &#41;\n    CATCH oErr\n        ? oErr&#58;Description\n        RETURN NIL\n    END TRY\n\n   DEFINE FONT oFont NAME &quot;TAHOMA&quot; SIZE 0,-12\n   DEFINE DIALOG oDlg from 2,4 to 24,80;\n      TITLE &quot;test xbrowse with tabs with MDB&quot; ;\n      FONT oFont\n\n   oBrw                    &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n   WITH OBJECT oBrw\n      &#58;nTop                &#58;=  10\n      &#58;nLeft               &#58;= 20\n      &#58;nBottom             &#58;= 150\n      &#58;nRight              &#58;= 300\n   END\n\n\n\n aBrowse   &#58;= &#123; &#123; &#123; || STR&#40; oRs&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value&#41; &#125;, i18n&#40;&quot;Codice&quot;&#41;, 50, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Nome&quot; &#41;&#58;Value &#125;, i18n&#40;&quot;Nome&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Cognome&quot; &#41;&#58;Value&#125;, i18n&#40;&quot;Cognome&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Via&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Indirizzo&quot;&#41;, 150, 0 &#125; ,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Civico&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Civico&quot;&#41;, 150, 0 &#125;,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Citta&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Città&quot;&#41;, 150, 0 &#125;  ,;\n                  &#123; &#123; || oRs&#58;Fields&#40; &quot;Provincia&quot; &#41;&#58;Value&#125; , i18n&#40;&quot;Prov&quot;&#41;, 150, 0 &#125;&#125;\n\n\n\n\n\n FOR i &#58;= 1 TO Len&#40;aBrowse&#41;\n      oCol &#58;= oBrw&#58;AddCol&#40;&#41;\n      oCol&#58;bStrData &#58;= aBrowse&#91; i, 1 &#93;\n      oCol&#58;cHeader  &#58;= aBrowse&#91; i, 2 &#93;\n      oCol&#58;nWidth   &#58;= aBrowse&#91; i, 3 &#93;\n      oCol&#58;nDataStrAlign &#58;= aBrowse&#91; i, 4 &#93;\n      oCol&#58;nHeadStrAlign &#58;= aBrowse&#91; i, 4 &#93;\n   NEXT\n\n   oBrw&#58;SetADO&#40; oRs &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n\n\n   oBrw&#58;nRowHeight  &#58;= 21\n   oBrw&#58;nHeaderHeight  &#58;= 36\n\n\n\n @ oBrw&#58;nBottom+1,20 TABS oTab ;\n     OPTION nOrder SIZE oDlg&#58;nWidth&#40;&#41;-50, 12 PIXEL OF oDlg ;\n     ITEMS \' CODICE \', \'NOME\' ,\'COGNOME\';\n     ACTION &#40; nOrder &#58;= oTab&#58;nOption  ,;\n              oRs&#58;Sort &#58;= aOrders&#91;oTab&#58;nOption&#93;,;\n              oRs&#58;MoveFirst&#40;&#41;         ,;\n              oBrw&#58;Refresh&#40;&#46;t&#46;&#41;     &#41;\n\n\n\n\n\n\n\n ACTIVATE DIALOG oDlg\nRETURN NIL\n[/code:218uxccn]','',0,'AIA=','218uxccn',1,0,'',49,0,0),(48067,9902,3,49,0,'213.82.134.66',1202813374,1,0,1,1,1,1,'','','And if I must use a proxy account \nwich function I must use for this proxy to dowload/upload a file ?','',0,'AIA=','x6lbie08',1,0,'',49,0,0),(48068,9925,3,49,0,'213.82.134.66',1202814014,1,0,1,1,1,1,'','PROXY ACCESS','I must use ftp of Emg to download a file \nit run ok I have only problems with the upload \n\nWich command I must use to go out from proxy and then use ftp of Enrico ?\n\nthanks in advance','',0,'AIA=','3g7jweak',1,0,'',49,0,0),(48069,9902,3,161,0,'213.119.247.132',1202814370,1,0,1,1,1,0,'','','Hi,\n\nI must be missing something. I get this error:\n\n[code:3dn0kx59]Error&#58; Unresolved external \'InternetOpenA\' referenced from C&#58;\\FWH\\PROJECTS\\_TEST\n\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetCloseHandle\' referenced from C&#58;\\FWH\\PROJECTS\n\\_TEST\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetConnectA\' referenced from C&#58;\\FWH\\PROJECTS\\_T\nEST\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'FtpOpenFileA\' referenced from C&#58;\\FWH\\PROJECTS\\_TEST\\\nFTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'FtpGetFileSize\' referenced from C&#58;\\FWH\\PROJECTS\\_TES\nT\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetReadFile\' referenced from C&#58;\\FWH\\PROJECTS\\_T\nEST\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetWriteFile\' referenced from C&#58;\\FWH\\PROJECTS\\_\nTEST\\FTP\\OBJ\\MFTP&#46;OBJ[/code:3dn0kx59]\n\nRegards,\nMarc','',0,'AIA=','3dn0kx59',1,0,'',161,0,0),(48070,9925,3,6,0,'87.18.239.80',1202814407,1,0,1,1,1,1,'','Re: PROXY ACCESS','Try to specify the proxy name in the call to InternetOpen():\n\n[code:2sqndnii]hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_PROXY, &quot;your proxy name&quot;, 0, 0 &#41;[/code:2sqndnii]\n\nPlease note also the use of INTERNET_OPEN_TYPE_PROXY.\n\nEMG','',0,'AIA=','2sqndnii',1,0,'',6,0,0),(48071,9902,3,6,0,'87.18.239.80',1202814500,1,0,1,1,1,1,'','','[quote=&quot;Silvio&quot;:vuobvoq2]And if I must use a proxy account \nwich function I must use for this proxy to dowload/upload a file ?[/quote:vuobvoq2]\n\n[url:vuobvoq2]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?p=48068#48068[/url:vuobvoq2]\n\nEMG','',0,'kA==','vuobvoq2',1,0,'',6,0,0),(48072,9925,3,49,0,'213.82.134.66',1202814515,1,0,1,1,1,1,'','','ok but I must insert also mycoduser and mypass for this proxy , and the port number  ( my port is 8080) \n\nwhere i set all this ?','',0,'kA==','3964kpsb',1,0,'',49,0,0),(48073,9902,3,6,0,'87.18.239.80',1202814520,1,0,1,1,1,1,'','','[quote=&quot;Marc Vanzegbroeck&quot;:3a191fyz]Hi,\n\nI must be missing something. I get this error:\n\n[code:3a191fyz]Error&#58; Unresolved external \'InternetOpenA\' referenced from C&#58;\\FWH\\PROJECTS\\_TEST\n\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetCloseHandle\' referenced from C&#58;\\FWH\\PROJECTS\n\\_TEST\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetConnectA\' referenced from C&#58;\\FWH\\PROJECTS\\_T\nEST\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'FtpOpenFileA\' referenced from C&#58;\\FWH\\PROJECTS\\_TEST\\\nFTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'FtpGetFileSize\' referenced from C&#58;\\FWH\\PROJECTS\\_TES\nT\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetReadFile\' referenced from C&#58;\\FWH\\PROJECTS\\_T\nEST\\FTP\\OBJ\\MFTP&#46;OBJ\nError&#58; Unresolved external \'InternetWriteFile\' referenced from C&#58;\\FWH\\PROJECTS\\_\nTEST\\FTP\\OBJ\\MFTP&#46;OBJ[/code:3a191fyz]\n\nRegards,\nMarc[/quote:3a191fyz]\n\nYou have to link wininet.lib.\n\nEMG','',0,'gIA=','3a191fyz',1,0,'',6,0,0),(48074,9925,3,6,0,'87.18.239.80',1202814778,1,0,1,1,1,1,'','','I don\'t think you have to provide them. Anyway, FTP functions doesn\'t seem to require userid and password of the proxy.\n\nEMG','',0,'gIA=','2skpxlo2',1,0,'',6,0,0),(48075,9899,3,2,0,'87.218.146.240',1202815944,1,0,1,1,1,1,'','','We are checking it, and it looks as the button just gets the focus but the action is not fired.\n\nWM_COMMAND is not sent and neither WM_SYSCOMMAND...\n\nStill looking for a solution','',0,'gIA=','5h07dz55',1,0,'',2,0,0),(48076,9926,6,1206,0,'213.97.245.163',1202816626,1,0,1,1,1,0,'','PROBLEMAS CON TRAS() O RASDIAL()','He probado con los ejemplos que vienen en FW y ninguno me funciona ninguno.\n\nEl ejemplo que viene en samples, me da el error 632. \nLas datas imputadas en este ejemplo son, ventana,telefono,nombre usuario y contraseña.\n\nEn cambio en el ejemplo que viene samples\\ras32 (RASDIAL()), este en cambio invoca al acceso telefonico creado y funciona la primera vez, si lo vuelvo a ejecutar no funciona.\nQue raro verdad?\n\nTiene alguien algun ejemplo que funcione en 32 bit\n\nMuchas gracias\nFW707  y Xharbour','',0,'gIA=','32v8kgl8',1,0,'',1206,0,0),(48077,9902,3,161,0,'213.119.247.132',1202816773,1,0,1,1,1,0,'','','Thanks, now it\'s working.\n\nMarc','',0,'gIA=','2gznsmez',1,0,'',161,0,0),(48078,9918,6,362,0,'200.158.19.185',1202816863,1,0,1,1,1,1,'','','Por favor, donde esta esto?  FindWnd ????? Esto nos es una FUNCTION()???\n[code:1f5cino2]\n    LOCAL hWnd &#58;= FindWnd&#40; &quot;Titulo Ventana Principal&quot; &#41;\n[/code:1f5cino2]','',0,'AIA=','1f5cino2',1,0,'',362,0,0),(48079,9886,6,176,0,'201.255.190.167',1202818229,1,0,1,1,1,0,'','','Pensé que había alguna forma simple para hacerlo. Utilizo el dbwide (excelente manejador de bases dbf creado por Daniel Andrade), en el cual cuando selecciono abrir el índice (cdx en mi caso), y está desindexado me aparece un aviso informandome de ello. Hice la prueba dentro del mismo de borrar registros estando el índice cerrado y cuando lo abría saltaba el mensaje error de índice. Por eso mi consulta, si está hecho pensaba que la solución era algún algoritmo que yo no podía resolver, e indudablemente es así.\n\nGracias por responderme.','',0,'AIA=','1jpzjulz',1,0,'',176,0,0),(48080,9912,3,868,0,'219.64.121.60',1202818303,1,0,1,1,1,1,'','','Mr Antonio\n\nSorry to bother you again. I read the source code of the library functions again and again. I do not see any logical reason why we do not get the correct coordinates from the windows api. If this is a problem with windows api, even programmers working in other development platforms should have complained about it. \n\nHas any FWH developer faced the problem of inaccuracy without applying the  correction? Or are we carrying the correction from an old legacy which may not be required now.  In any case how can the screen coordinates be negative?\n\nIn any case, I do not think we should correct if coordinates returned by ScreenToClient are negative, because they can be negative if the point is ouside the client.','',0,'AIA=','3hyr1mxx',1,0,'',868,0,0),(48081,9918,6,570,0,'200.117.51.4',1202818346,1,0,1,1,1,1,'','','aca va saludos,\n\n\n[code:1bmavptb]\n*---------------------------------------------------------*\nFUNCTION FindWnd&#40; cTitle &#41;\n\nLOCAL hWnd &#58;= GetWindow&#40; GetDesktopWindow&#40;&#41;, GW_CHILD &#41;\n\nWHILE hWnd != 0\n      IF Upper&#40; cTitle &#41; $ Upper&#40; GetWindowText&#40; hWnd &#41; &#41;\n         RETURN hWnd\n			ENDIF\n      hWnd = GetWindow&#40; hWnd, GW_HWNDNEXT &#41;\nENDDO\n\nRETURN NIL\n[/code:1bmavptb]','',0,'AIA=','1bmavptb',1,0,'',570,0,0),(48082,9918,6,413,0,'195.55.176.112',1202818822,1,0,1,1,1,1,'','','Revisa en ejemplos ShowApp.prg alli la tienes','',0,'AIA=','23v6xsbk',1,0,'',413,0,0),(48083,9925,3,49,0,'213.82.134.66',1202818876,1,0,1,1,1,1,'','','EMG look this ... I add a dialog to your sample :\n\n[code:2759zfxm]\n\n#include &quot;Fivewin&#46;ch&quot;\n\n\n//\n// File attributes\n//\n\n#define FILE_ATTRIBUTE_READONLY  1\n#define FILE_ATTRIBUTE_HIDDEN    2\n#define FILE_ATTRIBUTE_SYSTEM    4\n#define FILE_ATTRIBUTE_DIRECTORY 16\n#define FILE_ATTRIBUTE_ARCHIVE   32\n#define FILE_ATTRIBUTE_NORMAL    128\n#define FILE_ATTRIBUTE_TEMPORARY 256\n\n\n//\n// access types for InternetOpen&#40;&#41; \n//\n\n#define INTERNET_OPEN_TYPE_PRECONFIG                    0   // use registry configuration\n#define INTERNET_OPEN_TYPE_DIRECT                       1   // direct to net\n#define INTERNET_OPEN_TYPE_PROXY                        3   // via named proxy\n#define INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY  4   // prevent using java/script/INS\n\n\n// \n// manifests\n//\n\n#define INTERNET_INVALID_PORT_NUMBER    0           // use the protocol-specific default \n\n#define INTERNET_DEFAULT_FTP_PORT       21          // default for FTP servers\n#define INTERNET_DEFAULT_GOPHER_PORT    70          //    &quot;     &quot; gopher &quot;\n#define INTERNET_DEFAULT_HTTP_PORT      80          //    &quot;     &quot; HTTP   &quot;\n#define INTERNET_DEFAULT_HTTPS_PORT     443         //    &quot;     &quot; HTTPS  &quot;\n#define INTERNET_DEFAULT_SOCKS_PORT     1080        // default for SOCKS firewall servers&#46;\n\n\n//\n// service types for InternetConnect&#40;&#41;\n//\n\n#define INTERNET_SERVICE_FTP     1\n#define INTERNET_SERVICE_GOPHER  2\n#define INTERNET_SERVICE_HTTP    3\n\n\n//\n// flags for FTP\n//\n\n#define INTERNET_FLAG_TRANSFER_ASCII  1\n#define INTERNET_FLAG_TRANSFER_BINARY 2\n\n\n//\n// file access types\n//\n\n#define GENERIC_READ  2147483648\n#define GENERIC_WRITE 1073741824\n\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oDlg, oPrg\n\n\n    // DATA\n\n    Local myftpaddress &#58;=space&#40;40&#41;\n    Local myuserid     &#58;=space&#40;30&#41;\n    Local mypassword   &#58;=space&#40;20&#41;\n    LOCAL mydirfrom    &#58;=&quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;\n    Local MyFIle       &#58;=&quot;emag&#46;mdb&quot;\n\n    // if use proxy\n    Local oChkProxy, lValue&#58;=&#46;f&#46;\n    Local MyProxy      &#58;=Space&#40;20&#41;\n    Local MyuserProxy  &#58;=Space&#40;20&#41;\n    Local MyProxyPAss &#58;=space&#40;20&#41;\n    Local MyPortProxy  &#58;=0\n\n\n    DEFINE DIALOG oDlg FROM 2,10 TO 24,90  ;\n    TITLE &quot;FTP TEST  of EMG&quot;\n\n\n   @ 0&#46;8,    2 SAY &quot;Ftp Address&#58; &quot;    OF oDlg\n   @ 1,    6 GET myftpaddress         OF oDlg  SIZE 100, 10\n\n   @ 1&#46;8,  2 SAY &quot;My userid &#58; &quot;        OF oDlg\n   @ 2,  6 GET myuserid               OF oDlg  SIZE 100, 10\n\n   @ 2&#46;5,  2 SAY &quot;My password &#58;  &quot;       OF oDlg\n   @ 3,  6 GET mypassword             OF oDlg  SIZE 100, 10\n\n   @ 3&#46;4,  2 SAY &quot;My dir From  &#58; &quot;       OF oDlg\n   @ 4,  6 GET mydirfrom              OF oDlg  SIZE 100, 10\n\n   @ 4&#46;8,  2 SAY &quot;My File &#58; &quot;           OF oDlg\n   @ 5&#46;6,  6 GET myfile               OF oDlg  SIZE 100, 10\n\n\n   // Proxy Use\n\n   @ 0&#46;2, 22 GROUP oGrp TO 6, 45 PROMPT &quot;Proxy use&quot;\n\n   @ 0&#46;8,  26 SAY &quot;Proxy Address&#58; &quot;    OF oDlg\n   @ 1,    26 GET myProxy              OF oDlg  SIZE 100, 10  WHEN   lValue\n   @ 1&#46;8,  26 SAY &quot;My ProxyID &#58; &quot;      OF oDlg\n   @ 2,    26 GET MyuserProxy          OF oDlg  SIZE 100, 10  WHEN   lValue\n   @ 2&#46;5,  26 SAY &quot;My Proxy Pass &#58;  &quot;  OF oDlg\n   @ 3,    26 GET MyProxyPAss          OF oDlg  SIZE 100, 10  WHEN   lValue\n   @ 3&#46;4,  26 SAY &quot;My Proxy Port  &#58; &quot;  OF oDlg\n   @ 4,    26 GET MyPortProxy          OF oDlg  SIZE 100, 10   WHEN   lValue\n   @ 4&#46;8,  26 CHECKBOX oChkProxy VAR lValue PROMPT &quot;&amp;Proxy use&quot; SIZE 100, 20 OF oDlg\n\n\n   // Tprogress\n    @ 7&#46;4, 2 PROGRESS oPrg;\n           SIZE 250, 15\n\n\n    @ 7&#46;5, 2 BUTTON &quot;FTP download&quot;;\n           ACTION DOWNLOAD&#40; oPrg &#41;\n\n    @ 7&#46;5, 21 BUTTON &quot;EXIT&quot;;\n           ACTION oDlg&#58;End&#40;&#41;\n\n\n    ACTIVATE DIALOG oDlg;\n             CENTER\n\n    RETURN NIL\n\n\nSTATIC FUNCTION DOWNLOAD&#40; oPrg &#41;\n\n    LOCAL hInternet, hConnect, hSource, hDest, nRead\n\n    LOCAL cData &#58;= SPACE&#40; 1024 &#41;\n\n    LOCAL nPos &#58;= 0\n\n    hInternet = INTERNETOPEN&#40; &quot;Anystring&quot;, INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 &#41;\n\n    hConnect = INTERNETCONNECT&#40; hInternet, myftpaddress, INTERNET_INVALID_PORT_NUMBER, myuserid, mypassword, INTERNET_SERVICE_FTP, 0, 0 &#41;\n\n    hSource = FTPOPENFILE&#40; hConnect, mydirfrom, GENERIC_READ, 0, 0 &#41;\n\n    oPrg&#58;SetPos&#40; 0 &#41;\n\n    oPrg&#58;SetRange&#40; 0, FTPGETFILESIZE&#40; hSource &#41; &#41;\n\n    hDest = FCREATE&#40; MyFIle&#41;\n\n    WHILE &#46;T&#46;\n        nRead = INTERNETREADFILE&#40; hSource, @cData &#41;\n\n        IF nRead = -1\n            ? &quot;Download error&quot;\n            EXIT\n        ENDIF\n\n        IF nRead = 0 \n            ? &quot;Download OK&quot;\n            EXIT\n        ENDIF \n\n        FWRITE&#40; hDest, cData, nRead &#41;\n\n        nPos += LEN&#40; cData &#41;\n\n        oPrg&#58;SetPos&#40; nPos &#41;\n    ENDDO \n\n    FCLOSE&#40; hDest &#41; \n\n    INTERNETCLOSEHANDLE&#40; hSource &#41; \n\n    INTERNETCLOSEHANDLE&#40; hConnect &#41;\n\n    INTERNETCLOSEHANDLE&#40; hInternet &#41;\n\n    RETURN NIL \n\n\n#pragma BEGINDUMP\n\n#include &quot;windows&#46;h&quot;\n#include &quot;wininet&#46;h&quot; \n#include &quot;hbapi&#46;h&quot;\n\n\nHB_FUNC&#40; INTERNETOPEN &#41;\n&#123;\n    hb_retnl&#40; &#40; LONG &#41; InternetOpen&#40; hb_parc&#40; 1 &#41;, hb_parnl&#40; 2 &#41;, hb_parc&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCLOSEHANDLE &#41;\n&#123;\n    hb_retl&#40; InternetCloseHandle&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41; &#41; &#41;;\n&#125;\n\n\nHB_FUNC&#40; INTERNETCONNECT &#41; \n&#123; \n    hb_retnl&#40; &#40; LONG &#41; InternetConnect&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, &#40; INTERNET_PORT &#41; hb_parnl&#40; 3 &#41;, hb_parc&#40; 4 &#41;, hb_parc&#40; 5 &#41;, hb_parnl&#40; 6 &#41;, hb_parnl&#40; 7 &#41;, hb_parnl&#40; 8 &#41; &#41; &#41;; \n&#125; \n\n\nHB_FUNC&#40; FTPOPENFILE &#41; \n&#123; \n    hb_retnl&#40; &#40; LONG &#41; FtpOpenFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parnl&#40; 3 &#41;, hb_parnl&#40; 4 &#41;, hb_parnl&#40; 5 &#41; &#41; &#41;; \n&#125; \n\n\nHB_FUNC&#40; FTPGETFILESIZE &#41; \n&#123; \n    DWORD nFileSizeHigh; \n\n    hb_retnl&#40; &#40; LONG &#41; FtpGetFileSize&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, &amp;nFileSizeHigh &#41; &#41;; \n&#125; \n\n\nHB_FUNC&#40; INTERNETREADFILE &#41; \n&#123; \n    DWORD nBytesRead; \n\n    BOOL lSuccess = InternetReadFile&#40; &#40; HINTERNET &#41; hb_parnl&#40; 1 &#41;, hb_parc&#40; 2 &#41;, hb_parclen&#40; 2 &#41;, &amp;nBytesRead &#41;; \n\n    if &#40; !lSuccess &#41; \n        hb_retnl&#40; -1 &#41;; \n    else \n        hb_retnl&#40; nBytesRead &#41;; \n&#125; \n\n#pragma ENDDUM[/code:2759zfxm]','',0,'AIA=','2759zfxm',1,0,'',49,0,0),(48084,9918,6,41,0,'200.87.67.11',1202818892,1,0,1,1,1,0,'','Re: Como evitar que un progama (exe) se ejecute mas de una v','Hola,\n\nbusca la clase tmutex es para eso\n\nsaludos\n\nMarcelo\n\n[quote=&quot;Blessed&quot;:3epei74z]Saludos amigos del foro;  tengo esta inquietud para evitar que un programa (exe) se ejecuta en mas de una ocasion.\nMe sucede mucho con mis clientes, que al minimizar una de mis aplicaciones, vuelven a ejecutar una vez tras otra.\nCreo que lei algo por ahi, hace tiempo, pero no recuerdo donde...\n\nSaludos desde Honduras <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->[/quote:3epei74z]','',0,'gA==','3epei74z',1,0,'',41,0,0),(48085,3474,2,596,0,'85.62.69.206',1202819930,1,0,1,1,1,1,'','','Pues a mi no me sale el \"cInitialFile\".\nNi en XP ni en Win2000.\nCopiando o no copiando RunDlg32.exe.\n\n¡¡¡ Socorro !!!','',0,'gA==','bu99wb8v',1,0,'',596,0,0),(48086,3474,2,2,0,'87.218.146.240',1202820130,1,0,1,1,1,1,'','','JM,\n\nRunDlg32 es sólo para aplicaciones en 16 bits, no para FWH','',0,'gA==','91bxtqi6',1,0,'',2,0,0),(48087,3474,2,596,0,'85.62.69.206',1202820322,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:26twp555]RunDlg32 es sólo para aplicaciones en 16 bits, no para [b:26twp555]FWH[/b:26twp555][/quote:26twp555]\n\n¿ Y entonces como lo hago ?','',0,'wA==','26twp555',1,0,'',596,0,0),(48088,3474,2,2,0,'87.218.146.240',1202820899,1,0,1,1,1,1,'','','Usa cGetFile(). \n\ncGetFile32() es sólo para 16 bits.','',0,'wA==','h5cf68dk',1,0,'',2,0,0),(48089,9918,6,362,0,'200.158.19.185',1202821102,1,0,1,1,1,1,'','','[quote=&quot;GUSPRE&quot;:38jltui4]aca va saludos,\n\n\n[code:38jltui4]\n*---------------------------------------------------------*\nFUNCTION FindWnd&#40; cTitle &#41;\n\nLOCAL hWnd &#58;= GetWindow&#40; GetDesktopWindow&#40;&#41;, GW_CHILD &#41;\n\nWHILE hWnd != 0\n      IF Upper&#40; cTitle &#41; $ Upper&#40; GetWindowText&#40; hWnd &#41; &#41;\n         RETURN hWnd\n			ENDIF\n      hWnd = GetWindow&#40; hWnd, GW_HWNDNEXT &#41;\nENDDO\n\nRETURN NIL\n[/code:38jltui4][/quote:38jltui4]\n\nGracias amigo,\n\nAhora, tu respuesta esta completa.\n\nVery Good!\n\nSaludos.','',0,'gIA=','38jltui4',1,0,'',362,0,0),(48090,9886,6,362,0,'200.158.19.185',1202821926,1,0,1,1,1,1,'','','//-&gt; Mira este ejemplo... espero ayude:\n[code:22o8u1qt]\n\nREQUEST OrdKeyNo, OrdKeyCount, OrdKeyGoto\n\nFUNCTION MAIN&#40;&#41;\n\n    SELECT&#40; NOMBREBANCO &#41;\n    SET ORDER TO MIINDICE\n    GO TOP\n\n    If OrdkeyCount&#40;&#41; # RecCount&#40;&#41;\n\n        MIRACDX&#40;&quot;NOMBREBANCO&quot;&#41;\n\n    Endif\n\nRETURN NIL\n//\nStatic Function MIRACDX&#40; XARCHIVO &#41;\n\n    SndPlaySound&#40; &quot;Erro&#46;Wav&quot; &#41;\n\n    MsgInfo&#40;oemtoansi&#40;&quot;ATEN€ÇO !!! O Sistema Detectou Que Um dos Öndices do Arquivo&#58; &quot;+XARCHIVO+&quot;&#46;DBF&quot;  &#41;+CRLF+;\n            oemtoansi&#40;&quot;            Est  Corrompido ou Desatualizado&#46; Isto Ocorre as Vezes Por Queda&quot;    &#41;+CRLF+;\n            oemtoansi&#40;&quot;            de Energia ou Desligamento Incorreto do Computador&#46; Ser  Preciso&quot;    &#41;+CRLF+;\n            oemtoansi&#40;&quot;            Corrigir o Problema Para Evitar Erros na Opera‡Æo do Sistema&#46;&quot;       &#41;+CRLF+;\n            oemtoansi&#40;&quot;            O Programa Ser  Agora Conduzido Para a Rotina de Indexa‡Æo de Dados&#46;&quot;&#41;+CRLF+;\n            oemtoansi&#40;&quot;            Apenas Confirme a Op‡Æo de Indexa‡Æo&#46; Tecle Enter&#46;&#46;&#46;&quot;&#41;,;\n            oemtoansi&#40;&quot;Reorganiza‡Æo Obrigat¢ria dos Dados&quot;&#41;&#41;\n\n    DbCLoseAll&#40;&#41;\n\n    Reindexa&#40;0&#41;  //-&gt; Indexador\n\n    __Quit&#40;&#41;\n\nReturn Nil\n[/code:22o8u1qt]','',0,'AIA=','22o8u1qt',1,0,'',362,0,0),(48091,9899,3,956,0,'189.22.134.133',1202822300,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:10k0skd8]We are checking it, and it looks as the button just gets the focus but the action is not fired.\n\nWM_COMMAND is not sent and neither WM_SYSCOMMAND...\n\nStill looking for a solution[/quote:10k0skd8]\n\n\nThanks for reply','',0,'gA==','10k0skd8',1,0,'',956,0,0),(48092,9902,3,161,0,'213.119.247.132',1202822365,1,0,1,1,1,0,'','','Enrico,\n\nI found a little error in your upload example.\n\n[code:2rpmx4u5]hDest = FTPOPENFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, GENERIC_READ, 0, 0 &#41;[/code:2rpmx4u5]\n\nshould be\n\n[code:2rpmx4u5]hDest = FTPOPENFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, GENERIC_WRITE, 0, 0 &#41;[/code:2rpmx4u5]\n\nRegards,\nMarc','',0,'AIA=','2rpmx4u5',1,0,'',161,0,0),(48093,9912,3,303,0,'72.220.181.80',1202823288,1,0,1,1,1,0,'','','&gt;In any case how can the screen coordinates be negative? \n\nIf you draw or move items off the visible screen screen coordinates can be negative. \n\nJames','',0,'AIA=','2b9st7dy',1,0,'',303,0,0),(48094,9912,3,868,0,'219.64.121.60',1202823548,1,0,1,1,1,1,'','','&gt;\nf you draw or move items off the visible screen screen coordinates can be negative. \n&gt;\nYes','',0,'AIA=','2t311puq',1,0,'',868,0,0),(48095,9912,3,303,0,'72.220.181.80',1202823856,1,0,1,1,1,0,'','','NageswaraRao,\n\nI am not sure if you were confirming that you read my statement, or if you thought my statement was a question, and you were answering it?\n\nJames','',0,'AIA=','3p73teoa',1,0,'',303,0,0),(48096,9912,3,868,0,'219.64.121.60',1202823993,1,0,1,1,1,1,'','','I accepted and confirmed your statement Mr James. How could Mr James be wrong ?   <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3hyaxi4a',1,0,'',868,0,0),(48097,9914,6,925,0,'200.72.82.212',1202825887,1,0,1,1,1,0,'','','hola y gracias por responder , el tema debe ser un detalle minimo porque diseñe otra ventana y me funciona  bien.  Por el momento no aplicare en mi  programa los botones con apariencia xp hasta que pueda encontrar ese detalle, gracias carlos revise los id  y todos son 4001,4002 etc.  los cambie igual sigo con el problema ,Seguire buscando en cuanto encuentre el detalle lo publicare.\npablo <!-- s:? --><img src=\"{SMILIES_PATH}/icon_confused.gif\" alt=\":?\" title=\"Confused\" /><!-- s:? -->','',0,'AIA=','3hlvz2cj',1,0,'',925,0,0),(48098,9927,3,267,0,'201.9.119.195',1202827118,1,0,1,1,1,1,'','Problem with msgbar 2007','Antonio,\n\nWhen I add new item to msgbar does not adjust the previous text, being overlapped.\n\nBefore add new item\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/91193350/Clipboard1.jpg.html\">http://rapidshare.com/files/91193350/Cl ... 1.jpg.html</a><!-- m -->\n\nAfter add new item\n<!-- m --><a class=\"postlink\" href=\"http://rapidshare.com/files/91193715/Clipboard2.jpg.html\">http://rapidshare.com/files/91193715/Cl ... 2.jpg.html</a><!-- m -->\n\n[code:25w5agqy]\n#include &quot;FiveWin&#46;ch&quot;\n\nstatic oWnd\n\nfunction Main&#40;&#41;\n\n   local oBar, oPopup, oBtn\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH - Office 2007 look in your ButtonBars, MsgBar and Menus&quot; ;\n      MENU BuildMenu&#40;&#41;\n\n   DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007\n\n   DEFINE BUTTON oBtn OF oBar ACTION oBtn&#58;ShowPopup&#40;&#41; ;\n      RESOURCE &quot;people&quot; PROMPT &quot;Clients&quot; GROUP ;\n      MENU oPopup TOOLTIP &quot;Clients&quot;\n\n   DEFINE BUTTON OF oBar ACTION Test&#40;&#41; ;\n      RESOURCE &quot;print&quot; PROMPT &quot;Add New&quot; TOOLTIP &quot;Add New Item&quot;\n\n   SET MESSAGE OF oWnd TO &quot;Testing the ButtonBar 2007 Office look&quot; ;\n      CENTERED CLOCK KEYBOARD 2007\n\n   ACTIVATE WINDOW oWnd ;\n      VALID MsgYesNo&#40; &quot;Do you want to end?&quot; &#41;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu 2007\n      MENUITEM &quot;&amp;DataBases&quot;\n      MENU\n         MENUITEM &quot;&amp;Clients&#46;&#46;&#46;&quot; FILENAME &quot;&#46;&#46;\\bitmaps\\16x16\\favorite&#46;bmp&quot;\n         MENUITEM &quot;&amp;Report&#46;&#46;&#46;&quot;\n         MENU\n            MENUITEM &quot;&amp;One&#46;&#46;&#46;&quot; DISABLED\n            MENUITEM &quot;&amp;Two&#46;&#46;&#46;&quot; CHECKED\n            MENUITEM &quot;&amp;Three&#46;&#46;&#46;&quot; WHEN &#46;F&#46;\n         ENDMENU\n         SEPARATOR\n         MENUITEM &quot;&amp;End&quot; ACTION oWnd&#58;End&#40;&#41;\n      ENDMENU\n\n      MENUITEM &quot;Edit&quot; WHEN &#46;F&#46;\n\n      oMenu&#58;AddHelp&#40;&#41;\n\n      MENUITEM &quot;Another item&quot;\n   ENDMENU\n\nreturn oMenu\n\nfunction Test&#40;&#41;\nLOCAL oItem\n\n   oItem &#58;= TMsgItem&#40;&#41;&#58;New&#40; oWnd&#58;oMsgBar,&quot;Test New Item&quot;,oWnd&#58;oMsgBar&#58;GetWidth&#40;&quot;Test New Item&quot;&#41;*1&#46;20,,,,&#46;t&#46;,,,, &quot;Usuário Logado&quot; &#41;\n   oWnd&#58;oMsgBar&#58;Refresh&#40;&#41;\n\nreturn nil\n\n[/code:25w5agqy]','',0,'AIA=','25w5agqy',1,0,'',267,0,0),(48099,9912,3,303,0,'72.220.181.80',1202827260,1,0,1,1,1,0,'','','&gt;How could Mr James be wrong ?\n\nHa, I\'m happy if I\'m right 1 out of 10 times. And when programming 1 out of a hundred--and the computer will be sure to tell me when I am wrong. I figure the more times I am wrong the closer I get to being right.\n\nJames','',0,'AIA=','1stsp8qm',1,0,'',303,0,0),(48100,9927,3,868,0,'219.64.121.60',1202828680,1,0,1,1,1,1,'','','Your code works correctly for me\n[url=http&#58;//imageshack&#46;us:2nb2gckk][img:2nb2gckk]http&#58;//img352&#46;imageshack&#46;us/img352/2500/msgbarky0&#46;jpg[/img:2nb2gckk][/url:2nb2gckk]','',0,'GA==','2nb2gckk',1,0,'',868,0,0),(48101,9914,6,362,0,'200.158.19.185',1202828834,1,0,1,1,1,1,'','','//-&gt; Te Basta ANADIR Esto en Tu Archivo.Res\n//-&gt; Salve este como WINXP.RC - Modo texto y Incorpore.\n\n[code:19gf0xaa]\n1 24 LOADONCALL MOVEABLE NONDISCARDABLE \n&#123;\n \'3C 3F 78 6D 6C 20 76 65 72 73 69 6F 6E 3D 22 31\'\n \'2E 30 22 20 65 6E 63 6F 64 69 6E 67 3D 22 55 54\'\n \'46 2D 38 22 20 73 74 61 6E 64 61 6C 6F 6E 65 3D\'\n \'22 79 65 73 22 3F 3E 0D 0A 3C 61 73 73 65 6D 62\'\n \'6C 79 20 78 6D 6C 6E 73 3D 22 75 72 6E 3A 73 63\'\n \'68 65 6D 61 73 2D 6D 69 63 72 6F 73 6F 66 74 2D\'\n \'63 6F 6D 3A 61 73 6D 2E 76 31 22 20 6D 61 6E 69\'\n \'66 65 73 74 56 65 72 73 69 6F 6E 3D 22 31 2E 30\'\n \'22 3E 0D 0A 3C 61 73 73 65 6D 62 6C 79 49 64 65\'\n \'6E 74 69 74 79 0D 0A 20 20 20 20 74 79 70 65 3D\'\n \'22 77 69 6E 33 32 22 0D 0A 20 20 20 20 6E 61 6D\'\n \'65 3D 22 4D 79 4F 72 67 61 6E 69 7A 61 74 69 6F\'\n \'6E 2E 4D 79 44 69 76 69 73 69 6F 6E 2E 4D 79 41\'\n \'70 70 22 0D 0A 20 20 20 20 76 65 72 73 69 6F 6E\'\n \'3D 22 31 2E 30 2E 30 2E 30 22 0D 0A 20 20 20 20\'\n \'70 72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65\'\n \'63 74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20\'\n \'20 2F 3E 0D 0A 20 20 20 20 3C 64 65 73 63 72 69\'\n \'70 74 69 6F 6E 3E 56 65 72 62 61 6C 20 64 65 73\'\n \'63 72 69 70 74 69 6F 6E 20 6F 66 20 4D 79 41 70\'\n \'70 2E 3C 2F 64 65 73 63 72 69 70 74 69 6F 6E 3E\'\n \'0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65 6E 63\'\n \'79 3E 0D 0A 20 20 20 20 3C 64 65 70 65 6E 64 65\'\n \'6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20 20 20\'\n \'20 3C 61 73 73 65 6D 62 6C 79 49 64 65 6E 74 69\'\n \'74 79 0D 0A 20 20 20 20 20 20 20 20 74 79 70 65\'\n \'3D 22 77 69 6E 33 32 22 0D 0A 20 20 20 20 20 20\'\n \'20 20 6E 61 6D 65 3D 22 4D 69 63 72 6F 73 6F 66\'\n \'74 2E 57 69 6E 64 6F 77 73 2E 43 6F 6D 6D 6F 6E\'\n \'2D 43 6F 6E 74 72 6F 6C 73 22 0D 0A 20 20 20 20\'\n \'20 20 20 20 76 65 72 73 69 6F 6E 3D 22 36 2E 30\'\n \'2E 30 2E 30 22 0D 0A 20 20 20 20 20 20 20 20 70\'\n \'72 6F 63 65 73 73 6F 72 41 72 63 68 69 74 65 63\'\n \'74 75 72 65 3D 22 58 38 36 22 0D 0A 20 20 20 20\'\n \'20 20 20 20 70 75 62 6C 69 63 4B 65 79 54 6F 6B\'\n \'65 6E 3D 22 36 35 39 35 62 36 34 31 34 34 63 63\'\n \'66 31 64 66 22 0D 0A 20 20 20 20 20 20 20 20 6C\'\n \'61 6E 67 75 61 67 65 3D 22 2A 22 0D 0A 20 20 20\'\n \'20 2F 3E 0D 0A 20 20 20 20 3C 2F 64 65 70 65 6E\'\n \'64 65 6E 74 41 73 73 65 6D 62 6C 79 3E 0D 0A 20\'\n \'20 20 20 3C 2F 64 65 70 65 6E 64 65 6E 63 79 3E\'\n \'0D 0A 3C 2F 61 73 73 65 6D 62 6C 79 3E 0D 0A 0D\'\n \'0A\'\n&#125;\n[/code:19gf0xaa]','',0,'AIA=','19gf0xaa',1,0,'',362,0,0),(48102,9928,3,1257,0,'195.93.60.2',1202828893,1,0,1,1,1,1,'','2 Questions MDI / Outlook2003','Hello from Germany,\n\nDuring the testing of the new DB-Tools,\n2 small things i would like to change.\n\n1 When you create a MDI - Window, there is menue\n   Childs  Window  Help\n   Is it possible, to disable it ?\n\n2. In Outlook2003 i get a ugly black part \n    above the buttons,\n    where normaly should be a Child-Dialog\n    when i open a extern Dialog (Focus lost).\n    Is it possible, to get a background-color\n    for the black part ?\n    In the moment, the 1. Button on top of the Button-list\n    is a &lt;Dummy-button&gt; with a blank child.\n    I just do SetOption(1), before i carry on with \n    the selected function.\n    In this way the background is filled.\n\n[img:3qyj4z08]http&#58;//www&#46;pflegeplus&#46;com/pictures/outlook2&#46;jpg[/img:3qyj4z08]\n\nThank you <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> \nUwe\n\n','',0,'CA==','3qyj4z08',1,1202835927,'',1257,3,0),(48103,9929,6,1222,0,'85.155.80.226',1202828918,1,0,1,1,1,0,'','Impresion de informes (L&amp;L, PDF, Access, ...)?','Hasta ahora tenia un informe que es un impreso pre-impreso y que se rellenaba con una impresora matricial (oPrn:Say(...) ).Me ha surgido la necesidad de realizar el informe en A4 (completo), imprimirlo con laser que incluye campos, sus casillas, así como anagrama y texto en vertical. Consultando en este foro he visto una posible solución y es convertir el documento en pdf y rellenarlo con .xml:\n\n[code:u41gsj34]\n Local cFicheroXML&#58;= &quot;C&#58;\\Temp\\Prueba&#46;xml&quot; \n Local cLugarAcrobat&#58;=&quot;C&#58;\\Archivos de programa\\Adobe\\Reader 8&#46;0\\Reader\\AcroRd32&#46;exe /p/h&quot;\n \n Local Proceso &#58;= &quot;acrord32&#46;exe&quot;\n \n Winexec&#40;cLugarAcrobat+&quot; &quot;+cFicheroXML&#41;\n\n WaitSeconds&#40;10&#41;\n\n  if file&#40;&quot;KillProc&#46;exe&quot;&#41;\n      waitrun&#40;&quot;KillProc&#46;exe &quot; + &#91;&quot;&#93; + Proceso + &#91;&quot;&#93; ,1&#41;\n  end\n[/code:u41gsj34]\n\nCon esto abro el adobe reader, cargo el documento, imprimo y para cerrarlo, despues de 10 segundo utilizo una utilidad que tambien estaba mencionada en el foro.\nFunciona, pero es algo lenta y quisiera saber de algun generador de informes que permita realizar este tipo de informes pero teniendo un mayor control (copias,impresora,etc.). Alguien con experiencia con este tipo de informes, valoro incluso la posibilidad de comprar algun generador de informes pero manejable desde FWH.\n\nGracias de antemano a todos.\nUn cordial saludo.\n\nFW 8.01 + Harbour + Borland','',0,'AIA=','u41gsj34',1,0,'',1222,0,0),(48104,9840,6,975,0,'190.60.198.4',1202829302,1,0,1,1,1,0,'','','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> Gracias RenOmaS funcionó lo que nos dijiste.\n\n\n\nJhon.','',0,'AIA=','1hx1rqr7',1,0,'',975,0,0),(48105,9928,3,868,0,'219.64.121.60',1202829887,1,0,1,1,1,1,'','','There are two ways\n\nFirst :\n\nDEFINE WINDOW oWnd MDI MENU TMenu():New() \n\nMenubar itself will not appear\n\nSecond:\nDEFINE WINDOW oWnd MDI MakeMenu() ....\n\nfunc makemenu\n\nlocal omenu\n\nMENU omenu 2007\nMENUITEM \"\" DISABLED\nENDMENU\n\nreturn omenu\n\nNow a blank menubar appears','',0,'AIA=','1ckk49ml',1,0,'',868,0,0),(48106,9930,6,177,0,'194.30.62.6',1202829895,1,0,1,1,1,0,'','Macros en Excel','Buenas tardes,\n\nalguien ha cambiado el contenido de una variable de una macro de Excel desde un programa FWH ?\n\nTengo que cambiar en + de 1000 ficheros Excel una variable de una función y hacerlo a mano es muy costoso.\n\nAlguna idea ?\n\nSaludos,\n\nFélix','',0,'AIA=','hmgsmxua',1,0,'',177,0,0),(48107,9855,3,190,0,'221.134.246.198',1202830149,1,0,1,1,1,0,'','','Mr.Nageswara Rao\n\nThanks for your guidance.\n\n[quote:3s4n0rao]\nBy the way, we have been living in the same city but never met each other or don\'t even know each other till now. Some day we should meet.\n[/quote:3s4n0rao]\n\nIt is my pleasure.  Let me complement that your postings are more \nknowledge based and guiding.\n\nPlease check your inbox for my details.\n\nRegards,\n\n- Ramesh Babu P','',0,'gA==','3s4n0rao',1,0,'',190,0,0),(48108,9928,3,868,0,'219.64.121.60',1202830429,1,0,1,1,1,1,'','','We can not see your image. Can you post the correct link please ?','',0,'gA==','1m0xbrpl',1,0,'',868,0,0),(48109,9902,3,6,0,'87.18.239.80',1202830440,1,0,1,1,1,1,'','','[quote=&quot;Marc Vanzegbroeck&quot;:36kj1rua]Enrico,\n\nI found a little error in your upload example.\n\n[code:36kj1rua]hDest = FTPOPENFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, GENERIC_READ, 0, 0 &#41;[/code:36kj1rua]\n\nshould be\n\n[code:36kj1rua]hDest = FTPOPENFILE&#40; hConnect, &quot;/emagsoftware&#46;it/test/atest&#46;prg&quot;, GENERIC_WRITE, 0, 0 &#41;[/code:36kj1rua]\n\nRegards,\nMarc[/quote:36kj1rua]\n\nDamn! A copy and paste error! That explains why Silvio couldn\'t get my sample to work! Sorry <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->\n\nI\'m going to edit my message...\n\nEMG','',0,'gIA=','36kj1rua',1,0,'',6,0,0),(48110,9914,6,110,0,'148.168.40.4',1202830597,1,0,1,1,1,1,'','','Podrias poner el contenido del RC de la definicion de ese dialogo?\ncasi estoy seguro que los id de esos say es diferente de -1, si es asi\ntendrias que redefinir los say. si no lo quieres redefinir tienen que tener un valor de -1\n\nsalu2\ncarlos vargas','',0,'gIA=','2yl97r6s',1,0,'',110,0,0),(48111,9931,3,89,0,'213.21.136.60',1202832738,1,0,1,1,1,0,'','Error with xHArbour of FW8.02','With the xHArbour link with FW 8.02 I have this error \n\n Error DBFCDX/1012  Corruption detected: TEST1.cdx\n\n	#include \"Fivewin.ch\"\n	\n	Function MAin()\n	Local aDbf := {}\n	\n	REQUEST DBFCDX\n	\n	if ! file(\"TEST1.DBF\")\n	      aDbf := {}\n	         AADD (aDbf, {\"TEST\",     \"C\",  1 , 0 })    \n	         AADD (aDbf, {\"LOGI\",     \"L\",  1 , 0 })    \n	         dbcreate(\"TEST1\" , aDbf,\"DBFCDX\")\n	endif\n	if ! file(\"TEST1.CDX\")\n	      use (\"TEST1\")     via   \"DBFCDX\"\n	      index on field-&gt;TEST  tag I_TEST to (\"TEST1.CDX\") ;\n	          FOR field-&gt;LOGI == .T.\n	      USE\n	      use (\"TEST1\")     via   \"DBFCDX\"\n	         browse()\n	      USE\n	      \n	endif\n	\n	Return nil','',0,'gIA=','x02uaby0',1,0,'',89,0,0),(48112,9932,3,1231,0,'83.144.114.249',1202833116,1,0,1,1,1,1,'','Clipper 5.2e + COMIX application &amp; FWH','I have few old applications made in clipper 5.2e + comix. \n\nIs this safe to run at the same moment FWH application (xHarbour) on the same dbf and cdx files.?\n\nI use:\nSET DBFLOCKSCHEME TO 2\n\nWhat can I do to prevent dbf or cdx files damage?\nIs this possible to use both of systems in one time?\n\nRobert','',0,'gIA=','22igapei',1,0,'',1231,0,0),(48113,9931,3,3,0,'80.81.159.19',1202834079,1,0,1,1,1,1,'','Re: Error with xHArbour of FW8.02','Maurizio\n\nI haven\'t loaded fwh 8.02 yet but have you tried erasing the cdx index first ?\n\nHTH\n\nRichard','',0,'gIA=','12qs4ez2',1,0,'',3,0,0),(48114,9931,3,1257,0,'195.93.60.2',1202836457,1,0,1,1,1,1,'','Creating CDX syntax','I put a sample of my index-creation for\nCDX in the forum today.\nIt shows the syntax and informations\nof the structure, when it is done.\n\nRegards\nUwe','',0,'gIA=','2gii3fd3',1,0,'',1257,0,0),(48115,9927,3,267,0,'201.9.119.195',1202837893,1,0,1,1,1,1,'','','Hi,\n\nI use FWH 8.1, you tested with which?','',0,'gIA=','1vqkfkyt',1,0,'',267,0,0),(48116,9927,3,868,0,'219.64.121.60',1202838047,1,0,1,1,1,1,'','','fwh 8.02\nI think it should work with 8.01 also\nDid you press the button ?  Will you kindly try again?','',0,'gIA=','m0ua5z9x',1,0,'',868,0,0),(48117,9927,3,267,0,'201.9.119.195',1202838440,1,0,1,1,1,1,'','','I do not understand, I observe that itens of my msgbar(Caps, Ins, etc) are different of that you it generated!','',0,'gIA=','r0gi4r42',1,0,'',267,0,0),(48118,9931,3,868,0,'219.64.121.60',1202838500,1,0,1,1,1,1,'','','The problem is not with FWH. What Mr Maurizio says is he is getting this error after installing xHarbour provided with 8.02','',0,'gIA=','2tixxzk1',1,0,'',868,0,0),(48119,9927,3,868,0,'219.64.121.60',1202838547,1,0,1,1,1,1,'','','The new painting is from 8.02','',0,'gIA=','2o78mji0',1,0,'',868,0,0),(48120,9927,3,267,0,'201.9.119.195',1202838900,1,0,1,1,1,1,'','','Thanks.','',0,'gIA=','1a8xjxdl',1,0,'',267,0,0),(48121,9556,6,456,0,'217.127.39.57',1202839666,1,0,1,1,1,1,'','','Hola Rafa, has encontrado algo para harbour? \nLa clase que utilizas es tXml de Giancarlo Nicolai ?','',0,'gIA=','mf5q7k7l',1,0,'',456,0,0),(48122,9933,3,1257,0,'195.93.60.2',1202840179,1,0,1,1,1,1,'','A sample for building CDX-Files w. Syntax-Check','#include \"FiveWin.ch\"\n\n// Your SOFTWARE.exe\nc_dir	:= GetModuleFilename(GetInstance(),\"SOFTWARE.EXE\" + ;\nCHR(0), 255)\nc_pfad	:= left ( c_dir, rat( \"\\\", c_dir) -1 )\n\nREQUEST DBFCDX\nRDDSETDEFAULT( \"DBFCDX\" )\n\nDBFARRAY := {}\n// FIELDS DBCREATE(\"PRODUKT\"\n// --------------------------------------------\nAADD(DBFARRAY, { \"PRODUKT\",    \"C\", 60, 0 })\nAADD(DBFARRAY, { \"LEISTART\",   \"C\",  1, 0 })\nAADD(DBFARRAY, { \"LEISTNR\",    \"N\",  2, 0 })\n\nDBCREATE(\"&amp;c_pfad\\PRODUKT.DBF\", DBFARRAY, \"DBFCDX\", .t. )\nCLOSE DATABASE\n\n// Delete Old Index\n// ----------------------\nDELETE FILE \"&amp;c_pfad\\PRODUKT.CDX\"    // Indexname = DBFname, \n                                             // Two Index-Files in One ( Compound ) \n\n// INDEX SAMPLES :\n// ------------------------\n//	ORDCREATE(  ,\"PRODUKT\",\"LOWER(produkt)\", ;\n//	                     {|| LOWER(produkt) } , .T. )   // UNIQUE  ( .T. )\n// \n//      Needed together\n//      ---------------------\n// ORDCONDSET( , , , , , , , , , , .T. )        //  DOWN-index\n// ORDCREATE(  ,\"PRODUKT\",\"STR(leistnr)\", ;\n//                                    {|| STR(leistnr) } , .F. )\n// \n// Has to be LOWER !! because of  seek  =&gt;   ÄÖÜ\n// Use your Network-Function !!\n// ----------------------------------------\nif NET_USE(c_pfad + \"\\PRODUKT.DBF\",3,5,.f.)   \n// Creates a Compound-Index when =&gt; ORDCREATE(  ,\"........\n						\n// The Index will be open together with the DBF\n					\nORDCREATE(  ,\"PROD1\",\"LOWER(leistart) + str(leistnr) ;\n                 + str(produkt_nr)\", ;\n	               {|| LOWER(leistart) + str(leistnr) + ;\n                                     str(produkt_nr) } , .F. )\n    \n// Extra CDX-File\n// ORDCREATE( \"PRODUKT1\" ,\"PROD1\",\"LOWER(leistart) + ;\n                          str(leistnr) + str(produkt_nr)\", ;\n//                  {|| LOWER(leistart) + str(leistnr) + str(produkt_nr) } , .F. )\n\nORDCREATE(  ,\"PROD2\",\"LOWER(produkt)\", ;\n                                {|| LOWER(produkt) } , .F. )\nendif \n\n// Selects Index-Information\n//----------------------------------\nTERMARRAY := {}\n// Contents of the Compound-Index\n// -------------------------------------------\nAADD(TERMARRAY,  ;\n{ LTRIM(STR(ORDNUMBER(\"PROD1\"))), ;\n   ORDBAGNAME(1),  ORDNAME(1), ORDKEY(1),  ;\n   IIF(ORDISUNIQUE(1), \"UNIQUE\",\" \"), ORDFOR(1), ;\n   IIF( ORDDESCEND(1,ORDBAGNAME(1)), \"DOWN\", \"UP\") } )\n\nAADD(TERMARRAY, ;\n{ LTRIM(STR(ORDNUMBER(\"PROD2\"))), ;\n  ORDBAGNAME(2),  ORDNAME(2), ORDKEY(2), ;\n  IIF(ORDISUNIQUE(2), \"UNIQUE\",\" \"), ORDFOR(2), ;\n  IIF( ORDDESCEND(2,ORDBAGNAME(2)), \"DOWN\", \"UP\") } )\n\nSHOW_CDX()\n\nRETURN( NIL )\n\n//------ For Control ==&gt;  Is shown only, when the index is OK -----\n\nFUNCTION SHOW_CDX()\nlocal oDlg10, oBrw\n\nDEFINE DIALOG oDlg10 FROM 2, 2 TO 20, 105 TITLE \"Infos about FOXPRO-CDX-Index\"\n\n@ 0.5, 0.5 LISTBOX oBrw ;\nFIELDS \"\", \"\", \"\", \"\", \"\", \"\", \"\" ;\nHEADERS \"Order\", \"Prim.-Index\", \"Sec.-Index\", \"Expression\", \"Equal\", \"Filter\", \"Up / Down\" ;\nFIELDSIZES 40, 70 , 70, 300, 52, 190, 60 ;\nOF oDlg10  SIZE 400, 100 \n\noBrw:nAt = 1\n// use more Array-elements if needed.\n// ----------------------------------------------\noBrw:bLine     = { || { TERMARRAY[ oBrw:nAt ][ 1 ], ;\n                                 TERMARRAY[ oBrw:nAt ][ 2 ], ;\n                                 TERMARRAY[ oBrw:nAt ][ 3 ], ;\n                                 TERMARRAY[ oBrw:nAt ][ 4 ], ;\n                                 TERMARRAY[ oBrw:nAt ][ 5 ], ;\n                                 TERMARRAY[ oBrw:nAt ][ 6 ], ;\n                                 TERMARRAY[ oBrw:nAt ][ 7 ] } }\n\noBrw:bGoTop    = { || oBrw:nAt := 1 }\noBrw:bGoBottom = { || oBrw:nAt := Eval( oBrw:bLogicLen ) }\noBrw:bSkip     = { | nWant, nOld | nOld := oBrw:nAt, ;\n                              oBrw:nAt += nWant,;\noBrw:nAt := Max( 1, Min( oBrw:nAt, Eval( oBrw:bLogicLen ) ) ),;\noBrw:nAt - nOld }\noBrw:bLogicLen = { || Len( TERMARRAY ) }\noBrw:cAlias    = \"Array\"                // Just put something\n\n// Vert / Hor\n@ 6.3, 25 BUTTON \"&amp;Exit\" OF oDlg10 SIZE 80, 18 ;\nACTION ( oDlg10:End() )\n\nACTIVATE DIALOG oDlg10 CENTERED \n\nRETURN( NIL )','',0,'','27bubzmu',1,0,'',1257,0,0),(48123,9931,3,6,0,'87.16.213.2',1202840567,1,0,1,1,1,1,'','Re: Error with xHArbour of FW8.02','No errors using latest xHarbour from CVS.\n\nEMG','',0,'','2fwq84l3',1,0,'',6,0,0),(48124,9889,3,228,0,'201.244.65.30',1202843768,1,0,1,1,1,1,'','de nuevo yo','Mr. nageswaragunupudi, friend like these, which he(she) punishes to be a nuisance so much, but I have the problem that when there are no records in the table goes out for me a mistake to the moment to create the xbrowse, try as you answered him(her) to arming(assembling) but I me do not work. Of chance you do not have an example a bit clear mas since(as,like) the void recorset use.','',0,'','1ts83by9',1,0,'',228,0,0),(48125,9931,3,2,0,'87.218.146.240',1202843899,1,0,1,1,1,1,'','','Maurizio,\n\nPlease download xharbour.exe from our website again, thanks\n\nIt seems that the previous build got a bug that was fixed later on.','',0,'','f0jggjjl',1,0,'',2,0,0),(48126,9914,6,925,0,'200.72.82.212',1202844005,1,0,1,1,1,0,'','','Gracias Carlos por tu tiempo, te adjunto parte del rc con los 2 dialogos uno me funciona bien y otro me sucede el problema..\n\n / RESOURCE SCRIPT generated by \"Pelles C for Windows, version 4.50\".\n\n#include &lt;c:\\xHarbour\\include\\windows.h&gt;\n#include &lt;c:\\xHarbour\\include\\commctrl.h&gt;\n#include &lt;c:\\xHarbour\\include\\richedit.h&gt;\n\n\nLANGUAGE LANG_SPANISH,SUBLANG_SPANISH_MODERN\n\nBROWSE DIALOGEX DISCARDABLE 6, 18, 370, 190\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_VISIBLE\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 101, \"TWBrowse\", 0x00a00000, 0, 0, 304, 184\n  CONTROL \" \", 105, \"Button\", WS_TABSTOP, 316, 4, 45, 15\n  CONTROL \"\", 106, \"Button\", WS_TABSTOP, 316, 48, 45, 15\n  CONTROL \"\", 107, \"Button\", WS_TABSTOP, 316, 96, 45, 15\n  CONTROL \"\", 108, \"Button\", WS_TABSTOP, 316, 148, 45, 15\nEND\n\nJORNADAS DIALOGEX DISCARDABLE 6, 18, 442, 182\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|DS_CENTER|WS_CAPTION|WS_VISIBLE\nCAPTION \"INGRESO JORNADA\"\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 4009, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 152, 12, 52, 12\n  CONTROL \"\", 4001, \"Static\", WS_GROUP, 64, 36, 180, 12\n  CONTROL \"\", 4010, \"Static\", WS_GROUP, 40, 56, 220, 12\n  CONTROL \"\", 4002, \"Static\", WS_GROUP, 104, 120, 52, 16\n  CONTROL \"\", 101, \"Static\", WS_GROUP, 288, 4, 148, 12\n  CONTROL \"\", 102, \"Static\", WS_GROUP, 288, 16, 148, 16\n  CONTROL \"\", 146, \"Timage\", 0x00000000, 288, 40, 132, 124\n  CONTROL \"Ingrese Codigo :\", 4006, \"Static\", WS_GROUP, 96, 16, 56, 8\n  CONTROL \"\", 4011, \"Button\", BS_GROUPBOX, 12, 28, 268, 120\n  CONTROL \"\", 4004, \"Button\", WS_TABSTOP, 124, 156, 45, 15\n  CONTROL \"Hora  Marcada\", 4003, \"Static\", WS_GROUP, 52, 124, 48, 8\n  CONTROL \"\", 4005, \"Static\", SS_ICON|SS_CENTERIMAGE, 20, 36, 20, 16, WS_EX_TRANSPARENT\nEnd\n1 24 \"RES1.XML\"\n\n[color=green:1f3nnvbp]// en este dialogo agrego un say mas y funciona sin problema\n\nINGRESO DIALOGEX DISCARDABLE 6, 18, 450, 154\nSTYLE DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nCAPTION \" \"\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 111, \"Edit\", WS_BORDER|WS_TABSTOP, 65, 8, 55, 11\n  CONTROL \"\", 112, \"Edit\", WS_BORDER|WS_TABSTOP, 65, 24, 115, 11\n  CONTROL \"\", 113, \"Edit\", WS_BORDER|WS_TABSTOP, 65, 40, 115, 11\n  CONTROL \"\", 114, \"Edit\", WS_BORDER|WS_TABSTOP, 65, 56, 115, 11\n  CONTROL \"\", 116, \"Edit\", WS_BORDER|WS_TABSTOP, 65, 72, 227, 11\n  CONTROL \"\", 117, \"SysDateTimePick32\", DTS_TIMEFORMAT|WS_TABSTOP, 136, 96, 32, 14\n  CONTROL \"\", 118, \"SysDateTimePick32\", DTS_TIMEFORMAT|WS_TABSTOP, 136, 112, 32, 14\n  CONTROL \"\", 146, \"Timage\", 0x00000000, 304, 2, 132, 124\n  CONTROL \"Buscar Foto\", 152, \"Button\", WS_TABSTOP, 348, 130, 50, 14\n  CONTROL \"Cargo o Funcion\", 4002, \"Static\", SS_RIGHT, 6, 74, 56, 8\n  CONTROL \"Apellido Materno\", 4004, \"Static\", SS_RIGHT|WS_GROUP, 7, 56, 55, 8\n  CONTROL \"Apellido Paterno\", 4005, \"Static\", SS_RIGHT|WS_GROUP, 8, 40, 54, 9\n  CONTROL \"Nombres\", 4006, \"Static\", SS_RIGHT|WS_GROUP, 28, 24, 34, 9\n  CONTROL \"R.u.t\", 4007, \"Static\", SS_RIGHT|WS_GROUP, 40, 8, 22, 9\n  CONTROL \"\", 4001, \"Button\", WS_TABSTOP, 76, 132, 45, 15\n  CONTROL \"\", 4003, \"Button\", WS_TABSTOP, 164, 132, 45, 15\n  CONTROL \"Hora     Inicio   \", 4009, \"Static\", WS_GROUP, 80, 100, 48, 8\n  CONTROL \"Hora Termino \", 4010, \"Static\", WS_GROUP, 80, 116, 48, 8\n  CONTROL \"Jornada Laboral\", 4011, \"Button\", BS_GROUPBOX, 68, 88, 104, 40\n  CONTROL \"pablo \", 4008, \"Static\", WS_GROUP, 212, 32, 40, 8\nEND[/color:1f3nnvbp]\n\nBTN_NEW BITMAP \"NEW2.BMP\"\nQUIT BITMAP \"QUIT.BMP\"\nBTN_EXIT BITMAP \"EXIT2.BMP\"\nPREVIO BITMAP \"PREVIO.BMP\"\nNEXT2 BITMAP \"NEXT2.BMP\"\nPEOPLE BITMAP \"PEOPLE.BMP\"\nBTN_PRINT BITMAP \"print.bmp\"\nBTN_FIND BITMAP \"res4.bmp\"\nBTN_DEL BITMAP \"btn_del.bmp\"\nBTN_MOD BITMAP \"res4.bmp\"\nBTN_SAVE BITMAP \"Save.bmp\"\nBTN_OK BITMAP \"ok.bmp\"\nSEGPE BITMAP \"segpe.bmp\"\nSEGGRA BITMAP \"seggra.bmp\"\nLLAVE BITMAP \"LLAVE.bmp\"\nWINRAR BITMAP \"WINRAR.BMP\"\n\nLANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US\n\nINICIAL DIALOG DISCARDABLE 38, 43, 138, 69\nSTYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION\nCAPTION \"Acceso \"\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"Ingrese Password\", 4001, \"Static\", WS_GROUP, 16, 8, 60, 8\n  CONTROL \"\", 4002, \"Edit\", ES_AUTOHSCROLL|ES_PASSWORD|WS_BORDER|WS_TABSTOP, 24, 24, 44, 12\n  CONTROL \"\", 4003, \"Static\", SS_BITMAP|SS_CENTERIMAGE, 84, 4, 48, 40\n  CONTROL \"\", 4004, \"Button\", WS_TABSTOP, 20, 48, 45, 15\nEND\n\nLANGUAGE LANG_SPANISH,SUBLANG_SPANISH_MODERN\n\nZIPMADRE DIALOGEX DISCARDABLE 6, 18, 230, 126\nSTYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_VISIBLE\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 4004, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|CBS_AUTOHSCROLL|WS_VSCROLL|WS_TABSTOP, 20, 24, 60, 36\n  CONTROL \"\", 4005, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 100, 24, 48, 36\n  CONTROL \"\", 4001, \"Button\", WS_TABSTOP, 88, 100, 45, 15\n  CONTROL \"\", 4002, \"Static\", SS_CENTERIMAGE|WS_GROUP, 20, 80, 196, 16\n  CONTROL \"\", 4003, \"Static\", SS_BITMAP|SS_CENTERIMAGE, 172, 4, 48, 36\n  CONTROL \"M E S\", 4006, \"Static\", WS_GROUP, 40, 12, 20, 8\n  CONTROL \"AÑO\", 4007, \"Static\", WS_GROUP, 112, 12, 24, 8\n  CONTROL \"Archivo de remuneraciones  a copiar...\", 4008, \"Button\", BS_GROUPBOX, 12, 4, 152, 36\n  CONTROL \"Lugar Destino....\", 4009, \"Static\", WS_GROUP, 20, 64, 56, 8\n  CONTROL \"\", 4010, \"Static\", SS_CENTERIMAGE|WS_GROUP, 80, 64, 140, 12\n  CONTROL \"Examinar\", 4011, \"Button\", WS_TABSTOP, 84, 44, 45, 15\nEND\n\nSISTEMA ICON \"people.ico\"\nICNOCHE ICON \"icnoche.ico\"\nICTARDE ICON \"ictarde.ico\"\nICDIA ICON \"icdia.ico\"\n\nINDEXA DIALOGEX DISCARDABLE 6, 18, 206, 78\nSTYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nCAPTION \"Ordenar Archivos\"\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 4001, \"msctls_progress32\", 0x00000000, 16, 28, 156, 20\n  CONTROL \"\", 4002, \"Button\", WS_TABSTOP, 44, 56, 45, 15\n  CONTROL \"\", 4003, \"Static\", WS_GROUP, 20, 8, 148, 12\n  CONTROL \"\", 4004, \"Button\", WS_TABSTOP, 104, 56, 45, 15\nEND\n\nINFORME DIALOGEX DISCARDABLE 6, 18, 162, 150\nSTYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_VISIBLE\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"Opcion de Impresion\", 4009, \"Button\", BS_GROUPBOX, 12, 12, 140, 40\n  CONTROL \"Solo un empleado\", 4007, \"Button\", BS_AUTORADIOBUTTON, 40, 24, 76, 10\n  CONTROL \"Todos los empleados\", 4008, \"Button\", BS_AUTORADIOBUTTON, 40, 36, 84, 10\n  CONTROL \"\", 4010, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 60, 60, 80, 12\n  CONTROL \"\", 4002, \"SysDateTimePick32\", WS_TABSTOP, 88, 80, 56, 14\n  CONTROL \"\", 4003, \"SysDateTimePick32\", WS_TABSTOP, 88, 104, 56, 14\n  CONTROL \"\", 4005, \"Button\", WS_TABSTOP, 24, 128, 45, 15\n  CONTROL \"\", 4006, \"Button\", WS_TABSTOP, 80, 128, 45, 15\n  CONTROL \"Ingrese  fecha desde :\", 4001, \"Static\", WS_GROUP, 12, 84, 76, 8\n  CONTROL \"Ingrese  fecha hasta :\", 4004, \"Static\", WS_GROUP, 12, 108, 72, 8\n  CONTROL \"Ingrese R.U.T\", 4011, \"Static\", WS_GROUP, 12, 64, 48, 8\nEND\n\nZIPREC DIALOGEX DISCARDABLE 6, 18, 222, 118\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_VISIBLE\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"Examinar\", 4011, \"Button\", WS_TABSTOP, 56, 20, 45, 15\n  CONTROL \"\", 4010, \"Static\", SS_CENTERIMAGE|WS_GROUP, 64, 52, 140, 12\n  CONTROL \"\", 4002, \"Static\", SS_CENTERIMAGE|WS_GROUP, 12, 68, 196, 16\n  CONTROL \"\", 4001, \"Button\", WS_TABSTOP, 84, 92, 45, 15\n  CONTROL \"\", 4003, \"Static\", SS_BITMAP|SS_CENTERIMAGE, 160, 8, 48, 36\n  CONTROL \"Lugar Destino....\", 4009, \"Static\", WS_GROUP, 4, 52, 56, 8\nEND\n\nARCPARAM DIALOGEX DISCARDABLE 6, 18, 278, 142\nSTYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 4011, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 76, 8, 64, 12\n  CONTROL \"\", 4012, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 76, 24, 188, 12\n  CONTROL \"\", 4013, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 76, 40, 188, 12\n  CONTROL \"\", 4014, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 76, 56, 104, 12\n  CONTROL \"\", 4016, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 224, 56, 24, 12\n  CONTROL \"tipo de Instalacion...\", 4008, \"Button\", BS_GROUPBOX, 8, 72, 76, 36\n  CONTROL \"Central  y Local\", 4005, \"Button\", BS_AUTORADIOBUTTON, 16, 84, 64, 10\n  CONTROL \"local\", 4006, \"Button\", BS_AUTORADIOBUTTON, 16, 96, 56, 10\n  CONTROL \"Enlace Sistema de Remuneraciones\", 4007, \"Button\", BS_AUTOCHECKBOX|WS_TABSTOP, 140, 92, 132, 10\n  CONTROL \"\", 4009, \"Button\", WS_TABSTOP, 52, 116, 45, 15\n  CONTROL \"\", 4010, \"Button\", WS_TABSTOP, 132, 116, 45, 15\n  CONTROL \"Nombre Empresa\", 4001, \"Static\", WS_GROUP, 16, 28, 60, 8\n  CONTROL \"R.U.T\", 4002, \"Static\", WS_GROUP, 52, 12, 20, 8\n  CONTROL \"Direccion \", 4003, \"Static\", WS_GROUP, 44, 44, 32, 8\n  CONTROL \"Comuna\", 4004, \"Static\", WS_GROUP, 44, 60, 28, 8\n  CONTROL \"Cód Local\", 4015, \"Static\", WS_GROUP, 188, 60, 32, 8\nEND\n\nZIPCENTRA DIALOGEX DISCARDABLE 6, 18, 214, 94\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_VISIBLE\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 4004, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|CBS_AUTOHSCROLL|WS_VSCROLL|WS_TABSTOP, 16, 24, 60, 36\n  CONTROL \"\", 4005, \"ComboBox\", WS_BORDER|CBS_DROPDOWNLIST|WS_VSCROLL|WS_TABSTOP, 96, 24, 48, 36\n  CONTROL \"\", 4001, \"Button\", WS_TABSTOP, 64, 72, 45, 15\n  CONTROL \"\", 4002, \"Static\", SS_CENTERIMAGE|WS_GROUP, 8, 48, 192, 16\n  CONTROL \"\", 4003, \"Static\", SS_BITMAP|SS_CENTERIMAGE, 160, 4, 48, 36\n  CONTROL \"M E S\", 4006, \"Static\", WS_GROUP, 36, 12, 20, 8\n  CONTROL \"AÑO\", 4007, \"Static\", WS_GROUP, 108, 12, 24, 8\n  CONTROL \"\", 4008, \"Button\", BS_GROUPBOX, 8, 4, 144, 36\nEND\n\nINFBARRA DIALOGEX DISCARDABLE 6, 18, 166, 102\nSTYLE WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"Opcion de Impresion\", 4009, \"Button\", BS_GROUPBOX, 16, 8, 140, 40\n  CONTROL \"Solo un empleado\", 4007, \"Button\", BS_AUTORADIOBUTTON, 44, 20, 76, 10\n  CONTROL \"Todos los empleados\", 4008, \"Button\", BS_AUTORADIOBUTTON, 44, 32, 84, 10\n  CONTROL \"\", 4010, \"Edit\", ES_AUTOHSCROLL|WS_BORDER|WS_TABSTOP, 64, 56, 80, 12\n  CONTROL \"\", 4005, \"Button\", WS_TABSTOP, 24, 80, 45, 15\n  CONTROL \"\", 4006, \"Button\", WS_TABSTOP, 96, 80, 45, 15\n  CONTROL \"Ingrese R.U.T\", 4011, \"Static\", WS_GROUP, 16, 60, 48, 8\nEND\n\n/// este es el dialogo que al poner say me aparecen con fondo blanco \n\n\n[color=red:1f3nnvbp]MODHORA DIALOGEX DISCARDABLE 6, 18, 486, 280\nSTYLE DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE\nCAPTION \" \"\nFONT 10, \"Tahoma\"\nBEGIN\n  CONTROL \"\", 4001, \"Edit\", WS_BORDER|WS_TABSTOP, 77, 10, 50, 12\n  CONTROL \"\", 4002, \"SysDateTimePick32\", WS_TABSTOP, 97, 33, 56, 14\n  CONTROL \"\", 4003, \"SysDateTimePick32\", WS_TABSTOP, 292, 33, 56, 14\n  CONTROL \"\", 4004, \"Button\", WS_TABSTOP, 429, 33, 45, 18\n  CONTROL \"\", 4005, \"Button\", WS_TABSTOP, 135, 256, 45, 15\n  CONTROL \"\", 4006, \"Button\", WS_TABSTOP, 233, 255, 45, 15\n  CONTROL \"Ingrese  fecha desde :\", 102, \"Static\", WS_GROUP, 21, 37, 76, 8\n  CONTROL \"Ingrese  fecha hasta :\", 103, \"Static\", WS_GROUP, 216, 37, 72, 8\n  CONTROL \"Ingrese R.U.T\", 100, \"Static\", WS_GROUP, 22, 13, 48, 8\n  CONTROL \"\", 101, \"TWBrowse\", 0x00a00000, 11, 58, 467, 190\nEND[/color:1f3nnvbp]\nno veo cual es la diferencia  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\nCualquier sugerencia es bienvenida..\npablo\n\n\n','',0,'Ag==','1f3nnvbp',1,0,'',925,0,0),(48127,9934,3,439,0,'200.108.198.57',1202844248,1,0,1,1,1,1,'','TSBROWSE 7 updated','You can download this class of Manuel Mercado in our blog:\n\n<!-- m --><a class=\"postlink\" href=\"http://www.respuestasintegradas.blogspot.com\">http://www.respuestasintegradas.blogspot.com</a><!-- m -->\n\nThanks Manuel for your contribution!! <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','3nubcqlk',1,0,'',439,0,0),(48128,9935,6,439,0,'200.108.198.57',1202844806,1,0,1,1,1,1,'','Descargar la Clase TSBrowse de Manuel Mercado','Tal como lo prometimos, ya pueden descargar la clase TSBrowse de Manuel Mercado, actualizada a la fecha de hoy, incluyendo transparencia y conocer detalles biográficos de su autor desde nuestro blog\n\n<!-- m --><a class=\"postlink\" href=\"http://www.respuestasintegradas.blogspot.com/\">http://www.respuestasintegradas.blogspot.com/</a><!-- m -->\n\nGracias Manuel por tu contribución a nuestra comunidad de programadores.','',0,'Ag==','2h4v0age',1,0,'',439,0,0),(48129,9847,3,335,0,'68.193.88.53',1202845464,1,0,1,1,1,0,'','','Glad you like it, Uwe.  \n\nHopefully, you can adapt some of the concepts to do what you want to do, regardless of which browse tool you are using. Though I\'m using a much advanced version of Tcbrowse, Tsbrowse is close enough to it that these concepts should be easy to implement there.\n\nGood luck!\n\n- Roger','',0,'Ag==','39jzwnhq',1,0,'',335,0,0),(48130,9936,6,1246,0,'69.19.14.27',1202845594,1,0,1,1,1,1,'','COMO PUEDO SALIR DE PRINTERSETUP','HOLA A TODOS:\nTENGO UN PROBLEMITA,TENGO UN GET  PARA SELECCIONAR CIERTOS MOVIMIENTOS LOS LISTO CON UN LISTBOX LOS MANDO A IMPRIMIR POR MEDIO DE UN BOTON QUE SELECIONA UN PROGRAMA DE REPORTE Y ANTES HACER EL REPORTE SELECIONO LA IMPRESORA POR MEDIO DE UN PRINTERSETUP():\nQUISIERA SABER COM HACER PARA QUE QUE EL DIALOGO DE IMPRESORA AL DAR CANCELAR ME SACARA AL DIALOGO DEL GET  YA QUE SI LE DOY CANCELAR EL PROGRAMA SIGUE Y EJECUTA EL REPORTE.\nPOR SU ATENCIO MIL GRACIAS','',0,'Ag==','56prd247',1,0,'',1246,0,0),(48131,9934,3,34,0,'68.5.217.82',1202845875,1,0,1,1,1,1,'','Compatibility','Am I correct that this revision was built with the Borland compiler ?\n\nIs it compatible with xbuilder / xcc ? ( November 2007 release )\nIs it compatible with fwh 8.02 ?\nIs it compatible with ADS 8 ?\n\nThank you.\n\nTim <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'Ag==','1l4x275p',1,0,'',34,0,0),(48132,9921,6,1178,0,'200.24.127.27',1202848444,1,0,1,1,1,0,'','','[quote=&quot;Biel EA6DD&quot;:2hp2szy6]Supongo que devuelve -1 porque el curosor del recordset debe estar definido del lado del servidor.\n\nPrueba el código que te propongo, deberia funcionarte bien. Yo no lo he probado con MySql, pero con otros motores va ok.\n\n[code:2hp2szy6]\n#include &quot;Ado&#46;ch&quot;\nFUNCTION MAIN&#40;&#41; \nLocal oCon, oSql,oDatos,aDatos \n\noCon&#58;=TOLEAUTO&#40;&#41;&#58;New&#40;&quot;adodb&#46;connection&quot;&#41; \n\n\noCon&#58;OPEN&#40;&quot;DRIVER=&#123;MySQL ODBC 3&#46;51 DRIVER&#125;;SERVER=192&#46;168&#46;10&#46;1;DATABASE=basedatm;USER=root;PASSWORD=colomp&quot;&#41; \n\noDatos&#58;=tOleAuto&#40;&#41;&#58;New&#40;&quot;ADODB&#46;RecordSet&quot;&#41;\noDatos&#58;CursorLocation   &#58;= adUseClient\noDatos&#58;CursorType       &#58;= adOpenDynamic\noDatos&#58;LockType         &#58;= adLockOptimistic\noDatos&#58;ActiveConnection &#58;= oCon\noDatos&#58;Source           &#58;= &quot;Select * from kitpmod&quot;\noDatos&#58;Open&#40;&#41;\n\n? STR&#40;oDatos&#58;RecordCount&#40;&#41;&#41; \n\n? STR&#40;oDatos&#58;Fields&#58;Count&#40;&#41;&#41; \n\naDatos &#58;= &#123;&#125; \n\noDatos&#58;MoveFirst&#40;&#41; // equivale a GO TOP en un DBF \ndo while &#46;not&#46; oDatos&#58;EOF&#40;&#41; \nAADD&#40;aDatos, &#123;oDatos&#58;Fields&#40;0&#41;&#58;value,; \noDatos&#58;Fields&#40;1&#41;&#58;value,; \noDatos&#58;Fields&#40;2&#41;&#58;value,; \noDatos&#58;Fields&#40;3&#41;&#58;value&#125;&#41; \noDatos&#58;MoveNext&#40;&#41; // equivale un SKIP en un DBF \nenddo \nRETURN NIL[/code:2hp2szy6][/quote:2hp2szy6]\n\n\n\nGracias HIze la prueba, pero al compilarlo me dice que hace falta el archivo [b:2hp2szy6][size=100:2hp2szy6]\"Ado.ch\"[/size:2hp2szy6][/b:2hp2szy6] como la puedo conseguir\n\nEstoy compilando con xharbour build 99.7 y FHW 2.7\n\nCuando compilo con harbour Build 45 tengo entendido que no se puede sale el error Error: Unresolved external \'_HB_FUN_TOLEAUTO\' referenced from C:\\TEMP\\PRUEBASODBC\\OBJ\\PRUEBA11.OBJ','',0,'xIA=','2hp2szy6',1,0,'',1178,0,0),(48133,9918,6,1173,0,'200.30.155.146',1202850348,1,0,1,1,1,1,'','Gracias','Saludos amigos del foro:\n\nGracias por el interes a todos <!-- s:o --><img src=\"{SMILIES_PATH}/icon_surprised.gif\" alt=\":o\" title=\"Surprised\" /><!-- s:o -->\n\n\nUn abrazo desde desde Honduras   <!-- s:D --><img src=\"{SMILIES_PATH}/icon_biggrin.gif\" alt=\":D\" title=\"Very Happy\" /><!-- s:D -->','',0,'xIA=','3u9so23o',1,0,'',1173,0,0),(48134,9935,6,1072,0,'190.82.17.92',1202852069,1,0,1,1,1,0,'','','Jose:\n\nCreo que el archivo Tsbrowse.zip esta corrupto, arroja problemas al tratar de abrirlo.\n\nDesde ya muchas gracias por el aporte.\n\nSaludos,\nAntonio','',0,'xIA=','xw8ntl6a',1,0,'',1072,0,0),(48135,9935,6,644,0,'190.139.162.23',1202852945,1,0,1,1,1,0,'','','Yo no tuve problemas para abrir el comprimido','',0,'xIA=','2c67dftz',1,0,'',644,0,0),(48137,9937,3,6,0,'87.16.213.2',1202854386,1,0,1,1,1,1,'','Bug in message bar','In the following sample, the text \"CHECKLIST\" is not centered and the item background is not red:\n\n[code:yb3eexr7]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    SET MESSAGE OF oWnd 2007\n\n    DEFINE MSGITEM OF oWnd&#58;oMsgBar;\n           SIZE 70;\n           COLOR CLR_BLACK, CLR_HRED;\n           PROMPT &quot;CHECKLIST&quot;\n\n    oWnd&#58;oMsgBar&#58;KeybOn&#40;&#41;\n    oWnd&#58;oMsgBar&#58;DateOn&#40;&#41;\n    oWnd&#58;oMsgBar&#58;ClockOn&#40;&#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:yb3eexr7]\n\nEMG','',0,'AIA=','yb3eexr7',1,0,'',6,0,0),(48138,9937,3,2,0,'87.218.146.240',1202854974,1,0,1,1,1,1,'','','Enrico,\n\nThe item background color is not used if 2007 is specified (at least, not yet)\n\nRegarding the center of the text, we are using GetTextWidth() to calculate its position when painting it. But it seems that GetTextWidth() does not work fine or we are doing something wrong...','',0,'AIA=','10j3cj42',1,0,'',2,0,0),(48139,9937,3,6,0,'87.16.213.2',1202855219,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:1z807snq]Enrico,\n\nThe item background color is not used if 2007 is specified (at least, not yet)[/quote:1z807snq]\n\nOk.\n\n[quote=&quot;Antonio Linares&quot;:1z807snq]Regarding the center of the text, we are using GetTextWidth() to calculate its position when painting it. But it seems that GetTextWidth() does not work fine or we are doing something wrong...[/quote:1z807snq]\n\nOk, thank you.\n\nEMG','',0,'gA==','1z807snq',1,0,'',6,0,0),(48140,9938,6,911,0,'164.77.151.82',1202856149,1,0,1,1,1,1,'','Control de Cyber','Hola a todos...tanto tiempo desconectado.\nUn poquito ocupado con otros temas.\nBueno... a ver:\nAgradeceré quien me pueda orientar en como iniciar el desarrollo de un software para controlar pc\'s de los clientes en un ciber. La idea es poder realizar todo lo que se pueda...algo así como el cybercontrol (<!-- w --><a class=\"postlink\" href=\"http://www.cibercontrol.com\">www.cibercontrol.com</a><!-- w -->).\nComo lo puedo hacer para la conexión a los pcs de los clientes, etc.\nGracias nuevamente\nSaludos\nDavid','',0,'gA==','3dpx023w',1,0,'',911,0,0),(48141,9938,6,1114,0,'190.19.113.95',1202867942,1,0,1,1,1,0,'','','Estimado David\n\nContactame a mi privado <!-- e --><a href=\"mailto:devwin2010@yahoo.com.ar\">devwin2010@yahoo.com.ar</a><!-- e --> ,\n\nSaludos\nFabian','',0,'gA==','1wwn6b3v',1,0,'',1114,0,0),(48142,9935,6,439,0,'200.125.48.99',1202868580,1,0,1,1,1,1,'','','[quote=&quot;mantonio_08&quot;:12h5bba9]Jose:\n\nCreo que el archivo Tsbrowse.zip esta corrupto, arroja problemas al tratar de abrirlo.\n\nDesde ya muchas gracias por el aporte.\n\nSaludos,\nAntonio[/quote:12h5bba9]\n\n\nInténtalo nuevamente, por favor, acabo de probar el link y no he tenido problemas, está funcionando a la perfección.','',0,'gA==','12h5bba9',1,0,'',439,0,0),(48144,9889,3,868,0,'219.64.121.60',1202876888,1,0,1,1,1,1,'','','Mr leandro\n\nIf the RecSet has atleast one Row at the beginning, later even if all the rows are deleted also, the browse works well. But if we start with an empty RecordSet ( like an empty array ), the browse fails while trying to compute the datawidths.\n\nTry writing code in the following manner. It worked for me here, with empty recordset.\n[code:1hy475lu]\n   DEFINE DIALOG oDlg SIZE 640,340 PIXEL\n\n   @ 10,10 XBROWSE oBrw ;\n      FIELDS ;\n         If&#40; oRs&#58;Eof, Space&#40;20&#41;, oRs&#58;Fields&#40;&quot;First&quot;&#41;&#58;Value &#41;, ;\n         If&#40; oRs&#58;Eof, Space&#40;30&#41;, oRs&#58;Fields&#40;&quot;Second&quot;&#41;&#58;Value &#41; ;\n      HEADERS ;\n         &quot;First&quot;, &quot;Second&quot; ;\n      OF oDlg SIZE 300,150 PIXEL\n\n   oBrw&#58;SetADO&#40; oRs &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n[/code:1hy475lu]\n\nPersonally I use a wrapper class for recordset, which returns a equivalent blank value on eof() condition.  \n\nI guess we can improve the adogenblock to take care of eof situations. Also we can modify TXColumn\'s data width method not to compute datawidth if width is already specified.\n\nWe can make an improvement to the XBrowse class','',0,'AIA=','1hy475lu',1,0,'',868,0,0),(48145,9889,3,868,0,'219.64.121.60',1202877978,1,0,1,1,1,1,'','','Here is a more generic code :\n[code:2kph6ymu]\n   DEFINE DIALOG oDlg SIZE 640,340 PIXEL\n\n   @ 10,10 XBROWSE oBrw ;\n      OF oDlg SIZE 300,150 PIXEL\n\n   for n &#58;= 0 to oRs&#58;Fields&#58;Count&#40;&#41; - 1\n      xbrAdoSetField&#40; oBrw, oRs, n &#41;\n   next\n\n   oBrw&#58;SetADO&#40; oRs &#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n   return nil\n//-------------------------------------\nfunction xbrAdoSetField&#40; oBrw, oRs, cnFld &#41;\n\n   local oCol     &#58;= oBrw&#58;AddCol&#40;&#41;\n   local nwidth   &#58;= oRs&#58;Fields&#40; cnFld &#41;&#58;DefinedSize\n\n   WITH OBJECT oCol\n      &#58;cHeader    &#58;= oRs&#58;Fields&#40;cnFld&#41;&#58;Name\n      &#58;bStrData   &#58;= &#123; || If&#40; oRs&#58;Eof, Space&#40; nWidth &#41;, cValtoChar&#40; oRs&#58;Fields&#40; cnFld &#41;&#58;Value &#41; &#41; &#125;\n   END\n\nreturn oCol\n[/code:2kph6ymu]\nThis code is tested and will work','',0,'AIA=','2kph6ymu',1,0,'',868,0,0),(48146,9881,1,418,0,'91.171.74.123',1202885783,1,0,1,1,1,0,'','','I\'m coming back with my error.\nMy application work very well on one PC of my network, and is generating this 5300 error on the 3 others when printing a simple page [b:1zij0871]without bitmaps[/b:1zij0871].\nHow can i know the use of the memory on this 4 computers? Because it seems there is a difference.\nFWH will support all my FWClipper code, and  don\'t generate this error?\nThanks\nPatrick','',0,'QA==','1zij0871',1,0,'',418,0,0),(48147,9881,1,58,0,'84.149.88.130',1202888729,1,0,1,1,1,0,'','','[quote=&quot;patili&quot;:31pqxy9v]... FWH will support all my FWClipper code, and  don\'t generate this error?\nThanks\nPatrick[/quote:31pqxy9v]\n\nYes, it will.\n\nRegards,\nDetlef','',0,'gA==','31pqxy9v',1,0,'',58,0,0),(48148,9921,6,456,0,'217.127.39.57',1202889510,1,0,1,1,1,1,'','','Sustituye el include por estas lineas.\n[code:2bo4h3nl]\n#define adUseClient 3\n#define adOpenDynamic 2\n#define adLockOptimistic 3\n[/code:2bo4h3nl]\nEl error \'_HB_FUN_TOLEAUTO\' , es porque no enlazas hbOle.lib, pero en tu primer ejemplo usabas tOleAuto, asi que supongo que tienes la libreria y solo te hace falta incluirla.','',0,'AIA=','2bo4h3nl',1,0,'',456,0,0),(48149,9939,3,51,0,'80.122.88.242',1202893299,1,0,1,1,1,0,'','ClassSel','could someone  provide a short translation from these links\nor a description of CLASSSEL()\n\nThanks in advance\nOtto\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=723&amp;highlight=classsel\">http://fivetechsoft.com/forums/viewtopi ... t=classsel</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=7201&amp;highlight=classsel\">http://fivetechsoft.com/forums/viewtopi ... t=classsel</a><!-- m -->\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8297&amp;highlight=classsel\">http://fivetechsoft.com/forums/viewtopi ... t=classsel</a><!-- m -->\n\n\n   local o := ErrorNew() // Vamos a ver las DATAs de un objeto error \n   local aInfo := o:ClassSel() \n  \n   for n = 1 to Len( aInfo ) \n      if Left( aInfo[ n ], 1 ) == \"_\" \n         MsgInfo( SubStr( aInfo[ n ], 2 ) ) \n      endif \n   next','',0,'','wnf5hqs6',1,0,'',51,0,0),(48150,9939,3,2,0,'87.218.146.61',1202894618,1,0,1,1,1,1,'','','Otto,\n\nIt returns an array with all the names of the methods and datas of the class.\n\nDatas are returned twice, with \"_\" before for assignment, and without it to retrive their values.','',0,'','398g6xg6',1,0,'',2,0,0),(48151,9556,6,24,0,'80.24.12.168',1202896290,1,0,1,1,1,1,'','','[quote=&quot;Biel EA6DD&quot;:tznrvc96]Hola Rafa, has encontrado algo para harbour? \nLa clase que utilizas es tXml de Giancarlo Nicolai ?[/quote:tznrvc96]\n\nPues no Biel, al final, es lo único que no he conseguido para mantener la compatibilidad entre los 2 compiladores.\n\nPero la verdad es que no miré si es posible compilarlas para Harbour, pero supongo que si, pues el PCRE también parece ser que lo han portado a Harbour.\n\nSi, las clases que uso son las de Giancarlo, las que trae xHarbour, y la verdad es que van de muerte.\n\nSaludos\nRafa Carmona','',0,'gA==','tznrvc96',1,0,'',24,0,0),(48152,9940,20,1009,0,'82.187.221.169',1202897575,1,0,1,1,1,0,'','file di excel protetto da password','(fw7.12 xHarbour 1.0)\napro files di excel con queste funzioni di ole2:\noExcel := TOleAuto():New( \"Excel.Application\" )\noExcel:WorkBooks:Open(cFilePath(GetModuleFileName(GetInstance())) + cFileXls)\n\ncon quale funzione si può passare una password all\'apertura del file nel caso di file protetto?\ncosì come è ora si apre excel con richiesta di inserimento password poi si blocca, se chiudo excel mi da errore fivewin.\n\ngrazie in anticipo, marzio','',0,'gA==','i3dlgk2c',1,0,'',1009,0,0),(48153,9940,20,6,0,'87.18.210.91',1202898220,1,0,1,1,1,1,'','Re: file di excel protetto da password','La password è il quinto parametro del metodo Open(). Non hai la documentazione di Excel per controllare la sintassi?\n\nEMG','',0,'gA==','jqnqrfbm',1,0,'',6,0,0),(48154,9940,20,1009,0,'82.187.221.169',1202898900,1,0,1,1,1,0,'','','avevo provato fino al 3° parametro poi mi ero arreso.\nmi dava questo errore che mi continua a dare anche al 5° parametro:\nError Excel.Application:WORKBOOKS/14  DISP_E_BADPARAMCOUNT: OPEN\n\noExcel:WorkBooks:Open(cFilePath(GetModuleFileName(GetInstance())) + cFileXls, , , , \"password\")\n\nmi sono copiato i file help di visual basic da office ma non ho trovato nulla, non so se intendi questa per documentazione o c\'è qualche altro file?\n\nciao, marzio','',0,'gA==','3jq23be1',1,0,'',1009,0,0),(48155,9940,20,6,0,'87.18.210.91',1202899067,1,0,1,1,1,1,'','','Non devi lasciare i parametri a NIL. La documentazione è quella che danno con Office, i file VBA*.CHM.\n\nEMG','',0,'gA==','3ruayirz',1,0,'',6,0,0),(48156,9939,3,51,0,'80.122.88.242',1202899282,1,0,1,1,1,0,'','','Antonio, thank you.\nRegards,\n Otto','',0,'gA==','17ul4lhf',1,0,'',51,0,0),(48157,9859,3,1209,0,'66.158.133.192',1202899607,1,0,1,1,1,1,'','','Alex,\n\n The problem wasn\'t getting my OWN IP, the problem is getting the IP from a client connected to a TCP/IP server that I wrote when the server is behind a ROUTER !\n\n Best Regards,\n\n Sylvain','',0,'gA==','q1ix7fet',1,0,'',1209,0,0),(48158,9859,3,32,0,'196.35.158.181',1202899869,1,0,1,1,1,0,'','IP','So you want to get the IP Address from Client A, connected to server B, while you are at client C, connecting to B?\n\nCan\'t server B keep a record of who\'s connected?','',0,'gA==','ezi5p3fo',1,0,'',32,0,0),(48159,9937,3,6,0,'87.18.210.91',1202900767,1,0,1,1,1,1,'','','This is a possible fix:\n\n[code:310bmhww]   if &#58;&#58;oMsgBar&#58;l2007\n      &#58;&#58;oMsgBar&#58;Say&#40; &#58;&#58;oMsgBar&#58;nHeight / 4 - 2,;\n             nLeft - 1 + &#40; &#58;&#58;nWidth - GetTextWidth&#40; hDC, AllTrim&#40; &#58;&#58;cMsg &#41;, &#58;&#58;oFont&#58;hFont &#41; &#41; / 2,;\n             AllTrim&#40; &#58;&#58;cMsg &#41;, If&#40; &#58;&#58;lActive, &#58;&#58;nClrText, &#58;&#58;nClrDisabled &#41;,;\n             &#58;&#58;nClrPane, &#58;&#58;oFont, &#46;T&#46;, &#46;T&#46; &#41;\n      WndBoxIn&#40; hDC, 2, nLeft - 4, &#58;&#58;oMsgBar&#58;nHeight - 2, nLeft - 3 &#41;\n   else[/code:310bmhww]\n\nEMG','',0,'AIA=','310bmhww',1,0,'',6,0,0),(48160,9859,3,1209,0,'66.158.133.192',1202901564,1,0,1,1,1,1,'','','simpler than that, I just want the IP adress of the client that his connected to the current socket descriptor of my TCP/IP server when  behind a ROUTER.\n\n Best,\n\n Sylvain','',0,'AIA=','wmb2c9u8',1,0,'',1209,0,0),(48161,9886,6,176,0,'201.255.175.253',1202901831,1,0,1,1,1,0,'','','Gracias Karinha, me parece que esa es la soluciòn al problema, lo voy  a probar y te comento\n\nLuis','',0,'AIA=','3ns5gp5o',1,0,'',176,0,0),(48162,9941,23,308,0,'84.148.29.11',1202904178,1,0,1,1,1,0,'','Suche einen Lösungsansatz','Hallo Kollegen,\n\nich suche einen Lösungsweg:\n\n[b:21qxbi1b]Aufgabe:[/b:21qxbi1b] \nIch habe 4 x TSBROWSE in einem Window nebeneinander, gefüllt mit Arrays zu je 50 Elementen.\nIch habe die Vert.Scrollbars der Browse-Objekte unterdrückt und eine zentrale Scrollbar definiert.\n\nIch möchte nun erreichen, dass über diese zentrale Scrollbar die 4 TSBROWSE synchron gescrollt werden.\n\nIch habe es versucht mit ...\n[code:21qxbi1b]\n   @ 43, 1 SCROLLBAR oSbr1 OF oWnd VERTICAL RANGE 1, 50 ;\n      ON UP       &#40; oArray1&#58;VScroll&#40; SB_LINEUP, 0 &#41; ,oArray1&#58;Refresh&#40;&#46;t&#46;&#41; ,;\n                    oArray2&#58;VScroll&#40; SB_LINEUP, 0 &#41; ,oArray2&#58;Refresh&#40;&#46;t&#46;&#41; ,;\n                    oArray3&#58;VScroll&#40; SB_LINEUP, 0 &#41; ,oArray3&#58;Refresh&#40;&#46;t&#46;&#41; ,;\n                    oArray4&#58;VScroll&#40; SB_LINEUP, 0 &#41; ,oArray4&#58;Refresh&#40;&#46;t&#46;&#41;&#41; ;\n      ON DOWN     &#40; oArray1&#58;VScroll&#40; SB_LINEDOWN, 0 &#41;,oArray1&#58;Refresh&#40;&#46;t&#46;&#41;,;\n                    oArray1&#58;VScroll&#40; SB_LINEDOWN, 0 &#41;,oArray1&#58;Refresh&#40;&#46;t&#46;&#41;,;\n                    oArray2&#58;VScroll&#40; SB_LINEDOWN, 0 &#41;,oArray2&#58;Refresh&#40;&#46;t&#46;&#41;,;\n                    oArray3&#58;VScroll&#40; SB_LINEDOWN, 0 &#41;,oArray3&#58;Refresh&#40;&#46;t&#46;&#41;,;\n                    oArray4&#58;VScroll&#40; SB_LINEDOWN, 0 &#41;,oArray4&#58;Refresh&#40;&#46;t&#46;&#41;&#41; \n[/code:21qxbi1b]\n ... funktioniert aber nicht. Wenn in den einzelnen Browse-Objekten unterschiedliche Zeilen selektiert sind.\n\nHat jemand einen Lösungsansatz für mich ?? Ich seh den Wald vor lauter Bäume nicht ...\n\nViele Grüße, Norbert','',0,'QIA=','21qxbi1b',1,0,'',308,0,0),(48163,9808,3,1287,0,'195.16.44.6',1202904522,1,0,1,1,1,0,'','New method','Hello,\n\nNew method is added to frReportManager:\n\nLoadFromResource(xResource)\n\nWith this method you can add reports as resources (RCDATA) to your exe at \"compile-time\" and use this reports at run-time.\n\nxResource - name or number of resource.\n\nSome bugs fixed. \n\n--- \nSpirin Sergey. \n\"Paritet Soft\" Company. \nFRH beta: <!-- m --><a class=\"postlink\" href=\"http://www.paritetsoft.ru/frh.htm\">http://www.paritetsoft.ru/frh.htm</a><!-- m --> \nFRAX sales: <!-- m --><a class=\"postlink\" href=\"http://www.hotsoft.ru/ALASKA/frax_eng.htm\">http://www.hotsoft.ru/ALASKA/frax_eng.htm</a><!-- m -->','',0,'QIA=','2yup57bp',1,0,'',1287,0,0),(48164,9881,1,418,0,'91.171.74.123',1202907138,1,0,1,1,1,0,'','','And i use Hypersix driver  Index *.nsx which is very fast.\nWhat append from my indexes with FWH?','',0,'QIA=','zn26vf9b',1,0,'',418,0,0),(48165,9859,3,32,0,'196.35.158.181',1202908336,1,0,1,1,1,0,'','','Well, isn\'t that what oSocket:clientip() gives on the server? It does for me...','',0,'QIA=','2dhdw6lv',1,0,'',32,0,0),(48166,9859,3,1209,0,'66.158.133.192',1202908509,1,0,1,1,1,1,'','','Alex,\n\n It won\'t if your server is behind the ROUTER and the client connect to your server from the WAN you\'ll receive the ROUTER IP not the client IP \n\n Best,\n\n Sylvain','',0,'QIA=','1rxhiid2',1,0,'',1209,0,0),(48167,9881,1,58,0,'84.149.78.130',1202909205,1,0,1,1,1,0,'','','[quote=&quot;patili&quot;:k38lz738]And i use Hypersix driver  Index *.nsx which is very fast.\nWhat append from my indexes with FWH?[/quote:k38lz738]\n\nI don\'t have any experience about Hypersix.\nBut i used comix in 16bit times which was much faster and more compact as dbfntx driver.\n\nWhen changing to 32 bit i had to switch to dbfcdx.\nAll users in our network stated a much higher performance than before.\n\nI really do recommend changing to xHarbour.\nA lot of limitations and errors did vanish after i migrated my apps.\n\nI thoght that i was the last mohican in the FiveWin for CA-Clipper forum who dared to jump into the 32 bit cold water\nBut now it seems to be up to you. <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->\n\nRegards,\nDetlef','',0,'gA==','k38lz738',1,0,'',58,0,0),(48168,9934,3,995,0,'81.11.197.38',1202912983,1,0,1,1,1,0,'','Error on 470','On line METHOD REFRESH(lPaint) : \n\n( ::cAlias )-&gt;(Eval( ::bLogicLen )) \n\nNOT ( ::cAlias )-&gt;Eval( ::bLogicLen ) \n\n[code:1xytafs5]\n METHOD Refresh&#40; lPaint &#41; INLINE If&#40; &#58;&#58;lFirstPaint == Nil &#46;or&#46; &#58;&#58;lFirstPaint, 0, &#40; ;\n                                       &#58;&#58;nLen &#58;= If&#40; &#58;&#58;lIsDbf, &#40; &#58;&#58;cAlias &#41;-&gt;&#40;Eval&#40; &#58;&#58;bLogicLen &#41;&#41; , ;\n                                       Eval&#40; &#58;&#58;bLogicLen &#41; &#41;, &#58;&#58;lNoPaint &#58;= &#46;F&#46; , Super&#58;Refresh&#40; lPaint &#41; &#41; &#41;\n[/code:1xytafs5]\n\nThe ch-files are hard coded in tsbrowse.prg , tscolumn.prg and debug.prg\nBetter is to use no path :\n\nWorking with a xbp-file , is better to use\n# include \"fivewin.ch\" \ninstead off \"c:\\fwh\\fivewin.ch\"\n\nIn step 2 can the include path\'s be set , so it is possible to test with different fwh versions\n\nFrank','',0,'AIA=','1xytafs5',1,0,'',995,0,0),(48169,9942,3,49,0,'213.82.134.66',1202916031,1,0,1,1,1,1,'','How resize a tree','Sorry I resolve it','',0,'AIA=','f1m37kin',1,0,'',49,0,0),(48170,9921,6,1178,0,'200.24.127.27',1202916827,1,0,1,1,1,0,'','','[quote=&quot;Biel EA6DD&quot;:183mdjff]Sustituye el include por estas lineas.\n[code:183mdjff]\n#define adUseClient 3\n#define adOpenDynamic 2\n#define adLockOptimistic 3\n[/code:183mdjff]\nEl error \'_HB_FUN_TOLEAUTO\' , es porque no enlazas hbOle.lib, pero en tu primer ejemplo usabas tOleAuto, asi que supongo que tienes la libreria y solo te hace falta incluirla.[/quote:183mdjff]\n\nGracias, perfecto me funciono.\n\nTe pregunto ya con esta conexion puedo hacer consultas, adicionar, modificar, delete etc..\nVeo que solo funciona con xharbour y Harbour no funciona me genera este error _HB_FUN_TOLEAUTO\'\nActualmente tengo FWH 2.7 y Harbour build 45 y xHarbour 0.99.7','',0,'gIA=','183mdjff',1,0,'',1178,0,0),(48171,9935,6,40,0,'200.92.22.80',1202917914,1,0,1,1,1,0,'','','Aun que ando ocupado en otros asuntos, no dejo de leer el foro y me\nda gusto que este de regreso el maestro Mercado, gracias por sus aportes.\n\ny gracias a a Tí Jóse por tu dedicación y esmero a este foro.\n\nSaludos\nJoel Andujo','',0,'gIA=','38byvmkw',1,0,'',40,0,0),(48172,9935,6,1072,0,'200.83.78.252',1202919397,1,0,1,1,1,0,'','','Jose:\n \nLo baje nuevamente y ya puede descomprimirlo.\n\nMil Gracias a Manuel y para ti, por este tremendo esfuerzo para entregarnos esta fabulosa herramienta.\n\nMuchos saludos\nAntonio','',0,'gIA=','3akn1fw1',1,0,'',1072,0,0),(48173,9934,3,1255,0,'189.128.26.214',1202921671,1,0,1,1,1,0,'','Re: Compatibility','Hi Tim:\n[quote=&quot;TimStone&quot;:jw8r640h]Am I correct that this revision was built with the Borland compiler ?[/quote:jw8r640h]You are Right\n\n[quote=&quot;TimStone&quot;:jw8r640h]Is it compatible with xbuilder / xcc ? ( November 2007 release )[/quote:jw8r640h]Don\'t know, I don\'t have nor use it\n\n[quote=&quot;TimStone&quot;:jw8r640h]Is it compatible with fwh 8.02 ?[/quote:jw8r640h]Yes in my tests it\'s running ok\n\n[quote=&quot;TimStone&quot;:jw8r640h]Is it compatible with ADS 8 ?[/quote:jw8r640h]Don\'t know I don\'t use ADS, every ADS stuff in TSBrowse has been done by other TSBrowse contributors.\n\nBest regards\n\nManuel Mercado','',0,'gA==','jw8r640h',1,0,'',1255,0,0),(48174,9934,3,1255,0,'189.128.26.214',1202922084,1,0,1,1,1,0,'','','Hi Frank:\n\nNice to see you again, many thanks for your feedback (welcome as always)\n\nBest regards\n\nManuel Mercado','',0,'gA==','1q6s044l',1,0,'',1255,0,0),(48175,9934,3,49,0,'213.82.134.66',1202922725,1,0,1,1,1,1,'','','dear Manuel,\nwhere i can found a sample with trasparent sbrowse as the window you insert on this forum ?','',0,'gA==','o9jr0dls',1,0,'',49,0,0),(48176,9921,6,456,0,'217.127.39.57',1202922770,1,0,1,1,1,1,'','','Si, puedes hacer cualquier cosa con el RecordSet, Altas, bajas, modificaciones.\n\nPara que te funcione en Harbour, tienes que linkar la libreria hbOle.lib, que es la que da soporte Ole a Harbour. En las ultimas versiones de harbour creo que ya viene incluido, pero en las antiguas no.','',0,'gA==','3pr4jj4u',1,0,'',456,0,0),(48177,9935,6,49,0,'213.82.134.66',1202922883,1,0,1,1,1,1,'','','Dear Manuel,\ndo you think about a new tsbutton features for xharbour ?\nOn xharbour the command SBgroup not run ok','',0,'gA==','3308n67m',1,0,'',49,0,0),(48178,9934,3,1255,0,'189.128.26.214',1202924551,1,0,1,1,1,0,'','','Hi Silvio:\n[quote=&quot;Silvio&quot;:8wzvg9f8]where i can found a sample with trasparent sbrowse as the window you insert on this forum ?[/quote:8wzvg9f8]See SBtest.prg sample 7 in TSBrowose\\Samples there you have a VerCe file to build the executable\n\nBest regards.\n\nManuel Mercado\n\nps I\'m revising TSButton about your transparency request, but it\'ll take a while because TSButton is now in major surgery <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gA==','8wzvg9f8',1,0,'',1255,0,0),(48179,9943,6,1078,0,'200.206.139.121',1202924846,1,0,1,1,1,0,'','TOUTLOOK2003 + TWBROWSE','alguem possui um exemplo do uso em window \nda classe toutlook2003 com a twbrowse  ????','',0,'gA==','1w9ztm5r',1,0,'',1078,0,0),(48180,9564,6,596,0,'84.76.66.27',1202929775,1,0,1,1,1,1,'','','[quote=&quot;JmGarcia&quot;:1mkzmm4f]Con FWH enero-2008 tambien me pide esa libería (GTSTD.LIB).\nEn el fichero AJAMAKE.INI la he quitado y me dice que le falta una función:\n\"E:\\Lenguas\\BCC551\\Bin\\ILINK32.EXE\" -Tpe -Gn -aa -m -M -s @e:\\programa\\simeva\\simeva.mak.bc\nTurbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nFatal: Unable to open file \'GTSTD.LIB\'[/quote:1mkzmm4f]\nPues sigo sin poder compilar... ¿ donde leñes esta la \"GTSTD.LIB\" ?','',0,'gA==','1mkzmm4f',1,0,'',596,0,0),(48181,9936,6,1246,0,'66.82.9.49',1202930180,1,0,1,1,1,1,'','','HOLA, HAY ALGUIEN\n PARECE QUE A NADIE LE HA PASADO ESTO','',0,'gA==','259uiqrn',1,0,'',1246,0,0),(48182,9944,6,596,0,'84.76.66.27',1202931924,1,0,1,1,1,1,'','Enviar caracteres a varias ventanas a la vez','Imaginaros que tengo abiertas varias ventanas de consola (CMD.EXE) con un telnet o ftp o directorio distinto en cada una.\nQuiero mandar a TODAS las ventanas la misma secuencia de caracteres mas el intro.\n¿ Como lo hago ?\n\nComo ejemplo mirar el \"Cluster Telnet (ctelnet)\" de Solaris (Sun Cluster Console).\n\n[img:1313n2nb]http&#58;//docs&#46;sun&#46;com/source/806-5342/images/4cc&#46;tiff&#46;gif[/img:1313n2nb]\n\n[img:1313n2nb]http&#58;//docs&#46;sun&#46;com/source/816-2145-12/figures/clust_chap-14&#46;gif[/img:1313n2nb]\n\n[img:1313n2nb]http&#58;//docs&#46;sun&#46;com/source/816-3538-10/figures/clust_chap-13&#46;gif[/img:1313n2nb]','',0,'CA==','1313n2nb',1,0,'',596,0,0),(48183,9887,19,78,0,'190.43.34.93',1202932797,1,0,1,1,1,0,'','','Si, exactamente eso mismo\nSalu2','',0,'CA==','3u85n537',1,0,'',78,0,0),(48184,9944,6,2,0,'87.218.146.61',1202933178,1,0,1,1,1,1,'','','JM,\n\nNecesitarias hacer una pequeña aplicación que enviase lo que escribieses a los handles de esas cuatro ventanas.\n\nEl problema es que si son ventanas de consola, entonces no se les puede enviar mensajes. Si son ventanas normales, si.','',0,'CA==','nvohde4h',1,0,'',2,0,0),(48185,9934,3,343,0,'204.57.111.194',1202933391,1,0,1,1,1,0,'','','I have added some things to TSbrowse and was wondering if you would like to add them to the official version.\n\nDATA   bLDblClickHeader // custom function for header (change order etc)\nDATA   bAddColumn       // add/ins column block\nDATA   lColChanged      // if a column was moved, added, inserted, freeze changed, or sized. I use this to know if the browse information needs to be saved.\n\n// Right click header additions.\nInsert Column - If bAddColumn defined\nAdd Column - If bAddColumn defined\nFreeze Column - If .not. ::lLockFreeze\nUnlock Freeze Column - If .not. ::lLockFreeze .and. ::nFreeze &gt; 0\n\n// Add RMDBFCDX to cRDDName list (Same syntax as Comix)\n\nThanks, \n\nI really like the browser.\n\nGale','',0,'CA==','nezdb1f4',1,0,'',343,0,0),(48186,9913,3,1231,0,'83.144.114.249',1202933526,1,0,1,1,1,1,'','','Antonio - did you think about problem with national signs?','',0,'CA==','f3ufd0ja',1,0,'',1231,0,0),(48187,9944,6,596,0,'84.76.66.27',1202934263,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:2f1i0sv4]El problema es que si son ventanas de consola, entonces no se les puede enviar mensajes. [b:2f1i0sv4]Si son ventanas normales, si.[/b:2f1i0sv4][/quote:2f1i0sv4]\nBueno, parece que algo se puede hacer... ¿ no ?\nBueno pueden ser ventanas de una aplicación de telnet (como la telnet de NT, que funciona en Win2000/XP), no tiene que ser de consola.\nPodríamos experimentar con varios NotePad.exe.\nExplícame esto ultimo (Si son ventanas normales, si).\n\nP.D.: Que rarito soy ¿ verdad ?, es que con lo de \"altas, bajas, modificaciones, consultas, etc...\" no me divierto  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'wA==','2f1i0sv4',1,0,'',596,0,0),(48188,9945,20,29,0,'88.149.164.150',1202934462,1,0,1,1,1,1,'','Inviare SMS con Skype','Salve,\nqualcuno di voi riesce ad inviare SMS tramite Skype ?\n\nHo provato la routine disponibile sul newsgroup ma non riesco comunque ad inviare l\'SMS. Forse dipende dal countrycode ma ho provato sia con IT sia con 0039.\n\nQualcuno è riuscito in questa operazione con successo ?\n\nGrazie.\n\nMarco Turco','',0,'wA==','2l3jcld0',1,0,'',29,0,0),(48189,9946,6,1288,0,'200.96.141.121',1202935698,1,0,1,1,1,1,'','picture fields data e numeric','como tratar a exibição dos campos de data e numéricos ?  \n  \n  \nno modo texto funciona com \"@k\" como funciona no fw ?\n\ngostaria de exibir como no quadro verde quando os campos estiverem vazios\n\n\n[img:242zcva5]http&#58;//www&#46;lopes&#46;ms/fw/data%20vazia%20e%20campo%20n%famerico%20vazio&#46;JPG[/img:242zcva5]','',0,'CA==','242zcva5',1,0,'',1288,0,0),(48190,9945,20,29,0,'88.149.160.250',1202936361,1,0,1,1,1,1,'','','Ok. Risolto. Dovevo utilizzare 39 invece di 0039 come countrycode','',0,'CA==','2pwsswr8',1,0,'',29,0,0),(48191,9913,3,2,0,'87.218.146.61',1202937558,1,0,1,1,1,1,'','','Robert,\n\nIt may be related to the font that we use now in the Class TTabs.\n\nCould you change it for previous font and see if there is a difference ? thanks','',0,'CA==','3e6px8rk',1,0,'',2,0,0),(48192,9944,6,92,0,'81.44.81.58',1202938110,1,0,1,1,1,0,'','','[quote=&quot;JmGarcia&quot;:2l8npdk3][quote=&quot;Antonio Linares&quot;:2l8npdk3]El problema es que si son ventanas de consola, entonces no se les puede enviar mensajes. [b:2l8npdk3]Si son ventanas normales, si.[/b:2l8npdk3][/quote:2l8npdk3]\nBueno, parece que algo se puede hacer... ¿ no ?\nBueno pueden ser ventanas de una aplicación de telnet (como la telnet de NT, que funciona en Win2000/XP), no tiene que ser de consola.\nPodríamos experimentar con varios NotePad.exe.\nExplícame esto ultimo (Si son ventanas normales, si).\n\nP.D.: Que rarito soy ¿ verdad ?, es que con lo de \"altas, bajas, modificaciones, consultas, etc...\" no me divierto  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->[/quote:2l8npdk3]\n\nEmpieza por capturar la ventana:\n\n    oWnd:WCapture( cTitle, .T. )\n\nsigue con enviar a la ventana las pulsaciones de las teclas así:\n\nFWKEYBOARD( oWnd, VK_INSERT )\n\na ver si tienes suerte.\n\nSaludos\nCarlos G.\n\n/* *************************** */\nFUNCTION FWKEYBOARD(OWND,NKEY)\n    OWND:SETFOCUS()\n    OWND:POSTMSG( WM_KEYDOWN, NKEY, 0)\nRETURN NIL\n/* *************************** */','',0,'wA==','2l8npdk3',1,0,'',92,0,0),(48193,9913,3,1231,0,'83.144.114.249',1202940523,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:zb411ygr]Robert,\n\nIt may be related to the font that we use now in the Class TTabs.\n\nCould you change it for previous font and see if there is a difference ? thanks[/quote:zb411ygr]\n\nWhat was the previous font?\n\nR.','',0,'gA==','zb411ygr',1,0,'',1231,0,0),(48194,9946,6,53,0,'189.139.13.37',1202941344,1,0,1,1,1,1,'','','zazibr:\n\nPara campos numericos usa el PICTURE como sigue\n\n\"@Z 9,999.99\"\n\nSaludos','',0,'gA==','10aij4nw',1,0,'',53,0,0),(48195,9929,6,1222,0,'85.155.80.226',1202941857,1,0,1,1,1,0,'','Fast Report','Hola a todos,\n\nAlguien ha probado la version Beta de Fast Report para [x]Harbour?.\nMe parece interesante pero me gustaria tener vuestra opinion.\n\nUn cordial saludo','',0,'','2soqdu8x',1,0,'',1222,0,0),(48196,9944,6,596,0,'84.76.66.27',1202942074,1,0,1,1,1,1,'','','[quote=&quot;FiveWiDi&quot;:208rynkf]oWnd:WCapture( cTitle, .T. )[/quote:208rynkf]\n¿ Quien es [b:208rynkf]oWnd[/b:208rynkf] ?\n\nMe da error: Error description: Error BASE/1003  Variable does not exist: OWND','',0,'wA==','208rynkf',1,0,'',596,0,0),(48197,9881,1,418,0,'91.171.74.123',1202943774,1,0,1,1,1,0,'','','AIE, i am the last!!!\n\nif i jump to FWH  this forum will [b:13swfxyx]DIED[/b:13swfxyx][i:13swfxyx]\nI am sorry for that, but i think i will  follow your example...\n <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> [/i:13swfxyx]','',0,'YA==','13swfxyx',1,0,'',418,0,0),(48198,9947,3,49,0,'62.13.172.68',1202947867,1,0,1,1,1,1,'','outlook 2003 test','I want  when I click one menu of outlook2003  see  a tree or a xbrowse \n \nI made this  testout.prg\n\n [code:3lixiw4i]\n\n// FWH Class TOutLook2003\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Splitter&#46;ch&quot;\n\n // LockType\n#define adLockUnspecified   -1\n#define adLockReadOnly       1\n#define adLockPessimistic    2\n#define adLockOptimistic     3\n#define adLockBatchOptimistic 4\n\n// CursorType\n#define adOpenUnspecified     1\n#define adOpenForwardOnly     0\n#define adOpenKeyset          1\n#define adOpenDynamic         2\n#define adOpenStatic          3\n\n\n\n// Cursor Location\n#define adUseClient           3\n#define adUseServer           2\n\n// State constants\n\n#define   adStateClosed       0    //The object is closed\n#define adStateOpen           1    //The object is open\n\nstatic lExit &#58;= &#46;F&#46;\nSTATIC oDb, oSc, oCt\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oWnd, oOutLook2003, oStatusBar, oSplit, cCombo, oRad, nValue &#58;= 1\n   local oFont,oTree,oBar\n\n   DEFINE WINDOW oWnd TITLE &quot;FWH new Class TOutLook2003&quot; MDI ;\n    MENU BuildMenu&#40;&#41;\n    DEFINE BUTTONBAR oBar _3D SIZE 44, 46 OF oWnd 2007 //36, 40\n\n   DEFINE OUTLOOK2003 oOutLook2003 OF oWnd ;\n      PROMPTS &quot;Categorie&quot;, &quot;Prodotti&quot;, &quot;Utenti&quot;, &quot;Tabelle&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot;\n\n   oWnd&#58;oLeft = nil // Because the splitter is going to control the resize\n\n   @ 1, 2 BUTTON &quot;New&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION BuildDlg&#40;&#41;\n\n   @ 3, 2 BUTTON &quot;Edit&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Edit&quot; &#41;\n\n   @ 5, 2 BUTTON &quot;Search&quot; OF oOutLook2003&#58;aDialogs&#91; 1 &#93; SIZE 80, 22 ACTION MsgInfo&#40; &quot;Search&quot; &#41;\n\n   @ 1, 1 COMBOBOX cCombo ITEMS &#123; &quot;January&quot;, &quot;February&quot;, &quot;March&quot;, &quot;April&quot;, &quot;May&quot; &#125; ;\n      OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 170, 100\n\n   DEFINE FONT oFont NAME &quot;Arial&quot; SIZE 0, -10\n\n   @ 12, 10 SAY Date&#40;&#41; OF oOutLook2003&#58;aDialogs&#91; 2 &#93; SIZE 80, 20 FONT oFont\n\n   @ 3, 1 RADIO oRad VAR nValue OF oOutLook2003&#58;aDialogs&#91; 2 &#93; ;\n      ITEMS &quot;&amp;Day&quot;, &quot;&amp;Week&quot;, &quot;&amp;Month&quot; SIZE 100, 20\n\n   oRad&#58;SetFont&#40; oFont &#41;\n\n   SET MESSAGE OF oWnd TO &quot;FW OUTLOOK 2003 TEST&quot; CENTER NOINSET   2007\n\n   SetParent&#40; oOutLook2003&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   oWnd&#58;oClient = nil\n\n\n\n\n\n      ConnectToDataBase&#40;&#41;\n\n     IF oDb != NIL &#46;AND&#46; oDb&#58;State == adStateOpen\n\n         IF OpenTables&#40;&#41;\n\n            @  00, 191+5 TREEVIEW oTree SIZE oWnd&#58;nRight, oWnd&#58;nBottom PIXEL OF oWnd&#58;oWndClient\n\n\n         ENDIF\n      ENDIF\n\n\n         @ 0, 191 SPLITTER oSplit ;\n      VERTICAL _3DLOOK ;\n      PREVIOUS CONTROLS oOutLook2003 ;\n      HINDS CONTROLS oWnd&#58;oWndClient ;\n      SIZE 4, oWnd&#58;nHeight - 70 PIXEL ;\n      OF oWnd\n\n\n\n\n\n\n\n\n   SetParent&#40; oSplit&#58;hWnd, oWnd&#58;hWnd &#41;\n\n   ACTIVATE WINDOW oWnd ;\n     ON INIT MakeTree&#40; oTree &#41;  ;\n      ON RESIZE &#40;oSplit&#58;Adjust&#40;&#41;,oTree&#58;refresh&#40;&#46;t&#46;&#41;&#41; ;\n      VALID lExit &#58;= &#46;T&#46;\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n STATIC FUNCTION MakeTree&#40; oTree &#41;\n\n   LOCAL oItem\n\n   oSc&#58;MoveFirst&#40;&#41;\n   DO WHILE !oSc&#58;Eof&#40;&#41;\n\n      oItem    &#58;= oTree&#58;Add&#40; oSc&#58;Fields&#40; &quot;SCategoria&quot; &#41;&#58;Value &#41;\n      oItem&#58;Cargo &#58;= oSc&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value\n\n      oCt&#58;Filter  &#58;= &quot;SCATEGORIA = &quot; + LTRIM&#40; STR&#40; oSc&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value &#41; &#41;\n      IF oCt&#58;RecordCount&#40;&#41; &gt; 0\n         oCt&#58;MoveFirst&#40;&#41;\n         DO WHILE !oCt&#58;Eof&#40;&#41;\n            oItem&#58;Add&#40; oCt&#58;Fields&#40; &quot;Categoria&quot; &#41;&#58;Value,, oCt&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value &#41;\n            oCt&#58;MoveNext&#40;&#41;\n         ENDDO\n      ENDIF\n\n      oSc&#58;MoveNext&#40;&#41;\n   ENDDO\n\n  oTree&#58;ExpandAll&#40;&#41;\n\n   oCt&#58;Filter  &#58;= &quot;&quot;\n   oSc&#58;MoveFirst&#40;&#41;\n   oCt&#58;MoveFirst&#40;&#41;\n   SetScope&#40;&#41;\n\n   RETURN &#46;T&#46;\n\n STATIC FUNCTION SetScope&#40;&#41;\n\n   oCt&#58;Filter &#58;= &quot;SCATEGORIA = &quot; + LTRIM&#40; STR&#40; oSc&#58;Fields&#40; &quot;ID&quot; &#41;&#58;Value &#41; &#41;\n   IF oCt&#58;RecordCount&#40;&#41; &gt; 0\n      oCt&#58;MoveFirst&#40;&#41;\n   ENDIF\n\n   RETURN NIL\n\n\n\n\nfunction BuildMenu&#40;&#41;\n\n   local oMenu\n\n   MENU oMenu 2007\n      MENUITEM &quot;&amp;One&quot;\n      MENUITEM &quot;&amp;Two&quot;\n      MENUITEM &quot;&amp;Three&quot;\n   ENDMENU\n\nreturn oMenu\n\n//----------------------------------------------------------------------------//\n\nfunction BuildDlg&#40;&#41;\n\n   local oDlg, oOutL2003\n\n   DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n\n   REDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ;\n      PROMPTS &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; ;\n      BITMAPS &quot;&#46;&#46;\\bitmaps\\mail&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\calendar&#46;bmp&quot;, &quot;&#46;&#46;\\bitmaps\\notes&#46;bmp&quot; ;\n      DIALOGS &quot;Page1&quot;, &quot;Page2&quot;, &quot;Page3&quot;\n\n   REDEFINE BUTTON ID 110 OF oOutL2003&#58;aDialogs&#91; 1 &#93; ACTION MsgInfo&#40; &quot;Click&quot; &#41;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction WinRun&#40;&#41;\n\n   while NoGPF&#40;&#41;\n      if lExit\n         PostQuitMessage&#40; 0 &#41;\n      endif\n   end\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n#pragma BEGINDUMP\n\n#include &lt;windows&#46;h&gt;\n#include &lt;hbapi&#46;h&gt;\n\nBOOL SysRefresh&#40; void &#41;;\n\nHB_FUNC&#40; NOGPF &#41;\n&#123;\n   __try\n   &#123;\n      hb_retl&#40; SysRefresh&#40;&#41; &#41;;\n   &#125;\n   __except &#40; &#40; hb_retl&#40; TRUE &#41;, TRUE &#41; &#41;\n   &#123;&#125;\n&#125;\n\n#pragma ENDDUMP\n\n\n\n\n\n\n\n STATIC FUNCTION ConnectToDataBase\n\n\n   oDB                    &#58;= TOLEAuto&#40;&#41;&#58;New&#40; &quot;ADODB&#46;Connection&quot; &#41;\n   oDB&#58;ConnectionString   &#58;= &quot;Provider=Microsoft&#46;Jet&#46;OLEDB&#46;4&#46;0;Data Source=ecom&#46;mdb;User Id=admin;Password=;&quot;\n   oDB&#58;CursorLocation     &#58;= adUseClient\n   TRY\n      oDB&#58;Open&#40;&#41;\n   CATCH\n      oDB                  &#58;= NIL\n      MsgInfo&#40;\'Connect Fail\'&#41;\n      RETURN NIL\n   END\n\n\nRETURN oDB\n\n//----------------------------------------------------------------------------//\n\nSTATIC FUNCTION OpenTables\n\n   oSc         &#58;= TOLEAuto&#40;&#41;&#58;New&#40; &quot;ADODB&#46;RecordSet&quot; &#41;\n   WITH OBJECT oSc\n      &#58;ActiveConnection    &#58;= oDB\n      &#58;CursorType          &#58;= adOpenDynamic\n      &#58;LockType            &#58;= adLockOptimistic\n      &#58;Source              &#58;= &quot;SCATEGORIE&quot;\n      &#58;CursorLocation      &#58;= adUseClient\n   END\n\n   TRY\n      oSc&#58;Open&#40;&#41;\n   CATCH\n      oSc                  &#58;= NIL\n      MsgInfo&#40; &quot;ATTENZIONE - Non posso aprire la tabella SCATEGORIE&quot; &#41;\n   END\n\n   oCt         &#58;= TOLEAuto&#40;&#41;&#58;New&#40; &quot;ADODB&#46;RecordSet&quot; &#41;\n   WITH OBJECT oCt\n      &#58;ActiveConnection    &#58;= oDB\n      &#58;CursorType          &#58;= adOpenDynamic\n      &#58;LockType            &#58;= adLockOptimistic\n      &#58;Source              &#58;= &quot;CATEGORIE&quot;\n      &#58;CursorLocation      &#58;= adUseClient\n   END\n\n   TRY\n      oCt&#58;Open&#40;&#41;\n   CATCH\n      oCt                  &#58;= NIL\n      MsgInfo&#40; &quot;ATTENZIONE - Non posso aprire la tabella CATEGORIE&quot; &#41;\n   END\n\n   IF oSc != NIL &#46;AND&#46; oCt != NIL\n      RETURN &#46;T&#46;\n   ENDIF\n\nRETURN &#46;F&#46;\n\n[/code:3lixiw4i]\n\n\nNow I see the tree always\n\nbut I wanted click on \"categorie\" menu of outlook 2003 and see the treeview\n\nor \n \nclick on \"utenti\" menu of of outlook 2003 and see  and see a Xbrowse with utenti \n \nhow I can make it ?','',0,'AIA=','3lixiw4i',1,0,'',49,0,0),(48199,9913,3,868,0,'219.64.121.60',1202953239,1,0,1,1,1,1,'','','Previous font used in Tabs.Prg was :\n[code:x7lg9hg7]\n   &#58;&#58;oFont     = TFont&#40;&#41;&#58;New&#40; &quot;Ms Sans Serif&quot;, 0, -9 &#41;\n[/code:x7lg9hg7]','',0,'AIA=','x7lg9hg7',1,0,'',868,0,0),(48200,9881,1,303,0,'72.220.181.80',1202955095,1,0,1,1,1,0,'','','Patili,\n\nThere will be lots of people willing to help you convert to 32bit.\n\nYou won\'t regret it.\n\nRegards,\nJames','',0,'AIA=','sp7fl9gz',1,0,'',303,0,0),(48201,9948,6,644,0,'190.139.162.138',1202958371,1,0,1,1,1,0,'','El sistema se pone lento','Tengo un sistema de liquidacion de sueldos bajo windows 98 sobre un servidor windows server 2000. Funciona todo bien mientras no navegue en internet con el iexplorer. Ejecutando esta aplicación el sistema se vuelve sumamente lento y los browser se ponen terriblemente pesados. Alguien tiene una respuesta para esto. Desde ya les agradezco mucho.','',0,'AIA=','37w8vs16',1,0,'',644,0,0),(48202,9948,6,303,0,'72.220.181.80',1202964200,1,0,1,1,1,0,'','','Here is an old message. Maybe this is your problem.\n\nJames\n\n-----------------------------\nCheck to see if you have norton antivirus running.  If so, disable it and try again.  I had the same experience and after shuting down Norton AntiVirus, it all went back to normal or even better than on a \'98 work station.\n\n--\nReinaldo Crespo-Bazán\n<!-- w --><a class=\"postlink\" href=\"http://www.structuredsystems.com\">www.structuredsystems.com</a><!-- w -->\n<!-- e --><a href=\"mailto:reinaldocrespo@sanjuanstar.net\">reinaldocrespo@sanjuanstar.net</a><!-- e -->','',0,'AIA=','eia4kafl',1,0,'',303,0,0),(48203,9881,1,418,0,'91.171.74.123',1202973510,1,0,1,1,1,0,'','','Thanks everybody, in this time i have not very much time for \"Clippering\" (i am building my new veterinay clinic and have a lot of problems with it).\nI say \"Clippering\" because i am  and old  .not. \"mohican\" .but. \"brontosaure\"\nfrom the Clipper area. In my app, i use many of the Hypersix function:\neg:  sx_setscope(), sx_keysincluded() .... and compound indexes.\nWill it be easy to translate this in 32 bist','',0,'AIA=','1i6ttclc',1,0,'',418,0,0),(48205,9913,3,1231,0,'83.144.114.249',1202976180,1,0,1,1,1,1,'','','I put this line to my code:\n\noTabs1:oFont:=TFont():New( \"Ms Sans Serif\", 0, -9 ) \n\nNow it shows my national signs correctly\n\nThank you for your help.\n\nRobert','',0,'AIA=','172i1j3f',1,0,'',1231,0,0),(48206,9929,6,92,0,'213.96.45.6',1202976196,1,0,1,1,1,0,'','Re: Impresion de informes (L&amp;L, PDF, Access, ...)?','[quote=&quot;ermatica&quot;:bny0ahrr]Hasta ahora tenia un informe que es un impreso pre-impreso y que se rellenaba con una impresora matricial (oPrn:Say(...) ).Me ha surgido la necesidad de realizar el informe en A4 (completo), imprimirlo con laser que incluye campos, sus casillas, así como anagrama y texto en vertical. Consultando en este foro he visto una posible solución y es convertir el documento en pdf y rellenarlo con .xml:\n\n[code:bny0ahrr]\n Local cFicheroXML&#58;= &quot;C&#58;\\Temp\\Prueba&#46;xml&quot; \n Local cLugarAcrobat&#58;=&quot;C&#58;\\Archivos de programa\\Adobe\\Reader 8&#46;0\\Reader\\AcroRd32&#46;exe /p/h&quot;\n \n Local Proceso &#58;= &quot;acrord32&#46;exe&quot;\n \n Winexec&#40;cLugarAcrobat+&quot; &quot;+cFicheroXML&#41;\n\n WaitSeconds&#40;10&#41;\n\n  if file&#40;&quot;KillProc&#46;exe&quot;&#41;\n      waitrun&#40;&quot;KillProc&#46;exe &quot; + &#91;&quot;&#93; + Proceso + &#91;&quot;&#93; ,1&#41;\n  end\n[/code:bny0ahrr]\n\nCon esto abro el adobe reader, cargo el documento, imprimo y para cerrarlo, despues de 10 segundo utilizo una utilidad que tambien estaba mencionada en el foro.\nFunciona, pero es algo lenta y quisiera saber de algun generador de informes que permita realizar este tipo de informes pero teniendo un mayor control (copias,impresora,etc.). Alguien con experiencia con este tipo de informes, valoro incluso la posibilidad de comprar algun generador de informes pero manejable desde FWH.\n\nGracias de antemano a todos.\nUn cordial saludo.\n\nFW 8.01 + Harbour + Borland[/quote:bny0ahrr]\n\nNo se si entendido bien lo que pretendes pero, con las herramientas de que disponemos hoy en día creo que te estas compliando la vida.\nNo lo he probado pero yo lo enfocaría así: creo el documento con TUtilprn (o Timprime, no recuerdo como se llama) de The Full y además para el código de barras utilizas BarLib de Cayetano, lo escaneo y lo pongo de fondo de una ventana o diálogo, y los controles de la ventana/diálogo en modo transparente.\n\nA ver.\nQue alguién opine no sea que haya dicho alguna barbaridad.\n\nSaludos\nCarlos G.','',0,'gIA=','bny0ahrr',1,0,'',92,0,0),(48208,9944,6,92,0,'213.96.45.6',1202976462,1,0,1,1,1,0,'','','[quote=&quot;JmGarcia&quot;:2puatf0k][quote=&quot;FiveWiDi&quot;:2puatf0k]oWnd:WCapture( cTitle, .T. )[/quote:2puatf0k]\n¿ Quien es [b:2puatf0k]oWnd[/b:2puatf0k] ?\n\nMe da error: Error description: Error BASE/1003  Variable does not exist: OWND[/quote:2puatf0k]\n\nPerdón corrí demasido.\n\ndebe ser algo así:\n\noWnd := TWCapture:New( cTitle )\n\nBusca en el foro Capture, y cTitle es el título de la ventana de la aplicación a la que quieres acceder.\n\nSaludos\nCarlos G.','',0,'wA==','2puatf0k',1,0,'',92,0,0),(48211,9944,6,456,0,'217.127.39.57',1202978093,1,0,1,1,1,1,'','','Si tienes el telnet en ventanas normales, el tema lo puedes solucionar de la siguiente manera.\n\nPrimero tienes que capturar el manejador de la ventana donde esta el telnet, lo mas facil es localizar por el texto del captiion de ventana. Una vez tienes el manejador (hWnd), se trata de ir enviado mensjes a la ventana.\n\n[code:egao509h]\nLOCAL hWnd1,hWnd2\nhWnd1&#58;=FindWindow&#40;0,&quot;cconsole&#58; host rigor&quot;&#41;\nhWnd2&#58;=FindWindow&#40;0,&quot;cconsole&#58; host slash&quot;&#41;\n//Si hWnd&gt;0 ventana encontrada\n\nEnvia&#40;hWnd1, &quot;texto que se envia&quot;&#41;\nEnvia&#40;hWnd2, &quot;texto que se envia&quot;&#41;\n&#46;&#46;&#46;\n//--------------------------------\nSTATIC FUNCTION Envia&#40;hWnd,uVal&#41;\n   LOCAL nLen,i\n   IF ValType&#40;uVal&#41;==\'N\'\n      uVal&#58;=AllTrim&#40;Str&#40;Int&#40;uVal&#41;&#41;&#41;  //asumo que no se usan decimales&#46;\n   ENDIF\n   nLen&#58;=Len&#40;uVal&#41;\n   FOR i&#58;=1 TO nLen\n      SendMessage&#40; hWnd, WM_KEYDOWN, Asc&#40; SubStr&#40;uVal,i,1&#41;&#41; &#41;\n   NEXT\nRETURN NIL[/code:egao509h]\nSi te funciona puedes obtimizar el proceso guardando los manejadores en un array, y hacer el envio de teclas para todos los elementos del array.','',0,'AIA=','egao509h',1,0,'',456,0,0),(48212,9941,23,130,0,'141.51.32.24',1202978694,1,0,1,1,1,1,'','','Hallo Norbert,\n\nhat jedes Browseobjekt eine eigene Datenbank oder hast du nur eine Dbf geöffnet ?\n\nWenn du 4 Dbf hast, könntest du das vielleicht über Relationen lösen, eine Masterdatenbank und 3 Abhängigkeiten.\n\nOder, eine andere Idee, versuch mal, das zentrale Scrollbarobjekt den einzelnen Browseobjekte zuzuweisen, also oBrw:oVScroll := oScroll.\n\nGruß\nStefan','',0,'AIA=','2xuej7ti',1,0,'',130,0,0),(48213,9941,23,130,0,'141.51.32.24',1202979000,1,0,1,1,1,1,'','','Ups, ich sehe grade, du hast 4 Arrays, aber auch da könntest du Abhängigkeite programmieren mit ON CHANGE.\n\nAber noch eine Idee, warum nutzt du nicht einfach ::Skip()\n\n...\nON UP oArray1:Skip(1), oArray1:Refresh() usw.\n...\n\n\nGruß\nStefan','',0,'AIA=','1ibej6c8',1,0,'',130,0,0),(48214,9881,1,303,0,'72.220.181.80',1202979429,1,0,1,1,1,0,'','','Patili,\n\nBoth the CDX and NTX RDDs support scopes and compound indexes. I\'m not sure what sx_keysincluded() does, so I don\'t know about that one.\n\nYou could probably write functions with the same names as the Hypersix functions and use the new functions to translate to the new RDD.\n\nExample:\n\nfunction sx_setscope(...)\nreturn ordSetScope(...)\n\nThis way you wouldn\'t have to change all the Hypersix function calls in your entire program.\n\nJames','',0,'AIA=','1hvjjwxt',1,0,'',303,0,0),(48215,9931,3,89,0,'213.21.136.60',1202980358,1,0,1,1,1,0,'','','Antonio\n\nNow is OK  , thank \n\nMAurizio','',0,'AIA=','3phwi118',1,0,'',89,0,0),(48216,9951,20,49,0,'213.82.134.66',1202981557,1,0,1,1,1,1,'','outlook e xbrowse e tree','Caro Emg e tutti \n\nnell\'esempio di outlook2003   la procedura mi deve far visualizzare solo sfondo ( un bitmap per esempio) nell aparte sinistra e \n\nquando io clicco su un menu di outlook2003  la procedura deve aprirmi un \n\nxbrowse nella  parte sinistra della finestra  oppure quando clicco sul \n\nsecondo menu la procedura mi deve aprire un tree sempre nella parte \n\nsinistra della finestra \nqual\'è il comando per dirgli di aprire una cosa diversa ogni volta ?\n\n\nun test d\'esempio io l\'ho messo ( con il treeview ) \n\nsul forum inglese \n\n se qualcuno di voi ha qualche idea ...','',0,'AIA=','2p0xbuyl',1,0,'',49,0,0),(48217,9913,3,868,0,'219.64.121.60',1202981662,1,0,1,1,1,1,'','','Mr Robert Frank\n\nIt is really surprising.\nDoes it work for other fonts like Tahoma?','',0,'AIA=','2dyqwmcd',1,0,'',868,0,0),(48218,9951,20,6,0,'87.18.232.168',1202982245,1,0,1,1,1,1,'','Re: outlook e xbrowse e tree','Purtroppo non ho mai usato quel controllo e quindi non lo conosco.\n\nEMG','',0,'AIA=','20nscnv6',1,0,'',6,0,0),(48219,9947,3,6,0,'87.18.232.168',1202982578,1,0,1,1,1,1,'','Re: outlook 2003 test','I get \"Connect fail\" running your sample.\n\nEMG','',0,'AIA=','3jpj005r',1,0,'',6,0,0),(48220,9947,3,49,0,'213.82.134.66',1202982871,1,0,1,1,1,1,'','','you have my file ecom ?\ndo you remeber of it ?','',0,'AIA=','spqaso8w',1,0,'',49,0,0),(48221,9947,3,6,0,'87.18.232.168',1202983060,1,0,1,1,1,1,'','','No. You should learn to build self contained samples.\n\nEMG','',0,'AIA=','1js92pps',1,0,'',6,0,0),(48222,9947,3,49,0,'213.82.134.66',1202983400,1,0,1,1,1,1,'','','I cannot create a self.... because there is many table and data....\nansd i not Know how I can make to you this sample\n\nBUT it is not important \n\nyou can use an your own file MDB or dbf \n\nth eproblem is another here!!!','',0,'AIA=','30cf52e2',1,0,'',49,0,0),(48223,9947,3,49,0,'213.82.134.66',1202983579,1,0,1,1,1,1,'','','i want only know the command to show a xbrowse  or a another object at th left of the main window when I clich a menu of TOUTLOOK2003\n\nperhaps you not read goo my messages\n\n\nsorry,..','',0,'AIA=','n8httjpe',1,0,'',49,0,0),(48224,9929,6,1222,0,'85.155.80.226',1202983945,1,0,1,1,1,0,'','Me explico','Es cierto, no lo expuse correctamente del todo.\nTengo un aplicativo, con varios mantenimientos en donde se introducen una serie de datos (nombres, dni, direcciones, marcas, modelos, matriculas, etc.) y desde uno de estos mantenimientos (Expedientes) debo imprimir una serie de informes, unos son en papel preimpreso copiativo, esto lo hago con (oPrn:Say...), otros son informes o listados en papel blanco, y ahora tengo la necesidad de imprimir un informe completo, es decir, no sólo los datos sino tambien la cuadricula, escudos, etc., por ejemplo, imprimir el MODEDLO 620, MODELO 110  de la Agencia Tributaria etc., pero a partir de los datos introducidos en los mantenimientos. \n\nSaludos','',0,'AIA=','2kguabpm',1,0,'',1222,0,0),(48225,9935,6,1238,0,'217.127.123.34',1202984372,1,0,1,1,1,1,'','','Para el Sr. Mercado.\n\nHe intentado compilar alguno de los ejemplos que se adjuntan y me da error en el enlazado.\n\n[color=blue:1wc0tz4x]Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland\nError: Unresolved external \'_hb_sxDeCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxPtoD\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxDtoP\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_hb_sxEnCrypt\' referenced from C:\\HARBOUR\\LIB\\RDD.LIB|dbf1\nError: Unresolved external \'_HB_FUN_FW_GT\' referenced from C:\\PERSONAL\\FWH\\TSBROWSE\\LIB\\SBROWSEH.LIB|TSCOLUMN[/color:1wc0tz4x]\n\n¿Pueden decirme lo que no estoy haciendo bien?\n\nMuchas gracias','',0,'Ag==','1wc0tz4x',1,0,'',1238,0,0),(48227,9952,22,1146,0,'87.223.181.42',1202984800,1,0,1,1,1,0,'','web server','Hola Antonio:\n\n¿Tienes pensado actualizar la clase Webs erver?. Muchas gracias,\n\nUn saludo,','',0,'Ag==','mhflcv2g',1,0,'',1146,0,0),(48228,9913,3,1231,0,'83.12.224.186',1202985288,1,0,1,1,1,1,'','','[quote=&quot;nageswaragunupudi&quot;:1g233wdd]\nDoes it work for other fonts like Tahoma?[/quote:1g233wdd]\n\nI tried \noTabs1:oFont:=TFont():New( \"Tahoma\", 0, -9 ) \n\nIt works too, but Tahoma hasn\'t my national signs.\n\nRegards\nRobert','',0,'gA==','1g233wdd',1,1202985445,'',1231,1,0),(48229,9913,3,2,0,'87.218.146.61',1202985407,1,0,1,1,1,1,'','','Robert,\n\nThanks for your feedback,','',0,'gA==','2quow8fp',1,0,'',2,0,0),(48230,9947,3,1257,0,'195.93.60.2',1202985698,1,0,1,1,1,1,'','Structure of Outlook2003','Hello Silvio,\n\nThere are 2 Window-Childs : one obove the Buttons\nand 1 you have on the righthandside.\nDo you want to show on left or right ?\nI prefer the right side. The chhilds above the\nbuttons, i use for messages.\n\nI can make you a ready to use structure file,\nwhere you can put your functions. As well,\nthere are Office2007-Bars integreated.\nIt comes from the new DB-Tools, where everything\ncomes together.\nIt is a bit hard, to understand.\n\n[img:ensf1omj]http&#58;//www&#46;pflegeplus&#46;com/pictures/outlook3&#46;jpg[/img:ensf1omj]\n\nRegards\nUwe','',0,'CA==','ensf1omj',1,1202991811,'',1257,1,0),(48231,9944,6,2,0,'87.218.146.61',1202987932,1,0,1,1,1,1,'','','JM,\n\nPor ventanas normales me refiero a ventanas que no sean de consola (las que se crean con \"cmd\")','',0,'CA==','1x4f7adr',1,0,'',2,0,0),(48232,9953,3,439,0,'200.125.50.179',1202988800,1,0,1,1,1,1,'','New update of TSBrowse 7 with some bug fixes in our blog','New revision of class TSBrowse with some bug fixed and contributions of users dated 13/02/2008.\n\nYou can find it in:\n\n<!-- w --><a class=\"postlink\" href=\"http://www.respuestasintegradas.blogspot.com\">www.respuestasintegradas.blogspot.com</a><!-- w -->','',0,'CA==','2x997h8j',1,0,'',439,0,0),(48233,9954,6,439,0,'200.125.50.179',1202988873,1,0,1,1,1,1,'','Nueva revisión de TSBrowse con correcciones en nuestro Blog','Nueva revisión de TSBrowse con correcciones y aportes de usuarios fechada 13/02/2008.\n\nDisponible en nuestro blog\n\n<!-- m --><a class=\"postlink\" href=\"http://www.respuestasintegradas.blogspot.com/\">http://www.respuestasintegradas.blogspot.com/</a><!-- m -->','',0,'CA==','1cg0n1jc',1,0,'',439,0,0),(48234,9947,3,49,0,'213.82.134.66',1202990782,1,0,1,1,1,1,'','','dear Uwe\n i want show treeview  object on the left of  oWnd when I click on \"Categorie\", i wan tshow a xbrowse on the left of oWnd when I click on \"Utenti\n\nwhen i open the program  the application must see the outlook2003 on the right and a bitmap on the background on the left\n\ni hope you understand me','',0,'CA==','2m65xi6t',1,0,'',49,0,0),(48235,9936,6,436,0,'190.136.186.35',1202991123,1,0,1,1,1,0,'','','Hola Josemar\n\nMira, yo lo solucioné llamando directamente a la función:\n\nIF GETPRINTDC() == 0 //// Cancelar del Setup de impresoras de Win\n       	RETURN .F.\nENDIF\n\nSaludos','',0,'CA==','1bgtzmdh',1,0,'',436,0,0),(48236,9955,3,1257,0,'195.93.60.2',1202992306,1,0,1,1,1,1,'','Outlook 2003 Handling','Hello Silvio,\n\nIn the Screenshot, i open Outlook2003\nwith a selection in the Office2007-Bar\nbut it is no problem, to open the Outlook-Dialog\nfrom somewhere else, like a Dialog in the Main-Window.\n\n[img:2iflkxx5]http&#58;//www&#46;pflegeplus&#46;com/pictures/outlook3&#46;jpg[/img:2iflkxx5]\n\nRegards\nUwe','',0,'CA==','2iflkxx5',1,0,'',1257,0,0),(48237,9881,1,418,0,'91.171.74.123',1202992433,1,0,1,1,1,0,'','','Very good idea\nThnks.','',0,'CA==','3tldmku3',1,0,'',418,0,0),(48238,9955,3,868,0,'219.64.121.60',1202993283,1,0,1,1,1,1,'','','Mr Ukoenig\n\nVery impressive','',0,'CA==','1p0mk1s9',1,0,'',868,0,0),(48239,9956,3,1257,0,'195.93.60.2',1202996200,1,0,1,1,1,1,'','Possible Backgrd.-Color or Brush for Outlook2003 ?','Hello from Germany,\n\na small problem :\n\nwhen i start a extern Dialog with a Outlook-Button,\nbefore i open the Child, there is a black part obove the buttons,\nbecause i cannot set a Basic-Color or Brush for Outlook2003.\nAs long i don\'t close the dialog and carry on with the\nfunction, the part is black. On the righthandside\nthe Brush comes from the Main-Dialog.\nSample : on the top of the Child, i set some parameters\nin a extern dialog for the database i want to open.\nor start the Calendar ( Screenshot )\nIs it possible to get a Brush or Background-Color ?\n\n[img:13sr1b9x]http&#58;//www&#46;pflegeplus&#46;com/pictures/outlook4&#46;jpg[/img:13sr1b9x]\n\nRegards\nUwe\n\n[/img]','',0,'CA==','13sr1b9x',1,0,'',1257,0,0),(48240,9954,6,36,0,'164.77.81.210',1202996934,1,0,1,1,1,1,'','','Hola a Todos\n\nalguien tiene compilado el SBTest, ya que no puedo compilarlo, me sale \nerror en el sbtest.res\n\n[code:1xak9c0d]Turbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\n&#46;\\sbtest&#46;res&#40;1&#41;&#58;\'Invalid character in &#46;DEF file\'\nFatal&#58; Error processing &#46;DEF file\n[/code:1xak9c0d]','',0,'AIA=','1xak9c0d',1,0,'',36,0,0),(48241,9931,3,303,0,'72.220.181.80',1202998501,1,0,1,1,1,0,'','','Antonio,\n\nI just downloaded the latest xHarbour and I am now getting this error.\n\nError: Unresolved external \'_HB_PCREPOS_LIBRARY\' referenced from C:\\XHARBOUR\\LIB\\RTL.LIB|regex\n\nRegards,\nJames','',0,'AIA=','1028na9w',1,0,'',303,0,0),(48242,9954,6,36,0,'164.77.81.210',1202998580,1,0,1,1,1,1,'','','!! SOLUCIONADO !!','',0,'AIA=','24rp8i6w',1,0,'',36,0,0),(48243,9931,3,6,0,'87.18.232.168',1202998662,1,0,1,1,1,1,'','','I get no errors using latest xHarbour from CVS.\n\nEMG','',0,'AIA=','p5okwnwh',1,0,'',6,0,0),(48244,9931,3,303,0,'72.220.181.80',1202999377,1,0,1,1,1,0,'','','OK, more strange info.\n\nI reinstalled xHarbour from FWH 8.01 and I am still getting the same error. So I wrote this test program:\n\n[code:2smbuyj3]#include &quot;fivewin&#46;ch&quot;\nfunction main&#40;&#41;\n   msgInfo&#40;&quot;Hello World&quot;&#41;\nreturn nil[/code:2smbuyj3]\n\nAnd it gives me the error also. I have no idea what is going on.\n\nJames','',0,'AIA=','2smbuyj3',1,0,'',303,0,0),(48245,9931,3,868,0,'219.64.121.60',1202999737,1,0,1,1,1,1,'','','Mr James\n\nYou shoud include pcrepos.lib to the link script. This lib is available in lib folder of xharbour.','',0,'AIA=','6jrzffke',1,0,'',868,0,0),(48246,9931,3,303,0,'72.220.181.80',1203000329,1,0,1,1,1,0,'','','NageswaraRao,\n\n&gt;You shoud include pcrepos.lib to the link script. \n\nOK, that solved it. \n\nI was compiling without it before so I am guessing that there is a new call to that lib in the new FWH 8.02 that wasn\'t in 8.01.\n\nThanks,\nJames','',0,'AIA=','okh15bpt',1,0,'',303,0,0),(48247,9931,3,6,0,'87.18.232.168',1203001310,1,0,1,1,1,1,'','','The library pcrepos.lib is required since 2005, if I\'ve look correctly in xHarbour changelogs. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'AIA=','12b5w6yg',1,0,'',6,0,0),(48248,9936,6,1246,0,'69.19.14.22',1203002780,1,0,1,1,1,1,'','','HOLA IVAN:\nMUCHAS GRACIAS POR TU TIP Y POR INTERSESARTE EN MI PREGUNTA\n SI FUNCIONA PERO AL CANCELAR O SELECCIONAR LA IMPRESORA, ME MANDO OTRA VEZ LA VENTANA DE SELECCION, NO SE SI ESTO TE PASAE ATI TAMBIEN PERO MUCHAS GRACIAS, LE BUSCARE HABER SI ES MI PRG Y QUITAR LA SEGUNDA VENTANA.','',0,'AIA=','250xrsu1',1,0,'',1246,0,0),(48249,9948,6,644,0,'201.252.92.32',1203002986,1,0,1,1,1,0,'','','No tengo instalado Norton antivirus. En realidad ningún antivirus. ¿ Alguna otra idea ? . Muchas gracias por tu respuesta','',0,'AIA=','2pg4jjw2',1,0,'',644,0,0),(48250,9931,3,868,0,'219.64.121.60',1203003830,1,0,1,1,1,1,'','','How do we know how latest is the xHabour (  bcc  ) build released with FWH 8.02 ? I mean till what change log in xharbour.org ?','',0,'AIA=','zhib4bz3',1,0,'',868,0,0),(48251,9948,6,303,0,'72.220.181.80',1203004136,1,0,1,1,1,0,'','','Horacio,\n\nAre you calling IE with waitRun()? This can use 99% of the CPU.\n\nJames','',0,'AIA=','3o4xe45s',1,0,'',303,0,0),(48252,9931,3,303,0,'72.220.181.80',1203004606,1,0,1,1,1,0,'','','Enrico,\n\n&gt;The pcrepos.lib is required since 2005\n\nI find that it was not in buildx.bat in 7.10 and it was in buildx.bat in 8.01. I don\'t have 7.11 or 7.12 so I can\'t tell exactly when it was first used in FWH.\n\nI expect I still had xHarbour from 7.10 installed when I upgraded FWH from 8.01 to 8.02. However, I didn\'t get the error when using FWH 8.01 and xHarbour from 7.10.\n\nJames','',0,'AIA=','3770nr3l',1,0,'',303,0,0),(48253,9676,22,24,0,'80.24.12.168',1203004986,1,0,1,1,1,1,'','','[quote=&quot;antolin&quot;:3kp95b1p]En mi modesta opinión, es preferible inicializar el contenedor antes que el contenido. Dependiendo del tipo de window/dialogo los controles miden o se comportan de forma algo diferente. Por ejemplo, al final del metodo INITIATE del dialogo, no estaría mal.[/quote:3kp95b1p]\n\nPero es que el contenedor ya es inicializado!\nSe trata de QUITAR del ON INIT del dialogo y ponerlo en el lugar que le corresponder, pero el problema que comenta Antonio es si tiene que evaluarse antes o despues.\n\nUn ejemplo para entenderlo ;\n[code:3kp95b1p]\n// Actualmente;\n@1,1 SAY oSay PROMPT &quot;OCULTO&quot; OF oDlg\n\nACTIVATE DIALOG oDlg ON INIT &#40; oSay&#58;Hide, Eval&#40; bPepe &#41; &#41;[/code:3kp95b1p]\n\nInternamente, la evaluacion del ON INIT , oDlg:bInit, se produce en el method Initiate(),;\n\n[code:3kp95b1p]  \n   if &#58;&#58;bInit != nil\n      lResult = Eval&#40; &#58;&#58;bInit, Self &#41;\n      if ValType&#40; lResult &#41; == &quot;L&quot; &#46;and&#46; ! lResult\n         lFocus = &#46;f&#46;\n      endif\n   endif\n[/code:3kp95b1p]\n\nAsi, la propuesta es que cada control tenga su ON INIT, independiente del ON INIT del dialogo, que lógicamente, se evaluará en el method Initiate() del dialogo;\n\nEjemplo;\n\n[code:3kp95b1p]\n// Actualmente;\n@1,1 SAY oSay PROMPT &quot;OCULTO&quot; OF oDlg ;\n        ON INIT oSay&#58;HIde\n\nACTIVATE DIALOG oDlg ON INIT  Eval&#40; bPepe &#41; [/code:3kp95b1p]\n\nInternamente, la evaluacion del ON INIT , oDlg:bInit, se produce en el method Initiate(), igualmente como hasta ahora y mi propuesta es \nque se ejecute ANTES que el ON INIT del dialogo, que es lo más lógico,\ny lógicamente, puedes seguir usandolo como hasta ahora.\n\n[code:3kp95b1p]   \n\nAeval&#40; &#58;&#58;aControls,&#123;|o|if&#40; o&#58;bInit != NIL , Eval&#40; o&#58;bInit, o &#41;, &#41; &#125; \n\nif &#58;&#58;bInit != nil\n      lResult = Eval&#40; &#58;&#58;bInit, Self &#41;\n      if ValType&#40; lResult &#41; == &quot;L&quot; &#46;and&#46; ! lResult\n         lFocus = &#46;f&#46;\n      endif\n   endif\n[/code:3kp95b1p]\n\nYo creo que con esto se gana una legibilidad del codigo fuente MUY pero que MUY GRANDE, evitando MUCHOS errores en la codificación.\n\n¿ Se entiende mejor ahora ?','',0,'gIA=','3kp95b1p',1,0,'',24,0,0),(48254,9957,6,987,0,'189.133.21.250',1203005385,1,0,1,1,1,0,'','Genlabel para Antonio Martinez','Antonio Martinez:\n\nSi necesitas imprimir etiquetas para exhibir precios de productos con logotipo o para cualquier otra cosa, que es lo que estuve buscando en algunos foros y no encontre, tengo algo que podria ayudarte, no se si sea lo que estas buscando, te delo la imagen para que revises y si es lo que buscas con gusto te ayudo.. \n\n<!-- m --><a class=\"postlink\" href=\"http://img89.imageshack.us/my.php?image=etiquetaswr2.jpg\">http://img89.imageshack.us/my.php?image ... taswr2.jpg</a><!-- m -->\n\nSaludos..\n\n\nI.S.C. Victor Daniel Cuatécatl León.\nSoluciones y Diseño de Software Empresarial\n<!-- w --><a class=\"postlink\" href=\"http://www.soldisoft.unlugar.com\">www.soldisoft.unlugar.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->','',0,'gIA=','2gwbsin8',1,0,'',987,0,0),(48255,9956,3,303,0,'72.220.181.80',1203005728,1,0,1,1,1,0,'','','Uwe,\n\nThis is because Outlook2003 wasn\'t designed to call modal dialogs from the buttons. It displays a non-modal dialog in the black area after it calls bChange. Since you are calling another modal dialog from bChange the built-in dialog doesn\'t get displayed until after you close the modal one.\n\nLook at the setOption() method. You might try moving the bChange eval to after the dialog show(), but I don\'t know what other consequences this might have.\n\nNote that it is not traditional behavior to call a nonmodal dialog from an outlook bar button. The outlook bar is really designed for SDI applications.\n\nJames','',0,'gIA=','1n592vkq',1,0,'',303,0,0),(48256,9958,2,77,0,'213.98.161.146',1203006484,1,0,1,1,1,0,'','ERROR C2085 AL COMPILAR','Hola, a todos intento compilar la tsbrowse para clipper y me arroja el siguiente error:\n\n\\TSBrowse\\Include\\TSBrowse.ch(84)  Error C2085  Too many match markers in #translate or #command\n\\TSBrowse\\Include\\TSBrowse.ch(84)  Fatal C3043  #include error\n\nCual es el problema ?\n\nGracias.','',0,'gIA=','16p5uoic',1,0,'',77,0,0),(48257,9935,6,1255,0,'189.128.26.214',1203007093,1,0,1,1,1,0,'','','Hola Fernando:\n\nLas pruebas que he hecho son con FWH 7.12 a 8.02 y Harbour build 1.1, y me funciona sin problemas. Dame tu correo para enviarte la librería ya creada y un verce para construir un ejemplo\n\nSaludos\n\nManuel Mercado','',0,'gIA=','3cxdea0y',1,0,'',1255,0,0),(48258,9935,6,228,0,'201.245.222.86',1203007854,1,0,1,1,1,1,'','jejejeje','Manuel que pena involucrame en tu conversación, pero sera que me puede enviar la liby el ejemplo en verce.\n<!-- e --><a href=\"mailto:leandroalfonso@hymplus.com\">leandroalfonso@hymplus.com</a><!-- e -->\n<!-- e --><a href=\"mailto:leandroalfonso111@hotmail.com\">leandroalfonso111@hotmail.com</a><!-- e -->\n\nGracias de antemano.','',0,'gIA=','2ggbw6gw',1,0,'',228,0,0),(48259,9935,6,77,0,'213.98.161.146',1203008035,1,0,1,1,1,0,'','error c2085 al compilar','Hola, a todos intento compilar la tsbrowse para clipper y me arroja el siguiente error: \n\n\\TSBrowse\\Include\\TSBrowse.ch(84) Error C2085 Too many match markers in #translate or #command \n\\TSBrowse\\Include\\TSBrowse.ch(84) Fatal C3043 #include error \n\nCual es el problema ? \n\nGracias.\n\nPerdonar por la intromisión, pero es que voy un poco apurado','',0,'gIA=','2nr6ve2u',1,0,'',77,0,0),(48260,9931,3,2,0,'87.218.146.61',1203008122,1,0,1,1,1,1,'','','Nageswararao,\n\nWe publish xHarbour the same day that we download it from the CVS, once we run all our tests here.\n\nSo our build date is the CVS date <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','3e5lpcnw',1,0,'',2,0,0),(48261,9936,6,2,0,'87.218.146.61',1203008581,1,0,1,1,1,1,'','','JoseMar,\n\nSi el usuario pulsó cancelar en PrinterSetup() entonces esa función devuelve cero:\n[code:38hfxszs]\nif PrinterSetup&#40;&#41; == 0\n   MsgAlert&#40; &quot;operación cancelada&quot; &#41;\n   return nil\nendif\n[/code:38hfxszs]','',0,'AIA=','38hfxszs',1,0,'',2,0,0),(48262,9948,6,644,0,'201.252.92.32',1203009196,1,0,1,1,1,0,'','','James: Al navegador no lo ejecuto a través de la aplicación. Lo hago desde el escritorio. Y este síntoma no aparece hasta que navego un rato. Si ejecuto el iexplorer y lo cierro enseguida el sistema funciona bien. Pareciese que el iexplorer no libera los recursos que utiliza porque, aunque lo cierre mi aplicaci\'on se pone muy pesada y le cuesta pintar los controles. Desde ya te agradezco infinitamente tu ayuda. Seguire investigando','',0,'AIA=','38v5u4fv',1,0,'',644,0,0),(48263,9935,6,1238,0,'217.127.123.34',1203009265,1,0,1,1,1,1,'','','Buenas tardes D. Manuel:\n\nLe adjunto mi dirección de correo electrónico. Muchas gracias desde Zaragoza (España).\n\n<!-- e --><a href=\"mailto:fergonm@telefonica.net\">fergonm@telefonica.net</a><!-- e -->','',0,'AIA=','1m8atl41',1,0,'',1238,0,0),(48264,9935,6,119,0,'217.168.114.96',1203009864,1,0,1,1,1,0,'','','Colegas... compilando la clase me arroja este error :\n\nError E0030 Syntax error : \"parse error at \'(\' \n\nLa linea de la clase es :\n\n[code:2d6by684]\n   METHOD Refresh&#40; lPaint &#41; INLINE If&#40; &#58;&#58;lFirstPaint == Nil &#46;or&#46; &#58;&#58;lFirstPaint, 0, &#40; ;\n                                       &#58;&#58;nLen &#58;= If&#40; &#58;&#58;lIsDbf, &#40; &#58;&#58;cAlias &#41;-&gt;Eval&#40; &#58;&#58;bLogicLen &#41;, ;\n                                       Eval&#40; &#58;&#58;bLogicLen &#41; &#41;, &#58;&#58;lNoPaint &#58;= &#46;F&#46;, Super&#58;Refresh&#40; lPaint &#41; &#41; &#41;\n[/code:2d6by684]\n\nEn la linea 9716 el error es : Error E0047 Code block contains both macro and declared symbols references\n\n[code:2d6by684]\n&#58;&#58;bGoTop &#58;= If&#40; &#58;&#58;lFilterMode, &#123;|| BrwGoTop&#40; Self &#41; &#125;, ;\n                                      &#123;|| &#40; cAlias &#41;-&gt;&#40; DbGoTop&#40;&#41; &#41; &#125; &#41;\n\n[/code:2d6by684]\neste ultimo error sale en mas de una linea <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nAlguien sabe decirme el porque=?\n\nSaludos.\nRicardo Ramírez!','',0,'AIA=','2d6by684',1,0,'',119,0,0),(48265,9932,3,335,0,'68.193.88.53',1203010452,1,0,1,1,1,0,'','','In theory, it\'s possible to do this without damaging the files. However, I don\'t have any DOS clipper 5.2e apps currently coexisting with xHarbour apps using the same files.  Thus I can\'t tell you \"yes\" for certain. \n\nI suggest that you create a set of test files and then access them with a simple test app that has versions in DOS Clipper 5.2e and also in xHarbour, and then run both apps at the same time and see what happens.  In addition to the dbf and cdx test files, I suggest that your test files include an FPT memo as well to make sure that memos won\'t get corrupted.\n\nIf you don\'t already have xHarbour, you can find out how to download it for free from xharbour.org in order to do your tests.\n\n- Roger','',0,'AIA=','yup1mgh8',1,0,'',335,0,0),(48266,9959,6,21,0,'87.220.91.186',1203011012,1,0,1,1,1,1,'','MsgBar 2007','Al activar el estilo 2007 en la barra de mensajes me descentra los textos\n\n[code:ubfey4sg]Set Message To &quot;&quot; Keyboard Clock Date Of oWnd 2007\noUser &#58;= TMsgItem&#40;&#41;&#58;New&#40; oPublic&#58;oWnd&#58;oMsgBar, \'\',;\n                                 oPublic&#58;oWnd&#58;oMsgBar&#58;GetWidth&#40;\'ZZ - ALSIS ADMINISTRADORES\'&#41;+12,,,,,;\n                                 &#123; || AlpagBlock&#40;&#41;&#125; &#41;\noPublic&#58;oWnd&#58;oMsgBar&#58;InsItem&#40; oUser, 1 &#41;[/code:ubfey4sg]\n\n[url=http&#58;//imageshack&#46;us:ubfey4sg][img:ubfey4sg]http&#58;//img403&#46;imageshack&#46;us/img403/1473/msgbarde9&#46;png[/img:ubfey4sg][/url:ubfey4sg]','',0,'GIA=','ubfey4sg',1,0,'',21,0,0),(48267,9960,3,167,0,'207.119.126.13',1203013333,1,0,1,1,1,1,'','xHarbour 1.00 - debugger breakpoint using F9 problem','I have installed FWH 07.11 with xHarbour 1.00 for Borland and I\'m having a problem with debugger breakpoints in the console window.\n\nI can set breakpoints with the altd() funcion, however, pressing the F9 key seems to have no effect and I\'m unable to set manual breakpoints from within a debugging session.\n\nHas anyone else seen this?','',0,'GIA=','355jx1e7',1,0,'',167,0,0),(48268,9936,6,1246,0,'69.19.14.22',1203013838,1,0,1,1,1,1,'','','ANTONIO:\n ASI ES PERO ME MANDA A OTRA VENTANA DIFERENTE DE SELECCION DE IMPRESORA OTRA QUE TIENE NUERO DE COPIAS ( LA PRIMERA QUE MANDA ES OTRA QUE NO PIDE  NUMERO DE COPIAS) NO SE SI ME EXPLICO.','',0,'GIA=','x73ucs7j',1,0,'',1246,0,0),(48269,9961,3,167,0,'207.119.126.13',1203013986,1,0,1,1,1,1,'','dialog maximize and minimize events','How can I detect when a window/dialog was maximized?  \n\nThis event does not seem to trigger an \"on resize\" event.  It would be nice to know if the user left the dialog maximized, then I could re-display it in the future maximized.','',0,'GIA=','gg1educ6',1,0,'',167,0,0),(48270,9936,6,1246,0,'69.19.14.22',1203014157,1,0,1,1,1,1,'','','ANTONIO:\nSI TENIAS RAZON NO ME HABIA FIJADO EN EL NOMBRE DE FUNCION, CORREGI COMO ME INDICASTE Y JALO PERFECTO.\nMIL GRACIAS MAESTRO','',0,'GIA=','18jkp4u0',1,0,'',1246,0,0),(48271,9936,6,1246,0,'69.19.14.22',1203014332,1,0,1,1,1,1,'','','ATONIO :\nVA DEVUELTA, AHORA LE DOY ACEPTA LA IMPESORA Y ME SACA\nQUE PASA','',0,'GIA=','n70ka1ct',1,0,'',1246,0,0),(48272,9961,3,6,0,'87.16.223.14',1203014696,1,0,1,1,1,1,'','Re: dialog maximize and minimize events','From the following sample you will see that ON RESIZE event is trigged on maximize:\n\n[code:2k7pnh1t]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    ACTIVATE WINDOW oWnd;\n             ON RESIZE TONE&#40; 440, 1 &#41;\n\n    RETURN NIL[/code:2k7pnh1t]\n\nEMG','',0,'AIA=','2k7pnh1t',1,0,'',6,0,0),(48273,9929,6,92,0,'80.25.24.19',1203015567,1,0,1,1,1,0,'','Re: Me explico','[quote=&quot;ermatica&quot;:k2h66mj5]Es cierto, no lo expuse correctamente del todo.\nTengo un aplicativo, con varios mantenimientos en donde se introducen una serie de datos (nombres, dni, direcciones, marcas, modelos, matriculas, etc.) y desde uno de estos mantenimientos (Expedientes) debo imprimir una serie de informes, unos son en papel preimpreso copiativo, esto lo hago con (oPrn:Say...), otros son informes o listados en papel blanco, y ahora tengo la necesidad de imprimir un informe completo, es decir, no sólo los datos sino tambien la cuadricula, escudos, etc., por ejemplo, imprimir el MODEDLO 620, MODELO 110  de la Agencia Tributaria etc., pero a partir de los datos introducidos en los mantenimientos. \n\nSaludos[/quote:k2h66mj5]\n\nEntonces creo que con TUtilprn (o Timprime no recuerdo cual de los dos nombres tiene) de The Full lo podrás hacer.\n\nMíratela con cariño y los ejemplos que dejó The Full, puedes hacer un documento como quieras (o casi al 99,99%).\n\nEl código de puntos de hacienda (España) no creo que tengamos con que obtenerlo/imprimirlo.\n\nSaludos\nCarlos G.','',0,'gA==','k2h66mj5',1,0,'',92,0,0),(48274,9961,3,167,0,'207.119.126.13',1203015887,1,0,1,1,1,1,'','','How can I tell if the dialog was MAXIMIZED or simply resized by dragging  the corner of the dialog?','',0,'gA==','nnh6s6qo',1,0,'',167,0,0),(48275,9960,3,2,0,'87.218.146.14',1203018479,1,0,1,1,1,1,'','','Don,\n\nYou may need to use a more recent xHarbour build (that will require a more recent FWH build too)\n\nAlternatively you may try this Windows debugger for xHarbour:\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9773\">http://fivetechsoft.com/forums/viewtopic.php?t=9773</a><!-- m -->','',0,'gA==','11fngmn0',1,0,'',2,0,0),(48276,9676,22,1055,0,'84.122.59.85',1203018777,1,0,1,1,1,1,'','','Te he entendido, sólo que dijistes: \"Yo creo que debería ser ANTES, y que el ON INIT del diálogo/ventana sea lo último que deba de evaluarse\" y creo que debería inicializarse primero el dialogo y despues evaluar los distintos binit de los diferentes objetos.\n\nUn saludo.','',0,'gA==','f817xtfx',1,0,'',1055,0,0),(48277,9944,6,596,0,'84.76.66.27',1203020218,1,0,1,1,1,1,'','','Muchisimas gracias, Biel.\n\n[quote=&quot;Biel EA6DD&quot;:3m4rum7s][code:3m4rum7s]SendMessage&#40; hWnd, WM_KEYDOWN, Asc&#40; SubStr&#40;uVal,i,1&#41;&#41; &#41;[/code:3m4rum7s][/quote:3m4rum7s]\n\nCon WM_KEYDOWN no me funciona pero con WM_CHAR me funciona perfecto con ventanas de consola de MS-DOS (cmd.exe)\n[b:3m4rum7s]Es justo lo que quería[/b:3m4rum7s].\n\nPor seguir experimentando he probado con el BlocDeNotas y NO me funciona. Supongo que habrá que darle el foco mandarle los caracteres y después dar el foco de nuevo a la aplicación que maneja todo.\n\n¿ Como le doy el foco a otra ventana ?','',0,'wIA=','3m4rum7s',1,0,'',596,0,0),(48278,9944,6,2,0,'87.218.146.14',1203020849,1,0,1,1,1,1,'','','JM,\n\n&gt; con WM_CHAR me funciona perfecto con ventanas de consola de MS-DOS (cmd.exe)\n\nPues es toda una sorpresa <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Estás usando XP ?\n \n&gt; ¿ Como le doy el foco a otra ventana ?\n\nSetFocus( hWnd )','',0,'wIA=','17ho19d4',1,0,'',2,0,0),(48279,9961,3,6,0,'87.16.223.14',1203021137,1,0,1,1,1,1,'','','This is a sample:\n\n[code:1af7ng2t]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    DEFINE WINDOW oWnd\n\n    ACTIVATE WINDOW oWnd;\n             ON RESIZE SHOWRESIZETYPE&#40; nSizeType &#41;\n\n    RETURN NIL\n\n\n#define SIZE_INIT      NIL\n#define SIZE_RESTORED  0\n#define SIZE_MINIMIZED 1\n#define SIZE_MAXIMIZED 2\n\n\nSTATIC FUNCTION SHOWRESIZETYPE&#40; nSizeType &#41;\n\n    STATIC lInit &#58;= &#46;T&#46;\n\n    DO CASE\n        CASE nSizeType = SIZE_INIT\n            ? &quot;SIZE_INIT&quot;\n            lInit = &#46;F&#46;\n        CASE nSizeType = SIZE_RESTORED &#46;AND&#46; !lInit\n            ? &quot;SIZE_RESTORED&quot;\n        CASE nSizeType = SIZE_MINIMIZED\n            ? &quot;SIZE_MINIMIZED&quot;\n        CASE nSizeType = SIZE_MAXIMIZED\n            ? &quot;SIZE_MAXIMIZED&quot;\n    ENDCASE\n\n    RETURN NIL[/code:1af7ng2t]\n\nEMG','',0,'AIA=','1af7ng2t',1,0,'',6,0,0),(48280,9944,6,596,0,'84.76.66.27',1203021210,1,0,1,1,1,1,'','','[quote=&quot;Antonio Linares&quot;:v29ds83i]Pues es toda una sorpresa <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Estás usando XP ?[/quote:v29ds83i]Pues si con XP. Mañana lo probare con Win2000.\n\n[quote=&quot;Antonio Linares&quot;:v29ds83i]SetFocus( hWnd )[/quote:v29ds83i]\n¿ Y como vuelvo a tener el foco yo ?\n\n¿ Y como cojo el \"caption\" o título de la ventana deseada ?\nEsto último lo digo porque cuando ejecutas un FTP o TELNET (por ejemplo) el titulo de la ventana de comandos (simbolo del sistema) cambia. Y quisiera ir refrescando el array de títulos de ventanas.','',0,'gA==','v29ds83i',1,0,'',596,0,0),(48281,9961,3,167,0,'207.119.126.13',1203024182,1,0,1,1,1,1,'','','Thanks - I believe that is exactly what I was looking for.','',0,'gA==','2w4lw8na',1,0,'',167,0,0),(48282,9960,3,167,0,'207.119.126.13',1203024235,1,0,1,1,1,1,'','','I can wade through the Spanish, but, I did not see a manual F9-type breakkey.  Am I missing it somewhere?','',0,'gA==','33rnhnum',1,0,'',167,0,0),(48283,9932,3,58,0,'84.149.122.95',1203024616,1,0,1,1,1,0,'','','Robert,\n\ni use a mixed system of Clipper 5.2e programs ( comix and dbfntx files ) together with xHarbour\'s dnfntx and dbfcdx.\n\nI also set\nSET DBFLOCKSCHEME TO 2 \n\nBut for my Clipper apps i added \"FI NTXLOCK2\" to my link script.\nWithout i had some troubles with error dbfntx 1012 index corruption.\n\nBut now it\'s working ok in our network.\n\nRegards,\nDetlef','',0,'gA==','9zzr69lx',1,0,'',58,0,0),(48284,9060,3,234,0,'75.34.217.174',1203024620,1,0,1,1,1,1,'','','Hello,\n\nI have upgraded to FWH 8.01 with LIBs dated 12/30/2007 and I have the same problems with print preview displayed behind dialog. What is the workaround to get this corrected.','',0,'gA==','3jlilnul',1,0,'',234,0,0),(48285,9935,6,203,0,'190.11.0.151',1203027032,1,0,1,1,1,1,'','','Si alguien me puede ayudar al linkar me salen estos errores\n\n\nHarbour Compiler Alpha build 45.0 (Flex)\nCopyright 1999-2005, <!-- m --><a class=\"postlink\" href=\"http://www.harbour-project.org/\">http://www.harbour-project.org/</a><!-- m -->\nCompiling \'sbtest.prg\' and generating preprocessed output to \'sbtest.ppo\'...\nsbtest.prg(100) Error E0022  Invalid lvalue: \'Numeric\'\nsbtest.prg(153) Error E0030  Syntax error: \"parse error at \'MESSAGE\'\"\nsbtest.prg(184) Error E0022  Invalid lvalue: \'Numeric\'\nsbtest.prg(239) Error E0022  Invalid lvalue: \'Numeric\'\n700\nsbtest.prg(1369) Error E0022  Invalid lvalue: \'Numeric\'\n1800\n1900\n2000\n5 errors\n\nNo cod\n\n\nGracias','',0,'gA==','2wy2fkt7',1,0,'',203,0,0),(48286,9935,6,40,0,'200.92.23.54',1203037863,1,0,1,1,1,0,'','','Oscar, seguramente tienes una versión de FW que no soporta\napariencia office 2007, quitale la clausula 2007 a la buttonbar\nen la linea 100 de sbtest :\n\nDEFINE BUTTONBAR oBar OF oWnd SIZE 36, 36         // 2007\n\nsaludos\nJoel Andujo','',0,'gA==','1fsmmrjx',1,0,'',40,0,0),(48287,9935,6,1255,0,'201.122.38.237',1203041048,1,0,1,1,1,0,'','','Ricardo:\n\nEl primer problema que reportas es un bug que ya fue corregido, con respecto al segundo, necesitaría tener más detalles para poder analizarlo y, en su caso, resolverlo. \n\nManolo:\n\nDeveras lo siento pero esta revisión de TSBrowse es exclusivamente para 32 bits. Yo decidí migrar y, lo hice quemando mis naves <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->, ya no pienso regresar a 16 bits.\n\nEn el blog de José Murugosa (gracias) vamos a tratar de tener siempre la última revisión con los bugs reportados y corregidos así como con sus sugerencias cuando estas sean razonablemente realizables.\n\nUn abrazo para todos\n\nManuel Mercado','',0,'gA==','b6ujls3h',1,0,'',1255,0,0),(48288,9962,3,47,0,'203.144.143.9',1203041202,1,0,1,1,1,0,'','Error \'_GetGuiResources\'. Fixed','Dear Antonio,\n\nI\'ve used xHb.com Nov\'07 &amp; FWH 8.02 and it got this error.  I didn\'t find any post with this error.\nBut I try with 8.01, it\'s ok. \n\nThanks in advance,\nDutch\n\nxLINK: error: Unresolved external symbol \'_GetGuiResources\'.\n\nxLINK: fatal error: 1 unresolved external(s).\n\nType: C &gt;&gt;&gt;Couldn\'t build: ez4fo5.exe&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT&lt;&lt;&lt;\nType: C &gt;&gt;&gt;TMAKEPROJECT:REFRESH&lt;&lt;&lt;\nType: N &gt;&gt;&gt;      1322&lt;&lt;&lt;','',0,'gA==','1tkj0ybt',1,1203185935,'',47,1,0),(48289,9963,6,644,0,'190.139.162.46',1203043902,1,0,1,1,1,0,'','efectos para dialogos','Aqui les dejo codigo para algunos efectos para dialogos. Espero le gusten\n\n#include \'fivewin.ch\'\n#define AW_HOR_POSITIVE   1 // Animates the window from left to right. This flag can be used with roll or slide animation.\n#define AW_HOR_NEGATIVE   2 // Animates the window from right to left. This flag can be used with roll or slide animation.\n#define AW_VER_POSITIVE   4 // Animates the window from top to bottom. This flag can be used with roll or slide animation.\n#define AW_VER_NEGATIVE   8 // Animates the window from bottom to top. This flag can be used with roll or slide animation.\n#define AW_CENTER        16 // Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used.\n#define AW_HIDE       65536 // Hides the window. By default, the window is shown.\n#define AW_ACTIVATE  131072 // Activates the window.\n#define AW_SLIDE     262144 // Uses slide animation. By default, roll animation is used.\n#define AW_BLEND     524288 // Uses a fade effect. This flag can be used only if hwnd is a top-level window.\n\n                        Function Main()\n                        \nLocal oDlg\nLocal oBtn\nDefine Dialog oDlg From 10, 10 To 300, 500 Pixel\n\n   @ 10, 10 Button oBtn Size 50, 10 Of oDlg Pixel Action oDlg : End()\n   \nActivate Dialog oDlg On Init Centra( oDlg ) Centered Valid( Fade( oDlg ), .t. )\nReturn 0\n\n\n                     Function fade( oDlg )\n\nIf( AnimateWindow( oDlg : hWnd, 1000, AW_BLEND + AW_HIDE ) == 0 )\n   oDlg : Hide()\nendif\nReturn 0\n                  Function Centra( oDlg )\n                  \nAnimateWindow( oDlg : hWnd, 200, AW_CENTER )\nReturn 0\n\n\nDLL32 function AnimateWindow( hWnd As LONG, dwTime As LONG, dwFlags As LONG ) AS LONG PASCAL ;\n      from \"AnimateWindow\" lib \"user32.DLL\"','',0,'gA==','2amogiqd',1,0,'',644,0,0),(48290,9962,3,233,0,'218.208.249.197',1203044313,1,0,1,1,1,0,'','','<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9915\">http://fivetechsoft.com/forums/viewtopic.php?t=9915</a><!-- m -->','',0,'gA==','1peg0q3s',1,0,'',233,0,0),(48291,9931,3,868,0,'219.64.121.60',1203045128,1,0,1,1,1,1,'','','This is the output generated in response to the command harbour /build \n[code:261zi2po]\nxHarbour Compiler build 1&#46;1&#46;0 &#40;SimpLex&#41;\nCopyright 1999-2008, http&#58;//www&#46;xharbour&#46;org http&#58;//www&#46;harbour-project&#46;org/\n\nHarbour Build Info\n---------------------------\nVersion&#58; xHarbour build 1&#46;1&#46;0 Intl&#46; &#40;SimpLex&#41;\nPCode Version&#58; 9\nCompiler&#58; Borland C++ 5&#46;5&#46;1 &#40;32 bit&#41;\nPlatform&#58; Windows  XP Professional 5&#46;01&#46;2600 Service Pack 2\n\nBuilt on&#58; Feb 10 2008 20&#58;41&#58;04\nLast ChangeLog entry&#58; 2007-10-31 17&#58;12 UTC+0100 Miguel Angel Marchuet &lt;miguelangel/at/marchuet&#46;net&gt;\nChangeLog CVS version&#58; ChangeLog,v 1&#46;5756\n\nHarbour extensions&#58; Yes\nCA-Clipper 5&#46;2e undocumented&#58; Yes\nCA-Clipper 5&#46;2e strict compatibility&#58; No\nCA-Clipper 5&#46;3x compatible extensions&#58; Yes\nAlaska Xbase++ compatible extensions&#58; Yes\nCA-Visual Objects compatible extensions&#58; No\nMultisoft Flagship compatible extensions&#58; Yes\nMicrosoft FoxPro compatible extensions&#58; No\ndBase compatible extensions&#58; No\nObject file generation support&#58; No\nANSI C usage&#58; Non strict\nC++ mode&#58; Off\nCompiler YACC debug mode&#58; Off\nMemory tracing and statistics&#58; Off\nMaximum symbol name length&#58; 63\n---------------------------\n[/code:261zi2po]\nWhen the build includes changes upto 10th feb 2008, why does the output say the build has last change long dated 2007-10-31 and last CVS v. 1.5756 ?\n\nIs it a bug in xHarbour or is there a way to build xharbour to reflect the correct info?','',0,'AIA=','261zi2po',1,0,'',868,0,0),(48292,9963,6,449,0,'212.64.224.249',1203060668,1,0,1,1,1,1,'','','Horacio,\n\nMuy bueno, gracias','',0,'AIA=','199pbp56',1,0,'',449,0,0),(48293,9929,6,456,0,'217.127.39.57',1203062146,1,0,1,1,1,1,'','','La agencia tributaria distribuye un software integrable dentro de nuestras aplicaciones que permite imprimir distintos modelos de informes(110, 115, 123, 130, 131, 202, 300, 310 , 311). \n\nSe genera un ficehro ASCCI y se llama al programa de la AEAT que se encarga de imprimir el informe.\n\nEn teoria para tener acceso a este software se debe firmar un contrato con AEAT, donde declaras que eres una empresa desarrolladora de software y quieres incluir esa utilidad dentro de tus programas (puro formalismo). \nPara mas info busca MIPF32  en el google.','',0,'AIA=','3hcy9k8x',1,0,'',456,0,0),(48294,9963,6,106,0,'85.34.123.173',1203064677,1,0,1,1,1,1,'','','Horacio, \n\n\nBuenisimo!!','',0,'AIA=','3dgwm8g8',1,0,'',106,0,0),(48295,9964,3,644,0,'190.139.162.11',1203067547,1,0,1,1,1,0,'','Special effects for dialogs','I hope that they like\n\n#include \'fivewin.ch\'\n#define AW_HOR_POSITIVE   1 // Animates the window from left to right. This flag can be used with roll or slide animation.\n#define AW_HOR_NEGATIVE   2 // Animates the window from right to left. This flag can be used with roll or slide animation.\n#define AW_VER_POSITIVE   4 // Animates the window from top to bottom. This flag can be used with roll or slide animation.\n#define AW_VER_NEGATIVE   8 // Animates the window from bottom to top. This flag can be used with roll or slide animation.\n#define AW_CENTER        16 // Makes the window appear to collapse inward if AW_HIDE is used or expand outward if the AW_HIDE is not used.\n#define AW_HIDE       65536 // Hides the window. By default, the window is shown.\n#define AW_ACTIVATE  131072 // Activates the window.\n#define AW_SLIDE     262144 // Uses slide animation. By default, roll animation is used.\n#define AW_BLEND     524288 // Uses a fade effect. This flag can be used only if hwnd is a top-level window.\n\n                        Function Main()\n                        \nLocal oDlg\nLocal oBtn\nDefine Dialog oDlg From 10, 10 To 300, 500 Pixel\n\n   @ 10, 10 Button oBtn Size 50, 10 Of oDlg Pixel Action oDlg : End()\n   \nActivate Dialog oDlg On Init Centra( oDlg ) Centered Valid( Fade( oDlg ), .t. )\nReturn 0\n\n\n                     Function fade( oDlg )\n\nIf( AnimateWindow( oDlg : hWnd, 1000, AW_BLEND + AW_HIDE ) == 0 )\n   oDlg : Hide()\nendif\nReturn 0\n                  Function Centra( oDlg )\n                  \nAnimateWindow( oDlg : hWnd, 200, AW_CENTER )\nReturn 0\n\n\nDLL32 function AnimateWindow( hWnd As LONG, dwTime As LONG, dwFlags As LONG ) AS LONG PASCAL ;\n      from \"AnimateWindow\" lib \"user32.DLL\"','',0,'AIA=','2pa7az9h',1,0,'',644,0,0),(48296,9962,3,47,0,'203.144.143.9',1203068524,1,0,1,1,1,0,'','','I\'ve got gui.lib and compile&amp;link is no error.  But prgram do not run anymore (after compile and link is quite).\n\nRegards,\nDutch','',0,'AIA=','264tag73',1,0,'',47,0,0),(48297,9941,23,308,0,'84.148.26.157',1203069860,1,0,1,1,1,0,'','','Hallo Stefan,\n\ndanke für die Anregungen. Werde mal ans testen gehen.\n\nGruss, Norbert','',0,'AIA=','1hb30uiz',1,0,'',308,0,0),(48298,9899,3,956,0,'189.22.134.133',1203072122,1,0,1,1,1,1,'','','remember this, please.','',0,'AIA=','1ne7cmxa',1,0,'',956,0,0),(48299,9953,3,130,0,'141.51.32.24',1203072320,1,0,1,1,1,1,'','','Hello Manuel,\n\nMany thanks for your great  contribution.\n\n\nI get an error using this command (working with V6)\n\n[code:27piqzgt]@1,1 Browse oUserBrw  Alias &quot;User&quot; ; \n                  COLORS CLR_BLACK, CLR_NBLUE ;\n                  ON DBLCLICK &#40;&#58;&#58;EditUser &#40;&#46;F&#46;&#41;,oUserBrw&#58;Refresh&#40;&#41;&#41;;\n                  FONT oFont ;\n                  OF &#58;&#58;oUserWnd\n[/code:27piqzgt]\n\nError:\n\nApplication\n===========\n   Path and name: D:\\Projekte\\!Win\\Msdn\\Msdn.Exe (32 bits)\n   Size: 2,640,384 bytes\n   Time from start: 0 hours 0 mins 1 secs \n   Error occurred at: 15.02.2008, 11:39:42\n   Error description: Error BASE/1066  Argument error: conditional\n   Args:\n     [   1] = A   { ... }\n\nStack Calls\n===========\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:SETCOLOR(9299)\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:NEW(708)\n   Called from: TMsdn.prg =&gt; TMSDN:BROWSEUSER(1194)','',0,'AIA=','27piqzgt',1,1203072969,'',130,1,0),(48300,9953,3,130,0,'141.51.32.24',1203072919,1,0,1,1,1,1,'','','I have another error, if I try to use TsBrowse in a folder defined from source inside a mdi window\n\n[code:1zdry0em]DEFINE WINDOW &#58;&#58;oSoftWnd MDICHILD ;\n                    FROM 0&#46;5,1 TO 29,84 ;\n                    TITLE &quot;MSDNaa Softwareliste&quot; ;\n                    OF &#58;&#58;oWnd\n\n@1,1 FOLDER oFld;\n     ITEMS &quot;&amp;Operating Systems&quot;, &quot;&amp;Application&quot;, &quot;&amp;Servers&quot;,&quot;&amp;Development&quot;,&quot;&amp;SDK,DDK&quot; ;\n     FONT oFont;\n     OF &#58;&#58;oSoftWnd\n&#58;&#58;oSoftWnd&#58;oClient &#58;= oFld\n\noSoftBrw&#91;1&#93; &#58;= &#58;&#58;MakeBrowse &#40;oFld&#58;aDialogs&#91;1&#93;, oFont,&#123; CLR_WHITE, CLR_NGREEN &#125;, &quot;Ope&quot;&#41;\n&#46;&#46;&#46;&#46;&#46;&#46;\n\n//-----------------------------------------------------------------------\nMETHOD MakeBrowse &#40;oDlg, oFont,aColor,cFilter&#41; CLASS TMsdn\n\nLOCAL oBrw\n\n@1,1 Browse oBrw  Alias &quot;Software&quot; ;\n                  ;//COLORS CLR_BLACK, CLR_NBLUE ;\n                  ON DBLCLICK &#40;&#58;&#58;EditSoft &#40;&#46;F&#46;&#41;,oBrw&#58;DrawSelect&#40;&#41;&#41;;\n                  ;//Select SubStr &#40;FIELD-&gt;Kategorie,1,3&#41; FOR &#40;cFilter&#41;;\n                  FONT oFont;\n                  OF oDlg\n\nADD COLUMN TO oBrw Header &quot;Kategorie&quot;;\n                   DATA FieldWBlock &#40;&quot;Kategorie&quot;,Select&#40;&#41;&#41;;\n                   SIZE 95\n\n//&#58;&#58;oSoftWnd&#58;SetControl&#40;oSoftBrw&#91;1&#93;&#41;\n\noDlg&#58;oClient &#58;= oBrw[/code:1zdry0em]\n\nApplication\n===========\n   Path and name: D:\\Projekte\\!Win\\Msdn\\Msdn.Exe (32 bits)\n   Size: 2,640,384 bytes\n   Time from start: 0 hours 0 mins 2 secs \n   Error occurred at: 15.02.2008, 11:45:37\n   Error description: Error BASE/1132  Bound error: array access\n   Args:\n     [   1] = A   { ... }\n     [   2] = N   51\n\nStack Calls\n===========\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:PROPER(7772)\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:LOADFIELDS(5971)\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:DEFAULT(1399)\n   Called from: TSBROWSE.PRG =&gt; TSBROWSE:NEW(733)\n   Called from: TMsdn.prg =&gt; TMSDN:MAKEBROWSE(511)\n\nCould you please review this issue','',0,'AIA=','1zdry0em',1,0,'',130,0,0),(48301,9962,3,2,0,'87.218.146.14',1203075118,1,0,1,1,1,1,'','','Dutch,\n\nWhat Windows version are you using ?\n\nAre you using xHB commercial ?','',0,'AIA=','2qsvy8yl',1,0,'',2,0,0),(48302,9963,6,362,0,'200.158.19.160',1203076206,1,0,1,1,1,1,'','','[img:1bdlbl42]http&#58;//www&#46;pctoledo&#46;com&#46;br/forum/images/smiles/pct32&#46;gif[/img:1bdlbl42]\n\n[img:1bdlbl42]http&#58;//www&#46;pctoledo&#46;com&#46;br/forum/images/smiles/pct21&#46;gif[/img:1bdlbl42]','',0,'CA==','1bdlbl42',1,0,'',362,0,0),(48303,9929,6,1222,0,'85.155.80.226',1203077557,1,0,1,1,1,0,'','Clase TUtilPrn','Gracias por vuestra orientación (Carlos y Biel).\n\nMe he bajado la clase que hay en UTILES  de este foro. Contiene cuatro ficheros (makefile, timprime.prg, utlprn.ch y utilprn.prg):\n - ¿es la ultima version de la clase?\n - ¿donde podría ver algun ejemplo de su utilización? algo sencillo para empezar a trabajar con ella.\n\nUn cordial saludo\nErnesto','',0,'CA==','1p68n4fa',1,0,'',1222,0,0),(48304,9964,3,247,0,'193.92.131.194',1203078066,1,0,1,1,1,0,'','','this is great stuff!!','',0,'CA==','v0y9ant2',1,0,'',247,0,0),(48305,9964,3,868,0,'219.64.121.60',1203079562,1,0,1,1,1,1,'','','The earlier discussion on this topic may also give useful information\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=8711&amp;highlight=animatewindow\">http://fivetechsoft.com/forums/viewtopi ... matewindow</a><!-- m -->','',0,'CA==','1bh99nkv',1,0,'',868,0,0),(48306,9794,22,1201,0,'200.90.17.154',1203080425,1,0,1,1,1,1,'','','#include \"FiveWin.ch\"\n#define DS_MODALFRAME            128  // 0x80\n\n//----------------------------------------------------------------------------//\n\nfunction WaitSeconds( nSecs )\n\n   local nStart := GetTickCount()\n\n   DEFAULT nSecs := 1\n\n   while GetTickCount() - nStart &lt; ( 1000 * nSecs )\n   end\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction MsgRun( cCaption, cTitle, bAction )\n\n     LOCAL oDlg, nWidth,aMsg:={},nArrayLeng:=0,cMsg\n\n     DEFAULT cCaption := \"Espere, Por Favor...\",;\n             bAction  := { || WaitSeconds( 1 ) }\n\n     IF At( CRLF,cCaption ) != 0\n       DO WHILE At( CRLF,cCaption ) != 0\n         cMsg:=Left(cCaption,At(  CRLF,cCaption )-1)\n         aadd(aMsg,cMsg)\n         nArrayLeng:=MAX(nArrayLeng,len(cMsg))\n         cCaption:=substr(cCaption,At( CRLF,cCaption )+1)\n       ENDDO\n     ENDIF\n     aadd(aMsg,cCaption)\n     nArrayLeng:=MAX(nArrayLeng,len(cCaption))\n\n     IF cTitle == NIL\n          DEFINE DIALOG oDlg ;\n                 FROM 0,0 TO 2+LEN(aMsg) , nArrayLeng + 3 ;\n                 STYLE nOr(WS_POPUP,DS_MODALFRAME) //nOr( DS_MODALFRAME, WS_POPUP )\n     ELSE\n          DEFINE DIALOG oDlg ;\n                 FROM 0,0 TO 4+LEN(aMsg), Max( nArrayLeng, Len( cTitle ) ) + 4 ;\n                 TITLE cTitle  STYLE nOr(DS_MODALFRAME)\n     ENDIF\n\n     oDlg:lHelpIcon  :=.f.\n     oDlg:bStart := { || Eval( bAction, oDlg ), oDlg:End(), SysRefresh() }\n\n     nWidth := oDlg:nRight - oDlg:nLeft\n\n     ACTIVATE DIALOG oDlg CENTER ;\n        ON PAINT PresMsg(oDlg,aMsg,nWidth)\n\nreturn nil\n\nSTATIC FUNCTION PresMsg(oDlg,aMsg,nWidth)\nLOCAL nAt\nFOR nAt=1 to len(aMsg)\n oDlg:Say( nAt, 0, xPadC( aMsg[nAt], nWidth ) )\nNEXT\n\n//----------------------------------------------------------------------------//\n\nfunction MsgWait( cCaption, cTitle, nSeconds )\n\n   DEFAULT nSeconds := 4\n\nreturn MsgRun( cCaption, cTitle, { || WaitSeconds( nSeconds ) } )\n\n//----------------------------------------------------------------------------//\n\nFunction StopUntil( bBlock )\n\n   DO WHILE !Eval( bBlock )\n      WaitMessage()\n      SysRefresh()\n   ENDDO\n\nReturn NIL\n\n\nNOTA: Aunque no es mut elegante, por lo menos trabaja\n\nSaludos','',0,'','113bfs00',1,0,'',1201,0,0),(48307,9965,3,689,0,'189.26.136.70',1203081205,1,0,1,1,1,0,'','Treeview via code','Is possible put a box around treeview via code like:\n[url:cbzkdzqv]http&#58;//www&#46;swsistemas&#46;com&#46;br/imagens/imagem&#46;bmp[/url:cbzkdzqv]\n\n\nMany thanks','',0,'EA==','cbzkdzqv',1,0,'',689,0,0),(48308,9966,6,436,0,'190.30.113.92',1203082414,1,0,1,1,1,0,'','Sobre &quot;HARBOUR EXCEPTION&quot;','Hola Colegas\nEstoy terminando de instalar un proyecto en un cliente y me aparecen algunos \"harbour exception.....\". Hay una función donde aparece siempre que accedo a ese diálogo (es en la línea del ACTIVATE del DIALOG) y otro que aparece ocasionalmente.\n\nDestaco que en mi PC no me ocurre nunca el error (tengo XP igual que en mi cliente).\n\nPor donde debo encarar la búsqueda del problema? No sé bien por donde abordarlo, porque encima no puedo reproducir localmente el problema en mi PC.\nCómo puede ser que en equipo se de el problema y en otro no? con similares características.....\n\nBueno, si alguno se le ocurre algo... bienvenido será.\n\nSaludos. \nIván','',0,'EA==','2jahlwdv',1,0,'',436,0,0),(48309,9899,3,303,0,'72.220.181.80',1203084099,1,0,1,1,1,0,'','','Why not just put the accelerator keys on the menu? These keys will work just the same as doing it on a toolbar.\n\nJames','',0,'EA==','2sqmt1mu',1,0,'',303,0,0),(48310,9965,3,868,0,'219.64.121.60',1203085792,1,0,1,1,1,1,'','','oTree:nStyle  := nOr( oTree:nStyle, WS_BORDER )\n\nand enable XP Themes','',0,'EA==','1u5t044a',1,0,'',868,0,0),(48311,9960,3,89,0,'213.21.136.60',1203086746,1,0,1,1,1,0,'','','For my the debug run ok until FW 7.07 , with the new version \nof FW an xHArbour dosn\'t work . \nI think is happend  something  between  gtwin.lib e gtgui.lib \n\nMaurizio','',0,'EA==','1a88f45i',1,0,'',89,0,0),(48312,9935,6,119,0,'217.168.114.96',1203087704,1,0,1,1,1,0,'','','Manuel :\n\nDime que detalles? \nUtilizo xHarbour 0.99.71 (simplex) + Fivewin 7.01 \n\nSaludos\nRicardo Ramírez!','',0,'EA==','38iqlsv4',1,0,'',119,0,0),(48313,9944,6,596,0,'85.62.69.206',1203087956,1,0,1,1,1,1,'','','[quote=&quot;JmGarcia&quot;:3r3mq0kg][quote=&quot;Antonio Linares&quot;:3r3mq0kg]Pues es toda una sorpresa <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) --> Estás usando XP ?[/quote:3r3mq0kg]Pues si con XP. Mañana lo probare con Win2000.[/quote:3r3mq0kg]\nPues probado en Windows2000, tambien funciona.\n\nSeguiremos informando...','',0,'gA==','3r3mq0kg',1,0,'',596,0,0),(48314,9967,6,1280,0,'190.29.28.55',1203088395,1,0,1,1,1,0,'','Como chequear la existencia de un directorio ?','Hola compañeros\n\nEstoy necesitando sincronizar unas bases de datos y para ello necesito chequear la existencia de subcarpetas dentro de las mismas..\n\nHay alguna funcion o procedimniento que me chequee la existencia de un directorio ??\n\n\nGracias de antemano','',0,'gA==','3rwua9tf',1,0,'',1280,0,0),(48315,9968,3,51,0,'80.122.88.242',1203088781,1,0,1,1,1,0,'','WinXP look  and res files','How to add WindowsXP.Manifest to res files.\nAs I use VSX now I only have res (compiled resource files).\n\nThanks in advance\nOtto\n\n\nTo provide the WinXP look to your application\nsimply add this line to your resources RC file:\n\n1 24 \"WindowsXP.Manifest\"','',0,'gA==','2u9qczsw',1,0,'',51,0,0),(48316,9935,6,1072,0,'200.83.78.252',1203089125,1,0,1,1,1,0,'','','Manuel:\n\nMaestro, disculpe que lo moleste, he tratado de compilar el ejemplo usando el archivo para Verce, pero nunca termina el proceso de compilacion, despues de mucho andar, debo cerrar verce, no logro encontrar el error.\n\nUso Fwh 7.1 , Xharbour 00.99.71\n\nNeceito ponerlo en marcha,\n\nDesde ya muchas gracias,\n\nAntonio','',0,'gA==','1jefdfml',1,0,'',1072,0,0),(48317,9967,6,132,0,'83.213.37.6',1203089263,1,0,1,1,1,1,'','','cRuta:=\"C:\\MiCarpeta\"\n\nIF !lIsDir(cRuta)\n   MsgInfo(\"No existe \"+cRuta)\nENDIF','',0,'gA==','g80f1qxq',1,0,'',132,0,0),(48318,9953,3,1255,0,'189.128.26.214',1203090003,1,0,1,1,1,0,'','','Hi Stefan:\n\nNice to see you.\n[quote=&quot;StefanHaupt&quot;:2gya3pg6]I have another error, if I try to use TsBrowse in a folder defined from source inside a mdi window[/quote:2gya3pg6]When create the library are you linking the corresponding language program? They are at \\TSBrowse\\Source\\Classes\\Lang\n[quote=&quot;StefanHaupt&quot;:2gya3pg6]I get an error using this command (working with V6)[/quote:2gya3pg6]Does this error persist in this (V8 Pre-Release) version?\n\nBest regards.\n\nManuel Mercado','',0,'gA==','2gya3pg6',1,0,'',1255,0,0),(48319,9967,6,1280,0,'190.29.28.55',1203090683,1,0,1,1,1,0,'','','gracias txon por tu rapida respuesta...','',0,'gA==','1hwnqf5e',1,0,'',1280,0,0),(48320,9935,6,1255,0,'189.128.26.214',1203091507,1,0,1,1,1,0,'','','Hola Ricardo:\n[quote=&quot;Ricardo Ramirez&quot;:3d5wq78n]Dime que detalles? \nUtilizo xHarbour 0.99.71 (simplex) + Fivewin 7.01[/quote:3d5wq78n]De ser posible mándame a mi correo la parte de tu código donde defines el Browse para tratar de reproducir el error.\n\nHola Antonio:\n[quote=&quot;mantonio_08&quot;:3d5wq78n]Uso Fwh 7.1 , Xharbour 00.99.71 Neceito ponerlo en marcha[/quote:3d5wq78n]Mi trabajo de migración a 32 bits lo inicié con FWH 7.12/xHarbour 1.1, definitivamente deberás crear la librería SBROWSEX.LIB con la versión que tú tienes y reportar aquí en el foro el resultado para ver si algunos amigos que usen la misma versión que tú pueden decirnos si tienen el mismo problema.\n\nSaludos\n\nManuel Mercado','',0,'gA==','3d5wq78n',1,0,'',1255,0,0),(48321,9960,3,89,0,'213.21.136.60',1203092086,1,0,1,1,1,0,'','','Antonio \n\nthe wdebug.lib dosen\'t work with the new xHArbor  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( --> \n\nYou may need to use a more recent xHarbour build (that will require a more recent FWH build too) \n\nAlternatively you may try this Windows debugger for xHarbour: \n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?t=9773\">http://fivetechsoft.com/forums/viewtopic.php?t=9773</a><!-- m -->','',0,'gA==','3fx7zwsb',1,0,'',89,0,0),(48322,9963,6,987,0,'189.133.13.36',1203092158,1,0,1,1,1,0,'','','Horacio:\n\nMuy buenos efectos para los dialogos mis felicitaciones, solo una duda, porque con dialogos con imagenes en jpg no muestra las imagenes..? \n\nEstuve haciendo pruebas con dialogos desde recursos y no muestra la imagen..\n\n\nSaludos..','',0,'gA==','23n9v5io',1,0,'',987,0,0),(48323,9963,6,644,0,'190.139.162.178',1203093217,1,0,1,1,1,0,'','','cuatecatl82, fijate de hacer un refresh al dialogo después de correr el efecto.  Eso es lo que yo hago','',0,'gA==','21jcfiu7',1,0,'',644,0,0),(48324,9953,3,343,0,'204.57.111.194',1203095949,1,0,1,1,1,0,'','','Manuel and Jose\n\nI would also like to thank you for your efforts.\n\nWhere is the best place to ask for enhancements or to participate in them?\n\nIs there any way I could ask to have something included? I save the browse information to a database for each user and window type. \n\nI would like to have a variable that changes when elements of the browse changes. If column was moved, added, inserted, sized, or freeze changed.\n\nIf I have to check all of that information against the database it makes the window closing slower every time. With the variable then it would be slower only when something changed.\n\nThank you.\n\nSome other things for considiration\n\nDATA bLDblClickHeader // custom function for header (change order etc) \nDATA bAddColumn // add/ins column block \nDATA lBrwChanged // if a column was moved, added, inserted, freeze changed, or sized. I use this to know if the browse information needs to be saved. \n\n// Right click header additions. \nInsert Column - If bAddColumn defined \nAdd Column - If bAddColumn defined \nFreeze Column - If .not. ::lLockFreeze \nUnlock Freeze Column - If .not. ::lLockFreeze .and. ::nFreeze &gt; 0 \n\n// Add RMDBFCDX to cRDDName list (Same syntax as Comix) \n\nThank You Again,\nGale','',0,'gA==','2z9xfbvs',1,0,'',343,0,0),(48325,9969,3,956,0,'189.22.134.133',1203096012,1,0,1,1,1,1,'','ENTER fails in dialog with menu','When insert menu in dialog the ENTER doesn\'t work.\n\nSample compiled with source in link -&gt; <!-- m --><a class=\"postlink\" href=\"http://www.sendspace.com/file/biwtyr\">http://www.sendspace.com/file/biwtyr</a><!-- m -->','',0,'gA==','32h69r8j',1,0,'',956,0,0),(48326,9960,3,2,0,'87.218.146.38',1203096376,1,0,1,1,1,1,'','','Maurizio,\n\nAndres Reyes surely will appreciate your feedback and will improve it:\n<!-- e --><a href=\"mailto:andresreyes_mzt@yahoo.com.mx\">andresreyes_mzt@yahoo.com.mx</a><!-- e -->','',0,'gA==','18j3c6ro',1,0,'',2,0,0),(48327,9899,3,956,0,'189.22.134.133',1203096604,1,0,1,1,1,1,'','','[quote=&quot;James Bott&quot;:39kbtw2m]Why not just put the accelerator keys on the menu? These keys will work just the same as doing it on a toolbar.\n\nJames[/quote:39kbtw2m]\n\nWork, but not in dialog with menu!','',0,'gA==','39kbtw2m',1,0,'',956,0,0),(48328,9970,18,24,0,'80.24.12.168',1203096942,1,0,1,1,1,1,'','Folder Color','Cogiendo el ejemplo TESTFLD2.PRG, y poniendo;\n   \nREDEFINE FOLDER oFld1 ID 110 OF oDlg ;\n      PROMPT \"&amp;Clipper\", \"&amp;and\", \"&amp;Windows\", \"&amp;Magic\" ;\n      DIALOGS \"Sub1\", \"Sub2\" ;\n--&gt;      COLOR CLR_GREEN, CLR_BLUE\n\nSegún la documentación es posible, pues no coge los colores.\n¿ Existe alguna manera de poner un color a un folder o es un bug ?','',0,'gA==','1wi1ltwp',1,0,'',24,0,0),(48329,9971,3,51,0,'80.122.88.242',1203097023,1,0,1,1,1,0,'','How to resize oPanel','The new TABs are really nice. Thank you Antonio for the great work.\n\nI tried with a TAB and Panels with a BUTTONBAR on each.\nChanging the TAB I hide one Panel and show the other one.\nBut how can I resize the Panel’s width if I change the windows width.\nI tried like this:  ON RESIZE ( oPanel:nRight=oWnd:nWidth() ) of the window\nbut the Panel remains.\n\nThanks in advance\nOtto\n\n[img:bcse59bo]http&#58;//www&#46;atzwanger&#46;com/fw/tab1&#46;jpg[/img:bcse59bo]\n\n\n[quote:bcse59bo]#include \"FiveWin.ch\"\n\nstatic oWnd\n\nfunction Main()\n\n    local oBar,oBar2, oPopup, oBtn , oTabs2,oPanel,oPanel2\n\n    SetBalloon( .T. )                           // Balloon shape required for tooltips\n\n    DEFINE WINDOW oWnd TITLE \"Office 2007\"\n\n    @ 8, 0 TABS oTabs2 PROMPTS \"&amp;One\", \"&amp;Two\", \"T&amp;hree\", \"&amp;Four\" OF oWnd;\n        BITMAPS \"..\\bitmaps\\16x16\\people.bmp\", \"..\\bitmaps\\16x16\\open2.bmp\",;\n        \"..\\bitmaps\\16x16\\print.bmp\", \"..\\bitmaps\\16x16\\zoom2.bmp\" ;\n        ACTION    f_tab(oTabs2:nOption,oPanel,oPanel2)\n    oWnd:oTop = oTabs2\n\n    oPanel := TPanel():New( 18, 0, 75, oWnd:nWidth(), oWnd )\n    DEFINE BUTTONBAR oBar OF oPanel SIZE 60, 60 2007\n    DEFINE BUTTON OF oBar ACTION Print() ;\n        RESOURCE \"attach\" PROMPT \"Attach\" TOOLTIP \"Attach\"\n    DEFINE BUTTON OF oBar ACTION MsgInfo( \"calendar\" ) ;\n        RESOURCE \"calendar\" PROMPT \"Calendar\" WHEN .F. TOOLTIP \"Calendar\"\n\n    MENU oPopup POPUP\n    MENUITEM \"One\" ACTION MsgInfo( 1 )\n    MENUITEM \"Two\" ACTION MsgInfo( 2 )\n    ENDMENU\n\n    DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ;\n        RESOURCE \"people\" PROMPT \"Clients\" GROUP ;\n        MENU oPopup TOOLTIP \"Clients\"\n\n    DEFINE BUTTON OF oBar ACTION Test() ;\n        RESOURCE \"print\" PROMPT \"Print\" TOOLTIP \"Print\"\n\n    oPanel2 := TPanel():New( 18, 0, 75, oWnd:nWidth(), oWnd )\n    DEFINE BUTTONBAR oBar2 OF oPanel2 SIZE 60, 60 2007\n\n    DEFINE BUTTON OF oBar2 ACTION Print() ;\n        RESOURCE \"attach\" PROMPT \"Attach\" TOOLTIP \"Attach\"\n\n    DEFINE BUTTON OF oBar2 ACTION MsgInfo( \"calendar\" ) ;\n        RESOURCE \"calendar\" PROMPT \"Calendar\" WHEN .F. TOOLTIP \"Calendar\"\n\n    SET MESSAGE OF oWnd TO \"Testing the ButtonBar 2007 Office look\" ;\n        CENTERED CLOCK KEYBOARD 2007\n\n    ACTIVATE WINDOW oWnd     ON INIT (oPanel2:hide())  ON RESIZE ( oPanel:nRight=oWnd:nWidth() )          ;\n        VALID MsgYesNo( \"Do you want to end?\" )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Print()\n\n    local oPrn\n\n    PRINTER oPrn PREVIEW\n    PAGE\n    oPrn:Say( 2, 2, \"Hello\" )\n    ENDPAGE\n    PAGE\n    oPrn:Say( 2, 2, \"Bye\" )\n    ENDPAGE\n    ENDPRINT\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nfunction Test()\n\n    local oDlg, cPass := Space( 4 )\n\n    DEFINE DIALOG oDlg RESOURCE \"test\"\n\n    REDEFINE GET cPass ID 100 OF oDlg\n\n    ACTIVATE DIALOG oDlg CENTERED\n\n    MsgInfo( GetGuiResources() )\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\nprocedure AppSys                                // XBase++ requirement\n\nreturn\n\n//----------------------------------------------------------------------------//\n\n\n\nfunc  f_tab(nOption,oPanel,oPanel2)\n    if nOption=2\n        oPanel:hide()\n        oPanel2:show()\n\n    elseif nOption=1\n        oPanel2:hide()\n        oPanel:show()\n\n    endif\n\nreturn\n\n\n\n[/quote:bcse59bo]','',0,'iA==','bcse59bo',1,0,'',51,0,0),(48330,9972,3,868,0,'219.64.121.60',1203097468,1,0,1,1,1,1,'','DBF / RecSet to Excel - Some simpler and faster Alternatives','Here are some simpler and faster alternative methods to convert small to medium sized dbf / Ado RecSets to excel.\n\nDBF:\n\nThe following method works if we want the entire dbf to excel\n[code:1vl0o2da]\noBook &#58;= oExcel&#58;Open&#40; &lt;fullpath\\source&#46;dbf&gt; &#41;\noBook&#58;SaveAs&#40; &lt;fullpath\\dest&#46;xls&gt; &#41;\n[/code:1vl0o2da]\n\nADO: RecordSet\n\nTo convert full recordset to excel\n[code:1vl0o2da]\n   oBook   &#58;= oExcel&#58;WorkBooks&#58;Add&#40;&#41;\n   oSheet   &#58;= oExcel&#58;Get&#40; \'ActiveSheet\' &#41;\n   oSheet&#58;Cells&#40; DestRow, DestCol &#41;&#58;CopyFromRecordSet&#40; oRecSet, &#91;nMaxRows&#93;, &#91;nMaxCols&#93; &#41;\n   oBook&#58;SaveAs&#40; &lt;fullpath\\dest&#46;xls&gt; &#41;\n[/code:1vl0o2da]\n\nSelected Rows and Columns of RecordSet:\nSet Filter to required columns with oRs:Filter method. After copying into Excel, delete unwanted columns with oSheet:Columns(n):Delete() method.\n\nDBF\nSelected Rows and Columns / Calc Columns:\nDBF -&gt; RecSet -&gt; Excel\n\nWe can use the above simpler and faster alternative copy method of recordset to copy selected rows, selected columns and even calculated columns of DBF.\n\nWe can read from DBF also into a RecordSet. The connections strings that can be used to open dbf files in ADO are \n(1) Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\\mydbpath;\n(2) Driver={Microsoft dBase Driver (*.dbf)};datasource=dBase Files;\n(3) Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\folder;Extended Properties=dBASE IV( or III) ;User ID=Admin;Password=;\n\nOpen a record set with the help of any of the above connetion strings from the DBF.\nSelect col1, col2, col3 + col5 as somename, ....etc from dbftable where &lt;ourfiltercondition&gt;\n\nthen convert this entire recordset into excel with the above method.\n\nThe above methods help faster conversion into excel under some circumstances.','',0,'AIA=','1vl0o2da',1,0,'',868,0,0),(48331,9971,3,868,0,'219.64.121.60',1203097704,1,0,1,1,1,1,'','','Mr Otto\n\nThis is very very nice. I wanted to do something like this.  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','3emqkcao',1,0,'',868,0,0),(48332,9971,3,868,0,'219.64.121.60',1203097811,1,0,1,1,1,1,'','','Easier is to say oWnd:oCilent := oPanel\n\nCan you try to put buttonbar and tabs into Rebar ?','',0,'AIA=','ola7f3rn',1,0,'',868,0,0),(48333,9966,6,2,0,'87.218.146.60',1203098485,1,0,1,1,1,1,'','','Iván,\n\nQue versión de Harbour estás usando ?\n\nDe que fecha es ?','',0,'AIA=','3gt9qf90',1,0,'',2,0,0),(48334,9973,3,1257,0,'195.93.60.2',1203099087,1,0,1,1,1,1,'','No Bitmap-Resources in Outlook2003 ?','Hello from Germany,\n\nI finished the work on the DB-Tools.\nDuring the source-cleaning, i wanted to get the bitmaps\nin Outlook2003 from resources.\nI think, it is not included.\n\nREDEFINE OUTLOOK2003 oOutL2003 ID 110 OF oDlg ; \nPROMPTS \"Wählen Sie =&gt;\", \"Quick Browse\",\"Neue Datenbank\", \"Datenbank ändern\", ;\n                   \"Datei für Variable\", \"System-Infos\",\"Kalender\",\"Ende\" ; \nBITMAPS   \"calendar.bmp\", \"calendar.bmp\", \"calendar.bmp\", ;\n               \"calendar.bmp\", \"calendar.bmp\", \"calendar.bmp\", ;\n               \"calendar.bmp\", \"ende1.bmp\" ; \nDIALOGS \"Page0\",\"Page1\", \"Page2\", \"Page3\", \"Page4\", \"Page4\", ;\n               \"Page6\",\"Page7\" ;\nON CHANGE ( TESTDLG(oDlg,oOutL2003,aCtrl,aCors) )\n\nin the outlook2003-class, i couln\'t find anything about resources.\n\nGreetings\nUwe','',0,'AIA=','1a9ku8ua',1,0,'',1257,0,0),(48335,9973,3,868,0,'219.64.121.60',1203099808,1,0,1,1,1,1,'','','BITMAPS can be either bitmap filenames or resource names.  You can use resource names instead of bmp file names','',0,'AIA=','2oc5a1e9',1,0,'',868,0,0),(48336,9971,3,51,0,'80.122.88.242',1203103006,1,0,1,1,1,0,'','','Hello NageswaraRao,\nI tried your suggestion but had no success.  Maybe this is the wrong place.\nCould you please try to compile the source.\nRegards,\nOtto\n\n@ 8, 0 TABS oTabs2 PROMPTS \"&amp;One\", \"&amp;Two\", \"T&amp;hree\", \"&amp;Four\" OF oWnd;\n        BITMAPS \"..\\bitmaps\\16x16\\people.bmp\", \"..\\bitmaps\\16x16\\open2.bmp\",;\n        \"..\\bitmaps\\16x16\\print.bmp\", \"..\\bitmaps\\16x16\\zoom2.bmp\" ;\n        ACTION    f_tab(oTabs2:nOption,oPanel,oPanel2)\n    oWnd:oTop = oTabs2\n    oPanel := TPanel():New( 18, 0, 75, oWnd:nWidth(), oWnd )\n  oWnd:oCilent := oPanel\n========\n   Path and name: c:\\FWH\\samples\\test2007.exe (32 bits)\n   Size: 1,154,048 bytes\n   Time from start: 0 hours 0 mins 0 secs \n   Error occurred at: 02/15/08, 20:14:48\n   Error description: Error BASE/1005  Message not found: TWINDOW:_OCILENT\n   Args:\n     [   1] = O   Object','',0,'','11gex49w',1,0,'',51,0,0),(48337,9974,3,1257,0,'195.93.60.2',1203103194,1,0,1,1,1,1,'','A first overview of the DB-Tools ==&gt;  Vers. 8.2 f','Hello from Germany\n\nI\'m still busy with testing the DB-Tools, but it \nis possible, to show what\'s going on.\n\nIt is not everything translated in english,\nbut i think it is possible to understand.\nExcuse me, when not everything works 100 %\nfor the moment. It is still a lot to do.\nThe complete program-source will be\nfree for use, so you can make your own changes. \n\nVers. 8.2 f\nMany bugs removed. \nIni-Handling\nThe user can define the style and colors of \ndiolog-headers as well he can choose his\nown background or logo.  \n-----------------------------------------\nVers. 8.2 e  \nButtons in Quickbrowse / Dialog-Mode :\nNew, Del/Recal, Pack corrected.\n-----------------------------------------\nVers. 8.2 d   \nNew INI-File Handling SET DATE-Format  \nand Write-Format : INSERT / OVERWRITE\n-----------------------------------------\nVers. 8.2 c  \nChecking ID-Nr. in Dialogs.\nBorlands RC-Editor had changed ID-Numbers\nafter copy from one dialog to another.\nThere was a error undefined ID-Nr.\n----------------------------------------\nVers. 8.2 a,b\nSome more translations\n----------------------------------------\n----------------------------------------- \n\n[img:10joe5xu]http&#58;//www&#46;pflegeplus&#46;com/pictures/outlook5&#46;jpg[/img:10joe5xu]\n\nYou can choose between 2 modes : Dialog or Outlook2003.\n\nCreate a new database.\nChange database-structure with saving to different format.\nExcel-Export.\n\nDescription for Module : Quickbrowse\nAutomatic detection of NTX / CDX\n2 Browsers : 1 Listbrowse, 1 Recordbrowse\nIncremental search, but with a control-field\nQuick indexing, just a right click on the Col.\nThe index-key is shown in a control-field.\nA sample of a filter, you will see i the filter-field.\nThe Col-color changes to red and switches to Col 1\nFilter-setting. Keep all filters in a extra database.\nFrom there you can choose a filter without new writing.\nThe filterdatabase as well is filterd and shows only filters\nof the selected database.\nYou can create, delete and pack record.\nMuch more .....\n\n<!-- m --><a class=\"postlink\" href=\"http://www.pflegeplus.com/pictures/db_tools.zip\">http://www.pflegeplus.com/pictures/db_tools.zip</a><!-- m -->\n\nSome more ideas ?\n\nGreetings\nUwe','',0,'CA==','10joe5xu',1,1203375125,'',1257,11,0),(48338,9971,3,51,0,'80.122.88.242',1203103194,1,0,1,1,1,0,'','','Hello NageswaraRao, do you think I get a problem if I use for example\nnWidht = 2000?\n\n  oPanel := TPanel():New( 18, 0, 75,  2000, oWnd )\nRegards,\nOtto','',0,'CA==','10joe5xu',1,0,'',51,0,0),(48339,9965,3,689,0,'189.26.136.70',1203103709,1,0,1,1,1,0,'','','Nageswaragunupudi, many thanks, but it works only when scroll bar appears, do you know why?','',0,'CA==','2vsl4b5a',1,0,'',689,0,0),(48340,9935,6,53,0,'189.139.20.238',1203105040,1,0,1,1,1,1,'','','Manuel:\n\nDisculpa mi ignorancia, perooo\n\nEn la versión a 16 bits tengo 13  .PRG y 3  .C\n\nAhora en la versión para 32 bits hay algunas diferencias comparando 32 vs 16 bits.\n\nMe sobran RPREVIEW.PRG y TGET.PRG\n\nMe faltan   SCROLLBAR.PRG  y SCROLL.C\n\nPodrías indicarme que es lo que debo compilar para 32 bits ?\n\nSaludos','',0,'CA==','3j8ndg5i',1,0,'',53,0,0),(48341,9899,3,303,0,'72.220.181.80',1203110710,1,0,1,1,1,0,'','','Ah, the toolbar accellerators also may not be working because the toolbar is on a dialog.\n\nHere is a trick you can try. Put another button on the dialog with an accelerator then hide the button in your code. The accelerator will still work and it will seem like the toolbar accelerator is working.\n\nJames','',0,'CA==','wcpiaqf1',1,0,'',303,0,0),(48342,9935,6,1255,0,'189.128.26.214',1203112267,1,0,1,1,1,0,'','','[quote=&quot;Armando&quot;:nobz7bax]Podrías indicarme que es lo que debo compilar para 32 bits ?[/quote:nobz7bax]PRG\'s\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSBROWSE.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSCOLUMN.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSGET.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSFGET.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSMULTI.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSCOMBO.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSPOINT.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\BTNDOWN.PRG\nC:\\TSBROWSE\\SOURCE\\CLASSES\\LANG\\SBMSGSPA.PRG (SBMSGSPA=ESPAÑOL)\nC:\\TSBROWSE\\SOURCE\\CLASSES\\TSBTNGET.PRG\n\nC\'s\nC:\\TSBROWSE\\SOURCE\\FUNCTION\\TSBFUNCS.C\nC:\\TSBROWSE\\SOURCE\\FUNCTION\\GETBTN.C\n\nLas scroll bar standard de windows al parecer van bien y hacen innecesarias (la verdad no sé si alguna vez fueron necesarias, je je) las de TSBrowse.\n\nUn abrazo.\n\nManuel Mercado','',0,'gA==','nobz7bax',1,0,'',1255,0,0),(48343,9963,6,987,0,'189.133.13.36',1203114480,1,0,1,1,1,0,'','','Probado, funciona de maravillas, gracias por el aporte..','',0,'gA==','22xu9rj3',1,0,'',987,0,0),(48344,9975,6,596,0,'84.76.66.27',1203114708,1,0,1,1,1,1,'','ComboBox con get y añadir lo del get al array del combo','Pues eso, a ver si me explico.\n\nDeseo poner algo parecido al combobox pero con posibilidad de poder \"teclear\" lo que se quiera en un get que este \"encima\" de este combo.\nAsí cada vez que se teclee algo al dar al &lt;intro&gt; pase a aumentar el array del combo para posterior selección.\n\nA la vez si deseamos volver a algo tecleado anteriormente solo dar a la flecha del combo y recorrerlo en busca de lo deseado y al seleccionar lo que se \"ponga\" en ese get para poder modificarlo o dejarlo igual o lo que sea.\n\nNo se si me he explicado.','',0,'gA==','2ou6q239',1,0,'',596,0,0),(48345,9935,6,53,0,'189.139.20.238',1203115228,1,0,1,1,1,1,'','','Manuel:\n\nGracias por la respuesta, ahora me tira un error en la línea 470 de TSBROWSE.PRG\n\nMETHOD Refresh( lPaint ) INLINE If( ::lFirstPaint == Nil .or. ::lFirstPaint, 0, ( ;\n::nLen := If( ::lIsDbf, ( ::cAlias )-&gt;Eval( ::bLogicLen ), ;\nEval( ::bLogicLen ) ), ::lNoPaint := .F., Super:Refresh( lPaint ) ) )\n\n\"Parse error at \'(\' \"\n\nPero ya vamos avanzando.\n\nSaludos','',0,'gA==','ckg16lz6',1,0,'',53,0,0),(48346,9968,3,303,0,'72.220.181.80',1203115556,1,0,1,1,1,0,'','','Otto,\n\nAnother way is to just rename WindowsXP.Manifest to myapp.exe.manifest (where myapp.exe is the actual name of your exe) and include it in the same directory as the exe. It must be included in your installation too.\n\nJames','',0,'gA==','ejk01vjr',1,0,'',303,0,0),(48347,9935,6,1255,0,'201.122.38.237',1203117368,1,0,1,1,1,0,'','','[quote=&quot;Armando&quot;:32cs6vt8]ahora me tira un error en la línea 470 de TSBROWSE.PRG[/quote:32cs6vt8]Armando:\nBájate la última revisión del Blog de José Murugosa ese error ya fue corregido.\n\nSaludos.\n\nManuel Mercado','',0,'gA==','32cs6vt8',1,0,'',1255,0,0),(48348,9975,6,960,0,'84.125.196.99',1203117497,1,0,1,1,1,0,'','','JmGarcia, prueba con esto.... en teoria debería funcionar:\n\n\nDefine dialog\n redefine combobox ocombobox var ccombo... on change(cambiarget())\n redefine get           oget var cget ....  valid (newitem(cget))\n....\nactivate dialog...\n\nFunct  newitem(cget)\n local aItems:=ocombobox:aItems\n if empty(cget)\n  return .f.\n endif\n AAdd(aItems,cget)\n Asort(aItems)\n ocombobox:setItems(aItems) \n ocombobox:refresh()\nreturn .t.\n\nfunct cambiarget\n cget=ccombo\n oget:refresh()\nreturn \n \n__________\nUn saludo.\nLORENZO','',0,'gA==','5y0z8nml',1,0,'',960,0,0),(48349,9935,6,644,0,'190.18.78.39',1203121489,1,0,1,1,1,0,'','','Manuel,\nAntes que nada quisiera felicitarte por esta clase y la clase tsbutton, y sobre todo que hayas decidido compartirlo con todo el foro, habla mucho de tu calidad de persona y tu generosidad. Posiblemente lo que te plantee sea una tonteria y estás en tu derecho de mandarme a freir churros. Cuando mantengo presionado la tecla down ( flecha abajo ) solamente corre el registro seleccionado y recién cuando llega al final se refresca la tabla y se muestran los registros actuales. lo mismo sucede cuando voy hacia el principio de la tabla. En versiones anteriores esto no ocurria. No es un bug, solo una cuestión de estética. nuevamente muchas gracias','',0,'gA==','404vwl28',1,0,'',644,0,0),(48350,9962,3,47,0,'203.144.143.9',1203123862,1,0,1,1,1,0,'','','I use Windows XP sp2.\nYes, I use xHb Commercial Nov\'07.\n\nI try to rebuild FWH with xBuilder for all lib and include gui.lib.  It has not any error but it dont\' run when I build my program but It work fine with 8.01 without gui.lib.\n\nIs it possible to co-operate between Fivetech and xHarbour.Com to provide FWH for xHB.Com, because sometime I update the new version and re-build the library, I got this problem.  \n\nThis is an idea for avoid the next problem for updated version.\n\nThanks&amp;Regards,\nDutch','',0,'gA==','1d8ixtnj',1,1203124840,'',47,2,0),(48351,9962,3,86,0,'78.21.111.254',1203124201,1,0,1,1,1,1,'','','Dutch,\n\nI use the same utilities as you do, also with xBuilder Nov. 07.\n\nBut I have no problem at all.','',0,'gA==','2l4ns8k7',1,0,'',86,0,0),(48352,9962,3,47,0,'203.144.143.9',1203125255,1,0,1,1,1,0,'','','Dear Driessen,\n\nWhat is your xBuild Project for FiveHmx.lib?\n\nI\'ve got one from xHarbour.com Community xH_FiveHMX.Lib.XBP (for FHW 7.09).  Is it OK?\n\nI used TWbrowse, TSbrowse, Btnget, Sbutton.  All library re-build without any error.  Sometime I\'ve got the error why re-build all library but this time not.  \n\nIt may cause error by those library.  I will try to rebuild all again and check again.\n\nThanks&amp;Regards,\nDutch','',0,'gA==','34u60gij',1,0,'',47,0,0),(48353,9890,6,661,0,'189.155.214.53',1203127823,1,0,1,1,1,0,'','','pues mira yo use WBROWSE y para usar recordset tienes que definir el tipo de cursor correcto, definierle lo codigos de blocks de navegacion asi como definir una funcion skipper especial...\n\n             oLbx1:bLogicLen := { || oRecordSet:RecordCount }\n             oLbx1:bGoTop    := { || oRecordSet:MoveFirst() }\n             oLbx1:bGoBottom := { || oRecordSet:MoveLast() }\n             oLbx1:bSkip     := { | nSkip | Skipper( oRecordSet, nSkip ) }\n\n\n\nSTATIC FUNCTION SKIPPER( oRs, nSkip )\n\n    LOCAL nRec := oRs:AbsolutePosition\n\n    oRs:Move( nSkip )\n    IF oRs:EOF()\n       oRs:MoveLast()\n    endif\n    IF oRs:BOF()\n       oRs:MoveFirst()\n    ENDIF\n\nRETURN oRs:AbsolutePosition - nRec\n\n\nDebo aclararte que no lo he hecho funcionar al 100% ya que cuando me muevo hacia la derecha en el browse me hace un efecto \"extraño\"...\n\nOjala te sirva de algo.\nSaludos.\nAlex.','',0,'gA==','22yqx634',1,0,'',661,0,0),(48354,9974,3,868,0,'219.64.121.60',1203133872,1,0,1,1,1,1,'','','Mr ukoenig\n\nVery nice effort.\n\nI started the program. Clicked the Left button on the button bar \"QuickBrowse\". Selected DBF file and then I got this error.\n\n[code:2sul6u8e]\nAnwendung\n==========\n   Pfad und Name &#58; C&#58;\\TESTS\\Bin\\G_tools&#46;exe &#40;32 bits&#41;\n   Größe &#58; 2,006,528 bytes\n   Zeit ab Start &#58; 0 hours 0 mins 15 secs \n   Fehler aufgetreten am &#58; 16&#46;02&#46;2008, 09&#58;32&#58;37\n   Fehler Beschreibung &#58; Error FiveWin/1  Non defined Id&#58; No&#58;     10\n\nStack Aufrufe\n===========\n   Aufruf von &#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;INITIATE&#40;0&#41;\n   Aufruf von &#58; BUTTON&#46;PRG =&gt; TBUTTON&#58;INITIATE&#40;0&#41;\n   Aufruf von &#58;  =&gt; __OBJSENDMSG&#40;0&#41;\n   Aufruf von &#58; HARBOUR&#46;PRG =&gt; OSEND&#40;0&#41;\n   Aufruf von &#58; HARBOUR&#46;PRG =&gt; ASEND&#40;0&#41;\n   Aufruf von &#58; DIALOG&#46;PRG =&gt; TDIALOG&#58;INITIATE&#40;0&#41;\n   Aufruf von &#58; DIALOG&#46;PRG =&gt; TDIALOG&#58;HANDLEEVENT&#40;0&#41;\n   Aufruf von &#58;  =&gt; DIALOGBOX&#40;0&#41;\n   Aufruf von &#58; DIALOG&#46;PRG =&gt; TDIALOG&#58;ACTIVATE&#40;0&#41;\n   Aufruf von &#58; g_dialog&#46;PRG =&gt; PROG_1A&#40;179&#41;\n   Aufruf von &#58; g_Tools&#46;PRG =&gt; &#40;b&#41;MAIN&#40;76&#41;\n   Aufruf von &#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;CLICK&#40;0&#41;\n   Aufruf von &#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;LBUTTONUP&#40;0&#41;\n   Aufruf von &#58;  =&gt; TWINDOW&#58;HANDLEEVENT&#40;0&#41;\n   Aufruf von &#58; CONTROL&#46;PRG =&gt; TCONTROL&#58;HANDLEEVENT&#40;0&#41;\n   Aufruf von &#58; BTNBMP&#46;PRG =&gt; TBTNBMP&#58;HANDLEEVENT&#40;0&#41;\n   Aufruf von &#58; WINDOW&#46;PRG =&gt; _FWH&#40;0&#41;\n   Aufruf von &#58; g_Tools&#46;PRG =&gt; NOGPF&#40;0&#41;\n   Aufruf von &#58; g_Tools&#46;PRG =&gt; WINRUN&#40;278&#41;\n   Aufruf von &#58; WINDOW&#46;PRG =&gt; TMDIFRAME&#58;ACTIVATE&#40;0&#41;\n   Aufruf von &#58; g_Tools&#46;PRG =&gt; MAIN&#40;126&#41;\n[/code:2sul6u8e]','',0,'AIA=','2sul6u8e',1,0,'',868,0,0),(48355,9976,17,51,0,'80.122.88.242',1203148040,1,0,1,1,1,0,'','Microsoft Office Binary Formats–now freely available to all','Microsoft Office Binary Formats – now freely available to all\n\nYou find the link in the News Tracker of:\n\n<!-- m --><a class=\"postlink\" href=\"http://fwcodesnips.com\">http://fwcodesnips.com</a><!-- m -->','',0,'AIA=','3stt6jxu',1,0,'',51,0,0),(48356,9968,3,51,0,'80.122.88.242',1203149287,1,0,1,1,1,0,'','','Thank you James. Never thought that could be so easy.\n\nBTW,\nI am on a VISTA PC. If I enable “VISTA STYLE” to get IsThemeActive=.t. \nthen all the Windows zoom in and out.  \nDo you know if the zooming can be turned off?\n\nThanks in advance\nOtto','',0,'AIA=','2jtn9nlr',1,0,'',51,0,0),(48357,9963,6,854,0,'189.131.128.144',1203149318,1,0,1,1,1,0,'','','Perfecto, funciona y se ve muy bien.','',0,'AIA=','3iasif2r',1,0,'',854,0,0),(48358,9963,6,323,0,'201.9.11.155',1203152424,1,0,1,1,1,1,'','','<!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: --> muito show','',0,'AIA=','17rg3nuk',1,0,'',323,0,0),(48359,9968,3,303,0,'72.220.181.80',1203154255,1,0,1,1,1,0,'','','Otto,\n\n&gt;Do you know if the zooming can be turned off? \n\nI don\'t have Vista here. Under XP these kinds of things are available if you right-click on the desktop and select Properties.\n\nJames','',0,'AIA=','1yzb3ki3',1,0,'',303,0,0),(48360,9970,18,58,0,'84.149.101.245',1203156698,1,0,1,1,1,0,'','','thefull,\n\nmaybe this could help you?\n\n[code:rva2s6x0]\nACTIVATE DIALOG oDlg;\n   ON INIT ;        \n   aEval&#40; oFold&#58;aDialogs,;\n             &#123; |oD| oD&#58;bEraseBkGnd &#58;= NIL,;\n                    oD&#58;SetColor&#40; COLOR CLR_GREEN, CLR_BLUE  &#41; &#125; &#41;              \n[/code:rva2s6x0]\n\nRegards,\nDetlef','',0,'AIA=','rva2s6x0',1,0,'',58,0,0),(48361,9968,3,3,0,'82.198.28.44',1203158075,1,0,1,1,1,1,'','','Otto\n\nThe zoom on vista is related to \"AERO\" theme, just change theme and no more zooming effect\n\nHTH\n\nRichard','',0,'AIA=','1izv8wpq',1,0,'',3,0,0),(48363,9858,2,1294,0,'200.45.184.4',1203158367,1,0,1,1,1,0,'','Re: Actualización de Bases de Datos','GRACIAS\n\n\n[quote=&quot;dobfivewin&quot;:2r3taxxo]Hola amigos, soy nuevo en el foro: David Barrio (Argentina)\nTengo armada una aplicación para la actualización de las bases de datos de los sistemas y NO la puedo hacer andar, se las dejo para que la vean, o bien si tienen alguna para sugerirme\n\nmuchas gracias\n\nDavid Barrio\n<!-- e --><a href=\"mailto:davidbarrio_arg@hotmail.com\">davidbarrio_arg@hotmail.com</a><!-- e -->\n\n[code:2r3taxxo]#include \'Directry&#46;ch\'\n\nFunction ActuArchivos&#40;&#41;\nlocal oDlgSe\nlocal ORIGEN &#58;=SPACE&#40;60&#41;  , oORIGEN ,;\n			DESTINO&#58;=SPACE&#40;60&#41; , oDESTINO\nlocal oICOCMOV\n\nDEFINE DIALOG oDlgSe FROM 0,0 TO 10,99 TITLE \'Actualización de BASES de DATOS\'\n\n   @  0&#46;875, 1 SAY \'Ubicación ORIGEN&#58;\' of oDlgSe\n   @     13,85 BTNBMP oICOCMOV of oDlgSe ;\n                      FILE \'LUPA2&#46;BMP\' ;\n											SIZE 10,10 ;\n                      ACTION&#40;ORIGEN&#58;=DIRECMain&#40;&#41; ,;\n                             ORIGEN&#58;=ORIGEN+\'\\\' ,;\n                             oORIGEN&#58;refresh&#40;&#41; &#41;\n   @     01,13 GET oORIGEN var ORIGEN of oDlgSe\n\n   @ 1&#46;750, 1 SAY \'Ubicación DESTINO&#58;\' of oDlgSe\n   @     26,85 BTNBMP oICOCMOV of oDlgSe;\n                      FILE \'LUPA2&#46;BMP\';\n											SIZE 10,10 ;\n											ACTION&#40;DESTINO&#58;=DIRECMain&#40;&#41; ,;\n                             DESTINO&#58;=DESTINO+\'\\\' ,;\n                             oDESTINO&#58;refresh&#40;&#41; &#41;\n   @     02,13 GET oDESTINO var DESTINO of oDlgSe\n\n\n   @ 3,08 BUTTON \'&amp;Actualizar\' of oDlgSe ACTION &#40; ActArch&#40;ORIGEN,DESTINO&#41; , oDlgSe&#58;End&#40;&#41; &#41; SIZE 40, 10\n   @ 3,28 BUTTON \'&amp;No Actualizar\' of oDlgSe ACTION &#40; oDlgSe&#58;End&#40;&#41; &#41; SIZE 40, 10\n\nACTIVATE DIALOG oDlgSe CENTERED\n\ndbcloseall&#40;&#41;\nRETURN NIL\n\n\nFunction ActArch&#40;ORIGEN,DESTINO&#41;\n\nlocal x&#58;=DIRECTORY&#40;\'*&#46;dbf\'&#41;,;\n      NOM_DBF&#58;=&#123;&#125;\n      \nlocal TR_1&#58;=1\nlocal Paso\nlocal C1,C2,C3,C4,C5,C6,C7\nlocal AC1,AC2,AC3,AC4,AC5,AC6,AC7\nlocal Campos\n\nIf ORIGEN==\'\' &#46;or&#46; DESTINO==\'\'\n  MsgStop&#40; \'Error de Directorio ORIGEN o DESTINO\' &#41;\n  Return &#46;t&#46;\nEndIf\n*-------------------------- Carga archivos DBF en Directorio de ORIGEN\n\nX&#58;=DIRECTORY&#40;ORIGEN+\'*&#46;DBF\'&#41;\nAEVAL&#40;X,&#123;|FILE|AADD&#40;NOM_DBF,FILE&#91;F_NAME&#93;&#41;&#125;&#41;\n\n* NOM_DBF = Nombres de Archivos DBF que se deben agregar/reemplazar en carpeta de DESTINO\n* C1 = Nombre de Archivos DBF A Cambiar  &#40;En directorio de ORIGEN&#41;\n* C3 = Nombre de Archivos DBF de Transferencia  &#40;En directorio de DESTINO&#41; Cambia 1° x \'_\'\n* C4 = Nombre de Archivos DBF en Directorio de ORIGEN\n* C5 = Nombre de Archivo que debe renombrar el archivo DBF  =&gt; DB &#40;En directorio de ORIGEN&#41;\n* C6 = Nombre de Archivo DBT &#40;En directorio de ORIGEN&#41;\n* C7 = Nombre de Archivo que debe renombrar el archivo DBT  =&gt; DT &#40;En directorio de ORIGEN&#41;\n\ndbcloseall&#40;&#41;\n\nWhile TR_1&lt;=LEN&#40;NOM_DBF&#41;\n  *\n  C1&#58;=NOM_DBF&#91;TR_1&#93;        // Nombre de Archivo en DESTINO\n  *\n  C4&#58;=NOM_DBF&#91;TR_1&#93;         // Nombre de Archivo en ORIGEN\n\n	C1&#58;=FilNomArc&#40;C1&#41;\n	C4&#58;=FilNomArc&#40;C4&#41;\n\n  Paso &#58;= &#46;f&#46;\n  If &#46;NOT&#46; FILE&#40;C1&#41;                       // NO existe el archivo en Destino\n\n    If MsgNoYes&#40;oemtoansi&#40;\'Base de Dato NUEVA&#58; \'+C1+;\n		                       \', Realiza la Actualización ?\'&#41;,;\n                                oemtoansi&#40;\'Elija opcion SI/NO\'&#41; &#41;\n\n      PathSet&#40;ORIGEN&#41;\n      AC4&#58;=ER_3&#40;C4,1,1&#41;\n\n			COPY TO &amp;&#40;C1&#41;\n\n			Paso &#58;= &#46;t&#46;\n		 Else\n			Paso &#58;= &#46;f&#46;\n		EndIf\n\n  ElseIf FILE&#40;C1&#41;                         // EXISTE el Archivo en Destino\n\n		* En C3 coloco el NOMBRE archivo a reemplazar cambiando\n		* la 1° letra del Nombre por el 1&#40;UNO&#41;\n		* ejemplo \'CUENTA&#46;DBF\' pasa a \'_UENTA&#46;DBF\'\n\n    If MsgNoYes&#40;oemtoansi&#40;\'Base de Dato a Actualizar&#58; \'+C1+;\n		                       \', Realiza la Actualización ?\'&#41;,;\n                                oemtoansi&#40;\'Elija opcion SI/NO\'&#41; &#41;\n\n      C3&#58;=\'_\'+SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,2,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;&#41;\n\n      MsgWait&#40; \'Guardando Información de Base de Dato de DESTINO de&#58; \'+C1+\' en \'+C3 &#41;\n\n      PathSet&#40;DESTINO&#41;\n			use &amp;&#40;C1&#41;\n			pack\n			COPY TO &amp;&#40;C3&#41;\n			DBCLOSEALL&#40;&#41;\n			use &amp;&#40;c3&#41;\n			DBCLOSEALL&#40;&#41;\n\n      MsgWait&#40; \'Copiando Nueva Base de Dato en DESTINO&#58; \'+C4 &#41;\n\n      PathSet&#40;ORIGEN&#41;\n      use &amp;&#40;C4&#41;\n      PathSet&#40;DESTINO&#41;\n			COPY TO &amp;&#40;DESTINO+C1&#41;\n			DBCLOSEALL&#40;&#41;\n      PathSet&#40;DESTINO&#41;\n			use &amp;&#40;c1&#41;\n			ZAP\n			pack\n			DBCLOSEALL&#40;&#41;\n\n      MsgWait&#40; \'Copiando Información Base de Dato&#58; \'+C3+\' en \'+C1 &#41;\n      PathSet&#40;DESTINO&#41;\n      AC1&#58;=ER_3&#40;C1,1,1&#41;\n      AC3&#58;=ER_3&#40;C3,1,1&#41;\n		  Campos &#58;= FCOUNT&#40;&#41;\n		\n		  While !eof&#40;&#41;\n        DbSelectArea&#40;AC1&#41;\n        &amp;&#40;AC1&#41;-&gt;&#40; DBAPPEND&#40;&#41; &#41;\n		  	FOR x = 1 TO Campos\n         &amp;&#40;AC1&#41;-&gt;&amp;&#40;FIELDNAME&#40;x&#41;&#41; &#58;= &amp;&#40;AC3&#41;-&gt; &amp;&#40;FIELDNAME&#40;x&#41;&#41;\n        NEXT x\n        DbSelectArea&#40;AC3&#41;\n        DBSKIP&#40;&#41;\n      EndDo\n  		Paso &#58;= &#46;t&#46;\n		Else\n      Paso &#58;= &#46;f&#46;\n		EndIf\n\n	Else\n    MsgStop&#40; \'Error de Actualización de Archivos&#58; \'+C4 &#41;\n		Paso &#58;= &#46;f&#46;\n  EndIf\n\n	If Paso\n    MsgInfo&#40; \'Archivo ACTUALIZADO&#58; \'+C1 &#41;\n    \n    PathSet&#40;ORIGEN&#41;\n  	*-------------------------\n	  * Renombrar los archivos DBF y DBT de ORIGEN para que NO los transfieran de nuevo\n			 			* Carga en C5 el nombre como debe renombrar el archivo de ORIGEN &#40;de DBF a DB&#41;\n    C5&#58;=SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,1,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;-3&#41;+\'DB\'\n						* Carga en C6 el nombre del posible archivo DBT\n    C6&#58;=SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,1,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;-3&#41;+\'DBT\'\n						* Carga en C7 el nombre como debe renombrar el archivo de ORIGEN &#40;de DBT a DT&#41;\n    C7&#58;=SUBSTR&#40;NOM_DBF&#91;TR_1&#93;,1,LEN&#40;NOM_DBF&#91;TR_1&#93;&#41;-3&#41;+\'DT\'\n\n		If FILE&#40;C5&#41;       // Si Existe el archivo DB &#40;en ORIGEN&#41; se BORRA\n      If FERASE&#40;&amp;&#40;C5&#41;&#41; == -1\n        MsgStop&#40; \'Archivo&#58; \'+C5+\' NO Borrado\' &#41;\n			EndIf\n		EndIf\n		If FILE&#40;C7&#41;       // Si Existe el archivo DT &#40;en ORIGEN&#41; se BORRA\n      If FERASE&#40;&amp;&#40;C7&#41;&#41; == -1\n        MsgStop&#40; \'Archivo&#58; \'+C7+\' NO Borrado\' &#41;\n			EndIf\n		EndIf\n\n    MsgWait&#40; \'Renombrando Base&#58; \'+C4+\' a&#58; \'+C5 &#41;\n    If FRENAME&#40;C4,C5&#41; == -1                       // Renombre el Archivo DBF de ORIGEN &#40;DBF a DB&#41;\n      MsgStop&#40; \'Archivo&#58; \'+C4+\' NO Renambrado\' &#41;\n		EndIf\n  	If FILE&#40;C6&#41;                          // SI Existe DBT\n      MsgWait&#40; \'Renombrando Base&#58; \'+C6+\' a&#58; \'+C7 &#41;\n      If FRENAME&#40;C6,C7&#41; == -1                     // Renombre el Archivo DBT de ORIGEN &#40;DBT a DT&#41;\n        MsgStop&#40; \'Archivo&#58; \'+C4+\' NO Renambrado\' &#41;\n			EndIf\n	  EndIf\n	  *-------------------------\n	EndIf\n	dbcloseall&#40;&#41;\n  TR_1&#58;=++TR_1\nEndDo\n\nMsgInfo&#40; \'Archivo Actualizados&#58; \'+str&#40;len&#40;NOM_DBF&#41;,2&#41; &#41;\n\ndbcloseall&#40;&#41;\nRETURN NIL\n*-----------------------------------\nFunction FilNomArc&#40;NomArc&#41;\nlocal x,NomFil&#58;=\'\'\nFor x = 1 to len&#40;NomArc&#41;\n	If substr&#40;NomArc,x,1&#41; == \'&#46;\'\n		exit\n	EndIf\n	NomFil &#58;= NomFil + substr&#40;NomArc,x,1&#41;\nNext x\nReturn NomFil[/code:2r3taxxo][/quote:2r3taxxo]','',0,'gIA=','2r3taxxo',1,0,'',1294,0,0),(48364,9975,6,596,0,'84.76.66.27',1203158944,1,0,1,1,1,1,'','','Loren,  tengo un problema: Como \"junto\" el get y el combo en el mismo espacio fisico.\nCon el mismo numero de ID de recurso no va.\nMontando un recurso encima de otro tengo que tabular para cambiar de get/combo combo/get.\n\nAdemas esta sentencia  [b:1iqg0l8n]ocombobox:setItems(aItems)[/b:1iqg0l8n] me da este erroe: [b:1iqg0l8n]Error BASE/1132  Bound error: array access[/b:1iqg0l8n]','',0,'QA==','1iqg0l8n',1,0,'',596,0,0),(48365,9970,18,24,0,'88.19.135.113',1203159178,1,0,1,1,1,1,'','','[quote=&quot;Detlef Hoefner&quot;:2ssg8o4b]thefull,\n\nmaybe this could help you?\n\n[code:2ssg8o4b]\nACTIVATE DIALOG oDlg;\n   ON INIT ;        \n   aEval&#40; oFold&#58;aDialogs,;\n             &#123; |oD| oD&#58;bEraseBkGnd &#58;= NIL,;\n                    oD&#58;SetColor&#40; COLOR CLR_GREEN, CLR_BLUE  &#41; &#125; &#41;              \n[/code:2ssg8o4b]\n\nRegards,\nDetlef[/quote:2ssg8o4b]\n\nYeah! Thank you!\n\n[code:2ssg8o4b] aEval&#40; oFolder&#58;aDialogs, &#123; |oD| oD&#58;bEraseBkGnd &#58;= NIL, oD&#58;SetColor&#40; CLR_GREEN, CLR_BLUE  &#41; &#125; &#41;\n[/code:2ssg8o4b]\n\nErase COLOR definition <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->\n\nI think not is correct documentation, is the folder is 32 bits.\nPlease Antonio, Can you revised this documentation and put this option,\npaint folder 32 btis in documentation ?\n\nThanks.\nRafa Carmona','',0,'gIA=','2ssg8o4b',1,0,'',24,0,0),(48366,9962,3,2,0,'87.218.146.60',1203159504,1,0,1,1,1,1,'','','Dutch,\n\n&gt; xLINK: error: Unresolved external symbol \'_GetGuiResources\'. \n\nThe problem is caused as xHB does not provide a proper import library for that function. xHB should provide all the Windows import libraries with its included C compiler.\n\ngui.lib does not contains code. It is just an import library. \n\nAnyhow, we are going to do some tests in XP to see where the problem may come from.','',0,'gIA=','3jalxtza',1,0,'',2,0,0),(48367,9978,3,51,0,'80.122.88.242',1203159599,1,0,1,1,1,0,'','EMF-Viewer How to do?','I would like to have a EMF-Viewer.\n\nAt the leftt site of the window the available emf files should be shown\nand an on click should show  the preview on the right site.\n\nIn my case Preview opens in a maximized window.\nDoes someone know how to do?\n\n[img:1epu2m9i]http&#58;//www&#46;atzwanger&#46;com/fw/emfviewer&#46;jpg[/img:1epu2m9i]\n\n[quote:1epu2m9i]\n#include \"FiveWin.ch\"\n#include \"InKey.ch\"\n#include \"xbrowse.ch\"\n//----------------------------------------------------------------------------//\n\nfunction Main()\n\n    local oWnd\n    local oBrw, oCol\n    local oRes, cRes\n    LOCAL aInhalt := directory(\"*.emf\",\"D\")\n    LOCAL oFnt\n    LOCAL ob0, ob1, ob2, ob3, ob4, ob5, xRes\n\n    DEFINE FONT oFnt NAME \"ARIAL\" SIZE 6 ,15 BOLD\n\n    DEFINE WINDOW oWnd TITLE \"EMF-Viewer\"  ;\n        FROM 0,0 TO 800,1024 PIXEL\n    oWnd:SetFont(oFnt)\n\n    oBrw := TXBrowse():New( oWnd )\n    oBrw:nTop := 10\n    oBrw:nLeft := 20\n    oBrw:nBottom := 600\n    oBrw:nRight := 330\n\n    oBrw:SetArray( ainHalt,  .T. )\n    oBrw:aCols[1]:cHeader := \'Source\'\n    oBrw:aCols[1]:nWidth := 157\n\n    oBrw:aCols[2]:cHeader := \'Size\'\n    oBrw:aCols[3]:cHeader := \'Date\'\n\n    oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW\n    oBrw:nRowDividerStyle := 4\n\n    oBrw:lRecordSelector := .t.\n\n\n    oBrw:bLDblClick := {|| CreateChild( oBrw) }\n\n    oBrw:bKeyDown := {|nkey| iF( nkey = 13, CreateChild( oBrw), ) }\n\n    oBrw:lHScroll := .f.\n\n    oBrw:CreateFromCode()\n\n    @ 650, 350 BUTTON ob0 PROMPT \"&amp;Open\" OF oWnd PIXEL SIZE 80,30;\n        ACTION  CreateChild( oBrw)\n\n    @ 650, 870 BUTTON \"&amp;Exit\" OF oWnd PIXEL SIZE 80,30;\n        ACTION oWnd:end()\n\n    ACTIVATE WINDOW oWnd\nreturn nil\n\n\n//----------------------------------------------------------------------------//\nfunction CreateChild( oBrw)\n\n   local oPrn\n   local cFileName := oBrw:aArrayData[oBrw:nArrayAt,1]\n\n   PRINTER oPrn PREVIEW\n      PAGE\n         oPrn:ImportWMF( cFileName )\n      ENDPAGE\n   ENDPRINT\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\n\n[/quote:1epu2m9i]','',0,'iA==','1epu2m9i',1,0,'',51,0,0),(48368,9676,22,24,0,'88.19.135.113',1203159705,1,0,1,1,1,1,'','','[quote=&quot;antolin&quot;:3j5igt00]Te he entendido, sólo que dijistes: \"Yo creo que debería ser ANTES, y que el ON INIT del diálogo/ventana sea lo último que deba de evaluarse\" y creo que debería inicializarse primero el dialogo y despues evaluar los distintos binit de los diferentes objetos.\n\nUn saludo.[/quote:3j5igt00]\nCuando decia ANTES, me referia ANTES de la evaluacion del binit del dialogo, \nno ANTES de la creacion del dialogo <!-- s;-) --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\";-)\" title=\"Wink\" /><!-- s;-) -->, que logicamente, no funcionaría.','',0,'gA==','3j5igt00',1,0,'',24,0,0),(48369,9226,6,1294,0,'200.45.184.4',1203160082,1,0,1,1,1,0,'','Re: Fonts en TWord','Yo lo asigno de esta forma y notengo problemas\n\nDavid\n\n[DEFINE FONT oFuente  NAME \'Arial\'  SIZE 1,8   OF oWord			//9\nDEFINE FONT oFuente2 NAME \'Arial\'  SIZE 1,8   OF oWord			//8\nDEFINE FONT oFuente3 NAME \'Arial\'  SIZE 1,8   OF oWord BOLD		//9\nDEFINE FONT oFuente4 NAME \'Arial\'  SIZE 1,10  OF oWord BOLD		//10\nDEFINE FONT oFuente5 NAME \'Arial\'  SIZE 1,6   OF oWord			//6\nDEFINE FONT oFuente6 NAME \'Arial\'  SIZE 1,7   OF oWord			//7\nDEFINE FONT oFuente7 NAME \'Arial\'  SIZE 1,11  OF oWord			//11\nDEFINE FONT oFuente8 NAME \'Arial\'  SIZE 1,13  OF oWord			//13\n\noWord:=Tword():New()\n\noWord:NewDoc( cOutFile )\n\noWord:startpage()\n\noWord:SetCm()','',0,'','3iaordaj',1,0,'',1294,0,0),(48370,7526,22,24,0,'88.19.135.113',1203160195,1,0,1,1,1,1,'','','[quote=&quot;jvargas&quot;:saa4shxr]Hola Antonio.\nGracias por tu respuesta\nEsta bien el Nombre de la Clase del Objeto, pero lo que necesito es el Nombre del Objeto.  Imagínate que hay muchos Gets o Botones y deseo saber cuál de todos ellos tiene el foco.\nSaludos\nJorge Vargas[/quote:saa4shxr]\nBueno, una manera \'simple\' seria dotarle tu el nombre, es decir, usando la variable cargo.\n\n@1,1 GET oGet VAR cNombre OF oDlg\noGet:Cargo := \"Nombre\"\n\nLógicamente esto depende de ti, porque que yo sepa, los objetos no tienen nombre, si no de que tipo de clase es, ademas, tienes un oBj:hWnd que identifica al objeto en cuestion , pero eso no te ayudará en nada.\n\nRecuerdo que tuve que realizar alguna cosa similar por temas de un codigo clipper y manteniendo la compatibilidad, esa era la opcion más sencilla, y recuerdo que ¿ ReadVar()  ? devolvian el nombre de la variable en la que estabas, en este caso debería dar \"cNombre\", pero no estoy muy seguro que funcione.','',0,'gA==','saa4shxr',1,0,'',24,0,0),(48371,9899,3,1298,0,'189.22.134.133',1203162825,1,0,1,1,1,0,'','','[quote=&quot;James Bott&quot;:3aghn8ol]Ah, the toolbar accellerators also may not be working because the toolbar is on a dialog.\n\nHere is a trick you can try. Put another button on the dialog with an accelerator then hide the button in your code. The accelerator will still work and it will seem like the toolbar accelerator is working.\n\nJames[/quote:3aghn8ol]\n\nThanks, I need very much, I have to do the test\n\nExcuse for my English','',0,'gA==','3aghn8ol',1,0,'',1298,0,0),(48372,9979,6,1236,0,'201.47.67.214',1203164229,1,0,1,1,1,0,'','BUTTONBMP - Executar enquanto estiver pressionado!','Antonio e amigos, é possível enquanto manter pressionado um BUTTONBMP, ele ficar executando constantemente a ação desejada?\n\n\nGrato','',0,'gA==','38w2d20j',1,0,'',1236,0,0),(48373,9975,6,180,0,'193.152.135.44',1203167259,1,0,1,1,1,0,'','','Hola JMGarcia:\n\nNo se si es lo que estás buscando pero yo lo hago de esta manera y da resultado. Tengo una DBF con los conceptos que cargo en un array aConceptos y que muestro con un Combobox así:\n  REDEFINE COMBOBOX oConcepto VAR cConcepto  ITEMS aConceptos ID 202 OF oDlg\n\nPuedo elegir alguno de los registros existentes o teclear uno nuevo en el mismo combo.\n\nDespués, al cerrar el diálogo, si he tecleado uno nuevo, pregunto si se desea añadir el nuevo texto al fichero de conceptos. Si es así, la próxima vez que despliegues el combo está disponible el nuevo concepto añadido.\n\n     //\n      IF ASCAN(aConceptos, cConcepto) = 0\n         IF MsgYesNo(\"El Concepto: \"+\"´\"+alltrim(cConcepto)+\"´\"+\" no está en el fichero datos de conceptos. ¿Quiere añadirlo ahora?\",\"Seleccione una opción\" )\n            //\n            AADD(aConceptos, cConcepto)\n            ASORT(aConceptos)\n            //\n            IF CONCEPTO-&gt;(!RecLock(5))\n            ELSE\n               CONCEPTO-&gt;(DbAppend())\n               CONCEPTO-&gt;Concepto = cConcepto\n               CONCEPTO-&gt;(DbRunLock())\n               CONCEPTO-&gt;(DbCommit())\n            ENDIF\n            //\n         ENDIF\n         //\n      ENDIF\n\nSaludos,\nManuel','',0,'gA==','aoradh29',1,0,'',180,0,0),(48374,9929,6,180,0,'193.152.135.44',1203169777,1,0,1,1,1,0,'','','Hola ermatica:\n\nUna forma rápida y sencilla de hacer lo que buscas es utilizando un fichero con la imagen del impreso y luego escribendo los datos encima.\nAlgo así como esto:\n\nPRINTER oPrn NAME OemToAnsi(\"Preimpreso\")\n oPrn:SetSize(210*10,297*10)\n   //\n   oPrn:StartPage()\n      //\n      SayBitmap(0,0,21,29.7,\"IMPRESO.BMP\",oPrn)\n      oPrn:CmSay(6.6,3.5, Datos-&gt;Nombre, oFont4)\n      //\n   oPrn:EndPage()\n      //\nENDPRINT\n////////////\nSi quieres usar otro tipo de ficheros de imagen como PNG, JPG, etc.\nentonces hazlo así:\n\n         oIT = TImage():Define( , \"IMPRESO.JPG\" )\n         aTam := oPrn:Cmtr2Pix(21,29.7)\n         oPrn:SayImage(0,0,oIT,aTam[1], aTam[2])\n\nEspero te sirva.\n\nSaludos,\nManuel Aranda','',0,'','2rbybigz',1,0,'',180,0,0),(48375,9975,6,1255,0,'189.128.26.214',1203173623,1,0,1,1,1,0,'','Re: ComboBox con get y añadir lo del get al array del combo','[quote=&quot;JmGarcia&quot;:29gdww7n]Así cada vez que se teclee algo al dar al &lt;intro&gt; pase a aumentar el array del combo para posterior selección[/quote:29gdww7n]Eso es una propiedad ya definida en TComboBox (Estilo CB_DROPDOWN), revisa \\FWH\\Samples\\Combos.prg. En el segundo ejemplo teclea \"Dos\" y verás que al salir de ese Combo, el array ha cambiado.\n\nSaludos\n\nManuel Mercado','',0,'gA==','29gdww7n',1,0,'',1255,0,0),(48376,9963,6,1106,0,'190.64.196.162',1203174857,1,0,1,1,1,0,'','','Espectacular !!!!\n\nPodria alguien postear un ejemplo de las otras\nposibilidades?\n\n\nSaludos y gracias\n\nRuben Fernandez','',0,'gA==','1ptc1rnr',1,0,'',1106,0,0),(48377,9975,6,596,0,'84.76.66.27',1203175227,1,0,1,1,1,1,'','','A ver si con este grafico me explico:\n\n[img:2hjyp6vm]http&#58;//www&#46;jmgarcia&#46;org/GetCombobox&#46;jpg[/img:2hjyp6vm]','',0,'CA==','2hjyp6vm',1,0,'',596,0,0),(48378,9963,6,78,0,'190.43.34.93',1203176722,1,0,1,1,1,0,'','','Suban alguna imagen plisss..\n\nSalu2','',0,'CA==','2t3npc03',1,0,'',78,0,0),(48379,9975,6,596,0,'84.76.66.27',1203178048,1,0,1,1,1,1,'','Re: ComboBox con get y añadir lo del get al array del combo','[quote=&quot;mmercado&quot;:34w5qh4o]Eso es una propiedad ya definida en TComboBox (Estilo CB_DROPDOWN), revisa \\FWH\\Samples\\Combos.prg...[/quote:34w5qh4o]He revisado el ejemplo PRG y el RC, creo que ya lo tengo.\n\nAhora solo me falta que al pulsar &lt;INTRO&gt; o un BOTON pueda saltar a una funcion definida por mi.\nLa clausula ON CHANGE no me vale ya que al seleccionar un item del combobox sale por ahi y puede que no haya terminado de rellenar el campo.\nImaginate que el item es \"format\" y depues de seleccionarlo deseo añadir en el get \"c:/Q\" y pulsar &lt;INTRO&gt; o BOTON (con el nombre, por ejemplo \"Ejecutar\") y saltar a una funcion pasandole de parametro \"format c:/Q\".\n\nPor otro lado, y dentro del get, me gustaria que pulsando flecha arriba/abajo en el get me apareciesen los textos de los items del array del combobox. Flecha arriba el primero y sucesivos, flecha abajo retroceder en la posicion.\n\nAdemas el tema del SCROLL-VERTICAL no logro que me salga.','',0,'gA==','34w5qh4o',1,0,'',596,0,0),(48380,9979,6,1255,0,'189.128.26.214',1203178202,1,0,1,1,1,0,'','Re: BUTTONBMP - Executar enquanto estiver pressionado!','[quote=&quot;FWHISHOW&quot;:1tpb6epo]Antonio e amigos, é possível enquanto manter pressionado um BUTTONBMP, ele ficar executando constantemente a ação desejada?[/quote:1tpb6epo]\nCreo que con BtnBmp no es posible, pero prueba este ejemplo con TSButton:\n[code:1tpb6epo]#include &quot;FiveWin&#46;ch&quot;\n#include &quot;TSButton&#46;ch&quot;\nstatic oWnd\n//----------------------------------------------------------------------------//\nfunction Main&#40;&#41;\n   Local oBar, oBtn\n   \n   DEFINE WINDOW oWnd FROM 1, 10 TO 20, 60 ;\n          TITLE &quot;Testing Buttons from disk&quot;\n\n   DEFINE BUTTONBAR oBar OF oWnd _3D\n   DEFINE SBUTTON oBtn OF oBar FILE &quot;\\fwh\\bitmaps\\16x16\\Open&#46;bmp&quot;\n\n   oBtn&#58;bLClicked &#58;= &#123;||Pita&#40;oBtn&#41;&#125;\n   ACTIVATE WINDOW oWnd\nreturn nil\n//----------------------------------------------------------------------------//\nStatic Function Pita&#40; oBtn &#41;\n   While oBtn&#58;lPressed\n      tone&#40;500&#41;\n      SysRefresh&#40;&#41;\n   EndDo\nReturn Nil\n[/code:1tpb6epo]\nSaludos\n\nManuel Mercado','',0,'gIA=','1tpb6epo',1,0,'',1255,0,0),(48381,9963,6,1246,0,'66.82.9.57',1203179203,1,0,1,1,1,1,'','','!!!!!!!!!!!!!!!!!!!!!!!! DE CHIPOCLES MAESE \nNADA MAS NOSE DONDE PONER EL ODLG:REFRES()\nNO ME REFRESCA AL ENTRA EL DIALOGO\nFELICIDADES POR EL APORTE','',0,'gIA=','2xgqlk84',1,0,'',1246,0,0),(48382,9963,6,1246,0,'66.82.9.57',1203180540,1,0,1,1,1,1,'','','YA LE ENCONTRE ENDONDE \nPAR LOS QUE NO.\n\nFUNCTION CENTRA (ODLG)\n...\nODLG:REFRESH()\nRETURN 0','',0,'gIA=','2a6zsck0',1,0,'',1246,0,0),(48383,9980,4,20,0,'87.1.29.173',1203181974,1,0,1,1,1,0,'','DTPicker in folder','DTPicker working fine, but in the folder no.\n \nThis is the code:\n\n[code:2wiqskqp]#include &quot;FWCE&#46;ch&quot;\n\nFUNCTION Main&#40;&#41;\n\n   LOCAL oWnd, oFld, oDate\n   LOCAL dDate &#58;= DATE&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;DTPICKER&quot; MENU MenuEmpty&#40;&#41;\n\n      @ 0,-0&#46;5 FOLDER oFld PROMPTS &quot;One&quot;, &quot;Two&quot; ;\n                           DIALOGS &quot;ONE&quot;, &quot;TWO&quot; ;\n                           SIZE 247, 270 BOTTOM\n\n      REDEFINE DTPICKER oDate VAR dDate ID 101 OF oFld&#58;aDialogs&#91;1&#93;\n\n      oFld&#58;aDialogs&#91;1&#93;&#58;Move&#40;0,0&#41;\n      oFld&#58;aDialogs&#91;2&#93;&#58;Move&#40;0,0&#41;\n\n      oFld&#58;InitDialogs&#40;&#41;\n\n   ACTIVATE WINDOW oWnd\n\nRETURN &#40; nil &#41;\n\nFUNCTION MenuEmpty&#40;&#41;\n\n   LOCAL oMenu\n\n   DEFINE MENU oMenu RESOURCE 80\n\nRETURN &#40; oMenu &#41;[/code:2wiqskqp]\n\nThis is the RC file:\n\n[code:2wiqskqp]#ifdef _CE\n   #include &quot;c&#58;\\vce\\include\\arm\\windows&#46;h&quot;\n   #include &quot;c&#58;\\vce\\include\\arm\\commctrl&#46;h&quot;\n#endif\n\n#define I_IMAGENONE		&#40;-2&#41;\n#define IDS_HELP      104\n\n#ifdef _CE\n\n80 RCDATA\nBEGIN\n   80, 0\nEND\n\n#endif\n\nONE DIALOG 135, 63, 140, 142\nSTYLE 0x4L | WS_CHILD\n&#123;\n CONTROL &quot;&quot;, 101, &quot;SysDateTimePick32&quot;, 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 78, 21, 46, 11\n&#125;\n\nTWO DIALOG 135, 63, 140, 142\nSTYLE 0x4L | WS_CHILD\n&#123;\n&#125;\n[/code:2wiqskqp]\n\nFWPPC shows this error:\n\nCan\'t create dialogBox\n\nNon defined Id\nNo:    101\nstack calls:\nTCONTROL:INITIATE(0)\nTDATEPICK:INITIATE(0)\n__OBJSENDMSG(0)\nOSEND(0)\nASEND(0)\nTFOLDER:INITDIALOGS(0)\nMAIN(20)\n\nCan you help me?\n\nRegards\nPier Luigi','',0,'AIA=','2wiqskqp',1,0,'',20,0,0),(48384,9975,6,596,0,'84.76.66.27',1203182498,1,0,1,1,1,1,'','','Me contesto yo mismo:\n\n[quote=&quot;JmGarcia&quot;:3w501656]Ahora solo me falta que al pulsar &lt;INTRO&gt; o un BOTON pueda saltar a una funcion definida por mi.[/quote:3w501656]Con esto esta hecho [b:3w501656]oCombo:bKeyDown:={|nK|iif(nK==VK_RETURN,MiFuncion(),)}[/b:3w501656]\n\n[quote=&quot;JmGarcia&quot;:3w501656]Por otro lado, y dentro del get, me gustaria que pulsando flecha arriba/abajo en el get me apareciesen los textos de los items del array del combobox. Flecha arriba el primero y sucesivos, flecha abajo retroceder en la posicion.[/quote:3w501656]Pues lo hace solito en Combobox.\n\nSolo me queda el tema del SCROLL-VERTICAL, no logro que me salga.','',0,'wA==','3w501656',1,0,'',596,0,0),(48385,9890,6,456,0,'88.7.6.231',1203184962,1,0,1,1,1,1,'','','[code:3svymhtm]\n&#46;&#46;&#46;\n//oRs tiene el recordset ya creado&#46;\noBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41; \noBrw&#58;SetAdo&#40;oRs&#41; \noBrw&#58;CreateFromCode&#40;&#41; \noWnd&#58;oClient&#58;=oBrw\n&#46;&#46;&#46;[/code:3svymhtm]\nTambien puedes consultar este otro hilo [url:3svymhtm]http&#58;//fivetechsoft&#46;com/forums/viewtopic&#46;php?t=8231[/url:3svymhtm]','',0,'EIA=','3svymhtm',1,0,'',456,0,0),(48386,9963,6,987,0,'189.132.6.102',1203185049,1,0,1,1,1,0,'','','Me tome la libertad de hacer unas modificaciones que permiten ver el efecto de forma aleatoria, para darle un poco de mas vista al ejemplo..\n\n\nFUNCTION Centra( oDlg ) \n\n[b:1juwnbfu]LOCAL nSel:= nRandom(4)\nLOCAL cAni:= \"\" \n\n    IF nSel == 1\n       cAni:= AW_HOR_POSITIVE\nELSEIF nSel == 2\n       cAni:= AW_HOR_NEGATIVE\nELSEIF nSel == 3\n       cAni:= AW_VER_POSITIVE\nELSEIF nSel == 4\n       cAni:= AW_VER_NEGATIVE\nELSEIF nSel == 0\n       cAni:= AW_BLEND\n ENDIF   [/b:1juwnbfu]\n\nAnimateWindow( oDlg : hWnd, 200, cAni )\n[b:1juwnbfu]oDlg:Refresh()[/b:1juwnbfu]\n\nRETURN 0 \n\nSaludos desde México..  <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','1juwnbfu',1,0,'',987,0,0),(48387,9962,3,47,0,'203.144.143.9',1203185772,1,0,1,1,1,0,'','','Dear Antonio,\n\nI\'ve found the problem is some .OBJ files has not re-build.  Sorry to novice\'s problem.\n\nAnother thing is after re-build all.  Gui.lib is not need anymore.\n\nBest regards,\nDutch','',0,'QA==','21f7jdj3',1,0,'',47,0,0),(48388,9963,6,415,0,'190.159.12.23',1203186141,1,0,1,1,1,1,'','','Horacio:\n\n!Espectacular¡ Gracias.\n\nRubén:\n\nDe lo que entendi.\n\nEfecto de izquierda a derecha\n\n*-----------------------------\nFunction Izquierda( oDlg )\n\nAnimateWindow( oDlg : hWnd, 200, [color=red:6qit9y2l]AW_HOR_POSITIVE[/color:6qit9y2l])\noDlg:refres()\nReturn 0\n\nEfecto de derecha izquierda\n\n*-----------------------------\nFunction Derecha( oDlg )\n\nAnimateWindow( oDlg : hWnd, 200, [color=red:6qit9y2l]AW_HOR_NEGATIVE[/color:6qit9y2l])\noDlg:refres()\nReturn 0\n\nEfecto de arriba hacia abajo\n\n*-----------------------------\nFunction Arriba( oDlg )\n\nAnimateWindow( oDlg : hWnd, 200, [color=red:6qit9y2l]AW_VER_POSITIVE[/color:6qit9y2l])\noDlg:refres()\nReturn 0\n\nEfecto de abajo hacia arriba\n\n*-----------------------------\nFunction Abajo( oDlg )\n\nAnimateWindow( oDlg : hWnd, 200, [color=red:6qit9y2l]AW_VER_NEGATIVE[/color:6qit9y2l])\noDlg:refres()\nReturn 0\n\nEl 200 es tiempo y si haces la prueba y aumentas a 500 o 1000 se te demora mucho más el efecto.\n\nSaludos,','',0,'Ag==','6qit9y2l',1,0,'',415,0,0),(48389,9963,6,415,0,'190.159.12.23',1203187201,1,0,1,1,1,1,'','','BUENA esa Dany con la modificación que hiciste el efecto es aleatorio, mis respetos.. <!-- s:shock: --><img src=\"{SMILIES_PATH}/icon_eek.gif\" alt=\":shock:\" title=\"Shocked\" /><!-- s:shock: --> \n\nSaludos,','',0,'Ag==','2eaimlux',1,0,'',415,0,0),(48390,9975,6,1255,0,'189.128.26.214',1203187344,1,0,1,1,1,0,'','Re: ComboBox con get y añadir lo del get al array del combo','[quote=&quot;JmGarcia&quot;:j4li1rmk]\nLa clausula ON CHANGE no me vale ya que al seleccionar un item del combobox sale por ahi y puede que no haya terminado de rellenar el campo[/quote:j4li1rmk]\nPodrías agregar lo siguiente:\n\n[code:j4li1rmk]#define MAX_GET_LEN  10\noCbx&#58;oGet&#58;bChange &#58;= &#123; || AutoComplete&#40; oCbx, MAX_GET_LEN &#41; &#125;\n\n//----------------------------------------------------------------------------//\n\nStatic Function AutoComplete&#40; oCbx, nLen &#41;\n\n   LOCAL cBuffer, nEle, ;\n         nPos &#58;= oCbx&#58;oGet&#58;nPos\n\n   If oCbx == Nil\n      Return Nil\n   EndIf\n\n   Default nLen &#58;= 10\n\n   cBuffer &#58;= SubStr&#40; oCbx&#58;oGet&#58;oGet&#58;Buffer, 1, nPos - 1 &#41;\n\n   IF &#40; nEle &#58;= ASCAN&#40; oCbx&#58;aItems, &#123;|e| Upper&#40; e &#41; = Upper&#40; cBuffer &#41; &#125; &#41; &#41; &gt; 0\n      oCbx&#58;oGet&#58;oGet&#58;Buffer &#58;= PadR&#40; oCbx&#58;aItems&#91; nEle &#93;, nLen &#41;\n      oCbx&#58;oGet&#58;Assign&#40;&#41;\n      oCbx&#58;oGet&#58;Refresh&#40;&#41;\n      oCbx&#58;oGet&#58;SetPos&#40; nPos &#41;\n   Else\n      oCbx&#58;oGet&#58;oGet&#58;Buffer &#58;= PadR&#40; cBuffer, nLen &#41;\n      oCbx&#58;oGet&#58;Assign&#40;&#41;\n      oCbx&#58;oGet&#58;Refresh&#40;&#41;\n      oCbx&#58;oGet&#58;SetPos&#40; nPos &#41;\n   END\n\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function cProper&#40; cText &#41;\n\nReturn Upper&#40; SubStr&#40; cText, 1, 1 &#41; &#41; + Lower&#40; SubStr&#40; cText, 2 &#41; &#41;\n\n[/code:j4li1rmk]\nSaludos\n\nManuel Mercado','',0,'gIA=','j4li1rmk',1,0,'',1255,0,0),(48391,9890,6,415,0,'190.159.12.23',1203187956,1,0,1,1,1,1,'','','Biel:\n\nSe me ocurre una idea, te la voy a proponer a ver si te animas..\n\nPorque no haces un manual como para niños de KINDER sobre como comenzar a utilizar ADO, yo leo tu BLOG y se que tu colaboras desinteresadamente a la comunidad de fivewineros.\n\nCuando yo aprendi clipper lo hice a punta de comprar libros y prácticar y repasar y practicar y repasar hasta que fui aprendiendo. Y creo que si tenemos un manual de KINDER y despues para PRIMARIA y asi sucesivamente iremos haciendo la transicion a ADO.\n\nLógico tu tiempo vale y por eso estaria dispuesto a pagar ([color=red:2cnacw2o]$$ bueno Euros[/color:2cnacw2o]) por dicho manual. ¿Que te parece?; creo a que muchos nos serviria para dar ese salto.\n\nSaludos','',0,'Ag==','2cnacw2o',1,0,'',415,0,0),(48392,9890,6,9,0,'85.59.96.123',1203189204,1,0,1,1,1,1,'','','Mauricio,\n\nEl tema de ADO es bastante simple y realmente no es necesario un manual. En la red existe bastante información que es de donde (la mayoría) hemos ido aprendiendo. \n\n<!-- m --><a class=\"postlink\" href=\"http://www.w3schools.com/ado/default.asp\">http://www.w3schools.com/ado/default.asp</a><!-- m -->\n\nPero si lo que se pretende es trabajar con una base de datos \"seria\"  (cliente-servidor) tales como Oracle, MySql, SqlServer, etc. en mi opinión, habría que dividir el tema en tres pasos:\n\n1) Lenguaje SQL (fundamental)\n2) ADO\n3) Temas específicos de cada base de datos (por ejemplo, Oracle tiene su propio lenguaje).','',0,'Ag==','qmp7gwlr',1,0,'',9,0,0),(48393,9963,6,644,0,'190.18.78.39',1203190263,1,0,1,1,1,0,'','','Willy: \nno hay manera de poner imágenes porque el efecto es dinámico. Probá lo que escribió Dany en este post. Ahí podrás ver todos los efectos. Muy bueno Dany la rutina de efectos aleatorios. Como dice Mauro los parámetros de la función son el handle del dialogo, el tiempo de ejecución del efecto y el flags del mismo.','',0,'Ag==','14x32kjx',1,0,'',644,0,0),(48394,9981,6,568,0,'201.230.186.107',1203193224,1,0,1,1,1,0,'','Evitar Editar el campo con Enter','Uso la Clase TSBrowse 6.0, Como todos saben para editar un campo se puede usar las teclas F2, ENTER, letras (si es alfanumerica) y Numeros (Si es Numerica), etc.\nDebo evitar que ENTER edite la celda enfocada, ¿como lo puedo hacer, sin evitar que la columna sea editable... Alguien por favor puede ayudarme?\n\nGracias de antemano\n\nWilliam Chavez Noriega\nLima - Peru <!-- s:P --><img src=\"{SMILIES_PATH}/icon_razz.gif\" alt=\":P\" title=\"Razz\" /><!-- s:P -->','',0,'Ag==','2b9ldpih',1,0,'',568,0,0),(48395,9963,6,1106,0,'190.64.196.162',1203193596,1,0,1,1,1,0,'','','Mauricio:\n\nGracias, funciona de maravillas.\n\nSaludos\n\nRuben Fernandez','',0,'Ag==','qlkytkxs',1,0,'',1106,0,0),(48397,9981,6,1255,0,'189.128.26.214',1203197488,1,0,1,1,1,0,'','Re: Evitar Editar el campo con Enter','Hola William:\n\n[quote=&quot;William Chavez Noriega&quot;:3f2k7j2m]Debo evitar que ENTER edite la celda enfocada, ¿como lo puedo hacer, sin evitar que la columna sea editable... Alguien por favor puede ayudarme?[/quote:3f2k7j2m]\n[code:3f2k7j2m]oBrw&#58;bUserKeys &#58;= &#123;|nKey| If&#40; nKey == VK_RETURN, &#46;F&#46;, nKey &#41; &#125;[/code:3f2k7j2m]\n\nSaludos\n\nManuel Mercado','',0,'gIA=','3f2k7j2m',1,0,'',1255,0,0),(48398,9890,6,415,0,'190.159.12.23',1203199999,1,0,1,1,1,1,'','','Manuel:\n\nGracias\n\nY tienes toda la razón, es trabajar con base de datos [color=red:3oqwk6pa]cliente\\servidor[/color:3oqwk6pa], lo que es no plantear bien la duda o pregunta. \n\nAsí como lo planteas es perfecto para iniciarse. \n\nEl primer punto no habriá necesidad porque hay bastante documentación, cursos, manuales, etc...de hecho ya hago pruebas con MYSQL desde la linea de comandos (crear, modificar, consultas, etc.)\n\nEl segundo ADO tambien pasa.\n\nEntonces seria el tercer punto.\n\n[color=red:3oqwk6pa]Temas específicos de cada base de datos (por ejemplo, Oracle tiene su propio lenguaje). [/color:3oqwk6pa] \n \nDominando este tema podriamos tener nuestros sistemas en diferentes versiones atacando DBF, MYSQL, ORACLE, etc..\n\n\nPD: ¿Manuel y al fín no viniste a Colombia el año pasado?, te teniamos una invitación a tomar puro cafecito colombiano.\n\n\nSaludos,','',0,'Ag==','3oqwk6pa',1,0,'',415,0,0),(48399,9975,6,596,0,'84.76.66.27',1203201204,1,0,1,1,1,1,'','Re: ComboBox con get y añadir lo del get al array del combo','[quote=&quot;mmercado&quot;:2nr9rp4c][code:2nr9rp4c]cBuffer &#58;= SubStr&#40; oCbx&#58;oGet&#58;oGet&#58;Buffer, 1, nPos - 1 &#41;[/code:2nr9rp4c][/quote:2nr9rp4c]\nMe da este error  [b:2nr9rp4c]Error BASE/1110  Argument error: SUBSTR[/b:2nr9rp4c] en la linea del SubStr...\n\nPor otro lado: como funciona esta subrrutina. Puedo entender que según vas tecleando se puede llegar a completar el texto si algun item del array del combo comienza igual...','',0,'wIA=','2nr9rp4c',1,0,'',596,0,0),(48400,9975,6,1255,0,'189.128.26.214',1203202524,1,0,1,1,1,0,'','Re: ComboBox con get y añadir lo del get al array del combo','[quote=&quot;JmGarcia&quot;:2etbse8x]Por otro lado: como funciona esta subrrutina. Puedo entender que según vas tecleando se puede llegar a completar el texto si algun item del array del combo comienza igual...[/quote:2etbse8x]\n\nTomando el mismo ejemplo de FWH Samples:[code:2etbse8x]// Showing the use of different styles of ComboBoxes controls\n\n#include &quot;FiveWin&#46;ch&quot;\n#include &quot;Combos&#46;ch&quot;\n\n#define GET_MAX_LEN  10\n\n//----------------------------------------------------------------------------//\n\nfunction Main&#40;&#41;\n\n   local oDlg, oSay\n   local oCbx1, oCbx2, oCbx3\n   local cItem1, cItem2 &#58;= &quot;One&quot;, cItem3, cItem4 &#58;= &quot;None&quot;\n\n   SET _3DLOOK ON\n   SetDebug&#40;&#41;\n   DEFINE DIALOG oDlg RESOURCE &quot;Combos&quot;\n\n   REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      ID ID_SIMPLE OF oDlg ;\n      ON CHANGE &#40; cItem4 &#58;= cItem1, oSay&#58;Refresh&#40;&#41; &#41; ;\n      VALID &#40; cItem4 &#58;= cItem1, oSay&#58;Refresh&#40;&#41;, &#46;t&#46; &#41;\n\n   REDEFINE COMBOBOX oCbx2 VAR cItem2 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      ID ID_DROPDOWN OF oDlg ;\n      STYLE CBS_DROPDOWN ;\n      VALID &#40; If&#40; ! oCbx2&#58;Find&#40; oCbx2&#58;oGet&#58;GetText&#40;&#41; &#41;, oCbx2&#58;Add&#40; cProper&#40; oCbx2&#58;oGet&#58;GetText&#40;&#41; &#41; &#41;,&#41;, &#46;t&#46; &#41;\n\n   oCbx2&#58;oGet&#58;bChange &#58;= &#123;|| AutoComplete&#40; oCbx2, GET_MAX_LEN  &#41;&#125;\n\n   REDEFINE COMBOBOX oCbx3 VAR cItem3 ITEMS &#123; &quot;One&quot;, &quot;Two&quot;, &quot;Three&quot; &#125; ;\n      ID ID_DROPDOWNLIST OF oDlg ;\n      ON CHANGE &#40; cItem4 &#58;= cItem3, oSay&#58;Refresh&#40;&#41; &#41; ;\n      VALID &#40; cItem4 &#58;= cItem3, oSay&#58;Refresh&#40;&#41;, &#46;t&#46; &#41;\n\n   REDEFINE SAY oSay PROMPT cItem4 ID ID_SELECTION OF oDlg COLOR &quot;R+/W&quot;\n\n   ACTIVATE DIALOG oDlg CENTERED\n\nreturn nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function AutoComplete&#40; oCbx, nLen &#41;\n\n   LOCAL cBuffer, nEle, ;\n         nPos &#58;= oCbx&#58;oGet&#58;nPos\n\n   If oCbx == Nil\n      Return Nil\n   EndIf\n\n   Default nLen &#58;= 10\n\n   cBuffer &#58;= SubStr&#40; oCbx&#58;oGet&#58;oGet&#58;Buffer, 1, nPos - 1 &#41;\n   fDebug&#40; cBuffer &#41;\n   IF &#40; nEle &#58;= ASCAN&#40; oCbx&#58;aItems, &#123;|e| Upper&#40; e &#41; = Upper&#40; cBuffer &#41; &#125; &#41; &#41; &gt; 0\n      oCbx&#58;oGet&#58;oGet&#58;Buffer &#58;= PadR&#40; oCbx&#58;aItems&#91; nEle &#93;, nLen &#41;\n      oCbx&#58;oGet&#58;Assign&#40;&#41;\n      oCbx&#58;oGet&#58;Refresh&#40;&#41;\n      oCbx&#58;oGet&#58;SetPos&#40; nPos &#41;\n   Else\n      oCbx&#58;oGet&#58;oGet&#58;Buffer &#58;= PadR&#40; cBuffer, nLen &#41;\n      oCbx&#58;oGet&#58;Assign&#40;&#41;\n      oCbx&#58;oGet&#58;Refresh&#40;&#41;\n      oCbx&#58;oGet&#58;SetPos&#40; nPos &#41;\n   END\n\nReturn Nil\n\n//----------------------------------------------------------------------------//\n\nStatic Function cProper&#40; cText &#41;\n\nReturn Upper&#40; SubStr&#40; cText, 1, 1 &#41; &#41; + Lower&#40; SubStr&#40; cText, 2 &#41; &#41;\n[/code:2etbse8x]\nUsa el segundo combobox, escribe t y luego h o escribe lo que quieras para agregar un nuevo item\n\nSaludos\n\nManuel Mercado','',0,'gIA=','2etbse8x',1,0,'',1255,0,0),(48401,5891,2,1063,0,'190.164.116.93',1203203214,1,0,1,1,1,1,'','Idioma','como puedo saber en que idioma esta el sistema operativo, para saber si entro a \"MIS DOCUMENTOS\" o \"MY DOCUMENTS\"','',0,'gIA=','2ksh2yjt',1,0,'',1063,0,0),(48402,9981,6,568,0,'201.230.186.107',1203208448,1,0,1,1,1,0,'','Re: Evitar Editar el campo con Enter','Sr. Mercado, le agradesco la ayuda... probe su sugerencia, pero pierdo el doble click del mouse que tambien edita la celda.\n\nGracias\n\nWilliam Chavez Noriega\nLima - Peru','',0,'gIA=','dmqqyflq',1,0,'',568,0,0),(48403,9890,6,644,0,'190.18.78.39',1203212204,1,0,1,1,1,0,'','','El problema de las BBDD cliente - servidor no es como atacarlas desde nuestros programas mediante Ado ( en el foro hay bastante documentación con respecto a este tema ). El mayor problema es cambiar la visión que nosotros tenemos con respecto de las bases de datos que hemos venido manejando ( dbf ). Hasta ahora la lógica la manejabamos nosotros, desde nuestras aplicaciones pero cuando trabajamos sobre esta tecnología la lógica es manejada por el servidor mediante store procedures ( procedimientos almacenados ) y triggers ( disparadores ). y para trabajar con estas herramientas es necesario aprender el lenguaje de la BBDD. Creer que solamente con una cadena de conexión y el comando SELECT tenemos todo resuelto es una ingenuidad. Si realmente queremos que nuestros sistemas sean eficientes debemos cambiar la mentalidad ( y estudiar bastante ). Yo he hecho pruebas con 200 o 300 registros y  el rendimiento  no ha variado significativamene  con respecto a una base distribuida ( dbf ) pero hablar de más de 3.000.000 de registros y conectarnos en forma remota es otra cosa. Los index no son iguales tal cual los conocemos. Es el servidor el que elige que index va a utilizar en las consultas y para eso nosotros debemos decidir que index crear. No quiero extenderme demasiado sobre este tema ( tampoco soy un entendido ) pero me parece que si decidimos trabajar en forma seria sobre esta tecnología hará falta mucho estudio y ver el manejo de datos de manera diferente . Espero que esto sirva.\nsaludos','',0,'gIA=','1gr64lbh',1,0,'',644,0,0),(48404,9981,6,1255,0,'189.128.26.214',1203216071,1,0,1,1,1,0,'','Re: Evitar Editar el campo con Enter','[quote=&quot;William Chavez Noriega&quot;:22xf59rw]Sr. Mercado, le agradesco la ayuda... probe su sugerencia, pero pierdo el doble click del mouse que tambien edita la celda[/quote:22xf59rw]\nEntonces Pruéba así:[code:22xf59rw]oBrw&#58;bUserKeys &#58;= &#123;|nKey, nFlags| If&#40; nKey == VK_RETURN &#46;and&#46; nFlags &gt; 0, &#46;F&#46;, nKey &#41; &#125;\n[/code:22xf59rw]\nSaludos\n\nManuel Mercado','',0,'gIA=','22xf59rw',1,0,'',1255,0,0),(48406,9962,3,2,0,'87.218.146.60',1203217519,1,0,1,1,1,1,'','','Dutch,\n\nVery good <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'gIA=','utfwe3bs',1,0,'',2,0,0),(48407,7526,22,2,0,'87.218.146.60',1203217715,1,0,1,1,1,1,'','','Jorge,\n\nPuedes hacerlo así:\n\noControlConFoco = oDlg:aControls[ AScan( oDlg:aControls, { | o | o:lFocused } ) ]','',0,'','3r78lrha',1,0,'',2,0,0),(48408,9981,6,568,0,'201.230.186.107',1203218484,1,0,1,1,1,0,'','Re: Evitar Editar el campo con Enter','Sr. Mercado Muchas gracias por la ayuda, ahora si funciona muy bien\nLe agradesco de corazon la ayuda que me esta brindando estos días.\n\nWilliam Chavez Noriega\nLima - Peru <!-- s:wink: --><img src=\"{SMILIES_PATH}/icon_wink.gif\" alt=\":wink:\" title=\"Wink\" /><!-- s:wink: -->','',0,'','st4nhahd',1,0,'',568,0,0),(48409,9982,3,1011,0,'61.9.96.97',1203221305,1,0,1,1,1,0,'','Number of PAGES before the actual printing???','When using the TReport class, how do we know the total number of pages in a report before the actual printing?  ::nPage is the current page printed, is there a ::nTotalPagesCount?','',0,'','2fct8rfi',1,0,'',1011,0,0),(48410,9981,6,1255,0,'189.128.26.214',1203223782,1,0,1,1,1,0,'','Re: Evitar Editar el campo con Enter','[quote=&quot;William Chavez Noriega&quot;:385ucujf]Sr. Mercado[/quote:385ucujf]\nEl \"Sr.\" lo serás tú, para todos mis amigos de los foros de FiveWin soy Manuel y me gusta que me tuteen. Una de las cosas que más me atrajeron de esta profesión hace muchos años fue que entre todos los programadores (no eran muchos eh) no existía la diferencia de edades, todos nos tuteábamos.\n\nAsí es que ya lo sabes, ! no seas \"Desigualado\" ¡ jejeje\n\nUn abrazo.\n\nManuel Mercado','',0,'gA==','385ucujf',1,0,'',1255,0,0),(48411,9975,6,9,0,'85.59.96.123',1203233214,1,0,1,1,1,1,'','','Manuel,\n\nQue son las funciones  SetDebug() y fDebug()','',0,'gA==','142u3a1t',1,0,'',9,0,0),(48412,9982,3,6,0,'87.17.223.187',1203241284,1,0,1,1,1,1,'','Re: Number of PAGES before the actual printing???','You can\'t. What you can do is to reload the EMFs and add the total number of pages to them. Too much work for me.\n\nEMG','',0,'gA==','1wde3tts',1,0,'',6,0,0),(48413,9890,6,9,0,'85.59.96.123',1203242742,1,0,1,1,1,1,'','','Horacio,\n\nPodriamos clasificar la mayoria de las aplicaciones que venimos desarrollando los clipperos en dos grupos:\n\n1) Programas domésticos.\n2) Programas para pequeñas/medianas empresas (multipuesto o multilugares)\n\nEn el segundo grupo es muy conveniente, por cuestiones de seguridad interna (pérdida de datos, reindexados, etc) y externa (encriptación de los datos, copias de seguridad, etc) el usar una base de datos cliente/servidor. Incluso a nivel comercial, no vende igual una aplicación que trabaje con Oracle/MySql que con dbf. Recuerdo que  Oracle Express es gratuito.\n\nEn este caso, no es obligatorio un conocimiento profundo de la BD y con unos pequeños cambios (sobre todo, si nos preparamos algunas funciones generales de apoyo), podemos poner a trabajar nuestra aplicación con una BD de garantía. En velocidad practicamente igual que con dbf. \n\nEsta claro que si se tienen esos conocimientos y planteamos nuestra aplicación de otra forma (huir de los browse) la cosa mejora, pero lo que quiero decir es que no es OBLIGATORIO.\n\nOtro tema muy importante (en mi opinión) sería trabajar con una BD en un servidor externo (internet). Y quizás con esta opción, si podriamos organizar, entre los foreros que estuvieran interesados, unas prácticas, contratando un servidor compartido y atacando, cada uno desde su ordenador como usuario, la misma BD. \n\nTambien sería interesante, para no duplicar los comentarios y conseguir mas colaboradores, que el tema lo desarrollaramos exclusivamente en el foro INGLES, aunque se permitieran utilizar españo/inglés.','',0,'gA==','1rj8t0xu',1,0,'',9,0,0),(48414,9982,3,1011,0,'61.9.96.97',1203250108,1,0,1,1,1,0,'','','Ok, Thanks Enrico.\n\nGuess we have to use TDosPrn when we need the Total Number of pages.\n\nToyet','',0,'gA==','34er3dgo',1,0,'',1011,0,0),(48415,9975,6,596,0,'84.76.66.27',1203250897,1,0,1,1,1,1,'','','[quote=&quot;Manuel Valdenebro&quot;:jczzt9qz]Manuel,\nQue son las funciones  SetDebug() y fDebug()[/quote:jczzt9qz]A mi no me las encuentra:\n[color=blue:jczzt9qz]Error: Unresolved external \'_HB_FUN_SETDEBUG\' referenced from E:\\COMBOS_AUTOCOMPLETE.OBJ\nError: Unresolved external \'_HB_FUN_FDEBUG\' referenced from E:\\COMBOS_AUTOCOMPLETE.OBJ[/color:jczzt9qz]\n\nLas he comentado en el código y funciona. Supongo que son el DEBUG.\n\n[quote=&quot;mmercado&quot;:jczzt9qz]Tomando el mismo ejemplo de FWH Samples[/quote:jczzt9qz]Pues si funciona, vere de adaptarlo a mi codigo.\nMuchas gracias Manuel.','',0,'gg==','jczzt9qz',1,0,'',596,0,0),(48416,9983,6,960,0,'84.125.196.99',1203251214,1,0,1,1,1,0,'','Que pasa con la patente?','Compañeros:\n\nTengo un cliente que me ha encargado una aplicación a medida. Hasta ahora ningun cliente anterior me pregunto sobre patentes, pero este me pregunta que si cuando termine el programa él se queda con la patente. Supongo que este cliente querrá luego comercializar el programa (este cliente me ha salido muy listo!!)\n\n¿ Como haceis vosotros ? Entregais al cliente los PRG?\n\nMil gracias.\nLORENZO','',0,'gg==','19sp91cq',1,0,'',960,0,0),(48417,9886,6,176,0,'201.255.182.134',1203251788,1,0,1,1,1,0,'','','Gracias Karinha así funciona muy bien, gracias\n\nLuis','',0,'gg==','12fmune6',1,0,'',176,0,0),(48418,9983,6,644,0,'190.18.78.39',1203253764,1,0,1,1,1,0,'','','Lorenzo: \nLo que yo hago es vender la licencia de uso no la propiedad intelectual ( los prgs ). Si tu cliente quiere las fuentes cobraselas aparte. Yo he desarrollado un sistema donde me pidieron las fuentes y, por supuesto le ha salido más caro que si hubiera adquirido solamente la licencia.  Espero te sirva','',0,'gg==','13udxs1i',1,0,'',644,0,0),(48419,9887,19,2,0,'87.218.146.60',1203254838,1,0,1,1,1,1,'','','Willi,\n\nLos objetos pueden salvarse a un fichero pero con la limitación de que los \"handles\" de Windows no pueden ser salvados (ya que no se puede volver a usarlos) y que los codeblocks tampoco pueden salvarse.\n\nEn algunas circunstancias un codeblock puede ser salvado, pero según lo que contenga (referencias a valores locales) entonces no se puede.\n\nRevisa en source/classes/window.prg las funciones ASave() y ARead().','',0,'gg==','16klqmua',1,0,'',2,0,0),(48420,9984,3,1257,0,'195.93.60.2',1203255657,1,0,1,1,1,1,'','How to show OemToAnsi in xBrw. (when no Col\'s defined) ?','Hello, from Germany\n\nIn the Quickbrowse-Modul i want to show C- Fields\nin OemToAnsi-Look, if the user selects : OemAnsi = .T.,\nto show Dbf\'s, created in old times with Clipper. \nThere are no Col\'s defined.\n \nIF OemAnsi = .T.    then ........\nGets and Edits in oBrw5 and oBrw6 must change\n--------------------------------------------------------\n\noBrw5 := TXBrowse():New( oDlg )\n\noBrw5:nMarqueeStyle		:= MARQSTYLE_HIGHLROW\noBrw5:nColDividerStyle		:= LINESTYLE_BLACK\noBrw5:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw5:lColDividerComplete	:= .t.\noBrw5:nHeaderLines		:= 1\noBrw5:nDataLines		:= 1\noBrw5:lAllowColSwapping           := .t.\noBrw5:SetRDD()\n\nlClrFlag:=.f. \nfor nFor := 1 to len( oBrw5:aCols )\n      oCol := oBrw5:aCols[ nFor ]\n      oBrw5:bSkip:={| nRecs | ( if(nRecs == nil, nRecs := 1,), ;\n      nRecs:= (1)-&gt;(dbskipper( nRecs )), ;\n     lClrFlag:= if( nRecs % 2 = 0, lClrFlag,!lClrFlag), nRecs) } \n      // Define alternating row colors \n      oBrw5:bClrStd := { || Colors() }\n      oCol:nEditType := 1\n      oCol:bOnPostEdit := ;\n      {|o, v, n| IIF( n != VK_ESCAPE, ;\n      ( IIF( NET_RLOCK(), FieldPut( o:nCreationOrder, v ), ;\n              NET_ULOCK() ), NIL ), ) }\nnext\nfor nFor := 1 to Fcount()\n      oBrw5:aCols[ nFor ]:bRClickHeader := ;\n      {|r,c,f,o| cFELD := o:cHeader, ;                     // = oCol:cHeader\n                   nOrder := o:nCreationOrder, ;         // = Header-Click-Col \n                   cFilter := SET_INDEX(oBrw5,cFELD,cFILTER), ;\n	           IIF(DBFTYP = \"CDX\", ;\n	                cINDKEY := ORDKEY( \"NEUINDEX\" ), ;\n	                cINDKEY := INDEXKEY( 0 ) ), ; \n	           oBrw5:SetFocus(), ;\n	           oBrw5:GoTop(), oBrw5:VGoTop(), oBrw5:Refresh(), ;\n	  l_INDEX := .T., oINDKEY:Refresh(), ;\n	  oFilter:Refresh(), ;\n	  oBrw5:SwapCols( 1, nOrder ), ;  // Bring selected col to 1\n          oBrw5:GoLeftMost(), ;                       // Go to 1. Col ( indexed )\n	  oBrw5:nFreeze := 1 }               // Freeze 1. Col\nnext\noBrw5:bChange  := { || oDlg:Update() }\noBrw5:CreateFromResource( 110 )\n\n// --------------    ARRAY  ------------------------------------------\n\noBrw6 := TXBrowse():New( oDlg )\noBrw6 :SetArray( (1)-&gt;( dbStruct() ), .f. )\noBrw6:nMarqueeStyle		:= MARQSTYLE_HIGHLCELL\noBrw6:nColDividerStyle	:= LINESTYLE_BLACK\noBrw6:nRowDividerStyle	:= LINESTYLE_BLACK\noBrw6:lColDividerComplete	:= .t.\noBrw6:nHeaderLines		:= 1\noBrw6:nDataLines		:= 1\noBrw6:lAllowColSwapping           := .t.\noBrw6:SetRDD()\nASIZE( oBrw6:aCols, 4 )\nAEVAL( oBrw6:aArrayData, {|a|nMaxWidth := Max(nMaxWidth, a[3])})\nWITH OBJECT oBrw6:AddCol()\n:bStrData   := ;\n:bEditvalue := {||PADR(cValToChar((1)-&gt;(FieldGet ;(oBrw6:nArrayAt))),nMaxWidth)}\n      :nEditType  := EDIT_GET\n      :bOnPostEdit:= {|oCol,xValue,nLastKey|OnEdit(obrw6,oCol,xValue, ;\n                                       nLastKey, lOemAnsi ), oDlg:Update() }\nEND\nAEval( oBrw6:aCols, { |oCol, nCol| oCol:cHeader := ;\n                    { \"FieldName\", \"Typ\", \"Len\", \"Dec\",\"Value\" }[ nCol ] } )\noBrw6:aCols[ 1 ]:nWidth           := 100\noBrw6:aCols[ 3 ]:nDataStrAlign    := AL_RIGHT\noBrw6:aCols[ 4 ]:nDataStrAlign    := AL_RIGHT\noBrw6:nColSel   := 5\noBrw6:lUpdate   := .t.\noBrw6:Cargo := oBrw5\noBrw6:bChange  := { || oDlg:Update() }\noBrw6:CreateFromResource( 115 )\n....\n.....\n\n//----------------------------------------------------------------------------//\n\nFUNCTION OnEdit( oBrw6, oCol, xValue, nLastKey, lOemAnsi )\n\nIF nLastKey == 13\n	SWITCH Eval( oBrw6:aCols[2]:bStrData )\n	CASE \'N\'\n  	xValue   := Val( xValue )\n	EXIT\n                CASE \'D\'\n	xValue   := CTOD( ALLTRIM( xValue ) )\n	EXIT\n               CASE \'L\'\n               xValue   := ( Upper( Left ( LTrim( xValue ), 1 ) ) $ \"YT\" )\n              EXIT\n        DEFAULT\n	END\n	NET_RLOCK()\n	(1)-&gt;( FieldPut( oBrw6:nArrayAt, xValue ) )\n	NET_ULOCK()\n	oBrw6:DrawLine( .t. )\n	oBrw6:Cargo:DrawLine( .t. )\nENDIF\n\nRETURN NIL\n\nRegards\nUwe','',0,'','122tr598',1,0,'',1257,0,0),(48421,9975,6,1255,0,'189.128.26.214',1203261774,1,0,1,1,1,0,'','','Hola Manuel:\n[quote=&quot;Manuel Valdenebro&quot;:t9o7rofs]Que son las funciones  SetDebug() y fDebug()[/quote:t9o7rofs]\nEs un debugger rústico casero que utilizo en mis desarrollos para testear valores de variables y detectar puntos de error, es muy elemental pero me ha sido de una gran utilidad. El programa Debug.prg lo puedes encontrar en \\TSBrowse\\Samples.\n\nSaludos\n\nManuel Mercado','',0,'gA==','t9o7rofs',1,0,'',1255,0,0),(48422,9962,3,972,0,'78.21.224.104',1203266480,1,0,1,1,1,0,'','','Antonio,\n\nI reported this on the xHarbour Developers list.\n\nPatrick','',0,'gA==','ey1gj286',1,0,'',972,0,0),(48423,9978,3,1257,0,'195.93.60.2',1203268485,1,0,1,1,1,1,'','Preview of WMF-File','Hallo Otto,\n\nwhy not to do this with Outlook2003.\nThe right window will have the format you need\nand looks much better.\n\nRegards\nUwe <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'gA==','1bphqpwf',1,0,'',1257,0,0),(48424,9900,6,1168,0,'84.121.94.45',1203268798,1,0,1,1,1,0,'','','Antonio, \n\nGracias: la mirare\n\nSaludos\n\n\n[quote=&quot;Antonio Linares&quot;:k8l3iaml]Antonio,\n\nFiveWin proporciona la clase TLabel. \n\nRevisa samples\\labels[/quote:k8l3iaml]','',0,'gA==','k8l3iaml',1,0,'',1168,0,0),(48425,9963,6,228,0,'200.119.25.37',1203269774,1,0,1,1,1,1,'','Amigo....','Sencillamente espectacular, genial el aporte que haces. Pero como siempre quemos mas he intentado colocarlo en la ventana principal de la aplicacion pero no me funciona. ¿Existe alguna forma de hacerlo?','',0,'gA==','ihv7cw5l',1,0,'',228,0,0),(48426,9890,6,228,0,'200.119.25.37',1203269970,1,0,1,1,1,1,'','Amigo...','Alex amigo:\n \nEs posible que sea el tipo de cursor, lo estoy definiendo de la siguiente manera:\n\n[code:rxn7dwnk]\noRsPro&#58;CursorLocation &#58;= adUseClient\noRsPro&#58;LockType &#58;= adLockOptimistic\noRsPro&#58;CursorType &#58;= adOpenDynamic\noRsPro&#58;Source &#58;= &quot;SELECT * FROM clientes ORDER BY clie_nom&quot;\noRsPro&#58;ActiveConnection&#40;oCnx&#41;\n[/code:rxn7dwnk]\nEs correcto o debo hacerlo de otra forma?\n\nTe hago otra pregunta, como hago para refrescar el recorset en tiempo de ejecucción?','',0,'AIA=','rxn7dwnk',1,1203270298,'',228,1,0),(48427,9890,6,228,0,'200.119.25.37',1203270235,1,0,1,1,1,1,'','Con ....','Con la respecto a la documentacion de ado creo que es suficiente para iniciar y poder hacer andar tu aplicación por lo menos a un 80%. El mayor problema para mi ha sido hacer funcionar el recorset en un browse. Es en donde me he topado con mas complicaciones, me gustaria que existiera un manual en donde se explicara el manejo del recorset sobre un browse, cualquiera que este sea.','',0,'AIA=','90bv673d',1,0,'',228,0,0),(48428,9889,3,228,0,'200.119.25.37',1203270802,1,0,1,1,1,1,'','','Friend nageswaragunupudi:\n\nFirst that quite I want to be grateful to you for the help given till now has served me very much. But I have another couple of pregunticas mas to know if it(he,she) can help me.\n1-&gt; Since I do to refresh the recorset in time of ejecucción? I could not have achieved it.\n2-&gt; When I want to use the xbrowse on windows MDI, it  saves a mistake that he says more or less this way:\n\nE_FAIL: BOOKMARK \n\nNot if one has to see with the form that I define the cursor. I am doing it of the following way:\n\n[code:2ai3iniy]\noRsPro&#58;CursorLocation &#58;= adUseClient\noRsPro&#58;LockType &#58;= adLockOptimistic\noRsPro&#58;CursorType &#58;= adOpenDynamic\noRsPro&#58;Source &#58;= &quot;SELECT * FROM proyecto ORDER BY PRO_PRO&quot;\noRsPro&#58;ActiveConnection&#40;oCnx&#41;\n[/code:2ai3iniy]\n\nSince I can solve this problem?\n\nThank you for the whole given help.','',0,'AIA=','2ai3iniy',1,0,'',228,0,0),(48429,9889,3,868,0,'219.64.121.60',1203271019,1,0,1,1,1,1,'','','You shd open your recordset on clientside\nPlease reproduce your code for opening the recordset. I shall let you know what to do','',0,'AIA=','avdehb47',1,0,'',868,0,0),(48430,9963,6,644,0,'190.18.78.39',1203272001,1,0,1,1,1,0,'','','leandro : \n\nSi la ventana es MDI no hay manera que funcione. Si la ventana es ¨normal¨ funciona como en un dialogo. Será cuestión de investigar a ver quién encuentra la punta al ovillo. \nSaludos','',0,'AIA=','3uf4kmr0',1,0,'',644,0,0),(48431,9985,3,47,0,'203.144.143.9',1203272116,1,0,1,1,1,0,'','Can  I use TXBrowse class from Resource?','I\'m very impress with TXBrowse but I\'ve used TWbrowse from Resource?  \nHow can I replace TWbrowse from resource with TXBrowse?  \nIf it\'s possible, could I have an example pls.\n\nRegards,\nDutch','',0,'AIA=','gwrxxazz',1,0,'',47,0,0),(48432,9986,6,596,0,'84.76.66.27',1203272853,1,0,1,1,1,1,'','Menus configurables en el SYSMENU de una ventana','Dependiendo de cierta configuración desearía poder modificar en tiempo de ejecución el SysMenu de una ventana.\nEl SysMenu es el que sale pinchando en el icono de la ventana (arriba a la izquierda).\nAñadir, quitar, etc... menús items.\nGracias.\n\n[code:l5wor7z0]DEFINE WINDOW oWnd \nREDEFINE SYSMENU OF oWnd\n   SEPARATOR\n   MENUITEM oMenuItem1 PROMPT &quot;&amp;Añadir&quot; ACTION Anadir&#40;&#41;\n   MENUITEM oMenuItem2 PROMPT &quot;&amp;Quitar&quot;  ACTION Quitar&#40;&#41;\n   SEPARATOR\n// Aqui desea añadir o no opciones del menu\nENDSYSMENU\nACTIVATE WINDOW oWnd\n\nfunction Anadir&#40;&#41;\n// ¿ Que hacer ?\nreturn nil\n\nfunction Quitar&#40;&#41;\n// ¿ Que hacer ?\nreturn nil[/code:l5wor7z0]','',0,'AIA=','l5wor7z0',1,0,'',596,0,0),(48433,9985,3,53,0,'189.139.23.164',1203273821,1,0,1,1,1,1,'','','Dutch:\n\nTry using\n\noBrw:CreateFromResource( 10 )   // 10 is your browse ID\n\nInstead \n\noBrw:CreateFromCode()\n\nRegards','',0,'AIA=','k2if5rkp',1,0,'',53,0,0),(48434,9957,6,1168,0,'84.121.94.45',1203273881,1,0,1,1,1,0,'','Re: Genlabel para Antonio Martinez','Victor,\n\nHe visto la imagen y es exactamente lo que busco....\n\nSaludos\n\n[quote=&quot;cuatecatl82&quot;:3bkzhp39]Antonio Martinez:\n\nSi necesitas imprimir etiquetas para exhibir precios de productos con logotipo o para cualquier otra cosa, que es lo que estuve buscando en algunos foros y no encontre, tengo algo que podria ayudarte, no se si sea lo que estas buscando, te delo la imagen para que revises y si es lo que buscas con gusto te ayudo.. \n\n<!-- m --><a class=\"postlink\" href=\"http://img89.imageshack.us/my.php?image=etiquetaswr2.jpg\">http://img89.imageshack.us/my.php?image ... taswr2.jpg</a><!-- m -->\n\nSaludos..\n\n\nI.S.C. Victor Daniel Cuatécatl León.\nSoluciones y Diseño de Software Empresarial\n<!-- w --><a class=\"postlink\" href=\"http://www.soldisoft.unlugar.com\">www.soldisoft.unlugar.com</a><!-- w -->\n<!-- w --><a class=\"postlink\" href=\"http://www.sisa.unlugar.com\">www.sisa.unlugar.com</a><!-- w -->[/quote:3bkzhp39]','',0,'gA==','3bkzhp39',1,0,'',1168,0,0),(48435,9986,6,644,0,'190.18.78.39',1203274557,1,0,1,1,1,0,'','','Yo lo hago de la siguiente manera. Defino distintas funciones con las opciones de menu que necesito y de acuerdo a las opciones que elige el usuario las cargo con oWnd : SetMenu( OpcionElegida() ). Espero te sirva','',0,'gA==','1m3enqp6',1,0,'',644,0,0),(48436,9978,3,51,0,'80.122.88.242',1203275456,1,0,1,1,1,0,'','','Hello Uwe,\nYou are right and I tried. But preview always opens maximized.\nMaybe you – as you have worked so much now with the Outlook class - can provide a little example.\n\nAs a workaround I changed the rpreview \nI deleted maximize and set \n  DEFINE WINDOW ::oWnd FROM 2, 42 TO 40, 127  ;\n\nBut every click opens a new preview window.\n\nRegards, \nOtto','',0,'gA==','3eq4qirn',1,0,'',51,0,0),(48437,9983,6,960,0,'84.125.196.99',1203275573,1,0,1,1,1,0,'','','Gracias horacio, me sirvio para orientarme.','',0,'gA==','dq5xgmsw',1,0,'',960,0,0),(48438,9986,6,596,0,'84.76.66.27',1203278286,1,0,1,1,1,1,'','','[quote=&quot;horacio&quot;:17yxd0l0]SetMenu( OpcionElegida() )[/quote:17yxd0l0]Pero OpcionElegida() que devuelve una cadena un array...\nPor otro lado estoy con el SYSMENU, no con el menú de la ventana.\nMi ventana NO tiene menú como tal.\n\n[img:17yxd0l0]http&#58;//www&#46;jmgarcia&#46;org/Pulpo1&#46;JPG[/img:17yxd0l0]','',0,'iA==','17yxd0l0',1,0,'',596,0,0),(48439,9978,3,1257,0,'195.93.60.2',1203281773,1,0,1,1,1,1,'','Preview in Outlook2003 - Child','Hello Otto,\n\nI got it working.\nI created a new Button in the DB-Tools Outlook-part.\nThe Preview-window is now a Child of the created button and has\nthe size and positons like the other functions.\n\nThe next stepp would be, how the preview fits the window.\nI will do some tryouts.\n\nGreetings\nUwe <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'iA==','2u5bvak2',1,0,'',1257,0,0),(48440,9986,6,644,0,'190.18.78.39',1203281866,1,0,1,1,1,0,'','','Perdón, no leí bien pero de todas maneras creo que el funcionamiento es el mismo. Lo que devuelve la llamada a la funcion es el objeto Menu.','',0,'iA==','2i1iggdu',1,0,'',644,0,0),(48441,9987,6,1063,0,'190.164.116.93',1203283426,1,0,1,1,1,1,'','Busqueda de unos caracteres','Mi pregunta es la siguiente, necesto saber si hay alguna funcion que busque un caracter determinado dentro de una cadena de caracteres, se que existe la funcion AT(), pero es muy lenta, en una base de datos que tiene sobre 500.000 registros.\n\ntengo una base de dato bastante grande con un campo RDESCRIP largo 150 caracter\n\nnecesito buscar una palabra determinada que puede estar una o mas veces dentro del campo, la idea es que a medida que vaya escribiendo se vaya filtrando la informacion, ahora la palabra o caracter puede estar al principio, al medio o al final del registro.\nejemplo\n\n\nsi yo presiono la letra A, debiera msotrarme todos los registro que contienen la letra A, si acontinuacion presiono la B, debiera encontrarme todo loa que contenga AB.\n\nespero habreme explicado\n\ngracias por la ayuda','',0,'iA==','3izd5chb',1,0,'',1063,0,0),(48442,9962,3,2,0,'87.218.146.60',1203283991,1,0,1,1,1,1,'','','Patrick,\n\nThanks <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->','',0,'iA==','2gkrxm1d',1,0,'',2,0,0),(48443,9473,11,578,0,'218.214.68.108',1203292504,1,0,1,0,1,0,'','','Willy\n\nTo get your missing library go\n\nsudo apt-get install libglade2-dev\n\nIt was left off the list Antonio sent you I believe\n\nRegards\n\nxProgrammer','',0,'iA==','2m27120s',1,0,'',578,0,0),(48444,9988,11,578,0,'218.214.68.108',1203293245,1,0,1,0,1,0,'','Required Libraries','Hi Amtonio\n\nI was perusing Willy\'s query and I think he needs to\n\nsudo apt-get install libglade2-dev\n\nwhich wasn\'t on the list you sent him.  The required library doesn\'t install with the glade-2 package.  \n\nIn chasing that up I noticed that you had previously included unixODBC-dev which I don\'t think I have ever installed - but have had no problem either.  Is unixODBC-dev required still or only under some (what) circumstances?\n\nRegards\nDoug\n(xProgrammer)','',0,'iA==','39yikb77',1,0,'',578,0,0),(48445,9978,3,51,0,'80.122.88.242',1203294631,1,0,1,1,1,0,'','','Hello Uwe,\nI did some test with Outlook class, too.\n\nNow I have to resolve the problem that every time you click on the xBrowser a new Preview is opened.\nI would prefer to close the current and then open the new one.\n\n\nRegards,\nOtto\n\n[img:22nrq6o1]http&#58;//www&#46;atzwanger&#46;com/fw/outlook&#46;jpg[/img:22nrq6o1]','',0,'CA==','22nrq6o1',1,0,'',51,0,0),(48446,9978,3,1257,0,'195.93.60.2',1203298445,1,0,1,1,1,1,'','Outlook2003 and Preview','Hello Otto,\n\ncan you send me the part, of what you have done ?\nI can connect it to a button of the Tools.\nThe code of the changed Outlook part, i can send back to you.\nSo as well, it might be a good sample. \n\nGreetings\nUwe','',0,'CA==','zc1guulg',1,1203333574,'',1257,1,0),(48447,9985,3,1257,0,'195.93.60.2',1203298877,1,0,1,1,1,1,'','XBrowse from resources','Hello Dutch,\n\nI see, you are changing from TW / TC-Browse\nto xBrowse.\nYou can have a look at the topic DB-Tools.\nIt is a nice sample, what you can do.\nIn the moment, it is a little bit to early,\nto put the source in the forum, because\nit is still a lot to do.\nIt might give you a overview of the handling.\n\nGreetings from germany\nUwe','',0,'CA==','10laq417',1,0,'',1257,0,0),(48448,9978,3,51,0,'80.122.88.242',1203320294,1,0,1,1,1,0,'','','Hello Uwe,\n \nthe code is on <!-- m --><a class=\"postlink\" href=\"http://www.atzwanger.com/tests/emf.zip\">http://www.atzwanger.com/tests/emf.zip</a><!-- m -->\n\nI changed for testing purpose rpreview.prg\n\nMETHOD Activate() CLASS TPreview\n//   ACTIVATE WINDOW ::oWnd MAXIMIZED ;\nChanged to\n   ACTIVATE WINDOW ::oWnd  ;   \n\n\nMETHOD BuildWindow() CLASS TPreview\n\n      DEFINE WINDOW ::oWnd  ;\n         TITLE cTitle ;\n         COLOR CLR_BLACK,CLR_LIGHTGRAY      ;\n         ICON  oIcon                        ;\n         VSCROLL HSCROLL MDICHILD   STYLE nOR( WS_CAPTION)\n\nInserted:\n       STYLE nOR( WS_CAPTION)\n\n         WndTop( ::oWnd:hWnd, 0)\n        //WndLeft( ::oWnd:hWnd, (::oWndMain:nwidth() - ::oWnd:nwidth())-16 )\n        WndLeft( ::oWnd:hWnd, 200)\n       ::oWnd:nHeight :=  ::oWndMain:nHeight()  -80\n\n\n1.	I don’t understand why \nWndLeft( ::oWnd:hWnd, (::oWndMain:nwidth() - ::oWnd:nwidth())-16 )\nIs not working if you resize the width of the outlook splitter.\nIf I use a fixed value of 200 it works also if you resize:\nWndLeft( ::oWnd:hWnd, 200)\n\n2.	I can’t find out the original emf-file’s name.  I thought to insert \nthe name in the title of the window and to check previous to open a new window if the file is already shown. \n\n3. Do you know the name and the size of the FONT use in the bitmaps for the outlook menu?\n\nRegards,\nOtto','',0,'CA==','11jo721t',1,0,'',51,0,0),(48449,9929,6,92,0,'80.33.133.32',1203321090,1,0,1,1,1,0,'','Re: Clase TUtilPrn','[quote=&quot;ermatica&quot;:33z75q6n]Gracias por vuestra orientación (Carlos y Biel).\n\nMe he bajado la clase que hay en UTILES  de este foro. Contiene cuatro ficheros (makefile, timprime.prg, utlprn.ch y utilprn.prg):\n - ¿es la ultima version de la clase?\n - ¿donde podría ver algun ejemplo de su utilización? algo sencillo para empezar a trabajar con ella.\n\nUn cordial saludo\nErnesto[/quote:33z75q6n]\n\nSeguro que The Full te puede decir si es la última versión.\nYo compilo y linco directamente timprime.prg y utilprn.prg junto con el resto de PRG de la aplicación, y donde los utilizo hago un include utilprn.ch\n\nYo creo que es una utilidad que permite realizar (casi) cualquier documento.\nVale la pena dedicarle una tarde a las clases timprimi y utilprn para ver como funcionan; mira que métodos tiene la clase y verás que puedes hacer mucho y fácil.\nDebes tener en cuenta que para definir tu documento deberas crear una clase basada en TImprime, y será esta clase la que llames desde tu programa para imprimirlo.\nCuando hagas la primera las demás seran copiar y pegar modificando allá donde sea necesario.\n\nPara imprimir el ejemplo que adjunto hago:\nTFactuA1():New( JuvaArra, uIdenDocu, lSINOprevisual )\n\nTe adjunto un ejemplo de como creo la clase:\n\n****************************************\n\n#include \"Juva02.ch\"\n#INCLUDE \"Utilprn.CH\"\n#DEFINE CLR_GREY 14671839\n\n#DEFINE CMSEPARADOR 0.3\n\n\n#ifdef __XPP__\n   #define Super ::TImprime\n#endif\n\n\n*Clase Para Imprimir Facturas.\n\n// Fact.Pre-imprès A/Desc.+IVAs+Reten\n\n\nCLASS TFACTUA1 FROM TIMPRIME\n\n      CLASSDATA lRegistered AS LOGICAL\n\n      DATA lprevisual\n      DATA oFnt_8\n      DATA oFnt_10B\n      DATA oFnt_10\n      DATA ArraJuva\n      DATA FileBmp\n      DATA oTdbfEntita\n      DATA oTDbfFactur\n      DATA oTDbfConFac\n      DATA oTDbfArticu\n      DATA oTDbfDestin\n\n      // Methods constructores\n      METHOD Init( cSpool)\n      METHOD New( JuvaArra, nNUMEFACT, lSINOprevisual ) CONSTRUCTOR\n\n      METHOD Cabecera()\n      METHOD Lineas()\n      METHOD Separator( nSpace )  // Este method es compartido por las dos clases\n      METHOD End( lPageCount )\n\nENDCLASS\n\nMETHOD Init( cSpool ) CLASS TFACTUA1\n\n\n    Super:Init( cSpool,,, !::lPrevisual )\n\n    DEFINE FONT ::oFnt_8 NAME \"Arial\" SIZE 0,-8              OF ::oPrn\n    DEFINE FONT ::oFnt_10B  NAME \"Arial\" SIZE 0,-10 BOLD        OF ::oPrn\n    DEFINE FONT ::oFnt_10 NAME \"Arial\" SIZE 0,-10             OF ::oPrn\n\nReturn self\n\nMETHOD End( lPageCount )  CLASS TFACTUA1\n\n    EndMsgNoWait( ::ArraJuva )\n\n    Super:End( lPageCount )\n\n    ::oFnt_8:End()\n    ::oFnt_10B:End()\n    ::oFnt_10:End()\n\n    Self := Nil\n\nReturn Self\n\nMETHOD New( JuvaArra, nNUMEFACT, lSINOprevisual )  CLASS TFACTUA1\n\n    Local nOrden     := 0\n    Local aFiltro    := { 1, \"Sense Filtre\", \"Recno()&gt;0\", JuvaArra[1][2][48][3] }\n    Local lRest      := .F.\n\n    ::ArraJuva := JuvaArra\n    ::FileBmp := ::ArraJuva[1][2][43][3]\n\n\n    If nNUMEFACT = 0\n\n        /* Se establece el orden de la base.\n           -------------------------------*/\n        nOrden  := Orden01( ::ArraJuva, Nil, \"FACTUR\", Nil, .F., 0 )[2]\n\n        /* Se establece el filtro de la base.\n           --------------------------------*/\n        aFiltro := Filtro01( ::ArraJuva, Nil, \"FACTUR\", Nil, Nil, .F., aFiltro, .F. )\n\n      Else\n\n        aFiltro  := { 1, \"Sense Filtre\", ;\n                      \"(NUMEFACT&gt;=Val(\'\" + Str(nNUMEFACT) + \"\') .and. NUMEFACT&lt;=Val(\'\" + Str(nNUMEFACT) + \"\'))\", ;\n                      .F. }\n    EndIf\n\n    msgnowait2( JuvaArra, \"Imprimint ...\", \"Cancel·lar...\")\n\n    CursorWait()\n\n    /* Se comprueba que no se haya pulsado ESCAPE.\n       -----------------------------------------*/\n    If aFiltro[1] &gt; 0\n\n        /* Se abren las bases.\n           -----------------*/\n        ::oTdbfEntita := oDbfClon( ::ArraJuva, \"ENTITA\" )\n        ::oTDbfEntita:GoTop():Load()\n        ::oTdbfFactur := oDbfClon( ::ArraJuva, \"FACTUR\" )\n        ::oTdbfConFac := oDbfClon( ::ArraJuva, \"CONFAC\" )\n        ::oTdbfArticu := oDbfClon( ::ArraJuva, \"ARTICU\" )\n        ::oTDbfDestin := oDbfClon( ::ArraJuva, \"DESTIN\" )\n\n        /* Se aplica el orden y el filtro a las bases.\n           -----------------------------------------*/\n        ::oTDbfFactur:SetIndex( nOrden )\n        Aplifil( ::ArraJuva, ::oTdbfFactur, Nil, aFiltro[3] + \" .and. !Deleted()\" )\n\n        ::oTDbfConFac:Setindex( 4 )\n        ::oTDbfArticu:Setindex( 2 )\n\n\n        While ::oTdbfFactur:Locate( , , lRest ) .and. ValType( ::ArraJuva[1][1][1] ) = \"O\"\n\n            lRest := .T.\n            ::oTdbfFactur:Load()\n\n            Aplifil( ::ArraJuva, ::oTdbfConFac, Nil, \"NUMEFACT = Val(\'\" + ;\n                                              AllTrim( Str( ::oTdbfFactur:NumeFact, 10,0 ) ) + ;\n                                              \"\') .and. !Deleted()\" )\n\n\n            IMPRIME INIT \"Impressió de la factura \" + AllTrim( Str( ::oTdbfFactur:NumeFact, 15, 0 ) )\n\n            msgnowait2( JuvaArra, \"Imprimint \" + ::oPrn:GetModel(), \"Cancel·lar...\")\n\n              PAGE\n                ::Cabecera()\n                ::Lineas()\n              ENDPAGE\n\n            IMPRIME END .F.\n\n            SysRefresh()\n\n        EndDo\n\n        laTDbfEnd( ::ArraJuva, { ::oTdbfEntita, ::oTdbfFactur, ::oTdbfConFac, ::oTdbfArticu, ::oTDbfDestin } )\n\n    EndIf\n\n    CursorArrow()\n\nReturn .T.\n\nMETHOD Cabecera() CLASS TFACTUA1\n\n  Local oFont,oPen,oBrush\n  Local nColor := 35724527\n\n  DEFINE FONT  oFont  NAME \"Arial\" SIZE 0,-16 OF ::oPrn\n  DEFINE PEN   oPen   WIDTH 3 COLOR CLR_GREY\n  DEFINE BRUSH oBrush COLOR nColor\n\n    UTILPRN ::oUtil 5.8, 1.7 SAY \"Factura:\" + Str( ::oTdbfFactur:NumeFact, 9,0 ) FONT oFont COLOR CLR_BLACK\n\n    If ::oTdbfFactur:Totalbru &lt; 0\n        UTILPRN ::oUtil 5.8, 7.0 SAY \"ABONO\" FONT oFont COLOR CLR_BLACK\n    EndIf\n\n    UTILPRN ::oUtil 6.5, 1.7 SAY \"Data: \" + DToC( ::oTdbfFactur:DataFact ) FONT oFont COLOR CLR_BLACK\n\n\n    /* Datos cliente.\n       -------------*/\n    If ::oTDbfFactur:TIPUPERS = 1\n        UTILPRN ::oUtil 4, 10.7 SAY RTrim( ::oTdbfFactur:NOM ) + \" \" + ;\n                                    RTrim( ::oTdbfFactur:COGNOM1 ) + \" \" + ;\n                                    RTrim( ::oTdbfFactur:COGNOM2 ) ;\n                                FONT ::oFnt_10B COLOR CLR_BLACK\n      ELSE\n        UTILPRN ::oUtil 4, 10.7 SAY ::oTdbfFactur:COGNOM1 + ;\n                                    ::oTdbfFactur:COGNOM2 + ;\n                                    ::oTdbfFactur:NOM ;\n                                FONT ::oFnt_10B COLOR CLR_BLACK\n    ENDIF\n\n    UTILPRN ::oUtil 4.5, 10.7 SAY ::oTdbfFactur:ADRECA FONT ::oFnt_10B COLOR CLR_BLACK\n    UTILPRN ::oUtil 5, 10.7 SAY Right( Transform( ::oTdbfFactur:CODIPOST + 100000, \"999999\" ),5) + ;\n                                       \"-\" + AllTrim(::oTdbfFactur:POBLACIO) ;\n                                   FONT ::oFnt_10B COLOR CLR_BLACK\n\n    UTILPRN ::oUtil 5.5, 10.7 SAY \"(\" + AllTrim(::oTdbfFactur:PROVINCI) + \")\" ;\n                                   FONT ::oFnt_10B COLOR CLR_BLACK\n\n    UTILPRN ::oUtil 6.0, 10.7 SAY ::oTdbfFactur:NIF FONT ::oFnt_10B COLOR CLR_BLACK\n\n\n    /* Cajas de la cabecera del encolumnado.\n       -----------------------------------*/\n    UTILPRN ::oUtil BOX 8, 1.5 TO 9, 3.5\n    UTILPRN ::oUtil BOX 8, 3.5 TO 9, 4.5\n    UTILPRN ::oUtil BOX 8, 4.5 TO 9, 14\n    UTILPRN ::oUtil BOX 8, 14 TO 9, 15.5\n    UTILPRN ::oUtil BOX 8, 15.5 TO 9, 17.5\n    UTILPRN ::oUtil BOX 8, 17.5 TO 9, 20\n\n    UTILPRN ::oUtil 8.2, 2 SAY \"Mes\" FONT ::oFnt_10B COLOR CLR_BLACK\n    UTILPRN ::oUtil 8.2, 3.7 SAY \"Dia\" FONT ::oFnt_10B COLOR CLR_BLACK\n    UTILPRN ::oUtil 8.2, 6.5 SAY \"Descripció/Destí\" FONT ::oFnt_10B COLOR CLR_BLACK\n    UTILPRN ::oUtil 8.2, 14.2 SAY \"Unitats\" FONT ::oFnt_10B COLOR CLR_BLACK\n    UTILPRN ::oUtil 8.2, 16 SAY \"Preu U.\" FONT ::oFnt_10B COLOR CLR_BLACK\n    UTILPRN ::oUtil 8.2, 18.2 SAY \"Total\" FONT ::oFnt_10B COLOR CLR_BLACK\n\n\n    /* Cajas de los totales.\n       -------------------*/\n    UTILPRN ::oUtil BOX 24.6, 1.5 TO 27.1, 8\n\n    UTILPRN ::oUtil BOX 24.6, 8 TO 27.1, 14\n\n    UTILPRN ::oUtil BOX 24.6, 14 TO 27.1, 20\n\n   oFont:End()\n   oPen:End()\n   oBrush:End()\n\n   ::oUtil:Reset()  //Valores por defecto\n\n   ::nLinea := 9.5   // comenzamos a 10 cms\n\nRETURN NIL\n\nMETHOD Lineas() CLASS TFACTUA1\n\nLocal lRest      := .F.\nLocal lRest2     := .F.\nLocal nEPreu     := 0\nLocal nFPreu     := 0\nLocal nImport    := 0\n\n// Sumes parcials\nLocal nEDescRapp := 0\nLocal nEDescPron := 0\nLocal nERetencio := 0\n\n// Sumes totals.\nLocal nFDescRapp := 0\nLocal nFDescPron := 0\nLocal nFRetencio := 0\nLocal nFReteIRPF := 0\n\nLocal aIVA       := {}\nLocal nIVA       := 0\nLocal nFIVA      := 0\nLocal nFBI       := 0\nLocal nContador  := 0\nLocal uDummy     := 0\n\n/* Se cambia el fin del área de impresión.\n   -------------------------------------*/\n::nEndLine := ::nEndLine - 4\n\n    While ::oTdbfConFac:Locate( , , lRest ) .and. ValType( ::ArraJuva[1][1][1] ) = \"O\"\n\n        lRest := .T.\n        lRest2 := .F.\n\n        ::oTdbfConFac:Load()\n\n        /* Se imprime mes, año, día y descripción si el precio es &lt;&gt; 0.\n           Si la cantidad es &lt;&gt; 0. Maite 05-02-2003\n           ----------------------------------------------------------*/\n        If ::oTdbfConFac:QUANUNIT &lt;&gt; 0\n            UTILPRN ::oUtil Self:nLinea, 2 ;\n                    SAY juvcmonth(::oTdbfConFac:DATAALBA,3,1)+\"/\"+right(str(year(::oTdbfConFac:DATAALBA),4,0),2) ;\n                    FONT ::oFnt_10 COLOR CLR_BLACK\n            UTILPRN ::oUtil Self:nLinea, 3.8 SAY  str(day(::oTdbfConFac:DATAALBA),2,0) ;\n                    FONT ::oFnt_10 COLOR CLR_BLACK\n        EndIf\n\n        Aplifil( ::ArraJuva, ::oTdbfArticu, Nil, \"CODIARTI = \'\" + ::oTdbfConFac:CODIARTI + ;\n                                              \"\' .and. !Deleted()\" )\n\n        /* Se imprime el artículo.\n           ---------------------*/\n        If ::oTdbfArticu:Locate( , , lRest2 )\n            lRest2 := .T.\n            ::oTdbfArticu:Load()\n            UTILPRN ::oUtil Self:nLinea, 4.8 SAY  ::oTdbfArticu:DESCRIPC ;\n                    FONT ::oFnt_8 COLOR CLR_BLACK\n        EndIf\n\n        While ::oTdbfArticu:Locate( , , lRest2 ) .and. ValType( ::ArraJuva[1][1][1] ) = \"O\"\n\n            ::oTdbfArticu:Load()\n            ISEPARATOR CMSEPARADOR\n            UTILPRN ::oUtil Self:nLinea, 4.8 SAY  ::oTdbfArticu:DESCRIPC ;\n                    FONT ::oFnt_8 COLOR CLR_BLACK\n        EndDo\n\n        Aplifil( ::ArraJuva, ::oTdbfDestin, Nil, \"CODIDEST = Val(\'\" + Str(::oTdbfConFac:CODIDEST) + ;\n                                              \"\') .and. !Deleted()\" )\n\n        /* Se imprime el destino.\n           --------------------*/\n        lRest2 := .F.\n        If ::oTdbfDestin:Locate( , , lRest2 )\n            ::oTdbfDestin:Load()\n            ISEPARATOR CMSEPARADOR\n            UTILPRN ::oUtil Self:nLinea, 4.8 SAY  Left(RTrim(::oTdbfDestin:ADRECA) + \"-\" + ;\n                                               RTrim(::oTdbfDestin:POBLACIO) + space(50), 50 ) ;\n                    FONT ::oFnt_8 COLOR CLR_BLACK\n        EndIf\n\n        /* Se imprimen otros datos si el precio es &lt;&gt; 0.\n           -------------------------------------------*/\n        If ::oTdbfConFac:PREUUNIT &lt;&gt; 0\n\n            /* Se imprime la cantidad.\n               ---------------------*/\n            UTILPRN ::oUtil Self:nLinea, 15.0 SAY  Transform( ::oTdbfConFac:QUANUNIT, \"@E 9,999,999.99\" ) ;\n                    FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n            /* Se imprime tipo artículo.\n               -----------------------*/\n            UTILPRN ::oUtil Self:nLinea, 15.1 SAY  ::oTdbfArticu:tipuunit ;\n                    FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n\n\n            /* Se calcula el precio.\n               -------------------*/\n            nEPreu   := nContravalor( ::ArraJuva, ;\n                                      ::oTdbfConFac:PREUUNIT, ;\n                                      ::oTdbfConFac:MNDA, ;\n                                      ::oTdbfFactur:MNDA )\n\n            /* Se imprime el precio.\n               -------------------*/\n            UTILPRN ::oUtil Self:nLinea, 17.2 ;\n                    SAY  Transform( nEPreu, ;\n                         GetPicture( \"N\", 13, nDecMnda( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ;\n                          ) FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n            /* Se imprime el total.\n               ------------------*/\n            nImport    := ( nEPreu * ::oTdbfConFac:QUANUNIT )\n\n            nFPreu   := nFPreu + nImport\n\n            UTILPRN ::oUtil Self:nLinea, 19.7 ;\n                    SAY Transform( nImport, ;\n                                   GetPicture( \"N\", 13, nDecMnda( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ;\n                                  ) FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n\n            /* Se calculan los descuentos del movimiento y se añaden a los de la factura.\n               ------------------------------------------------------------------------*/\n            nEDescRapp := nImport * ::oTdbfConFac:DESCRAPP / 100\n            nEDescPron := ( nImport - nEDescRapp ) * ::oTdbfConFac:DESCPRON / 100\n            nERetencio := (( nImport - nEDescRapp) - nEDescPron ) * ::oTdbfFactur:PTGRETEN / 100\n\n\n            nFDescRapp := nFDescRapp + nEDescRapp\n            nFDescPron := nFDescPron + nEDescPron\n            nFRetencio := nFRetencio + nERetencio\n\n\n            /* Se captura el tipo de IVA y la base imponible.\n               --------------------------------------------*/\n            If ( nIVA := AScan( aIVA, { |eIVA| eIVA[1] = ::oTdbfConFac:TIPUIVA } ) ) &gt; 0\n                aIVA[ nIVA ][ 2 ] := aIVA[ nIVA ][ 2 ] + ( nImport - nEDescRapp - nEDescPron - nERetencio )\n                nIVA := 0\n              Else\n                AADD( aIVA, { ::oTdbfConFac:TIPUIVA, ( nImport - nEDescRapp - nEDescPron - nERetencio ) } )\n            EndIf\n\n        EndIf\n\n        ISEPARATOR CMSEPARADOR\n        ISEPARATOR CMSEPARADOR\n\n        SysRefresh()\n\n    End While\n\n\n    nFReteIRPF := (((nFPreu - nFDescRapp) - nFDescPron) - nFRetencio) * ::oTdbfFactur:PTGIRPF / 100\n\n  If  ValType( ::ArraJuva[1][1][1] ) = \"O\"\n\n    /* Se restaura el fin del área de impresión.\n       ---------------------------------------*/\n    ::nEndLine := ::oPrn:nVertSiZe() / 10 - 1 // En Cms\n\n\n    /* Se imprime los datos el vencimiento.\n       ----------------------------------*/\n    UTILPRN ::oUtil 24.7, 2 SAY  \"Data i import venciment:\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    UTILPRN ::oUtil 25.1, 2 SAY  ::oTDbfFactur:VENCIMEN ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    UTILPRN ::oUtil 25.1, 6 SAY ;\n       Transform( Round( ::oTDbfFactur:IMPOVENC, nDecMnda2( ::ArraJuva, ::oTDbfFactur:MNDA)), ;\n                  GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n       FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n\n    /* Se imprime la forma de pago.\n       --------------------------*/\n    UTILPRN ::oUtil 26.3, 2 SAY  \"Forma de pagament:\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    If ( uDummy := AScan( ArForPagCod( ::ArraJuva ), {| e | e == ::oTDbfFactur:FORMPAGA } ) ) &gt; 0\n        UTILPRN ::oUtil 26.7, 2 SAY  ArForPagLit( ::ArraJuva )[uDummy] ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n    EndIf\n\n    /* Se imprime los datos del I.V.A.\n       -----------------------------*/\n    UTILPRN ::oUtil 24.7, 8.5 SAY  \"Tipus I.V.A.\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    UTILPRN ::oUtil 24.7, 11 SAY  \"B.I.\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    UTILPRN ::oUtil 24.7, 12 SAY  \"Quota I.V.A.\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n\n    For nContador := 1 To Len( aIVA )\n\n        UTILPRN ::oUtil 24.7 + (nContador * CMSEPARADOR), 9.5 SAY  Transform( aIVA[nContador][1], \"@E 999.99\") + \"%\" ;\n                FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n        UTILPRN ::oUtil 24.7 + (nContador * CMSEPARADOR), 11.5 SAY  Transform( aIVA[nContador][2], ;\n                           GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n                FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n        UTILPRN ::oUtil 24.7 + (nContador * CMSEPARADOR), 13.5 ;\n                SAY  Transform( aIVA[nContador][2] * aIVA[nContador][1] / 100 , ;\n                                GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n                FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n        nFIVA := nFIVA  + ( aIVA[nContador][2] * aIVA[nContador][1] / 100 )\n        nFBI  := nFBI   +   aIVA[nContador][2]\n\n    EndFor\n\n    UTILPRN ::oUtil 26.7, 11 SAY  \"Imports en \" + cNameMnda( ::ArraJuva, ::oTdbfFactur:Mnda) ;\n            FONT ::oFnt_8 COLOR CLR_BLACK CENTER\n\n    UTILPRN ::oUtil 24.7, 14.5 SAY  \"Total\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    UTILPRN ::oUtil 24.7, 19.7 SAY  Transform( nFPreu, ;\n                                    GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n            FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n\n    If nFDescRapp &lt;&gt; 0\n        UTILPRN ::oUtil 25.0, 14.5 SAY  \"Rappel\" ;\n                FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n        UTILPRN ::oUtil 25.0, 19.7 SAY  Transform( -1 * nFDescRapp, ;\n                                    GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n                FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n    EndIf\n\n\n    If nFDescPron &lt;&gt; 0\n        UTILPRN ::oUtil 25.3, 14.5 SAY  \"Pron.pag.\" ;\n                FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n        UTILPRN ::oUtil 25.3, 19.7 SAY  Transform( -1 * nFDescPron, ;\n                                    GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n                FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n    EndIf\n\n\n    If nFRetencio &lt;&gt; 0\n        UTILPRN ::oUtil 25.6, 14.5 SAY  \"Retenció \"  + Transform(::oTdbfFactur:PTGRETEN, \"@E 9,999.99\" ) + \"%\";\n                FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n        UTILPRN ::oUtil 25.6, 19.7 SAY  Transform( -1 * nFRetencio, ;\n                                    GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n                FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n    EndIf\n\n\n    If nFReteIRPF &lt;&gt; 0\n        UTILPRN ::oUtil 25.9, 14.5 SAY  \"Ret. IRPF \" + Transform(::oTdbfFactur:PTGIRPF, \"@E 999.99\" ) + \"%\";\n                FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n        UTILPRN ::oUtil 25.9, 19.7 SAY  Transform( -1 * nFReteIRPF, ;\n                GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n                FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n    EndIf\n\n\n    UTILPRN ::oUtil 26.3, 14.5 SAY  \"Quota I.V.A.\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    UTILPRN ::oUtil 26.3, 19.7 SAY  Transform( Round( nFIVA, nDecMnda2( ::ArraJuva, ::oTdbfFactur:MNDA ) ), ;\n                                    GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n            FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n\n\n    UTILPRN ::oUtil 26.7, 14.5 SAY  \"TOTAL FACTURA\" ;\n            FONT ::oFnt_8 COLOR CLR_BLACK LEFT\n\n    UTILPRN ::oUtil 26.7, 19.7 SAY  Transform( Round( nFPreu - nFDescRapp - nFDescPron - nFRetencio - nFReteIRPF + nFIVA, ;\n                                                      nDecMnda2( ::ArraJuva, ::oTdbfFactur:MNDA ) ), ;\n                                    GetPicture( \"N\", 13, nDecMnda2( ::ArraJuva, ::oTdbfFactur:Mnda ), .T. ) ) ;\n            FONT ::oFnt_8 COLOR CLR_BLACK RIGHT\n\n\n  EndIf\n\nRETURN .T.\n\nMETHOD Separator( nSpace ) CLASS TFACTUA1\n\n   // Si habido un salto de pagina despues de una linea de separacion\n   if Super:Separator( nSpace ) // Atentos. Llamada a la TImprime.\n      ::Cabecera()\n      //::nLinea := 5\n   endif\n\nReturn Self\n****************************************','',0,'gA==','33z75q6n',1,0,'',92,0,0),(48450,9989,3,80,0,'202.72.164.124',1203322083,1,0,1,1,1,0,'','Two Buttonbars','Hi All\n\nHow do I had a second buttonbar at the top of the window.\n\nCheers\n\nColin','',0,'gA==','1dtwtbnf',1,0,'',80,0,0),(48451,9989,3,80,0,'202.72.164.124',1203322183,1,0,1,1,1,0,'','Two ButtonBars','Hi All\n\nThat should be \"add\" not had.\n\nCheers\n\nColin','',0,'gA==','m6rmy80c',1,0,'',80,0,0),(48452,9975,6,596,0,'85.62.69.206',1203322508,1,0,1,1,1,1,'','','[quote=&quot;JmGarcia&quot;:3c59dm7b][quote=&quot;mmercado&quot;:3c59dm7b]Tomando el mismo ejemplo de FWH Samples[/quote:3c59dm7b]Pues si funciona, vere de adaptarlo a mi codigo.\nMuchas gracias Manuel.[/quote:3c59dm7b]Pues sigo si poder adaptarlo, pondré el código fuente cuando lo tenga ya terminado.\n\nPor otro lado, NO consigo que el campo GET del Combobox se desplace horizontalmente a la izquierda cuando llego escribiendo al final de la derecha.[code:3c59dm7b]@ 10,100 COMBOBOX oCombo VAR cCombo ITEMS aCombo SIZE 650,200 OF oWnd ;\n         STYLE CBS_DROPDOWN PIXEL FONT oFont ;\n         VALID &#40;iif&#40;&#46;not&#46; oCombo&#58;Find&#40;oCombo&#58;oGet&#58;GetText&#40;&#41;&#41;,;\n                    oCombo&#58;Insert&#40;left&#40;alltrim&#40;oCombo&#58;oGet&#58;GetText&#40;&#41;&#41;+space&#40;MAX_PATH&#41;,MAX_PATH&#41;,1&#41;,&#41;,&#46;T&#46;&#41;\noCombo&#58;bKeyDown&#58;=&#123;|nK|iif&#40;nK==VK_RETURN,EnviaComando&#40;alltrim&#40;oCombo&#58;oGet&#58;GetText&#40;&#41;&#41;,aSeleccion&#41;,nil&#41;&#125;  [/code:3c59dm7b]','',0,'gIA=','3c59dm7b',1,0,'',596,0,0),(48453,9990,3,51,0,'80.122.88.242',1203323438,1,0,1,1,1,0,'','XPtheme -VISTA CLASSIC LOOK and listbox','Can someone with a VISTA PC test this, please.\n\nI compiled the fwbrow.prg and copyed a file \nfwbrow.exe.manifest\nto the Fivewin-sample-folder.\n\nNow the title of the listbox is missing. Deleting the file all is ok?\nOS: VISTA\nThis is only if I use VISTA with Design \"CLASSIC\"!!!\nWith design \"VISTA\" all is ok.\n\nRegards,\nOtto\n\n[img:3np187qs]http&#58;//www&#46;atzwanger&#46;com/fw/listboxtheme&#46;jpg[/img:3np187qs]','',0,'CA==','3np187qs',1,0,'',51,0,0),(48454,9989,3,49,0,'213.82.134.66',1203324217,1,0,1,1,1,1,'','','U must use Multibar class','',0,'CA==','35tstcha',1,0,'',49,0,0),(48455,9989,3,6,0,'87.17.226.51',1203324284,1,0,1,1,1,1,'','Re: Two ButtonBars','This is a working sample:\n\n[code:1o6dh5gb]#include &quot;Fivewin&#46;ch&quot;\n\n\nFUNCTION MAIN&#40;&#41;\n\n    LOCAL oWnd\n\n    LOCAL oBar, oBtn\n\n    DEFINE WINDOW oWnd\n\n    DEFINE BUTTONBAR OF oWnd 2007;\n           SIZE 33, 33\n\n    DEFINE BUTTON OF oWnd&#58;oBar;\n           FILE &quot;C&#58;\\FWH\\BITMAPS\\OPEN&#46;BMP&quot;;\n           ACTION MSGINFO&#40; &quot;First bar Ok!&quot; &#41;\n\n    @ 33, -1 BUTTONBAR oBar OF oWnd;\n             SIZE 1602, 36;\n             BUTTONSIZE 33, 33\n\n    oBar&#58;l2007 = &#46;T&#46;\n\n    DEFINE BUTTON OF oBar;\n           FILE &quot;C&#58;\\FWH\\BITMAPS\\SAVE&#46;BMP&quot;;\n           ACTION MSGINFO&#40; &quot;Second bar Ok!&quot; &#41;\n\n    ACTIVATE WINDOW oWnd\n\n    RETURN NIL[/code:1o6dh5gb]\n\nEMG','',0,'AIA=','1o6dh5gb',1,0,'',6,0,0),(48456,9971,3,130,0,'141.51.32.24',1203324570,1,0,1,1,1,1,'','','Hi Otto,\n\n[quote=&quot;Otto&quot;:3mlkxq5j]\n    oWnd:oTop = oTabs2\n    oPanel := TPanel():New( 18, 0, 75, oWnd:nWidth(), oWnd )\n  [color=red:3mlkxq5j]oWnd:oCilent := oPanel  &lt;----[/color:3mlkxq5j]\n[/quote:3mlkxq5j]\nsmall typo, should be oWnd:oClient\n\nDid you try this ?\n\n[code:3mlkxq5j]ON RESIZE oPanel&#58;Move &#40;&#46;&#46;&#46;&#41; [/code:3mlkxq5j]','',0,'goA=','3mlkxq5j',1,0,'',130,0,0),(48457,9985,3,868,0,'219.64.121.60',1203325793,1,0,1,1,1,1,'','','You should also change wbrowse to xbrowse in the resource file.','',0,'goA=','3lz8wnc9',1,0,'',868,0,0),(48458,9890,6,9,0,'85.59.96.123',1203327029,1,0,1,1,1,1,'','Ejemplo con ADO + RecordSet + Browse','Leandro,\n\nNo sé si esto es lo que necesitas:\n\n\nEjemplo para trabajar con ADO + RecordSet + Browse:\n======================================\n\nEn una aplicación cliente servidor, debemos tener UNA SOLA\nconexión a la Base de Datos (BD). En cambio, tendremos\nmúltiples RecordSet. Por tanto es conveniente disponer de una \nfunción para facilitar la creación de estos RecordSet de una\nforma sencilla. Tambien podemos tener en nuestra librería, \nlas funciones SKIPPER() y ADOERROR().\nEn resumen, una vez creado el objeto RecordSet, la actuación\nen el Browse es muy parecido a cuando usamos el objeto\nDatabase de FiveWin.\n\n/////////////////////////////////////////////////\nSuponemos que ya tenemos en nuestra libreria la función\nF_RecordSet y que en la aplicación que estamos programando,\nya existe una Conexión a la BD que llamaremos oCon.\nAhora vamos a crear un objeto RecordSet y mostrarlo \nen un Browse.\nEn nuestro ejemplo, se trata de un programa de recetas\nde cocina, \n/////////////////////////////////////////////////\n\nFUNCTION BrwCocina(oCon)\nLocal lSalvar := .f., oDlg, oLbx, oBtn:= ARRAY(9)\n\n// orden SQL\nLOCAL cSql := \'SELECT * FROM RECETAS ORDER BY NOMBRE\'\n\n// crea recordset\nLocal oRs := F_RECORDSET ( oCon, cSql, .t. )  // ver al final\n\n// F_recordset devuelve \"nil\" si hay error \nIF oRs == nil\n   RETURN nil\nENDI\n\n// Caja de Diálogo -----------------------------------------------------\nDEFINE DIALOG oDlg RESOURCE \"RECETAS\" ;\n       TITLE \" Mi libro de recetas con ORACLE\" \n\n**\n** campos del browse\n**\nREDEFINE LISTBOX oLbx ;\n       FIELDS oRs:Fields(\"CLASE\"):value, ;\n              oRs:Fields(\"NOMBRE\"):value, ;\n              NUM2STR(oRs:Fields(\"CONTROL\"):value, 10, 0) ;\n       HEADERS PADC ( \"Clase\", 18 ) ,  ;\n               PADC(\"Nombre\",80),  ;\n               PADC(\"Ref.\",10)     ;\n       FIELDSIZES 90, 290, 20     ;\n       ID 101                      ;\n       OF oDlg                     ;\n       ON DBLCLICK F_ALTA(oRs, .F., oLbx )\n\n\n   oLbx:bLogicLen = { || oRs:RecordCount }\n   oLbx:bGoTop = { || oRs:MoveFirst() }\n   oLbx:bGoBottom = { || oRs:MoveLast() }\n   oLbx:bSkip = { | nSkip | Skipper( oRs, nSkip ) }\n   oLbx:cAlias = \"ARRAY\"\n\n   ** si pulsa &lt;intro&gt;\n   oLbx:bKeyDown  := {|nK| if( nK != VK_RETURN, , F_ALTA(oRs,.F.,aCbx, oLbx) ) }\n   \n   ** para que el browse salga a dos colores\n   oLbx:nClrPane:={|| IIF(oRs:AbsolutePosition % 2==0,CLR_LGREEN,CLR_LGRAY)}\n\n   REDEFINE BUTTONBMP oBtn[1] ID 104 OF oDlg ;\n       ACTION F_ALTA( oRs, .T., oLbx)   ;\n       MESSAGE \"Alta de una nueva receta.\" ;\n       PROMPT SPACE(6)+ \"&amp;Alta\" TEXTRIGHT ;\n       BITMAP \"Alta3\"\n\n   **\n   ** Baja receta\n   **\n   REDEFINE BUTTONBMP oBtn[2] ID 105 OF oDlg ;\n       ACTION( O_SUPRIMIR ( oRs, \"NOMBRE\" ), ;\n               oLbx:Refresh(), ;\n               oLbx:SetFocus() ) ;\n       MESSAGE \" Eliminar receta activa.\"   ;\n       PROMPT SPACE(6)+ \"&amp;Baja\" TEXTRIGHT ;\n       BITMAP \"Cancelar\"\n\n   // modificar receta\n   REDEFINE BUTTONBMP oBtn[3] ID 106 OF oDlg   ;\n        ACTION F_ALTA( oRs, .F., oLbx ) ;\n        MESSAGE \" Editar receta activa.\" ;\n        PROMPT SPACE(10) + \"&amp;Editar\" ;\n        BITMAP \"lapiz\" TEXTRIGHT\n\n   // filtrar\n   REDEFINE BUTTONBMP oBtn[4] ID 107 OF oDlg  ;\n        ACTION ( FILTRAR ( oRs ), ;\n            oLbx:Refresh(),  ;\n            oLbx:SetFocus() ) ;\n        MESSAGE \" Filtrar recetas.\" ;\n        PROMPT SPACE(10) + \"&amp;Filtrar\" ;\n        BITMAP \"buscar\" TEXTRIGHT\n\n   // Imprimir\n   REDEFINE BUTTONBMP oBtn[5] ID 108 OF oDlg ;\n                   ACTION ( I_LISTA( oRs ),  ;\n                            oLbx:REFRESH(),  ;\n                            oLbx:SETFOCUS()) ;\n                   MESSAGE \" Imprimir la receta activa.\" ;\n                   PROMPT SPACE( 8 ) + \"&amp;Imprimir\" ;\n                   BITMAP \"imprimir1\" TEXTRIGHT\n\n   // boton salir\n   REDEFINE BUTTONBMP oBtn[6] ID 109 OF oDlg ;\n                   ACTION oDlg:End() ;\n                   MESSAGE \" Salir del programa.\" ;\n                   PROMPT SPACE(4)+ \"&amp;Salir\" TEXTRIGHT ;\n                   BITMAP \"salir1\"\n\n   oDlg:lHelpIcon:=.f.\n   ACTIVATE DIALOG oDlg CENTERED ;\n       ON INIT oLbx:SetFocus()\n\noRs:CLOSE()\noRS:=Nil\n\nRETURN NIL\n\n\n////////////////////////////////////////\n/// funcion que crea un recordset \n/// oCon = Objeto conexión a la BD\n/// cSql = Orden SQL\n/// lVacio = .T./.F. avisar que Ors está vacio\n///////////////////////////////////////\n\nFUNCTION F_RECORDSET (oCon, cSql, lVacio)\nlocal oError\nlocal oRs := CreateObject( \"ADODB.Recordset\" )\n\noRs:CursorLocation := 3  // adUseClient  \noRs:LockType       := 3  // adLockOptimistic \noRs:CursorType     := 1  // adOpenKeyset\noRs:Source := cSql\noRs:ActiveConnection(oCon)\n\nTRY\n  oRs:Open( )\nCATCH oError\n  AdoError(oCon, oError) \n  RETURN nil\nEND\n\nIF lVacio\n   IF oRs:EOF .and. oRs:BOF    \n      msgstop (\"Fichero vacio\")\n      oRs:CLOSE()\n      oRs:=Nil\n      RETURN nil\n   ENDI\n   oRs:MoveFirst()\nENDI\n\nRETURN oRs\n\n//////////////////////////////////\n/// skipper se usa para saltar en el oRs\n/// cuando salta en el browse \n////////////////////////////////////////////////////////\nFUNCTION SKIPPER( oRs, nSkip )\nLOCAL nRec := oRs:AbsolutePosition\n\noRs:Move( nSkip )\n\nIF oRs:EOF; oRs:MoveLast(); ENDIF\n\nIF oRs:BOF; oRs:MoveFirst(); ENDIF\n\nRETURN oRs:AbsolutePosition - nRec\n\n/////////////////////////////////////////\n/// Para informar de un error ADO\n////////////////////////////////////////\nFUNCTION AdoError(oCon, oError)\nLOCAL oTmp \n\n   FOR EACH oTmp IN oCon:Errors  // oAdoErrors\n\n       IF oError == nil\n          oError := ErrorNew()\n          oError:Description := \"Error desconocido ADO\"\n       ELSE\n          oError:SubCode := oTmp:NativeError //¡¡¡num. error nativo\n          oError:Description := oTmp:Description\n       ENDIF\n\n   NEXT\n\n  MSGSTOP ( (oError:Description + CRLF ) ,  ;\n           \" Error \" + oError:Operation + \' \' + oError:SubSystem )\n\nRETURN (oError:SubCode)  // Código num. del error\n\n///////////////////////////////////////\n\nPara agregar o editar un registro, puedes ver este mensaje:\n\n<!-- m --><a class=\"postlink\" href=\"http://fivetechsoft.com/forums/viewtopic.php?p=47676&amp;highlight=#47676\">http://fivetechsoft.com/forums/viewtopi ... ght=#47676</a><!-- m -->','',0,'','h9muzyki',1,0,'',9,0,0),(48459,9985,3,51,0,'80.122.88.242',1203327316,1,0,1,1,1,0,'','','Hello NageswaraRao,\n\nwould you be so kind to post a little rc- and prg-file with a demo for \nfwcodesnips.com.\n\nThanks in advance\nOtto','',0,'','16148fod',1,0,'',51,0,0),(48460,9971,3,51,0,'80.122.88.242',1203327397,1,0,1,1,1,0,'','','Thank you, danke Stefan.\nI will try.\nRegards,\nOtto','',0,'','i7qp45h3',1,0,'',51,0,0),(48461,9953,3,130,0,'141.51.32.24',1203328074,1,0,1,1,1,1,'','','Hi Manuel,\n\n[quote=&quot;mmercado&quot;:2a4xshxn]\n[quote=&quot;StefanHaupt&quot;:2a4xshxn]I have another error, if I try to use TsBrowse in a folder defined from source inside a mdi window[/quote:2a4xshxn]When create the library are you linking the corresponding language program? They are at \\TSBrowse\\Source\\Classes\\Lang[/quote:2a4xshxn]\nYes, the language modul is linked in.\n\n\n[quote:2a4xshxn] [quote=&quot;StefanHaupt&quot;:2a4xshxn]I get an error using this command (working with V6)[/quote:2a4xshxn]Does this error persist in this (V8 Pre-Release) version?[/quote:2a4xshxn]\nYes, it´s in the latest version that is available.\n\nThanks for your help','',0,'gA==','2a4xshxn',1,0,'',130,0,0),(48462,9985,3,130,0,'141.51.32.24',1203328651,1,0,1,1,1,1,'','','Hello Otto,\n\nhere is a small rc and prg sample\n\n[code:x7f8hudx]Test DIALOG DISCARDABLE 39, 40, 429, 272\nSTYLE WS_POPUP|WS_CAPTION|WS_SYSMENU\nCAPTION &quot;Test&quot;\nFONT 8, &quot;Verdana&quot;\nBEGIN\n  CONTROL &quot;&quot;, 110, &quot;TOutLook2003&quot;, 0x00800000, 3, 4, 111, 250\n  CONTROL &quot;Exit&quot;, 1001, &quot;Button&quot;, WS_TABSTOP, 381, 234, 45, 20\n  CONTROL &quot;&quot;, 1000, &quot;msctls_progress32&quot;, 0x00000000, 120, 238, 255, 16\n  CONTROL &quot;&quot;, 5000, &quot;TXBrowse&quot;, WS_TABSTOP, 120, 6, 306, 224\nEND\n [/code:x7f8hudx]\n\n[code:x7f8hudx]DEFINE DIALOG oDlg RESOURCE &quot;Test&quot;\n&#46;&#46;&#46;&#46;\n&#58;&#58;oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oDlg &#41;\n&#46;&#46;&#46;&#46;\n&#58;&#58;oBrw&#58;CreateFromResource&#40; 5000 &#41;\n\n[/code:x7f8hudx]','',0,'AIA=','x7f8hudx',1,0,'',130,0,0),(48463,9989,3,233,0,'218.208.249.197',1203329138,1,0,1,1,1,0,'','Re: Two ButtonBars','Enrico (or any others),\n   I normally find myself easily confuse when trying to manually code coordinates or sizes of controls.  Could you explain how the figures in bold below come about? It\'d be helpful for my understanding  <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) --> .\n\n\n@ 33, [b:2q66z9it]-1[/b:2q66z9it] BUTTONBAR oBar OF oWnd;\n             SIZE [b:2q66z9it]1602, 36[/b:2q66z9it];\n             BUTTONSIZE 33, 33\n\nTIA','',0,'QA==','2q66z9it',1,0,'',233,0,0),(48464,9989,3,6,0,'87.17.226.51',1203330174,1,0,1,1,1,1,'','Re: Two ButtonBars','I found that coordinates just trying and looking at the result. <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nEMG','',0,'QA==','2nq2a9q8',1,0,'',6,0,0),(48465,9985,3,51,0,'80.122.88.242',1203330891,1,0,1,1,1,0,'','','Hello Stefan,\n\nThank you.\nBTW, do you know how I could extend the VSX resource editor that I can select \"TXBrowse\"?\nAt the moment I can use copy and paste from a other project.\nBut it is not elegant.\nRegards,\nOtto','',0,'QA==','1kf76nwf',1,0,'',51,0,0),(48466,9985,3,47,0,'203.144.143.9',1203331258,1,0,1,1,1,0,'','','Dear StefanHaupt,\n\nThanks, I\'ve got it. \n\nDear Antonio,\n\nIn xbrowse.ch is not including REDEFINE command.  \nHave you done the transalator command for REDEFINE?  or I have to do by ourselve.\n\nThanks&amp;Regards,\nDutch','',0,'QA==','3qbm744h',1,0,'',47,0,0),(48467,9991,3,19,0,'83.238.24.193',1203332013,1,0,1,1,1,0,'','xBrowse in 2 windows','I have a small problem in displaing info from two dbf.files with relation.\n\n1. In first main window i want to display list of  simple information from 1-st base, second should contain filtered info from second base. By move in master window the list in detail must be refreshed. \n\n2. Can I do this with MDI Window structure or in Dialog?\n\nregards Eugeniusz','',0,'QA==','1ey9p700',1,0,'',19,0,0),(48468,9991,3,1257,0,'195.93.60.2',1203333353,1,0,1,1,1,1,'','2 Browsers for xBrowse in Relation','Hello Eugeniusz\n\nto use 2 Browsers in relation is possible\nin both, a window or dialog.\nI will do a sample in the DB-Tools.\nIt will have a vertical splitter as well, \nso you can resize a browser.\nI hope, it is not to urgent, so you can\nget the source how to handle it.\n\nGreetings\nUwe <!-- s:lol: --><img src=\"{SMILIES_PATH}/icon_lol.gif\" alt=\":lol:\" title=\"Laughing\" /><!-- s:lol: -->','',0,'QA==','1xthoo0w',1,0,'',1257,0,0),(48469,9991,3,2,0,'87.218.146.60',1203333936,1,0,1,1,1,1,'','','Eugeniusz,\n\nPlease review fwh\\samples\\gallery\\onemany\\*','',0,'QA==','1wd2xhz1',1,0,'',2,0,0),(48470,9985,3,2,0,'87.218.146.60',1203334529,1,0,1,1,1,1,'','','Otto,\n\n[url=http&#58;//imageshack&#46;us:3hrtpfyr][img:3hrtpfyr]http&#58;//img512&#46;imageshack&#46;us/img512/3840/ottooe3&#46;png[/img:3hrtpfyr][/url:3hrtpfyr]','',0,'GA==','3hrtpfyr',1,0,'',2,0,0),(48471,9985,3,2,0,'87.218.146.60',1203334609,1,0,1,1,1,1,'','','Dutch,\n\n&gt; In xbrowse.ch is not including REDEFINE command. \n\nWe are going to implement it asap,','',0,'GA==','2sa2zclw',1,0,'',2,0,0),(48472,9992,19,58,0,'84.149.75.56',1203335290,1,0,1,1,1,0,'','forgotton password','Hi all,\n\ni changed my main browser to FireFox.\nUnfortunatelly this browser can not import all settings of IE ( FF claims to do so, but it doesn\'t work ).\n\nSo i clicked the link \'i forgot my password\'.\nPhpBB sends me an email with a new password and a link to activate it.\n\nBut this link doesn\'t work.\nI get a forum page with message \'Not Authorised\'  <!-- s:( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":(\" title=\"Sad\" /><!-- s:( -->\n\nThanks for any advice\nRegards,\nDetlef \n( still with IE 7 )','',0,'GA==','y1k4uegy',1,0,'',58,0,0),(48473,9986,6,2,0,'87.218.146.60',1203335931,1,0,1,1,1,1,'','','JM,\n\nAñadir lo puedes hacer así:\n[code:3oxo3sia]\nfunction Anadir&#40;&#41; \n\n   oWnd&#58;oSysMenu&#58;Add&#40; TMenuItem&#40;&#41;&#58;New&#40; Time&#40;&#41;,,,, &#123; || MsgInfo&#40; &quot;click&quot; &#41; &#125; &#41; &#41;\n   	\nreturn nil   	\n[/code:3oxo3sia]\nEn cuanto a quitar, cual quieres quitar ? El último añadido ?','',0,'AIA=','3oxo3sia',1,0,'',2,0,0),(48474,9992,19,233,0,'60.53.80.182',1203336060,1,0,1,1,1,0,'','','This would require Antonio\'s help as the admin Detlef','',0,'AIA=','6kir5hp8',1,0,'',233,0,0),(48475,9989,3,233,0,'60.53.80.182',1203336185,1,0,1,1,1,0,'','','Ah, the tried and tested method . Thanks for the reply anyway Enrico <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->','',0,'AIA=','325vbqmx',1,0,'',233,0,0),(48476,9993,6,960,0,'217.12.16.52',1203336443,1,0,1,1,1,0,'','Refescar Dialog desde otro terminal','Compañeros:\n\nEstoy diseñando un programa para \"ventas de entradas\" en Red Local. En la pantalla de ventas, cada localidad se representará mediante un Sbutton en un Dialog, que cambiará de color si esta localidad ya está ocupada. Hasta ahí todo bien.\n\nEl problema surge si desde un terminal se venden localidades, ¿cómo refresco en el otro terminal el estado de los sbuttons, sin que el usuario cierre y abra el Dialogs?\n¿ Como lo podría hacer ?\nMil gracias\nLORENZO.','',0,'AIA=','4e6u5qyp',1,0,'',960,0,0),(48477,9987,6,2,0,'87.218.146.60',1203336613,1,0,1,1,1,1,'','','La función At() es extremadamente rápida ya que practicamente esta implementada al 100% en el propio microprocesador.\n\nLo que es lento es ir leyendo los registros de uno en uno. La solución a esto, aunque suene increible, es cargar de una vez toda la DBF en memoria usando MemoRead() y entonces hacer el At():\n\ncDatos = MemoRead( \"nombre.dbf\" )\nnPos = At( \"lo que busco\", cDatos )\n\nDividiendo el valor devuelto por At() por el tamaño de un registro (+ el tamaño de la cabecera) sabemos inmediatamente en que registro estamos. El siguiente At() se haría a partir de donde se encontró la primera ocurrencia.\n\nEstá técnica la implementamos en su día en una base de datos \"documental\" y los resultados fueron espectaculares. Espero que te sirva <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\nSi la base de datos es extremadamente grande, se iría leyendo en bloques grandes de memoria.','',0,'AIA=','1uef0j1b',1,0,'',2,0,0),(48478,9993,6,2,0,'87.218.146.60',1203336802,1,0,1,1,1,1,'','','Usa un timer que cada cierto tiempo vuelva a leer la información de las bases de datos.','',0,'AIA=','1b2a8sv5',1,0,'',2,0,0),(48479,9886,6,362,0,'200.158.18.97',1203338480,1,0,1,1,1,1,'','','[quote=&quot;surGom&quot;:1cekzz04]Gracias Karinha así funciona muy bien, gracias\n\nLuis[/quote:1cekzz04]\n\n\nLuis,\n\n[img:1cekzz04]http&#58;//www&#46;pctoledo&#46;com&#46;br/forum/images/smiles/pct32&#46;gif[/img:1cekzz04]\n\nA tu Ordenes, Parabiéns!!\n\nBest regards, saludos.','',0,'iA==','1cekzz04',1,0,'',362,0,0),(48480,9981,6,1201,0,'200.90.17.154',1203339169,1,0,1,1,1,0,'','','Manuél, Estoy de Acuerdo contigo, Yo ya tengo casi 30 años en Sistemas, Algunos de mis compañeros ya son cuarentones, y aquí TODOS somos \'Chamos\', (Una forma de llamar a los jóvenes en Venezuela).\n\n\nSaludos;','',0,'iA==','3j1guchj',1,0,'',1201,0,0),(48481,9985,3,51,0,'80.122.88.242',1203339327,1,0,1,1,1,0,'','','Thank you, Antonio,\n\nI am surprised you can do this without adding a own control to the TOOLBOX.\nGreat. Are you using VSX much?\nRegards,\nOtto','',0,'iA==','13xv3m11',1,0,'',51,0,0),(48482,9981,6,1104,0,'200.115.249.70',1203339928,1,0,1,1,1,0,'','','Hola William\n\nPrueba lo siguiente:\n\n[code:1l8zst8p]\noBrw&#58;bUserKeys &#58;= &#123;|nKey, nFlags| If&#40; nKey = 13 &#46;and&#46; nFlags &gt; 0, &#46;F&#46;, nKey &#41; &#125; \n[/code:1l8zst8p]\n\nEspero te sirva.\nSaludos','',0,'AIA=','1l8zst8p',1,0,'',1104,0,0),(48483,9980,4,2,0,'87.218.146.60',1203340082,1,0,1,1,1,1,'','','Pier,\n\nJust call this function before creating the window:\n[code:1y0hylx9]\n   InitCommon&#40;&#41;\n\n   DEFINE WINDOW oWnd TITLE &quot;DTPICKER&quot; MENU MenuEmpty&#40;&#41; \n   &#46;&#46;&#46;\n[/code:1y0hylx9]','',0,'AIA=','1y0hylx9',1,0,'',2,0,0),(48484,9985,3,2,0,'87.218.146.60',1203340238,1,0,1,1,1,1,'','','Otto,\n\n&gt;\nI am surprised you can do this without adding a own control to the TOOLBOX. \n&gt;\n\nYou can do the same using Borland resources workshop <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; Are you using VSX much ? \n\nSometimes, to learn how to use it.','',0,'AIA=','o4abqd8x',1,0,'',2,0,0),(48485,9473,11,473,0,'81.241.228.203',1203340239,1,0,1,1,1,0,'','','Thanks xProgrammer.\n\nI\'ve just executed the \"hello world\"\n\nSo the environment seems to work.\n\nDo you also know if there is sql library for Linux like the commercial sql from xharbour.com\n\nThanks\n\nWilly','',0,'AIA=','1l1vvdsy',1,0,'',473,0,0),(48486,9985,3,868,0,'219.64.121.60',1203340329,1,0,1,1,1,1,'','','[quote=&quot;dutch&quot;:54l3n8ts]Dear StefanHaupt,\nIn xbrowse.ch is not including REDEFINE command.  \nHave you done the transalator command for REDEFINE?  or I have to do by ourselve.\nDutch[/quote:54l3n8ts]\nActually you can use the same command for resources also like this:\n[code:54l3n8ts]\n@ 0,0 XBROWSE FIELDS &lt;fileds&gt; HEADERS &lt;headers,&#46;&#46;&#46;&gt; PIXEL OF oDllg ALIAS &lt;alias&gt;\n\n&lt; your other code for other xbrowse set up if any &gt;\n\noBrw&#58;CreateFromResource&#40; &lt;ID&gt; &#41;   // instead of oBrw&#58;CreateFromCode&#40;&#41;\n// do not use oDlg&#58;oClient &#58;= oBrw\n\nACTIVATE DIALOG oDlg CETNERED\n[/code:54l3n8ts]\nWhen you use oBrw:CreateFromResource( &lt;ID&gt; ) the @ &lt;row&gt;,&lt;col&gt; are ignored.  You have to use CreateFromResource( &lt;ID&gt; ) after all your other code speicifications for your xbrowse.','',0,'gIA=','54l3n8ts',1,0,'',868,0,0),(48487,9985,3,2,0,'87.218.146.60',1203340439,1,0,1,1,1,1,'','','NageswaraRao,\n\nWe should better have a REDEFINE XBROWSE ... to avoid confusions','',0,'gIA=','hixa5x3h',1,0,'',2,0,0),(48488,9994,3,972,0,'78.21.224.104',1203340464,1,0,1,1,1,0,'','Does FWH support FreeImage version 3.1?','Like subject <!-- s:) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":)\" title=\"Smile\" /><!-- s:) -->\n\nFreeImage URL:\n[url:3csssjah]http&#58;//freeimage&#46;sourceforge&#46;net/download&#46;html[/url:3csssjah]\n\nThanks!\n\nPatrick','',0,'EA==','3csssjah',1,0,'',972,0,0),(48489,9988,11,2,0,'87.218.146.60',1203340581,1,0,1,1,1,1,'','','Doug,\n\n&gt; sudo apt-get install libglade2-dev \n\nThanks! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt; I noticed that you had previously included unixODBC-dev\n\nIt is required for xHarbour only, not for Harbour','',0,'EA==','1khjtvwc',1,0,'',2,0,0),(48490,9991,3,868,0,'219.64.121.60',1203340639,1,0,1,1,1,1,'','Re: xBrowse in 2 windows','[quote=&quot;Eugeniusz Owsiak&quot;:2tu4er3o]I have a small problem in displaing info from two dbf.files with relation.\n\n1. In first main window i want to display list of  simple information from 1-st base, second should contain filtered info from second base. By move in master window the list in detail must be refreshed. \n\n2. Can I do this with MDI Window structure or in Dialog?\n\nregards Eugeniusz[/quote:2tu4er3o]\nYou can do this either in MDI window or in Dialog.\nSample code for Dialog\n[code:2tu4er3o]\n@ 10,10 XBROWSE oBrw1 FIELDS &#46;&#46; HEADERS &#46;&#46;&#46;&#46; SIZE 400,300 PIXEL OF oDlg ALIAS master\n\n@ 320,10 XBROWSE oBrw2 FIELDS &#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46;&#46; SIZE 400,300 PIXEL OF oDlg ALIAS child\n\noBrw1&#58;bChange &#58;= &#123; || RefilerChild&#40;&#41;, oBrw2&#58;Refresh&#40;&#46;t&#46;&#41; &#125;\n\n[/code:2tu4er3o]','',0,'gIA=','2tu4er3o',1,0,'',868,0,0),(48491,9473,11,2,0,'87.218.146.60',1203340697,1,0,1,1,1,1,'','','Willy,\n\n&gt;\nI\'ve just executed the \"hello world\" \nSo the environment seems to work. \n&gt;\n\nGood! <!-- s:-) --><img src=\"{SMILIES_PATH}/icon_smile.gif\" alt=\":-)\" title=\"Smile\" /><!-- s:-) -->\n\n&gt;\nDo you also know if there is sql library for Linux like the commercial sql from xharbour.com\n&gt;\n\nI don\'t know it... <!-- s:-( --><img src=\"{SMILIES_PATH}/icon_sad.gif\" alt=\":-(\" title=\"Sad\" /><!-- s:-( -->','',0,'gIA=','2b96s9io',1,0,'',2,0,0),(48492,9995,6,106,0,'85.34.123.173',1203340918,1,0,1,1,1,1,'','xBrowse, como cerrarlo','luego de crear un xbrowse en un dialogo, como hago para cerrarlo?\n\nsi hago:\n\n[code:13es7oxd]\n\noBrw&#58;end&#40;&#41;\n\n[/code:13es7oxd]\n\nsin cerrar el dialogo, el objeto browse sigue estando y no se cierra, alguna idea?\n\nSaludos','',0,'AIA=','13es7oxd',1,0,'',106,0,0),(48493,9994,3,6,0,'82.61.144.40',1203341029,1,0,1,1,1,1,'','Re: Does FWH support FreeImage version 3.1?','Please try it and if you will find problems then let me know.\n\nEMG','',0,'AIA=','3oafxqkf',1,0,'',6,0,0),(48494,9953,3,1255,0,'189.128.26.214',1203343796,1,0,1,1,1,0,'','','[quote=&quot;StefanHaupt&quot;:1senovn9]Yes, the language modul is linked in.[/quote:1senovn9]Ok I just checked, it\'s a bug now corrected.\n\n[quote=&quot;StefanHaupt&quot;:1senovn9]Yes, it´s in the latest version that is available.[/quote:1senovn9]You may be using a prior version of TSBrowse.ch, try the new one in \\TSBrowse\\Include of this new version.\n\nI\'ll try to upload corrected files today, anyway if you want, give me your email to send it directly to you.\n\nThanks for your feedback.\n\nBest regards.\n\nManuel Mercado','',0,'gA==','1senovn9',1,0,'',1255,0,0),(48495,9985,3,47,0,'203.144.143.9',1203344126,1,0,1,1,1,0,'','','Dear Antonio &amp; nageswaragunupudi &amp; Stefan\n\nThanks for your valuable help.\n\nRegards,\nDutch','',0,'gA==','2lcosqdn',1,0,'',47,0,0),(48496,9995,6,106,0,'85.34.123.173',1203345516,1,0,1,1,1,1,'','','no se si está bien, pero yo agregué esto al final del metodo end\n\n   ::Super:end()\n\n\ny ahora me cierra el objeto y libera recursos.\n\n\n\nSaludos','',0,'gA==','372u6qzk',1,0,'',106,0,0),(48497,9889,3,228,0,'200.118.163.91',1203345763,1,0,1,1,1,1,'','Amigo....','Friend, gun-sight I am doing it of the following way:\n\n[code:39xldf84]\n\n********************\n*Catalogo de Medidas\n********************\nPROC pMedida&#40;&#41;\n\nLOCAL aCol&#58;=&#123;0,0,0&#125;\nSTATIC aArrayVars&#58;= &#123;&quot;m_medida&quot;&#125;\n#xtranslate vOrden =&gt; aArrayVars\\&#91;1\\&#93;\noLamcla&#58;oC1vg1&#58;=space&#40;100&#41;\n\noVar   &#58;= &quot;SELECT * from &quot;+oLamcla&#58;tMedi+&quot; ORDER BY &quot;+alltrim&#40;vOrden&#41;\nTRY\n  oLamcla&#58;oRsMedida &#58;= CreateObject&#40;&quot;ADODB&#46;Recordset&quot;&#41;\nCATCH oError\n  MsgStop&#40; &quot;No se ha podido crear el RECORDSET !&quot;,&quot;Error de Datos&quot; &#41;\nEND\n\noLamcla&#58;oRsMedida&#58;CursorLocation  &#58;= adUseClient //adUseServer\noLamcla&#58;oRsMedida&#58;LockType        &#58;= adLockOptimistic\noLamcla&#58;oRsMedida&#58;CursorType      &#58;= adOpenKeyset\noLamcla&#58;oRsMedida&#58;Source          &#58;= oVar\noLamcla&#58;oRsMedida&#58;ActiveConnection&#40; oLamcla&#58;oServer &#41;\nTRY\n  oLamcla&#58;oRsMedida&#58;Open&#40;&#41;\nCATCH oError\n  MsgStop&#40; &quot;No se ha podido ejecutar el comando !&quot;, &quot;Error de Datos&quot; &#41;\nEND\n\nDEFINE BRUSH oFondo FILE &quot;&#46;\\res\\res_403&#46;BMP&quot;\nDEFINE DIALOG oCuadro RESOURCE &quot;orMedida&quot; ICON &quot;#8001&quot; TRANSPARENT BRUSH oFondo\n\n  REDEFINE BUTTONBMP Btn_Limp ID 4003 OF oCuadro BITMAP &quot;Blimpi2&quot; TOOLTIP oLamcla&#58;mTfil //ACTION pValiMed&#40;&#41;\n  //REDEFINE BTNBMP Btn_Limp ID 4010 OF oCuadro RESOURCE &quot;BLimpi2&quot; TOOLTIP oLamcla&#58;mTfil NOBORDER UPDATE //ACTION &#40;oC1vg1&#58;=space&#40;100&#41;,pArMedi&#40;&#41;&#41;\n  REDEFINE GET oC1og1 VAR oLamcla&#58;oC1vg1 ID 4002 OF oCuadro UPDATE //VALID&#40;pBusMed&#40;&#41;,&#46;T&#46;&#41;\n\n  oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oCuadro &#41;\n  oBrw&#58;nMarqueeStyle       &#58;= MARQSTYLE_HIGHLROW\n  oBrw&#58;nColDividerStyle    &#58;= LINESTYLE_RAISED\n  oBrw&#58;nHeaderLines        &#58;= 1\n  oBrw&#58;lColDividerComplete &#58;= &#46;t&#46;\n  oBrw&#58;lRecordSelector     &#58;= &#46;t&#46;\n  oBrw&#58;bClrSel &#58;= &#123;|| &#123; CLR_BLACK,oLamcla&#58;cClr7 &#125; &#125;\n  oBrw&#58;bClrStd &#58;= &#123;|| IF&#40; &#40;oLamcla&#58;oRsMedida&#58;AbsolutePosition&#40;&#41;%2&#41;==0,&#123;CLR_BLACK,oLamcla&#58;cClr2&#125;,&#123;CLR_BLACK,oLamcla&#58;cClr1&#125; &#41; &#125;\n  oBrw&#58;bClrSelFocus        &#58;= &#123;|| &#123; CLR_WHITE,RGB&#40;147,160,112&#41; &#125; &#125;\n\n  aCol&#91; 1&#93;                   &#58;= oBrw&#58;AddCol&#40;&#41;\n  aCol&#91; 1&#93;&#58;bStrData          &#58;= &#123; || If&#40; oLamcla&#58;oRsMedida&#58;Eof, Space&#40; nWidth &#41;, cValtoChar&#40; oLamcla&#58;oRsMedida&#58;Fields&#40; &quot;m_medida&quot; &#41;&#58;Value &#41; &#41; &#125;\n  aCol&#91; 1&#93;&#58;cHeader            &#58;= &quot;Codigo&quot;\n  aCol&#91; 1&#93;&#58;nHeadStrAlign     &#58;= AL_LEFT\n  aCol&#91; 1&#93;&#58;nDataStrAlign     &#58;= AL_LEFT\n  aCol&#91; 1&#93;&#58;nWidth            &#58;= 80\n\n  aCol&#91; 2&#93;                   &#58;= oBrw&#58;AddCol&#40;&#41;\n  aCol&#91; 2&#93;&#58;bStrData          &#58;= &#123; || If&#40; oLamcla&#58;oRsMedida&#58;Eof, Space&#40; nWidth &#41;, cValtoChar&#40; oLamcla&#58;oRsMedida&#58;Fields&#40; &quot;m_nombre&quot; &#41;&#58;Value &#41; &#41; &#125;\n  aCol&#91; 2&#93;&#58;cHeader            &#58;= &quot;Nombre&quot;\n  aCol&#91; 2&#93;&#58;nHeadStrAlign     &#58;= AL_LEFT\n  aCol&#91; 2&#93;&#58;nDataStrAlign     &#58;= AL_LEFT\n  aCol&#91; 2&#93;&#58;nWidth            &#58;= 225\n\n  aCol&#91; 3&#93;                   &#58;= oBrw&#58;AddCol&#40;&#41;\n  aCol&#91; 3&#93;&#58;bStrData          &#58;= &#123; || If&#40; oLamcla&#58;oRsMedida&#58;Eof, Space&#40; nWidth &#41;, cValtoChar&#40; oLamcla&#58;oRsMedida&#58;Fields&#40; &quot;m_siglas&quot; &#41;&#58;Value &#41; &#41; &#125;\n  aCol&#91; 3&#93;&#58;cHeader            &#58;= &quot;Siglas&quot;\n  aCol&#91; 3&#93;&#58;nHeadStrAlign     &#58;= AL_LEFT\n  aCol&#91; 3&#93;&#58;nDataStrAlign     &#58;= AL_LEFT\n  aCol&#91; 3&#93;&#58;nWidth            &#58;= 225\n\n  oBrw&#58;SetADO&#40; oLamcla&#58;oRsMedida &#41;\n  oBrw&#58;CreateFromResource&#40; 102 &#41;\n\n  oCuadro&#58;cTitle &#58;= &quot;Tabla de Medidas&quot;\n\nACTIVATE DIALOG oCuadro On Init &#40;Centra&#40; oCuadro &#41;,oCuadro&#58;refresh&#40;&#41;,BarraMed&#40; oCuadro &#41;&#41; CENTERED\noLamcla&#58;oRsMedida&#58;Close&#40;&#41;\n[/code:39xldf84]\n\nAbusing your confidence I am going to do another question to you. Since I do for actualiar the recorset and the xbrose in time of ejecuccion?\n\nThanks','',0,'AIA=','39xldf84',1,0,'',228,0,0),(48498,9996,6,1236,0,'201.86.91.138',1203346082,1,0,1,1,1,0,'','BIEL - xbrowse','Biel, como devo proceder para usar xbrowse + DBF :\n\n\nParece que tenho que usar estes comandos:\n\noBrw:cAlias        ?? \noBrw:bSkip         ??\noBrw:bGotop       ??\noBrw:bGoBottom ??\noBrw:bBookMark ??\n    \n\nUsted teria um exemplo de como usar?\n\nGrato','',0,'AIA=','vmz2ysvp',1,0,'',1236,0,0),(48499,9996,6,228,0,'200.118.163.91',1203346269,1,0,1,1,1,1,'','Hazlo asi...','Creo que es lo que necesitas\n\n\n[code:nkmdw82g]\nSTATIC FUNCTION BasicCell&#40; oWnd &#41;\n\n   local oChild, oBrw\n\n   DEFINE WINDOW oChild TITLE &quot;Basic Cell selector browse&quot; MDICHILD OF oWnd\n\n   oBrw &#58;= TXBrowse&#40;&#41;&#58;New&#40; oWnd &#41;\n\n   oBrw&#58;SetRDD&#40;&#41;\n   oBrw&#58;CreateFromCode&#40;&#41;\n   oBrw&#58;cToolTip = &quot;This is a test&quot;\n\n   oChild&#58;oClient &#58;= oBrw\n\n   ACTIVATE WINDOW oChild ON INIT oBrw&#58;SetFocus&#40;&#41;\n\nRETURN NIL\n[/code:nkmdw82g]\n\nEspero te sirva','',0,'AIA=','nkmdw82g',1,0,'',228,0,0),(48500,9095,6,228,0,'200.118.163.91',1203346678,1,0,1,1,1,1,'','','Antonio que pena molestarte, pero me gustaria saber si ya se puede cambiar el color de los menus con estilo 2007?','',0,'AIA=','1lvkwu2g',1,0,'',228,0,0),(48501,9997,6,176,0,'201.255.185.69',1203346686,1,0,1,1,1,0,'','scroll en wbrowse 1.7 de Hernán','Hola a todos, porque cuando me posiciono sobre la flechita del scroll vertical de browse, cuando llego al tope o al fin de la vista no me refresca el browse y va cambiando solo la línea. Estuve buscando en los mensajes viejos del foro pero no pude encontrar nada al respecto. \nUtilizo fwh26 Xharbour 0.99.61 y el Browse de Hernán\n\nGracias','',0,'AIA=','1x91fwwg',1,0,'',176,0,0),(48502,9998,6,106,0,'85.34.123.173',1203346810,1,0,1,1,1,1,'','xBrowse, dimension en pixel','Es normal que cuando creo un xbrowse antes de estar creado el dialogo lo cree con determinadas dimensiones, y cuando lo creo desde un boton, (el mismo xbrowse, llamoa la misma funcion) lo haga mas pequeño?\n\nHay algo que se me escapa?\n\n\nSaludos','',0,'AIA=','3foo1fux',1,0,'',106,0,0),(48503,9890,6,228,0,'200.118.163.91',1203346845,1,0,1,1,1,1,'','','Gracias Manuel\n\nMuchas gracias por las respuesta voy a probar y cualquier cosa te comento.\n\nAmigo, cuando estoy trabajando con entorno MDI, debo hacer algo especial para que funcione bien el xbrowse?','',0,'AIA=','1ou3ose3',1,0,'',228,0,0),(48504,9889,3,868,0,'219.64.121.60',1203349321,1,0,1,1,1,1,'','','I guess you are getting the error only when the RecordSet is empty.\nPlease set the navigation codeblocks yourself in your code, before calling SetAdo \n\n[code:4ag0qbcy]\noBrw&#58;bGoTop    &#58;= &#123; || If&#40; oRs&#58;RecordCount&#40;&#41; &gt; 0, oRs&#58;MoveFirst&#40;&#41;, &#41; &#125;\noBrw&#58;bGoBottom &#58;= &#123; || If&#40; oRs&#58;RecordCount&#40;&#41; &gt; 0, oRs&#58;MoveLast&#40;&#41;, &#41;  &#125;\noBrw&#58;bSkip     &#58;= &#123; | n | If&#40; oRs&#58;RecordCount == 0, 0, AdoSkip&#40; oRs, If&#40; n == nil, 1, n &#41; &#41; &#41; &#125;\noBrw&#58;bBof      &#58;= &#123; || oRs&#58;Bof &#125;\noBrw&#58;bEof      &#58;= &#123; || oRs&#58;Eof &#125;\noBrw&#58;bBookMark &#58;= &#123; | uBm | If&#40; If&#40; oRs&#58;RecordCount&#40;&#41; == 0, 0, If&#40; uBm == nil, oRs&#58;BookMark, oRs&#58;BookMark &#58;= uBm &#41; &#41; &#125;\noBrw&#58;bKeyNo    &#58;= &#123; | n | If&#40; oRs&#58;RecordCount == 0, 0, If&#40; n == nil, oRs&#58;AbsolutePosition, oRs&#58;AbsolutePosition &#58;= n &#41; &#41; &#125;\noBrw&#58;bKeyCount &#58;= &#123; || oRs&#58;RecordCount&#40;&#41;&#125;\n[/code:4ag0qbcy]\nLet us see if this is working well.\nIf with this modification it is working well even on empty recordsets, we can then request Mr Antonio to include the changes in the xBrowse.Prg','',0,'AIA=','4ag0qbcy',1,0,'',868,0,0),(48505,9999,2,1099,0,'83.53.192.132',1203349341,1,0,1,1,1,0,'','Problemas al indexar','Hola a todos,\n\nTengo un programa en el cual necesito indexar la base de datos por un campo fecha y un campo numérico, es decir que todos los que tengan la misma fecha los ordene por un segundo campo numérico.\n\nLo he intentado de la siguiente forma:\n\n    INDEX ON DTOC(DIARI-&gt;DATA)+STR(DIARI-&gt;ASSENTAMENT) TAG DATA\n\nEl resultado es bueno excepto que no tiene en cuanta el formato de las fechas y me lo ordena como si fuese un campo de texto con el consiguiente error ya que no tiene en cuenta ni el día ni el mes ni el año.\n\n¿Hay alguna forma de poder realizar esta operación de forma correcta?\n\nGracias de antemano por vuestras respuestas.\n\nAndrés.','',0,'AIA=','1t16to8s',1,0,'',1099,0,0),(48506,9999,2,1095,0,'80.35.166.25',1203351067,1,0,1,1,1,0,'','','Hola Andrés,\n\nPara indexar campos de tipo fecha tienes que usar [b:2z1mvvio]DTOS[/b:2z1mvvio](CampoFecha)\n\nEn tu caso quedaría:\n\nINDEX ON [b:2z1mvvio]DTOS[/b:2z1mvvio](DIARI-&gt;DATA)+STR(DIARI-&gt;ASSENTAMENT) TAG DATA\n\nSaludos.','',0,'QA==','2z1mvvio',1,0,'',1095,0,0),(48507,10000,6,644,0,'201.252.92.32',1203351557,1,0,1,1,1,0,'','Nombre de archivo en la clase FileXls','Compañeros\n\nTengo que confeccionar unos listados en excel. Para poner el nombre a los archivos utilizo una variable y no funciona. Si el nombre es un literal no hay problemas Por Ejemplo\n\ncNombreExcel := \"sueldos.xls\"\nXls oFileXLS File cNombreExcel Autoexec    NO FUNCIONA\n\nXls oFileXLS File \"sueldos.xls\"  Autoexec   SI FUNCIONA\n\nAlguna idea ?? Gracias.','',0,'QA==','dw3hqx3n',1,0,'',644,0,0),(48508,9953,3,103,0,'200.253.153.81',1203352364,1,0,1,1,1,1,'','','Hi Manuel,\n\n    I\'ve downloaded the last TSBrowse update and I have created the lib, but when I compile using the lib, it gives me some errors about non-defined functions:\n\n[code:2kjbhjbe]\nTurbo Incremental Link 5&#46;00 Copyright &#40;c&#41; 1997, 2000 Borland\nError&#58; Unresolved external \'_HB_FUN_ROWFROMPIX\' referenced from E&#58;\\FWH802\\LIB\\SBROWSEX1&#46;1&#46;0&#46;LIB|Tsbrowse\nError&#58; Unresolved external \'_HB_FUN_COUNTROWS\' referenced from E&#58;\\FWH802\\LIB\\SBROWSEX1&#46;1&#46;0&#46;LIB|Tsbrowse\nError&#58; Unresolved external \'_HB_FUN_TSBRWSCROLL\' referenced from E&#58;\\FWH802\\LIB\\SBROWSEX1&#46;1&#46;0&#46;LIB|Tsbrowse\nError&#58; Unresolved external \'_HB_FUN_SBGETHEIGHT\' referenced from E&#58;\\FWH802\\LIB\\SBROWSEX1&#46;1&#46;0&#46;LIB|Tscolumn\nError&#58; Unresolved external \'_HB_FUN_SBMPHEIGHT\' referenced from E&#58;\\FWH802\\LIB\\SBROWSEX1&#46;1&#46;0&#46;LIB|Tsbrowse\nError&#58; Unresolved external \'_HB_FUN_TSDRAWCELL\' referenced from E&#58;\\FWH802\\LIB\\SBROWSEX1&#46;1&#46;0&#46;LIB|Tsbrowse\n[/code:2kjbhjbe]\n\nPerhaps I don\'t have all the sources... \n\nPS: I don\'t use Verce, but I saw it to put all the sources defined into the VRC file in my xMate file.\n\nThanks in advance,','',0,'AIA=','2kjbhjbe',1,0,'',103,0,0),(48509,9999,2,1099,0,'83.53.192.132',1203352921,1,0,1,1,1,0,'','','Funcionó perfectamente, muchisimas gracias.\n\nSaludos,\n\nAndrés.','',0,'AIA=','3kzn4bmj',1,0,'',1099,0,0),(48510,9998,6,106,0,'85.34.123.173',1203353251,1,0,1,1,1,1,'','','Lo llamaba antes del ON INIT, y se ve que toma los valores en modo diferente.\n\nSaludos','',0,'AIA=','1u680pps',1,0,'',106,0,0),(48511,9996,6,456,0,'217.127.39.57',1203354679,1,0,1,1,1,1,'','','Como comenta Leandro tiene que funcionarte bien.\nLos metodos que mencionas, efectivamente deben usarse, pero con el uso de SetRDD, ya se definen con valores por defecto, que en la mayoria de los casos te van a funciona sin tener que modificarlos.','',0,'AIA=','13cbnv53',1,0,'',456,0,0),(48512,9953,3,868,0,'219.64.121.60',1203354963,1,0,1,1,1,1,'','','Mr Klyber\n\nThese functions are in TSBFUNCS.C.  You need to compile this c module with -d__HARBOUR__ and add the obj to your lib.','',0,'AIA=','1gng5ujz',1,0,'',868,0,0),(48513,9953,3,868,0,'219.64.121.60',1203355107,1,0,1,1,1,1,'','','[quote=&quot;mmercado&quot;:5j6kju3p]\nI\'ll try to upload corrected files today, anyway if you want, give me your email to send it directly to you.\n\n\nManuel Mercado[/quote:5j6kju3p]\nI would like to download once the corrected files are uploaded please.','',0,'gA==','5j6kju3p',1,0,'',868,0,0),(48514,9890,6,456,0,'217.127.39.57',1203355318,1,0,1,1,1,1,'','','Bueno este hilo parece que genera bastante interes, me alegro pues cada dia somos mas los que podemos ir aportando conocimientos sobre ADO.\n\nMauro, a mi no me importaria realizar un manual de ADO, pero como tu bien comentas el tiempo vale dinero, y muchas veces no dispongo de todo el tiempo que quisiera. De momento en el blog voy escribiendo cada cuando puedo, habra epocas con mas articulos, y otras de larga sequia. En cuaquier caso, el tema formacion es algo que me interesa, y puedo llegar a plantearmelo, siempre y cuando me compense la retribución a recibir a cambio.\n\nAl tema, como b